[
  {
    "path": ".github/ISSUE_TEMPLATE/bug-report.yml",
    "content": "name: Bug or Issue Report\ndescription: Report a bug or issue with GEOS-Chem\ntitle: \"Put a one-line description here\"\nlabels: [\"category: Bug\"]\nbody:\n  - type: input\n    id: name\n    attributes:\n      label: Your name\n    validations:\n      required: true\n  - type: input\n    id: affiliation\n    attributes:\n      label: Your affiliation\n    validations:\n      required: true\n  - type: textarea\n    id: what-happened\n    attributes:\n      label: What happened? What did you expect to happen?\n      placeholder: Describe your issue\n    validations:\n      required: true\n  - type: textarea\n    id: steps-to-reproduce\n    attributes:\n      label: What are the steps to reproduce the bug?\n      placeholder: Explain what you did\n    validations:\n      required: true\n  - type: textarea\n    id: log-files\n    attributes:\n      label: Please attach any relevant configuration and log files.\n      description: Drag and drop files like the GEOS-Chem log file, geoschem_config.yml, HEMCO_Config.rc, HISTORY.rc, and build_info/summarize_build here. You may need to rename files to end in .txt first.\n    validations:\n      required: false\n  - type: input\n    id: version\n    attributes:\n      label: What GEOS-Chem version were you using?\n      placeholder: e.g. 14.4.0\n    validations:\n      required: true\n  - type: dropdown\n    id: machine\n    attributes:\n      label: What environment were you running GEOS-Chem on?\n      multiple: true\n      options:\n        - Local cluster\n        - AWS\n        - Personal computer\n        - Other (please explain below)\n    validations:\n      required: true\n  - type: input\n    id: compiler-version\n    attributes:\n      label: What compiler and version were you using?\n      placeholder: e.g. gcc 10.2.0, ifort 19.0.5.281\n    validations:\n      required: true\n  - type: dropdown\n    id: implemenation\n    attributes:\n      label: Will you be addressing this bug yourself?\n      description: If Yes, please also assign this issue to yourself (if possible)\n      multiple: false\n      options:\n        - \"Yes\"\n        - \"Yes, but I will need some help\"\n        - \"No\"\n    validations:\n      required: true\n  - type: dropdown\n    id: configuration\n    attributes:\n      label: In what configuration were you running GEOS-Chem?\n      description: If you are experiencing issues with GEOS-Chem in an external model, please contact that model's support. This repository is for tracking issues related to the GEOS-Chem science code base.\n      multiple: false\n      options:\n        - GCClassic\n        - GCHP\n        - Other (please explain in additional information section below)\n    validations:\n      required: true\n  - type: dropdown\n    id: simulation\n    attributes:\n      label: What simulation were you running?\n      description: If using full chemistry, specify extra options like benchmark, complexSOA, etc. in the additional information section below\n      multiple: false\n      options:\n        - Full chemistry\n        - Aerosol\n        - Carbon \n        - Hg\n        - POPs\n        - TagO3\n        - TransportTracers\n        - Trace metals\n        - CH4\n        - CO2\n        - TagCO\n    validations:\n      required: true\n  - type: input\n    id: resolution\n    attributes:\n      label: As what resolution were you running GEOS-Chem?\n      description: If running a nested grid simulation, please also specify the region.\n      placeholder: \"e.g. 4x5, 2x2.5, 0.25x0.3125 NA, c48, c180\"\n    validations:\n      required: true\n  - type: dropdown\n    id: meteorology\n    attributes:\n      label: What meterology fields did you use?\n      multiple: false\n      options:\n        - GEOS-FP\n        - GEOS-IT\n        - MERRA-2\n        - GCAP 2.0\n        - Other (please explain in additional information section below)\n    validations:\n      required: true\n  - type: textarea\n    id: additional-info\n    attributes:\n      label: Additional information\n      description: Please provide any additional information here that you think might be relevant.\n    validations:\n      required: false\n"
  },
  {
    "path": ".github/ISSUE_TEMPLATE/config.yml",
    "content": "blank_issues_enabled: false\ncontact_links:\n  - name: GEOS-Chem user manual\n    url: https://geos-chem.readthedocs.io/en/stable\n    about: Click this link to read the GEOS-Chem user manual.\n"
  },
  {
    "path": ".github/ISSUE_TEMPLATE/new-feature.yml",
    "content": "name: Feature Request\ndescription: Request a new GEOS-Chem feature\ntitle: \"Put a one-line description here\"\nlabels: [\"category: Feature Request\"]\nbody:\n  - type: input\n    id: name\n    attributes:\n      label: Your name\n    validations:\n      required: true\n  - type: input\n    id: affiliation\n    attributes:\n      label: Your affiliation\n    validations:\n      required: true\n  - type: textarea\n    id: feature-description\n    attributes:\n      label: Provide a clear and concise overview of the new feature requested.\n    validations:\n      required: true\n  - type: textarea\n    id: reference\n    attributes:\n      label: Reference(s)\n      description: If this is a science update, please provide a literature citation.\n      placeholder: \"e.g. Bey et al., Global modeling of tropospheric chemistry with assimilated meteorology: Model description and evaluation, J. Geophys. Res., 106, 23,073-23,096, 2001.\"\n    validations:\n      required: false\n  - type: dropdown\n    id: implemenation\n    attributes:\n      label: Will you be implementing this feature yourself?\n      description: If Yes, please also assign this issue to yourself (if possible)\n      multiple: false\n      options:\n        - \"Yes\"\n        - \"Yes, but I will need some help\"\n        - \"No\"\n    validations:\n      required: true\n  - type: textarea\n    id: additional-info\n    attributes:\n      label: Additional information\n      description: Please provide any additional information here that you think might be relevant.\n    validations:\n      required: false"
  },
  {
    "path": ".github/ISSUE_TEMPLATE/question-discussion.yml",
    "content": "name: Question or Discussion\ndescription: Ask a question about GEOS-Chem or start a discussion\ntitle: \"Put a one-line description here\"\nlabels: [\"category: Question\"]\nbody:\n  - type: input\n    id: name\n    attributes:\n      label: Your name\n    validations:\n      required: true\n  - type: input\n    id: affiliation\n    attributes:\n      label: Your affiliation\n    validations:\n      required: true\n  - type: textarea\n    id: description\n    attributes:\n      label: Please provide a clear and concise description of your question or discussion topic.\n    validations:\n      required: true"
  },
  {
    "path": ".github/PULL_REQUEST_TEMPLATE.md",
    "content": "### Name and Institution (Required)\n\nName:\nInstitution:\n\n### Describe the update\n\nPlease provide a clear and concise overview of the update.\n\n### Expected changes\n\nPlease provide details on how this update will impact model output and include plots or tables as needed.\n\n### Reference(s)\n\nIf this is a science update, please provide a literature citation.\n\n### Related Github Issue\n\nPlease link to the corresponding Github issue(s) here. If fixing a bug, there should be an issue describing it with steps to reproduce.\n"
  },
  {
    "path": ".github/workflows/stale.yml",
    "content": "# This workflow warns and then closes issues that have had no activity for a specified amount of time.\n#\n# You can adjust the behavior by modifying this file.\n# For more information, see:\n# https://github.com/actions/stale\nname: Mark stale issues\n\non:\n  schedule:\n  - cron: '0 0 * * *' # Run every night at midnight\n\njobs:\n  stale:\n\n    runs-on: ubuntu-latest\n    permissions:\n      issues: write\n      pull-requests: write\n\n    steps:\n    - uses: actions/stale@v10\n      with:\n        repo-token: ${{ secrets.GITHUB_TOKEN }}\n        stale-issue-label: 'stale'\n        exempt-issue-labels: 'category: Discussion,category: Feature Request,deferred,help needed: Open Research Problem,help needed: Request Input from Community,never stale,TODO: Documentation'\n        days-before-issue-stale: 30\n        days-before-issue-close: 7\n        stale-issue-message: 'This issue has been automatically marked as stale because it has not had recent activity. If there are no updates within 7 days it will be closed. You can add the \"never stale\" tag to prevent the issue from closing this issue.'\n        close-issue-message: 'Closing due to inactivity'\n        days-before-pr-stale: -1\n        days-before-pr-close: -1\n"
  },
  {
    "path": ".gitignore",
    "content": "HEMCO/.git/\nHEMCO/.github/\nHEMCO/.gitignore\n*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ngcclassic\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*\n*.exe"
  },
  {
    "path": ".gitmodules",
    "content": "[submodule \"KPP/standalone\"]\n\tpath = KPP/standalone\n\turl = https://github.com/geoschem/KPP-Standalone\n"
  },
  {
    "path": ".zenodo.json",
    "content": "{\n    \"access_right\": \"open\",\n    \"creators\": [\n\t{\n\t    \"name\": \"The International GEOS-Chem User Community\"\n\t}\n    ],\n    \"description\": \"GEOS-Chem (science codebase)\",\n    \"keywords\": [\n\t\"atmospheric-chemistry\",\n\t\"atmospheric-composition\",\n\t\"atmospheric-modeling\",\n\t\"aws\",\n\t\"climate-modeling\",\n\t\"cloud-computing\",\n\t\"geos-chem\",\n\t\"atmospheric-computing\",\n\t\"scientific-computing\"\n    ],\n    \"license\": \"mit-license\",\n    \"upload_type\": \"software\"\n}\n"
  },
  {
    "path": "APM/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "APM/CMakeLists.txt",
    "content": "add_library(APM STATIC EXCLUDE_FROM_ALL\n\tapm_albd_mod.F\n\tapm_ATHN_mod.F\n\tapm_coag_mod.F90\n\tapm_grow_mod.F\t\n\tapm_icen_mod.F90\n\tapm_init_mod.F\n\tapm_mixactivate.F90\n\tapm_nucl_mod.F\n\tapm_opti_mod.F\n\tapm_phys_mod.F\n\tapm_radf_mod.F\n\tapm_rrtmg_mods.F90\n\tapm_rrtmg_src.F90\n\tapm_rrtmg_sw.F90\n\tapm_TIMN_mod.F\n\tmodule_data_mosaic_asect.F90\n\tmodule_data_mosaic_other.F90\n\tmodule_data_mosaic_therm.F90\n\tmodule_mosaic_therm.F90\n)\ntarget_link_libraries(APM\n\tPUBLIC GeosUtil\n)\n\n"
  },
  {
    "path": "APM/apm_ATHN_mod.F",
    "content": "#ifdef APM\n      MODULE APM_ATHN_MOD\n      IMPLICIT NONE\n\n      !=================================================================\n      ! MODULE PRIVATE DECLARATIONS -- keep certain internal variables\n      ! and routines from being seen outside \"apm_nucl_mod.f\"\n      !=================================================================\n\n!  Module Variables:\n!  ============================================================================\n!  Parameters\n!  (1 ) MC   : NUMBER OF POINTS IN H2SO4 CONCENTRATION DIMENSION\n!  (2 ) MRH  : NUMBER OF POINTS IN RELATIVE HUMIDITY DIMENSION\n!  (3 ) MT   : NUMBER OF POINTS IN TEMPERATURE DIMENSION\n!  (4 ) MD   : NUMBER OF POINTS IN [DMA] DIMENSION\n!  (5 ) MS   : NUMBER OF POINTS IN SURFACE AREA DIMENSION\n\n!  Arrays\n!  (6 ) C   : VALUES AT POINTS IN H2SO4 CONCENTRATION DIMENSION\n!  (7 ) RH  : VALUES AT POINTS IN RELATIVE HUMIDITY DIMENSION\n!  (8 ) T   : VALUES AT POINTS IN TEMPERATURE DIMENSION\n!  (9 ) D   : VALUES AT POINTS IN [DMA] DIMENSION\n!  (10) S   : VALUES AT POINTS IN SURFACE AREA DIMENSION\n\n!  (11) XJATHN : AMINE TERNARY NUCLEATION RATES (cm-3s-1) AT ALL POINTS IN 5-D SPACE\n\n!  Module Routines:\n!  ============================================================================\n!  (1 ) YUJATHN     : INTERPOLAION SCHEME TO FIND JATHN FROM LOOKUP TABLE\n!  (2 ) READJATHN   : READ IN THE ATHN LOOKUP TABLE\n!\n!  NOTES:\n!  (1 ) ....\n!******************************************************************************\n\n\n      ! Make everything PRIVATE ...\n      PRIVATE\n\n      ! ... except these variables ...\n!      PUBLIC ::\n\n      ! ... and these routines\n      PUBLIC :: YUJATHN\n      PUBLIC :: READJATHN\n\n      !=================================================================\n      ! MODULE VARIABLES\n      !=================================================================\n      ! Parameters\n      INTEGER, PARAMETER   :: MC  = 31\n      INTEGER, PARAMETER   :: MRH = 11\n      INTEGER, PARAMETER   :: MT  = 31\n      INTEGER, PARAMETER   :: MD  = 31\n      INTEGER, PARAMETER   :: MS  = 12\n\n      ! Arrays\n      REAL*8               :: C(MC),RH(MRH),T(MT),D(MD),S(MS)\n      REAL*8               :: XJATHN(MC,MRH,MT,MD,MS)\n\n      CHARACTER(LEN=255)   :: DATA_DIR_1x1\n      !=================================================================\n      ! MODULE ROUTINES -- follow below the \"CONTAINS\" statement\n      !=================================================================\n      CONTAINS\n\n\n! *********************************************************************\n! ATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHN\n! *********************************************************************\n!\n\tSUBROUTINE YUJATHN(X0,Y0,Z0,U0,V0,XJ0)\n!\n!      This subroutine is to calculate rates of amine ternary homogeneous \n!      nucleation (ATHN) from lookup tables\n!      using multiple-variable interpolation scheme\n!\n!       WRITTEN by Fangqun Yu, SUNY-Albany, 2014\n!       Email: fyu@albany.edu\n!       Updated 2015\n! References: \n!\n! Input:\n! X0 = [H2SO4] in #/cm3  (5E5-5E8)\n! Y0 = RH in % (0.5-99.5)\n! Z0 = T (in K) (250-310)\n! U0 = [DMA] (ppt) (0.1-100)\n! V0 = S (um2/cm3) (1-1000)\n!\n! OUTPUT:\n! XJ0: Nucleation rate (#/cm3s)\n!\n!\n        REAL*8 :: X0,Y0,Z0,U0,V0,XJ0\n        REAL*8  :: X,Y,Z,U,V\n        REAL*8  :: VOL,FRACT\n        REAL*8  :: dx1,dx2,dy1,dy2,dz1,dz2,du1,du2,dv1,dv2\n        REAL*8  :: dx,dy,dz,du,dv\n\n        INTEGER :: IC1, IC2, JRH1, JRH2, KT1, KT2, ID1, ID2, IS1,IS2\n        INTEGER :: IC, JRH, KT, ID,IS\n!\n! to avoid the input values to be changed due to out of the range reset\n!\n        X = X0\n        Y = Y0\n        Z = Z0\n        U = U0\n        V = V0\n!\n! The lookup table should cover almost all possible conditions in\n! ambient troposphere. For the extreme conditions that are out of \n! the ranges of the lookup table, we either reset the inputed \n! parameters in a way that may underestmate the JATHN values or\n! set the nucleation rate to 1.E-20 cm-3s-1.\n!\n        IF(X.LT.C(1)) THEN\n!           WRITE(6,10) X, C(1)\n           XJ0 = 1.E-20\n           RETURN\n        ELSEIF(X.GT.C(MC)) THEN\n!           WRITE(6,11) X, C(MC), C(MC)\n           X =C(MC)\n        ENDIF\n\n        IF(Y.LT.RH(1)) THEN\n!           WRITE(6,12) Y, RH(1)\n           XJ0 = 1.E-20\n           RETURN\n        ELSEIF(Y.GT.RH(MRH)) THEN\n!           WRITE(6,13) Y, RH(MRH), RH(MRH)\n           Y =RH(MRH)\n        ENDIF\n\n        IF(Z.LT.T(1)) THEN\n!           WRITE(6,14) Z, T(1), T(1)\n           Z =T(1)\n        ELSEIF(Z.GT.T(MT)) THEN\n!           WRITE(6,15) Z, T(MT)\n           XJ0 = 1.E-20\n           RETURN\n        ENDIF\n\n        IF(U.LT.D(1)) THEN\n           WRITE(6,16) U, D(1)\n           XJ0 = 1.E-20\n           RETURN\n        ELSEIF(U.GT.D(MD)) THEN\n!           WRITE(6,17) U, D(MD)\n           U =D(MD)\n        ENDIF\n\n        IF(V.LT.S(1)) THEN \n!           WRITE(86,18) V, S(1), S(1)\n           V =S(1)\n        ELSEIF(V.GT.S(MS)) THEN\n!           WRITE(86,19) V, S(MS), S(MS)\n           V =S(MS)\n        ENDIF\n\n\n\n 10     FORMAT(\"ATHN WARNING: INPUTED [H2SO4]=\",ES9.2,\"<\",ES9.2,\n     &     \", set JATHN to 1.E-20 cm-3s-1\")\n 11     FORMAT(\"ATHN WARNING: INPUTED [H2SO4]=\",ES9.2,\">\",ES9.2,\n     &     \" set it to \",ES9.2)\n 12     FORMAT(\"ATHN WARNING: INPUTED RH =\",F5.1,\"% <\",F5.1,\n     &     \"%, set JATHN to 1.E-20 cm-3s-1\")\n 13     FORMAT(\"ATHN WARNING: INPUTED RH =\",F5.1,\"% >\",F5.1,\n     &     \"% set it to \",F5.1,\"%\")\n 14     FORMAT(\"ATHN WARNING: INPUTED T =\",F6.1,\"K <\",F6.1,\n     &     \"K set it to \",F6.1,\"K\")\n 15     FORMAT(\"ATHN WARNING: INPUTED T =\",F6.1,\"K >\",F6.1,\n     &     \"K, set JATHN to 1.E-20 cm-3s-1\")\n 16     FORMAT(\"ATHN WARNING: INPUTED D =\",F6.1,\" <\",F6.1,\n     &     \" ppt , set JATHN to 1.E-20 cm-3s-1\")\n 17     FORMAT(\"ATHN WARNING: INPUTED D =\",F6.1,\" >\",F6.1,\n     &     \" ppt set it to \",F6.1)\n 18     FORMAT(\"ATHN WARNING: INPUTED S =\",F6.1,\" <\",F6.1,\n     &     \" um2/cm3 set it to \",F6.1)\n 19     FORMAT(\"ATHN WARNING: INPUTED S =\",F6.1,\" >\",F6.1,\n     &     \" um2/cm3 set it to \",F6.1)\n\n\n        IC1 =MAX0(INT(1.+10.*LOG10(X/C(1))),1)\n        IC2 = MIN0(IC1 + 1,MC)\n        IF(IC2.EQ.MC) IC1=MC-1\n        \n        IF(Y.LT.RH(2)) THEN\n           JRH1 = 1.\n        ELSE\n         JRH1 = MAX0(INT((Y-RH(2))/10.+2.),2)\n        ENDIF\n        JRH2 = MIN0(JRH1 + 1,MRH)\n        IF(JRH2.EQ.MRH) JRH1=MRH-1\n\n        KT1 = MAX0(INT(Z/2.-124.0),1)\n        KT2 = MIN0(KT1 + 1,MT)\n        IF(KT2.EQ.MT) KT1=MT-1\n!\n        ID1 = MAX0(INT(1.+10.*LOG10(U/D(1))),1)\n        ID2 = MIN0(ID1 + 1,MD)\n        IF(ID2.EQ.MD) ID1=MD-1\n\n!\n        IF(V.LT.10.0) THEN\n          IS1 =1.\n        ELSE\n          IS1 = MAX0(INT(2.+5.*LOG10(V/10.)),2)\n        ENDIF\n        IS2 = MIN0(IS1 + 1,MS)\n        IF(IS2.EQ.MS) IS1=MS-1\n\n!\n\tdx1 = LOG10(X/C(IC1))   ! logJ log[H2SO4] interpolation\n\tdx2 = LOG10(C(IC2)/X)\n\tdy1 = LOG10(Y/RH(JRH1))\n\tdy2 = LOG10(RH(JRH2)/Y)\n\tdz1 = Z-T(KT1)\n\tdz2 = T(KT2)-Z\n\n        du1 = LOG10(U/D(ID1))\n        du2 = LOG10(D(ID2)/U)\n        dv1 = LOG10(V/S(IS1))\n        dv2 = LOG10(S(IS2)/V)\n!\n        XJ0 = 0.\n!\n        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n        DO KT = KT1,KT2\n          IF(KT.EQ.KT1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO JRH = JRH1,JRH2\n            IF(JRH.EQ.JRH1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n            DO IC = IC1,IC2\n              IF(IC.EQ.IC1) THEN\n                dx = dx2\n\t      ELSE\n                dx = dx1\n              ENDIF\n\n\t      DO ID =ID1, ID2\n                IF(ID.EQ.ID1) THEN\n                  du = du2\n\t        ELSE\n                  du = du1\n                ENDIF\n                DO IS =IS1, IS2\n                  IF(IS.EQ.IS1) THEN\n                    dv = dv2\n                  ELSE\n                    dv = dv1\n                  ENDIF\n\n                  FRACT = dx*dy*dz*du*dv/VOL \n                  XJ0 = XJ0 + FRACT*XJATHN(IC,JRH,KT,ID,IS)\n!                WRITE(6,30)IC,JRH,KT,ID,IS,10.**XJATHN(IC,JRH,KT,ID,IS),\n!     &                    FRACT\n\n\t        ENDDO\n\t      ENDDO\n            ENDDO\n\t  ENDDO\n\tENDDO\n!\n! Log10J -->J\n         XJ0 = 10.**XJ0\n!\n 30    FORMAT(I3, I3, I3, I3, I3, 10(1PE10.3))\n 20    FORMAT(10(1PE10.3))\n        RETURN \n        END\n\n! *********************************************************************\n        SUBROUTINE READJATHN(DATA_DIR_1x1a)\n!     \n!       WRITTEN by Fangqun Yu, SUNY-Albany, 2014, 2015\n!\n!  ============================================================================\n\n        CHARACTER(LEN=255)   :: DATA_DIR_1x1a\n        CHARACTER*999 YPATH\n        INTEGER :: IC, IRH, IT, ID, IS\n        REAL*8  :: C11,D11,S11,ratio\n        \n        DATA_DIR_1x1= DATA_DIR_1x1a\n        YPATH = TRIM(DATA_DIR_1x1)//'/APM_data_201906/ATHN20150328/'\n\n        WRITE(6,*)\"Read ATHN look-up tables\"\n\n        open(31,file=TRIM(YPATH)//'YuATHN_J5D.txt',form='formatted')\n        open(41,file=TRIM(YPATH)//'YuATHN_1H2SO4.txt',form='formatted')\n        open(42,file=TRIM(YPATH)//'YuATHN_2RH.txt',form='formatted')\n        open(43,file=TRIM(YPATH)//'YuATHN_3T.txt',form='formatted')\n        open(44,file=TRIM(YPATH)//'YuATHN_4DMA.txt',form='formatted')\n        open(45,file=TRIM(YPATH)//'YuATHN_5S.txt',form='formatted')\n\n!\n        READ(41,100)(C(IC),IC=1,MC)\n        WRITE(6,*)\"[H2SO4](IC), IC=1, \", MC, \":\"\n        WRITE(6,100)(C(IC),IC=1,MC)\n!\n        READ(42,100)(RH(IRH),IRH=1,MRH)\n        WRITE(6,*)\"RH(I), I=1, \", MRH, \":\"\n        WRITE(6,100)(RH(IRH),IRH=1,MRH)\n!\n        READ(43,100)(T(IT),IT=1,MT)\n        WRITE(6,*)\"T(I), I=1, \", MT, \":\"\n        WRITE(6,100)(T(IT),IT=1,MT)\n!\n        READ(44,100)(D(ID),ID=1,MD)\n        WRITE(6,*)\"D(I), I=1, \", MD, \":\"\n        WRITE(6,100)(D(ID),ID=1,MD)\n!\n        READ(45,100)(S(IS),IS=1,MS)\n        WRITE(6,*)\"S(I), I=1, \", MS, \":\"\n        WRITE(6,100)(S(IS),IS=1,MS)\n\n!\n! Use the formula to calculate C and D to get values with more digits, otherwise\n! may cause problem when input C and D are very clsoe to C(IC),D(ID) as\n! IC and ID are decided with formula\n!\n        C(1) = 5.0E5\n        DO IC = 2, MC\n           C11 = C(IC)                                                          \n           RATIO = 10.**(0.1)\n           C(IC) = C(IC-1)*RATIO\n\n           IF(abs(1.-C11/C(IC)).GT.0.02) THEN                                  \n              write(6,*)\"need check JATHN look-up table inputs\"                  \n              stop                                                              \n           ENDIF                                                                \n        ENDDO\n\n        DO ID = 1, MD\n           D11 = D(ID)                                                          \n           D(ID) = 0.1*10.**(0.1*float(ID-1))\n           IF(abs(1.-D11/D(ID)).GT.0.02) THEN\n              write(6,*)\"need check JATHN look-up table inputs\"\n              stop\n           ENDIF\n        ENDDO\n\n        DO IS = 1, MS\n           S11 = S(IS)                                                          \n           IF(IS.EQ.1) THEN\n              S(1) =1.0 \n           ELSE\n              S(IS) = 10.*100.**(0.1*float(IS-2))\n           ENDIF\n           IF(abs(1.-S11/S(IS)).GT.0.02) THEN\n              write(6,*)\"need check JATHN look-up table inputs\"\n              stop\n           ENDIF\n        ENDDO \n\n!\n! Formatted 5-D Table\n!\n        DO IT = 1,MT\n          DO IRH = 1,MRH\n            DO IC =1, MC\n              DO IS =1, MS\n \t        READ(31,201)(XJATHN(IC,IRH,IT,ID,IS),ID =1,MD)\n                DO ID=1, MD\n! Due to high sensitivity of J to key parameters, use logJ to interpolate\n\n                  XJATHN(IC,IRH,IT,ID,IS)=LOG10(XJATHN(IC,IRH,IT,ID,IS))\n                ENDDO\n\t      ENDDO\n\t    ENDDO\n          ENDDO\n\tENDDO\n\n        CLOSE(31)\n        CLOSE(41)\n        CLOSE(42)\n        CLOSE(43)\n        CLOSE(44)\n        CLOSE(45)\n!\n 100    FORMAT(100(1PE10.2))\n 201    FORMAT(100(1PE9.2))\n 202    FORMAT(100F5.1)\n 203    FORMAT(100F5.2)\n 204    FORMAT(100F6.3)\n \n        RETURN\n        END      \n! *********************************************************************\n! ATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHNATHN\n! *********************************************************************\n!\n      ! End of module\n      END MODULE APM_ATHN_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_TIMN_mod.F",
    "content": "#ifdef APM\n! $Id: apm_nucl_mod.f,v 0.0 2008/09/28 11:30:00 fyu $\n      MODULE APM_TIMN_MOD\n!\n!******************************************************************************\n!  Module APM_TIMN_MOD contains variables and routines for computing \n!  ternary IMN rates. (fyu,2018)\n!\n!  Module Variables:\n!  ============================================================================\n!  Parameters\n!  (1 ) MC   : NUMBER OF POINTS IN H2SO4 CONCENTRATION DIMENSION\n!  (2 ) MT   : NUMBER OF POINTS IN TEMPERATURE DIMENSION\n!  (3 ) MRH  : NUMBER OF POINTS IN RELATIVE HUMIDITY DIMENSION\n!  (4 ) MQ   : NUMBER OF POINTS IN IONIZATION RATE DIMENSION\n!  (5 ) MS   : NUMBER OF POINTS IN SURFACE AREA DIMENSION\n!  (6 ) MB   : NUMBER OF POINTS IN [NH3] DIMENSION\n!  Arrays \n!  (1 ) C   : VALUES AT POINTS IN H2SO4 CONCENTRATION DIMENSION\n!  (2 ) T   : VALUES AT POINTS IN TEMPERATURE DIMENSION\n!  (3 ) RH  : VALUES AT POINTS IN RELATIVE HUMIDITY DIMENSION\n!  (4 ) Q   : VALUES AT POINTS IN IONIZATION RATE DIMENSION\n!  (5 ) S   : VALUES AT POINTS IN SURFACE AREA DIMENSION\n!  (6 ) S   : VALUES AT POINTS IN [NH3] DIMENSION\n!\n!  (11) XJTIMN : ION-MEDIATED NUCLEATION RATES (cm-3s-1) AT ALL POINTS IN 6-D SPACE\n!  (12) XRSTAR : CRITICAL RADIUS (nm) AT ALL POINTS IN 6-DIMENSION SPACE\n!\n!  Module Routines:\n!  ============================================================================\n!  (1 ) YUJTIMN1     : INTERPOLAION SCHEME TO FIND JTIMN FROM LOOKUP TABLE\n!  (2 ) READJTIMN   : READ IN THE TIMN LOOKUP TABLE \n!\n!  NOTES:\n!  (1 ) .... \n!******************************************************************************\n!\n      IMPLICIT NONE\n\n      !=================================================================\n      ! MODULE PRIVATE DECLARATIONS -- keep certain internal variables \n      ! and routines from being seen outside \"apm_nucl_mod.f\"\n      !=================================================================\n\n      ! Make everything PRIVATE ...\n      PRIVATE\n\n      ! ... except these variables ...\n!      PUBLIC :: \n\n      ! ... and these routines\n      PUBLIC :: YUJTIMN1\n      PUBLIC :: READJTIMN\n      !=================================================================\n      ! MODULE VARIABLES\n      !=================================================================\n      ! Parameters\n      INTEGER, PARAMETER   :: MC  = 32\n      INTEGER, PARAMETER   :: MT  = 39\n      INTEGER, PARAMETER   :: MRH = 26\n      INTEGER, PARAMETER   :: MQ  = 9\n!      INTEGER, PARAMETER   :: MS  = 12\n      INTEGER, PARAMETER   :: MS  = 2\n      INTEGER, PARAMETER   :: MB  = 33\n\n      ! Arrays \n      REAL*8        :: C(MC),RH(MRH),T(MT),Q(MQ),S(MS),B(MB)\n      REAL*8        :: XJTIMN(MC,MRH,MT,MQ,MS,MB), XRSTAR(MC,MRH,MT,MB)\n  \n      CHARACTER(LEN=255)   :: DATA_DIR_1x1\n      !=================================================================\n      ! MODULE ROUTINES -- follow below the \"CONTAINS\" statement\n      !=================================================================\n      CONTAINS\n\n!------------------------------------------------------------------------------\n\n      SUBROUTINE YUJTIMN1(X0,Y0,Z0,U0,V0,W0,XJBH,XJBIM,XJTH,XJTIM,\n     &                    RBH,RBIM,RTH,RTIM)\n!\n! This subroutine is to calculate rates and critical cluster properties of\n! ion-mediated nucleation (IMN) and kinetic binary homogeneous nucleation (KBHN) \n! from lookup tables using multiple-variable interpolation scheme. \n!\n! Here the IMN lookup table reported in Yu (JGR,2010) and BHN lookup table \n! reported in Yu (JGR, 2008) have been integrated. YUJTIMN gives KBHN rates\n! when the ionization rate is set to 0. The integrated lookup table has a size\n! of ~ 170 MB and is designed for 3-D application. For quick application and \n! comparison, one can obtain nucleation rates under specified conditions using \n! an online nucleation rate calculator @ \n! http://www.albany.edu/~yfq/YuOnLineNucleation.html.\n!\n! The present lookup table should cover almost all the possible conditions in \n! the troposphere relevant to atmospheric nucleation. The range and resolution \n! in each parameter space can be extended in the future if needed.\n!\n! Written by \n! Fangqun Yu\n! Atmospheric Sciences Research Center\n! State University of New York at Albany\n! E-mail: yfq@asrc.cestm.albany.edu; fangqun.yu@asrc.albany.edu\n!\n! Original code writted in 2006. Significnat update in 2008 and 2010. Contact\n! Yu for future update or if you have questions.\n!\n! IMN lookup table reference: \n! 1. Yu, F., Ion-mediated nucleation in the atmosphere: Key controlling \n!      parameters, implications, and look-up table, J. Geophy. Res., 115, \n!      D03206, doi:10.1029/2009JD012630, 2010.\n!\n! IMN model references: \n! 2. Yu, F., From molecular clusters to nanoparticles: Second-generation \n!      ion-mediated nucleation model, Atmos. Chem. Phys., 6, 5193-5211, 2006.\n! 3. Yu, F., and R. P. Turco, Ultrafine aerosol formation via ion-mediated \n!      nucleation, Geophys. Res. Lett., 27, 883-886, 2000.\n!\n! KBHN lookup table reference:\n! 4. Yu, F., Updated H2SO4-H2O binary homogeneous nucleation rate look-up \n!      tables, J. Geophy. Res.,113, D24201, doi:10.1029/2008JD010527, 2008.\n!\n! KBHN model references:\n! 5. Yu, F., Improved quasi-unary nucleation model for binary H2SO4-H2O \n!      homogeneous nucleation, J. Chem. Phys., 127, 054301, 2007.\n! 6. Yu, F., Quasi-unary homogeneous nucleation of H2SO4-H2O, J. Chem. \n!      Phys., 122, 074501, 2005.\n!\n! INPUT (valid value range):\n! X0 = [H2SO4] in #/cm3  (5E5-5E8,5E9)\n! Y0 = RH in % (0.5-99.5)\n! Z0 = T (in K) (190-301)\n! U0 = Q = ionization rate (ion-pairs/cm3s) (0, 2-22.8,100)\n! V0 = S = surface area (um2/cm3) (1, 10-1000)\n! W0 = B = NH3 in #/cm3  (1E5,1E8-1E11,1E12)\n!\n! OUTPUT:\n! XJBH: Bionary Homo  Nucleation rate (#/cm3s)\n! XJBIM: Bionary Ion-Mediated Nucleation rate (#/cm3s)\n! XJTH: Ternary Homo  Nucleation rate (#/cm3s)\n! XJ0: Ternary Ion-Mediated Nucleation rate (#/cm3s)\n! XR0: Radius of critical cluster (nm)\n!\n        REAL*8  :: X0,Y0,Z0,U0,V0,W0\n        REAL*8  :: XJBH,XJBIM,XJTH,XJTIM\n        REAL*8  :: RBH,RBIM,RTH,RTIM\n        REAL*8  :: X,Y,Z,U,V,W\n        REAL*8  :: VOL,VOL4,FRACT,FRACT4,XR0\n        REAL*8  :: dx1,dx2,dy1,dy2,dz1,dz2,du1,du2,dv1,dv2,dw1,dw2\n        REAL*8  :: dx,dy,dz,du,dv,dw\n        REAL*8  :: XDH,XDT,X1,X2,Y1,Y2,XJ1,XJ2,YJ\n\n        INTEGER :: IC1,IC2,JRH1,JRH2,KT1,KT2,IQ1,IQ2,IS1,IS2,IB1,IB2\n        INTEGER :: IC, JRH, KT, IQ, IS,IB\n!\n! to avoid the input values to be changed due to out of the range reset\n!\n        X = X0\n        Y = Y0\n        Z = Z0\n        U = U0\n        V = V0\n        W = W0\n!\n! The present lookup table should cover almost all the possible conditions in \n! the troposphere relevant to atmospheric nucleation. The range and resolution \n! in each parameter space can be extended in the future if needed.\n! If the inputed values are out of the lookup table valid ranges, set them to \n! boundary values for now. Care should be taken if your inputted values are \n! frequently out of the specified ranges.\n! \n        IF(U.LE.1.E-20) U=1.E-20    ! i.e., binary homogeneous nucleation \n!\n        IF(X.LT.C(1)) THEN\n!           WRITE(86,10) X, C(1), C(1)\n           X = C(1)\n        ELSEIF(X.GT.C(MC)) THEN\n!           WRITE(86,11) X, C(MC), C(MC)\n           X =C(MC)\n        ENDIF\n\n        IF(Y.LT.RH(1)) THEN\n!           WRITE(86,12) Y, RH(1), RH(1)\n           Y =RH(1) \n        ELSEIF(Y.GT.RH(MRH)) THEN\n!           WRITE(86,13) Y, RH(MRH), RH(MRH)\n           Y =RH(MRH)\n        ENDIF\n\n        IF(Z.LT.T(1)) THEN\n!           WRITE(86,14) Z, T(1), T(1)\n           Z =T(1)\n        ELSEIF(Z.GT.T(MT)) THEN\n!           WRITE(86,15) Z, T(MT), T(MT)\n           Z =T(MT)\n        ENDIF\n\n        IF(U.LT.Q(1)) THEN\n!           WRITE(86,16) U, Q(1), Q(1)\n           U =Q(1)\n        ELSEIF(U.GT.Q(MQ)) THEN\n!           WRITE(86,17) U, Q(MQ), Q(MQ)\n           U =Q(MQ)\n        ENDIF\n\n!        IF(V.LT.S(1)) THEN\n!!           WRITE(86,18) V, S(1), S(1)\n!           V =S(1)\n!        ELSEIF(V.GT.S(MS)) THEN\n!!           WRITE(86,19) V, S(MS), S(MS)\n!           V =S(MS)\n!        ENDIF\n\n        IF(W.LT.B(1)) THEN\n!           WRITE(86,20) W, B(1), B(1)\n           W =B(1)\n        ELSEIF(W.GT.B(MB)) THEN\n!           WRITE(86,21) W, B(MB), B(MB)\n           W =B(MB)\n        ENDIF\n\n\n 10     FORMAT(\"IMN WARNING: INPUTED [H2SO4]=\",ES9.2,\"<\",ES9.2,\n     &     \" set it to \",ES9.2)\n 11     FORMAT(\"IMN WARNING: INPUTED [H2SO4]=\",ES9.2,\">\",ES9.2,\n     &     \" set it to \",ES9.2)\n 12     FORMAT(\"IMN WARNING: INPUTED RH =\",F5.1,\"% <\",F5.1,\n     &     \"% set it to \",F5.1,\"%\")\n 13     FORMAT(\"IMN WARNING: INPUTED RH =\",F5.1,\"% >\",F5.1,\n     &     \"% set it to \",F5.1,\"%\")\n 14     FORMAT(\"IMN WARNING: INPUTED T =\",F6.1,\"K <\",F6.1,\n     &     \"K set it to \",F6.1,\"K\")\n 15     FORMAT(\"IMN WARNING: INPUTED T =\",F6.1,\"K >\",F6.1,\n     &     \"K set it to \",F6.1,\"K\")\n 16     FORMAT(\"IMN WARNING: INPUTED Q =\",F6.1,\" <\",F6.1,\n     &     \" ion-pair/cm3s set it to \",F6.1)\n 17     FORMAT(\"IMN WARNING: INPUTED Q =\",F6.1,\" >\",F6.1,\n     &     \" ion-pair/cm3s set it to \",F6.1)\n 18     FORMAT(\"IMN WARNING: INPUTED S =\",F6.1,\" <\",F6.1,\n     &     \" um2/cm3 set it to \",F6.1)\n 19     FORMAT(\"IMN WARNING: INPUTED S =\",F6.1,\" >\",F6.1,\n     &     \" um2/cm3 set it to \",F6.1)\n 20     FORMAT(\"IMN WARNING: INPUTED [NH3]=\",ES9.2,\"<\",ES9.2,\n     &     \" set it to \",ES9.2)\n 21     FORMAT(\"IMN WARNING: INPUTED [NH3]=\",ES9.2,\">\",ES9.2,\n     &     \" set it to \",ES9.2)\n\n        IC1 =MAX0(INT(1.+10.*LOG10(X/5.E5)),1)\n        IC2 = MIN0(IC1 + 1,MC)\n        IF(IC2.EQ.MC) IC1=MC-1\n        \n        XDH = 4.\n        IF(Y.LT.RH(2)) THEN\n           JRH1 = 1.\n        ELSE\n         JRH1 = MAX0(INT((Y-RH(2))/XDH+2.),2)\n        ENDIF\n        JRH2 = MIN0(JRH1 + 1,MRH)\n        IF(JRH2.EQ.MRH) JRH1=MRH-1\n\n        XDT = 3.0\n        KT1 = MAX0(INT((Z-190.0)/XDT)+1,1)\n        KT2 = MIN0(KT1 + 1,MT)\n        IF(KT2.EQ.MT) KT1=MT-1\n!\n        \n        IF(U.LT.Q(2)) THEN\n          IQ1 =1.\n        ELSE\n          IQ1 = MAX0(INT(2.+LOG10(U/Q(2))/LOG10(1.5)),2)\n        ENDIF\n        IQ2 = MIN0(IQ1 + 1,MQ)\n        IF(IQ2.EQ.MQ) IQ1=MQ-1\n!\n!        IF(V.LT.10.0) THEN\n!          IS1 =1.\n!        ELSE\n!          IS1 = MAX0(INT(2.+5.*LOG10(V/10.)),2)\n!        ENDIF\n!        IS2 = MIN0(IS1 + 1,MS)\n!        IF(IS2.EQ.MS) IS1=MS-1\n\n        IF(W.LT.B(2)) THEN\n          IB1 =1.\n        ELSE\n          IB1 = MAX0(INT(2.+10.*LOG10(W/B(2))),2)\n        ENDIF\n        IB2 = MIN0(IB1 + 1,MB)\n        IF(IB2.EQ.MB) IB1=MB-1\n!\n\tdx1 = LOG10(X/C(IC1))   ! logJ log[H2SO4] interpolation\n\tdx2 = LOG10(C(IC2)/X)\n\tdy1 = LOG10(Y/RH(JRH1))\n\tdy2 = LOG10(RH(JRH2)/Y)\n\tdz1 = Z-T(KT1)\n\tdz2 = T(KT2)-Z\n\n        du1 = U - Q(IQ1)\n        du2 = Q(IQ2) - U\n!        dv1 = V- S(IS1)\n!        dv2 = S(IS2) - V\n        dw1 = LOG10(W/B(IB1))   ! logJ log[H2SO4] interpolation\n        dw2 = LOG10(B(IB2)/W)\n!\n!JTIMN\n        XJ1 = 0.  \n        XJ2 = 0.\n        XR0 = 0.\n!\n        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dw1+dw2)\n        VOL4 = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(dw1+dw2)\n\n        DO KT = KT1,KT2\n          IF(KT.EQ.KT1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO JRH = JRH1,JRH2\n            IF(JRH.EQ.JRH1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n            DO IC = IC1,IC2\n              IF(IC.EQ.IC1) THEN\n                dx = dx2\n\t      ELSE\n                dx = dx1\n              ENDIF\n \t      DO IB =IB1, IB2\n                IF(IB.EQ.IB1) THEN\n                  dw = dw2\n\t        ELSE\n                  dw = dw1\n                ENDIF\n\n                FRACT4 = dx*dy*dz*dw/VOL4\n                XR0 = XR0 + FRACT4*XRSTAR(IC,JRH,KT,IB)\n\n\t        DO IQ =IQ1, IQ2\n                  IF(IQ.EQ.IQ1) THEN\n                    du = du2\n\t          ELSE\n                    du = du1\n                  ENDIF\n                  FRACT = dx*dy*dz*du*dw/VOL \n                  XJ1 = XJ1 + FRACT*XJTIMN(IC,JRH,KT,IQ,1,IB)\n                  XJ2 = XJ2 + FRACT*XJTIMN(IC,JRH,KT,IQ,2,IB)\n!                WRITE(6,30)IC,JRH,KT,IQ,IB,\n!     &           10.**XJTIMN(IC,JRH,KT,IQ,1,IB), \n!     &           10.**XJTIMN(IC,JRH,KT,IQ,2,IB), FRACT\n\t        ENDDO\n\t      ENDDO\n            ENDDO\n\t  ENDDO\n\tENDDO\n\n!\n! Log10J -->J\n        XJ1 = 10.**XJ1\n        XJ2 = 10.**XJ2\n! Inetrpolate to get J at inputed S\n        X1 = S(1)\n        Y1 = XJ1\n        X2 = S(2)\n        Y2 = XJ2\n        IF(Y1.GT.Y2) THEN\n          YJ = Y1*(Y2/Y1)**((X1-V)/(X1-X2))\n        ELSE\n          YJ=Y2\n        ENDIF\n        XJTIM = YJ\n        RTIM = XR0\n!      WRITE(6,40)X1,X2,V,Y1,Y2,YJ\n\n\n!JBIM -- NH3=0\n        XJ1 = 0.  \n        XJ2 = 0.\n        XR0 = 0.\n!\n        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)\n        VOL4 = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)\n\n        DO KT = KT1,KT2\n          IF(KT.EQ.KT1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO JRH = JRH1,JRH2\n            IF(JRH.EQ.JRH1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n            DO IC = IC1,IC2\n              IF(IC.EQ.IC1) THEN\n                dx = dx2\n\t      ELSE\n                dx = dx1\n              ENDIF\n\n                FRACT4 = dx*dy*dz/VOL4\n                XR0 = XR0 + FRACT4*XRSTAR(IC,JRH,KT,1)\n\n\t        DO IQ =IQ1, IQ2\n                  IF(IQ.EQ.IQ1) THEN\n                    du = du2\n\t          ELSE\n                    du = du1\n                  ENDIF\n                  FRACT = dx*dy*dz*du/VOL \n                  XJ1 = XJ1 + FRACT*XJTIMN(IC,JRH,KT,IQ,1,1)\n                  XJ2 = XJ2 + FRACT*XJTIMN(IC,JRH,KT,IQ,2,1)\n\t        ENDDO\n            ENDDO\n\t  ENDDO\n\tENDDO\n\n!\n! Log10J -->J\n        XJ1 = 10.**XJ1\n        XJ2 = 10.**XJ2\n! Inetrpolate to get J at inputed S\n        X1 = S(1)\n        Y1 = XJ1\n        X2 = S(2)\n        Y2 = XJ2\n        IF(Y1.GT.Y2) THEN\n          YJ = Y1*(Y2/Y1)**((X1-V)/(X1-X2))\n        ELSE   ! When Y1 and Y2 both very small, Y1 can be LT Y2 becasue of cut-off or semi-equli approx, no extrapol\n          YJ=Y2\n        ENDIF\n        XJBIM = YJ\n        RBIM = XR0\n!      WRITE(6,40)X1,X2,V,Y1,Y2,YJ\n!         IF(XJBIM.GT.(1.1*XJTIM)) THEN\n!           WRITE(6,40)X,Y,Z,U,V,W,XJBIM,XJTIM,Y1,Y2,(X1-V)/(X1-X2)\n!         ENDIF\n\n!JTHN  -- Q=0\n        XJ1 = 0.  \n        XJ2 = 0.\n        XR0 = 0.\n!\n        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(dw1+dw2)\n\n        DO KT = KT1,KT2\n          IF(KT.EQ.KT1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO JRH = JRH1,JRH2\n            IF(JRH.EQ.JRH1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n            DO IC = IC1,IC2\n              IF(IC.EQ.IC1) THEN\n                dx = dx2\n\t      ELSE\n                dx = dx1\n              ENDIF\n \t      DO IB =IB1, IB2\n                IF(IB.EQ.IB1) THEN\n                  dw = dw2\n\t        ELSE\n                  dw = dw1\n                ENDIF\n                FRACT = dx*dy*dz*dw/VOL \n                XR0 = XR0 + FRACT*XRSTAR(IC,JRH,KT,IB)\n                XJ1 = XJ1 + FRACT*XJTIMN(IC,JRH,KT,1,1,IB)\n                XJ2 = XJ2 + FRACT*XJTIMN(IC,JRH,KT,1,2,IB)\n\t      ENDDO\n            ENDDO\n\t  ENDDO\n\tENDDO\n!\n! Log10J -->J\n        XJ1 = 10.**XJ1\n        XJ2 = 10.**XJ2\n! Inetrpolate to get J at inputed S\n        X1 = S(1)\n        Y1 = XJ1\n        X2 = S(2)\n        Y2 = XJ2\n        IF(Y1.GT.Y2) THEN\n          YJ = Y1*(Y2/Y1)**((X1-V)/(X1-X2))\n        ELSE\n          YJ=Y2\n        ENDIF\n        XJTH = YJ\n        RTH = XR0\n\n!JBH, Q=0, NH3=0\n        XJ1 = 0.  \n        XJ2 = 0.\n        XR0 = 0.\n        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)\n        DO KT = KT1,KT2\n          IF(KT.EQ.KT1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO JRH = JRH1,JRH2\n            IF(JRH.EQ.JRH1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n            DO IC = IC1,IC2\n              IF(IC.EQ.IC1) THEN\n                dx = dx2\n\t      ELSE\n                dx = dx1\n              ENDIF\n                FRACT = dx*dy*dz/VOL \n                XR0 = XR0 + FRACT*XRSTAR(IC,JRH,KT,1)\n                XJ1 = XJ1 + FRACT*XJTIMN(IC,JRH,KT,1,1,1)\n                XJ2 = XJ2 + FRACT*XJTIMN(IC,JRH,KT,1,2,1)\n            ENDDO\n\t  ENDDO\n\tENDDO\n!\n! Log10J -->J\n        XJ1 = 10.**XJ1\n        XJ2 = 10.**XJ2\n! Inetrpolate to get J at inputed S\n        X1 = S(1)\n        Y1 = XJ1\n        X2 = S(2)\n        Y2 = XJ2\n        IF(Y1.GT.Y2) THEN\n          YJ = Y1*(Y2/Y1)**((X1-V)/(X1-X2))\n        ELSE\n          YJ=Y2\n        ENDIF\n        XJBH = YJ\n        RBH = XR0\n!\n 30    FORMAT(I3, I3, I3, I3, I3, 10(1PE10.3))\n 40    FORMAT(20(1PE10.3))\n\n       END SUBROUTINE YUJTIMN1\n!------------------------------------------------------------------------------\n\n! *****************************************************************************\n! IMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIM\n! *****************************************************************************\n\n        SUBROUTINE READJTIMN(DATA_DIR_1x1a)\n!     \n!       WRITTEN by Fangqun Yu, SUNY-Albany, 2006 (Revised, 8/2008)\n!\n! Read in the integrated IMN and KBHN lookup tables.\n! IMN lookup table references: \n! 1. Yu, F., Ion-mediated nucleation in the atmosphere: Key controlling \n!      parameters, implications, and look-up table, J. Geophy. Res., 115, \n!      D03206, doi:10.1029/2009JD012630, 2010.\n!\n! KBHN lookup table reference:\n! 2. Yu, F.,Updated H2SO4-H2O binary homogeneous nucleation rate look-up tables, \n!      J. Geophy. Res.,113, D24201, doi:10.1029/2008JD010527, 2008.\n!\n        CHARACTER(LEN=255)   :: DATA_DIR_1x1a\n        INTEGER :: IC, IRH, IT, IQ, IS ,IB\n        REAL*8  :: C11,Q11,S11\n\n!       CHARACTER*2 YPATH\n        CHARACTER*999 YPATH\n\n        DATA_DIR_1x1= DATA_DIR_1x1a\n        YPATH = TRIM(DATA_DIR_1x1)//'APM_data_201906/TIMN_TROP201706/'\n!        YPATH = './'\n        WRITE(6,*)\"Read 6-D IMN look-up tables @ \", TRIM(YPATH)\n\n        open(31,file=TRIM(YPATH)//'TIMN_J6D.txt',form='formatted')\n        open(33,file=TRIM(YPATH)//'TIMN_Rstar4D.txt',form='formatted')\n\n        open(41,file=TRIM(YPATH)//'TIMN_1H2SO4.txt',form='formatted')\n        open(42,file=TRIM(YPATH)//'TIMN_2RH.txt',form='formatted')\n        open(43,file=TRIM(YPATH)//'TIMN_3T.txt',form='formatted')\n        open(44,file=TRIM(YPATH)//'TIMN_4Q.txt',form='formatted')\n        open(45,file=TRIM(YPATH)//'TIMN_5S.txt',form='formatted')\n        open(46,file=TRIM(YPATH)//'TIMN_6B.txt',form='formatted')\n!\n        READ(41,100)(C(IC),IC=1,MC)\n!        WRITE(6,*)\"[H2SO4](IC), IC=1, \", MC, \":\"\n!        WRITE(6,100)(C(IC),IC=1,MC)\n!\n        READ(42,100)(RH(IRH),IRH=1,MRH)\n!        WRITE(6,*)\"RH(IRH), IRH=1, \", MRH, \":\"\n!        WRITE(6,100)(RH(IRH),IRH=1,MRH)\n!\n        READ(43,100)(T(IT),IT=1,MT)\n!        WRITE(6,*)\"T(IT), IT=1, \", MT, \":\"\n!        WRITE(6,100)(T(IT),IT=1,MT)\n!\n        READ(44,100)(Q(IQ),IQ=1,MQ)\n!        WRITE(6,*)\"Q(I), I=1, \", MQ, \":\"\n!        WRITE(6,100)(Q(IQ),IQ=1,MQ)\n!\n        READ(45,100)(S(IS),IS=1,MS)\n!        WRITE(6,*)\"S(IS), IS=1, \", MS, \":\"\n!        WRITE(6,100)(S(IS),IS=1,MS)\n!\n        READ(46,100)(B(IB),IB=1,MB)\n\n! Use the formula to calculate C and Q to get values with more digits, otherwise\n! may cause problem when input C and Q are very clsoe to C(IC),Q(IQ) as\n! IC and IQ are decided with formula \n!\n        C(1) = 5.0E5\n        C(MC) = 5.0E9\n        DO IC = 2, MC-2\n           C11 = C(IC)                                                          \n           C(IC) = C(IC-1)*10.**(0.1)\n\n           IF(abs(1.-C11/C(IC)).GT.0.02) THEN                                  \n              write(6,*)\"need check JTIMN look-up table inputs\"                  \n              stop                                                              \n           ENDIF                                                                \n        ENDDO\n\n        DO IQ = 1, MQ\n           Q11 = Q(IQ)                                                          \n           IF(IQ.EQ.1) THEN\n              Q(1) =1.E-30\n           ELSEIF(IQ.EQ.MQ) THEN\n              Q(MQ) =100.\n           ELSE\n              Q(IQ) = 2.0*1.5**float(IQ-2)\n           ENDIF\n           IF(abs(1.-Q11/Q(IQ)).GT.0.02) THEN\n              write(6,*)\"need check JTIMN look-up table inputs\"\n              stop\n           ENDIF\n        ENDDO\n\n!        DO IS = 1, MS\n!           S11 = S(IS)                                                          \n!           IF(IS.EQ.1) THEN\n!              S(1) =1.0\n!           ELSE\n!              S(IS) = 10.*100.**(0.1*float(IS-2))\n!           ENDIF\n!           IF(abs(1.-S11/S(IS)).GT.0.02) THEN\n!              write(6,*)\"need check JTIMN look-up table inputs\"\n!              stop\n!           ENDIF\n!        ENDDO\n\n!\n! READ in formatted 6-D Table\n! Due to high sensitivity of J to key parameters, use logJ to interpolate\n!\n        DO IS =1, MS\n         DO IT = 1,MT\n         DO IRH = 1,MRH\n         DO IQ =1, MQ\n         DO IB =1, MB \n          READ(31,201)(XJTIMN(IC,IRH,IT,IQ,IS,IB),IC = 1,MC)\n          DO IC=1, MC\n           XJTIMN(IC,IRH,IT,IQ,IS,IB)=LOG10(XJTIMN(IC,IRH,IT,IQ,IS,IB))\n          ENDDO\n         ENDDO\n         ENDDO\n         ENDDO\n         ENDDO\n        ENDDO\n! Critical cluster properties depend on T, RH, [H2SO4], NH3 only\n        DO IT = 1,MT\n         DO IRH = 1, MRH\n         DO IB =1, MB \n           READ(33,203)(XRSTAR(IC,IRH,IT,IB),IC=1,MC)\n         ENDDO  ! B\n         ENDDO  ! RH\n        ENDDO   !T\n\n        CLOSE(31)\n        CLOSE(33)\n        CLOSE(41)\n        CLOSE(42)\n        CLOSE(43)\n        CLOSE(44)\n        CLOSE(45)\n        CLOSE(46)\n!\n 100    FORMAT(100(1PE10.3))\n 200    FORMAT(100(1PE9.2))\n 201    FORMAT(100(1PE9.2))\n 202    FORMAT(100F5.1)\n 203    FORMAT(100F5.2)\n 204    FORMAT(100F6.3)\n\n      END SUBROUTINE READJTIMN\n! *****************************************************************************\n! IMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIMNIM\n! *****************************************************************************\n!\n!------------------------------------------------------------------------------\n\n      ! End of module\n      END MODULE APM_TIMN_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_albd_mod.F",
    "content": "#ifdef APM\n!************************************************************************\n! This is the module to read surface albedo from MODIS satellite data\n! There are 7 spectral bands, i.e. \n! band 1: 620-670 nm\n!      2: 841-876 nm\n!      3: 459-479 nm\n!      4: 545-565 nm\n!      5: 1230-1250 nm\n!      6: 1628-1652 nm\n!      7: 2105-2155 nm\n! Written by\n! Xiaoyan Ma \n! SUNY-Albany\n! 05/2011\n!************************************************************************\n      MODULE APM_ALB_MOD\n\n      implicit none\n\n      ! Make everything PRIVATE ...\n      PRIVATE\n\n      ! ... except these variables ...\n      PUBLIC :: APM_ALB\n\n\n      !=================================================================\n      ! MODULE VARIABLES\n      !=================================================================\n\n       contains\n\n!************************************************************************\n\n       SUBROUTINE APM_ALB(DAY_OF_YR,KYEAR,II,JJ,NBND,ALBD)\n!\n! !USES:\n!\n      USE APM_INIT_MOD,  ONLY : DATA_DIR_1x1\n      IMPLICIT NONE\n\n      ! Parameters\n\n      INTEGER, INTENT(IN)    :: DAY_OF_YR   ! day of year\n      INTEGER, INTENT(IN)    :: KYEAR       ! year\n      INTEGER, INTENT(IN)    :: II,JJ\n      INTEGER, INTENT(IN)    :: NBND \n\n!      INTEGER, PARAMETER   :: NBND=7  ! spectral bands from MODIS\n!      INTEGER, PARAMETER   :: IM=72 \n!      INTEGER, PARAMETER   :: JM=46 \n\n      REAL               :: ALBD(II,JJ,NBND)\n\n      CHARACTER(LEN=4)   :: NYEAR \n      CHARACTER(LEN=3)   :: NDAY\n      CHARACTER(LEN=255) :: FILENAME, YPATH\n      INTEGER   :: I, J, IB\n\n      !=================================================================\n      ! Read MODIS data from disk\n      !=================================================================\n\n      WRITE(NDAY,110) DAY_OF_YR\n110   format(i3) \n      WRITE(NYEAR,120) KYEAR \n120   format(i4)\n!\n!Yu+ put MODIS_ALB under APM_data for now\n!Ma+ add flexiblity for different year\n      YPATH = TRIM(DATA_DIR_1x1)//'/APM_data_201906/MODIS_ALB/'//\n     &        NYEAR//'/'\n      print*,'YPATH',TRIM(YPATH)\n      ! Now prefix the data directory\n      IF(II.EQ.72.and.JJ.EQ.46)THEN\n         FILENAME = 'modis_surface_albedo_4x5_'//NYEAR//NDAY\n         if(filename(30:30).eq.' ') filename(30:30) = '0'\n         if(filename(31:31).eq.' ') filename(31:31) = '0'\n      ELSEIF(II.EQ.144.and.JJ.EQ.91)THEN\n         FILENAME = 'modis_surface_albedo_2x2.5_'//NYEAR//NDAY\n         if(filename(32:32).eq.' ') filename(32:32) = '0'\n         if(filename(33:33).eq.' ') filename(33:33) = '0'\n      ELSE\n         WRITE(6,*) \"APM_ALBD_mod.f: Need to check\"\n         STOP\n      ENDIF\n\n!      if(filename(29:29).eq.' ') filename(29:29) = '0'\n!      if(filename(30:30).eq.' ') filename(30:30) = '0'\n      print*,'FILENAME',NYEAR,NDAY,FILENAME\n\n      !-----------------------------\n      ! MODIS surface albedo \n      !-----------------------------\n\n      ! Read data\n       open(10,file=TRIM(YPATH)//FILENAME, status='old')\n       do IB = 1, NBND\n       do I = 1, II   \n       read(10,100) (ALBD(I,J,IB),J=1,JJ)\nc       print*,'ALBD_MOD',IB,I\nc       write(*,100) (ALBD(I,J,IB),J=1,JJ)\n100     format(10f10.3)\n       enddo\n       enddo\n\n       close(10)\n\n      END SUBROUTINE APM_ALB\n\n! *****************************************************************************\n      END MODULE APM_ALB_MOD\n!----------------------------------------------------------------------------------\n#endif\n"
  },
  {
    "path": "APM/apm_coag_mod.F90",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: apm_coag_mod\n!\n! !DESCRIPTION: Module APM\\_COAG\\_MOD contains variables and routines for\n!  coagulation calculation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      MODULE APM_COAG_MOD\n!\n! !USES:\n!\n      IMPLICIT NONE\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n      PUBLIC :: APM_COAG\n      PUBLIC :: APM_COAGSCAV\n      PUBLIC :: READCK6DTABLE\n      PUBLIC :: YCOAGKERN_TABLE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n\n! !REVISION HISTORY:\n!  28 Nov 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! MR1  : Number of points in 1st particle radius dimension\n      ! MD1  : Number of points in 1st particle density dimension\n      ! MR2  : Number of points in 2nd particle radius dimension\n      ! MD2  : Number of points in 2nd particle density dimension\n      ! MT   : Number of points in temperature dimension\n      ! MP   : Number of points in pressure dimension\n      INTEGER, PRIVATE, PARAMETER :: MR1=128\n!      INTEGER, PRIVATE, PARAMETER :: MD1=5\n      INTEGER, PRIVATE, PARAMETER :: MD1=3\n      INTEGER, PRIVATE, PARAMETER :: MR2=128\n!      INTEGER, PRIVATE, PARAMETER :: MD2=5\n      INTEGER, PRIVATE, PARAMETER :: MD2=3\n      INTEGER, PRIVATE, PARAMETER :: MT =8\n      INTEGER, PRIVATE, PARAMETER :: MP =21\n!\n! !LOCAL VARIABLES:\n!\n      ! R1   : Values at points in 1st particle radius dimension\n      ! D1   : Values at points in 1st particle density dimension\n      ! R2   : Values at points in 2nd particle radius dimension\n      ! D2   : Values at points in 2nd particle density dimension\n      ! T    : Values at points in temperature dimension\n      ! P    : Values at points in pressure dimension\n      ! XCK  : Coagulation kernel (cm3/s) AT ALL POINTS IN 6-D SPACE\n      REAL*8,  PRIVATE            :: R1(MR1)\n      REAL*8,  PRIVATE            :: DEN1(MD1)\n      REAL*8,  PRIVATE            :: R2(MR2)\n      REAL*8,  PRIVATE            :: DEN2(MD2)\n      REAL*8,  PRIVATE            :: T(MT)\n      REAL*8,  PRIVATE            :: P(MP)\n      REAL*8,  PRIVATE            :: XCK8(MP)\n      REAL,    PRIVATE            :: XCK(MR1,MD1,MR2,MD2,MT,MP)\n\n      CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_coag\n!\n! !DESCRIPTION: Coagulation solver (by Fangqun Yu, UAlbany, 2006, updated 2008)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_COAG( ITYPE, NMAX, YT, PMB, DT, R, DEN, XN, XVA )\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY : VDRY\n      USE APM_INIT_MOD, ONLY : VSALT\n      USE APM_INIT_MOD, ONLY : VBCOC\n      USE APM_INIT_MOD, ONLY : COAGPAR\n      USE APM_INIT_MOD, ONLY : COAGPARSS\n      USE APM_INIT_MOD, ONLY : COAGPBCOC\n!\n! !INPUT PARAMETERS:\n!\n      ! ITYPE = 1: Coagulation among sulfate particles\n      !       = 2: Coagulation among sea salt particles\n      INTEGER :: ITYPE\n\n      ! Number of bins resolved for the specified type of particles\n      INTEGER :: NMAX\n\n      ! Temperature (K)\n      REAL*8  :: YT\n\n      ! Pressure (mb)\n      REAL*8  :: PMB\n\n      ! Time step (s)\n      REAL*8  :: DT\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n      ! Particle wet/total radius (cm)\n      REAL*8  :: R(NMAX)\n\n      ! Density of particles (g/cm3)\n      REAL*8  :: DEN\n\n      ! Number size distribution (#/cm3)\n      REAL*8  :: XN(NMAX)\n\n      ! Volume distribution of all components (cm3/cm3)\n      REAL*8  :: XVA(NMAX)\n!\n! !REMARKS:\n!  COAGPAR = (Partition Fractions)\n!  BEITA   = Coagulation Kernels\n!\n! !REVISION HISTORY:\n!  28 Nov 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      INTEGER, PARAMETER :: NC = 1\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: N, IC, I, J, K\n      REAL*8  :: XV(NMAX,NC)\n      REAL*8  :: XN0(NMAX),XV0(NMAX,NC)\n      REAL*8  :: BEITA(NMAX,NMAX),YCOAGPAR(NMAX,NMAX,NMAX),VDRY1(NMAX)\n      REAL*8  :: YLOSS, YPRODVA(NC),TOTC\n      REAL*8  :: R1,R2,YCK1\n!\n      IF(ITYPE.EQ.1) THEN                  ! sulfate\n         YCOAGPAR(:,:,:) = COAGPAR(:,:,:)\n         VDRY1(:) = VDRY\n      ELSEIF(ITYPE.EQ.2) THEN   ! seasalt\n         YCOAGPAR(:,:,:) = COAGPARSS(:,:,:)\n         VDRY1(:) = VSALT\n      ELSEIF(ITYPE.EQ.4) THEN   ! BC\n         YCOAGPAR(:,:,:) = COAGPBCOC(:,:,:)\n         VDRY1(:) = VBCOC\n      ELSEIF(ITYPE.EQ.5) THEN   ! OC\n         YCOAGPAR(:,:,:) = COAGPBCOC(:,:,:)\n         VDRY1(:) = VBCOC\n      ELSE\n         WRITE(6,*)\"STOP AT COAG, check ITYPE\"\n         STOP\n      ENDIF\n\n! Find coagulation Kernels\n      DO I = 1, NMAX\n         R1 = R(I)\n         DO J = I, NMAX\n            R2 = R(J)\n            CALL YCOAGKERN_TABLE(R1,DEN,R2,DEN,YT,PMB,YCK1) !Use lookup table to find YCK\n\n            BEITA(I,J) = YCK1\n            BEITA(J,I) = BEITA(I,J)\n         ENDDO\n      ENDDO\n\n      DO N=1,NMAX\n         XV(N,1) = XVA(N)       ! to be modified if NC>1\n      ENDDO\n!\n      DO N = 1, NMAX\n         XN0(N) = XN(N)\n         DO IC=1,NC\n            XV0(N,IC) = XV(N,IC)\n         ENDDO\n      ENDDO\n!\n      DO i = 1, NMAX\n         YLOSS = 0.\n         DO j = 1, NMAX\n            YLOSS=YLOSS + XN0(j)*BEITA(j,i)*(1.-YCOAGPAR(i,j,i))\n         ENDDO\n\n         DO IC=1,NC\n            YPRODVA(IC) = 0.\n            DO j = 1, i\n               DO k = 1, i-1\n                  IF(YCOAGPAR(j,k,i).GT.0.) THEN\n                     YPRODVA(IC)=YPRODVA(IC) + BEITA(j,k)*XN0(j) &\n                                             *XV(k,IC)*YCOAGPAR(j,k,i)\n                  ENDIF\n               ENDDO\n            ENDDO\n\n            XV(i,IC)=(XV0(i,IC)+YPRODVA(IC)*DT)/(1.+YLOSS*DT)\n         ENDDO\n      ENDDO\n\n!\n      DO N=1,NMAX\n!         XVA(N) = XV(N,1) ! to be modified if NC>1\n         XVA(N) = MAX(XV(N,1),1.d-40) ! to be modified if NC>1\n      ENDDO\n!\n! Recalculate XN from XV\n!\n      DO I=1,NMAX\n         TOTC = 0.\n         DO IC = 1, NC\n            TOTC = TOTC + XV(I,IC)\n         ENDDO\n         XN(I) = TOTC/(1.E6*VDRY1(I)) ! TOTC in cm3/cm3, VDRY in m3,XN in #/cm3\n      ENDDO\n!\n!Mass cons. check\n!\n!      DO IC=1,NC\n!         ZPRODVA(IC)=0.\n!         ZTOTVA(IC)=0.\n!      ENDDO\n!      DO i = 1, NMAX\n!         DO IC=1,NC\n!            ZTOTVA(IC)=ZTOTVA(IC)+XV(i,IC)\n!            ZPRODVA(IC)=ZPRODVA(IC)+(XV(i,IC)-XV0(i,IC))\n!         ENDDO\n!      ENDDO\n!\n!      DO IC=1,NC\n!         write(95+IC,100)IC,ZTOTVA(IC),ZPRODVA(IC)\n!      ENDDO\n! 100  FORMAT(I3,5(1PE12.4))\n 110  FORMAT(100(1E9.2))\n!\n      END SUBROUTINE APM_COAG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_coagscav\n!\n! !DESCRIPTION: Subroutine to calculate the scavenging of secondary\n!  particles by primary aerosols\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_COAGSCAV( TK,         PMB,    DT,       DENWET, &\n                               RWETCM,     YCS,    RLOSULF,  DENSALTWET, &\n                               RSALTWETCM, XNSALT, & \n                               DENBCWET,RBCWET,XNBC, &\n                               DENOCWET,ROCWET,XNOC, &\n                               DENAER,     XNDST,  XVA,      MBCS, &\n                               MOCS,       MDUSTS, MSALTS,   MBCLV, &\n                               MOCLV,      MDSTLV, MSALTLV ) !inout\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY : DENSULF\n      USE APM_INIT_MOD, ONLY : RDST\n      USE APM_INIT_MOD, ONLY : NSO4\n      USE APM_INIT_MOD, ONLY : NSEA\n      USE APM_INIT_MOD, ONLY : NDSTB\n      USE APM_INIT_MOD, ONLY : NTYP\n      USE APM_INIT_MOD, ONLY : NBCOC\n!\n! !INPUT PARAMETERS:\n!\n      REAL*8  :: TK\n      REAL*8  :: PMB\n      REAL*8  :: DT\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n      REAL*8  :: DENWET\n      REAL*8  :: RWETCM(NSO4)\n      REAL*8  :: YCS(NTYP)\n      REAL*8  :: RLOSULF\n      REAL*8  :: DENSALTWET\n      REAL*8  :: RSALTWETCM(NSEA)\n      REAL*8  :: XNSALT(NSEA)\n\n      REAL*8  :: DENBCWET\n      REAL*8  :: RBCWET(NBCOC)\n      REAL*8  :: XNBC(NBCOC)\n      REAL*8  :: DENOCWET\n      REAL*8  :: ROCWET(NBCOC)\n      REAL*8  :: XNOC(NBCOC)\n\n      REAL*8  :: DENAER(NTYP)\n      REAL*8  :: XNDST(NDSTB)\n      REAL*8  :: XVA(NSO4)\n      REAL*8  :: MBCS         ! mass of sulfate coated on BC\n      REAL*8  :: MOCS         ! mass of sulfate coated on OC\n      REAL*8  :: MDUSTS       ! mass of sulfate coated on dust\n      REAL*8  :: MSALTS       ! mass of sulfate coated on sea salt\n      REAL*8  :: MSULFLV      ! mass of LV-SOA coated on primary particles\n      REAL*8  :: MBCLV        ! mass of LV-SOA coated on primary particles\n      REAL*8  :: MOCLV        ! mass of LV-SOA coated on primary particles\n      REAL*8  :: MDSTLV       ! mass of LV-SOA coated on primary particles\n      REAL*8  :: MSALTLV      ! mass of LV-SOA coated on primary particles\n!\n! !REVISION HISTORY:\n!  28 Nov 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: NI,NA,NJ\n      REAL*8  :: YR1,YR2,YDEN2,YCK1\n      REAL*8  :: AERLOSS(NSO4)\n      REAL*8  :: AERLOSSBC(NSO4), AERLOSSOC(NSO4)\n      REAL*8  :: AERLOSSDST(NSO4), AERLOSSSALT(NSO4)\n      REAL*8  :: TOTV,TOTVLOSS,XDV,LOSSRATIO\n      REAL*8  :: TOTVLOSSBC, TOTVLOSSOC, TOTVLOSSDST, TOTVLOSSSALT\n\n      DO NI=1,NSO4\n         AERLOSS(NI) =1.E-20\n         AERLOSSBC(NI) =1.E-30\n         AERLOSSOC(NI) =1.E-30\n         AERLOSSDST(NI) =1.E-30\n         AERLOSSSALT(NI) =1.E-30\n      ENDDO\n      DO NA = 2,NTYP            ! first type is secondary particles\n       IF(YCS(NA).GT.1.E-5) THEN ! only when primary particles is substantial\n        IF(NA.EQ.2) THEN    ! sea salt\n         YDEN2 = DENSALTWET\n          DO NJ=1,NSEA\n            YR2 = RSALTWETCM(NJ)\n             DO NI=1,NSO4\n               YR1 = RWETCM(NI)\n                IF(YR1.LT.YR2) THEN ! only allow scavenging of sulfate particles by bigger particles\n                 CALL YCOAGKERN_TABLE(YR1,DENWET,YR2,YDEN2,TK,PMB,YCK1) !Use lookup table to find YCK\n                 AERLOSSSALT(NI) = AERLOSSSALT(NI) + YCK1*XNSALT(NJ) !s-1\n               ENDIF\n             ENDDO\n            ENDDO\n            DO NI=1,NSO4\n               AERLOSS(NI) = AERLOSS(NI) + AERLOSSSALT(NI)\n            ENDDO\n           ELSEIF(NA.EQ.3) THEN !dust\n            YDEN2 = DENAER(NA)  !for now, didn't consider effect of coating (typically small)\n            DO NJ=1,NDSTB\n             YR2 = RDST(NJ)*100.  ! RDST in m, YR2 in cm\n             DO NI=1,NSO4\n               YR1 = RWETCM(NI)\n               IF(YR1.LT.YR2) THEN ! only allow scavenging of sulfate particles by bigger particles\n                CALL YCOAGKERN_TABLE(YR1,DENWET,YR2,YDEN2,TK,PMB,YCK1) !Use lookup table to find YCK\n                AERLOSSDST(NI) = AERLOSSDST(NI) + YCK1*XNDST(NJ)    !s-1\n               ENDIF\n             ENDDO\n            ENDDO\n            DO NI=1,NSO4\n               AERLOSS(NI) = AERLOSS(NI) + AERLOSSDST(NI)\n            ENDDO\n          ELSEIF(NA.EQ.4) THEN !BC\n            YDEN2 = DENBCWET\n            DO NJ=1,NBCOC\n             YR2 = RBCWET(NJ)\n             DO NI=1,NSO4\n              YR1 = RWETCM(NI)\n              IF(YR1.LT.YR2) THEN ! only allow scavenging of sulfate particles by bigger BC particles\n               CALL YCOAGKERN_TABLE(YR1,DENWET,YR2,YDEN2,TK,PMB,YCK1)\n               AERLOSSBC(NI) = AERLOSSBC(NI) + YCK1*XNBC(NJ) !s-1\n              ENDIF\n             ENDDO\n            ENDDO\n            DO NI=1,NSO4\n               AERLOSS(NI) = AERLOSS(NI) + AERLOSSBC(NI)\n            ENDDO\n          ELSEIF(NA.EQ.5) THEN !OC\n            YDEN2 = DENOCWET\n            DO NJ=1,NBCOC\n             YR2 = ROCWET(NJ)\n             DO NI=1,NSO4\n              YR1 = RWETCM(NI)\n              IF(YR1.LT.YR2) THEN ! only allow scavenging of sulfate particles by bigger OC particles\n               CALL YCOAGKERN_TABLE(YR1,DENWET,YR2,YDEN2,TK,PMB,YCK1)\n               AERLOSSOC(NI) = AERLOSSOC(NI) + YCK1*XNOC(NJ) !s-1\n              ENDIF\n             ENDDO\n            ENDDO\n            DO NI=1,NSO4\n               AERLOSS(NI) = AERLOSS(NI) + AERLOSSOC(NI)\n            ENDDO\n          ENDIF\n         ENDIF\n      ENDDO\n      TOTV = 1.E-50\n      TOTVLOSS = 1.d-50\n      TOTVLOSSBC = 1.d-50\n      TOTVLOSSOC = 1.d-50\n      TOTVLOSSDST = 1.d-50\n      TOTVLOSSSALT =  1.d-50\n\n      DO NI=1,NSO4\n         TOTV = TOTV + XVA(NI)\n         XDV = XVA(NI)*(1.-exp(-AERLOSS(NI)*DT))\n         XVA(NI) = XVA(NI) - XDV\n         IF(XVA(NI).LT.1.d-40)XVA(NI)=1.d-40\n         TOTVLOSS = TOTVLOSS + XDV\n\n         TOTVLOSSBC = TOTVLOSSBC + XDV*AERLOSSBC(NI)/AERLOSS(NI)\n         TOTVLOSSOC = TOTVLOSSOC + XDV*AERLOSSOC(NI)/AERLOSS(NI)\n         TOTVLOSSDST = TOTVLOSSDST + XDV*AERLOSSDST(NI)/AERLOSS(NI)\n         TOTVLOSSSALT = TOTVLOSSSALT + XDV*AERLOSSSALT(NI)/AERLOSS(NI)\n\n      ENDDO\n\n      LOSSRATIO = (TOTVLOSSBC + TOTVLOSSOC)/TOTVLOSS\n\n      ! SULFATE and LVSOA MASS scavenged by BC and OC,\n      ! RLOSULF is ratio of LVSOA to (LVSOA+SULF)\n\n      ! TOTVLOSSBC in cm3/cm3  MBCS in kg/m3\n      MBCS = MBCS + (1.-RLOSULF)*TOTVLOSSBC * DENSULF*1.d3\n\n      ! MBCLV in kg/m3\n      MBCLV = MBCLV + RLOSULF*TOTVLOSSBC * DENSULF*1.d3\n\n      ! TOTVLOSSOC in cm3/cm3  MOCS in kg/m3\n      MOCS = MOCS + (1.-RLOSULF)*TOTVLOSSOC * DENSULF*1.d3\n\n      ! TOTVLOSSOC in cm3/cm3  MOCLV in kg/m3\n      MOCLV = MOCLV + RLOSULF*TOTVLOSSOC * DENSULF*1.d3\n\n      ! TOTVLOSSDUST in cm3/cm3  MDUSTS in kg/m3\n      MDUSTS = MDUSTS + (1.-RLOSULF)*TOTVLOSSDST * DENSULF*1.d3\n\n      ! TOTVLOSSDUST in cm3/cm3  MDSTLV in kg/m3\n      MDSTLV = MDSTLV + RLOSULF*TOTVLOSSDST * DENSULF*1.d3\n\n      ! TOTVLOSSSALT in cm3/cm3  MSALTS in kg/m3\n      MSALTS = MSALTS + (1.-RLOSULF)*TOTVLOSSSALT * DENSULF*1.d3\n\n      ! TOTVLOSSSALT in cm3/cm3  MSALTLV in kg/m3\n      MSALTLV = MSALTLV + RLOSULF*TOTVLOSSSALT * DENSULF*1.d3\n\n!      IF(MDSTLV.GT.1.d-8.or.MSALTLV.GT.1.d-8) THEN\n      IF(MDSTLV.GT.1.d-7.or.MSALTLV.GT.1.d-7) THEN\n         WRITE(6,*)\"11101\",RLOSULF,TOTVLOSSDST, &\n              TOTVLOSSSALT,MDSTLV,MSALTLV\n      ENDIF\n\n      END SUBROUTINE APM_COAGSCAV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ycoagkern_table\n!\n! !DESCRIPTION: This subroutine is to calculate coagulation kernels of two\n!  particles from lookup tables (No interpolation is needed because the table\n!  has high enough resolution in each dimension)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE YCOAGKERN_TABLE( X, Y, Z, U, V, W, YCK )\n!\n! !INPUT PARAMETERS:\n!\n      REAL*8  :: X      ! Radius of first particle in cm  (6.0E-8 - 1.0E-3)\n      REAL*8  :: Y      ! Density of first particle in g/cm3 (1.0-2.8)\n      REAL*8  :: Z      ! Radius of second particle in cm  (6.0E-8 - 1.0E-3)\n      REAL*8  :: U      ! Density of second particle in g/cm3 (1.0-2.8)\n      REAL*8  :: V      ! T (in K) (180-320)\n      REAL*8  :: W      ! P (in mb) (10-1020)\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL*8  :: YCK    ! Coagulation kernel (cm3/s)\n!\n! !REMARKS:\n!  WRITTEN by Fangqun Yu, SUNY-Albany, 2008\n!\n! !REVISION HISTORY:\n!  28 Aug 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      REAL*8, PARAMETER :: DRN = 30.   ! bin per decade in R space\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER           :: IX1, IY1, IZ1, IU1, IV1, IW1\n\n!\n! The lookup tables should cover most of possible values in the atmosphere.\n!\n      ! DRN points per decade of R space\n      IX1 =MAX0(INT(1.5+DRN*DLOG10(X/R1(1))),1)\n      IX1 = MIN0(IX1,MR1)\n!     WRITE(6,100)IX1,X,R1(IX1-1),R1(IX1),R1(IX1+1)\n\n!      IY1 = MAX0(INT(0.5+(Y-DEN1(1))/0.4)+1,1)\n      IY1 = MAX0(INT(0.5+(Y-DEN1(1))/0.8)+1,1)\n      IY1 = MIN0(IY1,MD1)\n!     WRITE(6,100)IY1,Y,DEN1(IY1-1),DEN1(IY1),DEN1(IY1+1)\n\n      ! DRN points per decade of R space\n      IZ1 =MAX0(INT(1.5+DRN*DLOG10(Z/R2(1))),1)\n      IZ1 = MIN0(IZ1,MR2)\n!     WRITE(6,100)IZ1,Z,R2(IZ1-1),R2(IZ1),R2(IZ1+1)\n\n!      IU1 = MAX0(INT(0.5+(U-DEN2(1))/0.4)+1,1)\n      IU1 = MAX0(INT(0.5+(U-DEN2(1))/0.8)+1,1)\n      IU1 = MIN0(IU1,MD2)\n!     WRITE(6,100)IU1,U,DEN2(IU1-1),DEN2(IU1),DEN2(IU1+1)\n\n      IV1 = MAX0(INT(0.5+(V-T(1))/20.0)+1,1)\n      IV1 = MIN0(IV1,MT)\n!     WRITE(6,100)IV1,V,T(IV1-1),T(IV1),T(IV1+1)\n\n      ! 10 per decade of P space\n      IW1 = MAX0(INT(1.5+10.*DLOG10(W/P(1))),1)\n      IW1 = MIN0(IW1,MP)\n!     WRITE(6,100)IW1,W,P(IW1-1),P(IW1),P(IW1+1)\n\n      YCK = DBLE(XCK(IX1,IY1,IZ1,IU1,IV1,IW1))\n\n 100  FORMAT(I4,10(1PE10.3))\n\n      END SUBROUTINE YCOAGKERN_TABLE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: readck6dtable\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE READCK6DTABLE\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY : DATA_DIR_1x1\n!\n! !REMARKS:\n!  WRITTEN by Fangqun Yu, SUNY-Albany, 2008\n!\n!\n! !REVISION HISTORY:\n!  28 Aug 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: IR1,ID1,IR2,ID2,IT,IP\n      REAL*8  :: DRN, YY\n\n      CHARACTER*999 YPATH\n      YPATH = TRIM(DATA_DIR_1x1)//'/APM_data_201906/YCK140609/'\n      WRITE(6,*)\"Read coagulation kernel look-up tables\"\n\n      open(41,file=TRIM(YPATH)//'Yu_CK_1R1.txt',form='formatted')\n      open(42,file=TRIM(YPATH)//'Yu_CK_2D1.txt',form='formatted')\n      open(43,file=TRIM(YPATH)//'Yu_CK_3R2.txt',form='formatted')\n      open(44,file=TRIM(YPATH)//'Yu_CK_4D2.txt',form='formatted')\n      open(45,file=TRIM(YPATH)//'Yu_CK_5T.txt',form='formatted')\n      open(46,file=TRIM(YPATH)//'Yu_CK_6P.txt',form='formatted')\n      open(47,file=TRIM(YPATH)//'Yu_CK_7CK.txt',form='formatted')\n\n!\n      READ(41,100)(R1(IR1),IR1=1,MR1)\n      WRITE(6,*)\"R1(I), I=1, \", MR1, \":\"\n      WRITE(6,100)(R1(IR1),IR1=1,MR1)\n!\n      READ(42,100)(DEN1(ID1),ID1=1,MD1)\n      WRITE(6,*)\"DEN1(I), I=1, \", MD1, \":\"\n      WRITE(6,100)(DEN1(ID1),ID1=1,MD1)\n!\n      READ(43,100)(R2(IR2),IR2=1,MR2)\n      WRITE(6,*)\"R2(I), I=1, \", MR2, \":\"\n      WRITE(6,100)(R2(IR2),IR2=1,MR2)\n!\n      READ(44,100)(DEN2(ID2),ID2=1,MD2)\n      WRITE(6,*)\"DEN2(I), I=1, \", MD2, \":\"\n      WRITE(6,100)(DEN2(ID2),ID2=1,MD2)\n!\n      READ(45,100)(T(IT),IT=1,MT)\n      WRITE(6,*)\"T(I), I=1, \", MT, \":\"\n      WRITE(6,100)(T(IT),IT=1,MT)\n!\n      READ(46,100)(P(IP),IP=1,MP)\n      WRITE(6,*)\"P(I), I=1, \", MP, \":\"\n      WRITE(6,100)(P(IP),IP=1,MP)\n!\n! Use the formula to calculate parameters to get values with more digits,\n! otherwise may cause problem when input values are very clsoe to the\n! parameter values as formula is used to determine the location of inputted\n! values. Also serve as a double check to make sure the consisistency in\n! parameter spaces.\n!\n      DRN = 30.\n      R1(1) = 6.0E-8            ! cm\n      DO IR1 = 2, MR1\n         YY = R1(IR1)\n         R1(IR1)=R1(1)*10.**(float(IR1-1)/DRN)\n         IF(abs(1.-YY/R1(IR1)).GT.0.02) THEN\n            write(6,*)\"need check CK look-up table R1 inputs\"\n            stop\n         ENDIF\n      ENDDO\n\n      DEN1(1) = 1.0             !g/cm3\n      DO ID1 = 2, MD1\n         YY = DEN1(ID1)\n         DEN1(ID1) = DEN1(1)+0.8*float(ID1-1)\n         IF(abs(1.-YY/DEN1(ID1)).GT.0.02) THEN\n            write(6,*)\"need check CK look-up table DEN1 inputs\"\n            stop\n         ENDIF\n      ENDDO\n\n      R2(1) = 6.0E-8            ! cm\n      DO IR2 = 2, MR2\n         YY = R2(IR2)\n         R2(IR2)=R2(1)*10.**(float(IR2-1)/DRN)\n         IF(abs(1.-YY/R2(IR2)).GT.0.02) THEN\n            write(6,*)\"need check CK look-up table R2 inputs\"\n            stop\n         ENDIF\n      ENDDO\n\n      DEN2(1) = 1.0             !g/cm3\n      DO ID2 = 2, MD2\n         YY = DEN2(ID2)\n         DEN2(ID2) = DEN2(1)+0.8*float(ID2-1)\n         IF(abs(1.-YY/DEN2(ID2)).GT.0.02) THEN\n            write(6,*)\"need check CK look-up table DEN2 inputs\"\n            stop\n         ENDIF\n      ENDDO\n\n      T(1) = 180.               !k\n      DO IT = 2, MT\n         YY = T(IT)\n         T(IT) = T(1)+20.*float(IT-1)\n         IF(abs(1.-YY/T(IT)).GT.0.02) THEN\n            write(6,*)\"need check CK look-up table T inputs\"\n            stop\n         ENDIF\n      ENDDO\n\n      P(1) = 10.                ! mb\n      DO IP = 2, MP\n         YY = P(IP)\n         P(IP) = P(1) * 10.**(0.1*float(IP-1))\n         IF(abs(1.-YY/P(IP)).GT.0.02) THEN\n            write(6,*)\"need check CK look-up table P inputs\"\n            stop\n         ENDIF\n      ENDDO\n\n!\n! Read in the 6-D Table\n!\n      DO IR1 = 1, MR1\n      DO ID1 = 1, MD1\n      DO IR2 = 1, MR2\n      DO ID2 = 1, MD2\n      DO IT  = 1, MT\n         READ(47,100)(XCK8(IP),IP=1,MP)\n         DO IP=1,MP\n            XCK(IR1,ID1,IR2,ID2,IT,IP)=REAL(XCK8(IP))\n         ENDDO\n      ENDDO\n      ENDDO\n      ENDDO\n      ENDDO\n      ENDDO\n!\n 100  FORMAT(1PE8.2,200(1PE9.2))\n\n      CLOSE(41)\n      CLOSE(42)\n      CLOSE(43)\n      CLOSE(44)\n      CLOSE(45)\n      CLOSE(46)\n      CLOSE(47)\n!\n      END SUBROUTINE READCK6DTABLE\n!EOC\n      END MODULE APM_COAG_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_grow_mod.F",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: apm_grow_mod\n!\n! !DESCRIPTION: Module APM\\_GROW\\_MOD contains variables and routines for \n!  computing size-resolved particle growth. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      MODULE APM_GROW_MOD\n\n!\n! !USES:\n!\n      IMPLICIT NONE\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!  \n      PUBLIC :: APM_GROW\n      PUBLIC :: APM_MOVEBIN\n\n! !REVISION HISTORY: \n!  23 Aug 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n      CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_grow\n!\n! !DESCRIPTION: Subroutine APM\\_GROW calculates H2SO4 condensational growth \n!  of aerosol particles\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_GROW( ICOND,    NSO4,   TK,\n     &                     PRESS,    CCOND,  PCOND,\n     &                     TCSOTHER, DTNG,   XN,\n     &                     XVA,      RWETCM, TOTCONDOTHER,\n     &                     XMCOND )\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY: DENSULF, RDRY\n      USE APM_INIT_MOD, ONLY: ONEPI,   BK,  AVG, RGAS\n!\n! !INPUT/OUTPUT PARAMETERS: \n! \n      INTEGER :: NSO4            ! Dimension variable\n      REAL*8  :: TK              ! Temperature (K)       \n      REAL*8  :: PRESS           ! Pressure (pa)\n      REAL*8  :: PCOND           ! Condensable vapor production rate (#/cm3s) \n      REAL*8  :: DTNG            ! Time detp for growth (s)\n      REAL*8  :: XN(NSO4)        ! Number conc of each bin (#/cm3)\n      REAL*8  :: XVA(NSO4)       ! Total acid volume of each bin (cm3/cm3)\n!\n! !INPUT/OUTPUT PARAMETERS: \n! \n      INTEGER :: ICOND\n      REAL*8  :: CCOND           ! Condensable vapor concentration (#/cm3)\n      REAL*8  :: TCSOTHER\n      REAL*8  :: RWETCM(NSO4)\n      REAL*8  :: TOTCONDOTHER\n      REAL*8  :: XMCOND\n!\n! !REMARKS:\n! Output:\n!   updated XMA, CCOND \n! \n! !REVISION HISTORY: \n!  17 Mar 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: N, NMAX\n      REAL*8  :: XMA(NSO4)\n      REAL*8  :: YF(NSO4),YGR(NSO4),AKELV(NSO4)\n      REAL*8  :: CSCOND,YFSUM1\n      REAL*8  :: V1COND,VCOND,TEMP0,WTGAS\n      REAL*8  :: WTAIR,DIAMAIR,RHOA,CDIFUS,CDIFUS2,DIFUSC,FREEPD\n      REAL*8  :: YY,YKN,FCORR,TEMP1,YFSUM,YEVAP\n      REAL*8  :: YEVAPV,CCOND1,CCONDA,TOTEVAP,YGRSUM,YDV,TOTCOND\n      REAL*8  :: XRCM\n      REAL*8  :: DENCOND,AKELV0,SURFT,YTEMP1\n      REAL*8  :: DVA(NSO4)\n\n      !=================================================================\n      ! APM_GROW begins here!\n      !=================================================================\n!\n      DENCOND = DENSULF\n      IF(ICOND.EQ.1) THEN       !H2SO4\n         CSCOND = 1.E4          ! no acid evap now\n         AKELV0 = CCOND/CSCOND\n         IF(AKELV0.LT.1.2) RETURN \n         AKELV =1.\n        \n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n      ELSEIF(ICOND.EQ.2) THEN  ! LV-SOG\n       SURFT = 30. !erg/cm2\n!Yu20111015       CSCOND = 3.3E6  !\n       CSCOND = 1.0E6  !\n!  RORG0 : organic activation radius (in cm)\n!       RORG0 =ALOG(CCOND/CSCOND)*DENCOND*RGAS*TK/(2.*SURFT*XMORG)\n!       AKELV0 = exp(2.*SURFT*XMCOND/(DENCOND*RGAS*TK*RORG0))\n        AKELV0 = CCOND/CSCOND\n       IF(AKELV0.LE.1.2) RETURN\n       DO N = 1, NSO4\n        XRCM = RWETCM(N)   ! RWETCM in cm\n        AKELV(N) = exp(2.*SURFT*XMCOND/(DENCOND*RGAS*TK*XRCM))\n       ENDDO\n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n \n      ELSE\n         WRITE(6,*)\"NEED to check ICOND value\"\n         STOP\n      ENDIF\n      \n      V1COND = XMCOND/(AVG*DENCOND) ! volume of one molecule (cm3)\n      \n      VCOND = SQRT(8.*RGAS*TK/(ONEPI*XMCOND)) ! cm/s\n      TEMP0 = VCOND * XMCOND/AVG *ONEPI\n\n! Cal. gas diffusion coef. and mean free path\n!\n      WTGAS = XMCOND\n      WTAIR = 28.966\n      DIAMAIR   = 4.5E-08\n      RHOA = WTAIR*PRESS*10./(RGAS*TK) ! AIR DENSITY (G CM-3)\n      CDIFUS =3.*SQRT(0.5*RGAS*WTAIR/ONEPI)/(AVG*8.*DIAMAIR**2)\n      CDIFUS2=CDIFUS * SQRT((WTGAS+WTAIR)/WTGAS)\n      DIFUSC=CDIFUS2 * SQRT(TK)/RHOA\n      FREEPD = 3.*DIFUSC/VCOND\n!\n      YF = 0.\n      YFSUM = 0.\n      YY = PCOND\n      DO N = 1, NSO4\n         XRCM = RWETCM(N)       ! RWETCM in cm\n         YKN = FREEPD/XRCM\n         FCORR = YKN/(0.75+YKN)\n         TEMP1 = TEMP0*FCORR\n         IF(AKELV(N).LT.AKELV0) THEN\n             TEMP1 = TEMP1 *(1.-AKELV(N)/AKELV0)\n         ELSE\n            TEMP1 = 0.          ! no evapor for now\n         ENDIF\n         YF(N) = TEMP1 * XN(N) *XRCM*XRCM/(DENCOND*V1COND) ! s-1\n         YFSUM = YFSUM + YF(N)\n!         YEVAP = CSCOND*AKELV*YF(N)    ! in #/cm3s\n!         YEVAPV = YEVAP*DTNG*V1COND      ! in cm3/cm3\n!         IF(YEVAPV.GT. XVA(N)) THEN\n!             YEVAP = XVA(N)/(DTNG*V1COND)\n!         ENDIF\n!         YY = YY + YEVAP\n      ENDDO\n      IF(YFSUM.EQ.0.) THEN\n         WRITE(6,100)AKELV0,(AKELV(N),N=1,NSO4,5)\n         WRITE(6,100)FCORR,(YF(N),N=1,NSO4,5)\n         STOP\n      ENDIF\n! Consider scavenging of H2SO4 vapor by aerosols other than sulfate\n      YFSUM1 = YFSUM + TCSOTHER\n      CCOND1 = YY/YFSUM1 + (CCOND - YY/YFSUM1)*exp(-YFSUM1*DTNG)\n       \n      CCONDA = 0.5 * (CCOND1 + CCOND)\n      \n      TOTEVAP = 0.\n!       YGRSUM = 0.\n!       DO N = 1, NSO4\n!          YGR(N) = YF(N)*(CCONDA - CSCOND*AKELV)\n!          IF(YGR(N).LT.0.) THEN\n!            YDV = -YGR(N)*DTNG*V1COND    !cm3\n!            IF(YDV.GT.XVA(N)) THEN\n!               TOTEVAP = TOTEVAP + XVA(N)\n!               XVA(N) = 1.E-50\n!            ELSE\n!               XVA(N) = XVA(N) - YDV\n!               TOTEVAP = TOTEVAP + YDV\n!            ENDIF\n!          ELSE\n!            YGRSUM = YGRSUM + YGR(N)\n!          ENDIF\n!       ENDDO\n!\n      TOTCOND=PCOND*DTNG+(CCOND-CCOND1)+TOTEVAP/V1COND ! #/cm3\n!  H2SO4 vapor condensing on particles other than sulfate\n      TOTCONDOTHER = TOTCOND * (1.-YFSUM/YFSUM1)\n!  H2SO4 vapor condensing on sulfate\n      TOTCOND = TOTCOND * YFSUM/YFSUM1\n\n      YGR = YF\n      YGRSUM = YFSUM\n       \n      DO N = 1, NSO4\n         DVA(N) = TOTCOND*V1COND*YGR(N)/YGRSUM\n         XVA(N)=XVA(N)+DVA(N)\n      ENDDO\n       \n       \n 100  FORMAT(20(1PE9.2))\n!\n! Update gas concentration\n      CCOND = CCOND1\n\n      END SUBROUTINE APM_GROW\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_movebin\n!\n! !DESCRIPTION: Subroutine APM\\_MOVEBIN moves particles across bins after \n!  growth.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_MOVEBIN( NSO4, XN, XVA )\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY: VDRY\n!\n! !INPUT PARAMETERS: \n!\n      INTEGER :: NSO4        ! Dimension for arrays\n!\n! !INPUT/OUTPUT PARAMETERS: \n! \n      REAL*8  :: XN(NSO4)    ! Number conc of each bin (#/cm3)\n      REAL*8  :: XVA(NSO4)   ! Total acid mass of each bin (cm3/cm3)   \n!\n! !REVISION HISTORY: \n!  17 Mar 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! Number of core component associated with particles, set to 1 now,\n      ! may increase later\n      INTEGER, PARAMETER :: NC = 1\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: N, NMAX, IC, J, J0, J1, JS\n\n      REAL*8  :: YN(NSO4),YVA(NSO4,NC),YC(NSO4,NC)\n      REAL*8  :: XVT, VDA, YFR, YFV\n\n      NMAX = NSO4\n!\n!  Move the partilces across bins due to the condensation/evap\n!\n      DO N=1,NMAX\n         XN(N) = MAX(1.D-30,XN(N))\n         XVA(N) = MAX(1.D-30,XVA(N))\n         YVA(N,1) = XVA(N)      ! to be modified if NC>1\n      ENDDO\n\n      DO n=1,NMAX\n         YN(n)=1.E-20\n         DO IC=1,NC\n            YC(n,IC)=1./float(NC)*YN(n)*VDRY(n)*1.E6 ! in cm3/cm3\n         ENDDO\n\n!         IF(YN(n).GT.1.E6.or.YN(n).LE.0.) THEN\n!           WRITE(6,*)\"4 XN=\",n,YN(n),XN(n),YC(n,1)\n!         ENDIF\n\n      ENDDO\n\n      DO n=1,NMAX\n         XVT = 0.\n         DO IC=1,NC\n            XVT = XVT + YVA(n,IC) ! cm3/cm3\n         ENDDO\n         VDA = XVT/XN(n)*1.E-6  ! in m3\n\n!         YRATIO(n) = VDA/VDRY(n)\n\n! if particles become smaller than first bin or larger than last bin,\n! scale and put in the first or last bin in a fashion that conserve mass\n         IF(VDA.LT.VDRY(1)) THEN\n            YN(1) = YN(1) + XN(n)*VDA/VDRY(1)  \n            DO IC=1,NC          ! move compositions\n               YC(1,IC) = YC(1,IC)+YVA(n,IC)\n            ENDDO\n\n!            IF(YN(n).GT.1.E6.or.YN(n).LE.0.) THEN\n!              WRITE(6,*)\"41 XN=\",n,YN(n),XN(n),YC(n,1),YVA(n,1),XVT,VDA\n!            ENDIF\n\n         ELSEIF(VDA.GE.VDRY(NMAX)) THEN\n            YN(NMAX) = YN(NMAX) + XN(n)*VDA/VDRY(NMAX)\n            DO IC=1,NC          ! move compositions\n               YC(NMAX,IC) = YC(NMAX,IC)+YVA(n,IC)\n            ENDDO\n!            IF(YN(n).GT.1.E6.or.YN(n).LE.0.) THEN\n!              WRITE(6,*)\"42 XN=\",n,YN(n),XN(n),YC(n,1),\n!     &            XVA(n),YVA(n,1),XVT,VDA\n!            ENDIF\n         ELSE\n            IF(VDA.GE.VDRY(n)) THEN\n               J0=n\n               J1 = NMAX-1\n               JS = 1\n            ELSE\n               J0=n-1\n               J1=1\n               JS=-1\n            ENDIF\n            DO J=J0,J1,JS\n               IF(VDA.GE.VDRY(J).AND.VDA.LT.VDRY(J+1)) THEN\n                  YFR = (VDRY(J+1)-VDA)/(VDRY(J+1)-VDRY(J))\n                  YFV = YFR*VDRY(J)/VDA\n                  YN(J) = YN(J) + YFR*XN(n) !move #\n                  YN(J+1)=YN(J+1)+(1.-YFR)*XN(n)\n                  DO IC=1,NC    ! move compositions\n                     YC(J,IC) = YC(J,IC)+YFV*YVA(n,IC)\n                     YC(J+1,IC)=YC(J+1,IC)\n     &                    +(1.-YFV)*YVA(n,IC)\n                  ENDDO\n                  GOTO 160\n               ENDIF\n            ENDDO\n         ENDIF\n 160     CONTINUE\n      ENDDO\n\n!  Update the bin values\n\n      DO n=1,NMAX\n         \n         IF(YN(n).GT.1.E6.or.YN(n).LE.0.) THEN\n            WRITE(6,*)\"5 XN=\",n,YN(n),XN(n),YC(n,1)\n         ENDIF\n         \n         !GanLuo20190501XN(n) = YN(n)\n         XN(n) = MAX(1.D-30,YN(n))\n         DO IC=1,NC\n            !GanLuo20190501YVA(n,IC) =YC(n,IC)\n            YVA(n,IC) =MAX(1.D-30,YC(n,IC))\n         ENDDO\n         XVA(N) = YVA(n,1)      ! to be modified if NC>1\n\n         XN(N) = MAX(0.d0,XN(N))\n         XVA(N) = MAX(0.d0,XVA(N))\n      ENDDO\n\n      END SUBROUTINE APM_MOVEBIN\n!EOC\n      END MODULE APM_GROW_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_icen_mod.F90",
    "content": "#ifdef APM\n!program test\n!\n!use APM_ICEN_MOD, only : nucleati\n!\n!!\n!  parameter (naer_all = 3)\n!\n!  real*8   wbar                ! grid cell mean vertical velocity (m/s)\n!  real*8 :: tair                ! temperature (K)\n!  real*8 :: relhum              ! relative humidity with respective to liquid\n!  real*8 :: cldn                ! new value of cloud fraction    (fraction)\n!  real*8 :: qc                  ! liquid water mixing ratio (kg/kg)\n!!  real*8 :: nfice               ! ice mass fraction\n!  real*8 :: na(naer_all)        ! aerosol number concentration (/m3)\n!!\n!!\n!  real*8 :: nuci               ! ice number nucleated (#/kg)\n!  real*8 :: onihf              ! nucleated number from homogeneous freezing of so4\n!  real*8 :: oniimm             ! nucleated number from immersion freezing\n!  real*8 :: onidep             ! nucleated number from deposition nucleation\n!  real*8 :: onimey             ! nucleated number from deposition nucleation  (meyers: mixed phase)\n!\n!\n!  wbar = 0.25 \n!  relhum = 0.8\n!  cldn = 0.3\n!  qc   = 1.d-4\n!!  nfice = 0.1   ! not used\n!\n!! already in #/cm3\n!  na(1) = 10.0 !SP\n!  na(2) = 1.0d-2  !dust\n!  na(3) = 10.0  !soot\n!\n!  DO I=1,50\n!     tair = 220.0 + float(I) \n!     call nucleati(wbar, tair, relhum, cldn, qc,     &\n!       na, nuci, onihf, oniimm, onidep, onimey)\n!\n!     write(6,100)tair,nuci, onihf, oniimm, onidep, onimey\n!100  FORMAT(100(1PE10.3))\n!  ENDDO\n!\n!end program\n!\n\n\n\nMODULE APM_ICEN_MOD\n\n!---------------------------------------------------------------------------------\n! Purpose:\n!   CAM Interface for aerosol activation\n\n\n implicit none\n private\n\n public :: nucleati \n\ncontains\n\nsubroutine nucleati(wbar, tair, relhum, cldn, qc,    &\n       na, nuci, onihf, oniimm, onidep, onimey)\n \n!---------------------------------------------------------------\n! Purpose:\n!  The parameterization of ice nucleation.\n!\n! Method: The current method is based on Liu & Penner (2005)\n!  It related the ice nucleation with the aerosol number, temperature and the\n!  updraft velocity. It includes homogeneous freezing of sulfate, immersion\n!  freezing of soot, and Meyers et al. (1992) deposition nucleation\n!\n! Authors: Xiaohong Liu, 01/2005, modifications by A. Gettelman 2009-2010\n!----------------------------------------------------------------\n\n!-----------------------------------------------------\n! Input Arguments\n!\n  real*8, intent(in) :: wbar                ! grid cell mean vertical velocity (m/s)\n  real*8, intent(in) :: tair                ! temperature (K)\n  real*8, intent(in) :: relhum              ! relative humidity with respective to liquid\n  real*8, intent(in) :: cldn                ! new value of cloud fraction    (fraction)\n  real*8, intent(in) :: qc                  ! liquid water mixing ratio (kg/kg)\n!  real*8, intent(in) :: nfice               ! ice mass fraction\n!  real*8, intent(in) :: na(naer_all)        ! aerosol number concentration (/m3) Yu --> in #/cm3\n  real*8, intent(in) :: na(3)        ! aerosol number concentration (/m3) Yu --> in #/cm3\n\n\n!\n! Output Arguments\n!\n  real*8, intent(out) :: nuci               ! ice number nucleated (#/kg) -->#/cm3 (Yu)\n  real*8, intent(out) :: onihf              ! nucleated number from homogeneous freezing of so4\n  real*8, intent(out) :: oniimm             ! nucleated number from immersion freezing\n  real*8, intent(out) :: onidep             ! nucleated number from deposition nucleation\n  real*8, intent(out) :: onimey             ! nucleated number from deposition nucleation  (meyers: mixed phase)\n\n!\n! Local workspace\n!\n  real*8  so4_num                                      ! so4 aerosol number (#/cm^3)\n  real*8  soot_num                                     ! soot (hydrophilic) aerosol number (#/cm^3)\n!  real*8  dst1_num,dst2_num,dst3_num,dst4_num          ! dust aerosol number (#/cm^3)\n  real*8  dst_num                                      ! total dust aerosol number (#/cm^3)\n  real*8  nihf                                         ! nucleated number from homogeneous freezing of so4\n  real*8  niimm                                        ! nucleated number from immersion freezing\n  real*8  nidep                                        ! nucleated number from deposition nucleation\n  real*8  nimey                                        ! nucleated number from deposition nucleation (meyers)\n  real*8  n1,ni                                        ! nucleated number\n  real*8  tc,A,B,C,regm,RHw                            ! work variable\n  real*8  esl,esi,deles                                ! work variable\n  real*8  dst_scale\n  real*8  subgrid\n  real*8 dmc,ssmc         ! variables for modal scheme.\n\n    so4_num=0.0\n    soot_num=0.0\n    dst_num=0.0\n!    dst1_num = 0.0\n!    dst2_num = 0.0\n!    dst3_num = 0.0\n!    dst4_num = 0.0     \n\n!For modal aerosols, assume for the upper troposphere:\n! soot = accumulation mode\n! sulfate = aiken mode\n! dust = coarse mode\n! since modal has internal mixtures.\n\n!    if(idxsul .gt. 0) then \n!       so4_num=na(idxsul)*1.0e-6 ! #/cm^3\n!    end if\n!\n!continue above philosophy here....\n\n!    if(idxbcphi .gt. 0) then \n!      soot_num=na(idxbcphi)*1.0e-6 !#/cm^3\n!    end if\n!\n!    if(idxdst1 .gt. 0) then \n!       dst1_num=na(idxdst1)  *1.0e-6 !#/cm^3\n!    end if\n!\n!    if(idxdst2 .gt. 0) then \n!       dst2_num=na(idxdst2)*1.0e-6 !#/cm^3\n!    end if\n!\n!    if(idxdst3 .gt. 0) then \n!       dst3_num=na(idxdst3)*1.0e-6 !#/cm^3\n!    end if\n!\n!    if(idxdst4 .gt. 0) then \n!       dst4_num=na(idxdst4)*1.0e-6 !#/cm^3\n!    end if\n!\n!    dst_num =dst1_num+dst2_num+dst3_num+dst4_num\n\n    so4_num = na(1)\n    dst_num = na(2)\n    soot_num = na(3)\n\n! no soot nucleation \n!    soot_num=0.0\n\n\n    ni=0.\n    tc=tair-273.15\n\n    ! initialize\n    niimm=0.\n    nidep=0.\n    nihf=0.\n\n    if(so4_num.ge.1.0e-10 .and. (soot_num+dst_num).ge.1.0e-10 .and. cldn.gt.0.) then\n\n!-----------------------------\n! RHw parameterization for heterogeneous immersion nucleation\n    A = 0.0073\n    B = 1.477\n    C = 131.74\n    RHw=(A*tc*tc+B*tc+C)*0.01   ! RHi ~ 120-130%\n\n    subgrid = 1.2\n\n    if((tc.le.-35.0) .and. ((relhum*polysvp(tair,0)/polysvp(tair,1)*subgrid).ge.1.2)) then ! use higher RHi threshold\n\n       A = -1.4938 * log(soot_num+dst_num) + 12.884\n       B = -10.41  * log(soot_num+dst_num) - 67.69\n       regm = A * log(wbar) + B\n\n!       WRITE(6,*)regm\n\n       if(tc.gt.regm) then    ! heterogeneous nucleation only\n         if(tc.lt.-40. .and. wbar.gt.1.) then ! exclude T<-40 & W>1m/s from hetero. nucleation\n           call hf(tc,wbar,relhum,subgrid,so4_num,nihf)\n           niimm=0.\n           nidep=0.\n           n1=nihf\n         else\n           call hetero(tc,wbar,soot_num+dst_num,niimm,nidep)\n           nihf=0.\n           n1=niimm+nidep\n         endif\n       elseif (tc.lt.regm-5.) then ! homogeneous nucleation only\n         call hf(tc,wbar,relhum,subgrid,so4_num,nihf)\n         niimm=0.\n         nidep=0.\n         n1=nihf\n       else        ! transition between homogeneous and heterogeneous: interpolate in-between\n         if(tc.lt.-40. .and. wbar.gt.1.) then ! exclude T<-40 & W>1m/s from hetero. nucleation\n           call hf(tc,wbar,relhum,subgrid,so4_num,nihf)\n           niimm=0.\n           nidep=0.\n           n1=nihf\n         else\n\n           call hf(regm-5.,wbar,relhum,subgrid,so4_num,nihf)\n           call hetero(regm,wbar,soot_num+dst_num,niimm,nidep)\n\n           if(nihf.le.(niimm+nidep)) then\n             n1=nihf\n           else\n             n1=(niimm+nidep)*((niimm+nidep)/nihf)**((tc-regm)/5.)\n           endif\n         endif\n       endif\n\n       ni=n1\n\n    endif\n    endif\n1100  continue\n\n! deposition/condensation nucleation in mixed clouds (-40<T<0C) (Meyers, 1992)\n    if(tc.lt.0. .and. tc.gt.-37. .and. qc.gt.1.e-12) then\n      esl = polysvp(tair,0)     ! over water in mixed clouds\n      esi = polysvp(tair,1)     ! over ice\n      deles = (esl - esi)\n      nimey=1.e-3*exp(12.96*deles/esi - 0.639) \n    else\n      nimey=0.\n    endif\n\n    nuci=ni+nimey\n    if(nuci.gt.9999..or.nuci.lt.0.) then\n       write(6, *) 'Warning: incorrect ice nucleation number (nuci reset =0)'\n       write(6, *) ni, tair, relhum, wbar, nihf, niimm, nidep,deles,esi,dst_num\n       nuci=0.\n    endif\n\n!    nuci=nuci*1.e+6/rhoair    ! change unit from #/cm3 to #/kg\n!    onimey=nimey*1.e+6/rhoair\n!    onidep=nidep*1.e+6/rhoair\n!    oniimm=niimm*1.e+6/rhoair\n!    onihf=nihf*1.e+6/rhoair\n\n!Yu +\n\n    nuci=nuci\n    onihf=nihf\n    onidep=nidep\n    oniimm=niimm\n    onimey=nimey\n\n  return\n  end subroutine nucleati\n\n  subroutine hetero(T,ww,Ns,Nis,Nid)\n\n    real*8, intent(in)  :: T, ww, Ns\n    real*8, intent(out) :: Nis, Nid\n\n    real*8 A11,A12,A21,A22,B11,B12,B21,B22\n    real*8 A,B,C\n\n!---------------------------------------------------------------------\n! parameters\n\n      A11 = 0.0263\n      A12 = -0.0185\n      A21 = 2.758\n      A22 = 1.3221\n      B11 = -0.008\n      B12 = -0.0468\n      B21 = -0.2667\n      B22 = -1.4588\n\n!     ice from immersion nucleation (cm^-3)\n\n      B = (A11+B11*log(Ns)) * log(ww) + (A12+B12*log(Ns))\n      C =  A21+B21*log(Ns)\n\n      Nis = exp(A22) * Ns**B22 * exp(B*T) * ww**C\n      Nis = min(Nis,Ns)\n\n      Nid = 0.0    ! don't include deposition nucleation for cirrus clouds when T<-37C\n\n      return\n  end subroutine hetero\n\n\n  subroutine hf(T,ww,RH,subgrid,Na,Ni)\n\n      real*8, intent(in)  :: T, ww, RH, subgrid, Na\n      real*8, intent(out) :: Ni\n\n      real*8    A1_fast,A21_fast,A22_fast,B1_fast,B21_fast,B22_fast\n      real*8    A2_fast,B2_fast\n      real*8    C1_fast,C2_fast,k1_fast,k2_fast\n      real*8    A1_slow,A2_slow,B1_slow,B2_slow,B3_slow\n      real*8    C1_slow,C2_slow,k1_slow,k2_slow\n      real*8    regm\n      real*8    A,B,C\n      real*8    RHw\n\n!---------------------------------------------------------------------\n! parameters\n\n      A1_fast  =0.0231\n      A21_fast =-1.6387  !(T>-64 deg)\n      A22_fast =-6.045   !(T<=-64 deg)\n      B1_fast  =-0.008\n      B21_fast =-0.042   !(T>-64 deg)\n      B22_fast =-0.112   !(T<=-64 deg)\n      C1_fast  =0.0739\n      C2_fast  =1.2372\n\n      A1_slow  =-0.3949\n      A2_slow  =1.282\n      B1_slow  =-0.0156\n      B2_slow  =0.0111\n      B3_slow  =0.0217\n      C1_slow  =0.120\n      C2_slow  =2.312\n\n      Ni = 0.0\n\n!----------------------------\n!RHw parameters\n      A = 6.0e-4*log(ww)+6.6e-3\n      B = 6.0e-2*log(ww)+1.052\n      C = 1.68  *log(ww)+129.35\n      RHw=(A*T*T+B*T+C)*0.01\n\n!      WRITE(6,*)\"RHw=\", RHw\n\n      if((T.le.-37.0) .and. ((RH*subgrid).ge.RHw)) then\n\n        regm = 6.07*log(ww)-55.0\n\n        if(T.ge.regm) then    ! fast-growth regime\n\n          if(T.gt.-64.0) then\n            A2_fast=A21_fast\n            B2_fast=B21_fast\n          else\n            A2_fast=A22_fast\n            B2_fast=B22_fast\n          endif\n\n          k1_fast = exp(A2_fast + B2_fast*T + C2_fast*log(ww))\n          k2_fast = A1_fast+B1_fast*T+C1_fast*log(ww)\n\n          Ni = k1_fast*Na**(k2_fast)\n          Ni = min(Ni,Na)\n\n        else       ! slow-growth regime\n\n          k1_slow = exp(A2_slow + (B2_slow+B3_slow*log(ww))*T + C2_slow*log(ww))\n          k2_slow = A1_slow+B1_slow*T+C1_slow*log(ww)\n\n          Ni = k1_slow*Na**(k2_slow)\n          Ni = min(Ni,Na)\n\n        endif\n\n      end if\n\n      return\n  end subroutine hf\n\n!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc\n! error function in single precision\n!\n!    Copyright(C) 1996 Takuya OOURA (email: ooura@mmm.t.u-tokyo.ac.jp).\n!    You may use, copy, modify this code for any purpose and \n!    without fee. You may distribute this ORIGINAL package.\n\n      function derf(x)\n      implicit real (a - h, o - z)\n      real*8 a,b,x\n      dimension a(0 : 64), b(0 : 64)\n      integer i,k\n      data (a(i), i = 0, 12) / & \n         0.00000000005958930743d0, -0.00000000113739022964d0, & \n         0.00000001466005199839d0, -0.00000016350354461960d0, &\n         0.00000164610044809620d0, -0.00001492559551950604d0, &\n         0.00012055331122299265d0, -0.00085483269811296660d0, &\n         0.00522397762482322257d0, -0.02686617064507733420d0, &\n         0.11283791670954881569d0, -0.37612638903183748117d0, &\n         1.12837916709551257377d0 / \n      data (a(i), i = 13, 25) / &\n         0.00000000002372510631d0, -0.00000000045493253732d0, &\n         0.00000000590362766598d0, -0.00000006642090827576d0, &\n         0.00000067595634268133d0, -0.00000621188515924000d0, &\n         0.00005103883009709690d0, -0.00037015410692956173d0, &\n         0.00233307631218880978d0, -0.01254988477182192210d0, &\n         0.05657061146827041994d0, -0.21379664776456006580d0, &\n         0.84270079294971486929d0 / \n      data (a(i), i = 26, 38) / &\n         0.00000000000949905026d0, -0.00000000018310229805d0, &\n         0.00000000239463074000d0, -0.00000002721444369609d0, &\n         0.00000028045522331686d0, -0.00000261830022482897d0, &\n         0.00002195455056768781d0, -0.00016358986921372656d0, &\n         0.00107052153564110318d0, -0.00608284718113590151d0, &\n         0.02986978465246258244d0, -0.13055593046562267625d0, &\n         0.67493323603965504676d0 / \n      data (a(i), i = 39, 51) / &\n         0.00000000000382722073d0, -0.00000000007421598602d0, &\n         0.00000000097930574080d0, -0.00000001126008898854d0, &\n         0.00000011775134830784d0, -0.00000111992758382650d0, &\n         0.00000962023443095201d0, -0.00007404402135070773d0, &\n         0.00050689993654144881d0, -0.00307553051439272889d0, &\n         0.01668977892553165586d0, -0.08548534594781312114d0, &\n         0.56909076642393639985d0 / \n      data (a(i), i = 52, 64) / &\n         0.00000000000155296588d0, -0.00000000003032205868d0, &\n         0.00000000040424830707d0, -0.00000000471135111493d0, &\n         0.00000005011915876293d0, -0.00000048722516178974d0, &\n         0.00000430683284629395d0, -0.00003445026145385764d0, &\n         0.00024879276133931664d0, -0.00162940941748079288d0, &\n         0.00988786373932350462d0, -0.05962426839442303805d0, &\n         0.49766113250947636708d0 / \n      data (b(i), i = 0, 12) / &\n         -0.00000000029734388465d0, 0.00000000269776334046d0, &\n         -0.00000000640788827665d0, -0.00000001667820132100d0, &\n         -0.00000021854388148686d0, 0.00000266246030457984d0, &\n         0.00001612722157047886d0, -0.00025616361025506629d0, &\n         0.00015380842432375365d0, 0.00815533022524927908d0, &\n         -0.01402283663896319337d0, -0.19746892495383021487d0,& \n         0.71511720328842845913d0 / \n      data (b(i), i = 13, 25) / &\n         -0.00000000001951073787d0, -0.00000000032302692214d0, &\n         0.00000000522461866919d0, 0.00000000342940918551d0, &\n         -0.00000035772874310272d0, 0.00000019999935792654d0, &\n         0.00002687044575042908d0, -0.00011843240273775776d0, &\n         -0.00080991728956032271d0, 0.00661062970502241174d0, &\n         0.00909530922354827295d0, -0.20160072778491013140d0, &\n         0.51169696718727644908d0 / \n      data (b(i), i = 26, 38) / &\n         0.00000000003147682272d0, -0.00000000048465972408d0, &\n         0.00000000063675740242d0, 0.00000003377623323271d0, &\n         -0.00000015451139637086d0, -0.00000203340624738438d0,& \n         0.00001947204525295057d0, 0.00002854147231653228d0, &\n         -0.00101565063152200272d0, 0.00271187003520095655d0, &\n         0.02328095035422810727d0, -0.16725021123116877197d0, &\n         0.32490054966649436974d0 / \n      data (b(i), i = 39, 51) / &\n         0.00000000002319363370d0, -0.00000000006303206648d0, &\n         -0.00000000264888267434d0, 0.00000002050708040581d0, &\n         0.00000011371857327578d0, -0.00000211211337219663d0, &\n         0.00000368797328322935d0, 0.00009823686253424796d0, &\n         -0.00065860243990455368d0, -0.00075285814895230877d0,& \n         0.02585434424202960464d0, -0.11637092784486193258d0, &\n         0.18267336775296612024d0 / \n      data (b(i), i = 52, 64) / &\n         -0.00000000000367789363d0, 0.00000000020876046746d0, &\n         -0.00000000193319027226d0, -0.00000000435953392472d0, &\n         0.00000018006992266137d0, -0.00000078441223763969d0, &\n         -0.00000675407647949153d0, 0.00008428418334440096d0, &\n         -0.00017604388937031815d0, -0.00239729611435071610d0, &\n         0.02064129023876022970d0, -0.06905562880005864105d0, &\n         0.09084526782065478489d0 / \n      w = abs(x)\n      if (w .lt. 2.2d0) then\n          t = w * w\n          k = int(t)\n          t = t - k\n          k = k * 13\n          y = ((((((((((((a(k) * t + a(k + 1)) * t + &\n             a(k + 2)) * t + a(k + 3)) * t + a(k + 4)) * t + &\n             a(k + 5)) * t + a(k + 6)) * t + a(k + 7)) * t + &\n             a(k + 8)) * t + a(k + 9)) * t + a(k + 10)) * t + &\n             a(k + 11)) * t + a(k + 12)) * w\n      else if (w .lt. 6.9d0) then\n          k = int(w)\n          t = w - k\n          k = 13 * (k - 2)\n          y = (((((((((((b(k) * t + b(k + 1)) * t + &\n             b(k + 2)) * t + b(k + 3)) * t + b(k + 4)) * t + &\n             b(k + 5)) * t + b(k + 6)) * t + b(k + 7)) * t + &\n             b(k + 8)) * t + b(k + 9)) * t + b(k + 10)) * t + &\n             b(k + 11)) * t + b(k + 12)\n          y = y * y\n          y = y * y\n          y = y * y\n          y = 1 - y * y\n      else\n          y = 1\n      end if\n      if (x .lt. 0) y = -y\n      derf = y\n      end function derf\n!\n\n\n\n      function polysvp (T,type)\n!  Compute saturation vapor pressure by using\n! function from Goff and Gatch (1946)\n\n!  Polysvp returned in units of pa.\n!  T is input in units of K.\n!  type refers to saturation with respect to liquid (0) or ice (1)\n\n      real*8 dum\n\n      real*8 T,polysvp\n\n      integer type\n\n! ice\n\n      if (type.eq.1) then\n\n! Goff Gatch equation (good down to -100 C)\n\n         polysvp = 10.**(-9.09718*(273.16/t-1.)-3.56654* &\n          log10(273.16/t)+0.876793*(1.-t/273.16)+ &\n          log10(6.1071))*100.\n\n      end if\n\n! Goff Gatch equation, uncertain below -70 C\n\n      if (type.eq.0) then\n         polysvp = 10.**(-7.90298*(373.16/t-1.)+ &\n             5.02808*log10(373.16/t)- &\n             1.3816e-7*(10.**(11.344*(1.-t/373.16))-1.)+ &\n             8.1328e-3*(10.**(-3.49149*(373.16/t-1.))-1.)+ &\n             log10(1013.246))*100.\n         end if\n\n\n      end function polysvp\n!--xl\n\nend module APM_ICEN_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_init_mod.F",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: apm_init_mod\n!\n! !DESCRIPTION: Module APM\\_INIT\\_MOD contains variables and routines for \n!  initializing the APM model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      MODULE APM_INIT_MOD\n!\n! !USES:\n!\n      IMPLICIT NONE\n      PRIVATE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n      PRIVATE :: HYDRGF1\n      PRIVATE :: BINSULF\n      PRIVATE :: BINSALT \n      PRIVATE :: BINBCOC\n      PRIVATE :: BINDST7 \n      PRIVATE :: BINDST15 \n      PRIVATE :: SALTEMIT \n      PRIVATE :: SULF_EMIT\n      PRIVATE :: BCOC_EMIT\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!  \n      PUBLIC  :: APM_INIT\n      PUBLIC  :: APM_NTRACERS\n      PUBLIC  :: CLEANUP_APMARRAYS\n!\n! !PUBLIC DATA MEMBERS:\n!\n      PUBLIC  :: LAPM\n      PUBLIC  :: IFNUCL,IFEMITBCOCS, FE0\n      PUBLIC  :: WBAR     !for maxsat\n      PUBLIC  :: IFEV    !0= no eruptive volcano\n      PUBLIC  :: IFAG \n      PUBLIC  :: IFNEWCOD,IFNEWSF,IFNEWN2O5,IFONLINEMET\n      PUBLIC  :: IFDOISRP\n      PUBLIC  :: IFMODISOUT\n\n      PUBLIC  :: NGCOND,NSO4,NSEA,NDSTB,NBCOC,NBCOCT\n      PUBLIC  :: NCTSO4,NCTBC,NCTOC,NCTDST,NCTSEA,NAMINE\n      PUBLIC  :: NTYP\n      PUBLIC  :: DEDGE,RDST,DENDST,VDST\n\n      PUBLIC  :: APMIDS\n\n      PUBLIC  :: YGF                                ! HYDRGF1\n      PUBLIC  :: RDRY, VDRY, COAGPAR                ! BINSULF\n      PUBLIC  :: RSALT, VSALT, DFMSALT9,COAGPARSS   ! BINSALT\n      PUBLIC  :: IACTSS1,IACTSS3                    ! BINSALT\n      PUBLIC  :: CEMITSULF, FEMTBCOCS\n      PUBLIC  :: CEMITSULF2\n      PUBLIC  :: RBCOC, VBCOC, COAGPBCOC   ! BINBCOC\n\n      PUBLIC :: CEMITBCOC1  !OPT+\n      PUBLIC :: CEMITBCOC2  !OPT+\n\n      PUBLIC  :: TOTNUMBC,TOTNUMOC, TOTAREABC,TOTAREAOC\n      PUBLIC  :: DACT1, DACT2, DACT3, DENSULF\n      PUBLIC  :: XMACID,XMLVSOG,V1ACID,V1LVSOG,M1ACID,M1LVSOG\n      PUBLIC  :: APMTRACER_MW_G,APMTRACER_MW_KG\n      PUBLIC  :: ONEPI,BK,AVG,RGAS\n      PUBLIC  :: MAXSITE,MSITE,ISITES,JSITES,LOUT\n      PUBLIC  :: IFSITE, IFSITEOUT,IFQANN,IFEMITH,IFPREIND\n      PUBLIC  :: IFALBMODIS\n      PUBLIC  :: IFCURRENT\n      PUBLIC  :: IFAEROCOMOUT\n      PUBLIC  :: IFRADF,IFOPT,IFCDNPDF\n      PUBLIC  :: IFAMINEUP, AGAMA,ERATIO,OXRATE,IFATHN,NUCLAMINE,IFNH3\n      PUBLIC  :: IFNUCLORG\n      PUBLIC  :: IFATOM, IFSEABIRD,IFSSTSCALE\n      PUBLIC  :: ATOMMONS,ATOMDAYS,ATOMMONE,ATOMDAYE\n      PUBLIC  :: SITEOUT2D\n!      PUBLIC  :: REFBCOC,DBCOC1, BCOCSIGMA1\n      PUBLIC  :: REFBCOC!,DBCOC1, BCOCSIGMA1, FERF\n      PUBLIC  :: DBCOC2, BCOCSIGMA2\n      PUBLIC  :: MTACT,MKACT,MSAT\n      PUBLIC  :: DACTTAB\n      PUBLIC  :: FOOACRIT\n      PUBLIC  :: DATA_DIR_1x1\n\n      PUBLIC  :: BC_LIFEAPM, OC_LIFEAPM, FHBAPM, FHOAPM,D0CONV\n      PUBLIC  :: IFNOBCOCFF\n      PUBLIC  :: IFCOAT\n      PUBLIC  :: IFCOATBC\n      PUBLIC  :: DENBC,DENOC\n      PUBLIC  :: IY\n      PUBLIC  :: DTTEST\n      PUBLIC  :: IFAPMSF, IFAPMAOD\n!      PUBLIC  :: YRLIQ,YRICE\n\n!\n! !REVISION HISTORY: \n!  16 Mar 2010 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n      !=================================================================\n      ! MODULE VARIABLES\n      !=================================================================\n      LOGICAL             :: LAPM  ! ON/OFF switch for APM \n      INTEGER             :: IFEV\n      INTEGER             :: IFAG\n      INTEGER             :: IFNEWCOD,IFNEWSF,IFNEWN2O5,IFONLINEMET\n      INTEGER             :: IFDOISRP\n      INTEGER             :: IFMODISOUT\n      INTEGER             :: NGCOND,NSO4,NSEA,NDSTB,NBCOC,NBCOCT \n      INTEGER             :: NCTSO4,NCTBC,NCTOC,NCTDST,NCTSEA,NAMINE\n\n      TYPE APMidtype\n\n      INTEGER :: id_SO4G,id_SO4BIN1,id_CTSEA,id_SEABIN1,id_DSTBIN1\n      INTEGER :: id_CTSO4,id_CTBC,id_CTOC,id_CTDST\n      INTEGER :: id_BCBIN1,id_OCBIN1\n      INTEGER :: id_AMINE\n\n      INTEGER :: id_NH4,  id_NIT, id_SO4, id_NH3\n      INTEGER :: id_CO, id_NO,   id_NO2, id_NO3, id_HNO3\n      INTEGER :: id_ISOP, id_MTPA\n      INTEGER :: id_BCPO,id_BCPI,id_OCPO, id_OCPI\n      INTEGER :: id_MSA\n      INTEGER :: id_SALA, id_SALC\n\n      ! NOTE: Renamed these to GC_DSTbin{1..7} to avoid clashing\n      ! with the id_DSTbin1 species flag\n      INTEGER :: id_GC_DSTbin1, id_GC_DSTbin2, id_GC_DSTbin3\n      INTEGER :: id_GC_DSTbin4, id_GC_DSTbin5, id_GC_DSTbin6\n      INTEGER :: id_GC_DSTbin7\n\n      ! mono+sesq products\n      INTEGER :: id_TSOA1, id_TSOG1\n      INTEGER :: id_TSOA2, id_TSOG2\n      INTEGER :: id_TSOA3, id_TSOG3\n      INTEGER :: id_TSOA0, id_TSOG0\n      ! semivolpoa: add POA (hotp 2/26/09)\n      INTEGER :: id_POA1,id_POA2\n      INTEGER :: id_POG1, id_POG2\n      ! semivolpoa4opoa: add OPOA, OPOG (hotp 3/18/09)\n      INTEGER :: id_OPOA1, id_OPOG1\n      INTEGER :: id_OPOA2, id_OPOG2\n      ! lumped arom/IVOC (hotp 5/14/10)\n      INTEGER :: id_ASOAN\n      INTEGER :: id_ASOA1, id_ASOG1\n      INTEGER :: id_ASOA2, id_ASOG2\n      INTEGER :: id_ASOA3, id_ASOG3\n      INTEGER :: id_SO2, id_H2O2, id_OH\n\n      END TYPE APMidtype\n\n      TYPE(APMidtype) :: APMIDS\n\n      REAL*8, ALLOCATABLE :: YGF(:,:)\n      REAL*8, ALLOCATABLE :: RDRY(:)              !m\n      REAL*8, ALLOCATABLE :: VDRY(:)            !SULFATE dry volume (m3)\n      REAL*8, ALLOCATABLE :: RSALT(:), RSALT80(:) !m\n      REAL*8, ALLOCATABLE :: DFMSALT9(:) ! kg m-2 s-1\n      REAL*8, ALLOCATABLE :: VSALT(:)            !SALT dry volume (m3)\n      REAL*8, ALLOCATABLE :: COAGPAR(:,:,:)   ! for SULFATE\n      REAL*8, ALLOCATABLE :: COAGPARSS(:,:,:)   ! for SEA SALT\n\n      REAL*8, ALLOCATABLE :: CEMITSULF(:)\n      REAL*8, ALLOCATABLE :: CEMITSULF2(:,:)\n      REAL*8, ALLOCATABLE :: CEMITBCOC1(:,:)    !OPT+\n      REAL*8, ALLOCATABLE :: CEMITBCOC2(:,:)    !OPT+\n      REAL*8, ALLOCATABLE :: RBCOC(:)\n      REAL*8, ALLOCATABLE :: VBCOC(:)\n      REAL*8, ALLOCATABLE :: COAGPBCOC(:,:,:)   ! BINBCOC\n!\n! Dust for now\n      REAL*8, ALLOCATABLE :: DEDGE(:),RDST(:)\n      REAL*8, ALLOCATABLE :: DENDST(:),VDST(:)\n\n! Cloud activation dry diameters\n      REAL*8, PARAMETER   :: DACT1 = 3.3d-8   !convective precipitation\n      REAL*8, PARAMETER   :: DACT2 = 5.7d-8   !average\n      REAL*8, PARAMETER   :: DACT3 = 8.2d-8   !large scale precipitation\n\n      REAL*8, PARAMETER   :: DENSULF = 1.7  ! density of sulfate (g/cm3)\n      REAL*8, PARAMETER   :: XMACID = 98. ! Molecular mass of H2SO4 (g/mol)\n      REAL*8, PARAMETER   :: XMLVSOG = 181. ! Molecular mass of LV_SOG (g/mol)\n\n      REAL*8, PARAMETER   :: ONEPI = 3.1415926d0\n      REAL*8, PARAMETER   :: AVG = 6.022d+23\n      REAL*8, PARAMETER   :: BK = 1.3807d-16  !erg/K\n      REAL*8, PARAMETER   :: RGAS = 8.3144d+7  !erg K / mol\n\n      INTEGER :: IFNUCL, IFEMITBCOCS\n      REAL*8  :: FEMTBCOCS, FE0\n      REAL*8  :: WBAR\n      REAL*8  :: Y_R1, Y_SIGMA1, FRAC1\n      REAL*8  :: Y_R2, Y_SIGMA2, FRAC2\n      INTEGER :: IACTSS1, IACTSS2, IACTSS3  ! bin index for cloud act \n                                            ! diameters of seasalt\n\n      REAL*8  :: TOTNUMBC(2),TOTNUMOC(2) !total # of BCOC per kg of BCOC for\n                                         ! mod1 (fossil fuel) and mod2 (biomass/biofuel)\n      REAL*8  :: TOTAREABC(2),TOTAREAOC(2) !total surface area (m2) of BCOC per kg of BCOC for\n                                         ! mod1 (fossil fuel) and mod2 (biomass/biofuel)\n      REAL*8  :: REFBCOC(2)              ! Effective radius of BCOC (m)\n!      REAL*8  :: DBCOC1, BCOCSIGMA1, FERF(501)\n      REAL*8  :: DBCOC1, BCOCSIGMA1\n      REAL*8  :: DBCOC2, BCOCSIGMA2\n\n      CHARACTER(LEN=255)   :: DATA_DIR_1x1\n\n!      INTEGER, PARAMETER  :: MHC      = 6\n      INTEGER, PARAMETER  :: MHC      = 9\n      INTEGER, PARAMETER  :: NPROD    = 3\n      INTEGER, PARAMETER  :: MT       = 601  \n\n      INTEGER, PARAMETER  :: MTACT    = 51  \n      INTEGER, PARAMETER  :: MKACT    = 155  \n      INTEGER, PARAMETER  :: MSAT   = 50  \n      REAL*8  :: DACTTAB(MTACT,MKACT,MSAT)        \n\n      INTEGER             :: IFSITE,IFQANN,IFEMITH,IFPREIND\n      INTEGER             :: IFALBMODIS\n      INTEGER             :: IFCURRENT\n      INTEGER             :: IFAEROCOMOUT\n      INTEGER             :: IFRADF, IFOPT, IFCDNPDF\n      INTEGER        :: IFAMINEUP,IFATHN,NUCLAMINE,IFNH3,IFNUCLORG\n      INTEGER             :: IFATOM,IFSEABIRD,IFSSTSCALE\n      INTEGER             :: ATOMMONS,ATOMDAYS,ATOMMONE,ATOMDAYE\n      REAL*8              :: AGAMA,ERATIO,OXRATE\n\n!      INTEGER,PARAMETER   :: MAXSITE=47\n      INTEGER,PARAMETER   :: MAXSITE=100\n!      INTEGER,PARAMETER   :: LOUT=38      !# of layers for supersite output\n      INTEGER,PARAMETER   :: LOUT=28      !# of layers for supersite output\n!      INTEGER,PARAMETER   :: LOUT=70      !# of layers for supersite output\n!      INTEGER,PARAMETER   :: LOUT=7      !# of layers for supersite output\n      INTEGER             :: MSITE\n      INTEGER             :: ISITES(MAXSITE),JSITES(MAXSITE)\n      INTEGER             :: IFSITEOUT(MAXSITE)\n!      REAL*8  :: SITEOUT2D(MAXSITE,22)\n      REAL*8  :: SITEOUT2D(MAXSITE,56)\n\n      INTEGER,PARAMETER   :: MAPMTRA=97  ! can make this dynamic later\n      REAL*8  :: APMTRACER_MW_G(MAPMTRA),APMTRACER_MW_KG(MAPMTRA)\n\n      REAL*8  :: FOOACRIT(NPROD,MHC, MT)\n      REAL*8  :: V1ACID,V1LVSOG\n      REAL*8  :: M1ACID,M1LVSOG\n\n      REAL*8  :: BC_LIFEAPM, OC_LIFEAPM, FHBAPM, FHOAPM, D0CONV\n      INTEGER :: IFNOBCOCFF\n      INTEGER :: IFCOAT\n      INTEGER :: IFCOATBC\n      INTEGER :: IFAPMSF, IFAPMAOD\n      REAL*8  :: Z_R1,Z_SIGMA1,Z_R2,Z_SIGMA2\n      REAL*8  :: DENBC,DENOC\n      INTEGER :: SEASCHEME\n      REAL*8  :: FSALTSCAL\n      INTEGER :: IY\n      REAL*8  :: DTTEST\n!      REAL*8  :: YRLIQ,YRICE\n\n! Types of aerosols\n      INTEGER, PARAMETER  :: NTYP = 5\n\n      CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_init \n!\n! !DESCRIPTION: Subroutine APM\\_INIT initializes the APM model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_INIT( DATA_DIR_1x1a )\n!\n! !USES:\n!\n      USE APM_ATHN_MOD, ONLY : READJATHN\n      USE APM_TIMN_MOD, ONLY : READJTIMN\n      USE APM_OPTI_MOD, ONLY : READOPTABLE  !OPT+\n      USE APM_OPTI_MOD, ONLY : READOPTABLE_LW  !OPT+\n\n!\n! !INPUT PARAMETERS: \n!\n      CHARACTER(LEN=255) :: DATA_DIR_1x1a   ! 1x1 data directory\n! \n! !REVISION HISTORY: \n!  17 Mar 2010 - F. Yu       - Initial version \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: IP,IC,IT\n      INTEGER :: IACT10, IACT20, IACT30   ! bin index for cloud act \n                                          ! diameters corresponding to RDRY\n      REAL*8  :: TK\n      INTEGER ::  ITAB     !OPT+\n\n      !=================================================================\n      ! APM_INIT begins here!\n      !=================================================================\n\n      DATA_DIR_1x1 = DATA_DIR_1x1a\n\n      ! First-time initialization\n!      IF ( FIRST ) THEN\n!\n! Volume and mass of one acid and one LV-SOG molecule\n      V1ACID = XMACID/(6.02252d+23*DENSULF)  ! volume (cm3) of one SO4 molecule\n      V1LVSOG = XMLVSOG/(6.02d+23*DENSULF)   ! assume SOA has same den as acid\n      WRITE(6,*)\"V1ACID=\",V1ACID,\"V1LVSOG=\",V1LVSOG\n\n      M1ACID = XMACID*1.E-3/6.02252E+23  ! mass (kg) of one H2SO4 molecule\n      M1LVSOG = XMLVSOG*1.E-3/6.02252E+23  ! mass (kg) of one LVSOG molecule\n!\n!\n! READ IN APM CONTROLLING PARAMETERS\n!\n      CLOSE(14)\n      OPEN(14,FILE='input.apm')\n      READ(14,*)\n      READ(14,*)BC_LIFEAPM,OC_LIFEAPM,FHBAPM,FHOAPM,D0CONV\n      WRITE(6,*)'BC_LIFEAPM,OC_LIFEAPM,FHBAPM,FHOAPM,D0CONV in APM'\n      WRITE(6,*)BC_LIFEAPM,OC_LIFEAPM,FHBAPM,FHOAPM,D0CONV\n      READ(14,*)\n      READ(14,*)IFNOBCOCFF\n      WRITE(6,*)\"IFNOBCOCFF=\",IFNOBCOCFF\n      READ(14,*)\n      READ(14,*)IFCOAT,IFCOATBC\n      WRITE(6,*)\"*****IFCOAT= \", IFCOAT,\"*****IFCOATBC= \",IFCOATBC\n      READ(14,*)\n      READ(14,*)IFALBMODIS\n      WRITE(6,*)\"*****IFALBMODIS= \", IFALBMODIS\n      READ(14,*)\n      READ(14,*)IFAEROCOMOUT\n      WRITE(6,*)\"*****IFAEROCOMOUT= \", IFAEROCOMOUT\n      READ(14,*)\n      READ(14,*)IFCURRENT\n      WRITE(6,*)\"*****IFCURRENT= \", IFCURRENT\n      READ(14,*)\n      READ(14,*)IFRADF,IFOPT\n      IF(IFRADF.EQ.1.and.IFOPT.NE.1) IFOPT = 1   !force IFOPT = 1 if IFRADF=1\n      WRITE(6,*)\"*****IFRADF= \", IFRADF\n      WRITE(6,*)\"*****IFOPT= \", IFOPT\n\n      READ(14,*)\n      READ(14,*)Z_R1,Z_SIGMA1,Z_R2,Z_SIGMA2\n      WRITE(6,*)\"BCOC size parameters: Z_R1,Z_SIGMA1,Z_R2,Z_SIGMA2\"\n      WRITE(6,*)Z_R1,Z_SIGMA1,Z_R2,Z_SIGMA2\n      READ(14,*)\n      READ(14,*)DENBC\n      WRITE(6,*)\"DENBC (density of BC in kg/m3)\"\n      WRITE(6,*)DENBC\n\n      READ(14,*)\n      READ(14,*)SEASCHEME\n      WRITE(6,*)\"SEASCHEME (1=Clarke et al 2006; 2=Gong et al 2003)\"\n      WRITE(6,*)SEASCHEME\n\n      READ(14,*)\n      READ(14,*)FSALTSCAL,IFSSTSCALE\n      WRITE(6,*)\"FSALTSCALE (when SEASCHEME=2), scale with SST=1\"\n      WRITE(6,*)FSALTSCAL,IFSSTSCALE\n\n      READ(14,*)\n!      READ(14,*) IFAMINEUP, AGAMA, ERATIO,OXRATE\n!      WRITE(6,*)\"IFAMINEUP, AGAMA, ERATIO, OXRATE\"\n!      WRITE(6,*)IFAMINEUP, AGAMA, ERATIO,OXRATE\n      READ(14,*) IFAMINEUP, AGAMA\n      WRITE(6,*)\"IFAMINEUP, AGAMA\"\n      WRITE(6,*)IFAMINEUP, AGAMA\n\n      READ(14,*)\n      READ(14,*)IFATHN,NUCLAMINE\n      WRITE(6,*)\"IFATHN,NUCLAMINE\"\n      WRITE(6,*)IFATHN,NUCLAMINE\n\n      READ(14,*)\n      READ(14,*)IFCDNPDF, IFNEWCOD\n      WRITE(6,*)\"*****IFCDNPDF= \", IFCDNPDF\n      WRITE(6,*)\"*****IFNEWCOD= \", IFNEWCOD\n      IF(IFOPT<1)IFCDNPDF=0\n      IF(IFCDNPDF==0)IFNEWCOD=0\n\n      READ(14,*)\n      READ(14,*)IFNEWSF\n      WRITE(6,*)\"*****IFNEWSF= \", IFNEWSF\n\n      READ(14,*)\n      READ(14,*)IFNEWN2O5\n      WRITE(6,*)\"*****IFNEWN2O5= \", IFNEWN2O5\n\n      READ(14,*)\n      READ(14,*)IFDOISRP\n      WRITE(6,*)\"*****IFDOISRP= \", IFDOISRP\n\n      READ(14,*)\n      READ(14,*)IFMODISOUT\n      WRITE(6,*)\"*****IFMODISOUT= \", IFMODISOUT\n\n      READ(14,*)\n      READ(14,*)IFONLINEMET\n      WRITE(6,*)\"*****IFONLINEMET= \", IFONLINEMET\n\n      READ(14,*)\n      READ(14,*)IFNH3\n      WRITE(6,*)\"*****IFNH3= \", IFNH3\n\n      READ(14,*)\n      READ(14,*)IFATOM, ATOMMONS, ATOMDAYS, ATOMMONE, ATOMDAYE\n      WRITE(6,*)\"*****IFATOM= \", IFATOM, ATOMMONS, ATOMDAYS,\n     &          ATOMMONE, ATOMDAYE\n\n      READ(14,*)\n      READ(14,*)IFSEABIRD\n      WRITE(6,*)\"*****IFSEABIRD= \", IFSEABIRD\n\n\n      READ(14,*)\n      READ(14,*)IFNUCL, IFNUCLORG\n      WRITE(6,*)\"*****IFNUCLORG= \", IFNUCLORG\n\n\n      CLOSE(14)\n\n! ALLOCATE MODULE VARIABLES\n         CALL INIT_APMARRAYS\n\n! READ in IMN LOOKUP TABLES\n         WRITE(6,*)\"NUCLEATION SCHEME INDEX IFNUCL =\", IFNUCL\n         IF(IFNUCL.EQ.1.or.IFNUCL.EQ.2) CALL READJTIMN(DATA_DIR_1x1)\n         IF(IFATHN.GE.1) CALL READJATHN(DATA_DIR_1x1)\n\n!OPT+\n      IF(IFOPT.EQ.1) THEN\n        DO ITAB = 1, 3\n         CALL  READOPTABLE(ITAB,DATA_DIR_1x1)\n        ENDDO\n\n        ITAB = 3   !dust LW\n        CALL  READOPTABLE_LW(ITAB,DATA_DIR_1x1)\n       ENDIF\n!OPT+\n\n! Calculate hygroscopic growth factor for ammonia bisulfate, seasalt, and SOA\n         CALL HYDRGF1\n         \n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n        IF(IFAG.EQ.1) THEN\n! READ in FOOACRIT TABLE (to be used in carbon_mod.f)\n         CLOSE(49)\n\n         OPEN(49,file=TRIM(DATA_DIR_1x1)//\n     &       '/APM_data_201906/FSOGagMHC9DHDC.dat'\n     &          ,status='old')\n!         WRITE(6,*)\"READ in FOOAaging.dat\"\n         WRITE(6,*)\"READ in FSOGagMHC9DHDC.dat\"\n\n\n         DO IT = 1,MT     ! 260 K -320 K\n           READ(49,99)TK,((FOOACRIT(IP,IC,IT),IC=1,MHC),IP=1,NPROD)\n           IF(IT.EQ.1.and.TK.NE.260.0) THEN  ! make sure read in the right one\n            WRITE(6,*)\"STOP at apm_init_mod.f, need check FOOAaging.dat\"\n            STOP\n           ENDIF\n           IF(MOD(IT,10).EQ.1)\n     &       WRITE(6,99)TK,((FOOACRIT(IP,IC,IT),IC=1,MHC),IP=1,NPROD)\n         ENDDO\n         CLOSE(49)\n 99      FORMAT(F5.1,50(1PE10.3))\n        ENDIF\n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n\n! Setup bin structures and emission parameterizations\n!\n! Primary sulfate emission parameters\n!         FE0 = 0.    ! Fraction of sulfur emitted as sulfate (0 - 1)\n         \n! Parameters for Nucl Mode : 1.d6 5.0d-9 1.6d0 0.05\n         Y_R1 = 5.0d-9   ! cm\n         Y_SIGMA1 = 1.6d0\n         FRAC1 = 0.05\n! Parameters for Cond Mode   : 1.d6 3.5d-8 2.0d0 0.95\n         Y_R2 = 3.5d-8   ! cm\n         Y_SIGMA2 = 2.0d0\n         FRAC2 = 1. - FRAC1\n         \n         IFEMITBCOCS = 1 ! Accumlation mode of primary sulfate added to BCOC\n         CALL BINSULF\n         CALL SULF_EMIT\n\n         CALL BINSALT\n         CALL SALTEMIT\n\n         IF(NDSTB.EQ.7) CALL BINDST7\n         IF(NDSTB.EQ.15) CALL BINDST15\n\n         CALL BINBCOC\n         CALL BCOC_EMIT\n\n!         FIRST = .FALSE.\n!      ENDIF\n\n      END SUBROUTINE APM_INIT \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_ntracers\n!\n! !DESCRIPTION: Subroutine APM\\_NTRACERS initializes the number of tracers \n!  associated with APM.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_NTRACERS( State_Chm )\n\n      USE State_Chm_Mod,  ONLY : ChmState\n      USE State_Chm_Mod,  ONLY : Ind_\n!\n! !INPUT PARAMETERS: \n      TYPE(ChmState)           :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n! !REVISION HISTORY: \n!  17 Mar 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER            :: N, T\n\n      IFEV = 0\n      WRITE(6,*)\"IFEV=\",IFEV\n\n      IFQANN = 1\n      IFAG = 0\n      IFEMITH = 1\n      IFPREIND = 0\n      IFSITE = 0  !  \n        \n      WBAR = 0.3  !m/s\n!      WBAR = 0.15  !m/s\n      WRITE(6,*)\"WBAR (m/s) = \", WBAR\n\n\n\n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n!\n!         IFQANN = 2    ! =1: anuual mean; =2: monthly mean\n!         IFAG = 1      ! =0: no SOG age;  =1: SOG age\n!         IFEMITH = 2   ! =1: original;    =2: revised emit H\n!         IFSITE = 1    !  supersites =0: none;=1: global sites; =2: nested EU\n\n      CLOSE(199)\n      OPEN(199,file='apm_tmp.dat',status='old')\n      READ(199,*)\n      READ(199,*)IFQANN,IFAG,IFEMITH,IFSITE,IFPREIND\n      READ(199,*)\n      READ(199,*)IY,DTTEST\n      WRITE(6,*)\"IY,DTTEST = \", IY,DTTEST\n      CLOSE(199)\n\n!      CLOSE(200)\n!      OPEN(200,file='apm_rad.dat',status='old')\n!      READ(200,*)\n!      READ(200,*)YRLIQ,YRICE\n!      WRITE(6,*)\"YRLIQ= \", YRLIQ, \"YRICE= \", YRICE\n!      CLOSE(200)\n \n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n      WRITE(6,*)\"IFQANN etc =\",IFQANN,IFAG,IFEMITH,IFSITE,IFPREIND\n\n\n! # of various APM tracers, can be organized in a better way later\n      \n      NGCOND=1   ! Number of condensable gases\n      NSO4=40    ! Number of bins for sulfate or secondary particles\n\n      NCTSO4=0   ! Number of tracers associated with coating on SO4\n      NCTBC=1    ! Number of tracers associated with coating on BC\n      NCTOC=1    ! Number of tracers associated with coating on OC\n      NCTDST=1   ! Number of tracers associated with coating on DUST\n      NCTSEA=1   ! Number of tracers associated with coating on Sea salt\n      \n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n!20110728      IF(IFAG.EQ.1) THEN\n        NGCOND=2   ! Number of condensable gases\n        NCTSO4=1   ! Number of tracers associated with coating on SO4\n        NCTBC=2    ! Number of tracers associated with coating on BC\n        NCTOC=2    ! Number of tracers associated with coating on OC\n        NCTDST=2   ! Number of tracers associated with coating on DUST\n        NCTSEA=2   ! Number of tracers associated with coating on Sea salt\n!20110728      ENDIF\n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n\n      NSEA=20    ! Number of bins for sea salt\n      NDSTB=15    ! Number of bins for dust\n      NBCOC=15    ! Number of bins for BC and POC\n\n!      NBCPIF=1\n!      NBCPIO=1\n!      NOCPIF=1\n!      NOCPIO=1\n!      NBCPOF=1\n!      NBCPOO=1\n!      NOCPOF=1\n!      NOCPOO=1\n!      NBCOCT=NBCPIF+NBCPIO+NOCPIF+NOCPIO+NBCPOF+NBCPOO+NOCPOF+NOCPOO\n\n      NBCOCT=NBCOC*2   !one for BC and the other for POC\n\n      NAMINE=3\n\n! set APM id_ #s\n      APMIDS%id_SO4G = Ind_('APMH2SO4')\n      APMIDS%id_SO4BIN1 = Ind_('APMSPBIN01')\n      APMIDS%id_CTSEA = Ind_('APMCTSEA1')\n      APMIDS%id_SEABIN1 = Ind_('APMSEABIN01')\n      APMIDS%id_DSTBIN1 = Ind_('APMDSTBIN01')\n      APMIDS%id_CTSO4 = Ind_('APMLVSOA')\n      APMIDS%id_CTBC = Ind_('APMCTBC1')\n      APMIDS%id_CTOC = Ind_('APMCTOC1')\n      APMIDS%id_CTDST = Ind_('APMCTDST1')\n      APMIDS%id_BCBIN1 = Ind_('APMBCBIN01')\n      APMIDS%id_OCBIN1 = Ind_('APMOCBIN01')\n      APMIDS%id_AMINE = Ind_('APMAMINE1')\n\n      APMIDS%id_OH   = Ind_('OH'       )\n      APMIDS%id_H2O2 = Ind_('H2O2')\n      APMIDS%id_SO2 = Ind_('SO2')\n      APMIDS%id_MSA = Ind_('MSA')\n      APMIDS%id_SO4 = Ind_('SO4')\n      APMIDS%id_HNO3 = Ind_('HNO3')\n      APMIDS%id_NIT = Ind_('NIT')\n      APMIDS%id_NH3 = Ind_('NH3')\n      APMIDS%id_NH4 = Ind_('NH4')\n\n      APMIDS%id_CO = Ind_('CO')\n      APMIDS%id_NO = Ind_('NO')\n      APMIDS%id_NO2 = Ind_('NO2')\n      APMIDS%id_NO3 = Ind_('NO3')\n      APMIDS%id_ISOP = Ind_('ISOP')\n      APMIDS%id_MTPA = Ind_('MTPA')\n\n      APMIDS%id_BCPO = Ind_('BCPO')\n      APMIDS%id_BCPI = Ind_('BCPI')\n      APMIDS%id_OCPO = Ind_('OCPO')\n      APMIDS%id_OCPI = Ind_('OCPI')\n\n      APMIDS%id_SALA = Ind_('SALA')\n      APMIDS%id_SALC = Ind_('SALC')\n\n      APMIDS%id_GC_DSTbin1 = Ind_('DSTbin1')\n      APMIDS%id_GC_DSTbin2 = Ind_('DSTbin2')\n      APMIDS%id_GC_DSTbin3 = Ind_('DSTbin3')\n      APMIDS%id_GC_DSTbin4 = Ind_('DSTbin4')\n      APMIDS%id_GC_DSTbin5 = Ind_('DSTbin5')\n      APMIDS%id_GC_DSTbin6 = Ind_('DSTbin6')\n      APMIDS%id_GC_DSTbin7 = Ind_('DSTbin7')\n\n      APMIDS%id_TSOA1 = Ind_('TSOA1')\n      APMIDS%id_TSOG1 = Ind_('TSOG1')\n      APMIDS%id_TSOA2 = Ind_('TSOA2')\n      APMIDS%id_TSOG2 = Ind_('TSOG2')\n      APMIDS%id_TSOA3 = Ind_('TSOA3')\n      APMIDS%id_TSOG3 = Ind_('TSOG3')\n      APMIDS%id_TSOA0 = Ind_('TSOA0')\n      APMIDS%id_TSOG0 = Ind_('TSOG0')\n      APMIDS%id_POA1 = Ind_('POA1')\n      APMIDS%id_POA2 = Ind_('POA2')\n      APMIDS%id_POG1 = Ind_('POG1')\n      APMIDS%id_POG2 = Ind_('POG2')\n      APMIDS%id_OPOA1 = Ind_('OPOA1')\n      APMIDS%id_OPOG1 = Ind_('OPOG1')\n      APMIDS%id_OPOA2 = Ind_('OPOA2')\n      APMIDS%id_OPOG2 = Ind_('OPOG2')\n      APMIDS%id_ASOAN = Ind_('ASOAN')\n      APMIDS%id_ASOA1 = Ind_('ASOA1')\n      APMIDS%id_ASOG1 = Ind_('ASOG1')\n      APMIDS%id_ASOA2 = Ind_('ASOA2')\n      APMIDS%id_ASOG2 = Ind_('ASOG2')\n      APMIDS%id_ASOA3 = Ind_('ASOA3')\n      APMIDS%id_ASOG3 = Ind_('ASOG3')\n\n      END SUBROUTINE APM_NTRACERS \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: \n!\n! !DESCRIPTION: Subroutine HYDRGF1 calculates the hygroscopic growth factor \n!  table.\n!\\\\\n!\\\\\n! !INTERFACE:\n!     \n      SUBROUTINE HYDRGF1\n!\n! !REMARKS:\n!   YGF(IRH,ITYPE): Growth factor at IRH=1,99 for \n!     (NH4)2SO4 (ITYPE=1), \n!     (NH4)HSO4 (ITYPE=2), \n!     SOA (ITYPE=3), and \n!     Seasalt (ITYPE=4)\n! \n! !REVISION HISTORY: \n!  26 Nov 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! Parameters  for seasalt\n      REAL*8,  PARAMETER     :: C1 =  0.7674d0\n      REAL*8,  PARAMETER     :: C2 =  3.079d0\n      REAL*8,  PARAMETER     :: C3 =  2.573d-11\n      REAL*8,  PARAMETER     :: C4 = -1.424d0\n!     \n! !LOCAL VARIABLES:\n!\n      REAL*8  :: RH\n      REAL*8  :: XL(4),YL(4),ZL(4)\n      REAL*8  :: RSALT(10),GFSALT(10)\n      REAL*8  :: X,Y,Z,RCM,RWET,FAC1,FAC2,A,B,C,SOAGF\n\n      INTEGER   :: J,K,IRH\n      REAL*8  :: YGFSALT\n\n! For (NH4)2SO4,  NH4HSO4, H2SO4: data from Li et al, JAS, 2001 \n      data XL/-0.8082E-1, 0.5121, 0.4823E-2, 1.070/ ! (NH4)2SO4\n      data YL/-0.1741E-1, 0.3702, 0.1367E-1, 1.116/ ! NH4HSO4\n      data ZL/0.1842, 0.4416 , 0.3492E-2, 1.053/ ! H2SO4\n      \n      DO J=1,99\n         RH = float(J)*0.01\n         X =  exp(XL(1)+XL(2)*RH+XL(3)/(RH-XL(4))**2.) ! GF for (NH4)2SO4\n         Y =  exp(YL(1)+YL(2)*RH+YL(3)/(RH-YL(4))**2.) ! GF for NH4HSO4\n         Z =  exp(ZL(1)+ZL(2)*RH+ZL(3)/(RH-ZL(4))**2.) ! GF for H2SO4\n!     write(6,100)RH,X,Y,Z\n         X = MAX(X,1.01d0)\n         Y = MAX(Y,1.01d0)\n         YGF(J,1) = X\n         YGF(J,2) = Y\n      ENDDO\n!\n! SOA growth factor\n! Varutbangkul et al., Atmos. Chem. Phys., 6, 2367-2388, 2006.\n! GF values of the pure organic portion of the SOA at 85% RH are between \n! 1.09-1.16 for the C5-C8 cycloalkenes, 1.06-1.10 for the monoterpenes and \n! oxygenated terpenes, and 1.01-1.04 for the sesquiterpenes.\n!\n! GF = 1 + [(1-RH/100)**(-A) x B(RH/100)**C]\n!\n! We choose A=0.2817, B=0.0674, C=1.7026 \n! which gives GF=1.087 at RH=85% to represent average GF\n!\n      A= 0.2817\n      B= 0.0674\n      C= 1.7026\n\n      DO J=1,99\n         RH = float(J)*0.01\n         SOAGF = 1. + ((1.-RH)**(-A) * B * (RH)**C)\n!         write(6,105)RH,SOAGF\n         YGF(J,3) = SOAGF\n      ENDDO\n\n!  Sea salt growth with relative humidity in radius [m]\n! (Gerber, 1985) (bec, 12/8/04)\n\n      DO K=1,10                 ! check to see the effect of R on GF \n         RSALT(K) = 3.E-7*float(K)*float(K)*float(K)\n      ENDDO\n!     WRITE(6,*)\"Sea Salt Growth Factor\"\n!     WRITE(6,110)(RSALT(K)*1.E4,K=1,10)\n!      DO J=1,99\n!         RH = float(J)*0.01\n!         DO K=1,10      \n!! Exponential factors\n!            RCM = RSALT(K)      ! cm\n!            FAC1 = C1 * ( RCM**C2 )\n!            FAC2 = C3 * ( RCM**C4 )\n!            RWET = (FAC1/(FAC2-DLOG(RH))+RCM**3.d0)**0.33d0 ! cm\n!            GFSALT(K)=RWET/RCM\n!         ENDDO\n!!     write(6,100)RH,(GFSALT(K),K=1,10)\n!!     write(6,100)RH,GFSALT(4)\n!!     Particle dry size has some effect on GF when RH is very high\n!!     here use GF @ RDRY=~200 nm as average GF\n!!20110513         YGF(J,4) = GFSALT(4)\n!         YGF(J,4) = 2.*0.54*(1. + 1./(1.-RH))**(1./3.)  !based on De Leeuw etal., ROG,2010 for ow.\n!      ENDDO\n!\n!Yu+ 6/2/11 read from file\n      CLOSE(99)\n      OPEN(99,file=TRIM(DATA_DIR_1x1)//\n     &            '/APM_data_201906/APMTABLES/HGFSEASALT.txt')\n\n      DO J=1,99\n         READ(99,102)IRH, YGFSALT\n         YGF(J,4) = YGFSALT\n      ENDDO\n      CLOSE(99)\n 102  FORMAT(I5,10(1PE10.3))\n\n      WRITE(6,*)\"Calculate hygroscopic growth factor tables\"\n\n      WRITE(6,*)\"   RH   SULFATE    SOA   SEASALT\"\n      DO J=1,99,2\n         write(6,100)FLOAT(J),YGF(J,1),YGF(J,3),YGF(J,4)\n      ENDDO\n      \n 100  FORMAT(20(1PE9.2))\n 105  FORMAT(20(1PE10.3))\n 110  FORMAT(\"RSALT(um)\",10(1PE9.2))\n\n      END SUBROUTINE HYDRGF1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: binsulf\n!\n! !DESCRIPTION: Subroutine BINSULF setup size-resolved sulfate sectional bin \n!  structure (allowing any variable bin resolution,i.e., variable bin volume \n!  ratio).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE BINSULF\n! \n! !REVISION HISTORY: \n!  16 Nov 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: I,J,K,L, NMAX\n      REAL*8  :: RMIN,VRAT,YVRATMAX,THIRD,VJK\n      REAL*8  :: RDRY_TR, RDRY_TR1,RATIOVRAT\n      REAL*8  :: YVRAT(NSO4)\n\n      THIRD = 1.d0/3.d0\n      RMIN = 0.6d-9    ! m\n      VRAT = 1.60d0\n      YVRATMAX  = 8.0d0\n      RDRY_TR = 4.5d-8  ! m\n      RDRY_TR1 = 3.d-7  ! m\n      RATIOVRAT = 1.15d0\n\n      NMAX      = NSO4\n      DO I   = 1, NMAX\n         IF(I.EQ.1) THEN\n            RDRY(I) =RMIN\n!         ELSEIF((DBLE(I)/DBLE(I-1)).GE.VRAT) THEN\n!            YVRAT(I-1)=DBLE(I)/DBLE(I-1)\n!            RDRY(I) = RDRY(I-1)*YVRAT(I-1)**THIRD\n         ELSEIF(RDRY(I-1).LE.RDRY_TR) THEN\n            YVRAT(I-1)= VRAT\n            RDRY(I) = RDRY(I-1)*YVRAT(I-1)**THIRD\n!         ELSEIF(RDRY(I-1).LE.RDRY_TR1) THEN\n!            YVRAT(I-1)= 2.0d0\n!            RDRY(I) = RDRY(I-1)*YVRAT(I-1)**THIRD\n         ELSE\n            YVRAT(I-1) = YVRAT(I-2) * RATIOVRAT\n            IF(YVRAT(I-1).GT.YVRATMAX) YVRAT(I-1) = YVRATMAX\n            RDRY(I) = RDRY(I-1)*YVRAT(I-1)**THIRD\n         ENDIF\n         VDRY(I)=4.d0/3.d0*3.1416d0*(RDRY(I)**3.d0)   ! m3\n         IF(I.EQ.NMAX) YVRAT(I) = YVRAT(I-1)\n      ENDDO\n      WRITE(6,*)\"SULF bin information\"\n      WRITE(6,*)\"Bin# R(um)  Volume(m3)  VRAT\"\n      DO I   = 1, NMAX\n         WRITE(6,55)I,RDRY(I)*1.E6,VDRY(I),YVRAT(I)\n      ENDDO\n 55   FORMAT(I4, 10(1PE11.3))\n\n!------------------------------------------------------------------------------\n      ! Coefficient for coagulation partition\n      DO J=1,NMAX\n         DO K=1, J\n            VJK = VDRY(J) + VDRY(K)\n            IF(VJK .GE. VDRY(NMAX)) THEN\n              COAGPAR(j,k,NMAX) = 1.d0\n              COAGPAR(k,j,NMAX) = 1.d0\n            ELSE\n              IF(J .LE. (NMAX-1))THEN\n              DO I=J, NMAX-1\n                IF((VJK .GE. VDRY(i)) .AND. (VJK .LT. VDRY(i+1))) THEN\n                  COAGPAR(j,k,i)=((VDRY(i+1)-VJK)/(VDRY(i+1)-VDRY(i)))\n     &                          *VDRY(i)/VJK\n                  COAGPAR(j,k,i+1) = 1.- COAGPAR(j,k,i)\n                  COAGPAR(k,j,i) = COAGPAR(j,k,i)\n                  COAGPAR(k,j,i+1) = COAGPAR(j,k,i+1)\n                ENDIF\n              ENDDO\n              ENDIF\n            ENDIF\n         ENDDO\n      ENDDO\n 100  FORMAT(I3,I3,I3,F5.2,F5.2)\n\n      END SUBROUTINE BINSULF\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: \n!\n! !DESCRIPTION: Subroutine BINSALT setups size-resolved sectional bins for \n!  sea salt (allowing any variable bin resolution,i.e., variable bin volume \n!  ratio)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE BINSALT\n! \n! !REVISION HISTORY: \n!  16 Nov 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!      \n      INTEGER            :: I,J,K, NMAX\n      REAL*8             :: RMIN,VRAT,YVRATMAX,THIRD,VJK\n      REAL*8             :: RDRY_TR, RDRY_TR1,RATIOVRAT\n      REAL*8             :: YVRAT(NSEA)\n      REAL*8             :: RCM, FAC1, FAC2\n!\n! !DEFINED PARAMETERS:\n!\n      REAL*8,  PARAMETER :: C1 =  0.7674d0\n      REAL*8,  PARAMETER :: C2 =  3.079d0\n      REAL*8,  PARAMETER :: C3 =  2.573d-11\n      REAL*8,  PARAMETER :: C4 = -1.424d0\n\n      !=================================================================\n      ! BINSALT begins here!\n      !=================================================================\n\n      THIRD = 1.d0/3.d0\n      RMIN = 0.6d-8    ! m\n      VRAT = 2.0d0\n      YVRATMAX  = 8.0d0\n      RDRY_TR = 0.5d-7  ! m\n      RDRY_TR1 = 3.d-0  ! m\n      RATIOVRAT = 1.138d0\n\n      NMAX      = NSEA\n      DO I   = 1, NMAX\n         IF(I.EQ.1) THEN\n            RSALT(I) =RMIN\n         ELSEIF(I.LE.3) THEN\n            YVRAT(I-1)= 2.5\n            RSALT(I) = RSALT(I-1)*YVRAT(I-1)**THIRD\n         ELSEIF((DBLE(I)/DBLE(I-1)).GE.VRAT) THEN\n            YVRAT(I-1)=DBLE(I)/DBLE(I-1)\n            RSALT(I) = RSALT(I-1)*YVRAT(I-1)**THIRD\n         ELSEIF(RSALT(I-1).LE.RDRY_TR) THEN\n            YVRAT(I-1)= VRAT\n            RSALT(I) = RSALT(I-1)*YVRAT(I-1)**THIRD\n         ELSE\n            YVRAT(I-1) = YVRAT(I-2) * RATIOVRAT\n            IF(YVRAT(I-1).GT.YVRATMAX) YVRAT(I-1) = YVRATMAX\n            RSALT(I) = RSALT(I-1)*YVRAT(I-1)**THIRD\n         ENDIF\n         VSALT(I)=4.d0/3.d0*3.1416d0*(RSALT(I)**3.d0)   ! m3\n         IF(I.EQ.NMAX) YVRAT(I) = YVRAT(I-1)\n      ENDDO\n      WRITE(6,*)\"Sea Salt bin information\"\n      WRITE(6,*)\"Bin# R(um)  Volume(m3)  VRAT\"\n\n      DO I   = 1, NMAX\n      ! Sea salt radius [cm]\n         RCM  = RSALT(I) * 100d0\n\n!      ! Exponential factors\n!         FAC1 = C1 * ( RCM**C2 )\n!         FAC2 = C3 * ( RCM**C4 )\n!\n!! NOTE: DLOG is replaced by LOG (bmy, 2/16/11)\n!!         RSALT80(I)=0.01d0*(FAC1/(FAC2-DLOG(0.8))+RCM**3.d0)**0.33d0\n!         RSALT80(I)=0.01d0*(FAC1/(FAC2-LOG(0.8))+RCM**3.d0)**0.33d0\n! de Leeuw, ROG, 2010, yfq,20110513\n         RSALT80(I)= 2.*RSALT(I)\n         WRITE(6,55)I,RSALT(I)*1.E6,RSALT80(I)*1.E6, VSALT(I),YVRAT(I)\n      ENDDO\n 55   FORMAT(I4, 10(1PE11.3))\n\n      IACTSS1= 1\n      IACTSS2= 1\n      IACTSS3= 1\n      DO I   = 2, NMAX\n       IF(DACT1.GE.(2.*RSALT(I-1)).and.DACT1.LT.(2.*RSALT(I))) IACTSS1=I\n       IF(DACT2.GE.(2.*RSALT(I-1)).and.DACT2.LT.(2.*RSALT(I))) IACTSS2=I\n       IF(DACT3.GE.(2.*RSALT(I-1)).and.DACT3.LT.(2.*RSALT(I))) IACTSS3=I\n      ENDDO\n\n      WRITE(6,*)\"IACTSS1=\",IACTSS1,\"IACTSS2=\",IACTSS2,\"IACTSS3=\",IACTSS3\n!------------------------------------------------------------------------------\n      ! Coefficient for coagulation partition\n      DO J=1,NMAX\n         DO K=1, J\n            VJK = VSALT(J) + VSALT(K)\n            IF(VJK .GE. VSALT(NMAX)) THEN\n              COAGPARSS(j,k,NMAX) = 1.d0\n              COAGPARSS(k,j,NMAX) = 1.d0\n            ELSE\n              IF(J .LE. (NMAX-1))THEN\n              DO I=J, NMAX-1\n                IF((VJK .GE. VSALT(i)) .AND. (VJK .LT. VSALT(i+1))) THEN\n                  COAGPARSS(j,k,i)=((VSALT(i+1)-VJK)/(VSALT(i+1)\n     &                               -VSALT(i)))*VSALT(i)/VJK\n                  COAGPARSS(j,k,i+1) = 1.- COAGPARSS(j,k,i)\n\n                  COAGPARSS(k,j,i) = COAGPARSS(j,k,i)\n                  COAGPARSS(k,j,i+1) = COAGPARSS(j,k,i+1)\n                ENDIF\n              ENDDO\n              ENDIF\n            ENDIF\n         ENDDO\n      ENDDO\n 100  FORMAT(I3,I3,I3,F5.2,F5.2)\n\n      END SUBROUTINE BINSALT \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: bindst7\n!\n! !DESCRIPTION: Subroutine BINDST setups size-resolved sectional bins for \n!  dust particles (allowing any variable bin resolution,i.e., variable bin \n!  volume ratio)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE BINDST7\n! \n! !REVISION HISTORY: \n!  13 Jun 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!      \n      INTEGER :: I,J,K, NMAX\n!      REAL*8  :: RMIN,VRAT,YVRATMAX,THIRD,VJK\n!      REAL*8  :: RDRY_TR, RDRY_TR1,RATIOVRAT\n      REAL*8  :: YVRAT(NDSTB)\n      REAL*8  :: RCM\n\n      !=================================================================\n      ! BINDST begins here!\n      !=================================================================\n\n      NMAX      = NDSTB\n! based on GEOS-Chem size for now\n      RDST(1) = 0.15d-6  !m\n      RDST(2) = 0.25d-6  !m\n      RDST(3) = 0.4d-6   !m\n      RDST(4) = 0.8d-6   !m\n      RDST(5) = 1.5d-6   !m\n      RDST(6) = 2.5d-6   !m\n      RDST(7) = 4.0d-6   !m\n      DENDST(1) = 2.5    !g/cm3\n      DENDST(2) = 2.5    !g/cm3\n      DENDST(3) = 2.5    !g/cm3\n      DENDST(4) = 2.5    !g/cm3\n      DENDST(5) = 2.65   !g/cm3\n      DENDST(6) = 2.65   !g/cm3\n      DENDST(7) = 2.65   !g/cm3\n\n      DO I   = 1, NMAX\n        VDST(I)=4.d0/3.d0*3.1416d0*(RDST(I)**3.d0)   ! m3\n      ENDDO\n      DO I   = 1, NMAX-1\n        YVRAT(I) = VDST(I+1)/VDST(I)\n      ENDDO\n      YVRAT(NMAX)=YVRAT(NMAX-1)\n     \n      WRITE(6,*)\"Dust bin information\"\n      WRITE(6,*)\"Bin# R(um)  Volume(m3)  VRAT\"\n\n      DO I   = 1, NMAX\n      ! dust radius [cm]\n         RCM  = RDST(I) * 100d0\n         WRITE(6,55)I,RDST(I)*1.E6, VDST(I),YVRAT(I)\n      ENDDO\n 55   FORMAT(I4, 10(1PE11.3))\n\n!------------------------------------------------------------------------------\n!      ! Coefficient for coagulation partition\n!                 --- Deal with this later\n!      DO J=1,NMAX\n!         DO K=1, J\n!            VJK = VDST(J) + VDST(K)\n!            IF(VJK .GE. VDST(NMAX)) THEN\n!              COAGPARSS(j,k,NMAX) = 1.d0\n!              COAGPARSS(k,j,NMAX) = 1.d0\n!            ELSE\n!              IF(J .LE. (NMAX-1))THEN\n!              DO I=J, NMAX-1\n!                IF((VJK .GE. VDST(i)) .AND. (VJK .LT. VDST(i+1))) THEN\n!                  COAGPARSS(j,k,i)=((VDST(i+1)-VJK)/(VDST(i+1)\n!     &                               -VDST(i)))*VDST(i)/VJK\n!                  COAGPARSS(j,k,i+1) = 1.- COAGPARSS(j,k,i)\n!\n!                  COAGPARSS(k,j,i) = COAGPARSS(j,k,i)\n!                  COAGPARSS(k,j,i+1) = COAGPARSS(j,k,i+1)\n!                ENDIF\n!              ENDDO\n!              ENDIF\n!            ENDIF\n!         ENDDO\n!      ENDDO\n 100  FORMAT(I3,I3,I3,F5.2,F5.2)\n\n      END SUBROUTINE BINDST7 \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: bindst15\n!\n! !DESCRIPTION: Subroutine BINDST setups size-resolved sectional bins for \n!  dust particles (allowing any variable bin resolution,i.e., variable bin \n!  volume ratio)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE BINDST15\n! \n! !REVISION HISTORY: \n!  13 Jun 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: I,J,K, NMAX\n!      REAL*8  :: RMIN,VRAT,YVRATMAX,THIRD,VJK\n!      REAL*8  :: RDRY_TR, RDRY_TR1,RATIOVRAT\n      REAL*8  :: YVRAT(NDSTB),DEDGE1(16)\n      REAL*8  :: RCM\n\n!      DATA DEDGE1/0.05,0.09,0.18,0.35,0.6,1.0,1.55,2.5,   ! Edge diameter (um)\n!     &            3.75,4.7,5.7,7.5,14.5,26.0,41.0,63.0/\n\n      DATA DEDGE1/0.02,0.045,0.09,0.18,0.35,0.6,1.0,1.55,2.5,   ! Edge diameter (um)\n     &            3.75,5.7,7.5,14.5,26.0,41.0,63.0/\n\n      !=================================================================\n      ! BINDST begins here!\n      !=================================================================\n\n      DEDGE = DEDGE1\n\n      NMAX      = NDSTB\n\n      DO I   = 1, NMAX\n        RDST(I)=0.5*SQRT(DEDGE(I)*DEDGE(I+1))*1.d-6  ! m\n        VDST(I)=4.d0/3.d0*3.1416d0*(RDST(I)**3.d0)   ! m3\n        IF(RDST(I).LT.1.d-6) THEN\n           DENDST(I)= 2.5 !g/cm3\n        ELSE\n           DENDST(I)= 2.65 !g/cm3\n        ENDIF\n      ENDDO\n      DO I   = 1, NMAX-1\n        YVRAT(I) = VDST(I+1)/VDST(I)\n      ENDDO\n      YVRAT(NMAX)=YVRAT(NMAX-1)\n     \n      WRITE(6,*)\"Dust bin information\"\n      WRITE(6,*)\"Bin# R(um)  Volume(m3)  VRAT\"\n\n      DO I   = 1, NMAX\n      ! dust radius [cm]\n         RCM  = RDST(I) * 100d0\n         WRITE(6,55)I,RDST(I)*1.E6, VDST(I),YVRAT(I)\n      ENDDO\n 55   FORMAT(I4, 10(1PE11.3))\n\n!------------------------------------------------------------------------------\n!      ! Coefficient for coagulation partition\n!                 --- Deal with this later\n!      DO J=1,NMAX\n!         DO K=1, J\n!            VJK = VDST(J) + VDST(K)\n!            IF(VJK .GE. VDST(NMAX)) THEN\n!              COAGPARSS(j,k,NMAX) = 1.d0\n!              COAGPARSS(k,j,NMAX) = 1.d0\n!            ELSE\n!              IF(J .LE. (NMAX-1))THEN\n!              DO I=J, NMAX-1\n!                IF((VJK .GE. VDST(i)) .AND. (VJK .LT. VDST(i+1))) THEN\n!                  COAGPARSS(j,k,i)=((VDST(i+1)-VJK)/(VDST(i+1)\n!     &                               -VDST(i)))*VDST(i)/VJK\n!                  COAGPARSS(j,k,i+1) = 1.- COAGPARSS(j,k,i)\n!\n!                  COAGPARSS(k,j,i) = COAGPARSS(j,k,i)\n!                  COAGPARSS(k,j,i+1) = COAGPARSS(j,k,i+1)\n!                ENDIF\n!              ENDDO\n!              ENDIF\n!            ENDIF\n!         ENDDO\n!      ENDDO\n 100  FORMAT(I3,I3,I3,F5.2,F5.2)\n\n      END SUBROUTINE BINDST15 \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:\n!\n! !DESCRIPTION: Subroutine BINBCOC setups size-resolved sectional bins for\n!  BCOC (allowing any variable bin resolution,i.e., variable bin volume\n!  ratio)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE BINBCOC\n!\n! !REVISION HISTORY:\n!  1 Feb 2016 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER            :: I,J,K, NMAX\n      REAL*8             :: RMIN,VRAT,YVRATMAX,THIRD,VJK\n      REAL*8             :: RDRY_TR, RDRY_TR1,RATIOVRAT\n      REAL*8             :: YVRAT(NBCOC)\n      REAL*8             :: RCM, FAC1, FAC2\n!\n! !DEFINED PARAMETERS:\n!\n      REAL*8,  PARAMETER :: C1 =  0.7674d0\n      REAL*8,  PARAMETER :: C2 =  3.079d0\n      REAL*8,  PARAMETER :: C3 =  2.573d-11\n      REAL*8,  PARAMETER :: C4 = -1.424d0\n\n      !=================================================================\n      ! BINBCOC begins here!\n      !=================================================================\n\n      THIRD = 1.d0/3.d0\n      RMIN = 5.0d-9    ! m\n\n      YVRAT = 2.0d0\n      YVRAT(1)=8.0d0\n      YVRAT(2)=4.0d0\n      YVRAT(13)=4.0d0\n      YVRAT(14)=8.0d0\n\n      NMAX      = NBCOC\n      DO I   = 1, NMAX\n         IF(I.EQ.1) THEN\n            RBCOC(I) =RMIN\n         ELSE\n            RBCOC(I) = RBCOC(I-1)*YVRAT(I-1)**THIRD\n         ENDIF\n         VBCOC(I)=4.d0/3.d0*3.1416d0*(RBCOC(I)**3.d0)   ! m3\n         IF(I.EQ.NMAX) YVRAT(I) = YVRAT(I-1)\n      ENDDO\n      WRITE(6,*)\"BCOC bin information\"\n      WRITE(6,*)\"Bin# R(um)  Volume(m3)  VRAT\"\n\n      DO I   = 1, NMAX\n      ! BCOC radius [um]\n         WRITE(6,55)I,RBCOC(I)*1.E6,VBCOC(I),YVRAT(I)\n      ENDDO\n 55   FORMAT(I4, 10(1PE11.3))\n\n!------------------------------------------------------------------------------\n      ! Coefficient for coagulation partition\n      DO J=1,NMAX\n         DO K=1, J\n            VJK = VBCOC(J) + VBCOC(K)\n            IF(VJK .GE. VBCOC(NMAX)) THEN\n              COAGPBCOC(j,k,NMAX) = 1.d0\n              COAGPBCOC(k,j,NMAX) = 1.d0\n            ELSE\n              IF(J .LE. (NMAX-1))THEN\n              DO I=J, NMAX-1\n                IF((VJK .GE. VBCOC(i)) .AND. (VJK .LT. VBCOC(i+1))) THEN\n                  COAGPBCOC(j,k,i)=((VBCOC(i+1)-VJK)/(VBCOC(i+1)\n     &                                -VBCOC(i)))*VBCOC(i)/VJK\n                  COAGPBCOC(j,k,i+1) = 1.- COAGPBCOC(j,k,i)\n\n                  COAGPBCOC(k,j,i) = COAGPBCOC(j,k,i)\n                  COAGPBCOC(k,j,i+1) = COAGPBCOC(j,k,i+1)\n                ENDIF\n              ENDDO\n              ENDIF\n            ENDIF\n         ENDDO\n      ENDDO\n 100  FORMAT(I3,I3,I3,F5.2,F5.2)\n\n      END SUBROUTINE BINBCOC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: saltemit\n!\n! !DESCRIPTION: Sea salt emissions?\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE SALTEMIT\n! \n! !REVISION HISTORY: \n!  17 Mar 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!      \n      REAL*8  :: YVRAT(NSEA)\n      REAL*8  :: DR(NSEA),REDGE(NSEA+1),DLOGDp(NSEA)\n      REAL*8  :: DFSALT9(NSEA),BETA3(6,3),BETA(6)\n      REAL*8  :: VRHI,VRLOW,RUM,DFDR9,DFDLOGD9\n              \n      INTEGER :: I,J,NMAX\n\n      DATA BETA3/-5.001D3,0.808D6,-1.98D7,2.188D8,-1.144D9,2.29D9\n     &     ,3.854D3,1.168D4,-6.572D4,1.003D5,-6.407D4,1.493D4\n     &     ,4.498D2,0.839D3,-5.394D2,1.218D2,-1.213D1,4.514D-1/\n\n!\n      NMAX = NSEA\n!      SEASCHEME=1\n      IF(SEASCHEME.EQ.1) THEN\n         WRITE(6,*)\"SEASCHEME: Clarke et al., 2006\"\n      ELSEIF(SEASCHEME.EQ.2) THEN\n         WRITE(6,*)\"SEASCHEME: Gong et al., 2003\"\n      ENDIF\n\n      WRITE(6,*)\"SEA SALT SIZE at RH=80%\"\n\n      DO I   = 1, NMAX-1\n         YVRAT(I)=(RSALT80(I+1)/RSALT80(I))**3.0\n      ENDDO\n      YVRAT(NMAX) = YVRAT(NMAX-1)\n\n      DO I = 1, NMAX\n         IF(I.EQ.1) THEN\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./VRHI\n            REDGE(I) = RSALT80(I)*VRLOW\n            REDGE(I+1) = RSALT80(I)*VRHI\n         ELSEIF(I.EQ.NMAX) THEN\n            VRLOW= 1./(YVRAT(I-1)**(1./6.))\n            VRHI = 1./VRLOW\n            REDGE(I+1) = RSALT80(I)*VRHI\n         ELSE\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./( YVRAT(I-1)**(1./6.))\n            REDGE(I+1) = RSALT80(I)*VRHI\n         ENDIF\n         DR(I) = RSALT80(I)*(VRHI-VRLOW)\n         WRITE(6,100)2.E6*RSALT80(I),2.E6*DR(I),\n     &   2.E6*RSALT80(I)*VRLOW,2.E6*RSALT80(I)*VRHI,\n     &             VRHI,VRLOW,YVRAT(I)\n      ENDDO\n\n      IF(SEASCHEME==2)THEN\n!\n! Size-resolved sea salt emission based on Gong et al., 2003\n!\n      DO I = 1, NMAX\n         RUM = RSALT80(I)*1.D6   ! Radius @RH=80% in um\n         DFDR9=1.373*9.d0**3.41*   ! dFdr (m-2 um-1 s-1)\n     &    (RUM**(-4.7D0*((1.D0+30.D0*RUM)\n     &   **(-0.017D0*(RUM**(-1.44D0))))))\n     &   * (1.d0+0.057d0*(RUM**3.45d0))\n     &   * (10.d0**(1.607d0*EXP(-1.0d0\n     &   * ((0.433d0-DLOG10(RUM))/0.433d0)**2.d0)))\n\n         DFSALT9(I) =DFDR9 * DR(I)*1.E6   ! Sea-salt flux dF (# m-2 s-1)\n\n! Sea-salt mass flux dFM (kg m-2 s-1) at U10 = 9 m/s\n         DFMSALT9(I)=DFSALT9(I)*2.2d3*4.0/3.0*3.1416*RSALT(I)**3.0 \n\n! Yu+20111015 : Somehow Gong's scheme underpredict seasalt AOD by a factor \n! of ~2 in APM simulation when compared to MODIS and MISR data, double DFMSALT9 for now\n! 20111016: x2 not enough --> x2.5\n!         DFMSALT9(I)= DFMSALT9(I)*2.0\n!         DFMSALT9(I)= DFMSALT9(I)*2.5\n! use input: 2.5 for 4x5 and 1.7 for 2x2.5\n         DFMSALT9(I)= DFMSALT9(I)*FSALTSCAL\n\n      ENDDO\n      ENDIF\n\n! Dry size for plotting\n      WRITE(6,*)\"SEA SALT DRY SIZE\"\n\n      DO I   = 1, NMAX-1\n         YVRAT(I)=(RSALT(I+1)/RSALT(I))**3.0\n      ENDDO\n      YVRAT(NMAX) = YVRAT(NMAX-1)\n\n      DO I = 1, NMAX\n         IF(I.EQ.1) THEN\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./VRHI\n            REDGE(I) = RSALT(I)*VRLOW\n            REDGE(I+1) = RSALT(I)*VRHI\n         ELSEIF(I.EQ.NMAX) THEN\n            VRLOW= 1./(YVRAT(I-1)**(1./6.))\n            VRHI = 1./VRLOW\n            REDGE(I+1) = RSALT(I)*VRHI\n         ELSE\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./( YVRAT(I-1)**(1./6.))\n            REDGE(I+1) = RSALT(I)*VRHI\n         ENDIF\n         DR(I) = RSALT(I)*(VRHI-VRLOW)\n         DLOGDp(I) = DLOG10(VRHI/VRLOW)\n         WRITE(6,100)2.E6*RSALT(I),2.E6*DR(I),\n     &            2.E6*RSALT(I)*VRLOW,2.E6*RSALT(I)*VRHI,\n     &             VRHI,VRLOW,YVRAT(I)\n      ENDDO\n\n      IF(SEASCHEME==1)THEN\n!\n! Size-resolved sea salt emission based on Clarke et al., 2006\n!\n      DO I = 1, NMAX\n\n         RUM = RSALT(I)*2.D6   ! Diameter in um\n\n         IF(RUM<0.132)THEN\n           DO J=1,6\n             BETA(J)=BETA3(J,1)\n           ENDDO\n         ELSE\n           IF(RUM<1.2)THEN\n             DO J=1,6\n               BETA(J)=BETA3(J,2)\n             ENDDO\n           ELSE\n             DO J=1,6\n               BETA(J)=BETA3(J,3)\n             ENDDO\n           ENDIF\n         ENDIF\n\n         DFDR9=3.84d-2*(9.d0**3.41) ! dF (m-2 s-1)\n     &        *(BETA(1)+BETA(2)*RUM+BETA(3)*RUM**2+BETA(4)*RUM**3\n     &         +BETA(5)*RUM**4+BETA(6)*RUM**5)*DLOGDp(I)\n\n         DFSALT9(I) =DFDR9 ! Sea-salt flux dF (# m-2 s-1)\n\n! Clarke parameterization invalid for last bin which is 10 um\n! Set to half of last bin\n         IF(I.EQ.NMAX) DFSALT9(I) = 0.5*DFSALT9(I-1) \n\n! Sea-salt mass flux dFM (kg m-2 s-1) at U10 = 9 m/s\n         DFMSALT9(I)=DFSALT9(I)*2.2d3*4.0/3.0*3.1416*RSALT(I)**3.0\n      ENDDO\n      ENDIF\n\n      DO I = 1, NMAX\n         DFDLOGD9= DFSALT9(I)/DLOGDp(I) ! Sea-salt flux dF/dlogDp (# m-2 s-1)\n\n!         WRITE(28,100)RSALT(I)*2.E6,DFDLOGD9\n!         WRITE(29,100)REDGE(I)*2.E6, 1.E-20\n!         WRITE(29,100)REDGE(I)*2.E6,DFDLOGD9\n!         WRITE(29,100)REDGE(I+1)*2.E6,DFDLOGD9\n!         WRITE(29,100)REDGE(I+1)*2.E6,1.E-20\n 100     FORMAT(10(1PE10.3))\n      ENDDO\n      !FLUSH(28)\n      !FLUSH(29)\n\n      END SUBROUTINE SALTEMIT \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: sulf_emit\n!\n! !DESCRIPTION: Subroutine SULF\\_EMIT computes size-resolved aerosol emissions\n!  now for primary sulfate aerosols, can include other types later on.  \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE SULF_EMIT\n!\n! !REMARKS:\n!  CEMITSULF2(NSO4,2) is the particle mass conc (kg/m3) in each bin of each \n!  mode per unit mass (kg/m3) of primary sulfate emitted.  Multiply \n!  CEMITSULF2(NSO4,2) with total mass of primary sulfate emission to obtain \n!  sulfate mass emitted into each bin.  CEMITSULF(NSO4) combines two modes \n!  based on the fractions and IFEMITBCOCS\n! \n! !REVISION HISTORY: \n!  28 Aug 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!      \n      INTEGER :: I, IMOD, NMAX\n      REAL*8  :: THIRD, CORPI \n      REAL*8  :: TOTNUM, TOTMASS\n      REAL*8  :: VRHI,VRLOW,VMULT1,SIGG,VRAD,VR1,CSIG1,CSIG2\n      REAL*8  :: RADRAT, CONEXP, SUMFRAC, XTEMP\n      REAL*8  :: YVRAT(NSO4), CFRAC(NSO4)\n      REAL*8  :: DR(NSO4), DLOGDp(NSO4), REDGE(NSO4+1)\n      REAL*8  :: YVMULT1(2),YGSTANDEV(2),YVOLRAD(2)\n      REAL*8  :: XMI, YTEMP,YTEMP2\n\n      !=================================================================\n      ! SULF_EMIT begins here!\n      !=================================================================\n\n! Initialize the particle number size distribution with two log-normal modes\n!\n      NMAX=NSO4\n\n      WRITE(6,*) \"Parameters for primary sulfate emission:\"\n      WRITE(6,*)\"Mode 1:\", Y_R1, Y_SIGMA1, FRAC1\n      WRITE(6,*)\"Mode 2:\", Y_R2, Y_SIGMA2, FRAC2\n\n      YVMULT1(1)  =  1000.0     ! can be any postive number, cancelled during norm\n      YGSTANDEV(1) =  LOG(Y_SIGMA1)\n      YVOLRAD(1)  =  Y_R1\n!\n      YVMULT1(2)  =  1000.0\n      YGSTANDEV(2) =  LOG(Y_SIGMA2)\n      YVOLRAD(2)  =  Y_R2\n!\n      THIRD = 1.d0/3.d0\n      CORPI = 1.d0/SQRT(2.d0*3.1415926d0)\n\n\n      DO 783 I   = 1, NMAX-1\n         YVRAT(I)=(RDRY(I+1)/RDRY(I))**3.0\n 783  CONTINUE\n      YVRAT(NMAX) = YVRAT(NMAX-1)\n\n      DO 786 I = 1, NMAX\n!           VRHI = ( 2.0d0*YVRAT(I)/(1.0d0 + YVRAT(I)) )**THIRD\n         IF(I.EQ.1) THEN\n!           VRLOW= ( 2.0d0/(1.0d0 + YVRAT(I)) )**THIRD\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./VRHI\n            REDGE(I) = RDRY(I)*VRLOW\n            REDGE(I+1) = RDRY(I)*VRHI\n         ELSEIF(I.EQ.NMAX) THEN\n            VRLOW= 1./(YVRAT(I-1)**(1./6.))\n            VRHI = 1./VRLOW\n            REDGE(I+1) = RDRY(I)*VRHI\n         ELSE\n!           VRLOW= ( 2.0d0/(1.0d0 + YVRAT(I-1)) )**THIRD\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./( YVRAT(I-1)**(1./6.))\n            REDGE(I+1) = RDRY(I)*VRHI\n         ENDIF\n         DR(I) = RDRY(I)*(VRHI-VRLOW)\n         DLOGDp(I) = LOG10(VRHI/VRLOW)\n         CEMITSULF2(I,1) = 1.d-50\n         CEMITSULF2(I,2) = 1.d-50\n!        WRITE(24,152)2.E6*RDRY(I),2.E6*DR(I),\n!     &            2.E6*RDRY(I)*VRLOW,2.E6*RDRY(I)*VRHI,\n!     &             VRHI,VRLOW,YVRAT(I)\n 786  CONTINUE\n!\n! VMULT1 is total number.\n!\n      DO IMOD    = 1, 2\n         VMULT1       = YVMULT1(IMOD)\n         SIGG         = YGSTANDEV(IMOD)\n         VRAD         = YVOLRAD(IMOD)\n         \n         VR1         = 1.d0  / VRAD\n         CSIG1       = CORPI / SIGG\n         CSIG2       = 0.5d0 / (SIGG * SIGG)\n         SUMFRAC     = 0.d0\n         DO I    = 1, NMAX\n            RADRAT   = LOG( RDRY(I) * VR1 )*1.d0\n            CONEXP   = RADRAT * RADRAT * CSIG2\n            CFRAC(I) = DR(I) /RDRY(I) * CSIG1 * EXP(-CONEXP)\n            SUMFRAC  = SUMFRAC + CFRAC(I)\n         ENDDO\n!\n         TOTMASS      = 0.\n         DO I        = 1, NMAX\n            XTEMP        = CFRAC(I)*VMULT1/SUMFRAC\n            CEMITSULF2(I,IMOD) = CEMITSULF2(I,IMOD) + XTEMP ! # per volume\n            TOTMASS  = TOTMASS + XTEMP*VDRY(I)*DENSULF*1.d3 ! kg per volume\n         ENDDO\n!\n! Scale to get number conc per unit mass of total emitted particles\n         TOTNUM = 0.\n         DO I        = 1, NMAX\n            CEMITSULF2(I,IMOD) = CEMITSULF2(I,IMOD)/TOTMASS\n            TOTNUM = TOTNUM + CEMITSULF2(I,IMOD) !total number conc per unit mass\n            WRITE(6,152)2*RDRY(I)*1.E9,CEMITSULF2(I,IMOD)/DLOGDp(I)\n         ENDDO\n! Convert # conc to mass conc\n         DO I        = 1, NMAX\n            CEMITSULF2(I,IMOD)=CEMITSULF2(I,IMOD)*VDRY(I)*DENSULF*1.d3\n            WRITE(6,152)2*RDRY(I)*1.E9,CEMITSULF2(I,IMOD)\n         ENDDO\n\n         WRITE(6,151)IMOD\n         WRITE(6,*)\" sigma   r_mode   Ntots(per kg)\"\n         WRITE(6,152)EXP(SIGG),VRAD,TOTNUM\n 151     FORMAT(\"Parameters of background aerosols Mode \", I3)\n 152     FORMAT(10(1PE10.3))\n      ENDDO\n\n!         WRITE(21,*)\" Primary Sulfate Emission Parameterization Ni/kg\"\n!         WRITE(21,*)\"  R     Mod1   Mod2  F1*Mod1+(1-F1)*Mod2\"\n!         WRITE(21,*)\" (m)  (#/ug) (#/ug)   (#/ug)\"\n!         WRITE(22,*)\" Primary Sulfate Emission Parameterization \n!     &                     dNi/dlogDp /ug\"\n!         WRITE(22,*)\"  D F1*Mod1+(1-F1)*Mod2 Mod1  Mod2 \"\n!         WRITE(22,*)\" (um)  (#/ug) (#/ug)   (#/ug)\"\n      DO I        = 1, NMAX\n         IF(IFEMITBCOCS.EQ.1) THEN ! put accum mode primary sulfate in BCOC\n            CEMITSULF(I)=CEMITSULF2(I,1)*FRAC1 \n            FEMTBCOCS = FRAC2\n         ELSE\n            CEMITSULF(I)=CEMITSULF2(I,1)*FRAC1 + CEMITSULF2(I,2)*FRAC2\n            FEMTBCOCS =  0.d0\n         ENDIF\n         \n         XMI = VDRY(I)*DENSULF*1.E12 ! ug (VDRY in m3, DENSULF in g/cm3)\n         YTEMP = XMI*DLOGDp(I)\n!            WRITE(21,152)RDRY(I),CEMITSULF2(I,1)/XMI,\n!     &                CEMITSULF2(I,2)/XMI, CEMITSULF(I)/XMI\n!Output dN/dlogDp (#/kg-sulfate)\n            YTEMP2 = CEMITSULF2(I,2)*FRAC2/YTEMP\n!            WRITE(22,152)2*RDRY(I)*1.E6,CEMITSULF(I)/YTEMP,\n!     &                YTEMP2\n!     &                CEMITSULF2(I,1)/YTEMP,\n!     &                CEMITSULF2(I,2)/YTEMP\n\n!            WRITE(23,152)2.E6*REDGE(I),1.E-20,1.E-20\n!            WRITE(23,152)2.E6*REDGE(I),CEMITSULF(I)/YTEMP,YTEMP2\n!            WRITE(23,152)2.E6*REDGE(I+1),CEMITSULF(I)/YTEMP,YTEMP2\n!            WRITE(23,152)2.E6*REDGE(I+1),1.E-20,1.E-20\n!            WRITE(24,152)2.E6*RDRY(I),2.E6*DR(I),\n!     &            2.E6*(REDGE(I+1)-REDGE(I)),\n!     &             2.E6*REDGE(I),2.E6*REDGE(I+1),YVRAT(I)**(1./3.)\n      ENDDO\n      !FLUSH(21)\n      !FLUSH(22)\n      !FLUSH(23)\n      !FLUSH(24)\n\n      END SUBROUTINE SULF_EMIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: bcoc_emit \n!\n! !DESCRIPTION: Subroutine BCOC\\_EMIT computes size-resolved aerosol \n!  emissions for primary BCOC aerosols.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE BCOC_EMIT\n!\n! !REMARKS:\n!  CEMITBCOC2(NMAX,2) is the # of BCOC particles distributed to each bin of \n!  per unit mass (kg) of primary BCOC. Multiple CEMITBCOC2(NNMAX,2) with total \n!  BC or OC mass conc in the grid to obtain # conc.  Before the size-resolved \n!  BCOC microphysics is implemented, here only use it for convert mass conc to \n!  number conc based on two assumed log-normal distributions:  Mod1 for fossil \n!  fuel; mod2 for biomass/biofuel.\n! \n! !REVISION HISTORY: \n!  22 Jan 2009 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: I, IMOD, NMAX, N\n      REAL*8  :: THIRD, CORPI \n      REAL*8  :: TOTMASS\n      REAL*8  :: VRHI,VRLOW,VMULT1,SIGG,VRAD,VR1,CSIG1,CSIG2\n      REAL*8  :: RADRAT, CONEXP, SUMFRAC, XTEMP\n      REAL*8  :: YVRAT(NBCOC), CFRAC(NBCOC)\n      REAL*8  :: DR(NBCOC), DLOGDp(NBCOC), REDGE(NBCOC+1)\n      REAL*8  :: YVMULT1(2),YGSTANDEV(2),YVOLRAD(2)\n      REAL*8  :: XMI, YTEMP\n      REAL*8  :: x\n      REAL    :: FV,SS,DACT,TK\n      INTEGER :: IS,IT,ISOL,INTTK\n\n\n! Read in pre-calculated table for the dry diameters of particles\n! that can be activated at give supersaturation as a function \n! of T,k (hygroscopicity parameter)\n!\n      CLOSE(211)\n      OPEN(211,file=TRIM(DATA_DIR_1x1)//\n     &             '/APM_data_201906/APMTABLES/DACTS_50S.txt',\n     &         status='old')\n\n      DO I=1, 15\n         READ(211,*)            ! skip lines\n      ENDDO\n      \n      DO IS=1,MSAT\n         DO IT=1,MTACT\n            READ(211,101)SS,TK\n            READ(211,101)(DACTTAB(IT,I,IS),I=1,MKACT)\n         ENDDO\n      ENDDO\n!      flush(212)\n!      close(212)\n 101  FORMAT(500(1PE9.2))\n      CLOSE(211)\n\n      !=================================================================\n      ! BCOC_EMIT begins here!\n      !=================================================================\n\n! Initialize the particle number size distribution with two log-normal modes\n!\n      NMAX=NBCOC\n\n      WRITE(6,*) \"Parameters for primary BCOC\"\n\n      DBCOC1 = Z_R1*2.0\n      BCOCSIGMA1 = Z_SIGMA1\n      DBCOC2 = Z_R2*2.0\n      BCOCSIGMA2 = Z_SIGMA2\n\n! Effective mode radius\n      REFBCOC(1) = Z_R1*exp(2.*LOG(Z_SIGMA1)*LOG(Z_SIGMA1))\n      REFBCOC(2) = Z_R2*exp(2.*LOG(Z_SIGMA2)*LOG(Z_SIGMA2))\n\n      WRITE(6,*)\"Mode 1:\", Z_R1, Z_SIGMA1, REFBCOC(1)\n      WRITE(6,*)\"Mode 2:\", Z_R2, Z_SIGMA2, REFBCOC(2)\n\n!YuBCden        DENBC = 1000.0   !kg/m3\n!20110712      DENBC = 1800.0            !kg/m3\n!      DENBC = 1200.0            !kg/m3\n      DENOC = 1800.0            !kg/m3\n\n      YVMULT1(1)  =  1000.\n      YGSTANDEV(1) =  LOG(Z_SIGMA1)\n      YVOLRAD(1)  =  Z_R1\n!     \n      YVMULT1(2)  =  30.\n      YGSTANDEV(2) =  LOG(Z_SIGMA2)\n      YVOLRAD(2)  =  Z_R2\n!\n      THIRD = 1.d0/3.d0\n      CORPI = 1.d0/SQRT(2.d0*3.1415926d0)\n\n      DO 783 I   = 1, NMAX-1\n         YVRAT(I)=(RBCOC(I+1)/RBCOC(I))**3.0\n 783  CONTINUE\n      YVRAT(NMAX) = YVRAT(NMAX-1)\n\n      DO 786 I = 1, NMAX\n!        VRHI = ( 2.0d0*YVRAT(I)/(1.0d0 + YVRAT(I)) )**THIRD\n         IF(I.EQ.1) THEN\n!           VRLOW= ( 2.0d0/(1.0d0 + YVRAT(I)) )**THIRD\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./VRHI\n            REDGE(I) = RBCOC(I)*VRLOW\n            REDGE(I+1) = RBCOC(I)*VRHI\n         ELSEIF(I.EQ.NMAX) THEN\n            VRLOW= 1./(YVRAT(I-1)**(1./6.))\n            VRHI = 1./VRLOW\n            REDGE(I+1) = RBCOC(I)*VRHI\n         ELSE\n!           VRLOW= ( 2.0d0/(1.0d0 + YVRAT(I-1)) )**THIRD\n            VRHI = YVRAT(I)**(1./6.)\n            VRLOW= 1./( YVRAT(I-1)**(1./6.))\n            REDGE(I+1) = RBCOC(I)*VRHI\n         ENDIF\n         DR(I) = RBCOC(I)*(VRHI-VRLOW)\n         DLOGDp(I) = LOG10(VRHI/VRLOW)\n         CEMITBCOC1(I,1) = 1.d-50\n         CEMITBCOC1(I,2) = 1.d-50\n         CEMITBCOC2(I,1) = 1.d-50\n         CEMITBCOC2(I,2) = 1.d-50\n 786  CONTINUE\n!\n! VMULT1 is total number.\n!\n      DO IMOD    = 1, 2\n         VMULT1       = YVMULT1(IMOD)\n         SIGG         = YGSTANDEV(IMOD)\n         VRAD         = YVOLRAD(IMOD)\n         \n         VR1         = 1.d0  / VRAD\n         CSIG1       = CORPI / SIGG\n         CSIG2       = 0.5d0 / (SIGG * SIGG)\n         SUMFRAC     = 0.d0\n         DO I    = 1, NMAX\n            RADRAT   = LOG( RBCOC(I) * VR1 )*1.d0\n            CONEXP   = RADRAT * RADRAT * CSIG2\n            CFRAC(I) = DR(I) /RBCOC(I) * CSIG1 * EXP(-CONEXP)\n            SUMFRAC  = SUMFRAC + CFRAC(I)\n         ENDDO\n!     \n         TOTMASS      = 0.\n         DO I        = 1, NMAX\n            XTEMP        = CFRAC(I)*VMULT1/SUMFRAC\n            CEMITBCOC1(I,IMOD) = CEMITBCOC1(I,IMOD)+XTEMP*VBCOC(I)*DENBC\n            CEMITBCOC2(I,IMOD) = CEMITBCOC2(I,IMOD) + XTEMP !# per volume\n            TOTMASS      = TOTMASS + XTEMP*VBCOC(I)*DENBC ! kg per volume\n         ENDDO\n!\n! Scale to get number of BCOC per unit mass \n         TOTNUMBC(IMOD) = 0.\n         TOTAREABC(IMOD) = 0.\n         DO I        = 1, NMAX\n            CEMITBCOC1(I,IMOD) = CEMITBCOC1(I,IMOD)/TOTMASS\n            CEMITBCOC2(I,IMOD) = CEMITBCOC2(I,IMOD)/TOTMASS !# of BCOC particles per kg of BCOC\n            TOTNUMBC(IMOD) = TOTNUMBC(IMOD) + CEMITBCOC2(I,IMOD) !total number of BC per kg of BC\n            TOTAREABC(IMOD) = TOTAREABC(IMOD) + ! total area of BC per kg of BC\n     &         CEMITBCOC2(I,IMOD)*4.*3.1416*RBCOC(I)*RBCOC(I) ! m2/kg BC\n!               WRITE(6,152)2*RBCOC(I)*1.E9,CEMITBCOC2(I,IMOD)/DLOGDp(I)\n\n         ENDDO\n! Convert # conc to mass conc\n!            DO I        = 1, NMAX\n!               CEMITBCOC2(I,IMOD) = CEMITBCOC2(I,IMOD)*VBCOC(I)*DENBCOC\n!               WRITE(6,152)2*RBCOC(I)*1.E9,CEMITBCOC2(I,IMOD)\n!            ENDDO\n         TOTNUMOC(IMOD) = TOTNUMBC(IMOD)* DENBC/DENOC !total number of OC per kg of OC\n         TOTAREAOC(IMOD) = TOTAREABC(IMOD) * DENBC/DENOC ! total area of OC per kg of OC\n            \n         WRITE(6,151)IMOD\n         WRITE(6,152)EXP(SIGG),VRAD, TOTNUMBC(IMOD), TOTNUMOC(IMOD),\n     &         TOTAREABC(IMOD), TOTAREAOC(IMOD)\n 151     FORMAT(\"Parameters of PRIMARY BCOC PARTICLES for mode \", I3)\n 152     FORMAT(10(1PE10.3))\n      ENDDO\n         \n      WRITE(6,*)\" FosilFuel  Biomass/Biofuel\"\n      WRITE(6,*)\"# & surface area (m2) of BC particles per kg of BC\"\n      WRITE(6,152)TOTNUMBC(1),TOTNUMBC(2),TOTAREABC(1),TOTAREABC(2)\n      WRITE(6,*)\"# & surface area (m2) of OC particles per kg of OC\"\n      WRITE(6,152)TOTNUMOC(1),TOTNUMOC(2),TOTAREAOC(1),TOTAREAOC(2)\n\n      WRITE(6,*)\"BC log-normal distributioc (dN/dlogDp per kg)\"//\n     &          \" and Mass rate\"\n      WRITE(6,*)\"Dia(nm)   mode1     mode2\"\n      DO I        = 1, NMAX\n         WRITE(6,152)2*RBCOC(I)*1.E9,CEMITBCOC2(I,1)/DLOGDp(I),\n     &         CEMITBCOC2(I,2)/DLOGDp(I),CEMITBCOC1(I,1),CEMITBCOC1(I,2)\n      ENDDO\n\n      END SUBROUTINE BCOC_EMIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_apmarrays\n!\n! !DESCRIPTION: Subroutine INIT\\_APMARRAYS allocates and zeroes module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE INIT_APMARRAYS\n! \n! !REVISION HISTORY: \n!  28 Aug 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: AS\n\n      !=================================================================\n      ! INIT_AEROSOL begins here!\n      !=================================================================\n\n      ALLOCATE( RDRY( NSO4 ), STAT=AS )\n      RDRY = 0d0\n\n      ALLOCATE( VDRY( NSO4 ), STAT=AS )\n      VDRY = 0d0\n\n      ALLOCATE( COAGPAR(NSO4,NSO4,NSO4 ), STAT=AS )\n      COAGPAR = 0d0\n\n      ALLOCATE( CEMITSULF(NSO4), STAT=AS )\n      CEMITSULF = 0d0\n\n      ALLOCATE( CEMITSULF2(NSO4,2), STAT=AS )\n      CEMITSULF2 = 0.\n\n!OPT+\n      ALLOCATE( RBCOC(NBCOC), STAT=AS )\n      RBCOC = 0.\n\n      ALLOCATE( VBCOC(NBCOC), STAT=AS )\n      VBCOC = 0.\n\n      ALLOCATE( COAGPBCOC(NBCOC,NBCOC,NBCOC), STAT=AS )\n      COAGPBCOC = 0.\n\n      ALLOCATE( CEMITBCOC1(NBCOC,2), STAT=AS )\n      CEMITBCOC1 = 0.\n\n      ALLOCATE( CEMITBCOC2(NBCOC,2), STAT=AS )\n      CEMITBCOC2 = 0.\n\n      ALLOCATE( RSALT( NSEA ), STAT=AS )\n      RSALT = 0d0\n\n      ALLOCATE( VSALT( NSEA ), STAT=AS )\n      VSALT = 0d0\n\n      ALLOCATE( RSALT80( NSEA ), STAT=AS )\n      RSALT80 = 0d0\n\n      ALLOCATE( DFMSALT9( NSEA ), STAT=AS )\n      DFMSALT9 = 0d0\n\n      ALLOCATE( COAGPARSS(NSEA,NSEA,NSEA ), STAT=AS )\n      COAGPARSS = 0d0\n\n      ALLOCATE( COAGPBCOC(NBCOC,NBCOC,NBCOC ), STAT=AS )\n      COAGPBCOC = 0d0\n\n      ALLOCATE( YGF(99,4), STAT=AS )\n      YGF = 0d0\n\n      ALLOCATE( DEDGE( NDSTB+1 ), STAT=AS )\n      DEDGE = 0d0\n\n      ALLOCATE( RDST( NDSTB ), STAT=AS )\n      RDST = 0d0\n\n      ALLOCATE( DENDST( NDSTB ), STAT=AS )\n      DENDST = 0d0\n\n      ALLOCATE( VDST( NDSTB ), STAT=AS )\n      VDST = 0d0\n\n      END SUBROUTINE INIT_APMARRAYS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_apmarrays \n!\n! !DESCRIPTION: Subroutine CLEANUP_APMARRAYS deallocates all module arrays\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE CLEANUP_APMARRAYS\n! \n! !REVISION HISTORY: \n!  28 Aug 2008 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n      !=================================================================\n      ! CLEANUP_AEROSOL begins here!\n      !=================================================================\n      IF ( ALLOCATED( RDRY        ) ) DEALLOCATE( RDRY        )\n      IF ( ALLOCATED( VDRY        ) ) DEALLOCATE( VDRY        )\n      IF ( ALLOCATED( COAGPAR     ) ) DEALLOCATE( COAGPAR     )\n      IF ( ALLOCATED( RSALT       ) ) DEALLOCATE( RSALT       )\n      IF ( ALLOCATED( VSALT       ) ) DEALLOCATE( VSALT       )\n      IF ( ALLOCATED( RSALT80     ) ) DEALLOCATE( RSALT80     )\n      IF ( ALLOCATED( DFMSALT9    ) ) DEALLOCATE( DFMSALT9    )\n      IF ( ALLOCATED( COAGPARSS   ) ) DEALLOCATE( COAGPARSS   )\n      IF ( ALLOCATED( COAGPBCOC   ) ) DEALLOCATE( COAGPBCOC   )\n      IF ( ALLOCATED( CEMITSULF   ) ) DEALLOCATE( CEMITSULF   )\n      IF ( ALLOCATED( CEMITSULF2  ) ) DEALLOCATE( CEMITSULF2  )\n      IF ( ALLOCATED( CEMITBCOC1  ) ) DEALLOCATE( CEMITBCOC1  )   !OPT+\n      IF ( ALLOCATED( CEMITBCOC2  ) ) DEALLOCATE( CEMITBCOC2  )   !OPT+\n      IF ( ALLOCATED( YGF         ) ) DEALLOCATE( YGF         )\n\n      END SUBROUTINE CLEANUP_APMARRAYS\n!EOC\n      END MODULE APM_INIT_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_mixactivate.F90",
    "content": "#ifdef APM\n!************************************************************************\n! This computer software was prepared by Battelle Memorial Institute,\n! hereinafter the Contractor, under Contract No. DE-AC05-76RL0 1830 with\n! the Department of Energy (DOE). NEITHER THE GOVERNMENT NOR THE\n! CONTRACTOR MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR ASSUMES ANY\n! LIABILITY FOR THE USE OF THIS SOFTWARE.\n!\n! MOSAIC module: see chem/module_mosaic_driver.F for references and terms\n! of use\n!************************************************************************\n!\n!      Calculate maxsat at given updraft velocity and particle size dist\n!      modified from relevant WRF_Chem code for APM\n!      by F. Yu, UAlbany, 2012/11/19\n\n!      Reference:\n!      Abdul-Razzak and Ghan, A parameterization of aerosol activation.\n!      3. Sectional representation. J. Geophys. Res., 107, 2002.\n\nMODULE apm_mixactivate\nPRIVATE\nPUBLIC activate\nCONTAINS\n\n!----------------------------------------------------------------------\n!----------------------------------------------------------------------\n! 06-nov-2005 rce - grid_id & ktau added to arg list\n      subroutine activate(maxsatout, wbar, tair, pres,&\n                      maxd_atype, ntype_aer, maxd_asize, nsize_aer,    &\n                      na, am, hygro)\n\n      implicit none\n\n      integer,intent(in) :: maxd_atype      ! dimension of types\n      integer,intent(in) :: maxd_asize      ! dimension of sizes\n      integer,intent(in) :: ntype_aer       ! number of types\n      integer,intent(in) :: nsize_aer(maxd_atype) ! number of sizes for type\n      real*8,intent(in) :: wbar          ! grid cell mean vertical velocity (m/s)\n      real*8,intent(in) :: tair          ! air temperature (K)\n      real*8,intent(in) :: pres         ! pressure (Pa)\n      real*8,intent(in) :: na(maxd_asize,maxd_atype)     ! aerosol number concentration (/m3)\n      real*8,intent(in) :: am(maxd_asize,maxd_atype)   ! aerosol section dry radius (m)\n      real*8,intent(in) :: hygro(maxd_asize,maxd_atype)  ! bulk hygroscopicity of aerosol mode\n\n      real*8,intent(inout) :: maxsatout\n\n\n      real*8,parameter :: g=9.81,rhowater=1000.,XLV=2.5E6,r_d=287.,r_v=461.6,mwdry=28.966\n      real*8,parameter :: cp=7.*r_d/2.,rvovrd=r_v/r_d,SVP1=0.6112,SVP2=17.67,SVP3=29.65\n      real*8,parameter :: EP_2=R_d/R_v\n\n      real*8, parameter :: surften = 0.076 ! surface tension of water w/respect to air (N/m)\n      real*8, parameter :: p0 = 1013.25e2  ! reference pressure (Pa)\n      real*8, parameter :: t0 = 273.15     ! reference temperature (K)\n\n      real*8 :: rhoair        ! air density (kg/m3)\n      real*8 diff0 ! diffusivity (m2/s)\n      real*8 conduct0 ! thermal conductivity (Joule/m/sec/deg)\n      real*8 es ! saturation vapor pressure\n      real*8 qs ! water vapor saturation mixing ratio\n      real*8 dqsdt ! change in qs with temperature\n      real*8 gg ! thermodynamic function (m2/s)\n      real*8 sqrtg ! sqrt(gg)\n      real*8 sm(maxd_asize,maxd_atype) ! critical supersaturation for number mode radius\n      real*8 zeta, eta\n      real*8 alpha\n      real*8 gamma\n      real*8 beta\n      real*8 totn ! total aerosol number concentration\n      real*8 aten ! surface tension parameter\n      real*8 gmsm ! critical supersaturation at radius gmrad\n      real*8 sumns\n\n      real*8 alw,sqrtalw\n      real*8 smax\n      integer m,n\n\n!      mathematical constants\n      real*8 third, twothird, sixth, zero, one, two, three\n\n      real*8, parameter :: sq2  = 1.4142135624\n      real*8, parameter :: sqpi = 1.7724538509\n      real*8, parameter :: pi   = 3.1415926536\n      real*8, parameter :: nsmall = 1.0e-20    ! aer number conc in #/m3\n      real*8, parameter :: amsmall = 5.0e-9    ! aer dry radius in m\n\n      zero = 0.0\n      one = 1.0\n      two = 2.0\n      three = 3.0\n      third = 1.0/3.0\n      twothird = 2.0/3.0 !wig, 1-Mar-2009: Corrected value from 2/6\n      sixth = 1.0/6.0\n\n      rhoair = pres/(r_d*tair)\n\n      diff0=0.211e-4*(p0/pres)*(tair/t0)**1.94\n      conduct0=(5.69+0.017*(tair-t0))*4.186e2*1.e-5 ! convert to J/m/s/deg\n      es=1000.*svp1*exp( svp2*(tair-t0)/(tair-svp3) )\n      qs=ep_2*es/(pres-es)\n      dqsdt=xlv/(r_v*tair*tair)*qs\n      alpha=g*(xlv/(cp*r_v*tair*tair)-1./(r_d*tair))\n      gamma=(1+xlv/cp*dqsdt)/(rhoair*qs)\n      gg=1./(rhowater/(diff0*rhoair*qs)+xlv*rhowater/(conduct0*tair)*(xlv/(r_v*tair)-1.))\n      sqrtg=sqrt(gg)\n      beta=4.*pi*rhowater*gg*gamma\n      aten=2.*surften/(r_v*tair*rhowater)\n\n      totn=1.d-30\n      sumns=1.d-30\n      do n=1,ntype_aer\n      do m=1,nsize_aer(n)\n!      internal mixture of aerosols\n\n         if (am(m,n).gt.amsmall .and. na(m,n).gt.nsmall) then\n!            sectional model.\n!            need to use bulk properties because parameterization doesn't\n!            work well for narrow bins.\n         totn=totn+na(m,n)\n\n         if(hygro(m,n).gt.1.d-10)then\n            sm(m,n)=2.d0*aten/(3.*am(m,n))*sqrt(aten/(3.*hygro(m,n)*am(m,n)))\n         else\n            sm(m,n)=100.d0\n         endif\n!        write(6,*)'sm,hygro,am=',sm(m,n),hygro(m,n),am(m,n)\n         else\n            sm(m,n)=1.d0\n         endif\n         sumns=sumns+na(m,n)/sm(m,n)**twothird\n      end do ! size\n      end do ! type\n\n      gmsm=totn/sumns\n      gmsm=gmsm*gmsm*gmsm\n      gmsm=sqrt(gmsm)\n\n!         write(6,*)'uniform updraft =',wbar\n\n      alw=alpha*wbar\n      sqrtalw=sqrt(alw)\n      zeta=2.*sqrtalw*aten/(3.*sqrtg)\n\n!     sectional model.\n!     use bulk properties\n      if(totn.gt.1.d-10)then\n        eta=2.d0*alw*sqrtalw/(totn*beta*sqrtg)\n      else\n        eta=1.d10\n      endif\n\n      call maxsat(zeta,eta,gmsm,smax)\n\n      maxsatout=smax\n\n      return\n      end subroutine activate\n\n!----------------------------------------------------------------------\n      subroutine maxsat(zeta,eta,gmsm,smax)\n\n!      Calculates maximum supersaturation for multiple competing aerosol\n!      sections/types.\n\n      implicit none\n\n      real*8, intent(in)  :: gmsm ! critical supersaturation for number mode radius\n      real*8, intent(in)  :: zeta, eta\n      real*8, intent(out) :: smax ! maximum supersaturation\n\n      real*8 :: g1, g2\n      real*8 thesum\n      integer n ! type index\n\n      if(zeta.gt.1.d5*eta .or. &\n        gmsm*gmsm.gt.1.d5*eta)then\n!       weak forcing. essentially none activated\n        smax=1.d-20\n      else\n!       significant activation of this mode. calc activation all modes.\n        go to 1\n      endif\n\n      return\n\n  1   continue\n\n      thesum=0.d0\n      if(eta.gt.1.d-20)then\n        g1=sqrt(zeta/eta)\n        g1=g1*g1*g1\n        g2=gmsm/sqrt(eta+3.d0*zeta)\n        g2=sqrt(g2)\n        g2=g2*g2*g2\n        thesum=thesum + (0.5d0*g1 + g2)/(gmsm*gmsm)\n      else\n        thesum=1.d20\n      endif\n\n      smax=1./sqrt(thesum)\n\n      return\n\n      end subroutine maxsat\n!----------------------------------------------------------------------\n\nEND MODULE apm_mixactivate\n#endif\n"
  },
  {
    "path": "APM/apm_nucl_mod.F",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: apm_nucl_mod\n!\n! !DESCRIPTION: Module APM\\_NUCL\\_MOD contains variables and routines for \n!  computing nucleation rates and ionization rates.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      MODULE APM_NUCL_MOD\n!\n! !USES:\n!\n      IMPLICIT NONE\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!  \n      PUBLIC  :: IONRATE0\n\n!APM2+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n      PUBLIC :: IONRATE\n!APM2+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n      PRIVATE :: READIONRATE\n      PRIVATE :: IONSOIL\n      PRIVATE :: GEO2MAGLAT\n!\n! !REVISION HISTORY: \n!  28 Sep 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! ! DEFINED PARAMETERS:\n!\n      ! MC     : Number of points in H2SO4 concentration dimension\n      ! MT     : Number of points in temperature dimension\n      ! MRH    : Number of points in relative humidity dimension\n      ! MQ     : Number of points in ionization rate dimension\n      ! MS     : Number of points in surface area dimension\n      INTEGER, PARAMETER   :: MC  = 31\n      INTEGER, PARAMETER   :: MT  = 57\n      INTEGER, PARAMETER   :: MRH = 51\n      INTEGER, PARAMETER   :: MQ  = 18\n      INTEGER, PARAMETER   :: MS  = 12\n!\n! !LOCAL VARIABLES:\n!\n      ! C      : Values at points in H2SO4 concentration dimension\n      ! T      : Values at points in temperature dimension\n      ! RH     : Values at points in relative humidity dimension\n      ! Q      : Values at points in ionization rate dimension\n      ! S      : Values at points in surface area dimension\n      ! XJIMN  : ion-mediated nucleation rates (cm-3s-1) \n      !           at all points in 5-d space\n      ! XRSTAR : Critical radius (nm) at all points in 5-dimension space\n      REAL*8               :: C(MC)\n      REAL*8               :: RH(MRH)\n      REAL*8               :: T(MT)\n      REAL*8               :: Q(MQ)\n      REAL*8               :: S(MS)\n      REAL*8               :: XJIMN8(MC)\n      REAL               :: XJIMN(MC,MRH,MT,MQ,MS)    \n      REAL*8               :: XRSTAR(MC,MRH,MT)\n \n      ! Data directory\n      CHARACTER(LEN=255)   :: DATA_DIR_1x1\n\n      CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ionrate0 \n!\n! !DESCRIPTION: Subroutine IONRATE calculate ionization rate \n!  (ZQ: ion-pairs/cm3s) for given surface type, longitude (in degree), \n!  latitude (in degree), and pressure (mb).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE IONRATE0(DATA_DIR_1x1a,IY,ISURF,YPSURF,XLON,XLAT,XP,ZQ)\n!\n! !INPUT PARAMETERS: \n!\n      INTEGER   :: IY\n      INTEGER   :: ISURF    ! Surface type (1=land, 0=ocean, ice, and snow)\n      REAL*8    :: YPSURF   ! Surface pressure [hPa]\n      REAL*8    :: XLON     ! Longitude [degrees]\n      REAL*8    :: XLAT     ! Latitude [degrees]\n      REAL*8    :: XP       ! Grid box pressure [hPa], from 5-1015 hPa\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL*8    :: ZQ       ! Ionization rate [ion pairs/cm3/s]\n!\n! !REMARKS:\n!  Written by Fangqun Yu and Gan Luo, SUNY-Albany, 2010 \n!  (yfq@asrc.cestm.albany.edu)\n!                                                                             .\n!  Ionization lookup table\n!  YQ(1,1):    Q for maglat = 0,  p = 5 mb\n!  YQ(91,203): Q for maglat = 90, p = 1015 mb\n!  YQ(L,K):    Q for maglat = L-1,p = K*5 mb\n! \n! !REVISION HISTORY: \n!  28 Sep 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n\n      CHARACTER(LEN=255)  :: DATA_DIR_1x1a    ! Data directory\n      INTEGER       :: L, K\n      REAL*8        :: MAGLAT, XMAGLAT, YPR, YQSOIL\n      REAL*8,  SAVE :: YQ(91,203)  \n      LOGICAL, SAVE :: FIRST = .TRUE.\n!\n! Read in the ionization rate lookup table\n!\n      IF(FIRST) THEN\n         CALL READIONRATE(DATA_DIR_1x1a,IY,YQ)\n         FIRST = .FALSE.\n      ENDIF\n!\n! Find the magnetic latitude based on (LON, LAT)\n\n      CALL GEO2MAGLAT(XLAT,XLON,XMAGLAT)\n      MAGLAT= abs(XMAGLAT) !  magnetic latitude in degree\n\n      L = INT(MAGLAT+0.5) + 1\n      K = MIN(MAX(INT(XP/5.+0.5),1),203)\n      ZQ = YQ(L,K)   ! GCR ionization rate from the lookup table\n\n      IF(ISURF.EQ.1) THEN  ! Contribution from radioactive material from soil\n        CALL IONSOIL(XP,YPSURF,YQSOIL)\n      ELSE\n        YQSOIL = 0.\n      ENDIF\n!      WRITE(6,101)XLON,XLAT,XMAGLAT,XP, L, K,YQSOIL,ZQ\n\n      ZQ = ZQ + YQSOIL\n 101  FORMAT(4F7.1, I4, I4, 2F7.1)\n      RETURN\n      END SUBROUTINE IONRATE0\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: readionrate\n!\n! !DESCRIPTION: Read pre-calculated GCR ionization rate lookup table\n!  The lookup table is generated based on the scheme given in\n!  Usoskin and Kovaltsov (2006).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE READIONRATE(DATA_DIR_1x1a,IY, YQ )\n\n      CHARACTER(LEN=255)  :: DATA_DIR_1x1a    ! Data directory\n      INTEGER   :: IY\n!\n! !OUTPUT PARAMETERS:\n!\n      ! YQ: ionization rate in ion-pairs/cm3s\n      ! maglat is magnitude latitude in degree\n      REAL*8 :: YQ(91,203) \n!\n! !REMARKS:\n!  YQ(1,1):    Q for maglat = 0,  p = 5 mb\n!  YQ(91,203): Q for maglat = 90, p = 1015 mb\n!  YQ(L,K):    Q for maglat = L-1,p = K*5 mb\n! \n! !REVISION HISTORY: \n!  28 Sep 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER   :: L, K, KP\n      CHARACTER*999 YPATH\n\n      WRITE(6,*)\"Read in the ionization rate lookup table\"\n      DATA_DIR_1x1= DATA_DIR_1x1a\n      YPATH = TRIM(DATA_DIR_1x1)//'/APM_data_201906/APMTABLES/'\n      CLOSE(30)\n      WRITE(6,*)\"YPATH: \",TRIM(YPATH)\n      IF(IY.EQ.1) THEN\n       OPEN(30,file=TRIM(YPATH)//'YIONRATE1996.txt',status='old')\n       WRITE(6,*) \"READ YIONRATE1996.txt\"\n      ELSEIF(IY.EQ.-1)THEN\n       OPEN(30,file=TRIM(YPATH)//'YIONRATE1989.txt',status='old')\n       WRITE(6,*) \"READ YIONRATE1989.txt\"\n      ELSE\n       OPEN(30,file=TRIM(YPATH)//'YIONRATE.txt',status='old')\n       WRITE(6,*) \"READ YIONRATE.txt\"\n      ENDIF\n      READ(30,*)   ! first line is magnetic latitude in degree\n      DO K=1,203      ! KP is pressure in mb, YQ in ion-pairs/cm3s\n         READ(30,100)KP,(YQ(L,K),L=1,91)\n      ENDDO\n 100  FORMAT(I5,91F6.2)\n      CLOSE(30)\n      RETURN\n      END SUBROUTINE READIONRATE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ionsoil\n!\n! !DESCRIPTION: Calculate ionization rate (ion-pairs/cm3s) due to Gama rays, \n!  Radon (over land)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE IONSOIL( YPR, YPSURF, YQSOIL )\n!\n! !INPUT PARAMETERS: \n!\n      REAL*8    :: YPR\n      REAL*8    :: YPSURF\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL*8    :: YQSOIL\n!\n! !REVISION HISTORY: \n!  28 Sep 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      INTEGER, PARAMETER   :: MAXH = 21\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER   :: IH, K\n      REAL*8    :: XH0, XH, YQ, YQGAMA, YQRADON\n      REAL*8    :: YH(MAXH), QGAMA(MAXH), QRADON(MAXH)\n      REAL*8    :: MAGLAT\n      REAL*8    :: XHSURF\n\n      DATA (YH(k),k=1,21)/0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0, ! in km\n     &                    2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,15.0/\n      DATA (QGAMA(k),k=1,21)/4.5,1.25,0.21,0.0,0.0,0.0,0.0,0.0,0.0,\n     &              0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0/\n      DATA (QRADON(k),k=1,21)/3.5,3.24,3.0,2.65,2.43,2.19,1.84,1.36,\n     &                        0.97, 0.74,0.56,0.13,\n     &                        0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0/\n\n! Get altitude (km) from pressure (YPR in mb) based on standard atmosphere\n!\n      XH0 = 44.3308 - 4.94654*(100.*YPR)**0.190264   ! convert press to alt (km)\n! Surface height\n      XHSURF = 44.3308 - 4.94654*(100.*YPSURF)**0.190264  \n\n      XH = XH0 - XHSURF\n\n\n      IF(XH.LT.5) THEN   ! over land, no gama and radon above 5 km\n         IF(XH.LT.1) THEN\n            IH = INT(XH*10.)+1\n         ELSE\n            IH = 10.+INT(XH)\n         ENDIF\n\n         IH=MIN(IH,20)\n         IH=MAX(IH,1)\n\n         YQGAMA=QGAMA(IH)+(XH-YH(IH))*(QGAMA(IH+1)-QGAMA(IH))\n         YQRADON=QRADON(IH)+(XH-YH(IH))*(QRADON(IH+1)-QRADON(IH))\n         YQSOIL = YQGAMA + YQRADON\n!         WRITE(6,*)XH0,XHSURF, IH,YQGAMA,YQRADON\n      ELSE \n         YQSOIL = 0.\n      ENDIF\n\n      END SUBROUTINE IONSOIL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: geo2maglat\n!\n! !DESCRIPTION: Subroutine GEO2MAGLAT finds magnetic latitude from geo \n!  latitude and longitude.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE GEO2MAGLAT( LAT0, LON0, MAGLAT )\n!\n! !INPUT PARAMETERS: \n!\n      REAL*8 :: lat0     ! Geographic latitude [degrees]\n      REAL*8 :: lon0     ! Geographic longitude [degrees]\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL*8 :: maglat   ! Magnetic latitude [degrees]\n! \n! !REVISION HISTORY: \n!  28 Sep 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      REAL*8 :: yz,yp,yx,yy,PI,YD2R,YGLA,YGLO\n      REAL*8 :: az,ap,ax,ay,dot,theta,lon,lat\n\n      PI = 3.1415926\n      YD2R = PI/180.\n       \n      YGLA = 80.*YD2R              ! magnetic dipole north pole latitude\n      YGLO = -110.*YD2R            ! magnetic dipole north pole longitude\n      \n      lat = lat0 * YD2R\n      lon = lon0 * YD2R\n      \n      yz = sin(YGLA)\n      yp = cos(YGLA)\n      yx = yp * cos(YGLO)\n      yy = yp * sin(YGLO)\n      \n      az = sin(lat)\n      ap = cos(lat)\n      ax = ap * cos(lon)\n      ay = ap * sin(lon)\n      dot = ax*yx + ay*yy + az*yz\n      theta = acos(dot)            ! theta is the magnetic \n                                   ! colatitude of the point a\n      \n      maglat = (PI/2.-theta)/YD2R\n       \n      END SUBROUTINE GEO2MAGLAT\n\n\n! APM2+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n      subroutine IONRATE(DATA_DIR_1x1a,\n     &                   ISURF,XLON,XLAT,YPR,IYEAR,IMONTH,YQ)\n\n!******************************************************************************\n! Subroutine IONRATE calculate ionization rate (YQ: ion-pairs/cm3s) for given \n! surface type,longitude (in degree), latitude (in degree), pressure (mb), year,\n! month  (fyu, 2006; updated 2008)\n\n      CHARACTER(LEN=255)  :: DATA_DIR_1x1a    ! Data directory\n      INTEGER, PARAMETER   :: MAXH = 21\n      INTEGER   :: ISURF, IYEAR, IMONTH, IH, K\n      REAL*8    :: XLAT, XLON, YPR, XH, YQ, YQGAMA, YQRADON, YQGCR\n      REAL*8    :: YH(MAXH), QGAMA(MAXH), QRADON(MAXH)\n\n! Ionuzation rate (ion-pairs/cm3s) due to Gama rays, Radon (over land)\n!\n      DATA (YH(k),k=1,21)/0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0, ! in km\n     &                    2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,15.0/\n      DATA (QGAMA(k),k=1,21)/4.5,1.25,0.21,0.0,0.0,0.0,0.0,0.0,0.0,\n     &              0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0/\n      DATA (QRADON(k),k=1,21)/3.5,3.24,3.0,2.65,2.43,2.19,1.84,1.36,\n     &                        0.97, 0.74,0.56,0.13,\n     &                        0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0/\n\n! Get altitude (km) from pressure (YPR in mb) based on standard atmosphere\n!\n      XH = 44.3308 - 4.94654*(100.*YPR)**0.190264   ! convert press to alt (km)\n\n      CALL IONGCR(DATA_DIR_1x1a,XLON,XLAT,YPR,IYEAR,IMONTH,YQGCR)\n\n      IF(ISURF.EQ.1.and.XH.LT.5) THEN   ! over land, no gama and radon above 5 km\n         IF(XH.LT.1) THEN\n            IH = INT(XH*10.)+1\n         ELSE\n            IH = 10.+INT(XH)\n         ENDIF\n\n         !bug gan luo fixed\n         IH=MIN(IH,20)\n         IH=MAX(IH,1)\n\n         YQGAMA=QGAMA(IH)+(XH-YH(IH))*(QGAMA(IH+1)-QGAMA(IH))\n         YQRADON=QRADON(IH)+(XH-YH(IH))*(QRADON(IH+1)-QRADON(IH))\n         YQ = YQGCR + YQGAMA + YQRADON\n      ELSE  ! over ice or water\n         YQ = YQGCR\n      ENDIF\n\n      end subroutine IONRATE\n!------------------------------------------------------------------------------\n\n       subroutine  IONGCR(DATA_DIR_1x1a,lon,lat,airdin,year,month,qout)\n\n!******************************************************************************\n! Subroutine IONGCR is to obtain ionization induced by cosmic ray based on \n! Usoskin and Kovaltsov, JGR,111,D21206, 2006. Coded by Gan Luo, ASRC, Albany, \n! NY, 2006-11-20 (Thanks to professor Fangqun Yu and Dr Usoskin)\n!\n! Input: longitude (degree), latitude (degree), \n!       atmospheric depth (or pressure, in mb), \n!       month and year\n! Output: cosmic ray induced ionization (ion-pairs/cm3s)\n!\n! Modified by fyu, 11/26/2006, 2008\n\n       CHARACTER(LEN=255)  :: DATA_DIR_1x1a    ! Data directory\n       LOGICAL, SAVE    :: FIRST = .TRUE.\n       integer :: i,j,k,t,im,jy\n       integer :: year, month\n       \n       real*8 :: lon,lat,maglat,cosmiclat,airdin,airout,ev\n       real*8 :: pc,tforp,tfora,pt1,pt2,tnew1,tnew2,yxt_pad(9), \n     &            yxt_aad(9)\n       real*8 :: jlisp1,jlisp2,jlisa1,jlisa2,partp1,partp2,parta1,\n     &           parta2\n       real*8 :: qforp,qfora,qout\n\n       REAL*8, SAVE :: cosmic(14,55)\n\n       real*8 :: aird(21),airro(21),tvalue(9),\n     &           yxt_p(21,9),yxt_a(21,9)\n\n!***********************************************************************\n       data (aird(k),k=1,21)/25.,75.,125.,175.,225.,275.,325.,375.,425.,\n     &    475.,525.,575.,625.,675.,725.,775.,825.,875.,925.,975.,1025./\n\n       data (airro(k),k=1,21)/3.80E-05,1.20E-04,2.00E-04,2.70E-04,\n     &  3.50E-04,4.20E-04,4.80E-04,\n     &  5.40E-04,5.90E-04,6.50E-04,7.10E-04,7.60E-04,8.20E-04,8.70E-04,\n     &  9.20E-04,9.70E-04,1.00E-03,1.10E-03,1.10E-03,1.20E-03,1.20E-03/\n\n       data (tvalue(t),t=1,9)/0.1,0.3,1.,3.,10.,30.,100.,300.,1000./\n\n       data ((yxt_p(k,t),t=1,9),k=1,21)/\n     & 3.40E+02,4.10E+05,4.60E+05,6.00E+05,1.30E+06,2.30E+06,4.90E+06,\n     & 8.50E+06,1.50E+07,9.80E+01,4.30E+04,3.30E+05,6.30E+05,1.80E+06,\n     & 4.20E+06,1.00E+07,2.30E+07,5.70E+07,5.00E+01,4.40E+03,2.10E+05,\n     & 5.20E+05,1.60E+06,4.40E+06,1.20E+07,2.90E+07,8.30E+07,2.00E+01,\n     & 2.50E+03,1.30E+05,4.00E+05,1.30E+06,3.80E+06,1.10E+07,3.00E+07,\n     & 9.30E+07,7.90E+00,1.40E+03,7.40E+04,2.90E+05,9.90E+05,3.10E+06,\n     & 9.90E+06,2.80E+07,9.20E+07,4.90E+00,8.50E+02,4.10E+04,2.10E+05,\n     & 7.30E+05,2.40E+06,8.10E+06,2.40E+07,8.20E+07,2.00E+00,4.90E+02,\n     & 2.10E+04,1.50E+05,5.30E+05,1.80E+06,6.30E+06,2.00E+07,6.90E+07,\n     & 8.10E-01,2.90E+02,1.10E+04,1.00E+05,3.70E+05,1.40E+06,5.00E+06,\n     & 1.60E+07,5.70E+07,3.10E-01,1.80E+02,6.20E+03,7.20E+04,2.60E+05,\n     & 1.00E+06,3.90E+06,1.30E+07,4.50E+07,0.00E+00,1.10E+02,3.90E+03,\n     & 5.00E+04,1.90E+05,7.40E+05,3.10E+06,1.10E+07,3.70E+07,0.00E+00,\n     & 6.30E+01,2.60E+03,3.50E+04,1.40E+05,5.60E+05,2.40E+06,8.50E+06,\n     & 2.90E+07,0.00E+00,3.80E+01,1.50E+03,2.40E+04,9.80E+04,4.40E+05,\n     & 1.90E+06,6.90E+06,2.40E+07,0.00E+00,1.80E+01,1.10E+03,1.60E+04,\n     & 7.20E+04,3.50E+05,1.60E+06,5.70E+06,2.00E+07,0.00E+00,1.30E+01,\n     & 7.30E+02,1.00E+04,5.30E+04,2.70E+05,1.30E+06,4.70E+06,1.70E+07,\n     & 0.00E+00,6.30E+00,4.20E+02,6.90E+03,3.80E+04,2.20E+05,1.10E+06,\n     & 3.90E+06,1.40E+07,0.00E+00,5.00E+00,3.10E+02,5.10E+03,2.90E+04,\n     & 1.80E+05,9.30E+05,3.40E+06,1.20E+07,0.00E+00,4.90E+00,1.80E+02,\n     & 3.00E+03,2.10E+04,1.50E+05,8.30E+05,3.00E+06,1.00E+07,0.00E+00,\n     & 1.20E+00,1.10E+02,1.70E+03,1.40E+04,1.30E+05,7.30E+05,2.60E+06,\n     & 9.10E+06,0.00E+00,2.30E+00,9.90E+01,1.70E+03,1.20E+04,1.10E+05,\n     & 6.60E+05,2.40E+06,8.10E+06,0.00E+00,8.90E-01,6.00E+01,8.00E+02,\n     & 9.00E+03,9.60E+04,6.00E+05,2.20E+06,7.30E+06,0.00E+00,1.80E-01,\n     & 6.80E+01,7.00E+02,7.40E+03,8.50E+04,5.50E+05,2.00E+06,6.70E+06/\n       \n       data ((yxt_a(k,t),t=1,9),k=1,21)/\n     & 1.00E+03,3.70E+05,4.10E+05,5.80E+05,1.30E+06,2.50E+06,5.50E+06,\n     & 8.60E+06,2.20E+07,3.40E+02,3.50E+04,3.00E+05,6.20E+05,1.90E+06,\n     & 4.60E+06,1.20E+07,2.70E+07,6.80E+07,1.60E+02,9.90E+03,1.90E+05,\n     & 5.30E+05,1.80E+06,4.80E+06,1.40E+07,3.50E+07,9.60E+07,6.50E+01,\n     & 5.60E+03,1.30E+05,4.10E+05,1.40E+06,4.20E+06,1.30E+07,3.70E+07,\n     & 1.10E+08,2.80E+01,3.40E+03,7.80E+04,3.10E+05,1.10E+06,3.40E+06,\n     & 1.10E+07,3.50E+07,1.00E+08,2.40E+01,2.00E+03,4.70E+04,2.20E+05,\n     & 7.50E+05,2.60E+06,8.90E+06,3.10E+07,9.70E+07,1.40E+01,1.20E+03,\n     & 2.80E+04,1.60E+05,5.50E+05,2.00E+06,6.90E+06,2.60E+07,8.30E+07,\n     & 2.90E+00,7.50E+02,1.70E+04,1.10E+05,3.90E+05,1.50E+06,5.30E+06,\n     & 2.00E+07,6.80E+07,1.90E+00,4.60E+02,1.20E+04,8.00E+04,2.80E+05,\n     & 1.10E+06,4.10E+06,1.60E+07,5.40E+07,1.10E+00,2.80E+02,7.80E+03,\n     & 5.30E+04,2.00E+05,8.50E+05,3.10E+06,1.20E+07,4.20E+07,5.70E-01,\n     & 1.80E+02,5.00E+03,3.70E+04,1.40E+05,6.40E+05,2.50E+06,9.90E+06,\n     & 3.30E+07,2.30E-01,1.00E+02,2.80E+03,2.40E+04,1.00E+05,4.80E+05,\n     & 2.00E+06,8.00E+06,2.60E+07,9.20E-03,7.70E+01,2.10E+03,1.80E+04,\n     & 7.90E+04,3.80E+05,1.60E+06,6.50E+06,2.10E+07,0.00E+00,3.70E+01,\n     & 1.50E+03,1.20E+04,5.00E+04,2.80E+05,1.40E+06,5.40E+06,1.70E+07,\n     & 0.00E+00,2.00E+01,6.60E+02,7.40E+03,3.60E+04,2.30E+05,1.10E+06,\n     & 4.60E+06,1.40E+07,0.00E+00,1.60E+01,6.30E+02,5.50E+03,3.00E+04,\n     & 1.80E+05,9.70E+05,4.00E+06,1.20E+07,0.00E+00,8.20E+00,4.40E+02,\n     & 4.10E+03,1.90E+04,1.50E+05,8.60E+05,3.40E+06,1.00E+07,0.00E+00,\n     & 9.00E+00,2.50E+02,2.40E+03,1.40E+04,1.30E+05,7.50E+05,3.00E+06,\n     & 8.80E+06,0.00E+00,6.70E+00,1.80E+02,1.70E+03,1.10E+04,1.10E+05,\n     & 6.60E+05,2.70E+06,7.80E+06,0.00E+00,3.60E+00,8.10E+01,1.10E+03,\n     & 7.70E+03,9.80E+04,6.10E+05,2.50E+06,7.10E+06,0.00E+00,1.70E+00,\n     & 4.70E+01,1.20E+03,6.40E+03,8.80E+04,5.70E+05,2.30E+06,6.50E+06/\n       \n!***********************************************************************\n\n       IF(FIRST) THEN\n         close(100)\n         OPEN(100,\n     & FILE=TRIM(DATA_DIR_1x1a)//'/APM_data_201906/Phi_mon.txt')\n         do j=1,55\n            read(100,*)(cosmic(i,j),i=1,14)\n         enddo\n         close(100)\n         FIRST = .FALSE.\n       ENDIF\n       \n!ev=cosmic(14,40)/1000.0 !modulation potential (i,j) i=month+1;j=year-1949\n\n       im = month + 1\n       jy = year -1949\n\n       IF(JY.GT.55) JY = 55 ! current scheme only valid for 1950 - 2004\n       IF(JY.LT.1) JY = 1 ! current scheme only valid for 1950 - 2004\n\n       ev=cosmic(im,jy)/1000.0 !modulation potential (i,j) i=month+1;j=year-1949\n\n       do k=1,20\n        if(airdin>aird(k).and.airdin<=aird(k+1))then\n         do t=1,9\n          yxt_pad(t)=yxt_p(k,t)+(airdin-aird(k))\n     &      *(yxt_p((k+1),t)-yxt_p(k,t))/(aird(k+1)-aird(k))\n          yxt_aad(t)=yxt_a(k,t)+(airdin-aird(k))\n     &      *(yxt_a((k+1),t)-yxt_a(k,t))/(aird(k+1)-aird(k))\n         enddo\n         airout=airro(k)+(airdin-aird(k))\n     &      *(airro(k+1)-airro(k))/(aird(k+1)-aird(k))\n        endif\n       enddo\n       if(airdin<=aird(1))then\n        do t=1,9\n         yxt_pad(t)=yxt_p(1,t)\n         yxt_aad(t)=yxt_a(1,t)\n        enddo\n        airout=airro(1)\n       endif\n       if(airdin>aird(21))then\n        do t=1,9\n         yxt_pad(t)=yxt_p(21,t)\n         yxt_aad(t)=yxt_a(21,t)\n        enddo\n        airout=airro(21)\n       endif\n       \n       call geo2maglat(lat,lon,maglat)\n\n       cosmiclat=3.14159265*maglat/180.0\n       \n       pc=1.9*7.8*(cos(cosmiclat)*cos(cosmiclat)\n     &      *cos(cosmiclat)*cos(cosmiclat))\n\n       tforp=sqrt(pc*pc+0.938*0.938)-0.938\n       tfora=sqrt(0.25*pc*pc+0.938*0.938)-0.938\n!***********************************************************************\n       qforp=0.0\n       qfora=0.0\n       qout=0.0\n       \n       do t=1,8\n\n        if(tvalue(t+1)>=tforp)then\n\n         if(tvalue(t)<tforp)then\n          tnew1=tforp+ev\n         else\n          tnew1=tvalue(t)+ev\n         endif\n         tnew2=tvalue(t+1)+ev\n       \n         pt1=sqrt(tnew1*(tnew1+2.0*0.938))\n         pt2=sqrt(tnew2*(tnew2+2.0*0.938))\n       \n         jlisp1=1.9*(pt1**(-2.78))/(1.0+0.4866*(pt1**(-2.51)))\n         jlisp2=1.9*(pt2**(-2.78))/(1.0+0.4866*(pt2**(-2.51)))\n\n         if(tvalue(t)<tforp)then\n          partp1=tforp*(tforp+2.0*0.938)/(tnew1*(tnew1+2.0*0.938))\n         else\n          partp1=tvalue(t)*(tvalue(t)+2.0*0.938)\n     &                    /(tnew1*(tnew1+2.0*0.938))\n         endif\n         partp2=tvalue(t+1)*(tvalue(t+1)+2.0*0.938)\n     &                   /(tnew2*(tnew2+2.0*0.938))\n       \n         if(tvalue(t)<tforp)then\n          qforp=qforp+0.5*(jlisp2*partp2*yxt_pad(t+1)+jlisp1*partp1\n     &        *(yxt_pad(t)+(tforp-tvalue(t))*(yxt_pad(t+1)-yxt_pad(t))\n     &        /(tvalue(t+1)-tvalue(t))))*(tvalue(t+1)-tforp)\n         else\n          qforp=qforp+0.5*(jlisp2*partp2*yxt_pad(t+1)+jlisp1*partp1\n     &           *yxt_pad(t))*(tvalue(t+1)-tvalue(t))\n         endif\n       \n        endif\n\n        if(tvalue(t+1)>=tfora)then\n       \n         if(tvalue(t)<tfora)then\n          tnew1=tfora+ev*0.5\n         else\n          tnew1=tvalue(t)+ev*0.5\n         endif\n         tnew2=tvalue(t+1)+ev*0.5\n\n         pt1=sqrt(tnew1*(tnew1+2.0*0.938))\n         pt2=sqrt(tnew2*(tnew2+2.0*0.938))\n\n         jlisa1=0.1425*(pt1**(-2.78))/(1.0+0.4866*(pt1**(-2.51)))\n         jlisa2=0.1425*(pt2**(-2.78))/(1.0+0.4866*(pt2**(-2.51)))\n\n         if(tvalue(t)<tfora)then\n          parta1=tfora*(tfora+2.0*0.938)/(tnew1*(tnew1+2.0*0.938))\n         else\n          parta1=tvalue(t)*(tvalue(t)+2.0*0.938)\n     &                   /(tnew1*(tnew1+2.0*0.938))\n         endif\n         parta2=tvalue(t+1)*(tvalue(t+1)+2.0*0.938)\n     &                    /(tnew2*(tnew2+2.0*0.938))\n\n         if(tvalue(t)<tfora)then\n          qfora=qfora+0.5*(jlisa2*parta2*yxt_aad(t+1)+jlisa1*parta1*\n     &    (yxt_aad(t)+(tfora-tvalue(t))*(yxt_aad(t+1)-yxt_aad(t))\n     &      /(tvalue(t+1)-tvalue(t))))*(tvalue(t+1)-tfora)\n         else\n          qfora=qfora+0.5*(jlisa2*parta2*yxt_aad(t+1)+jlisa1\n     &      *parta1*yxt_aad(t))*(tvalue(t+1)-tvalue(t))\n         endif\n       \n        endif\n\n       enddo\n\n!***********************************************************************\n       qout=(qforp+qfora)*airout !GCR induced ionization (ion pairs cm-3 sec-1)\n!qout=(qforp+qfora) !cosmic ray induced ionization (ion pairs g-1 sec-1)\n\n\n       end subroutine  IONGCR\n!------------------------------------------------------------------------------\n\n!\nC\n!EOC\n      END MODULE APM_NUCL_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_opti_mod.F",
    "content": "#ifdef APM\n!************************************************************************\n! This is the module to calculate aerosol optical properties based on\n! APM simulated particle size distribution, composition, and mixing state.\n! Designed and written by\n! Fangqun Yu\n! SUNY-Albany\n! 09/2010-03/2011\n!************************************************************************\n      MODULE APM_OPTI_MOD\n        \n      implicit none\n       \n      ! Make everything PRIVATE ... \n      PRIVATE\n      \n      ! ... except these variables ...\n!      PUBLIC ::\n \n      ! ... and these routines\n      PUBLIC :: READOPTABLE, READOPTABLE_LW\n      PUBLIC :: APM_OPT, APM_OPT_LW\n      PUBLIC :: OPTABLE1,OPTABLE2,OPTABLE3   !for comp only\n\n      !=================================================================\n      ! MODULE VARIABLES\n      !=================================================================\n      ! Parameters\n!      integer,parameter :: MWL ! Num of  wavelength across solar spectrum\n!      integer,parameter :: MDC#  ! Num of Dcore\n!      integer,parameter :: MDS  ! Num of Dshell\n!      integer,parameter :: MSR  ! Num of real part of shell refindx\n\n      INTEGER, PARAMETER   :: MWL=16,MSR=6,MSI=17  !wavelength,real refindx, imag refindx\n!YuNB      INTEGER, PARAMETER   :: MDC1=1, MDC2=21, MDC3=31 !Dcores for type 1, 2, 3\n!YuNB      INTEGER, PARAMETER   :: MDS1=31, MDS2=32, MDS3=32 !Dshell for type 1, 2, 3\n      INTEGER, PARAMETER   :: MDC1=1, MDC2=21, MDC3=61 !Dcores for type 1, 2, 3\n      INTEGER, PARAMETER   :: MDS1=91, MDS2=32, MDS3=17 !Dshell for type 1, 2, 3\n\n\n      real*8 :: RESR, RESI\n      real*8 :: RESC1,RESC2,RESC3,RESS1,RESS2,RESS3\n\n      ! Arrays\n      real*8 :: WAVL(MWL),RSR(MSR),RSI(MSI)\n      real*8 :: DC1(MDC1),DC2(MDC2),DC3(MDC3)\n      real*8 :: DS1(MDS1),DS2(MDS2),DS3(MDS3)\n\n      real*8 :: OPT1EXT(MWL,MDS1,MSR,MSI),OPT1W(MWL,MDS1,MSR,MSI)\n      real*8 :: OPT1G(MWL,MDS1,MSR,MSI)\n\n      real*8 :: OPT2EXT(MWL,MDC2,MDS2,MSR,MSI)\n      real*8 :: OPT2W(MWL,MDC2,MDS2,MSR,MSI)\n      real*8 :: OPT2G(MWL,MDC2,MDS2,MSR,MSI)\n\n      real*8 :: OPT3EXT(MWL,MDC3,MDS3,MSR,MSI)\n      real*8 :: OPT3W(MWL,MDC3,MDS3,MSR,MSI)\n      real*8 :: OPT3G(MWL,MDC3,MDS3,MSR,MSI)\n\n! Longwave\n      INTEGER, PARAMETER   :: MWLL=41\n      INTEGER, PARAMETER   :: MDCLW = 31\n      real*8 :: WAVLL(MWLL),DC3LW(MDCLW)\n      real*8 :: OPT3EXT_LW(MWLL,MDCLW),OPT3W_LW(MWLL,MDCLW)   !2D for dust\n      real*8 :: OPT3G_LW(MWLL,MDCLW)\n\n      contains\n\n!************************************************************************\n      subroutine APM_OPT(ITEST,ITYPE,MBIN,XDC,XN,ZFV,NWL,WL,XBEXT,XW,XG)\n\n      INTEGER   :: ITEST, ITYPE,MBIN,NWL\n      REAL*8    :: XDC(1:MBIN),XN(1:MBIN)\n      REAL*8    :: ZFV(6)\n      REAL*8    :: WL(NWL),XBEXT(NWL),XW(NWL),XG(NWL)\n\n      REAL*8    :: XDCORE(MBIN),XDWET(MBIN)\n      REAL*8    :: XWL,BSCATSUM,BEXTSUM,GSUM,DCORE,DWET,DSHELL\n      REAL*8    :: QEXT,YW,YG,BEXT,BSCAT\n\n! REAL PART OF REF INDEX \n! (Table 1 in Aouizerats et al., 2010, 550 nm, consider wavelength dependence later`)\n      REAL*8, PARAMETER   :: ASO4 = 1.52, BSO4=5.E-4\n      REAL*8, PARAMETER   :: ANH4 = 1.52, BNH4=5.E-4\n      REAL*8, PARAMETER   :: ANO3 = 1.53, BNO3=5.E-3\n      REAL*8, PARAMETER   :: ASOA = 1.45, BSOA=1.E-3\n      REAL*8, PARAMETER   :: AH2O = 1.33, BH2O=1.8E-8\n      REAL*8, PARAMETER   :: APOC = 1.45, BPOC=1.E-3\n! Table 1.12 in Krekov 1993\n      REAL*8, PARAMETER   :: ASALT = 1.45, BSALT=1.5E-4\n\n      REAL*8    :: AS,BS,ZFVSUM\n\n      REAL*8    :: RDRY(40)\n      REAL*8, PARAMETER   :: ONEPI = 3.1415926d0\n\n      INTEGER   :: IWL,I,J\n\n      IF(ITYPE.EQ.1) THEN  !SP\n       DO I=1,MBIN\n         XDCORE(I)=XDC(I)  ! um\n!bug20120211         XDWET(I)= XDCORE(I) * (1./ZFV(1))**(1./3.)  !um\n         XDWET(I)= XDCORE(I) * (1./(ZFV(1)+ZFV(5)))**(1./3.)  !um\n         IF(ITEST.EQ.1)WRITE(1001,201)ITYPE,I,XDCORE(I), XDWET(I)\n         XDCORE(I)=0.\n       ENDDO\n       AS=ASO4*ZFV(1)+ANH4*ZFV(3)+ANO3*ZFV(4)+ASOA*ZFV(5)+AH2O*ZFV(6)\n       BS=BSO4*ZFV(1)+BNH4*ZFV(3)+BNO3*ZFV(4)+BSOA*ZFV(5)+BH2O*ZFV(6)\n      ELSEIF(ITYPE.EQ.2) THEN   !sea salt\n       DO I=1,MBIN\n         XDCORE(I)=XDC(I)  ! um\n         XDWET(I)= XDCORE(I) * (1./ZFV(1))**(1./3.)  !um\n         XDCORE(I)=0.\n       ENDDO\n       AS=ASALT*ZFV(1)+ASO4*ZFV(2)+ANH4*ZFV(3)+ANO3*ZFV(4)\n     &    +ASOA*ZFV(5)+AH2O*ZFV(6)\n       BS=BSALT*ZFV(1)+BSO4*ZFV(2)+BNH4*ZFV(3)+BNO3*ZFV(4)\n     &    +BSOA*ZFV(5)+BH2O*ZFV(6)\n      ELSEIF(ITYPE.EQ.3) THEN    !dust\n       DO I=1,MBIN\n         XDCORE(I)=XDC(I)  ! um\n         XDWET(I)= XDCORE(I) * (1./ZFV(1))**(1./3.)  !um\n       ENDDO\n       ZFVSUM = SUM(ZFV(2:6))\n       IF(ZFVSUM.LT.1.d-4) THEN\n         AS = ASO4\n         BS = BSO4\n       ELSE\n         AS=ASO4*ZFV(2)+ANH4*ZFV(3)+ANO3*ZFV(4)+ASOA*ZFV(5)+AH2O*ZFV(6)\n         BS=BSO4*ZFV(2)+BNH4*ZFV(3)+BNO3*ZFV(4)+BSOA*ZFV(5)+BH2O*ZFV(6)\n         AS=AS/ZFVSUM\n         BS=BS/ZFVSUM\n       ENDIF\n      ELSEIF(ITYPE.EQ.4) THEN  !BC\n       DO I=1,MBIN\n         XDCORE(I)=XDC(I)  ! um\n         XDWET(I)= XDCORE(I) * (1./ZFV(1))**(1./3.)  !um\n       ENDDO\n       ZFVSUM = SUM(ZFV(2:6))\n       IF(ZFVSUM.LT.1.d-4) THEN\n         AS = ASO4\n         BS = BSO4\n       ELSE\n         AS=ASO4*ZFV(2)+ANH4*ZFV(3)+ANO3*ZFV(4)+ASOA*ZFV(5)+AH2O*ZFV(6)\n         BS=BSO4*ZFV(2)+BNH4*ZFV(3)+BNO3*ZFV(4)+BSOA*ZFV(5)+BH2O*ZFV(6)\n         AS=AS/ZFVSUM\n         BS=BS/ZFVSUM\n       ENDIF\n      ELSEIF(ITYPE.EQ.5) THEN   !POC\n       DO I=1,MBIN\n         XDCORE(I)=XDC(I)  ! um\n         XDWET(I)= XDCORE(I) * (1./ZFV(1))**(1./3.)  !um\n         XDCORE(I)=0.\n       ENDDO\n       AS=APOC*ZFV(1)+ASO4*ZFV(2)+ANH4*ZFV(3)+ANO3*ZFV(4)\n     &    +ASOA*ZFV(5)+AH2O*ZFV(6)\n       BS=BPOC*ZFV(1)+BSO4*ZFV(2)+BNH4*ZFV(3)+BNO3*ZFV(4)\n     &    +BSOA*ZFV(5)+BH2O*ZFV(6)\n      ELSE\n       WRITE(6,*)\"STOP: NEED to check ITYPE\",ITYPE\n       STOP\n      ENDIF\n\n      XBEXT = 0.\n      XW = 1.\n      XG = 0.5\n      DO IWL = 1, NWL\n        XWL = WL(IWL)\n        BSCATSUM = 1.d-20\n        BEXTSUM = 1.d-20\n        GSUM = 0.5d-20\n        DO I = 1, MBIN\n         IF(XN(I).GT.1.d-5) THEN\n           DCORE = XDCORE(I)    !um\n           DWET =  XDWET(I)    !um\n           DSHELL = DWET - DCORE    !um\n\n!           IF(ITYPE.EQ.1.or.ITYPE.EQ.2.or.ITYPE.EQ.5) THEN           !SP,salt,POC\n!            IF(DSHELL.GT.20.) THEN\n!             WRITE(86,201) ITYPE,I, XDC(I), DWET, XN(I),(ZFV(J),J=1,6)\n!            ENDIF\n!           ELSE\n!            IF(DSHELL.GT.1.) THEN\n!             WRITE(86,201) ITYPE,I, XDC(I), DWET, XN(I),(ZFV(J),J=1,6)\n!            ENDIF\n!           ENDIF\n\n           IF(ITYPE.EQ.1.or.ITYPE.EQ.2.or.ITYPE.EQ.5) THEN           !SP,salt,POC\n!             CALL OPTABLE1(XWL,DCORE,DSHELL,AS,QEXT,YW,YG)\n             CALL OPTABLE1(IWL,DSHELL,AS,BS,QEXT,YW,YG)\n           ELSEIF(ITYPE.EQ.4) THEN                                   !BC\n             CALL OPTABLE2(IWL,DCORE,DSHELL,AS,BS,QEXT,YW,YG)\n           ELSEIF(ITYPE.EQ.3) THEN                                   !dust\n             CALL OPTABLE3(IWL,DCORE,DSHELL,AS,BS,QEXT,YW,YG)\n           ENDIF\n\n!           IF(YW.GT.1.) THEN\n!              WRITE(1001,*)IWL,DCORE,DSHELL,AS,BS,QEXT,YW,YG\n!           ENDIF\n           BEXT = QEXT*XN(I)*DWET*DWET*1.E-8*ONEPI/4.   !cm-1\n           BSCAT = BEXT*YW\n           BEXTSUM = BEXTSUM +  BEXT\n           BSCATSUM = BSCATSUM + BSCAT\n           GSUM = GSUM + BSCAT*YG\n         ENDIF\n        ENDDO\n        XBEXT(IWL) = BEXTSUM             ! cm-1\n        XW(IWL) = BSCATSUM/BEXTSUM\n        XG(IWL) = GSUM/BSCATSUM\n\n      ENDDO\n200   FORMAT(10(1PE10.3))\n201   FORMAT(I2,I3,10(1PE10.3))\n\n      return\n      end subroutine apm_opt\n\n!----------------------------------------------------------------------------------\n!************************************************************************\n      subroutine APM_OPT_LW(ITEST,ITYPE,MBIN,XDC,XN,NWL,WL,XBEXT,XW,XG)\n\n      INTEGER   :: ITEST, ITYPE,MBIN,NWL\n      REAL*8    :: XDC(1:MBIN),XN(1:MBIN)\n      REAL*8    :: WL(NWL),XBEXT(NWL),XW(NWL),XG(NWL)\n\n      REAL*8    :: XDCORE(MBIN),XDWET(MBIN)\n      REAL*8    :: XWL,BSCATSUM,BEXTSUM,GSUM,DCORE,DWET,DSHELL\n      REAL*8    :: QEXT,YW,YG,BEXT,BSCAT\n\n      REAL*8    :: AS,ZFVSUM\n\n      REAL*8    :: RDRY(40)\n      REAL*8, PARAMETER   :: ONEPI = 3.1415926d0\n\n      INTEGER   :: IWL,I,J\n\n       DO I=1,MBIN\n         XDCORE(I)=XDC(I)  ! um\n!         XDWET(I)= XDCORE(I) * (1./ZFV(1))**(1./3.)  !um\n       ENDDO\n\n      XBEXT = 0.\n      XW = 1.\n      XG = 0.5\n      DO IWL = 1, NWL\n        XWL = WL(IWL)\n        BSCATSUM = 1.d-20\n        BEXTSUM = 1.d-20\n        GSUM = 0.5d-20\n        DO I = 1, MBIN\n         IF(XN(I).GT.1.d-5) THEN\n           DCORE = XDCORE(I)    !um\n           DWET = DCORE\n!           DWET =  XDWET(I)    !um\n!           DSHELL = DWET - DCORE    !um\n\n           CALL OPTABLE3_LW(XWL,DCORE,QEXT,YW,YG)\n\n           BEXT = QEXT*XN(I)*DWET*DWET*1.E-8*ONEPI/4.   !cm-1 \n           BSCAT = BEXT*YW\n           BEXTSUM = BEXTSUM +  BEXT\n           BSCATSUM = BSCATSUM + BSCAT\n           GSUM = GSUM + BSCAT*YG\n         ENDIF\n        ENDDO\n        XBEXT(IWL) = BEXTSUM             ! cm-1\n        XW(IWL) = BSCATSUM/BEXTSUM\n        XG(IWL) = GSUM/BSCATSUM\n      ENDDO\n200   FORMAT(10(1PE10.3))\n201   FORMAT(I2,I3,10(1PE10.3))\n\n      return\n      end subroutine apm_opt_lw\n\n!----------------------------------------------------------------------------------\n      subroutine OPTABLE1(IWL,DSHEL,AS,BS,QEXT,YW,YG)\n!\n!\n! INPUT:\n        INTEGER :: IWL\n        REAL*8  :: DCORE,DSHEL,AS,BS\n! OUTPUT:\n        REAL*8  :: QEXT, YW, YG\n\n! Local variables\n        REAL*8  :: Y,Z,U,V\n        REAL*8  :: VOL,FRACT\n        REAL*8  :: dy1,dy2,dz1,dz2,du1,du2,dv1,dv2\n        REAL*8  :: dy,dz,du,dv\n\n        INTEGER :: IDC1,IDC2,IDS1,IDS2,ISR1,ISR2,ISI1,ISI2\n        INTEGER :: IDC, IDS, ISR,ISI\n!\n! to avoid the input values to be changed due to out of the range reset\n!\n!        X = XWL    ! um\n!        Y = DCORE    ! um\n        Z = DSHEL    ! um\n        U = AS\n        V = abs(BS)\n!\n!        IF(X.LT.WAVL(1)) THEN\n!           WRITE(86,10) X, WAVL(1), WAVL(1)\n!           X = WAVL(1)\n!        ELSEIF(X.GT.WAVL(MWL)) THEN\n!           WRITE(86,11) X, WAVL(MWL), WAVL(MWL)\n!           X =WAVL(MWL)\n!        ENDIF\n\n!        IF(Y.LT.DC1(1)) THEN\n!           WRITE(86,12) Y, DC1(1), DC1(1)\n!           Y =DC1(1) \n!        ELSEIF(Y.GT.DC1(MDC1)) THEN\n!           WRITE(86,13) Y, DC1(MDC1), DC1(MDC1)\n!           Y =DC1(MDC1)\n!        ENDIF\n\n        IF(Z.LT.DS1(1)) THEN\n!           WRITE(86,14) Z, DS1(1), DS1(1)\n           Z =DS1(1)\n        ELSEIF(Z.GT.DS1(MDS1)) THEN\n!           WRITE(86,15) Z, DS1(MDS1), DS1(MDS1)\n           Z =DS1(MDS1)\n        ENDIF\n!\n        IF(U.LT.RSR(1)) THEN\n!           WRITE(86,16) U, RSR(1), RSR(1)\n           U =RSR(1)\n        ELSEIF(U.GT.RSR(MSR)) THEN\n!           WRITE(86,17) U, RSR(MSR), RSR(MSR)\n           U =RSR(MSR)\n        ENDIF\n!\n        IF(V.LT.RSI(1)) THEN\n!           WRITE(86,18) V, RSI(1), RSI(1)\n           V =RSI(1)\n        ELSEIF(V.GT.RSI(MSI)) THEN\n!           WRITE(86,19) V, RSI(MSI), RSI(MSI)\n           V =RSI(MSI)\n        ENDIF\n!\n! 10     FORMAT(\"OPT1 WARNING: INPUTED WAVL=\",E9.3,\"<\",E9.3,\n!     &     \" set it to \",E9.3)\n! 11     FORMAT(\"OPT1 WARNING: INPUTED WAVL=\",E9.3,\">\",E9.3,\n!     &     \" set it to \",E9.3)\n! 12     FORMAT(\"OPT1 WARNING: INPUTED DCORE =\",E9.3,\"<\",E9.3,\n!     &     \" set it to \",E9.3)\n! 13     FORMAT(\"OPT1 WARNING: INPUTED DCORE =\",E9.3,\">\",E9.3,\n!     &     \" set it to \",E9.3)\n! 14     FORMAT(\"OPT1 WARNING: INPUTED DSHEL =\",E9.3,\"<\",E9.3,\n!     &     \" set it to \",E9.3)\n! 15     FORMAT(\"OPT1 WARNING: INPUTED DSHEL =\",E9.3,\">\",E9.3,\n!     &     \" set it to \",E9.3)\n! 16     FORMAT(\"OPT1 WARNING: INPUTED RSR =\",E9.3,\" <\",E9.3,\n!     &     \" set it to \",E9.3)\n! 17     FORMAT(\"OPT1 WARNING: INPUTED RSR =\",E9.3,\" >\",E9.3,\n!     &     \" set it to \",E9.3)\n! 18     FORMAT(\"OPT1 WARNING: INPUTED BS =\",E9.3,\" <\",E9.3,\n!     &     \" set it to \",E9.3)\n! 19     FORMAT(\"OPT1 WARNING: INPUTED BS =\",E9.3,\" >\",E9.3,\n!     &     \" set it to \",E9.3)\n\n!       wavmid(ns) = 0.25 * (0.55/0.25)**(float(ns-1)/4.0)\n!        IWL1 =MAX0(INT(1.+4.*LOG10(X/0.25)/LOG10(0.55/WAVL(1))),1)\n!        IWL2 = MIN0(IWL1 + 1,MWL)\n!        IF(IWL2.EQ.MWL) IWL1=MWL-1\n        \n!!        DC2(IDC) = 1.0E-2 * 10.**(float(IDC-1)/10.)\n!        IDC1 =MAX0(INT(1.+10.*LOG10(Y/DC1(1))),1)\n!        IDC2 = MIN0(IDC1 + 1,MDC1)\n!        IF(IDC2.EQ.MDC1) IDC1=MDC1-1\n\n!        DS2(IDS) = DSHELLMIN * 10.**(float(IDS-2)/RESS1), IDS>=1\n        IDS1 = MAX0(INT(1.+RESS1*LOG10(Z/DS1(1))),1)\n        IDS2 = MIN0(IDS1 + 1,MDS1)\n        IF(IDS2.EQ.MDS1) IDS1=MDS1-1\n\n!        RSR(ISR) = 1.33 + float(ISR-1)/RESR\n        ISR1 = MAX0(INT(1.+(U-RSR(1))*RESR),1)\n        ISR2 = MIN0(ISR1 + 1,MSR)\n        IF(ISR2.EQ.MSR) ISR1=MSR-1\n!\n        IF(V.LT.RSI(2)) THEN\n          ISI1 = 1\n        ELSE\n          ISI1 = MAX0(INT(2.+RESI*LOG10(V/RSI(2))),2)\n        ENDIF\n        ISI2 = MIN0(ISI1 + 1,MSI)\n        IF(ISI2.EQ.MSI) ISI1=MSI-1\n!\n!\tdx1 = X-WAVL(IWL1) \n!\tdx2 = WAVL(IWL2)-X\n!\tdy1 = Y-DC1(IDC1)\n!\tdy2 = DC1(IDC2)-Y\n\tdz1 = Z-DS1(IDS1)\n\tdz2 = DS1(IDS2)-Z\n        du1 = U - RSR(ISR1)\n        du2 = RSR(ISR2) - U\n        dv1 = V - RSI(ISI1)\n        dv2 = RSI(ISI2) - V\n!\n        QEXT = 0.\n        YW = 0.\n        YG = 0.\n!\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)\n!        VOL = (dx1+dx2)*(dz1+dz2)*(du1+du2)\n        VOL = (dz1+dz2)*(du1+du2)*(dv1+dv2)\n        DO IDS = IDS1,IDS2\n          IF(IDS.EQ.IDS1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n!      \t  DO IDC = IDC1,IDC2\n!            IF(IDC.EQ.IDC1) THEN\n!              dy = dy2\n!\t    ELSE\n!              dy = dy1\n!            ENDIF\n!            DO IWL = IWL1,IWL2\n!              IF(IWL.EQ.IWL1) THEN\n!                dx = dx2\n!\t      ELSE\n!                dx = dx1\n!              ENDIF\n\n \t      DO ISR =ISR1, ISR2\n                IF(ISR.EQ.ISR1) THEN\n                  du = du2\n\t        ELSE\n                  du = du1\n                ENDIF\n                DO ISI = ISI1, ISI2\n                 IF(ISI.EQ.ISI1) THEN\n                  dv = dv2\n                 ELSE\n                  dv = dv1\n                 ENDIF\n\n!                FRACT = dx*dy*dz*du/VOL \n!                FRACT = dx*dz*du/VOL \n                 FRACT = dz*du*dv/VOL \n                 QEXT = QEXT + FRACT*OPT1EXT(IWL,IDS,ISR,ISI)\n                 YW = YW + FRACT*OPT1W(IWL,IDS,ISR,ISI)\n                 YG = YG + FRACT*OPT1G(IWL,IDS,ISR,ISI)\n!                WRITE(6,30)IDS,ISR,ISI,OPT1EXT(IWL,IDS,ISR,ISI),\n!     &                    FRACT,\n!     &                Z,DS2(IDS1),DS2(IDS2),\n!     &                U,RSR(ISR1),RSR(ISR2),\n!     &                V,RSI(ISI1),RSI(ISI2)\n\t        ENDDO\n\t      ENDDO\n!            ENDDO\n!\t  ENDDO\n\tENDDO\n!\n!\n 30    FORMAT(I3, I3, I3,  20(1PE10.3))\n 20    FORMAT(10(1PE10.3))\n\n       RETURN\n\n       END SUBROUTINE OPTABLE1\n\n!----------------------------------------------------------------------------------\n\n      subroutine OPTABLE2(IWL,DCORE,DSHEL,AS,BS,QEXT,YW,YG)\n!\n!\n! INPUT:\n        INTEGER :: IWL\n        REAL*8  :: DCORE,DSHEL,AS,BS\n! OUTPUT:\n        REAL*8  :: QEXT, YW, YG\n\n! Local variables\n        REAL*8  :: Y,Z,U,V\n        REAL*8  :: VOL,FRACT\n        REAL*8  :: dy1,dy2,dz1,dz2,du1,du2,dv1,dv2\n        REAL*8  :: dy,dz,du,dv\n\n        INTEGER :: IDC1,IDC2,IDS1,IDS2,ISR1,ISR2,ISI1,ISI2\n        INTEGER :: IDC, IDS, ISR,ISI\n!\n! to avoid the input values to be changed due to out of the range reset\n!\n!        X = XWL    ! um\n        Y = DCORE    ! um\n        Z = DSHEL    ! um\n        U = AS\n        V = BS\n!\n!        IF(X.LT.WAVL(1)) THEN\n!           WRITE(86,10) X, WAVL(1), WAVL(1)\n!           X = WAVL(1)\n!        ELSEIF(X.GT.WAVL(MWL)) THEN\n!           WRITE(86,11) X, WAVL(MWL), WAVL(MWL)\n!           X =WAVL(MWL)\n!        ENDIF\n\n        IF(Y.LT.DC2(1)) THEN\n!           WRITE(86,12) Y, DC2(1), DC2(1)\n           Y =DC2(1)\n        ELSEIF(Y.GT.DC2(MDC2)) THEN\n!           WRITE(86,13) Y, DC2(MDC2), DC2(MDC2)\n           Y =DC2(MDC2)\n        ENDIF\n!\n        IF(Z.LT.DS2(1)) THEN\n!           WRITE(86,14) Z, DS2(1), DS2(1)\n           Z =DS2(1)\n        ELSEIF(Z.GT.DS2(MDS2)) THEN\n!           WRITE(86,15) Z, DS2(MDS2), DS2(MDS2)\n           Z =DS2(MDS2)\n        ENDIF\n!\n        IF(U.LT.RSR(1)) THEN\n!           WRITE(86,16) U, RSR(1), RSR(1)\n           U =RSR(1)\n        ELSEIF(U.GT.RSR(MSR)) THEN\n!           WRITE(86,17) U, RSR(MSR), RSR(MSR)\n           U =RSR(MSR)\n        ENDIF\n!\n        IF(V.LT.RSI(1)) THEN\n!           WRITE(86,18) V, RSI(1), RSI(1)\n           V =RSI(1)\n        ELSEIF(V.GT.RSI(MSI)) THEN\n!           WRITE(86,19) V, RSI(MSI), RSI(MSI)\n           V =RSI(MSI)\n        ENDIF\n!\n!\n! 10     FORMAT(\"OPT2 WARNING: INPUTED WAVL=\",E9.3,\"<\",E9.3,\n!     &     \" set it to \",E9.3)\n! 11     FORMAT(\"OPT2 WARNING: INPUTED WAVL=\",E9.3,\">\",E9.3,\n!     &     \" set it to \",E9.3)\n! 12     FORMAT(\"OPT2 WARNING: INPUTED DCORE =\",E9.3,\"<\",E9.3,\n!     &     \" set it to \",E9.3)\n! 13     FORMAT(\"OPT2 WARNING: INPUTED DCORE =\",E9.3,\">\",E9.3,\n!     &     \" set it to \",E9.3)\n! 14     FORMAT(\"OPT2 WARNING: INPUTED DSHEL =\",E9.3,\"<\",E9.3,\n!     &     \" set it to \",E9.3)\n! 15     FORMAT(\"OPT2 WARNING: INPUTED DSHEL =\",E9.3,\">\",E9.3,\n!     &     \" set it to \",E9.3)\n! 16     FORMAT(\"OPT2 WARNING: INPUTED RSR =\",E9.3,\" <\",E9.3,\n!     &     \" set it to \",E9.3)\n! 17     FORMAT(\"OPT2 WARNING: INPUTED RSR =\",E9.3,\" >\",E9.3,\n!     &     \" set it to \",E9.3)\n! 18     FORMAT(\"OPT1 WARNING: INPUTED BS =\",E9.3,\" <\",E9.3,\n!     &     \" set it to \",E9.3)\n! 19     FORMAT(\"OPT1 WARNING: INPUTED BS =\",E9.3,\" >\",E9.3,\n!     &     \" set it to \",E9.3)\n!\n!       wavmid(ns) = 0.25 * (0.55/0.25)**(float(ns-1)/4.0)\n!        IWL1 =MAX0(INT(1.+4.*LOG10(X/0.25)/LOG10(0.55/WAVL(1))),1)\n!        IWL2 = MIN0(IWL1 + 1,MWL)\n!        IF(IWL2.EQ.MWL) IWL1=MWL-1\n        \n!        DC2(IDC) = 1.0E-2 * 10.**(float(IDC-1)/10.)\n        IDC1 =MAX0(INT(1.+RESC2*LOG10(Y/DC2(1))),1)\n        IDC2 = MIN0(IDC1 + 1,MDC2)\n        IF(IDC2.EQ.MDC2) IDC1=MDC2-1\n\n!        DS2(1) =0.\n!        DS2(IDS) = DSHELLMIN * 10.**(float(IDS-2)/10.), IDS>1\n        IF(Z.LT.DS2(2)) THEN\n          IDS1 =1\n        ELSE\n          IDS1 = MAX0(INT(2.+RESS2*LOG10(Z/DS2(2))),2)\n        ENDIF\n        IDS2 = MIN0(IDS1 + 1,MDS2)\n        IF(IDS2.EQ.MDS2) IDS1=MDS2-1\n\n!        RSR(ISR) = 1.33 + float(ISR-1)*0.01\n        ISR1 = MAX0(INT(1.+(U-RSR(1))*RESR),1)\n        ISR2 = MIN0(ISR1 + 1,MSR)\n        IF(ISR2.EQ.MSR) ISR1=MSR-1\n\n!\n        IF(V.LT.RSI(2)) THEN\n          ISI1 = 1\n        ELSE\n          ISI1 = MAX0(INT(2.+RESI*LOG10(V/RSI(2))),2)\n        ENDIF\n        ISI2 = MIN0(ISI1 + 1,MSI)\n        IF(ISI2.EQ.MSI) ISI1=MSI-1\n!\n!\tdx1 = X-WAVL(IWL1) \n!\tdx2 = WAVL(IWL2)-X\n\tdy1 = Y-DC2(IDC1)\n\tdy2 = DC2(IDC2)-Y\n\tdz1 = Z-DS2(IDS1)\n\tdz2 = DS2(IDS2)-Z\n        du1 = U - RSR(ISR1)\n        du2 = RSR(ISR2) - U\n        dv1 = V - RSI(ISI1)\n        dv2 = RSI(ISI2) - V\n\n!\n        QEXT = 0.\n        YW = 0.\n        YG = 0.\n!\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)\n        VOL = (dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n        DO IDS = IDS1,IDS2\n          IF(IDS.EQ.IDS1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO IDC = IDC1,IDC2\n            IF(IDC.EQ.IDC1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n!            DO IWL = IWL1,IWL2\n!              IF(IWL.EQ.IWL1) THEN\n!                dx = dx2\n!\t      ELSE\n!                dx = dx1\n!              ENDIF\n\n \t      DO ISR =ISR1, ISR2\n                IF(ISR.EQ.ISR1) THEN\n                  du = du2\n\t        ELSE\n                  du = du1\n                ENDIF\n                DO ISI = ISI1, ISI2\n                 IF(ISI.EQ.ISI1) THEN\n                  dv = dv2\n                 ELSE\n                  dv = dv1\n                 ENDIF\n                 FRACT = dy*dz*du*dv/VOL \n                 QEXT = QEXT + FRACT*OPT2EXT(IWL,IDC,IDS,ISR,ISI)\n                 YW = YW + FRACT*OPT2W(IWL,IDC,IDS,ISR,ISI)\n                 YG = YG + FRACT*OPT2G(IWL,IDC,IDS,ISR,ISI)\n!                 WRITE(6,30)IDC,IDS,ISR,ISI,OPT1EXT(IWL,IDS,ISR,ISI),\n!     &                FRACT,Y,DC2(IDC1),DC2(IDC2),\n!     &                Z,DS2(IDS1),DS2(IDS2),\n!     &                U,RSR(ISR1),RSR(ISR2),\n!     &                V,RSI(ISI1),RSI(ISI2)\n\t        ENDDO\n\t      ENDDO\n!            ENDDO\n\t  ENDDO\n\tENDDO\n!\n!\n 30    FORMAT(I3, I3, I3, I3, 20(1PE10.3))\n 20    FORMAT(10(1PE10.3))\n\n       RETURN\n\n       END SUBROUTINE OPTABLE2\n!************************************************************************\n!----------------------------------------------------------------------------------\n      subroutine OPTABLE3(IWL,DCORE,DSHEL,AS,BS,QEXT,YW,YG)\n!\n!\n! INPUT:\n        INTEGER :: IWL\n        REAL*8  :: DCORE,DSHEL,AS,BS\n! OUTPUT:\n        REAL*8  :: QEXT, YW, YG\n\n! Local variables\n        REAL*8  :: Y,Z,U,V\n        REAL*8  :: VOL,FRACT\n        REAL*8  :: dy1,dy2,dz1,dz2,du1,du2,dv1,dv2\n        REAL*8  :: dy,dz,du,dv\n\n        INTEGER :: IDC1,IDC2,IDS1,IDS2,ISR1,ISR2,ISI1,ISI2\n        INTEGER :: IDC, IDS, ISR, ISI\n!\n! to avoid the input values to be changed due to out of the range reset\n!\n!        X = XWL    ! um\n        Y = DCORE    ! um\n        Z = DSHEL    ! um\n        U = AS\n        V = BS\n!\n!        IF(X.LT.WAVL(1)) THEN\n!           WRITE(86,10) X, WAVL(1), WAVL(1)\n!           X = WAVL(1)\n!        ELSEIF(X.GT.WAVL(MWL)) THEN\n!           WRITE(86,11) X, WAVL(MWL), WAVL(MWL)\n!           X =WAVL(MWL)\n!        ENDIF\n\n        IF(Y.LT.DC3(1)) THEN\n!           WRITE(86,12) Y, DC3(1), DC3(1)\n           Y =DC3(1)\n        ELSEIF(Y.GT.DC3(MDC3)) THEN\n!           WRITE(86,13) Y, DC3(MDC3), DC3(MDC3)\n           Y =DC3(MDC3)\n        ENDIF\n!\n        IF(Z.LT.DS3(1)) THEN\n!           WRITE(86,14) Z, DS3(1), DS3(1)\n           Z =DS3(1)\n        ELSEIF(Z.GT.DS3(MDS3)) THEN\n!           WRITE(86,15) Z, DS3(MDS3), DS3(MDS3)\n           Z =DS3(MDS3)\n        ENDIF\n!\n        IF(U.LT.RSR(1)) THEN\n!           WRITE(86,16) U, RSR(1), RSR(1)\n           U =RSR(1)\n        ELSEIF(U.GT.RSR(MSR)) THEN\n!           WRITE(86,17) U, RSR(MSR), RSR(MSR)\n           U =RSR(MSR)\n        ENDIF\n!\n        IF(V.LT.RSI(1)) THEN\n!           WRITE(86,18) V, RSI(1), RSI(1)\n           V =RSI(1)\n        ELSEIF(V.GT.RSI(MSI)) THEN\n!           WRITE(86,19) V, RSI(MSI), RSI(MSI)\n           V =RSI(MSI)\n        ENDIF\n\n!       wavmid(ns) = 0.25 * (0.55/0.25)**(float(ns-1)/4.0)\n!        IWL1 =MAX0(INT(1.+4.*LOG10(X/0.25)/LOG10(0.55/WAVL(1))),1)\n!        IWL2 = MIN0(IWL1 + 1,MWL)\n!        IF(IWL2.EQ.MWL) IWL1=MWL-1\n        \n!        DC2(IDC) = 1.0E-2 * 10.**(float(IDC-1)/10.)\n        IDC1 =MAX0(INT(1.+RESC3*LOG10(Y/DC3(1))),1)\n        IDC2 = MIN0(IDC1 + 1,MDC3)\n        IF(IDC2.EQ.MDC3) IDC1=MDC3-1\n\n!        DS2(1) =0.\n!        DS2(IDS) = DSHELLMIN * 10.**(float(IDS-2)/10.), IDS>1\n        IF(Z.LT.DS3(2)) THEN\n          IDS1 =1\n        ELSE\n          IDS1 = MAX0(INT(2.+RESS3*LOG10(Z/DS3(2))),2)\n        ENDIF\n        IDS2 = MIN0(IDS1 + 1,MDS3)\n        IF(IDS2.EQ.MDS3) IDS1=MDS3-1\n\n!        RSR(ISR) = 1.33 + float(ISR-1)*0.01\n        ISR1 = MAX0(INT(1.+(U-RSR(1))*RESR),1)\n        ISR2 = MIN0(ISR1 + 1,MSR)\n        IF(ISR2.EQ.MSR) ISR1=MSR-1\n\n!\n        IF(V.LT.RSI(2)) THEN\n          ISI1 = 1\n        ELSE\n          ISI1 = MAX0(INT(2.+RESI*LOG10(V/RSI(2))),2)\n        ENDIF\n        ISI2 = MIN0(ISI1 + 1,MSI)\n        IF(ISI2.EQ.MSI) ISI1=MSI-1\n!\n!\tdx1 = X-WAVL(IWL1) \n!\tdx2 = WAVL(IWL2)-X\n\tdy1 = Y-DC3(IDC1)\n\tdy2 = DC3(IDC2)-Y\n\tdz1 = Z-DS3(IDS1)\n\tdz2 = DS3(IDS2)-Z\n        du1 = U - RSR(ISR1)\n        du2 = RSR(ISR2) - U\n        dv1 = V - RSI(ISI1)\n        dv2 = RSI(ISI2) - V\n!\n        QEXT = 0.\n        YW = 0.\n        YG = 0.\n!\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)\n        VOL = (dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n        DO IDS = IDS1,IDS2\n          IF(IDS.EQ.IDS1) THEN\n            dz = dz2\n\t  ELSE\n            dz = dz1\n          ENDIF\n      \t  DO IDC = IDC1,IDC2\n            IF(IDC.EQ.IDC1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n!            DO IWL = IWL1,IWL2\n!              IF(IWL.EQ.IWL1) THEN\n!                dx = dx2\n!\t      ELSE\n!                dx = dx1\n!              ENDIF\n\n \t      DO ISR =ISR1, ISR2\n                IF(ISR.EQ.ISR1) THEN\n                  du = du2\n\t        ELSE\n                  du = du1\n                ENDIF\n                DO ISI = ISI1, ISI2\n                 IF(ISI.EQ.ISI1) THEN\n                  dv = dv2\n                 ELSE\n                  dv = dv1\n                 ENDIF\n\n!                FRACT = dx*dy*dz*du/VOL \n                 FRACT = dy*dz*du*dv/VOL \n                 QEXT = QEXT + FRACT*OPT3EXT(IWL,IDC,IDS,ISR,ISI)\n                 YW = YW + FRACT*OPT3W(IWL,IDC,IDS,ISR,ISI)\n                 YG = YG + FRACT*OPT3G(IWL,IDC,IDS,ISR,ISI)\n!                 WRITE(6,30)IDC,IDS,ISR,ISI,OPT1EXT(IWL,IDS,ISR,ISI),\n!     &                FRACT,Y,DC3(IDC1),DC3(IDC2),\n!     &                Z,DS3(IDS1),DS3(IDS2),\n!     &                U,RSR(ISR1),RSR(ISR2),\n!     &                V,RSI(ISI1),RSI(ISI2)\n\t        ENDDO\n\t      ENDDO\n!            ENDDO\n\t  ENDDO\n\tENDDO\n!\n!\n 30    FORMAT(I3, I3, I3, I3, 20(1PE10.3))\n 31    FORMAT(I3, I3, 100(1PE10.3))\n 20    FORMAT(10(1PE10.3))\n\n       RETURN\n\n       END SUBROUTINE OPTABLE3\n!************************************************************************\n!----------------------------------------------------------------------------------\n!      subroutine OPTABLE3_LW(XWL,DCORE,DSHEL,AS,QEXT,YW,YG)\n      subroutine OPTABLE3_LW(XWL,DCORE,QEXT,YW,YG)\n!\n!\n! INPUT:\n        REAL*8  :: XWL,DCORE,DSHEL,AS\n! OUTPUT:\n        REAL*8  :: QEXT, YW, YG\n\n! Local variables\n        REAL*8  :: X,Y,Z,U\n        REAL*8  :: VOL,FRACT\n        REAL*8  :: dx1,dx2,dy1,dy2,dz1,dz2,du1,du2\n        REAL*8  :: dx,dy,dz,du\n\n        INTEGER :: IWL1,IWL2,IDC1,IDC2,IDS1,IDS2,ISR1,ISR2\n        INTEGER :: IWL, IDC, IDS, ISR\n!\n! to avoid the input values to be changed due to out of the range reset\n!\n        X = XWL    ! um\n        Y = DCORE    ! um\n!        Z = DSHEL    ! um\n!        U = AS\n!        V = BS\n!\n        IF(X.LT.WAVLL(1)) THEN\n!           WRITE(86,10) X, WAVLL(1), WAVLL(1)\n           X = WAVLL(1)\n        ELSEIF(X.GT.WAVLL(MWLL)) THEN\n!           WRITE(86,11) X, WAVLL(MWLL), WAVLL(MWLL)\n           X =WAVLL(MWL)\n        ENDIF\n\n        IF(Y.LT.DC3LW(1)) THEN\n           WRITE(86,12) Y, DC3LW(1), DC3LW(1)\n           Y =DC3LW(1)\n        ELSEIF(Y.GT.DC3LW(MDCLW)) THEN\n           WRITE(86,13) Y, DC3LW(MDCLW), DC3LW(MDCLW)\n           Y =DC3LW(MDCLW)\n        ENDIF\n\n!        IF(Z.LT.DS3(1)) THEN\n!           WRITE(86,14) Z, DS3(1), DS3(1)\n!           Z =DS3(1)\n!        ELSEIF(Z.GT.DS3(MDS3)) THEN\n!!           WRITE(86,15) Z, DS3(MDS3), DS3(MDS3)\n!           Z =DS3(MDS3)\n!        ENDIF\n!\n!        IF(U.LT.RSR(1)) THEN\n!           WRITE(86,16) U, RSR(1), RSR(1)\n!           U =RSR(1)\n!        ELSEIF(U.GT.RSR(MSR)) THEN\n!           WRITE(86,17) U, RSR(MSR), RSR(MSR)\n!           U =RSR(MSR)\n!        ENDIF\n\n!        IF(V.LT.S(1)) THEN\n!           WRITE(86,18) V, S(1), S(1)\n!           V =S(1)\n!        ELSEIF(V.GT.S(MS)) THEN\n!           WRITE(86,19) V, S(MS), S(MS)\n!           V =S(MS)\n!        ENDIF\n\n 10     FORMAT(\"OPT3 WARNING: INPUTED WAVL=\",ES9.3,\"<\",ES9.3,\n     &     \" set it to \",ES9.3)\n 11     FORMAT(\"OPT3 WARNING: INPUTED WAVL=\",ES9.3,\">\",ES9.3,\n     &     \" set it to \",ES9.3)\n 12     FORMAT(\"OPT3 WARNING: INPUTED DCORE =\",ES9.3,\"<\",ES9.3,\n     &     \" set it to \",ES9.3)\n 13     FORMAT(\"OPT3 WARNING: INPUTED DCORE =\",ES9.3,\">\",ES9.3,\n     &     \" set it to \",ES9.3)\n 14     FORMAT(\"OPT3 WARNING: INPUTED DSHEL =\",ES9.3,\"<\",ES9.3,\n     &     \" set it to \",ES9.3)\n 15     FORMAT(\"OPT3 WARNING: INPUTED DSHEL =\",ES9.3,\">\",ES9.3,\n     &     \" set it to \",ES9.3)\n 16     FORMAT(\"OPT3 WARNING: INPUTED RSR =\",ES9.3,\" <\",ES9.3,\n     &     \" set it to \",ES9.3)\n 17     FORMAT(\"OPT3 WARNING: INPUTED RSR =\",ES9.3,\" >\",ES9.3,\n     &     \" set it to \",ES9.3)\n! 18     FORMAT(\"OPT3 WARNING: INPUTED S =\",ES9.3,\" <\",ES9.3,\n!     &     \" set it to \",ES9.3)\n! 19     FORMAT(\"OPT3 WARNING: INPUTED S =\",ES9.3,\" >\",ES9.3,\n!     &     \" set it to \",ES9.3)\n\n!       wavmid(ns) = 0.25 * (0.55/0.25)**(float(ns-1)/4.0)\n!       wavmid(ns) = 4.0 * (10.)**(float(ns-1)/float(nspint-1))  !um\n\n        IWL1 =MAX0(INT(1.+float(MWLL-1)*LOG10(X/WAVLL(1))),1)\n        IWL2 = MIN0(IWL1 + 1,MWLL)\n        IF(IWL2.EQ.MWLL) IWL1=MWLL-1\n        \n!        DC2(IDC) = 1.0E-2 * 10.**(float(IDC-1)/10.)\n        IDC1 =MAX0(INT(1.+10.*LOG10(Y/DC3LW(1))),1)\n        IDC2 = MIN0(IDC1 + 1,MDCLW)\n        IF(IDC2.EQ.MDCLW) IDC1=MDCLW-1\n\n!        DS2(1) =0.\n!        DS2(IDS) = DSHELLMIN * 10.**(float(IDS-2)/10.), IDS>1\n!        IF(Z.LT.DS3(2)) THEN\n!          IDS1 =1\n!        ELSE\n!          IDS1 = MAX0(INT(2.+10.*LOG10(Z/DS3(2))),2)\n!        ENDIF\n!        IDS2 = MIN0(IDS1 + 1,MDS3)\n!        IF(IDS2.EQ.MDS3) IDS1=MDS3-1\n\n!        RSR(ISR) = 1.33 + float(ISR-1)*0.01\n!        ISR1 = MAX0(INT(1.+(U-RSR(1))/0.01),1)\n!        ISR2 = MIN0(ISR1 + 1,MSR)\n!        IF(ISR2.EQ.MSR) ISR1=MSR-1\n!\n      dx1 = X-WAVLL(IWL1)\n      dx2 = WAVLL(IWL2)-X\n      dy1 = Y-DC3LW(IDC1)\n      dy2 = DC3LW(IDC2)-Y\n!      dz1 = Z-DS3(IDS1)\n!      dz2 = DS3(IDS2)-Z\n!        du1 = U - RSR(ISR1)\n!        du2 = RSR(ISR2) - U\n!\n        QEXT = 0.\n        YW = 0.\n        YG = 0.\n!\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n!        VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)\n        VOL = (dx1+dx2)*(dy1+dy2)\n!        DO IDS = IDS1,IDS2\n!          IF(IDS.EQ.IDS1) THEN\n!            dz = dz2\n!\t  ELSE\n!            dz = dz1\n!          ENDIF\n      \t  DO IDC = IDC1,IDC2\n            IF(IDC.EQ.IDC1) THEN\n              dy = dy2\n\t    ELSE\n              dy = dy1\n            ENDIF\n            DO IWL = IWL1,IWL2\n              IF(IWL.EQ.IWL1) THEN\n                dx = dx2\n\t      ELSE\n                dx = dx1\n              ENDIF\n\n! \t      DO ISR =ISR1, ISR2\n!                IF(ISR.EQ.ISR1) THEN\n!                  du = du2\n!\t        ELSE\n!                  du = du1\n!                ENDIF\n!                FRACT = dx*dy*dz*du/VOL \n!                QEXT = QEXT + FRACT*OPT3EXT(IWL,IDC,IDS,ISR)\n!                YW = YW + FRACT*OPT3W(IWL,IDC,IDS,ISR)\n!                YG = YG + FRACT*OPT3G(IWL,IDC,IDS,ISR)\n                FRACT = dx*dy/VOL \n                QEXT = QEXT + FRACT*OPT3EXT_LW(IWL,IDC)\n                YW = YW + FRACT*OPT3W_LW(IWL,IDC)\n                YG = YG + FRACT*OPT3G_LW(IWL,IDC)\n!                WRITE(6,31)IWL,IDC,OPT3EXT_LW(IWL,IDC),QEXT,\n!     &                    OPT3W_LW(IWL,IDC),YW,FRACT\n!\t      ENDDO\n            ENDDO\n\t  ENDDO\n!\tENDDO\n!\n!\n 30    FORMAT(I3, I3, I3, I3, I3, 10(1PE10.3))\n 31    FORMAT(I3, I3, 100(1PE10.3))\n 20    FORMAT(10(1PE10.3))\n\n       RETURN\n\n       END SUBROUTINE OPTABLE3_LW\n!************************************************************************\n!------------------------------------------------------------------------------\n      subroutine READOPTABLE(ITABLE,DATA_DIR_1x1)\n\n      IMPLICIT NONE\n\n      integer :: ITABLE\n      CHARACTER(LEN=255)   :: DATA_DIR_1x1\n      CHARACTER*999 YPATH,YPATH1\n\n      INTEGER :: IML,IDC,IDS,ISR,ISI\n      INTEGER :: IML1,IDC1,IDS1,ISR1, ISI1,MDC, MDS\n      REAL*8  :: WAVL1,RSR1,RSI1\n      REAL*8  :: YREAL,YIM\n      REAL*8  :: DCa,DCb,DSa,DSb\n      REAL*8  :: YTEMP\n      REAL*8  :: qextc,w,gscac\n      REAL*8  :: RESC, RESS\n      REAL*8  :: DCORE1, DSHELL1, DSHELL2   ! in um\n\n      LOGICAL, SAVE :: FIRST = .TRUE.\n\n      CLOSE(88)\n      YPATH = TRIM(DATA_DIR_1x1)//'/APM_data_201906/OPTAB20120823/'    !for RRTMG WL\n\n      IF(ITABLE.EQ.1)THEN      !no core\n       MDC = MDC1\n       MDS = MDS1\n       OPEN(88,file=TRIM(YPATH)//'OPTABLE_NoCore.txt',status='old')\n       WRITE(6,*)\"read OPTABLE_NoCore.txt\"\n      ELSEIF(ITABLE.EQ.2)THEN   !BC core\n       MDC = MDC2\n       MDS = MDS2\n       OPEN(88,file=TRIM(YPATH)//'OPTABLE_BC.txt',status='old')\n       WRITE(6,*)\"read OPTABLE_BC.txt\"\n      ELSEIF(ITABLE.EQ.3)THEN   !DUST core\n       MDC = MDC3\n       MDS = MDS3\n!       OPEN(88,file=TRIM(YPATH1)//'OPTABLE_DUST.txt',status='old')\n       OPEN(88,file=TRIM(YPATH)//'OPTABLE_DUST.txt',status='old')\n       WRITE(6,*)\"read OPTABLE_DUST.txt\"\n      ENDIF\n\n      READ(88,*)\n      READ(88,101)IML,IDC,IDS,ISR,ISI\n101   format(3x,I3,3x,I3,2x,I3,2x,I3,2x,I3)\n\n      IF(IML.NE.MWL.or.IDC.NE.MDC.or.IDS.NE.MDS.\n     &           or.ISR.NE.MSR.or.ISI.NE.MSI) THEN\n         WRITE(6,*)\"STOP: NEED to check IML,IDC,IDS,ISR values\"\n         WRITE(6,*)IML,IDC,IDS,ISR,ISI\n         WRITE(6,*)MWL,MDC,MDS,MSR,MSI\n         STOP\n      ENDIF\n\n!     \"*** resolution ***\"\n      READ(88,*)\n      READ(88,102)RESR, RESI, RESC, RESS\n102   format(10F6.1)\n\n!     \"*** first 2 bin diameter of core and shell ***\"\n      READ(88,*)\n      READ(88,103)DCORE1, DSHELL1, DSHELL2   ! in um\n103   format(10(1PE10.2))\n\n      IF(FIRST) THEN   ! RSR and RSI same for all three types, need to modify if not\n       DO ISR=1,MSR\n        RSR(ISR) = 1.33 + float(ISR-1)/RESR\n       ENDDO\n       RSI(1)=1.d-6\n       DO ISI=2,MSI\n        RSI(ISI) = 1.d-3*10.**(float(ISI-2)/RESI)\n       ENDDO\n       FIRST = .FALSE.\n      ENDIF\n\n!     \"***wavelength (um)***\"\n      READ(88,*)\n      do IML=1,MWL\n       IF(ITABLE.EQ.1) THEN\n        read(88,110)IML1,WAVL1  !um\n       ELSEIF(ITABLE.EQ.2.or.ITABLE.EQ.3) THEN\n        read(88,110)IML1,WAVL1,YREAL,YIM \n       ENDIF\n\n!       YTEMP = abs(WAVL1-WAVL(IML))/WAVL1  !double check\n!       IF(YTEMP.GT.0.01) THEN\n!         WRITE(6,*)\"STOP: NEED to check WAVL\",WAVL1,WAVL(IML)\n!       ENDIF\n      enddo\n!\n! Define core and shell diameter\n! DWET = DSHELL + DCORE\n\n!       \"***Dcore (um)***\"\n      READ(88,*)\n      IF(ITABLE.EQ.1) THEN\n       RESC1 = RESC\n       do IDC = 1, MDC\n        DC1(IDC) = DCORE1 * 10.**(float(IDC-1)/RESC1)   !um\n       enddo\n      ELSEIF(ITABLE.EQ.2) THEN\n       RESC2 = RESC\n       do IDC = 1, MDC\n        DC2(IDC) = DCORE1 * 10.**(float(IDC-1)/RESC2)\n       enddo\n      ELSEIF(ITABLE.EQ.3) THEN\n       RESC3 = RESC\n       do IDC = 1, MDC\n        DC3(IDC) = DCORE1 * 10.**(float(IDC-1)/RESC3)\n       enddo\n      ELSE\n       WRITE(6,*) \"STOP: NEED to check ITABLE.\", ITABLE\n       STOP\n      ENDIF\n\n      do IDC = 1, MDC\n       READ(88,110)IDC1,DCa  !um\n       IF(MDC.GT.1) THEN\n        IF(ITABLE.EQ.1) DCb=DC1(IDC)\n        IF(ITABLE.EQ.2) DCb=DC2(IDC)\n        IF(ITABLE.EQ.3) DCb=DC3(IDC)\n        YTEMP = abs(DCa-DCb)/max(1.d-30,DCa)  !double check\n        IF(YTEMP.GT.0.01) THEN\n          WRITE(6,*)\"STOP: NEED to check DC\",DCa,DCb\n        ENDIF\n       ENDIF\n      enddo\n!\n!      if(MDC.GT.1) THEN\n!        READ(88,*)\n!      endif\n\n!    \"***Dshell (um)***\"\n      READ(88,*)\n      IF(ITABLE.EQ.1) THEN\n       RESS1 = RESS\n       do IDS = 1, MDS\n        DS1(IDS) = DSHELL1 * 10.**(float(IDS-1)/RESS1)   !um\n       enddo\n      ELSEIF(ITABLE.EQ.2) THEN\n       RESS2 = RESS\n       DS2(1) = DSHELL1\n       do IDS = 2, MDS\n        DS2(IDS) = DSHELL2 * 10.**(float(IDS-2)/RESS2)\n       enddo\n      ELSEIF(ITABLE.EQ.3) THEN\n       RESS3 = RESS\n       DS3(1) = DSHELL1\n       do IDS = 2, MDS\n        DS3(IDS) = DSHELL2 * 10.**(float(IDS-2)/RESS3)\n       enddo\n      ELSE\n       WRITE(6,*) \"STOP: NEED to check ITABLE.\", ITABLE\n       STOP\n      ENDIF\n\n      do IDS = 1, MDS\n        READ(88,110)IDS1,DSa   !um\n        IF(IDS1.GT.0.) THEN\n         IF(ITABLE.EQ.1) DSb=DS1(IDS)\n         IF(ITABLE.EQ.2) DSb=DS2(IDS)\n         IF(ITABLE.EQ.3) DSb=DS3(IDS)\n         YTEMP = abs(DSa-DSb)/max(1.d-30,DSa)  !double check\n         IF(IDS.GT.1) THEN\n         IF(YTEMP.GT.0.01) THEN\n          WRITE(6,*)\"STOP: NEED to check DS\",DSa,DSb\n         ENDIF\n         ENDIF\n        ENDIF\n      enddo\n\n! \"***realshell***\"\n      READ(88,*)\n      do ISR=1,MSR\n        READ(88,110)ISR1, RSR1\n        YTEMP = abs(RSR1-RSR(ISR))/max(1.d-30,RSR1)  !double check\n        IF(YTEMP.GT.0.01) THEN\n         WRITE(6,*)\"STOP: NEED to check REALSH\",RSR1,RSR(ISR)\n        ENDIF\n      enddo\n\n! \"***imagshell***\"\n      READ(88,*)\n      do ISI=1,MSI\n        READ(88,110)ISI1, RSI1\n        YTEMP = abs(RSI1-RSI(ISI))/max(1.d-30,RSI1)  !double check\n        IF(YTEMP.GT.0.01) THEN\n         WRITE(6,*)\"STOP: NEED to check IMAGSH\",RSI1,RSI(ISI)\n        ENDIF\n      enddo\n\n      ! Begin spectral loop\n      do IML=1,MWL\n       do IDC=1,MDC\n        do IDS = 1, MDS\n         do ISR=1,MSR\n          do ISI=1,MSI\n           READ(88,122)IML1,IDC1,IDS1,ISR1,ISI1,qextc,w,gscac\n           IF(IML1.NE.IML.or.IDC1.NE.IDC.or.IDS1.NE.IDS.\n     &                 or.ISR1.NE.ISR.or.ISI1.NE.ISI) THEN\n            WRITE(6,*)\"STOP: Need to check IML1,IDC1,IDS1,ISR1,ISI1\"\n            STOP\n           ENDIF\n           IF(ITABLE.EQ.1) THEN\n            OPT1EXT(IML,IDS,ISR,ISI) = qextc \n            OPT1W(IML,IDS,ISR,ISI) =  w\n            OPT1G(IML,IDS,ISR,ISI) =  gscac\n           ELSEIF(ITABLE.EQ.2) THEN\n            OPT2EXT(IML,IDC,IDS,ISR,ISI) = qextc \n            OPT2W(IML,IDC,IDS,ISR,ISI) =  w   \n            OPT2G(IML,IDC,IDS,ISR,ISI) =  gscac\n           ELSEIF(ITABLE.EQ.3) THEN\n            OPT3EXT(IML,IDC,IDS,ISR,ISI) = qextc \n            OPT3W(IML,IDC,IDS,ISR,ISI) =  w   \n            OPT3G(IML,IDC,IDS,ISR,ISI) =  gscac\n           ENDIF\n          enddo   !k -- lshell\n         enddo   !l -- realshell\n        enddo   !MDS\n       enddo   !MDC\n      enddo    !wavelength\n\n110   FORMAT(I3,10(1PE11.3))\n120   FORMAT(10(1PE9.2))\n121   FORMAT(2(1PE10.3),10(1PE10.3))\n122   FORMAT(I2,4I3,10(1PE10.3))\n      RETURN\n\n      END SUBROUTINE READOPTABLE\n! *****************************************************************************\n\n!------------------------------------------------------------------------------\n      subroutine READOPTABLE_LW(ITABLE,DATA_DIR_1x1)\n\n      IMPLICIT NONE\n\n      integer :: ITABLE\n      CHARACTER(LEN=255)   :: DATA_DIR_1x1\n      CHARACTER*999 YPATH,YPATH1\n\n      INTEGER :: IML,IDC,IDS,ISR\n      INTEGER :: IML1,IDC1,IDS1,ISR1, MDC, MDS\n      REAL*8  :: WAVL1,RSR1\n      REAL*8  :: DCa,DCb,DSa,DSb\n      REAL*8  :: DCOREMIN,DSHELLMIN,YTEMP\n      REAL*8  :: qextc,w,gscac\n\n      LOGICAL, SAVE :: FIRST = .TRUE.\n      INTEGER, PARAMETER :: MSRL = 1\n\n      IF(FIRST) THEN\n       DO IML=1,MWLL\n        WAVLL(IML) = 4.0 * (10.)**(float(IML-1)/float(MWLL-1))  ! um\n       ENDDO\n       DO ISR=1,MSRL\n        RSR(ISR) = 1.33 + float(ISR-1)*0.01\n       ENDDO\n       FIRST = .FALSE.\n      ENDIF\n\n      CLOSE(88)\n      YPATH1 = TRIM(DATA_DIR_1x1)//'/APM_data_201906/OPTAB20110418/'\n\n      IF(ITABLE.EQ.1)THEN      !no core\n!       MDC = MDC1\n!       MDS = MDS1\n!       DCOREMIN = 0.0E-0   ! um\n!       DSHELLMIN = 2.0E-2   ! um\n!       OPEN(88,file=TRIM(YPATH)//'OPTABLE_NoCore.txt',status='old')\n!       WRITE(6,*)\"read OPTABLE_NoCore.txt\"\n      ELSEIF(ITABLE.EQ.2)THEN   !BC core\n!       MDC = MDC2\n!       MDS = MDS2\n!       DCOREMIN =  1.0E-2   ! um\n!       DSHELLMIN = 1.0E-3   ! um\n!       OPEN(88,file=TRIM(YPATH)//'OPTABLE_BC.txt',status='old')\n!       WRITE(6,*)\"read OPTABLE_BC.txt\"\n      ELSEIF(ITABLE.EQ.3)THEN   !DUST core\n       MDC = MDCLW\n!       MDS = MDS3\n       MDS = 1\n       DCOREMIN = 5.0E-2   ! um\n       DSHELLMIN = 1.0E-3   ! um\n       OPEN(88,file=TRIM(YPATH1)//'OPTABLE_DUST_LW.txt',status='old')\n       WRITE(6,*)\"read OPTABLE_DUST_LW.txt\"\n      ENDIF\n\n      READ(88,*)\n      READ(88,101)IML,IDC,IDS,ISR\n101   format(3x,I3,3x,I3,2x,I3,2x,I3)\n\n      IF(IML.NE.MWLL.or.IDC.NE.MDC.or.IDS.NE.MDS.or.ISR.NE.MSRL) THEN\n         WRITE(6,*)\"STOP: NEED to check IML,IDC,IDS,ISR values\"\n         WRITE(6,*)IML,IDC,IDS,ISR\n         WRITE(6,*)MWLL,MDC,MDS,MSRL\n         STOP\n      ENDIF\n\n!     \"***wavelength (um)***\"\n      READ(88,*)\n      do IML=1,MWLL\n       read(88,110)IML1,WAVL1  !um\n       YTEMP = abs(WAVL1-WAVLL(IML))/max(1.d-30,WAVL1)  !double check\n       IF(YTEMP.GT.0.01) THEN\n         WRITE(6,*)\"STOP: NEED to check WAVL\",WAVL1,WAVLL(IML)\n       ENDIF\n      enddo\n!\n! Define core and shell diameter\n! DWET = DSHELL + DCORE\n\n!       \"***Dcore (um)***\"\n      READ(88,*)\n      IF(ITABLE.EQ.1) THEN\n!       do IDC = 1, MDC\n!        DC1(IDC) = DCOREMIN * 10.**(float(IDC-1)/10.)   !um\n!       enddo\n      ELSEIF(ITABLE.EQ.2) THEN\n!       do IDC = 1, MDC\n!        DC2(IDC) = DCOREMIN * 10.**(float(IDC-1)/10.)\n!       enddo\n      ELSEIF(ITABLE.EQ.3) THEN\n       do IDC = 1, MDC\n        DC3LW(IDC) = DCOREMIN * 10.**(float(IDC-1)/10.)\n       enddo\n      ELSE\n       WRITE(6,*) \"STOP: NEED to check ITABLE.\", ITABLE\n       STOP\n      ENDIF\n\n      do IDC = 1, MDC\n       READ(88,110)IDC1,DCa  !um\n       IF(MDC.GT.1) THEN\n        IF(ITABLE.EQ.1) DCb=DC1(IDC)\n        IF(ITABLE.EQ.2) DCb=DC2(IDC)\n        IF(ITABLE.EQ.3) DCb=DC3LW(IDC)\n        YTEMP = abs(DCa-DCb)/DCa  !double check\n        IF(YTEMP.GT.0.01) THEN\n          WRITE(6,*)\"STOP: NEED to check DC\",DCa,DCb\n          STOP\n        ENDIF\n       ENDIF\n      enddo\n!\n      if(MDC.GT.1) THEN\n        READ(88,*)\n      endif\n\n!    \"***Dshell (um)***\"\n      READ(88,*)\n      IF(ITABLE.EQ.1) THEN\n!       do IDS = 1, MDS\n!        DS1(IDS) = DSHELLMIN * 10.**(float(IDS-1)/10.)   !um\n!       enddo\n      ELSEIF(ITABLE.EQ.2) THEN\n!       DS2(1) = 0.\n!       do IDS = 2, MDS\n!        DS2(IDS) = DSHELLMIN * 10.**(float(IDS-2)/10.)\n!       enddo\n      ELSEIF(ITABLE.EQ.3) THEN\n       DS3(1) = 0.\n       do IDS = 2, MDS\n        DS3(IDS) = DSHELLMIN * 10.**(float(IDS-2)/10.)\n       enddo\n      ELSE\n       WRITE(6,*) \"STOP: NEED to check ITABLE.\", ITABLE\n       STOP\n      ENDIF\n\n      do IDS = 1, MDS\n        READ(88,110)IDS1,DSa   !um\n        IF(IDS1.GT.0.) THEN\n         IF(ITABLE.EQ.1) DSb=DS1(IDS)\n         IF(ITABLE.EQ.2) DSb=DS2(IDS)\n         IF(ITABLE.EQ.3) DSb=DS3(IDS)\n         YTEMP = abs(DSa-DSb)/max(1.d-30,DSa)  !double check\n         IF(YTEMP.GT.0.01) THEN\n          WRITE(6,*)\"STOP: NEED to check DS\",DSa,DSb\n         ENDIF\n        ENDIF\n      enddo\n\n! \"***realshell***\"\n      READ(88,*)\n      do ISR=1,MSRL\n        READ(88,110)ISR1, RSR1\n        YTEMP = abs(RSR1-RSR(ISR))/max(1.d-30,RSR1)  !double check\n        IF(YTEMP.GT.0.01) THEN\n         WRITE(6,*)\"STOP: NEED to check REALSH\",RSR1,RSR(ISR)\n        ENDIF\n      enddo\n\n      ! Begin spectral loop\n      do IML=1,MWLL\n       do IDC=1,MDC\n        do IDS = 1, MDS\n         do ISR=1,MSRL\n          READ(88,122)IML1,IDC1,IDS1,ISR1,qextc,w,gscac\n          IF(IML1.NE.IML.or.IDC1.NE.IDC.or.IDS1.NE.IDS.\n     &                 or.ISR1.NE.ISR) THEN\n            WRITE(6,*)\"STOP: Need to check IML1,IDC1,IDS1,ISR1\"\n            STOP\n          ENDIF\n          IF(ITABLE.EQ.1) THEN\n!            OPT1EXT(IML,IDS,ISR) = qextc \n!            OPT1W(IML,IDS,ISR) =  w\n!            OPT1G(IML,IDS,ISR) =  gscac\n          ELSEIF(ITABLE.EQ.2) THEN\n!            OPT2EXT(IML,IDC,IDS,ISR) = qextc \n!            OPT2W(IML,IDC,IDS,ISR) =  w   \n!            OPT2G(IML,IDC,IDS,ISR) =  gscac\n          ELSEIF(ITABLE.EQ.3) THEN\n            OPT3EXT_LW(IML,IDC) = qextc \n            OPT3W_LW(IML,IDC) =  w   \n            OPT3G_LW(IML,IDC) =  gscac\n          ENDIF\n         enddo   !l -- realshell\n        enddo   !MDS\n       enddo   !MDC\n      enddo    !wavelength\n\n110   FORMAT(I3,10(1PE10.3))\n120   FORMAT(100(1PE9.2))\n121   FORMAT(2(1PE10.3),10(1PE10.3))\n122   FORMAT(I2,3I3,10(1PE10.3))\n      RETURN\n\n      END SUBROUTINE READOPTABLE_LW\n! *****************************************************************************\n      END MODULE APM_OPTI_MOD\n!----------------------------------------------------------------------------------\n#endif\n"
  },
  {
    "path": "APM/apm_phys_mod.F",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: apm_phys_mod\n!\n! !DESCRIPTION: Module APM\\_PHYS\\_MOD solves APM microphysics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      MODULE APM_PHYS_MOD\n!\n! !USES:\n!\n      IMPLICIT NONE\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!  \n      PUBLIC  :: APM_PHYS\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n      PRIVATE :: DACTS\n      PRIVATE :: GETGAMMAN2O5\n\n! !REVISION HISTORY: \n!  23 Aug 2008 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n      CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_phys\n!\n! !DESCRIPTION: Subroutine APM\\_PHYS is the driver routine for the APM\n!  microphysics package.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE APM_PHYS( II,        JJ,      LL,       NCOAG1, \n     &                     NCOAG2,    IACT10,  IACT20,   IACT30,\n     &                     RACT1,     RACT2,   RACT3,    NTEMPOUT1,\n     &                     DENAIR,    PRESS,   YSIGMA,   TK,      RH,\n     &                     XQ, PLVSOG01, PLVSOG1, CACID,  PACID, CNH3,\n     &                     DT,        MMSA,    MNIT,     MNH4,\n     &                     MBCS,      MOCS,    MDSTS,    MSALTS,\n     &                     XMBC, XMOC, SOAT,   CLVSOG,   MSULFLV,\n     &                     MBCLV,     MOCLV,   MDSTLV,   MSALTLV,\n     &                     GFTOT1,    GFTOT2,  DENWET1,  DENWET2,\n     &                     YSPGF ,    XBCLIFE, XOCLIFE,\n     &                     VZ,        YCLDLIQ, XCDN,     XCDNSP,\n     &                     XM1D,      XN1D,    TEMPOUT1, XMDST, FCLOUD1,\n!OPT+     &                     FCLOUD1 )\n     &                     ZBEXT,ZW,ZG,ZBABS,XBEXT1k,\n     &                     YBEXT,YW,YG,ACS,XDMA,AERAREA,AERDRYR,\n     &                     GAMMAPM,AEROCOMOUT,IFSITEOUT,\n     &                     ATOM4N)\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY : IFNUCL,IFAG,IFATHN,IFNH3,IFNUCLORG\n      USE APM_INIT_MOD, ONLY : NSO4,NSEA,NDSTB,NTYP,NBCOC\n      USE APM_INIT_MOD, ONLY : RDRY, VDRY, RSALT, VSALT, YGF\n      USE APM_INIT_MOD, ONLY : RBCOC, VBCOC\n      USE APM_INIT_MOD, ONLY : TOTNUMBC,TOTNUMOC, TOTAREABC,TOTAREAOC\n      USE APM_INIT_MOD, ONLY : DACT1, DACT2, DACT3, DENSULF, XMLVSOG\n      USE APM_INIT_MOD, ONLY : V1LVSOG,V1ACID\n      USE APM_INIT_MOD, ONLY : RDST,DENDST,VDST\n      USE APM_INIT_MOD, ONLY : ONEPI\n      USE APM_TIMN_MOD, ONLY : YUJTIMN1\n      USE APM_ATHN_MOD, ONLY : YUJATHN\n\n      USE APM_COAG_MOD, ONLY : APM_COAG,APM_COAGSCAV\n      USE APM_GROW_MOD, ONLY : APM_GROW,APM_MOVEBIN\n      USE APM_INIT_MOD, ONLY : ISITES,JSITES\n\n      USE APM_OPTI_MOD, ONLY : APM_OPT, APM_OPT_LW   ! OPT+\n      USE APM_INIT_MOD, ONLY : CEMITBCOC2 !OPT+\n      USE APM_INIT_MOD, ONLY : IFCOAT !OPT+\n      USE APM_INIT_MOD, ONLY : IFCOATBC !OPT+\n      USE APM_INIT_MOD, ONLY : IFOPT, IFCDNPDF !OPT+\n      USE APM_INIT_MOD, ONLY : DENBC   ! in kg/m3\n      USE APM_INIT_MOD, ONLY : DTTEST\n      USE APM_INIT_MOD, ONLY : BC_LIFEAPM,OC_LIFEAPM\n      USE APM_INIT_MOD, ONLY : D0CONV \n      USE APM_INIT_MOD, ONLY : WBAR\n      USE APM_INIT_MOD, ONLY : IFAMINEUP, AGAMA\n      USE APM_INIT_MOD, ONLY : IFAEROCOMOUT\n\n      USE apm_mixactivate, only: activate\n!\n! !INPUT PARAMETERS: \n!\n      INTEGER :: II\n      INTEGER :: JJ\n      INTEGER :: LL\n      INTEGER :: NTEMPOUT1\n!\n! !INPUT/OUTPUT PARAMETERS: \n! \n      INTEGER :: NCOAG1,NCOAG2, NCOAG4, NCOAG5\n      INTEGER :: IACT10       ! bin index for cloud act \n      INTEGER :: IACT20       ! bin index for cloud act \n      INTEGER :: IACT30       ! bin index for cloud act \n      INTEGER :: RACT1        ! bin index for cloud act \n      INTEGER :: RACT2        ! bin index for cloud act \n      INTEGER :: RACT3        ! bin index for cloud act \n      REAL*8  :: VZ,YCLDLIQ, XCDN,XCDNSP\n      REAL*8  :: DENAIR\n      REAL*8  :: PRESS\n      REAL*8  :: TK\n      REAL*8  :: RH\n      REAL*8  :: XQ\n      REAL*8  :: PLVSOG01\n      REAL*8  :: PLVSOG1\n      REAL*8  :: CACID\n      REAL*8  :: PACID\n      REAL*8  :: CNH3 \n      REAL*8  :: DT\n      REAL*8  :: MMSA\n      REAL*8  :: MNIT\n      REAL*8  :: MNH4\n      REAL*8  :: MBCS         ! mass of sulfate attached to primary particles\n      REAL*8  :: MOCS         ! mass of sulfate attached to primary particles\n      REAL*8  :: MDSTS        ! mass of sulfate attached to primary particles\n      REAL*8  :: MSALTS       ! mass of sulfate attached to primary particles\n      REAL*8  :: SOAT\n      REAL*8  :: CLVSOG\n      REAL*8  :: MSULFLV\n      REAL*8  :: MBCLV\n      REAL*8  :: MOCLV\n      REAL*8  :: MDSTLV\n      REAL*8  :: MSALTLV\n      REAL*8  :: GFTOT1\n      REAL*8  :: GFTOT2\n      REAL*8  :: DENWET1\n      REAL*8  :: DENWET2\n      REAL*8  :: XM1D(NSO4+NSEA),XMDST(NDSTB),XMBC(NBCOC),XMOC(NBCOC)\n      REAL*8  :: XN1D(NSO4)\n      REAL*8  :: TEMPOUT1(NTEMPOUT1)\n      REAL*8  :: FCLOUD1(NSO4+4)\n\n      REAL*8  :: YSPGF,  XBCLIFE, XOCLIFE\n      REAL*8  :: YSIGMA\n      REAL*8  :: ACS, XDMA, YJATHN\n      REAL*8  :: AERAREA(NSO4+NSEA+NDSTB+4), AERDRYR(NSO4+NSEA+NDSTB+4)\n      REAL*8  :: PM25(8),GAMMAPM(NTYP),AEROCOMOUT(27)\n\n      REAL*8  :: CHOM,XJN,XJI,YRATIO,YJBHN\n\n      INTEGER :: IFSITEOUT\n!\n! !REMARKS:\n!  APM AEROSOL Types (N=1,NTYP)\n!  N=1:  Sulfate or Secondary particles (SO4 plus other species) \n!         (density: 1.7 g/cc)\n!  N=2:  Sea Salt (density: 2.2 g/cc)\n!  N=3:  DUST  (density: 2.5 g/cc for D<1 um, 2.65 g/cm3 for D>~1 um)\n!  N=4:  BC  (density: ? 1.0 or 1.8 g/cc)\n!  N=5:  OC  (density: 1.8 g/cc)\n! \n! !REVISION HISTORY: \n!  17 Mar 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      INTEGER :: N,M,ITYPE, NI,NJ,NA\n      INTEGER :: IRH\n      REAL*8  :: PMB,XS,CACID1\n      REAL*8  :: XN(NSO4),XMA(NSO4),XVA(NSO4)\n      REAL*8  :: XNSALT(NSEA),XMSALT(NSEA),XVSALT(NSEA)\n      REAL*8  :: XNDST(NDSTB),XVDST(NDSTB)\n      REAL*8  :: XVBC(NBCOC),XVOC(NBCOC)\n      REAL*8  :: RBCWET(NBCOC),ROCWET(NBCOC)\n      REAL*8  :: YAREABC(NBCOC),YAREAOC(NBCOC)\n      REAL*8  :: RBCGF(NBCOC),ROCGF(NBCOC)\n      REAL*8  :: TOTN\n      REAL*8  :: YJ, DVJ,  DV\n      REAL*8  :: VGAS,FREEP,TAREA,AREA,YKN,FCORR\n      REAL*8  :: YCS(NTYP), YCSDUST, TCS, SURF(NTYP)\n      REAL*8  :: CSSULF,AREASULF,XRCM,YJAVE,YRSTAR,CACID0\n      REAL*8  :: YYJ,YYJAVE,YJATHNAVE,CACIDAVE\n      REAL*8  :: MSO4,MSOA\n      REAL*8  :: MSO4B,MNITB,MNH4B,MMSAB,MSULFT,TOTMP,FSO4B\n      REAL*8  :: MSP(NTYP),MCORE(NTYP),ZK(NTYP)\n      REAL*8  :: ZDACT(NTYP,4),ZCCN(NTYP,3),ZTN(NTYP),TCCN(3)\n      REAL*8  :: ATOM4N(4)\n      REAL*8  :: DIAM1GAS,DIAM2GAS\n      REAL*8  :: TNBC, TNOC,TNBC1,TNBC2,TNOC1,TNOC2\n      REAL*8  :: GF2,GF3,GF4,FRACSOA,GFWATERVOL,GFWATER\n      REAL*8  :: GFTOT,DENWET,DENWATER\n      REAL*8  :: DENSALTWET,Y1,DENBCWET,DENOCWET\n      REAL*8  :: TN10nm,TNOTHER\n      REAL*8  :: RRATIO, RRATIOWET\n      REAL*8  :: AREABC,AREAOC\n      REAL*8  :: RWET(NSO4),RSALTWET(NSEA),RWETCM(NSO4),RSALTWETCM(NSEA)\n      REAL*8  :: GFGAS, CSSALT,AREASALT\n      REAL*8  :: MCONDOTH,TCSOTHER, TOTCONDOTH\n      REAL*8  :: YAREASALT(NSEA), MSALTTOT, YSALTS(NSEA), MSALTSOA(NSEA)\n      REAL*8  :: RSALTGF(NSEA),TAREASALT\n      REAL*8  :: YAREADST(NDSTB),CSDST,AREADST,RDSTWET(NDSTB)\n      REAL*8  :: FBCOC1,FBCOC2\n      REAL*8  :: EPC, COAGN0, DTCOAG1,DTCOAG2,DTCOAG4,DTCOAG5\n      INTEGER :: NCOAG(5), NCOAGMAX, I3nm, IERF, I10nm\n      INTEGER :: I50nm(5),I80nm(5),I120nm(5)\n      REAL*8  :: BINSIZE(5),BINMASS(5)\n      REAL*8  :: RLOSULF\n      REAL*8  :: SUMXVA0,SUMXVA1,DLVSOG,DACID\n      REAL*8  :: XMCONDIN,CACIDIN,PACIDIN,TCSOTHERIN\n      REAL*8  :: DTLEFT, DTNGC, DNMAX\n      INTEGER :: IFNGC\n      INTEGER :: ISITE,JSITE\n      REAL*8  :: ZN1,ZN2,ZN3\n      REAL*8  :: TCSLV,CLVSOG1,CLVSOG0\n      INTEGER :: ICOND\n\n!      REAL*8    :: MBCFF,MBCBB,MOCFF,MOCBB\n      REAL*8    :: TK1\n!OPT+\n      INTEGER   :: ITEST,MBIN,I,IWL\n\n      INTEGER, PARAMETER :: MWLS=16   !RRTMG 14 SW band + two wls (0.5 and 0.55 um)\n      INTEGER, PARAMETER :: MWLL=9    !RRTMG 9 LW band\n\n!      INTEGER, PARAMETER :: KWL1=6   !550 nm\n      INTEGER, PARAMETER :: KWL1=4   !500 nm\n!      INTEGER, PARAMETER :: KWL1=3   !390 nm\n      REAL*8    :: WLS(MWLS)\n      REAL*8    :: XBEXT(MWLS),XBEXT1k(40,5),AER1k(12)\n      REAL*8    :: XW(MWLS),XG(MWLS)\n      REAL*8    :: YBEXT(NTYP,MWLS),YW(NTYP,MWLS),YG(NTYP,MWLS)\n      REAL*8    :: ZBEXT(MWLS),ZW(MWLS),ZG(MWLS)\n!LW  for dust only\n      REAL*8    :: WLL(MWLL)\n      REAL*8    :: XBEXT1(MWLL),XW1(MWLL),XG1(MWLL)\n!      REAL*8    :: ZBEXT1(MWLL),ZW1(MWLL),ZG1(MWLL)\n      REAL*8    :: ZBABS(MWLL)\n\n      REAL*8    :: vtotal,yvdry,vh2o\n      REAL*8    :: xn_in(NSO4)\n      REAL*8    :: XDCORE(NSO4)\n      REAL*8    :: ZFV(6),ZFV_SP(6)\n\n      REAL*8    :: RRATIOWETBC,RRATIOWETOC\n      REAL*8    :: XNBC(NBCOC),XNOC(NBCOC), VRATIO\n      REAL*8    :: YBCS,MBCSOA,MBCTOT,YOCS,MOCSOA,MOCTOT,CSBC,CSOC\n      REAL*8    :: TAREAO, ZTEMP1, ZTEMP2\n      REAL*8    :: MBCS0,MOCS0,MBCLV0,MOCLV0\n      REAL*8    :: FLUXBC, FLUXOC,DRDTBC,DRDTOC\n!OPT+\n      REAL*8    :: RGTOT,XMTOT,RGM,SIG2TOT,SIG,YM(NSO4)\n      REAL*8    :: MWATERSP\n      REAL*8    :: DUST500\n\n! for max sat\n      INTEGER   :: NSIZE_AER(NTYP), IS, IACT40\n      REAL*8    :: RRATIOBC, RRATIOOC, maxsatout,XSAT\n      REAL*8    :: NAEROSOL(NSO4,NTYP),AM(NSO4,NTYP)\n      REAL*8    :: HYGRO_AER(NSO4,NTYP)\n      REAL*8    :: YCDN(NTYP)\n      REAL*8    :: ZCDN(NTYP)\n\n! for BHN_IIN\n      REAL*8  :: YRHF, YAMOLF,YNTOT,YISTAR,YNWSTAR\n\n      REAL*8  :: XN0, XNH3\n      REAL*8  :: XJBN,XJBI,XJTN,XJTI\n      REAL*8  :: XJBH,XJBIM,XJTH,XJTIM\n      REAL*8  :: RBH,RBIM,RTH,RTIM\n      REAL*8 :: YJAVE_BH,YJAVE_BIM,YJAVE_TH,YJAVE_OM,YJAVE_PON,YJAVE_POI\n      REAL*8 :: YJAVE_TIM\n      REAL*8 :: YJAVE_BN,YJAVE_BI,YJAVE_TN,YJAVE_TI\n\n      REAL*8  :: YJOM,YJPON,YJPOI\n      REAL*8  :: TAREABC,TAREAOC\n\n!\n! for PDF\n      INTEGER   :: IW\n      INTEGER, PARAMETER :: MW = 40\n      real*8 :: DW,WW,SIGMA\n      real*8 :: W(MW),PW(MW)\n\n      REAL*8    :: XRATIO\n\n      REAL*8  :: DENAER(5)\n!YuBCden      DATA (DENAER(NA),NA=1,5)/1.7,2.2,2.65,1.8,1.8/  ! density (g/cm3)\n!      DATA (DENAER(NA),NA=1,5)/1.7,2.2,2.65,1.2,1.8/  ! density (g/cm3)\n\n!      DATA (WLS(IWL),IWL=1,MWLS)/0.3,0.55,0.94,1.785,3.19/  !OPT+\n!      DATA (WLS(IWL),IWL=1,MWLS)/0.34,0.38,0.443,0.469,0.5,0.554,\n!     &     0.645,0.675, 0.865,0.94,1.02,1.24,1.64,1.785,2.13,3.19/\n      DATA (WLS(IWL),IWL=1,MWLS)/0.23,0.30,0.39,0.50,0.53,0.55,\n     &       0.70,1.01,1.27,1.46,1.78,2.05,2.33,2.79,3.46,8.02/\n      DATA (WLL(IWL),IWL=1,MWLL)/4.3,5.,6.,8.1,9.6,11.6,15.8,24.0,35./\n!OPT+\n\n!Luo for AEROCOM\n      real*8 :: XSATAEROCOM(13)\n      DATA XSATAEROCOM /0.0005,0.00075,0.001,0.0015,0.002,0.003,0.004\n     &                 ,0.005,0.006,0.007,0.008,0.009,0.01/\n\n      ATOM4N=0.d0\n\n!      CLVSOG0 = 4.d6\n      CLVSOG0 = 5.d5\n\n      DENWATER = 1.0  ! density of water (g/cm3)\n      DENAER(1)= 1.7\n      DENAER(2)= 2.2\n      DENAER(3)= 2.65\n      DENAER(4) = DENBC/1000.0  !update BC density based on value from input.apm\n      DENAER(5)= 1.8\n\n      IF(PACID.LT.0.0) THEN\n         WRITE(6,*) \"PACID < 0, set it to 1.E-2\"\n         WRITE(6,99)II,JJ,LL,CACID,PACID\n         PACID = 1.d-2\n      ENDIF\n\n      TEMPOUT1=1.d-30\n\n      XN0 = 1.d-6*PRESS/(1.3807d-23*TK)   !#/cm3\n      XNH3 = CNH3*1.d-12*XN0  !ppt to #/cm3\n\n      IF(IFNH3.EQ.0) XNH3=1.d-30   ! no NH3 effect\n\n      MCORE = 1.d-20\n      MSP   = 1.d-21\n      ZCCN  = 1.d-20\n      PM25  = 1.d-10\n\n!     \n      MBCS0 = MBCS\n      MOCS0 = MOCS\n      MBCLV0 = MBCLV\n      MOCLV0 = MOCLV\n\n! The growth/movebin/coag subrountine is based on volume, convert mass to volume\n! Sulfate\n      MSO4 = 0.d0\n      DO N=1,NSO4\n        XN(N)=XN1D(N)\n        XMA(N)=XM1D(N)\n        MSO4 = MSO4 + XM1D(N)   ! total bin sulfate mass\n        IF(XMA(N).LT.1.D-40)XMA(N)=1.D-40\n        XVA(N)=XMA(N)*1.d-3/DENSULF   !XVA in cm3/cm3  XMA in kg/m3\n      ENDDO\n\n! Move particles across bins after cloud chem, XN is the values\n! recorded before calling DO_CHEMISTRY in main.f\n      CALL APM_MOVEBIN(NSO4,XN,XVA)  \n!\n! Seasalt\n!\n      DO N=1,NSEA\n        XMSALT(N) = XM1D(NSO4+N)\n        MCORE(2)=MCORE(2) + XMSALT(N)\n        IF(XMSALT(N).LT.1.D-40)XMSALT(N)=1.D-40\n        XVSALT(N)=XMSALT(N)*1.d-3/DENAER(2)   !XV in cm3/cm3  XM in kg/m3\n        XNSALT(N) = XVSALT(N)/(1.E6*VSALT(N)) ! XN in #/cm3, VSALT in m3\n\n        IF(RSALT(N).LT.1.25d-6) THEN\n         PM25(7)=PM25(7) + XMSALT(N)*1.d9\n        ENDIF\n\n        IF(RSALT(N).GE.1.35d-9)THEN\n        IF(RSALT(N).LE. 2.4d-6)THEN\n         IF(RSALT(N).LT.10.d-9)THEN\n          ATOM4N(1)=ATOM4N(1)+XNSALT(N)\n         ELSE IF(RSALT(N).LT.60.d-9)THEN\n          ATOM4N(2)=ATOM4N(2)+XNSALT(N)\n         ELSE IF(RSALT(N).LT.0.5d-6)THEN\n          ATOM4N(3)=ATOM4N(3)+XNSALT(N)\n         ELSE\n          ATOM4N(4)=ATOM4N(4)+XNSALT(N)\n         ENDIF\n        ENDIF\n        ENDIF\n      ENDDO\n      ZTN(2) = SUM(XNSALT)\n!\n! Dust\n      DO N=1,NDSTB\n        MCORE(3)=MCORE(3) + XMDST(N)\n        XVDST(N)=XMDST(N)*1.d-3/DENDST(N)   !XV in cm3/cm3,DENDST in g/cm3\n        XNDST(N) = XVDST(N)/(1.E6*VDST(N)) ! XN in #/cm3, VDST in m3\n        RDSTWET(N)=RDST(N)*100.   ! wet size in cm, use RDST for now\n\n        IF(RDST(N).LT.1.25d-6) THEN\n         PM25(8)=PM25(8) + XMDST(N)*1.d9\n        ENDIF\n\n        IF(RDST(N).GE.1.35d-9)THEN\n        IF(RDST(N).LE. 2.4d-6)THEN\n         IF(RDST(N).LT.10.d-9)THEN\n          ATOM4N(1)=ATOM4N(1)+XNDST(N)\n         ELSE IF(RDST(N).LT.60.d-9)THEN\n          ATOM4N(2)=ATOM4N(2)+XNDST(N)\n         ELSE IF(RDST(N).LT.0.5d-6)THEN\n          ATOM4N(3)=ATOM4N(3)+XNDST(N)\n         ELSE\n          ATOM4N(4)=ATOM4N(4)+XNDST(N)\n         ENDIF\n        ENDIF\n        ENDIF\n      ENDDO\n      ZTN(3) = SUM(XNDST)\n      DUST500 = SUM(XNDST(6:NDSTB))\n\n! BCOC\n      DO N=1,NBCOC\n        MCORE(4)=MCORE(4) + XMBC(N)\n        XVBC(N)=XMBC(N)*1.D-3/DENAER(4)  !XV in cm3/cm3,DEN in g/cm3\n        XNBC(N) = XVBC(N)/(1.E6*VBCOC(N)) ! XN in #/cm3, VBC in m3\n\n        IF(RBCOC(N).LT.1.25D-6) THEN\n         PM25(5)=PM25(5) + XMBC(N)*1.d9\n        ENDIF\n      ENDDO\n      ZTN(4) = SUM(XNBC)\n\n      DO N=1,NBCOC\n        MCORE(5)=MCORE(5) + XMOC(N)\n        XVOC(N)=XMOC(N)*1.D-3/DENAER(5)   !XV in cm3/cm3,DEN in g/cm3\n        XNOC(N) = XVOC(N)/(1.E6*VBCOC(N)) ! XN in #/cm3, VOC in m3\n\n        IF(RBCOC(N).LT.1.25D-6) THEN\n         PM25(6)=PM25(6) + XMOC(N)*2.1d9\n        ENDIF\n      ENDDO\n      ZTN(5) = SUM(XNOC)\n\n!******************************************************************************\n! Sulfate particle dry size increase due to uptake of NIT, NH4, SOA via\n! equilibrium/partition  (ratio same for all sizes for now)\n! assume SO4, NIT, NH4, SOA have same density for now\n\n! MSULFLV teated as a part of MSO4 for now but not involved in isoropia calculation\n      MSO4B = MSO4-MSULFLV\n      IF(MSO4B.LE.0.) THEN\n        WRITE(6,*)\"MSO4.LE.MSULFLV\",II,JJ,LL,MSO4,MSULFLV\n! Reduce MSULFLV for now\n        MSULFLV = 0.99*MSO4\n        MSO4B = MSO4-MSULFLV\n      ENDIF\n      MCORE(1) = MSO4B\n\n      DO N=1,NTYP\n         IF(MCORE(N).LE.0.) THEN\n!           WRITE(6,*)\"MCORE.LE.0\", N, II, JJ,LL\n           MCORE(N)=1.d-20\n         ENDIF\n      ENDDO\n\n! NIT, NH4, and MSA on SP\n! When call inorganic equilibrium, MSULFT is used. Need scale to get\n! NIT, NH4, MSA associated with SP.\n      MSULFT = MSO4B+MBCS+MOCS+MDSTS+MSALTS  !Total SulfateNew  (kg/m3)\n      MSULFT = MAX(MSULFT,1.d-20)\n      FSO4B = MSO4B/MSULFT   ! fraction of SO4 in SP\n      MNITB = MNIT * FSO4B\n      MNH4B = MNH4 * FSO4B\n      MMSAB = MMSA * FSO4B\n\n! SV-SOA, MV-SOA on SP\n! MOC*2.1+MSULFLV+MBCLV+MOCLV+MDSTLV+MSALTLV was used to get SOAT\n\n      TOTMP = MCORE(5)*2.1+MSULFLV+MBCLV+MOCLV+MDSTLV+MSALTLV \n      TOTMP = MAX(TOTMP,1.d-20)\n      MSOA = SOAT*MSULFLV/TOTMP ! SOA partioned into SP (kg/m3)\n\n      MSP(1) = MSO4+MMSAB+MNITB+MNH4B+MSOA  ! total mass of SP\n      MSP(2) = MSALTS*(1.+(MMSA+MNIT+MNH4)/MSULFT) ! SP mass on sea salt\n     &        +MSALTLV*(1.+SOAT/TOTMP)  \n      MSP(3) = MDSTS*(1.+(MMSA+MNIT+MNH4)/MSULFT) ! SP mass on dust\n     &        +MDSTLV*(1.+SOAT/TOTMP)  \n      MSP(4) = MBCS*(1.+(MMSA+MNIT+MNH4)/MSULFT) ! SP mass on BC\n     &        +MBCLV*(1.+SOAT/TOTMP)  \n      MSP(5) = MOCS*(1.+(MMSA+MNIT+MNH4)/MSULFT) ! SP mass on OC\n     &        +MOCLV*(1.+SOAT/TOTMP)  \n!     &        +MCORE(5)*2.*SOAT/TOTMP\n     &        +MCORE(5)*2.1*SOAT/TOTMP\n\n      XRATIO  = (MSO4B+MBCS+MOCS)/MSULFT\n      PM25(1) = (MSO4B + MBCS+MOCS)*1.d9\n      PM25(2) = (MNIT * XRATIO )*1.d9\n      PM25(3) = (MNH4 * XRATIO)*1.d9\n      PM25(4) = (SOAT + MSULFLV+MBCLV+MOCLV)*1.d9\n\n!\n! determine cloud activation dry diameters at three S based on composition\n\n      XSAT = 0.001 ! assume 0.1%, will be updated in the next call\n      CALL DACTS(TK,MSO4,MSULFLV,MMSAB,MNITB,MNH4B,MSOA,\n     &              MCORE,MSP,XSAT,ZK,ZDACT)\n\n!      CALL GETGAMMAN2O5(TK, RH, MSO4, MSULFLV, MMSAB,\n!     &                  MNITB, MNH4B, MSOA, MCORE,\n!     &                  MSP, GAMMAPM )\n\n      IF(MSO4.LE.0.) THEN\n         write(6,99)II,JJ,LL,MSO4,MSULFLV,MMSA,MNIT,MNH4,MSOA\n         GFGAS = 1.\n      ELSE\n! MSULFLV included in MSO4\n         GFGAS=(MSP(1)/MSO4)**(1./3.) \n      ENDIF\n\n! for max sat\n      ITYPE = 1\n      NSIZE_AER(ITYPE)=NSO4\n      DO N= 1, NSIZE_AER(ITYPE)\n         NAEROSOL(N,ITYPE)=XN(N)*1.0d6  ! #/m3\n         AM(N,ITYPE) = GFGAS*RDRY(N)    ! m\n         HYGRO_AER(N,ITYPE)=ZK(ITYPE)\n      ENDDO\n!\n! log-normal fitting to SP \n      RGTOT = 0.\n      XMTOT = 1.d-20\n      DO N= 1, NSO4                ! \n        YM(N) = GFGAS**3.0*XVA(N)*DENSULF*1.d3  !XVA in cm3/cm3  YM in kg/m3\n        RGTOT = RGTOT + YM(N)*DLOG10(GFGAS*RDRY(N))\n        XMTOT = XMTOT + YM(N)\n      ENDDO\n      RGM =10.**(RGTOT/XMTOT)   ! mass weighted median R in m\n\n      SIG2TOT = 0.\n      DO N= 1,NSO4\n       SIG2TOT=SIG2TOT+YM(N)*DLOG10(GFGAS*RDRY(N)/RGM)\n     &                     *DLOG10(GFGAS*RDRY(N)/RGM)\n      ENDDO\n      SIG = 10.**(SQRT(SIG2TOT/XMTOT))  ! standard deviation\n\n\n! Growth due to uptake of water, need update for LV-SOA later\n      IRH = INT(RH+0.5)\n!      IRH= MIN0(99,IRH)\n!OPT+      IRH= MIN0(99,IRH)\n!OPT+ GF calculate large uncertainty at high RH, also should avoid AOD at the\n! presence of cloud. set RH to a max of 95% for now.\n      IRH= MIN0(99,IRH)\n      IRH= MAX0(1,IRH)\n!      GF2 = YGF(IRH,2)  ! growth factor of SO4+NIT+NH4 component \n! Based on ISOROPIA\n      GF2 = YSPGF\n\n      GF3 = YGF(IRH,3)  ! growth factor of SOA component \n      FRACSOA = MSOA/MSP(1)\n      GFWATERVOL = (1.-FRACSOA)*GF2**3.0 + FRACSOA*GF3**3.0\n      GFWATER = GFWATERVOL**(1./3.)\n!\n! Total growth factor\n      GFTOT = GFGAS*GFWATER\n      IF(GFTOT<1.D0)THEN\n         WRITE(*,*)'GFTOT < 1, set to 1',II,JJ,LL,GFTOT\n         GFTOT = 1.D0\n      ENDIF\n      GFTOT1 = GFTOT\n\n      DO N=1,NSO4\n         RWET(N) = RDRY(N)*GFTOT  ! Consider uptake of NIT,NH4,SOA and H20\n         RWETCM(N) = RWET(N)*100.\n      ENDDO\n\n! Average density of wet particles\n      DENWET=DENSULF/GFWATERVOL+DENWATER*(1.-1./GFWATERVOL)\n      DENWET1 = DENWET\n! Then find corresponding act bins \n      I3nm=1\n      I10nm=1\n      IACT10=1\n      IACT20=1\n      IACT30=1\n      RACT1=1\n      RACT2=1\n      RACT3=1\n\n      DO N   = 2, NSO4\n         DIAM1GAS = GFGAS*RDRY(N-1)*2.\n         DIAM2GAS = GFGAS*RDRY(N)*2.\n         IF(3.d-9.GE.DIAM1GAS.and.3.d-9.LT.DIAM2GAS) I3nm=N\n         IF(1.d-8.GE.DIAM1GAS.and.1.d-8.LT.DIAM2GAS) I10nm=N\n         IF(ZDACT(1,1).GE.DIAM1GAS.and.ZDACT(1,1).LT.DIAM2GAS) IACT10=N\n         IF(ZDACT(1,2).GE.DIAM1GAS.and.ZDACT(1,2).LT.DIAM2GAS) IACT20=N\n         IF(ZDACT(1,3).GE.DIAM1GAS.and.ZDACT(1,3).LT.DIAM2GAS) IACT30=N\n\n        IF(GFGAS*RDRY(N).GE.1.35d-9)THEN\n        IF(GFGAS*RDRY(N).LE. 2.4d-6)THEN\n         IF(GFGAS*RDRY(N).LT.10.d-9)THEN\n          ATOM4N(1)=ATOM4N(1)+XN(N)\n         ELSE IF(GFGAS*RDRY(N).LT.60.d-9)THEN\n          ATOM4N(2)=ATOM4N(2)+XN(N)\n         ELSE IF(GFGAS*RDRY(N).LT.0.5d-6)THEN\n          ATOM4N(3)=ATOM4N(3)+XN(N)\n         ELSE\n          ATOM4N(4)=ATOM4N(4)+XN(N)\n         ENDIF\n        ENDIF\n        ENDIF\n      ENDDO\n      RACT1=IACT20\n!\n      ZCCN(1,1)=SUM(XN(IACT10:NSO4))\n      ZCCN(1,2)=SUM(XN(IACT20:NSO4))\n      ZCCN(1,3)=SUM(XN(IACT30:NSO4))\n      ZTN(1) = SUM(XN(I3nm:NSO4))\n\n!\n! Wet size and density of seasalt\n!\n      GF4 = YGF(IRH,4)  ! growth factor of seasalt component \n      IF(GF4.LT.1.D0)THEN\n         WRITE(*,*)'GF4 < 1',II,JJ,LL,GF4\n         GF4 = 1.0\n      ENDIF\n      GFTOT2= GF4\n\n      DO N=1,NSEA\n         RSALTWET(N) = RSALT(N)*GF4\n         RSALTWETCM(N) = RSALTWET(N)*100.\n      ENDDO\n      Y1 = 1./(GF4**3.)\n      DENSALTWET = DENAER(2)*Y1 + DENWATER*(1. - Y1)\n      DENWET2 = DENSALTWET\n\n! Wetsize of coated BCOC -- rough calculation for now\n      IF(MCORE(4).GT.0.D0)THEN\n         RRATIO = (1. + MSP(4)/MCORE(4))**(1./3.)\n         RRATIOWET=(1.+MSP(4)*GFWATER**3./MCORE(4))**(1./3.)\n      ELSE\n         RRATIO=1.D0\n         RRATIOWET=1.D0\n      ENDIF\n      RRATIOBC = RRATIO\n      RRATIOWETBC = RRATIOWET\n\n      IF(MCORE(5).GT.0.D0)THEN\n         RRATIO = (1. + MSP(5)/MCORE(5))**(1./3.)\n!bug         RRATIOWET=(1.+MOCS*(GFGAS*GFWATER)**3./MCORE(5))**(1./3.)\n         RRATIOWET=(1.+MSP(5)*GFWATER**3./MCORE(5))**(1./3.)\n      ELSE\n         RRATIO=1.D0\n         RRATIOWET=1.D0\n      ENDIF\n\n! OPT+\n      RRATIOOC = RRATIO\n      RRATIOWETOC = RRATIOWET\n! OPT+\n\n      DO N=1,NBCOC\n        RBCWET(N)=RBCOC(N)*100.*RRATIOWETBC   ! wet size in cm\n        ROCWET(N)=RBCOC(N)*100.*RRATIOWETOC   ! wet size in cm\n      ENDDO\n      Y1 = 1./(RRATIOWETBC**3.)\n      DENBCWET = DENAER(4)*Y1 + DENWET*(1. - Y1)\n      Y1 = 1./(RRATIOWETOC**3.)\n      DENOCWET = DENAER(5)*Y1 + DENWET*(1. - Y1)\n\n!******************************************************************************\n! Condensation sink, coagulation sink  of various aerosols\n!\n      PMB = PRESS/100.    ! convert pa to mb\n      VGAS = SQRT(216.03*TK)*100.  ! cm/s\n      FREEP = PRESS*300./(1.013E5*TK)* 7.5E-6   ! H2SO4 mean free path (cm)\n\n      TAREA = 1.d-20\n      TCS = 1.d-20\n      YAREASALT = 1.d-20\n      DO N = 1, NTYP\n        YCS(N) = 1.d-21\n         IF(N.EQ.1) THEN   ! sulfate - use size distr to calculate CS\n           CSSULF = 1.d-21\n           AREASULF = 1.d-21\n           DO NI = 1, NSO4\n              XRCM = RWET(NI)*100.   ! cm\n              AREA = 4.*ONEPI*XRCM*XRCM*XN(NI)  !cm2/cm3\n\n              AERAREA(NI)=AREA\n              AERDRYR(NI)=XRCM\n\n              AREASULF = AREASULF + AREA\n              YKN = FREEP/XRCM\n              FCORR = YKN/(0.75+YKN) \n              CSSULF = CSSULF + 0.25*VGAS*AREA*FCORR  ! s-1\n           ENDDO\n           TAREA = TAREA + AREASULF\n           SURF(N) = AREASULF\n           YCS(N) = CSSULF\n         ELSEIF(N.EQ.2) THEN   ! sea salt- use size distr to calculate CS\n           CSSALT = 1.d-21\n           AREASALT = 1.d-21\n           DO NI = 1, NSEA\n              XRCM = RSALTWET(NI)*100.   ! cm\n              AREA = 4.*ONEPI*XRCM*XRCM*XNSALT(NI)  !cm2/cm3\n\n              AERAREA(NSO4+NI)=AREA\n              AERDRYR(NSO4+NI)=XRCM\n\n              AREASALT = AREASALT + AREA\n              YAREASALT(NI) = AREA\n              YKN = FREEP/XRCM\n              FCORR = YKN/(0.75+YKN) \n              CSSALT = CSSALT + 0.25*VGAS*AREA*FCORR  ! s-1\n           ENDDO\n           TAREA = TAREA + AREASALT\n           SURF(N) = AREASALT\n           YCS(N) = CSSALT\n         ELSEIF(N.EQ.3) THEN   ! dust\n           CSDST = 1.d-21\n           AREADST = 1.d-21\n           DO NI = 1, NDSTB\n              XRCM = RDSTWET(NI)   ! cm\n              AREA = 4.*ONEPI*XRCM*XRCM*XNDST(NI)  !cm2/cm3\n\n              AERAREA(NSO4+NSEA+NI)=AREA\n              AERDRYR(NSO4+NSEA+NI)=XRCM\n\n              AREADST = AREADST + AREA\n              YAREADST(NI) = AREA\n              YKN = FREEP/XRCM\n              FCORR = YKN/(0.75+YKN)\n              CSDST = CSDST + 0.25*VGAS*AREA*FCORR  ! s-1\n           ENDDO\n           TAREA = TAREA + AREADST\n           SURF(N) = AREADST\n           YCS(N) = CSDST\n         ELSEIF(N.EQ.4) THEN   ! BC\n           CSBC = 1.D-21\n           AREABC = 1.D-21\n           DO NI = 1, NBCOC\n              XRCM = RBCWET(NI)   ! cm\n              AREA = 4.*ONEPI*XRCM*XRCM*XNBC(NI)  !cm2/cm3\n              AREABC = AREABC + AREA\n              YAREABC(NI) = AREA\n              YKN = FREEP/XRCM\n              FCORR = YKN/(0.75+YKN)\n              CSBC = CSBC + 0.25*VGAS*AREA*FCORR  ! s-1\n           ENDDO\n           TAREA = TAREA + AREABC\n           SURF(N) = AREABC\n           YCS(N) = CSBC\n           IF(IFCOATBC.EQ.0) THEN ! don't consider coating on BC, set CS to zero so that condensation and scavenging ignored\n            YCS(N) = 1.D-20\n           ENDIF\n\n           SURF(N) = AREA\n         ELSEIF(N.EQ.5) THEN   ! POC\n           CSOC = 1.D-21\n           AREAOC = 1.D-21\n           DO NI = 1, NBCOC\n              XRCM = ROCWET(NI)   ! cm\n              AREA = 4.*ONEPI*XRCM*XRCM*XNOC(NI)  !cm2/cm3\n\n              AREAOC = AREAOC + AREA\n              YAREAOC(NI) = AREA\n              YKN = FREEP/XRCM\n              FCORR = YKN/(0.75+YKN)\n              CSOC = CSOC + 0.25*VGAS*AREA*FCORR  ! s-1\n           ENDDO\n           TAREA = TAREA + AREAOC\n           SURF(N) = AREAOC\n           YCS(N) = CSOC\n\n           SURF(N) = AREA\n         ENDIF\n         TCS = TCS + YCS(N)   ! Total CS \n      ENDDO\n      XS =  TAREA*1.E8   ! XS is total surface area in um2/cm3\n      TCSOTHER = TCS - CSSULF  ! CS of particles other than sulfate\n\n! CS for amine uptake\n      ACS = 0.\n      IF(IFAMINEUP.EQ.1) THEN\n        ACS = YCS(1) + YCS(2)*MSP(2)/(MSP(2)+MCORE(2)) \n     &               + YCS(3)*MSP(3)/(MSP(3)+MCORE(3))\n     &               + YCS(4)*MSP(4)/(MSP(4)+MCORE(4))\n     &               + YCS(5)*MSP(5)/(MSP(5)+MCORE(5))\n        ACS = ACS * AGAMA   !AGAMA amine accommodation coef\n      ENDIF\n\n      IF(ZTN(2).GT.1.) THEN\n       TAREASALT =SUM(YAREASALT)\n       DO N=1, NSEA\n! distribute MSALTS according to surface area\n         YSALTS(N) = MSALTS * YAREASALT(N)/TAREASALT  \n         MSALTSOA(N) = MSALTLV * YAREASALT(N)/TAREASALT  \n         MSALTTOT = XMSALT(N) \n     &              + YSALTS(N)*GFGAS**3.0   ! sulfate and associated NIT, CH4, SOA\n     &              + MSALTSOA(N)           ! SV-SOA not considered for now\n         RSALTGF(N) = RSALT(N)*(MSALTTOT/XMSALT(N))**(1./3.)\n       ENDDO\n      ELSE\n       RSALTGF = RSALT\n      ENDIF\n\n      N=1\n      IF((2.*RSALTGF(N)).GE.ZDACT(2,1))\n     &  ZCCN(2,1) = ZCCN(2,1) + XNSALT(N)\n      IF((2.*RSALTGF(N)).GE.ZDACT(2,2))\n     &  ZCCN(2,2) = ZCCN(2,2) + XNSALT(N)\n      IF((2.*RSALTGF(N)).GE.ZDACT(2,3))\n     &  ZCCN(2,3) = ZCCN(2,3) + XNSALT(N)\n\n      DO N=2,NSEA  ! Sea-salt CCN at 3 S\n         IF(ZDACT(2,2).GE.(2.*RSALTGF(N-1)).and.\n     &      ZDACT(2,2).LT.(2.*RSALTGF(N))) RACT2=N\n         IF((2.*RSALTGF(N)).GE.ZDACT(2,1)) \n     &     ZCCN(2,1) = ZCCN(2,1) + XNSALT(N)\n         IF((2.*RSALTGF(N)).GE.ZDACT(2,2)) \n     &     ZCCN(2,2) = ZCCN(2,2) + XNSALT(N)\n         IF((2.*RSALTGF(N)).GE.ZDACT(2,3)) \n     &     ZCCN(2,3) = ZCCN(2,3) + XNSALT(N)\n      ENDDO\n\n! for max sat\n      ITYPE = 2\n      NSIZE_AER(ITYPE)=NSEA\n      DO N= 1, NSIZE_AER(ITYPE)\n         NAEROSOL(N,ITYPE)=XNSALT(N)*1.0d6  ! #/m3\n         AM(N,ITYPE) = RSALTGF(N)    ! m\n         HYGRO_AER(N,ITYPE)=ZK(ITYPE)\n      ENDDO\n\n! RDST below to be updated later\n      N=1\n      IF((2.*RDST(N)).GE.ZDACT(3,1))\n     &  ZCCN(3,1) = ZCCN(3,1) + XNDST(N)\n      IF((2.*RDST(N)).GE.ZDACT(3,2))  ! dust CCN at S=~0.4%\n     &  ZCCN(3,2) = ZCCN(3,2) + XNDST(N)\n      IF((2.*RDST(N)).GE.ZDACT(3,3))\n     &  ZCCN(3,3) = ZCCN(3,3) + XNDST(N)\n\n      DO N=2,NDSTB  \n         IF(ZDACT(3,2).GE.(2.*RDST(N-1)).and.\n     &      ZDACT(3,2).LT.(2.*RDST(N))) RACT3=N\n         IF((2.*RDST(N)).GE.ZDACT(3,1))\n     &     ZCCN(3,1) = ZCCN(3,1) + XNDST(N)\n         IF((2.*RDST(N)).GE.ZDACT(3,2))  ! dust CCN at S=~0.4%\n     &     ZCCN(3,2) = ZCCN(3,2) + XNDST(N)\n         IF((2.*RDST(N)).GE.ZDACT(3,3))\n     &     ZCCN(3,3) = ZCCN(3,3) + XNDST(N)\n      ENDDO\n\n! for max sat\n      ITYPE = 3\n      NSIZE_AER(ITYPE)=NDSTB\n      DO N= 1, NSIZE_AER(ITYPE)\n         NAEROSOL(N,ITYPE)=XNDST(N)*1.0d6  ! #/m3\n         AM(N,ITYPE) = RDST(N)    ! m\n         HYGRO_AER(N,ITYPE)=ZK(ITYPE)\n      ENDDO\n\n      ITYPE = 4\n      IF(ZTN(ITYPE).GT.1.) THEN\n       TAREABC =SUM(YAREABC)\n       DO N=1, NBCOC\n! distribute MBCS according to surface area\n         YBCS = MBCS * YAREABC(N)/TAREABC\n         MBCSOA = MBCLV * YAREABC(N)/TAREABC\n         MBCTOT = XMBC(N)\n     &          + YBCS*GFGAS**3.0 ! sulfate and associated NIT, CH4, SOA\n     &          + MBCSOA           ! SV-SOA not considered for now\n         RBCGF(N) = RBCOC(N)*(MBCTOT/XMBC(N))**(1./3.)\n       ENDDO\n      ELSE\n       RBCGF = RBCOC\n      ENDIF\n\n      DO N=1,NBCOC  ! BC CCN at 3 S\n         IF((2.*RBCGF(N)).GE.ZDACT(ITYPE,1))\n     &     ZCCN(ITYPE,1) = ZCCN(ITYPE,1) + XNBC(N)\n         IF((2.*RBCGF(N)).GE.ZDACT(ITYPE,2))\n     &     ZCCN(ITYPE,2) = ZCCN(ITYPE,2) + XNBC(N)\n         IF((2.*RBCGF(N)).GE.ZDACT(ITYPE,3))\n     &     ZCCN(ITYPE,3) = ZCCN(ITYPE,3) + XNBC(N)\n      ENDDO\n\n! for max sat\n      NSIZE_AER(ITYPE)=NBCOC\n      DO N= 1, NSIZE_AER(ITYPE)\n         NAEROSOL(N,ITYPE)=XNBC(N)*1.0d6  ! #/m3\n         AM(N,ITYPE) = RBCGF(N)    ! m\n         HYGRO_AER(N,ITYPE)=ZK(ITYPE)\n      ENDDO\n\n      ITYPE = 5\n      IF(ZTN(ITYPE).GT.1.) THEN\n       TAREAOC =SUM(YAREAOC)\n       DO N=1, NBCOC\n! distribute MOCS according to surface area\n         YOCS = MOCS * YAREAOC(N)/TAREAOC\n         MOCSOA = MOCLV * YAREAOC(N)/TAREAOC\n         MOCTOT = XMOC(N)\n     &          + YOCS*GFGAS**3.0 ! sulfate and associated NIT, CH4, SOA\n     &          + MOCSOA          ! SV-SOA not considered for now -- Need to consider\n         ROCGF(N) = RBCOC(N)*(MOCTOT/XMOC(N))**(1./3.)\n       ENDDO\n      ELSE\n       ROCGF = RBCOC\n      ENDIF\n\n      DO N=1,NBCOC  ! OC CCN at 3 S\n         IF((2.*ROCGF(N)).GE.ZDACT(ITYPE,1))\n     &     ZCCN(ITYPE,1) = ZCCN(ITYPE,1) + XNOC(N)\n         IF((2.*ROCGF(N)).GE.ZDACT(ITYPE,2))\n     &     ZCCN(ITYPE,2) = ZCCN(ITYPE,2) + XNOC(N)\n         IF((2.*ROCGF(N)).GE.ZDACT(ITYPE,3))\n     &     ZCCN(ITYPE,3) = ZCCN(ITYPE,3) + XNOC(N)\n      ENDDO\n\n! for max sat\n      NSIZE_AER(ITYPE)=NBCOC\n      DO N= 1, NSIZE_AER(ITYPE)\n         NAEROSOL(N,ITYPE)=XNOC(N)*1.0d6  ! #/m3\n         AM(N,ITYPE) = ROCGF(N)    ! m\n         HYGRO_AER(N,ITYPE)=ZK(ITYPE)\n      ENDDO\n\n      ISITE = ISITES(42)\n      JSITE = JSITES(42)\n!      IF(II.EQ.ISITE.and.JJ.EQ.JSITE.AND.LL.LE.1) THEN\n!        WRITE(1001,100)MSO4,MSULFLV,MMSAB,MNITB,MNH4B,MSOA,FBCOC1,FBCOC2\n!        DO N =1, NTYP\n!         WRITE(1001,100)MCORE(N),MSP(N),YCS(N),ZK(N),\n!     &       ZDACT(N,1),ZDACT(N,2),ZDACT(N,3),\n!     &       ZTN(N),ZCCN(N,1),ZCCN(N,2),ZCCN(N,3)\n!        ENDDO\n!        flush(1001)\n!      ENDIF\n\n      TCCN(2) = SUM(ZCCN(1:5,2))\n\n      IF(TCCN(2)>1.d-9)THEN\n\n      DO N=1,NSO4\n         IF(N.LT.IACT20) THEN     ! average act diameter for sulfate aquous gain\n            FCLOUD1(N) = 0.d0\n         ELSE\n            FCLOUD1(N) = XN(N)/TCCN(2)  ! parition based on number conc for now\n         ENDIF\n      ENDDO\n      FCLOUD1(NSO4+1) = ZCCN(4,2)/TCCN(2)  ! partition based on number conc for now\n      FCLOUD1(NSO4+2) = ZCCN(5,2)/TCCN(2)\n      FCLOUD1(NSO4+3) = ZCCN(3,2)/TCCN(2)\n      FCLOUD1(NSO4+4) = ZCCN(2,2)/TCCN(2)\n\n      ELSE\n\n      FCLOUD1=0.D0\n      DO N=26,NSO4\n        FCLOUD1(N)=1/15.D0\n      ENDDO\n\n      ENDIF\n\n!******************************************************************************\n\n!******************************************************************************\n!OPT+\n      IF(IFOPT.GT.0) THEN\n! calculation of optical properties\n      ITEST = 0\n      IF(II.EQ.ISITES(27).and.JJ.EQ.JSITES(27).AND.LL.LE.1) THEN\n         ITEST = 1\n      ENDIF\n\n!      WLS(1)=0.55  ! wavelength in um\n      YBEXT=1.d-20\n      XBEXT1k=0.d0\n      YW=1.d-0\n      YG=0.d-20\n\n      ZBABS = 1.d-20\n!SP   \n      ITYPE = 1\n      IF(YCS(ITYPE).GT.1.d-5.and.MSO4B.GT.1.d-12) THEN\n       YVDRY = (MSO4B+MMSAB+MNITB+MNH4B)/DENSULF   ! INORGANICS\n     &  + (MSULFLV+MSOA)/DENAER(5)               ! ORGANICS\n      \n       VH2O = YVDRY*(GFWATERVOL-1.0)\n       VTOTAL = YVDRY + VH2O\n     \n       ZFV(1) = ((MSO4B+MMSAB)/DENSULF)/VTOTAL   !CORE, SO4\n       ZFV(2) = ZFV(1)                   !SO4 \n       ZFV(3) = (MNH4B/DENSULF)/VTOTAL   !NH4\n       ZFV(4) = (MNITB/DENSULF)/VTOTAL   !NO3\n       ZFV(5) = ((MSULFLV+MSOA)/DENAER(5))/VTOTAL   !SOA\n       ZFV(6) = VH2O/VTOTAL              !H2O \n\n       IF(ITEST.EQ.1) WRITE(1001,*)\"ZFV=\",(ZFV(I),I=1,6)\n\n       ZFV_SP = ZFV\n\n       MBIN = 20\n       DO I = 1, MBIN\n        XDCORE(I)=RDRY(NSO4-MBIN+I)*2.E6   ! RDRY in m, XDCORE in um\n        XN_IN(I) = XN(NSO4-MBIN+I)  \n        IF(IFCOAT.EQ.0) THEN ! When coated SP on PP not considered in OPT calculation, put them in SP\n          IF(FSO4B.LT.0.1) THEN\n             VRATIO = 1./0.1\n          ELSE\n             VRATIO = 1./FSO4B\n          ENDIF\n          XN_IN(I) = XN_IN(I)*VRATIO\n        ENDIF\n       ENDDO\n\n       IF(IFOPT==1)THEN\n       CALL APM_OPT(ITEST,ITYPE,MBIN,XDCORE(1:MBIN),XN_IN(1:MBIN),\n     &             ZFV,MWLS,WLS,XBEXT,XW,XG)\n       YBEXT(ITYPE,:)=XBEXT(:)\n       YW(ITYPE,:)=XW(:)\n       YG(ITYPE,:)=XG(:)\n       IF(ITEST.EQ.1) THEN\n          WRITE(1001,191)ITYPE,sum(XN_IN(1:MBIN)),\n     &        YBEXT(ITYPE,1),YW(ITYPE,1),YG(ITYPE,1)\n       ENDIF\n       ENDIF\n\n      ENDIF\n\n! sea salt\n      ITYPE = 2\n      IF(YCS(ITYPE).GT.1.d-5) THEN\n       yvdry = SUM(XVSALT)\n       vh2o = yvdry*(GF4**3.0-1.0)\n       vtotal = yvdry + vh2o\n \n       zfv(1) = yvdry/vtotal\n       zfv(2) = 0.  !coated SP not considered for now\n       zfv(3) = 0. \n       zfv(4) = 0.\n       zfv(5) = 0.\n       zfv(6) = vh2o/vtotal\n \n       MBIN = 18\n       DO I = 1, MBIN\n        XDCORE(I)=RSALT(NSEA-MBIN+I)*2.E6   ! RSALT in m, XDCORE in um\n        XN_IN(I) = XNSALT(NSEA-MBIN+I)  \n       ENDDO\n \n       IF(IFOPT==1)THEN\n       CALL APM_OPT(ITEST,ITYPE,MBIN,XDCORE(1:MBIN),XN_IN(1:MBIN),\n     &             ZFV,MWLS,WLS,XBEXT,XW,XG)\n       YBEXT(ITYPE,:)=XBEXT(:)\n       YW(ITYPE,:)=XW(:)\n       YG(ITYPE,:)=XG(:)\n       ENDIF\n\n      ENDIF\n\n     \n!! dust\n      ITYPE = 3\n      IF(YCS(ITYPE).GT.1.d-5) THEN\n       yvdry = SUM(XVDST)\n       vh2o = 0.0\n       vtotal = yvdry + vh2o\n \n       zfv(1) = yvdry/vtotal\n       zfv(2) = 0.  !coated SP not considered for now\n       zfv(3) = 0.\n       zfv(4) = 0.\n       zfv(5) = 0.\n       zfv(6) = vh2o/vtotal\n \n\n\n       MBIN = NDSTB - 2\n       DO I = 1, MBIN\n        XDCORE(I)=RDST(NDSTB-MBIN+I)*2.E6   ! RSALT in m, XDCORE in um\n        XN_IN(I) = XNDST(NDSTB-MBIN+I)\n       ENDDO\n       \n       IF(IFOPT==1)THEN\n       CALL APM_OPT(ITEST,ITYPE,MBIN,XDCORE(1:MBIN),XN_IN(1:MBIN),\n     &             ZFV,MWLS,WLS,XBEXT,XW,XG)\n       YBEXT(ITYPE,:)=XBEXT(:)\n       YW(ITYPE,:)=XW(:)\n       YG(ITYPE,:)=XG(:)\n\n!LW  for dust only\n       CALL APM_OPT_LW(ITEST,ITYPE,MBIN,XDCORE(1:MBIN),\n     &   XN_IN(1:MBIN),MWLL,WLL,XBEXT1,XW1,XG1)\n\n!       ZBEXT1(:)=XBEXT1(:)\n!       ZW1(:)=XW1(:)\n!       ZG1(:)=XG1(:)\n       DO IWL = 1, MWLL\n         ZBABS(IWL) = XBEXT1(IWL) * (1.-XW1(IWL))  ! LW calculation only need absorption coefficient\n       ENDDO\n       ENDIF\n       \n      ENDIF\n \n!\n!! BC \n      ITYPE=4\n      IF(YCS(ITYPE).GT.1.D-5) THEN\n       VRATIO = RRATIOWETBC**3.\n       IF(IFCOAT.EQ.0.) VRATIO = 1.\n!-----------------------------------------------------------------------------\n!BMY KLUDGE:  Add this here to avoid floating point exception! (bmy, 6/28/19)\n       zfv_sp = zfv\n!-----------------------------------------------------------------------------\n\n       zfv(1) = 1./VRATIO\n       zfv(2) = ZFV_SP(2)*(1.-1./VRATIO)  !assume coated SP has same composition as SP for now\n       zfv(3) = ZFV_SP(3)*(1.-1./VRATIO)\n       zfv(4) = ZFV_SP(4)*(1.-1./VRATIO)\n       zfv(5) = ZFV_SP(5)*(1.-1./VRATIO)\n       zfv(6) = ZFV_SP(6)*(1.-1./VRATIO)\n\n       MBIN = NBCOC\n       DO I = 1, MBIN\n        XDCORE(I)=RBCOC(I)*2.E6   ! RDRY in m, XDCORE in um\n        XN_IN(I) = XNBC(I)\n       ENDDO\n\n       IF(IFOPT==1)THEN\n       CALL APM_OPT(ITEST,ITYPE,MBIN,XDCORE(1:MBIN),XN_IN(1:MBIN),\n     &             ZFV,MWLS,WLS,XBEXT,XW,XG)\n       YBEXT(ITYPE,:)=XBEXT(:)\n       YW(ITYPE,:)=XW(:)\n       YG(ITYPE,:)=XG(:)\n     \n       IF(ITEST.EQ.1) THEN\n          WRITE(1001,191)ITYPE,sum(XN_IN(1:MBIN)),\n     &        YBEXT(ITYPE,1),YW(ITYPE,1),YG(ITYPE,1)\n\n       ENDIF\n       ENDIF\n\n      ENDIF\n 191  FORMAT(I3,10(1PE10.3))\n\n!\n!! POC  \n      ITYPE=5\n      IF(YCS(ITYPE).GT.1.D-5) THEN\n       VRATIO = RRATIOWETOC**3.\n\n       IF(IFCOAT.EQ.0.) VRATIO = 1.\n!-----------------------------------------------------------------------------\n!BMY KLUDGE: Add this here to avoid floating point exception! (bmy, 6/28/19)\n       zfv_sp = zfv\n!-----------------------------------------------------------------------------\n\n       zfv(1) = 1./VRATIO\n       zfv(2) = ZFV_SP(2)*(1.-1./VRATIO)  !assume coated SP has same composition as SP for now\n       zfv(3) = ZFV_SP(3)*(1.-1./VRATIO)\n       zfv(4) = ZFV_SP(4)*(1.-1./VRATIO)\n       zfv(5) = ZFV_SP(5)*(1.-1./VRATIO)\n       zfv(6) = ZFV_SP(6)*(1.-1./VRATIO)\n\n       MBIN = NBCOC\n       DO I = 1, MBIN\n        XDCORE(I)=RBCOC(I)*2.E6   ! RBCOC in m, XDCORE in um\n        XN_IN(I) = XNOC(I)\n       ENDDO\n\n       IF(IFOPT==1)THEN\n       CALL APM_OPT(ITEST,ITYPE,MBIN,XDCORE(1:MBIN),XN_IN(1:MBIN),\n     &             ZFV,MWLS,WLS,XBEXT,XW,XG)\n       YBEXT(ITYPE,:)=XBEXT(:)\n       YW(ITYPE,:)=XW(:)\n       YG(ITYPE,:)=XG(:)\n       ENDIF\n\n      ENDIF\n\n      IF(IFCDNPDF==1)THEN\n! CDN calculation based on PDF\n\n      SIGMA = 0.5\n      DW = 4.0/float(MW)\n      DO IW = 1, MW\n       W(IW)=float(IW-MW/2-1)*DW + 0.05\n       PW(IW)=exp(-0.5*W(IW)*W(IW)/(SIGMA*SIGMA))\n     &    /(SQRT(2.*3.1416)*SIGMA)\n      ENDDO\n\n      YCDN = 0.\n      DO IW = 1, MW\n!       WW = W(IW) + WBAR\n       WW = W(IW) + VZ\n       ZCDN = 1.d-10\n       IF(WW.GT.0.) THEN\n        call activate(maxsatout,WW,tk,press, \n     &          NTYP, NTYP, NSO4, nsize_aer,    \n     &          naerosol, am, hygro_aer)\n\n        XSAT = maxsatout \n        CALL DACTS(TK,MSO4,MSULFLV,MMSAB,MNITB,MNH4B,MSOA,\n     &              MCORE,MSP,XSAT,ZK,ZDACT)\n\n\n! CDN at calculated S with assumed updarft velocity\n        IS = 4\n        IACT40=1\n        RACT1=1\n        RACT2=1\n        RACT3=1\n\n        DO N = 2, NSO4\n         DIAM1GAS = GFGAS*RDRY(N-1)*2.\n         DIAM2GAS = GFGAS*RDRY(N)*2.\n         IF(ZDACT(1,IS).GE.DIAM1GAS.and.ZDACT(1,IS).LT.DIAM2GAS) \n     &             IACT40=N\n        ENDDO\n        ZCDN(1) = SUM(XN(IACT40:NSO4))\n        RACT1 = IACT40\n\n        N=1\n        IF((2.*RSALTGF(N)).GE.ZDACT(2,IS))\n     &    ZCDN(2) = XNSALT(N)\n        IF((2.*RDST(N)).GE.ZDACT(3,IS))\n     &    ZCDN(3) = XNDST(N)\n\n        DO N=2,NSEA\n         IF(ZDACT(2,IS).GE.(2.*RSALTGF(N-1)).and.\n     &      ZDACT(2,IS).LT.(2.*RSALTGF(N))) RACT2=N\n         IF((2.*RSALTGF(N)).GE.ZDACT(2,IS))THEN\n           ZCDN(2) = ZCDN(2) + XNSALT(N)\n         ENDIF\n        ENDDO\n\n        DO N=2,NDSTB  \n         IF(ZDACT(3,IS).GE.(2.*RDST(N-1)).and.\n     &      ZDACT(3,IS).LT.(2.*RDST(N))) RACT3=N  \n         IF((2.*RDST(N)).GE.ZDACT(3,IS))THEN\n           ZCDN(3) = ZCDN(3) + XNDST(N)\n         ENDIF\n        ENDDO\n\n      DO N=1,NBCOC\n         IF((2.*RBCGF(N)).GE.ZDACT(4,IS))\n     &     ZCDN(4) = ZCDN(4) + XNBC(N)\n         IF((2.*ROCGF(N)).GE.ZDACT(5,IS))\n     &     ZCDN(5) = ZCDN(5) + XNOC(N)\n      ENDDO\n\n\n\n       ENDIF\n       DO ITYPE = 1, NTYP\n        YCDN(ITYPE)=YCDN(ITYPE) + PW(IW)*DW* ZCDN(ITYPE)\n       ENDDO\n      ENDDO\n\n      XCDN = sum(YCDN)\n      XCDNSP = YCDN(1)\n\n      ELSE\n        XCDN = 50.D6\n        XCDNSP = 50.D6\n      ENDIF\n\n!      IF(ITEST.EQ.1) THEN\n!        WRITE(1002,*)TK,PRESS,maxsatout\n!        DO ITYPE = 1, NTYP\n!          WRITE(1002,192)ITYPE,NSIZE_AER(ITYPE)\n!          WRITE(1002,193)(NAEROSOL(N,ITYPE),N=1,NSIZE_AER(ITYPE))\n!          WRITE(1002,193)(AM(N,ITYPE),N=1,NSIZE_AER(ITYPE))\n!          WRITE(1002,193)(HYGRO_AER(N,ITYPE),N=1,NSIZE_AER(ITYPE))\n!        ENDDO\n!      ENDIF\n! 192  FORMAT(I3,I3)\n! 193  FORMAT(50(1PE9.2))\n\n!\n!! Calculate total optical properties\n      ZBEXT = 1.d-20\n      DO IWL=1, MWLS\n         ZTEMP1 = 1.d-20\n         ZTEMP2 = 1.d-20\n         DO ITYPE=1,NTYP\n          ZBEXT(IWL)=ZBEXT(IWL) + YBEXT(ITYPE,IWL)\n\n          ZTEMP1 = ZTEMP1 + YBEXT(ITYPE,IWL)*YW(ITYPE,IWL)   ! total scattering\n          ZTEMP2 = ZTEMP2 + YBEXT(ITYPE,IWL)*YW(ITYPE,IWL)*YG(ITYPE,IWL)   \n         ENDDO\n         ZW(IWL)=ZTEMP1/ZBEXT(IWL)\n         ZG(IWL)=ZTEMP2/ZTEMP1\n\n      ENDDO\n!\n!******************************************************************************\n!OPT+\n      ENDIF  !IFOPT\n!******************************************************************************\n! Reduced time step for nucleation/growth\n\n      IFNGC = 0   ! timestep not reduced\n      DNMAX = 500.  ! max change of XN1 due to nucl\n\n      CACID0 = CACID\n\n      CACIDAVE = 1.D-30\n      YJAVE = 1.D-30\n      YYJAVE = 1.D-30\n      YJATHNAVE = 1.D-30\n      YJATHN = 1.D-30\n      YJAVE_BH = 1.D-30\n      YJAVE_BIM = 1.D-30\n      YJAVE_TH = 1.D-30\n      YJAVE_TIM = 1.D-30\n      YJAVE_OM = 1.D-30\n      YJAVE_PON = 1.D-30\n      YJAVE_POI = 1.D-30\n\n      YJAVE_BN = 1.D-30\n      YJAVE_BI = 1.D-30\n      YJAVE_TN = 1.D-30\n      YJAVE_TI = 1.D-30\n\n      DACID = 0.\n      DLVSOG = 0.\n\n      DTLEFT = DT\n\n      IF(PLVSOG1.GT.1.0) THEN\n        CHOM = CLVSOG*PLVSOG01/PLVSOG1\n      ELSE\n        CHOM = CLVSOG\n      ENDIF\n\n      DTNGC = DT\n\n      ! Initialize YJ to avoid div-by-zero errors (bmy, 19 Jan 2022)\n      YJ = 0d0\n\n!      IF(CACID.GT.5.d5)THEN\n      IF(CACID.GT.5.d5.or.(IFNUCL.GE.13.and.CHOM.GT.5.d5))THEN\n 80      CONTINUE\n! Nucl   \n         IF(IFNUCL.EQ.1) THEN   ! IMN\n            CALL YUJTIMN1(CACID,RH,TK,XQ,XS,XNH3,XJBH,XJBIM,XJTH,XJTIM,\n     &                    RBH,RBIM,RTH,RTIM)\n            YJ = XJTIM\n\n\n          YYJ = YJ\n          YJ = YYJ\n          \n         ELSEIF(IFNUCL.EQ.2) THEN   ! KBHN (XQ=1.E-20, XNH3=0)\n            XQ=1.E-20\n            XNH3=1.E-20\n            CALL YUJTIMN1(CACID,RH,TK,XQ,XS,XNH3,XJBH,XJBIM,XJTH,XJTIM,\n     &                    RBH,RBIM,RTH,RTIM)\n            YYJ = YJ\n         ELSEIF(IFNUCL.EQ.3) THEN  !empirical activation nucl\n            YJ = 3.5E-7 * CACID   !\n         ELSEIF(IFNUCL.EQ.4) THEN  !empirical kinetic nucl\n            YJ = 5.5E-14 * CACID * CACID   !\n         ELSE\n            write(6,*)\"STOP at apm_phys_mod.f: Check IFNUCL value\"\n            stop\n         ENDIF\n\n         !--------------------------------------------------------\n         ! NOTE: Rewrite code to avoid div-by-zero if YJ=0\n         !  -- Bob Yantosca (19 Jan 2022)\n         !IF(DT.GT.(DNMAX/YJ)) THEN\n         !   DTNGC = DNMAX/YJ    ! small timestep for large J\n         !   DTNGC = MAX(DTNGC,1.8d2)  !set minimum DTNGC\n         !ELSE\n         !   DTNGC = DT\n         !ENDIF\n         !--------------------------------------------------------\n         DTNGC = DT\n         IF ( ABS(YJ) > 1.0d-30 ) THEN\n            IF(DT.GT.(DNMAX/YJ)) THEN\n               DTNGC = DNMAX/YJ ! small timestep for large J\n               DTNGC = MAX(DTNGC,1.8d2) !set minimum DTNGC\n            ENDIF\n         ENDIF\n\n         IF(DTLEFT.GT.(1.5*DTNGC)) THEN\n           DTLEFT = DTLEFT - DTNGC\n         ELSE\n           DTNGC = DTLEFT\n           DTLEFT = 0.\n         ENDIF\n         IF(DTNGC.LT.DT)  IFNGC = 1    ! cut time step\n\n         ZN1 =SUM(XN)\n\n         YJAVE = YJAVE + YJ*DTNGC/DT\n\n         YJATHNAVE = YJATHNAVE + YJATHN*DTNGC/DT\n\n         YJAVE_BH = YJAVE_BH + XJBH*DTNGC/DT\n         YJAVE_BIM = YJAVE_BIM + XJBIM*DTNGC/DT\n         YJAVE_TH = YJAVE_TH + XJTH*DTNGC/DT\n         YJAVE_TIM = YJAVE_TIM + XJTIM*DTNGC/DT\n\n         !YJAVE_OM = YJAVE_OM + YJOM*DTNGC/DT\n         !YJAVE_PON = YJAVE_PON + YJPON*DTNGC/DT\n         !YJAVE_POI = YJAVE_POI + YJPOI*DTNGC/DT\n\n         !YJAVE_BN = YJAVE_BN + XJBN*DTNGC/DT\n         !YJAVE_BI = YJAVE_BI + XJBI*DTNGC/DT\n         !YJAVE_TN = YJAVE_TN + XJTN*DTNGC/DT\n         !YJAVE_TI = YJAVE_TI + XJTI*DTNGC/DT\n\n         XN(1) = XN(1) + YJ*DTNGC\n         DVJ = YJ * DTNGC * VDRY(1)*1.E6   ! cm3/cm3\n         XVA(1) = XVA(1) + DVJ   ! cm3/cm3\n         CACID = CACID - DVJ/V1ACID\n\n! Calculate condensational growth of H2SO4\n         IF(CACID.GT.5.d5) THEN\n          ICOND = 1\n          XMCONDIN = 96.0   !g/mol\n          CACIDIN = CACID\n          PACIDIN = PACID\n          TCSOTHERIN = TCSOTHER\n \n          SUMXVA0 = SUM(XVA)\n \n          CALL APM_GROW(ICOND,NSO4,TK,PRESS,CACIDIN,PACIDIN, \n     &      TCSOTHERIN,DTNGC,XN,XVA,RWETCM,TOTCONDOTH,XMCONDIN)   ! XN in #/cm3, XVA in cm3/cm3\n                                                 ! TOTCONDOTH in # H2SO4/ cm3\n\n          SUMXVA1 = SUM(XVA)\n          SUMXVA1 = MAX(SUM(XVA),1.D-30)\n          DACID = SUMXVA1 - SUMXVA0   ! amount condensed (cm3/cm3)\n          CACID = CACIDIN\n! SULFATE MASS condensing on particles other than sulfate\n          IF(TCSOTHER.GT.1.D-5) THEN\n           MCONDOTH = TOTCONDOTH*V1ACID*DENSULF*1.d3  ! kg/m3\n           MSALTS = MSALTS + MCONDOTH * YCS(2)/TCSOTHER\n           MDSTS = MDSTS + MCONDOTH * YCS(3)/TCSOTHER\n           MBCS   = MBCS +   MCONDOTH * YCS(4)/TCSOTHER\n           MOCS   = MOCS +   MCONDOTH * YCS(5)/TCSOTHER\n          ENDIF\n          CACIDAVE = CACIDAVE + CACID*DTNGC/DT\n\n          CALL APM_MOVEBIN(NSO4,XN,XVA)\n         ELSE\n          CACIDAVE = CACIDAVE + CACID*DTNGC/DT\n         ENDIF\n\n         IF(IFNGC.EQ.1) THEN\n! coag\n          ZN2 =SUM(XN)\n          DTCOAG1 = DTNGC\n          ITYPE = 1 !sulfate\n          CALL APM_COAG(ITYPE,NSO4,TK,PMB,DTCOAG1,RWETCM,DENWET,XN,XVA)\n          NCOAG1 = 0  ! reset counter to 0 after coag is called\n\n! Scavenging of sulfate particles by other types of aerosols\n          IF((TCS-CSSULF).GT.1.E-5) THEN\n           RLOSULF = MSULFLV/(SUMXVA1*DENSULF*1.d3)   !ratio of LO mass on SULF to total mass\n           RLOSULF = MIN(RLOSULF, 1.0d0)\n\n           CALL APM_COAGSCAV(\n     &     TK,PMB,DTNGC,DENWET,RWETCM,YCS,RLOSULF,\n     &     DENSALTWET,RSALTWETCM,XNSALT,\n     &     DENBCWET,RBCWET,XNBC,\n     &     DENOCWET,ROCWET,XNOC,\n     &     DENAER,XNDST,\n     &     XVA,MBCS,MOCS,MDSTS,MSALTS,MBCLV,MOCLV,MDSTLV,MSALTLV)\n          ENDIF\n\n!APM2+IFAG++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n          IF(IFAG.EQ.1) THEN\n! LVSOG condensation on secondary particles, when condensed, LVSOG becomes part of SULF (for now)\n! Calculate condensational growth of LVSOG\n           IF(CLVSOG.GT.CLVSOG0) THEN\n            ICOND = 2\n            XMCONDIN = XMLVSOG   !g/mol\n            CACIDIN = CLVSOG\n            PACIDIN = PLVSOG1  !#/cm3s\n            TCSOTHERIN = TCSOTHER*SQRT(96./XMCONDIN)  !scale the CS\n            SUMXVA0 = SUM(XVA)\n            TOTCONDOTH = 0.\n\n            CALL APM_GROW(ICOND,NSO4,TK,PRESS,CACIDIN,PACIDIN, \n     &      TCSOTHERIN,DTNGC,XN,XVA,RWETCM,TOTCONDOTH,XMCONDIN)   ! XN in #/cm3, XVA in cm3/cm3\n                                                 ! TOTCONDOTH in # acid/cm3\n            CALL APM_MOVEBIN(NSO4,XN,XVA)\n! LVSOG MASS condensing on particles other than sulfate\n            IF(TCSOTHERIN.GT.1.D-5) THEN\n             MCONDOTH = TOTCONDOTH*V1LVSOG*DENSULF*1.d3  ! kg/m3\n             MSALTLV = MSALTLV + MCONDOTH * YCS(2)/TCSOTHER\n             MDSTLV = MDSTLV + MCONDOTH * YCS(3)/TCSOTHER\n             MBCLV = MBCLV + MCONDOTH * YCS(4)/TCSOTHER\n             MOCLV = MOCLV + MCONDOTH * YCS(5)/TCSOTHER\n            ENDIF\n            SUMXVA1 = MAX(SUM(XVA),1.D-30)\n            DLVSOG = SUMXVA1 - SUMXVA0   ! amount of LVSOG condensed (cm3/cm3)\n            MSULFLV = MSULFLV + DLVSOG*DENSULF*1.d3  ! kg/m3\n            CLVSOG = CACIDIN\n           ELSE\n            IF(TCS.GT.1.d-6) THEN\n! Allow the scaveging of residue LVSOG by particles\n             TCSLV = TCS*SQRT(96./XMLVSOG)  !scale the CS\n             TCSOTHERIN = TCSOTHER*SQRT(96./XMLVSOG)  !scale the CS\n             CLVSOG1 = PLVSOG1/TCSLV+(CLVSOG - PLVSOG1/TCSLV) \n     &             *exp(-TCSLV*DTNGC)\n            DLVSOG = CLVSOG + PLVSOG1*DTNGC - CLVSOG1\n! Distribue all condensed LVSOG to primary particles for now\n             MCONDOTH = DLVSOG*V1LVSOG*DENSULF*1.d3  ! kg/m3\n\n             MSULFLV = MSULFLV + MCONDOTH * YCS(1)/TCS \n             XVA(NSO4-1) = XVA(NSO4-1)+MCONDOTH/\n     &                   (DENSULF*1.d3) * YCS(1)/TCS  ! put in last bin of SP for now\n             MSALTLV = MSALTLV + MCONDOTH * YCS(2)/TCS\n             MDSTLV = MDSTLV + MCONDOTH * YCS(3)/TCS\n             MBCLV = MBCLV + MCONDOTH * YCS(4)/TCS\n             MOCLV = MOCLV + MCONDOTH * YCS(5)/TCS\n            ELSE\n             CLVSOG1 = CLVSOG + PLVSOG1*DTNGC\n            ENDIF\n            CLVSOG = CLVSOG1\n           ENDIF\n           RLOSULF = MSULFLV/(SUMXVA1*DENSULF*1.d3)   !ratio of LO mass on SULF to total mass\n           RLOSULF = MIN(RLOSULF, 1.0d0)\n          ENDIF\n!APM2+ENDIF IFAG+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n         ENDIF\n\n         IF(DTLEFT.GT.1.d-5) GOTO 80\n      ELSE\n!      ELSEIF(PACID.GT.1.d-3.and.TCS.GT.1.d-6) THEN\n         !Luo20121201IF((PACID*DT).LT.5.d5) THEN\n         IF((PACID*DT).LT.5.d5.or.TCS.LT.1.d-6) THEN\n          CACID = CACID + PACID*DT\n         ELSE\n          CACID1 = PACID/TCS + (CACID - PACID/TCS)*exp(-TCS*DT)\n          DACID = CACID + PACID*DT - CACID1\n          if(DACID<0.d0)then\n            write(*,*)'Luo warning DACID =',DACID,PACID,TCS,CACID,CACID1\n            DACID=0.d0\n            CACID1=CACID + PACID*DT\n          endif\n\n          MCONDOTH = DACID*V1ACID*DENSULF*1.d3  ! kg/m3\n\n          XVA(NSO4-1) = XVA(NSO4-1)+MCONDOTH/\n     &                (DENSULF*1.d3) * YCS(1)/TCS  ! put in NSO4-1 bin of SP for now\n          MSALTS = MSALTS + MCONDOTH * YCS(2)/TCS\n          MDSTS  = MDSTS + MCONDOTH * YCS(3)/TCS\n          MBCS   = MBCS +   MCONDOTH * YCS(4)/TCS\n          MOCS   = MOCS +   MCONDOTH * YCS(5)/TCS\n\n          CACID = CACID1\n         ENDIF\n         CACIDAVE = CACID\n\n         YJ = 1.E-20\n      ENDIF\n\n!APM2+IFAG++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n      IF(IFAG.EQ.1) THEN\n       IF(IFNGC.EQ.0) THEN  !Only when IFNGC=0 that LVSOG condensation has not yet been calculated above\n! LVSOG condensation on secondary particles, when condensed, LVSOG becomes part of SULF\n! Calculate condensational growth of LVSOG\n        IF(CLVSOG.GT.CLVSOG0) THEN\n         ICOND = 2\n         XMCONDIN = XMLVSOG   !g/mol\n!           WRITE(6,*)\"V1LVSOG = \",V1LVSOG\n!           V1LVSOG = XMLVSOG/(6.02d23*DENSULF)   ! assume SOA has same den as acid\n!           WRITE(6,*)\"V1LVSOG = \",V1LVSOG\n         CACIDIN = CLVSOG\n         PACIDIN = PLVSOG1  !#/cm3s\n         TCSOTHERIN = TCSOTHER*SQRT(96./XMCONDIN)  !scale the CS\n         SUMXVA0 = SUM(XVA)\n         TOTCONDOTH = 0.\n!\n         CALL APM_GROW(ICOND,NSO4,TK,PRESS,CACIDIN,PACIDIN, \n     &      TCSOTHERIN,DT,XN,XVA,RWETCM,TOTCONDOTH,XMCONDIN)   ! XN in #/cm3, XVA in cm3/cm3\n                                                 ! TOTCONDOTH in # acid/cm3\n\n! LVSOG MASS condensing on particles other than sulfate\n         IF(TCSOTHER.GT.1.D-5) THEN\n          MCONDOTH = TOTCONDOTH*V1LVSOG*DENSULF*1.d3  ! kg/m3\n          MSALTLV = MSALTLV + MCONDOTH * YCS(2)/TCSOTHER\n          MDSTLV = MDSTLV + MCONDOTH * YCS(3)/TCSOTHER\n          MBCLV = MBCLV + MCONDOTH * YCS(4)/TCSOTHER\n          MOCLV = MOCLV + MCONDOTH * YCS(5)/TCSOTHER\n         ENDIF\n         SUMXVA1 = MAX(SUM(XVA),1.D-30)\n         DLVSOG = SUMXVA1 - SUMXVA0   ! amount of LVSOG condensed (cm3/cm3)\n         MSULFLV = MSULFLV + DLVSOG*DENSULF*1.d3  ! kg/m3\n         CLVSOG = CACIDIN\n        ELSE\n! Allow the scaveging of residue LVSOG by particles\n            IF(TCS.GT.1.d-6) THEN\n! Allow the scaveging of residue LVSOG by particles\n             TCSLV = TCS*SQRT(96./XMLVSOG)  !scale the CS\n             TCSOTHERIN = TCSOTHER*SQRT(96./XMLVSOG)  !scale the CS\n             CLVSOG1 = PLVSOG1/TCSLV+(CLVSOG - PLVSOG1/TCSLV) \n     &             *exp(-TCSLV*DTNGC)\n             DLVSOG = CLVSOG + PLVSOG1*DTNGC - CLVSOG1\n! Distribue all condensed LVSOG to primary particles for now\n             MCONDOTH = DLVSOG*V1LVSOG*DENSULF*1.d3  ! kg/m3\n\n             MSULFLV = MSULFLV + MCONDOTH * YCS(1)/TCS \n             XVA(NSO4-1) = XVA(NSO4-1)+MCONDOTH/\n     &                   (DENSULF*1.d3) * YCS(1)/TCS  ! put in NSO4-1 bin of SP for now\n             MSALTLV = MSALTLV + MCONDOTH * YCS(2)/TCS\n             MDSTLV = MDSTLV + MCONDOTH * YCS(3)/TCS\n             MBCLV = MBCLV + MCONDOTH * YCS(4)/TCS\n             MOCLV = MOCLV + MCONDOTH * YCS(5)/TCS\n            ELSE\n             CLVSOG1 = CLVSOG + PLVSOG1*DTNGC\n            ENDIF\n            CLVSOG = CLVSOG1\n        ENDIF\n\n        SUMXVA1 = MAX(SUM(XVA),1.D-30)\n        RLOSULF = MSULFLV/(SUMXVA1*DENSULF*1.d3)   !ratio of LO mass on SULF to total mass\n        RLOSULF = MIN(RLOSULF, 1.0d0)\n\n! Move particles across bins after growth\n!         YN0 = sum(XN)\n!         YV0 = sum(XVA)\n        CALL APM_MOVEBIN(NSO4,XN,XVA)\n!         YN1 = sum(XN)\n!         YV1 = sum(XVA)\n!         IF(abs(YN1-YN0).GT.(0.1*YN0).or.abs(YV1-YV0).GT.(0.1*YV0)) THEN\n!            WRITE(7001,100)YN0,YN1,YV0,YV1\n!            flush(7001)\n!         ENDIF\n\n       ENDIF\n      ENDIF\n!APM2+ENDIF IFAG+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n\n      IF(CACID.LT.0.0) THEN\n         WRITE(6,*) \"CACID < 0, set it to 1E2/cc\"\n        WRITE(6,99)II,JJ,LL,CACID,CACID0,PACID,YJAVE,CSSULF, \n     &   GFGAS,MMSA,MNIT,MNH4,MSOA,MSO4, \n     &   TCSOTHER,TOTCONDOTH,MCONDOTH,MDSTS\n         CACID = 1.E2\n      ENDIF\n\n!******************************************************************************\n! Coagulation  \n      EPC = 0.1      ! ratio of coag timestep to coag half lifetime\n      COAGN0 = 10.   ! only consider coag if substatial # of particle exits\n!      NCOAGMAX = 240\n      NCOAGMAX = 120\n\n! Seasalt\n      IF(ZTN(2).GT.COAGN0) THEN  ! only consider coag if substatial # of particle exits\n        NCOAG(2) = MAX(1,INT(EPC/(0.5d-8*ZTN(2)*DT)))\n        IF((NCOAG2+1).GE.NCOAG(2)\n     &               .or.(NCOAG2+1).GE.NCOAGMAX) THEN   \n         DTCOAG2 = float(NCOAG2+1)*DT\n         ITYPE = 2 !seasalt\n          CALL APM_COAG(ITYPE,NSEA,TK,PMB,DTCOAG2,\n     &            RSALTWETCM,DENSALTWET,XNSALT,XVSALT)\n          NCOAG2 = 0  ! reset counter to 0 after coag is called\n\n          DO N = 1, NSEA\n            XMSALT(N)=XVSALT(N)*DENAER(2)*1.d3  !XVA in cm3/cm3  XMA in kg/m3\n            XM1D(NSO4+N)=XMSALT(N)\n          ENDDO\n\n        ELSE\n         NCOAG2=NCOAG2 + 1   ! count step that coag is not call in the grid\n        ENDIF\n      ENDIF\n!\n! BCOC\n      IF((ZTN(4)+ZTN(5)).GT.COAGN0) THEN  ! only consider coag if substatial # of particle exits\n        NCOAG(4) = MAX(1,INT(EPC/(0.5D-8*(ZTN(4)+ZTN(5))*DT)))\n        IF((NCOAG4+1).GE.NCOAG(4).or.(NCOAG4+1).GE.NCOAGMAX) THEN\n         DTCOAG4 = float(NCOAG4+1)*DT\n         ITYPE = 4 !BC\n          CALL APM_COAG(ITYPE,NBCOC,TK,PMB,DTCOAG4,\n     &                  RBCWET,DENBCWET,XNBC,XVBC)\n\n         ITYPE = 5 !OC\n          CALL APM_COAG(ITYPE,NBCOC,TK,PMB,DTCOAG4,\n     &                  ROCWET,DENOCWET,XNOC,XVOC)\n\n          NCOAG4 = 0  ! reset counter to 0 after coag is called\n          DO N = 1, NBCOC\n            XMBC(N)=XVBC(N)*DENAER(4)*1.d3  !XVA in cm3/cm3  XMA in kg/m3\n            XMOC(N)=XVOC(N)*DENAER(5)*1.d3  !XVA in cm3/cm3  XMA in kg/m3\n          ENDDO\n        ELSE\n         NCOAG4=NCOAG4 + 1   ! count step that coag is not call in the grid\n        ENDIF\n      ENDIF\n! Sulfate\n      TOTN = SUM(XN)\n      IF(TOTN.GT.COAGN0.and.IFNGC.EQ.0) THEN  ! only consider coag if substatial # of particle exits\n        NCOAG(1) = MAX(1,INT(EPC/(0.5d-8*TOTN*DT)))\n        IF((NCOAG1+1).GE.NCOAG(1)\n     &               .or.(NCOAG1+1).GE.NCOAGMAX) THEN   \n         DTCOAG1 = float(NCOAG1+1)*DT\n\n         ITYPE = 1 !sulfate\n         CALL APM_COAG(ITYPE,NSO4,TK,PMB,DTCOAG1,RWETCM,DENWET,XN,XVA)\n         NCOAG1 = 0  ! reset counter to 0 after coag is called\n        ELSE\n         NCOAG1=NCOAG1 + 1   ! count step that coag is not call in the grid\n        ENDIF\n\n! Scavenging of sulfate particles by other types of aerosols\n\n        IF((TCS-CSSULF).GT.1.E-5) THEN \n         IF(IFAG.EQ.0) RLOSULF = 0. \n         CALL APM_COAGSCAV(\n     &   TK,PMB,DT,DENWET,RWETCM,YCS,RLOSULF,\n     &   DENSALTWET,RSALTWETCM,XNSALT,\n     &   DENBCWET,RBCWET,XNBC,\n     &   DENOCWET,ROCWET,XNOC,\n     &   DENAER,XNDST,\n     &   XVA,MBCS,MOCS,MDSTS,MSALTS,MBCLV,MOCLV,MDSTLV,MSALTLV)\n        ENDIF\n\n      ENDIF\n\n! Here convert volume back to mass\n      DO N = 1, NSO4\n        XMA(N)=XVA(N)*DENSULF*1.d3  !XVA in cm3/cm3  XMA in kg/m3\n        XM1D(N)=XMA(N)\n! Update numb conc\n        XN(N) =  XVA(N)/(1.E6*VDRY(N))   ! XVA in cm3/cm3, VDRY in m3,XN in #/cm3\n      ENDDO\n\n 99   FORMAT(I4,I4,I4,50(1PE9.2))\n100   FORMAT(50(1PE9.2))\n\n! tempout  \n      IF(NTEMPOUT1.EQ.1) THEN\n       TN10nm = SUM(XN(I10nm:NSO4))\n       TNOTHER = SUM(ZTN(2:5))\n       TEMPOUT1(1)=TN10nm + TNOTHER  ! total CN10 (#/cm3)\n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n      ELSEIF(NTEMPOUT1.GT.10) THEN\n       ZCCN(1,1)=SUM(XN(IACT10:NSO4))\n       ZCCN(1,2)=SUM(XN(IACT20:NSO4))\n       ZCCN(1,3)=SUM(XN(IACT30:NSO4))\n       ZTN(1) = SUM(XN(I3nm:NSO4))\n       TN10nm = SUM(XN(I10nm:NSO4))\n\n       TNOTHER = SUM(ZTN(2:5))\n       TOTN = ZTN(1) + TNOTHER\n\n       TCCN(1)=SUM(ZCCN(1:5,1))          !CCN0.8\n       TCCN(2)=SUM(ZCCN(1:5,2))          !CCN0.4\n       TCCN(3)=SUM(ZCCN(1:5,3))          !CCN0.2\n\n       MWATERSP = SUM(MSP(1:5))*(1.0/1.8)*(GFWATERVOL-1.) ! total aerosol water (kg/m3)\n\n       TEMPOUT1(1)=TCS\n!       TEMPOUT1(2)=PACID\n!       TEMPOUT1(3)=PLVSOG1  !LVSOG production rate\n!       TEMPOUT1(3)=YYJAVE\n!       TEMPOUT1(4)=XQ\n        TEMPOUT1(2)=TK\n        TEMPOUT1(3)=CACIDAVE\n        TEMPOUT1(4)=CNH3\n!       IF(IFNUCL.EQ.1.or.IFNUCL.EQ.2.or.IFNUCL.EQ.17) THEN\n!        TEMPOUT1(3)=XNH3\n!       ELSEIF(IFNUCL.GE.13) THEN\n!        TEMPOUT1(3)=CHOM\n!       ELSE\n!        TEMPOUT1(3)=PLVSOG1  !LVSOG production rate\n!       ENDIF\n!       TEMPOUT1(4)=YYJAVE\n       TEMPOUT1(5)=YJAVE\n\n       TEMPOUT1(6)=TOTN  ! total >3nm particle # conc (#/cm3)\n     &            * (1.013E5*TK)/(PRESS*273.15) ! normalize to standdard condition\n\n       ATOM4N(:)=ATOM4N(:)\n     &          * (1.013E5*TK)/(PRESS*273.15) ! normalize to standdard condition\n\n       TEMPOUT1(7)=TN10nm  ! >~10 nm sulfate particle # conc (#/cm3)\n       TEMPOUT1(8)=TNOTHER  ! other particle # conc (#/cm3)\n\n       TEMPOUT1(9)=CHOM\n!       TEMPOUT1(9)=ZCCN(1,1)  ! sulfate particle CCN0.8 # conc (#/cm3)\n!       TEMPOUT1(9)=TCCN(2)  ! CCN0.4 # conc (#/cm3)\n       TEMPOUT1(10)=TCCN(1)  ! total CCN0.8 (#/cm3)\n\n       TEMPOUT1(11)=ZCCN(1,2) !  sulfate particle CCN0.4 # conc (#/cm3)\n       TEMPOUT1(12)=ZCCN(2,2)  ! total seasalt CCN0.4 # (#/cm3)\n       TEMPOUT1(13)=ZCCN(3,2) ! total dust CCN0.4# (#/cm3)\n       TEMPOUT1(14)=ZCCN(4,2)  ! total BC CCN0.4 # (#/cm3)\n       TEMPOUT1(15)=ZCCN(5,2)  ! total OC CCN0.4 # (#/cm3)\n\n!       TEMPOUT1(11)=ZCDN(1) !  sulfate particle CCN0.4 # conc (#/cm3)\n!       TEMPOUT1(12)=ZCDN(2)  ! total seasalt CCN0.4 # (#/cm3)\n!       TEMPOUT1(13)=ZCDN(3) ! total dust CCN0.4# (#/cm3)\n!       TEMPOUT1(14)=ZCDN(4)  ! total BC CCN0.4 # (#/cm3)\n!       TEMPOUT1(15)=ZCDN(5)  ! total OC CCN0.4 # (#/cm3)\n\n       TEMPOUT1(16)=ZCCN(1,3)  ! sulfate CCN0.2 (#/cm3)\n       TEMPOUT1(17)=TCCN(3)    !total CCN0.2 \n\n         TEMPOUT1(18)=ZTN(1)  ! >~3 nm sulfate particle # conc (#/cm3)\n!      TEMPOUT1(19)=ZTN(2)  ! >total salt particle # conc (#/cm3)=TNOTHER - ZTN(1)-SUM(ZTN(3:5))\n         TEMPOUT1(19)=ZTN(3)  ! >total dust particle # conc (#/cm3)\n         TEMPOUT1(20)=ZTN(4)  ! >total BC particle # conc (#/cm3)\n         TEMPOUT1(21)=ZTN(5)  ! >total OC particle # conc (#/cm3)\n\n!         IF(IFOPT.EQ.1) THEN\n!           TEMPOUT1(22)= ZBEXT(KWL1)  ! total ext coef    -- 550 nm\n           TEMPOUT1(22)= sum(SURF(1:5))\n!           TEMPOUT1(23)= ZW(KWL1)\n!           TEMPOUT1(24)= ZG(KWL1)\n!           TEMPOUT1(23)= YBEXT(1,KWL1) ! SP ext @\n           TEMPOUT1(23)= RGM  !in m\n!           TEMPOUT1(24)= SIG\n           TEMPOUT1(24)= DUST500\n!           TEMPOUT1(25)= YBEXT(1,KWL1) ! SP ext @\n!           TEMPOUT1(26)= YBEXT(2,KWL1) ! salt ext @ \n!           TEMPOUT1(27)= YBEXT(3,KWL1) ! dust ext @\n!!           TEMPOUT1(28)= YW(3,KWL1)\n!           TEMPOUT1(28)= (1.-YW(3,KWL1))*YBEXT(3,KWL1)\n!           TEMPOUT1(29)= YBEXT(4,KWL1) ! BC ext @ \n!!           TEMPOUT1(30)= YW(4,KWL1)\n!           TEMPOUT1(30)= (1.-YW(4,KWL1))*YBEXT(4,KWL1)\n!           TEMPOUT1(31)= YBEXT(5,KWL1) ! POC ext \n!         ENDIF\n         TEMPOUT1(25)=YJATHNAVE \n         TEMPOUT1(26)=YJAVE_BH\n         TEMPOUT1(27)=YJAVE_BIM \n         TEMPOUT1(28)=YJAVE_TH \n         TEMPOUT1(29)=YJAVE_OM \n         TEMPOUT1(30)=YJAVE_PON \n         TEMPOUT1(31)=YJAVE_POI \n\n         DO N =1, 5\n          TEMPOUT1(31+N)=MSP(N)    !total SP species in each type\n!          TEMPOUT1(31+N)=SURF(N)    !total SP species in each type\n          TEMPOUT1(36+N)=MCORE(N)  !for SP, SO4 is the core\n!          TEMPOUT1(41+N)=SURF(N)    !total SP species in each type\n!          TEMPOUT1(41+N)=ZK(N)  !kapa\n!          TEMPOUT1(41+N)=YBEXT(N,KWL1)   !\n         ENDDO\n         TEMPOUT1(42)=sum(YBEXT(1:5,KWL1))   !\n         TEMPOUT1(43)=YJAVE_BN \n         TEMPOUT1(44)=YJAVE_BI \n         TEMPOUT1(45)=YJAVE_TN \n         TEMPOUT1(46)=YJAVE_TI \n         TEMPOUT1(47)=YJAVE_TIM \n         TEMPOUT1(48)=XQ \n\n! Parameterize BCOC e-folding time based on coat/core ratio\n!         XBCLIFE= D0CONV/(DRDTBC*24.)     !days\n!         XBCLIFE= MIN(1.0d1,XBCLIFE)  !max e-folding time 10 days\n!         XOCLIFE= D0CONV/(DRDTOC*24.)     !days\n!         XOCLIFE= MIN(1.0d1,XOCLIFE)  !max e-folding time 10 days\n\n!         TEMPOUT1(49)= DRDTBC\n!         TEMPOUT1(50)= DRDTOC\n\n         IF(IFAEROCOMOUT==1)THEN\n\n           AEROCOMOUT =0.d0\n\n           TEMPOUT1(51:53)=0.d0\n           I50nm=100\n           I80nm=100\n           I120nm=100\n\n           DO N=1,NSO4\n             IF(GFGAS*RDRY(N)*2.d0.GE.3.d-9) THEN\n               TEMPOUT1(51)=TEMPOUT1(51)+XN(N)\n             ENDIF\n             IF(GFGAS*RDRY(N)*2.d0.GE.50.d-9) THEN\n               TEMPOUT1(52)=TEMPOUT1(52)+XN(N)\n               I50nm(1)=MIN(N,I50nm(1))\n             ENDIF\n             IF(GFGAS*RDRY(N)*2.d0.GE.120.d-9) THEN\n               TEMPOUT1(53)=TEMPOUT1(53)+XN(N)\n               I120nm(1)=MIN(N,I120nm(1))\n             ENDIF\n             IF(RRATIOBC*RDRY(N)*2.d0.GE.3.d-9) THEN\n               TEMPOUT1(51)=TEMPOUT1(51)+XNBC(N)\n             ENDIF\n             IF(RRATIOBC*RDRY(N)*2.d0.GE.50.d-9) THEN\n               TEMPOUT1(52)=TEMPOUT1(52)+XNBC(N)\n               I50nm(4)=MIN(N,I50nm(4))\n             ENDIF\n             IF(RRATIOBC*RDRY(N)*2.d0.GE.120.d-9) THEN\n               TEMPOUT1(53)=TEMPOUT1(53)+XNBC(N)\n               I120nm(4)=MIN(N,I120nm(4))\n             ENDIF\n             IF(RRATIOOC*RDRY(N)*2.d0.GE.3.d-9) THEN\n               TEMPOUT1(51)=TEMPOUT1(51)+XNOC(N)\n             ENDIF\n             IF(RRATIOOC*RDRY(N)*2.d0.GE.50.d-9) THEN\n               TEMPOUT1(52)=TEMPOUT1(52)+XNOC(N)\n               I50nm(5)=MIN(N,I50nm(5))\n             ENDIF\n             IF(RRATIOOC*RDRY(N)*2.d0.GE.120.d-9) THEN\n               TEMPOUT1(53)=TEMPOUT1(53)+XNOC(N)\n               I120nm(5)=MIN(N,I120nm(5))\n             ENDIF\n           ENDDO\n           DO N=1,NSEA\n             IF(RSALT(N)*2.d0.GE.3.d-9) THEN\n               TEMPOUT1(51)=TEMPOUT1(51)+XNSALT(N)\n             ENDIF\n             IF(RSALT(N)*2.d0.GE.50.d-9) THEN\n               TEMPOUT1(52)=TEMPOUT1(52)+XNSALT(N)\n               I50nm(2)=MIN(N,I50nm(2))\n             ENDIF\n             IF(RSALT(N)*2.d0.GE.120.d-9) THEN\n               TEMPOUT1(53)=TEMPOUT1(53)+XNSALT(N)\n               I120nm(2)=MIN(N,I120nm(2))\n             ENDIF\n           ENDDO\n           DO N=1,NDSTB\n             IF(RDST(N)*2.d0.GE.3.d-9) THEN\n               TEMPOUT1(51)=TEMPOUT1(51)+XNDST(N)\n             ENDIF\n             IF(RDST(N)*2.d0.GE.50.d-9) THEN\n               TEMPOUT1(52)=TEMPOUT1(52)+XNDST(N)\n               I50nm(3)=MIN(N,I50nm(3))\n             ENDIF\n             IF(RDST(N)*2.d0.GE.120.d-9) THEN\n               TEMPOUT1(53)=TEMPOUT1(53)+XNDST(N)\n               I120nm(3)=MIN(N,I120nm(3))\n             ENDIF\n           ENDDO\n\n           TEMPOUT1(54)=MSULFT*32.d9/96.d0\n           TEMPOUT1(55)=MCORE(4)*1.d9\n\n!Luo&Yu Based on observation (Jimenez et al., 2009), O:C ratio in LV-SOA\n!is 4:5 and in SV-SOA 2:5.\n!Luo&Yu So use 5/9 as carbon fraction for LV-SOA and 5/7 for other SOA\n!(with molecular weight of 150 g/mol).\n!Luo&Yu Ignore H in the molecules for now.\n           TEMPOUT1(56)=MCORE(5)*1.d9\n     &   +(MSULFLV+MBCLV+MOCLV+MDSTLV+MSALTLV)*60.d9/124.d0\n\n           TEMPOUT1(57)=MCORE(3)*1.d9\n           TEMPOUT1(58)=MCORE(2)*1.d9\n\n           IF(IFSITEOUT==1)THEN\n           AEROCOMOUT(1)=TK\n           AEROCOMOUT(2)=PRESS\n           AEROCOMOUT(4)=TEMPOUT1(52)\n\n           AEROCOMOUT(5)=0.d0\n           DO N=1,NSO4\n             IF(GFGAS*RDRY(N)*2.d0.GE.80.d-9) THEN\n               AEROCOMOUT(5)=AEROCOMOUT(5)+XN(N)\n               I80nm(1)=MIN(N,I80nm(1))\n             ENDIF\n             IF(RRATIOBC*RDRY(N)*2.d0.GE.80.d-9) THEN\n               AEROCOMOUT(5)=AEROCOMOUT(5)+XNBC(N)\n               I80nm(4)=MIN(N,I80nm(4))\n             ENDIF\n             IF(RRATIOOC*RDRY(N)*2.d0.GE.80.d-9) THEN\n               AEROCOMOUT(5)=AEROCOMOUT(5)+XNOC(N)\n               I80nm(5)=MIN(N,I80nm(5))\n             ENDIF\n           ENDDO\n           DO N=1,NSEA\n             IF(RSALT(N)*2.d0.GE.80.d-9) THEN\n               AEROCOMOUT(5)=AEROCOMOUT(5)+XNSALT(N)\n               I80nm(2)=MIN(N,I80nm(2))\n             ENDIF\n           ENDDO\n           DO N=1,NDSTB\n             IF(RDST(N)*2.d0.GE.80.d-9) THEN\n               AEROCOMOUT(5)=AEROCOMOUT(5)+XNDST(N)\n               I80nm(3)=MIN(N,I80nm(3))\n             ENDIF\n           ENDDO\n           AEROCOMOUT(6)=TEMPOUT1(53)\n\n!Need to be updated\n           BINSIZE(1)=GFGAS*(RDRY(I50nm(1)+1)-RDRY(I50nm(1)))\n           BINSIZE(2)=(RSALT(I50nm(2)+1)-RSALT(I50nm(2)))\n           BINSIZE(3)=(RDST(I50nm(3)+1)-RDST(I50nm(3)))\n           BINSIZE(4)=RRATIOBC*(RDRY(I50nm(4)+1)-RDRY(I50nm(4)))\n           BINSIZE(5)=RRATIOOC*(RDRY(I50nm(5)+1)-RDRY(I50nm(5)))\n\n           IF(MINVAL(BINSIZE)>1.D-30)THEN\n           BINMASS(1)=MINVAL(BINSIZE)/BINSIZE(1)*XN(I50nm(1))*1.7d0\n           BINMASS(2)=MINVAL(BINSIZE)/BINSIZE(2)*XNSALT(I50nm(2))*2.2d0\n           BINMASS(3)=MINVAL(BINSIZE)/BINSIZE(3)*XNDST(I50nm(3))*2.65d0\n           BINMASS(4)=MINVAL(BINSIZE)/BINSIZE(4)*XNBC(I50nm(4))*1.8d0\n           BINMASS(5)=MINVAL(BINSIZE)/BINSIZE(5)*XNOC(I50nm(5))*1.8d0\n\n!           AEROCOMOUT(7)=(0.9d0*BINMASS(1)+\n!     &                    1.28d0*BINMASS(2)+\n!     &                    0.1d0*BINMASS(5))/SUM(BINMASS)\n\n           AEROCOMOUT(7)=(ZK(1)*BINMASS(1)+\n     &      ZK(2)*BINMASS(2)+ZK(3)*BINMASS(3)+\n     &      ZK(4)*BINMASS(4)+ZK(5)*BINMASS(5))/SUM(BINMASS)\n\n           ELSE\n           AEROCOMOUT(7)=0.9\n           ENDIF\n\n           BINSIZE(1)=GFGAS*(RDRY(I80nm(1)+1)-RDRY(I80nm(1)))\n           BINSIZE(2)=(RSALT(I80nm(2)+1)-RSALT(I80nm(2)))\n           BINSIZE(3)=(RDST(I80nm(3)+1)-RDST(I80nm(3)))\n           BINSIZE(4)=RRATIOBC*(RDRY(I80nm(4)+1)-RDRY(I80nm(4)))\n           BINSIZE(5)=RRATIOOC*(RDRY(I80nm(5)+1)-RDRY(I80nm(5)))\n\n           IF(MINVAL(BINSIZE)>1.D-30)THEN\n           BINMASS(1)=MINVAL(BINSIZE)/BINSIZE(1)*XN(I80nm(1))*1.7d0\n           BINMASS(2)=MINVAL(BINSIZE)/BINSIZE(2)*XNSALT(I80nm(2))*2.2d0\n           BINMASS(3)=MINVAL(BINSIZE)/BINSIZE(3)*XNDST(I80nm(3))*2.65d0\n           BINMASS(4)=MINVAL(BINSIZE)/BINSIZE(4)*XNBC(I80nm(4))*1.8d0\n           BINMASS(5)=MINVAL(BINSIZE)/BINSIZE(5)*XNOC(I80nm(5))*1.8d0\n\n!           AEROCOMOUT(8)=(0.9d0*BINMASS(1)+\n!     &                    1.28d0*BINMASS(2)+\n!     &                    0.1d0*BINMASS(5))/SUM(BINMASS)\n           AEROCOMOUT(8)=(ZK(1)*BINMASS(1)+\n     &      ZK(2)*BINMASS(2)+ZK(3)*BINMASS(3)+\n     &      ZK(4)*BINMASS(4)+ZK(5)*BINMASS(5))/SUM(BINMASS)\n           ELSE\n           AEROCOMOUT(8)=0.9\n           ENDIF\n\n           BINSIZE(1)=GFGAS*(RDRY(I120nm(1)+1)-RDRY(I120nm(1)))\n           BINSIZE(2)=(RSALT(I120nm(2)+1)-RSALT(I120nm(2)))\n           BINSIZE(3)=(RDST(I120nm(3)+1)-RDST(I120nm(3)))\n           BINSIZE(4)=RRATIOBC*(RDRY(I120nm(4)+1)-RDRY(I120nm(4)))\n           BINSIZE(5)=RRATIOOC*(RDRY(I120nm(5)+1)-RDRY(I120nm(5)))\n\n           IF(MINVAL(BINSIZE)>1.D-30)THEN\n           BINMASS(1)=MINVAL(BINSIZE)/BINSIZE(1)*XN(I120nm(1))*1.7d0\n           BINMASS(2)=MINVAL(BINSIZE)/BINSIZE(2)*XNSALT(I120nm(2))*2.2d0\n           BINMASS(3)=MINVAL(BINSIZE)/BINSIZE(3)*XNDST(I120nm(3))*2.65d0\n           BINMASS(4)=MINVAL(BINSIZE)/BINSIZE(4)*XNBC(I120nm(4))*1.8d0\n           BINMASS(5)=MINVAL(BINSIZE)/BINSIZE(5)*XNOC(I120nm(5))*1.8d0\n\n!           AEROCOMOUT(9)=(0.9d0*BINMASS(1)+\n!     &                    1.28d0*BINMASS(2)+\n!     &                    0.1d0*BINMASS(5))/SUM(BINMASS)\n           AEROCOMOUT(9)=(ZK(1)*BINMASS(1)+\n     &      ZK(2)*BINMASS(2)+ZK(3)*BINMASS(3)+\n     &      ZK(4)*BINMASS(4)+ZK(5)*BINMASS(5))/SUM(BINMASS)\n           ELSE\n           AEROCOMOUT(9)=0.9\n           ENDIF\n\n           DO M=10,22\n\n           XSAT = XSATAEROCOM(M-9) ! assume 0.05%-1.0%\n           CALL DACTS(TK,MSO4,MSULFLV,MMSAB,MNITB,MNH4B,MSOA,\n     &                MCORE,MSP,XSAT,ZK,ZDACT)\n\n           DO N=1,NSO4\n             IF(GFGAS*RDRY(N)*2.d0.GE.ZDACT(1,4)) THEN\n               AEROCOMOUT(M)=AEROCOMOUT(M)+XN(N)\n             ENDIF\n             IF(RRATIOBC*RDRY(N)*2.d0.GE.ZDACT(4,4)) THEN\n               AEROCOMOUT(M)=AEROCOMOUT(M)+XNBC(N)\n             ENDIF\n             IF(RRATIOOC*RDRY(N)*2.d0.GE.ZDACT(5,4)) THEN\n               AEROCOMOUT(M)=AEROCOMOUT(M)+XNOC(N)\n             ENDIF\n           ENDDO\n           DO N=1,NSEA\n             IF(RSALT(N)*2.d0.GE.ZDACT(2,4)) THEN\n               AEROCOMOUT(M)=AEROCOMOUT(M)+XNSALT(N)\n             ENDIF\n           ENDDO\n           DO N=1,NDSTB\n             IF(RDST(N)*2.d0.GE.ZDACT(3,4)) THEN\n               AEROCOMOUT(M)=AEROCOMOUT(M)+XNDST(N)\n             ENDIF\n           ENDDO\n\n           ENDDO\n\n           ENDIF\n\n         ELSE\n         DO N=1,8\n          TEMPOUT1(50+N) = PM25(N)\n         ENDDO\n         ENDIF\n\n!OPT+\n!APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n      ENDIF\n\n      END SUBROUTINE APM_PHYS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dacts\n!\n! !DESCRIPTION: Subroutine DACTS determines SP activation sizes for \n!  the given composition.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE DACTS( TK,    MSO4,  MSULFLV, MMSAB, \n     &                  MNITB, MNH4B, MSOA,    MCORE,\n     &                  MSP,   XSAT,  ZK,      ZDACT    )\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY : MTACT\n      USE APM_INIT_MOD, ONLY : MKACT\n      USE APM_INIT_MOD, ONLY : MSAT\n      USE APM_INIT_MOD, ONLY : DACTTAB\n      USE APM_INIT_MOD, ONLY : NTYP\n!\n! !INPUT PARAMETERS: \n!\n      REAL*8  :: TK\n!\n! !INPUT/OUTPUT PARAMETERS: \n! \n      REAL*8  :: MSO4\n      REAL*8  :: MSULFLV\n      REAL*8  :: MMSAB\n      REAL*8  :: MNITB\n      REAL*8  :: MNH4B\n      REAL*8  :: MSOA\n      REAL*8  :: MCORE(NTYP)\n      REAL*8  :: MSP(NTYP)\n      REAL*8  :: XSAT\n      REAL*8  :: ZK(NTYP)\n      REAL*8  :: ZDACT(NTYP,4)\n!\n! !REVISION HISTORY: \n!  10 Jun 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      REAL*8  :: YK\n      REAL*8  :: MSO4a,XNH4,XNIT,XSO4a,FNH4_SO4,FSO4_NH4,MTOTAL\n      REAL*8  :: KAPA(NTYP)\n      INTEGER :: IT, JK, N, IS\n      DATA (KAPA(N),N=1,5)/0.90,1.28,0.0,0.0,0.1/\n\n      MSO4a = MSO4 - MSULFLV  ! MSULFLV+MSO4a = MSO4 lumped\n      MSO4a = MAX(1.0d-20,MSO4a)\n\n      XNH4 = MNH4B/18.0\n      XNIT = MNITB/62.0\n      XSO4a = MSO4a/96.0\n\n      IF(XNH4.LE.XNIT) THEN\n        FNH4_SO4 = 0.   ! mole fraction of NH4 associated with SO4\n        FSO4_NH4 = 0.   ! mole fraction of SO4 associated with NH4\n      ELSE\n        FNH4_SO4 = (XNH4-XNIT)/XNH4 \n        FSO4_NH4 = 0.5*(XNH4-XNIT)/XSO4a ! assumed to be (NH4)2SO4\n        FSO4_NH4 = MIN(1.0d0,FSO4_NH4)\n      ENDIF\n\n      MTOTAL = MSO4a + MSULFLV + MMSAB + MNITB + MNH4B + MSOA \n!\n! Assumed to have same density, thus volume fraction = mass fraction\n! need to modify when the densities are different\n      YK = 1./MTOTAL *((MNITB+MNH4B*(1.-FNH4_SO4))*0.67 \n     &       + MSOA*0.07 + MSULFLV*0.2\n     &       + (MSO4a*FSO4_NH4 + MNH4B*FNH4_SO4)*0.61\n     &       + ((1.-FSO4_NH4)*MSO4a + MMSAB)*0.9)\n\n      ZK(1) = YK\n\n! Assume SP coated on Primary has same Kapa as SP for now\n      DO N=2,NTYP\n         ZK(N)=(YK*MSP(N)+KAPA(N)*MCORE(N))/(MSP(N)+MCORE(N))\n      ENDDO\n\n      IT = INT(0.5*(TK-210.0)+0.5) + 1\n      IT = MIN(IT,MTACT)\n      IT = MAX(IT,1)\n\n      IS = INT(XSAT/2.d-4)\n      IS = MIN(IS,MSAT)\n      IS = MAX(IS,1)\n\n      DO N=1,NTYP\n        JK = INT(DLOG10(ZK(N)/1.d-5)*30.) + 1\n        JK = MIN(JK,MKACT)\n        JK = MAX(JK,1)\n\n        ZDACT(N,1) = DACTTAB(IT,JK,40)   !S=0.8%\n        ZDACT(N,2) = DACTTAB(IT,JK,20)   !S=0.4%\n        ZDACT(N,3) = DACTTAB(IT,JK,10)   !S=0.2%\n        ZDACT(N,4) = DACTTAB(IT,JK,IS)   !S= input\n      ENDDO\n\n      END SUBROUTINE DACTS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dacts\n!\n! !DESCRIPTION: Subroutine DACTS determines SP activation sizes for \n!  the given composition.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE GETGAMMAN2O5(TK, RH_P, MSO4, MSULFLV, MMSAB, \n     &                  MNITB, MNH4B, MSOA, MCORE,\n     &                  MSP, GAMMAN2O5 )\n!\n! !USES:\n!\n      USE APM_INIT_MOD, ONLY : MTACT\n      USE APM_INIT_MOD, ONLY : MKACT\n      USE APM_INIT_MOD, ONLY : MSAT\n      USE APM_INIT_MOD, ONLY : DACTTAB\n      USE APM_INIT_MOD, ONLY : NTYP\n!\n! !INPUT PARAMETERS: \n!\n      REAL*8  :: TK\n      REAL*8  :: RH_P\n      REAL*8  :: RH_P1\n!\n! !INPUT/OUTPUT PARAMETERS: \n! \n      REAL*8  :: MSO4\n      REAL*8  :: MSULFLV\n      REAL*8  :: MMSAB\n      REAL*8  :: MNITB\n      REAL*8  :: MNH4B\n      REAL*8  :: MSOA\n      REAL*8  :: MCORE(NTYP)\n      REAL*8  :: MSP(NTYP)\n      REAL*8  :: GAMMAN2O5(NTYP)\n!\n! !REVISION HISTORY: \n!  10 Jun 2010 - F. Yu       - Initial version  \n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      REAL*8  :: YK,TTEMP,FACT\n      REAL*8  :: MSO4a,XNH4,XNIT,XSO4a,FNH4_SO4,FSO4_NH4,MTOTAL\n      REAL*8  :: GAMMA0(NTYP)\n      INTEGER :: IT, JK, N\n\n      GAMMA0=0.01d0\n\n      MSO4a = MSO4 - MSULFLV  ! MSULFLV+MSO4a = MSO4 lumped\n      MSO4a = MAX(1.0d-20,MSO4a)\n\n      XNH4 = MNH4B/18.0\n      XNIT = MNITB/62.0\n      XSO4a = MSO4a/96.0\n\n      IF(XNH4.LE.XNIT) THEN\n        FNH4_SO4 = 0.   ! mole fraction of NH4 associated with SO4\n        FSO4_NH4 = 0.   ! mole fraction of SO4 associated with NH4\n      ELSE\n        FNH4_SO4 = (XNH4-XNIT)/XNH4 \n        FSO4_NH4 = 0.5*(XNH4-XNIT)/XSO4a ! assumed to be (NH4)2SO4\n        FSO4_NH4 = MIN(1.0d0,FSO4_NH4)\n      ENDIF\n\n      MTOTAL = MSO4a + MSULFLV + MMSAB + MNITB + MNH4B + MSOA\n\n      !===========================================================\n      ! RH dependence from Kane et al., Heterogenous uptake of\n      ! gaseous N2O5 by (NH4)2SO4, NH4HSO4 and H2SO4 aerosols\n      ! J. Phys. Chem. A , 2001, 105, 6465-6470\n      !===========================================================\n      ! No RH dependence above 50.0% (lzh, 10/26/2011)\n      ! According to Bertram and Thornton, ACP, 9, 8351-8363, 2009\n      RH_P1  = MIN( RH_P, 50.d0 )\n\n      GAMMA0(1) = 2.79e-4 + RH_P1*(  1.30e-4 +\n     &                      RH_P1*( -3.43e-6 +\n     &                      RH_P1*(  7.52e-8 ) ) )\n\n      !===========================================================\n      ! Temperature dependence factor (Cox et al, Cambridge UK)\n      ! is of the form:\n      !\n      !          10^( LOG10( G294 ) - 0.04 * ( TTEMP - 294 ) )\n      ! FACT = -------------------------------------------------\n      !                     10^( LOG10( G294 ) )\n      !\n      ! Where G294 = 1e-2 and TTEMP is MAX( TEMP, 282 ).\n      !\n      ! For computational speed, replace LOG10( 1e-2 ) with -2\n      ! and replace 10^( LOG10( G294 ) ) with G294\n      !===========================================================\n      TTEMP = MAX( TK, 282.d0 )\n      FACT  = 10.e0**( -2e+0 - 4e-2\n     &      *( TTEMP - 294.e+0 ) ) / 1e-2\n\n      ! Apply temperature dependence\n      GAMMA0(1) = GAMMA0(1) * FACT\n\n      ! Based on IUPAC recomendation\n      IF ( RH_P >= 62 ) THEN\n        GAMMA0(2) = 0.03e+0\n      ELSE\n        GAMMA0(2) = 0.005e+0\n      ENDIF\n      GAMMA0(3) = 0.01e+0 ! Based on unpublished Crowley work\n      GAMMA0(4) = 0.005e+0 ! Based on IUPAC recomendation\n      !===========================================================\n      ! Based on Thornton, Braban and Abbatt, 2003\n      ! N2O5 hydrolysis on sub-micron organic aerosol: the effect\n      ! of relative humidity, particle phase and particle size\n      !===========================================================\n      IF ( RH_P >= 57e+0 ) THEN\n        GAMMA0(5) = 0.03e+0\n      ELSE\n        GAMMA0(5) = RH_P * 5.2e-4\n      ENDIF\n\n!\n! Assumed to have same density, thus volume fraction = mass fraction\n! need to modify when the densities are different\n      YK = 1./MTOTAL *((MNITB+MNH4B*(1.-FNH4_SO4))*0.1*GAMMA0(1)\n     &       + MSOA*GAMMA0(5) + MSULFLV*GAMMA0(5)\n     &       + (MSO4a*FSO4_NH4 + MNH4B*FNH4_SO4)*GAMMA0(1)\n     &       + ((1.-FSO4_NH4)*MSO4a + MMSAB)*GAMMA0(1))\n\n      GAMMAN2O5(1) = YK\n\n! Assume SP coated on Primary has same Kapa as SP for now\n      DO N=2,NTYP\n        GAMMAN2O5(N)=(YK*MSP(N)+GAMMA0(N)*MCORE(N))/(MSP(N)+MCORE(N))\n      ENDDO\n\n      END SUBROUTINE GETGAMMAN2O5\n!EOC\n\n! Binary & Ternary nucl parameterization based on Dunne et al., 2016\n!\n      subroutine JCLOUD(TK,CH2SO4,CNH3,XQ,XN0,XJBN,XJBI,XJTN,XJTI)\n      REAL*8 :: TK,CH2SO4,CNH3,XQ,XN0,XJBN,XJBI,XJTN,XJTI\n      REAL*8 :: XH2SO4, XNH3, XBI, XFN, XTI, ALPHA, X, CION\n\n      REAL*8, PARAMETER   :: Pbn = 3.95\n      REAL*8, PARAMETER   :: Ubn = 9.7\n      REAL*8, PARAMETER   :: Vbn = 12.6\n      REAL*8, PARAMETER   :: Wbn = -0.00707\n      REAL*8, PARAMETER   :: Pbi = 3.37\n      REAL*8, PARAMETER   :: Ubi = -11.5\n      REAL*8, PARAMETER   :: Vbi = 25.5\n      REAL*8, PARAMETER   :: Wbi = 0.181\n\n      REAL*8, PARAMETER   :: Ptn = 2.89\n      REAL*8, PARAMETER   :: Utn = 182.\n      REAL*8, PARAMETER   :: Vtn = 1.2\n      REAL*8, PARAMETER   :: Wtn = -4.19\n      REAL*8, PARAMETER   :: Pan = 8.\n      REAL*8, PARAMETER   :: An  = 1.6E-6\n      REAL*8, PARAMETER   :: Pti = 3.14\n      REAL*8, PARAMETER   :: Uti = -23.8\n      REAL*8, PARAMETER   :: Vti = 37.\n      REAL*8, PARAMETER   :: Wti = 0.227\n      REAL*8, PARAMETER   :: Pai = 3.07\n      REAL*8, PARAMETER   :: Ai  = 0.00485\n\n! XH2SO4 and XNH3 in the unit of 1E6/cm3\n      XH2SO4=CH2SO4/1.d6\n      XNH3=CNH3/1.d6\n\n      XJBN = EXP(Ubn-EXP(Vbn*(TK/1000.-Wbn)))*(XH2SO4**Pbn)\n\n      XFN  = XNH3/(An*XH2SO4**(-Ptn)+XNH3**(-Pan))\n      XJTN = XFN*EXP(Utn-EXP(Vtn*(TK/1000.-Wtn)))\n      \n      XBI  = EXP(Ubi-EXP(Vbi*(TK/1000.-Wbi)))*(XH2SO4**Pbi)\n      XTI  = EXP(Uti-EXP(Vti*(TK/1000.-Wti)))*\n     &         XNH3/(Ai*XH2SO4**(-Pti)+XNH3**(-Pai))\n      \n      ALPHA = 6.E-8*SQRT(300./TK)+6.E-26*XN0*(300./TK)**4.0\n      X = 1./480. + XBI + XTI\n      CION = (SQRT(X*X+4.*ALPHA*XQ)-X)/(2.*ALPHA)\n      XJBI = XBI*CION\n      XJTI = XTI*CION\n!      WRITE(6,100) ALPHA, X, XBI,XTI,CION,XJTI\n! 100  FORMAT(10(1PE9.2))\n      \n      RETURN\n      END\n\n      END MODULE APM_PHYS_MOD\n!------------------------------------------------------------------------------\n#endif\n"
  },
  {
    "path": "APM/apm_radf_mod.F",
    "content": "#ifdef APM\n! !MODULE: apm_radf_mod\n!\n! !DESCRIPTION: Module APM\\_RADF\\_MOD solves 1-column radiative forcing.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      MODULE APM_RADF_MOD\n!\n! !USES:\n      IMPLICIT NONE\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n      PUBLIC  :: APM_RADF\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n! HISTORY:\n!\n!  MAR 17, 2011 - X. Ma      - preparation for call to radiation\n!                              transfer model\n!\n       CONTAINS\n!\n      SUBROUTINE APM_RADF(JJ,II,LAY,LEV,NBS,NBL,\n     1                 IAER,EXT,OMGA,G,ABSO,\n     2                 GT,ALB,SCOS,TEMP,WATER,OZONE,PRES,AIRD,\n     3                 CLD,CLDLIQ,CLDICE,RCLDL,YCOD,\n     +                 RWCL,RWCI,\n     4                 RCST,RCSB,RFST,RFSG,RFSA,RHRS,\n     5                 RCLT,RCLB,RFUL,RFDL,RFLA,RHRL)\n!\n      INTEGER, PARAMETER :: ILG = 1\n      INTEGER, PARAMETER :: IL1 = 1\n      INTEGER, PARAMETER :: IL2 = 1\n!\n      INTEGER :: I,J,K,IB,LAY,LEV,NBS,NBL\n      INTEGER :: II,JJ\n      INTEGER :: IAER\n!\n      REAL  :: GT,SCOS\n!      REAL  :: ALB\n      REAL  :: ALB(NBS)\n!\n      REAL  :: TEMP(LAY),WATER(LAY),OZONE(LAY)\n      REAL  :: PRES(LEV)\n      REAL  :: CLD(LAY),CLDLIQ(LAY),CLDICE(LAY)\n      REAL  :: AIRD(LAY)\n      REAL  :: RCLDL(LAY)  !Yu+\n      REAL  :: YCOD(LAY)  !Yu+\n!\n      REAL  :: SHTJ(ILG,LEV)\n      REAL  :: T   (ILG,LAY)\n      REAL  :: Q   (ILG,LAY)\n      REAL  :: O3  (ILG,LAY)\n!\n      REAL  :: EXT (LAY,NBS)\n      REAL  :: OMGA(LAY,NBS)\n      REAL  :: G   (LAY,NBS)\n      REAL  :: ABSO(LAY,NBL)\n!\n      REAL  :: GTEMP (ILG)\n      REAL  :: SALB  (ILG,NBS)\n!\n      REAL  :: CCLD  (ILG,LAY),CLDLWC(ILG,LAY),CLDIWC(ILG,LAY)\n      REAL  :: RHOP  (ILG,LAY)\n!\n      REAL  :: EXTA  (ILG,LAY,NBS)\n      REAL  :: EXOMA (ILG,LAY,NBS)\n      REAL  :: EXOMGA(ILG,LAY,NBS)\n      REAL  :: FA    (ILG,LAY,NBS)\n      REAL  :: ABSA  (ILG,LAY,NBL)\n!\n! output\n!\n      REAL  :: CST(ILG),CSB(ILG)\n      REAL  :: FST(ILG),FSG(ILG),FSA(ILG)\n      REAL  :: HRS(ILG,LAY),HRL(ILG,LAY)\n      REAL  :: CLT(ILG),CLB(ILG)\n      REAL  :: FUL(ILG),FDL(ILG),FLA(ILG)\n      REAL  :: WCL(ILG),WCI(ILG)\n!\n      REAL  :: RCST,RCSB,RFST,RFSG,RFSA\n      REAL  :: RHRS(LAY),RHRL(LAY)\n      REAL  :: RCLT,RCLB,RFUL,RFDL,RFLA\n      REAL  :: RWCL,RWCI\n!\n      DO IB = 1, NBS\n      DO K  = 1, LAY\n      DO I  = IL1,IL2\n       EXTA  (I,K,IB) = EXT(K,IB)\n       EXOMA (I,K,IB) = EXT(K,IB)*OMGA(K,IB)\n       EXOMGA(I,K,IB) = EXT(K,IB)*OMGA(K,IB)*G(K,IB)\n       FA    (I,K,IB) = EXT(K,IB)*OMGA(K,IB)*G(K,IB)*G(K,IB)\n      ENDDO\n      ENDDO\n      ENDDO\n\n      DO IB = 1, NBL\n      DO K  = 1, LAY\n      DO I  = IL1,IL2\n       ABSA  (I,K,IB) = ABSO(K,IB)\n      ENDDO\n      ENDDO\n      ENDDO\n!\n      DO IB  = 1, NBS\n      DO I   = IL1, IL2\n!       SALB(I,IB) = ALB\n       SALB(I,IB) = ALB(IB)\n      ENDDO\n      ENDDO\n!\n      DO K  = 1, LAY\n      DO I  = IL1, IL2\n       SHTJ(I,K) = PRES (K)   !Yu+ in mb\n       T   (I,K) = TEMP (K)\n       Q   (I,K) = WATER(K)\n       O3  (I,K) = OZONE(K)\n      ENDDO\n      ENDDO\n!\n      DO I  = IL1, IL2\n       SHTJ(I,LEV) = PRES (LAY+1)\n      ENDDO\n!\n!      write(*,*) 'Profile',IAER,II,JJ\n      DO K  = 1, LAY\n      DO I  = IL1, IL2\n       CCLD (I,K)   = CLD (K)\n       CLDLWC (I,K) = CLDLIQ (K)\n       CLDIWC (I,K) = CLDICE (K)\n       RHOP (I,K) = AIRD (K)\n!      write(*,900) K,T(I,K),SHTJ(I,K),Q(I,K),O3(I,K),CCLD(I,K)\n900   format(i5,2F10.2,2E10.2,F10.2)\n      ENDDO\n      ENDDO\n!\n      DO I = IL1,IL2\n       GTEMP(I) = GT\n      ENDDO\n!\n      CALL RAD1D(JJ,II,LAY,LEV,ILG,IL1,IL2,NBS,NBL,\n     1           IAER,EXTA,EXOMA,EXOMGA,FA,ABSA,\n     2           SHTJ,T,Q,O3,GTEMP,SALB,SCOS,\n     3           CCLD,RHOP,CLDLWC,CLDIWC,\n     +           WCL,WCI,RCLDL,YCOD,\n     4           CST,CSB,FST,FSG,FSA,HRS,\n     5           CLT,CLB,FUL,FDL,FLA,HRL)\n!\n      DO I = IL1, IL2\n       RCST = CST(I)\n       RCSB = CSB(I)\n       RFST = FST(I)\n       RFSG = FSG(I)\n       RFSA = FSA(I)\n       RCLT = CLT(I)\n       RCLB = CLB(I)\n       RFUL = FUL(I)\n       RFDL = FDL(I)\n       RFLA = FLA(I)\n       RWCL = WCL(I)\n       RWCI = WCI(I)\n      ENDDO\n!\n      DO K = 1, LAY\n      DO I = IL1, IL2\n       RHRS(K) = HRS(I,K)\n       RHRL(K) = HRL(I,K)\n      ENDDO\n      ENDDO \n!\n      END SUBROUTINE APM_RADF\n\n      END MODULE APM_RADF_MOD\nC\n\n        SUBROUTINE RAD1D(JJ,II,LAY,LEV,ILG,IL1,IL2,NBS,NBL,\n     1                   IAER,EXTA,EXOMA,EXOMGA,FA,ABSA,\n     2                   SHTJ,T,Q,O3,GT,SALB,SCOS,\n     3                   CCLD,RHO,CLDLWC,CLDIWC,\n     +                   WCL,WCI,RCLDL,YCOD,\n     4                   CST,CSB,FST,FSG,FSA,HRS,\n     5                   CLT,CLB,FUL,FDL,FLA,HRL)\n\nC\n!      USE APM_INIT_MOD, ONLY : YRLIQ,YRICE\n\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC Yu++\nC\nC     * INPUT ARRAYS FOR AEROSOL OPTICAL PROPERTIES\nC\n      REAL EXTA(ILG,LAY,NBS), EXOMA(ILG,LAY,NBS), EXOMGA(ILG,LAY,NBS),\n     1     FA(ILG,LAY,NBS)\nC\n      REAL ABSA(ILG,LAY,NBL)\nC\nC     * INPUT/OUTPUT ARRAYS FOR PHYSICS.\nC\nC mxy+\n      REAL FSA(ILG),DSHJ(ILG,LAY),HRSM(ILG,LAY)\n      REAL FLA(ILG),HRLM(ILG,LAY)\n      REAL WCL(ILG),WCI(ILG)\n      REAL RCLDL(LAY)   !Yu++\n      REAL YCOD(LAY)   !Yu++\nC mxy+\n      REAL FST(ILG),RHO(ILG,LAY)\n      REAL FSG(ILG), FSD(ILG), FSF(ILG), FSV(ILG), FSI(ILG),\n     1     ALBPLA(ILG), FDL(ILG), FUL(ILG), HRS(ILG,LAY), HRL(ILG,LAY),\n     2     CST(ILG), CSB(ILG), CLT(ILG), CLB(ILG), PAR(ILG)\nC\n      REAL PRESSG(ILG), SHTJ(ILG,LEV), SHJ(ILG,LAY), TFULL(ILG,LEV), \n     1     T(ILG,LAY), GT(ILG), O3(ILG,LAY), O3TOP(ILG), Q(ILG,LAY),\n     2     RMU(ILG)\nC\n      REAL SALB(ILG,NBS), EM0(ILG)\nC\n      REAL TAUCS(ILG,LAY,NBS), OMCS(ILG,LAY,NBS), GCS(ILG,LAY,NBS),\n     1     TAUCL(ILG,LAY,NBL), OMCL(ILG,LAY,NBL), GCL(ILG,LAY,NBL),\n     2     CLD(ILG,LAY),lwf(ilg,lev), FLXU(ilg,lev), FLXD(ilg,lev)\nC\n       REAL FSLO(ILG), FSAMOON(ILG)\nC\n      REAL P     (ILG,LAY), PFULL  (ILG,LEV)\n      LOGICAL LCSW, LCLW\nC\n      REAL CCLD(ILG,LAY), CLDT(ILG)\n      REAL CLDLWC(ILG,LAY), CLDIWC(ILG,LAY)\n      REAL WCDW(ILG,LAY), WCDI(ILG,LAY), WCLW(ILG,LAY), WCLI(ILG,LAY),\n     1     RADEQV(ILG,LAY), RADEQVW(ILG,LAY), RADEQVI(ILG,LAY)\nC\n      REAL N2O_PPM\n      COMMON /RADCON/ SOLAR_C\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\n\n      DATA LCSW /.true./, LCLW /.true./\nC\nC----------------------------------------------------------------------C\nC     DIFFERENT ATMOSPHERE PROFILE                                     C\nC----------------------------------------------------------------------C\nC\n      DO I = IL1, IL2\n       TFULL(I,LEV) = GT(I)\n      ENDDO\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE MEAN O3 MIXING RATIO ABOVE MODEL TOP LEVEL    C\nC----------------------------------------------------------------------C\nC    \n      DO K = 1, LAY \n      DO I = IL1, IL2\nc       O3(I,K) =OOO (k)\nc       Q (I,K) =WWW (k)\nc      if(ii.eq.60.and.jj.eq.33) then\nc       write(*,*) 'O3(I,K)',K,OOO(k),O3(I,K)\nc      endif\n      ENDDO \n      ENDDO\nC\n      DO I = IL1, IL2\n        O3TOP(I) = 0.0\n      ENDDO\nC\nC----------------------------------------------------------------------C\nC     INITIATION OF THE INPUT                                          C\nC----------------------------------------------------------------------C\nC  \n      DO I = IL1, IL2\n\n        PRESSG(I) = 100.0\n        RMU(I)    = MAX(SCOS,0.0) \nC\nc... surface albedo\n        DO J = 1, 4\nC          SALB(I,J) = 0.1\n        ENDDO\nc... surface emissivity\n        EM0(I) = 1.0\n      ENDDO\nC\n      DO K = 1, LAY\n        DO I = IL1, IL2\n          SHJ(I,K)   = SQRT(SHTJ(I,K) * SHTJ(I,K+1))\n          DSHJ(I,K)  = SHTJ(I,K+1) - SHTJ(I,K)\n          IF (K .EQ. 1)                                             THEN\n            TFULL(I,K) = 0.5 * (3.0 * T(I,1) - T(I,2))\n          ELSE\n            TFULL(I,K) = 0.5 * (T(I,K-1) + T(I,K))\n          ENDIF\n        ENDDO\n      ENDDO\n      DO K = 1, LAY\n        DO I = IL1, IL2\n          X      =  0.01 * PRESSG(I)\n          P(I,K) =  SHJ (I,K) * X\n        ENDDO\n      ENDDO\nC\n      SOLAR_C  = 1365.6417 \n      CO2_PPM  = 350. * 1.E-06 \n      CH4_PPM  = 2.7 * 1.E-06\n      N2O_PPM  = 1.2700 * 1.E-06\nc      F11_PPM  = 0.E-3 * 1.E-06\nc      F12_PPM  = 0.3618E-3 * 1.E-06\n      F11_PPM  = 0.268E-3 * 1.E-06\n      F12_PPM  =  0.535E-3 * 1.E-06\n      F113_PPM = 0.084E-3 * 1.E-06\n      F114_PPM = 0.015E-3 * 1.E-06\nC\nC----------------------------------------------------------------------C\nC     INPUT TRACE GAS CONCENTRATIONS IN UNIT PPMV,                     C\nC     PARTS PER MILLION BY VOLUME, TRANSFORM TO MASS MIXING RATIO.     C\nC     THE SAME AS WATER VAPOR AND OZONE.                               C\nC     1.5188126 = 44.    / 28.97                                       C\nC     0.5522955 = 16.    / 28.97                                       C\nC     1.5188126 = 44.    / 28.97                                       C\nC     O2 INPUT AS A CONSTANT, UNIT MIXING RATIO BY MASS                C\nC     4.7418019 = 137.37 / 28.97                                       C\nC     4.1736279 = 120.91 / 28.97                                       C\nC     5.2440456 = 151.92 / 28.97                                       C\nC     5.8301691 = 168.90 / 28.97                                       C\nC     28.97 MOLECULAR WEIGHT OF AIR, E-06 PER MILLION                  C\nC----------------------------------------------------------------------C\nC\n      RMCO2  = 1.5188126 * CO2_PPM\n      RMCH4  = 0.5522955 * CH4_PPM\n      RMN2O  = 1.5188126 * N2O_PPM\n      RMO2   = 0.2315\n      RMF11  = 4.7418019 * F11_PPM\n      RMF12  = 4.1736279 * F12_PPM\n      RMF113 = 5.2440456 * F113_PPM\n      RMF114 = 5.8301691 * F114_PPM\nC\n      DO I = IL1, IL2\n        DO K = 1, LAY\n          RADEQVW(I,K) = 0.0\n          RADEQVI(I,K) = 0.0\n          WCLW(I,K)    = 0.0\n          WCLI(I,K)    = 0.0\n        ENDDO\n      ENDDO\nC\nC----------------------------------------------------------------------C\nC     CLOUD INPUT INFORMATION                                          C\nC     RADEQVW: EFFECTIVE RADIUS FOR WATER CLOUD                        C\nC     WCLW: LIQUID WATER PATH LENGTH (IN GRAM / M^2)                   C\nC     RADEQVI: EFFECTIVE RADIUS FOR ICE CLOUD                          C\nC     WCLI: ICE WATER PATH LENGTH (IN GRAM / M^2)                      C\nC     CCLD: CLOUD FRACTION                                             C\nC     FRACW: FRACTION OF LIQUID WATER TO LIQUID + ICE WATER            C\nC                                                                      C\nC     ANU: FACTOR OF GAMMA DISTRIBUTION FOR INHOMOGENOUS CLOUD         C\nC     IMPORTANT NOTE: ANU IS GIVEN IN CLDIFM                           C  \nC     IN THIS MODEL THE CLOUD TOP LEVEL HAS TO BE LOWER THAN 1 MB      C\nC----------------------------------------------------------------------C\nC\n       RGAS = 287.04\n       GRAV = 9.8\n       RGOCP = 2./7.\nC\nc.............................................\nC\n      DO I = IL1, IL2\n       WCL(I) =0.0\n       WCI(I) =0.0\n      ENDDO\nC\n      DO K = 1, LAY\n      DO I = IL1, IL2\n\n        DISTANCE     = (RGAS/GRAV) * T(I,K) *\n     1                     LOG(SHTJ(I,K+1)/SHTJ(I,K))\n!Yu+\n!        IF((MOD(II,10).EQ.1).and.(MOD(JJ,10).EQ.1).and.(MOD(K,5).EQ.1))\n!     &    THEN\n!          WRITE(112,108)II,JJ,K,SHTJ(I,K),CCLD(I,K),CLDLWC(I,K),\n!     &     RCLDL(K)\n! 108      FORMAT(I3,I3,I3,15(1PE9.2))\n!        ENDIF\n\nc        RADEQVW(I,K) = 10.0 \n!Yu        RADEQVW(I,K) = 5.89\n!!        RADEQVW(I,K) = YRLIQ\n!         RADEQVW(I,K) = 3.00  !ok\n!        RADEQVW(I,K) = 2.5  !ok\n!        RADEQVW(I,K) = 2.2   !ok\n!        RADEQVW(I,K) = 2.1  !ok\n!        RADEQVW(I,K) = 2.0  !ok\n!        RADEQVW(I,K) = MAX(1.,RCLDL(K))   !not ok\n!        RADEQVW(I,K) = MAX(2.,RCLDL(K))   !ok\n        RADEQVW(I,K) = MAX(1.5,RCLDL(K))   !ok\n!        RADEQVW(I,K) = MAX(1.2,RCLDL(K))   ! not ok\n!        RADEQVW(I,K) = MAX(1.3,RCLDL(K))   ! not ok\n!        RADEQVW(I,K) = MAX(1.4,RCLDL(K))   ! not ok\n!        RADEQVW(I,K) = MIN(20.,RADEQVW(I,K))\n        RADEQVW(I,K) = MIN(30.,RADEQVW(I,K))\n\n        WCLW(I,K)    = CLDLWC(I,K) * DISTANCE\nC\n        RADEQVI(I,K) = 41.5\n!        RADEQVI(I,K) = YRICE\n        WCLI(I,K)    = CLDIWC(I,K) * DISTANCE\nC\n        WCL(I) = WCL(I) + WCLW(I,K)\n        WCI(I) = WCI(I) + WCLI(I,K)\n\nC set cloud cover as zero\nC\nc        CCLD(I,K) =0.0\nC\nC      if(ii.eq.60.and.jj.eq.33) then\nC       write(*,800) K,T(I,K),SHTJ(I,K),\nC     &    DISTANCE,CLDIWC(I,K),WCLW(I,K),WCLI(I,K),CCLD(I,K)\n800    format(I5,2F10.2,4F12.2,3X,F12.4)\nC      endif\n\n       ENDDO\n       ENDDO\nC\n      CALL CLOUDS (TAUCS, OMCS, GCS, TAUCL, OMCL, GCL, CCLD, CLD, \n     1             CLDT, WCLW, WCLI, RADEQVW, RADEQVI, WCDW, WCDI,\n     2             IL1, IL2, ILG, LAY, LEV)\nC\n!Yu+\n!      if(ii.eq.10.and.jj.eq.6) then\n      I = 1\n      DO K = 1, LAY\n       YCOD(LAY-K+1)=TAUCS(1,K,1)*CCLD(1,K)\n!       if(MOD(ii,20).eq.1.and.MOD(jj,10).eq.1.and.mod(K,2).eq.1) then\n!        DISTANCE     = (RGAS/GRAV) * T(I,K) *\n!     1                     LOG(SHTJ(I,K+1)/SHTJ(I,K))\n!        write(112,801)ii,jj, K,T(I,K),SHTJ(I,K),DISTANCE,CCLD(I,K),\n!     &    CLDLWC(I,K),WCLW(I,K),\n!     &    CLDIWC(I,K),WCLI(I,K),TAUCS(1,K,1),TAUCS(1,K,2),\n!     &    TAUCLW(ii,jj,LAY-K+1),TAUCLI(ii,jj,LAY-K+1)\n!       endif\n      ENDDO\n     \n801   format(I3,I3,I3,20(1PE9.2))\n\n\n      CALL RADDRIV (FSG, FSD, FSF, FSV, FSI, ALBPLA, FDL, FUL,\n     1              HRS, HRL, CST, CSB, CLT, CLB, PAR, PRESSG,\n     2              SHTJ, SHJ, TFULL, T, GT, O3, O3TOP, Q, RMU,\n     3              SALB, EM0, TAUCS, OMCS, GCS, TAUCL, OMCL, GCL,\n     4              CLD, EXTA, EXOMA, EXOMGA, FA, ABSA, \n     8              FSLO, FSAMOON, LCSW, LCLW,\n     +              FST, RHO, II, JJ, IAER,\n     6              IL1, IL2, ILG, LAY, LEV, FLXU, FLXD)\nC\nC Aerosol absorption\nC ------------------------------------ mxy +\n      DO L = 1, LAY\n      DO I = IL1,IL2\n       HRSM(I,L) = MAX(HRS(I,L),0.)\n       HRLM(I,L) = MAX(HRL(I,L),0.)\n      ENDDO\n      ENDDO\nC\n      DO I = IL1, IL2\n       FSA(I) = DSHJ(I,1)*HRSM(I,1) \n       FLA(I) = DSHJ(I,1)*HRLM(I,1) \n      ENDDO\nC\n      DO L = 2, LAY\n      DO I = IL1,IL2\n       FSA(I) = FSA(I) + DSHJ(I,L)*HRSM(I,L)\n       FLA(I) = FLA(I) + DSHJ(I,L)*HRLM(I,L)\n      ENDDO\n      ENDDO\nC\nC   * CONVERT ABSORBED ATMOSPHERIC RADIATIVE FLUX TO W/M2 AND ACCUMULATE.\nC\n      CPRES=RGAS/RGOCP\n      CPOGRAV=CPRES/GRAV\n      DO I = IL1, IL2\n       CONST  = CPOGRAV*PRESSG(I)\n       FSAM   = MAX(FSAMOON(I),0.)\n       FSA(I) = CONST*FSA(I) + FSAM\n       FLA(I) = CONST*FLA(I)\nC       print*,'FSA',II,JJ,FSA(I)\n      ENDDO\nC-------------------------------------  mxy +\nc      print*,'99999',IAER,II,JJ\n      DO I = IL1, IL2\nC        WRITE(*,201)\nC        WRITE(*,200) CST(I), CSB(I)\nC\nc        WRITE(*,*) 'FST',FST(I)\nc        WRITE(*,200)\nc        WRITE(*,202)\nc        WRITE(*,200) FSG(I),FSD(I),FSF(I),FSV(I),FSI(I),ALBPLA(I)\n\n      ENDDO\nc      WRITE(*,200)\n\n      DO I = IL1, IL2\nc        WRITE(*,203)\nc        WRITE(*,200) - CLT(I), - CLB(I)\nC\nc        WRITE(*,200)\nc        WRITE(*,204)\nc        WRITE(*,200) FUL(I), FDL(I)\nc        WRITE(*,200)\n      ENDDO\n\n\n  200 FORMAT(3X, F9.3, 2X, F9.3, 2X, F9.3, 2X, F9.3, 2X, F9.3, 2X, F9.3)\nc      WRITE(*,205)\nc      WRITE(*,206)\n\n      DO K = 1, LAY\n        DO I = IL1, IL2\nc         if(K.ge.30) then\nc          WRITE(*,207)  P(I,K), HRS(I,K) * 86400., HRL(I,K) * 86400.\nc         endif\n        ENDDO\n      ENDDO\nC\n    \n  201 FORMAT(7X,'CST', 8X, 'CSB')\n  202 FORMAT(7X,'FSG', 8X, 'FSD', 8X, 'FSF',8X, 'FSV',8X,\n     1      'FSI',7X, 'ALBPLA')\n  203 FORMAT(7X,'CLT', 8X, 'CLB')\n  204 FORMAT(7X,'FUL', 8X, 'FDL')\n  205 FORMAT(5X, 'PRESSUE', 2X, 'SOLAR HEATING RATE', 2X,\n     1           'INFRARED COOLING RATE' )\n  206 FORMAT(6X, '(MB)', 9X, '(K/DAY)', 14X, '(K/DAY)' )\n  207 FORMAT(1X, F10.5, 5X, F9.3, 12X, F9.3)\n  208 FORMAT(1X, F10.5, 5X, F9.3, 12X, F9.3,12X,F9.3)\n\n      RETURN\n      END\n\n\n      SUBROUTINE RADDRIV (FSG, FSD, FSF, FSV, FSI, ALBPLA, FDL, FUL,\n     1                    HRS, HRL, CST, CSB, CLT, CLB, PAR, PRESSG,\n     2                    SHTJ, SHJ, TFULL, T, GT, O3, O3TOP, Q, RMU,\n     3                    SALB, EM0, TAUCS, OMCS, GCS, TAUCL, OMCL, GCL,\n     4                    CLD, EXTA, EXOMA, EXOMGA, FA, ABSA, \n     8                    FSLO, FSAMOON, LCSW, LCLW,\n     +                    FST,RHO,II,JJ,IAER,\n     6                    IL1, IL2, ILG, LAY, LEV, FLXU, FLXD)\nC\nC----------------------------------------------------------------------C\nC     FSG:         DOWNWARD FLUX ABSORBED BY GROUND.                   C\nC     FSD:         DIRECT DOWNWARD FLUX AT THE SURFACE.                C\nC     FSF:         DIFFUSE DOWNWARD FLUX AT THE SURFACE.               C\nC     FSV:         VISIBLE DOWNWARD FLUX AT THE SURFACE.               C\nC     FSI:         NEAR INFRARED DOWNWARD FLUX AT THE SURFACE.         C\nC     PAR:         PHOTOSYNTHETIC ACTIVE RADIATION.                    C\nC     ALBPLA:      PLANETARY ALBEDO.                                   C\nC     CST/CSB:     NET CLEAR SKY SOLAR FLUX AT TOP / SURFACE           C\nC     FUL/FDL:     UPWARD LW FLUX AT THE TOP / SURFACE                 C\nC     CLT/CLB:     NET CLEAR SKY LONGWAVE FLUX AT TOP/SURFACE          C\nC     HRS/HRL:     SOLAR HEATING RATE / LONGWAVE COOLING RATE          C\nC     PRESSG:      PRESSURE AT GROUND IN UNIT PA                       C\nC     SHTJ:        PRESSURE AT MODEL LEVELS                            C\nC     SHJ:         PRESSURE AT MODEL LAYER CENTER                      C\nC     TFULL/T:     TEMPERATURE AT MODEL LEVEL / LAYER CENTER           C\nC     GT:          GROUND TEMPERATURE                                  C\nC     O3:          OZONE MASS MIXING RATIO IN (G/G)                    C\nC     O3TOP:       ACCUMULATED OZONE MASS ABOVE THE MODEL TOP          C\nC     Q:           WATER VAPOR SPECIFIC HUMIDITY (MASS MIXING RATIO IN C\nC                  SOME VERSIONS)                                      C\nC     RMU:         COSINE OF SOLAR ZENITH ANGLE                        C\nC     SALB:        SURFACE ALBEDO                                      C\nC     TAUCS/TAUCL: CLOUD OPTICAL DEPTH FOR SOLAR/LONGWAVE              C\nC     OMCS/OMCL:   CLOUD SINGLE SCATTERING ALBEDO FOR SOLAR / LONGWAVE C\nC     GCS/GCL:     CLOUD ASYMMETRY FACTOR FOR SOLAR/LONGWAVE           C\nC     CLD:         CLOUD FRACTION                                      C\nC     RADJ:        LATITUDE                                            C\nC     GC:          INDEX FOR OCAN / LAND / SEA ICE                     C\nC     PBLT:        BOUNDARY LAYER HEIGHT                               C\nC     EXTA:        EXTINCTION COEFFICIENT                              C\nC     EXOMA:       EXTINCTION COEFFICIENT TIMES SINGLE SCATTERING      C \nC                  ALBEDO                                              C\nC     EXOMGA: EXOMA TIMES ASYMMETRY FACTOR                             C\nC     FA:     SQUARE OF ASYMMETRY FACTOR                               C\nC     ABSA:   ABSORPTION COEFFICIENT                                   C\nC     FSLO:        SOLAR INCOMING FLUX AT INFRARED RANGE (0-2500CM-1)  C\nC     FSAMOON:     THE ENERGY ABSORBED BETWEEN TOA AND MODEL TOP LEVEL C\nC----------------------------------------------------------------------C\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      PARAMETER (NBS = 4, NBL = 9)\nC\nC     * INPUT/OUTPUT ARRAYS FOR PHYSICS.\nC\n      REAL FST(ILG),RHO(ILG,LAY)\n      REAL FSG(ILG), FSD(ILG), FSF(ILG), FSV(ILG), FSI(ILG),\n     1     ALBPLA(ILG), FDL(ILG), FUL(ILG), HRS(ILG,LAY), HRL(ILG,LAY),\n     2     CST(ILG), CSB(ILG), CLT(ILG), CLB(ILG), PAR(ILG)\n      REAL CSALB(ILG), BUOY(ILG,LAY), CLDIWC(ILG,LAY)\nC\n      REAL PRESSG(ILG), SHTJ(ILG,LEV), SHJ(ILG,LAY), \n     1     TFULL(ILG,LEV), T(ILG,LAY), GT(ILG), O3(ILG,LAY),\n     2     O3TOP(ILG), Q(ILG,LAY), RMU(ILG)\nC\n      REAL SALB(ILG,NBS)\nC\n      REAL TAUCS(ILG,LAY,NBS), OMCS(ILG,LAY,NBS), GCS(ILG,LAY,NBS),\n     1     TAUCL(ILG,LAY,NBL), OMCL(ILG,LAY,NBL), GCL(ILG,LAY,NBL),\n     2     CLD  (ILG,LAY), GC(ILG)\nC\n      REAL  FSLO(ILG), FSAMOON(ILG)\nC\nC   * INPUT ARRAYS FOR AEROSOL OPTICAL PROPERTIES FOR SHORTWAVE\nC\n      REAL EXTA(ILG,LAY,NBS), EXOMA(ILG,LAY,NBS), EXOMGA(ILG,LAY,NBS),\n     1     FA(ILG,LAY,NBS)\nC\nC   * INPUT ARRAYS FOR AEROSOL OPTICAL PROPERTIES FOR LONGWAVE\nC\n      REAL ABSA(ILG,LAY,NBL)\nC\n      LOGICAL LCSW, LCLW\nC\nC     * GENERAL WORK ARRAYS.\nC\n      REAL PG     (ILG,LAY), QG    (ILG,LAY), FLXU  (ILG,LEV),\n     1     FLXD   (ILG,LEV), P     (ILG,LAY), DP    (ILG,LAY),\n     2     TAUR   (ILG,LAY), TAUG  (ILG,LAY), TAUA  (ILG,LAY),\n     3     PFULL  (ILG,LEV), F1    (ILG,LAY), F2    (ILG,LAY),\n     4     ANU    (ILG,LAY), URBF  (ILG,LAY), TAUOMA(ILG,LAY),\n     5     TAUOMGA(ILG,LAY), DIP   (ILG,LAY), DIPG  (ILG,LAY),\n     6     DT     (ILG,LAY)\n      REAL REFL   (ILG,2,LEV), TRAN  (ILG,2,LEV) \nC\n      REAL C1(ILG), C2(ILG), BS(ILG)\nC\nC     * GATHERED AND OTHER WORK ARRAYS USED GENERALLY BY SOLAR.\nC\n      REAL A1(ILG,12), A1G(ILG,12), CUMDTR(ILG,4,LEV)\nC\n      REAL TAUCSG(ILG,LAY), TAUOMC(ILG,LAY), TAUOMGC(ILG,LAY),\n     1     PFULLG(ILG,LEV), O3G(ILG,LAY), CLDG(ILG,LAY), CLDMG(ILG,LAY),\n     2     TG(ILG,LAY)\nC\n      REAL O3TOPG(ILG), ALBSUR(ILG), EM0(ILG), RMUG(ILG)\nC\n      INTEGER INPTG(ILG,LAY), INPTMG(ILG,LAY), NBLK(ILG,LAY)\n      INTEGER ISUN(ILG)\nC\nC     * WORK ARRAYS USED GENERALLY BY LONGWAVE.\nC\n      REAL TAUCI(ILG,LAY), OMCI(ILG,LAY), GCI(ILG,LAY), BF(ILG,LEV), \n     1     CLDM(ILG,LAY)\nC\n      INTEGER INPT(ILG,LAY), INPTM(ILG,LAY), INPR(ILG,LAY), \n     1        NCD(ILG,LAY), NCU(ILG,LAY)\n      INTEGER NCT(ILG), NCTG(ILG), NCUM(LAY), NCDM(LAY)\nC\nC     * BAND INFORMATION.\nC\n      REAL SFINPTL(NBL)\n      INTEGER KGS(NBS), KGSGH(NBS), KGL(NBL), KGLGH(NBL)\nC\n      LOGICAL GH\nC\n      COMMON /ECCENT/ RRSQ\n      COMMON /RADCON/ SOLAR_C\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC\nC----------------------------------------------------------------------C\nC     FOR HRCOEF, 9.80665 / 1004.64 / 100 = 9.761357E-05, IN (K / SEC),C\nC     SINCE WE USE DP (DIFF IN PRESSURE) INSTEAD OF DIFF IN METER,     C\nC     THERE IS A FACTOR 1.02. THUS 9.761357E-05 * 1.02 = 9.9565841E-05 C\nC     UU3 = 3 * U * U, U = 1 / e^0.5                                   C\nC----------------------------------------------------------------------C\nC\n      DATA HRCOEF, UU3, CUT / 9.9565841E-05, 1.1036383, 0.001 /\nC\nC     VARIABLES TO PASS TO INTRINSICS SUCH AS MIN/MAX:\nC\n      DATA QMIN     /1.E-7 /\n      DATA OPEM10   /1.E-10/\nC----------------------------------------------------------------------C\n      PI                        =  3.1415926\nC\nC----------------------------------------------------------------------C\nC     SCALE MEAN (ANNUAL) VALUE OF SOLAR CONSTANT BY RRSQ ACCOUNTING   C\nC     FOR ECCENTRICITY (PASSED THROUGH COMMON BLOCK \"ECCENT\" - SEE     C\nC     ROUTINE SDET2). THE SPECTRAL IRRADIANCE FOR MODEL IS 1367.9396   C\nC     W / M^2  WHICH IS THE SOLAR ENERGY CONTAINED IN THE SPECTRAL     C\nC     REGION 0.2 - 10 UM (50000 - 1000 CM) (BASED ON KURUCZ SOLAR DATA)C\nC     FOR LONGWAVE, FROM BAND1 TO BAND9, THE SOLAR AND INFRARED        C\nC     INTERACTION IS CONSIDERED. THE TOTAL SOLAR ENERGY CONSIDERED IN  C\nC     THE INFRARED REGION IS 11.9096 W / M^2. SFINPTL IS THE INPUT     C\nC     SOLAR FLUX IN EACH LONGWAVE BAND                                 C\nC     THE SOLAR INPUT IN SHORTWAVE REGION IS 1367.9396 - 11.9096 =     C\nC     1356.0300, THE SOLAR FRACTIONS FOR EACH BAND ARE SET IN GASOPTS  C\nC----------------------------------------------------------------------C\nC\nC----------------------------------------------------------------------C\nC     RRSQ IS THE SOLAR ORBIT PARAMETER, ADJUST IT IN ANY GLOBAL MODEL C\nC----------------------------------------------------------------------C\nC \n      DO IB = 1,NBS\n      DO K =1,LAY\n      DO I =IL1,IL2\nc      if(ii.eq.60.and.jj.eq.33) then\nc      WRITE(1003,*) EXTA(I,K,IB),EXOMA(I,K,IB),EXOMGA(I,K,IB),FA(I,K,IB)\nc      endif\n      ENDDO\n      ENDDO\n      ENDDO\nC\n      RRSQ = 1\n      SOLARC                    =  SOLAR_C\n      FRACS                     =  RRSQ * SOLARC / 1367.9396\n      X                         =  FRACS / PI\nC\n      SFINPTL(1)                =  3.67839 * X\n      SFINPTL(2)                =  2.79694 * X\n      SFINPTL(3)                =  3.20284 * X\n      SFINPTL(4)                =  1.13984 * X\n      SFINPTL(5)                =  0.31893 * X\n      SFINPTL(6)                =  0.35404 * X\n      SFINPTL(7)                =  0.29578 * X\n      SFINPTL(8)                =  0.99624E-01 * X\n      SFINPTL(9)                =  0.23220E-01 * X\nC\nC----------------------------------------------------------------------C\nC     INITIALIZATION                                                   C\nC----------------------------------------------------------------------C\nC\n      DO 20 I = IL1, IL2\n        FST(I)                  =  0.0\n        FSG(I)                  =  0.0\n        FSD(I)                  =  0.0\n        FSF(I)                  =  0.0\n        FSI(I)                  =  0.0\n        FSV(I)                  =  0.0\n        CST(I)                  =  0.0\n        CSB(I)                  =  0.0\n        PAR(I)                  =  0.0\n        FSAMOON(I)              =  0.0\n        FSLO(I)                 =  11.9096 * RMU(I) * FRACS \n        ALBPLA(I)               =  0.0\n        PFULL(I,LEV)            =  0.01 * PRESSG(I) * SHTJ(I,LEV)\n        C1(I)                   =  0.0\nc        print*,'FSLO',I,FSLO(I),PRESSG(I),SHTJ(I,LEV),RMU(I)\n   20 CONTINUE\nC\n      DO 30 K = 1, LAY\n      DO 30 I = IL1, IL2\n        HRS(I,K)                =  0.0\n        X                       =  0.01 * PRESSG(I)\n        P(I,K)                  =  SHJ (I,K) * X\n        PFULL(I,K)              =  SHTJ(I,K) * X\nC\nC----------------------------------------------------------------------C\nC     DETERMINE LEV1 FOR SOLAR RADIATION, LEV1 IS THE LEVEL DETERMININGC\nC     HIGHEST LEVEL FOR FULL RADIATION CALCULATION, ABOVE LEV1 THE     C\nC     RADIATION IS CALCULATED IN A SIMPLE WAY, LEV1 SHOULD BE BETWEEN  C\nC     1 TO 0.5 MB                                                      C\nC----------------------------------------------------------------------C\nC\n        PRESLEV1 =  0.5\n        IF (PFULL(I,K) .GE. PRESLEV1)                               THEN\n          C1(I)                 =  C1(I) + 1.0\n          IF (C1(I) .EQ. 1.0)  INPT(I,1) =  K\n        ENDIF\nC\n   30 CONTINUE\nC\n      LEV1                      =  LEV\nC\n      DO 31 I = IL1, IL2\n        LEV1                    =  MIN (LEV1, INPT(I,1))\n   31 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     THIS CODE CAN BE EXTENDED TO ABOUT 100 KM, IF THE MODEL TOP LEVELC\nC     IS LOWER THAN THE MAXIMUM HEIGHT, THE CALCULATION CAN BE         C\nC     SIMPLIFIED WITH LESS NUMBERS OF KGSGH AND KGLGH ACCOUNTED        C\nC----------------------------------------------------------------------C\nC\n      DATA KGS   / 6, 4, 6, 4 /\n      DATA KGL   / 1, 1, 2, 5, 2, 3, 3, 6, 4 /\nC\n      PTOP =  0.5\n      DO 32 I = IL1, IL2\n        PTOP = MIN (PFULL(I,1), PTOP)\n   32 CONTINUE\nC\n      IF (PTOP .GT. 1.0)                                            THEN\n        KGSGH(1) =  3\n        KGSGH(2) =  3\n        KGSGH(3) =  3\n        KGSGH(4) =  6\nC\n        KGLGH(1) =  2\n        KGLGH(2) =  1  \n        KGLGH(3) =  2\n        KGLGH(4) =  5\n        KGLGH(5) =  3\n        KGLGH(6) =  0 \n        KGLGH(7) =  6\n        KGLGH(8) =  2\n        KGLGH(9) =  3\n      ELSE\n        KGSGH(1) =  3\n        KGSGH(2) =  4\n        KGSGH(3) =  4\n        KGSGH(4) =  9\nC\n        KGLGH(1) =  5\n        KGLGH(2) =  1\n        KGLGH(3) =  3\n        KGLGH(4) =  5\n        KGLGH(5) =  4\n        KGLGH(6) =  0 \n        KGLGH(7) =  7\n        KGLGH(8) =  3\n        KGLGH(9) =  6\n      ENDIF\nC\nC----------------------------------------------------------------------C\nC     CALCULATE THE CLOUD PARAMETERS FOR SWTRAN AND LWTRAN             C\nC----------------------------------------------------------------------C\nC\n      CALL CLDIFM (CLDM, TAUOMGC, ANU, A1, NCD, NCU, NBLK, NCT, NCUM,\n     1             NCDM, CLD, CUT, MAXC, BUOY, CLDIWC, \n     2             IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     DETERMINATION OF THE INTERPRETATION POINTS IN PRESSURE. INPT FOR C\nC     28 REFERENCE LEVELS AND INPTM FOR 18 LEVELS                      C\nC----------------------------------------------------------------------C\nC\n      CALL PREINTP (INPT, INPTM, DIP, A1(1,12), P, IL1, IL2, ILG, LAY)\nC\n      IF (LCSW)                                                     THEN\nC\nC----------------------------------------------------------------------C\nC     DETERMINE WHETHER GRID POINTS ARE IN DAYLIGHT. GATHER THE        C\nC     REQUIRED FIELD FOR DAYLIGHT REGION                               C\nC----------------------------------------------------------------------C\nC\n      JYES = 0\n      DO 200 I = IL1, IL2\n        IF (RMU(I) .GT. 0.001)                                      THEN\n          JYES                  =  JYES + 1\n          ISUN(JYES)            =  I\n        ENDIF\n  200 CONTINUE\n      LENGATH = JYES\nC\nC----------------------------------------------------------------------C\nC     SKIP UNNECESSARY SOLAR                                           C\nC----------------------------------------------------------------------C\nC\n      IF (LENGATH .EQ. 0) GO TO 499      \nC\n      DO 230 I = 1, LENGATH\n        J = ISUN(I)\n        O3TOPG(I)               =  O3TOP(J)\nC\nC----------------------------------------------------------------------C\nC     C1 AND C2 ARE COEFFICIENTS FOR SWTRAN                            C\nC                                                                      C\nC     RMUG IS THE EFFECTIVE SOLAR ZENITH ANGLE, IT BECOMES IMPORTANT   C\nC     WHEN SOLAR ZENITH ANGLE IS CLOSE TO 90 DEGREE (LI & SHIBATA JAS  C\nC     2006), IT IS FOR GLOBAL MODEL, SET RMUG = RMU FOR PURE SINGLE    C\nC     COLUMN MODEL AND RELATED INTERCOMPARISION                        C\nC----------------------------------------------------------------------C\nC\n        RMUG(I)                 = (2.0 *  RMU(J) + \n     1                             SQRT(498.5225 * RMU(J) * RMU(J) + \n     2                             1.0)) / 24.35\nC\n        C1(I)                   =  0.75 * RMUG(I)\n        C2(I)                   =  2.0 * C1(I) * RMUG(I)\nC\n        A1G(I,1)                =  A1(J,1)\n        A1G(I,2)                =  A1(J,2)\n        A1G(I,3)                =  A1(J,3)\n        A1G(I,4)                =  A1(J,4)\n        A1G(I,5)                =  A1(J,5)\n        A1G(I,6)                =  A1(J,6)\n        A1G(I,7)                =  1.0 - A1G(I,1) - A1G(I,2) - A1G(I,3)\n        IF (A1G(I,2) .GE . CUT)                                     THEN\n          A1G(I,8)              =  A1G(I,4) / A1G(I,2)\n        ELSE\n          A1G(I,8)              =  0.0\n        ENDIF\nC\n        A1G(I,9)                =  0.0\n        A1G(I,10)               =  0.0\n        A1G(I,11)               =  0.0\n        X                       =  A1G(I,3) + A1G(I,5) + A1G(I,6)\n        IF (X .GE . CUT)                                            THEN\n          IF (A1G(I,1) .GE . CUT)                                   THEN\n            A1G(I,9)            =  A1G(I,6) / (X * A1G(I,1))\n          ENDIF\n          IF (A1G(I,2) .GE . CUT)                                   THEN\n            A1G(I,10)           =  A1G(I,5) / (X * A1G(I,2))\n          ENDIF\n          A1G(I,11)             =  A1G(I,3) / X\n        ENDIF\nC\n        A1G(I,12)               =  A1(J,12)\n        NCTG(I)                 =  NCT(J)\n        FLXU(I,LEV)             =  0.0\n        FLXD(I,LEV)             =  0.0\n        PFULLG(I,LEV)           =  PFULL(J,LEV)\nC\nC----------------------------------------------------------------------C\nC     USING URBF SPACE FOR SCALING FACTOR USED IN SOLAR                C\nC----------------------------------------------------------------------C\nC\n        URBF(I,1)               = (2.0 - RMUG(I)) ** 0.40\n  230 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     USING A1(I,3) FOR RMU3                                           C\nC----------------------------------------------------------------------C\nC\n      DO 240 I = 1, LENGATH\n        X                       =  1.0 - RMUG(I)\n        A1(I,3)                 =  X * X * X\nC\n        A1(I,4)                 =  0.0\n  240 CONTINUE\nC\n      DO 255 K = 1, LAY\n        KP1 = K + 1\n        DO 250 I = 1, LENGATH\n          J = ISUN(I)\n          FLXU(I,K)             =  0.0\n          FLXD(I,K)             =  0.0\n          PFULLG(I,K)           =  PFULL(J,K)\nC\nC----------------------------------------------------------------------C\nC     CONVERT FROM SPECIFIC HUMIDITY TO MIXING RATIO.  PLEASE NOTE IF  C\nC     Q IS IN UNIT OF MIXING RATIO, TAKE OUT IT                        C\nC     REUSING A1(I,5) FOR DT0                                          C\nC----------------------------------------------------------------------C\nC\n          QMR                   =  Q(J,K) / (1.0 - Q(J,K))\n          QG(I,K)               =  MAX (QMR, QMIN)\nC\n          CLDMG(I,K)            =  TAUOMGC(J,K)\n          CLDG(I,K)             =  CLD(J,K)\nC\n          O3G(I,K)              =  O3(J,K)\n          TG(I,K)               =  T(J,K)\n          DT(I,K)               =  TG(I,K) - 250.0\n          A1(I,5)               =  2.0 * TG(I,1) - TG(I,2) - 250.0\n          PG(I,K)               =  P(J,K)\n          DIPG(I,K)             =  DIP(J,K) \n\n          INPTG(I,K)            =  INPT(J,K)\n          INPTMG(I,K)           =  INPTM(J,K)\nc          print*,'TAUOMGC',J,K,Q(J,K),TAUOMGC(J,K),\nc     &     CLD(J,K),O3(J,K),T(J,K),P(J,K)\nC\nC----------------------------------------------------------------------C\nC     HERE DP = DIFP / G = RHO * DZ, WHERE DIFP IS THE LAYER PRESSURE  C\nC     DIFFERENCE (IN MB), G IS THE GRAVITY CONSTANT, RHO IS AIR        C\nC     DENSITY, AND DZ IS LAYER THICKNESS (IN CM). THEREFORE GAS MIXING C\nC     RATIO * DP = GAS MASS * DZ. OR WE CAN CALL DP AS THE AIR MASS    C\nC     PATH FOR A MODEL LAYER.                                          C\nC     0.0102 = 1.02 * 0.01                                             C\nC     1MB = 100 PASCAL = 1000 DYNES / CM^2,                            C\nC     1.02 = (1000 DYNES / CM^2) / (980 CM / (SECOND^2)).              C\nC     PRESSG, SURFACE PRESSURE IN UNIT PASCAL, SO WITH 0.01 FACTOR     C\nC                                                                      C\nC     REUSING BF AS A FACTOR FOR CLOUD SUBGRID VARIABILITY IN SOLAR    C\nC----------------------------------------------------------------------C\nC\n          DP(I,K)               =  0.0102 * PRESSG(J) * \n     1                            (SHTJ(J,KP1) - SHTJ(J,K))\nC          if(ii.eq.60.and.jj.eq.33) then\nC           print*,'DP',K,DP(I,K)\nC          endif\n          IF (CLDG(I,K) .LT. CUT)                                   THEN\n            BF(I,K)             =  0.0\n          ELSE\n            BF(I,K)             =  1.0 / (1.0 + 5.68 * ANU(J,K) ** 1.4)\n          ENDIF\n  250   CONTINUE\n  255 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     SOLAR: 4 BAND FOR CLOUD, AEROSOL, AND RAYLEIGH,                  C\nC     20 + 15 (20) MONOCHROMATIC CALCULATIONS FOR GAS AND RADIATIVE    C\nC     TRANSFER                                                         C\nC                                                                      C\nC     FLXU:   ALL SKY SW UPWARD FLUX.                                  C\nC     FLXD:   ALL SKY SW DOWNWARD FLUX.                                C\nC     FSG:    DOWNWARD FLUX ABSORBED BY GROUND.                        C\nC     FSD:    DIRECT DOWNWARD FLUX AT THE SURFACE.                     C\nC     FSF:    DIFFUSE DOWNWARD FLUX AT THE SURFACE.                    C\nC     FSV:    VISIBLE DOWNWARD FLUX AT THE SURFACE.                    C\nC     FSI:    NEAR INFRARED DOWNWARD FLUX AT THE SURFACE.              C\nC     PAR:    PHOTOSYNTHETIC ACTIVE RADIATION.                         C\nC     ALBPLA: PLANETARY ALBEDO.                                        C\nC     CST:    NET CLEAR SKY FLUX AT TOP.                               C\nC     CSB:    NET CLEAR SKY FLUX AT SURFACE.                           C\nC----------------------------------------------------------------------C\nC\n      DO 480 IB = 1, NBS  \nC\nC----------------------------------------------------------------------C\nC     TWO SURFACE ALBEDO FOR ALL SKY AND CLEAR SKY PORTIONS IN A GRID  C\nC     CELL, USER CAN USE TWO SEPARATE INPUT OF SALB                    C\nC----------------------------------------------------------------------C\nC \n        DO 300 I = 1, LENGATH\n          J = ISUN(I)\n          ALBSUR(I)             =  SALB(J,IB)\n          CSALB(I)              =  SALB(J,IB)\n  300   CONTINUE\nC\nC----------------------------------------------------------------------C\nC     AEROSOL OPTICAL PROPERTIES. TAUA IS AEROSOL OPTICAL DEPTH        C\nC----------------------------------------------------------------------C\nC\n        AOD = 0.\n        DO 310 K = 1, LAY\n        DO 310 I = 1, LENGATH\n          J = ISUN(I)\n          DZ                   =  DP(I,K) / RHO(I,K)   !mxy\n          TAUA(I,K)             =  EXTA(J,K,IB) * DZ\n          TAUOMA(I,K)           =  EXOMA(J,K,IB) * DZ\n          TAUOMGA(I,K)          =  EXOMGA(J,K,IB) * DZ\n          F1(I,K)               =  FA(J,K,IB)\n          AOD = AOD+TAUA(1,K)\nC----------------------------------------------------------------------C\nC     SCALING THE CLOUD OPTICAL PROPERTIES DUE TO SUBGRID VARIABILITY  C\nC     AND STANDARD SCALING FOR RADIATIVE TRANSFER                      C\nC----------------------------------------------------------------------C\nC\n          IF (CLDG(I,K) .GE. CUT)                                   THEN\n            IF (K .EQ. 1)                                           THEN\n              TAUCI(I,K)        =  TAUCS(J,K,IB)\n              X                 =  TAUCS(J,K,IB) +\n     1                             9.2 * SQRT(TAUCS(J,K,IB)) \n            ELSE\n              TAUCI(I,K)        =  TAUCI(I,K-1) + TAUCS(J,K,IB)\n              X                 =  TAUCS(J,K,IB) +\n     1                             9.2 * SQRT(TAUCI(I,K-1)) \n            ENDIF\nC\n            TAUCSG(I,K)         =  TAUCS(J,K,IB) / (1.0 + 0.185 *\n     1                             X * URBF(I,1) * BF(I,K))\nC\n            C20                 =  TAUCSG(I,K) * OMCS(J,K,IB)\n            TAUOMC(I,K)         =  TAUOMA(I,K) + C20\nC\n            C30                 =  C20 * GCS(J,K,IB)\n            TAUOMGC(I,K)        =  TAUOMGA(I,K) + C30\n            F2(I,K)             =  F1(I,K) + C30 * GCS(J,K,IB)\n          ELSE\n            TAUCI(I,K)          =  0.0\n            TAUCSG(I,K)         =  0.0\n            TAUOMC(I,K)         =  0.0\n            TAUOMGC(I,K)        =  0.0\n            F2(I,K)             =  0.0\n          ENDIF\nC \n  310   CONTINUE\nc        if(ii.eq.60.and.jj.eq.33) then\nc        print*,'AOD',AOD\nc        endif\nC\nC----------------------------------------------------------------------C\nC     RAYLEI, NEAR-IR RAYLEIGH SCATTERING, IT IS INDEPENDENT OF IG.    C\nC----------------------------------------------------------------------C\nC\n        IF (IB .NE. 1)                                              THEN\n          CALL RAYLEI (TAUR, IB, DP, 1, LENGATH, ILG, LAY)\n        ENDIF\nC\n        GH = .FALSE.\nC\n        DO 400 IG = 1, KGS(IB) \nC\n          IF (IB .EQ. 1)                                            THEN\nC\nC----------------------------------------------------------------------C\nC     RAYLEV, VISIBLE RAYLEIGH SCATTERING, IT IS DEPENDANT ON IG.      C\nC----------------------------------------------------------------------C\nC\n            CALL RAYLEV (TAUR, IG, DP, A1(1,3), 1, LENGATH, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SOLAR ATTENUATION ABOVE THE MODEL TOP LAY. ONLY APPLY TO BAND    C\nC     ONE FOR O3 AND O2. THIS IS TRUE ONLY FOR MODEL TOP LEVEL ABOVE   C\nC     ABOUT 1 MB, WATER VAPOR CONTRIBUTION IS SMALL.                   C\nC     REUSING A1(I,1) FOR MOON LAYER ATTENUATION                       C\nC----------------------------------------------------------------------C\nC\n            CALL SATTENU (A1, IB, IG, RMUG, O3TOPG, QG, PFULLG, \n     1                    A1G(1,12), DT, A1(1,5), INPTG, GH, 1, LENGATH,\n     2                    ILG)\n          ELSE\n            DO 320 I = 1, LENGATH\n              A1(I,1)           =  1.0\n  320       CONTINUE\n          ENDIF\nC\nC----------------------------------------------------------------------C\nC     DOWNWARD FLUX ABOVE 1 MB, FURTHER FLUX ATTENUATION FACTOR FOR    C\nC     THE LOWER REGION                                                 C\nC----------------------------------------------------------------------C\nC\n          IF (LEV1 .GT. 1)                                          THEN\n            CALL STRANDN (TRAN, BS, A1, RMUG, DP, DT, O3G, A1(1,3), IB,\n     1                    IG, LEV1, 1, LENGATH, ILG, LAY, LEV)\n          ELSE\n            DO 330 I = 1, LENGATH\n              BS(I)             =  A1(I,1)\n  330       CONTINUE\n          ENDIF\nC\n          CALL GASOPTS (TAUG, GW, DP, IB, IG, O3G, QG, INPTMG, DIPG,\n     1                  DT, A1(1,3), LEV1, GH, 1, LENGATH, ILG, LAY)\nC mxy+\n          DO K = 1,LAY\n          DO I = IL1,IL2\n           TAUG(I,K) = MAX(TAUG(I,K),1.E-20)\n          ENDDO\n          ENDDO\nC mxy+\nC\n          CALL SWTRAN (REFL, TRAN, CUMDTR, BS, TAUA, TAUR, TAUG, TAUOMA,\n     1                 TAUOMGA, F1, F2, TAUCSG, TAUOMC, TAUOMGC, CLDG,\n     2                 CLDMG, A1G, RMUG, C1, C2, ALBSUR, CSALB,\n     1                 NBLK, NCTG,II,JJ,IAER,\n     3                 CUT, LEV1, 1, LENGATH, ILG, LAY, LEV)\nC\n          IF (LEV1 .GT. 1)                                          THEN\n            CALL STRANUP (REFL, DP, DT, O3G, IB, IG, LEV1, 1, LENGATH,\n     1                    ILG, LAY, LEV)\n          ENDIF\nC\nC----------------------------------------------------------------------C\nC     GATHER BACK THE REQUIRED FIELDS                                  C\nC----------------------------------------------------------------------C\nC\n          RGW = GW * FRACS\n          DO 350 I = 1, LENGATH\n            J = ISUN(I)\n            X                   =  A1G(I,7) * CUMDTR(I,1,LEV) +\n     1                             A1G(I,1) * CUMDTR(I,2,LEV) +\n     2                             A1G(I,2) * CUMDTR(I,3,LEV) +\n     3                             A1G(I,3) * CUMDTR(I,4,LEV)\n            A1(I,2)             =  RGW * RMUG(I)\n            FSD(J)              =  FSD(J) + X * BS(I) * A1(I,2)\n            CST(J)              =  CST(J) + (1.0 - REFL(I,1,1) *\n     1                             A1(I,1)) * A1(I,2)\n            CSB(J)              =  CSB(J) + (TRAN(I,1,LEV) - \n     1                             REFL(I,1,LEV)) * A1(I,2)\nC\nc          IF(II.eq.16.and.JJ.eq.12) THEN\nc          print*,'before',II,JJ,IAER,FLXU(I,1),FLXD(I,1)\nc          endif\n            FLXU(I,1)           =  FLXU(I,1) + REFL(I,2,1) * A1(I,2)\n            FLXD(I,1)           =  FLXD(I,1) + TRAN(I,2,1) * A1(I,2)\nc          if(II.eq.16.and.JJ.eq.12) THEN\nc          print*,'after',II,JJ,IAER,REFL(I,2,1),TRAN(I,2,1),A1(I,2)\nc          endif\n  350     CONTINUE\nC\nC----------------------------------------------------------------------C\nC     HEATING RATE CALCULATION, FOR STABILITY IN CALCULATION, EACH IG  C\nC     IS DONE SEPARATELY. HEATING RATE IN (K / SEC),                   C\nC----------------------------------------------------------------------C\nC\n          DO 375 K = 1, LAY\n            KP1 = K + 1\n            DO 370 I = 1, LENGATH\n              J = ISUN(I)\n              DFNET             = (TRAN(I,2,K) - TRAN(I,2,KP1) -\n     1                             REFL(I,2,K) + REFL(I,2,KP1)) * \n     2                             A1(I,2)\n              HRS(J,K)          =  HRS(J,K) + HRCOEF * DFNET / DP(I,K)\nC\n              FLXU(I,KP1)       =  FLXU(I,KP1) + REFL(I,2,KP1) * A1(I,2)\n              FLXD(I,KP1)       =  FLXD(I,KP1) + TRAN(I,2,KP1) * A1(I,2)\nc          if(II.eq.16.and.JJ.eq.12) THEN\nc          print*,'FLXUD',II,JJ,IAER,K,FLXU(I,KP1),FLXD(I,KP1)\nc          endif\n  370       CONTINUE\n  375     CONTINUE\nC\nC----------------------------------------------------------------------C\nC     FSAMOON IS THE ENERGY ABSORBED BETWEEN TOA AND MODEL TOP LEVEL.  C\nC     A1(I,4) IS THE ADJUSTMENT FOR UPWARD FLUX FROM MODEL TOP LEVEL   C\nC     TO TOA USED FOR PLANETARY ALBEDO                                 C\nC----------------------------------------------------------------------C\nC\n          IF (IB .EQ. 1)                                            THEN\n            DO 380 I = 1, LENGATH\n              J = ISUN(I)\n              X                 = (1.0 - A1(I,1)) * A1(I,2)\n              FSAMOON(J)        =  FSAMOON(J) + X * (1.0 + REFL(I,2,1)) \n              A1(I,4)           =  A1(I,4) - X * REFL(I,2,1)\n  380       CONTINUE\n          ENDIF\nC\n          IF (IB .EQ. 1 .AND. IG .EQ. 2)                            THEN\n            DO 390 I = 1, LENGATH\n              PAR(ISUN(I))      =  FLXD(I,LEV)\n  390       CONTINUE\n          ENDIF\nC\n  400   CONTINUE\nC\nC----------------------------------------------------------------------C\nC     IN ACCUMULATED SPACE WITH INTERVAL CLOSE TO 1, THE EXTINCTION    C\nC     COEFFICIENTS IS EXTREMELY LARGE, THE CALCULATION PROCESS CAN BE  C\nC     SIMPLIFIED BY IGNORING SCATTERING, REFLECTION, CLOUD AND AEROSOL.C\nC----------------------------------------------------------------------C\nC\n        GH = .TRUE.\nC\n        DO 450 IG = 1, KGSGH(IB)\nC\n          CALL SATTENU (A1, IB, IG, RMUG, O3TOPG, QG, PFULLG, A1G(1,12),\n     1                  DT, A1(1,5), INPTG, GH, 1, LENGATH, ILG)\nC\n          CALL STRANDNGH (TRAN, GWGH, A1, TAUA, TAUOMA, TAUCSG, TAUOMC,\n     1                    CLDG, RMUG, DP, O3G, QG, IB, IG, INPTG, DIPG,\n     2                    DT, LEV1, GH, CUT, 1, LENGATH, ILG, LAY, LEV)\nC\n          RGW = GWGH * FRACS\nC\n          DO 430 I = 1, LENGATH\n            J = ISUN(I)\n            A1(I,2)             =  RGW * RMUG(I)\n            CST(J)              =  CST(J) + A1(I,2)\n            CSB(J)              =  CSB(J) + TRAN(I,1,LEV) * A1(I,2)\nC\n            FSAMOON(J)          =  FSAMOON(J) + \n     1                             A1(I,2) * (1.0 - TRAN(I,2,1))\n            FLXD(I,1)           =  FLXD(I,1) + A1(I,2) * TRAN(I,2,1)\n  430     CONTINUE\n\n          DO 445 K = 1, LAY\n            KP1 = K + 1\n            DO 440 I = 1, LENGATH\n              J = ISUN(I)\n              FLXD(I,KP1)       =  FLXD(I,KP1) + A1(I,2) * TRAN(I,2,KP1)\n              HRS(J,K)          =  HRS(J,K) + HRCOEF * A1(I,2) * \n     1                            (TRAN(I,2,K) - TRAN(I,2,KP1)) / \n     2                             DP(I,K)\n  440       CONTINUE\n  445     CONTINUE\nC\n  450   CONTINUE\nC\n        IF (IB .EQ. 1)                                              THEN\n          DO 460 I = 1, LENGATH\n            FSV(ISUN(I))        =  FLXD(I,LEV)\n  460     CONTINUE\n        ENDIF\nC\n  480 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     GATHER BACK REQUIRED FIELD. FOR PLANETARY ALBEDO THE INCOMING    C\nC     ENERGY OF 11.9096 * FRACS IS TOTALLY ABSORBED IN LONGWAVE PART   C\nC----------------------------------------------------------------------C\nC\n      RSOLARC = RRSQ * SOLARC\n      DO 490 I = 1, LENGATH\n        J = ISUN(I)\n        FST(J)                  =  FLXD(I,1) - FLXU(I,1)\n        FSG(J)                  =  FLXD(I,LEV) - FLXU(I,LEV)\n        FSI(J)                  =  FLXD(I,LEV) - FSV(J)\n        FSF(J)                  =  FLXD(I,LEV) - FSD(J)\nC\n!20120713        CST(J)                  =  CST(J) + FSLO(J)\n        CST(J)                  =  CST(J) \n        ALBPLA(J)               = (FLXU(I,1) + A1(I,4)) / \n     1                            (RSOLARC * RMUG(I))\n  490 CONTINUE\nC\n  499 CONTINUE\nC        \n      ENDIF\nC     (LCSW)\nC\nC----------------------------------------------------------------------C\nC     LONGWAVE: 9 BAND FOR CLOUD, AEROSOL, CONTINUUM, AND PLANCK.      C\nC     24+22 MONOCHROMATIC CALCULATIONS FOR GAS AND RADIATIVE TRANSFER  C\nC                                                                      C\nC     FLXU: ALL SKY LW UPWARD FLUX.                                    C\nC     FLXD: ALL SKY LW DOWNWARD FLUX.                                  C\nC     FUL:  UPWARD LW FLUX AT THE TOP.                                 C\nC     FDL:  DOWN LW FLUX RECEIVED AT THE GROUND.                       C\nC     CLT:  NET CLEAR SKY UPWARD FLUX AT THE TOP.                      C\nC     CLB:  NET CLEAR SKY DOWNWARD FLUX AT THE SURFACE.                C\nC----------------------------------------------------------------------C\nC\n      IF (LCLW)                                                     THEN\nC\nC----------------------------------------------------------------------C\nC     CONVERT FROM SPECIFIC HUMIDITY TO MIXING RATIO (BOUNDED) AND     C\nC     BOUND TEMPERATURE FOR PLANCK CALCULATION.                        C\nC----------------------------------------------------------------------C\nC\n      DO 505 K = 1, LAY\n        KP1 = K + 1\n        DO 500 I = IL1, IL2\nC\nC----------------------------------------------------------------------C\nC     CONVERT SPECIFIC HUMIDITY TO MIXING RATIO. TAKE OUT IT IF NOT IN C\nC     UNIT OF SPECIFIC HUMIDITY                                        C\nC----------------------------------------------------------------------C\nC\n          QMR                   =  Q(I,K) / (1.0 - Q(I,K))\n          QG(I,K)               =  MAX (QMR, QMIN)\nC\n          HRL(I,K)              =  0.0\n          DP(I,K)               =  0.0102 * PRESSG(I) * \n     1                            (SHTJ(I,KP1) - SHTJ(I,K))\n          DT(I,K)               =  T(I,K) - 250.0 \n  500   CONTINUE\n  505 CONTINUE\nC\n      DO 510 I = IL1, IL2\n        CLT(I)                  =  0.0\n        CLB(I)                  =  0.0\nC mxy+\n        FUL(I)                  = 0.0\n        FDL(I)                  = 0.0\nC mxy+\n        INPTG(I,1)              =  0\n        ISUN(I)                 =  1 \n        A1(I,5)                 =  2.0 * T(I,1) - T(I,2) - 250.0\n  510 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     MCONT IS THE HIGHEST PRESSURE LEVEL FOR PERFORM THE CONTINUUM    C\nC     CALCULATIONS (> 138.9440 MB). REUSING SPACES OF INPTG AND ISUN.  C\nC----------------------------------------------------------------------C\nC\n      DO 520 K = 1, LEV\n      DO 520 I = IL1, IL2\n        FLXU(I,K)               =  0.0\n        FLXD(I,K)               =  0.0\nC\n        IF (PFULL(I,K) .GE. 138.9440)                               THEN\n          INPTG(I,1)            =  INPTG(I,1) + 1\n          IF (INPTG(I,1) .EQ. 1) ISUN(I) =  K\n        ENDIF\n  520 CONTINUE\nC\n      MCONT = LEV\nC\n      DO 530 I = IL1, IL2\n        MCONT                   =  MIN (ISUN(I), MCONT)\n  530 CONTINUE\n      MCONT = MCONT - 1\nC\nC----------------------------------------------------------------------C\nC     DETERMINATION OF THE INTERPRETATION POINTS IN THE RATIO OF CO2   C\nC     TO WATER VAPOR FOR TLINEHC. REUSE THE SPACE OF PG FOR DIR        C\nC----------------------------------------------------------------------C\nC\n      CALL PREINTR (INPR, PG, QG, IL1, IL2, ILG, LAY)\nC\n      DO 900 IB =  1, NBL  !    \nC\nC----------------------------------------------------------------------C\nC     USING C1 SPACE FOR SLWF WHICH IS THE INPUT SOLAR ENERGY IN THE   C\nC     INFRARED REGION. TOTAL 11.9096 W / M^2 FROM STANDARD             C\nC     CALCULATION                                                      C\nC     SCALING CLOUD OPTICAL PROPERTIES FOR IR SCATTERING CALCULATION   C\nC----------------------------------------------------------------------C\nC\n        DO 605 I = IL1, IL2\n          IF (RMU(I) .GT. 0.0)                                      THEN\n            C1(I)               =  RMU(I) * SFINPTL(IB)\n          ELSE\n            C1(I)               =  0.0\n          ENDIF\n 605    CONTINUE\nC\n        DO 610 K = 1, LAY\n        DO 610 I = IL1, IL2\n          DZ                   =  DP(I,K) / RHO(I,K)  !mxy\n          TAUA(I,K)            =  ABSA(I,K,IB) * DZ   !mxy \n          TAUCI(I,K)            =  0.0 \n          OMCI(I,K)             =  0.0 \n          GCI(I,K)              =  0.0 \n          F2(I,K)               =  0.0 \nC\n          IF (CLD(I,K) .GE. CUT)                                    THEN\n            TAUCI(I,K)          =  TAUCL(I,K,IB)\n            OMCI(I,K)           =  OMCL(I,K,IB) * TAUCI(I,K)\n            F2(I,K)             =  GCL(I,K,IB) * GCL(I,K,IB)\n            GCI(I,K)            = (GCL(I,K,IB) - F2(I,K)) / \n     1                            (1.0 - F2(I,K))\n            GCI(I,K)            =  - 0.5 * (1.0 - UU3 * GCI(I,K))\n          ENDIF\n  610   CONTINUE\nC      \nC----------------------------------------------------------------------C\nC     REUSING SPACE O3G FOR DBF                                        C\nC----------------------------------------------------------------------C\nC\n        CALL PLANCK (BF, BS, URBF, A1(1,2), A1(1,3), O3G, TFULL, GT, IB,\n     1               IL1, IL2, ILG, LAY, LEV)\nC\n        GH = .FALSE.\nC\n        DO 700 IG = 1, KGL(IB)\nC\n          CALL GASOPTL (TAUG, GW, DP, IB, IG, O3, QG, INPR, INPTM, \n     1                  MCONT, PG, DIP, DT, LEV1, GH, \n     2                  IL1, IL2, ILG, LAY)\nC mxy+\n          DO K = 1,LAY\n          DO I = IL1,IL2\n           TAUG(I,K) = MAX(TAUG(I,K),1.E-20)\n          ENDDO\n          ENDDO\nC mxy+\nC\n          CALL LWTRAN (REFL, TRAN, C1, TAUCI, OMCI, GCI, F2, TAUA,\n     1                 TAUG, BF, BS, URBF, O3G, EM0, CLD, CLDM, ANU, \n     2                 NCT, NCD, NCU, NCUM, NCDM, LEV1, MAXC,\n     3                 CUT, IL1, IL2, ILG, LAY, LEV,\n     +                 II,JJ)\nC\n          PGW = PI * GW\n          DO 650 K = LEV1, LAY\n            KP1 = K + 1\n            DO 600 I = IL1, IL2\n              FLXU(I,K)         =  FLXU(I,K) + REFL(I,2,K) * PGW\n              FLXD(I,K)         =  FLXD(I,K) + TRAN(I,2,K) * PGW\nC\n              DFNET             =  TRAN(I,2,K) - TRAN(I,2,KP1) -\n     1                             REFL(I,2,K) + REFL(I,2,KP1)\n              HRL(I,K)          =  HRL(I,K) + \n     1                             HRCOEF * DFNET / DP(I,K) * PGW\n             if(FLXU(I,K).gt.2000. .or. FLXU(I,K).lt.-1000.) then\n               print*,'FLXU(I,K)',I,K,FLXU(I,K),REFL(I,2,K),PGW\n             endif\n             if(FLXD(I,K).gt.2000. .or. FLXD(I,K).lt.-1000.) then\n               print*,'FLXD(I,K)',I,K,FLXD(I,K),TRAN(I,2,K),PGW\n             endif\n  600       CONTINUE\n  650     CONTINUE\nC\n          DO 660 I = IL1, IL2\n            FLXU(I,LEV)         =  FLXU(I,LEV) + REFL(I,2,LEV) * PGW\n            FLXD(I,LEV)         =  FLXD(I,LEV) + TRAN(I,2,LEV) * PGW\n            if(FLXU(I,LEV).gt.2000. .or. FLXU(I,LEV).lt.-1000.) then\n             print*,'FLXU(I,LEV)',I,FLXU(I,LEV),REFL(I,2,LEV),PGW\n            endif\n            if(FLXD(I,LEV).gt.2000. .or. FLXD(I,LEV).lt.-1000.) then\n             print*,'FLXD(I,LEV)',I,FLXD(I,LEV),TRAN(I,2,LEV),PGW\n            endif\nC\n            CLT(I)              =  CLT(I) - REFL(I,1,LEV1) * PGW\n            CLB(I)              =  CLB(I) - \n     1                            (REFL(I,1,LEV) - TRAN(I,1,LEV)) * PGW\n           if(CLT(I).gt.2000. .or. CLT(I).lt.-1000.) then\n            print*,'CLT(I)',I,CLT(I),REFL(I,1,LEV1),PGW\n           endif\n           if(CLB(I).gt.2000. .or. CLB(I).lt.-1000.) then\n            print*,'CLB(I)',I,CLB(I),REFL(I,1,LEV),TRAN(I,1,LEV)\n           endif\n  660     CONTINUE\nC\n          IF (LEV1 .GT. 1)                                          THEN\n            DO 680 K = LEV1 - 1, 1, - 1\n              KP1 =  K + 1\n              DO 670 I = IL1, IL2\n                FLXU(I,K)       =  FLXU(I,K) + REFL(I,2,LEV1) * PGW\n                FLXD(I,K)       =  FLXD(I,K) + C1(I) * PGW\n  670         CONTINUE\n  680       CONTINUE\n          ENDIF\nC\n  700   CONTINUE\nC\n        IF (IB .NE. 6)                                              THEN\nC\n          GH = .TRUE.\nC\n          DO 800 IG = 1, KGLGH(IB)\nC\n            CALL GASOPTLGH (TAUG, GWGH, DP, IB, IG, O3, QG, INPT, \n     1                      MCONT, PG, DIP, DT, LEV1, GH, \n     2                      IL1, IL2, ILG, LAY)\nC mxy+\n          DO K = 1,LAY\n          DO I = IL1,IL2\n           TAUG(I,K) = MAX(TAUG(I,K),1.E-20)\n          ENDDO\n          ENDDO\nC mxy+\nC\nC----------------------------------------------------------------------C\nC     CONSIDER THE ATTENUATION FOR THE DOWNWARD FLUX ABOVE THE MODEL   C\nC     TOP LEVEL. THIS IS IMPORTANT TO GET THE CORRECT COOLING RATE. IF C\nC     THE MODEL TOP LEVEL PRESSURE IS LOWER THAN 0.01. THIS IS NOT     C\nC     NECESSARY                                                        C\nC----------------------------------------------------------------------C\nC\n            CALL LATTENU (A1, IB, IG, O3TOP, QG, PFULL, A1(1,12), DT, \n     1                    A1(1,5), INPT, IL1, IL2, ILG)\nC\n            DO 710 I = IL1, IL2\n              TRAN0             =  EXP(- A1(I,1))\n              if(TRAN0.gt.2000. .or. TRAN0.lt.-1000.) then\n               print*,'TRAN0',I,TRAN0,A1(I,1)\n              endif\nC\n              IF (PFULL(I,1) .GT. 0.001)                            THEN\n                X               =  MAX(A1(I,1), OPEM10)\n                ETA             =  1.0 / (1.0 + A1(I,3) / X)\n                IF (ABS(ETA) .LT. 100.)                             THEN\n                  C2(I)         =  C1(I) * TRAN0 + ETA *\n     1                            (BF(I,1) - A1(I,2) * TRAN0)\n                ELSE\n                  C2(I)         =  C1(I) * TRAN0 + X * A1(I,2) * TRAN0\n                ENDIF\n              ELSE\n                C2(I)           =  C1(I) * TRAN0\n              ENDIF\n  710       CONTINUE           \nC\n            CALL LWTRAGH (REFL, TRAN, C2, TAUCI, OMCI, TAUA, TAUG, BF, \n     1                    URBF, CLD, EM0, BS, CUT, \n     2                    IL1, IL2, ILG, LAY, LEV)\nC\n            PGW = PI * GWGH\n            DO 740 K = 1, LAY\n              KP1 = K + 1\n              DO 730 I = IL1, IL2\n                FLXU(I,K)       =  FLXU(I,K) + REFL(I,2,K) * PGW\n                FLXD(I,K)       =  FLXD(I,K) + TRAN(I,2,K) * PGW\nC\n                DFNET           =  TRAN(I,2,K) - TRAN(I,2,KP1) -\n     1                             REFL(I,2,K) + REFL(I,2,KP1)\n                HRL(I,K)        =  HRL(I,K) +\n     1                             HRCOEF * DFNET / DP(I,K) * PGW\n  730         CONTINUE\n  740       CONTINUE\nC\nC----------------------------------------------------------------------C\nC     THE ATTENUATION FOR THE UPWARD FLUX ABOVE THE MODEL TOP IS NOT   C\nC     CONSIDERED, SINCE THE IMPACT ON UPWARD FLUX IS VERY SMALL IF THE C\nC     MODEL TOP IS ABOUT 1 MB OR HIGHER                                C\nC----------------------------------------------------------------------C\nC\n            DO 750 I = IL1, IL2\n              FLXU(I,LEV)       =  FLXU(I,LEV) + REFL(I,2,LEV) * PGW\n              FLXD(I,LEV)       =  FLXD(I,LEV) + TRAN(I,2,LEV) * PGW\n              CLT(I)            =  CLT(I) -  REFL(I,1,1) * PGW\n              CLB(I)            =  CLB(I) - \n     1                            (REFL(I,1,LEV) - TRAN(I,1,LEV)) * PGW\n             if(CLT(I).gt.2000. .or. CLT(I).lt.-1000. .or.\n     &          CLB(I).gt.2000. .or. CLB(I).lt.-1000.) then\n             print*,'CLT(I),CLB(I)',I,CLT(I),CLB(I),REFL(I,1,1),PGW,\n     &        REFL(I,1,LEV),TRAN(I,1,LEV),FLXU(I,LEV),REFL(I,2,LEV),\n     &        FLXD(I,LEV),TRAN(I,2,LEV)\n             endif\n\n  750       CONTINUE\nC\n  800     CONTINUE\nC\n        ENDIF\n  900 CONTINUE  \nC\n      DO 950 I = IL1, IL2\n        FDL(I)                  =  FLXD(I,LEV)\n        FUL(I)                  =  FLXU(I,1)\n  950 CONTINUE\nC\n      ENDIF\nC     (LCLW)\nC\n      RETURN \n      END\n\n      SUBROUTINE ATTENUE (ATTEN, COEF1, O3, Q, DP, DIP, DT, DT0, RMU,\n     1                    INPT, N, NG, ISL, IL1, IL2, ILG)\nC\nC----------------------------------------------------------------------C\nC     THIS SUBROUTINE CALCULATES THE DOWNWARD FLUX ATTENUATION ABOVE   C\nC     THE MODEL TOP LEVEL                                              C\nC     ISL = 1 FOR SOLAR, ISL = 2 FOR INFRARED.                         C\nC     NG = 1, H2O; NG = 2, O3; NG = 3, CO2; NG = 6, O2                 C\nC     ASSUMING THE TEMPERATURE AT 0.0005 MB IS 210 K                   C\nC                                                                      C\nC     ATTEN: FOR SOLAR: THE ATTENUATION FACTOR FOR DOWNWARD FLUX FROM  C\nC            TOA TO THE MODEL TOP LEVEL; FOR LONGWAVE: THE OPTICAL     C\nC            / DIFFUSE FACTOR                                          C\nC     DP:    AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).    C\nC     O3:    O3 MASS MIXING RATIO                                      C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     DT0:   TEMPERATURE IN MOON LAYER - 250 K                         C\nC     RMU:   COS OF SOLAR ZENITH ANGLE                                 C\nC----------------------------------------------------------------------C\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL ATTEN(ILG), COEF1(5,N), DP(ILG), O3(ILG), Q(ILG), DIP(ILG),\n     1     DT(ILG), DT0(ILG), RMU(ILG), S1(ILG)\n      INTEGER INPT(ILG)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC\n      DATA RU / 1.6487213 /\n      DATA N1 / 1 /\nC=======================================================================\n      IF (NG .EQ. 1)                                                THEN\n        DO 100 I = IL1, IL2\n          S1(I)    =  1.02 * Q(I)\n 100    CONTINUE        \n      ELSE IF (NG .EQ. 2)                                           THEN\n        DO 200 I = IL1, IL2\n          S1(I)    =  1.02 * O3(I)\n 200    CONTINUE\n      ELSE IF (NG .EQ. 3)                                           THEN\n        DO 300 I = IL1, IL2\n          S1(I)    =  1.02 * RMCO2\n 300    CONTINUE\n      ELSE IF (NG .EQ. 4)                                           THEN\n        DO 400 I = IL1, IL2\n          S1(I)    =  1.02 * RMCH4\n 400    CONTINUE\n      ELSE IF (NG .EQ. 6)                                           THEN\n        DO 600 I = IL1, IL2\n          S1(I)    =  1.02 * RMO2\n 600    CONTINUE\n      ENDIF \nC\n      IF (ISL .EQ. N1)                                              THEN\n       IF (INPT(1) .LT. 950)                                        THEN\n        DO 1000 I = IL1, IL2\n          N =  INPT(I)\n          NM1 =  MAX (N - 1, N1)\n          X1       =   COEF1(1,NM1) + DT0(I) * (COEF1(2,NM1) + DT0(I) *\n     1                (COEF1(3,NM1) + DT0(I) * (COEF1(4,NM1) + DT0(I) *\n     2                 COEF1(5,1))))\n          X2       =   COEF1(1,N) + DT(I) * (COEF1(2,N) + DT(I) *\n     1                (COEF1(3,N) + DT(I) * (COEF1(4,N) + DT(I) *\n     2                 COEF1(5,N))))\nC\n          TAU      =  (X1 + (X2 - X1) * DIP(I)) * S1(I) * DP(I)\nC\n          ATTEN(I) =   EXP( - TAU / RMU(I))\n 1000   CONTINUE\n       ELSE\n        N =  INPT(1) - 1000\n        NM1 =  MAX (N - 1, N1)\n        DO 1002 I = IL1, IL2\n          X1       =   COEF1(1,NM1) + DT0(I) * (COEF1(2,NM1) + DT0(I) *\n     1                (COEF1(3,NM1) + DT0(I) * (COEF1(4,NM1) + DT0(I) *\n     2                 COEF1(5,1))))\n          X2       =   COEF1(1,N) + DT(I) * (COEF1(2,N) + DT(I) *\n     1                (COEF1(3,N) + DT(I) * (COEF1(4,N) + DT(I) *\n     2                 COEF1(5,N))))\nC\n          TAU      =  (X1 + (X2 - X1) * DIP(I)) * S1(I) * DP(I)\nC\n          ATTEN(I) =   EXP( - TAU / RMU(I))\n 1002   CONTINUE\n       ENDIF\nC\n      ELSE\n       IF (INPT(1) .LT. 950)                                        THEN\n        DO 2000 I = IL1, IL2\n          N =  INPT(I) - 1000\n          NM1 =  MAX (N - 1, N1)\n          X1       =   COEF1(1,NM1) + DT0(I) * (COEF1(2,NM1) + DT0(I) *\n     1                (COEF1(3,NM1) + DT0(I) * (COEF1(4,NM1) + DT0(I) *\n     2                 COEF1(5,1))))\n          X2       =   COEF1(1,N) + DT(I) * (COEF1(2,N) + DT(I) *\n     1                (COEF1(3,N) + DT(I) * (COEF1(4,N) + DT(I) *\n     2                 COEF1(5,N))))\nC\n          TAU      =  (X1 + (X2 - X1) * DIP(I)) * S1(I) * DP(I)\nC\n          ATTEN(I) =   RU * TAU\n 2000   CONTINUE\n       ELSE\n        N =  INPT(1) - 1000\n        NM1 =  MAX (N - 1, N1)\n        DO 2002 I = IL1, IL2\n          X1       =   COEF1(1,NM1) + DT0(I) * (COEF1(2,NM1) + DT0(I) *\n     1                (COEF1(3,NM1) + DT0(I) * (COEF1(4,NM1) + DT0(I) *\n     2                 COEF1(5,1))))\n          X2       =   COEF1(1,N) + DT(I) * (COEF1(2,N) + DT(I) *\n     1                (COEF1(3,N) + DT(I) * (COEF1(4,N) + DT(I) *\n     2                 COEF1(5,N))))\nC\n          TAU      =  (X1 + (X2 - X1) * DIP(I)) * S1(I) * DP(I)\nC\n          ATTEN(I) =   RU * TAU\n 2002   CONTINUE\n       ENDIF \n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE CLDIFM (CLDMIN, CLDMAX, ANU, A1, NCD, NCU, NBLK, NCT,\n     1                   NCUM, NCDM, CLD, CUT, MAXC,\n     2                   BUOY, CLDIWC, IL1, IL2, ILG, LAY, LEV) \nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL CLDMIN(ILG,LAY), CLDMAX(ILG,LAY), ANU(ILG,LAY), A1(ILG,10),\n     1     CLD(ILG,LAY), BUOY(ILG,LAY), CLDIWC(ILG,LAY)\nC\n      INTEGER NCD(ILG,LAY), NCU(ILG,LAY), NBLK(ILG,LAY), NCT(ILG), \n     1        NCUM(LAY), NCDM(LAY), LEVC(ILG,LAY), INTG1(ILG), \n     2        INTG2(ILG)\n      PARAMETER ( ALF=-3.E-05 )\nC\n      DATA ANUMIN, ANUMAX /0.5, 4./\nC\nC----------------------------------------------------------------------C\nC     THIS SUBROUTINE DETERMINES THE INFO FOR CLOUD AND LEVEL INFO     C\nC     FOR GASEOUS CALCULATION                                          C\nC----------------------------------------------------------------------C\nC\n      DO 10 I = IL1, IL2\n        INTG1(I)                =  0\n        INTG2(I)                =  0\n        NCT(I)                  =  LEV\n   10 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     DETERMINE THE HIGHEST CLOUD LOCATION. NCT IS THE UPPER LEVEL OF  C\nC     THE HIGHEST CLOUD,                                               C\nC     DETERMINE THE NU (ANU) FACTOR FOR CLOUD SUB-GRID VARIABILITY     C\nC     BASED ON CLOUD FRACTION.                                         C\nC----------------------------------------------------------------------C\nC\n      MAXC = LEV\nC\n      DO 25 K = 1, LAY\n        KM1 = K - 1\n        DO 20 I = IL1, IL2\nc         IF (CLDIWC(I,K) .GT. 0.)                                 THEN\n            IF (CLD(I,K) .LE. 0.9)                                 THEN\n              ANU(I,K)          =  1.0\n            ELSEIF (CLD(I,K) .GT. 0.9 .AND. CLD(I,K) .LT. 1.0)     THEN\n              ANU(I,K)          =  2.0\n            ELSE\n              ANU(I,K)          =  4.0\n            ENDIF\nc          ELSE\nc            IF (BUOY(I,K) .LT. 0.)                                 THEN\nc              ANU(I,K)          =  ALF / BUOY(I,K)\nc              ANU(I,K)          =  MIN (MAX (ANUMIN, ANU(I,K)), ANUMAX)\nc            ELSE\nc              ANU(I,K)          =  4.\nc            END IF\nc          ENDIF\nC\nC----------------------------------------------------------------------C\nC     MINIMUM ANU, IT IS EXTREMELY IMPORTANT TO ENSURE CONSISTENCY     C\nC     BETWEEN THE DEFINITIONS OF ANU HERE AND THEIR SUBSEQUENT USE IN  C\nC     LWTRAN,                                                          C\nC     CLDMAX THE MAXIMUM CLOUD FRACTION FOR EACH CLOUD BLOCK.          C\nC     CLDMIN THE MINIMUM CLOUD FRACTION FOR EACH CLOUD BLOCK.          C\nC----------------------------------------------------------------------C\nC\n          IF (CLD(I,K) .LT. CUT)                                    THEN\n            ANU(I,K)            =  1000.0\n            CLDMAX(I,K)         =  0.0\n          ELSE\n            IF (K .EQ. 1)                                           THEN\n              CLDMAX(I,K)       =  CLD(I,K)\n            ELSE\n              ANU(I,K)          =  MIN (ANU(I,KM1), ANU(I,K))\n              CLDMAX(I,K)       =  MAX (CLDMAX(I,KM1), CLD(I,K))\n            ENDIF\nC\n            INTG2(I)            =  INTG2(I) + 1\n            IF (INTG2(I) .EQ. 1) NCT(I) = K\n          ENDIF\nC\n   20   CONTINUE\n   25 CONTINUE\nC\n      DO 40 I = IL1, IL2\n        MAXC                    =  MIN (NCT(I), MAXC)\n        LEVC(I,1)               =  0\n        LEVC(I,2)               =  0\n        A1(I,1)                 =  0.\n        A1(I,2)                 =  0.\n        A1(I,3)                 =  0.\n   40 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     DETERMINE THE LAYER ORDER FOR EACH CLOUD BLOCK THROUGH DOWN AND  C\nC     UP PATHS, NCD AND NCU.                                           C\nC     DETERMINE THE TOTAL CLOUD FRACTIONS LOOKING FROM TOP AND SURFACE C\nC     FOR ONE CLOUD BLOCK (A CLOUD OCCUPY SEVERAL LAYERS, CHOOSE THE   C\nC     MINIMUM VALUE OF NU FOR THE BLOCK.                               C\nC     NCT IS THE TOP LEVEL NUMBER FOR THE HIGHEST CLOUD                C\nC     DETERMINE THE MINIMUM ANU                                        C\nC----------------------------------------------------------------------C\nC\n      DO 65 K = 2, LEV\n        KM1 = K - 1\n        L = LEV - K + 1\n        LP1 = L + 1\n        DO 60 I = IL1, IL2\n          IF (CLD(I,KM1) .LT. CUT)                                  THEN\n            LEVC(I,1)           =  0\n            NCD(I,KM1)          =  0\n          ELSE\n            LEVC(I,1)           =  LEVC(I,1) + 1\n            NCD(I,KM1)          =  LEVC(I,1)\n          ENDIF\nC\n          IF (CLD(I,L) .GE. CUT .AND. L .LT. LAY)                   THEN\n            ANU(I,L)            =  MIN (ANU(I,LP1), ANU (I,L))\n            CLDMAX(I,L)         =  MAX (CLDMAX(I,LP1), CLDMAX(I,L))\n          ENDIF\n   60   CONTINUE\n   65 CONTINUE\nC\n      DO 75 L = LAY, 1, -1\n        LP1 = L + 1\n        DO 70 I = IL1, IL2\n          IF (CLD(I,L) .LT. CUT)                                    THEN\n            LEVC(I,2)           =  0\n            NCU(I,L)            =  0\n            NBLK(I,L)           =  0\n            CLDMIN(I,L)         =  1.\n          ELSE\n            LEVC(I,2)           =  LEVC(I,2) + 1\n            NCU(I,L)            =  LEVC(I,2)\n            IF (NCU(I,L) .EQ. 1)                                    THEN\n              INTG1(I)          =  INTG1(I) + 1\n              NBLK(I,L)         =  INTG1(I)\n              IF (NBLK(I,L) .GT. 3)  NBLK(I,L) =  3\n              IF (NBLK(I,L) .EQ. 1)  A1(I,1)   =  CLDMAX(I,L)\n              IF (NBLK(I,L) .EQ. 2)  A1(I,2)   =  CLDMAX(I,L)\n              IF (NBLK(I,L) .EQ. 3)  A1(I,3)   =\n     1                               MAX (A1(I,3), CLDMAX(I,L))\n            ELSE\n              NBLK(I,L)         =  NBLK(I,LP1)\n            ENDIF\nC\n            IF (NCU(I,L) .EQ. 1)                                    THEN\n              CLDMIN(I,L)       =  CLD(I,L)\n            ELSE\n              CLDMIN(I,L)       =  MIN (CLDMIN(I,LP1), CLD(I,L))\n            ENDIF\n          ENDIF\n   70   CONTINUE\n   75 CONTINUE\nC\n      DO 80 I = IL1, IL2\n        X                       =  A1(I,3) * (1.0 - A1(I,1)) *\n     1                            (1.0 - A1(I,2))\n        A1(I,4)                 =  A1(I,1) * A1(I,2)\n        A1(I,1)                 =  A1(I,1) * (1.0 - A1(I,2))\n        IF (A1(I,3) .GE. X + A1(I,2))                               THEN\n          Y                     =  A1(I,2)\n          Z                     =  A1(I,3) - X - A1(I,2)\n        ELSE\n          Y                     =  A1(I,3) - X\n          Z                     =  0.\n        ENDIF\nC\n        IF (A1(I,3) .GE. X + A1(I,1))                               THEN\n          A1(I,6)               =  A1(I,1)\n          A1(I,5)               =  A1(I,3) - X - A1(I,6)\n        ELSE\n          A1(I,6)               =  A1(I,3) - X\n          A1(I,5)               =  0.\n        ENDIF\n        A1(I,3)                 =  X\n        A1(I,5)                 =  0.5 * (A1(I,5) + Y)\n        A1(I,6)                 =  0.5 * (A1(I,6) + Z)\n   80 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     DETERMINE THE MAXIMUM PORTION IN A CLOUD BLOCK                   C\nC     DETERMINE THE MAXIMUM NUMBER FOR NCD AND NCU, FOR ITERATION IN   C\nC     LONGWAVE                                                         C\nC----------------------------------------------------------------------C\nC\n      DO 105 K = 1, LAY\n        KM1 = K - 1\n        NCUM(K)                 =  0\n        NCDM(K)                 =  0\n        DO 100 I = IL1, IL2\n          IF (NCD(I,K) .GT. 1)                                      THEN\n            CLDMIN(I,K)         =  MIN (CLDMIN(I,KM1), CLDMIN(I,K))\n          ENDIF\nC\n          NCUM(K)               =  MAX (NCU(I,K), NCUM(K))\n          NCDM(K)               =  MAX (NCD(I,K), NCDM(K))\n  100   CONTINUE\n  105 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE GASOPTL (TAUG, GW, DP, IB, IG, O3, Q, INPTR, INPT, \n     1                    MCONT, DIR, DIP, DT, LEV1, GH, \n     2                    IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE OPTICAL DEPTHS DUE TO NONGRAY GASEOUS         C\nC     ABSORPTION FOR THE INFRARED, IN EACH LAYER FOR A GIVEN BAND IB   C\nC     AND CUMULATIVE PROBABILITY GW.                                   C\nC     FROM BAND1 TO BAND4, THE SOLAR AND INFRARED INTERACTION IS       C\nC     CONSIDERED. THE TOTAL SOLAR ENERGY CONSIDERED IN THE INFRARED    C\nC     REGION IS 11.9096 W / M^2                                        C\nC     FOR GASES WITH CONSTANT MIXING RATIO:                            C\nC     1 = H2O                                                          C\nC     2 = O3                                                           C\nC     3 = CO2                                                          C\nC     4 = CH4                                                          C\nC     5 = N2O                                                          C\nC     6 = O2                                                           C\nC     7 = CFC11                                                        C\nC     8 = CFC12                                                        C\nC     TLINE, ETC., DEAL WITH LINE ABSORPTION AND TCONTL AND TCONTHL    C\nC     DEAL WITH WATER VAPOR CONTINUUM                                  C\nC                                                                      C\nC     TAUG:  GASEOUS OPTICAL DEPTH                                     C\nC     DP:    AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).    C\nC     O3:    O3 MASS MIXING RATIO                                      C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     DIR:   INTERPRETATION FACTOR FOR MASS RATIO OF H2O / CO2         C\nC            BETWEEN TWO NEIGHBORING STANDARD INPUT RATIOS             C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     INPR:  NUMBER OF THE RATIO LEVEL FOR THE STANDARD 5 RATIOS       C\nC     INPT:  NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC     MCONT: THE HIGHEST LEVEL FOR WATER VAPOR CONTINUUM CALCULATION   C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY)\nC\n      REAL DP(ILG,LAY), O3(ILG,LAY), Q(ILG,LAY), DIR(ILG,LAY), \n     1     DIP(ILG,LAY), DT(ILG,LAY)\n      INTEGER INPTR(ILG,LAY), INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC\n      COMMON /BANDL1/  GW1(1),  CL1H2O(5,18), CL1CO2(5,18)\n      COMMON /BANDL2/  GW2(1),  CL2H2O(5,18), \n     1                          CL2CS(5,3), CL2CF(5,3)\n      COMMON /BANDL3/  GW3(2),  CL3H2O(5,18,2), CL3CH4(2),\n     1                          CL3CS(5,4,2), CL3CF(5,4,2)\n      COMMON /BANDL4/  GW4(5),  CL4H2O(5,18,5), CL4N2O(5,18,5),\n     1                          CL4CH4(5,18,5),\n     2                          CL4CS(5,4,5), CL4CF(5,4,5),\n     3                          CL4F12(5)\n      COMMON /BANDL5/  GW5(2),  CL5H2O(5,18,2), CL5O3(5,18,2),\n     1                          CL5CS(5,4,2), CL5CF(5,4,2),\n     2                          CL5F11(2), CL5F12(2)\n      COMMON /BANDL6/  GW6(3),  CL6H2O(5,18,3), CL6F11(5,18,3),\n     1                          CL6F12(5,18,3), CL6CS(5,4), CL6CF(5,4)\n      COMMON /BANDL7/  GW7(3),  CL7H2OU(5,11,3), CL7H2OD(5,5,7,3),\n     1                          CL7CO2U(5,11,3), CL7CO2D(5,5,7,3),\n     2                          CL7N2O(3), CL7O3(3),\n     3                          CL7CS(5,5,4,3), CL7CF(5,5,4,3)\n      COMMON /BANDL8/  GW8(6),  CL8H2O(5,18,6),\n     1                          CL8CS(5,6,4), CL8CF(5,6,4)\n      COMMON /BANDL9/  GW9(4),  CL9H2O(5,18,4),\n     1                          CL9CS(5,6,4), CL9CF(5,6,4)\nC\nC     * NUMBER OF VERTICAL LEVELS IN ABSORBER PRESSURE-BASED COEFFICIENT\nC     * ARRAY (\"M\" REFERENCES NON-SATURATED BANDS ACTIVE BELOW 1 MB ONLY).\nC\n      DATA MTL /18/\nC=======================================================================\n      IF (IB .EQ. 1)                                                THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (2500 - 2200 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O AND  C\nC     CO2.                                                             C\nC----------------------------------------------------------------------C\nC\n      NG2 =  3\n      CALL TLINE2 (TAUG, CL1H2O, CL1CO2, Q, O3, NG2, DP, DIP, DT, INPT,\n     1             LEV1, GH, MTL, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE N2O EFFECT                                        C\nC----------------------------------------------------------------------C\nC\n      DO 100 K = LEV1, LAY\n      DO 100 I = IL1, IL2\n        CRMN2O    =  2.0437 * 1.E-07 * SQRT(RMN2O * 1.E+07) \n        FACT      =  Q(I,K) / (Q(I,K) + 8.E+04 * CRMN2O)\n        TAUG(I,K) =  TAUG(I,K) + (754.9786 + 10141.5049 * FACT * FACT) *\n     1               CRMN2O * DP(I,K)\n  100 CONTINUE\nC\n      GW =  GW1(IG)\nC\n      ELSE IF (IB .EQ. 2)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (2200 - 1900 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O + N2OC\nC----------------------------------------------------------------------C\nC\n      NG =  1\n      INIT = 2\n      CALL TLINE1 (TAUG, CL2H2O, Q, NG, DP, DIP, DT, INPT, LEV1, GH, \n     1             MTL, INIT, IL1, IL2, ILG, LAY)\nC\n      LC =  3\n      CALL TCONTL1 (TAUG, CL2CS, CL2CF, Q, DP, DIP, DT, LC, INPT, MCONT,\n     1              GH, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE N2O EFFECT                                        C\nC----------------------------------------------------------------------C\nC\n      DO 200 K = LEV1, LAY\n      DO 200 I = IL1, IL2\n        CRMN2O    =  2.0437 * 1.E-07 * SQRT(RMN2O * 1.E+07)\n        FACT      =  Q(I,K) / (Q(I,K) + 72000. * CRMN2O)\n        TAUG(I,K) =  TAUG(I,K) + (93. + 3500. * FACT * FACT) *\n     1               CRMN2O * DP(I,K)\n  200 CONTINUE\nC\n      GW =  GW2(IG)\nC\n      ELSE IF (IB .EQ. 3)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (1900 - 1400 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.     C\nC----------------------------------------------------------------------C\nC\n      NG =  1\n      INIT = 2\n      CALL TLINE1 (TAUG, CL3H2O(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1             LEV1, GH, MTL, INIT, IL1, IL2, ILG, LAY)\nC\n      LC =  4\n      CALL TCONTL1 (TAUG, CL3CS(1,1,IG), CL3CF(1,1,IG), Q, DP, DIP, DT, \n     1              LC, INPT, MCONT, GH, IL1, IL2, ILG, LAY)\nC\n      DO 300 K = LEV1, LAY\n      DO 300 I = IL1, IL2\n        TAUG(I,K) =  TAUG(I,K) + CL3CH4(IG) * RMCH4 * DP(I,K)\n  300 CONTINUE\nC\n      GW =  GW3(IG)\nC\n      ELSE IF (IB .EQ. 4)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND3 (1100 - 1400 CM^-1), OVERLAPPING ABSORPTION OF H2O, N2O,   C\nC     CH4 AND CFC12. DIRECT MAPPING METHOD FOR H2O AND CH4 AND N2O     C\nC     CFC ARE CONSIDERED AS MINOR GASES                                C\nC----------------------------------------------------------------------C\nC\n      NG2 =  4\n      NG3 =  5\n      CALL TLINE3 (TAUG, CL4H2O(1,1,IG), CL4CH4(1,1,IG), \n     1             CL4N2O(1,1,IG), Q, NG2, NG3, DP, DIP, DT, INPT, \n     2             LEV1, GH, MTL, IL1, IL2, ILG, LAY)\nC\n      LC =  4\n      CALL TCONTL1 (TAUG, CL4CS(1,1,IG), CL4CF(1,1,IG), Q, DP, DIP, DT, \n     1              LC, INPT, MCONT, GH, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE CFC EFFECT                                        C\nC----------------------------------------------------------------------C\nC\n        DO 400 K = LEV1, LAY\n        DO 400 I = IL1, IL2\n          TAUG(I,K) =  TAUG(I,K) + (CL4F12(IG) * RMF12 + \n     1                 1037.3 * RMF113 + 1426.9 * RMF114) * DP(I,K)\n  400   CONTINUE\nC\n      GW =  GW4(IG)\nC\n      ELSE IF (IB .EQ. 5)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND5 (980 - 1100 CM^-1), OVERLAPPING ABSORPTION OF H2O AND O3   C\nC     DIRECT MAPPING METHOD. CO2 AND CFC ARE SIMPLY ADDED              C\nC----------------------------------------------------------------------C\nC\n      NG2 =  2\n      CALL TLINE2 (TAUG, CL5H2O(1,1,IG), CL5O3(1,1,IG), Q, O3, NG2, DP,\n     1             DIP, DT, INPT, LEV1, GH, MTL, IL1, IL2, ILG, LAY)\nC\n      LC =  4\n      CALL TCONTL1 (TAUG, CL5CS(1,1,IG), CL5CF(1,1,IG), Q, DP, DIP, DT, \n     1              LC, INPT, MCONT, GH, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE CO2 + CFC EFFECT                                  C\nC     SINCE THE INTERACTION OF CO2 AND H2O, Q(I,K) APPEARS IN CO2      C\nC     EFFECT                                                           C\nC----------------------------------------------------------------------C\nC\n      DO 500 K = LEV1, LAY\n      DO 500 I = IL1, IL2\n        CRMCO2    =  2.3056E-04 * SQRT(RMCO2 * 1.E+04)\n        TAUG(I,K) =  TAUG(I,K) + ( (0.009 +  0.093 * Q(I,K) / (Q(I,K) +\n     1               2.1 * CRMCO2)) * RMCO2 + CL5F11(IG) * RMF11 +\n     2               CL5F12(IG) * RMF12 + \n     3               1687.4 * RMF113 + 2924.1 * RMF114 ) * DP(I,K)\n  500 CONTINUE\nC\n      GW =  GW5(IG)\nC\n      ELSE IF (IB .EQ. 6)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (800 - 980 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.       C\nC     + CFC11 AND CFC12                                                C\nC----------------------------------------------------------------------C\nC\n      NG2 =  7\n      NG3 =  8\n      CALL TLINE3 (TAUG, CL6H2O(1,1,IG), CL6F11(1,1,IG), CL6F12(1,1,IG),\n     1             Q, NG2, NG3, DP, DIP, DT, INPT, LEV1, GH, MTL, \n     2             IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE CO2 + CFC EFFECT                                  C\nC----------------------------------------------------------------------C\nC\n        DO 600 K = LEV1, LAY\n        DO 600 I = IL1, IL2\n          TAUG(I,K) =  TAUG(I,K) + ( (0.0074 + 0.0396 * Q(I,K) /\n     1                (Q(I,K) + 2.8 * RMCO2)) * RMCO2 +\n     2                 1191.3 * RMF113 + 1098.2 * RMF114 ) * DP(I,K)\n  600   CONTINUE\nC\n        IF (IG .EQ. 1)                                              THEN\n          LC =  4\n          CALL TCONTL1 (TAUG, CL6CS, CL6CF, Q, DP, DIP, DT, LC, INPT,\n     1                  MCONT, GH, IL1, IL2, ILG, LAY)\nC\n        ENDIF\n      GW =  GW6(IG)\nC\n      ELSE IF (IB .EQ. 7)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND6 (540 - 800 CM^-1), OVERLAPPING ABSORPTION OF H2O AND CO2   C\nC     EXACT MAPPING METHOD FOR H2O AND CO2, DIRECT MAPPING FOR N2O     C\nC     O3 EFFECT IS SIMPLY ADDED                                        C\nC----------------------------------------------------------------------C\nC\n      CALL TLINEHC (TAUG, CL7H2OU(1,1,IG), CL7H2OD(1,1,1,IG),\n     1              CL7CO2U(1,1,IG), CL7CO2D(1,1,1,IG), Q, DP, DIP,\n     2              DIR, DT, INPTR, INPT, LEV1, IL1, IL2, ILG, LAY)\nC\n      CALL TCONTHL (TAUG, CL7CS(1,1,1,IG), CL7CF(1,1,1,IG), Q, DP, DIP,\n     1              DIR, DT, INPTR, INPT, MCONT, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE O3 EFFECT                                         C\nC----------------------------------------------------------------------C\nC\n      DO 700 K = LEV1, LAY\n      DO 700 I = IL1, IL2\n        CRMN2O    =  2.0437 * 1.E-07 * SQRT(RMN2O * 1.E+07)\n        TAUG(I,K) =  TAUG(I,K) + (CL7O3(IG) * O3(I,K) + \n     1               CL7N2O(IG) * CRMN2O) * DP(I,K)\n  700 CONTINUE\nC\n      GW =  GW7(IG)\nC\n      ELSE IF (IB .EQ. 8)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (340 - 540 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.       C\nC----------------------------------------------------------------------C\nC\n      NG =  1 \n      INIT = 2\n      CALL TLINE1 (TAUG, CL8H2O(1,1,IG), Q, NG, DP, DIP, DT, INPT, \n     1             LEV1, GH, MTL, INIT, IL1, IL2, ILG, LAY)\nC\n      IF (IG .LE. 4)                                                THEN\n        LC =  6\n        CALL TCONTL1 (TAUG, CL8CS(1,1,IG), CL8CF(1,1,IG), Q, DP, DIP,\n     1                DT, LC, INPT, MCONT, GH, IL1, IL2, ILG, LAY)\n      ENDIF\nC\n      GW =  GW8(IG)\nC\n      ELSE IF (IB .EQ. 9)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (0 - 340 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.         C\nC----------------------------------------------------------------------C\nC\n      NG =  1 \n      INIT = 2\n      CALL TLINE1 (TAUG, CL9H2O(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1             LEV1, GH, MTL, INIT, IL1, IL2, ILG, LAY)\nC\n      LC =  6\n      CALL TCONTL1 (TAUG, CL9CS(1,1,IG), CL9CF(1,1,IG), Q, DP, DIP, DT,\n     1              LC, INPT, MCONT, GH, IL1, IL2, ILG, LAY)\nC\n      GW =  GW9(IG)\nC\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE GASOPTLGH (TAUG, GWGH, DP, IB, IG, O3, Q, INPT, MCONT, \n     1                      DIR, DIP, DT, LEV1, GH, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     THE SAME AS GASOPTL BUT FOR INTERVALS CLOSE TO 1 IN THE          C\nC     ACCUMULATED PROBABILITY SPACE                                    C\nC     1 = H2O                                                          C\nC     2 = O3                                                           C\nC     3 = CO2                                                          C\nC     4 = CH4                                                          C\nC     5 = N2O                                                          C\nC     6 = O2                                                           C\nC     7 = CFC11                                                        C\nC     8 = CFC12                                                        C\nC     TLINE, ETC., DEAL WITH LINE ABSORPTION AND TCONTL AND TCONTHL    C\nC     DEAL WITH WATER VAPOR CONTINUUM                                  C\nC                                                                      C\nC     TAUG: GASEOUS OPTICAL DEPTH                                      C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC     O3:   O3 MASS MIXING RATIO                                       C\nC     Q:    WATER VAPOR MASS MIXING RATIO                              C\nC     DIP:  INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO             C\nC           NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS            C\nC     DT:   LAYER TEMPERATURE - 250 K                                  C\nC     INPT: NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES  C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY)\nC\n      REAL DP(ILG,LAY), O3(ILG,LAY), Q(ILG,LAY), DIR(ILG,LAY), \n     1     DIP(ILG,LAY), DT(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /BANDL1GH/  GW1GH(5),  CL1CO2GH(5,28,5)\n      COMMON /BANDL2GH/  GW2GH(1),  CL2H2OGH(5,28), \n     1                              CL2CSGH(5,3), CL2CFGH(5,3)\n      COMMON /BANDL3GH/  GW3GH(3),  CL3H2OGH(5,28,3),\n     1                              CL3CSGH(5,4), CL3CFGH(5,4) \n      COMMON /BANDL4GH/  GW4GH(5),  CL4H2OGH(5,28,5), CL4N2OGH(5,28,5),\n     1                              CL4CH4GH(5,28,5)\n      COMMON /BANDL5GH/  GW5GH(4),  CL5H2OGH(5,28,4), CL5O3GH(5,28,4),\n     1                              CL5CSGH(5,4,2), CL5CFGH(5,4,2)\nC     (NO BAND 6 FOR GH)\n      COMMON /BANDL7GH/  GW7GH(7),  CL7H2OGH(5,28,4), CL7CO2GH(5,28,7),\n     1                              CL7O3GH(2)\n      COMMON /BANDL8GH/  GW8GH(3),  CL8H2OGH(5,28,3)\n      COMMON /BANDL9GH/  GW9GH(6),  CL9H2OGH(5,28,6)\n      DATA NTL /28/\nC=======================================================================\n      IF (IB .EQ. 1)                                                THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (2500 - 2200 CM^-1), NONGRAY GASEOUS ABSORPTION OF CO2.     C\nC----------------------------------------------------------------------C\nC\n      NG =  3\n      INIT = 2\n      CALL TLINE1 (TAUG, CL1CO2GH(1,1,IG), Q, NG, DP, DIP, DT, INPT, \n     1             LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\nC\n      GWGH =  GW1GH(IG)\nC\n      ELSE IF (IB .EQ. 2)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (2200 - 1900 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O      C\nC----------------------------------------------------------------------C\nC\n      NG =  1\n      INIT = 2\n      CALL TLINE1 (TAUG, CL2H2OGH, Q, NG, DP, DIP, DT, INPT, LEV1, GH,\n     1             NTL, INIT, IL1, IL2, ILG, LAY)\nC\n      LC =  3\n      CALL TCONTL1 (TAUG, CL2CSGH, CL2CFGH, Q, DP, DIP, DT, LC, INPT, \n     1              MCONT, GH, IL1, IL2, ILG, LAY)\nC\n      GWGH =  GW2GH(IG)\nC\n      ELSE IF (IB .EQ. 3)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (1900 - 1400 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.     C\nC----------------------------------------------------------------------C\nC\n      NG =  1\n      INIT = 2\n      CALL TLINE1 (TAUG, CL3H2OGH(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1             LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\nC\n      IF (IG .EQ. 1)                                                THEN\n        LC =  4\n        CALL TCONTL1 (TAUG, CL3CSGH, CL3CFGH, Q, DP, DIP, DT, LC, INPT,\n     1                MCONT, GH, IL1, IL2, ILG, LAY)\nC\n      ENDIF\nC\n      GWGH =  GW3GH(IG)\nC\n      ELSE IF (IB .EQ. 4)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND3 (1100 - 1400 CM^-1), OVERLAPPING ABSORPTION OF H2O, N2O,   C\nC     AND CH4. DIRECT MAPPING METHOD FOR H2O AND CH4 AND N2O           C\nC----------------------------------------------------------------------C\nC\n      NG2 =  4\n      NG3 =  5 \n      CALL TLINE3 (TAUG, CL4H2OGH(1,1,IG), CL4CH4GH(1,1,IG), \n     1             CL4N2OGH(1,1,IG), Q, NG2, NG3, DP, DIP, DT, INPT,\n     2             LEV1, GH, NTL, IL1, IL2, ILG, LAY)\nC\n      GWGH =  GW4GH(IG)\nC\n      ELSE IF (IB .EQ. 5)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND5 (980 - 1100 CM^-1), OVERLAPPING ABSORPTION OF H2O AND O3   C\nC     DIRECT MAPPING METHOD                                            C\nC----------------------------------------------------------------------C\nC\n      NG2 =  2\n      CALL TLINE2 (TAUG, CL5H2OGH(1,1,IG), CL5O3GH(1,1,IG), Q, O3, NG2,\n     1             DP, DIP, DT, INPT, LEV1, GH, NTL, IL1, IL2, ILG, LAY)\nC\n      IF (IG .LE. 2)                                                THEN\n        LC =  4\n        CALL TCONTL1 (TAUG, CL5CSGH(1,1,IG), CL5CFGH(1,1,IG), Q, DP,\n     1                DIP, DT, LC, INPT, MCONT, GH, IL1, IL2, ILG, LAY)\n      ENDIF\nC\n      GWGH =  GW5GH(IG)\nC\nC----------------------------------------------------------------------C\nC     BAND (800 - 980 CM^-1), NO GH                                    C\nC----------------------------------------------------------------------C\nC\n      ELSE IF (IB .EQ. 7)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND6 (540 - 800 CM^-1), OVERLAPPING ABSORPTION OF H2O AND CO2   C\nC     DIRECT MAPPING METHOD. FOR IG > 4, THE CONTRIBUTION BY H2O IS    C\nC     VERY SMALL.                                                      C\nC----------------------------------------------------------------------C\nC\n      IF (IG .LE. 4)                                                THEN\n        NG2 =  3\n        CALL TLINE2 (TAUG, CL7H2OGH(1,1,IG), CL7CO2GH(1,1,IG), Q, O3, \n     1               NG2, DP, DIP, DT, INPT, LEV1, GH, NTL,  \n     2               IL1, IL2, ILG, LAY)\n\nC----------------------------------------------------------------------C\nC     SIMPLY ADD THE O3 EFFECT                                         C\nC----------------------------------------------------------------------C\nC\n        IF (IG .LE. 2)                                              THEN\n          DO 700 K = 1, LAY\n          DO 700 I = IL1, IL2\n            TAUG(I,K) =  TAUG(I,K) + CL7O3GH(IG) * O3(I,K) * DP(I,K)\n  700     CONTINUE\n        ENDIF\n      ELSE\nC\n        NG =  3\n        INIT = 2\n        CALL TLINE1 (TAUG, CL7CO2GH(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1               LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\n      ENDIF\nC\n      GWGH =  GW7GH(IG)\nC\n      ELSE IF (IB .EQ. 8)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (340 - 540 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.       C\nC----------------------------------------------------------------------C\nC\n      NG =  1\n      INIT = 2\n      CALL TLINE1 (TAUG, CL8H2OGH(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1             LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\nC\n      GWGH =  GW8GH(IG)\nC\n      ELSE IF (IB .EQ. 9)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (0 - 340 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O.         C\nC----------------------------------------------------------------------C\nC\n      NG =  1\n      INIT = 2\n      CALL TLINE1 (TAUG, CL9H2OGH(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1             LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\nC\n      GWGH =  GW9GH(IG)\nC\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE GASOPTS (TAUG, GW, DP, IB, IG, O3, Q, INPT, DIP, DT,\n     1                    RMU3, LEV1, GH, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE OPTICAL DEPTHS DUE TO NONGRAY GASEOUS         C\nC     ABSORPTION FOR THE SOLAR, IN EACH LAYER FOR A GIVEN BAND IB AND  C\nC     CUMULATIVE PROBABILITY GW.                                       C\nC     RELATIVE SOLAR ENERGY IN EACH SOLAR BAND ARE                     C\nC     BAND 1:   622.8483                                               C\nC     BAND 1GH:   7.5917                                               C\nC     BAND 2:   430.0919                                               C\nC     BAND 2GH:   8.9036                                               C\nC     BAND 3:   238.6979                                               C\nC     BAND 3GH:   7.4453                                               C\nC     BAND 4:    33.4129                                               C\nC     BAND 4GH:   7.0384                                               C\nC                                                                      C\nC     TOTAL RELATIVE SOLAR ENERGY IN FROM 0.2 - 4 UM IS                C\nC     1356.0300 W / M^2, PLUS 11.9096 W / M^2 IN 4 - 10 UM.            C\nC     TOTAL  1367.9396 W / M^2                                         C\nC                                                                      C\nC     MINOR GAS:                                                       C\nC     3 = CO2                                                          C\nC     4 = CH4                                                          C\nC     6 = O2                                                           C\nC     THIS SUBROUTINE ONLY CALCULATES TAUG BELOW 1 MB                  C\nC                                                                      C\nC     TAUG:  GASEOUS OPTICAL DEPTH                                     C\nC     DP:    AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).    C\nC     O3:    O3 MASS MIXING RATIO                                      C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     INPT:  NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC     RMU3:  A FACTOR OF SOLAR ZENITH ANGLE, GIVEN IN RADDRIV          C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY)\nC\n      REAL DP(ILG,LAY), O3(ILG,LAY), Q(ILG,LAY), DIP(ILG,LAY),\n     1     DT(ILG,LAY), RMU3(ILG), S(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /BANDS1/ GW1(6), CS1O3(3,6), CS1O21\n      COMMON /BANDS2/ GW2(4), CS2H2O(5,18,4), CS2O2(5,18,2), CS2O3(4)\n      COMMON /BANDS3/ GW3(6), CS3H2O(5,18,6), CS3CO2(5,18,6),\n     1                        CS3CH4(5,18,2)\n      COMMON /BANDS4/ GW4(4), CS4H2O(5,18,4), CS4CO2(5,18,4),\n     1                        CS4CH4(5,18,2)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC\nC     * NUMBER OF VERTICAL LEVELS IN ABSORBER PRESSURE-BASED COEFFICIENT\nC     * ARRAY (\"M\" REFERENCES NON-SATURATED BANDS ACTIVE BELOW 1 MB ONLY).\nC\n      DATA MTL /18/\nC=======================================================================\n      IF (IB .EQ. 1)                                                THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (14500 - 50000 CM^-1), NONGRAY GASEOUS ABSORPTION OF O3,    C\nC     H2O AND O2.                                                      C\nC     RELATIVE SOLAR ENERGY 630.4401 WM^-2.                            C\nC     IG9 (50000-43000)  UVC                           1.21100 (W M^-2)C\nC     IG8 (43000-37500)  UVC                           3.17570         C\nC     IG7 (37500-35700)  UVC                           3.20501         C\nC     UVC ALL INCLUDED IN GH PART                                      C\nC                                                                      C\nC     IG6 (35700-34200)  UVB                           4.73084         C\nC     IG5 (34200-32185)  UVB                          10.14919         C\nC     IG4 (32185-31250)  UVB  J VALUE: 32185 CM^-1     6.70594         C\nC                                                                      C\nC     IG3 (31250-25000)  UVA                          83.43346         C\nC                                                                      C\nC     IG2 (25000-19000)  PAR                         236.97212         C\nC     IG1 (19000-14500)  PAR                         280.85678         C\nC     PAR: PHOTOSYNTHETIC ACTIVE RADIATION                             C\nC     NOTE THE SPECTRAL STRUCTURE IS SLIGHTLY DIFF FROM LI & BARKER    C\nC     (2005 JAS)                                                       C\nC                                                                      C\nC     THE EFFECT OF H2O AND O2 IS ADDED WITH SIMPLE METHOD             C\nC----------------------------------------------------------------------C\nC\n        IF (IG .EQ. 1)                                              THEN\n          DO 110 K = LEV1, LAY\n          DO 110 I = IL1, IL2\n            IF (INPT(1,K) .LT. 950)                                 THEN\n              M =  INPT(I,K)\n            ELSE \n              M =  INPT(I,K) - 1000\n            ENDIF\nC\n            IF (M .LT. 7)                                           THEN\n              X       = (CS1O21 - 0.881E-05 * RMU3(I)) * RMO2\n            ELSE\n              X       = (0.108E-04 - 0.881E-05 * RMU3(I)) * RMO2\n            ENDIF\nC\n            IF (M .LT. 15)                                          THEN\n              X       =  X + (0.199E-02 - 0.952E-03 * RMU3(I)) * Q(I,K) \n            ELSE\n              X       =  X + (0.208E-02 - 0.952E-03 * RMU3(I)) * Q(I,K)\n            ENDIF\nC\n            DTO3      =  DT(I,K) + 23.13\n            TAUG(I,K) = ((CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                   DTO3 * CS1O3(3,IG))) * O3(I,K) + X) * DP(I,K)\n  110     CONTINUE\n        ELSE\n          DO 120 K = LEV1, LAY\n          DO 120 I = IL1, IL2\n            DTO3      =  DT(I,K) + 23.13\n            TAUG(I,K) = (CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                   DTO3 * CS1O3(3,IG))) * O3(I,K) * DP(I,K)\n  120     CONTINUE\n        ENDIF\nC\n        GW =  GW1(IG)\nC\n      ELSE IF (IB .EQ. 2)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (8400 - 14500 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O,    C\nC     O2 AND O3                                                        C\nC     RELATIVE SOLAR ENERGY 430.0919 W M^-2                            C\nC----------------------------------------------------------------------C\nC\n        IF (IG .LE. 2)                                              THEN\n          NG2 =  6\n          CALL TLINE2 (TAUG, CS2H2O(1,1,IG), CS2O2(1,1,IG), Q, O3, NG2,\n     1                 DP, DIP, DT, INPT, LEV1, GH, MTL, \n     2                 IL1, IL2, ILG, LAY)\n        ELSE \n          NG =  1\n          INIT = 2\n          CALL TLINE1 (TAUG, CS2H2O(1,1,IG), Q, NG, DP, DIP, DT, INPT,\n     1                 LEV1, GH, MTL, INIT, IL1, IL2, ILG, LAY)\n        ENDIF\nC\nC----------------------------------------------------------------------C\nC     SIMPLY ADD O3 EFFECT                                             C\nC----------------------------------------------------------------------C\nC\n        DO 200 K = LEV1, LAY\n        DO 200 I = IL1, IL2\n          TAUG(I,K)   =  TAUG(I,K) + CS2O3(IG) * O3(I,K) * DP(I,K)\n  200   CONTINUE\nC\n        GW =  GW2(IG)\nC\n      ELSE IF (IB .EQ. 3)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (4200 - 8400 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O, CO2 C\nC     AND CH4                                                          C\nC     RELATIVE SOLAR ENERGY 238.6979 W M^-2                            C\nC----------------------------------------------------------------------C\nC\n        IF (IG .LE. 2)                                              THEN\n          NG2 =  3\n          NG3 =  4\n          CALL TLINE3 (TAUG, CS3H2O(1,1,IG), CS3CO2(1,1,IG),\n     1                 CS3CH4(1,1,IG), Q, NG2, NG3, DP, DIP, DT, INPT,\n     2                 LEV1, GH, MTL, IL1, IL2, ILG, LAY)\n        ELSE\n          NG2 =  3\n          CALL TLINE2 (TAUG, CS3H2O(1,1,IG), CS3CO2(1,1,IG), Q, O3, \n     1                 NG2, DP, DIP, DT, INPT, LEV1, GH, MTL, \n     2                 IL1, IL2, ILG, LAY)\n        ENDIF\nC\n        GW =  GW3(IG)\nC\n      ELSE IF (IB .EQ. 4)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (2500 - 4200 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O      C\nC     AND CO2                                                          C\nC     RELATIVE SOLAR ENERGY 33.4129 W M^-2                             C\nC----------------------------------------------------------------------C\nC\n        IF (IG .LE. 2)                                              THEN\n          NG2 =  3\n          NG3 =  4\n          CALL TLINE3 (TAUG, CS4H2O(1,1,IG), CS4CO2(1,1,IG),\n     1                 CS4CH4(1,1,IG), Q, NG2, NG3, DP, DIP, DT, INPT,\n     2                 LEV1, GH, MTL, IL1, IL2, ILG, LAY)\n        ELSE\n          NG2 =  3\n          CALL TLINE2 (TAUG, CS4H2O(1,1,IG), CS4CO2(1,1,IG), Q, O3, \n     1                 NG2, DP, DIP, DT, INPT, LEV1, GH, MTL, \n     2                 IL1, IL2, ILG, LAY)\n        ENDIF\nC\n        GW =  GW4(IG)\nC\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE LATTENU (ATTEN, IB, IG, O3, Q, DP, DIP, DT, DT0, INPT,\n     1                    IL1, IL2, ILG)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE ATTENUATION FOR THE DOWNWARD FLUX ABOVE THE   C\nC     MODEL TOP LEVEL. SINCE THE TEMPERATURE AT 0.005 MB IS UNKNOWN WE C\nC     ASSUME IT IS THE SAME AS THAT OF MODEL TOP LEVEL                 C\nC                                                                      C\nC     ATTEN: FOR SOLAR: THE ATTENUATION FACTOR FOR DOWNWARD FLUX FROM  C\nC            TOA TO THE MODEL TOP LEVEL; FOR LONGWAVE: THE OPTICAL     C\nC            / DIFFUSE FACTOR                                          C\nC     DP:    HERE DP IS ONLY THE PRESSURE DIFFERENCE, DIFFERENT FROM   C\nC            THAT DEFINED IN RADDRIV. SO THERE IS A FACTOR 1.02        C\nC     O3:    O3 MASS MIXING RATIO                                      C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     DT0:   TEMPERATURE IN MOON LAYER - 250 K                         C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL ATTEN(ILG), O3(ILG), Q(ILG), DP(ILG), DIP(ILG), DT(ILG), \n     1     DT0(ILG), RMU(ILG)\n      INTEGER INPT(ILG)\nC\n      COMMON /BANDL1GH/  GW1GH(5),  CL1CO2GH(5,28,5)\n      COMMON /BANDL3GH/  GW3GH(3),  CL3H2OGH(5,28,3), CL3CSGH(5,4), \n     1                              CL3CFGH(5,4)\n      COMMON /BANDL5GH/  GW5GH(4),  CL5H2OGH(5,28,4), CL5O3GH(5,28,4),\n     1                              CL5CSGH(5,4,2), CL5CFGH(5,4,2)\n      COMMON /BANDL7GH/  GW7GH(7),  CL7H2OGH(5,28,4), CL7CO2GH(5,28,7),\n     1                              CL7O3GH(2)\n      COMMON /BANDL8GH/  GW8GH(3),  CL8H2OGH(5,28,3)\n      COMMON /BANDL9GH/  GW9GH(6),  CL9H2OGH(5,28,6)\nC\nC     * NUMBER OF VERTICAL LEVELS IN ABSORBER PRESSURE-BASED COEFFICIENT\nC     * ARRAY.\nC\n      DATA NTL /28/\nC=======================================================================\n      IF (IB .EQ. 1)                                                THEN\n        NG = 3\n        ISL = 2\n        CALL ATTENUE (ATTEN, CL1CO2GH(1,1,IG), O3, Q, DP, DIP, DT, DT0, \n     1                RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ELSE IF (IB .EQ. 2)                                           THEN\n        DO 200 I = IL1, IL2\n          ATTEN(I) =  0.0  \n  200   CONTINUE\nC\n      ELSE IF (IB .EQ. 3)                                           THEN\n        NG = 1\n        ISL = 2\n        CALL ATTENUE (ATTEN, CL3H2OGH(1,1,IG), O3, Q, DP, DIP, DT, DT0, \n     1                RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ELSE IF (IB .EQ. 4)                                           THEN\n        DO 400 I = IL1, IL2\n          ATTEN(I) =  0.0\n  400   CONTINUE\nC\n      ELSE IF (IB .EQ. 5)                                           THEN\n        NG = 2\n        ISL = 2\n        CALL ATTENUE (ATTEN, CL5O3GH(1,1,IG), O3, Q, DP, DIP, DT, DT0, \n     1                RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ELSE IF (IB .EQ. 7)                                           THEN\n        NG = 3\n        ISL = 2\n        CALL ATTENUE (ATTEN, CL7CO2GH(1,1,IG), O3, Q, DP, DIP, DT, DT0, \n     1                RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ELSE IF (IB .EQ. 8)                                           THEN\n        NG = 1\n        ISL = 2\n        CALL ATTENUE (ATTEN, CL8H2OGH(1,1,IG), O3, Q, DP, DIP, DT, DT0, \n     1                RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ELSE IF (IB .EQ. 9)                                           THEN\n        NG = 1\n        ISL = 2\n        CALL ATTENUE (ATTEN, CL9H2OGH(1,1,IG), O3, Q, DP, DIP, DT, DT0,\n     1                RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE PLANCK (BF, BS, URBF, BF0, URBF0, DBF, TFULL, GT, IB,\n     1                   IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF PLANCK FUNCTION IN VALID RANGE 120 - 360 K        C\nC                                                                      C\nC     BF:    BLACKBODY INTENSITY INTEGRATED OVER EACH BAND AT EACH     C\nC            LEVEL IN UNITS W / M^2 / SR.                              C\nC     BS:    THE BLACKBODY INTENSITY AT THE SURFACE.                   C\nC     BF0:   THE BLACKBODY INTENSITY AT THE TOA (ASSUME 210 K).        C\nC     TFULL: TEMPERATURE AT EACH LEVEL                                 C\nC     GT:    TEMPERATURE AT GROUND                                     C\nC     U:     1 / DIFFUSIVITY FACTOR                                    C\nC     URBF:  U TIMES THE DIFFERENCE OF LOG(BF) FOR TWO NEIGHBOR LEVELS C\nC            USED FOR EXPONENTIAL SOURCE FUNCTION (LI, 2002 JAS P3302) C\nC     URBF0: U TIMES THE DIFFERENCE OF LOG(BF) FOR TOA AND LEVEL 1     C\nC     DBF:   DIFFERENCE OF BF FOR TWO NEIGHBOR LEVELS USED FOR LINEAR  C\nC            SOURCE FUNCTION (LI, 2002 JAS P3302)                      C\nC                                                                      C\nC     0.0040816327 = 1 / 245 (245 THE STANDARD TEMPERATURE FOR POLY.   C\nC     FIT)                                                             C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL  BF(ILG,LEV), BS(ILG), BF0(ILG), URBF(ILG,LAY), URBF0(ILG),\n     1      DBF(ILG,LAY), TFULL(ILG,LEV), GT(ILG), XX(ILG,LAY)\n      REAL  XP(6,9)\n      DATA  U / 0.60653066 /, RTSTAND / 0.0040816327 /\n      DATA ((XP(I,J), I = 1, 6), J = 1, 9) /\n     1  -2.9876423E+00,    1.3660089E+01,   -1.2944461E+01,\n     1   1.1775748E+01,   -1.9236798E+01,    2.3584435E+01,\n     2  -1.6414103E+00,    1.1898535E+01,   -1.1262182E+01,\n     2   1.0236863E+01,   -1.6677772E+01,    2.0423136E+01,\n     3   6.5215205E-01,    9.2657366E+00,   -8.5872301E+00,\n     3   7.6765044E+00,   -1.2287254E+01,    1.4990547E+01,\n     4   1.5442143E+00,    7.2253228E+00,   -6.7811515E+00,\n     4   6.1572299E+00,   -9.8725011E+00,    1.1997278E+01,\n     5   1.2777580E+00,    6.1257638E+00,   -5.7906013E+00,\n     5   5.3296782E+00,   -8.7529282E+00,    1.0741367E+01,\n     6   2.1005257E+00,    5.2376301E+00,   -4.8915631E+00,\n     6   4.5030997E+00,   -7.3199981E+00,    8.9204038E+00,\n     7   2.9091223E+00,    3.9860795E+00,   -3.5829565E+00,\n     7   3.2692193E+00,   -5.1799711E+00,    6.2157752E+00,\n     8   2.7856424E+00,    2.8179582E+00,   -2.3780464E+00,\n     8   2.1432949E+00,   -3.4540206E+00,    4.1814100E+00,\n     9   2.4623332E+00,    1.8731841E+00,   -1.3659538E+00,\n     9   1.1484948E+00,   -1.5975564E+00,    1.7791135E+00 /\nC\n      DO 100 I = IL1, IL2\n        DT          =  GT(I) * RTSTAND - 1.0\n        BS(I)       =  EXP( XP(1,IB) +\n     1                            DT * (XP(2,IB) + DT * (XP(3,IB) +\n     2                            DT * (XP(4,IB) + DT * (XP(5,IB) +\n     3                            DT *  XP(6,IB) )))) )\nC\n        DT          = (2. * TFULL(I,1) - TFULL(I,2)) * RTSTAND - 1.0\n        XXT         =  XP(1,IB) + DT * (XP(2,IB) + DT * (XP(3,IB) +\n     2                            DT * (XP(4,IB) + DT * (XP(5,IB) +\n     3                            DT *  XP(6,IB) ))))\nC\n        DT          =  TFULL(I,1) * RTSTAND - 1.0\n        XX0         =  XP(1,IB) + DT * (XP(2,IB) + DT * (XP(3,IB) +\n     1                            DT * (XP(4,IB) + DT * (XP(5,IB) +\n     2                            DT *  XP(6,IB) ))))\n        DT          =  TFULL(I,2) * RTSTAND - 1.\n        XX(I,1)     =  XP(1,IB) + DT * (XP(2,IB) + DT * (XP(3,IB) +\n     1                            DT * (XP(4,IB) + DT * (XP(5,IB) +\n     2                            DT *  XP(6,IB) ))))\nC\n        BF0(I)      =  EXP(XXT)\n        URBF0(I)    =  U * (XX0 - XXT)\n        BF(I,1)     =  EXP(XX0)\n        BF(I,2)     =  EXP(XX(I,1))\n        DBF(I,1)    =  BF(I,2) - BF(I,1)\n        URBF(I,1)   =  U * (XX(I,1) - XX0)\n  100 CONTINUE\nC\n      DO 205 K = 2, LAY\n        KM1 = K - 1\n        KP1 = K + 1\n        DO 200 I = IL1, IL2\n          DT        =  TFULL(I,KP1) * RTSTAND - 1.0\n          XX(I,K)   =  XP(1,IB) + DT * (XP(2,IB) + DT * (XP(3,IB) +\n     1                            DT * (XP(4,IB) + DT * (XP(5,IB) +\n     2                            DT *  XP(6,IB) ))))\nC\n          BF(I,KP1) =  EXP(XX(I,K))\n          DBF(I,K)  =  BF(I,KP1) - BF(I,K)\n          URBF(I,K) =  U * (XX(I,K) - XX(I,KM1))\n  200     CONTINUE\n  205   CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE PREINTP (INPT, INPTM, DIP, DIP0, P, IL1, IL2, ILG,\n     1                    LAY)\nC\nC----------------------------------------------------------------------C\nC     THIS SUBROUTINE DETERMINES THE PRESSURE INTERPRETATION POINTS    C\nC                                                                      C\nC     INPT:  NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC            (FOR 28 INTERPRETATION LEVELS)                            C\nC     INPTM: NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC            (FOR 18 INTERPRETATION LEVELS BELOW 1 MB)                 C\nC     P:     PRESSURE AT MIDDLE OF EACH LAYER                          C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DIP0:  INTERPRETATION FACTOR FOR PRESSURE ABOVE MODEL TOP LEVEL  C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL DIP(ILG,LAY), DIP0(ILG)\n      REAL P(ILG,LAY), STANDP(28)\n      INTEGER INPT(ILG,LAY), INPTM(ILG,LAY)\nC\n      DATA STANDP / 5.0000E-04, 1.4604E-03, 2.9621E-03, 6.0080E-03,\n     1              1.2186E-02, 2.4717E-02, 5.0134E-02, 1.0169E-01,\n     2              2.0625E-01, 4.1834E-01,\n     3              1.2180, 1.8075, 2.6824, 3.9806, 5.9072, 8.7662,\n     4              13.0091, 19.3054, 28.6491, 42.5151, 63.0922,\n     5              93.6284, 138.9440, 206.1920, 305.9876, 454.0837,\n     6              673.8573, 1000.0000 /\nC\n      JENDS = 27\n      DO 600 K = 1, LAY\n        DO 100 I = IL1, IL2\n          INPT(I,K)   =  0\n  100   CONTINUE\nC\n        DO 200 J = 1, JENDS\n        DO 200 I = IL1, IL2\n          IF (P(I,K) .GT. STANDP(J))                                THEN\n            INPT(I,K) =  INPT(I,K) + 1\n          ENDIF\n  200   CONTINUE\nC\nC----------------------------------------------------------------------C\nC     CALCULATE ARRAYS DIP AND DIT REQUIRED LATER FOR GASOPT ROUTINES. C\nC     ALSO, SET VALUES OF INPT FOR A GIVEN LEVEL TO BE NEGATIVE IF ALL C\nC     LONGITUDE VALUES ARE THE SAME. THIS IS ALSO USED IN THE GASOPT   C\nC     ROUTINES TO IMPROVE PERFORMANCE BY ELIMINATING THE UNNECESSARY   C\nC     INDIRECT-ADDRESSING IF INPL IS NEGATIVE FOR A GIVEN LEVEL.       C\nC     NOTE THAT FOR INPT=0, IT IS ASSUMED THAT LEVELS ARE MORE OR      C\nC     LESS HORIZONTAL IN PRESSURE, SO SCALING BY -1 STILL PRESERVES    C\nC     THE VALUE OF ZERO AND NO INDIRECT-ADDRESSING IS DONE IN THE      C\nC     GASOPT ROUTINES.                                                 C\nC----------------------------------------------------------------------C\nC\n        INPDIF =  0\n        INP1   =  INPT(1,K)\n        DO 300 I = IL1, IL2\n          IF (INPT(I,K) .NE. INP1)  INPDIF = 1\n          M  =  INPT(I,K)\n          N  =  M + 1\n          IF (M .GT. 0)                                             THEN\n            DIP(I,K)  = (P(I,K) - STANDP(M)) / (STANDP(N) - STANDP(M))\n          ELSE\n            DIP(I,K)  =  P(I,K) / STANDP(1)\n          ENDIF\n  300   CONTINUE\nC\n        IF (INPDIF .EQ. 0)                                          THEN\n          DO 400 I = IL1, IL2\n            INPT(I,K) =  INPT(I,K) + 1000\n  400     CONTINUE\n        ENDIF\nC\n        DO 500 I = IL1, IL2\n          INPTM(I,K)  =  INPT(I,K) - 10\n  500   CONTINUE\n  600 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     INTERPRETATION FACTOR FOR LATTENU AND SATTENU (ATTENUATION ABOVE C\nC     MODEL TOP                                                        C\nC----------------------------------------------------------------------C\nC\n      PM =  P(1,1)  \n      DO 700 I = IL1, IL2\n        PM          =  MIN (PM, P(I,1))\n  700 CONTINUE\nC\n      IF (PM .LE. 0.0005)                                           THEN\n        DO 800 I = IL1, IL2\n          DIP0(I)   =  0.0\n  800   CONTINUE\n      ELSE\n        DO 900 I = IL1, IL2\n          P0        =  P(I,1) * P(I,1) / P(I,2)\n          X         =  SQRT (P0 * P(I,1))\n          DIP0(I)   = (X - P(I,1)) / (P0 - P(I,1))\n  900   CONTINUE\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE PREINTR (INPR, DIR, Q, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     THIS SUBROUTINE DETERMINES THE INTERPRETION POINTS FOR THE RATIO C\nC     OF H2O AND CO2.                                                  C\nC                                                                      C\nC     INPR:  NUMBER OF THE RATIO LEVEL FOR THE STANDARD 5 RATIOS       C\nC     DIR:   INTERPRETATION FACTOR FOR MASS RATIO OF H2O / CO2         C\nC            BETWEEN TWO NEIGHBORING STANDARD INPUT RATIOS             C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     RHC:  THE RATIO OF THE H2O MASS MIXING TO CO2 MASS MIXING        C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL DIR(ILG,LAY), Q(ILG,LAY), RHC(ILG,LAY), STANDR(5)\n      INTEGER INPR(ILG,LAY)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC\n      DATA STANDR / .06,  .24,  1., 4., 16. /\nC=======================================================================\n      RRMCO2 =  1.0 / (RMCO2 + 1.E-10)\n      JENDR  =  5\n      DO 400 K = 1, LAY\nC\n        DO 100 I = IL1, IL2\n          INPR(I,K)   =  0\n          RHC(I,K)    =  Q(I,K) * RRMCO2\n  100   CONTINUE\nC\n        DO 200 J = 1, JENDR\n        DO 200 I = IL1, IL2\n          IF (RHC(I,K) .GT. STANDR(J))                              THEN\n            INPR(I,K) =  INPR(I,K) + 1\n          ENDIF\n  200   CONTINUE\nC\n        DO 300 I = IL1, IL2\n          L   =  INPR(I,K)\n          LP1 =  L + 1\n          IF (L .GE. 1 .AND. L .LT. 5)                              THEN\n            DIR(I,K)  = (RHC(I,K) - STANDR(L)) / \n     1                  (STANDR(LP1) - STANDR(L))\n          ELSE\nC\nC----------------------------------------------------------------------C\nC     DIR IS NOT USED WITH VALUES OF {0,5} IN TLINEHC, BUT WE          C\nC     INITIALIZE HERE TO AVOID PROBLEMS WITH NaN WHEN USED             C\nC     IN MULTITASKING MODE.                                            C\nC----------------------------------------------------------------------C\nC\n            DIR(I,K)  =  0.0\n          ENDIF\n  300   CONTINUE\nC\n  400 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE RAYLEI (TAUR, IB, DP, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     RAYLEIGH SCATTERING FOR BANDS2-BANDS4, NEAR INFRARED REGION      C\nC                                                                      C\nC     TAUR: RAYLEIGH OPTICAL DEPTH                                     C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL RI(3), TAUR(ILG,LAY), DP(ILG,LAY)\n      DATA RI / .16305E-04, .17997E-05, .13586E-06 /\nC=======================================================================\n      IBM1 = IB - 1\n      DO 100 K = 1, LAY\n      DO 100 I = IL1, IL2\n        TAUR(I,K) =  RI(IBM1) * DP(I,K)\n  100 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE RAYLEV (TAUR, IG, DP, RMU3, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     RAYLEIGH SCATTERING FOR EACH SUB-BAND IN BANDS1, VISIBLE REGION  C\nC     TAUR IS THE OPTICAL DEPTH RAYLEIGH SCATTERING FOR A GIVEN LAYER  C\nC     FOR UVC (35700 - 50000 CM^-1), SINCE THE OPTICAL DEPTH OF O3 AND C\nC     O2 ARE VERY LARGE, RAYLEIGH SCATTERING EFFECT IS NEGLECTED, IT   C\nC     IS SHOWN EVEN FOR 10% O3 AMOUNT OF THE STANDARD ATMO, THE        C\nC     RAYLEIGH SCATTERING FOR UVC STILL CAN BE NEGLECTED.              C\nC     FOR PAR AND UVA, SINCE THEIR SPECTRAL RANGES ARE VERY WIDE, SMALLC\nC     ERRORS COULD OCCUR FOR LARGE ZENITH ANGLE, SLIGHTLY ADJUSTMENT   C\nC     IS NEEDED, THIS DOES MEAN THE RAYLEIGH OPTICAL DEPTH IS RELATED  C\nC     SOLAR ZENITH ANGLE FOR MULTIPLE SCATTERING PROCESS IN SWTRAN.    C\nC                                                                      C\nC     TAUR: RAYLEIGH OPTICAL DEPTH                                     C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC     RMU3:  A FACTOR OF SOLAR ZENITH ANGLE, GIVEN IN RADDRIV          C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL RI0(6), RI2(3), TAUR(ILG,LAY), DP(ILG,LAY), RMU3(ILG)\nC\n      DATA RI0 / .67758E-04, .19425E-03, .52145E-03, .88082E-03,\n     1           .10541E-02, .12835E-02 /\n      DATA RI2 / .28000E-05, .21300E-04, .36000E-04 /\nC=======================================================================\n      IF (IG .LE. 3)                                                THEN\n        DO 100 K = 1, LAY\n        DO 100 I = IL1, IL2\n          TAUR(I,K) = (RI0(IG) - RI2(IG) * RMU3(I)) * DP(I,K)\n  100   CONTINUE\n      ELSE\n        DO 200 K = 1, LAY\n        DO 200 I = IL1, IL2\n          TAUR(I,K) =  RI0(IG) * DP(I,K)\n  200   CONTINUE\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE SATTENU (ATTEN, IB, IG, RMU, O3, Q, DP, DIP, DT, DT0,\n     1                    INPT, GH, IL1, IL2, ILG)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF SOLAR ATTENUATION ABOVE THE MODEL TOP LEVEL. FOR  C\nC     BAND1 ONLY O3 AND O2 ARE CONSIDERED, THE CONTRIBUTION OF OTHER   C\nC     GASES IS SMALL. FOR BAND 3 AND 4, CO2 IS CONSIDERED FOR GH       C\nC                                                                      C\nC     ATTEN: ATTENUATION FACTOR FOR DOWNWARD FLUX FROM TOA TO THE      C\nC            MODEL TOP LEVEL                                           C\nC     O3:    O3 MASS MIXING RATIO                                      C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     DP:    HERE DP IS ONLY THE PRESSURE DIFFERENCE, DIFFERENT FROM   C\nC            THAT DEFINED IN RADDRIV. SO THERE IS A FACTOR 1.02        C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE                        C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     DT0:   TEMPERATURE IN MOON LAYER - 250 K                         C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL ATTEN(ILG), RMU(ILG), O3(ILG), Q(ILG), DP(ILG), DIP(ILG),\n     1     DT(ILG), DT0(ILG)\n      INTEGER INPT(ILG)\n      LOGICAL GH\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\n      COMMON /BANDS1/ GWS1(6), CS1O3(3,6), CS1O21\nC\n      COMMON /BANDS1GH/ GWS1GH(3), CS1O3GH(3,3),     CS1O2GH3\n      COMMON /BANDS2GH/ GWS2GH(4), CS2H2OGH(5,28),   CS2O2GH(5,28,3)\n      COMMON /BANDS3GH/ GWS3GH(4), CS3H2OGH(5,28,2), CS3CO2GH(5,28,4)\n      COMMON /BANDS4GH/ GWS4GH(9), CS4H2OGH(5,28,6), CS4CO2GH(5,28,6),\n     1                             CS4CH4GH(5,28)\nC\nC     * NUMBER OF VERTICAL LEVELS IN ABSORBER PRESSURE-BASED COEFFICIENT\nC     * ARRAY.\nC\n      DATA NTL /28/\nC=======================================================================\n      IF (IB .EQ. 1)                                                THEN\n        IF (GH)                                                     THEN\n          IF (IG .EQ. 3)                                            THEN\n            DO 100 I = IL1, IL2\n              DTO3     =  DT(I) + 23.13\n              TAU      =  1.02 * ((CS1O3GH(1,IG) + DTO3 *\n     1                   (CS1O3GH(2,IG) + DTO3 * CS1O3GH(3,IG))) *\n     2                    O3(I) +  CS1O2GH3 * RMO2) * DP(I)\n              ATTEN(I) =  EXP( - TAU / RMU(I))\n  100       CONTINUE\n          ELSE\n            DO 110 I = IL1, IL2\n              DTO3     =  DT(I) + 23.13\n              TAU      =  1.02 * (CS1O3GH(1,IG) + DTO3 *\n     1                   (CS1O3GH(2,IG) + DTO3 * CS1O3GH(3,IG))) *\n     2                    O3(I) * DP(I)\n              ATTEN(I) =  EXP( - TAU / RMU(I))\n  110       CONTINUE\n          ENDIF\n        ELSE\nC\n          IF (IG .EQ. 1)                                            THEN\n            DO 120 I = IL1, IL2\n              DTO3     =  DT(I) + 23.13\n              TAU      =  1.02 * ((CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                    DTO3 * CS1O3(3,IG))) * O3(I) +\n     2                    CS1O21 * RMO2) * DP(I)\n              ATTEN(I) =  EXP( - TAU / RMU(I))\n  120       CONTINUE\n          ELSE\n            DO 130 I = IL1, IL2\n              DTO3     =  DT(I) + 23.13\n              TAU      =  1.02 * (CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                    DTO3 * CS1O3(3,IG))) * O3(I) * DP(I)\n              ATTEN(I) =  EXP( - TAU / RMU(I))\n  130       CONTINUE\n          ENDIF\n        ENDIF\nC\n      ELSE IF (IB .EQ. 2)                                           THEN\n        IF (IG .EQ. 1)                                              THEN\n          DO 200 I = IL1, IL2\n            ATTEN(I)   =  1.0\n  200     CONTINUE\n        ELSE\n          NG = 6\n          IM = IG - 1\n          ISL = 1\n          CALL ATTENUE (ATTEN, CS2O2GH(1,1,IM), O3, Q, DP, DIP, DT,\n     1                   DT0, RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\n        ENDIF\nC\n      ELSE IF (IB .EQ. 3)                                           THEN\n        NG = 3\n        ISL = 1\n        CALL ATTENUE (ATTEN, CS3CO2GH(1,1,IG), O3, Q, DP, DIP, DT, DT0, \n     1                 RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\nC\n      ELSE IF (IB .EQ. 4)                                           THEN\n        NG = 3\n        IF (IG .NE. 4 .AND. IG .NE. 6 .AND. IG .NE. 8)              THEN\n          IF (IG .LE. 3)  IM =  IG \n          IF (IG .EQ. 5)  IM =  IG - 1\n          IF (IG .EQ. 7)  IM =  IG - 2\n          IF (IG .EQ. 9)  IM =  IG - 3\n          ISL = 1\n          CALL ATTENUE (ATTEN, CS4CO2GH(1,1,IM), O3, Q, DP, DIP, DT, \n     1                  DT0, RMU, INPT, NTL, NG, ISL, IL1, IL2, ILG)\n        ELSE IF (IG .EQ. 4)                                         THEN\n          NG = 4\n          CALL ATTENUE (ATTEN, CS4CH4GH, O3, Q, DP, DIP, DT, DT0, RMU,\n     1                  INPT, NTL, NG, 1, IL1, IL2, ILG)\n        ELSE\n          DO 400 I = IL1, IL2\n            ATTEN(I)   =  1.0\n  400     CONTINUE\n        ENDIF\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE STRANDNGH (TRAN, GWGH, ATTEN, TAUA, TAUOMA, TAUCS, \n     1                      TAUOMC, CLD, RMU, DP, O3, Q, IB, IG, INPT,\n     2                      DIP, DT, LEV1, GH, CUT, \n     3                      IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE DOWNWARD SOLAR FLUX UNDER THE CONDITION THAT  C\nC     THE EXTINCTION COEFFICIENT OF GAS IS VERY LARGE, THE SCATTERING  C\nC     EFFECTS CAN BE NEGLECTED. THE CLOUD OPTICAL DEPTH IS MUCH SMALLERC\nC     THAN THE GASEOUS OPTICAL DEPTH, THE CLOUD EFFECT IS VERY SMALL   C\nC     AND BE TREATED SIMPLY                                            C\nC                                                                      C\nC     HRS:   SOLAR HEATING RATE (K / SEC)                              C\nC     TRAN:  DOWNWARD FLUX                                             C\nC     ATTEN: ATTENUATION FACTOR FOR DOWNWARD FLUX FROM TOA TO THE      C\nC            MODEL TOP LEVEL                                           C\nC     TAUCS: CLOUD OPTICAL DEPTH                                       C\nC     CLD:   CLOUD FRACTION                                            C\nC     RMU:   COS OF SOLAR ZENITH ANGLE                                 C\nC     DP:    AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).    C\nC     O3:    O3 MASS MIXING RATIO                                      C\nC     Q:     WATER VAPOR MASS MIXING RATIO                             C\nC     INPT:  NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TRAN(ILG,2,LEV), ATTEN(ILG), TAUA(ILG,LAY), TAUOMA(ILG,LAY),\n     1     TAUCS(ILG,LAY), TAUOMC(ILG,LAY), CLD(ILG,LAY),RMU(ILG), \n     2     DP(ILG,LAY), O3(ILG,LAY), Q(ILG,LAY), DIP(ILG,LAY), \n     3     DT(ILG,LAY), TAUG(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /BANDS1GH/ GWS1GH(3), CS1O3GH(3,3),     CS1O2GH3\n      COMMON /BANDS2GH/ GWS2GH(4), CS2H2OGH(5,28),   CS2O2GH(5,28,3)\n      COMMON /BANDS3GH/ GWS3GH(4), CS3H2OGH(5,28,2), CS3CO2GH(5,28,4)\n      COMMON /BANDS4GH/ GWS4GH(9), CS4H2OGH(5,28,6), CS4CO2GH(5,28,6),\n     1                             CS4CH4GH(5,28)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC\nC     * NUMBER OF VERTICAL LEVELS IN ABSORBER PRESSURE-BASED COEFFICIENT\nC     * ARRAY.\nC\n      DATA NTL /28/\nC=======================================================================\n      DO 10 I = IL1, IL2\n        TRAN(I,1,1)           =  ATTEN(I)\n        TRAN(I,2,1)           =  ATTEN(I)\n   10 CONTINUE\nC\n      IF (IB .EQ. 1)                                                THEN\nC\nC----------------------------------------------------------------------C\nC     BAND1 FOR UVC (35700 - 50000 CM^-1), NONGRAY GASEOUS ABSORPTION  C\nC     OF O2  AND O3. SOLAR ENERGY  7.5917 W M^-2                       C\nC----------------------------------------------------------------------C\nC\n        IF (IG .EQ. 3)                                              THEN\n          DO 105 K = 1, LAY\n            KP1 = K + 1\n            DO 100 I = IL1, IL2\n              DTO3            =  DT(I,K) + 23.13\n              TAU             = ((CS1O3GH(1,IG) +\n     1                           DTO3 * (CS1O3GH(2,IG) +\n     2                           DTO3 * CS1O3GH(3,IG))) * O3(I,K) +\n     3                           CS1O2GH3 * RMO2) * DP(I,K) + TAUA(I,K)\n              DTR1            =  EXP( - (TAU - TAUOMA(I,K)) / RMU(I))\n              TRAN(I,1,KP1)   =  TRAN(I,1,K) * DTR1\nC\n              IF (CLD(I,K) .LT. CUT)                                THEN\n                TRAN(I,2,KP1) =  TRAN(I,2,K) * DTR1\n              ELSE\n                ABSC          = (1.0 - CLD(I,K)) * DTR1 + CLD(I,K) *\n     1                           EXP( - (TAU + TAUCS(I,K) - TAUOMC(I,K))\n     2                           / RMU(I))\n                TRAN(I,2,KP1) =  TRAN(I,2,K) * ABSC\n              ENDIF\n  100       CONTINUE\n  105     CONTINUE\n        ELSE\n          DO 115 K = 1, LAY\n            KP1 = K + 1\n            DO 110 I = IL1, IL2\n              DTO3            =  DT(I,K) + 23.13\n              TAU             = (CS1O3GH(1,IG) + DTO3 * (CS1O3GH(2,IG) +\n     1                           DTO3 * CS1O3GH(3,IG))) * O3(I,K) *\n     2                           DP(I,K) + TAUA(I,K)\n              DTR1            =  EXP( - (TAU - TAUOMA(I,K)) / RMU(I))\n              TRAN(I,1,KP1)   =  TRAN(I,1,K) * DTR1\nC\n              IF (CLD(I,K) .LT. CUT)                                THEN\n                TRAN(I,2,KP1) =  TRAN(I,2,K) * DTR1\n              ELSE\n                ABSC          = (1.0 - CLD(I,K)) * DTR1 + CLD(I,K) *\n     1                           EXP( - (TAU + TAUCS(I,K) - TAUOMC(I,K))\n     2                           / RMU(I))\n                TRAN(I,2,KP1) =  TRAN(I,2,K) * ABSC\n              ENDIF\n  110       CONTINUE\n  115     CONTINUE\n        ENDIF\n      GWGH =  GWS1GH(IG)\nC\n      ELSE IF (IB .EQ. 2)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (8400 - 14500 CM^-1), NONGRAY GASEOUS ABSORPTION OF O2      C\nC     AND O3. SOLAR ENERGY  8.9036 W M^-2                              C\nC----------------------------------------------------------------------C\nC\n        IF (IG .EQ. 1)                                              THEN\n          NG =  1\n          INIT = 2\n          CALL TLINE1 (TAUG, CS2H2OGH(1,1), Q, NG, DP, DIP, DT, INPT,\n     1                 LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\n        ELSE\n          IM =  IG - 1\n          NG =  6\n          INIT = 2\n          CALL TLINE1 (TAUG, CS2O2GH(1,1,IM), Q, NG, DP, DIP, DT, INPT,\n     1                 LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\n        ENDIF\nC\n        DO 205 K = 1, LAY\n          KP1 = K + 1\n          DO 200 I = IL1, IL2\n            TAU               =  TAUG(I,K) + TAUA(I,K)\n            DTR1              =  EXP( - (TAU - TAUOMA(I,K)) / RMU(I))\n            TRAN(I,1,KP1)     =  TRAN(I,1,K) * DTR1\nC\n            IF (CLD(I,K) .LT. CUT)                                  THEN\n              TRAN(I,2,KP1)   =  TRAN(I,2,K) * DTR1\n            ELSE\n              ABSC            = (1.0 - CLD(I,K)) * DTR1 + CLD(I,K) *\n     1                           EXP( - (TAU + TAUCS(I,K) - TAUOMC(I,K))\n     2                           / RMU(I))\n              TRAN(I,2,KP1)   =  TRAN(I,2,K) * ABSC\n            ENDIF\n  200     CONTINUE\n  205   CONTINUE\nC\n        GWGH =  GWS2GH(IG)\nC\n      ELSE IF (IB .EQ. 3)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (4200 - 8400 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O AND  C\nC     CO2. SOLAR ENERGY 7.4453 W M^-2                                  C\nC----------------------------------------------------------------------C\nC\n        IF (IG .LE. 2)                                              THEN\n          NG2 =  3\n          CALL TLINE2 (TAUG, CS3H2OGH(1,1,IG), CS3CO2GH(1,1,IG), Q, O3,\n     1                 NG2, DP, DIP, DT, INPT, LEV1, GH, NTL, \n     2                 IL1, IL2, ILG, LAY)\n\n        ELSE\n          NG =  3\n          INIT = 2\n          CALL TLINE1 (TAUG, CS3CO2GH(1,1,IG), Q, NG, DP, DIP, DT, \n     1                 INPT, LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\n        ENDIF\nC\n        DO 305 K = 1, LAY\n          KP1 = K + 1\n          DO 300 I = IL1, IL2\n            TAU               =  TAUG(I,K) + TAUA(I,K)\n            DTR1              =  EXP( - (TAU - TAUOMA(I,K)) / RMU(I))\n            TRAN(I,1,KP1)     =  TRAN(I,1,K) * DTR1\nC\n            IF (CLD(I,K) .LT. CUT)                                  THEN\n              TRAN(I,2,KP1)   =  TRAN(I,2,K) * DTR1\n            ELSE\n              ABSC            = (1.0 - CLD(I,K)) * DTR1 + CLD(I,K) *\n     1                           EXP( - (TAU + TAUCS(I,K) - TAUOMC(I,K))\n     2                           / RMU(I))\n              TRAN(I,2,KP1)   =  TRAN(I,2,K) * ABSC\n            ENDIF\n  300     CONTINUE\n  305   CONTINUE\nC\n        GWGH =  GWS3GH(IG)\nC\n      ELSE IF (IB .EQ. 4)                                           THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (2500 - 4200 CM^-1), NONGRAY GASEOUS ABSORPTION OF H2O      C\nC     AND CO2. SOLAR ENERGY 7.0384 W M^-2                              C\nC----------------------------------------------------------------------C\nC\n        IF (IG .LE. 3)                                              THEN\n          NG2 =  3\n          CALL TLINE2 (TAUG, CS4H2OGH(1,1,IG), CS4CO2GH(1,1,IG), Q, O3,\n     1                 NG2, DP, DIP, DT, INPT, LEV1, GH, NTL,\n     2                 IL1, IL2, ILG, LAY)\n        ELSE IF (IG .EQ. 6 .OR. IG .EQ. 8)                          THEN\n          NG =  1\n          IF (IG .EQ. 6)  IM = 5\n          IF (IG .EQ. 8)  IM = 6\n          INIT = 2\n          CALL TLINE1 (TAUG, CS4H2OGH(1,1,IM), Q, NG, DP, DIP, DT, \n     1                 INPT, LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\n        ELSE IF (IG .EQ. 5 .OR. IG .EQ. 7 .OR. IG .EQ. 9)           THEN\n          NG =  3\n          IF (IG .EQ. 5)  IM = 4\n          IF (IG .EQ. 7)  IM = 5\n          IF (IG .EQ. 9)  IM = 6\n          INIT = 2\n          CALL TLINE1 (TAUG, CS4CO2GH(1,1,IM), Q, NG, DP, DIP, DT, \n     1                 INPT, LEV1, GH, NTL, INIT, IL1, IL2, ILG, LAY)\n        ELSE\n          NG2 =  4\n          IM = 4\n          CALL TLINE2 (TAUG, CS4H2OGH(1,1,IM), CS4CH4GH, Q, O3,\n     1                 NG2, DP, DIP, DT, INPT, LEV1, GH, NTL,\n     2                 IL1, IL2, ILG, LAY)\n        ENDIF\nC\n        DO 405 K = 1, LAY\n          KP1 = K + 1\n          DO 400 I = IL1, IL2\n            TAU               =  TAUG(I,K) + TAUA(I,K)\n            DTR1              =  EXP( - (TAU - TAUOMA(I,K)) / RMU(I))\n            TRAN(I,1,KP1)     =  TRAN(I,1,K) * DTR1\nC\n            IF (CLD(I,K) .LT. CUT)                                  THEN\n              TRAN(I,2,KP1)   =  TRAN(I,2,K) * DTR1\n            ELSE\n              ABSC            = (1.0 - CLD(I,K)) * DTR1 + CLD(I,K) *\n     1                           EXP( - (TAU + TAUCS(I,K) - TAUOMC(I,K))\n     2                           / RMU(I))\n              TRAN(I,2,KP1)   =  TRAN(I,2,K) * ABSC\n            ENDIF\n  400     CONTINUE\n  405   CONTINUE\nC\n        GWGH =  GWS4GH(IG)\nC\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE STRANDN (TRAN, ATTN, ATTNTOP, RMU, DP, DT, O3, RMU3,\n     1                    IB, IG, LEV1, IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE DOWNWARD FLUX FROM TOP LEVEL TO 1 MB, NO      C\nC     SCATTERING EFFECT IS CONSIDERED                                  C\nC                                                                      C\nC     TRAN:    TRANSMISIVITY                                           C\nC     ATTN:    ATTENUATION FACTOR FOR REDUCING SOLAR FLUX FROM MODEL   C\nC              TOP LEVEL TO 1 MB                                       C\nC     ATTNTOP: ATTENUATION FACTOR FOR REDUCING SOLAR FLUX FROM TOA TO  C\nC              MODEL TOP LEVEL                                         C\nC     RMU:     COSINE OF SOLAR ZENITH ANGLE                            C\nC     DP:      AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).  C\nC     O3:      O3 MASS MIXING RATIO                                    C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TRAN(ILG,2,LEV), ATTN(ILG), ATTNTOP(ILG), RMU(ILG), \n     1     DP(ILG,LAY), DT(ILG,LAY), O3(ILG,LAY), RMU3(ILG)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\n      COMMON /BANDS1/ GW1(6), CS1O3(3,6), CS1O21\nC=======================================================================\n      LEV1M1 =  LEV1 - 1\nC\n      IF (IB .EQ. 1)                                                THEN\nC\nC----------------------------------------------------------------------C\nC     BAND (14500 - 50000 CM^-1), NONGRAY GASEOUS ABSORPTION OF O3     C\nC     ANS O2.                                                          C\nC----------------------------------------------------------------------C\nC\n        DO 10 I = IL1, IL2\n          TRAN(I,1,1)       =  ATTNTOP(I)\n          TRAN(I,2,1)       =  ATTNTOP(I)\n   10   CONTINUE\nC\n        IF (IG .EQ. 1)                                              THEN\n          DO 150 K = 1, LEV1M1\n            KP1 = K + 1\n            DO 100 I = IL1, IL2\n              DTO3          =  DT(I,K) + 23.13\n              X             = (CS1O21 - 0.881E-05 * RMU3(I)) * RMO2\n              TAU           = ((CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                         DTO3 * CS1O3(3,IG))) * O3(I,K) + X) *\n     2                         DP(I,K)\n              TRAN(I,1,KP1) =  TRAN(I,1,K) * EXP( - TAU / RMU(I))\n              TRAN(I,2,KP1) =  TRAN(I,1,KP1)\n  100       CONTINUE\n  150     CONTINUE\nC\n        ELSE \n          DO 250 K = 1, LEV1M1\n            KP1 = K + 1\n            DO 200 I = IL1, IL2\n              DTO3          =  DT(I,K) + 23.13\n              TAU           = (CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                         DTO3 * CS1O3(3,IG))) * O3(I,K) * DP(I,K)\n              TRAN(I,1,KP1) =  TRAN(I,1,K) * EXP( - TAU / RMU(I))\n              TRAN(I,2,KP1) =  TRAN(I,1,KP1)\n  200       CONTINUE\n  250     CONTINUE\n        ENDIF\nC\nC----------------------------------------------------------------------C\nC     FLUX ADJUSTMENT FOR REGION BELOW 1 MB                            C\nC----------------------------------------------------------------------C\nC\n        DO 400 I = IL1, IL2\n          ATTN(I)           =  TRAN(I,1,LEV1)\n  400   CONTINUE\nC\n      ELSE\nC\n        DO 500 K = 1, LEV1\n        DO 500 I = IL1, IL2\n          TRAN(I,1,K)       =  1.0\n          TRAN(I,2,K)       =  1.0\n  500   CONTINUE\nC\n        DO 600 I = IL1, IL2\n          ATTN(I)           =  1.0\n  600   CONTINUE\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE STRANUP (REFL, DP, DT, O3, IB, IG, LEV1, \n     1                    IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF THE UPWARD SOLAR FLUX ABOVE 1 MB, NO SCATTERING   C\nC     EFFECT IS CONSIDERED                                             C\nC                                                                      C\nC     REFL:  REFLECTIVITY                                              C\nC     TAU:   OPTICAL DEPTH                                             C\nC     DTR:   DIRECT TRANSMISSION FUNCTION                              C\nC     1.6487213 DIFFUSIVITY FACTOR (LI, 2000 JAS P753)                 C\nC----------------------------------------------------------------------C\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL REFL(ILG,2,LEV), DP(ILG,LAY), DT(ILG,LAY), O3(ILG,LAY)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\n      COMMON /BANDS1/ GWS1(6), CS1O3(3,6), CS1O21\nC=======================================================================\nC\n      LEV1M1 =  LEV1 - 1\nC\n      IF (IB .EQ. 1)                                                THEN\nC\n        IF (IG .EQ. 1)                                              THEN\n          DO 105 K = LEV1M1, 1, - 1\n            KP1 = K + 1\n            DO 100 I = IL1, IL2\n              DTO3        =  DT(I,K) + 23.13\n              TAU         = ((CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                       DTO3 * CS1O3(3,IG))) * O3(I,K) + \n     2                       CS1O21 * RMO2) * DP(I,K)\n              DTR         =  EXP( - 1.6487213 * TAU)\n              REFL(I,1,K) =  REFL(I,1,KP1) * DTR\n              REFL(I,2,K) =  REFL(I,2,KP1) * DTR\n  100       CONTINUE\n  105     CONTINUE\nC\n        ELSE\n          DO 115 K = LEV1M1, 1, - 1\n            KP1 = K + 1\n            DO 110 I = IL1, IL2\n              DTO3        =  DT(I,K) + 23.13\n              TAU         = (CS1O3(1,IG) + DTO3 * (CS1O3(2,IG) +\n     1                       DTO3 * CS1O3(3,IG))) * O3(I,K) * DP(I,K)\n              DTR         =  EXP( - 1.6487213 * TAU)\n              REFL(I,1,K) =  REFL(I,1,KP1) * DTR\n              REFL(I,2,K) =  REFL(I,2,KP1) * DTR\n  110       CONTINUE\n  115     CONTINUE\nC\n        ENDIF\nC\n      ELSE\nC\n        DO 250 K = LEV1M1, 1, - 1\n          KP1 = K + 1\n          DO 200 I = IL1, IL2\n            REFL(I,1,K)   =  REFL(I,1,KP1)\n            REFL(I,2,K)   =  REFL(I,2,KP1)\n  200     CONTINUE\n  250   CONTINUE\nC\n      ENDIF\nC\n      RETURN\n      END\n\n      SUBROUTINE SWTRAN (REFL, TRAN, CUMDTR, TRAN0, TAUA, TAUR, TAUG,\n     1                   TAUOMA, TAUOMGA, F1, F2, TAUCS, TAUOMC, \n     2                   TAUOMGC, CLD, CLDM, A1, RMU, C1, C2, ALBSUR,\n     3                   CSALB, NBLK, NCT,II,JJ,IAER, \n     4                   CUT, LEV1, IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     DELTA-EDDINGTON APPROXIMATION AND ADDING PROCESS FOR CLEAR AND   C\nC     ALL SKY, THE ADDING METHOD BY COAKLEY ET AL (1983). THIS CODE    C\nC     CAN DEAL WITH SOLAR RADIATIVE TRANSFER THROUGH ATMOSPHERE WITH   C\nC     PROPER TREATMENT OF CLOUD OVERLAP (RANDOM + MAXIMUM OR RANDOM +  C\nC     SLANTWISE) AND CLOUD SUB-GRID VARIABILITY. THE THEORY FOR ADDING,C\nC     CLOUD OVERLAP LI AND DOBBIE (2003). CLOUD SUB-GRID VARIABILITY   C\nC     SIMILAR TO WITH ADJUSTMENT OF CLOUD OPTICAL DEPTH                C\nC                                                                      C\nC     REFL:    REFLECTIVITY (1) CLEAR SKY; (2) ALL SKY                 C\nC     TRAN:    TRANSMITIVITY                                           C\nC     CUMDTR:  DIRECT TRANSMISSION FOR MULT-LAYERS                     C\nC     TAUA:    AEROSOL OPTICAL DEPTH                                   C\nC     TAUR:    RAYLEIGH OPTICAL DEPTH                                  C\nC     TAUG:    GASEOUS OPTICAL DEPTH                                   C\nC     TAUOMA:  AEROSOL OPTICAL DEPTH TIMES AEROSOL SINGLE SCATTERING   C\nC              ALBEDO                                                  C\nC     TAUOMGA: TAUOMA TIMES AEROSOL ASYMMETRY FACTOR                   C\nC     F1:      SQUARE OF AEROSOL ASYMMETRY FACTOR                      C\nC     F2:      SQUARE OF CLOUD ASYMMETRY FACTOR                        C\nC     TAUCS:   CLOUD OPTICAL DEPTH                                     C\nC     TAUOMC:  CLOUD OPTICAL DEPTH TIMES CLOUD SINGLE SCATTERING ALBEDOC\nC     TAUOMGC: TAUOMC TIMES CLOUD ASYMMETRY FACTOR                     C\nC     CLD:     CLOUD FRACTION                                          C\nC     CLDM:    MAXIMUM PORTION IN EACH CLOUD BLOCK, IN WHICH THE EXACT C\nC              SOLUTION FOR SUBGRID VARIABILITY IS APPLIED             C\nC     A1:      VARIOUS RELATION FOR CLOUD OVERLAP                      C\nC     RMU:     COS OF SOLAR ZENITH ANGLE                               C\nC     C1 @ C2: TWO FACTORS NOT DEPENDENT ON IB AND IG CALCULATED       C\nC              OUTSIDE FOR EFFICIENCY                                  C\nC     ALBSUR:  SURFACE ALBEDO                                          C\nC     CSALB:   CLEAR-SKY SURFACE ALBEDO                                C\nC     NBLK:    NUMBER OF CLOUD BLOCKS ACCOUNTED FROM SURFACE           C\nC     NCT:     THE HIGHEST CLOUD TOP LEVEL FOR THE LONGITUDE AND       C\nC              LATITUDE LOOP (ILG)                                     C\nC     RDF:     LAYER DIFFUSE REFLECTION                                C\nC     TDF:     LAYER DIFFUSE TRANSMISSION                              C\nC     RDR:     LAYER DIRECT REFLECTION                                 C\nC     TDR:     LAYER DIRECT TRANSMISSION                               C\nC     DTR:     DIRECT TRANSMISSION                                     C\nC     RMDF:    BLOCK DIFFUSE REFLECTION FROM MODEL TOP LEVEL           C\nC     TMDR:    BLOCK DIRECT TRANSMISSION FROM MODEL TOP LEVEL          C\nC     RMUR:    BLOCK DIRECT REFLECTION FROM MODEL BOTTOM LEVEL         C\nC     RMUF:    BLOCK DIFFUSE REFLECTION FROM MODEL BOTTOM LEVEL        C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL REFL(ILG,2,LEV), TRAN(ILG,2,LEV), CUMDTR(ILG,4,LEV), \n     1     TRAN0(ILG)\n      REAL TAUA(ILG,LAY), TAUR(ILG,LAY), TAUG(ILG,LAY), TAUOMA(ILG,LAY),\n     1     TAUOMGA(ILG,LAY), F1(ILG,LAY), F2(ILG,LAY), TAUCS(ILG,LAY),\n     2     TAUOMC(ILG,LAY), TAUOMGC(ILG,LAY), CLD(ILG,LAY), \n     3     CLDM(ILG,LAY), A1(ILG,11), RMU(ILG), C1(ILG), C2(ILG),\n     4     ALBSUR(ILG), CSALB(ILG)\nC\nC mxy+\nC CHANGE ARRAYS TO REAL *8 \nC\n      REAL*8 RDF (ILG,4,LAY), TDF (ILG,4,LAY), RDR (ILG,4,LAY),\n     1     TDR (ILG,4,LAY), DTR (ILG,4,LAY), RMDF(ILG,4,LEV),\n     2     TMDR(ILG,4,LEV), RMUR(ILG,4,LEV), RMUF(ILG,4,LEV)\nC mxy+\n      INTEGER NBLK(ILG, LAY), NCT(ILG)\nC mxy+\nc\nc     * scalars promoted to 64-bit in loop 200 to avoid pole singularity\nc     * from two-stream calculation in clear-sky.\nc\n      real*8 extopt,omars,ssalb,sf1,sf,tau1,om1,cow\n      real*8 ssgas1,cowg,alamd,u,u2,uu,efun,efun2,x1,rn,x2\n      real*8 y,yx,dm,gscw,appgm,apmgm,omarcs,sf2\n      real*8 tau2,om2,ssgas2,sdtr,x3,x4,srdf,stdf,srdr,stdr\n      real*8 x5,x6,x7,x,lowbnd\nc\n      data lowbnd /1.e-15/\nC mxy+\nC\nC----------------------------------------------------------------------C\nC     COMBINE THE OPTICAL PROPERTIES FOR SOLAR,                        C\nC     1, AEROSOL + RAYLEIGH + GAS; 2, CLOUD + AEROSOL + RAYLEIGH + GAS C\nC     CALCULATE THE DIRECT AND DIFFUSE REFLECTION AND TRANSMISSION IN  C\nC     THE SCATTERING LAYERS USING THE DELTA-EDDINGTON METHOD.          C\nC----------------------------------------------------------------------C\nC\n      DO 200 K = LEV1, LAY\n      DO 200 I = IL1, IL2\nC mxy!!\n        if(TAUA(I,K).lt.0. .or. \n     &     TAUR(I,K).lt.0. .or.\n     &     TAUG(I,K).lt.0) then\nc         print*,'negative optical depth',II,JJ,K,\nc     &    TAUA(I,K),TAUR(I,K),TAUG(I,K)\n        endif\n        TAUA(I,K) = MAX(TAUA(I,K),1.e-20)\n        TAUR(I,K) = MAX(TAUR(I,K),1.e-20)\n        TAUG(I,K) = MAX(TAUG(I,K),1.e-20)\nC mxy!!\n        EXTOPT                    =  TAUA(I,K) + TAUR(I,K) + TAUG(I,K)\n        OMARS                     =  TAUOMA(I,K) + TAUR(I,K)\n        SSALB                     =  OMARS / (EXTOPT + 1.E-20)\n        SF1                       =  F1(I,K) / OMARS\n        SF                        =  SSALB * SF1\n        TAU1                      =  EXTOPT * (1.0 - SF)\n        OM1                       = (SSALB - SF) / (1.0 - SF)\n        COW                       =  1.0 - OM1 + 1.E-10\n        SSGAS1                    = (TAUOMGA(I,K) / OMARS - SF1) / \n     1                              (1.0 - SF1)\n        COWG                      =  1.0 - OM1 * SSGAS1\nC\n        DTR(I,1,K)                =  EXP( - TAU1 / RMU(I))\n        ALAMD                     =  SQRT(3.0 * COW * COWG)\n        U                         =  1.50 * COWG / ALAMD\n        U2                        =  U + U\n        UU                        =  U * U\n        EFUN                      =  EXP(- ALAMD * TAU1)\n        EFUN2                     =  EFUN * EFUN\n        X1                        = (UU - U2 + 1.0) * EFUN2\n        RN                        =  1.0 / (UU + U2 + 1.0 - X1)\n        X2                        =  ALAMD * RMU(I) \n        Y                         =  1.0 - X2 * X2\n        YX                        =  SIGN( MAX( ABS(Y), LOWBND), Y )\n        DM                        =  OM1 / YX\n        GSCW                      =  SSGAS1 * COW\n        APPGM                     = (C1(I) + 0.50 + \n     1                               GSCW * (C1(I) + C2(I))) * DM\n        APMGM                     = (C1(I) - 0.50 + \n     1                               GSCW * (C1(I) - C2(I))) * DM\n        RDF(I,1,K)                = (UU - 1.0) * (1.0  - EFUN2) * RN \n        TDF(I,1,K)                = (U2 + U2) * EFUN * RN\n        RDR(I,1,K)                =  APPGM * RDF(I,1,K) + APMGM *\n     1                              (TDF(I,1,K) * DTR(I,1,K) - 1.0)\n        TDR(I,1,K)                =  APPGM * TDF(I,1,K) +\n     1                              (APMGM * RDF(I,1,K) - APPGM + 1.0) *\n     2                               DTR(I,1,K)\nC\n        IF (CLD(I,K) .LT. CUT)                                      THEN\n          RDF(I,2,K)              =  RDF(I,1,K)\n          TDF(I,2,K)              =  TDF(I,1,K)\n          RDR(I,2,K)              =  RDR(I,1,K)\n          TDR(I,2,K)              =  TDR(I,1,K)\n          DTR(I,2,K)              =  DTR(I,1,K)\n          RDF(I,3,K)              =  RDF(I,1,K)\n          TDF(I,3,K)              =  TDF(I,1,K)\n          RDR(I,3,K)              =  RDR(I,1,K)\n          TDR(I,3,K)              =  TDR(I,1,K)\n          DTR(I,3,K)              =  DTR(I,1,K)\n          RDF(I,4,K)              =  RDF(I,1,K)\n          TDF(I,4,K)              =  TDF(I,1,K)\n          RDR(I,4,K)              =  RDR(I,1,K)\n          TDR(I,4,K)              =  TDR(I,1,K)\n          DTR(I,4,K)              =  DTR(I,1,K)\n        ELSE\n          EXTOPT                  =  TAUCS(I,K) + EXTOPT\n          OMARCS                  =  TAUOMC(I,K) + TAUR(I,K)\n          SSALB                   =  OMARCS / EXTOPT\n          SF2                     =  F2(I,K) / OMARCS\n          SF                      =  SSALB * SF2\n          TAU2                    =  EXTOPT * (1.0 - SF)  \n          OM2                     = (SSALB - SF) / (1.0 - SF)\n          COW                     =  1.0 - OM2\n          SSGAS2                  = (TAUOMGC(I,K) / OMARCS - SF2) / \n     1                              (1.0 - SF2)\n          COWG                    =  1.0 - OM2 * SSGAS2\n          ALAMD                   =  SQRT(3.0 * COW * COWG)\n          U                       =  1.50 * COWG / ALAMD\n          U2                      =  U + U\n          UU                      =  U * U\n          SDTR                    =  EXP(- TAU2 / RMU(I))\n          EFUN                    =  EXP(- ALAMD * TAU2)\n          EFUN2                   =  EFUN * EFUN\n          X3                      = (UU - U2 + 1.0) * EFUN2\n          RN                      =  1.0 / (UU + U2 + 1.0 - X3)\n          X4                      =  ALAMD * RMU(I)\n          Y                       =  1.0 - X4 * X4\n          YX                      =  SIGN( MAX( ABS(Y), LOWBND), Y )\n          DM                      =  OM2 / (1.0 - X4 * X4)\n          GSCW                    =  SSGAS2 * COW\n          APPGM                   = (C1(I) + 0.50 +\n     1                               GSCW * (C1(I) + C2(I))) * DM\n          APMGM                   = (C1(I) - 0.50 +\n     1                               GSCW * (C1(I) - C2(I))) * DM\n          SRDF                    = (UU - 1.0) * (1.0 - EFUN2) * RN\n          STDF                    = (U2 + U2) * EFUN * RN \n          SRDR                    =  APPGM * SRDF + APMGM *\n     1                              (STDF * SDTR - 1.0) \n          STDR                    =  APPGM * STDF + (APMGM * SRDF - \n     1                               APPGM + 1.0) * SDTR\n          IF (NBLK(I,K) .EQ. 3)                                     THEN\n            X5                    =  A1(I,9) * CLD(I,K)\n            RDF(I,2,K)            =  RDF(I,1,K) + X5 * \n     1                              (SRDF - RDF(I,1,K))\n            TDF(I,2,K)            =  TDF(I,1,K) + X5 * \n     1                              (STDF - TDF(I,1,K))\n            RDR(I,2,K)            =  RDR(I,1,K) + X5 * \n     1                              (SRDR - RDR(I,1,K))\n            TDR(I,2,K)            =  TDR(I,1,K) + X5 * \n     1                              (STDR - TDR(I,1,K))\n            DTR(I,2,K)            =  DTR(I,1,K) + X5 * \n     1                              (SDTR - DTR(I,1,K))\n            X6                    =  A1(I,10) * CLD(I,K)\n            RDF(I,3,K)            =  RDF(I,1,K) + X6 *\n     1                              (SRDF - RDF(I,1,K))\n            TDF(I,3,K)            =  TDF(I,1,K) + X6 *\n     1                              (STDF - TDF(I,1,K))\n            RDR(I,3,K)            =  RDR(I,1,K) + X6 *\n     1                              (SRDR - RDR(I,1,K))\n            TDR(I,3,K)            =  TDR(I,1,K) + X6 *\n     1                              (STDR - TDR(I,1,K))\n            DTR(I,3,K)            =  DTR(I,1,K) + X6 *\n     1                              (SDTR - DTR(I,1,K))\n            X7                    =  A1(I,11) * CLD(I,K)\n            RDF(I,4,K)            =  RDF(I,1,K) + X7 *\n     1                              (SRDF - RDF(I,1,K))\n            TDF(I,4,K)            =  TDF(I,1,K) + X7 *\n     1                              (STDF - TDF(I,1,K))\n            RDR(I,4,K)            =  RDR(I,1,K) + X7 *\n     1                              (SRDR - RDR(I,1,K))\n            TDR(I,4,K)            =  TDR(I,1,K) + X7 *\n     1                              (STDR - TDR(I,1,K))\n            DTR(I,4,K)            =  SDTR\n          ELSE IF (NBLK(I,K) .EQ. 1)                                THEN\n            RDF(I,4,K)            =  RDF(I,1,K)\n            TDF(I,4,K)            =  TDF(I,1,K)\n            RDR(I,4,K)            =  RDR(I,1,K)\n            TDR(I,4,K)            =  TDR(I,1,K)\n            DTR(I,4,K)            =  DTR(I,1,K)\n            X                     =  CLD(I,K) / CLDM(I,K)\n            RDF(I,2,K)            =  RDF(I,1,K) + X * \n     1                              (SRDF - RDF(I,1,K))\n            TDF(I,2,K)            =  TDF(I,1,K) + X *\n     1                              (STDF - TDF(I,1,K))\n            RDR(I,2,K)            =  RDR(I,1,K) + X *\n     1                              (SRDR - RDR(I,1,K))\n            TDR(I,2,K)            =  TDR(I,1,K) + X *\n     1                              (STDR - TDR(I,1,K))\n            DTR(I,2,K)            =  SDTR \n            IF (A1(I,2) .GE. CUT)                                   THEN\n              Y                   =  X * A1(I,8)\n              RDF(I,3,K)          =  RDF(I,1,K) + Y *\n     1                              (SRDF - RDF(I,1,K))\n              TDF(I,3,K)          =  TDF(I,1,K) + Y *\n     1                              (STDF - TDF(I,1,K))\n              RDR(I,3,K)          =  RDR(I,1,K) + Y *\n     1                              (SRDR - RDR(I,1,K))\n              TDR(I,3,K)          =  TDR(I,1,K) + Y *\n     1                              (STDR - TDR(I,1,K))\n              DTR(I,3,K)          =  DTR(I,1,K) + Y *\n     1                              (SDTR - DTR(I,1,K))\n            ELSE\n              RDF(I,3,K)          =  RDF(I,1,K)\n              TDF(I,3,K)          =  TDF(I,1,K)\n              RDR(I,3,K)          =  RDR(I,1,K)\n              TDR(I,3,K)          =  TDR(I,1,K)\n              DTR(I,3,K)          =  DTR(I,1,K)\n            ENDIF\n          ELSE IF (NBLK(I,K) .EQ. 2)                                THEN\n            RDF(I,2,K)            =  RDF(I,1,K)\n            TDF(I,2,K)            =  TDF(I,1,K)\n            RDR(I,2,K)            =  RDR(I,1,K)\n            TDR(I,2,K)            =  TDR(I,1,K)\n            DTR(I,2,K)            =  DTR(I,1,K)\n            RDF(I,4,K)            =  RDF(I,1,K)\n            TDF(I,4,K)            =  TDF(I,1,K)\n            RDR(I,4,K)            =  RDR(I,1,K)\n            TDR(I,4,K)            =  TDR(I,1,K)\n            DTR(I,4,K)            =  DTR(I,1,K)\n            X8                    =  CLD(I,K) / CLDM(I,K)\n            RDF(I,3,K)            =  RDF(I,1,K) + X8 *\n     1                              (SRDF - RDF(I,1,K))\n            TDF(I,3,K)            =  TDF(I,1,K) + X8 *\n     1                              (STDF - TDF(I,1,K))\n            RDR(I,3,K)            =  RDR(I,1,K) + X8 *\n     1                              (SRDR - RDR(I,1,K))\n            TDR(I,3,K)            =  TDR(I,1,K) + X8 *\n     1                              (STDR - TDR(I,1,K))\n            DTR(I,3,K)            =  SDTR\n          ENDIF\n        ENDIF\n  200 CONTINUE\nC\n      DO 300 I = IL1, IL2\nC\nC----------------------------------------------------------------------C\nC     INITIALIZATION FOR THE FIRST LEVEL (LEV1).                       C\nC----------------------------------------------------------------------C\nC\n        ATRAN0                    =  1.0 - TRAN0(I)\n        TMDR(I,1,LEV1)            =  TRAN0(I)\n        RMDF(I,1,LEV1)            =  ATRAN0\n        CUMDTR(I,1,LEV1)          =  TRAN0(I)\n        TMDR(I,2,LEV1)            =  TRAN0(I)\n        RMDF(I,2,LEV1)            =  ATRAN0\n        CUMDTR(I,2,LEV1)          =  TRAN0(I)\n        TMDR(I,3,LEV1)            =  TRAN0(I)\n        RMDF(I,3,LEV1)            =  ATRAN0\n        CUMDTR(I,3,LEV1)          =  TRAN0(I)\n        TMDR(I,4,LEV1)            =  TRAN0(I)\n        RMDF(I,4,LEV1)            =  ATRAN0\n        CUMDTR(I,4,LEV1)          =  TRAN0(I)\nC\nC----------------------------------------------------------------------C\nC     INITIALIZATION FOR THE GROUND LAYER.                             C\nC----------------------------------------------------------------------C\nC\n        RMUR(I,1,LEV)             =  CSALB(I)\n        RMUF(I,1,LEV)             =  CSALB(I)\n        RMUR(I,2,LEV)             =  ALBSUR(I)\n        RMUF(I,2,LEV)             =  ALBSUR(I)\n        RMUR(I,3,LEV)             =  ALBSUR(I)\n        RMUF(I,3,LEV)             =  ALBSUR(I)\n        RMUR(I,4,LEV)             =  ALBSUR(I)\n        RMUF(I,4,LEV)             =  ALBSUR(I)\nC\n        CUMDTR(I,2,LEV)           =  0.0\n        CUMDTR(I,3,LEV)           =  0.0\n        CUMDTR(I,4,LEV)           =  0.0\n  300 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     ADD THE LAYERS DOWNWARD FROM THE SECOND LAYER TO THE SURFACE.    C\nC----------------------------------------------------------------------C\nC\n      DO 450 K = LEV1 + 1, LEV  \n        KM1 = K - 1\n        L = LEV - K + LEV1\n        LP1 = L + 1\n        DO 400 I = IL1, IL2\n          DMM                     =  TDF(I,1,KM1) / \n     1                              (1.0 - RDF(I,1,KM1) * RMDF(I,1,KM1))\n          FMM                     =  RMDF(I,1,KM1) * DMM\n          TMDR(I,1,K)             =  CUMDTR(I,1,KM1) * (TDR(I,1,KM1) +\n     1                               RDR(I,1,KM1) * FMM) + \n     2                              (TMDR(I,1,KM1) - CUMDTR(I,1,KM1)) * \n     3                               DMM\n          RMDF(I,1,K)             =  RDF(I,1,KM1) + TDF(I,1,KM1) * FMM\n          CUMDTR(I,1,K)           =  CUMDTR(I,1,KM1) * DTR(I,1,KM1)\nC\n          IF (A1(I,1) .GE. CUT)                                     THEN\n            IF (K .LE. NCT(I))                                      THEN\n              TMDR(I,2,K)         =  TMDR(I,1,K)\n              RMDF(I,2,K)         =  RMDF(I,1,K)\n              CUMDTR(I,2,K)       =  CUMDTR(I,1,K)\n            ELSE\n              DPP                 =  TDF(I,2,KM1) /\n     1                              (1.0 - RMDF(I,2,KM1) * RDF(I,2,KM1))\n              FPP                 =  RMDF(I,2,KM1) * DPP\n              TMDR(I,2,K)         =  CUMDTR(I,2,KM1) * (TDR(I,2,KM1) +\n     1                               RDR(I,2,KM1) * FPP) +\n     2                              (TMDR(I,2,KM1) - CUMDTR(I,2,KM1)) *\n     3                               DPP\n              RMDF(I,2,K)         =  RDF(I,2,KM1) + TDF(I,2,KM1) * FPP\n              CUMDTR(I,2,K)       =  CUMDTR(I,2,KM1) * DTR(I,2,KM1)\n            ENDIF\n          ELSE\n            TMDR(I,2,K)           =  1.0\n            RMDF(I,2,K)           =  0.0\n            CUMDTR(I,2,K)         =  0.0\n          ENDIF\nC\n          IF (A1(I,2) .GE. CUT)                                     THEN\n            IF (K .LE. NCT(I))                                      THEN\n              TMDR(I,3,K)         =  TMDR(I,1,K)\n              RMDF(I,3,K)         =  RMDF(I,1,K)\n              CUMDTR(I,3,K)       =  CUMDTR(I,1,K)\n            ELSE\n              DPP                 =  TDF(I,3,KM1) /\n     1                              (1.0 - RMDF(I,3,KM1) * RDF(I,3,KM1))\n              FPP                 =  RMDF(I,3,KM1) * DPP\n              TMDR(I,3,K)         =  CUMDTR(I,3,KM1) * (TDR(I,3,KM1) +\n     1                               RDR(I,3,KM1) * FPP) +\n     2                              (TMDR(I,3,KM1) - CUMDTR(I,3,KM1)) *\n     3                               DPP\n              RMDF(I,3,K)         =  RDF(I,3,KM1) + TDF(I,3,KM1) * FPP\n              CUMDTR(I,3,K)       =  CUMDTR(I,3,KM1) * DTR(I,3,KM1)\n            ENDIF\nC\n            IF (A1(I,3) .GE. CUT)                                   THEN\n              IF (K .LE. NCT(I))                                    THEN\n                TMDR(I,4,K)       =  TMDR(I,1,K)\n                RMDF(I,4,K)       =  RMDF(I,1,K)\n                CUMDTR(I,4,K)     =  CUMDTR(I,1,K)\n              ELSE\n                DPP               =  TDF(I,4,KM1) /\n     1                              (1.0 - RMDF(I,4,KM1) * RDF(I,4,KM1))\n                FPP               =  RMDF(I,4,KM1) * DPP\n                TMDR(I,4,K)       =  CUMDTR(I,4,KM1) * (TDR(I,4,KM1) +\n     1                               RDR(I,4,KM1) * FPP) +\n     2                              (TMDR(I,4,KM1) - CUMDTR(I,4,KM1)) *\n     3                               DPP\n                RMDF(I,4,K)       =  RDF(I,4,KM1) + TDF(I,4,KM1) * FPP\n                CUMDTR(I,4,K)     =  CUMDTR(I,4,KM1) * DTR(I,4,KM1)\n              ENDIF\n            ELSE\n              TMDR(I,4,K)         =  1.0\n              RMDF(I,4,K)         =  0.0\n              CUMDTR(I,4,K)       =  0.0\n            ENDIF\n          ELSE\n            TMDR(I,3,K)           =  1.0\n            RMDF(I,3,K)           =  0.0\n            CUMDTR(I,3,K)         =  0.0\n            TMDR(I,4,K)           =  1.0\n            RMDF(I,4,K)           =  0.0\n            CUMDTR(I,4,K)         =  0.0\n          ENDIF\nC\nC----------------------------------------------------------------------C\nC     ADD THE LAYERS UPWARD FROM ONE LAYER ABOVE SURFACE TO THE LEV1.  C\nC----------------------------------------------------------------------C\nC\n          UMM                     =  TDF(I,1,L) /\n     1                              (1.0 - RDF(I,1,L) * RMUF(I,1,LP1))\n          FMM                     =  RMUF(I,1,LP1) * UMM\n          RMUR(I,1,L)             =  RDR(I,1,L) + DTR(I,1,L) *\n     1                               RMUR(I,1,LP1) * UMM + (TDR(I,1,L) -\n     2                               DTR(I,1,L)) * FMM\n          RMUF(I,1,L)             =  RDF(I,1,L) + TDF(I,1,L) * FMM\nC\n          IF (A1(I,1) .GE. CUT)                                     THEN\n            UPP                   =  TDF(I,2,L) /\n     1                              (1.0 - RMUF(I,2,LP1) * RDF(I,2,L))\n            FPP                   =  RMUF(I,2,LP1) * UPP\n            RMUR(I,2,L)           =  RDR(I,2,L) + DTR(I,2,L) *\n     1                               RMUR(I,2,LP1) * UPP + (TDR(I,2,L) -\n     2                               DTR(I,2,L)) * FPP\n            RMUF(I,2,L)           =  RDF(I,2,L) + TDF(I,2,L) * FPP\n          ELSE\n            RMUR(I,2,L)           =  0.0\n            RMUF(I,2,L)           =  0.0\n          ENDIF\nC\n          IF (A1(I,2) .GE. CUT)                                     THEN\n            UPP                   =  TDF(I,3,L) /\n     1                              (1.0 - RMUF(I,3,LP1) * RDF(I,3,L))\n            FPP                   =  RMUF(I,3,LP1) * UPP\n            RMUR(I,3,L)           =  RDR(I,3,L) + DTR(I,3,L) *\n     1                               RMUR(I,3,LP1) * UPP + (TDR(I,3,L) -\n     2                               DTR(I,3,L)) * FPP\n            RMUF(I,3,L)           =  RDF(I,3,L) + TDF(I,3,L) * FPP\nC\n            IF (A1(I,3) .GE. CUT)                                   THEN\n              UPP                 =  TDF(I,4,L) /\n     1                              (1.0 - RMUF(I,4,LP1) * RDF(I,4,L))\n              FPP                 =  RMUF(I,4,LP1) * UPP\n              RMUR(I,4,L)         =  RDR(I,4,L) + DTR(I,4,L) *\n     1                               RMUR(I,4,LP1) * UPP + (TDR(I,4,L) -\n     2                               DTR(I,4,L)) * FPP\n              RMUF(I,4,L)         =  RDF(I,4,L) + TDF(I,4,L) * FPP\n            ELSE\n              RMUR(I,4,L)         =  0.0\n              RMUF(I,4,L)         =  0.0\n            ENDIF\n          ELSE\n            RMUR(I,3,L)           =  0.0\n            RMUF(I,3,L)           =  0.0\n            RMUR(I,4,L)           =  0.0\n            RMUF(I,4,L)           =  0.0\n          ENDIF\n  400   CONTINUE\n  450 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     ADD DOWNWARD TO CALCULATE THE RESULTANT REFLECTANCE AND          C\nC     TRANSMITTANCE AT FLUX LEVELS.                                    C\nC----------------------------------------------------------------------C\nC\n      DO 550 K = LEV1, LEV\n        KM1 = K - 1\n        DO 500 I = IL1, IL2\n          DMM                     =  1.0 /\n     1                              (1.0 - RMUF(I,1,K) * RMDF(I,1,K))\n          X                       =  CUMDTR(I,1,K) * RMUR(I,1,K)\n          Y                       =  TMDR(I,1,K) - CUMDTR(I,1,K)\n          TRAN(I,1,K)             =  CUMDTR(I,1,K) +\n     1                              (X * RMDF(I,1,K) + Y) * DMM\n          REFL(I,1,K)             = (X + Y * RMUF(I,1,K)) * DMM\nC\n          IF (A1(I,1) .GE. CUT)                                     THEN\n            DPP                   =  1.0 /\n     1                              (1.0 - RMUF(I,2,K) * RMDF(I,2,K))\n            X                     =  CUMDTR(I,2,K) * RMUR(I,2,K)\n            Y                     =  TMDR(I,2,K) - CUMDTR(I,2,K)\n            TRAN(I,2,K)           =  A1(I,1) * (CUMDTR(I,2,K) +\n     1                              (X * RMDF(I,2,K) + Y) * DPP) +\n     2                               A1(I,7) * TRAN(I,1,K)\n            REFL(I,2,K)           =  A1(I,1) * (X + Y * RMUF(I,2,K)) *\n     1                               DPP + A1(I,7) * REFL(I,1,K)\n          ELSE\n            TRAN(I,2,K)           =  A1(I,7) * TRAN(I,1,K)\n            REFL(I,2,K)           =  A1(I,7) * REFL(I,1,K)\n          ENDIF\nC\n          IF (A1(I,2) .GE. CUT)                                     THEN\n            DPP                   =  1.0 /\n     1                              (1.0 - RMUF(I,3,K) * RMDF(I,3,K))\n            X                     =  CUMDTR(I,3,K) * RMUR(I,3,K)\n            Y                     =  TMDR(I,3,K) - CUMDTR(I,3,K)\n            TRANPP                =  CUMDTR(I,3,K) +\n     1                              (X * RMDF(I,3,K) + Y) * DPP\n            REFLPP                = (X + Y * RMUF(I,3,K)) * DPP\n            TRAN(I,2,K)           =  A1(I,2) * TRANPP + TRAN(I,2,K)\n            REFL(I,2,K)           =  A1(I,2) * REFLPP + REFL(I,2,K)\nC\n            IF (A1(I,3) .GE. CUT)                                   THEN\n              DPP                 =  1.0 /\n     1                              (1.0 - RMUF(I,4,K) * RMDF(I,4,K))\n              X                   =  CUMDTR(I,4,K) * RMUR(I,4,K)\n              Y                   =  TMDR(I,4,K) - CUMDTR(I,4,K)\n              TRANPP              =  CUMDTR(I,4,K) +\n     1                              (X * RMDF(I,4,K) + Y) * DPP\n              REFLPP              = (X + Y * RMUF(I,4,K)) * DPP\n              TRAN(I,2,K)         =  A1(I,3) * TRANPP + TRAN(I,2,K)\n              REFL(I,2,K)         =  A1(I,3) * REFLPP + REFL(I,2,K)\n            ENDIF\n          ENDIF\nc          if(II.eq.16.and.JJ.eq.12) then\nc           print*,'SWTRAN',II,JJ,K,TRAN(I,2,K),REFL(I,2,K),A1(I,3)\nc          endif\n  500   CONTINUE\n  550 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE LWTRAN (FU, FD, SLWF, TAUCI, OMCI, GCI, FL, TAUAL,\n     1                   TAUG, BF, BS, URBF, DBF, EM0, CLD, CLDM, ANU,\n     2                   NCT, NCD, NCU, NCUM, NCDM, LEV1, MAXC,\n     3                   CUT, IL1, IL2, ILG, LAY, LEV,\n     +                   II,JJ)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF LONGWAVE RADIATIVE TRANSFER USING ABSORPTION      C\nC     APPROXIMATION. THE FINITE CLOUD EFFECT IS PROPERLY CONSIDERED    C\nC     WITH RANDOM AND FULL OVERLAP ASSUMPTION. CLOUD SUBGRID           C\nC     VARIABILITY IS INCLUDED (BASED ON LI, 2002 JAS P3302; LI AND     C\nC     BARKER JAS P3321).                                               C\nC                                                                      C\nC     FU:     UPWARD INFRARED FLUX                                     C\nC     FD:     DOWNWARD INFRARED FLUX                                   C\nC     SLWF:   INPUT SOLAR FLUX AT MODEL TOP LEVEL FOR EACH BAND        C\nC     TAUCI:  CLOUD OPTICAL DEPTH FOR THE INFRARED                     C\nC     OMCI:   CLOUD SINGLE SCATTERING ALBEDO TIMES OPTICAL DEPTH       C\nC     GCI:    CLOUD ASYMMETRY FACTOR TIMES OMCI                        C\nC     FL:     SQUARE OF CLOUD ASYMMETRY FACTOR                         C\nC     TAUAL:  AEROSOL OPTICAL DEPTH FOR THE INFRARED                   C\nC     TAUG:   GASEOUS OPTICAL DEPTH FOR THE INFRARED                   C\nC     BF:     BLACKBODY INTENSITY INTEGRATED OVER EACH BAND AT EACH    C\nC             LEVEL IN UNITS W / M^2 / SR. THEREFOR A PI FACTOR NEEDED C\nC             FOR FLUX                                                 C\nC     BS:     THE BLACKBODY INTENSITY AT THE SURFACE.                  C\nC     URBF:   U TIMES THE DIFFERENCE OF LOG(BF) FOR TWO NEIGHBOR       C\nC             LEVELS USED FOR EXPONENTIAL SOURCE FUNCTION              C\nC     DBF:    DIFFERENCE OF BF FOR TWO NEIGHBOR LEVELS USED FOR        C\nC             LINEAR SOURCE FUNCTION                                   C\nC     EM0:    SURFACE EMISSION                                         C\nC     CLD:    CLOUD FRACTION                                           C\nC     CLDM:   MAXIMUM PORTION IN EACH CLOUD BLOCK, IN WHICH THE EXACT  C\nC             SOLUTION FOR SUBGRID VARIABILITY IS APPLIED LI AND       C\nC             BARKER JAS P3321).                                       C\nC     ANU:    NU FACTOR FOR CLOUD SUBGRID VARIABILITY                  C\nC     S:      TOTAL SCATTERING                                         C\nC     SCATBK: BACKWARD SCATTERING                                      C\nC     SCATFW: FORWARD SCATTERING                                       C\nC     SCATSM: INTERNAL SCATTERING                                      C\nC     TAUM:   TAUM(1) A FACTOR RELATED TO TAU IN ZETA FACTOR FOR       C\nC             LINEAR SOURCE TERM; TAUM(2) THE CUMULATED TAUM(1) FOR    C\nC             SUBGRID VARIABILITY CALCULATION                          C\nC     XU:     THE EMISSION PART IN THE UPWARD FLUX TRANSMISSION        C\nC             (LI, 2002 JAS P3302)                                     C\nC     XD:     THE EMISSION PART IN THE DOWNWARD FLUX TRANSMISSION      C\nC     DTR:    DIRECT TRANSMISSION                                      C\nC     FY:     UPWARD FLUX FOR PURE CLEAR PORTION (1) AND PURE CLOUD    C\nC             PORTION (2)                                              C\nC     FX:     THE SAME AS FY BUT FOR THE DOWNWARD FLUX                 C\nC     FW:     A TERM FOR TRANSFER WITHIN CLDM                          C\nC     NCT:    THE HIGHEST CLOUD TOP LEVEL FOR THE LONGITUDE AND        C\nC             LATITUDE LOOP (ILG)                                      C\nC     NCD:    LAYER INSIDE A CLOUD BLOCK ACCOUNTED FROM CLOUD TOP      C\nC     NCU:    LAYER INSIDE A CLOUD BLOCK ACCOUNTED FROM CLOUD BOTTOM   C\nC     NCUM:   MAXIMUM LOOP NUMBER CLOUD VERTICAL CORRELATION ACCOUNTED C\nC             FROM LOWER LEVEL TO HIGHER LEVEL                         C\nC     NCDM:   MAXIMUM LOOP NUMBER CLOUD VERTICAL CORRELATION ACCOUNTED C\nC             FROM HIGHER LEVEL TO LOWER LEVEL                         C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL FU(ILG,2,LEV), FD(ILG,2,LEV)\n      REAL SLWF(ILG), TAUCI(ILG,LAY), OMCI(ILG,LAY), GCI(ILG,LAY),\n     1     FL(ILG,LAY), TAUAL(ILG,LAY), TAUG(ILG,LAY), BF(ILG,LEV), \n     2     BS(ILG), URBF(ILG,LAY), DBF(ILG,LAY), EM0(ILG), CLD(ILG,LAY),\n     3     CLDM(ILG,LAY), ANU(ILG,LAY)\n      REAL S(ILG,LAY), TERM1(ILG), EMISW(ILG,LAY), SCATBK(ILG,LAY),\n     1     SCATFW(ILG,LAY), SCATSM(ILG,4,LAY), TAUM(ILG,4,LAY),\n     2     XD(ILG,4,LAY), XU(ILG,4,LAY), DTR(ILG,4,LAY), FX(ILG,4,LEV),\n     3     FY(ILG,4,LEV), FW(ILG,4,LEV), S1(ILG), T(ILG)\n      INTEGER NCT(ILG), NCD(ILG,LAY), NCU(ILG,LAY), NCUM(LAY), NCDM(LAY)\nC\n      DATA  RU / 1.6487213 /\nC\nC----------------------------------------------------------------------C\nC     INITIALIZATION FOR FIRST LAYER. CALCULATE THE DOWNWARD FLUX IN   C\nC     THE SECOND LAYER                                                 C\nC     COMBINE THE OPTICAL PROPERTIES FOR THE INFRARED,                 C\nC     1, AEROSOL + GAS; 2, CLOUD + AEROSOL + GAS.                      C\nC     FD (FU) IS DOWN (UPWARD) FLUX, FX (FY) IS THE INCIDENT FLUX      C\nC     ABOVE (BELOW) THE CONSIDERED LAYER.                              C\nC     GAUSSIAN INTEGRATION AND DIFFUSIVITY FACTOR, RU (LI JAS 2000)    C\nC     ABOVE MAXC, EXPONENTIAL SOURCE FUNCTION IS USED                  C\nC     BELOW MAXC, LINEAR SOURCE FUNCTION IS USED                       C\nC----------------------------------------------------------------------C\nC\nC mxy+\n      DO K = 1, LAY \n      DO I = IL1, IL2\n       if(TAUAL(I,K).lt.0) then\nc        print*,'negative TAUAL',II,JJ,K,TAUAL(I,K)\n        TAUAL(I,K)=MAX(TAUAL(I,K),1.e-20)\n       endif\n       if(TAUG(I,K).lt.0) then\n        print*,'negative TAUG',II,JJ,K,TAUG(I,K)\n        TAUG(I,K)=MAX(TAUG(I,K),1.e-20)\n       endif\n      ENDDO\n      ENDDO\nC mxy+ \n      L1 =  LEV1\n      L2 =  LEV1 + 1\n      DO 100 I = IL1, IL2\n        FD(I,1,LEV1)              =  SLWF(I)\n        FD(I,2,LEV1)              =  SLWF(I)\n        FX(I,1,LEV1)              =  FD(I,1,LEV1)\n        FX(I,2,LEV1)              =  FD(I,2,LEV1)\n  100 CONTINUE\nC\n      DO 150 K = L2, MAXC\n        KM1 = K - 1\n        DO 125 I = IL1, IL2\n          TAUL1                   =  TAUAL(I,KM1) + TAUG(I,KM1)\n          RTAUL1                  =  TAUL1 * RU\n          DTR(I,1,KM1)            =  EXP (- RTAUL1)\n          UBETA                   =  URBF(I,KM1) / (TAUL1 + 1.E-20)\n          EPSD                    =  UBETA + 1.0\n          EPSU                    =  UBETA - 1.0\nC\n          IF (ABS(EPSD) .GT. 0.001)                                 THEN\n            XD(I,1,KM1)           = (BF(I,K) - BF(I,KM1) * \n     1                               DTR(I,1,KM1)) / EPSD\n          ELSE\n            XD(I,1,KM1)           =  RTAUL1 * BF(I,KM1) * DTR(I,1,KM1)\n          ENDIF\nC\n          IF (ABS(EPSU) .GT. 0.001)                                 THEN\n            XU(I,1,KM1)           = (BF(I,K) * DTR(I,1,KM1) - \n     1                               BF(I,KM1)) / EPSU\n          ELSE\n            XU(I,1,KM1)           =  RTAUL1 * BF(I,K) * DTR(I,1,KM1)\n          ENDIF\nC\n          FD(I,1,K)               =  FD(I,1,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n          FD(I,2,K)               =  FD(I,2,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n          FX(I,1,K)               =  FD(I,2,K)\n          FX(I,2,K)               =  FD(I,2,K)\n          if(XD(I,1,KM1).gt.2000. .or. XD(I,1,KM1).lt.-1000. .or.\n     &       XU(I,1,KM1).gt.2000. .or. XU(I,1,KM1).lt.-1000.)then\n          print*,'XU(I,1,KM1)',I,XU(I,1,KM1),XD(I,1,KM1),RTAUL1,\n     &     BF(I,KM1),DTR(I,1,KM1),EPSU,TAUL1,TAUAL(I,KM1),TAUG(I,KM1)\n          endif\n          if(FD(I,2,K).gt.2000. .or. FD(I,2,K).lt.-1000.) then\n           print*,'FD(I,2,K)',I,K,FD(I,2,K),FD(I,2,KM1),DTR(I,1,KM1),\n     &       XD(I,1,KM1),RTAUL1,BF(I,KM1),EPSU,UBETA,UBETA,\n     &       URBF(I,KM1),TAUL1,DTR(I,1,KM1),RTAUL1,RU,TAUAL(I,KM1),\n     &       TAUG(I,KM1)\n          endif\n          if(FD(I,1,K).gt.2000. .or. FD(I,1,K).lt.-1000.) then\n           print*,'FD(I,1,K)',I,K,FD(I,1,K),FD(I,1,KM1),DTR(I,1,KM1),\n     &       XD(I,1,KM1),BF(I,K),BF(I,KM1),EPSD,UBETA,RTAUL1,TAUL1,\n     &       RU,TAUAL(I,KM1),TAUG(I,KM1)\n          endif\n  125   CONTINUE\n  150 CONTINUE \nC\nC----------------------------------------------------------------------C\nC     ADD THE LAYERS DOWNWARD FROM THE SECOND LAYER TO THE SURFACE.    C\nC     DETERMINE THE XU FOR THE UPWARD PATH.                            C\nC     USING EXPONENTIAL SOURCE FUNCTION FOR CLR FLUX CALCULATION AND   C\nC     ALSO FOR ALL SKY FLUX IN CLOUD FREE LAYERS.                      C\nC----------------------------------------------------------------------C\nC\n      IF (MAXC .LT. LEV)                                            THEN\n        DO 250 K = MAXC + 1, LEV\n          KM1 = K - 1\n          KM2 = KM1 - 1\n          DO 225 I = IL1, IL2\n            TAUL1                 =  TAUAL(I,KM1) + TAUG(I,KM1)\n            RTAUL1                =  TAUL1 * RU\n            DTR(I,1,KM1)          =  EXP (- RTAUL1)\n            if(RTAUL1.lt.0) then\n             print*,'RTAUL1',I,K,RTAUL1,DTR(I,1,KM1),TAUL1,\n     &        TAUAL(I,KM1),TAUG(I,KM1)\n            endif\nC\n            UBETA                 =  URBF(I,KM1) / (TAUL1 + 1.E-20)\n            EPSD                  =  UBETA + 1.0\n            EPSU                  =  UBETA - 1.0\nC\n            IF (ABS(EPSD) .GT. 0.001)                               THEN\n              XD(I,1,KM1)         = (BF(I,K) - BF(I,KM1) * \n     1                               DTR(I,1,KM1)) / EPSD\n            ELSE\n              XD(I,1,KM1)         =  RTAUL1 * BF(I,KM1) * DTR(I,1,KM1)\n            ENDIF\nC\n            IF (ABS(EPSU) .GT. 0.001)                               THEN\n              XU(I,1,KM1)         = (BF(I,K) * DTR(I,1,KM1) - \n     1                               BF(I,KM1)) / EPSU\n            ELSE\n              XU(I,1,KM1)         =  RTAUL1 * BF(I,K) * DTR(I,1,KM1)\n            ENDIF\nC\n            FD(I,1,K)             =  FD(I,1,KM1) * DTR(I,1,KM1) +\n     1                               XD(I,1,KM1)\n            IF (CLD(I,KM1) .LT. CUT)                                THEN\n              FD(I,2,K)           =  FD(I,2,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n              FX(I,1,K)           =  FD(I,2,K)\n              FX(I,2,K)           =  FD(I,2,K)\n            ELSE\n              TAUL2               =  TAUCI(I,KM1) + TAUG(I,KM1)\n              SSALB               =  OMCI(I,KM1) / (TAUL2 + 1.E-20)\n              SF                  =  SSALB * FL(I,KM1)\n              W                   = (SSALB - SF) / (1.0 - SF)\n              COW                 =  1.0 - W\n              TAUM(I,1,KM1)       = (COW * TAUL2 * (1.0 - SF) + \n     1                               TAUAL(I,KM1)) * RU\n              ZETA                =  DBF(I,KM1) / TAUM(I,1,KM1)\n              TAU2                =  TAUM(I,1,KM1) + TAUM(I,1,KM1)\nC\n              SANU                =  ANU(I,KM1)\n              X                   =  SANU / (SANU + TAUM(I,1,KM1))\n              Y                   =  SANU / (SANU + TAU2)\nC\n              IF (SANU .LE. 0.50)                                   THEN\n                DTR(I,2,KM1)      =  SQRT(X)\n                DTR2              =  SQRT(Y)\n                EMISW(I,KM1)      =  ZETA * (SQRT(1.0 + TAU2) - 1.0)\n                EMBK              =  1.0 - SQRT(1.0 + TAU2 + TAU2)\n               if(DTR(I,2,KM1).gt.2000. .or. DTR(I,2,KM1).lt.-1000..or.\n     &            DTR2.gt.2000. .or. DTR2.lt.-1000. .or.\n     &            EMISW(I,KM1).gt.2000. .or. EMISW(I,KM1).lt.-1000..or.\n     &            EMBK.gt.2000. .or. EMBK.lt.-1000.) then\n                print*,'DTR(I,2,KM1),DTR2',I,K,DTR(I,2,KM1),DTR2,X,Y,\n     &           EMISW(I,KM1),EMBK,ZETA,TAU2,SANU,TAU2,TAUM(I,1,KM1),\n     &           TAUCI(I,KM1),TAUG(I,KM1),OMCI(I,KM1),FL(I,KM1),\n     &           TAUAL(I,KM1),DBF(I,KM1),FD(I,1,KM1),DTR(I,1,KM1),\n     &           XD(I,1,KM1),FD(I,2,K)\n               endif \n              ELSE IF (SANU .GT. 0.50 .AND. SANU .LE. 1.0)          THEN\n                WT                =  2.0 * SANU - 1.0\n                SX                =  SQRT(X)\n                SY                =  SQRT(Y)\n                DTR(I,2,KM1)      =  SX + (X - SX) * WT\n                DTR2              =  SY + (Y - SY) * WT\n                P1                =  SQRT(1.0 + TAU2) - 1.0\n                EMISW(I,KM1)      =  ZETA * (P1 + (LOG(1.0 + \n     1                               TAUM(I,1,KM1)) - P1) * WT)\n                P2                =  1.0 - SQRT(1.0 + TAU2 + TAU2)\n                EMBK              =  P2 - (LOG(1.0 + TAU2) + P2) * WT\n                if(SX.gt.2000. .or. SX.lt.-1000. .or.\n     &             SY.gt.2000. .or. SY.lt.-1000. .or.\n     &             P1.GT.2000. .or. P1.lt.-1000. .or.\n     &             EMISW(I,KM1).gt.2000. .or. EMISW(I,KM1).lt.-1000..or.\n     &             P2.gt.2000. .or. P2.lt.-1000. .or.\n     &             EMBK.gt.2000. .or. EMBK.lt.-1000.) then\n                print*,'SX,SY',I,K,SX,SY,P1,P2,EMISW(I,KM1),EMBK,\n     &           SANU,X,Y,DTR(I,2,KM1),DTR2,TAU2,ZETA,TAUM(I,1,KM1)\n                endif \n              ELSE IF (SANU .GT. 1.0 .AND. SANU .LE. 2.0)           THEN\n                WT                =  SANU - 1.0\n                DTR(I,2,KM1)      =  X + (X * X - X) * WT\n                DTR2              =  Y + (Y * Y - Y) * WT\n                Z                 =  SANU / (SANU - 1.0)\n                P1                =  LOG(1.0 + TAUM(I,1,KM1))\n                EMISW(I,KM1)      =  ZETA * (P1 + (Z * (1.0 - X) - P1) *\n     1                               WT)\n                P2                =  - LOG(1.0 + TAU2)\n                EMBK              =  P2 + (Z * (Y - 1.0) - P2) * WT\n               if(P1.gt.2000. or. P1.lt.-1000. .or.\n     &            P2.gt.2000. or. P2.lt.-1000.) then\n               print*,'P1,P2',I,K,P1,P2,SANU,DTR(I,2,KM1),TAUM(I,1,KM1),\n     &          EMISW(I,KM1),TAU2\n               endif\n              ELSE IF (SANU .GT. 2.0 .AND. SANU .LE. 3.0)           THEN\n                X2                =  X * X\n                Y2                =  Y * Y\n                WT                =  SANU - 2.0\n                DTR(I,2,KM1)      =  X2 + (X * X2 - X2) * WT\n                DTR2              =  Y2 + (Y * Y2 - Y2) * WT\n                Z                 =  SANU / (SANU - 1.0)\n                EMISW(I,KM1)      =  Z * ZETA *\n     1                              (1.0 - X + (X - X2) * WT)\n                EMBK              =  Z * (Y - 1.0 + (Y2 - Y) * WT)\n              ELSE IF (SANU .GT. 3.0 .AND. SANU .LE. 4.0)           THEN\n                X2                =  X * X\n                Y2                =  Y * Y\n                X3                =  X2 * X\n                Y3                =  Y2 * Y\n                WT                =  SANU - 3.0\n                DTR(I,2,KM1)      =  X3 + (X2 * X2 - X3) * WT\n                DTR2              =  Y3 + (Y2 * Y2 - Y3) * WT\n                Z                 =  SANU / (SANU - 1.0)\n                EMISW(I,KM1)      =  Z * ZETA *\n     1                              (1.0 - X2 + (X2 - X3) * WT)\n                EMBK              =  Z * (Y2 - 1.0 + (Y3 - Y2) * WT)\nC\nC----------------------------------------------------------------------C\nC     FOR ANU > 4, THE INHOMOENEITY EFFECT IS VERY WEAK, FOR SAVING    C\nC     THE INTEGER ANU IS ASSUMED. FOR ANU > 20, HOMOGENOUS IS ASSUMED  C \nC----------------------------------------------------------------------C\nC\n              ELSE IF (SANU .GT. 4.0 .AND. SANU .LE. 20.0)          THEN\n                NANU              =  INT(SANU)\n                DTR(I,2,KM1)      =  X ** NANU\n                DTR2              =  Y ** NANU\n                Z                 =  SANU / (SANU - 1.0)\n                EMISW(I,KM1)      =  Z * ZETA * (1.0 - DTR(I,2,KM1) / X)\n                EMBK              =  Z * (DTR2 / Y - 1.0)\n              ELSE\n                EMISW(I,KM1)      =  ZETA * (1.0 - EXP(- TAUM(I,1,KM1)))\n                EMBK              = (EXP(- TAU2) - 1.0)\n               if(EMISW(I,KM1).gt.2000. .or. EMISW(I,KM1).lt.-1000.\n     &          .or. EMBK.gt.2000. .or. EMBK.lt.-1000.) then\n                print*,'EMISW(I,KM1),EMBK',I,KM1,EMISW(I,KM1),EMBK,\n     &           TAUM(I,1,KM1),TAU2\n               endif\n              ENDIF\nC\n              XD(I,2,KM1)         =  BF(I,K) - BF(I,KM1) * \n     1                               DTR(I,2,KM1) - EMISW(I,KM1) \n              XU(I,2,KM1)         =  BF(I,KM1) - BF(I,K) * \n     1                               DTR(I,2,KM1) + EMISW(I,KM1)\nC\n              WGRCOW              =  W * GCI(I,KM1) / COW\n              TAUDTR              =  TAUM(I,1,KM1) * DTR(I,2,KM1)\nC\n              SCATFW(I,KM1)       =  WGRCOW * X * TAUDTR\n              SCATBK(I,KM1)       =  0.5 * WGRCOW * (DTR2 - 1.0)\nC\n              X                   =  WGRCOW * (2.0 * EMISW(I,KM1) +\n     1                              (0.5 * EMBK - TAUDTR) * ZETA)\n              SCATSM(I,1,KM1)     =  - SCATBK(I,KM1) * BF(I,K) -\n     1                               SCATFW(I,KM1) * BF(I,KM1) - X\n              SCATSM(I,2,KM1)     =  - SCATBK(I,KM1) * BF(I,KM1) -\n     1                               SCATFW(I,KM1) * BF(I,K) + X\nC\n              IF (K .EQ. L2)                                        THEN\n                FX(I,1,K)         =  FX(I,1,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n                FX(I,2,K)         =  FX(I,2,KM1) * DTR(I,2,KM1) + \n     1                               XD(I,2,KM1)\n              ELSE IF (CLD(I,KM1) .LE. CLD(I,KM2))                  THEN\n                FX(I,1,K)         = ( FX(I,2,KM1) + (1.0 - CLD(I,KM2)) /\n     1                              (1.0 - CLD(I,KM1) - 1.E-10) * \n     2                              (FX(I,1,KM1) - FX(I,2,KM1)) ) * \n     3                               DTR(I,1,KM1) + XD(I,1,KM1)\n                FX(I,2,K)         =  FX(I,2,KM1) * DTR(I,2,KM1) + \n     1                               XD(I,2,KM1)\n              ELSE IF (CLD(I,KM1) .GT. CLD(I,KM2))                  THEN\n                FX(I,1,K)         =  FX(I,1,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n                FX(I,2,K)         = (FX(I,1,KM1) + \n     1                               CLD(I,KM2) / CLD(I,KM1) * \n     2                              (FX(I,2,KM1) - FX(I,1,KM1))) * \n     3                               DTR(I,2,KM1) + XD(I,2,KM1)\n              ENDIF\nC\n              FD(I,2,K)           =  FX(I,1,K) + CLD(I,KM1) * \n     1                              (FX(I,2,K) - FX(I,1,K))\n            ENDIF   \n  225     CONTINUE\n  250   CONTINUE\n      ENDIF\nC\nC----------------------------------------------------------------------C\nC     INITIALIZATION FOR SURFACE                                       C\nC----------------------------------------------------------------------C\n      K = LEV - 1\n      DO 300 I = IL1, IL2\nC mxy+\n        EMBS                      =  EM0(I) * BS(I)\n        ABSE0                     =  1.0 - EM0(I)\n        FU(I,1,LEV)               =  EMBS + ABSE0 * FD(I,1,LEV)\n        FY(I,1,LEV)               =  EMBS + ABSE0 * FX(I,1,LEV)\n        FY(I,2,LEV)               =  EMBS + ABSE0 * FX(I,2,LEV)\n        FU(I,2,LEV)               =  FY(I,1,LEV) + CLD(I,K) *\n     1                              (FY(I,2,LEV) - FY(I,1,LEV))\n        FW(I,2,LEV)               =  FY(I,2,LEV)\nC mxy+\nC        FU(I,1,LEV)               =  FD(I,1,LEV) + EM0(I) *\nc     1                              (BS(I) - FD(I,1,LEV))\nc        FY(I,1,LEV)               =  FX(I,1,LEV) + EM0(I) *\nc     1                              (BS(I) - FX(I,1,LEV))\nc        FY(I,2,LEV)               =  FX(I,2,LEV) + EM0(I) *\nc     1                              (BS(I) - FX(I,2,LEV))\nc        FU(I,2,LEV)               =  FY(I,1,LEV) + CLD(I,K) *\nc     1                              (FY(I,2,LEV) - FY(I,1,LEV))\nc        FW(I,2,LEV)               =  FY(I,2,LEV)\nC\nC----------------------------------------------------------------------C\nC     DETERMINING THE UPWARD FLUX FOR THE FIRST LAY ABOVE SURFACE      C\nC----------------------------------------------------------------------C\nC\n        FU(I,1,K)                 =  FU(I,1,LEV) * DTR(I,1,K) +\n     1                               XU(I,1,K)\nC\n        FY(I,1,K)                 =  FY(I,1,LEV) * DTR(I,1,K) +\n     1                               XU(I,1,K)\n        IF (CLD(I,K) .LT. CUT)                                      THEN\n          S(I,K)                  =  0.0\n          FY(I,2,K)               =  FY(I,2,LEV) * DTR(I,1,K) +\n     1                               XU(I,1,K)\n          FU(I,2,K)               =  FY(I,1,K)\n          FW(I,2,K)               =  FY(I,2,K)\n          TAUM(I,2,K)             =  0.0\n        ELSE\n          S(I,K)                  =  SCATBK(I,K) * FX(I,2,K) +\n     1                               SCATFW(I,K) * FY(I,2,LEV) +\n     2                               SCATSM(I,2,K)\n          FY(I,2,K)               =  FY(I,2,LEV) * DTR(I,2,K) +\n     1                               XU(I,2,K) + S(I,K)\n          FU(I,2,K)               =  FY(I,1,K) + CLD(I,K) *\n     1                              (FY(I,2,K) - FY(I,1,K))\n          FW(I,2,K)               =  FY(I,2,K)\n          FW(I,2,K)               =  FY(I,2,K)\n          TAUM(I,2,K)             =  TAUM(I,1,K)\n        ENDIF\n  300 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     ADD THE LAYERS UPWARD FROM THE SECOND LAYER TO MAXC              C\nC     SCATTERING EFFECT FOR UPWARD PATH IS INCLUDED                    C\nC----------------------------------------------------------------------C\nC\n      DO 450 K = LEV - 2, MAXC, - 1\n        KP1 = K + 1\n        KP2 = K + 2\n        DO 400 I = IL1, IL2\n          IF (K .GE. NCT(I))                                        THEN\n            FU(I,1,K)             =  FU(I,1,KP1) * DTR(I,1,K) + \n     1                               XU(I,1,K)\nC\n            IF (CLD(I,K) .LT. CUT)                                  THEN\n              FU(I,2,K)           =  FU(I,2,KP1) * DTR(I,1,K) + \n     1                               XU(I,1,K)\n              FY(I,1,K)           =  FU(I,2,K)\n              FY(I,2,K)           =  FU(I,2,K)\n              FW(I,2,K)           =  FU(I,2,K)\n              TAUM(I,2,K)         =  0.0\n            ELSE\nC\nC----------------------------------------------------------------------C\nC     FY(I,2,K) CONTAINS UNPERTURBED + BACKWARD SCATTERING EFFECT +    C\nC     FORWARD SCATTERING EFFECT + INTERNAL SCATTERING EFFECT           C\nC    (LI AND FU, JAS 2000)                                             C\nC----------------------------------------------------------------------C\nC\n              IF (CLD(I,K) .LE. CLD(I,KP1) .OR.\n     1                          CLD(I,K) - CLDM(I,K) .LT. CUT)      THEN\nC\n                FY(I,1,K)         = ( FY(I,2,KP1) + (1.0 - CLD(I,KP1)) /\n     1                              (1.0 - CLD(I,K) - 1.E-10) *\n     2                              (FY(I,1,KP1) - FY(I,2,KP1)) ) * \n     3                               DTR(I,1,K) + XU(I,1,K)\n                T(I)              =  FY(I,2,KP1)\n              ELSE\n                FY(I,1,K)         =  FY(I,1,KP1) * DTR(I,1,K) + \n     1                               XU(I,1,K)\n                T(I)              =  FY(I,1,KP1) + \n     1                              (CLD(I,KP1) - CLDM(I,KP1)) / \n     2                              (CLD(I,K) - CLDM(I,K)) *\n     3                              (FY(I,2,KP1) - FY(I,1,KP1))\n              ENDIF\nC\n              BKINS               =  SCATBK(I,K) * FX(I,2,K) + \n     1                               SCATSM(I,2,K)\n              FY(I,2,K)           =  T(I) * (DTR(I,2,K) + SCATFW(I,K)) +\n     1                               XU(I,2,K) + BKINS \n              TAUM(I,2,K)         =  TAUM(I,2,KP1) + TAUM(I,1,K)\n              S1(I)               =  0.0\n              S(I,K)              =  BKINS + SCATFW(I,K) * FY(I,2,KP1) \n              TERM1(I)            =  0.0 \nC\n              IF (NCU(I,K) .GT. 1)                                  THEN\n                KX = K + NCU(I,K)\n                KXM = KX - 1\nC\n                SANU              =  ANU(I,KXM)\n                ANUTAU            =  SANU / (SANU + TAUM(I,2,K))\n                IF (SANU .LE. 0.50)                                 THEN\n                  DTRGW           =  SQRT(ANUTAU)\n                ELSE IF (SANU .GT. 0.50 .AND. SANU .LE. 1.0)        THEN\n                  X               =  SQRT(ANUTAU)\n                  DTRGW           =  X + 2.0 * (SANU - 0.50) *\n     1                              (ANUTAU - X)\n                ELSE IF (SANU .GT. 1.0 .AND. SANU .LE. 2.0)         THEN\n                  DTRGW           =  ANUTAU + (SANU - 1.0) * ANUTAU *\n     1                              (ANUTAU - 1.0)\n                ELSE IF (SANU .GT. 2.0 .AND. SANU .LE. 3.0)         THEN\n                  X               =  ANUTAU * ANUTAU\n                  DTRGW           =  X + (SANU - 2.0) * X *\n     1                              (ANUTAU - 1.0)\n                ELSE IF (SANU .GT. 3.0 .AND. SANU .LE. 4.0)         THEN\n                  X               =  ANUTAU * ANUTAU * ANUTAU\n                  DTRGW           =  X + (SANU - 3.0) * X *\n     1                              (ANUTAU - 1.0)\n                ELSE IF (SANU .GT. 4.0 .AND. SANU .LE. 20.0)        THEN\n                  DTRGW           =  ANUTAU ** (INT(SANU))\n                ELSE\n                  DTRGW           =  EXP(- TAUM(I,2,K))\n                 if(DTRGW.gt.2000. .or. DTRGW.lt.-1000.) then\n                 print*,'DTRGW',DTRGW,TAUM(I,2,K)\n                 endif\n                ENDIF\nC\n                TERM1(I)          = (FW(I,2,KX) - BF(I,KX)) * DTRGW\n                S1(I)             = (EMISW(I,KP1) + S(I,KP1)) * \n     1                               DTR(I,2,K)\n              ENDIF\n            ENDIF\n          ENDIF \n  400   CONTINUE\nC\nC----------------------------------------------------------------------C\nC     DETERMINING THE TERMS GOING INTO THE CORRELATION CALCULATIONS    C\nC     FOR SUBGRID VARIABILITY FOR CLDM PORTION.                        C\nC----------------------------------------------------------------------C\nC\n        IF (NCUM(K) .GT. 2)                                         THEN\n          DO 420 KK = KP2, K + NCUM(K) - 1\n          DO 420 I = IL1, IL2\n            IF (K .GE. NCT(I) .AND. CLD(I,K) .GE. CUT .AND.\n     1          NCU(I,K) .GT. 2 .AND. KK .LE. K + NCU(I,K) - 1)     THEN\nC\n              SANU                =  ANU(I,KK)\n              ANUTAU              =  SANU / (SANU + \n     1                               TAUM(I,2,K) - TAUM(I,2,KK))\n              IF (SANU .LE. 0.50)                                   THEN\n                DTRGW             =  SQRT(ANUTAU)\n              ELSE IF (SANU .GT. 0.50 .AND. SANU .LE. 1.0)          THEN\n                X                 =  SQRT(ANUTAU)\n                DTRGW             =  X + 2.0 * (SANU - 0.50) *\n     1                              (ANUTAU - X)\n              ELSE IF (SANU .GT. 1.0 .AND. SANU .LE. 2.0)           THEN\n                DTRGW             =  ANUTAU + (SANU - 1.0) * ANUTAU *\n     1                              (ANUTAU - 1.0)\n              ELSE IF (SANU .GT. 2.0 .AND. SANU .LE. 3.0)           THEN\n                X                 =  ANUTAU * ANUTAU\n                DTRGW             =  X + (SANU - 2.0) * X *\n     1                              (ANUTAU - 1.0)\n              ELSE IF (SANU .GT. 3.0 .AND. SANU .LE. 4.0)           THEN\n                X                 =  ANUTAU * ANUTAU * ANUTAU\n                DTRGW             =  X + (SANU - 3.0) * X *\n     1                              (ANUTAU - 1.0)\n              ELSE IF (SANU .GT. 4.0 .AND. SANU .LE. 20.0)          THEN\n                DTRGW             =  ANUTAU ** (INT(SANU))\n              ELSE\n                DTRGW             =  EXP(- TAUM(I,2,KK) + TAUM(I,2,KK))\n               if(DTRGW.gt.2000. .or. DTRGW.lt.-1000.) then\n               print*,'DTRGW',DTRGW,TAUM(I,2,KK),TAUM(I,2,KK)\n               endif\n              ENDIF\nC\n              S1(I)               =  S1(I) + \n     1                              (EMISW(I,KK) + S(I,KK)) * DTRGW\n            ENDIF\n  420     CONTINUE\n        ENDIF\nC\nC----------------------------------------------------------------------C\nC     IN CLDM REGION CONSIDER THE CORRELATION BETWEEN DIFFERENT LAYERS C\nC----------------------------------------------------------------------C\nC\n        DO 430 I = IL1, IL2\n          IF (K .GE. NCT(I))                                        THEN\n            IF (CLD(I,K) .GE. CUT)                                  THEN\n              IF (NCU(I,K) .EQ. 1)                                  THEN\n                FW(I,2,K)         =  FY(I,2,K) \n                FU(I,2,K)         =  FY(I,1,K) + CLD(I,K) * (FY(I,2,K) -\n     1                               FY(I,1,K)) \n              ELSE\n                FW(I,2,K)         =  TERM1(I) + S1(I) + BF(I,K) + \n     1                               EMISW(I,K) + S(I,K)\n                FU(I,2,K)         =  CLDM(I,K) * (FW(I,2,K) - \n     1                               FY(I,2,K)) + FY(I,1,K) + \n     2                               CLD(I,K) * (FY(I,2,K) - FY(I,1,K))\n              ENDIF\n            ENDIF\n          ENDIF\n  430   CONTINUE        \n  450 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     ADD THE LAYERS UPWARD ABOVE THE HIGHEST CLOUD  TO THE TOA, NO    C\nC     SCATTERING                                                       C\nC----------------------------------------------------------------------C\nC\n      DO 550 K = LEV - 1, L1, - 1\n        KP1 = K + 1\nC\n        DO 500 I = IL1, IL2\n          IF (KP1 .LE. NCT(I))                                      THEN\n            FU(I,1,K)             =  FU(I,1,KP1) * DTR(I,1,K) + \n     1                               XU(I,1,K)\n            FU(I,2,K)             =  FU(I,2,KP1) * DTR(I,1,K) + \n     1                               XU(I,1,K)\n          if(FU(I,2,K).gt.2000. .or. FU(I,2,K).lt.-1000.) then\n           print*,'FU(I,2,K)',FU(I,2,KP1),DTR(I,1,K),XU(I,1,K),\n     &        FU(I,1,K),FU(I,1,KP1)\n          endif\n          ENDIF\nC\nC----------------------------------------------------------------------C\nC     SCATTERING EFFECT FOR DOWNWARD PATH AT THE TOP LAYER OF THE      C\nC     HIGHEST CLOUD                                                    C\nC----------------------------------------------------------------------C\nC\n          IF (K .EQ. NCT(I))                                        THEN\n            FW(I,1,K)             =  FX(I,1,K)\n            FWINS                 =  SCATSM(I,1,K) + \n     1                               SCATFW(I,K) * FX(I,2,K)\n            FMBK                  =  FX(I,2,K) * DTR(I,2,K) + \n     1                               XD(I,2,K) + FWINS\n            FX(I,2,KP1)           =  FMBK + SCATBK(I,K) * FY(I,2,KP1)\n            TAUM(I,2,K)           =  TAUM(I,1,K)\n            S(I,K)                =  SCATBK(I,K) * FW(I,2,KP1) + FWINS\nC\n            FW(I,1,KP1)           =  FMBK + SCATBK(I,K) * FW(I,2,KP1)\n            FD(I,2,KP1)           =  FX(I,1,KP1) + CLD(I,K) *\n     1                              (FX(I,2,KP1) - FX(I,1,KP1))\n          ENDIF\n  500   CONTINUE\n  550 CONTINUE\nC\nC----------------------------------------------------------------------C\nC     SCATTERING EFFECT FOR DOWNWARD PATH IN FROM MAXC TO THE SURFACE  C\nC----------------------------------------------------------------------C\nC\n      DO 750 K = MAXC + 2, LEV\n        KM1 = K - 1\n        KM2 = K - 2\n        KM3 = K - 3  \n        DO 700 I = IL1, IL2\n          IF (KM2 .GE. NCT(I))                                      THEN\n            IF (CLD(I,KM1) .LT. CUT)                                THEN\n              FD(I,2,K)           =  FD(I,2,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n              FX(I,1,K)           =  FD(I,2,K)\n              FX(I,2,K)           =  FD(I,2,K)\n              FW(I,1,K)           =  FD(I,2,K)\n              TAUM(I,2,KM1)       =  0.0\n            ELSE \n              IF (CLD(I,KM1) .LE. CLD(I,KM2) .OR. \n     1                        CLD(I,KM1) - CLDM(I,KM1) .LT. CUT)    THEN\nC\n                FX(I,1,K)         = (FX(I,2,KM1) + (1.0 - CLD(I,KM2)) /\n     1                              (1.0 - CLD(I,KM1) - 1.E-10) * \n     2                              (FX(I,1,KM1) - FX(I,2,KM1))) * \n     3                               DTR(I,1,KM1) + XD(I,1,KM1)\n                T(I)              =  FX(I,2,KM1)\n              ELSE\n                FX(I,1,K)         =  FX(I,1,KM1) * DTR(I,1,KM1) + \n     1                               XD(I,1,KM1)\n                T(I)              =  FX(I,1,KM1) + \n     1                              (CLD(I,KM2) - CLDM(I,KM2)) / \n     2                              (CLD(I,KM1) - CLDM(I,KM1)) * \n     3                              (FX(I,2,KM1) -  FX(I,1,KM1))\n              ENDIF\nC\n              FX(I,2,K)           =  T(I) * DTR(I,2,KM1) + XD(I,2,KM1) +\n     1                               SCATBK(I,KM1) * FY(I,2,K) + \n     2                               SCATFW(I,KM1) * T(I) + \n     3                               SCATSM(I,1,KM1)\nC\n              TAUM(I,2,KM1)       =  TAUM(I,2,KM2) + TAUM(I,1,KM1)\n              S1(I)               =  0.0\n              S(I,KM1)            =  SCATBK(I,KM1) * FW(I,2,K) + \n     1                               SCATFW(I,KM1) * FW(I,1,KM1) + \n     2                               SCATSM(I,1,KM1)\n              TERM1(I)            =  0.0 \nC\n              IF (NCD(I,KM1) .GT. 1)                                THEN\n                KX = K - NCD(I,KM1)\n                SANU              =  ANU(I,KX)\n                ANUTAU            =  SANU / (SANU + TAUM(I,2,KM1))\n                IF (SANU .LE. 0.50)                                 THEN\n                  DTRGW           =  SQRT(ANUTAU)\n                ELSE IF (SANU .GT. 0.50 .AND. SANU .LE. 1.0)        THEN\n                  X               =  SQRT(ANUTAU)\n                  DTRGW           =  X + 2.0 * (SANU - 0.50) *\n     1                              (ANUTAU - X)\n                ELSE IF (SANU .GT. 1.0 .AND. SANU .LE. 2.0)         THEN\n                  DTRGW           =  ANUTAU + (SANU - 1.0) * ANUTAU *\n     1                              (ANUTAU - 1.0)\n                ELSE IF (SANU .GT. 2.0 .AND. SANU .LE. 3.0)         THEN\n                  X               =  ANUTAU * ANUTAU\n                  DTRGW           =  X + (SANU - 2.0) * X *\n     1                              (ANUTAU - 1.0)\n                ELSE IF (SANU .GT. 3.0 .AND. SANU .LE. 4.0)         THEN\n                  X               =  ANUTAU * ANUTAU * ANUTAU\n                  DTRGW           =  X + (SANU - 3.0) * X *\n     1                              (ANUTAU - 1.0)\n                ELSE IF (SANU .GT. 4.0 .AND. SANU .LE. 20.0)        THEN\n                  DTRGW           =  ANUTAU ** (INT(SANU))\n                ELSE\n                  DTRGW           =  EXP(- TAUM(I,2,KM1))\n                 if(DTRGW.gt.2000. .or. DTRGW.lt.-1000.)then\n                  print*,'DTRGW,TAUM(I,2,KM1)',DTRGW,TAUM(I,2,KM1)\n                 endif\n                ENDIF\nC\n                TERM1(I)          = (FW(I,1,KX) - BF(I,KX)) * DTRGW\n                S1(I)             = (S(I,KM2) - EMISW(I,KM2)) * \n     1                               DTR(I,2,KM1)\n              ENDIF\n            ENDIF\n          ENDIF\n  700   CONTINUE          \nC\nC----------------------------------------------------------------------C\nC     DETERMINING THE TERMS GOING INTO THE CORRELATION CALCULATIONS    C\nC     FOR CLDM PORTION.                                                C\nC----------------------------------------------------------------------C\nC\n        IF (NCDM(KM1) .GT. 2)                                       THEN\nC\nC----------------------------------------------------------------------C\nC     NOTE THAT IN THE FOLLOWING LOOP, \"KM1\" IS ACTUALLY THE           C\nC     REPRESENTATIVE VARIABLE, SO THAT K-NCD(I,KM1) IS ACTUALLY        C\nC     KM1-NCD(I,KM1)+1. THE SIMPLER FORM IS USED ONLY FOR              C\nC     COMPUTATIONAL EFFICIENCY.                                        C\nC----------------------------------------------------------------------C\nC\n          DO 720 KK = KM3, K - NCDM(KM1), - 1\n          DO 720 I = IL1, IL2\n            IF (KM2 .GE. NCT(I) .AND. CLD(I,KM1) .GE. CUT .AND.\n     1          NCD(I,KM1) .GT. 2 .AND. KK .GE. K - NCD(I,KM1))     THEN\nC              \n              SANU                =  ANU(I,KK)\n              ANUTAU              =  SANU / (SANU + \n     1                               TAUM(I,2,KM1) - TAUM(I,2,KK))\n              IF (SANU .LE. 0.50)                                   THEN\n                DTRGW             =  SQRT(ANUTAU)\n              ELSE IF (SANU .GT. 0.50 .AND. SANU .LE. 1.0)          THEN\n                X                 =  SQRT(ANUTAU)\n                DTRGW             =  X + 2.0 * (SANU - 0.50) *\n     1                              (ANUTAU - X)\n              ELSE IF (SANU .GT. 1.0 .AND. SANU .LE. 2.0)           THEN\n                DTRGW             =  ANUTAU + (SANU - 1.0) * ANUTAU *\n     1                              (ANUTAU - 1.0)\n              ELSE IF (SANU .GT. 2.0 .AND. SANU .LE. 3.0)           THEN\n                X                 =  ANUTAU * ANUTAU\n                DTRGW             =  X + (SANU - 2.0) * X *\n     1                              (ANUTAU - 1.0)\n              ELSE IF (SANU .GT. 3.0 .AND. SANU .LE. 4.0)           THEN\n                X                 =  ANUTAU * ANUTAU * ANUTAU\n                DTRGW             =  X + (SANU - 3.0) * X *\n     1                              (ANUTAU - 1.0)\n              ELSE IF (SANU .GT. 4.0 .AND. SANU .LE. 20.0)          THEN\n                DTRGW             =  ANUTAU ** (INT(SANU))\n              ELSE\n                DTRGW             =  EXP(- TAUM(I,2,KM1) + TAUM(I,2,KK))\n               if(DTRGW.gt.2000. .or. DTRGW.lt.-1000.) then\n                print*,'DTRGW,TAUM(I,2,KM1),TAUM(I,2,KK)',\n     &          DTRGW,TAUM(I,2,KM1),TAUM(I,2,KK)\n               endif\n              ENDIF\nC\n              S1(I)               =  S1(I) - \n     1                              (EMISW(I,KK) - S(I,KK)) * DTRGW\n            ENDIF\n  720     CONTINUE\n        ENDIF\nC\n        DO 730 I = IL1, IL2\n          IF (KM2 .GE. NCT(I))                                      THEN\n            IF (CLD(I,KM1) .GE. CUT)                                THEN\n              IF (NCD(I,KM1) .EQ. 1)                                THEN\n                FW(I,1,K)         =  FX(I,2,K)\n                FD(I,2,K)         =  FX(I,1,K) + CLD(I,KM1) * \n     1                              (FX(I,2,K) - FX(I,1,K)) \n              ELSE\n                FW(I,1,K)         =  TERM1(I) + S1(I) + BF(I,K) - \n     1                               EMISW(I,KM1) + S(I,KM1)\n                FD(I,2,K)         =  CLDM(I,KM1) * \n     1                              (FW(I,1,K) - FX(I,2,K)) + \n     2                               FX(I,1,K) + CLD(I,KM1) * \n     3                              (FX(I,2,K) - FX(I,1,K))\n              ENDIF\n            ENDIF\n          ENDIF\n  730   CONTINUE\n  750 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE LWTRAGH (FU, FD, SLWF, TAUCI, OMCI, TAUAL, TAUG, BF,\n     1                    URBF, CLD, EM0, BS, CUT,\n     2                    IL1, IL2, ILG, LAY, LEV)\nC\nC----------------------------------------------------------------------C\nC     IN THE G SPACE WITH INTERVAL CLOSE 1 (VERY LARGE OPTICAL DEPTH)  C\nC     OR IN THE CASE WITH CLOUD ABSORPTION IS VERY SMALL OR THE WEIGHT C\nC     OF FLUX AND COOLING RATE ARE VERY SMALL. THE CLOUD RADIATIVE     C\nC     PROCESS CAN BE HIGHLY SIMPLIFIED. THE ABSORPTION APPROXIMATION   C\nC     METHOD IS USED AND CLOUD RANDOM AND MAXIMUM OVERLAP IS           C\nC     CONSIDERED, BUT CLOUD SCATTERING AND INHOMOGENEITY ARE IGNORED.  C\nC     THE EXPONENTIAL SOURCE PLANCK FUNCTION IS USED WHICH IS MORE     C\nC     ACCURATE IN THE REGION ABOVE 200 MB IN COMPARISON WITH LINEAR    C\nC     SOURCE FUNCTION                                                  C\nC                                                                      C\nC     FU:    UPWARD INFRARED FLUX                                      C\nC     FD:    DOWNWARD INFRARED FLUX                                    C\nC     SLWF:  INPUT SOLAR FLUX AT MODEL TOP LEVEL FOR EACH BAND         C\nC     TAUCI: CLOUD OPTICAL DEPTH FOR THE INFRARED                      C\nC     OMCI:  CLOUD SINGLE SCATTERING ALBEDO TIMES OPTICAL DEPTH        C\nC     TAUAL: AEROSOL OPTICAL DEPTH FOR THE INFRARED                    C\nC     TAUG:  GASEOUS OPTICAL DEPTH FOR THE INFRARED                    C\nC     BF:    BLACKBODY INTENSITY INTEGRATED OVER EACH BAND AT EACH     C\nC            LEVEL IN UNITS W / M^2 / SR.                              C\nC     BS:    THE BLACKBODY INTENSITY AT THE SURFACE.                   C\nC     URBF:  U TIMES THE DIFFERENCE OF LOG(BF) FOR TWO NEIGHBOR LEVELS C\nC            USED FOR EXPONENTIAL SOURCE FUNCTION (LI, 2002 JAS P3302) C\nC     CLD:   CLOUD FRACTION                                            C\nC     EM0:   SURFACE EMISSION                                          C\nC     XU:    THE EMISSION PART IN THE UPWARD FLUX TRANSMISSION         C\nC            (LI, 2002 JAS P3302)                                      C\nC     XD:    THE EMISSION PART IN THE DOWNWARD FLUX TRANSMISSION       C\nC     DTR:   DIRECT TRANSMISSION                                       C\nC     FY:    UPWARD FLUX FOR PURE CLEAR PORTION (1) AND PURE CLOUD     C\nC            PORTION (2)                                               C\nC     FX:    THE SAME AS FY BUT FOR THE DOWNWARD FLUX                  C\nC----------------------------------------------------------------------C\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\n\n      REAL FU(ILG,2,LEV), FD(ILG,2,LEV)\n      REAL SLWF(ILG), TAUCI(ILG,LAY), OMCI(ILG,LAY),\n     2     TAUAL(ILG,LAY), TAUG(ILG,LAY), BF(ILG,LEV), URBF(ILG,LAY),\n     3     CLD(ILG,LAY), EM0(ILG), BS(ILG)\n      REAL XU(ILG,4,LAY), XD(ILG,4,LAY), DTR(ILG,4,LAY), \n     1     FY(ILG,4,LEV), FX(ILG,4,LEV)\nC\n      DATA  RU / 1.6487213 /\nC\nC----------------------------------------------------------------------C\nC     INITIALIZATION FOR FIRST LAYER. CALCULATE THE DOWNWARD FLUX IN   C\nC     THE SECOND LAYER                                                 C\nC     COMBINE THE OPTICAL PROPERTIES FOR THE INFRARED,                 C\nC     1, AEROSOL + GAS; 2, CLOUD + AEROSOL + GAS.                      C\nC     FD (FU) IS DOWN (UPWARD) FLUX                                    C\nC     THE OVERLAP BETWEEN SOLAR AND INFRARED IN 4 - 10 UM IS           C\nC     CONSIDERED, SLWF IS THE INCOMING SOLAR FLUX                      C\nC     SINGULARITY FOR XD AND XU HAS BEEN CONSIDERED AS LI JAS 2002     C\nC----------------------------------------------------------------------C\nC\n      DO 100 I = IL1, IL2\n        FD(I,1,1)         =  SLWF(I)\n        FD(I,2,1)         =  SLWF(I)\n        FX(I,1,1)         =  SLWF(I)\n        FX(I,2,1)         =  SLWF(I)\nC\n        TAUL1             =  TAUAL(I,1) + TAUG(I,1)\n        RTAUL1            =  TAUL1 * RU\n        DTR(I,1,1)        =  EXP (- RTAUL1)\n         if(DTR(I,1,1).gt.2000. .or. DTR(I,1,1).lt.-1000.) then\n          print*,'DTR(I,1,1)',I,DTR(I,1,1),RTAUL1,TAUAL(I,1),TAUG(I,1)\n         endif\n        UBETA             =  URBF(I,1) / (TAUL1 + 1.E-20)\n        EPSD              =  UBETA + 1.0\n        EPSU              =  UBETA - 1.0\nC\n        IF (ABS(EPSD) .GT. 0.001)                                   THEN\n          XD(I,1,1)       = (BF(I,2) - BF(I,1) * DTR(I,1,1)) / EPSD\n        ELSE\n          XD(I,1,1)       =  RTAUL1 * BF(I,1) * DTR(I,1,1) \n        ENDIF\n        IF (ABS(EPSU) .GT. 0.001)                                   THEN\n          XU(I,1,1)       = (BF(I,2) * DTR(I,1,1) - BF(I,1)) / EPSU\n        ELSE\n          XU(I,1,1)       =  RTAUL1 * BF(I,2) * DTR(I,1,1)\n        ENDIF\nC\n        FD(I,1,2)         =  FD(I,1,1) * DTR(I,1,1) + XD(I,1,1)\nC\n        IF (CLD(I,1) .LT. CUT)                                      THEN\n          FX(I,1,2)       =  FD(I,1,2)\n          FX(I,2,2)       =  FD(I,1,2)\n          FD(I,2,2)       =  FD(I,1,2)\n        ELSE\n          TAUL2           =  TAUCI(I,1) + TAUL1\n          COW             =  1.0 - OMCI(I,1) / TAUL2\n          CTAUL2          =  COW * TAUL2\n          CRTAUL2         =  CTAUL2 * RU\n          DTR(I,2,1)      =  EXP (- CRTAUL2)\n           if(DTR(I,2,1).gt.2000. .or. DTR(I,2,1).lt.-1000.) then\n            print*,'DTR(I,2,1)',I,DTR(I,2,1),CRTAUL2,TAUL2,\n     &       TAUCI(I,1),TAUL1\n           endif\n          UBETA           =  URBF(I,1) / (CTAUL2)\n          EPSD            =  UBETA + 1.0\n          EPSU            =  UBETA - 1.0\nC\n          IF (ABS(EPSD) .GT. 0.001)                                 THEN\n            XD(I,2,1)     = (BF(I,2) - BF(I,1) * DTR(I,2,1)) / EPSD\n          ELSE\n            XD(I,2,1)     =  CRTAUL2 * BF(I,1) * DTR(I,2,1) \n          ENDIF\n          IF (ABS(EPSU) .GT. 0.001)                                 THEN\n            XU(I,2,1)     = (BF(I,2) * DTR(I,2,1) - BF(I,1)) / EPSU\n          ELSE\n            XU(I,2,1)     =  CRTAUL2 * BF(I,2) * DTR(I,2,1)\n          ENDIF\nC\n          FX(I,1,2)       =  FX(I,1,1) * DTR(I,1,1) + XD(I,1,1)\n          FX(I,2,2)       =  FX(I,2,1) * DTR(I,2,1) + XD(I,2,1)\n          FD(I,2,2)       =  FX(I,1,2) +\n     1                       CLD(I,1) * (FX(I,2,2) - FX(I,1,2))\n        ENDIF\n  100 CONTINUE\nC\n      DO 250 K = 3, LEV\n        KM1 = K - 1\n        KM2 = KM1 - 1\n        DO 200 I = IL1, IL2\n          TAUL1           =  TAUAL(I,KM1) + TAUG(I,KM1)\n          RTAUL1          =  TAUL1 * RU\n          DTR(I,1,KM1)    =  EXP (- RTAUL1)\n          if(DTR(I,1,KM1).gt.2000. .or. DTR(I,1,KM1).lt.-1000.) then\n           print*,'DTR(I,1,KM1)',I,DTR(I,1,KM1),RTAUL1,\n     &         TAUAL(I,KM1),TAUG(I,KM1)\n          endif\n          UBETA           =  URBF(I,KM1) / (TAUL1 + 1.E-20)\n          EPSD            =  UBETA + 1.0\n          EPSU            =  UBETA - 1.0\nC\n          IF (ABS(EPSD) .GT. 0.001)                                 THEN\n            XD(I,1,KM1)   = (BF(I,K) - BF(I,KM1) * DTR(I,1,KM1)) / EPSD\n          ELSE\n            XD(I,1,KM1)   =  RTAUL1 * BF(I,KM1) * DTR(I,1,KM1)  \n          ENDIF\n          IF (ABS(EPSU) .GT. 0.001)                                 THEN\n            XU(I,1,KM1)   = (BF(I,K) * DTR(I,1,KM1) - BF(I,KM1)) / EPSU\n          ELSE\n            XU(I,1,KM1)   =  RTAUL1 * BF(I,K) * DTR(I,1,KM1)\n          ENDIF\nC\n          FD(I,1,K)       =  FD(I,1,KM1) * DTR(I,1,KM1) + XD(I,1,KM1)\nC\n          IF (CLD(I,KM1) .LT. CUT)                                  THEN\n            FD(I,2,K)     =  FD(I,2,KM1) * DTR(I,1,KM1) + XD(I,1,KM1)\n            FX(I,1,K)     =  FD(I,2,K)\n            FX(I,2,K)     =  FD(I,2,K)\n          ELSE\n            TAUL2         =  TAUCI(I,KM1) + TAUL1\n            COW           =  1.0 - OMCI(I,KM1) / TAUL2\n            CTAUL2        =  COW * TAUL2\n            CRTAUL2       =  CTAUL2 * RU\n            DTR(I,2,KM1)  =  EXP (- CRTAUL2)\n             if(DTR(I,2,KM1).gt.2000. .or. DTR(I,2,KM1).lt.-1000.) then\n             print*,'DTR(I,2,KM1)',I,DTR(I,2,KM1),CRTAUL2,\n     &        TAUCI(I,KM1),TAUL1,TAUL2,OMCI(I,KM1),COW\n             endif\n            UBETA         =  URBF(I,KM1) / (CTAUL2)\n            EPSD          =  UBETA + 1.0\n            EPSU          =  UBETA - 1.0\nC\n            IF (ABS(EPSD) .GT. 0.001)                               THEN\n              XD(I,2,KM1) = (BF(I,K) - BF(I,KM1) * DTR(I,2,KM1)) / EPSD\n            ELSE\n              XD(I,2,KM1) =  CRTAUL2 * BF(I,KM1) * DTR(I,2,KM1) \n            ENDIF\n            IF (ABS(EPSU) .GT. 0.001)                               THEN\n              XU(I,2,KM1) = (BF(I,K) * DTR(I,2,KM1) - BF(I,KM1)) / EPSU\n            ELSE\n              XU(I,2,KM1) =  CRTAUL2 * BF(I,K) * DTR(I,2,KM1) \n            ENDIF\nC\n            IF (CLD(I,KM1) .LE. CLD(I,KM2))                         THEN\n              FX(I,1,K)   = ( FX(I,2,KM1) + (1.0 - CLD(I,KM2)) /\n     1                      (1.0 - CLD(I,KM1) - 1.E-10) *\n     2                      (FX(I,1,KM1) - FX(I,2,KM1)) ) *\n     3                       DTR(I,1,KM1) + XD(I,1,KM1)\n              FX(I,2,K)   =  FX(I,2,KM1) * DTR(I,2,KM1) + XD(I,2,KM1)\n            ELSE IF (CLD(I,KM1) .GT. CLD(I,KM2))                    THEN\n              FX(I,1,K)   =  FX(I,1,KM1) * DTR(I,1,KM1) + XD(I,1,KM1)\n              FX(I,2,K)   = (FX(I,1,KM1) + CLD(I,KM2) / CLD(I,KM1) *\n     1                      (FX(I,2,KM1) - FX(I,1,KM1))) *\n     2                       DTR(I,2,KM1) + XD(I,2,KM1)\n            ENDIF\nC\n            FD(I,2,K)     =  FX(I,1,K) + CLD(I,KM1) * (FX(I,2,K) -\n     1                       FX(I,1,K))\n          ENDIF\n  200   CONTINUE\n  250 CONTINUE\nC\n      DO 300 I = IL1, IL2\n        FU(I,1,LEV)      =  FD(I,1,LEV) + EM0(I) * (BS(I) - FD(I,1,LEV))\n        FY(I,1,LEV)      =  FX(I,1,LEV) + EM0(I) * (BS(I) - FX(I,1,LEV))\n        FY(I,2,LEV)      =  FX(I,2,LEV) + EM0(I) * (BS(I) - FX(I,2,LEV))\nC\n        IF (CLD(I,LAY) .GT. CUT)                                    THEN\n          FU(I,2,LEV)    =  FY(I,1,LEV) +\n     1                      CLD(I,LAY) * (FY(I,2,LEV) - FY(I,1,LEV))\n        ELSE\n          FU(I,2,LEV)    =  FY(I,2,LEV)\n        ENDIF\nC\n        FU(I,1,LAY)      =  FU(I,1,LEV) * DTR(I,1,LAY) + XU(I,1,LAY)\nC\n        IF (CLD(I,LAY) .LT. CUT)                                    THEN\n          FU(I,2,LAY)    =  FU(I,2,LEV) * DTR(I,1,LAY) + XU(I,1,LAY)\n          FY(I,1,LAY)    =  FU(I,2,LAY)\n          FY(I,2,LAY)    =  FU(I,2,LAY)\n        ELSE\n          FY(I,1,LAY)    =  FY(I,1,LEV) * DTR(I,1,LAY) + XU(I,1,LAY)\n          FY(I,2,LAY)    =  FY(I,2,LEV) * DTR(I,2,LAY) + XU(I,2,LAY)\n          FU(I,2,LAY)    =  FY(I,1,LAY) +\n     1                      CLD(I,LAY) * (FY(I,2,LEV) - FY(I,1,LEV))\n        ENDIF\n  300 CONTINUE\nC\n      DO 450 K = LEV - 2, 1, - 1\n        KP1 = K + 1\n        DO 400 I = IL1, IL2\n          FU(I,1,K)      =  FU(I,1,KP1) * DTR(I,1,K) + XU(I,1,K)\nC\n          IF (CLD(I,K) .LT. CUT)                                    THEN\n            FU(I,2,K)    =  FU(I,2,KP1) * DTR(I,1,K) + XU(I,1,K)\n            FY(I,1,K)    =  FU(I,2,K)\n            FY(I,2,K)    =  FU(I,2,K)\n          ELSE\n            IF (CLD(I,K) .LT. CLD(I,KP1))                           THEN\n              FY(I,1,K)  = ( FY(I,2,KP1) + (1.0 - CLD(I,KP1)) /\n     1                     (1.0 - CLD(I,K)) * (FY(I,1,KP1) -\n     2                      FY(I,2,KP1)) ) * DTR(I,1,K) + XU(I,1,K)\n              FY(I,2,K)  =  FY(I,2,KP1) * DTR(I,2,K) + XU(I,2,K)\n            ELSE\n              FY(I,1,K)  =  FY(I,1,KP1) * DTR(I,1,K) + XU(I,1,K)\n              FY(I,2,K)  = ( FY(I,1,KP1) + CLD(I,KP1) / CLD(I,K) *\n     1                     (FY(I,2,KP1) - FY(I,1,KP1)) ) * DTR(I,2,K) +\n     2                      XU(I,2,K)\n            ENDIF\nC\n            FU(I,2,K)    =  FY(I,1,K) +\n     1                      CLD(I,K) * (FY(I,2,K) - FY(I,1,K))\n          ENDIF\n  400   CONTINUE\n  450 CONTINUE\nC\n      RETURN\n      END\n\n\n      SUBROUTINE TLINE1 (TAUG, COEF1, S, NG, DP, DIP, DT, INPT,  \n     1                   LEV1, GH, N, IPLUS, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     CALCULATION OF OPTICAL DEPTH FOR ONE GAS (LINE CONTRIBUTION ONLY)C\nC     THE GASEOUS ABSORPTION COEFFICIENTS IN UNITS OF CM^2 / GRAM.     C\nC     S IN MASS MIXING RATIO. ABSORPTION COEFFICIENT ARE CALCULATED    C\nC     AT THE TEMPERATURE T FOR THE 18 OR 26 (28) PRESSURE LEVELS.      C\nC     ISL = 1 FOR SOLAR, ISL = 2 FOR INFRARED.                         C\nC                                                                      C\nC     TAUG: GASEOUS OPTICAL DEPTH                                      C\nC     S:    INPUT GAS MIXING RATIO FOR EACH LAYER                      C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC     DIP:  INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO NEIGHBORING C\nC           STANDARD INPUT DATA PRESSURE LEVELS                        C\nC     DT:   LAYER TEMPERATURE - 250 K                                  C\nC     INPT: NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES  C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY), COEF1(5,N), S(ILG,LAY), DP(ILG,LAY),\n     1     DIP(ILG,LAY), DT(ILG,LAY), S1(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC=======================================================================\n      IF (GH)                                                       THEN\n        LAY1 =  1\n      ELSE\n        LAY1 =  LEV1\n      ENDIF\n      LAY2   =  LAY\nC\nC     * INITIALIZE TAUG IF IPLUS=2.\nC\n      IF (IPLUS .EQ. 2) THEN\n        DO  50 K = LAY1, LAY2\n        DO  50 I = IL1, IL2\n          TAUG(I,K)     =  0.\n   50   CONTINUE\n      ENDIF\nC\n      IF (NG .EQ. 1)                                                THEN\n        DO 100 K = LAY1, LAY2\n        DO 100 I = IL1, IL2\n          S1(I,K)       =  S(I,K)\n  100   CONTINUE       \nC      \n      ELSE IF (NG .EQ. 3)                                           THEN\n        DO 300 K = LAY1, LAY2\n        DO 300 I = IL1, IL2\n          S1(I,K)       =  RMCO2\n  300   CONTINUE\nC\n      ELSE IF (NG .EQ. 5)                                           THEN\n        DO 500 K = LAY1, LAY2\n        DO 500 I = IL1, IL2\n          S1(I,K)       =  RMN2O\n  500   CONTINUE\nC\n      ELSE IF (NG .EQ. 6)                                           THEN\n        DO 600 K = LAY1, LAY2\n        DO 600 I = IL1, IL2\n          S1(I,K)       =  RMO2\n  600   CONTINUE\n      ENDIF\nC\n      DO 2000 K = LAY1, LAY2\n        IF (INPT(1,K) .LT. 950)                                     THEN\n          DO 1000 I = IL1, IL2  \n            M  =  INPT(I,K)\n            N  =  M + 1\n            X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) + \n     1                   DT(I,K) * (COEF1(3,N) + DT(I,K) * \n     2                  (COEF1(4,N) + DT(I,K) * COEF1(5,N))))\n            IF (M .GT. 0)                                           THEN\n              X1      =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) + \n     1                   DT(I,K) * (COEF1(3,M) + DT(I,K) * \n     2                  (COEF1(4,M) + DT(I,K) * COEF1(5,M))))\n            ELSE\n              X1      =  0.0\n            ENDIF\nC\n            TAUG(I,K) =  TAUG(I,K) + (X1 + (X2 - X1) * DIP(I,K)) * \n     1                   S1(I,K) * DP(I,K)\n 1000     CONTINUE        \n        ELSE\n          M  =  INPT(1,K) - 1000\n          N  =  M + 1\n          DO 1500 I = IL1, IL2\n            X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) + \n     1                   DT(I,K) * (COEF1(3,N) + DT(I,K) * \n     2                  (COEF1(4,N) + DT(I,K) * COEF1(5,N))))\n            IF (M .GT. 0)                                           THEN\n              X1      =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) + \n     1                   DT(I,K) * (COEF1(3,M) + DT(I,K) * \n     2                  (COEF1(4,M) + DT(I,K) * COEF1(5,M))))\n            ELSE\n              X1      =  0.0\n            ENDIF\nC\n            TAUG(I,K) =  TAUG(I,K) + (X1 + (X2 - X1) * DIP(I,K)) * \n     1                     S1(I,K) * DP(I,K)\n 1500     CONTINUE\n        ENDIF \n 2000 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE TLINE2 (TAUG, COEF1, COEF2, S1, S, NG2, DP, DIP, DT,\n     1                   INPT, LEV1, GH, N, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     THE SAME AS TLINE1, BUT WITH TWO MIXED GASES, ONE MUST BE H2O    C\nC                                                                      C\nC     TAUG: GASEOUS OPTICAL DEPTH                                      C\nC     S1:   INPUT H2O MIXING RATIO FOR EACH LAYER                      C\nC     S:    INPUT ANOTHER GAS MIXING RATIO FOR EACH LAYER              C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC     DIP:  INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO NEIGHBORING C\nC           STANDARD INPUT DATA PRESSURE LEVELS                        C\nC     DT:   LAYER TEMPERATURE - 250 K                                  C\nC     INPT: NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES  C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY), COEF1(5,N), COEF2(5,N), S1(ILG,LAY), \n     1     S(ILG,LAY), DP(ILG,LAY), DIP(ILG,LAY), DT(ILG,LAY),\n     2     S2(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC=======================================================================\n      IF (GH)                                                       THEN\n        LAY1 =  1\n      ELSE\n        LAY1 =  LEV1\n      ENDIF\n      LAY2   =  LAY\nC\n      IF (NG2 .EQ. 2)                                               THEN\n        DO 200 K = LAY1, LAY2\n        DO 200 I = IL1, IL2\n          S2(I,K)     =  S(I,K)\n  200   CONTINUE\nC\n      ELSE IF (NG2 .EQ. 3)                                          THEN\n        DO 300 K = LAY1, LAY2\n        DO 300 I = IL1, IL2\n          S2(I,K)     =  RMCO2\n  300   CONTINUE\nC\n      ELSE IF (NG2 .EQ. 4)                                          THEN\n          DO 400 K = LAY1, LAY2\n          DO 400 I = IL1, IL2\n          S2(I,K)     =  RMCH4\n  400   CONTINUE\nC\n      ELSE IF (NG2 .EQ. 5)                                          THEN\n        DO 500 K = LAY1, LAY2\n        DO 500 I = IL1, IL2\n          S2(I,K)     =  RMN2O\n  500   CONTINUE\nC\n      ELSE IF (NG2 .EQ. 6)                                          THEN\n        DO 600 K = LAY1, LAY2\n        DO 600 I = IL1, IL2\n          S2(I,K)     =  RMO2\n  600   CONTINUE\n      ENDIF\nC\n      DO 2000 K = LAY1, LAY2\n        IF (INPT(1,K) .LT. 950)                                     THEN\n          DO 1000 I = IL1, IL2\n            M  =  INPT(I,K)\n            N  =  M + 1\n            X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) + DT(I,K) * \n     1                  (COEF1(3,N) + DT(I,K) * (COEF1(4,N) +\n     2                   DT(I,K) * COEF1(5,N))))\nC\n            Y2        =  COEF2(1,N) + DT(I,K) * (COEF2(2,N) + DT(I,K) * \n     1                  (COEF2(3,N) + DT(I,K) * (COEF2(4,N) +\n     2                   DT(I,K) * COEF2(5,N))))\n            IF (M .GT. 0)                                           THEN\n              X1      =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) + DT(I,K) *\n     1                  (COEF1(3,M) + DT(I,K) * (COEF1(4,M) +\n     2                   DT(I,K) * COEF1(5,M))))\nC\n              Y1      =  COEF2(1,M) + DT(I,K) * (COEF2(2,M) + DT(I,K) * \n     1                  (COEF2(3,M) + DT(I,K) * (COEF2(4,M) +\n     2                   DT(I,K) * COEF2(5,M))))\n            ELSE\n              X1      =  0.0\n              Y1      =  0.0\n            ENDIF\nC\n            TAUG(I,K) = ( (X1 + (X2 - X1) * DIP(I,K)) * S1(I,K) +\n     1                    (Y1 + (Y2 - Y1) * DIP(I,K)) * S2(I,K) ) * \n     1                     DP(I,K)\n 1000     CONTINUE        \n        ELSE\n          M  =  INPT(1,K) - 1000\n          N  =  M + 1\n          DO 1500 I = IL1, IL2\n            X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) + DT(I,K) *\n     1                  (COEF1(3,N) + DT(I,K) * (COEF1(4,N) +\n     2                   DT(I,K) * COEF1(5,N))))\nC\n            Y2        =  COEF2(1,N) + DT(I,K) * (COEF2(2,N) + DT(I,K) *\n     1                  (COEF2(3,N) + DT(I,K) * (COEF2(4,N) +\n     2                   DT(I,K) * COEF2(5,N))))\n            IF (M .GT. 0)                                           THEN\n              X1      =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) + DT(I,K) *\n     1                  (COEF1(3,M) + DT(I,K) * (COEF1(4,M) +\n     2                   DT(I,K) * COEF1(5,M))))\nC\n              Y1      =  COEF2(1,M) + DT(I,K) * (COEF2(2,M) + DT(I,K) *\n     1                  (COEF2(3,M) + DT(I,K) * (COEF2(4,M) +\n     2                   DT(I,K) * COEF2(5,M))))\n            ELSE\n              X1      =  0.0\n              Y1      =  0.0\n            ENDIF\nC\n            TAUG(I,K) = ( (X1 + (X2 - X1) * DIP(I,K)) * S1(I,K) +\n     1                    (Y1 + (Y2 - Y1) * DIP(I,K)) * S2(I,K) ) *\n     1                     DP(I,K)\n 1500     CONTINUE\n        ENDIF \n 2000 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE TLINE3 (TAUG, COEF1, COEF2, COEF3, S1, NG2, NG3,\n     1                   DP, DIP, DT, INPT, LEV1, GH, N,  \n     2                   IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     THE SAME AS TLINEL, BUT WITH THREE MIXED GASES. ONE WITH VARYING C\nC     MIXING RATIO THE OTHER TWO WITH CONSTANT MIXING RATIO            C\nC                                                                      C\nC     TAUG: GASEOUS OPTICAL DEPTH                                      C\nC     S1:   INPUT H2O MIXING RATIO FOR EACH LAYER                      C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC     DIP:  INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO NEIGHBORING C\nC           STANDARD INPUT DATA PRESSURE LEVELS                        C\nC     DT:   LAYER TEMPERATURE - 250 K                                  C\nC     INPT: NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES  C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY), COEF1(5,N), COEF2(5,N), COEF3(5,N), \n     1     S1(ILG,LAY), DP(ILG,LAY), DIP(ILG,LAY), DT(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC=======================================================================\n      IF (NG2 .EQ. 3) S2 =  RMCO2\n      IF (NG2 .EQ. 4) S2 =  RMCH4\n      IF (NG2 .EQ. 5) S2 =  RMN2O\n      IF (NG2 .EQ. 6) S2 =  RMO2\n      IF (NG2 .EQ. 7) S2 =  RMF11\n      IF (NG2 .EQ. 8) S2 =  RMF12\n      iF (NG3 .EQ. 7) S3 =  RMF11\n      IF (NG3 .EQ. 8) S3 =  RMF12\n \nC\n      IF (NG3 .EQ. 3) S3 =  RMCO2\n      IF (NG3 .EQ. 4) S3 =  RMCH4\n      IF (NG3 .EQ. 5) S3 =  RMN2O\n      IF (NG3 .EQ. 6) S3 =  RMO2\nC\n      IF (GH)                                                       THEN\n        LAY1 =  1\n      ELSE\n        LAY1 =  LEV1\n      ENDIF\n      LAY2   =  LAY\nC\n      DO 200 K = LAY1, LAY2\n        IF (INPT(1,K) .LT. 950)                                     THEN\n          DO 100 I = IL1, IL2\n            M  =  INPT(I,K)\n            N  =  M + 1\n            X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) + DT(I,K) *\n     1                  (COEF1(3,N) + DT(I,K) * (COEF1(4,N) +\n     2                   DT(I,K) * COEF1(5,N))))\nC\n            Y2        =  COEF2(1,N) + DT(I,K) * (COEF2(2,N) + DT(I,K) *\n     1                  (COEF2(3,N) + DT(I,K) * (COEF2(4,N) +\n     2                   DT(I,K) * COEF2(5,N))))\nC\n            Z2        =  COEF3(1,N) + DT(I,K) * (COEF3(2,N) + DT(I,K) * \n     1                  (COEF3(3,N) + DT(I,K) * (COEF3(4,N) +\n     2                   DT(I,K) * COEF3(5,N))))\n            IF (M .GT. 0)                                           THEN\n              X1      =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) + DT(I,K) *\n     1                  (COEF1(3,M) + DT(I,K) * (COEF1(4,M) +\n     2                   DT(I,K) * COEF1(5,M))))\nC\n              Y1      =  COEF2(1,M) + DT(I,K) * (COEF2(2,M) + DT(I,K) *\n     1                  (COEF2(3,M) + DT(I,K) * (COEF2(4,M) +\n     2                   DT(I,K) * COEF2(5,M))))\nC\n              Z1      =  COEF3(1,M) + DT(I,K) * (COEF3(2,M) + DT(I,K) *\n     1                  (COEF3(3,M) + DT(I,K) * (COEF3(4,M) +\n     2                   DT(I,K) * COEF3(5,M))))\n            ELSE\n              X1      =  0.0\n              Y1      =  0.0\n              Z1      =  0.0\n            ENDIF\nC\n            TAUG(I,K) = ( (X1 + (X2 - X1) * DIP(I,K)) * S1(I,K) +\n     1                    (Y1 + (Y2 - Y1) * DIP(I,K)) * S2 +\n     2                    (Z1 + (Z2 - Z1) * DIP(I,K)) * S3  ) * DP(I,K)\n  100     CONTINUE        \n        ELSE\n          M  =  INPT(1,K) - 1000\n          N  =  M + 1\n          DO 150 I = IL1, IL2\n            X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) + DT(I,K) * \n     1                  (COEF1(3,N) + DT(I,K) * (COEF1(4,N) +\n     2                   DT(I,K) * COEF1(5,N))))\nC\n            Y2        =  COEF2(1,N) + DT(I,K) * (COEF2(2,N) + DT(I,K) * \n     1                  (COEF2(3,N) + DT(I,K) * (COEF2(4,N) +\n     2                   DT(I,K) * COEF2(5,N))))\nC\n            Z2        =  COEF3(1,N) + DT(I,K) * (COEF3(2,N) + DT(I,K) * \n     1                  (COEF3(3,N) + DT(I,K) * (COEF3(4,N) +\n     2                   DT(I,K) * COEF3(5,N))))\n            IF (M .GT. 0)                                           THEN\n              X1      =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) + DT(I,K) *\n     1                  (COEF1(3,M) + DT(I,K) * (COEF1(4,M) +\n     2                   DT(I,K) * COEF1(5,M))))\nC\n              Y1      =  COEF2(1,M) + DT(I,K) * (COEF2(2,M) + DT(I,K) *\n     1                  (COEF2(3,M) + DT(I,K) * (COEF2(4,M) +\n     2                   DT(I,K) * COEF2(5,M))))\nC\n              Z1      =  COEF3(1,M) + DT(I,K) * (COEF3(2,M) + DT(I,K) *\n     1                  (COEF3(3,M) + DT(I,K) * (COEF3(4,M) +\n     2                   DT(I,K) * COEF3(5,M))))\n            ELSE\n              X1      =  0.0\n              Y1      =  0.0\n              Z1      =  0.0\n            ENDIF\nC\n            TAUG(I,K) = ( (X1 + (X2 - X1) * DIP(I,K)) * S1(I,K) +\n     1                    (Y1 + (Y2 - Y1) * DIP(I,K)) * S2 +\n     2                    (Z1 + (Z2 - Z1) * DIP(I,K)) * S3  ) * DP(I,K)\n\n  150     CONTINUE\n        ENDIF \n  200 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE TLINEHC (TAUG, COEF1U, COEF1D, COEF2U, COEF2D, S, DP, \n     1                    DIP, DIR, DT, INPTR, INPT, LEV1,\n     2                    IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     THIS SUBROUTINE DETERMINES THE OPTICAL DEPTH FOR H2O AND CO2 IN  C\nC     THE REGION OF 540-800 CM^-1                                      C\nC                                                                      C\nC     TAUG: GASEOUS OPTICAL DEPTH                                      C\nC     S:    INPUT H2O MIXING RATIO FOR EACH LAYER                      C\nC     DP:   AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).     C\nC     DIP:  INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO NEIGHBORING C\nC           STANDARD INPUT DATA PRESSURE LEVELS                        C\nC     DIR:  INTERPRETATION FACTOR FOR MASS RATIO OF H2O / CO2 BETWEEN  C\nC           TWO NEIGHBORING STANDARD INPUT RATIOS                      C\nC     DT:   LAYER TEMPERATURE - 250 K                                  C\nC     INPR: NUMBER OF THE RATIO LEVEL FOR THE STANDARD 5 RATIOS        C\nC     INPT: NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES  C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY), COEF1U(5,11), COEF1D(5,5,7), \n     1                    COEF2U(5,11), COEF2D(5,5,7)\n      REAL S(ILG,LAY), DP(ILG,LAY), DIP(ILG,LAY), DIR(ILG,LAY), \n     1     DT(ILG,LAY)\n      INTEGER INPTR(ILG,LAY), INPT(ILG,LAY)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114\nC=======================================================================\n      DO 300 K = LEV1, LAY\n       IF (INPT(1,K) .LT. 950)                                      THEN\n        DO 100 I = IL1, IL2\n         M =  INPT(I,K)\n         IF (M .LE. 11)                                             THEN\n          N     =  M + 1\n          IF (M .GT. 0)                                             THEN\n            X1  =  COEF1U(1,M) + DT(I,K) * (COEF1U(2,M) + DT(I,K) * \n     1            (COEF1U(3,M) + DT(I,K) * (COEF1U(4,M) +\n     2             DT(I,K) * COEF1U(5,M))))\n            Y1  =  COEF2U(1,M) + DT(I,K) * (COEF2U(2,M) + DT(I,K) * \n     1            (COEF2U(3,M) + DT(I,K) * (COEF2U(4,M) +\n     2             DT(I,K) * COEF2U(5,M))))\n          ELSE\n            X1  =  0.0\n            Y1  =  0.0\n          ENDIF\n          IF (M .LT. 11)                                            THEN\n            X2  =  COEF1U(1,N) + DT(I,K) * (COEF1U(2,N) + DT(I,K) * \n     1            (COEF1U(3,N) + DT(I,K) * (COEF1U(4,N) +\n     2             DT(I,K) * COEF1U(5,N))))\n            Y2  =  COEF2U(1,N) + DT(I,K) * (COEF2U(2,N) + DT(I,K) * \n     1            (COEF2U(3,N) + DT(I,K) * (COEF2U(4,N) +\n     2             DT(I,K) * COEF2U(5,N))))\n          ELSE\n            X2  =  COEF1D(1,1,1) + DT(I,K) * (COEF1D(2,1,1) + DT(I,K) *\n     1            (COEF1D(3,1,1) + DT(I,K) * (COEF1D(4,1,1) +\n     2             DT(I,K) * COEF1D(5,1,1))))\n            Y2  =  COEF2D(1,1,1) + DT(I,K) * (COEF2D(2,1,1) + DT(I,K) *\n     1            (COEF2D(3,1,1) + DT(I,K) * (COEF2D(4,1,1) +\n     2             DT(I,K) * COEF2D(5,1,1))))\n          ENDIF\n         ELSE\n          J     =  M - 11\n          N     =  J + 1\n          L     =  INPTR(I,K)\n          IF (L .LT. 1)                                             THEN\n            X1  =  COEF1D(1,1,J) + DT(I,K) * (COEF1D(2,1,J) + DT(I,K) * \n     1            (COEF1D(3,1,J) + DT(I,K) * (COEF1D(4,1,J) +\n     2             DT(I,K) * COEF1D(5,1,J))))\n            X2  =  COEF1D(1,1,N) + DT(I,K) * (COEF1D(2,1,N) + DT(I,K) * \n     1            (COEF1D(3,1,N) + DT(I,K) * (COEF1D(4,1,N) +\n     2             DT(I,K) * COEF1D(5,1,N))))\nC\n            Y1  =  COEF2D(1,1,J) + DT(I,K) * (COEF2D(2,1,J) + DT(I,K) * \n     1            (COEF2D(3,1,J) + DT(I,K) * (COEF2D(4,1,J) +\n     2             DT(I,K) * COEF2D(5,1,J))))\n            Y2  =  COEF2D(1,1,N) + DT(I,K) * (COEF2D(2,1,N) + DT(I,K) * \n     1            (COEF2D(3,1,N) + DT(I,K) * (COEF2D(4,1,N) +\n     2             DT(I,K) * COEF2D(5,1,N))))\nC\n          ELSE IF (L .LT. 5)                                        THEN\n            LP1 =  L + 1\n            X11 =  COEF1D(1,L,J) + DT(I,K) * (COEF1D(2,L,J) + DT(I,K) * \n     1            (COEF1D(3,L,J) + DT(I,K) * (COEF1D(4,L,J) +\n     2             DT(I,K) * COEF1D(5,L,J))))\n            X21 =  COEF1D(1,L,N) + DT(I,K) * (COEF1D(2,L,N) + DT(I,K) * \n     1            (COEF1D(3,L,N) + DT(I,K) * (COEF1D(4,L,N) +\n     2             DT(I,K) * COEF1D(5,L,N))))\nC\n            Y11 =  COEF2D(1,L,J) + DT(I,K) * (COEF2D(2,L,J) + DT(I,K) * \n     1            (COEF2D(3,L,J) + DT(I,K) * (COEF2D(4,L,J) +\n     2             DT(I,K) * COEF2D(5,L,J))))\n            Y21 =  COEF2D(1,L,N) + DT(I,K) * (COEF2D(2,L,N) + DT(I,K) * \n     1            (COEF2D(3,L,N) + DT(I,K) * (COEF2D(4,L,N) +\n     2             DT(I,K) * COEF2D(5,L,N))))\nC\n            X12 =  COEF1D(1,LP1,J) + DT(I,K) * (COEF1D(2,LP1,J) +\n     1                               DT(I,K) * (COEF1D(3,LP1,J) + \n     2                               DT(I,K) * (COEF1D(4,LP1,J) + \n     3                               DT(I,K) * COEF1D(5,LP1,J))))\n            X22 =  COEF1D(1,LP1,N) + DT(I,K) * (COEF1D(2,LP1,N) +\n     1                               DT(I,K) * (COEF1D(3,LP1,N) + \n     2                               DT(I,K) * (COEF1D(4,LP1,N) + \n     3                               DT(I,K) * COEF1D(5,LP1,N))))\nC\n            Y12 =  COEF2D(1,LP1,J) + DT(I,K) * (COEF2D(2,LP1,J) +\n     1                               DT(I,K) * (COEF2D(3,LP1,J) + \n     2                               DT(I,K) * (COEF2D(4,LP1,J) + \n     3                               DT(I,K) * COEF2D(5,LP1,J))))\n            Y22 =  COEF2D(1,LP1,N) + DT(I,K) * (COEF2D(2,LP1,N) +\n     1                               DT(I,K) * (COEF2D(3,LP1,N) + \n     2                               DT(I,K) * (COEF2D(4,LP1,N) + \n     3                               DT(I,K) * COEF2D(5,LP1,N))))\nC\n            X1  =  X11 + (X12 - X11) * DIR(I,K)\n            X2  =  X21 + (X22 - X21) * DIR(I,K)\n            Y1  =  Y11 + (Y12 - Y11) * DIR(I,K)\n            Y2  =  Y21 + (Y22 - Y21) * DIR(I,K)\n          ELSE\n            X1  =  COEF1D(1,5,J) + DT(I,K) * (COEF1D(2,5,J) + DT(I,K) * \n     1            (COEF1D(3,5,J) + DT(I,K) * (COEF1D(4,5,J) +\n     2             DT(I,K) * COEF1D(5,5,J))))\n            X2  =  COEF1D(1,5,N) + DT(I,K) * (COEF1D(2,5,N) + DT(I,K) * \n     1            (COEF1D(3,5,N) + DT(I,K) * (COEF1D(4,5,N) +\n     2             DT(I,K) * COEF1D(5,5,N))))\n            Y1  =  COEF2D(1,5,J) + DT(I,K) * (COEF2D(2,5,J) + DT(I,K) * \n     1            (COEF2D(3,5,J) + DT(I,K) * (COEF2D(4,5,J) +\n     2             DT(I,K) * COEF2D(5,5,J))))\n            Y2  =  COEF2D(1,5,N) + DT(I,K) * (COEF2D(2,5,N) + DT(I,K) *\n     1            (COEF2D(3,5,N) + DT(I,K) * (COEF2D(4,5,N) +\n     2             DT(I,K) * COEF2D(5,5,N))))\n          ENDIF\n         ENDIF\nC\n         TAUG(I,K) = ( (X1 + (X2 - X1) * DIP(I,K)) * S(I,K) +\n     1                 (Y1 + (Y2 - Y1) * DIP(I,K)) * RMCO2 ) * DP(I,K)\n  100   CONTINUE\nC\n       ELSE\n        M =  INPT(1,K) - 1000\n        DO 200 I = IL1, IL2\n         IF (M .LE. 11)                                             THEN\n          N     =  M + 1\n          IF (M .GT. 0)                                             THEN\n            X1  =  COEF1U(1,M) + DT(I,K) * (COEF1U(2,M) + DT(I,K) * \n     1            (COEF1U(3,M) + DT(I,K) * (COEF1U(4,M) +\n     2             DT(I,K) * COEF1U(5,M))))\n            Y1  =  COEF2U(1,M) + DT(I,K) * (COEF2U(2,M) + DT(I,K) * \n     1            (COEF2U(3,M) + DT(I,K) * (COEF2U(4,M) +\n     2             DT(I,K) * COEF2U(5,M))))\n          ELSE\n            X1  =  0.0\n            Y1  =  0.0\n          ENDIF\n          IF (M .LT. 11)                                            THEN\n            X2  =  COEF1U(1,N) + DT(I,K) * (COEF1U(2,N) + DT(I,K) * \n     1            (COEF1U(3,N) + DT(I,K) * (COEF1U(4,N) +\n     2             DT(I,K) * COEF1U(5,N))))\n            Y2  =  COEF2U(1,N) + DT(I,K) * (COEF2U(2,N) + DT(I,K) * \n     1            (COEF2U(3,N) + DT(I,K) * (COEF2U(4,N) +\n     2             DT(I,K) * COEF2U(5,N))))\n          ELSE\n            X2  =  COEF1D(1,1,1) + DT(I,K) * (COEF1D(2,1,1) + DT(I,K) *\n     1            (COEF1D(3,1,1) + DT(I,K) * (COEF1D(4,1,1) +\n     2             DT(I,K) * COEF1D(5,1,1))))\n            Y2  =  COEF2D(1,1,1) + DT(I,K) * (COEF2D(2,1,1) + DT(I,K) *\n     1            (COEF2D(3,1,1) + DT(I,K) * (COEF2D(4,1,1) +\n     2             DT(I,K) * COEF2D(5,1,1))))\n          ENDIF\n         ELSE\n          J     =  M - 11\n          N     =  J + 1\n          L     =  INPTR(I,K)\n          IF (L .LT. 1)                                             THEN\n            X1  =  COEF1D(1,1,J) + DT(I,K) * (COEF1D(2,1,J) + DT(I,K) * \n     1            (COEF1D(3,1,J) + DT(I,K) * (COEF1D(4,1,J) +\n     2             DT(I,K) * COEF1D(5,1,J))))\n            X2  =  COEF1D(1,1,N) + DT(I,K) * (COEF1D(2,1,N) + DT(I,K) * \n     1            (COEF1D(3,1,N) + DT(I,K) * (COEF1D(4,1,N) +\n     2             DT(I,K) * COEF1D(5,1,N))))\nC\n            Y1  =  COEF2D(1,1,J) + DT(I,K) * (COEF2D(2,1,J) + DT(I,K) * \n     1            (COEF2D(3,1,J) + DT(I,K) * (COEF2D(4,1,J) +\n     2             DT(I,K) * COEF2D(5,1,J))))\n            Y2  =  COEF2D(1,1,N) + DT(I,K) * (COEF2D(2,1,N) + DT(I,K) * \n     1            (COEF2D(3,1,N) + DT(I,K) * (COEF2D(4,1,N) +\n     2             DT(I,K) * COEF2D(5,1,N))))\nC\n          ELSE IF (L .LT. 5)                                        THEN\n            LP1 =  L + 1\n            X11 =  COEF1D(1,L,J) + DT(I,K) * (COEF1D(2,L,J) + DT(I,K) * \n     1            (COEF1D(3,L,J) + DT(I,K) * (COEF1D(4,L,J) +\n     2             DT(I,K) * COEF1D(5,L,J))))\n            X21 =  COEF1D(1,L,N) + DT(I,K) * (COEF1D(2,L,N) + DT(I,K) * \n     1            (COEF1D(3,L,N) + DT(I,K) * (COEF1D(4,L,N) +\n     2             DT(I,K) * COEF1D(5,L,N))))\nC\n            Y11 =  COEF2D(1,L,J) + DT(I,K) * (COEF2D(2,L,J) + DT(I,K) * \n     1            (COEF2D(3,L,J) + DT(I,K) * (COEF2D(4,L,J) +\n     2             DT(I,K) * COEF2D(5,L,J))))\n            Y21 =  COEF2D(1,L,N) + DT(I,K) * (COEF2D(2,L,N) + DT(I,K) * \n     1            (COEF2D(3,L,N) + DT(I,K) * (COEF2D(4,L,N) +\n     2             DT(I,K) * COEF2D(5,L,N))))\nC\n            X12 =  COEF1D(1,LP1,J) + DT(I,K) * (COEF1D(2,LP1,J) +\n     1                               DT(I,K) * (COEF1D(3,LP1,J) + \n     2                               DT(I,K) * (COEF1D(4,LP1,J) + \n     3                               DT(I,K) * COEF1D(5,LP1,J))))\n            X22 =  COEF1D(1,LP1,N) + DT(I,K) * (COEF1D(2,LP1,N) +\n     1                               DT(I,K) * (COEF1D(3,LP1,N) + \n     2                               DT(I,K) * (COEF1D(4,LP1,N) + \n     3                               DT(I,K) * COEF1D(5,LP1,N))))\nC\n            Y12 =  COEF2D(1,LP1,J) + DT(I,K) * (COEF2D(2,LP1,J) +\n     1                               DT(I,K) * (COEF2D(3,LP1,J) + \n     2                               DT(I,K) * (COEF2D(4,LP1,J) + \n     3                               DT(I,K) * COEF2D(5,LP1,J))))\n            Y22 =  COEF2D(1,LP1,N) + DT(I,K) * (COEF2D(2,LP1,N) +\n     1                               DT(I,K) * (COEF2D(3,LP1,N) + \n     2                               DT(I,K) * (COEF2D(4,LP1,N) + \n     3                               DT(I,K) * COEF2D(5,LP1,N))))\nC\n            X1  =  X11 + (X12 - X11) * DIR(I,K)\n            X2  =  X21 + (X22 - X21) * DIR(I,K)\n            Y1  =  Y11 + (Y12 - Y11) * DIR(I,K)\n            Y2  =  Y21 + (Y22 - Y21) * DIR(I,K)\n          ELSE\n            X1  =  COEF1D(1,5,J) + DT(I,K) * (COEF1D(2,5,J) + DT(I,K) * \n     1            (COEF1D(3,5,J) + DT(I,K) * (COEF1D(4,5,J) +\n     2             DT(I,K) * COEF1D(5,5,J))))\n            X2  =  COEF1D(1,5,N) + DT(I,K) * (COEF1D(2,5,N) + DT(I,K) * \n     1            (COEF1D(3,5,N) + DT(I,K) * (COEF1D(4,5,N) +\n     2             DT(I,K) * COEF1D(5,5,N))))\n            Y1  =  COEF2D(1,5,J) + DT(I,K) * (COEF2D(2,5,J) + DT(I,K) * \n     1            (COEF2D(3,5,J) + DT(I,K) * (COEF2D(4,5,J) +\n     2             DT(I,K) * COEF2D(5,5,J))))\n            Y2  =  COEF2D(1,5,N) + DT(I,K) * (COEF2D(2,5,N) + DT(I,K) *\n     1            (COEF2D(3,5,N) + DT(I,K) * (COEF2D(4,5,N) +\n     2             DT(I,K) * COEF2D(5,5,N))))\n          ENDIF\n         ENDIF\nC\n         TAUG(I,K) = ( (X1 + (X2 - X1) * DIP(I,K)) * S(I,K) +\n     1                 (Y1 + (Y2 - Y1) * DIP(I,K)) * RMCO2 ) * DP(I,K)\n  200   CONTINUE\n       ENDIF\n  300 CONTINUE\n\n      RETURN\n      END\n\n      SUBROUTINE TCONTL1 (TAUG, COEF1, COEF2, S, DP, DIP, DT, LC, INPT,\n     1                    MCONT, GH, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     INFRARED WATER VAPOR CONTINUUM, COEF1 IS THE COEFFICIENT FOR     C\nC     SELF, COEF2 IS THE COEFFICIENT FOR FOREIGN. THE CONTINUUM ONLY   C\nC     APPLIES TO THE LAYERS BELOW 138.9440 MB OR EVEN LOWER REGION     C\nC     DEPENDING ON EACH BAND. LC IS NUMBER OF LEVEL FOR STANDARD       C\nC     PRESSURE CONSIDERED IN CALCULATING THE CONTINUUM.                C\nC     1.608 = 28.97 / 18.016, A FCTR FOR WATER VAPOR PARTIAL PRESSURE  C\nC                                                                      C\nC     TAUG:  GASEOUS OPTICAL DEPTH                                     C\nC     S:     INPUT H2O MIXING RATIO FOR EACH LAYER                     C\nC     DP:    AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).    C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     INPT:  NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC     MCONT: THE HIGHEST LEVEL FOR WATER VAPOR CONTINUUM CALCULATION   C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY), COEF1(5,LC), COEF2(5,LC)\n      REAL S(ILG,LAY), DP(ILG,LAY), DIP(ILG,LAY), DT(ILG,LAY)\n      INTEGER INPT(ILG,LAY)\n      LOGICAL GH\nC=======================================================================\n      IF (GH)                                                       THEN\n        NC =  29 - LC\n      ELSE\n        NC =  19 - LC\n      ENDIF\nC \n      DO 200 K = MCONT, LAY\n        IF (INPT(1,K) .LT. 950)                                     THEN\n          DO 100 I = IL1, IL2\n            J =  INPT(I,K)\n            IF (J .GE. NC)                                          THEN\n              M  =  J - NC + 1\n              N  =  M + 1\n              X1        =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) +\n     1                     DT(I,K) * (COEF1(3,M) + DT(I,K) *\n     2                    (COEF1(4,M) + DT(I,K) * COEF1(5,M))))\nC\n              X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) +\n     1                     DT(I,K) * (COEF1(3,N) + DT(I,K) *\n     2                    (COEF1(4,N) + DT(I,K) * COEF1(5,N))))\nC\n              Y1        =  COEF2(1,M) + DT(I,K) * (COEF2(2,M) +\n     1                     DT(I,K) * (COEF2(3,M) + DT(I,K) *\n     2                    (COEF2(4,M) + DT(I,K) * COEF2(5,M))))\nC\n              Y2        =  COEF2(1,N) + DT(I,K) * (COEF2(2,N) +\n     1                     DT(I,K) * (COEF2(3,N) + DT(I,K) *\n     2                    (COEF2(4,N) + DT(I,K) * COEF2(5,N))))\nC\n              TAUG(I,K) =  TAUG(I,K) +\n     1                    ( (X1 - Y1 + (X2 - X1 - Y2 + Y1) *\n     2                     DIP(I,K)) * 1.608 * S(I,K) +\n     3                     Y1 + (Y2 - Y1) * DIP(I,K) ) *\n     4                     S(I,K) * DP(I,K)\n            ENDIF\n  100     CONTINUE\n        ELSE\n          J  =  INPT(1,K) - 1000\n          M  =  J - NC + 1\n          N  =  M + 1\n          DO 150 I = IL1, IL2\n            IF (J .GE. NC)                                          THEN\n              X1        =  COEF1(1,M) + DT(I,K) * (COEF1(2,M) +\n     1                     DT(I,K) * (COEF1(3,M) + DT(I,K) *\n     2                    (COEF1(4,M) + DT(I,K) * COEF1(5,M))))\nC\n              X2        =  COEF1(1,N) + DT(I,K) * (COEF1(2,N) +\n     1                     DT(I,K) * (COEF1(3,N) + DT(I,K) *\n     2                    (COEF1(4,N) + DT(I,K) * COEF1(5,N))))\nC\n              Y1        =  COEF2(1,M) + DT(I,K) * (COEF2(2,M) +\n     1                     DT(I,K) * (COEF2(3,M) + DT(I,K) *\n     2                    (COEF2(4,M) + DT(I,K) * COEF2(5,M))))\nC\n              Y2        =  COEF2(1,N) + DT(I,K) * (COEF2(2,N) +\n     1                     DT(I,K) * (COEF2(3,N) + DT(I,K) *\n     2                    (COEF2(4,N) + DT(I,K) * COEF2(5,N))))\nC\n              TAUG(I,K) =  TAUG(I,K) +\n     1                    ( (X1 - Y1 + (X2 - X1 - Y2 + Y1) *\n     2                     DIP(I,K)) * 1.608 * S(I,K) +\n     3                     Y1 + (Y2 - Y1) * DIP(I,K) ) *\n     4                     S(I,K) * DP(I,K)\n            ENDIF\n  150     CONTINUE\n        ENDIF\n  200 CONTINUE\nC\n      RETURN\n      END\n\n      SUBROUTINE TCONTHL (TAUG, COEF1, COEF2, S, DP, DIP, DIR, DT, \n     1                    INPTR, INPT, MCONT, IL1, IL2, ILG, LAY)\nC\nC----------------------------------------------------------------------C\nC     WATER VAPOR CONTINUUM FOR 540-800 CM-1. DIFFERENT FROM TCONTL,   C\nC     VARIATION OF MASS MIXING RATIO FOR H2O AND CO2 IS CONSIDER.      C\nC     LC = 4, BUT THE INPTUT DATA ARE WITH 6 GROUP, 2 OF THEM ARE USED C\nC     FOR MASS MIXING RATIO CHANGES                                    C\nC                                                                      C\nC     TAUG:  GASEOUS OPTICAL DEPTH                                     C\nC     S:     INPUT H2O MIXING RATIO FOR EACH LAYER                     C\nC     DP:    AIR MASS PATH FOR A MODEL LAYER (EXLAINED IN RADDRIV).    C\nC     DIP:   INTERPRETATION FACTOR FOR PRESSURE BETWEEN TWO            C\nC            NEIGHBORING STANDARD INPUT DATA PRESSURE LEVELS           C\nC     DT:    LAYER TEMPERATURE - 250 K                                 C\nC     INPT:  NUMBER OF THE LEVEL FOR THE STANDARD INPUT DATA PRESSURES C\nC     MCONT: THE HIGHEST LEVEL FOR WATER VAPOR CONTINUUM CALCULATION   C\nC----------------------------------------------------------------------C\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUG(ILG,LAY), COEF1(5,5,4), COEF2(5,5,4)\nC\n      REAL S(ILG,LAY), DP(ILG,LAY), DIP(ILG,LAY), DIR(ILG,LAY),\n     1     DT(ILG,LAY)\n      INTEGER INPTR(ILG,LAY), INPT(ILG,LAY)\nC\n      COMMON /TRACE / RMCO2, RMCH4, RMN2O, RMO2, RMF11, RMF12, RMF113,\n     1                RMF114 \nC\n      DATA RMIN,RMAX /0.5, 16.0/\nC=======================================================================\n      RRMCO2 =  1. / (RMCO2 + 1.E-10)\nC\n      DO 200 K = MCONT, LAY\n        IF (INPT(1,K) .LT. 950)                                     THEN\n          DO 100 I = IL1, IL2\n            M =  INPT(I,K) - 14\n            N =  M + 1\n            IF (M .GE. 1)                                           THEN\n              L   =  INPTR(I,K)\n              IF (L .LT. 1)                                         THEN\n                X1  =  COEF1(1,1,M) + DT(I,K) * (COEF1(2,1,M) + \n     1                                DT(I,K) * (COEF1(3,1,M) + \n     2                                DT(I,K) * (COEF1(4,1,M) +\n     3                                DT(I,K) * COEF1(5,1,M))))\n                X2  =  COEF1(1,1,N) + DT(I,K) * (COEF1(2,1,N) + \n     1                                DT(I,K) * (COEF1(3,1,N) + \n     2                                DT(I,K) * (COEF1(4,1,N) +\n     3                                DT(I,K) * COEF1(5,1,N))))\nC\n                Y1  =  COEF2(1,1,M) + DT(I,K) * (COEF2(2,1,M) + \n     1                                DT(I,K) * (COEF2(3,1,M) + \n     2                                DT(I,K) * (COEF2(4,1,M) +\n     3                                DT(I,K) * COEF2(5,1,M))))\n                Y2  =  COEF2(1,1,N) + DT(I,K) * (COEF2(2,1,N) +\n     1                                DT(I,K) * (COEF2(3,1,N) + \n     2                                DT(I,K) * (COEF2(4,1,N) +\n     3                                DT(I,K) * COEF2(5,1,N))))\nC\n              ELSE IF (L .LT. 5)                                    THEN\n                LP1 =  L + 1\n                X11 =  COEF1(1,L,M) + DT(I,K) * (COEF1(2,L,M) + \n     1                                DT(I,K) * (COEF1(3,L,M) +\n     2                                DT(I,K) * (COEF1(4,L,M) +\n     3                                DT(I,K) * COEF1(5,L,M))))\n                X21 =  COEF1(1,L,N) + DT(I,K) * (COEF1(2,L,N) + \n     1                                DT(I,K) * (COEF1(3,L,N) +\n     2                                DT(I,K) * (COEF1(4,L,N) +\n     3                                DT(I,K) * COEF1(5,L,N))))\nC\n                Y11 =  COEF2(1,L,M) + DT(I,K) * (COEF2(2,L,M) + \n     1                                DT(I,K) * (COEF2(3,L,M) +\n     2                                DT(I,K) * (COEF2(4,L,M) +\n     3                                DT(I,K) * COEF2(5,L,M))))\n                Y21 =  COEF2(1,L,N) + DT(I,K) * (COEF2(2,L,N) +\n     1                                DT(I,K) * (COEF2(3,L,N) +\n     2                                DT(I,K) * (COEF2(4,L,N) +\n     3                                DT(I,K) * COEF2(5,L,N))))\nC\n                X12 =  COEF1(1,LP1,M) + DT(I,K) * (COEF1(2,LP1,M) +\n     1                                  DT(I,K) * (COEF1(3,LP1,M) +\n     2                                  DT(I,K) * (COEF1(4,LP1,M) +\n     3                                  DT(I,K) * COEF1(5,LP1,M))))\n                X22 =  COEF1(1,LP1,N) + DT(I,K) * (COEF1(2,LP1,N) +\n     1                                  DT(I,K) * (COEF1(3,LP1,N) +\n     2                                  DT(I,K) * (COEF1(4,LP1,N) +\n     3                                  DT(I,K) * COEF1(5,LP1,N))))\nC\n                Y12 =  COEF2(1,LP1,M) + DT(I,K) * (COEF2(2,LP1,M) +\n     1                                  DT(I,K) * (COEF2(3,LP1,M) +\n     2                                  DT(I,K) * (COEF2(4,LP1,M) +\n     3                                  DT(I,K) * COEF2(5,LP1,M))))\n                Y22 =  COEF2(1,LP1,N) + DT(I,K) * (COEF2(2,LP1,N) +\n     1                                  DT(I,K) * (COEF2(3,LP1,N) +\n     2                                  DT(I,K) * (COEF2(4,LP1,N) +\n     3                                  DT(I,K) * COEF2(5,LP1,N))))\nC\n                X1  =  X11 + (X12 - X11) * DIR(I,K)\n                X2  =  X21 + (X22 - X21) * DIR(I,K)\n                Y1  =  Y11 + (Y12 - Y11) * DIR(I,K)\n                Y2  =  Y21 + (Y22 - Y21) * DIR(I,K)\n              ELSE\n                X1  =  COEF1(1,5,M) + DT(I,K) * (COEF1(2,5,M) + \n     1                                DT(I,K) * (COEF1(3,5,M) + \n     2                                DT(I,K) * (COEF1(4,5,M) +\n     3                                DT(I,K) * COEF1(5,5,M))))\n                X2  =  COEF1(1,5,N) + DT(I,K) * (COEF1(2,5,N) + \n     1                                DT(I,K) * (COEF1(3,5,N) + \n     2                                DT(I,K) * (COEF1(4,5,N) +\n     3                                DT(I,K) * COEF1(5,5,N))))\n                Y1  =  COEF2(1,5,M) + DT(I,K) * (COEF2(2,5,M) + \n     1                                DT(I,K) * (COEF2(3,5,M) + \n     2                                DT(I,K) * (COEF2(4,5,M) +\n     3                                DT(I,K) * COEF2(5,5,M))))\n                Y2  =  COEF2(1,5,N) + DT(I,K) * (COEF2(2,5,N) +\n     1                                DT(I,K) * (COEF2(3,5,N) + \n     2                                DT(I,K) * (COEF2(4,5,N) +\n     3                                DT(I,K) * COEF2(5,5,N))))\n              ENDIF\n                TAUG(I,K) =  TAUG(I,K) + ((X1 - Y1 + \n     1                      (X2 - X1 - Y2 + Y1) * DIP(I,K)) * 1.608 * \n     2                       S(I,K) + Y1 + (Y2 - Y1) * DIP(I,K)) * \n     3                       S(I,K) * DP(I,K)\n            ENDIF\n  100     CONTINUE\n        ELSE\n          J  =  INPT(1,K) - 1000\n          M =  J - 14\n          N =  M + 1\n          DO 150 I = IL1, IL2\n            IF (M .GE. 1)                                           THEN\n              L   =  INPTR(I,K)\n              IF (L .LT. 1)                                         THEN\n                X1  =  COEF1(1,1,M) + DT(I,K) * (COEF1(2,1,M) + \n     1                                DT(I,K) * (COEF1(3,1,M) + \n     2                                DT(I,K) * (COEF1(4,1,M) +\n     3                                DT(I,K) * COEF1(5,1,M))))\n                X2  =  COEF1(1,1,N) + DT(I,K) * (COEF1(2,1,N) + \n     1                                DT(I,K) * (COEF1(3,1,N) + \n     2                                DT(I,K) * (COEF1(4,1,N) +\n     3                                DT(I,K) * COEF1(5,1,N))))\nC\n                Y1  =  COEF2(1,1,M) + DT(I,K) * (COEF2(2,1,M) + \n     1                                DT(I,K) * (COEF2(3,1,M) + \n     2                                DT(I,K) * (COEF2(4,1,M) +\n     3                                DT(I,K) * COEF2(5,1,M))))\n                Y2  =  COEF2(1,1,N) + DT(I,K) * (COEF2(2,1,N) +\n     1                                DT(I,K) * (COEF2(3,1,N) + \n     2                                DT(I,K) * (COEF2(4,1,N) +\n     3                                DT(I,K) * COEF2(5,1,N))))\nC\n              ELSE IF (L .LT. 5)                                    THEN\n                LP1 =  L + 1\n                X11 =  COEF1(1,L,M) + DT(I,K) * (COEF1(2,L,M) + \n     1                                DT(I,K) * (COEF1(3,L,M) +\n     2                                DT(I,K) * (COEF1(4,L,M) +\n     3                                DT(I,K) * COEF1(5,L,M))))\n                X21 =  COEF1(1,L,N) + DT(I,K) * (COEF1(2,L,N) + \n     1                                DT(I,K) * (COEF1(3,L,N) +\n     2                                DT(I,K) * (COEF1(4,L,N) +\n     3                                DT(I,K) * COEF1(5,L,N))))\nC\n                Y11 =  COEF2(1,L,M) + DT(I,K) * (COEF2(2,L,M) + \n     1                                DT(I,K) * (COEF2(3,L,M) +\n     2                                DT(I,K) * (COEF2(4,L,M) +\n     3                                DT(I,K) * COEF2(5,L,M))))\n                Y21 =  COEF2(1,L,N) + DT(I,K) * (COEF2(2,L,N) +\n     1                                DT(I,K) * (COEF2(3,L,N) +\n     2                                DT(I,K) * (COEF2(4,L,N) +\n     3                                DT(I,K) * COEF2(5,L,N))))\nC\n                X12 =  COEF1(1,LP1,M) + DT(I,K) * (COEF1(2,LP1,M) +\n     1                                  DT(I,K) * (COEF1(3,LP1,M) +\n     2                                  DT(I,K) * (COEF1(4,LP1,M) +\n     3                                  DT(I,K) * COEF1(5,LP1,M))))\n                X22 =  COEF1(1,LP1,N) + DT(I,K) * (COEF1(2,LP1,N) +\n     1                                  DT(I,K) * (COEF1(3,LP1,N) +\n     2                                  DT(I,K) * (COEF1(4,LP1,N) +\n     3                                  DT(I,K) * COEF1(5,LP1,N))))\nC\n                Y12 =  COEF2(1,LP1,M) + DT(I,K) * (COEF2(2,LP1,M) +\n     1                                  DT(I,K) * (COEF2(3,LP1,M) +\n     2                                  DT(I,K) * (COEF2(4,LP1,M) +\n     3                                  DT(I,K) * COEF2(5,LP1,M))))\n                Y22 =  COEF2(1,LP1,N) + DT(I,K) * (COEF2(2,LP1,N) +\n     1                                  DT(I,K) * (COEF2(3,LP1,N) +\n     2                                  DT(I,K) * (COEF2(4,LP1,N) +\n     3                                  DT(I,K) * COEF2(5,LP1,N))))\nC\n                X1  =  X11 + (X12 - X11) * DIR(I,K)\n                X2  =  X21 + (X22 - X21) * DIR(I,K)\n                Y1  =  Y11 + (Y12 - Y11) * DIR(I,K)\n                Y2  =  Y21 + (Y22 - Y21) * DIR(I,K)\n              ELSE\n                X1  =  COEF1(1,5,M) + DT(I,K) * (COEF1(2,5,M) + \n     1                                DT(I,K) * (COEF1(3,5,M) + \n     2                                DT(I,K) * (COEF1(4,5,M) +\n     3                                DT(I,K) * COEF1(5,5,M))))\n                X2  =  COEF1(1,5,N) + DT(I,K) * (COEF1(2,5,N) + \n     1                                DT(I,K) * (COEF1(3,5,N) + \n     2                                DT(I,K) * (COEF1(4,5,N) +\n     3                                DT(I,K) * COEF1(5,5,N))))\n                Y1  =  COEF2(1,5,M) + DT(I,K) * (COEF2(2,5,M) + \n     1                                DT(I,K) * (COEF2(3,5,M) + \n     2                                DT(I,K) * (COEF2(4,5,M) +\n     3                                DT(I,K) * COEF2(5,5,M))))\n                Y2  =  COEF2(1,5,N) + DT(I,K) * (COEF2(2,5,N) +\n     1                                DT(I,K) * (COEF2(3,5,N) + \n     2                                DT(I,K) * (COEF2(4,5,N) +\n     3                                DT(I,K) * COEF2(5,5,N))))\n              ENDIF\n                TAUG(I,K) =  TAUG(I,K) + ((X1 - Y1 + \n     1                      (X2 - X1 - Y2 + Y1) * DIP(I,K)) * 1.608 * \n     2                       S(I,K) + Y1 + (Y2 - Y1) * DIP(I,K)) * \n     3                       S(I,K) * DP(I,K)\n            ENDIF\n  150     CONTINUE\n        ENDIF\n  200 CONTINUE\nC\n      RETURN\n      END\n\n      BLOCK DATA CKDLW\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\nC----------------------------------------------------------------------C\nC     Li 2006 REVISED VERSION, COMPARED TO LI / BARKER (2005) THE MINORC\nC     GAS, CO2, N2O, CH4 ECT ARE MORE ACCURATELY EVALUED               C\nC----------------------------------------------------------------------C\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 2200-2500 CM^-1. GAS: H2O, CO2                  C\nC     K IN UNIT CM^2 / GRAM FOR ALL DATA IN LONGWAVE                   C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL1/ GWL1(1), CL1H2O(5,18), CL1CO2(5,18)\n      DATA GWL1 / .4500 / \n      DATA (( CL1H2O(K,J), K = 1, 5), J = 1, 18)             /\n     1 .7729E-02, .2411E-03, .2956E-05, .1077E-07,-.4460E-10,\n     1 .7769E-02, .2493E-03, .3163E-05, .9180E-08,-.8711E-10,\n     1 .8240E-02, .2499E-03, .2716E-05, .9216E-08,-.1298E-10,\n     1 .8275E-02, .2642E-03, .3245E-05, .1214E-07,-.3853E-10,\n     1 .8342E-02, .2629E-03, .3204E-05, .1246E-07,-.3213E-10,\n     1 .8414E-02, .2588E-03, .3128E-05, .1643E-07, .2609E-10,\n     1 .8506E-02, .2647E-03, .3275E-05, .1555E-07,-.2425E-11,\n     1 .8624E-02, .2658E-03, .3256E-05, .1554E-07, .6619E-12,\n     1 .8844E-02, .2684E-03, .3227E-05, .1590E-07, .1128E-10,\n     1 .9063E-02, .2741E-03, .3251E-05, .1459E-07,-.3333E-11,\n     1 .9189E-02, .2746E-03, .3223E-05, .1586E-07, .1758E-10,\n     1 .9306E-02, .2778E-03, .3257E-05, .1565E-07, .1259E-10,\n     1 .9324E-02, .2823E-03, .3399E-05, .1497E-07,-.1343E-10,\n     1 .9387E-02, .2820E-03, .3363E-05, .1622E-07, .7870E-11,\n     1 .9468E-02, .2822E-03, .3352E-05, .1724E-07, .2221E-10,\n     1 .9603E-02, .2824E-03, .3283E-05, .1713E-07, .2963E-10,\n     1 .9891E-02, .2820E-03, .2973E-05, .1730E-07, .8245E-10,\n     1 .9909E-02, .3031E-03, .3554E-05, .1315E-07,-.3465E-10 /\n      DATA (( CL1CO2(K,J), K = 1, 5), J = 1, 18)             /\n     1 .1225E-02, .2765E-04, .2198E-06, .7150E-09, .1736E-11,\n     1 .1702E-02, .3824E-04, .3057E-06, .9857E-09, .1965E-11,\n     1 .2359E-02, .5288E-04, .4341E-06, .1416E-08, .1210E-11,\n     1 .3290E-02, .7353E-04, .6138E-06, .2027E-08, .2927E-12,\n     1 .4627E-02, .1024E-03, .8357E-06, .2952E-08, .4676E-11,\n     1 .6529E-02, .1434E-03, .1148E-05, .4100E-08, .9037E-11,\n     1 .9233E-02, .2015E-03, .1577E-05, .5542E-08, .1518E-10,\n     1 .1303E-01, .2829E-03, .2162E-05, .7338E-08, .2307E-10,\n     1 .1829E-01, .3952E-03, .2984E-05, .9599E-08, .2792E-10,\n     1 .2544E-01, .5478E-03, .4138E-05, .1292E-07, .3108E-10,\n     1 .3508E-01, .7593E-03, .5745E-05, .1694E-07, .3395E-10,\n     1 .4732E-01, .1047E-02, .8186E-05, .2136E-07, .2658E-11,\n     1 .6245E-01, .1406E-02, .1136E-04, .2811E-07,-.4140E-10,\n     1 .8172E-01, .1836E-02, .1490E-04, .3860E-07,-.4997E-10,\n     1 .1064E+00, .2378E-02, .1923E-04, .4933E-07,-.8392E-10,\n     1 .1375E+00, .3059E-02, .2446E-04, .6294E-07,-.7413E-10,\n     1 .1773E+00, .3944E-02, .3123E-04, .7490E-07,-.1274E-09,\n     1 .2250E+00, .4978E-02, .3971E-04, .9725E-07,-.2245E-09 /\nC\n      COMMON /BANDL1GH/ GWL1GH(5), CL1CO2GH(5,28,5)\n      DATA GWL1GH / .31000, .13000, .07000, .03000, .01000 /\n      DATA ((( CL1CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     2 .6738E-02, .1474E-03, .1914E-05, .2326E-07, .1486E-09,\n     2 .1066E-01, .2126E-03, .2442E-05, .2517E-07, .1354E-09,\n     2 .1737E-01, .3190E-03, .3098E-05, .2805E-07, .1422E-09,\n     2 .2858E-01, .4879E-03, .3877E-05, .3181E-07, .1829E-09,\n     2 .4760E-01, .7644E-03, .4907E-05, .3653E-07, .2698E-09,\n     2 .7982E-01, .1237E-02, .7031E-05, .3818E-07, .2891E-09,\n     2 .1352E+00, .2034E-02, .1055E-04, .3694E-07, .2859E-09,\n     2 .2326E+00, .3384E-02, .1584E-04, .3587E-07, .3916E-09,\n     2 .4048E+00, .5695E-02, .2485E-04, .3519E-07, .5623E-09,\n     2 .7080E+00, .9656E-02, .4384E-04, .3414E-07, .1870E-09,\n     2 .1706E+01, .2188E-01, .1009E-03, .3305E-07,-.1328E-08,\n     2 .2386E+01, .2974E-01, .1333E-03, .4796E-07,-.1721E-08,\n     2 .3350E+01, .4070E-01, .1757E-03, .3596E-07,-.2213E-08,\n     2 .4730E+01, .5602E-01, .2264E-03, .2641E-07,-.1543E-08,\n     2 .6689E+01, .7768E-01, .3047E-03,-.3627E-07,-.2017E-08,\n     2 .9492E+01, .1081E+00, .4080E-03,-.7802E-07,-.1117E-08,\n     2 .1348E+02, .1506E+00, .5554E-03,-.1418E-06,-.4081E-09,\n     2 .1910E+02, .2106E+00, .7977E-03,-.3192E-06,-.6841E-08,\n     2 .2700E+02, .2918E+00, .1121E-02,-.3098E-06,-.1607E-07,\n     2 .3803E+02, .4044E+00, .1567E-02,-.4187E-06,-.2876E-07,\n     2 .5343E+02, .5610E+00, .2087E-02,-.3239E-06,-.2884E-07,\n     2 .7462E+02, .7751E+00, .2679E-02,-.7249E-06,-.1690E-07,\n     2 .1027E+03, .1064E+01, .3476E-02,-.2547E-05, .1010E-07,\n     2 .1386E+03, .1409E+01, .4877E-02,-.3540E-05,-.2021E-07,\n     2 .1857E+03, .1825E+01, .6552E-02,-.2374E-05,-.5292E-07,\n     2 .2455E+03, .2303E+01, .8402E-02, .1602E-05,-.9114E-07,\n     2 .3170E+03, .2824E+01, .9579E-02, .6663E-05,-.3177E-07,\n     2 .3924E+03, .3305E+01, .1073E-01, .1084E-04,-.5578E-08,\n     3 .2275E+00, .7262E-02, .1177E-03, .1392E-05, .8708E-08,\n     3 .2788E+00, .8069E-02, .1224E-03, .1343E-05, .8082E-08,\n     3 .3628E+00, .9253E-02, .1305E-03, .1318E-05, .7473E-08,\n     3 .4993E+00, .1100E-01, .1428E-03, .1297E-05, .6672E-08,\n     3 .7244E+00, .1350E-01, .1597E-03, .1314E-05, .6102E-08,\n     3 .1101E+01, .1740E-01, .1916E-03, .1325E-05, .3991E-08,\n     3 .1763E+01, .2312E-01, .2301E-03, .1408E-05, .2465E-08,\n     3 .2935E+01, .3173E-01, .2773E-03, .1579E-05, .2010E-08,\n     3 .5070E+01, .4504E-01, .3339E-03, .1827E-05, .2292E-08,\n     3 .9005E+01, .6610E-01, .3775E-03, .2286E-05, .1025E-07,\n     3 .2241E+02, .1307E+00, .4512E-03, .2587E-05, .3188E-07,\n     3 .3170E+02, .1724E+00, .4976E-03, .2542E-05, .4311E-07,\n     3 .4493E+02, .2297E+00, .7073E-03, .2388E-05, .3032E-07,\n     3 .6390E+02, .3110E+00, .1110E-02, .1629E-05,-.1046E-07,\n     3 .9126E+02, .4127E+00, .1572E-02, .2561E-05,-.5125E-07,\n     3 .1308E+03, .5465E+00, .2060E-02, .4614E-05,-.9379E-07,\n     3 .1880E+03, .7338E+00, .2436E-02, .8014E-05,-.1026E-06,\n     3 .2711E+03, .9960E+00, .2260E-02, .1285E-04,-.6623E-08,\n     3 .3909E+03, .1362E+01, .1590E-02, .1661E-04, .1523E-06,\n     3 .5621E+03, .1903E+01, .6027E-04, .8748E-05, .4488E-06,\n     3 .8007E+03, .2645E+01, .7700E-03,-.1335E-04, .4367E-06,\n     3 .1131E+04, .3452E+01, .5129E-02,-.1868E-04,-.1365E-06,\n     3 .1592E+04, .4300E+01, .7911E-02, .1566E-04,-.4882E-06,\n     3 .2230E+04, .5343E+01, .3924E-02, .7204E-04,-.2967E-06,\n     3 .3083E+04, .7011E+01,-.7174E-02, .9605E-04, .2091E-06,\n     3 .4174E+04, .9686E+01,-.1919E-01, .1037E-03,-.6807E-07,\n     3 .5522E+04, .1421E+02,-.4063E-01, .1461E-04, .2124E-05,\n     3 .7210E+04, .2017E+02,-.3837E-01,-.2109E-03, .1876E-05,\n     4 .1108E+02, .3429E+00, .4345E-02, .2875E-04, .9755E-07,\n     4 .1144E+02, .3418E+00, .4266E-02, .2884E-04, .1077E-06,\n     4 .1214E+02, .3422E+00, .4194E-02, .2895E-04, .1098E-06,\n     4 .1333E+02, .3516E+00, .4189E-02, .2782E-04, .9596E-07,\n     4 .1534E+02, .3690E+00, .4142E-02, .2645E-04, .9214E-07,\n     4 .1851E+02, .3987E+00, .4196E-02, .2525E-04, .8338E-07,\n     4 .2363E+02, .4459E+00, .4358E-02, .2358E-04, .6343E-07,\n     4 .3217E+02, .5172E+00, .4574E-02, .2220E-04, .5251E-07,\n     4 .4634E+02, .6332E+00, .5193E-02, .1942E-04,-.4200E-08,\n     4 .7052E+02, .7966E+00, .6123E-02, .1998E-04,-.5578E-07,\n     4 .1470E+03, .1198E+01, .7539E-02, .2687E-04,-.1083E-07,\n     4 .1974E+03, .1421E+01, .8434E-02, .3125E-04,-.1393E-07,\n     4 .2690E+03, .1711E+01, .8646E-02, .3705E-04, .1207E-06,\n     4 .3707E+03, .2104E+01, .8274E-02, .3783E-04, .3138E-06,\n     4 .5159E+03, .2658E+01, .8280E-02, .2972E-04, .3843E-06,\n     4 .7219E+03, .3425E+01, .7638E-02, .1577E-04, .6599E-06,\n     4 .1010E+04, .4531E+01, .9475E-02,-.2722E-04, .6672E-06,\n     4 .1406E+04, .5896E+01, .1459E-01,-.8524E-04, .4200E-06,\n     4 .1942E+04, .7336E+01, .2846E-01,-.1039E-03,-.8586E-06,\n     4 .2677E+04, .8625E+01, .4491E-01,-.3324E-04,-.2342E-05,\n     4 .3696E+04, .9635E+01, .4063E-01, .1259E-03,-.1060E-05,\n     4 .5057E+04, .1136E+02, .2002E-01, .1965E-03, .1828E-05,\n     4 .6836E+04, .1477E+02, .4018E-02, .9761E-04, .1983E-05,\n     4 .9024E+04, .1972E+02,-.1033E-01,-.1716E-03, .3867E-05,\n     4 .1163E+05, .2698E+02, .6287E-03,-.9831E-03, .1049E-04,\n     4 .1477E+05, .2452E+02, .1734E+00,-.9441E-03,-.3499E-05,\n     4 .1910E+05, .9065E+01, .1955E+00,-.3053E-03,-.2538E-05,\n     4 .2461E+05,-.9810E+01, .1550E+00, .1568E-03,-.1033E-05 /\n      DATA ((( CL1CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 5) /\n     5 .7986E+03, .1677E+02, .1210E+00, .2314E-03,-.1038E-05,\n     5 .7993E+03, .1676E+02, .1211E+00, .2310E-03,-.1046E-05,\n     5 .8010E+03, .1675E+02, .1212E+00, .2303E-03,-.1039E-05,\n     5 .8054E+03, .1670E+02, .1211E+00, .2327E-03,-.9910E-06,\n     5 .8153E+03, .1661E+02, .1210E+00, .2362E-03,-.9439E-06,\n     5 .8377E+03, .1643E+02, .1206E+00, .2536E-03,-.1036E-05,\n     5 .8863E+03, .1611E+02, .1183E+00, .3027E-03,-.1159E-05,\n     5 .9827E+03, .1601E+02, .1064E+00, .3228E-03, .1490E-07,\n     5 .1148E+04, .1637E+02, .9050E-01, .2998E-03, .1869E-05,\n     5 .1416E+04, .1733E+02, .7984E-01, .2508E-03, .2858E-05,\n     5 .2198E+04, .2018E+02, .6760E-01, .1663E-03, .5252E-05,\n     5 .2681E+04, .2193E+02, .7743E-01, .7488E-04, .3599E-05,\n     5 .3323E+04, .2426E+02, .1092E+00,-.5198E-04,-.1494E-05,\n     5 .4212E+04, .2681E+02, .1294E+00,-.1206E-03,-.4404E-05,\n     5 .5449E+04, .2865E+02, .1226E+00, .2527E-04,-.3612E-05,\n     5 .7140E+04, .3023E+02, .6931E-01, .2631E-03, .5208E-05,\n     5 .9356E+04, .3291E+02, .5977E-01, .3857E-03, .6337E-05,\n     5 .1233E+05, .3880E+02, .8451E-01, .1655E-03,-.2356E-05,\n     5 .1629E+05, .4636E+02, .6859E-02, .6641E-04, .6865E-05,\n     5 .2128E+05, .5681E+02,-.4704E-01, .1862E-03, .9793E-05,\n     5 .2726E+05, .7843E+02,-.4767E-01,-.1853E-02, .1714E-04,\n     5 .3422E+05, .9059E+02, .2994E+00,-.3000E-02,-.9698E-05,\n     5 .4300E+05, .6553E+02, .4254E+00,-.8920E-03,-.6760E-06,\n     5 .5474E+05, .2816E+02, .4003E+00,-.5322E-03,-.4311E-06,\n     5 .6905E+05,-.2155E+02, .3057E+00, .1376E-02,-.1023E-04,\n     5 .8411E+05,-.5324E+02,-.1065E+00, .9477E-03, .1867E-04,\n     5 .9612E+05,-.6344E+02,-.1826E+00, .6654E-04, .1295E-04,\n     5 .1020E+06,-.6770E+02,-.1738E+00, .2740E-04, .7889E-05,\n     6 .2751E+06,-.1179E+03,-.1559E+00, .1723E-02, .9732E-05,\n     6 .2751E+06,-.1179E+03,-.1596E+00, .1720E-02, .1039E-04,\n     6 .2751E+06,-.1179E+03,-.1582E+00, .1726E-02, .1009E-04,\n     6 .2751E+06,-.1179E+03,-.1549E+00, .1730E-02, .9570E-05,\n     6 .2750E+06,-.1178E+03,-.1565E+00, .1717E-02, .9918E-05,\n     6 .2750E+06,-.1178E+03,-.1541E+00, .1702E-02, .9738E-05,\n     6 .2750E+06,-.1177E+03,-.1550E+00, .1651E-02, .1055E-04,\n     6 .2749E+06,-.1180E+03,-.1415E+00, .1612E-02, .9390E-05,\n     6 .2747E+06,-.1189E+03,-.1235E+00, .1598E-02, .7860E-05,\n     6 .2744E+06,-.1207E+03,-.1105E+00, .1556E-02, .7872E-05,\n     6 .2737E+06,-.1259E+03,-.7812E-01, .1345E-02, .7062E-05,\n     6 .2732E+06,-.1290E+03,-.7044E-01, .1259E-02, .8850E-05,\n     6 .2725E+06,-.1327E+03,-.8298E-01, .1147E-02, .1445E-04,\n     6 .2716E+06,-.1364E+03,-.8634E-01, .9498E-03, .1880E-04,\n     6 .2701E+06,-.1385E+03,-.6870E-01, .5579E-03, .1955E-04,\n     6 .2680E+06,-.1381E+03,-.2096E-01, .1477E-03, .1196E-04,\n     6 .2650E+06,-.1353E+03,-.4792E-01, .4883E-05, .1189E-04,\n     6 .2607E+06,-.1311E+03,-.1436E+00, .3124E-03, .2108E-04,\n     6 .2547E+06,-.1254E+03,-.1750E+00, .4198E-03, .1541E-04,\n     6 .2471E+06,-.1240E+03,-.2163E+00, .6966E-04, .1613E-04,\n     6 .2378E+06,-.1394E+03,-.2353E+00, .1544E-02, .7290E-05,\n     6 .2266E+06,-.1548E+03,-.5408E+00, .2372E-02, .2895E-04,\n     6 .2121E+06,-.1434E+03,-.6396E+00, .4379E-03, .2133E-04,\n     6 .1931E+06,-.1265E+03,-.5790E+00, .4702E-03, .1629E-04,\n     6 .1698E+06,-.1066E+03,-.4847E+00, .3626E-03, .9090E-05,\n     6 .1434E+06,-.8694E+02,-.4484E+00, .6072E-03, .1448E-04,\n     6 .1162E+06,-.6672E+02,-.3481E+00, .3352E-03, .8064E-05,\n     6 .9060E+05,-.5008E+02,-.2867E+00, .2329E-03, .1025E-04 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 1900-2200 CM^-1. GAS: H2O                       C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL2/ GWL2(1), CL2H2O(5,18), CL2CS(5,3), CL2CF(5,3)\n      DATA GWL2 / .65000 /\n      DATA (( CL2H2O(K,J), K = 1, 5), J = 1, 18)             /\n     1 .1635E-03, .2510E-05, .1165E-07, .6099E-11,-.6637E-13,\n     1 .2428E-03, .3731E-05, .1727E-07, .8565E-11,-.8956E-13,\n     1 .3603E-03, .5548E-05, .2564E-07, .1195E-10,-.1220E-12,\n     1 .5345E-03, .8248E-05, .3813E-07, .1682E-10,-.1752E-12,\n     1 .7928E-03, .1226E-04, .5699E-07, .2270E-10,-.2956E-12,\n     1 .1175E-02, .1823E-04, .8542E-07, .3186E-10,-.5231E-12,\n     1 .1739E-02, .2706E-04, .1287E-06, .4714E-10,-.9960E-12,\n     1 .2570E-02, .4011E-04, .1939E-06, .7463E-10,-.1852E-11,\n     1 .3793E-02, .5927E-04, .2896E-06, .1431E-09,-.2750E-11,\n     1 .5588E-02, .8725E-04, .4266E-06, .2680E-09,-.3413E-11,\n     1 .8207E-02, .1282E-03, .6235E-06, .4425E-09,-.3973E-11,\n     1 .1202E-01, .1875E-03, .9017E-06, .7194E-09,-.3595E-11,\n     1 .1748E-01, .2737E-03, .1297E-05, .8795E-09,-.2771E-11,\n     1 .2519E-01, .3970E-03, .1885E-05, .9664E-09,-.3063E-11,\n     1 .3575E-01, .5659E-03, .2843E-05, .1564E-08,-.2169E-10,\n     1 .5020E-01, .7858E-03, .4096E-05, .3595E-08,-.4269E-10,\n     1 .7024E-01, .1068E-02, .5442E-05, .7079E-08,-.4472E-10,\n     1 .9820E-01, .1444E-02, .6762E-05, .9510E-08,-.2463E-10 /\n      DATA (( CL2CS(K,J), K = 1, 5), J = 1, 3)               /\n     1 .2074E+01,-.3404E-01, .3410E-03,-.2830E-05, .1315E-07,\n     1 .3090E+01,-.5095E-01, .5008E-03,-.4236E-05, .2128E-07,\n     1 .4599E+01,-.7532E-01, .7173E-03,-.6543E-05, .3852E-07 /\n      DATA (( CL2CF(K,J), K = 1, 5), J = 1, 3)               /\n     1 .1645E-01,-.1179E-04, .4388E-06,-.9480E-09,-.7306E-10,\n     1 .2422E-01,-.1917E-04, .4174E-06,-.1452E-08,-.7633E-10,\n     1 .3556E-01,-.1747E-04,-.4582E-07,-.4974E-08, .1378E-10 /\n      COMMON /BANDL2GH/ GWL2GH(1), CL2H2OGH(5,28), \n     1                             CL2CSGH(5,3), CL2CFGH(5,3)\n      DATA GWL2GH / .35000 /\n      DATA (( CL2H2OGH(K,J), K = 1, 5), J = 1, 28)           /\n     1 .3402E+01, .2934E-01, .4803E-05,-.2079E-06, .6822E-09,\n     1 .3468E+01, .2991E-01, .4902E-05,-.2120E-06, .6954E-09,\n     1 .3535E+01, .3049E-01, .5015E-05,-.2159E-06, .7054E-09,\n     1 .3602E+01, .3106E-01, .5104E-05,-.2200E-06, .7192E-09,\n     1 .3668E+01, .3164E-01, .5168E-05,-.2241E-06, .7385E-09,\n     1 .3735E+01, .3221E-01, .5290E-05,-.2280E-06, .7472E-09,\n     1 .3802E+01, .3279E-01, .5377E-05,-.2322E-06, .7613E-09,\n     1 .3869E+01, .3336E-01, .5486E-05,-.2363E-06, .7722E-09,\n     1 .3935E+01, .3394E-01, .5573E-05,-.2405E-06, .7872E-09,\n     1 .4002E+01, .3451E-01, .5669E-05,-.2446E-06, .8003E-09,\n     1 .4065E+01, .3506E-01, .5779E-05,-.2484E-06, .8106E-09,\n     1 .4130E+01, .3564E-01, .5857E-05,-.2525E-06, .8281E-09,\n     1 .4197E+01, .3621E-01, .5962E-05,-.2567E-06, .8412E-09,\n     1 .4264E+01, .3679E-01, .6058E-05,-.2609E-06, .8562E-09,\n     1 .4329E+01, .3736E-01, .6171E-05,-.2652E-06, .8692E-09,\n     1 .4394E+01, .3794E-01, .6279E-05,-.2694E-06, .8841E-09,\n     1 .4460E+01, .3850E-01, .6409E-05,-.2738E-06, .8969E-09,\n     1 .4523E+01, .3907E-01, .6532E-05,-.2780E-06, .9115E-09,\n     1 .4587E+01, .3963E-01, .6646E-05,-.2823E-06, .9258E-09,\n     1 .4652E+01, .4019E-01, .6765E-05,-.2864E-06, .9355E-09,\n     1 .4716E+01, .4075E-01, .6816E-05,-.2905E-06, .9500E-09,\n     1 .4781E+01, .4130E-01, .6831E-05,-.2946E-06, .9629E-09,\n     1 .4844E+01, .4183E-01, .6790E-05,-.2989E-06, .9745E-09,\n     1 .4908E+01, .4236E-01, .6666E-05,-.3028E-06, .9879E-09,\n     1 .4970E+01, .4287E-01, .6389E-05,-.3071E-06, .1009E-08,\n     1 .5031E+01, .4335E-01, .6006E-05,-.3119E-06, .1030E-08,\n     1 .5090E+01, .4381E-01, .5556E-05,-.3174E-06, .1046E-08,\n     1 .5145E+01, .4424E-01, .5125E-05,-.3225E-06, .1050E-08 /\n      DATA (( CL2CSGH(K,J), K = 1, 5), J = 1, 3)             /\n     1 .6173E+01,-.9432E-01, .7384E-03,-.5151E-05, .3060E-07,\n     1 .9216E+01,-.1404E+00, .1120E-02,-.7676E-05, .4232E-07,\n     1 .1376E+02,-.2109E+00, .1733E-02,-.1102E-04, .4933E-07 /\n      DATA (( CL2CFGH(K,J), K = 1, 5), J = 1, 3)             /\n     1 .9702E-01,-.5003E-03, .1178E-05,-.7351E-08, .1902E-09,\n     1 .1451E+00,-.7394E-03, .2253E-05,-.1085E-07, .2121E-09,\n     1 .2170E+00,-.1121E-02, .4710E-05,-.1042E-07, .5378E-10 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 1400-1900 CM^-1. GAS: H2O                       C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL3/ GWL3(2), CL3H2O(5,18,2), CL3CH4(2), CL3CS(5,4,2),\n     1                CL3CF(5,4,2)\n      DATA GWL3 / .35000, .42800 / \n      DATA CL3CH4 / 3.2742, 5.4269 /\n      DATA ((( CL3H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 2) /\n     1 .1346E-01, .3885E-04,-.1051E-06, .1206E-09,-.3369E-11,\n     1 .2004E-01, .5747E-04,-.1486E-06, .2288E-09,-.5499E-11,\n     1 .2983E-01, .8477E-04,-.2198E-06, .4393E-09,-.7404E-11,\n     1 .4442E-01, .1251E-03,-.3292E-06, .7923E-09,-.9568E-11,\n     1 .6618E-01, .1843E-03,-.4857E-06, .1357E-08,-.1418E-10,\n     1 .9847E-01, .2718E-03,-.7280E-06, .2189E-08,-.2010E-10,\n     1 .1467E+00, .4012E-03,-.1094E-05, .3386E-08,-.2946E-10,\n     1 .2183E+00, .5922E-03,-.1624E-05, .5178E-08,-.4821E-10,\n     1 .3247E+00, .8738E-03,-.2425E-05, .7887E-08,-.7561E-10,\n     1 .4824E+00, .1290E-02,-.3749E-05, .1189E-07,-.9333E-10,\n     1 .7162E+00, .1903E-02,-.5877E-05, .1754E-07,-.8788E-10,\n     1 .1060E+01, .2814E-02,-.9071E-05, .2461E-07,-.6135E-10,\n     1 .1565E+01, .4155E-02,-.1449E-04, .3320E-07, .9926E-10,\n     1 .2302E+01, .6147E-02,-.2199E-04, .3954E-07, .2928E-09,\n     1 .3371E+01, .9014E-02,-.3310E-04, .5333E-07, .6451E-09,\n     1 .4910E+01, .1318E-01,-.5060E-04, .6969E-07, .1479E-08,\n     1 .7113E+01, .1895E-01,-.7459E-04, .1205E-06, .2632E-08,\n     1 .1025E+02, .2642E-01,-.1077E-03, .2868E-06, .3422E-08,\n     2 .1827E+00, .3217E-03, .2040E-06, .3824E-08,-.1900E-10,\n     2 .2697E+00, .4479E-03, .1816E-06, .5756E-08,-.2757E-10,\n     2 .3983E+00, .6269E-03, .6031E-07, .8292E-08,-.3313E-10,\n     2 .5886E+00, .8792E-03,-.2372E-06, .1193E-07,-.3245E-10,\n     2 .8702E+00, .1242E-02,-.7474E-06, .1636E-07,-.3505E-10,\n     2 .1286E+01, .1761E-02,-.1512E-05, .2243E-07,-.5179E-10,\n     2 .1902E+01, .2518E-02,-.2696E-05, .2919E-07,-.7042E-10,\n     2 .2808E+01, .3618E-02,-.4325E-05, .3677E-07,-.1088E-09,\n     2 .4137E+01, .5203E-02,-.7001E-05, .4220E-07,-.7366E-10,\n     2 .6076E+01, .7428E-02,-.9254E-05, .5012E-07,-.1806E-09,\n     2 .8884E+01, .1047E-01,-.7983E-05, .7354E-07,-.1034E-08,\n     2 .1292E+02, .1458E-01,-.4125E-05, .1232E-06,-.2362E-08,\n     2 .1871E+02, .1936E-01, .1851E-05, .3028E-06,-.4561E-08,\n     2 .2696E+02, .2490E-01, .3493E-06, .6347E-06,-.7641E-08,\n     2 .3871E+02, .3116E-01,-.6083E-04, .1167E-05,-.3467E-08,\n     2 .5530E+02, .4078E-01,-.1803E-03, .1381E-05, .2540E-08,\n     2 .7833E+02, .5606E-01,-.2409E-03, .1278E-05,-.6412E-08,\n     2 .1096E+03, .6881E-01,-.3671E-03, .2262E-05,-.1106E-07 /\n      DATA ((( CL3CS(K,J,I), K = 1, 5), J = 1, 4), I = 1, 2) /\n     1 .3996E+02,-.5365E+00, .3540E-02,-.2717E-04, .2081E-06,\n     1 .5942E+02,-.7948E+00, .5248E-02,-.4151E-04, .3219E-06,\n     1 .8827E+02,-.1189E+01, .8359E-02,-.6131E-04, .3842E-06,\n     1 .1308E+03,-.1790E+01, .1399E-01,-.8808E-04, .2861E-06,\n     2 .7479E+02,-.1212E+01, .1079E-01,-.7085E-04, .2736E-06,\n     2 .1124E+03,-.1825E+01, .1624E-01,-.1047E-03, .3862E-06,\n     2 .1688E+03,-.2728E+01, .2371E-01,-.1581E-03, .6927E-06,\n     2 .2536E+03,-.4072E+01, .3414E-01,-.2392E-03, .1289E-05 /\n      DATA ((( CL3CF(K,J,I), K = 1, 5), J = 1, 4), I = 1, 2) /\n     1 .1834E+01,-.3554E-02,-.1324E-05,-.1868E-06, .4608E-08,\n     1 .2720E+01,-.5179E-02,-.1857E-06,-.3105E-06, .6846E-08,\n     1 .4029E+01,-.7783E-02, .3094E-04,-.4834E-06, .4418E-08,\n     1 .5946E+01,-.1209E-01, .1296E-03,-.7238E-06,-.9306E-08,\n     2 .4059E+01,-.1863E-01, .8584E-04,-.2080E-06,-.2539E-08,\n     2 .6099E+01,-.2803E-01, .1283E-03,-.2700E-06,-.4145E-08,\n     2 .9158E+01,-.4174E-01, .1571E-03,-.4211E-06, .3909E-09,\n     2 .1376E+02,-.6215E-01, .1582E-03,-.6142E-06, .1511E-07 /\n      COMMON /BANDL3GH/ GWL3GH(3), CL3H2OGH(5,28,3), CL3CSGH(5,4),\n     1                  CL3CFGH(5,4)\n      DATA GWL3GH / .21200, .00900, .00100 /\n      DATA ((( CL3H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     1 .2818E+01, .4977E-01, .3333E-03, .1033E-05, .5543E-09,\n     1 .2852E+01, .5005E-01, .3357E-03, .1037E-05, .6017E-09,\n     1 .2904E+01, .5029E-01, .3382E-03, .1042E-05, .6547E-09,\n     1 .2990E+01, .5042E-01, .3410E-03, .1044E-05, .7345E-09,\n     1 .3143E+01, .5032E-01, .3453E-03, .1065E-05, .4436E-09,\n     1 .3436E+01, .4988E-01, .3482E-03, .1138E-05,-.1935E-09,\n     1 .3997E+01, .4948E-01, .3348E-03, .1222E-05, .7964E-09,\n     1 .5031E+01, .5016E-01, .3080E-03, .1223E-05, .2391E-08,\n     1 .6866E+01, .5321E-01, .2905E-03, .1111E-05, .1466E-08,\n     1 .1009E+02, .5979E-01, .2750E-03, .9415E-06, .1258E-08,\n     1 .2023E+02, .7639E-01, .3233E-03, .1042E-05,-.1104E-07,\n     1 .2702E+02, .8421E-01, .3657E-03, .1351E-05,-.1924E-07,\n     1 .3660E+02, .9413E-01, .3198E-03, .1687E-05,-.1054E-07,\n     1 .5018E+02, .1060E+00, .2284E-03, .2134E-05, .2182E-08,\n     1 .6946E+02, .1204E+00, .1469E-03, .2435E-05, .4934E-08,\n     1 .9688E+02, .1372E+00, .5108E-04, .2902E-05, .5369E-08,\n     1 .1356E+03, .1614E+00,-.4585E-04, .3030E-05,-.1509E-08,\n     1 .1902E+03, .1914E+00,-.2006E-03, .3070E-05,-.8193E-08,\n     1 .2661E+03, .2191E+00,-.3400E-03, .4267E-05,-.3542E-07,\n     1 .3698E+03, .2405E+00,-.7398E-03, .6909E-05,-.3960E-07,\n     1 .5068E+03, .2605E+00,-.1477E-02, .1130E-04,-.4522E-07,\n     1 .6786E+03, .3004E+00,-.2379E-02, .1174E-04,-.4238E-07,\n     1 .8796E+03, .3413E+00,-.3577E-02, .9236E-05, .5275E-07,\n     1 .1099E+04, .3193E+00,-.3336E-02, .7836E-05,-.5794E-07,\n     1 .1322E+04, .2322E+00,-.3523E-02, .1497E-04,-.1227E-06,\n     1 .1525E+04, .1338E+00,-.3548E-02, .1797E-04,-.1815E-06,\n     1 .1696E+04,-.1624E-02,-.3572E-02, .1515E-04,-.1152E-06,\n     1 .1825E+04,-.1337E+00,-.3511E-02, .5190E-05, .4501E-07,\n     2 .1141E+05, .7342E+02,-.1039E+00,-.3141E-03, .3118E-05,\n     2 .1148E+05, .7392E+02,-.1046E+00,-.3161E-03, .3141E-05,\n     2 .1156E+05, .7441E+02,-.1052E+00,-.3181E-03, .3158E-05,\n     2 .1165E+05, .7490E+02,-.1059E+00,-.3203E-03, .3172E-05,\n     2 .1173E+05, .7538E+02,-.1065E+00,-.3228E-03, .3195E-05,\n     2 .1181E+05, .7583E+02,-.1070E+00,-.3267E-03, .3215E-05,\n     2 .1190E+05, .7621E+02,-.1068E+00,-.3309E-03, .3172E-05,\n     2 .1202E+05, .7644E+02,-.1061E+00,-.3354E-03, .3129E-05,\n     2 .1218E+05, .7635E+02,-.1052E+00,-.3401E-03, .3181E-05,\n     2 .1243E+05, .7562E+02,-.1030E+00,-.3404E-03, .3128E-05,\n     2 .1320E+05, .7181E+02,-.9546E-01,-.3504E-03, .2937E-05,\n     2 .1379E+05, .6938E+02,-.8864E-01,-.3585E-03, .2327E-05,\n     2 .1460E+05, .6611E+02,-.8538E-01,-.3954E-03, .2062E-05,\n     2 .1570E+05, .6148E+02,-.7656E-01,-.3982E-03, .1060E-05,\n     2 .1718E+05, .5490E+02,-.8533E-01,-.3193E-03, .3048E-05,\n     2 .1908E+05, .4677E+02,-.8618E-01,-.2462E-03, .4298E-05,\n     2 .2138E+05, .3694E+02,-.6726E-01,-.1685E-03, .2112E-05,\n     2 .2403E+05, .2616E+02,-.6348E-01, .4946E-05,-.1312E-07,\n     2 .2666E+05, .1605E+02,-.3698E-01, .1642E-03,-.5717E-05,\n     2 .2888E+05, .6788E+01,-.4987E-01, .4297E-03,-.5067E-05,\n     2 .3024E+05, .1303E+01,-.3833E-01, .1349E-03,-.4714E-05,\n     2 .3042E+05,-.3760E+01,-.5905E-01,-.8417E-04, .5035E-05,\n     2 .2933E+05,-.8881E+01, .1676E-01,-.5683E-04,-.3842E-05,\n     2 .2728E+05,-.1272E+02, .1116E-01, .6502E-04,-.8432E-06,\n     2 .2440E+05,-.1390E+02, .1179E-01,-.1524E-03, .1268E-05,\n     2 .2112E+05,-.1461E+02, .2503E-01,-.3063E-03, .2521E-05,\n     2 .1778E+05,-.1432E+02, .3541E-01,-.3318E-03, .1949E-05,\n     2 .1459E+05,-.1398E+02, .5595E-01,-.1771E-03,-.2845E-05,\n     3 .4620E+06,-.9277E+03, .8396E+00, .3048E-02,-.4573E-04,\n     3 .4647E+06,-.9322E+03, .8442E+00, .3071E-02,-.4592E-04,\n     3 .4674E+06,-.9377E+03, .8487E+00, .3089E-02,-.4613E-04,\n     3 .4701E+06,-.9431E+03, .8526E+00, .3107E-02,-.4631E-04,\n     3 .4727E+06,-.9485E+03, .8577E+00, .3119E-02,-.4673E-04,\n     3 .4752E+06,-.9530E+03, .8603E+00, .3142E-02,-.4688E-04,\n     3 .4776E+06,-.9576E+03, .8591E+00, .3162E-02,-.4652E-04,\n     3 .4797E+06,-.9603E+03, .8565E+00, .3201E-02,-.4653E-04,\n     3 .4811E+06,-.9603E+03, .8497E+00, .3272E-02,-.4681E-04,\n     3 .4811E+06,-.9540E+03, .8312E+00, .3305E-02,-.4627E-04,\n     3 .4742E+06,-.9195E+03, .7422E+00, .3348E-02,-.4106E-04,\n     3 .4700E+06,-.8967E+03, .6618E+00, .3325E-02,-.3259E-04,\n     3 .4628E+06,-.8660E+03, .6419E+00, .3593E-02,-.3209E-04,\n     3 .4516E+06,-.8219E+03, .5752E+00, .3479E-02,-.2460E-04,\n     3 .4350E+06,-.7585E+03, .6894E+00, .2544E-02,-.4573E-04,\n     3 .4122E+06,-.6799E+03, .7230E+00, .1644E-02,-.5840E-04,\n     3 .3823E+06,-.5859E+03, .5548E+00, .7847E-03,-.3405E-04,\n     3 .3449E+06,-.4838E+03, .5570E+00,-.1030E-02,-.1073E-04,\n     3 .3025E+06,-.3884E+03, .3217E+00,-.2968E-02, .5427E-04,\n     3 .2574E+06,-.3008E+03, .5530E+00,-.6339E-02, .4849E-04,\n     3 .2125E+06,-.2520E+03, .6118E+00,-.4391E-02, .4666E-04,\n     3 .1707E+06,-.2130E+03, .1042E+01,-.2282E-02,-.5365E-04,\n     3 .1341E+06,-.1744E+03, .5511E+00,-.2045E-02, .1543E-04,\n     3 .1017E+06,-.1342E+03, .5526E+00,-.3116E-02, .1288E-04,\n     3 .7507E+05,-.1065E+03, .6268E+00,-.2878E-02, .4302E-05,\n     3 .5468E+05,-.8312E+02, .5621E+00,-.2137E-02, .2262E-05,\n     3 .3924E+05,-.6453E+02, .5006E+00,-.1175E-02,-.4003E-05,\n     3 .2792E+05,-.4693E+02, .3507E+00,-.9196E-03, .8430E-05 /\n      DATA (( CL3CSGH(K,J), K = 1, 5), J = 1, 4)             /\n     1 .8254E+02,-.1308E+01, .1136E-01,-.8548E-04, .4490E-06,\n     1 .1227E+03,-.1942E+01, .1684E-01,-.1282E-03, .6873E-06,\n     1 .1828E+03,-.2898E+01, .2532E-01,-.1890E-03, .9647E-06,\n     1 .2721E+03,-.4314E+01, .3809E-01,-.2830E-03, .1388E-05 /\n      DATA (( CL3CFGH(K,J), K = 1, 5), J = 1, 4)             /\n     1 .4588E+01,-.1977E-01, .8047E-04,-.3912E-06, .1906E-08,\n     1 .6826E+01,-.2936E-01, .1185E-03,-.6154E-06, .3345E-08,\n     1 .1018E+02,-.4402E-01, .1899E-03,-.8496E-06, .2045E-08,\n     1 .1517E+02,-.6521E-01, .3075E-03,-.1328E-05,-.7347E-09 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 1100_1400 CM^-1. GAS: H2O, N2O, CH4             C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL4/ GWL4(5), CL4H2O(5,18,5), CL4N2O(5,18,5), \n     1                CL4CH4(5,18,5), CL4CS(5,4,5), CL4CF(5,4,5),\n     2                CL4F12(5)\n      DATA (CL4F12(I), I = 1, 5) / .2137E+04, .5064E+03, 0., 0.,\n     1                             .7622E+02                   /\n      DATA GWL4 / .41600, .19000, .05600, .06600, .13000 /\n      DATA ((( CL4H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 5) /\n     1 .4522E-04, .8245E-06, .5346E-08, .1280E-10,-.1079E-13,\n     1 .6617E-04, .1203E-05, .7622E-08, .1888E-10, .1704E-13,\n     1 .9684E-04, .1760E-05, .1107E-07, .2745E-10, .3642E-13,\n     1 .1415E-03, .2557E-05, .1568E-07, .4371E-10, .1647E-12,\n     1 .2058E-03, .3743E-05, .2343E-07, .6158E-10, .1603E-12,\n     1 .2993E-03, .5469E-05, .3457E-07, .8483E-10, .1397E-12,\n     1 .4342E-03, .7950E-05, .5162E-07, .1268E-09, .2153E-13,\n     1 .6306E-03, .1149E-04, .7380E-07, .1884E-09, .1725E-12,\n     1 .9155E-03, .1675E-04, .1097E-06, .2639E-09,-.2506E-12,\n     1 .1329E-02, .2417E-04, .1555E-06, .4129E-09, .3781E-12,\n     1 .1916E-02, .3479E-04, .2190E-06, .6039E-09, .1572E-11,\n     1 .2705E-02, .4936E-04, .3259E-06, .8815E-09, .1638E-12,\n     1 .3820E-02, .6863E-04, .4362E-06, .1232E-08, .1997E-11,\n     1 .5350E-02, .9586E-04, .6027E-06, .1772E-08, .4391E-11,\n     1 .7351E-02, .1320E-03, .8311E-06, .2401E-08, .5945E-11,\n     1 .9807E-02, .1753E-03, .1111E-05, .3083E-08, .3626E-11,\n     1 .1287E-01, .2297E-03, .1492E-05, .4040E-08,-.2848E-11,\n     1 .1727E-01, .3040E-03, .1918E-05, .5621E-08, .5334E-11,\n     2 .1656E-02, .2445E-04, .1066E-06, .6257E-10, .5280E-12,\n     2 .2420E-02, .3584E-04, .1581E-06, .8450E-10, .6278E-12,\n     2 .3532E-02, .5255E-04, .2433E-06, .9942E-10,-.1181E-11,\n     2 .5160E-02, .7654E-04, .3459E-06, .1875E-09, .4289E-12,\n     2 .7508E-02, .1115E-03, .5156E-06, .3366E-09,-.2368E-13,\n     2 .1092E-01, .1620E-03, .7701E-06, .5736E-09,-.2538E-11,\n     2 .1585E-01, .2338E-03, .1129E-05, .1361E-08,-.8501E-12,\n     2 .2304E-01, .3376E-03, .1616E-05, .2244E-08, .2423E-11,\n     2 .3333E-01, .4885E-03, .2410E-05, .3030E-08,-.1164E-10,\n     2 .4812E-01, .7065E-03, .3576E-05, .3943E-08,-.3673E-10,\n     2 .6940E-01, .1013E-02, .5035E-05, .6085E-08,-.4138E-10,\n     2 .9942E-01, .1434E-02, .6652E-05, .9787E-08, .2130E-10,\n     2 .1407E+00, .2016E-02, .8991E-05, .1109E-07, .4046E-10,\n     2 .1970E+00, .2802E-02, .1200E-04, .1927E-07, .1629E-09,\n     2 .2707E+00, .3848E-02, .1668E-04, .2874E-07, .2089E-09,\n     2 .3622E+00, .5233E-02, .2438E-04, .3566E-07,-.3670E-10,\n     2 .4726E+00, .7117E-02, .3608E-04, .4033E-07,-.2733E-09,\n     2 .6076E+00, .9701E-02, .5685E-04, .2606E-07,-.1326E-08,\n     3 .2216E-03, .3554E-05, .2075E-07,-.2917E-10,-.9166E-12,\n     3 .3235E-03, .5219E-05, .3392E-07,-.2936E-10,-.1760E-11,\n     3 .4736E-03, .7562E-05, .4818E-07, .6518E-11,-.1707E-11,\n     3 .6990E-03, .1127E-04, .7254E-07, .1496E-10,-.2450E-11,\n     3 .1048E-02, .1664E-04, .9840E-07, .4709E-10,-.2066E-11,\n     3 .1557E-02, .2410E-04, .1391E-06, .1806E-09,-.2184E-11,\n     3 .2336E-02, .3598E-04, .1922E-06, .2000E-09,-.1765E-11,\n     3 .3477E-02, .5344E-04, .2640E-06, .4470E-09, .3117E-11,\n     3 .5099E-02, .7906E-04, .4082E-06, .3883E-09,-.8146E-12,\n     3 .7646E-02, .1168E-03, .4470E-06,-.1348E-09, .1608E-10,\n     3 .1126E-01, .1758E-03, .7926E-06,-.1417E-08,-.8058E-11,\n     3 .1664E-01, .2664E-03, .1509E-05,-.2640E-08,-.7754E-10,\n     3 .2434E-01, .3944E-03, .1962E-05, .7539E-11,-.8640E-11,\n     3 .3374E-01, .5451E-03, .2840E-05, .3798E-08, .1227E-10,\n     3 .4843E-01, .8062E-03, .4038E-05, .1406E-08, .3070E-10,\n     3 .6891E-01, .1094E-02, .6680E-05, .8490E-08,-.1232E-09,\n     3 .9395E-01, .1433E-02, .1118E-04, .2712E-07,-.4738E-09,\n     3 .1249E+00, .1763E-02, .8218E-05, .5259E-07, .4610E-09,\n     4 .2978E-03, .4096E-05, .1821E-07, .1786E-10,-.1332E-12,\n     4 .4490E-03, .6184E-05, .2733E-07,-.4189E-11,-.5915E-12,\n     4 .6686E-03, .9254E-05, .4312E-07,-.1507E-10,-.1331E-11,\n     4 .9926E-03, .1376E-04, .7283E-07,-.3685E-10,-.3920E-11,\n     4 .1487E-02, .2058E-04, .1053E-06,-.5939E-10,-.5269E-11,\n     4 .2232E-02, .3027E-04, .1280E-06, .3122E-10,-.1858E-11,\n     4 .3334E-02, .4576E-04, .2042E-06,-.1316E-09,-.6451E-11,\n     4 .4918E-02, .6854E-04, .3483E-06,-.4051E-09,-.1835E-10,\n     4 .7333E-02, .9814E-04, .3934E-06, .1784E-09,-.1910E-11,\n     4 .1075E-01, .1408E-03, .5224E-06, .9762E-09, .1017E-10,\n     4 .1545E-01, .2011E-03, .9206E-06, .2739E-08, .1004E-11,\n     4 .2213E-01, .2862E-03, .1320E-05, .4216E-08, .9818E-11,\n     4 .3112E-01, .4058E-03, .2414E-05, .4595E-08,-.9702E-10,\n     4 .4392E-01, .5939E-03, .3704E-05,-.1661E-08,-.2390E-09,\n     4 .6035E-01, .8365E-03, .6483E-05,-.4570E-08,-.5600E-09,\n     4 .8357E-01, .1060E-02, .4470E-05, .8835E-08, .1228E-09,\n     4 .1158E+00, .1378E-02, .3205E-05, .9850E-08, .4720E-09,\n     4 .1582E+00, .1941E-02, .5674E-05, .9262E-08, .4614E-09,\n     5 .3080E-01, .4314E-03, .1986E-05, .1956E-08,-.1402E-10,\n     5 .4426E-01, .6104E-03, .2697E-05, .2671E-08,-.1020E-10,\n     5 .6373E-01, .8681E-03, .3768E-05, .3091E-08,-.2370E-10,\n     5 .9181E-01, .1233E-02, .5120E-05, .3968E-08,-.1630E-10,\n     5 .1324E+00, .1759E-02, .7044E-05, .4812E-08,-.5648E-11,\n     5 .1911E+00, .2512E-02, .9758E-05, .5417E-08, .1050E-11,\n     5 .2757E+00, .3591E-02, .1365E-04, .7245E-08, .1285E-10,\n     5 .3972E+00, .5141E-02, .1923E-04, .6153E-08,-.1002E-10,\n     5 .5701E+00, .7312E-02, .2630E-04, .6808E-08, .8962E-10,\n     5 .8135E+00, .1036E-01, .3567E-04,-.4509E-10, .2321E-09,\n     5 .1147E+01, .1455E-01, .5332E-04,-.1359E-07,-.4653E-09,\n     5 .1591E+01, .2004E-01, .7386E-04,-.1697E-07,-.8798E-09,\n     5 .2162E+01, .2714E-01, .1005E-03,-.9313E-08,-.1059E-08,\n     5 .2882E+01, .3633E-01, .1426E-03, .8892E-07,-.9844E-09,\n     5 .3810E+01, .4930E-01, .2167E-03, .1527E-06,-.3229E-08,\n     5 .5089E+01, .6618E-01, .2436E-03, .2950E-06, .4565E-08,\n     5 .6791E+01, .9040E-01, .3260E-03, .6389E-08, .2512E-08,\n     5 .8947E+01, .1217E+00, .4721E-03,-.2841E-06,-.4937E-08 /\n      DATA ((( CL4N2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 5) /\n     1 .1221E+00, .4607E-02,-.1092E-03,-.7950E-06, .2260E-07,\n     1 .1736E+00, .4696E-02,-.1028E-03,-.7547E-06, .2142E-07,\n     1 .2480E+00, .4554E-02,-.8742E-04,-.6458E-06, .1842E-07,\n     1 .3534E+00, .2425E-03, .5366E-04, .3462E-06,-.1017E-07,\n     1 .5066E+00, .6379E-03, .6300E-04, .4188E-06,-.1199E-07,\n     1 .7217E+00, .7438E-03, .8979E-04, .6128E-06,-.1728E-07,\n     1 .1022E+01,-.1727E-02, .1967E-03, .1406E-05,-.3894E-07,\n     1 .1423E+01, .2931E-02, .1229E-03, .8570E-06,-.2317E-07,\n     1 .1969E+01, .4369E-02, .1433E-03, .1043E-05,-.2714E-07,\n     1 .2703E+01, .4148E-02, .2228E-03, .1704E-05,-.4389E-07,\n     1 .3660E+01, .1966E-02, .3835E-03, .2971E-05,-.7781E-07,\n     1 .4891E+01, .6197E-02, .3848E-03, .3143E-05,-.7857E-07,\n     1 .6230E+01, .9593E-02, .5283E-03, .3610E-05,-.1012E-06,\n     1 .7923E+01, .1151E-01, .6181E-03, .3950E-05,-.1194E-06,\n     1 .9847E+01, .1396E-01, .7092E-03, .4052E-05,-.1370E-06,\n     1 .1212E+02, .1507E-01, .7382E-03, .4072E-05,-.1381E-06,\n     1 .1381E+02, .1632E-01, .7336E-03, .3528E-05,-.1242E-06,\n     1 .1469E+02, .6227E-02, .5287E-03, .6379E-05,-.9610E-07,\n     2 .1673E+00, .3458E-03, .1699E-04, .9082E-07,-.3284E-08,\n     2 .2408E+00, .4617E-03, .2320E-04, .1292E-06,-.4544E-08,\n     2 .3458E+00, .5739E-03, .3052E-04, .1966E-06,-.5963E-08,\n     2 .4970E+00, .7537E-03, .4125E-04, .2809E-06,-.8042E-08,\n     2 .7095E+00, .1138E-02, .5930E-04, .3617E-06,-.1148E-07,\n     2 .1013E+01, .1578E-02, .8125E-04, .4838E-06,-.1564E-07,\n     2 .1433E+01, .2548E-02, .1216E-03, .5861E-06,-.2299E-07,\n     2 .2019E+01, .3330E-02, .1598E-03, .7950E-06,-.3003E-07,\n     2 .2879E+01, .3812E-02, .2007E-03, .1309E-05,-.3749E-07,\n     2 .4062E+01, .5861E-02, .2928E-03, .1624E-05,-.5574E-07,\n     2 .5640E+01, .9247E-02, .4214E-03, .1720E-05,-.7880E-07,\n     2 .7643E+01, .1320E-01, .5633E-03, .1869E-05,-.9837E-07,\n     2 .1072E+02, .1005E-01, .5204E-03, .3153E-05,-.9999E-07,\n     2 .1472E+02, .1435E-01, .6798E-03, .3103E-05,-.1311E-06,\n     2 .1964E+02, .1496E-01, .7514E-03, .4260E-05,-.1423E-06,\n     2 .2542E+02, .1663E-03, .4323E-03, .8283E-05,-.1120E-06,\n     2 .3044E+02, .8567E-02, .8712E-03, .9115E-05,-.2504E-06,\n     2 .3769E+02, .1006E-01, .1067E-02, .1187E-04,-.2966E-06,\n     3 .1484E+02, .5334E-01, .2501E-02, .1325E-04,-.4186E-06,\n     3 .1941E+02, .6501E-01, .3013E-02, .1519E-04,-.5088E-06,\n     3 .2572E+02, .7385E-01, .3493E-02, .1886E-04,-.5901E-06,\n     3 .3425E+02, .8483E-01, .4074E-02, .2342E-04,-.6783E-06,\n     3 .4614E+02, .9777E-01, .4768E-02, .2844E-04,-.7989E-06,\n     3 .6298E+02, .1052E+00, .5435E-02, .3644E-04,-.9412E-06,\n     3 .8640E+02, .1317E+00, .6768E-02, .4267E-04,-.1233E-05,\n     3 .1173E+03, .1642E+00, .8449E-02, .5211E-04,-.1579E-05,\n     3 .1586E+03, .1946E+00, .1018E-01, .6401E-04,-.1946E-05,\n     3 .2076E+03, .2239E+00, .1144E-01, .6956E-04,-.2126E-05,\n     3 .2711E+03, .2072E+00, .1130E-01, .7784E-04,-.2170E-05,\n     3 .3552E+03, .2081E+00, .1209E-01, .8748E-04,-.2514E-05,\n     3 .4641E+03, .1634E+00, .1221E-01, .1153E-03,-.2857E-05,\n     3 .5812E+03, .1662E+00, .1184E-01, .1027E-03,-.2862E-05,\n     3 .6853E+03, .4071E+00, .1649E-01, .3255E-04,-.3037E-05,\n     3 .8408E+03, .7898E-01, .2854E-02, .1555E-04,-.4177E-07,\n     3 .1031E+04,-.1059E+00,-.1015E-01,-.1071E-03, .2761E-05,\n     3 .1245E+04,-.5350E+00,-.2760E-01,-.1375E-03, .6120E-05,\n     4 .1791E+01, .4671E-02, .2245E-03, .1154E-05,-.4032E-07,\n     4 .2465E+01, .5317E-02, .2662E-03, .1574E-05,-.4716E-07,\n     4 .3441E+01, .5277E-02, .2950E-03, .2225E-05,-.5287E-07,\n     4 .4766E+01, .7379E-02, .3979E-03, .2820E-05,-.7061E-07,\n     4 .6615E+01, .9570E-02, .5076E-03, .3359E-05,-.9344E-07,\n     4 .9163E+01, .1539E-01, .7306E-03, .3510E-05,-.1351E-06,\n     4 .1279E+02, .1617E-01, .8247E-03, .5140E-05,-.1464E-06,\n     4 .1789E+02, .2130E-01, .1031E-02, .5581E-05,-.1820E-06,\n     4 .2391E+02, .3796E-01, .1474E-02, .3418E-05,-.2163E-06,\n     4 .3294E+02, .3936E-01, .1483E-02, .3084E-05,-.2004E-06,\n     4 .4575E+02, .2773E-01, .1137E-02, .5439E-05,-.1215E-06,\n     4 .6301E+02, .1832E-01, .7399E-03, .4006E-05,-.5753E-07,\n     4 .8609E+02, .8497E-02, .1991E-03,-.1211E-06, .3695E-07,\n     4 .1156E+03,-.2822E-01,-.8305E-03, .5836E-05, .1911E-06,\n     4 .1653E+03,-.1781E+00,-.4480E-02, .3480E-04, .5037E-06,\n     4 .2123E+03, .5571E-01, .1559E-02,-.1667E-04,-.4486E-06,\n     4 .2704E+03, .7448E-01, .6277E-03,-.3309E-04, .2755E-06,\n     4 .3374E+03,-.7487E-02,-.4234E-02,-.6698E-04, .1356E-05,\n     5 .7360E+00, .2716E-02, .1361E-03, .9457E-06,-.2056E-07,\n     5 .9957E+00, .3583E-02, .1763E-03, .1155E-05,-.2717E-07,\n     5 .1358E+01, .4862E-02, .2315E-03, .1361E-05,-.3651E-07,\n     5 .1864E+01, .6831E-02, .3127E-03, .1536E-05,-.5179E-07,\n     5 .2562E+01, .8541E-02, .3961E-03, .2102E-05,-.6380E-07,\n     5 .3592E+01, .1004E-01, .4876E-03, .2997E-05,-.7786E-07,\n     5 .4915E+01, .1421E-01, .6639E-03, .3703E-05,-.1042E-06,\n     5 .6845E+01, .1895E-01, .8707E-03, .4489E-05,-.1401E-06,\n     5 .9531E+01, .2304E-01, .1086E-02, .5880E-05,-.1806E-06,\n     5 .1338E+02, .2529E-01, .1300E-02, .8908E-05,-.2159E-06,\n     5 .1859E+02, .2983E-01, .1642E-02, .1271E-04,-.2808E-06,\n     5 .2555E+02, .3943E-01, .2143E-02, .1555E-04,-.3852E-06,\n     5 .3279E+02, .6610E-01, .3127E-02, .1593E-04,-.5566E-06,\n     5 .4081E+02, .8791E-01, .4129E-02, .2120E-04,-.7149E-06,\n     5 .5086E+02, .1277E+00, .5650E-02, .2339E-04,-.9697E-06,\n     5 .6022E+02, .1590E+00, .7100E-02, .3072E-04,-.1207E-05,\n     5 .7874E+02, .8541E-01, .6203E-02, .6140E-04,-.1318E-05,\n     5 .9991E+02, .1184E+00, .8159E-02, .7115E-04,-.1868E-05 /\n      DATA ((( CL4CH4(K,J,I), K = 1, 5), J = 1, 18), I = 1, 5) /\n     1 .9137E-01, .1088E-02, .4972E-05, .1499E-07,-.2950E-10,\n     1 .1187E+00, .1335E-02, .5474E-05, .1353E-07,-.4323E-10,\n     1 .1551E+00, .1652E-02, .5309E-05, .1271E-07, .1100E-09,\n     1 .2047E+00, .2143E-02, .7594E-05,-.6530E-08,-.2620E-09,\n     1 .2732E+00, .2688E-02, .7900E-05,-.4138E-08,-.1992E-09,\n     1 .3623E+00, .3390E-02, .9013E-05, .6175E-08,-.4666E-10,\n     1 .4805E+00, .4327E-02, .1129E-04, .2055E-07, .1086E-09,\n     1 .6329E+00, .5551E-02, .1557E-04, .3098E-07,-.8012E-13,\n     1 .8298E+00, .7139E-02, .2222E-04, .5144E-07,-.1101E-09,\n     1 .1092E+01, .9247E-02, .3166E-04, .4297E-07,-.1151E-08,\n     1 .1422E+01, .1168E-01, .3258E-04, .1151E-06, .4173E-09,\n     1 .1831E+01, .1444E-01, .3322E-04, .2244E-06, .2416E-08,\n     1 .2325E+01, .1759E-01, .4613E-04, .1798E-06,-.1103E-08,\n     1 .2957E+01, .2229E-01, .6204E-04, .2746E-07,-.5260E-08,\n     1 .3733E+01, .2761E-01, .6807E-04, .7011E-07,-.4948E-08,\n     1 .4620E+01, .3617E-01, .1329E-03,-.2251E-06,-.1553E-07,\n     1 .5887E+01, .4158E-01,-.3489E-04, .4706E-06, .1494E-07,\n     1 .7667E+01, .5108E-01,-.8798E-04, .8921E-06, .1366E-07,\n     2 .2207E+00, .2008E-02, .8345E-05,-.3194E-08,-.7102E-10,\n     2 .2915E+00, .2405E-02, .8360E-05, .1547E-08, .1615E-09,\n     2 .3892E+00, .2974E-02, .8936E-05,-.7955E-08, .3137E-09,\n     2 .5225E+00, .3597E-02, .8928E-05, .1703E-07, .8602E-09,\n     2 .7027E+00, .4644E-02, .1317E-04,-.1240E-07, .7214E-09,\n     2 .9451E+00, .6081E-02, .2750E-04,-.5610E-07,-.9667E-09,\n     2 .1287E+01, .7621E-02, .3806E-04,-.3813E-07,-.1639E-08,\n     2 .1759E+01, .9770E-02, .5419E-04,-.5969E-07,-.3062E-08,\n     2 .2394E+01, .1202E-01, .7968E-04, .4902E-07,-.4798E-08,\n     2 .3271E+01, .1417E-01, .8826E-04, .3344E-06,-.2054E-08,\n     2 .4481E+01, .1632E-01, .1096E-03, .7152E-06,-.1640E-08,\n     2 .6107E+01, .1992E-01, .1268E-03, .5190E-06,-.4426E-08,\n     2 .8397E+01, .2262E-01, .1162E-03, .8987E-06,-.1597E-08,\n     2 .1147E+02, .2732E-01, .7073E-04, .1168E-05, .3837E-08,\n     2 .1583E+02, .3975E-01,-.1534E-03,-.1913E-06, .3267E-07,\n     2 .2112E+02, .5559E-01,-.2737E-03,-.1964E-05, .6435E-07,\n     2 .2715E+02, .5229E-01, .3344E-03, .1562E-05,-.5051E-07,\n     2 .3467E+02, .3740E-01, .2171E-03, .3982E-05,-.2886E-07,\n     3 .2407E+00, .2039E-02, .1470E-04,-.2640E-07,-.8912E-09,\n     3 .3188E+00, .2290E-02, .1830E-04, .8208E-08,-.1229E-08,\n     3 .4211E+00, .2495E-02, .2941E-04, .8411E-07,-.2567E-08,\n     3 .5768E+00, .2748E-02, .3366E-04, .1720E-06,-.2882E-08,\n     3 .8098E+00, .3386E-02, .3183E-04, .2231E-06,-.2288E-08,\n     3 .1146E+01, .4600E-02, .2915E-04, .2112E-06,-.1932E-08,\n     3 .1632E+01, .6820E-02, .5652E-05, .6807E-07, .1466E-08,\n     3 .2301E+01, .1010E-01,-.1987E-04,-.1066E-06, .7104E-08,\n     3 .3197E+01, .1400E-01,-.1927E-04,-.2818E-06, .9577E-08,\n     3 .4407E+01, .1813E-01,-.2739E-07,-.4008E-06, .1006E-07,\n     3 .6107E+01, .2184E-01, .3399E-04,-.6081E-06, .7130E-08,\n     3 .8543E+01, .2574E-01, .1007E-03,-.4743E-06, .1007E-08,\n     3 .1159E+02, .3344E-01, .3544E-03,-.9878E-06,-.2314E-07,\n     3 .1563E+02, .3590E-01, .6387E-03,-.5254E-06,-.6602E-07,\n     3 .2259E+02, .4160E-01, .6703E-03, .5133E-06,-.8723E-07,\n     3 .3362E+02, .5251E-01,-.5808E-03, .1067E-05, .1409E-06,\n     3 .4756E+02, .7566E-01,-.4022E-03,-.3155E-05, .8415E-07,\n     3 .6182E+02, .8859E-01, .3841E-03,-.6404E-05,-.2222E-07,\n     4 .2988E+02, .3101E+00, .2051E-02, .4433E-05,-.9226E-09,\n     4 .3625E+02, .3201E+00, .2046E-02, .6589E-05, .1640E-07,\n     4 .4474E+02, .3416E+00, .2380E-02, .6462E-05,-.2999E-07,\n     4 .5692E+02, .3657E+00, .2588E-02, .6339E-05,-.7359E-07,\n     4 .7390E+02, .3828E+00, .2355E-02, .8384E-05,-.3824E-07,\n     4 .9619E+02, .4112E+00, .2900E-02, .8277E-05,-.1406E-06,\n     4 .1281E+03, .4211E+00, .1764E-02, .1049E-04, .1216E-07,\n     4 .1721E+03, .4390E+00,-.1284E-03, .1275E-04, .3038E-06,\n     4 .2294E+03, .4536E+00,-.3047E-03, .1296E-04, .2741E-06,\n     4 .3065E+03, .4878E+00, .7446E-03, .1574E-04, .6018E-07,\n     4 .4118E+03, .5523E+00, .7160E-03, .1813E-04, .4300E-07,\n     4 .5493E+03, .6324E+00, .6411E-03, .1278E-04, .1444E-06,\n     4 .7262E+03, .5727E+00, .9721E-03, .2628E-04, .4376E-07,\n     4 .9323E+03, .4248E+00, .6676E-02, .6926E-04,-.1448E-05,\n     4 .1174E+04, .8226E+00,-.1731E-01, .7288E-05, .2157E-05,\n     4 .1350E+04, .1466E+01, .1950E-02,-.6319E-04,-.1249E-05,\n     4 .1469E+04, .1092E+01, .7563E-03, .4991E-04,-.3726E-06,\n     4 .1518E+04, .6355E-01,-.1367E-02, .1037E-03, .1104E-05,\n     5 .2036E+01, .1970E-01, .6954E-04, .9777E-06, .1427E-07,\n     5 .2489E+01, .2249E-01, .9201E-04, .6975E-06, .9741E-08,\n     5 .3087E+01, .2558E-01, .1240E-03, .5592E-06, .4320E-08,\n     5 .3903E+01, .2815E-01, .1190E-03, .6690E-06, .7383E-08,\n     5 .5022E+01, .3039E-01, .1048E-03, .1061E-05, .1199E-07,\n     5 .6720E+01, .3072E-01,-.1784E-04, .1993E-05, .3744E-07,\n     5 .8736E+01, .3483E-01, .1329E-03, .2483E-05, .1622E-07,\n     5 .1156E+02, .4173E-01, .2808E-03, .2431E-05,-.7176E-08,\n     5 .1559E+02, .5133E-01, .5124E-03, .1729E-05,-.5871E-07,\n     5 .2104E+02, .6360E-01, .3861E-03, .1025E-05,-.4281E-07,\n     5 .2888E+02, .7407E-01,-.2885E-03, .8115E-06, .4623E-07,\n     5 .3933E+02, .1041E+00,-.5496E-03, .1333E-05, .2076E-07,\n     5 .5151E+02, .1307E+00,-.1016E-02, .3993E-05, .8703E-07,\n     5 .6489E+02, .1424E+00,-.1220E-02, .8490E-05, .2009E-06,\n     5 .7902E+02, .4233E-01,-.2834E-04, .2733E-04, .5109E-07,\n     5 .9987E+02, .5085E-02,-.1784E-02, .2788E-04, .1585E-06,\n     5 .1163E+03, .1377E+00,-.5601E-03, .5898E-06, .6894E-07,\n     5 .1301E+03, .2690E+00, .7167E-04,-.1505E-04,-.1757E-06 /\n      DATA ((( CL4CS(K,J,I), K = 1, 5), J = 1, 4), I = 1, 5) /\n     1 .2963E+01,-.6248E-01, .7072E-03,-.6852E-05, .4073E-07,\n     1 .4389E+01,-.9282E-01, .1053E-02,-.1018E-04, .6033E-07,\n     1 .6504E+01,-.1379E+00, .1563E-02,-.1513E-04, .8989E-07,\n     1 .9655E+01,-.2045E+00, .2315E-02,-.2248E-04, .1345E-06,\n     2 .5426E+01,-.7237E-01, .5760E-03,-.4182E-05, .2285E-07,\n     2 .7880E+01,-.1059E+00, .8600E-03,-.5971E-05, .2769E-07,\n     2 .1137E+02,-.1502E+00, .1194E-02,-.9983E-05, .6469E-07,\n     2 .1633E+02,-.2158E+00, .1902E-02,-.1555E-04, .7317E-07,\n     3 .1842E+01,-.3104E-01, .2853E-03,-.2193E-05, .1164E-07,\n     3 .2775E+01,-.4614E-01, .4189E-03,-.3011E-05, .1430E-07,\n     3 .4184E+01,-.6835E-01, .6010E-03,-.4193E-05, .1973E-07,\n     3 .6221E+01,-.1013E+00, .8702E-03,-.6274E-05, .3281E-07,\n     4 .2481E+01,-.3523E-01, .3003E-03,-.1935E-05, .6590E-08,\n     4 .3682E+01,-.5227E-01, .4152E-03,-.2940E-05, .1664E-07,\n     4 .5486E+01,-.7810E-01, .6293E-03,-.4376E-05, .2069E-07,\n     4 .8208E+01,-.1172E+00, .9091E-03,-.6048E-05, .3264E-07,\n     5 .8893E+01,-.1096E+00, .7672E-03,-.4571E-05, .1791E-07,\n     5 .1335E+02,-.1655E+00, .1103E-02,-.6265E-05, .3180E-07,\n     5 .2001E+02,-.2519E+00, .1738E-02,-.8552E-05, .2439E-07,\n     5 .3000E+02,-.3746E+00, .2320E-02,-.1363E-04, .9085E-07 /\n      DATA ((( CL4CF(K,J,I), K = 1, 5), J = 1, 4), I = 1, 5) /\n     1 .7013E-03,-.1603E-05, .1962E-07, .3683E-10,-.3567E-11,\n     1 .8985E-03,-.1971E-05, .2133E-07,-.5080E-10,-.2559E-11,\n     1 .1188E-02,-.3713E-05, .2277E-07,-.6132E-11,-.1074E-11,\n     1 .1773E-02,-.7232E-05, .3104E-08, .2434E-09, .2715E-11,\n     2 .9373E-01,-.2093E-03, .3432E-06, .4281E-08, .4751E-10,\n     2 .1318E+00,-.2736E-03, .7616E-06, .1319E-07,-.1956E-09,\n     2 .1819E+00,-.1819E-03,-.1961E-05,-.1174E-07, .5800E-09,\n     2 .2472E+00,-.1279E-04, .3770E-05,-.5185E-07,-.2937E-09,\n     3 .6826E-02,-.2275E-04, .8054E-07,-.6566E-09, .1963E-10,\n     3 .1086E-01,-.4792E-04, .4297E-06, .6485E-09,-.3405E-10,\n     3 .1737E-01,-.8208E-04, .5458E-06, .1082E-08,-.3918E-10,\n     3 .2609E-01,-.1179E-03, .1103E-06,-.6427E-09, .5693E-10,\n     4 .3075E-01,-.9096E-04, .1324E-05,-.4341E-08,-.1020E-09,\n     4 .4570E-01,-.1504E-03, .3913E-06,-.6475E-08, .1799E-09,\n     4 .6792E-01,-.2302E-03, .1675E-05,-.1538E-07,-.8774E-12,\n     4 .1032E+00,-.3967E-03, .1016E-05,-.6557E-08, .2296E-09,\n     5 .2480E+00,-.1007E-02, .4769E-05,-.2681E-07,-.2797E-10,\n     5 .3749E+00,-.1603E-02, .4728E-05,-.1799E-07, .3663E-09,\n     5 .5657E+00,-.2589E-02, .1026E-04,-.5741E-08,-.3444E-09,\n     5 .8529E+00,-.3892E-02, .3271E-05,-.3967E-07, .1784E-08 /\n      COMMON /BANDL4GH/ GWL4GH(5), CL4H2OGH(5,28,5), CL4N2OGH(5,28,5),\n     1                             CL4CH4GH(5,28,5)\n      DATA GWL4GH / .06000, .02000, .04000, .02000, .00200 /\n      DATA ((( CL4H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     1 .2389E-01, .8023E-03, .1119E-04, .7886E-07, .2424E-09,\n     1 .2524E-01, .8180E-03, .1115E-04, .7834E-07, .2450E-09,\n     1 .2783E-01, .8535E-03, .1113E-04, .7728E-07, .2525E-09,\n     1 .3203E-01, .9216E-03, .1138E-04, .7569E-07, .2400E-09,\n     1 .3887E-01, .1039E-02, .1195E-04, .7361E-07, .2101E-09,\n     1 .4984E-01, .1225E-02, .1294E-04, .7330E-07, .1907E-09,\n     1 .6746E-01, .1517E-02, .1453E-04, .7410E-07, .1717E-09,\n     1 .9657E-01, .1984E-02, .1733E-04, .7454E-07, .7852E-10,\n     1 .9675E-01, .1987E-02, .1709E-04, .7457E-07, .1291E-09,\n     1 .2319E+00, .3958E-02, .2654E-04, .8626E-07, .1313E-09,\n     1 .5036E+00, .7653E-02, .4228E-04, .8702E-07,-.2182E-10,\n     1 .6835E+00, .1001E-01, .5237E-04, .8422E-07,-.2534E-09,\n     1 .9369E+00, .1319E-01, .6201E-04, .8985E-07, .1192E-09,\n     1 .1291E+01, .1752E-01, .7501E-04, .7891E-07, .2683E-09,\n     1 .1788E+01, .2328E-01, .9027E-04, .1094E-06, .9234E-09,\n     1 .2472E+01, .3122E-01, .1211E-03, .1212E-06,-.3275E-09,\n     1 .3430E+01, .4227E-01, .1553E-03, .7843E-07,-.1063E-08,\n     1 .4744E+01, .5677E-01, .1867E-03, .5932E-07,-.1628E-09,\n     1 .6491E+01, .7539E-01, .2152E-03, .1557E-06, .3990E-08,\n     1 .8763E+01, .1009E+00, .3017E-03, .2280E-06, .2903E-08,\n     1 .1172E+02, .1371E+00, .4766E-03, .3806E-06,-.2891E-08,\n     1 .1582E+02, .1884E+00, .5719E-03, .2031E-06, .9369E-08,\n     1 .2147E+02, .2628E+00, .7701E-03,-.8997E-06, .4368E-08,\n     1 .2891E+02, .3565E+00, .1105E-02,-.1426E-05,-.1688E-07,\n     1 .3862E+02, .4676E+00, .1176E-02,-.1233E-05, .1237E-07,\n     1 .5095E+02, .6090E+00, .1076E-02,-.2648E-05, .7162E-07,\n     1 .6524E+02, .7809E+00, .1555E-02,-.5509E-05, .2720E-07,\n     1 .8082E+02, .9810E+00, .2414E-02,-.8815E-05,-.5367E-07,\n     2 .7236E+03, .7962E+01, .1904E-01,-.3996E-04,-.5148E-06,\n     2 .7236E+03, .7962E+01, .1896E-01,-.4060E-04,-.4972E-06,\n     2 .7236E+03, .7962E+01, .1896E-01,-.4067E-04,-.4960E-06,\n     2 .7236E+03, .7962E+01, .1910E-01,-.4064E-04,-.5201E-06,\n     2 .7236E+03, .7962E+01, .1936E-01,-.4068E-04,-.5609E-06,\n     2 .7236E+03, .7968E+01, .1931E-01,-.4193E-04,-.5658E-06,\n     2 .7236E+03, .7956E+01, .1883E-01,-.3833E-04,-.4978E-06,\n     2 .7236E+03, .7938E+01, .1889E-01,-.3021E-04,-.4364E-06,\n     2 .7242E+03, .7932E+01, .1871E-01,-.2850E-04,-.4095E-06,\n     2 .7242E+03, .7896E+01, .2018E-01,-.4137E-04,-.4395E-06,\n     2 .7350E+03, .7950E+01, .1039E-01,-.6774E-04, .1403E-05,\n     2 .7356E+03, .7944E+01, .1055E-01,-.6654E-04, .1361E-05,\n     2 .7434E+03, .7470E+01, .1583E-01, .3154E-04,-.4696E-07,\n     2 .7446E+03, .7338E+01, .3541E-01, .6012E-04,-.4080E-05,\n     2 .7464E+03, .7386E+01, .3458E-01, .5217E-04,-.3962E-05,\n     2 .7488E+03, .7416E+01, .3224E-01, .4928E-04,-.3556E-05,\n     2 .8112E+03, .7692E+01,-.2378E-01, .3646E-04, .5880E-05,\n     2 .8088E+03, .7818E+01,-.1949E-01, .1360E-04, .5100E-05,\n     2 .8052E+03, .9090E+01, .1899E-01,-.2113E-03,-.2146E-05,\n     2 .7992E+03, .8844E+01, .1637E-01,-.5873E-04,-.6390E-08,\n     2 .7920E+03, .8742E+01, .1591E-01,-.5873E-04, .1426E-07,\n     2 .7818E+03, .8598E+01, .1531E-01,-.5706E-04, .4255E-07,\n     2 .7674E+03, .8406E+01, .1509E-01,-.5579E-04,-.3805E-07,\n     2 .7488E+03, .8136E+01, .1412E-01,-.4969E-04,-.4195E-07,\n     2 .7260E+03, .7854E+01, .1159E-01,-.5386E-04, .2095E-06,\n     2 .6942E+03, .7494E+01, .1076E-01,-.5536E-04, .1964E-06,\n     2 .6540E+03, .7014E+01, .9864E-02,-.5251E-04, .1809E-06,\n     2 .6072E+03, .6516E+01, .1027E-01,-.6330E-04,-.1893E-06,\n     3 .2108E+01, .3332E-01, .1275E-03, .1178E-05, .1325E-07,\n     3 .2108E+01, .3294E-01, .1379E-03, .1257E-05, .1107E-07,\n     3 .2108E+01, .3294E-01, .1381E-03, .1268E-05, .1090E-07,\n     3 .2126E+01, .3294E-01, .1198E-03, .1265E-05, .1391E-07,\n     3 .2156E+01, .3293E-01, .8849E-04, .1269E-05, .1899E-07,\n     3 .2117E+01, .3215E-01, .9393E-04, .1425E-05, .1947E-07,\n     3 .2106E+01, .3404E-01, .1532E-03, .9540E-06, .1125E-07,\n     3 .2108E+01, .3590E-01, .1476E-03,-.5847E-07, .3361E-08,\n     3 .2075E+01, .3686E-01, .1700E-03,-.2662E-06, .3063E-10,\n     3 .2045E+01, .3572E-01, .1901E-03,-.3326E-07,-.3711E-08,\n     3 .1824E+01, .3158E-01, .2442E-03, .4196E-06,-.1189E-07,\n     3 .1820E+01, .3198E-01, .2232E-03, .3441E-06,-.7679E-08,\n     3 .1878E+01, .3197E-01, .1528E-03, .1701E-06, .2109E-08,\n     3 .1815E+01, .3070E-01, .1596E-03, .2971E-06, .1288E-08,\n     3 .1808E+01, .2829E-01, .8270E-04, .6339E-06, .1470E-07,\n     3 .1766E+01, .2901E-01, .1250E-03, .2424E-06, .3840E-08,\n     3 .1745E+01, .3131E-01, .1697E-03,-.9534E-06,-.1533E-07,\n     3 .1680E+01, .2975E-01, .1597E-03,-.4634E-06,-.9044E-08,\n     3 .1628E+01, .2907E-01, .1676E-03,-.9052E-07,-.6416E-08,\n     3 .1541E+01, .2736E-01, .1364E-03, .2546E-06, .2139E-08,\n     3 .1424E+01, .2636E-01, .1318E-03, .2340E-06, .1267E-08,\n     3 .1267E+01, .2634E-01, .1556E-03, .8799E-07,-.3775E-08,\n     3 .1109E+01, .2486E-01, .1188E-03, .4647E-07, .4857E-08,\n     3 .8613E+00, .2496E-01, .1294E-03,-.3978E-06, .7470E-08,\n     3 .4707E+00, .1772E-01, .3293E-03, .4122E-06,-.2613E-07,\n     3 .4857E+00, .1040E-01, .1019E-03, .9338E-06, .6153E-08,\n     3 .4899E+00, .1038E-01, .9413E-04, .2505E-06,-.1454E-08,\n     3 .4833E+00, .7562E-02, .3546E-04, .3612E-06, .4517E-08 /\n      DATA ((( CL4H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 5) /\n     4 .2355E+02, .2819E+00,-.4206E-03,-.6588E-05, .1073E-06,\n     4 .2355E+02, .2819E+00,-.4209E-03,-.6590E-05, .1074E-06,\n     4 .2355E+02, .2819E+00,-.4208E-03,-.6590E-05, .1074E-06,\n     4 .2353E+02, .2819E+00,-.4211E-03,-.6590E-05, .1074E-06,\n     4 .2353E+02, .2819E+00,-.4211E-03,-.6590E-05, .1074E-06,\n     4 .2353E+02, .2819E+00,-.4217E-03,-.6590E-05, .1075E-06,\n     4 .2353E+02, .2819E+00,-.4215E-03,-.6551E-05, .1070E-06,\n     4 .2352E+02, .2817E+00,-.4235E-03,-.6551E-05, .1074E-06,\n     4 .2352E+02, .2817E+00,-.4236E-03,-.6562E-05, .1073E-06,\n     4 .2346E+02, .2916E+00,-.8387E-03,-.3810E-05, .1225E-06,\n     4 .2105E+02, .2838E+00, .1490E-02, .1889E-05,-.3219E-06,\n     4 .2091E+02, .2828E+00, .1485E-02, .1736E-05,-.3197E-06,\n     4 .1859E+02, .3990E+00, .2987E-03,-.2243E-04, .1270E-07,\n     4 .1823E+02, .4320E+00,-.4620E-02,-.2981E-04, .1022E-05,\n     4 .1755E+02, .4209E+00,-.4274E-02,-.2850E-04, .9660E-06,\n     4 .1670E+02, .4073E+00,-.3795E-02,-.2700E-04, .8865E-06,\n     4 .5743E+00, .3263E+00, .1010E-01,-.2136E-04,-.1434E-05,\n     4 .4236E+00, .2876E+00, .9015E-02,-.1662E-04,-.1252E-05,\n     4 .3987E+00,-.4227E-01,-.6518E-03, .3882E-04, .5528E-06,\n     4 .4442E+00, .5766E-02, .7944E-05,-.6069E-07, .7719E-09,\n     4 .4914E+00, .7053E-02, .1367E-04,-.7704E-07, .1159E-08,\n     4 .5693E+00, .9095E-02, .3801E-04,-.1469E-06,-.2042E-08,\n     4 .6678E+00, .1032E-01, .2110E-04, .1560E-06, .4224E-08,\n     4 .7842E+00, .1593E-01, .6816E-05,-.3554E-06, .1052E-07,\n     4 .8238E+00, .2334E-01, .8207E-04,-.1137E-05, .4041E-08,\n     4 .3765E+00, .2898E-01, .7379E-03,-.1364E-05,-.9786E-07,\n     4 .3693E+00, .2225E-01, .5910E-03, .1003E-05,-.5321E-07,\n     4 .4338E+00,-.1136E-04,-.6776E-04, .5445E-05, .7788E-07,\n     5 .9687E-02, .1412E-03, .5307E-06,-.5223E-09,-.2049E-11,\n     5 .9690E-02, .1413E-03, .5309E-06,-.5186E-09,-.2009E-11,\n     5 .9698E-02, .1413E-03, .5304E-06,-.5111E-09,-.1814E-11,\n     5 .9711E-02, .1415E-03, .5309E-06,-.4959E-09,-.1613E-11,\n     5 .9738E-02, .1418E-03, .5316E-06,-.4677E-09,-.1178E-11,\n     5 .9793E-02, .1425E-03, .5325E-06,-.4074E-09,-.2019E-12,\n     5 .9906E-02, .1439E-03, .5349E-06,-.2852E-09, .1674E-11,\n     5 .1013E-01, .1466E-03, .5391E-06,-.3668E-10, .5639E-11,\n     5 .1013E-01, .1466E-03, .5391E-06,-.3675E-10, .5640E-11,\n     5 .1153E-01, .1642E-03, .5758E-06, .9417E-09, .2184E-10,\n     5 .1511E-01, .2118E-03, .6582E-06, .6767E-09, .3303E-10,\n     5 .1770E-01, .2436E-03, .7868E-06, .1764E-08, .3789E-10,\n     5 .2153E-01, .2931E-03, .9288E-06, .2837E-08, .5458E-10,\n     5 .2721E-01, .3674E-03, .1228E-05, .5044E-08, .4404E-10,\n     5 .3557E-01, .4854E-03, .1211E-05, .5428E-08, .1463E-09,\n     5 .4920E-01, .7096E-03,-.7649E-06,-.1568E-07, .4641E-09,\n     5 .6774E-01, .9642E-03,-.1386E-05,-.1477E-07, .6924E-09,\n     5 .8295E-01, .1503E-02, .9383E-05,-.5270E-07,-.9002E-09,\n     5 .1053E+00, .2090E-02, .2388E-04,-.6977E-07,-.2912E-08,\n     5 .1493E+00, .2139E-02, .4439E-05, .4974E-07, .1430E-08,\n     5 .1845E+00, .3423E-02, .5772E-05,-.8297E-07, .1452E-08,\n     5 .1401E+00, .2064E-02,-.1348E-04, .1100E-06, .6345E-08,\n     5 .1269E+00, .1383E-02, .6630E-05, .3254E-07, .2028E-09,\n     5 .1572E+00, .2025E-02, .8321E-05,-.4928E-07,-.4596E-09,\n     5 .1524E+00, .2465E-02, .3357E-04, .1213E-07,-.3288E-08,\n     5 .1567E+00, .2385E-02, .8036E-05, .1980E-07, .7383E-09,\n     5 .1728E+00, .2756E-02, .2018E-04,-.3805E-08,-.8982E-09,\n     5 .1614E+00, .1926E-02, .1683E-04, .9033E-07, .2361E-09 /\n      DATA ((( CL4N2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     1 .4988E-01, .8580E-03, .3692E-04, .2180E-06,-.3876E-08,\n     1 .5165E-01, .8462E-03, .3643E-04, .2110E-06,-.3960E-08,\n     1 .5233E-01, .9050E-03, .3818E-04, .2030E-06,-.4235E-08,\n     1 .5855E-01, .9452E-03, .4001E-04, .2128E-06,-.4518E-08,\n     1 .7071E-01, .8644E-03, .3850E-04, .2357E-06,-.4512E-08,\n     1 .8943E-01, .9599E-03, .4286E-04, .2450E-06,-.5571E-08,\n     1 .1124E+00, .1075E-02, .4820E-04, .2629E-06,-.6742E-08,\n     1 .1522E+00, .1398E-02, .6125E-04, .2914E-06,-.9041E-08,\n     1 .2362E+00, .1645E-02, .7551E-04, .3925E-06,-.1201E-07,\n     1 .3505E+00, .1991E-02, .9643E-04, .6076E-06,-.1485E-07,\n     1 .6880E+00, .3824E-02, .1786E-03, .1011E-05,-.2760E-07,\n     1 .9256E+00, .4666E-02, .2183E-03, .1189E-05,-.3527E-07,\n     1 .1217E+01, .6512E-02, .2931E-03, .1344E-05,-.4883E-07,\n     1 .1636E+01, .6174E-02, .3114E-03, .2063E-05,-.5101E-07,\n     1 .2280E+01, .6586E-02, .3680E-03, .2917E-05,-.6316E-07,\n     1 .3157E+01, .7771E-02, .4553E-03, .3738E-05,-.8330E-07,\n     1 .4350E+01, .8261E-02, .5513E-03, .5395E-05,-.1028E-06,\n     1 .6032E+01, .1205E-01, .7615E-03, .6747E-05,-.1472E-06,\n     1 .8129E+01, .1545E-01, .9619E-03, .8408E-05,-.1837E-06,\n     1 .1056E+02, .1961E-01, .1206E-02, .1050E-04,-.2262E-06,\n     1 .1323E+02, .3396E-01, .1781E-02, .1175E-04,-.3247E-06,\n     1 .1643E+02, .4218E-01, .2290E-02, .1606E-04,-.4258E-06,\n     1 .2066E+02, .5072E-01, .2954E-02, .2282E-04,-.5743E-06,\n     1 .2703E+02, .6713E-01, .4093E-02, .3230E-04,-.8506E-06,\n     1 .3367E+02, .9359E-01, .5513E-02, .4178E-04,-.1121E-05,\n     1 .4364E+02, .1033E+00, .6674E-02, .5709E-04,-.1403E-05,\n     1 .5596E+02, .1693E+00, .9550E-02, .6365E-04,-.2023E-05,\n     1 .6287E+02, .4216E+00, .1751E-01, .3710E-04,-.3394E-05,\n     2 .5170E-01, .1044E-02, .4268E-04, .1976E-06,-.4816E-08,\n     2 .5375E-01, .1045E-02, .4276E-04, .1985E-06,-.4844E-08,\n     2 .5968E-01, .1002E-02, .4182E-04, .2101E-06,-.4757E-08,\n     2 .6615E-01, .1034E-02, .4324E-04, .2126E-06,-.5081E-08,\n     2 .7531E-01, .1173E-02, .4785E-04, .1966E-06,-.6056E-08,\n     2 .1018E+00, .1173E-02, .5008E-04, .2383E-06,-.6684E-08,\n     2 .1342E+00, .1309E-02, .5669E-04, .2672E-06,-.8100E-08,\n     2 .1917E+00, .1682E-02, .7213E-04, .2842E-06,-.1152E-07,\n     2 .2972E+00, .1897E-02, .8747E-04, .4546E-06,-.1414E-07,\n     2 .3855E+00, .3031E-02, .1288E-03, .5204E-06,-.1954E-07,\n     2 .7423E+00, .4535E-02, .1965E-03, .8849E-06,-.2927E-07,\n     2 .9859E+00, .4597E-02, .2158E-03, .1331E-05,-.3080E-07,\n     2 .1316E+01, .6987E-02, .3086E-03, .1467E-05,-.4673E-07,\n     2 .1809E+01, .6752E-02, .3375E-03, .2355E-05,-.5047E-07,\n     2 .2343E+01, .9041E-02, .4397E-03, .3010E-05,-.6184E-07,\n     2 .3125E+01, .1392E-01, .6355E-03, .3391E-05,-.9717E-07,\n     2 .4146E+01, .1739E-01, .8144E-03, .4677E-05,-.1251E-06,\n     2 .5620E+01, .2043E-01, .1038E-02, .7100E-05,-.1679E-06,\n     2 .7262E+01, .2520E-01, .1319E-02, .9658E-05,-.2124E-06,\n     2 .1011E+02, .4856E-01, .2259E-02, .1040E-04,-.4136E-06,\n     2 .1330E+02, .7198E-01, .3203E-02, .1265E-04,-.5738E-06,\n     2 .1731E+02, .7242E-01, .3471E-02, .1956E-04,-.5831E-06,\n     2 .2076E+02, .1096E+00, .4867E-02, .2097E-04,-.8149E-06,\n     2 .2346E+02, .1381E+00, .5856E-02, .2247E-04,-.9158E-06,\n     2 .2809E+02, .1022E+00, .5081E-02, .3419E-04,-.7825E-06,\n     2 .2414E+02, .1368E+00, .5566E-02, .2155E-04,-.7330E-06,\n     2 .1476E+02, .1447E+00, .5366E-02, .1282E-04,-.6336E-06,\n     2 .5787E+01, .5165E-02, .1446E-02, .3817E-04, .4241E-07,\n     3 .6458E+04,-.4833E-01, .3890E-02, .1125E-03,-.1087E-05,\n     3 .6458E+04,-.4827E-01, .3888E-02, .1124E-03,-.1086E-05,\n     3 .6458E+04,-.4791E-01, .3887E-02, .1123E-03,-.1084E-05,\n     3 .6458E+04,-.4778E-01, .3872E-02, .1119E-03,-.1076E-05,\n     3 .6458E+04,-.4840E-01, .3821E-02, .1115E-03,-.1062E-05,\n     3 .6458E+04, .2823E-02, .5023E-02, .9978E-04,-.1185E-05,\n     3 .6458E+04, .2388E-02, .4853E-02, .9690E-04,-.1138E-05,\n     3 .6451E+04,-.7123E-02, .4602E-02, .9830E-04,-.1114E-05,\n     3 .6458E+04,-.1205E+00, .5893E-02, .1799E-03,-.2481E-05,\n     3 .6458E+04,-.1635E+00, .3339E-02, .1668E-03,-.1773E-05,\n     3 .6426E+04, .1113E+01, .3695E-01,-.1197E-03,-.7629E-05,\n     3 .6419E+04, .1027E+01, .3404E-01,-.1017E-03,-.6733E-05,\n     3 .6383E+04, .1558E+01, .4609E-01,-.2414E-03,-.8186E-05,\n     3 .6366E+04, .3765E+00, .2042E-01, .1448E-03,-.3753E-05,\n     3 .6340E+04, .7142E-01, .3606E-02, .4442E-04,-.8531E-08,\n     3 .6333E+04, .2743E+00, .1009E-01, .1786E-04,-.1330E-05,\n     3 .6282E+04, .3212E+00, .4309E-02,-.1311E-03, .2304E-06,\n     3 .6232E+04,-.2892E+00,-.1575E-01,-.7142E-04, .4072E-05,\n     3 .6172E+04,-.9869E+00,-.3712E-01, .1841E-06, .7296E-05,\n     3 .6032E+04,-.5739E+00,-.3114E-01,-.1738E-03, .7066E-05,\n     3 .5885E+04,-.5738E+00,-.3492E-01,-.2867E-03, .6931E-05,\n     3 .5678E+04,-.4250E+00,-.3835E-01,-.4296E-03, .9120E-05,\n     3 .5459E+04,-.8243E+00,-.5504E-01,-.4660E-03, .1238E-04,\n     3 .5187E+04,-.9670E+00,-.6470E-01,-.5443E-03, .1471E-04,\n     3 .4896E+04,-.1658E+01,-.8486E-01,-.4743E-03, .1706E-04,\n     3 .4541E+04,-.1835E+01,-.8762E-01,-.4542E-03, .1573E-04,\n     3 .4055E+04,-.1467E+01,-.7584E-01,-.4803E-03, .1400E-04,\n     3 .3500E+04,-.1173E+01,-.6168E-01,-.3969E-03, .1165E-04 /\n      DATA ((( CL4N2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 5) /\n     4 .3893E+03, .1021E+01, .3123E-01,-.1210E-03,-.5144E-05,\n     4 .3893E+03, .1021E+01, .3123E-01,-.1210E-03,-.5144E-05,\n     4 .3893E+03, .1021E+01, .3123E-01,-.1210E-03,-.5144E-05,\n     4 .3894E+03, .1020E+01, .3123E-01,-.1210E-03,-.5144E-05,\n     4 .3894E+03, .1020E+01, .3122E-01,-.1210E-03,-.5144E-05,\n     4 .3931E+03, .9536E+00, .2956E-01,-.1073E-03,-.4952E-05,\n     4 .3934E+03, .9516E+00, .2955E-01,-.1060E-03,-.4956E-05,\n     4 .3942E+03, .9580E+00, .2943E-01,-.1122E-03,-.4888E-05,\n     4 .3876E+03, .1090E+01, .2708E-01,-.2214E-03,-.3004E-05,\n     4 .3873E+03, .1126E+01, .2891E-01,-.2179E-03,-.3568E-05,\n     4 .4184E+03,-.5248E+00,-.1714E-01, .1022E-03, .4688E-05,\n     4 .4248E+03,-.3435E+00,-.1757E-01,-.3228E-04, .5424E-05,\n     4 .5268E+03,-.2199E+01,-.6428E-01, .3501E-03, .1122E-04,\n     4 .5412E+03,-.7284E+00,-.3442E-01,-.1727E-03, .6188E-05,\n     4 .5608E+03,-.5328E+00,-.1857E-01, .4252E-04, .3948E-05,\n     4 .5900E+03,-.1583E+01,-.4900E-01, .1828E-03, .8308E-05,\n     4 .6188E+03,-.8484E+00,-.2166E-01, .1429E-03, .1974E-05,\n     4 .6592E+03, .6440E-01, .1962E-02,-.1083E-03,-.3201E-05,\n     4 .6804E+03, .5872E+00, .1542E-01,-.2383E-03,-.5716E-05,\n     4 .7504E+03,-.7692E+00,-.1903E-01, .8080E-04,-.1088E-06,\n     4 .7328E+03,-.1586E+00,-.1535E-02, .6512E-04,-.5992E-06,\n     4 .7340E+03,-.5016E+00,-.5500E-02, .1926E-03,-.1719E-05,\n     4 .6772E+03,-.1717E+00, .5508E-02, .1743E-03,-.3544E-05,\n     4 .6228E+03,-.1493E+00, .8392E-02, .2060E-03,-.4472E-05,\n     4 .5224E+03, .4880E+00, .2377E-01, .8404E-04,-.5656E-05,\n     4 .4116E+03, .5196E+00, .2191E-01, .7456E-04,-.3667E-05,\n     4 .3674E+03, .3179E+00, .1746E-01, .1248E-03,-.3306E-05,\n     4 .3502E+03, .2198E+00, .8108E-02, .1192E-04,-.1179E-05,\n     5 .3956E+04,-.9684E+01,-.2756E+00, .1190E-02, .3309E-04,\n     5 .3956E+04,-.9688E+01,-.2756E+00, .1190E-02, .3309E-04,\n     5 .3955E+04,-.9684E+01,-.2756E+00, .1190E-02, .3310E-04,\n     5 .3955E+04,-.9684E+01,-.2756E+00, .1190E-02, .3309E-04,\n     5 .3954E+04,-.9684E+01,-.2756E+00, .1190E-02, .3310E-04,\n     5 .3952E+04,-.9684E+01,-.2756E+00, .1190E-02, .3311E-04,\n     5 .3949E+04,-.9684E+01,-.2755E+00, .1191E-02, .3312E-04,\n     5 .3943E+04,-.9684E+01,-.2756E+00, .1195E-02, .3321E-04,\n     5 .3930E+04,-.9680E+01,-.2754E+00, .1195E-02, .3328E-04,\n     5 .3903E+04,-.9664E+01,-.2752E+00, .1196E-02, .3339E-04,\n     5 .3804E+04,-.9592E+01,-.2737E+00, .1193E-02, .3378E-04,\n     5 .3734E+04,-.1061E+02,-.2560E+00, .2086E-02, .2102E-04,\n     5 .3032E+04, .9632E+00, .3287E-01,-.2678E-03,-.1206E-04,\n     5 .2910E+04, .6236E+00, .2294E-01,-.1914E-03,-.9672E-05,\n     5 .2743E+04, .1983E+01, .3851E-01,-.1425E-02,-.2592E-04,\n     5 .2118E+04, .9328E+01, .2214E+00,-.2838E-02,-.4424E-04,\n     5 .1852E+04, .5196E+00,-.2855E-01,-.9160E-03, .9244E-05,\n     5 .1217E+04,-.2219E+01,-.7616E-01, .5096E-03, .2496E-04,\n     5 .6204E+03,-.1749E+00,-.1348E-01, .5316E-03, .2213E-04,\n     5 .1615E+03, .6936E+01, .1902E+00,-.9124E-03,-.1962E-04,\n     5 .1904E+03,-.4192E-01, .2323E-02, .6436E-04,-.1037E-05,\n     5 .1386E+03, .2807E+00, .5912E-02,-.4012E-04, .5732E-06,\n     5 .1503E+03, .4096E+00, .6616E-02,-.1279E-03, .5024E-06,\n     5 .2210E+03, .1447E+00, .1008E-02,-.5940E-04, .8608E-06,\n     5 .3346E+03, .6364E-01,-.6224E-02,-.1564E-03, .2112E-05,\n     5 .5816E+03,-.6336E+00,-.1241E-01, .1678E-03, .1669E-06,\n     5 .7484E+03,-.2662E+00, .1446E-01, .4064E-03,-.6384E-05,\n     5 .8964E+03, .5260E+00, .6216E-01, .7264E-03,-.1772E-04 /\n      DATA ((( CL4CH4GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     1 .8700E+00, .1887E-01, .1585E-03, .6363E-06, .1081E-08,\n     1 .8721E+00, .1898E-01, .1413E-03, .5553E-06, .3840E-08,\n     1 .8595E+00, .1880E-01, .1489E-03, .5433E-06, .2285E-08,\n     1 .8466E+00, .1902E-01, .1696E-03, .4416E-06,-.1869E-08,\n     1 .8448E+00, .1890E-01, .1844E-03, .5346E-06,-.3618E-08,\n     1 .8460E+00, .1804E-01, .1724E-03, .7254E-06,-.4830E-09,\n     1 .8769E+00, .1775E-01, .1611E-03, .7674E-06, .1459E-08,\n     1 .9585E+00, .1811E-01, .1305E-03, .8235E-06, .8208E-08,\n     1 .1076E+01, .1884E-01, .1309E-03, .7077E-06, .7203E-08,\n     1 .1241E+01, .1978E-01, .1883E-03, .6351E-06,-.3513E-08,\n     1 .1919E+01, .2328E-01, .1845E-03, .4407E-06,-.3924E-08,\n     1 .2375E+01, .2612E-01, .1809E-03, .1315E-06,-.4521E-08,\n     1 .2954E+01, .2696E-01, .1611E-03, .3363E-06,-.1368E-08,\n     1 .3774E+01, .2908E-01, .4320E-04, .5202E-06, .2121E-07,\n     1 .4824E+01, .3621E-01, .7428E-04,-.4026E-06, .1263E-07,\n     1 .6174E+01, .4110E-01, .2357E-03,-.7044E-06,-.1811E-07,\n     1 .8148E+01, .4674E-01, .2657E-03,-.1123E-06,-.1929E-07,\n     1 .1036E+02, .4995E-01, .6102E-03, .7980E-06,-.7266E-07,\n     1 .1414E+02, .6255E-01, .2994E-03, .1214E-06,-.3504E-07,\n     1 .1903E+02, .7083E-01,-.1424E-03, .2311E-05, .2283E-07,\n     1 .2470E+02, .1071E+00, .4068E-03,-.2388E-05,-.5868E-07,\n     1 .3108E+02, .1164E+00, .3711E-03,-.2117E-05, .2126E-07,\n     1 .3771E+02, .1077E+00, .1159E-02, .3057E-05,-.9174E-07,\n     1 .4809E+02, .1572E+00,-.8061E-03,-.7326E-06, .1206E-06,\n     1 .5589E+02, .2635E+00,-.2446E-02,-.9432E-05, .3012E-06,\n     1 .6153E+02, .3111E+00,-.5085E-03,-.9444E-05, .6441E-07,\n     1 .6975E+02, .3501E+00, .4641E-03,-.2692E-05,-.9003E-07,\n     1 .8316E+02, .4320E+00,-.2826E-02,-.1446E-04, .4611E-06,\n     2 .8589E+00, .1775E-01, .1834E-03, .1063E-05,-.4194E-09,\n     2 .8619E+00, .1764E-01, .1781E-03, .1091E-05, .5043E-09,\n     2 .8634E+00, .1822E-01, .1967E-03, .1024E-05,-.2585E-08,\n     2 .8694E+00, .1804E-01, .1970E-03, .1136E-05,-.1791E-08,\n     2 .8784E+00, .1763E-01, .1835E-03, .1063E-05,-.1280E-08,\n     2 .8652E+00, .1762E-01, .2120E-03, .1033E-05,-.6234E-08,\n     2 .9228E+00, .1781E-01, .2100E-03, .9363E-06,-.7014E-08,\n     2 .1009E+01, .1795E-01, .1923E-03, .8424E-06,-.4398E-08,\n     2 .1153E+01, .1739E-01, .1936E-03, .1064E-05,-.4563E-08,\n     2 .1369E+01, .1763E-01, .1357E-03, .7248E-06, .3159E-08,\n     2 .2197E+01, .2318E-01, .1815E-03,-.4185E-06,-.2029E-07,\n     2 .2599E+01, .2272E-01, .1598E-03, .9402E-07,-.1427E-07,\n     2 .3441E+01, .2298E-01,-.6693E-04, .9123E-06, .2633E-07,\n     2 .4131E+01, .2627E-01, .8970E-04, .1018E-05, .4293E-08,\n     2 .5148E+01, .2958E-01, .1367E-03, .1379E-05,-.5712E-08,\n     2 .6624E+01, .2888E-01,-.8442E-04, .3177E-05, .3993E-07,\n     2 .8817E+01, .5097E-01, .5445E-04,-.1598E-05, .3513E-08,\n     2 .1220E+02, .6765E-01,-.1743E-03,-.3681E-05, .3231E-07,\n     2 .1527E+02, .6414E-01, .6732E-04, .2051E-05, .3408E-07,\n     2 .1929E+02, .7989E-01, .3669E-03,-.2651E-05, .3153E-09,\n     2 .2435E+02, .7494E-01, .7125E-05, .2423E-05, .4284E-07,\n     2 .3306E+02, .8523E-01,-.1250E-02, .6003E-05, .1263E-06,\n     2 .4257E+02, .2278E+00,-.4995E-03,-.2163E-04,-.2819E-07,\n     2 .5352E+02, .1195E+00, .1703E-02, .8169E-05,-.4698E-06,\n     2 .7062E+02, .4803E-01, .1991E-02, .5082E-04,-.8274E-06,\n     2 .9615E+02, .2264E+00,-.1710E-01, .4059E-04, .2430E-05,\n     2 .9891E+02, .5631E+00,-.1117E-01,-.3456E-05, .1443E-05,\n     2 .9564E+02, .8934E+00, .6780E-03,-.4305E-04,-.6852E-06,\n     3 .9288E+00, .2126E-01, .1902E-03, .4353E-06,-.2975E-08,\n     3 .9306E+00, .2115E-01, .1935E-03, .4560E-06,-.3603E-08,\n     3 .9387E+00, .2134E-01, .1973E-03, .4104E-06,-.4506E-08,\n     3 .9636E+00, .2127E-01, .1868E-03, .4221E-06,-.3084E-08,\n     3 .9810E+00, .2158E-01, .1865E-03, .3675E-06,-.2958E-08,\n     3 .1034E+01, .2176E-01, .1823E-03, .3576E-06,-.2314E-08,\n     3 .1118E+01, .2164E-01, .1850E-03, .4491E-06,-.2807E-08,\n     3 .1232E+01, .2098E-01, .2039E-03, .7506E-06,-.4689E-08,\n     3 .1621E+01, .2367E-01, .1262E-03, .3819E-06, .5298E-08,\n     3 .2102E+01, .2708E-01, .1778E-03, .2137E-06,-.5181E-08,\n     3 .3567E+01, .3681E-01, .2037E-03,-.3219E-07,-.5022E-08,\n     3 .4428E+01, .4692E-01, .3123E-03,-.1232E-05,-.2515E-07,\n     3 .5760E+01, .5175E-01, .2055E-03,-.1133E-05,-.3948E-08,\n     3 .7287E+01, .5418E-01, .2750E-03,-.4224E-06,-.6207E-08,\n     3 .9219E+01, .5823E-01, .5517E-03,-.2557E-06,-.3555E-07,\n     3 .1274E+02, .6270E-01, .2239E-03,-.3996E-06, .1998E-07,\n     3 .1728E+02, .6105E-01, .3735E-03, .9441E-06, .2895E-08,\n     3 .2393E+02, .5451E-01, .6534E-03, .2003E-05,-.7485E-07,\n     3 .3444E+02, .4383E-01,-.2811E-03, .5136E-05, .7017E-07,\n     3 .4809E+02, .4314E-01,-.7395E-03, .6189E-05, .1073E-06,\n     3 .6579E+02, .5343E-01,-.1095E-02, .1158E-04, .8841E-07,\n     3 .9036E+02, .9243E-01,-.8157E-03, .1553E-04,-.9471E-07,\n     3 .1236E+03, .2937E+00,-.4410E-02,-.4323E-06, .4398E-06,\n     3 .1607E+03, .5868E+00,-.7134E-02,-.5088E-04, .1144E-05,\n     3 .1815E+03, .5172E+00, .1127E-01,-.3252E-04,-.1679E-05,\n     3 .2223E+03,-.1233E-01, .5787E-02, .3966E-04,-.4056E-06,\n     3 .2791E+03,-.3414E+00,-.1515E-02, .1201E-04, .7755E-07,\n     3 .3342E+03,-.3147E+00,-.2453E-02, .3483E-04,-.1173E-06 /\n      DATA ((( CL4CH4GH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 5) /\n     4 .4757E+04, .3723E+02,-.1232E-01,-.1715E-03, .2729E-05,\n     4 .4757E+04, .3723E+02,-.1232E-01,-.1714E-03, .2731E-05,\n     4 .4757E+04, .3723E+02,-.1232E-01,-.1714E-03, .2729E-05,\n     4 .4758E+04, .3723E+02,-.1231E-01,-.1713E-03, .2728E-05,\n     4 .4759E+04, .3722E+02,-.1230E-01,-.1711E-03, .2727E-05,\n     4 .4762E+04, .3720E+02,-.1230E-01,-.1710E-03, .2729E-05,\n     4 .4768E+04, .3717E+02,-.1225E-01,-.1714E-03, .2737E-05,\n     4 .4779E+04, .3709E+02,-.1190E-01,-.1722E-03, .2726E-05,\n     4 .4803E+04, .3690E+02,-.1079E-01,-.1692E-03, .2628E-05,\n     4 .4856E+04, .3645E+02,-.9280E-02,-.1562E-03, .2479E-05,\n     4 .5073E+04, .3486E+02,-.8470E-02,-.1160E-03, .2350E-05,\n     4 .5236E+04, .3382E+02,-.1048E-01,-.9670E-04, .2602E-05,\n     4 .5475E+04, .3243E+02,-.1390E-01,-.7469E-04, .3056E-05,\n     4 .5813E+04, .3057E+02,-.1208E-01,-.3754E-04, .2472E-05,\n     4 .6287E+04, .2813E+02,-.1333E-01, .3365E-04, .2126E-05,\n     4 .6931E+04, .2547E+02,-.2359E-01, .2483E-04, .3583E-05,\n     4 .7753E+04, .2220E+02,-.2430E-01, .1363E-04, .3552E-05,\n     4 .8761E+04, .1796E+02,-.2315E-01, .7604E-04, .3398E-05,\n     4 .9912E+04, .1323E+02,-.2065E-01, .2217E-03, .1908E-05,\n     4 .1108E+05, .9344E+01,-.3527E-01, .1472E-03, .4259E-05,\n     4 .1204E+05, .4914E+01,-.1852E-01, .1686E-03, .2102E-05,\n     4 .1264E+05, .4016E+00,-.2033E-01, .2019E-03, .3795E-05,\n     4 .1273E+05,-.3879E+01,-.4584E-02, .2450E-03, .1802E-05,\n     4 .1231E+05,-.7157E+01,-.1190E-01, .1783E-03, .4332E-05,\n     4 .1146E+05,-.1005E+02, .1147E-01, .1396E-03, .1857E-05,\n     4 .1039E+05,-.1248E+02, .1441E-01, .1426E-03, .2535E-05,\n     4 .9251E+04,-.1326E+02, .1343E-01, .8996E-04, .3177E-05,\n     4 .8208E+04,-.1274E+02, .1830E-01, .6832E-04, .2486E-05,\n     5 .2579E+06,-.5724E+03,-.1749E+00, .7040E-02, .5157E-04,\n     5 .2579E+06,-.5723E+03,-.1754E+00, .7039E-02, .5167E-04,\n     5 .2579E+06,-.5723E+03,-.1755E+00, .7036E-02, .5167E-04,\n     5 .2579E+06,-.5722E+03,-.1754E+00, .7035E-02, .5164E-04,\n     5 .2579E+06,-.5721E+03,-.1755E+00, .7034E-02, .5164E-04,\n     5 .2578E+06,-.5718E+03,-.1757E+00, .7031E-02, .5163E-04,\n     5 .2577E+06,-.5712E+03,-.1768E+00, .7020E-02, .5172E-04,\n     5 .2574E+06,-.5701E+03,-.1776E+00, .7002E-02, .5164E-04,\n     5 .2568E+06,-.5679E+03,-.1814E+00, .6972E-02, .5195E-04,\n     5 .2557E+06,-.5631E+03,-.1885E+00, .6883E-02, .5277E-04,\n     5 .2517E+06,-.5460E+03,-.2030E+00, .6495E-02, .5515E-04,\n     5 .2487E+06,-.5342E+03,-.1863E+00, .6232E-02, .5273E-04,\n     5 .2444E+06,-.5180E+03,-.1508E+00, .5899E-02, .4738E-04,\n     5 .2385E+06,-.4955E+03,-.1888E+00, .5289E-02, .5658E-04,\n     5 .2302E+06,-.4653E+03,-.1771E+00, .4150E-02, .6117E-04,\n     5 .2188E+06,-.4324E+03,-.3606E-01, .4062E-02, .4050E-04,\n     5 .2039E+06,-.3916E+03,-.6078E-02, .3974E-02, .3790E-04,\n     5 .1853E+06,-.3383E+03, .1536E-01, .2900E-02, .3585E-04,\n     5 .1632E+06,-.2789E+03, .9858E-02, .6367E-03, .5666E-04,\n     5 .1386E+06,-.2343E+03, .2216E+00, .1417E-02, .2702E-04,\n     5 .1138E+06,-.1868E+03, .1016E+00, .7532E-03, .4567E-04,\n     5 .9064E+05,-.1440E+03, .1976E+00, .7790E-04, .2259E-04,\n     5 .7047E+05,-.1085E+03, .1522E+00,-.5594E-03, .2874E-04,\n     5 .5398E+05,-.8334E+02, .2023E+00,-.6550E-03, .1868E-04,\n     5 .4124E+05,-.6157E+02, .1818E+00,-.1532E-02, .2463E-04,\n     5 .3195E+05,-.5278E+02, .2321E+00,-.6407E-03, .9920E-05,\n     5 .2647E+05,-.4635E+02, .1244E+00,-.3183E-03, .7762E-05,\n     5 .2338E+05,-.4074E+02, .5421E-01,-.1589E-03, .9273E-05 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 980-1100 CM^-1. GAS: H2O, O3                    C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL5/ GWL5(2), CL5H2O(5,18,2), CL5O3(5,18,2),\n     1                         CL5CS(5,4,2), CL5CF(5,4,2),\n     2                         CL5F11(2), CL5F12(2)\n      DATA GWL5 / .59500, .27000 /\nC\n      DATA (CL5F11(I), I = 1, 2) / 1526.4, 152.1 /\n      DATA (CL5F12(I), I = 1, 2) / 1404.3, 12.13 /\nC\n      DATA ((( CL5H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 2) /\n     1 .1199E-04, .3452E-06, .3698E-08, .1688E-10, .2669E-13,\n     1 .1776E-04, .5178E-06, .5692E-08, .2394E-10,-.9638E-15,\n     1 .2650E-04, .7678E-06, .8330E-08, .3730E-10, .3919E-13,\n     1 .3945E-04, .1140E-05, .1221E-07, .5509E-10, .8179E-13,\n     1 .5863E-04, .1697E-05, .1830E-07, .8018E-10, .7755E-13,\n     1 .8687E-04, .2499E-05, .2670E-07, .1238E-09, .2242E-12,\n     1 .1281E-03, .3732E-05, .4083E-07, .1763E-09, .7845E-13,\n     1 .1888E-03, .5512E-05, .6031E-07, .2707E-09, .2675E-12,\n     1 .2760E-03, .8048E-05, .8772E-07, .4009E-09, .5227E-12,\n     1 .3990E-03, .1166E-04, .1275E-06, .5941E-09, .9192E-12,\n     1 .5720E-03, .1687E-04, .1881E-06, .8442E-09, .5834E-12,\n     1 .8128E-03, .2387E-04, .2675E-06, .1277E-08, .1619E-11,\n     1 .1148E-02, .3365E-04, .3711E-06, .1627E-08, .9590E-12,\n     1 .1593E-02, .4704E-04, .5275E-06, .2319E-08, .8217E-12,\n     1 .2157E-02, .6330E-04, .7332E-06, .3460E-08, .8971E-12,\n     1 .2896E-02, .8347E-04, .9484E-06, .4549E-08, .3177E-11,\n     1 .3820E-02, .1071E-03, .1158E-05, .5380E-08, .5630E-11,\n     1 .4987E-02, .1364E-03, .1349E-05, .6183E-08, .1832E-10,\n     2 .1105E-04, .3303E-06, .3827E-08, .1485E-10,-.3545E-13,\n     2 .1649E-04, .4848E-06, .5454E-08, .2438E-10, .7586E-14,\n     2 .2440E-04, .7254E-06, .8353E-08, .3456E-10,-.4444E-13,\n     2 .3615E-04, .1091E-05, .1294E-07, .5181E-10,-.1218E-12,\n     2 .5385E-04, .1606E-05, .1879E-07, .8369E-10,-.4627E-13,\n     2 .8044E-04, .2408E-05, .2803E-07, .1162E-09,-.1638E-12,\n     2 .1199E-03, .3529E-05, .4009E-07, .1841E-09, .9172E-13,\n     2 .1801E-03, .5244E-05, .5750E-07, .2597E-09, .2938E-12,\n     2 .2675E-03, .7872E-05, .8875E-07, .4029E-09, .2491E-12,\n     2 .3930E-03, .1162E-04, .1349E-06, .6092E-09,-.1131E-12,\n     2 .5813E-03, .1676E-04, .1875E-06, .9503E-09, .1692E-11,\n     2 .8444E-03, .2467E-04, .2840E-06, .1246E-08,-.8799E-12,\n     2 .1225E-02, .3499E-04, .3994E-06, .2118E-08, .3382E-11,\n     2 .1822E-02, .5009E-04, .5195E-06, .2921E-08, .1109E-10,\n     2 .2649E-02, .7517E-04, .7642E-06, .3027E-08, .3209E-11,\n     2 .3729E-02, .1078E-03, .1124E-05, .3997E-08,-.4317E-11,\n     2 .4991E-02, .1468E-03, .1554E-05, .6573E-08, .8653E-11,\n     2 .6182E-02, .1898E-03, .2226E-05, .9410E-08,-.7934E-11 /\n      DATA ((( CL5O3(K,J,I), K = 1, 5), J = 1, 18), I = 1, 2) /\n     1 .7227E+01, .6737E-01, .2301E-03, .9636E-07,-.3997E-08,\n     1 .9629E+01, .8488E-01, .2596E-03,-.1467E-07,-.5302E-08,\n     1 .1295E+02, .1082E+00, .2804E-03,-.1549E-06,-.4808E-08,\n     1 .1755E+02, .1392E+00, .2985E-03,-.2718E-06,-.4402E-08,\n     1 .2382E+02, .1807E+00, .3017E-03,-.4668E-06,-.1571E-08,\n     1 .3224E+02, .2364E+00, .3046E-03,-.9947E-06, .7062E-09,\n     1 .4321E+02, .3102E+00, .3024E-03,-.1909E-05, .7458E-08,\n     1 .5702E+02, .4064E+00, .4323E-03,-.3237E-05,-.2147E-08,\n     1 .7388E+02, .5251E+00, .6050E-03,-.4465E-05,-.9082E-08,\n     1 .9364E+02, .6619E+00, .8856E-03,-.4863E-05,-.2401E-07,\n     1 .1161E+03, .8160E+00, .1052E-02,-.5650E-05,-.1708E-07,\n     1 .1419E+03, .9792E+00, .1153E-02,-.6110E-05,-.8594E-08,\n     1 .1716E+03, .1144E+01, .1234E-02,-.5189E-05,-.2551E-07,\n     1 .2053E+03, .1309E+01, .1311E-02,-.2540E-05,-.9645E-07,\n     1 .2413E+03, .1505E+01, .6268E-03,-.2568E-05,-.5036E-07,\n     1 .2762E+03, .1718E+01,-.2570E-03,-.1056E-05,-.1939E-07,\n     1 .3056E+03, .1961E+01,-.8495E-03,-.6960E-05, .2950E-07,\n     1 .3272E+03, .2169E+01,-.6410E-03,-.1738E-04, .3894E-07,\n     2 .1420E+03, .1113E+01, .3418E-02, .5459E-05, .4714E-07,\n     2 .1711E+03, .1199E+01, .3319E-02, .3513E-05, .4462E-07,\n     2 .2093E+03, .1323E+01, .3506E-02,-.1264E-05, .1046E-07,\n     2 .2597E+03, .1463E+01, .3852E-02,-.3441E-05,-.5330E-07,\n     2 .3260E+03, .1631E+01, .3808E-02,-.4302E-05,-.4033E-07,\n     2 .4122E+03, .1813E+01, .3875E-02,-.4645E-05,-.8157E-07,\n     2 .5227E+03, .1998E+01, .3714E-02,-.7030E-05,-.1000E-06,\n     2 .6645E+03, .2100E+01, .3737E-02,-.2429E-05,-.1654E-06,\n     2 .8466E+03, .2074E+01, .3199E-02, .5591E-05,-.2743E-06,\n     2 .1078E+04, .1932E+01,-.5908E-03, .1557E-04,-.2044E-07,\n     2 .1353E+04, .1757E+01,-.3764E-02, .1058E-04, .8142E-07,\n     2 .1656E+04, .1481E+01,-.5733E-02, .9746E-05, .3976E-07,\n     2 .1959E+04, .1076E+01,-.5487E-02, .1454E-04,-.1805E-06,\n     2 .2239E+04, .4363E+00,-.6362E-02, .2840E-04,-.1221E-06,\n     2 .2475E+04,-.2581E+00,-.5978E-02, .1979E-04,-.1271E-07,\n     2 .2664E+04,-.9293E+00,-.9063E-02, .2347E-04, .4743E-06,\n     2 .2803E+04,-.1565E+01,-.4884E-02, .3316E-04,-.3786E-06,\n     2 .2915E+04,-.2057E+01,-.4014E-02, .4109E-04,-.6772E-06 /\n      DATA ((( CL5CS(K,J,I), K = 1, 5), J = 1, 4), I = 1, 2) /\n     1 .4632E+01,-.1078E+00, .1342E-02,-.1431E-04, .8921E-07,\n     1 .6883E+01,-.1601E+00, .1991E-02,-.2127E-04, .1330E-06,\n     1 .1023E+02,-.2378E+00, .2957E-02,-.3161E-04, .1978E-06,\n     1 .1520E+02,-.3535E+00, .4395E-02,-.4686E-04, .2923E-06,\n     2 .4540E+01,-.1051E+00, .1301E-02,-.1384E-04, .8638E-07,\n     2 .6735E+01,-.1564E+00, .1939E-02,-.2051E-04, .1270E-06,\n     2 .9997E+01,-.2325E+00, .2885E-02,-.3044E-04, .1882E-06,\n     2 .1485E+02,-.3453E+00, .4284E-02,-.4530E-04, .2808E-06 /\n      DATA ((( CL5CF(K,J,I), K = 1, 5), J = 1, 4), I = 1, 2) /\n     1 .2729E-04,-.1128E-06, .4232E-09,-.1910E-11, .7769E-14,\n     1 .4053E-04,-.1672E-06, .6241E-09,-.2850E-11, .1225E-13,\n     1 .6017E-04,-.2479E-06, .9307E-09,-.4219E-11, .1739E-13,\n     1 .8929E-04,-.3675E-06, .1386E-08,-.6293E-11, .2534E-13,\n     2 .2415E-04,-.9788E-07, .3696E-09,-.1732E-11, .7413E-14,\n     2 .3575E-04,-.1453E-06, .5643E-09,-.2588E-11, .8712E-14,\n     2 .5297E-04,-.2160E-06, .8246E-09,-.3847E-11, .1521E-13,\n     2 .7852E-04,-.3215E-06, .1206E-08,-.5637E-11, .2550E-13 /\nC\n      COMMON /BANDL5GH/ GWL5GH(4), CL5H2OGH(5,28,4), CL5O3GH(5,28,4),\n     1                             CL5CSGH(5,4,2), CL5CFGH(5,4,2)\n      DATA GWL5GH / .06800, .04000, .02000, .00700 /\n      DATA ((( CL5H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 2) /\n     1-.7654E-07,-.4227E-10, .7509E-10, .2732E-13,-.1185E-13,\n     1-.2006E-07, .2266E-09, .3211E-10, .4164E-13,-.4422E-14,\n     1 .2940E-07, .8358E-09, .8166E-11, .2437E-13,-.2927E-16,\n     1 .5849E-07, .1670E-08, .1713E-10, .5471E-13,-.1257E-15,\n     1 .1186E-06, .3448E-08, .3590E-10, .9692E-13,-.5131E-15,\n     1 .2457E-06, .6849E-08, .6347E-10, .2321E-12, .7383E-15,\n     1 .4934E-06, .1358E-07, .1248E-09, .5416E-12, .2615E-14,\n     1 .1005E-05, .2888E-07, .2864E-09, .8145E-12,-.1790E-14,\n     1 .2063E-05, .5785E-07, .5505E-09, .1925E-11, .3449E-14,\n     1 .4126E-05, .1123E-06, .1066E-08, .5289E-11, .2494E-13,\n     1 .1213E-04, .3413E-06, .3351E-08, .1183E-10, .8867E-14,\n     1 .1827E-04, .5080E-06, .4635E-08, .1788E-10, .7838E-13,\n     1 .2686E-04, .7628E-06, .7242E-08, .2259E-10, .2242E-13,\n     1 .3961E-04, .1110E-05, .1056E-07, .3696E-10, .6435E-13,\n     1 .5720E-04, .1690E-05, .1799E-07, .4245E-10,-.3654E-12,\n     1 .8458E-04, .2599E-05, .2917E-07, .6167E-10,-.7969E-12,\n     1 .1284E-03, .3760E-05, .3775E-07, .1339E-09, .1346E-12,\n     1 .1771E-03, .5522E-05, .6646E-07, .2150E-09,-.1313E-11,\n     1 .2619E-03, .8018E-05, .9340E-07, .2641E-09,-.2127E-11,\n     1 .3956E-03, .1205E-04, .1389E-06, .3524E-09,-.3647E-11,\n     1 .5623E-03, .1707E-04, .1992E-06, .5093E-09,-.5530E-11,\n     1 .8228E-03, .2325E-04, .2358E-06, .9902E-09, .1748E-11,\n     1 .1191E-02, .3244E-04, .2971E-06, .1749E-08, .1240E-10,\n     1 .1610E-02, .4717E-04, .5064E-06, .1976E-08,-.3265E-12,\n     1 .2351E-02, .6762E-04, .6379E-06, .2052E-08, .4956E-11,\n     1 .3566E-02, .1057E-03, .9799E-06, .1821E-08,-.4604E-11,\n     1 .4778E-02, .1530E-03, .1767E-05, .1962E-08,-.7291E-10,\n     1 .6378E-02, .2029E-03, .2534E-05, .9835E-08,-.3423E-10,\n     2 .4716E+00, .1382E-01, .1508E-03, .6249E-06, .7696E-10,\n     2 .4737E+00, .1388E-01, .1515E-03, .6278E-06, .7874E-10,\n     2 .4758E+00, .1394E-01, .1521E-03, .6306E-06, .7832E-10,\n     2 .4779E+00, .1401E-01, .1528E-03, .6333E-06, .7815E-10,\n     2 .4800E+00, .1407E-01, .1535E-03, .6361E-06, .7898E-10,\n     2 .4821E+00, .1413E-01, .1541E-03, .6389E-06, .7892E-10,\n     2 .4841E+00, .1419E-01, .1548E-03, .6416E-06, .8011E-10,\n     2 .4862E+00, .1425E-01, .1555E-03, .6443E-06, .8048E-10,\n     2 .4882E+00, .1430E-01, .1560E-03, .6471E-06, .8212E-10,\n     2 .4902E+00, .1436E-01, .1567E-03, .6497E-06, .8495E-10,\n     2 .4915E+00, .1441E-01, .1572E-03, .6503E-06, .5395E-10,\n     2 .4933E+00, .1446E-01, .1577E-03, .6542E-06, .7476E-10,\n     2 .4955E+00, .1450E-01, .1578E-03, .6581E-06, .1603E-09,\n     2 .4970E+00, .1461E-01, .1602E-03, .6482E-06,-.2112E-09,\n     2 .4997E+00, .1461E-01, .1588E-03, .6692E-06, .2870E-09,\n     2 .5010E+00, .1462E-01, .1584E-03, .6711E-06, .3862E-09,\n     2 .5018E+00, .1474E-01, .1613E-03, .6482E-06,-.2112E-09,\n     2 .5019E+00, .1472E-01, .1606E-03, .6691E-06, .1435E-09,\n     2 .5009E+00, .1469E-01, .1604E-03, .6667E-06, .1074E-09,\n     2 .4986E+00, .1464E-01, .1600E-03, .6653E-06, .9096E-10,\n     2 .4943E+00, .1450E-01, .1586E-03, .6593E-06, .6827E-10,\n     2 .4860E+00, .1431E-01, .1577E-03, .6476E-06,-.1598E-09,\n     2 .4790E+00, .1403E-01, .1519E-03, .6259E-06, .1653E-09,\n     2 .4669E+00, .1377E-01, .1509E-03, .6118E-06,-.1115E-09,\n     2 .4504E+00, .1330E-01, .1455E-03, .5929E-06,-.2088E-10,\n     2 .4307E+00, .1271E-01, .1392E-03, .5669E-06,-.5525E-10,\n     2 .4018E+00, .1189E-01, .1308E-03, .5330E-06,-.8155E-10,\n     2 .3688E+00, .1094E-01, .1205E-03, .4936E-06,-.6727E-10 /\n      DATA ((( CL5H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 3, 4) /\n     3 .1975E-02, .8771E-04, .1749E-05, .1968E-07, .9965E-10,\n     3 .1976E-02, .8773E-04, .1749E-05, .1968E-07, .9966E-10,\n     3 .1977E-02, .8776E-04, .1749E-05, .1968E-07, .9966E-10,\n     3 .1979E-02, .8782E-04, .1749E-05, .1968E-07, .9966E-10,\n     3 .1984E-02, .8794E-04, .1750E-05, .1968E-07, .9967E-10,\n     3 .1993E-02, .8818E-04, .1752E-05, .1968E-07, .9970E-10,\n     3 .2012E-02, .8868E-04, .1754E-05, .1968E-07, .9980E-10,\n     3 .2035E-02, .8970E-04, .1776E-05, .1967E-07, .9737E-10,\n     3 .2097E-02, .9175E-04, .1805E-05, .1966E-07, .9501E-10,\n     3 .2226E-02, .9607E-04, .1862E-05, .1965E-07, .9057E-10,\n     3 .2728E-02, .1056E-03, .1768E-05, .2223E-07, .1534E-09,\n     3 .3097E-02, .1184E-03, .1895E-05, .1938E-07, .1089E-09,\n     3 .2434E-02, .1423E-03, .3039E-05, .1606E-07,-.7396E-10,\n     3 .3276E-02, .3815E-04,-.6392E-06, .4120E-07, .6979E-09,\n     3 .1292E-02, .1253E-03, .3249E-05, .1574E-08,-.3267E-09,\n     3 .1511E-02, .1822E-03, .4974E-05, .7616E-09,-.5322E-09,\n     3 .2065E-02, .3523E-05,-.2470E-06, .5055E-07, .7047E-09,\n     3 .2866E-02, .8566E-04, .1400E-05, .7920E-08,-.3194E-10,\n     3 .4800E-02, .1201E-03, .1055E-05, .1082E-07, .1046E-09,\n     3 .6333E-02, .1705E-03, .1582E-05,-.2512E-08,-.1049E-09,\n     3 .9130E-02, .2425E-03, .1998E-05, .9971E-08, .1034E-09,\n     3 .1613E-01, .3682E-03, .8668E-06, .1063E-07, .4306E-09,\n     3 .1386E-01, .4767E-03, .7866E-05, .3283E-07,-.2597E-09,\n     3 .1393E-01, .3021E-03, .2470E-05, .2731E-07, .2545E-09,\n     3 .1274E-01, .2569E-03, .2541E-05, .2895E-07, .1749E-09,\n     3 .4975E-02, .9229E-04, .1107E-05, .3766E-07, .4034E-09,\n     3 .6847E-02, .1176E-03, .1078E-05, .3656E-07, .4049E-09,\n     3 .8163E-02, .1578E-03, .1467E-05, .8812E-08, .8120E-12,\n     4 .1003E-03, .2113E-05, .1250E-07,-.7693E-11,-.1713E-12,\n     4 .1003E-03, .2115E-05, .1251E-07,-.7643E-11,-.1707E-12,\n     4 .1005E-03, .2119E-05, .1254E-07,-.7440E-11,-.1691E-12,\n     4 .1008E-03, .2127E-05, .1260E-07,-.7069E-11,-.1653E-12,\n     4 .1015E-03, .2144E-05, .1272E-07,-.6313E-11,-.1584E-12,\n     4 .1029E-03, .2177E-05, .1297E-07,-.4854E-11,-.1439E-12,\n     4 .1057E-03, .2244E-05, .1347E-07,-.1776E-11,-.1144E-12,\n     4 .1114E-03, .2382E-05, .1449E-07, .4365E-11,-.5653E-13,\n     4 .1229E-03, .2660E-05, .1656E-07, .1684E-10, .6300E-13,\n     4 .1463E-03, .3222E-05, .2065E-07, .4198E-10, .3147E-12,\n     4 .2351E-03, .5446E-05, .3916E-07, .1354E-09, .8846E-12,\n     4 .3027E-03, .7053E-05, .4966E-07, .2098E-09, .1853E-11,\n     4 .4006E-03, .9441E-05, .6829E-07, .3165E-09, .2729E-11,\n     4 .5457E-03, .1170E-04, .7246E-07, .1601E-08, .2115E-10,\n     4 .6958E-03, .2474E-04, .4081E-06, .6539E-09,-.2852E-10,\n     4 .9830E-03, .3472E-04, .5765E-06, .1280E-08,-.3606E-10,\n     4 .1416E-02, .5141E-04, .8230E-06, .1365E-08,-.5324E-10,\n     4 .2046E-02, .7889E-04, .1119E-05, .1223E-08,-.6010E-10,\n     4 .1965E-02, .1172E-03, .2723E-05, .1967E-08,-.2599E-09,\n     4 .2618E-02, .2531E-04, .8428E-07, .3269E-07, .4267E-09,\n     4 .3062E-02, .8200E-04, .1184E-05, .3648E-08,-.6129E-10,\n     4 .1906E-02, .2289E-04, .1368E-06, .1956E-07, .2512E-09,\n     4 .2480E-02, .3805E-04, .3607E-06, .9217E-08, .8740E-10,\n     4 .3818E-02, .3690E-04, .3426E-06, .7042E-08, .1646E-10,\n     4 .7511E-02, .9734E-04, .2720E-07, .4261E-09, .3096E-10,\n     4 .1132E-01, .1903E-03, .4145E-06,-.1841E-07,-.1902E-09,\n     4 .1293E-01, .2035E-03,-.2079E-06,-.1947E-07,-.9651E-10,\n     4 .1252E-01, .1719E-03,-.6563E-06,-.1314E-07, .1552E-10 /\n      DATA ((( CL5O3GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 2) /\n     1 .1235E+04, .1437E+02, .3476E-01,-.1760E-03, .2748E-07,\n     1 .1244E+04, .1450E+02, .3664E-01,-.1823E-03,-.2837E-06,\n     1 .1256E+04, .1459E+02, .3672E-01,-.1763E-03,-.2575E-06,\n     1 .1267E+04, .1472E+02, .3858E-01,-.1803E-03,-.5642E-06,\n     1 .1277E+04, .1485E+02, .3967E-01,-.1827E-03,-.6947E-06,\n     1 .1292E+04, .1494E+02, .3904E-01,-.1772E-03,-.5306E-06,\n     1 .1309E+04, .1501E+02, .3750E-01,-.1704E-03,-.1571E-06,\n     1 .1330E+04, .1512E+02, .3972E-01,-.1833E-03,-.5111E-06,\n     1 .1365E+04, .1513E+02, .3958E-01,-.1923E-03,-.3143E-06,\n     1 .1427E+04, .1492E+02, .4083E-01,-.1917E-03,-.2172E-06,\n     1 .1668E+04, .1372E+02, .4072E-01,-.1408E-03,-.6785E-06,\n     1 .1853E+04, .1292E+02, .3722E-01,-.9009E-04,-.8662E-06,\n     1 .2117E+04, .1202E+02, .2847E-01,-.6750E-04,-.3243E-06,\n     1 .2484E+04, .1080E+02, .1706E-01,-.2108E-04, .3646E-06,\n     1 .2969E+04, .9694E+01, .5055E-02,-.4960E-04, .1103E-05,\n     1 .3579E+04, .8069E+01, .6587E-02,-.5096E-04,-.5986E-06,\n     1 .4328E+04, .5771E+01,-.7496E-02,-.1220E-04, .2698E-06,\n     1 .5148E+04, .3211E+01,-.4069E-02, .4743E-04,-.1966E-05,\n     1 .5954E+04, .1135E+01,-.9591E-02, .3693E-05,-.2039E-05,\n     1 .6605E+04,-.1389E+01,-.7061E-02, .4273E-04,-.2449E-05,\n     1 .7002E+04,-.3843E+01, .5711E-03, .3050E-04,-.2514E-05,\n     1 .7122E+04,-.6037E+01,-.1215E-01, .1899E-05, .1128E-05,\n     1 .6973E+04,-.7800E+01, .2080E-03,-.3970E-04, .1924E-06,\n     1 .6627E+04,-.9133E+01, .6821E-02, .4145E-04,-.5536E-06,\n     1 .6188E+04,-.9111E+01, .3886E-02, .2176E-04, .3929E-06,\n     1 .5749E+04,-.8867E+01, .7791E-02, .1619E-04, .2636E-06,\n     1 .5424E+04,-.9020E+01, .1058E-01, .4350E-04,-.1057E-07,\n     1 .5168E+04,-.9070E+01, .9129E-02, .4971E-04, .3295E-06,\n     2 .7157E+02, .8460E+00, .6690E-02,-.2680E-05,-.8151E-06,\n     2 .7449E+02, .8585E+00, .4937E-02, .1631E-05,-.4676E-06,\n     2 .7553E+02, .9243E+00, .5326E-02,-.7469E-05,-.5097E-06,\n     2 .7747E+02, .9323E+00, .3551E-02,-.4554E-05,-.1456E-06,\n     2 .7949E+02, .9316E+00, .2689E-02,-.3205E-05, .2839E-08,\n     2 .7936E+02, .9821E+00, .4394E-02,-.1273E-04,-.2897E-06,\n     2 .8052E+02, .1046E+01, .6462E-02,-.2437E-04,-.6985E-06,\n     2 .8358E+02, .1014E+01, .4208E-02,-.1568E-04,-.2126E-06,\n     2 .8608E+02, .1023E+01, .5603E-02,-.1633E-04,-.4437E-06,\n     2 .9581E+02, .1002E+01, .5243E-02,-.1903E-04,-.5671E-06,\n     2 .1127E+03, .9163E+00, .4838E-02,-.1098E-04,-.5042E-06,\n     2 .1285E+03, .9922E+00, .4078E-02,-.2246E-04,-.2863E-06,\n     2 .1508E+03, .9634E+00, .4752E-02,-.5648E-05,-.4935E-06,\n     2 .1786E+03, .1134E+01, .5403E-02,-.3748E-04,-.5169E-06,\n     2 .2172E+03, .9412E+00, .9844E-02,-.3387E-05,-.1518E-05,\n     2 .2727E+03, .8324E+00, .9425E-03, .2089E-04,-.1031E-07,\n     2 .3342E+03, .8265E+00, .4453E-02, .4150E-04,-.7344E-06,\n     2 .4196E+03, .1106E+01,-.1299E-01,-.7813E-05, .2289E-05,\n     2 .5050E+03, .1058E+01,-.1588E-01,-.6986E-05, .2980E-05,\n     2 .5807E+03, .1296E+01,-.8803E-02,-.6923E-04, .2207E-05,\n     2 .6610E+03, .1030E+01,-.8179E-02,-.4433E-05, .1702E-05,\n     2 .7302E+03, .9501E+00, .7137E-02, .4027E-04,-.1734E-05,\n     2 .8080E+03, .1145E+01,-.1154E-01, .5962E-04, .2895E-06,\n     2 .8706E+03, .2410E+01,-.1576E-01,-.1432E-03, .1547E-05,\n     2 .9180E+03, .2359E+01,-.4957E-02,-.8643E-04,-.6621E-06,\n     2 .9676E+03, .1970E+01, .1470E-01,-.1135E-03,-.2863E-05,\n     2 .1015E+04, .1572E+01,-.5877E-04,-.1230E-03, .9117E-06,\n     2 .1059E+04, .9647E+00,-.3888E-02,-.1913E-04, .1558E-05 /\n      DATA ((( CL5O3GH(K,J,I), K = 1, 5), J = 1, 28), I = 3, 4) /\n     3 .2169E+05, .7335E+02,-.4330E+00, .1545E-03, .1892E-05,\n     3 .2185E+05, .7391E+02,-.4363E+00, .1557E-03, .1912E-05,\n     3 .2202E+05, .7445E+02,-.4395E+00, .1569E-03, .1923E-05,\n     3 .2219E+05, .7499E+02,-.4427E+00, .1580E-03, .1927E-05,\n     3 .2236E+05, .7547E+02,-.4456E+00, .1591E-03, .1939E-05,\n     3 .2253E+05, .7590E+02,-.4484E+00, .1596E-03, .1956E-05,\n     3 .2272E+05, .7617E+02,-.4501E+00, .1599E-03, .1919E-05,\n     3 .2290E+05, .7612E+02,-.4499E+00, .1607E-03, .1741E-05,\n     3 .2313E+05, .7545E+02,-.4463E+00, .1577E-03, .1503E-05,\n     3 .2340E+05, .7348E+02,-.4362E+00, .1346E-03, .1458E-05,\n     3 .2398E+05, .6486E+02,-.4009E+00,-.8347E-04, .4101E-05,\n     3 .2441E+05, .5864E+02,-.3582E+00,-.1835E-03, .2996E-05,\n     3 .2493E+05, .4948E+02,-.2987E+00,-.1936E-03, .5015E-06,\n     3 .2553E+05, .3768E+02,-.2377E+00,-.1325E-03,-.2168E-05,\n     3 .2617E+05, .2330E+02,-.2049E+00,-.4649E-05, .8632E-06,\n     3 .2668E+05, .8568E+01,-.1820E+00, .5630E-04, .4441E-05,\n     3 .2677E+05,-.4442E+01,-.1110E+00,-.1121E-03, .5058E-06,\n     3 .2623E+05,-.1553E+02,-.8104E-01,-.1024E-03, .1870E-05,\n     3 .2487E+05,-.2402E+02,-.4247E-01, .1475E-03,-.6166E-06,\n     3 .2274E+05,-.2679E+02,-.3230E-01,-.2455E-04, .7648E-06,\n     3 .2003E+05,-.2667E+02,-.2679E-01,-.1149E-03, .2611E-05,\n     3 .1711E+05,-.2494E+02, .4987E-02,-.1531E-03, .4351E-06,\n     3 .1436E+05,-.2266E+02, .1446E-01,-.1134E-03, .7320E-06,\n     3 .1204E+05,-.1987E+02, .1266E-01,-.9089E-04, .1351E-05,\n     3 .1034E+05,-.1722E+02, .6935E-02,-.7658E-04, .1111E-05,\n     3 .9135E+04,-.1510E+02, .3963E-02,-.1003E-03, .8410E-06,\n     3 .8254E+04,-.1232E+02,-.1244E-02,-.2059E-03, .1421E-05,\n     3 .7687E+04,-.1028E+02, .2411E-02,-.3823E-03, .2191E-05,\n     4 .1576E+06,-.5123E+03, .4692E+00, .1804E-02,-.5527E-05,\n     4 .1576E+06,-.5122E+03, .4689E+00, .1804E-02,-.5497E-05,\n     4 .1576E+06,-.5122E+03, .4684E+00, .1802E-02,-.5441E-05,\n     4 .1576E+06,-.5119E+03, .4682E+00, .1804E-02,-.5473E-05,\n     4 .1575E+06,-.5116E+03, .4672E+00, .1804E-02,-.5457E-05,\n     4 .1574E+06,-.5110E+03, .4657E+00, .1806E-02,-.5507E-05,\n     4 .1572E+06,-.5096E+03, .4611E+00, .1810E-02,-.5291E-05,\n     4 .1568E+06,-.5070E+03, .4528E+00, .1807E-02,-.5027E-05,\n     4 .1558E+06,-.5016E+03, .4356E+00, .1805E-02,-.4340E-05,\n     4 .1539E+06,-.4910E+03, .4092E+00, .1793E-02,-.4169E-05,\n     4 .1471E+06,-.4547E+03, .3347E+00, .1817E-02,-.6128E-05,\n     4 .1426E+06,-.4299E+03, .2583E+00, .1659E-02,-.2025E-05,\n     4 .1362E+06,-.3969E+03, .1668E+00, .1383E-02, .3499E-05,\n     4 .1278E+06,-.3562E+03, .9654E-01, .9971E-03, .7272E-05,\n     4 .1169E+06,-.3081E+03, .9909E-01, .5652E-03,-.6837E-06,\n     4 .1039E+06,-.2565E+03, .1040E+00, .1636E-03,-.5338E-05,\n     4 .8923E+05,-.2060E+03, .2627E-01, .1960E-03, .4067E-05,\n     4 .7390E+05,-.1598E+03, .5783E-01,-.1043E-03,-.7839E-06,\n     4 .5917E+05,-.1206E+03, .4088E-01,-.6056E-03, .6282E-05,\n     4 .4623E+05,-.9289E+02, .5606E-01,-.3440E-03, .4447E-05,\n     4 .3570E+05,-.7021E+02, .7477E-01,-.2703E-03,-.6300E-06,\n     4 .2761E+05,-.5355E+02, .5410E-01,-.1901E-03,-.7134E-06,\n     4 .2162E+05,-.4037E+02, .4764E-01,-.3343E-03, .1002E-05,\n     4 .1745E+05,-.3323E+02, .4941E-01,-.2557E-03,-.7868E-07,\n     4 .1442E+05,-.2881E+02, .4497E-01,-.2317E-03, .1581E-05,\n     4 .1220E+05,-.2478E+02, .4946E-01,-.1645E-03,-.3950E-06,\n     4 .1060E+05,-.2295E+02, .4247E-01, .6230E-04,-.1118E-05,\n     4 .9390E+04,-.2105E+02, .2323E-01, .1997E-03,-.6701E-06 /\n      DATA ((( CL5CSGH(K,J,I), K = 1, 5), J = 1, 4), I = 1, 2) /\n     1 .4348E+01,-.1005E+00, .1239E-02,-.1314E-04, .8208E-07,\n     1 .6415E+01,-.1484E+00, .1839E-02,-.1945E-04, .1202E-06,\n     1 .9472E+01,-.2190E+00, .2706E-02,-.2862E-04, .1775E-06,\n     1 .1399E+02,-.3238E+00, .3994E-02,-.4211E-04, .2608E-06,\n     2 .4281E+01,-.9904E-01, .1234E-02,-.1305E-04, .8016E-07,\n     2 .6346E+01,-.1463E+00, .1800E-02,-.1913E-04, .1202E-06,\n     2 .9353E+01,-.2154E+00, .2646E-02,-.2801E-04, .1754E-06,\n     2 .1375E+02,-.3143E+00, .3878E-02,-.4270E-04, .2755E-06 /\n      DATA ((( CL5CFGH(K,J,I), K = 1, 5), J = 1, 4), I = 1, 2) /\n     1 .2394E-04,-.9995E-07, .3865E-09,-.1762E-11, .6796E-14,\n     1 .3556E-04,-.1490E-06, .5572E-09,-.2571E-11, .1282E-13,\n     1 .5287E-04,-.2219E-06, .8228E-09,-.3875E-11, .2042E-13,\n     1 .7859E-04,-.3299E-06, .1299E-08,-.5788E-11, .1850E-13,\n     2 .2561E-04,-.1053E-06, .3964E-09,-.1842E-11, .6970E-14,\n     2 .3804E-04,-.1560E-06, .5589E-09,-.2537E-11, .1297E-13,\n     2 .5644E-04,-.2318E-06, .8781E-09,-.3557E-11, .8562E-14,\n     2 .8398E-04,-.3427E-06, .1217E-08,-.5530E-11, .2224E-13 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 800-980 CM^-1. GAS: H2O                         C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL6/ GWL6(3), CL6H2O(5,18,3), CL6F11(5,18,3),\n     1                         CL6F12(5,18,3), CL6CS(5,4),\n     2                         CL6CF(5,4)\n      DATA GWL6 / .69000, .26500, .04500 /\n      DATA ((( CL6H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 3) /\n     1 .2034E-05, .5496E-07, .5971E-09, .3049E-11, .5524E-14,\n     1 .3018E-05, .8157E-07, .8861E-09, .4526E-11, .8197E-14,\n     1 .4478E-05, .1210E-06, .1315E-08, .6716E-11, .1217E-13,\n     1 .6646E-05, .1796E-06, .1951E-08, .9964E-11, .1806E-13,\n     1 .9864E-05, .2666E-06, .2896E-08, .1479E-10, .2687E-13,\n     1 .1463E-04, .3957E-06, .4297E-08, .2194E-10, .3991E-13,\n     1 .2171E-04, .5872E-06, .6376E-08, .3255E-10, .5925E-13,\n     1 .3222E-04, .8714E-06, .9464E-08, .4829E-10, .8792E-13,\n     1 .4780E-04, .1293E-05, .1404E-07, .7164E-10, .1305E-12,\n     1 .7092E-04, .1919E-05, .2085E-07, .1063E-09, .1929E-12,\n     1 .1051E-03, .2847E-05, .3096E-07, .1577E-09, .2825E-12,\n     1 .1558E-03, .4222E-05, .4597E-07, .2340E-09, .4123E-12,\n     1 .2304E-03, .6253E-05, .6819E-07, .3478E-09, .6146E-12,\n     1 .3397E-03, .9236E-05, .1010E-06, .5169E-09, .9155E-12,\n     1 .4988E-03, .1357E-04, .1486E-06, .7680E-09, .1434E-11,\n     1 .7275E-03, .1977E-04, .2160E-06, .1137E-08, .2385E-11,\n     1 .1051E-02, .2856E-04, .3124E-06, .1635E-08, .3326E-11,\n     1 .1499E-02, .4073E-04, .4458E-06, .2336E-08, .4737E-11,\n     2 .6224E-04, .1760E-05, .2012E-07, .1084E-09, .2104E-12,\n     2 .9204E-04, .2605E-05, .2987E-07, .1609E-09, .3066E-12,\n     2 .1361E-03, .3858E-05, .4431E-07, .2388E-09, .4499E-12,\n     2 .2013E-03, .5710E-05, .6562E-07, .3547E-09, .6832E-12,\n     2 .2977E-03, .8454E-05, .9734E-07, .5264E-09, .1003E-11,\n     2 .4397E-03, .1251E-04, .1443E-06, .7814E-09, .1473E-11,\n     2 .6485E-03, .1845E-04, .2135E-06, .1164E-08, .2243E-11,\n     2 .9544E-03, .2719E-04, .3158E-06, .1734E-08, .3350E-11,\n     2 .1400E-02, .3989E-04, .4645E-06, .2574E-08, .5141E-11,\n     2 .2041E-02, .5804E-04, .6752E-06, .3809E-08, .8410E-11,\n     2 .2949E-02, .8364E-04, .9725E-06, .5532E-08, .1268E-10,\n     2 .4221E-02, .1191E-03, .1379E-05, .7881E-08, .1873E-10,\n     2 .5988E-02, .1679E-03, .1924E-05, .1100E-07, .2742E-10,\n     2 .8412E-02, .2350E-03, .2670E-05, .1506E-07, .3740E-10,\n     2 .1165E-01, .3245E-03, .3683E-05, .2055E-07, .4842E-10,\n     2 .1586E-01, .4391E-03, .4965E-05, .2770E-07, .6569E-10,\n     2 .2116E-01, .5844E-03, .6673E-05, .3649E-07, .6974E-10,\n     2 .2767E-01, .7531E-03, .8515E-05, .4688E-07, .9368E-10,\n     3 .7985E+00, .2077E-01, .2296E-03, .1338E-05, .3583E-08,\n     3 .7979E+00, .2076E-01, .2296E-03, .1338E-05, .3580E-08,\n     3 .7972E+00, .2075E-01, .2295E-03, .1337E-05, .3576E-08,\n     3 .7962E+00, .2073E-01, .2294E-03, .1337E-05, .3573E-08,\n     3 .7949E+00, .2071E-01, .2293E-03, .1337E-05, .3568E-08,\n     3 .7932E+00, .2067E-01, .2290E-03, .1335E-05, .3561E-08,\n     3 .7911E+00, .2063E-01, .2286E-03, .1333E-05, .3553E-08,\n     3 .7885E+00, .2056E-01, .2279E-03, .1329E-05, .3544E-08,\n     3 .7852E+00, .2047E-01, .2269E-03, .1324E-05, .3530E-08,\n     3 .7805E+00, .2034E-01, .2255E-03, .1315E-05, .3509E-08,\n     3 .7743E+00, .2018E-01, .2235E-03, .1304E-05, .3480E-08,\n     3 .7658E+00, .1993E-01, .2208E-03, .1288E-05, .3440E-08,\n     3 .7539E+00, .1960E-01, .2171E-03, .1266E-05, .3384E-08,\n     3 .7376E+00, .1915E-01, .2120E-03, .1238E-05, .3317E-08,\n     3 .7158E+00, .1854E-01, .2050E-03, .1201E-05, .3240E-08,\n     3 .6872E+00, .1775E-01, .1961E-03, .1151E-05, .3120E-08,\n     3 .6506E+00, .1674E-01, .1842E-03, .1090E-05, .3080E-08,\n     3 .6052E+00, .1553E-01, .1709E-03, .1015E-05, .2911E-08 /\n      DATA ((( CL6F11(K,J,I), K = 1, 5), J = 1, 18), I = 1, 3) /\n     1 .3381E+04,-.2732E+01,-.1639E+00, .6997E-03, .4222E-05,\n     1 .3231E+04,-.1926E+01,-.1613E+00, .6339E-03, .4676E-05,\n     1 .3033E+04,-.1040E+01,-.1545E+00, .5682E-03, .4642E-05,\n     1 .2786E+04,-.7138E-01,-.1450E+00, .4882E-03, .4578E-05,\n     1 .2506E+04, .8395E+00,-.1358E+00, .4018E-03, .4926E-05,\n     1 .2212E+04, .1500E+01,-.1207E+00, .3216E-03, .4524E-05,\n     1 .1953E+04, .1769E+01,-.1060E+00, .2625E-03, .4082E-05,\n     1 .1766E+04, .1686E+01,-.9499E-01, .2305E-03, .3758E-05,\n     1 .1670E+04, .1436E+01,-.8888E-01, .2246E-03, .3547E-05,\n     1 .1638E+04, .1264E+01,-.8698E-01, .2271E-03, .3464E-05,\n     1 .1632E+04, .1214E+01,-.8635E-01, .2286E-03, .3371E-05,\n     1 .1632E+04, .1184E+01,-.8583E-01, .2330E-03, .3256E-05,\n     1 .1633E+04, .1164E+01,-.8623E-01, .2375E-03, .3262E-05,\n     1 .1634E+04, .1253E+01,-.8736E-01, .2210E-03, .3362E-05,\n     1 .1633E+04, .1310E+01,-.8648E-01, .2097E-03, .3159E-05,\n     1 .1628E+04, .1227E+01,-.8157E-01, .2246E-03, .2256E-05,\n     1 .1631E+04, .1091E+01,-.8327E-01, .2157E-03, .2212E-05,\n     1 .1633E+04, .1296E+01,-.9664E-01, .1599E-03, .4437E-05,\n     2 .6106E+04,-.1961E+02,-.2294E+00, .9638E-03, .6765E-05,\n     2 .5837E+04,-.1801E+02,-.2154E+00, .9796E-03, .4416E-05,\n     2 .5476E+04,-.1612E+02,-.1988E+00, .1047E-02, .1772E-05,\n     2 .5028E+04,-.1338E+02,-.1840E+00, .9520E-03, .4294E-06,\n     2 .4503E+04,-.1058E+02,-.1536E+00, .8490E-03,-.2598E-05,\n     2 .3981E+04,-.7747E+01,-.1482E+00, .6647E-03,-.5842E-06,\n     2 .3519E+04,-.6007E+01,-.1327E+00, .5541E-03,-.2578E-06,\n     2 .3197E+04,-.5197E+01,-.1286E+00, .4610E-03, .1385E-05,\n     2 .3028E+04,-.5128E+01,-.1193E+00, .4272E-03, .9513E-06,\n     2 .2971E+04,-.5395E+01,-.1172E+00, .4522E-03, .9949E-06,\n     2 .2957E+04,-.5178E+01,-.1101E+00, .4019E-03,-.2902E-06,\n     2 .2950E+04,-.5062E+01,-.1120E+00, .3947E-03, .2682E-06,\n     2 .2941E+04,-.4941E+01,-.1135E+00, .3850E-03, .8468E-06,\n     2 .2930E+04,-.4965E+01,-.1080E+00, .3827E-03, .1011E-06,\n     2 .2903E+04,-.4839E+01,-.1021E+00, .3474E-03,-.1298E-06,\n     2 .2884E+04,-.4852E+01,-.1131E+00, .3768E-03, .2581E-05,\n     2 .2849E+04,-.4552E+01,-.9886E-01, .4233E-03, .1158E-05,\n     2 .2820E+04,-.4794E+01,-.7237E-01, .5268E-03,-.2885E-05,\n     3 .6794E+04,-.2563E+02,-.8233E-01, .2736E-02,-.3357E-04,\n     3 .6490E+04,-.2222E+02,-.1202E+00, .2399E-02,-.2502E-04,\n     3 .6124E+04,-.1574E+02,-.1942E+00, .1330E-02,-.7309E-05,\n     3 .5662E+04,-.1167E+02,-.2352E+00, .1043E-02, .2647E-05,\n     3 .5138E+04,-.7515E+01,-.2862E+00, .6414E-03, .1440E-04,\n     3 .4524E+04,-.6262E+01,-.2168E+00, .7032E-03, .5112E-05,\n     3 .3987E+04,-.4657E+01,-.1870E+00, .5214E-03, .3763E-05,\n     3 .3553E+04,-.4860E+01,-.9823E-01, .6298E-03,-.7960E-05,\n     3 .3332E+04,-.5270E+01,-.8622E-01, .6832E-03,-.7269E-05,\n     3 .3269E+04,-.4862E+01,-.7506E-01, .5417E-03,-.8338E-05,\n     3 .3284E+04,-.6640E+01,-.1195E+00, .8530E-03, .3108E-06,\n     3 .3312E+04,-.6994E+01,-.1160E+00, .8318E-03,-.1221E-05,\n     3 .3348E+04,-.7408E+01,-.1011E+00, .8199E-03,-.4718E-05,\n     3 .3396E+04,-.8623E+01,-.1163E+00, .1087E-02,-.1853E-05,\n     3 .3569E+04,-.1024E+02,-.1645E+00, .1468E-02, .2608E-05,\n     3 .3743E+04,-.8904E+01,-.1749E+00, .1068E-02, .4947E-06,\n     3 .3915E+04,-.8567E+01,-.2328E+00, .9282E-03, .9550E-05,\n     3 .4051E+04,-.1028E+02,-.1838E+00, .1174E-02,-.7296E-06 /\n      DATA ((( CL6F12(K,J,I), K = 1, 5), J = 1, 18), I = 1, 3) /\n     1 .3831E+04,-.6616E+01,-.1311E+00, .3745E-03, .5462E-05,\n     1 .3690E+04,-.5755E+01,-.1296E+00, .3549E-03, .5348E-05,\n     1 .3501E+04,-.4707E+01,-.1258E+00, .3331E-03, .5043E-05,\n     1 .3264E+04,-.3453E+01,-.1212E+00, .2984E-03, .4772E-05,\n     1 .2987E+04,-.2156E+01,-.1142E+00, .2519E-03, .4460E-05,\n     1 .2694E+04,-.1040E+01,-.1052E+00, .2027E-03, .4145E-05,\n     1 .2430E+04,-.3488E+00,-.9475E-01, .1635E-03, .3724E-05,\n     1 .2238E+04,-.1245E+00,-.8580E-01, .1381E-03, .3398E-05,\n     1 .2137E+04,-.2169E+00,-.8068E-01, .1339E-03, .3191E-05,\n     1 .2104E+04,-.3494E+00,-.7895E-01, .1348E-03, .3156E-05,\n     1 .2099E+04,-.3710E+00,-.7997E-01, .1299E-03, .3388E-05,\n     1 .2099E+04,-.3345E+00,-.8031E-01, .1120E-03, .3593E-05,\n     1 .2100E+04,-.3338E+00,-.7947E-01, .1153E-03, .3395E-05,\n     1 .2103E+04,-.4294E+00,-.7784E-01, .1408E-03, .2912E-05,\n     1 .2107E+04,-.6355E+00,-.7374E-01, .1914E-03, .1978E-05,\n     1 .2124E+04,-.6312E+00,-.8343E-01, .1962E-03, .3349E-05,\n     1 .2142E+04,-.5083E+00,-.9308E-01, .1848E-03, .4644E-05,\n     1 .2148E+04,-.5107E+00,-.8249E-01, .1974E-03, .2445E-05,\n     2 .3174E+04, .1559E+01,-.1525E+00, .9536E-03,-.5138E-05,\n     2 .3059E+04, .2038E+01,-.1502E+00, .8782E-03,-.4550E-05,\n     2 .2905E+04, .2563E+01,-.1422E+00, .8081E-03,-.4707E-05,\n     2 .2707E+04, .3185E+01,-.1359E+00, .6975E-03,-.3539E-05,\n     2 .2474E+04, .3716E+01,-.1232E+00, .6017E-03,-.3297E-05,\n     2 .2234E+04, .4198E+01,-.1148E+00, .4547E-03,-.1784E-05,\n     2 .2015E+04, .4453E+01,-.1056E+00, .3494E-03,-.9578E-06,\n     2 .1855E+04, .4296E+01,-.9284E-01, .3081E-03,-.1551E-05,\n     2 .1775E+04, .3852E+01,-.8603E-01, .3381E-03,-.1903E-05,\n     2 .1749E+04, .3716E+01,-.8444E-01, .3368E-03,-.2097E-05,\n     2 .1749E+04, .3599E+01,-.8786E-01, .3613E-03,-.1568E-05,\n     2 .1750E+04, .3597E+01,-.8534E-01, .3824E-03,-.2436E-05,\n     2 .1749E+04, .3518E+01,-.8555E-01, .3936E-03,-.2192E-05,\n     2 .1742E+04, .3750E+01,-.8911E-01, .3302E-03,-.1102E-05,\n     2 .1740E+04, .4170E+01,-.1042E+00, .2203E-03, .1979E-05,\n     2 .1700E+04, .4231E+01,-.7888E-01, .1958E-03,-.1699E-05,\n     2 .1659E+04, .4097E+01,-.5662E-01, .2025E-03,-.4840E-05,\n     2 .1651E+04, .4286E+01,-.8666E-01, .1600E-03, .1194E-05,\n     3 .2697E+04, .1630E+01,-.1335E+00, .2269E-03, .3152E-05,\n     3 .2583E+04, .2012E+01,-.1201E+00, .2585E-03, .2430E-05,\n     3 .2430E+04, .3323E+01,-.1422E+00, .4445E-04, .8851E-05,\n     3 .2263E+04, .3939E+01,-.1253E+00, .5915E-05, .6341E-05,\n     3 .2072E+04, .4716E+01,-.1336E+00,-.1317E-03, .9209E-05,\n     3 .1847E+04, .4478E+01,-.9821E-01, .7760E-04, .2975E-05,\n     3 .1656E+04, .3802E+01,-.7643E-01, .1790E-03, .7571E-06,\n     3 .1527E+04, .3486E+01,-.9055E-01, .1987E-03, .4812E-05,\n     3 .1435E+04, .4339E+01,-.9408E-01,-.5978E-04, .6688E-05,\n     3 .1396E+04, .4102E+01,-.9198E-01,-.2017E-04, .7000E-05,\n     3 .1346E+04, .4119E+01,-.5129E-01,-.6117E-04, .1038E-06,\n     3 .1332E+04, .3472E+01,-.6103E-01, .9062E-04, .2054E-05,\n     3 .1331E+04, .3920E+01,-.7302E-01,-.2448E-04, .3725E-05,\n     3 .1320E+04, .4012E+01,-.7672E-01,-.4056E-04, .4657E-05,\n     3 .1259E+04, .4705E+01,-.5093E-01,-.1710E-03, .8423E-06,\n     3 .1247E+04, .4276E+01,-.5120E-01,-.1004E-03, .1440E-05,\n     3 .1211E+04, .3173E+01,-.3464E-01, .3911E-04, .1399E-06,\n     3 .1187E+04, .2100E+01,-.1986E-01, .9420E-04,-.1724E-05 /\n      DATA (( CL6CS(K,J), K = 1, 5), J = 1, 4)               /\n     1 .1365E+02,-.3302E+00, .4251E-02,-.4696E-04, .2990E-06,\n     1 .2023E+02,-.4893E+00, .6302E-02,-.6968E-04, .4436E-06,\n     1 .2998E+02,-.7237E+00, .9309E-02,-.1037E-03, .6659E-06,\n     1 .4437E+02,-.1072E+01, .1384E-01,-.1541E-03, .9830E-06 /\n      DATA (( CL6CF(K,J), K = 1, 5), J = 1, 4)               /\n     1 .4005E-03,-.1364E-05, .4014E-09,-.1065E-10, .3771E-12,\n     1 .5898E-03,-.1974E-05, .1180E-08,-.2475E-10, .4965E-12,\n     1 .8665E-03,-.2779E-05, .2611E-09,-.6482E-10, .1219E-11,\n     1 .1264E-02,-.4046E-05, .7903E-08,-.1068E-09, .8824E-12 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 540-800 CM^-1. GAS: H2O, CO2, N2O               C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL7/ GW(3), CL7H2OU(5,11,3), CL7H2OD(5,5,7,3),\n     1                       CL7CO2U(5,11,3), CL7CO2D(5,5,7,3),\n     2                       CL7N2O(3), CL7O3(3),\n     3                       CL7CS(5,5,4,3), CL7CF(5,5,4,3)\n      DATA GW / .14000, .23500, .24000 /\n      DATA CL7N2O / 0.8775E+01, 0.6730E+02, 0.6931E+02 /\n      DATA CL7O3 / 6.7342, 10.9696, 42.1065 /\n      DATA ((( CL7H2OU(K,J,I), K = 1, 5), J = 1, 11), I = 1, 3) /\n     1 .3198E-03, .7010E-05, .5087E-07, .1823E-09, .8000E-12,\n     1 .4744E-03, .1039E-04, .7481E-07, .2733E-09, .1358E-11,\n     1 .7031E-03, .1544E-04, .1106E-06, .4005E-09, .2096E-11,\n     1 .1043E-02, .2301E-04, .1664E-06, .5895E-09, .2823E-11,\n     1 .1542E-02, .3408E-04, .2504E-06, .8968E-09, .3832E-11,\n     1 .2277E-02, .5052E-04, .3783E-06, .1336E-08, .4584E-11,\n     1 .3349E-02, .7481E-04, .5774E-06, .1984E-08, .4136E-11,\n     1 .4915E-02, .1107E-03, .8788E-06, .2888E-08, .2030E-11,\n     1 .7128E-02, .1599E-03, .1302E-05, .4852E-08, .4836E-11,\n     1 .1027E-01, .2335E-03, .2002E-05, .6551E-08,-.1648E-10,\n     1 .1473E-01, .3365E-03, .2992E-05, .9252E-08,-.4561E-10,\n     2 .3860E-02, .6592E-04, .4173E-06, .1467E-08, .2925E-11,\n     2 .5671E-02, .9710E-04, .6148E-06, .1939E-08, .1773E-11,\n     2 .8281E-02, .1405E-03, .9136E-06, .3551E-08, .6629E-11,\n     2 .1224E-01, .2051E-03, .1275E-05, .5589E-08, .2230E-10,\n     2 .1786E-01, .2895E-03, .1683E-05, .9969E-08, .6822E-10,\n     2 .2603E-01, .4244E-03, .2602E-05, .1281E-07, .5263E-10,\n     2 .3822E-01, .6217E-03, .3781E-05, .1670E-07, .4943E-10,\n     2 .5569E-01, .8796E-03, .4931E-05, .2712E-07, .1516E-09,\n     2 .8122E-01, .1300E-02, .7901E-05, .2939E-07,-.1662E-10,\n     2 .1186E+00, .1870E-02, .1121E-04, .3777E-07,-.1080E-09,\n     2 .1744E+00, .2704E-02, .1413E-04, .4233E-07,-.2056E-10,\n     3 .2535E-01, .4376E-03, .2415E-05, .5321E-08, .2793E-10,\n     3 .3648E-01, .6177E-03, .3550E-05, .7499E-08,-.8573E-11,\n     3 .5284E-01, .8857E-03, .4607E-05, .7056E-08, .1293E-10,\n     3 .7569E-01, .1249E-02, .5929E-05, .1228E-07, .1470E-09,\n     3 .1098E+00, .1771E-02, .7478E-05, .2647E-07, .4460E-09,\n     3 .1581E+00, .2472E-02, .9066E-05, .4093E-07, .8467E-09,\n     3 .2314E+00, .3685E-02, .1369E-04, .1789E-07, .7564E-09,\n     3 .3308E+00, .5356E-02, .2346E-04,-.5571E-08, .1889E-09,\n     3 .4624E+00, .7352E-02, .3650E-04, .3410E-07,-.1585E-09,\n     3 .6519E+00, .1004E-01, .3635E-04, .9474E-07, .2475E-08,\n     3 .9176E+00, .1456E-01, .6342E-04,-.2006E-08, .3091E-09 /\n      DATA (((( CL7H2OD(K,L,J,I), K = 1, 5), L = 1, 5), J = 1, 7),\n     1                                                  I = 1, 2) /\n     1 .2122E-01, .4754E-03, .3935E-05, .1405E-07,-.7501E-11,\n     1 .1206E-01, .2866E-03, .2068E-05, .3657E-08, .1041E-10,\n     1 .6465E-02, .1665E-03, .1387E-05, .1798E-08,-.2136E-10,\n     1 .3193E-02, .8096E-04, .7273E-06, .2920E-08, .8332E-11,\n     1 .1888E-02, .4747E-04, .3982E-06,-.1080E-09,-.1454E-10,\n     1 .3023E-01, .6682E-03, .5530E-05, .2168E-07, .8249E-12,\n     1 .1711E-01, .4164E-03, .3124E-05, .3919E-08,-.1459E-10,\n     1 .9017E-02, .2384E-03, .2100E-05, .2122E-08,-.5086E-10,\n     1 .4516E-02, .1140E-03, .1005E-05, .4126E-08, .1567E-10,\n     1 .2661E-02, .6773E-04, .6267E-06, .1011E-09,-.2749E-10,\n     1 .4278E-01, .9224E-03, .7342E-05, .3254E-07, .6124E-10,\n     1 .2396E-01, .5895E-03, .4432E-05, .5729E-08,-.9743E-11,\n     1 .1242E-01, .3331E-03, .3106E-05, .4000E-08,-.8491E-10,\n     1 .6415E-02, .1521E-03, .1074E-05, .6962E-08, .8110E-10,\n     1 .3739E-02, .9653E-04, .9598E-06, .2371E-09,-.4901E-10,\n     1 .6120E-01, .1324E-02, .9951E-05, .3875E-07, .9646E-10,\n     1 .3376E-01, .8242E-03, .6056E-05, .9813E-08, .2581E-10,\n     1 .1695E-01, .4537E-03, .4180E-05, .6927E-08,-.8408E-10,\n     1 .8837E-02, .2112E-03, .1434E-05, .8920E-08, .1169E-09,\n     1 .5242E-02, .1346E-03, .1358E-05, .9875E-09,-.6359E-10,\n     1 .8754E-01, .1892E-02, .1266E-04, .4015E-07, .2227E-09,\n     1 .4642E-01, .1137E-02, .8871E-05, .1865E-07, .1096E-11,\n     1 .2276E-01, .6006E-03, .5328E-05, .1010E-07,-.6748E-10,\n     1 .1207E-01, .3052E-03, .2477E-05, .7695E-08, .3896E-10,\n     1 .7335E-02, .1780E-03, .1611E-05, .3203E-08,-.3384E-10,\n     1 .1204E+00, .2525E-02, .1520E-04, .4697E-07, .4019E-09,\n     1 .6313E-01, .1528E-02, .1087E-04, .2288E-07, .1257E-09,\n     1 .2950E-01, .8041E-03, .7944E-05, .1390E-07,-.2084E-09,\n     1 .1603E-01, .3958E-03, .3219E-05, .1115E-07, .5508E-10,\n     1 .1018E-01, .2421E-03, .2095E-05, .5623E-08,-.1446E-10,\n     1 .1625E+00, .3545E-02, .2246E-04, .1677E-07,-.1586E-09,\n     1 .8242E-01, .2086E-02, .1565E-04, .1280E-07,-.1366E-09,\n     1 .3755E-01, .9723E-03, .8996E-05, .3195E-07, .2688E-10,\n     1 .2144E-01, .5492E-03, .5077E-05, .9584E-08,-.9889E-10,\n     1 .1378E-01, .3173E-03, .2807E-05, .1019E-07,-.4310E-11,\n     2 .2502E+00, .3828E-02, .2098E-04, .6728E-07,-.2163E-09,\n     2 .1351E+00, .2202E-02, .1169E-04, .2027E-07,-.3301E-10,\n     2 .7174E-01, .1160E-02, .5519E-05, .1603E-07, .1577E-09,\n     2 .3879E-01, .6627E-03, .4357E-05, .1218E-07,-.3509E-10,\n     2 .2402E-01, .4150E-03, .2207E-05, .5301E-08, .2091E-10,\n     2 .3564E+00, .5352E-02, .2909E-04, .1161E-06,-.1663E-09,\n     2 .1949E+00, .3118E-02, .1478E-04, .2446E-07, .1307E-09,\n     2 .1038E+00, .1665E-02, .7581E-05, .1688E-07, .1882E-09,\n     2 .5596E-01, .9185E-03, .5313E-05, .2023E-07, .7491E-10,\n     2 .3445E-01, .5925E-03, .3029E-05, .6692E-08, .3801E-10,\n     2 .5083E+00, .7692E-02, .3604E-04, .1088E-06, .1514E-09,\n     2 .2792E+00, .4398E-02, .2038E-04, .2957E-07, .4913E-10,\n     2 .1498E+00, .2363E-02, .1009E-04, .2250E-07, .2980E-09,\n     2 .8048E-01, .1288E-02, .6713E-05, .2666E-07, .1613E-09,\n     2 .4856E-01, .8429E-03, .4527E-05, .6941E-08,-.5864E-11,\n     2 .7258E+00, .1116E-01, .4425E-04, .7730E-07, .7876E-09,\n     2 .3979E+00, .6172E-02, .2732E-04, .4212E-07, .5499E-10,\n     2 .2161E+00, .3366E-02, .1360E-04, .2253E-07, .3647E-09,\n     2 .1146E+00, .1853E-02, .9905E-05, .2338E-07, .2420E-10,\n     2 .6742E-01, .1155E-02, .6134E-05, .1191E-07, .2888E-10,\n     2 .1030E+01, .1615E-01, .5639E-04, .1022E-06, .2680E-08,\n     2 .5701E+00, .9025E-02, .3124E-04,-.5345E-08, .1152E-08,\n     2 .3057E+00, .4857E-02, .2139E-04, .9328E-08, .1029E-09,\n     2 .1600E+00, .2521E-02, .1453E-04, .4003E-07,-.1410E-09,\n     2 .9516E-01, .1618E-02, .7903E-05, .7070E-08, .2683E-10,\n     2 .1405E+01, .2295E-01, .9099E-04,-.2412E-07, .1033E-08,\n     2 .7993E+00, .1288E-01, .4976E-04,-.1862E-07, .1021E-08,\n     2 .4242E+00, .6613E-02, .2929E-04, .4863E-07, .4837E-09,\n     2 .2273E+00, .3429E-02, .1564E-04, .4485E-07, .1848E-09,\n     2 .1359E+00, .2303E-02, .1000E-04, .2450E-08, .1606E-09,\n     2 .1910E+01, .3128E-01, .1092E-03, .5854E-07, .6144E-08,\n     2 .1107E+01, .1746E-01, .6235E-04, .5236E-07, .2686E-08,\n     2 .5959E+00, .9343E-02, .3786E-04,-.3029E-07, .1286E-09,\n     2 .3203E+00, .4732E-02, .1825E-04, .3272E-07, .2774E-09,\n     2 .1935E+00, .3265E-02, .1215E-04,-.1320E-07, .3797E-09 /\n      DATA (((( CL7H2OD(K,L,J,I), K = 1, 5), L = 1, 5), J = 1, 7),\n     1                                                  I = 3, 3) /\n     3 .1288E+01, .1982E-01, .7932E-04, .1506E-06, .2769E-08,\n     3 .6732E+00, .1075E-01, .5420E-04,-.1191E-07,-.1135E-08,\n     3 .3483E+00, .5282E-02, .2187E-04, .1975E-07, .2887E-09,\n     3 .1959E+00, .3065E-02, .1492E-04,-.1861E-08,-.3155E-09,\n     3 .1173E+00, .1856E-02, .8988E-05,-.1027E-07,-.2508E-09,\n     3 .1793E+01, .2778E-01, .1076E-03, .2464E-07, .2382E-08,\n     3 .9374E+00, .1489E-01, .7284E-04,-.2248E-07,-.1285E-08,\n     3 .4796E+00, .7298E-02, .3483E-04, .1079E-07,-.6009E-09,\n     3 .2739E+00, .4303E-02, .2221E-04,-.6108E-08,-.6761E-09,\n     3 .1680E+00, .2540E-02, .1009E-04, .5848E-08, .1792E-09,\n     3 .2479E+01, .3818E-01, .1255E-03,-.9731E-07, .6012E-08,\n     3 .1302E+01, .1940E-01, .7569E-04, .1666E-06, .2569E-08,\n     3 .6647E+00, .9983E-02, .4455E-04, .6638E-08,-.4726E-09,\n     3 .3882E+00, .5991E-02, .2640E-04,-.2330E-07,-.4318E-09,\n     3 .2409E+00, .3575E-02, .1264E-04, .2199E-07, .6260E-09,\n     3 .3448E+01, .5463E-01, .2772E-03,-.6672E-06,-.1532E-07,\n     3 .1791E+01, .2708E-01, .1157E-03, .4916E-07, .2512E-09,\n     3 .9230E+00, .1424E-01, .7422E-04,-.7568E-07,-.3182E-08,\n     3 .5445E+00, .8268E-02, .3229E-04, .3190E-08, .4198E-09,\n     3 .3417E+00, .5074E-02, .1897E-04, .2249E-07, .5607E-09,\n     3 .4601E+01, .6643E-01, .3080E-03, .1927E-06,-.4891E-08,\n     3 .2428E+01, .3692E-01, .1684E-03, .1351E-06, .2882E-09,\n     3 .1278E+01, .1882E-01, .8434E-04, .1643E-06, .3421E-09,\n     3 .7541E+00, .1167E-01, .5045E-04,-.3429E-07,-.4394E-09,\n     3 .4761E+00, .7213E-02, .3041E-04,-.8801E-08,-.1827E-09,\n     3 .6015E+01, .8087E-01, .3583E-03, .1619E-05, .7963E-08,\n     3 .3308E+01, .4919E-01, .2322E-03,-.2056E-07,-.6857E-08,\n     3 .1731E+01, .2596E-01, .1057E-03, .7529E-08, .5775E-09,\n     3 .1015E+01, .1601E-01, .8324E-04,-.2715E-07,-.2508E-08,\n     3 .6430E+00, .9946E-02, .4431E-04,-.4379E-07,-.8073E-09,\n     3 .7170E+01, .9746E-01, .5182E-03,-.5037E-06,-.3281E-07,\n     3 .4311E+01, .6002E-01, .2196E-03, .1687E-06, .2666E-08,\n     3 .2263E+01, .3324E-01, .1076E-03, .8376E-07, .6195E-08,\n     3 .1332E+01, .2104E-01, .1020E-03, .6250E-07,-.5010E-09,\n     3 .8303E+00, .1303E-01, .6471E-04,-.3176E-07,-.1833E-08 /\n      DATA ((( CL7CO2U(K,J,I), K = 1, 5), J = 1, 11), I = 1, 3) /\n     1 .4904E-04, .1609E-05, .2180E-07, .1390E-09, .3177E-12,\n     1 .7290E-04, .2394E-05, .3248E-07, .2065E-09, .4603E-12,\n     1 .1084E-03, .3562E-05, .4835E-07, .3072E-09, .6805E-12,\n     1 .1610E-03, .5291E-05, .7169E-07, .4570E-09, .1049E-11,\n     1 .2392E-03, .7867E-05, .1064E-06, .6785E-09, .1588E-11,\n     1 .3543E-03, .1167E-04, .1582E-06, .1010E-08, .2369E-11,\n     1 .5234E-03, .1727E-04, .2351E-06, .1505E-08, .3491E-11,\n     1 .7692E-03, .2538E-04, .3466E-06, .2250E-08, .5443E-11,\n     1 .1124E-02, .3697E-04, .5026E-06, .3334E-08, .9072E-11,\n     1 .1623E-02, .5275E-04, .7100E-06, .4932E-08, .1625E-10,\n     1 .2316E-02, .7453E-04, .9939E-06, .6987E-08, .2446E-10,\n     2 .1502E-02, .3778E-04, .3395E-06, .1011E-08,-.1556E-11,\n     2 .2199E-02, .5550E-04, .5037E-06, .1546E-08,-.2156E-11,\n     2 .3214E-02, .8127E-04, .7393E-06, .2358E-08,-.2031E-11,\n     2 .4677E-02, .1182E-03, .1078E-05, .3660E-08,-.2471E-12,\n     2 .6791E-02, .1719E-03, .1570E-05, .5437E-08, .1264E-11,\n     2 .9799E-02, .2477E-03, .2266E-05, .8090E-08, .4361E-11,\n     2 .1406E-01, .3540E-03, .3248E-05, .1193E-07, .7723E-11,\n     2 .2007E-01, .5033E-03, .4602E-05, .1701E-07, .1187E-10,\n     2 .2856E-01, .7077E-03, .6282E-05, .2422E-07, .4679E-10,\n     2 .4034E-01, .9965E-03, .8614E-05, .3165E-07, .7316E-10,\n     2 .5625E-01, .1394E-02, .1197E-04, .4058E-07, .7027E-10,\n     3 .2543E-01, .5185E-03, .3802E-05, .8871E-08,-.1849E-10,\n     3 .3643E-01, .7330E-03, .5302E-05, .1280E-07,-.2020E-10,\n     3 .5234E-01, .1039E-02, .7422E-05, .1805E-07,-.2737E-10,\n     3 .7547E-01, .1478E-02, .1027E-04, .2461E-07,-.2592E-10,\n     3 .1088E+00, .2103E-02, .1412E-04, .3220E-07,-.1723E-10,\n     3 .1566E+00, .3000E-02, .1945E-04, .4064E-07,-.3222E-11,\n     3 .2244E+00, .4274E-02, .2712E-04, .4915E-07,-.3124E-10,\n     3 .3186E+00, .6048E-02, .3849E-04, .5988E-07,-.2055E-09,\n     3 .4479E+00, .8441E-02, .5385E-04, .8065E-07,-.4098E-09,\n     3 .6230E+00, .1159E-01, .7311E-04, .1143E-06,-.5444E-09,\n     3 .8571E+00, .1568E-01, .9611E-04, .1568E-06,-.5048E-09 /\n      DATA (((( CL7CO2D(K,L,J,I), K = 1, 5), L = 1, 5), J = 1, 7),\n     1                                                  I = 1, 2) /\n     1 .3255E-02, .1040E-03, .1387E-05, .9581E-08, .3107E-10,\n     1 .4614E-02, .1308E-03, .1606E-05, .1133E-07, .3897E-10,\n     1 .8000E-02, .2025E-03, .2015E-05, .1305E-07, .6382E-10,\n     1 .1608E-01, .4327E-03, .4148E-05, .8855E-08,-.7839E-10,\n     1 .3006E-01, .7894E-03, .7339E-05, .4311E-07, .2559E-09,\n     1 .4549E-02, .1443E-03, .1895E-05, .1271E-07, .3962E-10,\n     1 .6526E-02, .1809E-03, .2151E-05, .1538E-07, .5875E-10,\n     1 .1145E-01, .2827E-03, .2617E-05, .1811E-07, .1158E-09,\n     1 .2264E-01, .6134E-03, .5976E-05, .1229E-07,-.1286E-09,\n     1 .4252E-01, .1115E-02, .9811E-05, .5431E-07, .3797E-09,\n     1 .6295E-02, .1988E-03, .2587E-05, .1663E-07, .4580E-10,\n     1 .9195E-02, .2505E-03, .2872E-05, .1991E-07, .7763E-10,\n     1 .1628E-01, .3991E-03, .3504E-05, .2247E-07, .1547E-09,\n     1 .3086E-01, .8906E-03, .1019E-04, .1209E-07,-.4987E-09,\n     1 .5926E-01, .1522E-02, .1236E-04, .7739E-07, .7260E-09,\n     1 .8550E-02, .2658E-03, .3428E-05, .2218E-07, .6261E-10,\n     1 .1271E-01, .3464E-03, .3894E-05, .2481E-07, .8621E-10,\n     1 .2267E-01, .5632E-03, .5213E-05, .2786E-07, .1182E-09,\n     1 .4263E-01, .1203E-02, .1377E-04, .2406E-07,-.6019E-09,\n     1 .8037E-01, .2070E-02, .1694E-04, .9654E-07, .8452E-09,\n     1 .1140E-01, .3506E-03, .4551E-05, .2893E-07, .6920E-10,\n     1 .1743E-01, .4719E-03, .5160E-05, .3007E-07, .9235E-10,\n     1 .3140E-01, .7874E-03, .7397E-05, .3604E-07, .1089E-09,\n     1 .5772E-01, .1532E-02, .1545E-04, .5578E-07,-.1105E-09,\n     1 .1060E+00, .2889E-02, .2743E-04, .1007E-06, .1655E-09,\n     1 .1514E-01, .4601E-03, .5967E-05, .3708E-07, .7576E-10,\n     1 .2354E-01, .6282E-03, .6910E-05, .3900E-07, .9360E-10,\n     1 .4317E-01, .1064E-02, .8955E-05, .4370E-07, .2462E-09,\n     1 .7690E-01, .2072E-02, .2034E-04, .6934E-07,-.8692E-10,\n     1 .1381E+00, .3797E-02, .3719E-04, .1078E-06,-.3219E-09,\n     1 .1979E-01, .5740E-03, .7208E-05, .4868E-07, .1467E-09,\n     1 .3168E-01, .8015E-03, .8039E-05, .5036E-07, .2217E-09,\n     1 .5674E-01, .1496E-02, .1408E-04, .3696E-07,-.1705E-09,\n     1 .9986E-01, .2547E-02, .2090E-04, .1060E-06, .8137E-09,\n     1 .1824E+00, .5133E-02, .4785E-04, .9002E-07,-.5910E-09,\n     2 .7750E-01, .1926E-02, .1647E-04, .5152E-07, .5789E-10,\n     2 .9252E-01, .2176E-02, .1805E-04, .5697E-07, .4090E-10,\n     2 .1256E+00, .2757E-02, .2200E-04, .6171E-07,-.7270E-10,\n     2 .1997E+00, .3954E-02, .2617E-04, .6572E-07, .1797E-09,\n     2 .3415E+00, .6298E-02, .4389E-04, .1357E-06, .8247E-10,\n     2 .1051E+00, .2611E-02, .2185E-04, .6654E-07, .1234E-09,\n     2 .1264E+00, .2955E-02, .2427E-04, .7624E-07, .6777E-10,\n     2 .1737E+00, .3761E-02, .2920E-04, .8313E-07,-.2525E-10,\n     2 .2793E+00, .5549E-02, .3784E-04, .6902E-07,-.2349E-09,\n     2 .4851E+00, .8731E-02, .5836E-04, .1805E-06, .1464E-09,\n     2 .1393E+00, .3468E-02, .2892E-04, .8188E-07, .1027E-09,\n     2 .1688E+00, .3947E-02, .3179E-04, .9314E-07, .8401E-10,\n     2 .2355E+00, .5063E-02, .3872E-04, .1004E-06,-.1287E-09,\n     2 .3871E+00, .7623E-02, .5141E-04, .8296E-07,-.4458E-09,\n     2 .6934E+00, .1205E-01, .7024E-04, .2347E-06, .1293E-08,\n     2 .1789E+00, .4491E-02, .3824E-04, .9838E-07,-.7182E-10,\n     2 .2207E+00, .5185E-02, .4150E-04, .1067E-06,-.1754E-10,\n     2 .3149E+00, .6732E-02, .5003E-04, .1184E-06,-.1814E-09,\n     2 .5358E+00, .1028E-01, .6192E-04, .1167E-06, .4598E-09,\n     2 .9829E+00, .1710E-01, .9858E-04, .2107E-06, .2801E-09,\n     2 .2253E+00, .5681E-02, .4891E-04, .1097E-06,-.3620E-09,\n     2 .2837E+00, .6655E-02, .5329E-04, .1255E-06,-.2267E-09,\n     2 .4190E+00, .8860E-02, .6180E-04, .1329E-06, .3621E-10,\n     2 .7333E+00, .1419E-01, .8173E-04, .7045E-07, .3811E-09,\n     2 .1347E+01, .2269E-01, .1314E-03, .3965E-06, .8550E-09,\n     2 .2805E+00, .7112E-02, .6151E-04, .1254E-06,-.6195E-09,\n     2 .3568E+00, .8458E-02, .6798E-04, .1356E-06,-.5463E-09,\n     2 .5474E+00, .1172E-01, .8464E-04, .1108E-06,-.1226E-08,\n     2 .9699E+00, .1876E-01, .1179E-03, .1239E-06,-.7090E-09,\n     2 .1815E+01, .2923E-01, .1676E-03, .5291E-06,-.3456E-09,\n     2 .3383E+00, .8644E-02, .7789E-04, .1622E-06,-.1140E-08,\n     2 .4362E+00, .1044E-01, .8731E-04, .1638E-06,-.1184E-08,\n     2 .6993E+00, .1458E-01, .1057E-03, .2338E-06,-.7636E-09,\n     2 .1276E+01, .2441E-01, .1581E-03, .1820E-06,-.1661E-08,\n     2 .2438E+01, .3783E-01, .2135E-03, .7464E-06,-.1470E-08 /\n      DATA (((( CL7CO2D(K,L,J,I), K = 1, 5), L = 1, 5), J = 1, 7),\n     1                                                  I = 3, 3) /\n     3 .1167E+01, .2108E-01, .1237E-03, .1746E-06,-.5044E-09,\n     3 .1275E+01, .2281E-01, .1314E-03, .1947E-06,-.2232E-09,\n     3 .1486E+01, .2643E-01, .1517E-03, .1999E-06,-.5959E-09,\n     3 .1876E+01, .3241E-01, .1728E-03, .2616E-06, .1049E-08,\n     3 .2672E+01, .4497E-01, .2296E-03, .3947E-06, .2269E-08,\n     3 .1565E+01, .2793E-01, .1598E-03, .1901E-06,-.6590E-09,\n     3 .1712E+01, .3031E-01, .1698E-03, .2092E-06,-.3258E-09,\n     3 .2002E+01, .3520E-01, .1958E-03, .2216E-06,-.5193E-09,\n     3 .2531E+01, .4308E-01, .2237E-03, .3119E-06, .1414E-08,\n     3 .3605E+01, .6133E-01, .3406E-03, .2296E-06,-.4799E-08,\n     3 .2059E+01, .3596E-01, .2083E-03, .2687E-06,-.1859E-08,\n     3 .2258E+01, .3921E-01, .2210E-03, .2619E-06,-.1513E-08,\n     3 .2658E+01, .4551E-01, .2468E-03, .3205E-06,-.4218E-09,\n     3 .3371E+01, .5604E-01, .2877E-03, .4227E-06, .1310E-08,\n     3 .4826E+01, .8129E-01, .4636E-03,-.4164E-07,-.1377E-07,\n     3 .2713E+01, .4529E-01, .2301E-03, .3232E-06, .9465E-09,\n     3 .2984E+01, .4978E-01, .2522E-03, .2712E-06, .4486E-10,\n     3 .3523E+01, .5791E-01, .2817E-03, .3919E-06, .2269E-08,\n     3 .4482E+01, .7323E-01, .3860E-03, .2529E-06,-.5461E-08,\n     3 .6493E+01, .1068E+00, .5665E-03,-.1502E-06,-.1384E-07,\n     3 .3571E+01, .5797E-01, .2707E-03, .1700E-06, .1403E-09,\n     3 .3929E+01, .6345E-01, .3014E-03, .1354E-06,-.1783E-08,\n     3 .4642E+01, .7465E-01, .3501E-03, .1434E-06,-.1217E-08,\n     3 .5959E+01, .9345E-01, .4426E-03, .4426E-06,-.1279E-08,\n     3 .8688E+01, .1389E+00, .6834E-03, .9559E-07,-.8553E-08,\n     3 .4648E+01, .7368E-01, .3137E-03,-.4722E-07,-.3984E-10,\n     3 .5107E+01, .7983E-01, .3357E-03, .7199E-07, .1513E-08,\n     3 .6056E+01, .9394E-01, .3957E-03, .1422E-06, .1723E-08,\n     3 .7848E+01, .1185E+00, .4563E-03, .5001E-06, .1056E-07,\n     3 .1153E+02, .1781E+00, .8249E-03, .7612E-06,-.1393E-08,\n     3 .5932E+01, .9222E-01, .3615E-03,-.1798E-06, .1687E-08,\n     3 .6475E+01, .9998E-01, .4053E-03,-.2179E-06,-.1145E-08,\n     3 .7702E+01, .1173E+00, .4919E-03,-.2205E-06,-.5892E-08,\n     3 .9986E+01, .1478E+00, .5509E-03, .9207E-07, .5696E-08,\n     3 .1490E+02, .2225E+00, .9115E-03, .1485E-05, .1755E-07 /\n      DATA (((( CL7CS(K,L,J,I), K = 1, 5),  L = 1, 5), J = 1, 4),\n     1                          I = 1, 3)                    /\n     1 .1396E+02,-.2899E+00, .3004E-02,-.2032E-04, .7639E-07,\n     1 .1353E+02,-.2584E+00, .2485E-02,-.2471E-04, .1733E-06,\n     1 .1257E+02,-.2425E+00, .2678E-02,-.2986E-04, .1957E-06,\n     1 .1220E+02,-.2489E+00, .2698E-02,-.4082E-04, .3670E-06,\n     1 .1250E+02,-.2966E+00, .4165E-02,-.4513E-04, .2460E-06,\n     1 .2076E+02,-.4239E+00, .4211E-02,-.2978E-04, .1392E-06,\n     1 .1980E+02,-.3811E+00, .3767E-02,-.3469E-04, .2172E-06,\n     1 .1832E+02,-.3536E+00, .3858E-02,-.4568E-04, .3246E-06,\n     1 .1781E+02,-.3669E+00, .4217E-02,-.6134E-04, .5105E-06,\n     1 .1853E+02,-.4439E+00, .6060E-02,-.6637E-04, .3895E-06,\n     1 .3051E+02,-.6205E+00, .6107E-02,-.4250E-04, .1959E-06,\n     1 .2883E+02,-.5561E+00, .5442E-02,-.4706E-04, .2801E-06,\n     1 .2641E+02,-.5175E+00, .5890E-02,-.6928E-04, .4738E-06,\n     1 .2575E+02,-.5494E+00, .6783E-02,-.9038E-04, .6733E-06,\n     1 .2749E+02,-.6635E+00, .8844E-02,-.9781E-04, .6089E-06,\n     1 .4463E+02,-.8951E+00, .8654E-02,-.6029E-04, .2823E-06,\n     1 .4156E+02,-.7814E+00, .7533E-02,-.7295E-04, .4848E-06,\n     1 .3793E+02,-.7457E+00, .8307E-02,-.1079E-03, .8356E-06,\n     1 .3743E+02,-.8170E+00, .1082E-01,-.1344E-03, .8735E-06,\n     1 .4082E+02,-.9914E+00, .1288E-01,-.1441E-03, .9500E-06,\n     2 .3576E+02,-.7950E+00, .9379E-02,-.1004E-03, .6593E-06,\n     2 .3695E+02,-.8510E+00, .1037E-01,-.9624E-04, .5167E-06,\n     2 .3768E+02,-.8574E+00, .1002E-01,-.9300E-04, .5332E-06,\n     2 .3653E+02,-.8198E+00, .9766E-02,-.8351E-04, .3882E-06,\n     2 .3441E+02,-.7423E+00, .8193E-02,-.7873E-04, .4911E-06,\n     2 .5297E+02,-.1176E+01, .1408E-01,-.1506E-03, .9642E-06,\n     2 .5513E+02,-.1255E+01, .1508E-01,-.1464E-03, .8476E-06,\n     2 .5620E+02,-.1271E+01, .1481E-01,-.1387E-03, .8010E-06,\n     2 .5408E+02,-.1219E+01, .1447E-01,-.1224E-03, .5719E-06,\n     2 .5082E+02,-.1091E+01, .1205E-01,-.1176E-03, .7357E-06,\n     2 .7874E+02,-.1749E+01, .2121E-01,-.2258E-03, .1406E-05,\n     2 .8230E+02,-.1860E+01, .2225E-01,-.2246E-03, .1361E-05,\n     2 .8369E+02,-.1886E+01, .2197E-01,-.2060E-03, .1185E-05,\n     2 .8068E+02,-.1803E+01, .2095E-01,-.1809E-03, .9093E-06,\n     2 .7519E+02,-.1597E+01, .1758E-01,-.1773E-03, .1140E-05,\n     2 .1172E+03,-.2615E+01, .3219E-01,-.3423E-03, .2103E-05,\n     2 .1231E+03,-.2805E+01, .3371E-01,-.3281E-03, .1912E-05,\n     2 .1248E+03,-.2812E+01, .3300E-01,-.3006E-03, .1622E-05,\n     2 .1202E+03,-.2669E+01, .3020E-01,-.2658E-03, .1463E-05,\n     2 .1111E+03,-.2337E+01, .2557E-01,-.2674E-03, .1780E-05,\n     3 .3100E+02,-.6945E+00, .8494E-02,-.8672E-04, .5088E-06,\n     3 .3181E+02,-.7074E+00, .8455E-02,-.8803E-04, .5462E-06,\n     3 .3326E+02,-.7418E+00, .8828E-02,-.8823E-04, .5238E-06,\n     3 .3536E+02,-.7839E+00, .9161E-02,-.8986E-04, .5339E-06,\n     3 .3711E+02,-.8247E+00, .9616E-02,-.9420E-04, .5646E-06,\n     3 .4620E+02,-.1045E+01, .1277E-01,-.1280E-03, .7438E-06,\n     3 .4726E+02,-.1059E+01, .1273E-01,-.1299E-03, .7868E-06,\n     3 .4936E+02,-.1106E+01, .1326E-01,-.1290E-03, .7332E-06,\n     3 .5266E+02,-.1160E+01, .1345E-01,-.1343E-03, .8198E-06,\n     3 .5515E+02,-.1228E+01, .1445E-01,-.1392E-03, .8026E-06,\n     3 .6904E+02,-.1562E+01, .1886E-01,-.1902E-03, .1144E-05,\n     3 .7050E+02,-.1592E+01, .1925E-01,-.1900E-03, .1102E-05,\n     3 .7362E+02,-.1645E+01, .1947E-01,-.1898E-03, .1105E-05,\n     3 .7804E+02,-.1715E+01, .1994E-01,-.2001E-03, .1228E-05,\n     3 .8155E+02,-.1825E+01, .2167E-01,-.2044E-03, .1135E-05,\n     3 .1034E+03,-.2340E+01, .2796E-01,-.2808E-03, .1696E-05,\n     3 .1056E+03,-.2374E+01, .2853E-01,-.2854E-03, .1686E-05,\n     3 .1099E+03,-.2444E+01, .2875E-01,-.2822E-03, .1675E-05,\n     3 .1153E+03,-.2530E+01, .2960E-01,-.2994E-03, .1835E-05,\n     3 .1201E+03,-.2705E+01, .3262E-01,-.2964E-03, .1525E-05 /\n      DATA (((( CL7CF(K,L,J,I), K = 1, 5), L = 1, 5), J = 1, 4),\n     1                          I = 1, 3)                    /\n     1 .2721E-01,-.5029E-04,-.7229E-06, .1343E-07,-.1062E-09,\n     1 .2194E-01, .7539E-04,-.1816E-05, .7955E-09, .1054E-09,\n     1 .1344E-01, .1345E-03,-.6031E-06,-.4300E-08,-.3154E-10,\n     1 .6618E-02, .9637E-04,-.1803E-05,-.6878E-08, .3614E-09,\n     1 .1711E-02, .3592E-04, .1396E-05,-.3379E-08,-.1991E-09,\n     1 .4055E-01,-.5527E-04,-.1803E-05, .1873E-07,-.4836E-10,\n     1 .3142E-01, .1157E-03,-.2265E-05, .3978E-08, .5934E-10,\n     1 .1852E-01, .1935E-03,-.1201E-05,-.7214E-08, .4518E-10,\n     1 .8721E-02, .1498E-03,-.1686E-05,-.1406E-07, .3448E-09,\n     1 .2531E-02, .2676E-04, .1288E-05,-.7368E-09,-.1513E-09,\n     1 .5893E-01,-.6185E-04,-.2884E-05, .2840E-07,-.6746E-10,\n     1 .4433E-01, .1868E-03,-.3518E-05, .1134E-07, .5021E-10,\n     1 .2432E-01, .2755E-03,-.9316E-06,-.1096E-07,-.1363E-10,\n     1 .1031E-01, .1906E-03,-.8226E-06,-.1849E-07, .2199E-09,\n     1 .3749E-02, .7716E-05, .9610E-06, .4006E-08,-.5038E-10,\n     1 .8478E-01,-.2040E-04,-.4858E-05, .3770E-07,-.7883E-10,\n     1 .6069E-01, .3674E-03,-.5458E-05, .3683E-08, .1553E-09,\n     1 .3107E-01, .3821E-03,-.2662E-05,-.1749E-07, .3548E-09,\n     1 .1220E-01, .2782E-03, .1685E-05,-.3191E-07,-.2148E-09,\n     1 .5567E-02,-.3440E-04, .3315E-07, .1223E-07, .1653E-09,\n     2 .7821E-01,-.5032E-03, .1815E-05,-.1798E-07, .2725E-09,\n     2 .8295E-01,-.6342E-03, .3803E-05,-.6655E-09,-.1459E-09,\n     2 .8570E-01,-.6197E-03, .1921E-05, .2405E-08, .8082E-10,\n     2 .8002E-01,-.4733E-03, .2838E-05, .3014E-08,-.3074E-09,\n     2 .7042E-01,-.3041E-03,-.4697E-06, .1385E-08, .1470E-09,\n     2 .1157E+00,-.7264E-03, .3596E-05,-.3150E-07, .2669E-09,\n     2 .1245E+00,-.9118E-03, .4689E-05,-.9272E-08,-.2104E-10,\n     2 .1285E+00,-.8969E-03, .2715E-05,-.2958E-09, .1281E-09,\n     2 .1180E+00,-.7211E-03, .3951E-05, .1018E-07,-.3941E-09,\n     2 .1035E+00,-.4199E-03,-.6634E-06,-.3520E-08, .1953E-09,\n     2 .1723E+00,-.1062E-02, .6825E-05,-.5327E-07, .1619E-09,\n     2 .1871E+00,-.1329E-02, .6384E-05,-.2777E-07, .1529E-09,\n     2 .1920E+00,-.1307E-02, .4023E-05,-.4661E-08, .1563E-09,\n     2 .1769E+00,-.1041E-02, .4307E-05, .1321E-07,-.3727E-09,\n     2 .1526E+00,-.5553E-03,-.1259E-05,-.1704E-07, .3511E-09,\n     2 .2566E+00,-.1644E-02, .1261E-04,-.7588E-07, .5754E-10,\n     2 .2816E+00,-.2071E-02, .1010E-04,-.2053E-07, .1099E-09,\n     2 .2876E+00,-.1907E-02, .7436E-05,-.7658E-08,-.1866E-09,\n     2 .2645E+00,-.1549E-02, .2845E-05, .2773E-07, .1846E-10,\n     2 .2245E+00,-.7345E-03,-.2852E-05,-.4225E-07, .7253E-09,\n     3 .5417E-01,-.2528E-03, .2038E-05,-.1069E-07,-.9237E-10,\n     3 .5733E-01,-.2676E-03, .1178E-05,-.1113E-07, .6626E-10,\n     3 .6326E-01,-.3189E-03, .1382E-05,-.8199E-08, .2497E-11,\n     3 .7192E-01,-.3792E-03, .1203E-05,-.6301E-08, .3709E-10,\n     3 .7876E-01,-.4561E-03, .1581E-05,-.7160E-08, .7944E-10,\n     3 .8131E-01,-.4257E-03, .2970E-05,-.9726E-08,-.1144E-09,\n     3 .8526E-01,-.4267E-03, .2139E-05,-.1287E-07, .3529E-10,\n     3 .9381E-01,-.4804E-03, .2577E-05,-.8269E-08,-.1095E-09,\n     3 .1076E+00,-.5418E-03, .1434E-05,-.1212E-07, .1226E-09,\n     3 .1173E+00,-.6765E-03, .3044E-05,-.9734E-08,-.1606E-10,\n     3 .1230E+00,-.6759E-03, .3263E-05,-.9553E-08, .4656E-10,\n     3 .1282E+00,-.6832E-03, .3999E-05,-.9516E-08,-.1161E-09,\n     3 .1408E+00,-.7172E-03, .3002E-05,-.8244E-08,-.4856E-10,\n     3 .1592E+00,-.7890E-03, .2233E-05,-.1915E-07, .2194E-09,\n     3 .1729E+00,-.1016E-02, .5181E-05,-.9115E-08,-.1553E-09,\n     3 .1872E+00,-.1039E-02, .3510E-05,-.1482E-07, .1817E-09,\n     3 .1948E+00,-.1027E-02, .5437E-05,-.2273E-07,-.9952E-10,\n     3 .2118E+00,-.1057E-02, .3727E-05,-.1216E-07, .8117E-10,\n     3 .2342E+00,-.1121E-02, .4051E-05,-.3507E-07, .2993E-09,\n     3 .2527E+00,-.1504E-02, .9940E-05,-.1262E-08,-.7234E-09 /\nC\n      COMMON /BANDL7GH/ GWL7GH(7), CL7H2OGH(5,28,4),\n     1                             CL7CO2GH(5,28,7), CL7O3GH(2)\n      DATA GWL7GH / .18200, .13600, .05000, .01270, .00300,\n     1              .00100, .00030 /\n      DATA CL7O3GH / 40.73849, 43.96434 /\n      DATA ((( CL7H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     4 .3979E-03, .1309E-04, .2319E-06, .2275E-08, .9044E-11,\n     4 .5975E-03, .1801E-04, .3143E-06, .2752E-08, .6934E-11,\n     4 .9489E-03, .2967E-04, .5084E-06, .3076E-08,-.5444E-11,\n     4 .1616E-02, .4305E-04, .6158E-06, .3792E-08, .1404E-11,\n     4 .2657E-02, .6118E-04, .7583E-06, .5784E-08, .2172E-10,\n     4 .4296E-02, .8016E-04, .8953E-06, .8844E-08, .4875E-10,\n     4 .7236E-02, .1351E-03, .1344E-05, .8520E-08, .3701E-10,\n     4 .1304E-01, .1880E-03, .1277E-05, .1610E-07, .1506E-09,\n     4 .2337E-01, .3183E-03, .1052E-05, .1674E-07, .3188E-09,\n     4 .4154E-01, .5183E-03, .2804E-05, .2479E-07, .2173E-09,\n     4 .1062E+00, .1367E-02, .7187E-05,-.9725E-08,-.2056E-09,\n     4 .1507E+00, .1994E-02, .1516E-04,-.3444E-07,-.1388E-08,\n     4 .2212E+00, .2635E-02, .1612E-04, .2766E-08,-.9770E-09,\n     4 .3162E+00, .3718E-02, .1361E-04, .2238E-07, .6228E-09,\n     4 .4491E+00, .5330E-02, .1967E-04, .1130E-07, .9380E-09,\n     4 .6229E+00, .6924E-02, .2318E-04, .7405E-07, .1877E-08,\n     4 .8901E+00, .1036E-01, .5791E-04,-.1261E-06,-.4170E-08,\n     4 .1264E+01, .1329E-01, .5246E-04, .8264E-07, .8006E-09,\n     4 .1837E+01, .1838E-01, .1531E-04, .1192E-06, .9628E-08,\n     4 .2553E+01, .2565E-01, .1345E-03, .2501E-06,-.7128E-08,\n     4 .3616E+01, .3494E-01, .1811E-03, .1876E-06,-.9945E-08,\n     4 .5193E+01, .4251E-01, .2234E-03, .1113E-05,-.1956E-07,\n     4 .7291E+01, .5548E-01, .2691E-03, .2257E-05,-.2823E-07,\n     4 .9882E+01, .8229E-01,-.3997E-03, .2539E-05, .7505E-07,\n     4 .1040E+02, .1364E+00, .2396E-03,-.2653E-05,-.8985E-08,\n     4 .9481E+01, .1431E+00, .1698E-03,-.1884E-05, .4727E-07,\n     4 .7102E+01, .1382E+00, .8000E-03,-.4169E-05,-.5986E-07,\n     4 .4817E+01, .1006E+00, .4971E-03, .1741E-05, .3680E-07,\n     5 .3073E-01, .1060E-02, .1685E-04, .2057E-06, .1376E-08,\n     5 .3250E-01, .1081E-02, .1674E-04, .2063E-06, .1410E-08,\n     5 .3729E-01, .1104E-02, .1512E-04, .2029E-06, .1591E-08,\n     5 .4358E-01, .1219E-02, .1567E-04, .1915E-06, .1457E-08,\n     5 .5140E-01, .1576E-02, .2414E-04, .1799E-06, .3830E-09,\n     5 .6843E-01, .1849E-02, .2645E-04, .1623E-06,-.7235E-10,\n     5 .9013E-01, .2220E-02, .2932E-04, .1516E-06,-.2603E-09,\n     5 .1477E+00, .2575E-02, .1313E-04, .2283E-06, .3220E-08,\n     5 .2275E+00, .3596E-02, .1003E-04, .2908E-06, .5134E-08,\n     5 .3341E+00, .5577E-02, .2436E-04, .2137E-06, .4207E-08,\n     5 .6167E+00, .9654E-02, .8056E-04, .2617E-06,-.1574E-08,\n     5 .8408E+00, .1139E-01, .7003E-04, .4346E-06, .2950E-08,\n     5 .1122E+01, .1629E-01, .1129E-03, .1767E-06,-.1711E-08,\n     5 .1604E+01, .2096E-01, .1567E-03, .4008E-06,-.8837E-08,\n     5 .2256E+01, .3159E-01, .2720E-03, .2558E-06,-.2096E-07,\n     5 .3228E+01, .3908E-01, .2333E-03, .1666E-05, .1700E-08,\n     5 .4433E+01, .5401E-01, .8836E-04, .1209E-05, .3277E-07,\n     5 .6214E+01, .7139E-01, .2844E-03, .8659E-06,-.8975E-08,\n     5 .8883E+01, .1214E+00, .4692E-03,-.3952E-05,-.4179E-07,\n     5 .1070E+02, .1283E+00, .1178E-02, .1746E-05,-.1318E-06,\n     5 .1423E+02, .1890E+00, .2108E-04,-.1841E-05, .4531E-07,\n     5 .1308E+02, .2516E+00, .1488E-02,-.8041E-05,-.1593E-06,\n     5 .1082E+02, .2402E+00, .4970E-03,-.3117E-05, .1181E-06,\n     5 .5873E+01, .2170E+00, .2438E-02,-.6079E-05,-.1877E-06,\n     5 .2984E+01, .1027E+00, .1260E-02, .7025E-05, .2700E-07,\n     5 .1567E+01, .6182E-01, .1249E-02, .4508E-05,-.6663E-07,\n     5 .1627E+01, .2983E-01, .1840E-03, .5014E-05, .6238E-07,\n     5 .1814E+01, .4301E-01, .3540E-03,-.6079E-06,-.2215E-07,\n     6 .2679E+01, .8688E-01, .1266E-02, .5835E-05,-.2292E-07,\n     6 .2674E+01, .9032E-01, .1363E-02, .5089E-05,-.4266E-07,\n     6 .2907E+01, .9037E-01, .1116E-02, .5038E-05,-.1392E-08,\n     6 .3053E+01, .8953E-01, .9663E-03, .5114E-05, .2324E-07,\n     6 .3393E+01, .9585E-01, .9985E-03, .3540E-05, .1842E-08,\n     6 .3641E+01, .8739E-01, .8533E-03, .6089E-05, .3778E-07,\n     6 .3979E+01, .8723E-01, .8792E-03, .6312E-05, .2811E-07,\n     6 .4731E+01, .1070E+00, .1184E-02, .4556E-05,-.2335E-07,\n     6 .5910E+01, .1202E+00, .1488E-02, .3533E-05,-.9056E-07,\n     6 .8394E+01, .1517E+00, .1013E-02, .3045E-05, .9213E-08,\n     6 .1445E+02, .2547E+00, .9205E-03,-.6289E-05, .2503E-07,\n     6 .1641E+02, .2691E+00, .2174E-02,-.5779E-05,-.2074E-06,\n     6 .1824E+02, .2805E+00, .2827E-02, .1470E-05,-.1362E-06,\n     6 .2484E+02, .2895E+00, .2182E-02, .2012E-04, .9200E-07,\n     6 .3228E+02, .2715E+00,-.7519E-03, .2783E-04, .4698E-06,\n     6 .4015E+02, .4094E+00, .2015E-03, .1272E-04, .1433E-06,\n     6 .4570E+02, .6543E+00, .2055E-02,-.6647E-05,-.8492E-07,\n     6 .4541E+02, .7479E+00, .4208E-03,-.8566E-05, .3976E-06,\n     6 .3539E+02, .6533E+00, .2515E-02, .8626E-05, .2095E-06,\n     6 .2673E+02, .6560E+00, .2446E-02, .1054E-05, .3383E-06,\n     6 .1179E+02, .4299E+00, .5160E-02, .1176E-04,-.1008E-06,\n     6 .6849E+01, .1998E+00, .1027E-02, .2448E-04, .4590E-06,\n     6 .2467E+01, .1354E+00, .3275E-02, .7239E-05,-.2512E-06,\n     6 .2487E+01, .4085E-01, .3215E-03, .1424E-04, .1790E-06,\n     6 .2652E+01, .5485E-01, .4623E-03, .9730E-06,-.4515E-10,\n     6 .2757E+01, .5373E-01, .5512E-03, .1454E-05,-.1937E-07,\n     6 .2587E+01, .5036E-01, .5962E-03, .2420E-05,-.1868E-07,\n     6 .1840E+01, .2508E-01, .5036E-03, .6535E-05, .1483E-07 /\n      DATA ((( CL7H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 4) /\n     7 .2162E+03, .3719E+01, .1760E-01, .6433E-04, .9080E-06,\n     7 .2162E+03, .3706E+01, .1721E-01, .6730E-04, .9864E-06,\n     7 .2152E+03, .3705E+01, .1822E-01, .6752E-04, .8199E-06,\n     7 .2146E+03, .3707E+01, .1880E-01, .6733E-04, .7229E-06,\n     7 .2131E+03, .3677E+01, .1858E-01, .7369E-04, .8188E-06,\n     7 .2121E+03, .3715E+01, .1902E-01, .5693E-04, .7750E-06,\n     7 .2106E+03, .4204E+01, .3293E-01,-.4423E-04,-.2055E-05,\n     7 .2228E+03, .3967E+01, .2013E-01,-.7162E-05,-.1466E-06,\n     7 .2174E+03, .3899E+01, .1884E-01,-.3389E-05, .1150E-06,\n     7 .2271E+03, .3934E+01, .2140E-01, .1457E-04,-.1974E-06,\n     7 .2004E+03, .3456E+01, .2094E-01, .5202E-04,-.1874E-06,\n     7 .1905E+03, .3366E+01, .1588E-01, .4846E-04, .7028E-06,\n     7 .1803E+03, .3253E+01, .1270E-01, .2200E-04, .4645E-06,\n     7 .1488E+03, .3143E+01, .1470E-01,-.5471E-04,-.3892E-06,\n     7 .1114E+03, .3069E+01, .2493E-01,-.8397E-04,-.1775E-05,\n     7 .6775E+02, .2405E+01, .2132E-01,-.4006E-04,-.7314E-06,\n     7 .2845E+02, .1198E+01, .1481E-01, .4502E-04,-.6451E-07,\n     7 .3587E+01, .5628E+00, .1903E-01, .5347E-04,-.1599E-05,\n     7 .3853E+01, .2854E+00, .8946E-02, .3495E-04,-.6220E-06,\n     7 .4115E+01, .3230E-01,-.1339E-03, .9949E-06, .1713E-07,\n     7 .4514E+01, .4306E-01, .1045E-03,-.3784E-06,-.3653E-07,\n     7 .5037E+01, .5328E-01,-.1313E-03,-.1217E-05, .4063E-08,\n     7 .5058E+01, .6589E-01,-.4212E-04,-.1356E-05, .1604E-07,\n     7 .4487E+01, .6287E-01, .1931E-03, .7326E-06,-.1275E-08,\n     7 .4122E+01, .6398E-01,-.1124E-04,-.3712E-06, .1871E-07,\n     7 .3504E+01, .7436E-01,-.1268E-03,-.3277E-05, .5389E-07,\n     7 .2483E+01, .7784E-01, .3708E-03,-.4513E-05,-.1066E-07,\n     7 .3159E+01, .7310E-01,-.2678E-03,-.6098E-05, .5793E-07 /\n      DATA ((( CL7CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     4 .7533E-03, .1759E-04, .2086E-06, .1701E-08, .7958E-11,\n     4 .1240E-02, .2724E-04, .3004E-06, .1972E-08, .6215E-11,\n     4 .2071E-02, .4233E-04, .4310E-06, .2389E-08, .4750E-11,\n     4 .3501E-02, .6658E-04, .6299E-06, .3096E-08, .3672E-11,\n     4 .6005E-02, .1055E-03, .9128E-06, .4268E-08, .6298E-11,\n     4 .1045E-01, .1707E-03, .1361E-05, .5896E-08, .7869E-11,\n     4 .1848E-01, .2775E-03, .2017E-05, .8748E-08, .1520E-10,\n     4 .3312E-01, .4599E-03, .3097E-05, .1267E-07, .9837E-11,\n     4 .6036E-01, .7744E-03, .4852E-05, .1960E-07,-.1083E-10,\n     4 .1122E+00, .1343E-02, .7612E-05, .2884E-07,-.5713E-10,\n     4 .2939E+00, .3218E-02, .1513E-04, .5520E-07,-.1293E-09,\n     4 .4231E+00, .4509E-02, .1931E-04, .7009E-07,-.8888E-10,\n     4 .6096E+00, .6369E-02, .2573E-04, .8445E-07,-.1876E-09,\n     4 .8783E+00, .8991E-02, .3577E-04, .1071E-06,-.5840E-09,\n     4 .1263E+01, .1267E-01, .4923E-04, .1465E-06,-.1119E-08,\n     4 .1814E+01, .1777E-01, .6644E-04, .2139E-06,-.1677E-08,\n     4 .2595E+01, .2469E-01, .8332E-04, .3488E-06,-.1476E-08,\n     4 .3695E+01, .3432E-01, .1039E-03, .4822E-06,-.1712E-08,\n     4 .5231E+01, .4768E-01, .1220E-03, .5797E-06,-.1247E-08,\n     4 .7349E+01, .6585E-01, .1372E-03, .6522E-06, .3123E-10,\n     4 .1022E+02, .8967E-01, .1715E-03, .7535E-06,-.1828E-08,\n     4 .1416E+02, .1201E+00, .1571E-03, .8937E-06, .1947E-08,\n     4 .1954E+02, .1614E+00, .9713E-04, .7591E-06, .7562E-08,\n     4 .2670E+02, .2189E+00, .1658E-04, .3104E-06, .1403E-07,\n     4 .3583E+02, .2967E+00,-.1940E-03,-.3044E-06, .3986E-07,\n     4 .4628E+02, .4074E+00,-.2678E-03,-.3593E-05, .4834E-07,\n     4 .5626E+02, .5270E+00, .2664E-03,-.7034E-05, .6535E-08,\n     4 .6676E+02, .6160E+00, .3844E-03,-.6498E-05, .1904E-07,\n     5 .5221E-01, .1805E-02, .2934E-04, .2960E-06, .1506E-08,\n     5 .6099E-01, .1958E-02, .3034E-04, .2919E-06, .1428E-08,\n     5 .7430E-01, .2183E-02, .3210E-04, .2900E-06, .1305E-08,\n     5 .9564E-01, .2507E-02, .3425E-04, .2939E-06, .1267E-08,\n     5 .1308E+00, .2982E-02, .3636E-04, .3019E-06, .1392E-08,\n     5 .1887E+00, .3740E-02, .4048E-04, .3122E-06, .1437E-08,\n     5 .2868E+00, .4941E-02, .4705E-04, .3218E-06, .1375E-08,\n     5 .4563E+00, .6876E-02, .5772E-04, .3267E-06, .1108E-08,\n     5 .7576E+00, .9984E-02, .7128E-04, .3349E-06, .1147E-08,\n     5 .1301E+01, .1510E-01, .9173E-04, .3467E-06, .1288E-08,\n     5 .3084E+01, .3015E-01, .1499E-03, .3736E-06, .1305E-08,\n     5 .4287E+01, .3959E-01, .1842E-03, .3846E-06, .1300E-08,\n     5 .5989E+01, .5211E-01, .2223E-03, .4357E-06, .2183E-08,\n     5 .8378E+01, .6927E-01, .2770E-03, .4164E-06, .2439E-08,\n     5 .1174E+02, .9184E-01, .3309E-03, .4309E-06, .5361E-08,\n     5 .1644E+02, .1224E+00, .3954E-03, .2477E-06, .8943E-08,\n     5 .2294E+02, .1624E+00, .5228E-03,-.4672E-07, .4298E-08,\n     5 .3187E+02, .2121E+00, .6170E-03,-.3082E-06, .1099E-07,\n     5 .4400E+02, .2719E+00, .6996E-03,-.8778E-06, .2000E-07,\n     5 .6025E+02, .3486E+00, .8769E-03,-.2275E-05, .1487E-07,\n     5 .8148E+02, .4338E+00, .1275E-02,-.2286E-05,-.2183E-07,\n     5 .1091E+03, .5291E+00, .1301E-02,-.1092E-05,-.1145E-07,\n     5 .1433E+03, .6458E+00, .1046E-02,-.2897E-05, .3588E-07,\n     5 .1827E+03, .7671E+00, .1326E-02,-.8701E-05, .4600E-07,\n     5 .2277E+03, .8028E+00, .2318E-02,-.7950E-05,-.1857E-07,\n     5 .2850E+03, .7545E+00, .2500E-02,-.8734E-05, .3775E-07,\n     5 .3618E+03, .6011E+00, .2124E-02,-.7617E-05, .1066E-06,\n     5 .4619E+03, .3803E+00, .2990E-02,-.7075E-05,-.9234E-07,\n     6 .4780E+01, .1369E+00, .1601E-02, .8635E-05, .1564E-07,\n     6 .4916E+01, .1363E+00, .1576E-02, .8748E-05, .1836E-07,\n     6 .5166E+01, .1368E+00, .1545E-02, .8726E-05, .2062E-07,\n     6 .5579E+01, .1392E+00, .1525E-02, .8545E-05, .1990E-07,\n     6 .6258E+01, .1443E+00, .1500E-02, .8234E-05, .1968E-07,\n     6 .7359E+01, .1546E+00, .1495E-02, .7704E-05, .1741E-07,\n     6 .9122E+01, .1720E+00, .1526E-02, .7079E-05, .1276E-07,\n     6 .1195E+02, .1972E+00, .1548E-02, .6922E-05, .1710E-07,\n     6 .1663E+02, .2384E+00, .1626E-02, .6359E-05, .1751E-07,\n     6 .2454E+02, .3044E+00, .1758E-02, .5424E-05, .1714E-07,\n     6 .4848E+02, .4761E+00, .2260E-02, .4878E-05, .3592E-09,\n     6 .6383E+02, .5736E+00, .2499E-02, .4589E-05,-.7953E-08,\n     6 .8489E+02, .6976E+00, .2668E-02, .3466E-05,-.5880E-08,\n     6 .1134E+03, .8629E+00, .2916E-02, .3468E-06, .2279E-08,\n     6 .1520E+03, .1073E+01, .3294E-02,-.2331E-05, .2682E-07,\n     6 .2033E+03, .1319E+01, .4290E-02,-.2585E-05,-.5028E-07,\n     6 .2706E+03, .1592E+01, .5192E-02, .7664E-06,-.1258E-06,\n     6 .3575E+03, .1906E+01, .4917E-02, .9025E-05,-.6084E-07,\n     6 .4645E+03, .2358E+01, .4227E-02, .5232E-05,-.2967E-07,\n     6 .5874E+03, .2909E+01, .2957E-02,-.1132E-04, .1926E-06,\n     6 .7166E+03, .3404E+01, .3177E-02,-.3915E-04, .4958E-06,\n     6 .8538E+03, .3568E+01, .8872E-02,-.6325E-04, .7559E-07,\n     6 .1026E+04, .3023E+01, .1190E-01,-.2772E-04,-.1500E-06,\n     6 .1264E+04, .2224E+01, .8202E-02,-.7830E-05, .6620E-07,\n     6 .1558E+04, .1497E+01, .5592E-02,-.1036E-04,-.8107E-07,\n     6 .1876E+04, .6267E+00, .2353E-02, .7971E-05,-.2378E-07,\n     6 .2159E+04,-.1868E+00,-.2069E-03, .1924E-04,-.8951E-07,\n     6 .2348E+04,-.8938E+00,-.4795E-02, .1456E-04, .5410E-06 /\n      DATA ((( CL7CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 6) /\n     7 .2615E+03, .5304E+01, .3627E-01, .5074E-04,-.3389E-06,\n     7 .2617E+03, .5303E+01, .3639E-01, .5039E-04,-.3520E-06,\n     7 .2623E+03, .5296E+01, .3652E-01, .5041E-04,-.3596E-06,\n     7 .2639E+03, .5276E+01, .3662E-01, .5097E-04,-.3578E-06,\n     7 .2679E+03, .5237E+01, .3681E-01, .5271E-04,-.3778E-06,\n     7 .2771E+03, .5164E+01, .3685E-01, .5950E-04,-.4241E-06,\n     7 .2978E+03, .5056E+01, .3443E-01, .7421E-04,-.1410E-06,\n     7 .3368E+03, .5065E+01, .3200E-01, .7296E-04, .2043E-07,\n     7 .4073E+03, .5236E+01, .2858E-01, .5791E-04, .2245E-06,\n     7 .5211E+03, .5557E+01, .3079E-01, .5554E-04,-.4996E-06,\n     7 .8666E+03, .6459E+01, .2403E-01, .7457E-04, .3639E-06,\n     7 .1085E+04, .7166E+01, .1887E-01, .4120E-04, .8569E-06,\n     7 .1368E+04, .8129E+01, .1834E-01, .8641E-05, .6606E-06,\n     7 .1734E+04, .9322E+01, .2297E-01, .3645E-05,-.7712E-06,\n     7 .2203E+04, .1051E+02, .1850E-01, .7040E-04,-.9868E-06,\n     7 .2771E+04, .1259E+02, .4016E-02,-.1628E-04, .7452E-06,\n     7 .3414E+04, .1509E+02,-.3010E-02,-.1970E-03, .2855E-05,\n     7 .4135E+04, .1642E+02, .2275E-01,-.3437E-03, .4329E-06,\n     7 .5048E+04, .1487E+02, .3174E-01,-.2763E-03, .5903E-06,\n     7 .6264E+04, .1120E+02, .3591E-01,-.1358E-03,-.9681E-06,\n     7 .7830E+04, .6923E+01, .1644E-01, .2735E-04,-.1368E-05,\n     7 .9576E+04, .3529E+01,-.2416E-01, .1569E-03, .4027E-06,\n     7 .1108E+05, .2838E+01,-.4676E-01, .2050E-04, .5772E-06,\n     7 .1185E+05, .2034E+01,-.4604E-01, .4265E-04, .1925E-06,\n     7 .1169E+05, .6925E+00,-.5102E-01, .2157E-04, .1562E-05,\n     7 .1066E+05,-.1466E+00,-.3748E-01,-.8924E-05, .9231E-06,\n     7 .9231E+04,-.8276E+00,-.3130E-01, .5709E-04, .1299E-05,\n     7 .7788E+04, .9468E+00,-.1446E-01,-.1953E-04, .2703E-06,\n     8 .4476E+04, .5788E+02, .1918E+00,-.2188E-03,-.1428E-05,\n     8 .4477E+04, .5788E+02, .1916E+00,-.2194E-03,-.1407E-05,\n     8 .4479E+04, .5788E+02, .1915E+00,-.2201E-03,-.1383E-05,\n     8 .4482E+04, .5787E+02, .1913E+00,-.2214E-03,-.1367E-05,\n     8 .4488E+04, .5785E+02, .1912E+00,-.2248E-03,-.1350E-05,\n     8 .4500E+04, .5781E+02, .1915E+00,-.2427E-03,-.1268E-05,\n     8 .4525E+04, .5766E+02, .1989E+00,-.2801E-03,-.2176E-05,\n     8 .4590E+04, .5682E+02, .2049E+00,-.2793E-03,-.2457E-05,\n     8 .4758E+04, .5483E+02, .2150E+00,-.1972E-03,-.3812E-05,\n     8 .5198E+04, .5185E+02, .1836E+00,-.6698E-04,-.7395E-06,\n     8 .6666E+04, .4913E+02, .1324E+00,-.1569E-03,-.7295E-06,\n     8 .7490E+04, .4931E+02, .1489E+00,-.2815E-03,-.5456E-05,\n     8 .8585E+04, .4861E+02, .9724E-01,-.2913E-03, .3049E-05,\n     8 .9957E+04, .4754E+02, .7270E-01,-.7409E-03, .8337E-05,\n     8 .1172E+05, .4459E+02, .1294E+00,-.1470E-02, .5003E-05,\n     8 .1419E+05, .3088E+02, .2149E+00,-.9643E-03,-.3364E-05,\n     8 .1783E+05, .8358E+01, .1741E+00, .9848E-04,-.2619E-05,\n     8 .2259E+05,-.1332E+02, .6490E-01, .5333E-03, .1723E-05,\n     8 .2785E+05,-.2933E+02,-.2199E-01, .5109E-03, .3031E-05,\n     8 .3240E+05,-.3835E+02,-.5586E-01, .4911E-03,-.6266E-06,\n     8 .3522E+05,-.4264E+02,-.1567E+00, .6481E-03, .6558E-05,\n     8 .3537E+05,-.3794E+02,-.1826E+00, .4845E-03, .5126E-05,\n     8 .3304E+05,-.2947E+02,-.1975E+00, .6451E-03, .4877E-05,\n     8 .2958E+05,-.1716E+02,-.1930E+00, .3573E-03, .2223E-05,\n     8 .2679E+05,-.5498E+01,-.1766E+00, .2773E-03, .1864E-05,\n     8 .2521E+05, .1577E+01,-.1613E+00, .1568E-03, .3465E-05,\n     8 .2448E+05, .4568E+01,-.1126E+00,-.1242E-03, .2870E-06,\n     8 .2433E+05,-.1987E+01,-.1213E+00, .1448E-03, .3506E-05,\n     9 .4412E+05, .3472E+03,-.2846E+00,-.6166E-02, .8124E-05,\n     9 .4413E+05, .3471E+03,-.2844E+00,-.6166E-02, .8085E-05,\n     9 .4414E+05, .3471E+03,-.2841E+00,-.6166E-02, .8041E-05,\n     9 .4415E+05, .3469E+03,-.2836E+00,-.6166E-02, .7975E-05,\n     9 .4419E+05, .3466E+03,-.2833E+00,-.6166E-02, .7981E-05,\n     9 .4426E+05, .3460E+03,-.2828E+00,-.6177E-02, .8074E-05,\n     9 .4441E+05, .3448E+03,-.2810E+00,-.6204E-02, .8058E-05,\n     9 .4472E+05, .3423E+03,-.2720E+00,-.6254E-02, .6958E-05,\n     9 .4535E+05, .3371E+03,-.2607E+00,-.6429E-02, .7590E-05,\n     9 .4661E+05, .3246E+03,-.2078E+00,-.6677E-02, .7502E-05,\n     9 .5167E+05, .2660E+03,-.5957E-01,-.6248E-02, .8927E-05,\n     9 .5572E+05, .2209E+03,-.9796E-01,-.5173E-02, .2121E-04,\n     9 .6149E+05, .1612E+03,-.9377E-01,-.3597E-02, .1533E-04,\n     9 .6919E+05, .9042E+02,-.1655E+00,-.2015E-02, .1561E-04,\n     9 .7826E+05, .1096E+02,-.2393E+00, .1775E-02,-.5753E-05,\n     9 .8635E+05,-.3982E+02,-.4361E+00, .1924E-02, .1590E-04,\n     9 .9097E+05,-.6474E+02,-.3228E+00, .6485E-04,-.1016E-04,\n     9 .9124E+05,-.7755E+02,-.5427E+00,-.6166E-03, .3452E-04,\n     9 .8580E+05,-.7678E+02,-.3057E+00,-.1002E-02, .1055E-04,\n     9 .7662E+05,-.8212E+02,-.3641E+00,-.2757E-03, .3060E-04,\n     9 .6534E+05,-.7810E+02,-.1041E+00,-.4618E-03, .8734E-05,\n     9 .5522E+05,-.8662E+02, .5203E-01,-.1841E-03, .1274E-05,\n     9 .4858E+05,-.1007E+03, .9983E-01, .5084E-04,-.8371E-06,\n     9 .4488E+05,-.1080E+03, .6578E-02, .3111E-03, .1139E-04,\n     9 .4150E+05,-.1065E+03, .1077E+00,-.9938E-04, .4886E-06,\n     9 .3871E+05,-.1083E+03, .1047E+00, .5064E-03,-.4781E-06,\n     9 .3633E+05,-.1004E+03, .1903E-01, .5945E-03, .5293E-05,\n     9 .3363E+05,-.8354E+02,-.1288E-01, .4747E-03, .1656E-05 /\n      DATA ((( CL7CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 7, 7) /\n     a .5140E+06,-.1411E+04,-.1048E+01, .1654E-01, .1947E-04,\n     a .5140E+06,-.1411E+04,-.1047E+01, .1652E-01, .1922E-04,\n     a .5140E+06,-.1411E+04,-.1047E+01, .1654E-01, .1930E-04,\n     a .5140E+06,-.1410E+04,-.1050E+01, .1654E-01, .1964E-04,\n     a .5136E+06,-.1409E+04,-.1054E+01, .1654E-01, .2006E-04,\n     a .5132E+06,-.1407E+04,-.1056E+01, .1656E-01, .2031E-04,\n     a .5120E+06,-.1402E+04,-.1066E+01, .1660E-01, .2123E-04,\n     a .5100E+06,-.1392E+04,-.1083E+01, .1665E-01, .2266E-04,\n     a .5056E+06,-.1372E+04,-.1124E+01, .1678E-01, .2670E-04,\n     a .4968E+06,-.1331E+04,-.1149E+01, .1651E-01, .2540E-04,\n     a .4664E+06,-.1185E+04,-.1219E+01, .1504E-01, .1425E-04,\n     a .4456E+06,-.1085E+04,-.1202E+01, .1347E-01, .5864E-05,\n     a .4172E+06,-.9484E+03,-.1014E+01, .1018E-01,-.1949E-04,\n     a .3803E+06,-.7892E+03,-.8996E+00, .8948E-02,-.2216E-04,\n     a .3355E+06,-.6040E+03,-.1064E+01, .2726E-02, .5016E-04,\n     a .2868E+06,-.4540E+03,-.9408E+00, .9592E-03, .2099E-04,\n     a .2383E+06,-.3363E+03,-.9800E+00, .2306E-02, .5124E-04,\n     a .1916E+06,-.2437E+03,-.3055E+00, .3395E-02,-.4324E-04,\n     a .1512E+06,-.1799E+03,-.5340E+00, .3604E-02, .6332E-06,\n     a .1164E+06,-.1153E+03,-.2437E+00, .9536E-03,-.1570E-04,\n     a .8864E+05,-.8796E+02,-.1052E+00,-.3615E-03,-.8576E-05,\n     a .6732E+05,-.7572E+02,-.5404E-01,-.9768E-03, .1252E-04,\n     a .5116E+05,-.7624E+02, .1354E+00,-.2120E-02, .2058E-04,\n     a .4036E+05,-.1004E+03, .5168E+00,-.1731E-02,-.5504E-05,\n     a .3519E+05,-.1283E+03, .3094E+00, .2044E-03, .1278E-04,\n     a .3240E+05,-.1182E+03, .1915E+00,-.1668E-03, .1033E-05,\n     a .2966E+05,-.9956E+02, .9680E-01, .1245E-03, .1818E-05,\n     a .2662E+05,-.7916E+02, .2546E-01, .3327E-03, .1057E-05 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 340-540 CM^-1. GAS: H2O                         C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL8/ GWL8(6), CL8H2O(5,18,6), CL8CS(5,6,4),\n     1                         CL8CF(5,6,4)\n      DATA GWL8 / .09800, .27720, .22500, .20600, .12500, .05300 /\n      DATA ((( CL8H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 4) /\n     1 .3229E-03, .4497E-05, .2238E-07, .1178E-09, .6098E-12,\n     1 .4900E-03, .6826E-05, .3397E-07, .1787E-09, .9256E-12,\n     1 .7434E-03, .1036E-04, .5152E-07, .2711E-09, .1406E-11,\n     1 .1127E-02, .1571E-04, .7807E-07, .4108E-09, .2145E-11,\n     1 .1708E-02, .2381E-04, .1181E-06, .6211E-09, .3287E-11,\n     1 .2588E-02, .3608E-04, .1787E-06, .9398E-09, .5027E-11,\n     1 .3918E-02, .5465E-04, .2702E-06, .1421E-08, .7680E-11,\n     1 .5931E-02, .8277E-04, .4081E-06, .2146E-08, .1183E-10,\n     1 .8965E-02, .1252E-03, .6172E-06, .3235E-08, .1795E-10,\n     1 .1354E-01, .1893E-03, .9381E-06, .4878E-08, .2651E-10,\n     1 .2044E-01, .2859E-03, .1427E-05, .7366E-08, .3840E-10,\n     1 .3081E-01, .4309E-03, .2152E-05, .1118E-07, .5852E-10,\n     1 .4640E-01, .6479E-03, .3221E-05, .1699E-07, .9206E-10,\n     1 .6971E-01, .9730E-03, .4778E-05, .2551E-07, .1489E-09,\n     1 .1044E+00, .1458E-02, .7169E-05, .3796E-07, .2206E-09,\n     1 .1558E+00, .2172E-02, .1060E-04, .5747E-07, .3551E-09,\n     1 .2314E+00, .3216E-02, .1582E-04, .8670E-07, .5066E-09,\n     1 .3426E+00, .4692E-02, .2161E-04, .1347E-06, .1031E-08,\n     2 .2104E-02, .3167E-04, .1722E-06, .2633E-09,-.1578E-11,\n     2 .3167E-02, .4767E-04, .2592E-06, .3958E-09,-.2383E-11,\n     2 .4764E-02, .7173E-04, .3905E-06, .5944E-09,-.3642E-11,\n     2 .7163E-02, .1079E-03, .5888E-06, .8916E-09,-.5679E-11,\n     2 .1077E-01, .1623E-03, .8888E-06, .1334E-08,-.9037E-11,\n     2 .1618E-01, .2442E-03, .1342E-05, .2002E-08,-.1440E-10,\n     2 .2430E-01, .3669E-03, .2023E-05, .3027E-08,-.2209E-10,\n     2 .3649E-01, .5507E-03, .3042E-05, .4617E-08,-.3314E-10,\n     2 .5474E-01, .8258E-03, .4574E-05, .7060E-08,-.4968E-10,\n     2 .8204E-01, .1238E-02, .6861E-05, .1084E-07,-.7308E-10,\n     2 .1228E+00, .1851E-02, .1022E-04, .1654E-07,-.9934E-10,\n     2 .1835E+00, .2766E-02, .1527E-04, .2466E-07,-.1446E-09,\n     2 .2736E+00, .4125E-02, .2279E-04, .3703E-07,-.2095E-09,\n     2 .4068E+00, .6129E-02, .3408E-04, .5640E-07,-.3322E-09,\n     2 .6032E+00, .9050E-02, .5009E-04, .8847E-07,-.4121E-09,\n     2 .8918E+00, .1329E-01, .7219E-04, .1369E-06,-.3589E-09,\n     2 .1312E+01, .1948E-01, .1064E-03, .1939E-06,-.7568E-09,\n     2 .1923E+01, .2839E-01, .1537E-03, .2804E-06,-.1043E-08,\n     3 .7446E-02, .1111E-03, .6046E-06, .8289E-09,-.4900E-11,\n     3 .1119E-01, .1671E-03, .9134E-06, .1258E-08,-.7887E-11,\n     3 .1682E-01, .2510E-03, .1373E-05, .1945E-08,-.1124E-10,\n     3 .2526E-01, .3770E-03, .2061E-05, .2983E-08,-.1581E-10,\n     3 .3794E-01, .5659E-03, .3090E-05, .4602E-08,-.2153E-10,\n     3 .5695E-01, .8488E-03, .4629E-05, .7068E-08,-.2907E-10,\n     3 .8540E-01, .1272E-02, .6943E-05, .1085E-07,-.4262E-10,\n     3 .1279E+00, .1903E-02, .1036E-04, .1674E-07,-.5470E-10,\n     3 .1915E+00, .2846E-02, .1543E-04, .2488E-07,-.7320E-10,\n     3 .2860E+00, .4248E-02, .2294E-04, .3714E-07,-.9169E-10,\n     3 .4261E+00, .6327E-02, .3436E-04, .5581E-07,-.1570E-09,\n     3 .6330E+00, .9376E-02, .5132E-04, .8718E-07,-.2525E-09,\n     3 .9376E+00, .1384E-01, .7570E-04, .1350E-06,-.3252E-09,\n     3 .1385E+01, .2027E-01, .1078E-03, .2157E-06, .1516E-09,\n     3 .2038E+01, .2969E-01, .1553E-03, .2960E-06, .2982E-09,\n     3 .2984E+01, .4326E-01, .2229E-03, .3967E-06, .3153E-09,\n     3 .4333E+01, .6276E-01, .3264E-03, .5118E-06,-.9117E-09,\n     3 .6276E+01, .9074E-01, .4698E-03, .6813E-06,-.1851E-08,\n     4 .3967E-01, .6059E-03, .3125E-05, .2384E-08,-.3299E-10,\n     4 .5947E-01, .9066E-03, .4649E-05, .3729E-08,-.4392E-10,\n     4 .8910E-01, .1356E-02, .6930E-05, .5633E-08,-.6395E-10,\n     4 .1335E+00, .2026E-02, .1038E-04, .8408E-08,-.1025E-09,\n     4 .1998E+00, .3029E-02, .1547E-04, .1266E-07,-.1495E-09,\n     4 .2991E+00, .4525E-02, .2298E-04, .1888E-07,-.2122E-09,\n     4 .4470E+00, .6756E-02, .3422E-04, .2749E-07,-.3131E-09,\n     4 .6667E+00, .1007E-01, .5103E-04, .4005E-07,-.4745E-09,\n     4 .9922E+00, .1498E-01, .7611E-04, .6001E-07,-.7425E-09,\n     4 .1472E+01, .2220E-01, .1135E-03, .8729E-07,-.1228E-08,\n     4 .2175E+01, .3269E-01, .1657E-03, .1423E-06,-.1472E-08,\n     4 .3201E+01, .4791E-01, .2404E-03, .2029E-06,-.1948E-08,\n     4 .4684E+01, .6978E-01, .3502E-03, .2804E-06,-.3323E-08,\n     4 .6810E+01, .1010E+00, .5049E-03, .3511E-06,-.5520E-08,\n     4 .9836E+01, .1453E+00, .7112E-03, .4555E-06,-.6331E-08,\n     4 .1413E+02, .2078E+00, .9918E-03, .6837E-06,-.4149E-08,\n     4 .2014E+02, .2960E+00, .1430E-02, .7609E-06,-.1040E-07,\n     4 .2842E+02, .4146E+00, .2034E-02, .1088E-05,-.2282E-07 /\n      DATA ((( CL8H2O(K,J,I), K = 1, 5), J = 1, 18), I = 5, 6) /\n     5 .3133E+00, .4523E-02, .1887E-04, .6784E-09,-.1336E-09,\n     5 .4679E+00, .6729E-02, .2771E-04, .4290E-09,-.1794E-09,\n     5 .6987E+00, .1002E-01, .4070E-04,-.3248E-08,-.2409E-09,\n     5 .1043E+01, .1493E-01, .5981E-04,-.8776E-08,-.3005E-09,\n     5 .1555E+01, .2224E-01, .8850E-04,-.2206E-07,-.4725E-09,\n     5 .2316E+01, .3304E-01, .1310E-03,-.2990E-07,-.6487E-09,\n     5 .3444E+01, .4901E-01, .1929E-03,-.3852E-07,-.7544E-09,\n     5 .5109E+01, .7250E-01, .2833E-03,-.6448E-07,-.1062E-08,\n     5 .7551E+01, .1068E+00, .4147E-03,-.9567E-07,-.1432E-08,\n     5 .1111E+02, .1566E+00, .6031E-03,-.1274E-06,-.2022E-08,\n     5 .1629E+02, .2283E+00, .8610E-03,-.2567E-06,-.2455E-08,\n     5 .2374E+02, .3310E+00, .1219E-02,-.5411E-06,-.3350E-08,\n     5 .3439E+02, .4767E+00, .1697E-02,-.8358E-06, .3353E-09,\n     5 .4947E+02, .6840E+00, .2392E-02,-.1672E-05,-.1353E-08,\n     5 .7058E+02, .9732E+00, .3392E-02,-.3087E-05,-.1572E-07,\n     5 .9985E+02, .1362E+01, .4450E-02,-.5045E-05,-.8712E-08,\n     5 .1385E+03, .1876E+01, .5845E-02,-.7922E-05,-.8375E-08,\n     5 .1862E+03, .2526E+01, .7113E-02,-.1443E-04, .1020E-06,\n     6 .4125E+01, .6340E-01, .2952E-03, .1065E-06,-.1185E-08,\n     6 .6031E+01, .9171E-01, .4119E-03, .7714E-07,-.8214E-09,\n     6 .8805E+01, .1326E+00, .5964E-03, .6948E-07,-.3100E-08,\n     6 .1286E+02, .1918E+00, .8694E-03, .6308E-07,-.8493E-08,\n     6 .1881E+02, .2766E+00, .1203E-02, .1540E-06,-.7264E-08,\n     6 .2745E+02, .3997E+00, .1704E-02, .9639E-07,-.9601E-08,\n     6 .3991E+02, .5767E+00, .2445E-02,-.1334E-06,-.2008E-07,\n     6 .5792E+02, .8290E+00, .3401E-02,-.6853E-06,-.2564E-07,\n     6 .8363E+02, .1189E+01, .4774E-02,-.1636E-05,-.3909E-07,\n     6 .1201E+03, .1697E+01, .6539E-02,-.3083E-05,-.2372E-07,\n     6 .1711E+03, .2415E+01, .9242E-02,-.6990E-05,-.6165E-07,\n     6 .2423E+03, .3393E+01, .1259E-01,-.1152E-04,-.7322E-07,\n     6 .3363E+03, .4678E+01, .1776E-01,-.1541E-04,-.2280E-06,\n     6 .4560E+03, .6299E+01, .2211E-01,-.1754E-04, .2881E-07,\n     6 .5923E+03, .8286E+01, .3171E-01,-.3971E-04,-.4238E-06,\n     6 .7342E+03, .1019E+02, .3986E-01,-.2432E-04,-.4088E-06,\n     6 .8676E+03, .1207E+02, .4605E-01,-.3246E-04,-.1283E-06,\n     6 .9753E+03, .1367E+02, .5930E-01,-.3330E-04,-.1258E-05 /\n      DATA ((( CL8CS(K,J,I), K = 1, 5), J = 1, 6), I = 1, 4) /\n     1 .1958E+02,-.3684E+00, .3532E-02,-.3134E-04, .2012E-06,\n     1 .2926E+02,-.5510E+00, .5292E-02,-.4673E-04, .2975E-06,\n     1 .4370E+02,-.8226E+00, .7933E-02,-.6982E-04, .4380E-06,\n     1 .6527E+02,-.1228E+01, .1187E-01,-.1047E-03, .6543E-06,\n     1 .9733E+02,-.1834E+01, .1790E-01,-.1567E-03, .9477E-06,\n     1 .1451E+03,-.2736E+01, .2682E-01,-.2359E-03, .1418E-05,\n     2 .3586E+02,-.6042E+00, .5778E-02,-.4229E-04, .1921E-06,\n     2 .5342E+02,-.9044E+00, .8585E-02,-.6263E-04, .2978E-06,\n     2 .7956E+02,-.1359E+01, .1262E-01,-.9174E-04, .4884E-06,\n     2 .1182E+03,-.2029E+01, .1914E-01,-.1372E-03, .6773E-06,\n     2 .1757E+03,-.3030E+01, .2900E-01,-.2041E-03, .9247E-06,\n     2 .2602E+03,-.4514E+01, .4452E-01,-.3055E-03, .1167E-05,\n     3 .5001E+02,-.8113E+00, .6838E-02,-.4663E-04, .2328E-06,\n     3 .7453E+02,-.1204E+01, .1025E-01,-.7046E-04, .3336E-06,\n     3 .1113E+03,-.1778E+01, .1539E-01,-.1082E-03, .4612E-06,\n     3 .1660E+03,-.2640E+01, .2245E-01,-.1629E-03, .7655E-06,\n     3 .2476E+03,-.3897E+01, .3187E-01,-.2468E-03, .1418E-05,\n     3 .3716E+03,-.5824E+01, .4584E-01,-.3619E-03, .2344E-05,\n     4 .6183E+02,-.9639E+00, .7972E-02,-.5661E-04, .2868E-06,\n     4 .9171E+02,-.1422E+01, .1168E-01,-.8534E-04, .4554E-06,\n     4 .1360E+03,-.2116E+01, .1763E-01,-.1259E-03, .6335E-06,\n     4 .2019E+03,-.3151E+01, .2653E-01,-.1855E-03, .9002E-06,\n     4 .2994E+03,-.4715E+01, .4125E-01,-.2715E-03, .1029E-05,\n     4 .4415E+03,-.7029E+01, .6260E-01,-.4001E-03, .1380E-05 /\n      DATA ((( CL8CF(K,J,I), K = 1, 5), J = 1, 6), I = 1, 4) /\n     1 .7421E-01,-.3174E-03,-.5260E-06,-.6845E-08, .2739E-09,\n     1 .1109E+00,-.4750E-03,-.7115E-06,-.9775E-08, .3891E-09,\n     1 .1654E+00,-.7022E-03,-.8033E-06,-.1512E-07, .5245E-09,\n     1 .2468E+00,-.1038E-02,-.1078E-05,-.2435E-07, .7631E-09,\n     1 .3669E+00,-.1544E-02,-.2402E-06,-.3858E-07, .8937E-09,\n     1 .5456E+00,-.2285E-02, .4113E-06,-.6651E-07, .1243E-08,\n     2 .1866E+00,-.7713E-03, .5633E-05,-.1263E-07,-.1169E-09,\n     2 .2774E+00,-.1212E-02, .7367E-05,-.7826E-08, .5910E-10,\n     2 .4119E+00,-.1990E-02, .7048E-05, .2037E-07, .8969E-09,\n     2 .6094E+00,-.2981E-02, .1407E-04, .2701E-07, .6895E-09,\n     2 .9005E+00,-.4492E-02, .2643E-04, .3653E-07,-.9039E-10,\n     2 .1322E+01,-.6669E-02, .5356E-04, .3722E-07,-.2687E-08,\n     3 .3532E+00,-.2106E-02, .5403E-05,-.5615E-08, .2486E-09,\n     3 .5256E+00,-.3043E-02, .9467E-05,-.2657E-07, .4013E-10,\n     3 .7843E+00,-.4225E-02, .1746E-04,-.9593E-07,-.8149E-09,\n     3 .1169E+01,-.6121E-02, .1969E-04,-.1723E-06,-.3055E-09,\n     3 .1741E+01,-.8663E-02, .1045E-04,-.2977E-06, .2924E-08,\n     3 .2618E+01,-.1294E-01,-.2893E-05,-.3646E-06, .6870E-08,\n     4 .5280E+00,-.3273E-02, .1221E-04,-.8300E-07, .5134E-09,\n     4 .7823E+00,-.4740E-02, .1606E-04,-.1407E-06, .1188E-08,\n     4 .1158E+01,-.7080E-02, .2810E-04,-.1972E-06, .1164E-08,\n     4 .1717E+01,-.1065E-01, .4674E-04,-.2611E-06, .1267E-08,\n     4 .2543E+01,-.1624E-01, .9264E-04,-.3372E-06,-.1986E-08,\n     4 .3728E+01,-.2473E-01, .1575E-03,-.4391E-06,-.4979E-08 /\nC\n      COMMON /BANDL8GH/ GWL8GH(3), CL8H2OGH(5,28,3)\n      DATA GWL8GH / .01500, .00062, .00018 /\n      DATA ((( CL8H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     1 .1238E+03, .3729E+01, .4546E-01, .1800E-03,-.5574E-06,\n     1 .1259E+03, .3788E+01, .4616E-01, .1826E-03,-.5685E-06,\n     1 .1281E+03, .3850E+01, .4689E-01, .1850E-03,-.5824E-06,\n     1 .1308E+03, .3919E+01, .4766E-01, .1871E-03,-.6020E-06,\n     1 .1344E+03, .4001E+01, .4850E-01, .1886E-03,-.6330E-06,\n     1 .1398E+03, .4109E+01, .4949E-01, .1891E-03,-.6805E-06,\n     1 .1489E+03, .4261E+01, .5046E-01, .1896E-03,-.7030E-06,\n     1 .1657E+03, .4519E+01, .5168E-01, .1851E-03,-.7526E-06,\n     1 .1971E+03, .4993E+01, .5469E-01, .1743E-03,-.1071E-05,\n     1 .2595E+03, .5883E+01, .5851E-01, .1511E-03,-.1484E-05,\n     1 .4676E+03, .8664E+01, .6072E-01, .1174E-03,-.6198E-06,\n     1 .6148E+03, .1073E+02, .6252E-01, .8393E-04, .6668E-08,\n     1 .8135E+03, .1345E+02, .6976E-01, .8291E-04, .3736E-06,\n     1 .1074E+04, .1702E+02, .8706E-01, .9267E-04,-.4359E-06,\n     1 .1424E+04, .2180E+02, .1051E+00, .6227E-04,-.9664E-06,\n     1 .1872E+04, .2771E+02, .1266E+00, .1050E-03,-.5847E-06,\n     1 .2434E+04, .3583E+02, .1612E+00,-.4468E-04,-.2449E-05,\n     1 .3117E+04, .4481E+02, .1813E+00,-.9744E-04,-.1081E-05,\n     1 .3859E+04, .5436E+02, .2064E+00,-.7528E-04, .1488E-06,\n     1 .4619E+04, .6568E+02, .2608E+00,-.2598E-03,-.2915E-05,\n     1 .5327E+04, .7536E+02, .3107E+00,-.1966E-03,-.4716E-05,\n     1 .5951E+04, .8367E+02, .3174E+00,-.2324E-03,-.1596E-05,\n     1 .6375E+04, .9020E+02, .3439E+00,-.3226E-03,-.2788E-05,\n     1 .6576E+04, .9363E+02, .3532E+00,-.2514E-03,-.1234E-06,\n     1 .6512E+04, .9342E+02, .3676E+00,-.4642E-04, .1030E-05,\n     1 .6245E+04, .9136E+02, .4084E+00, .2778E-05,-.4842E-05,\n     1 .5874E+04, .8886E+02, .4384E+00,-.5382E-04,-.9002E-05,\n     1 .5436E+04, .8482E+02, .4088E+00,-.7221E-04,-.3601E-05,\n     2 .4196E+05, .7703E+03, .4408E+01, .2918E-02,-.5111E-04,\n     2 .4255E+05, .7812E+03, .4468E+01, .2964E-02,-.5162E-04,\n     2 .4316E+05, .7920E+03, .4527E+01, .3016E-02,-.5174E-04,\n     2 .4377E+05, .8029E+03, .4582E+01, .3080E-02,-.5133E-04,\n     2 .4441E+05, .8137E+03, .4630E+01, .3168E-02,-.4987E-04,\n     2 .4510E+05, .8246E+03, .4665E+01, .3300E-02,-.4627E-04,\n     2 .4589E+05, .8362E+03, .4678E+01, .3467E-02,-.3965E-04,\n     2 .4689E+05, .8471E+03, .4644E+01, .3832E-02,-.2528E-04,\n     2 .4834E+05, .8587E+03, .4478E+01, .4506E-02, .1044E-04,\n     2 .5064E+05, .8720E+03, .4122E+01, .5793E-02, .7756E-04,\n     2 .5617E+05, .9023E+03, .4322E+01, .8086E-02, .4080E-04,\n     2 .5969E+05, .9258E+03, .4981E+01, .1003E-01,-.6854E-04,\n     2 .6446E+05, .9628E+03, .5034E+01, .1001E-01,-.7544E-04,\n     2 .7071E+05, .1019E+04, .4418E+01, .7884E-02, .1396E-04,\n     2 .7731E+05, .1091E+04, .4082E+01, .4058E-02, .5513E-04,\n     2 .8343E+05, .1160E+04, .3898E+01,-.4203E-03, .5483E-04,\n     2 .8752E+05, .1227E+04, .3976E+01,-.5464E-02, .4088E-04,\n     2 .8794E+05, .1239E+04, .4270E+01,-.8613E-02,-.5020E-04,\n     2 .8597E+05, .1240E+04, .4687E+01,-.1000E-01,-.1007E-03,\n     2 .8158E+05, .1165E+04, .4020E+01,-.6421E-03, .6572E-04,\n     2 .7379E+05, .1068E+04, .3222E+01,-.2272E-03, .1897E-03,\n     2 .6323E+05, .9605E+03, .4888E+01, .4098E-02,-.5693E-04,\n     2 .5446E+05, .8831E+03, .5626E+01, .3937E-02,-.1589E-03,\n     2 .4699E+05, .8218E+03, .5864E+01, .1437E-02,-.2067E-03,\n     2 .4138E+05, .7694E+03, .5271E+01,-.4315E-02,-.1818E-03,\n     2 .3608E+05, .6972E+03, .4007E+01,-.6729E-02,-.3734E-04,\n     2 .3122E+05, .5862E+03, .2734E+01,-.5396E-02, .4385E-04,\n     2 .2676E+05, .4905E+03, .2289E+01,-.5190E-02,-.1373E-04,\n     3 .5876E+06, .8786E+04, .3326E+02,-.5493E-01,-.2312E-03,\n     3 .5953E+06, .8901E+04, .3370E+02,-.5574E-01,-.2357E-03,\n     3 .6029E+06, .9017E+04, .3415E+02,-.5639E-01,-.2395E-03,\n     3 .6106E+06, .9132E+04, .3461E+02,-.5719E-01,-.2462E-03,\n     3 .6182E+06, .9248E+04, .3508E+02,-.5798E-01,-.2547E-03,\n     3 .6255E+06, .9355E+04, .3559E+02,-.5890E-01,-.2690E-03,\n     3 .6325E+06, .9471E+04, .3619E+02,-.6002E-01,-.2983E-03,\n     3 .6386E+06, .9570E+04, .3695E+02,-.6154E-01,-.3523E-03,\n     3 .6430E+06, .9668E+04, .3804E+02,-.6379E-01,-.4585E-03,\n     3 .6441E+06, .9741E+04, .3977E+02,-.6758E-01,-.6683E-03,\n     3 .6324E+06, .9675E+04, .3994E+02,-.7624E-01,-.6359E-03,\n     3 .6275E+06, .9648E+04, .3841E+02,-.8242E-01,-.3230E-03,\n     3 .6164E+06, .9548E+04, .3859E+02,-.8507E-01,-.3512E-03,\n     3 .5966E+06, .9336E+04, .4030E+02,-.8175E-01,-.6161E-03,\n     3 .5674E+06, .8972E+04, .4104E+02,-.6873E-01,-.7410E-03,\n     3 .5276E+06, .8485E+04, .4094E+02,-.5921E-01,-.7990E-03,\n     3 .4773E+06, .7741E+04, .3869E+02,-.2918E-01,-.6078E-03,\n     3 .4207E+06, .7007E+04, .3671E+02,-.1289E-01,-.4289E-03,\n     3 .3608E+06, .6161E+04, .3337E+02,-.8575E-02,-.3672E-03,\n     3 .3035E+06, .5357E+04, .3087E+02,-.2419E-01,-.6899E-03,\n     3 .2577E+06, .4701E+04, .2882E+02,-.3025E-01,-.9580E-03,\n     3 .2206E+06, .4102E+04, .2169E+02,-.4117E-01,-.3724E-03,\n     3 .1843E+06, .3408E+04, .1533E+02,-.3191E-01, .1304E-03,\n     3 .1503E+06, .2756E+04, .1227E+02,-.2889E-01,-.2608E-04,\n     3 .1215E+06, .2193E+04, .9605E+01,-.1932E-01,-.6223E-04,\n     3 .9916E+05, .1780E+04, .7285E+01,-.1978E-01,-.7329E-04,\n     3 .7702E+05, .1408E+04, .6071E+01,-.1547E-01,-.8183E-04,\n     3 .5669E+05, .1049E+04, .4697E+01,-.1063E-01,-.6367E-04 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 0-340 CM^-1. GAS: H2O                           C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDL9/ GWL9(4), CL9H2O(5,18,4), CL9CS(5,6,4),\n     1                         CL9CF(5,6,4)\n      DATA GWL9 / .31030, .21554, .19500, .14000 /\n      DATA ((( CL9H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 4) /\n     1 .4226E-01, .6101E-04,-.5452E-06, .2917E-08,-.8187E-11,\n     1 .6312E-01, .9117E-04,-.8123E-06, .4352E-08,-.1261E-10,\n     1 .9429E-01, .1361E-03,-.1215E-05, .6531E-08,-.1799E-10,\n     1 .1409E+00, .2025E-03,-.1819E-05, .9890E-08,-.2549E-10,\n     1 .2103E+00, .3016E-03,-.2717E-05, .1489E-07,-.3764E-10,\n     1 .3140E+00, .4486E-03,-.4078E-05, .2248E-07,-.5288E-10,\n     1 .4685E+00, .6674E-03,-.6145E-05, .3394E-07,-.7046E-10,\n     1 .6987E+00, .9916E-03,-.9316E-05, .5116E-07,-.8603E-10,\n     1 .1041E+01, .1477E-02,-.1405E-04, .7613E-07,-.1176E-09,\n     1 .1551E+01, .2199E-02,-.2109E-04, .1127E-06,-.1699E-09,\n     1 .2305E+01, .3266E-02,-.3159E-04, .1670E-06,-.2355E-09,\n     1 .3424E+01, .4807E-02,-.4743E-04, .2530E-06,-.3121E-09,\n     1 .5076E+01, .7066E-02,-.7225E-04, .3774E-06,-.1824E-09,\n     1 .7508E+01, .1036E-01,-.1111E-03, .5618E-06, .2550E-09,\n     1 .1108E+02, .1516E-01,-.1650E-03, .8310E-06, .2776E-09,\n     1 .1631E+02, .2183E-01,-.2425E-03, .1277E-05,-.4663E-09,\n     1 .2397E+02, .3125E-01,-.3851E-03, .1953E-05, .2786E-08,\n     1 .3504E+02, .4459E-01,-.6395E-03, .2839E-05, .1592E-07,\n     2 .2546E+00, .1815E-03,-.2208E-05, .2111E-08,-.1561E-10,\n     2 .3800E+00, .2695E-03,-.3286E-05, .3314E-08,-.2203E-10,\n     2 .5673E+00, .3995E-03,-.4889E-05, .5241E-08,-.3276E-10,\n     2 .8468E+00, .5921E-03,-.7336E-05, .8258E-08,-.4111E-10,\n     2 .1263E+01, .8762E-03,-.1088E-04, .1268E-07,-.7659E-10,\n     2 .1883E+01, .1300E-02,-.1613E-04, .1870E-07,-.1449E-09,\n     2 .2807E+01, .1937E-02,-.2426E-04, .2562E-07,-.1964E-09,\n     2 .4180E+01, .2891E-02,-.3614E-04, .3357E-07,-.3073E-09,\n     2 .6216E+01, .4325E-02,-.5375E-04, .4035E-07,-.4175E-09,\n     2 .9238E+01, .6420E-02,-.7875E-04, .4805E-07,-.7080E-09,\n     2 .1369E+02, .9538E-02,-.1166E-03, .4148E-07,-.9143E-09,\n     2 .2023E+02, .1414E-01,-.1726E-03, .3111E-09,-.8711E-09,\n     2 .2978E+02, .2082E-01,-.2275E-03,-.1247E-06,-.4911E-08,\n     2 .4370E+02, .2936E-01,-.2826E-03,-.1437E-06,-.1470E-07,\n     2 .6396E+02, .3982E-01,-.4087E-03, .1061E-06,-.2130E-07,\n     2 .9322E+02, .5274E-01,-.6560E-03, .3482E-06,-.1457E-07,\n     2 .1352E+03, .6623E-01,-.1059E-02, .6230E-06,-.2214E-08,\n     2 .1954E+03, .9042E-01,-.1357E-02,-.3471E-06,-.3964E-07,\n     3 .9075E+00, .2349E-03,-.4012E-05, .1157E-07, .7962E-10,\n     3 .1352E+01, .3354E-03,-.6038E-05, .1817E-07, .1270E-09,\n     3 .2015E+01, .4793E-03,-.9052E-05, .2765E-07, .1831E-09,\n     3 .3002E+01, .6835E-03,-.1364E-04, .4185E-07, .2676E-09,\n     3 .4472E+01, .9851E-03,-.2063E-04, .6109E-07, .4010E-09,\n     3 .6654E+01, .1432E-02,-.3124E-04, .8690E-07, .6321E-09,\n     3 .9898E+01, .2095E-02,-.4652E-04, .1206E-06, .9307E-09,\n     3 .1469E+02, .2980E-02,-.6872E-04, .1737E-06, .1423E-08,\n     3 .2176E+02, .4122E-02,-.9926E-04, .2522E-06, .1794E-08,\n     3 .3212E+02, .5504E-02,-.1445E-03, .3404E-06, .3016E-08,\n     3 .4721E+02, .6684E-02,-.1736E-03, .4461E-06,-.7950E-09,\n     3 .6916E+02, .4844E-02,-.1773E-03, .1003E-05,-.1243E-07,\n     3 .1010E+03,-.3009E-02,-.2229E-03, .2370E-05,-.2420E-07,\n     3 .1471E+03,-.2144E-01,-.3871E-03, .4663E-05,-.2618E-07,\n     3 .2134E+03,-.5700E-01,-.8083E-03, .7471E-05,-.2514E-08,\n     3 .3089E+03,-.1087E+00,-.1370E-02, .9538E-05, .4948E-08,\n     3 .4442E+03,-.1908E+00,-.1056E-02, .1380E-04,-.1654E-06,\n     3 .6328E+03,-.3826E+00,-.1620E-02, .3299E-04,-.2052E-06,\n     4 .3629E+01,-.7787E-03,-.6976E-05, .1193E-06,-.5476E-09,\n     4 .5397E+01,-.1244E-02,-.1101E-04, .1756E-06,-.8064E-09,\n     4 .8026E+01,-.1968E-02,-.1715E-04, .2604E-06,-.1219E-08,\n     4 .1193E+02,-.2999E-02,-.2528E-04, .3702E-06,-.2060E-08,\n     4 .1771E+02,-.4487E-02,-.4061E-04, .5268E-06,-.2565E-08,\n     4 .2627E+02,-.6705E-02,-.6518E-04, .7423E-06,-.2699E-08,\n     4 .3884E+02,-.1013E-01,-.8749E-04, .1037E-05,-.5258E-08,\n     4 .5724E+02,-.1537E-01,-.1224E-03, .1402E-05,-.7379E-08,\n     4 .8397E+02,-.2451E-01,-.1376E-03, .1964E-05,-.1405E-07,\n     4 .1227E+03,-.4169E-01,-.1280E-03, .3161E-05,-.2905E-07,\n     4 .1785E+03,-.7371E-01,-.1371E-03, .5716E-05,-.5114E-07,\n     4 .2589E+03,-.1257E+00,-.4193E-03, .9398E-05,-.4654E-07,\n     4 .3743E+03,-.2045E+00,-.1390E-02, .1334E-04, .5155E-07,\n     4 .5382E+03,-.2915E+00,-.2555E-02, .1103E-04, .1227E-06,\n     4 .7683E+03,-.4207E+00,-.1761E-02, .1120E-04,-.1680E-06,\n     4 .1087E+04,-.7028E+00,-.2430E-02, .3252E-04,-.2404E-06,\n     4 .1518E+04,-.1012E+01,-.7249E-02, .3761E-04, .1481E-06,\n     4 .2063E+04,-.1267E+01,-.7527E-02, .1644E-04,-.2221E-06 /\n      DATA ((( CL9CS(K,J,I), K = 1, 5), J = 1, 6), I = 1, 4) /\n     1 .1166E+03,-.1766E+01, .1400E-01,-.9902E-04, .5646E-06,\n     1 .1730E+03,-.2609E+01, .2048E-01,-.1482E-03, .8792E-06,\n     1 .2571E+03,-.3825E+01, .2895E-01,-.2303E-03, .1611E-05,\n     1 .3826E+03,-.5674E+01, .4231E-01,-.3452E-03, .2522E-05,\n     1 .5680E+03,-.8350E+01, .6093E-01,-.5280E-03, .4119E-05,\n     1 .8396E+03,-.1230E+02, .8937E-01,-.7953E-03, .6324E-05,\n     2 .2341E+03,-.4082E+01, .3964E-01,-.3025E-03, .1407E-05,\n     2 .3497E+03,-.6110E+01, .5917E-01,-.4487E-03, .2090E-05,\n     2 .5217E+03,-.9141E+01, .8852E-01,-.6579E-03, .2952E-05,\n     2 .7755E+03,-.1357E+02, .1309E+00,-.9772E-03, .4503E-05,\n     2 .1152E+04,-.2029E+02, .1982E+00,-.1404E-02, .5673E-05,\n     2 .1716E+04,-.3034E+02, .3007E+00,-.2035E-02, .6973E-05,\n     3 .2553E+03,-.4445E+01, .4359E-01,-.4011E-03, .2437E-05,\n     3 .3800E+03,-.6617E+01, .6517E-01,-.6000E-03, .3624E-05,\n     3 .5659E+03,-.9905E+01, .9936E-01,-.8851E-03, .4962E-05,\n     3 .8467E+03,-.1487E+02, .1509E+00,-.1302E-02, .6830E-05,\n     3 .1269E+04,-.2221E+02, .2221E+00,-.1981E-02, .1118E-04,\n     3 .1898E+04,-.3310E+02, .3270E+00,-.2980E-02, .1758E-04,\n     4 .2682E+03,-.4700E+01, .4697E-01,-.4274E-03, .2521E-05,\n     4 .4004E+03,-.7039E+01, .7080E-01,-.6350E-03, .3636E-05,\n     4 .5980E+03,-.1053E+02, .1062E+00,-.9540E-03, .5472E-05,\n     4 .8897E+03,-.1567E+02, .1591E+00,-.1442E-02, .8254E-05,\n     4 .1319E+04,-.2341E+02, .2417E+00,-.2111E-02, .1116E-04,\n     4 .1955E+04,-.3458E+02, .3462E+00,-.3158E-02, .1903E-04 /\n      DATA ((( CL9CF(K,J,I), K = 1, 5), J = 1, 6), I = 1, 4) /\n     1 .3948E+01,-.1931E-01, .3552E-04,-.5027E-06, .9660E-08,\n     1 .5835E+01,-.2758E-01, .3790E-04,-.8682E-06, .1676E-07,\n     1 .8634E+01,-.3825E-01,-.2193E-04,-.1821E-05, .4119E-07,\n     1 .1281E+02,-.5589E-01,-.8400E-04,-.2935E-05, .6985E-07,\n     1 .1896E+02,-.7819E-01,-.2426E-03,-.5361E-05, .1255E-06,\n     1 .2779E+02,-.1116E+00,-.3913E-03,-.8869E-05, .1948E-06,\n     2 .1200E+02,-.9434E-01, .6079E-03,-.1841E-05,-.1235E-07,\n     2 .1796E+02,-.1419E+00, .8872E-03,-.2595E-05,-.1581E-07,\n     2 .2682E+02,-.2126E+00, .1297E-02,-.3450E-05,-.2306E-07,\n     2 .3985E+02,-.3150E+00, .1836E-02,-.5104E-05,-.1777E-07,\n     2 .5911E+02,-.4745E+00, .2918E-02,-.5347E-05,-.7086E-07,\n     2 .8774E+02,-.7101E+00, .4880E-02,-.5460E-05,-.2140E-06,\n     3 .1354E+02,-.1043E+00, .5425E-03,-.4045E-05, .2942E-07,\n     3 .2015E+02,-.1553E+00, .8368E-03,-.6041E-05, .4049E-07,\n     3 .2999E+02,-.2340E+00, .1429E-02,-.8531E-05, .2462E-07,\n     3 .4484E+02,-.3526E+00, .2331E-02,-.1189E-04,-.4458E-08,\n     3 .6743E+02,-.5260E+00, .3208E-02,-.1884E-04, .5220E-07,\n     3 .1012E+03,-.7764E+00, .4308E-02,-.3073E-04, .1633E-06,\n     4 .1442E+02,-.1125E+00, .6521E-03,-.3817E-05, .1981E-07,\n     4 .2152E+02,-.1690E+00, .1026E-02,-.5605E-05, .2030E-07,\n     4 .3214E+02,-.2538E+00, .1542E-02,-.8381E-05, .3521E-07,\n     4 .4779E+02,-.3767E+00, .2389E-02,-.1346E-04, .4555E-07,\n     4 .7062E+02,-.5673E+00, .4024E-02,-.1808E-04,-.2171E-07,\n     4 .1047E+03,-.8481E+00, .5019E-02,-.2529E-04, .1479E-06 /\nC\n      COMMON /BANDL9GH/ GWL9GH(6), CL9H2OGH(5,28,6)\n      DATA GWL9GH / .08000, .05000, .00800, .00094, .00019, .00003 /\n      DATA ((( CL9H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     5 .1189E-01, .8033E-05,-.6385E-07, .2642E-09, .3063E-11,\n     5 .2393E-01, .1606E-04,-.1259E-06, .3615E-09, .5371E-11,\n     5 .4807E-01, .3218E-04,-.1752E-06, .2064E-09,-.2419E-11,\n     5 .9646E-01, .6140E-04,-.1156E-06, .5331E-10,-.4231E-10,\n     5 .1936E+00, .1096E-03,-.1202E-06, .9577E-09,-.8929E-10,\n     5 .3887E+00, .1807E-03,-.2764E-06, .5614E-08,-.1281E-09,\n     5 .7812E+00, .2805E-03,-.9748E-06, .1664E-07,-.1473E-09,\n     5 .1571E+01, .4071E-03,-.2464E-05, .3803E-07,-.2193E-09,\n     5 .3160E+01, .4679E-03,-.5703E-05, .8494E-07,-.4061E-09,\n     5 .6356E+01, .3292E-03,-.1362E-04, .1664E-06,-.7436E-09,\n     5 .1826E+02,-.9463E-03,-.4659E-04, .4466E-06,-.2670E-08,\n     5 .2705E+02,-.1970E-02,-.7248E-04, .6245E-06,-.3709E-08,\n     5 .4005E+02,-.3823E-02,-.1166E-03, .8934E-06,-.4207E-08,\n     5 .5918E+02,-.6456E-02,-.1708E-03, .1134E-05,-.6114E-08,\n     5 .8717E+02,-.1031E-01,-.2243E-03, .1313E-05,-.1105E-07,\n     5 .1280E+03,-.1973E-01,-.2872E-03, .1942E-05,-.1862E-07,\n     5 .1871E+03,-.3641E-01,-.3462E-03, .2902E-05,-.3248E-07,\n     5 .2722E+03,-.7492E-01,-.4067E-03, .5809E-05,-.5395E-07,\n     5 .3942E+03,-.1439E+00,-.5441E-03, .1108E-04,-.9498E-07,\n     5 .5692E+03,-.2606E+00,-.1439E-02, .1907E-04,-.4731E-07,\n     5 .8190E+03,-.4329E+00,-.3509E-02, .2691E-04, .1211E-06,\n     5 .1172E+04,-.6517E+00,-.4980E-02, .2611E-04, .1083E-06,\n     5 .1665E+04,-.1030E+01,-.3794E-02, .4164E-04,-.4559E-06,\n     5 .2345E+04,-.1756E+01,-.7346E-02, .9487E-04,-.4119E-06,\n     5 .3246E+04,-.2487E+01,-.1621E-01, .1023E-03, .1653E-06,\n     5 .4341E+04,-.3216E+01,-.1522E-01, .7815E-04,-.5541E-06,\n     5 .5545E+04,-.4277E+01,-.7660E-02, .1870E-03,-.2722E-05,\n     5 .6763E+04,-.4141E+01,-.4154E-01, .8076E-04, .2662E-05,\n     6 .4305E+00, .3161E-02, .1746E-04, .9764E-07, .3996E-09,\n     6 .7599E+00, .4495E-02, .2078E-04, .1243E-06, .4571E-09,\n     6 .1363E+01, .6564E-02, .2335E-04, .1351E-06, .6532E-09,\n     6 .2479E+01, .9605E-02, .2449E-04, .1530E-06, .1117E-08,\n     6 .4566E+01, .1414E-01, .2753E-04, .1936E-06, .9333E-09,\n     6 .8525E+01, .2076E-01, .2243E-04, .2845E-06, .1622E-08,\n     6 .1607E+02, .3052E-01, .1895E-04, .3518E-06,-.1335E-08,\n     6 .3061E+02, .4421E-01,-.4170E-05, .6186E-06,-.5155E-08,\n     6 .5867E+02, .6587E-01,-.1254E-03, .2684E-06, .1537E-08,\n     6 .1131E+03, .9347E-01,-.4256E-03,-.3949E-06, .2888E-07,\n     6 .3032E+03, .1242E+00,-.2503E-03, .8244E-06,-.6356E-07,\n     6 .4377E+03, .1122E+00,-.1440E-03, .4225E-05,-.1285E-06,\n     6 .6310E+03, .3900E-01,-.3976E-03, .1431E-04,-.1646E-06,\n     6 .9078E+03,-.8215E-01,-.1018E-02, .2577E-04,-.1927E-06,\n     6 .1307E+04,-.2744E+00,-.2323E-02, .4191E-04,-.2083E-06,\n     6 .1880E+04,-.5997E+00,-.5883E-02, .6281E-04,-.5534E-07,\n     6 .2697E+04,-.9574E+00,-.1055E-01, .6398E-04, .7040E-07,\n     6 .3849E+04,-.1573E+01,-.1371E-01, .9501E-04,-.3864E-06,\n     6 .5464E+04,-.2523E+01,-.2299E-01, .1431E-03,-.2625E-06,\n     6 .7645E+04,-.3584E+01,-.3692E-01, .1610E-03,-.2000E-06,\n     6 .1044E+05,-.5018E+01,-.3813E-01, .1942E-03,-.2101E-05,\n     6 .1379E+05,-.7395E+01,-.5262E-01, .4428E-03,-.3657E-05,\n     6 .1752E+05,-.7635E+01,-.1170E+00, .2848E-03, .3984E-05,\n     6 .2124E+05,-.8251E+01,-.1104E+00, .1503E-03, .2151E-06,\n     6 .2453E+05,-.1158E+02,-.8440E-01, .2243E-03,-.3439E-05,\n     6 .2707E+05,-.1349E+02,-.1654E+00,-.1111E-04, .1140E-04,\n     6 .2831E+05,-.1490E+02,-.7166E-01,-.1424E-03, .6813E-06,\n     6 .2847E+05,-.1807E+02,-.2165E-01,-.2007E-03,-.2902E-05,\n     7 .6099E+03, .7817E+01, .4070E-01, .1169E-03,-.3335E-06,\n     7 .6402E+03, .7733E+01, .4121E-01, .1208E-03,-.3984E-06,\n     7 .6962E+03, .7564E+01, .4096E-01, .1317E-03,-.4466E-06,\n     7 .8011E+03, .7361E+01, .3831E-01, .1482E-03,-.4137E-06,\n     7 .9790E+03, .7284E+01, .3362E-01, .1448E-03,-.1560E-06,\n     7 .1278E+04, .7135E+01, .2383E-01, .1754E-03, .1057E-05,\n     7 .1779E+04, .7101E+01, .2331E-01, .1808E-03, .5076E-06,\n     7 .2630E+04, .7231E+01, .1379E-01, .2154E-03, .2451E-05,\n     7 .4099E+04, .7726E+01,-.9201E-02, .1460E-03, .5437E-05,\n     7 .6644E+04, .7222E+01,-.7209E-02, .2517E-03, .2655E-05,\n     7 .1469E+05, .4748E+01, .4023E-01, .4281E-03,-.1120E-04,\n     7 .2021E+05, .1874E+01, .1824E-02, .6068E-03,-.7271E-05,\n     7 .2809E+05,-.1604E+01,-.9092E-01, .7971E-03, .2654E-05,\n     7 .3901E+05,-.8209E+01,-.1128E+00, .1302E-02,-.6675E-05,\n     7 .5371E+05,-.1471E+02,-.1666E+00, .1328E-02,-.1126E-04,\n     7 .7237E+05,-.3177E+02,-.2566E+00, .2354E-02,-.1280E-04,\n     7 .9439E+05,-.4523E+02,-.3673E+00, .3028E-02,-.2408E-04,\n     7 .1185E+06,-.4731E+02,-.8933E+00, .1770E-02, .5301E-04,\n     7 .1421E+06,-.6197E+02,-.6393E+00, .2076E-02,-.7348E-05,\n     7 .1627E+06,-.8442E+02,-.6084E+00, .2413E-02,-.8757E-05,\n     7 .1778E+06,-.9687E+02,-.8941E+00, .1762E-02, .4770E-04,\n     7 .1849E+06,-.9453E+02,-.1786E+00, .4813E-03,-.4317E-04,\n     7 .1853E+06,-.9769E+02,-.2466E-01,-.6269E-03,-.4343E-04,\n     7 .1787E+06,-.1168E+03,-.4092E+00, .2030E-03, .5138E-04,\n     7 .1655E+06,-.1111E+03,-.2212E+00, .1342E-04, .4497E-04,\n     7 .1475E+06,-.8839E+02, .7246E+00,-.7165E-03,-.7844E-04,\n     7 .1295E+06,-.5339E+02, .2270E+00,-.3102E-02, .1701E-04,\n     7 .1112E+06,-.2827E+02, .2234E+00,-.1780E-02,-.5194E-05 /\n      DATA ((( CL9H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 6) /\n     8 .2282E+06, .2322E+04, .5714E+01,-.3761E-01,-.3151E-03,\n     8 .2296E+06, .2334E+04, .5747E+01,-.3775E-01,-.3161E-03,\n     8 .2312E+06, .2345E+04, .5791E+01,-.3783E-01,-.3171E-03,\n     8 .2331E+06, .2352E+04, .5865E+01,-.3775E-01,-.3188E-03,\n     8 .2359E+06, .2350E+04, .5975E+01,-.3706E-01,-.3216E-03,\n     8 .2410E+06, .2333E+04, .6160E+01,-.3621E-01,-.3337E-03,\n     8 .2509E+06, .2300E+04, .5864E+01,-.3760E-01,-.2564E-03,\n     8 .2712E+06, .2210E+04, .5542E+01,-.3522E-01,-.2389E-03,\n     8 .3125E+06, .2047E+04, .3513E+01,-.2898E-01,-.3194E-04,\n     8 .3887E+06, .1756E+04, .2574E+01,-.1444E-01,-.1193E-03,\n     8 .6162E+06, .1170E+04,-.1032E+01, .1116E-02,-.1318E-03,\n     8 .7345E+06, .8614E+03, .1080E+00, .2579E-01,-.4213E-03,\n     8 .8733E+06, .6992E+03,-.5564E+01, .4154E-02, .4235E-03,\n     8 .1012E+07, .4598E+03,-.6980E+01,-.5912E-02, .6048E-03,\n     8 .1131E+07,-.5627E+02,-.4413E+01, .2644E-01, .2096E-03,\n     8 .1228E+07,-.2410E+03,-.8442E+01, .3193E-02, .7231E-03,\n     8 .1279E+07,-.4451E+03,-.4661E+01, .6349E-02, .2112E-03,\n     8 .1276E+07,-.6033E+03, .3384E+01, .1265E-01,-.9195E-03,\n     8 .1234E+07,-.4116E+03,-.2972E+01,-.3335E-01, .4665E-03,\n     8 .1148E+07,-.4610E+03,-.4323E+01,-.2588E-01, .7519E-03,\n     8 .1026E+07,-.4768E+03, .7506E+00,-.1789E-01, .9226E-05,\n     8 .8869E+06,-.3862E+03,-.2371E+00,-.2820E-01, .3429E-03,\n     8 .7349E+06,-.2595E+03, .2788E+01,-.2175E-01,-.3169E-04,\n     8 .5951E+06, .1444E+01, .5039E+01,-.2911E-01,-.4986E-03,\n     8 .4756E+06, .1935E+03, .2978E+01,-.3445E-01,-.2903E-03,\n     8 .3819E+06, .1285E+03,-.2575E+01,-.1307E-01, .4107E-03,\n     8 .3039E+06,-.3683E+02,-.2901E+01, .1221E-01, .3292E-03,\n     8 .2372E+06,-.3331E+02,-.6236E+00, .1030E-01, .7012E-04,\n     9 .8912E+07, .1888E+05,-.2018E+03, .2427E+00, .2538E-02,\n     9 .8961E+07, .1897E+05,-.2030E+03, .2430E+00, .2589E-02,\n     9 .9009E+07, .1904E+05,-.2044E+03, .2421E+00, .2702E-02,\n     9 .9058E+07, .1907E+05,-.2059E+03, .2410E+00, .2868E-02,\n     9 .9106E+07, .1903E+05,-.2078E+03, .2456E+00, .3077E-02,\n     9 .9155E+07, .1883E+05,-.2105E+03, .2553E+00, .3488E-02,\n     9 .9210E+07, .1827E+05,-.2120E+03, .2897E+00, .3898E-02,\n     9 .9252E+07, .1717E+05,-.2138E+03, .3222E+00, .5106E-02,\n     9 .9267E+07, .1509E+05,-.2053E+03, .3561E+00, .6120E-02,\n     9 .9146E+07, .1137E+05,-.1615E+03, .4325E+00, .4301E-02,\n     9 .8346E+07, .6656E+04,-.4017E+02, .3709E-01, .8325E-05,\n     9 .7973E+07, .4554E+04,-.4539E+01,-.1428E+00,-.1672E-02,\n     9 .7540E+07, .2223E+04, .3524E+02,-.2751E+00,-.5174E-02,\n     9 .7117E+07,-.1772E+03, .5044E+02,-.2482E+00,-.7386E-02,\n     9 .6698E+07,-.1730E+04, .1359E+02,-.3353E+00,-.2502E-02,\n     9 .6106E+07,-.3671E+04, .1312E+02,-.5376E-01,-.2398E-02,\n     9 .5318E+07,-.2869E+04, .2268E+02,-.1105E+00,-.1642E-02,\n     9 .4486E+07,-.2202E+04, .1947E+02,-.1024E+00,-.4577E-03,\n     9 .3682E+07,-.2441E+04, .2543E+02, .7032E-01,-.2329E-02,\n     9 .2939E+07,-.7348E+03, .2495E+02,-.6691E-01,-.2004E-02,\n     9 .2317E+07, .1401E+03, .1250E+02,-.1234E+00,-.4546E-03,\n     9 .1823E+07,-.5861E+02,-.4110E+01,-.4951E-01, .1516E-02,\n     9 .1417E+07,-.5177E+03,-.2440E+01, .2654E-01, .6276E-03,\n     9 .1067E+07,-.5562E+03, .7921E+01, .4415E-01,-.6922E-03,\n     9 .8017E+06,-.4462E+03, .6757E+01, .3992E-01,-.3595E-03,\n     9 .5893E+06,-.2117E+01, .1586E+02,-.1702E-02,-.2042E-02,\n     9 .4313E+06, .4256E+03, .1230E+02,-.5361E-01,-.1591E-02,\n     9 .3157E+06, .4554E+03, .3390E+01,-.4530E-01,-.1535E-03,\n     a .6301E+08,-.3184E+06, .1060E+04,-.2921E+00,-.1112E-01,\n     a .6337E+08,-.3201E+06, .1066E+04,-.2934E+00,-.1139E-01,\n     a .6368E+08,-.3217E+06, .1074E+04,-.2921E+00,-.1189E-01,\n     a .6398E+08,-.3228E+06, .1084E+04,-.3109E+00,-.1286E-01,\n     a .6422E+08,-.3233E+06, .1095E+04,-.3827E+00,-.1372E-01,\n     a .6427E+08,-.3223E+06, .1111E+04,-.5298E+00,-.1554E-01,\n     a .6395E+08,-.3184E+06, .1135E+04,-.7931E+00,-.1905E-01,\n     a .6311E+08,-.3087E+06, .1165E+04,-.1223E+01,-.2563E-01,\n     a .6104E+08,-.2882E+06, .1178E+04,-.1770E+01,-.3596E-01,\n     a .5722E+08,-.2463E+06, .9214E+03,-.2642E+01,-.2202E-01,\n     a .4622E+08,-.1555E+06, .1512E+03,-.3459E+00, .4365E-02,\n     a .4032E+08,-.1143E+06,-.1324E+03, .3485E-01, .2109E-01,\n     a .3365E+08,-.8049E+05,-.2025E+03, .1247E+01, .1580E-01,\n     a .2677E+08,-.5099E+05,-.2342E+03, .1098E+01, .2610E-01,\n     a .2033E+08,-.2543E+05,-.6168E+02, .5573E+00, .1124E-01,\n     a .1517E+08,-.7334E+04, .9473E+02,-.6639E+00,-.3270E-02,\n     a .1174E+08,-.4546E+04,-.2513E+02,-.5757E+00, .9035E-02,\n     a .9169E+07,-.3423E+04,-.9998E+02,-.5366E+00, .1603E-01,\n     a .6818E+07,-.2781E+04,-.4965E+01,-.3910E+00, .2521E-02,\n     a .4979E+07,-.4028E+04, .5020E+02, .3666E-01,-.6955E-02,\n     a .3584E+07,-.3114E+04, .5436E+02, .2033E+00,-.5940E-02,\n     a .2553E+07,-.9871E+03, .3126E+02,-.1372E-01,-.2165E-02,\n     a .1803E+07, .2082E+03, .3012E+00,-.1819E+00, .2786E-02,\n     a .1270E+07, .6351E+03,-.2304E+02,-.2116E+00, .5869E-02,\n     a .8807E+06, .5995E+03,-.2112E+02,-.1497E+00, .5022E-02,\n     a .6069E+06, .3525E+03,-.1520E+02,-.3614E-01, .4058E-02,\n     a .4196E+06, .4041E+03,-.4181E+01,-.1160E-01, .1868E-02,\n     a .2939E+06, .3951E+03, .1880E+01,-.3537E-02, .3566E-03 /\nC\n      END\n\n      BLOCK DATA CKDSW\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 14500-50000 CM^-1. GAS: H2O, O2                 C\nC     K IN UNIT CM^2 / GRAM FOR ALL DATA.                              C\nC     NOTE: GW = GW * SOLAR ENERGY FOR ALL SOLAR BANDS                 C\nC     CS1O2GH3 FOR O2 ABSORPTANCE COEFFICIENT AT 41200 - 50000 CM^-1   C\nC     FOR HERZBERG BAND. THE SCHUMAN-RUNGE BAND NOT INCLUDED           C\nC     CS1O21 FOR O2 AT 25000 - 14500 CM^-1     LI 2003                 C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDS1/ GWS1(6), CS1O3(3,6), CS1O21\n      DATA GWS1 / 280.85678, 236.97212, 83.43346, 6.70594, 10.14919,\n     1              4.73084 /\nC\n      DATA ((CS1O3(I,J), I = 1, 3), J = 1, 6) /\n     1 .4203E+02,-.2043E-02, .5034E-04,\n     2 .6390E+01, .9014E-02, .1214E-03,\n     3 .2584E+02, .1504E+00, .1025E-02,\n     4 .5269E+03, .1181E+01, .2640E-02,\n     5 .4034E+04, .5636E+01, .1300E-01,\n     6 .2570E+05, .1570E+02, .8769E-01 /\nC\n      DATA CS1O21 / 0.511E-04 /\nC\n      COMMON /BANDS1GH/ GWS1GH(3), CS1O3GH(3,3), CS1O2GH3\n      DATA GWS1GH / 3.20501, 3.17570, 1.21100 /\nC\n      DATA ((CS1O3GH(I,J), I = 1, 3), J = 1, 3) /\n     7 .8575E+05, .1976E+02, .1222E-01,\n     8 .1254E+06,-.1886E+02,-.2423E+00,\n     9 .2228E+05,-.1677E+01, .1736E+00 /\nC\n      DATA CS1O2GH3 / 0.900007E-01 / \nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 8200-14500 CM^-1. GAS: H2O, O2, O3              C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDS2/ GW(4), CS2H2O(5,18,4), CS2O2(5,18,2), CS2O3(4)\n      DATA GW / 292.83546, 62.41776, 53.30647, 21.53219 /\n      DATA ( CS2O3(I), I = 1,  4) / .2185E+01, .1517E+01, .1684E+01,\n     1                              .2268E+01 /\n      DATA ((( CS2H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 4) /\n     1 .5727E-05, .7913E-08,-.2870E-10, .5559E-13,-.3821E-15,\n     1 .8450E-05, .1153E-07,-.4306E-10, .7787E-13,-.7543E-15,\n     1 .1247E-04, .1684E-07,-.6614E-10, .1037E-12,-.1100E-14,\n     1 .1839E-04, .2444E-07,-.9416E-10, .1830E-12,-.2601E-14,\n     1 .2714E-04, .3553E-07,-.1543E-09, .3050E-12,-.1829E-14,\n     1 .4005E-04, .5192E-07,-.2335E-09, .4800E-12,-.3429E-14,\n     1 .5909E-04, .7574E-07,-.3536E-09, .8039E-12,-.5700E-14,\n     1 .8719E-04, .1116E-06,-.5451E-09, .1131E-11,-.7054E-14,\n     1 .1287E-03, .1631E-06,-.8644E-09, .1835E-11,-.5946E-14,\n     1 .1896E-03, .2405E-06,-.1314E-08, .2609E-11,-.9643E-14,\n     1 .2790E-03, .3566E-06,-.2043E-08, .3507E-11,-.3798E-14,\n     1 .4088E-03, .5305E-06,-.3089E-08, .4182E-11, .3468E-15,\n     1 .5956E-03, .7789E-06,-.4303E-08, .5732E-11,-.4682E-13,\n     1 .8593E-03, .1129E-05,-.6199E-08, .8142E-11,-.6072E-13,\n     1 .1221E-02, .1632E-05,-.8534E-08, .8854E-11,-.5919E-13,\n     1 .1703E-02, .2339E-05,-.1107E-07, .1116E-10,-.8467E-13,\n     1 .2318E-02, .3352E-05,-.1481E-07, .1337E-10,-.4540E-13,\n     1 .3071E-02, .4751E-05,-.2004E-07, .5499E-11, .1391E-12,\n     2 .1812E-03, .5011E-06,-.8218E-09, .2032E-11,-.2913E-14,\n     2 .2596E-03, .6953E-06,-.1514E-08, .2176E-11, .3824E-13,\n     2 .3718E-03, .9660E-06,-.2442E-08, .1820E-11, .7881E-13,\n     2 .5323E-03, .1350E-05,-.3699E-08,-.4671E-12, .1219E-12,\n     2 .7617E-03, .1879E-05,-.5219E-08,-.3813E-11, .1363E-12,\n     2 .1089E-02, .2593E-05,-.7511E-08,-.7619E-11, .1846E-12,\n     2 .1556E-02, .3586E-05,-.1149E-07,-.1861E-10, .3683E-12,\n     2 .2217E-02, .4926E-05,-.1452E-07,-.3508E-10, .1626E-12,\n     2 .3151E-02, .6624E-05,-.1710E-07,-.4111E-10,-.3080E-12,\n     2 .4466E-02, .8753E-05,-.2256E-07,-.3110E-10,-.6199E-12,\n     2 .6302E-02, .1146E-04,-.3460E-07,-.1332E-10,-.1316E-12,\n     2 .8826E-02, .1518E-04,-.4505E-07,-.1953E-10,-.8579E-13,\n     2 .1224E-01, .2030E-04,-.5950E-07,-.2591E-10, .3450E-12,\n     2 .1675E-01, .2818E-04,-.8032E-07,-.1297E-09, .1356E-11,\n     2 .2259E-01, .3962E-04,-.1029E-06,-.3474E-09, .1504E-11,\n     2 .2984E-01, .5403E-04,-.1072E-06,-.5094E-09,-.1288E-11,\n     2 .3848E-01, .7229E-04,-.1133E-06,-.7213E-09,-.3025E-11,\n     2 .4843E-01, .9131E-04,-.1408E-06,-.5242E-09,-.1241E-11,\n     3 .5547E-02, .4158E-04, .3280E-07,-.2032E-09, .2258E-11,\n     3 .6413E-02, .4296E-04, .2637E-07,-.1630E-09, .1830E-11,\n     3 .7564E-02, .4486E-04, .1419E-07,-.1373E-09, .2123E-11,\n     3 .9084E-02, .4738E-04,-.1630E-08,-.9672E-10, .3104E-11,\n     3 .1109E-01, .5067E-04,-.1787E-07,-.8095E-10, .4110E-11,\n     3 .1377E-01, .5523E-04,-.1690E-07,-.1512E-09, .1471E-11,\n     3 .1734E-01, .6124E-04,-.2382E-07,-.2526E-09, .5236E-13,\n     3 .2213E-01, .6899E-04,-.3343E-07,-.4029E-09,-.1248E-11,\n     3 .2858E-01, .7778E-04,-.5925E-07,-.4614E-09,-.8470E-12,\n     3 .3720E-01, .8884E-04,-.8387E-07,-.6317E-09,-.1760E-11,\n     3 .4869E-01, .1016E-03,-.1577E-06,-.7254E-09, .4759E-11,\n     3 .6377E-01, .1176E-03,-.1994E-06,-.9033E-09, .6915E-11,\n     3 .8323E-01, .1374E-03,-.1734E-06,-.1207E-08,-.3134E-11,\n     3 .1079E+00, .1582E-03,-.1595E-06,-.8371E-09,-.1246E-10,\n     3 .1386E+00, .1846E-03,-.2601E-06,-.6825E-10,-.2876E-11,\n     3 .1758E+00, .2208E-03,-.3373E-06, .1794E-09,-.8184E-11,\n     3 .2194E+00, .2561E-03,-.5008E-06, .1152E-08,-.2540E-13,\n     3 .2687E+00, .3031E-03,-.6058E-06, .1136E-08,-.2361E-10,\n     4 .2916E+00, .1904E-02, .1167E-05,-.1007E-07, .1006E-10,\n     4 .2971E+00, .1880E-02, .1156E-05,-.9691E-08, .1463E-10,\n     4 .3052E+00, .1853E-02, .1207E-05,-.9447E-08,-.6028E-12,\n     4 .3169E+00, .1820E-02, .1175E-05,-.8540E-08, .5159E-11,\n     4 .3333E+00, .1787E-02, .1203E-05,-.9259E-08,-.1682E-11,\n     4 .3564E+00, .1746E-02, .1460E-05,-.8860E-08,-.5574E-10,\n     4 .3892E+00, .1703E-02, .1277E-05,-.7849E-08,-.5692E-10,\n     4 .4342E+00, .1689E-02, .4175E-06,-.1098E-07, .4219E-10,\n     4 .4926E+00, .1672E-02, .1925E-06,-.1304E-07, .4876E-10,\n     4 .5680E+00, .1621E-02, .3194E-07,-.9251E-08, .2122E-10,\n     4 .6644E+00, .1556E-02,-.4294E-07,-.6425E-08,-.2252E-10,\n     4 .7851E+00, .1495E-02,-.2301E-06,-.4893E-08,-.9324E-10,\n     4 .9304E+00, .1395E-02, .6525E-07, .9691E-08,-.2604E-09,\n     4 .1099E+01, .1363E-02,-.1218E-05, .9560E-08,-.1188E-09,\n     4 .1281E+01, .1346E-02,-.1086E-05, .3036E-08,-.1302E-09,\n     4 .1477E+01, .1293E-02,-.2185E-05, .1361E-08, .4658E-10,\n     4 .1675E+01, .1263E-02,-.1153E-05,-.6468E-08,-.9134E-10,\n     4 .1877E+01, .1182E-02,-.1615E-05,-.4820E-09, .7266E-10 /\n      DATA ((( CS2O2(K,J,I), K = 1, 5), J = 1, 18), I = 1, 2) /\n     1 .3214E-07, .1096E-09,-.3452E-12,-.9474E-15, .1212E-16,\n     1 .4547E-07, .1549E-09,-.4458E-12,-.1710E-14, .1636E-16,\n     1 .6451E-07, .2141E-09,-.6686E-12,-.1753E-14, .4046E-16,\n     1 .9148E-07, .2994E-09,-.7666E-12,-.2964E-14, .2290E-16,\n     1 .1291E-06, .4214E-09,-.4340E-12,-.5534E-14,-.6547E-16,\n     1 .1826E-06, .5775E-09,-.4514E-12,-.8455E-14,-.8933E-16,\n     1 .2577E-06, .7778E-09, .1163E-12,-.1062E-13,-.2128E-15,\n     1 .3647E-06, .9986E-09,-.5075E-12,-.4184E-14,-.1315E-15,\n     1 .5161E-06, .1342E-08,-.1859E-11,-.5709E-14, .1397E-15,\n     1 .7339E-06, .1777E-08,-.2617E-11,-.2611E-14, .2048E-15,\n     1 .1044E-05, .2394E-08,-.2534E-11,-.2946E-14,-.1257E-16,\n     1 .1486E-05, .3198E-08, .9352E-13, .9540E-14,-.7692E-15,\n     1 .2129E-05, .4310E-08, .2237E-13, .3356E-13,-.1033E-14,\n     1 .3067E-05, .5636E-08,-.1386E-10, .1004E-12, .7494E-15,\n     1 .4422E-05, .7600E-08,-.2434E-10, .1677E-12, .6683E-15,\n     1 .6379E-05, .1039E-07,-.4778E-10, .2399E-12, .1082E-14,\n     1 .9118E-05, .1456E-07,-.6065E-10, .2221E-12,-.2072E-14,\n     1 .1297E-04, .2085E-07,-.1135E-09, .2214E-12, .1963E-14,\n     2 .1314E-08, .9760E-12, .8168E-13, .6512E-15,-.2238E-16,\n     2 .1686E-08,-.3646E-11, .2078E-12, .1897E-14,-.2439E-16,\n     2 .2586E-08, .5144E-11,-.3531E-12, .2446E-16, .7444E-16,\n     2 .2835E-08, .1092E-10, .6488E-12,-.9216E-15,-.7964E-16,\n     2 .7028E-08, .9956E-11,-.1326E-11,-.2252E-14, .1800E-15,\n     2 .9576E-08, .5140E-10,-.1396E-11,-.7284E-14, .2245E-15,\n     2 .1471E-07, .3408E-11,-.8488E-12, .3609E-14, .1276E-15,\n     2 .2307E-07, .1126E-09,-.3998E-11,-.1265E-13, .7476E-15,\n     2 .3514E-07, .1715E-09,-.4584E-11,-.1617E-13, .7056E-15,\n     2 .4404E-07, .3456E-09,-.1496E-11,-.3771E-13, .1827E-15,\n     2 .5772E-07, .6428E-09, .8844E-11,-.8340E-13,-.1589E-14,\n     2 .7356E-07, .5488E-09, .7944E-11,-.4340E-13,-.2486E-15,\n     2 .1247E-06, .7840E-09,-.6232E-11,-.6144E-13, .2092E-14,\n     2 .1674E-06, .1256E-08, .2241E-10,-.1350E-12,-.3142E-14,\n     2 .2637E-06, .8356E-09,-.4084E-10,-.1284E-12, .7640E-14,\n     2 .2975E-06, .9760E-09,-.6176E-10,-.1859E-12, .1374E-13,\n     2 .3092E-06, .3456E-08, .6784E-10,-.3132E-12,-.9412E-14,\n     2 .5828E-06, .5524E-08,-.2897E-10,-.1702E-12, .3144E-14 /\nC\n      COMMON /BANDS2GH/ GWGH(4), CS2H2OGH(5,28), CS2O2GH(5,28,3)\n      DATA GWGH / 4.57116, 3.93806, .30706, .08728 /\n      DATA (( CS2H2OGH(K,J), K = 1, 5), J = 1, 28)           /\n     5 .3219E+02,-.7035E-02, .5768E-04,-.4975E-06, .1310E-08,\n     5 .3219E+02,-.7034E-02, .5773E-04,-.4981E-06, .1309E-08,\n     5 .3219E+02,-.7032E-02, .5766E-04,-.4985E-06, .1322E-08,\n     5 .3219E+02,-.7032E-02, .5774E-04,-.4980E-06, .1303E-08,\n     5 .3219E+02,-.7031E-02, .5766E-04,-.4979E-06, .1316E-08,\n     5 .3219E+02,-.7027E-02, .5775E-04,-.4980E-06, .1298E-08,\n     5 .3219E+02,-.7021E-02, .5762E-04,-.4975E-06, .1306E-08,\n     5 .3219E+02,-.7007E-02, .5760E-04,-.4964E-06, .1288E-08,\n     5 .3219E+02,-.6979E-02, .5745E-04,-.4947E-06, .1269E-08,\n     5 .3217E+02,-.6926E-02, .5686E-04,-.4910E-06, .1287E-08,\n     5 .3212E+02,-.6725E-02, .5586E-04,-.4840E-06, .1227E-08,\n     5 .3208E+02,-.6588E-02, .5516E-04,-.4807E-06, .1221E-08,\n     5 .3203E+02,-.6416E-02, .5448E-04,-.4763E-06, .1202E-08,\n     5 .3195E+02,-.6215E-02, .5359E-04,-.4679E-06, .1130E-08,\n     5 .3184E+02,-.5987E-02, .5169E-04,-.4484E-06, .1101E-08,\n     5 .3169E+02,-.5687E-02, .4792E-04,-.4268E-06, .1274E-08,\n     5 .3148E+02,-.5341E-02, .4536E-04,-.3987E-06, .1130E-08,\n     5 .3120E+02,-.5072E-02, .4504E-04,-.3405E-06, .4385E-09,\n     5 .3082E+02,-.4734E-02, .4023E-04,-.2752E-06, .1470E-09,\n     5 .3033E+02,-.4165E-02, .3385E-04,-.2314E-06, .1184E-10,\n     5 .2969E+02,-.3520E-02, .2718E-04,-.1814E-06,-.1465E-09,\n     5 .2890E+02,-.2987E-02, .2116E-04,-.1337E-06,-.2584E-10,\n     5 .2789E+02,-.2448E-02, .1409E-04,-.1685E-06, .8043E-09,\n     5 .2669E+02,-.2465E-02, .1763E-04,-.1577E-06, .1860E-09,\n     5 .2530E+02,-.2808E-02, .1733E-04,-.1291E-06, .1692E-09,\n     5 .2372E+02,-.3219E-02, .2400E-04,-.1230E-06,-.6400E-09,\n     5 .2201E+02,-.3839E-02, .2112E-04,-.9221E-07,-.9607E-11,\n     5 .2020E+02,-.4393E-02, .2570E-04,-.1237E-06,-.6172E-09 /\n      DATA ((( CS2O2GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     6 .2534E-03, .2682E-05, .6224E-08, .9713E-11, .3900E-12,\n     6 .2534E-03, .2682E-05, .6225E-08, .9713E-11, .3899E-12,\n     6 .2534E-03, .2682E-05, .6227E-08, .9713E-11, .3898E-12,\n     6 .2536E-03, .2681E-05, .6232E-08, .9734E-11, .3892E-12,\n     6 .2539E-03, .2681E-05, .6245E-08, .9778E-11, .3876E-12,\n     6 .2546E-03, .2678E-05, .6251E-08, .9778E-11, .3886E-12,\n     6 .2560E-03, .2675E-05, .6262E-08, .9698E-11, .3902E-12,\n     6 .2588E-03, .2668E-05, .6284E-08, .9540E-11, .3935E-12,\n     6 .2646E-03, .2652E-05, .6311E-08, .9317E-11, .4035E-12,\n     6 .2763E-03, .2620E-05, .6450E-08, .9634E-11, .4072E-12,\n     6 .3205E-03, .2486E-05, .7034E-08, .1581E-10, .3879E-12,\n     6 .3532E-03, .2375E-05, .7308E-08, .2418E-10, .3959E-12,\n     6 .4002E-03, .2213E-05, .7531E-08, .4023E-10, .4261E-12,\n     6 .4674E-03, .2023E-05, .8093E-08, .6237E-10, .3657E-12,\n     6 .5594E-03, .1903E-05, .1140E-07, .7081E-10,-.1552E-12,\n     6 .6864E-03, .1912E-05, .1392E-07, .6452E-10,-.3394E-12,\n     6 .8669E-03, .2013E-05, .1536E-07, .5262E-10,-.3039E-12,\n     6 .1127E-02, .2129E-05, .1106E-07, .4940E-10, .6748E-12,\n     6 .1499E-02, .2219E-05, .5355E-08, .4513E-10, .1711E-11,\n     6 .2025E-02, .2429E-05, .1135E-07, .1094E-10, .3164E-12,\n     6 .2778E-02, .2537E-05, .1981E-07, .1433E-11,-.1488E-11,\n     6 .3846E-02, .1850E-05, .2369E-07, .1651E-09,-.2853E-11,\n     6 .5333E-02, .1444E-05, .1251E-07, .2508E-09,-.1932E-11,\n     6 .7351E-02, .8431E-06,-.7258E-08, .2651E-09, .7819E-12,\n     6 .1003E-01, .9900E-06,-.3748E-07, .3186E-10, .6088E-11,\n     6 .1343E-01, .1380E-05, .8575E-08,-.3203E-09, .2250E-12,\n     6 .1773E-01,-.1315E-05, .1153E-07,-.5970E-10, .6931E-12,\n     6 .2259E-01,-.4343E-05, .5704E-07, .2123E-09,-.8021E-11,\n     7 .1446E+00, .1154E-02, .4288E-06,-.7609E-08,-.4095E-10,\n     7 .1446E+00, .1154E-02, .4288E-06,-.7611E-08,-.4094E-10,\n     7 .1446E+00, .1154E-02, .4285E-06,-.7605E-08,-.4087E-10,\n     7 .1447E+00, .1154E-02, .4282E-06,-.7603E-08,-.4080E-10,\n     7 .1447E+00, .1154E-02, .4284E-06,-.7602E-08,-.4082E-10,\n     7 .1447E+00, .1154E-02, .4288E-06,-.7606E-08,-.4093E-10,\n     7 .1447E+00, .1154E-02, .4293E-06,-.7600E-08,-.4099E-10,\n     7 .1448E+00, .1154E-02, .4310E-06,-.7597E-08,-.4125E-10,\n     7 .1449E+00, .1153E-02, .4327E-06,-.7587E-08,-.4145E-10,\n     7 .1451E+00, .1152E-02, .4374E-06,-.7583E-08,-.4212E-10,\n     7 .1459E+00, .1149E-02, .4512E-06,-.7645E-08,-.4352E-10,\n     7 .1464E+00, .1148E-02, .4639E-06,-.7753E-08,-.4495E-10,\n     7 .1473E+00, .1144E-02, .4855E-06,-.7968E-08,-.4735E-10,\n     7 .1487E+00, .1138E-02, .5143E-06,-.8306E-08,-.4982E-10,\n     7 .1507E+00, .1129E-02, .5171E-06,-.8427E-08,-.4663E-10,\n     7 .1539E+00, .1109E-02, .5067E-06,-.7951E-08,-.4063E-10,\n     7 .1588E+00, .1078E-02, .5143E-06,-.7148E-08,-.3427E-10,\n     7 .1658E+00, .1035E-02, .6376E-06,-.6602E-08,-.4582E-10,\n     7 .1760E+00, .9738E-03, .8113E-06,-.5868E-08,-.5717E-10,\n     7 .1906E+00, .8877E-03, .8450E-06,-.5023E-08,-.3616E-10,\n     7 .2109E+00, .7691E-03, .9423E-06,-.1783E-08,-.5308E-10,\n     7 .2376E+00, .6315E-03, .1032E-05, .3848E-10,-.8310E-10,\n     7 .2707E+00, .5010E-03, .1865E-06,-.5449E-08, .4747E-10,\n     7 .3057E+00, .3436E-03, .5605E-06,-.3812E-08,-.3625E-10,\n     7 .3370E+00, .1751E-03, .1381E-05, .7458E-08,-.2713E-09,\n     7 .3559E+00, .1121E-03,-.9225E-06, .2911E-08, .9792E-10,\n     7 .3505E+00, .1067E-03, .4705E-06,-.5564E-08,-.1082E-09,\n     7 .3253E+00, .8664E-04,-.8188E-06,-.3145E-08, .1218E-09,\n     8 .3026E+01,-.5643E-02, .4530E-05, .1589E-08, .9835E-10,\n     8 .3026E+01,-.5643E-02, .4537E-05, .1583E-08, .9716E-10,\n     8 .3026E+01,-.5642E-02, .4538E-05, .1545E-08, .9709E-10,\n     8 .3026E+01,-.5642E-02, .4539E-05, .1520E-08, .9684E-10,\n     8 .3026E+01,-.5642E-02, .4537E-05, .1589E-08, .9710E-10,\n     8 .3025E+01,-.5642E-02, .4520E-05, .1585E-08, .9949E-10,\n     8 .3025E+01,-.5641E-02, .4533E-05, .1574E-08, .9609E-10,\n     8 .3025E+01,-.5639E-02, .4505E-05, .1615E-08, .1000E-09,\n     8 .3024E+01,-.5635E-02, .4492E-05, .1654E-08, .9907E-10,\n     8 .3022E+01,-.5626E-02, .4456E-05, .1708E-08, .9894E-10,\n     8 .3015E+01,-.5595E-02, .4286E-05, .1900E-08, .1066E-09,\n     8 .3010E+01,-.5573E-02, .4169E-05, .2084E-08, .1109E-09,\n     8 .3003E+01,-.5539E-02, .3995E-05, .2221E-08, .1165E-09,\n     8 .2991E+01,-.5490E-02, .3741E-05, .2785E-08, .1268E-09,\n     8 .2975E+01,-.5418E-02, .3364E-05, .3507E-08, .1439E-09,\n     8 .2951E+01,-.5306E-02, .2991E-05, .3147E-08, .1315E-09,\n     8 .2916E+01,-.5141E-02, .2528E-05, .2387E-08, .1005E-09,\n     8 .2865E+01,-.4907E-02, .1848E-05, .2590E-08, .7710E-10,\n     8 .2792E+01,-.4578E-02, .9081E-06, .2893E-08, .4496E-10,\n     8 .2689E+01,-.4127E-02,-.4217E-06, .5231E-08, .4274E-10,\n     8 .2546E+01,-.3517E-02,-.2308E-05,-.2749E-08, .2130E-09,\n     8 .2355E+01,-.2767E-02,-.3932E-05,-.1626E-07, .4084E-09,\n     8 .2111E+01,-.2072E-02,-.8738E-06, .2197E-08,-.1550E-09,\n     8 .1827E+01,-.1303E-02,-.1590E-05,-.4515E-08,-.1066E-10,\n     8 .1518E+01,-.6041E-03,-.2937E-05,-.3415E-07, .5588E-09,\n     8 .1211E+01,-.3898E-03, .3294E-05, .4595E-08,-.5044E-09,\n     8 .9397E+00,-.2416E-03,-.2158E-05, .2068E-07, .2944E-09,\n     8 .6996E+00,-.4103E-04, .3979E-06,-.6163E-08,-.5776E-10 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 4200-8400 CM^-1. GAS: H2O, CO2                  C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDS3/ GWS3(6), CS3H2O(5,18,6), CS3CO2(5,18,6),\n     1                         CS3CH4(5,18,2)\n      DATA GWS3 / 126.08439, 41.86427, 28.31155, 22.53174, 15.24951,\n     1              4.65647 /\n      DATA ((( CS3H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 3) /\n     1 .5243E-05, .3937E-07, .6392E-10,-.7654E-13,-.1331E-14,\n     1 .7756E-05, .5803E-07, .7734E-10,-.6975E-13, .8095E-15,\n     1 .1147E-04, .8604E-07, .1175E-09,-.1330E-12,-.6863E-16,\n     1 .1691E-04, .1277E-06, .1985E-09,-.2722E-12,-.4618E-14,\n     1 .2499E-04, .1892E-06, .2877E-09,-.4275E-12,-.5520E-14,\n     1 .3690E-04, .2811E-06, .4177E-09,-.9578E-12,-.7466E-14,\n     1 .5447E-04, .4168E-06, .5869E-09,-.1550E-11,-.2811E-14,\n     1 .8039E-04, .6156E-06, .8308E-09,-.1998E-11, .2946E-14,\n     1 .1186E-03, .9149E-06, .1332E-08,-.4103E-11,-.1431E-13,\n     1 .1748E-03, .1355E-05, .2219E-08,-.7211E-11,-.6379E-13,\n     1 .2566E-03, .2002E-05, .3330E-08,-.1153E-10,-.8348E-13,\n     1 .3752E-03, .2913E-05, .4650E-08,-.1277E-10,-.5410E-13,\n     1 .5445E-03, .4232E-05, .7270E-08,-.2068E-10,-.1893E-12,\n     1 .7817E-03, .6098E-05, .1068E-07,-.2949E-10,-.2664E-12,\n     1 .1107E-02, .8662E-05, .1559E-07,-.3382E-10,-.2637E-12,\n     1 .1548E-02, .1207E-04, .2050E-07,-.4091E-10,-.8716E-13,\n     1 .2119E-02, .1640E-04, .2884E-07,-.3157E-10,-.2281E-12,\n     1 .2836E-02, .2195E-04, .3520E-07,-.6713E-10, .2683E-12,\n     2 .3170E-03, .2578E-05, .2844E-08,-.2714E-10, .2976E-13,\n     2 .4557E-03, .3688E-05, .4038E-08,-.3660E-10, .9022E-13,\n     2 .6542E-03, .5284E-05, .6977E-08,-.5251E-10,-.4629E-13,\n     2 .9362E-03, .7518E-05, .1126E-07,-.6840E-10,-.1460E-12,\n     2 .1339E-02, .1069E-04, .1826E-07,-.9363E-10,-.3904E-12,\n     2 .1912E-02, .1510E-04, .3010E-07,-.1283E-09,-.1136E-11,\n     2 .2729E-02, .2113E-04, .4543E-07,-.1308E-09,-.1698E-11,\n     2 .3902E-02, .2947E-04, .6188E-07,-.1093E-09,-.1660E-11,\n     2 .5571E-02, .4130E-04, .9479E-07,-.1062E-09,-.3316E-11,\n     2 .7949E-02, .5766E-04, .1278E-06,-.1065E-09,-.3532E-11,\n     2 .1131E-01, .8021E-04, .1722E-06,-.3606E-10,-.3278E-11,\n     2 .1603E-01, .1108E-03, .2378E-06, .5192E-10,-.5949E-11,\n     2 .2257E-01, .1525E-03, .3034E-06, .1086E-09,-.6218E-11,\n     2 .3145E-01, .2093E-03, .3541E-06, .1289E-09, .1560E-11,\n     2 .4310E-01, .2838E-03, .5302E-06, .2381E-09,-.3963E-11,\n     2 .5820E-01, .3758E-03, .6697E-06, .4019E-09,-.4028E-11,\n     2 .7692E-01, .4853E-03, .8518E-06, .1027E-08,-.1271E-10,\n     2 .9924E-01, .6198E-03, .8679E-06,-.2819E-09, .1600E-10,\n     3 .4048E-02, .2608E-04, .1568E-07,-.2063E-09,-.1770E-11,\n     3 .5686E-02, .3555E-04, .1363E-07,-.2302E-09,-.1056E-11,\n     3 .7993E-02, .4877E-04, .2005E-07,-.3327E-09,-.2128E-11,\n     3 .1125E-01, .6660E-04, .1436E-07,-.3712E-09,-.6695E-12,\n     3 .1588E-01, .9130E-04,-.7789E-08,-.4876E-09, .3794E-11,\n     3 .2240E-01, .1251E-03,-.2941E-08,-.6350E-09, .3433E-11,\n     3 .3168E-01, .1712E-03,-.1668E-07,-.6789E-09, .6265E-11,\n     3 .4495E-01, .2362E-03,-.3829E-07,-.1035E-08, .7544E-11,\n     3 .6387E-01, .3275E-03,-.1625E-07,-.1633E-08,-.1103E-11,\n     3 .9082E-01, .4517E-03,-.4195E-07,-.1946E-08,-.5407E-11,\n     3 .1289E+00, .6238E-03,-.2491E-06,-.2302E-08, .2520E-10,\n     3 .1822E+00, .8568E-03,-.1757E-06,-.1819E-08,-.1196E-12,\n     3 .2566E+00, .1170E-02,-.7726E-07,-.2840E-10,-.6146E-10,\n     3 .3592E+00, .1603E-02,-.7184E-06, .7504E-09,-.1300E-10,\n     3 .4970E+00, .2192E-02,-.7953E-06, .1548E-08,-.8341E-10,\n     3 .6774E+00, .2957E-02,-.1090E-05, .3594E-08,-.1495E-09,\n     3 .9085E+00, .3914E-02,-.3384E-05, .1239E-07, .2922E-10,\n     3 .1195E+01, .5226E-02,-.7062E-05, .2829E-08, .3743E-09 /\n      DATA ((( CS3H2O(K,J,I), K = 1, 5), J = 1, 18), I = 4, 6) /\n     4 .2654E-01, .1791E-03, .5150E-06, .3716E-09,-.6728E-11,\n     4 .3574E-01, .2209E-03, .5579E-06, .1210E-09,-.1067E-10,\n     4 .4848E-01, .2743E-03, .6127E-06, .9519E-10,-.1489E-10,\n     4 .6618E-01, .3410E-03, .6880E-06, .4258E-09,-.2173E-10,\n     4 .9106E-01, .4297E-03, .6362E-06, .3044E-09,-.8938E-11,\n     4 .1258E+00, .5429E-03, .5158E-06, .6320E-09, .2041E-10,\n     4 .1748E+00, .6866E-03, .4770E-06, .1558E-08, .2773E-10,\n     4 .2439E+00, .8774E-03, .5859E-06, .2075E-08, .2138E-11,\n     4 .3417E+00, .1140E-02, .1162E-05, .5718E-09,-.1289E-09,\n     4 .4813E+00, .1474E-02, .4319E-06, .1747E-08,-.3889E-10,\n     4 .6775E+00, .1915E-02, .1935E-06, .3808E-08,-.5681E-10,\n     4 .9536E+00, .2473E-02,-.8389E-06, .9849E-08, .8561E-11,\n     4 .1337E+01, .3202E-02,-.2386E-05, .1403E-07, .1709E-10,\n     4 .1858E+01, .4109E-02,-.4965E-05, .2996E-07, .1398E-09,\n     4 .2557E+01, .5331E-02,-.7711E-05, .4100E-07, .9088E-10,\n     4 .3477E+01, .6888E-02,-.1284E-04, .3892E-07, .3316E-09,\n     4 .4669E+01, .8815E-02,-.1822E-04, .3060E-07, .2788E-09,\n     4 .6170E+01, .1123E-01,-.2198E-04, .3073E-07,-.5434E-09,\n     5 .4596E+00, .4624E-02, .2257E-04, .2845E-07,-.3622E-09,\n     5 .5488E+00, .4860E-02, .2003E-04, .3360E-07,-.3368E-10,\n     5 .6664E+00, .5206E-02, .1995E-04, .3132E-07,-.1326E-09,\n     5 .8255E+00, .5611E-02, .1856E-04, .2927E-07,-.4059E-10,\n     5 .1040E+01, .6175E-02, .1834E-04, .1304E-07,-.1583E-09,\n     5 .1330E+01, .6802E-02, .1795E-04, .8607E-08,-.2169E-09,\n     5 .1728E+01, .7468E-02, .1507E-04, .2537E-07, .2628E-09,\n     5 .2270E+01, .8344E-02, .1880E-04, .2439E-07,-.5943E-09,\n     5 .3020E+01, .9317E-02, .2190E-04, .2841E-07,-.1494E-08,\n     5 .4049E+01, .1023E-01, .1697E-04, .7381E-07,-.1003E-08,\n     5 .5451E+01, .1143E-01, .8803E-05, .9451E-07,-.3631E-09,\n     5 .7344E+01, .1282E-01,-.8213E-06, .1144E-06,-.9634E-10,\n     5 .9836E+01, .1453E-01,-.1769E-04, .1035E-06, .1590E-08,\n     5 .1305E+02, .1635E-01,-.3205E-04, .1156E-06, .2456E-08,\n     5 .1707E+02, .1775E-01,-.1976E-04, .1495E-06,-.1671E-08,\n     5 .2195E+02, .1731E-01,-.2906E-04, .3484E-06,-.2427E-08,\n     5 .2761E+02, .1700E-01,-.6037E-04, .3231E-06, .5769E-09,\n     5 .3391E+02, .1467E-01,-.3589E-04, .4394E-06,-.6147E-08,\n     6 .2445E+02, .2122E+00, .4472E-03,-.1094E-05,-.1414E-07,\n     6 .2537E+02, .2084E+00, .4022E-03,-.9312E-06,-.6623E-08,\n     6 .2666E+02, .2046E+00, .4210E-03,-.8415E-06,-.1126E-07,\n     6 .2854E+02, .1985E+00, .3881E-03,-.3549E-06,-.1044E-07,\n     6 .3121E+02, .1954E+00, .2828E-03,-.8356E-06, .9093E-09,\n     6 .3480E+02, .1925E+00, .2948E-03,-.1152E-05,-.8685E-08,\n     6 .3976E+02, .1839E+00, .1594E-03,-.4909E-06, .7086E-08,\n     6 .4625E+02, .1761E+00, .1330E-03,-.2552E-06, .2167E-08,\n     6 .5486E+02, .1651E+00, .2576E-03, .1713E-06,-.3532E-07,\n     6 .6619E+02, .1522E+00, .3718E-04, .4508E-06,-.9015E-08,\n     6 .8028E+02, .1386E+00,-.3606E-04, .5855E-06,-.8296E-08,\n     6 .9724E+02, .1263E+00,-.7633E-04, .2208E-06,-.1605E-07,\n     6 .1169E+03, .1075E+00,-.1033E-03, .1081E-05,-.2280E-07,\n     6 .1385E+03, .8503E-01,-.3415E-03, .2483E-05, .1085E-07,\n     6 .1611E+03, .7763E-01,-.2098E-03, .4268E-06,-.2197E-07,\n     6 .1840E+03, .6100E-01,-.4282E-03, .4791E-06, .4600E-08,\n     6 .2041E+03, .3765E-01,-.2582E-03, .9662E-06,-.2339E-07,\n     6 .2196E+03, .9987E-02,-.5177E-03, .1695E-05, .1555E-07 /\n      DATA ((( CS3CO2(K,J,I), K = 1, 5), J = 1, 18), I = 1, 3) /\n     1 .1589E-03, .1640E-05, .7753E-08, .1582E-10, .1076E-12,\n     1 .1969E-03, .1903E-05, .1209E-07, .7832E-11,-.5050E-12,\n     1 .2501E-03, .2122E-05, .1181E-07, .1903E-10,-.1864E-12,\n     1 .3257E-03, .2451E-05, .1067E-07, .2329E-10, .2129E-12,\n     1 .4251E-03, .2872E-05, .1272E-07, .2731E-10,-.1337E-13,\n     1 .5639E-03, .3319E-05, .1416E-07, .5936E-10, .4578E-13,\n     1 .7565E-03, .4035E-05, .1631E-07, .5563E-10,-.3285E-12,\n     1 .1015E-02, .5052E-05, .2185E-07, .2752E-10,-.1078E-11,\n     1 .1378E-02, .6082E-05, .1394E-07, .6454E-10, .3970E-12,\n     1 .1878E-02, .7785E-05,-.2238E-08, .7919E-10, .3187E-11,\n     1 .2537E-02, .9750E-05,-.3206E-08, .1284E-09, .3600E-11,\n     1 .3385E-02, .1406E-04, .1926E-07,-.1047E-09, .5494E-12,\n     1 .4507E-02, .1806E-04, .1531E-07,-.1278E-09, .3997E-11,\n     1 .5905E-02, .2093E-04, .3526E-07, .3254E-10, .2282E-11,\n     1 .7671E-02, .2429E-04, .2548E-07, .1388E-09, .2323E-11,\n     1 .9702E-02, .3106E-04, .5056E-07, .7348E-10, .1621E-11,\n     1 .1215E-01, .3862E-04, .5259E-07,-.5148E-09, .9232E-11,\n     1 .1469E-01, .3781E-04, .2454E-06, .2456E-09,-.1958E-10,\n     2 .2105E-03, .2288E-05, .1443E-07, .7527E-11,-.5328E-12,\n     2 .2738E-03, .2583E-05, .6724E-08, .1626E-10, .8559E-12,\n     2 .3541E-03, .3170E-05, .9352E-08, .3302E-11, .4627E-12,\n     2 .4545E-03, .3917E-05, .2305E-07,-.3317E-10,-.2136E-11,\n     2 .6052E-03, .4615E-05, .2623E-07, .7403E-11,-.2319E-11,\n     2 .8088E-03, .5913E-05, .2950E-07,-.4464E-10,-.2728E-11,\n     2 .1097E-02, .7378E-05, .1852E-07,-.3892E-10, .1180E-12,\n     2 .1485E-02, .9226E-05, .1140E-07,-.1022E-10, .2273E-11,\n     2 .2006E-02, .1190E-04, .9485E-08,-.1098E-09, .4375E-11,\n     2 .2678E-02, .1500E-04, .6989E-07,-.1169E-09,-.3755E-11,\n     2 .3659E-02, .2072E-04, .1151E-06,-.5751E-09,-.1163E-10,\n     2 .4912E-02, .2360E-04, .7839E-07,-.2371E-09, .1976E-12,\n     2 .6481E-02, .2805E-04, .9920E-07,-.2629E-09,-.3809E-11,\n     2 .8480E-02, .3527E-04, .1910E-06,-.4034E-09,-.2034E-10,\n     2 .1086E-01, .4484E-04, .2655E-06,-.6404E-09,-.3327E-10,\n     2 .1411E-01, .5367E-04, .4105E-07,-.1058E-08,-.1568E-12,\n     2 .1767E-01, .5685E-04, .2495E-07, .1098E-09,-.6352E-11,\n     2 .2177E-01, .5640E-04,-.1901E-06, .2717E-08,-.4546E-11,\n     3 .1595E-03, .1355E-05,-.1727E-09, .1354E-10, .8839E-12,\n     3 .2014E-03, .1621E-05, .2632E-08, .9287E-11, .5670E-12,\n     3 .2616E-03, .1946E-05, .4025E-08,-.1691E-11, .3135E-12,\n     3 .3473E-03, .2449E-05, .8980E-09,-.1605E-10, .1302E-11,\n     3 .4594E-03, .2941E-05, .8607E-08, .2806E-11, .4789E-12,\n     3 .6270E-03, .3602E-05, .5125E-08,-.1165E-10, .1216E-11,\n     3 .8471E-03, .4769E-05, .1624E-07,-.9563E-10,-.7373E-12,\n     3 .1191E-02, .5463E-05, .4851E-08,-.2268E-10, .1258E-11,\n     3 .1662E-02, .6062E-05, .5503E-08, .1767E-09, .2756E-12,\n     3 .2283E-02, .7847E-05, .2112E-07, .8182E-10,-.2619E-11,\n     3 .3137E-02, .1043E-04, .1308E-07, .7045E-10,-.2083E-12,\n     3 .4390E-02, .1149E-04, .3458E-07, .2232E-09,-.9584E-11,\n     3 .5971E-02, .1299E-04, .3109E-07, .6560E-09,-.1032E-10,\n     3 .8066E-02, .2216E-04,-.5196E-07, .1403E-09,-.3315E-12,\n     3 .1084E-01, .3230E-04,-.2381E-06, .2725E-09, .3041E-10,\n     3 .1452E-01, .4945E-04,-.1681E-06,-.3496E-09, .6259E-11,\n     3 .1870E-01, .7177E-04, .1857E-06,-.9727E-10,-.6312E-10,\n     3 .2420E-01, .1144E-03,-.3591E-06,-.3906E-08, .4705E-10 /\n      DATA ((( CS3CO2(K,J,I), K = 1, 5), J = 1, 18), I = 4, 6) /\n     4 .1149E-03, .1470E-05, .1180E-07,-.4522E-11,-.9234E-12,\n     4 .1449E-03, .1609E-05, .9413E-08, .1111E-10,-.4038E-12,\n     4 .1875E-03, .1964E-05, .1098E-07,-.1928E-10,-.8581E-12,\n     4 .2418E-03, .2192E-05, .7245E-08, .5254E-10, .3422E-12,\n     4 .3185E-03, .2861E-05,-.2634E-08,-.8221E-11, .2076E-11,\n     4 .4013E-03, .3605E-05, .1092E-07,-.3672E-10,-.9761E-13,\n     4 .5047E-03, .3985E-05, .2437E-07, .3069E-10,-.1265E-11,\n     4 .6761E-03, .4702E-05, .4147E-07, .6096E-10,-.4863E-11,\n     4 .9043E-03, .6012E-05, .6513E-07, .4235E-10,-.7505E-11,\n     4 .1261E-02, .7848E-05, .6756E-07,-.6823E-10,-.8912E-11,\n     4 .1735E-02, .9775E-05, .2034E-07, .1155E-09, .1017E-11,\n     4 .2333E-02, .1269E-04, .2980E-07, .1681E-09, .1106E-11,\n     4 .3137E-02, .1708E-04, .8946E-07, .1505E-09,-.1089E-10,\n     4 .4193E-02, .2075E-04,-.1380E-06, .1071E-09, .3090E-10,\n     4 .5201E-02, .2904E-04, .1113E-07, .8138E-10, .1346E-10,\n     4 .6600E-02, .3531E-04, .9985E-07, .4916E-09, .9948E-12,\n     4 .8448E-02, .4800E-04,-.9133E-07, .4154E-09, .4552E-10,\n     4 .1013E-01, .6543E-04,-.8460E-07,-.1921E-08, .6441E-10,\n     5 .1043E-03, .1342E-05, .9444E-08, .4421E-10, .1312E-12,\n     5 .1341E-03, .1523E-05, .7051E-08, .3751E-10, .3297E-12,\n     5 .1711E-03, .1823E-05, .3842E-08, .1601E-10, .7611E-12,\n     5 .2039E-03, .2098E-05, .1038E-07, .1185E-10,-.6357E-13,\n     5 .2586E-03, .2693E-05, .1116E-07,-.2386E-10, .8329E-13,\n     5 .3329E-03, .2991E-05, .5140E-08, .9912E-11, .1518E-11,\n     5 .4322E-03, .3438E-05, .1227E-07, .3771E-10,-.1171E-12,\n     5 .5531E-03, .4045E-05, .9454E-09, .1085E-09, .3629E-11,\n     5 .7282E-03, .7010E-05, .4254E-07,-.2314E-09,-.3931E-11,\n     5 .1028E-02, .9036E-05,-.1828E-08,-.2506E-09, .4968E-11,\n     5 .1299E-02, .1069E-04, .2735E-07,-.1173E-09, .3509E-11,\n     5 .1669E-02, .1086E-04, .8583E-07, .4590E-09,-.7201E-12,\n     5 .2288E-02, .1309E-04, .2544E-07, .2997E-09, .6622E-11,\n     5 .2989E-02, .1832E-04, .1007E-06, .4619E-09,-.4546E-11,\n     5 .3685E-02, .2291E-04, .1443E-06, .7279E-09,-.5163E-11,\n     5 .4473E-02, .2992E-04, .1805E-07, .5183E-09, .2606E-10,\n     5 .5317E-02, .3785E-04, .1469E-06,-.8436E-09,-.5855E-11,\n     5 .5640E-02, .4414E-04, .4487E-06,-.1092E-08,-.3665E-10,\n     6 .1271E-03, .2029E-05, .2419E-07,-.9357E-10,-.3749E-11,\n     6 .1657E-03, .1906E-05, .3026E-08, .6135E-11, .5054E-12,\n     6 .1977E-03, .2272E-05, .1052E-07, .6407E-10, .1615E-12,\n     6 .2538E-03, .2609E-05,-.1819E-08, .2386E-10, .1774E-11,\n     6 .3033E-03, .3206E-05, .1380E-07,-.3174E-10,-.7921E-12,\n     6 .3598E-03, .4512E-05, .3275E-07,-.1842E-09,-.3494E-11,\n     6 .4649E-03, .4377E-05,-.1060E-07, .9835E-10, .6697E-11,\n     6 .5968E-03, .4370E-05,-.3778E-07, .2550E-09, .1205E-10,\n     6 .7410E-03, .5270E-05, .1088E-07, .2263E-09, .2317E-11,\n     6 .9389E-03, .5604E-05, .3888E-07, .2878E-09,-.2994E-11,\n     6 .1198E-02, .9329E-05, .2683E-07,-.3494E-09,-.9746E-12,\n     6 .1567E-02, .1152E-04,-.7298E-07,-.5222E-09, .1277E-10,\n     6 .1821E-02, .1332E-04,-.1054E-06, .1829E-09, .2918E-10,\n     6 .2061E-02, .1207E-04,-.1083E-06, .6075E-09, .2954E-10,\n     6 .1968E-02, .1176E-04, .1794E-07, .7608E-09, .6172E-11,\n     6 .1665E-02, .2114E-04, .1158E-06,-.1138E-08,-.1305E-10,\n     6 .1355E-02, .1766E-04,-.7097E-07,-.3349E-09, .3554E-10,\n     6 .9925E-03, .1501E-04, .1896E-06,-.3547E-09,-.1132E-10 /\n      DATA ((( CS3CH4(K,J,I), K = 1, 5), J = 1, 18), I = 1, 2) /\n     1 .4760E+01,-.7433E-02,-.8651E-04, .3592E-06, .1382E-07,\n     1 .4876E+01,-.8488E-02,-.1163E-03, .5120E-06, .1951E-07,\n     1 .5001E+01,-.8892E-02,-.1293E-03, .5431E-06, .2234E-07,\n     1 .5122E+01,-.9002E-02,-.1373E-03, .5421E-06, .2384E-07,\n     1 .5215E+01,-.9283E-02,-.1133E-03, .5733E-06, .2014E-07,\n     1 .5336E+01,-.9117E-02,-.1147E-03, .5152E-06, .2047E-07,\n     1 .5443E+01,-.1019E-01,-.1222E-03, .6970E-06, .2244E-07,\n     1 .5554E+01,-.9480E-02,-.1159E-03, .5438E-06, .2150E-07,\n     1 .5655E+01,-.9119E-02,-.1051E-03, .3740E-06, .1915E-07,\n     1 .5715E+01,-.9100E-02,-.4910E-04, .3550E-06, .9870E-08,\n     1 .5829E+01,-.9211E-02,-.2367E-04, .3476E-06, .5370E-08,\n     1 .5912E+01,-.9355E-02, .1798E-04, .3160E-06,-.1129E-08,\n     1 .6047E+01,-.1031E-01, .2895E-04, .4024E-06,-.2268E-08,\n     1 .6183E+01,-.1098E-01, .4426E-04, .4399E-06,-.4526E-08,\n     1 .6319E+01,-.1119E-01, .4734E-04, .4298E-06,-.5364E-08,\n     1 .6440E+01,-.1104E-01, .5316E-04, .2535E-06,-.4902E-08,\n     1 .6572E+01,-.1089E-01, .1532E-04, .1447E-06, .1752E-08,\n     1 .6705E+01,-.1126E-01, .3651E-05, .1196E-06, .3177E-08,\n     2 .2399E+01, .1297E-01, .1701E-03,-.7983E-06,-.3179E-07,\n     2 .2449E+01, .1640E-01, .2868E-03,-.1456E-05,-.5384E-07,\n     2 .2535E+01, .1706E-01, .3039E-03,-.1278E-05,-.5427E-07,\n     2 .2622E+01, .2030E-01, .4541E-03,-.1914E-05,-.8549E-07,\n     2 .2879E+01, .2022E-01, .3127E-03,-.1835E-05,-.6273E-07,\n     2 .2964E+01, .1708E-01, .4294E-03,-.1479E-05,-.8110E-07,\n     2 .3152E+01, .1857E-01, .4116E-03,-.1968E-05,-.7731E-07,\n     2 .3412E+01, .1507E-01, .3193E-03,-.1363E-05,-.6283E-07,\n     2 .3568E+01, .1307E-01, .3454E-03,-.7835E-06,-.6551E-07,\n     2 .3965E+01, .1210E-01, .1274E-03,-.6940E-06,-.3016E-07,\n     2 .4150E+01, .1289E-01, .4190E-04,-.1047E-05,-.1544E-07,\n     2 .4396E+01, .1023E-01,-.9786E-04,-.6204E-06, .7852E-08,\n     2 .4434E+01, .1174E-01,-.1028E-03,-.8347E-06, .7415E-08,\n     2 .4478E+01, .1244E-01,-.1047E-03,-.8041E-06, .6674E-08,\n     2 .4665E+01, .1052E-01,-.1911E-03,-.6572E-06, .2439E-07,\n     2 .4864E+01, .9705E-02,-.2284E-03,-.1546E-06, .2532E-07,\n     2 .4958E+01, .7855E-02,-.7171E-04, .1349E-06,-.1875E-08,\n     2 .5046E+01, .8271E-02,-.8230E-04, .7807E-07, .3644E-08 /\nC\n      COMMON /BANDS3GH/ GWS3GH(4),CS3H2OGH(5,28,2),CS3CO2GH(5,28,4) \n      DATA GWS3GH / 5.23113, 1.01931, 1.13661, .05827 /\n      DATA ((( CS3H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 2) /\n     7 .4090E-01, .6614E-03, .3852E-05,-.5346E-07,-.5943E-09,\n     7 .4155E-01, .6717E-03, .3917E-05,-.5408E-07,-.6069E-09,\n     7 .4221E-01, .6816E-03, .3987E-05,-.5455E-07,-.6221E-09,\n     7 .4228E-01, .6938E-03, .4479E-05,-.5088E-07,-.7647E-09,\n     7 .4289E-01, .7043E-03, .4681E-05,-.5141E-07,-.8060E-09,\n     7 .4379E-01, .7093E-03, .4503E-05,-.4840E-07,-.8074E-09,\n     7 .4383E-01, .6954E-03, .5037E-05,-.4743E-07,-.8966E-09,\n     7 .4450E-01, .7225E-03, .5526E-05,-.4968E-07,-.1017E-08,\n     7 .4430E-01, .7241E-03, .7883E-05,-.4343E-07,-.1410E-08,\n     7 .4405E-01, .7328E-03, .6082E-05,-.4128E-07,-.9625E-09,\n     7 .4844E-01, .4219E-03,-.3186E-05, .1756E-07, .7569E-09,\n     7 .4464E-01, .4431E-03, .3590E-05, .9537E-08,-.4138E-09,\n     7 .4615E-01, .3056E-03, .4806E-06, .2421E-07, .5553E-10,\n     7 .4596E-01, .4087E-03, .3229E-05,-.6091E-10,-.3594E-09,\n     7 .5066E-01, .2991E-03, .4483E-05, .4745E-07,-.4432E-09,\n     7 .6246E-01, .1451E-03, .8931E-06, .8218E-07, .1532E-09,\n     7 .7743E-01, .2978E-03, .3218E-05, .2540E-07,-.8262E-09,\n     7 .1141E+00, .1602E-03,-.1284E-04, .3373E-07, .1619E-08,\n     7 .1351E+00, .1439E-03,-.2873E-04, .4696E-07, .4679E-08,\n     7 .1248E+00, .6543E-03, .7262E-06,-.3586E-07,-.6705E-09,\n     7 .1465E+00, .8661E-03,-.2202E-05,-.3825E-07,-.6210E-09,\n     7 .1542E+00, .6856E-03,-.3397E-05, .6530E-07, .6882E-09,\n     7 .1665E+00, .9407E-03, .1863E-04, .7827E-08,-.3823E-08,\n     7 .1934E+00, .1811E-02, .2740E-04,-.1306E-06,-.5262E-08,\n     7 .1931E+00, .1152E-02, .9134E-05, .4371E-07,-.1913E-09,\n     7 .2062E+00, .1404E-02, .6415E-05, .7587E-08, .6793E-10,\n     7 .2071E+00, .1299E-02, .1244E-04,-.6210E-08,-.1224E-08,\n     7 .2052E+00, .1138E-02, .6010E-05, .3393E-07,-.1002E-09,\n     8 .2692E+04,-.3887E+00,-.6215E-02, .1309E-04,-.2819E-07,\n     8 .2692E+04,-.3886E+00,-.6211E-02, .1307E-04,-.2873E-07,\n     8 .2692E+04,-.3887E+00,-.6211E-02, .1309E-04,-.2874E-07,\n     8 .2692E+04,-.3887E+00,-.6214E-02, .1308E-04,-.2809E-07,\n     8 .2692E+04,-.3887E+00,-.6211E-02, .1308E-04,-.2851E-07,\n     8 .2692E+04,-.3887E+00,-.6216E-02, .1307E-04,-.2742E-07,\n     8 .2691E+04,-.3889E+00,-.6203E-02, .1308E-04,-.2917E-07,\n     8 .2691E+04,-.3889E+00,-.6188E-02, .1305E-04,-.3060E-07,\n     8 .2690E+04,-.3889E+00,-.6176E-02, .1275E-04,-.2704E-07,\n     8 .2688E+04,-.3890E+00,-.6135E-02, .1249E-04,-.2821E-07,\n     8 .2682E+04,-.3883E+00,-.5995E-02, .1111E-04,-.2476E-07,\n     8 .2678E+04,-.3894E+00,-.5865E-02, .9878E-05,-.2258E-07,\n     8 .2672E+04,-.3947E+00,-.5683E-02, .8088E-05,-.1310E-07,\n     8 .2663E+04,-.4096E+00,-.5369E-02, .5914E-05,-.3553E-08,\n     8 .2650E+04,-.4442E+00,-.4699E-02, .4560E-05,-.2833E-07,\n     8 .2632E+04,-.5039E+00,-.3942E-02, .3817E-05,-.4718E-07,\n     8 .2608E+04,-.5748E+00,-.2875E-02, .1508E-06,-.1044E-06,\n     8 .2575E+04,-.6519E+00,-.1817E-02,-.4788E-05,-.1221E-06,\n     8 .2530E+04,-.7391E+00,-.1314E-02,-.9487E-05,-.2249E-07,\n     8 .2466E+04,-.8336E+00,-.3735E-03,-.9715E-05,-.1955E-07,\n     8 .2381E+04,-.8993E+00, .3273E-03,-.1061E-04,-.2583E-08,\n     8 .2268E+04,-.9297E+00, .7265E-03,-.1119E-04, .2304E-07,\n     8 .2126E+04,-.9183E+00, .4952E-03,-.1307E-04, .1552E-06,\n     8 .1957E+04,-.9063E+00, .1787E-02,-.1557E-04,-.1646E-08,\n     8 .1766E+04,-.9301E+00, .1712E-02,-.1116E-04, .5805E-07,\n     8 .1553E+04,-.9041E+00, .2892E-02,-.1484E-04,-.3293E-07,\n     8 .1334E+04,-.8676E+00, .2671E-02,-.1604E-04, .6876E-07,\n     8 .1118E+04,-.7976E+00, .3832E-02,-.2184E-04,-.2388E-07 /\n      DATA ((( CS3CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 2) /\n     7 .5998E-01, .8788E-03, .4237E-05, .5526E-08, .2949E-11,\n     7 .5999E-01, .8788E-03, .4238E-05, .5521E-08, .2914E-11,\n     7 .6001E-01, .8787E-03, .4240E-05, .5506E-08, .2808E-11,\n     7 .6004E-01, .8784E-03, .4246E-05, .5475E-08, .2670E-11,\n     7 .6012E-01, .8774E-03, .4254E-05, .5466E-08, .2877E-11,\n     7 .6033E-01, .8754E-03, .4274E-05, .5455E-08, .1690E-11,\n     7 .6083E-01, .8711E-03, .4292E-05, .5532E-08, .1135E-11,\n     7 .6195E-01, .8635E-03, .4297E-05, .5841E-08,-.1452E-12,\n     7 .6428E-01, .8536E-03, .4284E-05, .6397E-08,-.6745E-11,\n     7 .6882E-01, .8496E-03, .4181E-05, .6368E-08,-.8115E-11,\n     7 .8333E-01, .8678E-03, .3891E-05, .5286E-08, .2289E-11,\n     7 .9233E-01, .8868E-03, .3900E-05, .4514E-08,-.9559E-11,\n     7 .1044E+00, .9098E-03, .3980E-05, .4466E-08,-.2903E-10,\n     7 .1205E+00, .9404E-03, .3859E-05, .4419E-08,-.4627E-13,\n     7 .1424E+00, .9859E-03, .3757E-05, .3067E-08, .1465E-10,\n     7 .1718E+00, .1050E-02, .3886E-05, .4607E-09,-.4396E-11,\n     7 .2115E+00, .1132E-02, .3780E-05,-.2982E-08, .3386E-10,\n     7 .2642E+00, .1188E-02, .3989E-05, .1327E-08, .2682E-10,\n     7 .3336E+00, .1260E-02, .4054E-05, .5781E-08, .7471E-10,\n     7 .4247E+00, .1381E-02, .4379E-05, .5213E-08, .6535E-10,\n     7 .5454E+00, .1566E-02, .4875E-05, .4952E-08,-.4397E-10,\n     7 .7041E+00, .1817E-02, .3137E-05,-.7538E-08, .2525E-09,\n     7 .8996E+00, .2033E-02, .3527E-05,-.2078E-07, .2541E-09,\n     7 .1133E+01, .2093E-02, .5075E-05,-.2984E-07, .2291E-09,\n     7 .1410E+01, .2002E-02, .7502E-05,-.5423E-07, .2280E-09,\n     7 .1745E+01, .1352E-02, .1268E-04,-.2288E-07,-.3499E-09,\n     7 .2142E+01, .4320E-03, .8474E-05, .9677E-08, .1738E-09,\n     7 .2599E+01,-.3257E-03, .5604E-05, .2597E-08, .2432E-09,\n     8 .4463E-03, .8307E-05,-.3433E-07, .2048E-10, .1430E-10,\n     8 .4475E-03, .8326E-05,-.3442E-07, .2052E-10, .1433E-10,\n     8 .4489E-03, .8346E-05,-.3451E-07, .2051E-10, .1436E-10,\n     8 .4508E-03, .8365E-05,-.3463E-07, .2044E-10, .1441E-10,\n     8 .4533E-03, .8385E-05,-.3476E-07, .2021E-10, .1445E-10,\n     8 .4575E-03, .8405E-05,-.3499E-07, .1980E-10, .1449E-10,\n     8 .4648E-03, .8424E-05,-.3534E-07, .1882E-10, .1456E-10,\n     8 .4787E-03, .8444E-05,-.3595E-07, .1675E-10, .1465E-10,\n     8 .5057E-03, .8794E-05,-.4191E-07,-.2605E-09, .1871E-10,\n     8 .5598E-03, .8807E-05,-.4430E-07,-.2722E-09, .1905E-10,\n     8 .7424E-03, .9005E-05,-.4082E-07,-.3493E-09, .1837E-10,\n     8 .8900E-03, .9003E-05,-.4636E-07,-.3769E-09, .1903E-10,\n     8 .1085E-02, .1098E-04,-.8920E-07,-.8430E-09, .2733E-10,\n     8 .1385E-02, .1061E-04,-.8457E-07,-.2774E-09, .1826E-10,\n     8 .1800E-02, .2210E-04,-.3587E-06,-.2764E-08, .6647E-10,\n     8 .1551E-02, .2254E-04, .2210E-06,-.1893E-08,-.3515E-10,\n     8 .1629E-02,-.1009E-04, .3580E-06, .3774E-08,-.7433E-10,\n     8 .1398E-02, .2994E-04, .9413E-07,-.4945E-08,-.3497E-10,\n     8 .8576E-03, .3710E-04, .1048E-05,-.6150E-08,-.1951E-09,\n     8 .1219E-02, .3918E-04, .1070E-05,-.6266E-08,-.1950E-09,\n     8 .1731E-02, .7905E-05, .1396E-06,-.1802E-09, .1317E-10,\n     8 .2246E-02, .6806E-05, .3558E-06, .2573E-08, .1007E-10,\n     8 .2169E-02, .2470E-04,-.4174E-06,-.3887E-08, .1279E-09,\n     8 .4884E-03,-.4568E-05,-.6944E-07, .3013E-08, .5515E-10,\n     8 .4664E-03,-.1944E-05, .1159E-06, .5154E-11,-.1063E-10,\n     8 .6480E-03,-.5752E-05, .1932E-07, .9659E-09, .1025E-10,\n     8 .7927E-03,-.4316E-05, .3472E-08, .2729E-09, .4591E-11,\n     8 .8797E-03,-.3889E-05, .1663E-07, .2916E-09, .1433E-11 /\n      DATA ((( CS3CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 3, 4) /\n     9 .7072E+01, .4635E-01, .6986E-04,-.4740E-06,-.3617E-08,\n     9 .7072E+01, .4635E-01, .6986E-04,-.4740E-06,-.3617E-08,\n     9 .7072E+01, .4635E-01, .6986E-04,-.4740E-06,-.3617E-08,\n     9 .7072E+01, .4635E-01, .6988E-04,-.4740E-06,-.3619E-08,\n     9 .7073E+01, .4634E-01, .6989E-04,-.4740E-06,-.3619E-08,\n     9 .7075E+01, .4633E-01, .6990E-04,-.4740E-06,-.3615E-08,\n     9 .7079E+01, .4631E-01, .6997E-04,-.4744E-06,-.3616E-08,\n     9 .7086E+01, .4626E-01, .7017E-04,-.4760E-06,-.3608E-08,\n     9 .7102E+01, .4615E-01, .7057E-04,-.4788E-06,-.3561E-08,\n     9 .7136E+01, .4586E-01, .7177E-04,-.4800E-06,-.3523E-08,\n     9 .7278E+01, .4465E-01, .7563E-04,-.4760E-06,-.3449E-08,\n     9 .7391E+01, .4377E-01, .7696E-04,-.4662E-06,-.3351E-08,\n     9 .7564E+01, .4264E-01, .7453E-04,-.4606E-06,-.2675E-08,\n     9 .7825E+01, .4096E-01, .7118E-04,-.4239E-06,-.1980E-08,\n     9 .8214E+01, .3867E-01, .6192E-04,-.3572E-06,-.5044E-09,\n     9 .8766E+01, .3552E-01, .5864E-04,-.2787E-06,-.1857E-09,\n     9 .9541E+01, .3102E-01, .5137E-04,-.1241E-06, .9859E-09,\n     9 .1056E+02, .2573E-01, .5714E-04,-.5411E-07,-.3767E-09,\n     9 .1188E+02, .2028E-01, .3384E-04,-.1040E-06, .3031E-08,\n     9 .1348E+02, .1391E-01, .1193E-04,-.1586E-07, .3862E-08,\n     9 .1523E+02, .6412E-02, .1362E-04, .1643E-06, .8792E-09,\n     9 .1690E+02,-.1419E-04, .1943E-04, .1236E-06,-.2510E-09,\n     9 .1836E+02,-.5249E-02,-.2073E-04, .8310E-07, .4450E-08,\n     9 .1938E+02,-.9898E-02,-.2011E-04, .1999E-06, .2000E-08,\n     9 .1991E+02,-.1224E-01,-.3395E-04, .2242E-06, .2341E-08,\n     9 .1993E+02,-.1305E-01,-.5027E-04, .1425E-06, .3202E-08,\n     9 .1930E+02,-.1236E-01,-.5040E-04, .3909E-07, .2455E-08,\n     9 .1797E+02,-.1138E-01,-.4258E-04, .1719E-07, .1772E-08,\n     a .5726E+03,-.8229E+00,-.2428E-02, .7345E-05, .1473E-06,\n     a .5726E+03,-.8229E+00,-.2428E-02, .7351E-05, .1474E-06,\n     a .5726E+03,-.8228E+00,-.2429E-02, .7345E-05, .1475E-06,\n     a .5726E+03,-.8229E+00,-.2428E-02, .7365E-05, .1473E-06,\n     a .5725E+03,-.8228E+00,-.2431E-02, .7372E-05, .1479E-06,\n     a .5725E+03,-.8225E+00,-.2431E-02, .7362E-05, .1479E-06,\n     a .5724E+03,-.8221E+00,-.2433E-02, .7368E-05, .1479E-06,\n     a .5721E+03,-.8213E+00,-.2435E-02, .7407E-05, .1474E-06,\n     a .5715E+03,-.8194E+00,-.2437E-02, .7411E-05, .1464E-06,\n     a .5706E+03,-.8156E+00,-.2453E-02, .7463E-05, .1464E-06,\n     a .5668E+03,-.8013E+00,-.2493E-02, .7561E-05, .1434E-06,\n     a .5641E+03,-.7911E+00,-.2507E-02, .7457E-05, .1413E-06,\n     a .5600E+03,-.7787E+00,-.2452E-02, .7399E-05, .1288E-06,\n     a .5541E+03,-.7590E+00,-.2351E-02, .6716E-05, .1114E-06,\n     a .5453E+03,-.7331E+00,-.2118E-02, .5597E-05, .7853E-07,\n     a .5331E+03,-.6971E+00,-.2033E-02, .4291E-05, .7528E-07,\n     a .5160E+03,-.6415E+00,-.1815E-02, .1410E-05, .4675E-07,\n     a .4933E+03,-.5763E+00,-.1879E-02,-.1765E-06, .7367E-07,\n     a .4634E+03,-.5152E+00,-.1351E-02, .6103E-06, .3226E-09,\n     a .4254E+03,-.4422E+00,-.8841E-03,-.7826E-06,-.1778E-07,\n     a .3806E+03,-.3482E+00,-.9576E-03,-.3944E-05, .4819E-07,\n     a .3315E+03,-.2737E+00,-.1019E-02,-.1508E-05, .4752E-07,\n     a .2801E+03,-.2108E+00,-.2805E-03, .7385E-06,-.5492E-07,\n     a .2314E+03,-.1434E+00,-.4725E-03,-.9929E-06,-.3489E-08,\n     a .1861E+03,-.1157E+00,-.4424E-03, .5096E-06,-.5047E-08,\n     a .1439E+03,-.8308E-01,-.4975E-03, .2899E-06, .1378E-07,\n     a .1073E+03,-.5905E-01,-.2466E-03, .3445E-06,-.8691E-08,\n     a .7825E+02,-.4257E-01,-.3012E-03, .3435E-06, .1945E-07 /\nC\nC----------------------------------------------------------------------C\nC     SPECTRAL REGION: 2500-4200 CM^-1. GAS: H2O, CO2, CH4             C\nC----------------------------------------------------------------------C\nC\n      COMMON /BANDS4/ GWS4(4), CS4H2O(5,18,4), CS4CO2(5,18,4),\n     1                         CS4CH4(5,18,2)\n      DATA GWS4 / 9.28054, 10.50363, 7.63430, 5.99443 /\n      DATA ((( CS4H2O(K,J,I), K = 1, 5), J = 1, 18), I = 1, 4) /\n     1 .5592E-04, .2577E-06,-.1287E-09, .2232E-11,-.7984E-15,\n     1 .8267E-04, .3817E-06,-.2327E-09, .3227E-11, .3594E-14,\n     1 .1222E-03, .5646E-06,-.3442E-09, .4849E-11, .3842E-14,\n     1 .1806E-03, .8374E-06,-.6381E-09, .6654E-11, .2161E-13,\n     1 .2667E-03, .1242E-05,-.1246E-08, .8999E-11, .8306E-13,\n     1 .3936E-03, .1851E-05,-.1463E-08, .1037E-10, .5800E-13,\n     1 .5805E-03, .2748E-05,-.2492E-08, .1169E-10, .1462E-12,\n     1 .8538E-03, .4054E-05,-.3264E-08, .1603E-10, .1681E-12,\n     1 .1253E-02, .5945E-05,-.5601E-08, .2541E-10, .4190E-12,\n     1 .1832E-02, .8736E-05,-.6827E-08, .3203E-10, .4118E-12,\n     1 .2664E-02, .1280E-04,-.5513E-08, .2484E-10,-.9931E-13,\n     1 .3845E-02, .1845E-04,-.6037E-08, .5975E-10,-.5198E-13,\n     1 .5488E-02, .2612E-04,-.2634E-08, .1229E-09,-.7183E-12,\n     1 .7735E-02, .3642E-04,-.7044E-08, .1836E-09,-.1534E-12,\n     1 .1074E-01, .5014E-04,-.1123E-07, .2327E-09, .2741E-12,\n     1 .1459E-01, .6760E-04,-.2248E-07, .2997E-09, .3149E-11,\n     1 .1939E-01, .8921E-04,-.1968E-07, .4573E-09, .5723E-11,\n     1 .2519E-01, .1164E-03, .6593E-08, .4594E-09, .6798E-11,\n     2 .1737E-02, .1381E-04, .2550E-07,-.9943E-10,-.9423E-13,\n     2 .2477E-02, .1942E-04, .3923E-07,-.1386E-09,-.6275E-12,\n     2 .3539E-02, .2735E-04, .5841E-07,-.2036E-09,-.1352E-11,\n     2 .5059E-02, .3855E-04, .8579E-07,-.2984E-09,-.2417E-11,\n     2 .7238E-02, .5414E-04, .1262E-06,-.3918E-09,-.3878E-11,\n     2 .1036E-01, .7529E-04, .1817E-06,-.3652E-09,-.5313E-11,\n     2 .1485E-01, .1047E-03, .2530E-06,-.2549E-09,-.5940E-11,\n     2 .2129E-01, .1464E-03, .3520E-06,-.1399E-09,-.7909E-11,\n     2 .3054E-01, .2048E-03, .4639E-06, .6434E-10,-.5954E-11,\n     2 .4373E-01, .2880E-03, .6325E-06,-.1731E-10,-.8920E-11,\n     2 .6239E-01, .4029E-03, .8870E-06,-.3573E-10,-.1919E-10,\n     2 .8854E-01, .5581E-03, .1099E-05, .5495E-09,-.7205E-11,\n     2 .1244E+00, .7685E-03, .1531E-05, .1430E-08,-.1672E-10,\n     2 .1734E+00, .1060E-02, .2138E-05, .2439E-08,-.2988E-10,\n     2 .2409E+00, .1459E-02, .2604E-05, .3538E-08,-.3703E-11,\n     2 .3316E+00, .1982E-02, .3492E-05, .6135E-08,-.4184E-10,\n     2 .4508E+00, .2678E-02, .4649E-05, .1041E-07,-.5296E-10,\n     2 .6073E+00, .3657E-02, .6078E-05, .6189E-08,-.2860E-10,\n     3 .3525E-01, .2661E-03, .5611E-06,-.1622E-08,-.6309E-11,\n     3 .4817E-01, .3453E-03, .7108E-06,-.1433E-08,-.7615E-11,\n     3 .6628E-01, .4523E-03, .9521E-06,-.1454E-08,-.2059E-10,\n     3 .9160E-01, .5952E-03, .1258E-05,-.1684E-08,-.4299E-10,\n     3 .1272E+00, .7837E-03, .1749E-05,-.2985E-09,-.7960E-10,\n     3 .1779E+00, .1034E-02, .1986E-05, .1948E-08,-.8430E-10,\n     3 .2496E+00, .1387E-02, .2600E-05, .3641E-08,-.1519E-09,\n     3 .3518E+00, .1866E-02, .3210E-05, .8245E-08,-.2363E-09,\n     3 .4966E+00, .2572E-02, .3548E-05, .1028E-07,-.2428E-09,\n     3 .7026E+00, .3614E-02, .3911E-05, .5702E-08,-.2776E-09,\n     3 .9942E+00, .5042E-02, .3764E-05, .7591E-08,-.2550E-09,\n     3 .1403E+01, .7044E-02, .1659E-05, .8579E-08, .1295E-09,\n     3 .1968E+01, .9904E-02,-.3554E-06,-.5085E-08, .4454E-09,\n     3 .2739E+01, .1383E-01, .4070E-06,-.1132E-07, .3275E-09,\n     3 .3776E+01, .1933E-01,-.2005E-05,-.4346E-07, .9674E-09,\n     3 .5120E+01, .2652E-01,-.2988E-05,-.1151E-06, .9606E-09,\n     3 .6760E+01, .3526E-01,-.1111E-04,-.2240E-06, .3458E-08,\n     3 .8610E+01, .4511E-01, .3661E-04,-.3240E-06,-.2824E-08,\n     4 .8116E+00, .5574E-02, .1987E-04, .3976E-07, .3601E-09,\n     4 .1051E+01, .6453E-02, .2090E-04, .2876E-07, .2784E-09,\n     4 .1381E+01, .7553E-02, .2324E-04, .1886E-07, .1448E-09,\n     4 .1833E+01, .8690E-02, .2617E-04, .5986E-07, .1783E-09,\n     4 .2466E+01, .1024E-01, .3010E-04, .1049E-06, .4209E-10,\n     4 .3368E+01, .1209E-01, .2591E-04, .1668E-06, .5946E-09,\n     4 .4609E+01, .1482E-01, .4553E-04, .1798E-06,-.2642E-08,\n     4 .6369E+01, .1790E-01, .4108E-04, .2408E-06,-.1678E-08,\n     4 .8861E+01, .2262E-01, .1943E-04, .2076E-06, .8241E-09,\n     4 .1233E+02, .2849E-01, .2379E-05, .2958E-06, .2152E-08,\n     4 .1709E+02, .3671E-01,-.1159E-04, .2052E-06, .2775E-08,\n     4 .2354E+02, .4598E-01,-.4624E-04, .3609E-06, .1024E-07,\n     4 .3217E+02, .5730E-01,-.1217E-03, .5018E-07, .1940E-07,\n     4 .4332E+02, .6699E-01,-.1205E-03, .3148E-06, .1618E-07,\n     4 .5727E+02, .8306E-01,-.6204E-04,-.2697E-06, .5528E-08,\n     4 .7448E+02, .9151E-01,-.2017E-03, .1814E-06, .2361E-07,\n     4 .9460E+02, .1120E+00,-.5514E-03,-.3244E-05, .9325E-07,\n     4 .1175E+03, .1392E+00, .3271E-03,-.5790E-05,-.2586E-07 /\n      DATA ((( CS4CO2(K,J,I), K = 1, 5), J = 1, 18), I = 1, 4) /\n     1 .6261E-04, .5037E-06, .1374E-09, .1557E-10, .1901E-12,\n     1 .7797E-04, .6904E-06, .5510E-08,-.7219E-11,-.8136E-12,\n     1 .1001E-03, .7793E-06, .3577E-08,-.7829E-11,-.4701E-12,\n     1 .1293E-03, .9082E-06, .3395E-08, .6750E-11,-.7804E-13,\n     1 .1740E-03, .1221E-05, .9226E-08,-.1116E-10,-.1233E-11,\n     1 .2352E-03, .1396E-05,-.7048E-09,-.1618E-10, .3818E-12,\n     1 .2974E-03, .1528E-05, .1026E-07,-.3034E-12,-.1696E-11,\n     1 .3921E-03, .1359E-05,-.6074E-08,-.6263E-11,-.1457E-12,\n     1 .4343E-03, .1054E-06,-.3559E-08, .5859E-10, .1778E-12,\n     1 .4405E-03,-.2235E-06, .2737E-08, .3772E-10,-.1463E-12,\n     1 .4435E-03,-.2474E-07, .6131E-08,-.7681E-11,-.4213E-12,\n     1 .4494E-03, .1261E-06, .2010E-09,-.6716E-10, .9195E-12,\n     1 .4460E-03, .2448E-07, .9120E-08,-.7907E-10,-.6952E-12,\n     1 .4511E-03,-.2294E-06, .6211E-08,-.2296E-10,-.3098E-12,\n     1 .4536E-03,-.5014E-06, .9430E-08, .3714E-10,-.1378E-11,\n     1 .4462E-03,-.4800E-06, .1249E-07, .3812E-10,-.2149E-11,\n     1 .4365E-03,-.2881E-06, .8960E-08,-.1185E-10,-.1193E-11,\n     1 .4384E-03,-.8316E-07, .3455E-08,-.5502E-10,-.6247E-13,\n     2 .2530E-03, .3255E-05, .1424E-07, .4092E-10, .6495E-12,\n     2 .3372E-03, .4202E-05, .7776E-08,-.8892E-11, .1922E-11,\n     2 .4260E-03, .5392E-05, .3533E-07,-.3847E-10,-.2635E-11,\n     2 .5718E-03, .6611E-05, .3602E-07,-.2931E-10,-.2490E-11,\n     2 .7723E-03, .8938E-05, .3108E-07,-.1888E-09,-.1775E-11,\n     2 .1021E-02, .1150E-04, .3347E-07,-.1745E-09, .1515E-12,\n     2 .1377E-02, .1459E-04, .1789E-07,-.2407E-09, .4409E-11,\n     2 .1802E-02, .1775E-04, .1230E-07,-.8160E-10, .1156E-10,\n     2 .2325E-02, .2092E-04, .1196E-06,-.7975E-11,-.6533E-11,\n     2 .3096E-02, .2188E-04, .1242E-07, .4206E-09, .1353E-10,\n     2 .3963E-02, .2430E-04,-.5516E-07, .9825E-09, .3105E-10,\n     2 .5052E-02, .2564E-04,-.5061E-07, .2064E-08, .3339E-10,\n     2 .6190E-02, .2855E-04,-.3880E-07, .2374E-08, .3456E-10,\n     2 .7486E-02, .4424E-04,-.1660E-06, .9655E-10, .6113E-10,\n     2 .8037E-02, .5116E-04, .6480E-06,-.1248E-08,-.7897E-10,\n     2 .9205E-02, .5148E-04,-.8676E-07, .3035E-09, .9142E-10,\n     2 .1002E-01, .6223E-04, .1675E-06,-.5249E-09, .5727E-10,\n     2 .1273E-01, .3489E-04,-.5331E-06, .2284E-08, .1166E-09,\n     3 .1672E-02, .2189E-04, .1305E-06, .3441E-09,-.3714E-11,\n     3 .2281E-02, .2848E-04, .1333E-06, .5774E-09, .2344E-11,\n     3 .3127E-02, .3732E-04, .1285E-06, .7978E-09, .1024E-10,\n     3 .4268E-02, .5143E-04, .2011E-06, .7393E-09, .7058E-11,\n     3 .5937E-02, .6833E-04, .1559E-06, .7198E-09, .2469E-10,\n     3 .8074E-02, .9408E-04, .3375E-06, .3314E-10, .5666E-11,\n     3 .1121E-01, .1259E-03, .3550E-06,-.9904E-10, .2027E-10,\n     3 .1564E-01, .1745E-03, .3868E-06,-.8618E-09, .3906E-10,\n     3 .2184E-01, .2361E-03, .5712E-06,-.3948E-09, .4233E-10,\n     3 .3087E-01, .3176E-03, .3009E-06, .1091E-08, .1374E-09,\n     3 .4256E-01, .4410E-03, .1168E-05,-.2772E-09, .3595E-10,\n     3 .5871E-01, .6256E-03, .2174E-05,-.5481E-08,-.9776E-10,\n     3 .7925E-01, .8404E-03, .3116E-05,-.5324E-08,-.1592E-09,\n     3 .1055E+00, .1152E-02, .5549E-05,-.1392E-07,-.4609E-09,\n     3 .1402E+00, .1442E-02, .4969E-05,-.9516E-08,-.1955E-09,\n     3 .1763E+00, .1727E-02, .5510E-05, .9812E-08, .1655E-09,\n     3 .2140E+00, .2214E-02, .1284E-04,-.6666E-08,-.8985E-09,\n     3 .2469E+00, .2252E-02, .7551E-05, .3861E-07, .6569E-09,\n     4 .2718E-02, .3544E-04, .1086E-06,-.5151E-09, .2852E-13,\n     4 .3695E-02, .4840E-04, .1913E-06,-.7000E-09,-.6782E-11,\n     4 .5107E-02, .6631E-04, .2449E-06,-.8813E-09,-.4336E-11,\n     4 .7083E-02, .9095E-04, .3115E-06,-.1345E-08,-.3109E-11,\n     4 .9688E-02, .1250E-03, .6642E-06,-.1337E-08,-.3880E-10,\n     4 .1367E-01, .1660E-03, .7248E-06, .1952E-10,-.1212E-10,\n     4 .1924E-01, .2299E-03, .9732E-06, .1382E-10,-.1529E-10,\n     4 .2692E-01, .3207E-03, .1658E-05,-.2897E-09,-.8347E-10,\n     4 .3765E-01, .4610E-03, .2371E-05,-.2885E-08,-.1218E-09,\n     4 .5183E-01, .6597E-03, .4395E-05,-.7073E-08,-.3486E-09,\n     4 .7253E-01, .8844E-03, .4624E-05,-.3179E-08,-.2014E-09,\n     4 .9962E-01, .1151E-02, .5207E-05, .1879E-08,-.7895E-10,\n     4 .1364E+00, .1544E-02, .6446E-05, .2586E-08, .1470E-10,\n     4 .1855E+00, .1982E-02, .6654E-05, .1394E-07, .3633E-09,\n     4 .2462E+00, .2578E-02, .8716E-05, .2148E-07, .5396E-09,\n     4 .3209E+00, .3333E-02, .1851E-04,-.2751E-10,-.1142E-08,\n     4 .4063E+00, .3815E-02, .1547E-04, .6847E-07, .3526E-09,\n     4 .5056E+00, .5021E-02, .2618E-04, .3087E-07,-.1368E-08 /\n      DATA ((( CS4CH4(K,J,I), K = 1, 5), J = 1, 18), I = 1, 2) /\n     1 .2404E+01, .1922E-01, .1589E-04, .3120E-07, .3130E-08,\n     1 .2622E+01, .1985E-01, .8354E-05, .1428E-06, .5497E-08,\n     1 .2897E+01, .2082E-01, .1064E-04, .1411E-06, .5144E-08,\n     1 .3235E+01, .2195E-01, .2651E-04, .1600E-06, .2624E-08,\n     1 .3671E+01, .2315E-01, .4736E-04, .1881E-06,-.1044E-08,\n     1 .4261E+01, .2451E-01,-.1116E-06, .2250E-06, .7420E-08,\n     1 .4978E+01, .2665E-01, .1400E-04, .1532E-06, .4900E-08,\n     1 .5912E+01, .2872E-01, .4555E-05, .1568E-06, .7155E-08,\n     1 .7181E+01, .3240E-01, .2954E-04,-.9724E-07, .4783E-09,\n     1 .8793E+01, .3380E-01,-.1014E-04, .1399E-06, .8253E-08,\n     1 .1079E+02, .3466E-01,-.5630E-04, .6485E-06, .1775E-07,\n     1 .1327E+02, .3778E-01, .1983E-05, .4965E-06, .2306E-09,\n     1 .1636E+02, .4285E-01,-.6950E-04, .3729E-06, .1141E-07,\n     1 .2003E+02, .4600E-01,-.3880E-04, .9760E-06,-.2602E-09,\n     1 .2400E+02, .4897E-01,-.1700E-03, .8973E-06, .2581E-07,\n     1 .2827E+02, .5257E-01,-.1923E-04, .6579E-06,-.5314E-08,\n     1 .3263E+02, .5451E-01,-.1602E-03, .3972E-06, .3653E-07,\n     1 .3758E+02, .6678E-01,-.1595E-03,-.8379E-06, .1569E-07,\n     2 .1606E+01, .1498E-01, .4753E-04,-.1993E-06,-.1673E-08,\n     2 .1784E+01, .1619E-01, .4839E-04,-.2824E-06,-.2573E-08,\n     2 .1978E+01, .1730E-01, .4199E-04,-.3251E-06,-.7562E-09,\n     2 .2220E+01, .1803E-01, .5258E-04,-.2383E-06,-.1594E-08,\n     2 .2543E+01, .1805E-01, .3960E-04, .8035E-07, .2780E-08,\n     2 .2928E+01, .1959E-01, .8107E-04, .7686E-07,-.3476E-08,\n     2 .3463E+01, .2116E-01, .7426E-04, .2320E-06,-.5591E-10,\n     2 .4144E+01, .2401E-01, .1235E-03, .9916E-07,-.8085E-08,\n     2 .5009E+01, .2522E-01, .8870E-04, .4139E-06, .4810E-09,\n     2 .6113E+01, .2897E-01, .1353E-03, .3888E-06,-.6142E-08,\n     2 .7610E+01, .3515E-01, .9484E-04,-.1455E-06,-.5165E-09,\n     2 .9302E+01, .3891E-01, .1254E-03, .1830E-06, .5078E-08,\n     2 .1161E+02, .4329E-01, .1841E-03, .3182E-06,-.6170E-08,\n     2 .1437E+02, .5487E-01, .1053E-03,-.1140E-05, .1311E-07,\n     2 .1763E+02, .5832E-01, .3375E-03,-.5222E-06,-.2512E-07,\n     2 .2172E+02, .6013E-01, .4312E-04, .4326E-06, .3830E-07,\n     2 .2692E+02, .6939E-01, .1721E-03, .3783E-06, .1288E-07,\n     2 .3373E+02, .7861E-01, .4114E-03, .1664E-05,-.6396E-09 /\nC\n      COMMON /BANDS4GH/ GWS4GH(9), CS4H2OGH(5,28,6), CS4CO2GH(5,28,6),\n     1                             CS4CH4GH(5,28)\n      DATA GWS4GH / 2.28900, 2.80913, .99438, .67932, .13964,\n     1               .07300,  .02357, .01957, .01083 /\n      DATA ((( CS4H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     5 .2726E+03, .2168E+01,-.3522E-03, .1056E-04, .4138E-06,\n     5 .2722E+03, .2206E+01, .5696E-03, .3559E-05, .2220E-06,\n     5 .2719E+03, .2320E+01,-.1043E-02,-.2148E-04, .5757E-06,\n     5 .2729E+03, .2387E+01,-.4270E-02,-.3509E-04, .1188E-05,\n     5 .2707E+03, .2328E+01,-.2208E-02,-.2483E-04, .8379E-06,\n     5 .2634E+03, .2324E+01, .4172E-02,-.2349E-04,-.2219E-06,\n     5 .2588E+03, .2309E+01, .8432E-02,-.2680E-04,-.9710E-06,\n     5 .2561E+03, .2188E+01, .6812E-02,-.5401E-05,-.5616E-06,\n     5 .2616E+03, .2152E+01,-.6678E-03,-.1263E-04, .6462E-06,\n     5 .2677E+03, .2117E+01,-.2349E-02,-.1610E-04, .7640E-06,\n     5 .2754E+03, .2162E+01, .4339E-02,-.2899E-04,-.2183E-06,\n     5 .2860E+03, .2122E+01, .2513E-02,-.3093E-04, .1283E-06,\n     5 .3020E+03, .2018E+01,-.1983E-04,-.2233E-04, .6163E-06,\n     5 .3259E+03, .1856E+01,-.1469E-02,-.4811E-05, .9509E-06,\n     5 .3532E+03, .1854E+01, .6609E-02,-.9267E-05,-.5244E-06,\n     5 .4054E+03, .1731E+01,-.2606E-02, .1579E-04, .9374E-06,\n     5 .4550E+03, .1798E+01, .4725E-02,-.9628E-05,-.1942E-06,\n     5 .5207E+03, .1531E+01, .1205E-01, .7999E-05,-.1385E-05,\n     5 .6288E+03, .1251E+01, .1979E-02, .5124E-04, .1916E-06,\n     5 .7589E+03, .1451E+01, .5982E-02, .1601E-04,-.8078E-06,\n     5 .9164E+03, .1546E+01,-.6987E-02,-.1463E-04, .1418E-05,\n     5 .1084E+04, .1357E+01, .8108E-02, .3433E-04,-.1229E-05,\n     5 .1302E+04, .1082E+01,-.5348E-02,-.5049E-05, .1016E-05,\n     5 .1520E+04, .5612E+00,-.2590E-02, .2664E-04, .7822E-06,\n     5 .1756E+04, .3074E+00,-.3550E-02,-.2608E-05, .8115E-06,\n     5 .1957E+04, .2334E-01, .4211E-02,-.1794E-04,-.4082E-06,\n     5 .2114E+04,-.1073E+01,-.2399E-01, .2688E-04, .4753E-05,\n     5 .2162E+04,-.1115E+01, .1787E-01,-.8036E-04,-.1357E-05,\n     6 .8795E+01, .7441E-01, .2505E-03,-.5124E-06,-.5407E-08,\n     6 .8989E+01, .7027E-01, .6147E-04, .4680E-06, .3332E-07,\n     6 .9053E+01, .4932E-01, .5292E-03, .5519E-05,-.6462E-07,\n     6 .9031E+01, .4000E-01, .1102E-02, .7722E-05,-.1744E-06,\n     6 .9681E+01, .5050E-01, .4492E-03, .6094E-05,-.5828E-07,\n     6 .1124E+02, .5599E-01,-.7034E-03, .5280E-05, .1298E-06,\n     6 .1194E+02, .5853E-01,-.1178E-02, .5596E-05, .2129E-06,\n     6 .1263E+02, .8399E-01,-.1040E-02, .9051E-06, .1716E-06,\n     6 .1231E+02, .8346E-01, .1726E-03, .3348E-05,-.2068E-07,\n     6 .1230E+02, .8893E-01, .3077E-03, .2845E-05,-.1609E-07,\n     6 .1444E+02, .6203E-01,-.1181E-02, .7041E-05, .2244E-06,\n     6 .1490E+02, .6382E-01,-.5504E-03, .7373E-05, .1169E-06,\n     6 .1587E+02, .8529E-01, .4957E-03, .2055E-05,-.7955E-07,\n     6 .1762E+02, .8863E-01, .6113E-03, .1139E-05,-.1248E-06,\n     6 .2090E+02, .7270E-01,-.2111E-03, .3077E-05, .8283E-08,\n     6 .2429E+02, .7391E-01,-.4123E-03, .3008E-06, .5517E-07,\n     6 .2976E+02, .7631E-01,-.2990E-03,-.1688E-05,-.2329E-07,\n     6 .3674E+02, .1087E+00,-.8494E-03,-.7448E-05, .7146E-07,\n     6 .4285E+02, .8397E-01, .9991E-03,-.4659E-05,-.2454E-06,\n     6 .5283E+02, .5742E-01,-.1447E-02,-.2204E-05, .1853E-06,\n     6 .6551E+02, .4685E-01,-.8482E-03, .1464E-05, .6698E-07,\n     6 .8203E+02, .4464E-01,-.2187E-02,-.3503E-05, .2171E-06,\n     6 .9722E+02, .7826E-01, .5294E-03, .3086E-05,-.2331E-06,\n     6 .1176E+03, .1019E+00,-.6740E-03, .2251E-05,-.7449E-07,\n     6 .1338E+03, .1051E+00,-.2564E-02, .6083E-05, .2898E-06,\n     6 .1458E+03, .1311E+00,-.4765E-03,-.7380E-06,-.8958E-07,\n     6 .1588E+03, .1813E+00, .4481E-02, .9117E-05,-.9424E-06,\n     6 .1820E+03, .1178E+00,-.4064E-02, .2665E-04, .3025E-06,\n     7 .1350E+02, .1258E+00, .9812E-03,-.7326E-05,-.2142E-06,\n     7 .1350E+02, .1220E+00, .1098E-02,-.6730E-05,-.2355E-06,\n     7 .1386E+02, .1317E+00, .4720E-03,-.9470E-05,-.1116E-06,\n     7 .1389E+02, .1286E+00, .3827E-03,-.9154E-05,-.9002E-07,\n     7 .1347E+02, .1296E+00, .1357E-02,-.9382E-05,-.2710E-06,\n     7 .1305E+02, .1165E+00, .1601E-02,-.7478E-05,-.2997E-06,\n     7 .1400E+02, .1185E+00, .8303E-03,-.6943E-05,-.1579E-06,\n     7 .1441E+02, .1034E+00, .1248E-02,-.3646E-05,-.2422E-06,\n     7 .1468E+02, .1208E+00, .1120E-02,-.6506E-05,-.2160E-06,\n     7 .1486E+02, .1132E+00, .1664E-02,-.3621E-05,-.2897E-06,\n     7 .1621E+02, .1545E+00, .2947E-02,-.1319E-04,-.5434E-06,\n     7 .1791E+02, .1449E+00, .2009E-02,-.1273E-04,-.3834E-06,\n     7 .1990E+02, .9078E-01,-.6946E-04, .2927E-05, .1279E-08,\n     7 .2006E+02, .1190E+00, .1243E-02,-.1796E-05,-.2076E-06,\n     7 .2288E+02, .1178E+00,-.1404E-02,-.2334E-05, .2517E-06,\n     7 .2193E+02, .1351E+00, .2600E-02,-.7836E-05,-.4556E-06,\n     7 .2787E+02, .9534E-01,-.4731E-03, .3187E-05, .7110E-07,\n     7 .3671E+02, .1126E+00,-.3526E-02, .9112E-05, .5673E-06,\n     7 .4533E+02, .2142E+00,-.5035E-02,-.6585E-05, .7927E-06,\n     7 .5077E+02, .1978E+00,-.9447E-04,-.7448E-05,-.4328E-08,\n     7 .5932E+02, .1885E+00, .3386E-02,-.4461E-05,-.6316E-06,\n     7 .7326E+02, .2391E+00, .8387E-03,-.6350E-05, .1854E-07,\n     7 .8862E+02, .2698E+00, .9622E-03,-.9800E-05,-.1311E-06,\n     7 .1041E+03, .3608E+00, .3039E-03,-.2158E-04,-.1381E-06,\n     7 .1156E+03, .4188E+00, .6243E-02,-.2891E-04,-.1261E-05,\n     7 .1324E+03, .2857E+00, .1503E-02, .6821E-06,-.2322E-06,\n     7 .1474E+03, .3699E+00,-.2621E-03,-.2587E-04,-.2427E-07,\n     7 .1640E+03, .3430E+00, .1358E-03,-.1905E-04,-.5765E-07 /\n      DATA ((( CS4H2OGH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 6) /\n     8 .2220E+00, .4792E-03,-.1820E-04,-.3642E-07, .1455E-09,\n     8 .2220E+00, .4792E-03,-.1820E-04,-.3642E-07, .1456E-09,\n     8 .2221E+00, .4792E-03,-.1820E-04,-.3643E-07, .1455E-09,\n     8 .2221E+00, .4792E-03,-.1820E-04,-.3645E-07, .1452E-09,\n     8 .2221E+00, .4792E-03,-.1820E-04,-.3649E-07, .1451E-09,\n     8 .2222E+00, .5192E-03,-.1877E-04,-.6892E-07, .6072E-09,\n     8 .2224E+00, .4800E-03,-.1821E-04,-.3673E-07, .1438E-09,\n     8 .2231E+00, .4804E-03,-.1866E-04,-.3703E-07, .2148E-09,\n     8 .1755E+00, .4812E-03, .3045E-04,-.3659E-07,-.7792E-08,\n     8 .1769E+00, .3882E-03, .3168E-04, .3942E-07,-.8912E-08,\n     8 .1924E+00,-.1481E-02,-.2282E-04, .3498E-06, .2478E-08,\n     8 .2002E+00,-.1087E-02,-.1956E-04, .2681E-06, .1574E-08,\n     8 .1339E+00,-.1328E-03, .1769E-04, .1060E-06,-.2596E-08,\n     8 .1413E+00, .8508E-03,-.7776E-05,-.8956E-07, .2247E-08,\n     8 .2017E+00, .7228E-03,-.5996E-04,-.7324E-07, .1063E-07,\n     8 .2177E+00, .2714E-03,-.1114E-04, .6768E-07, .1524E-08,\n     8 .2314E+00, .3160E-03,-.1386E-04,-.2056E-07, .3066E-08,\n     8 .2082E+00,-.1928E-03, .7700E-05, .4832E-07,-.1028E-08,\n     8 .1994E+00,-.1195E-02, .5224E-04, .2436E-06,-.9332E-08,\n     8 .2374E+00,-.1360E-02, .3485E-04, .2686E-06,-.6628E-08,\n     8 .2816E+00,-.1370E-02, .4352E-04, .2655E-06,-.8572E-08,\n     8 .2897E+00, .4256E-03,-.2156E-04,-.3002E-06, .3452E-08,\n     8 .1988E+00, .2117E-03, .5660E-04,-.2571E-06,-.8588E-08,\n     8 .1859E+00, .3160E-03,-.3988E-05, .8252E-08, .3346E-09,\n     8 .1848E+00, .3701E-03,-.1159E-05,-.3270E-08,-.1567E-09,\n     8 .1856E+00, .3254E-03,-.4432E-06, .4024E-08,-.1848E-09,\n     8 .1875E+00, .7164E-04, .1031E-04, .4956E-07,-.2232E-08,\n     8 .1900E+00, .4556E-03, .7244E-05,-.3722E-07,-.1551E-08,\n     a .2581E+05, .1110E+03,-.3482E+00,-.8481E-03, .7094E-05,\n     a .2581E+05, .1110E+03,-.3483E+00,-.8483E-03, .7101E-05,\n     a .2582E+05, .1110E+03,-.3482E+00,-.8485E-03, .7088E-05,\n     a .2582E+05, .1110E+03,-.3481E+00,-.8485E-03, .7088E-05,\n     a .2582E+05, .1110E+03,-.3481E+00,-.8491E-03, .7092E-05,\n     a .2582E+05, .1109E+03,-.3480E+00,-.8498E-03, .7088E-05,\n     a .2582E+05, .1109E+03,-.3476E+00,-.8508E-03, .7047E-05,\n     a .2584E+05, .1107E+03,-.3469E+00,-.8527E-03, .6984E-05,\n     a .2586E+05, .1105E+03,-.3451E+00,-.8549E-03, .6805E-05,\n     a .2590E+05, .1100E+03,-.3416E+00,-.8621E-03, .6497E-05,\n     a .2606E+05, .1078E+03,-.3312E+00,-.8712E-03, .5862E-05,\n     a .2618E+05, .1062E+03,-.3231E+00,-.8886E-03, .5577E-05,\n     a .2635E+05, .1039E+03,-.3109E+00,-.9216E-03, .5333E-05,\n     a .2660E+05, .1004E+03,-.2949E+00,-.1006E-02, .5581E-05,\n     a .2697E+05, .9467E+02,-.2786E+00,-.9339E-03, .5645E-05,\n     a .2746E+05, .8771E+02,-.2791E+00,-.9254E-03, .1031E-04,\n     a .2803E+05, .7802E+02,-.2157E+00,-.9536E-03, .6434E-05,\n     a .2884E+05, .6402E+02,-.1774E+00,-.7108E-03, .8067E-05,\n     a .2981E+05, .4686E+02,-.9132E-01, .2758E-03,-.5779E-05,\n     a .3067E+05, .3637E+02,-.2183E+00,-.6677E-03, .3057E-04,\n     a .3129E+05, .1674E+02,-.6318E-01,-.2634E-03, .9962E-05,\n     a .3120E+05,-.1628E+01, .1538E+00, .2571E-03,-.2915E-04,\n     a .3023E+05,-.8406E+01, .1257E+00,-.2312E-03,-.2068E-04,\n     a .2829E+05,-.1159E+02,-.5485E-02,-.5082E-03, .7188E-05,\n     a .2542E+05,-.1543E+02, .6479E-01,-.3855E-03, .6156E-06,\n     a .2223E+05,-.1859E+02, .7944E-01,-.8370E-04,-.2836E-05,\n     a .1900E+05,-.1906E+02, .7370E-01, .1169E-04,-.2807E-05,\n     a .1573E+05,-.1866E+02, .8298E-01, .9688E-04,-.6710E-05,\n     2 .2764E+06,-.7481E+03, .1670E+01, .1323E-02,-.4270E-04,\n     2 .2764E+06,-.7481E+03, .1672E+01, .1325E-02,-.4298E-04,\n     2 .2764E+06,-.7481E+03, .1670E+01, .1328E-02,-.4279E-04,\n     2 .2764E+06,-.7480E+03, .1671E+01, .1331E-02,-.4298E-04,\n     2 .2764E+06,-.7479E+03, .1670E+01, .1329E-02,-.4293E-04,\n     2 .2764E+06,-.7477E+03, .1669E+01, .1334E-02,-.4286E-04,\n     2 .2763E+06,-.7472E+03, .1665E+01, .1352E-02,-.4263E-04,\n     2 .2761E+06,-.7462E+03, .1661E+01, .1371E-02,-.4276E-04,\n     2 .2758E+06,-.7442E+03, .1650E+01, .1418E-02,-.4231E-04,\n     2 .2751E+06,-.7402E+03, .1630E+01, .1520E-02,-.4198E-04,\n     2 .2724E+06,-.7251E+03, .1556E+01, .1831E-02,-.4071E-04,\n     2 .2704E+06,-.7140E+03, .1510E+01, .2025E-02,-.4104E-04,\n     2 .2676E+06,-.6980E+03, .1443E+01, .2309E-02,-.4147E-04,\n     2 .2634E+06,-.6749E+03, .1342E+01, .2605E-02,-.3914E-04,\n     2 .2575E+06,-.6412E+03, .1289E+01, .2266E-02,-.4164E-04,\n     2 .2494E+06,-.6022E+03, .1275E+01, .2521E-02,-.5625E-04,\n     2 .2388E+06,-.5545E+03, .9650E+00, .3021E-02,-.3194E-04,\n     2 .2247E+06,-.4850E+03, .8193E+00, .1703E-02,-.3721E-04,\n     2 .2066E+06,-.4023E+03, .6581E+00,-.8701E-03,-.2067E-04,\n     2 .1855E+06,-.3298E+03, .5099E+00,-.1223E-02,-.1152E-04,\n     2 .1615E+06,-.2532E+03, .9934E-01,-.2178E-02, .4408E-04,\n     2 .1364E+06,-.1811E+03,-.4081E+00,-.3698E-02, .1433E-03,\n     2 .1106E+06,-.1494E+03, .4278E+00,-.1825E-02, .3201E-05,\n     2 .8718E+05,-.1274E+03, .4363E+00,-.1988E-03,-.1005E-04,\n     2 .6665E+05,-.9968E+02, .4462E+00, .2184E-03,-.2015E-04,\n     2 .4978E+05,-.6806E+02, .1529E+00,-.8756E-03, .1803E-04,\n     2 .3637E+05,-.4709E+02, .1173E+00,-.1442E-02, .1685E-04,\n     2 .2631E+05,-.3286E+02, .1332E+00,-.1131E-02, .6958E-05 /\n      DATA ((( CS4CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 1, 3) /\n     5-.3586E-04, .3917E-06, .4169E-07, .9024E-10,-.5660E-11,\n     5-.8123E-05, .4542E-06, .3356E-07, .7622E-10,-.4055E-11,\n     5 .3542E-04, .8499E-06, .1115E-07, .3252E-10,-.4685E-12,\n     5 .5783E-04, .1176E-05, .1073E-07, .2679E-10,-.1933E-12,\n     5 .9229E-04, .1592E-05, .9939E-08, .5081E-10, .5633E-12,\n     5 .1479E-03, .2427E-05, .1937E-07, .1526E-10,-.1011E-11,\n     5 .2523E-03, .3529E-05, .2235E-07, .5476E-10,-.8509E-12,\n     5 .4245E-03, .5414E-05, .2106E-07, .1319E-09, .9150E-12,\n     5 .7442E-03, .8649E-05, .3172E-08, .2052E-09, .5988E-11,\n     5 .1244E-02, .1477E-04, .5220E-07, .5693E-10,-.8819E-12,\n     5 .3071E-02, .3552E-04, .4904E-08,-.5837E-09, .1015E-10,\n     5 .4289E-02, .5078E-04, .5595E-07,-.1064E-08, .4500E-11,\n     5 .6031E-02, .7573E-04, .1599E-06,-.2316E-08,-.5472E-11,\n     5 .8409E-02, .1010E-03, .2290E-06,-.1712E-08, .3500E-11,\n     5 .1178E-01, .1345E-03, .1636E-06,-.3684E-09, .4749E-10,\n     5 .1646E-01, .1936E-03, .6497E-06,-.1793E-08,-.2176E-10,\n     5 .2284E-01, .2665E-03, .1479E-05, .2175E-09,-.1045E-09,\n     5 .3222E-01, .3552E-03, .1983E-05, .3634E-08,-.1246E-09,\n     5 .4591E-01, .4742E-03, .1590E-05, .8026E-08, .1438E-10,\n     5 .6593E-01, .6249E-03, .9761E-06, .1699E-07, .1762E-09,\n     5 .9540E-01, .9347E-03, .1569E-05, .1082E-07, .1065E-09,\n     5 .1386E+00, .1433E-02,-.4810E-06,-.1224E-08, .6702E-09,\n     5 .1988E+00, .2207E-02, .2960E-06,-.4062E-07, .6399E-09,\n     5 .2802E+00, .3049E-02, .1754E-05,-.3595E-07, .8203E-09,\n     5 .3788E+00, .4419E-02, .1878E-04,-.7727E-07,-.1429E-08,\n     5 .5249E+00, .5667E-02, .8574E-05,-.3228E-07, .1549E-08,\n     5 .6927E+00, .7259E-02, .6496E-05,-.9997E-07, .1757E-08,\n     5 .8476E+00, .1036E-01, .3215E-04,-.2214E-06,-.1200E-09,\n     6 .2207E-01, .6691E-03, .8401E-05, .5634E-07, .1958E-09,\n     6 .2268E-01, .6711E-03, .8375E-05, .5657E-07, .2003E-09,\n     6 .2388E-01, .6739E-03, .8340E-05, .5703E-07, .1991E-09,\n     6 .2602E-01, .6883E-03, .8201E-05, .5621E-07, .2078E-09,\n     6 .2948E-01, .7206E-03, .8133E-05, .5407E-07, .2036E-09,\n     6 .3491E-01, .7709E-03, .8185E-05, .5265E-07, .2006E-09,\n     6 .4365E-01, .8506E-03, .8392E-05, .5094E-07, .1897E-09,\n     6 .5788E-01, .9716E-03, .8844E-05, .4943E-07, .1636E-09,\n     6 .8180E-01, .1158E-02, .9439E-05, .4762E-07, .1610E-09,\n     6 .1223E+00, .1449E-02, .1069E-04, .4494E-07, .1200E-09,\n     6 .2471E+00, .2190E-02, .1432E-04, .4384E-07,-.1022E-10,\n     6 .3302E+00, .2595E-02, .1609E-04, .4974E-07,-.3309E-10,\n     6 .4469E+00, .3122E-02, .1863E-04, .5974E-07,-.1200E-09,\n     6 .6118E+00, .3814E-02, .2179E-04, .7324E-07,-.2581E-09,\n     6 .8465E+00, .4770E-02, .2402E-04, .7915E-07,-.1739E-09,\n     6 .1180E+01, .6011E-02, .2748E-04, .8669E-07,-.2744E-09,\n     6 .1660E+01, .7618E-02, .2701E-04, .1128E-06, .3677E-09,\n     6 .2347E+01, .1006E-01, .2664E-04, .9207E-07, .1119E-08,\n     6 .3314E+01, .1351E-01, .3423E-04, .8469E-08, .8782E-09,\n     6 .4667E+01, .1770E-01, .4059E-04,-.6268E-07, .1788E-08,\n     6 .6533E+01, .2290E-01, .7620E-04,-.1053E-06,-.1551E-08,\n     6 .9116E+01, .2854E-01, .1024E-03,-.1878E-07,-.2669E-08,\n     6 .1261E+02, .3446E-01, .1122E-03, .2696E-06,-.2715E-08,\n     6 .1730E+02, .4271E-01, .7788E-04, .5291E-06, .1076E-08,\n     6 .2357E+02, .5628E-01, .2377E-04, .2886E-06, .4933E-08,\n     6 .3162E+02, .7478E-01,-.4708E-05,-.6628E-06, .1230E-07,\n     6 .4170E+02, .8601E-01, .1364E-03,-.6147E-06,-.1891E-08,\n     6 .5490E+02, .8546E-01, .9435E-04, .1279E-06, .3128E-08,\n     7 .4975E+01, .9627E-01, .6755E-03, .1113E-05,-.9051E-08,\n     7 .4993E+01, .9660E-01, .6780E-03, .1116E-05,-.9090E-08,\n     7 .5013E+01, .9692E-01, .6806E-03, .1118E-05,-.9121E-08,\n     7 .5038E+01, .9717E-01, .6837E-03, .1124E-05,-.9201E-08,\n     7 .5072E+01, .9733E-01, .6870E-03, .1132E-05,-.9274E-08,\n     7 .5130E+01, .9740E-01, .6902E-03, .1135E-05,-.9347E-08,\n     7 .5238E+01, .9723E-01, .6931E-03, .1139E-05,-.9353E-08,\n     7 .5449E+01, .9679E-01, .6941E-03, .1159E-05,-.9359E-08,\n     7 .5861E+01, .9618E-01, .6908E-03, .1210E-05,-.9779E-08,\n     7 .6659E+01, .9633E-01, .6574E-03, .1196E-05,-.7066E-08,\n     7 .9172E+01, .1026E+00, .6102E-03, .6211E-06,-.6252E-08,\n     7 .1077E+02, .1073E+00, .6224E-03, .3816E-06,-.9373E-08,\n     7 .1293E+02, .1124E+00, .6397E-03, .3321E-06,-.1199E-07,\n     7 .1584E+02, .1181E+00, .6475E-03, .4139E-06,-.1133E-07,\n     7 .1982E+02, .1231E+00, .5717E-03, .9387E-06, .6094E-08,\n     7 .2509E+02, .1309E+00, .7233E-03, .1314E-05,-.1761E-07,\n     7 .3239E+02, .1440E+00, .6915E-03, .1293E-05,-.9448E-08,\n     7 .4240E+02, .1572E+00, .6223E-03, .2577E-05,-.6983E-08,\n     7 .5570E+02, .1873E+00, .5946E-03, .1922E-05,-.1659E-07,\n     7 .7348E+02, .2291E+00, .4506E-03, .6033E-06,-.1865E-07,\n     7 .9553E+02, .2809E+00, .2253E-03,-.2824E-05, .4360E-07,\n     7 .1222E+03, .3235E+00, .6616E-03,-.6892E-05, .4119E-07,\n     7 .1561E+03, .2815E+00, .1219E-02,-.3312E-05, .7424E-08,\n     7 .2002E+03, .1965E+00, .1423E-02,-.2842E-05,-.2594E-07,\n     7 .2539E+03, .7295E-01, .1355E-02,-.6921E-06,-.2890E-07,\n     7 .3142E+03,-.6172E-01, .6220E-03, .1974E-05, .2867E-07,\n     7 .3717E+03,-.1545E+00, .2074E-03,-.9001E-06, .1705E-07,\n     7 .4160E+03,-.2249E+00,-.1259E-03,-.9622E-06, .3930E-07 /\n      DATA ((( CS4CO2GH(K,J,I), K = 1, 5), J = 1, 28), I = 4, 6) /\n     9 .3783E+03, .4530E+01, .1476E-01,-.1375E-04,-.2371E-06,\n     9 .3796E+03, .4545E+01, .1481E-01,-.1380E-04,-.2380E-06,\n     9 .3810E+03, .4560E+01, .1486E-01,-.1384E-04,-.2387E-06,\n     9 .3823E+03, .4575E+01, .1491E-01,-.1390E-04,-.2396E-06,\n     9 .3837E+03, .4590E+01, .1496E-01,-.1394E-04,-.2403E-06,\n     9 .3853E+03, .4604E+01, .1501E-01,-.1397E-04,-.2407E-06,\n     9 .3871E+03, .4618E+01, .1505E-01,-.1403E-04,-.2415E-06,\n     9 .3895E+03, .4628E+01, .1513E-01,-.1412E-04,-.2444E-06,\n     9 .3933E+03, .4629E+01, .1526E-01,-.1431E-04,-.2472E-06,\n     9 .4001E+03, .4609E+01, .1557E-01,-.1388E-04,-.2691E-06,\n     9 .4251E+03, .4471E+01, .1562E-01,-.9185E-05,-.2451E-06,\n     9 .4451E+03, .4397E+01, .1525E-01,-.7819E-05,-.1994E-06,\n     9 .4744E+03, .4338E+01, .1414E-01,-.1445E-04,-.4886E-07,\n     9 .5167E+03, .4289E+01, .1234E-01,-.2705E-04, .2173E-06,\n     9 .5752E+03, .4246E+01, .1214E-01,-.4528E-04, .1883E-06,\n     9 .6570E+03, .4078E+01, .1300E-01,-.4486E-04,-.7793E-07,\n     9 .7711E+03, .3761E+01, .1330E-01,-.3409E-04,-.1904E-06,\n     9 .9306E+03, .3268E+01, .1076E-01,-.2771E-04, .1199E-06,\n     9 .1143E+04, .2625E+01, .6926E-02,-.5638E-04, .8222E-06,\n     9 .1407E+04, .1424E+01, .1489E-01,-.6905E-05,-.9028E-06,\n     9 .1713E+04, .4176E-01, .2052E-01, .4325E-04,-.2193E-05,\n     9 .2065E+04,-.1299E+01,-.2324E-03, .8443E-04, .3259E-06,\n     9 .2376E+04,-.1965E+01,-.1994E-01, .7019E-04, .2637E-05,\n     9 .2523E+04,-.2029E+01, .1590E-02, .4053E-04,-.9654E-06,\n     9 .2516E+04,-.1988E+01,-.4558E-02, .3569E-04, .1418E-06,\n     9 .2347E+04,-.1707E+01,-.1043E-01, .3015E-04, .7956E-06,\n     9 .2039E+04,-.1174E+01,-.5731E-02,-.9009E-05,-.6796E-08,\n     9 .1677E+04,-.9375E+00,-.4102E-02, .9802E-06, .2382E-07,\n     1 .1054E+05, .3739E+02,-.2153E+00, .6276E-04, .5170E-05,\n     1 .1054E+05, .3739E+02,-.2153E+00, .6278E-04, .5173E-05,\n     1 .1054E+05, .3739E+02,-.2153E+00, .6293E-04, .5175E-05,\n     1 .1054E+05, .3738E+02,-.2153E+00, .6275E-04, .5172E-05,\n     1 .1054E+05, .3737E+02,-.2152E+00, .6297E-04, .5175E-05,\n     1 .1054E+05, .3735E+02,-.2152E+00, .6310E-04, .5179E-05,\n     1 .1054E+05, .3731E+02,-.2150E+00, .6291E-04, .5170E-05,\n     1 .1055E+05, .3723E+02,-.2146E+00, .6173E-04, .5167E-05,\n     1 .1055E+05, .3707E+02,-.2139E+00, .5855E-04, .5181E-05,\n     1 .1057E+05, .3675E+02,-.2122E+00, .5106E-04, .5185E-05,\n     1 .1063E+05, .3540E+02,-.2016E+00, .3207E-04, .4620E-05,\n     1 .1067E+05, .3428E+02,-.1933E+00, .2658E-04, .4209E-05,\n     1 .1075E+05, .3247E+02,-.1831E+00, .4269E-04, .3981E-05,\n     1 .1086E+05, .2960E+02,-.1644E+00, .1152E-03, .2433E-05,\n     1 .1104E+05, .2555E+02,-.1477E+00, .2011E-03, .1865E-05,\n     1 .1130E+05, .2101E+02,-.1422E+00, .1256E-03, .4224E-05,\n     1 .1163E+05, .1545E+02,-.1330E+00, .4341E-05, .6425E-05,\n     1 .1195E+05, .9180E+01,-.6567E-01,-.9699E-04,-.1151E-05,\n     1 .1225E+05, .2419E+01,-.2109E-01,-.1230E-03,-.3843E-05,\n     1 .1243E+05,-.3630E+01,-.3049E-01,-.1076E-04,-.8186E-06,\n     1 .1218E+05,-.6972E+01,-.2846E-01, .2003E-04,-.1210E-05,\n     1 .1134E+05,-.8201E+01, .1435E-03, .1053E-03,-.4718E-05,\n     1 .9937E+04,-.6245E+01,-.2388E-01, .2701E-04, .3522E-06,\n     1 .8154E+04,-.4637E+01,-.2236E-01,-.3785E-04, .1863E-06,\n     1 .6409E+04,-.3945E+01,-.2824E-01, .3074E-04, .1093E-05,\n     1 .4894E+04,-.2857E+01,-.2079E-01, .2944E-04, .9947E-06,\n     1 .3685E+04,-.2131E+01,-.9061E-02, .3638E-04,-.6150E-07,\n     1 .2747E+04,-.1420E+01,-.1024E-01, .2575E-05, .5252E-06,\n     3 .7181E+05,-.2174E+03, .2331E+00, .7570E-04, .7835E-06,\n     3 .7181E+05,-.2174E+03, .2327E+00, .7402E-04, .8545E-06,\n     3 .7181E+05,-.2173E+03, .2333E+00, .7417E-04, .7244E-06,\n     3 .7180E+05,-.2173E+03, .2326E+00, .7553E-04, .8477E-06,\n     3 .7179E+05,-.2173E+03, .2328E+00, .7546E-04, .7572E-06,\n     3 .7178E+05,-.2172E+03, .2324E+00, .7559E-04, .7768E-06,\n     3 .7174E+05,-.2170E+03, .2321E+00, .7744E-04, .6999E-06,\n     3 .7167E+05,-.2166E+03, .2312E+00, .8530E-04, .5558E-06,\n     3 .7153E+05,-.2157E+03, .2290E+00, .9672E-04, .3421E-06,\n     3 .7125E+05,-.2139E+03, .2260E+00, .1186E-03,-.3004E-06,\n     3 .7021E+05,-.2076E+03, .2131E+00, .1971E-03,-.2279E-05,\n     3 .6945E+05,-.2029E+03, .2037E+00, .2511E-03,-.3651E-05,\n     3 .6837E+05,-.1964E+03, .1800E+00, .3249E-03,-.3888E-05,\n     3 .6681E+05,-.1870E+03, .1407E+00, .4271E-03,-.3136E-05,\n     3 .6459E+05,-.1739E+03, .8587E-01, .4128E-03,-.9457E-07,\n     3 .6151E+05,-.1569E+03, .3713E-01, .4919E-03, .1020E-06,\n     3 .5737E+05,-.1358E+03,-.1248E-01, .7323E-03,-.7098E-06,\n     3 .5210E+05,-.1101E+03,-.1068E+00, .7885E-03, .5417E-05,\n     3 .4567E+05,-.8229E+02,-.1881E+00, .8320E-03, .1052E-04,\n     3 .3830E+05,-.5555E+02,-.1597E+00, .5039E-03, .5656E-05,\n     3 .3073E+05,-.3674E+02,-.1180E+00, .5087E-03, .3420E-05,\n     3 .2383E+05,-.2042E+02,-.1343E+00,-.4800E-04, .7065E-05,\n     3 .1790E+05,-.1400E+02,-.7039E-01, .8280E-04, .1786E-05,\n     3 .1329E+05,-.9804E+01,-.4522E-01, .1105E-03, .1319E-05,\n     3 .9701E+04,-.5980E+01,-.3954E-01, .8881E-04, .1671E-05,\n     3 .6913E+04,-.3794E+01,-.1293E-01, .3508E-04,-.9205E-06,\n     3 .4865E+04,-.2548E+01,-.1945E-01, .2019E-04, .1124E-05,\n     3 .3391E+04,-.1770E+01,-.6844E-02, .1841E-04,-.3833E-06 /\n      DATA ((CS4CH4GH(K,J), K = 1, 5), J = 1, 28)            /\n     8 .1296E+05,-.2822E+01,-.2591E-02, .1616E-03, .3798E-05,\n     8 .1296E+05,-.2822E+01,-.2585E-02, .1616E-03, .3797E-05,\n     8 .1296E+05,-.2822E+01,-.2556E-02, .1617E-03, .3791E-05,\n     8 .1296E+05,-.2822E+01,-.2585E-02, .1617E-03, .3797E-05,\n     8 .1296E+05,-.2821E+01,-.2611E-02, .1618E-03, .3800E-05,\n     8 .1296E+05,-.2819E+01,-.2595E-02, .1618E-03, .3796E-05,\n     8 .1296E+05,-.2815E+01,-.2656E-02, .1618E-03, .3801E-05,\n     8 .1296E+05,-.2808E+01,-.2697E-02, .1621E-03, .3804E-05,\n     8 .1295E+05,-.2796E+01,-.2721E-02, .1618E-03, .3803E-05,\n     8 .1295E+05,-.2783E+01,-.2730E-02, .1619E-03, .3806E-05,\n     8 .1293E+05,-.2783E+01,-.2763E-02, .1651E-03, .3779E-05,\n     8 .1292E+05,-.2781E+01,-.2802E-02, .1662E-03, .3743E-05,\n     8 .1290E+05,-.2776E+01,-.3053E-02, .1685E-03, .3731E-05,\n     8 .1288E+05,-.2765E+01,-.3516E-02, .1711E-03, .3718E-05,\n     8 .1285E+05,-.2741E+01,-.4156E-02, .1738E-03, .3698E-05,\n     8 .1282E+05,-.2701E+01,-.5078E-02, .1773E-03, .3683E-05,\n     8 .1278E+05,-.2643E+01,-.6027E-02, .1805E-03, .3636E-05,\n     8 .1273E+05,-.2579E+01,-.7229E-02, .1848E-03, .3617E-05,\n     8 .1265E+05,-.2519E+01,-.8325E-02, .1876E-03, .3583E-05,\n     8 .1258E+05,-.2474E+01,-.9120E-02, .1856E-03, .3549E-05,\n     8 .1247E+05,-.2487E+01,-.9268E-02, .1833E-03, .3469E-05,\n     8 .1237E+05,-.2559E+01,-.1003E-01, .1797E-03, .3539E-05,\n     8 .1224E+05,-.2684E+01,-.9842E-02, .1770E-03, .3504E-05,\n     8 .1208E+05,-.2799E+01,-.9249E-02, .1703E-03, .3428E-05,\n     8 .1190E+05,-.2897E+01,-.8342E-02, .1695E-03, .3290E-05,\n     8 .1171E+05,-.2955E+01,-.8327E-02, .1661E-03, .3156E-05,\n     8 .1149E+05,-.3082E+01,-.8293E-02, .1604E-03, .2953E-05,\n     8 .1121E+05,-.3367E+01,-.9956E-02, .1624E-03, .3106E-05 /\n      END\n\n      SUBROUTINE CLOUDS (TAUCS, OMCS, GCS, TAUCL, OMCL, GCL, CCLD, CLD,\n     1                   CLDT, WCLW, WCLI, RADEQVW, RADEQVI, WCDW, WCDI,\n     2                   IL1, IL2, ILG, LAY, LEV)\n      PARAMETER (NBS = 4, NBL = 9)\nC\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\nC\n      REAL TAUCS(ILG,LAY,NBS), OMCS(ILG,LAY,NBS), GCS(ILG,LAY,NBS),\n     1     TAUCL(ILG,LAY,NBL), OMCL(ILG,LAY,NBL), GCL(ILG,LAY,NBL)\nC\n      REAL CCLD(ILG,LAY), CLD(ILG,LAY), CLDT(ILG)\nC\nC     * INPUT ARRAYS... \n\n      REAL WCDW(ILG,LAY), WCDI(ILG,LAY), WCLW(ILG,LAY), WCLI(ILG,LAY)   \n      REAL RADEQVW(ILG,LAY), RADEQVI(ILG,LAY)\n\nC     * WORK ARRAY\n\n      REAL REW1(ILG,LAY), REW2(ILG,LAY), REW3(ILG,LAY), DG(ILG,LAY),\n     1     DG2(ILG,LAY), DG3(ILG,LAY), WCLWI(ILG,LAY)\nC\n      DATA CUT, RADW, RADI /0.001, 0.1, 0.1/\nC\n      COMMON / WATOP / AWS(4,NBS), BWS(4,NBS), CWS(4,NBS),\n     1                 AWL(5,NBL), BWL(4,NBL), CWL(4,NBL)\n      COMMON / ICEOP / AIS(2,NBS), BIS(4,NBS), CIS(4,NBS),\n     1                 AIL(3,NBL), BIL(4,NBL), CIL(4,NBL)\nC\nC----------------------------------------------------------------------C\nC     CLOUD RADIATIVE PROPERTIES FOR RADIATION.                        C\nC     TAUCS, OMCS, GCS (TAUCL, OMCL, GCL): OPTICAL DEPTH, SINGLE       C\nC     SCATTERING ALBEDO, ASYMMETRY FACTOR FOR SOLAR (INFRARED).        C\nC                                                                      C\nC     RADEQVW:     EFFECTIVE RADIU (IN MICROMETER) FOR WATER CLOUD     C\nC     RADEQVI:     EFFECTIVE RADIU (IN MICROMETER) FOR ICE CLOUD       C\nC     DG:          GEOMETRY LENGTH FOR ICE CLOUD                       C\nC     WCDW (WCDI): LIQUID WATER (ICE) CONTENT (IN GRAM / M^3)          C\nC     WCLW (WCLI): LIQUID WATER (ICE) PATH LENGTH (IN GRAM / M^2)      C\nC     WCLWI:       THE SUM OF THE WATER PATH AND ICE PATH              C\nC     CCLD:        CLOUD FRACTION                                      C\nC     CLD:         EFFECTIVE CLOUD FRACTION (IE THE CLOUD WATER        C\nC                  PATH > 0.001)                                       C\nC     CLDT:        THE TOTAL CLOUD FRACTION FOR A GRID CELL            C\nC                                                                      C\nC     PARAMETERIZATION FOR WATER CLOUD:                                C\nC     DOBBIE, ETC. 1999, JGR, 104, 2067-2079                           C\nC     LINDNER, T. H. AND J. LI., 2000, J. CLIM., 13, 1797-1805.        C\nC     PARAMETERIZATION FOR ICE CLOUD:                                  C\nC     FU 1996, J. CLIM., 9, 2223-2337.                                 C\nC     FU ET AL. 1998 J. CLIM., 11, 2223-2337.                          C\nC----------------------------------------------------------------------C\nC\nC\n      DO 100 J = 1, LAY\n      DO 100 K = IL1, IL2\n        IF (CCLD(K,J) .LE. CUT)                                     THEN\n          REW1(K,J)  =  0.\n          REW2(K,J)  =  0.\n          REW3(K,J)  =  0.\n          DG(K,J)    =  0.\n          DG2(K,J)   =  0.\n          DG3(K,J)   =  0.\n          WCLWI(K,J) =  0.\n          CLD (K,J)  =  0.\n        ELSE\n          REW1(K,J)  =  MAX (RADEQVW(K,J), RADW) \n          REW2(K,J)  =  REW1(K,J) * REW1(K,J)\n          REW3(K,J)  =  REW2(K,J) * REW1(K,J)\n          DG(K,J)    =  1.5396 * MAX (RADEQVI(K,J), RADI)\n          DG2(K,J)   =  DG(K,J)  * DG(K,J)\n          DG3(K,J)   =  DG2(K,J) * DG(K,J)\n          WCLWI(K,J) =  WCLW(K,J) + WCLI(K,J)       \nC\nC----------------------------------------------------------------------C\nC     THE EFFECTIVE CLOUD AMOUNT CLD, TO ELIMINATE THE CLOUDS WITH TOO C\nC     WATER PATH                                                       C\nC----------------------------------------------------------------------C\nC\n          IF (WCLWI(K,J) .GT. CUT)                                  THEN\n            CLD(K,J) = CCLD(K,J)\n          ELSE\n            CLD(K,J) = 0.\n          ENDIF\nC\n        ENDIF\n\n  100 CONTINUE\nC\n      DO 290 I = 1, NBS\n        DO 280 J = 1, LAY\n          DO 270 K = IL1, IL2\n            IF (CCLD(K,J) .LE. CUT)                                 THEN\n              TAUCS(K,J,I) =  0.\n              OMCS(K,J,I)  =  0.\n              GCS(K,J,I)   =  0.\n            ELSE\n              IF (WCLWI(K,J) .GT. CUT)                              THEN\n                TAUSW =  WCLW(K,J) * (AWS(1,I) + AWS(2,I) / REW1(K,J) + \n     2                   AWS(3,I) / REW2(K,J) + AWS(4,I) / REW3(K,J))\n                OMSW  =  1.0 - (BWS(1,I) + BWS(2,I) * REW1(K,J) +\n     1                   BWS(3,I) * REW2(K,J) + BWS(4,I) * REW3(K,J))\n                GSW   =  CWS(1,I) + CWS(2,I) * REW1(K,J) +\n     1                   CWS(3,I) * REW2(K,J) + CWS(4,I) * REW3(K,J)\nC\n                TAUSI =  WCLI(K,J) * (AIS(1,I) + AIS(2,I) / DG(K,J))\n                OMSI  =  1.0 - (BIS(1,I) + BIS(2,I) * DG(K,J) +\n     1                   BIS(3,I) * DG2(K,J) + BIS(4,I) * DG3(K,J))\n                GSI   =  CIS(1,I) + CIS(2,I) * DG(K,J) + \n     1                   CIS(3,I) * DG2(K,J) + CIS(4,I) * DG3(K,J)\n              ELSE\n                TAUSW =  0.\n                OMSW  =  0.\n                GSW   =  0.\nC\n                TAUSI =  0.\n                OMSI  =  0.\n                GSI   =  0.\n              ENDIF\nC\n!Yu+test\n!              TAUSW = 2.*TAUSW\n!              TAUSI = 2.*TAUSI\n!Yu+test\n              TAUCS(K,J,I)  =  TAUSW + TAUSI\n              IF (TAUCS(K,J,I) .GT. 0.)                             THEN\n                Y1          =  OMSW * TAUSW \n                Y2          =  OMSI * TAUSI \n                OMCS(K,J,I) = (Y1 + Y2) / TAUCS(K,J,I) \n                GCS (K,J,I) = (Y1 * GSW + Y2 * GSI) / (Y1 + Y2)\n              ELSE\n                OMCS(K,J,I) =  0.\n                GCS (K,J,I) =  0.\n              ENDIF\nC\n            OMCS(K,J,I) = MIN(OMCS(K,J,I),0.999)       !!!\n            GCS (K,J,I) = MIN(GCS (K,J,I),0.999)       !!!\nC\n            ENDIF\n  270     CONTINUE\n  280   CONTINUE\n  290 CONTINUE  \n\n      DO 390 I = 1, NBL\n        DO 380 J = 1, LAY\n          DO 370 K = IL1, IL2\n            IF (CCLD(K,J) .LE. CUT)                                 THEN\n              TAUCL(K,J,I) =  0.\n              OMCL(K,J,I)  =  0.\n              GCL(K,J,I)   =  0.\n            ELSE\n              IF (WCLWI(K,J) .GT. CUT)                              THEN\n                TAULW  =  WCLW(K,J) * (AWL(1,I) + AWL(2,I) * REW1(K,J) + \n     1                    AWL(3,I) / REW1(K,J) + AWL(4,I) / REW2(K,J) + \n     2                    AWL(5,I) / REW3(K,J))\n                OMLW   =  1.0 - (BWL(1,I) + BWL(2,I) / REW1(K,J) + \n     1                    BWL(3,I) * REW1(K,J) + BWL(4,I) * REW2(K,J))\n                GLW    =  CWL(1,I) + CWL(2,I) / REW1(K,J) + \n     1                    CWL(3,I) * REW1(K,J) + CWL(4,I) * REW2(K,J)\nC\nC----------------------------------------------------------------------C\nC     SINCE IN FU ETC. THE PARAM. IS FOR ABSORPTANCE, SO NEED A FACTOR C\nC     WCLI(K,J) / TAULI FOR SINGLE SCATTERING ALBEDO                   C\nC----------------------------------------------------------------------C\nC\n                TAULI  =  WCLI(K,J) * (AIL(1,I) + AIL(2,I) / DG(K,J) +\n     1                   AIL(3,I) / DG2(K,J))\n                IF (TAULI .GT. 0.0)                                 THEN\n                  OMLI =  1.0 - (BIL(1,I) / DG(K,J) + BIL(2,I) +\n     1                    BIL(3,I) * DG(K,J) + BIL(4,I) * DG2(K,J)) *\n     2                    WCLI(K,J) / TAULI\n                ELSE\n                  OMLI =  0.0\n                ENDIF\nC\n                GLI    =  CIL(1,I) + CIL(2,I) * DG(K,J) + \n     1                    CIL(3,I) * DG2(K,J) + CIL(4,I) * DG3(K,J)\n              ELSE\n                TAULW  =  0.\n                OMLW   =  0.\n                GLW    =  0.\nC\n                TAULI  =  0.\n                OMLI   =  0.\n                GLI    =  0.\n              ENDIF\nC\n              TAUCL(K,J,I)   =  TAULW + TAULI\n              IF (TAUCL(K,J,I) .GT. 0.)                             THEN\n                Y1           =  OMLW * TAULW \n                Y2           =  OMLI * TAULI\n                OMCL(K,J,I)  = (Y1 + Y2) / TAUCL(K,J,I)\n                GCL (K,J,I)  = (GLW * Y1 + GLI * Y2) / (Y1 + Y2)\n              ELSE\n                OMCL(K,J,I)  =  0.\n                GCL (K,J,I)  =  0.\n              ENDIF\n            ENDIF\n  370     CONTINUE\n  380   CONTINUE\n  390 CONTINUE \nC\nC----------------------------------------------------------------------C\nC     CALCULATE THE TOTAL DIAGNOSTIC OVERLAPPED CLOUD AMOUNT FOR THE   C\nC     GRID CELL BASED ON THE RANDOM / MAXIMUM OVERLAP ASSUMPTION       C\nC----------------------------------------------------------------------C\nC\n      DO 460 K = IL1, IL2\n        CLDT(K) = CLD(K,1)\n  460 CONTINUE\nC\n      DO 490 J = 2, LAY\n        JM1 = J - 1\n        DO 480 K = IL1, IL2\n          IF (CLD(K,JM1) .GT. CUT)                                  THEN\n            CLDT(K) = MAX(CLDT(K), CLD(K,J))\n          ELSE\n            CLDT(K) = 1. - (1. - CLDT(K)) * (1. - CLD(K,J))\n          ENDIF\n  480   CONTINUE\n  490 CONTINUE\nC\n      RETURN\n      END\n\n      BLOCK DATA DATCLDOP\n      PARAMETER (NBS = 4, NBL = 9)\n      IMPLICIT REAL (A-H,O-Z),\n     +INTEGER (I-N)\n\n      COMMON / WATOP / AWS(4,NBS), BWS(4,NBS), CWS(4,NBS),\n     1                 AWL(5,NBL), BWL(4,NBL), CWL(4,NBL)\n      COMMON / ICEOP / AIS(2,NBS), BIS(4,NBS), CIS(4,NBS),\n     1                 AIL(3,NBL), BIL(4,NBL), CIL(4,NBL)\nC\nC     --------------------------------------------------------\nC     NEW WATER PROPERTIES FOR SW (DOBBIE, LI, AND CHYLEK 1999, JGR)\nC     --------------------------------------------------------\nC\n        DATA ((AWS(I,J), I = 1, 4), J = 1, NBS)           /\n     1  4.554E-04,   1.500E+00,   7.190E-01,  -9.419E-01,\n     2  3.859E-04,   1.508E+00,   9.512E-01,  -1.053E+00,\n     3 -3.946E-05,   1.538E+00,   1.035E+00,   2.638E-01,\n     4  2.936E-04,   1.541E+00,   1.698E-00,   1.521E+00  /\n        DATA ((BWS(I,J), I = 1, 4), J = 1, NBS)           /\n     1  6.481E-08,   1.553E-07,  -7.755E-10,   7.616E-12,\n     2  1.072E-05,   1.345E-05,  -1.799E-08,  -3.146E-11,\n     3  4.078E-04,   2.169E-03,  -2.177E-05,   1.506E-07,\n     4  2.013E-01,   1.109E-02,  -2.897E-04,   3.055E-06  /\n        DATA ((CWS(I,J), I = 1, 4), J = 1, NBS)           /\n     1  8.069E-01,   6.188E-03,  -2.065E-04,   2.352E-06,\n     2  7.685E-01,   9.337E-03,  -3.101E-04,   3.527E-06,\n     3  7.471E-01,   9.440E-03,  -2.616E-04,   2.614E-06,\n     4  7.956E-01,   8.138E-03,  -1.861E-04,   1.611E-06  /\nC\nC     --------------------------------------------------------\nC     NEW WATER PROPERTIES FOR LW (LINDNER AND LI, 2000 JCL)\nC     --------------------------------------------------------\nC\n        DATA ((AWL(I,J), I = 1, 5), J = 1, NBL)                      /\n     1   -.21671E-01, .79578E-03, .14899E+01, .62606E+01,-.12705E+02,\n     2   -.14126E+00, .28208E-02, .35125E+01,-.34541E+01,-.22679E+01,\n     3   -.18829E+00, .34065E-02, .46731E+01,-.11664E+02, .87105E+01,\n     4   -.16383E+00, .26574E-02, .48670E+01,-.16442E+02, .16128E+02,\n     5   -.20294E-01, .85110E-04, .28650E+01,-.11202E+02, .12047E+02,\n     6    .28752E-01,-.37315E-03, .14591E+01,-.48788E+01, .49725E+01,\n     7   -.40386E-01, .80822E-03, .25318E+01,-.64641E+01, .55609E+01,\n     8   -.48716E-01, .81275E-03, .30390E+01,-.97845E+01, .95101E+01,\n     9    .64794E-01,-.98530E-03, .12797E+01,-.55272E+01, .62599E+01 /\n        DATA ((BWL(I,J), I = 1, 4), J = 1, NBL)          /\n     1    .36899E-02,-.54184E-03, .14561E-01,-.18451E-03,\n     2    .62141E-02, .61190E-01, .21127E-01,-.29731E-03,\n     3    .87326E-01, .29908E+00, .22928E-01,-.35569E-03,\n     4   -.37551E-01, .70237E+00, .26945E-01,-.37999E-03,\n     5    .51671E-01, .10199E+01, .18296E-01,-.21209E-03,\n     6    .52184E+00, .72352E+00,-.48090E-02, .10414E-03,\n     7    .57688E+00, .63008E+00,-.56325E-02, .87852E-04,\n     8    .50346E+00, .79407E+00,-.13179E-02, .25467E-04,\n     9    .67792E+00, .68259E+00,-.12136E-01, .20941E-03 /\n        DATA ((CWL(I,J), I = 1, 4), J = 1, NBL)          /\n     1    .73147E+00, .11761E+00, .86402E-02,-.10761E-03,\n     2    .81284E+00,-.60287E-01, .45367E-02,-.33372E-04,\n     3    .92468E+00,-.39653E+00, .30494E-03, .20980E-04,\n     4    .10006E+01,-.71422E+00,-.46784E-02, .10114E-03,\n     5    .10635E+01,-.10097E+01,-.58726E-02, .97485E-04,\n     6    .10762E+01,-.12482E+01,-.40343E-02, .54330E-04,\n     7    .97445E+00,-.13875E+01, .79204E-03,-.27995E-04,\n     8    .79053E+00,-.13566E+01, .10452E-01,-.18111E-03,\n     9    .35512E+00,-.80671E+00, .30384E-01,-.47204E-03 /\nC\nC----------------------------------------------------------------------C\nC    ICE FU 1997 JCL, FU ET AL. 1998 JCL                               C\nC----------------------------------------------------------------------C\nC\n        DATA ((AIS(I,J), I = 1, 2), J = 1, NBS) /\n     1 -0.24276E-04, 2.51884E+00,\n     2 -0.48500E-04, 2.52275E+00,\n     3 -0.98503E-05, 2.52048E+00,\n     4  0.24435E-03, 2.49116E+00                /\nC\n        DATA ((BIS(I,J), I = 1, 4), J = 1, NBS)            /\n     1  0.13031E-06, 0.94102E-07,-0.75971E-10, 0.33977E-12,\n     2 -0.77603E-06, 0.73420E-05, 0.11514E-09,-0.90818E-12,\n     3  0.10007E-02, 0.10992E-02,-0.45043E-05, 0.12637E-07,\n     4  0.21201E+00, 0.25713E-02,-0.19228E-04, 0.62183E-07 /\nC\n        DATA ((CIS(I,J), I = 1, 4), J = 1, NBS)            /\n     1  0.74821E+00, 0.92318E-03,-0.72862E-06,-0.95642E-08,\n     2  0.75227E+00, 0.10653E-02,-0.24930E-05,-0.29114E-08,\n     3  0.75553E+00, 0.17297E-02,-0.87585E-05, 0.19201E-07,\n     4  0.84323E+00, 0.20925E-02,-0.18302E-04, 0.60381E-07 /\nC\n        DATA ((AIL(I,J), I = 1, 3), J = 1, NBL)    /\n     1 -.8839455E-03,  .2662598E+01,  .2196338E+01,\n     2 -.2066995E-02,  .2787904E+01,  .1397838E+01,\n     3 -.3085730E-02,  .2906257E+01, -.1911363E+01,\n     4 -.6968920E-02,  .3284275E+01, -.6973825E+01,\n     5 -.8372696E-02,  .3455018E+01, -.1516692E+02,\n     6 -.1691632E-02,  .2765756E+01, -.8331033E+01,\n     7 -.7098616E-02,  .3343404E+01, -.8144649E+01,\n     8 -.1041746E-01,  .3824226E+01, -.2255945E+02,\n     9  .5689700E-02,  .2285636E+01, -.1430752E+02 /\nC\n        DATA ((BIL(I,J), I = 1, 4), J = 1, NBL)                   /\n     1  .5723611E+00,  .1627863E-01, -.1684272E-03,  .6061332E-06,\n     2  .4402328E+00,  .1736939E-01, -.1656608E-03,  .5709622E-06,\n     3  .8802908E+00,  .1249744E-01, -.1550609E-03,  .6105065E-06,\n     4  .6351165E+00,  .1781519E-01, -.1979682E-03,  .6000892E-06,\n     5  .5409536E-00,  .1949649E-01, -.2050908E-03,  .7364680E-06,\n     6  .1195515E+01,  .3350616E-02, -.5266996E-04,  .2233377E-06,\n     7  .1186334E+01,  .6213290E-02, -.1044277E-03,  .2233377E-06,\n     8  .2279562E+00,  .2017007E-01, -.1756872E-03,  .5703918E-06,\n     9  .7718967E+00,  .2120626E-01, -.2587649E-03,  .9878070E-06 /\nC\n        DATA ((CIL(I,J), I = 1, 4), J = 1, NBL)                   /\n     1  .7975757E+00,  .3843973E-02, -.3540463E-04,  .1179791E-06,\n     2  .7947997E+00,  .3190423E-02, -.2386042E-04,  .6691811E-07,\n     3  .8737279E+00,  .2465886E-02, -.2468764E-04,  .8686448E-07,\n     4  .8577221E+00,  .2321034E-02, -.1897764E-04,  .8641223E-07,\n     5  .8906280E-00,  .1903269E-02, -.1733552E-04,  .5855071E-07,\n     6  .8663385E-00,  .2797934E-02, -.3187011E-04,  .1217209E-06,\n     7  .7644037E+00,  .4427001E-02, -.4494615E-04,  .1217209E-06,\n     8  .7200100E+00,  .3220301E-02, -.2195542E-04,  .6604318E-07,\n     9  .5355918E+00,  .1127081E-01, -.1234705E-03,  .4567953E-06 /\nC\n\n      END\n\n!      END MODULE APM_RADF_MOD\n#endif\n"
  },
  {
    "path": "APM/apm_rrtmg_mods.F90",
    "content": "#ifdef APM\n      module parkind\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg kinds\n! Define integer and real kinds for various types.\n!\n! Initial version: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!\n!     integer kinds\n!     -------------\n!\n      integer, parameter :: kind_ib = selected_int_kind(13)  ! 8 byte integer\n      integer, parameter :: kind_im = selected_int_kind(6)   ! 4 byte integer\n      integer, parameter :: kind_in = kind(1)                ! native integer\n\n!\n!     real kinds\n!     ----------\n!\n      integer, parameter :: kind_rb = selected_real_kind(12) ! 8 byte real\n      integer, parameter :: kind_rm = selected_real_kind(6)  ! 4 byte real\n      integer, parameter :: kind_rn = kind(1.0)              ! native real\n\n      end module parkind\n\n      module parrrsw\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw main parameters\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! mxlay  :  integer: maximum number of layers\n! mg     :  integer: number of original g-intervals per spectral band\n! nbndsw :  integer: number of spectral bands\n! naerec :  integer: number of aerosols (iaer=6, ecmwf aerosol option)\n! ngptsw :  integer: total number of reduced g-intervals for rrtmg_lw\n! ngNN   :  integer: number of reduced g-intervals per spectral band\n! ngsNN  :  integer: cumulative number of g-intervals per band\n!------------------------------------------------------------------\n\n!Yu      integer(kind=im), parameter :: mxlay  = 203    !jplay, klev\n!Luo      integer(kind=im), parameter :: mxlay  = 47    !jplay, klev\n#if   defined( GRIDREDUCED )\n      integer(kind=im), parameter :: mxlay  = 47    !jplay, klev\n#else\n      integer(kind=im), parameter :: mxlay  = 72     !jplay, klev\n#endif\n      integer(kind=im), parameter :: mg     = 16     !jpg\n      integer(kind=im), parameter :: nbndsw = 14     !jpsw, ksw\n      integer(kind=im), parameter :: naerec  = 6     !jpaer\n!Yu      integer(kind=im), parameter :: mxmol  = 38\n      integer(kind=im), parameter :: mxmol  = 7\n      integer(kind=im), parameter :: nstr   = 2\n      integer(kind=im), parameter :: nmol   = 7\n! Use for 112 g-point model   \n      integer(kind=im), parameter :: ngptsw = 112    !jpgpt\n! Use for 224 g-point model   \n!      integer(kind=im), parameter :: ngptsw = 224   !jpgpt\n\n! may need to rename these - from v2.6\n      integer(kind=im), parameter :: jpband   = 29\n      integer(kind=im), parameter :: jpb1     = 16   !istart\n      integer(kind=im), parameter :: jpb2     = 29   !iend\n\n      integer(kind=im), parameter :: jmcmu    = 32\n      integer(kind=im), parameter :: jmumu    = 32\n      integer(kind=im), parameter :: jmphi    = 3\n      integer(kind=im), parameter :: jmxang   = 4\n      integer(kind=im), parameter :: jmxstr   = 16\n! ^\n\n! Use for 112 g-point model   \n      integer(kind=im), parameter :: ng16 = 6\n      integer(kind=im), parameter :: ng17 = 12\n      integer(kind=im), parameter :: ng18 = 8\n      integer(kind=im), parameter :: ng19 = 8\n      integer(kind=im), parameter :: ng20 = 10\n      integer(kind=im), parameter :: ng21 = 10\n      integer(kind=im), parameter :: ng22 = 2\n      integer(kind=im), parameter :: ng23 = 10\n      integer(kind=im), parameter :: ng24 = 8\n      integer(kind=im), parameter :: ng25 = 6\n      integer(kind=im), parameter :: ng26 = 6\n      integer(kind=im), parameter :: ng27 = 8\n      integer(kind=im), parameter :: ng28 = 6\n      integer(kind=im), parameter :: ng29 = 12\n\n      integer(kind=im), parameter :: ngs16 = 6\n      integer(kind=im), parameter :: ngs17 = 18\n      integer(kind=im), parameter :: ngs18 = 26\n      integer(kind=im), parameter :: ngs19 = 34\n      integer(kind=im), parameter :: ngs20 = 44\n      integer(kind=im), parameter :: ngs21 = 54\n      integer(kind=im), parameter :: ngs22 = 56\n      integer(kind=im), parameter :: ngs23 = 66\n      integer(kind=im), parameter :: ngs24 = 74\n      integer(kind=im), parameter :: ngs25 = 80\n      integer(kind=im), parameter :: ngs26 = 86\n      integer(kind=im), parameter :: ngs27 = 94\n      integer(kind=im), parameter :: ngs28 = 100\n      integer(kind=im), parameter :: ngs29 = 112\n\n! Use for 224 g-point model   \n!      integer(kind=im), parameter :: ng16 = 16\n!      integer(kind=im), parameter :: ng17 = 16\n!      integer(kind=im), parameter :: ng18 = 16\n!      integer(kind=im), parameter :: ng19 = 16\n!      integer(kind=im), parameter :: ng20 = 16\n!      integer(kind=im), parameter :: ng21 = 16\n!      integer(kind=im), parameter :: ng22 = 16\n!      integer(kind=im), parameter :: ng23 = 16\n!      integer(kind=im), parameter :: ng24 = 16\n!      integer(kind=im), parameter :: ng25 = 16\n!      integer(kind=im), parameter :: ng26 = 16\n!      integer(kind=im), parameter :: ng27 = 16\n!      integer(kind=im), parameter :: ng28 = 16\n!      integer(kind=im), parameter :: ng29 = 16\n\n!      integer(kind=im), parameter :: ngs16 = 16\n!      integer(kind=im), parameter :: ngs17 = 32\n!      integer(kind=im), parameter :: ngs18 = 48\n!      integer(kind=im), parameter :: ngs19 = 64\n!      integer(kind=im), parameter :: ngs20 = 80\n!      integer(kind=im), parameter :: ngs21 = 96\n!      integer(kind=im), parameter :: ngs22 = 112\n!      integer(kind=im), parameter :: ngs23 = 128\n!      integer(kind=im), parameter :: ngs24 = 144\n!      integer(kind=im), parameter :: ngs25 = 160\n!      integer(kind=im), parameter :: ngs26 = 176\n!      integer(kind=im), parameter :: ngs27 = 192\n!      integer(kind=im), parameter :: ngs28 = 208\n!      integer(kind=im), parameter :: ngs29 = 224\n\n! Source function solar constant\n      real(kind=rb), parameter :: rrsw_scon = 1.36822e+03     ! W/m2\n \n      end module parrrsw\n\n\n      module rrsw_aer\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, naerec\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw aerosol optical properties\n!\n!  Data derived from six ECMWF aerosol types and defined for\n!  the rrtmg_sw spectral intervals\n!\n! Initial: J.-J. Morcrette, ECMWF, mar2003\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n!\n!-- The six ECMWF aerosol types are respectively:\n!\n!  1/ continental average                 2/ maritime\n!  3/ desert                              4/ urban\n!  5/ volcanic active                     6/ stratospheric background\n!\n! computed from Hess and Koepke (con, mar, des, urb)\n!          from Bonnel et al.   (vol, str)\n!\n! rrtmg_sw 14 spectral intervals (microns):\n!  3.846 -  3.077\n!  3.077 -  2.500\n!  2.500 -  2.150\n!  2.150 -  1.942\n!  1.942 -  1.626\n!  1.626 -  1.299\n!  1.299 -  1.242\n!  1.242 -  0.7782\n!  0.7782-  0.6250\n!  0.6250-  0.4415\n!  0.4415-  0.3448\n!  0.3448-  0.2632\n!  0.2632-  0.2000\n! 12.195 -  3.846\n!\n!------------------------------------------------------------------\n!\n!  name     type     purpose\n! -----   : ----   : ----------------------------------------------\n! rsrtaua : real   : ratio of average optical thickness in \n!                    spectral band to that at 0.55 micron\n! rsrpiza : real   : average single scattering albedo (unitless)\n! rsrasya : real   : average asymmetry parameter (unitless)\n!------------------------------------------------------------------\n\n      real(kind=rb) :: rsrtaua(nbndsw,naerec)\n      real(kind=rb) :: rsrpiza(nbndsw,naerec)\n      real(kind=rb) :: rsrasya(nbndsw,naerec)\n\n      end module rrsw_aer\n\n      module rrsw_cld\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw cloud property coefficients\n!\n! Initial: J.-J. Morcrette, ECMWF, oct1999\n! Revised: J. Delamere/MJIacono, AER, aug2005\n! Revised: MJIacono, AER, nov2005\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n!\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! xxxliq1 : real   : optical properties (extinction coefficient, single \n!                    scattering albedo, assymetry factor) from\n!                    Hu & Stamnes, j. clim., 6, 728-742, 1993.  \n! xxxice2 : real   : optical properties (extinction coefficient, single \n!                    scattering albedo, assymetry factor) from streamer v3.0,\n!                    Key, streamer user's guide, cooperative institude \n!                    for meteorological studies, 95 pp., 2001.\n! xxxice3 : real   : optical properties (extinction coefficient, single \n!                    scattering albedo, assymetry factor) from\n!                    Fu, j. clim., 9, 1996.\n! xbari   : real   : optical property coefficients for five spectral \n!                    intervals (2857-4000, 4000-5263, 5263-7692, 7692-14285,\n!                    and 14285-40000 wavenumbers) following \n!                    Ebert and Curry, jgr, 97, 3831-3836, 1992.\n!------------------------------------------------------------------\n\n      real(kind=rb) :: extliq1(58,16:29), ssaliq1(58,16:29), asyliq1(58,16:29)\n      real(kind=rb) :: extice2(43,16:29), ssaice2(43,16:29), asyice2(43,16:29)\n      real(kind=rb) :: extice3(46,16:29), ssaice3(46,16:29), asyice3(46,16:29)\n      real(kind=rb) :: fdlice3(46,16:29)\n      real(kind=rb) :: abari(5),bbari(5),cbari(5),dbari(5),ebari(5),fbari(5)\n\n      end module rrsw_cld\n\n      module rrsw_con\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw constants\n\n! Initial version: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! fluxfac:  real   : radiance to flux conversion factor \n! heatfac:  real   : flux to heating rate conversion factor\n!oneminus:  real   : 1.-1.e-6\n! pi     :  real   : pi\n! grav   :  real   : acceleration of gravity\n! planck :  real   : planck constant\n! boltz  :  real   : boltzmann constant\n! clight :  real   : speed of light\n! avogad :  real   : avogadro constant \n! alosmt :  real   : loschmidt constant\n! gascon :  real   : molar gas constant\n! radcn1 :  real   : first radiation constant\n! radcn2 :  real   : second radiation constant\n! sbcnst :  real   : stefan-boltzmann constant\n!  secdy :  real   : seconds per day\n!------------------------------------------------------------------\n\n      real(kind=rb) :: fluxfac, heatfac\n      real(kind=rb) :: oneminus, pi, grav\n      real(kind=rb) :: planck, boltz, clight\n      real(kind=rb) :: avogad, alosmt, gascon\n      real(kind=rb) :: radcn1, radcn2\n      real(kind=rb) :: sbcnst, secdy\n\n      end module rrsw_con\n\n      module rrsw_kg16\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng16\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 16\n! band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no16 = 16\n\n      real(kind=rb) :: kao(9,5,13,no16)\n      real(kind=rb) :: kbo(5,13:59,no16)\n      real(kind=rb) :: selfrefo(10,no16), forrefo(3,no16)\n      real(kind=rb) :: sfluxrefo(no16)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 16\n! band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng16) , absa(585,ng16)\n      real(kind=rb) :: kb(5,13:59,ng16), absb(235,ng16)\n      real(kind=rb) :: selfref(10,ng16), forref(3,ng16)\n      real(kind=rb) :: sfluxref(ng16)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg16\n\n      module rrsw_kg17\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng17\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 17\n! band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no17 = 16\n\n      real(kind=rb) :: kao(9,5,13,no17)\n      real(kind=rb) :: kbo(5,5,13:59,no17)\n      real(kind=rb) :: selfrefo(10,no17), forrefo(4,no17)\n      real(kind=rb) :: sfluxrefo(no17,5)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 17\n! band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng17) , absa(585,ng17)\n      real(kind=rb) :: kb(5,5,13:59,ng17), absb(1175,ng17)\n      real(kind=rb) :: selfref(10,ng17), forref(4,ng17)\n      real(kind=rb) :: sfluxref(ng17,5)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))\n\n      end module rrsw_kg17\n\n      module rrsw_kg18\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng18\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 18\n! band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no18 = 16\n\n      real(kind=rb) :: kao(9,5,13,no18)\n      real(kind=rb) :: kbo(5,13:59,no18)\n      real(kind=rb) :: selfrefo(10,no18), forrefo(3,no18)\n      real(kind=rb) :: sfluxrefo(no18,9)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 18\n! band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng18), absa(585,ng18)\n      real(kind=rb) :: kb(5,13:59,ng18), absb(235,ng18)\n      real(kind=rb) :: selfref(10,ng18), forref(3,ng18)\n      real(kind=rb) :: sfluxref(ng18,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg18\n\n      module rrsw_kg19\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng19\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 19\n! band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no19 = 16\n\n      real(kind=rb) :: kao(9,5,13,no19)\n      real(kind=rb) :: kbo(5,13:59,no19)\n      real(kind=rb) :: selfrefo(10,no19), forrefo(3,no19)\n      real(kind=rb) :: sfluxrefo(no19,9)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 19\n! band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng19), absa(585,ng19)\n      real(kind=rb) :: kb(5,13:59,ng19), absb(235,ng19)\n      real(kind=rb) :: selfref(10,ng19), forref(3,ng19)\n      real(kind=rb) :: sfluxref(ng19,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg19\n\n      module rrsw_kg20\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng20\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 20\n! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n! absch4o : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no20 = 16\n\n      real(kind=rb) :: kao(5,13,no20)\n      real(kind=rb) :: kbo(5,13:59,no20)\n      real(kind=rb) :: selfrefo(10,no20), forrefo(4,no20)\n      real(kind=rb) :: sfluxrefo(no20)\n      real(kind=rb) :: absch4o(no20)\n\n      real(kind=rb) :: rayl \n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 20\n! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n! absch4  : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng20), absa(65,ng20)\n      real(kind=rb) :: kb(5,13:59,ng20), absb(235,ng20)\n      real(kind=rb) :: selfref(10,ng20), forref(4,ng20)\n      real(kind=rb) :: sfluxref(ng20)\n      real(kind=rb) :: absch4(ng20)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg20\n\n      module rrsw_kg21\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng21\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 21\n! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no21 = 16\n\n      real(kind=rb) :: kao(9,5,13,no21)\n      real(kind=rb) :: kbo(5,5,13:59,no21)\n      real(kind=rb) :: selfrefo(10,no21), forrefo(4,no21)\n      real(kind=rb) :: sfluxrefo(no21,9)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 21\n! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng21), absa(585,ng21)\n      real(kind=rb) :: kb(5,5,13:59,ng21), absb(1175,ng21)\n      real(kind=rb) :: selfref(10,ng21), forref(4,ng21)\n      real(kind=rb) :: sfluxref(ng21,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))\n\n      end module rrsw_kg21\n\n      module rrsw_kg22\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng22\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 22\n! band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no22 = 16\n\n      real(kind=rb) :: kao(9,5,13,no22)\n      real(kind=rb) :: kbo(5,13:59,no22)\n      real(kind=rb) :: selfrefo(10,no22), forrefo(3,no22)\n      real(kind=rb) :: sfluxrefo(no22,9)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 22\n! band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng22), absa(585,ng22)\n      real(kind=rb) :: kb(5,13:59,ng22), absb(235,ng22)\n      real(kind=rb) :: selfref(10,ng22), forref(3,ng22)\n      real(kind=rb) :: sfluxref(ng22,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg22\n\n      module rrsw_kg23\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng23\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 23\n! band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no23 = 16\n\n      real(kind=rb) :: kao(5,13,no23)\n      real(kind=rb) :: selfrefo(10,no23), forrefo(3,no23)\n      real(kind=rb) :: sfluxrefo(no23)\n      real(kind=rb) :: raylo(no23)\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 23\n! band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng23), absa(65,ng23)\n      real(kind=rb) :: selfref(10,ng23), forref(3,ng23)\n      real(kind=rb) :: sfluxref(ng23), rayl(ng23)\n\n      equivalence (ka(1,1,1),absa(1,1))\n\n      end module rrsw_kg23\n\n      module rrsw_kg24\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng24\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 24\n! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n! abso3ao : real     \n! abso3bo : real     \n! raylao  : real     \n! raylbo  : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no24 = 16\n\n      real(kind=rb) :: kao(9,5,13,no24)\n      real(kind=rb) :: kbo(5,13:59,no24)\n      real(kind=rb) :: selfrefo(10,no24), forrefo(3,no24)\n      real(kind=rb) :: sfluxrefo(no24,9)\n      real(kind=rb) :: abso3ao(no24), abso3bo(no24)\n      real(kind=rb) :: raylao(no24,9), raylbo(no24)\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 24\n! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n! abso3a  : real     \n! abso3b  : real     \n! rayla   : real     \n! raylb   : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng24), absa(585,ng24)\n      real(kind=rb) :: kb(5,13:59,ng24), absb(235,ng24)\n      real(kind=rb) :: selfref(10,ng24), forref(3,ng24)\n      real(kind=rb) :: sfluxref(ng24,9)\n      real(kind=rb) :: abso3a(ng24), abso3b(ng24)\n      real(kind=rb) :: rayla(ng24,9), raylb(ng24)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg24\n\n      module rrsw_kg25\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng25\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 25\n! band 25: 16000-22650 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n!sfluxrefo: real     \n! abso3ao : real     \n! abso3bo : real     \n! raylo   : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no25 = 16\n\n      real(kind=rb) :: kao(5,13,no25)\n      real(kind=rb) :: sfluxrefo(no25)\n      real(kind=rb) :: abso3ao(no25), abso3bo(no25)\n      real(kind=rb) :: raylo(no25)\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 25\n! band 25: 16000-22650 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! absa    : real\n! sfluxref: real     \n! abso3a  : real     \n! abso3b  : real     \n! rayl    : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng25), absa(65,ng25)\n      real(kind=rb) :: sfluxref(ng25)\n      real(kind=rb) :: abso3a(ng25), abso3b(ng25)\n      real(kind=rb) :: rayl(ng25)\n\n      equivalence (ka(1,1,1),absa(1,1))\n\n      end module rrsw_kg25\n\n      module rrsw_kg26\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng26\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 26\n! band 26: 22650-29000 cm-1 (low - nothing; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!sfluxrefo: real     \n! raylo   : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no26 = 16\n\n      real(kind=rb) :: sfluxrefo(no26)\n      real(kind=rb) :: raylo(no26)\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 26\n! band 26: 22650-29000 cm-1 (low - nothing; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! sfluxref: real     \n! rayl    : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: sfluxref(ng26)\n      real(kind=rb) :: rayl(ng26)\n\n      end module rrsw_kg26\n\n      module rrsw_kg27\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng27\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 27\n! band 27: 29000-38000 cm-1 (low - o3; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n!sfluxrefo: real     \n! raylo   : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no27 = 16\n\n      real(kind=rb) :: kao(5,13,no27)\n      real(kind=rb) :: kbo(5,13:59,no27)\n      real(kind=rb) :: sfluxrefo(no27)\n      real(kind=rb) :: raylo(no27)\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 27\n! band 27: 29000-38000 cm-1 (low - o3; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! sfluxref: real     \n! rayl    : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng27), absa(65,ng27)\n      real(kind=rb) :: kb(5,13:59,ng27), absb(235,ng27)\n      real(kind=rb) :: sfluxref(ng27)\n      real(kind=rb) :: rayl(ng27)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg27\n\n      module rrsw_kg28\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng28\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 28\n! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no28 = 16\n\n      real(kind=rb) :: kao(9,5,13,no28)\n      real(kind=rb) :: kbo(5,5,13:59,no28)\n      real(kind=rb) :: sfluxrefo(no28,5)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 28\n! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng28), absa(585,ng28)\n      real(kind=rb) :: kb(5,5,13:59,ng28), absb(1175,ng28)\n      real(kind=rb) :: sfluxref(ng28,5)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))\n\n      end module rrsw_kg28\n\n      module rrsw_kg29\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng29\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 29\n! band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real     \n!sfluxrefo: real     \n! absh2oo : real     \n! absco2o : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no29 = 16\n\n      real(kind=rb) :: kao(5,13,no29)\n      real(kind=rb) :: kbo(5,13:59,no29)\n      real(kind=rb) :: selfrefo(10,no29), forrefo(4,no29)\n      real(kind=rb) :: sfluxrefo(no29)\n      real(kind=rb) :: absh2oo(no29), absco2o(no29)\n\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 29\n! band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! selfref : real     \n! forref  : real     \n! sfluxref: real     \n! absh2o  : real     \n! absco2  : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng29), absa(65,ng29)\n      real(kind=rb) :: kb(5,13:59,ng29), absb(235,ng29)\n      real(kind=rb) :: selfref(10,ng29), forref(4,ng29)\n      real(kind=rb) :: sfluxref(ng29)\n      real(kind=rb) :: absh2o(ng29), absco2(ng29)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg29\n\nmodule rrsw_ncpar\n\tuse parkind ,only : im => kind_im, rb => kind_rb\n\n\timplicit none\n    save\n\t\n    real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air\n                                        \t\t ! at constant pressure at 273 K\n                                        \t\t ! (J kg-1 K-1)\n\n\tinteger(kind=im), dimension(50) :: status\n\tinteger(kind=im) :: i\n\tinteger(kind=im), parameter :: keylower      = 9,  &\n\t\t\t\t\t\t  keyupper      = 5,  &\n\t\t\t\t\t\t  Tdiff         = 5,  &\n\t\t\t\t\t\t  ps            = 59, &\n\t\t\t\t\t\t  plower        = 13, &\n\t\t\t\t\t\t  pupper        = 47, &\n\t\t\t\t\t\t  Tself         = 10, &\n\t\t\t\t\t\t  Tforeignlower = 3,  &\n\t\t\t\t\t\t  Tforeignupper = 2,  &\n\t\t\t\t\t\t  pforeign      = 4,  &\n\t\t\t\t\t\t  T             = 19, &\n\t\t\t\t\t\t  band          = 14, &\n\t\t\t\t\t\t  GPoint        = 16, &\n\t\t\t\t\t\t  GPointSet     = 2\n\t\n\tinteger(kind=im), parameter :: maxAbsorberNameLength   = 5,  &\n                          Absorber                = 12, &\n                          maxKeySpeciesNameLength = 3,  &\n                          maxKeySpeciesNames      = 2\n                          \n    character(len = maxAbsorberNameLength), dimension(Absorber), parameter :: &\n    AbsorberNames = (/        &\n     \t\t\t\t'N2   ',  &\n     \t\t\t\t'CCL4 ',  &\n     \t\t\t\t'CFC11',  &\n     \t\t\t\t'CFC12',  &\n     \t\t\t\t'CFC22',  &\n     \t\t\t\t'H2O  ',  &\n     \t\t\t\t'CO2  ',  &\n     \t\t\t\t'O3   ',  &\n     \t\t\t\t'N2O  ',  & \n     \t\t\t\t'CO   ',  &\n     \t\t\t\t'CH4  ',  &\n     \t\t\t\t'O2   '  /)\n\t\n\tcharacter(len = maxKeySpeciesNameLength), dimension(band,maxKeySpeciesNames), parameter :: &\n    KeySpeciesNamesLower = RESHAPE( SOURCE = (/ 'H2O', 'H2O', 'H2O', 'H2O', 'H2O', 'H2O', 'H2O', &\n\t\t\t\t\t\t\t  \t\t\t\t\t'H2O', 'H2O', 'H2O', '   ', 'O3 ', 'O3 ', 'H2O', &\n\t\t\t\t\t\t\t  \t\t\t\t\t'CH4', 'CO2', 'CH4', 'CO2', '   ', 'CO2', 'O2 ', &\n\t\t\t\t\t\t\t  \t\t\t\t\t'   ', 'O2 ', '   ', '   ', '   ', 'O2 ', '   '  /), &\n\t\t\t\t\t\t\t  \t\tSHAPE = (/ band, maxKeySpeciesNames /) )\n\t\t\t\t\t\t\t  \n\tcharacter(len = maxKeySpeciesNameLength), dimension(band,maxKeySpeciesNames), parameter :: &\n    KeySpeciesNamesUpper = RESHAPE( SOURCE = (/ 'CH4', 'H2O', 'CH4', 'CO2', 'H2O', 'H2O', 'O2 ', &\n\t\t\t\t\t\t\t \t\t\t\t\t'   ', 'O2 ', '   ', '   ', 'O3 ', 'O3 ', 'CO2', &\n\t\t\t\t\t\t\t  \t\t\t\t\t'   ', 'CO2', '   ', '   ', '   ', 'CO2', '   ', &\n\t\t\t\t\t\t\t  \t\t\t\t\t'   ', '   ', '   ', '   ', '   ', 'O2 ', '   '  /), &\n\t\t\t\t\t\t\t  \t\tSHAPE = (/ band, maxKeySpeciesNames /) )\n\t\t\t\t\t\t\t\n\tinteger(kind=im), dimension(band)     :: BandNums = (/ 16, 17, 18, 19, 20, 21, 22, &\n\t\t\t\t\t\t\t\t\t\t  \t\t        23, 24, 25, 26, 27, 28, 29 /)\n\t\t\t\t\t\t\t\t\t\t      \n\treal(kind=rb), dimension(keylower) :: KeySpeciesLower = (/ 1.0, 0.125, 0.25, 0.375, &\n\t\t\t\t\t\t\t\t\t\t\t      \t\t\t   0.50, 0.625, 0.75, 0.875, 1.0 /)\n\t\t\t\t\t\t\t\t\t\t\t          \n\treal(kind=rb), dimension(keyupper) :: KeySpeciesUpper = (/ 0.0, 0.25, 0.50, 0.75, 1.0 /)\n\t\t\n\treal(kind=rb), dimension(Tdiff)    :: TempDiffs = (/ -30, -15, 0, 15, 30 /)\n\t\t\t\t\t\t\t\t\t\t      \n\treal(kind=rb), dimension(Tself)    :: TempSelf = (/ 245.6,252.8,260.0,267.2,274.4, &\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t281.6,288.8,296.0,303.2,310.4 /)\t\t\n\t\n\treal(kind=rb), dimension(Tforeignlower) :: TempForeignlower = (/ 296, 260, 224 /)\n\t\n\treal(kind=rb), dimension(Tforeignupper) :: TempForeignupper = (/ 224, 260 /)\n\t\n\treal(kind=rb), dimension(pforeign) :: PressForeign = (/ 970, 475, 219, 3 /)\n\t\t\t\n\treal(kind=rb), dimension(T)        :: Temp = (/188.0, 195.2, 202.4, 209.6, 216.8, 224.0, &\n\t\t\t\t\t\t\t\t   \t\t\t\t   231.2, 238.4, 245.6, 252.8, 260.0, 267.2, &\n\t\t\t\t\t\t\t\t   \t\t\t\t   274.4, 281.6, 288.8, 296.0, 303.2, 310.4, 317.6 /)\n\t\n\tcontains \n\t\n\tsubroutine getAbsorberIndex(AbsorberName,AbsorberIndex)\n\t\tcharacter(len = *), intent(in) :: AbsorberName\n\t\tinteger(kind=im), intent(out)           :: AbsorberIndex\n\t\t\n\t\tinteger(kind=im) :: m\n\t\n\t\tAbsorberIndex = -1\n\t\tdo m = 1, Absorber\n\t\t\tif (trim(AbsorberNames(m)) == trim(AbsorberName)) then\n\t\t\t\tAbsorberIndex = m\n\t\t\tend if\n\t\tend do\n\t\t\n\t\tif (AbsorberIndex == -1) then\n\t\t\tprint*, \"Absorber name index lookup failed.\"\n\t\tend if\n\tend subroutine getAbsorberIndex\n\nend module rrsw_ncpar\n      module rrsw_ref\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw reference atmosphere \n! Based on standard mid-latitude summer profile\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! pref   :  real   : Reference pressure levels\n! preflog:  real   : Reference pressure levels, ln(pref)\n! tref   :  real   : Reference temperature levels for MLS profile\n!------------------------------------------------------------------\n\n      real(kind=rb) , dimension(59) :: pref\n      real(kind=rb) , dimension(59) :: preflog\n      real(kind=rb) , dimension(59) :: tref\n\n      end module rrsw_ref\n      module rrsw_tbl\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw lookup table arrays\n\n! Initial version: MJIacono, AER, may2007\n! Revised: MJIacono, AER, aug2007\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! ntbl   :  integer: Lookup table dimension\n! tblint :  real   : Lookup table conversion factor\n! tau_tbl:  real   : Clear-sky optical depth \n! exp_tbl:  real   : Exponential lookup table for transmittance\n! od_lo  :  real   : Value of tau below which expansion is used\n!                  : in place of lookup table\n! pade   :  real   : Pade approximation constant\n! bpade  :  real   : Inverse of Pade constant\n!------------------------------------------------------------------\n\n      integer(kind=im), parameter :: ntbl = 10000\n\n      real(kind=rb), parameter :: tblint = 10000.0_rb\n\n      real(kind=rb), parameter :: od_lo = 0.06_rb\n\n      real(kind=rb) :: tau_tbl\n      real(kind=rb) , dimension(0:ntbl) :: exp_tbl\n\n      real(kind=rb), parameter :: pade = 0.278_rb\n      real(kind=rb) :: bpade\n\n      end module rrsw_tbl\n\n      module rrsw_vsn\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw version information\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n!hnamrtm :character: \n!hnamini :character: \n!hnamcld :character: \n!hnamclc :character: \n!hnamrft :character: \n!hnamspv :character: \n!hnamspc :character: \n!hnamset :character: \n!hnamtau :character: \n!hnamvqd :character: \n!hnamatm :character: \n!hnamutl :character: \n!hnamext :character: \n!hnamkg  :character: \n!\n! hvrrtm :character: \n! hvrini :character: \n! hvrcld :character: \n! hvrclc :character: \n! hvrrft :character: \n! hvrspv :character: \n! hvrspc :character: \n! hvrset :character: \n! hvrtau :character: \n! hvrvqd :character: \n! hvratm :character: \n! hvrutl :character: \n! hvrext :character: \n! hvrkg  :character: \n!------------------------------------------------------------------\n\n      character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrft,hvrspv, &\n                   hvrspc,hvrset,hvrtau,hvrvqd,hvratm,hvrutl,hvrext\n      character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrft,hnamspv, &\n                   hnamspc,hnamset,hnamtau,hnamvqd,hnamatm,hnamutl,hnamext\n\n      character*18 hvrkg\n      character*20 hnamkg\n\n      end module rrsw_vsn\n\n      module rrsw_wvn\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, mg, ngptsw, jpb1, jpb2\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw spectral information\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! ng     :  integer: Number of original g-intervals in each spectral band\n! nspa   :  integer: \n! nspb   :  integer: \n!wavenum1:  real   : Spectral band lower boundary in wavenumbers\n!wavenum2:  real   : Spectral band upper boundary in wavenumbers\n! delwave:  real   : Spectral band width in wavenumbers\n!\n! ngc    :  integer: The number of new g-intervals in each band\n! ngs    :  integer: The cumulative sum of new g-intervals for each band\n! ngm    :  integer: The index of each new g-interval relative to the\n!                    original 16 g-intervals in each band\n! ngn    :  integer: The number of original g-intervals that are \n!                    combined to make each new g-intervals in each band\n! ngb    :  integer: The band index for each new g-interval\n! wt     :  real   : RRTM weights for the original 16 g-intervals\n! rwgt   :  real   : Weights for combining original 16 g-intervals \n!                    (224 total) into reduced set of g-intervals \n!                    (112 total)\n!------------------------------------------------------------------\n\n      integer(kind=im) :: ng(jpb1:jpb2)\n      integer(kind=im) :: nspa(jpb1:jpb2)\n      integer(kind=im) :: nspb(jpb1:jpb2)\n\n      real(kind=rb) :: wavenum1(jpb1:jpb2)\n      real(kind=rb) :: wavenum2(jpb1:jpb2)\n      real(kind=rb) :: delwave(jpb1:jpb2)\n\n      integer(kind=im) :: ngc(nbndsw)\n      integer(kind=im) :: ngs(nbndsw)\n      integer(kind=im) :: ngn(ngptsw)\n      integer(kind=im) :: ngb(ngptsw)\n      integer(kind=im) :: ngm(nbndsw*mg)\n\n      real(kind=rb) :: wt(mg)\n      real(kind=rb) :: rwgt(nbndsw*mg)\n\n      end module rrsw_wvn\n#endif\n"
  },
  {
    "path": "APM/apm_rrtmg_src.F90",
    "content": "#ifdef APM\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_cldprop.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.8 $\n!     created:   $Date: 2009/05/22 22:22:21 $\n\nmodule rrtmg_sw_cldprop\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, jpband, jpb1, jpb2\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n      use rrsw_wvn, only : wavenum1, wavenum2\n      use rrsw_vsn, only : hvrcld, hnamcld\n\n      implicit none\n\n      contains\n\n! ----------------------------------------------------------------------------\n      subroutine cldprop_sw(nlayers, inflag, iceflag, liqflag, cldfrac, &\n                            tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &\n                            taucldorig, taucloud, ssacloud, asmcloud)\n! ----------------------------------------------------------------------------\n\n! Purpose: Compute the cloud optical properties for each cloudy layer.\n! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;\n! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented.\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: inflag          ! see definitions\n      integer(kind=im), intent(in) :: iceflag         ! see definitions\n      integer(kind=im), intent(in) :: liqflag         ! see definitions\n\n      real(kind=rb), intent(in) :: cldfrac(:)         ! cloud fraction\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ciwp(:)            ! cloud ice water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: clwp(:)            ! cloud liquid water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle effective size (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of rei depends on setting of iceflag:\n                                                      ! iceflag = 0: (inactive)\n                                                      !              \n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tauc(:,:)          ! cloud optical depth\n                                                      !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb), intent(in) :: ssac(:,:)          ! single scattering albedo\n                                                      !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb), intent(in) :: asmc(:,:)          ! asymmetry parameter\n                                                      !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb), intent(in) :: fsfc(:,:)          ! forward scattering fraction\n                                                      !    Dimensions: (nbndsw,nlayers)\n\n! ------- Output -------\n\n      real(kind=rb), intent(out) :: taucloud(:,:)     ! cloud optical depth (delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: taucldorig(:,:)   ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: ssacloud(:,:)     ! single scattering albedo (delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: asmcloud(:,:)     ! asymmetry parameter (delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n\n! ------- Local -------\n\n!      integer(kind=im) :: ncbands\n      integer(kind=im) :: ib, ib1, ib2, lay, istr, index, icx\n\n      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n      real(kind=rb) :: cwp                            ! total cloud water path\n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor\n      real(kind=rb) :: fint\n      real(kind=rb) :: tauctot(nlayers)               ! band integrated cloud optical depth\n\n      real(kind=rb) :: taucldorig_a, ssacloud_a, taucloud_a, ffp, ffp1, ffpssa\n      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq\n\n      real(kind=rb) :: fdelta(jpb1:jpb2)\n      real(kind=rb) :: extcoice(jpb1:jpb2), gice(jpb1:jpb2)\n      real(kind=rb) :: ssacoice(jpb1:jpb2), forwice(jpb1:jpb2)\n      real(kind=rb) :: extcoliq(jpb1:jpb2), gliq(jpb1:jpb2)\n      real(kind=rb) :: ssacoliq(jpb1:jpb2), forwliq(jpb1:jpb2)\n\n! Initialize\n\n      hvrcld = '$Revision: 1.8 $'\n\n!      ncbands = 29\n      ib1 = jpb1\n      ib2 = jpb2\n      tauctot(:) = 0._rb\n\n      do lay = 1, nlayers\n         do ib = ib1 , ib2\n            taucldorig(lay,ib) = tauc(ib-15,lay)\n            taucloud(lay,ib) = 0.0_rb\n            ssacloud(lay,ib) = 1.0_rb\n            asmcloud(lay,ib) = 0.0_rb\n            tauctot(lay) = tauctot(lay) + tauc(ib-15,lay)\n         enddo\n      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n\n         cwp = ciwp(lay) + clwp(lay)\n         if (cldfrac(lay) .ge. cldmin .and. &\n            (cwp .ge. cldmin .or. tauctot(lay) .ge. cldmin)) then\n\n! (inflag=0): Cloud optical properties input directly\n! Cloud optical properties already defined in tauc, ssac, asmc are unscaled;\n! Apply delta-M scaling here\n            if (inflag .eq. 0) then\n\n               do ib = ib1 , ib2\n                  taucldorig_a = tauc(ib-15,lay)\n                  ffp = fsfc(ib-15,lay)\n                  ffp1 = 1.0_rb - ffp\n                  ffpssa = 1.0_rb - ffp * ssac(ib-15,lay)\n                  ssacloud_a = ffp1 * ssac(ib-15,lay) / ffpssa\n                  taucloud_a = ffpssa * taucldorig_a\n\n                  taucldorig(lay,ib) = taucldorig_a\n                  ssacloud(lay,ib) = ssacloud_a\n                  taucloud(lay,ib) = taucloud_a\n                  asmcloud(lay,ib) = (asmc(ib-15,lay) - ffp) / (ffp1)\n               enddo\n\n! (inflag=2): Separate treatement of ice clouds and water clouds.\n            elseif (inflag .eq. 2) then       \n               radice = rei(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n               if (ciwp(lay) .eq. 0.0_rb) then\n                  do ib = ib1 , ib2\n                     extcoice(ib) = 0.0_rb\n                     ssacoice(ib) = 0.0_rb\n                     gice(ib)     = 0.0_rb\n                     forwice(ib)  = 0.0_rb\n                  enddo\n\n! (iceflag = 1): \n! Note: This option uses Ebert and Curry approach for all particle sizes similar to\n! CAM3 implementation, though this is somewhat ineffective for large ice particles\n               elseif (iceflag .eq. 1) then\n                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &\n                     'ICE RADIUS OUT OF BOUNDS'\n                  do ib = ib1, ib2\n                     if (wavenum2(ib) .gt. 1.43e04_rb) then\n                        icx = 1\n                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then\n                        icx = 2\n                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then\n                        icx = 3\n                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then\n                        icx = 4\n                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then\n                        icx = 5\n                     endif\n                     extcoice(ib) = abari(icx) + bbari(icx)/radice\n                     ssacoice(ib) = 1._rb - cbari(icx) - dbari(icx) * radice\n                     gice(ib) = ebari(icx) + fbari(icx) * radice\n\n! Check to ensure upper limit of gice is within physical limits for large particles\n                     if (gice(ib) .ge. 1.0_rb) gice(ib) = 1.0_rb - eps\n                     forwice(ib) = gice(ib)*gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n               elseif (iceflag .eq. 2) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'\n                  factor = (radice - 2._rb)/3._rb\n                  index = int(factor)\n                  if (index .eq. 43) index = 42\n                  fint = factor - float(index)\n                  do ib = ib1, ib2\n                     extcoice(ib) = extice2(index,ib) + fint * &\n                                   (extice2(index+1,ib) -  extice2(index,ib))\n                     ssacoice(ib) = ssaice2(index,ib) + fint * &\n                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))\n                     gice(ib) = asyice2(index,ib) + fint * &\n                                   (asyice2(index+1,ib) -  asyice2(index,ib))\n                     forwice(ib) = gice(ib)*gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n               elseif (iceflag .eq. 3) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                  factor = (radice - 2._rb)/3._rb\n                  index = int(factor)\n                  if (index .eq. 46) index = 45\n                  fint = factor - float(index)\n                  do ib = ib1 , ib2\n                     extcoice(ib) = extice3(index,ib) + fint * &\n                                   (extice3(index+1,ib) - extice3(index,ib))\n                     ssacoice(ib) = ssaice3(index,ib) + fint * &\n                                   (ssaice3(index+1,ib) - ssaice3(index,ib))\n                     gice(ib) = asyice3(index,ib) + fint * &\n                               (asyice3(index+1,ib) - asyice3(index,ib))\n                     fdelta(ib) = fdlice3(index,ib) + fint * &\n                                 (fdlice3(index+1,ib) - fdlice3(index,ib))\n                     if (fdelta(ib) .lt. 0.0_rb) stop 'FDELTA LESS THAN 0.0'\n                     if (fdelta(ib) .gt. 1.0_rb) stop 'FDELTA GT THAN 1.0'                     \n                     forwice(ib) = fdelta(ib) + 0.5_rb / ssacoice(ib)\n! See Fu 1996 p. 2067 \n                     if (forwice(ib) .gt. gice(ib)) forwice(ib) = gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n               endif\n                  \n! Calculation of absorption coefficients due to water clouds.\n                if (clwp(lay) .eq. 0.0_rb) then\n                   do ib = ib1 , ib2\n                      extcoliq(ib) = 0.0_rb\n                      ssacoliq(ib) = 0.0_rb\n                      gliq(ib) = 0.0_rb\n                      forwliq(ib) = 0.0_rb\n                   enddo\n\n                elseif (liqflag .eq. 1) then\n                   radliq = rel(lay)\n                   if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &\n                      'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'\n                   index = int(radliq - 1.5_rb)\n                   if (index .eq. 0) index = 1\n                   if (index .eq. 58) index = 57\n                   fint = radliq - 1.5_rb - float(index)\n                   do ib = ib1 , ib2\n                      extcoliq(ib) = extliq1(index,ib) + fint * &\n                                    (extliq1(index+1,ib) - extliq1(index,ib))\n                      ssacoliq(ib) = ssaliq1(index,ib) + fint * &\n                                    (ssaliq1(index+1,ib) - ssaliq1(index,ib))\n                      if (fint .lt. 0._rb .and. ssacoliq(ib) .gt. 1._rb) &\n                                     ssacoliq(ib) = ssaliq1(index,ib)\n                      gliq(ib) = asyliq1(index,ib) + fint * &\n                                (asyliq1(index+1,ib) - asyliq1(index,ib))\n                      forwliq(ib) = gliq(ib)*gliq(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                      if (extcoliq(ib) .lt. 0.0_rb) stop 'LIQUID EXTINCTION LESS THAN 0.0'\n                      if (ssacoliq(ib) .gt. 1.0_rb) stop 'LIQUID SSA GRTR THAN 1.0'\n                      if (ssacoliq(ib) .lt. 0.0_rb) stop 'LIQUID SSA LESS THAN 0.0'\n                      if (gliq(ib) .gt. 1.0_rb) stop 'LIQUID ASYM GRTR THAN 1.0'\n                      if (gliq(ib) .lt. 0.0_rb) stop 'LIQUID ASYM LESS THAN 0.0'\n                   enddo\n                endif\n\n                do ib = ib1 , ib2\n                   tauliqorig = clwp(lay) * extcoliq(ib)\n                   tauiceorig = ciwp(lay) * extcoice(ib)\n                   taucldorig(lay,ib) = tauliqorig + tauiceorig\n\n                   ssaliq = ssacoliq(ib) * (1.0_rb - forwliq(ib)) / &\n                           (1.0_rb - forwliq(ib) * ssacoliq(ib))\n                   tauliq = (1.0_rb - forwliq(ib) * ssacoliq(ib)) * tauliqorig\n                   ssaice = ssacoice(ib) * (1.0_rb - forwice(ib)) / &\n                           (1.0_rb - forwice(ib) * ssacoice(ib))\n                   tauice = (1.0_rb - forwice(ib) * ssacoice(ib)) * tauiceorig\n\n                   scatliq = ssaliq * tauliq\n                   scatice = ssaice * tauice\n\n                   taucloud(lay,ib) = tauliq + tauice\n\n! Ensure non-zero taucmc and scatice\n                   if (taucloud(lay,ib).eq.0.0_rb) taucloud(lay,ib) = cldmin\n                   if (scatice.eq.0.0_rb) scatice = cldmin\n\n                   ssacloud(lay,ib) = (scatliq + scatice) / taucloud(lay,ib)\n\n                   if (iceflag .eq. 3) then\n! In accordance with the 1996 Fu paper, equation A.3, \n! the moments for ice were calculated depending on whether using spheres\n! or hexagonal ice crystals.\n                      istr = 1\n                      asmcloud(lay,ib) = (1.0_rb/(scatliq+scatice)) * &\n                         (scatliq*(gliq(ib)**istr - forwliq(ib)) / &\n                         (1.0_rb - forwliq(ib)) + scatice * ((gice(ib)-forwice(ib)) / &\n                         (1.0_rb - forwice(ib)))**istr)\n                   else \n! This code is the standard method for delta-m scaling. \n                      istr = 1\n                      asmcloud(lay,ib) = (scatliq *  &\n                         (gliq(ib)**istr - forwliq(ib)) / &\n                         (1.0_rb - forwliq(ib)) + scatice * (gice(ib)**istr - forwice(ib)) / &\n                         (1.0_rb - forwice(ib)))/(scatliq + scatice)\n                   endif \n\n                enddo\n\n            endif\n\n         endif\n\n! End layer loop\n      enddo\n\n      end subroutine cldprop_sw\n\n      end module rrtmg_sw_cldprop\n\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_cldprmc.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.8 $\n!     created:   $Date: 2009/05/22 22:22:21 $\n\n      module rrtmg_sw_cldprmc\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ngptsw, jpband, jpb1, jpb2\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n      use rrsw_wvn, only : wavenum1, wavenum2, ngb\n      use rrsw_vsn, only : hvrclc, hnamclc\n\n      implicit none\n\n      contains\n\n! ----------------------------------------------------------------------------\n      subroutine cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &\n                            ciwpmc, clwpmc, reicmc, relqmc, &\n                            taormc, taucmc, ssacmc, asmcmc, fsfcmc)\n! ----------------------------------------------------------------------------\n\n! Purpose: Compute the cloud optical properties for each cloudy layer\n! and g-point interval for use by the McICA method.  \n! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;\n! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented. \n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: inflag          ! see definitions\n      integer(kind=im), intent(in) :: iceflag         ! see definitions\n      integer(kind=im), intent(in) :: liqflag         ! see definitions\n\n      real(kind=rb), intent(in) :: cldfmc(:,:)        ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(in) :: ciwpmc(:,:)        ! cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(in) :: clwpmc(:,:)        ! cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(in) :: relqmc(:)          ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: reicmc(:)          ! cloud ice particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of reicmc depends on setting of iceflag:\n                                                      ! iceflag = 0: (inactive)\n                                                      !              \n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: fsfcmc(:,:)        ! cloud forward scattering fraction\n                                                      !    Dimensions: (ngptsw,nlayers)\n\n! ------- Output -------\n\n      real(kind=rb), intent(inout) :: taucmc(:,:)     ! cloud optical depth (delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(inout) :: ssacmc(:,:)     ! single scattering albedo (delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(inout) :: asmcmc(:,:)     ! asymmetry parameter (delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(out) :: taormc(:,:)       ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n\n! ------- Local -------\n\n!      integer(kind=im) :: ncbands\n      integer(kind=im) :: ib, lay, istr, index, icx, ig\n\n      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n      real(kind=rb) :: cwp                            ! total cloud water path\n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor\n      real(kind=rb) :: fint\n\n      real(kind=rb) :: taucldorig_a, taucloud_a, ssacloud_a, ffp, ffp1, ffpssa\n      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq\n\n      real(kind=rb) :: fdelta(ngptsw)\n      real(kind=rb) :: extcoice(ngptsw), gice(ngptsw)\n      real(kind=rb) :: ssacoice(ngptsw), forwice(ngptsw)\n      real(kind=rb) :: extcoliq(ngptsw), gliq(ngptsw)\n      real(kind=rb) :: ssacoliq(ngptsw), forwliq(ngptsw)\n\n! Initialize\n\n      hvrclc = '$Revision: 1.8 $'\n\n! Some of these initializations are done elsewhere\n      do lay = 1, nlayers\n         do ig = 1, ngptsw\n            taormc(ig,lay) = taucmc(ig,lay)\n!            taucmc(ig,lay) = 0.0_rb\n!            ssacmc(ig,lay) = 1.0_rb\n!            asmcmc(ig,lay) = 0.0_rb\n         enddo\n      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n\n! Main g-point interval loop\n         do ig = 1, ngptsw \n            cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)\n            if (cldfmc(ig,lay) .ge. cldmin .and. &\n               (cwp .ge. cldmin .or. taucmc(ig,lay) .ge. cldmin)) then\n\n! (inflag=0): Cloud optical properties input directly\n               if (inflag .eq. 0) then\n! Cloud optical properties already defined in taucmc, ssacmc, asmcmc are unscaled;\n! Apply delta-M scaling here (using Henyey-Greenstein approximation)\n                  taucldorig_a = taucmc(ig,lay)\n                  ffp = fsfcmc(ig,lay)\n                  ffp1 = 1.0_rb - ffp\n                  ffpssa = 1.0_rb - ffp * ssacmc(ig,lay)\n                  ssacloud_a = ffp1 * ssacmc(ig,lay) / ffpssa\n                  taucloud_a = ffpssa * taucldorig_a\n\n                  taormc(ig,lay) = taucldorig_a\n                  ssacmc(ig,lay) = ssacloud_a\n                  taucmc(ig,lay) = taucloud_a\n                  asmcmc(ig,lay) = (asmcmc(ig,lay) - ffp) / (ffp1)\n\n               elseif (inflag .eq. 1) then \n                  stop 'INFLAG = 1 OPTION NOT AVAILABLE WITH MCICA'\n\n! (inflag=2): Separate treatement of ice clouds and water clouds.\n               elseif (inflag .eq. 2) then       \n                  radice = reicmc(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n                  if (ciwpmc(ig,lay) .eq. 0.0_rb) then\n                     extcoice(ig) = 0.0_rb\n                     ssacoice(ig) = 0.0_rb\n                     gice(ig)     = 0.0_rb\n                     forwice(ig)  = 0.0_rb\n\n! (iceflag = 1): \n! Note: This option uses Ebert and Curry approach for all particle sizes similar to\n! CAM3 implementation, though this is somewhat unjustified for large ice particles\n                  elseif (iceflag .eq. 1) then\n                     if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &\n                        'ICE RADIUS OUT OF BOUNDS'\n                     ib = ngb(ig)\n                     if (wavenum2(ib) .gt. 1.43e04_rb) then\n                        icx = 1\n                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then\n                        icx = 2\n                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then\n                        icx = 3\n                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then\n                        icx = 4\n                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then\n                        icx = 5\n                     endif\n                     extcoice(ig) = (abari(icx) + bbari(icx)/radice)\n                     ssacoice(ig) = 1._rb - cbari(icx) - dbari(icx) * radice\n                     gice(ig) = ebari(icx) + fbari(icx) * radice\n! Check to ensure upper limit of gice is within physical limits for large particles\n                     if (gice(ig).ge.1._rb) gice(ig) = 1._rb - eps\n                     forwice(ig) = gice(ig)*gice(ig)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n                  elseif (iceflag .eq. 2) then\n                     if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 43) index = 42\n                     fint = factor - float(index)\n                     ib = ngb(ig)\n                     extcoice(ig) = extice2(index,ib) + fint * &\n                                   (extice2(index+1,ib) -  extice2(index,ib))\n                     ssacoice(ig) = ssaice2(index,ib) + fint * &\n                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))\n                     gice(ig) = asyice2(index,ib) + fint * &\n                                   (asyice2(index+1,ib) -  asyice2(index,ib))\n                     forwice(ig) = gice(ig)*gice(ig)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n\n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n                  elseif (iceflag .eq. 3) then\n                     if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 46) index = 45\n                     fint = factor - float(index)\n                     ib = ngb(ig)\n                     extcoice(ig) = extice3(index,ib) + fint * &\n                                   (extice3(index+1,ib) - extice3(index,ib))\n                     ssacoice(ig) = ssaice3(index,ib) + fint * &\n                                   (ssaice3(index+1,ib) - ssaice3(index,ib))\n                     gice(ig) = asyice3(index,ib) + fint * &\n                               (asyice3(index+1,ib) - asyice3(index,ib))\n                     fdelta(ig) = fdlice3(index,ib) + fint * &\n                                 (fdlice3(index+1,ib) - fdlice3(index,ib))\n                     if (fdelta(ig) .lt. 0.0_rb) stop 'FDELTA LESS THAN 0.0'\n                     if (fdelta(ig) .gt. 1.0_rb) stop 'FDELTA GT THAN 1.0'\n                     forwice(ig) = fdelta(ig) + 0.5_rb / ssacoice(ig)\n! See Fu 1996 p. 2067 \n                     if (forwice(ig) .gt. gice(ig)) forwice(ig) = gice(ig)\n! Check to ensure all calculated quantities are within physical limits.  \n                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n\n                  endif\n\n! Calculation of absorption coefficients due to water clouds.\n                  if (clwpmc(ig,lay) .eq. 0.0_rb) then\n                     extcoliq(ig) = 0.0_rb\n                     ssacoliq(ig) = 0.0_rb\n                     gliq(ig) = 0.0_rb\n                     forwliq(ig) = 0.0_rb\n\n                  elseif (liqflag .eq. 1) then\n                     radliq = relqmc(lay)\n                     if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &\n                        'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'\n                     index = int(radliq - 1.5_rb)\n                     if (index .eq. 0) index = 1\n                     if (index .eq. 58) index = 57\n                     fint = radliq - 1.5_rb - float(index)\n                     ib = ngb(ig)\n                     extcoliq(ig) = extliq1(index,ib) + fint * &\n                                   (extliq1(index+1,ib) - extliq1(index,ib))\n                     ssacoliq(ig) = ssaliq1(index,ib) + fint * &\n                                   (ssaliq1(index+1,ib) - ssaliq1(index,ib))\n                     if (fint .lt. 0._rb .and. ssacoliq(ig) .gt. 1._rb) &\n                                    ssacoliq(ig) = ssaliq1(index,ib)\n                     gliq(ig) = asyliq1(index,ib) + fint * &\n                               (asyliq1(index+1,ib) - asyliq1(index,ib))\n                     forwliq(ig) = gliq(ig)*gliq(ig)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoliq(ig) .lt. 0.0_rb) stop 'LIQUID EXTINCTION LESS THAN 0.0'\n                     if (ssacoliq(ig) .gt. 1.0_rb) stop 'LIQUID SSA GRTR THAN 1.0'\n                     if (ssacoliq(ig) .lt. 0.0_rb) stop 'LIQUID SSA LESS THAN 0.0'\n                     if (gliq(ig) .gt. 1.0_rb) stop 'LIQUID ASYM GRTR THAN 1.0'\n                     if (gliq(ig) .lt. 0.0_rb) stop 'LIQUID ASYM LESS THAN 0.0'\n                  endif\n   \n                  tauliqorig = clwpmc(ig,lay) * extcoliq(ig)\n                  tauiceorig = ciwpmc(ig,lay) * extcoice(ig)\n                  taormc(ig,lay) = tauliqorig + tauiceorig\n\n                  ssaliq = ssacoliq(ig) * (1._rb - forwliq(ig)) / &\n                          (1._rb - forwliq(ig) * ssacoliq(ig))\n                  tauliq = (1._rb - forwliq(ig) * ssacoliq(ig)) * tauliqorig\n                  ssaice = ssacoice(ig) * (1._rb - forwice(ig)) / &\n                          (1._rb - forwice(ig) * ssacoice(ig))\n                  tauice = (1._rb - forwice(ig) * ssacoice(ig)) * tauiceorig\n\n                  scatliq = ssaliq * tauliq\n                  scatice = ssaice * tauice\n                  taucmc(ig,lay) = tauliq + tauice\n\n! Ensure non-zero taucmc and scatice\n                  if(taucmc(ig,lay).eq.0.) taucmc(ig,lay) = cldmin\n                  if(scatice.eq.0.) scatice = cldmin\n\n                  ssacmc(ig,lay) = (scatliq + scatice) / taucmc(ig,lay)\n\n                  if (iceflag .eq. 3) then\n! In accordance with the 1996 Fu paper, equation A.3, \n! the moments for ice were calculated depending on whether using spheres\n! or hexagonal ice crystals.\n! Set asymetry parameter to first moment (istr=1)\n                     istr = 1\n                     asmcmc(ig,lay) = (1.0_rb/(scatliq+scatice))* &\n                        (scatliq*(gliq(ig)**istr - forwliq(ig)) / &\n                        (1.0_rb - forwliq(ig)) + scatice * ((gice(ig)-forwice(ig))/ &\n                        (1.0_rb - forwice(ig)))**istr)\n\n                  else \n! This code is the standard method for delta-m scaling. \n! Set asymetry parameter to first moment (istr=1)\n                     istr = 1\n                     asmcmc(ig,lay) = (scatliq *  &\n                        (gliq(ig)**istr - forwliq(ig)) / &\n                        (1.0_rb - forwliq(ig)) + scatice * (gice(ig)**istr - forwice(ig)) / &\n                        (1.0_rb - forwice(ig)))/(scatliq + scatice)\n                  endif \n\n               endif\n\n            endif\n\n! End g-point interval loop\n         enddo\n\n! End layer loop\n      enddo\n\n      end subroutine cldprmc_sw\n\n      end module rrtmg_sw_cldprmc\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_k_g.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! **************************************************************************\n!      subroutine sw_kgbnn\n! **************************************************************************\n!  RRTM Shortwave Radiative Transfer Model\n!  Atmospheric and Environmental Research, Inc., Cambridge, MA\n!\n!  Original by J.Delamere, Atmospheric & Environmental Research.\n!  Reformatted for F90: JJMorcrette, ECMWF\n!  Further F90 and GCM revisions:  MJIacono, AER, July 2002\n!\n!  This file contains 14 subroutines that include the \n!  absorption coefficients and other data for each of the 14 shortwave\n!  spectral bands used in RRTM_SW.  Here, the data are defined for 16\n!  g-points, or sub-intervals, per band.  These data are combined and\n!  weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce\n!  the total number of g-points from 224 to 112 for use in the GCM.\n! **************************************************************************\n      subroutine sw_kgb16\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl\n      use rrsw_vsn, only: hvrkg, hnamkg\n\n      implicit none\n      save\n\n      hvrkg = '$Revision: 1.4 $'\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        &  1.92269_rb    , 1.72844_rb    , 1.64326_rb    , 1.58451_rb     &\n        &, 1.44031_rb    , 1.25108_rb    , 1.02724_rb    , 0.776759_rb    &\n        &, 0.534444_rb   , 5.87755e-02_rb, 4.86706e-02_rb, 3.87989e-02_rb &\n        &, 2.84532e-02_rb, 1.82431e-02_rb, 6.92320e-03_rb, 9.70770e-04_rb /)\n\n! Rayleigh extinction coefficient at v = 2925 cm-1.\n      rayl = 2.91e-10_rb\n\n!     -----------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.15349e-04_rb,0.89162e-04_rb,0.97706e-04_rb,0.96973e-04_rb,0.90703e-04_rb, &\n        & 0.80393e-04_rb,0.67242e-04_rb,0.50804e-04_rb,0.23334e-04_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.16138e-04_rb,0.89235e-04_rb,0.97696e-04_rb,0.96116e-04_rb,0.89625e-04_rb, &\n        & 0.79382e-04_rb,0.66587e-04_rb,0.50583e-04_rb,0.24342e-04_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.16801e-04_rb,0.89390e-04_rb,0.97492e-04_rb,0.95146e-04_rb,0.88483e-04_rb, &\n        & 0.78325e-04_rb,0.65873e-04_rb,0.50342e-04_rb,0.25245e-04_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.17584e-04_rb,0.89321e-04_rb,0.97141e-04_rb,0.93952e-04_rb,0.87141e-04_rb, &\n        & 0.77126e-04_rb,0.65068e-04_rb,0.49985e-04_rb,0.26046e-04_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.18258e-04_rb,0.89204e-04_rb,0.96602e-04_rb,0.92773e-04_rb,0.85832e-04_rb, &\n        & 0.76015e-04_rb,0.64318e-04_rb,0.49612e-04_rb,0.26697e-04_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.12783e-04_rb,0.77013e-04_rb,0.85056e-04_rb,0.84160e-04_rb,0.79021e-04_rb, &\n        & 0.70101e-04_rb,0.58520e-04_rb,0.44007e-04_rb,0.19895e-04_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.13452e-04_rb,0.77084e-04_rb,0.84929e-04_rb,0.83386e-04_rb,0.78122e-04_rb, &\n        & 0.69293e-04_rb,0.57974e-04_rb,0.43855e-04_rb,0.20713e-04_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.14066e-04_rb,0.77185e-04_rb,0.84612e-04_rb,0.82498e-04_rb,0.77177e-04_rb, &\n        & 0.68443e-04_rb,0.57444e-04_rb,0.43722e-04_rb,0.21494e-04_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.14678e-04_rb,0.76996e-04_rb,0.83962e-04_rb,0.81526e-04_rb,0.76049e-04_rb, &\n        & 0.67485e-04_rb,0.56822e-04_rb,0.43530e-04_rb,0.22200e-04_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.15258e-04_rb,0.76788e-04_rb,0.82821e-04_rb,0.80320e-04_rb,0.74845e-04_rb, &\n        & 0.66487e-04_rb,0.56144e-04_rb,0.43262e-04_rb,0.22757e-04_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.10474e-04_rb,0.66144e-04_rb,0.73703e-04_rb,0.72701e-04_rb,0.68638e-04_rb, &\n        & 0.60826e-04_rb,0.50854e-04_rb,0.37989e-04_rb,0.17743e-04_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.11024e-04_rb,0.66096e-04_rb,0.73447e-04_rb,0.72029e-04_rb,0.67858e-04_rb, &\n        & 0.60163e-04_rb,0.50424e-04_rb,0.37886e-04_rb,0.18519e-04_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.11534e-04_rb,0.65974e-04_rb,0.72795e-04_rb,0.71229e-04_rb,0.67005e-04_rb, &\n        & 0.59442e-04_rb,0.49950e-04_rb,0.37779e-04_rb,0.19184e-04_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.12091e-04_rb,0.65752e-04_rb,0.72003e-04_rb,0.70357e-04_rb,0.66129e-04_rb, &\n        & 0.58718e-04_rb,0.49503e-04_rb,0.37690e-04_rb,0.19788e-04_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.12560e-04_rb,0.65678e-04_rb,0.71013e-04_rb,0.69266e-04_rb,0.65076e-04_rb, &\n        & 0.57873e-04_rb,0.48947e-04_rb,0.37519e-04_rb,0.20290e-04_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.85236e-05_rb,0.56692e-04_rb,0.63625e-04_rb,0.62567e-04_rb,0.59412e-04_rb, &\n        & 0.52601e-04_rb,0.43957e-04_rb,0.32602e-04_rb,0.16862e-04_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.89886e-05_rb,0.56512e-04_rb,0.63288e-04_rb,0.61902e-04_rb,0.58733e-04_rb, &\n        & 0.52036e-04_rb,0.43629e-04_rb,0.32592e-04_rb,0.17543e-04_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.94085e-05_rb,0.56287e-04_rb,0.62588e-04_rb,0.61197e-04_rb,0.58020e-04_rb, &\n        & 0.51469e-04_rb,0.43247e-04_rb,0.32567e-04_rb,0.18199e-04_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.98830e-05_rb,0.55998e-04_rb,0.61716e-04_rb,0.60485e-04_rb,0.57250e-04_rb, &\n        & 0.50840e-04_rb,0.42842e-04_rb,0.32520e-04_rb,0.18771e-04_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.10278e-04_rb,0.55929e-04_rb,0.61011e-04_rb,0.59745e-04_rb,0.56462e-04_rb, &\n        & 0.50254e-04_rb,0.42468e-04_rb,0.32457e-04_rb,0.19296e-04_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.68852e-05_rb,0.48282e-04_rb,0.54761e-04_rb,0.53543e-04_rb,0.51345e-04_rb, &\n        & 0.45380e-04_rb,0.37794e-04_rb,0.27880e-04_rb,0.14959e-04_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.72830e-05_rb,0.48206e-04_rb,0.54379e-04_rb,0.52923e-04_rb,0.50723e-04_rb, &\n        & 0.44903e-04_rb,0.37536e-04_rb,0.27938e-04_rb,0.15841e-04_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.76436e-05_rb,0.47928e-04_rb,0.53597e-04_rb,0.52299e-04_rb,0.50061e-04_rb, &\n        & 0.44426e-04_rb,0.37240e-04_rb,0.27962e-04_rb,0.16760e-04_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.80055e-05_rb,0.47625e-04_rb,0.52896e-04_rb,0.51678e-04_rb,0.49302e-04_rb, &\n        & 0.43902e-04_rb,0.36930e-04_rb,0.27968e-04_rb,0.17586e-04_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.83555e-05_rb,0.47486e-04_rb,0.52258e-04_rb,0.51112e-04_rb,0.48444e-04_rb, &\n        & 0.43409e-04_rb,0.36652e-04_rb,0.27966e-04_rb,0.18270e-04_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.55363e-05_rb,0.40995e-04_rb,0.46991e-04_rb,0.45840e-04_rb,0.44200e-04_rb, &\n        & 0.38984e-04_rb,0.32341e-04_rb,0.23743e-04_rb,0.12825e-04_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.58741e-05_rb,0.40851e-04_rb,0.46490e-04_rb,0.45277e-04_rb,0.43651e-04_rb, &\n        & 0.38565e-04_rb,0.32141e-04_rb,0.23813e-04_rb,0.13671e-04_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.61821e-05_rb,0.40643e-04_rb,0.45850e-04_rb,0.44728e-04_rb,0.42924e-04_rb, &\n        & 0.38164e-04_rb,0.31920e-04_rb,0.23858e-04_rb,0.14647e-04_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.64614e-05_rb,0.40329e-04_rb,0.45202e-04_rb,0.44163e-04_rb,0.42054e-04_rb, &\n        & 0.37723e-04_rb,0.31679e-04_rb,0.23886e-04_rb,0.15533e-04_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.67675e-05_rb,0.40137e-04_rb,0.44578e-04_rb,0.43574e-04_rb,0.41267e-04_rb, &\n        & 0.37271e-04_rb,0.31420e-04_rb,0.23883e-04_rb,0.16436e-04_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.44217e-05_rb,0.34626e-04_rb,0.39970e-04_rb,0.39080e-04_rb,0.37744e-04_rb, &\n        & 0.33237e-04_rb,0.27507e-04_rb,0.20074e-04_rb,0.11007e-04_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.47104e-05_rb,0.34494e-04_rb,0.39592e-04_rb,0.38568e-04_rb,0.37283e-04_rb, &\n        & 0.32875e-04_rb,0.27342e-04_rb,0.20149e-04_rb,0.11834e-04_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.49764e-05_rb,0.34300e-04_rb,0.39007e-04_rb,0.38074e-04_rb,0.36415e-04_rb, &\n        & 0.32528e-04_rb,0.27158e-04_rb,0.20213e-04_rb,0.12801e-04_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.52135e-05_rb,0.34067e-04_rb,0.38449e-04_rb,0.37591e-04_rb,0.35661e-04_rb, &\n        & 0.32173e-04_rb,0.26959e-04_rb,0.20265e-04_rb,0.13763e-04_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.54275e-05_rb,0.33832e-04_rb,0.37875e-04_rb,0.37057e-04_rb,0.35065e-04_rb, &\n        & 0.31800e-04_rb,0.26760e-04_rb,0.20278e-04_rb,0.14677e-04_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.35317e-05_rb,0.29115e-04_rb,0.33824e-04_rb,0.33370e-04_rb,0.32237e-04_rb, &\n        & 0.28331e-04_rb,0.23362e-04_rb,0.16932e-04_rb,0.96086e-05_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.37854e-05_rb,0.29084e-04_rb,0.33632e-04_rb,0.32929e-04_rb,0.31805e-04_rb, &\n        & 0.28018e-04_rb,0.23236e-04_rb,0.17006e-04_rb,0.10621e-04_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.40127e-05_rb,0.28935e-04_rb,0.33190e-04_rb,0.32483e-04_rb,0.30936e-04_rb, &\n        & 0.27716e-04_rb,0.23074e-04_rb,0.17087e-04_rb,0.11657e-04_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.42184e-05_rb,0.28732e-04_rb,0.32711e-04_rb,0.32042e-04_rb,0.30351e-04_rb, &\n        & 0.27404e-04_rb,0.22906e-04_rb,0.17140e-04_rb,0.12504e-04_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.44040e-05_rb,0.28488e-04_rb,0.32207e-04_rb,0.31581e-04_rb,0.29852e-04_rb, &\n        & 0.27086e-04_rb,0.22740e-04_rb,0.17166e-04_rb,0.13401e-04_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.28004e-05_rb,0.24421e-04_rb,0.28507e-04_rb,0.28270e-04_rb,0.27415e-04_rb, &\n        & 0.24038e-04_rb,0.19759e-04_rb,0.14209e-04_rb,0.88498e-05_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.30342e-05_rb,0.24385e-04_rb,0.28391e-04_rb,0.27999e-04_rb,0.26969e-04_rb, &\n        & 0.23770e-04_rb,0.19651e-04_rb,0.14288e-04_rb,0.10048e-04_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.32304e-05_rb,0.24304e-04_rb,0.28136e-04_rb,0.27602e-04_rb,0.26246e-04_rb, &\n        & 0.23508e-04_rb,0.19517e-04_rb,0.14360e-04_rb,0.11188e-04_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.34049e-05_rb,0.24160e-04_rb,0.27731e-04_rb,0.27211e-04_rb,0.25756e-04_rb, &\n        & 0.23246e-04_rb,0.19380e-04_rb,0.14426e-04_rb,0.12319e-04_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.35648e-05_rb,0.23940e-04_rb,0.27283e-04_rb,0.26806e-04_rb,0.25320e-04_rb, &\n        & 0.22960e-04_rb,0.19234e-04_rb,0.14451e-04_rb,0.13506e-04_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.22115e-05_rb,0.20358e-04_rb,0.23898e-04_rb,0.23781e-04_rb,0.23142e-04_rb, &\n        & 0.20260e-04_rb,0.16593e-04_rb,0.11876e-04_rb,0.77665e-05_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.24264e-05_rb,0.20362e-04_rb,0.23820e-04_rb,0.23569e-04_rb,0.22708e-04_rb, &\n        & 0.20037e-04_rb,0.16524e-04_rb,0.11954e-04_rb,0.90216e-05_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.26002e-05_rb,0.20303e-04_rb,0.23663e-04_rb,0.23295e-04_rb,0.22132e-04_rb, &\n        & 0.19806e-04_rb,0.16414e-04_rb,0.12011e-04_rb,0.10379e-04_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.27486e-05_rb,0.20198e-04_rb,0.23357e-04_rb,0.22943e-04_rb,0.21707e-04_rb, &\n        & 0.19580e-04_rb,0.16298e-04_rb,0.12060e-04_rb,0.11771e-04_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.28881e-05_rb,0.20019e-04_rb,0.22982e-04_rb,0.22584e-04_rb,0.21296e-04_rb, &\n        & 0.19341e-04_rb,0.16164e-04_rb,0.12088e-04_rb,0.13279e-04_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.18320e-05_rb,0.16927e-04_rb,0.19968e-04_rb,0.19856e-04_rb,0.19352e-04_rb, &\n        & 0.16934e-04_rb,0.13866e-04_rb,0.99116e-05_rb,0.67134e-05_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.20049e-05_rb,0.16927e-04_rb,0.19853e-04_rb,0.19674e-04_rb,0.18853e-04_rb, &\n        & 0.16739e-04_rb,0.13797e-04_rb,0.99757e-05_rb,0.78968e-05_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.21502e-05_rb,0.16866e-04_rb,0.19704e-04_rb,0.19448e-04_rb,0.18441e-04_rb, &\n        & 0.16541e-04_rb,0.13705e-04_rb,0.10023e-04_rb,0.91593e-05_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.22714e-05_rb,0.16777e-04_rb,0.19465e-04_rb,0.19143e-04_rb,0.18062e-04_rb, &\n        & 0.16347e-04_rb,0.13601e-04_rb,0.10057e-04_rb,0.10536e-04_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.23867e-05_rb,0.16634e-04_rb,0.19123e-04_rb,0.18829e-04_rb,0.17732e-04_rb, &\n        & 0.16132e-04_rb,0.13484e-04_rb,0.10082e-04_rb,0.12018e-04_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.15169e-05_rb,0.14042e-04_rb,0.16626e-04_rb,0.16552e-04_rb,0.16148e-04_rb, &\n        & 0.14121e-04_rb,0.11557e-04_rb,0.82558e-05_rb,0.56116e-05_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.16576e-05_rb,0.14051e-04_rb,0.16515e-04_rb,0.16389e-04_rb,0.15651e-04_rb, &\n        & 0.13956e-04_rb,0.11498e-04_rb,0.83065e-05_rb,0.66756e-05_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.17786e-05_rb,0.13996e-04_rb,0.16382e-04_rb,0.16200e-04_rb,0.15335e-04_rb, &\n        & 0.13791e-04_rb,0.11414e-04_rb,0.83396e-05_rb,0.78609e-05_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.18784e-05_rb,0.13920e-04_rb,0.16173e-04_rb,0.15944e-04_rb,0.15016e-04_rb, &\n        & 0.13612e-04_rb,0.11321e-04_rb,0.83696e-05_rb,0.90657e-05_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.19730e-05_rb,0.13808e-04_rb,0.15876e-04_rb,0.15671e-04_rb,0.14704e-04_rb, &\n        & 0.13425e-04_rb,0.11218e-04_rb,0.83846e-05_rb,0.10342e-04_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.12548e-05_rb,0.11622e-04_rb,0.13817e-04_rb,0.13765e-04_rb,0.13366e-04_rb, &\n        & 0.11761e-04_rb,0.96214e-05_rb,0.68586e-05_rb,0.46815e-05_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.13720e-05_rb,0.11638e-04_rb,0.13707e-04_rb,0.13640e-04_rb,0.13007e-04_rb, &\n        & 0.11624e-04_rb,0.95672e-05_rb,0.68978e-05_rb,0.55831e-05_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.14716e-05_rb,0.11595e-04_rb,0.13603e-04_rb,0.13476e-04_rb,0.12728e-04_rb, &\n        & 0.11474e-04_rb,0.94883e-05_rb,0.69284e-05_rb,0.65694e-05_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.15544e-05_rb,0.11533e-04_rb,0.13432e-04_rb,0.13265e-04_rb,0.12450e-04_rb, &\n        & 0.11320e-04_rb,0.94054e-05_rb,0.69510e-05_rb,0.75699e-05_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.16324e-05_rb,0.11450e-04_rb,0.13177e-04_rb,0.13030e-04_rb,0.12193e-04_rb, &\n        & 0.11159e-04_rb,0.93157e-05_rb,0.69543e-05_rb,0.86449e-05_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.10905e-03_rb,0.19084e-03_rb,0.20069e-03_rb,0.19832e-03_rb,0.18610e-03_rb, &\n        & 0.17089e-03_rb,0.14990e-03_rb,0.11759e-03_rb,0.64675e-04_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.11105e-03_rb,0.18952e-03_rb,0.19885e-03_rb,0.19823e-03_rb,0.18675e-03_rb, &\n        & 0.17126e-03_rb,0.15098e-03_rb,0.11929e-03_rb,0.67071e-04_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.11276e-03_rb,0.18853e-03_rb,0.19769e-03_rb,0.19892e-03_rb,0.18804e-03_rb, &\n        & 0.17228e-03_rb,0.15234e-03_rb,0.12104e-03_rb,0.69562e-04_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.11331e-03_rb,0.18716e-03_rb,0.19673e-03_rb,0.19862e-03_rb,0.18922e-03_rb, &\n        & 0.17345e-03_rb,0.15364e-03_rb,0.12287e-03_rb,0.72145e-04_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.11374e-03_rb,0.18626e-03_rb,0.19656e-03_rb,0.19857e-03_rb,0.19062e-03_rb, &\n        & 0.17445e-03_rb,0.15373e-03_rb,0.12483e-03_rb,0.74697e-04_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.94458e-04_rb,0.16650e-03_rb,0.17483e-03_rb,0.17491e-03_rb,0.16501e-03_rb, &\n        & 0.15069e-03_rb,0.13359e-03_rb,0.10498e-03_rb,0.55352e-04_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.96121e-04_rb,0.16557e-03_rb,0.17383e-03_rb,0.17514e-03_rb,0.16597e-03_rb, &\n        & 0.15082e-03_rb,0.13480e-03_rb,0.10677e-03_rb,0.57531e-04_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.97581e-04_rb,0.16494e-03_rb,0.17349e-03_rb,0.17480e-03_rb,0.16726e-03_rb, &\n        & 0.15206e-03_rb,0.13520e-03_rb,0.10844e-03_rb,0.59621e-04_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.98152e-04_rb,0.16427e-03_rb,0.17323e-03_rb,0.17471e-03_rb,0.16812e-03_rb, &\n        & 0.15352e-03_rb,0.13523e-03_rb,0.11008e-03_rb,0.61894e-04_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.98081e-04_rb,0.16346e-03_rb,0.17334e-03_rb,0.17481e-03_rb,0.16845e-03_rb, &\n        & 0.15496e-03_rb,0.13612e-03_rb,0.11175e-03_rb,0.64159e-04_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.80988e-04_rb,0.14444e-03_rb,0.15236e-03_rb,0.15355e-03_rb,0.14515e-03_rb, &\n        & 0.13201e-03_rb,0.11827e-03_rb,0.92843e-04_rb,0.47818e-04_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.82627e-04_rb,0.14399e-03_rb,0.15198e-03_rb,0.15308e-03_rb,0.14622e-03_rb, &\n        & 0.13285e-03_rb,0.11829e-03_rb,0.94579e-04_rb,0.49498e-04_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.83666e-04_rb,0.14365e-03_rb,0.15183e-03_rb,0.15300e-03_rb,0.14704e-03_rb, &\n        & 0.13418e-03_rb,0.11832e-03_rb,0.96259e-04_rb,0.51225e-04_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.84164e-04_rb,0.14362e-03_rb,0.15205e-03_rb,0.15285e-03_rb,0.14764e-03_rb, &\n        & 0.13590e-03_rb,0.11954e-03_rb,0.97885e-04_rb,0.52990e-04_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.84014e-04_rb,0.14269e-03_rb,0.15214e-03_rb,0.15331e-03_rb,0.14865e-03_rb, &\n        & 0.13747e-03_rb,0.12089e-03_rb,0.99389e-04_rb,0.54936e-04_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.69055e-04_rb,0.12498e-03_rb,0.13260e-03_rb,0.13427e-03_rb,0.12748e-03_rb, &\n        & 0.11593e-03_rb,0.10318e-03_rb,0.81535e-04_rb,0.43344e-04_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.70374e-04_rb,0.12479e-03_rb,0.13217e-03_rb,0.13387e-03_rb,0.12823e-03_rb, &\n        & 0.11702e-03_rb,0.10316e-03_rb,0.83059e-04_rb,0.44577e-04_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.71321e-04_rb,0.12483e-03_rb,0.13205e-03_rb,0.13371e-03_rb,0.12866e-03_rb, &\n        & 0.11820e-03_rb,0.10422e-03_rb,0.84648e-04_rb,0.45880e-04_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.71712e-04_rb,0.12475e-03_rb,0.13249e-03_rb,0.13379e-03_rb,0.12934e-03_rb, &\n        & 0.11960e-03_rb,0.10551e-03_rb,0.86238e-04_rb,0.47243e-04_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.71917e-04_rb,0.12433e-03_rb,0.13275e-03_rb,0.13434e-03_rb,0.13049e-03_rb, &\n        & 0.12131e-03_rb,0.10676e-03_rb,0.87830e-04_rb,0.48641e-04_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.58527e-04_rb,0.10840e-03_rb,0.11507e-03_rb,0.11730e-03_rb,0.11099e-03_rb, &\n        & 0.10118e-03_rb,0.89566e-04_rb,0.71122e-04_rb,0.43658e-04_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.59798e-04_rb,0.10799e-03_rb,0.11447e-03_rb,0.11692e-03_rb,0.11189e-03_rb, &\n        & 0.10224e-03_rb,0.90255e-04_rb,0.72476e-04_rb,0.44361e-04_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.60601e-04_rb,0.10799e-03_rb,0.11464e-03_rb,0.11677e-03_rb,0.11225e-03_rb, &\n        & 0.10358e-03_rb,0.91122e-04_rb,0.73922e-04_rb,0.45004e-04_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.60971e-04_rb,0.10798e-03_rb,0.11486e-03_rb,0.11681e-03_rb,0.11304e-03_rb, &\n        & 0.10512e-03_rb,0.91981e-04_rb,0.75441e-04_rb,0.45782e-04_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.61166e-04_rb,0.10769e-03_rb,0.11529e-03_rb,0.11740e-03_rb,0.11428e-03_rb, &\n        & 0.10674e-03_rb,0.93329e-04_rb,0.76963e-04_rb,0.46781e-04_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.49298e-04_rb,0.93665e-04_rb,0.99302e-04_rb,0.10166e-03_rb,0.96125e-04_rb, &\n        & 0.87991e-04_rb,0.77830e-04_rb,0.61651e-04_rb,0.45761e-04_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.50498e-04_rb,0.93479e-04_rb,0.98966e-04_rb,0.10139e-03_rb,0.96705e-04_rb, &\n        & 0.89173e-04_rb,0.78227e-04_rb,0.62850e-04_rb,0.46039e-04_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.51269e-04_rb,0.93203e-04_rb,0.98973e-04_rb,0.10127e-03_rb,0.97298e-04_rb, &\n        & 0.90362e-04_rb,0.78802e-04_rb,0.64157e-04_rb,0.46346e-04_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.51588e-04_rb,0.93137e-04_rb,0.99162e-04_rb,0.10129e-03_rb,0.98592e-04_rb, &\n        & 0.91554e-04_rb,0.79929e-04_rb,0.65574e-04_rb,0.46727e-04_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.51597e-04_rb,0.92792e-04_rb,0.99458e-04_rb,0.10170e-03_rb,0.99448e-04_rb, &\n        & 0.92834e-04_rb,0.81330e-04_rb,0.66366e-04_rb,0.47183e-04_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.41246e-04_rb,0.80496e-04_rb,0.85316e-04_rb,0.87435e-04_rb,0.82542e-04_rb, &\n        & 0.75819e-04_rb,0.67022e-04_rb,0.53111e-04_rb,0.48352e-04_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.42332e-04_rb,0.80236e-04_rb,0.84984e-04_rb,0.87173e-04_rb,0.83192e-04_rb, &\n        & 0.76872e-04_rb,0.67154e-04_rb,0.54235e-04_rb,0.49203e-04_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.43069e-04_rb,0.79969e-04_rb,0.85117e-04_rb,0.87191e-04_rb,0.83963e-04_rb, &\n        & 0.78027e-04_rb,0.67911e-04_rb,0.55423e-04_rb,0.50036e-04_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.43347e-04_rb,0.79762e-04_rb,0.85176e-04_rb,0.87282e-04_rb,0.84970e-04_rb, &\n        & 0.78971e-04_rb,0.69097e-04_rb,0.56659e-04_rb,0.50699e-04_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.43381e-04_rb,0.79473e-04_rb,0.85320e-04_rb,0.87550e-04_rb,0.85526e-04_rb, &\n        & 0.80111e-04_rb,0.70399e-04_rb,0.56992e-04_rb,0.51218e-04_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.34402e-04_rb,0.69256e-04_rb,0.73264e-04_rb,0.74907e-04_rb,0.70733e-04_rb, &\n        & 0.65058e-04_rb,0.57123e-04_rb,0.45547e-04_rb,0.49061e-04_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.35394e-04_rb,0.68938e-04_rb,0.72891e-04_rb,0.74693e-04_rb,0.71198e-04_rb, &\n        & 0.66010e-04_rb,0.57419e-04_rb,0.46585e-04_rb,0.51368e-04_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.36086e-04_rb,0.68637e-04_rb,0.72875e-04_rb,0.74679e-04_rb,0.72090e-04_rb, &\n        & 0.66902e-04_rb,0.58282e-04_rb,0.47622e-04_rb,0.51837e-04_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.36445e-04_rb,0.68326e-04_rb,0.72869e-04_rb,0.74856e-04_rb,0.72765e-04_rb, &\n        & 0.67827e-04_rb,0.59362e-04_rb,0.48483e-04_rb,0.52297e-04_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.36483e-04_rb,0.68010e-04_rb,0.72961e-04_rb,0.75096e-04_rb,0.73241e-04_rb, &\n        & 0.68587e-04_rb,0.60512e-04_rb,0.48784e-04_rb,0.53745e-04_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.28433e-04_rb,0.59232e-04_rb,0.62701e-04_rb,0.63901e-04_rb,0.60103e-04_rb, &\n        & 0.55141e-04_rb,0.48531e-04_rb,0.38847e-04_rb,0.54662e-04_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.29405e-04_rb,0.58918e-04_rb,0.62216e-04_rb,0.63604e-04_rb,0.60633e-04_rb, &\n        & 0.55830e-04_rb,0.48918e-04_rb,0.39795e-04_rb,0.56459e-04_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.30040e-04_rb,0.58597e-04_rb,0.61986e-04_rb,0.63627e-04_rb,0.61357e-04_rb, &\n        & 0.56779e-04_rb,0.49706e-04_rb,0.40729e-04_rb,0.58698e-04_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.30412e-04_rb,0.58268e-04_rb,0.61940e-04_rb,0.63690e-04_rb,0.61916e-04_rb, &\n        & 0.57700e-04_rb,0.50677e-04_rb,0.41137e-04_rb,0.60426e-04_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.30517e-04_rb,0.57913e-04_rb,0.61982e-04_rb,0.63808e-04_rb,0.62307e-04_rb, &\n        & 0.58353e-04_rb,0.51602e-04_rb,0.41668e-04_rb,0.61933e-04_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.23291e-04_rb,0.50308e-04_rb,0.53243e-04_rb,0.54258e-04_rb,0.50787e-04_rb, &\n        & 0.46509e-04_rb,0.41036e-04_rb,0.32969e-04_rb,0.63749e-04_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.24304e-04_rb,0.50027e-04_rb,0.52858e-04_rb,0.54035e-04_rb,0.51457e-04_rb, &\n        & 0.47117e-04_rb,0.41427e-04_rb,0.33795e-04_rb,0.67891e-04_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.24884e-04_rb,0.49658e-04_rb,0.52484e-04_rb,0.53877e-04_rb,0.52001e-04_rb, &\n        & 0.47908e-04_rb,0.42080e-04_rb,0.34652e-04_rb,0.71374e-04_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.25245e-04_rb,0.49329e-04_rb,0.52369e-04_rb,0.53861e-04_rb,0.52353e-04_rb, &\n        & 0.48763e-04_rb,0.42918e-04_rb,0.34903e-04_rb,0.73983e-04_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.25399e-04_rb,0.49019e-04_rb,0.52344e-04_rb,0.53920e-04_rb,0.52702e-04_rb, &\n        & 0.49354e-04_rb,0.43795e-04_rb,0.35336e-04_rb,0.76874e-04_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.19464e-04_rb,0.42428e-04_rb,0.44774e-04_rb,0.45764e-04_rb,0.43065e-04_rb, &\n        & 0.39257e-04_rb,0.34681e-04_rb,0.28149e-04_rb,0.56538e-04_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.20274e-04_rb,0.42118e-04_rb,0.44484e-04_rb,0.45525e-04_rb,0.43594e-04_rb, &\n        & 0.39908e-04_rb,0.35109e-04_rb,0.28880e-04_rb,0.61143e-04_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.20723e-04_rb,0.41781e-04_rb,0.44183e-04_rb,0.45345e-04_rb,0.43968e-04_rb, &\n        & 0.40542e-04_rb,0.35722e-04_rb,0.29427e-04_rb,0.66428e-04_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.20986e-04_rb,0.41469e-04_rb,0.44005e-04_rb,0.45299e-04_rb,0.44240e-04_rb, &\n        & 0.41204e-04_rb,0.36501e-04_rb,0.29565e-04_rb,0.70536e-04_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.21088e-04_rb,0.41122e-04_rb,0.44008e-04_rb,0.45344e-04_rb,0.44427e-04_rb, &\n        & 0.41695e-04_rb,0.37345e-04_rb,0.29974e-04_rb,0.74164e-04_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.16205e-04_rb,0.35661e-04_rb,0.37585e-04_rb,0.38332e-04_rb,0.36196e-04_rb, &\n        & 0.33054e-04_rb,0.29216e-04_rb,0.23917e-04_rb,0.49111e-04_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.16873e-04_rb,0.35314e-04_rb,0.37290e-04_rb,0.38165e-04_rb,0.36667e-04_rb, &\n        & 0.33618e-04_rb,0.29598e-04_rb,0.24536e-04_rb,0.53408e-04_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.17216e-04_rb,0.35012e-04_rb,0.37013e-04_rb,0.37971e-04_rb,0.36937e-04_rb, &\n        & 0.34200e-04_rb,0.30188e-04_rb,0.24727e-04_rb,0.56692e-04_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.17409e-04_rb,0.34711e-04_rb,0.36851e-04_rb,0.37885e-04_rb,0.37053e-04_rb, &\n        & 0.34609e-04_rb,0.30881e-04_rb,0.24937e-04_rb,0.60809e-04_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.17480e-04_rb,0.34362e-04_rb,0.36830e-04_rb,0.37891e-04_rb,0.37213e-04_rb, &\n        & 0.35045e-04_rb,0.31524e-04_rb,0.25269e-04_rb,0.65163e-04_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.13457e-04_rb,0.29884e-04_rb,0.31446e-04_rb,0.32052e-04_rb,0.30374e-04_rb, &\n        & 0.27733e-04_rb,0.24511e-04_rb,0.20198e-04_rb,0.41009e-04_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.14007e-04_rb,0.29560e-04_rb,0.31187e-04_rb,0.31882e-04_rb,0.30716e-04_rb, &\n        & 0.28181e-04_rb,0.24877e-04_rb,0.20737e-04_rb,0.44661e-04_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.14280e-04_rb,0.29273e-04_rb,0.30932e-04_rb,0.31685e-04_rb,0.30856e-04_rb, &\n        & 0.28687e-04_rb,0.25310e-04_rb,0.20664e-04_rb,0.47397e-04_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.14434e-04_rb,0.28982e-04_rb,0.30751e-04_rb,0.31601e-04_rb,0.30957e-04_rb, &\n        & 0.28945e-04_rb,0.25864e-04_rb,0.20868e-04_rb,0.50575e-04_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.14483e-04_rb,0.28660e-04_rb,0.30711e-04_rb,0.31533e-04_rb,0.31075e-04_rb, &\n        & 0.29320e-04_rb,0.26408e-04_rb,0.21257e-04_rb,0.54097e-04_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.22536e-03_rb,0.32037e-03_rb,0.33781e-03_rb,0.34273e-03_rb,0.33729e-03_rb, &\n        & 0.32075e-03_rb,0.29153e-03_rb,0.24856e-03_rb,0.16410e-03_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.22342e-03_rb,0.32281e-03_rb,0.34293e-03_rb,0.34673e-03_rb,0.34167e-03_rb, &\n        & 0.32688e-03_rb,0.29787e-03_rb,0.25566e-03_rb,0.17029e-03_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.22157e-03_rb,0.32559e-03_rb,0.34865e-03_rb,0.35164e-03_rb,0.34805e-03_rb, &\n        & 0.33353e-03_rb,0.30505e-03_rb,0.26380e-03_rb,0.17749e-03_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.21986e-03_rb,0.32894e-03_rb,0.35375e-03_rb,0.35845e-03_rb,0.35514e-03_rb, &\n        & 0.33992e-03_rb,0.31266e-03_rb,0.27259e-03_rb,0.18209e-03_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.21815e-03_rb,0.33282e-03_rb,0.35982e-03_rb,0.36699e-03_rb,0.36319e-03_rb, &\n        & 0.34849e-03_rb,0.32265e-03_rb,0.28174e-03_rb,0.18630e-03_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.19541e-03_rb,0.28383e-03_rb,0.30057e-03_rb,0.30208e-03_rb,0.29811e-03_rb, &\n        & 0.28614e-03_rb,0.25813e-03_rb,0.22172e-03_rb,0.14533e-03_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.19410e-03_rb,0.28606e-03_rb,0.30502e-03_rb,0.30638e-03_rb,0.30342e-03_rb, &\n        & 0.29123e-03_rb,0.26438e-03_rb,0.22759e-03_rb,0.15063e-03_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.19280e-03_rb,0.28892e-03_rb,0.31031e-03_rb,0.31345e-03_rb,0.30930e-03_rb, &\n        & 0.29708e-03_rb,0.27075e-03_rb,0.23476e-03_rb,0.15387e-03_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.19169e-03_rb,0.29226e-03_rb,0.31596e-03_rb,0.32060e-03_rb,0.31687e-03_rb, &\n        & 0.30282e-03_rb,0.27961e-03_rb,0.24147e-03_rb,0.15653e-03_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.19047e-03_rb,0.29594e-03_rb,0.32186e-03_rb,0.32831e-03_rb,0.32510e-03_rb, &\n        & 0.31022e-03_rb,0.28786e-03_rb,0.24847e-03_rb,0.16195e-03_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.16871e-03_rb,0.24969e-03_rb,0.26468e-03_rb,0.26465e-03_rb,0.26214e-03_rb, &\n        & 0.25247e-03_rb,0.22732e-03_rb,0.19530e-03_rb,0.12777e-03_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.16793e-03_rb,0.25161e-03_rb,0.26876e-03_rb,0.26973e-03_rb,0.26695e-03_rb, &\n        & 0.25688e-03_rb,0.23244e-03_rb,0.20054e-03_rb,0.12972e-03_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.16733e-03_rb,0.25378e-03_rb,0.27385e-03_rb,0.27612e-03_rb,0.27305e-03_rb, &\n        & 0.26119e-03_rb,0.23922e-03_rb,0.20542e-03_rb,0.13061e-03_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.16706e-03_rb,0.25676e-03_rb,0.27970e-03_rb,0.28379e-03_rb,0.28013e-03_rb, &\n        & 0.26708e-03_rb,0.24668e-03_rb,0.21081e-03_rb,0.13394e-03_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.16637e-03_rb,0.26037e-03_rb,0.28504e-03_rb,0.29050e-03_rb,0.28611e-03_rb, &\n        & 0.27355e-03_rb,0.25260e-03_rb,0.21670e-03_rb,0.13844e-03_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.14579e-03_rb,0.21908e-03_rb,0.23187e-03_rb,0.23162e-03_rb,0.22921e-03_rb, &\n        & 0.22070e-03_rb,0.19997e-03_rb,0.17094e-03_rb,0.11198e-03_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.14542e-03_rb,0.22095e-03_rb,0.23576e-03_rb,0.23659e-03_rb,0.23393e-03_rb, &\n        & 0.22421e-03_rb,0.20413e-03_rb,0.17485e-03_rb,0.11080e-03_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.14519e-03_rb,0.22277e-03_rb,0.24039e-03_rb,0.24264e-03_rb,0.23941e-03_rb, &\n        & 0.22826e-03_rb,0.20957e-03_rb,0.17862e-03_rb,0.11236e-03_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.14504e-03_rb,0.22526e-03_rb,0.24523e-03_rb,0.24877e-03_rb,0.24473e-03_rb, &\n        & 0.23381e-03_rb,0.21512e-03_rb,0.18339e-03_rb,0.11577e-03_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.14497e-03_rb,0.22869e-03_rb,0.25070e-03_rb,0.25513e-03_rb,0.25076e-03_rb, &\n        & 0.23990e-03_rb,0.22117e-03_rb,0.18804e-03_rb,0.11947e-03_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.12609e-03_rb,0.19125e-03_rb,0.20302e-03_rb,0.20235e-03_rb,0.20038e-03_rb, &\n        & 0.19210e-03_rb,0.17493e-03_rb,0.14918e-03_rb,0.95914e-04_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.12575e-03_rb,0.19304e-03_rb,0.20668e-03_rb,0.20708e-03_rb,0.20395e-03_rb, &\n        & 0.19513e-03_rb,0.17862e-03_rb,0.15191e-03_rb,0.95952e-04_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.12572e-03_rb,0.19504e-03_rb,0.21070e-03_rb,0.21227e-03_rb,0.20862e-03_rb, &\n        & 0.19877e-03_rb,0.18323e-03_rb,0.15540e-03_rb,0.98040e-04_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.12578e-03_rb,0.19736e-03_rb,0.21498e-03_rb,0.21770e-03_rb,0.21305e-03_rb, &\n        & 0.20380e-03_rb,0.18766e-03_rb,0.15949e-03_rb,0.10020e-03_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.12588e-03_rb,0.20051e-03_rb,0.21971e-03_rb,0.22313e-03_rb,0.21848e-03_rb, &\n        & 0.20915e-03_rb,0.19284e-03_rb,0.16321e-03_rb,0.10267e-03_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.10863e-03_rb,0.16576e-03_rb,0.17695e-03_rb,0.17678e-03_rb,0.17469e-03_rb, &\n        & 0.16678e-03_rb,0.15163e-03_rb,0.12940e-03_rb,0.89550e-04_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.10863e-03_rb,0.16706e-03_rb,0.18030e-03_rb,0.18081e-03_rb,0.17775e-03_rb, &\n        & 0.16938e-03_rb,0.15534e-03_rb,0.13148e-03_rb,0.89670e-04_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.10855e-03_rb,0.16916e-03_rb,0.18384e-03_rb,0.18538e-03_rb,0.18134e-03_rb, &\n        & 0.17272e-03_rb,0.15912e-03_rb,0.13459e-03_rb,0.90520e-04_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.10855e-03_rb,0.17152e-03_rb,0.18761e-03_rb,0.18997e-03_rb,0.18510e-03_rb, &\n        & 0.17711e-03_rb,0.16286e-03_rb,0.13757e-03_rb,0.91792e-04_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.10853e-03_rb,0.17415e-03_rb,0.19152e-03_rb,0.19450e-03_rb,0.18955e-03_rb, &\n        & 0.18160e-03_rb,0.16658e-03_rb,0.14151e-03_rb,0.94030e-04_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.92930e-04_rb,0.14283e-03_rb,0.15332e-03_rb,0.15365e-03_rb,0.15192e-03_rb, &\n        & 0.14476e-03_rb,0.13092e-03_rb,0.11095e-03_rb,0.91877e-04_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.92984e-04_rb,0.14401e-03_rb,0.15614e-03_rb,0.15721e-03_rb,0.15413e-03_rb, &\n        & 0.14688e-03_rb,0.13443e-03_rb,0.11315e-03_rb,0.90405e-04_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.92945e-04_rb,0.14573e-03_rb,0.15905e-03_rb,0.16110e-03_rb,0.15737e-03_rb, &\n        & 0.14983e-03_rb,0.13738e-03_rb,0.11591e-03_rb,0.89977e-04_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.93035e-04_rb,0.14787e-03_rb,0.16239e-03_rb,0.16472e-03_rb,0.16084e-03_rb, &\n        & 0.15371e-03_rb,0.14051e-03_rb,0.11827e-03_rb,0.90955e-04_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.92985e-04_rb,0.15023e-03_rb,0.16593e-03_rb,0.16877e-03_rb,0.16496e-03_rb, &\n        & 0.15743e-03_rb,0.14348e-03_rb,0.12221e-03_rb,0.92269e-04_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.79600e-04_rb,0.12290e-03_rb,0.13269e-03_rb,0.13322e-03_rb,0.13145e-03_rb, &\n        & 0.12540e-03_rb,0.11354e-03_rb,0.94559e-04_rb,0.10796e-03_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.79683e-04_rb,0.12390e-03_rb,0.13495e-03_rb,0.13633e-03_rb,0.13351e-03_rb, &\n        & 0.12708e-03_rb,0.11620e-03_rb,0.96898e-04_rb,0.10854e-03_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.79630e-04_rb,0.12537e-03_rb,0.13745e-03_rb,0.13937e-03_rb,0.13626e-03_rb, &\n        & 0.12970e-03_rb,0.11867e-03_rb,0.99068e-04_rb,0.10974e-03_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.79625e-04_rb,0.12719e-03_rb,0.14027e-03_rb,0.14234e-03_rb,0.13941e-03_rb, &\n        & 0.13283e-03_rb,0.12113e-03_rb,0.10155e-03_rb,0.11075e-03_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.79589e-04_rb,0.12914e-03_rb,0.14322e-03_rb,0.14575e-03_rb,0.14305e-03_rb, &\n        & 0.13597e-03_rb,0.12361e-03_rb,0.10505e-03_rb,0.11038e-03_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.67917e-04_rb,0.10525e-03_rb,0.11421e-03_rb,0.11510e-03_rb,0.11341e-03_rb, &\n        & 0.10850e-03_rb,0.97945e-04_rb,0.80197e-04_rb,0.13259e-03_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.67928e-04_rb,0.10625e-03_rb,0.11606e-03_rb,0.11762e-03_rb,0.11532e-03_rb, &\n        & 0.11035e-03_rb,0.10017e-03_rb,0.82394e-04_rb,0.13427e-03_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.67856e-04_rb,0.10744e-03_rb,0.11824e-03_rb,0.11998e-03_rb,0.11756e-03_rb, &\n        & 0.11235e-03_rb,0.10203e-03_rb,0.84408e-04_rb,0.13461e-03_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.67768e-04_rb,0.10890e-03_rb,0.12070e-03_rb,0.12262e-03_rb,0.12012e-03_rb, &\n        & 0.11456e-03_rb,0.10420e-03_rb,0.86916e-04_rb,0.13504e-03_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.67707e-04_rb,0.11054e-03_rb,0.12323e-03_rb,0.12567e-03_rb,0.12318e-03_rb, &\n        & 0.11694e-03_rb,0.10644e-03_rb,0.89648e-04_rb,0.13829e-03_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.57658e-04_rb,0.89812e-04_rb,0.97774e-04_rb,0.98825e-04_rb,0.97412e-04_rb, &\n        & 0.93433e-04_rb,0.84119e-04_rb,0.68026e-04_rb,0.20137e-03_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.57461e-04_rb,0.90575e-04_rb,0.99228e-04_rb,0.10076e-03_rb,0.98930e-04_rb, &\n        & 0.94984e-04_rb,0.86081e-04_rb,0.70085e-04_rb,0.20178e-03_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.57397e-04_rb,0.91666e-04_rb,0.10122e-03_rb,0.10281e-03_rb,0.10088e-03_rb, &\n        & 0.96688e-04_rb,0.87695e-04_rb,0.72010e-04_rb,0.20052e-03_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.57291e-04_rb,0.92869e-04_rb,0.10334e-03_rb,0.10517e-03_rb,0.10317e-03_rb, &\n        & 0.98293e-04_rb,0.89394e-04_rb,0.74251e-04_rb,0.20103e-03_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.57126e-04_rb,0.94072e-04_rb,0.10545e-03_rb,0.10789e-03_rb,0.10579e-03_rb, &\n        & 0.10034e-03_rb,0.91420e-04_rb,0.76761e-04_rb,0.20035e-03_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.48600e-04_rb,0.76535e-04_rb,0.83721e-04_rb,0.84782e-04_rb,0.83379e-04_rb, &\n        & 0.80481e-04_rb,0.72441e-04_rb,0.58503e-04_rb,0.20926e-03_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.48356e-04_rb,0.77272e-04_rb,0.85067e-04_rb,0.86588e-04_rb,0.84928e-04_rb, &\n        & 0.81803e-04_rb,0.74015e-04_rb,0.60222e-04_rb,0.21110e-03_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.48180e-04_rb,0.78198e-04_rb,0.86939e-04_rb,0.88416e-04_rb,0.86712e-04_rb, &\n        & 0.83176e-04_rb,0.75535e-04_rb,0.61973e-04_rb,0.20823e-03_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.48042e-04_rb,0.79160e-04_rb,0.88776e-04_rb,0.90704e-04_rb,0.88934e-04_rb, &\n        & 0.84522e-04_rb,0.76983e-04_rb,0.64264e-04_rb,0.20745e-03_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.47901e-04_rb,0.80171e-04_rb,0.90395e-04_rb,0.92950e-04_rb,0.91253e-04_rb, &\n        & 0.86364e-04_rb,0.78675e-04_rb,0.66159e-04_rb,0.20642e-03_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.40769e-04_rb,0.64775e-04_rb,0.71240e-04_rb,0.72409e-04_rb,0.71085e-04_rb, &\n        & 0.68679e-04_rb,0.61925e-04_rb,0.50009e-04_rb,0.19056e-03_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.40486e-04_rb,0.65479e-04_rb,0.72574e-04_rb,0.73906e-04_rb,0.72438e-04_rb, &\n        & 0.69693e-04_rb,0.63286e-04_rb,0.51717e-04_rb,0.19000e-03_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.40313e-04_rb,0.66212e-04_rb,0.74137e-04_rb,0.75686e-04_rb,0.74201e-04_rb, &\n        & 0.70781e-04_rb,0.64554e-04_rb,0.53372e-04_rb,0.19242e-03_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.40107e-04_rb,0.66938e-04_rb,0.75524e-04_rb,0.77664e-04_rb,0.76142e-04_rb, &\n        & 0.72280e-04_rb,0.65894e-04_rb,0.55174e-04_rb,0.19382e-03_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.39910e-04_rb,0.67782e-04_rb,0.76780e-04_rb,0.79463e-04_rb,0.78210e-04_rb, &\n        & 0.73902e-04_rb,0.67292e-04_rb,0.56789e-04_rb,0.19106e-03_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.34103e-04_rb,0.54622e-04_rb,0.60315e-04_rb,0.61417e-04_rb,0.60332e-04_rb, &\n        & 0.58110e-04_rb,0.52537e-04_rb,0.42612e-04_rb,0.15955e-03_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.33853e-04_rb,0.55148e-04_rb,0.61492e-04_rb,0.62745e-04_rb,0.61577e-04_rb, &\n        & 0.59061e-04_rb,0.53702e-04_rb,0.43873e-04_rb,0.15892e-03_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.33647e-04_rb,0.55699e-04_rb,0.62687e-04_rb,0.64355e-04_rb,0.63160e-04_rb, &\n        & 0.60072e-04_rb,0.54954e-04_rb,0.45643e-04_rb,0.16047e-03_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.33430e-04_rb,0.56291e-04_rb,0.63770e-04_rb,0.65844e-04_rb,0.64844e-04_rb, &\n        & 0.61457e-04_rb,0.56064e-04_rb,0.47101e-04_rb,0.16125e-03_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.33186e-04_rb,0.56947e-04_rb,0.64747e-04_rb,0.67352e-04_rb,0.66508e-04_rb, &\n        & 0.62903e-04_rb,0.57307e-04_rb,0.48379e-04_rb,0.16021e-03_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.36602e-03_rb,0.52858e-03_rb,0.59251e-03_rb,0.61027e-03_rb,0.60893e-03_rb, &\n        & 0.58987e-03_rb,0.55560e-03_rb,0.49855e-03_rb,0.38105e-03_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.36935e-03_rb,0.53570e-03_rb,0.60138e-03_rb,0.62341e-03_rb,0.62297e-03_rb, &\n        & 0.60228e-03_rb,0.56872e-03_rb,0.51035e-03_rb,0.39106e-03_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.37348e-03_rb,0.54590e-03_rb,0.61238e-03_rb,0.63855e-03_rb,0.63820e-03_rb, &\n        & 0.61734e-03_rb,0.58475e-03_rb,0.52206e-03_rb,0.40317e-03_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.37665e-03_rb,0.55373e-03_rb,0.62261e-03_rb,0.65120e-03_rb,0.65250e-03_rb, &\n        & 0.63373e-03_rb,0.59840e-03_rb,0.53517e-03_rb,0.41639e-03_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.38076e-03_rb,0.56302e-03_rb,0.63456e-03_rb,0.66611e-03_rb,0.66857e-03_rb, &\n        & 0.65240e-03_rb,0.61521e-03_rb,0.55178e-03_rb,0.43702e-03_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.32225e-03_rb,0.47151e-03_rb,0.53262e-03_rb,0.55192e-03_rb,0.54706e-03_rb, &\n        & 0.52658e-03_rb,0.49569e-03_rb,0.43958e-03_rb,0.31739e-03_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.32532e-03_rb,0.47816e-03_rb,0.54076e-03_rb,0.56222e-03_rb,0.55834e-03_rb, &\n        & 0.53879e-03_rb,0.50612e-03_rb,0.44777e-03_rb,0.32763e-03_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.32941e-03_rb,0.48729e-03_rb,0.55083e-03_rb,0.57497e-03_rb,0.57312e-03_rb, &\n        & 0.55394e-03_rb,0.51991e-03_rb,0.45969e-03_rb,0.33942e-03_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.33303e-03_rb,0.49510e-03_rb,0.56036e-03_rb,0.58720e-03_rb,0.58669e-03_rb, &\n        & 0.56974e-03_rb,0.53255e-03_rb,0.47385e-03_rb,0.35453e-03_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.33657e-03_rb,0.50290e-03_rb,0.57014e-03_rb,0.59917e-03_rb,0.59997e-03_rb, &\n        & 0.58475e-03_rb,0.54777e-03_rb,0.48909e-03_rb,0.36980e-03_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.28263e-03_rb,0.41968e-03_rb,0.47376e-03_rb,0.49297e-03_rb,0.48633e-03_rb, &\n        & 0.46530e-03_rb,0.43654e-03_rb,0.38496e-03_rb,0.26217e-03_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.28517e-03_rb,0.42528e-03_rb,0.48017e-03_rb,0.50148e-03_rb,0.49564e-03_rb, &\n        & 0.47634e-03_rb,0.44517e-03_rb,0.39228e-03_rb,0.27386e-03_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.28805e-03_rb,0.43254e-03_rb,0.48769e-03_rb,0.51075e-03_rb,0.50628e-03_rb, &\n        & 0.48940e-03_rb,0.45557e-03_rb,0.40274e-03_rb,0.28527e-03_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.29156e-03_rb,0.44130e-03_rb,0.49824e-03_rb,0.52245e-03_rb,0.52001e-03_rb, &\n        & 0.50355e-03_rb,0.46711e-03_rb,0.41540e-03_rb,0.29729e-03_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.29453e-03_rb,0.44828e-03_rb,0.50753e-03_rb,0.53257e-03_rb,0.53321e-03_rb, &\n        & 0.51645e-03_rb,0.48189e-03_rb,0.42882e-03_rb,0.30960e-03_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.24709e-03_rb,0.37040e-03_rb,0.41811e-03_rb,0.43692e-03_rb,0.42924e-03_rb, &\n        & 0.40974e-03_rb,0.38217e-03_rb,0.33504e-03_rb,0.21956e-03_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.24935e-03_rb,0.37531e-03_rb,0.42359e-03_rb,0.44356e-03_rb,0.43669e-03_rb, &\n        & 0.41955e-03_rb,0.39063e-03_rb,0.34337e-03_rb,0.23257e-03_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.25192e-03_rb,0.38183e-03_rb,0.43049e-03_rb,0.45130e-03_rb,0.44572e-03_rb, &\n        & 0.43016e-03_rb,0.39919e-03_rb,0.35274e-03_rb,0.24051e-03_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.25420e-03_rb,0.38887e-03_rb,0.43864e-03_rb,0.46020e-03_rb,0.45692e-03_rb, &\n        & 0.44111e-03_rb,0.40882e-03_rb,0.36219e-03_rb,0.24966e-03_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.25772e-03_rb,0.39769e-03_rb,0.44993e-03_rb,0.47213e-03_rb,0.47068e-03_rb, &\n        & 0.45426e-03_rb,0.42157e-03_rb,0.37400e-03_rb,0.25930e-03_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.21574e-03_rb,0.32603e-03_rb,0.36644e-03_rb,0.38307e-03_rb,0.37721e-03_rb, &\n        & 0.36018e-03_rb,0.33363e-03_rb,0.29143e-03_rb,0.18896e-03_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.21778e-03_rb,0.33044e-03_rb,0.37107e-03_rb,0.38833e-03_rb,0.38426e-03_rb, &\n        & 0.36797e-03_rb,0.34054e-03_rb,0.29920e-03_rb,0.19816e-03_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.22015e-03_rb,0.33584e-03_rb,0.37735e-03_rb,0.39513e-03_rb,0.39228e-03_rb, &\n        & 0.37720e-03_rb,0.34842e-03_rb,0.30654e-03_rb,0.20383e-03_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.22252e-03_rb,0.34167e-03_rb,0.38484e-03_rb,0.40343e-03_rb,0.40251e-03_rb, &\n        & 0.38567e-03_rb,0.35760e-03_rb,0.31401e-03_rb,0.21178e-03_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.22604e-03_rb,0.34964e-03_rb,0.39509e-03_rb,0.41443e-03_rb,0.41465e-03_rb, &\n        & 0.39685e-03_rb,0.36847e-03_rb,0.32400e-03_rb,0.21929e-03_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.18783e-03_rb,0.28666e-03_rb,0.32037e-03_rb,0.33351e-03_rb,0.32945e-03_rb, &\n        & 0.31516e-03_rb,0.29066e-03_rb,0.25263e-03_rb,0.16238e-03_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.18921e-03_rb,0.29078e-03_rb,0.32423e-03_rb,0.33799e-03_rb,0.33536e-03_rb, &\n        & 0.32156e-03_rb,0.29643e-03_rb,0.25941e-03_rb,0.16831e-03_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.19117e-03_rb,0.29487e-03_rb,0.32978e-03_rb,0.34375e-03_rb,0.34274e-03_rb, &\n        & 0.32907e-03_rb,0.30344e-03_rb,0.26560e-03_rb,0.17389e-03_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.19356e-03_rb,0.29979e-03_rb,0.33631e-03_rb,0.35135e-03_rb,0.35098e-03_rb, &\n        & 0.33648e-03_rb,0.31108e-03_rb,0.27199e-03_rb,0.18056e-03_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.19643e-03_rb,0.30567e-03_rb,0.34396e-03_rb,0.35996e-03_rb,0.36067e-03_rb, &\n        & 0.34559e-03_rb,0.32056e-03_rb,0.28009e-03_rb,0.18507e-03_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.16233e-03_rb,0.25159e-03_rb,0.28051e-03_rb,0.29071e-03_rb,0.28724e-03_rb, &\n        & 0.27399e-03_rb,0.25257e-03_rb,0.21995e-03_rb,0.15053e-03_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.16394e-03_rb,0.25497e-03_rb,0.28374e-03_rb,0.29454e-03_rb,0.29203e-03_rb, &\n        & 0.28002e-03_rb,0.25781e-03_rb,0.22523e-03_rb,0.15467e-03_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.16554e-03_rb,0.25862e-03_rb,0.28837e-03_rb,0.29946e-03_rb,0.29804e-03_rb, &\n        & 0.28580e-03_rb,0.26386e-03_rb,0.23003e-03_rb,0.15858e-03_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.16755e-03_rb,0.26275e-03_rb,0.29380e-03_rb,0.30624e-03_rb,0.30499e-03_rb, &\n        & 0.29233e-03_rb,0.27029e-03_rb,0.23539e-03_rb,0.16161e-03_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.17007e-03_rb,0.26765e-03_rb,0.30035e-03_rb,0.31353e-03_rb,0.31332e-03_rb, &\n        & 0.30019e-03_rb,0.27871e-03_rb,0.24192e-03_rb,0.16587e-03_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.14021e-03_rb,0.21983e-03_rb,0.24557e-03_rb,0.25394e-03_rb,0.25027e-03_rb, &\n        & 0.23769e-03_rb,0.21853e-03_rb,0.19056e-03_rb,0.17210e-03_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.14181e-03_rb,0.22244e-03_rb,0.24837e-03_rb,0.25730e-03_rb,0.25433e-03_rb, &\n        & 0.24284e-03_rb,0.22361e-03_rb,0.19448e-03_rb,0.16707e-03_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.14344e-03_rb,0.22578e-03_rb,0.25216e-03_rb,0.26169e-03_rb,0.25950e-03_rb, &\n        & 0.24760e-03_rb,0.22868e-03_rb,0.19861e-03_rb,0.16518e-03_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.14524e-03_rb,0.22935e-03_rb,0.25652e-03_rb,0.26715e-03_rb,0.26554e-03_rb, &\n        & 0.25327e-03_rb,0.23470e-03_rb,0.20360e-03_rb,0.16514e-03_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.14752e-03_rb,0.23348e-03_rb,0.26209e-03_rb,0.27316e-03_rb,0.27225e-03_rb, &\n        & 0.26056e-03_rb,0.24203e-03_rb,0.20916e-03_rb,0.16671e-03_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.12008e-03_rb,0.19084e-03_rb,0.21359e-03_rb,0.22137e-03_rb,0.21826e-03_rb, &\n        & 0.20646e-03_rb,0.18855e-03_rb,0.16443e-03_rb,0.31379e-03_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.12170e-03_rb,0.19281e-03_rb,0.21619e-03_rb,0.22414e-03_rb,0.22156e-03_rb, &\n        & 0.21036e-03_rb,0.19272e-03_rb,0.16751e-03_rb,0.30810e-03_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.12341e-03_rb,0.19553e-03_rb,0.21930e-03_rb,0.22810e-03_rb,0.22604e-03_rb, &\n        & 0.21457e-03_rb,0.19724e-03_rb,0.17093e-03_rb,0.30579e-03_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.12515e-03_rb,0.19866e-03_rb,0.22306e-03_rb,0.23273e-03_rb,0.23128e-03_rb, &\n        & 0.22000e-03_rb,0.20255e-03_rb,0.17520e-03_rb,0.30468e-03_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.12711e-03_rb,0.20244e-03_rb,0.22780e-03_rb,0.23779e-03_rb,0.23723e-03_rb, &\n        & 0.22672e-03_rb,0.20873e-03_rb,0.18006e-03_rb,0.30071e-03_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.10239e-03_rb,0.16495e-03_rb,0.18568e-03_rb,0.19287e-03_rb,0.19038e-03_rb, &\n        & 0.17962e-03_rb,0.16274e-03_rb,0.14112e-03_rb,0.46281e-03_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.10386e-03_rb,0.16652e-03_rb,0.18791e-03_rb,0.19539e-03_rb,0.19307e-03_rb, &\n        & 0.18291e-03_rb,0.16628e-03_rb,0.14354e-03_rb,0.46032e-03_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.10550e-03_rb,0.16884e-03_rb,0.19060e-03_rb,0.19863e-03_rb,0.19685e-03_rb, &\n        & 0.18669e-03_rb,0.17045e-03_rb,0.14674e-03_rb,0.45882e-03_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.10710e-03_rb,0.17185e-03_rb,0.19377e-03_rb,0.20238e-03_rb,0.20140e-03_rb, &\n        & 0.19164e-03_rb,0.17544e-03_rb,0.15076e-03_rb,0.45556e-03_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.10887e-03_rb,0.17528e-03_rb,0.19755e-03_rb,0.20663e-03_rb,0.20650e-03_rb, &\n        & 0.19756e-03_rb,0.18068e-03_rb,0.15495e-03_rb,0.45295e-03_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.87454e-04_rb,0.14214e-03_rb,0.16093e-03_rb,0.16784e-03_rb,0.16634e-03_rb, &\n        & 0.15750e-03_rb,0.14233e-03_rb,0.12157e-03_rb,0.50227e-03_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.89026e-04_rb,0.14363e-03_rb,0.16297e-03_rb,0.17024e-03_rb,0.16905e-03_rb, &\n        & 0.16052e-03_rb,0.14560e-03_rb,0.12384e-03_rb,0.48800e-03_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.90456e-04_rb,0.14595e-03_rb,0.16534e-03_rb,0.17342e-03_rb,0.17281e-03_rb, &\n        & 0.16441e-03_rb,0.14965e-03_rb,0.12699e-03_rb,0.48638e-03_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.91788e-04_rb,0.14885e-03_rb,0.16823e-03_rb,0.17680e-03_rb,0.17688e-03_rb, &\n        & 0.16911e-03_rb,0.15409e-03_rb,0.13060e-03_rb,0.48097e-03_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.92958e-04_rb,0.15220e-03_rb,0.17197e-03_rb,0.18085e-03_rb,0.18150e-03_rb, &\n        & 0.17440e-03_rb,0.15892e-03_rb,0.13466e-03_rb,0.48115e-03_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.74228e-04_rb,0.12171e-03_rb,0.13828e-03_rb,0.14464e-03_rb,0.14381e-03_rb, &\n        & 0.13674e-03_rb,0.12370e-03_rb,0.10454e-03_rb,0.48263e-03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.75542e-04_rb,0.12330e-03_rb,0.13992e-03_rb,0.14688e-03_rb,0.14666e-03_rb, &\n        & 0.13981e-03_rb,0.12694e-03_rb,0.10662e-03_rb,0.46961e-03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.76696e-04_rb,0.12551e-03_rb,0.14218e-03_rb,0.14964e-03_rb,0.14989e-03_rb, &\n        & 0.14346e-03_rb,0.13058e-03_rb,0.10986e-03_rb,0.45986e-03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.77769e-04_rb,0.12821e-03_rb,0.14505e-03_rb,0.15276e-03_rb,0.15361e-03_rb, &\n        & 0.14764e-03_rb,0.13466e-03_rb,0.11322e-03_rb,0.45064e-03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.78633e-04_rb,0.13113e-03_rb,0.14863e-03_rb,0.15667e-03_rb,0.15783e-03_rb, &\n        & 0.15249e-03_rb,0.13915e-03_rb,0.11696e-03_rb,0.45257e-03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.62659e-04_rb,0.10388e-03_rb,0.11828e-03_rb,0.12392e-03_rb,0.12371e-03_rb, &\n        & 0.11811e-03_rb,0.10712e-03_rb,0.89769e-04_rb,0.40925e-03_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.63709e-04_rb,0.10546e-03_rb,0.11986e-03_rb,0.12594e-03_rb,0.12627e-03_rb, &\n        & 0.12095e-03_rb,0.11006e-03_rb,0.92053e-04_rb,0.39852e-03_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.64717e-04_rb,0.10750e-03_rb,0.12189e-03_rb,0.12839e-03_rb,0.12907e-03_rb, &\n        & 0.12414e-03_rb,0.11317e-03_rb,0.94939e-04_rb,0.39013e-03_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.65465e-04_rb,0.10983e-03_rb,0.12464e-03_rb,0.13149e-03_rb,0.13253e-03_rb, &\n        & 0.12801e-03_rb,0.11693e-03_rb,0.98001e-04_rb,0.38349e-03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.66137e-04_rb,0.11222e-03_rb,0.12786e-03_rb,0.13517e-03_rb,0.13652e-03_rb, &\n        & 0.13219e-03_rb,0.12093e-03_rb,0.10155e-03_rb,0.38305e-03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.60998e-03_rb,0.92357e-03_rb,0.10463e-02_rb,0.11196e-02_rb,0.11571e-02_rb, &\n        & 0.11569e-02_rb,0.11152e-02_rb,0.10342e-02_rb,0.80721e-03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.61496e-03_rb,0.93510e-03_rb,0.10604e-02_rb,0.11361e-02_rb,0.11777e-02_rb, &\n        & 0.11834e-02_rb,0.11457e-02_rb,0.10708e-02_rb,0.83732e-03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.62454e-03_rb,0.95002e-03_rb,0.10819e-02_rb,0.11594e-02_rb,0.12038e-02_rb, &\n        & 0.12158e-02_rb,0.11823e-02_rb,0.11158e-02_rb,0.87187e-03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.63013e-03_rb,0.96444e-03_rb,0.11010e-02_rb,0.11847e-02_rb,0.12326e-02_rb, &\n        & 0.12499e-02_rb,0.12239e-02_rb,0.11623e-02_rb,0.91505e-03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.63867e-03_rb,0.98562e-03_rb,0.11276e-02_rb,0.12151e-02_rb,0.12673e-02_rb, &\n        & 0.12886e-02_rb,0.12687e-02_rb,0.12127e-02_rb,0.95931e-03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.54006e-03_rb,0.82110e-03_rb,0.93517e-03_rb,0.10086e-02_rb,0.10436e-02_rb, &\n        & 0.10473e-02_rb,0.10071e-02_rb,0.92435e-03_rb,0.69632e-03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.54512e-03_rb,0.83214e-03_rb,0.94586e-03_rb,0.10224e-02_rb,0.10616e-02_rb, &\n        & 0.10697e-02_rb,0.10360e-02_rb,0.95897e-03_rb,0.72282e-03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.55430e-03_rb,0.84713e-03_rb,0.96481e-03_rb,0.10423e-02_rb,0.10850e-02_rb, &\n        & 0.10972e-02_rb,0.10691e-02_rb,0.99640e-03_rb,0.75512e-03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.56089e-03_rb,0.86369e-03_rb,0.98575e-03_rb,0.10648e-02_rb,0.11112e-02_rb, &\n        & 0.11281e-02_rb,0.11049e-02_rb,0.10361e-02_rb,0.79150e-03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.56701e-03_rb,0.88105e-03_rb,0.10081e-02_rb,0.10898e-02_rb,0.11420e-02_rb, &\n        & 0.11626e-02_rb,0.11406e-02_rb,0.10780e-02_rb,0.83023e-03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.47586e-03_rb,0.72781e-03_rb,0.83369e-03_rb,0.89860e-03_rb,0.93234e-03_rb, &\n        & 0.93626e-03_rb,0.89909e-03_rb,0.81585e-03_rb,0.59036e-03_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.48035e-03_rb,0.73757e-03_rb,0.84502e-03_rb,0.91276e-03_rb,0.94800e-03_rb, &\n        & 0.95536e-03_rb,0.92668e-03_rb,0.84501e-03_rb,0.61080e-03_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.48667e-03_rb,0.74941e-03_rb,0.86058e-03_rb,0.92996e-03_rb,0.96794e-03_rb, &\n        & 0.97737e-03_rb,0.95368e-03_rb,0.87646e-03_rb,0.63872e-03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.49637e-03_rb,0.76538e-03_rb,0.87882e-03_rb,0.95073e-03_rb,0.99190e-03_rb, &\n        & 0.10051e-02_rb,0.98438e-03_rb,0.91070e-03_rb,0.66866e-03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.50269e-03_rb,0.78028e-03_rb,0.89635e-03_rb,0.97198e-03_rb,0.10179e-02_rb, &\n        & 0.10338e-02_rb,0.10130e-02_rb,0.94553e-03_rb,0.70095e-03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.41745e-03_rb,0.64505e-03_rb,0.73966e-03_rb,0.79761e-03_rb,0.82752e-03_rb, &\n        & 0.82878e-03_rb,0.79470e-03_rb,0.71636e-03_rb,0.49987e-03_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.42212e-03_rb,0.65318e-03_rb,0.75017e-03_rb,0.80979e-03_rb,0.84194e-03_rb, &\n        & 0.84473e-03_rb,0.81717e-03_rb,0.73865e-03_rb,0.51625e-03_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.42808e-03_rb,0.66407e-03_rb,0.76314e-03_rb,0.82416e-03_rb,0.85814e-03_rb, &\n        & 0.86375e-03_rb,0.83972e-03_rb,0.76440e-03_rb,0.53894e-03_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.43544e-03_rb,0.67737e-03_rb,0.77911e-03_rb,0.84222e-03_rb,0.87777e-03_rb, &\n        & 0.88583e-03_rb,0.86479e-03_rb,0.79362e-03_rb,0.56271e-03_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.44549e-03_rb,0.69330e-03_rb,0.79686e-03_rb,0.86274e-03_rb,0.90103e-03_rb, &\n        & 0.91189e-03_rb,0.89184e-03_rb,0.82416e-03_rb,0.58887e-03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.36593e-03_rb,0.56942e-03_rb,0.65432e-03_rb,0.70354e-03_rb,0.72916e-03_rb, &\n        & 0.72850e-03_rb,0.69713e-03_rb,0.62558e-03_rb,0.42621e-03_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.37099e-03_rb,0.57654e-03_rb,0.66395e-03_rb,0.71472e-03_rb,0.74107e-03_rb, &\n        & 0.74240e-03_rb,0.71535e-03_rb,0.64376e-03_rb,0.43884e-03_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.37647e-03_rb,0.58652e-03_rb,0.67530e-03_rb,0.72837e-03_rb,0.75654e-03_rb, &\n        & 0.75759e-03_rb,0.73402e-03_rb,0.66546e-03_rb,0.45630e-03_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.38311e-03_rb,0.59837e-03_rb,0.68871e-03_rb,0.74328e-03_rb,0.77277e-03_rb, &\n        & 0.77677e-03_rb,0.75490e-03_rb,0.68962e-03_rb,0.47449e-03_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.39217e-03_rb,0.61368e-03_rb,0.70480e-03_rb,0.76178e-03_rb,0.79297e-03_rb, &\n        & 0.79889e-03_rb,0.77761e-03_rb,0.71542e-03_rb,0.49580e-03_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.32055e-03_rb,0.49922e-03_rb,0.57435e-03_rb,0.61868e-03_rb,0.63931e-03_rb, &\n        & 0.63779e-03_rb,0.60689e-03_rb,0.54327e-03_rb,0.36282e-03_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.32502e-03_rb,0.50520e-03_rb,0.58251e-03_rb,0.62835e-03_rb,0.64977e-03_rb, &\n        & 0.64920e-03_rb,0.62209e-03_rb,0.55837e-03_rb,0.37399e-03_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.33055e-03_rb,0.51462e-03_rb,0.59267e-03_rb,0.63972e-03_rb,0.66253e-03_rb, &\n        & 0.66213e-03_rb,0.63802e-03_rb,0.57660e-03_rb,0.38710e-03_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.33647e-03_rb,0.52569e-03_rb,0.60454e-03_rb,0.65260e-03_rb,0.67645e-03_rb, &\n        & 0.67638e-03_rb,0.65560e-03_rb,0.59667e-03_rb,0.40130e-03_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.34306e-03_rb,0.53846e-03_rb,0.61820e-03_rb,0.66796e-03_rb,0.69284e-03_rb, &\n        & 0.69400e-03_rb,0.67340e-03_rb,0.61700e-03_rb,0.41923e-03_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.28149e-03_rb,0.43644e-03_rb,0.49974e-03_rb,0.53938e-03_rb,0.55701e-03_rb, &\n        & 0.55579e-03_rb,0.52736e-03_rb,0.47001e-03_rb,0.31306e-03_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.28528e-03_rb,0.44207e-03_rb,0.50655e-03_rb,0.54763e-03_rb,0.56691e-03_rb, &\n        & 0.56439e-03_rb,0.53930e-03_rb,0.48247e-03_rb,0.32173e-03_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.29004e-03_rb,0.45020e-03_rb,0.51518e-03_rb,0.55741e-03_rb,0.57771e-03_rb, &\n        & 0.57585e-03_rb,0.55263e-03_rb,0.49748e-03_rb,0.33090e-03_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.29568e-03_rb,0.46070e-03_rb,0.52625e-03_rb,0.56864e-03_rb,0.58962e-03_rb, &\n        & 0.58944e-03_rb,0.56702e-03_rb,0.51458e-03_rb,0.34232e-03_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.30178e-03_rb,0.47274e-03_rb,0.53886e-03_rb,0.58253e-03_rb,0.60354e-03_rb, &\n        & 0.60454e-03_rb,0.58225e-03_rb,0.53128e-03_rb,0.35470e-03_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.24786e-03_rb,0.38205e-03_rb,0.43403e-03_rb,0.46727e-03_rb,0.48302e-03_rb, &\n        & 0.48227e-03_rb,0.45812e-03_rb,0.40611e-03_rb,0.30468e-03_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.25026e-03_rb,0.38705e-03_rb,0.43948e-03_rb,0.47351e-03_rb,0.49158e-03_rb, &\n        & 0.49003e-03_rb,0.46771e-03_rb,0.41673e-03_rb,0.30992e-03_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.25464e-03_rb,0.39453e-03_rb,0.44681e-03_rb,0.48211e-03_rb,0.50112e-03_rb, &\n        & 0.49992e-03_rb,0.47844e-03_rb,0.42901e-03_rb,0.31626e-03_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.25978e-03_rb,0.40390e-03_rb,0.45683e-03_rb,0.49220e-03_rb,0.51134e-03_rb, &\n        & 0.51141e-03_rb,0.48898e-03_rb,0.44238e-03_rb,0.32406e-03_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.26514e-03_rb,0.41428e-03_rb,0.46827e-03_rb,0.50433e-03_rb,0.52333e-03_rb, &\n        & 0.52414e-03_rb,0.50147e-03_rb,0.45619e-03_rb,0.33317e-03_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.21824e-03_rb,0.33786e-03_rb,0.37946e-03_rb,0.40535e-03_rb,0.41752e-03_rb, &\n        & 0.41661e-03_rb,0.39611e-03_rb,0.34986e-03_rb,0.52178e-03_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.22059e-03_rb,0.34230e-03_rb,0.38410e-03_rb,0.41056e-03_rb,0.42477e-03_rb, &\n        & 0.42372e-03_rb,0.40485e-03_rb,0.35866e-03_rb,0.50681e-03_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.22400e-03_rb,0.34814e-03_rb,0.39039e-03_rb,0.41748e-03_rb,0.43284e-03_rb, &\n        & 0.43220e-03_rb,0.41363e-03_rb,0.36885e-03_rb,0.49302e-03_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.22873e-03_rb,0.35603e-03_rb,0.39905e-03_rb,0.42659e-03_rb,0.44174e-03_rb, &\n        & 0.44167e-03_rb,0.42288e-03_rb,0.37972e-03_rb,0.48294e-03_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.23347e-03_rb,0.36495e-03_rb,0.40893e-03_rb,0.43763e-03_rb,0.45181e-03_rb, &\n        & 0.45234e-03_rb,0.43347e-03_rb,0.39120e-03_rb,0.47762e-03_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.19122e-03_rb,0.29954e-03_rb,0.33486e-03_rb,0.35474e-03_rb,0.36349e-03_rb, &\n        & 0.36120e-03_rb,0.34300e-03_rb,0.30153e-03_rb,0.10818e-02_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.19375e-03_rb,0.30331e-03_rb,0.33858e-03_rb,0.35959e-03_rb,0.36963e-03_rb, &\n        & 0.36736e-03_rb,0.35033e-03_rb,0.30927e-03_rb,0.10683e-02_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.19685e-03_rb,0.30858e-03_rb,0.34410e-03_rb,0.36599e-03_rb,0.37648e-03_rb, &\n        & 0.37420e-03_rb,0.35748e-03_rb,0.31737e-03_rb,0.10704e-02_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.20091e-03_rb,0.31499e-03_rb,0.35151e-03_rb,0.37400e-03_rb,0.38421e-03_rb, &\n        & 0.38207e-03_rb,0.36506e-03_rb,0.32617e-03_rb,0.10743e-02_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.20539e-03_rb,0.32294e-03_rb,0.36050e-03_rb,0.38325e-03_rb,0.39308e-03_rb, &\n        & 0.39074e-03_rb,0.37406e-03_rb,0.33544e-03_rb,0.10696e-02_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.16667e-03_rb,0.26520e-03_rb,0.29671e-03_rb,0.31441e-03_rb,0.32093e-03_rb, &\n        & 0.31659e-03_rb,0.30045e-03_rb,0.26340e-03_rb,0.11835e-02_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.16885e-03_rb,0.26948e-03_rb,0.30096e-03_rb,0.31914e-03_rb,0.32661e-03_rb, &\n        & 0.32210e-03_rb,0.30657e-03_rb,0.27004e-03_rb,0.11814e-02_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.17223e-03_rb,0.27439e-03_rb,0.30661e-03_rb,0.32470e-03_rb,0.33272e-03_rb, &\n        & 0.32842e-03_rb,0.31227e-03_rb,0.27654e-03_rb,0.11630e-02_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.17618e-03_rb,0.28049e-03_rb,0.31365e-03_rb,0.33181e-03_rb,0.33965e-03_rb, &\n        & 0.33555e-03_rb,0.31903e-03_rb,0.28400e-03_rb,0.11485e-02_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.18103e-03_rb,0.28752e-03_rb,0.32181e-03_rb,0.34031e-03_rb,0.34776e-03_rb, &\n        & 0.34353e-03_rb,0.32710e-03_rb,0.29221e-03_rb,0.11367e-02_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.14364e-03_rb,0.23191e-03_rb,0.26011e-03_rb,0.27602e-03_rb,0.28230e-03_rb, &\n        & 0.27753e-03_rb,0.26259e-03_rb,0.22940e-03_rb,0.11242e-02_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.14586e-03_rb,0.23578e-03_rb,0.26464e-03_rb,0.28074e-03_rb,0.28728e-03_rb, &\n        & 0.28268e-03_rb,0.26740e-03_rb,0.23511e-03_rb,0.11131e-02_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.14908e-03_rb,0.24042e-03_rb,0.27020e-03_rb,0.28659e-03_rb,0.29280e-03_rb, &\n        & 0.28866e-03_rb,0.27254e-03_rb,0.24089e-03_rb,0.10996e-02_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.15297e-03_rb,0.24595e-03_rb,0.27661e-03_rb,0.29313e-03_rb,0.29926e-03_rb, &\n        & 0.29513e-03_rb,0.27870e-03_rb,0.24706e-03_rb,0.10965e-02_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.15735e-03_rb,0.25242e-03_rb,0.28422e-03_rb,0.30069e-03_rb,0.30695e-03_rb, &\n        & 0.30241e-03_rb,0.28613e-03_rb,0.25425e-03_rb,0.10839e-02_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.12345e-03_rb,0.20108e-03_rb,0.22674e-03_rb,0.24086e-03_rb,0.24638e-03_rb, &\n        & 0.24238e-03_rb,0.22876e-03_rb,0.19931e-03_rb,0.96895e-03_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.12581e-03_rb,0.20480e-03_rb,0.23117e-03_rb,0.24535e-03_rb,0.25104e-03_rb, &\n        & 0.24702e-03_rb,0.23303e-03_rb,0.20421e-03_rb,0.96294e-03_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.12856e-03_rb,0.20921e-03_rb,0.23606e-03_rb,0.25076e-03_rb,0.25631e-03_rb, &\n        & 0.25243e-03_rb,0.23816e-03_rb,0.20920e-03_rb,0.95736e-03_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.13210e-03_rb,0.21428e-03_rb,0.24223e-03_rb,0.25691e-03_rb,0.26218e-03_rb, &\n        & 0.25847e-03_rb,0.24400e-03_rb,0.21468e-03_rb,0.95389e-03_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.13599e-03_rb,0.22037e-03_rb,0.24914e-03_rb,0.26391e-03_rb,0.26911e-03_rb, &\n        & 0.26543e-03_rb,0.25095e-03_rb,0.22101e-03_rb,0.94116e-03_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.10602e-02_rb,0.17123e-02_rb,0.20157e-02_rb,0.22277e-02_rb,0.23726e-02_rb, &\n        & 0.24628e-02_rb,0.25069e-02_rb,0.24686e-02_rb,0.20168e-02_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.10672e-02_rb,0.17270e-02_rb,0.20414e-02_rb,0.22652e-02_rb,0.24211e-02_rb, &\n        & 0.25212e-02_rb,0.25704e-02_rb,0.25272e-02_rb,0.20646e-02_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.10788e-02_rb,0.17509e-02_rb,0.20769e-02_rb,0.23112e-02_rb,0.24814e-02_rb, &\n        & 0.25914e-02_rb,0.26418e-02_rb,0.25942e-02_rb,0.21193e-02_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.10874e-02_rb,0.17764e-02_rb,0.21176e-02_rb,0.23585e-02_rb,0.25381e-02_rb, &\n        & 0.26622e-02_rb,0.27175e-02_rb,0.26689e-02_rb,0.21851e-02_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.11018e-02_rb,0.18090e-02_rb,0.21640e-02_rb,0.24172e-02_rb,0.26051e-02_rb, &\n        & 0.27415e-02_rb,0.28075e-02_rb,0.27566e-02_rb,0.22604e-02_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.95075e-03_rb,0.15355e-02_rb,0.17976e-02_rb,0.19766e-02_rb,0.21006e-02_rb, &\n        & 0.21710e-02_rb,0.21998e-02_rb,0.21663e-02_rb,0.17568e-02_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.96010e-03_rb,0.15501e-02_rb,0.18242e-02_rb,0.20112e-02_rb,0.21419e-02_rb, &\n        & 0.22180e-02_rb,0.22475e-02_rb,0.22135e-02_rb,0.17960e-02_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.97337e-03_rb,0.15726e-02_rb,0.18580e-02_rb,0.20531e-02_rb,0.21905e-02_rb, &\n        & 0.22742e-02_rb,0.23072e-02_rb,0.22697e-02_rb,0.18409e-02_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.98600e-03_rb,0.15975e-02_rb,0.18942e-02_rb,0.20984e-02_rb,0.22403e-02_rb, &\n        & 0.23334e-02_rb,0.23735e-02_rb,0.23328e-02_rb,0.18922e-02_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.99685e-03_rb,0.16266e-02_rb,0.19353e-02_rb,0.21493e-02_rb,0.22931e-02_rb, &\n        & 0.23955e-02_rb,0.24466e-02_rb,0.24068e-02_rb,0.19548e-02_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.85253e-03_rb,0.13731e-02_rb,0.15966e-02_rb,0.17555e-02_rb,0.18660e-02_rb, &\n        & 0.19267e-02_rb,0.19415e-02_rb,0.18992e-02_rb,0.15125e-02_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.86131e-03_rb,0.13853e-02_rb,0.16172e-02_rb,0.17827e-02_rb,0.18992e-02_rb, &\n        & 0.19616e-02_rb,0.19781e-02_rb,0.19388e-02_rb,0.15472e-02_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.87215e-03_rb,0.13990e-02_rb,0.16433e-02_rb,0.18151e-02_rb,0.19357e-02_rb, &\n        & 0.20044e-02_rb,0.20244e-02_rb,0.19864e-02_rb,0.15842e-02_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.88704e-03_rb,0.14261e-02_rb,0.16795e-02_rb,0.18576e-02_rb,0.19802e-02_rb, &\n        & 0.20536e-02_rb,0.20804e-02_rb,0.20410e-02_rb,0.16256e-02_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.89758e-03_rb,0.14527e-02_rb,0.17171e-02_rb,0.19025e-02_rb,0.20236e-02_rb, &\n        & 0.21045e-02_rb,0.21413e-02_rb,0.21023e-02_rb,0.16764e-02_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.76168e-03_rb,0.12206e-02_rb,0.14175e-02_rb,0.15588e-02_rb,0.16575e-02_rb, &\n        & 0.17098e-02_rb,0.17134e-02_rb,0.16603e-02_rb,0.12974e-02_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.76958e-03_rb,0.12314e-02_rb,0.14342e-02_rb,0.15807e-02_rb,0.16847e-02_rb, &\n        & 0.17400e-02_rb,0.17442e-02_rb,0.16938e-02_rb,0.13260e-02_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.78002e-03_rb,0.12481e-02_rb,0.14573e-02_rb,0.16092e-02_rb,0.17173e-02_rb, &\n        & 0.17771e-02_rb,0.17830e-02_rb,0.17337e-02_rb,0.13577e-02_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.79261e-03_rb,0.12694e-02_rb,0.14861e-02_rb,0.16420e-02_rb,0.17536e-02_rb, &\n        & 0.18179e-02_rb,0.18286e-02_rb,0.17776e-02_rb,0.13930e-02_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.80905e-03_rb,0.12930e-02_rb,0.15216e-02_rb,0.16835e-02_rb,0.17969e-02_rb, &\n        & 0.18651e-02_rb,0.18829e-02_rb,0.18324e-02_rb,0.14370e-02_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.67567e-03_rb,0.10847e-02_rb,0.12673e-02_rb,0.13865e-02_rb,0.14678e-02_rb, &\n        & 0.15102e-02_rb,0.15099e-02_rb,0.14466e-02_rb,0.11079e-02_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.68234e-03_rb,0.10948e-02_rb,0.12810e-02_rb,0.14048e-02_rb,0.14909e-02_rb, &\n        & 0.15364e-02_rb,0.15351e-02_rb,0.14749e-02_rb,0.11322e-02_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.69172e-03_rb,0.11094e-02_rb,0.12954e-02_rb,0.14275e-02_rb,0.15177e-02_rb, &\n        & 0.15693e-02_rb,0.15680e-02_rb,0.15069e-02_rb,0.11581e-02_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.70397e-03_rb,0.11284e-02_rb,0.13174e-02_rb,0.14563e-02_rb,0.15501e-02_rb, &\n        & 0.16053e-02_rb,0.16071e-02_rb,0.15445e-02_rb,0.11891e-02_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.72110e-03_rb,0.11540e-02_rb,0.13487e-02_rb,0.14917e-02_rb,0.15891e-02_rb, &\n        & 0.16474e-02_rb,0.16536e-02_rb,0.15913e-02_rb,0.12262e-02_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.59508e-03_rb,0.96565e-03_rb,0.11271e-02_rb,0.12321e-02_rb,0.12935e-02_rb, &\n        & 0.13263e-02_rb,0.13235e-02_rb,0.12583e-02_rb,0.94318e-03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.60163e-03_rb,0.97555e-03_rb,0.11390e-02_rb,0.12428e-02_rb,0.13136e-02_rb, &\n        & 0.13483e-02_rb,0.13443e-02_rb,0.12812e-02_rb,0.96040e-03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.61035e-03_rb,0.98842e-03_rb,0.11551e-02_rb,0.12623e-02_rb,0.13370e-02_rb, &\n        & 0.13759e-02_rb,0.13716e-02_rb,0.13073e-02_rb,0.98049e-03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.62216e-03_rb,0.10038e-02_rb,0.11750e-02_rb,0.12870e-02_rb,0.13646e-02_rb, &\n        & 0.14087e-02_rb,0.14042e-02_rb,0.13389e-02_rb,0.10049e-02_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.63568e-03_rb,0.10246e-02_rb,0.11986e-02_rb,0.13152e-02_rb,0.13969e-02_rb, &\n        & 0.14439e-02_rb,0.14425e-02_rb,0.13760e-02_rb,0.10351e-02_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.52222e-03_rb,0.85609e-03_rb,0.99991e-03_rb,0.10870e-02_rb,0.11353e-02_rb, &\n        & 0.11602e-02_rb,0.11537e-02_rb,0.10909e-02_rb,0.79969e-03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.52839e-03_rb,0.86572e-03_rb,0.10120e-02_rb,0.11011e-02_rb,0.11521e-02_rb, &\n        & 0.11786e-02_rb,0.11705e-02_rb,0.11093e-02_rb,0.81421e-03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.53695e-03_rb,0.87703e-03_rb,0.10261e-02_rb,0.11177e-02_rb,0.11714e-02_rb, &\n        & 0.12016e-02_rb,0.11930e-02_rb,0.11309e-02_rb,0.83157e-03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.54734e-03_rb,0.89105e-03_rb,0.10435e-02_rb,0.11340e-02_rb,0.11954e-02_rb, &\n        & 0.12276e-02_rb,0.12204e-02_rb,0.11559e-02_rb,0.85189e-03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.56071e-03_rb,0.90902e-03_rb,0.10648e-02_rb,0.11575e-02_rb,0.12234e-02_rb, &\n        & 0.12571e-02_rb,0.12523e-02_rb,0.11865e-02_rb,0.87630e-03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.45809e-03_rb,0.75296e-03_rb,0.88022e-03_rb,0.95530e-03_rb,0.99775e-03_rb, &\n        & 0.10107e-02_rb,0.99991e-03_rb,0.94255e-03_rb,0.69349e-03_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.46457e-03_rb,0.76241e-03_rb,0.89241e-03_rb,0.96833e-03_rb,0.10107e-02_rb, &\n        & 0.10258e-02_rb,0.10136e-02_rb,0.95735e-03_rb,0.70413e-03_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.47249e-03_rb,0.77258e-03_rb,0.90578e-03_rb,0.98260e-03_rb,0.10233e-02_rb, &\n        & 0.10448e-02_rb,0.10324e-02_rb,0.97481e-03_rb,0.71522e-03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.48263e-03_rb,0.78537e-03_rb,0.92183e-03_rb,0.10012e-02_rb,0.10427e-02_rb, &\n        & 0.10663e-02_rb,0.10558e-02_rb,0.99531e-03_rb,0.72922e-03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.49501e-03_rb,0.80218e-03_rb,0.94059e-03_rb,0.10219e-02_rb,0.10669e-02_rb, &\n        & 0.10907e-02_rb,0.10824e-02_rb,0.10204e-02_rb,0.74659e-03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.40630e-03_rb,0.65697e-03_rb,0.76693e-03_rb,0.83253e-03_rb,0.86881e-03_rb, &\n        & 0.87661e-03_rb,0.86393e-03_rb,0.81158e-03_rb,0.85763e-03_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.41166e-03_rb,0.66657e-03_rb,0.77941e-03_rb,0.84564e-03_rb,0.88174e-03_rb, &\n        & 0.88952e-03_rb,0.87488e-03_rb,0.82351e-03_rb,0.84633e-03_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.41847e-03_rb,0.67680e-03_rb,0.79185e-03_rb,0.85875e-03_rb,0.89476e-03_rb, &\n        & 0.90456e-03_rb,0.89101e-03_rb,0.83833e-03_rb,0.84017e-03_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.42661e-03_rb,0.68815e-03_rb,0.80637e-03_rb,0.87435e-03_rb,0.91036e-03_rb, &\n        & 0.92205e-03_rb,0.90961e-03_rb,0.85502e-03_rb,0.83895e-03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.43776e-03_rb,0.70278e-03_rb,0.82329e-03_rb,0.89247e-03_rb,0.92828e-03_rb, &\n        & 0.94238e-03_rb,0.93168e-03_rb,0.87536e-03_rb,0.84088e-03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.36854e-03_rb,0.57908e-03_rb,0.66869e-03_rb,0.72258e-03_rb,0.75231e-03_rb, &\n        & 0.75942e-03_rb,0.74383e-03_rb,0.69709e-03_rb,0.20395e-02_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.37298e-03_rb,0.58711e-03_rb,0.68015e-03_rb,0.73349e-03_rb,0.76293e-03_rb, &\n        & 0.77052e-03_rb,0.75338e-03_rb,0.70798e-03_rb,0.19202e-02_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.37876e-03_rb,0.59595e-03_rb,0.69100e-03_rb,0.74575e-03_rb,0.77497e-03_rb, &\n        & 0.78295e-03_rb,0.76740e-03_rb,0.72017e-03_rb,0.18161e-02_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.38615e-03_rb,0.60708e-03_rb,0.70373e-03_rb,0.75914e-03_rb,0.78952e-03_rb, &\n        & 0.79663e-03_rb,0.78331e-03_rb,0.73385e-03_rb,0.17247e-02_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.39564e-03_rb,0.62052e-03_rb,0.71856e-03_rb,0.77512e-03_rb,0.80699e-03_rb, &\n        & 0.81444e-03_rb,0.80141e-03_rb,0.75081e-03_rb,0.16568e-02_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.33320e-03_rb,0.52088e-03_rb,0.59646e-03_rb,0.63812e-03_rb,0.65660e-03_rb, &\n        & 0.65900e-03_rb,0.64138e-03_rb,0.60020e-03_rb,0.25696e-02_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.33882e-03_rb,0.52942e-03_rb,0.60584e-03_rb,0.64728e-03_rb,0.66639e-03_rb, &\n        & 0.66995e-03_rb,0.65115e-03_rb,0.61030e-03_rb,0.24243e-02_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.34516e-03_rb,0.53993e-03_rb,0.61579e-03_rb,0.65783e-03_rb,0.67758e-03_rb, &\n        & 0.68193e-03_rb,0.66413e-03_rb,0.62169e-03_rb,0.23408e-02_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.35301e-03_rb,0.55124e-03_rb,0.62753e-03_rb,0.66999e-03_rb,0.69148e-03_rb, &\n        & 0.69508e-03_rb,0.67858e-03_rb,0.63426e-03_rb,0.22732e-02_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.36214e-03_rb,0.56453e-03_rb,0.64151e-03_rb,0.68481e-03_rb,0.70755e-03_rb, &\n        & 0.71086e-03_rb,0.69483e-03_rb,0.64938e-03_rb,0.21869e-02_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.29653e-03_rb,0.46559e-03_rb,0.53073e-03_rb,0.56520e-03_rb,0.57894e-03_rb, &\n        & 0.57686e-03_rb,0.55698e-03_rb,0.51584e-03_rb,0.26304e-02_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.30188e-03_rb,0.47447e-03_rb,0.54017e-03_rb,0.57406e-03_rb,0.58804e-03_rb, &\n        & 0.58653e-03_rb,0.56630e-03_rb,0.52472e-03_rb,0.24930e-02_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.30861e-03_rb,0.48517e-03_rb,0.55102e-03_rb,0.58380e-03_rb,0.59890e-03_rb, &\n        & 0.59725e-03_rb,0.57721e-03_rb,0.53486e-03_rb,0.23834e-02_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.31637e-03_rb,0.49701e-03_rb,0.56299e-03_rb,0.59618e-03_rb,0.61191e-03_rb, &\n        & 0.60936e-03_rb,0.58930e-03_rb,0.54649e-03_rb,0.22824e-02_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.32604e-03_rb,0.51148e-03_rb,0.57604e-03_rb,0.61103e-03_rb,0.62611e-03_rb, &\n        & 0.62412e-03_rb,0.60375e-03_rb,0.56026e-03_rb,0.22084e-02_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.26154e-03_rb,0.41366e-03_rb,0.47019e-03_rb,0.50056e-03_rb,0.51140e-03_rb, &\n        & 0.50695e-03_rb,0.48611e-03_rb,0.44348e-03_rb,0.22773e-02_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.26669e-03_rb,0.42267e-03_rb,0.47957e-03_rb,0.51009e-03_rb,0.52067e-03_rb, &\n        & 0.51611e-03_rb,0.49506e-03_rb,0.45138e-03_rb,0.21516e-02_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.27302e-03_rb,0.43290e-03_rb,0.49082e-03_rb,0.52081e-03_rb,0.53105e-03_rb, &\n        & 0.52578e-03_rb,0.50476e-03_rb,0.46026e-03_rb,0.20522e-02_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.28114e-03_rb,0.44552e-03_rb,0.50271e-03_rb,0.53316e-03_rb,0.54314e-03_rb, &\n        & 0.53754e-03_rb,0.51555e-03_rb,0.47096e-03_rb,0.19694e-02_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.29046e-03_rb,0.45904e-03_rb,0.51716e-03_rb,0.54751e-03_rb,0.55727e-03_rb, &\n        & 0.55147e-03_rb,0.52828e-03_rb,0.48333e-03_rb,0.19102e-02_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.21025e-02_rb,0.35934e-02_rb,0.44505e-02_rb,0.51294e-02_rb,0.56565e-02_rb, &\n        & 0.60638e-02_rb,0.63051e-02_rb,0.63060e-02_rb,0.53132e-02_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.21147e-02_rb,0.36363e-02_rb,0.45228e-02_rb,0.52203e-02_rb,0.57590e-02_rb, &\n        & 0.61627e-02_rb,0.64080e-02_rb,0.64123e-02_rb,0.54186e-02_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.21423e-02_rb,0.36907e-02_rb,0.46129e-02_rb,0.53384e-02_rb,0.58809e-02_rb, &\n        & 0.62832e-02_rb,0.65320e-02_rb,0.65359e-02_rb,0.55396e-02_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.21655e-02_rb,0.37303e-02_rb,0.46928e-02_rb,0.54454e-02_rb,0.60067e-02_rb, &\n        & 0.64159e-02_rb,0.66758e-02_rb,0.66776e-02_rb,0.56738e-02_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.22041e-02_rb,0.37865e-02_rb,0.47900e-02_rb,0.55720e-02_rb,0.61575e-02_rb, &\n        & 0.65795e-02_rb,0.68426e-02_rb,0.68332e-02_rb,0.58218e-02_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.19184e-02_rb,0.32868e-02_rb,0.40037e-02_rb,0.45520e-02_rb,0.49723e-02_rb, &\n        & 0.52862e-02_rb,0.54779e-02_rb,0.54778e-02_rb,0.44696e-02_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.19302e-02_rb,0.33258e-02_rb,0.40693e-02_rb,0.46336e-02_rb,0.50634e-02_rb, &\n        & 0.53829e-02_rb,0.55797e-02_rb,0.55784e-02_rb,0.45568e-02_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.19586e-02_rb,0.33762e-02_rb,0.41518e-02_rb,0.47383e-02_rb,0.51749e-02_rb, &\n        & 0.54993e-02_rb,0.56986e-02_rb,0.56923e-02_rb,0.46572e-02_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.19876e-02_rb,0.34214e-02_rb,0.42297e-02_rb,0.48395e-02_rb,0.52957e-02_rb, &\n        & 0.56305e-02_rb,0.58340e-02_rb,0.58219e-02_rb,0.47733e-02_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.20222e-02_rb,0.34660e-02_rb,0.43057e-02_rb,0.49428e-02_rb,0.54286e-02_rb, &\n        & 0.57769e-02_rb,0.59846e-02_rb,0.59651e-02_rb,0.49022e-02_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.17389e-02_rb,0.29833e-02_rb,0.35894e-02_rb,0.40314e-02_rb,0.43535e-02_rb, &\n        & 0.45848e-02_rb,0.47251e-02_rb,0.47273e-02_rb,0.37675e-02_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.17511e-02_rb,0.30210e-02_rb,0.36487e-02_rb,0.40996e-02_rb,0.44314e-02_rb, &\n        & 0.46730e-02_rb,0.48141e-02_rb,0.48126e-02_rb,0.38333e-02_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.17713e-02_rb,0.30646e-02_rb,0.37133e-02_rb,0.41800e-02_rb,0.45216e-02_rb, &\n        & 0.47732e-02_rb,0.49178e-02_rb,0.49079e-02_rb,0.39121e-02_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.18058e-02_rb,0.31149e-02_rb,0.37889e-02_rb,0.42777e-02_rb,0.46349e-02_rb, &\n        & 0.48925e-02_rb,0.50383e-02_rb,0.50219e-02_rb,0.40071e-02_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.18379e-02_rb,0.31573e-02_rb,0.38545e-02_rb,0.43660e-02_rb,0.47479e-02_rb, &\n        & 0.50186e-02_rb,0.51717e-02_rb,0.51483e-02_rb,0.41141e-02_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.15760e-02_rb,0.26881e-02_rb,0.32116e-02_rb,0.35706e-02_rb,0.38258e-02_rb, &\n        & 0.39911e-02_rb,0.40833e-02_rb,0.40813e-02_rb,0.32298e-02_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.15813e-02_rb,0.27249e-02_rb,0.32627e-02_rb,0.36295e-02_rb,0.38889e-02_rb, &\n        & 0.40640e-02_rb,0.41571e-02_rb,0.41534e-02_rb,0.32787e-02_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.16001e-02_rb,0.27603e-02_rb,0.33193e-02_rb,0.36971e-02_rb,0.39631e-02_rb, &\n        & 0.41442e-02_rb,0.42435e-02_rb,0.42324e-02_rb,0.33394e-02_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.16258e-02_rb,0.28020e-02_rb,0.33780e-02_rb,0.37750e-02_rb,0.40494e-02_rb, &\n        & 0.42369e-02_rb,0.43436e-02_rb,0.43281e-02_rb,0.34138e-02_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.16664e-02_rb,0.28640e-02_rb,0.34503e-02_rb,0.38637e-02_rb,0.41572e-02_rb, &\n        & 0.43540e-02_rb,0.44611e-02_rb,0.44376e-02_rb,0.34982e-02_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.14233e-02_rb,0.24061e-02_rb,0.28484e-02_rb,0.31675e-02_rb,0.33803e-02_rb, &\n        & 0.35027e-02_rb,0.35528e-02_rb,0.35417e-02_rb,0.27814e-02_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.14350e-02_rb,0.24395e-02_rb,0.28937e-02_rb,0.32168e-02_rb,0.34318e-02_rb, &\n        & 0.35619e-02_rb,0.36148e-02_rb,0.35990e-02_rb,0.28208e-02_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.14521e-02_rb,0.24725e-02_rb,0.29512e-02_rb,0.32733e-02_rb,0.34917e-02_rb, &\n        & 0.36258e-02_rb,0.36856e-02_rb,0.36654e-02_rb,0.28719e-02_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.14701e-02_rb,0.25117e-02_rb,0.30081e-02_rb,0.33364e-02_rb,0.35619e-02_rb, &\n        & 0.37016e-02_rb,0.37673e-02_rb,0.37455e-02_rb,0.29344e-02_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.15037e-02_rb,0.25667e-02_rb,0.30753e-02_rb,0.34136e-02_rb,0.36518e-02_rb, &\n        & 0.37975e-02_rb,0.38648e-02_rb,0.38367e-02_rb,0.30050e-02_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.12833e-02_rb,0.21397e-02_rb,0.25249e-02_rb,0.27989e-02_rb,0.29941e-02_rb, &\n        & 0.30943e-02_rb,0.31134e-02_rb,0.30718e-02_rb,0.23837e-02_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.12955e-02_rb,0.21689e-02_rb,0.25640e-02_rb,0.28465e-02_rb,0.30386e-02_rb, &\n        & 0.31442e-02_rb,0.31666e-02_rb,0.31216e-02_rb,0.24190e-02_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.13128e-02_rb,0.22001e-02_rb,0.26092e-02_rb,0.28949e-02_rb,0.30875e-02_rb, &\n        & 0.31967e-02_rb,0.32254e-02_rb,0.31772e-02_rb,0.24633e-02_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.13321e-02_rb,0.22373e-02_rb,0.26583e-02_rb,0.29483e-02_rb,0.31454e-02_rb, &\n        & 0.32584e-02_rb,0.32916e-02_rb,0.32451e-02_rb,0.25158e-02_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.13570e-02_rb,0.22801e-02_rb,0.27142e-02_rb,0.30110e-02_rb,0.32147e-02_rb, &\n        & 0.33324e-02_rb,0.33699e-02_rb,0.33240e-02_rb,0.25751e-02_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.11500e-02_rb,0.18956e-02_rb,0.22352e-02_rb,0.24771e-02_rb,0.26462e-02_rb, &\n        & 0.27285e-02_rb,0.27284e-02_rb,0.26574e-02_rb,0.20286e-02_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.11641e-02_rb,0.19221e-02_rb,0.22681e-02_rb,0.25137e-02_rb,0.26876e-02_rb, &\n        & 0.27741e-02_rb,0.27762e-02_rb,0.27013e-02_rb,0.20553e-02_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.11813e-02_rb,0.19513e-02_rb,0.23065e-02_rb,0.25547e-02_rb,0.27305e-02_rb, &\n        & 0.28210e-02_rb,0.28261e-02_rb,0.27499e-02_rb,0.20900e-02_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.12020e-02_rb,0.19854e-02_rb,0.23499e-02_rb,0.26064e-02_rb,0.27813e-02_rb, &\n        & 0.28738e-02_rb,0.28824e-02_rb,0.28095e-02_rb,0.21311e-02_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.12251e-02_rb,0.20252e-02_rb,0.23984e-02_rb,0.26618e-02_rb,0.28401e-02_rb, &\n        & 0.29374e-02_rb,0.29496e-02_rb,0.28780e-02_rb,0.21792e-02_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.10232e-02_rb,0.16906e-02_rb,0.19769e-02_rb,0.21832e-02_rb,0.23202e-02_rb, &\n        & 0.23917e-02_rb,0.23852e-02_rb,0.22950e-02_rb,0.17101e-02_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.10391e-02_rb,0.17050e-02_rb,0.20071e-02_rb,0.22179e-02_rb,0.23606e-02_rb, &\n        & 0.24337e-02_rb,0.24284e-02_rb,0.23335e-02_rb,0.17331e-02_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.10558e-02_rb,0.17304e-02_rb,0.20412e-02_rb,0.22560e-02_rb,0.24048e-02_rb, &\n        & 0.24767e-02_rb,0.24718e-02_rb,0.23758e-02_rb,0.17638e-02_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.10757e-02_rb,0.17611e-02_rb,0.20788e-02_rb,0.22974e-02_rb,0.24509e-02_rb, &\n        & 0.25242e-02_rb,0.25220e-02_rb,0.24275e-02_rb,0.17981e-02_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.10980e-02_rb,0.17974e-02_rb,0.21207e-02_rb,0.23464e-02_rb,0.25025e-02_rb, &\n        & 0.25827e-02_rb,0.25792e-02_rb,0.24843e-02_rb,0.18371e-02_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.89817e-03_rb,0.14995e-02_rb,0.17424e-02_rb,0.19141e-02_rb,0.20277e-02_rb, &\n        & 0.20847e-02_rb,0.20717e-02_rb,0.19779e-02_rb,0.16529e-02_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.91497e-03_rb,0.15202e-02_rb,0.17713e-02_rb,0.19473e-02_rb,0.20642e-02_rb, &\n        & 0.21241e-02_rb,0.21112e-02_rb,0.20125e-02_rb,0.16590e-02_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.93269e-03_rb,0.15411e-02_rb,0.18029e-02_rb,0.19839e-02_rb,0.21017e-02_rb, &\n        & 0.21633e-02_rb,0.21507e-02_rb,0.20494e-02_rb,0.16738e-02_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.95304e-03_rb,0.15646e-02_rb,0.18368e-02_rb,0.20225e-02_rb,0.21451e-02_rb, &\n        & 0.22062e-02_rb,0.21951e-02_rb,0.20930e-02_rb,0.16939e-02_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.97498e-03_rb,0.15941e-02_rb,0.18742e-02_rb,0.20657e-02_rb,0.21958e-02_rb, &\n        & 0.22577e-02_rb,0.22448e-02_rb,0.21409e-02_rb,0.17176e-02_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.79262e-03_rb,0.13163e-02_rb,0.15328e-02_rb,0.16707e-02_rb,0.17648e-02_rb, &\n        & 0.18068e-02_rb,0.17935e-02_rb,0.17058e-02_rb,0.29700e-02_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.80762e-03_rb,0.13411e-02_rb,0.15596e-02_rb,0.17027e-02_rb,0.18000e-02_rb, &\n        & 0.18435e-02_rb,0.18291e-02_rb,0.17355e-02_rb,0.28651e-02_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.82251e-03_rb,0.13646e-02_rb,0.15856e-02_rb,0.17370e-02_rb,0.18349e-02_rb, &\n        & 0.18799e-02_rb,0.18643e-02_rb,0.17669e-02_rb,0.27637e-02_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.84077e-03_rb,0.13892e-02_rb,0.16170e-02_rb,0.17747e-02_rb,0.18736e-02_rb, &\n        & 0.19201e-02_rb,0.19036e-02_rb,0.18042e-02_rb,0.26870e-02_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.86106e-03_rb,0.14180e-02_rb,0.16516e-02_rb,0.18147e-02_rb,0.19171e-02_rb, &\n        & 0.19660e-02_rb,0.19468e-02_rb,0.18451e-02_rb,0.26342e-02_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.72744e-03_rb,0.11669e-02_rb,0.13481e-02_rb,0.14590e-02_rb,0.15393e-02_rb, &\n        & 0.15747e-02_rb,0.15610e-02_rb,0.14772e-02_rb,0.38429e-02_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.73930e-03_rb,0.11904e-02_rb,0.13759e-02_rb,0.14894e-02_rb,0.15715e-02_rb, &\n        & 0.16066e-02_rb,0.15925e-02_rb,0.15038e-02_rb,0.36308e-02_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.75350e-03_rb,0.12120e-02_rb,0.14044e-02_rb,0.15240e-02_rb,0.16053e-02_rb, &\n        & 0.16390e-02_rb,0.16251e-02_rb,0.15339e-02_rb,0.34122e-02_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.76930e-03_rb,0.12355e-02_rb,0.14324e-02_rb,0.15603e-02_rb,0.16424e-02_rb, &\n        & 0.16774e-02_rb,0.16611e-02_rb,0.15677e-02_rb,0.32391e-02_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.78824e-03_rb,0.12645e-02_rb,0.14660e-02_rb,0.15998e-02_rb,0.16846e-02_rb, &\n        & 0.17204e-02_rb,0.17007e-02_rb,0.16046e-02_rb,0.31291e-02_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.66909e-03_rb,0.10517e-02_rb,0.11921e-02_rb,0.12822e-02_rb,0.13379e-02_rb, &\n        & 0.13630e-02_rb,0.13492e-02_rb,0.12752e-02_rb,0.39255e-02_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.68372e-03_rb,0.10717e-02_rb,0.12175e-02_rb,0.13089e-02_rb,0.13666e-02_rb, &\n        & 0.13913e-02_rb,0.13783e-02_rb,0.12999e-02_rb,0.37011e-02_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.69881e-03_rb,0.10912e-02_rb,0.12439e-02_rb,0.13402e-02_rb,0.13970e-02_rb, &\n        & 0.14222e-02_rb,0.14099e-02_rb,0.13279e-02_rb,0.35002e-02_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.71487e-03_rb,0.11132e-02_rb,0.12732e-02_rb,0.13738e-02_rb,0.14317e-02_rb, &\n        & 0.14583e-02_rb,0.14439e-02_rb,0.13590e-02_rb,0.33360e-02_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.73461e-03_rb,0.11382e-02_rb,0.13053e-02_rb,0.14102e-02_rb,0.14713e-02_rb, &\n        & 0.14974e-02_rb,0.14808e-02_rb,0.13924e-02_rb,0.31844e-02_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.61282e-03_rb,0.95575e-03_rb,0.10730e-02_rb,0.11388e-02_rb,0.11718e-02_rb, &\n        & 0.11795e-02_rb,0.11618e-02_rb,0.10974e-02_rb,0.34089e-02_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.62765e-03_rb,0.97500e-03_rb,0.10966e-02_rb,0.11619e-02_rb,0.11959e-02_rb, &\n        & 0.12054e-02_rb,0.11876e-02_rb,0.11206e-02_rb,0.32141e-02_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.64409e-03_rb,0.99523e-03_rb,0.11197e-02_rb,0.11873e-02_rb,0.12235e-02_rb, &\n        & 0.12347e-02_rb,0.12163e-02_rb,0.11468e-02_rb,0.30396e-02_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.66230e-03_rb,0.10180e-02_rb,0.11464e-02_rb,0.12161e-02_rb,0.12557e-02_rb, &\n        & 0.12667e-02_rb,0.12475e-02_rb,0.11749e-02_rb,0.28911e-02_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.68383e-03_rb,0.10452e-02_rb,0.11767e-02_rb,0.12484e-02_rb,0.12902e-02_rb, &\n        & 0.13021e-02_rb,0.12822e-02_rb,0.12049e-02_rb,0.27576e-02_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.59073e-02_rb,0.94320e-02_rb,0.12084e-01_rb,0.14049e-01_rb,0.15571e-01_rb, &\n        & 0.16640e-01_rb,0.17123e-01_rb,0.16625e-01_rb,0.14851e-01_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.60213e-02_rb,0.95565e-02_rb,0.12218e-01_rb,0.14200e-01_rb,0.15736e-01_rb, &\n        & 0.16810e-01_rb,0.17290e-01_rb,0.16722e-01_rb,0.14969e-01_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.61698e-02_rb,0.97176e-02_rb,0.12383e-01_rb,0.14381e-01_rb,0.15939e-01_rb, &\n        & 0.17010e-01_rb,0.17476e-01_rb,0.16866e-01_rb,0.15129e-01_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.62862e-02_rb,0.98624e-02_rb,0.12544e-01_rb,0.14586e-01_rb,0.16163e-01_rb, &\n        & 0.17225e-01_rb,0.17690e-01_rb,0.17043e-01_rb,0.15322e-01_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.64346e-02_rb,0.10033e-01_rb,0.12746e-01_rb,0.14817e-01_rb,0.16408e-01_rb, &\n        & 0.17481e-01_rb,0.17940e-01_rb,0.17253e-01_rb,0.15543e-01_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.53740e-02_rb,0.87218e-02_rb,0.11053e-01_rb,0.12810e-01_rb,0.14176e-01_rb, &\n        & 0.15120e-01_rb,0.15546e-01_rb,0.15059e-01_rb,0.12919e-01_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.54730e-02_rb,0.88522e-02_rb,0.11203e-01_rb,0.12984e-01_rb,0.14363e-01_rb, &\n        & 0.15303e-01_rb,0.15712e-01_rb,0.15177e-01_rb,0.13038e-01_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.56074e-02_rb,0.90112e-02_rb,0.11386e-01_rb,0.13184e-01_rb,0.14577e-01_rb, &\n        & 0.15506e-01_rb,0.15908e-01_rb,0.15341e-01_rb,0.13193e-01_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.57291e-02_rb,0.91663e-02_rb,0.11581e-01_rb,0.13408e-01_rb,0.14805e-01_rb, &\n        & 0.15738e-01_rb,0.16140e-01_rb,0.15527e-01_rb,0.13373e-01_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.58374e-02_rb,0.93237e-02_rb,0.11790e-01_rb,0.13642e-01_rb,0.15063e-01_rb, &\n        & 0.16008e-01_rb,0.16391e-01_rb,0.15740e-01_rb,0.13573e-01_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.49151e-02_rb,0.80083e-02_rb,0.10006e-01_rb,0.11528e-01_rb,0.12727e-01_rb, &\n        & 0.13551e-01_rb,0.13911e-01_rb,0.13469e-01_rb,0.11070e-01_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.50045e-02_rb,0.81384e-02_rb,0.10158e-01_rb,0.11712e-01_rb,0.12918e-01_rb, &\n        & 0.13727e-01_rb,0.14078e-01_rb,0.13598e-01_rb,0.11182e-01_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.51018e-02_rb,0.82774e-02_rb,0.10333e-01_rb,0.11906e-01_rb,0.13128e-01_rb, &\n        & 0.13932e-01_rb,0.14276e-01_rb,0.13758e-01_rb,0.11318e-01_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.52290e-02_rb,0.84457e-02_rb,0.10545e-01_rb,0.12130e-01_rb,0.13362e-01_rb, &\n        & 0.14179e-01_rb,0.14506e-01_rb,0.13944e-01_rb,0.11475e-01_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.53219e-02_rb,0.86004e-02_rb,0.10753e-01_rb,0.12365e-01_rb,0.13624e-01_rb, &\n        & 0.14443e-01_rb,0.14743e-01_rb,0.14150e-01_rb,0.11664e-01_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.44996e-02_rb,0.73324e-02_rb,0.89976e-02_rb,0.10282e-01_rb,0.11291e-01_rb, &\n        & 0.11989e-01_rb,0.12308e-01_rb,0.11915e-01_rb,0.94610e-02_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.45903e-02_rb,0.74608e-02_rb,0.91511e-02_rb,0.10467e-01_rb,0.11476e-01_rb, &\n        & 0.12168e-01_rb,0.12474e-01_rb,0.12040e-01_rb,0.95583e-02_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.46786e-02_rb,0.75960e-02_rb,0.93200e-02_rb,0.10651e-01_rb,0.11685e-01_rb, &\n        & 0.12375e-01_rb,0.12662e-01_rb,0.12197e-01_rb,0.96836e-02_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.47771e-02_rb,0.77407e-02_rb,0.95085e-02_rb,0.10860e-01_rb,0.11915e-01_rb, &\n        & 0.12611e-01_rb,0.12868e-01_rb,0.12374e-01_rb,0.98243e-02_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.48920e-02_rb,0.79194e-02_rb,0.97305e-02_rb,0.11107e-01_rb,0.12174e-01_rb, &\n        & 0.12866e-01_rb,0.13096e-01_rb,0.12573e-01_rb,0.99978e-02_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.41203e-02_rb,0.67057e-02_rb,0.80820e-02_rb,0.91247e-02_rb,0.99321e-02_rb, &\n        & 0.10510e-01_rb,0.10783e-01_rb,0.10430e-01_rb,0.81020e-02_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.41993e-02_rb,0.68279e-02_rb,0.82322e-02_rb,0.92959e-02_rb,0.10115e-01_rb, &\n        & 0.10684e-01_rb,0.10936e-01_rb,0.10557e-01_rb,0.81860e-02_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.42833e-02_rb,0.69588e-02_rb,0.83884e-02_rb,0.94726e-02_rb,0.10319e-01_rb, &\n        & 0.10879e-01_rb,0.11113e-01_rb,0.10704e-01_rb,0.82915e-02_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.43800e-02_rb,0.70975e-02_rb,0.85585e-02_rb,0.96769e-02_rb,0.10538e-01_rb, &\n        & 0.11098e-01_rb,0.11307e-01_rb,0.10873e-01_rb,0.84082e-02_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.44913e-02_rb,0.72638e-02_rb,0.87668e-02_rb,0.99106e-02_rb,0.10776e-01_rb, &\n        & 0.11337e-01_rb,0.11521e-01_rb,0.11061e-01_rb,0.85492e-02_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.37432e-02_rb,0.61135e-02_rb,0.72507e-02_rb,0.80822e-02_rb,0.86984e-02_rb, &\n        & 0.91424e-02_rb,0.93607e-02_rb,0.90800e-02_rb,0.69637e-02_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.38232e-02_rb,0.62277e-02_rb,0.73923e-02_rb,0.82383e-02_rb,0.88666e-02_rb, &\n        & 0.93013e-02_rb,0.95051e-02_rb,0.91939e-02_rb,0.70311e-02_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.39028e-02_rb,0.63516e-02_rb,0.75330e-02_rb,0.84072e-02_rb,0.90542e-02_rb, &\n        & 0.94860e-02_rb,0.96693e-02_rb,0.93306e-02_rb,0.71143e-02_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.39917e-02_rb,0.64850e-02_rb,0.76893e-02_rb,0.85935e-02_rb,0.92562e-02_rb, &\n        & 0.96859e-02_rb,0.98481e-02_rb,0.94821e-02_rb,0.72080e-02_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.40851e-02_rb,0.66256e-02_rb,0.78694e-02_rb,0.87911e-02_rb,0.94733e-02_rb, &\n        & 0.99019e-02_rb,0.10042e-01_rb,0.96464e-02_rb,0.73211e-02_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.33812e-02_rb,0.55475e-02_rb,0.65017e-02_rb,0.71556e-02_rb,0.76235e-02_rb, &\n        & 0.79451e-02_rb,0.81101e-02_rb,0.78877e-02_rb,0.60070e-02_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.34581e-02_rb,0.56575e-02_rb,0.66301e-02_rb,0.72977e-02_rb,0.77709e-02_rb, &\n        & 0.80903e-02_rb,0.82426e-02_rb,0.79917e-02_rb,0.60625e-02_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.35355e-02_rb,0.57759e-02_rb,0.67602e-02_rb,0.74532e-02_rb,0.79395e-02_rb, &\n        & 0.82549e-02_rb,0.83890e-02_rb,0.81121e-02_rb,0.61274e-02_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.36191e-02_rb,0.58987e-02_rb,0.69034e-02_rb,0.76219e-02_rb,0.81209e-02_rb, &\n        & 0.84343e-02_rb,0.85495e-02_rb,0.82395e-02_rb,0.62026e-02_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.37084e-02_rb,0.60308e-02_rb,0.70671e-02_rb,0.77977e-02_rb,0.83160e-02_rb, &\n        & 0.86266e-02_rb,0.87205e-02_rb,0.83802e-02_rb,0.62947e-02_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.30376e-02_rb,0.49774e-02_rb,0.58172e-02_rb,0.63470e-02_rb,0.67038e-02_rb, &\n        & 0.69396e-02_rb,0.70412e-02_rb,0.68509e-02_rb,0.51374e-02_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.31099e-02_rb,0.50996e-02_rb,0.59344e-02_rb,0.64736e-02_rb,0.68367e-02_rb, &\n        & 0.70701e-02_rb,0.71564e-02_rb,0.69425e-02_rb,0.51813e-02_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.31853e-02_rb,0.52155e-02_rb,0.60541e-02_rb,0.66147e-02_rb,0.69858e-02_rb, &\n        & 0.72120e-02_rb,0.72858e-02_rb,0.70465e-02_rb,0.52319e-02_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.32663e-02_rb,0.53312e-02_rb,0.61863e-02_rb,0.67654e-02_rb,0.71468e-02_rb, &\n        & 0.73677e-02_rb,0.74252e-02_rb,0.71560e-02_rb,0.52932e-02_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.33510e-02_rb,0.54583e-02_rb,0.63345e-02_rb,0.69235e-02_rb,0.73170e-02_rb, &\n        & 0.75339e-02_rb,0.75720e-02_rb,0.72770e-02_rb,0.53726e-02_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.27168e-02_rb,0.44406e-02_rb,0.51768e-02_rb,0.56339e-02_rb,0.59208e-02_rb, &\n        & 0.60958e-02_rb,0.61438e-02_rb,0.59554e-02_rb,0.42511e-02_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.27853e-02_rb,0.45486e-02_rb,0.52870e-02_rb,0.57491e-02_rb,0.60397e-02_rb, &\n        & 0.62076e-02_rb,0.62421e-02_rb,0.60358e-02_rb,0.42982e-02_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.28572e-02_rb,0.46609e-02_rb,0.53998e-02_rb,0.58755e-02_rb,0.61719e-02_rb, &\n        & 0.63300e-02_rb,0.63536e-02_rb,0.61272e-02_rb,0.43479e-02_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.29351e-02_rb,0.47766e-02_rb,0.55244e-02_rb,0.60103e-02_rb,0.63121e-02_rb, &\n        & 0.64656e-02_rb,0.64718e-02_rb,0.62231e-02_rb,0.44012e-02_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.30174e-02_rb,0.49013e-02_rb,0.56608e-02_rb,0.61542e-02_rb,0.64584e-02_rb, &\n        & 0.66094e-02_rb,0.65960e-02_rb,0.63252e-02_rb,0.44655e-02_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.24055e-02_rb,0.39503e-02_rb,0.45833e-02_rb,0.49951e-02_rb,0.52507e-02_rb, &\n        & 0.53857e-02_rb,0.53791e-02_rb,0.51629e-02_rb,0.55379e-02_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.24728e-02_rb,0.40487e-02_rb,0.46867e-02_rb,0.51042e-02_rb,0.53576e-02_rb, &\n        & 0.54844e-02_rb,0.54704e-02_rb,0.52383e-02_rb,0.55398e-02_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.25454e-02_rb,0.41511e-02_rb,0.48010e-02_rb,0.52206e-02_rb,0.54751e-02_rb, &\n        & 0.55927e-02_rb,0.55711e-02_rb,0.53216e-02_rb,0.55501e-02_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.26224e-02_rb,0.42542e-02_rb,0.49201e-02_rb,0.53438e-02_rb,0.55977e-02_rb, &\n        & 0.57114e-02_rb,0.56753e-02_rb,0.54074e-02_rb,0.55558e-02_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.27039e-02_rb,0.43672e-02_rb,0.50470e-02_rb,0.54750e-02_rb,0.57276e-02_rb, &\n        & 0.58363e-02_rb,0.57849e-02_rb,0.54996e-02_rb,0.55710e-02_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.21256e-02_rb,0.35221e-02_rb,0.40853e-02_rb,0.44612e-02_rb,0.46874e-02_rb, &\n        & 0.47866e-02_rb,0.47389e-02_rb,0.44975e-02_rb,0.66135e-02_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.21937e-02_rb,0.36149e-02_rb,0.41854e-02_rb,0.45677e-02_rb,0.47907e-02_rb, &\n        & 0.48833e-02_rb,0.48291e-02_rb,0.45707e-02_rb,0.65729e-02_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.22650e-02_rb,0.37098e-02_rb,0.42933e-02_rb,0.46764e-02_rb,0.49020e-02_rb, &\n        & 0.49895e-02_rb,0.49234e-02_rb,0.46462e-02_rb,0.65598e-02_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.23425e-02_rb,0.38113e-02_rb,0.44107e-02_rb,0.47931e-02_rb,0.50165e-02_rb, &\n        & 0.51000e-02_rb,0.50211e-02_rb,0.47251e-02_rb,0.65419e-02_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.24251e-02_rb,0.39222e-02_rb,0.45344e-02_rb,0.49164e-02_rb,0.51382e-02_rb, &\n        & 0.52156e-02_rb,0.51233e-02_rb,0.48118e-02_rb,0.65404e-02_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.19014e-02_rb,0.31169e-02_rb,0.36336e-02_rb,0.39642e-02_rb,0.41602e-02_rb, &\n        & 0.42352e-02_rb,0.41726e-02_rb,0.39183e-02_rb,0.68121e-02_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.19605e-02_rb,0.32068e-02_rb,0.37314e-02_rb,0.40676e-02_rb,0.42627e-02_rb, &\n        & 0.43333e-02_rb,0.42591e-02_rb,0.39851e-02_rb,0.67229e-02_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.20227e-02_rb,0.33010e-02_rb,0.38333e-02_rb,0.41743e-02_rb,0.43708e-02_rb, &\n        & 0.44355e-02_rb,0.43461e-02_rb,0.40520e-02_rb,0.66419e-02_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.20945e-02_rb,0.34006e-02_rb,0.39411e-02_rb,0.42851e-02_rb,0.44804e-02_rb, &\n        & 0.45405e-02_rb,0.44353e-02_rb,0.41230e-02_rb,0.65948e-02_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.21695e-02_rb,0.35114e-02_rb,0.40581e-02_rb,0.44020e-02_rb,0.45960e-02_rb, &\n        & 0.46501e-02_rb,0.45319e-02_rb,0.42045e-02_rb,0.65716e-02_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.17348e-02_rb,0.27575e-02_rb,0.32033e-02_rb,0.34905e-02_rb,0.36669e-02_rb, &\n        & 0.37299e-02_rb,0.36615e-02_rb,0.34092e-02_rb,0.62173e-02_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.17868e-02_rb,0.28403e-02_rb,0.32978e-02_rb,0.35924e-02_rb,0.37684e-02_rb, &\n        & 0.38248e-02_rb,0.37430e-02_rb,0.34686e-02_rb,0.61248e-02_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.18438e-02_rb,0.29272e-02_rb,0.33982e-02_rb,0.36985e-02_rb,0.38711e-02_rb, &\n        & 0.39210e-02_rb,0.38240e-02_rb,0.35286e-02_rb,0.60637e-02_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.19066e-02_rb,0.30192e-02_rb,0.35016e-02_rb,0.38072e-02_rb,0.39764e-02_rb, &\n        & 0.40199e-02_rb,0.39089e-02_rb,0.35954e-02_rb,0.60138e-02_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.19732e-02_rb,0.31237e-02_rb,0.36129e-02_rb,0.39207e-02_rb,0.40892e-02_rb, &\n        & 0.41240e-02_rb,0.40022e-02_rb,0.36721e-02_rb,0.59944e-02_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.41219e-01_rb,0.41795e-01_rb,0.46848e-01_rb,0.50877e-01_rb,0.53437e-01_rb, &\n        & 0.54488e-01_rb,0.53560e-01_rb,0.50235e-01_rb,0.51545e-01_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.42156e-01_rb,0.42406e-01_rb,0.47180e-01_rb,0.51006e-01_rb,0.53354e-01_rb, &\n        & 0.54221e-01_rb,0.53185e-01_rb,0.49897e-01_rb,0.51289e-01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.43082e-01_rb,0.43034e-01_rb,0.47543e-01_rb,0.51133e-01_rb,0.53289e-01_rb, &\n        & 0.53978e-01_rb,0.52866e-01_rb,0.49591e-01_rb,0.51083e-01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.43908e-01_rb,0.43606e-01_rb,0.47876e-01_rb,0.51241e-01_rb,0.53225e-01_rb, &\n        & 0.53768e-01_rb,0.52555e-01_rb,0.49365e-01_rb,0.51010e-01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.44717e-01_rb,0.44169e-01_rb,0.48160e-01_rb,0.51395e-01_rb,0.53206e-01_rb, &\n        & 0.53607e-01_rb,0.52301e-01_rb,0.49268e-01_rb,0.51108e-01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.38280e-01_rb,0.40368e-01_rb,0.46271e-01_rb,0.50387e-01_rb,0.53287e-01_rb, &\n        & 0.54294e-01_rb,0.53147e-01_rb,0.49359e-01_rb,0.49444e-01_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.39278e-01_rb,0.41016e-01_rb,0.46659e-01_rb,0.50565e-01_rb,0.53249e-01_rb, &\n        & 0.54064e-01_rb,0.52823e-01_rb,0.49016e-01_rb,0.49210e-01_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.40252e-01_rb,0.41678e-01_rb,0.47048e-01_rb,0.50745e-01_rb,0.53223e-01_rb, &\n        & 0.53871e-01_rb,0.52519e-01_rb,0.48730e-01_rb,0.49081e-01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.41132e-01_rb,0.42274e-01_rb,0.47387e-01_rb,0.50925e-01_rb,0.53214e-01_rb, &\n        & 0.53693e-01_rb,0.52217e-01_rb,0.48559e-01_rb,0.49102e-01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.41937e-01_rb,0.42806e-01_rb,0.47675e-01_rb,0.51115e-01_rb,0.53221e-01_rb, &\n        & 0.53535e-01_rb,0.52007e-01_rb,0.48511e-01_rb,0.49285e-01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.35016e-01_rb,0.38740e-01_rb,0.45035e-01_rb,0.49481e-01_rb,0.52517e-01_rb, &\n        & 0.53496e-01_rb,0.52191e-01_rb,0.48044e-01_rb,0.46584e-01_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.36031e-01_rb,0.39393e-01_rb,0.45463e-01_rb,0.49713e-01_rb,0.52514e-01_rb, &\n        & 0.53329e-01_rb,0.51912e-01_rb,0.47725e-01_rb,0.46413e-01_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.36991e-01_rb,0.40024e-01_rb,0.45863e-01_rb,0.49943e-01_rb,0.52531e-01_rb, &\n        & 0.53167e-01_rb,0.51622e-01_rb,0.47472e-01_rb,0.46354e-01_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.37902e-01_rb,0.40620e-01_rb,0.46253e-01_rb,0.50181e-01_rb,0.52583e-01_rb, &\n        & 0.53007e-01_rb,0.51384e-01_rb,0.47335e-01_rb,0.46441e-01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.38707e-01_rb,0.41126e-01_rb,0.46598e-01_rb,0.50384e-01_rb,0.52633e-01_rb, &\n        & 0.52879e-01_rb,0.51240e-01_rb,0.47311e-01_rb,0.46661e-01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.31672e-01_rb,0.36966e-01_rb,0.43365e-01_rb,0.48073e-01_rb,0.51081e-01_rb, &\n        & 0.52063e-01_rb,0.50596e-01_rb,0.46210e-01_rb,0.43228e-01_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.32685e-01_rb,0.37616e-01_rb,0.43827e-01_rb,0.48349e-01_rb,0.51147e-01_rb, &\n        & 0.51967e-01_rb,0.50386e-01_rb,0.45960e-01_rb,0.43137e-01_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.33628e-01_rb,0.38241e-01_rb,0.44270e-01_rb,0.48639e-01_rb,0.51209e-01_rb, &\n        & 0.51848e-01_rb,0.50172e-01_rb,0.45771e-01_rb,0.43147e-01_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.34503e-01_rb,0.38804e-01_rb,0.44698e-01_rb,0.48896e-01_rb,0.51278e-01_rb, &\n        & 0.51724e-01_rb,0.50016e-01_rb,0.45686e-01_rb,0.43281e-01_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.35339e-01_rb,0.39319e-01_rb,0.45124e-01_rb,0.49160e-01_rb,0.51368e-01_rb, &\n        & 0.51672e-01_rb,0.49945e-01_rb,0.45702e-01_rb,0.43520e-01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.28453e-01_rb,0.34915e-01_rb,0.41400e-01_rb,0.46104e-01_rb,0.49014e-01_rb, &\n        & 0.49952e-01_rb,0.48370e-01_rb,0.43932e-01_rb,0.39569e-01_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.29434e-01_rb,0.35588e-01_rb,0.41893e-01_rb,0.46437e-01_rb,0.49144e-01_rb, &\n        & 0.49919e-01_rb,0.48254e-01_rb,0.43775e-01_rb,0.39548e-01_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.30340e-01_rb,0.36236e-01_rb,0.42373e-01_rb,0.46769e-01_rb,0.49255e-01_rb, &\n        & 0.49873e-01_rb,0.48133e-01_rb,0.43667e-01_rb,0.39610e-01_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.31178e-01_rb,0.36810e-01_rb,0.42835e-01_rb,0.47061e-01_rb,0.49370e-01_rb, &\n        & 0.49827e-01_rb,0.48071e-01_rb,0.43623e-01_rb,0.39779e-01_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.31999e-01_rb,0.37346e-01_rb,0.43284e-01_rb,0.47361e-01_rb,0.49516e-01_rb, &\n        & 0.49857e-01_rb,0.48088e-01_rb,0.43666e-01_rb,0.40037e-01_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.25421e-01_rb,0.32626e-01_rb,0.39116e-01_rb,0.43609e-01_rb,0.46371e-01_rb, &\n        & 0.47186e-01_rb,0.45634e-01_rb,0.41276e-01_rb,0.35722e-01_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.26347e-01_rb,0.33315e-01_rb,0.39629e-01_rb,0.44004e-01_rb,0.46570e-01_rb, &\n        & 0.47251e-01_rb,0.45602e-01_rb,0.41217e-01_rb,0.35770e-01_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.27211e-01_rb,0.33965e-01_rb,0.40142e-01_rb,0.44371e-01_rb,0.46737e-01_rb, &\n        & 0.47271e-01_rb,0.45579e-01_rb,0.41184e-01_rb,0.35883e-01_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.28013e-01_rb,0.34546e-01_rb,0.40641e-01_rb,0.44704e-01_rb,0.46903e-01_rb, &\n        & 0.47305e-01_rb,0.45608e-01_rb,0.41201e-01_rb,0.36071e-01_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.28777e-01_rb,0.35080e-01_rb,0.41083e-01_rb,0.45018e-01_rb,0.47083e-01_rb, &\n        & 0.47404e-01_rb,0.45685e-01_rb,0.41273e-01_rb,0.36328e-01_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.22628e-01_rb,0.30290e-01_rb,0.36520e-01_rb,0.40736e-01_rb,0.43195e-01_rb, &\n        & 0.43894e-01_rb,0.42478e-01_rb,0.38357e-01_rb,0.31858e-01_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.23496e-01_rb,0.30981e-01_rb,0.37071e-01_rb,0.41159e-01_rb,0.43459e-01_rb, &\n        & 0.44039e-01_rb,0.42534e-01_rb,0.38366e-01_rb,0.31954e-01_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.24311e-01_rb,0.31616e-01_rb,0.37614e-01_rb,0.41552e-01_rb,0.43690e-01_rb, &\n        & 0.44135e-01_rb,0.42598e-01_rb,0.38398e-01_rb,0.32112e-01_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.25081e-01_rb,0.32194e-01_rb,0.38124e-01_rb,0.41906e-01_rb,0.43917e-01_rb, &\n        & 0.44249e-01_rb,0.42700e-01_rb,0.38476e-01_rb,0.32312e-01_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.25796e-01_rb,0.32737e-01_rb,0.38583e-01_rb,0.42251e-01_rb,0.44147e-01_rb, &\n        & 0.44425e-01_rb,0.42840e-01_rb,0.38587e-01_rb,0.32545e-01_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.20122e-01_rb,0.27995e-01_rb,0.33719e-01_rb,0.37485e-01_rb,0.39621e-01_rb, &\n        & 0.40226e-01_rb,0.38971e-01_rb,0.35214e-01_rb,0.28110e-01_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.20930e-01_rb,0.28671e-01_rb,0.34304e-01_rb,0.37966e-01_rb,0.39957e-01_rb, &\n        & 0.40447e-01_rb,0.39124e-01_rb,0.35304e-01_rb,0.28246e-01_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.21692e-01_rb,0.29291e-01_rb,0.34870e-01_rb,0.38392e-01_rb,0.40254e-01_rb, &\n        & 0.40624e-01_rb,0.39266e-01_rb,0.35403e-01_rb,0.28424e-01_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.22396e-01_rb,0.29880e-01_rb,0.35388e-01_rb,0.38779e-01_rb,0.40528e-01_rb, &\n        & 0.40815e-01_rb,0.39436e-01_rb,0.35538e-01_rb,0.28597e-01_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.23064e-01_rb,0.30402e-01_rb,0.35848e-01_rb,0.39151e-01_rb,0.40824e-01_rb, &\n        & 0.41057e-01_rb,0.39639e-01_rb,0.35669e-01_rb,0.28823e-01_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.17909e-01_rb,0.25709e-01_rb,0.30840e-01_rb,0.34036e-01_rb,0.35851e-01_rb, &\n        & 0.36360e-01_rb,0.35282e-01_rb,0.31947e-01_rb,0.24003e-01_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.18652e-01_rb,0.26369e-01_rb,0.31431e-01_rb,0.34542e-01_rb,0.36244e-01_rb, &\n        & 0.36648e-01_rb,0.35513e-01_rb,0.32109e-01_rb,0.24164e-01_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.19344e-01_rb,0.26986e-01_rb,0.31997e-01_rb,0.35005e-01_rb,0.36599e-01_rb, &\n        & 0.36904e-01_rb,0.35718e-01_rb,0.32277e-01_rb,0.24318e-01_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.19991e-01_rb,0.27565e-01_rb,0.32506e-01_rb,0.35425e-01_rb,0.36934e-01_rb, &\n        & 0.37163e-01_rb,0.35949e-01_rb,0.32440e-01_rb,0.24470e-01_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.20615e-01_rb,0.28069e-01_rb,0.32961e-01_rb,0.35817e-01_rb,0.37281e-01_rb, &\n        & 0.37462e-01_rb,0.36191e-01_rb,0.32591e-01_rb,0.24688e-01_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.16038e-01_rb,0.23520e-01_rb,0.27944e-01_rb,0.30612e-01_rb,0.32108e-01_rb, &\n        & 0.32531e-01_rb,0.31594e-01_rb,0.28710e-01_rb,0.19040e-01_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.16702e-01_rb,0.24155e-01_rb,0.28537e-01_rb,0.31140e-01_rb,0.32544e-01_rb, &\n        & 0.32858e-01_rb,0.31863e-01_rb,0.28938e-01_rb,0.19154e-01_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.17329e-01_rb,0.24747e-01_rb,0.29094e-01_rb,0.31618e-01_rb,0.32949e-01_rb, &\n        & 0.33160e-01_rb,0.32119e-01_rb,0.29151e-01_rb,0.19214e-01_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.17922e-01_rb,0.25302e-01_rb,0.29595e-01_rb,0.32058e-01_rb,0.33330e-01_rb, &\n        & 0.33472e-01_rb,0.32385e-01_rb,0.29320e-01_rb,0.19269e-01_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.18489e-01_rb,0.25799e-01_rb,0.30045e-01_rb,0.32466e-01_rb,0.33700e-01_rb, &\n        & 0.33812e-01_rb,0.32629e-01_rb,0.29481e-01_rb,0.19405e-01_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.14687e-01_rb,0.21702e-01_rb,0.25384e-01_rb,0.27570e-01_rb,0.28760e-01_rb, &\n        & 0.29017e-01_rb,0.28178e-01_rb,0.25716e-01_rb,0.20195e-01_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.15274e-01_rb,0.22296e-01_rb,0.25944e-01_rb,0.28087e-01_rb,0.29202e-01_rb, &\n        & 0.29352e-01_rb,0.28471e-01_rb,0.25960e-01_rb,0.20265e-01_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.15835e-01_rb,0.22836e-01_rb,0.26465e-01_rb,0.28550e-01_rb,0.29611e-01_rb, &\n        & 0.29694e-01_rb,0.28754e-01_rb,0.26152e-01_rb,0.20296e-01_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.16357e-01_rb,0.23338e-01_rb,0.26927e-01_rb,0.28982e-01_rb,0.29998e-01_rb, &\n        & 0.30045e-01_rb,0.29008e-01_rb,0.26312e-01_rb,0.20131e-01_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.16879e-01_rb,0.23791e-01_rb,0.27359e-01_rb,0.29394e-01_rb,0.30387e-01_rb, &\n        & 0.30372e-01_rb,0.29268e-01_rb,0.26507e-01_rb,0.20180e-01_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.13435e-01_rb,0.19917e-01_rb,0.22947e-01_rb,0.24741e-01_rb,0.25656e-01_rb, &\n        & 0.25762e-01_rb,0.25010e-01_rb,0.22879e-01_rb,0.21935e-01_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.13973e-01_rb,0.20460e-01_rb,0.23475e-01_rb,0.25221e-01_rb,0.26084e-01_rb, &\n        & 0.26126e-01_rb,0.25297e-01_rb,0.23091e-01_rb,0.22096e-01_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.14481e-01_rb,0.20956e-01_rb,0.23951e-01_rb,0.25665e-01_rb,0.26486e-01_rb, &\n        & 0.26478e-01_rb,0.25558e-01_rb,0.23263e-01_rb,0.22257e-01_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.14966e-01_rb,0.21408e-01_rb,0.24388e-01_rb,0.26079e-01_rb,0.26872e-01_rb, &\n        & 0.26802e-01_rb,0.25814e-01_rb,0.23444e-01_rb,0.22244e-01_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.15448e-01_rb,0.21834e-01_rb,0.24813e-01_rb,0.26492e-01_rb,0.27230e-01_rb, &\n        & 0.27128e-01_rb,0.26103e-01_rb,0.23676e-01_rb,0.22318e-01_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.12253e-01_rb,0.18169e-01_rb,0.20712e-01_rb,0.22143e-01_rb,0.22829e-01_rb, &\n        & 0.22840e-01_rb,0.22092e-01_rb,0.20210e-01_rb,0.22350e-01_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.12752e-01_rb,0.18675e-01_rb,0.21188e-01_rb,0.22590e-01_rb,0.23242e-01_rb, &\n        & 0.23184e-01_rb,0.22356e-01_rb,0.20395e-01_rb,0.22569e-01_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.13220e-01_rb,0.19134e-01_rb,0.21627e-01_rb,0.23007e-01_rb,0.23621e-01_rb, &\n        & 0.23502e-01_rb,0.22612e-01_rb,0.20571e-01_rb,0.22750e-01_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.13675e-01_rb,0.19566e-01_rb,0.22044e-01_rb,0.23405e-01_rb,0.23969e-01_rb, &\n        & 0.23813e-01_rb,0.22875e-01_rb,0.20780e-01_rb,0.22726e-01_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.14122e-01_rb,0.19976e-01_rb,0.22454e-01_rb,0.23786e-01_rb,0.24318e-01_rb, &\n        & 0.24140e-01_rb,0.23183e-01_rb,0.21041e-01_rb,0.22784e-01_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.14776e+00_rb,0.13250e+00_rb,0.11877e+00_rb,0.11907e+00_rb,0.11538e+00_rb, &\n        & 0.11234e+00_rb,0.10926e+00_rb,0.11039e+00_rb,0.12102e+00_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.14758e+00_rb,0.13180e+00_rb,0.11760e+00_rb,0.11720e+00_rb,0.11379e+00_rb, &\n        & 0.11206e+00_rb,0.10856e+00_rb,0.11029e+00_rb,0.12093e+00_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.14691e+00_rb,0.13078e+00_rb,0.11629e+00_rb,0.11563e+00_rb,0.11248e+00_rb, &\n        & 0.11149e+00_rb,0.10785e+00_rb,0.11040e+00_rb,0.12104e+00_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.14609e+00_rb,0.12985e+00_rb,0.11503e+00_rb,0.11426e+00_rb,0.11150e+00_rb, &\n        & 0.11061e+00_rb,0.10739e+00_rb,0.11031e+00_rb,0.12092e+00_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.14529e+00_rb,0.12911e+00_rb,0.11448e+00_rb,0.11310e+00_rb,0.11058e+00_rb, &\n        & 0.10959e+00_rb,0.10721e+00_rb,0.11007e+00_rb,0.12050e+00_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.14616e+00_rb,0.13131e+00_rb,0.12350e+00_rb,0.12510e+00_rb,0.11934e+00_rb, &\n        & 0.11762e+00_rb,0.11417e+00_rb,0.11460e+00_rb,0.12626e+00_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.14607e+00_rb,0.13063e+00_rb,0.12202e+00_rb,0.12312e+00_rb,0.11789e+00_rb, &\n        & 0.11742e+00_rb,0.11363e+00_rb,0.11470e+00_rb,0.12636e+00_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.14577e+00_rb,0.12991e+00_rb,0.12074e+00_rb,0.12132e+00_rb,0.11671e+00_rb, &\n        & 0.11676e+00_rb,0.11334e+00_rb,0.11448e+00_rb,0.12602e+00_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.14549e+00_rb,0.12948e+00_rb,0.11982e+00_rb,0.11971e+00_rb,0.11561e+00_rb, &\n        & 0.11583e+00_rb,0.11311e+00_rb,0.11380e+00_rb,0.12515e+00_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.14518e+00_rb,0.12921e+00_rb,0.11930e+00_rb,0.11856e+00_rb,0.11453e+00_rb, &\n        & 0.11499e+00_rb,0.11278e+00_rb,0.11303e+00_rb,0.12425e+00_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.14318e+00_rb,0.12893e+00_rb,0.12918e+00_rb,0.12942e+00_rb,0.12491e+00_rb, &\n        & 0.12238e+00_rb,0.11842e+00_rb,0.11706e+00_rb,0.12892e+00_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.14362e+00_rb,0.12877e+00_rb,0.12794e+00_rb,0.12738e+00_rb,0.12367e+00_rb, &\n        & 0.12214e+00_rb,0.11818e+00_rb,0.11730e+00_rb,0.12892e+00_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.14392e+00_rb,0.12859e+00_rb,0.12673e+00_rb,0.12555e+00_rb,0.12238e+00_rb, &\n        & 0.12154e+00_rb,0.11804e+00_rb,0.11693e+00_rb,0.12825e+00_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.14418e+00_rb,0.12858e+00_rb,0.12588e+00_rb,0.12406e+00_rb,0.12111e+00_rb, &\n        & 0.12100e+00_rb,0.11768e+00_rb,0.11605e+00_rb,0.12723e+00_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.14433e+00_rb,0.12868e+00_rb,0.12520e+00_rb,0.12307e+00_rb,0.11981e+00_rb, &\n        & 0.12050e+00_rb,0.11702e+00_rb,0.11519e+00_rb,0.12642e+00_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.13900e+00_rb,0.12627e+00_rb,0.13262e+00_rb,0.13246e+00_rb,0.13018e+00_rb, &\n        & 0.12656e+00_rb,0.12207e+00_rb,0.11856e+00_rb,0.12927e+00_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.13981e+00_rb,0.12631e+00_rb,0.13168e+00_rb,0.13063e+00_rb,0.12928e+00_rb, &\n        & 0.12634e+00_rb,0.12180e+00_rb,0.11842e+00_rb,0.12888e+00_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.14055e+00_rb,0.12635e+00_rb,0.13064e+00_rb,0.12886e+00_rb,0.12826e+00_rb, &\n        & 0.12591e+00_rb,0.12147e+00_rb,0.11781e+00_rb,0.12798e+00_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.14115e+00_rb,0.12659e+00_rb,0.12979e+00_rb,0.12765e+00_rb,0.12712e+00_rb, &\n        & 0.12539e+00_rb,0.12094e+00_rb,0.11686e+00_rb,0.12709e+00_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.14205e+00_rb,0.12716e+00_rb,0.12897e+00_rb,0.12678e+00_rb,0.12607e+00_rb, &\n        & 0.12463e+00_rb,0.12022e+00_rb,0.11611e+00_rb,0.12648e+00_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.13267e+00_rb,0.12451e+00_rb,0.13264e+00_rb,0.13467e+00_rb,0.13410e+00_rb, &\n        & 0.12976e+00_rb,0.12532e+00_rb,0.11842e+00_rb,0.12663e+00_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.13391e+00_rb,0.12448e+00_rb,0.13222e+00_rb,0.13349e+00_rb,0.13365e+00_rb, &\n        & 0.12967e+00_rb,0.12478e+00_rb,0.11793e+00_rb,0.12610e+00_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.13513e+00_rb,0.12441e+00_rb,0.13150e+00_rb,0.13226e+00_rb,0.13285e+00_rb, &\n        & 0.12935e+00_rb,0.12414e+00_rb,0.11714e+00_rb,0.12535e+00_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.13635e+00_rb,0.12468e+00_rb,0.13071e+00_rb,0.13132e+00_rb,0.13192e+00_rb, &\n        & 0.12883e+00_rb,0.12325e+00_rb,0.11628e+00_rb,0.12465e+00_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.13765e+00_rb,0.12523e+00_rb,0.12989e+00_rb,0.13067e+00_rb,0.13104e+00_rb, &\n        & 0.12778e+00_rb,0.12230e+00_rb,0.11574e+00_rb,0.12447e+00_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.12480e+00_rb,0.12304e+00_rb,0.13086e+00_rb,0.13535e+00_rb,0.13580e+00_rb, &\n        & 0.13244e+00_rb,0.12684e+00_rb,0.11687e+00_rb,0.12150e+00_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.12631e+00_rb,0.12320e+00_rb,0.13089e+00_rb,0.13488e+00_rb,0.13591e+00_rb, &\n        & 0.13240e+00_rb,0.12644e+00_rb,0.11610e+00_rb,0.12096e+00_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.12783e+00_rb,0.12334e+00_rb,0.13031e+00_rb,0.13415e+00_rb,0.13555e+00_rb, &\n        & 0.13212e+00_rb,0.12571e+00_rb,0.11517e+00_rb,0.12033e+00_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.12946e+00_rb,0.12375e+00_rb,0.12962e+00_rb,0.13360e+00_rb,0.13480e+00_rb, &\n        & 0.13147e+00_rb,0.12458e+00_rb,0.11440e+00_rb,0.12012e+00_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.13098e+00_rb,0.12424e+00_rb,0.12926e+00_rb,0.13328e+00_rb,0.13390e+00_rb, &\n        & 0.13035e+00_rb,0.12352e+00_rb,0.11410e+00_rb,0.12034e+00_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.11587e+00_rb,0.11977e+00_rb,0.12827e+00_rb,0.13413e+00_rb,0.13637e+00_rb, &\n        & 0.13338e+00_rb,0.12607e+00_rb,0.11369e+00_rb,0.11422e+00_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.11755e+00_rb,0.12008e+00_rb,0.12851e+00_rb,0.13433e+00_rb,0.13653e+00_rb, &\n        & 0.13350e+00_rb,0.12579e+00_rb,0.11303e+00_rb,0.11384e+00_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.11925e+00_rb,0.12045e+00_rb,0.12827e+00_rb,0.13401e+00_rb,0.13627e+00_rb, &\n        & 0.13335e+00_rb,0.12531e+00_rb,0.11227e+00_rb,0.11342e+00_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.12111e+00_rb,0.12107e+00_rb,0.12798e+00_rb,0.13385e+00_rb,0.13564e+00_rb, &\n        & 0.13268e+00_rb,0.12424e+00_rb,0.11167e+00_rb,0.11355e+00_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.12285e+00_rb,0.12168e+00_rb,0.12798e+00_rb,0.13376e+00_rb,0.13482e+00_rb, &\n        & 0.13151e+00_rb,0.12334e+00_rb,0.11149e+00_rb,0.11415e+00_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.10591e+00_rb,0.11393e+00_rb,0.12456e+00_rb,0.13177e+00_rb,0.13532e+00_rb, &\n        & 0.13189e+00_rb,0.12388e+00_rb,0.10965e+00_rb,0.10563e+00_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.10784e+00_rb,0.11446e+00_rb,0.12497e+00_rb,0.13191e+00_rb,0.13527e+00_rb, &\n        & 0.13206e+00_rb,0.12372e+00_rb,0.10901e+00_rb,0.10541e+00_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.10982e+00_rb,0.11499e+00_rb,0.12496e+00_rb,0.13190e+00_rb,0.13491e+00_rb, &\n        & 0.13198e+00_rb,0.12329e+00_rb,0.10836e+00_rb,0.10528e+00_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.11183e+00_rb,0.11569e+00_rb,0.12499e+00_rb,0.13184e+00_rb,0.13435e+00_rb, &\n        & 0.13149e+00_rb,0.12252e+00_rb,0.10787e+00_rb,0.10590e+00_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.11351e+00_rb,0.11638e+00_rb,0.12535e+00_rb,0.13176e+00_rb,0.13360e+00_rb, &\n        & 0.13054e+00_rb,0.12191e+00_rb,0.10801e+00_rb,0.10661e+00_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.95227e-01_rb,0.10714e+00_rb,0.11944e+00_rb,0.12826e+00_rb,0.13131e+00_rb, &\n        & 0.12801e+00_rb,0.11973e+00_rb,0.10506e+00_rb,0.96127e-01_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.97380e-01_rb,0.10792e+00_rb,0.12010e+00_rb,0.12848e+00_rb,0.13131e+00_rb, &\n        & 0.12823e+00_rb,0.11988e+00_rb,0.10446e+00_rb,0.96013e-01_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.99589e-01_rb,0.10861e+00_rb,0.12043e+00_rb,0.12826e+00_rb,0.13099e+00_rb, &\n        & 0.12821e+00_rb,0.11964e+00_rb,0.10385e+00_rb,0.96337e-01_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.10172e+00_rb,0.10937e+00_rb,0.12073e+00_rb,0.12822e+00_rb,0.13048e+00_rb, &\n        & 0.12786e+00_rb,0.11915e+00_rb,0.10369e+00_rb,0.97324e-01_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.10340e+00_rb,0.11015e+00_rb,0.12136e+00_rb,0.12832e+00_rb,0.12998e+00_rb, &\n        & 0.12724e+00_rb,0.11892e+00_rb,0.10410e+00_rb,0.97908e-01_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.84549e-01_rb,0.10005e+00_rb,0.11370e+00_rb,0.12280e+00_rb,0.12503e+00_rb, &\n        & 0.12157e+00_rb,0.11395e+00_rb,0.99558e-01_rb,0.78463e-01_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.86895e-01_rb,0.10114e+00_rb,0.11438e+00_rb,0.12270e+00_rb,0.12494e+00_rb, &\n        & 0.12211e+00_rb,0.11447e+00_rb,0.98932e-01_rb,0.78293e-01_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.89280e-01_rb,0.10200e+00_rb,0.11501e+00_rb,0.12255e+00_rb,0.12466e+00_rb, &\n        & 0.12232e+00_rb,0.11449e+00_rb,0.98490e-01_rb,0.78963e-01_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.91373e-01_rb,0.10297e+00_rb,0.11555e+00_rb,0.12264e+00_rb,0.12433e+00_rb, &\n        & 0.12211e+00_rb,0.11429e+00_rb,0.98808e-01_rb,0.79894e-01_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.93116e-01_rb,0.10381e+00_rb,0.11616e+00_rb,0.12299e+00_rb,0.12420e+00_rb, &\n        & 0.12176e+00_rb,0.11463e+00_rb,0.99400e-01_rb,0.79228e-01_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.75544e-01_rb,0.93054e-01_rb,0.10724e+00_rb,0.11489e+00_rb,0.11666e+00_rb, &\n        & 0.11411e+00_rb,0.10739e+00_rb,0.92708e-01_rb,0.54552e-01_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.77908e-01_rb,0.94287e-01_rb,0.10808e+00_rb,0.11471e+00_rb,0.11661e+00_rb, &\n        & 0.11478e+00_rb,0.10772e+00_rb,0.92504e-01_rb,0.54848e-01_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.80077e-01_rb,0.95473e-01_rb,0.10868e+00_rb,0.11491e+00_rb,0.11655e+00_rb, &\n        & 0.11482e+00_rb,0.10782e+00_rb,0.93001e-01_rb,0.55769e-01_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.81960e-01_rb,0.96566e-01_rb,0.10943e+00_rb,0.11546e+00_rb,0.11672e+00_rb, &\n        & 0.11473e+00_rb,0.10831e+00_rb,0.93879e-01_rb,0.57926e-01_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.83450e-01_rb,0.97453e-01_rb,0.11008e+00_rb,0.11599e+00_rb,0.11716e+00_rb, &\n        & 0.11515e+00_rb,0.10911e+00_rb,0.94288e-01_rb,0.57746e-01_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.67513e-01_rb,0.86189e-01_rb,0.99369e-01_rb,0.10520e+00_rb,0.10724e+00_rb, &\n        & 0.10586e+00_rb,0.99242e-01_rb,0.85556e-01_rb,0.53156e-01_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.69613e-01_rb,0.87484e-01_rb,0.10007e+00_rb,0.10560e+00_rb,0.10749e+00_rb, &\n        & 0.10614e+00_rb,0.99761e-01_rb,0.86270e-01_rb,0.51781e-01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.71469e-01_rb,0.88722e-01_rb,0.10094e+00_rb,0.10629e+00_rb,0.10784e+00_rb, &\n        & 0.10630e+00_rb,0.10046e+00_rb,0.87349e-01_rb,0.51450e-01_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.73024e-01_rb,0.89773e-01_rb,0.10183e+00_rb,0.10713e+00_rb,0.10860e+00_rb, &\n        & 0.10686e+00_rb,0.10138e+00_rb,0.88130e-01_rb,0.52601e-01_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.74303e-01_rb,0.90696e-01_rb,0.10259e+00_rb,0.10797e+00_rb,0.10971e+00_rb, &\n        & 0.10792e+00_rb,0.10184e+00_rb,0.88445e-01_rb,0.51152e-01_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.60529e-01_rb,0.79607e-01_rb,0.90318e-01_rb,0.95428e-01_rb,0.97408e-01_rb, &\n        & 0.96227e-01_rb,0.90699e-01_rb,0.78779e-01_rb,0.52832e-01_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.62276e-01_rb,0.80870e-01_rb,0.91247e-01_rb,0.96259e-01_rb,0.97934e-01_rb, &\n        & 0.96714e-01_rb,0.91680e-01_rb,0.79941e-01_rb,0.52303e-01_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.63790e-01_rb,0.81933e-01_rb,0.92274e-01_rb,0.97270e-01_rb,0.98880e-01_rb, &\n        & 0.97553e-01_rb,0.92636e-01_rb,0.80918e-01_rb,0.51576e-01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.65028e-01_rb,0.82921e-01_rb,0.93287e-01_rb,0.98387e-01_rb,0.10023e+00_rb, &\n        & 0.98785e-01_rb,0.93367e-01_rb,0.81491e-01_rb,0.53387e-01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.66150e-01_rb,0.83739e-01_rb,0.94354e-01_rb,0.99696e-01_rb,0.10169e+00_rb, &\n        & 0.99901e-01_rb,0.93863e-01_rb,0.81907e-01_rb,0.52837e-01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.20407e+00_rb,0.18071e+00_rb,0.16029e+00_rb,0.15138e+00_rb,0.14997e+00_rb, &\n        & 0.13984e+00_rb,0.13275e+00_rb,0.14129e+00_rb,0.15399e+00_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.20135e+00_rb,0.17935e+00_rb,0.15932e+00_rb,0.15017e+00_rb,0.14962e+00_rb, &\n        & 0.13862e+00_rb,0.13266e+00_rb,0.14117e+00_rb,0.15393e+00_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.19936e+00_rb,0.17801e+00_rb,0.15787e+00_rb,0.14825e+00_rb,0.14805e+00_rb, &\n        & 0.13791e+00_rb,0.13257e+00_rb,0.14065e+00_rb,0.15357e+00_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.19744e+00_rb,0.17636e+00_rb,0.15587e+00_rb,0.14600e+00_rb,0.14568e+00_rb, &\n        & 0.13759e+00_rb,0.13216e+00_rb,0.14003e+00_rb,0.15311e+00_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.19560e+00_rb,0.17445e+00_rb,0.15370e+00_rb,0.14366e+00_rb,0.14353e+00_rb, &\n        & 0.13719e+00_rb,0.13142e+00_rb,0.13943e+00_rb,0.15271e+00_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.21063e+00_rb,0.18653e+00_rb,0.16583e+00_rb,0.16261e+00_rb,0.15745e+00_rb, &\n        & 0.14703e+00_rb,0.14143e+00_rb,0.14831e+00_rb,0.16307e+00_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.20807e+00_rb,0.18515e+00_rb,0.16450e+00_rb,0.16174e+00_rb,0.15680e+00_rb, &\n        & 0.14604e+00_rb,0.14115e+00_rb,0.14798e+00_rb,0.16304e+00_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.20581e+00_rb,0.18338e+00_rb,0.16244e+00_rb,0.15978e+00_rb,0.15520e+00_rb, &\n        & 0.14566e+00_rb,0.14067e+00_rb,0.14768e+00_rb,0.16312e+00_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.20347e+00_rb,0.18119e+00_rb,0.16010e+00_rb,0.15745e+00_rb,0.15333e+00_rb, &\n        & 0.14529e+00_rb,0.14007e+00_rb,0.14753e+00_rb,0.16343e+00_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.20115e+00_rb,0.17885e+00_rb,0.15773e+00_rb,0.15483e+00_rb,0.15150e+00_rb, &\n        & 0.14453e+00_rb,0.13948e+00_rb,0.14731e+00_rb,0.16359e+00_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.21616e+00_rb,0.19157e+00_rb,0.17353e+00_rb,0.17142e+00_rb,0.16301e+00_rb, &\n        & 0.15566e+00_rb,0.14998e+00_rb,0.15514e+00_rb,0.17145e+00_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.21408e+00_rb,0.19026e+00_rb,0.17182e+00_rb,0.17122e+00_rb,0.16252e+00_rb, &\n        & 0.15476e+00_rb,0.14939e+00_rb,0.15448e+00_rb,0.17139e+00_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.21163e+00_rb,0.18824e+00_rb,0.16950e+00_rb,0.16996e+00_rb,0.16151e+00_rb, &\n        & 0.15419e+00_rb,0.14882e+00_rb,0.15406e+00_rb,0.17163e+00_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.20914e+00_rb,0.18593e+00_rb,0.16692e+00_rb,0.16757e+00_rb,0.16029e+00_rb, &\n        & 0.15344e+00_rb,0.14837e+00_rb,0.15392e+00_rb,0.17198e+00_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.20701e+00_rb,0.18381e+00_rb,0.16453e+00_rb,0.16472e+00_rb,0.15897e+00_rb, &\n        & 0.15236e+00_rb,0.14801e+00_rb,0.15351e+00_rb,0.17179e+00_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.21862e+00_rb,0.19379e+00_rb,0.18221e+00_rb,0.17807e+00_rb,0.16954e+00_rb, &\n        & 0.16407e+00_rb,0.15829e+00_rb,0.16056e+00_rb,0.17755e+00_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.21705e+00_rb,0.19285e+00_rb,0.18086e+00_rb,0.17812e+00_rb,0.16909e+00_rb, &\n        & 0.16313e+00_rb,0.15767e+00_rb,0.16003e+00_rb,0.17784e+00_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.21534e+00_rb,0.19129e+00_rb,0.17879e+00_rb,0.17719e+00_rb,0.16821e+00_rb, &\n        & 0.16252e+00_rb,0.15706e+00_rb,0.15944e+00_rb,0.17796e+00_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.21357e+00_rb,0.18961e+00_rb,0.17644e+00_rb,0.17503e+00_rb,0.16720e+00_rb, &\n        & 0.16179e+00_rb,0.15644e+00_rb,0.15869e+00_rb,0.17755e+00_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.21192e+00_rb,0.18796e+00_rb,0.17436e+00_rb,0.17237e+00_rb,0.16599e+00_rb, &\n        & 0.16096e+00_rb,0.15564e+00_rb,0.15746e+00_rb,0.17656e+00_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.21793e+00_rb,0.19325e+00_rb,0.18965e+00_rb,0.18402e+00_rb,0.17692e+00_rb, &\n        & 0.17250e+00_rb,0.16494e+00_rb,0.16474e+00_rb,0.18189e+00_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.21706e+00_rb,0.19287e+00_rb,0.18835e+00_rb,0.18355e+00_rb,0.17627e+00_rb, &\n        & 0.17161e+00_rb,0.16474e+00_rb,0.16398e+00_rb,0.18195e+00_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.21612e+00_rb,0.19181e+00_rb,0.18687e+00_rb,0.18213e+00_rb,0.17553e+00_rb, &\n        & 0.17088e+00_rb,0.16425e+00_rb,0.16313e+00_rb,0.18152e+00_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.21478e+00_rb,0.19045e+00_rb,0.18500e+00_rb,0.18018e+00_rb,0.17440e+00_rb, &\n        & 0.16996e+00_rb,0.16342e+00_rb,0.16188e+00_rb,0.18054e+00_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.21350e+00_rb,0.18909e+00_rb,0.18333e+00_rb,0.17782e+00_rb,0.17309e+00_rb, &\n        & 0.16916e+00_rb,0.16213e+00_rb,0.16034e+00_rb,0.17917e+00_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.21342e+00_rb,0.19093e+00_rb,0.19390e+00_rb,0.18953e+00_rb,0.18412e+00_rb, &\n        & 0.17932e+00_rb,0.17133e+00_rb,0.16726e+00_rb,0.18355e+00_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.21345e+00_rb,0.19062e+00_rb,0.19295e+00_rb,0.18836e+00_rb,0.18309e+00_rb, &\n        & 0.17848e+00_rb,0.17069e+00_rb,0.16650e+00_rb,0.18323e+00_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.21341e+00_rb,0.18999e+00_rb,0.19180e+00_rb,0.18672e+00_rb,0.18231e+00_rb, &\n        & 0.17805e+00_rb,0.16996e+00_rb,0.16523e+00_rb,0.18230e+00_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.21278e+00_rb,0.18888e+00_rb,0.19035e+00_rb,0.18488e+00_rb,0.18150e+00_rb, &\n        & 0.17740e+00_rb,0.16888e+00_rb,0.16361e+00_rb,0.18086e+00_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.21199e+00_rb,0.18788e+00_rb,0.18853e+00_rb,0.18312e+00_rb,0.18053e+00_rb, &\n        & 0.17647e+00_rb,0.16753e+00_rb,0.16185e+00_rb,0.17942e+00_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.20554e+00_rb,0.18880e+00_rb,0.19483e+00_rb,0.19351e+00_rb,0.18975e+00_rb, &\n        & 0.18476e+00_rb,0.17703e+00_rb,0.16712e+00_rb,0.18079e+00_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.20652e+00_rb,0.18855e+00_rb,0.19393e+00_rb,0.19243e+00_rb,0.18938e+00_rb, &\n        & 0.18427e+00_rb,0.17598e+00_rb,0.16627e+00_rb,0.18028e+00_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.20722e+00_rb,0.18798e+00_rb,0.19279e+00_rb,0.19112e+00_rb,0.18883e+00_rb, &\n        & 0.18376e+00_rb,0.17458e+00_rb,0.16493e+00_rb,0.17920e+00_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.20704e+00_rb,0.18700e+00_rb,0.19152e+00_rb,0.18972e+00_rb,0.18818e+00_rb, &\n        & 0.18325e+00_rb,0.17326e+00_rb,0.16331e+00_rb,0.17789e+00_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.20670e+00_rb,0.18595e+00_rb,0.18990e+00_rb,0.18822e+00_rb,0.18756e+00_rb, &\n        & 0.18244e+00_rb,0.17179e+00_rb,0.16146e+00_rb,0.17654e+00_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.19482e+00_rb,0.18644e+00_rb,0.19372e+00_rb,0.19534e+00_rb,0.19341e+00_rb, &\n        & 0.18978e+00_rb,0.17991e+00_rb,0.16480e+00_rb,0.17385e+00_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.19645e+00_rb,0.18662e+00_rb,0.19286e+00_rb,0.19499e+00_rb,0.19364e+00_rb, &\n        & 0.18939e+00_rb,0.17872e+00_rb,0.16377e+00_rb,0.17323e+00_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.19752e+00_rb,0.18632e+00_rb,0.19176e+00_rb,0.19416e+00_rb,0.19361e+00_rb, &\n        & 0.18898e+00_rb,0.17730e+00_rb,0.16248e+00_rb,0.17231e+00_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.19786e+00_rb,0.18535e+00_rb,0.19058e+00_rb,0.19340e+00_rb,0.19352e+00_rb, &\n        & 0.18844e+00_rb,0.17582e+00_rb,0.16092e+00_rb,0.17110e+00_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.19827e+00_rb,0.18472e+00_rb,0.18922e+00_rb,0.19254e+00_rb,0.19302e+00_rb, &\n        & 0.18739e+00_rb,0.17431e+00_rb,0.15936e+00_rb,0.17034e+00_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.18199e+00_rb,0.18200e+00_rb,0.19084e+00_rb,0.19456e+00_rb,0.19545e+00_rb, &\n        & 0.19216e+00_rb,0.18018e+00_rb,0.16033e+00_rb,0.16333e+00_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.18402e+00_rb,0.18227e+00_rb,0.19032e+00_rb,0.19515e+00_rb,0.19643e+00_rb, &\n        & 0.19212e+00_rb,0.17883e+00_rb,0.15954e+00_rb,0.16306e+00_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.18527e+00_rb,0.18204e+00_rb,0.18956e+00_rb,0.19541e+00_rb,0.19690e+00_rb, &\n        & 0.19201e+00_rb,0.17754e+00_rb,0.15865e+00_rb,0.16240e+00_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.18597e+00_rb,0.18146e+00_rb,0.18866e+00_rb,0.19510e+00_rb,0.19689e+00_rb, &\n        & 0.19145e+00_rb,0.17626e+00_rb,0.15729e+00_rb,0.16157e+00_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.18701e+00_rb,0.18150e+00_rb,0.18776e+00_rb,0.19449e+00_rb,0.19637e+00_rb, &\n        & 0.19035e+00_rb,0.17490e+00_rb,0.15605e+00_rb,0.16154e+00_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.16786e+00_rb,0.17459e+00_rb,0.18572e+00_rb,0.19196e+00_rb,0.19497e+00_rb, &\n        & 0.19093e+00_rb,0.17775e+00_rb,0.15445e+00_rb,0.12845e+00_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.16990e+00_rb,0.17470e+00_rb,0.18604e+00_rb,0.19354e+00_rb,0.19670e+00_rb, &\n        & 0.19124e+00_rb,0.17643e+00_rb,0.15415e+00_rb,0.12953e+00_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.17115e+00_rb,0.17447e+00_rb,0.18577e+00_rb,0.19420e+00_rb,0.19734e+00_rb, &\n        & 0.19133e+00_rb,0.17544e+00_rb,0.15343e+00_rb,0.13019e+00_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.17256e+00_rb,0.17421e+00_rb,0.18540e+00_rb,0.19426e+00_rb,0.19741e+00_rb, &\n        & 0.19105e+00_rb,0.17463e+00_rb,0.15245e+00_rb,0.13135e+00_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.17411e+00_rb,0.17469e+00_rb,0.18532e+00_rb,0.19400e+00_rb,0.19690e+00_rb, &\n        & 0.19024e+00_rb,0.17373e+00_rb,0.15177e+00_rb,0.13443e+00_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.15326e+00_rb,0.16530e+00_rb,0.17933e+00_rb,0.18873e+00_rb,0.19204e+00_rb, &\n        & 0.18645e+00_rb,0.17157e+00_rb,0.14842e+00_rb,0.10906e+00_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.15510e+00_rb,0.16508e+00_rb,0.18002e+00_rb,0.19054e+00_rb,0.19337e+00_rb, &\n        & 0.18697e+00_rb,0.17132e+00_rb,0.14823e+00_rb,0.10821e+00_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.15695e+00_rb,0.16517e+00_rb,0.18033e+00_rb,0.19125e+00_rb,0.19395e+00_rb, &\n        & 0.18719e+00_rb,0.17114e+00_rb,0.14748e+00_rb,0.10735e+00_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.15884e+00_rb,0.16584e+00_rb,0.18066e+00_rb,0.19107e+00_rb,0.19386e+00_rb, &\n        & 0.18714e+00_rb,0.17083e+00_rb,0.14679e+00_rb,0.10767e+00_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.16065e+00_rb,0.16693e+00_rb,0.18136e+00_rb,0.19090e+00_rb,0.19313e+00_rb, &\n        & 0.18652e+00_rb,0.17043e+00_rb,0.14693e+00_rb,0.10852e+00_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.13812e+00_rb,0.15482e+00_rb,0.17200e+00_rb,0.18322e+00_rb,0.18516e+00_rb, &\n        & 0.17855e+00_rb,0.16404e+00_rb,0.14149e+00_rb,0.85521e-01_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.14024e+00_rb,0.15523e+00_rb,0.17295e+00_rb,0.18464e+00_rb,0.18616e+00_rb, &\n        & 0.17947e+00_rb,0.16474e+00_rb,0.14107e+00_rb,0.84251e-01_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.14232e+00_rb,0.15625e+00_rb,0.17374e+00_rb,0.18482e+00_rb,0.18666e+00_rb, &\n        & 0.18015e+00_rb,0.16507e+00_rb,0.14067e+00_rb,0.83221e-01_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.14452e+00_rb,0.15760e+00_rb,0.17483e+00_rb,0.18482e+00_rb,0.18644e+00_rb, &\n        & 0.18031e+00_rb,0.16530e+00_rb,0.14085e+00_rb,0.83052e-01_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.14659e+00_rb,0.15898e+00_rb,0.17608e+00_rb,0.18496e+00_rb,0.18608e+00_rb, &\n        & 0.18007e+00_rb,0.16596e+00_rb,0.14156e+00_rb,0.86150e-01_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.12335e+00_rb,0.14397e+00_rb,0.16332e+00_rb,0.17403e+00_rb,0.17485e+00_rb, &\n        & 0.16858e+00_rb,0.15532e+00_rb,0.13315e+00_rb,0.86982e-01_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.12553e+00_rb,0.14531e+00_rb,0.16473e+00_rb,0.17477e+00_rb,0.17593e+00_rb, &\n        & 0.16998e+00_rb,0.15639e+00_rb,0.13322e+00_rb,0.83311e-01_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.12788e+00_rb,0.14705e+00_rb,0.16612e+00_rb,0.17511e+00_rb,0.17644e+00_rb, &\n        & 0.17090e+00_rb,0.15730e+00_rb,0.13374e+00_rb,0.80969e-01_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.13027e+00_rb,0.14889e+00_rb,0.16746e+00_rb,0.17569e+00_rb,0.17660e+00_rb, &\n        & 0.17136e+00_rb,0.15852e+00_rb,0.13468e+00_rb,0.79671e-01_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.13255e+00_rb,0.15069e+00_rb,0.16867e+00_rb,0.17661e+00_rb,0.17696e+00_rb, &\n        & 0.17204e+00_rb,0.15992e+00_rb,0.13520e+00_rb,0.81334e-01_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.28721e+00_rb,0.25323e+00_rb,0.21917e+00_rb,0.19050e+00_rb,0.18439e+00_rb, &\n        & 0.17842e+00_rb,0.17156e+00_rb,0.18245e+00_rb,0.20075e+00_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.28561e+00_rb,0.25177e+00_rb,0.21845e+00_rb,0.19052e+00_rb,0.18309e+00_rb, &\n        & 0.17638e+00_rb,0.16966e+00_rb,0.18096e+00_rb,0.19965e+00_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.28230e+00_rb,0.24910e+00_rb,0.21697e+00_rb,0.19014e+00_rb,0.18233e+00_rb, &\n        & 0.17414e+00_rb,0.16821e+00_rb,0.18034e+00_rb,0.19910e+00_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.27834e+00_rb,0.24592e+00_rb,0.21540e+00_rb,0.18935e+00_rb,0.18163e+00_rb, &\n        & 0.17186e+00_rb,0.16739e+00_rb,0.18033e+00_rb,0.19922e+00_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.27434e+00_rb,0.24303e+00_rb,0.21391e+00_rb,0.18803e+00_rb,0.18019e+00_rb, &\n        & 0.17025e+00_rb,0.16693e+00_rb,0.18042e+00_rb,0.19937e+00_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.29623e+00_rb,0.26097e+00_rb,0.22609e+00_rb,0.20293e+00_rb,0.20182e+00_rb, &\n        & 0.19085e+00_rb,0.18240e+00_rb,0.19397e+00_rb,0.21604e+00_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.29432e+00_rb,0.25931e+00_rb,0.22539e+00_rb,0.20142e+00_rb,0.20026e+00_rb, &\n        & 0.18828e+00_rb,0.18057e+00_rb,0.19299e+00_rb,0.21521e+00_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.29132e+00_rb,0.25712e+00_rb,0.22457e+00_rb,0.20070e+00_rb,0.19917e+00_rb, &\n        & 0.18573e+00_rb,0.17946e+00_rb,0.19254e+00_rb,0.21482e+00_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.28797e+00_rb,0.25474e+00_rb,0.22345e+00_rb,0.19986e+00_rb,0.19780e+00_rb, &\n        & 0.18370e+00_rb,0.17875e+00_rb,0.19238e+00_rb,0.21459e+00_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.28466e+00_rb,0.25242e+00_rb,0.22205e+00_rb,0.19838e+00_rb,0.19562e+00_rb, &\n        & 0.18242e+00_rb,0.17806e+00_rb,0.19203e+00_rb,0.21421e+00_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.30561e+00_rb,0.26889e+00_rb,0.23295e+00_rb,0.21956e+00_rb,0.21717e+00_rb, &\n        & 0.20307e+00_rb,0.19524e+00_rb,0.20742e+00_rb,0.23388e+00_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.30324e+00_rb,0.26704e+00_rb,0.23237e+00_rb,0.21738e+00_rb,0.21493e+00_rb, &\n        & 0.20036e+00_rb,0.19375e+00_rb,0.20659e+00_rb,0.23304e+00_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.30058e+00_rb,0.26531e+00_rb,0.23190e+00_rb,0.21598e+00_rb,0.21300e+00_rb, &\n        & 0.19790e+00_rb,0.19244e+00_rb,0.20627e+00_rb,0.23259e+00_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.29826e+00_rb,0.26386e+00_rb,0.23125e+00_rb,0.21516e+00_rb,0.21099e+00_rb, &\n        & 0.19626e+00_rb,0.19135e+00_rb,0.20570e+00_rb,0.23176e+00_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.29569e+00_rb,0.26204e+00_rb,0.22972e+00_rb,0.21357e+00_rb,0.20846e+00_rb, &\n        & 0.19500e+00_rb,0.19003e+00_rb,0.20504e+00_rb,0.23084e+00_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.31580e+00_rb,0.27765e+00_rb,0.24256e+00_rb,0.23825e+00_rb,0.23010e+00_rb, &\n        & 0.21605e+00_rb,0.20908e+00_rb,0.22073e+00_rb,0.25027e+00_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.31385e+00_rb,0.27619e+00_rb,0.24143e+00_rb,0.23561e+00_rb,0.22732e+00_rb, &\n        & 0.21355e+00_rb,0.20732e+00_rb,0.21997e+00_rb,0.24945e+00_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.31115e+00_rb,0.27450e+00_rb,0.24049e+00_rb,0.23383e+00_rb,0.22480e+00_rb, &\n        & 0.21136e+00_rb,0.20583e+00_rb,0.21971e+00_rb,0.24898e+00_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.30851e+00_rb,0.27268e+00_rb,0.23896e+00_rb,0.23220e+00_rb,0.22243e+00_rb, &\n        & 0.20992e+00_rb,0.20459e+00_rb,0.21945e+00_rb,0.24850e+00_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.30578e+00_rb,0.27071e+00_rb,0.23717e+00_rb,0.23033e+00_rb,0.22018e+00_rb, &\n        & 0.20870e+00_rb,0.20353e+00_rb,0.21927e+00_rb,0.24814e+00_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.32525e+00_rb,0.28587e+00_rb,0.25583e+00_rb,0.25377e+00_rb,0.24260e+00_rb, &\n        & 0.22945e+00_rb,0.22249e+00_rb,0.23280e+00_rb,0.26422e+00_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.32339e+00_rb,0.28450e+00_rb,0.25406e+00_rb,0.25143e+00_rb,0.23950e+00_rb, &\n        & 0.22738e+00_rb,0.22044e+00_rb,0.23211e+00_rb,0.26348e+00_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.32075e+00_rb,0.28298e+00_rb,0.25200e+00_rb,0.24974e+00_rb,0.23665e+00_rb, &\n        & 0.22565e+00_rb,0.21882e+00_rb,0.23178e+00_rb,0.26317e+00_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.31838e+00_rb,0.28134e+00_rb,0.24992e+00_rb,0.24807e+00_rb,0.23442e+00_rb, &\n        & 0.22435e+00_rb,0.21780e+00_rb,0.23180e+00_rb,0.26307e+00_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.31581e+00_rb,0.27952e+00_rb,0.24774e+00_rb,0.24618e+00_rb,0.23239e+00_rb, &\n        & 0.22315e+00_rb,0.21723e+00_rb,0.23168e+00_rb,0.26269e+00_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.33335e+00_rb,0.29286e+00_rb,0.27107e+00_rb,0.26707e+00_rb,0.25627e+00_rb, &\n        & 0.24388e+00_rb,0.23516e+00_rb,0.24254e+00_rb,0.27495e+00_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.33185e+00_rb,0.29196e+00_rb,0.26927e+00_rb,0.26528e+00_rb,0.25338e+00_rb, &\n        & 0.24199e+00_rb,0.23321e+00_rb,0.24178e+00_rb,0.27452e+00_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.32960e+00_rb,0.29070e+00_rb,0.26757e+00_rb,0.26387e+00_rb,0.25062e+00_rb, &\n        & 0.24015e+00_rb,0.23158e+00_rb,0.24188e+00_rb,0.27485e+00_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.32714e+00_rb,0.28920e+00_rb,0.26543e+00_rb,0.26229e+00_rb,0.24828e+00_rb, &\n        & 0.23863e+00_rb,0.23085e+00_rb,0.24191e+00_rb,0.27476e+00_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.32443e+00_rb,0.28722e+00_rb,0.26300e+00_rb,0.25993e+00_rb,0.24627e+00_rb, &\n        & 0.23716e+00_rb,0.23011e+00_rb,0.24150e+00_rb,0.27410e+00_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.33805e+00_rb,0.29686e+00_rb,0.28577e+00_rb,0.27897e+00_rb,0.26998e+00_rb, &\n        & 0.25892e+00_rb,0.24589e+00_rb,0.25046e+00_rb,0.28292e+00_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.33717e+00_rb,0.29673e+00_rb,0.28505e+00_rb,0.27748e+00_rb,0.26727e+00_rb, &\n        & 0.25668e+00_rb,0.24439e+00_rb,0.24991e+00_rb,0.28315e+00_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.33582e+00_rb,0.29639e+00_rb,0.28414e+00_rb,0.27664e+00_rb,0.26503e+00_rb, &\n        & 0.25454e+00_rb,0.24355e+00_rb,0.24982e+00_rb,0.28339e+00_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.33418e+00_rb,0.29565e+00_rb,0.28243e+00_rb,0.27502e+00_rb,0.26319e+00_rb, &\n        & 0.25262e+00_rb,0.24314e+00_rb,0.24937e+00_rb,0.28297e+00_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.33223e+00_rb,0.29432e+00_rb,0.28036e+00_rb,0.27276e+00_rb,0.26126e+00_rb, &\n        & 0.25114e+00_rb,0.24223e+00_rb,0.24874e+00_rb,0.28224e+00_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.33811e+00_rb,0.29881e+00_rb,0.29770e+00_rb,0.29087e+00_rb,0.28271e+00_rb, &\n        & 0.27088e+00_rb,0.25606e+00_rb,0.25702e+00_rb,0.28869e+00_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.33858e+00_rb,0.29933e+00_rb,0.29817e+00_rb,0.28968e+00_rb,0.28063e+00_rb, &\n        & 0.26913e+00_rb,0.25508e+00_rb,0.25647e+00_rb,0.28886e+00_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.33853e+00_rb,0.29979e+00_rb,0.29803e+00_rb,0.28900e+00_rb,0.27895e+00_rb, &\n        & 0.26698e+00_rb,0.25454e+00_rb,0.25561e+00_rb,0.28857e+00_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.33786e+00_rb,0.29958e+00_rb,0.29705e+00_rb,0.28721e+00_rb,0.27754e+00_rb, &\n        & 0.26522e+00_rb,0.25386e+00_rb,0.25480e+00_rb,0.28812e+00_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.33672e+00_rb,0.29874e+00_rb,0.29538e+00_rb,0.28492e+00_rb,0.27593e+00_rb, &\n        & 0.26422e+00_rb,0.25288e+00_rb,0.25337e+00_rb,0.28657e+00_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.33304e+00_rb,0.29965e+00_rb,0.30451e+00_rb,0.30108e+00_rb,0.29380e+00_rb, &\n        & 0.28100e+00_rb,0.26620e+00_rb,0.26062e+00_rb,0.28923e+00_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.33493e+00_rb,0.30099e+00_rb,0.30590e+00_rb,0.30051e+00_rb,0.29241e+00_rb, &\n        & 0.27971e+00_rb,0.26553e+00_rb,0.25927e+00_rb,0.28890e+00_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.33639e+00_rb,0.30210e+00_rb,0.30672e+00_rb,0.29976e+00_rb,0.29135e+00_rb, &\n        & 0.27789e+00_rb,0.26459e+00_rb,0.25779e+00_rb,0.28847e+00_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.33691e+00_rb,0.30238e+00_rb,0.30636e+00_rb,0.29831e+00_rb,0.29055e+00_rb, &\n        & 0.27684e+00_rb,0.26372e+00_rb,0.25629e+00_rb,0.28756e+00_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.33680e+00_rb,0.30184e+00_rb,0.30474e+00_rb,0.29664e+00_rb,0.28906e+00_rb, &\n        & 0.27593e+00_rb,0.26250e+00_rb,0.25436e+00_rb,0.28576e+00_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.32265e+00_rb,0.29931e+00_rb,0.30809e+00_rb,0.30788e+00_rb,0.30155e+00_rb, &\n        & 0.29032e+00_rb,0.27398e+00_rb,0.25958e+00_rb,0.28232e+00_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.32643e+00_rb,0.30217e+00_rb,0.30992e+00_rb,0.30804e+00_rb,0.30109e+00_rb, &\n        & 0.28947e+00_rb,0.27364e+00_rb,0.25761e+00_rb,0.28165e+00_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.32903e+00_rb,0.30409e+00_rb,0.31077e+00_rb,0.30846e+00_rb,0.30095e+00_rb, &\n        & 0.28833e+00_rb,0.27259e+00_rb,0.25601e+00_rb,0.28124e+00_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.33021e+00_rb,0.30472e+00_rb,0.31062e+00_rb,0.30777e+00_rb,0.30050e+00_rb, &\n        & 0.28725e+00_rb,0.27132e+00_rb,0.25418e+00_rb,0.28034e+00_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.33035e+00_rb,0.30379e+00_rb,0.30948e+00_rb,0.30647e+00_rb,0.29984e+00_rb, &\n        & 0.28648e+00_rb,0.26959e+00_rb,0.25216e+00_rb,0.27891e+00_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.31092e+00_rb,0.29828e+00_rb,0.30944e+00_rb,0.31067e+00_rb,0.30618e+00_rb, &\n        & 0.29698e+00_rb,0.27822e+00_rb,0.25367e+00_rb,0.20521e+00_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.31508e+00_rb,0.30179e+00_rb,0.31084e+00_rb,0.31247e+00_rb,0.30712e+00_rb, &\n        & 0.29665e+00_rb,0.27717e+00_rb,0.25137e+00_rb,0.20791e+00_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.31745e+00_rb,0.30351e+00_rb,0.31148e+00_rb,0.31329e+00_rb,0.30764e+00_rb, &\n        & 0.29592e+00_rb,0.27601e+00_rb,0.24946e+00_rb,0.21041e+00_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.31864e+00_rb,0.30345e+00_rb,0.31137e+00_rb,0.31328e+00_rb,0.30818e+00_rb, &\n        & 0.29525e+00_rb,0.27444e+00_rb,0.24795e+00_rb,0.21312e+00_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.31936e+00_rb,0.30268e+00_rb,0.31034e+00_rb,0.31260e+00_rb,0.30827e+00_rb, &\n        & 0.29465e+00_rb,0.27259e+00_rb,0.24615e+00_rb,0.21621e+00_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.29534e+00_rb,0.29381e+00_rb,0.30706e+00_rb,0.31081e+00_rb,0.30893e+00_rb, &\n        & 0.29961e+00_rb,0.27811e+00_rb,0.24533e+00_rb,0.16496e+00_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.29914e+00_rb,0.29664e+00_rb,0.30890e+00_rb,0.31347e+00_rb,0.31102e+00_rb, &\n        & 0.29958e+00_rb,0.27683e+00_rb,0.24361e+00_rb,0.16812e+00_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.30164e+00_rb,0.29790e+00_rb,0.30986e+00_rb,0.31529e+00_rb,0.31277e+00_rb, &\n        & 0.29960e+00_rb,0.27547e+00_rb,0.24230e+00_rb,0.17163e+00_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.30318e+00_rb,0.29799e+00_rb,0.30963e+00_rb,0.31596e+00_rb,0.31358e+00_rb, &\n        & 0.29964e+00_rb,0.27410e+00_rb,0.24090e+00_rb,0.17207e+00_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.30462e+00_rb,0.29774e+00_rb,0.30883e+00_rb,0.31580e+00_rb,0.31382e+00_rb, &\n        & 0.29942e+00_rb,0.27289e+00_rb,0.23940e+00_rb,0.17248e+00_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.27646e+00_rb,0.28482e+00_rb,0.30092e+00_rb,0.30845e+00_rb,0.30839e+00_rb, &\n        & 0.29721e+00_rb,0.27391e+00_rb,0.23566e+00_rb,0.13145e+00_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.28013e+00_rb,0.28703e+00_rb,0.30330e+00_rb,0.31210e+00_rb,0.31152e+00_rb, &\n        & 0.29799e+00_rb,0.27265e+00_rb,0.23501e+00_rb,0.13680e+00_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.28251e+00_rb,0.28781e+00_rb,0.30455e+00_rb,0.31430e+00_rb,0.31342e+00_rb, &\n        & 0.29883e+00_rb,0.27192e+00_rb,0.23420e+00_rb,0.14031e+00_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.28473e+00_rb,0.28806e+00_rb,0.30532e+00_rb,0.31558e+00_rb,0.31478e+00_rb, &\n        & 0.29964e+00_rb,0.27140e+00_rb,0.23324e+00_rb,0.14138e+00_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.28731e+00_rb,0.28885e+00_rb,0.30563e+00_rb,0.31603e+00_rb,0.31529e+00_rb, &\n        & 0.30003e+00_rb,0.27073e+00_rb,0.23300e+00_rb,0.14291e+00_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.39331e+00_rb,0.34536e+00_rb,0.29823e+00_rb,0.25200e+00_rb,0.22257e+00_rb, &\n        & 0.22153e+00_rb,0.23263e+00_rb,0.25940e+00_rb,0.28372e+00_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.38484e+00_rb,0.33824e+00_rb,0.29242e+00_rb,0.24772e+00_rb,0.21768e+00_rb, &\n        & 0.21972e+00_rb,0.23098e+00_rb,0.25833e+00_rb,0.28173e+00_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.37910e+00_rb,0.33360e+00_rb,0.28884e+00_rb,0.24475e+00_rb,0.21421e+00_rb, &\n        & 0.21744e+00_rb,0.22823e+00_rb,0.25633e+00_rb,0.27932e+00_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.37406e+00_rb,0.32956e+00_rb,0.28576e+00_rb,0.24212e+00_rb,0.21151e+00_rb, &\n        & 0.21463e+00_rb,0.22480e+00_rb,0.25354e+00_rb,0.27637e+00_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.36968e+00_rb,0.32602e+00_rb,0.28272e+00_rb,0.24026e+00_rb,0.20970e+00_rb, &\n        & 0.21134e+00_rb,0.22163e+00_rb,0.25081e+00_rb,0.27385e+00_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.41602e+00_rb,0.36529e+00_rb,0.31527e+00_rb,0.26672e+00_rb,0.24637e+00_rb, &\n        & 0.24718e+00_rb,0.25604e+00_rb,0.28585e+00_rb,0.31850e+00_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.40830e+00_rb,0.35891e+00_rb,0.31022e+00_rb,0.26338e+00_rb,0.24193e+00_rb, &\n        & 0.24484e+00_rb,0.25382e+00_rb,0.28396e+00_rb,0.31574e+00_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.40220e+00_rb,0.35391e+00_rb,0.30635e+00_rb,0.26042e+00_rb,0.23856e+00_rb, &\n        & 0.24224e+00_rb,0.25030e+00_rb,0.28140e+00_rb,0.31256e+00_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.39708e+00_rb,0.34976e+00_rb,0.30310e+00_rb,0.25764e+00_rb,0.23590e+00_rb, &\n        & 0.23895e+00_rb,0.24655e+00_rb,0.27840e+00_rb,0.30929e+00_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.39199e+00_rb,0.34559e+00_rb,0.29962e+00_rb,0.25559e+00_rb,0.23369e+00_rb, &\n        & 0.23517e+00_rb,0.24316e+00_rb,0.27577e+00_rb,0.30660e+00_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.43911e+00_rb,0.38551e+00_rb,0.33254e+00_rb,0.28548e+00_rb,0.27501e+00_rb, &\n        & 0.27158e+00_rb,0.27806e+00_rb,0.30961e+00_rb,0.34942e+00_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.43165e+00_rb,0.37930e+00_rb,0.32763e+00_rb,0.28158e+00_rb,0.27135e+00_rb, &\n        & 0.26881e+00_rb,0.27489e+00_rb,0.30725e+00_rb,0.34620e+00_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.42551e+00_rb,0.37419e+00_rb,0.32362e+00_rb,0.27772e+00_rb,0.26799e+00_rb, &\n        & 0.26571e+00_rb,0.27096e+00_rb,0.30422e+00_rb,0.34240e+00_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.42038e+00_rb,0.37000e+00_rb,0.32049e+00_rb,0.27494e+00_rb,0.26498e+00_rb, &\n        & 0.26183e+00_rb,0.26698e+00_rb,0.30136e+00_rb,0.33931e+00_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.41446e+00_rb,0.36533e+00_rb,0.31734e+00_rb,0.27304e+00_rb,0.26234e+00_rb, &\n        & 0.25777e+00_rb,0.26380e+00_rb,0.29913e+00_rb,0.33705e+00_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.46241e+00_rb,0.40571e+00_rb,0.34961e+00_rb,0.30954e+00_rb,0.30425e+00_rb, &\n        & 0.29507e+00_rb,0.29890e+00_rb,0.33301e+00_rb,0.37827e+00_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.45465e+00_rb,0.39923e+00_rb,0.34450e+00_rb,0.30510e+00_rb,0.30124e+00_rb, &\n        & 0.29145e+00_rb,0.29516e+00_rb,0.32984e+00_rb,0.37410e+00_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.44872e+00_rb,0.39432e+00_rb,0.34072e+00_rb,0.30104e+00_rb,0.29841e+00_rb, &\n        & 0.28758e+00_rb,0.29090e+00_rb,0.32641e+00_rb,0.36986e+00_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.44350e+00_rb,0.39014e+00_rb,0.33810e+00_rb,0.29814e+00_rb,0.29548e+00_rb, &\n        & 0.28294e+00_rb,0.28676e+00_rb,0.32342e+00_rb,0.36667e+00_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.43828e+00_rb,0.38609e+00_rb,0.33570e+00_rb,0.29627e+00_rb,0.29269e+00_rb, &\n        & 0.27870e+00_rb,0.28357e+00_rb,0.32115e+00_rb,0.36426e+00_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.48784e+00_rb,0.42784e+00_rb,0.36835e+00_rb,0.33984e+00_rb,0.33294e+00_rb, &\n        & 0.31846e+00_rb,0.32126e+00_rb,0.35651e+00_rb,0.40621e+00_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.48030e+00_rb,0.42153e+00_rb,0.36340e+00_rb,0.33519e+00_rb,0.32973e+00_rb, &\n        & 0.31380e+00_rb,0.31683e+00_rb,0.35311e+00_rb,0.40187e+00_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.47411e+00_rb,0.41636e+00_rb,0.35974e+00_rb,0.33136e+00_rb,0.32664e+00_rb, &\n        & 0.30892e+00_rb,0.31220e+00_rb,0.34964e+00_rb,0.39763e+00_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.46883e+00_rb,0.41227e+00_rb,0.35745e+00_rb,0.32776e+00_rb,0.32317e+00_rb, &\n        & 0.30393e+00_rb,0.30777e+00_rb,0.34651e+00_rb,0.39440e+00_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.46388e+00_rb,0.40844e+00_rb,0.35543e+00_rb,0.32520e+00_rb,0.31964e+00_rb, &\n        & 0.29971e+00_rb,0.30439e+00_rb,0.34429e+00_rb,0.39205e+00_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.51535e+00_rb,0.45180e+00_rb,0.39162e+00_rb,0.37322e+00_rb,0.36050e+00_rb, &\n        & 0.34300e+00_rb,0.34505e+00_rb,0.38137e+00_rb,0.43538e+00_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.50781e+00_rb,0.44545e+00_rb,0.38586e+00_rb,0.36868e+00_rb,0.35573e+00_rb, &\n        & 0.33760e+00_rb,0.34025e+00_rb,0.37783e+00_rb,0.43095e+00_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.50139e+00_rb,0.44011e+00_rb,0.38148e+00_rb,0.36480e+00_rb,0.35183e+00_rb, &\n        & 0.33217e+00_rb,0.33546e+00_rb,0.37434e+00_rb,0.42674e+00_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.49657e+00_rb,0.43636e+00_rb,0.37891e+00_rb,0.36116e+00_rb,0.34800e+00_rb, &\n        & 0.32704e+00_rb,0.33102e+00_rb,0.37152e+00_rb,0.42385e+00_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.49171e+00_rb,0.43263e+00_rb,0.37693e+00_rb,0.35827e+00_rb,0.34376e+00_rb, &\n        & 0.32320e+00_rb,0.32782e+00_rb,0.36976e+00_rb,0.42188e+00_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.54162e+00_rb,0.47464e+00_rb,0.41834e+00_rb,0.40782e+00_rb,0.38721e+00_rb, &\n        & 0.36824e+00_rb,0.37067e+00_rb,0.40670e+00_rb,0.46460e+00_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.53535e+00_rb,0.46937e+00_rb,0.41220e+00_rb,0.40296e+00_rb,0.38145e+00_rb, &\n        & 0.36278e+00_rb,0.36581e+00_rb,0.40309e+00_rb,0.46013e+00_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.52914e+00_rb,0.46429e+00_rb,0.40710e+00_rb,0.39788e+00_rb,0.37673e+00_rb, &\n        & 0.35819e+00_rb,0.36078e+00_rb,0.40008e+00_rb,0.45678e+00_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.52440e+00_rb,0.46050e+00_rb,0.40384e+00_rb,0.39374e+00_rb,0.37204e+00_rb, &\n        & 0.35371e+00_rb,0.35616e+00_rb,0.39775e+00_rb,0.45424e+00_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.52017e+00_rb,0.45722e+00_rb,0.40132e+00_rb,0.39030e+00_rb,0.36733e+00_rb, &\n        & 0.34991e+00_rb,0.35252e+00_rb,0.39600e+00_rb,0.45213e+00_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.56560e+00_rb,0.49547e+00_rb,0.44792e+00_rb,0.43980e+00_rb,0.41568e+00_rb, &\n        & 0.39571e+00_rb,0.39516e+00_rb,0.42687e+00_rb,0.48767e+00_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.55986e+00_rb,0.49068e+00_rb,0.44130e+00_rb,0.43344e+00_rb,0.40921e+00_rb, &\n        & 0.39033e+00_rb,0.39006e+00_rb,0.42429e+00_rb,0.48458e+00_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.55439e+00_rb,0.48622e+00_rb,0.43604e+00_rb,0.42727e+00_rb,0.40340e+00_rb, &\n        & 0.38637e+00_rb,0.38517e+00_rb,0.42255e+00_rb,0.48243e+00_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.55085e+00_rb,0.48344e+00_rb,0.43251e+00_rb,0.42285e+00_rb,0.39791e+00_rb, &\n        & 0.38219e+00_rb,0.38096e+00_rb,0.42076e+00_rb,0.48039e+00_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.54722e+00_rb,0.48060e+00_rb,0.42969e+00_rb,0.41964e+00_rb,0.39283e+00_rb, &\n        & 0.37840e+00_rb,0.37699e+00_rb,0.41955e+00_rb,0.47894e+00_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.58672e+00_rb,0.51388e+00_rb,0.47909e+00_rb,0.46769e+00_rb,0.44479e+00_rb, &\n        & 0.42421e+00_rb,0.41694e+00_rb,0.44339e+00_rb,0.50662e+00_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.58159e+00_rb,0.50951e+00_rb,0.47213e+00_rb,0.46028e+00_rb,0.43736e+00_rb, &\n        & 0.41895e+00_rb,0.41246e+00_rb,0.44257e+00_rb,0.50550e+00_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.57736e+00_rb,0.50610e+00_rb,0.46657e+00_rb,0.45431e+00_rb,0.43100e+00_rb, &\n        & 0.41543e+00_rb,0.40868e+00_rb,0.44206e+00_rb,0.50480e+00_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.57459e+00_rb,0.50394e+00_rb,0.46330e+00_rb,0.44994e+00_rb,0.42562e+00_rb, &\n        & 0.41143e+00_rb,0.40432e+00_rb,0.44089e+00_rb,0.50333e+00_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.57136e+00_rb,0.50148e+00_rb,0.46136e+00_rb,0.44665e+00_rb,0.42115e+00_rb, &\n        & 0.40792e+00_rb,0.40001e+00_rb,0.43966e+00_rb,0.50186e+00_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.60279e+00_rb,0.52914e+00_rb,0.50725e+00_rb,0.49385e+00_rb,0.47296e+00_rb, &\n        & 0.45056e+00_rb,0.43650e+00_rb,0.45649e+00_rb,0.52069e+00_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.59826e+00_rb,0.52452e+00_rb,0.50048e+00_rb,0.48635e+00_rb,0.46511e+00_rb, &\n        & 0.44618e+00_rb,0.43278e+00_rb,0.45737e+00_rb,0.52170e+00_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.59590e+00_rb,0.52228e+00_rb,0.49610e+00_rb,0.47997e+00_rb,0.45903e+00_rb, &\n        & 0.44309e+00_rb,0.42962e+00_rb,0.45759e+00_rb,0.52208e+00_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.59454e+00_rb,0.52120e+00_rb,0.49388e+00_rb,0.47548e+00_rb,0.45447e+00_rb, &\n        & 0.44006e+00_rb,0.42512e+00_rb,0.45631e+00_rb,0.52061e+00_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.59357e+00_rb,0.52070e+00_rb,0.49246e+00_rb,0.47250e+00_rb,0.45028e+00_rb, &\n        & 0.43610e+00_rb,0.42114e+00_rb,0.45529e+00_rb,0.51951e+00_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.60887e+00_rb,0.53839e+00_rb,0.52807e+00_rb,0.51587e+00_rb,0.49623e+00_rb, &\n        & 0.47362e+00_rb,0.45440e+00_rb,0.46645e+00_rb,0.53001e+00_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.60756e+00_rb,0.53578e+00_rb,0.52411e+00_rb,0.50806e+00_rb,0.48992e+00_rb, &\n        & 0.47089e+00_rb,0.45204e+00_rb,0.46808e+00_rb,0.53215e+00_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.60793e+00_rb,0.53524e+00_rb,0.52214e+00_rb,0.50280e+00_rb,0.48540e+00_rb, &\n        & 0.46881e+00_rb,0.44770e+00_rb,0.46764e+00_rb,0.53195e+00_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.60970e+00_rb,0.53618e+00_rb,0.52106e+00_rb,0.49960e+00_rb,0.48160e+00_rb, &\n        & 0.46481e+00_rb,0.44371e+00_rb,0.46667e+00_rb,0.53096e+00_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.61038e+00_rb,0.53650e+00_rb,0.52014e+00_rb,0.49804e+00_rb,0.47818e+00_rb, &\n        & 0.45984e+00_rb,0.44017e+00_rb,0.46579e+00_rb,0.53008e+00_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.60957e+00_rb,0.54609e+00_rb,0.54565e+00_rb,0.53521e+00_rb,0.51779e+00_rb, &\n        & 0.49593e+00_rb,0.47189e+00_rb,0.47309e+00_rb,0.46983e+00_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.61214e+00_rb,0.54625e+00_rb,0.54367e+00_rb,0.52921e+00_rb,0.51339e+00_rb, &\n        & 0.49443e+00_rb,0.46946e+00_rb,0.47371e+00_rb,0.47545e+00_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.61642e+00_rb,0.54787e+00_rb,0.54269e+00_rb,0.52579e+00_rb,0.50981e+00_rb, &\n        & 0.49118e+00_rb,0.46605e+00_rb,0.47265e+00_rb,0.47706e+00_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.62028e+00_rb,0.54980e+00_rb,0.54303e+00_rb,0.52440e+00_rb,0.50697e+00_rb, &\n        & 0.48619e+00_rb,0.46182e+00_rb,0.47123e+00_rb,0.48084e+00_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.62175e+00_rb,0.55026e+00_rb,0.54305e+00_rb,0.52373e+00_rb,0.50407e+00_rb, &\n        & 0.48153e+00_rb,0.45738e+00_rb,0.46998e+00_rb,0.48415e+00_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.60459e+00_rb,0.55304e+00_rb,0.55845e+00_rb,0.55195e+00_rb,0.53769e+00_rb, &\n        & 0.51606e+00_rb,0.48661e+00_rb,0.47383e+00_rb,0.40484e+00_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.61134e+00_rb,0.55569e+00_rb,0.55809e+00_rb,0.54885e+00_rb,0.53426e+00_rb, &\n        & 0.51450e+00_rb,0.48473e+00_rb,0.47289e+00_rb,0.40823e+00_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.61890e+00_rb,0.55963e+00_rb,0.55924e+00_rb,0.54802e+00_rb,0.53230e+00_rb, &\n        & 0.51039e+00_rb,0.48075e+00_rb,0.47078e+00_rb,0.41355e+00_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.62388e+00_rb,0.56213e+00_rb,0.56099e+00_rb,0.54740e+00_rb,0.52999e+00_rb, &\n        & 0.50582e+00_rb,0.47603e+00_rb,0.46901e+00_rb,0.41977e+00_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.62688e+00_rb,0.56314e+00_rb,0.56152e+00_rb,0.54685e+00_rb,0.52723e+00_rb, &\n        & 0.50138e+00_rb,0.47115e+00_rb,0.46700e+00_rb,0.42405e+00_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.52445e+00_rb,0.46003e+00_rb,0.39566e+00_rb,0.33139e+00_rb,0.26995e+00_rb, &\n        & 0.25837e+00_rb,0.28528e+00_rb,0.32819e+00_rb,0.35568e+00_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.51513e+00_rb,0.45183e+00_rb,0.38858e+00_rb,0.32553e+00_rb,0.26784e+00_rb, &\n        & 0.25515e+00_rb,0.28229e+00_rb,0.32456e+00_rb,0.35149e+00_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.50548e+00_rb,0.44334e+00_rb,0.38125e+00_rb,0.32054e+00_rb,0.26590e+00_rb, &\n        & 0.25305e+00_rb,0.28136e+00_rb,0.32218e+00_rb,0.34858e+00_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.49563e+00_rb,0.43466e+00_rb,0.37374e+00_rb,0.31559e+00_rb,0.26350e+00_rb, &\n        & 0.25115e+00_rb,0.28088e+00_rb,0.32077e+00_rb,0.34651e+00_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.48636e+00_rb,0.42650e+00_rb,0.36724e+00_rb,0.31119e+00_rb,0.26146e+00_rb, &\n        & 0.24908e+00_rb,0.27907e+00_rb,0.31920e+00_rb,0.34392e+00_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.56575e+00_rb,0.49609e+00_rb,0.42647e+00_rb,0.35691e+00_rb,0.29788e+00_rb, &\n        & 0.29937e+00_rb,0.33584e+00_rb,0.38701e+00_rb,0.42822e+00_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.55481e+00_rb,0.48648e+00_rb,0.41819e+00_rb,0.35023e+00_rb,0.29393e+00_rb, &\n        & 0.29578e+00_rb,0.33190e+00_rb,0.38233e+00_rb,0.42282e+00_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.54468e+00_rb,0.47756e+00_rb,0.41048e+00_rb,0.34498e+00_rb,0.29076e+00_rb, &\n        & 0.29330e+00_rb,0.33000e+00_rb,0.37899e+00_rb,0.41892e+00_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.53444e+00_rb,0.46857e+00_rb,0.40281e+00_rb,0.34010e+00_rb,0.28772e+00_rb, &\n        & 0.29117e+00_rb,0.32899e+00_rb,0.37674e+00_rb,0.41581e+00_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.52472e+00_rb,0.46000e+00_rb,0.39601e+00_rb,0.33543e+00_rb,0.28544e+00_rb, &\n        & 0.28841e+00_rb,0.32728e+00_rb,0.37488e+00_rb,0.41300e+00_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.61401e+00_rb,0.53826e+00_rb,0.46254e+00_rb,0.38687e+00_rb,0.33653e+00_rb, &\n        & 0.34874e+00_rb,0.39278e+00_rb,0.45331e+00_rb,0.51178e+00_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.60181e+00_rb,0.52754e+00_rb,0.45329e+00_rb,0.37917e+00_rb,0.33018e+00_rb, &\n        & 0.34432e+00_rb,0.38762e+00_rb,0.44735e+00_rb,0.50487e+00_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.59018e+00_rb,0.51732e+00_rb,0.44448e+00_rb,0.37278e+00_rb,0.32516e+00_rb, &\n        & 0.34086e+00_rb,0.38493e+00_rb,0.44336e+00_rb,0.50014e+00_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.57893e+00_rb,0.50743e+00_rb,0.43595e+00_rb,0.36714e+00_rb,0.32113e+00_rb, &\n        & 0.33824e+00_rb,0.38315e+00_rb,0.44016e+00_rb,0.49598e+00_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.56842e+00_rb,0.49818e+00_rb,0.42822e+00_rb,0.36203e+00_rb,0.31748e+00_rb, &\n        & 0.33494e+00_rb,0.38145e+00_rb,0.43774e+00_rb,0.49238e+00_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.66683e+00_rb,0.58444e+00_rb,0.50208e+00_rb,0.41977e+00_rb,0.38494e+00_rb, &\n        & 0.40485e+00_rb,0.45417e+00_rb,0.52508e+00_rb,0.59839e+00_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.65354e+00_rb,0.57275e+00_rb,0.49199e+00_rb,0.41128e+00_rb,0.37591e+00_rb, &\n        & 0.39916e+00_rb,0.44835e+00_rb,0.51820e+00_rb,0.59043e+00_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.64071e+00_rb,0.56148e+00_rb,0.48227e+00_rb,0.40388e+00_rb,0.36879e+00_rb, &\n        & 0.39404e+00_rb,0.44465e+00_rb,0.51320e+00_rb,0.58464e+00_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.62844e+00_rb,0.55070e+00_rb,0.47297e+00_rb,0.39753e+00_rb,0.36329e+00_rb, &\n        & 0.39017e+00_rb,0.44183e+00_rb,0.50881e+00_rb,0.57888e+00_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.61748e+00_rb,0.54106e+00_rb,0.46467e+00_rb,0.39213e+00_rb,0.35832e+00_rb, &\n        & 0.38631e+00_rb,0.43926e+00_rb,0.50522e+00_rb,0.57403e+00_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.72260e+00_rb,0.63317e+00_rb,0.54375e+00_rb,0.45913e+00_rb,0.43732e+00_rb, &\n        & 0.46505e+00_rb,0.51783e+00_rb,0.59954e+00_rb,0.68564e+00_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.70858e+00_rb,0.62085e+00_rb,0.53314e+00_rb,0.44897e+00_rb,0.42823e+00_rb, &\n        & 0.45720e+00_rb,0.51115e+00_rb,0.59162e+00_rb,0.67653e+00_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.69539e+00_rb,0.60926e+00_rb,0.52314e+00_rb,0.43994e+00_rb,0.42099e+00_rb, &\n        & 0.45017e+00_rb,0.50656e+00_rb,0.58542e+00_rb,0.66941e+00_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.68235e+00_rb,0.59780e+00_rb,0.51326e+00_rb,0.43281e+00_rb,0.41557e+00_rb, &\n        & 0.44468e+00_rb,0.50258e+00_rb,0.57996e+00_rb,0.66206e+00_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.67018e+00_rb,0.58711e+00_rb,0.50404e+00_rb,0.42628e+00_rb,0.41131e+00_rb, &\n        & 0.43975e+00_rb,0.49863e+00_rb,0.57477e+00_rb,0.65556e+00_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.77964e+00_rb,0.68298e+00_rb,0.58633e+00_rb,0.50766e+00_rb,0.49641e+00_rb, &\n        & 0.52605e+00_rb,0.58161e+00_rb,0.67425e+00_rb,0.77212e+00_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.76589e+00_rb,0.67092e+00_rb,0.57596e+00_rb,0.49531e+00_rb,0.48834e+00_rb, &\n        & 0.51573e+00_rb,0.57361e+00_rb,0.66493e+00_rb,0.76124e+00_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.75251e+00_rb,0.65917e+00_rb,0.56583e+00_rb,0.48459e+00_rb,0.48115e+00_rb, &\n        & 0.50704e+00_rb,0.56757e+00_rb,0.65686e+00_rb,0.75182e+00_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.73905e+00_rb,0.64728e+00_rb,0.55554e+00_rb,0.47565e+00_rb,0.47497e+00_rb, &\n        & 0.50004e+00_rb,0.56191e+00_rb,0.64957e+00_rb,0.74243e+00_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.72636e+00_rb,0.63608e+00_rb,0.54581e+00_rb,0.46758e+00_rb,0.47009e+00_rb, &\n        & 0.49349e+00_rb,0.55635e+00_rb,0.64252e+00_rb,0.73397e+00_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.84113e+00_rb,0.73668e+00_rb,0.63225e+00_rb,0.56459e+00_rb,0.56168e+00_rb, &\n        & 0.58736e+00_rb,0.64476e+00_rb,0.74759e+00_rb,0.85655e+00_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.82630e+00_rb,0.72365e+00_rb,0.62103e+00_rb,0.55091e+00_rb,0.55367e+00_rb, &\n        & 0.57467e+00_rb,0.63457e+00_rb,0.73605e+00_rb,0.84323e+00_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.81279e+00_rb,0.71173e+00_rb,0.61068e+00_rb,0.53944e+00_rb,0.54564e+00_rb, &\n        & 0.56363e+00_rb,0.62610e+00_rb,0.72557e+00_rb,0.83073e+00_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.79922e+00_rb,0.69978e+00_rb,0.60035e+00_rb,0.52974e+00_rb,0.53833e+00_rb, &\n        & 0.55444e+00_rb,0.61857e+00_rb,0.71625e+00_rb,0.81942e+00_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.78598e+00_rb,0.68814e+00_rb,0.59031e+00_rb,0.52130e+00_rb,0.53249e+00_rb, &\n        & 0.54592e+00_rb,0.61225e+00_rb,0.70842e+00_rb,0.80994e+00_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.90865e+00_rb,0.79552e+00_rb,0.68301e+00_rb,0.62894e+00_rb,0.62980e+00_rb, &\n        & 0.64956e+00_rb,0.70917e+00_rb,0.82179e+00_rb,0.94167e+00_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.89327e+00_rb,0.78202e+00_rb,0.67089e+00_rb,0.61713e+00_rb,0.62095e+00_rb, &\n        & 0.63402e+00_rb,0.69617e+00_rb,0.80717e+00_rb,0.92484e+00_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.87903e+00_rb,0.76952e+00_rb,0.66001e+00_rb,0.60628e+00_rb,0.61235e+00_rb, &\n        & 0.62019e+00_rb,0.68531e+00_rb,0.79440e+00_rb,0.90974e+00_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.86460e+00_rb,0.75687e+00_rb,0.64914e+00_rb,0.59649e+00_rb,0.60349e+00_rb, &\n        & 0.60828e+00_rb,0.67580e+00_rb,0.78318e+00_rb,0.89639e+00_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.85091e+00_rb,0.74488e+00_rb,0.63886e+00_rb,0.58665e+00_rb,0.59566e+00_rb, &\n        & 0.59754e+00_rb,0.66827e+00_rb,0.77422e+00_rb,0.88585e+00_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.98149e+00_rb,0.85912e+00_rb,0.74373e+00_rb,0.70295e+00_rb,0.70214e+00_rb, &\n        & 0.71285e+00_rb,0.77237e+00_rb,0.89352e+00_rb,0.10239e+01_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.96640e+00_rb,0.84589e+00_rb,0.73081e+00_rb,0.69152e+00_rb,0.69170e+00_rb, &\n        & 0.69439e+00_rb,0.75605e+00_rb,0.87558e+00_rb,0.10032e+01_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.95188e+00_rb,0.83316e+00_rb,0.71892e+00_rb,0.68080e+00_rb,0.68028e+00_rb, &\n        & 0.67751e+00_rb,0.74271e+00_rb,0.86004e+00_rb,0.98493e+00_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.93737e+00_rb,0.82045e+00_rb,0.70700e+00_rb,0.67076e+00_rb,0.66785e+00_rb, &\n        & 0.66265e+00_rb,0.73184e+00_rb,0.84775e+00_rb,0.97055e+00_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.92346e+00_rb,0.80828e+00_rb,0.69536e+00_rb,0.66047e+00_rb,0.65652e+00_rb, &\n        & 0.65000e+00_rb,0.72388e+00_rb,0.83863e+00_rb,0.95986e+00_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.10577e+01_rb,0.92576e+00_rb,0.81364e+00_rb,0.78190e+00_rb,0.77617e+00_rb, &\n        & 0.77603e+00_rb,0.83269e+00_rb,0.96109e+00_rb,0.11008e+01_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.10450e+01_rb,0.91463e+00_rb,0.80097e+00_rb,0.77046e+00_rb,0.76182e+00_rb, &\n        & 0.75411e+00_rb,0.81384e+00_rb,0.94032e+00_rb,0.10769e+01_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.10312e+01_rb,0.90248e+00_rb,0.78812e+00_rb,0.75969e+00_rb,0.74632e+00_rb, &\n        & 0.73436e+00_rb,0.79822e+00_rb,0.92300e+00_rb,0.10571e+01_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.10164e+01_rb,0.88956e+00_rb,0.77444e+00_rb,0.74952e+00_rb,0.73099e+00_rb, &\n        & 0.71729e+00_rb,0.78702e+00_rb,0.91062e+00_rb,0.10426e+01_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.10010e+01_rb,0.87610e+00_rb,0.76045e+00_rb,0.73747e+00_rb,0.71669e+00_rb, &\n        & 0.70419e+00_rb,0.77819e+00_rb,0.90060e+00_rb,0.10309e+01_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.11332e+01_rb,0.99169e+00_rb,0.88520e+00_rb,0.85938e+00_rb,0.84171e+00_rb, &\n        & 0.82777e+00_rb,0.88045e+00_rb,0.10119e+01_rb,0.11581e+01_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.11221e+01_rb,0.98196e+00_rb,0.87210e+00_rb,0.84745e+00_rb,0.82287e+00_rb, &\n        & 0.80383e+00_rb,0.86097e+00_rb,0.99198e+00_rb,0.11355e+01_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.11079e+01_rb,0.96953e+00_rb,0.85745e+00_rb,0.83492e+00_rb,0.80465e+00_rb, &\n        & 0.78293e+00_rb,0.84710e+00_rb,0.97731e+00_rb,0.11185e+01_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.10888e+01_rb,0.95287e+00_rb,0.84018e+00_rb,0.82112e+00_rb,0.78666e+00_rb, &\n        & 0.76752e+00_rb,0.83583e+00_rb,0.96514e+00_rb,0.11044e+01_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.10701e+01_rb,0.93668e+00_rb,0.82311e+00_rb,0.80490e+00_rb,0.77024e+00_rb, &\n        & 0.75616e+00_rb,0.82679e+00_rb,0.95569e+00_rb,0.10935e+01_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.12101e+01_rb,0.10589e+01_rb,0.96254e+00_rb,0.93478e+00_rb,0.90424e+00_rb, &\n        & 0.88111e+00_rb,0.92612e+00_rb,0.10566e+01_rb,0.12084e+01_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.11952e+01_rb,0.10459e+01_rb,0.94639e+00_rb,0.91979e+00_rb,0.88299e+00_rb, &\n        & 0.85667e+00_rb,0.90737e+00_rb,0.10393e+01_rb,0.11885e+01_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.11758e+01_rb,0.10290e+01_rb,0.92827e+00_rb,0.90412e+00_rb,0.86234e+00_rb, &\n        & 0.83719e+00_rb,0.89320e+00_rb,0.10260e+01_rb,0.11732e+01_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.11552e+01_rb,0.10111e+01_rb,0.90821e+00_rb,0.88659e+00_rb,0.84346e+00_rb, &\n        & 0.82327e+00_rb,0.88324e+00_rb,0.10165e+01_rb,0.11624e+01_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.11370e+01_rb,0.99527e+00_rb,0.88941e+00_rb,0.86803e+00_rb,0.82686e+00_rb, &\n        & 0.81098e+00_rb,0.87502e+00_rb,0.10085e+01_rb,0.11531e+01_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.12761e+01_rb,0.11169e+01_rb,0.10366e+01_rb,0.10056e+01_rb,0.96619e+00_rb, &\n        & 0.93741e+00_rb,0.96971e+00_rb,0.10971e+01_rb,0.12455e+01_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.12590e+01_rb,0.11018e+01_rb,0.10193e+01_rb,0.98827e+00_rb,0.94401e+00_rb, &\n        & 0.91331e+00_rb,0.95200e+00_rb,0.10824e+01_rb,0.12321e+01_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.12382e+01_rb,0.10836e+01_rb,0.99864e+00_rb,0.96922e+00_rb,0.92237e+00_rb, &\n        & 0.89570e+00_rb,0.94013e+00_rb,0.10732e+01_rb,0.12212e+01_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.12192e+01_rb,0.10671e+01_rb,0.97718e+00_rb,0.94975e+00_rb,0.90316e+00_rb, &\n        & 0.88110e+00_rb,0.93100e+00_rb,0.10658e+01_rb,0.12124e+01_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.12013e+01_rb,0.10515e+01_rb,0.95818e+00_rb,0.93022e+00_rb,0.88690e+00_rb, &\n        & 0.86844e+00_rb,0.92401e+00_rb,0.10605e+01_rb,0.12064e+01_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.70834e+00_rb,0.62203e+00_rb,0.53582e+00_rb,0.44981e+00_rb,0.36430e+00_rb, &\n        & 0.30456e+00_rb,0.33772e+00_rb,0.39113e+00_rb,0.42417e+00_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.69132e+00_rb,0.60682e+00_rb,0.52239e+00_rb,0.43815e+00_rb,0.35442e+00_rb, &\n        & 0.29618e+00_rb,0.32847e+00_rb,0.37897e+00_rb,0.41053e+00_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.67551e+00_rb,0.59273e+00_rb,0.51002e+00_rb,0.42746e+00_rb,0.34540e+00_rb, &\n        & 0.29170e+00_rb,0.32190e+00_rb,0.37054e+00_rb,0.40056e+00_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.65954e+00_rb,0.57855e+00_rb,0.49762e+00_rb,0.41681e+00_rb,0.33774e+00_rb, &\n        & 0.29058e+00_rb,0.31932e+00_rb,0.36553e+00_rb,0.39416e+00_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.64426e+00_rb,0.56502e+00_rb,0.48582e+00_rb,0.40671e+00_rb,0.33237e+00_rb, &\n        & 0.29156e+00_rb,0.32280e+00_rb,0.36526e+00_rb,0.39257e+00_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.79278e+00_rb,0.69566e+00_rb,0.59863e+00_rb,0.50180e+00_rb,0.40547e+00_rb, &\n        & 0.36074e+00_rb,0.40858e+00_rb,0.47363e+00_rb,0.52463e+00_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.77384e+00_rb,0.67879e+00_rb,0.58381e+00_rb,0.48896e+00_rb,0.39453e+00_rb, &\n        & 0.34912e+00_rb,0.39677e+00_rb,0.45884e+00_rb,0.50797e+00_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.75601e+00_rb,0.66296e+00_rb,0.56995e+00_rb,0.47701e+00_rb,0.38437e+00_rb, &\n        & 0.34005e+00_rb,0.38826e+00_rb,0.44800e+00_rb,0.49524e+00_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.73809e+00_rb,0.64708e+00_rb,0.55610e+00_rb,0.46517e+00_rb,0.37616e+00_rb, &\n        & 0.33560e+00_rb,0.38277e+00_rb,0.44095e+00_rb,0.48660e+00_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.72001e+00_rb,0.63111e+00_rb,0.54222e+00_rb,0.45336e+00_rb,0.36992e+00_rb, &\n        & 0.33536e+00_rb,0.38227e+00_rb,0.43734e+00_rb,0.48144e+00_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.88640e+00_rb,0.77731e+00_rb,0.66826e+00_rb,0.55931e+00_rb,0.45077e+00_rb, &\n        & 0.42993e+00_rb,0.49594e+00_rb,0.57510e+00_rb,0.65079e+00_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.86545e+00_rb,0.75870e+00_rb,0.65198e+00_rb,0.54530e+00_rb,0.43919e+00_rb, &\n        & 0.41467e+00_rb,0.48152e+00_rb,0.55764e+00_rb,0.63093e+00_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.84484e+00_rb,0.74046e+00_rb,0.63609e+00_rb,0.53174e+00_rb,0.42841e+00_rb, &\n        & 0.40263e+00_rb,0.47018e+00_rb,0.54358e+00_rb,0.61450e+00_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.82484e+00_rb,0.72279e+00_rb,0.62074e+00_rb,0.51870e+00_rb,0.41933e+00_rb, &\n        & 0.39440e+00_rb,0.46214e+00_rb,0.53355e+00_rb,0.60235e+00_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.80403e+00_rb,0.70444e+00_rb,0.60484e+00_rb,0.50526e+00_rb,0.41249e+00_rb, &\n        & 0.39177e+00_rb,0.45674e+00_rb,0.52614e+00_rb,0.59324e+00_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.98775e+00_rb,0.86568e+00_rb,0.74362e+00_rb,0.62157e+00_rb,0.50893e+00_rb, &\n        & 0.51227e+00_rb,0.60104e+00_rb,0.69710e+00_rb,0.79722e+00_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.96448e+00_rb,0.84510e+00_rb,0.72572e+00_rb,0.60634e+00_rb,0.49496e+00_rb, &\n        & 0.49365e+00_rb,0.58337e+00_rb,0.67615e+00_rb,0.77326e+00_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.94121e+00_rb,0.82456e+00_rb,0.70790e+00_rb,0.59124e+00_rb,0.48214e+00_rb, &\n        & 0.47977e+00_rb,0.56920e+00_rb,0.65880e+00_rb,0.75281e+00_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.91776e+00_rb,0.80389e+00_rb,0.69002e+00_rb,0.57613e+00_rb,0.47050e+00_rb, &\n        & 0.47009e+00_rb,0.55863e+00_rb,0.64595e+00_rb,0.73761e+00_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.89560e+00_rb,0.78437e+00_rb,0.67314e+00_rb,0.56190e+00_rb,0.46260e+00_rb, &\n        & 0.46419e+00_rb,0.55009e+00_rb,0.63560e+00_rb,0.72526e+00_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.10958e+01_rb,0.95999e+00_rb,0.82419e+00_rb,0.68839e+00_rb,0.58904e+00_rb, &\n        & 0.60909e+00_rb,0.72523e+00_rb,0.84139e+00_rb,0.96623e+00_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.10697e+01_rb,0.93701e+00_rb,0.80427e+00_rb,0.67151e+00_rb,0.56892e+00_rb, &\n        & 0.58963e+00_rb,0.70431e+00_rb,0.81667e+00_rb,0.93800e+00_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.10434e+01_rb,0.91377e+00_rb,0.78415e+00_rb,0.65453e+00_rb,0.55082e+00_rb, &\n        & 0.57510e+00_rb,0.68668e+00_rb,0.79542e+00_rb,0.91311e+00_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.10167e+01_rb,0.89033e+00_rb,0.76393e+00_rb,0.63753e+00_rb,0.53477e+00_rb, &\n        & 0.56392e+00_rb,0.67291e+00_rb,0.77892e+00_rb,0.89383e+00_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.99271e+00_rb,0.86922e+00_rb,0.74573e+00_rb,0.62224e+00_rb,0.52129e+00_rb, &\n        & 0.55503e+00_rb,0.66157e+00_rb,0.76538e+00_rb,0.87797e+00_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.12165e+01_rb,0.10653e+01_rb,0.91421e+00_rb,0.76309e+00_rb,0.68684e+00_rb, &\n        & 0.72751e+00_rb,0.87072e+00_rb,0.10104e+01_rb,0.11626e+01_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.11851e+01_rb,0.10377e+01_rb,0.89038e+00_rb,0.74302e+00_rb,0.66078e+00_rb, &\n        & 0.70740e+00_rb,0.84652e+00_rb,0.98180e+00_rb,0.11298e+01_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.11540e+01_rb,0.10104e+01_rb,0.86680e+00_rb,0.72322e+00_rb,0.63673e+00_rb, &\n        & 0.69046e+00_rb,0.82558e+00_rb,0.95705e+00_rb,0.11007e+01_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.11233e+01_rb,0.98347e+00_rb,0.84364e+00_rb,0.70381e+00_rb,0.61623e+00_rb, &\n        & 0.67656e+00_rb,0.80855e+00_rb,0.93682e+00_rb,0.10775e+01_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.10954e+01_rb,0.95895e+00_rb,0.82254e+00_rb,0.68614e+00_rb,0.59850e+00_rb, &\n        & 0.66513e+00_rb,0.79440e+00_rb,0.92006e+00_rb,0.10579e+01_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.13516e+01_rb,0.11834e+01_rb,0.10152e+01_rb,0.84752e+00_rb,0.80189e+00_rb, &\n        & 0.86751e+00_rb,0.10388e+01_rb,0.12059e+01_rb,0.13885e+01_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.13129e+01_rb,0.11495e+01_rb,0.98601e+00_rb,0.82254e+00_rb,0.76801e+00_rb, &\n        & 0.84476e+00_rb,0.10112e+01_rb,0.11733e+01_rb,0.13510e+01_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.12754e+01_rb,0.11166e+01_rb,0.95771e+00_rb,0.79885e+00_rb,0.73832e+00_rb, &\n        & 0.82499e+00_rb,0.98705e+00_rb,0.11448e+01_rb,0.13179e+01_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.12391e+01_rb,0.10847e+01_rb,0.93032e+00_rb,0.77593e+00_rb,0.71267e+00_rb, &\n        & 0.80837e+00_rb,0.96685e+00_rb,0.11210e+01_rb,0.12906e+01_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.12065e+01_rb,0.10561e+01_rb,0.90576e+00_rb,0.75539e+00_rb,0.69035e+00_rb, &\n        & 0.79409e+00_rb,0.94938e+00_rb,0.11005e+01_rb,0.12668e+01_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.14988e+01_rb,0.13122e+01_rb,0.11257e+01_rb,0.95045e+00_rb,0.92736e+00_rb, &\n        & 0.10268e+01_rb,0.12293e+01_rb,0.14274e+01_rb,0.16436e+01_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.14532e+01_rb,0.12722e+01_rb,0.10913e+01_rb,0.91652e+00_rb,0.88763e+00_rb, &\n        & 0.10018e+01_rb,0.11994e+01_rb,0.13921e+01_rb,0.16030e+01_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.14089e+01_rb,0.12334e+01_rb,0.10579e+01_rb,0.88636e+00_rb,0.85277e+00_rb, &\n        & 0.97910e+00_rb,0.11719e+01_rb,0.13598e+01_rb,0.15656e+01_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.13671e+01_rb,0.11967e+01_rb,0.10263e+01_rb,0.85849e+00_rb,0.82373e+00_rb, &\n        & 0.95955e+00_rb,0.11482e+01_rb,0.13320e+01_rb,0.15338e+01_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.13292e+01_rb,0.11635e+01_rb,0.99774e+00_rb,0.83411e+00_rb,0.79958e+00_rb, &\n        & 0.94221e+00_rb,0.11271e+01_rb,0.13073e+01_rb,0.15052e+01_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.16562e+01_rb,0.14500e+01_rb,0.12437e+01_rb,0.10742e+01_rb,0.10651e+01_rb, &\n        & 0.12070e+01_rb,0.14445e+01_rb,0.16775e+01_rb,0.19311e+01_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.16034e+01_rb,0.14036e+01_rb,0.12039e+01_rb,0.10312e+01_rb,0.10206e+01_rb, &\n        & 0.11791e+01_rb,0.14116e+01_rb,0.16391e+01_rb,0.18869e+01_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.15525e+01_rb,0.13590e+01_rb,0.11655e+01_rb,0.99233e+00_rb,0.98476e+00_rb, &\n        & 0.11530e+01_rb,0.13804e+01_rb,0.16026e+01_rb,0.18449e+01_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.15047e+01_rb,0.13171e+01_rb,0.11295e+01_rb,0.95737e+00_rb,0.95592e+00_rb, &\n        & 0.11301e+01_rb,0.13529e+01_rb,0.15703e+01_rb,0.18077e+01_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.14611e+01_rb,0.12789e+01_rb,0.10967e+01_rb,0.92635e+00_rb,0.93256e+00_rb, &\n        & 0.11088e+01_rb,0.13272e+01_rb,0.15403e+01_rb,0.17730e+01_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.18225e+01_rb,0.15953e+01_rb,0.13682e+01_rb,0.12131e+01_rb,0.12195e+01_rb, &\n        & 0.14041e+01_rb,0.16789e+01_rb,0.19504e+01_rb,0.22442e+01_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.17586e+01_rb,0.15393e+01_rb,0.13201e+01_rb,0.11608e+01_rb,0.11760e+01_rb, &\n        & 0.13729e+01_rb,0.16424e+01_rb,0.19078e+01_rb,0.21951e+01_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.16992e+01_rb,0.14873e+01_rb,0.12754e+01_rb,0.11134e+01_rb,0.11408e+01_rb, &\n        & 0.13430e+01_rb,0.16073e+01_rb,0.18666e+01_rb,0.21480e+01_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.16453e+01_rb,0.14401e+01_rb,0.12349e+01_rb,0.10705e+01_rb,0.11101e+01_rb, &\n        & 0.13157e+01_rb,0.15751e+01_rb,0.18293e+01_rb,0.21045e+01_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.15976e+01_rb,0.13983e+01_rb,0.11990e+01_rb,0.10350e+01_rb,0.10845e+01_rb, &\n        & 0.12900e+01_rb,0.15444e+01_rb,0.17936e+01_rb,0.20634e+01_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.19716e+01_rb,0.17256e+01_rb,0.14797e+01_rb,0.13408e+01_rb,0.13798e+01_rb, &\n        & 0.16011e+01_rb,0.19108e+01_rb,0.22209e+01_rb,0.25534e+01_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.18980e+01_rb,0.16613e+01_rb,0.14245e+01_rb,0.12841e+01_rb,0.13393e+01_rb, &\n        & 0.15661e+01_rb,0.18703e+01_rb,0.21736e+01_rb,0.24991e+01_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.18334e+01_rb,0.16046e+01_rb,0.13758e+01_rb,0.12346e+01_rb,0.13019e+01_rb, &\n        & 0.15332e+01_rb,0.18320e+01_rb,0.21288e+01_rb,0.24477e+01_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.17833e+01_rb,0.15608e+01_rb,0.13382e+01_rb,0.11928e+01_rb,0.12697e+01_rb, &\n        & 0.15019e+01_rb,0.17959e+01_rb,0.20867e+01_rb,0.23990e+01_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.17385e+01_rb,0.15215e+01_rb,0.13045e+01_rb,0.11584e+01_rb,0.12412e+01_rb, &\n        & 0.14723e+01_rb,0.17610e+01_rb,0.20462e+01_rb,0.23526e+01_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.21322e+01_rb,0.18661e+01_rb,0.16009e+01_rb,0.14913e+01_rb,0.15626e+01_rb, &\n        & 0.18065e+01_rb,0.21498e+01_rb,0.24997e+01_rb,0.28719e+01_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.20605e+01_rb,0.18033e+01_rb,0.15462e+01_rb,0.14346e+01_rb,0.15183e+01_rb, &\n        & 0.17679e+01_rb,0.21055e+01_rb,0.24481e+01_rb,0.28126e+01_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.20007e+01_rb,0.17509e+01_rb,0.15011e+01_rb,0.13841e+01_rb,0.14777e+01_rb, &\n        & 0.17312e+01_rb,0.20634e+01_rb,0.23990e+01_rb,0.27564e+01_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.19501e+01_rb,0.17066e+01_rb,0.14631e+01_rb,0.13415e+01_rb,0.14420e+01_rb, &\n        & 0.16956e+01_rb,0.20218e+01_rb,0.23506e+01_rb,0.27007e+01_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.19023e+01_rb,0.16648e+01_rb,0.14272e+01_rb,0.13048e+01_rb,0.14093e+01_rb, &\n        & 0.16619e+01_rb,0.19834e+01_rb,0.23060e+01_rb,0.26492e+01_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.23283e+01_rb,0.20376e+01_rb,0.17570e+01_rb,0.16678e+01_rb,0.17574e+01_rb, &\n        & 0.20182e+01_rb,0.23943e+01_rb,0.27850e+01_rb,0.31979e+01_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.22552e+01_rb,0.19735e+01_rb,0.16974e+01_rb,0.16068e+01_rb,0.17079e+01_rb, &\n        & 0.19757e+01_rb,0.23460e+01_rb,0.27289e+01_rb,0.31334e+01_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.21945e+01_rb,0.19204e+01_rb,0.16488e+01_rb,0.15544e+01_rb,0.16639e+01_rb, &\n        & 0.19336e+01_rb,0.22972e+01_rb,0.26723e+01_rb,0.30681e+01_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.21377e+01_rb,0.18706e+01_rb,0.16045e+01_rb,0.15082e+01_rb,0.16235e+01_rb, &\n        & 0.18922e+01_rb,0.22504e+01_rb,0.26179e+01_rb,0.30055e+01_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.20822e+01_rb,0.18221e+01_rb,0.15623e+01_rb,0.14670e+01_rb,0.15845e+01_rb, &\n        & 0.18531e+01_rb,0.22061e+01_rb,0.25663e+01_rb,0.29464e+01_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.84891e+00_rb,0.74682e+00_rb,0.64540e+00_rb,0.54510e+00_rb,0.44671e+00_rb, &\n        & 0.34895e+00_rb,0.38105e+00_rb,0.44177e+00_rb,0.47725e+00_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.82292e+00_rb,0.72425e+00_rb,0.62615e+00_rb,0.52904e+00_rb,0.43334e+00_rb, &\n        & 0.33791e+00_rb,0.37758e+00_rb,0.43769e+00_rb,0.47292e+00_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.79766e+00_rb,0.70221e+00_rb,0.60725e+00_rb,0.51315e+00_rb,0.42001e+00_rb, &\n        & 0.32708e+00_rb,0.37351e+00_rb,0.43297e+00_rb,0.46789e+00_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.77341e+00_rb,0.68098e+00_rb,0.58899e+00_rb,0.49774e+00_rb,0.40711e+00_rb, &\n        & 0.31834e+00_rb,0.36899e+00_rb,0.42775e+00_rb,0.46227e+00_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.74989e+00_rb,0.66035e+00_rb,0.57119e+00_rb,0.48264e+00_rb,0.39437e+00_rb, &\n        & 0.32430e+00_rb,0.36416e+00_rb,0.42216e+00_rb,0.45636e+00_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.98489e+00_rb,0.86457e+00_rb,0.74461e+00_rb,0.62525e+00_rb,0.50699e+00_rb, &\n        & 0.39502e+00_rb,0.46270e+00_rb,0.53626e+00_rb,0.59246e+00_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.95110e+00_rb,0.83523e+00_rb,0.71967e+00_rb,0.60464e+00_rb,0.49055e+00_rb, &\n        & 0.38714e+00_rb,0.45775e+00_rb,0.53066e+00_rb,0.58669e+00_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.91868e+00_rb,0.80699e+00_rb,0.69557e+00_rb,0.58461e+00_rb,0.47447e+00_rb, &\n        & 0.38030e+00_rb,0.45287e+00_rb,0.52498e+00_rb,0.58057e+00_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.88783e+00_rb,0.78006e+00_rb,0.67253e+00_rb,0.56540e+00_rb,0.45894e+00_rb, &\n        & 0.37426e+00_rb,0.44739e+00_rb,0.51869e+00_rb,0.57355e+00_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.85824e+00_rb,0.75420e+00_rb,0.65037e+00_rb,0.54691e+00_rb,0.44407e+00_rb, &\n        & 0.37572e+00_rb,0.44151e+00_rb,0.51192e+00_rb,0.56619e+00_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.11382e+01_rb,0.99791e+00_rb,0.85785e+00_rb,0.71816e+00_rb,0.57913e+00_rb, &\n        & 0.47378e+00_rb,0.56732e+00_rb,0.65745e+00_rb,0.74321e+00_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.10944e+01_rb,0.95984e+00_rb,0.82550e+00_rb,0.69149e+00_rb,0.55807e+00_rb, &\n        & 0.46534e+00_rb,0.55716e+00_rb,0.64588e+00_rb,0.73020e+00_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.10534e+01_rb,0.92416e+00_rb,0.79509e+00_rb,0.66633e+00_rb,0.53808e+00_rb, &\n        & 0.45863e+00_rb,0.54915e+00_rb,0.63663e+00_rb,0.71995e+00_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.10141e+01_rb,0.88986e+00_rb,0.76582e+00_rb,0.64206e+00_rb,0.51870e+00_rb, &\n        & 0.45265e+00_rb,0.54212e+00_rb,0.62853e+00_rb,0.71089e+00_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.97757e+00_rb,0.85802e+00_rb,0.73862e+00_rb,0.61943e+00_rb,0.50068e+00_rb, &\n        & 0.44732e+00_rb,0.53486e+00_rb,0.62017e+00_rb,0.70154e+00_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.13027e+01_rb,0.11412e+01_rb,0.97988e+00_rb,0.81881e+00_rb,0.65819e+00_rb, &\n        & 0.58495e+00_rb,0.70040e+00_rb,0.81176e+00_rb,0.92845e+00_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.12473e+01_rb,0.10931e+01_rb,0.93894e+00_rb,0.78506e+00_rb,0.63160e+00_rb, &\n        & 0.57073e+00_rb,0.68340e+00_rb,0.79216e+00_rb,0.90610e+00_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.11956e+01_rb,0.10481e+01_rb,0.90063e+00_rb,0.75344e+00_rb,0.60663e+00_rb, &\n        & 0.55958e+00_rb,0.67003e+00_rb,0.77669e+00_rb,0.88836e+00_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.11480e+01_rb,0.10066e+01_rb,0.86532e+00_rb,0.72426e+00_rb,0.58351e+00_rb, &\n        & 0.54965e+00_rb,0.65819e+00_rb,0.76307e+00_rb,0.87291e+00_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.11042e+01_rb,0.96837e+00_rb,0.83267e+00_rb,0.69709e+00_rb,0.56180e+00_rb, &\n        & 0.54039e+00_rb,0.64710e+00_rb,0.75045e+00_rb,0.85825e+00_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.14755e+01_rb,0.12919e+01_rb,0.11084e+01_rb,0.92503e+00_rb,0.74199e+00_rb, &\n        & 0.72656e+00_rb,0.86992e+00_rb,0.10084e+01_rb,0.11593e+01_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.14077e+01_rb,0.12330e+01_rb,0.10584e+01_rb,0.88396e+00_rb,0.70985e+00_rb, &\n        & 0.70337e+00_rb,0.84221e+00_rb,0.97628e+00_rb,0.11223e+01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.13473e+01_rb,0.11805e+01_rb,0.10138e+01_rb,0.84723e+00_rb,0.68084e+00_rb, &\n        & 0.68573e+00_rb,0.82117e+00_rb,0.95190e+00_rb,0.10943e+01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.12931e+01_rb,0.11332e+01_rb,0.97336e+00_rb,0.81358e+00_rb,0.65399e+00_rb, &\n        & 0.67083e+00_rb,0.80321e+00_rb,0.93120e+00_rb,0.10704e+01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.12425e+01_rb,0.10889e+01_rb,0.93535e+00_rb,0.78185e+00_rb,0.62849e+00_rb, &\n        & 0.65706e+00_rb,0.78689e+00_rb,0.91252e+00_rb,0.10486e+01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.16632e+01_rb,0.14561e+01_rb,0.12491e+01_rb,0.10422e+01_rb,0.83545e+00_rb, &\n        & 0.90592e+00_rb,0.10850e+01_rb,0.12579e+01_rb,0.14491e+01_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.15885e+01_rb,0.13911e+01_rb,0.11938e+01_rb,0.99649e+00_rb,0.79932e+00_rb, &\n        & 0.87105e+00_rb,0.10430e+01_rb,0.12092e+01_rb,0.13933e+01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.15219e+01_rb,0.13330e+01_rb,0.11441e+01_rb,0.95525e+00_rb,0.76651e+00_rb, &\n        & 0.84460e+00_rb,0.10114e+01_rb,0.11726e+01_rb,0.13510e+01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.14602e+01_rb,0.12790e+01_rb,0.10978e+01_rb,0.91668e+00_rb,0.73549e+00_rb, &\n        & 0.82233e+00_rb,0.98468e+00_rb,0.11417e+01_rb,0.13152e+01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.14027e+01_rb,0.12286e+01_rb,0.10546e+01_rb,0.88053e+00_rb,0.70846e+00_rb, &\n        & 0.80220e+00_rb,0.96072e+00_rb,0.11140e+01_rb,0.12832e+01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.18802e+01_rb,0.16460e+01_rb,0.14119e+01_rb,0.11779e+01_rb,0.95036e+00_rb, &\n        & 0.11297e+01_rb,0.13528e+01_rb,0.15688e+01_rb,0.18094e+01_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.17989e+01_rb,0.15751e+01_rb,0.13512e+01_rb,0.11274e+01_rb,0.91055e+00_rb, &\n        & 0.10797e+01_rb,0.12930e+01_rb,0.14993e+01_rb,0.17294e+01_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.17245e+01_rb,0.15100e+01_rb,0.12954e+01_rb,0.10809e+01_rb,0.87508e+00_rb, &\n        & 0.10422e+01_rb,0.12481e+01_rb,0.14473e+01_rb,0.16693e+01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.16543e+01_rb,0.14485e+01_rb,0.12427e+01_rb,0.10370e+01_rb,0.84724e+00_rb, &\n        & 0.10105e+01_rb,0.12102e+01_rb,0.14035e+01_rb,0.16185e+01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.15884e+01_rb,0.13908e+01_rb,0.11932e+01_rb,0.99569e+00_rb,0.82331e+00_rb, &\n        & 0.98227e+00_rb,0.11764e+01_rb,0.13643e+01_rb,0.15734e+01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.21327e+01_rb,0.18670e+01_rb,0.16012e+01_rb,0.13355e+01_rb,0.11430e+01_rb, &\n        & 0.14062e+01_rb,0.16843e+01_rb,0.19535e+01_rb,0.22540e+01_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.20434e+01_rb,0.17888e+01_rb,0.15342e+01_rb,0.12796e+01_rb,0.10891e+01_rb, &\n        & 0.13377e+01_rb,0.16020e+01_rb,0.18582e+01_rb,0.21442e+01_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.19592e+01_rb,0.17151e+01_rb,0.14711e+01_rb,0.12270e+01_rb,0.10443e+01_rb, &\n        & 0.12854e+01_rb,0.15395e+01_rb,0.17855e+01_rb,0.20605e+01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.18795e+01_rb,0.16454e+01_rb,0.14112e+01_rb,0.11771e+01_rb,0.10093e+01_rb, &\n        & 0.12418e+01_rb,0.14873e+01_rb,0.17251e+01_rb,0.19905e+01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.18040e+01_rb,0.15793e+01_rb,0.13546e+01_rb,0.11298e+01_rb,0.97893e+00_rb, &\n        & 0.12029e+01_rb,0.14409e+01_rb,0.16715e+01_rb,0.19284e+01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.24263e+01_rb,0.21237e+01_rb,0.18212e+01_rb,0.15186e+01_rb,0.14038e+01_rb, &\n        & 0.17468e+01_rb,0.20923e+01_rb,0.24275e+01_rb,0.28010e+01_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.23266e+01_rb,0.20365e+01_rb,0.17464e+01_rb,0.14563e+01_rb,0.13334e+01_rb, &\n        & 0.16567e+01_rb,0.19843e+01_rb,0.23023e+01_rb,0.26565e+01_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.22311e+01_rb,0.19529e+01_rb,0.16747e+01_rb,0.13965e+01_rb,0.12741e+01_rb, &\n        & 0.15855e+01_rb,0.18989e+01_rb,0.22031e+01_rb,0.25421e+01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.21400e+01_rb,0.18731e+01_rb,0.16063e+01_rb,0.13394e+01_rb,0.12261e+01_rb, &\n        & 0.15261e+01_rb,0.18280e+01_rb,0.21210e+01_rb,0.24473e+01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.20537e+01_rb,0.17976e+01_rb,0.15415e+01_rb,0.12854e+01_rb,0.11844e+01_rb, &\n        & 0.14739e+01_rb,0.17653e+01_rb,0.20482e+01_rb,0.23631e+01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.27556e+01_rb,0.24117e+01_rb,0.20679e+01_rb,0.17241e+01_rb,0.17250e+01_rb, &\n        & 0.21531e+01_rb,0.25793e+01_rb,0.29930e+01_rb,0.34529e+01_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.26436e+01_rb,0.23137e+01_rb,0.19838e+01_rb,0.16540e+01_rb,0.16343e+01_rb, &\n        & 0.20375e+01_rb,0.24406e+01_rb,0.28326e+01_rb,0.32672e+01_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.25350e+01_rb,0.22187e+01_rb,0.19024e+01_rb,0.15861e+01_rb,0.15582e+01_rb, &\n        & 0.19443e+01_rb,0.23290e+01_rb,0.27026e+01_rb,0.31178e+01_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.24300e+01_rb,0.21267e+01_rb,0.18235e+01_rb,0.15203e+01_rb,0.14955e+01_rb, &\n        & 0.18662e+01_rb,0.22353e+01_rb,0.25942e+01_rb,0.29924e+01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.23355e+01_rb,0.20440e+01_rb,0.17526e+01_rb,0.14611e+01_rb,0.14399e+01_rb, &\n        & 0.17966e+01_rb,0.21521e+01_rb,0.24975e+01_rb,0.28809e+01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.30736e+01_rb,0.26899e+01_rb,0.23062e+01_rb,0.19287e+01_rb,0.20594e+01_rb, &\n        & 0.25707e+01_rb,0.30796e+01_rb,0.35755e+01_rb,0.41218e+01_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.29458e+01_rb,0.25780e+01_rb,0.22102e+01_rb,0.18490e+01_rb,0.19506e+01_rb, &\n        & 0.24353e+01_rb,0.29176e+01_rb,0.33867e+01_rb,0.39048e+01_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.28287e+01_rb,0.24755e+01_rb,0.21223e+01_rb,0.17723e+01_rb,0.18621e+01_rb, &\n        & 0.23252e+01_rb,0.27855e+01_rb,0.32334e+01_rb,0.37281e+01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.27181e+01_rb,0.23787e+01_rb,0.20393e+01_rb,0.17010e+01_rb,0.17848e+01_rb, &\n        & 0.22284e+01_rb,0.26698e+01_rb,0.30991e+01_rb,0.35730e+01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.26214e+01_rb,0.22941e+01_rb,0.19667e+01_rb,0.16394e+01_rb,0.17149e+01_rb, &\n        & 0.21409e+01_rb,0.25649e+01_rb,0.29778e+01_rb,0.34326e+01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.34457e+01_rb,0.30154e+01_rb,0.25850e+01_rb,0.22002e+01_rb,0.24421e+01_rb, &\n        & 0.30491e+01_rb,0.36532e+01_rb,0.42422e+01_rb,0.48881e+01_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.33132e+01_rb,0.28993e+01_rb,0.24855e+01_rb,0.21037e+01_rb,0.23175e+01_rb, &\n        & 0.28938e+01_rb,0.34673e+01_rb,0.40262e+01_rb,0.46397e+01_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.31843e+01_rb,0.27866e+01_rb,0.23888e+01_rb,0.20132e+01_rb,0.22107e+01_rb, &\n        & 0.27603e+01_rb,0.33070e+01_rb,0.38403e+01_rb,0.44248e+01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.30610e+01_rb,0.26787e+01_rb,0.22963e+01_rb,0.19289e+01_rb,0.21145e+01_rb, &\n        & 0.26402e+01_rb,0.31632e+01_rb,0.36735e+01_rb,0.42326e+01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.29533e+01_rb,0.25844e+01_rb,0.22155e+01_rb,0.18569e+01_rb,0.20264e+01_rb, &\n        & 0.25300e+01_rb,0.30314e+01_rb,0.35205e+01_rb,0.40560e+01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.38898e+01_rb,0.34039e+01_rb,0.29179e+01_rb,0.25320e+01_rb,0.28809e+01_rb, &\n        & 0.35965e+01_rb,0.43091e+01_rb,0.50055e+01_rb,0.57650e+01_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.37371e+01_rb,0.32702e+01_rb,0.28033e+01_rb,0.24146e+01_rb,0.27330e+01_rb, &\n        & 0.34120e+01_rb,0.40886e+01_rb,0.47494e+01_rb,0.54692e+01_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.35846e+01_rb,0.31367e+01_rb,0.26889e+01_rb,0.23047e+01_rb,0.26019e+01_rb, &\n        & 0.32482e+01_rb,0.38921e+01_rb,0.45212e+01_rb,0.52066e+01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.34450e+01_rb,0.30146e+01_rb,0.25842e+01_rb,0.22048e+01_rb,0.24829e+01_rb, &\n        & 0.31006e+01_rb,0.37153e+01_rb,0.43162e+01_rb,0.49694e+01_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.33226e+01_rb,0.29075e+01_rb,0.24923e+01_rb,0.21144e+01_rb,0.23741e+01_rb, &\n        & 0.29651e+01_rb,0.35532e+01_rb,0.41282e+01_rb,0.47532e+01_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.78344e-03_rb,0.81478e-03_rb,0.83713e-03_rb,0.85265e-03_rb,0.85991e-03_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.65374e-03_rb,0.67963e-03_rb,0.69840e-03_rb,0.71131e-03_rb,0.71719e-03_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.55587e-03_rb,0.57751e-03_rb,0.59343e-03_rb,0.60410e-03_rb,0.60993e-03_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.48145e-03_rb,0.49780e-03_rb,0.51251e-03_rb,0.52093e-03_rb,0.52706e-03_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.42610e-03_rb,0.43577e-03_rb,0.44892e-03_rb,0.45812e-03_rb,0.46352e-03_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.38503e-03_rb,0.38849e-03_rb,0.40094e-03_rb,0.41067e-03_rb,0.41529e-03_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.35025e-03_rb,0.34902e-03_rb,0.35803e-03_rb,0.36759e-03_rb,0.37429e-03_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.30557e-03_rb,0.30381e-03_rb,0.30983e-03_rb,0.31782e-03_rb,0.32429e-03_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.26346e-03_rb,0.26127e-03_rb,0.26616e-03_rb,0.27270e-03_rb,0.27830e-03_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.22630e-03_rb,0.22463e-03_rb,0.22867e-03_rb,0.23419e-03_rb,0.23829e-03_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.19498e-03_rb,0.19376e-03_rb,0.19644e-03_rb,0.20096e-03_rb,0.20404e-03_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.16839e-03_rb,0.16687e-03_rb,0.16820e-03_rb,0.17215e-03_rb,0.17490e-03_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.14494e-03_rb,0.14347e-03_rb,0.14334e-03_rb,0.14728e-03_rb,0.14954e-03_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.12363e-03_rb,0.12241e-03_rb,0.12233e-03_rb,0.12518e-03_rb,0.12767e-03_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.10560e-03_rb,0.10482e-03_rb,0.10446e-03_rb,0.10681e-03_rb,0.10897e-03_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.90453e-04_rb,0.89921e-04_rb,0.89199e-04_rb,0.91278e-04_rb,0.93235e-04_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.77854e-04_rb,0.77467e-04_rb,0.76947e-04_rb,0.77977e-04_rb,0.79713e-04_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.67346e-04_rb,0.67074e-04_rb,0.66981e-04_rb,0.67340e-04_rb,0.68453e-04_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.58739e-04_rb,0.58583e-04_rb,0.58517e-04_rb,0.58421e-04_rb,0.59277e-04_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.51671e-04_rb,0.51476e-04_rb,0.51254e-04_rb,0.51199e-04_rb,0.51510e-04_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.45523e-04_rb,0.45406e-04_rb,0.45028e-04_rb,0.44849e-04_rb,0.44977e-04_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.40256e-04_rb,0.40062e-04_rb,0.39751e-04_rb,0.39416e-04_rb,0.39181e-04_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.35762e-04_rb,0.35429e-04_rb,0.35245e-04_rb,0.34916e-04_rb,0.34484e-04_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.31776e-04_rb,0.31666e-04_rb,0.31200e-04_rb,0.31013e-04_rb,0.30768e-04_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.26934e-04_rb,0.26971e-04_rb,0.26615e-04_rb,0.26355e-04_rb,0.26214e-04_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.22652e-04_rb,0.22874e-04_rb,0.22686e-04_rb,0.22466e-04_rb,0.22266e-04_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.18970e-04_rb,0.19273e-04_rb,0.19385e-04_rb,0.19198e-04_rb,0.19016e-04_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.15533e-04_rb,0.15831e-04_rb,0.15964e-04_rb,0.15836e-04_rb,0.15700e-04_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.12668e-04_rb,0.12826e-04_rb,0.12999e-04_rb,0.13018e-04_rb,0.12872e-04_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.10356e-04_rb,0.10475e-04_rb,0.10620e-04_rb,0.10666e-04_rb,0.10580e-04_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.83551e-05_rb,0.84490e-05_rb,0.85217e-05_rb,0.86140e-05_rb,0.86044e-05_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.66829e-05_rb,0.68022e-05_rb,0.68791e-05_rb,0.69429e-05_rb,0.69314e-05_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.53860e-05_rb,0.54494e-05_rb,0.55341e-05_rb,0.55544e-05_rb,0.55761e-05_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.43207e-05_rb,0.43601e-05_rb,0.44477e-05_rb,0.44761e-05_rb,0.44727e-05_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.34852e-05_rb,0.34924e-05_rb,0.35555e-05_rb,0.35928e-05_rb,0.35957e-05_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.27913e-05_rb,0.28024e-05_rb,0.28395e-05_rb,0.28713e-05_rb,0.28836e-05_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.22267e-05_rb,0.22549e-05_rb,0.22736e-05_rb,0.22769e-05_rb,0.23083e-05_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.17814e-05_rb,0.18056e-05_rb,0.18272e-05_rb,0.18178e-05_rb,0.18340e-05_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.14202e-05_rb,0.14390e-05_rb,0.14605e-05_rb,0.14515e-05_rb,0.14607e-05_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.11328e-05_rb,0.11511e-05_rb,0.11629e-05_rb,0.11627e-05_rb,0.11618e-05_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.90478e-06_rb,0.91291e-06_rb,0.92251e-06_rb,0.92910e-06_rb,0.92898e-06_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.71737e-06_rb,0.72444e-06_rb,0.73271e-06_rb,0.73646e-06_rb,0.74079e-06_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.56522e-06_rb,0.57444e-06_rb,0.57690e-06_rb,0.58444e-06_rb,0.59006e-06_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.44522e-06_rb,0.45152e-06_rb,0.45592e-06_rb,0.46208e-06_rb,0.46721e-06_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.35045e-06_rb,0.35432e-06_rb,0.36035e-06_rb,0.36444e-06_rb,0.36942e-06_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.27513e-06_rb,0.27793e-06_rb,0.28330e-06_rb,0.28729e-06_rb,0.29229e-06_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.21608e-06_rb,0.21966e-06_rb,0.22301e-06_rb,0.22740e-06_rb,0.23129e-06_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.41669e-02_rb,0.42141e-02_rb,0.42434e-02_rb,0.42683e-02_rb,0.42755e-02_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.34875e-02_rb,0.35201e-02_rb,0.35377e-02_rb,0.35547e-02_rb,0.35629e-02_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.29417e-02_rb,0.29682e-02_rb,0.29797e-02_rb,0.29877e-02_rb,0.29948e-02_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.25072e-02_rb,0.25337e-02_rb,0.25373e-02_rb,0.25423e-02_rb,0.25464e-02_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.21640e-02_rb,0.21948e-02_rb,0.21974e-02_rb,0.21951e-02_rb,0.21930e-02_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.18910e-02_rb,0.19229e-02_rb,0.19301e-02_rb,0.19201e-02_rb,0.19153e-02_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.16495e-02_rb,0.16848e-02_rb,0.16944e-02_rb,0.16885e-02_rb,0.16779e-02_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.14018e-02_rb,0.14333e-02_rb,0.14424e-02_rb,0.14394e-02_rb,0.14287e-02_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.11832e-02_rb,0.12125e-02_rb,0.12189e-02_rb,0.12151e-02_rb,0.12082e-02_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.99669e-03_rb,0.10233e-02_rb,0.10268e-02_rb,0.10250e-02_rb,0.10191e-02_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.83734e-03_rb,0.86220e-03_rb,0.86642e-03_rb,0.86487e-03_rb,0.86054e-03_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.70349e-03_rb,0.72654e-03_rb,0.73243e-03_rb,0.73077e-03_rb,0.72754e-03_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.59070e-03_rb,0.61044e-03_rb,0.61929e-03_rb,0.61773e-03_rb,0.61583e-03_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.49716e-03_rb,0.51139e-03_rb,0.52115e-03_rb,0.52139e-03_rb,0.52023e-03_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.41822e-03_rb,0.42737e-03_rb,0.43808e-03_rb,0.43978e-03_rb,0.43884e-03_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.35061e-03_rb,0.35848e-03_rb,0.36841e-03_rb,0.37095e-03_rb,0.37053e-03_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.29391e-03_rb,0.30227e-03_rb,0.30912e-03_rb,0.31376e-03_rb,0.31382e-03_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.24878e-03_rb,0.25551e-03_rb,0.25990e-03_rb,0.26493e-03_rb,0.26717e-03_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.21146e-03_rb,0.21606e-03_rb,0.21973e-03_rb,0.22385e-03_rb,0.22711e-03_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.17989e-03_rb,0.18248e-03_rb,0.18678e-03_rb,0.18914e-03_rb,0.19265e-03_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.15377e-03_rb,0.15569e-03_rb,0.15798e-03_rb,0.16109e-03_rb,0.16313e-03_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.13129e-03_rb,0.13289e-03_rb,0.13431e-03_rb,0.13679e-03_rb,0.13869e-03_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.11225e-03_rb,0.11370e-03_rb,0.11480e-03_rb,0.11616e-03_rb,0.11774e-03_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.96722e-04_rb,0.97093e-04_rb,0.98641e-04_rb,0.99964e-04_rb,0.10029e-03_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.81278e-04_rb,0.81350e-04_rb,0.82442e-04_rb,0.83555e-04_rb,0.83990e-04_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.68481e-04_rb,0.68398e-04_rb,0.68899e-04_rb,0.69737e-04_rb,0.70187e-04_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.57588e-04_rb,0.57895e-04_rb,0.57814e-04_rb,0.58095e-04_rb,0.58861e-04_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.47541e-04_rb,0.47609e-04_rb,0.47587e-04_rb,0.47727e-04_rb,0.48149e-04_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.39099e-04_rb,0.39119e-04_rb,0.39164e-04_rb,0.39161e-04_rb,0.39530e-04_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.32129e-04_rb,0.32067e-04_rb,0.32113e-04_rb,0.32128e-04_rb,0.32332e-04_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.26339e-04_rb,0.26195e-04_rb,0.26218e-04_rb,0.26313e-04_rb,0.26301e-04_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.21510e-04_rb,0.21341e-04_rb,0.21297e-04_rb,0.21378e-04_rb,0.21395e-04_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.17530e-04_rb,0.17454e-04_rb,0.17341e-04_rb,0.17352e-04_rb,0.17454e-04_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.14267e-04_rb,0.14213e-04_rb,0.14118e-04_rb,0.14076e-04_rb,0.14192e-04_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.11510e-04_rb,0.11593e-04_rb,0.11522e-04_rb,0.11431e-04_rb,0.11494e-04_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.92607e-05_rb,0.93963e-05_rb,0.93931e-05_rb,0.93302e-05_rb,0.93175e-05_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.74566e-05_rb,0.75640e-05_rb,0.76551e-05_rb,0.76195e-05_rb,0.75706e-05_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.60069e-05_rb,0.60789e-05_rb,0.61866e-05_rb,0.62136e-05_rb,0.61878e-05_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.48719e-05_rb,0.49189e-05_rb,0.49852e-05_rb,0.50599e-05_rb,0.50406e-05_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.39542e-05_rb,0.39622e-05_rb,0.40023e-05_rb,0.40853e-05_rb,0.41134e-05_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.31898e-05_rb,0.32108e-05_rb,0.32348e-05_rb,0.32873e-05_rb,0.33341e-05_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.25786e-05_rb,0.26009e-05_rb,0.26192e-05_rb,0.26504e-05_rb,0.26983e-05_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.20942e-05_rb,0.21017e-05_rb,0.21274e-05_rb,0.21442e-05_rb,0.21775e-05_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.16959e-05_rb,0.17018e-05_rb,0.17251e-05_rb,0.17374e-05_rb,0.17575e-05_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.13662e-05_rb,0.13805e-05_rb,0.13926e-05_rb,0.14091e-05_rb,0.14210e-05_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.10989e-05_rb,0.11199e-05_rb,0.11269e-05_rb,0.11436e-05_rb,0.11502e-05_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.88647e-06_rb,0.91054e-06_rb,0.91770e-06_rb,0.92872e-06_rb,0.93619e-06_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.91432e-02_rb,0.90907e-02_rb,0.90565e-02_rb,0.89984e-02_rb,0.89385e-02_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.76455e-02_rb,0.75988e-02_rb,0.75709e-02_rb,0.75150e-02_rb,0.74448e-02_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.64231e-02_rb,0.63826e-02_rb,0.63449e-02_rb,0.62999e-02_rb,0.62412e-02_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.54475e-02_rb,0.53998e-02_rb,0.53630e-02_rb,0.53153e-02_rb,0.52574e-02_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.46876e-02_rb,0.46363e-02_rb,0.45869e-02_rb,0.45398e-02_rb,0.44911e-02_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.40806e-02_rb,0.40265e-02_rb,0.39670e-02_rb,0.39185e-02_rb,0.38714e-02_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.35897e-02_rb,0.35272e-02_rb,0.34695e-02_rb,0.34174e-02_rb,0.33721e-02_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.30557e-02_rb,0.30003e-02_rb,0.29518e-02_rb,0.29027e-02_rb,0.28623e-02_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.25840e-02_rb,0.25346e-02_rb,0.24907e-02_rb,0.24530e-02_rb,0.24134e-02_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.21784e-02_rb,0.21342e-02_rb,0.20972e-02_rb,0.20639e-02_rb,0.20310e-02_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.18415e-02_rb,0.17987e-02_rb,0.17683e-02_rb,0.17405e-02_rb,0.17162e-02_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.15599e-02_rb,0.15210e-02_rb,0.14940e-02_rb,0.14715e-02_rb,0.14516e-02_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.13214e-02_rb,0.12882e-02_rb,0.12631e-02_rb,0.12449e-02_rb,0.12269e-02_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11148e-02_rb,0.10885e-02_rb,0.10663e-02_rb,0.10485e-02_rb,0.10339e-02_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.94180e-03_rb,0.92291e-03_rb,0.90201e-03_rb,0.88582e-03_rb,0.87360e-03_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.79929e-03_rb,0.78315e-03_rb,0.76525e-03_rb,0.75093e-03_rb,0.73943e-03_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.68110e-03_rb,0.66580e-03_rb,0.65234e-03_rb,0.63866e-03_rb,0.62757e-03_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.57975e-03_rb,0.56820e-03_rb,0.55835e-03_rb,0.54581e-03_rb,0.53624e-03_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.49551e-03_rb,0.48804e-03_rb,0.47841e-03_rb,0.46871e-03_rb,0.45833e-03_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.42572e-03_rb,0.42052e-03_rb,0.41099e-03_rb,0.40377e-03_rb,0.39554e-03_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.36528e-03_rb,0.36135e-03_rb,0.35701e-03_rb,0.34948e-03_rb,0.34456e-03_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.31415e-03_rb,0.31283e-03_rb,0.30989e-03_rb,0.30612e-03_rb,0.30054e-03_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.27352e-03_rb,0.27102e-03_rb,0.26979e-03_rb,0.26826e-03_rb,0.26448e-03_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.23967e-03_rb,0.23742e-03_rb,0.23456e-03_rb,0.23474e-03_rb,0.23316e-03_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.20338e-03_rb,0.20142e-03_rb,0.19919e-03_rb,0.19875e-03_rb,0.19818e-03_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.17257e-03_rb,0.17079e-03_rb,0.16890e-03_rb,0.16818e-03_rb,0.16767e-03_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.14733e-03_rb,0.14508e-03_rb,0.14396e-03_rb,0.14263e-03_rb,0.14203e-03_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.12225e-03_rb,0.12069e-03_rb,0.11949e-03_rb,0.11833e-03_rb,0.11808e-03_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.10097e-03_rb,0.10002e-03_rb,0.98765e-04_rb,0.97895e-04_rb,0.97754e-04_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.83346e-04_rb,0.82796e-04_rb,0.81713e-04_rb,0.81007e-04_rb,0.80814e-04_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.68346e-04_rb,0.68043e-04_rb,0.67367e-04_rb,0.66543e-04_rb,0.66059e-04_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.55818e-04_rb,0.55703e-04_rb,0.55284e-04_rb,0.54584e-04_rb,0.54239e-04_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.45332e-04_rb,0.45541e-04_rb,0.45337e-04_rb,0.44929e-04_rb,0.44433e-04_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.36748e-04_rb,0.37223e-04_rb,0.37146e-04_rb,0.36884e-04_rb,0.36439e-04_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.29601e-04_rb,0.30289e-04_rb,0.30405e-04_rb,0.30257e-04_rb,0.29929e-04_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.23826e-04_rb,0.24579e-04_rb,0.24815e-04_rb,0.24762e-04_rb,0.24572e-04_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.19377e-04_rb,0.19814e-04_rb,0.20191e-04_rb,0.20227e-04_rb,0.20080e-04_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.15665e-04_rb,0.15965e-04_rb,0.16366e-04_rb,0.16467e-04_rb,0.16386e-04_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.12631e-04_rb,0.12915e-04_rb,0.13203e-04_rb,0.13389e-04_rb,0.13403e-04_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.10160e-04_rb,0.10402e-04_rb,0.10609e-04_rb,0.10858e-04_rb,0.10900e-04_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.81514e-05_rb,0.83717e-05_rb,0.85717e-05_rb,0.87255e-05_rb,0.88490e-05_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.65924e-05_rb,0.67623e-05_rb,0.69218e-05_rb,0.70363e-05_rb,0.71744e-05_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.53378e-05_rb,0.54823e-05_rb,0.56002e-05_rb,0.57079e-05_rb,0.58136e-05_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.43093e-05_rb,0.44306e-05_rb,0.45341e-05_rb,0.46443e-05_rb,0.47053e-05_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.34880e-05_rb,0.35826e-05_rb,0.36738e-05_rb,0.37492e-05_rb,0.38094e-05_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.28214e-05_rb,0.28911e-05_rb,0.29636e-05_rb,0.30269e-05_rb,0.30943e-05_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.23049e-05_rb,0.23610e-05_rb,0.24232e-05_rb,0.24708e-05_rb,0.25266e-05_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.16886e-01_rb,0.17177e-01_rb,0.17415e-01_rb,0.17613e-01_rb,0.17771e-01_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.14297e-01_rb,0.14572e-01_rb,0.14791e-01_rb,0.14925e-01_rb,0.15051e-01_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.12142e-01_rb,0.12342e-01_rb,0.12507e-01_rb,0.12640e-01_rb,0.12754e-01_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.10284e-01_rb,0.10422e-01_rb,0.10545e-01_rb,0.10662e-01_rb,0.10740e-01_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.87377e-02_rb,0.88415e-02_rb,0.89329e-02_rb,0.90175e-02_rb,0.90716e-02_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.74766e-02_rb,0.75366e-02_rb,0.76038e-02_rb,0.76818e-02_rb,0.77135e-02_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.64241e-02_rb,0.64546e-02_rb,0.65027e-02_rb,0.65449e-02_rb,0.65755e-02_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.54390e-02_rb,0.54528e-02_rb,0.54854e-02_rb,0.55046e-02_rb,0.55309e-02_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.45856e-02_rb,0.45888e-02_rb,0.46080e-02_rb,0.46219e-02_rb,0.46381e-02_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.38581e-02_rb,0.38555e-02_rb,0.38631e-02_rb,0.38756e-02_rb,0.38888e-02_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.32522e-02_rb,0.32442e-02_rb,0.32437e-02_rb,0.32522e-02_rb,0.32616e-02_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.27421e-02_rb,0.27302e-02_rb,0.27267e-02_rb,0.27311e-02_rb,0.27351e-02_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.23082e-02_rb,0.22984e-02_rb,0.22916e-02_rb,0.22928e-02_rb,0.22950e-02_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.19386e-02_rb,0.19299e-02_rb,0.19241e-02_rb,0.19234e-02_rb,0.19234e-02_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.16295e-02_rb,0.16227e-02_rb,0.16172e-02_rb,0.16132e-02_rb,0.16138e-02_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.13714e-02_rb,0.13653e-02_rb,0.13589e-02_rb,0.13555e-02_rb,0.13562e-02_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.11583e-02_rb,0.11513e-02_rb,0.11440e-02_rb,0.11416e-02_rb,0.11458e-02_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.98213e-03_rb,0.97362e-03_rb,0.96774e-03_rb,0.96738e-03_rb,0.97898e-03_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.83694e-03_rb,0.82733e-03_rb,0.82506e-03_rb,0.82584e-03_rb,0.83454e-03_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.71631e-03_rb,0.70972e-03_rb,0.70944e-03_rb,0.70782e-03_rb,0.71382e-03_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.62056e-03_rb,0.61607e-03_rb,0.61112e-03_rb,0.60974e-03_rb,0.61416e-03_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.54260e-03_rb,0.53530e-03_rb,0.53018e-03_rb,0.53196e-03_rb,0.53190e-03_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.47557e-03_rb,0.47060e-03_rb,0.46470e-03_rb,0.46463e-03_rb,0.46278e-03_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.42108e-03_rb,0.41716e-03_rb,0.41356e-03_rb,0.41052e-03_rb,0.40671e-03_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.36059e-03_rb,0.35753e-03_rb,0.35465e-03_rb,0.35204e-03_rb,0.34625e-03_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.30926e-03_rb,0.30682e-03_rb,0.30403e-03_rb,0.30126e-03_rb,0.29597e-03_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.26586e-03_rb,0.26397e-03_rb,0.26023e-03_rb,0.25654e-03_rb,0.25399e-03_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.22228e-03_rb,0.22028e-03_rb,0.21711e-03_rb,0.21418e-03_rb,0.21203e-03_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.18516e-03_rb,0.18277e-03_rb,0.18056e-03_rb,0.17797e-03_rb,0.17615e-03_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.15367e-03_rb,0.15191e-03_rb,0.15012e-03_rb,0.14803e-03_rb,0.14667e-03_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.12696e-03_rb,0.12546e-03_rb,0.12398e-03_rb,0.12239e-03_rb,0.12042e-03_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.10470e-03_rb,0.10323e-03_rb,0.10199e-03_rb,0.10082e-03_rb,0.99093e-04_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.86543e-04_rb,0.84786e-04_rb,0.83972e-04_rb,0.82789e-04_rb,0.81392e-04_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.71529e-04_rb,0.69963e-04_rb,0.68982e-04_rb,0.67996e-04_rb,0.66867e-04_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.59457e-04_rb,0.57707e-04_rb,0.56668e-04_rb,0.55899e-04_rb,0.54959e-04_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.49467e-04_rb,0.47679e-04_rb,0.46593e-04_rb,0.45887e-04_rb,0.45090e-04_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.40766e-04_rb,0.39435e-04_rb,0.38281e-04_rb,0.37548e-04_rb,0.37003e-04_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.33628e-04_rb,0.32753e-04_rb,0.31623e-04_rb,0.30893e-04_rb,0.30385e-04_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.27865e-04_rb,0.27055e-04_rb,0.26162e-04_rb,0.25458e-04_rb,0.24898e-04_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.22934e-04_rb,0.22328e-04_rb,0.21731e-04_rb,0.20990e-04_rb,0.20456e-04_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.18846e-04_rb,0.18445e-04_rb,0.17912e-04_rb,0.17357e-04_rb,0.16833e-04_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.15388e-04_rb,0.15212e-04_rb,0.14808e-04_rb,0.14414e-04_rb,0.13935e-04_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.12598e-04_rb,0.12543e-04_rb,0.12261e-04_rb,0.11957e-04_rb,0.11571e-04_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.10381e-04_rb,0.10344e-04_rb,0.10166e-04_rb,0.98775e-05_rb,0.96020e-05_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.85457e-05_rb,0.84639e-05_rb,0.83932e-05_rb,0.81757e-05_rb,0.79545e-05_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.70397e-05_rb,0.69486e-05_rb,0.69316e-05_rb,0.67696e-05_rb,0.65859e-05_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.58257e-05_rb,0.57596e-05_rb,0.57448e-05_rb,0.56300e-05_rb,0.54831e-05_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.33040e-01_rb,0.33623e-01_rb,0.34360e-01_rb,0.35360e-01_rb,0.36383e-01_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.28634e-01_rb,0.29145e-01_rb,0.29913e-01_rb,0.30773e-01_rb,0.31595e-01_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.24852e-01_rb,0.25387e-01_rb,0.26038e-01_rb,0.26736e-01_rb,0.27406e-01_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.21426e-01_rb,0.21995e-01_rb,0.22531e-01_rb,0.23082e-01_rb,0.23575e-01_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.18563e-01_rb,0.19011e-01_rb,0.19492e-01_rb,0.19940e-01_rb,0.20337e-01_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.16067e-01_rb,0.16476e-01_rb,0.16902e-01_rb,0.17235e-01_rb,0.17579e-01_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.13911e-01_rb,0.14318e-01_rb,0.14657e-01_rb,0.14999e-01_rb,0.15265e-01_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.11889e-01_rb,0.12220e-01_rb,0.12522e-01_rb,0.12793e-01_rb,0.13028e-01_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.10107e-01_rb,0.10365e-01_rb,0.10626e-01_rb,0.10840e-01_rb,0.11030e-01_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.85828e-02_rb,0.88037e-02_rb,0.90066e-02_rb,0.91828e-02_rb,0.93108e-02_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.72873e-02_rb,0.74698e-02_rb,0.76229e-02_rb,0.77606e-02_rb,0.78812e-02_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.61731e-02_rb,0.63486e-02_rb,0.64551e-02_rb,0.65686e-02_rb,0.66826e-02_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.52349e-02_rb,0.53827e-02_rb,0.54728e-02_rb,0.55581e-02_rb,0.56691e-02_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.44343e-02_rb,0.45615e-02_rb,0.46303e-02_rb,0.47140e-02_rb,0.48058e-02_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.37566e-02_rb,0.38599e-02_rb,0.39250e-02_rb,0.39996e-02_rb,0.40739e-02_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.31898e-02_rb,0.32700e-02_rb,0.33284e-02_rb,0.33863e-02_rb,0.34483e-02_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.27069e-02_rb,0.27638e-02_rb,0.28173e-02_rb,0.28668e-02_rb,0.29159e-02_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.22952e-02_rb,0.23414e-02_rb,0.23862e-02_rb,0.24319e-02_rb,0.25045e-02_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.19469e-02_rb,0.19866e-02_rb,0.20269e-02_rb,0.20617e-02_rb,0.21285e-02_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.16569e-02_rb,0.16912e-02_rb,0.17225e-02_rb,0.17537e-02_rb,0.18151e-02_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.14159e-02_rb,0.14407e-02_rb,0.14672e-02_rb,0.14987e-02_rb,0.15568e-02_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.12124e-02_rb,0.12314e-02_rb,0.12565e-02_rb,0.13096e-02_rb,0.13455e-02_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.10402e-02_rb,0.10574e-02_rb,0.10852e-02_rb,0.11323e-02_rb,0.11671e-02_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.89606e-03_rb,0.91393e-03_rb,0.93957e-03_rb,0.98258e-03_rb,0.10142e-02_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.75556e-03_rb,0.77347e-03_rb,0.79494e-03_rb,0.83337e-03_rb,0.86466e-03_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.63793e-03_rb,0.65386e-03_rb,0.67373e-03_rb,0.70925e-03_rb,0.73610e-03_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.53995e-03_rb,0.55394e-03_rb,0.57091e-03_rb,0.59316e-03_rb,0.62725e-03_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.44830e-03_rb,0.46041e-03_rb,0.47605e-03_rb,0.49517e-03_rb,0.52406e-03_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.37113e-03_rb,0.38143e-03_rb,0.39555e-03_rb,0.41230e-03_rb,0.43648e-03_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.30743e-03_rb,0.31617e-03_rb,0.32840e-03_rb,0.34246e-03_rb,0.36323e-03_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.25237e-03_rb,0.25981e-03_rb,0.27013e-03_rb,0.28179e-03_rb,0.29414e-03_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.20643e-03_rb,0.21247e-03_rb,0.22138e-03_rb,0.23093e-03_rb,0.24175e-03_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.16882e-03_rb,0.17379e-03_rb,0.18072e-03_rb,0.18917e-03_rb,0.19837e-03_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.13808e-03_rb,0.14140e-03_rb,0.14740e-03_rb,0.15462e-03_rb,0.16243e-03_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.11262e-03_rb,0.11523e-03_rb,0.12010e-03_rb,0.12571e-03_rb,0.13225e-03_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.91738e-04_rb,0.93816e-04_rb,0.97414e-04_rb,0.10204e-03_rb,0.10733e-03_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.74533e-04_rb,0.76356e-04_rb,0.78756e-04_rb,0.82697e-04_rb,0.86848e-04_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.60870e-04_rb,0.62211e-04_rb,0.64031e-04_rb,0.67056e-04_rb,0.70590e-04_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.49547e-04_rb,0.50786e-04_rb,0.52181e-04_rb,0.54428e-04_rb,0.57574e-04_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.40457e-04_rb,0.41364e-04_rb,0.42403e-04_rb,0.44095e-04_rb,0.46746e-04_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.33032e-04_rb,0.33540e-04_rb,0.34449e-04_rb,0.35762e-04_rb,0.37780e-04_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.27201e-04_rb,0.27411e-04_rb,0.28166e-04_rb,0.29168e-04_rb,0.30744e-04_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.22471e-04_rb,0.22532e-04_rb,0.23075e-04_rb,0.23887e-04_rb,0.25092e-04_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.18480e-04_rb,0.18516e-04_rb,0.18857e-04_rb,0.19555e-04_rb,0.20483e-04_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.15198e-04_rb,0.15262e-04_rb,0.15424e-04_rb,0.15989e-04_rb,0.16742e-04_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.12523e-04_rb,0.12562e-04_rb,0.12648e-04_rb,0.13089e-04_rb,0.13686e-04_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.10416e-04_rb,0.10433e-04_rb,0.10536e-04_rb,0.10919e-04_rb,0.11421e-04_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.69718e-01_rb,0.71167e-01_rb,0.72961e-01_rb,0.74885e-01_rb,0.77322e-01_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.62182e-01_rb,0.63649e-01_rb,0.65193e-01_rb,0.67193e-01_rb,0.69746e-01_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.55177e-01_rb,0.56711e-01_rb,0.58414e-01_rb,0.60422e-01_rb,0.62756e-01_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.48867e-01_rb,0.50234e-01_rb,0.52023e-01_rb,0.54055e-01_rb,0.56254e-01_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.43174e-01_rb,0.44610e-01_rb,0.46287e-01_rb,0.48302e-01_rb,0.50389e-01_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.38339e-01_rb,0.39749e-01_rb,0.41335e-01_rb,0.43237e-01_rb,0.45123e-01_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.34315e-01_rb,0.35543e-01_rb,0.37065e-01_rb,0.38754e-01_rb,0.40597e-01_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.30036e-01_rb,0.31291e-01_rb,0.32637e-01_rb,0.34202e-01_rb,0.35839e-01_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.26135e-01_rb,0.27343e-01_rb,0.28574e-01_rb,0.30000e-01_rb,0.31460e-01_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.22750e-01_rb,0.23832e-01_rb,0.25080e-01_rb,0.26299e-01_rb,0.27580e-01_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.19795e-01_rb,0.20915e-01_rb,0.22028e-01_rb,0.23060e-01_rb,0.24140e-01_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.17353e-01_rb,0.18346e-01_rb,0.19305e-01_rb,0.20238e-01_rb,0.21103e-01_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.15226e-01_rb,0.16064e-01_rb,0.16955e-01_rb,0.17722e-01_rb,0.18477e-01_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.13309e-01_rb,0.14087e-01_rb,0.14848e-01_rb,0.15498e-01_rb,0.16180e-01_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.11623e-01_rb,0.12295e-01_rb,0.12913e-01_rb,0.13525e-01_rb,0.14113e-01_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.10147e-01_rb,0.10710e-01_rb,0.11240e-01_rb,0.11795e-01_rb,0.12384e-01_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.87968e-02_rb,0.92904e-02_rb,0.97797e-02_rb,0.10288e-01_rb,0.10828e-01_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.76490e-02_rb,0.80771e-02_rb,0.85219e-02_rb,0.90152e-02_rb,0.97888e-02_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.66330e-02_rb,0.70376e-02_rb,0.74659e-02_rb,0.79113e-02_rb,0.86622e-02_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.58073e-02_rb,0.61697e-02_rb,0.65754e-02_rb,0.70309e-02_rb,0.77115e-02_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.51062e-02_rb,0.54682e-02_rb,0.58582e-02_rb,0.62737e-02_rb,0.69163e-02_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.45302e-02_rb,0.48855e-02_rb,0.52639e-02_rb,0.58227e-02_rb,0.62719e-02_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.40254e-02_rb,0.43599e-02_rb,0.47158e-02_rb,0.52732e-02_rb,0.57228e-02_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.35647e-02_rb,0.38837e-02_rb,0.42167e-02_rb,0.47705e-02_rb,0.52032e-02_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.30730e-02_rb,0.33561e-02_rb,0.36823e-02_rb,0.41868e-02_rb,0.45932e-02_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.26407e-02_rb,0.29052e-02_rb,0.32061e-02_rb,0.36781e-02_rb,0.40664e-02_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.22667e-02_rb,0.25156e-02_rb,0.28017e-02_rb,0.31173e-02_rb,0.36136e-02_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.19056e-02_rb,0.21267e-02_rb,0.23879e-02_rb,0.26789e-02_rb,0.31309e-02_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.15967e-02_rb,0.17952e-02_rb,0.20263e-02_rb,0.22865e-02_rb,0.27062e-02_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.13343e-02_rb,0.15081e-02_rb,0.17167e-02_rb,0.19538e-02_rb,0.23416e-02_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.10981e-02_rb,0.12492e-02_rb,0.14292e-02_rb,0.16430e-02_rb,0.19013e-02_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.89464e-03_rb,0.10267e-02_rb,0.11827e-02_rb,0.13698e-02_rb,0.16046e-02_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.72683e-03_rb,0.83985e-03_rb,0.97469e-03_rb,0.11376e-02_rb,0.13459e-02_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.58610e-03_rb,0.68242e-03_rb,0.79873e-03_rb,0.94079e-03_rb,0.11248e-02_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.46823e-03_rb,0.54958e-03_rb,0.64876e-03_rb,0.77111e-03_rb,0.93276e-03_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.37202e-03_rb,0.44089e-03_rb,0.52431e-03_rb,0.62811e-03_rb,0.76979e-03_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.29424e-03_rb,0.35087e-03_rb,0.42017e-03_rb,0.50926e-03_rb,0.63166e-03_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.23381e-03_rb,0.28036e-03_rb,0.33854e-03_rb,0.41547e-03_rb,0.52066e-03_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.18542e-03_rb,0.22410e-03_rb,0.27211e-03_rb,0.33806e-03_rb,0.42775e-03_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.14646e-03_rb,0.17824e-03_rb,0.21799e-03_rb,0.27400e-03_rb,0.34964e-03_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.11499e-03_rb,0.14049e-03_rb,0.17412e-03_rb,0.22038e-03_rb,0.28435e-03_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.91160e-04_rb,0.11217e-03_rb,0.13972e-03_rb,0.17793e-03_rb,0.23213e-03_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.72474e-04_rb,0.89606e-04_rb,0.11228e-03_rb,0.14368e-03_rb,0.18928e-03_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.57463e-04_rb,0.71291e-04_rb,0.89786e-04_rb,0.11554e-03_rb,0.15352e-03_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.45287e-04_rb,0.56571e-04_rb,0.71524e-04_rb,0.92319e-04_rb,0.12382e-03_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.35841e-04_rb,0.44939e-04_rb,0.57025e-04_rb,0.73710e-04_rb,0.99673e-04_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.29941e-04_rb,0.37721e-04_rb,0.48119e-04_rb,0.62420e-04_rb,0.85059e-04_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.16189e+00_rb,0.16561e+00_rb,0.16999e+00_rb,0.17514e+00_rb,0.18068e+00_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.14981e+00_rb,0.15416e+00_rb,0.15917e+00_rb,0.16420e+00_rb,0.16989e+00_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.13875e+00_rb,0.14297e+00_rb,0.14757e+00_rb,0.15249e+00_rb,0.15852e+00_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.12672e+00_rb,0.13073e+00_rb,0.13523e+00_rb,0.14037e+00_rb,0.14640e+00_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.11530e+00_rb,0.11958e+00_rb,0.12450e+00_rb,0.12975e+00_rb,0.13596e+00_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.10572e+00_rb,0.11005e+00_rb,0.11482e+00_rb,0.12031e+00_rb,0.12674e+00_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.97798e-01_rb,0.10221e+00_rb,0.10713e+00_rb,0.11251e+00_rb,0.11882e+00_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.88438e-01_rb,0.93059e-01_rb,0.98290e-01_rb,0.10406e+00_rb,0.11034e+00_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.79615e-01_rb,0.84383e-01_rb,0.89776e-01_rb,0.95707e-01_rb,0.10218e+00_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.71663e-01_rb,0.76568e-01_rb,0.81968e-01_rb,0.88106e-01_rb,0.94703e-01_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.64729e-01_rb,0.69601e-01_rb,0.75178e-01_rb,0.81445e-01_rb,0.88072e-01_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.58713e-01_rb,0.63692e-01_rb,0.69398e-01_rb,0.75609e-01_rb,0.82402e-01_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.53422e-01_rb,0.58504e-01_rb,0.64255e-01_rb,0.70582e-01_rb,0.77266e-01_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.48884e-01_rb,0.53907e-01_rb,0.59754e-01_rb,0.66093e-01_rb,0.72781e-01_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.44782e-01_rb,0.49959e-01_rb,0.55649e-01_rb,0.61937e-01_rb,0.68517e-01_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.41164e-01_rb,0.46305e-01_rb,0.52009e-01_rb,0.58205e-01_rb,0.64389e-01_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.37976e-01_rb,0.43033e-01_rb,0.48696e-01_rb,0.54470e-01_rb,0.60707e-01_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.35210e-01_rb,0.40258e-01_rb,0.45653e-01_rb,0.51435e-01_rb,0.59091e-01_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.32774e-01_rb,0.37557e-01_rb,0.43028e-01_rb,0.48762e-01_rb,0.56208e-01_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.30628e-01_rb,0.35555e-01_rb,0.40840e-01_rb,0.46513e-01_rb,0.53917e-01_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.29120e-01_rb,0.33908e-01_rb,0.39209e-01_rb,0.44801e-01_rb,0.52179e-01_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.27843e-01_rb,0.32610e-01_rb,0.37873e-01_rb,0.45101e-01_rb,0.51127e-01_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.26429e-01_rb,0.31201e-01_rb,0.36480e-01_rb,0.43796e-01_rb,0.49886e-01_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.24910e-01_rb,0.29603e-01_rb,0.34935e-01_rb,0.42317e-01_rb,0.48474e-01_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.22623e-01_rb,0.27186e-01_rb,0.32364e-01_rb,0.39709e-01_rb,0.45895e-01_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.20536e-01_rb,0.25035e-01_rb,0.30138e-01_rb,0.37341e-01_rb,0.43584e-01_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.18744e-01_rb,0.23143e-01_rb,0.28133e-01_rb,0.33754e-01_rb,0.41569e-01_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.16632e-01_rb,0.20751e-01_rb,0.25556e-01_rb,0.30972e-01_rb,0.38593e-01_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.14671e-01_rb,0.18541e-01_rb,0.23110e-01_rb,0.28292e-01_rb,0.35702e-01_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.12909e-01_rb,0.16573e-01_rb,0.20901e-01_rb,0.25885e-01_rb,0.32997e-01_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.11155e-01_rb,0.14521e-01_rb,0.18561e-01_rb,0.23268e-01_rb,0.28558e-01_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.95144e-02_rb,0.12576e-01_rb,0.16313e-01_rb,0.20662e-01_rb,0.25638e-01_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.80643e-02_rb,0.10847e-01_rb,0.14290e-01_rb,0.18347e-01_rb,0.23034e-01_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.67589e-02_rb,0.92659e-02_rb,0.12372e-01_rb,0.16082e-01_rb,0.20456e-01_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.55482e-02_rb,0.77474e-02_rb,0.10528e-01_rb,0.13920e-01_rb,0.17966e-01_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.45013e-02_rb,0.64175e-02_rb,0.88907e-02_rb,0.11958e-01_rb,0.15638e-01_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.36173e-02_rb,0.52743e-02_rb,0.74530e-02_rb,0.10200e-01_rb,0.13544e-01_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.29073e-02_rb,0.43372e-02_rb,0.62514e-02_rb,0.87078e-02_rb,0.11757e-01_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.23200e-02_rb,0.35429e-02_rb,0.52236e-02_rb,0.74160e-02_rb,0.10190e-01_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.18398e-02_rb,0.28704e-02_rb,0.43321e-02_rb,0.62743e-02_rb,0.87585e-02_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.14394e-02_rb,0.22999e-02_rb,0.35535e-02_rb,0.52615e-02_rb,0.74854e-02_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.11368e-02_rb,0.18545e-02_rb,0.29326e-02_rb,0.44372e-02_rb,0.64347e-02_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.89467e-03_rb,0.14935e-02_rb,0.24197e-02_rb,0.37410e-02_rb,0.55222e-02_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.69687e-03_rb,0.11894e-02_rb,0.19763e-02_rb,0.31286e-02_rb,0.47149e-02_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.53791e-03_rb,0.93747e-03_rb,0.15990e-02_rb,0.25976e-02_rb,0.39986e-02_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.41410e-03_rb,0.73971e-03_rb,0.12907e-02_rb,0.21482e-02_rb,0.33858e-02_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.35405e-03_rb,0.64717e-03_rb,0.11503e-02_rb,0.19466e-02_rb,0.31094e-02_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.45516e+00_rb,0.46955e+00_rb,0.48450e+00_rb,0.50029e+00_rb,0.51769e+00_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.43991e+00_rb,0.45312e+00_rb,0.46646e+00_rb,0.48116e+00_rb,0.49718e+00_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.42871e+00_rb,0.44246e+00_rb,0.45762e+00_rb,0.47406e+00_rb,0.49132e+00_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.40699e+00_rb,0.42153e+00_rb,0.43710e+00_rb,0.45468e+00_rb,0.47435e+00_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.38538e+00_rb,0.39940e+00_rb,0.41418e+00_rb,0.43146e+00_rb,0.45140e+00_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.36235e+00_rb,0.37741e+00_rb,0.39391e+00_rb,0.41121e+00_rb,0.43054e+00_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.34180e+00_rb,0.35677e+00_rb,0.37295e+00_rb,0.39070e+00_rb,0.41121e+00_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.31818e+00_rb,0.33243e+00_rb,0.34824e+00_rb,0.36683e+00_rb,0.38832e+00_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.29454e+00_rb,0.30892e+00_rb,0.32519e+00_rb,0.34434e+00_rb,0.36621e+00_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.27292e+00_rb,0.28819e+00_rb,0.30567e+00_rb,0.32553e+00_rb,0.34730e+00_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.25455e+00_rb,0.27053e+00_rb,0.28810e+00_rb,0.30845e+00_rb,0.33065e+00_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.23920e+00_rb,0.25523e+00_rb,0.27293e+00_rb,0.29370e+00_rb,0.31644e+00_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.22572e+00_rb,0.24152e+00_rb,0.26024e+00_rb,0.28092e+00_rb,0.30402e+00_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.21333e+00_rb,0.23053e+00_rb,0.24913e+00_rb,0.27069e+00_rb,0.29445e+00_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.20216e+00_rb,0.22006e+00_rb,0.23987e+00_rb,0.26172e+00_rb,0.28552e+00_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.19243e+00_rb,0.21106e+00_rb,0.23162e+00_rb,0.25373e+00_rb,0.27880e+00_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.18399e+00_rb,0.20352e+00_rb,0.22446e+00_rb,0.24815e+00_rb,0.27383e+00_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.17696e+00_rb,0.19707e+00_rb,0.21934e+00_rb,0.24428e+00_rb,0.27560e+00_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.17154e+00_rb,0.19276e+00_rb,0.21622e+00_rb,0.24297e+00_rb,0.27512e+00_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.16864e+00_rb,0.19074e+00_rb,0.21586e+00_rb,0.24341e+00_rb,0.27678e+00_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.16705e+00_rb,0.19103e+00_rb,0.21725e+00_rb,0.24571e+00_rb,0.27988e+00_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.16718e+00_rb,0.19214e+00_rb,0.21923e+00_rb,0.25236e+00_rb,0.28358e+00_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.16615e+00_rb,0.19194e+00_rb,0.21973e+00_rb,0.25386e+00_rb,0.28528e+00_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.16355e+00_rb,0.18981e+00_rb,0.21857e+00_rb,0.25318e+00_rb,0.28503e+00_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.15644e+00_rb,0.18272e+00_rb,0.21137e+00_rb,0.24627e+00_rb,0.27830e+00_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.14985e+00_rb,0.17574e+00_rb,0.20437e+00_rb,0.23950e+00_rb,0.27160e+00_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.14373e+00_rb,0.16918e+00_rb,0.19762e+00_rb,0.22814e+00_rb,0.26522e+00_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.13479e+00_rb,0.15968e+00_rb,0.18756e+00_rb,0.21775e+00_rb,0.25463e+00_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.12605e+00_rb,0.15045e+00_rb,0.17752e+00_rb,0.20726e+00_rb,0.24367e+00_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.11784e+00_rb,0.14153e+00_rb,0.16784e+00_rb,0.19712e+00_rb,0.23353e+00_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.10839e+00_rb,0.13122e+00_rb,0.15696e+00_rb,0.18528e+00_rb,0.21641e+00_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.98772e-01_rb,0.12078e+00_rb,0.14549e+00_rb,0.17313e+00_rb,0.20344e+00_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.89757e-01_rb,0.11096e+00_rb,0.13484e+00_rb,0.16135e+00_rb,0.19086e+00_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.80754e-01_rb,0.10111e+00_rb,0.12397e+00_rb,0.14951e+00_rb,0.17812e+00_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.71551e-01_rb,0.90848e-01_rb,0.11265e+00_rb,0.13712e+00_rb,0.16456e+00_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.63023e-01_rb,0.81188e-01_rb,0.10192e+00_rb,0.12530e+00_rb,0.15155e+00_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.55112e-01_rb,0.71966e-01_rb,0.91627e-01_rb,0.11386e+00_rb,0.13887e+00_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.48148e-01_rb,0.63904e-01_rb,0.82545e-01_rb,0.10380e+00_rb,0.12775e+00_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.42077e-01_rb,0.56742e-01_rb,0.74219e-01_rb,0.94436e-01_rb,0.11735e+00_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.36406e-01_rb,0.49929e-01_rb,0.66400e-01_rb,0.85557e-01_rb,0.10751e+00_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.31162e-01_rb,0.43645e-01_rb,0.58971e-01_rb,0.77049e-01_rb,0.97772e-01_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.26848e-01_rb,0.38389e-01_rb,0.52700e-01_rb,0.69937e-01_rb,0.89664e-01_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.23145e-01_rb,0.33793e-01_rb,0.47177e-01_rb,0.63590e-01_rb,0.82440e-01_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.19764e-01_rb,0.29522e-01_rb,0.42050e-01_rb,0.57472e-01_rb,0.75623e-01_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.16713e-01_rb,0.25602e-01_rb,0.37259e-01_rb,0.51705e-01_rb,0.68976e-01_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.14134e-01_rb,0.22215e-01_rb,0.32983e-01_rb,0.46579e-01_rb,0.62982e-01_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.13103e-01_rb,0.20874e-01_rb,0.31397e-01_rb,0.44700e-01_rb,0.60881e-01_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.30563e+01_rb,0.31744e+01_rb,0.32842e+01_rb,0.33901e+01_rb,0.34937e+01_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.27752e+01_rb,0.28869e+01_rb,0.29933e+01_rb,0.30958e+01_rb,0.31932e+01_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.25099e+01_rb,0.26164e+01_rb,0.27185e+01_rb,0.28161e+01_rb,0.29094e+01_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.23062e+01_rb,0.23985e+01_rb,0.24887e+01_rb,0.25791e+01_rb,0.26657e+01_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.21996e+01_rb,0.22783e+01_rb,0.23521e+01_rb,0.24248e+01_rb,0.25028e+01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.22125e+01_rb,0.22932e+01_rb,0.23665e+01_rb,0.24375e+01_rb,0.25051e+01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.22641e+01_rb,0.23491e+01_rb,0.24239e+01_rb,0.24973e+01_rb,0.25657e+01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.22472e+01_rb,0.23357e+01_rb,0.24204e+01_rb,0.24964e+01_rb,0.25675e+01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.21851e+01_rb,0.22830e+01_rb,0.23690e+01_rb,0.24562e+01_rb,0.25370e+01_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.21175e+01_rb,0.22142e+01_rb,0.23108e+01_rb,0.24049e+01_rb,0.24949e+01_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.20447e+01_rb,0.21452e+01_rb,0.22435e+01_rb,0.23385e+01_rb,0.24298e+01_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.19721e+01_rb,0.20737e+01_rb,0.21717e+01_rb,0.22760e+01_rb,0.23715e+01_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.18957e+01_rb,0.20036e+01_rb,0.21100e+01_rb,0.22176e+01_rb,0.23221e+01_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.18288e+01_rb,0.19378e+01_rb,0.20515e+01_rb,0.21609e+01_rb,0.22728e+01_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.17692e+01_rb,0.18810e+01_rb,0.19951e+01_rb,0.21151e+01_rb,0.22361e+01_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.17168e+01_rb,0.18338e+01_rb,0.19558e+01_rb,0.20789e+01_rb,0.22051e+01_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.16702e+01_rb,0.17936e+01_rb,0.19235e+01_rb,0.20524e+01_rb,0.21850e+01_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.16394e+01_rb,0.17677e+01_rb,0.19029e+01_rb,0.20369e+01_rb,0.21882e+01_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.16228e+01_rb,0.17523e+01_rb,0.18896e+01_rb,0.20262e+01_rb,0.21815e+01_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.16178e+01_rb,0.17489e+01_rb,0.18859e+01_rb,0.20233e+01_rb,0.21838e+01_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.16221e+01_rb,0.17529e+01_rb,0.18876e+01_rb,0.20327e+01_rb,0.21960e+01_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.16321e+01_rb,0.17688e+01_rb,0.19069e+01_rb,0.20650e+01_rb,0.22191e+01_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.16388e+01_rb,0.17830e+01_rb,0.19261e+01_rb,0.20887e+01_rb,0.22365e+01_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.16423e+01_rb,0.17895e+01_rb,0.19390e+01_rb,0.21032e+01_rb,0.22561e+01_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.16080e+01_rb,0.17565e+01_rb,0.19076e+01_rb,0.20741e+01_rb,0.22287e+01_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.15745e+01_rb,0.17245e+01_rb,0.18721e+01_rb,0.20419e+01_rb,0.21969e+01_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.15386e+01_rb,0.16919e+01_rb,0.18410e+01_rb,0.19923e+01_rb,0.21638e+01_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.14840e+01_rb,0.16355e+01_rb,0.17855e+01_rb,0.19337e+01_rb,0.21026e+01_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.14260e+01_rb,0.15758e+01_rb,0.17241e+01_rb,0.18746e+01_rb,0.20398e+01_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.13688e+01_rb,0.15162e+01_rb,0.16646e+01_rb,0.18157e+01_rb,0.19780e+01_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.13011e+01_rb,0.14473e+01_rb,0.15936e+01_rb,0.17402e+01_rb,0.18823e+01_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.12278e+01_rb,0.13710e+01_rb,0.15157e+01_rb,0.16568e+01_rb,0.17952e+01_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.11558e+01_rb,0.12957e+01_rb,0.14361e+01_rb,0.15731e+01_rb,0.17094e+01_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.10820e+01_rb,0.12147e+01_rb,0.13532e+01_rb,0.14890e+01_rb,0.16181e+01_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.10024e+01_rb,0.11346e+01_rb,0.12669e+01_rb,0.14002e+01_rb,0.15260e+01_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.92524e+00_rb,0.10524e+01_rb,0.11804e+01_rb,0.13068e+01_rb,0.14296e+01_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.84698e+00_rb,0.96805e+00_rb,0.10902e+01_rb,0.12100e+01_rb,0.13299e+01_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.78084e+00_rb,0.89928e+00_rb,0.10161e+01_rb,0.11323e+01_rb,0.12472e+01_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.72222e+00_rb,0.83480e+00_rb,0.94748e+00_rb,0.10626e+01_rb,0.11740e+01_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.66260e+00_rb,0.77045e+00_rb,0.88348e+00_rb,0.99181e+00_rb,0.10995e+01_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.60516e+00_rb,0.71083e+00_rb,0.81698e+00_rb,0.91863e+00_rb,0.10219e+01_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.56176e+00_rb,0.66472e+00_rb,0.77054e+00_rb,0.87249e+00_rb,0.97306e+00_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.52563e+00_rb,0.63037e+00_rb,0.73497e+00_rb,0.83878e+00_rb,0.93923e+00_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.49056e+00_rb,0.59429e+00_rb,0.69788e+00_rb,0.80509e+00_rb,0.90615e+00_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.45575e+00_rb,0.55861e+00_rb,0.66303e+00_rb,0.76942e+00_rb,0.87211e+00_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.42419e+00_rb,0.52609e+00_rb,0.63048e+00_rb,0.73708e+00_rb,0.84331e+00_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.42340e+00_rb,0.52953e+00_rb,0.63843e+00_rb,0.74879e+00_rb,0.86046e+00_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.14973e+02_rb,0.15466e+02_rb,0.15907e+02_rb,0.16294e+02_rb,0.16648e+02_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.13327e+02_rb,0.13717e+02_rb,0.14036e+02_rb,0.14348e+02_rb,0.14658e+02_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.12219e+02_rb,0.12428e+02_rb,0.12649e+02_rb,0.12810e+02_rb,0.12959e+02_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.11245e+02_rb,0.11501e+02_rb,0.11701e+02_rb,0.11817e+02_rb,0.11948e+02_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.96706e+01_rb,0.99707e+01_rb,0.10257e+02_rb,0.10540e+02_rb,0.10718e+02_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.83018e+01_rb,0.83446e+01_rb,0.84207e+01_rb,0.85262e+01_rb,0.86783e+01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.82250e+01_rb,0.81929e+01_rb,0.82337e+01_rb,0.82572e+01_rb,0.83177e+01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.81684e+01_rb,0.81782e+01_rb,0.82244e+01_rb,0.82765e+01_rb,0.82985e+01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.82586e+01_rb,0.83055e+01_rb,0.84017e+01_rb,0.83815e+01_rb,0.83594e+01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.83686e+01_rb,0.84604e+01_rb,0.85363e+01_rb,0.84786e+01_rb,0.84786e+01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.84301e+01_rb,0.85903e+01_rb,0.87569e+01_rb,0.87953e+01_rb,0.87965e+01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.85690e+01_rb,0.88097e+01_rb,0.90359e+01_rb,0.90994e+01_rb,0.92201e+01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.87852e+01_rb,0.90719e+01_rb,0.92672e+01_rb,0.94098e+01_rb,0.95600e+01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.88651e+01_rb,0.92334e+01_rb,0.94525e+01_rb,0.97256e+01_rb,0.98986e+01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.88645e+01_rb,0.92932e+01_rb,0.96152e+01_rb,0.98392e+01_rb,0.10037e+02_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.88548e+01_rb,0.93070e+01_rb,0.96176e+01_rb,0.99813e+01_rb,0.10238e+02_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.88198e+01_rb,0.92265e+01_rb,0.96024e+01_rb,0.99285e+01_rb,0.10232e+02_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.87818e+01_rb,0.92083e+01_rb,0.95579e+01_rb,0.98976e+01_rb,0.10208e+02_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.86036e+01_rb,0.90621e+01_rb,0.94967e+01_rb,0.98500e+01_rb,0.10159e+02_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.84748e+01_rb,0.89960e+01_rb,0.94428e+01_rb,0.98336e+01_rb,0.10196e+02_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.84172e+01_rb,0.89420e+01_rb,0.94383e+01_rb,0.98344e+01_rb,0.10060e+02_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.84605e+01_rb,0.89751e+01_rb,0.94683e+01_rb,0.98852e+01_rb,0.10023e+02_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.84589e+01_rb,0.89233e+01_rb,0.94002e+01_rb,0.98511e+01_rb,0.10024e+02_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.84558e+01_rb,0.89580e+01_rb,0.93747e+01_rb,0.98030e+01_rb,0.10000e+02_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.82385e+01_rb,0.87614e+01_rb,0.91541e+01_rb,0.95514e+01_rb,0.97363e+01_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.80132e+01_rb,0.84437e+01_rb,0.89304e+01_rb,0.92902e+01_rb,0.94811e+01_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.78203e+01_rb,0.81981e+01_rb,0.85539e+01_rb,0.89689e+01_rb,0.90927e+01_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.75978e+01_rb,0.79610e+01_rb,0.82423e+01_rb,0.86095e+01_rb,0.88190e+01_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.73029e+01_rb,0.76481e+01_rb,0.79708e+01_rb,0.82445e+01_rb,0.84426e+01_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.70166e+01_rb,0.73754e+01_rb,0.76378e+01_rb,0.78862e+01_rb,0.80985e+01_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.66293e+01_rb,0.69504e+01_rb,0.72276e+01_rb,0.75120e+01_rb,0.77099e+01_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.62312e+01_rb,0.65696e+01_rb,0.68647e+01_rb,0.71226e+01_rb,0.73305e+01_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.58229e+01_rb,0.61620e+01_rb,0.64682e+01_rb,0.67341e+01_rb,0.69070e+01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.53657e+01_rb,0.57492e+01_rb,0.60377e+01_rb,0.63031e+01_rb,0.64992e+01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.50350e+01_rb,0.53678e+01_rb,0.56656e+01_rb,0.59201e+01_rb,0.61262e+01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.46566e+01_rb,0.49901e+01_rb,0.52633e+01_rb,0.54964e+01_rb,0.57537e+01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.42801e+01_rb,0.46217e+01_rb,0.49093e+01_rb,0.51104e+01_rb,0.53644e+01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.39613e+01_rb,0.43120e+01_rb,0.45848e+01_rb,0.48588e+01_rb,0.50774e+01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.37006e+01_rb,0.40662e+01_rb,0.43615e+01_rb,0.46264e+01_rb,0.48701e+01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.34485e+01_rb,0.37934e+01_rb,0.40667e+01_rb,0.43544e+01_rb,0.46481e+01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.31594e+01_rb,0.35032e+01_rb,0.37934e+01_rb,0.41156e+01_rb,0.44077e+01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.29800e+01_rb,0.33284e+01_rb,0.36333e+01_rb,0.39624e+01_rb,0.42528e+01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.28569e+01_rb,0.32159e+01_rb,0.35391e+01_rb,0.38186e+01_rb,0.41402e+01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.26907e+01_rb,0.31071e+01_rb,0.34476e+01_rb,0.36941e+01_rb,0.40212e+01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.25638e+01_rb,0.29869e+01_rb,0.33345e+01_rb,0.36081e+01_rb,0.38859e+01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.24665e+01_rb,0.28708e+01_rb,0.32402e+01_rb,0.35331e+01_rb,0.37851e+01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.25432e+01_rb,0.29855e+01_rb,0.33662e+01_rb,0.37020e+01_rb,0.39522e+01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.31099e+02_rb,0.31647e+02_rb,0.32241e+02_rb,0.32842e+02_rb,0.33417e+02_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.27698e+02_rb,0.28253e+02_rb,0.28859e+02_rb,0.29460e+02_rb,0.30083e+02_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.24330e+02_rb,0.24945e+02_rb,0.25542e+02_rb,0.26234e+02_rb,0.26922e+02_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.21190e+02_rb,0.21758e+02_rb,0.22384e+02_rb,0.23019e+02_rb,0.23628e+02_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.18967e+02_rb,0.19413e+02_rb,0.19858e+02_rb,0.20261e+02_rb,0.20672e+02_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.16374e+02_rb,0.16952e+02_rb,0.17497e+02_rb,0.17964e+02_rb,0.18478e+02_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.13248e+02_rb,0.13545e+02_rb,0.13847e+02_rb,0.14297e+02_rb,0.14705e+02_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.12757e+02_rb,0.12785e+02_rb,0.12667e+02_rb,0.12601e+02_rb,0.12612e+02_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.12844e+02_rb,0.12624e+02_rb,0.12433e+02_rb,0.12193e+02_rb,0.12175e+02_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.12738e+02_rb,0.12567e+02_rb,0.12225e+02_rb,0.12063e+02_rb,0.11980e+02_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.12815e+02_rb,0.12660e+02_rb,0.12272e+02_rb,0.12108e+02_rb,0.12066e+02_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.13079e+02_rb,0.12972e+02_rb,0.12651e+02_rb,0.12388e+02_rb,0.12367e+02_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.13341e+02_rb,0.13256e+02_rb,0.13023e+02_rb,0.12848e+02_rb,0.12659e+02_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.13512e+02_rb,0.13453e+02_rb,0.13443e+02_rb,0.13113e+02_rb,0.13141e+02_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.13706e+02_rb,0.13750e+02_rb,0.13824e+02_rb,0.13564e+02_rb,0.13665e+02_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.13979e+02_rb,0.14080e+02_rb,0.14203e+02_rb,0.13858e+02_rb,0.13981e+02_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.13934e+02_rb,0.14086e+02_rb,0.14156e+02_rb,0.14057e+02_rb,0.14114e+02_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.13981e+02_rb,0.13996e+02_rb,0.13975e+02_rb,0.14010e+02_rb,0.14196e+02_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.13896e+02_rb,0.13857e+02_rb,0.13654e+02_rb,0.13807e+02_rb,0.13871e+02_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.13655e+02_rb,0.13646e+02_rb,0.13416e+02_rb,0.13538e+02_rb,0.13488e+02_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.13398e+02_rb,0.13279e+02_rb,0.13235e+02_rb,0.13164e+02_rb,0.13195e+02_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.13280e+02_rb,0.13155e+02_rb,0.13035e+02_rb,0.13095e+02_rb,0.13023e+02_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.13174e+02_rb,0.13038e+02_rb,0.12951e+02_rb,0.12819e+02_rb,0.12932e+02_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.13159e+02_rb,0.12953e+02_rb,0.12943e+02_rb,0.12899e+02_rb,0.13077e+02_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.12968e+02_rb,0.12722e+02_rb,0.12741e+02_rb,0.12684e+02_rb,0.12881e+02_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.12648e+02_rb,0.12436e+02_rb,0.12390e+02_rb,0.12534e+02_rb,0.12593e+02_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.12145e+02_rb,0.12036e+02_rb,0.12198e+02_rb,0.12171e+02_rb,0.12374e+02_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.11784e+02_rb,0.11714e+02_rb,0.11852e+02_rb,0.11995e+02_rb,0.12020e+02_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.11419e+02_rb,0.11429e+02_rb,0.11554e+02_rb,0.11799e+02_rb,0.11809e+02_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.11076e+02_rb,0.11047e+02_rb,0.11287e+02_rb,0.11460e+02_rb,0.11610e+02_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.10635e+02_rb,0.10772e+02_rb,0.10970e+02_rb,0.11110e+02_rb,0.11339e+02_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.10081e+02_rb,0.10347e+02_rb,0.10495e+02_rb,0.10710e+02_rb,0.10998e+02_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.95493e+01_rb,0.97720e+01_rb,0.10013e+02_rb,0.10318e+02_rb,0.10626e+02_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.91901e+01_rb,0.92815e+01_rb,0.95285e+01_rb,0.99399e+01_rb,0.10216e+02_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.86762e+01_rb,0.88384e+01_rb,0.91370e+01_rb,0.95143e+01_rb,0.99290e+01_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.80969e+01_rb,0.84350e+01_rb,0.87222e+01_rb,0.91427e+01_rb,0.95881e+01_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.74881e+01_rb,0.78692e+01_rb,0.82390e+01_rb,0.88564e+01_rb,0.92509e+01_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.70193e+01_rb,0.74373e+01_rb,0.79400e+01_rb,0.84415e+01_rb,0.90721e+01_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.66370e+01_rb,0.71214e+01_rb,0.76381e+01_rb,0.81180e+01_rb,0.89263e+01_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.62242e+01_rb,0.68097e+01_rb,0.73447e+01_rb,0.79515e+01_rb,0.88951e+01_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.58238e+01_rb,0.63775e+01_rb,0.69942e+01_rb,0.79247e+01_rb,0.89454e+01_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.55499e+01_rb,0.61225e+01_rb,0.67115e+01_rb,0.76390e+01_rb,0.86771e+01_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.53976e+01_rb,0.59288e+01_rb,0.64661e+01_rb,0.72387e+01_rb,0.82482e+01_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.52864e+01_rb,0.57486e+01_rb,0.62663e+01_rb,0.68889e+01_rb,0.78153e+01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.51174e+01_rb,0.55624e+01_rb,0.60808e+01_rb,0.66051e+01_rb,0.73800e+01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.49368e+01_rb,0.54350e+01_rb,0.59533e+01_rb,0.64218e+01_rb,0.70057e+01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.50812e+01_rb,0.56369e+01_rb,0.60928e+01_rb,0.64990e+01_rb,0.70265e+01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.69704e+02_rb,0.70627e+02_rb,0.71228e+02_rb,0.71788e+02_rb,0.72437e+02_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.64379e+02_rb,0.65225e+02_rb,0.66016e+02_rb,0.66901e+02_rb,0.67785e+02_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.58655e+02_rb,0.59644e+02_rb,0.60731e+02_rb,0.61788e+02_rb,0.62973e+02_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.53041e+02_rb,0.54211e+02_rb,0.55406e+02_rb,0.56764e+02_rb,0.58230e+02_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.47145e+02_rb,0.48549e+02_rb,0.50104e+02_rb,0.51815e+02_rb,0.53646e+02_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.41118e+02_rb,0.42628e+02_rb,0.44372e+02_rb,0.46307e+02_rb,0.48319e+02_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.35042e+02_rb,0.36608e+02_rb,0.38443e+02_rb,0.40582e+02_rb,0.43018e+02_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.28625e+02_rb,0.30224e+02_rb,0.32288e+02_rb,0.34780e+02_rb,0.37414e+02_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.24017e+02_rb,0.25409e+02_rb,0.27330e+02_rb,0.29600e+02_rb,0.32108e+02_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.21793e+02_rb,0.22620e+02_rb,0.24096e+02_rb,0.26102e+02_rb,0.28497e+02_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.21413e+02_rb,0.21831e+02_rb,0.22594e+02_rb,0.23606e+02_rb,0.25745e+02_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.21009e+02_rb,0.21418e+02_rb,0.22293e+02_rb,0.23189e+02_rb,0.24234e+02_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.21184e+02_rb,0.21661e+02_rb,0.22476e+02_rb,0.23334e+02_rb,0.24471e+02_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.21853e+02_rb,0.22488e+02_rb,0.23205e+02_rb,0.24024e+02_rb,0.25192e+02_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.22275e+02_rb,0.22928e+02_rb,0.23659e+02_rb,0.24768e+02_rb,0.25734e+02_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.22649e+02_rb,0.23413e+02_rb,0.24091e+02_rb,0.25549e+02_rb,0.26436e+02_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.22704e+02_rb,0.23483e+02_rb,0.24191e+02_rb,0.25460e+02_rb,0.26653e+02_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.22666e+02_rb,0.23444e+02_rb,0.24530e+02_rb,0.25500e+02_rb,0.26652e+02_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.22235e+02_rb,0.23247e+02_rb,0.24248e+02_rb,0.25076e+02_rb,0.26466e+02_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.22226e+02_rb,0.22827e+02_rb,0.24083e+02_rb,0.25139e+02_rb,0.26181e+02_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.22210e+02_rb,0.22941e+02_rb,0.24126e+02_rb,0.25269e+02_rb,0.26783e+02_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.22243e+02_rb,0.23077e+02_rb,0.24337e+02_rb,0.25761e+02_rb,0.27799e+02_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.22396e+02_rb,0.23583e+02_rb,0.24898e+02_rb,0.26594e+02_rb,0.29392e+02_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.22982e+02_rb,0.24125e+02_rb,0.25363e+02_rb,0.27311e+02_rb,0.30508e+02_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.22918e+02_rb,0.23937e+02_rb,0.25281e+02_rb,0.27602e+02_rb,0.31235e+02_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.22758e+02_rb,0.23720e+02_rb,0.25240e+02_rb,0.28261e+02_rb,0.32012e+02_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.22553e+02_rb,0.23629e+02_rb,0.25559e+02_rb,0.29164e+02_rb,0.32971e+02_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.21913e+02_rb,0.23010e+02_rb,0.25397e+02_rb,0.28931e+02_rb,0.33000e+02_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.21428e+02_rb,0.22543e+02_rb,0.25193e+02_rb,0.28521e+02_rb,0.32655e+02_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.20806e+02_rb,0.22057e+02_rb,0.24895e+02_rb,0.28307e+02_rb,0.32344e+02_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.20230e+02_rb,0.21402e+02_rb,0.24438e+02_rb,0.27778e+02_rb,0.31742e+02_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.19439e+02_rb,0.20816e+02_rb,0.24038e+02_rb,0.27280e+02_rb,0.31112e+02_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.18615e+02_rb,0.20644e+02_rb,0.23787e+02_rb,0.26906e+02_rb,0.30508e+02_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.17932e+02_rb,0.20436e+02_rb,0.23444e+02_rb,0.26514e+02_rb,0.30043e+02_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.17388e+02_rb,0.20062e+02_rb,0.22865e+02_rb,0.25992e+02_rb,0.29187e+02_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.17144e+02_rb,0.19562e+02_rb,0.22419e+02_rb,0.25556e+02_rb,0.28578e+02_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.16956e+02_rb,0.19439e+02_rb,0.22133e+02_rb,0.25135e+02_rb,0.28141e+02_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.16529e+02_rb,0.19034e+02_rb,0.21605e+02_rb,0.24563e+02_rb,0.27331e+02_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.15953e+02_rb,0.18522e+02_rb,0.21071e+02_rb,0.23856e+02_rb,0.26389e+02_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.15476e+02_rb,0.18037e+02_rb,0.20576e+02_rb,0.23092e+02_rb,0.25303e+02_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.14987e+02_rb,0.17619e+02_rb,0.20150e+02_rb,0.22182e+02_rb,0.24323e+02_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.14316e+02_rb,0.16769e+02_rb,0.19340e+02_rb,0.21295e+02_rb,0.23328e+02_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.13478e+02_rb,0.15723e+02_rb,0.18284e+02_rb,0.20497e+02_rb,0.22282e+02_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.12615e+02_rb,0.14717e+02_rb,0.17222e+02_rb,0.19626e+02_rb,0.21412e+02_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.11789e+02_rb,0.13910e+02_rb,0.16111e+02_rb,0.18559e+02_rb,0.20605e+02_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.10935e+02_rb,0.12994e+02_rb,0.15023e+02_rb,0.17386e+02_rb,0.19630e+02_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.10847e+02_rb,0.11985e+02_rb,0.13699e+02_rb,0.15922e+02_rb,0.18130e+02_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.15243e+03_rb,0.15414e+03_rb,0.15604e+03_rb,0.15731e+03_rb,0.15805e+03_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.15017e+03_rb,0.15285e+03_rb,0.15509e+03_rb,0.15662e+03_rb,0.15764e+03_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.14701e+03_rb,0.15032e+03_rb,0.15250e+03_rb,0.15435e+03_rb,0.15583e+03_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.14269e+03_rb,0.14580e+03_rb,0.14857e+03_rb,0.15094e+03_rb,0.15306e+03_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.13670e+03_rb,0.14035e+03_rb,0.14376e+03_rb,0.14689e+03_rb,0.14976e+03_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.13015e+03_rb,0.13455e+03_rb,0.13871e+03_rb,0.14263e+03_rb,0.14625e+03_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.12287e+03_rb,0.12845e+03_rb,0.13370e+03_rb,0.13836e+03_rb,0.14277e+03_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.11516e+03_rb,0.12176e+03_rb,0.12807e+03_rb,0.13396e+03_rb,0.13973e+03_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.10676e+03_rb,0.11461e+03_rb,0.12196e+03_rb,0.12926e+03_rb,0.13605e+03_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.98495e+02_rb,0.10775e+03_rb,0.11663e+03_rb,0.12493e+03_rb,0.13260e+03_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.89816e+02_rb,0.10015e+03_rb,0.11065e+03_rb,0.12084e+03_rb,0.12951e+03_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.82797e+02_rb,0.93590e+02_rb,0.10444e+03_rb,0.11545e+03_rb,0.12590e+03_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.77256e+02_rb,0.88067e+02_rb,0.99408e+02_rb,0.11069e+03_rb,0.12164e+03_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.73787e+02_rb,0.84230e+02_rb,0.95403e+02_rb,0.10719e+03_rb,0.11797e+03_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.72626e+02_rb,0.82623e+02_rb,0.93417e+02_rb,0.10482e+03_rb,0.11588e+03_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.72289e+02_rb,0.81705e+02_rb,0.92658e+02_rb,0.10355e+03_rb,0.11467e+03_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.73831e+02_rb,0.83248e+02_rb,0.93801e+02_rb,0.10474e+03_rb,0.11551e+03_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.76016e+02_rb,0.86113e+02_rb,0.95367e+02_rb,0.10651e+03_rb,0.11733e+03_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.80058e+02_rb,0.89705e+02_rb,0.99793e+02_rb,0.10982e+03_rb,0.12052e+03_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.85064e+02_rb,0.94860e+02_rb,0.10434e+03_rb,0.11401e+03_rb,0.12404e+03_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.90655e+02_rb,0.10081e+03_rb,0.10992e+03_rb,0.11933e+03_rb,0.12788e+03_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.95857e+02_rb,0.10597e+03_rb,0.11520e+03_rb,0.12356e+03_rb,0.13127e+03_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.99393e+02_rb,0.11014e+03_rb,0.12003e+03_rb,0.12794e+03_rb,0.13407e+03_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.10100e+03_rb,0.11220e+03_rb,0.12221e+03_rb,0.13085e+03_rb,0.13724e+03_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.10052e+03_rb,0.11217e+03_rb,0.12302e+03_rb,0.13127e+03_rb,0.13704e+03_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.10046e+03_rb,0.11273e+03_rb,0.12310e+03_rb,0.13118e+03_rb,0.13742e+03_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.10122e+03_rb,0.11326e+03_rb,0.12361e+03_rb,0.13081e+03_rb,0.13784e+03_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.10000e+03_rb,0.11180e+03_rb,0.12195e+03_rb,0.12930e+03_rb,0.13636e+03_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.98394e+02_rb,0.11024e+03_rb,0.11969e+03_rb,0.12788e+03_rb,0.13497e+03_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.97071e+02_rb,0.10823e+03_rb,0.11769e+03_rb,0.12630e+03_rb,0.13330e+03_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.94820e+02_rb,0.10592e+03_rb,0.11514e+03_rb,0.12393e+03_rb,0.13107e+03_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.92475e+02_rb,0.10313e+03_rb,0.11198e+03_rb,0.12120e+03_rb,0.12869e+03_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.90255e+02_rb,0.99678e+02_rb,0.10888e+03_rb,0.11824e+03_rb,0.12634e+03_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.87084e+02_rb,0.96376e+02_rb,0.10582e+03_rb,0.11496e+03_rb,0.12350e+03_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.83116e+02_rb,0.92026e+02_rb,0.10209e+03_rb,0.11120e+03_rb,0.12020e+03_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.78845e+02_rb,0.88316e+02_rb,0.97984e+02_rb,0.10729e+03_rb,0.11639e+03_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.74841e+02_rb,0.84389e+02_rb,0.93907e+02_rb,0.10286e+03_rb,0.11277e+03_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.71259e+02_rb,0.80370e+02_rb,0.89851e+02_rb,0.99011e+02_rb,0.10882e+03_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.67667e+02_rb,0.76332e+02_rb,0.85552e+02_rb,0.95111e+02_rb,0.10517e+03_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.64036e+02_rb,0.72373e+02_rb,0.81228e+02_rb,0.91458e+02_rb,0.10109e+03_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.60531e+02_rb,0.68539e+02_rb,0.77029e+02_rb,0.87314e+02_rb,0.97171e+02_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.57169e+02_rb,0.65298e+02_rb,0.73473e+02_rb,0.83504e+02_rb,0.93303e+02_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.53955e+02_rb,0.61813e+02_rb,0.70099e+02_rb,0.79656e+02_rb,0.89859e+02_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.50772e+02_rb,0.58658e+02_rb,0.66829e+02_rb,0.76079e+02_rb,0.86127e+02_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.47708e+02_rb,0.55213e+02_rb,0.63250e+02_rb,0.72545e+02_rb,0.82495e+02_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.45026e+02_rb,0.52243e+02_rb,0.60123e+02_rb,0.69281e+02_rb,0.79017e+02_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.42111e+02_rb,0.50365e+02_rb,0.58368e+02_rb,0.67832e+02_rb,0.76877e+02_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.32174e+03_rb,0.31744e+03_rb,0.31218e+03_rb,0.30740e+03_rb,0.30288e+03_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.33593e+03_rb,0.33142e+03_rb,0.32669e+03_rb,0.32231e+03_rb,0.31834e+03_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.34823e+03_rb,0.34389e+03_rb,0.34037e+03_rb,0.33690e+03_rb,0.33355e+03_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.35878e+03_rb,0.35631e+03_rb,0.35376e+03_rb,0.35105e+03_rb,0.34819e+03_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.36906e+03_rb,0.36793e+03_rb,0.36636e+03_rb,0.36433e+03_rb,0.36182e+03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.37817e+03_rb,0.37835e+03_rb,0.37763e+03_rb,0.37618e+03_rb,0.37389e+03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.38585e+03_rb,0.38729e+03_rb,0.38746e+03_rb,0.38655e+03_rb,0.38433e+03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.39236e+03_rb,0.39495e+03_rb,0.39589e+03_rb,0.39530e+03_rb,0.39330e+03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.39808e+03_rb,0.40159e+03_rb,0.40312e+03_rb,0.40280e+03_rb,0.40090e+03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.40338e+03_rb,0.40757e+03_rb,0.40933e+03_rb,0.40908e+03_rb,0.40708e+03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.40834e+03_rb,0.41282e+03_rb,0.41463e+03_rb,0.41442e+03_rb,0.41222e+03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.41280e+03_rb,0.41739e+03_rb,0.41916e+03_rb,0.41879e+03_rb,0.41631e+03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.41635e+03_rb,0.42140e+03_rb,0.42295e+03_rb,0.42231e+03_rb,0.41948e+03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.41887e+03_rb,0.42439e+03_rb,0.42613e+03_rb,0.42509e+03_rb,0.42199e+03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.42034e+03_rb,0.42637e+03_rb,0.42837e+03_rb,0.42723e+03_rb,0.42380e+03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.42191e+03_rb,0.42841e+03_rb,0.43008e+03_rb,0.42870e+03_rb,0.42501e+03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.42351e+03_rb,0.42979e+03_rb,0.43162e+03_rb,0.42986e+03_rb,0.42579e+03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.42461e+03_rb,0.42985e+03_rb,0.43291e+03_rb,0.43068e+03_rb,0.42610e+03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.42505e+03_rb,0.43017e+03_rb,0.43191e+03_rb,0.43099e+03_rb,0.42603e+03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.42362e+03_rb,0.42860e+03_rb,0.43041e+03_rb,0.42915e+03_rb,0.42555e+03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.42123e+03_rb,0.42505e+03_rb,0.42663e+03_rb,0.42551e+03_rb,0.42290e+03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.41773e+03_rb,0.42082e+03_rb,0.42178e+03_rb,0.42110e+03_rb,0.41858e+03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.41435e+03_rb,0.41544e+03_rb,0.41491e+03_rb,0.41443e+03_rb,0.41216e+03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.41009e+03_rb,0.41065e+03_rb,0.40988e+03_rb,0.40756e+03_rb,0.40367e+03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.40889e+03_rb,0.40948e+03_rb,0.40755e+03_rb,0.40547e+03_rb,0.40195e+03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.40736e+03_rb,0.40781e+03_rb,0.40666e+03_rb,0.40322e+03_rb,0.39939e+03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.40514e+03_rb,0.40605e+03_rb,0.40431e+03_rb,0.40166e+03_rb,0.39666e+03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.40543e+03_rb,0.40633e+03_rb,0.40490e+03_rb,0.40260e+03_rb,0.39791e+03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.40503e+03_rb,0.40615e+03_rb,0.40599e+03_rb,0.40348e+03_rb,0.39947e+03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.40408e+03_rb,0.40664e+03_rb,0.40681e+03_rb,0.40441e+03_rb,0.40107e+03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.40250e+03_rb,0.40659e+03_rb,0.40791e+03_rb,0.40633e+03_rb,0.40362e+03_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.40121e+03_rb,0.40653e+03_rb,0.40934e+03_rb,0.40832e+03_rb,0.40616e+03_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.39928e+03_rb,0.40669e+03_rb,0.41014e+03_rb,0.41010e+03_rb,0.40849e+03_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.39656e+03_rb,0.40551e+03_rb,0.41027e+03_rb,0.41167e+03_rb,0.41068e+03_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.39317e+03_rb,0.40403e+03_rb,0.40985e+03_rb,0.41273e+03_rb,0.41264e+03_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.38915e+03_rb,0.40116e+03_rb,0.40932e+03_rb,0.41346e+03_rb,0.41469e+03_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.38398e+03_rb,0.39755e+03_rb,0.40789e+03_rb,0.41416e+03_rb,0.41577e+03_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.37757e+03_rb,0.39396e+03_rb,0.40616e+03_rb,0.41381e+03_rb,0.41707e+03_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.37117e+03_rb,0.38987e+03_rb,0.40415e+03_rb,0.41318e+03_rb,0.41740e+03_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.36408e+03_rb,0.38505e+03_rb,0.40161e+03_rb,0.41151e+03_rb,0.41801e+03_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.35611e+03_rb,0.37948e+03_rb,0.39824e+03_rb,0.40994e+03_rb,0.41764e+03_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.34712e+03_rb,0.37341e+03_rb,0.39425e+03_rb,0.40798e+03_rb,0.41739e+03_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.33857e+03_rb,0.36757e+03_rb,0.38995e+03_rb,0.40583e+03_rb,0.41654e+03_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.32949e+03_rb,0.36056e+03_rb,0.38492e+03_rb,0.40281e+03_rb,0.41532e+03_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.31954e+03_rb,0.35312e+03_rb,0.37997e+03_rb,0.39944e+03_rb,0.41349e+03_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.30943e+03_rb,0.34518e+03_rb,0.37428e+03_rb,0.39571e+03_rb,0.41155e+03_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.30628e+03_rb,0.34259e+03_rb,0.37284e+03_rb,0.39463e+03_rb,0.41220e+03_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.58702e+03_rb,0.56862e+03_rb,0.55331e+03_rb,0.53896e+03_rb,0.52495e+03_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.64037e+03_rb,0.62129e+03_rb,0.60436e+03_rb,0.58772e+03_rb,0.57127e+03_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.69642e+03_rb,0.67640e+03_rb,0.65677e+03_rb,0.63714e+03_rb,0.61752e+03_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.75408e+03_rb,0.73150e+03_rb,0.70834e+03_rb,0.68512e+03_rb,0.66206e+03_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.81156e+03_rb,0.78496e+03_rb,0.75773e+03_rb,0.73064e+03_rb,0.70441e+03_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.86684e+03_rb,0.83552e+03_rb,0.80425e+03_rb,0.77370e+03_rb,0.74441e+03_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.91879e+03_rb,0.88284e+03_rb,0.84773e+03_rb,0.81356e+03_rb,0.78105e+03_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.96599e+03_rb,0.92558e+03_rb,0.88651e+03_rb,0.84884e+03_rb,0.81303e+03_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.10076e+04_rb,0.96291e+03_rb,0.92009e+03_rb,0.87920e+03_rb,0.84047e+03_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.10401e+04_rb,0.99157e+03_rb,0.94567e+03_rb,0.90208e+03_rb,0.86095e+03_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.10659e+04_rb,0.10143e+04_rb,0.96587e+03_rb,0.91983e+03_rb,0.87686e+03_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.10857e+04_rb,0.10316e+04_rb,0.98077e+03_rb,0.93285e+03_rb,0.88829e+03_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.10994e+04_rb,0.10434e+04_rb,0.99070e+03_rb,0.94138e+03_rb,0.89569e+03_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.11072e+04_rb,0.10495e+04_rb,0.99578e+03_rb,0.94553e+03_rb,0.89886e+03_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.11107e+04_rb,0.10519e+04_rb,0.99732e+03_rb,0.94654e+03_rb,0.89932e+03_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.11104e+04_rb,0.10510e+04_rb,0.99596e+03_rb,0.94493e+03_rb,0.89744e+03_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.11068e+04_rb,0.10472e+04_rb,0.99206e+03_rb,0.94099e+03_rb,0.89320e+03_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.11008e+04_rb,0.10413e+04_rb,0.98636e+03_rb,0.93544e+03_rb,0.88772e+03_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.10926e+04_rb,0.10334e+04_rb,0.97895e+03_rb,0.92827e+03_rb,0.88094e+03_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.10829e+04_rb,0.10242e+04_rb,0.97015e+03_rb,0.91986e+03_rb,0.87315e+03_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.10718e+04_rb,0.10140e+04_rb,0.96048e+03_rb,0.91059e+03_rb,0.86462e+03_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.10622e+04_rb,0.10049e+04_rb,0.95198e+03_rb,0.90258e+03_rb,0.85725e+03_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.10576e+04_rb,0.10006e+04_rb,0.94772e+03_rb,0.89854e+03_rb,0.85365e+03_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.10589e+04_rb,0.10017e+04_rb,0.94880e+03_rb,0.89934e+03_rb,0.85436e+03_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.10689e+04_rb,0.10108e+04_rb,0.95721e+03_rb,0.90723e+03_rb,0.86136e+03_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.10792e+04_rb,0.10202e+04_rb,0.96581e+03_rb,0.91534e+03_rb,0.86861e+03_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.10893e+04_rb,0.10294e+04_rb,0.97432e+03_rb,0.92308e+03_rb,0.87586e+03_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.11025e+04_rb,0.10445e+04_rb,0.98826e+03_rb,0.93598e+03_rb,0.88770e+03_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.11189e+04_rb,0.10606e+04_rb,0.10030e+04_rb,0.94969e+03_rb,0.90027e+03_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.11355e+04_rb,0.10769e+04_rb,0.10180e+04_rb,0.96359e+03_rb,0.91305e+03_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.11585e+04_rb,0.10971e+04_rb,0.10364e+04_rb,0.98067e+03_rb,0.92886e+03_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.11827e+04_rb,0.11193e+04_rb,0.10568e+04_rb,0.99947e+03_rb,0.94636e+03_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.12075e+04_rb,0.11422e+04_rb,0.10778e+04_rb,0.10187e+04_rb,0.96421e+03_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.12357e+04_rb,0.11671e+04_rb,0.11007e+04_rb,0.10396e+04_rb,0.98362e+03_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.12667e+04_rb,0.11958e+04_rb,0.11271e+04_rb,0.10639e+04_rb,0.10059e+04_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.12983e+04_rb,0.12254e+04_rb,0.11543e+04_rb,0.10888e+04_rb,0.10288e+04_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.13304e+04_rb,0.12559e+04_rb,0.11825e+04_rb,0.11147e+04_rb,0.10526e+04_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.13621e+04_rb,0.12852e+04_rb,0.12096e+04_rb,0.11397e+04_rb,0.10755e+04_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.13919e+04_rb,0.13140e+04_rb,0.12368e+04_rb,0.11648e+04_rb,0.10985e+04_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.14222e+04_rb,0.13432e+04_rb,0.12647e+04_rb,0.11905e+04_rb,0.11221e+04_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.14531e+04_rb,0.13729e+04_rb,0.12932e+04_rb,0.12171e+04_rb,0.11465e+04_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.14842e+04_rb,0.14002e+04_rb,0.13197e+04_rb,0.12421e+04_rb,0.11696e+04_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.15120e+04_rb,0.14267e+04_rb,0.13453e+04_rb,0.12667e+04_rb,0.11922e+04_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.15401e+04_rb,0.14538e+04_rb,0.13712e+04_rb,0.12915e+04_rb,0.12155e+04_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.15682e+04_rb,0.14811e+04_rb,0.13973e+04_rb,0.13167e+04_rb,0.12393e+04_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.15949e+04_rb,0.15073e+04_rb,0.14224e+04_rb,0.13410e+04_rb,0.12625e+04_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.16055e+04_rb,0.15180e+04_rb,0.14326e+04_rb,0.13507e+04_rb,0.12718e+04_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.98069e+03_rb,0.94212e+03_rb,0.90378e+03_rb,0.86861e+03_rb,0.83780e+03_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.11010e+04_rb,0.10540e+04_rb,0.10095e+04_rb,0.96975e+03_rb,0.93339e+03_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.12287e+04_rb,0.11714e+04_rb,0.11195e+04_rb,0.10736e+04_rb,0.10305e+04_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.13596e+04_rb,0.12909e+04_rb,0.12306e+04_rb,0.11762e+04_rb,0.11252e+04_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.14895e+04_rb,0.14091e+04_rb,0.13394e+04_rb,0.12751e+04_rb,0.12151e+04_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.16148e+04_rb,0.15230e+04_rb,0.14425e+04_rb,0.13683e+04_rb,0.12989e+04_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.17336e+04_rb,0.16302e+04_rb,0.15375e+04_rb,0.14530e+04_rb,0.13744e+04_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.18405e+04_rb,0.17248e+04_rb,0.16208e+04_rb,0.15267e+04_rb,0.14397e+04_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.19359e+04_rb,0.18083e+04_rb,0.16938e+04_rb,0.15909e+04_rb,0.14962e+04_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.20085e+04_rb,0.18707e+04_rb,0.17478e+04_rb,0.16373e+04_rb,0.15366e+04_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.20648e+04_rb,0.19188e+04_rb,0.17890e+04_rb,0.16725e+04_rb,0.15672e+04_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.21054e+04_rb,0.19528e+04_rb,0.18178e+04_rb,0.16967e+04_rb,0.15881e+04_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.21318e+04_rb,0.19742e+04_rb,0.18353e+04_rb,0.17113e+04_rb,0.16005e+04_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.21433e+04_rb,0.19836e+04_rb,0.18416e+04_rb,0.17161e+04_rb,0.16044e+04_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.21445e+04_rb,0.19835e+04_rb,0.18409e+04_rb,0.17145e+04_rb,0.16033e+04_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.21374e+04_rb,0.19764e+04_rb,0.18336e+04_rb,0.17081e+04_rb,0.15978e+04_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.21225e+04_rb,0.19618e+04_rb,0.18208e+04_rb,0.16961e+04_rb,0.15894e+04_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.21033e+04_rb,0.19434e+04_rb,0.18039e+04_rb,0.16808e+04_rb,0.15775e+04_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.20779e+04_rb,0.19206e+04_rb,0.17837e+04_rb,0.16635e+04_rb,0.15631e+04_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.20491e+04_rb,0.18949e+04_rb,0.17612e+04_rb,0.16447e+04_rb,0.15471e+04_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.20177e+04_rb,0.18682e+04_rb,0.17367e+04_rb,0.16246e+04_rb,0.15302e+04_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.19905e+04_rb,0.18445e+04_rb,0.17155e+04_rb,0.16076e+04_rb,0.15146e+04_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.19774e+04_rb,0.18329e+04_rb,0.17061e+04_rb,0.16001e+04_rb,0.15070e+04_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.19799e+04_rb,0.18350e+04_rb,0.17079e+04_rb,0.16017e+04_rb,0.15083e+04_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.20051e+04_rb,0.18569e+04_rb,0.17271e+04_rb,0.16176e+04_rb,0.15230e+04_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.20315e+04_rb,0.18800e+04_rb,0.17473e+04_rb,0.16343e+04_rb,0.15379e+04_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.20576e+04_rb,0.19026e+04_rb,0.17672e+04_rb,0.16508e+04_rb,0.15527e+04_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.21013e+04_rb,0.19405e+04_rb,0.18004e+04_rb,0.16787e+04_rb,0.15771e+04_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.21482e+04_rb,0.19814e+04_rb,0.18363e+04_rb,0.17091e+04_rb,0.16029e+04_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.21964e+04_rb,0.20236e+04_rb,0.18732e+04_rb,0.17410e+04_rb,0.16295e+04_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.22568e+04_rb,0.20769e+04_rb,0.19193e+04_rb,0.17816e+04_rb,0.16630e+04_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.23247e+04_rb,0.21362e+04_rb,0.19712e+04_rb,0.18270e+04_rb,0.17012e+04_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.23959e+04_rb,0.21983e+04_rb,0.20252e+04_rb,0.18744e+04_rb,0.17420e+04_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.24748e+04_rb,0.22670e+04_rb,0.20858e+04_rb,0.19269e+04_rb,0.17884e+04_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.25688e+04_rb,0.23479e+04_rb,0.21568e+04_rb,0.19886e+04_rb,0.18424e+04_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.26704e+04_rb,0.24334e+04_rb,0.22313e+04_rb,0.20542e+04_rb,0.18994e+04_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.27805e+04_rb,0.25238e+04_rb,0.23096e+04_rb,0.21232e+04_rb,0.19594e+04_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.28920e+04_rb,0.26151e+04_rb,0.23873e+04_rb,0.21911e+04_rb,0.20186e+04_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.30093e+04_rb,0.27098e+04_rb,0.24666e+04_rb,0.22601e+04_rb,0.20794e+04_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.31338e+04_rb,0.28121e+04_rb,0.25503e+04_rb,0.23323e+04_rb,0.21428e+04_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.32663e+04_rb,0.29228e+04_rb,0.26405e+04_rb,0.24086e+04_rb,0.22095e+04_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.33958e+04_rb,0.30317e+04_rb,0.27288e+04_rb,0.24819e+04_rb,0.22731e+04_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.35272e+04_rb,0.31418e+04_rb,0.28194e+04_rb,0.25560e+04_rb,0.23371e+04_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.36664e+04_rb,0.32577e+04_rb,0.29162e+04_rb,0.26350e+04_rb,0.24040e+04_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.38139e+04_rb,0.33808e+04_rb,0.30193e+04_rb,0.27188e+04_rb,0.24736e+04_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.39629e+04_rb,0.35038e+04_rb,0.31229e+04_rb,0.28034e+04_rb,0.25431e+04_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.40252e+04_rb,0.35562e+04_rb,0.31659e+04_rb,0.28393e+04_rb,0.25724e+04_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.525585e-05_rb, 0.527618e-05_rb, 0.746929e-04_rb /)\n      forrefo(:, 2) = (/ 0.794660e-05_rb, 0.136902e-04_rb, 0.849878e-04_rb /)\n      forrefo(:, 3) = (/ 0.197099e-04_rb, 0.733094e-04_rb, 0.121687e-03_rb /)\n      forrefo(:, 4) = (/ 0.148274e-03_rb, 0.169776e-03_rb, 0.164848e-03_rb /)\n      forrefo(:, 5) = (/ 0.230296e-03_rb, 0.210384e-03_rb, 0.182028e-03_rb /)\n      forrefo(:, 6) = (/ 0.280575e-03_rb, 0.259217e-03_rb, 0.196080e-03_rb /)\n      forrefo(:, 7) = (/ 0.329034e-03_rb, 0.291575e-03_rb, 0.207044e-03_rb /)\n      forrefo(:, 8) = (/ 0.349989e-03_rb, 0.323471e-03_rb, 0.225712e-03_rb /)\n      forrefo(:, 9) = (/ 0.366097e-03_rb, 0.321519e-03_rb, 0.253150e-03_rb /)\n      forrefo(:,10) = (/ 0.383589e-03_rb, 0.355314e-03_rb, 0.262555e-03_rb /)\n      forrefo(:,11) = (/ 0.375933e-03_rb, 0.372443e-03_rb, 0.261313e-03_rb /)\n      forrefo(:,12) = (/ 0.370652e-03_rb, 0.382366e-03_rb, 0.250070e-03_rb /)\n      forrefo(:,13) = (/ 0.375092e-03_rb, 0.379542e-03_rb, 0.265794e-03_rb /)\n      forrefo(:,14) = (/ 0.389705e-03_rb, 0.384274e-03_rb, 0.322135e-03_rb /)\n      forrefo(:,15) = (/ 0.372084e-03_rb, 0.390422e-03_rb, 0.370035e-03_rb /)\n      forrefo(:,16) = (/ 0.437802e-03_rb, 0.373406e-03_rb, 0.373222e-03_rb /)\n      \n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n!     -----------------------------------------------------------------\n      \n      selfrefo(:, 1) = (/ &\n        &  0.126758e-02_rb, 0.105253e-02_rb, 0.873963e-03_rb, 0.725690e-03_rb, 0.602573e-03_rb, &\n        &  0.500344e-03_rb, 0.415458e-03_rb, 0.344973e-03_rb, 0.286447e-03_rb, 0.237849e-03_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.144006e-02_rb, 0.118514e-02_rb, 0.975351e-03_rb, 0.802697e-03_rb, 0.660606e-03_rb, &\n        &  0.543667e-03_rb, 0.447429e-03_rb, 0.368226e-03_rb, 0.303044e-03_rb, 0.249400e-03_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.294018e-02_rb, 0.227428e-02_rb, 0.175920e-02_rb, 0.136077e-02_rb, 0.105258e-02_rb, &\n        &  0.814189e-03_rb, 0.629789e-03_rb, 0.487153e-03_rb, 0.376821e-03_rb, 0.291478e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.395290e-02_rb, 0.348405e-02_rb, 0.307081e-02_rb, 0.270658e-02_rb, 0.238556e-02_rb, &\n        &  0.210261e-02_rb, 0.185322e-02_rb, 0.163341e-02_rb, 0.143967e-02_rb, 0.126891e-02_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.419122e-02_rb, 0.385638e-02_rb, 0.354829e-02_rb, 0.326481e-02_rb, 0.300398e-02_rb, &\n        &  0.276399e-02_rb, 0.254317e-02_rb, 0.234000e-02_rb, 0.215305e-02_rb, 0.198104e-02_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.495659e-02_rb, 0.456777e-02_rb, 0.420945e-02_rb, 0.387924e-02_rb, 0.357494e-02_rb, &\n        &  0.329450e-02_rb, 0.303606e-02_rb, 0.279790e-02_rb, 0.257842e-02_rb, 0.237615e-02_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.526981e-02_rb, 0.490687e-02_rb, 0.456893e-02_rb, 0.425426e-02_rb, 0.396126e-02_rb, &\n        &  0.368844e-02_rb, 0.343441e-02_rb, 0.319788e-02_rb, 0.297764e-02_rb, 0.277256e-02_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.575426e-02_rb, 0.531597e-02_rb, 0.491106e-02_rb, 0.453699e-02_rb, 0.419141e-02_rb, &\n        &  0.387216e-02_rb, 0.357722e-02_rb, 0.330475e-02_rb, 0.305303e-02_rb, 0.282048e-02_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.549881e-02_rb, 0.514328e-02_rb, 0.481074e-02_rb, 0.449970e-02_rb, 0.420877e-02_rb, &\n        &  0.393665e-02_rb, 0.368213e-02_rb, 0.344406e-02_rb, 0.322138e-02_rb, 0.301310e-02_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.605357e-02_rb, 0.561246e-02_rb, 0.520349e-02_rb, 0.482432e-02_rb, 0.447278e-02_rb, &\n        &  0.414686e-02_rb, 0.384469e-02_rb, 0.356453e-02_rb, 0.330479e-02_rb, 0.306398e-02_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.640504e-02_rb, 0.587858e-02_rb, 0.539540e-02_rb, 0.495194e-02_rb, 0.454492e-02_rb, &\n        &  0.417136e-02_rb, 0.382850e-02_rb, 0.351382e-02_rb, 0.322501e-02_rb, 0.295993e-02_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.677803e-02_rb, 0.615625e-02_rb, 0.559152e-02_rb, 0.507859e-02_rb, 0.461271e-02_rb, &\n        &  0.418957e-02_rb, 0.380524e-02_rb, 0.345617e-02_rb, 0.313913e-02_rb, 0.285116e-02_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.690347e-02_rb, 0.627003e-02_rb, 0.569472e-02_rb, 0.517219e-02_rb, 0.469761e-02_rb, &\n        &  0.426658e-02_rb, 0.387509e-02_rb, 0.351953e-02_rb, 0.319659e-02_rb, 0.290328e-02_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.692680e-02_rb, 0.632795e-02_rb, 0.578087e-02_rb, 0.528109e-02_rb, 0.482452e-02_rb, &\n        &  0.440742e-02_rb, 0.402638e-02_rb, 0.367828e-02_rb, 0.336028e-02_rb, 0.306977e-02_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.754894e-02_rb, 0.681481e-02_rb, 0.615207e-02_rb, 0.555378e-02_rb, 0.501367e-02_rb, &\n        &  0.452609e-02_rb, 0.408593e-02_rb, 0.368857e-02_rb, 0.332986e-02_rb, 0.300603e-02_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.760689e-02_rb, 0.709755e-02_rb, 0.662232e-02_rb, 0.617891e-02_rb, 0.576519e-02_rb, &\n        &  0.537917e-02_rb, 0.501899e-02_rb, 0.468293e-02_rb, 0.436938e-02_rb, 0.407682e-02_rb /)\n     \n      end subroutine sw_kgb16\n\n! **************************************************************************\n      subroutine sw_kgb17\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 3.15613_rb  ,  3.03449_rb  ,  2.92069_rb  ,  2.63874_rb   , &\n        & 2.34581_rb  ,  2.06999_rb  ,  1.70906_rb  ,  1.29085_rb   , &\n        & 0.874851_rb ,  0.0955392_rb,  0.0787813_rb,  0.0621951_rb , &\n        & 0.0459076_rb,  0.0294129_rb,  0.0110387_rb,  0.00159668_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 2.83147_rb  ,  2.95919_rb  ,  2.96674_rb  ,  2.77677_rb   , &\n        & 2.46826_rb  ,  2.11481_rb  ,  1.73243_rb  ,  1.30279_rb   , &\n        & 0.882714_rb ,  0.0962350_rb,  0.0802122_rb,  0.0636194_rb , &\n        & 0.0472620_rb,  0.0299051_rb,  0.0110785_rb,  0.00159668_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 2.82300_rb  ,  2.94845_rb  ,  2.95887_rb  ,  2.77593_rb   , &\n        & 2.47096_rb  ,  2.12596_rb  ,  1.73847_rb  ,  1.30796_rb   , &\n        & 0.884395_rb ,  0.0966936_rb,  0.0801996_rb,  0.0640199_rb , &\n        & 0.0472803_rb,  0.0300515_rb,  0.0112366_rb,  0.00160814_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 2.81715_rb  ,  2.93789_rb  ,  2.95091_rb  ,  2.77046_rb   , &\n        & 2.47716_rb  ,  2.13591_rb  ,  1.74365_rb  ,  1.31277_rb   , &\n        & 0.887443_rb ,  0.0967016_rb,  0.0803391_rb,  0.0642442_rb , &\n        & 0.0472909_rb,  0.0300720_rb,  0.0114817_rb,  0.00161875_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 2.82335_rb  ,  2.93168_rb  ,  2.91455_rb  ,  2.75213_rb   , &\n        & 2.49168_rb  ,  2.14408_rb  ,  1.75726_rb  ,  1.32401_rb   , &\n        & 0.893644_rb ,  0.0969523_rb,  0.0805197_rb,  0.0639936_rb , &\n        & 0.0475099_rb,  0.0305667_rb,  0.0115372_rb,  0.00161875_rb /)\n\n! Rayleigh extinction coefficient at v = 3625 cm-1.\n      rayl = 6.86e-10_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.11134e-05_rb,0.32092e-03_rb,0.55663e-03_rb,0.78227e-03_rb,0.99421e-03_rb, &\n        & 0.12045e-02_rb,0.14116e-02_rb,0.16069e-02_rb,0.19330e-02_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.10544e-05_rb,0.35434e-03_rb,0.61480e-03_rb,0.86424e-03_rb,0.11055e-02_rb, &\n        & 0.13431e-02_rb,0.15754e-02_rb,0.17951e-02_rb,0.21280e-02_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.98345e-06_rb,0.38989e-03_rb,0.67747e-03_rb,0.95289e-03_rb,0.12196e-02_rb, &\n        & 0.14864e-02_rb,0.17449e-02_rb,0.19897e-02_rb,0.23564e-02_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.95017e-06_rb,0.42582e-03_rb,0.74419e-03_rb,0.10463e-02_rb,0.13424e-02_rb, &\n        & 0.16353e-02_rb,0.19215e-02_rb,0.21939e-02_rb,0.25993e-02_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.91870e-06_rb,0.46371e-03_rb,0.81394e-03_rb,0.11464e-02_rb,0.14715e-02_rb, &\n        & 0.17937e-02_rb,0.21072e-02_rb,0.24077e-02_rb,0.28540e-02_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.94184e-06_rb,0.26532e-03_rb,0.46157e-03_rb,0.63776e-03_rb,0.81087e-03_rb, &\n        & 0.97728e-03_rb,0.11419e-02_rb,0.12991e-02_rb,0.15121e-02_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.89060e-06_rb,0.29417e-03_rb,0.50967e-03_rb,0.70759e-03_rb,0.90203e-03_rb, &\n        & 0.10920e-02_rb,0.12764e-02_rb,0.14544e-02_rb,0.16795e-02_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.82720e-06_rb,0.32361e-03_rb,0.56124e-03_rb,0.78299e-03_rb,0.99718e-03_rb, &\n        & 0.12094e-02_rb,0.14172e-02_rb,0.16165e-02_rb,0.18637e-02_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.78842e-06_rb,0.35495e-03_rb,0.61684e-03_rb,0.86176e-03_rb,0.10995e-02_rb, &\n        & 0.13345e-02_rb,0.15652e-02_rb,0.17856e-02_rb,0.20621e-02_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.76610e-06_rb,0.38728e-03_rb,0.67538e-03_rb,0.94613e-03_rb,0.12082e-02_rb, &\n        & 0.14675e-02_rb,0.17206e-02_rb,0.19640e-02_rb,0.22720e-02_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.79663e-06_rb,0.21369e-03_rb,0.37088e-03_rb,0.51222e-03_rb,0.64549e-03_rb, &\n        & 0.77322e-03_rb,0.89939e-03_rb,0.10205e-02_rb,0.11568e-02_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.75955e-06_rb,0.23780e-03_rb,0.41153e-03_rb,0.56901e-03_rb,0.72009e-03_rb, &\n        & 0.86735e-03_rb,0.10092e-02_rb,0.11476e-02_rb,0.12913e-02_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.71692e-06_rb,0.26276e-03_rb,0.45488e-03_rb,0.62922e-03_rb,0.79836e-03_rb, &\n        & 0.96259e-03_rb,0.11236e-02_rb,0.12796e-02_rb,0.14398e-02_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.66348e-06_rb,0.28896e-03_rb,0.50221e-03_rb,0.69411e-03_rb,0.88226e-03_rb, &\n        & 0.10658e-02_rb,0.12456e-02_rb,0.14191e-02_rb,0.15991e-02_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.64013e-06_rb,0.31643e-03_rb,0.55166e-03_rb,0.76434e-03_rb,0.97216e-03_rb, &\n        & 0.11745e-02_rb,0.13731e-02_rb,0.15657e-02_rb,0.17671e-02_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.66217e-06_rb,0.16966e-03_rb,0.29358e-03_rb,0.40688e-03_rb,0.51114e-03_rb, &\n        & 0.60739e-03_rb,0.70191e-03_rb,0.79446e-03_rb,0.88832e-03_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.64111e-06_rb,0.18902e-03_rb,0.32742e-03_rb,0.45364e-03_rb,0.57086e-03_rb, &\n        & 0.68401e-03_rb,0.79116e-03_rb,0.89507e-03_rb,0.99655e-03_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.60729e-06_rb,0.21007e-03_rb,0.36354e-03_rb,0.50354e-03_rb,0.63459e-03_rb, &\n        & 0.76113e-03_rb,0.88473e-03_rb,0.10035e-02_rb,0.11163e-02_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.57250e-06_rb,0.23203e-03_rb,0.40245e-03_rb,0.55758e-03_rb,0.70295e-03_rb, &\n        & 0.84515e-03_rb,0.98379e-03_rb,0.11165e-02_rb,0.12444e-02_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.53524e-06_rb,0.25529e-03_rb,0.44399e-03_rb,0.61564e-03_rb,0.77626e-03_rb, &\n        & 0.93405e-03_rb,0.10892e-02_rb,0.12369e-02_rb,0.13795e-02_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.55112e-06_rb,0.13422e-03_rb,0.23166e-03_rb,0.32119e-03_rb,0.40265e-03_rb, &\n        & 0.47812e-03_rb,0.54797e-03_rb,0.61873e-03_rb,0.68912e-03_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.53669e-06_rb,0.14990e-03_rb,0.25949e-03_rb,0.35886e-03_rb,0.45239e-03_rb, &\n        & 0.53936e-03_rb,0.61894e-03_rb,0.69718e-03_rb,0.77732e-03_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.51495e-06_rb,0.16706e-03_rb,0.28960e-03_rb,0.40020e-03_rb,0.50461e-03_rb, &\n        & 0.60249e-03_rb,0.69677e-03_rb,0.78464e-03_rb,0.87334e-03_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.48633e-06_rb,0.18543e-03_rb,0.32159e-03_rb,0.44499e-03_rb,0.56095e-03_rb, &\n        & 0.67055e-03_rb,0.77575e-03_rb,0.87717e-03_rb,0.97694e-03_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.45162e-06_rb,0.20472e-03_rb,0.35591e-03_rb,0.49350e-03_rb,0.62163e-03_rb, &\n        & 0.74253e-03_rb,0.86247e-03_rb,0.97518e-03_rb,0.10864e-02_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.45055e-06_rb,0.10556e-03_rb,0.18176e-03_rb,0.25137e-03_rb,0.31438e-03_rb, &\n        & 0.37363e-03_rb,0.42759e-03_rb,0.47883e-03_rb,0.53437e-03_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.44502e-06_rb,0.11814e-03_rb,0.20383e-03_rb,0.28162e-03_rb,0.35547e-03_rb, &\n        & 0.42261e-03_rb,0.48340e-03_rb,0.54066e-03_rb,0.60352e-03_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.43066e-06_rb,0.13217e-03_rb,0.22836e-03_rb,0.31552e-03_rb,0.39762e-03_rb, &\n        & 0.47493e-03_rb,0.54543e-03_rb,0.61066e-03_rb,0.68176e-03_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.41116e-06_rb,0.14733e-03_rb,0.25472e-03_rb,0.35204e-03_rb,0.44334e-03_rb, &\n        & 0.52997e-03_rb,0.60966e-03_rb,0.68622e-03_rb,0.76607e-03_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.38748e-06_rb,0.16344e-03_rb,0.28281e-03_rb,0.39173e-03_rb,0.49305e-03_rb, &\n        & 0.58880e-03_rb,0.67954e-03_rb,0.76485e-03_rb,0.85401e-03_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.36582e-06_rb,0.82958e-04_rb,0.14210e-03_rb,0.19574e-03_rb,0.24440e-03_rb, &\n        & 0.29039e-03_rb,0.33281e-03_rb,0.37177e-03_rb,0.42178e-03_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.36707e-06_rb,0.92909e-04_rb,0.15977e-03_rb,0.22034e-03_rb,0.27742e-03_rb, &\n        & 0.32955e-03_rb,0.37727e-03_rb,0.41956e-03_rb,0.47859e-03_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.35787e-06_rb,0.10432e-03_rb,0.17930e-03_rb,0.24769e-03_rb,0.31155e-03_rb, &\n        & 0.37242e-03_rb,0.42699e-03_rb,0.47474e-03_rb,0.54083e-03_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.34482e-06_rb,0.11685e-03_rb,0.20055e-03_rb,0.27725e-03_rb,0.34866e-03_rb, &\n        & 0.41677e-03_rb,0.47903e-03_rb,0.53518e-03_rb,0.60812e-03_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.32598e-06_rb,0.13001e-03_rb,0.22341e-03_rb,0.30900e-03_rb,0.38919e-03_rb, &\n        & 0.46465e-03_rb,0.53467e-03_rb,0.59926e-03_rb,0.67733e-03_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.29834e-06_rb,0.65009e-04_rb,0.11183e-03_rb,0.15200e-03_rb,0.18969e-03_rb, &\n        & 0.22517e-03_rb,0.25832e-03_rb,0.28730e-03_rb,0.33955e-03_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.29745e-06_rb,0.72872e-04_rb,0.12482e-03_rb,0.17221e-03_rb,0.21583e-03_rb, &\n        & 0.25596e-03_rb,0.29328e-03_rb,0.32520e-03_rb,0.38620e-03_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.29421e-06_rb,0.82036e-04_rb,0.14010e-03_rb,0.19344e-03_rb,0.24362e-03_rb, &\n        & 0.29071e-03_rb,0.33308e-03_rb,0.36867e-03_rb,0.43901e-03_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.28596e-06_rb,0.92256e-04_rb,0.15738e-03_rb,0.21752e-03_rb,0.27325e-03_rb, &\n        & 0.32643e-03_rb,0.37578e-03_rb,0.41710e-03_rb,0.49358e-03_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.27296e-06_rb,0.10320e-03_rb,0.17598e-03_rb,0.24339e-03_rb,0.30591e-03_rb, &\n        & 0.36505e-03_rb,0.42061e-03_rb,0.46872e-03_rb,0.54993e-03_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.24259e-06_rb,0.50626e-04_rb,0.86945e-04_rb,0.11778e-03_rb,0.14692e-03_rb, &\n        & 0.17431e-03_rb,0.20057e-03_rb,0.22131e-03_rb,0.29919e-03_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.24058e-06_rb,0.56966e-04_rb,0.97467e-04_rb,0.13405e-03_rb,0.16750e-03_rb, &\n        & 0.19814e-03_rb,0.22739e-03_rb,0.25281e-03_rb,0.34022e-03_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.24091e-06_rb,0.64324e-04_rb,0.10971e-03_rb,0.15061e-03_rb,0.18996e-03_rb, &\n        & 0.22580e-03_rb,0.25885e-03_rb,0.28694e-03_rb,0.38045e-03_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.23550e-06_rb,0.72451e-04_rb,0.12345e-03_rb,0.16991e-03_rb,0.21362e-03_rb, &\n        & 0.25484e-03_rb,0.29341e-03_rb,0.32523e-03_rb,0.42836e-03_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.22696e-06_rb,0.81351e-04_rb,0.13839e-03_rb,0.19090e-03_rb,0.23986e-03_rb, &\n        & 0.28608e-03_rb,0.32910e-03_rb,0.36639e-03_rb,0.47925e-03_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.19679e-06_rb,0.39760e-04_rb,0.68052e-04_rb,0.92295e-04_rb,0.11498e-03_rb, &\n        & 0.13656e-03_rb,0.15604e-03_rb,0.17171e-03_rb,0.29679e-03_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.19567e-06_rb,0.44847e-04_rb,0.76829e-04_rb,0.10518e-03_rb,0.13102e-03_rb, &\n        & 0.15509e-03_rb,0.17764e-03_rb,0.19843e-03_rb,0.32863e-03_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.19574e-06_rb,0.50565e-04_rb,0.86466e-04_rb,0.11878e-03_rb,0.14920e-03_rb, &\n        & 0.17698e-03_rb,0.20258e-03_rb,0.22526e-03_rb,0.36959e-03_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.19262e-06_rb,0.57124e-04_rb,0.97546e-04_rb,0.13398e-03_rb,0.16803e-03_rb, &\n        & 0.20046e-03_rb,0.23022e-03_rb,0.25578e-03_rb,0.41543e-03_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.18747e-06_rb,0.64264e-04_rb,0.10971e-03_rb,0.15086e-03_rb,0.18923e-03_rb, &\n        & 0.22565e-03_rb,0.25934e-03_rb,0.28921e-03_rb,0.46463e-03_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.16015e-06_rb,0.33025e-04_rb,0.56562e-04_rb,0.76625e-04_rb,0.95645e-04_rb, &\n        & 0.11358e-03_rb,0.12955e-03_rb,0.14269e-03_rb,0.27545e-03_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.15918e-06_rb,0.37148e-04_rb,0.63775e-04_rb,0.87600e-04_rb,0.10897e-03_rb, &\n        & 0.12893e-03_rb,0.14756e-03_rb,0.16465e-03_rb,0.30799e-03_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.15897e-06_rb,0.41993e-04_rb,0.72040e-04_rb,0.98928e-04_rb,0.12433e-03_rb, &\n        & 0.14733e-03_rb,0.16824e-03_rb,0.18694e-03_rb,0.34340e-03_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.15578e-06_rb,0.47441e-04_rb,0.81426e-04_rb,0.11165e-03_rb,0.13985e-03_rb, &\n        & 0.16673e-03_rb,0.19156e-03_rb,0.21268e-03_rb,0.38176e-03_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.15210e-06_rb,0.53398e-04_rb,0.91657e-04_rb,0.12592e-03_rb,0.15769e-03_rb, &\n        & 0.18781e-03_rb,0.21569e-03_rb,0.24069e-03_rb,0.42228e-03_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.13021e-06_rb,0.27272e-04_rb,0.46832e-04_rb,0.63511e-04_rb,0.79205e-04_rb, &\n        & 0.93949e-04_rb,0.10719e-03_rb,0.11827e-03_rb,0.23944e-03_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.12930e-06_rb,0.30686e-04_rb,0.52925e-04_rb,0.72782e-04_rb,0.90527e-04_rb, &\n        & 0.10708e-03_rb,0.12236e-03_rb,0.13620e-03_rb,0.27121e-03_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.12900e-06_rb,0.34723e-04_rb,0.59867e-04_rb,0.82205e-04_rb,0.10326e-03_rb, &\n        & 0.12238e-03_rb,0.13958e-03_rb,0.15498e-03_rb,0.29930e-03_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.12648e-06_rb,0.39252e-04_rb,0.67618e-04_rb,0.92949e-04_rb,0.11636e-03_rb, &\n        & 0.13835e-03_rb,0.15924e-03_rb,0.17653e-03_rb,0.33050e-03_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.12299e-06_rb,0.44213e-04_rb,0.76244e-04_rb,0.10488e-03_rb,0.13135e-03_rb, &\n        & 0.15601e-03_rb,0.17902e-03_rb,0.19976e-03_rb,0.36579e-03_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.10554e-06_rb,0.22388e-04_rb,0.38597e-04_rb,0.52378e-04_rb,0.65404e-04_rb, &\n        & 0.77567e-04_rb,0.88543e-04_rb,0.97801e-04_rb,0.19599e-03_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.10480e-06_rb,0.25181e-04_rb,0.43670e-04_rb,0.60205e-04_rb,0.74883e-04_rb, &\n        & 0.88605e-04_rb,0.10117e-03_rb,0.11242e-03_rb,0.22146e-03_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.10429e-06_rb,0.28530e-04_rb,0.49422e-04_rb,0.68039e-04_rb,0.85435e-04_rb, &\n        & 0.10136e-03_rb,0.11557e-03_rb,0.12828e-03_rb,0.24447e-03_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.10232e-06_rb,0.32301e-04_rb,0.55797e-04_rb,0.76948e-04_rb,0.96447e-04_rb, &\n        & 0.11462e-03_rb,0.13166e-03_rb,0.14616e-03_rb,0.26999e-03_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.99014e-07_rb,0.36394e-04_rb,0.62994e-04_rb,0.86946e-04_rb,0.10900e-03_rb, &\n        & 0.12937e-03_rb,0.14833e-03_rb,0.16540e-03_rb,0.29916e-03_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.23488e-04_rb,0.16684e-02_rb,0.29575e-02_rb,0.40083e-02_rb,0.49953e-02_rb, &\n        & 0.59021e-02_rb,0.67446e-02_rb,0.76008e-02_rb,0.87032e-02_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.25156e-04_rb,0.18462e-02_rb,0.32711e-02_rb,0.45008e-02_rb,0.56182e-02_rb, &\n        & 0.66287e-02_rb,0.75909e-02_rb,0.85558e-02_rb,0.97543e-02_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.27084e-04_rb,0.20325e-02_rb,0.36034e-02_rb,0.49992e-02_rb,0.62796e-02_rb, &\n        & 0.74134e-02_rb,0.84994e-02_rb,0.95694e-02_rb,0.10847e-01_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.28147e-04_rb,0.22347e-02_rb,0.39628e-02_rb,0.55005e-02_rb,0.69453e-02_rb, &\n        & 0.82429e-02_rb,0.94699e-02_rb,0.10660e-01_rb,0.11991e-01_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.28719e-04_rb,0.24475e-02_rb,0.43369e-02_rb,0.60360e-02_rb,0.76183e-02_rb, &\n        & 0.90878e-02_rb,0.10493e-01_rb,0.11805e-01_rb,0.13204e-01_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.20947e-04_rb,0.14015e-02_rb,0.24728e-02_rb,0.33676e-02_rb,0.41801e-02_rb, &\n        & 0.49244e-02_rb,0.55787e-02_rb,0.62206e-02_rb,0.69741e-02_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.22352e-04_rb,0.15535e-02_rb,0.27396e-02_rb,0.37870e-02_rb,0.47121e-02_rb, &\n        & 0.55571e-02_rb,0.62892e-02_rb,0.70132e-02_rb,0.78092e-02_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.23882e-04_rb,0.17213e-02_rb,0.30345e-02_rb,0.42020e-02_rb,0.52782e-02_rb, &\n        & 0.62285e-02_rb,0.70556e-02_rb,0.78819e-02_rb,0.87330e-02_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.24650e-04_rb,0.18954e-02_rb,0.33384e-02_rb,0.46336e-02_rb,0.58333e-02_rb, &\n        & 0.69311e-02_rb,0.78751e-02_rb,0.88149e-02_rb,0.96911e-02_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.25136e-04_rb,0.20806e-02_rb,0.36641e-02_rb,0.50966e-02_rb,0.64193e-02_rb, &\n        & 0.76281e-02_rb,0.87403e-02_rb,0.97943e-02_rb,0.10704e-01_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.17720e-04_rb,0.11414e-02_rb,0.20045e-02_rb,0.27288e-02_rb,0.33891e-02_rb, &\n        & 0.39755e-02_rb,0.44967e-02_rb,0.49389e-02_rb,0.53858e-02_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.19087e-04_rb,0.12745e-02_rb,0.22336e-02_rb,0.30841e-02_rb,0.38333e-02_rb, &\n        & 0.44983e-02_rb,0.50895e-02_rb,0.55930e-02_rb,0.60666e-02_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.20125e-04_rb,0.14178e-02_rb,0.24795e-02_rb,0.34278e-02_rb,0.43106e-02_rb, &\n        & 0.50607e-02_rb,0.57280e-02_rb,0.63092e-02_rb,0.68285e-02_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.20895e-04_rb,0.15666e-02_rb,0.27348e-02_rb,0.37934e-02_rb,0.47769e-02_rb, &\n        & 0.56621e-02_rb,0.64046e-02_rb,0.70864e-02_rb,0.76026e-02_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.21508e-04_rb,0.17251e-02_rb,0.30153e-02_rb,0.41809e-02_rb,0.52689e-02_rb, &\n        & 0.62462e-02_rb,0.71125e-02_rb,0.79104e-02_rb,0.84389e-02_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.14661e-04_rb,0.92261e-03_rb,0.16088e-02_rb,0.21788e-02_rb,0.26956e-02_rb, &\n        & 0.31612e-02_rb,0.35626e-02_rb,0.38878e-02_rb,0.41525e-02_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.15607e-04_rb,0.10329e-02_rb,0.17973e-02_rb,0.24735e-02_rb,0.30696e-02_rb, &\n        & 0.35953e-02_rb,0.40511e-02_rb,0.44162e-02_rb,0.46990e-02_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.16559e-04_rb,0.11550e-02_rb,0.20019e-02_rb,0.27577e-02_rb,0.34625e-02_rb, &\n        & 0.40662e-02_rb,0.45831e-02_rb,0.49995e-02_rb,0.53073e-02_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.17263e-04_rb,0.12794e-02_rb,0.22184e-02_rb,0.30614e-02_rb,0.38510e-02_rb, &\n        & 0.45664e-02_rb,0.51532e-02_rb,0.56290e-02_rb,0.59436e-02_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.17895e-04_rb,0.14130e-02_rb,0.24526e-02_rb,0.33805e-02_rb,0.42622e-02_rb, &\n        & 0.50556e-02_rb,0.57489e-02_rb,0.63094e-02_rb,0.66256e-02_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.11885e-04_rb,0.74888e-03_rb,0.12826e-02_rb,0.17258e-02_rb,0.21346e-02_rb, &\n        & 0.24972e-02_rb,0.28046e-02_rb,0.30606e-02_rb,0.32323e-02_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.12452e-04_rb,0.84084e-03_rb,0.14380e-02_rb,0.19698e-02_rb,0.24386e-02_rb, &\n        & 0.28536e-02_rb,0.32075e-02_rb,0.34937e-02_rb,0.36562e-02_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.13439e-04_rb,0.94272e-03_rb,0.16065e-02_rb,0.22079e-02_rb,0.27660e-02_rb, &\n        & 0.32389e-02_rb,0.36440e-02_rb,0.39673e-02_rb,0.41393e-02_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.14053e-04_rb,0.10473e-02_rb,0.17899e-02_rb,0.24603e-02_rb,0.30861e-02_rb, &\n        & 0.36521e-02_rb,0.41156e-02_rb,0.44825e-02_rb,0.46529e-02_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.14586e-04_rb,0.11585e-02_rb,0.19886e-02_rb,0.27257e-02_rb,0.34272e-02_rb, &\n        & 0.40599e-02_rb,0.46115e-02_rb,0.50286e-02_rb,0.52085e-02_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.94872e-05_rb,0.59793e-03_rb,0.10210e-02_rb,0.13572e-02_rb,0.16716e-02_rb, &\n        & 0.19512e-02_rb,0.21890e-02_rb,0.23827e-02_rb,0.25347e-02_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.10060e-04_rb,0.67400e-03_rb,0.11432e-02_rb,0.15564e-02_rb,0.19188e-02_rb, &\n        & 0.22389e-02_rb,0.25161e-02_rb,0.27308e-02_rb,0.28770e-02_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.10743e-04_rb,0.75948e-03_rb,0.12806e-02_rb,0.17551e-02_rb,0.21862e-02_rb, &\n        & 0.25545e-02_rb,0.28729e-02_rb,0.31149e-02_rb,0.32716e-02_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.11322e-04_rb,0.85134e-03_rb,0.14320e-02_rb,0.19630e-02_rb,0.24514e-02_rb, &\n        & 0.28930e-02_rb,0.32578e-02_rb,0.35375e-02_rb,0.36912e-02_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.11755e-04_rb,0.94611e-03_rb,0.15986e-02_rb,0.21804e-02_rb,0.27291e-02_rb, &\n        & 0.32306e-02_rb,0.36695e-02_rb,0.39913e-02_rb,0.41439e-02_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.75931e-05_rb,0.47130e-03_rb,0.81211e-03_rb,0.10658e-02_rb,0.13004e-02_rb, &\n        & 0.15175e-02_rb,0.17002e-02_rb,0.18473e-02_rb,0.19861e-02_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.80724e-05_rb,0.53358e-03_rb,0.91163e-03_rb,0.12261e-02_rb,0.15014e-02_rb, &\n        & 0.17483e-02_rb,0.19612e-02_rb,0.21201e-02_rb,0.22591e-02_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.84404e-05_rb,0.60517e-03_rb,0.10236e-02_rb,0.13887e-02_rb,0.17204e-02_rb, &\n        & 0.20031e-02_rb,0.22497e-02_rb,0.24321e-02_rb,0.25823e-02_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.90511e-05_rb,0.68037e-03_rb,0.11475e-02_rb,0.15596e-02_rb,0.19402e-02_rb, &\n        & 0.22789e-02_rb,0.25633e-02_rb,0.27753e-02_rb,0.29247e-02_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.94405e-05_rb,0.76103e-03_rb,0.12836e-02_rb,0.17422e-02_rb,0.21698e-02_rb, &\n        & 0.25585e-02_rb,0.28989e-02_rb,0.31444e-02_rb,0.33016e-02_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.58080e-05_rb,0.36782e-03_rb,0.63516e-03_rb,0.83799e-03_rb,0.10119e-02_rb, &\n        & 0.11754e-02_rb,0.13161e-02_rb,0.14382e-02_rb,0.15837e-02_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.63156e-05_rb,0.41909e-03_rb,0.71974e-03_rb,0.96952e-03_rb,0.11711e-02_rb, &\n        & 0.13617e-02_rb,0.15234e-02_rb,0.16441e-02_rb,0.18118e-02_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.66776e-05_rb,0.47829e-03_rb,0.81150e-03_rb,0.11056e-02_rb,0.13493e-02_rb, &\n        & 0.15646e-02_rb,0.17524e-02_rb,0.18937e-02_rb,0.20698e-02_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.70582e-05_rb,0.54017e-03_rb,0.91330e-03_rb,0.12434e-02_rb,0.15411e-02_rb, &\n        & 0.17884e-02_rb,0.20057e-02_rb,0.21704e-02_rb,0.23548e-02_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.74902e-05_rb,0.60717e-03_rb,0.10267e-02_rb,0.13908e-02_rb,0.17231e-02_rb, &\n        & 0.20285e-02_rb,0.22810e-02_rb,0.24710e-02_rb,0.26631e-02_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.45061e-05_rb,0.28626e-03_rb,0.49448e-03_rb,0.65317e-03_rb,0.79081e-03_rb, &\n        & 0.91066e-03_rb,0.10182e-02_rb,0.11107e-02_rb,0.14592e-02_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.49392e-05_rb,0.32734e-03_rb,0.56558e-03_rb,0.76077e-03_rb,0.91846e-03_rb, &\n        & 0.10578e-02_rb,0.11776e-02_rb,0.12720e-02_rb,0.16778e-02_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.52580e-05_rb,0.37522e-03_rb,0.63845e-03_rb,0.87805e-03_rb,0.10619e-02_rb, &\n        & 0.12194e-02_rb,0.13606e-02_rb,0.14680e-02_rb,0.19259e-02_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.54991e-05_rb,0.42659e-03_rb,0.72103e-03_rb,0.98756e-03_rb,0.12163e-02_rb, &\n        & 0.14007e-02_rb,0.15647e-02_rb,0.16900e-02_rb,0.21772e-02_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.58769e-05_rb,0.48199e-03_rb,0.81466e-03_rb,0.11072e-02_rb,0.13684e-02_rb, &\n        & 0.15984e-02_rb,0.17887e-02_rb,0.19333e-02_rb,0.24331e-02_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.34154e-05_rb,0.22534e-03_rb,0.38788e-03_rb,0.51113e-03_rb,0.62194e-03_rb, &\n        & 0.71432e-03_rb,0.79743e-03_rb,0.86289e-03_rb,0.14758e-02_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.38085e-05_rb,0.25832e-03_rb,0.44748e-03_rb,0.59835e-03_rb,0.72514e-03_rb, &\n        & 0.83284e-03_rb,0.91941e-03_rb,0.99583e-03_rb,0.17358e-02_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.41578e-05_rb,0.29655e-03_rb,0.50553e-03_rb,0.69511e-03_rb,0.84107e-03_rb, &\n        & 0.96374e-03_rb,0.10666e-02_rb,0.11478e-02_rb,0.19625e-02_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.43917e-05_rb,0.33908e-03_rb,0.57351e-03_rb,0.78640e-03_rb,0.96862e-03_rb, &\n        & 0.11109e-02_rb,0.12309e-02_rb,0.13266e-02_rb,0.22103e-02_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.45446e-05_rb,0.38548e-03_rb,0.64883e-03_rb,0.88401e-03_rb,0.10952e-02_rb, &\n        & 0.12706e-02_rb,0.14136e-02_rb,0.15239e-02_rb,0.24754e-02_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.27604e-05_rb,0.18848e-03_rb,0.32532e-03_rb,0.42949e-03_rb,0.52350e-03_rb, &\n        & 0.60084e-03_rb,0.66640e-03_rb,0.72070e-03_rb,0.13692e-02_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.30908e-05_rb,0.21679e-03_rb,0.37259e-03_rb,0.50366e-03_rb,0.61074e-03_rb, &\n        & 0.70158e-03_rb,0.77271e-03_rb,0.83037e-03_rb,0.15689e-02_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.33674e-05_rb,0.24965e-03_rb,0.42244e-03_rb,0.58353e-03_rb,0.70923e-03_rb, &\n        & 0.81330e-03_rb,0.89750e-03_rb,0.96131e-03_rb,0.17971e-02_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.35568e-05_rb,0.28602e-03_rb,0.48044e-03_rb,0.65868e-03_rb,0.81816e-03_rb, &\n        & 0.93857e-03_rb,0.10357e-02_rb,0.11119e-02_rb,0.20509e-02_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.36921e-05_rb,0.32484e-03_rb,0.54623e-03_rb,0.74475e-03_rb,0.92307e-03_rb, &\n        & 0.10758e-02_rb,0.11895e-02_rb,0.12777e-02_rb,0.23253e-02_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.22272e-05_rb,0.15807e-03_rb,0.27163e-03_rb,0.35935e-03_rb,0.43781e-03_rb, &\n        & 0.50321e-03_rb,0.55776e-03_rb,0.60046e-03_rb,0.11852e-02_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.24898e-05_rb,0.18201e-03_rb,0.31004e-03_rb,0.42206e-03_rb,0.51226e-03_rb, &\n        & 0.58824e-03_rb,0.64919e-03_rb,0.69291e-03_rb,0.13623e-02_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.27021e-05_rb,0.20958e-03_rb,0.35322e-03_rb,0.48676e-03_rb,0.59587e-03_rb, &\n        & 0.68364e-03_rb,0.75527e-03_rb,0.80436e-03_rb,0.15654e-02_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.28526e-05_rb,0.24038e-03_rb,0.40262e-03_rb,0.55096e-03_rb,0.68671e-03_rb, &\n        & 0.79103e-03_rb,0.87211e-03_rb,0.93124e-03_rb,0.17898e-02_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.29899e-05_rb,0.27289e-03_rb,0.45904e-03_rb,0.62448e-03_rb,0.77496e-03_rb, &\n        & 0.90212e-03_rb,0.10018e-02_rb,0.10706e-02_rb,0.20265e-02_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.17576e-05_rb,0.13151e-03_rb,0.22518e-03_rb,0.29890e-03_rb,0.36398e-03_rb, &\n        & 0.41884e-03_rb,0.46505e-03_rb,0.50086e-03_rb,0.97916e-03_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.19524e-05_rb,0.15189e-03_rb,0.25686e-03_rb,0.35123e-03_rb,0.42723e-03_rb, &\n        & 0.49061e-03_rb,0.54293e-03_rb,0.57815e-03_rb,0.11260e-02_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.21134e-05_rb,0.17558e-03_rb,0.29382e-03_rb,0.40457e-03_rb,0.49777e-03_rb, &\n        & 0.57153e-03_rb,0.63185e-03_rb,0.67213e-03_rb,0.12960e-02_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.22681e-05_rb,0.20106e-03_rb,0.33583e-03_rb,0.45977e-03_rb,0.57094e-03_rb, &\n        & 0.66275e-03_rb,0.73149e-03_rb,0.77799e-03_rb,0.14856e-02_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.23940e-05_rb,0.22853e-03_rb,0.38323e-03_rb,0.52126e-03_rb,0.64684e-03_rb, &\n        & 0.75455e-03_rb,0.84115e-03_rb,0.89575e-03_rb,0.16816e-02_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.87154e-04_rb,0.70456e-02_rb,0.11624e-01_rb,0.16007e-01_rb,0.20277e-01_rb, &\n        & 0.24349e-01_rb,0.27902e-01_rb,0.30956e-01_rb,0.33159e-01_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.92678e-04_rb,0.75324e-02_rb,0.12552e-01_rb,0.17444e-01_rb,0.21967e-01_rb, &\n        & 0.26250e-01_rb,0.30241e-01_rb,0.33348e-01_rb,0.36164e-01_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.97955e-04_rb,0.80153e-02_rb,0.13502e-01_rb,0.18812e-01_rb,0.23862e-01_rb, &\n        & 0.28480e-01_rb,0.32511e-01_rb,0.35713e-01_rb,0.38349e-01_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.10404e-03_rb,0.84724e-02_rb,0.14429e-01_rb,0.20136e-01_rb,0.25672e-01_rb, &\n        & 0.30688e-01_rb,0.35011e-01_rb,0.38379e-01_rb,0.40673e-01_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.11110e-03_rb,0.89123e-02_rb,0.15343e-01_rb,0.21479e-01_rb,0.27290e-01_rb, &\n        & 0.32751e-01_rb,0.37455e-01_rb,0.40931e-01_rb,0.42463e-01_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.73214e-04_rb,0.61410e-02_rb,0.10125e-01_rb,0.13650e-01_rb,0.17158e-01_rb, &\n        & 0.20627e-01_rb,0.23628e-01_rb,0.26251e-01_rb,0.27481e-01_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.77936e-04_rb,0.65751e-02_rb,0.10966e-01_rb,0.14877e-01_rb,0.18693e-01_rb, &\n        & 0.22272e-01_rb,0.25630e-01_rb,0.28395e-01_rb,0.29894e-01_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.83061e-04_rb,0.69828e-02_rb,0.11774e-01_rb,0.16068e-01_rb,0.20317e-01_rb, &\n        & 0.24244e-01_rb,0.27748e-01_rb,0.30432e-01_rb,0.31851e-01_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.88564e-04_rb,0.73985e-02_rb,0.12581e-01_rb,0.17226e-01_rb,0.21842e-01_rb, &\n        & 0.26177e-01_rb,0.29969e-01_rb,0.32748e-01_rb,0.33805e-01_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.94933e-04_rb,0.77988e-02_rb,0.13372e-01_rb,0.18367e-01_rb,0.23323e-01_rb, &\n        & 0.27928e-01_rb,0.31964e-01_rb,0.35013e-01_rb,0.35327e-01_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.60947e-04_rb,0.52436e-02_rb,0.86174e-02_rb,0.11520e-01_rb,0.14231e-01_rb, &\n        & 0.17027e-01_rb,0.19469e-01_rb,0.21634e-01_rb,0.21981e-01_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.64921e-04_rb,0.55975e-02_rb,0.93512e-02_rb,0.12526e-01_rb,0.15516e-01_rb, &\n        & 0.18471e-01_rb,0.21270e-01_rb,0.23512e-01_rb,0.24114e-01_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.69521e-04_rb,0.59648e-02_rb,0.10060e-01_rb,0.13582e-01_rb,0.16903e-01_rb, &\n        & 0.20177e-01_rb,0.23055e-01_rb,0.25380e-01_rb,0.25822e-01_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.74348e-04_rb,0.63104e-02_rb,0.10767e-01_rb,0.14599e-01_rb,0.18273e-01_rb, &\n        & 0.21836e-01_rb,0.24984e-01_rb,0.27358e-01_rb,0.27450e-01_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.79780e-04_rb,0.66671e-02_rb,0.11458e-01_rb,0.15590e-01_rb,0.19579e-01_rb, &\n        & 0.23358e-01_rb,0.26806e-01_rb,0.29335e-01_rb,0.28786e-01_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.50799e-04_rb,0.44148e-02_rb,0.72225e-02_rb,0.96483e-02_rb,0.11767e-01_rb, &\n        & 0.13828e-01_rb,0.15844e-01_rb,0.17588e-01_rb,0.17391e-01_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.54227e-04_rb,0.47231e-02_rb,0.78527e-02_rb,0.10493e-01_rb,0.12835e-01_rb, &\n        & 0.15126e-01_rb,0.17466e-01_rb,0.19219e-01_rb,0.19351e-01_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.58151e-04_rb,0.50277e-02_rb,0.84823e-02_rb,0.11418e-01_rb,0.13969e-01_rb, &\n        & 0.16576e-01_rb,0.18903e-01_rb,0.20840e-01_rb,0.20853e-01_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.62433e-04_rb,0.53372e-02_rb,0.90813e-02_rb,0.12325e-01_rb,0.15163e-01_rb, &\n        & 0.17971e-01_rb,0.20590e-01_rb,0.22529e-01_rb,0.22273e-01_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.66852e-04_rb,0.56429e-02_rb,0.96836e-02_rb,0.13189e-01_rb,0.16280e-01_rb, &\n        & 0.19312e-01_rb,0.22136e-01_rb,0.24263e-01_rb,0.23466e-01_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.42593e-04_rb,0.36760e-02_rb,0.59913e-02_rb,0.79812e-02_rb,0.97729e-02_rb, &\n        & 0.11265e-01_rb,0.12874e-01_rb,0.14150e-01_rb,0.13651e-01_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.45779e-04_rb,0.39344e-02_rb,0.65401e-02_rb,0.87030e-02_rb,0.10650e-01_rb, &\n        & 0.12374e-01_rb,0.14135e-01_rb,0.15529e-01_rb,0.15507e-01_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.48868e-04_rb,0.42013e-02_rb,0.70859e-02_rb,0.94912e-02_rb,0.11609e-01_rb, &\n        & 0.13557e-01_rb,0.15381e-01_rb,0.16993e-01_rb,0.16785e-01_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.52509e-04_rb,0.44674e-02_rb,0.76022e-02_rb,0.10271e-01_rb,0.12630e-01_rb, &\n        & 0.14736e-01_rb,0.16830e-01_rb,0.18387e-01_rb,0.18040e-01_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.56196e-04_rb,0.47381e-02_rb,0.81005e-02_rb,0.11026e-01_rb,0.13586e-01_rb, &\n        & 0.15940e-01_rb,0.18160e-01_rb,0.19920e-01_rb,0.19092e-01_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.36112e-04_rb,0.30316e-02_rb,0.49038e-02_rb,0.65325e-02_rb,0.79606e-02_rb, &\n        & 0.91706e-02_rb,0.10285e-01_rb,0.11252e-01_rb,0.10556e-01_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.38502e-04_rb,0.32575e-02_rb,0.53855e-02_rb,0.71302e-02_rb,0.87200e-02_rb, &\n        & 0.10138e-01_rb,0.11319e-01_rb,0.12504e-01_rb,0.12109e-01_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.41070e-04_rb,0.34869e-02_rb,0.58643e-02_rb,0.78020e-02_rb,0.95232e-02_rb, &\n        & 0.11081e-01_rb,0.12413e-01_rb,0.13700e-01_rb,0.13350e-01_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.44034e-04_rb,0.37142e-02_rb,0.62924e-02_rb,0.84867e-02_rb,0.10400e-01_rb, &\n        & 0.12091e-01_rb,0.13614e-01_rb,0.14850e-01_rb,0.14396e-01_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.47021e-04_rb,0.39387e-02_rb,0.67171e-02_rb,0.91319e-02_rb,0.11231e-01_rb, &\n        & 0.13129e-01_rb,0.14745e-01_rb,0.16155e-01_rb,0.15392e-01_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.30001e-04_rb,0.24884e-02_rb,0.39787e-02_rb,0.53262e-02_rb,0.64254e-02_rb, &\n        & 0.74422e-02_rb,0.82418e-02_rb,0.87651e-02_rb,0.83241e-02_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.32067e-04_rb,0.26831e-02_rb,0.43873e-02_rb,0.58009e-02_rb,0.70881e-02_rb, &\n        & 0.82303e-02_rb,0.91115e-02_rb,0.99530e-02_rb,0.95843e-02_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.34414e-04_rb,0.28762e-02_rb,0.47981e-02_rb,0.63650e-02_rb,0.77555e-02_rb, &\n        & 0.90130e-02_rb,0.10051e-01_rb,0.10944e-01_rb,0.10687e-01_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.36543e-04_rb,0.30749e-02_rb,0.51697e-02_rb,0.69549e-02_rb,0.84939e-02_rb, &\n        & 0.98621e-02_rb,0.11012e-01_rb,0.11950e-01_rb,0.11596e-01_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.38986e-04_rb,0.32672e-02_rb,0.55268e-02_rb,0.74950e-02_rb,0.92206e-02_rb, &\n        & 0.10750e-01_rb,0.11970e-01_rb,0.13029e-01_rb,0.12461e-01_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.24718e-04_rb,0.20304e-02_rb,0.32253e-02_rb,0.42957e-02_rb,0.51621e-02_rb, &\n        & 0.59477e-02_rb,0.65543e-02_rb,0.67901e-02_rb,0.66578e-02_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.26226e-04_rb,0.22027e-02_rb,0.35528e-02_rb,0.46844e-02_rb,0.57463e-02_rb, &\n        & 0.66070e-02_rb,0.73566e-02_rb,0.79086e-02_rb,0.76807e-02_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.28095e-04_rb,0.23614e-02_rb,0.38960e-02_rb,0.51529e-02_rb,0.62773e-02_rb, &\n        & 0.72919e-02_rb,0.81475e-02_rb,0.87344e-02_rb,0.86509e-02_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.29856e-04_rb,0.25346e-02_rb,0.42180e-02_rb,0.56507e-02_rb,0.68867e-02_rb, &\n        & 0.79948e-02_rb,0.89169e-02_rb,0.96226e-02_rb,0.94212e-02_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.31432e-04_rb,0.26989e-02_rb,0.45288e-02_rb,0.61158e-02_rb,0.75231e-02_rb, &\n        & 0.87319e-02_rb,0.97447e-02_rb,0.10470e-01_rb,0.10172e-01_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.20151e-04_rb,0.16622e-02_rb,0.26102e-02_rb,0.34345e-02_rb,0.41518e-02_rb, &\n        & 0.47356e-02_rb,0.51198e-02_rb,0.52901e-02_rb,0.55608e-02_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.21290e-04_rb,0.18112e-02_rb,0.28622e-02_rb,0.37770e-02_rb,0.46098e-02_rb, &\n        & 0.52825e-02_rb,0.58719e-02_rb,0.62115e-02_rb,0.64287e-02_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.22604e-04_rb,0.19483e-02_rb,0.31536e-02_rb,0.41418e-02_rb,0.50513e-02_rb, &\n        & 0.58883e-02_rb,0.65199e-02_rb,0.70000e-02_rb,0.71641e-02_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.24039e-04_rb,0.20909e-02_rb,0.34321e-02_rb,0.45633e-02_rb,0.55575e-02_rb, &\n        & 0.64453e-02_rb,0.71800e-02_rb,0.77062e-02_rb,0.77821e-02_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.25275e-04_rb,0.22325e-02_rb,0.36976e-02_rb,0.49727e-02_rb,0.60945e-02_rb, &\n        & 0.70632e-02_rb,0.78696e-02_rb,0.84048e-02_rb,0.84571e-02_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.16520e-04_rb,0.13579e-02_rb,0.21217e-02_rb,0.27650e-02_rb,0.33209e-02_rb, &\n        & 0.37657e-02_rb,0.40263e-02_rb,0.41632e-02_rb,0.59019e-02_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.17307e-04_rb,0.14868e-02_rb,0.23230e-02_rb,0.30616e-02_rb,0.37000e-02_rb, &\n        & 0.42629e-02_rb,0.46958e-02_rb,0.48956e-02_rb,0.64729e-02_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.18210e-04_rb,0.16086e-02_rb,0.25635e-02_rb,0.33480e-02_rb,0.40827e-02_rb, &\n        & 0.47590e-02_rb,0.52424e-02_rb,0.56088e-02_rb,0.71072e-02_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.19263e-04_rb,0.17308e-02_rb,0.28038e-02_rb,0.37016e-02_rb,0.44933e-02_rb, &\n        & 0.52114e-02_rb,0.58224e-02_rb,0.62053e-02_rb,0.76445e-02_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.20450e-04_rb,0.18514e-02_rb,0.30286e-02_rb,0.40569e-02_rb,0.49417e-02_rb, &\n        & 0.57292e-02_rb,0.63809e-02_rb,0.68162e-02_rb,0.81800e-02_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.13743e-04_rb,0.11544e-02_rb,0.18005e-02_rb,0.23380e-02_rb,0.28127e-02_rb, &\n        & 0.32019e-02_rb,0.34184e-02_rb,0.35137e-02_rb,0.55132e-02_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.14314e-04_rb,0.12648e-02_rb,0.19811e-02_rb,0.25794e-02_rb,0.31283e-02_rb, &\n        & 0.35835e-02_rb,0.39635e-02_rb,0.41524e-02_rb,0.60640e-02_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.14980e-04_rb,0.13667e-02_rb,0.21846e-02_rb,0.28316e-02_rb,0.34390e-02_rb, &\n        & 0.40069e-02_rb,0.44283e-02_rb,0.47282e-02_rb,0.65662e-02_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.15843e-04_rb,0.14691e-02_rb,0.23844e-02_rb,0.31346e-02_rb,0.37915e-02_rb, &\n        & 0.43926e-02_rb,0.49108e-02_rb,0.52431e-02_rb,0.70521e-02_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.16801e-04_rb,0.15709e-02_rb,0.25738e-02_rb,0.34250e-02_rb,0.41781e-02_rb, &\n        & 0.48258e-02_rb,0.53776e-02_rb,0.57400e-02_rb,0.74913e-02_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.11265e-04_rb,0.97473e-03_rb,0.15190e-02_rb,0.19779e-02_rb,0.23708e-02_rb, &\n        & 0.27002e-02_rb,0.28954e-02_rb,0.29689e-02_rb,0.49052e-02_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.11703e-04_rb,0.10660e-02_rb,0.16806e-02_rb,0.21742e-02_rb,0.26370e-02_rb, &\n        & 0.30184e-02_rb,0.33461e-02_rb,0.35081e-02_rb,0.53515e-02_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.12275e-04_rb,0.11524e-02_rb,0.18532e-02_rb,0.24014e-02_rb,0.28932e-02_rb, &\n        & 0.33615e-02_rb,0.37332e-02_rb,0.39759e-02_rb,0.57806e-02_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.12963e-04_rb,0.12405e-02_rb,0.20200e-02_rb,0.26573e-02_rb,0.31978e-02_rb, &\n        & 0.36904e-02_rb,0.41225e-02_rb,0.44151e-02_rb,0.61956e-02_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.13696e-04_rb,0.13266e-02_rb,0.21814e-02_rb,0.28939e-02_rb,0.35284e-02_rb, &\n        & 0.40629e-02_rb,0.45191e-02_rb,0.48283e-02_rb,0.65800e-02_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.91179e-05_rb,0.81531e-03_rb,0.12754e-02_rb,0.16598e-02_rb,0.19900e-02_rb, &\n        & 0.22634e-02_rb,0.24441e-02_rb,0.24984e-02_rb,0.40576e-02_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.95039e-05_rb,0.89093e-03_rb,0.14150e-02_rb,0.18287e-02_rb,0.22143e-02_rb, &\n        & 0.25329e-02_rb,0.28092e-02_rb,0.29546e-02_rb,0.44374e-02_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.99762e-05_rb,0.96494e-03_rb,0.15625e-02_rb,0.20288e-02_rb,0.24319e-02_rb, &\n        & 0.28108e-02_rb,0.31373e-02_rb,0.33177e-02_rb,0.48094e-02_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.10509e-04_rb,0.10398e-02_rb,0.16996e-02_rb,0.22443e-02_rb,0.26925e-02_rb, &\n        & 0.30942e-02_rb,0.34481e-02_rb,0.37003e-02_rb,0.51550e-02_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.11033e-04_rb,0.11134e-02_rb,0.18372e-02_rb,0.24408e-02_rb,0.29682e-02_rb, &\n        & 0.34114e-02_rb,0.37859e-02_rb,0.40424e-02_rb,0.54893e-02_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.25564e-03_rb,0.23940e-01_rb,0.41535e-01_rb,0.56276e-01_rb,0.68561e-01_rb, &\n        & 0.78630e-01_rb,0.86993e-01_rb,0.91794e-01_rb,0.84229e-01_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.29194e-03_rb,0.25170e-01_rb,0.43659e-01_rb,0.59016e-01_rb,0.72302e-01_rb, &\n        & 0.83167e-01_rb,0.91739e-01_rb,0.96774e-01_rb,0.86838e-01_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.33934e-03_rb,0.26430e-01_rb,0.45835e-01_rb,0.61922e-01_rb,0.75614e-01_rb, &\n        & 0.87285e-01_rb,0.96606e-01_rb,0.10156e+00_rb,0.90084e-01_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.38871e-03_rb,0.27733e-01_rb,0.48058e-01_rb,0.64973e-01_rb,0.79090e-01_rb, &\n        & 0.91156e-01_rb,0.10084e+00_rb,0.10589e+00_rb,0.92583e-01_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.44473e-03_rb,0.29028e-01_rb,0.50287e-01_rb,0.68010e-01_rb,0.82805e-01_rb, &\n        & 0.95193e-01_rb,0.10492e+00_rb,0.10995e+00_rb,0.95419e-01_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.23400e-03_rb,0.20753e-01_rb,0.35742e-01_rb,0.48709e-01_rb,0.59548e-01_rb, &\n        & 0.68206e-01_rb,0.75045e-01_rb,0.78915e-01_rb,0.70180e-01_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.26775e-03_rb,0.21832e-01_rb,0.37611e-01_rb,0.51156e-01_rb,0.62768e-01_rb, &\n        & 0.72267e-01_rb,0.79422e-01_rb,0.83262e-01_rb,0.72735e-01_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.30033e-03_rb,0.22961e-01_rb,0.39618e-01_rb,0.53774e-01_rb,0.65773e-01_rb, &\n        & 0.75819e-01_rb,0.83532e-01_rb,0.87496e-01_rb,0.75459e-01_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.34366e-03_rb,0.24116e-01_rb,0.41597e-01_rb,0.56506e-01_rb,0.68944e-01_rb, &\n        & 0.79231e-01_rb,0.87245e-01_rb,0.91336e-01_rb,0.77669e-01_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.39179e-03_rb,0.25289e-01_rb,0.43575e-01_rb,0.59282e-01_rb,0.72132e-01_rb, &\n        & 0.82956e-01_rb,0.91038e-01_rb,0.94937e-01_rb,0.80272e-01_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.20730e-03_rb,0.18044e-01_rb,0.30227e-01_rb,0.41206e-01_rb,0.50626e-01_rb, &\n        & 0.58095e-01_rb,0.63725e-01_rb,0.66721e-01_rb,0.57780e-01_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.24007e-03_rb,0.18972e-01_rb,0.31883e-01_rb,0.43486e-01_rb,0.53572e-01_rb, &\n        & 0.61742e-01_rb,0.67489e-01_rb,0.70552e-01_rb,0.60009e-01_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.26931e-03_rb,0.19934e-01_rb,0.33681e-01_rb,0.45775e-01_rb,0.56255e-01_rb, &\n        & 0.64869e-01_rb,0.71254e-01_rb,0.74232e-01_rb,0.62350e-01_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.30064e-03_rb,0.20965e-01_rb,0.35448e-01_rb,0.48199e-01_rb,0.59036e-01_rb, &\n        & 0.67921e-01_rb,0.74594e-01_rb,0.77689e-01_rb,0.64410e-01_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.33967e-03_rb,0.21972e-01_rb,0.37192e-01_rb,0.50676e-01_rb,0.61884e-01_rb, &\n        & 0.71207e-01_rb,0.77888e-01_rb,0.80947e-01_rb,0.66667e-01_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.18201e-03_rb,0.15595e-01_rb,0.25372e-01_rb,0.34431e-01_rb,0.42401e-01_rb, &\n        & 0.48915e-01_rb,0.53613e-01_rb,0.55953e-01_rb,0.47727e-01_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.20883e-03_rb,0.16422e-01_rb,0.26851e-01_rb,0.36481e-01_rb,0.45074e-01_rb, &\n        & 0.52078e-01_rb,0.56860e-01_rb,0.59287e-01_rb,0.49553e-01_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.23874e-03_rb,0.17285e-01_rb,0.28425e-01_rb,0.38514e-01_rb,0.47542e-01_rb, &\n        & 0.54904e-01_rb,0.60284e-01_rb,0.62561e-01_rb,0.51595e-01_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.26707e-03_rb,0.18200e-01_rb,0.30007e-01_rb,0.40613e-01_rb,0.49982e-01_rb, &\n        & 0.57662e-01_rb,0.63231e-01_rb,0.65666e-01_rb,0.53450e-01_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.30102e-03_rb,0.19113e-01_rb,0.31552e-01_rb,0.42805e-01_rb,0.52535e-01_rb, &\n        & 0.60559e-01_rb,0.66195e-01_rb,0.68549e-01_rb,0.55415e-01_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.15801e-03_rb,0.13295e-01_rb,0.21524e-01_rb,0.28666e-01_rb,0.35142e-01_rb, &\n        & 0.40757e-01_rb,0.44715e-01_rb,0.46740e-01_rb,0.39384e-01_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.17994e-03_rb,0.14057e-01_rb,0.22786e-01_rb,0.30487e-01_rb,0.37563e-01_rb, &\n        & 0.43509e-01_rb,0.47676e-01_rb,0.49638e-01_rb,0.40849e-01_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.20535e-03_rb,0.14811e-01_rb,0.24116e-01_rb,0.32266e-01_rb,0.39764e-01_rb, &\n        & 0.46122e-01_rb,0.50669e-01_rb,0.52413e-01_rb,0.42683e-01_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.23511e-03_rb,0.15598e-01_rb,0.25481e-01_rb,0.34103e-01_rb,0.41924e-01_rb, &\n        & 0.48592e-01_rb,0.53283e-01_rb,0.55235e-01_rb,0.44335e-01_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.26640e-03_rb,0.16402e-01_rb,0.26844e-01_rb,0.36000e-01_rb,0.44180e-01_rb, &\n        & 0.51086e-01_rb,0.55918e-01_rb,0.57796e-01_rb,0.45991e-01_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.13805e-03_rb,0.11222e-01_rb,0.18125e-01_rb,0.23877e-01_rb,0.28939e-01_rb, &\n        & 0.33506e-01_rb,0.36944e-01_rb,0.38672e-01_rb,0.32335e-01_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.15439e-03_rb,0.11883e-01_rb,0.19262e-01_rb,0.25521e-01_rb,0.31068e-01_rb, &\n        & 0.35882e-01_rb,0.39589e-01_rb,0.41132e-01_rb,0.33684e-01_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.17561e-03_rb,0.12558e-01_rb,0.20409e-01_rb,0.27033e-01_rb,0.33056e-01_rb, &\n        & 0.38260e-01_rb,0.42155e-01_rb,0.43639e-01_rb,0.35175e-01_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.19967e-03_rb,0.13236e-01_rb,0.21628e-01_rb,0.28554e-01_rb,0.34939e-01_rb, &\n        & 0.40459e-01_rb,0.44550e-01_rb,0.46147e-01_rb,0.36643e-01_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.23117e-03_rb,0.13936e-01_rb,0.22836e-01_rb,0.30183e-01_rb,0.36909e-01_rb, &\n        & 0.42652e-01_rb,0.46864e-01_rb,0.48440e-01_rb,0.37992e-01_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.11987e-03_rb,0.93983e-02_rb,0.15130e-01_rb,0.19808e-01_rb,0.23796e-01_rb, &\n        & 0.27285e-01_rb,0.30176e-01_rb,0.31906e-01_rb,0.26193e-01_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.13164e-03_rb,0.99743e-02_rb,0.16118e-01_rb,0.21319e-01_rb,0.25600e-01_rb, &\n        & 0.29404e-01_rb,0.32485e-01_rb,0.33909e-01_rb,0.27439e-01_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.14862e-03_rb,0.10559e-01_rb,0.17124e-01_rb,0.22674e-01_rb,0.27373e-01_rb, &\n        & 0.31501e-01_rb,0.34705e-01_rb,0.36112e-01_rb,0.28667e-01_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.16941e-03_rb,0.11142e-01_rb,0.18163e-01_rb,0.23992e-01_rb,0.29023e-01_rb, &\n        & 0.33461e-01_rb,0.36882e-01_rb,0.38288e-01_rb,0.29990e-01_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.19444e-03_rb,0.11740e-01_rb,0.19231e-01_rb,0.25410e-01_rb,0.30702e-01_rb, &\n        & 0.35380e-01_rb,0.38933e-01_rb,0.40325e-01_rb,0.31163e-01_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.10266e-03_rb,0.78132e-02_rb,0.12495e-01_rb,0.16294e-01_rb,0.19552e-01_rb, &\n        & 0.22203e-01_rb,0.24522e-01_rb,0.26158e-01_rb,0.21477e-01_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.11308e-03_rb,0.82996e-02_rb,0.13385e-01_rb,0.17650e-01_rb,0.21113e-01_rb, &\n        & 0.24026e-01_rb,0.26424e-01_rb,0.27779e-01_rb,0.22661e-01_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.12431e-03_rb,0.88118e-02_rb,0.14254e-01_rb,0.18852e-01_rb,0.22717e-01_rb, &\n        & 0.25822e-01_rb,0.28352e-01_rb,0.29667e-01_rb,0.23674e-01_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.14146e-03_rb,0.93080e-02_rb,0.15152e-01_rb,0.20013e-01_rb,0.24158e-01_rb, &\n        & 0.27569e-01_rb,0.30306e-01_rb,0.31495e-01_rb,0.24838e-01_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.16275e-03_rb,0.98287e-02_rb,0.16080e-01_rb,0.21227e-01_rb,0.25592e-01_rb, &\n        & 0.29226e-01_rb,0.32075e-01_rb,0.33357e-01_rb,0.25887e-01_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.85797e-04_rb,0.64412e-02_rb,0.10231e-01_rb,0.13327e-01_rb,0.15923e-01_rb, &\n        & 0.18103e-01_rb,0.19903e-01_rb,0.21189e-01_rb,0.17975e-01_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.94370e-04_rb,0.68514e-02_rb,0.11041e-01_rb,0.14472e-01_rb,0.17298e-01_rb, &\n        & 0.19661e-01_rb,0.21421e-01_rb,0.22631e-01_rb,0.18990e-01_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.10603e-03_rb,0.72870e-02_rb,0.11786e-01_rb,0.15570e-01_rb,0.18710e-01_rb, &\n        & 0.21195e-01_rb,0.23092e-01_rb,0.24157e-01_rb,0.19934e-01_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.11819e-03_rb,0.77217e-02_rb,0.12559e-01_rb,0.16589e-01_rb,0.19991e-01_rb, &\n        & 0.22738e-01_rb,0.24769e-01_rb,0.25771e-01_rb,0.20946e-01_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.13500e-03_rb,0.81624e-02_rb,0.13346e-01_rb,0.17610e-01_rb,0.21227e-01_rb, &\n        & 0.24140e-01_rb,0.26339e-01_rb,0.27388e-01_rb,0.21819e-01_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.73275e-04_rb,0.53147e-02_rb,0.83832e-02_rb,0.10890e-01_rb,0.12998e-01_rb, &\n        & 0.14772e-01_rb,0.16237e-01_rb,0.17165e-01_rb,0.15972e-01_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.80303e-04_rb,0.56594e-02_rb,0.90964e-02_rb,0.11869e-01_rb,0.14181e-01_rb, &\n        & 0.16065e-01_rb,0.17493e-01_rb,0.18447e-01_rb,0.17075e-01_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.88821e-04_rb,0.60286e-02_rb,0.97491e-02_rb,0.12852e-01_rb,0.15387e-01_rb, &\n        & 0.17394e-01_rb,0.18909e-01_rb,0.19708e-01_rb,0.18078e-01_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.10142e-03_rb,0.63962e-02_rb,0.10392e-01_rb,0.13730e-01_rb,0.16522e-01_rb, &\n        & 0.18771e-01_rb,0.20308e-01_rb,0.21096e-01_rb,0.19037e-01_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.11405e-03_rb,0.67754e-02_rb,0.11065e-01_rb,0.14605e-01_rb,0.17581e-01_rb, &\n        & 0.19991e-01_rb,0.21687e-01_rb,0.22458e-01_rb,0.19875e-01_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.64517e-04_rb,0.45135e-02_rb,0.71165e-02_rb,0.92384e-02_rb,0.10998e-01_rb, &\n        & 0.12474e-01_rb,0.13700e-01_rb,0.14388e-01_rb,0.14631e-01_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.71535e-04_rb,0.48070e-02_rb,0.77137e-02_rb,0.10092e-01_rb,0.12023e-01_rb, &\n        & 0.13623e-01_rb,0.14792e-01_rb,0.15449e-01_rb,0.15481e-01_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.79504e-04_rb,0.51199e-02_rb,0.82600e-02_rb,0.10911e-01_rb,0.13076e-01_rb, &\n        & 0.14755e-01_rb,0.16002e-01_rb,0.16546e-01_rb,0.16298e-01_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.90433e-04_rb,0.54351e-02_rb,0.88101e-02_rb,0.11647e-01_rb,0.14018e-01_rb, &\n        & 0.15922e-01_rb,0.17206e-01_rb,0.17715e-01_rb,0.16991e-01_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.10146e-03_rb,0.57596e-02_rb,0.93865e-02_rb,0.12407e-01_rb,0.14922e-01_rb, &\n        & 0.16951e-01_rb,0.18384e-01_rb,0.18893e-01_rb,0.17666e-01_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.56913e-04_rb,0.38361e-02_rb,0.60238e-02_rb,0.78101e-02_rb,0.92943e-02_rb, &\n        & 0.10515e-01_rb,0.11514e-01_rb,0.12051e-01_rb,0.12708e-01_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.62984e-04_rb,0.40886e-02_rb,0.65153e-02_rb,0.85464e-02_rb,0.10168e-01_rb, &\n        & 0.11498e-01_rb,0.12452e-01_rb,0.12938e-01_rb,0.13473e-01_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.70588e-04_rb,0.43561e-02_rb,0.69761e-02_rb,0.92137e-02_rb,0.11068e-01_rb, &\n        & 0.12482e-01_rb,0.13497e-01_rb,0.13892e-01_rb,0.14090e-01_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.79556e-04_rb,0.46222e-02_rb,0.74472e-02_rb,0.98382e-02_rb,0.11852e-01_rb, &\n        & 0.13461e-01_rb,0.14539e-01_rb,0.14868e-01_rb,0.14684e-01_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.89330e-04_rb,0.49037e-02_rb,0.79332e-02_rb,0.10492e-01_rb,0.12613e-01_rb, &\n        & 0.14331e-01_rb,0.15523e-01_rb,0.15867e-01_rb,0.15266e-01_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.49040e-04_rb,0.32470e-02_rb,0.50782e-02_rb,0.65813e-02_rb,0.78254e-02_rb, &\n        & 0.88398e-02_rb,0.96483e-02_rb,0.10090e-01_rb,0.10614e-01_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.54225e-04_rb,0.34616e-02_rb,0.54906e-02_rb,0.71951e-02_rb,0.85711e-02_rb, &\n        & 0.96781e-02_rb,0.10460e-01_rb,0.10840e-01_rb,0.11206e-01_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.61136e-04_rb,0.36878e-02_rb,0.58777e-02_rb,0.77458e-02_rb,0.93183e-02_rb, &\n        & 0.10528e-01_rb,0.11347e-01_rb,0.11684e-01_rb,0.11730e-01_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.68788e-04_rb,0.39213e-02_rb,0.62791e-02_rb,0.82774e-02_rb,0.99761e-02_rb, &\n        & 0.11332e-01_rb,0.12247e-01_rb,0.12495e-01_rb,0.12250e-01_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.77427e-04_rb,0.41640e-02_rb,0.66890e-02_rb,0.88358e-02_rb,0.10624e-01_rb, &\n        & 0.12069e-01_rb,0.13064e-01_rb,0.13341e-01_rb,0.12730e-01_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.69098e-02_rb,0.84650e-01_rb,0.13006e+00_rb,0.16652e+00_rb,0.19608e+00_rb, &\n        & 0.21975e+00_rb,0.23496e+00_rb,0.23277e+00_rb,0.18007e+00_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.78200e-02_rb,0.89279e-01_rb,0.13630e+00_rb,0.17409e+00_rb,0.20398e+00_rb, &\n        & 0.22718e+00_rb,0.24129e+00_rb,0.23750e+00_rb,0.18438e+00_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.89787e-02_rb,0.94428e-01_rb,0.14296e+00_rb,0.18170e+00_rb,0.21205e+00_rb, &\n        & 0.23450e+00_rb,0.24726e+00_rb,0.24172e+00_rb,0.18878e+00_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.10426e-01_rb,0.10003e+00_rb,0.15009e+00_rb,0.18943e+00_rb,0.22015e+00_rb, &\n        & 0.24206e+00_rb,0.25341e+00_rb,0.24571e+00_rb,0.19325e+00_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.12209e-01_rb,0.10603e+00_rb,0.15781e+00_rb,0.19756e+00_rb,0.22832e+00_rb, &\n        & 0.24963e+00_rb,0.25957e+00_rb,0.24958e+00_rb,0.19748e+00_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.64020e-02_rb,0.74597e-01_rb,0.11458e+00_rb,0.14581e+00_rb,0.17103e+00_rb, &\n        & 0.19105e+00_rb,0.20412e+00_rb,0.20133e+00_rb,0.15242e+00_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.72586e-02_rb,0.78857e-01_rb,0.12024e+00_rb,0.15257e+00_rb,0.17796e+00_rb, &\n        & 0.19765e+00_rb,0.20972e+00_rb,0.20548e+00_rb,0.15620e+00_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.82903e-02_rb,0.83602e-01_rb,0.12623e+00_rb,0.15931e+00_rb,0.18512e+00_rb, &\n        & 0.20423e+00_rb,0.21503e+00_rb,0.20937e+00_rb,0.15993e+00_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.94578e-02_rb,0.88668e-01_rb,0.13277e+00_rb,0.16635e+00_rb,0.19233e+00_rb, &\n        & 0.21098e+00_rb,0.22050e+00_rb,0.21294e+00_rb,0.16397e+00_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.10865e-01_rb,0.94113e-01_rb,0.13987e+00_rb,0.17375e+00_rb,0.19975e+00_rb, &\n        & 0.21771e+00_rb,0.22592e+00_rb,0.21639e+00_rb,0.16745e+00_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.56943e-02_rb,0.64084e-01_rb,0.99294e-01_rb,0.12614e+00_rb,0.14746e+00_rb, &\n        & 0.16414e+00_rb,0.17503e+00_rb,0.17255e+00_rb,0.12738e+00_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.64702e-02_rb,0.67967e-01_rb,0.10427e+00_rb,0.13197e+00_rb,0.15350e+00_rb, &\n        & 0.16985e+00_rb,0.18008e+00_rb,0.17631e+00_rb,0.13087e+00_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.74200e-02_rb,0.72252e-01_rb,0.10956e+00_rb,0.13801e+00_rb,0.15978e+00_rb, &\n        & 0.17567e+00_rb,0.18476e+00_rb,0.17977e+00_rb,0.13421e+00_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.84907e-02_rb,0.76772e-01_rb,0.11539e+00_rb,0.14427e+00_rb,0.16615e+00_rb, &\n        & 0.18168e+00_rb,0.18947e+00_rb,0.18300e+00_rb,0.13761e+00_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.97078e-02_rb,0.81671e-01_rb,0.12172e+00_rb,0.15082e+00_rb,0.17277e+00_rb, &\n        & 0.18769e+00_rb,0.19427e+00_rb,0.18608e+00_rb,0.14067e+00_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.48829e-02_rb,0.54383e-01_rb,0.85075e-01_rb,0.10815e+00_rb,0.12638e+00_rb, &\n        & 0.14020e+00_rb,0.14903e+00_rb,0.14670e+00_rb,0.10614e+00_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.55740e-02_rb,0.57779e-01_rb,0.89436e-01_rb,0.11323e+00_rb,0.13160e+00_rb, &\n        & 0.14514e+00_rb,0.15349e+00_rb,0.15027e+00_rb,0.10949e+00_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.64015e-02_rb,0.61546e-01_rb,0.94139e-01_rb,0.11850e+00_rb,0.13701e+00_rb, &\n        & 0.15017e+00_rb,0.15757e+00_rb,0.15344e+00_rb,0.11257e+00_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.73719e-02_rb,0.65521e-01_rb,0.99232e-01_rb,0.12403e+00_rb,0.14259e+00_rb, &\n        & 0.15541e+00_rb,0.16175e+00_rb,0.15634e+00_rb,0.11557e+00_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.84789e-02_rb,0.69810e-01_rb,0.10478e+00_rb,0.12985e+00_rb,0.14840e+00_rb, &\n        & 0.16071e+00_rb,0.16597e+00_rb,0.15910e+00_rb,0.11833e+00_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.41357e-02_rb,0.45878e-01_rb,0.71866e-01_rb,0.92130e-01_rb,0.10772e+00_rb, &\n        & 0.11935e+00_rb,0.12627e+00_rb,0.12382e+00_rb,0.88490e-01_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.47278e-02_rb,0.48809e-01_rb,0.75724e-01_rb,0.96485e-01_rb,0.11218e+00_rb, &\n        & 0.12363e+00_rb,0.13023e+00_rb,0.12723e+00_rb,0.91646e-01_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.54234e-02_rb,0.52108e-01_rb,0.79925e-01_rb,0.10105e+00_rb,0.11684e+00_rb, &\n        & 0.12795e+00_rb,0.13389e+00_rb,0.13024e+00_rb,0.94384e-01_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.62672e-02_rb,0.55647e-01_rb,0.84438e-01_rb,0.10591e+00_rb,0.12167e+00_rb, &\n        & 0.13255e+00_rb,0.13759e+00_rb,0.13288e+00_rb,0.97037e-01_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.72387e-02_rb,0.59393e-01_rb,0.89326e-01_rb,0.11102e+00_rb,0.12680e+00_rb, &\n        & 0.13723e+00_rb,0.14128e+00_rb,0.13530e+00_rb,0.99585e-01_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.34820e-02_rb,0.38455e-01_rb,0.60106e-01_rb,0.77515e-01_rb,0.91143e-01_rb, &\n        & 0.10094e+00_rb,0.10649e+00_rb,0.10403e+00_rb,0.73509e-01_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.39507e-02_rb,0.40927e-01_rb,0.63402e-01_rb,0.81240e-01_rb,0.94968e-01_rb, &\n        & 0.10469e+00_rb,0.11001e+00_rb,0.10717e+00_rb,0.76426e-01_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.45266e-02_rb,0.43726e-01_rb,0.67041e-01_rb,0.85234e-01_rb,0.98911e-01_rb, &\n        & 0.10845e+00_rb,0.11329e+00_rb,0.10996e+00_rb,0.78861e-01_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.52242e-02_rb,0.46807e-01_rb,0.70939e-01_rb,0.89547e-01_rb,0.10312e+00_rb, &\n        & 0.11247e+00_rb,0.11653e+00_rb,0.11237e+00_rb,0.81250e-01_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.60449e-02_rb,0.50083e-01_rb,0.75175e-01_rb,0.94041e-01_rb,0.10760e+00_rb, &\n        & 0.11657e+00_rb,0.11980e+00_rb,0.11449e+00_rb,0.83549e-01_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.28711e-02_rb,0.32523e-01_rb,0.49971e-01_rb,0.64597e-01_rb,0.76360e-01_rb, &\n        & 0.84918e-01_rb,0.89523e-01_rb,0.87200e-01_rb,0.60618e-01_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.32550e-02_rb,0.34614e-01_rb,0.52803e-01_rb,0.67740e-01_rb,0.79713e-01_rb, &\n        & 0.88207e-01_rb,0.92681e-01_rb,0.90060e-01_rb,0.63331e-01_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.37263e-02_rb,0.36968e-01_rb,0.55904e-01_rb,0.71153e-01_rb,0.83143e-01_rb, &\n        & 0.91509e-01_rb,0.95607e-01_rb,0.92564e-01_rb,0.65595e-01_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.42953e-02_rb,0.39538e-01_rb,0.59281e-01_rb,0.74912e-01_rb,0.86822e-01_rb, &\n        & 0.94956e-01_rb,0.98438e-01_rb,0.94728e-01_rb,0.67680e-01_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.49788e-02_rb,0.42264e-01_rb,0.62953e-01_rb,0.78842e-01_rb,0.90742e-01_rb, &\n        & 0.98510e-01_rb,0.10129e+00_rb,0.96641e-01_rb,0.69746e-01_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.23480e-02_rb,0.27230e-01_rb,0.41671e-01_rb,0.53565e-01_rb,0.63436e-01_rb, &\n        & 0.70999e-01_rb,0.75020e-01_rb,0.72906e-01_rb,0.49386e-01_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.26517e-02_rb,0.29065e-01_rb,0.44017e-01_rb,0.56225e-01_rb,0.66341e-01_rb, &\n        & 0.73935e-01_rb,0.77879e-01_rb,0.75468e-01_rb,0.51750e-01_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.30285e-02_rb,0.31112e-01_rb,0.46598e-01_rb,0.59161e-01_rb,0.69302e-01_rb, &\n        & 0.76809e-01_rb,0.80439e-01_rb,0.77729e-01_rb,0.53904e-01_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.34816e-02_rb,0.33348e-01_rb,0.49448e-01_rb,0.62380e-01_rb,0.72502e-01_rb, &\n        & 0.79786e-01_rb,0.82887e-01_rb,0.79683e-01_rb,0.55731e-01_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.40444e-02_rb,0.35730e-01_rb,0.52545e-01_rb,0.65794e-01_rb,0.75878e-01_rb, &\n        & 0.82889e-01_rb,0.85379e-01_rb,0.81391e-01_rb,0.57509e-01_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.19247e-02_rb,0.22630e-01_rb,0.34752e-01_rb,0.44387e-01_rb,0.52455e-01_rb, &\n        & 0.58833e-01_rb,0.62468e-01_rb,0.60719e-01_rb,0.41880e-01_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.21557e-02_rb,0.24204e-01_rb,0.36750e-01_rb,0.46636e-01_rb,0.54976e-01_rb, &\n        & 0.61421e-01_rb,0.65052e-01_rb,0.62994e-01_rb,0.44010e-01_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.24477e-02_rb,0.25958e-01_rb,0.38981e-01_rb,0.49108e-01_rb,0.57526e-01_rb, &\n        & 0.63907e-01_rb,0.67351e-01_rb,0.65038e-01_rb,0.45929e-01_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.28196e-02_rb,0.27882e-01_rb,0.41431e-01_rb,0.51802e-01_rb,0.60249e-01_rb, &\n        & 0.66480e-01_rb,0.69467e-01_rb,0.66788e-01_rb,0.47555e-01_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.32654e-02_rb,0.29939e-01_rb,0.44072e-01_rb,0.54714e-01_rb,0.63163e-01_rb, &\n        & 0.69207e-01_rb,0.71600e-01_rb,0.68328e-01_rb,0.49077e-01_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.16200e-02_rb,0.18814e-01_rb,0.28911e-01_rb,0.37025e-01_rb,0.43479e-01_rb, &\n        & 0.48691e-01_rb,0.51767e-01_rb,0.50517e-01_rb,0.36565e-01_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.18031e-02_rb,0.20150e-01_rb,0.30632e-01_rb,0.38967e-01_rb,0.45609e-01_rb, &\n        & 0.50940e-01_rb,0.54046e-01_rb,0.52515e-01_rb,0.38425e-01_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.20232e-02_rb,0.21640e-01_rb,0.32572e-01_rb,0.41079e-01_rb,0.47788e-01_rb, &\n        & 0.53101e-01_rb,0.56114e-01_rb,0.54338e-01_rb,0.40162e-01_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.23038e-02_rb,0.23298e-01_rb,0.34703e-01_rb,0.43393e-01_rb,0.50110e-01_rb, &\n        & 0.55298e-01_rb,0.57982e-01_rb,0.55873e-01_rb,0.41782e-01_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.26649e-02_rb,0.25073e-01_rb,0.36983e-01_rb,0.45868e-01_rb,0.52617e-01_rb, &\n        & 0.57641e-01_rb,0.59833e-01_rb,0.57222e-01_rb,0.43243e-01_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.14241e-02_rb,0.16065e-01_rb,0.24586e-01_rb,0.31465e-01_rb,0.36963e-01_rb, &\n        & 0.41093e-01_rb,0.43617e-01_rb,0.42673e-01_rb,0.32343e-01_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.15878e-02_rb,0.17268e-01_rb,0.26144e-01_rb,0.33169e-01_rb,0.38816e-01_rb, &\n        & 0.42988e-01_rb,0.45546e-01_rb,0.44327e-01_rb,0.34054e-01_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.18003e-02_rb,0.18609e-01_rb,0.27888e-01_rb,0.35066e-01_rb,0.40717e-01_rb, &\n        & 0.44861e-01_rb,0.47277e-01_rb,0.45845e-01_rb,0.35562e-01_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.20513e-02_rb,0.20069e-01_rb,0.29794e-01_rb,0.37147e-01_rb,0.42781e-01_rb, &\n        & 0.46774e-01_rb,0.48869e-01_rb,0.47106e-01_rb,0.36881e-01_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.23610e-02_rb,0.21636e-01_rb,0.31786e-01_rb,0.39341e-01_rb,0.44964e-01_rb, &\n        & 0.48832e-01_rb,0.50478e-01_rb,0.48237e-01_rb,0.38136e-01_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.12367e-02_rb,0.13664e-01_rb,0.20841e-01_rb,0.26619e-01_rb,0.31258e-01_rb, &\n        & 0.34766e-01_rb,0.36665e-01_rb,0.35873e-01_rb,0.27811e-01_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.13898e-02_rb,0.14747e-01_rb,0.22238e-01_rb,0.28134e-01_rb,0.32876e-01_rb, &\n        & 0.36392e-01_rb,0.38286e-01_rb,0.37257e-01_rb,0.29212e-01_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.15822e-02_rb,0.15920e-01_rb,0.23808e-01_rb,0.29830e-01_rb,0.34558e-01_rb, &\n        & 0.38014e-01_rb,0.39728e-01_rb,0.38493e-01_rb,0.30517e-01_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.18117e-02_rb,0.17195e-01_rb,0.25479e-01_rb,0.31664e-01_rb,0.36378e-01_rb, &\n        & 0.39675e-01_rb,0.41098e-01_rb,0.39553e-01_rb,0.31705e-01_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.20996e-02_rb,0.18567e-01_rb,0.27225e-01_rb,0.33571e-01_rb,0.38302e-01_rb, &\n        & 0.41437e-01_rb,0.42501e-01_rb,0.40525e-01_rb,0.32748e-01_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.10606e-02_rb,0.11594e-01_rb,0.17616e-01_rb,0.22456e-01_rb,0.26337e-01_rb, &\n        & 0.29282e-01_rb,0.30831e-01_rb,0.30037e-01_rb,0.23251e-01_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.11975e-02_rb,0.12541e-01_rb,0.18850e-01_rb,0.23795e-01_rb,0.27745e-01_rb, &\n        & 0.30676e-01_rb,0.32191e-01_rb,0.31186e-01_rb,0.24461e-01_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.13686e-02_rb,0.13557e-01_rb,0.20236e-01_rb,0.25287e-01_rb,0.29224e-01_rb, &\n        & 0.32085e-01_rb,0.33411e-01_rb,0.32190e-01_rb,0.25539e-01_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.15787e-02_rb,0.14655e-01_rb,0.21685e-01_rb,0.26887e-01_rb,0.30821e-01_rb, &\n        & 0.33533e-01_rb,0.34581e-01_rb,0.33091e-01_rb,0.26483e-01_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.18422e-02_rb,0.15847e-01_rb,0.23201e-01_rb,0.28535e-01_rb,0.32486e-01_rb, &\n        & 0.35059e-01_rb,0.35791e-01_rb,0.33942e-01_rb,0.27340e-01_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.11257e+00_rb,0.31731e+00_rb,0.42139e+00_rb,0.49121e+00_rb,0.53179e+00_rb, &\n        & 0.54416e+00_rb,0.52879e+00_rb,0.48565e+00_rb,0.38185e+00_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.12995e+00_rb,0.33757e+00_rb,0.44079e+00_rb,0.50693e+00_rb,0.54374e+00_rb, &\n        & 0.55231e+00_rb,0.53411e+00_rb,0.48973e+00_rb,0.38664e+00_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.14899e+00_rb,0.35787e+00_rb,0.45940e+00_rb,0.52235e+00_rb,0.55490e+00_rb, &\n        & 0.56009e+00_rb,0.53945e+00_rb,0.49411e+00_rb,0.39028e+00_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.16946e+00_rb,0.37848e+00_rb,0.47747e+00_rb,0.53692e+00_rb,0.56497e+00_rb, &\n        & 0.56760e+00_rb,0.54484e+00_rb,0.49832e+00_rb,0.39391e+00_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.19143e+00_rb,0.39915e+00_rb,0.49476e+00_rb,0.55039e+00_rb,0.57468e+00_rb, &\n        & 0.57486e+00_rb,0.55036e+00_rb,0.50307e+00_rb,0.39756e+00_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.97091e-01_rb,0.28037e+00_rb,0.37054e+00_rb,0.43162e+00_rb,0.46715e+00_rb, &\n        & 0.47740e+00_rb,0.46327e+00_rb,0.42557e+00_rb,0.32833e+00_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.11208e+00_rb,0.29815e+00_rb,0.38764e+00_rb,0.44615e+00_rb,0.47841e+00_rb, &\n        & 0.48513e+00_rb,0.46886e+00_rb,0.42998e+00_rb,0.33260e+00_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.12856e+00_rb,0.31599e+00_rb,0.40420e+00_rb,0.45996e+00_rb,0.48848e+00_rb, &\n        & 0.49285e+00_rb,0.47441e+00_rb,0.43431e+00_rb,0.33632e+00_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.14648e+00_rb,0.33425e+00_rb,0.42020e+00_rb,0.47262e+00_rb,0.49778e+00_rb, &\n        & 0.50015e+00_rb,0.47996e+00_rb,0.43890e+00_rb,0.33965e+00_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.16579e+00_rb,0.35250e+00_rb,0.43554e+00_rb,0.48445e+00_rb,0.50655e+00_rb, &\n        & 0.50702e+00_rb,0.48572e+00_rb,0.44375e+00_rb,0.34330e+00_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.80654e-01_rb,0.24334e+00_rb,0.32145e+00_rb,0.37485e+00_rb,0.40615e+00_rb, &\n        & 0.41488e+00_rb,0.40284e+00_rb,0.37005e+00_rb,0.27897e+00_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.93334e-01_rb,0.25889e+00_rb,0.33665e+00_rb,0.38799e+00_rb,0.41628e+00_rb, &\n        & 0.42254e+00_rb,0.40845e+00_rb,0.37420e+00_rb,0.28281e+00_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.10735e+00_rb,0.27449e+00_rb,0.35143e+00_rb,0.40015e+00_rb,0.42551e+00_rb, &\n        & 0.42981e+00_rb,0.41382e+00_rb,0.37871e+00_rb,0.28619e+00_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.12265e+00_rb,0.29043e+00_rb,0.36548e+00_rb,0.41153e+00_rb,0.43393e+00_rb, &\n        & 0.43649e+00_rb,0.41932e+00_rb,0.38340e+00_rb,0.28955e+00_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.13925e+00_rb,0.30659e+00_rb,0.37895e+00_rb,0.42211e+00_rb,0.44187e+00_rb, &\n        & 0.44276e+00_rb,0.42490e+00_rb,0.38830e+00_rb,0.29282e+00_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.65986e-01_rb,0.20968e+00_rb,0.27746e+00_rb,0.32321e+00_rb,0.35021e+00_rb, &\n        & 0.35817e+00_rb,0.34816e+00_rb,0.31914e+00_rb,0.23714e+00_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.76550e-01_rb,0.22318e+00_rb,0.29094e+00_rb,0.33486e+00_rb,0.35941e+00_rb, &\n        & 0.36546e+00_rb,0.35341e+00_rb,0.32318e+00_rb,0.24040e+00_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.88349e-01_rb,0.23676e+00_rb,0.30387e+00_rb,0.34562e+00_rb,0.36786e+00_rb, &\n        & 0.37204e+00_rb,0.35871e+00_rb,0.32765e+00_rb,0.24343e+00_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.10129e+00_rb,0.25065e+00_rb,0.31610e+00_rb,0.35574e+00_rb,0.37546e+00_rb, &\n        & 0.37811e+00_rb,0.36390e+00_rb,0.33220e+00_rb,0.24649e+00_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.11540e+00_rb,0.26489e+00_rb,0.32784e+00_rb,0.36504e+00_rb,0.38250e+00_rb, &\n        & 0.38387e+00_rb,0.36919e+00_rb,0.33697e+00_rb,0.24943e+00_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.53393e-01_rb,0.18000e+00_rb,0.23883e+00_rb,0.27751e+00_rb,0.30053e+00_rb, &\n        & 0.30742e+00_rb,0.29898e+00_rb,0.27383e+00_rb,0.20106e+00_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.62233e-01_rb,0.19175e+00_rb,0.25050e+00_rb,0.28777e+00_rb,0.30898e+00_rb, &\n        & 0.31400e+00_rb,0.30389e+00_rb,0.27769e+00_rb,0.20390e+00_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.72177e-01_rb,0.20364e+00_rb,0.26165e+00_rb,0.29741e+00_rb,0.31640e+00_rb, &\n        & 0.31996e+00_rb,0.30876e+00_rb,0.28174e+00_rb,0.20671e+00_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.83134e-01_rb,0.21576e+00_rb,0.27227e+00_rb,0.30617e+00_rb,0.32319e+00_rb, &\n        & 0.32542e+00_rb,0.31353e+00_rb,0.28599e+00_rb,0.20956e+00_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.95090e-01_rb,0.22815e+00_rb,0.28259e+00_rb,0.31429e+00_rb,0.32943e+00_rb, &\n        & 0.33059e+00_rb,0.31837e+00_rb,0.29043e+00_rb,0.21220e+00_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.42433e-01_rb,0.15317e+00_rb,0.20425e+00_rb,0.23740e+00_rb,0.25663e+00_rb, &\n        & 0.26234e+00_rb,0.25512e+00_rb,0.23364e+00_rb,0.16949e+00_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.49749e-01_rb,0.16341e+00_rb,0.21435e+00_rb,0.24646e+00_rb,0.26413e+00_rb, &\n        & 0.26825e+00_rb,0.25968e+00_rb,0.23716e+00_rb,0.17204e+00_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.58017e-01_rb,0.17381e+00_rb,0.22409e+00_rb,0.25485e+00_rb,0.27073e+00_rb, &\n        & 0.27356e+00_rb,0.26405e+00_rb,0.24070e+00_rb,0.17477e+00_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.67231e-01_rb,0.18439e+00_rb,0.23345e+00_rb,0.26240e+00_rb,0.27677e+00_rb, &\n        & 0.27839e+00_rb,0.26819e+00_rb,0.24459e+00_rb,0.17741e+00_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.77316e-01_rb,0.19517e+00_rb,0.24253e+00_rb,0.26953e+00_rb,0.28221e+00_rb, &\n        & 0.28296e+00_rb,0.27246e+00_rb,0.24867e+00_rb,0.17984e+00_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.33835e-01_rb,0.12894e+00_rb,0.17377e+00_rb,0.20223e+00_rb,0.21858e+00_rb, &\n        & 0.22305e+00_rb,0.21661e+00_rb,0.19799e+00_rb,0.14234e+00_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.39495e-01_rb,0.13775e+00_rb,0.18255e+00_rb,0.21017e+00_rb,0.22506e+00_rb, &\n        & 0.22828e+00_rb,0.22063e+00_rb,0.20115e+00_rb,0.14469e+00_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.46213e-01_rb,0.14677e+00_rb,0.19104e+00_rb,0.21747e+00_rb,0.23085e+00_rb, &\n        & 0.23293e+00_rb,0.22444e+00_rb,0.20438e+00_rb,0.14721e+00_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.53881e-01_rb,0.15604e+00_rb,0.19912e+00_rb,0.22407e+00_rb,0.23606e+00_rb, &\n        & 0.23711e+00_rb,0.22803e+00_rb,0.20793e+00_rb,0.14967e+00_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.62313e-01_rb,0.16559e+00_rb,0.20703e+00_rb,0.23032e+00_rb,0.24086e+00_rb, &\n        & 0.24109e+00_rb,0.23183e+00_rb,0.21164e+00_rb,0.15187e+00_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.27294e-01_rb,0.10784e+00_rb,0.14673e+00_rb,0.17152e+00_rb,0.18541e+00_rb, &\n        & 0.18896e+00_rb,0.18302e+00_rb,0.16686e+00_rb,0.11892e+00_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.31945e-01_rb,0.11533e+00_rb,0.15437e+00_rb,0.17841e+00_rb,0.19097e+00_rb, &\n        & 0.19348e+00_rb,0.18650e+00_rb,0.16969e+00_rb,0.12123e+00_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.37290e-01_rb,0.12309e+00_rb,0.16174e+00_rb,0.18467e+00_rb,0.19597e+00_rb, &\n        & 0.19753e+00_rb,0.18983e+00_rb,0.17262e+00_rb,0.12344e+00_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.43331e-01_rb,0.13110e+00_rb,0.16878e+00_rb,0.19044e+00_rb,0.20053e+00_rb, &\n        & 0.20117e+00_rb,0.19304e+00_rb,0.17581e+00_rb,0.12571e+00_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.50086e-01_rb,0.13937e+00_rb,0.17577e+00_rb,0.19586e+00_rb,0.20476e+00_rb, &\n        & 0.20472e+00_rb,0.19647e+00_rb,0.17915e+00_rb,0.12770e+00_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.21763e-01_rb,0.89580e-01_rb,0.12270e+00_rb,0.14431e+00_rb,0.15639e+00_rb, &\n        & 0.15936e+00_rb,0.15421e+00_rb,0.14030e+00_rb,0.10042e+00_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.25609e-01_rb,0.95974e-01_rb,0.12925e+00_rb,0.15030e+00_rb,0.16119e+00_rb, &\n        & 0.16326e+00_rb,0.15719e+00_rb,0.14283e+00_rb,0.10252e+00_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.30067e-01_rb,0.10261e+00_rb,0.13551e+00_rb,0.15572e+00_rb,0.16552e+00_rb, &\n        & 0.16675e+00_rb,0.16007e+00_rb,0.14539e+00_rb,0.10448e+00_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.35097e-01_rb,0.10949e+00_rb,0.14161e+00_rb,0.16075e+00_rb,0.16947e+00_rb, &\n        & 0.16997e+00_rb,0.16297e+00_rb,0.14823e+00_rb,0.10645e+00_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.40711e-01_rb,0.11658e+00_rb,0.14773e+00_rb,0.16552e+00_rb,0.17324e+00_rb, &\n        & 0.17317e+00_rb,0.16604e+00_rb,0.15112e+00_rb,0.10826e+00_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.17370e-01_rb,0.74466e-01_rb,0.10240e+00_rb,0.12053e+00_rb,0.13126e+00_rb, &\n        & 0.13417e+00_rb,0.12989e+00_rb,0.11790e+00_rb,0.87103e-01_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.20536e-01_rb,0.79866e-01_rb,0.10796e+00_rb,0.12568e+00_rb,0.13547e+00_rb, &\n        & 0.13755e+00_rb,0.13244e+00_rb,0.12017e+00_rb,0.88680e-01_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.24274e-01_rb,0.85524e-01_rb,0.11324e+00_rb,0.13036e+00_rb,0.13925e+00_rb, &\n        & 0.14055e+00_rb,0.13491e+00_rb,0.12243e+00_rb,0.90062e-01_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.28508e-01_rb,0.91420e-01_rb,0.11852e+00_rb,0.13467e+00_rb,0.14267e+00_rb, &\n        & 0.14339e+00_rb,0.13748e+00_rb,0.12487e+00_rb,0.91240e-01_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.33217e-01_rb,0.97522e-01_rb,0.12382e+00_rb,0.13886e+00_rb,0.14603e+00_rb, &\n        & 0.14625e+00_rb,0.14015e+00_rb,0.12740e+00_rb,0.92631e-01_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.14918e-01_rb,0.64249e-01_rb,0.87193e-01_rb,0.10225e+00_rb,0.11107e+00_rb, &\n        & 0.11380e+00_rb,0.11017e+00_rb,0.99775e-01_rb,0.75883e-01_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.17707e-01_rb,0.68887e-01_rb,0.91783e-01_rb,0.10653e+00_rb,0.11454e+00_rb, &\n        & 0.11659e+00_rb,0.11231e+00_rb,0.10178e+00_rb,0.77400e-01_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.20985e-01_rb,0.73723e-01_rb,0.96290e-01_rb,0.11038e+00_rb,0.11765e+00_rb, &\n        & 0.11911e+00_rb,0.11446e+00_rb,0.10377e+00_rb,0.78827e-01_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.24698e-01_rb,0.78820e-01_rb,0.10085e+00_rb,0.11403e+00_rb,0.12064e+00_rb, &\n        & 0.12159e+00_rb,0.11674e+00_rb,0.10593e+00_rb,0.80678e-01_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.28798e-01_rb,0.84087e-01_rb,0.10545e+00_rb,0.11772e+00_rb,0.12367e+00_rb, &\n        & 0.12416e+00_rb,0.11916e+00_rb,0.10818e+00_rb,0.82090e-01_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.12778e-01_rb,0.55028e-01_rb,0.74326e-01_rb,0.86458e-01_rb,0.93690e-01_rb, &\n        & 0.95887e-01_rb,0.92996e-01_rb,0.84239e-01_rb,0.65531e-01_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.15226e-01_rb,0.59056e-01_rb,0.78180e-01_rb,0.90004e-01_rb,0.96562e-01_rb, &\n        & 0.98210e-01_rb,0.94824e-01_rb,0.85996e-01_rb,0.67232e-01_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.18073e-01_rb,0.63328e-01_rb,0.81993e-01_rb,0.93245e-01_rb,0.99175e-01_rb, &\n        & 0.10034e+00_rb,0.96751e-01_rb,0.87779e-01_rb,0.68728e-01_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.21287e-01_rb,0.67814e-01_rb,0.85944e-01_rb,0.96446e-01_rb,0.10181e+00_rb, &\n        & 0.10253e+00_rb,0.98787e-01_rb,0.89700e-01_rb,0.70024e-01_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.24810e-01_rb,0.72405e-01_rb,0.89913e-01_rb,0.99700e-01_rb,0.10454e+00_rb, &\n        & 0.10492e+00_rb,0.10099e+00_rb,0.91662e-01_rb,0.71222e-01_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.10897e-01_rb,0.46824e-01_rb,0.63070e-01_rb,0.73198e-01_rb,0.78826e-01_rb, &\n        & 0.80547e-01_rb,0.78087e-01_rb,0.70945e-01_rb,0.55427e-01_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.13037e-01_rb,0.50331e-01_rb,0.66369e-01_rb,0.76169e-01_rb,0.81229e-01_rb, &\n        & 0.82485e-01_rb,0.79688e-01_rb,0.72492e-01_rb,0.56776e-01_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.15498e-01_rb,0.54103e-01_rb,0.69687e-01_rb,0.78968e-01_rb,0.83486e-01_rb, &\n        & 0.84334e-01_rb,0.81403e-01_rb,0.74109e-01_rb,0.57973e-01_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.18239e-01_rb,0.58007e-01_rb,0.73146e-01_rb,0.81751e-01_rb,0.85842e-01_rb, &\n        & 0.86346e-01_rb,0.83244e-01_rb,0.75789e-01_rb,0.59123e-01_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.21231e-01_rb,0.61947e-01_rb,0.76584e-01_rb,0.84579e-01_rb,0.88268e-01_rb, &\n        & 0.88508e-01_rb,0.85245e-01_rb,0.77486e-01_rb,0.60191e-01_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.71609e+00_rb,0.10081e+01_rb,0.11118e+01_rb,0.11603e+01_rb,0.11765e+01_rb, &\n        & 0.11643e+01_rb,0.11202e+01_rb,0.10296e+01_rb,0.82502e+00_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.75920e+00_rb,0.10292e+01_rb,0.11252e+01_rb,0.11685e+01_rb,0.11822e+01_rb, &\n        & 0.11684e+01_rb,0.11228e+01_rb,0.10318e+01_rb,0.83157e+00_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.79807e+00_rb,0.10500e+01_rb,0.11397e+01_rb,0.11794e+01_rb,0.11904e+01_rb, &\n        & 0.11740e+01_rb,0.11264e+01_rb,0.10343e+01_rb,0.83726e+00_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.83183e+00_rb,0.10700e+01_rb,0.11548e+01_rb,0.11918e+01_rb,0.12010e+01_rb, &\n        & 0.11815e+01_rb,0.11313e+01_rb,0.10364e+01_rb,0.84249e+00_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.86161e+00_rb,0.10887e+01_rb,0.11706e+01_rb,0.12061e+01_rb,0.12126e+01_rb, &\n        & 0.11904e+01_rb,0.11363e+01_rb,0.10383e+01_rb,0.84713e+00_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.62079e+00_rb,0.89078e+00_rb,0.98349e+00_rb,0.10275e+01_rb,0.10413e+01_rb, &\n        & 0.10318e+01_rb,0.99528e+00_rb,0.92037e+00_rb,0.72464e+00_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.65800e+00_rb,0.91114e+00_rb,0.99789e+00_rb,0.10381e+01_rb,0.10488e+01_rb, &\n        & 0.10378e+01_rb,0.99952e+00_rb,0.92364e+00_rb,0.73140e+00_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.69092e+00_rb,0.93058e+00_rb,0.10122e+01_rb,0.10502e+01_rb,0.10590e+01_rb, &\n        & 0.10454e+01_rb,0.10054e+01_rb,0.92699e+00_rb,0.73764e+00_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.71970e+00_rb,0.94840e+00_rb,0.10270e+01_rb,0.10636e+01_rb,0.10709e+01_rb, &\n        & 0.10547e+01_rb,0.10116e+01_rb,0.93021e+00_rb,0.74329e+00_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.74579e+00_rb,0.96581e+00_rb,0.10421e+01_rb,0.10781e+01_rb,0.10844e+01_rb, &\n        & 0.10644e+01_rb,0.10185e+01_rb,0.93369e+00_rb,0.74789e+00_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.52823e+00_rb,0.77783e+00_rb,0.86297e+00_rb,0.90265e+00_rb,0.91464e+00_rb, &\n        & 0.90839e+00_rb,0.87923e+00_rb,0.81632e+00_rb,0.63067e+00_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.56021e+00_rb,0.79652e+00_rb,0.87677e+00_rb,0.91375e+00_rb,0.92363e+00_rb, &\n        & 0.91571e+00_rb,0.88529e+00_rb,0.82096e+00_rb,0.63740e+00_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.58848e+00_rb,0.81389e+00_rb,0.89039e+00_rb,0.92584e+00_rb,0.93460e+00_rb, &\n        & 0.92486e+00_rb,0.89232e+00_rb,0.82527e+00_rb,0.64377e+00_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.61369e+00_rb,0.83008e+00_rb,0.90459e+00_rb,0.93860e+00_rb,0.94727e+00_rb, &\n        & 0.93485e+00_rb,0.89989e+00_rb,0.82959e+00_rb,0.64921e+00_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.63687e+00_rb,0.84580e+00_rb,0.91897e+00_rb,0.95268e+00_rb,0.96085e+00_rb, &\n        & 0.94565e+00_rb,0.90780e+00_rb,0.83380e+00_rb,0.65367e+00_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.44508e+00_rb,0.67351e+00_rb,0.75154e+00_rb,0.78756e+00_rb,0.79977e+00_rb, &\n        & 0.79563e+00_rb,0.77123e+00_rb,0.71868e+00_rb,0.54794e+00_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.47271e+00_rb,0.69026e+00_rb,0.76424e+00_rb,0.79840e+00_rb,0.80928e+00_rb, &\n        & 0.80400e+00_rb,0.77859e+00_rb,0.72416e+00_rb,0.55496e+00_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.49708e+00_rb,0.70580e+00_rb,0.77670e+00_rb,0.80989e+00_rb,0.82043e+00_rb, &\n        & 0.81421e+00_rb,0.78653e+00_rb,0.72918e+00_rb,0.56105e+00_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.51921e+00_rb,0.72040e+00_rb,0.78970e+00_rb,0.82209e+00_rb,0.83296e+00_rb, &\n        & 0.82477e+00_rb,0.79492e+00_rb,0.73435e+00_rb,0.56612e+00_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.53991e+00_rb,0.73468e+00_rb,0.80284e+00_rb,0.83540e+00_rb,0.84599e+00_rb, &\n        & 0.83588e+00_rb,0.80349e+00_rb,0.73920e+00_rb,0.57048e+00_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.37413e+00_rb,0.58022e+00_rb,0.65026e+00_rb,0.68370e+00_rb,0.69632e+00_rb, &\n        & 0.69319e+00_rb,0.67239e+00_rb,0.62755e+00_rb,0.47517e+00_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.39785e+00_rb,0.59500e+00_rb,0.66160e+00_rb,0.69388e+00_rb,0.70581e+00_rb, &\n        & 0.70224e+00_rb,0.68037e+00_rb,0.63372e+00_rb,0.48187e+00_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.41894e+00_rb,0.60858e+00_rb,0.67282e+00_rb,0.70454e+00_rb,0.71693e+00_rb, &\n        & 0.71249e+00_rb,0.68889e+00_rb,0.63962e+00_rb,0.48765e+00_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.43810e+00_rb,0.62138e+00_rb,0.68416e+00_rb,0.71639e+00_rb,0.72873e+00_rb, &\n        & 0.72302e+00_rb,0.69785e+00_rb,0.64510e+00_rb,0.49243e+00_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.45627e+00_rb,0.63437e+00_rb,0.69610e+00_rb,0.72855e+00_rb,0.74096e+00_rb, &\n        & 0.73385e+00_rb,0.70672e+00_rb,0.65052e+00_rb,0.49657e+00_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.31382e+00_rb,0.49799e+00_rb,0.55977e+00_rb,0.58971e+00_rb,0.60230e+00_rb, &\n        & 0.60065e+00_rb,0.58267e+00_rb,0.54392e+00_rb,0.40911e+00_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.33427e+00_rb,0.51077e+00_rb,0.56976e+00_rb,0.59903e+00_rb,0.61148e+00_rb, &\n        & 0.60961e+00_rb,0.59093e+00_rb,0.55057e+00_rb,0.41554e+00_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.35247e+00_rb,0.52249e+00_rb,0.57948e+00_rb,0.60895e+00_rb,0.62185e+00_rb, &\n        & 0.61942e+00_rb,0.59984e+00_rb,0.55707e+00_rb,0.42096e+00_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.36909e+00_rb,0.53360e+00_rb,0.58950e+00_rb,0.61977e+00_rb,0.63265e+00_rb, &\n        & 0.62957e+00_rb,0.60872e+00_rb,0.56306e+00_rb,0.42549e+00_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.38489e+00_rb,0.54511e+00_rb,0.60025e+00_rb,0.63086e+00_rb,0.64395e+00_rb, &\n        & 0.63979e+00_rb,0.61739e+00_rb,0.56897e+00_rb,0.42951e+00_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.26224e+00_rb,0.42663e+00_rb,0.48031e+00_rb,0.50651e+00_rb,0.51797e+00_rb, &\n        & 0.51738e+00_rb,0.50230e+00_rb,0.46824e+00_rb,0.34967e+00_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.28013e+00_rb,0.43764e+00_rb,0.48906e+00_rb,0.51485e+00_rb,0.52656e+00_rb, &\n        & 0.52602e+00_rb,0.51065e+00_rb,0.47517e+00_rb,0.35569e+00_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.29592e+00_rb,0.44770e+00_rb,0.49758e+00_rb,0.52367e+00_rb,0.53583e+00_rb, &\n        & 0.53525e+00_rb,0.51944e+00_rb,0.48175e+00_rb,0.36089e+00_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.31035e+00_rb,0.45721e+00_rb,0.50658e+00_rb,0.53311e+00_rb,0.54562e+00_rb, &\n        & 0.54468e+00_rb,0.52799e+00_rb,0.48800e+00_rb,0.36523e+00_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.32410e+00_rb,0.46702e+00_rb,0.51628e+00_rb,0.54315e+00_rb,0.55572e+00_rb, &\n        & 0.55402e+00_rb,0.53619e+00_rb,0.49402e+00_rb,0.36906e+00_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.21802e+00_rb,0.36523e+00_rb,0.41109e+00_rb,0.43388e+00_rb,0.44363e+00_rb, &\n        & 0.44316e+00_rb,0.43058e+00_rb,0.40065e+00_rb,0.29668e+00_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.23315e+00_rb,0.37455e+00_rb,0.41894e+00_rb,0.44116e+00_rb,0.45154e+00_rb, &\n        & 0.45134e+00_rb,0.43880e+00_rb,0.40751e+00_rb,0.30231e+00_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.24686e+00_rb,0.38301e+00_rb,0.42637e+00_rb,0.44889e+00_rb,0.45978e+00_rb, &\n        & 0.45969e+00_rb,0.44700e+00_rb,0.41408e+00_rb,0.30721e+00_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.25967e+00_rb,0.39102e+00_rb,0.43427e+00_rb,0.45708e+00_rb,0.46833e+00_rb, &\n        & 0.46819e+00_rb,0.45488e+00_rb,0.42031e+00_rb,0.31131e+00_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.27188e+00_rb,0.39949e+00_rb,0.44272e+00_rb,0.46608e+00_rb,0.47706e+00_rb, &\n        & 0.47653e+00_rb,0.46230e+00_rb,0.42618e+00_rb,0.31504e+00_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.18022e+00_rb,0.31183e+00_rb,0.35120e+00_rb,0.37079e+00_rb,0.37884e+00_rb, &\n        & 0.37804e+00_rb,0.36693e+00_rb,0.34063e+00_rb,0.24612e+00_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.19307e+00_rb,0.31966e+00_rb,0.35801e+00_rb,0.37712e+00_rb,0.38585e+00_rb, &\n        & 0.38558e+00_rb,0.37468e+00_rb,0.34716e+00_rb,0.25138e+00_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.20463e+00_rb,0.32683e+00_rb,0.36444e+00_rb,0.38387e+00_rb,0.39308e+00_rb, &\n        & 0.39294e+00_rb,0.38210e+00_rb,0.35364e+00_rb,0.25593e+00_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.21550e+00_rb,0.33367e+00_rb,0.37119e+00_rb,0.39103e+00_rb,0.40042e+00_rb, &\n        & 0.40039e+00_rb,0.38916e+00_rb,0.35964e+00_rb,0.25996e+00_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.22607e+00_rb,0.34108e+00_rb,0.37860e+00_rb,0.39875e+00_rb,0.40805e+00_rb, &\n        & 0.40762e+00_rb,0.39578e+00_rb,0.36518e+00_rb,0.26360e+00_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.14867e+00_rb,0.26554e+00_rb,0.29985e+00_rb,0.31657e+00_rb,0.32318e+00_rb, &\n        & 0.32201e+00_rb,0.31162e+00_rb,0.28815e+00_rb,0.21732e+00_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.15961e+00_rb,0.27217e+00_rb,0.30555e+00_rb,0.32206e+00_rb,0.32938e+00_rb, &\n        & 0.32864e+00_rb,0.31877e+00_rb,0.29424e+00_rb,0.22230e+00_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.16940e+00_rb,0.27829e+00_rb,0.31116e+00_rb,0.32786e+00_rb,0.33559e+00_rb, &\n        & 0.33509e+00_rb,0.32534e+00_rb,0.30046e+00_rb,0.22643e+00_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.17863e+00_rb,0.28410e+00_rb,0.31692e+00_rb,0.33409e+00_rb,0.34189e+00_rb, &\n        & 0.34154e+00_rb,0.33152e+00_rb,0.30607e+00_rb,0.23022e+00_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.18774e+00_rb,0.29050e+00_rb,0.32341e+00_rb,0.34075e+00_rb,0.34846e+00_rb, &\n        & 0.34771e+00_rb,0.33731e+00_rb,0.31120e+00_rb,0.23340e+00_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.12627e+00_rb,0.22669e+00_rb,0.25719e+00_rb,0.27172e+00_rb,0.27732e+00_rb, &\n        & 0.27601e+00_rb,0.26659e+00_rb,0.24512e+00_rb,0.18584e+00_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.13516e+00_rb,0.23214e+00_rb,0.26193e+00_rb,0.27653e+00_rb,0.28265e+00_rb, &\n        & 0.28160e+00_rb,0.27265e+00_rb,0.25095e+00_rb,0.18968e+00_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.14321e+00_rb,0.23722e+00_rb,0.26679e+00_rb,0.28162e+00_rb,0.28797e+00_rb, &\n        & 0.28724e+00_rb,0.27822e+00_rb,0.25645e+00_rb,0.19293e+00_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.15107e+00_rb,0.24247e+00_rb,0.27199e+00_rb,0.28706e+00_rb,0.29346e+00_rb, &\n        & 0.29269e+00_rb,0.28343e+00_rb,0.26131e+00_rb,0.19541e+00_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.15896e+00_rb,0.24837e+00_rb,0.27786e+00_rb,0.29309e+00_rb,0.29929e+00_rb, &\n        & 0.29804e+00_rb,0.28838e+00_rb,0.26594e+00_rb,0.19802e+00_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.10682e+00_rb,0.19256e+00_rb,0.21863e+00_rb,0.23192e+00_rb,0.23695e+00_rb, &\n        & 0.23560e+00_rb,0.22744e+00_rb,0.20844e+00_rb,0.16014e+00_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.11409e+00_rb,0.19699e+00_rb,0.22274e+00_rb,0.23606e+00_rb,0.24149e+00_rb, &\n        & 0.24040e+00_rb,0.23256e+00_rb,0.21367e+00_rb,0.16300e+00_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.12093e+00_rb,0.20128e+00_rb,0.22702e+00_rb,0.24050e+00_rb,0.24609e+00_rb, &\n        & 0.24521e+00_rb,0.23721e+00_rb,0.21831e+00_rb,0.16579e+00_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.12767e+00_rb,0.20601e+00_rb,0.23174e+00_rb,0.24542e+00_rb,0.25091e+00_rb, &\n        & 0.24990e+00_rb,0.24163e+00_rb,0.22258e+00_rb,0.16866e+00_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.13446e+00_rb,0.21151e+00_rb,0.23730e+00_rb,0.25089e+00_rb,0.25608e+00_rb, &\n        & 0.25469e+00_rb,0.24607e+00_rb,0.22668e+00_rb,0.17141e+00_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.90556e-01_rb,0.16301e+00_rb,0.18506e+00_rb,0.19633e+00_rb,0.20124e+00_rb, &\n        & 0.20042e+00_rb,0.19353e+00_rb,0.17713e+00_rb,0.13589e+00_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.96629e-01_rb,0.16667e+00_rb,0.18855e+00_rb,0.19991e+00_rb,0.20512e+00_rb, &\n        & 0.20458e+00_rb,0.19781e+00_rb,0.18150e+00_rb,0.13866e+00_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.10246e+00_rb,0.17045e+00_rb,0.19232e+00_rb,0.20386e+00_rb,0.20916e+00_rb, &\n        & 0.20868e+00_rb,0.20175e+00_rb,0.18546e+00_rb,0.14157e+00_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.10831e+00_rb,0.17481e+00_rb,0.19664e+00_rb,0.20827e+00_rb,0.21340e+00_rb, &\n        & 0.21278e+00_rb,0.20565e+00_rb,0.18920e+00_rb,0.14421e+00_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.11418e+00_rb,0.17993e+00_rb,0.20190e+00_rb,0.21347e+00_rb,0.21830e+00_rb, &\n        & 0.21718e+00_rb,0.20964e+00_rb,0.19280e+00_rb,0.14715e+00_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.20844e+01_rb,0.23344e+01_rb,0.25576e+01_rb,0.26701e+01_rb,0.27010e+01_rb, &\n        & 0.26681e+01_rb,0.25683e+01_rb,0.23655e+01_rb,0.20810e+01_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.20807e+01_rb,0.23304e+01_rb,0.25489e+01_rb,0.26611e+01_rb,0.26920e+01_rb, &\n        & 0.26609e+01_rb,0.25647e+01_rb,0.23645e+01_rb,0.20859e+01_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.20877e+01_rb,0.23342e+01_rb,0.25477e+01_rb,0.26548e+01_rb,0.26843e+01_rb, &\n        & 0.26541e+01_rb,0.25605e+01_rb,0.23637e+01_rb,0.20903e+01_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.21052e+01_rb,0.23454e+01_rb,0.25520e+01_rb,0.26529e+01_rb,0.26778e+01_rb, &\n        & 0.26478e+01_rb,0.25565e+01_rb,0.23630e+01_rb,0.20935e+01_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.21303e+01_rb,0.23633e+01_rb,0.25619e+01_rb,0.26546e+01_rb,0.26749e+01_rb, &\n        & 0.26429e+01_rb,0.25542e+01_rb,0.23619e+01_rb,0.20958e+01_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.18120e+01_rb,0.21101e+01_rb,0.23204e+01_rb,0.24266e+01_rb,0.24657e+01_rb, &\n        & 0.24469e+01_rb,0.23702e+01_rb,0.21931e+01_rb,0.18669e+01_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.18187e+01_rb,0.21137e+01_rb,0.23188e+01_rb,0.24223e+01_rb,0.24620e+01_rb, &\n        & 0.24436e+01_rb,0.23687e+01_rb,0.21944e+01_rb,0.18726e+01_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.18356e+01_rb,0.21255e+01_rb,0.23256e+01_rb,0.24232e+01_rb,0.24590e+01_rb, &\n        & 0.24407e+01_rb,0.23674e+01_rb,0.21960e+01_rb,0.18776e+01_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.18614e+01_rb,0.21447e+01_rb,0.23386e+01_rb,0.24287e+01_rb,0.24595e+01_rb, &\n        & 0.24387e+01_rb,0.23672e+01_rb,0.21970e+01_rb,0.18816e+01_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.18927e+01_rb,0.21683e+01_rb,0.23579e+01_rb,0.24392e+01_rb,0.24636e+01_rb, &\n        & 0.24407e+01_rb,0.23665e+01_rb,0.21974e+01_rb,0.18864e+01_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.15702e+01_rb,0.18942e+01_rb,0.20837e+01_rb,0.21854e+01_rb,0.22324e+01_rb, &\n        & 0.22266e+01_rb,0.21649e+01_rb,0.20134e+01_rb,0.16617e+01_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.15827e+01_rb,0.19038e+01_rb,0.20886e+01_rb,0.21865e+01_rb,0.22329e+01_rb, &\n        & 0.22266e+01_rb,0.21649e+01_rb,0.20167e+01_rb,0.16695e+01_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.16046e+01_rb,0.19213e+01_rb,0.21019e+01_rb,0.21942e+01_rb,0.22360e+01_rb, &\n        & 0.22271e+01_rb,0.21665e+01_rb,0.20195e+01_rb,0.16762e+01_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.16329e+01_rb,0.19443e+01_rb,0.21213e+01_rb,0.22070e+01_rb,0.22424e+01_rb, &\n        & 0.22311e+01_rb,0.21683e+01_rb,0.20214e+01_rb,0.16830e+01_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.16658e+01_rb,0.19717e+01_rb,0.21452e+01_rb,0.22251e+01_rb,0.22530e+01_rb, &\n        & 0.22371e+01_rb,0.21708e+01_rb,0.20238e+01_rb,0.16904e+01_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.13564e+01_rb,0.16869e+01_rb,0.18550e+01_rb,0.19537e+01_rb,0.20049e+01_rb, &\n        & 0.20085e+01_rb,0.19601e+01_rb,0.18287e+01_rb,0.14756e+01_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.13720e+01_rb,0.17000e+01_rb,0.18655e+01_rb,0.19607e+01_rb,0.20100e+01_rb, &\n        & 0.20105e+01_rb,0.19622e+01_rb,0.18339e+01_rb,0.14854e+01_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.13952e+01_rb,0.17204e+01_rb,0.18837e+01_rb,0.19740e+01_rb,0.20182e+01_rb, &\n        & 0.20154e+01_rb,0.19654e+01_rb,0.18384e+01_rb,0.14948e+01_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.14229e+01_rb,0.17461e+01_rb,0.19072e+01_rb,0.19926e+01_rb,0.20303e+01_rb, &\n        & 0.20234e+01_rb,0.19691e+01_rb,0.18420e+01_rb,0.15040e+01_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.14534e+01_rb,0.17751e+01_rb,0.19345e+01_rb,0.20154e+01_rb,0.20467e+01_rb, &\n        & 0.20337e+01_rb,0.19742e+01_rb,0.18465e+01_rb,0.15131e+01_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.11675e+01_rb,0.14906e+01_rb,0.16422e+01_rb,0.17364e+01_rb,0.17875e+01_rb, &\n        & 0.17970e+01_rb,0.17582e+01_rb,0.16459e+01_rb,0.13057e+01_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.11839e+01_rb,0.15062e+01_rb,0.16573e+01_rb,0.17483e+01_rb,0.17956e+01_rb, &\n        & 0.18020e+01_rb,0.17623e+01_rb,0.16529e+01_rb,0.13176e+01_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.12061e+01_rb,0.15281e+01_rb,0.16790e+01_rb,0.17660e+01_rb,0.18082e+01_rb, &\n        & 0.18106e+01_rb,0.17678e+01_rb,0.16587e+01_rb,0.13289e+01_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.12311e+01_rb,0.15549e+01_rb,0.17048e+01_rb,0.17877e+01_rb,0.18250e+01_rb, &\n        & 0.18222e+01_rb,0.17742e+01_rb,0.16644e+01_rb,0.13398e+01_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.12582e+01_rb,0.15836e+01_rb,0.17338e+01_rb,0.18131e+01_rb,0.18457e+01_rb, &\n        & 0.18359e+01_rb,0.17826e+01_rb,0.16710e+01_rb,0.13507e+01_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.99981e+00_rb,0.13080e+01_rb,0.14477e+01_rb,0.15356e+01_rb,0.15829e+01_rb, &\n        & 0.15936e+01_rb,0.15636e+01_rb,0.14683e+01_rb,0.11482e+01_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.10151e+01_rb,0.13251e+01_rb,0.14655e+01_rb,0.15504e+01_rb,0.15941e+01_rb, &\n        & 0.16015e+01_rb,0.15698e+01_rb,0.14767e+01_rb,0.11619e+01_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.10344e+01_rb,0.13476e+01_rb,0.14887e+01_rb,0.15702e+01_rb,0.16097e+01_rb, &\n        & 0.16130e+01_rb,0.15772e+01_rb,0.14847e+01_rb,0.11743e+01_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.10560e+01_rb,0.13735e+01_rb,0.15155e+01_rb,0.15939e+01_rb,0.16293e+01_rb, &\n        & 0.16276e+01_rb,0.15870e+01_rb,0.14924e+01_rb,0.11864e+01_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.10794e+01_rb,0.13996e+01_rb,0.15438e+01_rb,0.16205e+01_rb,0.16521e+01_rb, &\n        & 0.16451e+01_rb,0.15991e+01_rb,0.15003e+01_rb,0.11982e+01_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.85239e+00_rb,0.11419e+01_rb,0.12714e+01_rb,0.13507e+01_rb,0.13930e+01_rb, &\n        & 0.14039e+01_rb,0.13790e+01_rb,0.12971e+01_rb,0.10034e+01_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.86542e+00_rb,0.11591e+01_rb,0.12898e+01_rb,0.13670e+01_rb,0.14062e+01_rb, &\n        & 0.14139e+01_rb,0.13871e+01_rb,0.13072e+01_rb,0.10179e+01_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.88108e+00_rb,0.11809e+01_rb,0.13130e+01_rb,0.13880e+01_rb,0.14241e+01_rb, &\n        & 0.14278e+01_rb,0.13975e+01_rb,0.13172e+01_rb,0.10310e+01_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.89900e+00_rb,0.12041e+01_rb,0.13390e+01_rb,0.14123e+01_rb,0.14455e+01_rb, &\n        & 0.14453e+01_rb,0.14105e+01_rb,0.13266e+01_rb,0.10434e+01_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.91862e+00_rb,0.12279e+01_rb,0.13649e+01_rb,0.14386e+01_rb,0.14692e+01_rb, &\n        & 0.14664e+01_rb,0.14254e+01_rb,0.13367e+01_rb,0.10558e+01_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.72497e+00_rb,0.99201e+00_rb,0.11107e+01_rb,0.11813e+01_rb,0.12195e+01_rb, &\n        & 0.12285e+01_rb,0.12058e+01_rb,0.11359e+01_rb,0.87110e+00_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.73517e+00_rb,0.10086e+01_rb,0.11285e+01_rb,0.11988e+01_rb,0.12342e+01_rb, &\n        & 0.12405e+01_rb,0.12160e+01_rb,0.11479e+01_rb,0.88568e+00_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.74752e+00_rb,0.10285e+01_rb,0.11507e+01_rb,0.12198e+01_rb,0.12532e+01_rb, &\n        & 0.12570e+01_rb,0.12289e+01_rb,0.11589e+01_rb,0.89927e+00_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.76213e+00_rb,0.10489e+01_rb,0.11747e+01_rb,0.12436e+01_rb,0.12757e+01_rb, &\n        & 0.12769e+01_rb,0.12445e+01_rb,0.11700e+01_rb,0.91203e+00_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.77854e+00_rb,0.10697e+01_rb,0.11980e+01_rb,0.12679e+01_rb,0.13002e+01_rb, &\n        & 0.12994e+01_rb,0.12621e+01_rb,0.11816e+01_rb,0.92392e+00_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.61682e+00_rb,0.85841e+00_rb,0.96403e+00_rb,0.10272e+01_rb,0.10606e+01_rb, &\n        & 0.10679e+01_rb,0.10472e+01_rb,0.98715e+00_rb,0.74825e+00_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.62415e+00_rb,0.87401e+00_rb,0.98140e+00_rb,0.10446e+01_rb,0.10763e+01_rb, &\n        & 0.10811e+01_rb,0.10593e+01_rb,0.10003e+01_rb,0.76294e+00_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.63387e+00_rb,0.89104e+00_rb,0.10022e+01_rb,0.10651e+01_rb,0.10962e+01_rb, &\n        & 0.10997e+01_rb,0.10740e+01_rb,0.10120e+01_rb,0.77659e+00_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.64542e+00_rb,0.90872e+00_rb,0.10230e+01_rb,0.10878e+01_rb,0.11188e+01_rb, &\n        & 0.11207e+01_rb,0.10911e+01_rb,0.10243e+01_rb,0.78905e+00_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.65900e+00_rb,0.92674e+00_rb,0.10436e+01_rb,0.11103e+01_rb,0.11424e+01_rb, &\n        & 0.11435e+01_rb,0.11102e+01_rb,0.10375e+01_rb,0.80034e+00_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.52547e+00_rb,0.74220e+00_rb,0.83433e+00_rb,0.88890e+00_rb,0.91741e+00_rb, &\n        & 0.92336e+00_rb,0.90538e+00_rb,0.85311e+00_rb,0.64696e+00_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.53064e+00_rb,0.75604e+00_rb,0.85107e+00_rb,0.90584e+00_rb,0.93361e+00_rb, &\n        & 0.93836e+00_rb,0.91861e+00_rb,0.86626e+00_rb,0.66062e+00_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.53809e+00_rb,0.77037e+00_rb,0.86942e+00_rb,0.92562e+00_rb,0.95409e+00_rb, &\n        & 0.95774e+00_rb,0.93423e+00_rb,0.87871e+00_rb,0.67391e+00_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.54734e+00_rb,0.78576e+00_rb,0.88734e+00_rb,0.94634e+00_rb,0.97611e+00_rb, &\n        & 0.97890e+00_rb,0.95253e+00_rb,0.89191e+00_rb,0.68526e+00_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.55842e+00_rb,0.80129e+00_rb,0.90542e+00_rb,0.96675e+00_rb,0.99781e+00_rb, &\n        & 0.10013e+01_rb,0.97253e+00_rb,0.90597e+00_rb,0.69583e+00_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.44902e+00_rb,0.64641e+00_rb,0.72682e+00_rb,0.77295e+00_rb,0.79679e+00_rb, &\n        & 0.80095e+00_rb,0.78478e+00_rb,0.73880e+00_rb,0.57500e+00_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.45343e+00_rb,0.65819e+00_rb,0.74259e+00_rb,0.79030e+00_rb,0.81509e+00_rb, &\n        & 0.81866e+00_rb,0.79960e+00_rb,0.75137e+00_rb,0.58784e+00_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.45968e+00_rb,0.67094e+00_rb,0.75812e+00_rb,0.80898e+00_rb,0.83522e+00_rb, &\n        & 0.83854e+00_rb,0.81711e+00_rb,0.76461e+00_rb,0.59939e+00_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.46764e+00_rb,0.68418e+00_rb,0.77402e+00_rb,0.82711e+00_rb,0.85518e+00_rb, &\n        & 0.85968e+00_rb,0.83634e+00_rb,0.77859e+00_rb,0.60954e+00_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.47750e+00_rb,0.69798e+00_rb,0.79021e+00_rb,0.84534e+00_rb,0.87480e+00_rb, &\n        & 0.88011e+00_rb,0.85595e+00_rb,0.79269e+00_rb,0.61896e+00_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.38252e+00_rb,0.56123e+00_rb,0.63221e+00_rb,0.67207e+00_rb,0.69191e+00_rb, &\n        & 0.69451e+00_rb,0.67853e+00_rb,0.63671e+00_rb,0.49624e+00_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.38610e+00_rb,0.57152e+00_rb,0.64559e+00_rb,0.68857e+00_rb,0.70992e+00_rb, &\n        & 0.71250e+00_rb,0.69440e+00_rb,0.64948e+00_rb,0.50772e+00_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.39135e+00_rb,0.58251e+00_rb,0.65953e+00_rb,0.70459e+00_rb,0.72793e+00_rb, &\n        & 0.73188e+00_rb,0.71251e+00_rb,0.66314e+00_rb,0.51771e+00_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.39838e+00_rb,0.59406e+00_rb,0.67357e+00_rb,0.72066e+00_rb,0.74570e+00_rb, &\n        & 0.75075e+00_rb,0.73108e+00_rb,0.67696e+00_rb,0.52680e+00_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.40785e+00_rb,0.60628e+00_rb,0.68802e+00_rb,0.73685e+00_rb,0.76342e+00_rb, &\n        & 0.76842e+00_rb,0.74857e+00_rb,0.69135e+00_rb,0.53408e+00_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.32297e+00_rb,0.48556e+00_rb,0.54760e+00_rb,0.58350e+00_rb,0.60079e+00_rb, &\n        & 0.60116e+00_rb,0.58518e+00_rb,0.54699e+00_rb,0.42276e+00_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.32591e+00_rb,0.49445e+00_rb,0.55963e+00_rb,0.59764e+00_rb,0.61654e+00_rb, &\n        & 0.61844e+00_rb,0.60149e+00_rb,0.55973e+00_rb,0.43280e+00_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.33057e+00_rb,0.50405e+00_rb,0.57184e+00_rb,0.61186e+00_rb,0.63239e+00_rb, &\n        & 0.63557e+00_rb,0.61864e+00_rb,0.57305e+00_rb,0.44151e+00_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.33705e+00_rb,0.51427e+00_rb,0.58428e+00_rb,0.62614e+00_rb,0.64825e+00_rb, &\n        & 0.65175e+00_rb,0.63492e+00_rb,0.58689e+00_rb,0.44893e+00_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.34636e+00_rb,0.52544e+00_rb,0.59740e+00_rb,0.64055e+00_rb,0.66342e+00_rb, &\n        & 0.66736e+00_rb,0.65002e+00_rb,0.60055e+00_rb,0.45487e+00_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.72991e+01_rb,0.69722e+01_rb,0.72863e+01_rb,0.75002e+01_rb,0.75688e+01_rb, &\n        & 0.74622e+01_rb,0.71020e+01_rb,0.65825e+01_rb,0.69144e+01_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.72210e+01_rb,0.69084e+01_rb,0.72319e+01_rb,0.74567e+01_rb,0.75409e+01_rb, &\n        & 0.74459e+01_rb,0.71001e+01_rb,0.65930e+01_rb,0.69213e+01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.71481e+01_rb,0.68475e+01_rb,0.71760e+01_rb,0.74130e+01_rb,0.75097e+01_rb, &\n        & 0.74266e+01_rb,0.70905e+01_rb,0.65992e+01_rb,0.69258e+01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.70810e+01_rb,0.67891e+01_rb,0.71222e+01_rb,0.73713e+01_rb,0.74785e+01_rb, &\n        & 0.74023e+01_rb,0.70766e+01_rb,0.66037e+01_rb,0.69303e+01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.70205e+01_rb,0.67342e+01_rb,0.70686e+01_rb,0.73258e+01_rb,0.74436e+01_rb, &\n        & 0.73740e+01_rb,0.70585e+01_rb,0.66060e+01_rb,0.69339e+01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.68023e+01_rb,0.66845e+01_rb,0.71435e+01_rb,0.74293e+01_rb,0.75528e+01_rb, &\n        & 0.74805e+01_rb,0.71383e+01_rb,0.65087e+01_rb,0.66425e+01_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.67309e+01_rb,0.66228e+01_rb,0.70899e+01_rb,0.73862e+01_rb,0.75243e+01_rb, &\n        & 0.74671e+01_rb,0.71358e+01_rb,0.65240e+01_rb,0.66588e+01_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.66680e+01_rb,0.65659e+01_rb,0.70365e+01_rb,0.73443e+01_rb,0.74954e+01_rb, &\n        & 0.74486e+01_rb,0.71260e+01_rb,0.65367e+01_rb,0.66745e+01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.66136e+01_rb,0.65139e+01_rb,0.69841e+01_rb,0.73016e+01_rb,0.74627e+01_rb, &\n        & 0.74252e+01_rb,0.71129e+01_rb,0.65455e+01_rb,0.66889e+01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.65687e+01_rb,0.64706e+01_rb,0.69322e+01_rb,0.72576e+01_rb,0.74266e+01_rb, &\n        & 0.73967e+01_rb,0.70986e+01_rb,0.65510e+01_rb,0.67011e+01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.62554e+01_rb,0.63717e+01_rb,0.69259e+01_rb,0.72750e+01_rb,0.74339e+01_rb, &\n        & 0.73812e+01_rb,0.70638e+01_rb,0.63830e+01_rb,0.62738e+01_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.61935e+01_rb,0.63130e+01_rb,0.68741e+01_rb,0.72340e+01_rb,0.74081e+01_rb, &\n        & 0.73723e+01_rb,0.70661e+01_rb,0.64055e+01_rb,0.63017e+01_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.61417e+01_rb,0.62609e+01_rb,0.68234e+01_rb,0.71924e+01_rb,0.73793e+01_rb, &\n        & 0.73559e+01_rb,0.70613e+01_rb,0.64217e+01_rb,0.63259e+01_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.61027e+01_rb,0.62184e+01_rb,0.67754e+01_rb,0.71518e+01_rb,0.73493e+01_rb, &\n        & 0.73341e+01_rb,0.70537e+01_rb,0.64352e+01_rb,0.63471e+01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.60751e+01_rb,0.61846e+01_rb,0.67335e+01_rb,0.71090e+01_rb,0.73143e+01_rb, &\n        & 0.73100e+01_rb,0.70431e+01_rb,0.64459e+01_rb,0.63674e+01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.56712e+01_rb,0.60174e+01_rb,0.66407e+01_rb,0.70308e+01_rb,0.72054e+01_rb, &\n        & 0.71700e+01_rb,0.68768e+01_rb,0.62076e+01_rb,0.58601e+01_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.56177e+01_rb,0.59637e+01_rb,0.65912e+01_rb,0.69914e+01_rb,0.71823e+01_rb, &\n        & 0.71644e+01_rb,0.68840e+01_rb,0.62360e+01_rb,0.58965e+01_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.55798e+01_rb,0.59204e+01_rb,0.65459e+01_rb,0.69532e+01_rb,0.71589e+01_rb, &\n        & 0.71503e+01_rb,0.68872e+01_rb,0.62571e+01_rb,0.59275e+01_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.55576e+01_rb,0.58874e+01_rb,0.65057e+01_rb,0.69160e+01_rb,0.71305e+01_rb, &\n        & 0.71327e+01_rb,0.68860e+01_rb,0.62738e+01_rb,0.59560e+01_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.55509e+01_rb,0.58664e+01_rb,0.64735e+01_rb,0.68799e+01_rb,0.70989e+01_rb, &\n        & 0.71129e+01_rb,0.68803e+01_rb,0.62864e+01_rb,0.59817e+01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.50748e+01_rb,0.56236e+01_rb,0.62897e+01_rb,0.66937e+01_rb,0.68773e+01_rb, &\n        & 0.68583e+01_rb,0.65966e+01_rb,0.59739e+01_rb,0.54247e+01_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.50332e+01_rb,0.55772e+01_rb,0.62435e+01_rb,0.66588e+01_rb,0.68602e+01_rb, &\n        & 0.68553e+01_rb,0.66099e+01_rb,0.60056e+01_rb,0.54668e+01_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.50094e+01_rb,0.55429e+01_rb,0.62032e+01_rb,0.66264e+01_rb,0.68392e+01_rb, &\n        & 0.68457e+01_rb,0.66198e+01_rb,0.60291e+01_rb,0.55024e+01_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.50054e+01_rb,0.55221e+01_rb,0.61728e+01_rb,0.65959e+01_rb,0.68138e+01_rb, &\n        & 0.68347e+01_rb,0.66239e+01_rb,0.60504e+01_rb,0.55378e+01_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.50196e+01_rb,0.55140e+01_rb,0.61502e+01_rb,0.65696e+01_rb,0.67880e+01_rb, &\n        & 0.68224e+01_rb,0.66232e+01_rb,0.60661e+01_rb,0.55660e+01_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.44929e+01_rb,0.51985e+01_rb,0.58791e+01_rb,0.62757e+01_rb,0.64716e+01_rb, &\n        & 0.64669e+01_rb,0.62368e+01_rb,0.56853e+01_rb,0.49792e+01_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.44612e+01_rb,0.51596e+01_rb,0.58385e+01_rb,0.62487e+01_rb,0.64570e+01_rb, &\n        & 0.64678e+01_rb,0.62575e+01_rb,0.57196e+01_rb,0.50244e+01_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.44521e+01_rb,0.51348e+01_rb,0.58071e+01_rb,0.62248e+01_rb,0.64383e+01_rb, &\n        & 0.64639e+01_rb,0.62747e+01_rb,0.57459e+01_rb,0.50676e+01_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.44651e+01_rb,0.51248e+01_rb,0.57862e+01_rb,0.62029e+01_rb,0.64206e+01_rb, &\n        & 0.64594e+01_rb,0.62829e+01_rb,0.57703e+01_rb,0.51061e+01_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.44974e+01_rb,0.51321e+01_rb,0.57769e+01_rb,0.61847e+01_rb,0.64045e+01_rb, &\n        & 0.64518e+01_rb,0.62850e+01_rb,0.57880e+01_rb,0.51383e+01_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.39405e+01_rb,0.47599e+01_rb,0.54183e+01_rb,0.58070e+01_rb,0.60002e+01_rb, &\n        & 0.60137e+01_rb,0.58231e+01_rb,0.53430e+01_rb,0.45395e+01_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.39200e+01_rb,0.47279e+01_rb,0.53865e+01_rb,0.57866e+01_rb,0.59900e+01_rb, &\n        & 0.60178e+01_rb,0.58493e+01_rb,0.53803e+01_rb,0.45897e+01_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.39243e+01_rb,0.47128e+01_rb,0.53651e+01_rb,0.57689e+01_rb,0.59779e+01_rb, &\n        & 0.60210e+01_rb,0.58689e+01_rb,0.54093e+01_rb,0.46370e+01_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.39509e+01_rb,0.47158e+01_rb,0.53566e+01_rb,0.57541e+01_rb,0.59686e+01_rb, &\n        & 0.60221e+01_rb,0.58794e+01_rb,0.54360e+01_rb,0.46801e+01_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.39997e+01_rb,0.47365e+01_rb,0.53625e+01_rb,0.57480e+01_rb,0.59641e+01_rb, &\n        & 0.60191e+01_rb,0.58864e+01_rb,0.54567e+01_rb,0.47154e+01_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.34277e+01_rb,0.43224e+01_rb,0.49312e+01_rb,0.53036e+01_rb,0.54930e+01_rb, &\n        & 0.55228e+01_rb,0.53766e+01_rb,0.49651e+01_rb,0.41155e+01_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.34174e+01_rb,0.42976e+01_rb,0.49104e+01_rb,0.52883e+01_rb,0.54862e+01_rb, &\n        & 0.55322e+01_rb,0.54048e+01_rb,0.50049e+01_rb,0.41706e+01_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.34328e+01_rb,0.42901e+01_rb,0.49000e+01_rb,0.52782e+01_rb,0.54821e+01_rb, &\n        & 0.55409e+01_rb,0.54257e+01_rb,0.50383e+01_rb,0.42218e+01_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.34724e+01_rb,0.43054e+01_rb,0.49030e+01_rb,0.52739e+01_rb,0.54825e+01_rb, &\n        & 0.55468e+01_rb,0.54402e+01_rb,0.50678e+01_rb,0.42656e+01_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.35331e+01_rb,0.43394e+01_rb,0.49199e+01_rb,0.52816e+01_rb,0.54871e+01_rb, &\n        & 0.55512e+01_rb,0.54505e+01_rb,0.50918e+01_rb,0.43035e+01_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.29643e+01_rb,0.38841e+01_rb,0.44459e+01_rb,0.47885e+01_rb,0.49734e+01_rb, &\n        & 0.50221e+01_rb,0.49131e+01_rb,0.45659e+01_rb,0.37057e+01_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.29616e+01_rb,0.38662e+01_rb,0.44298e+01_rb,0.47788e+01_rb,0.49743e+01_rb, &\n        & 0.50365e+01_rb,0.49428e+01_rb,0.46088e+01_rb,0.37656e+01_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.29848e+01_rb,0.38693e+01_rb,0.44274e+01_rb,0.47752e+01_rb,0.49768e+01_rb, &\n        & 0.50477e+01_rb,0.49663e+01_rb,0.46464e+01_rb,0.38194e+01_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.30329e+01_rb,0.38944e+01_rb,0.44404e+01_rb,0.47824e+01_rb,0.49850e+01_rb, &\n        & 0.50582e+01_rb,0.49851e+01_rb,0.46790e+01_rb,0.38645e+01_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.31033e+01_rb,0.39395e+01_rb,0.44689e+01_rb,0.48029e+01_rb,0.49990e+01_rb, &\n        & 0.50689e+01_rb,0.50004e+01_rb,0.47030e+01_rb,0.39063e+01_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.25528e+01_rb,0.34541e+01_rb,0.39652e+01_rb,0.42831e+01_rb,0.44659e+01_rb, &\n        & 0.45285e+01_rb,0.44509e+01_rb,0.41587e+01_rb,0.32612e+01_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.25575e+01_rb,0.34458e+01_rb,0.39558e+01_rb,0.42802e+01_rb,0.44723e+01_rb, &\n        & 0.45451e+01_rb,0.44820e+01_rb,0.42051e+01_rb,0.33240e+01_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.25883e+01_rb,0.34607e+01_rb,0.39625e+01_rb,0.42854e+01_rb,0.44811e+01_rb, &\n        & 0.45602e+01_rb,0.45090e+01_rb,0.42460e+01_rb,0.33785e+01_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.26435e+01_rb,0.34963e+01_rb,0.39867e+01_rb,0.43038e+01_rb,0.44956e+01_rb, &\n        & 0.45761e+01_rb,0.45312e+01_rb,0.42799e+01_rb,0.34270e+01_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.27203e+01_rb,0.35517e+01_rb,0.40270e+01_rb,0.43344e+01_rb,0.45189e+01_rb, &\n        & 0.45941e+01_rb,0.45504e+01_rb,0.43065e+01_rb,0.34705e+01_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.21958e+01_rb,0.30498e+01_rb,0.35059e+01_rb,0.38049e+01_rb,0.39876e+01_rb, &\n        & 0.40622e+01_rb,0.40123e+01_rb,0.37729e+01_rb,0.28786e+01_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.22177e+01_rb,0.30598e+01_rb,0.35116e+01_rb,0.38116e+01_rb,0.39989e+01_rb, &\n        & 0.40819e+01_rb,0.40442e+01_rb,0.38191e+01_rb,0.29389e+01_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.22647e+01_rb,0.30907e+01_rb,0.35359e+01_rb,0.38306e+01_rb,0.40167e+01_rb, &\n        & 0.41020e+01_rb,0.40724e+01_rb,0.38578e+01_rb,0.29915e+01_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.23337e+01_rb,0.31425e+01_rb,0.35763e+01_rb,0.38632e+01_rb,0.40437e+01_rb, &\n        & 0.41245e+01_rb,0.40973e+01_rb,0.38902e+01_rb,0.30386e+01_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.24135e+01_rb,0.32120e+01_rb,0.36330e+01_rb,0.39077e+01_rb,0.40797e+01_rb, &\n        & 0.41526e+01_rb,0.41204e+01_rb,0.39195e+01_rb,0.30818e+01_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.18956e+01_rb,0.26861e+01_rb,0.30931e+01_rb,0.33674e+01_rb,0.35425e+01_rb, &\n        & 0.36210e+01_rb,0.35899e+01_rb,0.33921e+01_rb,0.25824e+01_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.19314e+01_rb,0.27108e+01_rb,0.31141e+01_rb,0.33855e+01_rb,0.35620e+01_rb, &\n        & 0.36450e+01_rb,0.36224e+01_rb,0.34362e+01_rb,0.26351e+01_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.19899e+01_rb,0.27565e+01_rb,0.31515e+01_rb,0.34177e+01_rb,0.35909e+01_rb, &\n        & 0.36718e+01_rb,0.36517e+01_rb,0.34743e+01_rb,0.26837e+01_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.20599e+01_rb,0.28211e+01_rb,0.32055e+01_rb,0.34628e+01_rb,0.36291e+01_rb, &\n        & 0.37038e+01_rb,0.36800e+01_rb,0.35081e+01_rb,0.27286e+01_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.21342e+01_rb,0.28994e+01_rb,0.32752e+01_rb,0.35201e+01_rb,0.36745e+01_rb, &\n        & 0.37420e+01_rb,0.37112e+01_rb,0.35392e+01_rb,0.27703e+01_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.16403e+01_rb,0.23651e+01_rb,0.27290e+01_rb,0.29746e+01_rb,0.31326e+01_rb, &\n        & 0.32080e+01_rb,0.31891e+01_rb,0.30274e+01_rb,0.23307e+01_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.16863e+01_rb,0.24025e+01_rb,0.27611e+01_rb,0.30044e+01_rb,0.31618e+01_rb, &\n        & 0.32369e+01_rb,0.32226e+01_rb,0.30700e+01_rb,0.23815e+01_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.17455e+01_rb,0.24598e+01_rb,0.28102e+01_rb,0.30475e+01_rb,0.32007e+01_rb, &\n        & 0.32722e+01_rb,0.32554e+01_rb,0.31073e+01_rb,0.24291e+01_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.18100e+01_rb,0.25311e+01_rb,0.28759e+01_rb,0.31035e+01_rb,0.32472e+01_rb, &\n        & 0.33131e+01_rb,0.32901e+01_rb,0.31417e+01_rb,0.24730e+01_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.18736e+01_rb,0.26085e+01_rb,0.29527e+01_rb,0.31711e+01_rb,0.33027e+01_rb, &\n        & 0.33589e+01_rb,0.33290e+01_rb,0.31763e+01_rb,0.25126e+01_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.19065e+02_rb,0.16899e+02_rb,0.15643e+02_rb,0.15578e+02_rb,0.15043e+02_rb, &\n        & 0.14288e+02_rb,0.13684e+02_rb,0.14703e+02_rb,0.16312e+02_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.18912e+02_rb,0.16761e+02_rb,0.15514e+02_rb,0.15480e+02_rb,0.14973e+02_rb, &\n        & 0.14273e+02_rb,0.13717e+02_rb,0.14749e+02_rb,0.16352e+02_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.18728e+02_rb,0.16596e+02_rb,0.15380e+02_rb,0.15367e+02_rb,0.14915e+02_rb, &\n        & 0.14240e+02_rb,0.13761e+02_rb,0.14772e+02_rb,0.16373e+02_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.18544e+02_rb,0.16434e+02_rb,0.15250e+02_rb,0.15223e+02_rb,0.14839e+02_rb, &\n        & 0.14214e+02_rb,0.13761e+02_rb,0.14749e+02_rb,0.16351e+02_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.18333e+02_rb,0.16256e+02_rb,0.15122e+02_rb,0.15098e+02_rb,0.14749e+02_rb, &\n        & 0.14176e+02_rb,0.13735e+02_rb,0.14720e+02_rb,0.16309e+02_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.19359e+02_rb,0.17148e+02_rb,0.16419e+02_rb,0.16424e+02_rb,0.16006e+02_rb, &\n        & 0.15375e+02_rb,0.14545e+02_rb,0.15202e+02_rb,0.16997e+02_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.19172e+02_rb,0.16980e+02_rb,0.16267e+02_rb,0.16317e+02_rb,0.15911e+02_rb, &\n        & 0.15334e+02_rb,0.14618e+02_rb,0.15283e+02_rb,0.17084e+02_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.18973e+02_rb,0.16804e+02_rb,0.16126e+02_rb,0.16185e+02_rb,0.15827e+02_rb, &\n        & 0.15302e+02_rb,0.14664e+02_rb,0.15280e+02_rb,0.17092e+02_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.18751e+02_rb,0.16617e+02_rb,0.15988e+02_rb,0.16055e+02_rb,0.15738e+02_rb, &\n        & 0.15272e+02_rb,0.14654e+02_rb,0.15237e+02_rb,0.17035e+02_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.18520e+02_rb,0.16417e+02_rb,0.15855e+02_rb,0.15950e+02_rb,0.15639e+02_rb, &\n        & 0.15219e+02_rb,0.14617e+02_rb,0.15192e+02_rb,0.16961e+02_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.19263e+02_rb,0.17075e+02_rb,0.17060e+02_rb,0.17120e+02_rb,0.16883e+02_rb, &\n        & 0.16381e+02_rb,0.15414e+02_rb,0.15455e+02_rb,0.17398e+02_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.19059e+02_rb,0.16894e+02_rb,0.16898e+02_rb,0.17000e+02_rb,0.16773e+02_rb, &\n        & 0.16323e+02_rb,0.15500e+02_rb,0.15491e+02_rb,0.17437e+02_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.18835e+02_rb,0.16708e+02_rb,0.16745e+02_rb,0.16865e+02_rb,0.16669e+02_rb, &\n        & 0.16285e+02_rb,0.15530e+02_rb,0.15496e+02_rb,0.17423e+02_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.18600e+02_rb,0.16513e+02_rb,0.16588e+02_rb,0.16744e+02_rb,0.16560e+02_rb, &\n        & 0.16244e+02_rb,0.15515e+02_rb,0.15476e+02_rb,0.17372e+02_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.18358e+02_rb,0.16312e+02_rb,0.16416e+02_rb,0.16627e+02_rb,0.16462e+02_rb, &\n        & 0.16172e+02_rb,0.15490e+02_rb,0.15433e+02_rb,0.17293e+02_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.18801e+02_rb,0.16888e+02_rb,0.17351e+02_rb,0.17638e+02_rb,0.17654e+02_rb, &\n        & 0.17241e+02_rb,0.16305e+02_rb,0.15458e+02_rb,0.17321e+02_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.18579e+02_rb,0.16692e+02_rb,0.17197e+02_rb,0.17496e+02_rb,0.17520e+02_rb, &\n        & 0.17188e+02_rb,0.16384e+02_rb,0.15486e+02_rb,0.17346e+02_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.18342e+02_rb,0.16488e+02_rb,0.17035e+02_rb,0.17349e+02_rb,0.17380e+02_rb, &\n        & 0.17158e+02_rb,0.16385e+02_rb,0.15526e+02_rb,0.17367e+02_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.18091e+02_rb,0.16279e+02_rb,0.16863e+02_rb,0.17208e+02_rb,0.17266e+02_rb, &\n        & 0.17103e+02_rb,0.16355e+02_rb,0.15560e+02_rb,0.17358e+02_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.17836e+02_rb,0.16059e+02_rb,0.16677e+02_rb,0.17068e+02_rb,0.17166e+02_rb, &\n        & 0.17011e+02_rb,0.16312e+02_rb,0.15578e+02_rb,0.17344e+02_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.17961e+02_rb,0.16659e+02_rb,0.17334e+02_rb,0.17976e+02_rb,0.18171e+02_rb, &\n        & 0.17832e+02_rb,0.16966e+02_rb,0.15432e+02_rb,0.16855e+02_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.17714e+02_rb,0.16442e+02_rb,0.17178e+02_rb,0.17800e+02_rb,0.18030e+02_rb, &\n        & 0.17804e+02_rb,0.17004e+02_rb,0.15487e+02_rb,0.16904e+02_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.17470e+02_rb,0.16231e+02_rb,0.17012e+02_rb,0.17636e+02_rb,0.17902e+02_rb, &\n        & 0.17774e+02_rb,0.16959e+02_rb,0.15590e+02_rb,0.16987e+02_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.17221e+02_rb,0.16002e+02_rb,0.16835e+02_rb,0.17477e+02_rb,0.17804e+02_rb, &\n        & 0.17680e+02_rb,0.16923e+02_rb,0.15646e+02_rb,0.17004e+02_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.16955e+02_rb,0.15778e+02_rb,0.16648e+02_rb,0.17325e+02_rb,0.17709e+02_rb, &\n        & 0.17576e+02_rb,0.16895e+02_rb,0.15664e+02_rb,0.17027e+02_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.16796e+02_rb,0.16241e+02_rb,0.17123e+02_rb,0.18098e+02_rb,0.18345e+02_rb, &\n        & 0.18145e+02_rb,0.17297e+02_rb,0.15317e+02_rb,0.16076e+02_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.16561e+02_rb,0.16019e+02_rb,0.16973e+02_rb,0.17901e+02_rb,0.18253e+02_rb, &\n        & 0.18123e+02_rb,0.17284e+02_rb,0.15411e+02_rb,0.16194e+02_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.16307e+02_rb,0.15790e+02_rb,0.16801e+02_rb,0.17722e+02_rb,0.18189e+02_rb, &\n        & 0.18068e+02_rb,0.17217e+02_rb,0.15556e+02_rb,0.16309e+02_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.16045e+02_rb,0.15571e+02_rb,0.16615e+02_rb,0.17565e+02_rb,0.18113e+02_rb, &\n        & 0.17968e+02_rb,0.17201e+02_rb,0.15625e+02_rb,0.16374e+02_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.15792e+02_rb,0.15350e+02_rb,0.16424e+02_rb,0.17437e+02_rb,0.17997e+02_rb, &\n        & 0.17869e+02_rb,0.17203e+02_rb,0.15664e+02_rb,0.16420e+02_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.15441e+02_rb,0.15555e+02_rb,0.16836e+02_rb,0.17857e+02_rb,0.18265e+02_rb, &\n        & 0.18114e+02_rb,0.17249e+02_rb,0.15143e+02_rb,0.15078e+02_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.15190e+02_rb,0.15341e+02_rb,0.16649e+02_rb,0.17679e+02_rb,0.18211e+02_rb, &\n        & 0.18098e+02_rb,0.17215e+02_rb,0.15278e+02_rb,0.15251e+02_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.14946e+02_rb,0.15122e+02_rb,0.16458e+02_rb,0.17534e+02_rb,0.18165e+02_rb, &\n        & 0.18029e+02_rb,0.17165e+02_rb,0.15443e+02_rb,0.15389e+02_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.14700e+02_rb,0.14908e+02_rb,0.16252e+02_rb,0.17424e+02_rb,0.18072e+02_rb, &\n        & 0.17929e+02_rb,0.17187e+02_rb,0.15518e+02_rb,0.15458e+02_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.14445e+02_rb,0.14710e+02_rb,0.16048e+02_rb,0.17304e+02_rb,0.17932e+02_rb, &\n        & 0.17873e+02_rb,0.17206e+02_rb,0.15573e+02_rb,0.15541e+02_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.13963e+02_rb,0.14641e+02_rb,0.16339e+02_rb,0.17287e+02_rb,0.17853e+02_rb, &\n        & 0.17712e+02_rb,0.16836e+02_rb,0.14867e+02_rb,0.13958e+02_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.13720e+02_rb,0.14441e+02_rb,0.16121e+02_rb,0.17175e+02_rb,0.17806e+02_rb, &\n        & 0.17701e+02_rb,0.16817e+02_rb,0.15013e+02_rb,0.14139e+02_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.13475e+02_rb,0.14253e+02_rb,0.15918e+02_rb,0.17071e+02_rb,0.17741e+02_rb, &\n        & 0.17634e+02_rb,0.16820e+02_rb,0.15155e+02_rb,0.14269e+02_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.13235e+02_rb,0.14056e+02_rb,0.15727e+02_rb,0.16983e+02_rb,0.17630e+02_rb, &\n        & 0.17564e+02_rb,0.16869e+02_rb,0.15238e+02_rb,0.14383e+02_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.13009e+02_rb,0.13855e+02_rb,0.15556e+02_rb,0.16857e+02_rb,0.17508e+02_rb, &\n        & 0.17529e+02_rb,0.16912e+02_rb,0.15302e+02_rb,0.14496e+02_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.12422e+02_rb,0.13743e+02_rb,0.15496e+02_rb,0.16530e+02_rb,0.17068e+02_rb, &\n        & 0.16944e+02_rb,0.16119e+02_rb,0.14360e+02_rb,0.12852e+02_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.12195e+02_rb,0.13543e+02_rb,0.15328e+02_rb,0.16447e+02_rb,0.17000e+02_rb, &\n        & 0.16934e+02_rb,0.16148e+02_rb,0.14484e+02_rb,0.13012e+02_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.11972e+02_rb,0.13354e+02_rb,0.15163e+02_rb,0.16359e+02_rb,0.16940e+02_rb, &\n        & 0.16900e+02_rb,0.16191e+02_rb,0.14599e+02_rb,0.13152e+02_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.11752e+02_rb,0.13166e+02_rb,0.15011e+02_rb,0.16249e+02_rb,0.16842e+02_rb, &\n        & 0.16880e+02_rb,0.16254e+02_rb,0.14688e+02_rb,0.13295e+02_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.11542e+02_rb,0.12972e+02_rb,0.14878e+02_rb,0.16107e+02_rb,0.16750e+02_rb, &\n        & 0.16884e+02_rb,0.16301e+02_rb,0.14790e+02_rb,0.13417e+02_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.10883e+02_rb,0.12799e+02_rb,0.14471e+02_rb,0.15523e+02_rb,0.15963e+02_rb, &\n        & 0.15867e+02_rb,0.15188e+02_rb,0.13687e+02_rb,0.11830e+02_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.10669e+02_rb,0.12615e+02_rb,0.14351e+02_rb,0.15423e+02_rb,0.15920e+02_rb, &\n        & 0.15883e+02_rb,0.15251e+02_rb,0.13796e+02_rb,0.11997e+02_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.10461e+02_rb,0.12417e+02_rb,0.14235e+02_rb,0.15340e+02_rb,0.15857e+02_rb, &\n        & 0.15885e+02_rb,0.15315e+02_rb,0.13895e+02_rb,0.12154e+02_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.10271e+02_rb,0.12218e+02_rb,0.14109e+02_rb,0.15234e+02_rb,0.15808e+02_rb, &\n        & 0.15905e+02_rb,0.15383e+02_rb,0.14000e+02_rb,0.12311e+02_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.10108e+02_rb,0.12035e+02_rb,0.13977e+02_rb,0.15117e+02_rb,0.15764e+02_rb, &\n        & 0.15927e+02_rb,0.15450e+02_rb,0.14121e+02_rb,0.12430e+02_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.93334e+01_rb,0.11625e+02_rb,0.13302e+02_rb,0.14226e+02_rb,0.14663e+02_rb, &\n        & 0.14671e+02_rb,0.14179e+02_rb,0.12958e+02_rb,0.10939e+02_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.91435e+01_rb,0.11452e+02_rb,0.13192e+02_rb,0.14163e+02_rb,0.14640e+02_rb, &\n        & 0.14697e+02_rb,0.14256e+02_rb,0.13072e+02_rb,0.11104e+02_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.89744e+01_rb,0.11286e+02_rb,0.13068e+02_rb,0.14085e+02_rb,0.14619e+02_rb, &\n        & 0.14728e+02_rb,0.14326e+02_rb,0.13192e+02_rb,0.11276e+02_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.88386e+01_rb,0.11134e+02_rb,0.12957e+02_rb,0.14008e+02_rb,0.14602e+02_rb, &\n        & 0.14761e+02_rb,0.14404e+02_rb,0.13322e+02_rb,0.11423e+02_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.88280e+01_rb,0.11011e+02_rb,0.12844e+02_rb,0.13942e+02_rb,0.14584e+02_rb, &\n        & 0.14790e+02_rb,0.14494e+02_rb,0.13437e+02_rb,0.11537e+02_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.79516e+01_rb,0.10418e+02_rb,0.11985e+02_rb,0.12856e+02_rb,0.13326e+02_rb, &\n        & 0.13448e+02_rb,0.13142e+02_rb,0.12163e+02_rb,0.97408e+01_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.78004e+01_rb,0.10286e+02_rb,0.11886e+02_rb,0.12812e+02_rb,0.13327e+02_rb, &\n        & 0.13488e+02_rb,0.13229e+02_rb,0.12301e+02_rb,0.99474e+01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.76847e+01_rb,0.10169e+02_rb,0.11799e+02_rb,0.12768e+02_rb,0.13325e+02_rb, &\n        & 0.13529e+02_rb,0.13323e+02_rb,0.12442e+02_rb,0.10130e+02_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.76979e+01_rb,0.10072e+02_rb,0.11716e+02_rb,0.12735e+02_rb,0.13318e+02_rb, &\n        & 0.13569e+02_rb,0.13422e+02_rb,0.12581e+02_rb,0.10272e+02_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.78582e+01_rb,0.10030e+02_rb,0.11643e+02_rb,0.12707e+02_rb,0.13325e+02_rb, &\n        & 0.13613e+02_rb,0.13505e+02_rb,0.12682e+02_rb,0.10410e+02_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.68077e+01_rb,0.92695e+01_rb,0.10647e+02_rb,0.11513e+02_rb,0.12044e+02_rb, &\n        & 0.12269e+02_rb,0.12092e+02_rb,0.11295e+02_rb,0.85103e+01_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.67020e+01_rb,0.91675e+01_rb,0.10585e+02_rb,0.11489e+02_rb,0.12056e+02_rb, &\n        & 0.12329e+02_rb,0.12198e+02_rb,0.11449e+02_rb,0.87111e+01_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.67136e+01_rb,0.90765e+01_rb,0.10537e+02_rb,0.11473e+02_rb,0.12065e+02_rb, &\n        & 0.12379e+02_rb,0.12312e+02_rb,0.11602e+02_rb,0.88718e+01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.68715e+01_rb,0.90508e+01_rb,0.10490e+02_rb,0.11454e+02_rb,0.12087e+02_rb, &\n        & 0.12433e+02_rb,0.12413e+02_rb,0.11728e+02_rb,0.90172e+01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.71183e+01_rb,0.91466e+01_rb,0.10479e+02_rb,0.11436e+02_rb,0.12120e+02_rb, &\n        & 0.12489e+02_rb,0.12478e+02_rb,0.11826e+02_rb,0.91846e+01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.25290e+02_rb,0.22378e+02_rb,0.19682e+02_rb,0.19092e+02_rb,0.18401e+02_rb, &\n        & 0.17330e+02_rb,0.17194e+02_rb,0.19513e+02_rb,0.21546e+02_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.25153e+02_rb,0.22251e+02_rb,0.19574e+02_rb,0.19002e+02_rb,0.18309e+02_rb, &\n        & 0.17346e+02_rb,0.17168e+02_rb,0.19469e+02_rb,0.21516e+02_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.24990e+02_rb,0.22108e+02_rb,0.19457e+02_rb,0.18891e+02_rb,0.18197e+02_rb, &\n        & 0.17344e+02_rb,0.17153e+02_rb,0.19435e+02_rb,0.21516e+02_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.24785e+02_rb,0.21926e+02_rb,0.19312e+02_rb,0.18774e+02_rb,0.18111e+02_rb, &\n        & 0.17300e+02_rb,0.17168e+02_rb,0.19426e+02_rb,0.21524e+02_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.24562e+02_rb,0.21729e+02_rb,0.19145e+02_rb,0.18657e+02_rb,0.18043e+02_rb, &\n        & 0.17239e+02_rb,0.17190e+02_rb,0.19400e+02_rb,0.21517e+02_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.26738e+02_rb,0.23635e+02_rb,0.21164e+02_rb,0.20882e+02_rb,0.20133e+02_rb, &\n        & 0.18952e+02_rb,0.18391e+02_rb,0.20397e+02_rb,0.22752e+02_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.26579e+02_rb,0.23493e+02_rb,0.21026e+02_rb,0.20770e+02_rb,0.20046e+02_rb, &\n        & 0.18924e+02_rb,0.18351e+02_rb,0.20302e+02_rb,0.22673e+02_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.26369e+02_rb,0.23304e+02_rb,0.20847e+02_rb,0.20634e+02_rb,0.19955e+02_rb, &\n        & 0.18867e+02_rb,0.18355e+02_rb,0.20274e+02_rb,0.22643e+02_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.26147e+02_rb,0.23108e+02_rb,0.20663e+02_rb,0.20491e+02_rb,0.19870e+02_rb, &\n        & 0.18790e+02_rb,0.18365e+02_rb,0.20271e+02_rb,0.22638e+02_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.25876e+02_rb,0.22867e+02_rb,0.20457e+02_rb,0.20308e+02_rb,0.19788e+02_rb, &\n        & 0.18723e+02_rb,0.18359e+02_rb,0.20242e+02_rb,0.22612e+02_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.27801e+02_rb,0.24558e+02_rb,0.22625e+02_rb,0.22456e+02_rb,0.21766e+02_rb, &\n        & 0.20723e+02_rb,0.19785e+02_rb,0.21193e+02_rb,0.23811e+02_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.27586e+02_rb,0.24366e+02_rb,0.22444e+02_rb,0.22341e+02_rb,0.21670e+02_rb, &\n        & 0.20651e+02_rb,0.19732e+02_rb,0.21163e+02_rb,0.23778e+02_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.27362e+02_rb,0.24166e+02_rb,0.22236e+02_rb,0.22200e+02_rb,0.21575e+02_rb, &\n        & 0.20557e+02_rb,0.19718e+02_rb,0.21155e+02_rb,0.23783e+02_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.27084e+02_rb,0.23919e+02_rb,0.22013e+02_rb,0.22018e+02_rb,0.21471e+02_rb, &\n        & 0.20457e+02_rb,0.19708e+02_rb,0.21136e+02_rb,0.23769e+02_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.26795e+02_rb,0.23666e+02_rb,0.21794e+02_rb,0.21827e+02_rb,0.21355e+02_rb, &\n        & 0.20374e+02_rb,0.19655e+02_rb,0.21092e+02_rb,0.23724e+02_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.28327e+02_rb,0.25026e+02_rb,0.23910e+02_rb,0.23720e+02_rb,0.23265e+02_rb, &\n        & 0.22396e+02_rb,0.21086e+02_rb,0.21859e+02_rb,0.24649e+02_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.28095e+02_rb,0.24816e+02_rb,0.23683e+02_rb,0.23594e+02_rb,0.23156e+02_rb, &\n        & 0.22304e+02_rb,0.21023e+02_rb,0.21873e+02_rb,0.24674e+02_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.27817e+02_rb,0.24569e+02_rb,0.23454e+02_rb,0.23446e+02_rb,0.23031e+02_rb, &\n        & 0.22182e+02_rb,0.21022e+02_rb,0.21878e+02_rb,0.24680e+02_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.27525e+02_rb,0.24310e+02_rb,0.23220e+02_rb,0.23268e+02_rb,0.22908e+02_rb, &\n        & 0.22090e+02_rb,0.21022e+02_rb,0.21824e+02_rb,0.24620e+02_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.27191e+02_rb,0.24023e+02_rb,0.22996e+02_rb,0.23072e+02_rb,0.22769e+02_rb, &\n        & 0.22022e+02_rb,0.20982e+02_rb,0.21737e+02_rb,0.24514e+02_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.28259e+02_rb,0.25014e+02_rb,0.24907e+02_rb,0.24706e+02_rb,0.24642e+02_rb, &\n        & 0.23918e+02_rb,0.22330e+02_rb,0.22219e+02_rb,0.25091e+02_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.27993e+02_rb,0.24771e+02_rb,0.24666e+02_rb,0.24596e+02_rb,0.24487e+02_rb, &\n        & 0.23818e+02_rb,0.22348e+02_rb,0.22269e+02_rb,0.25149e+02_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.27691e+02_rb,0.24499e+02_rb,0.24421e+02_rb,0.24432e+02_rb,0.24340e+02_rb, &\n        & 0.23705e+02_rb,0.22420e+02_rb,0.22242e+02_rb,0.25109e+02_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.27357e+02_rb,0.24214e+02_rb,0.24178e+02_rb,0.24253e+02_rb,0.24191e+02_rb, &\n        & 0.23642e+02_rb,0.22422e+02_rb,0.22174e+02_rb,0.25030e+02_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.27008e+02_rb,0.23916e+02_rb,0.23935e+02_rb,0.24063e+02_rb,0.24020e+02_rb, &\n        & 0.23572e+02_rb,0.22355e+02_rb,0.22132e+02_rb,0.24957e+02_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.27627e+02_rb,0.24841e+02_rb,0.25414e+02_rb,0.25513e+02_rb,0.25788e+02_rb, &\n        & 0.25161e+02_rb,0.23567e+02_rb,0.22384e+02_rb,0.25091e+02_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.27317e+02_rb,0.24550e+02_rb,0.25165e+02_rb,0.25384e+02_rb,0.25578e+02_rb, &\n        & 0.25083e+02_rb,0.23662e+02_rb,0.22423e+02_rb,0.25102e+02_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.26994e+02_rb,0.24259e+02_rb,0.24926e+02_rb,0.25206e+02_rb,0.25391e+02_rb, &\n        & 0.25015e+02_rb,0.23758e+02_rb,0.22363e+02_rb,0.25025e+02_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.26640e+02_rb,0.23945e+02_rb,0.24692e+02_rb,0.25002e+02_rb,0.25193e+02_rb, &\n        & 0.24973e+02_rb,0.23733e+02_rb,0.22328e+02_rb,0.24965e+02_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.26265e+02_rb,0.23625e+02_rb,0.24446e+02_rb,0.24785e+02_rb,0.25037e+02_rb, &\n        & 0.24906e+02_rb,0.23659e+02_rb,0.22352e+02_rb,0.24965e+02_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.26430e+02_rb,0.24581e+02_rb,0.25439e+02_rb,0.26140e+02_rb,0.26524e+02_rb, &\n        & 0.25974e+02_rb,0.24552e+02_rb,0.22441e+02_rb,0.24498e+02_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.26105e+02_rb,0.24263e+02_rb,0.25225e+02_rb,0.25974e+02_rb,0.26315e+02_rb, &\n        & 0.25946e+02_rb,0.24677e+02_rb,0.22471e+02_rb,0.24490e+02_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.25752e+02_rb,0.23938e+02_rb,0.24996e+02_rb,0.25749e+02_rb,0.26113e+02_rb, &\n        & 0.25925e+02_rb,0.24758e+02_rb,0.22442e+02_rb,0.24454e+02_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.25389e+02_rb,0.23609e+02_rb,0.24761e+02_rb,0.25499e+02_rb,0.25940e+02_rb, &\n        & 0.25913e+02_rb,0.24720e+02_rb,0.22473e+02_rb,0.24475e+02_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.25010e+02_rb,0.23260e+02_rb,0.24510e+02_rb,0.25262e+02_rb,0.25804e+02_rb, &\n        & 0.25811e+02_rb,0.24640e+02_rb,0.22547e+02_rb,0.24534e+02_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.24762e+02_rb,0.23997e+02_rb,0.25209e+02_rb,0.26467e+02_rb,0.26748e+02_rb, &\n        & 0.26365e+02_rb,0.25094e+02_rb,0.22357e+02_rb,0.23406e+02_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.24421e+02_rb,0.23672e+02_rb,0.24981e+02_rb,0.26217e+02_rb,0.26595e+02_rb, &\n        & 0.26375e+02_rb,0.25195e+02_rb,0.22435e+02_rb,0.23453e+02_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.24067e+02_rb,0.23336e+02_rb,0.24754e+02_rb,0.25956e+02_rb,0.26455e+02_rb, &\n        & 0.26361e+02_rb,0.25241e+02_rb,0.22458e+02_rb,0.23475e+02_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.23691e+02_rb,0.22996e+02_rb,0.24502e+02_rb,0.25698e+02_rb,0.26330e+02_rb, &\n        & 0.26343e+02_rb,0.25197e+02_rb,0.22533e+02_rb,0.23575e+02_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.23311e+02_rb,0.22660e+02_rb,0.24234e+02_rb,0.25450e+02_rb,0.26215e+02_rb, &\n        & 0.26209e+02_rb,0.25123e+02_rb,0.22642e+02_rb,0.23709e+02_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.22800e+02_rb,0.23011e+02_rb,0.24799e+02_rb,0.26181e+02_rb,0.26533e+02_rb, &\n        & 0.26301e+02_rb,0.25044e+02_rb,0.22077e+02_rb,0.21907e+02_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.22436e+02_rb,0.22697e+02_rb,0.24546e+02_rb,0.25945e+02_rb,0.26460e+02_rb, &\n        & 0.26314e+02_rb,0.25122e+02_rb,0.22204e+02_rb,0.22029e+02_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.22079e+02_rb,0.22367e+02_rb,0.24295e+02_rb,0.25706e+02_rb,0.26370e+02_rb, &\n        & 0.26288e+02_rb,0.25162e+02_rb,0.22314e+02_rb,0.22151e+02_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.21719e+02_rb,0.22029e+02_rb,0.24017e+02_rb,0.25487e+02_rb,0.26273e+02_rb, &\n        & 0.26217e+02_rb,0.25110e+02_rb,0.22435e+02_rb,0.22334e+02_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.21341e+02_rb,0.21707e+02_rb,0.23702e+02_rb,0.25282e+02_rb,0.26159e+02_rb, &\n        & 0.26086e+02_rb,0.25065e+02_rb,0.22578e+02_rb,0.22506e+02_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.20601e+02_rb,0.21678e+02_rb,0.24058e+02_rb,0.25352e+02_rb,0.25931e+02_rb, &\n        & 0.25718e+02_rb,0.24432e+02_rb,0.21607e+02_rb,0.20262e+02_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.20254e+02_rb,0.21345e+02_rb,0.23796e+02_rb,0.25183e+02_rb,0.25875e+02_rb, &\n        & 0.25691e+02_rb,0.24508e+02_rb,0.21774e+02_rb,0.20445e+02_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.19899e+02_rb,0.21048e+02_rb,0.23494e+02_rb,0.25000e+02_rb,0.25800e+02_rb, &\n        & 0.25662e+02_rb,0.24533e+02_rb,0.21922e+02_rb,0.20638e+02_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.19544e+02_rb,0.20766e+02_rb,0.23207e+02_rb,0.24826e+02_rb,0.25686e+02_rb, &\n        & 0.25593e+02_rb,0.24527e+02_rb,0.22085e+02_rb,0.20832e+02_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.19193e+02_rb,0.20470e+02_rb,0.22936e+02_rb,0.24673e+02_rb,0.25544e+02_rb, &\n        & 0.25480e+02_rb,0.24537e+02_rb,0.22218e+02_rb,0.21044e+02_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.18170e+02_rb,0.20155e+02_rb,0.22721e+02_rb,0.24145e+02_rb,0.24798e+02_rb, &\n        & 0.24559e+02_rb,0.23403e+02_rb,0.20895e+02_rb,0.18740e+02_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.17830e+02_rb,0.19860e+02_rb,0.22479e+02_rb,0.24018e+02_rb,0.24721e+02_rb, &\n        & 0.24556e+02_rb,0.23466e+02_rb,0.21069e+02_rb,0.18949e+02_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.17496e+02_rb,0.19576e+02_rb,0.22242e+02_rb,0.23886e+02_rb,0.24621e+02_rb, &\n        & 0.24529e+02_rb,0.23525e+02_rb,0.21231e+02_rb,0.19147e+02_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.17168e+02_rb,0.19292e+02_rb,0.22005e+02_rb,0.23734e+02_rb,0.24514e+02_rb, &\n        & 0.24476e+02_rb,0.23580e+02_rb,0.21376e+02_rb,0.19368e+02_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.16844e+02_rb,0.19013e+02_rb,0.21771e+02_rb,0.23570e+02_rb,0.24390e+02_rb, &\n        & 0.24440e+02_rb,0.23651e+02_rb,0.21517e+02_rb,0.19612e+02_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.15762e+02_rb,0.18615e+02_rb,0.21133e+02_rb,0.22639e+02_rb,0.23214e+02_rb, &\n        & 0.23022e+02_rb,0.22060e+02_rb,0.19958e+02_rb,0.17314e+02_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.15455e+02_rb,0.18341e+02_rb,0.20944e+02_rb,0.22510e+02_rb,0.23148e+02_rb, &\n        & 0.23042e+02_rb,0.22164e+02_rb,0.20127e+02_rb,0.17543e+02_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.15156e+02_rb,0.18068e+02_rb,0.20768e+02_rb,0.22374e+02_rb,0.23084e+02_rb, &\n        & 0.23060e+02_rb,0.22257e+02_rb,0.20275e+02_rb,0.17770e+02_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.14865e+02_rb,0.17794e+02_rb,0.20582e+02_rb,0.22237e+02_rb,0.23018e+02_rb, &\n        & 0.23079e+02_rb,0.22350e+02_rb,0.20427e+02_rb,0.18026e+02_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.14612e+02_rb,0.17534e+02_rb,0.20399e+02_rb,0.22086e+02_rb,0.22956e+02_rb, &\n        & 0.23112e+02_rb,0.22443e+02_rb,0.20607e+02_rb,0.18280e+02_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.13517e+02_rb,0.16914e+02_rb,0.19425e+02_rb,0.20790e+02_rb,0.21367e+02_rb, &\n        & 0.21315e+02_rb,0.20607e+02_rb,0.18871e+02_rb,0.15967e+02_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.13249e+02_rb,0.16688e+02_rb,0.19279e+02_rb,0.20693e+02_rb,0.21344e+02_rb, &\n        & 0.21372e+02_rb,0.20725e+02_rb,0.19043e+02_rb,0.16217e+02_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.12994e+02_rb,0.16467e+02_rb,0.19108e+02_rb,0.20602e+02_rb,0.21343e+02_rb, &\n        & 0.21436e+02_rb,0.20839e+02_rb,0.19212e+02_rb,0.16494e+02_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.12784e+02_rb,0.16250e+02_rb,0.18951e+02_rb,0.20506e+02_rb,0.21335e+02_rb, &\n        & 0.21503e+02_rb,0.20961e+02_rb,0.19415e+02_rb,0.16770e+02_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.12734e+02_rb,0.16049e+02_rb,0.18819e+02_rb,0.20438e+02_rb,0.21329e+02_rb, &\n        & 0.21573e+02_rb,0.21104e+02_rb,0.19623e+02_rb,0.16983e+02_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.32549e+02_rb,0.28774e+02_rb,0.25031e+02_rb,0.22926e+02_rb,0.22117e+02_rb, &\n        & 0.21695e+02_rb,0.23417e+02_rb,0.26761e+02_rb,0.29694e+02_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.32499e+02_rb,0.28739e+02_rb,0.25006e+02_rb,0.22835e+02_rb,0.22088e+02_rb, &\n        & 0.21560e+02_rb,0.23253e+02_rb,0.26542e+02_rb,0.29377e+02_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.32407e+02_rb,0.28660e+02_rb,0.24923e+02_rb,0.22714e+02_rb,0.22014e+02_rb, &\n        & 0.21461e+02_rb,0.23148e+02_rb,0.26398e+02_rb,0.29117e+02_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.32260e+02_rb,0.28512e+02_rb,0.24788e+02_rb,0.22590e+02_rb,0.21881e+02_rb, &\n        & 0.21430e+02_rb,0.23071e+02_rb,0.26295e+02_rb,0.28961e+02_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.32039e+02_rb,0.28307e+02_rb,0.24614e+02_rb,0.22444e+02_rb,0.21715e+02_rb, &\n        & 0.21428e+02_rb,0.22979e+02_rb,0.26201e+02_rb,0.28821e+02_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.35951e+02_rb,0.31737e+02_rb,0.27558e+02_rb,0.25749e+02_rb,0.24746e+02_rb, &\n        & 0.23905e+02_rb,0.24887e+02_rb,0.28459e+02_rb,0.31791e+02_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.35862e+02_rb,0.31672e+02_rb,0.27501e+02_rb,0.25642e+02_rb,0.24725e+02_rb, &\n        & 0.23810e+02_rb,0.24734e+02_rb,0.28277e+02_rb,0.31526e+02_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.35737e+02_rb,0.31562e+02_rb,0.27401e+02_rb,0.25522e+02_rb,0.24641e+02_rb, &\n        & 0.23751e+02_rb,0.24591e+02_rb,0.28127e+02_rb,0.31321e+02_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.35534e+02_rb,0.31380e+02_rb,0.27248e+02_rb,0.25379e+02_rb,0.24498e+02_rb, &\n        & 0.23724e+02_rb,0.24485e+02_rb,0.28006e+02_rb,0.31168e+02_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.35285e+02_rb,0.31161e+02_rb,0.27065e+02_rb,0.25222e+02_rb,0.24328e+02_rb, &\n        & 0.23689e+02_rb,0.24406e+02_rb,0.27908e+02_rb,0.31060e+02_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.39089e+02_rb,0.34457e+02_rb,0.30041e+02_rb,0.28724e+02_rb,0.27574e+02_rb, &\n        & 0.26213e+02_rb,0.26498e+02_rb,0.30215e+02_rb,0.33960e+02_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.38998e+02_rb,0.34382e+02_rb,0.29952e+02_rb,0.28581e+02_rb,0.27562e+02_rb, &\n        & 0.26150e+02_rb,0.26309e+02_rb,0.29980e+02_rb,0.33662e+02_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.38820e+02_rb,0.34217e+02_rb,0.29804e+02_rb,0.28424e+02_rb,0.27473e+02_rb, &\n        & 0.26126e+02_rb,0.26176e+02_rb,0.29817e+02_rb,0.33458e+02_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.38594e+02_rb,0.34019e+02_rb,0.29631e+02_rb,0.28264e+02_rb,0.27343e+02_rb, &\n        & 0.26103e+02_rb,0.26063e+02_rb,0.29657e+02_rb,0.33303e+02_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.38290e+02_rb,0.33755e+02_rb,0.29411e+02_rb,0.28094e+02_rb,0.27189e+02_rb, &\n        & 0.26048e+02_rb,0.25993e+02_rb,0.29534e+02_rb,0.33212e+02_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.41846e+02_rb,0.36848e+02_rb,0.32642e+02_rb,0.31752e+02_rb,0.30348e+02_rb, &\n        & 0.28783e+02_rb,0.28429e+02_rb,0.31940e+02_rb,0.36003e+02_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.41706e+02_rb,0.36722e+02_rb,0.32481e+02_rb,0.31589e+02_rb,0.30346e+02_rb, &\n        & 0.28731e+02_rb,0.28275e+02_rb,0.31704e+02_rb,0.35716e+02_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.41502e+02_rb,0.36539e+02_rb,0.32269e+02_rb,0.31417e+02_rb,0.30279e+02_rb, &\n        & 0.28696e+02_rb,0.28151e+02_rb,0.31470e+02_rb,0.35494e+02_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.41217e+02_rb,0.36286e+02_rb,0.32033e+02_rb,0.31226e+02_rb,0.30155e+02_rb, &\n        & 0.28647e+02_rb,0.28039e+02_rb,0.31307e+02_rb,0.35368e+02_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.40876e+02_rb,0.35985e+02_rb,0.31743e+02_rb,0.31019e+02_rb,0.30013e+02_rb, &\n        & 0.28553e+02_rb,0.27986e+02_rb,0.31205e+02_rb,0.35294e+02_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.43995e+02_rb,0.38706e+02_rb,0.35200e+02_rb,0.34595e+02_rb,0.33005e+02_rb, &\n        & 0.31594e+02_rb,0.30727e+02_rb,0.33547e+02_rb,0.37840e+02_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.43792e+02_rb,0.38521e+02_rb,0.34965e+02_rb,0.34413e+02_rb,0.33017e+02_rb, &\n        & 0.31523e+02_rb,0.30579e+02_rb,0.33292e+02_rb,0.37593e+02_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.43530e+02_rb,0.38288e+02_rb,0.34710e+02_rb,0.34215e+02_rb,0.32953e+02_rb, &\n        & 0.31452e+02_rb,0.30422e+02_rb,0.33082e+02_rb,0.37437e+02_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.43192e+02_rb,0.37991e+02_rb,0.34400e+02_rb,0.33987e+02_rb,0.32832e+02_rb, &\n        & 0.31362e+02_rb,0.30341e+02_rb,0.32970e+02_rb,0.37357e+02_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.42817e+02_rb,0.37661e+02_rb,0.34079e+02_rb,0.33725e+02_rb,0.32688e+02_rb, &\n        & 0.31220e+02_rb,0.30292e+02_rb,0.32861e+02_rb,0.37270e+02_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.45371e+02_rb,0.39886e+02_rb,0.37563e+02_rb,0.36985e+02_rb,0.35582e+02_rb, &\n        & 0.34395e+02_rb,0.32997e+02_rb,0.34724e+02_rb,0.39202e+02_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.45116e+02_rb,0.39656e+02_rb,0.37269e+02_rb,0.36794e+02_rb,0.35596e+02_rb, &\n        & 0.34289e+02_rb,0.32827e+02_rb,0.34552e+02_rb,0.39098e+02_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.44794e+02_rb,0.39373e+02_rb,0.36959e+02_rb,0.36575e+02_rb,0.35485e+02_rb, &\n        & 0.34189e+02_rb,0.32665e+02_rb,0.34424e+02_rb,0.39024e+02_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.44425e+02_rb,0.39049e+02_rb,0.36596e+02_rb,0.36352e+02_rb,0.35337e+02_rb, &\n        & 0.34032e+02_rb,0.32591e+02_rb,0.34348e+02_rb,0.38980e+02_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.43987e+02_rb,0.38666e+02_rb,0.36218e+02_rb,0.36087e+02_rb,0.35122e+02_rb, &\n        & 0.33853e+02_rb,0.32536e+02_rb,0.34232e+02_rb,0.38883e+02_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.45829e+02_rb,0.40296e+02_rb,0.39507e+02_rb,0.38911e+02_rb,0.38052e+02_rb, &\n        & 0.37051e+02_rb,0.34926e+02_rb,0.35286e+02_rb,0.39874e+02_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.45523e+02_rb,0.40015e+02_rb,0.39164e+02_rb,0.38712e+02_rb,0.37995e+02_rb, &\n        & 0.36879e+02_rb,0.34780e+02_rb,0.35237e+02_rb,0.39916e+02_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.45143e+02_rb,0.39672e+02_rb,0.38788e+02_rb,0.38484e+02_rb,0.37843e+02_rb, &\n        & 0.36693e+02_rb,0.34674e+02_rb,0.35202e+02_rb,0.39935e+02_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.44711e+02_rb,0.39294e+02_rb,0.38380e+02_rb,0.38261e+02_rb,0.37608e+02_rb, &\n        & 0.36475e+02_rb,0.34639e+02_rb,0.35181e+02_rb,0.39952e+02_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.44229e+02_rb,0.38875e+02_rb,0.37956e+02_rb,0.37973e+02_rb,0.37347e+02_rb, &\n        & 0.36293e+02_rb,0.34620e+02_rb,0.35062e+02_rb,0.39846e+02_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.45335e+02_rb,0.40267e+02_rb,0.40744e+02_rb,0.40443e+02_rb,0.40247e+02_rb, &\n        & 0.39223e+02_rb,0.36584e+02_rb,0.35367e+02_rb,0.39844e+02_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.44955e+02_rb,0.39893e+02_rb,0.40398e+02_rb,0.40216e+02_rb,0.40115e+02_rb, &\n        & 0.39023e+02_rb,0.36582e+02_rb,0.35440e+02_rb,0.40008e+02_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.44529e+02_rb,0.39492e+02_rb,0.39985e+02_rb,0.39979e+02_rb,0.39873e+02_rb, &\n        & 0.38831e+02_rb,0.36587e+02_rb,0.35498e+02_rb,0.40121e+02_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.44061e+02_rb,0.39061e+02_rb,0.39564e+02_rb,0.39715e+02_rb,0.39565e+02_rb, &\n        & 0.38623e+02_rb,0.36619e+02_rb,0.35513e+02_rb,0.40138e+02_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.43543e+02_rb,0.38605e+02_rb,0.39136e+02_rb,0.39437e+02_rb,0.39265e+02_rb, &\n        & 0.38474e+02_rb,0.36637e+02_rb,0.35396e+02_rb,0.40011e+02_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.43909e+02_rb,0.39954e+02_rb,0.41167e+02_rb,0.41626e+02_rb,0.41945e+02_rb, &\n        & 0.40736e+02_rb,0.38077e+02_rb,0.35393e+02_rb,0.39221e+02_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.43480e+02_rb,0.39498e+02_rb,0.40786e+02_rb,0.41338e+02_rb,0.41733e+02_rb, &\n        & 0.40609e+02_rb,0.38181e+02_rb,0.35523e+02_rb,0.39397e+02_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.43002e+02_rb,0.39038e+02_rb,0.40373e+02_rb,0.41094e+02_rb,0.41410e+02_rb, &\n        & 0.40471e+02_rb,0.38255e+02_rb,0.35563e+02_rb,0.39462e+02_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.42479e+02_rb,0.38560e+02_rb,0.39995e+02_rb,0.40806e+02_rb,0.41101e+02_rb, &\n        & 0.40341e+02_rb,0.38344e+02_rb,0.35573e+02_rb,0.39457e+02_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.41942e+02_rb,0.38060e+02_rb,0.39621e+02_rb,0.40473e+02_rb,0.40785e+02_rb, &\n        & 0.40226e+02_rb,0.38369e+02_rb,0.35494e+02_rb,0.39400e+02_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.41598e+02_rb,0.39277e+02_rb,0.40964e+02_rb,0.42358e+02_rb,0.42727e+02_rb, &\n        & 0.41605e+02_rb,0.39147e+02_rb,0.35243e+02_rb,0.37755e+02_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.41110e+02_rb,0.38804e+02_rb,0.40573e+02_rb,0.42061e+02_rb,0.42547e+02_rb, &\n        & 0.41580e+02_rb,0.39298e+02_rb,0.35367e+02_rb,0.37893e+02_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.40607e+02_rb,0.38301e+02_rb,0.40218e+02_rb,0.41774e+02_rb,0.42273e+02_rb, &\n        & 0.41520e+02_rb,0.39406e+02_rb,0.35478e+02_rb,0.38009e+02_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.40087e+02_rb,0.37793e+02_rb,0.39835e+02_rb,0.41418e+02_rb,0.42009e+02_rb, &\n        & 0.41467e+02_rb,0.39471e+02_rb,0.35532e+02_rb,0.38110e+02_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.39528e+02_rb,0.37276e+02_rb,0.39445e+02_rb,0.41009e+02_rb,0.41755e+02_rb, &\n        & 0.41409e+02_rb,0.39460e+02_rb,0.35536e+02_rb,0.38153e+02_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.38423e+02_rb,0.37785e+02_rb,0.40246e+02_rb,0.42229e+02_rb,0.42700e+02_rb, &\n        & 0.41861e+02_rb,0.39594e+02_rb,0.34991e+02_rb,0.35642e+02_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.37903e+02_rb,0.37296e+02_rb,0.39841e+02_rb,0.41927e+02_rb,0.42539e+02_rb, &\n        & 0.41882e+02_rb,0.39751e+02_rb,0.35170e+02_rb,0.35883e+02_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.37383e+02_rb,0.36809e+02_rb,0.39442e+02_rb,0.41575e+02_rb,0.42342e+02_rb, &\n        & 0.41911e+02_rb,0.39809e+02_rb,0.35335e+02_rb,0.36101e+02_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.36841e+02_rb,0.36301e+02_rb,0.39055e+02_rb,0.41199e+02_rb,0.42145e+02_rb, &\n        & 0.41876e+02_rb,0.39854e+02_rb,0.35442e+02_rb,0.36276e+02_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.36274e+02_rb,0.35783e+02_rb,0.38676e+02_rb,0.40833e+02_rb,0.41945e+02_rb, &\n        & 0.41808e+02_rb,0.39839e+02_rb,0.35539e+02_rb,0.36455e+02_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.34828e+02_rb,0.35770e+02_rb,0.39099e+02_rb,0.41221e+02_rb,0.41958e+02_rb, &\n        & 0.41456e+02_rb,0.39253e+02_rb,0.34461e+02_rb,0.33246e+02_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.34304e+02_rb,0.35295e+02_rb,0.38700e+02_rb,0.40987e+02_rb,0.41846e+02_rb, &\n        & 0.41525e+02_rb,0.39359e+02_rb,0.34698e+02_rb,0.33560e+02_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.33784e+02_rb,0.34798e+02_rb,0.38311e+02_rb,0.40707e+02_rb,0.41743e+02_rb, &\n        & 0.41505e+02_rb,0.39465e+02_rb,0.34925e+02_rb,0.33882e+02_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.33241e+02_rb,0.34324e+02_rb,0.37917e+02_rb,0.40393e+02_rb,0.41632e+02_rb, &\n        & 0.41461e+02_rb,0.39554e+02_rb,0.35117e+02_rb,0.34172e+02_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.32710e+02_rb,0.33867e+02_rb,0.37489e+02_rb,0.40112e+02_rb,0.41490e+02_rb, &\n        & 0.41392e+02_rb,0.39590e+02_rb,0.35312e+02_rb,0.34501e+02_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.30997e+02_rb,0.33431e+02_rb,0.37385e+02_rb,0.39653e+02_rb,0.40610e+02_rb, &\n        & 0.40222e+02_rb,0.38101e+02_rb,0.33638e+02_rb,0.30845e+02_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.30492e+02_rb,0.32952e+02_rb,0.37042e+02_rb,0.39451e+02_rb,0.40583e+02_rb, &\n        & 0.40257e+02_rb,0.38272e+02_rb,0.33940e+02_rb,0.31245e+02_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.29985e+02_rb,0.32520e+02_rb,0.36699e+02_rb,0.39235e+02_rb,0.40521e+02_rb, &\n        & 0.40274e+02_rb,0.38447e+02_rb,0.34242e+02_rb,0.31622e+02_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.29485e+02_rb,0.32102e+02_rb,0.36327e+02_rb,0.39047e+02_rb,0.40416e+02_rb, &\n        & 0.40299e+02_rb,0.38596e+02_rb,0.34522e+02_rb,0.32000e+02_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.29016e+02_rb,0.31685e+02_rb,0.35962e+02_rb,0.38852e+02_rb,0.40311e+02_rb, &\n        & 0.40331e+02_rb,0.38749e+02_rb,0.34802e+02_rb,0.32433e+02_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.40414e+02_rb,0.35530e+02_rb,0.30727e+02_rb,0.26813e+02_rb,0.26498e+02_rb, &\n        & 0.27724e+02_rb,0.32451e+02_rb,0.37296e+02_rb,0.40920e+02_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.40378e+02_rb,0.35506e+02_rb,0.30718e+02_rb,0.26787e+02_rb,0.26360e+02_rb, &\n        & 0.27557e+02_rb,0.32109e+02_rb,0.36904e+02_rb,0.40512e+02_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.40288e+02_rb,0.35435e+02_rb,0.30689e+02_rb,0.26758e+02_rb,0.26294e+02_rb, &\n        & 0.27365e+02_rb,0.31721e+02_rb,0.36448e+02_rb,0.40077e+02_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.40152e+02_rb,0.35337e+02_rb,0.30607e+02_rb,0.26666e+02_rb,0.26235e+02_rb, &\n        & 0.27137e+02_rb,0.31350e+02_rb,0.36026e+02_rb,0.39605e+02_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.39996e+02_rb,0.35209e+02_rb,0.30500e+02_rb,0.26544e+02_rb,0.26176e+02_rb, &\n        & 0.26906e+02_rb,0.31054e+02_rb,0.35676e+02_rb,0.39227e+02_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.46201e+02_rb,0.40631e+02_rb,0.35149e+02_rb,0.31004e+02_rb,0.30338e+02_rb, &\n        & 0.30975e+02_rb,0.35648e+02_rb,0.41032e+02_rb,0.45728e+02_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.46189e+02_rb,0.40616e+02_rb,0.35151e+02_rb,0.30920e+02_rb,0.30181e+02_rb, &\n        & 0.30854e+02_rb,0.35321e+02_rb,0.40601e+02_rb,0.45258e+02_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.46107e+02_rb,0.40548e+02_rb,0.35109e+02_rb,0.30814e+02_rb,0.30060e+02_rb, &\n        & 0.30665e+02_rb,0.34964e+02_rb,0.40159e+02_rb,0.44756e+02_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.45964e+02_rb,0.40421e+02_rb,0.35002e+02_rb,0.30664e+02_rb,0.29967e+02_rb, &\n        & 0.30436e+02_rb,0.34636e+02_rb,0.39757e+02_rb,0.44299e+02_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.45779e+02_rb,0.40257e+02_rb,0.34861e+02_rb,0.30500e+02_rb,0.29866e+02_rb, &\n        & 0.30215e+02_rb,0.34343e+02_rb,0.39421e+02_rb,0.43898e+02_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.52493e+02_rb,0.46184e+02_rb,0.39933e+02_rb,0.35707e+02_rb,0.34547e+02_rb, &\n        & 0.34524e+02_rb,0.38680e+02_rb,0.44581e+02_rb,0.50362e+02_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.52499e+02_rb,0.46190e+02_rb,0.39958e+02_rb,0.35613e+02_rb,0.34342e+02_rb, &\n        & 0.34438e+02_rb,0.38422e+02_rb,0.44213e+02_rb,0.49916e+02_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.52430e+02_rb,0.46141e+02_rb,0.39924e+02_rb,0.35477e+02_rb,0.34202e+02_rb, &\n        & 0.34294e+02_rb,0.38128e+02_rb,0.43804e+02_rb,0.49438e+02_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.52296e+02_rb,0.46021e+02_rb,0.39821e+02_rb,0.35288e+02_rb,0.34063e+02_rb, &\n        & 0.34077e+02_rb,0.37857e+02_rb,0.43466e+02_rb,0.49020e+02_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.52087e+02_rb,0.45828e+02_rb,0.39654e+02_rb,0.35060e+02_rb,0.33889e+02_rb, &\n        & 0.33876e+02_rb,0.37613e+02_rb,0.43182e+02_rb,0.48640e+02_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.58998e+02_rb,0.51894e+02_rb,0.44809e+02_rb,0.40767e+02_rb,0.39196e+02_rb, &\n        & 0.38349e+02_rb,0.41490e+02_rb,0.47820e+02_rb,0.54353e+02_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.58998e+02_rb,0.51911e+02_rb,0.44850e+02_rb,0.40692e+02_rb,0.38973e+02_rb, &\n        & 0.38281e+02_rb,0.41275e+02_rb,0.47479e+02_rb,0.53941e+02_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.58946e+02_rb,0.51872e+02_rb,0.44826e+02_rb,0.40545e+02_rb,0.38818e+02_rb, &\n        & 0.38152e+02_rb,0.41007e+02_rb,0.47151e+02_rb,0.53507e+02_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.58797e+02_rb,0.51741e+02_rb,0.44719e+02_rb,0.40328e+02_rb,0.38647e+02_rb, &\n        & 0.37950e+02_rb,0.40768e+02_rb,0.46871e+02_rb,0.53108e+02_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.58578e+02_rb,0.51549e+02_rb,0.44555e+02_rb,0.40074e+02_rb,0.38419e+02_rb, &\n        & 0.37769e+02_rb,0.40542e+02_rb,0.46625e+02_rb,0.52790e+02_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.65454e+02_rb,0.57537e+02_rb,0.49631e+02_rb,0.46171e+02_rb,0.44093e+02_rb, &\n        & 0.42375e+02_rb,0.44216e+02_rb,0.50929e+02_rb,0.58021e+02_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.65480e+02_rb,0.57591e+02_rb,0.49679e+02_rb,0.46047e+02_rb,0.43916e+02_rb, &\n        & 0.42317e+02_rb,0.44023e+02_rb,0.50643e+02_rb,0.57621e+02_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.65404e+02_rb,0.57534e+02_rb,0.49633e+02_rb,0.45875e+02_rb,0.43765e+02_rb, &\n        & 0.42200e+02_rb,0.43791e+02_rb,0.50364e+02_rb,0.57215e+02_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.65236e+02_rb,0.57393e+02_rb,0.49518e+02_rb,0.45648e+02_rb,0.43596e+02_rb, &\n        & 0.42013e+02_rb,0.43533e+02_rb,0.50076e+02_rb,0.56838e+02_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.64960e+02_rb,0.57155e+02_rb,0.49326e+02_rb,0.45390e+02_rb,0.43392e+02_rb, &\n        & 0.41855e+02_rb,0.43285e+02_rb,0.49832e+02_rb,0.56537e+02_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.71553e+02_rb,0.62830e+02_rb,0.54580e+02_rb,0.51897e+02_rb,0.49249e+02_rb, &\n        & 0.46670e+02_rb,0.47221e+02_rb,0.54164e+02_rb,0.61741e+02_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.71559e+02_rb,0.62858e+02_rb,0.54547e+02_rb,0.51727e+02_rb,0.49114e+02_rb, &\n        & 0.46626e+02_rb,0.47093e+02_rb,0.53907e+02_rb,0.61336e+02_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.71474e+02_rb,0.62796e+02_rb,0.54422e+02_rb,0.51491e+02_rb,0.49001e+02_rb, &\n        & 0.46518e+02_rb,0.46873e+02_rb,0.53599e+02_rb,0.60908e+02_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.71253e+02_rb,0.62620e+02_rb,0.54248e+02_rb,0.51208e+02_rb,0.48873e+02_rb, &\n        & 0.46377e+02_rb,0.46595e+02_rb,0.53243e+02_rb,0.60469e+02_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.70931e+02_rb,0.62354e+02_rb,0.53993e+02_rb,0.50888e+02_rb,0.48719e+02_rb, &\n        & 0.46222e+02_rb,0.46318e+02_rb,0.52946e+02_rb,0.60113e+02_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.76995e+02_rb,0.67566e+02_rb,0.59542e+02_rb,0.57607e+02_rb,0.54461e+02_rb, &\n        & 0.51316e+02_rb,0.50984e+02_rb,0.57643e+02_rb,0.65674e+02_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.76958e+02_rb,0.67548e+02_rb,0.59397e+02_rb,0.57376e+02_rb,0.54369e+02_rb, &\n        & 0.51326e+02_rb,0.50889e+02_rb,0.57330e+02_rb,0.65196e+02_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.76815e+02_rb,0.67433e+02_rb,0.59207e+02_rb,0.57127e+02_rb,0.54289e+02_rb, &\n        & 0.51287e+02_rb,0.50622e+02_rb,0.56904e+02_rb,0.64662e+02_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.76535e+02_rb,0.67198e+02_rb,0.58948e+02_rb,0.56779e+02_rb,0.54224e+02_rb, &\n        & 0.51158e+02_rb,0.50286e+02_rb,0.56459e+02_rb,0.64124e+02_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.76156e+02_rb,0.66876e+02_rb,0.58634e+02_rb,0.56401e+02_rb,0.54096e+02_rb, &\n        & 0.50976e+02_rb,0.49973e+02_rb,0.56129e+02_rb,0.63785e+02_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.81421e+02_rb,0.71418e+02_rb,0.64455e+02_rb,0.62977e+02_rb,0.59643e+02_rb, &\n        & 0.56434e+02_rb,0.55164e+02_rb,0.60758e+02_rb,0.69127e+02_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.81348e+02_rb,0.71366e+02_rb,0.64215e+02_rb,0.62779e+02_rb,0.59582e+02_rb, &\n        & 0.56462e+02_rb,0.55001e+02_rb,0.60346e+02_rb,0.68584e+02_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.81121e+02_rb,0.71177e+02_rb,0.63909e+02_rb,0.62467e+02_rb,0.59508e+02_rb, &\n        & 0.56437e+02_rb,0.54668e+02_rb,0.59898e+02_rb,0.68043e+02_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.80795e+02_rb,0.70901e+02_rb,0.63558e+02_rb,0.62070e+02_rb,0.59450e+02_rb, &\n        & 0.56283e+02_rb,0.54317e+02_rb,0.59470e+02_rb,0.67583e+02_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.80315e+02_rb,0.70489e+02_rb,0.63126e+02_rb,0.61649e+02_rb,0.59298e+02_rb, &\n        & 0.56050e+02_rb,0.54007e+02_rb,0.59179e+02_rb,0.67330e+02_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.84526e+02_rb,0.74114e+02_rb,0.69139e+02_rb,0.67766e+02_rb,0.64700e+02_rb, &\n        & 0.61791e+02_rb,0.59295e+02_rb,0.62885e+02_rb,0.71468e+02_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.84370e+02_rb,0.73989e+02_rb,0.68856e+02_rb,0.67565e+02_rb,0.64593e+02_rb, &\n        & 0.61811e+02_rb,0.59181e+02_rb,0.62666e+02_rb,0.71181e+02_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.84053e+02_rb,0.73721e+02_rb,0.68457e+02_rb,0.67233e+02_rb,0.64524e+02_rb, &\n        & 0.61778e+02_rb,0.58870e+02_rb,0.62384e+02_rb,0.70849e+02_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.83638e+02_rb,0.73367e+02_rb,0.67980e+02_rb,0.66820e+02_rb,0.64408e+02_rb, &\n        & 0.61582e+02_rb,0.58561e+02_rb,0.62049e+02_rb,0.70550e+02_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.83125e+02_rb,0.72897e+02_rb,0.67415e+02_rb,0.66418e+02_rb,0.64238e+02_rb, &\n        & 0.61304e+02_rb,0.58306e+02_rb,0.61805e+02_rb,0.70366e+02_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.86099e+02_rb,0.75664e+02_rb,0.73052e+02_rb,0.71784e+02_rb,0.69581e+02_rb, &\n        & 0.67013e+02_rb,0.63079e+02_rb,0.64019e+02_rb,0.72668e+02_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.85793e+02_rb,0.75364e+02_rb,0.72621e+02_rb,0.71506e+02_rb,0.69364e+02_rb, &\n        & 0.66992e+02_rb,0.63098e+02_rb,0.64105e+02_rb,0.72738e+02_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.85391e+02_rb,0.74983e+02_rb,0.72119e+02_rb,0.71136e+02_rb,0.69201e+02_rb, &\n        & 0.66897e+02_rb,0.62939e+02_rb,0.63964e+02_rb,0.72620e+02_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.84829e+02_rb,0.74472e+02_rb,0.71563e+02_rb,0.70768e+02_rb,0.69027e+02_rb, &\n        & 0.66600e+02_rb,0.62760e+02_rb,0.63750e+02_rb,0.72497e+02_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.84210e+02_rb,0.73923e+02_rb,0.70963e+02_rb,0.70409e+02_rb,0.68788e+02_rb, &\n        & 0.66285e+02_rb,0.62604e+02_rb,0.63643e+02_rb,0.72460e+02_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.85661e+02_rb,0.75976e+02_rb,0.75616e+02_rb,0.74895e+02_rb,0.73796e+02_rb, &\n        & 0.71450e+02_rb,0.66595e+02_rb,0.64723e+02_rb,0.72988e+02_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.85212e+02_rb,0.75487e+02_rb,0.75133e+02_rb,0.74528e+02_rb,0.73552e+02_rb, &\n        & 0.71413e+02_rb,0.66688e+02_rb,0.64835e+02_rb,0.73147e+02_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.84633e+02_rb,0.74907e+02_rb,0.74581e+02_rb,0.74183e+02_rb,0.73356e+02_rb, &\n        & 0.71194e+02_rb,0.66687e+02_rb,0.64831e+02_rb,0.73292e+02_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.83975e+02_rb,0.74286e+02_rb,0.73943e+02_rb,0.73830e+02_rb,0.73088e+02_rb, &\n        & 0.70916e+02_rb,0.66610e+02_rb,0.64920e+02_rb,0.73470e+02_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.83246e+02_rb,0.73605e+02_rb,0.73209e+02_rb,0.73386e+02_rb,0.72735e+02_rb, &\n        & 0.70587e+02_rb,0.66523e+02_rb,0.64950e+02_rb,0.73537e+02_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.83352e+02_rb,0.75282e+02_rb,0.76925e+02_rb,0.77365e+02_rb,0.77206e+02_rb, &\n        & 0.74850e+02_rb,0.69716e+02_rb,0.65048e+02_rb,0.72181e+02_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.82736e+02_rb,0.74597e+02_rb,0.76403e+02_rb,0.76949e+02_rb,0.76971e+02_rb, &\n        & 0.74863e+02_rb,0.69929e+02_rb,0.65330e+02_rb,0.72664e+02_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.82054e+02_rb,0.73916e+02_rb,0.75743e+02_rb,0.76528e+02_rb,0.76666e+02_rb, &\n        & 0.74738e+02_rb,0.70022e+02_rb,0.65629e+02_rb,0.73075e+02_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.81316e+02_rb,0.73173e+02_rb,0.75030e+02_rb,0.76061e+02_rb,0.76286e+02_rb, &\n        & 0.74512e+02_rb,0.70083e+02_rb,0.65825e+02_rb,0.73345e+02_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.80516e+02_rb,0.72378e+02_rb,0.74331e+02_rb,0.75554e+02_rb,0.75785e+02_rb, &\n        & 0.74233e+02_rb,0.70124e+02_rb,0.65929e+02_rb,0.73501e+02_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.79408e+02_rb,0.73858e+02_rb,0.76980e+02_rb,0.78869e+02_rb,0.79397e+02_rb, &\n        & 0.77263e+02_rb,0.72263e+02_rb,0.65338e+02_rb,0.70604e+02_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.78716e+02_rb,0.73093e+02_rb,0.76326e+02_rb,0.78426e+02_rb,0.79146e+02_rb, &\n        & 0.77408e+02_rb,0.72561e+02_rb,0.65807e+02_rb,0.71230e+02_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.77962e+02_rb,0.72251e+02_rb,0.75686e+02_rb,0.77926e+02_rb,0.78867e+02_rb, &\n        & 0.77356e+02_rb,0.72810e+02_rb,0.66137e+02_rb,0.71698e+02_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.77177e+02_rb,0.71385e+02_rb,0.75042e+02_rb,0.77408e+02_rb,0.78464e+02_rb, &\n        & 0.77172e+02_rb,0.73006e+02_rb,0.66333e+02_rb,0.72067e+02_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.76340e+02_rb,0.70519e+02_rb,0.74355e+02_rb,0.76889e+02_rb,0.78015e+02_rb, &\n        & 0.76988e+02_rb,0.73079e+02_rb,0.66485e+02_rb,0.72407e+02_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.51404e+02_rb,0.45212e+02_rb,0.39078e+02_rb,0.32978e+02_rb,0.31213e+02_rb, &\n        & 0.35689e+02_rb,0.42239e+02_rb,0.49109e+02_rb,0.53555e+02_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.51456e+02_rb,0.45263e+02_rb,0.39085e+02_rb,0.32975e+02_rb,0.31034e+02_rb, &\n        & 0.35237e+02_rb,0.41756e+02_rb,0.48531e+02_rb,0.52877e+02_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.51419e+02_rb,0.45226e+02_rb,0.39013e+02_rb,0.32932e+02_rb,0.30826e+02_rb, &\n        & 0.34871e+02_rb,0.41372e+02_rb,0.48070e+02_rb,0.52319e+02_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.51315e+02_rb,0.45122e+02_rb,0.38925e+02_rb,0.32886e+02_rb,0.30643e+02_rb, &\n        & 0.34565e+02_rb,0.41054e+02_rb,0.47690e+02_rb,0.51853e+02_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.51134e+02_rb,0.44958e+02_rb,0.38787e+02_rb,0.32819e+02_rb,0.30476e+02_rb, &\n        & 0.34330e+02_rb,0.40799e+02_rb,0.47384e+02_rb,0.51513e+02_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.59575e+02_rb,0.52343e+02_rb,0.45168e+02_rb,0.38156e+02_rb,0.36549e+02_rb, &\n        & 0.40798e+02_rb,0.48433e+02_rb,0.56320e+02_rb,0.62499e+02_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.59656e+02_rb,0.52415e+02_rb,0.45196e+02_rb,0.38159e+02_rb,0.36356e+02_rb, &\n        & 0.40232e+02_rb,0.47806e+02_rb,0.55603e+02_rb,0.61692e+02_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.59635e+02_rb,0.52395e+02_rb,0.45146e+02_rb,0.38116e+02_rb,0.36139e+02_rb, &\n        & 0.39805e+02_rb,0.47339e+02_rb,0.55046e+02_rb,0.61068e+02_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.59522e+02_rb,0.52285e+02_rb,0.45051e+02_rb,0.38066e+02_rb,0.35889e+02_rb, &\n        & 0.39470e+02_rb,0.46981e+02_rb,0.54621e+02_rb,0.60592e+02_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.59307e+02_rb,0.52094e+02_rb,0.44889e+02_rb,0.37960e+02_rb,0.35677e+02_rb, &\n        & 0.39216e+02_rb,0.46687e+02_rb,0.54268e+02_rb,0.60193e+02_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.68809e+02_rb,0.60397e+02_rb,0.52025e+02_rb,0.44161e+02_rb,0.42701e+02_rb, &\n        & 0.46667e+02_rb,0.55520e+02_rb,0.64493e+02_rb,0.72669e+02_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.68924e+02_rb,0.60499e+02_rb,0.52098e+02_rb,0.44133e+02_rb,0.42521e+02_rb, &\n        & 0.45966e+02_rb,0.54732e+02_rb,0.63594e+02_rb,0.71705e+02_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.68950e+02_rb,0.60531e+02_rb,0.52101e+02_rb,0.44100e+02_rb,0.42285e+02_rb, &\n        & 0.45418e+02_rb,0.54095e+02_rb,0.62883e+02_rb,0.70919e+02_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.68857e+02_rb,0.60434e+02_rb,0.52014e+02_rb,0.44041e+02_rb,0.42031e+02_rb, &\n        & 0.45005e+02_rb,0.53564e+02_rb,0.62291e+02_rb,0.70247e+02_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.68666e+02_rb,0.60265e+02_rb,0.51871e+02_rb,0.43942e+02_rb,0.41842e+02_rb, &\n        & 0.44690e+02_rb,0.53134e+02_rb,0.61806e+02_rb,0.69686e+02_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.79311e+02_rb,0.69561e+02_rb,0.59881e+02_rb,0.51276e+02_rb,0.49761e+02_rb, &\n        & 0.53193e+02_rb,0.63396e+02_rb,0.73656e+02_rb,0.83652e+02_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.79511e+02_rb,0.69736e+02_rb,0.60019e+02_rb,0.51173e+02_rb,0.49594e+02_rb, &\n        & 0.52466e+02_rb,0.62461e+02_rb,0.72578e+02_rb,0.82426e+02_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.79562e+02_rb,0.69789e+02_rb,0.60043e+02_rb,0.51075e+02_rb,0.49346e+02_rb, &\n        & 0.51847e+02_rb,0.61639e+02_rb,0.71632e+02_rb,0.81369e+02_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.79512e+02_rb,0.69733e+02_rb,0.59989e+02_rb,0.50979e+02_rb,0.49088e+02_rb, &\n        & 0.51360e+02_rb,0.60947e+02_rb,0.70836e+02_rb,0.80468e+02_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.79325e+02_rb,0.69569e+02_rb,0.59854e+02_rb,0.50871e+02_rb,0.48882e+02_rb, &\n        & 0.50991e+02_rb,0.60362e+02_rb,0.70161e+02_rb,0.79701e+02_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.91112e+02_rb,0.79892e+02_rb,0.68781e+02_rb,0.59496e+02_rb,0.57988e+02_rb, &\n        & 0.60415e+02_rb,0.71595e+02_rb,0.83227e+02_rb,0.94854e+02_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.91447e+02_rb,0.80173e+02_rb,0.69023e+02_rb,0.59416e+02_rb,0.57743e+02_rb, &\n        & 0.59673e+02_rb,0.70483e+02_rb,0.81942e+02_rb,0.93394e+02_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.91583e+02_rb,0.80288e+02_rb,0.69106e+02_rb,0.59276e+02_rb,0.57416e+02_rb, &\n        & 0.59035e+02_rb,0.69528e+02_rb,0.80829e+02_rb,0.92131e+02_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.91566e+02_rb,0.80257e+02_rb,0.69073e+02_rb,0.59136e+02_rb,0.57092e+02_rb, &\n        & 0.58527e+02_rb,0.68724e+02_rb,0.79885e+02_rb,0.91053e+02_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.91390e+02_rb,0.80104e+02_rb,0.68937e+02_rb,0.58973e+02_rb,0.56776e+02_rb, &\n        & 0.58107e+02_rb,0.68079e+02_rb,0.79072e+02_rb,0.90122e+02_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.10419e+03_rb,0.91394e+02_rb,0.78656e+02_rb,0.68916e+02_rb,0.67128e+02_rb, &\n        & 0.68461e+02_rb,0.79894e+02_rb,0.92926e+02_rb,0.10607e+03_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.10463e+03_rb,0.91782e+02_rb,0.79002e+02_rb,0.68819e+02_rb,0.66845e+02_rb, &\n        & 0.67738e+02_rb,0.78628e+02_rb,0.91458e+02_rb,0.10440e+03_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.10486e+03_rb,0.91970e+02_rb,0.79156e+02_rb,0.68698e+02_rb,0.66470e+02_rb, &\n        & 0.67066e+02_rb,0.77628e+02_rb,0.90242e+02_rb,0.10302e+03_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.10494e+03_rb,0.92025e+02_rb,0.79207e+02_rb,0.68555e+02_rb,0.66081e+02_rb, &\n        & 0.66543e+02_rb,0.76843e+02_rb,0.89253e+02_rb,0.10189e+03_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.10481e+03_rb,0.91892e+02_rb,0.79105e+02_rb,0.68344e+02_rb,0.65668e+02_rb, &\n        & 0.66109e+02_rb,0.76190e+02_rb,0.88386e+02_rb,0.10090e+03_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.11850e+03_rb,0.10394e+03_rb,0.89423e+02_rb,0.79509e+02_rb,0.77207e+02_rb, &\n        & 0.77196e+02_rb,0.87943e+02_rb,0.10236e+03_rb,0.11694e+03_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.11905e+03_rb,0.10443e+03_rb,0.89864e+02_rb,0.79528e+02_rb,0.76905e+02_rb, &\n        & 0.76494e+02_rb,0.86650e+02_rb,0.10078e+03_rb,0.11515e+03_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.11939e+03_rb,0.10473e+03_rb,0.90115e+02_rb,0.79401e+02_rb,0.76523e+02_rb, &\n        & 0.75853e+02_rb,0.85715e+02_rb,0.99595e+02_rb,0.11380e+03_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.11951e+03_rb,0.10484e+03_rb,0.90222e+02_rb,0.79220e+02_rb,0.76090e+02_rb, &\n        & 0.75405e+02_rb,0.85022e+02_rb,0.98653e+02_rb,0.11271e+03_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.11942e+03_rb,0.10476e+03_rb,0.90169e+02_rb,0.78976e+02_rb,0.75607e+02_rb, &\n        & 0.75018e+02_rb,0.84352e+02_rb,0.97783e+02_rb,0.11167e+03_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.13381e+03_rb,0.11735e+03_rb,0.10095e+03_rb,0.91226e+02_rb,0.88188e+02_rb, &\n        & 0.86379e+02_rb,0.95828e+02_rb,0.11155e+03_rb,0.12755e+03_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.13446e+03_rb,0.11794e+03_rb,0.10145e+03_rb,0.91271e+02_rb,0.87947e+02_rb, &\n        & 0.85766e+02_rb,0.94652e+02_rb,0.11006e+03_rb,0.12583e+03_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.13492e+03_rb,0.11834e+03_rb,0.10180e+03_rb,0.91233e+02_rb,0.87619e+02_rb, &\n        & 0.85228e+02_rb,0.93811e+02_rb,0.10892e+03_rb,0.12452e+03_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.13505e+03_rb,0.11846e+03_rb,0.10192e+03_rb,0.91090e+02_rb,0.87150e+02_rb, &\n        & 0.84887e+02_rb,0.93111e+02_rb,0.10797e+03_rb,0.12337e+03_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.13500e+03_rb,0.11844e+03_rb,0.10192e+03_rb,0.90797e+02_rb,0.86626e+02_rb, &\n        & 0.84570e+02_rb,0.92421e+02_rb,0.10710e+03_rb,0.12226e+03_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.14952e+03_rb,0.13110e+03_rb,0.11316e+03_rb,0.10410e+03_rb,0.99927e+02_rb, &\n        & 0.96074e+02_rb,0.10374e+03_rb,0.12067e+03_rb,0.13801e+03_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.15028e+03_rb,0.13179e+03_rb,0.11360e+03_rb,0.10415e+03_rb,0.99870e+02_rb, &\n        & 0.95589e+02_rb,0.10257e+03_rb,0.11912e+03_rb,0.13623e+03_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.15082e+03_rb,0.13227e+03_rb,0.11392e+03_rb,0.10405e+03_rb,0.99571e+02_rb, &\n        & 0.95189e+02_rb,0.10182e+03_rb,0.11803e+03_rb,0.13496e+03_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.15103e+03_rb,0.13247e+03_rb,0.11403e+03_rb,0.10385e+03_rb,0.99126e+02_rb, &\n        & 0.94980e+02_rb,0.10122e+03_rb,0.11720e+03_rb,0.13388e+03_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.15094e+03_rb,0.13245e+03_rb,0.11401e+03_rb,0.10348e+03_rb,0.98550e+02_rb, &\n        & 0.94746e+02_rb,0.10055e+03_rb,0.11636e+03_rb,0.13276e+03_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.16524e+03_rb,0.14486e+03_rb,0.12594e+03_rb,0.11785e+03_rb,0.11225e+03_rb, &\n        & 0.10654e+03_rb,0.11202e+03_rb,0.12965e+03_rb,0.14829e+03_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.16610e+03_rb,0.14564e+03_rb,0.12636e+03_rb,0.11787e+03_rb,0.11233e+03_rb, &\n        & 0.10630e+03_rb,0.11093e+03_rb,0.12811e+03_rb,0.14653e+03_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.16659e+03_rb,0.14608e+03_rb,0.12656e+03_rb,0.11769e+03_rb,0.11214e+03_rb, &\n        & 0.10609e+03_rb,0.11032e+03_rb,0.12713e+03_rb,0.14532e+03_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.16681e+03_rb,0.14630e+03_rb,0.12659e+03_rb,0.11736e+03_rb,0.11169e+03_rb, &\n        & 0.10597e+03_rb,0.10973e+03_rb,0.12629e+03_rb,0.14416e+03_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.16671e+03_rb,0.14623e+03_rb,0.12639e+03_rb,0.11688e+03_rb,0.11111e+03_rb, &\n        & 0.10576e+03_rb,0.10909e+03_rb,0.12542e+03_rb,0.14303e+03_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.18065e+03_rb,0.15832e+03_rb,0.13903e+03_rb,0.13201e+03_rb,0.12519e+03_rb, &\n        & 0.11820e+03_rb,0.12047e+03_rb,0.13760e+03_rb,0.15739e+03_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.18131e+03_rb,0.15893e+03_rb,0.13916e+03_rb,0.13183e+03_rb,0.12520e+03_rb, &\n        & 0.11800e+03_rb,0.11979e+03_rb,0.13660e+03_rb,0.15612e+03_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.18162e+03_rb,0.15925e+03_rb,0.13912e+03_rb,0.13145e+03_rb,0.12487e+03_rb, &\n        & 0.11789e+03_rb,0.11922e+03_rb,0.13566e+03_rb,0.15481e+03_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.18161e+03_rb,0.15927e+03_rb,0.13888e+03_rb,0.13091e+03_rb,0.12432e+03_rb, &\n        & 0.11770e+03_rb,0.11858e+03_rb,0.13462e+03_rb,0.15350e+03_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.18129e+03_rb,0.15901e+03_rb,0.13849e+03_rb,0.13027e+03_rb,0.12371e+03_rb, &\n        & 0.11738e+03_rb,0.11800e+03_rb,0.13378e+03_rb,0.15248e+03_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.19439e+03_rb,0.17031e+03_rb,0.15181e+03_rb,0.14577e+03_rb,0.13828e+03_rb, &\n        & 0.13070e+03_rb,0.12972e+03_rb,0.14546e+03_rb,0.16618e+03_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.19483e+03_rb,0.17073e+03_rb,0.15156e+03_rb,0.14543e+03_rb,0.13812e+03_rb, &\n        & 0.13043e+03_rb,0.12913e+03_rb,0.14443e+03_rb,0.16476e+03_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.19494e+03_rb,0.17087e+03_rb,0.15124e+03_rb,0.14493e+03_rb,0.13771e+03_rb, &\n        & 0.13020e+03_rb,0.12847e+03_rb,0.14330e+03_rb,0.16335e+03_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.19474e+03_rb,0.17073e+03_rb,0.15078e+03_rb,0.14425e+03_rb,0.13718e+03_rb, &\n        & 0.12986e+03_rb,0.12779e+03_rb,0.14240e+03_rb,0.16229e+03_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.19420e+03_rb,0.17029e+03_rb,0.15011e+03_rb,0.14337e+03_rb,0.13666e+03_rb, &\n        & 0.12942e+03_rb,0.12725e+03_rb,0.14171e+03_rb,0.16147e+03_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.20562e+03_rb,0.18014e+03_rb,0.16395e+03_rb,0.15885e+03_rb,0.15131e+03_rb, &\n        & 0.14344e+03_rb,0.13928e+03_rb,0.15201e+03_rb,0.17336e+03_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.20583e+03_rb,0.18034e+03_rb,0.16346e+03_rb,0.15844e+03_rb,0.15102e+03_rb, &\n        & 0.14310e+03_rb,0.13867e+03_rb,0.15101e+03_rb,0.17210e+03_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.20579e+03_rb,0.18034e+03_rb,0.16282e+03_rb,0.15782e+03_rb,0.15051e+03_rb, &\n        & 0.14271e+03_rb,0.13803e+03_rb,0.15026e+03_rb,0.17119e+03_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.20539e+03_rb,0.18002e+03_rb,0.16199e+03_rb,0.15696e+03_rb,0.15005e+03_rb, &\n        & 0.14226e+03_rb,0.13746e+03_rb,0.14977e+03_rb,0.17061e+03_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.20471e+03_rb,0.17946e+03_rb,0.16101e+03_rb,0.15580e+03_rb,0.14942e+03_rb, &\n        & 0.14163e+03_rb,0.13685e+03_rb,0.14922e+03_rb,0.16998e+03_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.61110e+02_rb,0.53539e+02_rb,0.46005e+02_rb,0.38902e+02_rb,0.35970e+02_rb, &\n        & 0.43986e+02_rb,0.52608e+02_rb,0.61157e+02_rb,0.65911e+02_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.61315e+02_rb,0.53717e+02_rb,0.46235e+02_rb,0.39083e+02_rb,0.35687e+02_rb, &\n        & 0.43381e+02_rb,0.51871e+02_rb,0.60290e+02_rb,0.64963e+02_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.61422e+02_rb,0.53821e+02_rb,0.46411e+02_rb,0.39188e+02_rb,0.35438e+02_rb, &\n        & 0.42839e+02_rb,0.51205e+02_rb,0.59514e+02_rb,0.64157e+02_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.61394e+02_rb,0.53877e+02_rb,0.46504e+02_rb,0.39222e+02_rb,0.35189e+02_rb, &\n        & 0.42365e+02_rb,0.50625e+02_rb,0.58813e+02_rb,0.63464e+02_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.61322e+02_rb,0.53865e+02_rb,0.46511e+02_rb,0.39177e+02_rb,0.34939e+02_rb, &\n        & 0.41926e+02_rb,0.50070e+02_rb,0.58152e+02_rb,0.62761e+02_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.73139e+02_rb,0.64054e+02_rb,0.54971e+02_rb,0.46172e+02_rb,0.42554e+02_rb, &\n        & 0.52369e+02_rb,0.62683e+02_rb,0.72904e+02_rb,0.80226e+02_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.73363e+02_rb,0.64250e+02_rb,0.55203e+02_rb,0.46423e+02_rb,0.42168e+02_rb, &\n        & 0.51668e+02_rb,0.61839e+02_rb,0.71917e+02_rb,0.79110e+02_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.73487e+02_rb,0.64383e+02_rb,0.55429e+02_rb,0.46632e+02_rb,0.41828e+02_rb, &\n        & 0.50986e+02_rb,0.61016e+02_rb,0.70950e+02_rb,0.78048e+02_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.73536e+02_rb,0.64501e+02_rb,0.55558e+02_rb,0.46729e+02_rb,0.41557e+02_rb, &\n        & 0.50314e+02_rb,0.60204e+02_rb,0.70005e+02_rb,0.77009e+02_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.73500e+02_rb,0.64509e+02_rb,0.55582e+02_rb,0.46709e+02_rb,0.41283e+02_rb, &\n        & 0.49695e+02_rb,0.59450e+02_rb,0.69119e+02_rb,0.76024e+02_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.87361e+02_rb,0.76491e+02_rb,0.65621e+02_rb,0.54890e+02_rb,0.50598e+02_rb, &\n        & 0.62297e+02_rb,0.74612e+02_rb,0.86825e+02_rb,0.97550e+02_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.87685e+02_rb,0.76774e+02_rb,0.65885e+02_rb,0.55188e+02_rb,0.50206e+02_rb, &\n        & 0.61585e+02_rb,0.73754e+02_rb,0.85807e+02_rb,0.96409e+02_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.87844e+02_rb,0.76919e+02_rb,0.66106e+02_rb,0.55413e+02_rb,0.49812e+02_rb, &\n        & 0.60785e+02_rb,0.72789e+02_rb,0.84689e+02_rb,0.95141e+02_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.87889e+02_rb,0.77037e+02_rb,0.66247e+02_rb,0.55541e+02_rb,0.49446e+02_rb, &\n        & 0.60010e+02_rb,0.71857e+02_rb,0.83593e+02_rb,0.93898e+02_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.87858e+02_rb,0.77051e+02_rb,0.66285e+02_rb,0.55583e+02_rb,0.49097e+02_rb, &\n        & 0.59241e+02_rb,0.70929e+02_rb,0.82513e+02_rb,0.92686e+02_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.10387e+03_rb,0.90929e+02_rb,0.77989e+02_rb,0.65095e+02_rb,0.60436e+02_rb, &\n        & 0.74039e+02_rb,0.88717e+02_rb,0.10327e+03_rb,0.11725e+03_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.10441e+03_rb,0.91405e+02_rb,0.78408e+02_rb,0.65545e+02_rb,0.59926e+02_rb, &\n        & 0.73070e+02_rb,0.87549e+02_rb,0.10190e+03_rb,0.11570e+03_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.10471e+03_rb,0.91680e+02_rb,0.78722e+02_rb,0.65845e+02_rb,0.59509e+02_rb, &\n        & 0.72264e+02_rb,0.86581e+02_rb,0.10076e+03_rb,0.11440e+03_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.10486e+03_rb,0.91873e+02_rb,0.78926e+02_rb,0.66032e+02_rb,0.59086e+02_rb, &\n        & 0.71381e+02_rb,0.85514e+02_rb,0.99526e+02_rb,0.11299e+03_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.10483e+03_rb,0.91879e+02_rb,0.78952e+02_rb,0.66063e+02_rb,0.58651e+02_rb, &\n        & 0.70432e+02_rb,0.84377e+02_rb,0.98185e+02_rb,0.11148e+03_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.12314e+03_rb,0.10778e+03_rb,0.92429e+02_rb,0.77074e+02_rb,0.72086e+02_rb, &\n        & 0.87688e+02_rb,0.10511e+03_rb,0.12238e+03_rb,0.13959e+03_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.12380e+03_rb,0.10836e+03_rb,0.92922e+02_rb,0.77571e+02_rb,0.71572e+02_rb, &\n        & 0.86586e+02_rb,0.10378e+03_rb,0.12082e+03_rb,0.13782e+03_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.12423e+03_rb,0.10877e+03_rb,0.93351e+02_rb,0.77983e+02_rb,0.71097e+02_rb, &\n        & 0.85507e+02_rb,0.10249e+03_rb,0.11931e+03_rb,0.13609e+03_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.12450e+03_rb,0.10905e+03_rb,0.93631e+02_rb,0.78238e+02_rb,0.70653e+02_rb, &\n        & 0.84488e+02_rb,0.10126e+03_rb,0.11788e+03_rb,0.13445e+03_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.12453e+03_rb,0.10910e+03_rb,0.93684e+02_rb,0.78289e+02_rb,0.70179e+02_rb, &\n        & 0.83403e+02_rb,0.99954e+02_rb,0.11636e+03_rb,0.13271e+03_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.14538e+03_rb,0.12724e+03_rb,0.10910e+03_rb,0.90962e+02_rb,0.85931e+02_rb, &\n        & 0.10354e+03_rb,0.12413e+03_rb,0.14456e+03_rb,0.16524e+03_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.14625e+03_rb,0.12800e+03_rb,0.10975e+03_rb,0.91547e+02_rb,0.85303e+02_rb, &\n        & 0.10223e+03_rb,0.12256e+03_rb,0.14271e+03_rb,0.16313e+03_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.14683e+03_rb,0.12855e+03_rb,0.11028e+03_rb,0.92053e+02_rb,0.84796e+02_rb, &\n        & 0.10095e+03_rb,0.12102e+03_rb,0.14092e+03_rb,0.16108e+03_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.14716e+03_rb,0.12887e+03_rb,0.11059e+03_rb,0.92330e+02_rb,0.84296e+02_rb, &\n        & 0.99657e+02_rb,0.11947e+03_rb,0.13910e+03_rb,0.15900e+03_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.14726e+03_rb,0.12897e+03_rb,0.11069e+03_rb,0.92414e+02_rb,0.83857e+02_rb, &\n        & 0.98384e+02_rb,0.11794e+03_rb,0.13732e+03_rb,0.15696e+03_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.17053e+03_rb,0.14925e+03_rb,0.12796e+03_rb,0.10716e+03_rb,0.10213e+03_rb, &\n        & 0.12188e+03_rb,0.14615e+03_rb,0.17020e+03_rb,0.19480e+03_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.17172e+03_rb,0.15029e+03_rb,0.12885e+03_rb,0.10758e+03_rb,0.10144e+03_rb, &\n        & 0.12029e+03_rb,0.14423e+03_rb,0.16798e+03_rb,0.19224e+03_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.17251e+03_rb,0.15103e+03_rb,0.12955e+03_rb,0.10811e+03_rb,0.10086e+03_rb, &\n        & 0.11869e+03_rb,0.14231e+03_rb,0.16572e+03_rb,0.18967e+03_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.17303e+03_rb,0.15150e+03_rb,0.12997e+03_rb,0.10845e+03_rb,0.10032e+03_rb, &\n        & 0.11701e+03_rb,0.14029e+03_rb,0.16338e+03_rb,0.18697e+03_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.17326e+03_rb,0.15170e+03_rb,0.13015e+03_rb,0.10860e+03_rb,0.99828e+02_rb, &\n        & 0.11540e+03_rb,0.13837e+03_rb,0.16114e+03_rb,0.18440e+03_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.19897e+03_rb,0.17412e+03_rb,0.14927e+03_rb,0.12609e+03_rb,0.12102e+03_rb, &\n        & 0.14307e+03_rb,0.17149e+03_rb,0.19971e+03_rb,0.22868e+03_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.20045e+03_rb,0.17541e+03_rb,0.15039e+03_rb,0.12643e+03_rb,0.12014e+03_rb, &\n        & 0.14095e+03_rb,0.16896e+03_rb,0.19679e+03_rb,0.22532e+03_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.20144e+03_rb,0.17633e+03_rb,0.15122e+03_rb,0.12673e+03_rb,0.11946e+03_rb, &\n        & 0.13885e+03_rb,0.16646e+03_rb,0.19386e+03_rb,0.22200e+03_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.20212e+03_rb,0.17694e+03_rb,0.15175e+03_rb,0.12692e+03_rb,0.11890e+03_rb, &\n        & 0.13670e+03_rb,0.16392e+03_rb,0.19092e+03_rb,0.21864e+03_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.20244e+03_rb,0.17722e+03_rb,0.15200e+03_rb,0.12703e+03_rb,0.11832e+03_rb, &\n        & 0.13474e+03_rb,0.16157e+03_rb,0.18819e+03_rb,0.21551e+03_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.23120e+03_rb,0.20232e+03_rb,0.17344e+03_rb,0.14797e+03_rb,0.14299e+03_rb, &\n        & 0.16694e+03_rb,0.20011e+03_rb,0.23304e+03_rb,0.26690e+03_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.23311e+03_rb,0.20399e+03_rb,0.17488e+03_rb,0.14825e+03_rb,0.14181e+03_rb, &\n        & 0.16424e+03_rb,0.19689e+03_rb,0.22930e+03_rb,0.26259e+03_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.23434e+03_rb,0.20510e+03_rb,0.17587e+03_rb,0.14844e+03_rb,0.14100e+03_rb, &\n        & 0.16150e+03_rb,0.19359e+03_rb,0.22546e+03_rb,0.25821e+03_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.23518e+03_rb,0.20584e+03_rb,0.17651e+03_rb,0.14849e+03_rb,0.14028e+03_rb, &\n        & 0.15873e+03_rb,0.19031e+03_rb,0.22162e+03_rb,0.25383e+03_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.23553e+03_rb,0.20616e+03_rb,0.17678e+03_rb,0.14839e+03_rb,0.13959e+03_rb, &\n        & 0.15626e+03_rb,0.18736e+03_rb,0.21823e+03_rb,0.24993e+03_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.26766e+03_rb,0.23422e+03_rb,0.20086e+03_rb,0.17305e+03_rb,0.16820e+03_rb, &\n        & 0.19275e+03_rb,0.23109e+03_rb,0.26916e+03_rb,0.30826e+03_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.26991e+03_rb,0.23619e+03_rb,0.20254e+03_rb,0.17334e+03_rb,0.16673e+03_rb, &\n        & 0.18936e+03_rb,0.22702e+03_rb,0.26442e+03_rb,0.30283e+03_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.27155e+03_rb,0.23766e+03_rb,0.20381e+03_rb,0.17344e+03_rb,0.16570e+03_rb, &\n        & 0.18588e+03_rb,0.22280e+03_rb,0.25950e+03_rb,0.29719e+03_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.27254e+03_rb,0.23853e+03_rb,0.20456e+03_rb,0.17332e+03_rb,0.16480e+03_rb, &\n        & 0.18267e+03_rb,0.21887e+03_rb,0.25495e+03_rb,0.29197e+03_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.27304e+03_rb,0.23896e+03_rb,0.20491e+03_rb,0.17301e+03_rb,0.16390e+03_rb, &\n        & 0.17979e+03_rb,0.21534e+03_rb,0.25082e+03_rb,0.28725e+03_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.31010e+03_rb,0.27147e+03_rb,0.23291e+03_rb,0.20181e+03_rb,0.19592e+03_rb, &\n        & 0.21861e+03_rb,0.26152e+03_rb,0.30466e+03_rb,0.34889e+03_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.31237e+03_rb,0.27343e+03_rb,0.23463e+03_rb,0.20183e+03_rb,0.19444e+03_rb, &\n        & 0.21467e+03_rb,0.25634e+03_rb,0.29864e+03_rb,0.34194e+03_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.31396e+03_rb,0.27478e+03_rb,0.23578e+03_rb,0.20169e+03_rb,0.19320e+03_rb, &\n        & 0.21082e+03_rb,0.25169e+03_rb,0.29321e+03_rb,0.33575e+03_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.31491e+03_rb,0.27559e+03_rb,0.23646e+03_rb,0.20134e+03_rb,0.19199e+03_rb, &\n        & 0.20744e+03_rb,0.24738e+03_rb,0.28820e+03_rb,0.33002e+03_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.31516e+03_rb,0.27581e+03_rb,0.23662e+03_rb,0.20063e+03_rb,0.19065e+03_rb, &\n        & 0.20428e+03_rb,0.24308e+03_rb,0.28319e+03_rb,0.32426e+03_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.35746e+03_rb,0.31300e+03_rb,0.26858e+03_rb,0.23433e+03_rb,0.22701e+03_rb, &\n        & 0.24649e+03_rb,0.29230e+03_rb,0.34058e+03_rb,0.38993e+03_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.35965e+03_rb,0.31492e+03_rb,0.27026e+03_rb,0.23392e+03_rb,0.22536e+03_rb, &\n        & 0.24218e+03_rb,0.28684e+03_rb,0.33421e+03_rb,0.38264e+03_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.36096e+03_rb,0.31606e+03_rb,0.27127e+03_rb,0.23331e+03_rb,0.22367e+03_rb, &\n        & 0.23821e+03_rb,0.28173e+03_rb,0.32828e+03_rb,0.37584e+03_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.36159e+03_rb,0.31657e+03_rb,0.27171e+03_rb,0.23251e+03_rb,0.22182e+03_rb, &\n        & 0.23456e+03_rb,0.27669e+03_rb,0.32238e+03_rb,0.36910e+03_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.36141e+03_rb,0.31636e+03_rb,0.27153e+03_rb,0.23134e+03_rb,0.21976e+03_rb, &\n        & 0.23095e+03_rb,0.27160e+03_rb,0.31644e+03_rb,0.36227e+03_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.40931e+03_rb,0.35842e+03_rb,0.30758e+03_rb,0.27041e+03_rb,0.26133e+03_rb, &\n        & 0.27679e+03_rb,0.32393e+03_rb,0.37751e+03_rb,0.43213e+03_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.41124e+03_rb,0.36013e+03_rb,0.30908e+03_rb,0.26935e+03_rb,0.25923e+03_rb, &\n        & 0.27218e+03_rb,0.31806e+03_rb,0.37065e+03_rb,0.42432e+03_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.41214e+03_rb,0.36093e+03_rb,0.30979e+03_rb,0.26811e+03_rb,0.25684e+03_rb, &\n        & 0.26794e+03_rb,0.31214e+03_rb,0.36375e+03_rb,0.41639e+03_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.41225e+03_rb,0.36102e+03_rb,0.30989e+03_rb,0.26655e+03_rb,0.25418e+03_rb, &\n        & 0.26378e+03_rb,0.30615e+03_rb,0.35676e+03_rb,0.40836e+03_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.41130e+03_rb,0.36017e+03_rb,0.30917e+03_rb,0.26471e+03_rb,0.25127e+03_rb, &\n        & 0.25962e+03_rb,0.30054e+03_rb,0.35018e+03_rb,0.40087e+03_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.66783e+02_rb,0.58494e+02_rb,0.50207e+02_rb,0.41922e+02_rb,0.39207e+02_rb, &\n        & 0.48837e+02_rb,0.58441e+02_rb,0.67973e+02_rb,0.73684e+02_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.66987e+02_rb,0.58663e+02_rb,0.50340e+02_rb,0.42083e+02_rb,0.39992e+02_rb, &\n        & 0.49756e+02_rb,0.59507e+02_rb,0.69167e+02_rb,0.75232e+02_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.67128e+02_rb,0.58776e+02_rb,0.50426e+02_rb,0.42412e+02_rb,0.40738e+02_rb, &\n        & 0.50635e+02_rb,0.60514e+02_rb,0.70320e+02_rb,0.76487e+02_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.67159e+02_rb,0.58797e+02_rb,0.50435e+02_rb,0.42709e+02_rb,0.41336e+02_rb, &\n        & 0.51345e+02_rb,0.61329e+02_rb,0.71239e+02_rb,0.77474e+02_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.67048e+02_rb,0.58698e+02_rb,0.50349e+02_rb,0.42916e+02_rb,0.41806e+02_rb, &\n        & 0.51893e+02_rb,0.61955e+02_rb,0.71939e+02_rb,0.78212e+02_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.80817e+02_rb,0.70771e+02_rb,0.60724e+02_rb,0.50680e+02_rb,0.46121e+02_rb, &\n        & 0.57561e+02_rb,0.68978e+02_rb,0.80276e+02_rb,0.88125e+02_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.81120e+02_rb,0.71031e+02_rb,0.60942e+02_rb,0.50856e+02_rb,0.46531e+02_rb, &\n        & 0.58009e+02_rb,0.69466e+02_rb,0.80811e+02_rb,0.88902e+02_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.81295e+02_rb,0.71179e+02_rb,0.61065e+02_rb,0.50952e+02_rb,0.47046e+02_rb, &\n        & 0.58603e+02_rb,0.70144e+02_rb,0.81568e+02_rb,0.89842e+02_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.81302e+02_rb,0.71181e+02_rb,0.61061e+02_rb,0.50998e+02_rb,0.47535e+02_rb, &\n        & 0.59172e+02_rb,0.70788e+02_rb,0.82285e+02_rb,0.90723e+02_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.81254e+02_rb,0.71123e+02_rb,0.60992e+02_rb,0.51150e+02_rb,0.47959e+02_rb, &\n        & 0.59657e+02_rb,0.71327e+02_rb,0.82908e+02_rb,0.91460e+02_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.97635e+02_rb,0.85483e+02_rb,0.73330e+02_rb,0.61179e+02_rb,0.56207e+02_rb, &\n        & 0.70215e+02_rb,0.84188e+02_rb,0.98014e+02_rb,0.10988e+03_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.98163e+02_rb,0.85943e+02_rb,0.73724e+02_rb,0.61504e+02_rb,0.55633e+02_rb, &\n        & 0.69472e+02_rb,0.83276e+02_rb,0.96935e+02_rb,0.10869e+03_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.98472e+02_rb,0.86211e+02_rb,0.73951e+02_rb,0.61693e+02_rb,0.55697e+02_rb, &\n        & 0.69495e+02_rb,0.83260e+02_rb,0.96885e+02_rb,0.10871e+03_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.98535e+02_rb,0.86265e+02_rb,0.73995e+02_rb,0.61728e+02_rb,0.55937e+02_rb, &\n        & 0.69749e+02_rb,0.83530e+02_rb,0.97171e+02_rb,0.10906e+03_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.98433e+02_rb,0.86165e+02_rb,0.73899e+02_rb,0.61635e+02_rb,0.56204e+02_rb, &\n        & 0.70040e+02_rb,0.83840e+02_rb,0.97500e+02_rb,0.10946e+03_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.11801e+03_rb,0.10331e+03_rb,0.88600e+02_rb,0.73894e+02_rb,0.68841e+02_rb, &\n        & 0.86008e+02_rb,0.10313e+03_rb,0.12007e+03_rb,0.13623e+03_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.11855e+03_rb,0.10378e+03_rb,0.89007e+02_rb,0.74235e+02_rb,0.68009e+02_rb, &\n        & 0.84957e+02_rb,0.10186e+03_rb,0.11859e+03_rb,0.13456e+03_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.11911e+03_rb,0.10427e+03_rb,0.89430e+02_rb,0.74590e+02_rb,0.67220e+02_rb, &\n        & 0.83955e+02_rb,0.10065e+03_rb,0.11716e+03_rb,0.13292e+03_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.11932e+03_rb,0.10446e+03_rb,0.89591e+02_rb,0.74725e+02_rb,0.66996e+02_rb, &\n        & 0.83620e+02_rb,0.10020e+03_rb,0.11661e+03_rb,0.13231e+03_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.11933e+03_rb,0.10445e+03_rb,0.89579e+02_rb,0.74708e+02_rb,0.67016e+02_rb, &\n        & 0.83607e+02_rb,0.10016e+03_rb,0.11655e+03_rb,0.13223e+03_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.14253e+03_rb,0.12475e+03_rb,0.10698e+03_rb,0.89200e+02_rb,0.84755e+02_rb, &\n        & 0.10590e+03_rb,0.12699e+03_rb,0.14785e+03_rb,0.16865e+03_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.14325e+03_rb,0.12539e+03_rb,0.10752e+03_rb,0.89655e+02_rb,0.83145e+02_rb, &\n        & 0.10388e+03_rb,0.12456e+03_rb,0.14501e+03_rb,0.16542e+03_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.14383e+03_rb,0.12589e+03_rb,0.10795e+03_rb,0.90019e+02_rb,0.82092e+02_rb, &\n        & 0.10255e+03_rb,0.12296e+03_rb,0.14315e+03_rb,0.16327e+03_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.14418e+03_rb,0.12620e+03_rb,0.10822e+03_rb,0.90248e+02_rb,0.81037e+02_rb, &\n        & 0.10121e+03_rb,0.12133e+03_rb,0.14124e+03_rb,0.16108e+03_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.14437e+03_rb,0.12637e+03_rb,0.10836e+03_rb,0.90358e+02_rb,0.80556e+02_rb, &\n        & 0.10057e+03_rb,0.12052e+03_rb,0.14027e+03_rb,0.15994e+03_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.17174e+03_rb,0.15031e+03_rb,0.12887e+03_rb,0.10744e+03_rb,0.10459e+03_rb, &\n        & 0.13069e+03_rb,0.15672e+03_rb,0.18250e+03_rb,0.20866e+03_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.17281e+03_rb,0.15124e+03_rb,0.12968e+03_rb,0.10811e+03_rb,0.10205e+03_rb, &\n        & 0.12751e+03_rb,0.15290e+03_rb,0.17802e+03_rb,0.20356e+03_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.17366e+03_rb,0.15199e+03_rb,0.13032e+03_rb,0.10865e+03_rb,0.10020e+03_rb, &\n        & 0.12519e+03_rb,0.15010e+03_rb,0.17475e+03_rb,0.19982e+03_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.17410e+03_rb,0.15237e+03_rb,0.13065e+03_rb,0.10893e+03_rb,0.98757e+02_rb, &\n        & 0.12337e+03_rb,0.14792e+03_rb,0.17221e+03_rb,0.19689e+03_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.17426e+03_rb,0.15251e+03_rb,0.13077e+03_rb,0.10903e+03_rb,0.97456e+02_rb, &\n        & 0.12171e+03_rb,0.14591e+03_rb,0.16984e+03_rb,0.19419e+03_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.20639e+03_rb,0.18062e+03_rb,0.15485e+03_rb,0.12907e+03_rb,0.12889e+03_rb, &\n        & 0.16105e+03_rb,0.19314e+03_rb,0.22488e+03_rb,0.25751e+03_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.20793e+03_rb,0.18197e+03_rb,0.15600e+03_rb,0.13004e+03_rb,0.12536e+03_rb, &\n        & 0.15664e+03_rb,0.18784e+03_rb,0.21870e+03_rb,0.25043e+03_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.20918e+03_rb,0.18307e+03_rb,0.15695e+03_rb,0.13084e+03_rb,0.12258e+03_rb, &\n        & 0.15317e+03_rb,0.18368e+03_rb,0.21386e+03_rb,0.24487e+03_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.20994e+03_rb,0.18373e+03_rb,0.15753e+03_rb,0.13132e+03_rb,0.12024e+03_rb, &\n        & 0.15023e+03_rb,0.18014e+03_rb,0.20974e+03_rb,0.24016e+03_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.21017e+03_rb,0.18393e+03_rb,0.15770e+03_rb,0.13147e+03_rb,0.11817e+03_rb, &\n        & 0.14763e+03_rb,0.17700e+03_rb,0.20610e+03_rb,0.23592e+03_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.24808e+03_rb,0.21709e+03_rb,0.18610e+03_rb,0.15511e+03_rb,0.15824e+03_rb, &\n        & 0.19773e+03_rb,0.23715e+03_rb,0.27617e+03_rb,0.31647e+03_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.24976e+03_rb,0.21856e+03_rb,0.18737e+03_rb,0.15617e+03_rb,0.15364e+03_rb, &\n        & 0.19198e+03_rb,0.23024e+03_rb,0.26808e+03_rb,0.30723e+03_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.25153e+03_rb,0.22011e+03_rb,0.18870e+03_rb,0.15729e+03_rb,0.14986e+03_rb, &\n        & 0.18726e+03_rb,0.22456e+03_rb,0.26146e+03_rb,0.29964e+03_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.25266e+03_rb,0.22111e+03_rb,0.18956e+03_rb,0.15801e+03_rb,0.14651e+03_rb, &\n        & 0.18308e+03_rb,0.21955e+03_rb,0.25564e+03_rb,0.29297e+03_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.25306e+03_rb,0.22146e+03_rb,0.18986e+03_rb,0.15826e+03_rb,0.14346e+03_rb, &\n        & 0.17924e+03_rb,0.21492e+03_rb,0.25024e+03_rb,0.28677e+03_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.29758e+03_rb,0.26040e+03_rb,0.22322e+03_rb,0.18603e+03_rb,0.19348e+03_rb, &\n        & 0.24177e+03_rb,0.28996e+03_rb,0.33765e+03_rb,0.38707e+03_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.29980e+03_rb,0.26234e+03_rb,0.22489e+03_rb,0.18744e+03_rb,0.18763e+03_rb, &\n        & 0.23446e+03_rb,0.28116e+03_rb,0.32742e+03_rb,0.37536e+03_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.30182e+03_rb,0.26412e+03_rb,0.22641e+03_rb,0.18871e+03_rb,0.18264e+03_rb, &\n        & 0.22823e+03_rb,0.27370e+03_rb,0.31874e+03_rb,0.36539e+03_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.30335e+03_rb,0.26546e+03_rb,0.22757e+03_rb,0.18968e+03_rb,0.17814e+03_rb, &\n        & 0.22260e+03_rb,0.26695e+03_rb,0.31086e+03_rb,0.35637e+03_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.30399e+03_rb,0.26602e+03_rb,0.22805e+03_rb,0.19008e+03_rb,0.17393e+03_rb, &\n        & 0.21734e+03_rb,0.26062e+03_rb,0.30347e+03_rb,0.34789e+03_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.35657e+03_rb,0.31201e+03_rb,0.26745e+03_rb,0.22289e+03_rb,0.23471e+03_rb, &\n        & 0.29329e+03_rb,0.35175e+03_rb,0.40960e+03_rb,0.46960e+03_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.35941e+03_rb,0.31450e+03_rb,0.26959e+03_rb,0.22468e+03_rb,0.22747e+03_rb, &\n        & 0.28425e+03_rb,0.34089e+03_rb,0.39700e+03_rb,0.45514e+03_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.36173e+03_rb,0.31654e+03_rb,0.27134e+03_rb,0.22614e+03_rb,0.22110e+03_rb, &\n        & 0.27628e+03_rb,0.33132e+03_rb,0.38584e+03_rb,0.44234e+03_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.36337e+03_rb,0.31797e+03_rb,0.27257e+03_rb,0.22717e+03_rb,0.21518e+03_rb, &\n        & 0.26889e+03_rb,0.32246e+03_rb,0.37553e+03_rb,0.43052e+03_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.36404e+03_rb,0.31855e+03_rb,0.27307e+03_rb,0.22759e+03_rb,0.20959e+03_rb, &\n        & 0.26189e+03_rb,0.31406e+03_rb,0.36572e+03_rb,0.41925e+03_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.42778e+03_rb,0.37432e+03_rb,0.32086e+03_rb,0.26740e+03_rb,0.27872e+03_rb, &\n        & 0.34830e+03_rb,0.41771e+03_rb,0.48646e+03_rb,0.55765e+03_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.43110e+03_rb,0.37723e+03_rb,0.32336e+03_rb,0.26948e+03_rb,0.27023e+03_rb, &\n        & 0.33769e+03_rb,0.40499e+03_rb,0.47168e+03_rb,0.54065e+03_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.43351e+03_rb,0.37933e+03_rb,0.32516e+03_rb,0.27099e+03_rb,0.26235e+03_rb, &\n        & 0.32784e+03_rb,0.39315e+03_rb,0.45790e+03_rb,0.52488e+03_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.43444e+03_rb,0.38015e+03_rb,0.32587e+03_rb,0.27158e+03_rb,0.25502e+03_rb, &\n        & 0.31866e+03_rb,0.38217e+03_rb,0.44507e+03_rb,0.51019e+03_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.43455e+03_rb,0.38025e+03_rb,0.32595e+03_rb,0.27165e+03_rb,0.24835e+03_rb, &\n        & 0.31008e+03_rb,0.37185e+03_rb,0.43305e+03_rb,0.49635e+03_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.51115e+03_rb,0.44727e+03_rb,0.38338e+03_rb,0.31950e+03_rb,0.32868e+03_rb, &\n        & 0.41075e+03_rb,0.49264e+03_rb,0.57375e+03_rb,0.65765e+03_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.51481e+03_rb,0.45047e+03_rb,0.38614e+03_rb,0.32180e+03_rb,0.31846e+03_rb, &\n        & 0.39795e+03_rb,0.47726e+03_rb,0.55589e+03_rb,0.63715e+03_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.51667e+03_rb,0.45210e+03_rb,0.38753e+03_rb,0.32296e+03_rb,0.30906e+03_rb, &\n        & 0.38614e+03_rb,0.46310e+03_rb,0.53942e+03_rb,0.61825e+03_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.51678e+03_rb,0.45219e+03_rb,0.38761e+03_rb,0.32303e+03_rb,0.30046e+03_rb, &\n        & 0.37494e+03_rb,0.44968e+03_rb,0.52372e+03_rb,0.60018e+03_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.51600e+03_rb,0.45151e+03_rb,0.38702e+03_rb,0.32254e+03_rb,0.29255e+03_rb, &\n        & 0.36403e+03_rb,0.43655e+03_rb,0.50852e+03_rb,0.58277e+03_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.60779e+03_rb,0.53183e+03_rb,0.45587e+03_rb,0.37990e+03_rb,0.38498e+03_rb, &\n        & 0.48109e+03_rb,0.57702e+03_rb,0.67207e+03_rb,0.77032e+03_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.61089e+03_rb,0.53454e+03_rb,0.45819e+03_rb,0.38184e+03_rb,0.37288e+03_rb, &\n        & 0.46566e+03_rb,0.55850e+03_rb,0.65053e+03_rb,0.74557e+03_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.61168e+03_rb,0.53523e+03_rb,0.45878e+03_rb,0.38233e+03_rb,0.36190e+03_rb, &\n        & 0.45112e+03_rb,0.54103e+03_rb,0.63023e+03_rb,0.72223e+03_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.61073e+03_rb,0.53440e+03_rb,0.45807e+03_rb,0.38174e+03_rb,0.35168e+03_rb, &\n        & 0.43693e+03_rb,0.52405e+03_rb,0.61044e+03_rb,0.69951e+03_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.60852e+03_rb,0.53247e+03_rb,0.45641e+03_rb,0.38036e+03_rb,0.34198e+03_rb, &\n        & 0.42302e+03_rb,0.50734e+03_rb,0.59097e+03_rb,0.67714e+03_rb /)\n\n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:, 1,13, 1) = (/ &\n        & 0.10554e-06_rb,0.38596e-04_rb,0.65402e-04_rb,0.88540e-04_rb,0.19601e-03_rb /)\n      kbo(:, 2,13, 1) = (/ &\n        & 0.10479e-06_rb,0.43672e-04_rb,0.74889e-04_rb,0.10118e-03_rb,0.22146e-03_rb /)\n      kbo(:, 3,13, 1) = (/ &\n        & 0.10429e-06_rb,0.49418e-04_rb,0.85429e-04_rb,0.11557e-03_rb,0.24448e-03_rb /)\n      kbo(:, 4,13, 1) = (/ &\n        & 0.10232e-06_rb,0.55802e-04_rb,0.96459e-04_rb,0.13167e-03_rb,0.27001e-03_rb /)\n      kbo(:, 5,13, 1) = (/ &\n        & 0.99013e-07_rb,0.62996e-04_rb,0.10900e-03_rb,0.14834e-03_rb,0.29917e-03_rb /)\n      kbo(:, 1,14, 1) = (/ &\n        & 0.85136e-07_rb,0.31943e-04_rb,0.54402e-04_rb,0.73887e-04_rb,0.15895e-03_rb /)\n      kbo(:, 2,14, 1) = (/ &\n        & 0.84597e-07_rb,0.36196e-04_rb,0.62429e-04_rb,0.84479e-04_rb,0.17749e-03_rb /)\n      kbo(:, 3,14, 1) = (/ &\n        & 0.83629e-07_rb,0.40982e-04_rb,0.71126e-04_rb,0.96573e-04_rb,0.19740e-03_rb /)\n      kbo(:, 4,14, 1) = (/ &\n        & 0.82310e-07_rb,0.46344e-04_rb,0.80458e-04_rb,0.10984e-03_rb,0.21847e-03_rb /)\n      kbo(:, 5,14, 1) = (/ &\n        & 0.78709e-07_rb,0.52252e-04_rb,0.90989e-04_rb,0.12394e-03_rb,0.24281e-03_rb /)\n      kbo(:, 1,15, 1) = (/ &\n        & 0.68497e-07_rb,0.26393e-04_rb,0.45164e-04_rb,0.61570e-04_rb,0.12493e-03_rb /)\n      kbo(:, 2,15, 1) = (/ &\n        & 0.68062e-07_rb,0.29936e-04_rb,0.51919e-04_rb,0.70387e-04_rb,0.13953e-03_rb /)\n      kbo(:, 3,15, 1) = (/ &\n        & 0.66766e-07_rb,0.33863e-04_rb,0.59056e-04_rb,0.80693e-04_rb,0.15653e-03_rb /)\n      kbo(:, 4,15, 1) = (/ &\n        & 0.65636e-07_rb,0.38294e-04_rb,0.66885e-04_rb,0.91555e-04_rb,0.17510e-03_rb /)\n      kbo(:, 5,15, 1) = (/ &\n        & 0.62711e-07_rb,0.43189e-04_rb,0.75756e-04_rb,0.10355e-03_rb,0.19439e-03_rb /)\n      kbo(:, 1,16, 1) = (/ &\n        & 0.55083e-07_rb,0.21761e-04_rb,0.37484e-04_rb,0.51301e-04_rb,0.97875e-04_rb /)\n      kbo(:, 2,16, 1) = (/ &\n        & 0.54095e-07_rb,0.24670e-04_rb,0.43084e-04_rb,0.58639e-04_rb,0.10996e-03_rb /)\n      kbo(:, 3,16, 1) = (/ &\n        & 0.53340e-07_rb,0.27925e-04_rb,0.48976e-04_rb,0.67234e-04_rb,0.12415e-03_rb /)\n      kbo(:, 4,16, 1) = (/ &\n        & 0.51412e-07_rb,0.31588e-04_rb,0.55576e-04_rb,0.76352e-04_rb,0.13939e-03_rb /)\n      kbo(:, 5,16, 1) = (/ &\n        & 0.49341e-07_rb,0.35677e-04_rb,0.62937e-04_rb,0.86363e-04_rb,0.15543e-03_rb /)\n      kbo(:, 1,17, 1) = (/ &\n        & 0.44022e-07_rb,0.17963e-04_rb,0.31102e-04_rb,0.42604e-04_rb,0.78290e-04_rb /)\n      kbo(:, 2,17, 1) = (/ &\n        & 0.43167e-07_rb,0.20382e-04_rb,0.35754e-04_rb,0.48875e-04_rb,0.87941e-04_rb /)\n      kbo(:, 3,17, 1) = (/ &\n        & 0.42210e-07_rb,0.23091e-04_rb,0.40674e-04_rb,0.56059e-04_rb,0.99257e-04_rb /)\n      kbo(:, 4,17, 1) = (/ &\n        & 0.40402e-07_rb,0.26125e-04_rb,0.46162e-04_rb,0.63586e-04_rb,0.11166e-03_rb /)\n      kbo(:, 5,17, 1) = (/ &\n        & 0.38532e-07_rb,0.29494e-04_rb,0.52327e-04_rb,0.71960e-04_rb,0.12480e-03_rb /)\n      kbo(:, 1,18, 1) = (/ &\n        & 0.34937e-07_rb,0.14903e-04_rb,0.25868e-04_rb,0.35503e-04_rb,0.63368e-04_rb /)\n      kbo(:, 2,18, 1) = (/ &\n        & 0.34308e-07_rb,0.16923e-04_rb,0.29781e-04_rb,0.40789e-04_rb,0.71115e-04_rb /)\n      kbo(:, 3,18, 1) = (/ &\n        & 0.32995e-07_rb,0.19171e-04_rb,0.33872e-04_rb,0.46810e-04_rb,0.80302e-04_rb /)\n      kbo(:, 4,18, 1) = (/ &\n        & 0.31654e-07_rb,0.21679e-04_rb,0.38468e-04_rb,0.53048e-04_rb,0.90431e-04_rb /)\n      kbo(:, 5,18, 1) = (/ &\n        & 0.30282e-07_rb,0.24491e-04_rb,0.43596e-04_rb,0.60078e-04_rb,0.10133e-03_rb /)\n      kbo(:, 1,19, 1) = (/ &\n        & 0.27971e-07_rb,0.12385e-04_rb,0.21549e-04_rb,0.29618e-04_rb,0.51732e-04_rb /)\n      kbo(:, 2,19, 1) = (/ &\n        & 0.27128e-07_rb,0.14042e-04_rb,0.24826e-04_rb,0.34047e-04_rb,0.58064e-04_rb /)\n      kbo(:, 3,19, 1) = (/ &\n        & 0.26018e-07_rb,0.15920e-04_rb,0.28221e-04_rb,0.39072e-04_rb,0.65495e-04_rb /)\n      kbo(:, 4,19, 1) = (/ &\n        & 0.24717e-07_rb,0.18017e-04_rb,0.32056e-04_rb,0.44285e-04_rb,0.73859e-04_rb /)\n      kbo(:, 5,19, 1) = (/ &\n        & 0.23859e-07_rb,0.20360e-04_rb,0.36341e-04_rb,0.50170e-04_rb,0.82944e-04_rb /)\n      kbo(:, 1,20, 1) = (/ &\n        & 0.22529e-07_rb,0.10336e-04_rb,0.17999e-04_rb,0.24776e-04_rb,0.42602e-04_rb /)\n      kbo(:, 2,20, 1) = (/ &\n        & 0.21733e-07_rb,0.11685e-04_rb,0.20769e-04_rb,0.28503e-04_rb,0.47833e-04_rb /)\n      kbo(:, 3,20, 1) = (/ &\n        & 0.20791e-07_rb,0.13280e-04_rb,0.23571e-04_rb,0.32654e-04_rb,0.53995e-04_rb /)\n      kbo(:, 4,20, 1) = (/ &\n        & 0.19663e-07_rb,0.15029e-04_rb,0.26788e-04_rb,0.37066e-04_rb,0.60944e-04_rb /)\n      kbo(:, 5,20, 1) = (/ &\n        & 0.19169e-07_rb,0.16975e-04_rb,0.30353e-04_rb,0.41996e-04_rb,0.68344e-04_rb /)\n      kbo(:, 1,21, 1) = (/ &\n        & 0.18148e-07_rb,0.86039e-05_rb,0.15041e-04_rb,0.20717e-04_rb,0.35143e-04_rb /)\n      kbo(:, 2,21, 1) = (/ &\n        & 0.17465e-07_rb,0.97287e-05_rb,0.17348e-04_rb,0.23862e-04_rb,0.39508e-04_rb /)\n      kbo(:, 3,21, 1) = (/ &\n        & 0.16537e-07_rb,0.11073e-04_rb,0.19687e-04_rb,0.27271e-04_rb,0.44652e-04_rb /)\n      kbo(:, 4,21, 1) = (/ &\n        & 0.15860e-07_rb,0.12526e-04_rb,0.22388e-04_rb,0.31015e-04_rb,0.50269e-04_rb /)\n      kbo(:, 5,21, 1) = (/ &\n        & 0.15452e-07_rb,0.14158e-04_rb,0.25339e-04_rb,0.35141e-04_rb,0.56327e-04_rb /)\n      kbo(:, 1,22, 1) = (/ &\n        & 0.14542e-07_rb,0.71807e-05_rb,0.12682e-04_rb,0.17473e-04_rb,0.29179e-04_rb /)\n      kbo(:, 2,22, 1) = (/ &\n        & 0.13967e-07_rb,0.81574e-05_rb,0.14550e-04_rb,0.20147e-04_rb,0.32795e-04_rb /)\n      kbo(:, 3,22, 1) = (/ &\n        & 0.13241e-07_rb,0.92839e-05_rb,0.16547e-04_rb,0.22971e-04_rb,0.37036e-04_rb /)\n      kbo(:, 4,22, 1) = (/ &\n        & 0.12746e-07_rb,0.10522e-04_rb,0.18840e-04_rb,0.26114e-04_rb,0.41617e-04_rb /)\n      kbo(:, 5,22, 1) = (/ &\n        & 0.12426e-07_rb,0.11886e-04_rb,0.21313e-04_rb,0.29604e-04_rb,0.46709e-04_rb /)\n      kbo(:, 1,23, 1) = (/ &\n        & 0.11724e-07_rb,0.60196e-05_rb,0.10703e-04_rb,0.14753e-04_rb,0.24143e-04_rb /)\n      kbo(:, 2,23, 1) = (/ &\n        & 0.11124e-07_rb,0.68499e-05_rb,0.12233e-04_rb,0.17009e-04_rb,0.27147e-04_rb /)\n      kbo(:, 3,23, 1) = (/ &\n        & 0.10552e-07_rb,0.77897e-05_rb,0.13927e-04_rb,0.19362e-04_rb,0.30661e-04_rb /)\n      kbo(:, 4,23, 1) = (/ &\n        & 0.10213e-07_rb,0.88398e-05_rb,0.15850e-04_rb,0.22024e-04_rb,0.34519e-04_rb /)\n      kbo(:, 5,23, 1) = (/ &\n        & 0.99627e-08_rb,0.99755e-05_rb,0.17919e-04_rb,0.24944e-04_rb,0.38730e-04_rb /)\n      kbo(:, 1,24, 1) = (/ &\n        & 0.93835e-08_rb,0.50505e-05_rb,0.90298e-05_rb,0.12450e-04_rb,0.19940e-04_rb /)\n      kbo(:, 2,24, 1) = (/ &\n        & 0.88722e-08_rb,0.57494e-05_rb,0.10287e-04_rb,0.14351e-04_rb,0.22450e-04_rb /)\n      kbo(:, 3,24, 1) = (/ &\n        & 0.84719e-08_rb,0.65374e-05_rb,0.11727e-04_rb,0.16329e-04_rb,0.25378e-04_rb /)\n      kbo(:, 4,24, 1) = (/ &\n        & 0.81924e-08_rb,0.74186e-05_rb,0.13334e-04_rb,0.18567e-04_rb,0.28560e-04_rb /)\n      kbo(:, 5,24, 1) = (/ &\n        & 0.79194e-08_rb,0.83719e-05_rb,0.15056e-04_rb,0.21003e-04_rb,0.31990e-04_rb /)\n      kbo(:, 1,25, 1) = (/ &\n        & 0.74535e-08_rb,0.42437e-05_rb,0.76220e-05_rb,0.10523e-04_rb,0.16531e-04_rb /)\n      kbo(:, 2,25, 1) = (/ &\n        & 0.70516e-08_rb,0.48300e-05_rb,0.86667e-05_rb,0.12089e-04_rb,0.18616e-04_rb /)\n      kbo(:, 3,25, 1) = (/ &\n        & 0.67746e-08_rb,0.54941e-05_rb,0.98927e-05_rb,0.13790e-04_rb,0.21024e-04_rb /)\n      kbo(:, 4,25, 1) = (/ &\n        & 0.65375e-08_rb,0.62357e-05_rb,0.11233e-04_rb,0.15662e-04_rb,0.23642e-04_rb /)\n      kbo(:, 5,25, 1) = (/ &\n        & 0.63001e-08_rb,0.70282e-05_rb,0.12669e-04_rb,0.17695e-04_rb,0.26478e-04_rb /)\n      kbo(:, 1,26, 1) = (/ &\n        & 0.59520e-08_rb,0.35739e-05_rb,0.64350e-05_rb,0.89330e-05_rb,0.13754e-04_rb /)\n      kbo(:, 2,26, 1) = (/ &\n        & 0.56644e-08_rb,0.40797e-05_rb,0.73291e-05_rb,0.10228e-04_rb,0.15489e-04_rb /)\n      kbo(:, 3,26, 1) = (/ &\n        & 0.54229e-08_rb,0.46366e-05_rb,0.83664e-05_rb,0.11659e-04_rb,0.17486e-04_rb /)\n      kbo(:, 4,26, 1) = (/ &\n        & 0.52155e-08_rb,0.52546e-05_rb,0.94829e-05_rb,0.13246e-04_rb,0.19643e-04_rb /)\n      kbo(:, 5,26, 1) = (/ &\n        & 0.50026e-08_rb,0.59134e-05_rb,0.10676e-04_rb,0.14933e-04_rb,0.21979e-04_rb /)\n      kbo(:, 1,27, 1) = (/ &\n        & 0.47347e-08_rb,0.30117e-05_rb,0.54223e-05_rb,0.75810e-05_rb,0.11424e-04_rb /)\n      kbo(:, 2,27, 1) = (/ &\n        & 0.45215e-08_rb,0.34421e-05_rb,0.61959e-05_rb,0.86619e-05_rb,0.12884e-04_rb /)\n      kbo(:, 3,27, 1) = (/ &\n        & 0.43334e-08_rb,0.39143e-05_rb,0.70702e-05_rb,0.98761e-05_rb,0.14543e-04_rb /)\n      kbo(:, 4,27, 1) = (/ &\n        & 0.41350e-08_rb,0.44275e-05_rb,0.80005e-05_rb,0.11195e-04_rb,0.16319e-04_rb /)\n      kbo(:, 5,27, 1) = (/ &\n        & 0.39653e-08_rb,0.49769e-05_rb,0.89931e-05_rb,0.12598e-04_rb,0.18160e-04_rb /)\n      kbo(:, 1,28, 1) = (/ &\n        & 0.37948e-08_rb,0.25415e-05_rb,0.45819e-05_rb,0.64336e-05_rb,0.94956e-05_rb /)\n      kbo(:, 2,28, 1) = (/ &\n        & 0.36083e-08_rb,0.29038e-05_rb,0.52426e-05_rb,0.73400e-05_rb,0.10719e-04_rb /)\n      kbo(:, 3,28, 1) = (/ &\n        & 0.34418e-08_rb,0.33017e-05_rb,0.59733e-05_rb,0.83575e-05_rb,0.12066e-04_rb /)\n      kbo(:, 4,28, 1) = (/ &\n        & 0.32636e-08_rb,0.37297e-05_rb,0.67493e-05_rb,0.94558e-05_rb,0.13468e-04_rb /)\n      kbo(:, 5,28, 1) = (/ &\n        & 0.31340e-08_rb,0.41873e-05_rb,0.75759e-05_rb,0.10620e-04_rb,0.14953e-04_rb /)\n      kbo(:, 1,29, 1) = (/ &\n        & 0.30121e-08_rb,0.21536e-05_rb,0.38841e-05_rb,0.54491e-05_rb,0.79090e-05_rb /)\n      kbo(:, 2,29, 1) = (/ &\n        & 0.28775e-08_rb,0.24557e-05_rb,0.44467e-05_rb,0.62247e-05_rb,0.89148e-05_rb /)\n      kbo(:, 3,29, 1) = (/ &\n        & 0.27196e-08_rb,0.27900e-05_rb,0.50543e-05_rb,0.70782e-05_rb,0.99943e-05_rb /)\n      kbo(:, 4,29, 1) = (/ &\n        & 0.25798e-08_rb,0.31473e-05_rb,0.57011e-05_rb,0.79936e-05_rb,0.11135e-04_rb /)\n      kbo(:, 5,29, 1) = (/ &\n        & 0.24785e-08_rb,0.35287e-05_rb,0.63894e-05_rb,0.89624e-05_rb,0.12357e-04_rb /)\n      kbo(:, 1,30, 1) = (/ &\n        & 0.24034e-08_rb,0.18231e-05_rb,0.32945e-05_rb,0.46183e-05_rb,0.65837e-05_rb /)\n      kbo(:, 2,30, 1) = (/ &\n        & 0.22702e-08_rb,0.20766e-05_rb,0.37671e-05_rb,0.52735e-05_rb,0.73875e-05_rb /)\n      kbo(:, 3,30, 1) = (/ &\n        & 0.21551e-08_rb,0.23559e-05_rb,0.42744e-05_rb,0.59932e-05_rb,0.82665e-05_rb /)\n      kbo(:, 4,30, 1) = (/ &\n        & 0.20397e-08_rb,0.26541e-05_rb,0.48137e-05_rb,0.67549e-05_rb,0.92071e-05_rb /)\n      kbo(:, 5,30, 1) = (/ &\n        & 0.19208e-08_rb,0.29711e-05_rb,0.53880e-05_rb,0.75598e-05_rb,0.10211e-04_rb /)\n      kbo(:, 1,31, 1) = (/ &\n        & 0.19116e-08_rb,0.15454e-05_rb,0.27957e-05_rb,0.39228e-05_rb,0.54664e-05_rb /)\n      kbo(:, 2,31, 1) = (/ &\n        & 0.18045e-08_rb,0.17579e-05_rb,0.31938e-05_rb,0.44780e-05_rb,0.61205e-05_rb /)\n      kbo(:, 3,31, 1) = (/ &\n        & 0.17015e-08_rb,0.19911e-05_rb,0.36167e-05_rb,0.50753e-05_rb,0.68523e-05_rb /)\n      kbo(:, 4,31, 1) = (/ &\n        & 0.16042e-08_rb,0.22393e-05_rb,0.40666e-05_rb,0.57094e-05_rb,0.76260e-05_rb /)\n      kbo(:, 5,31, 1) = (/ &\n        & 0.15189e-08_rb,0.25035e-05_rb,0.45439e-05_rb,0.63785e-05_rb,0.84562e-05_rb /)\n      kbo(:, 1,32, 1) = (/ &\n        & 0.15134e-08_rb,0.13080e-05_rb,0.23763e-05_rb,0.33360e-05_rb,0.45382e-05_rb /)\n      kbo(:, 2,32, 1) = (/ &\n        & 0.14254e-08_rb,0.14886e-05_rb,0.27086e-05_rb,0.37995e-05_rb,0.50938e-05_rb /)\n      kbo(:, 3,32, 1) = (/ &\n        & 0.13478e-08_rb,0.16831e-05_rb,0.30605e-05_rb,0.42971e-05_rb,0.56933e-05_rb /)\n      kbo(:, 4,32, 1) = (/ &\n        & 0.12726e-08_rb,0.18904e-05_rb,0.34353e-05_rb,0.48247e-05_rb,0.63353e-05_rb /)\n      kbo(:, 5,32, 1) = (/ &\n        & 0.12027e-08_rb,0.21098e-05_rb,0.38318e-05_rb,0.53809e-05_rb,0.70302e-05_rb /)\n      kbo(:, 1,33, 1) = (/ &\n        & 0.12024e-08_rb,0.11084e-05_rb,0.20193e-05_rb,0.28310e-05_rb,0.37849e-05_rb /)\n      kbo(:, 2,33, 1) = (/ &\n        & 0.11338e-08_rb,0.12605e-05_rb,0.22949e-05_rb,0.32221e-05_rb,0.42458e-05_rb /)\n      kbo(:, 3,33, 1) = (/ &\n        & 0.10678e-08_rb,0.14231e-05_rb,0.25881e-05_rb,0.36365e-05_rb,0.47460e-05_rb /)\n      kbo(:, 4,33, 1) = (/ &\n        & 0.10052e-08_rb,0.15963e-05_rb,0.29010e-05_rb,0.40728e-05_rb,0.52804e-05_rb /)\n      kbo(:, 5,33, 1) = (/ &\n        & 0.95946e-09_rb,0.17779e-05_rb,0.32301e-05_rb,0.45381e-05_rb,0.58547e-05_rb /)\n      kbo(:, 1,34, 1) = (/ &\n        & 0.95750e-09_rb,0.93665e-06_rb,0.17068e-05_rb,0.23954e-05_rb,0.31611e-05_rb /)\n      kbo(:, 2,34, 1) = (/ &\n        & 0.89991e-09_rb,0.10636e-05_rb,0.19366e-05_rb,0.27209e-05_rb,0.35440e-05_rb /)\n      kbo(:, 3,34, 1) = (/ &\n        & 0.84944e-09_rb,0.11994e-05_rb,0.21804e-05_rb,0.30651e-05_rb,0.39600e-05_rb /)\n      kbo(:, 4,34, 1) = (/ &\n        & 0.80863e-09_rb,0.13431e-05_rb,0.24406e-05_rb,0.34285e-05_rb,0.44045e-05_rb /)\n      kbo(:, 5,34, 1) = (/ &\n        & 0.76697e-09_rb,0.14937e-05_rb,0.27138e-05_rb,0.38153e-05_rb,0.48739e-05_rb /)\n      kbo(:, 1,35, 1) = (/ &\n        & 0.76931e-09_rb,0.78145e-06_rb,0.14243e-05_rb,0.20004e-05_rb,0.26088e-05_rb /)\n      kbo(:, 2,35, 1) = (/ &\n        & 0.72554e-09_rb,0.88652e-06_rb,0.16140e-05_rb,0.22684e-05_rb,0.29255e-05_rb /)\n      kbo(:, 3,35, 1) = (/ &\n        & 0.68677e-09_rb,0.99872e-06_rb,0.18159e-05_rb,0.25537e-05_rb,0.32672e-05_rb /)\n      kbo(:, 4,35, 1) = (/ &\n        & 0.64986e-09_rb,0.11178e-05_rb,0.20312e-05_rb,0.28542e-05_rb,0.36304e-05_rb /)\n      kbo(:, 5,35, 1) = (/ &\n        & 0.62177e-09_rb,0.12420e-05_rb,0.22566e-05_rb,0.31737e-05_rb,0.40187e-05_rb /)\n      kbo(:, 1,36, 1) = (/ &\n        & 0.62245e-09_rb,0.64235e-06_rb,0.11709e-05_rb,0.16445e-05_rb,0.21213e-05_rb /)\n      kbo(:, 2,36, 1) = (/ &\n        & 0.58696e-09_rb,0.72876e-06_rb,0.13266e-05_rb,0.18646e-05_rb,0.23798e-05_rb /)\n      kbo(:, 3,36, 1) = (/ &\n        & 0.55693e-09_rb,0.82089e-06_rb,0.14927e-05_rb,0.20991e-05_rb,0.26600e-05_rb /)\n      kbo(:, 4,36, 1) = (/ &\n        & 0.52934e-09_rb,0.91874e-06_rb,0.16695e-05_rb,0.23457e-05_rb,0.29575e-05_rb /)\n      kbo(:, 5,36, 1) = (/ &\n        & 0.50585e-09_rb,0.10210e-05_rb,0.18549e-05_rb,0.26085e-05_rb,0.32758e-05_rb /)\n      kbo(:, 1,37, 1) = (/ &\n        & 0.51156e-09_rb,0.51872e-06_rb,0.94550e-06_rb,0.13287e-05_rb,0.17089e-05_rb /)\n      kbo(:, 2,37, 1) = (/ &\n        & 0.48258e-09_rb,0.58908e-06_rb,0.10722e-05_rb,0.15079e-05_rb,0.19187e-05_rb /)\n      kbo(:, 3,37, 1) = (/ &\n        & 0.45694e-09_rb,0.66421e-06_rb,0.12078e-05_rb,0.16992e-05_rb,0.21456e-05_rb /)\n      kbo(:, 4,37, 1) = (/ &\n        & 0.43502e-09_rb,0.74408e-06_rb,0.13520e-05_rb,0.19000e-05_rb,0.23876e-05_rb /)\n      kbo(:, 5,37, 1) = (/ &\n        & 0.41517e-09_rb,0.82758e-06_rb,0.15034e-05_rb,0.21146e-05_rb,0.26473e-05_rb /)\n      kbo(:, 1,38, 1) = (/ &\n        & 0.42094e-09_rb,0.41837e-06_rb,0.76260e-06_rb,0.10719e-05_rb,0.13756e-05_rb /)\n      kbo(:, 2,38, 1) = (/ &\n        & 0.39700e-09_rb,0.47557e-06_rb,0.86572e-06_rb,0.12180e-05_rb,0.15462e-05_rb /)\n      kbo(:, 3,38, 1) = (/ &\n        & 0.37563e-09_rb,0.53684e-06_rb,0.97613e-06_rb,0.13738e-05_rb,0.17289e-05_rb /)\n      kbo(:, 4,38, 1) = (/ &\n        & 0.35783e-09_rb,0.60193e-06_rb,0.10936e-05_rb,0.15374e-05_rb,0.19252e-05_rb /)\n      kbo(:, 5,38, 1) = (/ &\n        & 0.34107e-09_rb,0.67014e-06_rb,0.12173e-05_rb,0.17127e-05_rb,0.21369e-05_rb /)\n      kbo(:, 1,39, 1) = (/ &\n        & 0.34635e-09_rb,0.33732e-06_rb,0.61492e-06_rb,0.86447e-06_rb,0.11055e-05_rb /)\n      kbo(:, 2,39, 1) = (/ &\n        & 0.32654e-09_rb,0.38383e-06_rb,0.69869e-06_rb,0.98355e-06_rb,0.12440e-05_rb /)\n      kbo(:, 3,39, 1) = (/ &\n        & 0.30909e-09_rb,0.43371e-06_rb,0.78869e-06_rb,0.11105e-05_rb,0.13924e-05_rb /)\n      kbo(:, 4,39, 1) = (/ &\n        & 0.29425e-09_rb,0.48681e-06_rb,0.88446e-06_rb,0.12433e-05_rb,0.15526e-05_rb /)\n      kbo(:, 5,39, 1) = (/ &\n        & 0.28000e-09_rb,0.54256e-06_rb,0.98550e-06_rb,0.13868e-05_rb,0.17238e-05_rb /)\n      kbo(:, 1,40, 1) = (/ &\n        & 0.28731e-09_rb,0.26843e-06_rb,0.48915e-06_rb,0.68810e-06_rb,0.87867e-06_rb /)\n      kbo(:, 2,40, 1) = (/ &\n        & 0.27089e-09_rb,0.30600e-06_rb,0.55698e-06_rb,0.78430e-06_rb,0.99075e-06_rb /)\n      kbo(:, 3,40, 1) = (/ &\n        & 0.25607e-09_rb,0.34624e-06_rb,0.62966e-06_rb,0.88677e-06_rb,0.11107e-05_rb /)\n      kbo(:, 4,40, 1) = (/ &\n        & 0.24372e-09_rb,0.38926e-06_rb,0.70732e-06_rb,0.99430e-06_rb,0.12402e-05_rb /)\n      kbo(:, 5,40, 1) = (/ &\n        & 0.23176e-09_rb,0.43465e-06_rb,0.78943e-06_rb,0.11107e-05_rb,0.13787e-05_rb /)\n      kbo(:, 1,41, 1) = (/ &\n        & 0.23903e-09_rb,0.21323e-06_rb,0.38855e-06_rb,0.54701e-06_rb,0.69781e-06_rb /)\n      kbo(:, 2,41, 1) = (/ &\n        & 0.22487e-09_rb,0.24332e-06_rb,0.44328e-06_rb,0.62397e-06_rb,0.78774e-06_rb /)\n      kbo(:, 3,41, 1) = (/ &\n        & 0.21236e-09_rb,0.27581e-06_rb,0.50170e-06_rb,0.70664e-06_rb,0.88427e-06_rb /)\n      kbo(:, 4,41, 1) = (/ &\n        & 0.20204e-09_rb,0.31066e-06_rb,0.56435e-06_rb,0.79384e-06_rb,0.98899e-06_rb /)\n      kbo(:, 5,41, 1) = (/ &\n        & 0.19209e-09_rb,0.34753e-06_rb,0.63119e-06_rb,0.88787e-06_rb,0.11007e-05_rb /)\n      kbo(:, 1,42, 1) = (/ &\n        & 0.19868e-09_rb,0.16950e-06_rb,0.30885e-06_rb,0.43426e-06_rb,0.55336e-06_rb /)\n      kbo(:, 2,42, 1) = (/ &\n        & 0.18681e-09_rb,0.19338e-06_rb,0.35250e-06_rb,0.49622e-06_rb,0.62628e-06_rb /)\n      kbo(:, 3,42, 1) = (/ &\n        & 0.17649e-09_rb,0.21963e-06_rb,0.39950e-06_rb,0.56269e-06_rb,0.70396e-06_rb /)\n      kbo(:, 4,42, 1) = (/ &\n        & 0.16753e-09_rb,0.24778e-06_rb,0.45013e-06_rb,0.63342e-06_rb,0.78770e-06_rb /)\n      kbo(:, 5,42, 1) = (/ &\n        & 0.15930e-09_rb,0.27772e-06_rb,0.50439e-06_rb,0.70945e-06_rb,0.87783e-06_rb /)\n      kbo(:, 1,43, 1) = (/ &\n        & 0.16577e-09_rb,0.13332e-06_rb,0.24323e-06_rb,0.34184e-06_rb,0.43594e-06_rb /)\n      kbo(:, 2,43, 1) = (/ &\n        & 0.15597e-09_rb,0.15245e-06_rb,0.27801e-06_rb,0.39130e-06_rb,0.49460e-06_rb /)\n      kbo(:, 3,43, 1) = (/ &\n        & 0.14721e-09_rb,0.17354e-06_rb,0.31584e-06_rb,0.44499e-06_rb,0.55705e-06_rb /)\n      kbo(:, 4,43, 1) = (/ &\n        & 0.13936e-09_rb,0.19625e-06_rb,0.35661e-06_rb,0.50189e-06_rb,0.62398e-06_rb /)\n      kbo(:, 5,43, 1) = (/ &\n        & 0.13255e-09_rb,0.22044e-06_rb,0.40034e-06_rb,0.56308e-06_rb,0.69634e-06_rb /)\n      kbo(:, 1,44, 1) = (/ &\n        & 0.13861e-09_rb,0.10445e-06_rb,0.19058e-06_rb,0.26841e-06_rb,0.34233e-06_rb /)\n      kbo(:, 2,44, 1) = (/ &\n        & 0.13027e-09_rb,0.11974e-06_rb,0.21836e-06_rb,0.30744e-06_rb,0.38897e-06_rb /)\n      kbo(:, 3,44, 1) = (/ &\n        & 0.12290e-09_rb,0.13662e-06_rb,0.24864e-06_rb,0.35065e-06_rb,0.43916e-06_rb /)\n      kbo(:, 4,44, 1) = (/ &\n        & 0.11611e-09_rb,0.15484e-06_rb,0.28155e-06_rb,0.39627e-06_rb,0.49273e-06_rb /)\n      kbo(:, 5,44, 1) = (/ &\n        & 0.11042e-09_rb,0.17431e-06_rb,0.31666e-06_rb,0.44540e-06_rb,0.55087e-06_rb /)\n      kbo(:, 1,45, 1) = (/ &\n        & 0.11581e-09_rb,0.81915e-07_rb,0.14915e-06_rb,0.21140e-06_rb,0.26987e-06_rb /)\n      kbo(:, 2,45, 1) = (/ &\n        & 0.10906e-09_rb,0.94077e-07_rb,0.17143e-06_rb,0.24173e-06_rb,0.30586e-06_rb /)\n      kbo(:, 3,45, 1) = (/ &\n        & 0.10254e-09_rb,0.10745e-06_rb,0.19582e-06_rb,0.27606e-06_rb,0.34593e-06_rb /)\n      kbo(:, 4,45, 1) = (/ &\n        & 0.96757e-10_rb,0.12205e-06_rb,0.22201e-06_rb,0.31271e-06_rb,0.38876e-06_rb /)\n      kbo(:, 5,45, 1) = (/ &\n        & 0.91979e-10_rb,0.13772e-06_rb,0.25015e-06_rb,0.35208e-06_rb,0.43561e-06_rb /)\n      kbo(:, 1,46, 1) = (/ &\n        & 0.96889e-10_rb,0.64116e-07_rb,0.11708e-06_rb,0.16455e-06_rb,0.21036e-06_rb /)\n      kbo(:, 2,46, 1) = (/ &\n        & 0.91281e-10_rb,0.73641e-07_rb,0.13436e-06_rb,0.18895e-06_rb,0.23951e-06_rb /)\n      kbo(:, 3,46, 1) = (/ &\n        & 0.85830e-10_rb,0.84161e-07_rb,0.15360e-06_rb,0.21643e-06_rb,0.27176e-06_rb /)\n      kbo(:, 4,46, 1) = (/ &\n        & 0.81048e-10_rb,0.95867e-07_rb,0.17447e-06_rb,0.24582e-06_rb,0.30613e-06_rb /)\n      kbo(:, 5,46, 1) = (/ &\n        & 0.76712e-10_rb,0.10844e-06_rb,0.19706e-06_rb,0.27743e-06_rb,0.34329e-06_rb /)\n      kbo(:, 1,47, 1) = (/ &\n        & 0.81516e-10_rb,0.49698e-07_rb,0.90596e-07_rb,0.12727e-06_rb,0.16313e-06_rb /)\n      kbo(:, 2,47, 1) = (/ &\n        & 0.76609e-10_rb,0.57132e-07_rb,0.10433e-06_rb,0.14694e-06_rb,0.18672e-06_rb /)\n      kbo(:, 3,47, 1) = (/ &\n        & 0.71975e-10_rb,0.65534e-07_rb,0.11955e-06_rb,0.16850e-06_rb,0.21215e-06_rb /)\n      kbo(:, 4,47, 1) = (/ &\n        & 0.67908e-10_rb,0.74829e-07_rb,0.13619e-06_rb,0.19209e-06_rb,0.23959e-06_rb /)\n      kbo(:, 5,47, 1) = (/ &\n        & 0.64117e-10_rb,0.84872e-07_rb,0.15433e-06_rb,0.21733e-06_rb,0.26915e-06_rb /)\n      kbo(:, 1,48, 1) = (/ &\n        & 0.68429e-10_rb,0.38715e-07_rb,0.69854e-07_rb,0.98377e-07_rb,0.12619e-06_rb /)\n      kbo(:, 2,48, 1) = (/ &\n        & 0.64236e-10_rb,0.44375e-07_rb,0.80895e-07_rb,0.11471e-06_rb,0.14604e-06_rb /)\n      kbo(:, 3,48, 1) = (/ &\n        & 0.60510e-10_rb,0.51025e-07_rb,0.92977e-07_rb,0.13123e-06_rb,0.16542e-06_rb /)\n      kbo(:, 4,48, 1) = (/ &\n        & 0.56851e-10_rb,0.58345e-07_rb,0.10633e-06_rb,0.14991e-06_rb,0.18745e-06_rb /)\n      kbo(:, 5,48, 1) = (/ &\n        & 0.53674e-10_rb,0.66346e-07_rb,0.12070e-06_rb,0.17001e-06_rb,0.21095e-06_rb /)\n      kbo(:, 1,49, 1) = (/ &\n        & 0.57387e-10_rb,0.29800e-07_rb,0.53817e-07_rb,0.75906e-07_rb,0.97710e-07_rb /)\n      kbo(:, 2,49, 1) = (/ &\n        & 0.53960e-10_rb,0.34500e-07_rb,0.63205e-07_rb,0.88655e-07_rb,0.11310e-06_rb /)\n      kbo(:, 3,49, 1) = (/ &\n        & 0.50740e-10_rb,0.39684e-07_rb,0.72502e-07_rb,0.10193e-06_rb,0.12892e-06_rb /)\n      kbo(:, 4,49, 1) = (/ &\n        & 0.47710e-10_rb,0.45418e-07_rb,0.82941e-07_rb,0.11692e-06_rb,0.14649e-06_rb /)\n      kbo(:, 5,49, 1) = (/ &\n        & 0.45050e-10_rb,0.51797e-07_rb,0.94320e-07_rb,0.13296e-06_rb,0.16526e-06_rb /)\n      kbo(:, 1,50, 1) = (/ &\n        & 0.48010e-10_rb,0.22999e-07_rb,0.41682e-07_rb,0.58975e-07_rb,0.75898e-07_rb /)\n      kbo(:, 2,50, 1) = (/ &\n        & 0.45282e-10_rb,0.26917e-07_rb,0.48929e-07_rb,0.68765e-07_rb,0.87983e-07_rb /)\n      kbo(:, 3,50, 1) = (/ &\n        & 0.42531e-10_rb,0.30879e-07_rb,0.56406e-07_rb,0.79593e-07_rb,0.10109e-06_rb /)\n      kbo(:, 4,50, 1) = (/ &\n        & 0.40002e-10_rb,0.35470e-07_rb,0.64706e-07_rb,0.91312e-07_rb,0.11473e-06_rb /)\n      kbo(:, 5,50, 1) = (/ &\n        & 0.37674e-10_rb,0.40542e-07_rb,0.73834e-07_rb,0.10412e-06_rb,0.12967e-06_rb /)\n      kbo(:, 1,51, 1) = (/ &\n        & 0.40094e-10_rb,0.17810e-07_rb,0.32412e-07_rb,0.45985e-07_rb,0.59041e-07_rb /)\n      kbo(:, 2,51, 1) = (/ &\n        & 0.37901e-10_rb,0.21013e-07_rb,0.37921e-07_rb,0.53479e-07_rb,0.68479e-07_rb /)\n      kbo(:, 3,51, 1) = (/ &\n        & 0.35584e-10_rb,0.24100e-07_rb,0.43988e-07_rb,0.62409e-07_rb,0.79311e-07_rb /)\n      kbo(:, 4,51, 1) = (/ &\n        & 0.33516e-10_rb,0.27737e-07_rb,0.50544e-07_rb,0.71436e-07_rb,0.89912e-07_rb /)\n      kbo(:, 5,51, 1) = (/ &\n        & 0.31503e-10_rb,0.31738e-07_rb,0.57889e-07_rb,0.81591e-07_rb,0.10195e-06_rb /)\n      kbo(:, 1,52, 1) = (/ &\n        & 0.33462e-10_rb,0.13829e-07_rb,0.25227e-07_rb,0.35498e-07_rb,0.45793e-07_rb /)\n      kbo(:, 2,52, 1) = (/ &\n        & 0.31703e-10_rb,0.16272e-07_rb,0.29393e-07_rb,0.41476e-07_rb,0.53340e-07_rb /)\n      kbo(:, 3,52, 1) = (/ &\n        & 0.29856e-10_rb,0.18836e-07_rb,0.34537e-07_rb,0.48490e-07_rb,0.61791e-07_rb /)\n      kbo(:, 4,52, 1) = (/ &\n        & 0.28038e-10_rb,0.21684e-07_rb,0.39578e-07_rb,0.55751e-07_rb,0.70422e-07_rb /)\n      kbo(:, 5,52, 1) = (/ &\n        & 0.26375e-10_rb,0.24824e-07_rb,0.45389e-07_rb,0.63898e-07_rb,0.80071e-07_rb /)\n      kbo(:, 1,53, 1) = (/ &\n        & 0.27859e-10_rb,0.10757e-07_rb,0.19436e-07_rb,0.27368e-07_rb,0.35401e-07_rb /)\n      kbo(:, 2,53, 1) = (/ &\n        & 0.26482e-10_rb,0.12575e-07_rb,0.22786e-07_rb,0.32275e-07_rb,0.41504e-07_rb /)\n      kbo(:, 3,53, 1) = (/ &\n        & 0.25013e-10_rb,0.14718e-07_rb,0.26786e-07_rb,0.37657e-07_rb,0.48150e-07_rb /)\n      kbo(:, 4,53, 1) = (/ &\n        & 0.23481e-10_rb,0.16890e-07_rb,0.30875e-07_rb,0.43561e-07_rb,0.55284e-07_rb /)\n      kbo(:, 5,53, 1) = (/ &\n        & 0.22103e-10_rb,0.19405e-07_rb,0.35435e-07_rb,0.50046e-07_rb,0.62824e-07_rb /)\n      kbo(:, 1,54, 1) = (/ &\n        & 0.23262e-10_rb,0.83534e-08_rb,0.15033e-07_rb,0.21142e-07_rb,0.27491e-07_rb /)\n      kbo(:, 2,54, 1) = (/ &\n        & 0.22075e-10_rb,0.97821e-08_rb,0.17791e-07_rb,0.25298e-07_rb,0.32447e-07_rb /)\n      kbo(:, 3,54, 1) = (/ &\n        & 0.20887e-10_rb,0.11541e-07_rb,0.20852e-07_rb,0.29392e-07_rb,0.37643e-07_rb /)\n      kbo(:, 4,54, 1) = (/ &\n        & 0.19629e-10_rb,0.13228e-07_rb,0.24164e-07_rb,0.34330e-07_rb,0.43622e-07_rb /)\n      kbo(:, 5,54, 1) = (/ &\n        & 0.18475e-10_rb,0.15233e-07_rb,0.27779e-07_rb,0.39304e-07_rb,0.49432e-07_rb /)\n      kbo(:, 1,55, 1) = (/ &\n        & 0.19360e-10_rb,0.64888e-08_rb,0.11644e-07_rb,0.16387e-07_rb,0.21340e-07_rb /)\n      kbo(:, 2,55, 1) = (/ &\n        & 0.18372e-10_rb,0.76367e-08_rb,0.13947e-07_rb,0.19672e-07_rb,0.25401e-07_rb /)\n      kbo(:, 3,55, 1) = (/ &\n        & 0.17421e-10_rb,0.90083e-08_rb,0.16275e-07_rb,0.22971e-07_rb,0.29522e-07_rb /)\n      kbo(:, 4,55, 1) = (/ &\n        & 0.16413e-10_rb,0.10402e-07_rb,0.19081e-07_rb,0.26854e-07_rb,0.34233e-07_rb /)\n      kbo(:, 5,55, 1) = (/ &\n        & 0.15417e-10_rb,0.11984e-07_rb,0.21835e-07_rb,0.30856e-07_rb,0.38954e-07_rb /)\n      kbo(:, 1,56, 1) = (/ &\n        & 0.16094e-10_rb,0.50174e-08_rb,0.90283e-08_rb,0.12718e-07_rb,0.16576e-07_rb /)\n      kbo(:, 2,56, 1) = (/ &\n        & 0.15265e-10_rb,0.59747e-08_rb,0.10850e-07_rb,0.15297e-07_rb,0.19783e-07_rb /)\n      kbo(:, 3,56, 1) = (/ &\n        & 0.14515e-10_rb,0.70142e-08_rb,0.12699e-07_rb,0.17960e-07_rb,0.23171e-07_rb /)\n      kbo(:, 4,56, 1) = (/ &\n        & 0.13715e-10_rb,0.81626e-08_rb,0.14940e-07_rb,0.20994e-07_rb,0.26865e-07_rb /)\n      kbo(:, 5,56, 1) = (/ &\n        & 0.12880e-10_rb,0.94054e-08_rb,0.17206e-07_rb,0.24221e-07_rb,0.30739e-07_rb /)\n      kbo(:, 1,57, 1) = (/ &\n        & 0.13368e-10_rb,0.38838e-08_rb,0.69991e-08_rb,0.98372e-08_rb,0.12821e-07_rb /)\n      kbo(:, 2,57, 1) = (/ &\n        & 0.12743e-10_rb,0.46751e-08_rb,0.84243e-08_rb,0.11856e-07_rb,0.15406e-07_rb /)\n      kbo(:, 3,57, 1) = (/ &\n        & 0.12087e-10_rb,0.54642e-08_rb,0.99295e-08_rb,0.14069e-07_rb,0.18144e-07_rb /)\n      kbo(:, 4,57, 1) = (/ &\n        & 0.11442e-10_rb,0.64461e-08_rb,0.11657e-07_rb,0.16407e-07_rb,0.21072e-07_rb /)\n      kbo(:, 5,57, 1) = (/ &\n        & 0.10759e-10_rb,0.73711e-08_rb,0.13478e-07_rb,0.19106e-07_rb,0.24314e-07_rb /)\n      kbo(:, 1,58, 1) = (/ &\n        & 0.11081e-10_rb,0.30148e-08_rb,0.54165e-08_rb,0.76421e-08_rb,0.99496e-08_rb /)\n      kbo(:, 2,58, 1) = (/ &\n        & 0.10598e-10_rb,0.36337e-08_rb,0.65375e-08_rb,0.92041e-08_rb,0.12025e-07_rb /)\n      kbo(:, 3,58, 1) = (/ &\n        & 0.10052e-10_rb,0.42712e-08_rb,0.77841e-08_rb,0.11053e-07_rb,0.14306e-07_rb /)\n      kbo(:, 4,58, 1) = (/ &\n        & 0.95308e-11_rb,0.50429e-08_rb,0.91133e-08_rb,0.12865e-07_rb,0.16554e-07_rb /)\n      kbo(:, 5,58, 1) = (/ &\n        & 0.89795e-11_rb,0.57979e-08_rb,0.10615e-07_rb,0.15051e-07_rb,0.19216e-07_rb /)\n      kbo(:, 1,59, 1) = (/ &\n        & 0.91194e-11_rb,0.24214e-08_rb,0.43496e-08_rb,0.61531e-08_rb,0.80136e-08_rb /)\n      kbo(:, 2,59, 1) = (/ &\n        & 0.87287e-11_rb,0.29232e-08_rb,0.52535e-08_rb,0.73966e-08_rb,0.96830e-08_rb /)\n      kbo(:, 3,59, 1) = (/ &\n        & 0.82765e-11_rb,0.34412e-08_rb,0.62788e-08_rb,0.88992e-08_rb,0.11534e-07_rb /)\n      kbo(:, 4,59, 1) = (/ &\n        & 0.78605e-11_rb,0.40632e-08_rb,0.73454e-08_rb,0.10382e-07_rb,0.13372e-07_rb /)\n      kbo(:, 5,59, 1) = (/ &\n        & 0.74127e-11_rb,0.46801e-08_rb,0.85910e-08_rb,0.12137e-07_rb,0.15530e-07_rb /)\n      kbo(:, 1,13, 2) = (/ &\n        & 0.17576e-05_rb,0.22518e-03_rb,0.36398e-03_rb,0.46505e-03_rb,0.97920e-03_rb /)\n      kbo(:, 2,13, 2) = (/ &\n        & 0.19522e-05_rb,0.25688e-03_rb,0.42724e-03_rb,0.54293e-03_rb,0.11261e-02_rb /)\n      kbo(:, 3,13, 2) = (/ &\n        & 0.21134e-05_rb,0.29382e-03_rb,0.49778e-03_rb,0.63186e-03_rb,0.12961e-02_rb /)\n      kbo(:, 4,13, 2) = (/ &\n        & 0.22680e-05_rb,0.33585e-03_rb,0.57095e-03_rb,0.73149e-03_rb,0.14857e-02_rb /)\n      kbo(:, 5,13, 2) = (/ &\n        & 0.23939e-05_rb,0.38326e-03_rb,0.64688e-03_rb,0.84120e-03_rb,0.16815e-02_rb /)\n      kbo(:, 1,14, 2) = (/ &\n        & 0.13866e-05_rb,0.18816e-03_rb,0.30541e-03_rb,0.39082e-03_rb,0.80614e-03_rb /)\n      kbo(:, 2,14, 2) = (/ &\n        & 0.14825e-05_rb,0.21525e-03_rb,0.35906e-03_rb,0.45772e-03_rb,0.92976e-03_rb /)\n      kbo(:, 3,14, 2) = (/ &\n        & 0.16428e-05_rb,0.24664e-03_rb,0.41891e-03_rb,0.53341e-03_rb,0.10689e-02_rb /)\n      kbo(:, 4,14, 2) = (/ &\n        & 0.17807e-05_rb,0.28218e-03_rb,0.48021e-03_rb,0.61861e-03_rb,0.12236e-02_rb /)\n      kbo(:, 5,14, 2) = (/ &\n        & 0.18685e-05_rb,0.32204e-03_rb,0.54385e-03_rb,0.71223e-03_rb,0.13844e-02_rb /)\n      kbo(:, 1,15, 2) = (/ &\n        & 0.10483e-05_rb,0.15699e-03_rb,0.25571e-03_rb,0.32803e-03_rb,0.65873e-03_rb /)\n      kbo(:, 2,15, 2) = (/ &\n        & 0.11310e-05_rb,0.18016e-03_rb,0.30071e-03_rb,0.38534e-03_rb,0.75916e-03_rb /)\n      kbo(:, 3,15, 2) = (/ &\n        & 0.12330e-05_rb,0.20672e-03_rb,0.35181e-03_rb,0.44940e-03_rb,0.87041e-03_rb /)\n      kbo(:, 4,15, 2) = (/ &\n        & 0.13426e-05_rb,0.23650e-03_rb,0.40292e-03_rb,0.52246e-03_rb,0.99445e-03_rb /)\n      kbo(:, 5,15, 2) = (/ &\n        & 0.14514e-05_rb,0.26979e-03_rb,0.45684e-03_rb,0.60195e-03_rb,0.11173e-02_rb /)\n      kbo(:, 1,16, 2) = (/ &\n        & 0.80663e-06_rb,0.13098e-03_rb,0.21382e-03_rb,0.27539e-03_rb,0.53727e-03_rb /)\n      kbo(:, 2,16, 2) = (/ &\n        & 0.85747e-06_rb,0.15058e-03_rb,0.25201e-03_rb,0.32406e-03_rb,0.61573e-03_rb /)\n      kbo(:, 3,16, 2) = (/ &\n        & 0.92435e-06_rb,0.17283e-03_rb,0.29542e-03_rb,0.37879e-03_rb,0.70140e-03_rb /)\n      kbo(:, 4,16, 2) = (/ &\n        & 0.99747e-06_rb,0.19793e-03_rb,0.33807e-03_rb,0.44076e-03_rb,0.79468e-03_rb /)\n      kbo(:, 5,16, 2) = (/ &\n        & 0.10819e-05_rb,0.22582e-03_rb,0.38354e-03_rb,0.50663e-03_rb,0.88980e-03_rb /)\n      kbo(:, 1,17, 2) = (/ &\n        & 0.61772e-06_rb,0.10941e-03_rb,0.17926e-03_rb,0.23144e-03_rb,0.43554e-03_rb /)\n      kbo(:, 2,17, 2) = (/ &\n        & 0.65718e-06_rb,0.12576e-03_rb,0.21174e-03_rb,0.27275e-03_rb,0.49750e-03_rb /)\n      kbo(:, 3,17, 2) = (/ &\n        & 0.69949e-06_rb,0.14461e-03_rb,0.24852e-03_rb,0.31937e-03_rb,0.56462e-03_rb /)\n      kbo(:, 4,17, 2) = (/ &\n        & 0.75387e-06_rb,0.16580e-03_rb,0.28374e-03_rb,0.37213e-03_rb,0.63507e-03_rb /)\n      kbo(:, 5,17, 2) = (/ &\n        & 0.79715e-06_rb,0.18926e-03_rb,0.32236e-03_rb,0.42588e-03_rb,0.70728e-03_rb /)\n      kbo(:, 1,18, 2) = (/ &\n        & 0.47188e-06_rb,0.91952e-04_rb,0.15100e-03_rb,0.19495e-03_rb,0.35543e-03_rb /)\n      kbo(:, 2,18, 2) = (/ &\n        & 0.50937e-06_rb,0.10513e-03_rb,0.17852e-03_rb,0.22999e-03_rb,0.40250e-03_rb /)\n      kbo(:, 3,18, 2) = (/ &\n        & 0.54206e-06_rb,0.12130e-03_rb,0.20959e-03_rb,0.26979e-03_rb,0.45662e-03_rb /)\n      kbo(:, 4,18, 2) = (/ &\n        & 0.57328e-06_rb,0.13936e-03_rb,0.23815e-03_rb,0.31451e-03_rb,0.51113e-03_rb /)\n      kbo(:, 5,18, 2) = (/ &\n        & 0.61077e-06_rb,0.15916e-03_rb,0.27075e-03_rb,0.35967e-03_rb,0.57076e-03_rb /)\n      kbo(:, 1,19, 2) = (/ &\n        & 0.36005e-06_rb,0.76984e-04_rb,0.12743e-03_rb,0.16422e-03_rb,0.28885e-03_rb /)\n      kbo(:, 2,19, 2) = (/ &\n        & 0.38988e-06_rb,0.88029e-04_rb,0.15067e-03_rb,0.19396e-03_rb,0.32854e-03_rb /)\n      kbo(:, 3,19, 2) = (/ &\n        & 0.41989e-06_rb,0.10172e-03_rb,0.17539e-03_rb,0.22784e-03_rb,0.37045e-03_rb /)\n      kbo(:, 4,19, 2) = (/ &\n        & 0.44092e-06_rb,0.11727e-03_rb,0.20004e-03_rb,0.26592e-03_rb,0.41598e-03_rb /)\n      kbo(:, 5,19, 2) = (/ &\n        & 0.46883e-06_rb,0.13386e-03_rb,0.22769e-03_rb,0.30285e-03_rb,0.46550e-03_rb /)\n      kbo(:, 1,20, 2) = (/ &\n        & 0.27908e-06_rb,0.64450e-04_rb,0.10795e-03_rb,0.13889e-03_rb,0.23878e-03_rb /)\n      kbo(:, 2,20, 2) = (/ &\n        & 0.30934e-06_rb,0.74187e-04_rb,0.12773e-03_rb,0.16417e-03_rb,0.27017e-03_rb /)\n      kbo(:, 3,20, 2) = (/ &\n        & 0.33086e-06_rb,0.85801e-04_rb,0.14782e-03_rb,0.19307e-03_rb,0.30508e-03_rb /)\n      kbo(:, 4,20, 2) = (/ &\n        & 0.35058e-06_rb,0.98861e-04_rb,0.16868e-03_rb,0.22508e-03_rb,0.34249e-03_rb /)\n      kbo(:, 5,20, 2) = (/ &\n        & 0.37069e-06_rb,0.11306e-03_rb,0.19188e-03_rb,0.25601e-03_rb,0.38519e-03_rb /)\n      kbo(:, 1,21, 2) = (/ &\n        & 0.22418e-06_rb,0.54095e-04_rb,0.91414e-04_rb,0.11757e-03_rb,0.19697e-03_rb /)\n      kbo(:, 2,21, 2) = (/ &\n        & 0.24559e-06_rb,0.62567e-04_rb,0.10819e-03_rb,0.13908e-03_rb,0.22284e-03_rb /)\n      kbo(:, 3,21, 2) = (/ &\n        & 0.26169e-06_rb,0.72383e-04_rb,0.12481e-03_rb,0.16368e-03_rb,0.25205e-03_rb /)\n      kbo(:, 4,21, 2) = (/ &\n        & 0.27885e-06_rb,0.83446e-04_rb,0.14258e-03_rb,0.18910e-03_rb,0.28386e-03_rb /)\n      kbo(:, 5,21, 2) = (/ &\n        & 0.29344e-06_rb,0.95540e-04_rb,0.16198e-03_rb,0.21609e-03_rb,0.31947e-03_rb /)\n      kbo(:, 1,22, 2) = (/ &\n        & 0.17941e-06_rb,0.45830e-04_rb,0.78176e-04_rb,0.10061e-03_rb,0.16313e-03_rb /)\n      kbo(:, 2,22, 2) = (/ &\n        & 0.19397e-06_rb,0.53139e-04_rb,0.92556e-04_rb,0.11901e-03_rb,0.18482e-03_rb /)\n      kbo(:, 3,22, 2) = (/ &\n        & 0.20707e-06_rb,0.61593e-04_rb,0.10579e-03_rb,0.14008e-03_rb,0.20965e-03_rb /)\n      kbo(:, 4,22, 2) = (/ &\n        & 0.22071e-06_rb,0.71016e-04_rb,0.12100e-03_rb,0.16128e-03_rb,0.23661e-03_rb /)\n      kbo(:, 5,22, 2) = (/ &\n        & 0.23148e-06_rb,0.81286e-04_rb,0.13795e-03_rb,0.18401e-03_rb,0.26580e-03_rb /)\n      kbo(:, 1,23, 2) = (/ &\n        & 0.14291e-06_rb,0.38825e-04_rb,0.66866e-04_rb,0.86140e-04_rb,0.13511e-03_rb /)\n      kbo(:, 2,23, 2) = (/ &\n        & 0.15179e-06_rb,0.45135e-04_rb,0.78450e-04_rb,0.10194e-03_rb,0.15369e-03_rb /)\n      kbo(:, 3,23, 2) = (/ &\n        & 0.16326e-06_rb,0.52399e-04_rb,0.89919e-04_rb,0.12001e-03_rb,0.17441e-03_rb /)\n      kbo(:, 4,23, 2) = (/ &\n        & 0.17307e-06_rb,0.60440e-04_rb,0.10293e-03_rb,0.13735e-03_rb,0.19668e-03_rb /)\n      kbo(:, 5,23, 2) = (/ &\n        & 0.18137e-06_rb,0.69189e-04_rb,0.11759e-03_rb,0.15651e-03_rb,0.21998e-03_rb /)\n      kbo(:, 1,24, 2) = (/ &\n        & 0.11245e-06_rb,0.32862e-04_rb,0.57166e-04_rb,0.73828e-04_rb,0.11185e-03_rb /)\n      kbo(:, 2,24, 2) = (/ &\n        & 0.11958e-06_rb,0.38281e-04_rb,0.66635e-04_rb,0.87390e-04_rb,0.12740e-03_rb /)\n      kbo(:, 3,24, 2) = (/ &\n        & 0.12702e-06_rb,0.44519e-04_rb,0.76606e-04_rb,0.10190e-03_rb,0.14418e-03_rb /)\n      kbo(:, 4,24, 2) = (/ &\n        & 0.13467e-06_rb,0.51373e-04_rb,0.87622e-04_rb,0.11700e-03_rb,0.16205e-03_rb /)\n      kbo(:, 5,24, 2) = (/ &\n        & 0.14120e-06_rb,0.58874e-04_rb,0.10019e-03_rb,0.13348e-03_rb,0.18188e-03_rb /)\n      kbo(:, 1,25, 2) = (/ &\n        & 0.88242e-07_rb,0.27950e-04_rb,0.49010e-04_rb,0.63434e-04_rb,0.92877e-04_rb /)\n      kbo(:, 2,25, 2) = (/ &\n        & 0.94383e-07_rb,0.32610e-04_rb,0.56690e-04_rb,0.75114e-04_rb,0.10531e-03_rb /)\n      kbo(:, 3,25, 2) = (/ &\n        & 0.99712e-07_rb,0.37929e-04_rb,0.65204e-04_rb,0.87113e-04_rb,0.11931e-03_rb /)\n      kbo(:, 4,25, 2) = (/ &\n        & 0.10473e-06_rb,0.43778e-04_rb,0.74805e-04_rb,0.99950e-04_rb,0.13427e-03_rb /)\n      kbo(:, 5,25, 2) = (/ &\n        & 0.10988e-06_rb,0.50229e-04_rb,0.85598e-04_rb,0.11406e-03_rb,0.15050e-03_rb /)\n      kbo(:, 1,26, 2) = (/ &\n        & 0.69696e-07_rb,0.23895e-04_rb,0.42166e-04_rb,0.54733e-04_rb,0.77146e-04_rb /)\n      kbo(:, 2,26, 2) = (/ &\n        & 0.74390e-07_rb,0.27921e-04_rb,0.48387e-04_rb,0.64817e-04_rb,0.87607e-04_rb /)\n      kbo(:, 3,26, 2) = (/ &\n        & 0.78856e-07_rb,0.32497e-04_rb,0.55692e-04_rb,0.74691e-04_rb,0.99387e-04_rb /)\n      kbo(:, 4,26, 2) = (/ &\n        & 0.83253e-07_rb,0.37491e-04_rb,0.64130e-04_rb,0.85609e-04_rb,0.11193e-03_rb /)\n      kbo(:, 5,26, 2) = (/ &\n        & 0.87675e-07_rb,0.43011e-04_rb,0.73398e-04_rb,0.97828e-04_rb,0.12574e-03_rb /)\n      kbo(:, 1,27, 2) = (/ &\n        & 0.54619e-07_rb,0.20469e-04_rb,0.35869e-04_rb,0.47259e-04_rb,0.64151e-04_rb /)\n      kbo(:, 2,27, 2) = (/ &\n        & 0.58657e-07_rb,0.23925e-04_rb,0.41468e-04_rb,0.55499e-04_rb,0.72911e-04_rb /)\n      kbo(:, 3,27, 2) = (/ &\n        & 0.62532e-07_rb,0.27839e-04_rb,0.47735e-04_rb,0.63985e-04_rb,0.82955e-04_rb /)\n      kbo(:, 4,27, 2) = (/ &\n        & 0.66184e-07_rb,0.32141e-04_rb,0.55001e-04_rb,0.73456e-04_rb,0.93567e-04_rb /)\n      kbo(:, 5,27, 2) = (/ &\n        & 0.69305e-07_rb,0.36605e-04_rb,0.62968e-04_rb,0.83938e-04_rb,0.10517e-03_rb /)\n      kbo(:, 1,28, 2) = (/ &\n        & 0.43348e-07_rb,0.17476e-04_rb,0.30692e-04_rb,0.40803e-04_rb,0.53271e-04_rb /)\n      kbo(:, 2,28, 2) = (/ &\n        & 0.46348e-07_rb,0.20496e-04_rb,0.35498e-04_rb,0.47629e-04_rb,0.60809e-04_rb /)\n      kbo(:, 3,28, 2) = (/ &\n        & 0.49507e-07_rb,0.23857e-04_rb,0.40974e-04_rb,0.54947e-04_rb,0.69222e-04_rb /)\n      kbo(:, 4,28, 2) = (/ &\n        & 0.52419e-07_rb,0.27560e-04_rb,0.47205e-04_rb,0.63044e-04_rb,0.78123e-04_rb /)\n      kbo(:, 5,28, 2) = (/ &\n        & 0.54842e-07_rb,0.31094e-04_rb,0.54028e-04_rb,0.72116e-04_rb,0.87834e-04_rb /)\n      kbo(:, 1,29, 2) = (/ &\n        & 0.34480e-07_rb,0.15027e-04_rb,0.26268e-04_rb,0.35358e-04_rb,0.44711e-04_rb /)\n      kbo(:, 2,29, 2) = (/ &\n        & 0.36985e-07_rb,0.17638e-04_rb,0.30405e-04_rb,0.40938e-04_rb,0.51054e-04_rb /)\n      kbo(:, 3,29, 2) = (/ &\n        & 0.39476e-07_rb,0.20512e-04_rb,0.35237e-04_rb,0.47207e-04_rb,0.58034e-04_rb /)\n      kbo(:, 4,29, 2) = (/ &\n        & 0.41650e-07_rb,0.23694e-04_rb,0.40586e-04_rb,0.54286e-04_rb,0.65708e-04_rb /)\n      kbo(:, 5,29, 2) = (/ &\n        & 0.43693e-07_rb,0.26438e-04_rb,0.46467e-04_rb,0.62035e-04_rb,0.73872e-04_rb /)\n      kbo(:, 1,30, 2) = (/ &\n        & 0.27402e-07_rb,0.12932e-04_rb,0.22585e-04_rb,0.30365e-04_rb,0.37471e-04_rb /)\n      kbo(:, 2,30, 2) = (/ &\n        & 0.29377e-07_rb,0.15183e-04_rb,0.26158e-04_rb,0.35195e-04_rb,0.42867e-04_rb /)\n      kbo(:, 3,30, 2) = (/ &\n        & 0.31353e-07_rb,0.17658e-04_rb,0.30343e-04_rb,0.40606e-04_rb,0.48858e-04_rb /)\n      kbo(:, 4,30, 2) = (/ &\n        & 0.33056e-07_rb,0.20286e-04_rb,0.34924e-04_rb,0.46735e-04_rb,0.55329e-04_rb /)\n      kbo(:, 5,30, 2) = (/ &\n        & 0.34673e-07_rb,0.22451e-04_rb,0.39717e-04_rb,0.53329e-04_rb,0.62151e-04_rb /)\n      kbo(:, 1,31, 2) = (/ &\n        & 0.21716e-07_rb,0.11156e-04_rb,0.19427e-04_rb,0.26169e-04_rb,0.31512e-04_rb /)\n      kbo(:, 2,31, 2) = (/ &\n        & 0.23313e-07_rb,0.13091e-04_rb,0.22568e-04_rb,0.30377e-04_rb,0.36216e-04_rb /)\n      kbo(:, 3,31, 2) = (/ &\n        & 0.24803e-07_rb,0.15221e-04_rb,0.26157e-04_rb,0.35050e-04_rb,0.41256e-04_rb /)\n      kbo(:, 4,31, 2) = (/ &\n        & 0.26260e-07_rb,0.17277e-04_rb,0.30091e-04_rb,0.40288e-04_rb,0.46693e-04_rb /)\n      kbo(:, 5,31, 2) = (/ &\n        & 0.27334e-07_rb,0.19159e-04_rb,0.33773e-04_rb,0.45892e-04_rb,0.52314e-04_rb /)\n      kbo(:, 1,32, 2) = (/ &\n        & 0.17123e-07_rb,0.96453e-05_rb,0.16688e-04_rb,0.22528e-04_rb,0.26648e-04_rb /)\n      kbo(:, 2,32, 2) = (/ &\n        & 0.18489e-07_rb,0.11305e-04_rb,0.19464e-04_rb,0.26137e-04_rb,0.30617e-04_rb /)\n      kbo(:, 3,32, 2) = (/ &\n        & 0.19621e-07_rb,0.13143e-04_rb,0.22554e-04_rb,0.30238e-04_rb,0.34876e-04_rb /)\n      kbo(:, 4,32, 2) = (/ &\n        & 0.20653e-07_rb,0.14698e-04_rb,0.25928e-04_rb,0.34712e-04_rb,0.39398e-04_rb /)\n      kbo(:, 5,32, 2) = (/ &\n        & 0.21500e-07_rb,0.16315e-04_rb,0.28651e-04_rb,0.39302e-04_rb,0.44097e-04_rb /)\n      kbo(:, 1,33, 2) = (/ &\n        & 0.13414e-07_rb,0.83355e-05_rb,0.14409e-04_rb,0.19461e-04_rb,0.22582e-04_rb /)\n      kbo(:, 2,33, 2) = (/ &\n        & 0.14456e-07_rb,0.97647e-05_rb,0.16818e-04_rb,0.22578e-04_rb,0.25923e-04_rb /)\n      kbo(:, 3,33, 2) = (/ &\n        & 0.15416e-07_rb,0.11250e-04_rb,0.19451e-04_rb,0.26119e-04_rb,0.29482e-04_rb /)\n      kbo(:, 4,33, 2) = (/ &\n        & 0.16184e-07_rb,0.12520e-04_rb,0.22064e-04_rb,0.29911e-04_rb,0.33230e-04_rb /)\n      kbo(:, 5,33, 2) = (/ &\n        & 0.16861e-07_rb,0.13810e-04_rb,0.24332e-04_rb,0.33363e-04_rb,0.37135e-04_rb /)\n      kbo(:, 1,34, 2) = (/ &\n        & 0.10575e-07_rb,0.71786e-05_rb,0.12407e-04_rb,0.16719e-04_rb,0.19158e-04_rb /)\n      kbo(:, 2,34, 2) = (/ &\n        & 0.11328e-07_rb,0.84093e-05_rb,0.14457e-04_rb,0.19433e-04_rb,0.21940e-04_rb /)\n      kbo(:, 3,34, 2) = (/ &\n        & 0.12049e-07_rb,0.95860e-05_rb,0.16718e-04_rb,0.22425e-04_rb,0.24932e-04_rb /)\n      kbo(:, 4,34, 2) = (/ &\n        & 0.12689e-07_rb,0.10655e-04_rb,0.18771e-04_rb,0.25647e-04_rb,0.28065e-04_rb /)\n      kbo(:, 5,34, 2) = (/ &\n        & 0.13241e-07_rb,0.11703e-04_rb,0.20628e-04_rb,0.28184e-04_rb,0.31323e-04_rb /)\n      kbo(:, 1,35, 2) = (/ &\n        & 0.82489e-08_rb,0.60850e-05_rb,0.10505e-04_rb,0.14140e-04_rb,0.16004e-04_rb /)\n      kbo(:, 2,35, 2) = (/ &\n        & 0.88532e-08_rb,0.71306e-05_rb,0.12250e-04_rb,0.16463e-04_rb,0.18333e-04_rb /)\n      kbo(:, 3,35, 2) = (/ &\n        & 0.93468e-08_rb,0.80269e-05_rb,0.14158e-04_rb,0.18989e-04_rb,0.20835e-04_rb /)\n      kbo(:, 4,35, 2) = (/ &\n        & 0.98478e-08_rb,0.89450e-05_rb,0.15691e-04_rb,0.21576e-04_rb,0.23428e-04_rb /)\n      kbo(:, 5,35, 2) = (/ &\n        & 0.10332e-07_rb,0.98354e-05_rb,0.17293e-04_rb,0.23618e-04_rb,0.26128e-04_rb /)\n      kbo(:, 1,36, 2) = (/ &\n        & 0.63951e-08_rb,0.50545e-05_rb,0.87378e-05_rb,0.11778e-04_rb,0.13176e-04_rb /)\n      kbo(:, 2,36, 2) = (/ &\n        & 0.68252e-08_rb,0.59348e-05_rb,0.10193e-04_rb,0.13730e-04_rb,0.15104e-04_rb /)\n      kbo(:, 3,36, 2) = (/ &\n        & 0.72445e-08_rb,0.66480e-05_rb,0.11783e-04_rb,0.15832e-04_rb,0.17160e-04_rb /)\n      kbo(:, 4,36, 2) = (/ &\n        & 0.75871e-08_rb,0.73960e-05_rb,0.13005e-04_rb,0.17866e-04_rb,0.19295e-04_rb /)\n      kbo(:, 5,36, 2) = (/ &\n        & 0.79075e-08_rb,0.81558e-05_rb,0.14306e-04_rb,0.19617e-04_rb,0.21532e-04_rb /)\n      kbo(:, 1,37, 2) = (/ &\n        & 0.50574e-08_rb,0.41215e-05_rb,0.71249e-05_rb,0.95923e-05_rb,0.10686e-04_rb /)\n      kbo(:, 2,37, 2) = (/ &\n        & 0.53967e-08_rb,0.48518e-05_rb,0.83286e-05_rb,0.11206e-04_rb,0.12269e-04_rb /)\n      kbo(:, 3,37, 2) = (/ &\n        & 0.57517e-08_rb,0.54411e-05_rb,0.96383e-05_rb,0.12942e-04_rb,0.13958e-04_rb /)\n      kbo(:, 4,37, 2) = (/ &\n        & 0.60273e-08_rb,0.60590e-05_rb,0.10644e-04_rb,0.14619e-04_rb,0.15714e-04_rb /)\n      kbo(:, 5,37, 2) = (/ &\n        & 0.62775e-08_rb,0.66900e-05_rb,0.11723e-04_rb,0.16077e-04_rb,0.17560e-04_rb /)\n      kbo(:, 1,38, 2) = (/ &\n        & 0.39948e-08_rb,0.33535e-05_rb,0.57976e-05_rb,0.77989e-05_rb,0.86548e-05_rb /)\n      kbo(:, 2,38, 2) = (/ &\n        & 0.42642e-08_rb,0.39584e-05_rb,0.67932e-05_rb,0.91290e-05_rb,0.99507e-05_rb /)\n      kbo(:, 3,38, 2) = (/ &\n        & 0.45529e-08_rb,0.44478e-05_rb,0.78746e-05_rb,0.10563e-04_rb,0.11338e-04_rb /)\n      kbo(:, 4,38, 2) = (/ &\n        & 0.47911e-08_rb,0.49592e-05_rb,0.87019e-05_rb,0.11950e-04_rb,0.12783e-04_rb /)\n      kbo(:, 5,38, 2) = (/ &\n        & 0.49959e-08_rb,0.54820e-05_rb,0.95964e-05_rb,0.13155e-04_rb,0.14308e-04_rb /)\n      kbo(:, 1,39, 2) = (/ &\n        & 0.31607e-08_rb,0.27260e-05_rb,0.47143e-05_rb,0.63381e-05_rb,0.70094e-05_rb /)\n      kbo(:, 2,39, 2) = (/ &\n        & 0.33771e-08_rb,0.32263e-05_rb,0.55352e-05_rb,0.74322e-05_rb,0.80695e-05_rb /)\n      kbo(:, 3,39, 2) = (/ &\n        & 0.35907e-08_rb,0.36316e-05_rb,0.64256e-05_rb,0.86133e-05_rb,0.92019e-05_rb /)\n      kbo(:, 4,39, 2) = (/ &\n        & 0.37920e-08_rb,0.40555e-05_rb,0.71128e-05_rb,0.97677e-05_rb,0.10392e-04_rb /)\n      kbo(:, 5,39, 2) = (/ &\n        & 0.39687e-08_rb,0.44882e-05_rb,0.78499e-05_rb,0.10753e-04_rb,0.11647e-04_rb /)\n      kbo(:, 1,40, 2) = (/ &\n        & 0.25137e-08_rb,0.21782e-05_rb,0.37700e-05_rb,0.50636e-05_rb,0.55872e-05_rb /)\n      kbo(:, 2,40, 2) = (/ &\n        & 0.26953e-08_rb,0.25872e-05_rb,0.44411e-05_rb,0.59538e-05_rb,0.64693e-05_rb /)\n      kbo(:, 3,40, 2) = (/ &\n        & 0.28738e-08_rb,0.29415e-05_rb,0.51697e-05_rb,0.69217e-05_rb,0.73806e-05_rb /)\n      kbo(:, 4,40, 2) = (/ &\n        & 0.30365e-08_rb,0.32887e-05_rb,0.57574e-05_rb,0.79115e-05_rb,0.83547e-05_rb /)\n      kbo(:, 5,40, 2) = (/ &\n        & 0.31827e-08_rb,0.36391e-05_rb,0.63730e-05_rb,0.87114e-05_rb,0.93854e-05_rb /)\n      kbo(:, 1,41, 2) = (/ &\n        & 0.20049e-08_rb,0.17350e-05_rb,0.30089e-05_rb,0.40342e-05_rb,0.44437e-05_rb /)\n      kbo(:, 2,41, 2) = (/ &\n        & 0.21522e-08_rb,0.20685e-05_rb,0.35532e-05_rb,0.47542e-05_rb,0.51577e-05_rb /)\n      kbo(:, 3,41, 2) = (/ &\n        & 0.22978e-08_rb,0.23716e-05_rb,0.41490e-05_rb,0.55459e-05_rb,0.59029e-05_rb /)\n      kbo(:, 4,41, 2) = (/ &\n        & 0.24277e-08_rb,0.26608e-05_rb,0.46585e-05_rb,0.63928e-05_rb,0.67015e-05_rb /)\n      kbo(:, 5,41, 2) = (/ &\n        & 0.25592e-08_rb,0.29434e-05_rb,0.51614e-05_rb,0.70376e-05_rb,0.75472e-05_rb /)\n      kbo(:, 1,42, 2) = (/ &\n        & 0.16007e-08_rb,0.13793e-05_rb,0.23939e-05_rb,0.32203e-05_rb,0.35347e-05_rb /)\n      kbo(:, 2,42, 2) = (/ &\n        & 0.17182e-08_rb,0.16509e-05_rb,0.28388e-05_rb,0.37950e-05_rb,0.41069e-05_rb /)\n      kbo(:, 3,42, 2) = (/ &\n        & 0.18364e-08_rb,0.19058e-05_rb,0.33250e-05_rb,0.44386e-05_rb,0.47169e-05_rb /)\n      kbo(:, 4,42, 2) = (/ &\n        & 0.19459e-08_rb,0.21436e-05_rb,0.37676e-05_rb,0.51389e-05_rb,0.53710e-05_rb /)\n      kbo(:, 5,42, 2) = (/ &\n        & 0.20555e-08_rb,0.23781e-05_rb,0.41722e-05_rb,0.56915e-05_rb,0.60613e-05_rb /)\n      kbo(:, 1,43, 2) = (/ &\n        & 0.12763e-08_rb,0.10855e-05_rb,0.18842e-05_rb,0.25355e-05_rb,0.27894e-05_rb /)\n      kbo(:, 2,43, 2) = (/ &\n        & 0.13693e-08_rb,0.13038e-05_rb,0.22434e-05_rb,0.29991e-05_rb,0.32452e-05_rb /)\n      kbo(:, 3,43, 2) = (/ &\n        & 0.14669e-08_rb,0.15227e-05_rb,0.26394e-05_rb,0.35195e-05_rb,0.37403e-05_rb /)\n      kbo(:, 4,43, 2) = (/ &\n        & 0.15621e-08_rb,0.17145e-05_rb,0.30188e-05_rb,0.40881e-05_rb,0.42757e-05_rb /)\n      kbo(:, 5,43, 2) = (/ &\n        & 0.16467e-08_rb,0.19093e-05_rb,0.33481e-05_rb,0.45768e-05_rb,0.48357e-05_rb /)\n      kbo(:, 1,44, 2) = (/ &\n        & 0.10164e-08_rb,0.84908e-06_rb,0.14741e-05_rb,0.19864e-05_rb,0.21744e-05_rb /)\n      kbo(:, 2,44, 2) = (/ &\n        & 0.10926e-08_rb,0.10232e-05_rb,0.17642e-05_rb,0.23536e-05_rb,0.25562e-05_rb /)\n      kbo(:, 3,44, 2) = (/ &\n        & 0.11717e-08_rb,0.12156e-05_rb,0.20836e-05_rb,0.27750e-05_rb,0.29547e-05_rb /)\n      kbo(:, 4,44, 2) = (/ &\n        & 0.12502e-08_rb,0.13671e-05_rb,0.24149e-05_rb,0.32374e-05_rb,0.33856e-05_rb /)\n      kbo(:, 5,44, 2) = (/ &\n        & 0.13204e-08_rb,0.15290e-05_rb,0.26801e-05_rb,0.36631e-05_rb,0.38430e-05_rb /)\n      kbo(:, 1,45, 2) = (/ &\n        & 0.80967e-09_rb,0.66247e-06_rb,0.11525e-05_rb,0.15557e-05_rb,0.16911e-05_rb /)\n      kbo(:, 2,45, 2) = (/ &\n        & 0.87091e-09_rb,0.80114e-06_rb,0.13838e-05_rb,0.18457e-05_rb,0.20071e-05_rb /)\n      kbo(:, 3,45, 2) = (/ &\n        & 0.93471e-09_rb,0.96063e-06_rb,0.16414e-05_rb,0.21862e-05_rb,0.23357e-05_rb /)\n      kbo(:, 4,45, 2) = (/ &\n        & 0.99996e-09_rb,0.10898e-05_rb,0.19287e-05_rb,0.25587e-05_rb,0.26765e-05_rb /)\n      kbo(:, 5,45, 2) = (/ &\n        & 0.10594e-08_rb,0.12255e-05_rb,0.21437e-05_rb,0.29239e-05_rb,0.30491e-05_rb /)\n      kbo(:, 1,46, 2) = (/ &\n        & 0.64438e-09_rb,0.51408e-06_rb,0.89692e-06_rb,0.12176e-05_rb,0.13094e-05_rb /)\n      kbo(:, 2,46, 2) = (/ &\n        & 0.69338e-09_rb,0.62335e-06_rb,0.10783e-05_rb,0.14408e-05_rb,0.15697e-05_rb /)\n      kbo(:, 3,46, 2) = (/ &\n        & 0.74249e-09_rb,0.75197e-06_rb,0.12859e-05_rb,0.17116e-05_rb,0.18286e-05_rb /)\n      kbo(:, 4,46, 2) = (/ &\n        & 0.79710e-09_rb,0.86785e-06_rb,0.15182e-05_rb,0.20117e-05_rb,0.21072e-05_rb /)\n      kbo(:, 5,46, 2) = (/ &\n        & 0.84966e-09_rb,0.97923e-06_rb,0.17156e-05_rb,0.23354e-05_rb,0.24096e-05_rb /)\n      kbo(:, 1,47, 2) = (/ &\n        & 0.51236e-09_rb,0.39483e-06_rb,0.69100e-06_rb,0.94871e-06_rb,0.10050e-05_rb /)\n      kbo(:, 2,47, 2) = (/ &\n        & 0.55075e-09_rb,0.48075e-06_rb,0.83326e-06_rb,0.11171e-05_rb,0.12169e-05_rb /)\n      kbo(:, 3,47, 2) = (/ &\n        & 0.59153e-09_rb,0.58279e-06_rb,0.99922e-06_rb,0.13307e-05_rb,0.14227e-05_rb /)\n      kbo(:, 4,47, 2) = (/ &\n        & 0.63485e-09_rb,0.68347e-06_rb,0.11845e-05_rb,0.15696e-05_rb,0.16474e-05_rb /)\n      kbo(:, 5,47, 2) = (/ &\n        & 0.67833e-09_rb,0.77359e-06_rb,0.13593e-05_rb,0.18329e-05_rb,0.18933e-05_rb /)\n      kbo(:, 1,48, 2) = (/ &\n        & 0.40749e-09_rb,0.30162e-06_rb,0.53408e-06_rb,0.72777e-06_rb,0.76768e-06_rb /)\n      kbo(:, 2,48, 2) = (/ &\n        & 0.43682e-09_rb,0.36975e-06_rb,0.64201e-06_rb,0.86174e-06_rb,0.93334e-06_rb /)\n      kbo(:, 3,48, 2) = (/ &\n        & 0.46981e-09_rb,0.45015e-06_rb,0.77460e-06_rb,0.10306e-05_rb,0.11092e-05_rb /)\n      kbo(:, 4,48, 2) = (/ &\n        & 0.50302e-09_rb,0.53912e-06_rb,0.92171e-06_rb,0.12225e-05_rb,0.12874e-05_rb /)\n      kbo(:, 5,48, 2) = (/ &\n        & 0.53999e-09_rb,0.61013e-06_rb,0.10790e-05_rb,0.14334e-05_rb,0.14828e-05_rb /)\n      kbo(:, 1,49, 2) = (/ &\n        & 0.32288e-09_rb,0.23115e-06_rb,0.41625e-06_rb,0.55318e-06_rb,0.58476e-06_rb /)\n      kbo(:, 2,49, 2) = (/ &\n        & 0.34731e-09_rb,0.28355e-06_rb,0.49493e-06_rb,0.66850e-06_rb,0.71600e-06_rb /)\n      kbo(:, 3,49, 2) = (/ &\n        & 0.37310e-09_rb,0.34682e-06_rb,0.59820e-06_rb,0.79617e-06_rb,0.85985e-06_rb /)\n      kbo(:, 4,49, 2) = (/ &\n        & 0.39975e-09_rb,0.42034e-06_rb,0.71527e-06_rb,0.95046e-06_rb,0.10041e-05_rb /)\n      kbo(:, 5,49, 2) = (/ &\n        & 0.42970e-09_rb,0.48341e-06_rb,0.84829e-06_rb,0.11191e-05_rb,0.11582e-05_rb /)\n      kbo(:, 1,50, 2) = (/ &\n        & 0.25646e-09_rb,0.17743e-06_rb,0.32423e-06_rb,0.42175e-06_rb,0.44754e-06_rb /)\n      kbo(:, 2,50, 2) = (/ &\n        & 0.27669e-09_rb,0.21856e-06_rb,0.38220e-06_rb,0.52102e-06_rb,0.55141e-06_rb /)\n      kbo(:, 3,50, 2) = (/ &\n        & 0.29654e-09_rb,0.26808e-06_rb,0.46375e-06_rb,0.61921e-06_rb,0.67025e-06_rb /)\n      kbo(:, 4,50, 2) = (/ &\n        & 0.31872e-09_rb,0.32662e-06_rb,0.55687e-06_rb,0.73985e-06_rb,0.78291e-06_rb /)\n      kbo(:, 5,50, 2) = (/ &\n        & 0.34198e-09_rb,0.38136e-06_rb,0.66385e-06_rb,0.87591e-06_rb,0.90771e-06_rb /)\n      kbo(:, 1,51, 2) = (/ &\n        & 0.20472e-09_rb,0.13694e-06_rb,0.24726e-06_rb,0.32216e-06_rb,0.34229e-06_rb /)\n      kbo(:, 2,51, 2) = (/ &\n        & 0.22054e-09_rb,0.16842e-06_rb,0.29646e-06_rb,0.40635e-06_rb,0.42402e-06_rb /)\n      kbo(:, 3,51, 2) = (/ &\n        & 0.23653e-09_rb,0.20731e-06_rb,0.35913e-06_rb,0.48027e-06_rb,0.51714e-06_rb /)\n      kbo(:, 4,51, 2) = (/ &\n        & 0.25402e-09_rb,0.25379e-06_rb,0.43377e-06_rb,0.57689e-06_rb,0.61228e-06_rb /)\n      kbo(:, 5,51, 2) = (/ &\n        & 0.27233e-09_rb,0.30202e-06_rb,0.51940e-06_rb,0.68626e-06_rb,0.71146e-06_rb /)\n      kbo(:, 1,52, 2) = (/ &\n        & 0.16428e-09_rb,0.10687e-06_rb,0.18803e-06_rb,0.24517e-06_rb,0.26090e-06_rb /)\n      kbo(:, 2,52, 2) = (/ &\n        & 0.17520e-09_rb,0.12978e-06_rb,0.23025e-06_rb,0.31106e-06_rb,0.32512e-06_rb /)\n      kbo(:, 3,52, 2) = (/ &\n        & 0.18865e-09_rb,0.15994e-06_rb,0.27726e-06_rb,0.37261e-06_rb,0.39888e-06_rb /)\n      kbo(:, 4,52, 2) = (/ &\n        & 0.20265e-09_rb,0.19670e-06_rb,0.33708e-06_rb,0.44845e-06_rb,0.47779e-06_rb /)\n      kbo(:, 5,52, 2) = (/ &\n        & 0.21711e-09_rb,0.23739e-06_rb,0.40528e-06_rb,0.53668e-06_rb,0.55828e-06_rb /)\n      kbo(:, 1,53, 2) = (/ &\n        & 0.13206e-09_rb,0.82677e-07_rb,0.14284e-06_rb,0.18640e-06_rb,0.19898e-06_rb /)\n      kbo(:, 2,53, 2) = (/ &\n        & 0.13938e-09_rb,0.99597e-07_rb,0.18095e-06_rb,0.23725e-06_rb,0.24911e-06_rb /)\n      kbo(:, 3,53, 2) = (/ &\n        & 0.15056e-09_rb,0.12309e-06_rb,0.21494e-06_rb,0.29026e-06_rb,0.30720e-06_rb /)\n      kbo(:, 4,53, 2) = (/ &\n        & 0.16136e-09_rb,0.15205e-06_rb,0.26147e-06_rb,0.34774e-06_rb,0.37331e-06_rb /)\n      kbo(:, 5,53, 2) = (/ &\n        & 0.17318e-09_rb,0.18547e-06_rb,0.31566e-06_rb,0.41857e-06_rb,0.43649e-06_rb /)\n      kbo(:, 1,54, 2) = (/ &\n        & 0.10628e-09_rb,0.63529e-07_rb,0.10938e-06_rb,0.14285e-06_rb,0.15281e-06_rb /)\n      kbo(:, 2,54, 2) = (/ &\n        & 0.11181e-09_rb,0.77068e-07_rb,0.14036e-06_rb,0.18201e-06_rb,0.19163e-06_rb /)\n      kbo(:, 3,54, 2) = (/ &\n        & 0.11992e-09_rb,0.95387e-07_rb,0.16692e-06_rb,0.22878e-06_rb,0.23824e-06_rb /)\n      kbo(:, 4,54, 2) = (/ &\n        & 0.12900e-09_rb,0.11809e-06_rb,0.20406e-06_rb,0.27163e-06_rb,0.29078e-06_rb /)\n      kbo(:, 5,54, 2) = (/ &\n        & 0.13828e-09_rb,0.14510e-06_rb,0.24678e-06_rb,0.32753e-06_rb,0.34217e-06_rb /)\n      kbo(:, 1,55, 2) = (/ &\n        & 0.85664e-10_rb,0.48444e-07_rb,0.83932e-07_rb,0.10950e-06_rb,0.11785e-06_rb /)\n      kbo(:, 2,55, 2) = (/ &\n        & 0.89999e-10_rb,0.59885e-07_rb,0.10776e-06_rb,0.14023e-06_rb,0.14763e-06_rb /)\n      kbo(:, 3,55, 2) = (/ &\n        & 0.95836e-10_rb,0.73941e-07_rb,0.13023e-06_rb,0.17876e-06_rb,0.18426e-06_rb /)\n      kbo(:, 4,55, 2) = (/ &\n        & 0.10323e-09_rb,0.91791e-07_rb,0.15882e-06_rb,0.21202e-06_rb,0.22611e-06_rb /)\n      kbo(:, 5,55, 2) = (/ &\n        & 0.11081e-09_rb,0.11336e-06_rb,0.19316e-06_rb,0.25647e-06_rb,0.26918e-06_rb /)\n      kbo(:, 1,56, 2) = (/ &\n        & 0.69093e-10_rb,0.36832e-07_rb,0.64123e-07_rb,0.84030e-07_rb,0.90974e-07_rb /)\n      kbo(:, 2,56, 2) = (/ &\n        & 0.72433e-10_rb,0.47084e-07_rb,0.82613e-07_rb,0.10758e-06_rb,0.11346e-06_rb /)\n      kbo(:, 3,56, 2) = (/ &\n        & 0.76616e-10_rb,0.57388e-07_rb,0.10182e-06_rb,0.13768e-06_rb,0.14224e-06_rb /)\n      kbo(:, 4,56, 2) = (/ &\n        & 0.82709e-10_rb,0.71294e-07_rb,0.12355e-06_rb,0.16530e-06_rb,0.17549e-06_rb /)\n      kbo(:, 5,56, 2) = (/ &\n        & 0.88636e-10_rb,0.88445e-07_rb,0.15094e-06_rb,0.20067e-06_rb,0.21118e-06_rb /)\n      kbo(:, 1,57, 2) = (/ &\n        & 0.55980e-10_rb,0.28018e-07_rb,0.48867e-07_rb,0.64857e-07_rb,0.70055e-07_rb /)\n      kbo(:, 2,57, 2) = (/ &\n        & 0.58397e-10_rb,0.36620e-07_rb,0.63232e-07_rb,0.82428e-07_rb,0.87457e-07_rb /)\n      kbo(:, 3,57, 2) = (/ &\n        & 0.61509e-10_rb,0.44446e-07_rb,0.80512e-07_rb,0.10580e-06_rb,0.10988e-06_rb /)\n      kbo(:, 4,57, 2) = (/ &\n        & 0.66015e-10_rb,0.55222e-07_rb,0.96401e-07_rb,0.12935e-06_rb,0.13614e-06_rb /)\n      kbo(:, 5,57, 2) = (/ &\n        & 0.70976e-10_rb,0.68821e-07_rb,0.11780e-06_rb,0.15632e-06_rb,0.16586e-06_rb /)\n      kbo(:, 1,58, 2) = (/ &\n        & 0.45722e-10_rb,0.21506e-07_rb,0.37326e-07_rb,0.50333e-07_rb,0.54855e-07_rb /)\n      kbo(:, 2,58, 2) = (/ &\n        & 0.47090e-10_rb,0.28249e-07_rb,0.48612e-07_rb,0.63442e-07_rb,0.67550e-07_rb /)\n      kbo(:, 3,58, 2) = (/ &\n        & 0.49550e-10_rb,0.34430e-07_rb,0.62769e-07_rb,0.81509e-07_rb,0.84917e-07_rb /)\n      kbo(:, 4,58, 2) = (/ &\n        & 0.52817e-10_rb,0.42958e-07_rb,0.75173e-07_rb,0.10204e-06_rb,0.10603e-06_rb /)\n      kbo(:, 5,58, 2) = (/ &\n        & 0.56864e-10_rb,0.53637e-07_rb,0.92044e-07_rb,0.12229e-06_rb,0.13011e-06_rb /)\n      kbo(:, 1,59, 2) = (/ &\n        & 0.37496e-10_rb,0.17255e-07_rb,0.29967e-07_rb,0.40394e-07_rb,0.44059e-07_rb /)\n      kbo(:, 2,59, 2) = (/ &\n        & 0.38367e-10_rb,0.22782e-07_rb,0.39144e-07_rb,0.51019e-07_rb,0.54404e-07_rb /)\n      kbo(:, 3,59, 2) = (/ &\n        & 0.40346e-10_rb,0.27842e-07_rb,0.50692e-07_rb,0.65716e-07_rb,0.68440e-07_rb /)\n      kbo(:, 4,59, 2) = (/ &\n        & 0.42908e-10_rb,0.34761e-07_rb,0.60846e-07_rb,0.82834e-07_rb,0.85713e-07_rb /)\n      kbo(:, 5,59, 2) = (/ &\n        & 0.46213e-10_rb,0.43467e-07_rb,0.74626e-07_rb,0.99144e-07_rb,0.10518e-06_rb /)\n      kbo(:, 1,13, 3) = (/ &\n        & 0.91180e-05_rb,0.12754e-02_rb,0.19900e-02_rb,0.24440e-02_rb,0.40576e-02_rb /)\n      kbo(:, 2,13, 3) = (/ &\n        & 0.95037e-05_rb,0.14150e-02_rb,0.22145e-02_rb,0.28094e-02_rb,0.44375e-02_rb /)\n      kbo(:, 3,13, 3) = (/ &\n        & 0.99757e-05_rb,0.15626e-02_rb,0.24320e-02_rb,0.31375e-02_rb,0.48097e-02_rb /)\n      kbo(:, 4,13, 3) = (/ &\n        & 0.10508e-04_rb,0.16997e-02_rb,0.26926e-02_rb,0.34483e-02_rb,0.51554e-02_rb /)\n      kbo(:, 5,13, 3) = (/ &\n        & 0.11033e-04_rb,0.18373e-02_rb,0.29684e-02_rb,0.37861e-02_rb,0.54896e-02_rb /)\n      kbo(:, 1,14, 3) = (/ &\n        & 0.73209e-05_rb,0.10727e-02_rb,0.16787e-02_rb,0.20881e-02_rb,0.33041e-02_rb /)\n      kbo(:, 2,14, 3) = (/ &\n        & 0.76795e-05_rb,0.11937e-02_rb,0.18683e-02_rb,0.23616e-02_rb,0.36246e-02_rb /)\n      kbo(:, 3,14, 3) = (/ &\n        & 0.80417e-05_rb,0.13177e-02_rb,0.20567e-02_rb,0.26465e-02_rb,0.39438e-02_rb /)\n      kbo(:, 4,14, 3) = (/ &\n        & 0.84296e-05_rb,0.14317e-02_rb,0.22826e-02_rb,0.29022e-02_rb,0.42368e-02_rb /)\n      kbo(:, 5,14, 3) = (/ &\n        & 0.88950e-05_rb,0.15495e-02_rb,0.25084e-02_rb,0.31901e-02_rb,0.44992e-02_rb /)\n      kbo(:, 1,15, 3) = (/ &\n        & 0.58275e-05_rb,0.89895e-03_rb,0.14161e-02_rb,0.17760e-02_rb,0.26508e-02_rb /)\n      kbo(:, 2,15, 3) = (/ &\n        & 0.61166e-05_rb,0.10025e-02_rb,0.15706e-02_rb,0.19893e-02_rb,0.29219e-02_rb /)\n      kbo(:, 3,15, 3) = (/ &\n        & 0.64340e-05_rb,0.11055e-02_rb,0.17375e-02_rb,0.22237e-02_rb,0.31718e-02_rb /)\n      kbo(:, 4,15, 3) = (/ &\n        & 0.67501e-05_rb,0.12028e-02_rb,0.19291e-02_rb,0.24433e-02_rb,0.34015e-02_rb /)\n      kbo(:, 5,15, 3) = (/ &\n        & 0.70843e-05_rb,0.13034e-02_rb,0.21152e-02_rb,0.26892e-02_rb,0.36350e-02_rb /)\n      kbo(:, 1,16, 3) = (/ &\n        & 0.45776e-05_rb,0.75233e-03_rb,0.11906e-02_rb,0.14957e-02_rb,0.21076e-02_rb /)\n      kbo(:, 2,16, 3) = (/ &\n        & 0.48262e-05_rb,0.84051e-03_rb,0.13192e-02_rb,0.16780e-02_rb,0.23267e-02_rb /)\n      kbo(:, 3,16, 3) = (/ &\n        & 0.51024e-05_rb,0.92603e-03_rb,0.14653e-02_rb,0.18671e-02_rb,0.25242e-02_rb /)\n      kbo(:, 4,16, 3) = (/ &\n        & 0.53856e-05_rb,0.10093e-02_rb,0.16288e-02_rb,0.20599e-02_rb,0.27134e-02_rb /)\n      kbo(:, 5,16, 3) = (/ &\n        & 0.56625e-05_rb,0.10939e-02_rb,0.17834e-02_rb,0.22693e-02_rb,0.29092e-02_rb /)\n      kbo(:, 1,17, 3) = (/ &\n        & 0.35978e-05_rb,0.63055e-03_rb,0.10001e-02_rb,0.12618e-02_rb,0.16759e-02_rb /)\n      kbo(:, 2,17, 3) = (/ &\n        & 0.38090e-05_rb,0.70519e-03_rb,0.11080e-02_rb,0.14142e-02_rb,0.18563e-02_rb /)\n      kbo(:, 3,17, 3) = (/ &\n        & 0.40365e-05_rb,0.77593e-03_rb,0.12352e-02_rb,0.15692e-02_rb,0.20215e-02_rb /)\n      kbo(:, 4,17, 3) = (/ &\n        & 0.42692e-05_rb,0.84648e-03_rb,0.13753e-02_rb,0.17361e-02_rb,0.21882e-02_rb /)\n      kbo(:, 5,17, 3) = (/ &\n        & 0.45325e-05_rb,0.91815e-03_rb,0.15031e-02_rb,0.19156e-02_rb,0.23511e-02_rb /)\n      kbo(:, 1,18, 3) = (/ &\n        & 0.28577e-05_rb,0.52923e-03_rb,0.84060e-03_rb,0.10641e-02_rb,0.13524e-02_rb /)\n      kbo(:, 2,18, 3) = (/ &\n        & 0.30189e-05_rb,0.59275e-03_rb,0.93264e-03_rb,0.11925e-02_rb,0.15051e-02_rb /)\n      kbo(:, 3,18, 3) = (/ &\n        & 0.31971e-05_rb,0.65140e-03_rb,0.10422e-02_rb,0.13174e-02_rb,0.16413e-02_rb /)\n      kbo(:, 4,18, 3) = (/ &\n        & 0.33981e-05_rb,0.71144e-03_rb,0.11594e-02_rb,0.14613e-02_rb,0.17851e-02_rb /)\n      kbo(:, 5,18, 3) = (/ &\n        & 0.36127e-05_rb,0.77200e-03_rb,0.12685e-02_rb,0.16164e-02_rb,0.19166e-02_rb /)\n      kbo(:, 1,19, 3) = (/ &\n        & 0.22832e-05_rb,0.44489e-03_rb,0.70523e-03_rb,0.89150e-03_rb,0.11054e-02_rb /)\n      kbo(:, 2,19, 3) = (/ &\n        & 0.24005e-05_rb,0.49860e-03_rb,0.78596e-03_rb,0.10033e-02_rb,0.12310e-02_rb /)\n      kbo(:, 3,19, 3) = (/ &\n        & 0.25465e-05_rb,0.54746e-03_rb,0.88096e-03_rb,0.11084e-02_rb,0.13479e-02_rb /)\n      kbo(:, 4,19, 3) = (/ &\n        & 0.27167e-05_rb,0.59760e-03_rb,0.97685e-03_rb,0.12305e-02_rb,0.14668e-02_rb /)\n      kbo(:, 5,19, 3) = (/ &\n        & 0.28927e-05_rb,0.64844e-03_rb,0.10695e-02_rb,0.13632e-02_rb,0.15746e-02_rb /)\n      kbo(:, 1,20, 3) = (/ &\n        & 0.18426e-05_rb,0.37567e-03_rb,0.59276e-03_rb,0.75002e-03_rb,0.91159e-03_rb /)\n      kbo(:, 2,20, 3) = (/ &\n        & 0.19324e-05_rb,0.42049e-03_rb,0.66376e-03_rb,0.84304e-03_rb,0.10175e-02_rb /)\n      kbo(:, 3,20, 3) = (/ &\n        & 0.20563e-05_rb,0.46104e-03_rb,0.74561e-03_rb,0.93568e-03_rb,0.11153e-02_rb /)\n      kbo(:, 4,20, 3) = (/ &\n        & 0.21952e-05_rb,0.50302e-03_rb,0.82491e-03_rb,0.10410e-02_rb,0.12131e-02_rb /)\n      kbo(:, 5,20, 3) = (/ &\n        & 0.23429e-05_rb,0.54570e-03_rb,0.90324e-03_rb,0.11512e-02_rb,0.13002e-02_rb /)\n      kbo(:, 1,21, 3) = (/ &\n        & 0.14914e-05_rb,0.31727e-03_rb,0.49879e-03_rb,0.63141e-03_rb,0.75480e-03_rb /)\n      kbo(:, 2,21, 3) = (/ &\n        & 0.15711e-05_rb,0.35367e-03_rb,0.56105e-03_rb,0.70859e-03_rb,0.84278e-03_rb /)\n      kbo(:, 3,21, 3) = (/ &\n        & 0.16720e-05_rb,0.38776e-03_rb,0.63122e-03_rb,0.79066e-03_rb,0.92492e-03_rb /)\n      kbo(:, 4,21, 3) = (/ &\n        & 0.17830e-05_rb,0.42327e-03_rb,0.69655e-03_rb,0.88311e-03_rb,0.10041e-02_rb /)\n      kbo(:, 5,21, 3) = (/ &\n        & 0.19065e-05_rb,0.45905e-03_rb,0.76238e-03_rb,0.97320e-03_rb,0.10767e-02_rb /)\n      kbo(:, 1,22, 3) = (/ &\n        & 0.12007e-05_rb,0.26976e-03_rb,0.42316e-03_rb,0.53750e-03_rb,0.62747e-03_rb /)\n      kbo(:, 2,22, 3) = (/ &\n        & 0.12744e-05_rb,0.29880e-03_rb,0.47840e-03_rb,0.60094e-03_rb,0.70134e-03_rb /)\n      kbo(:, 3,22, 3) = (/ &\n        & 0.13572e-05_rb,0.32813e-03_rb,0.53672e-03_rb,0.67341e-03_rb,0.76916e-03_rb /)\n      kbo(:, 4,22, 3) = (/ &\n        & 0.14459e-05_rb,0.35761e-03_rb,0.59154e-03_rb,0.75421e-03_rb,0.83371e-03_rb /)\n      kbo(:, 5,22, 3) = (/ &\n        & 0.15538e-05_rb,0.38792e-03_rb,0.64663e-03_rb,0.82877e-03_rb,0.89529e-03_rb /)\n      kbo(:, 1,23, 3) = (/ &\n        & 0.96861e-06_rb,0.22918e-03_rb,0.36015e-03_rb,0.45719e-03_rb,0.52404e-03_rb /)\n      kbo(:, 2,23, 3) = (/ &\n        & 0.10336e-05_rb,0.25321e-03_rb,0.40834e-03_rb,0.51161e-03_rb,0.58351e-03_rb /)\n      kbo(:, 3,23, 3) = (/ &\n        & 0.10985e-05_rb,0.27767e-03_rb,0.45571e-03_rb,0.57459e-03_rb,0.63985e-03_rb /)\n      kbo(:, 4,23, 3) = (/ &\n        & 0.11768e-05_rb,0.30252e-03_rb,0.50195e-03_rb,0.64190e-03_rb,0.69303e-03_rb /)\n      kbo(:, 5,23, 3) = (/ &\n        & 0.12615e-05_rb,0.32794e-03_rb,0.54831e-03_rb,0.70579e-03_rb,0.74540e-03_rb /)\n      kbo(:, 1,24, 3) = (/ &\n        & 0.77560e-06_rb,0.19437e-03_rb,0.30748e-03_rb,0.38828e-03_rb,0.43529e-03_rb /)\n      kbo(:, 2,24, 3) = (/ &\n        & 0.82580e-06_rb,0.21438e-03_rb,0.34835e-03_rb,0.43617e-03_rb,0.48373e-03_rb /)\n      kbo(:, 3,24, 3) = (/ &\n        & 0.88200e-06_rb,0.23492e-03_rb,0.38680e-03_rb,0.49169e-03_rb,0.53189e-03_rb /)\n      kbo(:, 4,24, 3) = (/ &\n        & 0.94947e-06_rb,0.25573e-03_rb,0.42635e-03_rb,0.54641e-03_rb,0.57637e-03_rb /)\n      kbo(:, 5,24, 3) = (/ &\n        & 0.10182e-05_rb,0.27745e-03_rb,0.46607e-03_rb,0.60046e-03_rb,0.61998e-03_rb /)\n      kbo(:, 1,25, 3) = (/ &\n        & 0.61963e-06_rb,0.16454e-03_rb,0.26284e-03_rb,0.33016e-03_rb,0.36284e-03_rb /)\n      kbo(:, 2,25, 3) = (/ &\n        & 0.66146e-06_rb,0.18162e-03_rb,0.29714e-03_rb,0.37315e-03_rb,0.40370e-03_rb /)\n      kbo(:, 3,25, 3) = (/ &\n        & 0.71111e-06_rb,0.19882e-03_rb,0.32942e-03_rb,0.42130e-03_rb,0.44382e-03_rb /)\n      kbo(:, 4,25, 3) = (/ &\n        & 0.76573e-06_rb,0.21663e-03_rb,0.36228e-03_rb,0.46640e-03_rb,0.48052e-03_rb /)\n      kbo(:, 5,25, 3) = (/ &\n        & 0.82100e-06_rb,0.23503e-03_rb,0.39627e-03_rb,0.51132e-03_rb,0.51776e-03_rb /)\n      kbo(:, 1,26, 3) = (/ &\n        & 0.49718e-06_rb,0.13982e-03_rb,0.22523e-03_rb,0.28275e-03_rb,0.30558e-03_rb /)\n      kbo(:, 2,26, 3) = (/ &\n        & 0.53365e-06_rb,0.15431e-03_rb,0.25368e-03_rb,0.32044e-03_rb,0.33895e-03_rb /)\n      kbo(:, 3,26, 3) = (/ &\n        & 0.57705e-06_rb,0.16884e-03_rb,0.28082e-03_rb,0.36019e-03_rb,0.37173e-03_rb /)\n      kbo(:, 4,26, 3) = (/ &\n        & 0.62061e-06_rb,0.18393e-03_rb,0.30865e-03_rb,0.39866e-03_rb,0.40243e-03_rb /)\n      kbo(:, 5,26, 3) = (/ &\n        & 0.66427e-06_rb,0.19968e-03_rb,0.33757e-03_rb,0.43663e-03_rb,0.43309e-03_rb /)\n      kbo(:, 1,27, 3) = (/ &\n        & 0.39961e-06_rb,0.11889e-03_rb,0.19361e-03_rb,0.24270e-03_rb,0.25693e-03_rb /)\n      kbo(:, 2,27, 3) = (/ &\n        & 0.43136e-06_rb,0.13100e-03_rb,0.21632e-03_rb,0.27591e-03_rb,0.28463e-03_rb /)\n      kbo(:, 3,27, 3) = (/ &\n        & 0.46490e-06_rb,0.14333e-03_rb,0.23966e-03_rb,0.30849e-03_rb,0.31106e-03_rb /)\n      kbo(:, 4,27, 3) = (/ &\n        & 0.50009e-06_rb,0.15630e-03_rb,0.26346e-03_rb,0.34083e-03_rb,0.33713e-03_rb /)\n      kbo(:, 5,27, 3) = (/ &\n        & 0.53808e-06_rb,0.16999e-03_rb,0.28768e-03_rb,0.37323e-03_rb,0.36279e-03_rb /)\n      kbo(:, 1,28, 3) = (/ &\n        & 0.31986e-06_rb,0.10106e-03_rb,0.16585e-03_rb,0.20891e-03_rb,0.21558e-03_rb /)\n      kbo(:, 2,28, 3) = (/ &\n        & 0.34540e-06_rb,0.11119e-03_rb,0.18500e-03_rb,0.23760e-03_rb,0.23854e-03_rb /)\n      kbo(:, 3,28, 3) = (/ &\n        & 0.37226e-06_rb,0.12183e-03_rb,0.20456e-03_rb,0.26419e-03_rb,0.26053e-03_rb /)\n      kbo(:, 4,28, 3) = (/ &\n        & 0.40317e-06_rb,0.13290e-03_rb,0.22487e-03_rb,0.29156e-03_rb,0.28262e-03_rb /)\n      kbo(:, 5,28, 3) = (/ &\n        & 0.43271e-06_rb,0.14482e-03_rb,0.24541e-03_rb,0.31934e-03_rb,0.30419e-03_rb /)\n      kbo(:, 1,29, 3) = (/ &\n        & 0.25677e-06_rb,0.86060e-04_rb,0.14206e-03_rb,0.18023e-03_rb,0.18141e-03_rb /)\n      kbo(:, 2,29, 3) = (/ &\n        & 0.27736e-06_rb,0.94677e-04_rb,0.15841e-03_rb,0.20378e-03_rb,0.20088e-03_rb /)\n      kbo(:, 3,29, 3) = (/ &\n        & 0.30104e-06_rb,0.10372e-03_rb,0.17515e-03_rb,0.22663e-03_rb,0.21921e-03_rb /)\n      kbo(:, 4,29, 3) = (/ &\n        & 0.32584e-06_rb,0.11340e-03_rb,0.19232e-03_rb,0.24953e-03_rb,0.23789e-03_rb /)\n      kbo(:, 5,29, 3) = (/ &\n        & 0.34891e-06_rb,0.12368e-03_rb,0.20976e-03_rb,0.27364e-03_rb,0.25570e-03_rb /)\n      kbo(:, 1,30, 3) = (/ &\n        & 0.20556e-06_rb,0.73274e-04_rb,0.12170e-03_rb,0.15588e-03_rb,0.15312e-03_rb /)\n      kbo(:, 2,30, 3) = (/ &\n        & 0.22376e-06_rb,0.80651e-04_rb,0.13568e-03_rb,0.17524e-03_rb,0.16948e-03_rb /)\n      kbo(:, 3,30, 3) = (/ &\n        & 0.24313e-06_rb,0.88481e-04_rb,0.14992e-03_rb,0.19447e-03_rb,0.18477e-03_rb /)\n      kbo(:, 4,30, 3) = (/ &\n        & 0.26233e-06_rb,0.96824e-04_rb,0.16458e-03_rb,0.21409e-03_rb,0.20027e-03_rb /)\n      kbo(:, 5,30, 3) = (/ &\n        & 0.28249e-06_rb,0.10580e-03_rb,0.17987e-03_rb,0.23435e-03_rb,0.21532e-03_rb /)\n      kbo(:, 1,31, 3) = (/ &\n        & 0.16553e-06_rb,0.62536e-04_rb,0.10457e-03_rb,0.13443e-03_rb,0.12968e-03_rb /)\n      kbo(:, 2,31, 3) = (/ &\n        & 0.18078e-06_rb,0.68863e-04_rb,0.11643e-03_rb,0.15060e-03_rb,0.14304e-03_rb /)\n      kbo(:, 3,31, 3) = (/ &\n        & 0.19619e-06_rb,0.75670e-04_rb,0.12864e-03_rb,0.16681e-03_rb,0.15615e-03_rb /)\n      kbo(:, 4,31, 3) = (/ &\n        & 0.21158e-06_rb,0.82899e-04_rb,0.14114e-03_rb,0.18385e-03_rb,0.16911e-03_rb /)\n      kbo(:, 5,31, 3) = (/ &\n        & 0.22915e-06_rb,0.90629e-04_rb,0.15456e-03_rb,0.20099e-03_rb,0.18146e-03_rb /)\n      kbo(:, 1,32, 3) = (/ &\n        & 0.13380e-06_rb,0.53407e-04_rb,0.89930e-04_rb,0.11591e-03_rb,0.11005e-03_rb /)\n      kbo(:, 2,32, 3) = (/ &\n        & 0.14604e-06_rb,0.58887e-04_rb,0.10001e-03_rb,0.12963e-03_rb,0.12107e-03_rb /)\n      kbo(:, 3,32, 3) = (/ &\n        & 0.15848e-06_rb,0.64790e-04_rb,0.11040e-03_rb,0.14349e-03_rb,0.13230e-03_rb /)\n      kbo(:, 4,32, 3) = (/ &\n        & 0.17190e-06_rb,0.71169e-04_rb,0.12125e-03_rb,0.15792e-03_rb,0.14297e-03_rb /)\n      kbo(:, 5,32, 3) = (/ &\n        & 0.18587e-06_rb,0.77792e-04_rb,0.13292e-03_rb,0.17265e-03_rb,0.15308e-03_rb /)\n      kbo(:, 1,33, 3) = (/ &\n        & 0.10830e-06_rb,0.45686e-04_rb,0.77339e-04_rb,0.99867e-04_rb,0.93562e-04_rb /)\n      kbo(:, 2,33, 3) = (/ &\n        & 0.11765e-06_rb,0.50526e-04_rb,0.85959e-04_rb,0.11153e-03_rb,0.10269e-03_rb /)\n      kbo(:, 3,33, 3) = (/ &\n        & 0.12824e-06_rb,0.55627e-04_rb,0.94900e-04_rb,0.12354e-03_rb,0.11205e-03_rb /)\n      kbo(:, 4,33, 3) = (/ &\n        & 0.13958e-06_rb,0.61158e-04_rb,0.10440e-03_rb,0.13573e-03_rb,0.12099e-03_rb /)\n      kbo(:, 5,33, 3) = (/ &\n        & 0.15078e-06_rb,0.66909e-04_rb,0.11431e-03_rb,0.14861e-03_rb,0.12918e-03_rb /)\n      kbo(:, 1,34, 3) = (/ &\n        & 0.87537e-07_rb,0.39073e-04_rb,0.66330e-04_rb,0.85860e-04_rb,0.79296e-04_rb /)\n      kbo(:, 2,34, 3) = (/ &\n        & 0.95270e-07_rb,0.43282e-04_rb,0.73743e-04_rb,0.95733e-04_rb,0.87082e-04_rb /)\n      kbo(:, 3,34, 3) = (/ &\n        & 0.10423e-06_rb,0.47701e-04_rb,0.81447e-04_rb,0.10609e-03_rb,0.94857e-04_rb /)\n      kbo(:, 4,34, 3) = (/ &\n        & 0.11348e-06_rb,0.52484e-04_rb,0.89624e-04_rb,0.11638e-03_rb,0.10211e-03_rb /)\n      kbo(:, 5,34, 3) = (/ &\n        & 0.12289e-06_rb,0.57431e-04_rb,0.98122e-04_rb,0.12760e-03_rb,0.10866e-03_rb /)\n      kbo(:, 1,35, 3) = (/ &\n        & 0.69891e-07_rb,0.33129e-04_rb,0.56323e-04_rb,0.73036e-04_rb,0.66568e-04_rb /)\n      kbo(:, 2,35, 3) = (/ &\n        & 0.76465e-07_rb,0.36724e-04_rb,0.62627e-04_rb,0.81520e-04_rb,0.73176e-04_rb /)\n      kbo(:, 3,35, 3) = (/ &\n        & 0.83833e-07_rb,0.40619e-04_rb,0.69293e-04_rb,0.90161e-04_rb,0.79548e-04_rb /)\n      kbo(:, 4,35, 3) = (/ &\n        & 0.91436e-07_rb,0.44671e-04_rb,0.76362e-04_rb,0.99075e-04_rb,0.85497e-04_rb /)\n      kbo(:, 5,35, 3) = (/ &\n        & 0.99263e-07_rb,0.48886e-04_rb,0.83550e-04_rb,0.10849e-03_rb,0.90720e-04_rb /)\n      kbo(:, 1,36, 3) = (/ &\n        & 0.55080e-07_rb,0.27796e-04_rb,0.47261e-04_rb,0.61299e-04_rb,0.55237e-04_rb /)\n      kbo(:, 2,36, 3) = (/ &\n        & 0.60562e-07_rb,0.30850e-04_rb,0.52635e-04_rb,0.68515e-04_rb,0.60794e-04_rb /)\n      kbo(:, 3,36, 3) = (/ &\n        & 0.66440e-07_rb,0.34200e-04_rb,0.58298e-04_rb,0.75847e-04_rb,0.66097e-04_rb /)\n      kbo(:, 4,36, 3) = (/ &\n        & 0.72913e-07_rb,0.37650e-04_rb,0.64310e-04_rb,0.83530e-04_rb,0.71032e-04_rb /)\n      kbo(:, 5,36, 3) = (/ &\n        & 0.79545e-07_rb,0.41216e-04_rb,0.70397e-04_rb,0.91304e-04_rb,0.75193e-04_rb /)\n      kbo(:, 1,37, 3) = (/ &\n        & 0.43644e-07_rb,0.22997e-04_rb,0.39088e-04_rb,0.50714e-04_rb,0.45374e-04_rb /)\n      kbo(:, 2,37, 3) = (/ &\n        & 0.48182e-07_rb,0.25585e-04_rb,0.43661e-04_rb,0.56813e-04_rb,0.50057e-04_rb /)\n      kbo(:, 3,37, 3) = (/ &\n        & 0.53067e-07_rb,0.28429e-04_rb,0.48465e-04_rb,0.63020e-04_rb,0.54490e-04_rb /)\n      kbo(:, 4,37, 3) = (/ &\n        & 0.58349e-07_rb,0.31365e-04_rb,0.53603e-04_rb,0.69516e-04_rb,0.58585e-04_rb /)\n      kbo(:, 5,37, 3) = (/ &\n        & 0.63727e-07_rb,0.34398e-04_rb,0.58710e-04_rb,0.76032e-04_rb,0.62046e-04_rb /)\n      kbo(:, 1,38, 3) = (/ &\n        & 0.34661e-07_rb,0.19003e-04_rb,0.32295e-04_rb,0.41898e-04_rb,0.37207e-04_rb /)\n      kbo(:, 2,38, 3) = (/ &\n        & 0.38414e-07_rb,0.21200e-04_rb,0.36170e-04_rb,0.47045e-04_rb,0.41150e-04_rb /)\n      kbo(:, 3,38, 3) = (/ &\n        & 0.42378e-07_rb,0.23605e-04_rb,0.40247e-04_rb,0.52306e-04_rb,0.44872e-04_rb /)\n      kbo(:, 4,38, 3) = (/ &\n        & 0.46598e-07_rb,0.26110e-04_rb,0.44620e-04_rb,0.57800e-04_rb,0.48293e-04_rb /)\n      kbo(:, 5,38, 3) = (/ &\n        & 0.50995e-07_rb,0.28683e-04_rb,0.48935e-04_rb,0.63250e-04_rb,0.51155e-04_rb /)\n      kbo(:, 1,39, 3) = (/ &\n        & 0.27545e-07_rb,0.15700e-04_rb,0.26661e-04_rb,0.34603e-04_rb,0.30487e-04_rb /)\n      kbo(:, 2,39, 3) = (/ &\n        & 0.30553e-07_rb,0.17568e-04_rb,0.29948e-04_rb,0.38935e-04_rb,0.33813e-04_rb /)\n      kbo(:, 3,39, 3) = (/ &\n        & 0.33772e-07_rb,0.19601e-04_rb,0.33411e-04_rb,0.43403e-04_rb,0.36922e-04_rb /)\n      kbo(:, 4,39, 3) = (/ &\n        & 0.37164e-07_rb,0.21726e-04_rb,0.37113e-04_rb,0.48030e-04_rb,0.39771e-04_rb /)\n      kbo(:, 5,39, 3) = (/ &\n        & 0.40795e-07_rb,0.23901e-04_rb,0.40765e-04_rb,0.52607e-04_rb,0.42152e-04_rb /)\n      kbo(:, 1,40, 3) = (/ &\n        & 0.21852e-07_rb,0.12819e-04_rb,0.21757e-04_rb,0.28221e-04_rb,0.24745e-04_rb /)\n      kbo(:, 2,40, 3) = (/ &\n        & 0.24207e-07_rb,0.14395e-04_rb,0.24527e-04_rb,0.31867e-04_rb,0.27502e-04_rb /)\n      kbo(:, 3,40, 3) = (/ &\n        & 0.26806e-07_rb,0.16092e-04_rb,0.27462e-04_rb,0.35646e-04_rb,0.30145e-04_rb /)\n      kbo(:, 4,40, 3) = (/ &\n        & 0.29612e-07_rb,0.17894e-04_rb,0.30572e-04_rb,0.39527e-04_rb,0.32543e-04_rb /)\n      kbo(:, 5,40, 3) = (/ &\n        & 0.32577e-07_rb,0.19746e-04_rb,0.33672e-04_rb,0.43399e-04_rb,0.34556e-04_rb /)\n      kbo(:, 1,41, 3) = (/ &\n        & 0.17336e-07_rb,0.10441e-04_rb,0.17695e-04_rb,0.22954e-04_rb,0.20042e-04_rb /)\n      kbo(:, 2,41, 3) = (/ &\n        & 0.19187e-07_rb,0.11771e-04_rb,0.20025e-04_rb,0.26029e-04_rb,0.22346e-04_rb /)\n      kbo(:, 3,41, 3) = (/ &\n        & 0.21311e-07_rb,0.13190e-04_rb,0.22516e-04_rb,0.29201e-04_rb,0.24577e-04_rb /)\n      kbo(:, 4,41, 3) = (/ &\n        & 0.23597e-07_rb,0.14712e-04_rb,0.25122e-04_rb,0.32466e-04_rb,0.26584e-04_rb /)\n      kbo(:, 5,41, 3) = (/ &\n        & 0.25958e-07_rb,0.16280e-04_rb,0.27744e-04_rb,0.35762e-04_rb,0.28295e-04_rb /)\n      kbo(:, 1,42, 3) = (/ &\n        & 0.13752e-07_rb,0.84970e-05_rb,0.14379e-04_rb,0.18640e-04_rb,0.16205e-04_rb /)\n      kbo(:, 2,42, 3) = (/ &\n        & 0.15240e-07_rb,0.96082e-05_rb,0.16325e-04_rb,0.21225e-04_rb,0.18124e-04_rb /)\n      kbo(:, 3,42, 3) = (/ &\n        & 0.16924e-07_rb,0.10802e-04_rb,0.18430e-04_rb,0.23896e-04_rb,0.20024e-04_rb /)\n      kbo(:, 4,42, 3) = (/ &\n        & 0.18767e-07_rb,0.12087e-04_rb,0.20609e-04_rb,0.26651e-04_rb,0.21698e-04_rb /)\n      kbo(:, 5,42, 3) = (/ &\n        & 0.20666e-07_rb,0.13409e-04_rb,0.22837e-04_rb,0.29427e-04_rb,0.23153e-04_rb /)\n      kbo(:, 1,43, 3) = (/ &\n        & 0.10827e-07_rb,0.68624e-05_rb,0.11586e-04_rb,0.14999e-04_rb,0.12975e-04_rb /)\n      kbo(:, 2,43, 3) = (/ &\n        & 0.12030e-07_rb,0.77847e-05_rb,0.13205e-04_rb,0.17164e-04_rb,0.14605e-04_rb /)\n      kbo(:, 3,43, 3) = (/ &\n        & 0.13352e-07_rb,0.87779e-05_rb,0.14974e-04_rb,0.19410e-04_rb,0.16231e-04_rb /)\n      kbo(:, 4,43, 3) = (/ &\n        & 0.14829e-07_rb,0.98620e-05_rb,0.16795e-04_rb,0.21751e-04_rb,0.17634e-04_rb /)\n      kbo(:, 5,43, 3) = (/ &\n        & 0.16396e-07_rb,0.10975e-04_rb,0.18682e-04_rb,0.24066e-04_rb,0.18879e-04_rb /)\n      kbo(:, 1,44, 3) = (/ &\n        & 0.85731e-08_rb,0.55132e-05_rb,0.92862e-05_rb,0.12000e-04_rb,0.10347e-04_rb /)\n      kbo(:, 2,44, 3) = (/ &\n        & 0.95033e-08_rb,0.62816e-05_rb,0.10629e-04_rb,0.13817e-04_rb,0.11712e-04_rb /)\n      kbo(:, 3,44, 3) = (/ &\n        & 0.10537e-07_rb,0.70964e-05_rb,0.12108e-04_rb,0.15700e-04_rb,0.13095e-04_rb /)\n      kbo(:, 4,44, 3) = (/ &\n        & 0.11722e-07_rb,0.80120e-05_rb,0.13621e-04_rb,0.17679e-04_rb,0.14296e-04_rb /)\n      kbo(:, 5,44, 3) = (/ &\n        & 0.12991e-07_rb,0.89457e-05_rb,0.15220e-04_rb,0.19614e-04_rb,0.15350e-04_rb /)\n      kbo(:, 1,45, 3) = (/ &\n        & 0.67515e-08_rb,0.44212e-05_rb,0.74244e-05_rb,0.95776e-05_rb,0.82429e-05_rb /)\n      kbo(:, 2,45, 3) = (/ &\n        & 0.74999e-08_rb,0.50603e-05_rb,0.85360e-05_rb,0.11095e-04_rb,0.93791e-05_rb /)\n      kbo(:, 3,45, 3) = (/ &\n        & 0.83182e-08_rb,0.57411e-05_rb,0.97686e-05_rb,0.12667e-04_rb,0.10528e-04_rb /)\n      kbo(:, 4,45, 3) = (/ &\n        & 0.92526e-08_rb,0.64942e-05_rb,0.11028e-04_rb,0.14328e-04_rb,0.11566e-04_rb /)\n      kbo(:, 5,45, 3) = (/ &\n        & 0.10269e-07_rb,0.72769e-05_rb,0.12375e-04_rb,0.15964e-04_rb,0.12472e-04_rb /)\n      kbo(:, 1,46, 3) = (/ &\n        & 0.53031e-08_rb,0.35301e-05_rb,0.59050e-05_rb,0.75965e-05_rb,0.65452e-05_rb /)\n      kbo(:, 2,46, 3) = (/ &\n        & 0.58907e-08_rb,0.40561e-05_rb,0.68233e-05_rb,0.88621e-05_rb,0.74771e-05_rb /)\n      kbo(:, 3,46, 3) = (/ &\n        & 0.65422e-08_rb,0.46270e-05_rb,0.78393e-05_rb,0.10169e-04_rb,0.84370e-05_rb /)\n      kbo(:, 4,46, 3) = (/ &\n        & 0.72669e-08_rb,0.52433e-05_rb,0.89061e-05_rb,0.11563e-04_rb,0.93268e-05_rb /)\n      kbo(:, 5,46, 3) = (/ &\n        & 0.80880e-08_rb,0.58967e-05_rb,0.10016e-04_rb,0.12930e-04_rb,0.10106e-04_rb /)\n      kbo(:, 1,47, 3) = (/ &\n        & 0.41459e-08_rb,0.27965e-05_rb,0.46529e-05_rb,0.59648e-05_rb,0.51552e-05_rb /)\n      kbo(:, 2,47, 3) = (/ &\n        & 0.46324e-08_rb,0.32253e-05_rb,0.54100e-05_rb,0.70094e-05_rb,0.59110e-05_rb /)\n      kbo(:, 3,47, 3) = (/ &\n        & 0.51433e-08_rb,0.37014e-05_rb,0.62395e-05_rb,0.80976e-05_rb,0.67100e-05_rb /)\n      kbo(:, 4,47, 3) = (/ &\n        & 0.57045e-08_rb,0.42091e-05_rb,0.71381e-05_rb,0.92537e-05_rb,0.74896e-05_rb /)\n      kbo(:, 5,47, 3) = (/ &\n        & 0.63526e-08_rb,0.47541e-05_rb,0.80573e-05_rb,0.10428e-04_rb,0.81540e-05_rb /)\n      kbo(:, 1,48, 3) = (/ &\n        & 0.32549e-08_rb,0.22089e-05_rb,0.36571e-05_rb,0.46663e-05_rb,0.40387e-05_rb /)\n      kbo(:, 2,48, 3) = (/ &\n        & 0.36192e-08_rb,0.25581e-05_rb,0.42752e-05_rb,0.55265e-05_rb,0.46582e-05_rb /)\n      kbo(:, 3,48, 3) = (/ &\n        & 0.40215e-08_rb,0.29515e-05_rb,0.49553e-05_rb,0.64327e-05_rb,0.53236e-05_rb /)\n      kbo(:, 4,48, 3) = (/ &\n        & 0.44736e-08_rb,0.33690e-05_rb,0.57015e-05_rb,0.73859e-05_rb,0.59960e-05_rb /)\n      kbo(:, 5,48, 3) = (/ &\n        & 0.49760e-08_rb,0.38276e-05_rb,0.64596e-05_rb,0.83844e-05_rb,0.65647e-05_rb /)\n      kbo(:, 1,49, 3) = (/ &\n        & 0.25432e-08_rb,0.17390e-05_rb,0.28607e-05_rb,0.36438e-05_rb,0.31425e-05_rb /)\n      kbo(:, 2,49, 3) = (/ &\n        & 0.28364e-08_rb,0.20219e-05_rb,0.33698e-05_rb,0.43412e-05_rb,0.36654e-05_rb /)\n      kbo(:, 3,49, 3) = (/ &\n        & 0.31601e-08_rb,0.23472e-05_rb,0.39232e-05_rb,0.50964e-05_rb,0.42142e-05_rb /)\n      kbo(:, 4,49, 3) = (/ &\n        & 0.35101e-08_rb,0.26948e-05_rb,0.45429e-05_rb,0.58797e-05_rb,0.47715e-05_rb /)\n      kbo(:, 5,49, 3) = (/ &\n        & 0.38989e-08_rb,0.30718e-05_rb,0.51731e-05_rb,0.67190e-05_rb,0.52720e-05_rb /)\n      kbo(:, 1,50, 3) = (/ &\n        & 0.20093e-08_rb,0.13704e-05_rb,0.22373e-05_rb,0.28375e-05_rb,0.24550e-05_rb /)\n      kbo(:, 2,50, 3) = (/ &\n        & 0.22270e-08_rb,0.16020e-05_rb,0.26626e-05_rb,0.34144e-05_rb,0.28963e-05_rb /)\n      kbo(:, 3,50, 3) = (/ &\n        & 0.24797e-08_rb,0.18686e-05_rb,0.31131e-05_rb,0.40348e-05_rb,0.33398e-05_rb /)\n      kbo(:, 4,50, 3) = (/ &\n        & 0.27614e-08_rb,0.21593e-05_rb,0.36199e-05_rb,0.46856e-05_rb,0.38019e-05_rb /)\n      kbo(:, 5,50, 3) = (/ &\n        & 0.30674e-08_rb,0.24699e-05_rb,0.41517e-05_rb,0.53844e-05_rb,0.42322e-05_rb /)\n      kbo(:, 1,51, 3) = (/ &\n        & 0.15907e-08_rb,0.10803e-05_rb,0.17518e-05_rb,0.22064e-05_rb,0.19254e-05_rb /)\n      kbo(:, 2,51, 3) = (/ &\n        & 0.17509e-08_rb,0.12691e-05_rb,0.21000e-05_rb,0.26794e-05_rb,0.22832e-05_rb /)\n      kbo(:, 3,51, 3) = (/ &\n        & 0.19509e-08_rb,0.14861e-05_rb,0.24726e-05_rb,0.31957e-05_rb,0.26418e-05_rb /)\n      kbo(:, 4,51, 3) = (/ &\n        & 0.21703e-08_rb,0.17284e-05_rb,0.28838e-05_rb,0.37325e-05_rb,0.30257e-05_rb /)\n      kbo(:, 5,51, 3) = (/ &\n        & 0.24124e-08_rb,0.19844e-05_rb,0.33305e-05_rb,0.43128e-05_rb,0.34015e-05_rb /)\n      kbo(:, 1,52, 3) = (/ &\n        & 0.12564e-08_rb,0.84669e-06_rb,0.13717e-05_rb,0.17147e-05_rb,0.14947e-05_rb /)\n      kbo(:, 2,52, 3) = (/ &\n        & 0.13794e-08_rb,0.10024e-05_rb,0.16523e-05_rb,0.20993e-05_rb,0.17870e-05_rb /)\n      kbo(:, 3,52, 3) = (/ &\n        & 0.15320e-08_rb,0.11790e-05_rb,0.19577e-05_rb,0.25220e-05_rb,0.20845e-05_rb /)\n      kbo(:, 4,52, 3) = (/ &\n        & 0.17130e-08_rb,0.13791e-05_rb,0.22952e-05_rb,0.29677e-05_rb,0.24040e-05_rb /)\n      kbo(:, 5,52, 3) = (/ &\n        & 0.19041e-08_rb,0.15914e-05_rb,0.26635e-05_rb,0.34439e-05_rb,0.27247e-05_rb /)\n      kbo(:, 1,53, 3) = (/ &\n        & 0.99523e-09_rb,0.66219e-06_rb,0.10632e-05_rb,0.13341e-05_rb,0.11550e-05_rb /)\n      kbo(:, 2,53, 3) = (/ &\n        & 0.10903e-08_rb,0.79022e-06_rb,0.12914e-05_rb,0.16401e-05_rb,0.13929e-05_rb /)\n      kbo(:, 3,53, 3) = (/ &\n        & 0.12082e-08_rb,0.93266e-06_rb,0.15445e-05_rb,0.19841e-05_rb,0.16452e-05_rb /)\n      kbo(:, 4,53, 3) = (/ &\n        & 0.13437e-08_rb,0.10969e-05_rb,0.18212e-05_rb,0.23517e-05_rb,0.19029e-05_rb /)\n      kbo(:, 5,53, 3) = (/ &\n        & 0.14972e-08_rb,0.12734e-05_rb,0.21276e-05_rb,0.27431e-05_rb,0.21722e-05_rb /)\n      kbo(:, 1,54, 3) = (/ &\n        & 0.78782e-09_rb,0.51993e-06_rb,0.82752e-06_rb,0.10421e-05_rb,0.88632e-06_rb /)\n      kbo(:, 2,54, 3) = (/ &\n        & 0.86642e-09_rb,0.62440e-06_rb,0.10138e-05_rb,0.12820e-05_rb,0.10958e-05_rb /)\n      kbo(:, 3,54, 3) = (/ &\n        & 0.95141e-09_rb,0.74051e-06_rb,0.12221e-05_rb,0.15626e-05_rb,0.13014e-05_rb /)\n      kbo(:, 4,54, 3) = (/ &\n        & 0.10622e-08_rb,0.87438e-06_rb,0.14481e-05_rb,0.18675e-05_rb,0.15138e-05_rb /)\n      kbo(:, 5,54, 3) = (/ &\n        & 0.11829e-08_rb,0.10217e-05_rb,0.17025e-05_rb,0.21900e-05_rb,0.17349e-05_rb /)\n      kbo(:, 1,55, 3) = (/ &\n        & 0.62734e-09_rb,0.40844e-06_rb,0.64675e-06_rb,0.81168e-06_rb,0.68015e-06_rb /)\n      kbo(:, 2,55, 3) = (/ &\n        & 0.68670e-09_rb,0.49437e-06_rb,0.79822e-06_rb,0.10031e-05_rb,0.85955e-06_rb /)\n      kbo(:, 3,55, 3) = (/ &\n        & 0.75551e-09_rb,0.58813e-06_rb,0.96640e-06_rb,0.12305e-05_rb,0.10290e-05_rb /)\n      kbo(:, 4,55, 3) = (/ &\n        & 0.83896e-09_rb,0.69762e-06_rb,0.11529e-05_rb,0.14845e-05_rb,0.12025e-05_rb /)\n      kbo(:, 5,55, 3) = (/ &\n        & 0.93727e-09_rb,0.81992e-06_rb,0.13618e-05_rb,0.17489e-05_rb,0.13856e-05_rb /)\n      kbo(:, 1,56, 3) = (/ &\n        & 0.50214e-09_rb,0.32028e-06_rb,0.50524e-06_rb,0.63147e-06_rb,0.51903e-06_rb /)\n      kbo(:, 2,56, 3) = (/ &\n        & 0.54775e-09_rb,0.38841e-06_rb,0.62589e-06_rb,0.78445e-06_rb,0.67099e-06_rb /)\n      kbo(:, 3,56, 3) = (/ &\n        & 0.59971e-09_rb,0.46602e-06_rb,0.76356e-06_rb,0.96978e-06_rb,0.80912e-06_rb /)\n      kbo(:, 4,56, 3) = (/ &\n        & 0.66466e-09_rb,0.55509e-06_rb,0.91533e-06_rb,0.11766e-05_rb,0.95284e-06_rb /)\n      kbo(:, 5,56, 3) = (/ &\n        & 0.73931e-09_rb,0.65625e-06_rb,0.10864e-05_rb,0.13946e-05_rb,0.11055e-05_rb /)\n      kbo(:, 1,57, 3) = (/ &\n        & 0.40171e-09_rb,0.25009e-06_rb,0.39211e-06_rb,0.49250e-06_rb,0.39332e-06_rb /)\n      kbo(:, 2,57, 3) = (/ &\n        & 0.43379e-09_rb,0.30473e-06_rb,0.48932e-06_rb,0.61342e-06_rb,0.52076e-06_rb /)\n      kbo(:, 3,57, 3) = (/ &\n        & 0.47729e-09_rb,0.36874e-06_rb,0.59978e-06_rb,0.76246e-06_rb,0.63556e-06_rb /)\n      kbo(:, 4,57, 3) = (/ &\n        & 0.52454e-09_rb,0.44075e-06_rb,0.72488e-06_rb,0.93079e-06_rb,0.75448e-06_rb /)\n      kbo(:, 5,57, 3) = (/ &\n        & 0.58546e-09_rb,0.52389e-06_rb,0.86565e-06_rb,0.11107e-05_rb,0.87858e-06_rb /)\n      kbo(:, 1,58, 3) = (/ &\n        & 0.32222e-09_rb,0.19536e-06_rb,0.30484e-06_rb,0.38123e-06_rb,0.29798e-06_rb /)\n      kbo(:, 2,58, 3) = (/ &\n        & 0.34550e-09_rb,0.24003e-06_rb,0.38206e-06_rb,0.48033e-06_rb,0.40193e-06_rb /)\n      kbo(:, 3,58, 3) = (/ &\n        & 0.37930e-09_rb,0.29179e-06_rb,0.47226e-06_rb,0.59938e-06_rb,0.50056e-06_rb /)\n      kbo(:, 4,58, 3) = (/ &\n        & 0.41675e-09_rb,0.35035e-06_rb,0.57500e-06_rb,0.73642e-06_rb,0.59836e-06_rb /)\n      kbo(:, 5,58, 3) = (/ &\n        & 0.46320e-09_rb,0.41854e-06_rb,0.69041e-06_rb,0.88548e-06_rb,0.70003e-06_rb /)\n      kbo(:, 1,59, 3) = (/ &\n        & 0.26166e-09_rb,0.15868e-06_rb,0.24697e-06_rb,0.30892e-06_rb,0.23964e-06_rb /)\n      kbo(:, 2,59, 3) = (/ &\n        & 0.28095e-09_rb,0.19552e-06_rb,0.31068e-06_rb,0.39037e-06_rb,0.32469e-06_rb /)\n      kbo(:, 3,59, 3) = (/ &\n        & 0.30730e-09_rb,0.23856e-06_rb,0.38554e-06_rb,0.48902e-06_rb,0.40738e-06_rb /)\n      kbo(:, 4,59, 3) = (/ &\n        & 0.33781e-09_rb,0.28749e-06_rb,0.47157e-06_rb,0.60286e-06_rb,0.48803e-06_rb /)\n      kbo(:, 5,59, 3) = (/ &\n        & 0.37526e-09_rb,0.34439e-06_rb,0.56789e-06_rb,0.72742e-06_rb,0.57238e-06_rb /)\n      kbo(:, 1,13, 4) = (/ &\n        & 0.49038e-04_rb,0.50781e-02_rb,0.78254e-02_rb,0.96484e-02_rb,0.10614e-01_rb /)\n      kbo(:, 2,13, 4) = (/ &\n        & 0.54225e-04_rb,0.54905e-02_rb,0.85710e-02_rb,0.10460e-01_rb,0.11206e-01_rb /)\n      kbo(:, 3,13, 4) = (/ &\n        & 0.61134e-04_rb,0.58773e-02_rb,0.93183e-02_rb,0.11347e-01_rb,0.11729e-01_rb /)\n      kbo(:, 4,13, 4) = (/ &\n        & 0.68793e-04_rb,0.62794e-02_rb,0.99768e-02_rb,0.12248e-01_rb,0.12250e-01_rb /)\n      kbo(:, 5,13, 4) = (/ &\n        & 0.77429e-04_rb,0.66893e-02_rb,0.10624e-01_rb,0.13064e-01_rb,0.12730e-01_rb /)\n      kbo(:, 1,14, 4) = (/ &\n        & 0.40706e-04_rb,0.43045e-02_rb,0.66240e-02_rb,0.81227e-02_rb,0.87105e-02_rb /)\n      kbo(:, 2,14, 4) = (/ &\n        & 0.45789e-04_rb,0.46404e-02_rb,0.72547e-02_rb,0.88508e-02_rb,0.92183e-02_rb /)\n      kbo(:, 3,14, 4) = (/ &\n        & 0.51359e-04_rb,0.49670e-02_rb,0.78649e-02_rb,0.95928e-02_rb,0.96590e-02_rb /)\n      kbo(:, 4,14, 4) = (/ &\n        & 0.58448e-04_rb,0.53112e-02_rb,0.84165e-02_rb,0.10356e-01_rb,0.10085e-01_rb /)\n      kbo(:, 5,14, 4) = (/ &\n        & 0.66585e-04_rb,0.56590e-02_rb,0.89770e-02_rb,0.11022e-01_rb,0.10540e-01_rb /)\n      kbo(:, 1,15, 4) = (/ &\n        & 0.33161e-04_rb,0.36374e-02_rb,0.56007e-02_rb,0.68408e-02_rb,0.70399e-02_rb /)\n      kbo(:, 2,15, 4) = (/ &\n        & 0.37316e-04_rb,0.39145e-02_rb,0.61318e-02_rb,0.74812e-02_rb,0.74533e-02_rb /)\n      kbo(:, 3,15, 4) = (/ &\n        & 0.42184e-04_rb,0.41949e-02_rb,0.66272e-02_rb,0.81097e-02_rb,0.78393e-02_rb /)\n      kbo(:, 4,15, 4) = (/ &\n        & 0.48249e-04_rb,0.44861e-02_rb,0.70934e-02_rb,0.87330e-02_rb,0.82262e-02_rb /)\n      kbo(:, 5,15, 4) = (/ &\n        & 0.54912e-04_rb,0.47829e-02_rb,0.75688e-02_rb,0.92830e-02_rb,0.86058e-02_rb /)\n      kbo(:, 1,16, 4) = (/ &\n        & 0.26598e-04_rb,0.30649e-02_rb,0.47323e-02_rb,0.57742e-02_rb,0.56644e-02_rb /)\n      kbo(:, 2,16, 4) = (/ &\n        & 0.30096e-04_rb,0.32950e-02_rb,0.51778e-02_rb,0.63145e-02_rb,0.60193e-02_rb /)\n      kbo(:, 3,16, 4) = (/ &\n        & 0.34085e-04_rb,0.35350e-02_rb,0.55806e-02_rb,0.68447e-02_rb,0.63708e-02_rb /)\n      kbo(:, 4,16, 4) = (/ &\n        & 0.38919e-04_rb,0.37831e-02_rb,0.59719e-02_rb,0.73465e-02_rb,0.67088e-02_rb /)\n      kbo(:, 5,16, 4) = (/ &\n        & 0.44492e-04_rb,0.40393e-02_rb,0.63750e-02_rb,0.78120e-02_rb,0.70249e-02_rb /)\n      kbo(:, 1,17, 4) = (/ &\n        & 0.21449e-04_rb,0.25756e-02_rb,0.39936e-02_rb,0.48662e-02_rb,0.46205e-02_rb /)\n      kbo(:, 2,17, 4) = (/ &\n        & 0.24103e-04_rb,0.27706e-02_rb,0.43619e-02_rb,0.53164e-02_rb,0.49202e-02_rb /)\n      kbo(:, 3,17, 4) = (/ &\n        & 0.27451e-04_rb,0.29765e-02_rb,0.46959e-02_rb,0.57632e-02_rb,0.52122e-02_rb /)\n      kbo(:, 4,17, 4) = (/ &\n        & 0.31381e-04_rb,0.31884e-02_rb,0.50222e-02_rb,0.61735e-02_rb,0.54790e-02_rb /)\n      kbo(:, 5,17, 4) = (/ &\n        & 0.35953e-04_rb,0.34099e-02_rb,0.53645e-02_rb,0.65659e-02_rb,0.57419e-02_rb /)\n      kbo(:, 1,18, 4) = (/ &\n        & 0.17468e-04_rb,0.21642e-02_rb,0.33642e-02_rb,0.40972e-02_rb,0.37921e-02_rb /)\n      kbo(:, 2,18, 4) = (/ &\n        & 0.19506e-04_rb,0.23308e-02_rb,0.36683e-02_rb,0.44696e-02_rb,0.40385e-02_rb /)\n      kbo(:, 3,18, 4) = (/ &\n        & 0.22326e-04_rb,0.25072e-02_rb,0.39454e-02_rb,0.48507e-02_rb,0.42773e-02_rb /)\n      kbo(:, 4,18, 4) = (/ &\n        & 0.25558e-04_rb,0.26901e-02_rb,0.42240e-02_rb,0.51855e-02_rb,0.45000e-02_rb /)\n      kbo(:, 5,18, 4) = (/ &\n        & 0.29519e-04_rb,0.28816e-02_rb,0.45135e-02_rb,0.55168e-02_rb,0.47259e-02_rb /)\n      kbo(:, 1,19, 4) = (/ &\n        & 0.14162e-04_rb,0.18165e-02_rb,0.28311e-02_rb,0.34491e-02_rb,0.31263e-02_rb /)\n      kbo(:, 2,19, 4) = (/ &\n        & 0.15880e-04_rb,0.19594e-02_rb,0.30792e-02_rb,0.37577e-02_rb,0.33277e-02_rb /)\n      kbo(:, 3,19, 4) = (/ &\n        & 0.18250e-04_rb,0.21124e-02_rb,0.33110e-02_rb,0.40717e-02_rb,0.35255e-02_rb /)\n      kbo(:, 4,19, 4) = (/ &\n        & 0.20948e-04_rb,0.22711e-02_rb,0.35512e-02_rb,0.43541e-02_rb,0.37114e-02_rb /)\n      kbo(:, 5,19, 4) = (/ &\n        & 0.24279e-04_rb,0.24360e-02_rb,0.37972e-02_rb,0.46336e-02_rb,0.39063e-02_rb /)\n      kbo(:, 1,20, 4) = (/ &\n        & 0.11677e-04_rb,0.15268e-02_rb,0.23854e-02_rb,0.29054e-02_rb,0.25927e-02_rb /)\n      kbo(:, 2,20, 4) = (/ &\n        & 0.13127e-04_rb,0.16502e-02_rb,0.25884e-02_rb,0.31642e-02_rb,0.27584e-02_rb /)\n      kbo(:, 3,20, 4) = (/ &\n        & 0.15145e-04_rb,0.17827e-02_rb,0.27854e-02_rb,0.34198e-02_rb,0.29228e-02_rb /)\n      kbo(:, 4,20, 4) = (/ &\n        & 0.17426e-04_rb,0.19208e-02_rb,0.29919e-02_rb,0.36563e-02_rb,0.30836e-02_rb /)\n      kbo(:, 5,20, 4) = (/ &\n        & 0.20187e-04_rb,0.20638e-02_rb,0.32027e-02_rb,0.38955e-02_rb,0.32517e-02_rb /)\n      kbo(:, 1,21, 4) = (/ &\n        & 0.96248e-05_rb,0.12839e-02_rb,0.20069e-02_rb,0.24439e-02_rb,0.21521e-02_rb /)\n      kbo(:, 2,21, 4) = (/ &\n        & 0.10884e-04_rb,0.13905e-02_rb,0.21753e-02_rb,0.26634e-02_rb,0.22901e-02_rb /)\n      kbo(:, 3,21, 4) = (/ &\n        & 0.12576e-04_rb,0.15057e-02_rb,0.23430e-02_rb,0.28714e-02_rb,0.24271e-02_rb /)\n      kbo(:, 4,21, 4) = (/ &\n        & 0.14492e-04_rb,0.16245e-02_rb,0.25229e-02_rb,0.30709e-02_rb,0.25653e-02_rb /)\n      kbo(:, 5,21, 4) = (/ &\n        & 0.16785e-04_rb,0.17487e-02_rb,0.27053e-02_rb,0.32769e-02_rb,0.27041e-02_rb /)\n      kbo(:, 1,22, 4) = (/ &\n        & 0.78987e-05_rb,0.10841e-02_rb,0.16963e-02_rb,0.20646e-02_rb,0.17920e-02_rb /)\n      kbo(:, 2,22, 4) = (/ &\n        & 0.90688e-05_rb,0.11783e-02_rb,0.18364e-02_rb,0.22523e-02_rb,0.19054e-02_rb /)\n      kbo(:, 3,22, 4) = (/ &\n        & 0.10436e-04_rb,0.12776e-02_rb,0.19832e-02_rb,0.24220e-02_rb,0.20200e-02_rb /)\n      kbo(:, 4,22, 4) = (/ &\n        & 0.12051e-04_rb,0.13800e-02_rb,0.21391e-02_rb,0.25904e-02_rb,0.21364e-02_rb /)\n      kbo(:, 5,22, 4) = (/ &\n        & 0.13992e-04_rb,0.14877e-02_rb,0.22983e-02_rb,0.27690e-02_rb,0.22519e-02_rb /)\n      kbo(:, 1,23, 4) = (/ &\n        & 0.65143e-05_rb,0.91629e-03_rb,0.14337e-02_rb,0.17468e-02_rb,0.14890e-02_rb /)\n      kbo(:, 2,23, 4) = (/ &\n        & 0.75295e-05_rb,0.99880e-03_rb,0.15532e-02_rb,0.19017e-02_rb,0.15844e-02_rb /)\n      kbo(:, 3,23, 4) = (/ &\n        & 0.86172e-05_rb,0.10843e-02_rb,0.16828e-02_rb,0.20454e-02_rb,0.16822e-02_rb /)\n      kbo(:, 4,23, 4) = (/ &\n        & 0.10017e-04_rb,0.11729e-02_rb,0.18176e-02_rb,0.21912e-02_rb,0.17800e-02_rb /)\n      kbo(:, 5,23, 4) = (/ &\n        & 0.11640e-04_rb,0.12668e-02_rb,0.19549e-02_rb,0.23447e-02_rb,0.18765e-02_rb /)\n      kbo(:, 1,24, 4) = (/ &\n        & 0.53432e-05_rb,0.77571e-03_rb,0.12114e-02_rb,0.14805e-02_rb,0.12372e-02_rb /)\n      kbo(:, 2,24, 4) = (/ &\n        & 0.61515e-05_rb,0.84718e-03_rb,0.13153e-02_rb,0.16078e-02_rb,0.13181e-02_rb /)\n      kbo(:, 3,24, 4) = (/ &\n        & 0.70923e-05_rb,0.92024e-03_rb,0.14293e-02_rb,0.17300e-02_rb,0.13989e-02_rb /)\n      kbo(:, 4,24, 4) = (/ &\n        & 0.82684e-05_rb,0.99740e-03_rb,0.15447e-02_rb,0.18573e-02_rb,0.14811e-02_rb /)\n      kbo(:, 5,24, 4) = (/ &\n        & 0.96268e-05_rb,0.10789e-02_rb,0.16627e-02_rb,0.19892e-02_rb,0.15621e-02_rb /)\n      kbo(:, 1,25, 4) = (/ &\n        & 0.43932e-05_rb,0.65898e-03_rb,0.10259e-02_rb,0.12568e-02_rb,0.10287e-02_rb /)\n      kbo(:, 2,25, 4) = (/ &\n        & 0.50483e-05_rb,0.71973e-03_rb,0.11174e-02_rb,0.13610e-02_rb,0.10973e-02_rb /)\n      kbo(:, 3,25, 4) = (/ &\n        & 0.58527e-05_rb,0.78269e-03_rb,0.12157e-02_rb,0.14658e-02_rb,0.11648e-02_rb /)\n      kbo(:, 4,25, 4) = (/ &\n        & 0.68258e-05_rb,0.84968e-03_rb,0.13158e-02_rb,0.15774e-02_rb,0.12354e-02_rb /)\n      kbo(:, 5,25, 4) = (/ &\n        & 0.79780e-05_rb,0.92093e-03_rb,0.14171e-02_rb,0.16917e-02_rb,0.13029e-02_rb /)\n      kbo(:, 1,26, 4) = (/ &\n        & 0.36349e-05_rb,0.56139e-03_rb,0.87232e-03_rb,0.10671e-02_rb,0.85747e-03_rb /)\n      kbo(:, 2,26, 4) = (/ &\n        & 0.41763e-05_rb,0.61307e-03_rb,0.95284e-03_rb,0.11559e-02_rb,0.91640e-03_rb /)\n      kbo(:, 3,26, 4) = (/ &\n        & 0.48643e-05_rb,0.66769e-03_rb,0.10377e-02_rb,0.12480e-02_rb,0.97417e-03_rb /)\n      kbo(:, 4,26, 4) = (/ &\n        & 0.56806e-05_rb,0.72618e-03_rb,0.11238e-02_rb,0.13443e-02_rb,0.10341e-02_rb /)\n      kbo(:, 5,26, 4) = (/ &\n        & 0.66574e-05_rb,0.78791e-03_rb,0.12118e-02_rb,0.14426e-02_rb,0.10908e-02_rb /)\n      kbo(:, 1,27, 4) = (/ &\n        & 0.29849e-05_rb,0.47845e-03_rb,0.74324e-03_rb,0.90695e-03_rb,0.71654e-03_rb /)\n      kbo(:, 2,27, 4) = (/ &\n        & 0.34528e-05_rb,0.52305e-03_rb,0.81407e-03_rb,0.98348e-03_rb,0.76622e-03_rb /)\n      kbo(:, 3,27, 4) = (/ &\n        & 0.40386e-05_rb,0.57067e-03_rb,0.88635e-03_rb,0.10643e-02_rb,0.81617e-03_rb /)\n      kbo(:, 4,27, 4) = (/ &\n        & 0.47349e-05_rb,0.62159e-03_rb,0.96045e-03_rb,0.11476e-02_rb,0.86667e-03_rb /)\n      kbo(:, 5,27, 4) = (/ &\n        & 0.55504e-05_rb,0.67486e-03_rb,0.10373e-02_rb,0.12327e-02_rb,0.91437e-03_rb /)\n      kbo(:, 1,28, 4) = (/ &\n        & 0.24474e-05_rb,0.40819e-03_rb,0.63469e-03_rb,0.77184e-03_rb,0.59959e-03_rb /)\n      kbo(:, 2,28, 4) = (/ &\n        & 0.28527e-05_rb,0.44694e-03_rb,0.69550e-03_rb,0.83809e-03_rb,0.64151e-03_rb /)\n      kbo(:, 3,28, 4) = (/ &\n        & 0.33444e-05_rb,0.48804e-03_rb,0.75797e-03_rb,0.90921e-03_rb,0.68464e-03_rb /)\n      kbo(:, 4,28, 4) = (/ &\n        & 0.39332e-05_rb,0.53229e-03_rb,0.82174e-03_rb,0.98103e-03_rb,0.72680e-03_rb /)\n      kbo(:, 5,28, 4) = (/ &\n        & 0.46245e-05_rb,0.57864e-03_rb,0.88872e-03_rb,0.10544e-02_rb,0.76723e-03_rb /)\n      kbo(:, 1,29, 4) = (/ &\n        & 0.20253e-05_rb,0.34921e-03_rb,0.54365e-03_rb,0.65865e-03_rb,0.50331e-03_rb /)\n      kbo(:, 2,29, 4) = (/ &\n        & 0.23720e-05_rb,0.38278e-03_rb,0.59577e-03_rb,0.71729e-03_rb,0.53864e-03_rb /)\n      kbo(:, 3,29, 4) = (/ &\n        & 0.27945e-05_rb,0.41887e-03_rb,0.64907e-03_rb,0.77823e-03_rb,0.57581e-03_rb /)\n      kbo(:, 4,29, 4) = (/ &\n        & 0.32936e-05_rb,0.45699e-03_rb,0.70481e-03_rb,0.84074e-03_rb,0.61089e-03_rb /)\n      kbo(:, 5,29, 4) = (/ &\n        & 0.38881e-05_rb,0.49757e-03_rb,0.76325e-03_rb,0.90356e-03_rb,0.64564e-03_rb /)\n      kbo(:, 1,30, 4) = (/ &\n        & 0.16797e-05_rb,0.29918e-03_rb,0.46598e-03_rb,0.56316e-03_rb,0.42270e-03_rb /)\n      kbo(:, 2,30, 4) = (/ &\n        & 0.19764e-05_rb,0.32839e-03_rb,0.51076e-03_rb,0.61439e-03_rb,0.45306e-03_rb /)\n      kbo(:, 3,30, 4) = (/ &\n        & 0.23384e-05_rb,0.35985e-03_rb,0.55686e-03_rb,0.66712e-03_rb,0.48445e-03_rb /)\n      kbo(:, 4,30, 4) = (/ &\n        & 0.27662e-05_rb,0.39302e-03_rb,0.60525e-03_rb,0.72092e-03_rb,0.51425e-03_rb /)\n      kbo(:, 5,30, 4) = (/ &\n        & 0.32687e-05_rb,0.42837e-03_rb,0.65610e-03_rb,0.77570e-03_rb,0.54396e-03_rb /)\n      kbo(:, 1,31, 4) = (/ &\n        & 0.13991e-05_rb,0.25687e-03_rb,0.39996e-03_rb,0.48307e-03_rb,0.35570e-03_rb /)\n      kbo(:, 2,31, 4) = (/ &\n        & 0.16564e-05_rb,0.28246e-03_rb,0.43858e-03_rb,0.52743e-03_rb,0.38211e-03_rb /)\n      kbo(:, 3,31, 4) = (/ &\n        & 0.19660e-05_rb,0.30971e-03_rb,0.47856e-03_rb,0.57309e-03_rb,0.40826e-03_rb /)\n      kbo(:, 4,31, 4) = (/ &\n        & 0.23334e-05_rb,0.33881e-03_rb,0.52066e-03_rb,0.61919e-03_rb,0.43367e-03_rb /)\n      kbo(:, 5,31, 4) = (/ &\n        & 0.27587e-05_rb,0.36964e-03_rb,0.56499e-03_rb,0.66660e-03_rb,0.45969e-03_rb /)\n      kbo(:, 1,32, 4) = (/ &\n        & 0.11711e-05_rb,0.22102e-03_rb,0.34394e-03_rb,0.41512e-03_rb,0.29980e-03_rb /)\n      kbo(:, 2,32, 4) = (/ &\n        & 0.13928e-05_rb,0.24337e-03_rb,0.37713e-03_rb,0.45351e-03_rb,0.32253e-03_rb /)\n      kbo(:, 3,32, 4) = (/ &\n        & 0.16589e-05_rb,0.26704e-03_rb,0.41202e-03_rb,0.49272e-03_rb,0.34442e-03_rb /)\n      kbo(:, 4,32, 4) = (/ &\n        & 0.19740e-05_rb,0.29261e-03_rb,0.44855e-03_rb,0.53274e-03_rb,0.36633e-03_rb /)\n      kbo(:, 5,32, 4) = (/ &\n        & 0.23323e-05_rb,0.31973e-03_rb,0.48726e-03_rb,0.57383e-03_rb,0.38915e-03_rb /)\n      kbo(:, 1,33, 4) = (/ &\n        & 0.98300e-06_rb,0.19047e-03_rb,0.29592e-03_rb,0.35739e-03_rb,0.25303e-03_rb /)\n      kbo(:, 2,33, 4) = (/ &\n        & 0.11751e-05_rb,0.20983e-03_rb,0.32474e-03_rb,0.39043e-03_rb,0.27259e-03_rb /)\n      kbo(:, 3,33, 4) = (/ &\n        & 0.14027e-05_rb,0.23065e-03_rb,0.35505e-03_rb,0.42405e-03_rb,0.29120e-03_rb /)\n      kbo(:, 4,33, 4) = (/ &\n        & 0.16692e-05_rb,0.25302e-03_rb,0.38699e-03_rb,0.45888e-03_rb,0.31018e-03_rb /)\n      kbo(:, 5,33, 4) = (/ &\n        & 0.19716e-05_rb,0.27715e-03_rb,0.42119e-03_rb,0.49468e-03_rb,0.32989e-03_rb /)\n      kbo(:, 1,34, 4) = (/ &\n        & 0.82915e-06_rb,0.16396e-03_rb,0.25433e-03_rb,0.30700e-03_rb,0.21406e-03_rb /)\n      kbo(:, 2,34, 4) = (/ &\n        & 0.99352e-06_rb,0.18083e-03_rb,0.27935e-03_rb,0.33552e-03_rb,0.23048e-03_rb /)\n      kbo(:, 3,34, 4) = (/ &\n        & 0.11877e-05_rb,0.19915e-03_rb,0.30578e-03_rb,0.36455e-03_rb,0.24659e-03_rb /)\n      kbo(:, 4,34, 4) = (/ &\n        & 0.14139e-05_rb,0.21886e-03_rb,0.33384e-03_rb,0.39476e-03_rb,0.26317e-03_rb /)\n      kbo(:, 5,34, 4) = (/ &\n        & 0.16670e-05_rb,0.24021e-03_rb,0.36390e-03_rb,0.42603e-03_rb,0.28005e-03_rb /)\n      kbo(:, 1,35, 4) = (/ &\n        & 0.68670e-06_rb,0.13979e-03_rb,0.21673e-03_rb,0.26161e-03_rb,0.17974e-03_rb /)\n      kbo(:, 2,35, 4) = (/ &\n        & 0.82437e-06_rb,0.15448e-03_rb,0.23846e-03_rb,0.28611e-03_rb,0.19377e-03_rb /)\n      kbo(:, 3,35, 4) = (/ &\n        & 0.98649e-06_rb,0.17044e-03_rb,0.26139e-03_rb,0.31132e-03_rb,0.20765e-03_rb /)\n      kbo(:, 4,35, 4) = (/ &\n        & 0.11740e-05_rb,0.18773e-03_rb,0.28609e-03_rb,0.33740e-03_rb,0.22197e-03_rb /)\n      kbo(:, 5,35, 4) = (/ &\n        & 0.13833e-05_rb,0.20652e-03_rb,0.31233e-03_rb,0.36449e-03_rb,0.23658e-03_rb /)\n      kbo(:, 1,36, 4) = (/ &\n        & 0.55564e-06_rb,0.11786e-03_rb,0.18283e-03_rb,0.22089e-03_rb,0.14951e-03_rb /)\n      kbo(:, 2,36, 4) = (/ &\n        & 0.66731e-06_rb,0.13053e-03_rb,0.20151e-03_rb,0.24189e-03_rb,0.16146e-03_rb /)\n      kbo(:, 3,36, 4) = (/ &\n        & 0.80048e-06_rb,0.14432e-03_rb,0.22154e-03_rb,0.26364e-03_rb,0.17348e-03_rb /)\n      kbo(:, 4,36, 4) = (/ &\n        & 0.95195e-06_rb,0.15937e-03_rb,0.24310e-03_rb,0.28609e-03_rb,0.18577e-03_rb /)\n      kbo(:, 5,36, 4) = (/ &\n        & 0.11217e-05_rb,0.17580e-03_rb,0.26601e-03_rb,0.30949e-03_rb,0.19850e-03_rb /)\n      kbo(:, 1,37, 4) = (/ &\n        & 0.44526e-06_rb,0.98334e-04_rb,0.15236e-03_rb,0.18395e-03_rb,0.12369e-03_rb /)\n      kbo(:, 2,37, 4) = (/ &\n        & 0.53551e-06_rb,0.10927e-03_rb,0.16837e-03_rb,0.20194e-03_rb,0.13387e-03_rb /)\n      kbo(:, 3,37, 4) = (/ &\n        & 0.64307e-06_rb,0.12110e-03_rb,0.18556e-03_rb,0.22059e-03_rb,0.14418e-03_rb /)\n      kbo(:, 4,37, 4) = (/ &\n        & 0.76688e-06_rb,0.13411e-03_rb,0.20414e-03_rb,0.23985e-03_rb,0.15477e-03_rb /)\n      kbo(:, 5,37, 4) = (/ &\n        & 0.90591e-06_rb,0.14842e-03_rb,0.22405e-03_rb,0.25996e-03_rb,0.16566e-03_rb /)\n      kbo(:, 1,38, 4) = (/ &\n        & 0.35630e-06_rb,0.81991e-04_rb,0.12690e-03_rb,0.15312e-03_rb,0.10226e-03_rb /)\n      kbo(:, 2,38, 4) = (/ &\n        & 0.42911e-06_rb,0.91391e-04_rb,0.14064e-03_rb,0.16849e-03_rb,0.11095e-03_rb /)\n      kbo(:, 3,38, 4) = (/ &\n        & 0.51583e-06_rb,0.10163e-03_rb,0.15538e-03_rb,0.18448e-03_rb,0.11977e-03_rb /)\n      kbo(:, 4,38, 4) = (/ &\n        & 0.61654e-06_rb,0.11287e-03_rb,0.17138e-03_rb,0.20101e-03_rb,0.12884e-03_rb /)\n      kbo(:, 5,38, 4) = (/ &\n        & 0.73028e-06_rb,0.12530e-03_rb,0.18862e-03_rb,0.21826e-03_rb,0.13816e-03_rb /)\n      kbo(:, 1,39, 4) = (/ &\n        & 0.28455e-06_rb,0.68362e-04_rb,0.10572e-03_rb,0.12747e-03_rb,0.84494e-04_rb /)\n      kbo(:, 2,39, 4) = (/ &\n        & 0.34313e-06_rb,0.76413e-04_rb,0.11751e-03_rb,0.14060e-03_rb,0.91905e-04_rb /)\n      kbo(:, 3,39, 4) = (/ &\n        & 0.41305e-06_rb,0.85299e-04_rb,0.13016e-03_rb,0.15431e-03_rb,0.99463e-04_rb /)\n      kbo(:, 4,39, 4) = (/ &\n        & 0.49466e-06_rb,0.95047e-04_rb,0.14396e-03_rb,0.16851e-03_rb,0.10725e-03_rb /)\n      kbo(:, 5,39, 4) = (/ &\n        & 0.58721e-06_rb,0.10583e-03_rb,0.15886e-03_rb,0.18332e-03_rb,0.11516e-03_rb /)\n      kbo(:, 1,40, 4) = (/ &\n        & 0.22416e-06_rb,0.56451e-04_rb,0.87192e-04_rb,0.10503e-03_rb,0.69299e-04_rb /)\n      kbo(:, 2,40, 4) = (/ &\n        & 0.27058e-06_rb,0.63325e-04_rb,0.97241e-04_rb,0.11625e-03_rb,0.75635e-04_rb /)\n      kbo(:, 3,40, 4) = (/ &\n        & 0.32640e-06_rb,0.70942e-04_rb,0.10801e-03_rb,0.12792e-03_rb,0.82061e-04_rb /)\n      kbo(:, 4,40, 4) = (/ &\n        & 0.39178e-06_rb,0.79381e-04_rb,0.11985e-03_rb,0.14005e-03_rb,0.88722e-04_rb /)\n      kbo(:, 5,40, 4) = (/ &\n        & 0.46694e-06_rb,0.88673e-04_rb,0.13261e-03_rb,0.15274e-03_rb,0.95437e-04_rb /)\n      kbo(:, 1,41, 4) = (/ &\n        & 0.17620e-06_rb,0.46495e-04_rb,0.71829e-04_rb,0.86351e-04_rb,0.56701e-04_rb /)\n      kbo(:, 2,41, 4) = (/ &\n        & 0.21295e-06_rb,0.52383e-04_rb,0.80380e-04_rb,0.95937e-04_rb,0.62100e-04_rb /)\n      kbo(:, 3,41, 4) = (/ &\n        & 0.25720e-06_rb,0.58900e-04_rb,0.89548e-04_rb,0.10594e-03_rb,0.67568e-04_rb /)\n      kbo(:, 4,41, 4) = (/ &\n        & 0.30957e-06_rb,0.66136e-04_rb,0.99643e-04_rb,0.11623e-03_rb,0.73280e-04_rb /)\n      kbo(:, 5,41, 4) = (/ &\n        & 0.37003e-06_rb,0.74203e-04_rb,0.11061e-03_rb,0.12707e-03_rb,0.78979e-04_rb /)\n      kbo(:, 1,42, 4) = (/ &\n        & 0.13843e-06_rb,0.38238e-04_rb,0.59124e-04_rb,0.70982e-04_rb,0.46331e-04_rb /)\n      kbo(:, 2,42, 4) = (/ &\n        & 0.16726e-06_rb,0.43269e-04_rb,0.66424e-04_rb,0.79125e-04_rb,0.50956e-04_rb /)\n      kbo(:, 3,42, 4) = (/ &\n        & 0.20232e-06_rb,0.48870e-04_rb,0.74247e-04_rb,0.87661e-04_rb,0.55561e-04_rb /)\n      kbo(:, 4,42, 4) = (/ &\n        & 0.24408e-06_rb,0.55119e-04_rb,0.82827e-04_rb,0.96453e-04_rb,0.60447e-04_rb /)\n      kbo(:, 5,42, 4) = (/ &\n        & 0.29276e-06_rb,0.62028e-04_rb,0.92221e-04_rb,0.10570e-03_rb,0.65281e-04_rb /)\n      kbo(:, 1,43, 4) = (/ &\n        & 0.10793e-06_rb,0.31191e-04_rb,0.48305e-04_rb,0.57948e-04_rb,0.37666e-04_rb /)\n      kbo(:, 2,43, 4) = (/ &\n        & 0.13017e-06_rb,0.35465e-04_rb,0.54489e-04_rb,0.64841e-04_rb,0.41556e-04_rb /)\n      kbo(:, 3,43, 4) = (/ &\n        & 0.15771e-06_rb,0.40235e-04_rb,0.61176e-04_rb,0.72082e-04_rb,0.45452e-04_rb /)\n      kbo(:, 4,43, 4) = (/ &\n        & 0.19064e-06_rb,0.45599e-04_rb,0.68488e-04_rb,0.79576e-04_rb,0.49593e-04_rb /)\n      kbo(:, 5,43, 4) = (/ &\n        & 0.22944e-06_rb,0.51552e-04_rb,0.76431e-04_rb,0.87462e-04_rb,0.53715e-04_rb /)\n      kbo(:, 1,44, 4) = (/ &\n        & 0.83879e-07_rb,0.25325e-04_rb,0.39297e-04_rb,0.47118e-04_rb,0.30510e-04_rb /)\n      kbo(:, 2,44, 4) = (/ &\n        & 0.10087e-06_rb,0.28920e-04_rb,0.44532e-04_rb,0.52929e-04_rb,0.33772e-04_rb /)\n      kbo(:, 3,44, 4) = (/ &\n        & 0.12238e-06_rb,0.32977e-04_rb,0.50189e-04_rb,0.59075e-04_rb,0.37069e-04_rb /)\n      kbo(:, 4,44, 4) = (/ &\n        & 0.14813e-06_rb,0.37556e-04_rb,0.56451e-04_rb,0.65448e-04_rb,0.40567e-04_rb /)\n      kbo(:, 5,44, 4) = (/ &\n        & 0.17874e-06_rb,0.42672e-04_rb,0.63196e-04_rb,0.72159e-04_rb,0.44085e-04_rb /)\n      kbo(:, 1,45, 4) = (/ &\n        & 0.65261e-07_rb,0.20516e-04_rb,0.31895e-04_rb,0.38279e-04_rb,0.24650e-04_rb /)\n      kbo(:, 2,45, 4) = (/ &\n        & 0.78145e-07_rb,0.23540e-04_rb,0.36319e-04_rb,0.43161e-04_rb,0.27390e-04_rb /)\n      kbo(:, 3,45, 4) = (/ &\n        & 0.94805e-07_rb,0.26962e-04_rb,0.41134e-04_rb,0.48357e-04_rb,0.30190e-04_rb /)\n      kbo(:, 4,45, 4) = (/ &\n        & 0.11490e-06_rb,0.30858e-04_rb,0.46429e-04_rb,0.53785e-04_rb,0.33136e-04_rb /)\n      kbo(:, 5,45, 4) = (/ &\n        & 0.13905e-06_rb,0.35210e-04_rb,0.52216e-04_rb,0.59482e-04_rb,0.36122e-04_rb /)\n      kbo(:, 1,46, 4) = (/ &\n        & 0.50668e-07_rb,0.16526e-04_rb,0.25752e-04_rb,0.30954e-04_rb,0.19817e-04_rb /)\n      kbo(:, 2,46, 4) = (/ &\n        & 0.60361e-07_rb,0.19058e-04_rb,0.29471e-04_rb,0.35060e-04_rb,0.22123e-04_rb /)\n      kbo(:, 3,46, 4) = (/ &\n        & 0.73101e-07_rb,0.21937e-04_rb,0.33569e-04_rb,0.39461e-04_rb,0.24498e-04_rb /)\n      kbo(:, 4,46, 4) = (/ &\n        & 0.88747e-07_rb,0.25222e-04_rb,0.38048e-04_rb,0.44039e-04_rb,0.26973e-04_rb /)\n      kbo(:, 5,46, 4) = (/ &\n        & 0.10762e-06_rb,0.28932e-04_rb,0.42964e-04_rb,0.48871e-04_rb,0.29499e-04_rb /)\n      kbo(:, 1,47, 4) = (/ &\n        & 0.39185e-07_rb,0.13207e-04_rb,0.20626e-04_rb,0.24835e-04_rb,0.15826e-04_rb /)\n      kbo(:, 2,47, 4) = (/ &\n        & 0.46335e-07_rb,0.15303e-04_rb,0.23722e-04_rb,0.28277e-04_rb,0.17762e-04_rb /)\n      kbo(:, 3,47, 4) = (/ &\n        & 0.55896e-07_rb,0.17703e-04_rb,0.27162e-04_rb,0.31976e-04_rb,0.19780e-04_rb /)\n      kbo(:, 4,47, 4) = (/ &\n        & 0.67962e-07_rb,0.20451e-04_rb,0.30940e-04_rb,0.35867e-04_rb,0.21834e-04_rb /)\n      kbo(:, 5,47, 4) = (/ &\n        & 0.82535e-07_rb,0.23583e-04_rb,0.35128e-04_rb,0.39933e-04_rb,0.23972e-04_rb /)\n      kbo(:, 1,48, 4) = (/ &\n        & 0.30435e-07_rb,0.10528e-04_rb,0.16458e-04_rb,0.19871e-04_rb,0.12630e-04_rb /)\n      kbo(:, 2,48, 4) = (/ &\n        & 0.35657e-07_rb,0.12255e-04_rb,0.19034e-04_rb,0.22757e-04_rb,0.14230e-04_rb /)\n      kbo(:, 3,48, 4) = (/ &\n        & 0.42777e-07_rb,0.14241e-04_rb,0.21916e-04_rb,0.25856e-04_rb,0.15916e-04_rb /)\n      kbo(:, 4,48, 4) = (/ &\n        & 0.51977e-07_rb,0.16531e-04_rb,0.25094e-04_rb,0.29142e-04_rb,0.17632e-04_rb /)\n      kbo(:, 5,48, 4) = (/ &\n        & 0.63246e-07_rb,0.19162e-04_rb,0.28631e-04_rb,0.32586e-04_rb,0.19447e-04_rb /)\n      kbo(:, 1,49, 4) = (/ &\n        & 0.23722e-07_rb,0.83656e-05_rb,0.13088e-04_rb,0.15834e-04_rb,0.10060e-04_rb /)\n      kbo(:, 2,49, 4) = (/ &\n        & 0.27509e-07_rb,0.97869e-05_rb,0.15227e-04_rb,0.18252e-04_rb,0.11363e-04_rb /)\n      kbo(:, 3,49, 4) = (/ &\n        & 0.32769e-07_rb,0.11426e-04_rb,0.17628e-04_rb,0.20853e-04_rb,0.12767e-04_rb /)\n      kbo(:, 4,49, 4) = (/ &\n        & 0.39719e-07_rb,0.13326e-04_rb,0.20285e-04_rb,0.23637e-04_rb,0.14223e-04_rb /)\n      kbo(:, 5,49, 4) = (/ &\n        & 0.48415e-07_rb,0.15524e-04_rb,0.23268e-04_rb,0.26530e-04_rb,0.15739e-04_rb /)\n      kbo(:, 1,50, 4) = (/ &\n        & 0.18623e-07_rb,0.66620e-05_rb,0.10425e-04_rb,0.12634e-04_rb,0.80132e-05_rb /)\n      kbo(:, 2,50, 4) = (/ &\n        & 0.21393e-07_rb,0.78264e-05_rb,0.12188e-04_rb,0.14643e-04_rb,0.90757e-05_rb /)\n      kbo(:, 3,50, 4) = (/ &\n        & 0.25281e-07_rb,0.91787e-05_rb,0.14186e-04_rb,0.16825e-04_rb,0.10247e-04_rb /)\n      kbo(:, 4,50, 4) = (/ &\n        & 0.30530e-07_rb,0.10758e-04_rb,0.16419e-04_rb,0.19178e-04_rb,0.11482e-04_rb /)\n      kbo(:, 5,50, 4) = (/ &\n        & 0.37213e-07_rb,0.12593e-04_rb,0.18920e-04_rb,0.21643e-04_rb,0.12749e-04_rb /)\n      kbo(:, 1,51, 4) = (/ &\n        & 0.14681e-07_rb,0.53043e-05_rb,0.82956e-05_rb,0.10064e-04_rb,0.63669e-05_rb /)\n      kbo(:, 2,51, 4) = (/ &\n        & 0.16717e-07_rb,0.62508e-05_rb,0.97501e-05_rb,0.11737e-04_rb,0.72473e-05_rb /)\n      kbo(:, 3,51, 4) = (/ &\n        & 0.19587e-07_rb,0.73643e-05_rb,0.11400e-04_rb,0.13558e-04_rb,0.82290e-05_rb /)\n      kbo(:, 4,51, 4) = (/ &\n        & 0.23555e-07_rb,0.86748e-05_rb,0.13268e-04_rb,0.15537e-04_rb,0.92634e-05_rb /)\n      kbo(:, 5,51, 4) = (/ &\n        & 0.28671e-07_rb,0.10209e-04_rb,0.15379e-04_rb,0.17635e-04_rb,0.10316e-04_rb /)\n      kbo(:, 1,52, 4) = (/ &\n        & 0.11626e-07_rb,0.42149e-05_rb,0.65740e-05_rb,0.79835e-05_rb,0.50595e-05_rb /)\n      kbo(:, 2,52, 4) = (/ &\n        & 0.13102e-07_rb,0.49884e-05_rb,0.77758e-05_rb,0.93846e-05_rb,0.57856e-05_rb /)\n      kbo(:, 3,52, 4) = (/ &\n        & 0.15208e-07_rb,0.58955e-05_rb,0.91392e-05_rb,0.10898e-04_rb,0.65937e-05_rb /)\n      kbo(:, 4,52, 4) = (/ &\n        & 0.18174e-07_rb,0.69758e-05_rb,0.10692e-04_rb,0.12554e-04_rb,0.74564e-05_rb /)\n      kbo(:, 5,52, 4) = (/ &\n        & 0.22057e-07_rb,0.82505e-05_rb,0.12462e-04_rb,0.14331e-04_rb,0.83301e-05_rb /)\n      kbo(:, 1,53, 4) = (/ &\n        & 0.92130e-08_rb,0.33378e-05_rb,0.51998e-05_rb,0.63006e-05_rb,0.40097e-05_rb /)\n      kbo(:, 2,53, 4) = (/ &\n        & 0.10298e-07_rb,0.39704e-05_rb,0.61839e-05_rb,0.74775e-05_rb,0.46077e-05_rb /)\n      kbo(:, 3,53, 4) = (/ &\n        & 0.11831e-07_rb,0.47088e-05_rb,0.73062e-05_rb,0.87345e-05_rb,0.52620e-05_rb /)\n      kbo(:, 4,53, 4) = (/ &\n        & 0.14030e-07_rb,0.55942e-05_rb,0.85921e-05_rb,0.10119e-04_rb,0.59838e-05_rb /)\n      kbo(:, 5,53, 4) = (/ &\n        & 0.16970e-07_rb,0.66447e-05_rb,0.10063e-04_rb,0.11620e-04_rb,0.67208e-05_rb /)\n      kbo(:, 1,54, 4) = (/ &\n        & 0.73443e-08_rb,0.26498e-05_rb,0.41229e-05_rb,0.49788e-05_rb,0.31929e-05_rb /)\n      kbo(:, 2,54, 4) = (/ &\n        & 0.81453e-08_rb,0.31689e-05_rb,0.49320e-05_rb,0.59701e-05_rb,0.36706e-05_rb /)\n      kbo(:, 3,54, 4) = (/ &\n        & 0.92853e-08_rb,0.37746e-05_rb,0.58561e-05_rb,0.70139e-05_rb,0.42105e-05_rb /)\n      kbo(:, 4,54, 4) = (/ &\n        & 0.10913e-07_rb,0.44986e-05_rb,0.69192e-05_rb,0.81733e-05_rb,0.48081e-05_rb /)\n      kbo(:, 5,54, 4) = (/ &\n        & 0.13151e-07_rb,0.53689e-05_rb,0.81469e-05_rb,0.94377e-05_rb,0.54320e-05_rb /)\n      kbo(:, 1,55, 4) = (/ &\n        & 0.58690e-08_rb,0.21056e-05_rb,0.32710e-05_rb,0.39362e-05_rb,0.25357e-05_rb /)\n      kbo(:, 2,55, 4) = (/ &\n        & 0.64824e-08_rb,0.25292e-05_rb,0.39335e-05_rb,0.47652e-05_rb,0.29266e-05_rb /)\n      kbo(:, 3,55, 4) = (/ &\n        & 0.73195e-08_rb,0.30260e-05_rb,0.46942e-05_rb,0.56346e-05_rb,0.33700e-05_rb /)\n      kbo(:, 4,55, 4) = (/ &\n        & 0.85298e-08_rb,0.36216e-05_rb,0.55727e-05_rb,0.65990e-05_rb,0.38662e-05_rb /)\n      kbo(:, 5,55, 4) = (/ &\n        & 0.10227e-07_rb,0.43366e-05_rb,0.65935e-05_rb,0.76627e-05_rb,0.43889e-05_rb /)\n      kbo(:, 1,56, 4) = (/ &\n        & 0.46879e-08_rb,0.16674e-05_rb,0.25848e-05_rb,0.30992e-05_rb,0.20097e-05_rb /)\n      kbo(:, 2,56, 4) = (/ &\n        & 0.51579e-08_rb,0.20145e-05_rb,0.31307e-05_rb,0.37875e-05_rb,0.23304e-05_rb /)\n      kbo(:, 3,56, 4) = (/ &\n        & 0.57829e-08_rb,0.24199e-05_rb,0.37529e-05_rb,0.45119e-05_rb,0.26962e-05_rb /)\n      kbo(:, 4,56, 4) = (/ &\n        & 0.66817e-08_rb,0.29092e-05_rb,0.44788e-05_rb,0.53142e-05_rb,0.31037e-05_rb /)\n      kbo(:, 5,56, 4) = (/ &\n        & 0.79548e-08_rb,0.34985e-05_rb,0.53248e-05_rb,0.62066e-05_rb,0.35387e-05_rb /)\n      kbo(:, 1,57, 4) = (/ &\n        & 0.37487e-08_rb,0.13177e-05_rb,0.20362e-05_rb,0.24278e-05_rb,0.15888e-05_rb /)\n      kbo(:, 2,57, 4) = (/ &\n        & 0.41132e-08_rb,0.16006e-05_rb,0.24863e-05_rb,0.30001e-05_rb,0.18530e-05_rb /)\n      kbo(:, 3,57, 4) = (/ &\n        & 0.45796e-08_rb,0.19301e-05_rb,0.29957e-05_rb,0.36053e-05_rb,0.21515e-05_rb /)\n      kbo(:, 4,57, 4) = (/ &\n        & 0.52447e-08_rb,0.23301e-05_rb,0.35902e-05_rb,0.42690e-05_rb,0.24844e-05_rb /)\n      kbo(:, 5,57, 4) = (/ &\n        & 0.61952e-08_rb,0.28175e-05_rb,0.42894e-05_rb,0.50133e-05_rb,0.28503e-05_rb /)\n      kbo(:, 1,58, 4) = (/ &\n        & 0.30053e-08_rb,0.10419e-05_rb,0.16034e-05_rb,0.19071e-05_rb,0.12550e-05_rb /)\n      kbo(:, 2,58, 4) = (/ &\n        & 0.32906e-08_rb,0.12717e-05_rb,0.19750e-05_rb,0.23751e-05_rb,0.14761e-05_rb /)\n      kbo(:, 3,58, 4) = (/ &\n        & 0.36412e-08_rb,0.15413e-05_rb,0.23950e-05_rb,0.28817e-05_rb,0.17173e-05_rb /)\n      kbo(:, 4,58, 4) = (/ &\n        & 0.41327e-08_rb,0.18673e-05_rb,0.28800e-05_rb,0.34301e-05_rb,0.19893e-05_rb /)\n      kbo(:, 5,58, 4) = (/ &\n        & 0.48448e-08_rb,0.22699e-05_rb,0.34559e-05_rb,0.40496e-05_rb,0.22938e-05_rb /)\n      kbo(:, 1,59, 4) = (/ &\n        & 0.24517e-08_rb,0.85367e-06_rb,0.13121e-05_rb,0.15587e-05_rb,0.10209e-05_rb /)\n      kbo(:, 2,59, 4) = (/ &\n        & 0.26814e-08_rb,0.10459e-05_rb,0.16241e-05_rb,0.19505e-05_rb,0.12067e-05_rb /)\n      kbo(:, 3,59, 4) = (/ &\n        & 0.29604e-08_rb,0.12726e-05_rb,0.19786e-05_rb,0.23765e-05_rb,0.14071e-05_rb /)\n      kbo(:, 4,59, 4) = (/ &\n        & 0.33490e-08_rb,0.15486e-05_rb,0.23884e-05_rb,0.28393e-05_rb,0.16353e-05_rb /)\n      kbo(:, 5,59, 4) = (/ &\n        & 0.39177e-08_rb,0.18923e-05_rb,0.28751e-05_rb,0.33648e-05_rb,0.18896e-05_rb /)\n      kbo(:, 1,13, 5) = (/ &\n        & 0.10606e-02_rb,0.17616e-01_rb,0.26337e-01_rb,0.30832e-01_rb,0.23250e-01_rb /)\n      kbo(:, 2,13, 5) = (/ &\n        & 0.11975e-02_rb,0.18851e-01_rb,0.27746e-01_rb,0.32191e-01_rb,0.24461e-01_rb /)\n      kbo(:, 3,13, 5) = (/ &\n        & 0.13686e-02_rb,0.20236e-01_rb,0.29224e-01_rb,0.33409e-01_rb,0.25538e-01_rb /)\n      kbo(:, 4,13, 5) = (/ &\n        & 0.15788e-02_rb,0.21686e-01_rb,0.30822e-01_rb,0.34581e-01_rb,0.26483e-01_rb /)\n      kbo(:, 5,13, 5) = (/ &\n        & 0.18422e-02_rb,0.23201e-01_rb,0.32485e-01_rb,0.35791e-01_rb,0.27339e-01_rb /)\n      kbo(:, 1,14, 5) = (/ &\n        & 0.90299e-03_rb,0.14939e-01_rb,0.22235e-01_rb,0.25969e-01_rb,0.19459e-01_rb /)\n      kbo(:, 2,14, 5) = (/ &\n        & 0.10276e-02_rb,0.16043e-01_rb,0.23464e-01_rb,0.27102e-01_rb,0.20418e-01_rb /)\n      kbo(:, 3,14, 5) = (/ &\n        & 0.11848e-02_rb,0.17244e-01_rb,0.24766e-01_rb,0.28137e-01_rb,0.21279e-01_rb /)\n      kbo(:, 4,14, 5) = (/ &\n        & 0.13763e-02_rb,0.18494e-01_rb,0.26159e-01_rb,0.29141e-01_rb,0.22035e-01_rb /)\n      kbo(:, 5,14, 5) = (/ &\n        & 0.16087e-02_rb,0.19801e-01_rb,0.27586e-01_rb,0.30208e-01_rb,0.22712e-01_rb /)\n      kbo(:, 1,15, 5) = (/ &\n        & 0.76169e-03_rb,0.12657e-01_rb,0.18744e-01_rb,0.21807e-01_rb,0.16155e-01_rb /)\n      kbo(:, 2,15, 5) = (/ &\n        & 0.87429e-03_rb,0.13622e-01_rb,0.19820e-01_rb,0.22753e-01_rb,0.16908e-01_rb /)\n      kbo(:, 3,15, 5) = (/ &\n        & 0.10153e-02_rb,0.14650e-01_rb,0.20967e-01_rb,0.23637e-01_rb,0.17597e-01_rb /)\n      kbo(:, 4,15, 5) = (/ &\n        & 0.11860e-02_rb,0.15728e-01_rb,0.22159e-01_rb,0.24521e-01_rb,0.18236e-01_rb /)\n      kbo(:, 5,15, 5) = (/ &\n        & 0.13940e-02_rb,0.16855e-01_rb,0.23377e-01_rb,0.25442e-01_rb,0.18800e-01_rb /)\n      kbo(:, 1,16, 5) = (/ &\n        & 0.63979e-03_rb,0.10716e-01_rb,0.15782e-01_rb,0.18280e-01_rb,0.13330e-01_rb /)\n      kbo(:, 2,16, 5) = (/ &\n        & 0.73992e-03_rb,0.11550e-01_rb,0.16721e-01_rb,0.19074e-01_rb,0.13955e-01_rb /)\n      kbo(:, 3,16, 5) = (/ &\n        & 0.86535e-03_rb,0.12432e-01_rb,0.17715e-01_rb,0.19835e-01_rb,0.14519e-01_rb /)\n      kbo(:, 4,16, 5) = (/ &\n        & 0.10180e-02_rb,0.13358e-01_rb,0.18733e-01_rb,0.20612e-01_rb,0.15053e-01_rb /)\n      kbo(:, 5,16, 5) = (/ &\n        & 0.12020e-02_rb,0.14330e-01_rb,0.19780e-01_rb,0.21390e-01_rb,0.15523e-01_rb /)\n      kbo(:, 1,17, 5) = (/ &\n        & 0.53827e-03_rb,0.90675e-02_rb,0.13282e-01_rb,0.15310e-01_rb,0.11002e-01_rb /)\n      kbo(:, 2,17, 5) = (/ &\n        & 0.62733e-03_rb,0.97818e-02_rb,0.14093e-01_rb,0.15985e-01_rb,0.11517e-01_rb /)\n      kbo(:, 3,17, 5) = (/ &\n        & 0.73894e-03_rb,0.10536e-01_rb,0.14937e-01_rb,0.16642e-01_rb,0.11982e-01_rb /)\n      kbo(:, 4,17, 5) = (/ &\n        & 0.87471e-03_rb,0.11329e-01_rb,0.15813e-01_rb,0.17308e-01_rb,0.12431e-01_rb /)\n      kbo(:, 5,17, 5) = (/ &\n        & 0.10369e-02_rb,0.12167e-01_rb,0.16717e-01_rb,0.17966e-01_rb,0.12833e-01_rb /)\n      kbo(:, 1,18, 5) = (/ &\n        & 0.45632e-03_rb,0.76631e-02_rb,0.11175e-01_rb,0.12821e-01_rb,0.91007e-02_rb /)\n      kbo(:, 2,18, 5) = (/ &\n        & 0.53618e-03_rb,0.82741e-02_rb,0.11867e-01_rb,0.13402e-01_rb,0.95284e-02_rb /)\n      kbo(:, 3,18, 5) = (/ &\n        & 0.63520e-03_rb,0.89179e-02_rb,0.12591e-01_rb,0.13960e-01_rb,0.99227e-02_rb /)\n      kbo(:, 4,18, 5) = (/ &\n        & 0.75513e-03_rb,0.95966e-02_rb,0.13345e-01_rb,0.14529e-01_rb,0.10294e-01_rb /)\n      kbo(:, 5,18, 5) = (/ &\n        & 0.89828e-03_rb,0.10325e-01_rb,0.14127e-01_rb,0.15082e-01_rb,0.10637e-01_rb /)\n      kbo(:, 1,19, 5) = (/ &\n        & 0.38782e-03_rb,0.64686e-02_rb,0.93947e-02_rb,0.10738e-01_rb,0.75366e-02_rb /)\n      kbo(:, 2,19, 5) = (/ &\n        & 0.45826e-03_rb,0.69872e-02_rb,0.99878e-02_rb,0.11230e-01_rb,0.78920e-02_rb /)\n      kbo(:, 3,19, 5) = (/ &\n        & 0.54544e-03_rb,0.75386e-02_rb,0.10613e-01_rb,0.11706e-01_rb,0.82219e-02_rb /)\n      kbo(:, 4,19, 5) = (/ &\n        & 0.65085e-03_rb,0.81243e-02_rb,0.11261e-01_rb,0.12183e-01_rb,0.85447e-02_rb /)\n      kbo(:, 5,19, 5) = (/ &\n        & 0.77601e-03_rb,0.87598e-02_rb,0.11933e-01_rb,0.12660e-01_rb,0.88388e-02_rb /)\n      kbo(:, 1,20, 5) = (/ &\n        & 0.33304e-03_rb,0.54623e-02_rb,0.79028e-02_rb,0.89960e-02_rb,0.62635e-02_rb /)\n      kbo(:, 2,20, 5) = (/ &\n        & 0.39553e-03_rb,0.59055e-02_rb,0.84155e-02_rb,0.94111e-02_rb,0.65613e-02_rb /)\n      kbo(:, 3,20, 5) = (/ &\n        & 0.47180e-03_rb,0.63779e-02_rb,0.89500e-02_rb,0.98172e-02_rb,0.68459e-02_rb /)\n      kbo(:, 4,20, 5) = (/ &\n        & 0.56453e-03_rb,0.68862e-02_rb,0.95048e-02_rb,0.10225e-01_rb,0.71246e-02_rb /)\n      kbo(:, 5,20, 5) = (/ &\n        & 0.67486e-03_rb,0.74411e-02_rb,0.10082e-01_rb,0.10637e-01_rb,0.73786e-02_rb /)\n      kbo(:, 1,21, 5) = (/ &\n        & 0.28693e-03_rb,0.46180e-02_rb,0.66504e-02_rb,0.75379e-02_rb,0.52071e-02_rb /)\n      kbo(:, 2,21, 5) = (/ &\n        & 0.34180e-03_rb,0.49948e-02_rb,0.70898e-02_rb,0.78866e-02_rb,0.54645e-02_rb /)\n      kbo(:, 3,21, 5) = (/ &\n        & 0.40811e-03_rb,0.54006e-02_rb,0.75474e-02_rb,0.82331e-02_rb,0.57127e-02_rb /)\n      kbo(:, 4,21, 5) = (/ &\n        & 0.48873e-03_rb,0.58434e-02_rb,0.80212e-02_rb,0.85844e-02_rb,0.59470e-02_rb /)\n      kbo(:, 5,21, 5) = (/ &\n        & 0.58593e-03_rb,0.63260e-02_rb,0.85182e-02_rb,0.89408e-02_rb,0.61662e-02_rb /)\n      kbo(:, 1,22, 5) = (/ &\n        & 0.24974e-03_rb,0.39240e-02_rb,0.56208e-02_rb,0.63345e-02_rb,0.43431e-02_rb /)\n      kbo(:, 2,22, 5) = (/ &\n        & 0.29749e-03_rb,0.42526e-02_rb,0.59996e-02_rb,0.66266e-02_rb,0.45624e-02_rb /)\n      kbo(:, 3,22, 5) = (/ &\n        & 0.35608e-03_rb,0.46047e-02_rb,0.63919e-02_rb,0.69259e-02_rb,0.47738e-02_rb /)\n      kbo(:, 4,22, 5) = (/ &\n        & 0.42699e-03_rb,0.49920e-02_rb,0.67993e-02_rb,0.72276e-02_rb,0.49714e-02_rb /)\n      kbo(:, 5,22, 5) = (/ &\n        & 0.51198e-03_rb,0.54166e-02_rb,0.72302e-02_rb,0.75387e-02_rb,0.51660e-02_rb /)\n      kbo(:, 1,23, 5) = (/ &\n        & 0.21716e-03_rb,0.33375e-02_rb,0.47528e-02_rb,0.53238e-02_rb,0.36258e-02_rb /)\n      kbo(:, 2,23, 5) = (/ &\n        & 0.25886e-03_rb,0.36243e-02_rb,0.50797e-02_rb,0.55740e-02_rb,0.38107e-02_rb /)\n      kbo(:, 3,23, 5) = (/ &\n        & 0.31026e-03_rb,0.39353e-02_rb,0.54169e-02_rb,0.58309e-02_rb,0.39876e-02_rb /)\n      kbo(:, 4,23, 5) = (/ &\n        & 0.37235e-03_rb,0.42757e-02_rb,0.57711e-02_rb,0.60911e-02_rb,0.41586e-02_rb /)\n      kbo(:, 5,23, 5) = (/ &\n        & 0.44568e-03_rb,0.46463e-02_rb,0.61476e-02_rb,0.63633e-02_rb,0.43277e-02_rb /)\n      kbo(:, 1,24, 5) = (/ &\n        & 0.18738e-03_rb,0.28412e-02_rb,0.40251e-02_rb,0.44754e-02_rb,0.30232e-02_rb /)\n      kbo(:, 2,24, 5) = (/ &\n        & 0.22422e-03_rb,0.30930e-02_rb,0.43062e-02_rb,0.46921e-02_rb,0.31788e-02_rb /)\n      kbo(:, 3,24, 5) = (/ &\n        & 0.26942e-03_rb,0.33694e-02_rb,0.45983e-02_rb,0.49126e-02_rb,0.33287e-02_rb /)\n      kbo(:, 4,24, 5) = (/ &\n        & 0.32317e-03_rb,0.36702e-02_rb,0.49092e-02_rb,0.51393e-02_rb,0.34771e-02_rb /)\n      kbo(:, 5,24, 5) = (/ &\n        & 0.38638e-03_rb,0.39951e-02_rb,0.52385e-02_rb,0.53815e-02_rb,0.36232e-02_rb /)\n      kbo(:, 1,25, 5) = (/ &\n        & 0.16224e-03_rb,0.24232e-02_rb,0.34141e-02_rb,0.37661e-02_rb,0.25262e-02_rb /)\n      kbo(:, 2,25, 5) = (/ &\n        & 0.19465e-03_rb,0.26463e-02_rb,0.36575e-02_rb,0.39541e-02_rb,0.26577e-02_rb /)\n      kbo(:, 3,25, 5) = (/ &\n        & 0.23391e-03_rb,0.28936e-02_rb,0.39130e-02_rb,0.41446e-02_rb,0.27841e-02_rb /)\n      kbo(:, 4,25, 5) = (/ &\n        & 0.28044e-03_rb,0.31598e-02_rb,0.41853e-02_rb,0.43442e-02_rb,0.29098e-02_rb /)\n      kbo(:, 5,25, 5) = (/ &\n        & 0.33483e-03_rb,0.34437e-02_rb,0.44735e-02_rb,0.45625e-02_rb,0.30351e-02_rb /)\n      kbo(:, 1,26, 5) = (/ &\n        & 0.14132e-03_rb,0.20737e-02_rb,0.29036e-02_rb,0.31762e-02_rb,0.21157e-02_rb /)\n      kbo(:, 2,26, 5) = (/ &\n        & 0.16977e-03_rb,0.22743e-02_rb,0.31152e-02_rb,0.33382e-02_rb,0.22258e-02_rb /)\n      kbo(:, 3,26, 5) = (/ &\n        & 0.20409e-03_rb,0.24947e-02_rb,0.33401e-02_rb,0.35048e-02_rb,0.23338e-02_rb /)\n      kbo(:, 4,26, 5) = (/ &\n        & 0.24472e-03_rb,0.27297e-02_rb,0.35798e-02_rb,0.36835e-02_rb,0.24421e-02_rb /)\n      kbo(:, 5,26, 5) = (/ &\n        & 0.29131e-03_rb,0.29804e-02_rb,0.38308e-02_rb,0.38797e-02_rb,0.25500e-02_rb /)\n      kbo(:, 1,27, 5) = (/ &\n        & 0.12293e-03_rb,0.17797e-02_rb,0.24725e-02_rb,0.26822e-02_rb,0.17718e-02_rb /)\n      kbo(:, 2,27, 5) = (/ &\n        & 0.14789e-03_rb,0.19595e-02_rb,0.26584e-02_rb,0.28222e-02_rb,0.18655e-02_rb /)\n      kbo(:, 3,27, 5) = (/ &\n        & 0.17790e-03_rb,0.21552e-02_rb,0.28584e-02_rb,0.29695e-02_rb,0.19589e-02_rb /)\n      kbo(:, 4,27, 5) = (/ &\n        & 0.21315e-03_rb,0.23624e-02_rb,0.30688e-02_rb,0.31309e-02_rb,0.20520e-02_rb /)\n      kbo(:, 5,27, 5) = (/ &\n        & 0.25285e-03_rb,0.25825e-02_rb,0.32876e-02_rb,0.33068e-02_rb,0.21445e-02_rb /)\n      kbo(:, 1,28, 5) = (/ &\n        & 0.10657e-03_rb,0.15319e-02_rb,0.21096e-02_rb,0.22678e-02_rb,0.14844e-02_rb /)\n      kbo(:, 2,28, 5) = (/ &\n        & 0.12856e-03_rb,0.16920e-02_rb,0.22743e-02_rb,0.23899e-02_rb,0.15639e-02_rb /)\n      kbo(:, 3,28, 5) = (/ &\n        & 0.15471e-03_rb,0.18636e-02_rb,0.24511e-02_rb,0.25221e-02_rb,0.16436e-02_rb /)\n      kbo(:, 4,28, 5) = (/ &\n        & 0.18512e-03_rb,0.20472e-02_rb,0.26364e-02_rb,0.26681e-02_rb,0.17238e-02_rb /)\n      kbo(:, 5,28, 5) = (/ &\n        & 0.21872e-03_rb,0.22411e-02_rb,0.28270e-02_rb,0.28260e-02_rb,0.18048e-02_rb /)\n      kbo(:, 1,29, 5) = (/ &\n        & 0.92876e-04_rb,0.13237e-02_rb,0.18049e-02_rb,0.19214e-02_rb,0.12471e-02_rb /)\n      kbo(:, 2,29, 5) = (/ &\n        & 0.11226e-03_rb,0.14659e-02_rb,0.19518e-02_rb,0.20295e-02_rb,0.13143e-02_rb /)\n      kbo(:, 3,29, 5) = (/ &\n        & 0.13519e-03_rb,0.16171e-02_rb,0.21089e-02_rb,0.21498e-02_rb,0.13833e-02_rb /)\n      kbo(:, 4,29, 5) = (/ &\n        & 0.16102e-03_rb,0.17778e-02_rb,0.22703e-02_rb,0.22810e-02_rb,0.14528e-02_rb /)\n      kbo(:, 5,29, 5) = (/ &\n        & 0.18981e-03_rb,0.19484e-02_rb,0.24374e-02_rb,0.24249e-02_rb,0.15236e-02_rb /)\n      kbo(:, 1,30, 5) = (/ &\n        & 0.80828e-04_rb,0.11471e-02_rb,0.15486e-02_rb,0.16307e-02_rb,0.10482e-02_rb /)\n      kbo(:, 2,30, 5) = (/ &\n        & 0.98063e-04_rb,0.12718e-02_rb,0.16797e-02_rb,0.17287e-02_rb,0.11053e-02_rb /)\n      kbo(:, 3,30, 5) = (/ &\n        & 0.11772e-03_rb,0.14050e-02_rb,0.18177e-02_rb,0.18379e-02_rb,0.11648e-02_rb /)\n      kbo(:, 4,30, 5) = (/ &\n        & 0.13981e-03_rb,0.15469e-02_rb,0.19589e-02_rb,0.19565e-02_rb,0.12258e-02_rb /)\n      kbo(:, 5,30, 5) = (/ &\n        & 0.16446e-03_rb,0.16947e-02_rb,0.21055e-02_rb,0.20874e-02_rb,0.12885e-02_rb /)\n      kbo(:, 1,31, 5) = (/ &\n        & 0.70539e-04_rb,0.99621e-03_rb,0.13325e-02_rb,0.13879e-02_rb,0.88220e-03_rb /)\n      kbo(:, 2,31, 5) = (/ &\n        & 0.85589e-04_rb,0.11063e-02_rb,0.14492e-02_rb,0.14776e-02_rb,0.93113e-03_rb /)\n      kbo(:, 3,31, 5) = (/ &\n        & 0.10244e-03_rb,0.12240e-02_rb,0.15701e-02_rb,0.15764e-02_rb,0.98237e-03_rb /)\n      kbo(:, 4,31, 5) = (/ &\n        & 0.12151e-03_rb,0.13488e-02_rb,0.16942e-02_rb,0.16846e-02_rb,0.10364e-02_rb /)\n      kbo(:, 5,31, 5) = (/ &\n        & 0.14245e-03_rb,0.14753e-02_rb,0.18229e-02_rb,0.18042e-02_rb,0.10910e-02_rb /)\n      kbo(:, 1,32, 5) = (/ &\n        & 0.61598e-04_rb,0.86708e-03_rb,0.11506e-02_rb,0.11857e-02_rb,0.74396e-03_rb /)\n      kbo(:, 2,32, 5) = (/ &\n        & 0.74698e-04_rb,0.96443e-03_rb,0.12533e-02_rb,0.12673e-02_rb,0.78590e-03_rb /)\n      kbo(:, 3,32, 5) = (/ &\n        & 0.89092e-04_rb,0.10684e-02_rb,0.13590e-02_rb,0.13571e-02_rb,0.83090e-03_rb /)\n      kbo(:, 4,32, 5) = (/ &\n        & 0.10537e-03_rb,0.11766e-02_rb,0.14682e-02_rb,0.14560e-02_rb,0.87827e-03_rb /)\n      kbo(:, 5,32, 5) = (/ &\n        & 0.12327e-03_rb,0.12850e-02_rb,0.15813e-02_rb,0.15643e-02_rb,0.92599e-03_rb /)\n      kbo(:, 1,33, 5) = (/ &\n        & 0.53748e-04_rb,0.75629e-03_rb,0.99595e-03_rb,0.10163e-02_rb,0.62809e-03_rb /)\n      kbo(:, 2,33, 5) = (/ &\n        & 0.64972e-04_rb,0.84265e-03_rb,0.10856e-02_rb,0.10908e-02_rb,0.66416e-03_rb /)\n      kbo(:, 3,33, 5) = (/ &\n        & 0.77386e-04_rb,0.93397e-03_rb,0.11787e-02_rb,0.11727e-02_rb,0.70387e-03_rb /)\n      kbo(:, 4,33, 5) = (/ &\n        & 0.91138e-04_rb,0.10266e-02_rb,0.12749e-02_rb,0.12630e-02_rb,0.74507e-03_rb /)\n      kbo(:, 5,33, 5) = (/ &\n        & 0.10640e-03_rb,0.11189e-02_rb,0.13738e-02_rb,0.13608e-02_rb,0.78830e-03_rb /)\n      kbo(:, 1,34, 5) = (/ &\n        & 0.46667e-04_rb,0.65884e-03_rb,0.86049e-03_rb,0.87214e-03_rb,0.53099e-03_rb /)\n      kbo(:, 2,34, 5) = (/ &\n        & 0.56263e-04_rb,0.73490e-03_rb,0.93900e-03_rb,0.93946e-03_rb,0.56278e-03_rb /)\n      kbo(:, 3,34, 5) = (/ &\n        & 0.66853e-04_rb,0.81383e-03_rb,0.10209e-02_rb,0.10142e-02_rb,0.59776e-03_rb /)\n      kbo(:, 4,34, 5) = (/ &\n        & 0.78598e-04_rb,0.89314e-03_rb,0.11054e-02_rb,0.10963e-02_rb,0.63419e-03_rb /)\n      kbo(:, 5,34, 5) = (/ &\n        & 0.91503e-04_rb,0.97193e-03_rb,0.11927e-02_rb,0.11840e-02_rb,0.67320e-03_rb /)\n      kbo(:, 1,35, 5) = (/ &\n        & 0.39599e-04_rb,0.56866e-03_rb,0.73803e-03_rb,0.74491e-03_rb,0.44688e-03_rb /)\n      kbo(:, 2,35, 5) = (/ &\n        & 0.47677e-04_rb,0.63490e-03_rb,0.80685e-03_rb,0.80540e-03_rb,0.47466e-03_rb /)\n      kbo(:, 3,35, 5) = (/ &\n        & 0.56630e-04_rb,0.70279e-03_rb,0.87860e-03_rb,0.87332e-03_rb,0.50476e-03_rb /)\n      kbo(:, 4,35, 5) = (/ &\n        & 0.66506e-04_rb,0.77061e-03_rb,0.95262e-03_rb,0.94676e-03_rb,0.53730e-03_rb /)\n      kbo(:, 5,35, 5) = (/ &\n        & 0.77343e-04_rb,0.83870e-03_rb,0.10295e-02_rb,0.10250e-02_rb,0.57200e-03_rb /)\n      kbo(:, 1,36, 5) = (/ &\n        & 0.32767e-04_rb,0.48523e-03_rb,0.62751e-03_rb,0.63183e-03_rb,0.37353e-03_rb /)\n      kbo(:, 2,36, 5) = (/ &\n        & 0.39450e-04_rb,0.54261e-03_rb,0.68744e-03_rb,0.68587e-03_rb,0.39744e-03_rb /)\n      kbo(:, 3,36, 5) = (/ &\n        & 0.46861e-04_rb,0.60093e-03_rb,0.74977e-03_rb,0.74623e-03_rb,0.42315e-03_rb /)\n      kbo(:, 4,36, 5) = (/ &\n        & 0.54956e-04_rb,0.65916e-03_rb,0.81469e-03_rb,0.81158e-03_rb,0.45144e-03_rb /)\n      kbo(:, 5,36, 5) = (/ &\n        & 0.63908e-04_rb,0.71820e-03_rb,0.88212e-03_rb,0.88103e-03_rb,0.48165e-03_rb /)\n      kbo(:, 1,37, 5) = (/ &\n        & 0.26734e-04_rb,0.40754e-03_rb,0.52645e-03_rb,0.53014e-03_rb,0.31118e-03_rb /)\n      kbo(:, 2,37, 5) = (/ &\n        & 0.32273e-04_rb,0.45661e-03_rb,0.57825e-03_rb,0.57766e-03_rb,0.33206e-03_rb /)\n      kbo(:, 3,37, 5) = (/ &\n        & 0.38488e-04_rb,0.50697e-03_rb,0.63245e-03_rb,0.63058e-03_rb,0.35476e-03_rb /)\n      kbo(:, 4,37, 5) = (/ &\n        & 0.45228e-04_rb,0.55706e-03_rb,0.68918e-03_rb,0.68809e-03_rb,0.37944e-03_rb /)\n      kbo(:, 5,37, 5) = (/ &\n        & 0.52675e-04_rb,0.60808e-03_rb,0.74794e-03_rb,0.74934e-03_rb,0.40598e-03_rb /)\n      kbo(:, 1,38, 5) = (/ &\n        & 0.21751e-04_rb,0.34209e-03_rb,0.44146e-03_rb,0.44458e-03_rb,0.25920e-03_rb /)\n      kbo(:, 2,38, 5) = (/ &\n        & 0.26326e-04_rb,0.38415e-03_rb,0.48603e-03_rb,0.48632e-03_rb,0.27730e-03_rb /)\n      kbo(:, 3,38, 5) = (/ &\n        & 0.31515e-04_rb,0.42736e-03_rb,0.53325e-03_rb,0.53262e-03_rb,0.29714e-03_rb /)\n      kbo(:, 4,38, 5) = (/ &\n        & 0.37219e-04_rb,0.47064e-03_rb,0.58263e-03_rb,0.58321e-03_rb,0.31890e-03_rb /)\n      kbo(:, 5,38, 5) = (/ &\n        & 0.43344e-04_rb,0.51493e-03_rb,0.63402e-03_rb,0.63729e-03_rb,0.34212e-03_rb /)\n      kbo(:, 1,39, 5) = (/ &\n        & 0.17643e-04_rb,0.28717e-03_rb,0.37020e-03_rb,0.37288e-03_rb,0.21580e-03_rb /)\n      kbo(:, 2,39, 5) = (/ &\n        & 0.21418e-04_rb,0.32343e-03_rb,0.40871e-03_rb,0.40953e-03_rb,0.23151e-03_rb /)\n      kbo(:, 3,39, 5) = (/ &\n        & 0.25725e-04_rb,0.36044e-03_rb,0.44966e-03_rb,0.45005e-03_rb,0.24880e-03_rb /)\n      kbo(:, 4,39, 5) = (/ &\n        & 0.30479e-04_rb,0.39785e-03_rb,0.49263e-03_rb,0.49445e-03_rb,0.26783e-03_rb /)\n      kbo(:, 5,39, 5) = (/ &\n        & 0.35653e-04_rb,0.43646e-03_rb,0.53771e-03_rb,0.54230e-03_rb,0.28822e-03_rb /)\n      kbo(:, 1,40, 5) = (/ &\n        & 0.14102e-04_rb,0.23814e-03_rb,0.30730e-03_rb,0.30981e-03_rb,0.17864e-03_rb /)\n      kbo(:, 2,40, 5) = (/ &\n        & 0.17187e-04_rb,0.26934e-03_rb,0.34039e-03_rb,0.34146e-03_rb,0.19234e-03_rb /)\n      kbo(:, 3,40, 5) = (/ &\n        & 0.20739e-04_rb,0.30130e-03_rb,0.37571e-03_rb,0.37672e-03_rb,0.20737e-03_rb /)\n      kbo(:, 4,40, 5) = (/ &\n        & 0.24670e-04_rb,0.33333e-03_rb,0.41283e-03_rb,0.41538e-03_rb,0.22408e-03_rb /)\n      kbo(:, 5,40, 5) = (/ &\n        & 0.29046e-04_rb,0.36694e-03_rb,0.45216e-03_rb,0.45729e-03_rb,0.24187e-03_rb /)\n      kbo(:, 1,41, 5) = (/ &\n        & 0.11221e-04_rb,0.19710e-03_rb,0.25465e-03_rb,0.25696e-03_rb,0.14773e-03_rb /)\n      kbo(:, 2,41, 5) = (/ &\n        & 0.13747e-04_rb,0.22390e-03_rb,0.28305e-03_rb,0.28413e-03_rb,0.15955e-03_rb /)\n      kbo(:, 3,41, 5) = (/ &\n        & 0.16649e-04_rb,0.25145e-03_rb,0.31346e-03_rb,0.31467e-03_rb,0.17269e-03_rb /)\n      kbo(:, 4,41, 5) = (/ &\n        & 0.19899e-04_rb,0.27935e-03_rb,0.34563e-03_rb,0.34845e-03_rb,0.18718e-03_rb /)\n      kbo(:, 5,41, 5) = (/ &\n        & 0.23568e-04_rb,0.30830e-03_rb,0.37974e-03_rb,0.38512e-03_rb,0.20281e-03_rb /)\n      kbo(:, 1,42, 5) = (/ &\n        & 0.89147e-05_rb,0.16314e-03_rb,0.21088e-03_rb,0.21294e-03_rb,0.12205e-03_rb /)\n      kbo(:, 2,42, 5) = (/ &\n        & 0.10957e-04_rb,0.18596e-03_rb,0.23523e-03_rb,0.23628e-03_rb,0.13225e-03_rb /)\n      kbo(:, 3,42, 5) = (/ &\n        & 0.13327e-04_rb,0.20974e-03_rb,0.26134e-03_rb,0.26263e-03_rb,0.14356e-03_rb /)\n      kbo(:, 4,42, 5) = (/ &\n        & 0.16005e-04_rb,0.23378e-03_rb,0.28925e-03_rb,0.29202e-03_rb,0.15621e-03_rb /)\n      kbo(:, 5,42, 5) = (/ &\n        & 0.19038e-04_rb,0.25914e-03_rb,0.31897e-03_rb,0.32415e-03_rb,0.16982e-03_rb /)\n      kbo(:, 1,43, 5) = (/ &\n        & 0.69995e-05_rb,0.13405e-03_rb,0.17338e-03_rb,0.17535e-03_rb,0.10036e-03_rb /)\n      kbo(:, 2,43, 5) = (/ &\n        & 0.86406e-05_rb,0.15345e-03_rb,0.19416e-03_rb,0.19514e-03_rb,0.10910e-03_rb /)\n      kbo(:, 3,43, 5) = (/ &\n        & 0.10556e-04_rb,0.17373e-03_rb,0.21659e-03_rb,0.21767e-03_rb,0.11887e-03_rb /)\n      kbo(:, 4,43, 5) = (/ &\n        & 0.12739e-04_rb,0.19445e-03_rb,0.24053e-03_rb,0.24311e-03_rb,0.12980e-03_rb /)\n      kbo(:, 5,43, 5) = (/ &\n        & 0.15232e-04_rb,0.21640e-03_rb,0.26645e-03_rb,0.27107e-03_rb,0.14169e-03_rb /)\n      kbo(:, 1,44, 5) = (/ &\n        & 0.54712e-05_rb,0.10970e-03_rb,0.14195e-03_rb,0.14386e-03_rb,0.82260e-04_rb /)\n      kbo(:, 2,44, 5) = (/ &\n        & 0.67644e-05_rb,0.12612e-03_rb,0.15963e-03_rb,0.16061e-03_rb,0.89727e-04_rb /)\n      kbo(:, 3,44, 5) = (/ &\n        & 0.82973e-05_rb,0.14348e-03_rb,0.17878e-03_rb,0.17975e-03_rb,0.98122e-04_rb /)\n      kbo(:, 4,44, 5) = (/ &\n        & 0.10082e-04_rb,0.16132e-03_rb,0.19952e-03_rb,0.20155e-03_rb,0.10755e-03_rb /)\n      kbo(:, 5,44, 5) = (/ &\n        & 0.12107e-04_rb,0.18008e-03_rb,0.22179e-03_rb,0.22576e-03_rb,0.11787e-03_rb /)\n      kbo(:, 1,45, 5) = (/ &\n        & 0.42767e-05_rb,0.89680e-04_rb,0.11611e-03_rb,0.11781e-03_rb,0.67338e-04_rb /)\n      kbo(:, 2,45, 5) = (/ &\n        & 0.52860e-05_rb,0.10360e-03_rb,0.13107e-03_rb,0.13203e-03_rb,0.73722e-04_rb /)\n      kbo(:, 3,45, 5) = (/ &\n        & 0.65107e-05_rb,0.11838e-03_rb,0.14735e-03_rb,0.14829e-03_rb,0.80852e-04_rb /)\n      kbo(:, 4,45, 5) = (/ &\n        & 0.79501e-05_rb,0.13374e-03_rb,0.16520e-03_rb,0.16693e-03_rb,0.88969e-04_rb /)\n      kbo(:, 5,45, 5) = (/ &\n        & 0.95937e-05_rb,0.14993e-03_rb,0.18456e-03_rb,0.18781e-03_rb,0.97897e-04_rb /)\n      kbo(:, 1,46, 5) = (/ &\n        & 0.33226e-05_rb,0.72918e-04_rb,0.94635e-04_rb,0.96069e-04_rb,0.54912e-04_rb /)\n      kbo(:, 2,46, 5) = (/ &\n        & 0.41185e-05_rb,0.84705e-04_rb,0.10726e-03_rb,0.10809e-03_rb,0.60325e-04_rb /)\n      kbo(:, 3,46, 5) = (/ &\n        & 0.50796e-05_rb,0.97414e-04_rb,0.12106e-03_rb,0.12184e-03_rb,0.66415e-04_rb /)\n      kbo(:, 4,46, 5) = (/ &\n        & 0.62311e-05_rb,0.11055e-03_rb,0.13625e-03_rb,0.13772e-03_rb,0.73354e-04_rb /)\n      kbo(:, 5,46, 5) = (/ &\n        & 0.75594e-05_rb,0.12439e-03_rb,0.15297e-03_rb,0.15569e-03_rb,0.80972e-04_rb /)\n      kbo(:, 1,47, 5) = (/ &\n        & 0.25507e-05_rb,0.58753e-04_rb,0.76599e-04_rb,0.77798e-04_rb,0.44508e-04_rb /)\n      kbo(:, 2,47, 5) = (/ &\n        & 0.31800e-05_rb,0.68679e-04_rb,0.87240e-04_rb,0.87843e-04_rb,0.49115e-04_rb /)\n      kbo(:, 3,47, 5) = (/ &\n        & 0.39273e-05_rb,0.79497e-04_rb,0.98871e-04_rb,0.99421e-04_rb,0.54249e-04_rb /)\n      kbo(:, 4,47, 5) = (/ &\n        & 0.48346e-05_rb,0.90782e-04_rb,0.11173e-03_rb,0.11282e-03_rb,0.60113e-04_rb /)\n      kbo(:, 5,47, 5) = (/ &\n        & 0.58995e-05_rb,0.10267e-03_rb,0.12592e-03_rb,0.12815e-03_rb,0.66656e-04_rb /)\n      kbo(:, 1,48, 5) = (/ &\n        & 0.19539e-05_rb,0.47174e-04_rb,0.61874e-04_rb,0.62916e-04_rb,0.35973e-04_rb /)\n      kbo(:, 2,48, 5) = (/ &\n        & 0.24452e-05_rb,0.55575e-04_rb,0.70853e-04_rb,0.71238e-04_rb,0.39898e-04_rb /)\n      kbo(:, 3,48, 5) = (/ &\n        & 0.30402e-05_rb,0.64783e-04_rb,0.80633e-04_rb,0.80921e-04_rb,0.44214e-04_rb /)\n      kbo(:, 4,48, 5) = (/ &\n        & 0.37390e-05_rb,0.74439e-04_rb,0.91498e-04_rb,0.92208e-04_rb,0.49162e-04_rb /)\n      kbo(:, 5,48, 5) = (/ &\n        & 0.45836e-05_rb,0.84608e-04_rb,0.10358e-03_rb,0.10531e-03_rb,0.54702e-04_rb /)\n      kbo(:, 1,49, 5) = (/ &\n        & 0.14940e-05_rb,0.37716e-04_rb,0.49829e-04_rb,0.50804e-04_rb,0.28987e-04_rb /)\n      kbo(:, 2,49, 5) = (/ &\n        & 0.18758e-05_rb,0.44777e-04_rb,0.57392e-04_rb,0.57697e-04_rb,0.32317e-04_rb /)\n      kbo(:, 3,49, 5) = (/ &\n        & 0.23413e-05_rb,0.52604e-04_rb,0.65608e-04_rb,0.65748e-04_rb,0.35946e-04_rb /)\n      kbo(:, 4,49, 5) = (/ &\n        & 0.28961e-05_rb,0.60891e-04_rb,0.74824e-04_rb,0.75182e-04_rb,0.40099e-04_rb /)\n      kbo(:, 5,49, 5) = (/ &\n        & 0.35524e-05_rb,0.69587e-04_rb,0.85068e-04_rb,0.86295e-04_rb,0.44804e-04_rb /)\n      kbo(:, 1,50, 5) = (/ &\n        & 0.11500e-05_rb,0.30169e-04_rb,0.40157e-04_rb,0.41069e-04_rb,0.23362e-04_rb /)\n      kbo(:, 2,50, 5) = (/ &\n        & 0.14453e-05_rb,0.36089e-04_rb,0.46549e-04_rb,0.46799e-04_rb,0.26193e-04_rb /)\n      kbo(:, 3,50, 5) = (/ &\n        & 0.18129e-05_rb,0.42735e-04_rb,0.53474e-04_rb,0.53514e-04_rb,0.29249e-04_rb /)\n      kbo(:, 4,50, 5) = (/ &\n        & 0.22529e-05_rb,0.49843e-04_rb,0.61234e-04_rb,0.61404e-04_rb,0.32748e-04_rb /)\n      kbo(:, 5,50, 5) = (/ &\n        & 0.27762e-05_rb,0.57328e-04_rb,0.70027e-04_rb,0.70783e-04_rb,0.36712e-04_rb /)\n      kbo(:, 1,51, 5) = (/ &\n        & 0.88851e-06_rb,0.24095e-04_rb,0.32303e-04_rb,0.33210e-04_rb,0.18805e-04_rb /)\n      kbo(:, 2,51, 5) = (/ &\n        & 0.11177e-05_rb,0.29082e-04_rb,0.37705e-04_rb,0.37944e-04_rb,0.21209e-04_rb /)\n      kbo(:, 3,51, 5) = (/ &\n        & 0.14060e-05_rb,0.34667e-04_rb,0.43578e-04_rb,0.43570e-04_rb,0.23792e-04_rb /)\n      kbo(:, 4,51, 5) = (/ &\n        & 0.17539e-05_rb,0.40739e-04_rb,0.50114e-04_rb,0.50172e-04_rb,0.26720e-04_rb /)\n      kbo(:, 5,51, 5) = (/ &\n        & 0.21729e-05_rb,0.47224e-04_rb,0.57598e-04_rb,0.58070e-04_rb,0.30079e-04_rb /)\n      kbo(:, 1,52, 5) = (/ &\n        & 0.68525e-06_rb,0.19178e-04_rb,0.25896e-04_rb,0.26809e-04_rb,0.15097e-04_rb /)\n      kbo(:, 2,52, 5) = (/ &\n        & 0.86301e-06_rb,0.23336e-04_rb,0.30434e-04_rb,0.30713e-04_rb,0.17120e-04_rb /)\n      kbo(:, 3,52, 5) = (/ &\n        & 0.10889e-05_rb,0.28028e-04_rb,0.35422e-04_rb,0.35397e-04_rb,0.19301e-04_rb /)\n      kbo(:, 4,52, 5) = (/ &\n        & 0.13649e-05_rb,0.33187e-04_rb,0.40954e-04_rb,0.40921e-04_rb,0.21752e-04_rb /)\n      kbo(:, 5,52, 5) = (/ &\n        & 0.16982e-05_rb,0.38747e-04_rb,0.47260e-04_rb,0.47557e-04_rb,0.24588e-04_rb /)\n      kbo(:, 1,53, 5) = (/ &\n        & 0.52809e-06_rb,0.15206e-04_rb,0.20688e-04_rb,0.21592e-04_rb,0.12084e-04_rb /)\n      kbo(:, 2,53, 5) = (/ &\n        & 0.66493e-06_rb,0.18647e-04_rb,0.24479e-04_rb,0.24819e-04_rb,0.13781e-04_rb /)\n      kbo(:, 3,53, 5) = (/ &\n        & 0.84102e-06_rb,0.22574e-04_rb,0.28683e-04_rb,0.28690e-04_rb,0.15621e-04_rb /)\n      kbo(:, 4,53, 5) = (/ &\n        & 0.10585e-05_rb,0.26955e-04_rb,0.33364e-04_rb,0.33298e-04_rb,0.17677e-04_rb /)\n      kbo(:, 5,53, 5) = (/ &\n        & 0.13239e-05_rb,0.31710e-04_rb,0.38733e-04_rb,0.38864e-04_rb,0.20049e-04_rb /)\n      kbo(:, 1,54, 5) = (/ &\n        & 0.40969e-06_rb,0.12093e-04_rb,0.16564e-04_rb,0.17421e-04_rb,0.96882e-05_rb /)\n      kbo(:, 2,54, 5) = (/ &\n        & 0.51569e-06_rb,0.14937e-04_rb,0.19734e-04_rb,0.20094e-04_rb,0.11112e-04_rb /)\n      kbo(:, 3,54, 5) = (/ &\n        & 0.65296e-06_rb,0.18229e-04_rb,0.23282e-04_rb,0.23321e-04_rb,0.12664e-04_rb /)\n      kbo(:, 4,54, 5) = (/ &\n        & 0.82573e-06_rb,0.21950e-04_rb,0.27231e-04_rb,0.27150e-04_rb,0.14393e-04_rb /)\n      kbo(:, 5,54, 5) = (/ &\n        & 0.10373e-05_rb,0.26013e-04_rb,0.31791e-04_rb,0.31828e-04_rb,0.16379e-04_rb /)\n      kbo(:, 1,55, 5) = (/ &\n        & 0.31928e-06_rb,0.96162e-05_rb,0.13257e-04_rb,0.14053e-04_rb,0.77741e-05_rb /)\n      kbo(:, 2,55, 5) = (/ &\n        & 0.40112e-06_rb,0.11963e-04_rb,0.15906e-04_rb,0.16257e-04_rb,0.89578e-05_rb /)\n      kbo(:, 3,55, 5) = (/ &\n        & 0.50816e-06_rb,0.14717e-04_rb,0.18886e-04_rb,0.18947e-04_rb,0.10262e-04_rb /)\n      kbo(:, 4,55, 5) = (/ &\n        & 0.64465e-06_rb,0.17864e-04_rb,0.22207e-04_rb,0.22155e-04_rb,0.11715e-04_rb /)\n      kbo(:, 5,55, 5) = (/ &\n        & 0.81328e-06_rb,0.21326e-04_rb,0.26076e-04_rb,0.26061e-04_rb,0.13376e-04_rb /)\n      kbo(:, 1,56, 5) = (/ &\n        & 0.24829e-06_rb,0.76204e-05_rb,0.10578e-04_rb,0.11309e-04_rb,0.62208e-05_rb /)\n      kbo(:, 2,56, 5) = (/ &\n        & 0.31176e-06_rb,0.95488e-05_rb,0.12780e-04_rb,0.13125e-04_rb,0.72013e-05_rb /)\n      kbo(:, 3,56, 5) = (/ &\n        & 0.39506e-06_rb,0.11850e-04_rb,0.15279e-04_rb,0.15348e-04_rb,0.82947e-05_rb /)\n      kbo(:, 4,56, 5) = (/ &\n        & 0.50266e-06_rb,0.14492e-04_rb,0.18074e-04_rb,0.18040e-04_rb,0.95153e-05_rb /)\n      kbo(:, 5,56, 5) = (/ &\n        & 0.63638e-06_rb,0.17442e-04_rb,0.21336e-04_rb,0.21310e-04_rb,0.10904e-04_rb /)\n      kbo(:, 1,57, 5) = (/ &\n        & 0.19302e-06_rb,0.60187e-05_rb,0.84162e-05_rb,0.90799e-05_rb,0.49649e-05_rb /)\n      kbo(:, 2,57, 5) = (/ &\n        & 0.24222e-06_rb,0.75959e-05_rb,0.10233e-04_rb,0.10570e-04_rb,0.57701e-05_rb /)\n      kbo(:, 3,57, 5) = (/ &\n        & 0.30688e-06_rb,0.95080e-05_rb,0.12318e-04_rb,0.12403e-04_rb,0.66913e-05_rb /)\n      kbo(:, 4,57, 5) = (/ &\n        & 0.39089e-06_rb,0.11719e-04_rb,0.14670e-04_rb,0.14644e-04_rb,0.77166e-05_rb /)\n      kbo(:, 5,57, 5) = (/ &\n        & 0.49674e-06_rb,0.14214e-04_rb,0.17402e-04_rb,0.17382e-04_rb,0.88727e-05_rb /)\n      kbo(:, 1,58, 5) = (/ &\n        & 0.15046e-06_rb,0.47663e-05_rb,0.66998e-05_rb,0.72908e-05_rb,0.39631e-05_rb /)\n      kbo(:, 2,58, 5) = (/ &\n        & 0.18856e-06_rb,0.60459e-05_rb,0.81908e-05_rb,0.85206e-05_rb,0.46270e-05_rb /)\n      kbo(:, 3,58, 5) = (/ &\n        & 0.23869e-06_rb,0.76302e-05_rb,0.99245e-05_rb,0.10023e-04_rb,0.53977e-05_rb /)\n      kbo(:, 4,58, 5) = (/ &\n        & 0.30459e-06_rb,0.94767e-05_rb,0.11911e-04_rb,0.11894e-04_rb,0.62579e-05_rb /)\n      kbo(:, 5,58, 5) = (/ &\n        & 0.38820e-06_rb,0.11588e-04_rb,0.14205e-04_rb,0.14182e-04_rb,0.72226e-05_rb /)\n      kbo(:, 1,59, 5) = (/ &\n        & 0.12212e-06_rb,0.39332e-05_rb,0.55230e-05_rb,0.60094e-05_rb,0.32499e-05_rb /)\n      kbo(:, 2,59, 5) = (/ &\n        & 0.15324e-06_rb,0.50178e-05_rb,0.67879e-05_rb,0.70566e-05_rb,0.38108e-05_rb /)\n      kbo(:, 3,59, 5) = (/ &\n        & 0.19418e-06_rb,0.63678e-05_rb,0.82647e-05_rb,0.83443e-05_rb,0.44672e-05_rb /)\n      kbo(:, 4,59, 5) = (/ &\n        & 0.24820e-06_rb,0.79543e-05_rb,0.99670e-05_rb,0.99518e-05_rb,0.52027e-05_rb /)\n      kbo(:, 5,59, 5) = (/ &\n        & 0.31740e-06_rb,0.97704e-05_rb,0.11964e-04_rb,0.11938e-04_rb,0.60278e-05_rb /)\n      kbo(:, 1,13, 6) = (/ &\n        & 0.10896e-01_rb,0.63076e-01_rb,0.78831e-01_rb,0.78091e-01_rb,0.55428e-01_rb /)\n      kbo(:, 2,13, 6) = (/ &\n        & 0.13036e-01_rb,0.66370e-01_rb,0.81226e-01_rb,0.79692e-01_rb,0.56778e-01_rb /)\n      kbo(:, 3,13, 6) = (/ &\n        & 0.15498e-01_rb,0.69685e-01_rb,0.83483e-01_rb,0.81400e-01_rb,0.57975e-01_rb /)\n      kbo(:, 4,13, 6) = (/ &\n        & 0.18239e-01_rb,0.73147e-01_rb,0.85845e-01_rb,0.83249e-01_rb,0.59127e-01_rb /)\n      kbo(:, 5,13, 6) = (/ &\n        & 0.21232e-01_rb,0.76581e-01_rb,0.88266e-01_rb,0.85245e-01_rb,0.60192e-01_rb /)\n      kbo(:, 1,14, 6) = (/ &\n        & 0.94274e-02_rb,0.53526e-01_rb,0.66496e-01_rb,0.65527e-01_rb,0.46374e-01_rb /)\n      kbo(:, 2,14, 6) = (/ &\n        & 0.11284e-01_rb,0.56390e-01_rb,0.68527e-01_rb,0.66955e-01_rb,0.47524e-01_rb /)\n      kbo(:, 3,14, 6) = (/ &\n        & 0.13394e-01_rb,0.59305e-01_rb,0.70546e-01_rb,0.68479e-01_rb,0.48560e-01_rb /)\n      kbo(:, 4,14, 6) = (/ &\n        & 0.15751e-01_rb,0.62293e-01_rb,0.72634e-01_rb,0.70165e-01_rb,0.49587e-01_rb /)\n      kbo(:, 5,14, 6) = (/ &\n        & 0.18326e-01_rb,0.65240e-01_rb,0.74773e-01_rb,0.71967e-01_rb,0.50492e-01_rb /)\n      kbo(:, 1,15, 6) = (/ &\n        & 0.81352e-02_rb,0.45294e-01_rb,0.55939e-01_rb,0.54933e-01_rb,0.38471e-01_rb /)\n      kbo(:, 2,15, 6) = (/ &\n        & 0.97406e-02_rb,0.47797e-01_rb,0.57705e-01_rb,0.56201e-01_rb,0.39475e-01_rb /)\n      kbo(:, 3,15, 6) = (/ &\n        & 0.11542e-01_rb,0.50349e-01_rb,0.59500e-01_rb,0.57588e-01_rb,0.40391e-01_rb /)\n      kbo(:, 4,15, 6) = (/ &\n        & 0.13568e-01_rb,0.52924e-01_rb,0.61342e-01_rb,0.59116e-01_rb,0.41250e-01_rb /)\n      kbo(:, 5,15, 6) = (/ &\n        & 0.15789e-01_rb,0.55427e-01_rb,0.63250e-01_rb,0.60727e-01_rb,0.42016e-01_rb /)\n      kbo(:, 1,16, 6) = (/ &\n        & 0.70159e-02_rb,0.38272e-01_rb,0.46984e-01_rb,0.46002e-01_rb,0.31818e-01_rb /)\n      kbo(:, 2,16, 6) = (/ &\n        & 0.83846e-02_rb,0.40476e-01_rb,0.48519e-01_rb,0.47148e-01_rb,0.32640e-01_rb /)\n      kbo(:, 3,16, 6) = (/ &\n        & 0.99392e-02_rb,0.42699e-01_rb,0.50118e-01_rb,0.48421e-01_rb,0.33435e-01_rb /)\n      kbo(:, 4,16, 6) = (/ &\n        & 0.11675e-01_rb,0.44875e-01_rb,0.51760e-01_rb,0.49780e-01_rb,0.34161e-01_rb /)\n      kbo(:, 5,16, 6) = (/ &\n        & 0.13584e-01_rb,0.46992e-01_rb,0.53405e-01_rb,0.51224e-01_rb,0.34855e-01_rb /)\n      kbo(:, 1,17, 6) = (/ &\n        & 0.60402e-02_rb,0.32343e-01_rb,0.39419e-01_rb,0.38482e-01_rb,0.26323e-01_rb /)\n      kbo(:, 2,17, 6) = (/ &\n        & 0.72134e-02_rb,0.34265e-01_rb,0.40783e-01_rb,0.39523e-01_rb,0.27045e-01_rb /)\n      kbo(:, 3,17, 6) = (/ &\n        & 0.85415e-02_rb,0.36157e-01_rb,0.42200e-01_rb,0.40657e-01_rb,0.27733e-01_rb /)\n      kbo(:, 4,17, 6) = (/ &\n        & 0.10023e-01_rb,0.37979e-01_rb,0.43620e-01_rb,0.41877e-01_rb,0.28354e-01_rb /)\n      kbo(:, 5,17, 6) = (/ &\n        & 0.11662e-01_rb,0.39775e-01_rb,0.45034e-01_rb,0.43161e-01_rb,0.28989e-01_rb /)\n      kbo(:, 1,18, 6) = (/ &\n        & 0.51905e-02_rb,0.27334e-01_rb,0.33081e-01_rb,0.32183e-01_rb,0.21845e-01_rb /)\n      kbo(:, 2,18, 6) = (/ &\n        & 0.61907e-02_rb,0.28996e-01_rb,0.34295e-01_rb,0.33127e-01_rb,0.22456e-01_rb /)\n      kbo(:, 3,18, 6) = (/ &\n        & 0.73283e-02_rb,0.30572e-01_rb,0.35522e-01_rb,0.34131e-01_rb,0.23047e-01_rb /)\n      kbo(:, 4,18, 6) = (/ &\n        & 0.85960e-02_rb,0.32113e-01_rb,0.36725e-01_rb,0.35202e-01_rb,0.23589e-01_rb /)\n      kbo(:, 5,18, 6) = (/ &\n        & 0.10011e-01_rb,0.33654e-01_rb,0.37950e-01_rb,0.36339e-01_rb,0.24154e-01_rb /)\n      kbo(:, 1,19, 6) = (/ &\n        & 0.44474e-02_rb,0.23093e-01_rb,0.27758e-01_rb,0.26913e-01_rb,0.18159e-01_rb /)\n      kbo(:, 2,19, 6) = (/ &\n        & 0.53019e-02_rb,0.24497e-01_rb,0.28826e-01_rb,0.27764e-01_rb,0.18694e-01_rb /)\n      kbo(:, 3,19, 6) = (/ &\n        & 0.62735e-02_rb,0.25825e-01_rb,0.29864e-01_rb,0.28669e-01_rb,0.19187e-01_rb /)\n      kbo(:, 4,19, 6) = (/ &\n        & 0.73683e-02_rb,0.27139e-01_rb,0.30890e-01_rb,0.29627e-01_rb,0.19650e-01_rb /)\n      kbo(:, 5,19, 6) = (/ &\n        & 0.85933e-02_rb,0.28467e-01_rb,0.31975e-01_rb,0.30634e-01_rb,0.20138e-01_rb /)\n      kbo(:, 1,20, 6) = (/ &\n        & 0.38215e-02_rb,0.19522e-01_rb,0.23307e-01_rb,0.22532e-01_rb,0.15180e-01_rb /)\n      kbo(:, 2,20, 6) = (/ &\n        & 0.45489e-02_rb,0.20697e-01_rb,0.24217e-01_rb,0.23292e-01_rb,0.15626e-01_rb /)\n      kbo(:, 3,20, 6) = (/ &\n        & 0.53838e-02_rb,0.21827e-01_rb,0.25099e-01_rb,0.24107e-01_rb,0.16039e-01_rb /)\n      kbo(:, 4,20, 6) = (/ &\n        & 0.63294e-02_rb,0.22947e-01_rb,0.25996e-01_rb,0.24951e-01_rb,0.16431e-01_rb /)\n      kbo(:, 5,20, 6) = (/ &\n        & 0.73910e-02_rb,0.24098e-01_rb,0.26969e-01_rb,0.25840e-01_rb,0.16861e-01_rb /)\n      kbo(:, 1,21, 6) = (/ &\n        & 0.32849e-02_rb,0.16485e-01_rb,0.19564e-01_rb,0.18873e-01_rb,0.12724e-01_rb /)\n      kbo(:, 2,21, 6) = (/ &\n        & 0.39093e-02_rb,0.17476e-01_rb,0.20333e-01_rb,0.19553e-01_rb,0.13080e-01_rb /)\n      kbo(:, 3,21, 6) = (/ &\n        & 0.46257e-02_rb,0.18440e-01_rb,0.21099e-01_rb,0.20272e-01_rb,0.13424e-01_rb /)\n      kbo(:, 4,21, 6) = (/ &\n        & 0.54436e-02_rb,0.19400e-01_rb,0.21897e-01_rb,0.21018e-01_rb,0.13774e-01_rb /)\n      kbo(:, 5,21, 6) = (/ &\n        & 0.63568e-02_rb,0.20406e-01_rb,0.22777e-01_rb,0.21806e-01_rb,0.14153e-01_rb /)\n      kbo(:, 1,22, 6) = (/ &\n        & 0.28524e-02_rb,0.13970e-01_rb,0.16464e-01_rb,0.15855e-01_rb,0.10647e-01_rb /)\n      kbo(:, 2,22, 6) = (/ &\n        & 0.33998e-02_rb,0.14799e-01_rb,0.17121e-01_rb,0.16464e-01_rb,0.10957e-01_rb /)\n      kbo(:, 3,22, 6) = (/ &\n        & 0.40218e-02_rb,0.15618e-01_rb,0.17789e-01_rb,0.17098e-01_rb,0.11264e-01_rb /)\n      kbo(:, 4,22, 6) = (/ &\n        & 0.47350e-02_rb,0.16459e-01_rb,0.18512e-01_rb,0.17761e-01_rb,0.11585e-01_rb /)\n      kbo(:, 5,22, 6) = (/ &\n        & 0.55269e-02_rb,0.17342e-01_rb,0.19306e-01_rb,0.18466e-01_rb,0.11905e-01_rb /)\n      kbo(:, 1,23, 6) = (/ &\n        & 0.24776e-02_rb,0.11832e-01_rb,0.13862e-01_rb,0.13338e-01_rb,0.89101e-02_rb /)\n      kbo(:, 2,23, 6) = (/ &\n        & 0.29594e-02_rb,0.12532e-01_rb,0.14430e-01_rb,0.13874e-01_rb,0.91836e-02_rb /)\n      kbo(:, 3,23, 6) = (/ &\n        & 0.35060e-02_rb,0.13237e-01_rb,0.15025e-01_rb,0.14435e-01_rb,0.94582e-02_rb /)\n      kbo(:, 4,23, 6) = (/ &\n        & 0.41276e-02_rb,0.13976e-01_rb,0.15673e-01_rb,0.15028e-01_rb,0.97462e-02_rb /)\n      kbo(:, 5,23, 6) = (/ &\n        & 0.48108e-02_rb,0.14761e-01_rb,0.16387e-01_rb,0.15666e-01_rb,0.10041e-01_rb /)\n      kbo(:, 1,24, 6) = (/ &\n        & 0.21553e-02_rb,0.10022e-01_rb,0.11681e-01_rb,0.11233e-01_rb,0.74484e-02_rb /)\n      kbo(:, 2,24, 6) = (/ &\n        & 0.25764e-02_rb,0.10621e-01_rb,0.12176e-01_rb,0.11709e-01_rb,0.76914e-02_rb /)\n      kbo(:, 3,24, 6) = (/ &\n        & 0.30587e-02_rb,0.11236e-01_rb,0.12711e-01_rb,0.12208e-01_rb,0.79451e-02_rb /)\n      kbo(:, 4,24, 6) = (/ &\n        & 0.36022e-02_rb,0.11891e-01_rb,0.13293e-01_rb,0.12744e-01_rb,0.82033e-02_rb /)\n      kbo(:, 5,24, 6) = (/ &\n        & 0.41914e-02_rb,0.12593e-01_rb,0.13939e-01_rb,0.13324e-01_rb,0.84674e-02_rb /)\n      kbo(:, 1,25, 6) = (/ &\n        & 0.18796e-02_rb,0.85000e-02_rb,0.98543e-02_rb,0.94788e-02_rb,0.62281e-02_rb /)\n      kbo(:, 2,25, 6) = (/ &\n        & 0.22512e-02_rb,0.90173e-02_rb,0.10293e-01_rb,0.99015e-02_rb,0.64465e-02_rb /)\n      kbo(:, 3,25, 6) = (/ &\n        & 0.26761e-02_rb,0.95606e-02_rb,0.10772e-01_rb,0.10351e-01_rb,0.66771e-02_rb /)\n      kbo(:, 4,25, 6) = (/ &\n        & 0.31512e-02_rb,0.10144e-01_rb,0.11303e-01_rb,0.10838e-01_rb,0.69100e-02_rb /)\n      kbo(:, 5,25, 6) = (/ &\n        & 0.36575e-02_rb,0.10772e-01_rb,0.11893e-01_rb,0.11363e-01_rb,0.71526e-02_rb /)\n      kbo(:, 1,26, 6) = (/ &\n        & 0.16486e-02_rb,0.72263e-02_rb,0.83293e-02_rb,0.80207e-02_rb,0.52267e-02_rb /)\n      kbo(:, 2,26, 6) = (/ &\n        & 0.19790e-02_rb,0.76783e-02_rb,0.87239e-02_rb,0.83966e-02_rb,0.54266e-02_rb /)\n      kbo(:, 3,26, 6) = (/ &\n        & 0.23552e-02_rb,0.81632e-02_rb,0.91606e-02_rb,0.88030e-02_rb,0.56340e-02_rb /)\n      kbo(:, 4,26, 6) = (/ &\n        & 0.27655e-02_rb,0.86841e-02_rb,0.96465e-02_rb,0.92463e-02_rb,0.58421e-02_rb /)\n      kbo(:, 5,26, 6) = (/ &\n        & 0.32014e-02_rb,0.92461e-02_rb,0.10190e-01_rb,0.97263e-02_rb,0.60618e-02_rb /)\n      kbo(:, 1,27, 6) = (/ &\n        & 0.14479e-02_rb,0.61551e-02_rb,0.70548e-02_rb,0.67980e-02_rb,0.43916e-02_rb /)\n      kbo(:, 2,27, 6) = (/ &\n        & 0.17422e-02_rb,0.65560e-02_rb,0.74109e-02_rb,0.71369e-02_rb,0.45703e-02_rb /)\n      kbo(:, 3,27, 6) = (/ &\n        & 0.20711e-02_rb,0.69878e-02_rb,0.78116e-02_rb,0.75081e-02_rb,0.47565e-02_rb /)\n      kbo(:, 4,27, 6) = (/ &\n        & 0.24273e-02_rb,0.74543e-02_rb,0.82596e-02_rb,0.79125e-02_rb,0.49414e-02_rb /)\n      kbo(:, 5,27, 6) = (/ &\n        & 0.28006e-02_rb,0.79622e-02_rb,0.87633e-02_rb,0.83523e-02_rb,0.51438e-02_rb /)\n      kbo(:, 1,28, 6) = (/ &\n        & 0.12757e-02_rb,0.52552e-02_rb,0.59880e-02_rb,0.57731e-02_rb,0.36940e-02_rb /)\n      kbo(:, 2,28, 6) = (/ &\n        & 0.15355e-02_rb,0.56117e-02_rb,0.63148e-02_rb,0.60828e-02_rb,0.38537e-02_rb /)\n      kbo(:, 3,28, 6) = (/ &\n        & 0.18209e-02_rb,0.60000e-02_rb,0.66831e-02_rb,0.64236e-02_rb,0.40153e-02_rb /)\n      kbo(:, 4,28, 6) = (/ &\n        & 0.21272e-02_rb,0.64202e-02_rb,0.70979e-02_rb,0.67923e-02_rb,0.41811e-02_rb /)\n      kbo(:, 5,28, 6) = (/ &\n        & 0.24474e-02_rb,0.68778e-02_rb,0.75643e-02_rb,0.71983e-02_rb,0.43640e-02_rb /)\n      kbo(:, 1,29, 6) = (/ &\n        & 0.11295e-02_rb,0.45004e-02_rb,0.50997e-02_rb,0.49184e-02_rb,0.31153e-02_rb /)\n      kbo(:, 2,29, 6) = (/ &\n        & 0.13559e-02_rb,0.48180e-02_rb,0.54010e-02_rb,0.52034e-02_rb,0.32572e-02_rb /)\n      kbo(:, 3,29, 6) = (/ &\n        & 0.16033e-02_rb,0.51685e-02_rb,0.57423e-02_rb,0.55151e-02_rb,0.33997e-02_rb /)\n      kbo(:, 4,29, 6) = (/ &\n        & 0.18647e-02_rb,0.55488e-02_rb,0.61280e-02_rb,0.58545e-02_rb,0.35531e-02_rb /)\n      kbo(:, 5,29, 6) = (/ &\n        & 0.21368e-02_rb,0.59683e-02_rb,0.65578e-02_rb,0.62309e-02_rb,0.37192e-02_rb /)\n      kbo(:, 1,30, 6) = (/ &\n        & 0.10010e-02_rb,0.38621e-02_rb,0.43580e-02_rb,0.42036e-02_rb,0.26325e-02_rb /)\n      kbo(:, 2,30, 6) = (/ &\n        & 0.11967e-02_rb,0.41511e-02_rb,0.46366e-02_rb,0.44656e-02_rb,0.27570e-02_rb /)\n      kbo(:, 3,30, 6) = (/ &\n        & 0.14096e-02_rb,0.44678e-02_rb,0.49534e-02_rb,0.47515e-02_rb,0.28856e-02_rb /)\n      kbo(:, 4,30, 6) = (/ &\n        & 0.16325e-02_rb,0.48140e-02_rb,0.53117e-02_rb,0.50685e-02_rb,0.30242e-02_rb /)\n      kbo(:, 5,30, 6) = (/ &\n        & 0.18599e-02_rb,0.52016e-02_rb,0.57103e-02_rb,0.54169e-02_rb,0.31738e-02_rb /)\n      kbo(:, 1,31, 6) = (/ &\n        & 0.88685e-03_rb,0.33266e-02_rb,0.37394e-02_rb,0.36064e-02_rb,0.22280e-02_rb /)\n      kbo(:, 2,31, 6) = (/ &\n        & 0.10569e-02_rb,0.35897e-02_rb,0.39964e-02_rb,0.38465e-02_rb,0.23389e-02_rb /)\n      kbo(:, 3,31, 6) = (/ &\n        & 0.12382e-02_rb,0.38779e-02_rb,0.42920e-02_rb,0.41135e-02_rb,0.24573e-02_rb /)\n      kbo(:, 4,31, 6) = (/ &\n        & 0.14278e-02_rb,0.41961e-02_rb,0.46258e-02_rb,0.44080e-02_rb,0.25818e-02_rb /)\n      kbo(:, 5,31, 6) = (/ &\n        & 0.16136e-02_rb,0.45547e-02_rb,0.50001e-02_rb,0.47313e-02_rb,0.27214e-02_rb /)\n      kbo(:, 1,32, 6) = (/ &\n        & 0.78559e-03_rb,0.28763e-02_rb,0.32195e-02_rb,0.31059e-02_rb,0.18911e-02_rb /)\n      kbo(:, 2,32, 6) = (/ &\n        & 0.93178e-03_rb,0.31157e-02_rb,0.34609e-02_rb,0.33287e-02_rb,0.19930e-02_rb /)\n      kbo(:, 3,32, 6) = (/ &\n        & 0.10867e-02_rb,0.33798e-02_rb,0.37377e-02_rb,0.35772e-02_rb,0.21006e-02_rb /)\n      kbo(:, 4,32, 6) = (/ &\n        & 0.12446e-02_rb,0.36754e-02_rb,0.40497e-02_rb,0.38517e-02_rb,0.22158e-02_rb /)\n      kbo(:, 5,32, 6) = (/ &\n        & 0.13936e-02_rb,0.40072e-02_rb,0.44007e-02_rb,0.41538e-02_rb,0.23413e-02_rb /)\n      kbo(:, 1,33, 6) = (/ &\n        & 0.69486e-03_rb,0.24959e-02_rb,0.27846e-02_rb,0.26858e-02_rb,0.16103e-02_rb /)\n      kbo(:, 2,33, 6) = (/ &\n        & 0.82037e-03_rb,0.27142e-02_rb,0.30117e-02_rb,0.28933e-02_rb,0.17041e-02_rb /)\n      kbo(:, 3,33, 6) = (/ &\n        & 0.95137e-03_rb,0.29589e-02_rb,0.32703e-02_rb,0.31258e-02_rb,0.18033e-02_rb /)\n      kbo(:, 4,33, 6) = (/ &\n        & 0.10800e-02_rb,0.32345e-02_rb,0.35641e-02_rb,0.33810e-02_rb,0.19089e-02_rb /)\n      kbo(:, 5,33, 6) = (/ &\n        & 0.11986e-02_rb,0.35406e-02_rb,0.38943e-02_rb,0.36682e-02_rb,0.20234e-02_rb /)\n      kbo(:, 1,34, 6) = (/ &\n        & 0.61032e-03_rb,0.21671e-02_rb,0.24134e-02_rb,0.23268e-02_rb,0.13754e-02_rb /)\n      kbo(:, 2,34, 6) = (/ &\n        & 0.71748e-03_rb,0.23678e-02_rb,0.26264e-02_rb,0.25207e-02_rb,0.14624e-02_rb /)\n      kbo(:, 3,34, 6) = (/ &\n        & 0.82600e-03_rb,0.25947e-02_rb,0.28697e-02_rb,0.27368e-02_rb,0.15523e-02_rb /)\n      kbo(:, 4,34, 6) = (/ &\n        & 0.92939e-03_rb,0.28495e-02_rb,0.31449e-02_rb,0.29773e-02_rb,0.16488e-02_rb /)\n      kbo(:, 5,34, 6) = (/ &\n        & 0.10239e-02_rb,0.31299e-02_rb,0.34552e-02_rb,0.32520e-02_rb,0.17543e-02_rb /)\n      kbo(:, 1,35, 6) = (/ &\n        & 0.52678e-03_rb,0.18713e-02_rb,0.20838e-02_rb,0.20082e-02_rb,0.11717e-02_rb /)\n      kbo(:, 2,35, 6) = (/ &\n        & 0.61674e-03_rb,0.20541e-02_rb,0.22811e-02_rb,0.21873e-02_rb,0.12500e-02_rb /)\n      kbo(:, 3,35, 6) = (/ &\n        & 0.70570e-03_rb,0.22625e-02_rb,0.25066e-02_rb,0.23870e-02_rb,0.13326e-02_rb /)\n      kbo(:, 4,35, 6) = (/ &\n        & 0.78855e-03_rb,0.24971e-02_rb,0.27629e-02_rb,0.26134e-02_rb,0.14204e-02_rb /)\n      kbo(:, 5,35, 6) = (/ &\n        & 0.86492e-03_rb,0.27499e-02_rb,0.30514e-02_rb,0.28766e-02_rb,0.15154e-02_rb /)\n      kbo(:, 1,36, 6) = (/ &\n        & 0.44569e-03_rb,0.16031e-02_rb,0.17868e-02_rb,0.17221e-02_rb,0.99240e-03_rb /)\n      kbo(:, 2,36, 6) = (/ &\n        & 0.52055e-03_rb,0.17679e-02_rb,0.19674e-02_rb,0.18854e-02_rb,0.10623e-02_rb /)\n      kbo(:, 3,36, 6) = (/ &\n        & 0.59380e-03_rb,0.19567e-02_rb,0.21742e-02_rb,0.20700e-02_rb,0.11368e-02_rb /)\n      kbo(:, 4,36, 6) = (/ &\n        & 0.66114e-03_rb,0.21690e-02_rb,0.24093e-02_rb,0.22827e-02_rb,0.12171e-02_rb /)\n      kbo(:, 5,36, 6) = (/ &\n        & 0.72347e-03_rb,0.23953e-02_rb,0.26735e-02_rb,0.25294e-02_rb,0.13028e-02_rb /)\n      kbo(:, 1,37, 6) = (/ &\n        & 0.36881e-03_rb,0.13558e-02_rb,0.15140e-02_rb,0.14605e-02_rb,0.83527e-03_rb /)\n      kbo(:, 2,37, 6) = (/ &\n        & 0.43070e-03_rb,0.15018e-02_rb,0.16759e-02_rb,0.16073e-02_rb,0.89749e-03_rb /)\n      kbo(:, 3,37, 6) = (/ &\n        & 0.49122e-03_rb,0.16697e-02_rb,0.18620e-02_rb,0.17747e-02_rb,0.96428e-03_rb /)\n      kbo(:, 4,37, 6) = (/ &\n        & 0.54687e-03_rb,0.18590e-02_rb,0.20742e-02_rb,0.19690e-02_rb,0.10365e-02_rb /)\n      kbo(:, 5,37, 6) = (/ &\n        & 0.59826e-03_rb,0.20615e-02_rb,0.23143e-02_rb,0.21948e-02_rb,0.11140e-02_rb /)\n      kbo(:, 1,38, 6) = (/ &\n        & 0.30472e-03_rb,0.11463e-02_rb,0.12827e-02_rb,0.12387e-02_rb,0.70293e-03_rb /)\n      kbo(:, 2,38, 6) = (/ &\n        & 0.35606e-03_rb,0.12755e-02_rb,0.14277e-02_rb,0.13705e-02_rb,0.75844e-03_rb /)\n      kbo(:, 3,38, 6) = (/ &\n        & 0.40587e-03_rb,0.14248e-02_rb,0.15948e-02_rb,0.15225e-02_rb,0.81832e-03_rb /)\n      kbo(:, 4,38, 6) = (/ &\n        & 0.45170e-03_rb,0.15929e-02_rb,0.17869e-02_rb,0.16996e-02_rb,0.88272e-03_rb /)\n      kbo(:, 5,38, 6) = (/ &\n        & 0.49447e-03_rb,0.17743e-02_rb,0.20049e-02_rb,0.19060e-02_rb,0.95296e-03_rb /)\n      kbo(:, 1,39, 6) = (/ &\n        & 0.25159e-03_rb,0.96943e-03_rb,0.10877e-02_rb,0.10513e-02_rb,0.59159e-03_rb /)\n      kbo(:, 2,39, 6) = (/ &\n        & 0.29433e-03_rb,0.10839e-02_rb,0.12173e-02_rb,0.11700e-02_rb,0.64088e-03_rb /)\n      kbo(:, 3,39, 6) = (/ &\n        & 0.33554e-03_rb,0.12164e-02_rb,0.13675e-02_rb,0.13079e-02_rb,0.69454e-03_rb /)\n      kbo(:, 4,39, 6) = (/ &\n        & 0.37315e-03_rb,0.13660e-02_rb,0.15416e-02_rb,0.14697e-02_rb,0.75241e-03_rb /)\n      kbo(:, 5,39, 6) = (/ &\n        & 0.40840e-03_rb,0.15291e-02_rb,0.17396e-02_rb,0.16583e-02_rb,0.81566e-03_rb /)\n      kbo(:, 1,40, 6) = (/ &\n        & 0.20445e-03_rb,0.81104e-03_rb,0.91201e-03_rb,0.88303e-03_rb,0.49462e-03_rb /)\n      kbo(:, 2,40, 6) = (/ &\n        & 0.24013e-03_rb,0.91062e-03_rb,0.10259e-02_rb,0.98834e-03_rb,0.53806e-03_rb /)\n      kbo(:, 3,40, 6) = (/ &\n        & 0.27454e-03_rb,0.10267e-02_rb,0.11591e-02_rb,0.11112e-02_rb,0.58582e-03_rb /)\n      kbo(:, 4,40, 6) = (/ &\n        & 0.30609e-03_rb,0.11586e-02_rb,0.13148e-02_rb,0.12564e-02_rb,0.63733e-03_rb /)\n      kbo(:, 5,40, 6) = (/ &\n        & 0.33521e-03_rb,0.13038e-02_rb,0.14932e-02_rb,0.14267e-02_rb,0.69406e-03_rb /)\n      kbo(:, 1,41, 6) = (/ &\n        & 0.16568e-03_rb,0.67706e-03_rb,0.76339e-03_rb,0.74014e-03_rb,0.41311e-03_rb /)\n      kbo(:, 2,41, 6) = (/ &\n        & 0.19545e-03_rb,0.76370e-03_rb,0.86317e-03_rb,0.83349e-03_rb,0.45126e-03_rb /)\n      kbo(:, 3,41, 6) = (/ &\n        & 0.22429e-03_rb,0.86513e-03_rb,0.98057e-03_rb,0.94284e-03_rb,0.49336e-03_rb /)\n      kbo(:, 4,41, 6) = (/ &\n        & 0.25075e-03_rb,0.98100e-03_rb,0.11192e-02_rb,0.10723e-02_rb,0.53916e-03_rb /)\n      kbo(:, 5,41, 6) = (/ &\n        & 0.27523e-03_rb,0.11101e-02_rb,0.12797e-02_rb,0.12259e-02_rb,0.58980e-03_rb /)\n      kbo(:, 1,42, 6) = (/ &\n        & 0.13464e-03_rb,0.56478e-03_rb,0.63846e-03_rb,0.61972e-03_rb,0.34485e-03_rb /)\n      kbo(:, 2,42, 6) = (/ &\n        & 0.15918e-03_rb,0.64002e-03_rb,0.72573e-03_rb,0.70212e-03_rb,0.37807e-03_rb /)\n      kbo(:, 3,42, 6) = (/ &\n        & 0.18309e-03_rb,0.72866e-03_rb,0.82914e-03_rb,0.79959e-03_rb,0.41541e-03_rb /)\n      kbo(:, 4,42, 6) = (/ &\n        & 0.20534e-03_rb,0.83063e-03_rb,0.95224e-03_rb,0.91510e-03_rb,0.45609e-03_rb /)\n      kbo(:, 5,42, 6) = (/ &\n        & 0.22591e-03_rb,0.94536e-03_rb,0.10960e-02_rb,0.10535e-02_rb,0.50132e-03_rb /)\n      kbo(:, 1,43, 6) = (/ &\n        & 0.10834e-03_rb,0.46763e-03_rb,0.52964e-03_rb,0.51479e-03_rb,0.28641e-03_rb /)\n      kbo(:, 2,43, 6) = (/ &\n        & 0.12878e-03_rb,0.53191e-03_rb,0.60529e-03_rb,0.58655e-03_rb,0.31538e-03_rb /)\n      kbo(:, 3,43, 6) = (/ &\n        & 0.14877e-03_rb,0.60848e-03_rb,0.69517e-03_rb,0.67233e-03_rb,0.34781e-03_rb /)\n      kbo(:, 4,43, 6) = (/ &\n        & 0.16739e-03_rb,0.69818e-03_rb,0.80315e-03_rb,0.77433e-03_rb,0.38376e-03_rb /)\n      kbo(:, 5,43, 6) = (/ &\n        & 0.18458e-03_rb,0.79951e-03_rb,0.93071e-03_rb,0.89755e-03_rb,0.42371e-03_rb /)\n      kbo(:, 1,44, 6) = (/ &\n        & 0.86770e-04_rb,0.38551e-03_rb,0.43712e-03_rb,0.42544e-03_rb,0.23710e-03_rb /)\n      kbo(:, 2,44, 6) = (/ &\n        & 0.10382e-03_rb,0.44040e-03_rb,0.50222e-03_rb,0.48753e-03_rb,0.26235e-03_rb /)\n      kbo(:, 3,44, 6) = (/ &\n        & 0.12059e-03_rb,0.50571e-03_rb,0.58013e-03_rb,0.56233e-03_rb,0.29036e-03_rb /)\n      kbo(:, 4,44, 6) = (/ &\n        & 0.13632e-03_rb,0.58391e-03_rb,0.67429e-03_rb,0.65221e-03_rb,0.32192e-03_rb /)\n      kbo(:, 5,44, 6) = (/ &\n        & 0.15073e-03_rb,0.67339e-03_rb,0.78624e-03_rb,0.76086e-03_rb,0.35732e-03_rb /)\n      kbo(:, 1,45, 6) = (/ &\n        & 0.69317e-04_rb,0.31724e-03_rb,0.36001e-03_rb,0.35090e-03_rb,0.19579e-03_rb /)\n      kbo(:, 2,45, 6) = (/ &\n        & 0.83569e-04_rb,0.36417e-03_rb,0.41579e-03_rb,0.40435e-03_rb,0.21781e-03_rb /)\n      kbo(:, 3,45, 6) = (/ &\n        & 0.97725e-04_rb,0.42014e-03_rb,0.48329e-03_rb,0.46938e-03_rb,0.24226e-03_rb /)\n      kbo(:, 4,45, 6) = (/ &\n        & 0.11101e-03_rb,0.48745e-03_rb,0.56520e-03_rb,0.54804e-03_rb,0.26965e-03_rb /)\n      kbo(:, 5,45, 6) = (/ &\n        & 0.12310e-03_rb,0.56606e-03_rb,0.66327e-03_rb,0.64374e-03_rb,0.30080e-03_rb /)\n      kbo(:, 1,46, 6) = (/ &\n        & 0.55030e-04_rb,0.26007e-03_rb,0.29522e-03_rb,0.28798e-03_rb,0.16098e-03_rb /)\n      kbo(:, 2,46, 6) = (/ &\n        & 0.66908e-04_rb,0.29981e-03_rb,0.34235e-03_rb,0.33361e-03_rb,0.18009e-03_rb /)\n      kbo(:, 3,46, 6) = (/ &\n        & 0.78894e-04_rb,0.34737e-03_rb,0.40028e-03_rb,0.38969e-03_rb,0.20138e-03_rb /)\n      kbo(:, 4,46, 6) = (/ &\n        & 0.90228e-04_rb,0.40507e-03_rb,0.47110e-03_rb,0.45796e-03_rb,0.22525e-03_rb /)\n      kbo(:, 5,46, 6) = (/ &\n        & 0.10044e-03_rb,0.47380e-03_rb,0.55673e-03_rb,0.54149e-03_rb,0.25231e-03_rb /)\n      kbo(:, 1,47, 6) = (/ &\n        & 0.43131e-04_rb,0.21132e-03_rb,0.23992e-03_rb,0.23430e-03_rb,0.13147e-03_rb /)\n      kbo(:, 2,47, 6) = (/ &\n        & 0.53026e-04_rb,0.24489e-03_rb,0.27966e-03_rb,0.27282e-03_rb,0.14794e-03_rb /)\n      kbo(:, 3,47, 6) = (/ &\n        & 0.63179e-04_rb,0.28502e-03_rb,0.32837e-03_rb,0.32046e-03_rb,0.16642e-03_rb /)\n      kbo(:, 4,47, 6) = (/ &\n        & 0.72849e-04_rb,0.33391e-03_rb,0.38868e-03_rb,0.37909e-03_rb,0.18727e-03_rb /)\n      kbo(:, 5,47, 6) = (/ &\n        & 0.81641e-04_rb,0.39308e-03_rb,0.46293e-03_rb,0.45114e-03_rb,0.21071e-03_rb /)\n      kbo(:, 1,48, 6) = (/ &\n        & 0.33560e-04_rb,0.17139e-03_rb,0.19468e-03_rb,0.19001e-03_rb,0.10710e-03_rb /)\n      kbo(:, 2,48, 6) = (/ &\n        & 0.41736e-04_rb,0.19942e-03_rb,0.22765e-03_rb,0.22235e-03_rb,0.12121e-03_rb /)\n      kbo(:, 3,48, 6) = (/ &\n        & 0.50371e-04_rb,0.23319e-03_rb,0.26893e-03_rb,0.26280e-03_rb,0.13718e-03_rb /)\n      kbo(:, 4,48, 6) = (/ &\n        & 0.58779e-04_rb,0.27466e-03_rb,0.31973e-03_rb,0.31295e-03_rb,0.15543e-03_rb /)\n      kbo(:, 5,48, 6) = (/ &\n        & 0.66247e-04_rb,0.32531e-03_rb,0.38347e-03_rb,0.37465e-03_rb,0.17582e-03_rb /)\n      kbo(:, 1,49, 6) = (/ &\n        & 0.25958e-04_rb,0.13895e-03_rb,0.15751e-03_rb,0.15378e-03_rb,0.86997e-04_rb /)\n      kbo(:, 2,49, 6) = (/ &\n        & 0.32663e-04_rb,0.16210e-03_rb,0.18496e-03_rb,0.18058e-03_rb,0.99003e-04_rb /)\n      kbo(:, 3,49, 6) = (/ &\n        & 0.39912e-04_rb,0.19033e-03_rb,0.21954e-03_rb,0.21463e-03_rb,0.11278e-03_rb /)\n      kbo(:, 4,49, 6) = (/ &\n        & 0.47146e-04_rb,0.22536e-03_rb,0.26252e-03_rb,0.25743e-03_rb,0.12854e-03_rb /)\n      kbo(:, 5,49, 6) = (/ &\n        & 0.53714e-04_rb,0.26879e-03_rb,0.31652e-03_rb,0.31040e-03_rb,0.14638e-03_rb /)\n      kbo(:, 1,50, 6) = (/ &\n        & 0.20123e-04_rb,0.11283e-03_rb,0.12763e-03_rb,0.12462e-03_rb,0.70722e-04_rb /)\n      kbo(:, 2,50, 6) = (/ &\n        & 0.25601e-04_rb,0.13215e-03_rb,0.15042e-03_rb,0.14697e-03_rb,0.80931e-04_rb /)\n      kbo(:, 3,50, 6) = (/ &\n        & 0.31614e-04_rb,0.15574e-03_rb,0.17957e-03_rb,0.17552e-03_rb,0.92734e-04_rb /)\n      kbo(:, 4,50, 6) = (/ &\n        & 0.37764e-04_rb,0.18520e-03_rb,0.21596e-03_rb,0.21200e-03_rb,0.10641e-03_rb /)\n      kbo(:, 5,50, 6) = (/ &\n        & 0.43463e-04_rb,0.22248e-03_rb,0.26195e-03_rb,0.25758e-03_rb,0.12203e-03_rb /)\n      kbo(:, 1,51, 6) = (/ &\n        & 0.15566e-04_rb,0.91692e-04_rb,0.10348e-03_rb,0.10093e-03_rb,0.57420e-04_rb /)\n      kbo(:, 2,51, 6) = (/ &\n        & 0.20041e-04_rb,0.10771e-03_rb,0.12230e-03_rb,0.11952e-03_rb,0.66019e-04_rb /)\n      kbo(:, 3,51, 6) = (/ &\n        & 0.25022e-04_rb,0.12757e-03_rb,0.14670e-03_rb,0.14349e-03_rb,0.76182e-04_rb /)\n      kbo(:, 4,51, 6) = (/ &\n        & 0.30196e-04_rb,0.15226e-03_rb,0.17772e-03_rb,0.17429e-03_rb,0.87954e-04_rb /)\n      kbo(:, 5,51, 6) = (/ &\n        & 0.35140e-04_rb,0.18405e-03_rb,0.21697e-03_rb,0.21356e-03_rb,0.10162e-03_rb /)\n      kbo(:, 1,52, 6) = (/ &\n        & 0.11977e-04_rb,0.74321e-04_rb,0.83777e-04_rb,0.81525e-04_rb,0.46492e-04_rb /)\n      kbo(:, 2,52, 6) = (/ &\n        & 0.15618e-04_rb,0.87662e-04_rb,0.99315e-04_rb,0.96995e-04_rb,0.53744e-04_rb /)\n      kbo(:, 3,52, 6) = (/ &\n        & 0.19731e-04_rb,0.10434e-03_rb,0.11957e-03_rb,0.11696e-03_rb,0.62355e-04_rb /)\n      kbo(:, 4,52, 6) = (/ &\n        & 0.24071e-04_rb,0.12514e-03_rb,0.14574e-03_rb,0.14300e-03_rb,0.72491e-04_rb /)\n      kbo(:, 5,52, 6) = (/ &\n        & 0.28292e-04_rb,0.15185e-03_rb,0.17919e-03_rb,0.17642e-03_rb,0.84356e-04_rb /)\n      kbo(:, 1,53, 6) = (/ &\n        & 0.91836e-05_rb,0.60131e-04_rb,0.67720e-04_rb,0.65649e-04_rb,0.37522e-04_rb /)\n      kbo(:, 2,53, 6) = (/ &\n        & 0.12113e-04_rb,0.71192e-04_rb,0.80457e-04_rb,0.78425e-04_rb,0.43599e-04_rb /)\n      kbo(:, 3,53, 6) = (/ &\n        & 0.15471e-04_rb,0.85141e-04_rb,0.97276e-04_rb,0.95110e-04_rb,0.50903e-04_rb /)\n      kbo(:, 4,53, 6) = (/ &\n        & 0.19102e-04_rb,0.10263e-03_rb,0.11918e-03_rb,0.11694e-03_rb,0.59553e-04_rb /)\n      kbo(:, 5,53, 6) = (/ &\n        & 0.22693e-04_rb,0.12514e-03_rb,0.14755e-03_rb,0.14527e-03_rb,0.69812e-04_rb /)\n      kbo(:, 1,54, 6) = (/ &\n        & 0.70721e-05_rb,0.48764e-04_rb,0.54926e-04_rb,0.53041e-04_rb,0.30337e-04_rb /)\n      kbo(:, 2,54, 6) = (/ &\n        & 0.94270e-05_rb,0.57982e-04_rb,0.65461e-04_rb,0.63579e-04_rb,0.35439e-04_rb /)\n      kbo(:, 3,54, 6) = (/ &\n        & 0.12173e-04_rb,0.69671e-04_rb,0.79433e-04_rb,0.77530e-04_rb,0.41618e-04_rb /)\n      kbo(:, 4,54, 6) = (/ &\n        & 0.15195e-04_rb,0.84502e-04_rb,0.97826e-04_rb,0.96029e-04_rb,0.49017e-04_rb /)\n      kbo(:, 5,54, 6) = (/ &\n        & 0.18243e-04_rb,0.10358e-03_rb,0.12196e-03_rb,0.12023e-03_rb,0.57880e-04_rb /)\n      kbo(:, 1,55, 6) = (/ &\n        & 0.54549e-05_rb,0.39521e-04_rb,0.44580e-04_rb,0.42901e-04_rb,0.24523e-04_rb /)\n      kbo(:, 2,55, 6) = (/ &\n        & 0.73474e-05_rb,0.47258e-04_rb,0.53311e-04_rb,0.51627e-04_rb,0.28799e-04_rb /)\n      kbo(:, 3,55, 6) = (/ &\n        & 0.95818e-05_rb,0.57041e-04_rb,0.64957e-04_rb,0.63210e-04_rb,0.34015e-04_rb /)\n      kbo(:, 4,55, 6) = (/ &\n        & 0.12078e-04_rb,0.69528e-04_rb,0.80422e-04_rb,0.78845e-04_rb,0.40325e-04_rb /)\n      kbo(:, 5,55, 6) = (/ &\n        & 0.14658e-04_rb,0.85891e-04_rb,0.10087e-03_rb,0.99485e-04_rb,0.47973e-04_rb /)\n      kbo(:, 1,56, 6) = (/ &\n        & 0.41972e-05_rb,0.31935e-04_rb,0.36125e-04_rb,0.34628e-04_rb,0.19758e-04_rb /)\n      kbo(:, 2,56, 6) = (/ &\n        & 0.56951e-05_rb,0.38357e-04_rb,0.43303e-04_rb,0.41823e-04_rb,0.23341e-04_rb /)\n      kbo(:, 3,56, 6) = (/ &\n        & 0.75109e-05_rb,0.46586e-04_rb,0.52984e-04_rb,0.51438e-04_rb,0.27705e-04_rb /)\n      kbo(:, 4,56, 6) = (/ &\n        & 0.95701e-05_rb,0.57135e-04_rb,0.66020e-04_rb,0.64513e-04_rb,0.33090e-04_rb /)\n      kbo(:, 5,56, 6) = (/ &\n        & 0.11741e-04_rb,0.70996e-04_rb,0.83348e-04_rb,0.82172e-04_rb,0.39639e-04_rb /)\n      kbo(:, 1,57, 6) = (/ &\n        & 0.32187e-05_rb,0.25710e-04_rb,0.29175e-04_rb,0.27903e-04_rb,0.15874e-04_rb /)\n      kbo(:, 2,57, 6) = (/ &\n        & 0.44067e-05_rb,0.31037e-04_rb,0.35094e-04_rb,0.33812e-04_rb,0.18857e-04_rb /)\n      kbo(:, 3,57, 6) = (/ &\n        & 0.58663e-05_rb,0.37889e-04_rb,0.43100e-04_rb,0.41766e-04_rb,0.22502e-04_rb /)\n      kbo(:, 4,57, 6) = (/ &\n        & 0.75519e-05_rb,0.46817e-04_rb,0.54053e-04_rb,0.52634e-04_rb,0.27030e-04_rb /)\n      kbo(:, 5,57, 6) = (/ &\n        & 0.93649e-05_rb,0.58529e-04_rb,0.68705e-04_rb,0.67601e-04_rb,0.32661e-04_rb /)\n      kbo(:, 1,58, 6) = (/ &\n        & 0.24696e-05_rb,0.20698e-04_rb,0.23574e-04_rb,0.22507e-04_rb,0.12764e-04_rb /)\n      kbo(:, 2,58, 6) = (/ &\n        & 0.34175e-05_rb,0.25141e-04_rb,0.28438e-04_rb,0.27351e-04_rb,0.15243e-04_rb /)\n      kbo(:, 3,58, 6) = (/ &\n        & 0.45825e-05_rb,0.30855e-04_rb,0.35092e-04_rb,0.33951e-04_rb,0.18275e-04_rb /)\n      kbo(:, 4,58, 6) = (/ &\n        & 0.59665e-05_rb,0.38392e-04_rb,0.44239e-04_rb,0.43055e-04_rb,0.22112e-04_rb /)\n      kbo(:, 5,58, 6) = (/ &\n        & 0.74784e-05_rb,0.48383e-04_rb,0.56772e-04_rb,0.55657e-04_rb,0.26900e-04_rb /)\n      kbo(:, 1,59, 6) = (/ &\n        & 0.20113e-05_rb,0.17223e-04_rb,0.19628e-04_rb,0.18772e-04_rb,0.10576e-04_rb /)\n      kbo(:, 2,59, 6) = (/ &\n        & 0.27973e-05_rb,0.21075e-04_rb,0.23849e-04_rb,0.22960e-04_rb,0.12702e-04_rb /)\n      kbo(:, 3,59, 6) = (/ &\n        & 0.37714e-05_rb,0.26064e-04_rb,0.29696e-04_rb,0.28726e-04_rb,0.15326e-04_rb /)\n      kbo(:, 4,59, 6) = (/ &\n        & 0.49189e-05_rb,0.32724e-04_rb,0.37808e-04_rb,0.36791e-04_rb,0.18710e-04_rb /)\n      kbo(:, 5,59, 6) = (/ &\n        & 0.61850e-05_rb,0.41676e-04_rb,0.49043e-04_rb,0.48051e-04_rb,0.22936e-04_rb /)\n      kbo(:, 1,13, 7) = (/ &\n        & 0.90574e-01_rb,0.18508e+00_rb,0.20125e+00_rb,0.19353e+00_rb,0.13590e+00_rb /)\n      kbo(:, 2,13, 7) = (/ &\n        & 0.96633e-01_rb,0.18856e+00_rb,0.20514e+00_rb,0.19781e+00_rb,0.13867e+00_rb /)\n      kbo(:, 3,13, 7) = (/ &\n        & 0.10246e+00_rb,0.19231e+00_rb,0.20916e+00_rb,0.20175e+00_rb,0.14157e+00_rb /)\n      kbo(:, 4,13, 7) = (/ &\n        & 0.10831e+00_rb,0.19664e+00_rb,0.21340e+00_rb,0.20566e+00_rb,0.14422e+00_rb /)\n      kbo(:, 5,13, 7) = (/ &\n        & 0.11418e+00_rb,0.20190e+00_rb,0.21829e+00_rb,0.20964e+00_rb,0.14715e+00_rb /)\n      kbo(:, 1,14, 7) = (/ &\n        & 0.76731e-01_rb,0.15637e+00_rb,0.17031e+00_rb,0.16454e+00_rb,0.11471e+00_rb /)\n      kbo(:, 2,14, 7) = (/ &\n        & 0.81853e-01_rb,0.15935e+00_rb,0.17367e+00_rb,0.16809e+00_rb,0.11738e+00_rb /)\n      kbo(:, 3,14, 7) = (/ &\n        & 0.86939e-01_rb,0.16284e+00_rb,0.17719e+00_rb,0.17151e+00_rb,0.11993e+00_rb /)\n      kbo(:, 4,14, 7) = (/ &\n        & 0.91985e-01_rb,0.16698e+00_rb,0.18115e+00_rb,0.17500e+00_rb,0.12254e+00_rb /)\n      kbo(:, 5,14, 7) = (/ &\n        & 0.97005e-01_rb,0.17199e+00_rb,0.18590e+00_rb,0.17860e+00_rb,0.12524e+00_rb /)\n      kbo(:, 1,15, 7) = (/ &\n        & 0.64796e-01_rb,0.13180e+00_rb,0.14379e+00_rb,0.13927e+00_rb,0.96282e-01_rb /)\n      kbo(:, 2,15, 7) = (/ &\n        & 0.69175e-01_rb,0.13451e+00_rb,0.14669e+00_rb,0.14230e+00_rb,0.98702e-01_rb /)\n      kbo(:, 3,15, 7) = (/ &\n        & 0.73574e-01_rb,0.13779e+00_rb,0.14991e+00_rb,0.14533e+00_rb,0.10111e+00_rb /)\n      kbo(:, 4,15, 7) = (/ &\n        & 0.77907e-01_rb,0.14175e+00_rb,0.15375e+00_rb,0.14848e+00_rb,0.10336e+00_rb /)\n      kbo(:, 5,15, 7) = (/ &\n        & 0.82082e-01_rb,0.14644e+00_rb,0.15826e+00_rb,0.15192e+00_rb,0.10558e+00_rb /)\n      kbo(:, 1,16, 7) = (/ &\n        & 0.54603e-01_rb,0.11092e+00_rb,0.12113e+00_rb,0.11747e+00_rb,0.80564e-01_rb /)\n      kbo(:, 2,16, 7) = (/ &\n        & 0.58392e-01_rb,0.11343e+00_rb,0.12376e+00_rb,0.12011e+00_rb,0.82662e-01_rb /)\n      kbo(:, 3,16, 7) = (/ &\n        & 0.62149e-01_rb,0.11652e+00_rb,0.12680e+00_rb,0.12283e+00_rb,0.84744e-01_rb /)\n      kbo(:, 4,16, 7) = (/ &\n        & 0.65779e-01_rb,0.12031e+00_rb,0.13049e+00_rb,0.12576e+00_rb,0.86806e-01_rb /)\n      kbo(:, 5,16, 7) = (/ &\n        & 0.69275e-01_rb,0.12462e+00_rb,0.13474e+00_rb,0.12909e+00_rb,0.88592e-01_rb /)\n      kbo(:, 1,17, 7) = (/ &\n        & 0.46019e-01_rb,0.93276e-01_rb,0.10182e+00_rb,0.98886e-01_rb,0.67386e-01_rb /)\n      kbo(:, 2,17, 7) = (/ &\n        & 0.49257e-01_rb,0.95617e-01_rb,0.10427e+00_rb,0.10122e+00_rb,0.69214e-01_rb /)\n      kbo(:, 3,17, 7) = (/ &\n        & 0.52438e-01_rb,0.98544e-01_rb,0.10723e+00_rb,0.10369e+00_rb,0.71047e-01_rb /)\n      kbo(:, 4,17, 7) = (/ &\n        & 0.55444e-01_rb,0.10204e+00_rb,0.11074e+00_rb,0.10647e+00_rb,0.72809e-01_rb /)\n      kbo(:, 5,17, 7) = (/ &\n        & 0.58360e-01_rb,0.10585e+00_rb,0.11469e+00_rb,0.10967e+00_rb,0.74297e-01_rb /)\n      kbo(:, 1,18, 7) = (/ &\n        & 0.38789e-01_rb,0.78385e-01_rb,0.85426e-01_rb,0.83127e-01_rb,0.56424e-01_rb /)\n      kbo(:, 2,18, 7) = (/ &\n        & 0.41550e-01_rb,0.80626e-01_rb,0.87775e-01_rb,0.85216e-01_rb,0.58103e-01_rb /)\n      kbo(:, 3,18, 7) = (/ &\n        & 0.44172e-01_rb,0.83391e-01_rb,0.90633e-01_rb,0.87547e-01_rb,0.59665e-01_rb /)\n      kbo(:, 4,18, 7) = (/ &\n        & 0.46672e-01_rb,0.86541e-01_rb,0.93910e-01_rb,0.90224e-01_rb,0.61155e-01_rb /)\n      kbo(:, 5,18, 7) = (/ &\n        & 0.49119e-01_rb,0.89890e-01_rb,0.97478e-01_rb,0.93171e-01_rb,0.62440e-01_rb /)\n      kbo(:, 1,19, 7) = (/ &\n        & 0.32688e-01_rb,0.65866e-01_rb,0.71699e-01_rb,0.69831e-01_rb,0.47341e-01_rb /)\n      kbo(:, 2,19, 7) = (/ &\n        & 0.34993e-01_rb,0.67987e-01_rb,0.73938e-01_rb,0.71758e-01_rb,0.48787e-01_rb /)\n      kbo(:, 3,19, 7) = (/ &\n        & 0.37158e-01_rb,0.70566e-01_rb,0.76608e-01_rb,0.73972e-01_rb,0.50204e-01_rb /)\n      kbo(:, 4,19, 7) = (/ &\n        & 0.39257e-01_rb,0.73365e-01_rb,0.79594e-01_rb,0.76458e-01_rb,0.51459e-01_rb /)\n      kbo(:, 5,19, 7) = (/ &\n        & 0.41326e-01_rb,0.76343e-01_rb,0.82757e-01_rb,0.79138e-01_rb,0.52598e-01_rb /)\n      kbo(:, 1,20, 7) = (/ &\n        & 0.27557e-01_rb,0.55396e-01_rb,0.60366e-01_rb,0.58674e-01_rb,0.39775e-01_rb /)\n      kbo(:, 2,20, 7) = (/ &\n        & 0.29458e-01_rb,0.57423e-01_rb,0.62478e-01_rb,0.60497e-01_rb,0.41091e-01_rb /)\n      kbo(:, 3,20, 7) = (/ &\n        & 0.31261e-01_rb,0.59745e-01_rb,0.64927e-01_rb,0.62579e-01_rb,0.42317e-01_rb /)\n      kbo(:, 4,20, 7) = (/ &\n        & 0.33046e-01_rb,0.62240e-01_rb,0.67549e-01_rb,0.64853e-01_rb,0.43439e-01_rb /)\n      kbo(:, 5,20, 7) = (/ &\n        & 0.34818e-01_rb,0.64890e-01_rb,0.70320e-01_rb,0.67290e-01_rb,0.44513e-01_rb /)\n      kbo(:, 1,21, 7) = (/ &\n        & 0.23194e-01_rb,0.46662e-01_rb,0.50879e-01_rb,0.49331e-01_rb,0.33429e-01_rb /)\n      kbo(:, 2,21, 7) = (/ &\n        & 0.24776e-01_rb,0.48529e-01_rb,0.52871e-01_rb,0.51054e-01_rb,0.34590e-01_rb /)\n      kbo(:, 3,21, 7) = (/ &\n        & 0.26303e-01_rb,0.50578e-01_rb,0.55098e-01_rb,0.52980e-01_rb,0.35684e-01_rb /)\n      kbo(:, 4,21, 7) = (/ &\n        & 0.27810e-01_rb,0.52793e-01_rb,0.57429e-01_rb,0.55052e-01_rb,0.36688e-01_rb /)\n      kbo(:, 5,21, 7) = (/ &\n        & 0.29323e-01_rb,0.55187e-01_rb,0.59853e-01_rb,0.57245e-01_rb,0.37657e-01_rb /)\n      kbo(:, 1,22, 7) = (/ &\n        & 0.19600e-01_rb,0.39448e-01_rb,0.43057e-01_rb,0.41623e-01_rb,0.28169e-01_rb /)\n      kbo(:, 2,22, 7) = (/ &\n        & 0.20910e-01_rb,0.41135e-01_rb,0.44924e-01_rb,0.43250e-01_rb,0.29188e-01_rb /)\n      kbo(:, 3,22, 7) = (/ &\n        & 0.22195e-01_rb,0.42970e-01_rb,0.46916e-01_rb,0.45021e-01_rb,0.30138e-01_rb /)\n      kbo(:, 4,22, 7) = (/ &\n        & 0.23466e-01_rb,0.44963e-01_rb,0.48978e-01_rb,0.46906e-01_rb,0.31021e-01_rb /)\n      kbo(:, 5,22, 7) = (/ &\n        & 0.24791e-01_rb,0.47151e-01_rb,0.51143e-01_rb,0.48901e-01_rb,0.31919e-01_rb /)\n      kbo(:, 1,23, 7) = (/ &\n        & 0.16563e-01_rb,0.33405e-01_rb,0.36517e-01_rb,0.35235e-01_rb,0.23758e-01_rb /)\n      kbo(:, 2,23, 7) = (/ &\n        & 0.17634e-01_rb,0.34920e-01_rb,0.38215e-01_rb,0.36726e-01_rb,0.24656e-01_rb /)\n      kbo(:, 3,23, 7) = (/ &\n        & 0.18715e-01_rb,0.36571e-01_rb,0.39976e-01_rb,0.38337e-01_rb,0.25473e-01_rb /)\n      kbo(:, 4,23, 7) = (/ &\n        & 0.19810e-01_rb,0.38397e-01_rb,0.41828e-01_rb,0.40046e-01_rb,0.26273e-01_rb /)\n      kbo(:, 5,23, 7) = (/ &\n        & 0.20990e-01_rb,0.40406e-01_rb,0.43840e-01_rb,0.41881e-01_rb,0.27068e-01_rb /)\n      kbo(:, 1,24, 7) = (/ &\n        & 0.13980e-01_rb,0.28346e-01_rb,0.31027e-01_rb,0.29909e-01_rb,0.20058e-01_rb /)\n      kbo(:, 2,24, 7) = (/ &\n        & 0.14874e-01_rb,0.29707e-01_rb,0.32546e-01_rb,0.31266e-01_rb,0.20839e-01_rb /)\n      kbo(:, 3,24, 7) = (/ &\n        & 0.15797e-01_rb,0.31204e-01_rb,0.34123e-01_rb,0.32728e-01_rb,0.21557e-01_rb /)\n      kbo(:, 4,24, 7) = (/ &\n        & 0.16758e-01_rb,0.32875e-01_rb,0.35824e-01_rb,0.34296e-01_rb,0.22274e-01_rb /)\n      kbo(:, 5,24, 7) = (/ &\n        & 0.17809e-01_rb,0.34737e-01_rb,0.37711e-01_rb,0.35981e-01_rb,0.22992e-01_rb /)\n      kbo(:, 1,25, 7) = (/ &\n        & 0.11798e-01_rb,0.24110e-01_rb,0.26426e-01_rb,0.25457e-01_rb,0.16985e-01_rb /)\n      kbo(:, 2,25, 7) = (/ &\n        & 0.12561e-01_rb,0.25347e-01_rb,0.27781e-01_rb,0.26691e-01_rb,0.17655e-01_rb /)\n      kbo(:, 3,25, 7) = (/ &\n        & 0.13359e-01_rb,0.26711e-01_rb,0.29222e-01_rb,0.28026e-01_rb,0.18302e-01_rb /)\n      kbo(:, 4,25, 7) = (/ &\n        & 0.14208e-01_rb,0.28241e-01_rb,0.30806e-01_rb,0.29472e-01_rb,0.18949e-01_rb /)\n      kbo(:, 5,25, 7) = (/ &\n        & 0.15157e-01_rb,0.29980e-01_rb,0.32597e-01_rb,0.31029e-01_rb,0.19596e-01_rb /)\n      kbo(:, 1,26, 7) = (/ &\n        & 0.99745e-02_rb,0.20581e-01_rb,0.22580e-01_rb,0.21746e-01_rb,0.14432e-01_rb /)\n      kbo(:, 2,26, 7) = (/ &\n        & 0.10633e-01_rb,0.21703e-01_rb,0.23807e-01_rb,0.22873e-01_rb,0.15014e-01_rb /)\n      kbo(:, 3,26, 7) = (/ &\n        & 0.11328e-01_rb,0.22948e-01_rb,0.25141e-01_rb,0.24108e-01_rb,0.15588e-01_rb /)\n      kbo(:, 4,26, 7) = (/ &\n        & 0.12091e-01_rb,0.24380e-01_rb,0.26636e-01_rb,0.25439e-01_rb,0.16180e-01_rb /)\n      kbo(:, 5,26, 7) = (/ &\n        & 0.12943e-01_rb,0.26016e-01_rb,0.28335e-01_rb,0.26899e-01_rb,0.16787e-01_rb /)\n      kbo(:, 1,27, 7) = (/ &\n        & 0.84424e-02_rb,0.17603e-01_rb,0.19348e-01_rb,0.18632e-01_rb,0.12275e-01_rb /)\n      kbo(:, 2,27, 7) = (/ &\n        & 0.90172e-02_rb,0.18627e-01_rb,0.20475e-01_rb,0.19670e-01_rb,0.12796e-01_rb /)\n      kbo(:, 3,27, 7) = (/ &\n        & 0.96344e-02_rb,0.19791e-01_rb,0.21724e-01_rb,0.20817e-01_rb,0.13316e-01_rb /)\n      kbo(:, 4,27, 7) = (/ &\n        & 0.10319e-01_rb,0.21143e-01_rb,0.23141e-01_rb,0.22059e-01_rb,0.13859e-01_rb /)\n      kbo(:, 5,27, 7) = (/ &\n        & 0.11083e-01_rb,0.22688e-01_rb,0.24742e-01_rb,0.23449e-01_rb,0.14418e-01_rb /)\n      kbo(:, 1,28, 7) = (/ &\n        & 0.71594e-02_rb,0.15094e-01_rb,0.16638e-01_rb,0.16016e-01_rb,0.10452e-01_rb /)\n      kbo(:, 2,28, 7) = (/ &\n        & 0.76603e-02_rb,0.16043e-01_rb,0.17678e-01_rb,0.16989e-01_rb,0.10928e-01_rb /)\n      kbo(:, 3,28, 7) = (/ &\n        & 0.82161e-02_rb,0.17148e-01_rb,0.18856e-01_rb,0.18055e-01_rb,0.11409e-01_rb /)\n      kbo(:, 4,28, 7) = (/ &\n        & 0.88297e-02_rb,0.18429e-01_rb,0.20193e-01_rb,0.19234e-01_rb,0.11908e-01_rb /)\n      kbo(:, 5,28, 7) = (/ &\n        & 0.95210e-02_rb,0.19896e-01_rb,0.21697e-01_rb,0.20565e-01_rb,0.12423e-01_rb /)\n      kbo(:, 1,29, 7) = (/ &\n        & 0.60865e-02_rb,0.12992e-01_rb,0.14367e-01_rb,0.13830e-01_rb,0.89337e-02_rb /)\n      kbo(:, 2,29, 7) = (/ &\n        & 0.65273e-02_rb,0.13894e-01_rb,0.15342e-01_rb,0.14741e-01_rb,0.93649e-02_rb /)\n      kbo(:, 3,29, 7) = (/ &\n        & 0.70278e-02_rb,0.14949e-01_rb,0.16457e-01_rb,0.15746e-01_rb,0.98158e-02_rb /)\n      kbo(:, 4,29, 7) = (/ &\n        & 0.75858e-02_rb,0.16169e-01_rb,0.17720e-01_rb,0.16877e-01_rb,0.10273e-01_rb /)\n      kbo(:, 5,29, 7) = (/ &\n        & 0.82154e-02_rb,0.17564e-01_rb,0.19150e-01_rb,0.18159e-01_rb,0.10745e-01_rb /)\n      kbo(:, 1,30, 7) = (/ &\n        & 0.51820e-02_rb,0.11236e-01_rb,0.12459e-01_rb,0.12000e-01_rb,0.76507e-02_rb /)\n      kbo(:, 2,30, 7) = (/ &\n        & 0.55811e-02_rb,0.12098e-01_rb,0.13380e-01_rb,0.12854e-01_rb,0.80497e-02_rb /)\n      kbo(:, 3,30, 7) = (/ &\n        & 0.60310e-02_rb,0.13108e-01_rb,0.14440e-01_rb,0.13813e-01_rb,0.84648e-02_rb /)\n      kbo(:, 4,30, 7) = (/ &\n        & 0.65404e-02_rb,0.14273e-01_rb,0.15644e-01_rb,0.14905e-01_rb,0.88882e-02_rb /)\n      kbo(:, 5,30, 7) = (/ &\n        & 0.71170e-02_rb,0.15597e-01_rb,0.17012e-01_rb,0.16134e-01_rb,0.93248e-02_rb /)\n      kbo(:, 1,31, 7) = (/ &\n        & 0.44272e-02_rb,0.97757e-02_rb,0.10859e-01_rb,0.10467e-01_rb,0.65734e-02_rb /)\n      kbo(:, 2,31, 7) = (/ &\n        & 0.47878e-02_rb,0.10603e-01_rb,0.11740e-01_rb,0.11277e-01_rb,0.69415e-02_rb /)\n      kbo(:, 3,31, 7) = (/ &\n        & 0.51963e-02_rb,0.11572e-01_rb,0.12753e-01_rb,0.12201e-01_rb,0.73188e-02_rb /)\n      kbo(:, 4,31, 7) = (/ &\n        & 0.56609e-02_rb,0.12684e-01_rb,0.13904e-01_rb,0.13252e-01_rb,0.77091e-02_rb /)\n      kbo(:, 5,31, 7) = (/ &\n        & 0.61977e-02_rb,0.13944e-01_rb,0.15244e-01_rb,0.14424e-01_rb,0.81161e-02_rb /)\n      kbo(:, 1,32, 7) = (/ &\n        & 0.37962e-02_rb,0.85614e-02_rb,0.95233e-02_rb,0.91812e-02_rb,0.56658e-02_rb /)\n      kbo(:, 2,32, 7) = (/ &\n        & 0.41228e-02_rb,0.93595e-02_rb,0.10368e-01_rb,0.99574e-02_rb,0.60000e-02_rb /)\n      kbo(:, 3,32, 7) = (/ &\n        & 0.44947e-02_rb,0.10287e-01_rb,0.11338e-01_rb,0.10850e-01_rb,0.63462e-02_rb /)\n      kbo(:, 4,32, 7) = (/ &\n        & 0.49244e-02_rb,0.11349e-01_rb,0.12467e-01_rb,0.11857e-01_rb,0.67069e-02_rb /)\n      kbo(:, 5,32, 7) = (/ &\n        & 0.54252e-02_rb,0.12554e-01_rb,0.13767e-01_rb,0.12983e-01_rb,0.70910e-02_rb /)\n      kbo(:, 1,33, 7) = (/ &\n        & 0.32656e-02_rb,0.75519e-02_rb,0.84026e-02_rb,0.81028e-02_rb,0.48937e-02_rb /)\n      kbo(:, 2,33, 7) = (/ &\n        & 0.35630e-02_rb,0.83178e-02_rb,0.92157e-02_rb,0.88531e-02_rb,0.52004e-02_rb /)\n      kbo(:, 3,33, 7) = (/ &\n        & 0.39050e-02_rb,0.92063e-02_rb,0.10168e-01_rb,0.97125e-02_rb,0.55156e-02_rb /)\n      kbo(:, 4,33, 7) = (/ &\n        & 0.43055e-02_rb,0.10227e-01_rb,0.11270e-01_rb,0.10682e-01_rb,0.58516e-02_rb /)\n      kbo(:, 5,33, 7) = (/ &\n        & 0.47651e-02_rb,0.11396e-01_rb,0.12524e-01_rb,0.11769e-01_rb,0.62091e-02_rb /)\n      kbo(:, 1,34, 7) = (/ &\n        & 0.28105e-02_rb,0.66873e-02_rb,0.74405e-02_rb,0.71742e-02_rb,0.42413e-02_rb /)\n      kbo(:, 2,34, 7) = (/ &\n        & 0.30819e-02_rb,0.74197e-02_rb,0.82328e-02_rb,0.78962e-02_rb,0.45189e-02_rb /)\n      kbo(:, 3,34, 7) = (/ &\n        & 0.33974e-02_rb,0.82731e-02_rb,0.91582e-02_rb,0.87214e-02_rb,0.48133e-02_rb /)\n      kbo(:, 4,34, 7) = (/ &\n        & 0.37682e-02_rb,0.92558e-02_rb,0.10225e-01_rb,0.96550e-02_rb,0.51300e-02_rb /)\n      kbo(:, 5,34, 7) = (/ &\n        & 0.41836e-02_rb,0.10408e-01_rb,0.11429e-01_rb,0.10709e-01_rb,0.54671e-02_rb /)\n      kbo(:, 1,35, 7) = (/ &\n        & 0.24038e-02_rb,0.58948e-02_rb,0.65709e-02_rb,0.63304e-02_rb,0.36544e-02_rb /)\n      kbo(:, 2,35, 7) = (/ &\n        & 0.26483e-02_rb,0.65885e-02_rb,0.73295e-02_rb,0.70175e-02_rb,0.39080e-02_rb /)\n      kbo(:, 3,35, 7) = (/ &\n        & 0.29372e-02_rb,0.74016e-02_rb,0.82197e-02_rb,0.78032e-02_rb,0.41855e-02_rb /)\n      kbo(:, 4,35, 7) = (/ &\n        & 0.32728e-02_rb,0.83531e-02_rb,0.92365e-02_rb,0.86973e-02_rb,0.44777e-02_rb /)\n      kbo(:, 5,35, 7) = (/ &\n        & 0.36421e-02_rb,0.94681e-02_rb,0.10387e-01_rb,0.97145e-02_rb,0.47967e-02_rb /)\n      kbo(:, 1,36, 7) = (/ &\n        & 0.20373e-02_rb,0.51550e-02_rb,0.57662e-02_rb,0.55498e-02_rb,0.31231e-02_rb /)\n      kbo(:, 2,36, 7) = (/ &\n        & 0.22554e-02_rb,0.58057e-02_rb,0.64818e-02_rb,0.61953e-02_rb,0.33549e-02_rb /)\n      kbo(:, 3,36, 7) = (/ &\n        & 0.25127e-02_rb,0.65796e-02_rb,0.73228e-02_rb,0.69361e-02_rb,0.36112e-02_rb /)\n      kbo(:, 4,36, 7) = (/ &\n        & 0.28104e-02_rb,0.74827e-02_rb,0.82833e-02_rb,0.77843e-02_rb,0.38823e-02_rb /)\n      kbo(:, 5,36, 7) = (/ &\n        & 0.31359e-02_rb,0.85467e-02_rb,0.93763e-02_rb,0.87575e-02_rb,0.41812e-02_rb /)\n      kbo(:, 1,37, 7) = (/ &\n        & 0.17035e-02_rb,0.44466e-02_rb,0.49856e-02_rb,0.47970e-02_rb,0.26734e-02_rb /)\n      kbo(:, 2,37, 7) = (/ &\n        & 0.18934e-02_rb,0.50433e-02_rb,0.56462e-02_rb,0.53907e-02_rb,0.28873e-02_rb /)\n      kbo(:, 3,37, 7) = (/ &\n        & 0.21171e-02_rb,0.57558e-02_rb,0.64223e-02_rb,0.60783e-02_rb,0.31233e-02_rb /)\n      kbo(:, 4,37, 7) = (/ &\n        & 0.23767e-02_rb,0.65938e-02_rb,0.73141e-02_rb,0.68717e-02_rb,0.33760e-02_rb /)\n      kbo(:, 5,37, 7) = (/ &\n        & 0.26616e-02_rb,0.75860e-02_rb,0.83359e-02_rb,0.77859e-02_rb,0.36530e-02_rb /)\n      kbo(:, 1,38, 7) = (/ &\n        & 0.14234e-02_rb,0.38379e-02_rb,0.43139e-02_rb,0.41486e-02_rb,0.22904e-02_rb /)\n      kbo(:, 2,38, 7) = (/ &\n        & 0.15875e-02_rb,0.43850e-02_rb,0.49236e-02_rb,0.46956e-02_rb,0.24873e-02_rb /)\n      kbo(:, 3,38, 7) = (/ &\n        & 0.17824e-02_rb,0.50419e-02_rb,0.56400e-02_rb,0.53338e-02_rb,0.27024e-02_rb /)\n      kbo(:, 4,38, 7) = (/ &\n        & 0.20080e-02_rb,0.58195e-02_rb,0.64682e-02_rb,0.60767e-02_rb,0.29386e-02_rb /)\n      kbo(:, 5,38, 7) = (/ &\n        & 0.22567e-02_rb,0.67445e-02_rb,0.74253e-02_rb,0.69357e-02_rb,0.31979e-02_rb /)\n      kbo(:, 1,39, 7) = (/ &\n        & 0.11890e-02_rb,0.33180e-02_rb,0.37396e-02_rb,0.35935e-02_rb,0.19623e-02_rb /)\n      kbo(:, 2,39, 7) = (/ &\n        & 0.13309e-02_rb,0.38204e-02_rb,0.43017e-02_rb,0.40980e-02_rb,0.21427e-02_rb /)\n      kbo(:, 3,39, 7) = (/ &\n        & 0.14997e-02_rb,0.44279e-02_rb,0.49653e-02_rb,0.46926e-02_rb,0.23415e-02_rb /)\n      kbo(:, 4,39, 7) = (/ &\n        & 0.16956e-02_rb,0.51508e-02_rb,0.57361e-02_rb,0.53891e-02_rb,0.25595e-02_rb /)\n      kbo(:, 5,39, 7) = (/ &\n        & 0.19128e-02_rb,0.60136e-02_rb,0.66353e-02_rb,0.61975e-02_rb,0.28034e-02_rb /)\n      kbo(:, 1,40, 7) = (/ &\n        & 0.98185e-03_rb,0.28304e-02_rb,0.31989e-02_rb,0.30741e-02_rb,0.16759e-02_rb /)\n      kbo(:, 2,40, 7) = (/ &\n        & 0.11018e-02_rb,0.32825e-02_rb,0.37073e-02_rb,0.35318e-02_rb,0.18412e-02_rb /)\n      kbo(:, 3,40, 7) = (/ &\n        & 0.12459e-02_rb,0.38338e-02_rb,0.43125e-02_rb,0.40771e-02_rb,0.20230e-02_rb /)\n      kbo(:, 4,40, 7) = (/ &\n        & 0.14138e-02_rb,0.44950e-02_rb,0.50204e-02_rb,0.47198e-02_rb,0.22264e-02_rb /)\n      kbo(:, 5,40, 7) = (/ &\n        & 0.16015e-02_rb,0.52867e-02_rb,0.58524e-02_rb,0.54701e-02_rb,0.24538e-02_rb /)\n      kbo(:, 1,41, 7) = (/ &\n        & 0.80888e-03_rb,0.24101e-02_rb,0.27302e-02_rb,0.26250e-02_rb,0.14285e-02_rb /)\n      kbo(:, 2,41, 7) = (/ &\n        & 0.91042e-03_rb,0.28166e-02_rb,0.31895e-02_rb,0.30396e-02_rb,0.15812e-02_rb /)\n      kbo(:, 3,41, 7) = (/ &\n        & 0.10323e-02_rb,0.33144e-02_rb,0.37392e-02_rb,0.35375e-02_rb,0.17482e-02_rb /)\n      kbo(:, 4,41, 7) = (/ &\n        & 0.11757e-02_rb,0.39172e-02_rb,0.43885e-02_rb,0.41290e-02_rb,0.19366e-02_rb /)\n      kbo(:, 5,41, 7) = (/ &\n        & 0.13368e-02_rb,0.46417e-02_rb,0.51571e-02_rb,0.48237e-02_rb,0.21455e-02_rb /)\n      kbo(:, 1,42, 7) = (/ &\n        & 0.66584e-03_rb,0.20506e-02_rb,0.23294e-02_rb,0.22418e-02_rb,0.12147e-02_rb /)\n      kbo(:, 2,42, 7) = (/ &\n        & 0.75117e-03_rb,0.24164e-02_rb,0.27427e-02_rb,0.26163e-02_rb,0.13552e-02_rb /)\n      kbo(:, 3,42, 7) = (/ &\n        & 0.85464e-03_rb,0.28657e-02_rb,0.32419e-02_rb,0.30702e-02_rb,0.15103e-02_rb /)\n      kbo(:, 4,42, 7) = (/ &\n        & 0.97690e-03_rb,0.34148e-02_rb,0.38374e-02_rb,0.36136e-02_rb,0.16836e-02_rb /)\n      kbo(:, 5,42, 7) = (/ &\n        & 0.11154e-02_rb,0.40777e-02_rb,0.45486e-02_rb,0.42564e-02_rb,0.18765e-02_rb /)\n      kbo(:, 1,43, 7) = (/ &\n        & 0.54468e-03_rb,0.17260e-02_rb,0.19662e-02_rb,0.18963e-02_rb,0.10278e-02_rb /)\n      kbo(:, 2,43, 7) = (/ &\n        & 0.61495e-03_rb,0.20517e-02_rb,0.23339e-02_rb,0.22307e-02_rb,0.11544e-02_rb /)\n      kbo(:, 3,43, 7) = (/ &\n        & 0.70090e-03_rb,0.24526e-02_rb,0.27821e-02_rb,0.26393e-02_rb,0.12972e-02_rb /)\n      kbo(:, 4,43, 7) = (/ &\n        & 0.80460e-03_rb,0.29460e-02_rb,0.33228e-02_rb,0.31329e-02_rb,0.14583e-02_rb /)\n      kbo(:, 5,43, 7) = (/ &\n        & 0.92296e-03_rb,0.35462e-02_rb,0.39738e-02_rb,0.37220e-02_rb,0.16369e-02_rb /)\n      kbo(:, 1,44, 7) = (/ &\n        & 0.44364e-03_rb,0.14437e-02_rb,0.16496e-02_rb,0.15952e-02_rb,0.86540e-03_rb /)\n      kbo(:, 2,44, 7) = (/ &\n        & 0.50199e-03_rb,0.17304e-02_rb,0.19739e-02_rb,0.18912e-02_rb,0.97937e-03_rb /)\n      kbo(:, 3,44, 7) = (/ &\n        & 0.57242e-03_rb,0.20860e-02_rb,0.23731e-02_rb,0.22565e-02_rb,0.11106e-02_rb /)\n      kbo(:, 4,44, 7) = (/ &\n        & 0.65930e-03_rb,0.25283e-02_rb,0.28613e-02_rb,0.27024e-02_rb,0.12573e-02_rb /)\n      kbo(:, 5,44, 7) = (/ &\n        & 0.75974e-03_rb,0.30673e-02_rb,0.34531e-02_rb,0.32379e-02_rb,0.14238e-02_rb /)\n      kbo(:, 1,45, 7) = (/ &\n        & 0.36129e-03_rb,0.12055e-02_rb,0.13811e-02_rb,0.13394e-02_rb,0.72668e-03_rb /)\n      kbo(:, 2,45, 7) = (/ &\n        & 0.40925e-03_rb,0.14558e-02_rb,0.16660e-02_rb,0.16003e-02_rb,0.82937e-03_rb /)\n      kbo(:, 3,45, 7) = (/ &\n        & 0.46755e-03_rb,0.17705e-02_rb,0.20201e-02_rb,0.19260e-02_rb,0.94755e-03_rb /)\n      kbo(:, 4,45, 7) = (/ &\n        & 0.53937e-03_rb,0.21654e-02_rb,0.24593e-02_rb,0.23275e-02_rb,0.10822e-02_rb /)\n      kbo(:, 5,45, 7) = (/ &\n        & 0.62400e-03_rb,0.26505e-02_rb,0.29965e-02_rb,0.28141e-02_rb,0.12345e-02_rb /)\n      kbo(:, 1,46, 7) = (/ &\n        & 0.29308e-03_rb,0.99917e-03_rb,0.11483e-02_rb,0.11175e-02_rb,0.60699e-03_rb /)\n      kbo(:, 2,46, 7) = (/ &\n        & 0.33256e-03_rb,0.12167e-02_rb,0.13963e-02_rb,0.13454e-02_rb,0.69810e-03_rb /)\n      kbo(:, 3,46, 7) = (/ &\n        & 0.38031e-03_rb,0.14933e-02_rb,0.17091e-02_rb,0.16341e-02_rb,0.80431e-03_rb /)\n      kbo(:, 4,46, 7) = (/ &\n        & 0.43974e-03_rb,0.18423e-02_rb,0.21003e-02_rb,0.19926e-02_rb,0.92607e-03_rb /)\n      kbo(:, 5,46, 7) = (/ &\n        & 0.51042e-03_rb,0.22760e-02_rb,0.25842e-02_rb,0.24318e-02_rb,0.10656e-02_rb /)\n      kbo(:, 1,47, 7) = (/ &\n        & 0.23621e-03_rb,0.81920e-03_rb,0.94415e-03_rb,0.92230e-03_rb,0.50239e-03_rb /)\n      kbo(:, 2,47, 7) = (/ &\n        & 0.26847e-03_rb,0.10045e-02_rb,0.11560e-02_rb,0.11182e-02_rb,0.58268e-03_rb /)\n      kbo(:, 3,47, 7) = (/ &\n        & 0.30727e-03_rb,0.12442e-02_rb,0.14284e-02_rb,0.13701e-02_rb,0.67654e-03_rb /)\n      kbo(:, 4,47, 7) = (/ &\n        & 0.35565e-03_rb,0.15479e-02_rb,0.17727e-02_rb,0.16866e-02_rb,0.78602e-03_rb /)\n      kbo(:, 5,47, 7) = (/ &\n        & 0.41455e-03_rb,0.19320e-02_rb,0.22031e-02_rb,0.20787e-02_rb,0.91297e-03_rb /)\n      kbo(:, 1,48, 7) = (/ &\n        & 0.19056e-03_rb,0.66912e-03_rb,0.77329e-03_rb,0.75810e-03_rb,0.41434e-03_rb /)\n      kbo(:, 2,48, 7) = (/ &\n        & 0.21662e-03_rb,0.82638e-03_rb,0.95404e-03_rb,0.92602e-03_rb,0.48448e-03_rb /)\n      kbo(:, 3,48, 7) = (/ &\n        & 0.24805e-03_rb,0.10324e-02_rb,0.11883e-02_rb,0.11443e-02_rb,0.56714e-03_rb /)\n      kbo(:, 4,48, 7) = (/ &\n        & 0.28732e-03_rb,0.12967e-02_rb,0.14909e-02_rb,0.14226e-02_rb,0.66465e-03_rb /)\n      kbo(:, 5,48, 7) = (/ &\n        & 0.33598e-03_rb,0.16339e-02_rb,0.18720e-02_rb,0.17712e-02_rb,0.77925e-03_rb /)\n      kbo(:, 1,49, 7) = (/ &\n        & 0.15370e-03_rb,0.54435e-03_rb,0.63072e-03_rb,0.62031e-03_rb,0.34039e-03_rb /)\n      kbo(:, 2,49, 7) = (/ &\n        & 0.17493e-03_rb,0.67703e-03_rb,0.78385e-03_rb,0.76375e-03_rb,0.40110e-03_rb /)\n      kbo(:, 3,49, 7) = (/ &\n        & 0.20006e-03_rb,0.85331e-03_rb,0.98454e-03_rb,0.95185e-03_rb,0.47334e-03_rb /)\n      kbo(:, 4,49, 7) = (/ &\n        & 0.23184e-03_rb,0.10822e-02_rb,0.12482e-02_rb,0.11953e-02_rb,0.56021e-03_rb /)\n      kbo(:, 5,49, 7) = (/ &\n        & 0.27201e-03_rb,0.13761e-02_rb,0.15848e-02_rb,0.15038e-02_rb,0.66336e-03_rb /)\n      kbo(:, 1,50, 7) = (/ &\n        & 0.12445e-03_rb,0.44363e-03_rb,0.51558e-03_rb,0.50858e-03_rb,0.27983e-03_rb /)\n      kbo(:, 2,50, 7) = (/ &\n        & 0.14173e-03_rb,0.55572e-03_rb,0.64516e-03_rb,0.63048e-03_rb,0.33240e-03_rb /)\n      kbo(:, 3,50, 7) = (/ &\n        & 0.16225e-03_rb,0.70658e-03_rb,0.81789e-03_rb,0.79296e-03_rb,0.39601e-03_rb /)\n      kbo(:, 4,50, 7) = (/ &\n        & 0.18768e-03_rb,0.90539e-03_rb,0.10468e-02_rb,0.10060e-02_rb,0.47285e-03_rb /)\n      kbo(:, 5,50, 7) = (/ &\n        & 0.22071e-03_rb,0.11624e-02_rb,0.13446e-02_rb,0.12795e-02_rb,0.56523e-03_rb /)\n      kbo(:, 1,51, 7) = (/ &\n        & 0.10079e-03_rb,0.36142e-03_rb,0.42089e-03_rb,0.41617e-03_rb,0.23042e-03_rb /)\n      kbo(:, 2,51, 7) = (/ &\n        & 0.11508e-03_rb,0.45540e-03_rb,0.53023e-03_rb,0.51983e-03_rb,0.27489e-03_rb /)\n      kbo(:, 3,51, 7) = (/ &\n        & 0.13183e-03_rb,0.58426e-03_rb,0.67873e-03_rb,0.65942e-03_rb,0.33073e-03_rb /)\n      kbo(:, 4,51, 7) = (/ &\n        & 0.15243e-03_rb,0.75694e-03_rb,0.87652e-03_rb,0.84573e-03_rb,0.39869e-03_rb /)\n      kbo(:, 5,51, 7) = (/ &\n        & 0.17921e-03_rb,0.98295e-03_rb,0.11402e-02_rb,0.10885e-02_rb,0.48140e-03_rb /)\n      kbo(:, 1,52, 7) = (/ &\n        & 0.81556e-04_rb,0.29363e-03_rb,0.34244e-03_rb,0.33921e-03_rb,0.18905e-03_rb /)\n      kbo(:, 2,52, 7) = (/ &\n        & 0.93358e-04_rb,0.37204e-03_rb,0.43415e-03_rb,0.42707e-03_rb,0.22730e-03_rb /)\n      kbo(:, 3,52, 7) = (/ &\n        & 0.10711e-03_rb,0.48125e-03_rb,0.56095e-03_rb,0.54625e-03_rb,0.27517e-03_rb /)\n      kbo(:, 4,52, 7) = (/ &\n        & 0.12382e-03_rb,0.62999e-03_rb,0.73195e-03_rb,0.70815e-03_rb,0.33506e-03_rb /)\n      kbo(:, 5,52, 7) = (/ &\n        & 0.14564e-03_rb,0.82786e-03_rb,0.96258e-03_rb,0.92197e-03_rb,0.40847e-03_rb /)\n      kbo(:, 1,53, 7) = (/ &\n        & 0.65849e-04_rb,0.23779e-03_rb,0.27734e-03_rb,0.27519e-03_rb,0.15433e-03_rb /)\n      kbo(:, 2,53, 7) = (/ &\n        & 0.75546e-04_rb,0.30303e-03_rb,0.35410e-03_rb,0.34952e-03_rb,0.18741e-03_rb /)\n      kbo(:, 3,53, 7) = (/ &\n        & 0.86880e-04_rb,0.39464e-03_rb,0.46133e-03_rb,0.45049e-03_rb,0.22844e-03_rb /)\n      kbo(:, 4,53, 7) = (/ &\n        & 0.10061e-03_rb,0.52205e-03_rb,0.60866e-03_rb,0.59002e-03_rb,0.28045e-03_rb /)\n      kbo(:, 5,53, 7) = (/ &\n        & 0.11837e-03_rb,0.69424e-03_rb,0.80911e-03_rb,0.77763e-03_rb,0.34549e-03_rb /)\n      kbo(:, 1,54, 7) = (/ &\n        & 0.53194e-04_rb,0.19358e-03_rb,0.22554e-03_rb,0.22386e-03_rb,0.12634e-03_rb /)\n      kbo(:, 2,54, 7) = (/ &\n        & 0.61356e-04_rb,0.24774e-03_rb,0.28991e-03_rb,0.28698e-03_rb,0.15485e-03_rb /)\n      kbo(:, 3,54, 7) = (/ &\n        & 0.70732e-04_rb,0.32546e-03_rb,0.38104e-03_rb,0.37325e-03_rb,0.19067e-03_rb /)\n      kbo(:, 4,54, 7) = (/ &\n        & 0.81989e-04_rb,0.43475e-03_rb,0.50842e-03_rb,0.49348e-03_rb,0.23573e-03_rb /)\n      kbo(:, 5,54, 7) = (/ &\n        & 0.96606e-04_rb,0.58491e-03_rb,0.68358e-03_rb,0.65848e-03_rb,0.29331e-03_rb /)\n      kbo(:, 1,55, 7) = (/ &\n        & 0.42968e-04_rb,0.15774e-03_rb,0.18351e-03_rb,0.18209e-03_rb,0.10325e-03_rb /)\n      kbo(:, 2,55, 7) = (/ &\n        & 0.49757e-04_rb,0.20300e-03_rb,0.23752e-03_rb,0.23563e-03_rb,0.12786e-03_rb /)\n      kbo(:, 3,55, 7) = (/ &\n        & 0.57602e-04_rb,0.26853e-03_rb,0.31476e-03_rb,0.30938e-03_rb,0.15908e-03_rb /)\n      kbo(:, 4,55, 7) = (/ &\n        & 0.66944e-04_rb,0.36215e-03_rb,0.42458e-03_rb,0.41285e-03_rb,0.19867e-03_rb /)\n      kbo(:, 5,55, 7) = (/ &\n        & 0.78909e-04_rb,0.49332e-03_rb,0.57794e-03_rb,0.55775e-03_rb,0.24929e-03_rb /)\n      kbo(:, 1,56, 7) = (/ &\n        & 0.34572e-04_rb,0.12819e-03_rb,0.14868e-03_rb,0.14747e-03_rb,0.84103e-04_rb /)\n      kbo(:, 2,56, 7) = (/ &\n        & 0.40234e-04_rb,0.16586e-03_rb,0.19409e-03_rb,0.19266e-03_rb,0.10511e-03_rb /)\n      kbo(:, 3,56, 7) = (/ &\n        & 0.46756e-04_rb,0.22079e-03_rb,0.25905e-03_rb,0.25536e-03_rb,0.13228e-03_rb /)\n      kbo(:, 4,56, 7) = (/ &\n        & 0.54583e-04_rb,0.30103e-03_rb,0.35315e-03_rb,0.34421e-03_rb,0.16708e-03_rb /)\n      kbo(:, 5,56, 7) = (/ &\n        & 0.64414e-04_rb,0.41471e-03_rb,0.48701e-03_rb,0.47045e-03_rb,0.21139e-03_rb /)\n      kbo(:, 1,57, 7) = (/ &\n        & 0.27768e-04_rb,0.10391e-03_rb,0.12029e-03_rb,0.11888e-03_rb,0.68178e-04_rb /)\n      kbo(:, 2,57, 7) = (/ &\n        & 0.32463e-04_rb,0.13502e-03_rb,0.15785e-03_rb,0.15684e-03_rb,0.86073e-04_rb /)\n      kbo(:, 3,57, 7) = (/ &\n        & 0.37880e-04_rb,0.18114e-03_rb,0.21255e-03_rb,0.20984e-03_rb,0.10949e-03_rb /)\n      kbo(:, 4,57, 7) = (/ &\n        & 0.44374e-04_rb,0.24914e-03_rb,0.29262e-03_rb,0.28609e-03_rb,0.14004e-03_rb /)\n      kbo(:, 5,57, 7) = (/ &\n        & 0.52560e-04_rb,0.34723e-03_rb,0.40853e-03_rb,0.39531e-03_rb,0.17907e-03_rb /)\n      kbo(:, 1,58, 7) = (/ &\n        & 0.22293e-04_rb,0.84410e-04_rb,0.97318e-04_rb,0.95954e-04_rb,0.55246e-04_rb /)\n      kbo(:, 2,58, 7) = (/ &\n        & 0.26200e-04_rb,0.11013e-03_rb,0.12878e-03_rb,0.12778e-03_rb,0.70434e-04_rb /)\n      kbo(:, 3,58, 7) = (/ &\n        & 0.30694e-04_rb,0.14878e-03_rb,0.17475e-03_rb,0.17269e-03_rb,0.90681e-04_rb /)\n      kbo(:, 4,58, 7) = (/ &\n        & 0.36071e-04_rb,0.20666e-03_rb,0.24284e-03_rb,0.23795e-03_rb,0.11731e-03_rb /)\n      kbo(:, 5,58, 7) = (/ &\n        & 0.42845e-04_rb,0.29161e-03_rb,0.34322e-03_rb,0.33267e-03_rb,0.15208e-03_rb /)\n      kbo(:, 1,59, 7) = (/ &\n        & 0.18430e-04_rb,0.71706e-04_rb,0.82601e-04_rb,0.81289e-04_rb,0.46584e-04_rb /)\n      kbo(:, 2,59, 7) = (/ &\n        & 0.21734e-04_rb,0.94599e-04_rb,0.11060e-03_rb,0.10958e-03_rb,0.60168e-04_rb /)\n      kbo(:, 3,59, 7) = (/ &\n        & 0.25561e-04_rb,0.12924e-03_rb,0.15196e-03_rb,0.15008e-03_rb,0.78430e-04_rb /)\n      kbo(:, 4,59, 7) = (/ &\n        & 0.30185e-04_rb,0.18220e-03_rb,0.21420e-03_rb,0.20980e-03_rb,0.10280e-03_rb /)\n      kbo(:, 5,59, 7) = (/ &\n        & 0.36067e-04_rb,0.26061e-03_rb,0.30710e-03_rb,0.29739e-03_rb,0.13531e-03_rb /)\n      kbo(:, 1,13, 8) = (/ &\n        & 0.32299e+00_rb,0.54760e+00_rb,0.60079e+00_rb,0.58517e+00_rb,0.42276e+00_rb /)\n      kbo(:, 2,13, 8) = (/ &\n        & 0.32594e+00_rb,0.55963e+00_rb,0.61653e+00_rb,0.60147e+00_rb,0.43281e+00_rb /)\n      kbo(:, 3,13, 8) = (/ &\n        & 0.33056e+00_rb,0.57182e+00_rb,0.63236e+00_rb,0.61863e+00_rb,0.44149e+00_rb /)\n      kbo(:, 4,13, 8) = (/ &\n        & 0.33706e+00_rb,0.58426e+00_rb,0.64822e+00_rb,0.63489e+00_rb,0.44893e+00_rb /)\n      kbo(:, 5,13, 8) = (/ &\n        & 0.34635e+00_rb,0.59739e+00_rb,0.66343e+00_rb,0.65003e+00_rb,0.45486e+00_rb /)\n      kbo(:, 1,14, 8) = (/ &\n        & 0.27185e+00_rb,0.47396e+00_rb,0.52087e+00_rb,0.50518e+00_rb,0.35898e+00_rb /)\n      kbo(:, 2,14, 8) = (/ &\n        & 0.27455e+00_rb,0.48454e+00_rb,0.53473e+00_rb,0.52058e+00_rb,0.36725e+00_rb /)\n      kbo(:, 3,14, 8) = (/ &\n        & 0.27878e+00_rb,0.49523e+00_rb,0.54876e+00_rb,0.53556e+00_rb,0.37477e+00_rb /)\n      kbo(:, 4,14, 8) = (/ &\n        & 0.28540e+00_rb,0.50660e+00_rb,0.56244e+00_rb,0.54948e+00_rb,0.38095e+00_rb /)\n      kbo(:, 5,14, 8) = (/ &\n        & 0.29474e+00_rb,0.51876e+00_rb,0.57592e+00_rb,0.56255e+00_rb,0.38660e+00_rb /)\n      kbo(:, 1,15, 8) = (/ &\n        & 0.22818e+00_rb,0.40825e+00_rb,0.45003e+00_rb,0.43582e+00_rb,0.30350e+00_rb /)\n      kbo(:, 2,15, 8) = (/ &\n        & 0.23074e+00_rb,0.41749e+00_rb,0.46220e+00_rb,0.44930e+00_rb,0.31064e+00_rb /)\n      kbo(:, 3,15, 8) = (/ &\n        & 0.23510e+00_rb,0.42737e+00_rb,0.47434e+00_rb,0.46202e+00_rb,0.31696e+00_rb /)\n      kbo(:, 4,15, 8) = (/ &\n        & 0.24186e+00_rb,0.43783e+00_rb,0.48637e+00_rb,0.47387e+00_rb,0.32265e+00_rb /)\n      kbo(:, 5,15, 8) = (/ &\n        & 0.25121e+00_rb,0.44943e+00_rb,0.49855e+00_rb,0.48519e+00_rb,0.32816e+00_rb /)\n      kbo(:, 1,16, 8) = (/ &\n        & 0.19120e+00_rb,0.34975e+00_rb,0.38732e+00_rb,0.37509e+00_rb,0.25617e+00_rb /)\n      kbo(:, 2,16, 8) = (/ &\n        & 0.19385e+00_rb,0.35826e+00_rb,0.39799e+00_rb,0.38666e+00_rb,0.26259e+00_rb /)\n      kbo(:, 3,16, 8) = (/ &\n        & 0.19846e+00_rb,0.36727e+00_rb,0.40872e+00_rb,0.39750e+00_rb,0.26815e+00_rb /)\n      kbo(:, 4,16, 8) = (/ &\n        & 0.20537e+00_rb,0.37712e+00_rb,0.41954e+00_rb,0.40777e+00_rb,0.27330e+00_rb /)\n      kbo(:, 5,16, 8) = (/ &\n        & 0.21427e+00_rb,0.38868e+00_rb,0.43071e+00_rb,0.41784e+00_rb,0.27853e+00_rb /)\n      kbo(:, 1,17, 8) = (/ &\n        & 0.15988e+00_rb,0.29854e+00_rb,0.33180e+00_rb,0.32201e+00_rb,0.21611e+00_rb /)\n      kbo(:, 2,17, 8) = (/ &\n        & 0.16279e+00_rb,0.30628e+00_rb,0.34129e+00_rb,0.33188e+00_rb,0.22162e+00_rb /)\n      kbo(:, 3,17, 8) = (/ &\n        & 0.16763e+00_rb,0.31463e+00_rb,0.35085e+00_rb,0.34122e+00_rb,0.22664e+00_rb /)\n      kbo(:, 4,17, 8) = (/ &\n        & 0.17444e+00_rb,0.32432e+00_rb,0.36068e+00_rb,0.35032e+00_rb,0.23161e+00_rb /)\n      kbo(:, 5,17, 8) = (/ &\n        & 0.18274e+00_rb,0.33609e+00_rb,0.37140e+00_rb,0.35944e+00_rb,0.23665e+00_rb /)\n      kbo(:, 1,18, 8) = (/ &\n        & 0.13352e+00_rb,0.25404e+00_rb,0.28330e+00_rb,0.27577e+00_rb,0.18225e+00_rb /)\n      kbo(:, 2,18, 8) = (/ &\n        & 0.13667e+00_rb,0.26103e+00_rb,0.29171e+00_rb,0.28431e+00_rb,0.18712e+00_rb /)\n      kbo(:, 3,18, 8) = (/ &\n        & 0.14164e+00_rb,0.26910e+00_rb,0.30030e+00_rb,0.29254e+00_rb,0.19176e+00_rb /)\n      kbo(:, 4,18, 8) = (/ &\n        & 0.14809e+00_rb,0.27886e+00_rb,0.30959e+00_rb,0.30073e+00_rb,0.19637e+00_rb /)\n      kbo(:, 5,18, 8) = (/ &\n        & 0.15551e+00_rb,0.29050e+00_rb,0.32020e+00_rb,0.30930e+00_rb,0.20115e+00_rb /)\n      kbo(:, 1,19, 8) = (/ &\n        & 0.11177e+00_rb,0.21580e+00_rb,0.24136e+00_rb,0.23552e+00_rb,0.15392e+00_rb /)\n      kbo(:, 2,19, 8) = (/ &\n        & 0.11504e+00_rb,0.22243e+00_rb,0.24890e+00_rb,0.24304e+00_rb,0.15833e+00_rb /)\n      kbo(:, 3,19, 8) = (/ &\n        & 0.11975e+00_rb,0.23031e+00_rb,0.25687e+00_rb,0.25048e+00_rb,0.16244e+00_rb /)\n      kbo(:, 4,19, 8) = (/ &\n        & 0.12553e+00_rb,0.23994e+00_rb,0.26588e+00_rb,0.25812e+00_rb,0.16671e+00_rb /)\n      kbo(:, 5,19, 8) = (/ &\n        & 0.13204e+00_rb,0.25107e+00_rb,0.27639e+00_rb,0.26629e+00_rb,0.17110e+00_rb /)\n      kbo(:, 1,20, 8) = (/ &\n        & 0.93818e-01_rb,0.18336e+00_rb,0.20533e+00_rb,0.20083e+00_rb,0.13063e+00_rb /)\n      kbo(:, 2,20, 8) = (/ &\n        & 0.97153e-01_rb,0.18975e+00_rb,0.21222e+00_rb,0.20754e+00_rb,0.13445e+00_rb /)\n      kbo(:, 3,20, 8) = (/ &\n        & 0.10157e+00_rb,0.19759e+00_rb,0.21989e+00_rb,0.21439e+00_rb,0.13819e+00_rb /)\n      kbo(:, 4,20, 8) = (/ &\n        & 0.10656e+00_rb,0.20692e+00_rb,0.22885e+00_rb,0.22170e+00_rb,0.14200e+00_rb /)\n      kbo(:, 5,20, 8) = (/ &\n        & 0.11217e+00_rb,0.21741e+00_rb,0.23914e+00_rb,0.22972e+00_rb,0.14595e+00_rb /)\n      kbo(:, 1,21, 8) = (/ &\n        & 0.78864e-01_rb,0.15581e+00_rb,0.17467e+00_rb,0.17111e+00_rb,0.11093e+00_rb /)\n      kbo(:, 2,21, 8) = (/ &\n        & 0.82115e-01_rb,0.16213e+00_rb,0.18114e+00_rb,0.17722e+00_rb,0.11448e+00_rb /)\n      kbo(:, 3,21, 8) = (/ &\n        & 0.86091e-01_rb,0.16989e+00_rb,0.18858e+00_rb,0.18368e+00_rb,0.11795e+00_rb /)\n      kbo(:, 4,21, 8) = (/ &\n        & 0.90544e-01_rb,0.17883e+00_rb,0.19740e+00_rb,0.19075e+00_rb,0.12140e+00_rb /)\n      kbo(:, 5,21, 8) = (/ &\n        & 0.95531e-01_rb,0.18857e+00_rb,0.20719e+00_rb,0.19872e+00_rb,0.12494e+00_rb /)\n      kbo(:, 1,22, 8) = (/ &\n        & 0.66536e-01_rb,0.13293e+00_rb,0.14913e+00_rb,0.14618e+00_rb,0.94429e-01_rb /)\n      kbo(:, 2,22, 8) = (/ &\n        & 0.69639e-01_rb,0.13931e+00_rb,0.15537e+00_rb,0.15187e+00_rb,0.97680e-01_rb /)\n      kbo(:, 3,22, 8) = (/ &\n        & 0.73194e-01_rb,0.14688e+00_rb,0.16282e+00_rb,0.15805e+00_rb,0.10087e+00_rb /)\n      kbo(:, 4,22, 8) = (/ &\n        & 0.77205e-01_rb,0.15536e+00_rb,0.17135e+00_rb,0.16503e+00_rb,0.10414e+00_rb /)\n      kbo(:, 5,22, 8) = (/ &\n        & 0.81667e-01_rb,0.16427e+00_rb,0.18066e+00_rb,0.17291e+00_rb,0.10744e+00_rb /)\n      kbo(:, 1,23, 8) = (/ &\n        & 0.56261e-01_rb,0.11383e+00_rb,0.12760e+00_rb,0.12512e+00_rb,0.80559e-01_rb /)\n      kbo(:, 2,23, 8) = (/ &\n        & 0.59086e-01_rb,0.12014e+00_rb,0.13384e+00_rb,0.13048e+00_rb,0.83485e-01_rb /)\n      kbo(:, 3,23, 8) = (/ &\n        & 0.62281e-01_rb,0.12738e+00_rb,0.14121e+00_rb,0.13648e+00_rb,0.86460e-01_rb /)\n      kbo(:, 4,23, 8) = (/ &\n        & 0.65906e-01_rb,0.13517e+00_rb,0.14937e+00_rb,0.14336e+00_rb,0.89462e-01_rb /)\n      kbo(:, 5,23, 8) = (/ &\n        & 0.69998e-01_rb,0.14335e+00_rb,0.15807e+00_rb,0.15098e+00_rb,0.92588e-01_rb /)\n      kbo(:, 1,24, 8) = (/ &\n        & 0.47642e-01_rb,0.97933e-01_rb,0.10963e+00_rb,0.10742e+00_rb,0.68750e-01_rb /)\n      kbo(:, 2,24, 8) = (/ &\n        & 0.50193e-01_rb,0.10399e+00_rb,0.11587e+00_rb,0.11258e+00_rb,0.71432e-01_rb /)\n      kbo(:, 3,24, 8) = (/ &\n        & 0.53085e-01_rb,0.11077e+00_rb,0.12298e+00_rb,0.11845e+00_rb,0.74194e-01_rb /)\n      kbo(:, 4,24, 8) = (/ &\n        & 0.56384e-01_rb,0.11795e+00_rb,0.13070e+00_rb,0.12512e+00_rb,0.76973e-01_rb /)\n      kbo(:, 5,24, 8) = (/ &\n        & 0.60174e-01_rb,0.12555e+00_rb,0.13879e+00_rb,0.13237e+00_rb,0.79920e-01_rb /)\n      kbo(:, 1,25, 8) = (/ &\n        & 0.40432e-01_rb,0.84645e-01_rb,0.94724e-01_rb,0.92637e-01_rb,0.58805e-01_rb /)\n      kbo(:, 2,25, 8) = (/ &\n        & 0.42748e-01_rb,0.90409e-01_rb,0.10079e+00_rb,0.97654e-01_rb,0.61289e-01_rb /)\n      kbo(:, 3,25, 8) = (/ &\n        & 0.45392e-01_rb,0.96682e-01_rb,0.10756e+00_rb,0.10341e+00_rb,0.63818e-01_rb /)\n      kbo(:, 4,25, 8) = (/ &\n        & 0.48438e-01_rb,0.10335e+00_rb,0.11478e+00_rb,0.10978e+00_rb,0.66481e-01_rb /)\n      kbo(:, 5,25, 8) = (/ &\n        & 0.52019e-01_rb,0.11050e+00_rb,0.12234e+00_rb,0.11664e+00_rb,0.69209e-01_rb /)\n      kbo(:, 1,26, 8) = (/ &\n        & 0.34430e-01_rb,0.73567e-01_rb,0.82349e-01_rb,0.80341e-01_rb,0.50485e-01_rb /)\n      kbo(:, 2,26, 8) = (/ &\n        & 0.36558e-01_rb,0.78997e-01_rb,0.88163e-01_rb,0.85293e-01_rb,0.52835e-01_rb /)\n      kbo(:, 3,26, 8) = (/ &\n        & 0.39009e-01_rb,0.84818e-01_rb,0.94521e-01_rb,0.90851e-01_rb,0.55181e-01_rb /)\n      kbo(:, 4,26, 8) = (/ &\n        & 0.41876e-01_rb,0.91074e-01_rb,0.10127e+00_rb,0.96922e-01_rb,0.57644e-01_rb /)\n      kbo(:, 5,26, 8) = (/ &\n        & 0.45294e-01_rb,0.97874e-01_rb,0.10841e+00_rb,0.10340e+00_rb,0.60258e-01_rb /)\n      kbo(:, 1,27, 8) = (/ &\n        & 0.29418e-01_rb,0.64289e-01_rb,0.71984e-01_rb,0.70112e-01_rb,0.43514e-01_rb /)\n      kbo(:, 2,27, 8) = (/ &\n        & 0.31367e-01_rb,0.69333e-01_rb,0.77500e-01_rb,0.74945e-01_rb,0.45654e-01_rb /)\n      kbo(:, 3,27, 8) = (/ &\n        & 0.33650e-01_rb,0.74779e-01_rb,0.83451e-01_rb,0.80284e-01_rb,0.47838e-01_rb /)\n      kbo(:, 4,27, 8) = (/ &\n        & 0.36373e-01_rb,0.80698e-01_rb,0.89803e-01_rb,0.86035e-01_rb,0.50188e-01_rb /)\n      kbo(:, 5,27, 8) = (/ &\n        & 0.39625e-01_rb,0.87227e-01_rb,0.96605e-01_rb,0.92163e-01_rb,0.52661e-01_rb /)\n      kbo(:, 1,28, 8) = (/ &\n        & 0.25206e-01_rb,0.56436e-01_rb,0.63282e-01_rb,0.61571e-01_rb,0.37602e-01_rb /)\n      kbo(:, 2,28, 8) = (/ &\n        & 0.27009e-01_rb,0.61147e-01_rb,0.68481e-01_rb,0.66237e-01_rb,0.39562e-01_rb /)\n      kbo(:, 3,28, 8) = (/ &\n        & 0.29150e-01_rb,0.66302e-01_rb,0.74074e-01_rb,0.71341e-01_rb,0.41601e-01_rb /)\n      kbo(:, 4,28, 8) = (/ &\n        & 0.31750e-01_rb,0.71955e-01_rb,0.80104e-01_rb,0.76785e-01_rb,0.43794e-01_rb /)\n      kbo(:, 5,28, 8) = (/ &\n        & 0.34834e-01_rb,0.78268e-01_rb,0.86662e-01_rb,0.82632e-01_rb,0.46193e-01_rb /)\n      kbo(:, 1,29, 8) = (/ &\n        & 0.21672e-01_rb,0.49821e-01_rb,0.55985e-01_rb,0.54431e-01_rb,0.32677e-01_rb /)\n      kbo(:, 2,29, 8) = (/ &\n        & 0.23360e-01_rb,0.54257e-01_rb,0.60871e-01_rb,0.58918e-01_rb,0.34453e-01_rb /)\n      kbo(:, 3,29, 8) = (/ &\n        & 0.25420e-01_rb,0.59159e-01_rb,0.66168e-01_rb,0.63765e-01_rb,0.36398e-01_rb /)\n      kbo(:, 4,29, 8) = (/ &\n        & 0.27908e-01_rb,0.64629e-01_rb,0.71935e-01_rb,0.68977e-01_rb,0.38490e-01_rb /)\n      kbo(:, 5,29, 8) = (/ &\n        & 0.30843e-01_rb,0.70791e-01_rb,0.78323e-01_rb,0.74610e-01_rb,0.40747e-01_rb /)\n      kbo(:, 1,30, 8) = (/ &\n        & 0.18703e-01_rb,0.44236e-01_rb,0.49819e-01_rb,0.48423e-01_rb,0.28503e-01_rb /)\n      kbo(:, 2,30, 8) = (/ &\n        & 0.20315e-01_rb,0.48445e-01_rb,0.54425e-01_rb,0.52720e-01_rb,0.30174e-01_rb /)\n      kbo(:, 3,30, 8) = (/ &\n        & 0.22307e-01_rb,0.53163e-01_rb,0.59481e-01_rb,0.57359e-01_rb,0.32018e-01_rb /)\n      kbo(:, 4,30, 8) = (/ &\n        & 0.24687e-01_rb,0.58495e-01_rb,0.65064e-01_rb,0.62368e-01_rb,0.34022e-01_rb /)\n      kbo(:, 5,30, 8) = (/ &\n        & 0.27510e-01_rb,0.64597e-01_rb,0.71352e-01_rb,0.67860e-01_rb,0.36243e-01_rb /)\n      kbo(:, 1,31, 8) = (/ &\n        & 0.16227e-01_rb,0.39546e-01_rb,0.44613e-01_rb,0.43384e-01_rb,0.24947e-01_rb /)\n      kbo(:, 2,31, 8) = (/ &\n        & 0.17791e-01_rb,0.43576e-01_rb,0.49010e-01_rb,0.47501e-01_rb,0.26577e-01_rb /)\n      kbo(:, 3,31, 8) = (/ &\n        & 0.19720e-01_rb,0.48163e-01_rb,0.53877e-01_rb,0.51962e-01_rb,0.28347e-01_rb /)\n      kbo(:, 4,31, 8) = (/ &\n        & 0.22010e-01_rb,0.53419e-01_rb,0.59368e-01_rb,0.56842e-01_rb,0.30326e-01_rb /)\n      kbo(:, 5,31, 8) = (/ &\n        & 0.24778e-01_rb,0.59533e-01_rb,0.65582e-01_rb,0.62279e-01_rb,0.32464e-01_rb /)\n      kbo(:, 1,32, 8) = (/ &\n        & 0.14168e-01_rb,0.35610e-01_rb,0.40228e-01_rb,0.39145e-01_rb,0.21998e-01_rb /)\n      kbo(:, 2,32, 8) = (/ &\n        & 0.15701e-01_rb,0.39518e-01_rb,0.44455e-01_rb,0.43108e-01_rb,0.23551e-01_rb /)\n      kbo(:, 3,32, 8) = (/ &\n        & 0.17568e-01_rb,0.44028e-01_rb,0.49228e-01_rb,0.47442e-01_rb,0.25303e-01_rb /)\n      kbo(:, 4,32, 8) = (/ &\n        & 0.19822e-01_rb,0.49274e-01_rb,0.54644e-01_rb,0.52269e-01_rb,0.27219e-01_rb /)\n      kbo(:, 5,32, 8) = (/ &\n        & 0.22492e-01_rb,0.55429e-01_rb,0.60878e-01_rb,0.57696e-01_rb,0.29289e-01_rb /)\n      kbo(:, 1,33, 8) = (/ &\n        & 0.12469e-01_rb,0.32321e-01_rb,0.36548e-01_rb,0.35586e-01_rb,0.19535e-01_rb /)\n      kbo(:, 2,33, 8) = (/ &\n        & 0.13967e-01_rb,0.36160e-01_rb,0.40670e-01_rb,0.39414e-01_rb,0.21057e-01_rb /)\n      kbo(:, 3,33, 8) = (/ &\n        & 0.15804e-01_rb,0.40646e-01_rb,0.45371e-01_rb,0.43697e-01_rb,0.22748e-01_rb /)\n      kbo(:, 4,33, 8) = (/ &\n        & 0.18007e-01_rb,0.45935e-01_rb,0.50790e-01_rb,0.48504e-01_rb,0.24589e-01_rb /)\n      kbo(:, 5,33, 8) = (/ &\n        & 0.20583e-01_rb,0.52117e-01_rb,0.57083e-01_rb,0.53949e-01_rb,0.26612e-01_rb /)\n      kbo(:, 1,34, 8) = (/ &\n        & 0.11030e-01_rb,0.29462e-01_rb,0.33333e-01_rb,0.32457e-01_rb,0.17441e-01_rb /)\n      kbo(:, 2,34, 8) = (/ &\n        & 0.12485e-01_rb,0.33252e-01_rb,0.37374e-01_rb,0.36203e-01_rb,0.18902e-01_rb /)\n      kbo(:, 3,34, 8) = (/ &\n        & 0.14284e-01_rb,0.37735e-01_rb,0.42039e-01_rb,0.40449e-01_rb,0.20533e-01_rb /)\n      kbo(:, 4,34, 8) = (/ &\n        & 0.16406e-01_rb,0.43050e-01_rb,0.47473e-01_rb,0.45250e-01_rb,0.22315e-01_rb /)\n      kbo(:, 5,34, 8) = (/ &\n        & 0.18889e-01_rb,0.49221e-01_rb,0.53838e-01_rb,0.50709e-01_rb,0.24295e-01_rb /)\n      kbo(:, 1,35, 8) = (/ &\n        & 0.97045e-02_rb,0.26765e-01_rb,0.30294e-01_rb,0.29494e-01_rb,0.15527e-01_rb /)\n      kbo(:, 2,35, 8) = (/ &\n        & 0.11116e-01_rb,0.30471e-01_rb,0.34237e-01_rb,0.33156e-01_rb,0.16936e-01_rb /)\n      kbo(:, 3,35, 8) = (/ &\n        & 0.12833e-01_rb,0.34908e-01_rb,0.38827e-01_rb,0.37335e-01_rb,0.18494e-01_rb /)\n      kbo(:, 4,35, 8) = (/ &\n        & 0.14851e-01_rb,0.40160e-01_rb,0.44228e-01_rb,0.42095e-01_rb,0.20230e-01_rb /)\n      kbo(:, 5,35, 8) = (/ &\n        & 0.17220e-01_rb,0.46275e-01_rb,0.50600e-01_rb,0.47524e-01_rb,0.22137e-01_rb /)\n      kbo(:, 1,36, 8) = (/ &\n        & 0.84787e-02_rb,0.24131e-01_rb,0.27339e-01_rb,0.26619e-01_rb,0.13756e-01_rb /)\n      kbo(:, 2,36, 8) = (/ &\n        & 0.98033e-02_rb,0.27706e-01_rb,0.31147e-01_rb,0.30166e-01_rb,0.15106e-01_rb /)\n      kbo(:, 3,36, 8) = (/ &\n        & 0.11407e-01_rb,0.32015e-01_rb,0.35610e-01_rb,0.34239e-01_rb,0.16593e-01_rb /)\n      kbo(:, 4,36, 8) = (/ &\n        & 0.13302e-01_rb,0.37140e-01_rb,0.40907e-01_rb,0.38904e-01_rb,0.18257e-01_rb /)\n      kbo(:, 5,36, 8) = (/ &\n        & 0.15537e-01_rb,0.43129e-01_rb,0.47182e-01_rb,0.44236e-01_rb,0.20074e-01_rb /)\n      kbo(:, 1,37, 8) = (/ &\n        & 0.72685e-02_rb,0.21392e-01_rb,0.24301e-01_rb,0.23679e-01_rb,0.12087e-01_rb /)\n      kbo(:, 2,37, 8) = (/ &\n        & 0.84733e-02_rb,0.24759e-01_rb,0.27898e-01_rb,0.27046e-01_rb,0.13342e-01_rb /)\n      kbo(:, 3,37, 8) = (/ &\n        & 0.99353e-02_rb,0.28848e-01_rb,0.32152e-01_rb,0.30940e-01_rb,0.14748e-01_rb /)\n      kbo(:, 4,37, 8) = (/ &\n        & 0.11673e-01_rb,0.33734e-01_rb,0.37224e-01_rb,0.35422e-01_rb,0.16319e-01_rb /)\n      kbo(:, 5,37, 8) = (/ &\n        & 0.13740e-01_rb,0.39481e-01_rb,0.43256e-01_rb,0.40566e-01_rb,0.18049e-01_rb /)\n      kbo(:, 1,38, 8) = (/ &\n        & 0.62326e-02_rb,0.18999e-01_rb,0.21644e-01_rb,0.21103e-01_rb,0.10629e-01_rb /)\n      kbo(:, 2,38, 8) = (/ &\n        & 0.73269e-02_rb,0.22170e-01_rb,0.25042e-01_rb,0.24299e-01_rb,0.11807e-01_rb /)\n      kbo(:, 3,38, 8) = (/ &\n        & 0.86586e-02_rb,0.26045e-01_rb,0.29098e-01_rb,0.28019e-01_rb,0.13138e-01_rb /)\n      kbo(:, 4,38, 8) = (/ &\n        & 0.10254e-01_rb,0.30699e-01_rb,0.33952e-01_rb,0.32316e-01_rb,0.14621e-01_rb /)\n      kbo(:, 5,38, 8) = (/ &\n        & 0.12168e-01_rb,0.36211e-01_rb,0.39748e-01_rb,0.37288e-01_rb,0.16263e-01_rb /)\n      kbo(:, 1,39, 8) = (/ &\n        & 0.53522e-02_rb,0.16925e-01_rb,0.19337e-01_rb,0.18863e-01_rb,0.93697e-02_rb /)\n      kbo(:, 2,39, 8) = (/ &\n        & 0.63437e-02_rb,0.19916e-01_rb,0.22555e-01_rb,0.21900e-01_rb,0.10477e-01_rb /)\n      kbo(:, 3,39, 8) = (/ &\n        & 0.75600e-02_rb,0.23590e-01_rb,0.26428e-01_rb,0.25453e-01_rb,0.11732e-01_rb /)\n      kbo(:, 4,39, 8) = (/ &\n        & 0.90277e-02_rb,0.28027e-01_rb,0.31081e-01_rb,0.29581e-01_rb,0.13140e-01_rb /)\n      kbo(:, 5,39, 8) = (/ &\n        & 0.10804e-01_rb,0.33325e-01_rb,0.36655e-01_rb,0.34396e-01_rb,0.14714e-01_rb /)\n      kbo(:, 1,40, 8) = (/ &\n        & 0.45183e-02_rb,0.14862e-01_rb,0.17043e-01_rb,0.16640e-01_rb,0.81906e-02_rb /)\n      kbo(:, 2,40, 8) = (/ &\n        & 0.53964e-02_rb,0.17630e-01_rb,0.20043e-01_rb,0.19482e-01_rb,0.92335e-02_rb /)\n      kbo(:, 3,40, 8) = (/ &\n        & 0.64835e-02_rb,0.21041e-01_rb,0.23674e-01_rb,0.22821e-01_rb,0.10400e-01_rb /)\n      kbo(:, 4,40, 8) = (/ &\n        & 0.78100e-02_rb,0.25197e-01_rb,0.28056e-01_rb,0.26733e-01_rb,0.11718e-01_rb /)\n      kbo(:, 5,40, 8) = (/ &\n        & 0.94310e-02_rb,0.30203e-01_rb,0.33322e-01_rb,0.31321e-01_rb,0.13209e-01_rb /)\n      kbo(:, 1,41, 8) = (/ &\n        & 0.38020e-02_rb,0.13035e-01_rb,0.15007e-01_rb,0.14665e-01_rb,0.71645e-02_rb /)\n      kbo(:, 2,41, 8) = (/ &\n        & 0.45796e-02_rb,0.15592e-01_rb,0.17802e-01_rb,0.17320e-01_rb,0.81332e-02_rb /)\n      kbo(:, 3,41, 8) = (/ &\n        & 0.55464e-02_rb,0.18749e-01_rb,0.21191e-01_rb,0.20448e-01_rb,0.92312e-02_rb /)\n      kbo(:, 4,41, 8) = (/ &\n        & 0.67408e-02_rb,0.22629e-01_rb,0.25309e-01_rb,0.24143e-01_rb,0.10458e-01_rb /)\n      kbo(:, 5,41, 8) = (/ &\n        & 0.82155e-02_rb,0.27347e-01_rb,0.30277e-01_rb,0.28506e-01_rb,0.11871e-01_rb /)\n      kbo(:, 1,42, 8) = (/ &\n        & 0.31962e-02_rb,0.11444e-01_rb,0.13229e-01_rb,0.12937e-01_rb,0.62788e-02_rb /)\n      kbo(:, 2,42, 8) = (/ &\n        & 0.38815e-02_rb,0.13798e-01_rb,0.15822e-01_rb,0.15407e-01_rb,0.71774e-02_rb /)\n      kbo(:, 3,42, 8) = (/ &\n        & 0.47422e-02_rb,0.16722e-01_rb,0.18990e-01_rb,0.18339e-01_rb,0.81986e-02_rb /)\n      kbo(:, 4,42, 8) = (/ &\n        & 0.58154e-02_rb,0.20342e-01_rb,0.22857e-01_rb,0.21830e-01_rb,0.93594e-02_rb /)\n      kbo(:, 5,42, 8) = (/ &\n        & 0.71546e-02_rb,0.24787e-01_rb,0.27545e-01_rb,0.25973e-01_rb,0.10684e-01_rb /)\n      kbo(:, 1,43, 8) = (/ &\n        & 0.26542e-02_rb,0.99421e-02_rb,0.11545e-01_rb,0.11297e-01_rb,0.54681e-02_rb /)\n      kbo(:, 2,43, 8) = (/ &\n        & 0.32467e-02_rb,0.12085e-01_rb,0.13926e-01_rb,0.13575e-01_rb,0.63017e-02_rb /)\n      kbo(:, 3,43, 8) = (/ &\n        & 0.40037e-02_rb,0.14758e-01_rb,0.16848e-01_rb,0.16296e-01_rb,0.72434e-02_rb /)\n      kbo(:, 4,43, 8) = (/ &\n        & 0.49534e-02_rb,0.18094e-01_rb,0.20438e-01_rb,0.19556e-01_rb,0.83354e-02_rb /)\n      kbo(:, 5,43, 8) = (/ &\n        & 0.61525e-02_rb,0.22230e-01_rb,0.24817e-01_rb,0.23450e-01_rb,0.95751e-02_rb /)\n      kbo(:, 1,44, 8) = (/ &\n        & 0.21881e-02_rb,0.85857e-02_rb,0.10019e-01_rb,0.98043e-02_rb,0.47456e-02_rb /)\n      kbo(:, 2,44, 8) = (/ &\n        & 0.26937e-02_rb,0.10525e-01_rb,0.12192e-01_rb,0.11898e-01_rb,0.55168e-02_rb /)\n      kbo(:, 3,44, 8) = (/ &\n        & 0.33531e-02_rb,0.12952e-01_rb,0.14870e-01_rb,0.14408e-01_rb,0.63938e-02_rb /)\n      kbo(:, 4,44, 8) = (/ &\n        & 0.41916e-02_rb,0.16016e-01_rb,0.18187e-01_rb,0.17441e-01_rb,0.73995e-02_rb /)\n      kbo(:, 5,44, 8) = (/ &\n        & 0.52529e-02_rb,0.19825e-01_rb,0.22245e-01_rb,0.21074e-01_rb,0.85693e-02_rb /)\n      kbo(:, 1,45, 8) = (/ &\n        & 0.17974e-02_rb,0.74036e-02_rb,0.86819e-02_rb,0.84949e-02_rb,0.41100e-02_rb /)\n      kbo(:, 2,45, 8) = (/ &\n        & 0.22283e-02_rb,0.91556e-02_rb,0.10664e-01_rb,0.10414e-01_rb,0.48257e-02_rb /)\n      kbo(:, 3,45, 8) = (/ &\n        & 0.27993e-02_rb,0.11360e-01_rb,0.13115e-01_rb,0.12731e-01_rb,0.56423e-02_rb /)\n      kbo(:, 4,45, 8) = (/ &\n        & 0.35358e-02_rb,0.14164e-01_rb,0.16170e-01_rb,0.15543e-01_rb,0.65867e-02_rb /)\n      kbo(:, 5,45, 8) = (/ &\n        & 0.44762e-02_rb,0.17671e-01_rb,0.19928e-01_rb,0.18931e-01_rb,0.76725e-02_rb /)\n      kbo(:, 1,46, 8) = (/ &\n        & 0.14666e-02_rb,0.63443e-02_rb,0.74710e-02_rb,0.73099e-02_rb,0.35540e-02_rb /)\n      kbo(:, 2,46, 8) = (/ &\n        & 0.18286e-02_rb,0.79140e-02_rb,0.92719e-02_rb,0.90588e-02_rb,0.41981e-02_rb /)\n      kbo(:, 3,46, 8) = (/ &\n        & 0.23196e-02_rb,0.99089e-02_rb,0.11508e-01_rb,0.11192e-01_rb,0.49656e-02_rb /)\n      kbo(:, 4,46, 8) = (/ &\n        & 0.29575e-02_rb,0.12451e-01_rb,0.14296e-01_rb,0.13779e-01_rb,0.58441e-02_rb /)\n      kbo(:, 5,46, 8) = (/ &\n        & 0.37842e-02_rb,0.15662e-01_rb,0.17758e-01_rb,0.16921e-01_rb,0.68660e-02_rb /)\n      kbo(:, 1,47, 8) = (/ &\n        & 0.11822e-02_rb,0.53700e-02_rb,0.63483e-02_rb,0.62090e-02_rb,0.30500e-02_rb /)\n      kbo(:, 2,47, 8) = (/ &\n        & 0.14817e-02_rb,0.67616e-02_rb,0.79678e-02_rb,0.77874e-02_rb,0.36317e-02_rb /)\n      kbo(:, 3,47, 8) = (/ &\n        & 0.18918e-02_rb,0.85392e-02_rb,0.99818e-02_rb,0.97254e-02_rb,0.43248e-02_rb /)\n      kbo(:, 4,47, 8) = (/ &\n        & 0.24382e-02_rb,0.10820e-01_rb,0.12503e-01_rb,0.12088e-01_rb,0.51477e-02_rb /)\n      kbo(:, 5,47, 8) = (/ &\n        & 0.31533e-02_rb,0.13725e-01_rb,0.15656e-01_rb,0.14970e-01_rb,0.61000e-02_rb /)\n      kbo(:, 1,48, 8) = (/ &\n        & 0.94906e-03_rb,0.45298e-02_rb,0.53706e-02_rb,0.52506e-02_rb,0.26162e-02_rb /)\n      kbo(:, 2,48, 8) = (/ &\n        & 0.11965e-02_rb,0.57597e-02_rb,0.68213e-02_rb,0.66698e-02_rb,0.31403e-02_rb /)\n      kbo(:, 3,48, 8) = (/ &\n        & 0.15369e-02_rb,0.73380e-02_rb,0.86368e-02_rb,0.84246e-02_rb,0.37687e-02_rb /)\n      kbo(:, 4,48, 8) = (/ &\n        & 0.20008e-02_rb,0.93814e-02_rb,0.10911e-01_rb,0.10580e-01_rb,0.45213e-02_rb /)\n      kbo(:, 5,48, 8) = (/ &\n        & 0.26159e-02_rb,0.12002e-01_rb,0.13774e-01_rb,0.13221e-01_rb,0.54142e-02_rb /)\n      kbo(:, 1,49, 8) = (/ &\n        & 0.75913e-03_rb,0.38043e-02_rb,0.45203e-02_rb,0.44181e-02_rb,0.22379e-02_rb /)\n      kbo(:, 2,49, 8) = (/ &\n        & 0.96097e-03_rb,0.48899e-02_rb,0.58138e-02_rb,0.56878e-02_rb,0.27098e-02_rb /)\n      kbo(:, 3,49, 8) = (/ &\n        & 0.12447e-02_rb,0.62895e-02_rb,0.74501e-02_rb,0.72727e-02_rb,0.32859e-02_rb /)\n      kbo(:, 4,49, 8) = (/ &\n        & 0.16322e-02_rb,0.81122e-02_rb,0.94989e-02_rb,0.92349e-02_rb,0.39720e-02_rb /)\n      kbo(:, 5,49, 8) = (/ &\n        & 0.21597e-02_rb,0.10470e-01_rb,0.12092e-01_rb,0.11650e-01_rb,0.47938e-02_rb /)\n      kbo(:, 1,50, 8) = (/ &\n        & 0.60949e-03_rb,0.32009e-02_rb,0.38080e-02_rb,0.37204e-02_rb,0.19148e-02_rb /)\n      kbo(:, 2,50, 8) = (/ &\n        & 0.77332e-03_rb,0.41637e-02_rb,0.49658e-02_rb,0.48588e-02_rb,0.23498e-02_rb /)\n      kbo(:, 3,50, 8) = (/ &\n        & 0.10099e-02_rb,0.54095e-02_rb,0.64416e-02_rb,0.62938e-02_rb,0.28713e-02_rb /)\n      kbo(:, 4,50, 8) = (/ &\n        & 0.13353e-02_rb,0.70417e-02_rb,0.83004e-02_rb,0.80844e-02_rb,0.35114e-02_rb /)\n      kbo(:, 5,50, 8) = (/ &\n        & 0.17873e-02_rb,0.91691e-02_rb,0.10658e-01_rb,0.10303e-01_rb,0.42641e-02_rb /)\n      kbo(:, 1,51, 8) = (/ &\n        & 0.48960e-03_rb,0.26873e-02_rb,0.32008e-02_rb,0.31259e-02_rb,0.16378e-02_rb /)\n      kbo(:, 2,51, 8) = (/ &\n        & 0.62187e-03_rb,0.35423e-02_rb,0.42349e-02_rb,0.41443e-02_rb,0.20325e-02_rb /)\n      kbo(:, 3,51, 8) = (/ &\n        & 0.81788e-03_rb,0.46529e-02_rb,0.55656e-02_rb,0.54424e-02_rb,0.25164e-02_rb /)\n      kbo(:, 4,51, 8) = (/ &\n        & 0.10935e-02_rb,0.61155e-02_rb,0.72565e-02_rb,0.70765e-02_rb,0.31007e-02_rb /)\n      kbo(:, 5,51, 8) = (/ &\n        & 0.14776e-02_rb,0.80416e-02_rb,0.94087e-02_rb,0.91197e-02_rb,0.38085e-02_rb /)\n      kbo(:, 1,52, 8) = (/ &\n        & 0.39302e-03_rb,0.22435e-02_rb,0.26754e-02_rb,0.26122e-02_rb,0.13898e-02_rb /)\n      kbo(:, 2,52, 8) = (/ &\n        & 0.49889e-03_rb,0.30006e-02_rb,0.35943e-02_rb,0.35172e-02_rb,0.17532e-02_rb /)\n      kbo(:, 3,52, 8) = (/ &\n        & 0.65922e-03_rb,0.39906e-02_rb,0.47901e-02_rb,0.46880e-02_rb,0.21980e-02_rb /)\n      kbo(:, 4,52, 8) = (/ &\n        & 0.89075e-03_rb,0.52980e-02_rb,0.63237e-02_rb,0.61748e-02_rb,0.27412e-02_rb /)\n      kbo(:, 5,52, 8) = (/ &\n        & 0.12150e-02_rb,0.70312e-02_rb,0.82837e-02_rb,0.80497e-02_rb,0.33956e-02_rb /)\n      kbo(:, 1,53, 8) = (/ &\n        & 0.31533e-03_rb,0.18598e-02_rb,0.22216e-02_rb,0.21690e-02_rb,0.11705e-02_rb /)\n      kbo(:, 2,53, 8) = (/ &\n        & 0.39919e-03_rb,0.25290e-02_rb,0.30338e-02_rb,0.29679e-02_rb,0.15051e-02_rb /)\n      kbo(:, 3,53, 8) = (/ &\n        & 0.52958e-03_rb,0.34096e-02_rb,0.41030e-02_rb,0.40189e-02_rb,0.19137e-02_rb /)\n      kbo(:, 4,53, 8) = (/ &\n        & 0.72147e-03_rb,0.45756e-02_rb,0.54894e-02_rb,0.53678e-02_rb,0.24147e-02_rb /)\n      kbo(:, 5,53, 8) = (/ &\n        & 0.99563e-03_rb,0.61321e-02_rb,0.72739e-02_rb,0.70826e-02_rb,0.30286e-02_rb /)\n      kbo(:, 1,54, 8) = (/ &\n        & 0.25434e-03_rb,0.15477e-02_rb,0.18502e-02_rb,0.18075e-02_rb,0.98891e-03_rb /)\n      kbo(:, 2,54, 8) = (/ &\n        & 0.32221e-03_rb,0.21398e-02_rb,0.25708e-02_rb,0.25148e-02_rb,0.12935e-02_rb /)\n      kbo(:, 3,54, 8) = (/ &\n        & 0.42775e-03_rb,0.29272e-02_rb,0.35315e-02_rb,0.34599e-02_rb,0.16741e-02_rb /)\n      kbo(:, 4,54, 8) = (/ &\n        & 0.58762e-03_rb,0.39761e-02_rb,0.47907e-02_rb,0.46896e-02_rb,0.21376e-02_rb /)\n      kbo(:, 5,54, 8) = (/ &\n        & 0.82053e-03_rb,0.53824e-02_rb,0.64244e-02_rb,0.62664e-02_rb,0.27173e-02_rb /)\n      kbo(:, 1,55, 8) = (/ &\n        & 0.20618e-03_rb,0.12866e-02_rb,0.15400e-02_rb,0.15055e-02_rb,0.83572e-03_rb /)\n      kbo(:, 2,55, 8) = (/ &\n        & 0.26059e-03_rb,0.18094e-02_rb,0.21787e-02_rb,0.21302e-02_rb,0.11090e-02_rb /)\n      kbo(:, 3,55, 8) = (/ &\n        & 0.34651e-03_rb,0.25140e-02_rb,0.30392e-02_rb,0.29780e-02_rb,0.14628e-02_rb /)\n      kbo(:, 4,55, 8) = (/ &\n        & 0.47882e-03_rb,0.34608e-02_rb,0.41831e-02_rb,0.41003e-02_rb,0.18992e-02_rb /)\n      kbo(:, 5,55, 8) = (/ &\n        & 0.67671e-03_rb,0.47331e-02_rb,0.56817e-02_rb,0.55503e-02_rb,0.24360e-02_rb /)\n      kbo(:, 1,56, 8) = (/ &\n        & 0.16681e-03_rb,0.10621e-02_rb,0.12728e-02_rb,0.12461e-02_rb,0.70162e-03_rb /)\n      kbo(:, 2,56, 8) = (/ &\n        & 0.21064e-03_rb,0.15213e-02_rb,0.18350e-02_rb,0.17945e-02_rb,0.94828e-03_rb /)\n      kbo(:, 3,56, 8) = (/ &\n        & 0.28028e-03_rb,0.21500e-02_rb,0.26045e-02_rb,0.25521e-02_rb,0.12721e-02_rb /)\n      kbo(:, 4,56, 8) = (/ &\n        & 0.38906e-03_rb,0.30029e-02_rb,0.36387e-02_rb,0.35710e-02_rb,0.16833e-02_rb /)\n      kbo(:, 5,56, 8) = (/ &\n        & 0.55568e-03_rb,0.41534e-02_rb,0.50111e-02_rb,0.49027e-02_rb,0.21849e-02_rb /)\n      kbo(:, 1,57, 8) = (/ &\n        & 0.13484e-03_rb,0.87168e-03_rb,0.10444e-02_rb,0.10248e-02_rb,0.58516e-03_rb /)\n      kbo(:, 2,57, 8) = (/ &\n        & 0.17007e-03_rb,0.12717e-02_rb,0.15360e-02_rb,0.15024e-02_rb,0.80805e-03_rb /)\n      kbo(:, 3,57, 8) = (/ &\n        & 0.22603e-03_rb,0.18296e-02_rb,0.22211e-02_rb,0.21757e-02_rb,0.11006e-02_rb /)\n      kbo(:, 4,57, 8) = (/ &\n        & 0.31565e-03_rb,0.25963e-02_rb,0.31531e-02_rb,0.30959e-02_rb,0.14851e-02_rb /)\n      kbo(:, 5,57, 8) = (/ &\n        & 0.45417e-03_rb,0.36365e-02_rb,0.44058e-02_rb,0.43157e-02_rb,0.19625e-02_rb /)\n      kbo(:, 1,58, 8) = (/ &\n        & 0.10938e-03_rb,0.71449e-03_rb,0.85655e-03_rb,0.84240e-03_rb,0.48772e-03_rb /)\n      kbo(:, 2,58, 8) = (/ &\n        & 0.13752e-03_rb,0.10624e-02_rb,0.12849e-02_rb,0.12583e-02_rb,0.68689e-03_rb /)\n      kbo(:, 3,58, 8) = (/ &\n        & 0.18307e-03_rb,0.15572e-02_rb,0.18954e-02_rb,0.18566e-02_rb,0.95344e-03_rb /)\n      kbo(:, 4,58, 8) = (/ &\n        & 0.25673e-03_rb,0.22481e-02_rb,0.27363e-02_rb,0.26877e-02_rb,0.13079e-02_rb /)\n      kbo(:, 5,58, 8) = (/ &\n        & 0.37230e-03_rb,0.31921e-02_rb,0.38812e-02_rb,0.38070e-02_rb,0.17570e-02_rb /)\n      kbo(:, 1,59, 8) = (/ &\n        & 0.92153e-04_rb,0.62798e-03_rb,0.75374e-03_rb,0.74243e-03_rb,0.43161e-03_rb /)\n      kbo(:, 2,59, 8) = (/ &\n        & 0.11676e-03_rb,0.95019e-03_rb,0.11525e-02_rb,0.11296e-02_rb,0.61959e-03_rb /)\n      kbo(:, 3,59, 8) = (/ &\n        & 0.15687e-03_rb,0.14168e-02_rb,0.17285e-02_rb,0.16938e-02_rb,0.87468e-03_rb /)\n      kbo(:, 4,59, 8) = (/ &\n        & 0.22278e-03_rb,0.20743e-02_rb,0.25302e-02_rb,0.24863e-02_rb,0.12161e-02_rb /)\n      kbo(:, 5,59, 8) = (/ &\n        & 0.32724e-03_rb,0.29797e-02_rb,0.36313e-02_rb,0.35664e-02_rb,0.16577e-02_rb /)\n      kbo(:, 1,13, 9) = (/ &\n        & 0.16403e+01_rb,0.27290e+01_rb,0.31326e+01_rb,0.31890e+01_rb,0.23307e+01_rb /)\n      kbo(:, 2,13, 9) = (/ &\n        & 0.16862e+01_rb,0.27611e+01_rb,0.31617e+01_rb,0.32226e+01_rb,0.23816e+01_rb /)\n      kbo(:, 3,13, 9) = (/ &\n        & 0.17455e+01_rb,0.28101e+01_rb,0.32005e+01_rb,0.32552e+01_rb,0.24291e+01_rb /)\n      kbo(:, 4,13, 9) = (/ &\n        & 0.18100e+01_rb,0.28758e+01_rb,0.32471e+01_rb,0.32901e+01_rb,0.24729e+01_rb /)\n      kbo(:, 5,13, 9) = (/ &\n        & 0.18736e+01_rb,0.29528e+01_rb,0.33027e+01_rb,0.33291e+01_rb,0.25126e+01_rb /)\n      kbo(:, 1,14, 9) = (/ &\n        & 0.14276e+01_rb,0.24116e+01_rb,0.27645e+01_rb,0.28207e+01_rb,0.20786e+01_rb /)\n      kbo(:, 2,14, 9) = (/ &\n        & 0.14761e+01_rb,0.24553e+01_rb,0.28027e+01_rb,0.28564e+01_rb,0.21275e+01_rb /)\n      kbo(:, 3,14, 9) = (/ &\n        & 0.15303e+01_rb,0.25161e+01_rb,0.28501e+01_rb,0.28940e+01_rb,0.21750e+01_rb /)\n      kbo(:, 4,14, 9) = (/ &\n        & 0.15845e+01_rb,0.25879e+01_rb,0.29061e+01_rb,0.29354e+01_rb,0.22167e+01_rb /)\n      kbo(:, 5,14, 9) = (/ &\n        & 0.16378e+01_rb,0.26632e+01_rb,0.29707e+01_rb,0.29827e+01_rb,0.22552e+01_rb /)\n      kbo(:, 1,15, 9) = (/ &\n        & 0.12454e+01_rb,0.21329e+01_rb,0.24382e+01_rb,0.24839e+01_rb,0.18332e+01_rb /)\n      kbo(:, 2,15, 9) = (/ &\n        & 0.12895e+01_rb,0.21869e+01_rb,0.24841e+01_rb,0.25234e+01_rb,0.18816e+01_rb /)\n      kbo(:, 3,15, 9) = (/ &\n        & 0.13344e+01_rb,0.22528e+01_rb,0.25385e+01_rb,0.25663e+01_rb,0.19251e+01_rb /)\n      kbo(:, 4,15, 9) = (/ &\n        & 0.13794e+01_rb,0.23234e+01_rb,0.26021e+01_rb,0.26153e+01_rb,0.19652e+01_rb /)\n      kbo(:, 5,15, 9) = (/ &\n        & 0.14250e+01_rb,0.23931e+01_rb,0.26727e+01_rb,0.26688e+01_rb,0.20043e+01_rb /)\n      kbo(:, 1,16, 9) = (/ &\n        & 0.10848e+01_rb,0.18880e+01_rb,0.21511e+01_rb,0.21813e+01_rb,0.16071e+01_rb /)\n      kbo(:, 2,16, 9) = (/ &\n        & 0.11214e+01_rb,0.19471e+01_rb,0.22027e+01_rb,0.22246e+01_rb,0.16520e+01_rb /)\n      kbo(:, 3,16, 9) = (/ &\n        & 0.11587e+01_rb,0.20122e+01_rb,0.22636e+01_rb,0.22737e+01_rb,0.16924e+01_rb /)\n      kbo(:, 4,16, 9) = (/ &\n        & 0.11968e+01_rb,0.20768e+01_rb,0.23313e+01_rb,0.23282e+01_rb,0.17327e+01_rb /)\n      kbo(:, 5,16, 9) = (/ &\n        & 0.12369e+01_rb,0.21393e+01_rb,0.24028e+01_rb,0.23861e+01_rb,0.17713e+01_rb /)\n      kbo(:, 1,17, 9) = (/ &\n        & 0.94054e+00_rb,0.16727e+01_rb,0.18972e+01_rb,0.19128e+01_rb,0.14046e+01_rb /)\n      kbo(:, 2,17, 9) = (/ &\n        & 0.97101e+00_rb,0.17314e+01_rb,0.19542e+01_rb,0.19610e+01_rb,0.14464e+01_rb /)\n      kbo(:, 3,17, 9) = (/ &\n        & 0.10024e+01_rb,0.17905e+01_rb,0.20183e+01_rb,0.20147e+01_rb,0.14867e+01_rb /)\n      kbo(:, 4,17, 9) = (/ &\n        & 0.10357e+01_rb,0.18485e+01_rb,0.20868e+01_rb,0.20722e+01_rb,0.15247e+01_rb /)\n      kbo(:, 5,17, 9) = (/ &\n        & 0.10722e+01_rb,0.19059e+01_rb,0.21551e+01_rb,0.21344e+01_rb,0.15620e+01_rb /)\n      kbo(:, 1,18, 9) = (/ &\n        & 0.81293e+00_rb,0.14815e+01_rb,0.16736e+01_rb,0.16776e+01_rb,0.12272e+01_rb /)\n      kbo(:, 2,18, 9) = (/ &\n        & 0.83847e+00_rb,0.15352e+01_rb,0.17337e+01_rb,0.17293e+01_rb,0.12665e+01_rb /)\n      kbo(:, 3,18, 9) = (/ &\n        & 0.86557e+00_rb,0.15883e+01_rb,0.17983e+01_rb,0.17854e+01_rb,0.13052e+01_rb /)\n      kbo(:, 4,18, 9) = (/ &\n        & 0.89549e+00_rb,0.16413e+01_rb,0.18633e+01_rb,0.18465e+01_rb,0.13420e+01_rb /)\n      kbo(:, 5,18, 9) = (/ &\n        & 0.92973e+00_rb,0.16952e+01_rb,0.19268e+01_rb,0.19102e+01_rb,0.13778e+01_rb /)\n      kbo(:, 1,19, 9) = (/ &\n        & 0.70038e+00_rb,0.13093e+01_rb,0.14779e+01_rb,0.14733e+01_rb,0.10709e+01_rb /)\n      kbo(:, 2,19, 9) = (/ &\n        & 0.72263e+00_rb,0.13577e+01_rb,0.15381e+01_rb,0.15268e+01_rb,0.11090e+01_rb /)\n      kbo(:, 3,19, 9) = (/ &\n        & 0.74709e+00_rb,0.14065e+01_rb,0.15995e+01_rb,0.15853e+01_rb,0.11457e+01_rb /)\n      kbo(:, 4,19, 9) = (/ &\n        & 0.77505e+00_rb,0.14562e+01_rb,0.16599e+01_rb,0.16467e+01_rb,0.11819e+01_rb /)\n      kbo(:, 5,19, 9) = (/ &\n        & 0.80778e+00_rb,0.15082e+01_rb,0.17205e+01_rb,0.17095e+01_rb,0.12170e+01_rb /)\n      kbo(:, 1,20, 9) = (/ &\n        & 0.60096e+00_rb,0.11549e+01_rb,0.13070e+01_rb,0.12966e+01_rb,0.93504e+00_rb /)\n      kbo(:, 2,20, 9) = (/ &\n        & 0.62117e+00_rb,0.11996e+01_rb,0.13644e+01_rb,0.13518e+01_rb,0.97145e+00_rb /)\n      kbo(:, 3,20, 9) = (/ &\n        & 0.64437e+00_rb,0.12456e+01_rb,0.14215e+01_rb,0.14105e+01_rb,0.10075e+01_rb /)\n      kbo(:, 4,20, 9) = (/ &\n        & 0.67172e+00_rb,0.12935e+01_rb,0.14792e+01_rb,0.14711e+01_rb,0.10425e+01_rb /)\n      kbo(:, 5,20, 9) = (/ &\n        & 0.70425e+00_rb,0.13447e+01_rb,0.15379e+01_rb,0.15320e+01_rb,0.10771e+01_rb /)\n      kbo(:, 1,21, 9) = (/ &\n        & 0.51409e+00_rb,0.10184e+01_rb,0.11562e+01_rb,0.11440e+01_rb,0.81589e+00_rb /)\n      kbo(:, 2,21, 9) = (/ &\n        & 0.53296e+00_rb,0.10604e+01_rb,0.12096e+01_rb,0.11991e+01_rb,0.85095e+00_rb /)\n      kbo(:, 3,21, 9) = (/ &\n        & 0.55527e+00_rb,0.11043e+01_rb,0.12638e+01_rb,0.12567e+01_rb,0.88570e+00_rb /)\n      kbo(:, 4,21, 9) = (/ &\n        & 0.58243e+00_rb,0.11512e+01_rb,0.13194e+01_rb,0.13151e+01_rb,0.92023e+00_rb /)\n      kbo(:, 5,21, 9) = (/ &\n        & 0.61501e+00_rb,0.12017e+01_rb,0.13771e+01_rb,0.13737e+01_rb,0.95470e+00_rb /)\n      kbo(:, 1,22, 9) = (/ &\n        & 0.44038e+00_rb,0.90186e+00_rb,0.10262e+01_rb,0.10153e+01_rb,0.71382e+00_rb /)\n      kbo(:, 2,22, 9) = (/ &\n        & 0.45853e+00_rb,0.94198e+00_rb,0.10770e+01_rb,0.10695e+01_rb,0.74736e+00_rb /)\n      kbo(:, 3,22, 9) = (/ &\n        & 0.48068e+00_rb,0.98449e+00_rb,0.11290e+01_rb,0.11248e+01_rb,0.78150e+00_rb /)\n      kbo(:, 4,22, 9) = (/ &\n        & 0.50812e+00_rb,0.10306e+01_rb,0.11833e+01_rb,0.11809e+01_rb,0.81518e+00_rb /)\n      kbo(:, 5,22, 9) = (/ &\n        & 0.54141e+00_rb,0.10817e+01_rb,0.12405e+01_rb,0.12383e+01_rb,0.84849e+00_rb /)\n      kbo(:, 1,23, 9) = (/ &\n        & 0.37767e+00_rb,0.80078e+00_rb,0.91306e+00_rb,0.90433e+00_rb,0.62612e+00_rb /)\n      kbo(:, 2,23, 9) = (/ &\n        & 0.39558e+00_rb,0.83957e+00_rb,0.96154e+00_rb,0.95658e+00_rb,0.65837e+00_rb /)\n      kbo(:, 3,23, 9) = (/ &\n        & 0.41794e+00_rb,0.88149e+00_rb,0.10123e+01_rb,0.10097e+01_rb,0.69117e+00_rb /)\n      kbo(:, 4,23, 9) = (/ &\n        & 0.44579e+00_rb,0.92784e+00_rb,0.10657e+01_rb,0.10643e+01_rb,0.72352e+00_rb /)\n      kbo(:, 5,23, 9) = (/ &\n        & 0.47930e+00_rb,0.97981e+00_rb,0.11229e+01_rb,0.11209e+01_rb,0.75697e+00_rb /)\n      kbo(:, 1,24, 9) = (/ &\n        & 0.32501e+00_rb,0.71314e+00_rb,0.81551e+00_rb,0.80817e+00_rb,0.55055e+00_rb /)\n      kbo(:, 2,24, 9) = (/ &\n        & 0.34301e+00_rb,0.75171e+00_rb,0.86229e+00_rb,0.85830e+00_rb,0.58144e+00_rb /)\n      kbo(:, 3,24, 9) = (/ &\n        & 0.36572e+00_rb,0.79385e+00_rb,0.91196e+00_rb,0.91014e+00_rb,0.61242e+00_rb /)\n      kbo(:, 4,24, 9) = (/ &\n        & 0.39391e+00_rb,0.84084e+00_rb,0.96525e+00_rb,0.96386e+00_rb,0.64468e+00_rb /)\n      kbo(:, 5,24, 9) = (/ &\n        & 0.42682e+00_rb,0.89378e+00_rb,0.10230e+01_rb,0.10202e+01_rb,0.67755e+00_rb /)\n      kbo(:, 1,25, 9) = (/ &\n        & 0.28120e+00_rb,0.63782e+00_rb,0.73197e+00_rb,0.72532e+00_rb,0.48624e+00_rb /)\n      kbo(:, 2,25, 9) = (/ &\n        & 0.29939e+00_rb,0.67672e+00_rb,0.77772e+00_rb,0.77395e+00_rb,0.51566e+00_rb /)\n      kbo(:, 3,25, 9) = (/ &\n        & 0.32259e+00_rb,0.71969e+00_rb,0.82682e+00_rb,0.82484e+00_rb,0.54562e+00_rb /)\n      kbo(:, 4,25, 9) = (/ &\n        & 0.35054e+00_rb,0.76785e+00_rb,0.88040e+00_rb,0.87836e+00_rb,0.57709e+00_rb /)\n      kbo(:, 5,25, 9) = (/ &\n        & 0.38231e+00_rb,0.82200e+00_rb,0.93896e+00_rb,0.93503e+00_rb,0.60997e+00_rb /)\n      kbo(:, 1,26, 9) = (/ &\n        & 0.24516e+00_rb,0.57415e+00_rb,0.66146e+00_rb,0.65501e+00_rb,0.43198e+00_rb /)\n      kbo(:, 2,26, 9) = (/ &\n        & 0.26380e+00_rb,0.61364e+00_rb,0.70651e+00_rb,0.70261e+00_rb,0.46025e+00_rb /)\n      kbo(:, 3,26, 9) = (/ &\n        & 0.28716e+00_rb,0.65790e+00_rb,0.75577e+00_rb,0.75300e+00_rb,0.48987e+00_rb /)\n      kbo(:, 4,26, 9) = (/ &\n        & 0.31438e+00_rb,0.70747e+00_rb,0.80990e+00_rb,0.80672e+00_rb,0.52086e+00_rb /)\n      kbo(:, 5,26, 9) = (/ &\n        & 0.34509e+00_rb,0.76331e+00_rb,0.86957e+00_rb,0.86437e+00_rb,0.55315e+00_rb /)\n      kbo(:, 1,27, 9) = (/ &\n        & 0.21544e+00_rb,0.52037e+00_rb,0.60144e+00_rb,0.59535e+00_rb,0.38600e+00_rb /)\n      kbo(:, 2,27, 9) = (/ &\n        & 0.23456e+00_rb,0.56067e+00_rb,0.64661e+00_rb,0.64229e+00_rb,0.41342e+00_rb /)\n      kbo(:, 3,27, 9) = (/ &\n        & 0.25766e+00_rb,0.60633e+00_rb,0.69633e+00_rb,0.69257e+00_rb,0.44235e+00_rb /)\n      kbo(:, 4,27, 9) = (/ &\n        & 0.28405e+00_rb,0.65751e+00_rb,0.75133e+00_rb,0.74692e+00_rb,0.47298e+00_rb /)\n      kbo(:, 5,27, 9) = (/ &\n        & 0.31370e+00_rb,0.71529e+00_rb,0.81234e+00_rb,0.80601e+00_rb,0.50534e+00_rb /)\n      kbo(:, 1,28, 9) = (/ &\n        & 0.19107e+00_rb,0.47529e+00_rb,0.55077e+00_rb,0.54503e+00_rb,0.34666e+00_rb /)\n      kbo(:, 2,28, 9) = (/ &\n        & 0.21041e+00_rb,0.51675e+00_rb,0.59653e+00_rb,0.59172e+00_rb,0.37350e+00_rb /)\n      kbo(:, 3,28, 9) = (/ &\n        & 0.23301e+00_rb,0.56364e+00_rb,0.64698e+00_rb,0.64221e+00_rb,0.40186e+00_rb /)\n      kbo(:, 4,28, 9) = (/ &\n        & 0.25866e+00_rb,0.61667e+00_rb,0.70320e+00_rb,0.69763e+00_rb,0.43205e+00_rb /)\n      kbo(:, 5,28, 9) = (/ &\n        & 0.28710e+00_rb,0.67650e+00_rb,0.76586e+00_rb,0.75834e+00_rb,0.46367e+00_rb /)\n      kbo(:, 1,29, 9) = (/ &\n        & 0.17112e+00_rb,0.43830e+00_rb,0.50881e+00_rb,0.50311e+00_rb,0.31371e+00_rb /)\n      kbo(:, 2,29, 9) = (/ &\n        & 0.19046e+00_rb,0.48081e+00_rb,0.55535e+00_rb,0.54996e+00_rb,0.34018e+00_rb /)\n      kbo(:, 3,29, 9) = (/ &\n        & 0.21264e+00_rb,0.52926e+00_rb,0.60692e+00_rb,0.60125e+00_rb,0.36829e+00_rb /)\n      kbo(:, 4,29, 9) = (/ &\n        & 0.23734e+00_rb,0.58428e+00_rb,0.66473e+00_rb,0.65816e+00_rb,0.39807e+00_rb /)\n      kbo(:, 5,29, 9) = (/ &\n        & 0.26483e+00_rb,0.64604e+00_rb,0.72961e+00_rb,0.72085e+00_rb,0.42916e+00_rb /)\n      kbo(:, 1,30, 9) = (/ &\n        & 0.15474e+00_rb,0.40804e+00_rb,0.47416e+00_rb,0.46844e+00_rb,0.28591e+00_rb /)\n      kbo(:, 2,30, 9) = (/ &\n        & 0.17385e+00_rb,0.45175e+00_rb,0.52179e+00_rb,0.51582e+00_rb,0.31208e+00_rb /)\n      kbo(:, 3,30, 9) = (/ &\n        & 0.19550e+00_rb,0.50197e+00_rb,0.57484e+00_rb,0.56852e+00_rb,0.33963e+00_rb /)\n      kbo(:, 4,30, 9) = (/ &\n        & 0.21942e+00_rb,0.55897e+00_rb,0.63459e+00_rb,0.62718e+00_rb,0.36926e+00_rb /)\n      kbo(:, 5,30, 9) = (/ &\n        & 0.24626e+00_rb,0.62254e+00_rb,0.70206e+00_rb,0.69222e+00_rb,0.40317e+00_rb /)\n      kbo(:, 1,31, 9) = (/ &\n        & 0.14123e+00_rb,0.38383e+00_rb,0.44627e+00_rb,0.44042e+00_rb,0.26282e+00_rb /)\n      kbo(:, 2,31, 9) = (/ &\n        & 0.16008e+00_rb,0.42905e+00_rb,0.49523e+00_rb,0.48891e+00_rb,0.28832e+00_rb /)\n      kbo(:, 3,31, 9) = (/ &\n        & 0.18115e+00_rb,0.48120e+00_rb,0.55018e+00_rb,0.54338e+00_rb,0.31669e+00_rb /)\n      kbo(:, 4,31, 9) = (/ &\n        & 0.20456e+00_rb,0.54014e+00_rb,0.61227e+00_rb,0.60422e+00_rb,0.34861e+00_rb /)\n      kbo(:, 5,31, 9) = (/ &\n        & 0.23090e+00_rb,0.60549e+00_rb,0.68253e+00_rb,0.67193e+00_rb,0.38334e+00_rb /)\n      kbo(:, 1,32, 9) = (/ &\n        & 0.13011e+00_rb,0.36494e+00_rb,0.42434e+00_rb,0.41840e+00_rb,0.24343e+00_rb /)\n      kbo(:, 2,32, 9) = (/ &\n        & 0.14859e+00_rb,0.41192e+00_rb,0.47502e+00_rb,0.46846e+00_rb,0.27034e+00_rb /)\n      kbo(:, 3,32, 9) = (/ &\n        & 0.16925e+00_rb,0.46604e+00_rb,0.53210e+00_rb,0.52502e+00_rb,0.30012e+00_rb /)\n      kbo(:, 4,32, 9) = (/ &\n        & 0.19229e+00_rb,0.52692e+00_rb,0.59693e+00_rb,0.58841e+00_rb,0.33258e+00_rb /)\n      kbo(:, 5,32, 9) = (/ &\n        & 0.21839e+00_rb,0.59419e+00_rb,0.67028e+00_rb,0.65920e+00_rb,0.36819e+00_rb /)\n      kbo(:, 1,33, 9) = (/ &\n        & 0.12092e+00_rb,0.35074e+00_rb,0.40776e+00_rb,0.40175e+00_rb,0.22934e+00_rb /)\n      kbo(:, 2,33, 9) = (/ &\n        & 0.13904e+00_rb,0.39967e+00_rb,0.46044e+00_rb,0.45383e+00_rb,0.25698e+00_rb /)\n      kbo(:, 3,33, 9) = (/ &\n        & 0.15944e+00_rb,0.45574e+00_rb,0.51998e+00_rb,0.51285e+00_rb,0.28727e+00_rb /)\n      kbo(:, 4,33, 9) = (/ &\n        & 0.18230e+00_rb,0.51859e+00_rb,0.58782e+00_rb,0.57914e+00_rb,0.32052e+00_rb /)\n      kbo(:, 5,33, 9) = (/ &\n        & 0.20843e+00_rb,0.58793e+00_rb,0.66452e+00_rb,0.65307e+00_rb,0.35723e+00_rb /)\n      kbo(:, 1,34, 9) = (/ &\n        & 0.11270e+00_rb,0.33906e+00_rb,0.39419e+00_rb,0.38828e+00_rb,0.21761e+00_rb /)\n      kbo(:, 2,34, 9) = (/ &\n        & 0.13054e+00_rb,0.38970e+00_rb,0.44887e+00_rb,0.44251e+00_rb,0.24563e+00_rb /)\n      kbo(:, 3,34, 9) = (/ &\n        & 0.15070e+00_rb,0.44751e+00_rb,0.51092e+00_rb,0.50399e+00_rb,0.27652e+00_rb /)\n      kbo(:, 4,34, 9) = (/ &\n        & 0.17349e+00_rb,0.51224e+00_rb,0.58169e+00_rb,0.57301e+00_rb,0.31064e+00_rb /)\n      kbo(:, 5,34, 9) = (/ &\n        & 0.19973e+00_rb,0.58363e+00_rb,0.66163e+00_rb,0.64989e+00_rb,0.34860e+00_rb /)\n      kbo(:, 1,35, 9) = (/ &\n        & 0.10431e+00_rb,0.32621e+00_rb,0.37969e+00_rb,0.37421e+00_rb,0.20589e+00_rb /)\n      kbo(:, 2,35, 9) = (/ &\n        & 0.12172e+00_rb,0.37794e+00_rb,0.43594e+00_rb,0.43005e+00_rb,0.23415e+00_rb /)\n      kbo(:, 3,35, 9) = (/ &\n        & 0.14155e+00_rb,0.43696e+00_rb,0.49993e+00_rb,0.49338e+00_rb,0.26546e+00_rb /)\n      kbo(:, 4,35, 9) = (/ &\n        & 0.16416e+00_rb,0.50303e+00_rb,0.57285e+00_rb,0.56442e+00_rb,0.30031e+00_rb /)\n      kbo(:, 5,35, 9) = (/ &\n        & 0.19033e+00_rb,0.57592e+00_rb,0.65509e+00_rb,0.64342e+00_rb,0.33926e+00_rb /)\n      kbo(:, 1,36, 9) = (/ &\n        & 0.95441e-01_rb,0.31093e+00_rb,0.36283e+00_rb,0.35795e+00_rb,0.19348e+00_rb /)\n      kbo(:, 2,36, 9) = (/ &\n        & 0.11226e+00_rb,0.36299e+00_rb,0.41996e+00_rb,0.41468e+00_rb,0.22173e+00_rb /)\n      kbo(:, 3,36, 9) = (/ &\n        & 0.13160e+00_rb,0.42251e+00_rb,0.48508e+00_rb,0.47906e+00_rb,0.25327e+00_rb /)\n      kbo(:, 4,36, 9) = (/ &\n        & 0.15379e+00_rb,0.48924e+00_rb,0.55909e+00_rb,0.55119e+00_rb,0.28853e+00_rb /)\n      kbo(:, 5,36, 9) = (/ &\n        & 0.17959e+00_rb,0.56298e+00_rb,0.64257e+00_rb,0.63136e+00_rb,0.32808e+00_rb /)\n      kbo(:, 1,37, 9) = (/ &\n        & 0.85477e-01_rb,0.29072e+00_rb,0.34067e+00_rb,0.33658e+00_rb,0.17886e+00_rb /)\n      kbo(:, 2,37, 9) = (/ &\n        & 0.10144e+00_rb,0.34200e+00_rb,0.39763e+00_rb,0.39300e+00_rb,0.20669e+00_rb /)\n      kbo(:, 3,37, 9) = (/ &\n        & 0.11996e+00_rb,0.40095e+00_rb,0.46252e+00_rb,0.45719e+00_rb,0.23796e+00_rb /)\n      kbo(:, 4,37, 9) = (/ &\n        & 0.14137e+00_rb,0.46732e+00_rb,0.53621e+00_rb,0.52913e+00_rb,0.27304e+00_rb /)\n      kbo(:, 5,37, 9) = (/ &\n        & 0.16629e+00_rb,0.54086e+00_rb,0.61939e+00_rb,0.60918e+00_rb,0.31246e+00_rb /)\n      kbo(:, 1,38, 9) = (/ &\n        & 0.76626e-01_rb,0.27223e+00_rb,0.32047e+00_rb,0.31724e+00_rb,0.16576e+00_rb /)\n      kbo(:, 2,38, 9) = (/ &\n        & 0.91774e-01_rb,0.32273e+00_rb,0.37721e+00_rb,0.37319e+00_rb,0.19315e+00_rb /)\n      kbo(:, 3,38, 9) = (/ &\n        & 0.10950e+00_rb,0.38104e+00_rb,0.44177e+00_rb,0.43708e+00_rb,0.22413e+00_rb /)\n      kbo(:, 4,38, 9) = (/ &\n        & 0.13015e+00_rb,0.44697e+00_rb,0.51498e+00_rb,0.50870e+00_rb,0.25903e+00_rb /)\n      kbo(:, 5,38, 9) = (/ &\n        & 0.15424e+00_rb,0.52018e+00_rb,0.59766e+00_rb,0.58842e+00_rb,0.29827e+00_rb /)\n      kbo(:, 1,39, 9) = (/ &\n        & 0.68857e-01_rb,0.25564e+00_rb,0.30247e+00_rb,0.30005e+00_rb,0.15419e+00_rb /)\n      kbo(:, 2,39, 9) = (/ &\n        & 0.83231e-01_rb,0.30541e+00_rb,0.35891e+00_rb,0.35551e+00_rb,0.18117e+00_rb /)\n      kbo(:, 3,39, 9) = (/ &\n        & 0.10022e+00_rb,0.36305e+00_rb,0.42306e+00_rb,0.41901e+00_rb,0.21190e+00_rb /)\n      kbo(:, 4,39, 9) = (/ &\n        & 0.12015e+00_rb,0.42854e+00_rb,0.49574e+00_rb,0.49023e+00_rb,0.24662e+00_rb /)\n      kbo(:, 5,39, 9) = (/ &\n        & 0.14353e+00_rb,0.50140e+00_rb,0.57784e+00_rb,0.56950e+00_rb,0.28564e+00_rb /)\n      kbo(:, 1,40, 9) = (/ &\n        & 0.60721e-01_rb,0.23607e+00_rb,0.28098e+00_rb,0.27949e+00_rb,0.14134e+00_rb /)\n      kbo(:, 2,40, 9) = (/ &\n        & 0.74142e-01_rb,0.28436e+00_rb,0.33629e+00_rb,0.33356e+00_rb,0.16758e+00_rb /)\n      kbo(:, 3,40, 9) = (/ &\n        & 0.90161e-01_rb,0.34051e+00_rb,0.39918e+00_rb,0.39576e+00_rb,0.19765e+00_rb /)\n      kbo(:, 4,40, 9) = (/ &\n        & 0.10909e+00_rb,0.40469e+00_rb,0.47035e+00_rb,0.46571e+00_rb,0.23173e+00_rb /)\n      kbo(:, 5,40, 9) = (/ &\n        & 0.13146e+00_rb,0.47643e+00_rb,0.55083e+00_rb,0.54364e+00_rb,0.27006e+00_rb /)\n      kbo(:, 1,41, 9) = (/ &\n        & 0.53403e-01_rb,0.21760e+00_rb,0.26060e+00_rb,0.26004e+00_rb,0.12944e+00_rb /)\n      kbo(:, 2,41, 9) = (/ &\n        & 0.65918e-01_rb,0.26438e+00_rb,0.31466e+00_rb,0.31265e+00_rb,0.15490e+00_rb /)\n      kbo(:, 3,41, 9) = (/ &\n        & 0.80936e-01_rb,0.31888e+00_rb,0.37609e+00_rb,0.37327e+00_rb,0.18421e+00_rb /)\n      kbo(:, 4,41, 9) = (/ &\n        & 0.98889e-01_rb,0.38155e+00_rb,0.44565e+00_rb,0.44176e+00_rb,0.21756e+00_rb /)\n      kbo(:, 5,41, 9) = (/ &\n        & 0.12024e+00_rb,0.45195e+00_rb,0.52424e+00_rb,0.51812e+00_rb,0.25511e+00_rb /)\n      kbo(:, 1,42, 9) = (/ &\n        & 0.46980e-01_rb,0.20072e+00_rb,0.24188e+00_rb,0.24222e+00_rb,0.11863e+00_rb /)\n      kbo(:, 2,42, 9) = (/ &\n        & 0.58572e-01_rb,0.24586e+00_rb,0.29443e+00_rb,0.29314e+00_rb,0.14330e+00_rb /)\n      kbo(:, 3,42, 9) = (/ &\n        & 0.72653e-01_rb,0.29875e+00_rb,0.35445e+00_rb,0.35212e+00_rb,0.17184e+00_rb /)\n      kbo(:, 4,42, 9) = (/ &\n        & 0.89663e-01_rb,0.35979e+00_rb,0.42236e+00_rb,0.41911e+00_rb,0.20443e+00_rb /)\n      kbo(:, 5,42, 9) = (/ &\n        & 0.11004e+00_rb,0.42873e+00_rb,0.49904e+00_rb,0.49389e+00_rb,0.24118e+00_rb /)\n      kbo(:, 1,43, 9) = (/ &\n        & 0.40748e-01_rb,0.18301e+00_rb,0.22189e+00_rb,0.22309e+00_rb,0.10752e+00_rb /)\n      kbo(:, 2,43, 9) = (/ &\n        & 0.51357e-01_rb,0.22603e+00_rb,0.27246e+00_rb,0.27198e+00_rb,0.13119e+00_rb /)\n      kbo(:, 3,43, 9) = (/ &\n        & 0.64381e-01_rb,0.27684e+00_rb,0.33058e+00_rb,0.32881e+00_rb,0.15875e+00_rb /)\n      kbo(:, 4,43, 9) = (/ &\n        & 0.80299e-01_rb,0.33572e+00_rb,0.39639e+00_rb,0.39376e+00_rb,0.19029e+00_rb /)\n      kbo(:, 5,43, 9) = (/ &\n        & 0.99551e-01_rb,0.40267e+00_rb,0.47065e+00_rb,0.46647e+00_rb,0.22598e+00_rb /)\n      kbo(:, 1,44, 9) = (/ &\n        & 0.35065e-01_rb,0.16586e+00_rb,0.20221e+00_rb,0.20417e+00_rb,0.96831e-01_rb /)\n      kbo(:, 2,44, 9) = (/ &\n        & 0.44686e-01_rb,0.20650e+00_rb,0.25055e+00_rb,0.25097e+00_rb,0.11942e+00_rb /)\n      kbo(:, 3,44, 9) = (/ &\n        & 0.56631e-01_rb,0.25500e+00_rb,0.30652e+00_rb,0.30540e+00_rb,0.14585e+00_rb /)\n      kbo(:, 4,44, 9) = (/ &\n        & 0.71442e-01_rb,0.31160e+00_rb,0.37021e+00_rb,0.36812e+00_rb,0.17630e+00_rb /)\n      kbo(:, 5,44, 9) = (/ &\n        & 0.89487e-01_rb,0.37611e+00_rb,0.44177e+00_rb,0.43843e+00_rb,0.21076e+00_rb /)\n      kbo(:, 1,45, 9) = (/ &\n        & 0.30099e-01_rb,0.15014e+00_rb,0.18399e+00_rb,0.18651e+00_rb,0.87081e-01_rb /)\n      kbo(:, 2,45, 9) = (/ &\n        & 0.38792e-01_rb,0.18842e+00_rb,0.23006e+00_rb,0.23134e+00_rb,0.10857e+00_rb /)\n      kbo(:, 3,45, 9) = (/ &\n        & 0.49706e-01_rb,0.23455e+00_rb,0.28377e+00_rb,0.28337e+00_rb,0.13385e+00_rb /)\n      kbo(:, 4,45, 9) = (/ &\n        & 0.63416e-01_rb,0.28880e+00_rb,0.34526e+00_rb,0.34365e+00_rb,0.16313e+00_rb /)\n      kbo(:, 5,45, 9) = (/ &\n        & 0.80320e-01_rb,0.35087e+00_rb,0.41430e+00_rb,0.41165e+00_rb,0.19641e+00_rb /)\n      kbo(:, 1,46, 9) = (/ &\n        & 0.25615e-01_rb,0.13501e+00_rb,0.16621e+00_rb,0.16909e+00_rb,0.77761e-01_rb /)\n      kbo(:, 2,46, 9) = (/ &\n        & 0.33396e-01_rb,0.17087e+00_rb,0.20986e+00_rb,0.21193e+00_rb,0.98069e-01_rb /)\n      kbo(:, 3,46, 9) = (/ &\n        & 0.43320e-01_rb,0.21451e+00_rb,0.26120e+00_rb,0.26156e+00_rb,0.12212e+00_rb /)\n      kbo(:, 4,46, 9) = (/ &\n        & 0.55857e-01_rb,0.26606e+00_rb,0.32018e+00_rb,0.31908e+00_rb,0.15012e+00_rb /)\n      kbo(:, 5,46, 9) = (/ &\n        & 0.71564e-01_rb,0.32546e+00_rb,0.38657e+00_rb,0.38454e+00_rb,0.18211e+00_rb /)\n      kbo(:, 1,47, 9) = (/ &\n        & 0.21470e-01_rb,0.11984e+00_rb,0.14813e+00_rb,0.15126e+00_rb,0.68564e-01_rb /)\n      kbo(:, 2,47, 9) = (/ &\n        & 0.28327e-01_rb,0.15313e+00_rb,0.18908e+00_rb,0.19182e+00_rb,0.87445e-01_rb /)\n      kbo(:, 3,47, 9) = (/ &\n        & 0.37186e-01_rb,0.19381e+00_rb,0.23756e+00_rb,0.23882e+00_rb,0.11016e+00_rb /)\n      kbo(:, 4,47, 9) = (/ &\n        & 0.48514e-01_rb,0.24239e+00_rb,0.29373e+00_rb,0.29331e+00_rb,0.13670e+00_rb /)\n      kbo(:, 5,47, 9) = (/ &\n        & 0.62915e-01_rb,0.29879e+00_rb,0.35729e+00_rb,0.35580e+00_rb,0.16718e+00_rb /)\n      kbo(:, 1,48, 9) = (/ &\n        & 0.17915e-01_rb,0.10594e+00_rb,0.13153e+00_rb,0.13471e+00_rb,0.60247e-01_rb /)\n      kbo(:, 2,48, 9) = (/ &\n        & 0.23922e-01_rb,0.13687e+00_rb,0.16982e+00_rb,0.17297e+00_rb,0.77702e-01_rb /)\n      kbo(:, 3,48, 9) = (/ &\n        & 0.31789e-01_rb,0.17464e+00_rb,0.21543e+00_rb,0.21754e+00_rb,0.99032e-01_rb /)\n      kbo(:, 4,48, 9) = (/ &\n        & 0.41975e-01_rb,0.22024e+00_rb,0.26872e+00_rb,0.26906e+00_rb,0.12414e+00_rb /)\n      kbo(:, 5,48, 9) = (/ &\n        & 0.55099e-01_rb,0.27366e+00_rb,0.32950e+00_rb,0.32848e+00_rb,0.15313e+00_rb /)\n      kbo(:, 1,49, 9) = (/ &\n        & 0.14883e-01_rb,0.93224e-01_rb,0.11635e+00_rb,0.11939e+00_rb,0.52749e-01_rb /)\n      kbo(:, 2,49, 9) = (/ &\n        & 0.20112e-01_rb,0.12194e+00_rb,0.15191e+00_rb,0.15532e+00_rb,0.68811e-01_rb /)\n      kbo(:, 3,49, 9) = (/ &\n        & 0.27052e-01_rb,0.15700e+00_rb,0.19473e+00_rb,0.19754e+00_rb,0.88692e-01_rb /)\n      kbo(:, 4,49, 9) = (/ &\n        & 0.36170e-01_rb,0.19958e+00_rb,0.24512e+00_rb,0.24626e+00_rb,0.11239e+00_rb /)\n      kbo(:, 5,49, 9) = (/ &\n        & 0.48053e-01_rb,0.24998e+00_rb,0.30305e+00_rb,0.30260e+00_rb,0.13992e+00_rb /)\n      kbo(:, 1,50, 9) = (/ &\n        & 0.12401e-01_rb,0.82224e-01_rb,0.10323e+00_rb,0.10603e+00_rb,0.46388e-01_rb /)\n      kbo(:, 2,50, 9) = (/ &\n        & 0.16961e-01_rb,0.10896e+00_rb,0.13629e+00_rb,0.13978e+00_rb,0.61130e-01_rb /)\n      kbo(:, 3,50, 9) = (/ &\n        & 0.23097e-01_rb,0.14168e+00_rb,0.17654e+00_rb,0.17982e+00_rb,0.79649e-01_rb /)\n      kbo(:, 4,50, 9) = (/ &\n        & 0.31266e-01_rb,0.18143e+00_rb,0.22418e+00_rb,0.22611e+00_rb,0.10201e+00_rb /)\n      kbo(:, 5,50, 9) = (/ &\n        & 0.42049e-01_rb,0.22900e+00_rb,0.27939e+00_rb,0.27959e+00_rb,0.12818e+00_rb /)\n      kbo(:, 1,51, 9) = (/ &\n        & 0.10311e-01_rb,0.72407e-01_rb,0.91543e-01_rb,0.94015e-01_rb,0.40739e-01_rb /)\n      kbo(:, 2,51, 9) = (/ &\n        & 0.14299e-01_rb,0.97301e-01_rb,0.12223e+00_rb,0.12566e+00_rb,0.54336e-01_rb /)\n      kbo(:, 3,51, 9) = (/ &\n        & 0.19709e-01_rb,0.12788e+00_rb,0.16001e+00_rb,0.16354e+00_rb,0.71514e-01_rb /)\n      kbo(:, 4,51, 9) = (/ &\n        & 0.27010e-01_rb,0.16504e+00_rb,0.20502e+00_rb,0.20766e+00_rb,0.92576e-01_rb /)\n      kbo(:, 5,51, 9) = (/ &\n        & 0.36820e-01_rb,0.20996e+00_rb,0.25769e+00_rb,0.25854e+00_rb,0.11743e+00_rb /)\n      kbo(:, 1,52, 9) = (/ &\n        & 0.85238e-02_rb,0.63439e-01_rb,0.80796e-01_rb,0.82950e-01_rb,0.35726e-01_rb /)\n      kbo(:, 2,52, 9) = (/ &\n        & 0.12004e-01_rb,0.86535e-01_rb,0.10929e+00_rb,0.11252e+00_rb,0.48201e-01_rb /)\n      kbo(:, 3,52, 9) = (/ &\n        & 0.16756e-01_rb,0.11511e+00_rb,0.14456e+00_rb,0.14824e+00_rb,0.64036e-01_rb /)\n      kbo(:, 4,52, 9) = (/ &\n        & 0.23247e-01_rb,0.14984e+00_rb,0.18701e+00_rb,0.19020e+00_rb,0.83745e-01_rb /)\n      kbo(:, 5,52, 9) = (/ &\n        & 0.32110e-01_rb,0.19199e+00_rb,0.23699e+00_rb,0.23857e+00_rb,0.10729e+00_rb /)\n      kbo(:, 1,53, 9) = (/ &\n        & 0.70021e-02_rb,0.55279e-01_rb,0.70908e-01_rb,0.72826e-01_rb,0.31267e-01_rb /)\n      kbo(:, 2,53, 9) = (/ &\n        & 0.10022e-01_rb,0.76605e-01_rb,0.97337e-01_rb,0.10026e+00_rb,0.42555e-01_rb /)\n      kbo(:, 3,53, 9) = (/ &\n        & 0.14186e-01_rb,0.10324e+00_rb,0.13015e+00_rb,0.13384e+00_rb,0.57176e-01_rb /)\n      kbo(:, 4,53, 9) = (/ &\n        & 0.19924e-01_rb,0.13568e+00_rb,0.17006e+00_rb,0.17360e+00_rb,0.75508e-01_rb /)\n      kbo(:, 5,53, 9) = (/ &\n        & 0.27873e-01_rb,0.17508e+00_rb,0.21734e+00_rb,0.21965e+00_rb,0.97730e-01_rb /)\n      kbo(:, 1,54, 9) = (/ &\n        & 0.57827e-02_rb,0.48416e-01_rb,0.62508e-01_rb,0.64310e-01_rb,0.27618e-01_rb /)\n      kbo(:, 2,54, 9) = (/ &\n        & 0.84043e-02_rb,0.68151e-01_rb,0.87167e-01_rb,0.89761e-01_rb,0.37874e-01_rb /)\n      kbo(:, 3,54, 9) = (/ &\n        & 0.12088e-01_rb,0.93069e-01_rb,0.11782e+00_rb,0.12138e+00_rb,0.51418e-01_rb /)\n      kbo(:, 4,54, 9) = (/ &\n        & 0.17188e-01_rb,0.12356e+00_rb,0.15542e+00_rb,0.15914e+00_rb,0.68446e-01_rb /)\n      kbo(:, 5,54, 9) = (/ &\n        & 0.24356e-01_rb,0.16057e+00_rb,0.20027e+00_rb,0.20317e+00_rb,0.89427e-01_rb /)\n      kbo(:, 1,55, 9) = (/ &\n        & 0.47829e-02_rb,0.42445e-01_rb,0.55108e-01_rb,0.56879e-01_rb,0.24415e-01_rb /)\n      kbo(:, 2,55, 9) = (/ &\n        & 0.70515e-02_rb,0.60688e-01_rb,0.78130e-01_rb,0.80430e-01_rb,0.33849e-01_rb /)\n      kbo(:, 3,55, 9) = (/ &\n        & 0.10307e-01_rb,0.83954e-01_rb,0.10678e+00_rb,0.11014e+00_rb,0.46263e-01_rb /)\n      kbo(:, 4,55, 9) = (/ &\n        & 0.14854e-01_rb,0.11267e+00_rb,0.14216e+00_rb,0.14598e+00_rb,0.62158e-01_rb /)\n      kbo(:, 5,55, 9) = (/ &\n        & 0.21317e-01_rb,0.14754e+00_rb,0.18474e+00_rb,0.18809e+00_rb,0.81914e-01_rb /)\n      kbo(:, 1,56, 9) = (/ &\n        & 0.39349e-02_rb,0.37013e-01_rb,0.48295e-01_rb,0.50091e-01_rb,0.21529e-01_rb /)\n      kbo(:, 2,56, 9) = (/ &\n        & 0.58808e-02_rb,0.53785e-01_rb,0.69695e-01_rb,0.71776e-01_rb,0.30144e-01_rb /)\n      kbo(:, 3,56, 9) = (/ &\n        & 0.87470e-02_rb,0.75476e-01_rb,0.96519e-01_rb,0.99590e-01_rb,0.41605e-01_rb /)\n      kbo(:, 4,56, 9) = (/ &\n        & 0.12799e-01_rb,0.10247e+00_rb,0.12972e+00_rb,0.13354e+00_rb,0.56396e-01_rb /)\n      kbo(:, 5,56, 9) = (/ &\n        & 0.18597e-01_rb,0.13533e+00_rb,0.17007e+00_rb,0.17370e+00_rb,0.74854e-01_rb /)\n      kbo(:, 1,57, 9) = (/ &\n        & 0.32237e-02_rb,0.32103e-01_rb,0.42068e-01_rb,0.43893e-01_rb,0.18889e-01_rb /)\n      kbo(:, 2,57, 9) = (/ &\n        & 0.48776e-02_rb,0.47453e-01_rb,0.61873e-01_rb,0.63812e-01_rb,0.26899e-01_rb /)\n      kbo(:, 3,57, 9) = (/ &\n        & 0.73816e-02_rb,0.67586e-01_rb,0.86956e-01_rb,0.89701e-01_rb,0.37405e-01_rb /)\n      kbo(:, 4,57, 9) = (/ &\n        & 0.10984e-01_rb,0.92907e-01_rb,0.11806e+00_rb,0.12175e+00_rb,0.51002e-01_rb /)\n      kbo(:, 5,57, 9) = (/ &\n        & 0.16168e-01_rb,0.12385e+00_rb,0.15617e+00_rb,0.15996e+00_rb,0.68253e-01_rb /)\n      kbo(:, 1,58, 9) = (/ &\n        & 0.26462e-02_rb,0.27879e-01_rb,0.36685e-01_rb,0.38484e-01_rb,0.16601e-01_rb /)\n      kbo(:, 2,58, 9) = (/ &\n        & 0.40522e-02_rb,0.41929e-01_rb,0.54967e-01_rb,0.56858e-01_rb,0.24050e-01_rb /)\n      kbo(:, 3,58, 9) = (/ &\n        & 0.62364e-02_rb,0.60609e-01_rb,0.78458e-01_rb,0.80919e-01_rb,0.33657e-01_rb /)\n      kbo(:, 4,58, 9) = (/ &\n        & 0.94512e-02_rb,0.84383e-01_rb,0.10769e+00_rb,0.11117e+00_rb,0.46338e-01_rb /)\n      kbo(:, 5,58, 9) = (/ &\n        & 0.14101e-01_rb,0.11363e+00_rb,0.14367e+00_rb,0.14755e+00_rb,0.62487e-01_rb /)\n      kbo(:, 1,59, 9) = (/ &\n        & 0.23375e-02_rb,0.26104e-01_rb,0.34483e-01_rb,0.36273e-01_rb,0.15643e-01_rb /)\n      kbo(:, 2,59, 9) = (/ &\n        & 0.36353e-02_rb,0.39676e-01_rb,0.52191e-01_rb,0.54098e-01_rb,0.22879e-01_rb /)\n      kbo(:, 3,59, 9) = (/ &\n        & 0.56781e-02_rb,0.57810e-01_rb,0.75085e-01_rb,0.77452e-01_rb,0.32253e-01_rb /)\n      kbo(:, 4,59, 9) = (/ &\n        & 0.87345e-02_rb,0.80998e-01_rb,0.10362e+00_rb,0.10701e+00_rb,0.44587e-01_rb /)\n      kbo(:, 5,59, 9) = (/ &\n        & 0.13202e-01_rb,0.10960e+00_rb,0.13878e+00_rb,0.14268e+00_rb,0.60173e-01_rb /)\n      kbo(:, 1,13,10) = (/ &\n        & 0.68082e+01_rb,0.10647e+02_rb,0.12044e+02_rb,0.12092e+02_rb,0.85097e+01_rb /)\n      kbo(:, 2,13,10) = (/ &\n        & 0.67019e+01_rb,0.10585e+02_rb,0.12055e+02_rb,0.12198e+02_rb,0.87119e+01_rb /)\n      kbo(:, 3,13,10) = (/ &\n        & 0.67137e+01_rb,0.10536e+02_rb,0.12063e+02_rb,0.12312e+02_rb,0.88714e+01_rb /)\n      kbo(:, 4,13,10) = (/ &\n        & 0.68713e+01_rb,0.10489e+02_rb,0.12087e+02_rb,0.12413e+02_rb,0.90170e+01_rb /)\n      kbo(:, 5,13,10) = (/ &\n        & 0.71185e+01_rb,0.10479e+02_rb,0.12121e+02_rb,0.12479e+02_rb,0.91853e+01_rb /)\n      kbo(:, 1,14,10) = (/ &\n        & 0.58410e+01_rb,0.94018e+01_rb,0.10846e+02_rb,0.11035e+02_rb,0.76674e+01_rb /)\n      kbo(:, 2,14,10) = (/ &\n        & 0.58467e+01_rb,0.93735e+01_rb,0.10875e+02_rb,0.11156e+02_rb,0.78256e+01_rb /)\n      kbo(:, 3,14,10) = (/ &\n        & 0.59984e+01_rb,0.93438e+01_rb,0.10908e+02_rb,0.11271e+02_rb,0.79426e+01_rb /)\n      kbo(:, 4,14,10) = (/ &\n        & 0.62373e+01_rb,0.93563e+01_rb,0.10953e+02_rb,0.11364e+02_rb,0.81071e+01_rb /)\n      kbo(:, 5,14,10) = (/ &\n        & 0.65135e+01_rb,0.94809e+01_rb,0.10997e+02_rb,0.11429e+02_rb,0.82861e+01_rb /)\n      kbo(:, 1,15,10) = (/ &\n        & 0.50343e+01_rb,0.83265e+01_rb,0.97137e+01_rb,0.99946e+01_rb,0.69930e+01_rb /)\n      kbo(:, 2,15,10) = (/ &\n        & 0.51660e+01_rb,0.83107e+01_rb,0.97594e+01_rb,0.10123e+02_rb,0.71240e+01_rb /)\n      kbo(:, 3,15,10) = (/ &\n        & 0.53903e+01_rb,0.83316e+01_rb,0.98216e+01_rb,0.10239e+02_rb,0.72628e+01_rb /)\n      kbo(:, 4,15,10) = (/ &\n        & 0.56415e+01_rb,0.84645e+01_rb,0.98856e+01_rb,0.10324e+02_rb,0.74229e+01_rb /)\n      kbo(:, 5,15,10) = (/ &\n        & 0.58842e+01_rb,0.87055e+01_rb,0.99631e+01_rb,0.10400e+02_rb,0.75908e+01_rb /)\n      kbo(:, 1,16,10) = (/ &\n        & 0.44015e+01_rb,0.74103e+01_rb,0.86530e+01_rb,0.90071e+01_rb,0.63301e+01_rb /)\n      kbo(:, 2,16,10) = (/ &\n        & 0.45955e+01_rb,0.74391e+01_rb,0.87237e+01_rb,0.91359e+01_rb,0.64715e+01_rb /)\n      kbo(:, 3,16,10) = (/ &\n        & 0.48140e+01_rb,0.75662e+01_rb,0.88065e+01_rb,0.92379e+01_rb,0.66426e+01_rb /)\n      kbo(:, 4,16,10) = (/ &\n        & 0.50318e+01_rb,0.77981e+01_rb,0.89101e+01_rb,0.93283e+01_rb,0.68095e+01_rb /)\n      kbo(:, 5,16,10) = (/ &\n        & 0.52436e+01_rb,0.80914e+01_rb,0.90522e+01_rb,0.94292e+01_rb,0.69717e+01_rb /)\n      kbo(:, 1,17,10) = (/ &\n        & 0.38938e+01_rb,0.65976e+01_rb,0.77151e+01_rb,0.80672e+01_rb,0.57119e+01_rb /)\n      kbo(:, 2,17,10) = (/ &\n        & 0.40781e+01_rb,0.67171e+01_rb,0.78068e+01_rb,0.81879e+01_rb,0.58706e+01_rb /)\n      kbo(:, 3,17,10) = (/ &\n        & 0.42641e+01_rb,0.69435e+01_rb,0.79191e+01_rb,0.82934e+01_rb,0.60296e+01_rb /)\n      kbo(:, 4,17,10) = (/ &\n        & 0.44480e+01_rb,0.72305e+01_rb,0.80762e+01_rb,0.84106e+01_rb,0.62012e+01_rb /)\n      kbo(:, 5,17,10) = (/ &\n        & 0.46308e+01_rb,0.75237e+01_rb,0.83037e+01_rb,0.85418e+01_rb,0.63775e+01_rb /)\n      kbo(:, 1,18,10) = (/ &\n        & 0.34407e+01_rb,0.58963e+01_rb,0.69001e+01_rb,0.71891e+01_rb,0.51366e+01_rb /)\n      kbo(:, 2,18,10) = (/ &\n        & 0.35988e+01_rb,0.61068e+01_rb,0.70120e+01_rb,0.73051e+01_rb,0.52912e+01_rb /)\n      kbo(:, 3,18,10) = (/ &\n        & 0.37577e+01_rb,0.63853e+01_rb,0.71752e+01_rb,0.74336e+01_rb,0.54376e+01_rb /)\n      kbo(:, 4,18,10) = (/ &\n        & 0.39161e+01_rb,0.66726e+01_rb,0.74020e+01_rb,0.75773e+01_rb,0.56097e+01_rb /)\n      kbo(:, 5,18,10) = (/ &\n        & 0.40711e+01_rb,0.69480e+01_rb,0.76793e+01_rb,0.77395e+01_rb,0.57994e+01_rb /)\n      kbo(:, 1,19,10) = (/ &\n        & 0.30222e+01_rb,0.53136e+01_rb,0.61695e+01_rb,0.63815e+01_rb,0.46248e+01_rb /)\n      kbo(:, 2,19,10) = (/ &\n        & 0.31568e+01_rb,0.55745e+01_rb,0.63303e+01_rb,0.65186e+01_rb,0.47653e+01_rb /)\n      kbo(:, 3,19,10) = (/ &\n        & 0.32936e+01_rb,0.58515e+01_rb,0.65536e+01_rb,0.66691e+01_rb,0.49110e+01_rb /)\n      kbo(:, 4,19,10) = (/ &\n        & 0.34320e+01_rb,0.61200e+01_rb,0.68298e+01_rb,0.68431e+01_rb,0.50671e+01_rb /)\n      kbo(:, 5,19,10) = (/ &\n        & 0.35717e+01_rb,0.63810e+01_rb,0.71341e+01_rb,0.70485e+01_rb,0.52482e+01_rb /)\n      kbo(:, 1,20,10) = (/ &\n        & 0.26646e+01_rb,0.48341e+01_rb,0.55294e+01_rb,0.56818e+01_rb,0.41697e+01_rb /)\n      kbo(:, 2,20,10) = (/ &\n        & 0.27751e+01_rb,0.50933e+01_rb,0.57470e+01_rb,0.58376e+01_rb,0.43064e+01_rb /)\n      kbo(:, 3,20,10) = (/ &\n        & 0.28895e+01_rb,0.53454e+01_rb,0.60203e+01_rb,0.60166e+01_rb,0.44569e+01_rb /)\n      kbo(:, 4,20,10) = (/ &\n        & 0.30071e+01_rb,0.55962e+01_rb,0.63194e+01_rb,0.62235e+01_rb,0.46038e+01_rb /)\n      kbo(:, 5,20,10) = (/ &\n        & 0.31278e+01_rb,0.58505e+01_rb,0.66184e+01_rb,0.64780e+01_rb,0.47569e+01_rb /)\n      kbo(:, 1,21,10) = (/ &\n        & 0.23601e+01_rb,0.44020e+01_rb,0.49905e+01_rb,0.50776e+01_rb,0.37561e+01_rb /)\n      kbo(:, 2,21,10) = (/ &\n        & 0.24527e+01_rb,0.46408e+01_rb,0.52514e+01_rb,0.52563e+01_rb,0.39021e+01_rb /)\n      kbo(:, 3,21,10) = (/ &\n        & 0.25482e+01_rb,0.48775e+01_rb,0.55424e+01_rb,0.54642e+01_rb,0.40531e+01_rb /)\n      kbo(:, 4,21,10) = (/ &\n        & 0.26469e+01_rb,0.51183e+01_rb,0.58389e+01_rb,0.57185e+01_rb,0.42025e+01_rb /)\n      kbo(:, 5,21,10) = (/ &\n        & 0.27509e+01_rb,0.53673e+01_rb,0.61341e+01_rb,0.60025e+01_rb,0.43477e+01_rb /)\n      kbo(:, 1,22,10) = (/ &\n        & 0.20933e+01_rb,0.40130e+01_rb,0.45530e+01_rb,0.45722e+01_rb,0.33997e+01_rb /)\n      kbo(:, 2,22,10) = (/ &\n        & 0.21774e+01_rb,0.42389e+01_rb,0.48339e+01_rb,0.47801e+01_rb,0.35503e+01_rb /)\n      kbo(:, 3,22,10) = (/ &\n        & 0.22636e+01_rb,0.44688e+01_rb,0.51214e+01_rb,0.50286e+01_rb,0.36916e+01_rb /)\n      kbo(:, 4,22,10) = (/ &\n        & 0.23497e+01_rb,0.47085e+01_rb,0.54112e+01_rb,0.53109e+01_rb,0.38464e+01_rb /)\n      kbo(:, 5,22,10) = (/ &\n        & 0.24400e+01_rb,0.49544e+01_rb,0.57104e+01_rb,0.56159e+01_rb,0.40026e+01_rb /)\n      kbo(:, 1,23,10) = (/ &\n        & 0.18483e+01_rb,0.36572e+01_rb,0.41816e+01_rb,0.41476e+01_rb,0.30773e+01_rb /)\n      kbo(:, 2,23,10) = (/ &\n        & 0.19296e+01_rb,0.38779e+01_rb,0.44582e+01_rb,0.43906e+01_rb,0.32324e+01_rb /)\n      kbo(:, 3,23,10) = (/ &\n        & 0.20105e+01_rb,0.41090e+01_rb,0.47398e+01_rb,0.46676e+01_rb,0.33790e+01_rb /)\n      kbo(:, 4,23,10) = (/ &\n        & 0.20922e+01_rb,0.43460e+01_rb,0.50319e+01_rb,0.49689e+01_rb,0.35381e+01_rb /)\n      kbo(:, 5,23,10) = (/ &\n        & 0.21812e+01_rb,0.45942e+01_rb,0.53379e+01_rb,0.52907e+01_rb,0.36872e+01_rb /)\n      kbo(:, 1,24,10) = (/ &\n        & 0.16291e+01_rb,0.33480e+01_rb,0.38514e+01_rb,0.38051e+01_rb,0.27880e+01_rb /)\n      kbo(:, 2,24,10) = (/ &\n        & 0.17053e+01_rb,0.35635e+01_rb,0.41240e+01_rb,0.40716e+01_rb,0.29407e+01_rb /)\n      kbo(:, 3,24,10) = (/ &\n        & 0.17841e+01_rb,0.37930e+01_rb,0.44076e+01_rb,0.43668e+01_rb,0.31035e+01_rb /)\n      kbo(:, 4,24,10) = (/ &\n        & 0.18670e+01_rb,0.40349e+01_rb,0.47044e+01_rb,0.46831e+01_rb,0.32549e+01_rb /)\n      kbo(:, 5,24,10) = (/ &\n        & 0.19687e+01_rb,0.42837e+01_rb,0.50178e+01_rb,0.50123e+01_rb,0.34093e+01_rb /)\n      kbo(:, 1,25,10) = (/ &\n        & 0.14342e+01_rb,0.30870e+01_rb,0.35616e+01_rb,0.35262e+01_rb,0.25309e+01_rb /)\n      kbo(:, 2,25,10) = (/ &\n        & 0.15073e+01_rb,0.32988e+01_rb,0.38348e+01_rb,0.38083e+01_rb,0.26935e+01_rb /)\n      kbo(:, 3,25,10) = (/ &\n        & 0.15855e+01_rb,0.35267e+01_rb,0.41227e+01_rb,0.41156e+01_rb,0.28544e+01_rb /)\n      kbo(:, 4,25,10) = (/ &\n        & 0.16765e+01_rb,0.37674e+01_rb,0.44270e+01_rb,0.44387e+01_rb,0.30112e+01_rb /)\n      kbo(:, 5,25,10) = (/ &\n        & 0.17969e+01_rb,0.40179e+01_rb,0.47482e+01_rb,0.47807e+01_rb,0.31986e+01_rb /)\n      kbo(:, 1,26,10) = (/ &\n        & 0.12644e+01_rb,0.28734e+01_rb,0.33145e+01_rb,0.33023e+01_rb,0.23207e+01_rb /)\n      kbo(:, 2,26,10) = (/ &\n        & 0.13357e+01_rb,0.30796e+01_rb,0.35932e+01_rb,0.35956e+01_rb,0.24777e+01_rb /)\n      kbo(:, 3,26,10) = (/ &\n        & 0.14174e+01_rb,0.33035e+01_rb,0.38863e+01_rb,0.39081e+01_rb,0.26420e+01_rb /)\n      kbo(:, 4,26,10) = (/ &\n        & 0.15234e+01_rb,0.35430e+01_rb,0.41997e+01_rb,0.42431e+01_rb,0.28241e+01_rb /)\n      kbo(:, 5,26,10) = (/ &\n        & 0.16603e+01_rb,0.37959e+01_rb,0.45341e+01_rb,0.45996e+01_rb,0.30401e+01_rb /)\n      kbo(:, 1,27,10) = (/ &\n        & 0.11180e+01_rb,0.26923e+01_rb,0.31092e+01_rb,0.31181e+01_rb,0.21320e+01_rb /)\n      kbo(:, 2,27,10) = (/ &\n        & 0.11893e+01_rb,0.28981e+01_rb,0.33903e+01_rb,0.34176e+01_rb,0.22961e+01_rb /)\n      kbo(:, 3,27,10) = (/ &\n        & 0.12805e+01_rb,0.31184e+01_rb,0.36930e+01_rb,0.37398e+01_rb,0.24775e+01_rb /)\n      kbo(:, 4,27,10) = (/ &\n        & 0.14017e+01_rb,0.33577e+01_rb,0.40190e+01_rb,0.40909e+01_rb,0.26920e+01_rb /)\n      kbo(:, 5,27,10) = (/ &\n        & 0.15494e+01_rb,0.36148e+01_rb,0.43685e+01_rb,0.44626e+01_rb,0.29161e+01_rb /)\n      kbo(:, 1,28,10) = (/ &\n        & 0.99411e+00_rb,0.25422e+01_rb,0.29403e+01_rb,0.29678e+01_rb,0.19736e+01_rb /)\n      kbo(:, 2,28,10) = (/ &\n        & 0.10693e+01_rb,0.27468e+01_rb,0.32278e+01_rb,0.32747e+01_rb,0.21580e+01_rb /)\n      kbo(:, 3,28,10) = (/ &\n        & 0.11727e+01_rb,0.29677e+01_rb,0.35410e+01_rb,0.36136e+01_rb,0.23718e+01_rb /)\n      kbo(:, 4,28,10) = (/ &\n        & 0.13040e+01_rb,0.32092e+01_rb,0.38816e+01_rb,0.39808e+01_rb,0.25959e+01_rb /)\n      kbo(:, 5,28,10) = (/ &\n        & 0.14604e+01_rb,0.34721e+01_rb,0.42472e+01_rb,0.43708e+01_rb,0.28373e+01_rb /)\n      kbo(:, 1,29,10) = (/ &\n        & 0.89294e+00_rb,0.24188e+01_rb,0.28058e+01_rb,0.28515e+01_rb,0.18636e+01_rb /)\n      kbo(:, 2,29,10) = (/ &\n        & 0.97544e+00_rb,0.26259e+01_rb,0.31039e+01_rb,0.31712e+01_rb,0.20699e+01_rb /)\n      kbo(:, 3,29,10) = (/ &\n        & 0.10880e+01_rb,0.28493e+01_rb,0.34305e+01_rb,0.35278e+01_rb,0.22886e+01_rb /)\n      kbo(:, 4,29,10) = (/ &\n        & 0.12277e+01_rb,0.30947e+01_rb,0.37862e+01_rb,0.39124e+01_rb,0.25256e+01_rb /)\n      kbo(:, 5,29,10) = (/ &\n        & 0.13896e+01_rb,0.33676e+01_rb,0.41685e+01_rb,0.43225e+01_rb,0.27864e+01_rb /)\n      kbo(:, 1,30,10) = (/ &\n        & 0.81230e+00_rb,0.23190e+01_rb,0.27059e+01_rb,0.27666e+01_rb,0.17929e+01_rb /)\n      kbo(:, 2,30,10) = (/ &\n        & 0.90285e+00_rb,0.25306e+01_rb,0.30146e+01_rb,0.31051e+01_rb,0.20049e+01_rb /)\n      kbo(:, 3,30,10) = (/ &\n        & 0.10223e+01_rb,0.27572e+01_rb,0.33560e+01_rb,0.34779e+01_rb,0.22359e+01_rb /)\n      kbo(:, 4,30,10) = (/ &\n        & 0.11675e+01_rb,0.30101e+01_rb,0.37284e+01_rb,0.38827e+01_rb,0.24866e+01_rb /)\n      kbo(:, 5,30,10) = (/ &\n        & 0.13337e+01_rb,0.32968e+01_rb,0.41265e+01_rb,0.43099e+01_rb,0.27369e+01_rb /)\n      kbo(:, 1,31,10) = (/ &\n        & 0.75110e+00_rb,0.22419e+01_rb,0.26379e+01_rb,0.27157e+01_rb,0.17433e+01_rb /)\n      kbo(:, 2,31,10) = (/ &\n        & 0.84809e+00_rb,0.24579e+01_rb,0.29592e+01_rb,0.30730e+01_rb,0.19665e+01_rb /)\n      kbo(:, 3,31,10) = (/ &\n        & 0.97252e+00_rb,0.26914e+01_rb,0.33168e+01_rb,0.34645e+01_rb,0.22008e+01_rb /)\n      kbo(:, 4,31,10) = (/ &\n        & 0.11219e+01_rb,0.29550e+01_rb,0.37069e+01_rb,0.38878e+01_rb,0.24456e+01_rb /)\n      kbo(:, 5,31,10) = (/ &\n        & 0.12926e+01_rb,0.32597e+01_rb,0.41224e+01_rb,0.43304e+01_rb,0.27059e+01_rb /)\n      kbo(:, 1,32,10) = (/ &\n        & 0.70499e+00_rb,0.21846e+01_rb,0.25985e+01_rb,0.26966e+01_rb,0.17143e+01_rb /)\n      kbo(:, 2,32,10) = (/ &\n        & 0.80768e+00_rb,0.24067e+01_rb,0.29356e+01_rb,0.30726e+01_rb,0.19337e+01_rb /)\n      kbo(:, 3,32,10) = (/ &\n        & 0.93561e+00_rb,0.26499e+01_rb,0.33107e+01_rb,0.34825e+01_rb,0.21698e+01_rb /)\n      kbo(:, 4,32,10) = (/ &\n        & 0.10894e+01_rb,0.29281e+01_rb,0.37179e+01_rb,0.39220e+01_rb,0.24264e+01_rb /)\n      kbo(:, 5,32,10) = (/ &\n        & 0.12637e+01_rb,0.32525e+01_rb,0.41500e+01_rb,0.43764e+01_rb,0.26992e+01_rb /)\n      kbo(:, 1,33,10) = (/ &\n        & 0.67118e+00_rb,0.21457e+01_rb,0.25854e+01_rb,0.27057e+01_rb,0.16861e+01_rb /)\n      kbo(:, 2,33,10) = (/ &\n        & 0.77795e+00_rb,0.23758e+01_rb,0.29404e+01_rb,0.30997e+01_rb,0.19111e+01_rb /)\n      kbo(:, 3,33,10) = (/ &\n        & 0.91001e+00_rb,0.26325e+01_rb,0.33337e+01_rb,0.35269e+01_rb,0.21600e+01_rb /)\n      kbo(:, 4,33,10) = (/ &\n        & 0.10674e+01_rb,0.29280e+01_rb,0.37566e+01_rb,0.39787e+01_rb,0.24291e+01_rb /)\n      kbo(:, 5,33,10) = (/ &\n        & 0.12452e+01_rb,0.32737e+01_rb,0.42022e+01_rb,0.44428e+01_rb,0.27130e+01_rb /)\n      kbo(:, 1,34,10) = (/ &\n        & 0.64347e+00_rb,0.21163e+01_rb,0.25854e+01_rb,0.27260e+01_rb,0.16632e+01_rb /)\n      kbo(:, 2,34,10) = (/ &\n        & 0.75313e+00_rb,0.23563e+01_rb,0.29579e+01_rb,0.31342e+01_rb,0.18999e+01_rb /)\n      kbo(:, 3,34,10) = (/ &\n        & 0.88833e+00_rb,0.26269e+01_rb,0.33662e+01_rb,0.35749e+01_rb,0.21605e+01_rb /)\n      kbo(:, 4,34,10) = (/ &\n        & 0.10487e+01_rb,0.29401e+01_rb,0.38003e+01_rb,0.40358e+01_rb,0.24405e+01_rb /)\n      kbo(:, 5,34,10) = (/ &\n        & 0.12301e+01_rb,0.33056e+01_rb,0.42553e+01_rb,0.45073e+01_rb,0.27333e+01_rb /)\n      kbo(:, 1,35,10) = (/ &\n        & 0.61333e+00_rb,0.20804e+01_rb,0.25725e+01_rb,0.27255e+01_rb,0.16337e+01_rb /)\n      kbo(:, 2,35,10) = (/ &\n        & 0.72416e+00_rb,0.23301e+01_rb,0.29566e+01_rb,0.31440e+01_rb,0.18805e+01_rb /)\n      kbo(:, 3,35,10) = (/ &\n        & 0.85987e+00_rb,0.26111e+01_rb,0.33740e+01_rb,0.35934e+01_rb,0.21502e+01_rb /)\n      kbo(:, 4,35,10) = (/ &\n        & 0.10212e+01_rb,0.29378e+01_rb,0.38159e+01_rb,0.40603e+01_rb,0.24378e+01_rb /)\n      kbo(:, 5,35,10) = (/ &\n        & 0.12063e+01_rb,0.33167e+01_rb,0.42768e+01_rb,0.45362e+01_rb,0.27369e+01_rb /)\n      kbo(:, 1,36,10) = (/ &\n        & 0.57858e+00_rb,0.20318e+01_rb,0.25343e+01_rb,0.26932e+01_rb,0.15911e+01_rb /)\n      kbo(:, 2,36,10) = (/ &\n        & 0.68823e+00_rb,0.22888e+01_rb,0.29242e+01_rb,0.31171e+01_rb,0.18445e+01_rb /)\n      kbo(:, 3,36,10) = (/ &\n        & 0.82172e+00_rb,0.25765e+01_rb,0.33460e+01_rb,0.35706e+01_rb,0.21205e+01_rb /)\n      kbo(:, 4,36,10) = (/ &\n        & 0.98227e+00_rb,0.29099e+01_rb,0.37920e+01_rb,0.40410e+01_rb,0.24128e+01_rb /)\n      kbo(:, 5,36,10) = (/ &\n        & 0.11693e+01_rb,0.32947e+01_rb,0.42558e+01_rb,0.45198e+01_rb,0.27160e+01_rb /)\n      kbo(:, 1,37,10) = (/ &\n        & 0.53405e+00_rb,0.19558e+01_rb,0.24506e+01_rb,0.26071e+01_rb,0.15218e+01_rb /)\n      kbo(:, 2,37,10) = (/ &\n        & 0.63968e+00_rb,0.22170e+01_rb,0.28388e+01_rb,0.30310e+01_rb,0.17770e+01_rb /)\n      kbo(:, 3,37,10) = (/ &\n        & 0.76779e+00_rb,0.25049e+01_rb,0.32599e+01_rb,0.34842e+01_rb,0.20552e+01_rb /)\n      kbo(:, 4,37,10) = (/ &\n        & 0.92384e+00_rb,0.28358e+01_rb,0.37058e+01_rb,0.39557e+01_rb,0.23490e+01_rb /)\n      kbo(:, 5,37,10) = (/ &\n        & 0.11094e+01_rb,0.32175e+01_rb,0.41691e+01_rb,0.44348e+01_rb,0.26544e+01_rb /)\n      kbo(:, 1,38,10) = (/ &\n        & 0.49328e+00_rb,0.18861e+01_rb,0.23724e+01_rb,0.25236e+01_rb,0.14577e+01_rb /)\n      kbo(:, 2,38,10) = (/ &\n        & 0.59575e+00_rb,0.21506e+01_rb,0.27570e+01_rb,0.29471e+01_rb,0.17138e+01_rb /)\n      kbo(:, 3,38,10) = (/ &\n        & 0.71877e+00_rb,0.24381e+01_rb,0.31760e+01_rb,0.33985e+01_rb,0.19934e+01_rb /)\n      kbo(:, 4,38,10) = (/ &\n        & 0.87044e+00_rb,0.27651e+01_rb,0.36203e+01_rb,0.38701e+01_rb,0.22879e+01_rb /)\n      kbo(:, 5,38,10) = (/ &\n        & 0.10541e+01_rb,0.31424e+01_rb,0.40835e+01_rb,0.43497e+01_rb,0.25942e+01_rb /)\n      kbo(:, 1,39,10) = (/ &\n        & 0.45633e+00_rb,0.18232e+01_rb,0.23004e+01_rb,0.24453e+01_rb,0.13998e+01_rb /)\n      kbo(:, 2,39,10) = (/ &\n        & 0.55664e+00_rb,0.20902e+01_rb,0.26810e+01_rb,0.28682e+01_rb,0.16563e+01_rb /)\n      kbo(:, 3,39,10) = (/ &\n        & 0.67511e+00_rb,0.23775e+01_rb,0.30973e+01_rb,0.33174e+01_rb,0.19363e+01_rb /)\n      kbo(:, 4,39,10) = (/ &\n        & 0.82312e+00_rb,0.27002e+01_rb,0.35399e+01_rb,0.37881e+01_rb,0.22310e+01_rb /)\n      kbo(:, 5,39,10) = (/ &\n        & 0.10047e+01_rb,0.30719e+01_rb,0.40016e+01_rb,0.42681e+01_rb,0.25376e+01_rb /)\n      kbo(:, 1,40,10) = (/ &\n        & 0.41369e+00_rb,0.17392e+01_rb,0.21979e+01_rb,0.23287e+01_rb,0.13226e+01_rb /)\n      kbo(:, 2,40,10) = (/ &\n        & 0.51051e+00_rb,0.20064e+01_rb,0.25693e+01_rb,0.27492e+01_rb,0.15756e+01_rb /)\n      kbo(:, 3,40,10) = (/ &\n        & 0.62337e+00_rb,0.22909e+01_rb,0.29791e+01_rb,0.31928e+01_rb,0.18532e+01_rb /)\n      kbo(:, 4,40,10) = (/ &\n        & 0.76463e+00_rb,0.26052e+01_rb,0.34168e+01_rb,0.36603e+01_rb,0.21464e+01_rb /)\n      kbo(:, 5,40,10) = (/ &\n        & 0.94032e+00_rb,0.29656e+01_rb,0.38751e+01_rb,0.41396e+01_rb,0.24517e+01_rb /)\n      kbo(:, 1,41,10) = (/ &\n        & 0.37354e+00_rb,0.16561e+01_rb,0.20963e+01_rb,0.22111e+01_rb,0.12469e+01_rb /)\n      kbo(:, 2,41,10) = (/ &\n        & 0.46665e+00_rb,0.19239e+01_rb,0.24587e+01_rb,0.26289e+01_rb,0.14959e+01_rb /)\n      kbo(:, 3,41,10) = (/ &\n        & 0.57545e+00_rb,0.22047e+01_rb,0.28597e+01_rb,0.30659e+01_rb,0.17694e+01_rb /)\n      kbo(:, 4,41,10) = (/ &\n        & 0.70985e+00_rb,0.25106e+01_rb,0.32912e+01_rb,0.35291e+01_rb,0.20606e+01_rb /)\n      kbo(:, 5,41,10) = (/ &\n        & 0.87840e+00_rb,0.28591e+01_rb,0.37457e+01_rb,0.40073e+01_rb,0.23640e+01_rb /)\n      kbo(:, 1,42,10) = (/ &\n        & 0.33676e+00_rb,0.15772e+01_rb,0.19999e+01_rb,0.20973e+01_rb,0.11755e+01_rb /)\n      kbo(:, 2,42,10) = (/ &\n        & 0.42603e+00_rb,0.18429e+01_rb,0.23518e+01_rb,0.25105e+01_rb,0.14196e+01_rb /)\n      kbo(:, 3,42,10) = (/ &\n        & 0.53169e+00_rb,0.21211e+01_rb,0.27440e+01_rb,0.29424e+01_rb,0.16886e+01_rb /)\n      kbo(:, 4,42,10) = (/ &\n        & 0.65992e+00_rb,0.24200e+01_rb,0.31691e+01_rb,0.34004e+01_rb,0.19770e+01_rb /)\n      kbo(:, 5,42,10) = (/ &\n        & 0.82123e+00_rb,0.27572e+01_rb,0.36189e+01_rb,0.38764e+01_rb,0.22780e+01_rb /)\n      kbo(:, 1,43,10) = (/ &\n        & 0.29880e+00_rb,0.14855e+01_rb,0.18883e+01_rb,0.19649e+01_rb,0.10947e+01_rb /)\n      kbo(:, 2,43,10) = (/ &\n        & 0.38323e+00_rb,0.17495e+01_rb,0.22289e+01_rb,0.23704e+01_rb,0.13324e+01_rb /)\n      kbo(:, 3,43,10) = (/ &\n        & 0.48519e+00_rb,0.20243e+01_rb,0.26093e+01_rb,0.27970e+01_rb,0.15948e+01_rb /)\n      kbo(:, 4,43,10) = (/ &\n        & 0.60690e+00_rb,0.23164e+01_rb,0.30260e+01_rb,0.32477e+01_rb,0.18788e+01_rb /)\n      kbo(:, 5,43,10) = (/ &\n        & 0.75876e+00_rb,0.26404e+01_rb,0.34692e+01_rb,0.37199e+01_rb,0.21767e+01_rb /)\n      kbo(:, 1,44,10) = (/ &\n        & 0.26234e+00_rb,0.13896e+01_rb,0.17735e+01_rb,0.18283e+01_rb,0.10125e+01_rb /)\n      kbo(:, 2,44,10) = (/ &\n        & 0.34133e+00_rb,0.16516e+01_rb,0.21029e+01_rb,0.22231e+01_rb,0.12426e+01_rb /)\n      kbo(:, 3,44,10) = (/ &\n        & 0.43896e+00_rb,0.19234e+01_rb,0.24698e+01_rb,0.26446e+01_rb,0.14975e+01_rb /)\n      kbo(:, 4,44,10) = (/ &\n        & 0.55556e+00_rb,0.22104e+01_rb,0.28764e+01_rb,0.30872e+01_rb,0.17758e+01_rb /)\n      kbo(:, 5,44,10) = (/ &\n        & 0.69720e+00_rb,0.25211e+01_rb,0.33108e+01_rb,0.35530e+01_rb,0.20699e+01_rb /)\n      kbo(:, 1,45,10) = (/ &\n        & 0.22932e+00_rb,0.12967e+01_rb,0.16617e+01_rb,0.16976e+01_rb,0.93402e+00_rb /)\n      kbo(:, 2,45,10) = (/ &\n        & 0.30290e+00_rb,0.15560e+01_rb,0.19824e+01_rb,0.20804e+01_rb,0.11566e+01_rb /)\n      kbo(:, 3,45,10) = (/ &\n        & 0.39581e+00_rb,0.18251e+01_rb,0.23356e+01_rb,0.24949e+01_rb,0.14039e+01_rb /)\n      kbo(:, 4,45,10) = (/ &\n        & 0.50777e+00_rb,0.21068e+01_rb,0.27305e+01_rb,0.29300e+01_rb,0.16755e+01_rb /)\n      kbo(:, 5,45,10) = (/ &\n        & 0.64060e+00_rb,0.24073e+01_rb,0.31565e+01_rb,0.33892e+01_rb,0.19653e+01_rb /)\n      kbo(:, 1,46,10) = (/ &\n        & 0.19825e+00_rb,0.12020e+01_rb,0.15457e+01_rb,0.15662e+01_rb,0.85464e+00_rb /)\n      kbo(:, 2,46,10) = (/ &\n        & 0.26591e+00_rb,0.14563e+01_rb,0.18595e+01_rb,0.19337e+01_rb,0.10694e+01_rb /)\n      kbo(:, 3,46,10) = (/ &\n        & 0.35343e+00_rb,0.17232e+01_rb,0.22000e+01_rb,0.23390e+01_rb,0.13083e+01_rb /)\n      kbo(:, 4,46,10) = (/ &\n        & 0.46053e+00_rb,0.19999e+01_rb,0.25801e+01_rb,0.27669e+01_rb,0.15716e+01_rb /)\n      kbo(:, 5,46,10) = (/ &\n        & 0.58556e+00_rb,0.22922e+01_rb,0.29962e+01_rb,0.32174e+01_rb,0.18560e+01_rb /)\n      kbo(:, 1,47,10) = (/ &\n        & 0.16836e+00_rb,0.11008e+01_rb,0.14194e+01_rb,0.14270e+01_rb,0.77061e+00_rb /)\n      kbo(:, 2,47,10) = (/ &\n        & 0.22922e+00_rb,0.13473e+01_rb,0.17277e+01_rb,0.17767e+01_rb,0.97668e+00_rb /)\n      kbo(:, 3,47,10) = (/ &\n        & 0.31004e+00_rb,0.16106e+01_rb,0.20551e+01_rb,0.21688e+01_rb,0.12060e+01_rb /)\n      kbo(:, 4,47,10) = (/ &\n        & 0.41110e+00_rb,0.18840e+01_rb,0.24189e+01_rb,0.25893e+01_rb,0.14598e+01_rb /)\n      kbo(:, 5,47,10) = (/ &\n        & 0.52932e+00_rb,0.21690e+01_rb,0.28216e+01_rb,0.30298e+01_rb,0.17368e+01_rb /)\n      kbo(:, 1,48,10) = (/ &\n        & 0.14220e+00_rb,0.10041e+01_rb,0.12957e+01_rb,0.12963e+01_rb,0.69114e+00_rb /)\n      kbo(:, 2,48,10) = (/ &\n        & 0.19626e+00_rb,0.12419e+01_rb,0.15985e+01_rb,0.16273e+01_rb,0.88794e+00_rb /)\n      kbo(:, 3,48,10) = (/ &\n        & 0.27002e+00_rb,0.15006e+01_rb,0.19169e+01_rb,0.20039e+01_rb,0.11083e+01_rb /)\n      kbo(:, 4,48,10) = (/ &\n        & 0.36488e+00_rb,0.17700e+01_rb,0.22644e+01_rb,0.24151e+01_rb,0.13523e+01_rb /)\n      kbo(:, 5,48,10) = (/ &\n        & 0.47701e+00_rb,0.20494e+01_rb,0.26525e+01_rb,0.28466e+01_rb,0.16205e+01_rb /)\n      kbo(:, 1,49,10) = (/ &\n        & 0.11950e+00_rb,0.91234e+00_rb,0.11755e+01_rb,0.11741e+01_rb,0.61611e+00_rb /)\n      kbo(:, 2,49,10) = (/ &\n        & 0.16698e+00_rb,0.11406e+01_rb,0.14723e+01_rb,0.14860e+01_rb,0.80337e+00_rb /)\n      kbo(:, 3,49,10) = (/ &\n        & 0.23352e+00_rb,0.13921e+01_rb,0.17842e+01_rb,0.18450e+01_rb,0.10147e+01_rb /)\n      kbo(:, 4,49,10) = (/ &\n        & 0.32154e+00_rb,0.16580e+01_rb,0.21177e+01_rb,0.22439e+01_rb,0.12490e+01_rb /)\n      kbo(:, 5,49,10) = (/ &\n        & 0.42774e+00_rb,0.19330e+01_rb,0.24891e+01_rb,0.26683e+01_rb,0.15078e+01_rb /)\n      kbo(:, 1,50,10) = (/ &\n        & 0.10087e+00_rb,0.83065e+00_rb,0.10669e+01_rb,0.10674e+01_rb,0.54936e+00_rb /)\n      kbo(:, 2,50,10) = (/ &\n        & 0.14237e+00_rb,0.10490e+01_rb,0.13561e+01_rb,0.13605e+01_rb,0.72778e+00_rb /)\n      kbo(:, 3,50,10) = (/ &\n        & 0.20234e+00_rb,0.12926e+01_rb,0.16630e+01_rb,0.17021e+01_rb,0.93055e+00_rb /)\n      kbo(:, 4,50,10) = (/ &\n        & 0.28362e+00_rb,0.15546e+01_rb,0.19861e+01_rb,0.20879e+01_rb,0.11563e+01_rb /)\n      kbo(:, 5,50,10) = (/ &\n        & 0.38392e+00_rb,0.18265e+01_rb,0.23423e+01_rb,0.25044e+01_rb,0.14058e+01_rb /)\n      kbo(:, 1,51,10) = (/ &\n        & 0.85305e-01_rb,0.75516e+00_rb,0.96600e+00_rb,0.96989e+00_rb,0.48900e+00_rb /)\n      kbo(:, 2,51,10) = (/ &\n        & 0.12119e+00_rb,0.96396e+00_rb,0.12458e+01_rb,0.12458e+01_rb,0.65803e+00_rb /)\n      kbo(:, 3,51,10) = (/ &\n        & 0.17492e+00_rb,0.11993e+01_rb,0.15474e+01_rb,0.15706e+01_rb,0.85222e+00_rb /)\n      kbo(:, 4,51,10) = (/ &\n        & 0.24953e+00_rb,0.14559e+01_rb,0.18635e+01_rb,0.19410e+01_rb,0.10697e+01_rb /)\n      kbo(:, 5,51,10) = (/ &\n        & 0.34420e+00_rb,0.17250e+01_rb,0.22062e+01_rb,0.23483e+01_rb,0.13105e+01_rb /)\n      kbo(:, 1,52,10) = (/ &\n        & 0.72122e-01_rb,0.68398e+00_rb,0.87088e+00_rb,0.87737e+00_rb,0.43154e+00_rb /)\n      kbo(:, 2,52,10) = (/ &\n        & 0.10277e+00_rb,0.88315e+00_rb,0.11388e+01_rb,0.11383e+01_rb,0.59136e+00_rb /)\n      kbo(:, 3,52,10) = (/ &\n        & 0.15043e+00_rb,0.11094e+01_rb,0.14345e+01_rb,0.14453e+01_rb,0.77736e+00_rb /)\n      kbo(:, 4,52,10) = (/ &\n        & 0.21816e+00_rb,0.13587e+01_rb,0.17451e+01_rb,0.17993e+01_rb,0.98663e+00_rb /)\n      kbo(:, 5,52,10) = (/ &\n        & 0.30639e+00_rb,0.16242e+01_rb,0.20759e+01_rb,0.21951e+01_rb,0.12188e+01_rb /)\n      kbo(:, 1,53,10) = (/ &\n        & 0.60992e-01_rb,0.61681e+00_rb,0.78096e+00_rb,0.78801e+00_rb,0.37771e+00_rb /)\n      kbo(:, 2,53,10) = (/ &\n        & 0.86893e-01_rb,0.80591e+00_rb,0.10354e+01_rb,0.10374e+01_rb,0.52892e+00_rb /)\n      kbo(:, 3,53,10) = (/ &\n        & 0.12844e+00_rb,0.10223e+01_rb,0.13228e+01_rb,0.13263e+01_rb,0.70557e+00_rb /)\n      kbo(:, 4,53,10) = (/ &\n        & 0.18962e+00_rb,0.12639e+01_rb,0.16288e+01_rb,0.16633e+01_rb,0.90648e+00_rb /)\n      kbo(:, 5,53,10) = (/ &\n        & 0.27104e+00_rb,0.15253e+01_rb,0.19505e+01_rb,0.20457e+01_rb,0.11304e+01_rb /)\n      kbo(:, 1,54,10) = (/ &\n        & 0.52146e-01_rb,0.55862e+00_rb,0.70341e+00_rb,0.70953e+00_rb,0.33141e+00_rb /)\n      kbo(:, 2,54,10) = (/ &\n        & 0.74252e-01_rb,0.73817e+00_rb,0.94468e+00_rb,0.94968e+00_rb,0.47420e+00_rb /)\n      kbo(:, 3,54,10) = (/ &\n        & 0.11046e+00_rb,0.94583e+00_rb,0.12229e+01_rb,0.12232e+01_rb,0.64224e+00_rb /)\n      kbo(:, 4,54,10) = (/ &\n        & 0.16584e+00_rb,0.11796e+01_rb,0.15239e+01_rb,0.15447e+01_rb,0.83594e+00_rb /)\n      kbo(:, 5,54,10) = (/ &\n        & 0.24084e+00_rb,0.14356e+01_rb,0.18395e+01_rb,0.19125e+01_rb,0.10521e+01_rb /)\n      kbo(:, 1,55,10) = (/ &\n        & 0.44769e-01_rb,0.50580e+00_rb,0.63367e+00_rb,0.63830e+00_rb,0.29171e+00_rb /)\n      kbo(:, 2,55,10) = (/ &\n        & 0.63801e-01_rb,0.67695e+00_rb,0.86251e+00_rb,0.86950e+00_rb,0.42385e+00_rb /)\n      kbo(:, 3,55,10) = (/ &\n        & 0.95281e-01_rb,0.87561e+00_rb,0.11296e+01_rb,0.11298e+01_rb,0.58465e+00_rb /)\n      kbo(:, 4,55,10) = (/ &\n        & 0.14509e+00_rb,0.11012e+01_rb,0.14250e+01_rb,0.14355e+01_rb,0.77056e+00_rb /)\n      kbo(:, 5,55,10) = (/ &\n        & 0.21402e+00_rb,0.13506e+01_rb,0.17360e+01_rb,0.17888e+01_rb,0.97966e+00_rb /)\n      kbo(:, 1,56,10) = (/ &\n        & 0.38303e-01_rb,0.45495e+00_rb,0.56826e+00_rb,0.57046e+00_rb,0.25591e+00_rb /)\n      kbo(:, 2,56,10) = (/ &\n        & 0.54762e-01_rb,0.61846e+00_rb,0.78411e+00_rb,0.79150e+00_rb,0.37700e+00_rb /)\n      kbo(:, 3,56,10) = (/ &\n        & 0.82009e-01_rb,0.80830e+00_rb,0.10394e+01_rb,0.10417e+01_rb,0.52950e+00_rb /)\n      kbo(:, 4,56,10) = (/ &\n        & 0.12621e+00_rb,0.10253e+01_rb,0.13275e+01_rb,0.13316e+01_rb,0.70721e+00_rb /)\n      kbo(:, 5,56,10) = (/ &\n        & 0.18937e+00_rb,0.12680e+01_rb,0.16344e+01_rb,0.16700e+01_rb,0.90979e+00_rb /)\n      kbo(:, 1,57,10) = (/ &\n        & 0.32632e-01_rb,0.40611e+00_rb,0.50731e+00_rb,0.50659e+00_rb,0.22496e+00_rb /)\n      kbo(:, 2,57,10) = (/ &\n        & 0.47019e-01_rb,0.56304e+00_rb,0.71002e+00_rb,0.71651e+00_rb,0.33305e+00_rb /)\n      kbo(:, 3,57,10) = (/ &\n        & 0.70456e-01_rb,0.74361e+00_rb,0.95266e+00_rb,0.95775e+00_rb,0.47635e+00_rb /)\n      kbo(:, 4,57,10) = (/ &\n        & 0.10937e+00_rb,0.95229e+00_rb,0.12322e+01_rb,0.12329e+01_rb,0.64711e+00_rb /)\n      kbo(:, 5,57,10) = (/ &\n        & 0.16675e+00_rb,0.11875e+01_rb,0.15342e+01_rb,0.15565e+01_rb,0.84216e+00_rb /)\n      kbo(:, 1,58,10) = (/ &\n        & 0.27856e-01_rb,0.36188e+00_rb,0.45369e+00_rb,0.45016e+00_rb,0.19835e+00_rb /)\n      kbo(:, 2,58,10) = (/ &\n        & 0.40581e-01_rb,0.51273e+00_rb,0.64353e+00_rb,0.64865e+00_rb,0.29546e+00_rb /)\n      kbo(:, 3,58,10) = (/ &\n        & 0.60914e-01_rb,0.68524e+00_rb,0.87436e+00_rb,0.88146e+00_rb,0.42903e+00_rb /)\n      kbo(:, 4,58,10) = (/ &\n        & 0.95154e-01_rb,0.88582e+00_rb,0.11439e+01_rb,0.11441e+01_rb,0.59161e+00_rb /)\n      kbo(:, 5,58,10) = (/ &\n        & 0.14715e+00_rb,0.11133e+01_rb,0.14407e+01_rb,0.14528e+01_rb,0.77938e+00_rb /)\n      kbo(:, 1,59,10) = (/ &\n        & 0.25371e-01_rb,0.34461e+00_rb,0.43295e+00_rb,0.42860e+00_rb,0.18805e+00_rb /)\n      kbo(:, 2,59,10) = (/ &\n        & 0.37551e-01_rb,0.49296e+00_rb,0.61778e+00_rb,0.62208e+00_rb,0.28092e+00_rb /)\n      kbo(:, 3,59,10) = (/ &\n        & 0.57031e-01_rb,0.66239e+00_rb,0.84380e+00_rb,0.85137e+00_rb,0.40984e+00_rb /)\n      kbo(:, 4,59,10) = (/ &\n        & 0.89730e-01_rb,0.85967e+00_rb,0.11090e+01_rb,0.11096e+01_rb,0.56882e+00_rb /)\n      kbo(:, 5,59,10) = (/ &\n        & 0.13959e+00_rb,0.10839e+01_rb,0.14035e+01_rb,0.14125e+01_rb,0.75487e+00_rb /)\n      kbo(:, 1,13,11) = (/ &\n        & 0.13518e+02_rb,0.19426e+02_rb,0.21368e+02_rb,0.20607e+02_rb,0.15967e+02_rb /)\n      kbo(:, 2,13,11) = (/ &\n        & 0.13249e+02_rb,0.19278e+02_rb,0.21345e+02_rb,0.20725e+02_rb,0.16218e+02_rb /)\n      kbo(:, 3,13,11) = (/ &\n        & 0.12991e+02_rb,0.19106e+02_rb,0.21344e+02_rb,0.20838e+02_rb,0.16493e+02_rb /)\n      kbo(:, 4,13,11) = (/ &\n        & 0.12783e+02_rb,0.18953e+02_rb,0.21337e+02_rb,0.20959e+02_rb,0.16769e+02_rb /)\n      kbo(:, 5,13,11) = (/ &\n        & 0.12735e+02_rb,0.18820e+02_rb,0.21328e+02_rb,0.21104e+02_rb,0.16982e+02_rb /)\n      kbo(:, 1,14,11) = (/ &\n        & 0.11504e+02_rb,0.17534e+02_rb,0.19457e+02_rb,0.19131e+02_rb,0.14625e+02_rb /)\n      kbo(:, 2,14,11) = (/ &\n        & 0.11281e+02_rb,0.17396e+02_rb,0.19491e+02_rb,0.19271e+02_rb,0.14939e+02_rb /)\n      kbo(:, 3,14,11) = (/ &\n        & 0.11112e+02_rb,0.17290e+02_rb,0.19527e+02_rb,0.19415e+02_rb,0.15255e+02_rb /)\n      kbo(:, 4,14,11) = (/ &\n        & 0.11115e+02_rb,0.17213e+02_rb,0.19560e+02_rb,0.19580e+02_rb,0.15504e+02_rb /)\n      kbo(:, 5,14,11) = (/ &\n        & 0.11342e+02_rb,0.17139e+02_rb,0.19615e+02_rb,0.19759e+02_rb,0.15706e+02_rb /)\n      kbo(:, 1,15,11) = (/ &\n        & 0.98170e+01_rb,0.15599e+02_rb,0.17627e+02_rb,0.17666e+02_rb,0.13354e+02_rb /)\n      kbo(:, 2,15,11) = (/ &\n        & 0.96747e+01_rb,0.15533e+02_rb,0.17695e+02_rb,0.17842e+02_rb,0.13687e+02_rb /)\n      kbo(:, 3,15,11) = (/ &\n        & 0.96984e+01_rb,0.15502e+02_rb,0.17755e+02_rb,0.18036e+02_rb,0.14004e+02_rb /)\n      kbo(:, 4,15,11) = (/ &\n        & 0.99522e+01_rb,0.15480e+02_rb,0.17829e+02_rb,0.18235e+02_rb,0.14263e+02_rb /)\n      kbo(:, 5,15,11) = (/ &\n        & 0.10344e+02_rb,0.15525e+02_rb,0.17929e+02_rb,0.18418e+02_rb,0.14475e+02_rb /)\n      kbo(:, 1,16,11) = (/ &\n        & 0.84332e+01_rb,0.13806e+02_rb,0.15926e+02_rb,0.16215e+02_rb,0.12224e+02_rb /)\n      kbo(:, 2,16,11) = (/ &\n        & 0.84583e+01_rb,0.13805e+02_rb,0.16021e+02_rb,0.16437e+02_rb,0.12556e+02_rb /)\n      kbo(:, 3,16,11) = (/ &\n        & 0.87066e+01_rb,0.13823e+02_rb,0.16108e+02_rb,0.16660e+02_rb,0.12834e+02_rb /)\n      kbo(:, 4,16,11) = (/ &\n        & 0.90827e+01_rb,0.13924e+02_rb,0.16226e+02_rb,0.16883e+02_rb,0.13078e+02_rb /)\n      kbo(:, 5,16,11) = (/ &\n        & 0.95263e+01_rb,0.14156e+02_rb,0.16382e+02_rb,0.17079e+02_rb,0.13334e+02_rb /)\n      kbo(:, 1,17,11) = (/ &\n        & 0.73068e+01_rb,0.12252e+02_rb,0.14341e+02_rb,0.14810e+02_rb,0.11129e+02_rb /)\n      kbo(:, 2,17,11) = (/ &\n        & 0.75295e+01_rb,0.12291e+02_rb,0.14463e+02_rb,0.15052e+02_rb,0.11439e+02_rb /)\n      kbo(:, 3,17,11) = (/ &\n        & 0.78853e+01_rb,0.12405e+02_rb,0.14606e+02_rb,0.15309e+02_rb,0.11729e+02_rb /)\n      kbo(:, 4,17,11) = (/ &\n        & 0.83040e+01_rb,0.12643e+02_rb,0.14776e+02_rb,0.15548e+02_rb,0.12006e+02_rb /)\n      kbo(:, 5,17,11) = (/ &\n        & 0.87123e+01_rb,0.13039e+02_rb,0.14982e+02_rb,0.15762e+02_rb,0.12286e+02_rb /)\n      kbo(:, 1,18,11) = (/ &\n        & 0.64287e+01_rb,0.10933e+02_rb,0.12879e+02_rb,0.13451e+02_rb,0.10053e+02_rb /)\n      kbo(:, 2,18,11) = (/ &\n        & 0.67446e+01_rb,0.11039e+02_rb,0.13041e+02_rb,0.13740e+02_rb,0.10377e+02_rb /)\n      kbo(:, 3,18,11) = (/ &\n        & 0.71271e+01_rb,0.11266e+02_rb,0.13222e+02_rb,0.14018e+02_rb,0.10699e+02_rb /)\n      kbo(:, 4,18,11) = (/ &\n        & 0.75067e+01_rb,0.11650e+02_rb,0.13455e+02_rb,0.14263e+02_rb,0.11011e+02_rb /)\n      kbo(:, 5,18,11) = (/ &\n        & 0.78797e+01_rb,0.12144e+02_rb,0.13766e+02_rb,0.14517e+02_rb,0.11323e+02_rb /)\n      kbo(:, 1,19,11) = (/ &\n        & 0.57165e+01_rb,0.98198e+01_rb,0.11563e+02_rb,0.12210e+02_rb,0.90287e+01_rb /)\n      kbo(:, 2,19,11) = (/ &\n        & 0.60504e+01_rb,0.10030e+02_rb,0.11759e+02_rb,0.12511e+02_rb,0.93771e+01_rb /)\n      kbo(:, 3,19,11) = (/ &\n        & 0.63872e+01_rb,0.10390e+02_rb,0.12004e+02_rb,0.12787e+02_rb,0.97382e+01_rb /)\n      kbo(:, 4,19,11) = (/ &\n        & 0.67262e+01_rb,0.10858e+02_rb,0.12325e+02_rb,0.13071e+02_rb,0.10100e+02_rb /)\n      kbo(:, 5,19,11) = (/ &\n        & 0.70630e+01_rb,0.11396e+02_rb,0.12720e+02_rb,0.13371e+02_rb,0.10433e+02_rb /)\n      kbo(:, 1,20,11) = (/ &\n        & 0.51077e+01_rb,0.88680e+01_rb,0.10415e+02_rb,0.11053e+02_rb,0.80963e+01_rb /)\n      kbo(:, 2,20,11) = (/ &\n        & 0.54017e+01_rb,0.92107e+01_rb,0.10662e+02_rb,0.11361e+02_rb,0.84758e+01_rb /)\n      kbo(:, 3,20,11) = (/ &\n        & 0.57015e+01_rb,0.96698e+01_rb,0.10982e+02_rb,0.11668e+02_rb,0.88481e+01_rb /)\n      kbo(:, 4,20,11) = (/ &\n        & 0.60041e+01_rb,0.10196e+02_rb,0.11384e+02_rb,0.12000e+02_rb,0.92376e+01_rb /)\n      kbo(:, 5,20,11) = (/ &\n        & 0.63106e+01_rb,0.10732e+02_rb,0.11884e+02_rb,0.12349e+02_rb,0.96255e+01_rb /)\n      kbo(:, 1,21,11) = (/ &\n        & 0.45414e+01_rb,0.80841e+01_rb,0.94333e+01_rb,0.10001e+02_rb,0.72987e+01_rb /)\n      kbo(:, 2,21,11) = (/ &\n        & 0.48060e+01_rb,0.85169e+01_rb,0.97399e+01_rb,0.10324e+02_rb,0.76799e+01_rb /)\n      kbo(:, 3,21,11) = (/ &\n        & 0.50754e+01_rb,0.90311e+01_rb,0.10134e+02_rb,0.10673e+02_rb,0.80692e+01_rb /)\n      kbo(:, 4,21,11) = (/ &\n        & 0.53489e+01_rb,0.95660e+01_rb,0.10626e+02_rb,0.11046e+02_rb,0.84671e+01_rb /)\n      kbo(:, 5,21,11) = (/ &\n        & 0.56226e+01_rb,0.10100e+02_rb,0.11188e+02_rb,0.11467e+02_rb,0.88878e+01_rb /)\n      kbo(:, 1,22,11) = (/ &\n        & 0.40512e+01_rb,0.74537e+01_rb,0.86113e+01_rb,0.90760e+01_rb,0.66406e+01_rb /)\n      kbo(:, 2,22,11) = (/ &\n        & 0.42861e+01_rb,0.79455e+01_rb,0.89988e+01_rb,0.94326e+01_rb,0.70298e+01_rb /)\n      kbo(:, 3,22,11) = (/ &\n        & 0.45284e+01_rb,0.84723e+01_rb,0.94806e+01_rb,0.98282e+01_rb,0.74365e+01_rb /)\n      kbo(:, 4,22,11) = (/ &\n        & 0.47765e+01_rb,0.90022e+01_rb,0.10036e+02_rb,0.10267e+02_rb,0.78530e+01_rb /)\n      kbo(:, 5,22,11) = (/ &\n        & 0.50273e+01_rb,0.95375e+01_rb,0.10644e+02_rb,0.10762e+02_rb,0.82925e+01_rb /)\n      kbo(:, 1,23,11) = (/ &\n        & 0.36272e+01_rb,0.69345e+01_rb,0.79292e+01_rb,0.82821e+01_rb,0.60862e+01_rb /)\n      kbo(:, 2,23,11) = (/ &\n        & 0.38324e+01_rb,0.74412e+01_rb,0.84058e+01_rb,0.86779e+01_rb,0.64814e+01_rb /)\n      kbo(:, 3,23,11) = (/ &\n        & 0.40496e+01_rb,0.79556e+01_rb,0.89497e+01_rb,0.91277e+01_rb,0.69031e+01_rb /)\n      kbo(:, 4,23,11) = (/ &\n        & 0.42736e+01_rb,0.84881e+01_rb,0.95512e+01_rb,0.96353e+01_rb,0.73423e+01_rb /)\n      kbo(:, 5,23,11) = (/ &\n        & 0.45008e+01_rb,0.90231e+01_rb,0.10199e+02_rb,0.10196e+02_rb,0.78107e+01_rb /)\n      kbo(:, 1,24,11) = (/ &\n        & 0.32617e+01_rb,0.64927e+01_rb,0.73814e+01_rb,0.76204e+01_rb,0.56351e+01_rb /)\n      kbo(:, 2,24,11) = (/ &\n        & 0.34455e+01_rb,0.69864e+01_rb,0.79146e+01_rb,0.80668e+01_rb,0.60482e+01_rb /)\n      kbo(:, 3,24,11) = (/ &\n        & 0.36375e+01_rb,0.74982e+01_rb,0.85124e+01_rb,0.85688e+01_rb,0.64793e+01_rb /)\n      kbo(:, 4,24,11) = (/ &\n        & 0.38361e+01_rb,0.80253e+01_rb,0.91530e+01_rb,0.91384e+01_rb,0.69488e+01_rb /)\n      kbo(:, 5,24,11) = (/ &\n        & 0.40434e+01_rb,0.85770e+01_rb,0.98249e+01_rb,0.97701e+01_rb,0.74392e+01_rb /)\n      kbo(:, 1,25,11) = (/ &\n        & 0.29504e+01_rb,0.60996e+01_rb,0.69378e+01_rb,0.70933e+01_rb,0.52696e+01_rb /)\n      kbo(:, 2,25,11) = (/ &\n        & 0.31134e+01_rb,0.65859e+01_rb,0.75193e+01_rb,0.75874e+01_rb,0.56908e+01_rb /)\n      kbo(:, 3,25,11) = (/ &\n        & 0.32850e+01_rb,0.70991e+01_rb,0.81583e+01_rb,0.81455e+01_rb,0.61504e+01_rb /)\n      kbo(:, 4,25,11) = (/ &\n        & 0.34639e+01_rb,0.76357e+01_rb,0.88289e+01_rb,0.87766e+01_rb,0.66391e+01_rb /)\n      kbo(:, 5,25,11) = (/ &\n        & 0.36575e+01_rb,0.82031e+01_rb,0.95335e+01_rb,0.94728e+01_rb,0.71181e+01_rb /)\n      kbo(:, 1,26,11) = (/ &\n        & 0.26785e+01_rb,0.57592e+01_rb,0.65944e+01_rb,0.66793e+01_rb,0.49659e+01_rb /)\n      kbo(:, 2,26,11) = (/ &\n        & 0.28303e+01_rb,0.62512e+01_rb,0.72180e+01_rb,0.72292e+01_rb,0.54158e+01_rb /)\n      kbo(:, 3,26,11) = (/ &\n        & 0.29845e+01_rb,0.67700e+01_rb,0.78853e+01_rb,0.78517e+01_rb,0.58929e+01_rb /)\n      kbo(:, 4,26,11) = (/ &\n        & 0.31498e+01_rb,0.73218e+01_rb,0.85892e+01_rb,0.85405e+01_rb,0.63779e+01_rb /)\n      kbo(:, 5,26,11) = (/ &\n        & 0.33365e+01_rb,0.79095e+01_rb,0.93260e+01_rb,0.92876e+01_rb,0.68593e+01_rb /)\n      kbo(:, 1,27,11) = (/ &\n        & 0.24381e+01_rb,0.54719e+01_rb,0.63296e+01_rb,0.63699e+01_rb,0.47378e+01_rb /)\n      kbo(:, 2,27,11) = (/ &\n        & 0.25833e+01_rb,0.59706e+01_rb,0.69839e+01_rb,0.69809e+01_rb,0.52024e+01_rb /)\n      kbo(:, 3,27,11) = (/ &\n        & 0.27276e+01_rb,0.65032e+01_rb,0.76823e+01_rb,0.76623e+01_rb,0.56849e+01_rb /)\n      kbo(:, 4,27,11) = (/ &\n        & 0.28843e+01_rb,0.70768e+01_rb,0.84223e+01_rb,0.83973e+01_rb,0.61613e+01_rb /)\n      kbo(:, 5,27,11) = (/ &\n        & 0.30776e+01_rb,0.76837e+01_rb,0.91929e+01_rb,0.91871e+01_rb,0.66697e+01_rb /)\n      kbo(:, 1,28,11) = (/ &\n        & 0.22238e+01_rb,0.52366e+01_rb,0.61335e+01_rb,0.61574e+01_rb,0.45705e+01_rb /)\n      kbo(:, 2,28,11) = (/ &\n        & 0.23648e+01_rb,0.57451e+01_rb,0.68151e+01_rb,0.68266e+01_rb,0.50347e+01_rb /)\n      kbo(:, 3,28,11) = (/ &\n        & 0.25067e+01_rb,0.62980e+01_rb,0.75460e+01_rb,0.75548e+01_rb,0.55064e+01_rb /)\n      kbo(:, 4,28,11) = (/ &\n        & 0.26680e+01_rb,0.68930e+01_rb,0.83223e+01_rb,0.83308e+01_rb,0.60103e+01_rb /)\n      kbo(:, 5,28,11) = (/ &\n        & 0.28763e+01_rb,0.75234e+01_rb,0.91269e+01_rb,0.91547e+01_rb,0.65443e+01_rb /)\n      kbo(:, 1,29,11) = (/ &\n        & 0.20343e+01_rb,0.50540e+01_rb,0.60021e+01_rb,0.60360e+01_rb,0.44306e+01_rb /)\n      kbo(:, 2,29,11) = (/ &\n        & 0.21732e+01_rb,0.55785e+01_rb,0.67134e+01_rb,0.67544e+01_rb,0.48924e+01_rb /)\n      kbo(:, 3,29,11) = (/ &\n        & 0.23217e+01_rb,0.61554e+01_rb,0.74828e+01_rb,0.75217e+01_rb,0.53899e+01_rb /)\n      kbo(:, 4,29,11) = (/ &\n        & 0.24991e+01_rb,0.67727e+01_rb,0.82943e+01_rb,0.83341e+01_rb,0.59211e+01_rb /)\n      kbo(:, 5,29,11) = (/ &\n        & 0.27298e+01_rb,0.74309e+01_rb,0.91294e+01_rb,0.91877e+01_rb,0.64776e+01_rb /)\n      kbo(:, 1,30,11) = (/ &\n        & 0.18678e+01_rb,0.49203e+01_rb,0.59291e+01_rb,0.59875e+01_rb,0.43204e+01_rb /)\n      kbo(:, 2,30,11) = (/ &\n        & 0.20102e+01_rb,0.54667e+01_rb,0.66747e+01_rb,0.67430e+01_rb,0.48026e+01_rb /)\n      kbo(:, 3,30,11) = (/ &\n        & 0.21719e+01_rb,0.60682e+01_rb,0.74827e+01_rb,0.75477e+01_rb,0.53281e+01_rb /)\n      kbo(:, 4,30,11) = (/ &\n        & 0.23720e+01_rb,0.67126e+01_rb,0.83252e+01_rb,0.83910e+01_rb,0.58826e+01_rb /)\n      kbo(:, 5,30,11) = (/ &\n        & 0.26264e+01_rb,0.73977e+01_rb,0.91870e+01_rb,0.92723e+01_rb,0.64598e+01_rb /)\n      kbo(:, 1,31,11) = (/ &\n        & 0.17244e+01_rb,0.48370e+01_rb,0.59156e+01_rb,0.60001e+01_rb,0.42555e+01_rb /)\n      kbo(:, 2,31,11) = (/ &\n        & 0.18755e+01_rb,0.54107e+01_rb,0.66999e+01_rb,0.67904e+01_rb,0.47644e+01_rb /)\n      kbo(:, 3,31,11) = (/ &\n        & 0.20573e+01_rb,0.60363e+01_rb,0.75402e+01_rb,0.76274e+01_rb,0.53155e+01_rb /)\n      kbo(:, 4,31,11) = (/ &\n        & 0.22829e+01_rb,0.67094e+01_rb,0.84079e+01_rb,0.84962e+01_rb,0.58901e+01_rb /)\n      kbo(:, 5,31,11) = (/ &\n        & 0.25590e+01_rb,0.74195e+01_rb,0.92909e+01_rb,0.93994e+01_rb,0.64871e+01_rb /)\n      kbo(:, 1,32,11) = (/ &\n        & 0.16069e+01_rb,0.48030e+01_rb,0.59579e+01_rb,0.60639e+01_rb,0.42356e+01_rb /)\n      kbo(:, 2,32,11) = (/ &\n        & 0.17705e+01_rb,0.54037e+01_rb,0.67788e+01_rb,0.68874e+01_rb,0.47712e+01_rb /)\n      kbo(:, 3,32,11) = (/ &\n        & 0.19742e+01_rb,0.60574e+01_rb,0.76448e+01_rb,0.77491e+01_rb,0.53434e+01_rb /)\n      kbo(:, 4,32,11) = (/ &\n        & 0.22247e+01_rb,0.67560e+01_rb,0.85310e+01_rb,0.86385e+01_rb,0.59381e+01_rb /)\n      kbo(:, 5,32,11) = (/ &\n        & 0.25238e+01_rb,0.74880e+01_rb,0.94292e+01_rb,0.95570e+01_rb,0.65497e+01_rb /)\n      kbo(:, 1,33,11) = (/ &\n        & 0.15128e+01_rb,0.48140e+01_rb,0.60501e+01_rb,0.61714e+01_rb,0.42550e+01_rb /)\n      kbo(:, 2,33,11) = (/ &\n        & 0.16946e+01_rb,0.54417e+01_rb,0.69000e+01_rb,0.70212e+01_rb,0.48155e+01_rb /)\n      kbo(:, 3,33,11) = (/ &\n        & 0.19206e+01_rb,0.61213e+01_rb,0.77839e+01_rb,0.79020e+01_rb,0.54069e+01_rb /)\n      kbo(:, 4,33,11) = (/ &\n        & 0.21946e+01_rb,0.68422e+01_rb,0.86827e+01_rb,0.88075e+01_rb,0.60169e+01_rb /)\n      kbo(:, 5,33,11) = (/ &\n        & 0.25173e+01_rb,0.75913e+01_rb,0.95924e+01_rb,0.97373e+01_rb,0.66398e+01_rb /)\n      kbo(:, 1,34,11) = (/ &\n        & 0.14356e+01_rb,0.48418e+01_rb,0.61495e+01_rb,0.62828e+01_rb,0.42896e+01_rb /)\n      kbo(:, 2,34,11) = (/ &\n        & 0.16357e+01_rb,0.54935e+01_rb,0.70184e+01_rb,0.71516e+01_rb,0.48691e+01_rb /)\n      kbo(:, 3,34,11) = (/ &\n        & 0.18838e+01_rb,0.61957e+01_rb,0.79151e+01_rb,0.80457e+01_rb,0.54742e+01_rb /)\n      kbo(:, 4,34,11) = (/ &\n        & 0.21788e+01_rb,0.69325e+01_rb,0.88256e+01_rb,0.89643e+01_rb,0.60956e+01_rb /)\n      kbo(:, 5,34,11) = (/ &\n        & 0.25238e+01_rb,0.76930e+01_rb,0.97439e+01_rb,0.99021e+01_rb,0.67264e+01_rb /)\n      kbo(:, 1,35,11) = (/ &\n        & 0.13620e+01_rb,0.48400e+01_rb,0.61911e+01_rb,0.63341e+01_rb,0.42950e+01_rb /)\n      kbo(:, 2,35,11) = (/ &\n        & 0.15765e+01_rb,0.55077e+01_rb,0.70717e+01_rb,0.72149e+01_rb,0.48872e+01_rb /)\n      kbo(:, 3,35,11) = (/ &\n        & 0.18416e+01_rb,0.62238e+01_rb,0.79778e+01_rb,0.81173e+01_rb,0.55014e+01_rb /)\n      kbo(:, 4,35,11) = (/ &\n        & 0.21528e+01_rb,0.69694e+01_rb,0.88951e+01_rb,0.90430e+01_rb,0.61304e+01_rb /)\n      kbo(:, 5,35,11) = (/ &\n        & 0.25135e+01_rb,0.77370e+01_rb,0.98191e+01_rb,0.99865e+01_rb,0.67662e+01_rb /)\n      kbo(:, 1,36,11) = (/ &\n        & 0.12836e+01_rb,0.47892e+01_rb,0.61549e+01_rb,0.63050e+01_rb,0.42540e+01_rb /)\n      kbo(:, 2,36,11) = (/ &\n        & 0.15070e+01_rb,0.54649e+01_rb,0.70416e+01_rb,0.71923e+01_rb,0.48536e+01_rb /)\n      kbo(:, 3,36,11) = (/ &\n        & 0.17830e+01_rb,0.61872e+01_rb,0.79531e+01_rb,0.80994e+01_rb,0.54734e+01_rb /)\n      kbo(:, 4,36,11) = (/ &\n        & 0.21055e+01_rb,0.69369e+01_rb,0.88745e+01_rb,0.90288e+01_rb,0.61066e+01_rb /)\n      kbo(:, 5,36,11) = (/ &\n        & 0.24754e+01_rb,0.77090e+01_rb,0.98023e+01_rb,0.99759e+01_rb,0.67459e+01_rb /)\n      kbo(:, 1,37,11) = (/ &\n        & 0.11878e+01_rb,0.46541e+01_rb,0.59975e+01_rb,0.61531e+01_rb,0.41357e+01_rb /)\n      kbo(:, 2,37,11) = (/ &\n        & 0.14114e+01_rb,0.53279e+01_rb,0.68836e+01_rb,0.70407e+01_rb,0.47366e+01_rb /)\n      kbo(:, 3,37,11) = (/ &\n        & 0.16907e+01_rb,0.60488e+01_rb,0.77961e+01_rb,0.79492e+01_rb,0.53587e+01_rb /)\n      kbo(:, 4,37,11) = (/ &\n        & 0.20171e+01_rb,0.67987e+01_rb,0.87214e+01_rb,0.88782e+01_rb,0.59931e+01_rb /)\n      kbo(:, 5,37,11) = (/ &\n        & 0.23879e+01_rb,0.75721e+01_rb,0.96505e+01_rb,0.98263e+01_rb,0.66346e+01_rb /)\n      kbo(:, 1,38,11) = (/ &\n        & 0.11019e+01_rb,0.45241e+01_rb,0.58411e+01_rb,0.60015e+01_rb,0.40206e+01_rb /)\n      kbo(:, 2,38,11) = (/ &\n        & 0.13240e+01_rb,0.51938e+01_rb,0.67248e+01_rb,0.68881e+01_rb,0.46215e+01_rb /)\n      kbo(:, 3,38,11) = (/ &\n        & 0.16050e+01_rb,0.59127e+01_rb,0.76377e+01_rb,0.77969e+01_rb,0.52444e+01_rb /)\n      kbo(:, 4,38,11) = (/ &\n        & 0.19344e+01_rb,0.66614e+01_rb,0.85656e+01_rb,0.87241e+01_rb,0.58797e+01_rb /)\n      kbo(:, 5,38,11) = (/ &\n        & 0.23053e+01_rb,0.74352e+01_rb,0.94961e+01_rb,0.96730e+01_rb,0.65232e+01_rb /)\n      kbo(:, 1,39,11) = (/ &\n        & 0.10261e+01_rb,0.44035e+01_rb,0.56925e+01_rb,0.58571e+01_rb,0.39130e+01_rb /)\n      kbo(:, 2,39,11) = (/ &\n        & 0.12458e+01_rb,0.50694e+01_rb,0.65735e+01_rb,0.67411e+01_rb,0.45130e+01_rb /)\n      kbo(:, 3,39,11) = (/ &\n        & 0.15281e+01_rb,0.57844e+01_rb,0.74853e+01_rb,0.76497e+01_rb,0.51353e+01_rb /)\n      kbo(:, 4,39,11) = (/ &\n        & 0.18590e+01_rb,0.65310e+01_rb,0.84139e+01_rb,0.85752e+01_rb,0.57711e+01_rb /)\n      kbo(:, 5,39,11) = (/ &\n        & 0.22296e+01_rb,0.73031e+01_rb,0.93461e+01_rb,0.95233e+01_rb,0.64155e+01_rb /)\n      kbo(:, 1,40,11) = (/ &\n        & 0.94020e+00_rb,0.42252e+01_rb,0.54618e+01_rb,0.56305e+01_rb,0.37514e+01_rb /)\n      kbo(:, 2,40,11) = (/ &\n        & 0.11510e+01_rb,0.48808e+01_rb,0.63359e+01_rb,0.65051e+01_rb,0.43464e+01_rb /)\n      kbo(:, 3,40,11) = (/ &\n        & 0.14267e+01_rb,0.55865e+01_rb,0.72429e+01_rb,0.74116e+01_rb,0.49659e+01_rb /)\n      kbo(:, 4,40,11) = (/ &\n        & 0.17534e+01_rb,0.63284e+01_rb,0.81706e+01_rb,0.83346e+01_rb,0.56004e+01_rb /)\n      kbo(:, 5,40,11) = (/ &\n        & 0.21196e+01_rb,0.70954e+01_rb,0.91038e+01_rb,0.92790e+01_rb,0.62443e+01_rb /)\n      kbo(:, 1,41,11) = (/ &\n        & 0.86129e+00_rb,0.40457e+01_rb,0.52264e+01_rb,0.53976e+01_rb,0.35879e+01_rb /)\n      kbo(:, 2,41,11) = (/ &\n        & 0.10633e+01_rb,0.46915e+01_rb,0.60924e+01_rb,0.62635e+01_rb,0.41768e+01_rb /)\n      kbo(:, 3,41,11) = (/ &\n        & 0.13283e+01_rb,0.53845e+01_rb,0.69926e+01_rb,0.71649e+01_rb,0.47921e+01_rb /)\n      kbo(:, 4,41,11) = (/ &\n        & 0.16485e+01_rb,0.61201e+01_rb,0.79175e+01_rb,0.80844e+01_rb,0.54240e+01_rb /)\n      kbo(:, 5,41,11) = (/ &\n        & 0.20093e+01_rb,0.68812e+01_rb,0.88522e+01_rb,0.90249e+01_rb,0.60668e+01_rb /)\n      kbo(:, 1,42,11) = (/ &\n        & 0.79123e+00_rb,0.38735e+01_rb,0.49960e+01_rb,0.51699e+01_rb,0.34287e+01_rb /)\n      kbo(:, 2,42,11) = (/ &\n        & 0.98295e+00_rb,0.45072e+01_rb,0.58533e+01_rb,0.60254e+01_rb,0.40109e+01_rb /)\n      kbo(:, 3,42,11) = (/ &\n        & 0.12364e+01_rb,0.51876e+01_rb,0.67459e+01_rb,0.69214e+01_rb,0.46212e+01_rb /)\n      kbo(:, 4,42,11) = (/ &\n        & 0.15484e+01_rb,0.59150e+01_rb,0.76665e+01_rb,0.78373e+01_rb,0.52503e+01_rb /)\n      kbo(:, 5,42,11) = (/ &\n        & 0.19026e+01_rb,0.66716e+01_rb,0.86018e+01_rb,0.87728e+01_rb,0.58915e+01_rb /)\n      kbo(:, 1,43,11) = (/ &\n        & 0.71984e+00_rb,0.36729e+01_rb,0.47235e+01_rb,0.48975e+01_rb,0.32397e+01_rb /)\n      kbo(:, 2,43,11) = (/ &\n        & 0.89808e+00_rb,0.42916e+01_rb,0.55697e+01_rb,0.57443e+01_rb,0.38153e+01_rb /)\n      kbo(:, 3,43,11) = (/ &\n        & 0.11360e+01_rb,0.49574e+01_rb,0.64519e+01_rb,0.66289e+01_rb,0.44184e+01_rb /)\n      kbo(:, 4,43,11) = (/ &\n        & 0.14345e+01_rb,0.56728e+01_rb,0.73660e+01_rb,0.75410e+01_rb,0.50437e+01_rb /)\n      kbo(:, 5,43,11) = (/ &\n        & 0.17793e+01_rb,0.64228e+01_rb,0.82999e+01_rb,0.84705e+01_rb,0.56823e+01_rb /)\n      kbo(:, 1,44,11) = (/ &\n        & 0.65285e+00_rb,0.34667e+01_rb,0.44372e+01_rb,0.46082e+01_rb,0.30399e+01_rb /)\n      kbo(:, 2,44,11) = (/ &\n        & 0.81657e+00_rb,0.40674e+01_rb,0.52701e+01_rb,0.54466e+01_rb,0.36094e+01_rb /)\n      kbo(:, 3,44,11) = (/ &\n        & 0.10370e+01_rb,0.47171e+01_rb,0.61405e+01_rb,0.63175e+01_rb,0.42038e+01_rb /)\n      kbo(:, 4,44,11) = (/ &\n        & 0.13194e+01_rb,0.54184e+01_rb,0.70473e+01_rb,0.72248e+01_rb,0.48237e+01_rb /)\n      kbo(:, 5,44,11) = (/ &\n        & 0.16514e+01_rb,0.61584e+01_rb,0.79760e+01_rb,0.81477e+01_rb,0.54581e+01_rb /)\n      kbo(:, 1,45,11) = (/ &\n        & 0.59324e+00_rb,0.32687e+01_rb,0.41610e+01_rb,0.43270e+01_rb,0.28437e+01_rb /)\n      kbo(:, 2,45,11) = (/ &\n        & 0.74292e+00_rb,0.38502e+01_rb,0.49754e+01_rb,0.51525e+01_rb,0.34081e+01_rb /)\n      kbo(:, 3,45,11) = (/ &\n        & 0.94606e+00_rb,0.44838e+01_rb,0.58347e+01_rb,0.60112e+01_rb,0.39932e+01_rb /)\n      kbo(:, 4,45,11) = (/ &\n        & 0.12103e+01_rb,0.51691e+01_rb,0.67312e+01_rb,0.69113e+01_rb,0.46063e+01_rb /)\n      kbo(:, 5,45,11) = (/ &\n        & 0.15283e+01_rb,0.58970e+01_rb,0.76529e+01_rb,0.78283e+01_rb,0.52365e+01_rb /)\n      kbo(:, 1,46,11) = (/ &\n        & 0.53665e+00_rb,0.30665e+01_rb,0.38788e+01_rb,0.40344e+01_rb,0.26396e+01_rb /)\n      kbo(:, 2,46,11) = (/ &\n        & 0.67326e+00_rb,0.36275e+01_rb,0.46685e+01_rb,0.48445e+01_rb,0.31970e+01_rb /)\n      kbo(:, 3,46,11) = (/ &\n        & 0.85964e+00_rb,0.42450e+01_rb,0.55161e+01_rb,0.56940e+01_rb,0.37742e+01_rb /)\n      kbo(:, 4,46,11) = (/ &\n        & 0.11026e+01_rb,0.49112e+01_rb,0.63992e+01_rb,0.65795e+01_rb,0.43785e+01_rb /)\n      kbo(:, 5,46,11) = (/ &\n        & 0.14030e+01_rb,0.56247e+01_rb,0.73128e+01_rb,0.74918e+01_rb,0.50037e+01_rb /)\n      kbo(:, 1,47,11) = (/ &\n        & 0.47965e+00_rb,0.28512e+01_rb,0.35773e+01_rb,0.37190e+01_rb,0.24179e+01_rb /)\n      kbo(:, 2,47,11) = (/ &\n        & 0.60499e+00_rb,0.33895e+01_rb,0.43353e+01_rb,0.45070e+01_rb,0.29653e+01_rb /)\n      kbo(:, 3,47,11) = (/ &\n        & 0.77211e+00_rb,0.39857e+01_rb,0.51656e+01_rb,0.53439e+01_rb,0.35346e+01_rb /)\n      kbo(:, 4,47,11) = (/ &\n        & 0.99280e+00_rb,0.46320e+01_rb,0.60346e+01_rb,0.62138e+01_rb,0.41278e+01_rb /)\n      kbo(:, 5,47,11) = (/ &\n        & 0.12711e+01_rb,0.53272e+01_rb,0.69377e+01_rb,0.71189e+01_rb,0.47464e+01_rb /)\n      kbo(:, 1,48,11) = (/ &\n        & 0.42651e+00_rb,0.26445e+01_rb,0.32894e+01_rb,0.34148e+01_rb,0.22033e+01_rb /)\n      kbo(:, 2,48,11) = (/ &\n        & 0.54388e+00_rb,0.31611e+01_rb,0.40161e+01_rb,0.41791e+01_rb,0.27373e+01_rb /)\n      kbo(:, 3,48,11) = (/ &\n        & 0.69368e+00_rb,0.37347e+01_rb,0.48206e+01_rb,0.49989e+01_rb,0.32997e+01_rb /)\n      kbo(:, 4,48,11) = (/ &\n        & 0.89279e+00_rb,0.43620e+01_rb,0.56767e+01_rb,0.58554e+01_rb,0.38822e+01_rb /)\n      kbo(:, 5,48,11) = (/ &\n        & 0.11484e+01_rb,0.50369e+01_rb,0.65668e+01_rb,0.67495e+01_rb,0.44918e+01_rb /)\n      kbo(:, 1,49,11) = (/ &\n        & 0.37713e+00_rb,0.24439e+01_rb,0.30160e+01_rb,0.31206e+01_rb,0.19976e+01_rb /)\n      kbo(:, 2,49,11) = (/ &\n        & 0.48766e+00_rb,0.29434e+01_rb,0.37104e+01_rb,0.38599e+01_rb,0.25143e+01_rb /)\n      kbo(:, 3,49,11) = (/ &\n        & 0.62407e+00_rb,0.34939e+01_rb,0.44847e+01_rb,0.46596e+01_rb,0.30680e+01_rb /)\n      kbo(:, 4,49,11) = (/ &\n        & 0.80298e+00_rb,0.41006e+01_rb,0.53255e+01_rb,0.55049e+01_rb,0.36413e+01_rb /)\n      kbo(:, 5,49,11) = (/ &\n        & 0.10353e+01_rb,0.47554e+01_rb,0.62010e+01_rb,0.63820e+01_rb,0.42407e+01_rb /)\n      kbo(:, 1,50,11) = (/ &\n        & 0.33334e+00_rb,0.22573e+01_rb,0.27730e+01_rb,0.28537e+01_rb,0.18141e+01_rb /)\n      kbo(:, 2,50,11) = (/ &\n        & 0.43824e+00_rb,0.27477e+01_rb,0.34359e+01_rb,0.35712e+01_rb,0.23112e+01_rb /)\n      kbo(:, 3,50,11) = (/ &\n        & 0.56555e+00_rb,0.32767e+01_rb,0.41807e+01_rb,0.43497e+01_rb,0.28540e+01_rb /)\n      kbo(:, 4,50,11) = (/ &\n        & 0.72662e+00_rb,0.38631e+01_rb,0.50003e+01_rb,0.51798e+01_rb,0.34206e+01_rb /)\n      kbo(:, 5,50,11) = (/ &\n        & 0.93811e+00_rb,0.44998e+01_rb,0.58635e+01_rb,0.60433e+01_rb,0.40092e+01_rb /)\n      kbo(:, 1,51,11) = (/ &\n        & 0.29344e+00_rb,0.20792e+01_rb,0.25493e+01_rb,0.26045e+01_rb,0.16447e+01_rb /)\n      kbo(:, 2,51,11) = (/ &\n        & 0.39320e+00_rb,0.25633e+01_rb,0.31811e+01_rb,0.32996e+01_rb,0.21202e+01_rb /)\n      kbo(:, 3,51,11) = (/ &\n        & 0.51335e+00_rb,0.30739e+01_rb,0.38968e+01_rb,0.40554e+01_rb,0.26493e+01_rb /)\n      kbo(:, 4,51,11) = (/ &\n        & 0.65991e+00_rb,0.36396e+01_rb,0.46910e+01_rb,0.48692e+01_rb,0.32095e+01_rb /)\n      kbo(:, 5,51,11) = (/ &\n        & 0.85305e+00_rb,0.42602e+01_rb,0.55428e+01_rb,0.57227e+01_rb,0.37890e+01_rb /)\n      kbo(:, 1,52,11) = (/ &\n        & 0.25634e+00_rb,0.19065e+01_rb,0.23373e+01_rb,0.23675e+01_rb,0.14849e+01_rb /)\n      kbo(:, 2,52,11) = (/ &\n        & 0.35085e+00_rb,0.23832e+01_rb,0.29380e+01_rb,0.30363e+01_rb,0.19379e+01_rb /)\n      kbo(:, 3,52,11) = (/ &\n        & 0.46463e+00_rb,0.28806e+01_rb,0.36245e+01_rb,0.37705e+01_rb,0.24499e+01_rb /)\n      kbo(:, 4,52,11) = (/ &\n        & 0.60014e+00_rb,0.34247e+01_rb,0.43901e+01_rb,0.45644e+01_rb,0.30013e+01_rb /)\n      kbo(:, 5,52,11) = (/ &\n        & 0.77502e+00_rb,0.40268e+01_rb,0.52264e+01_rb,0.54064e+01_rb,0.35729e+01_rb /)\n      kbo(:, 1,53,11) = (/ &\n        & 0.22198e+00_rb,0.17382e+01_rb,0.21355e+01_rb,0.21443e+01_rb,0.13321e+01_rb /)\n      kbo(:, 2,53,11) = (/ &\n        & 0.31088e+00_rb,0.22037e+01_rb,0.27070e+01_rb,0.27809e+01_rb,0.17631e+01_rb /)\n      kbo(:, 3,53,11) = (/ &\n        & 0.41868e+00_rb,0.26937e+01_rb,0.33628e+01_rb,0.34937e+01_rb,0.22551e+01_rb /)\n      kbo(:, 4,53,11) = (/ &\n        & 0.54590e+00_rb,0.32172e+01_rb,0.40994e+01_rb,0.42669e+01_rb,0.27950e+01_rb /)\n      kbo(:, 5,53,11) = (/ &\n        & 0.70382e+00_rb,0.37993e+01_rb,0.49134e+01_rb,0.50934e+01_rb,0.33609e+01_rb /)\n      kbo(:, 1,54,11) = (/ &\n        & 0.19279e+00_rb,0.15884e+01_rb,0.19576e+01_rb,0.19516e+01_rb,0.11991e+01_rb /)\n      kbo(:, 2,54,11) = (/ &\n        & 0.27614e+00_rb,0.20423e+01_rb,0.25053e+01_rb,0.25559e+01_rb,0.16106e+01_rb /)\n      kbo(:, 3,54,11) = (/ &\n        & 0.37900e+00_rb,0.25264e+01_rb,0.31323e+01_rb,0.32473e+01_rb,0.20825e+01_rb /)\n      kbo(:, 4,54,11) = (/ &\n        & 0.49954e+00_rb,0.30344e+01_rb,0.38425e+01_rb,0.39994e+01_rb,0.26090e+01_rb /)\n      kbo(:, 5,54,11) = (/ &\n        & 0.64483e+00_rb,0.35967e+01_rb,0.46320e+01_rb,0.48104e+01_rb,0.31683e+01_rb /)\n      kbo(:, 1,55,11) = (/ &\n        & 0.16752e+00_rb,0.14506e+01_rb,0.17924e+01_rb,0.17780e+01_rb,0.10766e+01_rb /)\n      kbo(:, 2,55,11) = (/ &\n        & 0.24546e+00_rb,0.18924e+01_rb,0.23215e+01_rb,0.23502e+01_rb,0.14718e+01_rb /)\n      kbo(:, 3,55,11) = (/ &\n        & 0.34282e+00_rb,0.23686e+01_rb,0.29203e+01_rb,0.30171e+01_rb,0.19238e+01_rb /)\n      kbo(:, 4,55,11) = (/ &\n        & 0.45751e+00_rb,0.28657e+01_rb,0.36048e+01_rb,0.37504e+01_rb,0.24347e+01_rb /)\n      kbo(:, 5,55,11) = (/ &\n        & 0.59345e+00_rb,0.34091e+01_rb,0.43692e+01_rb,0.45436e+01_rb,0.29860e+01_rb /)\n      kbo(:, 1,56,11) = (/ &\n        & 0.14442e+00_rb,0.13191e+01_rb,0.16307e+01_rb,0.16158e+01_rb,0.95966e+00_rb /)\n      kbo(:, 2,56,11) = (/ &\n        & 0.21629e+00_rb,0.17456e+01_rb,0.21454e+01_rb,0.21553e+01_rb,0.13384e+01_rb /)\n      kbo(:, 3,56,11) = (/ &\n        & 0.30838e+00_rb,0.22117e+01_rb,0.27184e+01_rb,0.27939e+01_rb,0.17710e+01_rb /)\n      kbo(:, 4,56,11) = (/ &\n        & 0.41780e+00_rb,0.27024e+01_rb,0.33761e+01_rb,0.35083e+01_rb,0.22647e+01_rb /)\n      kbo(:, 5,56,11) = (/ &\n        & 0.54633e+00_rb,0.32277e+01_rb,0.41153e+01_rb,0.42835e+01_rb,0.28057e+01_rb /)\n      kbo(:, 1,57,11) = (/ &\n        & 0.12369e+00_rb,0.11942e+01_rb,0.14751e+01_rb,0.14660e+01_rb,0.84794e+00_rb /)\n      kbo(:, 2,57,11) = (/ &\n        & 0.18943e+00_rb,0.16025e+01_rb,0.19752e+01_rb,0.19706e+01_rb,0.12104e+01_rb /)\n      kbo(:, 3,57,11) = (/ &\n        & 0.27580e+00_rb,0.20577e+01_rb,0.25253e+01_rb,0.25785e+01_rb,0.16249e+01_rb /)\n      kbo(:, 4,57,11) = (/ &\n        & 0.38015e+00_rb,0.25425e+01_rb,0.31554e+01_rb,0.32724e+01_rb,0.20995e+01_rb /)\n      kbo(:, 5,57,11) = (/ &\n        & 0.50220e+00_rb,0.30528e+01_rb,0.38694e+01_rb,0.40275e+01_rb,0.26279e+01_rb /)\n      kbo(:, 1,58,11) = (/ &\n        & 0.10619e+00_rb,0.10815e+01_rb,0.13338e+01_rb,0.13340e+01_rb,0.74924e+00_rb /)\n      kbo(:, 2,58,11) = (/ &\n        & 0.16586e+00_rb,0.14713e+01_rb,0.18183e+01_rb,0.18047e+01_rb,0.10933e+01_rb /)\n      kbo(:, 3,58,11) = (/ &\n        & 0.24668e+00_rb,0.19150e+01_rb,0.23498e+01_rb,0.23824e+01_rb,0.14931e+01_rb /)\n      kbo(:, 4,58,11) = (/ &\n        & 0.34613e+00_rb,0.23936e+01_rb,0.29542e+01_rb,0.30545e+01_rb,0.19489e+01_rb /)\n      kbo(:, 5,58,11) = (/ &\n        & 0.46251e+00_rb,0.28928e+01_rb,0.36439e+01_rb,0.37914e+01_rb,0.24628e+01_rb /)\n      kbo(:, 1,59,11) = (/ &\n        & 0.98781e-01_rb,0.10374e+01_rb,0.12790e+01_rb,0.12834e+01_rb,0.71091e+00_rb /)\n      kbo(:, 2,59,11) = (/ &\n        & 0.15643e+00_rb,0.14199e+01_rb,0.17560e+01_rb,0.17406e+01_rb,0.10475e+01_rb /)\n      kbo(:, 3,59,11) = (/ &\n        & 0.23512e+00_rb,0.18585e+01_rb,0.22815e+01_rb,0.23061e+01_rb,0.14408e+01_rb /)\n      kbo(:, 4,59,11) = (/ &\n        & 0.33250e+00_rb,0.23338e+01_rb,0.28755e+01_rb,0.29686e+01_rb,0.18898e+01_rb /)\n      kbo(:, 5,59,11) = (/ &\n        & 0.44697e+00_rb,0.28298e+01_rb,0.35555e+01_rb,0.36984e+01_rb,0.23975e+01_rb /)\n      kbo(:, 1,13,12) = (/ &\n        & 0.30998e+02_rb,0.37385e+02_rb,0.40609e+02_rb,0.38100e+02_rb,0.30845e+02_rb /)\n      kbo(:, 2,13,12) = (/ &\n        & 0.30490e+02_rb,0.37042e+02_rb,0.40582e+02_rb,0.38272e+02_rb,0.31245e+02_rb /)\n      kbo(:, 3,13,12) = (/ &\n        & 0.29985e+02_rb,0.36701e+02_rb,0.40520e+02_rb,0.38445e+02_rb,0.31621e+02_rb /)\n      kbo(:, 4,13,12) = (/ &\n        & 0.29490e+02_rb,0.36329e+02_rb,0.40415e+02_rb,0.38594e+02_rb,0.32000e+02_rb /)\n      kbo(:, 5,13,12) = (/ &\n        & 0.29015e+02_rb,0.35959e+02_rb,0.40312e+02_rb,0.38750e+02_rb,0.32433e+02_rb /)\n      kbo(:, 1,14,12) = (/ &\n        & 0.27110e+02_rb,0.35184e+02_rb,0.38617e+02_rb,0.36399e+02_rb,0.28635e+02_rb /)\n      kbo(:, 2,14,12) = (/ &\n        & 0.26641e+02_rb,0.34930e+02_rb,0.38606e+02_rb,0.36649e+02_rb,0.29079e+02_rb /)\n      kbo(:, 3,14,12) = (/ &\n        & 0.26184e+02_rb,0.34642e+02_rb,0.38568e+02_rb,0.36926e+02_rb,0.29498e+02_rb /)\n      kbo(:, 4,14,12) = (/ &\n        & 0.25751e+02_rb,0.34348e+02_rb,0.38555e+02_rb,0.37188e+02_rb,0.29949e+02_rb /)\n      kbo(:, 5,14,12) = (/ &\n        & 0.25340e+02_rb,0.34077e+02_rb,0.38568e+02_rb,0.37453e+02_rb,0.30433e+02_rb /)\n      kbo(:, 1,15,12) = (/ &\n        & 0.23379e+02_rb,0.32658e+02_rb,0.36083e+02_rb,0.34396e+02_rb,0.26632e+02_rb /)\n      kbo(:, 2,15,12) = (/ &\n        & 0.22961e+02_rb,0.32462e+02_rb,0.36143e+02_rb,0.34739e+02_rb,0.27099e+02_rb /)\n      kbo(:, 3,15,12) = (/ &\n        & 0.22574e+02_rb,0.32277e+02_rb,0.36234e+02_rb,0.35089e+02_rb,0.27554e+02_rb /)\n      kbo(:, 4,15,12) = (/ &\n        & 0.22226e+02_rb,0.32107e+02_rb,0.36368e+02_rb,0.35457e+02_rb,0.28061e+02_rb /)\n      kbo(:, 5,15,12) = (/ &\n        & 0.22052e+02_rb,0.31945e+02_rb,0.36473e+02_rb,0.35860e+02_rb,0.28623e+02_rb /)\n      kbo(:, 1,16,12) = (/ &\n        & 0.19977e+02_rb,0.29953e+02_rb,0.33281e+02_rb,0.32282e+02_rb,0.24730e+02_rb /)\n      kbo(:, 2,16,12) = (/ &\n        & 0.19633e+02_rb,0.29859e+02_rb,0.33454e+02_rb,0.32701e+02_rb,0.25245e+02_rb /)\n      kbo(:, 3,16,12) = (/ &\n        & 0.19340e+02_rb,0.29766e+02_rb,0.33693e+02_rb,0.33152e+02_rb,0.25800e+02_rb /)\n      kbo(:, 4,16,12) = (/ &\n        & 0.19247e+02_rb,0.29689e+02_rb,0.33933e+02_rb,0.33616e+02_rb,0.26378e+02_rb /)\n      kbo(:, 5,16,12) = (/ &\n        & 0.19403e+02_rb,0.29623e+02_rb,0.34160e+02_rb,0.34111e+02_rb,0.26924e+02_rb /)\n      kbo(:, 1,17,12) = (/ &\n        & 0.17051e+02_rb,0.27143e+02_rb,0.30473e+02_rb,0.30161e+02_rb,0.22931e+02_rb /)\n      kbo(:, 2,17,12) = (/ &\n        & 0.16797e+02_rb,0.27123e+02_rb,0.30776e+02_rb,0.30670e+02_rb,0.23518e+02_rb /)\n      kbo(:, 3,17,12) = (/ &\n        & 0.16741e+02_rb,0.27141e+02_rb,0.31121e+02_rb,0.31186e+02_rb,0.24127e+02_rb /)\n      kbo(:, 4,17,12) = (/ &\n        & 0.16948e+02_rb,0.27189e+02_rb,0.31472e+02_rb,0.31736e+02_rb,0.24729e+02_rb /)\n      kbo(:, 5,17,12) = (/ &\n        & 0.17485e+02_rb,0.27288e+02_rb,0.31858e+02_rb,0.32324e+02_rb,0.25297e+02_rb /)\n      kbo(:, 1,18,12) = (/ &\n        & 0.14597e+02_rb,0.24342e+02_rb,0.27826e+02_rb,0.28130e+02_rb,0.21245e+02_rb /)\n      kbo(:, 2,18,12) = (/ &\n        & 0.14547e+02_rb,0.24446e+02_rb,0.28237e+02_rb,0.28704e+02_rb,0.21885e+02_rb /)\n      kbo(:, 3,18,12) = (/ &\n        & 0.14765e+02_rb,0.24583e+02_rb,0.28672e+02_rb,0.29288e+02_rb,0.22535e+02_rb /)\n      kbo(:, 4,18,12) = (/ &\n        & 0.15315e+02_rb,0.24794e+02_rb,0.29147e+02_rb,0.29934e+02_rb,0.23159e+02_rb /)\n      kbo(:, 5,18,12) = (/ &\n        & 0.16067e+02_rb,0.25143e+02_rb,0.29634e+02_rb,0.30628e+02_rb,0.23749e+02_rb /)\n      kbo(:, 1,19,12) = (/ &\n        & 0.12640e+02_rb,0.21753e+02_rb,0.25384e+02_rb,0.26151e+02_rb,0.19661e+02_rb /)\n      kbo(:, 2,19,12) = (/ &\n        & 0.12835e+02_rb,0.21949e+02_rb,0.25878e+02_rb,0.26810e+02_rb,0.20358e+02_rb /)\n      kbo(:, 3,19,12) = (/ &\n        & 0.13356e+02_rb,0.22229e+02_rb,0.26410e+02_rb,0.27515e+02_rb,0.21037e+02_rb /)\n      kbo(:, 4,19,12) = (/ &\n        & 0.14056e+02_rb,0.22664e+02_rb,0.26964e+02_rb,0.28265e+02_rb,0.21685e+02_rb /)\n      kbo(:, 5,19,12) = (/ &\n        & 0.14855e+02_rb,0.23244e+02_rb,0.27571e+02_rb,0.29046e+02_rb,0.22336e+02_rb /)\n      kbo(:, 1,20,12) = (/ &\n        & 0.11082e+02_rb,0.19491e+02_rb,0.23194e+02_rb,0.24313e+02_rb,0.18232e+02_rb /)\n      kbo(:, 2,20,12) = (/ &\n        & 0.11562e+02_rb,0.19787e+02_rb,0.23755e+02_rb,0.25073e+02_rb,0.18946e+02_rb /)\n      kbo(:, 3,20,12) = (/ &\n        & 0.12224e+02_rb,0.20238e+02_rb,0.24350e+02_rb,0.25880e+02_rb,0.19650e+02_rb /)\n      kbo(:, 4,20,12) = (/ &\n        & 0.12987e+02_rb,0.20868e+02_rb,0.25012e+02_rb,0.26726e+02_rb,0.20347e+02_rb /)\n      kbo(:, 5,20,12) = (/ &\n        & 0.13788e+02_rb,0.21712e+02_rb,0.25741e+02_rb,0.27588e+02_rb,0.21074e+02_rb /)\n      kbo(:, 1,21,12) = (/ &\n        & 0.98833e+01_rb,0.17574e+02_rb,0.21209e+02_rb,0.22623e+02_rb,0.16925e+02_rb /)\n      kbo(:, 2,21,12) = (/ &\n        & 0.10489e+02_rb,0.18010e+02_rb,0.21858e+02_rb,0.23471e+02_rb,0.17666e+02_rb /)\n      kbo(:, 3,21,12) = (/ &\n        & 0.11209e+02_rb,0.18622e+02_rb,0.22555e+02_rb,0.24382e+02_rb,0.18394e+02_rb /)\n      kbo(:, 4,21,12) = (/ &\n        & 0.11974e+02_rb,0.19474e+02_rb,0.23320e+02_rb,0.25315e+02_rb,0.19156e+02_rb /)\n      kbo(:, 5,21,12) = (/ &\n        & 0.12743e+02_rb,0.20530e+02_rb,0.24213e+02_rb,0.26280e+02_rb,0.19957e+02_rb /)\n      kbo(:, 1,22,12) = (/ &\n        & 0.89432e+01_rb,0.16023e+02_rb,0.19521e+02_rb,0.21142e+02_rb,0.15785e+02_rb /)\n      kbo(:, 2,22,12) = (/ &\n        & 0.96012e+01_rb,0.16615e+02_rb,0.20251e+02_rb,0.22105e+02_rb,0.16565e+02_rb /)\n      kbo(:, 3,22,12) = (/ &\n        & 0.10308e+02_rb,0.17429e+02_rb,0.21053e+02_rb,0.23102e+02_rb,0.17352e+02_rb /)\n      kbo(:, 4,22,12) = (/ &\n        & 0.11034e+02_rb,0.18474e+02_rb,0.21986e+02_rb,0.24140e+02_rb,0.18184e+02_rb /)\n      kbo(:, 5,22,12) = (/ &\n        & 0.11779e+02_rb,0.19675e+02_rb,0.23025e+02_rb,0.25198e+02_rb,0.19053e+02_rb /)\n      kbo(:, 1,23,12) = (/ &\n        & 0.81558e+01_rb,0.14793e+02_rb,0.18088e+02_rb,0.19855e+02_rb,0.14800e+02_rb /)\n      kbo(:, 2,23,12) = (/ &\n        & 0.87957e+01_rb,0.15543e+02_rb,0.18895e+02_rb,0.20923e+02_rb,0.15621e+02_rb /)\n      kbo(:, 3,23,12) = (/ &\n        & 0.94593e+01_rb,0.16540e+02_rb,0.19849e+02_rb,0.22025e+02_rb,0.16480e+02_rb /)\n      kbo(:, 4,23,12) = (/ &\n        & 0.10153e+02_rb,0.17706e+02_rb,0.20923e+02_rb,0.23160e+02_rb,0.17388e+02_rb /)\n      kbo(:, 5,23,12) = (/ &\n        & 0.10876e+02_rb,0.18993e+02_rb,0.22113e+02_rb,0.24310e+02_rb,0.18322e+02_rb /)\n      kbo(:, 1,24,12) = (/ &\n        & 0.74526e+01_rb,0.13830e+02_rb,0.16894e+02_rb,0.18769e+02_rb,0.13959e+02_rb /)\n      kbo(:, 2,24,12) = (/ &\n        & 0.80517e+01_rb,0.14766e+02_rb,0.17833e+02_rb,0.19936e+02_rb,0.14836e+02_rb /)\n      kbo(:, 3,24,12) = (/ &\n        & 0.86841e+01_rb,0.15873e+02_rb,0.18916e+02_rb,0.21150e+02_rb,0.15773e+02_rb /)\n      kbo(:, 4,24,12) = (/ &\n        & 0.93535e+01_rb,0.17122e+02_rb,0.20131e+02_rb,0.22383e+02_rb,0.16742e+02_rb /)\n      kbo(:, 5,24,12) = (/ &\n        & 0.10068e+02_rb,0.18482e+02_rb,0.21482e+02_rb,0.23634e+02_rb,0.17753e+02_rb /)\n      kbo(:, 1,25,12) = (/ &\n        & 0.68105e+01_rb,0.13122e+02_rb,0.15953e+02_rb,0.17890e+02_rb,0.13264e+02_rb /)\n      kbo(:, 2,25,12) = (/ &\n        & 0.73796e+01_rb,0.14193e+02_rb,0.17028e+02_rb,0.19160e+02_rb,0.14211e+02_rb /)\n      kbo(:, 3,25,12) = (/ &\n        & 0.79883e+01_rb,0.15386e+02_rb,0.18237e+02_rb,0.20473e+02_rb,0.15219e+02_rb /)\n      kbo(:, 4,25,12) = (/ &\n        & 0.86473e+01_rb,0.16702e+02_rb,0.19605e+02_rb,0.21810e+02_rb,0.16257e+02_rb /)\n      kbo(:, 5,25,12) = (/ &\n        & 0.93513e+01_rb,0.18139e+02_rb,0.21087e+02_rb,0.23158e+02_rb,0.17339e+02_rb /)\n      kbo(:, 1,26,12) = (/ &\n        & 0.62530e+01_rb,0.12619e+02_rb,0.15260e+02_rb,0.17241e+02_rb,0.12729e+02_rb /)\n      kbo(:, 2,26,12) = (/ &\n        & 0.67955e+01_rb,0.13786e+02_rb,0.16460e+02_rb,0.18602e+02_rb,0.13751e+02_rb /)\n      kbo(:, 3,26,12) = (/ &\n        & 0.73876e+01_rb,0.15061e+02_rb,0.17816e+02_rb,0.20014e+02_rb,0.14821e+02_rb /)\n      kbo(:, 4,26,12) = (/ &\n        & 0.80374e+01_rb,0.16453e+02_rb,0.19314e+02_rb,0.21444e+02_rb,0.15933e+02_rb /)\n      kbo(:, 5,26,12) = (/ &\n        & 0.87427e+01_rb,0.17956e+02_rb,0.20909e+02_rb,0.22878e+02_rb,0.17080e+02_rb /)\n      kbo(:, 1,27,12) = (/ &\n        & 0.57700e+01_rb,0.12257e+02_rb,0.14782e+02_rb,0.16780e+02_rb,0.12335e+02_rb /)\n      kbo(:, 2,27,12) = (/ &\n        & 0.62864e+01_rb,0.13513e+02_rb,0.16114e+02_rb,0.18231e+02_rb,0.13431e+02_rb /)\n      kbo(:, 3,27,12) = (/ &\n        & 0.68675e+01_rb,0.14868e+02_rb,0.17601e+02_rb,0.19730e+02_rb,0.14565e+02_rb /)\n      kbo(:, 4,27,12) = (/ &\n        & 0.75138e+01_rb,0.16329e+02_rb,0.19199e+02_rb,0.21244e+02_rb,0.15742e+02_rb /)\n      kbo(:, 5,27,12) = (/ &\n        & 0.82289e+01_rb,0.17883e+02_rb,0.20886e+02_rb,0.22748e+02_rb,0.16940e+02_rb /)\n      kbo(:, 1,28,12) = (/ &\n        & 0.53548e+01_rb,0.12024e+02_rb,0.14494e+02_rb,0.16490e+02_rb,0.12074e+02_rb /)\n      kbo(:, 2,28,12) = (/ &\n        & 0.58567e+01_rb,0.13364e+02_rb,0.15954e+02_rb,0.18023e+02_rb,0.13231e+02_rb /)\n      kbo(:, 3,28,12) = (/ &\n        & 0.64249e+01_rb,0.14793e+02_rb,0.17548e+02_rb,0.19599e+02_rb,0.14431e+02_rb /)\n      kbo(:, 4,28,12) = (/ &\n        & 0.70763e+01_rb,0.16306e+02_rb,0.19232e+02_rb,0.21185e+02_rb,0.15664e+02_rb /)\n      kbo(:, 5,28,12) = (/ &\n        & 0.78108e+01_rb,0.17913e+02_rb,0.20999e+02_rb,0.22748e+02_rb,0.16904e+02_rb /)\n      kbo(:, 1,29,12) = (/ &\n        & 0.50045e+01_rb,0.11918e+02_rb,0.14389e+02_rb,0.16363e+02_rb,0.11938e+02_rb /)\n      kbo(:, 2,29,12) = (/ &\n        & 0.55030e+01_rb,0.13334e+02_rb,0.15959e+02_rb,0.17970e+02_rb,0.13155e+02_rb /)\n      kbo(:, 3,29,12) = (/ &\n        & 0.60662e+01_rb,0.14820e+02_rb,0.17638e+02_rb,0.19611e+02_rb,0.14408e+02_rb /)\n      kbo(:, 4,29,12) = (/ &\n        & 0.67325e+01_rb,0.16392e+02_rb,0.19392e+02_rb,0.21253e+02_rb,0.15686e+02_rb /)\n      kbo(:, 5,29,12) = (/ &\n        & 0.74925e+01_rb,0.18044e+02_rb,0.21206e+02_rb,0.22856e+02_rb,0.16965e+02_rb /)\n      kbo(:, 1,30,12) = (/ &\n        & 0.47172e+01_rb,0.11917e+02_rb,0.14428e+02_rb,0.16368e+02_rb,0.11903e+02_rb /)\n      kbo(:, 2,30,12) = (/ &\n        & 0.52125e+01_rb,0.13400e+02_rb,0.16089e+02_rb,0.18040e+02_rb,0.13179e+02_rb /)\n      kbo(:, 3,30,12) = (/ &\n        & 0.57884e+01_rb,0.14940e+02_rb,0.17829e+02_rb,0.19728e+02_rb,0.14475e+02_rb /)\n      kbo(:, 4,30,12) = (/ &\n        & 0.64722e+01_rb,0.16556e+02_rb,0.19636e+02_rb,0.21408e+02_rb,0.15787e+02_rb /)\n      kbo(:, 5,30,12) = (/ &\n        & 0.72704e+01_rb,0.18251e+02_rb,0.21479e+02_rb,0.23035e+02_rb,0.17093e+02_rb /)\n      kbo(:, 1,31,12) = (/ &\n        & 0.44858e+01_rb,0.12017e+02_rb,0.14590e+02_rb,0.16495e+02_rb,0.11969e+02_rb /)\n      kbo(:, 2,31,12) = (/ &\n        & 0.49908e+01_rb,0.13550e+02_rb,0.16315e+02_rb,0.18215e+02_rb,0.13287e+02_rb /)\n      kbo(:, 3,31,12) = (/ &\n        & 0.55864e+01_rb,0.15140e+02_rb,0.18101e+02_rb,0.19933e+02_rb,0.14620e+02_rb /)\n      kbo(:, 4,31,12) = (/ &\n        & 0.63024e+01_rb,0.16801e+02_rb,0.19948e+02_rb,0.21636e+02_rb,0.15956e+02_rb /)\n      kbo(:, 5,31,12) = (/ &\n        & 0.71504e+01_rb,0.18530e+02_rb,0.21815e+02_rb,0.23280e+02_rb,0.17277e+02_rb /)\n      kbo(:, 1,32,12) = (/ &\n        & 0.43064e+01_rb,0.12199e+02_rb,0.14841e+02_rb,0.16712e+02_rb,0.12112e+02_rb /)\n      kbo(:, 2,32,12) = (/ &\n        & 0.48346e+01_rb,0.13779e+02_rb,0.16613e+02_rb,0.18463e+02_rb,0.13462e+02_rb /)\n      kbo(:, 3,32,12) = (/ &\n        & 0.54614e+01_rb,0.15404e+02_rb,0.18438e+02_rb,0.20209e+02_rb,0.14821e+02_rb /)\n      kbo(:, 4,32,12) = (/ &\n        & 0.62177e+01_rb,0.17102e+02_rb,0.20311e+02_rb,0.21920e+02_rb,0.16172e+02_rb /)\n      kbo(:, 5,32,12) = (/ &\n        & 0.71259e+01_rb,0.18855e+02_rb,0.22195e+02_rb,0.23574e+02_rb,0.17506e+02_rb /)\n      kbo(:, 1,33,12) = (/ &\n        & 0.41801e+01_rb,0.12450e+02_rb,0.15154e+02_rb,0.16994e+02_rb,0.12315e+02_rb /)\n      kbo(:, 2,33,12) = (/ &\n        & 0.47391e+01_rb,0.14064e+02_rb,0.16963e+02_rb,0.18765e+02_rb,0.13689e+02_rb /)\n      kbo(:, 3,33,12) = (/ &\n        & 0.54061e+01_rb,0.15717e+02_rb,0.18820e+02_rb,0.20527e+02_rb,0.15064e+02_rb /)\n      kbo(:, 4,33,12) = (/ &\n        & 0.62146e+01_rb,0.17442e+02_rb,0.20711e+02_rb,0.22242e+02_rb,0.16420e+02_rb /)\n      kbo(:, 5,33,12) = (/ &\n        & 0.71827e+01_rb,0.19219e+02_rb,0.22608e+02_rb,0.23903e+02_rb,0.17762e+02_rb /)\n      kbo(:, 1,34,12) = (/ &\n        & 0.40887e+01_rb,0.12691e+02_rb,0.15451e+02_rb,0.17259e+02_rb,0.12512e+02_rb /)\n      kbo(:, 2,34,12) = (/ &\n        & 0.46819e+01_rb,0.14330e+02_rb,0.17288e+02_rb,0.19046e+02_rb,0.13902e+02_rb /)\n      kbo(:, 3,34,12) = (/ &\n        & 0.53890e+01_rb,0.16007e+02_rb,0.19166e+02_rb,0.20816e+02_rb,0.15287e+02_rb /)\n      kbo(:, 4,34,12) = (/ &\n        & 0.62486e+01_rb,0.17752e+02_rb,0.21067e+02_rb,0.22532e+02_rb,0.16650e+02_rb /)\n      kbo(:, 5,34,12) = (/ &\n        & 0.72682e+01_rb,0.19545e+02_rb,0.22972e+02_rb,0.24194e+02_rb,0.17995e+02_rb /)\n      kbo(:, 1,35,12) = (/ &\n        & 0.39916e+01_rb,0.12809e+02_rb,0.15601e+02_rb,0.17383e+02_rb,0.12605e+02_rb /)\n      kbo(:, 2,35,12) = (/ &\n        & 0.46112e+01_rb,0.14460e+02_rb,0.17457e+02_rb,0.19181e+02_rb,0.14005e+02_rb /)\n      kbo(:, 3,35,12) = (/ &\n        & 0.53474e+01_rb,0.16154e+02_rb,0.19347e+02_rb,0.20958e+02_rb,0.15398e+02_rb /)\n      kbo(:, 4,35,12) = (/ &\n        & 0.62430e+01_rb,0.17913e+02_rb,0.21258e+02_rb,0.22679e+02_rb,0.16764e+02_rb /)\n      kbo(:, 5,35,12) = (/ &\n        & 0.72953e+01_rb,0.19716e+02_rb,0.23169e+02_rb,0.24345e+02_rb,0.18113e+02_rb /)\n      kbo(:, 1,36,12) = (/ &\n        & 0.38696e+01_rb,0.12768e+02_rb,0.15571e+02_rb,0.17332e+02_rb,0.12565e+02_rb /)\n      kbo(:, 2,36,12) = (/ &\n        & 0.45034e+01_rb,0.14429e+02_rb,0.17436e+02_rb,0.19141e+02_rb,0.13973e+02_rb /)\n      kbo(:, 3,36,12) = (/ &\n        & 0.52555e+01_rb,0.16128e+02_rb,0.19333e+02_rb,0.20927e+02_rb,0.15372e+02_rb /)\n      kbo(:, 4,36,12) = (/ &\n        & 0.61640e+01_rb,0.17893e+02_rb,0.21249e+02_rb,0.22656e+02_rb,0.16743e+02_rb /)\n      kbo(:, 5,36,12) = (/ &\n        & 0.72295e+01_rb,0.19702e+02_rb,0.23168e+02_rb,0.24329e+02_rb,0.18096e+02_rb /)\n      kbo(:, 1,37,12) = (/ &\n        & 0.36883e+01_rb,0.12493e+02_rb,0.15274e+02_rb,0.17021e+02_rb,0.12322e+02_rb /)\n      kbo(:, 2,37,12) = (/ &\n        & 0.43193e+01_rb,0.14156e+02_rb,0.17140e+02_rb,0.18841e+02_rb,0.13739e+02_rb /)\n      kbo(:, 3,37,12) = (/ &\n        & 0.50636e+01_rb,0.15852e+02_rb,0.19039e+02_rb,0.20638e+02_rb,0.15145e+02_rb /)\n      kbo(:, 4,37,12) = (/ &\n        & 0.59573e+01_rb,0.17616e+02_rb,0.20958e+02_rb,0.22386e+02_rb,0.16525e+02_rb /)\n      kbo(:, 5,37,12) = (/ &\n        & 0.70089e+01_rb,0.19421e+02_rb,0.22881e+02_rb,0.24071e+02_rb,0.17883e+02_rb /)\n      kbo(:, 1,38,12) = (/ &\n        & 0.35253e+01_rb,0.12215e+02_rb,0.14971e+02_rb,0.16706e+02_rb,0.12079e+02_rb /)\n      kbo(:, 2,38,12) = (/ &\n        & 0.41507e+01_rb,0.13877e+02_rb,0.16837e+02_rb,0.18535e+02_rb,0.13501e+02_rb /)\n      kbo(:, 3,38,12) = (/ &\n        & 0.48852e+01_rb,0.15572e+02_rb,0.18736e+02_rb,0.20342e+02_rb,0.14913e+02_rb /)\n      kbo(:, 4,38,12) = (/ &\n        & 0.57613e+01_rb,0.17329e+02_rb,0.20656e+02_rb,0.22106e+02_rb,0.16300e+02_rb /)\n      kbo(:, 5,38,12) = (/ &\n        & 0.67957e+01_rb,0.19130e+02_rb,0.22581e+02_rb,0.23804e+02_rb,0.17665e+02_rb /)\n      kbo(:, 1,39,12) = (/ &\n        & 0.33825e+01_rb,0.11947e+02_rb,0.14676e+02_rb,0.16402e+02_rb,0.11843e+02_rb /)\n      kbo(:, 2,39,12) = (/ &\n        & 0.39997e+01_rb,0.13607e+02_rb,0.16542e+02_rb,0.18237e+02_rb,0.13271e+02_rb /)\n      kbo(:, 3,39,12) = (/ &\n        & 0.47242e+01_rb,0.15300e+02_rb,0.18440e+02_rb,0.20053e+02_rb,0.14687e+02_rb /)\n      kbo(:, 4,39,12) = (/ &\n        & 0.55821e+01_rb,0.17050e+02_rb,0.20362e+02_rb,0.21831e+02_rb,0.16081e+02_rb /)\n      kbo(:, 5,39,12) = (/ &\n        & 0.65965e+01_rb,0.18849e+02_rb,0.22289e+02_rb,0.23541e+02_rb,0.17452e+02_rb /)\n      kbo(:, 1,40,12) = (/ &\n        & 0.31990e+01_rb,0.11518e+02_rb,0.14197e+02_rb,0.15916e+02_rb,0.11466e+02_rb /)\n      kbo(:, 2,40,12) = (/ &\n        & 0.37954e+01_rb,0.13171e+02_rb,0.16060e+02_rb,0.17759e+02_rb,0.12898e+02_rb /)\n      kbo(:, 3,40,12) = (/ &\n        & 0.44984e+01_rb,0.14859e+02_rb,0.17955e+02_rb,0.19586e+02_rb,0.14321e+02_rb /)\n      kbo(:, 4,40,12) = (/ &\n        & 0.53220e+01_rb,0.16595e+02_rb,0.19875e+02_rb,0.21381e+02_rb,0.15725e+02_rb /)\n      kbo(:, 5,40,12) = (/ &\n        & 0.62999e+01_rb,0.18387e+02_rb,0.21803e+02_rb,0.23109e+02_rb,0.17102e+02_rb /)\n      kbo(:, 1,41,12) = (/ &\n        & 0.30240e+01_rb,0.11079e+02_rb,0.13703e+02_rb,0.15411e+02_rb,0.11075e+02_rb /)\n      kbo(:, 2,41,12) = (/ &\n        & 0.35998e+01_rb,0.12722e+02_rb,0.15561e+02_rb,0.17259e+02_rb,0.12509e+02_rb /)\n      kbo(:, 3,41,12) = (/ &\n        & 0.42766e+01_rb,0.14402e+02_rb,0.17450e+02_rb,0.19096e+02_rb,0.13938e+02_rb /)\n      kbo(:, 4,41,12) = (/ &\n        & 0.50663e+01_rb,0.16123e+02_rb,0.19365e+02_rb,0.20905e+02_rb,0.15352e+02_rb /)\n      kbo(:, 5,41,12) = (/ &\n        & 0.60051e+01_rb,0.17908e+02_rb,0.21295e+02_rb,0.22653e+02_rb,0.16735e+02_rb /)\n      kbo(:, 1,42,12) = (/ &\n        & 0.28652e+01_rb,0.10648e+02_rb,0.13219e+02_rb,0.14913e+02_rb,0.10689e+02_rb /)\n      kbo(:, 2,42,12) = (/ &\n        & 0.34153e+01_rb,0.12278e+02_rb,0.15063e+02_rb,0.16761e+02_rb,0.12121e+02_rb /)\n      kbo(:, 3,42,12) = (/ &\n        & 0.40672e+01_rb,0.13952e+02_rb,0.16947e+02_rb,0.18606e+02_rb,0.13557e+02_rb /)\n      kbo(:, 4,42,12) = (/ &\n        & 0.48264e+01_rb,0.15661e+02_rb,0.18858e+02_rb,0.20426e+02_rb,0.14977e+02_rb /)\n      kbo(:, 5,42,12) = (/ &\n        & 0.57266e+01_rb,0.17431e+02_rb,0.20787e+02_rb,0.22197e+02_rb,0.16370e+02_rb /)\n      kbo(:, 1,43,12) = (/ &\n        & 0.26870e+01_rb,0.10134e+02_rb,0.12642e+02_rb,0.14316e+02_rb,0.10228e+02_rb /)\n      kbo(:, 2,43,12) = (/ &\n        & 0.32108e+01_rb,0.11745e+02_rb,0.14465e+02_rb,0.16161e+02_rb,0.11657e+02_rb /)\n      kbo(:, 3,43,12) = (/ &\n        & 0.38308e+01_rb,0.13408e+02_rb,0.16340e+02_rb,0.18012e+02_rb,0.13095e+02_rb /)\n      kbo(:, 4,43,12) = (/ &\n        & 0.45569e+01_rb,0.15107e+02_rb,0.18246e+02_rb,0.19843e+02_rb,0.14521e+02_rb /)\n      kbo(:, 5,43,12) = (/ &\n        & 0.54100e+01_rb,0.16859e+02_rb,0.20173e+02_rb,0.21637e+02_rb,0.15927e+02_rb /)\n      kbo(:, 1,44,12) = (/ &\n        & 0.25051e+01_rb,0.95885e+01_rb,0.12032e+02_rb,0.13682e+02_rb,0.97372e+01_rb /)\n      kbo(:, 2,44,12) = (/ &\n        & 0.30054e+01_rb,0.11180e+02_rb,0.13825e+02_rb,0.15517e+02_rb,0.11159e+02_rb /)\n      kbo(:, 3,44,12) = (/ &\n        & 0.35923e+01_rb,0.12828e+02_rb,0.15690e+02_rb,0.17372e+02_rb,0.12597e+02_rb /)\n      kbo(:, 4,44,12) = (/ &\n        & 0.42861e+01_rb,0.14518e+02_rb,0.17591e+02_rb,0.19215e+02_rb,0.14031e+02_rb /)\n      kbo(:, 5,44,12) = (/ &\n        & 0.50891e+01_rb,0.16248e+02_rb,0.19511e+02_rb,0.21026e+02_rb,0.15447e+02_rb /)\n      kbo(:, 1,45,12) = (/ &\n        & 0.23284e+01_rb,0.90519e+01_rb,0.11435e+02_rb,0.13049e+02_rb,0.92487e+01_rb /)\n      kbo(:, 2,45,12) = (/ &\n        & 0.28153e+01_rb,0.10623e+02_rb,0.13197e+02_rb,0.14880e+02_rb,0.10666e+02_rb /)\n      kbo(:, 3,45,12) = (/ &\n        & 0.33686e+01_rb,0.12254e+02_rb,0.15046e+02_rb,0.16733e+02_rb,0.12101e+02_rb /)\n      kbo(:, 4,45,12) = (/ &\n        & 0.40279e+01_rb,0.13936e+02_rb,0.16938e+02_rb,0.18583e+02_rb,0.13540e+02_rb /)\n      kbo(:, 5,45,12) = (/ &\n        & 0.47894e+01_rb,0.15648e+02_rb,0.18852e+02_rb,0.20408e+02_rb,0.14963e+02_rb /)\n      kbo(:, 1,46,12) = (/ &\n        & 0.21477e+01_rb,0.84947e+01_rb,0.10808e+02_rb,0.12382e+02_rb,0.87316e+01_rb /)\n      kbo(:, 2,46,12) = (/ &\n        & 0.26237e+01_rb,0.10040e+02_rb,0.12543e+02_rb,0.14206e+02_rb,0.10145e+02_rb /)\n      kbo(:, 3,46,12) = (/ &\n        & 0.31493e+01_rb,0.11653e+02_rb,0.14367e+02_rb,0.16054e+02_rb,0.11575e+02_rb /)\n      kbo(:, 4,46,12) = (/ &\n        & 0.37687e+01_rb,0.13319e+02_rb,0.16247e+02_rb,0.17910e+02_rb,0.13015e+02_rb /)\n      kbo(:, 5,46,12) = (/ &\n        & 0.44919e+01_rb,0.15018e+02_rb,0.18154e+02_rb,0.19746e+02_rb,0.14446e+02_rb /)\n      kbo(:, 1,47,12) = (/ &\n        & 0.19539e+01_rb,0.78866e+01_rb,0.10121e+02_rb,0.11642e+02_rb,0.81629e+01_rb /)\n      kbo(:, 2,47,12) = (/ &\n        & 0.24188e+01_rb,0.94011e+01_rb,0.11827e+02_rb,0.13461e+02_rb,0.95671e+01_rb /)\n      kbo(:, 3,47,12) = (/ &\n        & 0.29183e+01_rb,0.10990e+02_rb,0.13614e+02_rb,0.15297e+02_rb,0.10990e+02_rb /)\n      kbo(:, 4,47,12) = (/ &\n        & 0.34981e+01_rb,0.12636e+02_rb,0.15480e+02_rb,0.17155e+02_rb,0.12429e+02_rb /)\n      kbo(:, 5,47,12) = (/ &\n        & 0.41787e+01_rb,0.14323e+02_rb,0.17378e+02_rb,0.19005e+02_rb,0.13866e+02_rb /)\n      kbo(:, 1,48,12) = (/ &\n        & 0.17686e+01_rb,0.73016e+01_rb,0.94471e+01_rb,0.10908e+02_rb,0.76062e+01_rb /)\n      kbo(:, 2,48,12) = (/ &\n        & 0.22191e+01_rb,0.87750e+01_rb,0.11125e+02_rb,0.12718e+02_rb,0.89921e+01_rb /)\n      kbo(:, 3,48,12) = (/ &\n        & 0.27045e+01_rb,0.10336e+02_rb,0.12878e+02_rb,0.14548e+02_rb,0.10409e+02_rb /)\n      kbo(:, 4,48,12) = (/ &\n        & 0.32460e+01_rb,0.11962e+02_rb,0.14721e+02_rb,0.16399e+02_rb,0.11843e+02_rb /)\n      kbo(:, 5,48,12) = (/ &\n        & 0.38847e+01_rb,0.13635e+02_rb,0.16605e+02_rb,0.18256e+02_rb,0.13285e+02_rb /)\n      kbo(:, 1,49,12) = (/ &\n        & 0.15926e+01_rb,0.67448e+01_rb,0.87885e+01_rb,0.10183e+02_rb,0.70558e+01_rb /)\n      kbo(:, 2,49,12) = (/ &\n        & 0.20265e+01_rb,0.81616e+01_rb,0.10434e+02_rb,0.11978e+02_rb,0.84210e+01_rb /)\n      kbo(:, 3,49,12) = (/ &\n        & 0.24995e+01_rb,0.96943e+01_rb,0.12158e+02_rb,0.13804e+02_rb,0.98335e+01_rb /)\n      kbo(:, 4,49,12) = (/ &\n        & 0.30106e+01_rb,0.11296e+02_rb,0.13964e+02_rb,0.15645e+02_rb,0.11261e+02_rb /)\n      kbo(:, 5,49,12) = (/ &\n        & 0.36091e+01_rb,0.12953e+02_rb,0.15838e+02_rb,0.17505e+02_rb,0.12701e+02_rb /)\n      kbo(:, 1,50,12) = (/ &\n        & 0.14367e+01_rb,0.62503e+01_rb,0.81839e+01_rb,0.95114e+01_rb,0.65470e+01_rb /)\n      kbo(:, 2,50,12) = (/ &\n        & 0.18513e+01_rb,0.76037e+01_rb,0.97986e+01_rb,0.11290e+02_rb,0.78962e+01_rb /)\n      kbo(:, 3,50,12) = (/ &\n        & 0.23123e+01_rb,0.91032e+01_rb,0.11496e+02_rb,0.13108e+02_rb,0.92947e+01_rb /)\n      kbo(:, 4,50,12) = (/ &\n        & 0.28056e+01_rb,0.10680e+02_rb,0.13267e+02_rb,0.14942e+02_rb,0.10716e+02_rb /)\n      kbo(:, 5,50,12) = (/ &\n        & 0.33664e+01_rb,0.12318e+02_rb,0.15124e+02_rb,0.16800e+02_rb,0.12153e+02_rb /)\n      kbo(:, 1,51,12) = (/ &\n        & 0.12944e+01_rb,0.57936e+01_rb,0.76117e+01_rb,0.88742e+01_rb,0.60642e+01_rb /)\n      kbo(:, 2,51,12) = (/ &\n        & 0.16888e+01_rb,0.70852e+01_rb,0.91933e+01_rb,0.10628e+02_rb,0.73944e+01_rb /)\n      kbo(:, 3,51,12) = (/ &\n        & 0.21353e+01_rb,0.85416e+01_rb,0.10863e+02_rb,0.12436e+02_rb,0.87735e+01_rb /)\n      kbo(:, 4,51,12) = (/ &\n        & 0.26169e+01_rb,0.10093e+02_rb,0.12607e+02_rb,0.14266e+02_rb,0.10192e+02_rb /)\n      kbo(:, 5,51,12) = (/ &\n        & 0.31479e+01_rb,0.11711e+02_rb,0.14438e+02_rb,0.16116e+02_rb,0.11624e+02_rb /)\n      kbo(:, 1,52,12) = (/ &\n        & 0.11616e+01_rb,0.53570e+01_rb,0.70533e+01_rb,0.82560e+01_rb,0.55953e+01_rb /)\n      kbo(:, 2,52,12) = (/ &\n        & 0.15340e+01_rb,0.65899e+01_rb,0.86019e+01_rb,0.99750e+01_rb,0.68982e+01_rb /)\n      kbo(:, 3,52,12) = (/ &\n        & 0.19643e+01_rb,0.79903e+01_rb,0.10241e+02_rb,0.11768e+02_rb,0.82604e+01_rb /)\n      kbo(:, 4,52,12) = (/ &\n        & 0.24347e+01_rb,0.95157e+01_rb,0.11958e+02_rb,0.13593e+02_rb,0.96707e+01_rb /)\n      kbo(:, 5,52,12) = (/ &\n        & 0.29410e+01_rb,0.11112e+02_rb,0.13756e+02_rb,0.15434e+02_rb,0.11097e+02_rb /)\n      kbo(:, 1,53,12) = (/ &\n        & 0.10377e+01_rb,0.49398e+01_rb,0.65141e+01_rb,0.76518e+01_rb,0.51386e+01_rb /)\n      kbo(:, 2,53,12) = (/ &\n        & 0.13876e+01_rb,0.61188e+01_rb,0.80207e+01_rb,0.93291e+01_rb,0.64095e+01_rb /)\n      kbo(:, 3,53,12) = (/ &\n        & 0.17987e+01_rb,0.74567e+01_rb,0.96292e+01_rb,0.11104e+02_rb,0.77562e+01_rb /)\n      kbo(:, 4,53,12) = (/ &\n        & 0.22559e+01_rb,0.89467e+01_rb,0.11320e+02_rb,0.12921e+02_rb,0.91504e+01_rb /)\n      kbo(:, 5,53,12) = (/ &\n        & 0.27477e+01_rb,0.10518e+02_rb,0.13086e+02_rb,0.14756e+02_rb,0.10571e+02_rb /)\n      kbo(:, 1,54,12) = (/ &\n        & 0.93266e+00_rb,0.45754e+01_rb,0.60420e+01_rb,0.71108e+01_rb,0.47321e+01_rb /)\n      kbo(:, 2,54,12) = (/ &\n        & 0.12608e+01_rb,0.57055e+01_rb,0.75003e+01_rb,0.87512e+01_rb,0.59717e+01_rb /)\n      kbo(:, 3,54,12) = (/ &\n        & 0.16525e+01_rb,0.69875e+01_rb,0.90782e+01_rb,0.10501e+02_rb,0.72982e+01_rb /)\n      kbo(:, 4,54,12) = (/ &\n        & 0.20962e+01_rb,0.84351e+01_rb,0.10744e+02_rb,0.12308e+02_rb,0.86747e+01_rb /)\n      kbo(:, 5,54,12) = (/ &\n        & 0.25775e+01_rb,0.99827e+01_rb,0.12485e+02_rb,0.14138e+02_rb,0.10092e+02_rb /)\n      kbo(:, 1,55,12) = (/ &\n        & 0.84048e+00_rb,0.42428e+01_rb,0.56145e+01_rb,0.66054e+01_rb,0.43544e+01_rb /)\n      kbo(:, 2,55,12) = (/ &\n        & 0.11472e+01_rb,0.53270e+01_rb,0.70144e+01_rb,0.82122e+01_rb,0.55615e+01_rb /)\n      kbo(:, 3,55,12) = (/ &\n        & 0.15181e+01_rb,0.65556e+01_rb,0.85601e+01_rb,0.99280e+01_rb,0.68631e+01_rb /)\n      kbo(:, 4,55,12) = (/ &\n        & 0.19474e+01_rb,0.79524e+01_rb,0.10198e+02_rb,0.11721e+02_rb,0.82252e+01_rb /)\n      kbo(:, 5,55,12) = (/ &\n        & 0.24188e+01_rb,0.94776e+01_rb,0.11916e+02_rb,0.13548e+02_rb,0.96351e+01_rb /)\n      kbo(:, 1,56,12) = (/ &\n        & 0.75447e+00_rb,0.39270e+01_rb,0.52064e+01_rb,0.61093e+01_rb,0.39870e+01_rb /)\n      kbo(:, 2,56,12) = (/ &\n        & 0.10395e+01_rb,0.49623e+01_rb,0.65429e+01_rb,0.76840e+01_rb,0.51623e+01_rb /)\n      kbo(:, 3,56,12) = (/ &\n        & 0.13908e+01_rb,0.61440e+01_rb,0.80522e+01_rb,0.93640e+01_rb,0.64360e+01_rb /)\n      kbo(:, 4,56,12) = (/ &\n        & 0.18031e+01_rb,0.74859e+01_rb,0.96627e+01_rb,0.11140e+02_rb,0.77842e+01_rb /)\n      kbo(:, 5,56,12) = (/ &\n        & 0.22626e+01_rb,0.89798e+01_rb,0.11358e+02_rb,0.12960e+02_rb,0.91800e+01_rb /)\n      kbo(:, 1,57,12) = (/ &\n        & 0.67513e+00_rb,0.36336e+01_rb,0.48180e+01_rb,0.56247e+01_rb,0.36284e+01_rb /)\n      kbo(:, 2,57,12) = (/ &\n        & 0.93951e+00_rb,0.46135e+01_rb,0.60910e+01_rb,0.71671e+01_rb,0.47736e+01_rb /)\n      kbo(:, 3,57,12) = (/ &\n        & 0.12699e+01_rb,0.57481e+01_rb,0.75541e+01_rb,0.88107e+01_rb,0.60168e+01_rb /)\n      kbo(:, 4,57,12) = (/ &\n        & 0.16637e+01_rb,0.70362e+01_rb,0.91351e+01_rb,0.10564e+02_rb,0.73465e+01_rb /)\n      kbo(:, 5,57,12) = (/ &\n        & 0.21102e+01_rb,0.84904e+01_rb,0.10807e+02_rb,0.12374e+02_rb,0.87256e+01_rb /)\n      kbo(:, 1,58,12) = (/ &\n        & 0.60371e+00_rb,0.33725e+01_rb,0.44640e+01_rb,0.51801e+01_rb,0.32968e+01_rb /)\n      kbo(:, 2,58,12) = (/ &\n        & 0.85131e+00_rb,0.42951e+01_rb,0.56822e+01_rb,0.66873e+01_rb,0.44155e+01_rb /)\n      kbo(:, 3,58,12) = (/ &\n        & 0.11611e+01_rb,0.53867e+01_rb,0.70919e+01_rb,0.82985e+01_rb,0.56282e+01_rb /)\n      kbo(:, 4,58,12) = (/ &\n        & 0.15366e+01_rb,0.66258e+01_rb,0.86445e+01_rb,0.10022e+02_rb,0.69358e+01_rb /)\n      kbo(:, 5,58,12) = (/ &\n        & 0.19698e+01_rb,0.80329e+01_rb,0.10290e+02_rb,0.11819e+02_rb,0.83004e+01_rb /)\n      kbo(:, 1,59,12) = (/ &\n        & 0.57552e+00_rb,0.32717e+01_rb,0.43250e+01_rb,0.50045e+01_rb,0.31668e+01_rb /)\n      kbo(:, 2,59,12) = (/ &\n        & 0.81716e+00_rb,0.41713e+01_rb,0.55225e+01_rb,0.64964e+01_rb,0.42740e+01_rb /)\n      kbo(:, 3,59,12) = (/ &\n        & 0.11190e+01_rb,0.52446e+01_rb,0.69091e+01_rb,0.80966e+01_rb,0.54744e+01_rb /)\n      kbo(:, 4,59,12) = (/ &\n        & 0.14869e+01_rb,0.64659e+01_rb,0.84502e+01_rb,0.98065e+01_rb,0.67716e+01_rb /)\n      kbo(:, 5,59,12) = (/ &\n        & 0.19139e+01_rb,0.78535e+01_rb,0.10085e+02_rb,0.11598e+02_rb,0.81311e+01_rb /)\n      kbo(:, 1,13,13) = (/ &\n        & 0.79406e+02_rb,0.76977e+02_rb,0.79398e+02_rb,0.72265e+02_rb,0.70608e+02_rb /)\n      kbo(:, 2,13,13) = (/ &\n        & 0.78716e+02_rb,0.76325e+02_rb,0.79145e+02_rb,0.72561e+02_rb,0.71233e+02_rb /)\n      kbo(:, 3,13,13) = (/ &\n        & 0.77960e+02_rb,0.75684e+02_rb,0.78864e+02_rb,0.72811e+02_rb,0.71703e+02_rb /)\n      kbo(:, 4,13,13) = (/ &\n        & 0.77172e+02_rb,0.75038e+02_rb,0.78462e+02_rb,0.73003e+02_rb,0.72067e+02_rb /)\n      kbo(:, 5,13,13) = (/ &\n        & 0.76342e+02_rb,0.74357e+02_rb,0.78015e+02_rb,0.73077e+02_rb,0.72406e+02_rb /)\n      kbo(:, 1,14,13) = (/ &\n        & 0.74002e+02_rb,0.75964e+02_rb,0.80244e+02_rb,0.73931e+02_rb,0.67973e+02_rb /)\n      kbo(:, 2,14,13) = (/ &\n        & 0.73259e+02_rb,0.75350e+02_rb,0.80187e+02_rb,0.74373e+02_rb,0.68671e+02_rb /)\n      kbo(:, 3,14,13) = (/ &\n        & 0.72511e+02_rb,0.74741e+02_rb,0.79998e+02_rb,0.74718e+02_rb,0.69297e+02_rb /)\n      kbo(:, 4,14,13) = (/ &\n        & 0.71760e+02_rb,0.74129e+02_rb,0.79694e+02_rb,0.74933e+02_rb,0.69925e+02_rb /)\n      kbo(:, 5,14,13) = (/ &\n        & 0.70963e+02_rb,0.73482e+02_rb,0.79282e+02_rb,0.75062e+02_rb,0.70592e+02_rb /)\n      kbo(:, 1,15,13) = (/ &\n        & 0.67727e+02_rb,0.74204e+02_rb,0.79973e+02_rb,0.74524e+02_rb,0.64503e+02_rb /)\n      kbo(:, 2,15,13) = (/ &\n        & 0.66995e+02_rb,0.73663e+02_rb,0.80067e+02_rb,0.75070e+02_rb,0.65404e+02_rb /)\n      kbo(:, 3,15,13) = (/ &\n        & 0.66299e+02_rb,0.73080e+02_rb,0.80001e+02_rb,0.75489e+02_rb,0.66341e+02_rb /)\n      kbo(:, 4,15,13) = (/ &\n        & 0.65584e+02_rb,0.72498e+02_rb,0.79808e+02_rb,0.75814e+02_rb,0.67293e+02_rb /)\n      kbo(:, 5,15,13) = (/ &\n        & 0.64881e+02_rb,0.71894e+02_rb,0.79644e+02_rb,0.76073e+02_rb,0.68159e+02_rb /)\n      kbo(:, 1,16,13) = (/ &\n        & 0.60910e+02_rb,0.71706e+02_rb,0.78658e+02_rb,0.73971e+02_rb,0.60740e+02_rb /)\n      kbo(:, 2,16,13) = (/ &\n        & 0.60264e+02_rb,0.71204e+02_rb,0.78897e+02_rb,0.74647e+02_rb,0.61882e+02_rb /)\n      kbo(:, 3,16,13) = (/ &\n        & 0.59646e+02_rb,0.70743e+02_rb,0.78998e+02_rb,0.75253e+02_rb,0.63062e+02_rb /)\n      kbo(:, 4,16,13) = (/ &\n        & 0.59033e+02_rb,0.70274e+02_rb,0.79093e+02_rb,0.75819e+02_rb,0.64263e+02_rb /)\n      kbo(:, 5,16,13) = (/ &\n        & 0.58482e+02_rb,0.69838e+02_rb,0.79175e+02_rb,0.76359e+02_rb,0.65453e+02_rb /)\n      kbo(:, 1,17,13) = (/ &\n        & 0.53962e+02_rb,0.68666e+02_rb,0.76384e+02_rb,0.72467e+02_rb,0.57058e+02_rb /)\n      kbo(:, 2,17,13) = (/ &\n        & 0.53430e+02_rb,0.68393e+02_rb,0.76843e+02_rb,0.73413e+02_rb,0.58438e+02_rb /)\n      kbo(:, 3,17,13) = (/ &\n        & 0.52920e+02_rb,0.68105e+02_rb,0.77273e+02_rb,0.74323e+02_rb,0.59869e+02_rb /)\n      kbo(:, 4,17,13) = (/ &\n        & 0.52483e+02_rb,0.67847e+02_rb,0.77698e+02_rb,0.75214e+02_rb,0.61307e+02_rb /)\n      kbo(:, 5,17,13) = (/ &\n        & 0.52082e+02_rb,0.67535e+02_rb,0.78034e+02_rb,0.76077e+02_rb,0.62785e+02_rb /)\n      kbo(:, 1,18,13) = (/ &\n        & 0.47235e+02_rb,0.65232e+02_rb,0.73440e+02_rb,0.70305e+02_rb,0.53676e+02_rb /)\n      kbo(:, 2,18,13) = (/ &\n        & 0.46798e+02_rb,0.65205e+02_rb,0.74239e+02_rb,0.71589e+02_rb,0.55262e+02_rb /)\n      kbo(:, 3,18,13) = (/ &\n        & 0.46439e+02_rb,0.65179e+02_rb,0.75037e+02_rb,0.72870e+02_rb,0.56922e+02_rb /)\n      kbo(:, 4,18,13) = (/ &\n        & 0.46165e+02_rb,0.65077e+02_rb,0.75787e+02_rb,0.74113e+02_rb,0.58606e+02_rb /)\n      kbo(:, 5,18,13) = (/ &\n        & 0.46076e+02_rb,0.64950e+02_rb,0.76497e+02_rb,0.75319e+02_rb,0.60364e+02_rb /)\n      kbo(:, 1,19,13) = (/ &\n        & 0.40875e+02_rb,0.61443e+02_rb,0.70167e+02_rb,0.67815e+02_rb,0.50666e+02_rb /)\n      kbo(:, 2,19,13) = (/ &\n        & 0.40599e+02_rb,0.61754e+02_rb,0.71348e+02_rb,0.69451e+02_rb,0.52443e+02_rb /)\n      kbo(:, 3,19,13) = (/ &\n        & 0.40423e+02_rb,0.61971e+02_rb,0.72494e+02_rb,0.71103e+02_rb,0.54265e+02_rb /)\n      kbo(:, 4,19,13) = (/ &\n        & 0.40489e+02_rb,0.62135e+02_rb,0.73624e+02_rb,0.72723e+02_rb,0.56176e+02_rb /)\n      kbo(:, 5,19,13) = (/ &\n        & 0.40909e+02_rb,0.62251e+02_rb,0.74691e+02_rb,0.74287e+02_rb,0.58151e+02_rb /)\n      kbo(:, 1,20,13) = (/ &\n        & 0.35203e+02_rb,0.57554e+02_rb,0.66740e+02_rb,0.65266e+02_rb,0.47986e+02_rb /)\n      kbo(:, 2,20,13) = (/ &\n        & 0.35059e+02_rb,0.58164e+02_rb,0.68281e+02_rb,0.67270e+02_rb,0.49928e+02_rb /)\n      kbo(:, 3,20,13) = (/ &\n        & 0.35179e+02_rb,0.58679e+02_rb,0.69865e+02_rb,0.69298e+02_rb,0.51957e+02_rb /)\n      kbo(:, 4,20,13) = (/ &\n        & 0.35687e+02_rb,0.59136e+02_rb,0.71375e+02_rb,0.71295e+02_rb,0.54068e+02_rb /)\n      kbo(:, 5,20,13) = (/ &\n        & 0.36572e+02_rb,0.59563e+02_rb,0.72814e+02_rb,0.73197e+02_rb,0.56184e+02_rb /)\n      kbo(:, 1,21,13) = (/ &\n        & 0.30294e+02_rb,0.53730e+02_rb,0.63335e+02_rb,0.62843e+02_rb,0.45639e+02_rb /)\n      kbo(:, 2,21,13) = (/ &\n        & 0.30407e+02_rb,0.54622e+02_rb,0.65309e+02_rb,0.65230e+02_rb,0.47736e+02_rb /)\n      kbo(:, 3,21,13) = (/ &\n        & 0.30898e+02_rb,0.55470e+02_rb,0.67283e+02_rb,0.67630e+02_rb,0.49955e+02_rb /)\n      kbo(:, 4,21,13) = (/ &\n        & 0.31814e+02_rb,0.56234e+02_rb,0.69205e+02_rb,0.69979e+02_rb,0.52223e+02_rb /)\n      kbo(:, 5,21,13) = (/ &\n        & 0.33171e+02_rb,0.57002e+02_rb,0.70988e+02_rb,0.72170e+02_rb,0.54507e+02_rb /)\n      kbo(:, 1,22,13) = (/ &\n        & 0.26203e+02_rb,0.50178e+02_rb,0.60369e+02_rb,0.60883e+02_rb,0.43752e+02_rb /)\n      kbo(:, 2,22,13) = (/ &\n        & 0.26668e+02_rb,0.51399e+02_rb,0.62731e+02_rb,0.63628e+02_rb,0.46055e+02_rb /)\n      kbo(:, 3,22,13) = (/ &\n        & 0.27573e+02_rb,0.52567e+02_rb,0.65094e+02_rb,0.66337e+02_rb,0.48427e+02_rb /)\n      kbo(:, 4,22,13) = (/ &\n        & 0.28933e+02_rb,0.53710e+02_rb,0.67379e+02_rb,0.68992e+02_rb,0.50840e+02_rb /)\n      kbo(:, 5,22,13) = (/ &\n        & 0.30713e+02_rb,0.54842e+02_rb,0.69500e+02_rb,0.71453e+02_rb,0.53313e+02_rb /)\n      kbo(:, 1,23,13) = (/ &\n        & 0.22949e+02_rb,0.47062e+02_rb,0.57786e+02_rb,0.59287e+02_rb,0.42207e+02_rb /)\n      kbo(:, 2,23,13) = (/ &\n        & 0.23779e+02_rb,0.48563e+02_rb,0.60567e+02_rb,0.62337e+02_rb,0.44709e+02_rb /)\n      kbo(:, 3,23,13) = (/ &\n        & 0.25087e+02_rb,0.50088e+02_rb,0.63282e+02_rb,0.65361e+02_rb,0.47224e+02_rb /)\n      kbo(:, 4,23,13) = (/ &\n        & 0.26833e+02_rb,0.51601e+02_rb,0.65861e+02_rb,0.68253e+02_rb,0.49790e+02_rb /)\n      kbo(:, 5,23,13) = (/ &\n        & 0.28975e+02_rb,0.53148e+02_rb,0.68312e+02_rb,0.70979e+02_rb,0.52442e+02_rb /)\n      kbo(:, 1,24,13) = (/ &\n        & 0.20450e+02_rb,0.44418e+02_rb,0.55719e+02_rb,0.58070e+02_rb,0.41028e+02_rb /)\n      kbo(:, 2,24,13) = (/ &\n        & 0.21647e+02_rb,0.46218e+02_rb,0.58860e+02_rb,0.61413e+02_rb,0.43697e+02_rb /)\n      kbo(:, 3,24,13) = (/ &\n        & 0.23313e+02_rb,0.48082e+02_rb,0.61856e+02_rb,0.64696e+02_rb,0.46357e+02_rb /)\n      kbo(:, 4,24,13) = (/ &\n        & 0.25383e+02_rb,0.49987e+02_rb,0.64735e+02_rb,0.67792e+02_rb,0.49079e+02_rb /)\n      kbo(:, 5,24,13) = (/ &\n        & 0.27788e+02_rb,0.51882e+02_rb,0.67449e+02_rb,0.70725e+02_rb,0.51885e+02_rb /)\n      kbo(:, 1,25,13) = (/ &\n        & 0.18632e+02_rb,0.42267e+02_rb,0.54194e+02_rb,0.57249e+02_rb,0.40189e+02_rb /)\n      kbo(:, 2,25,13) = (/ &\n        & 0.20151e+02_rb,0.44393e+02_rb,0.57583e+02_rb,0.60858e+02_rb,0.43004e+02_rb /)\n      kbo(:, 3,25,13) = (/ &\n        & 0.22101e+02_rb,0.46593e+02_rb,0.60865e+02_rb,0.64337e+02_rb,0.45809e+02_rb /)\n      kbo(:, 4,25,13) = (/ &\n        & 0.24391e+02_rb,0.48836e+02_rb,0.63984e+02_rb,0.67613e+02_rb,0.48696e+02_rb /)\n      kbo(:, 5,25,13) = (/ &\n        & 0.26959e+02_rb,0.50995e+02_rb,0.66882e+02_rb,0.70682e+02_rb,0.51602e+02_rb /)\n      kbo(:, 1,26,13) = (/ &\n        & 0.17370e+02_rb,0.40657e+02_rb,0.53173e+02_rb,0.56858e+02_rb,0.39692e+02_rb /)\n      kbo(:, 2,26,13) = (/ &\n        & 0.19155e+02_rb,0.43087e+02_rb,0.56801e+02_rb,0.60671e+02_rb,0.42632e+02_rb /)\n      kbo(:, 3,26,13) = (/ &\n        & 0.21292e+02_rb,0.45598e+02_rb,0.60302e+02_rb,0.64290e+02_rb,0.45592e+02_rb /)\n      kbo(:, 4,26,13) = (/ &\n        & 0.23727e+02_rb,0.48098e+02_rb,0.63591e+02_rb,0.67690e+02_rb,0.48603e+02_rb /)\n      kbo(:, 5,26,13) = (/ &\n        & 0.26455e+02_rb,0.50493e+02_rb,0.66616e+02_rb,0.70861e+02_rb,0.51588e+02_rb /)\n      kbo(:, 1,27,13) = (/ &\n        & 0.16499e+02_rb,0.39533e+02_rb,0.52563e+02_rb,0.56787e+02_rb,0.39461e+02_rb /)\n      kbo(:, 2,27,13) = (/ &\n        & 0.18462e+02_rb,0.42240e+02_rb,0.56391e+02_rb,0.60738e+02_rb,0.42525e+02_rb /)\n      kbo(:, 3,27,13) = (/ &\n        & 0.20737e+02_rb,0.45009e+02_rb,0.60060e+02_rb,0.64459e+02_rb,0.45612e+02_rb /)\n      kbo(:, 4,27,13) = (/ &\n        & 0.23336e+02_rb,0.47712e+02_rb,0.63452e+02_rb,0.67944e+02_rb,0.48705e+02_rb /)\n      kbo(:, 5,27,13) = (/ &\n        & 0.26215e+02_rb,0.50322e+02_rb,0.66583e+02_rb,0.71174e+02_rb,0.51756e+02_rb /)\n      kbo(:, 1,28,13) = (/ &\n        & 0.15882e+02_rb,0.38845e+02_rb,0.52318e+02_rb,0.56965e+02_rb,0.39468e+02_rb /)\n      kbo(:, 2,28,13) = (/ &\n        & 0.17994e+02_rb,0.41785e+02_rb,0.56289e+02_rb,0.61007e+02_rb,0.42649e+02_rb /)\n      kbo(:, 3,28,13) = (/ &\n        & 0.20424e+02_rb,0.44749e+02_rb,0.60052e+02_rb,0.64808e+02_rb,0.45826e+02_rb /)\n      kbo(:, 4,28,13) = (/ &\n        & 0.23178e+02_rb,0.47630e+02_rb,0.63526e+02_rb,0.68347e+02_rb,0.48967e+02_rb /)\n      kbo(:, 5,28,13) = (/ &\n        & 0.26217e+02_rb,0.50385e+02_rb,0.66714e+02_rb,0.71584e+02_rb,0.52071e+02_rb /)\n      kbo(:, 1,29,13) = (/ &\n        & 0.15496e+02_rb,0.38533e+02_rb,0.52388e+02_rb,0.57377e+02_rb,0.39687e+02_rb /)\n      kbo(:, 2,29,13) = (/ &\n        & 0.17758e+02_rb,0.41667e+02_rb,0.56458e+02_rb,0.61470e+02_rb,0.42963e+02_rb /)\n      kbo(:, 3,29,13) = (/ &\n        & 0.20345e+02_rb,0.44782e+02_rb,0.60267e+02_rb,0.65320e+02_rb,0.46203e+02_rb /)\n      kbo(:, 4,29,13) = (/ &\n        & 0.23257e+02_rb,0.47788e+02_rb,0.63789e+02_rb,0.68865e+02_rb,0.49378e+02_rb /)\n      kbo(:, 5,29,13) = (/ &\n        & 0.26442e+02_rb,0.50623e+02_rb,0.67004e+02_rb,0.72085e+02_rb,0.52513e+02_rb /)\n      kbo(:, 1,30,13) = (/ &\n        & 0.15305e+02_rb,0.38520e+02_rb,0.52687e+02_rb,0.57942e+02_rb,0.40075e+02_rb /)\n      kbo(:, 2,30,13) = (/ &\n        & 0.17725e+02_rb,0.41787e+02_rb,0.56809e+02_rb,0.62069e+02_rb,0.43408e+02_rb /)\n      kbo(:, 3,30,13) = (/ &\n        & 0.20471e+02_rb,0.45011e+02_rb,0.60646e+02_rb,0.65935e+02_rb,0.46678e+02_rb /)\n      kbo(:, 4,30,13) = (/ &\n        & 0.23532e+02_rb,0.48109e+02_rb,0.64191e+02_rb,0.69457e+02_rb,0.49879e+02_rb /)\n      kbo(:, 5,30,13) = (/ &\n        & 0.26835e+02_rb,0.50980e+02_rb,0.67409e+02_rb,0.72648e+02_rb,0.53041e+02_rb /)\n      kbo(:, 1,31,13) = (/ &\n        & 0.15319e+02_rb,0.38759e+02_rb,0.53187e+02_rb,0.58637e+02_rb,0.40597e+02_rb /)\n      kbo(:, 2,31,13) = (/ &\n        & 0.17890e+02_rb,0.42121e+02_rb,0.57326e+02_rb,0.62778e+02_rb,0.43969e+02_rb /)\n      kbo(:, 3,31,13) = (/ &\n        & 0.20784e+02_rb,0.45419e+02_rb,0.61174e+02_rb,0.66627e+02_rb,0.47246e+02_rb /)\n      kbo(:, 4,31,13) = (/ &\n        & 0.23963e+02_rb,0.48555e+02_rb,0.64709e+02_rb,0.70119e+02_rb,0.50470e+02_rb /)\n      kbo(:, 5,31,13) = (/ &\n        & 0.27377e+02_rb,0.51448e+02_rb,0.67912e+02_rb,0.73265e+02_rb,0.53642e+02_rb /)\n      kbo(:, 1,32,13) = (/ &\n        & 0.15518e+02_rb,0.39176e+02_rb,0.53833e+02_rb,0.59441e+02_rb,0.41231e+02_rb /)\n      kbo(:, 2,32,13) = (/ &\n        & 0.18219e+02_rb,0.42608e+02_rb,0.57967e+02_rb,0.63575e+02_rb,0.44614e+02_rb /)\n      kbo(:, 3,32,13) = (/ &\n        & 0.21240e+02_rb,0.45958e+02_rb,0.61807e+02_rb,0.67376e+02_rb,0.47899e+02_rb /)\n      kbo(:, 4,32,13) = (/ &\n        & 0.24535e+02_rb,0.49103e+02_rb,0.65323e+02_rb,0.70819e+02_rb,0.51129e+02_rb /)\n      kbo(:, 5,32,13) = (/ &\n        & 0.28030e+02_rb,0.51991e+02_rb,0.68477e+02_rb,0.73912e+02_rb,0.54297e+02_rb /)\n      kbo(:, 1,33,13) = (/ &\n        & 0.15857e+02_rb,0.39728e+02_rb,0.54587e+02_rb,0.60326e+02_rb,0.41934e+02_rb /)\n      kbo(:, 2,33,13) = (/ &\n        & 0.18681e+02_rb,0.43207e+02_rb,0.58700e+02_rb,0.64428e+02_rb,0.45312e+02_rb /)\n      kbo(:, 3,33,13) = (/ &\n        & 0.21817e+02_rb,0.46584e+02_rb,0.62510e+02_rb,0.68164e+02_rb,0.48601e+02_rb /)\n      kbo(:, 4,33,13) = (/ &\n        & 0.25208e+02_rb,0.49716e+02_rb,0.65986e+02_rb,0.71546e+02_rb,0.51832e+02_rb /)\n      kbo(:, 5,33,13) = (/ &\n        & 0.28769e+02_rb,0.52588e+02_rb,0.69085e+02_rb,0.74576e+02_rb,0.54996e+02_rb /)\n      kbo(:, 1,34,13) = (/ &\n        & 0.16218e+02_rb,0.40255e+02_rb,0.55264e+02_rb,0.61104e+02_rb,0.42563e+02_rb /)\n      kbo(:, 2,34,13) = (/ &\n        & 0.19136e+02_rb,0.43775e+02_rb,0.59363e+02_rb,0.65173e+02_rb,0.45933e+02_rb /)\n      kbo(:, 3,34,13) = (/ &\n        & 0.22367e+02_rb,0.47148e+02_rb,0.63138e+02_rb,0.68848e+02_rb,0.49223e+02_rb /)\n      kbo(:, 4,34,13) = (/ &\n        & 0.25824e+02_rb,0.50264e+02_rb,0.66569e+02_rb,0.72180e+02_rb,0.52454e+02_rb /)\n      kbo(:, 5,34,13) = (/ &\n        & 0.29432e+02_rb,0.53119e+02_rb,0.69617e+02_rb,0.75149e+02_rb,0.55607e+02_rb /)\n      kbo(:, 1,35,13) = (/ &\n        & 0.16382e+02_rb,0.40509e+02_rb,0.55591e+02_rb,0.61512e+02_rb,0.42891e+02_rb /)\n      kbo(:, 2,35,13) = (/ &\n        & 0.19362e+02_rb,0.44056e+02_rb,0.59682e+02_rb,0.65556e+02_rb,0.46259e+02_rb /)\n      kbo(:, 3,35,13) = (/ &\n        & 0.22646e+02_rb,0.47437e+02_rb,0.63450e+02_rb,0.69212e+02_rb,0.49551e+02_rb /)\n      kbo(:, 4,35,13) = (/ &\n        & 0.26140e+02_rb,0.50553e+02_rb,0.66864e+02_rb,0.72519e+02_rb,0.52785e+02_rb /)\n      kbo(:, 5,35,13) = (/ &\n        & 0.29778e+02_rb,0.53403e+02_rb,0.69889e+02_rb,0.75460e+02_rb,0.55937e+02_rb /)\n      kbo(:, 1,36,13) = (/ &\n        & 0.16282e+02_rb,0.40412e+02_rb,0.55499e+02_rb,0.61489e+02_rb,0.42866e+02_rb /)\n      kbo(:, 2,36,13) = (/ &\n        & 0.19286e+02_rb,0.43996e+02_rb,0.59618e+02_rb,0.65550e+02_rb,0.46244e+02_rb /)\n      kbo(:, 3,36,13) = (/ &\n        & 0.22586e+02_rb,0.47399e+02_rb,0.63406e+02_rb,0.69212e+02_rb,0.49542e+02_rb /)\n      kbo(:, 4,36,13) = (/ &\n        & 0.26096e+02_rb,0.50533e+02_rb,0.66829e+02_rb,0.72526e+02_rb,0.52781e+02_rb /)\n      kbo(:, 5,36,13) = (/ &\n        & 0.29750e+02_rb,0.53407e+02_rb,0.69875e+02_rb,0.75478e+02_rb,0.55943e+02_rb /)\n      kbo(:, 1,37,13) = (/ &\n        & 0.15776e+02_rb,0.39797e+02_rb,0.54788e+02_rb,0.60844e+02_rb,0.42332e+02_rb /)\n      kbo(:, 2,37,13) = (/ &\n        & 0.18757e+02_rb,0.43418e+02_rb,0.58970e+02_rb,0.64965e+02_rb,0.45736e+02_rb /)\n      kbo(:, 3,37,13) = (/ &\n        & 0.22032e+02_rb,0.46879e+02_rb,0.62830e+02_rb,0.68697e+02_rb,0.49053e+02_rb /)\n      kbo(:, 4,37,13) = (/ &\n        & 0.25533e+02_rb,0.50076e+02_rb,0.66324e+02_rb,0.72072e+02_rb,0.52311e+02_rb /)\n      kbo(:, 5,37,13) = (/ &\n        & 0.29180e+02_rb,0.52997e+02_rb,0.69437e+02_rb,0.75080e+02_rb,0.55481e+02_rb /)\n      kbo(:, 1,38,13) = (/ &\n        & 0.15271e+02_rb,0.39166e+02_rb,0.54054e+02_rb,0.60165e+02_rb,0.41777e+02_rb /)\n      kbo(:, 2,38,13) = (/ &\n        & 0.18227e+02_rb,0.42823e+02_rb,0.58302e+02_rb,0.64350e+02_rb,0.45207e+02_rb /)\n      kbo(:, 3,38,13) = (/ &\n        & 0.21473e+02_rb,0.46333e+02_rb,0.62224e+02_rb,0.68144e+02_rb,0.48540e+02_rb /)\n      kbo(:, 4,38,13) = (/ &\n        & 0.24954e+02_rb,0.49588e+02_rb,0.65790e+02_rb,0.71578e+02_rb,0.51811e+02_rb /)\n      kbo(:, 5,38,13) = (/ &\n        & 0.28592e+02_rb,0.52564e+02_rb,0.68973e+02_rb,0.74653e+02_rb,0.55000e+02_rb /)\n      kbo(:, 1,39,13) = (/ &\n        & 0.14788e+02_rb,0.38557e+02_rb,0.53339e+02_rb,0.59493e+02_rb,0.41232e+02_rb /)\n      kbo(:, 2,39,13) = (/ &\n        & 0.17725e+02_rb,0.42239e+02_rb,0.57643e+02_rb,0.63735e+02_rb,0.44689e+02_rb /)\n      kbo(:, 3,39,13) = (/ &\n        & 0.20936e+02_rb,0.45800e+02_rb,0.61629e+02_rb,0.67599e+02_rb,0.48036e+02_rb /)\n      kbo(:, 4,39,13) = (/ &\n        & 0.24393e+02_rb,0.49102e+02_rb,0.65258e+02_rb,0.71089e+02_rb,0.51322e+02_rb /)\n      kbo(:, 5,39,13) = (/ &\n        & 0.28020e+02_rb,0.52130e+02_rb,0.68507e+02_rb,0.74225e+02_rb,0.54528e+02_rb /)\n      kbo(:, 1,40,13) = (/ &\n        & 0.14035e+02_rb,0.37576e+02_rb,0.52178e+02_rb,0.58374e+02_rb,0.40328e+02_rb /)\n      kbo(:, 2,40,13) = (/ &\n        & 0.16933e+02_rb,0.41290e+02_rb,0.56557e+02_rb,0.62694e+02_rb,0.43829e+02_rb /)\n      kbo(:, 3,40,13) = (/ &\n        & 0.20073e+02_rb,0.44909e+02_rb,0.60638e+02_rb,0.66668e+02_rb,0.47203e+02_rb /)\n      kbo(:, 4,40,13) = (/ &\n        & 0.23486e+02_rb,0.48287e+02_rb,0.64365e+02_rb,0.70250e+02_rb,0.50504e+02_rb /)\n      kbo(:, 5,40,13) = (/ &\n        & 0.27084e+02_rb,0.51393e+02_rb,0.67719e+02_rb,0.73485e+02_rb,0.53736e+02_rb /)\n      kbo(:, 1,41,13) = (/ &\n        & 0.13270e+02_rb,0.36551e+02_rb,0.50952e+02_rb,0.57187e+02_rb,0.39381e+02_rb /)\n      kbo(:, 2,41,13) = (/ &\n        & 0.16132e+02_rb,0.40293e+02_rb,0.55396e+02_rb,0.61573e+02_rb,0.42921e+02_rb /)\n      kbo(:, 3,41,13) = (/ &\n        & 0.19195e+02_rb,0.43957e+02_rb,0.59575e+02_rb,0.65658e+02_rb,0.46320e+02_rb /)\n      kbo(:, 4,41,13) = (/ &\n        & 0.22552e+02_rb,0.47415e+02_rb,0.63413e+02_rb,0.69340e+02_rb,0.49639e+02_rb /)\n      kbo(:, 5,41,13) = (/ &\n        & 0.26115e+02_rb,0.50603e+02_rb,0.66868e+02_rb,0.72675e+02_rb,0.52897e+02_rb /)\n      kbo(:, 1,42,13) = (/ &\n        & 0.12533e+02_rb,0.35537e+02_rb,0.49715e+02_rb,0.55979e+02_rb,0.38430e+02_rb /)\n      kbo(:, 2,42,13) = (/ &\n        & 0.15340e+02_rb,0.39292e+02_rb,0.54229e+02_rb,0.60445e+02_rb,0.42004e+02_rb /)\n      kbo(:, 3,42,13) = (/ &\n        & 0.18342e+02_rb,0.42991e+02_rb,0.58494e+02_rb,0.64631e+02_rb,0.45437e+02_rb /)\n      kbo(:, 4,42,13) = (/ &\n        & 0.21634e+02_rb,0.46527e+02_rb,0.62435e+02_rb,0.68417e+02_rb,0.48777e+02_rb /)\n      kbo(:, 5,42,13) = (/ &\n        & 0.25154e+02_rb,0.49791e+02_rb,0.65989e+02_rb,0.71836e+02_rb,0.52054e+02_rb /)\n      kbo(:, 1,43,13) = (/ &\n        & 0.11668e+02_rb,0.34309e+02_rb,0.48203e+02_rb,0.54498e+02_rb,0.37270e+02_rb /)\n      kbo(:, 2,43,13) = (/ &\n        & 0.14402e+02_rb,0.38082e+02_rb,0.52797e+02_rb,0.59048e+02_rb,0.40873e+02_rb /)\n      kbo(:, 3,43,13) = (/ &\n        & 0.17344e+02_rb,0.41812e+02_rb,0.57160e+02_rb,0.63341e+02_rb,0.44355e+02_rb /)\n      kbo(:, 4,43,13) = (/ &\n        & 0.20545e+02_rb,0.45427e+02_rb,0.61209e+02_rb,0.67260e+02_rb,0.47724e+02_rb /)\n      kbo(:, 5,43,13) = (/ &\n        & 0.24007e+02_rb,0.48779e+02_rb,0.64893e+02_rb,0.70794e+02_rb,0.51019e+02_rb /)\n      kbo(:, 1,44,13) = (/ &\n        & 0.10777e+02_rb,0.32982e+02_rb,0.46555e+02_rb,0.52865e+02_rb,0.36017e+02_rb /)\n      kbo(:, 2,44,13) = (/ &\n        & 0.13422e+02_rb,0.36774e+02_rb,0.51234e+02_rb,0.57518e+02_rb,0.39647e+02_rb /)\n      kbo(:, 3,44,13) = (/ &\n        & 0.16301e+02_rb,0.40529e+02_rb,0.55688e+02_rb,0.61909e+02_rb,0.43184e+02_rb /)\n      kbo(:, 4,44,13) = (/ &\n        & 0.19410e+02_rb,0.44205e+02_rb,0.59841e+02_rb,0.65956e+02_rb,0.46575e+02_rb /)\n      kbo(:, 5,44,13) = (/ &\n        & 0.22792e+02_rb,0.47657e+02_rb,0.63668e+02_rb,0.69623e+02_rb,0.49898e+02_rb /)\n      kbo(:, 1,45,13) = (/ &\n        & 0.99376e+01_rb,0.31658e+02_rb,0.44891e+02_rb,0.51201e+02_rb,0.34758e+02_rb /)\n      kbo(:, 2,45,13) = (/ &\n        & 0.12468e+02_rb,0.35468e+02_rb,0.49648e+02_rb,0.55955e+02_rb,0.38412e+02_rb /)\n      kbo(:, 3,45,13) = (/ &\n        & 0.15282e+02_rb,0.39240e+02_rb,0.54182e+02_rb,0.60441e+02_rb,0.41991e+02_rb /)\n      kbo(:, 4,45,13) = (/ &\n        & 0.18307e+02_rb,0.42958e+02_rb,0.58447e+02_rb,0.64617e+02_rb,0.45427e+02_rb /)\n      kbo(:, 5,45,13) = (/ &\n        & 0.21602e+02_rb,0.46508e+02_rb,0.62404e+02_rb,0.68417e+02_rb,0.48775e+02_rb /)\n      kbo(:, 1,46,13) = (/ &\n        & 0.90997e+01_rb,0.30250e+02_rb,0.43114e+02_rb,0.49420e+02_rb,0.33417e+02_rb /)\n      kbo(:, 2,46,13) = (/ &\n        & 0.11497e+02_rb,0.34076e+02_rb,0.47932e+02_rb,0.54263e+02_rb,0.37087e+02_rb /)\n      kbo(:, 3,46,13) = (/ &\n        & 0.14229e+02_rb,0.37865e+02_rb,0.52547e+02_rb,0.58836e+02_rb,0.40705e+02_rb /)\n      kbo(:, 4,46,13) = (/ &\n        & 0.17178e+02_rb,0.41613e+02_rb,0.56930e+02_rb,0.63142e+02_rb,0.44193e+02_rb /)\n      kbo(:, 5,46,13) = (/ &\n        & 0.20366e+02_rb,0.45251e+02_rb,0.61008e+02_rb,0.67091e+02_rb,0.47569e+02_rb /)\n      kbo(:, 1,47,13) = (/ &\n        & 0.82326e+01_rb,0.28698e+02_rb,0.41131e+02_rb,0.47406e+02_rb,0.31895e+02_rb /)\n      kbo(:, 2,47,13) = (/ &\n        & 0.10467e+02_rb,0.32516e+02_rb,0.45987e+02_rb,0.52322e+02_rb,0.35605e+02_rb /)\n      kbo(:, 3,47,13) = (/ &\n        & 0.13084e+02_rb,0.36324e+02_rb,0.50700e+02_rb,0.57015e+02_rb,0.39250e+02_rb /)\n      kbo(:, 4,47,13) = (/ &\n        & 0.15956e+02_rb,0.40097e+02_rb,0.55181e+02_rb,0.61437e+02_rb,0.42802e+02_rb /)\n      kbo(:, 5,47,13) = (/ &\n        & 0.19031e+02_rb,0.43799e+02_rb,0.59396e+02_rb,0.65543e+02_rb,0.46212e+02_rb /)\n      kbo(:, 1,48,13) = (/ &\n        & 0.74393e+01_rb,0.27161e+02_rb,0.39157e+02_rb,0.45343e+02_rb,0.30350e+02_rb /)\n      kbo(:, 2,48,13) = (/ &\n        & 0.95049e+01_rb,0.30953e+02_rb,0.44020e+02_rb,0.50347e+02_rb,0.34113e+02_rb /)\n      kbo(:, 3,48,13) = (/ &\n        & 0.11978e+02_rb,0.34782e+02_rb,0.48813e+02_rb,0.55151e+02_rb,0.37782e+02_rb /)\n      kbo(:, 4,48,13) = (/ &\n        & 0.14764e+02_rb,0.38570e+02_rb,0.53387e+02_rb,0.59681e+02_rb,0.41384e+02_rb /)\n      kbo(:, 5,48,13) = (/ &\n        & 0.17748e+02_rb,0.42312e+02_rb,0.57728e+02_rb,0.63933e+02_rb,0.44844e+02_rb /)\n      kbo(:, 1,49,13) = (/ &\n        & 0.67167e+01_rb,0.25650e+02_rb,0.37197e+02_rb,0.43247e+02_rb,0.28796e+02_rb /)\n      kbo(:, 2,49,13) = (/ &\n        & 0.86101e+01_rb,0.29402e+02_rb,0.42045e+02_rb,0.48354e+02_rb,0.32610e+02_rb /)\n      kbo(:, 3,49,13) = (/ &\n        & 0.10926e+02_rb,0.33234e+02_rb,0.46891e+02_rb,0.53243e+02_rb,0.36305e+02_rb /)\n      kbo(:, 4,49,13) = (/ &\n        & 0.13605e+02_rb,0.37035e+02_rb,0.51562e+02_rb,0.57884e+02_rb,0.39936e+02_rb /)\n      kbo(:, 5,49,13) = (/ &\n        & 0.16513e+02_rb,0.40804e+02_rb,0.56010e+02_rb,0.62260e+02_rb,0.43466e+02_rb /)\n      kbo(:, 1,50,13) = (/ &\n        & 0.60927e+01_rb,0.24264e+02_rb,0.35366e+02_rb,0.41271e+02_rb,0.27331e+02_rb /)\n      kbo(:, 2,50,13) = (/ &\n        & 0.78376e+01_rb,0.27958e+02_rb,0.40194e+02_rb,0.46451e+02_rb,0.31176e+02_rb /)\n      kbo(:, 3,50,13) = (/ &\n        & 0.99975e+01_rb,0.31777e+02_rb,0.45061e+02_rb,0.51408e+02_rb,0.34914e+02_rb /)\n      kbo(:, 4,50,13) = (/ &\n        & 0.12552e+02_rb,0.35595e+02_rb,0.49816e+02_rb,0.56159e+02_rb,0.38569e+02_rb /)\n      kbo(:, 5,50,13) = (/ &\n        & 0.15384e+02_rb,0.39379e+02_rb,0.54352e+02_rb,0.60637e+02_rb,0.42153e+02_rb /)\n      kbo(:, 1,51,13) = (/ &\n        & 0.55303e+01_rb,0.22951e+02_rb,0.33599e+02_rb,0.39341e+02_rb,0.25901e+02_rb /)\n      kbo(:, 2,51,13) = (/ &\n        & 0.71468e+01_rb,0.26574e+02_rb,0.38412e+02_rb,0.44565e+02_rb,0.29771e+02_rb /)\n      kbo(:, 3,51,13) = (/ &\n        & 0.91530e+01_rb,0.30360e+02_rb,0.43274e+02_rb,0.49608e+02_rb,0.33559e+02_rb /)\n      kbo(:, 4,51,13) = (/ &\n        & 0.11570e+02_rb,0.34196e+02_rb,0.48091e+02_rb,0.54457e+02_rb,0.37233e+02_rb /)\n      kbo(:, 5,51,13) = (/ &\n        & 0.14322e+02_rb,0.37996e+02_rb,0.52708e+02_rb,0.59018e+02_rb,0.40851e+02_rb /)\n      kbo(:, 1,52,13) = (/ &\n        & 0.50134e+01_rb,0.21673e+02_rb,0.31833e+02_rb,0.37382e+02_rb,0.24463e+02_rb /)\n      kbo(:, 2,52,13) = (/ &\n        & 0.65135e+01_rb,0.25216e+02_rb,0.36639e+02_rb,0.42658e+02_rb,0.28359e+02_rb /)\n      kbo(:, 3,52,13) = (/ &\n        & 0.83642e+01_rb,0.28959e+02_rb,0.41485e+02_rb,0.47797e+02_rb,0.32187e+02_rb /)\n      kbo(:, 4,52,13) = (/ &\n        & 0.10636e+02_rb,0.32789e+02_rb,0.46344e+02_rb,0.52709e+02_rb,0.35895e+02_rb /)\n      kbo(:, 5,52,13) = (/ &\n        & 0.13285e+02_rb,0.36604e+02_rb,0.51047e+02_rb,0.57380e+02_rb,0.39540e+02_rb /)\n      kbo(:, 1,53,13) = (/ &\n        & 0.45376e+01_rb,0.20438e+02_rb,0.30067e+02_rb,0.35396e+02_rb,0.23001e+02_rb /)\n      kbo(:, 2,53,13) = (/ &\n        & 0.59241e+01_rb,0.23884e+02_rb,0.34872e+02_rb,0.40744e+02_rb,0.26941e+02_rb /)\n      kbo(:, 3,53,13) = (/ &\n        & 0.76354e+01_rb,0.27568e+02_rb,0.39698e+02_rb,0.45939e+02_rb,0.30794e+02_rb /)\n      kbo(:, 4,53,13) = (/ &\n        & 0.97536e+01_rb,0.31378e+02_rb,0.44569e+02_rb,0.50924e+02_rb,0.34545e+02_rb /)\n      kbo(:, 5,53,13) = (/ &\n        & 0.12275e+02_rb,0.35210e+02_rb,0.49348e+02_rb,0.55701e+02_rb,0.38212e+02_rb /)\n      kbo(:, 1,54,13) = (/ &\n        & 0.41389e+01_rb,0.19353e+02_rb,0.28454e+02_rb,0.33563e+02_rb,0.21647e+02_rb /)\n      kbo(:, 2,54,13) = (/ &\n        & 0.54194e+01_rb,0.22692e+02_rb,0.33259e+02_rb,0.38976e+02_rb,0.25632e+02_rb /)\n      kbo(:, 3,54,13) = (/ &\n        & 0.70164e+01_rb,0.26307e+02_rb,0.38072e+02_rb,0.44208e+02_rb,0.29508e+02_rb /)\n      kbo(:, 4,54,13) = (/ &\n        & 0.89936e+01_rb,0.30086e+02_rb,0.42934e+02_rb,0.49276e+02_rb,0.33306e+02_rb /)\n      kbo(:, 5,54,13) = (/ &\n        & 0.11387e+02_rb,0.33931e+02_rb,0.47765e+02_rb,0.54132e+02_rb,0.36987e+02_rb /)\n      kbo(:, 1,55,13) = (/ &\n        & 0.37927e+01_rb,0.18358e+02_rb,0.26927e+02_rb,0.31801e+02_rb,0.20350e+02_rb /)\n      kbo(:, 2,55,13) = (/ &\n        & 0.49755e+01_rb,0.21582e+02_rb,0.31711e+02_rb,0.37250e+02_rb,0.24368e+02_rb /)\n      kbo(:, 3,55,13) = (/ &\n        & 0.64669e+01_rb,0.25119e+02_rb,0.36517e+02_rb,0.42532e+02_rb,0.28268e+02_rb /)\n      kbo(:, 4,55,13) = (/ &\n        & 0.83082e+01_rb,0.28857e+02_rb,0.41362e+02_rb,0.47679e+02_rb,0.32095e+02_rb /)\n      kbo(:, 5,55,13) = (/ &\n        & 0.10573e+02_rb,0.32695e+02_rb,0.46225e+02_rb,0.52593e+02_rb,0.35810e+02_rb /)\n      kbo(:, 1,56,13) = (/ &\n        & 0.34680e+01_rb,0.17374e+02_rb,0.25413e+02_rb,0.30039e+02_rb,0.19069e+02_rb /)\n      kbo(:, 2,56,13) = (/ &\n        & 0.45601e+01_rb,0.20503e+02_rb,0.30163e+02_rb,0.35509e+02_rb,0.23088e+02_rb /)\n      kbo(:, 3,56,13) = (/ &\n        & 0.59518e+01_rb,0.23956e+02_rb,0.34971e+02_rb,0.40858e+02_rb,0.27027e+02_rb /)\n      kbo(:, 4,56,13) = (/ &\n        & 0.76711e+01_rb,0.27642e+02_rb,0.39801e+02_rb,0.46057e+02_rb,0.30878e+02_rb /)\n      kbo(:, 5,56,13) = (/ &\n        & 0.98017e+01_rb,0.31462e+02_rb,0.44674e+02_rb,0.51031e+02_rb,0.34630e+02_rb /)\n      kbo(:, 1,57,13) = (/ &\n        & 0.31571e+01_rb,0.16389e+02_rb,0.23903e+02_rb,0.28270e+02_rb,0.17802e+02_rb /)\n      kbo(:, 2,57,13) = (/ &\n        & 0.41775e+01_rb,0.19466e+02_rb,0.28628e+02_rb,0.33765e+02_rb,0.21796e+02_rb /)\n      kbo(:, 3,57,13) = (/ &\n        & 0.54676e+01_rb,0.22817e+02_rb,0.33433e+02_rb,0.39170e+02_rb,0.25777e+02_rb /)\n      kbo(:, 4,57,13) = (/ &\n        & 0.70767e+01_rb,0.26436e+02_rb,0.38248e+02_rb,0.44404e+02_rb,0.29650e+02_rb /)\n      kbo(:, 5,57,13) = (/ &\n        & 0.90728e+01_rb,0.30224e+02_rb,0.43110e+02_rb,0.49455e+02_rb,0.33445e+02_rb /)\n      kbo(:, 1,58,13) = (/ &\n        & 0.28749e+01_rb,0.15464e+02_rb,0.22485e+02_rb,0.26596e+02_rb,0.16612e+02_rb /)\n      kbo(:, 2,58,13) = (/ &\n        & 0.38438e+01_rb,0.18517e+02_rb,0.27179e+02_rb,0.32099e+02_rb,0.20568e+02_rb /)\n      kbo(:, 3,58,13) = (/ &\n        & 0.50410e+01_rb,0.21758e+02_rb,0.31967e+02_rb,0.37546e+02_rb,0.24584e+02_rb /)\n      kbo(:, 4,58,13) = (/ &\n        & 0.65535e+01_rb,0.25311e+02_rb,0.36779e+02_rb,0.42823e+02_rb,0.28478e+02_rb /)\n      kbo(:, 5,58,13) = (/ &\n        & 0.84187e+01_rb,0.29065e+02_rb,0.41628e+02_rb,0.47951e+02_rb,0.32304e+02_rb /)\n      kbo(:, 1,59,13) = (/ &\n        & 0.27657e+01_rb,0.15098e+02_rb,0.21927e+02_rb,0.25930e+02_rb,0.16137e+02_rb /)\n      kbo(:, 2,59,13) = (/ &\n        & 0.37163e+01_rb,0.18141e+02_rb,0.26603e+02_rb,0.31433e+02_rb,0.20078e+02_rb /)\n      kbo(:, 3,59,13) = (/ &\n        & 0.48770e+01_rb,0.21342e+02_rb,0.31379e+02_rb,0.36884e+02_rb,0.24100e+02_rb /)\n      kbo(:, 4,59,13) = (/ &\n        & 0.63518e+01_rb,0.24865e+02_rb,0.36188e+02_rb,0.42182e+02_rb,0.28007e+02_rb /)\n      kbo(:, 5,59,13) = (/ &\n        & 0.81684e+01_rb,0.28600e+02_rb,0.41035e+02_rb,0.47343e+02_rb,0.31847e+02_rb /)\n      kbo(:, 1,13,14) = (/ &\n        & 0.20563e+03_rb,0.16395e+03_rb,0.15131e+03_rb,0.13928e+03_rb,0.17336e+03_rb /)\n      kbo(:, 2,13,14) = (/ &\n        & 0.20583e+03_rb,0.16346e+03_rb,0.15102e+03_rb,0.13867e+03_rb,0.17209e+03_rb /)\n      kbo(:, 3,13,14) = (/ &\n        & 0.20579e+03_rb,0.16282e+03_rb,0.15051e+03_rb,0.13803e+03_rb,0.17119e+03_rb /)\n      kbo(:, 4,13,14) = (/ &\n        & 0.20538e+03_rb,0.16198e+03_rb,0.15005e+03_rb,0.13746e+03_rb,0.17062e+03_rb /)\n      kbo(:, 5,13,14) = (/ &\n        & 0.20471e+03_rb,0.16100e+03_rb,0.14942e+03_rb,0.13685e+03_rb,0.16998e+03_rb /)\n      kbo(:, 1,14,14) = (/ &\n        & 0.21387e+03_rb,0.17486e+03_rb,0.16410e+03_rb,0.14896e+03_rb,0.17926e+03_rb /)\n      kbo(:, 2,14,14) = (/ &\n        & 0.21398e+03_rb,0.17407e+03_rb,0.16354e+03_rb,0.14849e+03_rb,0.17872e+03_rb /)\n      kbo(:, 3,14,14) = (/ &\n        & 0.21371e+03_rb,0.17306e+03_rb,0.16300e+03_rb,0.14796e+03_rb,0.17838e+03_rb /)\n      kbo(:, 4,14,14) = (/ &\n        & 0.21320e+03_rb,0.17193e+03_rb,0.16238e+03_rb,0.14748e+03_rb,0.17807e+03_rb /)\n      kbo(:, 5,14,14) = (/ &\n        & 0.21239e+03_rb,0.17062e+03_rb,0.16158e+03_rb,0.14661e+03_rb,0.17726e+03_rb /)\n      kbo(:, 1,15,14) = (/ &\n        & 0.21868e+03_rb,0.18392e+03_rb,0.17597e+03_rb,0.15877e+03_rb,0.18409e+03_rb /)\n      kbo(:, 2,15,14) = (/ &\n        & 0.21861e+03_rb,0.18285e+03_rb,0.17533e+03_rb,0.15845e+03_rb,0.18413e+03_rb /)\n      kbo(:, 3,15,14) = (/ &\n        & 0.21838e+03_rb,0.18168e+03_rb,0.17469e+03_rb,0.15814e+03_rb,0.18423e+03_rb /)\n      kbo(:, 4,15,14) = (/ &\n        & 0.21785e+03_rb,0.18028e+03_rb,0.17392e+03_rb,0.15747e+03_rb,0.18391e+03_rb /)\n      kbo(:, 5,15,14) = (/ &\n        & 0.21714e+03_rb,0.17881e+03_rb,0.17281e+03_rb,0.15644e+03_rb,0.18337e+03_rb /)\n      kbo(:, 1,16,14) = (/ &\n        & 0.21989e+03_rb,0.19090e+03_rb,0.18666e+03_rb,0.16823e+03_rb,0.18717e+03_rb /)\n      kbo(:, 2,16,14) = (/ &\n        & 0.22000e+03_rb,0.18989e+03_rb,0.18604e+03_rb,0.16822e+03_rb,0.18797e+03_rb /)\n      kbo(:, 3,16,14) = (/ &\n        & 0.21982e+03_rb,0.18856e+03_rb,0.18533e+03_rb,0.16794e+03_rb,0.18851e+03_rb /)\n      kbo(:, 4,16,14) = (/ &\n        & 0.21954e+03_rb,0.18709e+03_rb,0.18432e+03_rb,0.16715e+03_rb,0.18854e+03_rb /)\n      kbo(:, 5,16,14) = (/ &\n        & 0.21898e+03_rb,0.18542e+03_rb,0.18303e+03_rb,0.16600e+03_rb,0.18839e+03_rb /)\n      kbo(:, 1,17,14) = (/ &\n        & 0.21793e+03_rb,0.19596e+03_rb,0.19603e+03_rb,0.17703e+03_rb,0.18857e+03_rb /)\n      kbo(:, 2,17,14) = (/ &\n        & 0.21821e+03_rb,0.19492e+03_rb,0.19548e+03_rb,0.17725e+03_rb,0.19023e+03_rb /)\n      kbo(:, 3,17,14) = (/ &\n        & 0.21850e+03_rb,0.19369e+03_rb,0.19462e+03_rb,0.17701e+03_rb,0.19133e+03_rb /)\n      kbo(:, 4,17,14) = (/ &\n        & 0.21855e+03_rb,0.19221e+03_rb,0.19343e+03_rb,0.17616e+03_rb,0.19194e+03_rb /)\n      kbo(:, 5,17,14) = (/ &\n        & 0.21839e+03_rb,0.19057e+03_rb,0.19206e+03_rb,0.17490e+03_rb,0.19225e+03_rb /)\n      kbo(:, 1,18,14) = (/ &\n        & 0.21311e+03_rb,0.19935e+03_rb,0.20385e+03_rb,0.18492e+03_rb,0.18864e+03_rb /)\n      kbo(:, 2,18,14) = (/ &\n        & 0.21399e+03_rb,0.19838e+03_rb,0.20339e+03_rb,0.18536e+03_rb,0.19117e+03_rb /)\n      kbo(:, 3,18,14) = (/ &\n        & 0.21477e+03_rb,0.19727e+03_rb,0.20251e+03_rb,0.18517e+03_rb,0.19296e+03_rb /)\n      kbo(:, 4,18,14) = (/ &\n        & 0.21537e+03_rb,0.19602e+03_rb,0.20131e+03_rb,0.18433e+03_rb,0.19426e+03_rb /)\n      kbo(:, 5,18,14) = (/ &\n        & 0.21594e+03_rb,0.19460e+03_rb,0.19989e+03_rb,0.18299e+03_rb,0.19511e+03_rb /)\n      kbo(:, 1,19,14) = (/ &\n        & 0.20628e+03_rb,0.20131e+03_rb,0.21018e+03_rb,0.19181e+03_rb,0.18780e+03_rb /)\n      kbo(:, 2,19,14) = (/ &\n        & 0.20786e+03_rb,0.20061e+03_rb,0.20985e+03_rb,0.19249e+03_rb,0.19117e+03_rb /)\n      kbo(:, 3,19,14) = (/ &\n        & 0.20939e+03_rb,0.19978e+03_rb,0.20915e+03_rb,0.19245e+03_rb,0.19379e+03_rb /)\n      kbo(:, 4,19,14) = (/ &\n        & 0.21078e+03_rb,0.19876e+03_rb,0.20808e+03_rb,0.19159e+03_rb,0.19578e+03_rb /)\n      kbo(:, 5,19,14) = (/ &\n        & 0.21196e+03_rb,0.19762e+03_rb,0.20666e+03_rb,0.19020e+03_rb,0.19726e+03_rb /)\n      kbo(:, 1,20,14) = (/ &\n        & 0.19806e+03_rb,0.20215e+03_rb,0.21525e+03_rb,0.19781e+03_rb,0.18646e+03_rb /)\n      kbo(:, 2,20,14) = (/ &\n        & 0.20054e+03_rb,0.20180e+03_rb,0.21527e+03_rb,0.19874e+03_rb,0.19072e+03_rb /)\n      kbo(:, 3,20,14) = (/ &\n        & 0.20298e+03_rb,0.20132e+03_rb,0.21478e+03_rb,0.19877e+03_rb,0.19413e+03_rb /)\n      kbo(:, 4,20,14) = (/ &\n        & 0.20522e+03_rb,0.20070e+03_rb,0.21384e+03_rb,0.19793e+03_rb,0.19681e+03_rb /)\n      kbo(:, 5,20,14) = (/ &\n        & 0.20725e+03_rb,0.19975e+03_rb,0.21249e+03_rb,0.19659e+03_rb,0.19899e+03_rb /)\n      kbo(:, 1,21,14) = (/ &\n        & 0.18919e+03_rb,0.20217e+03_rb,0.21942e+03_rb,0.20291e+03_rb,0.18499e+03_rb /)\n      kbo(:, 2,21,14) = (/ &\n        & 0.19268e+03_rb,0.20239e+03_rb,0.21974e+03_rb,0.20415e+03_rb,0.19012e+03_rb /)\n      kbo(:, 3,21,14) = (/ &\n        & 0.19609e+03_rb,0.20231e+03_rb,0.21947e+03_rb,0.20425e+03_rb,0.19432e+03_rb /)\n      kbo(:, 4,21,14) = (/ &\n        & 0.19926e+03_rb,0.20201e+03_rb,0.21866e+03_rb,0.20346e+03_rb,0.19770e+03_rb /)\n      kbo(:, 5,21,14) = (/ &\n        & 0.20224e+03_rb,0.20136e+03_rb,0.21742e+03_rb,0.20212e+03_rb,0.20044e+03_rb /)\n      kbo(:, 1,22,14) = (/ &\n        & 0.18064e+03_rb,0.20182e+03_rb,0.22276e+03_rb,0.20740e+03_rb,0.18409e+03_rb /)\n      kbo(:, 2,22,14) = (/ &\n        & 0.18513e+03_rb,0.20253e+03_rb,0.22341e+03_rb,0.20876e+03_rb,0.18988e+03_rb /)\n      kbo(:, 3,22,14) = (/ &\n        & 0.18951e+03_rb,0.20287e+03_rb,0.22329e+03_rb,0.20890e+03_rb,0.19474e+03_rb /)\n      kbo(:, 4,22,14) = (/ &\n        & 0.19368e+03_rb,0.20283e+03_rb,0.22259e+03_rb,0.20812e+03_rb,0.19869e+03_rb /)\n      kbo(:, 5,22,14) = (/ &\n        & 0.19752e+03_rb,0.20248e+03_rb,0.22143e+03_rb,0.20676e+03_rb,0.20185e+03_rb /)\n      kbo(:, 1,23,14) = (/ &\n        & 0.17261e+03_rb,0.20129e+03_rb,0.22560e+03_rb,0.21126e+03_rb,0.18360e+03_rb /)\n      kbo(:, 2,23,14) = (/ &\n        & 0.17813e+03_rb,0.20255e+03_rb,0.22645e+03_rb,0.21277e+03_rb,0.18993e+03_rb /)\n      kbo(:, 3,23,14) = (/ &\n        & 0.18347e+03_rb,0.20322e+03_rb,0.22649e+03_rb,0.21288e+03_rb,0.19534e+03_rb /)\n      kbo(:, 4,23,14) = (/ &\n        & 0.18858e+03_rb,0.20345e+03_rb,0.22593e+03_rb,0.21211e+03_rb,0.19972e+03_rb /)\n      kbo(:, 5,23,14) = (/ &\n        & 0.19325e+03_rb,0.20330e+03_rb,0.22470e+03_rb,0.21066e+03_rb,0.20314e+03_rb /)\n      kbo(:, 1,24,14) = (/ &\n        & 0.16550e+03_rb,0.20079e+03_rb,0.22797e+03_rb,0.21459e+03_rb,0.18352e+03_rb /)\n      kbo(:, 2,24,14) = (/ &\n        & 0.17199e+03_rb,0.20247e+03_rb,0.22899e+03_rb,0.21614e+03_rb,0.19031e+03_rb /)\n      kbo(:, 3,24,14) = (/ &\n        & 0.17829e+03_rb,0.20349e+03_rb,0.22920e+03_rb,0.21621e+03_rb,0.19610e+03_rb /)\n      kbo(:, 4,24,14) = (/ &\n        & 0.18424e+03_rb,0.20395e+03_rb,0.22865e+03_rb,0.21544e+03_rb,0.20080e+03_rb /)\n      kbo(:, 5,24,14) = (/ &\n        & 0.18966e+03_rb,0.20393e+03_rb,0.22735e+03_rb,0.21388e+03_rb,0.20437e+03_rb /)\n      kbo(:, 1,25,14) = (/ &\n        & 0.15949e+03_rb,0.20048e+03_rb,0.22999e+03_rb,0.21758e+03_rb,0.18395e+03_rb /)\n      kbo(:, 2,25,14) = (/ &\n        & 0.16698e+03_rb,0.20247e+03_rb,0.23119e+03_rb,0.21903e+03_rb,0.19108e+03_rb /)\n      kbo(:, 3,25,14) = (/ &\n        & 0.17411e+03_rb,0.20370e+03_rb,0.23144e+03_rb,0.21904e+03_rb,0.19711e+03_rb /)\n      kbo(:, 4,25,14) = (/ &\n        & 0.18088e+03_rb,0.20435e+03_rb,0.23082e+03_rb,0.21817e+03_rb,0.20192e+03_rb /)\n      kbo(:, 5,25,14) = (/ &\n        & 0.18710e+03_rb,0.20450e+03_rb,0.22950e+03_rb,0.21648e+03_rb,0.20559e+03_rb /)\n      kbo(:, 1,26,14) = (/ &\n        & 0.15479e+03_rb,0.20038e+03_rb,0.23181e+03_rb,0.22016e+03_rb,0.18490e+03_rb /)\n      kbo(:, 2,26,14) = (/ &\n        & 0.16322e+03_rb,0.20258e+03_rb,0.23307e+03_rb,0.22145e+03_rb,0.19222e+03_rb /)\n      kbo(:, 3,26,14) = (/ &\n        & 0.17119e+03_rb,0.20401e+03_rb,0.23326e+03_rb,0.22140e+03_rb,0.19831e+03_rb /)\n      kbo(:, 4,26,14) = (/ &\n        & 0.17866e+03_rb,0.20478e+03_rb,0.23259e+03_rb,0.22038e+03_rb,0.20315e+03_rb /)\n      kbo(:, 5,26,14) = (/ &\n        & 0.18553e+03_rb,0.20498e+03_rb,0.23122e+03_rb,0.21854e+03_rb,0.20685e+03_rb /)\n      kbo(:, 1,27,14) = (/ &\n        & 0.15143e+03_rb,0.20049e+03_rb,0.23344e+03_rb,0.22241e+03_rb,0.18615e+03_rb /)\n      kbo(:, 2,27,14) = (/ &\n        & 0.16070e+03_rb,0.20279e+03_rb,0.23465e+03_rb,0.22352e+03_rb,0.19353e+03_rb /)\n      kbo(:, 3,27,14) = (/ &\n        & 0.16932e+03_rb,0.20430e+03_rb,0.23473e+03_rb,0.22331e+03_rb,0.19960e+03_rb /)\n      kbo(:, 4,27,14) = (/ &\n        & 0.17737e+03_rb,0.20518e+03_rb,0.23402e+03_rb,0.22212e+03_rb,0.20440e+03_rb /)\n      kbo(:, 5,27,14) = (/ &\n        & 0.18472e+03_rb,0.20537e+03_rb,0.23257e+03_rb,0.22015e+03_rb,0.20807e+03_rb /)\n      kbo(:, 1,28,14) = (/ &\n        & 0.14935e+03_rb,0.20078e+03_rb,0.23487e+03_rb,0.22436e+03_rb,0.18762e+03_rb /)\n      kbo(:, 2,28,14) = (/ &\n        & 0.15926e+03_rb,0.20312e+03_rb,0.23597e+03_rb,0.22523e+03_rb,0.19491e+03_rb /)\n      kbo(:, 3,28,14) = (/ &\n        & 0.16839e+03_rb,0.20467e+03_rb,0.23597e+03_rb,0.22484e+03_rb,0.20092e+03_rb /)\n      kbo(:, 4,28,14) = (/ &\n        & 0.17687e+03_rb,0.20554e+03_rb,0.23516e+03_rb,0.22345e+03_rb,0.20562e+03_rb /)\n      kbo(:, 5,28,14) = (/ &\n        & 0.18453e+03_rb,0.20570e+03_rb,0.23357e+03_rb,0.22135e+03_rb,0.20921e+03_rb /)\n      kbo(:, 1,29,14) = (/ &\n        & 0.14844e+03_rb,0.20117e+03_rb,0.23614e+03_rb,0.22601e+03_rb,0.18927e+03_rb /)\n      kbo(:, 2,29,14) = (/ &\n        & 0.15878e+03_rb,0.20350e+03_rb,0.23707e+03_rb,0.22664e+03_rb,0.19642e+03_rb /)\n      kbo(:, 3,29,14) = (/ &\n        & 0.16829e+03_rb,0.20505e+03_rb,0.23696e+03_rb,0.22601e+03_rb,0.20229e+03_rb /)\n      kbo(:, 4,29,14) = (/ &\n        & 0.17702e+03_rb,0.20585e+03_rb,0.23602e+03_rb,0.22445e+03_rb,0.20685e+03_rb /)\n      kbo(:, 5,29,14) = (/ &\n        & 0.18487e+03_rb,0.20599e+03_rb,0.23430e+03_rb,0.22220e+03_rb,0.21031e+03_rb /)\n      kbo(:, 1,30,14) = (/ &\n        & 0.14841e+03_rb,0.20165e+03_rb,0.23724e+03_rb,0.22742e+03_rb,0.19101e+03_rb /)\n      kbo(:, 2,30,14) = (/ &\n        & 0.15903e+03_rb,0.20395e+03_rb,0.23798e+03_rb,0.22774e+03_rb,0.19796e+03_rb /)\n      kbo(:, 3,30,14) = (/ &\n        & 0.16878e+03_rb,0.20543e+03_rb,0.23774e+03_rb,0.22689e+03_rb,0.20367e+03_rb /)\n      kbo(:, 4,30,14) = (/ &\n        & 0.17765e+03_rb,0.20614e+03_rb,0.23662e+03_rb,0.22515e+03_rb,0.20804e+03_rb /)\n      kbo(:, 5,30,14) = (/ &\n        & 0.18556e+03_rb,0.20626e+03_rb,0.23478e+03_rb,0.22274e+03_rb,0.21133e+03_rb /)\n      kbo(:, 1,31,14) = (/ &\n        & 0.14910e+03_rb,0.20219e+03_rb,0.23816e+03_rb,0.22857e+03_rb,0.19280e+03_rb /)\n      kbo(:, 2,31,14) = (/ &\n        & 0.15987e+03_rb,0.20442e+03_rb,0.23873e+03_rb,0.22860e+03_rb,0.19955e+03_rb /)\n      kbo(:, 3,31,14) = (/ &\n        & 0.16974e+03_rb,0.20578e+03_rb,0.23830e+03_rb,0.22751e+03_rb,0.20503e+03_rb /)\n      kbo(:, 4,31,14) = (/ &\n        & 0.17870e+03_rb,0.20640e+03_rb,0.23703e+03_rb,0.22559e+03_rb,0.20917e+03_rb /)\n      kbo(:, 5,31,14) = (/ &\n        & 0.18656e+03_rb,0.20647e+03_rb,0.23504e+03_rb,0.22303e+03_rb,0.21232e+03_rb /)\n      kbo(:, 1,32,14) = (/ &\n        & 0.15031e+03_rb,0.20279e+03_rb,0.23897e+03_rb,0.22949e+03_rb,0.19459e+03_rb /)\n      kbo(:, 2,32,14) = (/ &\n        & 0.16119e+03_rb,0.20489e+03_rb,0.23931e+03_rb,0.22922e+03_rb,0.20113e+03_rb /)\n      kbo(:, 3,32,14) = (/ &\n        & 0.17110e+03_rb,0.20610e+03_rb,0.23869e+03_rb,0.22791e+03_rb,0.20634e+03_rb /)\n      kbo(:, 4,32,14) = (/ &\n        & 0.18002e+03_rb,0.20662e+03_rb,0.23723e+03_rb,0.22582e+03_rb,0.21029e+03_rb /)\n      kbo(:, 5,32,14) = (/ &\n        & 0.18777e+03_rb,0.20659e+03_rb,0.23510e+03_rb,0.22308e+03_rb,0.21322e+03_rb /)\n      kbo(:, 1,33,14) = (/ &\n        & 0.15197e+03_rb,0.20341e+03_rb,0.23965e+03_rb,0.23019e+03_rb,0.19639e+03_rb /)\n      kbo(:, 2,33,14) = (/ &\n        & 0.16285e+03_rb,0.20534e+03_rb,0.23976e+03_rb,0.22964e+03_rb,0.20267e+03_rb /)\n      kbo(:, 3,33,14) = (/ &\n        & 0.17270e+03_rb,0.20638e+03_rb,0.23893e+03_rb,0.22811e+03_rb,0.20758e+03_rb /)\n      kbo(:, 4,33,14) = (/ &\n        & 0.18151e+03_rb,0.20680e+03_rb,0.23727e+03_rb,0.22584e+03_rb,0.21132e+03_rb /)\n      kbo(:, 5,33,14) = (/ &\n        & 0.18912e+03_rb,0.20665e+03_rb,0.23500e+03_rb,0.22296e+03_rb,0.21406e+03_rb /)\n      kbo(:, 1,34,14) = (/ &\n        & 0.15352e+03_rb,0.20391e+03_rb,0.24014e+03_rb,0.23069e+03_rb,0.19790e+03_rb /)\n      kbo(:, 2,34,14) = (/ &\n        & 0.16437e+03_rb,0.20566e+03_rb,0.24006e+03_rb,0.22992e+03_rb,0.20396e+03_rb /)\n      kbo(:, 3,34,14) = (/ &\n        & 0.17416e+03_rb,0.20662e+03_rb,0.23907e+03_rb,0.22823e+03_rb,0.20863e+03_rb /)\n      kbo(:, 4,34,14) = (/ &\n        & 0.18285e+03_rb,0.20695e+03_rb,0.23728e+03_rb,0.22580e+03_rb,0.21218e+03_rb /)\n      kbo(:, 5,34,14) = (/ &\n        & 0.19033e+03_rb,0.20667e+03_rb,0.23487e+03_rb,0.22280e+03_rb,0.21474e+03_rb /)\n      kbo(:, 1,35,14) = (/ &\n        & 0.15421e+03_rb,0.20418e+03_rb,0.24052e+03_rb,0.23110e+03_rb,0.19876e+03_rb /)\n      kbo(:, 2,35,14) = (/ &\n        & 0.16507e+03_rb,0.20586e+03_rb,0.24033e+03_rb,0.23020e+03_rb,0.20468e+03_rb /)\n      kbo(:, 3,35,14) = (/ &\n        & 0.17486e+03_rb,0.20677e+03_rb,0.23924e+03_rb,0.22841e+03_rb,0.20923e+03_rb /)\n      kbo(:, 4,35,14) = (/ &\n        & 0.18350e+03_rb,0.20705e+03_rb,0.23737e+03_rb,0.22589e+03_rb,0.21269e+03_rb /)\n      kbo(:, 5,35,14) = (/ &\n        & 0.19094e+03_rb,0.20669e+03_rb,0.23489e+03_rb,0.22281e+03_rb,0.21514e+03_rb /)\n      kbo(:, 1,36,14) = (/ &\n        & 0.15381e+03_rb,0.20424e+03_rb,0.24080e+03_rb,0.23145e+03_rb,0.19888e+03_rb /)\n      kbo(:, 2,36,14) = (/ &\n        & 0.16478e+03_rb,0.20592e+03_rb,0.24060e+03_rb,0.23055e+03_rb,0.20484e+03_rb /)\n      kbo(:, 3,36,14) = (/ &\n        & 0.17464e+03_rb,0.20684e+03_rb,0.23950e+03_rb,0.22874e+03_rb,0.20938e+03_rb /)\n      kbo(:, 4,36,14) = (/ &\n        & 0.18336e+03_rb,0.20715e+03_rb,0.23762e+03_rb,0.22618e+03_rb,0.21284e+03_rb /)\n      kbo(:, 5,36,14) = (/ &\n        & 0.19086e+03_rb,0.20678e+03_rb,0.23514e+03_rb,0.22311e+03_rb,0.21532e+03_rb /)\n      kbo(:, 1,37,14) = (/ &\n        & 0.15177e+03_rb,0.20394e+03_rb,0.24096e+03_rb,0.23178e+03_rb,0.19802e+03_rb /)\n      kbo(:, 2,37,14) = (/ &\n        & 0.16298e+03_rb,0.20578e+03_rb,0.24091e+03_rb,0.23102e+03_rb,0.20416e+03_rb /)\n      kbo(:, 3,37,14) = (/ &\n        & 0.17307e+03_rb,0.20681e+03_rb,0.23994e+03_rb,0.22934e+03_rb,0.20893e+03_rb /)\n      kbo(:, 4,37,14) = (/ &\n        & 0.18204e+03_rb,0.20721e+03_rb,0.23818e+03_rb,0.22688e+03_rb,0.21255e+03_rb /)\n      kbo(:, 5,37,14) = (/ &\n        & 0.18973e+03_rb,0.20695e+03_rb,0.23573e+03_rb,0.22383e+03_rb,0.21516e+03_rb /)\n      kbo(:, 1,38,14) = (/ &\n        & 0.14968e+03_rb,0.20359e+03_rb,0.24104e+03_rb,0.23202e+03_rb,0.19703e+03_rb /)\n      kbo(:, 2,38,14) = (/ &\n        & 0.16113e+03_rb,0.20560e+03_rb,0.24116e+03_rb,0.23143e+03_rb,0.20341e+03_rb /)\n      kbo(:, 3,38,14) = (/ &\n        & 0.17144e+03_rb,0.20674e+03_rb,0.24033e+03_rb,0.22988e+03_rb,0.20838e+03_rb /)\n      kbo(:, 4,38,14) = (/ &\n        & 0.18063e+03_rb,0.20724e+03_rb,0.23866e+03_rb,0.22752e+03_rb,0.21216e+03_rb /)\n      kbo(:, 5,38,14) = (/ &\n        & 0.18855e+03_rb,0.20710e+03_rb,0.23632e+03_rb,0.22453e+03_rb,0.21493e+03_rb /)\n      kbo(:, 1,39,14) = (/ &\n        & 0.14764e+03_rb,0.20322e+03_rb,0.24106e+03_rb,0.23220e+03_rb,0.19604e+03_rb /)\n      kbo(:, 2,39,14) = (/ &\n        & 0.15932e+03_rb,0.20540e+03_rb,0.24137e+03_rb,0.23180e+03_rb,0.20262e+03_rb /)\n      kbo(:, 3,39,14) = (/ &\n        & 0.16984e+03_rb,0.20665e+03_rb,0.24065e+03_rb,0.23036e+03_rb,0.20781e+03_rb /)\n      kbo(:, 4,39,14) = (/ &\n        & 0.17923e+03_rb,0.20725e+03_rb,0.23910e+03_rb,0.22810e+03_rb,0.21175e+03_rb /)\n      kbo(:, 5,39,14) = (/ &\n        & 0.18737e+03_rb,0.20722e+03_rb,0.23684e+03_rb,0.22517e+03_rb,0.21467e+03_rb /)\n      kbo(:, 1,40,14) = (/ &\n        & 0.14438e+03_rb,0.20254e+03_rb,0.24092e+03_rb,0.23225e+03_rb,0.19425e+03_rb /)\n      kbo(:, 2,40,14) = (/ &\n        & 0.15633e+03_rb,0.20498e+03_rb,0.24152e+03_rb,0.23217e+03_rb,0.20115e+03_rb /)\n      kbo(:, 3,40,14) = (/ &\n        & 0.16718e+03_rb,0.20642e+03_rb,0.24105e+03_rb,0.23096e+03_rb,0.20672e+03_rb /)\n      kbo(:, 4,40,14) = (/ &\n        & 0.17690e+03_rb,0.20720e+03_rb,0.23969e+03_rb,0.22887e+03_rb,0.21093e+03_rb /)\n      kbo(:, 5,40,14) = (/ &\n        & 0.18539e+03_rb,0.20733e+03_rb,0.23758e+03_rb,0.22609e+03_rb,0.21411e+03_rb /)\n      kbo(:, 1,41,14) = (/ &\n        & 0.14093e+03_rb,0.20170e+03_rb,0.24062e+03_rb,0.23214e+03_rb,0.19226e+03_rb /)\n      kbo(:, 2,41,14) = (/ &\n        & 0.15309e+03_rb,0.20441e+03_rb,0.24155e+03_rb,0.23243e+03_rb,0.19951e+03_rb /)\n      kbo(:, 3,41,14) = (/ &\n        & 0.16434e+03_rb,0.20613e+03_rb,0.24136e+03_rb,0.23149e+03_rb,0.20545e+03_rb /)\n      kbo(:, 4,41,14) = (/ &\n        & 0.17439e+03_rb,0.20709e+03_rb,0.24022e+03_rb,0.22963e+03_rb,0.21000e+03_rb /)\n      kbo(:, 5,41,14) = (/ &\n        & 0.18325e+03_rb,0.20739e+03_rb,0.23829e+03_rb,0.22700e+03_rb,0.21344e+03_rb /)\n      kbo(:, 1,42,14) = (/ &\n        & 0.13742e+03_rb,0.20072e+03_rb,0.24018e+03_rb,0.23188e+03_rb,0.19017e+03_rb /)\n      kbo(:, 2,42,14) = (/ &\n        & 0.14987e+03_rb,0.20381e+03_rb,0.24151e+03_rb,0.23260e+03_rb,0.19778e+03_rb /)\n      kbo(:, 3,42,14) = (/ &\n        & 0.16144e+03_rb,0.20580e+03_rb,0.24159e+03_rb,0.23194e+03_rb,0.20408e+03_rb /)\n      kbo(:, 4,42,14) = (/ &\n        & 0.17182e+03_rb,0.20693e+03_rb,0.24068e+03_rb,0.23030e+03_rb,0.20897e+03_rb /)\n      kbo(:, 5,42,14) = (/ &\n        & 0.18101e+03_rb,0.20739e+03_rb,0.23894e+03_rb,0.22785e+03_rb,0.21269e+03_rb /)\n      kbo(:, 1,43,14) = (/ &\n        & 0.13316e+03_rb,0.19946e+03_rb,0.23952e+03_rb,0.23134e+03_rb,0.18746e+03_rb /)\n      kbo(:, 2,43,14) = (/ &\n        & 0.14590e+03_rb,0.20299e+03_rb,0.24131e+03_rb,0.23265e+03_rb,0.19555e+03_rb /)\n      kbo(:, 3,43,14) = (/ &\n        & 0.15782e+03_rb,0.20531e+03_rb,0.24176e+03_rb,0.23237e+03_rb,0.20228e+03_rb /)\n      kbo(:, 4,43,14) = (/ &\n        & 0.16860e+03_rb,0.20666e+03_rb,0.24113e+03_rb,0.23099e+03_rb,0.20761e+03_rb /)\n      kbo(:, 5,43,14) = (/ &\n        & 0.17818e+03_rb,0.20733e+03_rb,0.23964e+03_rb,0.22878e+03_rb,0.21166e+03_rb /)\n      kbo(:, 1,44,14) = (/ &\n        & 0.12851e+03_rb,0.19793e+03_rb,0.23860e+03_rb,0.23051e+03_rb,0.18440e+03_rb /)\n      kbo(:, 2,44,14) = (/ &\n        & 0.14156e+03_rb,0.20195e+03_rb,0.24092e+03_rb,0.23249e+03_rb,0.19298e+03_rb /)\n      kbo(:, 3,44,14) = (/ &\n        & 0.15381e+03_rb,0.20468e+03_rb,0.24182e+03_rb,0.23268e+03_rb,0.20015e+03_rb /)\n      kbo(:, 4,44,14) = (/ &\n        & 0.16494e+03_rb,0.20625e+03_rb,0.24148e+03_rb,0.23163e+03_rb,0.20597e+03_rb /)\n      kbo(:, 5,44,14) = (/ &\n        & 0.17499e+03_rb,0.20719e+03_rb,0.24029e+03_rb,0.22969e+03_rb,0.21043e+03_rb /)\n      kbo(:, 1,45,14) = (/ &\n        & 0.12377e+03_rb,0.19622e+03_rb,0.23745e+03_rb,0.22938e+03_rb,0.18114e+03_rb /)\n      kbo(:, 2,45,14) = (/ &\n        & 0.13713e+03_rb,0.20074e+03_rb,0.24035e+03_rb,0.23210e+03_rb,0.19024e+03_rb /)\n      kbo(:, 3,45,14) = (/ &\n        & 0.14969e+03_rb,0.20389e+03_rb,0.24171e+03_rb,0.23283e+03_rb,0.19787e+03_rb /)\n      kbo(:, 4,45,14) = (/ &\n        & 0.16122e+03_rb,0.20580e+03_rb,0.24172e+03_rb,0.23215e+03_rb,0.20417e+03_rb /)\n      kbo(:, 5,45,14) = (/ &\n        & 0.17169e+03_rb,0.20697e+03_rb,0.24085e+03_rb,0.23051e+03_rb,0.20907e+03_rb /)\n      kbo(:, 1,46,14) = (/ &\n        & 0.11871e+03_rb,0.19418e+03_rb,0.23600e+03_rb,0.22790e+03_rb,0.17747e+03_rb /)\n      kbo(:, 2,46,14) = (/ &\n        & 0.13231e+03_rb,0.19929e+03_rb,0.23954e+03_rb,0.23143e+03_rb,0.18712e+03_rb /)\n      kbo(:, 3,46,14) = (/ &\n        & 0.14514e+03_rb,0.20288e+03_rb,0.24138e+03_rb,0.23280e+03_rb,0.19526e+03_rb /)\n      kbo(:, 4,46,14) = (/ &\n        & 0.15711e+03_rb,0.20523e+03_rb,0.24187e+03_rb,0.23257e+03_rb,0.20207e+03_rb /)\n      kbo(:, 5,46,14) = (/ &\n        & 0.16802e+03_rb,0.20664e+03_rb,0.24132e+03_rb,0.23126e+03_rb,0.20749e+03_rb /)\n      kbo(:, 1,47,14) = (/ &\n        & 0.11295e+03_rb,0.19159e+03_rb,0.23398e+03_rb,0.22588e+03_rb,0.17313e+03_rb /)\n      kbo(:, 2,47,14) = (/ &\n        & 0.12683e+03_rb,0.19741e+03_rb,0.23835e+03_rb,0.23031e+03_rb,0.18342e+03_rb /)\n      kbo(:, 3,47,14) = (/ &\n        & 0.13999e+03_rb,0.20159e+03_rb,0.24085e+03_rb,0.23253e+03_rb,0.19217e+03_rb /)\n      kbo(:, 4,47,14) = (/ &\n        & 0.15234e+03_rb,0.20442e+03_rb,0.24186e+03_rb,0.23286e+03_rb,0.19949e+03_rb /)\n      kbo(:, 5,47,14) = (/ &\n        & 0.16373e+03_rb,0.20618e+03_rb,0.24169e+03_rb,0.23194e+03_rb,0.20549e+03_rb /)\n      kbo(:, 1,48,14) = (/ &\n        & 0.10712e+03_rb,0.18871e+03_rb,0.23159e+03_rb,0.22347e+03_rb,0.16850e+03_rb /)\n      kbo(:, 2,48,14) = (/ &\n        & 0.12124e+03_rb,0.19529e+03_rb,0.23687e+03_rb,0.22882e+03_rb,0.17946e+03_rb /)\n      kbo(:, 3,48,14) = (/ &\n        & 0.13473e+03_rb,0.20007e+03_rb,0.24005e+03_rb,0.23191e+03_rb,0.18883e+03_rb /)\n      kbo(:, 4,48,14) = (/ &\n        & 0.14742e+03_rb,0.20342e+03_rb,0.24164e+03_rb,0.23294e+03_rb,0.19670e+03_rb /)\n      kbo(:, 5,48,14) = (/ &\n        & 0.15928e+03_rb,0.20562e+03_rb,0.24192e+03_rb,0.23247e+03_rb,0.20325e+03_rb /)\n      kbo(:, 1,49,14) = (/ &\n        & 0.10120e+03_rb,0.18550e+03_rb,0.22880e+03_rb,0.22071e+03_rb,0.16363e+03_rb /)\n      kbo(:, 2,49,14) = (/ &\n        & 0.11556e+03_rb,0.19285e+03_rb,0.23504e+03_rb,0.22697e+03_rb,0.17524e+03_rb /)\n      kbo(:, 3,49,14) = (/ &\n        & 0.12932e+03_rb,0.19832e+03_rb,0.23901e+03_rb,0.23097e+03_rb,0.18524e+03_rb /)\n      kbo(:, 4,49,14) = (/ &\n        & 0.14238e+03_rb,0.20226e+03_rb,0.24120e+03_rb,0.23278e+03_rb,0.19370e+03_rb /)\n      kbo(:, 5,49,14) = (/ &\n        & 0.15460e+03_rb,0.20488e+03_rb,0.24199e+03_rb,0.23283e+03_rb,0.20078e+03_rb /)\n      kbo(:, 1,50,14) = (/ &\n        & 0.95603e+02_rb,0.18216e+03_rb,0.22576e+03_rb,0.21768e+03_rb,0.15878e+03_rb /)\n      kbo(:, 2,50,14) = (/ &\n        & 0.11015e+03_rb,0.19031e+03_rb,0.23298e+03_rb,0.22490e+03_rb,0.17105e+03_rb /)\n      kbo(:, 3,50,14) = (/ &\n        & 0.12415e+03_rb,0.19646e+03_rb,0.23775e+03_rb,0.22975e+03_rb,0.18166e+03_rb /)\n      kbo(:, 4,50,14) = (/ &\n        & 0.13752e+03_rb,0.20094e+03_rb,0.24058e+03_rb,0.23236e+03_rb,0.19069e+03_rb /)\n      kbo(:, 5,50,14) = (/ &\n        & 0.15007e+03_rb,0.20403e+03_rb,0.24187e+03_rb,0.23299e+03_rb,0.19826e+03_rb /)\n      kbo(:, 1,51,14) = (/ &\n        & 0.90137e+02_rb,0.17868e+03_rb,0.22240e+03_rb,0.21442e+03_rb,0.15384e+03_rb /)\n      kbo(:, 2,51,14) = (/ &\n        & 0.10484e+03_rb,0.18757e+03_rb,0.23066e+03_rb,0.22258e+03_rb,0.16677e+03_rb /)\n      kbo(:, 3,51,14) = (/ &\n        & 0.11907e+03_rb,0.19442e+03_rb,0.23628e+03_rb,0.22824e+03_rb,0.17796e+03_rb /)\n      kbo(:, 4,51,14) = (/ &\n        & 0.13269e+03_rb,0.19948e+03_rb,0.23976e+03_rb,0.23167e+03_rb,0.18756e+03_rb /)\n      kbo(:, 5,51,14) = (/ &\n        & 0.14552e+03_rb,0.20302e+03_rb,0.24154e+03_rb,0.23296e+03_rb,0.19565e+03_rb /)\n      kbo(:, 1,52,14) = (/ &\n        & 0.84690e+02_rb,0.17496e+03_rb,0.21864e+03_rb,0.21080e+03_rb,0.14862e+03_rb /)\n      kbo(:, 2,52,14) = (/ &\n        & 0.99471e+02_rb,0.18453e+03_rb,0.22798e+03_rb,0.21992e+03_rb,0.16225e+03_rb /)\n      kbo(:, 3,52,14) = (/ &\n        & 0.11391e+03_rb,0.19213e+03_rb,0.23451e+03_rb,0.22644e+03_rb,0.17406e+03_rb /)\n      kbo(:, 4,52,14) = (/ &\n        & 0.12777e+03_rb,0.19781e+03_rb,0.23872e+03_rb,0.23070e+03_rb,0.18424e+03_rb /)\n      kbo(:, 5,52,14) = (/ &\n        & 0.14091e+03_rb,0.20189e+03_rb,0.24107e+03_rb,0.23273e+03_rb,0.19286e+03_rb /)\n      kbo(:, 1,53,14) = (/ &\n        & 0.79262e+02_rb,0.17095e+03_rb,0.21436e+03_rb,0.20681e+03_rb,0.14317e+03_rb /)\n      kbo(:, 2,53,14) = (/ &\n        & 0.94047e+02_rb,0.18126e+03_rb,0.22494e+03_rb,0.21690e+03_rb,0.15748e+03_rb /)\n      kbo(:, 3,53,14) = (/ &\n        & 0.10865e+03_rb,0.18958e+03_rb,0.23241e+03_rb,0.22434e+03_rb,0.16994e+03_rb /)\n      kbo(:, 4,53,14) = (/ &\n        & 0.12274e+03_rb,0.19595e+03_rb,0.23742e+03_rb,0.22941e+03_rb,0.18070e+03_rb /)\n      kbo(:, 5,53,14) = (/ &\n        & 0.13618e+03_rb,0.20056e+03_rb,0.24040e+03_rb,0.23224e+03_rb,0.18988e+03_rb /)\n      kbo(:, 1,54,14) = (/ &\n        & 0.74312e+02_rb,0.16701e+03_rb,0.21000e+03_rb,0.20283e+03_rb,0.13801e+03_rb /)\n      kbo(:, 2,54,14) = (/ &\n        & 0.89059e+02_rb,0.17802e+03_rb,0.22177e+03_rb,0.21381e+03_rb,0.15289e+03_rb /)\n      kbo(:, 3,54,14) = (/ &\n        & 0.10379e+03_rb,0.18701e+03_rb,0.23021e+03_rb,0.22214e+03_rb,0.16595e+03_rb /)\n      kbo(:, 4,54,14) = (/ &\n        & 0.11808e+03_rb,0.19403e+03_rb,0.23602e+03_rb,0.22797e+03_rb,0.17728e+03_rb /)\n      kbo(:, 5,54,14) = (/ &\n        & 0.13174e+03_rb,0.19918e+03_rb,0.23961e+03_rb,0.23155e+03_rb,0.18697e+03_rb /)\n      kbo(:, 1,55,14) = (/ &\n        & 0.69615e+02_rb,0.16296e+03_rb,0.20540e+03_rb,0.19866e+03_rb,0.13288e+03_rb /)\n      kbo(:, 2,55,14) = (/ &\n        & 0.84276e+02_rb,0.17466e+03_rb,0.21835e+03_rb,0.21056e+03_rb,0.14828e+03_rb /)\n      kbo(:, 3,55,14) = (/ &\n        & 0.99066e+02_rb,0.18433e+03_rb,0.22782e+03_rb,0.21977e+03_rb,0.16197e+03_rb /)\n      kbo(:, 4,55,14) = (/ &\n        & 0.11354e+03_rb,0.19199e+03_rb,0.23442e+03_rb,0.22636e+03_rb,0.17383e+03_rb /)\n      kbo(:, 5,55,14) = (/ &\n        & 0.12741e+03_rb,0.19770e+03_rb,0.23866e+03_rb,0.23065e+03_rb,0.18403e+03_rb /)\n      kbo(:, 1,56,14) = (/ &\n        & 0.64944e+02_rb,0.15877e+03_rb,0.20044e+03_rb,0.19421e+03_rb,0.12762e+03_rb /)\n      kbo(:, 2,56,14) = (/ &\n        & 0.79524e+02_rb,0.17114e+03_rb,0.21461e+03_rb,0.20707e+03_rb,0.14351e+03_rb /)\n      kbo(:, 3,56,14) = (/ &\n        & 0.94323e+02_rb,0.18144e+03_rb,0.22514e+03_rb,0.21711e+03_rb,0.15778e+03_rb /)\n      kbo(:, 4,56,14) = (/ &\n        & 0.10894e+03_rb,0.18976e+03_rb,0.23257e+03_rb,0.22452e+03_rb,0.17022e+03_rb /)\n      kbo(:, 5,56,14) = (/ &\n        & 0.12301e+03_rb,0.19605e+03_rb,0.23752e+03_rb,0.22954e+03_rb,0.18094e+03_rb /)\n      kbo(:, 1,57,14) = (/ &\n        & 0.60353e+02_rb,0.15431e+03_rb,0.19514e+03_rb,0.18945e+03_rb,0.12225e+03_rb /)\n      kbo(:, 2,57,14) = (/ &\n        & 0.74815e+02_rb,0.16742e+03_rb,0.21049e+03_rb,0.20329e+03_rb,0.13860e+03_rb /)\n      kbo(:, 3,57,14) = (/ &\n        & 0.89567e+02_rb,0.17837e+03_rb,0.22214e+03_rb,0.21419e+03_rb,0.15343e+03_rb /)\n      kbo(:, 4,57,14) = (/ &\n        & 0.10431e+03_rb,0.18733e+03_rb,0.23050e+03_rb,0.22244e+03_rb,0.16644e+03_rb /)\n      kbo(:, 5,57,14) = (/ &\n        & 0.11856e+03_rb,0.19423e+03_rb,0.23618e+03_rb,0.22816e+03_rb,0.17767e+03_rb /)\n      kbo(:, 1,58,14) = (/ &\n        & 0.56098e+02_rb,0.14991e+03_rb,0.18980e+03_rb,0.18465e+03_rb,0.11706e+03_rb /)\n      kbo(:, 2,58,14) = (/ &\n        & 0.70377e+02_rb,0.16367e+03_rb,0.20622e+03_rb,0.19942e+03_rb,0.13378e+03_rb /)\n      kbo(:, 3,58,14) = (/ &\n        & 0.85049e+02_rb,0.17528e+03_rb,0.21902e+03_rb,0.21119e+03_rb,0.14910e+03_rb /)\n      kbo(:, 4,58,14) = (/ &\n        & 0.99857e+02_rb,0.18482e+03_rb,0.22827e+03_rb,0.22022e+03_rb,0.16268e+03_rb /)\n      kbo(:, 5,58,14) = (/ &\n        & 0.11428e+03_rb,0.19233e+03_rb,0.23470e+03_rb,0.22666e+03_rb,0.17444e+03_rb /)\n      kbo(:, 1,59,14) = (/ &\n        & 0.54418e+02_rb,0.14809e+03_rb,0.18754e+03_rb,0.18261e+03_rb,0.11495e+03_rb /)\n      kbo(:, 2,59,14) = (/ &\n        & 0.68598e+02_rb,0.16210e+03_rb,0.20441e+03_rb,0.19778e+03_rb,0.13180e+03_rb /)\n      kbo(:, 3,59,14) = (/ &\n        & 0.83246e+02_rb,0.17398e+03_rb,0.21768e+03_rb,0.20993e+03_rb,0.14733e+03_rb /)\n      kbo(:, 4,59,14) = (/ &\n        & 0.98055e+02_rb,0.18375e+03_rb,0.22732e+03_rb,0.21927e+03_rb,0.16113e+03_rb /)\n      kbo(:, 5,59,14) = (/ &\n        & 0.11255e+03_rb,0.19153e+03_rb,0.23406e+03_rb,0.22601e+03_rb,0.17310e+03_rb /)\n      kbo(:, 1,13,15) = (/ &\n        & 0.40932e+03_rb,0.30758e+03_rb,0.26133e+03_rb,0.32395e+03_rb,0.43211e+03_rb /)\n      kbo(:, 2,13,15) = (/ &\n        & 0.41123e+03_rb,0.30908e+03_rb,0.25921e+03_rb,0.31805e+03_rb,0.42431e+03_rb /)\n      kbo(:, 3,13,15) = (/ &\n        & 0.41219e+03_rb,0.30983e+03_rb,0.25685e+03_rb,0.31214e+03_rb,0.41639e+03_rb /)\n      kbo(:, 4,13,15) = (/ &\n        & 0.41228e+03_rb,0.30991e+03_rb,0.25419e+03_rb,0.30614e+03_rb,0.40836e+03_rb /)\n      kbo(:, 5,13,15) = (/ &\n        & 0.41130e+03_rb,0.30917e+03_rb,0.25126e+03_rb,0.30055e+03_rb,0.40088e+03_rb /)\n      kbo(:, 1,14,15) = (/ &\n        & 0.46527e+03_rb,0.34966e+03_rb,0.29823e+03_rb,0.35533e+03_rb,0.47402e+03_rb /)\n      kbo(:, 2,14,15) = (/ &\n        & 0.46656e+03_rb,0.35065e+03_rb,0.29540e+03_rb,0.34864e+03_rb,0.46510e+03_rb /)\n      kbo(:, 3,14,15) = (/ &\n        & 0.46685e+03_rb,0.35090e+03_rb,0.29209e+03_rb,0.34189e+03_rb,0.45610e+03_rb /)\n      kbo(:, 4,14,15) = (/ &\n        & 0.46575e+03_rb,0.35012e+03_rb,0.28845e+03_rb,0.33526e+03_rb,0.44716e+03_rb /)\n      kbo(:, 5,14,15) = (/ &\n        & 0.46388e+03_rb,0.34873e+03_rb,0.28457e+03_rb,0.32965e+03_rb,0.43950e+03_rb /)\n      kbo(:, 1,15,15) = (/ &\n        & 0.52376e+03_rb,0.39388e+03_rb,0.33756e+03_rb,0.38636e+03_rb,0.51543e+03_rb /)\n      kbo(:, 2,15,15) = (/ &\n        & 0.52445e+03_rb,0.39416e+03_rb,0.33368e+03_rb,0.37892e+03_rb,0.50548e+03_rb /)\n      kbo(:, 3,15,15) = (/ &\n        & 0.52345e+03_rb,0.39343e+03_rb,0.32922e+03_rb,0.37141e+03_rb,0.49535e+03_rb /)\n      kbo(:, 4,15,15) = (/ &\n        & 0.52134e+03_rb,0.39188e+03_rb,0.32434e+03_rb,0.36468e+03_rb,0.48621e+03_rb /)\n      kbo(:, 5,15,15) = (/ &\n        & 0.51791e+03_rb,0.38933e+03_rb,0.31931e+03_rb,0.35855e+03_rb,0.47766e+03_rb /)\n      kbo(:, 1,16,15) = (/ &\n        & 0.58401e+03_rb,0.43962e+03_rb,0.37845e+03_rb,0.41772e+03_rb,0.55681e+03_rb /)\n      kbo(:, 2,16,15) = (/ &\n        & 0.58308e+03_rb,0.43844e+03_rb,0.37324e+03_rb,0.40927e+03_rb,0.54538e+03_rb /)\n      kbo(:, 3,16,15) = (/ &\n        & 0.58094e+03_rb,0.43662e+03_rb,0.36730e+03_rb,0.40107e+03_rb,0.53429e+03_rb /)\n      kbo(:, 4,16,15) = (/ &\n        & 0.57721e+03_rb,0.43385e+03_rb,0.36102e+03_rb,0.39367e+03_rb,0.52421e+03_rb /)\n      kbo(:, 5,16,15) = (/ &\n        & 0.57218e+03_rb,0.43010e+03_rb,0.35444e+03_rb,0.38654e+03_rb,0.51433e+03_rb /)\n      kbo(:, 1,17,15) = (/ &\n        & 0.64407e+03_rb,0.48569e+03_rb,0.41994e+03_rb,0.44912e+03_rb,0.59692e+03_rb /)\n      kbo(:, 2,17,15) = (/ &\n        & 0.64180e+03_rb,0.48304e+03_rb,0.41300e+03_rb,0.43957e+03_rb,0.58409e+03_rb /)\n      kbo(:, 3,17,15) = (/ &\n        & 0.63774e+03_rb,0.47951e+03_rb,0.40543e+03_rb,0.43048e+03_rb,0.57188e+03_rb /)\n      kbo(:, 4,17,15) = (/ &\n        & 0.63221e+03_rb,0.47511e+03_rb,0.39752e+03_rb,0.42195e+03_rb,0.56041e+03_rb /)\n      kbo(:, 5,17,15) = (/ &\n        & 0.62531e+03_rb,0.46997e+03_rb,0.38917e+03_rb,0.41353e+03_rb,0.54901e+03_rb /)\n      kbo(:, 1,18,15) = (/ &\n        & 0.70302e+03_rb,0.53125e+03_rb,0.46110e+03_rb,0.48015e+03_rb,0.63499e+03_rb /)\n      kbo(:, 2,18,15) = (/ &\n        & 0.69876e+03_rb,0.52681e+03_rb,0.45218e+03_rb,0.46935e+03_rb,0.62082e+03_rb /)\n      kbo(:, 3,18,15) = (/ &\n        & 0.69273e+03_rb,0.52130e+03_rb,0.44272e+03_rb,0.45897e+03_rb,0.60731e+03_rb /)\n      kbo(:, 4,18,15) = (/ &\n        & 0.68529e+03_rb,0.51514e+03_rb,0.43287e+03_rb,0.44907e+03_rb,0.59416e+03_rb /)\n      kbo(:, 5,18,15) = (/ &\n        & 0.67604e+03_rb,0.50804e+03_rb,0.42255e+03_rb,0.43929e+03_rb,0.58117e+03_rb /)\n      kbo(:, 1,19,15) = (/ &\n        & 0.75927e+03_rb,0.57536e+03_rb,0.50097e+03_rb,0.51007e+03_rb,0.67027e+03_rb /)\n      kbo(:, 2,19,15) = (/ &\n        & 0.75290e+03_rb,0.56864e+03_rb,0.48996e+03_rb,0.49791e+03_rb,0.65476e+03_rb /)\n      kbo(:, 3,19,15) = (/ &\n        & 0.74466e+03_rb,0.56117e+03_rb,0.47832e+03_rb,0.48599e+03_rb,0.63995e+03_rb /)\n      kbo(:, 4,19,15) = (/ &\n        & 0.73483e+03_rb,0.55286e+03_rb,0.46627e+03_rb,0.47459e+03_rb,0.62519e+03_rb /)\n      kbo(:, 5,19,15) = (/ &\n        & 0.72353e+03_rb,0.54375e+03_rb,0.45395e+03_rb,0.46331e+03_rb,0.61054e+03_rb /)\n      kbo(:, 1,20,15) = (/ &\n        & 0.81171e+03_rb,0.61670e+03_rb,0.53858e+03_rb,0.53802e+03_rb,0.70226e+03_rb /)\n      kbo(:, 2,20,15) = (/ &\n        & 0.80307e+03_rb,0.60788e+03_rb,0.52517e+03_rb,0.52417e+03_rb,0.68550e+03_rb /)\n      kbo(:, 3,20,15) = (/ &\n        & 0.79257e+03_rb,0.59823e+03_rb,0.51114e+03_rb,0.51080e+03_rb,0.66917e+03_rb /)\n      kbo(:, 4,20,15) = (/ &\n        & 0.78036e+03_rb,0.58759e+03_rb,0.49687e+03_rb,0.49775e+03_rb,0.65285e+03_rb /)\n      kbo(:, 5,20,15) = (/ &\n        & 0.76671e+03_rb,0.57649e+03_rb,0.48237e+03_rb,0.48486e+03_rb,0.63647e+03_rb /)\n      kbo(:, 1,21,15) = (/ &\n        & 0.85929e+03_rb,0.65464e+03_rb,0.57309e+03_rb,0.56354e+03_rb,0.73074e+03_rb /)\n      kbo(:, 2,21,15) = (/ &\n        & 0.84853e+03_rb,0.64350e+03_rb,0.55721e+03_rb,0.54790e+03_rb,0.71267e+03_rb /)\n      kbo(:, 3,21,15) = (/ &\n        & 0.83578e+03_rb,0.63172e+03_rb,0.54090e+03_rb,0.53299e+03_rb,0.69483e+03_rb /)\n      kbo(:, 4,21,15) = (/ &\n        & 0.82132e+03_rb,0.61900e+03_rb,0.52438e+03_rb,0.51831e+03_rb,0.67689e+03_rb /)\n      kbo(:, 5,21,15) = (/ &\n        & 0.80511e+03_rb,0.60568e+03_rb,0.50774e+03_rb,0.50398e+03_rb,0.65894e+03_rb /)\n      kbo(:, 1,22,15) = (/ &\n        & 0.90088e+03_rb,0.68794e+03_rb,0.60297e+03_rb,0.58517e+03_rb,0.75429e+03_rb /)\n      kbo(:, 2,22,15) = (/ &\n        & 0.88795e+03_rb,0.67453e+03_rb,0.58458e+03_rb,0.56794e+03_rb,0.73512e+03_rb /)\n      kbo(:, 3,22,15) = (/ &\n        & 0.87296e+03_rb,0.66047e+03_rb,0.56607e+03_rb,0.55151e+03_rb,0.71573e+03_rb /)\n      kbo(:, 4,22,15) = (/ &\n        & 0.85602e+03_rb,0.64569e+03_rb,0.54736e+03_rb,0.53534e+03_rb,0.69633e+03_rb /)\n      kbo(:, 5,22,15) = (/ &\n        & 0.83763e+03_rb,0.63042e+03_rb,0.52879e+03_rb,0.51959e+03_rb,0.67694e+03_rb /)\n      kbo(:, 1,23,15) = (/ &\n        & 0.93708e+03_rb,0.71670e+03_rb,0.62868e+03_rb,0.60370e+03_rb,0.77407e+03_rb /)\n      kbo(:, 2,23,15) = (/ &\n        & 0.92204e+03_rb,0.70111e+03_rb,0.60797e+03_rb,0.58479e+03_rb,0.75367e+03_rb /)\n      kbo(:, 3,23,15) = (/ &\n        & 0.90485e+03_rb,0.68501e+03_rb,0.58723e+03_rb,0.56696e+03_rb,0.73284e+03_rb /)\n      kbo(:, 4,23,15) = (/ &\n        & 0.88551e+03_rb,0.66835e+03_rb,0.56656e+03_rb,0.54939e+03_rb,0.71207e+03_rb /)\n      kbo(:, 5,23,15) = (/ &\n        & 0.86499e+03_rb,0.65129e+03_rb,0.54624e+03_rb,0.53240e+03_rb,0.69156e+03_rb /)\n      kbo(:, 1,24,15) = (/ &\n        & 0.96776e+03_rb,0.74092e+03_rb,0.64997e+03_rb,0.61898e+03_rb,0.79010e+03_rb /)\n      kbo(:, 2,24,15) = (/ &\n        & 0.95072e+03_rb,0.72338e+03_rb,0.62717e+03_rb,0.59867e+03_rb,0.76855e+03_rb /)\n      kbo(:, 3,24,15) = (/ &\n        & 0.93122e+03_rb,0.70539e+03_rb,0.60446e+03_rb,0.57944e+03_rb,0.74652e+03_rb /)\n      kbo(:, 4,24,15) = (/ &\n        & 0.90993e+03_rb,0.68704e+03_rb,0.58213e+03_rb,0.56067e+03_rb,0.72451e+03_rb /)\n      kbo(:, 5,24,15) = (/ &\n        & 0.88757e+03_rb,0.66845e+03_rb,0.56030e+03_rb,0.54254e+03_rb,0.70312e+03_rb /)\n      kbo(:, 1,25,15) = (/ &\n        & 0.99329e+03_rb,0.76073e+03_rb,0.66706e+03_rb,0.63101e+03_rb,0.80276e+03_rb /)\n      kbo(:, 2,25,15) = (/ &\n        & 0.97397e+03_rb,0.74138e+03_rb,0.64231e+03_rb,0.60949e+03_rb,0.78003e+03_rb /)\n      kbo(:, 3,25,15) = (/ &\n        & 0.95257e+03_rb,0.72186e+03_rb,0.61798e+03_rb,0.58904e+03_rb,0.75681e+03_rb /)\n      kbo(:, 4,25,15) = (/ &\n        & 0.92942e+03_rb,0.70193e+03_rb,0.59417e+03_rb,0.56923e+03_rb,0.73392e+03_rb /)\n      kbo(:, 5,25,15) = (/ &\n        & 0.90532e+03_rb,0.68191e+03_rb,0.57100e+03_rb,0.55015e+03_rb,0.71169e+03_rb /)\n      kbo(:, 1,26,15) = (/ &\n        & 0.10136e+04_rb,0.77623e+03_rb,0.67983e+03_rb,0.63982e+03_rb,0.81189e+03_rb /)\n      kbo(:, 2,26,15) = (/ &\n        & 0.99212e+03_rb,0.75536e+03_rb,0.65345e+03_rb,0.61726e+03_rb,0.78804e+03_rb /)\n      kbo(:, 3,26,15) = (/ &\n        & 0.96906e+03_rb,0.73441e+03_rb,0.62784e+03_rb,0.59585e+03_rb,0.76400e+03_rb /)\n      kbo(:, 4,26,15) = (/ &\n        & 0.94442e+03_rb,0.71314e+03_rb,0.60278e+03_rb,0.57514e+03_rb,0.74031e+03_rb /)\n      kbo(:, 5,26,15) = (/ &\n        & 0.91870e+03_rb,0.69199e+03_rb,0.57850e+03_rb,0.55532e+03_rb,0.71748e+03_rb /)\n      kbo(:, 1,27,15) = (/ &\n        & 0.10295e+04_rb,0.78816e+03_rb,0.68910e+03_rb,0.64601e+03_rb,0.81822e+03_rb /)\n      kbo(:, 2,27,15) = (/ &\n        & 0.10061e+04_rb,0.76604e+03_rb,0.66144e+03_rb,0.62260e+03_rb,0.79343e+03_rb /)\n      kbo(:, 3,27,15) = (/ &\n        & 0.98153e+03_rb,0.74373e+03_rb,0.63470e+03_rb,0.60041e+03_rb,0.76875e+03_rb /)\n      kbo(:, 4,27,15) = (/ &\n        & 0.95548e+03_rb,0.72130e+03_rb,0.60866e+03_rb,0.57907e+03_rb,0.74456e+03_rb /)\n      kbo(:, 5,27,15) = (/ &\n        & 0.92838e+03_rb,0.69916e+03_rb,0.58347e+03_rb,0.55864e+03_rb,0.72113e+03_rb /)\n      kbo(:, 1,28,15) = (/ &\n        & 0.10413e+04_rb,0.79681e+03_rb,0.69534e+03_rb,0.64995e+03_rb,0.82220e+03_rb /)\n      kbo(:, 2,28,15) = (/ &\n        & 0.10164e+04_rb,0.77357e+03_rb,0.66667e+03_rb,0.62595e+03_rb,0.79680e+03_rb /)\n      kbo(:, 3,28,15) = (/ &\n        & 0.99062e+03_rb,0.75026e+03_rb,0.63903e+03_rb,0.60314e+03_rb,0.77147e+03_rb /)\n      kbo(:, 4,28,15) = (/ &\n        & 0.96323e+03_rb,0.72694e+03_rb,0.61220e+03_rb,0.58130e+03_rb,0.74687e+03_rb /)\n      kbo(:, 5,28,15) = (/ &\n        & 0.93489e+03_rb,0.70393e+03_rb,0.58636e+03_rb,0.56041e+03_rb,0.72308e+03_rb /)\n      kbo(:, 1,29,15) = (/ &\n        & 0.10495e+04_rb,0.80260e+03_rb,0.69878e+03_rb,0.65184e+03_rb,0.82409e+03_rb /)\n      kbo(:, 2,29,15) = (/ &\n        & 0.10235e+04_rb,0.77841e+03_rb,0.66934e+03_rb,0.62739e+03_rb,0.79811e+03_rb /)\n      kbo(:, 3,29,15) = (/ &\n        & 0.99642e+03_rb,0.75425e+03_rb,0.64103e+03_rb,0.60412e+03_rb,0.77230e+03_rb /)\n      kbo(:, 4,29,15) = (/ &\n        & 0.96796e+03_rb,0.73025e+03_rb,0.61357e+03_rb,0.58189e+03_rb,0.74741e+03_rb /)\n      kbo(:, 5,29,15) = (/ &\n        & 0.93857e+03_rb,0.70654e+03_rb,0.58732e+03_rb,0.56077e+03_rb,0.72335e+03_rb /)\n      kbo(:, 1,30,15) = (/ &\n        & 0.10549e+04_rb,0.80614e+03_rb,0.70001e+03_rb,0.65202e+03_rb,0.82418e+03_rb /)\n      kbo(:, 2,30,15) = (/ &\n        & 0.10278e+04_rb,0.78108e+03_rb,0.67004e+03_rb,0.62730e+03_rb,0.79771e+03_rb /)\n      kbo(:, 3,30,15) = (/ &\n        & 0.99966e+03_rb,0.75628e+03_rb,0.64121e+03_rb,0.60374e+03_rb,0.77172e+03_rb /)\n      kbo(:, 4,30,15) = (/ &\n        & 0.97021e+03_rb,0.73170e+03_rb,0.61335e+03_rb,0.58130e+03_rb,0.74664e+03_rb /)\n      kbo(:, 5,30,15) = (/ &\n        & 0.94007e+03_rb,0.70743e+03_rb,0.58676e+03_rb,0.55999e+03_rb,0.72234e+03_rb /)\n      kbo(:, 1,31,15) = (/ &\n        & 0.10577e+04_rb,0.80741e+03_rb,0.69925e+03_rb,0.65081e+03_rb,0.82281e+03_rb /)\n      kbo(:, 2,31,15) = (/ &\n        & 0.10297e+04_rb,0.78182e+03_rb,0.66894e+03_rb,0.62588e+03_rb,0.79605e+03_rb /)\n      kbo(:, 3,31,15) = (/ &\n        & 0.10005e+04_rb,0.75649e+03_rb,0.63976e+03_rb,0.60219e+03_rb,0.76987e+03_rb /)\n      kbo(:, 4,31,15) = (/ &\n        & 0.97028e+03_rb,0.73149e+03_rb,0.61167e+03_rb,0.57962e+03_rb,0.74468e+03_rb /)\n      kbo(:, 5,31,15) = (/ &\n        & 0.93951e+03_rb,0.70673e+03_rb,0.58494e+03_rb,0.55830e+03_rb,0.72033e+03_rb /)\n      kbo(:, 1,32,15) = (/ &\n        & 0.10585e+04_rb,0.80706e+03_rb,0.69697e+03_rb,0.64853e+03_rb,0.82034e+03_rb /)\n      kbo(:, 2,32,15) = (/ &\n        & 0.10295e+04_rb,0.78094e+03_rb,0.66639e+03_rb,0.62348e+03_rb,0.79329e+03_rb /)\n      kbo(:, 3,32,15) = (/ &\n        & 0.99955e+03_rb,0.75528e+03_rb,0.63700e+03_rb,0.59969e+03_rb,0.76700e+03_rb /)\n      kbo(:, 4,32,15) = (/ &\n        & 0.96864e+03_rb,0.72996e+03_rb,0.60885e+03_rb,0.57712e+03_rb,0.74178e+03_rb /)\n      kbo(:, 5,32,15) = (/ &\n        & 0.93737e+03_rb,0.70488e+03_rb,0.58204e+03_rb,0.55579e+03_rb,0.71738e+03_rb /)\n      kbo(:, 1,33,15) = (/ &\n        & 0.10575e+04_rb,0.80530e+03_rb,0.69345e+03_rb,0.64529e+03_rb,0.81678e+03_rb /)\n      kbo(:, 2,33,15) = (/ &\n        & 0.10278e+04_rb,0.77890e+03_rb,0.66278e+03_rb,0.62027e+03_rb,0.78965e+03_rb /)\n      kbo(:, 3,33,15) = (/ &\n        & 0.99704e+03_rb,0.75290e+03_rb,0.63324e+03_rb,0.59645e+03_rb,0.76337e+03_rb /)\n      kbo(:, 4,33,15) = (/ &\n        & 0.96555e+03_rb,0.72726e+03_rb,0.60509e+03_rb,0.57394e+03_rb,0.73813e+03_rb /)\n      kbo(:, 5,33,15) = (/ &\n        & 0.93393e+03_rb,0.70207e+03_rb,0.57839e+03_rb,0.55267e+03_rb,0.71377e+03_rb /)\n      kbo(:, 1,34,15) = (/ &\n        & 0.10561e+04_rb,0.80340e+03_rb,0.69012e+03_rb,0.64228e+03_rb,0.81344e+03_rb /)\n      kbo(:, 2,34,15) = (/ &\n        & 0.10257e+04_rb,0.77677e+03_rb,0.65936e+03_rb,0.61726e+03_rb,0.78628e+03_rb /)\n      kbo(:, 3,34,15) = (/ &\n        & 0.99442e+03_rb,0.75053e+03_rb,0.62978e+03_rb,0.59351e+03_rb,0.76009e+03_rb /)\n      kbo(:, 4,34,15) = (/ &\n        & 0.96258e+03_rb,0.72472e+03_rb,0.60168e+03_rb,0.57104e+03_rb,0.73478e+03_rb /)\n      kbo(:, 5,34,15) = (/ &\n        & 0.93053e+03_rb,0.69938e+03_rb,0.57499e+03_rb,0.54984e+03_rb,0.71051e+03_rb /)\n      kbo(:, 1,35,15) = (/ &\n        & 0.10564e+04_rb,0.80326e+03_rb,0.68907e+03_rb,0.64121e+03_rb,0.81221e+03_rb /)\n      kbo(:, 2,35,15) = (/ &\n        & 0.10257e+04_rb,0.77646e+03_rb,0.65819e+03_rb,0.61612e+03_rb,0.78498e+03_rb /)\n      kbo(:, 3,35,15) = (/ &\n        & 0.99396e+03_rb,0.74998e+03_rb,0.62850e+03_rb,0.59231e+03_rb,0.75874e+03_rb /)\n      kbo(:, 4,35,15) = (/ &\n        & 0.96182e+03_rb,0.72398e+03_rb,0.60037e+03_rb,0.56987e+03_rb,0.73339e+03_rb /)\n      kbo(:, 5,35,15) = (/ &\n        & 0.92945e+03_rb,0.69852e+03_rb,0.57362e+03_rb,0.54864e+03_rb,0.70910e+03_rb /)\n      kbo(:, 1,36,15) = (/ &\n        & 0.10593e+04_rb,0.80545e+03_rb,0.69086e+03_rb,0.64252e+03_rb,0.81357e+03_rb /)\n      kbo(:, 2,36,15) = (/ &\n        & 0.10283e+04_rb,0.77842e+03_rb,0.65978e+03_rb,0.61726e+03_rb,0.78619e+03_rb /)\n      kbo(:, 3,36,15) = (/ &\n        & 0.99627e+03_rb,0.75174e+03_rb,0.62993e+03_rb,0.59335e+03_rb,0.75988e+03_rb /)\n      kbo(:, 4,36,15) = (/ &\n        & 0.96386e+03_rb,0.72553e+03_rb,0.60161e+03_rb,0.57080e+03_rb,0.73443e+03_rb /)\n      kbo(:, 5,36,15) = (/ &\n        & 0.93134e+03_rb,0.69996e+03_rb,0.57477e+03_rb,0.54947e+03_rb,0.71003e+03_rb /)\n      kbo(:, 1,37,15) = (/ &\n        & 0.10662e+04_rb,0.81134e+03_rb,0.69713e+03_rb,0.64751e+03_rb,0.81885e+03_rb /)\n      kbo(:, 2,37,15) = (/ &\n        & 0.10351e+04_rb,0.78402e+03_rb,0.66565e+03_rb,0.62189e+03_rb,0.79122e+03_rb /)\n      kbo(:, 3,37,15) = (/ &\n        & 0.10030e+04_rb,0.75714e+03_rb,0.63542e+03_rb,0.59764e+03_rb,0.76460e+03_rb /)\n      kbo(:, 4,37,15) = (/ &\n        & 0.97042e+03_rb,0.73071e+03_rb,0.60674e+03_rb,0.57477e+03_rb,0.73895e+03_rb /)\n      kbo(:, 5,37,15) = (/ &\n        & 0.93771e+03_rb,0.70485e+03_rb,0.57959e+03_rb,0.55322e+03_rb,0.71431e+03_rb /)\n      kbo(:, 1,38,15) = (/ &\n        & 0.10729e+04_rb,0.81713e+03_rb,0.70342e+03_rb,0.65252e+03_rb,0.82415e+03_rb /)\n      kbo(:, 2,38,15) = (/ &\n        & 0.10416e+04_rb,0.78952e+03_rb,0.67152e+03_rb,0.62655e+03_rb,0.79626e+03_rb /)\n      kbo(:, 3,38,15) = (/ &\n        & 0.10096e+04_rb,0.76249e+03_rb,0.64098e+03_rb,0.60198e+03_rb,0.76937e+03_rb /)\n      kbo(:, 4,38,15) = (/ &\n        & 0.97695e+03_rb,0.73588e+03_rb,0.61197e+03_rb,0.57883e+03_rb,0.74352e+03_rb /)\n      kbo(:, 5,38,15) = (/ &\n        & 0.94411e+03_rb,0.70978e+03_rb,0.58447e+03_rb,0.55704e+03_rb,0.71866e+03_rb /)\n      kbo(:, 1,39,15) = (/ &\n        & 0.10791e+04_rb,0.82257e+03_rb,0.70938e+03_rb,0.65729e+03_rb,0.82913e+03_rb /)\n      kbo(:, 2,39,15) = (/ &\n        & 0.10479e+04_rb,0.79481e+03_rb,0.67717e+03_rb,0.63099e+03_rb,0.80105e+03_rb /)\n      kbo(:, 3,39,15) = (/ &\n        & 0.10158e+04_rb,0.76754e+03_rb,0.64630e+03_rb,0.60614e+03_rb,0.77394e+03_rb /)\n      kbo(:, 4,39,15) = (/ &\n        & 0.98307e+03_rb,0.74076e+03_rb,0.61694e+03_rb,0.58271e+03_rb,0.74789e+03_rb /)\n      kbo(:, 5,39,15) = (/ &\n        & 0.95013e+03_rb,0.71446e+03_rb,0.58917e+03_rb,0.56072e+03_rb,0.72285e+03_rb /)\n      kbo(:, 1,40,15) = (/ &\n        & 0.10882e+04_rb,0.83071e+03_rb,0.71862e+03_rb,0.66478e+03_rb,0.83689e+03_rb /)\n      kbo(:, 2,40,15) = (/ &\n        & 0.10571e+04_rb,0.80265e+03_rb,0.68589e+03_rb,0.63804e+03_rb,0.80862e+03_rb /)\n      kbo(:, 3,40,15) = (/ &\n        & 0.10251e+04_rb,0.77527e+03_rb,0.65462e+03_rb,0.61278e+03_rb,0.78119e+03_rb /)\n      kbo(:, 4,40,15) = (/ &\n        & 0.99232e+03_rb,0.74818e+03_rb,0.62475e+03_rb,0.58893e+03_rb,0.75487e+03_rb /)\n      kbo(:, 5,40,15) = (/ &\n        & 0.95932e+03_rb,0.72168e+03_rb,0.59655e+03_rb,0.56653e+03_rb,0.72946e+03_rb /)\n      kbo(:, 1,41,15) = (/ &\n        & 0.10971e+04_rb,0.83901e+03_rb,0.72823e+03_rb,0.67265e+03_rb,0.84493e+03_rb /)\n      kbo(:, 2,41,15) = (/ &\n        & 0.10663e+04_rb,0.81071e+03_rb,0.69500e+03_rb,0.64543e+03_rb,0.81648e+03_rb /)\n      kbo(:, 3,41,15) = (/ &\n        & 0.10345e+04_rb,0.78315e+03_rb,0.66331e+03_rb,0.61971e+03_rb,0.78878e+03_rb /)\n      kbo(:, 4,41,15) = (/ &\n        & 0.10019e+04_rb,0.75590e+03_rb,0.63295e+03_rb,0.59541e+03_rb,0.76210e+03_rb /)\n      kbo(:, 5,41,15) = (/ &\n        & 0.96878e+03_rb,0.72921e+03_rb,0.60428e+03_rb,0.57260e+03_rb,0.73637e+03_rb /)\n      kbo(:, 1,42,15) = (/ &\n        & 0.11058e+04_rb,0.84736e+03_rb,0.73795e+03_rb,0.68059e+03_rb,0.85278e+03_rb /)\n      kbo(:, 2,42,15) = (/ &\n        & 0.10754e+04_rb,0.81879e+03_rb,0.70412e+03_rb,0.65281e+03_rb,0.82432e+03_rb /)\n      kbo(:, 3,42,15) = (/ &\n        & 0.10438e+04_rb,0.79093e+03_rb,0.67198e+03_rb,0.62664e+03_rb,0.79629e+03_rb /)\n      kbo(:, 4,42,15) = (/ &\n        & 0.10112e+04_rb,0.76353e+03_rb,0.64116e+03_rb,0.60189e+03_rb,0.76925e+03_rb /)\n      kbo(:, 5,42,15) = (/ &\n        & 0.97804e+03_rb,0.73660e+03_rb,0.61202e+03_rb,0.57870e+03_rb,0.74332e+03_rb /)\n      kbo(:, 1,43,15) = (/ &\n        & 0.11158e+04_rb,0.85717e+03_rb,0.74955e+03_rb,0.69024e+03_rb,0.86217e+03_rb /)\n      kbo(:, 2,43,15) = (/ &\n        & 0.10861e+04_rb,0.82836e+03_rb,0.71518e+03_rb,0.66177e+03_rb,0.83370e+03_rb /)\n      kbo(:, 3,43,15) = (/ &\n        & 0.10546e+04_rb,0.80021e+03_rb,0.68243e+03_rb,0.63507e+03_rb,0.80541e+03_rb /)\n      kbo(:, 4,43,15) = (/ &\n        & 0.10222e+04_rb,0.77261e+03_rb,0.65115e+03_rb,0.60984e+03_rb,0.77795e+03_rb /)\n      kbo(:, 5,43,15) = (/ &\n        & 0.98916e+03_rb,0.74551e+03_rb,0.62143e+03_rb,0.58614e+03_rb,0.75171e+03_rb /)\n      kbo(:, 1,44,15) = (/ &\n        & 0.11264e+04_rb,0.86786e+03_rb,0.76217e+03_rb,0.70088e+03_rb,0.87207e+03_rb /)\n      kbo(:, 2,44,15) = (/ &\n        & 0.10970e+04_rb,0.83855e+03_rb,0.72711e+03_rb,0.67158e+03_rb,0.84381e+03_rb /)\n      kbo(:, 3,44,15) = (/ &\n        & 0.10660e+04_rb,0.81015e+03_rb,0.69375e+03_rb,0.64429e+03_rb,0.81530e+03_rb /)\n      kbo(:, 4,44,15) = (/ &\n        & 0.10339e+04_rb,0.78245e+03_rb,0.66207e+03_rb,0.61859e+03_rb,0.78750e+03_rb /)\n      kbo(:, 5,44,15) = (/ &\n        & 0.10010e+04_rb,0.75506e+03_rb,0.63169e+03_rb,0.59432e+03_rb,0.76086e+03_rb /)\n      kbo(:, 1,45,15) = (/ &\n        & 0.11364e+04_rb,0.87855e+03_rb,0.77494e+03_rb,0.71181e+03_rb,0.88191e+03_rb /)\n      kbo(:, 2,45,15) = (/ &\n        & 0.11078e+04_rb,0.84885e+03_rb,0.73921e+03_rb,0.68154e+03_rb,0.85373e+03_rb /)\n      kbo(:, 3,45,15) = (/ &\n        & 0.10773e+04_rb,0.82021e+03_rb,0.70525e+03_rb,0.65361e+03_rb,0.82516e+03_rb /)\n      kbo(:, 4,45,15) = (/ &\n        & 0.10454e+04_rb,0.79218e+03_rb,0.67305e+03_rb,0.62740e+03_rb,0.79708e+03_rb /)\n      kbo(:, 5,45,15) = (/ &\n        & 0.10127e+04_rb,0.76466e+03_rb,0.64208e+03_rb,0.60256e+03_rb,0.76997e+03_rb /)\n      kbo(:, 1,46,15) = (/ &\n        & 0.11465e+04_rb,0.88995e+03_rb,0.78864e+03_rb,0.72357e+03_rb,0.89218e+03_rb /)\n      kbo(:, 2,46,15) = (/ &\n        & 0.11189e+04_rb,0.85981e+03_rb,0.75227e+03_rb,0.69242e+03_rb,0.86430e+03_rb /)\n      kbo(:, 3,46,15) = (/ &\n        & 0.10889e+04_rb,0.83077e+03_rb,0.71764e+03_rb,0.66370e+03_rb,0.83569e+03_rb /)\n      kbo(:, 4,46,15) = (/ &\n        & 0.10574e+04_rb,0.80253e+03_rb,0.68479e+03_rb,0.63689e+03_rb,0.80730e+03_rb /)\n      kbo(:, 5,46,15) = (/ &\n        & 0.10249e+04_rb,0.77483e+03_rb,0.65332e+03_rb,0.61153e+03_rb,0.77982e+03_rb /)\n      kbo(:, 1,47,15) = (/ &\n        & 0.11573e+04_rb,0.90286e+03_rb,0.80421e+03_rb,0.73669e+03_rb,0.90313e+03_rb /)\n      kbo(:, 2,47,15) = (/ &\n        & 0.11308e+04_rb,0.87219e+03_rb,0.76703e+03_rb,0.70495e+03_rb,0.87583e+03_rb /)\n      kbo(:, 3,47,15) = (/ &\n        & 0.11017e+04_rb,0.84272e+03_rb,0.73168e+03_rb,0.67524e+03_rb,0.84747e+03_rb /)\n      kbo(:, 4,47,15) = (/ &\n        & 0.10706e+04_rb,0.81413e+03_rb,0.69808e+03_rb,0.64772e+03_rb,0.81886e+03_rb /)\n      kbo(:, 5,47,15) = (/ &\n        & 0.10385e+04_rb,0.78623e+03_rb,0.66606e+03_rb,0.62176e+03_rb,0.79095e+03_rb /)\n      kbo(:, 1,48,15) = (/ &\n        & 0.11675e+04_rb,0.91580e+03_rb,0.81991e+03_rb,0.74998e+03_rb,0.91375e+03_rb /)\n      kbo(:, 2,48,15) = (/ &\n        & 0.11421e+04_rb,0.88462e+03_rb,0.78203e+03_rb,0.71783e+03_rb,0.88726e+03_rb /)\n      kbo(:, 3,48,15) = (/ &\n        & 0.11139e+04_rb,0.85471e+03_rb,0.74597e+03_rb,0.68710e+03_rb,0.85917e+03_rb /)\n      kbo(:, 4,48,15) = (/ &\n        & 0.10836e+04_rb,0.82582e+03_rb,0.71165e+03_rb,0.65875e+03_rb,0.83052e+03_rb /)\n      kbo(:, 5,48,15) = (/ &\n        & 0.10518e+04_rb,0.79762e+03_rb,0.67897e+03_rb,0.63216e+03_rb,0.80224e+03_rb /)\n      kbo(:, 1,49,15) = (/ &\n        & 0.11770e+04_rb,0.92887e+03_rb,0.83589e+03_rb,0.76347e+03_rb,0.92401e+03_rb /)\n      kbo(:, 2,49,15) = (/ &\n        & 0.11531e+04_rb,0.89735e+03_rb,0.79736e+03_rb,0.73085e+03_rb,0.89839e+03_rb /)\n      kbo(:, 3,49,15) = (/ &\n        & 0.11259e+04_rb,0.86690e+03_rb,0.76049e+03_rb,0.69928e+03_rb,0.87069e+03_rb /)\n      kbo(:, 4,49,15) = (/ &\n        & 0.10963e+04_rb,0.83754e+03_rb,0.72543e+03_rb,0.67003e+03_rb,0.84223e+03_rb /)\n      kbo(:, 5,49,15) = (/ &\n        & 0.10650e+04_rb,0.80903e+03_rb,0.69202e+03_rb,0.64278e+03_rb,0.81363e+03_rb /)\n      kbo(:, 1,50,15) = (/ &\n        & 0.11850e+04_rb,0.94106e+03_rb,0.85114e+03_rb,0.77623e+03_rb,0.93320e+03_rb /)\n      kbo(:, 2,50,15) = (/ &\n        & 0.11628e+04_rb,0.90935e+03_rb,0.81191e+03_rb,0.74315e+03_rb,0.90846e+03_rb /)\n      kbo(:, 3,50,15) = (/ &\n        & 0.11368e+04_rb,0.87848e+03_rb,0.77441e+03_rb,0.71118e+03_rb,0.88145e+03_rb /)\n      kbo(:, 4,50,15) = (/ &\n        & 0.11080e+04_rb,0.84872e+03_rb,0.73862e+03_rb,0.68089e+03_rb,0.85311e+03_rb /)\n      kbo(:, 5,50,15) = (/ &\n        & 0.10771e+04_rb,0.81987e+03_rb,0.70453e+03_rb,0.65297e+03_rb,0.82446e+03_rb /)\n      kbo(:, 1,51,15) = (/ &\n        & 0.11923e+04_rb,0.95283e+03_rb,0.86626e+03_rb,0.78865e+03_rb,0.94170e+03_rb /)\n      kbo(:, 2,51,15) = (/ &\n        & 0.11717e+04_rb,0.92110e+03_rb,0.82616e+03_rb,0.75525e+03_rb,0.91794e+03_rb /)\n      kbo(:, 3,51,15) = (/ &\n        & 0.11468e+04_rb,0.88978e+03_rb,0.78804e+03_rb,0.72292e+03_rb,0.89168e+03_rb /)\n      kbo(:, 4,51,15) = (/ &\n        & 0.11189e+04_rb,0.85951e+03_rb,0.75159e+03_rb,0.69174e+03_rb,0.86368e+03_rb /)\n      kbo(:, 5,51,15) = (/ &\n        & 0.10888e+04_rb,0.83043e+03_rb,0.71698e+03_rb,0.66309e+03_rb,0.83504e+03_rb /)\n      kbo(:, 1,52,15) = (/ &\n        & 0.11987e+04_rb,0.96448e+03_rb,0.88155e+03_rb,0.80101e+03_rb,0.94976e+03_rb /)\n      kbo(:, 2,52,15) = (/ &\n        & 0.11799e+04_rb,0.93288e+03_rb,0.84067e+03_rb,0.76742e+03_rb,0.92694e+03_rb /)\n      kbo(:, 3,52,15) = (/ &\n        & 0.11564e+04_rb,0.90125e+03_rb,0.80189e+03_rb,0.73467e+03_rb,0.90155e+03_rb /)\n      kbo(:, 4,52,15) = (/ &\n        & 0.11296e+04_rb,0.87065e+03_rb,0.76482e+03_rb,0.70289e+03_rb,0.87401e+03_rb /)\n      kbo(:, 5,52,15) = (/ &\n        & 0.11001e+04_rb,0.84107e+03_rb,0.72948e+03_rb,0.67337e+03_rb,0.84559e+03_rb /)\n      kbo(:, 1,53,15) = (/ &\n        & 0.12042e+04_rb,0.97597e+03_rb,0.89729e+03_rb,0.81334e+03_rb,0.95716e+03_rb /)\n      kbo(:, 2,53,15) = (/ &\n        & 0.11876e+04_rb,0.94467e+03_rb,0.85557e+03_rb,0.77990e+03_rb,0.93591e+03_rb /)\n      kbo(:, 3,53,15) = (/ &\n        & 0.11657e+04_rb,0.91285e+03_rb,0.81605e+03_rb,0.74663e+03_rb,0.91125e+03_rb /)\n      kbo(:, 4,53,15) = (/ &\n        & 0.11399e+04_rb,0.88179e+03_rb,0.77830e+03_rb,0.71447e+03_rb,0.88437e+03_rb /)\n      kbo(:, 5,53,15) = (/ &\n        & 0.11113e+04_rb,0.85189e+03_rb,0.74233e+03_rb,0.68396e+03_rb,0.85611e+03_rb /)\n      kbo(:, 1,54,15) = (/ &\n        & 0.12085e+04_rb,0.98643e+03_rb,0.91208e+03_rb,0.82462e+03_rb,0.96332e+03_rb /)\n      kbo(:, 2,54,15) = (/ &\n        & 0.11940e+04_rb,0.95533e+03_rb,0.86934e+03_rb,0.79114e+03_rb,0.94342e+03_rb /)\n      kbo(:, 3,54,15) = (/ &\n        & 0.11737e+04_rb,0.92362e+03_rb,0.82909e+03_rb,0.75767e+03_rb,0.91977e+03_rb /)\n      kbo(:, 4,54,15) = (/ &\n        & 0.11490e+04_rb,0.89214e+03_rb,0.79079e+03_rb,0.72522e+03_rb,0.89369e+03_rb /)\n      kbo(:, 5,54,15) = (/ &\n        & 0.11212e+04_rb,0.86180e+03_rb,0.75420e+03_rb,0.69390e+03_rb,0.86571e+03_rb /)\n      kbo(:, 1,55,15) = (/ &\n        & 0.12111e+04_rb,0.99597e+03_rb,0.92635e+03_rb,0.83534e+03_rb,0.96856e+03_rb /)\n      kbo(:, 2,55,15) = (/ &\n        & 0.11993e+04_rb,0.96550e+03_rb,0.88281e+03_rb,0.80196e+03_rb,0.95029e+03_rb /)\n      kbo(:, 3,55,15) = (/ &\n        & 0.11808e+04_rb,0.93390e+03_rb,0.84185e+03_rb,0.76841e+03_rb,0.92774e+03_rb /)\n      kbo(:, 4,55,15) = (/ &\n        & 0.11574e+04_rb,0.90226e+03_rb,0.80305e+03_rb,0.73557e+03_rb,0.90236e+03_rb /)\n      kbo(:, 5,55,15) = (/ &\n        & 0.11305e+04_rb,0.87151e+03_rb,0.76581e+03_rb,0.70377e+03_rb,0.87482e+03_rb /)\n      kbo(:, 1,56,15) = (/ &\n        & 0.12133e+04_rb,0.10055e+04_rb,0.94091e+03_rb,0.84599e+03_rb,0.97308e+03_rb /)\n      kbo(:, 2,56,15) = (/ &\n        & 0.12041e+04_rb,0.97555e+03_rb,0.89660e+03_rb,0.81280e+03_rb,0.95684e+03_rb /)\n      kbo(:, 3,56,15) = (/ &\n        & 0.11875e+04_rb,0.94422e+03_rb,0.85482e+03_rb,0.77921e+03_rb,0.93538e+03_rb /)\n      kbo(:, 4,56,15) = (/ &\n        & 0.11654e+04_rb,0.91235e+03_rb,0.81536e+03_rb,0.74599e+03_rb,0.91077e+03_rb /)\n      kbo(:, 5,56,15) = (/ &\n        & 0.11395e+04_rb,0.88125e+03_rb,0.77756e+03_rb,0.71383e+03_rb,0.88381e+03_rb /)\n      kbo(:, 1,57,15) = (/ &\n        & 0.12144e+04_rb,0.10149e+04_rb,0.95530e+03_rb,0.85635e+03_rb,0.97654e+03_rb /)\n      kbo(:, 2,57,15) = (/ &\n        & 0.12082e+04_rb,0.98553e+03_rb,0.91069e+03_rb,0.82360e+03_rb,0.96286e+03_rb /)\n      kbo(:, 3,57,15) = (/ &\n        & 0.11936e+04_rb,0.95436e+03_rb,0.86797e+03_rb,0.78997e+03_rb,0.94263e+03_rb /)\n      kbo(:, 4,57,15) = (/ &\n        & 0.11730e+04_rb,0.92261e+03_rb,0.82779e+03_rb,0.75653e+03_rb,0.91896e+03_rb /)\n      kbo(:, 5,57,15) = (/ &\n        & 0.11481e+04_rb,0.89107e+03_rb,0.78949e+03_rb,0.72412e+03_rb,0.89274e+03_rb /)\n      kbo(:, 1,58,15) = (/ &\n        & 0.12146e+04_rb,0.10236e+04_rb,0.96889e+03_rb,0.86606e+03_rb,0.97897e+03_rb /)\n      kbo(:, 2,58,15) = (/ &\n        & 0.12111e+04_rb,0.99468e+03_rb,0.92419e+03_rb,0.83372e+03_rb,0.96790e+03_rb /)\n      kbo(:, 3,58,15) = (/ &\n        & 0.11988e+04_rb,0.96400e+03_rb,0.88060e+03_rb,0.80022e+03_rb,0.94932e+03_rb /)\n      kbo(:, 4,58,15) = (/ &\n        & 0.11798e+04_rb,0.93230e+03_rb,0.83979e+03_rb,0.76663e+03_rb,0.92647e+03_rb /)\n      kbo(:, 5,58,15) = (/ &\n        & 0.11561e+04_rb,0.90059e+03_rb,0.80102e+03_rb,0.73388e+03_rb,0.90094e+03_rb /)\n      kbo(:, 1,59,15) = (/ &\n        & 0.12143e+04_rb,0.10270e+04_rb,0.97431e+03_rb,0.86988e+03_rb,0.97963e+03_rb /)\n      kbo(:, 2,59,15) = (/ &\n        & 0.12120e+04_rb,0.99826e+03_rb,0.92964e+03_rb,0.83774e+03_rb,0.96974e+03_rb /)\n      kbo(:, 3,59,15) = (/ &\n        & 0.12008e+04_rb,0.96785e+03_rb,0.88575e+03_rb,0.80426e+03_rb,0.95182e+03_rb /)\n      kbo(:, 4,59,15) = (/ &\n        & 0.11824e+04_rb,0.93625e+03_rb,0.84468e+03_rb,0.77075e+03_rb,0.92946e+03_rb /)\n      kbo(:, 5,59,15) = (/ &\n        & 0.11592e+04_rb,0.90444e+03_rb,0.80567e+03_rb,0.73781e+03_rb,0.90417e+03_rb /)\n      kbo(:, 1,13,16) = (/ &\n        & 0.60786e+03_rb,0.45592e+03_rb,0.38499e+03_rb,0.57704e+03_rb,0.77025e+03_rb /)\n      kbo(:, 2,13,16) = (/ &\n        & 0.61089e+03_rb,0.45819e+03_rb,0.37289e+03_rb,0.55854e+03_rb,0.74550e+03_rb /)\n      kbo(:, 3,13,16) = (/ &\n        & 0.61169e+03_rb,0.45879e+03_rb,0.36189e+03_rb,0.54102e+03_rb,0.72223e+03_rb /)\n      kbo(:, 4,13,16) = (/ &\n        & 0.61079e+03_rb,0.45811e+03_rb,0.35169e+03_rb,0.52404e+03_rb,0.69950e+03_rb /)\n      kbo(:, 5,13,16) = (/ &\n        & 0.60850e+03_rb,0.45639e+03_rb,0.34199e+03_rb,0.50729e+03_rb,0.67716e+03_rb /)\n      kbo(:, 1,14,16) = (/ &\n        & 0.71905e+03_rb,0.53931e+03_rb,0.44704e+03_rb,0.66948e+03_rb,0.89363e+03_rb /)\n      kbo(:, 2,14,16) = (/ &\n        & 0.71950e+03_rb,0.53965e+03_rb,0.43274e+03_rb,0.64598e+03_rb,0.86230e+03_rb /)\n      kbo(:, 3,14,16) = (/ &\n        & 0.71818e+03_rb,0.53865e+03_rb,0.41969e+03_rb,0.62353e+03_rb,0.83220e+03_rb /)\n      kbo(:, 4,14,16) = (/ &\n        & 0.71532e+03_rb,0.53651e+03_rb,0.40717e+03_rb,0.60193e+03_rb,0.80343e+03_rb /)\n      kbo(:, 5,14,16) = (/ &\n        & 0.71008e+03_rb,0.53258e+03_rb,0.39527e+03_rb,0.58080e+03_rb,0.77521e+03_rb /)\n      kbo(:, 1,15,16) = (/ &\n        & 0.84339e+03_rb,0.63256e+03_rb,0.51534e+03_rb,0.76897e+03_rb,0.10264e+04_rb /)\n      kbo(:, 2,15,16) = (/ &\n        & 0.84056e+03_rb,0.63042e+03_rb,0.49783e+03_rb,0.73927e+03_rb,0.98670e+03_rb /)\n      kbo(:, 3,15,16) = (/ &\n        & 0.83549e+03_rb,0.62663e+03_rb,0.48183e+03_rb,0.71056e+03_rb,0.94836e+03_rb /)\n      kbo(:, 4,15,16) = (/ &\n        & 0.82865e+03_rb,0.62150e+03_rb,0.46649e+03_rb,0.68266e+03_rb,0.91115e+03_rb /)\n      kbo(:, 5,15,16) = (/ &\n        & 0.81975e+03_rb,0.61483e+03_rb,0.45195e+03_rb,0.65670e+03_rb,0.87636e+03_rb /)\n      kbo(:, 1,16,16) = (/ &\n        & 0.97910e+03_rb,0.73434e+03_rb,0.58857e+03_rb,0.87272e+03_rb,0.11648e+04_rb /)\n      kbo(:, 2,16,16) = (/ &\n        & 0.97153e+03_rb,0.72866e+03_rb,0.56721e+03_rb,0.83540e+03_rb,0.11150e+04_rb /)\n      kbo(:, 3,16,16) = (/ &\n        & 0.96129e+03_rb,0.72098e+03_rb,0.54742e+03_rb,0.79937e+03_rb,0.10667e+04_rb /)\n      kbo(:, 4,16,16) = (/ &\n        & 0.94880e+03_rb,0.71161e+03_rb,0.52876e+03_rb,0.76497e+03_rb,0.10209e+04_rb /)\n      kbo(:, 5,16,16) = (/ &\n        & 0.93421e+03_rb,0.70067e+03_rb,0.51082e+03_rb,0.73352e+03_rb,0.97881e+03_rb /)\n      kbo(:, 1,17,16) = (/ &\n        & 0.11229e+04_rb,0.84221e+03_rb,0.66547e+03_rb,0.97911e+03_rb,0.13066e+04_rb /)\n      kbo(:, 2,17,16) = (/ &\n        & 0.11091e+04_rb,0.83187e+03_rb,0.63930e+03_rb,0.93226e+03_rb,0.12440e+04_rb /)\n      kbo(:, 3,17,16) = (/ &\n        & 0.10923e+04_rb,0.81922e+03_rb,0.61539e+03_rb,0.88802e+03_rb,0.11849e+04_rb /)\n      kbo(:, 4,17,16) = (/ &\n        & 0.10728e+04_rb,0.80459e+03_rb,0.59256e+03_rb,0.84691e+03_rb,0.11301e+04_rb /)\n      kbo(:, 5,17,16) = (/ &\n        & 0.10515e+04_rb,0.78865e+03_rb,0.57044e+03_rb,0.80936e+03_rb,0.10799e+04_rb /)\n      kbo(:, 1,18,16) = (/ &\n        & 0.12716e+04_rb,0.95370e+03_rb,0.74447e+03_rb,0.10843e+04_rb,0.14469e+04_rb /)\n      kbo(:, 2,18,16) = (/ &\n        & 0.12500e+04_rb,0.93749e+03_rb,0.71274e+03_rb,0.10272e+04_rb,0.13706e+04_rb /)\n      kbo(:, 3,18,16) = (/ &\n        & 0.12251e+04_rb,0.91883e+03_rb,0.68394e+03_rb,0.97432e+03_rb,0.13000e+04_rb /)\n      kbo(:, 4,18,16) = (/ &\n        & 0.11973e+04_rb,0.89795e+03_rb,0.65609e+03_rb,0.92626e+03_rb,0.12359e+04_rb /)\n      kbo(:, 5,18,16) = (/ &\n        & 0.11679e+04_rb,0.87596e+03_rb,0.62959e+03_rb,0.88232e+03_rb,0.11772e+04_rb /)\n      kbo(:, 1,19,16) = (/ &\n        & 0.14213e+04_rb,0.10659e+04_rb,0.82299e+03_rb,0.11854e+04_rb,0.15817e+04_rb /)\n      kbo(:, 2,19,16) = (/ &\n        & 0.13899e+04_rb,0.10424e+04_rb,0.78536e+03_rb,0.11181e+04_rb,0.14919e+04_rb /)\n      kbo(:, 3,19,16) = (/ &\n        & 0.13555e+04_rb,0.10166e+04_rb,0.75067e+03_rb,0.10563e+04_rb,0.14093e+04_rb /)\n      kbo(:, 4,19,16) = (/ &\n        & 0.13187e+04_rb,0.98902e+03_rb,0.71751e+03_rb,0.10008e+04_rb,0.13351e+04_rb /)\n      kbo(:, 5,19,16) = (/ &\n        & 0.12809e+04_rb,0.96067e+03_rb,0.68653e+03_rb,0.95065e+03_rb,0.12682e+04_rb /)\n      kbo(:, 1,20,16) = (/ &\n        & 0.15671e+04_rb,0.11753e+04_rb,0.89787e+03_rb,0.12782e+04_rb,0.17052e+04_rb /)\n      kbo(:, 2,20,16) = (/ &\n        & 0.15245e+04_rb,0.11434e+04_rb,0.85373e+03_rb,0.12013e+04_rb,0.16026e+04_rb /)\n      kbo(:, 3,20,16) = (/ &\n        & 0.14795e+04_rb,0.11097e+04_rb,0.81323e+03_rb,0.11307e+04_rb,0.15085e+04_rb /)\n      kbo(:, 4,20,16) = (/ &\n        & 0.14333e+04_rb,0.10750e+04_rb,0.77488e+03_rb,0.10684e+04_rb,0.14252e+04_rb /)\n      kbo(:, 5,20,16) = (/ &\n        & 0.13861e+04_rb,0.10396e+04_rb,0.73891e+03_rb,0.10119e+04_rb,0.13498e+04_rb /)\n      kbo(:, 1,21,16) = (/ &\n        & 0.17057e+04_rb,0.12793e+04_rb,0.96840e+03_rb,0.13620e+04_rb,0.18170e+04_rb /)\n      kbo(:, 2,21,16) = (/ &\n        & 0.16509e+04_rb,0.12382e+04_rb,0.91726e+03_rb,0.12758e+04_rb,0.17018e+04_rb /)\n      kbo(:, 3,21,16) = (/ &\n        & 0.15947e+04_rb,0.11960e+04_rb,0.87064e+03_rb,0.11975e+04_rb,0.15973e+04_rb /)\n      kbo(:, 4,21,16) = (/ &\n        & 0.15386e+04_rb,0.11540e+04_rb,0.82723e+03_rb,0.11286e+04_rb,0.15054e+04_rb /)\n      kbo(:, 5,21,16) = (/ &\n        & 0.14823e+04_rb,0.11117e+04_rb,0.78614e+03_rb,0.10661e+04_rb,0.14220e+04_rb /)\n      kbo(:, 1,22,16) = (/ &\n        & 0.18293e+04_rb,0.13720e+04_rb,0.10288e+04_rb,0.14300e+04_rb,0.19074e+04_rb /)\n      kbo(:, 2,22,16) = (/ &\n        & 0.17617e+04_rb,0.13213e+04_rb,0.97120e+03_rb,0.13351e+04_rb,0.17808e+04_rb /)\n      kbo(:, 3,22,16) = (/ &\n        & 0.16944e+04_rb,0.12708e+04_rb,0.91894e+03_rb,0.12506e+04_rb,0.16681e+04_rb /)\n      kbo(:, 4,22,16) = (/ &\n        & 0.16287e+04_rb,0.12215e+04_rb,0.87041e+03_rb,0.11757e+04_rb,0.15681e+04_rb /)\n      kbo(:, 5,22,16) = (/ &\n        & 0.15635e+04_rb,0.11726e+04_rb,0.82499e+03_rb,0.11083e+04_rb,0.14783e+04_rb /)\n      kbo(:, 1,23,16) = (/ &\n        & 0.19373e+04_rb,0.14530e+04_rb,0.10803e+04_rb,0.14855e+04_rb,0.19814e+04_rb /)\n      kbo(:, 2,23,16) = (/ &\n        & 0.18577e+04_rb,0.13933e+04_rb,0.10171e+04_rb,0.13836e+04_rb,0.18455e+04_rb /)\n      kbo(:, 3,23,16) = (/ &\n        & 0.17799e+04_rb,0.13350e+04_rb,0.95955e+03_rb,0.12936e+04_rb,0.17253e+04_rb /)\n      kbo(:, 4,23,16) = (/ &\n        & 0.17053e+04_rb,0.12790e+04_rb,0.90643e+03_rb,0.12138e+04_rb,0.16189e+04_rb /)\n      kbo(:, 5,23,16) = (/ &\n        & 0.16318e+04_rb,0.12239e+04_rb,0.85742e+03_rb,0.11422e+04_rb,0.15233e+04_rb /)\n      kbo(:, 1,24,16) = (/ &\n        & 0.20285e+04_rb,0.15214e+04_rb,0.11229e+04_rb,0.15287e+04_rb,0.20389e+04_rb /)\n      kbo(:, 2,24,16) = (/ &\n        & 0.19379e+04_rb,0.14534e+04_rb,0.10546e+04_rb,0.14215e+04_rb,0.18958e+04_rb /)\n      kbo(:, 3,24,16) = (/ &\n        & 0.18509e+04_rb,0.13882e+04_rb,0.99252e+03_rb,0.13268e+04_rb,0.17696e+04_rb /)\n      kbo(:, 4,24,16) = (/ &\n        & 0.17680e+04_rb,0.13260e+04_rb,0.93542e+03_rb,0.12431e+04_rb,0.16579e+04_rb /)\n      kbo(:, 5,24,16) = (/ &\n        & 0.16872e+04_rb,0.12654e+04_rb,0.88318e+03_rb,0.11679e+04_rb,0.15576e+04_rb /)\n      kbo(:, 1,25,16) = (/ &\n        & 0.21022e+04_rb,0.15767e+04_rb,0.11562e+04_rb,0.15596e+04_rb,0.20800e+04_rb /)\n      kbo(:, 2,25,16) = (/ &\n        & 0.20021e+04_rb,0.15016e+04_rb,0.10837e+04_rb,0.14483e+04_rb,0.19315e+04_rb /)\n      kbo(:, 3,25,16) = (/ &\n        & 0.19072e+04_rb,0.14304e+04_rb,0.10177e+04_rb,0.13507e+04_rb,0.18013e+04_rb /)\n      kbo(:, 4,25,16) = (/ &\n        & 0.18172e+04_rb,0.13629e+04_rb,0.95761e+03_rb,0.12639e+04_rb,0.16854e+04_rb /)\n      kbo(:, 5,25,16) = (/ &\n        & 0.17302e+04_rb,0.12976e+04_rb,0.90262e+03_rb,0.11861e+04_rb,0.15818e+04_rb /)\n      kbo(:, 1,26,16) = (/ &\n        & 0.21584e+04_rb,0.16188e+04_rb,0.11798e+04_rb,0.15785e+04_rb,0.21051e+04_rb /)\n      kbo(:, 2,26,16) = (/ &\n        & 0.20504e+04_rb,0.15378e+04_rb,0.11040e+04_rb,0.14649e+04_rb,0.19536e+04_rb /)\n      kbo(:, 3,26,16) = (/ &\n        & 0.19488e+04_rb,0.14616e+04_rb,0.10351e+04_rb,0.13650e+04_rb,0.18204e+04_rb /)\n      kbo(:, 4,26,16) = (/ &\n        & 0.18527e+04_rb,0.13896e+04_rb,0.97267e+03_rb,0.12762e+04_rb,0.17019e+04_rb /)\n      kbo(:, 5,26,16) = (/ &\n        & 0.17609e+04_rb,0.13206e+04_rb,0.91583e+03_rb,0.11969e+04_rb,0.15961e+04_rb /)\n      kbo(:, 1,27,16) = (/ &\n        & 0.21995e+04_rb,0.16496e+04_rb,0.11960e+04_rb,0.15887e+04_rb,0.21185e+04_rb /)\n      kbo(:, 2,27,16) = (/ &\n        & 0.20852e+04_rb,0.15639e+04_rb,0.11175e+04_rb,0.14736e+04_rb,0.19651e+04_rb /)\n      kbo(:, 3,27,16) = (/ &\n        & 0.19784e+04_rb,0.14838e+04_rb,0.10466e+04_rb,0.13723e+04_rb,0.18300e+04_rb /)\n      kbo(:, 4,27,16) = (/ &\n        & 0.18776e+04_rb,0.14082e+04_rb,0.98231e+03_rb,0.12823e+04_rb,0.17101e+04_rb /)\n      kbo(:, 5,27,16) = (/ &\n        & 0.17820e+04_rb,0.13365e+04_rb,0.92416e+03_rb,0.12022e+04_rb,0.16031e+04_rb /)\n      kbo(:, 1,28,16) = (/ &\n        & 0.22274e+04_rb,0.16706e+04_rb,0.12052e+04_rb,0.15913e+04_rb,0.21220e+04_rb /)\n      kbo(:, 2,28,16) = (/ &\n        & 0.21084e+04_rb,0.15813e+04_rb,0.11251e+04_rb,0.14757e+04_rb,0.19679e+04_rb /)\n      kbo(:, 3,28,16) = (/ &\n        & 0.19974e+04_rb,0.14981e+04_rb,0.10528e+04_rb,0.13738e+04_rb,0.18320e+04_rb /)\n      kbo(:, 4,28,16) = (/ &\n        & 0.18930e+04_rb,0.14198e+04_rb,0.98736e+03_rb,0.12834e+04_rb,0.17114e+04_rb /)\n      kbo(:, 5,28,16) = (/ &\n        & 0.17945e+04_rb,0.13459e+04_rb,0.92826e+03_rb,0.12029e+04_rb,0.16040e+04_rb /)\n      kbo(:, 1,29,16) = (/ &\n        & 0.22434e+04_rb,0.16825e+04_rb,0.12082e+04_rb,0.15868e+04_rb,0.21160e+04_rb /)\n      kbo(:, 2,29,16) = (/ &\n        & 0.21209e+04_rb,0.15907e+04_rb,0.11272e+04_rb,0.14716e+04_rb,0.19623e+04_rb /)\n      kbo(:, 3,29,16) = (/ &\n        & 0.20069e+04_rb,0.15052e+04_rb,0.10541e+04_rb,0.13700e+04_rb,0.18268e+04_rb /)\n      kbo(:, 4,29,16) = (/ &\n        & 0.18999e+04_rb,0.14249e+04_rb,0.98819e+03_rb,0.12798e+04_rb,0.17065e+04_rb /)\n      kbo(:, 5,29,16) = (/ &\n        & 0.17996e+04_rb,0.13497e+04_rb,0.92869e+03_rb,0.11992e+04_rb,0.15991e+04_rb /)\n      kbo(:, 1,30,16) = (/ &\n        & 0.22495e+04_rb,0.16871e+04_rb,0.12065e+04_rb,0.15776e+04_rb,0.21036e+04_rb /)\n      kbo(:, 2,30,16) = (/ &\n        & 0.21251e+04_rb,0.15938e+04_rb,0.11251e+04_rb,0.14633e+04_rb,0.19512e+04_rb /)\n      kbo(:, 3,30,16) = (/ &\n        & 0.20091e+04_rb,0.15068e+04_rb,0.10517e+04_rb,0.13621e+04_rb,0.18163e+04_rb /)\n      kbo(:, 4,30,16) = (/ &\n        & 0.19004e+04_rb,0.14253e+04_rb,0.98584e+03_rb,0.12727e+04_rb,0.16970e+04_rb /)\n      kbo(:, 5,30,16) = (/ &\n        & 0.17984e+04_rb,0.13488e+04_rb,0.92610e+03_rb,0.11928e+04_rb,0.15905e+04_rb /)\n      kbo(:, 1,31,16) = (/ &\n        & 0.22474e+04_rb,0.16855e+04_rb,0.12005e+04_rb,0.15635e+04_rb,0.20848e+04_rb /)\n      kbo(:, 2,31,16) = (/ &\n        & 0.21214e+04_rb,0.15910e+04_rb,0.11192e+04_rb,0.14507e+04_rb,0.19344e+04_rb /)\n      kbo(:, 3,31,16) = (/ &\n        & 0.20043e+04_rb,0.15033e+04_rb,0.10461e+04_rb,0.13510e+04_rb,0.18015e+04_rb /)\n      kbo(:, 4,31,16) = (/ &\n        & 0.18948e+04_rb,0.14211e+04_rb,0.98049e+03_rb,0.12625e+04_rb,0.16835e+04_rb /)\n      kbo(:, 5,31,16) = (/ &\n        & 0.17922e+04_rb,0.13441e+04_rb,0.92102e+03_rb,0.11837e+04_rb,0.15784e+04_rb /)\n      kbo(:, 1,32,16) = (/ &\n        & 0.22387e+04_rb,0.16790e+04_rb,0.11913e+04_rb,0.15463e+04_rb,0.20617e+04_rb /)\n      kbo(:, 2,32,16) = (/ &\n        & 0.21117e+04_rb,0.15838e+04_rb,0.11104e+04_rb,0.14353e+04_rb,0.19138e+04_rb /)\n      kbo(:, 3,32,16) = (/ &\n        & 0.19944e+04_rb,0.14958e+04_rb,0.10381e+04_rb,0.13373e+04_rb,0.17831e+04_rb /)\n      kbo(:, 4,32,16) = (/ &\n        & 0.18846e+04_rb,0.14135e+04_rb,0.97304e+03_rb,0.12502e+04_rb,0.16670e+04_rb /)\n      kbo(:, 5,32,16) = (/ &\n        & 0.17818e+04_rb,0.13363e+04_rb,0.91392e+03_rb,0.11724e+04_rb,0.15633e+04_rb /)\n      kbo(:, 1,33,16) = (/ &\n        & 0.22243e+04_rb,0.16682e+04_rb,0.11793e+04_rb,0.15266e+04_rb,0.20355e+04_rb /)\n      kbo(:, 2,33,16) = (/ &\n        & 0.20975e+04_rb,0.15731e+04_rb,0.10994e+04_rb,0.14177e+04_rb,0.18903e+04_rb /)\n      kbo(:, 3,33,16) = (/ &\n        & 0.19805e+04_rb,0.14854e+04_rb,0.10282e+04_rb,0.13217e+04_rb,0.17623e+04_rb /)\n      kbo(:, 4,33,16) = (/ &\n        & 0.18707e+04_rb,0.14030e+04_rb,0.96384e+03_rb,0.12361e+04_rb,0.16482e+04_rb /)\n      kbo(:, 5,33,16) = (/ &\n        & 0.17684e+04_rb,0.13263e+04_rb,0.90541e+03_rb,0.11600e+04_rb,0.15467e+04_rb /)\n      kbo(:, 1,34,16) = (/ &\n        & 0.22110e+04_rb,0.16582e+04_rb,0.11687e+04_rb,0.15094e+04_rb,0.20126e+04_rb /)\n      kbo(:, 2,34,16) = (/ &\n        & 0.20843e+04_rb,0.15632e+04_rb,0.10894e+04_rb,0.14021e+04_rb,0.18696e+04_rb /)\n      kbo(:, 3,34,16) = (/ &\n        & 0.19675e+04_rb,0.14756e+04_rb,0.10193e+04_rb,0.13079e+04_rb,0.17439e+04_rb /)\n      kbo(:, 4,34,16) = (/ &\n        & 0.18579e+04_rb,0.13934e+04_rb,0.95559e+03_rb,0.12238e+04_rb,0.16318e+04_rb /)\n      kbo(:, 5,34,16) = (/ &\n        & 0.17560e+04_rb,0.13170e+04_rb,0.89776e+03_rb,0.11489e+04_rb,0.15318e+04_rb /)\n      kbo(:, 1,35,16) = (/ &\n        & 0.22070e+04_rb,0.16552e+04_rb,0.11645e+04_rb,0.15017e+04_rb,0.20024e+04_rb /)\n      kbo(:, 2,35,16) = (/ &\n        & 0.20800e+04_rb,0.15600e+04_rb,0.10855e+04_rb,0.13953e+04_rb,0.18605e+04_rb /)\n      kbo(:, 3,35,16) = (/ &\n        & 0.19630e+04_rb,0.14722e+04_rb,0.10157e+04_rb,0.13017e+04_rb,0.17356e+04_rb /)\n      kbo(:, 4,35,16) = (/ &\n        & 0.18532e+04_rb,0.13899e+04_rb,0.95221e+03_rb,0.12182e+04_rb,0.16243e+04_rb /)\n      kbo(:, 5,35,16) = (/ &\n        & 0.17512e+04_rb,0.13134e+04_rb,0.89456e+03_rb,0.11438e+04_rb,0.15251e+04_rb /)\n      kbo(:, 1,36,16) = (/ &\n        & 0.22146e+04_rb,0.16609e+04_rb,0.11681e+04_rb,0.15050e+04_rb,0.20067e+04_rb /)\n      kbo(:, 2,36,16) = (/ &\n        & 0.20867e+04_rb,0.15651e+04_rb,0.10887e+04_rb,0.13982e+04_rb,0.18642e+04_rb /)\n      kbo(:, 3,36,16) = (/ &\n        & 0.19689e+04_rb,0.14767e+04_rb,0.10184e+04_rb,0.13041e+04_rb,0.17389e+04_rb /)\n      kbo(:, 4,36,16) = (/ &\n        & 0.18582e+04_rb,0.13937e+04_rb,0.95458e+03_rb,0.12204e+04_rb,0.16272e+04_rb /)\n      kbo(:, 5,36,16) = (/ &\n        & 0.17557e+04_rb,0.13168e+04_rb,0.89664e+03_rb,0.11458e+04_rb,0.15277e+04_rb /)\n      kbo(:, 1,37,16) = (/ &\n        & 0.22411e+04_rb,0.16809e+04_rb,0.11837e+04_rb,0.15248e+04_rb,0.20331e+04_rb /)\n      kbo(:, 2,37,16) = (/ &\n        & 0.21106e+04_rb,0.15830e+04_rb,0.11025e+04_rb,0.14155e+04_rb,0.18873e+04_rb /)\n      kbo(:, 3,37,16) = (/ &\n        & 0.19909e+04_rb,0.14932e+04_rb,0.10307e+04_rb,0.13195e+04_rb,0.17594e+04_rb /)\n      kbo(:, 4,37,16) = (/ &\n        & 0.18783e+04_rb,0.14088e+04_rb,0.96559e+03_rb,0.12340e+04_rb,0.16453e+04_rb /)\n      kbo(:, 5,37,16) = (/ &\n        & 0.17743e+04_rb,0.13307e+04_rb,0.90666e+03_rb,0.11578e+04_rb,0.15438e+04_rb /)\n      kbo(:, 1,38,16) = (/ &\n        & 0.22677e+04_rb,0.17008e+04_rb,0.11995e+04_rb,0.15451e+04_rb,0.20601e+04_rb /)\n      kbo(:, 2,38,16) = (/ &\n        & 0.21347e+04_rb,0.16010e+04_rb,0.11166e+04_rb,0.14334e+04_rb,0.19112e+04_rb /)\n      kbo(:, 3,38,16) = (/ &\n        & 0.20130e+04_rb,0.15097e+04_rb,0.10432e+04_rb,0.13353e+04_rb,0.17805e+04_rb /)\n      kbo(:, 4,38,16) = (/ &\n        & 0.18989e+04_rb,0.14242e+04_rb,0.97692e+03_rb,0.12480e+04_rb,0.16640e+04_rb /)\n      kbo(:, 5,38,16) = (/ &\n        & 0.17929e+04_rb,0.13447e+04_rb,0.91684e+03_rb,0.11704e+04_rb,0.15605e+04_rb /)\n      kbo(:, 1,39,16) = (/ &\n        & 0.22932e+04_rb,0.17199e+04_rb,0.12149e+04_rb,0.15649e+04_rb,0.20865e+04_rb /)\n      kbo(:, 2,39,16) = (/ &\n        & 0.21580e+04_rb,0.16185e+04_rb,0.11304e+04_rb,0.14510e+04_rb,0.19346e+04_rb /)\n      kbo(:, 3,39,16) = (/ &\n        & 0.20342e+04_rb,0.15257e+04_rb,0.10554e+04_rb,0.13508e+04_rb,0.18011e+04_rb /)\n      kbo(:, 4,39,16) = (/ &\n        & 0.19186e+04_rb,0.14389e+04_rb,0.98789e+03_rb,0.12618e+04_rb,0.16825e+04_rb /)\n      kbo(:, 5,39,16) = (/ &\n        & 0.18110e+04_rb,0.13582e+04_rb,0.92676e+03_rb,0.11826e+04_rb,0.15768e+04_rb /)\n      kbo(:, 1,40,16) = (/ &\n        & 0.23330e+04_rb,0.17497e+04_rb,0.12394e+04_rb,0.15975e+04_rb,0.21300e+04_rb /)\n      kbo(:, 2,40,16) = (/ &\n        & 0.21946e+04_rb,0.16460e+04_rb,0.11524e+04_rb,0.14797e+04_rb,0.19730e+04_rb /)\n      kbo(:, 3,40,16) = (/ &\n        & 0.20673e+04_rb,0.15505e+04_rb,0.10747e+04_rb,0.13759e+04_rb,0.18346e+04_rb /)\n      kbo(:, 4,40,16) = (/ &\n        & 0.19494e+04_rb,0.14621e+04_rb,0.10054e+04_rb,0.12842e+04_rb,0.17123e+04_rb /)\n      kbo(:, 5,40,16) = (/ &\n        & 0.18395e+04_rb,0.13796e+04_rb,0.94264e+03_rb,0.12026e+04_rb,0.16034e+04_rb /)\n      kbo(:, 1,41,16) = (/ &\n        & 0.23748e+04_rb,0.17811e+04_rb,0.12653e+04_rb,0.16323e+04_rb,0.21765e+04_rb /)\n      kbo(:, 2,41,16) = (/ &\n        & 0.22335e+04_rb,0.16751e+04_rb,0.11760e+04_rb,0.15106e+04_rb,0.20142e+04_rb /)\n      kbo(:, 3,41,16) = (/ &\n        & 0.21020e+04_rb,0.15765e+04_rb,0.10953e+04_rb,0.14029e+04_rb,0.18706e+04_rb /)\n      kbo(:, 4,41,16) = (/ &\n        & 0.19818e+04_rb,0.14863e+04_rb,0.10239e+04_rb,0.13082e+04_rb,0.17443e+04_rb /)\n      kbo(:, 5,41,16) = (/ &\n        & 0.18696e+04_rb,0.14022e+04_rb,0.95944e+03_rb,0.12238e+04_rb,0.16317e+04_rb /)\n      kbo(:, 1,42,16) = (/ &\n        & 0.24183e+04_rb,0.18137e+04_rb,0.12922e+04_rb,0.16686e+04_rb,0.22248e+04_rb /)\n      kbo(:, 2,42,16) = (/ &\n        & 0.22718e+04_rb,0.17039e+04_rb,0.11997e+04_rb,0.15420e+04_rb,0.20561e+04_rb /)\n      kbo(:, 3,42,16) = (/ &\n        & 0.21373e+04_rb,0.16030e+04_rb,0.11164e+04_rb,0.14305e+04_rb,0.19073e+04_rb /)\n      kbo(:, 4,42,16) = (/ &\n        & 0.20143e+04_rb,0.15107e+04_rb,0.10428e+04_rb,0.13327e+04_rb,0.17770e+04_rb /)\n      kbo(:, 5,42,16) = (/ &\n        & 0.18998e+04_rb,0.14249e+04_rb,0.97647e+03_rb,0.12457e+04_rb,0.16610e+04_rb /)\n      kbo(:, 1,43,16) = (/ &\n        & 0.24703e+04_rb,0.18528e+04_rb,0.13249e+04_rb,0.17136e+04_rb,0.22848e+04_rb /)\n      kbo(:, 2,43,16) = (/ &\n        & 0.23188e+04_rb,0.17391e+04_rb,0.12289e+04_rb,0.15811e+04_rb,0.21082e+04_rb /)\n      kbo(:, 3,43,16) = (/ &\n        & 0.21803e+04_rb,0.16352e+04_rb,0.11426e+04_rb,0.14651e+04_rb,0.19535e+04_rb /)\n      kbo(:, 4,43,16) = (/ &\n        & 0.20539e+04_rb,0.15404e+04_rb,0.10659e+04_rb,0.13633e+04_rb,0.18177e+04_rb /)\n      kbo(:, 5,43,16) = (/ &\n        & 0.19367e+04_rb,0.14525e+04_rb,0.99744e+03_rb,0.12728e+04_rb,0.16970e+04_rb /)\n      kbo(:, 1,44,16) = (/ &\n        & 0.25274e+04_rb,0.18956e+04_rb,0.13612e+04_rb,0.17642e+04_rb,0.23522e+04_rb /)\n      kbo(:, 2,44,16) = (/ &\n        & 0.23706e+04_rb,0.17780e+04_rb,0.12614e+04_rb,0.16248e+04_rb,0.21664e+04_rb /)\n      kbo(:, 3,44,16) = (/ &\n        & 0.22278e+04_rb,0.16708e+04_rb,0.11717e+04_rb,0.15040e+04_rb,0.20053e+04_rb /)\n      kbo(:, 4,44,16) = (/ &\n        & 0.20979e+04_rb,0.15734e+04_rb,0.10920e+04_rb,0.13972e+04_rb,0.18630e+04_rb /)\n      kbo(:, 5,44,16) = (/ &\n        & 0.19771e+04_rb,0.14828e+04_rb,0.10207e+04_rb,0.13030e+04_rb,0.17374e+04_rb /)\n      kbo(:, 1,45,16) = (/ &\n        & 0.25859e+04_rb,0.19394e+04_rb,0.13990e+04_rb,0.18173e+04_rb,0.24231e+04_rb /)\n      kbo(:, 2,45,16) = (/ &\n        & 0.24239e+04_rb,0.18179e+04_rb,0.12948e+04_rb,0.16708e+04_rb,0.22278e+04_rb /)\n      kbo(:, 3,45,16) = (/ &\n        & 0.22761e+04_rb,0.17071e+04_rb,0.12017e+04_rb,0.15441e+04_rb,0.20588e+04_rb /)\n      kbo(:, 4,45,16) = (/ &\n        & 0.21421e+04_rb,0.16066e+04_rb,0.11186e+04_rb,0.14324e+04_rb,0.19099e+04_rb /)\n      kbo(:, 5,45,16) = (/ &\n        & 0.20183e+04_rb,0.15137e+04_rb,0.10446e+04_rb,0.13343e+04_rb,0.17791e+04_rb /)\n      kbo(:, 1,46,16) = (/ &\n        & 0.26504e+04_rb,0.19878e+04_rb,0.14409e+04_rb,0.18767e+04_rb,0.25023e+04_rb /)\n      kbo(:, 2,46,16) = (/ &\n        & 0.24823e+04_rb,0.18617e+04_rb,0.13316e+04_rb,0.17220e+04_rb,0.22960e+04_rb /)\n      kbo(:, 3,46,16) = (/ &\n        & 0.23297e+04_rb,0.17473e+04_rb,0.12351e+04_rb,0.15885e+04_rb,0.21180e+04_rb /)\n      kbo(:, 4,46,16) = (/ &\n        & 0.21905e+04_rb,0.16429e+04_rb,0.11482e+04_rb,0.14718e+04_rb,0.19624e+04_rb /)\n      kbo(:, 5,46,16) = (/ &\n        & 0.20627e+04_rb,0.15470e+04_rb,0.10708e+04_rb,0.13689e+04_rb,0.18252e+04_rb /)\n      kbo(:, 1,47,16) = (/ &\n        & 0.27247e+04_rb,0.20435e+04_rb,0.14902e+04_rb,0.19477e+04_rb,0.25969e+04_rb /)\n      kbo(:, 2,47,16) = (/ &\n        & 0.25493e+04_rb,0.19120e+04_rb,0.13747e+04_rb,0.17822e+04_rb,0.23763e+04_rb /)\n      kbo(:, 3,47,16) = (/ &\n        & 0.23907e+04_rb,0.17930e+04_rb,0.12733e+04_rb,0.16405e+04_rb,0.21874e+04_rb /)\n      kbo(:, 4,47,16) = (/ &\n        & 0.22466e+04_rb,0.16850e+04_rb,0.11827e+04_rb,0.15177e+04_rb,0.20235e+04_rb /)\n      kbo(:, 5,47,16) = (/ &\n        & 0.21136e+04_rb,0.15852e+04_rb,0.11012e+04_rb,0.14091e+04_rb,0.18788e+04_rb /)\n      kbo(:, 1,48,16) = (/ &\n        & 0.28012e+04_rb,0.21009e+04_rb,0.15426e+04_rb,0.20233e+04_rb,0.26978e+04_rb /)\n      kbo(:, 2,48,16) = (/ &\n        & 0.26190e+04_rb,0.19642e+04_rb,0.14199e+04_rb,0.18460e+04_rb,0.24614e+04_rb /)\n      kbo(:, 3,48,16) = (/ &\n        & 0.24541e+04_rb,0.18406e+04_rb,0.13132e+04_rb,0.16956e+04_rb,0.22609e+04_rb /)\n      kbo(:, 4,48,16) = (/ &\n        & 0.23037e+04_rb,0.17278e+04_rb,0.12184e+04_rb,0.15658e+04_rb,0.20877e+04_rb /)\n      kbo(:, 5,48,16) = (/ &\n        & 0.21661e+04_rb,0.16246e+04_rb,0.11331e+04_rb,0.14514e+04_rb,0.19352e+04_rb /)\n      kbo(:, 1,49,16) = (/ &\n        & 0.28818e+04_rb,0.21613e+04_rb,0.15982e+04_rb,0.21038e+04_rb,0.28050e+04_rb /)\n      kbo(:, 2,49,16) = (/ &\n        & 0.26914e+04_rb,0.20185e+04_rb,0.14674e+04_rb,0.19143e+04_rb,0.25524e+04_rb /)\n      kbo(:, 3,49,16) = (/ &\n        & 0.25196e+04_rb,0.18897e+04_rb,0.13550e+04_rb,0.17541e+04_rb,0.23389e+04_rb /)\n      kbo(:, 4,49,16) = (/ &\n        & 0.23632e+04_rb,0.17724e+04_rb,0.12557e+04_rb,0.16163e+04_rb,0.21550e+04_rb /)\n      kbo(:, 5,49,16) = (/ &\n        & 0.22208e+04_rb,0.16656e+04_rb,0.11666e+04_rb,0.14961e+04_rb,0.19948e+04_rb /)\n      kbo(:, 1,50,16) = (/ &\n        & 0.29612e+04_rb,0.22209e+04_rb,0.16532e+04_rb,0.21839e+04_rb,0.29118e+04_rb /)\n      kbo(:, 2,50,16) = (/ &\n        & 0.27615e+04_rb,0.20712e+04_rb,0.15149e+04_rb,0.19827e+04_rb,0.26437e+04_rb /)\n      kbo(:, 3,50,16) = (/ &\n        & 0.25830e+04_rb,0.19373e+04_rb,0.13961e+04_rb,0.18120e+04_rb,0.24160e+04_rb /)\n      kbo(:, 4,50,16) = (/ &\n        & 0.24210e+04_rb,0.18157e+04_rb,0.12921e+04_rb,0.16664e+04_rb,0.22218e+04_rb /)\n      kbo(:, 5,50,16) = (/ &\n        & 0.22734e+04_rb,0.17051e+04_rb,0.11994e+04_rb,0.15401e+04_rb,0.20534e+04_rb /)\n      kbo(:, 1,51,16) = (/ &\n        & 0.30414e+04_rb,0.22810e+04_rb,0.17098e+04_rb,0.22662e+04_rb,0.30216e+04_rb /)\n      kbo(:, 2,51,16) = (/ &\n        & 0.28321e+04_rb,0.21241e+04_rb,0.15635e+04_rb,0.20530e+04_rb,0.27374e+04_rb /)\n      kbo(:, 3,51,16) = (/ &\n        & 0.26473e+04_rb,0.19855e+04_rb,0.14379e+04_rb,0.18712e+04_rb,0.24950e+04_rb /)\n      kbo(:, 4,51,16) = (/ &\n        & 0.24793e+04_rb,0.18595e+04_rb,0.13289e+04_rb,0.17174e+04_rb,0.22898e+04_rb /)\n      kbo(:, 5,51,16) = (/ &\n        & 0.23268e+04_rb,0.17451e+04_rb,0.12327e+04_rb,0.15846e+04_rb,0.21128e+04_rb /)\n      kbo(:, 1,52,16) = (/ &\n        & 0.31248e+04_rb,0.23436e+04_rb,0.17703e+04_rb,0.23534e+04_rb,0.31379e+04_rb /)\n      kbo(:, 2,52,16) = (/ &\n        & 0.29063e+04_rb,0.21797e+04_rb,0.16147e+04_rb,0.21274e+04_rb,0.28366e+04_rb /)\n      kbo(:, 3,52,16) = (/ &\n        & 0.27134e+04_rb,0.20351e+04_rb,0.14818e+04_rb,0.19344e+04_rb,0.25793e+04_rb /)\n      kbo(:, 4,52,16) = (/ &\n        & 0.25389e+04_rb,0.19042e+04_rb,0.13672e+04_rb,0.17712e+04_rb,0.23616e+04_rb /)\n      kbo(:, 5,52,16) = (/ &\n        & 0.23814e+04_rb,0.17860e+04_rb,0.12669e+04_rb,0.16310e+04_rb,0.21746e+04_rb /)\n      kbo(:, 1,53,16) = (/ &\n        & 0.32126e+04_rb,0.24095e+04_rb,0.18346e+04_rb,0.24459e+04_rb,0.32612e+04_rb /)\n      kbo(:, 2,53,16) = (/ &\n        & 0.29838e+04_rb,0.22378e+04_rb,0.16687e+04_rb,0.22061e+04_rb,0.29415e+04_rb /)\n      kbo(:, 3,53,16) = (/ &\n        & 0.27817e+04_rb,0.20863e+04_rb,0.15283e+04_rb,0.20017e+04_rb,0.26689e+04_rb /)\n      kbo(:, 4,53,16) = (/ &\n        & 0.26009e+04_rb,0.19507e+04_rb,0.14074e+04_rb,0.18280e+04_rb,0.24374e+04_rb /)\n      kbo(:, 5,53,16) = (/ &\n        & 0.24377e+04_rb,0.18283e+04_rb,0.13025e+04_rb,0.16802e+04_rb,0.22403e+04_rb /)\n      kbo(:, 1,54,16) = (/ &\n        & 0.32965e+04_rb,0.24725e+04_rb,0.18972e+04_rb,0.25356e+04_rb,0.33807e+04_rb /)\n      kbo(:, 2,54,16) = (/ &\n        & 0.30576e+04_rb,0.22932e+04_rb,0.17211e+04_rb,0.22822e+04_rb,0.30430e+04_rb /)\n      kbo(:, 3,54,16) = (/ &\n        & 0.28468e+04_rb,0.21351e+04_rb,0.15733e+04_rb,0.20668e+04_rb,0.27558e+04_rb /)\n      kbo(:, 4,54,16) = (/ &\n        & 0.26600e+04_rb,0.19950e+04_rb,0.14459e+04_rb,0.18829e+04_rb,0.25105e+04_rb /)\n      kbo(:, 5,54,16) = (/ &\n        & 0.24912e+04_rb,0.18684e+04_rb,0.13364e+04_rb,0.17275e+04_rb,0.23034e+04_rb /)\n      kbo(:, 1,55,16) = (/ &\n        & 0.33833e+04_rb,0.25376e+04_rb,0.19611e+04_rb,0.26264e+04_rb,0.35019e+04_rb /)\n      kbo(:, 2,55,16) = (/ &\n        & 0.31321e+04_rb,0.23491e+04_rb,0.17750e+04_rb,0.23596e+04_rb,0.31462e+04_rb /)\n      kbo(:, 3,55,16) = (/ &\n        & 0.29119e+04_rb,0.21839e+04_rb,0.16184e+04_rb,0.21327e+04_rb,0.28435e+04_rb /)\n      kbo(:, 4,55,16) = (/ &\n        & 0.27182e+04_rb,0.20386e+04_rb,0.14848e+04_rb,0.19390e+04_rb,0.25853e+04_rb /)\n      kbo(:, 5,55,16) = (/ &\n        & 0.25438e+04_rb,0.19078e+04_rb,0.13702e+04_rb,0.17749e+04_rb,0.23665e+04_rb /)\n      kbo(:, 1,56,16) = (/ &\n        & 0.34732e+04_rb,0.26050e+04_rb,0.20286e+04_rb,0.27221e+04_rb,0.36294e+04_rb /)\n      kbo(:, 2,56,16) = (/ &\n        & 0.32087e+04_rb,0.24066e+04_rb,0.18312e+04_rb,0.24406e+04_rb,0.32540e+04_rb /)\n      kbo(:, 3,56,16) = (/ &\n        & 0.29798e+04_rb,0.22348e+04_rb,0.16657e+04_rb,0.22014e+04_rb,0.29353e+04_rb /)\n      kbo(:, 4,56,16) = (/ &\n        & 0.27779e+04_rb,0.20834e+04_rb,0.15255e+04_rb,0.19978e+04_rb,0.26637e+04_rb /)\n      kbo(:, 5,56,16) = (/ &\n        & 0.25980e+04_rb,0.19485e+04_rb,0.14055e+04_rb,0.18247e+04_rb,0.24330e+04_rb /)\n      kbo(:, 1,57,16) = (/ &\n        & 0.35673e+04_rb,0.26755e+04_rb,0.21006e+04_rb,0.28229e+04_rb,0.37639e+04_rb /)\n      kbo(:, 2,57,16) = (/ &\n        & 0.32883e+04_rb,0.24663e+04_rb,0.18907e+04_rb,0.25257e+04_rb,0.33676e+04_rb /)\n      kbo(:, 3,57,16) = (/ &\n        & 0.30500e+04_rb,0.22875e+04_rb,0.17155e+04_rb,0.22739e+04_rb,0.30319e+04_rb /)\n      kbo(:, 4,57,16) = (/ &\n        & 0.28394e+04_rb,0.21295e+04_rb,0.15682e+04_rb,0.20597e+04_rb,0.27463e+04_rb /)\n      kbo(:, 5,57,16) = (/ &\n        & 0.26543e+04_rb,0.19907e+04_rb,0.14421e+04_rb,0.18768e+04_rb,0.25025e+04_rb /)\n      kbo(:, 1,58,16) = (/ &\n        & 0.36607e+04_rb,0.27457e+04_rb,0.21738e+04_rb,0.29233e+04_rb,0.38978e+04_rb /)\n      kbo(:, 2,58,16) = (/ &\n        & 0.33686e+04_rb,0.25266e+04_rb,0.19501e+04_rb,0.26108e+04_rb,0.34810e+04_rb /)\n      kbo(:, 3,58,16) = (/ &\n        & 0.31191e+04_rb,0.23393e+04_rb,0.17656e+04_rb,0.23462e+04_rb,0.31282e+04_rb /)\n      kbo(:, 4,58,16) = (/ &\n        & 0.29009e+04_rb,0.21757e+04_rb,0.16107e+04_rb,0.21213e+04_rb,0.28285e+04_rb /)\n      kbo(:, 5,58,16) = (/ &\n        & 0.27090e+04_rb,0.20318e+04_rb,0.14784e+04_rb,0.19292e+04_rb,0.25722e+04_rb /)\n      kbo(:, 1,59,16) = (/ &\n        & 0.36992e+04_rb,0.27745e+04_rb,0.22044e+04_rb,0.29651e+04_rb,0.39534e+04_rb /)\n      kbo(:, 2,59,16) = (/ &\n        & 0.34022e+04_rb,0.25517e+04_rb,0.19749e+04_rb,0.26461e+04_rb,0.35281e+04_rb /)\n      kbo(:, 3,59,16) = (/ &\n        & 0.31476e+04_rb,0.23607e+04_rb,0.17864e+04_rb,0.23762e+04_rb,0.31682e+04_rb /)\n      kbo(:, 4,59,16) = (/ &\n        & 0.29259e+04_rb,0.21945e+04_rb,0.16281e+04_rb,0.21469e+04_rb,0.28626e+04_rb /)\n      kbo(:, 5,59,16) = (/ &\n        & 0.27315e+04_rb,0.20486e+04_rb,0.14936e+04_rb,0.19510e+04_rb,0.26013e+04_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.553258e-03_rb, 0.555486e-03_rb, 0.601339e-03_rb, 0.708280e-03_rb /)\n      forrefo(:, 2) = (/ 0.158558e-02_rb, 0.162957e-02_rb, 0.204991e-02_rb, 0.475881e-02_rb /)\n      forrefo(:, 3) = (/ 0.772542e-02_rb, 0.784562e-02_rb, 0.111979e-01_rb, 0.229016e-01_rb /)\n      forrefo(:, 4) = (/ 0.255097e-01_rb, 0.256272e-01_rb, 0.270691e-01_rb, 0.259505e-01_rb /)\n      forrefo(:, 5) = (/ 0.323263e-01_rb, 0.324495e-01_rb, 0.305535e-01_rb, 0.263993e-01_rb /)\n      forrefo(:, 6) = (/ 0.346920e-01_rb, 0.348255e-01_rb, 0.323586e-01_rb, 0.276357e-01_rb /)\n      forrefo(:, 7) = (/ 0.366509e-01_rb, 0.366412e-01_rb, 0.344434e-01_rb, 0.319223e-01_rb /)\n      forrefo(:, 8) = (/ 0.378451e-01_rb, 0.375341e-01_rb, 0.374369e-01_rb, 0.320334e-01_rb /)\n      forrefo(:, 9) = (/ 0.407348e-01_rb, 0.396203e-01_rb, 0.393988e-01_rb, 0.318343e-01_rb /)\n      forrefo(:,10) = (/ 0.433035e-01_rb, 0.426488e-01_rb, 0.408085e-01_rb, 0.332749e-01_rb /)\n      forrefo(:,11) = (/ 0.428254e-01_rb, 0.441151e-01_rb, 0.408887e-01_rb, 0.327077e-01_rb /)\n      forrefo(:,12) = (/ 0.443226e-01_rb, 0.446690e-01_rb, 0.404676e-01_rb, 0.350492e-01_rb /)\n      forrefo(:,13) = (/ 0.466103e-01_rb, 0.460809e-01_rb, 0.401286e-01_rb, 0.370427e-01_rb /)\n      forrefo(:,14) = (/ 0.483928e-01_rb, 0.477284e-01_rb, 0.380684e-01_rb, 0.387940e-01_rb /)\n      forrefo(:,15) = (/ 0.506987e-01_rb, 0.490016e-01_rb, 0.467069e-01_rb, 0.368998e-01_rb /)\n      forrefo(:,16) = (/ 0.510836e-01_rb, 0.522771e-01_rb, 0.500130e-01_rb, 0.483406e-01_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.160537e-01_rb, 0.149038e-01_rb, 0.138363e-01_rb, 0.128452e-01_rb, 0.119251e-01_rb, &\n        &  0.110709e-01_rb, 0.102779e-01_rb, 0.954175e-02_rb, 0.885829e-02_rb, 0.822379e-02_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.365753e-01_rb, 0.342267e-01_rb, 0.320288e-01_rb, 0.299720e-01_rb, 0.280474e-01_rb, &\n        &  0.262463e-01_rb, 0.245609e-01_rb, 0.229837e-01_rb, 0.215078e-01_rb, 0.201267e-01_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.127419e+00_rb, 0.118553e+00_rb, 0.110304e+00_rb, 0.102629e+00_rb, 0.954883e-01_rb, &\n        &  0.888442e-01_rb, 0.826624e-01_rb, 0.769107e-01_rb, 0.715593e-01_rb, 0.665802e-01_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.378687e+00_rb, 0.348961e+00_rb, 0.321568e+00_rb, 0.296325e+00_rb, 0.273064e+00_rb, &\n        &  0.251629e+00_rb, 0.231876e+00_rb, 0.213674e+00_rb, 0.196901e+00_rb, 0.181444e+00_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.472822e+00_rb, 0.435018e+00_rb, 0.400236e+00_rb, 0.368236e+00_rb, 0.338794e+00_rb, &\n        &  0.311706e+00_rb, 0.286783e+00_rb, 0.263854e+00_rb, 0.242757e+00_rb, 0.223348e+00_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.505620e+00_rb, 0.465050e+00_rb, 0.427736e+00_rb, 0.393416e+00_rb, 0.361849e+00_rb, &\n        &  0.332815e+00_rb, 0.306111e+00_rb, 0.281550e+00_rb, 0.258959e+00_rb, 0.238181e+00_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.530488e+00_rb, 0.487993e+00_rb, 0.448902e+00_rb, 0.412943e+00_rb, 0.379864e+00_rb, &\n        &  0.349434e+00_rb, 0.321443e+00_rb, 0.295694e+00_rb, 0.272007e+00_rb, 0.250218e+00_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.540222e+00_rb, 0.497746e+00_rb, 0.458610e+00_rb, 0.422551e+00_rb, 0.389327e+00_rb, &\n        &  0.358716e+00_rb, 0.330511e+00_rb, 0.304524e+00_rb, 0.280580e+00_rb, 0.258519e+00_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.565727e+00_rb, 0.522899e+00_rb, 0.483313e+00_rb, 0.446724e+00_rb, 0.412905e+00_rb, &\n        &  0.381646e+00_rb, 0.352753e+00_rb, 0.326048e+00_rb, 0.301365e+00_rb, 0.278550e+00_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.610122e+00_rb, 0.562337e+00_rb, 0.518295e+00_rb, 0.477702e+00_rb, 0.440289e+00_rb, &\n        &  0.405806e+00_rb, 0.374023e+00_rb, 0.344730e+00_rb, 0.317730e+00_rb, 0.292846e+00_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.645176e+00_rb, 0.588957e+00_rb, 0.537636e+00_rb, 0.490788e+00_rb, 0.448022e+00_rb, &\n        &  0.408982e+00_rb, 0.373344e+00_rb, 0.340812e+00_rb, 0.311114e+00_rb, 0.284004e+00_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.651737e+00_rb, 0.596547e+00_rb, 0.546031e+00_rb, 0.499792e+00_rb, 0.457469e+00_rb, &\n        &  0.418730e+00_rb, 0.383272e+00_rb, 0.350816e+00_rb, 0.321108e+00_rb, 0.293916e+00_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.661086e+00_rb, 0.607954e+00_rb, 0.559093e+00_rb, 0.514159e+00_rb, 0.472836e+00_rb, &\n        &  0.434834e+00_rb, 0.399886e+00_rb, 0.367747e+00_rb, 0.338191e+00_rb, 0.311011e+00_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.692554e+00_rb, 0.635574e+00_rb, 0.583282e+00_rb, 0.535293e+00_rb, 0.491251e+00_rb, &\n        &  0.450834e+00_rb, 0.413741e+00_rb, 0.379701e+00_rb, 0.348461e+00_rb, 0.319791e+00_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.714646e+00_rb, 0.657179e+00_rb, 0.604334e+00_rb, 0.555737e+00_rb, 0.511049e+00_rb, &\n        &  0.469954e+00_rb, 0.432164e+00_rb, 0.397412e+00_rb, 0.365455e+00_rb, 0.336068e+00_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.782126e+00_rb, 0.710682e+00_rb, 0.645764e+00_rb, 0.586776e+00_rb, 0.533177e+00_rb, &\n        &  0.484473e+00_rb, 0.440219e+00_rb, 0.400007e+00_rb, 0.363468e+00_rb, 0.330266e+00_rb /)\n     \n      end subroutine sw_kgb17\n\n! **************************************************************************\n      subroutine sw_kgb18\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 3.65840_rb    , 3.54375_rb    , 3.34481_rb    , 3.10534_rb    , &\n        & 2.79879_rb    , 2.42841_rb    , 1.98748_rb    , 1.49377_rb    , &\n        & 1.00196_rb    , 0.108342_rb   , 8.95099e-02_rb, 7.05199e-02_rb, &\n        & 5.16432e-02_rb, 3.27635e-02_rb, 1.25133e-02_rb, 1.73001e-03_rb /)  \n      sfluxrefo(:,2) = (/ &\n        & 3.86372_rb    , 3.48521_rb    , 3.30790_rb    , 3.08103_rb    , &\n        & 2.77552_rb    , 2.40722_rb    , 1.97307_rb    , 1.48023_rb    , &\n        & 0.993055_rb   , 0.107691_rb   , 8.84430e-02_rb, 6.99354e-02_rb, &\n        & 5.07881e-02_rb, 3.24121e-02_rb, 1.19442e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 3.90370_rb    , 3.50657_rb    , 3.30629_rb    , 3.06046_rb    , &\n        & 2.76982_rb    , 2.39907_rb    , 1.96358_rb    , 1.47458_rb    , &\n        & 0.988475_rb   , 0.106698_rb   , 8.75242e-02_rb, 6.85898e-02_rb, &\n        & 5.04798e-02_rb, 3.13718e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 3.93165_rb    , 3.52058_rb    , 3.31346_rb    , 3.04944_rb    , &\n        & 2.76074_rb    , 2.39433_rb    , 1.95556_rb    , 1.46712_rb    , &\n        & 0.984056_rb   , 0.105885_rb   , 8.73062e-02_rb, 6.84054e-02_rb, &\n        & 4.87443e-02_rb, 2.99295e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 3.94082_rb    , 3.55221_rb    , 3.31863_rb    , 3.04730_rb    , &\n        & 2.74918_rb    , 2.38328_rb    , 1.95212_rb    , 1.45889_rb    , &\n        & 0.978888_rb   , 0.105102_rb   , 8.65732e-02_rb, 6.74563e-02_rb, &\n        & 4.76592e-02_rb, 2.91017e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,6) = (/ &\n        & 3.94198_rb    , 3.58743_rb    , 3.32106_rb    , 3.05866_rb    , &\n        & 2.74115_rb    , 2.36939_rb    , 1.94305_rb    , 1.45180_rb    , &\n        & 0.971784_rb   , 1.04045e-01_rb, 8.53731e-02_rb, 6.60654e-02_rb, &\n        & 4.63228e-02_rb, 2.91016e-02_rb, 1.09552e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,7) = (/ &\n        & 3.93596_rb    , 3.63366_rb    , 3.33144_rb    , 3.06252_rb    , &\n        & 2.74054_rb    , 2.35492_rb    , 1.92769_rb    , 1.44300_rb    , &\n        & 0.961809_rb   , 1.02867e-01_rb, 8.34164e-02_rb, 6.41005e-02_rb, &\n        & 4.61826e-02_rb, 2.91006e-02_rb, 1.09553e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,8) = (/ &\n        & 3.92520_rb    , 3.69078_rb    , 3.35656_rb    , 3.07055_rb    , &\n        & 2.73862_rb    , 2.34430_rb    , 1.90187_rb    , 1.42242_rb    , &\n        & 0.946676_rb   , 9.96302e-02_rb, 8.14421e-02_rb, 6.38622e-02_rb, &\n        & 4.61794e-02_rb, 2.91017e-02_rb, 1.09553e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,9) = (/ &\n        & 3.80721_rb    , 3.74437_rb    , 3.50205_rb    , 3.18009_rb    , &\n        & 2.75757_rb    , 2.29188_rb    , 1.84382_rb    , 1.35694_rb    , &\n        & 0.914040_rb   , 9.86811e-02_rb, 8.14321e-02_rb, 6.38541e-02_rb, &\n        & 4.61795e-02_rb, 2.90960e-02_rb, 1.09613e-02_rb, 1.57612e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 4325 cm-1.\n      rayl = 1.39e-09_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.14813e-04_rb,0.39842e-04_rb,0.43362e-04_rb,0.43095e-04_rb,0.39811e-04_rb, &\n        & 0.34994e-04_rb,0.28984e-04_rb,0.20609e-04_rb,0.18845e-05_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.14432e-04_rb,0.38749e-04_rb,0.42119e-04_rb,0.41834e-04_rb,0.38900e-04_rb, &\n        & 0.34365e-04_rb,0.28571e-04_rb,0.20503e-04_rb,0.14715e-05_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.13969e-04_rb,0.37666e-04_rb,0.40942e-04_rb,0.40703e-04_rb,0.37982e-04_rb, &\n        & 0.33731e-04_rb,0.28158e-04_rb,0.20351e-04_rb,0.10842e-05_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.13367e-04_rb,0.36605e-04_rb,0.39729e-04_rb,0.39529e-04_rb,0.37033e-04_rb, &\n        & 0.33096e-04_rb,0.27690e-04_rb,0.20154e-04_rb,0.78702e-06_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.12765e-04_rb,0.35584e-04_rb,0.38536e-04_rb,0.38361e-04_rb,0.36073e-04_rb, &\n        & 0.32384e-04_rb,0.27242e-04_rb,0.19932e-04_rb,0.58296e-06_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.12299e-04_rb,0.34179e-04_rb,0.37405e-04_rb,0.37535e-04_rb,0.34714e-04_rb, &\n        & 0.30335e-04_rb,0.24892e-04_rb,0.17524e-04_rb,0.13301e-05_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.12064e-04_rb,0.33225e-04_rb,0.36357e-04_rb,0.36512e-04_rb,0.33870e-04_rb, &\n        & 0.29789e-04_rb,0.24578e-04_rb,0.17435e-04_rb,0.10217e-05_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.11697e-04_rb,0.32301e-04_rb,0.35316e-04_rb,0.35481e-04_rb,0.33049e-04_rb, &\n        & 0.29226e-04_rb,0.24233e-04_rb,0.17304e-04_rb,0.72152e-06_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.11209e-04_rb,0.31395e-04_rb,0.34263e-04_rb,0.34436e-04_rb,0.32173e-04_rb, &\n        & 0.28610e-04_rb,0.23847e-04_rb,0.17161e-04_rb,0.51787e-06_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.10706e-04_rb,0.30496e-04_rb,0.33311e-04_rb,0.33396e-04_rb,0.31295e-04_rb, &\n        & 0.28002e-04_rb,0.23445e-04_rb,0.16971e-04_rb,0.40230e-06_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.10271e-04_rb,0.29273e-04_rb,0.32049e-04_rb,0.32365e-04_rb,0.29857e-04_rb, &\n        & 0.26171e-04_rb,0.21352e-04_rb,0.14814e-04_rb,0.80470e-06_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.10058e-04_rb,0.28458e-04_rb,0.31196e-04_rb,0.31440e-04_rb,0.29133e-04_rb, &\n        & 0.25640e-04_rb,0.21056e-04_rb,0.14756e-04_rb,0.53010e-06_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.98172e-05_rb,0.27651e-04_rb,0.30352e-04_rb,0.30609e-04_rb,0.28396e-04_rb, &\n        & 0.25110e-04_rb,0.20730e-04_rb,0.14655e-04_rb,0.38652e-06_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.94577e-05_rb,0.26874e-04_rb,0.29475e-04_rb,0.29749e-04_rb,0.27669e-04_rb, &\n        & 0.24553e-04_rb,0.20400e-04_rb,0.14536e-04_rb,0.33236e-06_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.90508e-05_rb,0.26128e-04_rb,0.28631e-04_rb,0.28834e-04_rb,0.26952e-04_rb, &\n        & 0.24015e-04_rb,0.20045e-04_rb,0.14382e-04_rb,0.30659e-06_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.86081e-05_rb,0.24897e-04_rb,0.27317e-04_rb,0.27632e-04_rb,0.25465e-04_rb, &\n        & 0.22328e-04_rb,0.18112e-04_rb,0.12468e-04_rb,0.39286e-06_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.83793e-05_rb,0.24273e-04_rb,0.26590e-04_rb,0.26865e-04_rb,0.24876e-04_rb, &\n        & 0.21867e-04_rb,0.17849e-04_rb,0.12420e-04_rb,0.32266e-06_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.82296e-05_rb,0.23584e-04_rb,0.25869e-04_rb,0.26155e-04_rb,0.24255e-04_rb, &\n        & 0.21403e-04_rb,0.17579e-04_rb,0.12338e-04_rb,0.30775e-06_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.79731e-05_rb,0.22915e-04_rb,0.25166e-04_rb,0.25435e-04_rb,0.23627e-04_rb, &\n        & 0.20917e-04_rb,0.17282e-04_rb,0.12242e-04_rb,0.30418e-06_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.76553e-05_rb,0.22259e-04_rb,0.24440e-04_rb,0.24673e-04_rb,0.23003e-04_rb, &\n        & 0.20437e-04_rb,0.16984e-04_rb,0.12112e-04_rb,0.30638e-06_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.72259e-05_rb,0.21089e-04_rb,0.23177e-04_rb,0.23419e-04_rb,0.21584e-04_rb, &\n        & 0.18926e-04_rb,0.15251e-04_rb,0.10417e-04_rb,0.25170e-06_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.70215e-05_rb,0.20567e-04_rb,0.22541e-04_rb,0.22788e-04_rb,0.21102e-04_rb, &\n        & 0.18526e-04_rb,0.15049e-04_rb,0.10379e-04_rb,0.25958e-06_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.68490e-05_rb,0.20018e-04_rb,0.21938e-04_rb,0.22206e-04_rb,0.20579e-04_rb, &\n        & 0.18139e-04_rb,0.14806e-04_rb,0.10313e-04_rb,0.26666e-06_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.66973e-05_rb,0.19444e-04_rb,0.21340e-04_rb,0.21615e-04_rb,0.20070e-04_rb, &\n        & 0.17728e-04_rb,0.14554e-04_rb,0.10239e-04_rb,0.28589e-06_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.64808e-05_rb,0.18883e-04_rb,0.20738e-04_rb,0.20994e-04_rb,0.19546e-04_rb, &\n        & 0.17304e-04_rb,0.14306e-04_rb,0.10148e-04_rb,0.30886e-06_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.60727e-05_rb,0.17794e-04_rb,0.19609e-04_rb,0.19769e-04_rb,0.18228e-04_rb, &\n        & 0.15946e-04_rb,0.12793e-04_rb,0.86559e-05_rb,0.18559e-06_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.58949e-05_rb,0.17390e-04_rb,0.19059e-04_rb,0.19244e-04_rb,0.17820e-04_rb, &\n        & 0.15647e-04_rb,0.12626e-04_rb,0.86354e-05_rb,0.19544e-06_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.57268e-05_rb,0.16935e-04_rb,0.18564e-04_rb,0.18724e-04_rb,0.17402e-04_rb, &\n        & 0.15304e-04_rb,0.12433e-04_rb,0.85882e-05_rb,0.22033e-06_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.56243e-05_rb,0.16459e-04_rb,0.18054e-04_rb,0.18263e-04_rb,0.16984e-04_rb, &\n        & 0.14971e-04_rb,0.12215e-04_rb,0.85268e-05_rb,0.25072e-06_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.54584e-05_rb,0.15984e-04_rb,0.17548e-04_rb,0.17773e-04_rb,0.16551e-04_rb, &\n        & 0.14601e-04_rb,0.12004e-04_rb,0.84568e-05_rb,0.28110e-06_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.50624e-05_rb,0.14963e-04_rb,0.16482e-04_rb,0.16611e-04_rb,0.15339e-04_rb, &\n        & 0.13333e-04_rb,0.10656e-04_rb,0.71570e-05_rb,0.13453e-06_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.49428e-05_rb,0.14636e-04_rb,0.16040e-04_rb,0.16181e-04_rb,0.14992e-04_rb, &\n        & 0.13144e-04_rb,0.10533e-04_rb,0.71532e-05_rb,0.15620e-06_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.47955e-05_rb,0.14256e-04_rb,0.15611e-04_rb,0.15735e-04_rb,0.14643e-04_rb, &\n        & 0.12865e-04_rb,0.10390e-04_rb,0.71248e-05_rb,0.18571e-06_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.46743e-05_rb,0.13876e-04_rb,0.15213e-04_rb,0.15342e-04_rb,0.14293e-04_rb, &\n        & 0.12576e-04_rb,0.10215e-04_rb,0.70735e-05_rb,0.21382e-06_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.45708e-05_rb,0.13473e-04_rb,0.14782e-04_rb,0.14947e-04_rb,0.13933e-04_rb, &\n        & 0.12274e-04_rb,0.10036e-04_rb,0.70177e-05_rb,0.24419e-06_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.42289e-05_rb,0.12528e-04_rb,0.13817e-04_rb,0.13922e-04_rb,0.12867e-04_rb, &\n        & 0.11126e-04_rb,0.88468e-05_rb,0.59010e-05_rb,0.10600e-06_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.41319e-05_rb,0.12286e-04_rb,0.13480e-04_rb,0.13582e-04_rb,0.12584e-04_rb, &\n        & 0.10973e-04_rb,0.87644e-05_rb,0.59049e-05_rb,0.12951e-06_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.40317e-05_rb,0.11996e-04_rb,0.13116e-04_rb,0.13206e-04_rb,0.12295e-04_rb, &\n        & 0.10786e-04_rb,0.86537e-05_rb,0.58898e-05_rb,0.15731e-06_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.39107e-05_rb,0.11666e-04_rb,0.12771e-04_rb,0.12870e-04_rb,0.12010e-04_rb, &\n        & 0.10546e-04_rb,0.85244e-05_rb,0.58536e-05_rb,0.18716e-06_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.38384e-05_rb,0.11346e-04_rb,0.12435e-04_rb,0.12549e-04_rb,0.11706e-04_rb, &\n        & 0.10289e-04_rb,0.83756e-05_rb,0.58104e-05_rb,0.21679e-06_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.35240e-05_rb,0.10418e-04_rb,0.11558e-04_rb,0.11687e-04_rb,0.10748e-04_rb, &\n        & 0.92305e-05_rb,0.73198e-05_rb,0.48514e-05_rb,0.10176e-06_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.34478e-05_rb,0.10296e-04_rb,0.11296e-04_rb,0.11369e-04_rb,0.10532e-04_rb, &\n        & 0.91375e-05_rb,0.72737e-05_rb,0.48639e-05_rb,0.12695e-06_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.33718e-05_rb,0.10068e-04_rb,0.10996e-04_rb,0.11063e-04_rb,0.10290e-04_rb, &\n        & 0.89957e-05_rb,0.71844e-05_rb,0.48583e-05_rb,0.15482e-06_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.32801e-05_rb,0.97990e-05_rb,0.10712e-04_rb,0.10762e-04_rb,0.10056e-04_rb, &\n        & 0.88255e-05_rb,0.70907e-05_rb,0.48364e-05_rb,0.18123e-06_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.31960e-05_rb,0.95350e-05_rb,0.10427e-04_rb,0.10501e-04_rb,0.98056e-05_rb, &\n        & 0.86157e-05_rb,0.69723e-05_rb,0.48010e-05_rb,0.20738e-06_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.29197e-05_rb,0.86183e-05_rb,0.96100e-05_rb,0.97448e-05_rb,0.89187e-05_rb, &\n        & 0.76354e-05_rb,0.60318e-05_rb,0.39733e-05_rb,0.10310e-06_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.28677e-05_rb,0.85565e-05_rb,0.94191e-05_rb,0.94682e-05_rb,0.87653e-05_rb, &\n        & 0.75725e-05_rb,0.60089e-05_rb,0.39956e-05_rb,0.12951e-06_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.28036e-05_rb,0.84121e-05_rb,0.91902e-05_rb,0.92251e-05_rb,0.85811e-05_rb, &\n        & 0.74653e-05_rb,0.59452e-05_rb,0.39967e-05_rb,0.15684e-06_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.27420e-05_rb,0.82035e-05_rb,0.89440e-05_rb,0.89748e-05_rb,0.83817e-05_rb, &\n        & 0.73422e-05_rb,0.58725e-05_rb,0.39844e-05_rb,0.18564e-06_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.26596e-05_rb,0.79739e-05_rb,0.87074e-05_rb,0.87508e-05_rb,0.81784e-05_rb, &\n        & 0.71781e-05_rb,0.57815e-05_rb,0.39569e-05_rb,0.21476e-06_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.23988e-05_rb,0.71135e-05_rb,0.79121e-05_rb,0.80118e-05_rb,0.73370e-05_rb, &\n        & 0.62844e-05_rb,0.49610e-05_rb,0.32641e-05_rb,0.91697e-07_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.23552e-05_rb,0.70587e-05_rb,0.77519e-05_rb,0.77821e-05_rb,0.72113e-05_rb, &\n        & 0.62297e-05_rb,0.49407e-05_rb,0.32815e-05_rb,0.11307e-06_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.23046e-05_rb,0.69367e-05_rb,0.75662e-05_rb,0.75790e-05_rb,0.70631e-05_rb, &\n        & 0.61409e-05_rb,0.48867e-05_rb,0.32812e-05_rb,0.13715e-06_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.22557e-05_rb,0.67632e-05_rb,0.73640e-05_rb,0.73772e-05_rb,0.68972e-05_rb, &\n        & 0.60381e-05_rb,0.48254e-05_rb,0.32705e-05_rb,0.16436e-06_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.21899e-05_rb,0.65748e-05_rb,0.71695e-05_rb,0.71946e-05_rb,0.67295e-05_rb, &\n        & 0.59022e-05_rb,0.47488e-05_rb,0.32476e-05_rb,0.19025e-06_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.19699e-05_rb,0.58670e-05_rb,0.65075e-05_rb,0.65808e-05_rb,0.60300e-05_rb, &\n        & 0.51665e-05_rb,0.40749e-05_rb,0.26788e-05_rb,0.77100e-07_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.19348e-05_rb,0.58146e-05_rb,0.63730e-05_rb,0.63891e-05_rb,0.59260e-05_rb, &\n        & 0.51196e-05_rb,0.40577e-05_rb,0.26926e-05_rb,0.95693e-07_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.18947e-05_rb,0.57134e-05_rb,0.62207e-05_rb,0.62238e-05_rb,0.58090e-05_rb, &\n        & 0.50459e-05_rb,0.40113e-05_rb,0.26916e-05_rb,0.11572e-06_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.18552e-05_rb,0.55709e-05_rb,0.60522e-05_rb,0.60611e-05_rb,0.56693e-05_rb, &\n        & 0.49594e-05_rb,0.39606e-05_rb,0.26824e-05_rb,0.13797e-06_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.18040e-05_rb,0.54137e-05_rb,0.58935e-05_rb,0.59096e-05_rb,0.55294e-05_rb, &\n        & 0.48443e-05_rb,0.38977e-05_rb,0.26633e-05_rb,0.15884e-06_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.16167e-05_rb,0.48272e-05_rb,0.53475e-05_rb,0.53983e-05_rb,0.49503e-05_rb, &\n        & 0.42413e-05_rb,0.33431e-05_rb,0.21956e-05_rb,0.61381e-07_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.15895e-05_rb,0.47809e-05_rb,0.52342e-05_rb,0.52409e-05_rb,0.48652e-05_rb, &\n        & 0.42021e-05_rb,0.33263e-05_rb,0.22072e-05_rb,0.76382e-07_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.15582e-05_rb,0.46982e-05_rb,0.51055e-05_rb,0.51058e-05_rb,0.47716e-05_rb, &\n        & 0.41406e-05_rb,0.32886e-05_rb,0.22058e-05_rb,0.93083e-07_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.15242e-05_rb,0.45831e-05_rb,0.49696e-05_rb,0.49735e-05_rb,0.46534e-05_rb, &\n        & 0.40678e-05_rb,0.32469e-05_rb,0.21969e-05_rb,0.11211e-06_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.14859e-05_rb,0.44492e-05_rb,0.48392e-05_rb,0.48479e-05_rb,0.45378e-05_rb, &\n        & 0.39689e-05_rb,0.31933e-05_rb,0.21813e-05_rb,0.12970e-06_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.10138e-03_rb,0.20456e-03_rb,0.22117e-03_rb,0.21948e-03_rb,0.20805e-03_rb, &\n        & 0.18373e-03_rb,0.14999e-03_rb,0.95382e-04_rb,0.33213e-05_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.10141e-03_rb,0.20889e-03_rb,0.22456e-03_rb,0.22223e-03_rb,0.20912e-03_rb, &\n        & 0.18467e-03_rb,0.15060e-03_rb,0.95713e-04_rb,0.28479e-05_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.10125e-03_rb,0.21223e-03_rb,0.22712e-03_rb,0.22388e-03_rb,0.20983e-03_rb, &\n        & 0.18513e-03_rb,0.15100e-03_rb,0.95881e-04_rb,0.26338e-05_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.10105e-03_rb,0.21442e-03_rb,0.22863e-03_rb,0.22421e-03_rb,0.21046e-03_rb, &\n        & 0.18540e-03_rb,0.15060e-03_rb,0.95798e-04_rb,0.27638e-05_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.10040e-03_rb,0.21612e-03_rb,0.22899e-03_rb,0.22416e-03_rb,0.21046e-03_rb, &\n        & 0.18570e-03_rb,0.15001e-03_rb,0.95569e-04_rb,0.29313e-05_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.89639e-04_rb,0.17797e-03_rb,0.19284e-03_rb,0.18986e-03_rb,0.17824e-03_rb, &\n        & 0.15789e-03_rb,0.12906e-03_rb,0.83524e-04_rb,0.23926e-05_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.89499e-04_rb,0.18144e-03_rb,0.19563e-03_rb,0.19227e-03_rb,0.17941e-03_rb, &\n        & 0.15844e-03_rb,0.12961e-03_rb,0.83632e-04_rb,0.21969e-05_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.89411e-04_rb,0.18401e-03_rb,0.19753e-03_rb,0.19350e-03_rb,0.17999e-03_rb, &\n        & 0.15883e-03_rb,0.12989e-03_rb,0.83577e-04_rb,0.23158e-05_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.88841e-04_rb,0.18541e-03_rb,0.19872e-03_rb,0.19398e-03_rb,0.18053e-03_rb, &\n        & 0.15907e-03_rb,0.12972e-03_rb,0.83396e-04_rb,0.23760e-05_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.87949e-04_rb,0.18659e-03_rb,0.19902e-03_rb,0.19407e-03_rb,0.18073e-03_rb, &\n        & 0.15910e-03_rb,0.12937e-03_rb,0.83120e-04_rb,0.25247e-05_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.77466e-04_rb,0.15264e-03_rb,0.16704e-03_rb,0.16342e-03_rb,0.15300e-03_rb, &\n        & 0.13499e-03_rb,0.11007e-03_rb,0.71881e-04_rb,0.17839e-05_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.77483e-04_rb,0.15611e-03_rb,0.16950e-03_rb,0.16551e-03_rb,0.15408e-03_rb, &\n        & 0.13580e-03_rb,0.11055e-03_rb,0.72020e-04_rb,0.18564e-05_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.77142e-04_rb,0.15867e-03_rb,0.17112e-03_rb,0.16672e-03_rb,0.15481e-03_rb, &\n        & 0.13616e-03_rb,0.11077e-03_rb,0.71922e-04_rb,0.20228e-05_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.76460e-04_rb,0.16058e-03_rb,0.17186e-03_rb,0.16717e-03_rb,0.15519e-03_rb, &\n        & 0.13641e-03_rb,0.11060e-03_rb,0.71775e-04_rb,0.21717e-05_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.75510e-04_rb,0.16158e-03_rb,0.17210e-03_rb,0.16730e-03_rb,0.15521e-03_rb, &\n        & 0.13649e-03_rb,0.11022e-03_rb,0.71516e-04_rb,0.23140e-05_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.65931e-04_rb,0.12940e-03_rb,0.14295e-03_rb,0.14005e-03_rb,0.13095e-03_rb, &\n        & 0.11494e-03_rb,0.93656e-04_rb,0.61167e-04_rb,0.17094e-05_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.66090e-04_rb,0.13269e-03_rb,0.14542e-03_rb,0.14233e-03_rb,0.13201e-03_rb, &\n        & 0.11558e-03_rb,0.93975e-04_rb,0.61436e-04_rb,0.18527e-05_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.65630e-04_rb,0.13532e-03_rb,0.14717e-03_rb,0.14364e-03_rb,0.13266e-03_rb, &\n        & 0.11604e-03_rb,0.94126e-04_rb,0.61467e-04_rb,0.19576e-05_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.64971e-04_rb,0.13708e-03_rb,0.14818e-03_rb,0.14427e-03_rb,0.13304e-03_rb, &\n        & 0.11616e-03_rb,0.94152e-04_rb,0.61334e-04_rb,0.20614e-05_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.64122e-04_rb,0.13834e-03_rb,0.14864e-03_rb,0.14451e-03_rb,0.13312e-03_rb, &\n        & 0.11638e-03_rb,0.93955e-04_rb,0.61162e-04_rb,0.21640e-05_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.55594e-04_rb,0.10830e-03_rb,0.12068e-03_rb,0.11865e-03_rb,0.11127e-03_rb, &\n        & 0.97925e-04_rb,0.79208e-04_rb,0.51842e-04_rb,0.15954e-05_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.55669e-04_rb,0.11117e-03_rb,0.12299e-03_rb,0.12091e-03_rb,0.11248e-03_rb, &\n        & 0.98643e-04_rb,0.79433e-04_rb,0.52127e-04_rb,0.16966e-05_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.55430e-04_rb,0.11345e-03_rb,0.12478e-03_rb,0.12235e-03_rb,0.11332e-03_rb, &\n        & 0.99117e-04_rb,0.79823e-04_rb,0.52286e-04_rb,0.18304e-05_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.54800e-04_rb,0.11543e-03_rb,0.12601e-03_rb,0.12304e-03_rb,0.11389e-03_rb, &\n        & 0.99346e-04_rb,0.79935e-04_rb,0.52275e-04_rb,0.19479e-05_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.54027e-04_rb,0.11665e-03_rb,0.12660e-03_rb,0.12339e-03_rb,0.11410e-03_rb, &\n        & 0.99535e-04_rb,0.79840e-04_rb,0.52168e-04_rb,0.20583e-05_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.46500e-04_rb,0.89887e-04_rb,0.10048e-03_rb,0.99161e-04_rb,0.93136e-04_rb, &\n        & 0.82279e-04_rb,0.66872e-04_rb,0.43617e-04_rb,0.14730e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.46632e-04_rb,0.92444e-04_rb,0.10271e-03_rb,0.10123e-03_rb,0.94559e-04_rb, &\n        & 0.83135e-04_rb,0.67204e-04_rb,0.44046e-04_rb,0.16215e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.46490e-04_rb,0.94415e-04_rb,0.10446e-03_rb,0.10269e-03_rb,0.95387e-04_rb, &\n        & 0.83676e-04_rb,0.67579e-04_rb,0.44279e-04_rb,0.17358e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.46004e-04_rb,0.96190e-04_rb,0.10570e-03_rb,0.10346e-03_rb,0.95883e-04_rb, &\n        & 0.84038e-04_rb,0.67753e-04_rb,0.44348e-04_rb,0.18096e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.45362e-04_rb,0.97511e-04_rb,0.10645e-03_rb,0.10384e-03_rb,0.96197e-04_rb, &\n        & 0.84347e-04_rb,0.67758e-04_rb,0.44305e-04_rb,0.18882e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.38597e-04_rb,0.74019e-04_rb,0.82882e-04_rb,0.81807e-04_rb,0.76936e-04_rb, &\n        & 0.68278e-04_rb,0.55744e-04_rb,0.36507e-04_rb,0.13400e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.38728e-04_rb,0.76353e-04_rb,0.85030e-04_rb,0.83822e-04_rb,0.78523e-04_rb, &\n        & 0.69221e-04_rb,0.56199e-04_rb,0.36932e-04_rb,0.14766e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.38688e-04_rb,0.78164e-04_rb,0.86691e-04_rb,0.85269e-04_rb,0.79424e-04_rb, &\n        & 0.69849e-04_rb,0.56507e-04_rb,0.37211e-04_rb,0.16077e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.38399e-04_rb,0.79654e-04_rb,0.87882e-04_rb,0.86145e-04_rb,0.79917e-04_rb, &\n        & 0.70214e-04_rb,0.56698e-04_rb,0.37302e-04_rb,0.17365e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.37899e-04_rb,0.81012e-04_rb,0.88706e-04_rb,0.86589e-04_rb,0.80259e-04_rb, &\n        & 0.70429e-04_rb,0.56810e-04_rb,0.37287e-04_rb,0.18595e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.31959e-04_rb,0.60671e-04_rb,0.67963e-04_rb,0.67053e-04_rb,0.63057e-04_rb, &\n        & 0.56287e-04_rb,0.46187e-04_rb,0.30298e-04_rb,0.12071e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.32062e-04_rb,0.62753e-04_rb,0.69892e-04_rb,0.68941e-04_rb,0.64624e-04_rb, &\n        & 0.57187e-04_rb,0.46566e-04_rb,0.30687e-04_rb,0.13582e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.32098e-04_rb,0.64435e-04_rb,0.71423e-04_rb,0.70359e-04_rb,0.65646e-04_rb, &\n        & 0.57882e-04_rb,0.46897e-04_rb,0.30993e-04_rb,0.15217e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.31956e-04_rb,0.65758e-04_rb,0.72650e-04_rb,0.71275e-04_rb,0.66275e-04_rb, &\n        & 0.58298e-04_rb,0.47100e-04_rb,0.31079e-04_rb,0.16794e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.31584e-04_rb,0.66916e-04_rb,0.73502e-04_rb,0.71819e-04_rb,0.66611e-04_rb, &\n        & 0.58505e-04_rb,0.47243e-04_rb,0.31088e-04_rb,0.18250e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.26355e-04_rb,0.49472e-04_rb,0.55415e-04_rb,0.54584e-04_rb,0.51361e-04_rb, &\n        & 0.46135e-04_rb,0.38027e-04_rb,0.24983e-04_rb,0.13549e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.26472e-04_rb,0.51302e-04_rb,0.57165e-04_rb,0.56417e-04_rb,0.52936e-04_rb, &\n        & 0.47048e-04_rb,0.38417e-04_rb,0.25347e-04_rb,0.14941e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.26545e-04_rb,0.52866e-04_rb,0.58563e-04_rb,0.57776e-04_rb,0.53988e-04_rb, &\n        & 0.47706e-04_rb,0.38739e-04_rb,0.25638e-04_rb,0.16563e-05_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.26469e-04_rb,0.54105e-04_rb,0.59749e-04_rb,0.58746e-04_rb,0.54668e-04_rb, &\n        & 0.48161e-04_rb,0.38970e-04_rb,0.25744e-04_rb,0.18262e-05_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.26248e-04_rb,0.55079e-04_rb,0.60619e-04_rb,0.59317e-04_rb,0.55099e-04_rb, &\n        & 0.48435e-04_rb,0.39115e-04_rb,0.25778e-04_rb,0.20238e-05_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.21631e-04_rb,0.40297e-04_rb,0.45170e-04_rb,0.44298e-04_rb,0.41876e-04_rb, &\n        & 0.37690e-04_rb,0.31212e-04_rb,0.20552e-04_rb,0.16328e-05_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.21814e-04_rb,0.41896e-04_rb,0.46681e-04_rb,0.46065e-04_rb,0.43227e-04_rb, &\n        & 0.38608e-04_rb,0.31614e-04_rb,0.20857e-04_rb,0.18610e-05_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.21864e-04_rb,0.43247e-04_rb,0.47945e-04_rb,0.47327e-04_rb,0.44273e-04_rb, &\n        & 0.39201e-04_rb,0.31894e-04_rb,0.21119e-04_rb,0.20775e-05_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.21835e-04_rb,0.44386e-04_rb,0.48986e-04_rb,0.48228e-04_rb,0.44916e-04_rb, &\n        & 0.39637e-04_rb,0.32093e-04_rb,0.21228e-04_rb,0.22541e-05_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.21728e-04_rb,0.45263e-04_rb,0.49804e-04_rb,0.48818e-04_rb,0.45409e-04_rb, &\n        & 0.39950e-04_rb,0.32269e-04_rb,0.21290e-04_rb,0.24525e-05_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.17823e-04_rb,0.33378e-04_rb,0.37337e-04_rb,0.36619e-04_rb,0.34598e-04_rb, &\n        & 0.31113e-04_rb,0.25761e-04_rb,0.16956e-04_rb,0.15042e-05_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.17970e-04_rb,0.34679e-04_rb,0.38589e-04_rb,0.38065e-04_rb,0.35695e-04_rb, &\n        & 0.31869e-04_rb,0.26044e-04_rb,0.17214e-04_rb,0.16847e-05_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.17997e-04_rb,0.35791e-04_rb,0.39619e-04_rb,0.39097e-04_rb,0.36539e-04_rb, &\n        & 0.32374e-04_rb,0.26298e-04_rb,0.17428e-04_rb,0.18887e-05_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.17967e-04_rb,0.36717e-04_rb,0.40463e-04_rb,0.39821e-04_rb,0.37071e-04_rb, &\n        & 0.32716e-04_rb,0.26461e-04_rb,0.17496e-04_rb,0.20546e-05_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.17868e-04_rb,0.37423e-04_rb,0.41124e-04_rb,0.40304e-04_rb,0.37473e-04_rb, &\n        & 0.32971e-04_rb,0.26612e-04_rb,0.17532e-04_rb,0.22240e-05_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.14665e-04_rb,0.27605e-04_rb,0.30811e-04_rb,0.30250e-04_rb,0.28525e-04_rb, &\n        & 0.25644e-04_rb,0.21186e-04_rb,0.13955e-04_rb,0.12588e-05_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.14775e-04_rb,0.28655e-04_rb,0.31851e-04_rb,0.31408e-04_rb,0.29418e-04_rb, &\n        & 0.26261e-04_rb,0.21430e-04_rb,0.14172e-04_rb,0.14181e-05_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.14799e-04_rb,0.29571e-04_rb,0.32687e-04_rb,0.32242e-04_rb,0.30093e-04_rb, &\n        & 0.26683e-04_rb,0.21636e-04_rb,0.14338e-04_rb,0.15619e-05_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.14777e-04_rb,0.30325e-04_rb,0.33371e-04_rb,0.32826e-04_rb,0.30553e-04_rb, &\n        & 0.26945e-04_rb,0.21775e-04_rb,0.14380e-04_rb,0.16917e-05_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.14685e-04_rb,0.30904e-04_rb,0.33907e-04_rb,0.33214e-04_rb,0.30875e-04_rb, &\n        & 0.27158e-04_rb,0.21883e-04_rb,0.14414e-04_rb,0.18423e-05_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.12044e-04_rb,0.22772e-04_rb,0.25375e-04_rb,0.24926e-04_rb,0.23458e-04_rb, &\n        & 0.21059e-04_rb,0.17387e-04_rb,0.11457e-04_rb,0.99122e-06_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.12128e-04_rb,0.23637e-04_rb,0.26249e-04_rb,0.25842e-04_rb,0.24187e-04_rb, &\n        & 0.21582e-04_rb,0.17590e-04_rb,0.11636e-04_rb,0.11037e-05_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.12152e-04_rb,0.24386e-04_rb,0.26910e-04_rb,0.26531e-04_rb,0.24731e-04_rb, &\n        & 0.21923e-04_rb,0.17760e-04_rb,0.11755e-04_rb,0.12026e-05_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.12130e-04_rb,0.24996e-04_rb,0.27464e-04_rb,0.27006e-04_rb,0.25113e-04_rb, &\n        & 0.22138e-04_rb,0.17874e-04_rb,0.11797e-04_rb,0.13028e-05_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.12050e-04_rb,0.25474e-04_rb,0.27895e-04_rb,0.27297e-04_rb,0.25373e-04_rb, &\n        & 0.22302e-04_rb,0.17948e-04_rb,0.11817e-04_rb,0.14010e-05_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.36823e-03_rb,0.49613e-03_rb,0.51817e-03_rb,0.50538e-03_rb,0.45711e-03_rb, &\n        & 0.39605e-03_rb,0.31486e-03_rb,0.21474e-03_rb,0.10932e-04_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.37008e-03_rb,0.50778e-03_rb,0.53361e-03_rb,0.51778e-03_rb,0.46995e-03_rb, &\n        & 0.40629e-03_rb,0.32309e-03_rb,0.21878e-03_rb,0.11421e-04_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.36989e-03_rb,0.51812e-03_rb,0.54699e-03_rb,0.52922e-03_rb,0.48036e-03_rb, &\n        & 0.41559e-03_rb,0.32965e-03_rb,0.22226e-03_rb,0.12395e-04_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.36721e-03_rb,0.52763e-03_rb,0.55746e-03_rb,0.53957e-03_rb,0.48891e-03_rb, &\n        & 0.42313e-03_rb,0.33545e-03_rb,0.22588e-03_rb,0.13515e-04_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.36313e-03_rb,0.53652e-03_rb,0.56680e-03_rb,0.54791e-03_rb,0.49664e-03_rb, &\n        & 0.42907e-03_rb,0.34043e-03_rb,0.22916e-03_rb,0.14734e-04_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.32411e-03_rb,0.42815e-03_rb,0.44725e-03_rb,0.43813e-03_rb,0.40150e-03_rb, &\n        & 0.34871e-03_rb,0.27912e-03_rb,0.18929e-03_rb,0.80741e-05_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.32567e-03_rb,0.43786e-03_rb,0.46069e-03_rb,0.45027e-03_rb,0.41319e-03_rb, &\n        & 0.35819e-03_rb,0.28635e-03_rb,0.19325e-03_rb,0.87340e-05_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.32429e-03_rb,0.44638e-03_rb,0.47228e-03_rb,0.46074e-03_rb,0.42272e-03_rb, &\n        & 0.36602e-03_rb,0.29201e-03_rb,0.19653e-03_rb,0.96110e-05_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.32137e-03_rb,0.45531e-03_rb,0.48142e-03_rb,0.46951e-03_rb,0.42996e-03_rb, &\n        & 0.37250e-03_rb,0.29709e-03_rb,0.19974e-03_rb,0.10697e-04_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.31776e-03_rb,0.46207e-03_rb,0.48880e-03_rb,0.47659e-03_rb,0.43551e-03_rb, &\n        & 0.37776e-03_rb,0.30138e-03_rb,0.20274e-03_rb,0.11704e-04_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.28488e-03_rb,0.36767e-03_rb,0.38081e-03_rb,0.37438e-03_rb,0.34525e-03_rb, &\n        & 0.30150e-03_rb,0.24332e-03_rb,0.16415e-03_rb,0.63970e-05_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.28539e-03_rb,0.37509e-03_rb,0.39196e-03_rb,0.38510e-03_rb,0.35566e-03_rb, &\n        & 0.30998e-03_rb,0.24963e-03_rb,0.16766e-03_rb,0.72006e-05_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.28397e-03_rb,0.38215e-03_rb,0.40156e-03_rb,0.39428e-03_rb,0.36418e-03_rb, &\n        & 0.31727e-03_rb,0.25446e-03_rb,0.17107e-03_rb,0.79574e-05_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.28134e-03_rb,0.38867e-03_rb,0.40959e-03_rb,0.40230e-03_rb,0.37093e-03_rb, &\n        & 0.32301e-03_rb,0.25898e-03_rb,0.17447e-03_rb,0.87131e-05_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.27886e-03_rb,0.39360e-03_rb,0.41642e-03_rb,0.40852e-03_rb,0.37609e-03_rb, &\n        & 0.32740e-03_rb,0.26312e-03_rb,0.17737e-03_rb,0.94704e-05_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.24923e-03_rb,0.31555e-03_rb,0.32423e-03_rb,0.31731e-03_rb,0.29410e-03_rb, &\n        & 0.25671e-03_rb,0.20762e-03_rb,0.14074e-03_rb,0.55877e-05_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.24977e-03_rb,0.32120e-03_rb,0.33372e-03_rb,0.32657e-03_rb,0.30295e-03_rb, &\n        & 0.26472e-03_rb,0.21303e-03_rb,0.14396e-03_rb,0.61575e-05_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.24865e-03_rb,0.32668e-03_rb,0.34180e-03_rb,0.33446e-03_rb,0.31033e-03_rb, &\n        & 0.27144e-03_rb,0.21777e-03_rb,0.14714e-03_rb,0.67916e-05_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.24709e-03_rb,0.33133e-03_rb,0.34841e-03_rb,0.34134e-03_rb,0.31600e-03_rb, &\n        & 0.27647e-03_rb,0.22179e-03_rb,0.15016e-03_rb,0.74653e-05_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.24455e-03_rb,0.33491e-03_rb,0.35388e-03_rb,0.34708e-03_rb,0.32069e-03_rb, &\n        & 0.28005e-03_rb,0.22522e-03_rb,0.15242e-03_rb,0.81619e-05_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.21526e-03_rb,0.27115e-03_rb,0.27505e-03_rb,0.26802e-03_rb,0.24968e-03_rb, &\n        & 0.21690e-03_rb,0.17481e-03_rb,0.11906e-03_rb,0.50850e-05_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.21611e-03_rb,0.27621e-03_rb,0.28298e-03_rb,0.27620e-03_rb,0.25722e-03_rb, &\n        & 0.22411e-03_rb,0.18004e-03_rb,0.12197e-03_rb,0.55738e-05_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.21583e-03_rb,0.28060e-03_rb,0.28955e-03_rb,0.28282e-03_rb,0.26346e-03_rb, &\n        & 0.23005e-03_rb,0.18415e-03_rb,0.12451e-03_rb,0.60864e-05_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.21446e-03_rb,0.28363e-03_rb,0.29469e-03_rb,0.28896e-03_rb,0.26860e-03_rb, &\n        & 0.23435e-03_rb,0.18768e-03_rb,0.12690e-03_rb,0.66417e-05_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.21217e-03_rb,0.28626e-03_rb,0.29929e-03_rb,0.29370e-03_rb,0.27250e-03_rb, &\n        & 0.23763e-03_rb,0.19073e-03_rb,0.12909e-03_rb,0.72122e-05_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.18262e-03_rb,0.23112e-03_rb,0.23388e-03_rb,0.22681e-03_rb,0.21062e-03_rb, &\n        & 0.18196e-03_rb,0.14634e-03_rb,0.99707e-04_rb,0.48078e-05_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.18393e-03_rb,0.23591e-03_rb,0.24094e-03_rb,0.23364e-03_rb,0.21663e-03_rb, &\n        & 0.18814e-03_rb,0.15114e-03_rb,0.10205e-03_rb,0.52252e-05_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.18379e-03_rb,0.23984e-03_rb,0.24676e-03_rb,0.23956e-03_rb,0.22221e-03_rb, &\n        & 0.19356e-03_rb,0.15489e-03_rb,0.10434e-03_rb,0.56405e-05_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.18270e-03_rb,0.24258e-03_rb,0.25102e-03_rb,0.24458e-03_rb,0.22685e-03_rb, &\n        & 0.19771e-03_rb,0.15805e-03_rb,0.10655e-03_rb,0.60728e-05_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.18067e-03_rb,0.24446e-03_rb,0.25467e-03_rb,0.24894e-03_rb,0.23051e-03_rb, &\n        & 0.20056e-03_rb,0.16088e-03_rb,0.10844e-03_rb,0.65160e-05_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.15269e-03_rb,0.19407e-03_rb,0.19640e-03_rb,0.19073e-03_rb,0.17715e-03_rb, &\n        & 0.15224e-03_rb,0.12181e-03_rb,0.83302e-04_rb,0.45185e-05_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.15450e-03_rb,0.19834e-03_rb,0.20246e-03_rb,0.19675e-03_rb,0.18242e-03_rb, &\n        & 0.15776e-03_rb,0.12610e-03_rb,0.85306e-04_rb,0.49315e-05_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.15459e-03_rb,0.20178e-03_rb,0.20759e-03_rb,0.20176e-03_rb,0.18737e-03_rb, &\n        & 0.16233e-03_rb,0.12951e-03_rb,0.87417e-04_rb,0.53491e-05_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.15368e-03_rb,0.20410e-03_rb,0.21160e-03_rb,0.20623e-03_rb,0.19161e-03_rb, &\n        & 0.16603e-03_rb,0.13246e-03_rb,0.89237e-04_rb,0.57562e-05_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.15207e-03_rb,0.20567e-03_rb,0.21458e-03_rb,0.20991e-03_rb,0.19525e-03_rb, &\n        & 0.16906e-03_rb,0.13481e-03_rb,0.90932e-04_rb,0.61659e-05_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.12672e-03_rb,0.16159e-03_rb,0.16329e-03_rb,0.15821e-03_rb,0.14746e-03_rb, &\n        & 0.12624e-03_rb,0.10116e-03_rb,0.69306e-04_rb,0.46652e-05_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.12853e-03_rb,0.16539e-03_rb,0.16859e-03_rb,0.16359e-03_rb,0.15208e-03_rb, &\n        & 0.13120e-03_rb,0.10513e-03_rb,0.71005e-04_rb,0.51392e-05_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.12901e-03_rb,0.16841e-03_rb,0.17301e-03_rb,0.16813e-03_rb,0.15614e-03_rb, &\n        & 0.13532e-03_rb,0.10829e-03_rb,0.72863e-04_rb,0.55244e-05_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.12833e-03_rb,0.17058e-03_rb,0.17652e-03_rb,0.17184e-03_rb,0.15971e-03_rb, &\n        & 0.13867e-03_rb,0.11087e-03_rb,0.74475e-04_rb,0.58193e-05_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.12715e-03_rb,0.17197e-03_rb,0.17918e-03_rb,0.17513e-03_rb,0.16292e-03_rb, &\n        & 0.14144e-03_rb,0.11301e-03_rb,0.75965e-04_rb,0.61705e-05_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.10428e-03_rb,0.13348e-03_rb,0.13462e-03_rb,0.12995e-03_rb,0.12158e-03_rb, &\n        & 0.10379e-03_rb,0.83005e-04_rb,0.57371e-04_rb,0.55965e-05_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.10619e-03_rb,0.13710e-03_rb,0.13932e-03_rb,0.13469e-03_rb,0.12538e-03_rb, &\n        & 0.10800e-03_rb,0.86632e-04_rb,0.58954e-04_rb,0.61961e-05_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.10690e-03_rb,0.13978e-03_rb,0.14315e-03_rb,0.13877e-03_rb,0.12885e-03_rb, &\n        & 0.11169e-03_rb,0.89643e-04_rb,0.60568e-04_rb,0.68526e-05_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.10668e-03_rb,0.14178e-03_rb,0.14626e-03_rb,0.14213e-03_rb,0.13207e-03_rb, &\n        & 0.11468e-03_rb,0.91984e-04_rb,0.62070e-04_rb,0.75122e-05_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.10582e-03_rb,0.14316e-03_rb,0.14873e-03_rb,0.14501e-03_rb,0.13471e-03_rb, &\n        & 0.11704e-03_rb,0.93876e-04_rb,0.63388e-04_rb,0.80761e-05_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.85476e-04_rb,0.10982e-03_rb,0.11034e-03_rb,0.10643e-03_rb,0.99702e-04_rb, &\n        & 0.84967e-04_rb,0.68008e-04_rb,0.47229e-04_rb,0.66145e-05_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.87242e-04_rb,0.11322e-03_rb,0.11463e-03_rb,0.11045e-03_rb,0.10293e-03_rb, &\n        & 0.88580e-04_rb,0.71113e-04_rb,0.48631e-04_rb,0.75452e-05_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.88111e-04_rb,0.11563e-03_rb,0.11792e-03_rb,0.11404e-03_rb,0.10587e-03_rb, &\n        & 0.91877e-04_rb,0.73790e-04_rb,0.50044e-04_rb,0.84881e-05_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.88200e-04_rb,0.11743e-03_rb,0.12065e-03_rb,0.11708e-03_rb,0.10870e-03_rb, &\n        & 0.94480e-04_rb,0.75897e-04_rb,0.51384e-04_rb,0.95136e-05_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.87583e-04_rb,0.11871e-03_rb,0.12292e-03_rb,0.11954e-03_rb,0.11103e-03_rb, &\n        & 0.96523e-04_rb,0.77526e-04_rb,0.52518e-04_rb,0.10532e-04_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.70556e-04_rb,0.91428e-04_rb,0.91867e-04_rb,0.88463e-04_rb,0.82846e-04_rb, &\n        & 0.70774e-04_rb,0.56632e-04_rb,0.39167e-04_rb,0.61872e-05_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.71933e-04_rb,0.94182e-04_rb,0.95269e-04_rb,0.91646e-04_rb,0.85383e-04_rb, &\n        & 0.73738e-04_rb,0.59219e-04_rb,0.40474e-04_rb,0.69965e-05_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.72567e-04_rb,0.96098e-04_rb,0.97927e-04_rb,0.94606e-04_rb,0.87837e-04_rb, &\n        & 0.76370e-04_rb,0.61326e-04_rb,0.41633e-04_rb,0.78235e-05_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.72529e-04_rb,0.97532e-04_rb,0.10011e-03_rb,0.97076e-04_rb,0.90134e-04_rb, &\n        & 0.78428e-04_rb,0.63016e-04_rb,0.42754e-04_rb,0.87904e-05_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.71990e-04_rb,0.98552e-04_rb,0.10193e-03_rb,0.99080e-04_rb,0.92091e-04_rb, &\n        & 0.80068e-04_rb,0.64349e-04_rb,0.43674e-04_rb,0.98011e-05_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.58072e-04_rb,0.75815e-04_rb,0.76168e-04_rb,0.73252e-04_rb,0.68521e-04_rb, &\n        & 0.58748e-04_rb,0.47029e-04_rb,0.32430e-04_rb,0.51838e-05_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.59149e-04_rb,0.78005e-04_rb,0.78889e-04_rb,0.75853e-04_rb,0.70691e-04_rb, &\n        & 0.61160e-04_rb,0.49105e-04_rb,0.33572e-04_rb,0.58669e-05_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.59615e-04_rb,0.79572e-04_rb,0.81043e-04_rb,0.78301e-04_rb,0.72716e-04_rb, &\n        & 0.63265e-04_rb,0.50777e-04_rb,0.34506e-04_rb,0.66464e-05_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.59506e-04_rb,0.80712e-04_rb,0.82811e-04_rb,0.80321e-04_rb,0.74571e-04_rb, &\n        & 0.64935e-04_rb,0.52165e-04_rb,0.35447e-04_rb,0.74412e-05_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.59067e-04_rb,0.81520e-04_rb,0.84288e-04_rb,0.81977e-04_rb,0.76172e-04_rb, &\n        & 0.66259e-04_rb,0.53281e-04_rb,0.36178e-04_rb,0.82465e-05_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.47640e-04_rb,0.62583e-04_rb,0.62887e-04_rb,0.60485e-04_rb,0.56559e-04_rb, &\n        & 0.48624e-04_rb,0.38904e-04_rb,0.26773e-04_rb,0.40582e-05_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.48498e-04_rb,0.64379e-04_rb,0.65087e-04_rb,0.62641e-04_rb,0.58377e-04_rb, &\n        & 0.50572e-04_rb,0.40566e-04_rb,0.27717e-04_rb,0.46616e-05_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.48844e-04_rb,0.65656e-04_rb,0.66851e-04_rb,0.64628e-04_rb,0.60042e-04_rb, &\n        & 0.52254e-04_rb,0.41917e-04_rb,0.28510e-04_rb,0.53204e-05_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.48722e-04_rb,0.66574e-04_rb,0.68303e-04_rb,0.66300e-04_rb,0.61547e-04_rb, &\n        & 0.53614e-04_rb,0.43058e-04_rb,0.29254e-04_rb,0.59442e-05_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.48355e-04_rb,0.67217e-04_rb,0.69511e-04_rb,0.67651e-04_rb,0.62864e-04_rb, &\n        & 0.54712e-04_rb,0.43998e-04_rb,0.29875e-04_rb,0.66436e-05_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.85387e-03_rb,0.97268e-03_rb,0.95201e-03_rb,0.89226e-03_rb,0.81465e-03_rb, &\n        & 0.69707e-03_rb,0.54829e-03_rb,0.35882e-03_rb,0.37920e-04_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.85496e-03_rb,0.98746e-03_rb,0.97188e-03_rb,0.91775e-03_rb,0.83529e-03_rb, &\n        & 0.71649e-03_rb,0.56376e-03_rb,0.37061e-03_rb,0.43155e-04_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.85154e-03_rb,0.99908e-03_rb,0.98969e-03_rb,0.94014e-03_rb,0.85604e-03_rb, &\n        & 0.73379e-03_rb,0.57832e-03_rb,0.38183e-03_rb,0.48702e-04_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.84606e-03_rb,0.10090e-02_rb,0.10068e-02_rb,0.95944e-03_rb,0.87434e-03_rb, &\n        & 0.74975e-03_rb,0.59243e-03_rb,0.39188e-03_rb,0.54022e-04_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.84061e-03_rb,0.10171e-02_rb,0.10218e-02_rb,0.97684e-03_rb,0.88906e-03_rb, &\n        & 0.76345e-03_rb,0.60471e-03_rb,0.40180e-03_rb,0.59778e-04_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.76106e-03_rb,0.86763e-03_rb,0.84620e-03_rb,0.79337e-03_rb,0.72368e-03_rb, &\n        & 0.62633e-03_rb,0.49168e-03_rb,0.32346e-03_rb,0.31322e-04_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.76153e-03_rb,0.88148e-03_rb,0.86349e-03_rb,0.81559e-03_rb,0.74480e-03_rb, &\n        & 0.64448e-03_rb,0.50635e-03_rb,0.33430e-03_rb,0.35566e-04_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.75977e-03_rb,0.89195e-03_rb,0.87871e-03_rb,0.83605e-03_rb,0.76286e-03_rb, &\n        & 0.66127e-03_rb,0.51959e-03_rb,0.34472e-03_rb,0.39705e-04_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.75771e-03_rb,0.89987e-03_rb,0.89406e-03_rb,0.85530e-03_rb,0.78123e-03_rb, &\n        & 0.67612e-03_rb,0.53221e-03_rb,0.35447e-03_rb,0.44266e-04_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.75289e-03_rb,0.90657e-03_rb,0.90771e-03_rb,0.87200e-03_rb,0.79715e-03_rb, &\n        & 0.68926e-03_rb,0.54382e-03_rb,0.36372e-03_rb,0.48708e-04_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.66893e-03_rb,0.76246e-03_rb,0.74334e-03_rb,0.69752e-03_rb,0.63501e-03_rb, &\n        & 0.55362e-03_rb,0.43455e-03_rb,0.28843e-03_rb,0.24260e-04_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.67118e-03_rb,0.77588e-03_rb,0.75944e-03_rb,0.71710e-03_rb,0.65461e-03_rb, &\n        & 0.57122e-03_rb,0.44991e-03_rb,0.29906e-03_rb,0.27434e-04_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.67218e-03_rb,0.78505e-03_rb,0.77328e-03_rb,0.73497e-03_rb,0.67286e-03_rb, &\n        & 0.58718e-03_rb,0.46375e-03_rb,0.30933e-03_rb,0.30808e-04_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.67058e-03_rb,0.79242e-03_rb,0.78627e-03_rb,0.75181e-03_rb,0.68946e-03_rb, &\n        & 0.60183e-03_rb,0.47532e-03_rb,0.31743e-03_rb,0.34324e-04_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.66467e-03_rb,0.79822e-03_rb,0.79776e-03_rb,0.76779e-03_rb,0.70481e-03_rb, &\n        & 0.61510e-03_rb,0.48553e-03_rb,0.32526e-03_rb,0.37905e-04_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.58297e-03_rb,0.66020e-03_rb,0.64337e-03_rb,0.60610e-03_rb,0.55222e-03_rb, &\n        & 0.48338e-03_rb,0.38154e-03_rb,0.25537e-03_rb,0.20054e-04_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.58616e-03_rb,0.67311e-03_rb,0.65764e-03_rb,0.62362e-03_rb,0.56996e-03_rb, &\n        & 0.49939e-03_rb,0.39657e-03_rb,0.26418e-03_rb,0.22457e-04_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.58719e-03_rb,0.68291e-03_rb,0.67014e-03_rb,0.63926e-03_rb,0.58703e-03_rb, &\n        & 0.51453e-03_rb,0.40976e-03_rb,0.27280e-03_rb,0.24974e-04_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.58451e-03_rb,0.68925e-03_rb,0.68144e-03_rb,0.65410e-03_rb,0.60312e-03_rb, &\n        & 0.52903e-03_rb,0.42147e-03_rb,0.28096e-03_rb,0.27613e-04_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.57885e-03_rb,0.69369e-03_rb,0.69153e-03_rb,0.66725e-03_rb,0.61666e-03_rb, &\n        & 0.54114e-03_rb,0.43123e-03_rb,0.28907e-03_rb,0.30243e-04_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.50639e-03_rb,0.56897e-03_rb,0.55412e-03_rb,0.52127e-03_rb,0.47341e-03_rb, &\n        & 0.41669e-03_rb,0.33293e-03_rb,0.22215e-03_rb,0.17057e-04_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.51065e-03_rb,0.58111e-03_rb,0.56740e-03_rb,0.53642e-03_rb,0.48970e-03_rb, &\n        & 0.43166e-03_rb,0.34671e-03_rb,0.23111e-03_rb,0.19191e-04_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.51131e-03_rb,0.58923e-03_rb,0.57802e-03_rb,0.54989e-03_rb,0.50519e-03_rb, &\n        & 0.44520e-03_rb,0.35867e-03_rb,0.23955e-03_rb,0.21238e-04_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.50888e-03_rb,0.59432e-03_rb,0.58700e-03_rb,0.56238e-03_rb,0.51899e-03_rb, &\n        & 0.45787e-03_rb,0.36960e-03_rb,0.24733e-03_rb,0.23442e-04_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.50411e-03_rb,0.59804e-03_rb,0.59497e-03_rb,0.57342e-03_rb,0.53158e-03_rb, &\n        & 0.46924e-03_rb,0.37886e-03_rb,0.25450e-03_rb,0.25756e-04_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.43673e-03_rb,0.48782e-03_rb,0.47499e-03_rb,0.44629e-03_rb,0.40354e-03_rb, &\n        & 0.35457e-03_rb,0.28605e-03_rb,0.19086e-03_rb,0.14702e-04_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.44102e-03_rb,0.49831e-03_rb,0.48639e-03_rb,0.45943e-03_rb,0.41879e-03_rb, &\n        & 0.36808e-03_rb,0.29802e-03_rb,0.19985e-03_rb,0.16471e-04_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.44221e-03_rb,0.50518e-03_rb,0.49538e-03_rb,0.47075e-03_rb,0.43183e-03_rb, &\n        & 0.37995e-03_rb,0.30882e-03_rb,0.20763e-03_rb,0.18420e-04_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.44017e-03_rb,0.50994e-03_rb,0.50323e-03_rb,0.48141e-03_rb,0.44360e-03_rb, &\n        & 0.39116e-03_rb,0.31844e-03_rb,0.21460e-03_rb,0.20473e-04_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.43656e-03_rb,0.51249e-03_rb,0.51000e-03_rb,0.49068e-03_rb,0.45425e-03_rb, &\n        & 0.40107e-03_rb,0.32653e-03_rb,0.22109e-03_rb,0.22600e-04_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.37627e-03_rb,0.41525e-03_rb,0.40365e-03_rb,0.37923e-03_rb,0.34257e-03_rb, &\n        & 0.30147e-03_rb,0.24324e-03_rb,0.16094e-03_rb,0.13400e-04_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.38051e-03_rb,0.42489e-03_rb,0.41400e-03_rb,0.39067e-03_rb,0.35555e-03_rb, &\n        & 0.31257e-03_rb,0.25353e-03_rb,0.16947e-03_rb,0.14905e-04_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.38196e-03_rb,0.43154e-03_rb,0.42169e-03_rb,0.40035e-03_rb,0.36703e-03_rb, &\n        & 0.32311e-03_rb,0.26291e-03_rb,0.17672e-03_rb,0.16566e-04_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.38108e-03_rb,0.43587e-03_rb,0.42809e-03_rb,0.40890e-03_rb,0.37694e-03_rb, &\n        & 0.33246e-03_rb,0.27094e-03_rb,0.18305e-03_rb,0.18352e-04_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.37854e-03_rb,0.43889e-03_rb,0.43402e-03_rb,0.41697e-03_rb,0.38532e-03_rb, &\n        & 0.34074e-03_rb,0.27816e-03_rb,0.18873e-03_rb,0.20220e-04_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.31968e-03_rb,0.35301e-03_rb,0.34310e-03_rb,0.32206e-03_rb,0.28904e-03_rb, &\n        & 0.25356e-03_rb,0.20523e-03_rb,0.13432e-03_rb,0.13548e-04_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.32386e-03_rb,0.36229e-03_rb,0.35288e-03_rb,0.33214e-03_rb,0.30033e-03_rb, &\n        & 0.26345e-03_rb,0.21374e-03_rb,0.14198e-03_rb,0.14966e-04_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.32521e-03_rb,0.36848e-03_rb,0.35986e-03_rb,0.34056e-03_rb,0.31042e-03_rb, &\n        & 0.27222e-03_rb,0.22115e-03_rb,0.14841e-03_rb,0.16278e-04_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.32527e-03_rb,0.37258e-03_rb,0.36553e-03_rb,0.34811e-03_rb,0.31916e-03_rb, &\n        & 0.28034e-03_rb,0.22837e-03_rb,0.15443e-03_rb,0.17614e-04_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.32272e-03_rb,0.37533e-03_rb,0.37025e-03_rb,0.35438e-03_rb,0.32632e-03_rb, &\n        & 0.28740e-03_rb,0.23484e-03_rb,0.15952e-03_rb,0.19075e-04_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.26794e-03_rb,0.29655e-03_rb,0.28851e-03_rb,0.27155e-03_rb,0.24290e-03_rb, &\n        & 0.21182e-03_rb,0.17187e-03_rb,0.11158e-03_rb,0.16893e-04_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.27215e-03_rb,0.30477e-03_rb,0.29765e-03_rb,0.28075e-03_rb,0.25336e-03_rb, &\n        & 0.22120e-03_rb,0.17858e-03_rb,0.11794e-03_rb,0.18576e-04_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.27400e-03_rb,0.31061e-03_rb,0.30447e-03_rb,0.28836e-03_rb,0.26224e-03_rb, &\n        & 0.22886e-03_rb,0.18474e-03_rb,0.12372e-03_rb,0.20056e-04_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.27385e-03_rb,0.31424e-03_rb,0.30923e-03_rb,0.29477e-03_rb,0.26977e-03_rb, &\n        & 0.23554e-03_rb,0.19093e-03_rb,0.12884e-03_rb,0.21321e-04_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.27196e-03_rb,0.31647e-03_rb,0.31308e-03_rb,0.30006e-03_rb,0.27604e-03_rb, &\n        & 0.24191e-03_rb,0.19649e-03_rb,0.13352e-03_rb,0.22611e-04_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.22255e-03_rb,0.24716e-03_rb,0.24087e-03_rb,0.22672e-03_rb,0.20216e-03_rb, &\n        & 0.17582e-03_rb,0.14339e-03_rb,0.92528e-04_rb,0.22471e-04_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.22663e-03_rb,0.25429e-03_rb,0.24908e-03_rb,0.23506e-03_rb,0.21167e-03_rb, &\n        & 0.18377e-03_rb,0.14910e-03_rb,0.97972e-04_rb,0.24536e-04_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.22867e-03_rb,0.25963e-03_rb,0.25532e-03_rb,0.24169e-03_rb,0.21923e-03_rb, &\n        & 0.19067e-03_rb,0.15458e-03_rb,0.10293e-03_rb,0.26453e-04_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.22853e-03_rb,0.26273e-03_rb,0.25960e-03_rb,0.24704e-03_rb,0.22549e-03_rb, &\n        & 0.19679e-03_rb,0.15968e-03_rb,0.10728e-03_rb,0.28383e-04_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.22704e-03_rb,0.26469e-03_rb,0.26259e-03_rb,0.25141e-03_rb,0.23080e-03_rb, &\n        & 0.20216e-03_rb,0.16433e-03_rb,0.11116e-03_rb,0.30111e-04_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.18570e-03_rb,0.20791e-03_rb,0.20310e-03_rb,0.19106e-03_rb,0.17066e-03_rb, &\n        & 0.14797e-03_rb,0.12097e-03_rb,0.78704e-04_rb,0.20720e-04_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.18868e-03_rb,0.21356e-03_rb,0.20969e-03_rb,0.19807e-03_rb,0.17821e-03_rb, &\n        & 0.15434e-03_rb,0.12584e-03_rb,0.83179e-04_rb,0.23268e-04_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.18972e-03_rb,0.21732e-03_rb,0.21447e-03_rb,0.20305e-03_rb,0.18416e-03_rb, &\n        & 0.15993e-03_rb,0.13006e-03_rb,0.87134e-04_rb,0.25781e-04_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.18929e-03_rb,0.21955e-03_rb,0.21771e-03_rb,0.20711e-03_rb,0.18907e-03_rb, &\n        & 0.16493e-03_rb,0.13420e-03_rb,0.90699e-04_rb,0.28181e-04_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.18766e-03_rb,0.22095e-03_rb,0.21987e-03_rb,0.21045e-03_rb,0.19312e-03_rb, &\n        & 0.16934e-03_rb,0.13812e-03_rb,0.93840e-04_rb,0.30489e-04_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.15409e-03_rb,0.17399e-03_rb,0.17010e-03_rb,0.16002e-03_rb,0.14311e-03_rb, &\n        & 0.12376e-03_rb,0.10121e-03_rb,0.66428e-04_rb,0.17813e-04_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.15599e-03_rb,0.17831e-03_rb,0.17521e-03_rb,0.16554e-03_rb,0.14890e-03_rb, &\n        & 0.12881e-03_rb,0.10527e-03_rb,0.69964e-04_rb,0.19918e-04_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.15661e-03_rb,0.18119e-03_rb,0.17892e-03_rb,0.16934e-03_rb,0.15365e-03_rb, &\n        & 0.13338e-03_rb,0.10864e-03_rb,0.73142e-04_rb,0.22121e-04_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.15608e-03_rb,0.18293e-03_rb,0.18145e-03_rb,0.17254e-03_rb,0.15743e-03_rb, &\n        & 0.13747e-03_rb,0.11209e-03_rb,0.75971e-04_rb,0.24425e-04_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.15453e-03_rb,0.18383e-03_rb,0.18309e-03_rb,0.17510e-03_rb,0.16067e-03_rb, &\n        & 0.14102e-03_rb,0.11529e-03_rb,0.78607e-04_rb,0.26791e-04_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.12705e-03_rb,0.14485e-03_rb,0.14155e-03_rb,0.13312e-03_rb,0.11914e-03_rb, &\n        & 0.10299e-03_rb,0.84416e-04_rb,0.55598e-04_rb,0.14429e-04_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.12843e-03_rb,0.14822e-03_rb,0.14555e-03_rb,0.13748e-03_rb,0.12377e-03_rb, &\n        & 0.10702e-03_rb,0.87520e-04_rb,0.58405e-04_rb,0.16147e-04_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.12875e-03_rb,0.15043e-03_rb,0.14850e-03_rb,0.14053e-03_rb,0.12752e-03_rb, &\n        & 0.11081e-03_rb,0.90348e-04_rb,0.60934e-04_rb,0.17992e-04_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.12822e-03_rb,0.15175e-03_rb,0.15049e-03_rb,0.14301e-03_rb,0.13059e-03_rb, &\n        & 0.11413e-03_rb,0.93171e-04_rb,0.63296e-04_rb,0.19888e-04_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.12684e-03_rb,0.15239e-03_rb,0.15179e-03_rb,0.14511e-03_rb,0.13320e-03_rb, &\n        & 0.11702e-03_rb,0.95786e-04_rb,0.65468e-04_rb,0.21706e-04_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.16451e-02_rb,0.17375e-02_rb,0.16665e-02_rb,0.15396e-02_rb,0.13696e-02_rb, &\n        & 0.11731e-02_rb,0.92753e-03_rb,0.61159e-03_rb,0.14680e-03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.16450e-02_rb,0.17591e-02_rb,0.16954e-02_rb,0.15711e-02_rb,0.14087e-02_rb, &\n        & 0.12092e-02_rb,0.95859e-03_rb,0.63308e-03_rb,0.16131e-03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.16396e-02_rb,0.17762e-02_rb,0.17200e-02_rb,0.16012e-02_rb,0.14448e-02_rb, &\n        & 0.12424e-02_rb,0.98862e-03_rb,0.65400e-03_rb,0.17365e-03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.16299e-02_rb,0.17875e-02_rb,0.17415e-02_rb,0.16313e-02_rb,0.14788e-02_rb, &\n        & 0.12751e-02_rb,0.10161e-02_rb,0.67524e-03_rb,0.18499e-03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.16127e-02_rb,0.17946e-02_rb,0.17629e-02_rb,0.16594e-02_rb,0.15119e-02_rb, &\n        & 0.13059e-02_rb,0.10419e-02_rb,0.69511e-03_rb,0.19999e-03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.15084e-02_rb,0.15931e-02_rb,0.15186e-02_rb,0.13958e-02_rb,0.12369e-02_rb, &\n        & 0.10500e-02_rb,0.83688e-03_rb,0.55465e-03_rb,0.11914e-03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.15115e-02_rb,0.16146e-02_rb,0.15457e-02_rb,0.14241e-02_rb,0.12724e-02_rb, &\n        & 0.10844e-02_rb,0.86669e-03_rb,0.57603e-03_rb,0.13037e-03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.15084e-02_rb,0.16309e-02_rb,0.15669e-02_rb,0.14522e-02_rb,0.13074e-02_rb, &\n        & 0.11181e-02_rb,0.89787e-03_rb,0.59657e-03_rb,0.13918e-03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.14965e-02_rb,0.16419e-02_rb,0.15861e-02_rb,0.14781e-02_rb,0.13385e-02_rb, &\n        & 0.11507e-02_rb,0.92569e-03_rb,0.61596e-03_rb,0.15053e-03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.14804e-02_rb,0.16493e-02_rb,0.16042e-02_rb,0.15021e-02_rb,0.13704e-02_rb, &\n        & 0.11804e-02_rb,0.95044e-03_rb,0.63472e-03_rb,0.16410e-03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.13707e-02_rb,0.14436e-02_rb,0.13706e-02_rb,0.12561e-02_rb,0.11093e-02_rb, &\n        & 0.93534e-03_rb,0.74505e-03_rb,0.49303e-03_rb,0.93388e-04_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.13760e-02_rb,0.14666e-02_rb,0.13986e-02_rb,0.12850e-02_rb,0.11416e-02_rb, &\n        & 0.96700e-03_rb,0.77192e-03_rb,0.51430e-03_rb,0.10062e-03_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.13732e-02_rb,0.14839e-02_rb,0.14208e-02_rb,0.13112e-02_rb,0.11718e-02_rb, &\n        & 0.99814e-03_rb,0.79899e-03_rb,0.53404e-03_rb,0.10964e-03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.13644e-02_rb,0.14939e-02_rb,0.14404e-02_rb,0.13346e-02_rb,0.12002e-02_rb, &\n        & 0.10295e-02_rb,0.82532e-03_rb,0.55285e-03_rb,0.12023e-03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.13512e-02_rb,0.15024e-02_rb,0.14568e-02_rb,0.13559e-02_rb,0.12266e-02_rb, &\n        & 0.10592e-02_rb,0.85085e-03_rb,0.57058e-03_rb,0.13064e-03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.12336e-02_rb,0.12968e-02_rb,0.12255e-02_rb,0.11189e-02_rb,0.98785e-03_rb, &\n        & 0.83184e-03_rb,0.66033e-03_rb,0.43467e-03_rb,0.70047e-04_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.12419e-02_rb,0.13192e-02_rb,0.12543e-02_rb,0.11482e-02_rb,0.10189e-02_rb, &\n        & 0.86315e-03_rb,0.68559e-03_rb,0.45559e-03_rb,0.76629e-04_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.12416e-02_rb,0.13349e-02_rb,0.12771e-02_rb,0.11745e-02_rb,0.10469e-02_rb, &\n        & 0.89182e-03_rb,0.71110e-03_rb,0.47551e-03_rb,0.84761e-04_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.12342e-02_rb,0.13470e-02_rb,0.12958e-02_rb,0.11964e-02_rb,0.10726e-02_rb, &\n        & 0.91965e-03_rb,0.73487e-03_rb,0.49419e-03_rb,0.93979e-04_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.12238e-02_rb,0.13566e-02_rb,0.13110e-02_rb,0.12168e-02_rb,0.10976e-02_rb, &\n        & 0.94731e-03_rb,0.75866e-03_rb,0.51080e-03_rb,0.10249e-03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.10970e-02_rb,0.11491e-02_rb,0.10850e-02_rb,0.99037e-03_rb,0.87478e-03_rb, &\n        & 0.73644e-03_rb,0.58168e-03_rb,0.38673e-03_rb,0.55328e-04_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.11051e-02_rb,0.11716e-02_rb,0.11129e-02_rb,0.10196e-02_rb,0.90431e-03_rb, &\n        & 0.76445e-03_rb,0.60553e-03_rb,0.40600e-03_rb,0.61413e-04_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.11053e-02_rb,0.11877e-02_rb,0.11365e-02_rb,0.10446e-02_rb,0.92981e-03_rb, &\n        & 0.79114e-03_rb,0.62919e-03_rb,0.42419e-03_rb,0.68340e-04_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.11000e-02_rb,0.12008e-02_rb,0.11557e-02_rb,0.10648e-02_rb,0.95310e-03_rb, &\n        & 0.81721e-03_rb,0.65273e-03_rb,0.44128e-03_rb,0.75425e-04_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.10930e-02_rb,0.12101e-02_rb,0.11704e-02_rb,0.10855e-02_rb,0.97521e-03_rb, &\n        & 0.84232e-03_rb,0.67516e-03_rb,0.45733e-03_rb,0.82112e-04_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.96254e-03_rb,0.10041e-02_rb,0.94496e-03_rb,0.86305e-03_rb,0.76515e-03_rb, &\n        & 0.64666e-03_rb,0.50949e-03_rb,0.34237e-03_rb,0.45743e-04_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.97168e-03_rb,0.10257e-02_rb,0.97306e-03_rb,0.89241e-03_rb,0.79300e-03_rb, &\n        & 0.67315e-03_rb,0.53212e-03_rb,0.35953e-03_rb,0.50936e-04_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.97307e-03_rb,0.10417e-02_rb,0.99540e-03_rb,0.91663e-03_rb,0.81739e-03_rb, &\n        & 0.69764e-03_rb,0.55388e-03_rb,0.37625e-03_rb,0.56704e-04_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.97112e-03_rb,0.10538e-02_rb,0.10130e-02_rb,0.93600e-03_rb,0.83875e-03_rb, &\n        & 0.72048e-03_rb,0.57540e-03_rb,0.39219e-03_rb,0.62214e-04_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.96524e-03_rb,0.10634e-02_rb,0.10272e-02_rb,0.95339e-03_rb,0.85814e-03_rb, &\n        & 0.74256e-03_rb,0.59649e-03_rb,0.40723e-03_rb,0.68154e-04_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.83977e-03_rb,0.87150e-03_rb,0.81798e-03_rb,0.74510e-03_rb,0.66073e-03_rb, &\n        & 0.55889e-03_rb,0.44038e-03_rb,0.30023e-03_rb,0.39438e-04_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.84860e-03_rb,0.89183e-03_rb,0.84311e-03_rb,0.77202e-03_rb,0.68677e-03_rb, &\n        & 0.58412e-03_rb,0.46261e-03_rb,0.31513e-03_rb,0.44026e-04_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.85156e-03_rb,0.90640e-03_rb,0.86357e-03_rb,0.79472e-03_rb,0.70843e-03_rb, &\n        & 0.60616e-03_rb,0.48333e-03_rb,0.32962e-03_rb,0.48169e-04_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.84996e-03_rb,0.91804e-03_rb,0.88000e-03_rb,0.81332e-03_rb,0.72741e-03_rb, &\n        & 0.62668e-03_rb,0.50295e-03_rb,0.34425e-03_rb,0.52632e-04_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.84411e-03_rb,0.92502e-03_rb,0.89195e-03_rb,0.82771e-03_rb,0.74479e-03_rb, &\n        & 0.64630e-03_rb,0.52177e-03_rb,0.35838e-03_rb,0.57490e-04_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.72566e-03_rb,0.75029e-03_rb,0.70410e-03_rb,0.64085e-03_rb,0.56881e-03_rb, &\n        & 0.48163e-03_rb,0.37585e-03_rb,0.26029e-03_rb,0.35173e-04_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.73526e-03_rb,0.76878e-03_rb,0.72724e-03_rb,0.66569e-03_rb,0.59239e-03_rb, &\n        & 0.50357e-03_rb,0.39670e-03_rb,0.27234e-03_rb,0.38442e-04_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.73942e-03_rb,0.78240e-03_rb,0.74617e-03_rb,0.68580e-03_rb,0.61175e-03_rb, &\n        & 0.52308e-03_rb,0.41633e-03_rb,0.28548e-03_rb,0.42620e-04_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.73787e-03_rb,0.79331e-03_rb,0.76108e-03_rb,0.70193e-03_rb,0.62821e-03_rb, &\n        & 0.54092e-03_rb,0.43381e-03_rb,0.29821e-03_rb,0.47013e-04_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.73365e-03_rb,0.79895e-03_rb,0.77125e-03_rb,0.71463e-03_rb,0.64295e-03_rb, &\n        & 0.55753e-03_rb,0.45033e-03_rb,0.31091e-03_rb,0.51519e-04_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.62112e-03_rb,0.63900e-03_rb,0.60071e-03_rb,0.54641e-03_rb,0.48585e-03_rb, &\n        & 0.41219e-03_rb,0.31988e-03_rb,0.22088e-03_rb,0.39225e-04_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.63089e-03_rb,0.65678e-03_rb,0.62144e-03_rb,0.56855e-03_rb,0.50663e-03_rb, &\n        & 0.43158e-03_rb,0.33912e-03_rb,0.23261e-03_rb,0.43145e-04_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.63630e-03_rb,0.67023e-03_rb,0.63841e-03_rb,0.58635e-03_rb,0.52398e-03_rb, &\n        & 0.44876e-03_rb,0.35619e-03_rb,0.24341e-03_rb,0.47182e-04_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.63678e-03_rb,0.68001e-03_rb,0.65143e-03_rb,0.60045e-03_rb,0.53807e-03_rb, &\n        & 0.46446e-03_rb,0.37160e-03_rb,0.25517e-03_rb,0.51310e-04_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.63384e-03_rb,0.68558e-03_rb,0.66049e-03_rb,0.61133e-03_rb,0.55067e-03_rb, &\n        & 0.47828e-03_rb,0.38622e-03_rb,0.26607e-03_rb,0.55652e-04_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.52818e-03_rb,0.54302e-03_rb,0.51109e-03_rb,0.46524e-03_rb,0.41303e-03_rb, &\n        & 0.35089e-03_rb,0.27050e-03_rb,0.18719e-03_rb,0.51897e-04_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.53874e-03_rb,0.56000e-03_rb,0.52974e-03_rb,0.48429e-03_rb,0.43151e-03_rb, &\n        & 0.36826e-03_rb,0.28749e-03_rb,0.19624e-03_rb,0.57480e-04_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.54407e-03_rb,0.57298e-03_rb,0.54499e-03_rb,0.50007e-03_rb,0.44685e-03_rb, &\n        & 0.38282e-03_rb,0.30218e-03_rb,0.20623e-03_rb,0.63250e-04_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.54510e-03_rb,0.58221e-03_rb,0.55605e-03_rb,0.51259e-03_rb,0.45923e-03_rb, &\n        & 0.39550e-03_rb,0.31547e-03_rb,0.21632e-03_rb,0.68339e-04_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.54335e-03_rb,0.58744e-03_rb,0.56412e-03_rb,0.52185e-03_rb,0.47008e-03_rb, &\n        & 0.40728e-03_rb,0.32798e-03_rb,0.22618e-03_rb,0.72964e-04_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.44901e-03_rb,0.46427e-03_rb,0.43915e-03_rb,0.40187e-03_rb,0.35719e-03_rb, &\n        & 0.30380e-03_rb,0.23427e-03_rb,0.15956e-03_rb,0.52228e-04_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.45685e-03_rb,0.47845e-03_rb,0.45475e-03_rb,0.41772e-03_rb,0.37275e-03_rb, &\n        & 0.31798e-03_rb,0.24772e-03_rb,0.16817e-03_rb,0.56979e-04_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.46005e-03_rb,0.48879e-03_rb,0.46665e-03_rb,0.43038e-03_rb,0.38526e-03_rb, &\n        & 0.32982e-03_rb,0.25983e-03_rb,0.17707e-03_rb,0.61788e-04_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.46029e-03_rb,0.49540e-03_rb,0.47547e-03_rb,0.44015e-03_rb,0.39539e-03_rb, &\n        & 0.34025e-03_rb,0.27087e-03_rb,0.18596e-03_rb,0.66537e-04_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.45760e-03_rb,0.49879e-03_rb,0.48175e-03_rb,0.44812e-03_rb,0.40429e-03_rb, &\n        & 0.34971e-03_rb,0.28105e-03_rb,0.19422e-03_rb,0.70982e-04_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.37789e-03_rb,0.39359e-03_rb,0.37439e-03_rb,0.34335e-03_rb,0.30516e-03_rb, &\n        & 0.25987e-03_rb,0.20136e-03_rb,0.13616e-03_rb,0.47471e-04_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.38345e-03_rb,0.40460e-03_rb,0.38678e-03_rb,0.35616e-03_rb,0.31793e-03_rb, &\n        & 0.27155e-03_rb,0.21219e-03_rb,0.14366e-03_rb,0.51576e-04_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.38556e-03_rb,0.41241e-03_rb,0.39583e-03_rb,0.36622e-03_rb,0.32808e-03_rb, &\n        & 0.28132e-03_rb,0.22259e-03_rb,0.15133e-03_rb,0.55529e-04_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.38464e-03_rb,0.41687e-03_rb,0.40247e-03_rb,0.37394e-03_rb,0.33650e-03_rb, &\n        & 0.28994e-03_rb,0.23157e-03_rb,0.15870e-03_rb,0.59557e-04_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.38119e-03_rb,0.41880e-03_rb,0.40725e-03_rb,0.38009e-03_rb,0.34354e-03_rb, &\n        & 0.29781e-03_rb,0.23974e-03_rb,0.16572e-03_rb,0.63195e-04_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.31518e-03_rb,0.33080e-03_rb,0.31644e-03_rb,0.29051e-03_rb,0.25824e-03_rb, &\n        & 0.21997e-03_rb,0.17074e-03_rb,0.11585e-03_rb,0.39419e-04_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.31945e-03_rb,0.33947e-03_rb,0.32620e-03_rb,0.30064e-03_rb,0.26839e-03_rb, &\n        & 0.22968e-03_rb,0.17999e-03_rb,0.12241e-03_rb,0.42717e-04_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.32042e-03_rb,0.34518e-03_rb,0.33311e-03_rb,0.30844e-03_rb,0.27653e-03_rb, &\n        & 0.23733e-03_rb,0.18840e-03_rb,0.12892e-03_rb,0.45799e-04_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.31877e-03_rb,0.34829e-03_rb,0.33813e-03_rb,0.31466e-03_rb,0.28316e-03_rb, &\n        & 0.24429e-03_rb,0.19577e-03_rb,0.13500e-03_rb,0.49095e-04_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.31533e-03_rb,0.34943e-03_rb,0.34164e-03_rb,0.31953e-03_rb,0.28883e-03_rb, &\n        & 0.25064e-03_rb,0.20247e-03_rb,0.14079e-03_rb,0.52225e-04_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.30073e-02_rb,0.30215e-02_rb,0.28549e-02_rb,0.26145e-02_rb,0.23223e-02_rb, &\n        & 0.19698e-02_rb,0.15631e-02_rb,0.10671e-02_rb,0.34349e-03_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.30045e-02_rb,0.30464e-02_rb,0.29000e-02_rb,0.26682e-02_rb,0.23795e-02_rb, &\n        & 0.20320e-02_rb,0.16241e-02_rb,0.11180e-02_rb,0.37241e-03_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.29924e-02_rb,0.30694e-02_rb,0.29376e-02_rb,0.27170e-02_rb,0.24327e-02_rb, &\n        & 0.20955e-02_rb,0.16828e-02_rb,0.11692e-02_rb,0.41183e-03_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.29732e-02_rb,0.30875e-02_rb,0.29723e-02_rb,0.27617e-02_rb,0.24862e-02_rb, &\n        & 0.21555e-02_rb,0.17426e-02_rb,0.12186e-02_rb,0.45672e-03_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.29511e-02_rb,0.31004e-02_rb,0.30014e-02_rb,0.28043e-02_rb,0.25375e-02_rb, &\n        & 0.22174e-02_rb,0.18018e-02_rb,0.12656e-02_rb,0.49848e-03_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.28011e-02_rb,0.28061e-02_rb,0.26513e-02_rb,0.24171e-02_rb,0.21391e-02_rb, &\n        & 0.18145e-02_rb,0.14290e-02_rb,0.97808e-03_rb,0.28283e-03_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.28038e-02_rb,0.28333e-02_rb,0.26971e-02_rb,0.24708e-02_rb,0.21906e-02_rb, &\n        & 0.18715e-02_rb,0.14859e-02_rb,0.10236e-02_rb,0.31088e-03_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.27978e-02_rb,0.28587e-02_rb,0.27386e-02_rb,0.25159e-02_rb,0.22406e-02_rb, &\n        & 0.19256e-02_rb,0.15398e-02_rb,0.10695e-02_rb,0.34605e-03_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.27864e-02_rb,0.28782e-02_rb,0.27737e-02_rb,0.25561e-02_rb,0.22888e-02_rb, &\n        & 0.19778e-02_rb,0.15963e-02_rb,0.11144e-02_rb,0.38043e-03_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.27682e-02_rb,0.28941e-02_rb,0.28027e-02_rb,0.25952e-02_rb,0.23337e-02_rb, &\n        & 0.20308e-02_rb,0.16518e-02_rb,0.11583e-02_rb,0.41249e-03_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.26013e-02_rb,0.25925e-02_rb,0.24368e-02_rb,0.22059e-02_rb,0.19447e-02_rb, &\n        & 0.16443e-02_rb,0.12895e-02_rb,0.88356e-03_rb,0.22980e-03_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.26118e-02_rb,0.26228e-02_rb,0.24826e-02_rb,0.22596e-02_rb,0.19971e-02_rb, &\n        & 0.16971e-02_rb,0.13425e-02_rb,0.92292e-03_rb,0.25666e-03_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.26121e-02_rb,0.26511e-02_rb,0.25221e-02_rb,0.23045e-02_rb,0.20442e-02_rb, &\n        & 0.17465e-02_rb,0.13937e-02_rb,0.96423e-03_rb,0.28307e-03_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.26050e-02_rb,0.26757e-02_rb,0.25536e-02_rb,0.23446e-02_rb,0.20883e-02_rb, &\n        & 0.17925e-02_rb,0.14453e-02_rb,0.10074e-02_rb,0.30818e-03_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.25933e-02_rb,0.26944e-02_rb,0.25823e-02_rb,0.23794e-02_rb,0.21318e-02_rb, &\n        & 0.18378e-02_rb,0.14965e-02_rb,0.10492e-02_rb,0.33812e-03_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.24078e-02_rb,0.23894e-02_rb,0.22370e-02_rb,0.20125e-02_rb,0.17599e-02_rb, &\n        & 0.14763e-02_rb,0.11554e-02_rb,0.78494e-03_rb,0.18813e-03_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.24225e-02_rb,0.24253e-02_rb,0.22813e-02_rb,0.20638e-02_rb,0.18093e-02_rb, &\n        & 0.15251e-02_rb,0.12031e-02_rb,0.82373e-03_rb,0.21030e-03_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.24294e-02_rb,0.24564e-02_rb,0.23198e-02_rb,0.21085e-02_rb,0.18532e-02_rb, &\n        & 0.15708e-02_rb,0.12482e-02_rb,0.86229e-03_rb,0.23129e-03_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.24309e-02_rb,0.24808e-02_rb,0.23546e-02_rb,0.21467e-02_rb,0.18923e-02_rb, &\n        & 0.16129e-02_rb,0.12944e-02_rb,0.90119e-03_rb,0.25224e-03_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.24223e-02_rb,0.24983e-02_rb,0.23839e-02_rb,0.21783e-02_rb,0.19305e-02_rb, &\n        & 0.16540e-02_rb,0.13401e-02_rb,0.94049e-03_rb,0.27779e-03_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.22071e-02_rb,0.21851e-02_rb,0.20436e-02_rb,0.18357e-02_rb,0.15952e-02_rb, &\n        & 0.13304e-02_rb,0.10307e-02_rb,0.69163e-03_rb,0.14983e-03_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.22284e-02_rb,0.22243e-02_rb,0.20887e-02_rb,0.18839e-02_rb,0.16450e-02_rb, &\n        & 0.13762e-02_rb,0.10736e-02_rb,0.72602e-03_rb,0.16732e-03_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.22426e-02_rb,0.22593e-02_rb,0.21270e-02_rb,0.19281e-02_rb,0.16889e-02_rb, &\n        & 0.14169e-02_rb,0.11148e-02_rb,0.76201e-03_rb,0.18420e-03_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.22476e-02_rb,0.22863e-02_rb,0.21609e-02_rb,0.19676e-02_rb,0.17258e-02_rb, &\n        & 0.14525e-02_rb,0.11537e-02_rb,0.79815e-03_rb,0.20325e-03_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.22399e-02_rb,0.23048e-02_rb,0.21912e-02_rb,0.19974e-02_rb,0.17586e-02_rb, &\n        & 0.14880e-02_rb,0.11934e-02_rb,0.83564e-03_rb,0.22470e-03_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.20075e-02_rb,0.19795e-02_rb,0.18447e-02_rb,0.16541e-02_rb,0.14341e-02_rb, &\n        & 0.11951e-02_rb,0.92238e-03_rb,0.60660e-03_rb,0.12381e-03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.20344e-02_rb,0.20227e-02_rb,0.18912e-02_rb,0.17028e-02_rb,0.14828e-02_rb, &\n        & 0.12404e-02_rb,0.96234e-03_rb,0.63833e-03_rb,0.13822e-03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.20513e-02_rb,0.20598e-02_rb,0.19311e-02_rb,0.17466e-02_rb,0.15267e-02_rb, &\n        & 0.12805e-02_rb,0.99815e-03_rb,0.66987e-03_rb,0.15138e-03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.20576e-02_rb,0.20878e-02_rb,0.19661e-02_rb,0.17857e-02_rb,0.15647e-02_rb, &\n        & 0.13147e-02_rb,0.10319e-02_rb,0.70266e-03_rb,0.16753e-03_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.20521e-02_rb,0.21067e-02_rb,0.19938e-02_rb,0.18157e-02_rb,0.15969e-02_rb, &\n        & 0.13475e-02_rb,0.10644e-02_rb,0.73524e-03_rb,0.18430e-03_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.17951e-02_rb,0.17708e-02_rb,0.16476e-02_rb,0.14764e-02_rb,0.12769e-02_rb, &\n        & 0.10613e-02_rb,0.82141e-03_rb,0.53387e-03_rb,0.10356e-03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.18257e-02_rb,0.18161e-02_rb,0.16970e-02_rb,0.15264e-02_rb,0.13250e-02_rb, &\n        & 0.11052e-02_rb,0.85771e-03_rb,0.56341e-03_rb,0.11419e-03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.18457e-02_rb,0.18541e-02_rb,0.17382e-02_rb,0.15700e-02_rb,0.13685e-02_rb, &\n        & 0.11444e-02_rb,0.89062e-03_rb,0.59265e-03_rb,0.12737e-03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.18534e-02_rb,0.18833e-02_rb,0.17713e-02_rb,0.16066e-02_rb,0.14063e-02_rb, &\n        & 0.11787e-02_rb,0.92220e-03_rb,0.62067e-03_rb,0.14148e-03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.18508e-02_rb,0.19025e-02_rb,0.17986e-02_rb,0.16377e-02_rb,0.14382e-02_rb, &\n        & 0.12095e-02_rb,0.95313e-03_rb,0.64883e-03_rb,0.15624e-03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.15853e-02_rb,0.15606e-02_rb,0.14491e-02_rb,0.13005e-02_rb,0.11253e-02_rb, &\n        & 0.93388e-03_rb,0.72631e-03_rb,0.46832e-03_rb,0.90402e-04_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.16191e-02_rb,0.16074e-02_rb,0.14980e-02_rb,0.13497e-02_rb,0.11730e-02_rb, &\n        & 0.97691e-03_rb,0.76027e-03_rb,0.49835e-03_rb,0.10124e-03_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.16393e-02_rb,0.16464e-02_rb,0.15392e-02_rb,0.13927e-02_rb,0.12147e-02_rb, &\n        & 0.10153e-02_rb,0.79129e-03_rb,0.52537e-03_rb,0.11276e-03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.16487e-02_rb,0.16729e-02_rb,0.15721e-02_rb,0.14286e-02_rb,0.12504e-02_rb, &\n        & 0.10480e-02_rb,0.82072e-03_rb,0.55187e-03_rb,0.12515e-03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.16472e-02_rb,0.16924e-02_rb,0.15977e-02_rb,0.14588e-02_rb,0.12817e-02_rb, &\n        & 0.10777e-02_rb,0.84873e-03_rb,0.57800e-03_rb,0.13784e-03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.13936e-02_rb,0.13674e-02_rb,0.12635e-02_rb,0.11331e-02_rb,0.97871e-03_rb, &\n        & 0.81331e-03_rb,0.63480e-03_rb,0.40910e-03_rb,0.92222e-04_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.14271e-02_rb,0.14126e-02_rb,0.13114e-02_rb,0.11804e-02_rb,0.10248e-02_rb, &\n        & 0.85405e-03_rb,0.66828e-03_rb,0.43677e-03_rb,0.10207e-03_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.14461e-02_rb,0.14478e-02_rb,0.13500e-02_rb,0.12219e-02_rb,0.10647e-02_rb, &\n        & 0.89058e-03_rb,0.69816e-03_rb,0.46305e-03_rb,0.11262e-03_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.14547e-02_rb,0.14726e-02_rb,0.13807e-02_rb,0.12557e-02_rb,0.10996e-02_rb, &\n        & 0.92247e-03_rb,0.72520e-03_rb,0.48654e-03_rb,0.12376e-03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.14563e-02_rb,0.14902e-02_rb,0.14046e-02_rb,0.12841e-02_rb,0.11288e-02_rb, &\n        & 0.95105e-03_rb,0.75065e-03_rb,0.51065e-03_rb,0.13556e-03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.12161e-02_rb,0.11928e-02_rb,0.11004e-02_rb,0.98725e-03_rb,0.85318e-03_rb, &\n        & 0.70775e-03_rb,0.55081e-03_rb,0.35481e-03_rb,0.12422e-03_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.12463e-02_rb,0.12352e-02_rb,0.11444e-02_rb,0.10316e-02_rb,0.89480e-03_rb, &\n        & 0.74560e-03_rb,0.58282e-03_rb,0.38195e-03_rb,0.13273e-03_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.12646e-02_rb,0.12662e-02_rb,0.11796e-02_rb,0.10687e-02_rb,0.93096e-03_rb, &\n        & 0.77883e-03_rb,0.61138e-03_rb,0.40526e-03_rb,0.14193e-03_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.12733e-02_rb,0.12880e-02_rb,0.12074e-02_rb,0.10979e-02_rb,0.96169e-03_rb, &\n        & 0.80809e-03_rb,0.63689e-03_rb,0.42724e-03_rb,0.15291e-03_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.12740e-02_rb,0.13044e-02_rb,0.12293e-02_rb,0.11231e-02_rb,0.98752e-03_rb, &\n        & 0.83380e-03_rb,0.66030e-03_rb,0.44847e-03_rb,0.16460e-03_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.10656e-02_rb,0.10497e-02_rb,0.96881e-03_rb,0.87108e-03_rb,0.75627e-03_rb, &\n        & 0.62893e-03_rb,0.48955e-03_rb,0.31741e-03_rb,0.13016e-03_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.10879e-02_rb,0.10821e-02_rb,0.10046e-02_rb,0.90804e-03_rb,0.79130e-03_rb, &\n        & 0.66235e-03_rb,0.51807e-03_rb,0.34003e-03_rb,0.13779e-03_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.11001e-02_rb,0.11057e-02_rb,0.10327e-02_rb,0.93770e-03_rb,0.82120e-03_rb, &\n        & 0.69087e-03_rb,0.54346e-03_rb,0.36047e-03_rb,0.14411e-03_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.11047e-02_rb,0.11226e-02_rb,0.10548e-02_rb,0.96212e-03_rb,0.84667e-03_rb, &\n        & 0.71575e-03_rb,0.56548e-03_rb,0.37954e-03_rb,0.15311e-03_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.11028e-02_rb,0.11345e-02_rb,0.10715e-02_rb,0.98143e-03_rb,0.86845e-03_rb, &\n        & 0.73791e-03_rb,0.58600e-03_rb,0.39874e-03_rb,0.16257e-03_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.92541e-03_rb,0.91485e-03_rb,0.84575e-03_rb,0.76287e-03_rb,0.66530e-03_rb, &\n        & 0.55435e-03_rb,0.43055e-03_rb,0.28106e-03_rb,0.11779e-03_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.94153e-03_rb,0.94015e-03_rb,0.87425e-03_rb,0.79221e-03_rb,0.69422e-03_rb, &\n        & 0.58249e-03_rb,0.45555e-03_rb,0.30043e-03_rb,0.12541e-03_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.95043e-03_rb,0.95859e-03_rb,0.89645e-03_rb,0.81618e-03_rb,0.71892e-03_rb, &\n        & 0.60660e-03_rb,0.47691e-03_rb,0.31810e-03_rb,0.13086e-03_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.95300e-03_rb,0.97180e-03_rb,0.91414e-03_rb,0.83540e-03_rb,0.73965e-03_rb, &\n        & 0.62755e-03_rb,0.49627e-03_rb,0.33494e-03_rb,0.13792e-03_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.94924e-03_rb,0.98033e-03_rb,0.92629e-03_rb,0.85073e-03_rb,0.75722e-03_rb, &\n        & 0.64562e-03_rb,0.51410e-03_rb,0.35114e-03_rb,0.14650e-03_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.79344e-03_rb,0.78971e-03_rb,0.73267e-03_rb,0.66405e-03_rb,0.58083e-03_rb, &\n        & 0.48392e-03_rb,0.37549e-03_rb,0.24569e-03_rb,0.97034e-04_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.80574e-03_rb,0.81004e-03_rb,0.75547e-03_rb,0.68809e-03_rb,0.60484e-03_rb, &\n        & 0.50707e-03_rb,0.39618e-03_rb,0.26227e-03_rb,0.10267e-03_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.81227e-03_rb,0.82486e-03_rb,0.77408e-03_rb,0.70758e-03_rb,0.62511e-03_rb, &\n        & 0.52731e-03_rb,0.41439e-03_rb,0.27759e-03_rb,0.10742e-03_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.81298e-03_rb,0.83538e-03_rb,0.78743e-03_rb,0.72262e-03_rb,0.64193e-03_rb, &\n        & 0.54449e-03_rb,0.43080e-03_rb,0.29211e-03_rb,0.11325e-03_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.80893e-03_rb,0.84184e-03_rb,0.79706e-03_rb,0.73516e-03_rb,0.65638e-03_rb, &\n        & 0.55984e-03_rb,0.44607e-03_rb,0.30621e-03_rb,0.12059e-03_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.54732e-02_rb,0.53034e-02_rb,0.49969e-02_rb,0.45431e-02_rb,0.40134e-02_rb, &\n        & 0.34010e-02_rb,0.26972e-02_rb,0.18637e-02_rb,0.96692e-03_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.54607e-02_rb,0.53367e-02_rb,0.50546e-02_rb,0.46321e-02_rb,0.41099e-02_rb, &\n        & 0.34970e-02_rb,0.27999e-02_rb,0.19729e-02_rb,0.11063e-02_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.54405e-02_rb,0.53637e-02_rb,0.51145e-02_rb,0.47117e-02_rb,0.41981e-02_rb, &\n        & 0.35927e-02_rb,0.29070e-02_rb,0.20850e-02_rb,0.12360e-02_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.54052e-02_rb,0.53858e-02_rb,0.51679e-02_rb,0.47829e-02_rb,0.42844e-02_rb, &\n        & 0.36942e-02_rb,0.30161e-02_rb,0.22030e-02_rb,0.13785e-02_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.53549e-02_rb,0.54029e-02_rb,0.52131e-02_rb,0.48529e-02_rb,0.43733e-02_rb, &\n        & 0.37946e-02_rb,0.31262e-02_rb,0.23268e-02_rb,0.15336e-02_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.52482e-02_rb,0.50940e-02_rb,0.47786e-02_rb,0.43454e-02_rb,0.38186e-02_rb, &\n        & 0.32129e-02_rb,0.25325e-02_rb,0.17227e-02_rb,0.80430e-03_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.52403e-02_rb,0.51313e-02_rb,0.48370e-02_rb,0.44315e-02_rb,0.39109e-02_rb, &\n        & 0.33052e-02_rb,0.26254e-02_rb,0.18226e-02_rb,0.90614e-03_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.52188e-02_rb,0.51614e-02_rb,0.48948e-02_rb,0.45073e-02_rb,0.39963e-02_rb, &\n        & 0.33961e-02_rb,0.27198e-02_rb,0.19222e-02_rb,0.10146e-02_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.51826e-02_rb,0.51837e-02_rb,0.49460e-02_rb,0.45770e-02_rb,0.40791e-02_rb, &\n        & 0.34891e-02_rb,0.28146e-02_rb,0.20278e-02_rb,0.11325e-02_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.51359e-02_rb,0.51960e-02_rb,0.49902e-02_rb,0.46430e-02_rb,0.41602e-02_rb, &\n        & 0.35811e-02_rb,0.29127e-02_rb,0.21431e-02_rb,0.12633e-02_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.49876e-02_rb,0.48388e-02_rb,0.45133e-02_rb,0.40992e-02_rb,0.35901e-02_rb, &\n        & 0.30030e-02_rb,0.23527e-02_rb,0.15765e-02_rb,0.64714e-03_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.49850e-02_rb,0.48808e-02_rb,0.45736e-02_rb,0.41821e-02_rb,0.36790e-02_rb, &\n        & 0.30941e-02_rb,0.24388e-02_rb,0.16655e-02_rb,0.72927e-03_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.49660e-02_rb,0.49117e-02_rb,0.46346e-02_rb,0.42593e-02_rb,0.37631e-02_rb, &\n        & 0.31820e-02_rb,0.25243e-02_rb,0.17543e-02_rb,0.81771e-03_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.49361e-02_rb,0.49307e-02_rb,0.46909e-02_rb,0.43285e-02_rb,0.38459e-02_rb, &\n        & 0.32679e-02_rb,0.26083e-02_rb,0.18450e-02_rb,0.91578e-03_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.48943e-02_rb,0.49413e-02_rb,0.47366e-02_rb,0.43959e-02_rb,0.39239e-02_rb, &\n        & 0.33496e-02_rb,0.26941e-02_rb,0.19416e-02_rb,0.10197e-02_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.46848e-02_rb,0.45423e-02_rb,0.42109e-02_rb,0.38147e-02_rb,0.33318e-02_rb, &\n        & 0.27806e-02_rb,0.21628e-02_rb,0.14435e-02_rb,0.52019e-03_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.46885e-02_rb,0.45846e-02_rb,0.42767e-02_rb,0.38967e-02_rb,0.34228e-02_rb, &\n        & 0.28698e-02_rb,0.22469e-02_rb,0.15180e-02_rb,0.58537e-03_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.46784e-02_rb,0.46158e-02_rb,0.43389e-02_rb,0.39718e-02_rb,0.35088e-02_rb, &\n        & 0.29561e-02_rb,0.23285e-02_rb,0.15932e-02_rb,0.65783e-03_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.46546e-02_rb,0.46379e-02_rb,0.43907e-02_rb,0.40421e-02_rb,0.35928e-02_rb, &\n        & 0.30394e-02_rb,0.24053e-02_rb,0.16703e-02_rb,0.73788e-03_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.46218e-02_rb,0.46560e-02_rb,0.44359e-02_rb,0.41109e-02_rb,0.36691e-02_rb, &\n        & 0.31156e-02_rb,0.24821e-02_rb,0.17515e-02_rb,0.82261e-03_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.43680e-02_rb,0.42271e-02_rb,0.38928e-02_rb,0.35080e-02_rb,0.30576e-02_rb, &\n        & 0.25405e-02_rb,0.19725e-02_rb,0.13117e-02_rb,0.42455e-03_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.43836e-02_rb,0.42742e-02_rb,0.39603e-02_rb,0.35901e-02_rb,0.31440e-02_rb, &\n        & 0.26294e-02_rb,0.20540e-02_rb,0.13812e-02_rb,0.47676e-03_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.43831e-02_rb,0.43074e-02_rb,0.40201e-02_rb,0.36636e-02_rb,0.32261e-02_rb, &\n        & 0.27164e-02_rb,0.21330e-02_rb,0.14464e-02_rb,0.53568e-03_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.43690e-02_rb,0.43343e-02_rb,0.40742e-02_rb,0.37289e-02_rb,0.33089e-02_rb, &\n        & 0.28017e-02_rb,0.22054e-02_rb,0.15130e-02_rb,0.59880e-03_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.43473e-02_rb,0.43575e-02_rb,0.41195e-02_rb,0.37951e-02_rb,0.33885e-02_rb, &\n        & 0.28774e-02_rb,0.22767e-02_rb,0.15816e-02_rb,0.66710e-03_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.40714e-02_rb,0.39122e-02_rb,0.35777e-02_rb,0.32091e-02_rb,0.27872e-02_rb, &\n        & 0.22994e-02_rb,0.17735e-02_rb,0.11790e-02_rb,0.33561e-03_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.40973e-02_rb,0.39625e-02_rb,0.36472e-02_rb,0.32877e-02_rb,0.28694e-02_rb, &\n        & 0.23826e-02_rb,0.18515e-02_rb,0.12426e-02_rb,0.37756e-03_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.41108e-02_rb,0.40033e-02_rb,0.37116e-02_rb,0.33595e-02_rb,0.29464e-02_rb, &\n        & 0.24646e-02_rb,0.19290e-02_rb,0.13037e-02_rb,0.42584e-03_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.41078e-02_rb,0.40382e-02_rb,0.37677e-02_rb,0.34232e-02_rb,0.30216e-02_rb, &\n        & 0.25463e-02_rb,0.20016e-02_rb,0.13624e-02_rb,0.47733e-03_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.40964e-02_rb,0.40666e-02_rb,0.38151e-02_rb,0.34890e-02_rb,0.30973e-02_rb, &\n        & 0.26200e-02_rb,0.20705e-02_rb,0.14239e-02_rb,0.53330e-03_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.37806e-02_rb,0.36256e-02_rb,0.32982e-02_rb,0.29389e-02_rb,0.25345e-02_rb, &\n        & 0.20760e-02_rb,0.15879e-02_rb,0.10489e-02_rb,0.28018e-03_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.38204e-02_rb,0.36872e-02_rb,0.33713e-02_rb,0.30154e-02_rb,0.26103e-02_rb, &\n        & 0.21557e-02_rb,0.16619e-02_rb,0.11071e-02_rb,0.31519e-03_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.38460e-02_rb,0.37374e-02_rb,0.34369e-02_rb,0.30817e-02_rb,0.26834e-02_rb, &\n        & 0.22319e-02_rb,0.17344e-02_rb,0.11636e-02_rb,0.35270e-03_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.38578e-02_rb,0.37771e-02_rb,0.34946e-02_rb,0.31444e-02_rb,0.27541e-02_rb, &\n        & 0.23067e-02_rb,0.18034e-02_rb,0.12192e-02_rb,0.39298e-03_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.38608e-02_rb,0.38134e-02_rb,0.35421e-02_rb,0.32035e-02_rb,0.28239e-02_rb, &\n        & 0.23777e-02_rb,0.18670e-02_rb,0.12748e-02_rb,0.43632e-03_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.34769e-02_rb,0.33291e-02_rb,0.30196e-02_rb,0.26781e-02_rb,0.23024e-02_rb, &\n        & 0.18824e-02_rb,0.14244e-02_rb,0.92897e-03_rb,0.24101e-03_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.35239e-02_rb,0.33972e-02_rb,0.30964e-02_rb,0.27587e-02_rb,0.23816e-02_rb, &\n        & 0.19578e-02_rb,0.14914e-02_rb,0.98181e-03_rb,0.27130e-03_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.35607e-02_rb,0.34526e-02_rb,0.31656e-02_rb,0.28309e-02_rb,0.24544e-02_rb, &\n        & 0.20284e-02_rb,0.15562e-02_rb,0.10333e-02_rb,0.30255e-03_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.35844e-02_rb,0.35023e-02_rb,0.32271e-02_rb,0.28968e-02_rb,0.25226e-02_rb, &\n        & 0.20957e-02_rb,0.16188e-02_rb,0.10830e-02_rb,0.33737e-03_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.35961e-02_rb,0.35446e-02_rb,0.32825e-02_rb,0.29568e-02_rb,0.25866e-02_rb, &\n        & 0.21594e-02_rb,0.16782e-02_rb,0.11324e-02_rb,0.37448e-03_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.31490e-02_rb,0.30162e-02_rb,0.27350e-02_rb,0.24183e-02_rb,0.20753e-02_rb, &\n        & 0.16954e-02_rb,0.12750e-02_rb,0.82561e-03_rb,0.24776e-03_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.32098e-02_rb,0.30913e-02_rb,0.28147e-02_rb,0.25006e-02_rb,0.21544e-02_rb, &\n        & 0.17699e-02_rb,0.13387e-02_rb,0.87243e-03_rb,0.27735e-03_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.32582e-02_rb,0.31563e-02_rb,0.28883e-02_rb,0.25742e-02_rb,0.22278e-02_rb, &\n        & 0.18394e-02_rb,0.14003e-02_rb,0.91830e-03_rb,0.30712e-03_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.32928e-02_rb,0.32146e-02_rb,0.29543e-02_rb,0.26421e-02_rb,0.22954e-02_rb, &\n        & 0.19038e-02_rb,0.14592e-02_rb,0.96296e-03_rb,0.33982e-03_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.33113e-02_rb,0.32637e-02_rb,0.30129e-02_rb,0.27034e-02_rb,0.23582e-02_rb, &\n        & 0.19652e-02_rb,0.15140e-02_rb,0.10071e-02_rb,0.37422e-03_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.28236e-02_rb,0.26993e-02_rb,0.24463e-02_rb,0.21584e-02_rb,0.18515e-02_rb, &\n        & 0.15144e-02_rb,0.11396e-02_rb,0.73456e-03_rb,0.30599e-03_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.28929e-02_rb,0.27796e-02_rb,0.25302e-02_rb,0.22416e-02_rb,0.19311e-02_rb, &\n        & 0.15864e-02_rb,0.12002e-02_rb,0.77955e-03_rb,0.32947e-03_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.29497e-02_rb,0.28523e-02_rb,0.26078e-02_rb,0.23174e-02_rb,0.20043e-02_rb, &\n        & 0.16542e-02_rb,0.12577e-02_rb,0.82291e-03_rb,0.35529e-03_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.29901e-02_rb,0.29165e-02_rb,0.26763e-02_rb,0.23877e-02_rb,0.20731e-02_rb, &\n        & 0.17177e-02_rb,0.13124e-02_rb,0.86431e-03_rb,0.38167e-03_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.30139e-02_rb,0.29672e-02_rb,0.27348e-02_rb,0.24509e-02_rb,0.21349e-02_rb, &\n        & 0.17760e-02_rb,0.13646e-02_rb,0.90496e-03_rb,0.40993e-03_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.25422e-02_rb,0.24347e-02_rb,0.22108e-02_rb,0.19505e-02_rb,0.16727e-02_rb, &\n        & 0.13714e-02_rb,0.10368e-02_rb,0.66936e-03_rb,0.31350e-03_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.26126e-02_rb,0.25184e-02_rb,0.22944e-02_rb,0.20307e-02_rb,0.17483e-02_rb, &\n        & 0.14377e-02_rb,0.10928e-02_rb,0.71181e-03_rb,0.33782e-03_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.26690e-02_rb,0.25901e-02_rb,0.23690e-02_rb,0.21043e-02_rb,0.18188e-02_rb, &\n        & 0.15016e-02_rb,0.11462e-02_rb,0.75188e-03_rb,0.35774e-03_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.27048e-02_rb,0.26504e-02_rb,0.24329e-02_rb,0.21704e-02_rb,0.18832e-02_rb, &\n        & 0.15599e-02_rb,0.11973e-02_rb,0.79054e-03_rb,0.37720e-03_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.27241e-02_rb,0.26964e-02_rb,0.24876e-02_rb,0.22289e-02_rb,0.19396e-02_rb, &\n        & 0.16131e-02_rb,0.12459e-02_rb,0.82843e-03_rb,0.39980e-03_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.22863e-02_rb,0.21916e-02_rb,0.19903e-02_rb,0.17560e-02_rb,0.15053e-02_rb, &\n        & 0.12361e-02_rb,0.93929e-03_rb,0.60469e-03_rb,0.28176e-03_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.23519e-02_rb,0.22705e-02_rb,0.20691e-02_rb,0.18315e-02_rb,0.15760e-02_rb, &\n        & 0.12985e-02_rb,0.99139e-03_rb,0.64462e-03_rb,0.30471e-03_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.23974e-02_rb,0.23352e-02_rb,0.21377e-02_rb,0.19000e-02_rb,0.16408e-02_rb, &\n        & 0.13574e-02_rb,0.10412e-02_rb,0.68214e-03_rb,0.32553e-03_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.24260e-02_rb,0.23879e-02_rb,0.21943e-02_rb,0.19602e-02_rb,0.16992e-02_rb, &\n        & 0.14109e-02_rb,0.10885e-02_rb,0.71852e-03_rb,0.34169e-03_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.24412e-02_rb,0.24274e-02_rb,0.22422e-02_rb,0.20116e-02_rb,0.17502e-02_rb, &\n        & 0.14591e-02_rb,0.11336e-02_rb,0.75474e-03_rb,0.36020e-03_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.20393e-02_rb,0.19603e-02_rb,0.17821e-02_rb,0.15739e-02_rb,0.13509e-02_rb, &\n        & 0.11133e-02_rb,0.84826e-03_rb,0.54289e-03_rb,0.23248e-03_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.20953e-02_rb,0.20307e-02_rb,0.18542e-02_rb,0.16433e-02_rb,0.14162e-02_rb, &\n        & 0.11712e-02_rb,0.89683e-03_rb,0.57958e-03_rb,0.25095e-03_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.21323e-02_rb,0.20881e-02_rb,0.19144e-02_rb,0.17046e-02_rb,0.14742e-02_rb, &\n        & 0.12241e-02_rb,0.94271e-03_rb,0.61480e-03_rb,0.26566e-03_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.21562e-02_rb,0.21324e-02_rb,0.19654e-02_rb,0.17578e-02_rb,0.15256e-02_rb, &\n        & 0.12715e-02_rb,0.98599e-03_rb,0.64941e-03_rb,0.28144e-03_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.21687e-02_rb,0.21674e-02_rb,0.20081e-02_rb,0.18029e-02_rb,0.15712e-02_rb, &\n        & 0.13148e-02_rb,0.10270e-02_rb,0.68370e-03_rb,0.29755e-03_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.10084e-01_rb,0.95278e-02_rb,0.88730e-02_rb,0.81189e-02_rb,0.71873e-02_rb, &\n        & 0.61505e-02_rb,0.50159e-02_rb,0.37383e-02_rb,0.30410e-02_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.10011e-01_rb,0.95195e-02_rb,0.89419e-02_rb,0.82272e-02_rb,0.73508e-02_rb, &\n        & 0.63699e-02_rb,0.52392e-02_rb,0.39784e-02_rb,0.34237e-02_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.99285e-02_rb,0.95060e-02_rb,0.90107e-02_rb,0.83435e-02_rb,0.75299e-02_rb, &\n        & 0.65814e-02_rb,0.54661e-02_rb,0.42490e-02_rb,0.38569e-02_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.98396e-02_rb,0.95039e-02_rb,0.90786e-02_rb,0.84657e-02_rb,0.77142e-02_rb, &\n        & 0.67908e-02_rb,0.57132e-02_rb,0.45510e-02_rb,0.43277e-02_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.97470e-02_rb,0.95073e-02_rb,0.91451e-02_rb,0.85961e-02_rb,0.78983e-02_rb, &\n        & 0.70134e-02_rb,0.59878e-02_rb,0.48898e-02_rb,0.48367e-02_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.10032e-01_rb,0.95001e-02_rb,0.88015e-02_rb,0.80012e-02_rb,0.70675e-02_rb, &\n        & 0.59994e-02_rb,0.48088e-02_rb,0.34803e-02_rb,0.24973e-02_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.99727e-02_rb,0.94952e-02_rb,0.88708e-02_rb,0.81052e-02_rb,0.72227e-02_rb, &\n        & 0.61975e-02_rb,0.50149e-02_rb,0.36876e-02_rb,0.28262e-02_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.99020e-02_rb,0.94876e-02_rb,0.89395e-02_rb,0.82200e-02_rb,0.73884e-02_rb, &\n        & 0.63917e-02_rb,0.52241e-02_rb,0.39189e-02_rb,0.31881e-02_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.98208e-02_rb,0.94907e-02_rb,0.90072e-02_rb,0.83409e-02_rb,0.75534e-02_rb, &\n        & 0.65848e-02_rb,0.54476e-02_rb,0.41701e-02_rb,0.35802e-02_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.97350e-02_rb,0.95036e-02_rb,0.90758e-02_rb,0.84664e-02_rb,0.77179e-02_rb, &\n        & 0.67885e-02_rb,0.56906e-02_rb,0.44399e-02_rb,0.40032e-02_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.99249e-02_rb,0.94002e-02_rb,0.86731e-02_rb,0.78226e-02_rb,0.68627e-02_rb, &\n        & 0.57870e-02_rb,0.45641e-02_rb,0.32036e-02_rb,0.20068e-02_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.98781e-02_rb,0.94039e-02_rb,0.87415e-02_rb,0.79225e-02_rb,0.70078e-02_rb, &\n        & 0.59682e-02_rb,0.47504e-02_rb,0.33906e-02_rb,0.22741e-02_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.98245e-02_rb,0.94056e-02_rb,0.88077e-02_rb,0.80290e-02_rb,0.71634e-02_rb, &\n        & 0.61455e-02_rb,0.49439e-02_rb,0.35923e-02_rb,0.25675e-02_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.97585e-02_rb,0.94181e-02_rb,0.88723e-02_rb,0.81452e-02_rb,0.73134e-02_rb, &\n        & 0.63196e-02_rb,0.51498e-02_rb,0.38082e-02_rb,0.28828e-02_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.96800e-02_rb,0.94346e-02_rb,0.89400e-02_rb,0.82650e-02_rb,0.74596e-02_rb, &\n        & 0.65093e-02_rb,0.53613e-02_rb,0.40378e-02_rb,0.32210e-02_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.97390e-02_rb,0.92223e-02_rb,0.84805e-02_rb,0.75962e-02_rb,0.66183e-02_rb, &\n        & 0.55421e-02_rb,0.43153e-02_rb,0.29439e-02_rb,0.16096e-02_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.97149e-02_rb,0.92440e-02_rb,0.85515e-02_rb,0.76965e-02_rb,0.67525e-02_rb, &\n        & 0.57037e-02_rb,0.44852e-02_rb,0.31152e-02_rb,0.18298e-02_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.96772e-02_rb,0.92607e-02_rb,0.86210e-02_rb,0.78004e-02_rb,0.68947e-02_rb, &\n        & 0.58626e-02_rb,0.46601e-02_rb,0.32973e-02_rb,0.20675e-02_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.96222e-02_rb,0.92823e-02_rb,0.86884e-02_rb,0.79077e-02_rb,0.70317e-02_rb, &\n        & 0.60213e-02_rb,0.48471e-02_rb,0.34874e-02_rb,0.23199e-02_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.95548e-02_rb,0.93032e-02_rb,0.87544e-02_rb,0.80177e-02_rb,0.71673e-02_rb, &\n        & 0.61924e-02_rb,0.50398e-02_rb,0.36845e-02_rb,0.25914e-02_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.94682e-02_rb,0.89654e-02_rb,0.82210e-02_rb,0.73222e-02_rb,0.63403e-02_rb, &\n        & 0.52735e-02_rb,0.40692e-02_rb,0.27114e-02_rb,0.12929e-02_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.94609e-02_rb,0.90053e-02_rb,0.83016e-02_rb,0.74278e-02_rb,0.64685e-02_rb, &\n        & 0.54213e-02_rb,0.42231e-02_rb,0.28638e-02_rb,0.14728e-02_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.94353e-02_rb,0.90391e-02_rb,0.83802e-02_rb,0.75305e-02_rb,0.66027e-02_rb, &\n        & 0.55646e-02_rb,0.43790e-02_rb,0.30279e-02_rb,0.16663e-02_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.93989e-02_rb,0.90684e-02_rb,0.84481e-02_rb,0.76404e-02_rb,0.67294e-02_rb, &\n        & 0.57082e-02_rb,0.45495e-02_rb,0.31980e-02_rb,0.18711e-02_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.93472e-02_rb,0.90926e-02_rb,0.85136e-02_rb,0.77442e-02_rb,0.68542e-02_rb, &\n        & 0.58646e-02_rb,0.47259e-02_rb,0.33701e-02_rb,0.20921e-02_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.90687e-02_rb,0.86083e-02_rb,0.78842e-02_rb,0.69920e-02_rb,0.60171e-02_rb, &\n        & 0.49784e-02_rb,0.38163e-02_rb,0.24892e-02_rb,0.10375e-02_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.90845e-02_rb,0.86742e-02_rb,0.79759e-02_rb,0.71037e-02_rb,0.61494e-02_rb, &\n        & 0.51176e-02_rb,0.39577e-02_rb,0.26285e-02_rb,0.11848e-02_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.90836e-02_rb,0.87225e-02_rb,0.80580e-02_rb,0.72119e-02_rb,0.62799e-02_rb, &\n        & 0.52546e-02_rb,0.41006e-02_rb,0.27750e-02_rb,0.13422e-02_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.90655e-02_rb,0.87611e-02_rb,0.81305e-02_rb,0.73221e-02_rb,0.64054e-02_rb, &\n        & 0.53892e-02_rb,0.42503e-02_rb,0.29301e-02_rb,0.15078e-02_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.90286e-02_rb,0.87944e-02_rb,0.82022e-02_rb,0.74247e-02_rb,0.65248e-02_rb, &\n        & 0.55305e-02_rb,0.44113e-02_rb,0.30838e-02_rb,0.16859e-02_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.85850e-02_rb,0.81350e-02_rb,0.74326e-02_rb,0.65794e-02_rb,0.56482e-02_rb, &\n        & 0.46582e-02_rb,0.35544e-02_rb,0.22844e-02_rb,0.80765e-03_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.86250e-02_rb,0.82179e-02_rb,0.75359e-02_rb,0.67022e-02_rb,0.57899e-02_rb, &\n        & 0.47962e-02_rb,0.36869e-02_rb,0.24122e-02_rb,0.92682e-03_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.86440e-02_rb,0.82839e-02_rb,0.76315e-02_rb,0.68246e-02_rb,0.59218e-02_rb, &\n        & 0.49298e-02_rb,0.38219e-02_rb,0.25431e-02_rb,0.10538e-02_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.86410e-02_rb,0.83371e-02_rb,0.77195e-02_rb,0.69421e-02_rb,0.60483e-02_rb, &\n        & 0.50620e-02_rb,0.39587e-02_rb,0.26818e-02_rb,0.11890e-02_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.86213e-02_rb,0.83816e-02_rb,0.78035e-02_rb,0.70537e-02_rb,0.61695e-02_rb, &\n        & 0.51947e-02_rb,0.41038e-02_rb,0.28206e-02_rb,0.13358e-02_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.80690e-02_rb,0.76260e-02_rb,0.69398e-02_rb,0.61270e-02_rb,0.52372e-02_rb, &\n        & 0.42965e-02_rb,0.32695e-02_rb,0.20922e-02_rb,0.69791e-03_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.81346e-02_rb,0.77325e-02_rb,0.70609e-02_rb,0.62554e-02_rb,0.53744e-02_rb, &\n        & 0.44362e-02_rb,0.34019e-02_rb,0.22104e-02_rb,0.78609e-03_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.81749e-02_rb,0.78188e-02_rb,0.71688e-02_rb,0.63791e-02_rb,0.55086e-02_rb, &\n        & 0.45702e-02_rb,0.35360e-02_rb,0.23302e-02_rb,0.88068e-03_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.81959e-02_rb,0.78839e-02_rb,0.72650e-02_rb,0.64997e-02_rb,0.56387e-02_rb, &\n        & 0.47059e-02_rb,0.36681e-02_rb,0.24532e-02_rb,0.97840e-03_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.81937e-02_rb,0.79411e-02_rb,0.73546e-02_rb,0.66134e-02_rb,0.57649e-02_rb, &\n        & 0.48383e-02_rb,0.38022e-02_rb,0.25773e-02_rb,0.10847e-02_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.75182e-02_rb,0.70907e-02_rb,0.64287e-02_rb,0.56605e-02_rb,0.48216e-02_rb, &\n        & 0.39323e-02_rb,0.29776e-02_rb,0.18987e-02_rb,0.67472e-03_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.76076e-02_rb,0.72195e-02_rb,0.65653e-02_rb,0.58009e-02_rb,0.49640e-02_rb, &\n        & 0.40692e-02_rb,0.31049e-02_rb,0.20098e-02_rb,0.74914e-03_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.76735e-02_rb,0.73227e-02_rb,0.66862e-02_rb,0.59346e-02_rb,0.51012e-02_rb, &\n        & 0.42015e-02_rb,0.32328e-02_rb,0.21222e-02_rb,0.83367e-03_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.77132e-02_rb,0.74045e-02_rb,0.67969e-02_rb,0.60620e-02_rb,0.52309e-02_rb, &\n        & 0.43347e-02_rb,0.33599e-02_rb,0.22355e-02_rb,0.91964e-03_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.77286e-02_rb,0.74752e-02_rb,0.68965e-02_rb,0.61793e-02_rb,0.53584e-02_rb, &\n        & 0.44621e-02_rb,0.34884e-02_rb,0.23497e-02_rb,0.10114e-02_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.70149e-02_rb,0.65825e-02_rb,0.59329e-02_rb,0.52017e-02_rb,0.44219e-02_rb, &\n        & 0.35899e-02_rb,0.27069e-02_rb,0.17187e-02_rb,0.74519e-03_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.71248e-02_rb,0.67269e-02_rb,0.60810e-02_rb,0.53515e-02_rb,0.45670e-02_rb, &\n        & 0.37282e-02_rb,0.28313e-02_rb,0.18204e-02_rb,0.83494e-03_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.72044e-02_rb,0.68394e-02_rb,0.62076e-02_rb,0.54929e-02_rb,0.47097e-02_rb, &\n        & 0.38613e-02_rb,0.29540e-02_rb,0.19235e-02_rb,0.93279e-03_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.72597e-02_rb,0.69309e-02_rb,0.63267e-02_rb,0.56269e-02_rb,0.48423e-02_rb, &\n        & 0.39913e-02_rb,0.30764e-02_rb,0.20273e-02_rb,0.10348e-02_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.72955e-02_rb,0.70104e-02_rb,0.64378e-02_rb,0.57479e-02_rb,0.49695e-02_rb, &\n        & 0.41180e-02_rb,0.31960e-02_rb,0.21324e-02_rb,0.11387e-02_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.65628e-02_rb,0.61735e-02_rb,0.55551e-02_rb,0.48677e-02_rb,0.41265e-02_rb, &\n        & 0.33334e-02_rb,0.25028e-02_rb,0.15938e-02_rb,0.74406e-03_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.66786e-02_rb,0.63151e-02_rb,0.57025e-02_rb,0.50172e-02_rb,0.42702e-02_rb, &\n        & 0.34674e-02_rb,0.26229e-02_rb,0.16875e-02_rb,0.82711e-03_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.67664e-02_rb,0.64350e-02_rb,0.58347e-02_rb,0.51562e-02_rb,0.44059e-02_rb, &\n        & 0.35945e-02_rb,0.27422e-02_rb,0.17822e-02_rb,0.92379e-03_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.68381e-02_rb,0.65357e-02_rb,0.59597e-02_rb,0.52850e-02_rb,0.45292e-02_rb, &\n        & 0.37195e-02_rb,0.28585e-02_rb,0.18773e-02_rb,0.10214e-02_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.68910e-02_rb,0.66274e-02_rb,0.60702e-02_rb,0.54014e-02_rb,0.46503e-02_rb, &\n        & 0.38396e-02_rb,0.29707e-02_rb,0.19733e-02_rb,0.11179e-02_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.60794e-02_rb,0.57316e-02_rb,0.51563e-02_rb,0.45236e-02_rb,0.38371e-02_rb, &\n        & 0.31013e-02_rb,0.23239e-02_rb,0.14745e-02_rb,0.70212e-03_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.62026e-02_rb,0.58782e-02_rb,0.53110e-02_rb,0.46778e-02_rb,0.39838e-02_rb, &\n        & 0.32334e-02_rb,0.24368e-02_rb,0.15615e-02_rb,0.77146e-03_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.63087e-02_rb,0.60102e-02_rb,0.54544e-02_rb,0.48220e-02_rb,0.41191e-02_rb, &\n        & 0.33562e-02_rb,0.25462e-02_rb,0.16493e-02_rb,0.85116e-03_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.63948e-02_rb,0.61265e-02_rb,0.55863e-02_rb,0.49541e-02_rb,0.42453e-02_rb, &\n        & 0.34753e-02_rb,0.26508e-02_rb,0.17372e-02_rb,0.93862e-03_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.64607e-02_rb,0.62309e-02_rb,0.57052e-02_rb,0.50757e-02_rb,0.43660e-02_rb, &\n        & 0.35907e-02_rb,0.27548e-02_rb,0.18249e-02_rb,0.10221e-02_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.55937e-02_rb,0.52793e-02_rb,0.47517e-02_rb,0.41692e-02_rb,0.35394e-02_rb, &\n        & 0.28625e-02_rb,0.21454e-02_rb,0.13668e-02_rb,0.61956e-03_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.57319e-02_rb,0.54374e-02_rb,0.49129e-02_rb,0.43258e-02_rb,0.36843e-02_rb, &\n        & 0.29907e-02_rb,0.22551e-02_rb,0.14474e-02_rb,0.68007e-03_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.58515e-02_rb,0.55788e-02_rb,0.50622e-02_rb,0.44734e-02_rb,0.38194e-02_rb, &\n        & 0.31146e-02_rb,0.23600e-02_rb,0.15267e-02_rb,0.75016e-03_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.59483e-02_rb,0.57068e-02_rb,0.51995e-02_rb,0.46068e-02_rb,0.39501e-02_rb, &\n        & 0.32357e-02_rb,0.24610e-02_rb,0.16061e-02_rb,0.82038e-03_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.60233e-02_rb,0.58195e-02_rb,0.53236e-02_rb,0.47349e-02_rb,0.40732e-02_rb, &\n        & 0.33509e-02_rb,0.25596e-02_rb,0.16868e-02_rb,0.89122e-03_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.19771e-01_rb,0.18370e-01_rb,0.17356e-01_rb,0.16079e-01_rb,0.14680e-01_rb, &\n        & 0.13282e-01_rb,0.11980e-01_rb,0.11582e-01_rb,0.12985e-01_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.19636e-01_rb,0.18337e-01_rb,0.17425e-01_rb,0.16276e-01_rb,0.15036e-01_rb, &\n        & 0.13800e-01_rb,0.12788e-01_rb,0.12799e-01_rb,0.14491e-01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.19487e-01_rb,0.18291e-01_rb,0.17516e-01_rb,0.16543e-01_rb,0.15458e-01_rb, &\n        & 0.14398e-01_rb,0.13717e-01_rb,0.14121e-01_rb,0.16094e-01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.19329e-01_rb,0.18244e-01_rb,0.17665e-01_rb,0.16858e-01_rb,0.15921e-01_rb, &\n        & 0.15082e-01_rb,0.14738e-01_rb,0.15534e-01_rb,0.17796e-01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.19162e-01_rb,0.18208e-01_rb,0.17862e-01_rb,0.17203e-01_rb,0.16407e-01_rb, &\n        & 0.15804e-01_rb,0.15831e-01_rb,0.17016e-01_rb,0.19554e-01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.20491e-01_rb,0.19041e-01_rb,0.17931e-01_rb,0.16490e-01_rb,0.14871e-01_rb, &\n        & 0.13204e-01_rb,0.11551e-01_rb,0.10493e-01_rb,0.11370e-01_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.20351e-01_rb,0.19021e-01_rb,0.18003e-01_rb,0.16688e-01_rb,0.15207e-01_rb, &\n        & 0.13674e-01_rb,0.12228e-01_rb,0.11542e-01_rb,0.12722e-01_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.20205e-01_rb,0.18987e-01_rb,0.18097e-01_rb,0.16946e-01_rb,0.15590e-01_rb, &\n        & 0.14204e-01_rb,0.13003e-01_rb,0.12703e-01_rb,0.14170e-01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.20054e-01_rb,0.18946e-01_rb,0.18241e-01_rb,0.17244e-01_rb,0.16012e-01_rb, &\n        & 0.14800e-01_rb,0.13862e-01_rb,0.13953e-01_rb,0.15702e-01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.19890e-01_rb,0.18914e-01_rb,0.18431e-01_rb,0.17568e-01_rb,0.16464e-01_rb, &\n        & 0.15445e-01_rb,0.14813e-01_rb,0.15302e-01_rb,0.17318e-01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.21143e-01_rb,0.19662e-01_rb,0.18419e-01_rb,0.16811e-01_rb,0.15005e-01_rb, &\n        & 0.13075e-01_rb,0.11094e-01_rb,0.93893e-02_rb,0.95682e-02_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.21021e-01_rb,0.19658e-01_rb,0.18498e-01_rb,0.17007e-01_rb,0.15312e-01_rb, &\n        & 0.13491e-01_rb,0.11661e-01_rb,0.10256e-01_rb,0.10742e-01_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.20887e-01_rb,0.19635e-01_rb,0.18594e-01_rb,0.17251e-01_rb,0.15669e-01_rb, &\n        & 0.13959e-01_rb,0.12304e-01_rb,0.11227e-01_rb,0.12012e-01_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.20742e-01_rb,0.19603e-01_rb,0.18727e-01_rb,0.17530e-01_rb,0.16058e-01_rb, &\n        & 0.14485e-01_rb,0.13015e-01_rb,0.12294e-01_rb,0.13375e-01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.20582e-01_rb,0.19578e-01_rb,0.18903e-01_rb,0.17831e-01_rb,0.16483e-01_rb, &\n        & 0.15047e-01_rb,0.13818e-01_rb,0.13471e-01_rb,0.14836e-01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.21726e-01_rb,0.20199e-01_rb,0.18812e-01_rb,0.17047e-01_rb,0.15080e-01_rb, &\n        & 0.12938e-01_rb,0.10693e-01_rb,0.84650e-02_rb,0.79270e-02_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.21624e-01_rb,0.20213e-01_rb,0.18897e-01_rb,0.17238e-01_rb,0.15368e-01_rb, &\n        & 0.13326e-01_rb,0.11175e-01_rb,0.91656e-02_rb,0.89409e-02_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.21502e-01_rb,0.20207e-01_rb,0.18990e-01_rb,0.17468e-01_rb,0.15708e-01_rb, &\n        & 0.13755e-01_rb,0.11721e-01_rb,0.99561e-02_rb,0.10044e-01_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.21364e-01_rb,0.20186e-01_rb,0.19114e-01_rb,0.17747e-01_rb,0.16075e-01_rb, &\n        & 0.14230e-01_rb,0.12327e-01_rb,0.10844e-01_rb,0.11238e-01_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.21208e-01_rb,0.20165e-01_rb,0.19280e-01_rb,0.18035e-01_rb,0.16477e-01_rb, &\n        & 0.14734e-01_rb,0.13004e-01_rb,0.11837e-01_rb,0.12527e-01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.22212e-01_rb,0.20643e-01_rb,0.19101e-01_rb,0.17193e-01_rb,0.15094e-01_rb, &\n        & 0.12790e-01_rb,0.10344e-01_rb,0.77661e-02_rb,0.65292e-02_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.22131e-01_rb,0.20679e-01_rb,0.19192e-01_rb,0.17388e-01_rb,0.15373e-01_rb, &\n        & 0.13156e-01_rb,0.10779e-01_rb,0.83326e-02_rb,0.74004e-02_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.22024e-01_rb,0.20689e-01_rb,0.19289e-01_rb,0.17614e-01_rb,0.15701e-01_rb, &\n        & 0.13560e-01_rb,0.11259e-01_rb,0.89716e-02_rb,0.83509e-02_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.21891e-01_rb,0.20674e-01_rb,0.19419e-01_rb,0.17880e-01_rb,0.16055e-01_rb, &\n        & 0.14002e-01_rb,0.11784e-01_rb,0.96942e-02_rb,0.93863e-02_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.21733e-01_rb,0.20659e-01_rb,0.19581e-01_rb,0.18166e-01_rb,0.16436e-01_rb, &\n        & 0.14467e-01_rb,0.12356e-01_rb,0.10508e-01_rb,0.10499e-01_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.22561e-01_rb,0.20963e-01_rb,0.19278e-01_rb,0.17248e-01_rb,0.15027e-01_rb, &\n        & 0.12605e-01_rb,0.99913e-02_rb,0.71998e-02_rb,0.53191e-02_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.22505e-01_rb,0.21027e-01_rb,0.19391e-01_rb,0.17451e-01_rb,0.15296e-01_rb, &\n        & 0.12947e-01_rb,0.10394e-01_rb,0.76719e-02_rb,0.60628e-02_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.22407e-01_rb,0.21057e-01_rb,0.19505e-01_rb,0.17673e-01_rb,0.15617e-01_rb, &\n        & 0.13330e-01_rb,0.10834e-01_rb,0.82004e-02_rb,0.68698e-02_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.22287e-01_rb,0.21061e-01_rb,0.19636e-01_rb,0.17933e-01_rb,0.15963e-01_rb, &\n        & 0.13742e-01_rb,0.11312e-01_rb,0.87854e-02_rb,0.77488e-02_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.22148e-01_rb,0.21053e-01_rb,0.19794e-01_rb,0.18212e-01_rb,0.16329e-01_rb, &\n        & 0.14180e-01_rb,0.11816e-01_rb,0.94417e-02_rb,0.86993e-02_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.22745e-01_rb,0.21135e-01_rb,0.19327e-01_rb,0.17197e-01_rb,0.14893e-01_rb, &\n        & 0.12374e-01_rb,0.96536e-02_rb,0.67256e-02_rb,0.43127e-02_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.22707e-01_rb,0.21230e-01_rb,0.19474e-01_rb,0.17423e-01_rb,0.15162e-01_rb, &\n        & 0.12700e-01_rb,0.10030e-01_rb,0.71370e-02_rb,0.49389e-02_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.22632e-01_rb,0.21281e-01_rb,0.19608e-01_rb,0.17649e-01_rb,0.15471e-01_rb, &\n        & 0.13070e-01_rb,0.10436e-01_rb,0.75822e-02_rb,0.56174e-02_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.22537e-01_rb,0.21307e-01_rb,0.19744e-01_rb,0.17903e-01_rb,0.15813e-01_rb, &\n        & 0.13461e-01_rb,0.10872e-01_rb,0.80682e-02_rb,0.63562e-02_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.22420e-01_rb,0.21314e-01_rb,0.19904e-01_rb,0.18182e-01_rb,0.16160e-01_rb, &\n        & 0.13874e-01_rb,0.11331e-01_rb,0.86088e-02_rb,0.71565e-02_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.22742e-01_rb,0.21141e-01_rb,0.19244e-01_rb,0.17036e-01_rb,0.14667e-01_rb, &\n        & 0.12093e-01_rb,0.93194e-02_rb,0.63016e-02_rb,0.33604e-02_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.22738e-01_rb,0.21267e-01_rb,0.19420e-01_rb,0.17289e-01_rb,0.14951e-01_rb, &\n        & 0.12414e-01_rb,0.96717e-02_rb,0.66654e-02_rb,0.38903e-02_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.22699e-01_rb,0.21347e-01_rb,0.19574e-01_rb,0.17525e-01_rb,0.15260e-01_rb, &\n        & 0.12775e-01_rb,0.10048e-01_rb,0.70608e-02_rb,0.44626e-02_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.22634e-01_rb,0.21402e-01_rb,0.19725e-01_rb,0.17775e-01_rb,0.15596e-01_rb, &\n        & 0.13150e-01_rb,0.10455e-01_rb,0.74847e-02_rb,0.50904e-02_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.22550e-01_rb,0.21432e-01_rb,0.19888e-01_rb,0.18059e-01_rb,0.15936e-01_rb, &\n        & 0.13540e-01_rb,0.10879e-01_rb,0.79454e-02_rb,0.57754e-02_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.22571e-01_rb,0.20980e-01_rb,0.19017e-01_rb,0.16764e-01_rb,0.14350e-01_rb, &\n        & 0.11743e-01_rb,0.89583e-02_rb,0.59107e-02_rb,0.27753e-02_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.22607e-01_rb,0.21147e-01_rb,0.19231e-01_rb,0.17040e-01_rb,0.14648e-01_rb, &\n        & 0.12069e-01_rb,0.92988e-02_rb,0.62425e-02_rb,0.31527e-02_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.22609e-01_rb,0.21268e-01_rb,0.19413e-01_rb,0.17284e-01_rb,0.14954e-01_rb, &\n        & 0.12424e-01_rb,0.96568e-02_rb,0.66010e-02_rb,0.35387e-02_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.22589e-01_rb,0.21355e-01_rb,0.19582e-01_rb,0.17535e-01_rb,0.15285e-01_rb, &\n        & 0.12790e-01_rb,0.10038e-01_rb,0.69765e-02_rb,0.39766e-02_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.22546e-01_rb,0.21413e-01_rb,0.19758e-01_rb,0.17821e-01_rb,0.15622e-01_rb, &\n        & 0.13166e-01_rb,0.10432e-01_rb,0.73821e-02_rb,0.44450e-02_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.22137e-01_rb,0.20618e-01_rb,0.18650e-01_rb,0.16403e-01_rb,0.13972e-01_rb, &\n        & 0.11364e-01_rb,0.85848e-02_rb,0.55632e-02_rb,0.31593e-02_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.22231e-01_rb,0.20835e-01_rb,0.18905e-01_rb,0.16706e-01_rb,0.14289e-01_rb, &\n        & 0.11695e-01_rb,0.89167e-02_rb,0.58739e-02_rb,0.35325e-02_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.22295e-01_rb,0.21010e-01_rb,0.19131e-01_rb,0.16972e-01_rb,0.14595e-01_rb, &\n        & 0.12040e-01_rb,0.92665e-02_rb,0.62059e-02_rb,0.39315e-02_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.22331e-01_rb,0.21144e-01_rb,0.19334e-01_rb,0.17233e-01_rb,0.14916e-01_rb, &\n        & 0.12396e-01_rb,0.96355e-02_rb,0.65507e-02_rb,0.43409e-02_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.22332e-01_rb,0.21248e-01_rb,0.19527e-01_rb,0.17517e-01_rb,0.15252e-01_rb, &\n        & 0.12765e-01_rb,0.10012e-01_rb,0.69176e-02_rb,0.47851e-02_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.21611e-01_rb,0.20177e-01_rb,0.18220e-01_rb,0.16014e-01_rb,0.13625e-01_rb, &\n        & 0.11072e-01_rb,0.83376e-02_rb,0.53526e-02_rb,0.32967e-02_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.21754e-01_rb,0.20431e-01_rb,0.18507e-01_rb,0.16333e-01_rb,0.13954e-01_rb, &\n        & 0.11415e-01_rb,0.86702e-02_rb,0.56558e-02_rb,0.36779e-02_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.21862e-01_rb,0.20634e-01_rb,0.18769e-01_rb,0.16624e-01_rb,0.14280e-01_rb, &\n        & 0.11762e-01_rb,0.90145e-02_rb,0.59759e-02_rb,0.40891e-02_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.21929e-01_rb,0.20796e-01_rb,0.18995e-01_rb,0.16914e-01_rb,0.14621e-01_rb, &\n        & 0.12122e-01_rb,0.93752e-02_rb,0.63026e-02_rb,0.45492e-02_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.21956e-01_rb,0.20925e-01_rb,0.19222e-01_rb,0.17218e-01_rb,0.14974e-01_rb, &\n        & 0.12492e-01_rb,0.97406e-02_rb,0.66508e-02_rb,0.50324e-02_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.20989e-01_rb,0.19649e-01_rb,0.17719e-01_rb,0.15554e-01_rb,0.13207e-01_rb, &\n        & 0.10709e-01_rb,0.80423e-02_rb,0.51308e-02_rb,0.32152e-02_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.21187e-01_rb,0.19941e-01_rb,0.18042e-01_rb,0.15892e-01_rb,0.13549e-01_rb, &\n        & 0.11055e-01_rb,0.83766e-02_rb,0.54250e-02_rb,0.35851e-02_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.21336e-01_rb,0.20173e-01_rb,0.18327e-01_rb,0.16203e-01_rb,0.13894e-01_rb, &\n        & 0.11411e-01_rb,0.87228e-02_rb,0.57329e-02_rb,0.40006e-02_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.21440e-01_rb,0.20364e-01_rb,0.18584e-01_rb,0.16516e-01_rb,0.14243e-01_rb, &\n        & 0.11781e-01_rb,0.90825e-02_rb,0.60483e-02_rb,0.44327e-02_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.21509e-01_rb,0.20531e-01_rb,0.18841e-01_rb,0.16838e-01_rb,0.14607e-01_rb, &\n        & 0.12155e-01_rb,0.94413e-02_rb,0.63798e-02_rb,0.48628e-02_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.20300e-01_rb,0.19036e-01_rb,0.17142e-01_rb,0.15033e-01_rb,0.12745e-01_rb, &\n        & 0.10318e-01_rb,0.77330e-02_rb,0.48977e-02_rb,0.29186e-02_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.20539e-01_rb,0.19361e-01_rb,0.17504e-01_rb,0.15398e-01_rb,0.13114e-01_rb, &\n        & 0.10679e-01_rb,0.80651e-02_rb,0.51844e-02_rb,0.32743e-02_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.20734e-01_rb,0.19633e-01_rb,0.17821e-01_rb,0.15739e-01_rb,0.13481e-01_rb, &\n        & 0.11044e-01_rb,0.84099e-02_rb,0.54812e-02_rb,0.36601e-02_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.20892e-01_rb,0.19871e-01_rb,0.18120e-01_rb,0.16090e-01_rb,0.13847e-01_rb, &\n        & 0.11415e-01_rb,0.87615e-02_rb,0.57863e-02_rb,0.40403e-02_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.21016e-01_rb,0.20092e-01_rb,0.18420e-01_rb,0.16433e-01_rb,0.14220e-01_rb, &\n        & 0.11787e-01_rb,0.91177e-02_rb,0.61020e-02_rb,0.44775e-02_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.32077e-01_rb,0.29717e-01_rb,0.27957e-01_rb,0.27088e-01_rb,0.26148e-01_rb, &\n        & 0.25463e-01_rb,0.27887e-01_rb,0.32409e-01_rb,0.37623e-01_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.31656e-01_rb,0.29512e-01_rb,0.28047e-01_rb,0.27317e-01_rb,0.26667e-01_rb, &\n        & 0.26788e-01_rb,0.30344e-01_rb,0.35248e-01_rb,0.40533e-01_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.31222e-01_rb,0.29398e-01_rb,0.28183e-01_rb,0.27633e-01_rb,0.27598e-01_rb, &\n        & 0.28788e-01_rb,0.33344e-01_rb,0.38694e-01_rb,0.44458e-01_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.30838e-01_rb,0.29185e-01_rb,0.28219e-01_rb,0.28269e-01_rb,0.28900e-01_rb, &\n        & 0.31215e-01_rb,0.36765e-01_rb,0.42659e-01_rb,0.48710e-01_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.30476e-01_rb,0.28982e-01_rb,0.28435e-01_rb,0.29011e-01_rb,0.30822e-01_rb, &\n        & 0.34422e-01_rb,0.40770e-01_rb,0.47309e-01_rb,0.54027e-01_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.34215e-01_rb,0.31859e-01_rb,0.30015e-01_rb,0.28551e-01_rb,0.26684e-01_rb, &\n        & 0.25243e-01_rb,0.25874e-01_rb,0.29803e-01_rb,0.34327e-01_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.33819e-01_rb,0.31701e-01_rb,0.30099e-01_rb,0.28712e-01_rb,0.27156e-01_rb, &\n        & 0.26446e-01_rb,0.28380e-01_rb,0.32886e-01_rb,0.37685e-01_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.33393e-01_rb,0.31477e-01_rb,0.30146e-01_rb,0.28931e-01_rb,0.28112e-01_rb, &\n        & 0.28308e-01_rb,0.31383e-01_rb,0.36360e-01_rb,0.41605e-01_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.33012e-01_rb,0.31222e-01_rb,0.30110e-01_rb,0.29460e-01_rb,0.29343e-01_rb, &\n        & 0.30463e-01_rb,0.34829e-01_rb,0.40350e-01_rb,0.46115e-01_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.32618e-01_rb,0.30977e-01_rb,0.30249e-01_rb,0.30140e-01_rb,0.31029e-01_rb, &\n        & 0.33086e-01_rb,0.38518e-01_rb,0.44611e-01_rb,0.51063e-01_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.36609e-01_rb,0.34016e-01_rb,0.32008e-01_rb,0.30013e-01_rb,0.27528e-01_rb, &\n        & 0.25143e-01_rb,0.24092e-01_rb,0.26746e-01_rb,0.30590e-01_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.36187e-01_rb,0.33816e-01_rb,0.32068e-01_rb,0.30121e-01_rb,0.27943e-01_rb, &\n        & 0.26137e-01_rb,0.26190e-01_rb,0.29769e-01_rb,0.34003e-01_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.35755e-01_rb,0.33555e-01_rb,0.32022e-01_rb,0.30354e-01_rb,0.28696e-01_rb, &\n        & 0.27732e-01_rb,0.28744e-01_rb,0.33056e-01_rb,0.37754e-01_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.35304e-01_rb,0.33277e-01_rb,0.31985e-01_rb,0.30856e-01_rb,0.29759e-01_rb, &\n        & 0.29582e-01_rb,0.31793e-01_rb,0.36769e-01_rb,0.41965e-01_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.34895e-01_rb,0.32987e-01_rb,0.32094e-01_rb,0.31490e-01_rb,0.31100e-01_rb, &\n        & 0.31735e-01_rb,0.35104e-01_rb,0.40646e-01_rb,0.46442e-01_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.38977e-01_rb,0.36120e-01_rb,0.33897e-01_rb,0.31410e-01_rb,0.28525e-01_rb, &\n        & 0.25373e-01_rb,0.22918e-01_rb,0.23596e-01_rb,0.26905e-01_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.38508e-01_rb,0.35924e-01_rb,0.33917e-01_rb,0.31530e-01_rb,0.28933e-01_rb, &\n        & 0.26161e-01_rb,0.24652e-01_rb,0.26430e-01_rb,0.30108e-01_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.38014e-01_rb,0.35658e-01_rb,0.33872e-01_rb,0.31757e-01_rb,0.29547e-01_rb, &\n        & 0.27436e-01_rb,0.26616e-01_rb,0.29450e-01_rb,0.33541e-01_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.37555e-01_rb,0.35363e-01_rb,0.33895e-01_rb,0.32125e-01_rb,0.30540e-01_rb, &\n        & 0.28878e-01_rb,0.28956e-01_rb,0.32793e-01_rb,0.37351e-01_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.37151e-01_rb,0.35088e-01_rb,0.33984e-01_rb,0.32788e-01_rb,0.31573e-01_rb, &\n        & 0.30633e-01_rb,0.31627e-01_rb,0.36308e-01_rb,0.41371e-01_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.41153e-01_rb,0.38034e-01_rb,0.35706e-01_rb,0.32805e-01_rb,0.29387e-01_rb, &\n        & 0.25927e-01_rb,0.22231e-01_rb,0.20561e-01_rb,0.23186e-01_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.40611e-01_rb,0.37835e-01_rb,0.35759e-01_rb,0.32923e-01_rb,0.29781e-01_rb, &\n        & 0.26577e-01_rb,0.23565e-01_rb,0.23003e-01_rb,0.26110e-01_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.40174e-01_rb,0.37589e-01_rb,0.35747e-01_rb,0.33131e-01_rb,0.30334e-01_rb, &\n        & 0.27648e-01_rb,0.25145e-01_rb,0.25696e-01_rb,0.29208e-01_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.39802e-01_rb,0.37389e-01_rb,0.35760e-01_rb,0.33447e-01_rb,0.31294e-01_rb, &\n        & 0.28785e-01_rb,0.27005e-01_rb,0.28729e-01_rb,0.32665e-01_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.39471e-01_rb,0.37195e-01_rb,0.35872e-01_rb,0.34084e-01_rb,0.32227e-01_rb, &\n        & 0.30087e-01_rb,0.29177e-01_rb,0.32029e-01_rb,0.36449e-01_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.43370e-01_rb,0.39997e-01_rb,0.37440e-01_rb,0.34118e-01_rb,0.30345e-01_rb, &\n        & 0.26246e-01_rb,0.21955e-01_rb,0.18231e-01_rb,0.19573e-01_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.42801e-01_rb,0.39763e-01_rb,0.37480e-01_rb,0.34252e-01_rb,0.30723e-01_rb, &\n        & 0.26892e-01_rb,0.22943e-01_rb,0.20080e-01_rb,0.22108e-01_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.42453e-01_rb,0.39592e-01_rb,0.37449e-01_rb,0.34486e-01_rb,0.31160e-01_rb, &\n        & 0.27853e-01_rb,0.24129e-01_rb,0.22254e-01_rb,0.24945e-01_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.42151e-01_rb,0.39446e-01_rb,0.37500e-01_rb,0.34777e-01_rb,0.31970e-01_rb, &\n        & 0.28872e-01_rb,0.25539e-01_rb,0.24809e-01_rb,0.28086e-01_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.41833e-01_rb,0.39344e-01_rb,0.37631e-01_rb,0.35392e-01_rb,0.32810e-01_rb, &\n        & 0.29983e-01_rb,0.27309e-01_rb,0.27744e-01_rb,0.31535e-01_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.45445e-01_rb,0.41961e-01_rb,0.39238e-01_rb,0.35426e-01_rb,0.31192e-01_rb, &\n        & 0.26649e-01_rb,0.21695e-01_rb,0.16623e-01_rb,0.16293e-01_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.45078e-01_rb,0.41797e-01_rb,0.39225e-01_rb,0.35507e-01_rb,0.31562e-01_rb, &\n        & 0.27229e-01_rb,0.22532e-01_rb,0.18019e-01_rb,0.18534e-01_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.44870e-01_rb,0.41785e-01_rb,0.39209e-01_rb,0.35749e-01_rb,0.31958e-01_rb, &\n        & 0.27976e-01_rb,0.23572e-01_rb,0.19783e-01_rb,0.21105e-01_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.44638e-01_rb,0.41726e-01_rb,0.39301e-01_rb,0.35989e-01_rb,0.32614e-01_rb, &\n        & 0.28887e-01_rb,0.24743e-01_rb,0.21842e-01_rb,0.23947e-01_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.44319e-01_rb,0.41703e-01_rb,0.39403e-01_rb,0.36491e-01_rb,0.33461e-01_rb, &\n        & 0.29864e-01_rb,0.26133e-01_rb,0.24238e-01_rb,0.27063e-01_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.47338e-01_rb,0.43694e-01_rb,0.40795e-01_rb,0.36657e-01_rb,0.31991e-01_rb, &\n        & 0.26976e-01_rb,0.21436e-01_rb,0.15589e-01_rb,0.13371e-01_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.47172e-01_rb,0.43681e-01_rb,0.40850e-01_rb,0.36728e-01_rb,0.32341e-01_rb, &\n        & 0.27474e-01_rb,0.22184e-01_rb,0.16691e-01_rb,0.15337e-01_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.47077e-01_rb,0.43885e-01_rb,0.40965e-01_rb,0.37016e-01_rb,0.32654e-01_rb, &\n        & 0.28038e-01_rb,0.23084e-01_rb,0.18052e-01_rb,0.17670e-01_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.46877e-01_rb,0.43984e-01_rb,0.41138e-01_rb,0.37264e-01_rb,0.33142e-01_rb, &\n        & 0.28868e-01_rb,0.24126e-01_rb,0.19696e-01_rb,0.20174e-01_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.46627e-01_rb,0.44042e-01_rb,0.41218e-01_rb,0.37582e-01_rb,0.33931e-01_rb, &\n        & 0.29818e-01_rb,0.25367e-01_rb,0.21590e-01_rb,0.22899e-01_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.49069e-01_rb,0.45230e-01_rb,0.41949e-01_rb,0.37482e-01_rb,0.32547e-01_rb, &\n        & 0.27221e-01_rb,0.21190e-01_rb,0.14771e-01_rb,0.82104e-02_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.48982e-01_rb,0.45358e-01_rb,0.42113e-01_rb,0.37642e-01_rb,0.32970e-01_rb, &\n        & 0.27650e-01_rb,0.21850e-01_rb,0.15738e-01_rb,0.94586e-02_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.48934e-01_rb,0.45677e-01_rb,0.42390e-01_rb,0.38084e-01_rb,0.33301e-01_rb, &\n        & 0.28097e-01_rb,0.22664e-01_rb,0.16844e-01_rb,0.11686e-01_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.48760e-01_rb,0.45876e-01_rb,0.42614e-01_rb,0.38405e-01_rb,0.33732e-01_rb, &\n        & 0.28793e-01_rb,0.23625e-01_rb,0.18186e-01_rb,0.14417e-01_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.48535e-01_rb,0.45946e-01_rb,0.42722e-01_rb,0.38669e-01_rb,0.34439e-01_rb, &\n        & 0.29718e-01_rb,0.24746e-01_rb,0.19636e-01_rb,0.17490e-01_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.50581e-01_rb,0.46588e-01_rb,0.42861e-01_rb,0.37978e-01_rb,0.32756e-01_rb, &\n        & 0.27218e-01_rb,0.20963e-01_rb,0.14152e-01_rb,0.94977e-02_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.50552e-01_rb,0.46832e-01_rb,0.43092e-01_rb,0.38231e-01_rb,0.33230e-01_rb, &\n        & 0.27672e-01_rb,0.21597e-01_rb,0.15000e-01_rb,0.11069e-01_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.50470e-01_rb,0.47126e-01_rb,0.43390e-01_rb,0.38763e-01_rb,0.33692e-01_rb, &\n        & 0.28191e-01_rb,0.22303e-01_rb,0.15932e-01_rb,0.12529e-01_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.50251e-01_rb,0.47290e-01_rb,0.43621e-01_rb,0.39150e-01_rb,0.34250e-01_rb, &\n        & 0.28907e-01_rb,0.23153e-01_rb,0.17091e-01_rb,0.14647e-01_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.50025e-01_rb,0.47335e-01_rb,0.43789e-01_rb,0.39526e-01_rb,0.34961e-01_rb, &\n        & 0.29783e-01_rb,0.24207e-01_rb,0.18303e-01_rb,0.16505e-01_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.51775e-01_rb,0.47733e-01_rb,0.43604e-01_rb,0.38377e-01_rb,0.33010e-01_rb, &\n        & 0.27211e-01_rb,0.20853e-01_rb,0.13952e-01_rb,0.10099e-01_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.51722e-01_rb,0.48082e-01_rb,0.43912e-01_rb,0.38859e-01_rb,0.33550e-01_rb, &\n        & 0.27720e-01_rb,0.21535e-01_rb,0.14746e-01_rb,0.11460e-01_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.51577e-01_rb,0.48309e-01_rb,0.44107e-01_rb,0.39371e-01_rb,0.34132e-01_rb, &\n        & 0.28431e-01_rb,0.22288e-01_rb,0.15640e-01_rb,0.12761e-01_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.51367e-01_rb,0.48474e-01_rb,0.44409e-01_rb,0.39819e-01_rb,0.34807e-01_rb, &\n        & 0.29240e-01_rb,0.23192e-01_rb,0.16707e-01_rb,0.14096e-01_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.51186e-01_rb,0.48565e-01_rb,0.44658e-01_rb,0.40350e-01_rb,0.35545e-01_rb, &\n        & 0.30221e-01_rb,0.24214e-01_rb,0.17744e-01_rb,0.15290e-01_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.52731e-01_rb,0.48681e-01_rb,0.44186e-01_rb,0.38733e-01_rb,0.33169e-01_rb, &\n        & 0.27108e-01_rb,0.20634e-01_rb,0.13723e-01_rb,0.97949e-02_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.52654e-01_rb,0.49001e-01_rb,0.44433e-01_rb,0.39315e-01_rb,0.33776e-01_rb, &\n        & 0.27772e-01_rb,0.21363e-01_rb,0.14506e-01_rb,0.11186e-01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.52581e-01_rb,0.49321e-01_rb,0.44768e-01_rb,0.39827e-01_rb,0.34382e-01_rb, &\n        & 0.28565e-01_rb,0.22205e-01_rb,0.15366e-01_rb,0.12310e-01_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.52474e-01_rb,0.49527e-01_rb,0.45170e-01_rb,0.40364e-01_rb,0.35120e-01_rb, &\n        & 0.29376e-01_rb,0.23174e-01_rb,0.16305e-01_rb,0.14325e-01_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.52313e-01_rb,0.49659e-01_rb,0.45526e-01_rb,0.41026e-01_rb,0.35905e-01_rb, &\n        & 0.30399e-01_rb,0.24222e-01_rb,0.17291e-01_rb,0.16045e-01_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.53347e-01_rb,0.49460e-01_rb,0.44667e-01_rb,0.39102e-01_rb,0.33300e-01_rb, &\n        & 0.27005e-01_rb,0.20373e-01_rb,0.13403e-01_rb,0.88882e-02_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.53473e-01_rb,0.49893e-01_rb,0.44992e-01_rb,0.39672e-01_rb,0.33886e-01_rb, &\n        & 0.27737e-01_rb,0.21157e-01_rb,0.14194e-01_rb,0.99472e-02_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.53543e-01_rb,0.50285e-01_rb,0.45484e-01_rb,0.40250e-01_rb,0.34541e-01_rb, &\n        & 0.28510e-01_rb,0.22035e-01_rb,0.15061e-01_rb,0.11235e-01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.53461e-01_rb,0.50524e-01_rb,0.45912e-01_rb,0.40827e-01_rb,0.35322e-01_rb, &\n        & 0.29374e-01_rb,0.23048e-01_rb,0.15925e-01_rb,0.12822e-01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.53278e-01_rb,0.50624e-01_rb,0.46303e-01_rb,0.41556e-01_rb,0.36186e-01_rb, &\n        & 0.30414e-01_rb,0.24058e-01_rb,0.16868e-01_rb,0.14203e-01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.37171e-01_rb,0.34434e-01_rb,0.32644e-01_rb,0.32703e-01_rb,0.33235e-01_rb, &\n        & 0.36611e-01_rb,0.43526e-01_rb,0.50696e-01_rb,0.58297e-01_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.36741e-01_rb,0.34071e-01_rb,0.32455e-01_rb,0.33094e-01_rb,0.34229e-01_rb, &\n        & 0.38792e-01_rb,0.46364e-01_rb,0.53998e-01_rb,0.61977e-01_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.36310e-01_rb,0.33795e-01_rb,0.32514e-01_rb,0.33548e-01_rb,0.35414e-01_rb, &\n        & 0.41445e-01_rb,0.49627e-01_rb,0.57817e-01_rb,0.66049e-01_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.35845e-01_rb,0.33632e-01_rb,0.32631e-01_rb,0.34397e-01_rb,0.37428e-01_rb, &\n        & 0.44985e-01_rb,0.53868e-01_rb,0.62763e-01_rb,0.71579e-01_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.35331e-01_rb,0.33379e-01_rb,0.32910e-01_rb,0.35528e-01_rb,0.39783e-01_rb, &\n        & 0.48705e-01_rb,0.58316e-01_rb,0.67942e-01_rb,0.77160e-01_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.40448e-01_rb,0.37395e-01_rb,0.35029e-01_rb,0.34305e-01_rb,0.33991e-01_rb, &\n        & 0.35316e-01_rb,0.40968e-01_rb,0.47712e-01_rb,0.54932e-01_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.39920e-01_rb,0.36968e-01_rb,0.34927e-01_rb,0.34599e-01_rb,0.34841e-01_rb, &\n        & 0.37250e-01_rb,0.43923e-01_rb,0.51161e-01_rb,0.58827e-01_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.39405e-01_rb,0.36691e-01_rb,0.34999e-01_rb,0.35076e-01_rb,0.35924e-01_rb, &\n        & 0.39772e-01_rb,0.47443e-01_rb,0.55253e-01_rb,0.63303e-01_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.38792e-01_rb,0.36414e-01_rb,0.35121e-01_rb,0.35787e-01_rb,0.37790e-01_rb, &\n        & 0.43290e-01_rb,0.51773e-01_rb,0.60284e-01_rb,0.68983e-01_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.38190e-01_rb,0.36098e-01_rb,0.35328e-01_rb,0.36844e-01_rb,0.39952e-01_rb, &\n        & 0.47291e-01_rb,0.56573e-01_rb,0.65870e-01_rb,0.75177e-01_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.43810e-01_rb,0.40500e-01_rb,0.37754e-01_rb,0.36293e-01_rb,0.34676e-01_rb, &\n        & 0.34367e-01_rb,0.37493e-01_rb,0.43650e-01_rb,0.50087e-01_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.43199e-01_rb,0.40018e-01_rb,0.37716e-01_rb,0.36450e-01_rb,0.35395e-01_rb, &\n        & 0.35866e-01_rb,0.40426e-01_rb,0.47076e-01_rb,0.53958e-01_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.42538e-01_rb,0.39757e-01_rb,0.37868e-01_rb,0.36772e-01_rb,0.36302e-01_rb, &\n        & 0.37914e-01_rb,0.44070e-01_rb,0.51299e-01_rb,0.58670e-01_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.41856e-01_rb,0.39457e-01_rb,0.37979e-01_rb,0.37163e-01_rb,0.37947e-01_rb, &\n        & 0.40970e-01_rb,0.48419e-01_rb,0.56334e-01_rb,0.64404e-01_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.41250e-01_rb,0.39154e-01_rb,0.38065e-01_rb,0.38049e-01_rb,0.39929e-01_rb, &\n        & 0.44658e-01_rb,0.53223e-01_rb,0.61909e-01_rb,0.70665e-01_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.47088e-01_rb,0.43589e-01_rb,0.40605e-01_rb,0.38686e-01_rb,0.35713e-01_rb, &\n        & 0.33942e-01_rb,0.34171e-01_rb,0.39143e-01_rb,0.44787e-01_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.46380e-01_rb,0.43081e-01_rb,0.40678e-01_rb,0.38772e-01_rb,0.36271e-01_rb, &\n        & 0.35115e-01_rb,0.36728e-01_rb,0.42523e-01_rb,0.48625e-01_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.45787e-01_rb,0.42889e-01_rb,0.40853e-01_rb,0.39000e-01_rb,0.36901e-01_rb, &\n        & 0.36794e-01_rb,0.40276e-01_rb,0.46812e-01_rb,0.53448e-01_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.45216e-01_rb,0.42628e-01_rb,0.40916e-01_rb,0.39286e-01_rb,0.38129e-01_rb, &\n        & 0.39329e-01_rb,0.44499e-01_rb,0.51734e-01_rb,0.59041e-01_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.44698e-01_rb,0.42312e-01_rb,0.40992e-01_rb,0.39909e-01_rb,0.39896e-01_rb, &\n        & 0.42322e-01_rb,0.49157e-01_rb,0.57134e-01_rb,0.65206e-01_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.50564e-01_rb,0.46864e-01_rb,0.43550e-01_rb,0.41145e-01_rb,0.37282e-01_rb, &\n        & 0.33847e-01_rb,0.31921e-01_rb,0.34655e-01_rb,0.39581e-01_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.49853e-01_rb,0.46324e-01_rb,0.43735e-01_rb,0.41212e-01_rb,0.37826e-01_rb, &\n        & 0.34760e-01_rb,0.33939e-01_rb,0.37988e-01_rb,0.43340e-01_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.49277e-01_rb,0.46142e-01_rb,0.43937e-01_rb,0.41409e-01_rb,0.38245e-01_rb, &\n        & 0.36079e-01_rb,0.36891e-01_rb,0.42172e-01_rb,0.48104e-01_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.48731e-01_rb,0.45921e-01_rb,0.43964e-01_rb,0.41658e-01_rb,0.39073e-01_rb, &\n        & 0.38270e-01_rb,0.40535e-01_rb,0.46833e-01_rb,0.53415e-01_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.48265e-01_rb,0.45648e-01_rb,0.43993e-01_rb,0.42096e-01_rb,0.40473e-01_rb, &\n        & 0.40846e-01_rb,0.44703e-01_rb,0.51860e-01_rb,0.59120e-01_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.54155e-01_rb,0.50312e-01_rb,0.46699e-01_rb,0.43479e-01_rb,0.38935e-01_rb, &\n        & 0.34460e-01_rb,0.30470e-01_rb,0.30214e-01_rb,0.34389e-01_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.53396e-01_rb,0.49741e-01_rb,0.46925e-01_rb,0.43573e-01_rb,0.39485e-01_rb, &\n        & 0.35160e-01_rb,0.32122e-01_rb,0.33415e-01_rb,0.38087e-01_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.52823e-01_rb,0.49548e-01_rb,0.47130e-01_rb,0.43740e-01_rb,0.39828e-01_rb, &\n        & 0.36044e-01_rb,0.34474e-01_rb,0.37304e-01_rb,0.42510e-01_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.52327e-01_rb,0.49384e-01_rb,0.47097e-01_rb,0.43937e-01_rb,0.40452e-01_rb, &\n        & 0.37736e-01_rb,0.37393e-01_rb,0.41655e-01_rb,0.47452e-01_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.51903e-01_rb,0.49131e-01_rb,0.47026e-01_rb,0.44222e-01_rb,0.41687e-01_rb, &\n        & 0.39818e-01_rb,0.40660e-01_rb,0.46275e-01_rb,0.52724e-01_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.58007e-01_rb,0.53733e-01_rb,0.49779e-01_rb,0.45887e-01_rb,0.40462e-01_rb, &\n        & 0.35176e-01_rb,0.29765e-01_rb,0.26441e-01_rb,0.29320e-01_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.57151e-01_rb,0.53110e-01_rb,0.50041e-01_rb,0.45960e-01_rb,0.40973e-01_rb, &\n        & 0.35887e-01_rb,0.31026e-01_rb,0.29123e-01_rb,0.32803e-01_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.56502e-01_rb,0.52846e-01_rb,0.50182e-01_rb,0.46056e-01_rb,0.41337e-01_rb, &\n        & 0.36666e-01_rb,0.32781e-01_rb,0.32480e-01_rb,0.36858e-01_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.55999e-01_rb,0.52671e-01_rb,0.50072e-01_rb,0.46217e-01_rb,0.41835e-01_rb, &\n        & 0.38000e-01_rb,0.35109e-01_rb,0.36308e-01_rb,0.41318e-01_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.55573e-01_rb,0.52382e-01_rb,0.49967e-01_rb,0.46401e-01_rb,0.42955e-01_rb, &\n        & 0.39677e-01_rb,0.37716e-01_rb,0.40481e-01_rb,0.46095e-01_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.61929e-01_rb,0.57176e-01_rb,0.52730e-01_rb,0.48103e-01_rb,0.42015e-01_rb, &\n        & 0.35869e-01_rb,0.29499e-01_rb,0.23665e-01_rb,0.24549e-01_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.61013e-01_rb,0.56553e-01_rb,0.52930e-01_rb,0.48080e-01_rb,0.42522e-01_rb, &\n        & 0.36573e-01_rb,0.30581e-01_rb,0.25834e-01_rb,0.27791e-01_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.60303e-01_rb,0.56131e-01_rb,0.52872e-01_rb,0.48123e-01_rb,0.42911e-01_rb, &\n        & 0.37343e-01_rb,0.31938e-01_rb,0.28446e-01_rb,0.31375e-01_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.59783e-01_rb,0.55843e-01_rb,0.52678e-01_rb,0.48331e-01_rb,0.43398e-01_rb, &\n        & 0.38468e-01_rb,0.33698e-01_rb,0.31535e-01_rb,0.35398e-01_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.59221e-01_rb,0.55525e-01_rb,0.52626e-01_rb,0.48547e-01_rb,0.44309e-01_rb, &\n        & 0.39969e-01_rb,0.35748e-01_rb,0.35119e-01_rb,0.39791e-01_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.65420e-01_rb,0.60290e-01_rb,0.55521e-01_rb,0.50117e-01_rb,0.43421e-01_rb, &\n        & 0.36608e-01_rb,0.29349e-01_rb,0.21841e-01_rb,0.18774e-01_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.64534e-01_rb,0.59710e-01_rb,0.55627e-01_rb,0.50054e-01_rb,0.43842e-01_rb, &\n        & 0.37357e-01_rb,0.30337e-01_rb,0.23525e-01_rb,0.22756e-01_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.63805e-01_rb,0.59237e-01_rb,0.55452e-01_rb,0.50019e-01_rb,0.44319e-01_rb, &\n        & 0.38089e-01_rb,0.31491e-01_rb,0.25524e-01_rb,0.26401e-01_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.63315e-01_rb,0.59001e-01_rb,0.55252e-01_rb,0.50261e-01_rb,0.44802e-01_rb, &\n        & 0.39006e-01_rb,0.32915e-01_rb,0.27972e-01_rb,0.30021e-01_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.62781e-01_rb,0.58825e-01_rb,0.55257e-01_rb,0.50524e-01_rb,0.45567e-01_rb, &\n        & 0.40297e-01_rb,0.34643e-01_rb,0.30888e-01_rb,0.34021e-01_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.68132e-01_rb,0.62682e-01_rb,0.57743e-01_rb,0.51836e-01_rb,0.44670e-01_rb, &\n        & 0.37300e-01_rb,0.29365e-01_rb,0.20724e-01_rb,0.15957e-01_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.67210e-01_rb,0.62151e-01_rb,0.57960e-01_rb,0.51867e-01_rb,0.45128e-01_rb, &\n        & 0.38064e-01_rb,0.30245e-01_rb,0.22146e-01_rb,0.17704e-01_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.66632e-01_rb,0.61949e-01_rb,0.57882e-01_rb,0.51878e-01_rb,0.45637e-01_rb, &\n        & 0.38758e-01_rb,0.31283e-01_rb,0.23744e-01_rb,0.20098e-01_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.66350e-01_rb,0.62044e-01_rb,0.57835e-01_rb,0.52180e-01_rb,0.46090e-01_rb, &\n        & 0.39573e-01_rb,0.32509e-01_rb,0.25642e-01_rb,0.22076e-01_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.65965e-01_rb,0.62105e-01_rb,0.57959e-01_rb,0.52489e-01_rb,0.46765e-01_rb, &\n        & 0.40717e-01_rb,0.34057e-01_rb,0.28015e-01_rb,0.24829e-01_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.69905e-01_rb,0.64410e-01_rb,0.59589e-01_rb,0.53150e-01_rb,0.45760e-01_rb, &\n        & 0.38179e-01_rb,0.29785e-01_rb,0.20444e-01_rb,0.16092e-01_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.69271e-01_rb,0.64175e-01_rb,0.59782e-01_rb,0.53281e-01_rb,0.46486e-01_rb, &\n        & 0.38949e-01_rb,0.30645e-01_rb,0.21725e-01_rb,0.17857e-01_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.69073e-01_rb,0.64491e-01_rb,0.59955e-01_rb,0.53684e-01_rb,0.46981e-01_rb, &\n        & 0.39609e-01_rb,0.31674e-01_rb,0.23165e-01_rb,0.20394e-01_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.68904e-01_rb,0.64793e-01_rb,0.60179e-01_rb,0.54162e-01_rb,0.47530e-01_rb, &\n        & 0.40495e-01_rb,0.32809e-01_rb,0.24930e-01_rb,0.23016e-01_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.68639e-01_rb,0.65010e-01_rb,0.60484e-01_rb,0.54605e-01_rb,0.48370e-01_rb, &\n        & 0.41561e-01_rb,0.34350e-01_rb,0.26933e-01_rb,0.26488e-01_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.71529e-01_rb,0.66044e-01_rb,0.61072e-01_rb,0.54140e-01_rb,0.46654e-01_rb, &\n        & 0.38794e-01_rb,0.29996e-01_rb,0.20236e-01_rb,0.16124e-01_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.71291e-01_rb,0.66315e-01_rb,0.61418e-01_rb,0.54500e-01_rb,0.47446e-01_rb, &\n        & 0.39590e-01_rb,0.30905e-01_rb,0.21401e-01_rb,0.17542e-01_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.71222e-01_rb,0.66826e-01_rb,0.61770e-01_rb,0.55219e-01_rb,0.48148e-01_rb, &\n        & 0.40334e-01_rb,0.31908e-01_rb,0.22727e-01_rb,0.19804e-01_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.71079e-01_rb,0.67236e-01_rb,0.62161e-01_rb,0.55849e-01_rb,0.48917e-01_rb, &\n        & 0.41311e-01_rb,0.33042e-01_rb,0.24356e-01_rb,0.21082e-01_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.70901e-01_rb,0.67518e-01_rb,0.62549e-01_rb,0.56439e-01_rb,0.49900e-01_rb, &\n        & 0.42406e-01_rb,0.34548e-01_rb,0.26106e-01_rb,0.23666e-01_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.73149e-01_rb,0.67708e-01_rb,0.62294e-01_rb,0.54947e-01_rb,0.47337e-01_rb, &\n        & 0.39165e-01_rb,0.30053e-01_rb,0.20069e-01_rb,0.15304e-01_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.73122e-01_rb,0.68287e-01_rb,0.62803e-01_rb,0.55664e-01_rb,0.48241e-01_rb, &\n        & 0.39986e-01_rb,0.31044e-01_rb,0.21133e-01_rb,0.17384e-01_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.73057e-01_rb,0.68826e-01_rb,0.63303e-01_rb,0.56536e-01_rb,0.49104e-01_rb, &\n        & 0.40926e-01_rb,0.32050e-01_rb,0.22349e-01_rb,0.18964e-01_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.73037e-01_rb,0.69286e-01_rb,0.63846e-01_rb,0.57252e-01_rb,0.50018e-01_rb, &\n        & 0.42025e-01_rb,0.33217e-01_rb,0.23850e-01_rb,0.20572e-01_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.73013e-01_rb,0.69604e-01_rb,0.64290e-01_rb,0.57954e-01_rb,0.51076e-01_rb, &\n        & 0.43212e-01_rb,0.34653e-01_rb,0.25391e-01_rb,0.23448e-01_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.43248e-01_rb,0.41017e-01_rb,0.40213e-01_rb,0.39821e-01_rb,0.45256e-01_rb, &\n        & 0.55821e-01_rb,0.66932e-01_rb,0.78037e-01_rb,0.88086e-01_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.42407e-01_rb,0.40307e-01_rb,0.40078e-01_rb,0.40681e-01_rb,0.47543e-01_rb, &\n        & 0.59099e-01_rb,0.70845e-01_rb,0.82585e-01_rb,0.93228e-01_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.41692e-01_rb,0.39727e-01_rb,0.39865e-01_rb,0.41830e-01_rb,0.50093e-01_rb, &\n        & 0.62450e-01_rb,0.74841e-01_rb,0.87232e-01_rb,0.98476e-01_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.41002e-01_rb,0.39248e-01_rb,0.39945e-01_rb,0.42942e-01_rb,0.52768e-01_rb, &\n        & 0.65829e-01_rb,0.78890e-01_rb,0.91937e-01_rb,0.10362e+00_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.40428e-01_rb,0.39045e-01_rb,0.40116e-01_rb,0.44981e-01_rb,0.56655e-01_rb, &\n        & 0.70681e-01_rb,0.84705e-01_rb,0.98731e-01_rb,0.11111e+00_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.47227e-01_rb,0.44198e-01_rb,0.42698e-01_rb,0.42511e-01_rb,0.46394e-01_rb, &\n        & 0.55784e-01_rb,0.66888e-01_rb,0.77989e-01_rb,0.88812e-01_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.46375e-01_rb,0.43473e-01_rb,0.42428e-01_rb,0.43299e-01_rb,0.48252e-01_rb, &\n        & 0.59000e-01_rb,0.70708e-01_rb,0.82423e-01_rb,0.93885e-01_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.45650e-01_rb,0.42988e-01_rb,0.42307e-01_rb,0.44252e-01_rb,0.50414e-01_rb, &\n        & 0.62373e-01_rb,0.74750e-01_rb,0.87127e-01_rb,0.99197e-01_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.44980e-01_rb,0.42686e-01_rb,0.42476e-01_rb,0.45355e-01_rb,0.53027e-01_rb, &\n        & 0.66067e-01_rb,0.79179e-01_rb,0.92288e-01_rb,0.10480e+00_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.44383e-01_rb,0.42475e-01_rb,0.42723e-01_rb,0.47155e-01_rb,0.57007e-01_rb, &\n        & 0.71138e-01_rb,0.85276e-01_rb,0.99396e-01_rb,0.11272e+00_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.51829e-01_rb,0.48303e-01_rb,0.45805e-01_rb,0.45348e-01_rb,0.47474e-01_rb, &\n        & 0.53773e-01_rb,0.64381e-01_rb,0.75065e-01_rb,0.85879e-01_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.50945e-01_rb,0.47626e-01_rb,0.45531e-01_rb,0.46104e-01_rb,0.48805e-01_rb, &\n        & 0.57008e-01_rb,0.68342e-01_rb,0.79675e-01_rb,0.91103e-01_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.50329e-01_rb,0.47163e-01_rb,0.45393e-01_rb,0.46795e-01_rb,0.50514e-01_rb, &\n        & 0.60488e-01_rb,0.72503e-01_rb,0.84519e-01_rb,0.96625e-01_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.49725e-01_rb,0.46894e-01_rb,0.45600e-01_rb,0.47784e-01_rb,0.52670e-01_rb, &\n        & 0.64382e-01_rb,0.77172e-01_rb,0.89966e-01_rb,0.10271e+00_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.49109e-01_rb,0.46633e-01_rb,0.45896e-01_rb,0.49191e-01_rb,0.56129e-01_rb, &\n        & 0.69438e-01_rb,0.83245e-01_rb,0.97061e-01_rb,0.11071e+00_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.57082e-01_rb,0.53110e-01_rb,0.49763e-01_rb,0.48460e-01_rb,0.48719e-01_rb, &\n        & 0.51181e-01_rb,0.59984e-01_rb,0.69952e-01_rb,0.80045e-01_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.56133e-01_rb,0.52450e-01_rb,0.49568e-01_rb,0.49064e-01_rb,0.49725e-01_rb, &\n        & 0.54041e-01_rb,0.64091e-01_rb,0.74728e-01_rb,0.85496e-01_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.55439e-01_rb,0.51866e-01_rb,0.49497e-01_rb,0.49475e-01_rb,0.51076e-01_rb, &\n        & 0.57243e-01_rb,0.68327e-01_rb,0.79652e-01_rb,0.91098e-01_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.54777e-01_rb,0.51575e-01_rb,0.49681e-01_rb,0.50221e-01_rb,0.52765e-01_rb, &\n        & 0.61084e-01_rb,0.73197e-01_rb,0.85337e-01_rb,0.97552e-01_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.54098e-01_rb,0.51233e-01_rb,0.49878e-01_rb,0.51295e-01_rb,0.55484e-01_rb, &\n        & 0.66162e-01_rb,0.79298e-01_rb,0.92434e-01_rb,0.10558e+00_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.62544e-01_rb,0.58281e-01_rb,0.54351e-01_rb,0.52107e-01_rb,0.50211e-01_rb, &\n        & 0.49416e-01_rb,0.54519e-01_rb,0.63528e-01_rb,0.72634e-01_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.61658e-01_rb,0.57644e-01_rb,0.54210e-01_rb,0.52563e-01_rb,0.50949e-01_rb, &\n        & 0.51794e-01_rb,0.58802e-01_rb,0.68560e-01_rb,0.78383e-01_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.60918e-01_rb,0.57016e-01_rb,0.54117e-01_rb,0.52719e-01_rb,0.52074e-01_rb, &\n        & 0.54457e-01_rb,0.63161e-01_rb,0.73629e-01_rb,0.84158e-01_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.60164e-01_rb,0.56692e-01_rb,0.54302e-01_rb,0.53086e-01_rb,0.53404e-01_rb, &\n        & 0.57689e-01_rb,0.68126e-01_rb,0.79422e-01_rb,0.90757e-01_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.59366e-01_rb,0.56267e-01_rb,0.54377e-01_rb,0.53811e-01_rb,0.55627e-01_rb, &\n        & 0.62331e-01_rb,0.74295e-01_rb,0.86596e-01_rb,0.98923e-01_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.68500e-01_rb,0.63504e-01_rb,0.59102e-01_rb,0.56112e-01_rb,0.52198e-01_rb, &\n        & 0.48725e-01_rb,0.49458e-01_rb,0.56540e-01_rb,0.64611e-01_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.67642e-01_rb,0.62951e-01_rb,0.59010e-01_rb,0.56509e-01_rb,0.52640e-01_rb, &\n        & 0.50781e-01_rb,0.53492e-01_rb,0.61845e-01_rb,0.70650e-01_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.66730e-01_rb,0.62270e-01_rb,0.58880e-01_rb,0.56541e-01_rb,0.53578e-01_rb, &\n        & 0.52912e-01_rb,0.57553e-01_rb,0.66900e-01_rb,0.76420e-01_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.65853e-01_rb,0.61851e-01_rb,0.59079e-01_rb,0.56674e-01_rb,0.54628e-01_rb, &\n        & 0.55405e-01_rb,0.62327e-01_rb,0.72621e-01_rb,0.82946e-01_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.64917e-01_rb,0.61395e-01_rb,0.59088e-01_rb,0.57140e-01_rb,0.56317e-01_rb, &\n        & 0.59242e-01_rb,0.68519e-01_rb,0.79819e-01_rb,0.91147e-01_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.74814e-01_rb,0.69115e-01_rb,0.63783e-01_rb,0.59970e-01_rb,0.54833e-01_rb, &\n        & 0.49011e-01_rb,0.46051e-01_rb,0.49756e-01_rb,0.56816e-01_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.73755e-01_rb,0.68509e-01_rb,0.63672e-01_rb,0.60441e-01_rb,0.55205e-01_rb, &\n        & 0.50759e-01_rb,0.49447e-01_rb,0.55044e-01_rb,0.62843e-01_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.72664e-01_rb,0.67698e-01_rb,0.63630e-01_rb,0.60499e-01_rb,0.55993e-01_rb, &\n        & 0.52467e-01_rb,0.52809e-01_rb,0.59966e-01_rb,0.68463e-01_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.71633e-01_rb,0.67174e-01_rb,0.63866e-01_rb,0.60581e-01_rb,0.56744e-01_rb, &\n        & 0.54377e-01_rb,0.56941e-01_rb,0.65640e-01_rb,0.74923e-01_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.70621e-01_rb,0.66745e-01_rb,0.63972e-01_rb,0.60930e-01_rb,0.57801e-01_rb, &\n        & 0.57488e-01_rb,0.62631e-01_rb,0.72711e-01_rb,0.82984e-01_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.81108e-01_rb,0.74731e-01_rb,0.68669e-01_rb,0.63699e-01_rb,0.57482e-01_rb, &\n        & 0.50207e-01_rb,0.44226e-01_rb,0.43565e-01_rb,0.49479e-01_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.79714e-01_rb,0.73898e-01_rb,0.68659e-01_rb,0.64276e-01_rb,0.57881e-01_rb, &\n        & 0.51786e-01_rb,0.46974e-01_rb,0.48378e-01_rb,0.55162e-01_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.78456e-01_rb,0.73135e-01_rb,0.68758e-01_rb,0.64370e-01_rb,0.58662e-01_rb, &\n        & 0.53164e-01_rb,0.49684e-01_rb,0.53168e-01_rb,0.60666e-01_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.77309e-01_rb,0.72680e-01_rb,0.69000e-01_rb,0.64433e-01_rb,0.59353e-01_rb, &\n        & 0.54540e-01_rb,0.53042e-01_rb,0.58717e-01_rb,0.66992e-01_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.76406e-01_rb,0.72288e-01_rb,0.69084e-01_rb,0.64775e-01_rb,0.60105e-01_rb, &\n        & 0.56876e-01_rb,0.57740e-01_rb,0.65467e-01_rb,0.74695e-01_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.87281e-01_rb,0.80336e-01_rb,0.73586e-01_rb,0.67589e-01_rb,0.60164e-01_rb, &\n        & 0.51553e-01_rb,0.43512e-01_rb,0.38366e-01_rb,0.42260e-01_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.85638e-01_rb,0.79229e-01_rb,0.73710e-01_rb,0.68169e-01_rb,0.60640e-01_rb, &\n        & 0.53028e-01_rb,0.45744e-01_rb,0.42413e-01_rb,0.47570e-01_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.84292e-01_rb,0.78481e-01_rb,0.73900e-01_rb,0.68269e-01_rb,0.61342e-01_rb, &\n        & 0.54381e-01_rb,0.47902e-01_rb,0.46760e-01_rb,0.52980e-01_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.83115e-01_rb,0.77996e-01_rb,0.74142e-01_rb,0.68304e-01_rb,0.62073e-01_rb, &\n        & 0.55597e-01_rb,0.50525e-01_rb,0.51779e-01_rb,0.58954e-01_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.82186e-01_rb,0.77706e-01_rb,0.74161e-01_rb,0.68663e-01_rb,0.62685e-01_rb, &\n        & 0.57315e-01_rb,0.54189e-01_rb,0.58003e-01_rb,0.66142e-01_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.93285e-01_rb,0.85813e-01_rb,0.78575e-01_rb,0.71552e-01_rb,0.62937e-01_rb, &\n        & 0.53130e-01_rb,0.43544e-01_rb,0.34852e-01_rb,0.25971e-01_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.91673e-01_rb,0.84652e-01_rb,0.78625e-01_rb,0.72093e-01_rb,0.63376e-01_rb, &\n        & 0.54541e-01_rb,0.45576e-01_rb,0.38102e-01_rb,0.28356e-01_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.90273e-01_rb,0.83828e-01_rb,0.78840e-01_rb,0.72190e-01_rb,0.64026e-01_rb, &\n        & 0.55889e-01_rb,0.47404e-01_rb,0.41695e-01_rb,0.31456e-01_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.88982e-01_rb,0.83233e-01_rb,0.79026e-01_rb,0.72231e-01_rb,0.64765e-01_rb, &\n        & 0.57025e-01_rb,0.49463e-01_rb,0.46003e-01_rb,0.35501e-01_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.88015e-01_rb,0.82954e-01_rb,0.78987e-01_rb,0.72605e-01_rb,0.65378e-01_rb, &\n        & 0.58432e-01_rb,0.52293e-01_rb,0.51371e-01_rb,0.39951e-01_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.98224e-01_rb,0.90470e-01_rb,0.83283e-01_rb,0.75729e-01_rb,0.65953e-01_rb, &\n        & 0.55333e-01_rb,0.44607e-01_rb,0.33712e-01_rb,0.29825e-01_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.96868e-01_rb,0.89565e-01_rb,0.83537e-01_rb,0.76001e-01_rb,0.66302e-01_rb, &\n        & 0.56711e-01_rb,0.46387e-01_rb,0.36339e-01_rb,0.33228e-01_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.95464e-01_rb,0.88759e-01_rb,0.83774e-01_rb,0.75894e-01_rb,0.67115e-01_rb, &\n        & 0.57847e-01_rb,0.48034e-01_rb,0.39456e-01_rb,0.36088e-01_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.94340e-01_rb,0.88366e-01_rb,0.83721e-01_rb,0.76044e-01_rb,0.67766e-01_rb, &\n        & 0.58947e-01_rb,0.50010e-01_rb,0.43247e-01_rb,0.40125e-01_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.93518e-01_rb,0.88039e-01_rb,0.83475e-01_rb,0.76422e-01_rb,0.68414e-01_rb, &\n        & 0.60495e-01_rb,0.52431e-01_rb,0.48069e-01_rb,0.44798e-01_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.10275e+00_rb,0.94729e-01_rb,0.87688e-01_rb,0.79394e-01_rb,0.68734e-01_rb, &\n        & 0.57476e-01_rb,0.45697e-01_rb,0.32943e-01_rb,0.29614e-01_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.10159e+00_rb,0.94167e-01_rb,0.88202e-01_rb,0.79488e-01_rb,0.69232e-01_rb, &\n        & 0.58694e-01_rb,0.47208e-01_rb,0.35215e-01_rb,0.33437e-01_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.10046e+00_rb,0.93671e-01_rb,0.88347e-01_rb,0.79409e-01_rb,0.69985e-01_rb, &\n        & 0.59703e-01_rb,0.48739e-01_rb,0.37920e-01_rb,0.36670e-01_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.99712e-01_rb,0.93473e-01_rb,0.88135e-01_rb,0.79671e-01_rb,0.70541e-01_rb, &\n        & 0.60786e-01_rb,0.50658e-01_rb,0.41158e-01_rb,0.41155e-01_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.99052e-01_rb,0.93236e-01_rb,0.87897e-01_rb,0.79933e-01_rb,0.71310e-01_rb, &\n        & 0.62364e-01_rb,0.52850e-01_rb,0.45390e-01_rb,0.47055e-01_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.10693e+00_rb,0.98594e-01_rb,0.91730e-01_rb,0.82575e-01_rb,0.71131e-01_rb, &\n        & 0.59390e-01_rb,0.46621e-01_rb,0.32428e-01_rb,0.26794e-01_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.10593e+00_rb,0.98329e-01_rb,0.92368e-01_rb,0.82651e-01_rb,0.71827e-01_rb, &\n        & 0.60538e-01_rb,0.47868e-01_rb,0.34468e-01_rb,0.29114e-01_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.10521e+00_rb,0.98305e-01_rb,0.92444e-01_rb,0.82725e-01_rb,0.72549e-01_rb, &\n        & 0.61456e-01_rb,0.49349e-01_rb,0.36800e-01_rb,0.32781e-01_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.10471e+00_rb,0.98393e-01_rb,0.92240e-01_rb,0.83082e-01_rb,0.73117e-01_rb, &\n        & 0.62504e-01_rb,0.51152e-01_rb,0.39616e-01_rb,0.37780e-01_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.10409e+00_rb,0.98364e-01_rb,0.92131e-01_rb,0.83350e-01_rb,0.73995e-01_rb, &\n        & 0.64047e-01_rb,0.53327e-01_rb,0.43375e-01_rb,0.42285e-01_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.52810e-01_rb,0.49450e-01_rb,0.49647e-01_rb,0.57104e-01_rb,0.73433e-01_rb, &\n        & 0.91743e-01_rb,0.11005e+00_rb,0.12834e+00_rb,0.14491e+00_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.51653e-01_rb,0.48971e-01_rb,0.50186e-01_rb,0.59440e-01_rb,0.77723e-01_rb, &\n        & 0.97098e-01_rb,0.11647e+00_rb,0.13583e+00_rb,0.15375e+00_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.50696e-01_rb,0.48582e-01_rb,0.50737e-01_rb,0.61667e-01_rb,0.81568e-01_rb, &\n        & 0.10190e+00_rb,0.12223e+00_rb,0.14254e+00_rb,0.16133e+00_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.49759e-01_rb,0.48321e-01_rb,0.51484e-01_rb,0.64441e-01_rb,0.85673e-01_rb, &\n        & 0.10703e+00_rb,0.12837e+00_rb,0.14971e+00_rb,0.16936e+00_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.48804e-01_rb,0.48067e-01_rb,0.52560e-01_rb,0.67354e-01_rb,0.89656e-01_rb, &\n        & 0.11200e+00_rb,0.13434e+00_rb,0.15666e+00_rb,0.17718e+00_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.57042e-01_rb,0.54069e-01_rb,0.53905e-01_rb,0.58729e-01_rb,0.73592e-01_rb, &\n        & 0.91941e-01_rb,0.11029e+00_rb,0.12863e+00_rb,0.14602e+00_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.55841e-01_rb,0.53550e-01_rb,0.54566e-01_rb,0.60781e-01_rb,0.78168e-01_rb, &\n        & 0.97652e-01_rb,0.11714e+00_rb,0.13661e+00_rb,0.15506e+00_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.54920e-01_rb,0.52981e-01_rb,0.54943e-01_rb,0.62919e-01_rb,0.82379e-01_rb, &\n        & 0.10292e+00_rb,0.12345e+00_rb,0.14397e+00_rb,0.16344e+00_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.54055e-01_rb,0.52591e-01_rb,0.55488e-01_rb,0.65511e-01_rb,0.86681e-01_rb, &\n        & 0.10829e+00_rb,0.12990e+00_rb,0.15147e+00_rb,0.17196e+00_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.53226e-01_rb,0.52334e-01_rb,0.56238e-01_rb,0.68429e-01_rb,0.90830e-01_rb, &\n        & 0.11345e+00_rb,0.13607e+00_rb,0.15868e+00_rb,0.17998e+00_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.62670e-01_rb,0.59309e-01_rb,0.58772e-01_rb,0.61122e-01_rb,0.72960e-01_rb, &\n        & 0.91113e-01_rb,0.10930e+00_rb,0.12747e+00_rb,0.14514e+00_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.61411e-01_rb,0.58632e-01_rb,0.59230e-01_rb,0.62688e-01_rb,0.77748e-01_rb, &\n        & 0.97139e-01_rb,0.11652e+00_rb,0.13590e+00_rb,0.15479e+00_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.60334e-01_rb,0.57923e-01_rb,0.59411e-01_rb,0.64539e-01_rb,0.82093e-01_rb, &\n        & 0.10257e+00_rb,0.12305e+00_rb,0.14350e+00_rb,0.16343e+00_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.59451e-01_rb,0.57416e-01_rb,0.59633e-01_rb,0.66820e-01_rb,0.86494e-01_rb, &\n        & 0.10804e+00_rb,0.12960e+00_rb,0.15112e+00_rb,0.17209e+00_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.58597e-01_rb,0.57143e-01_rb,0.60240e-01_rb,0.69594e-01_rb,0.91059e-01_rb, &\n        & 0.11373e+00_rb,0.13640e+00_rb,0.15905e+00_rb,0.18103e+00_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.69822e-01_rb,0.65601e-01_rb,0.63945e-01_rb,0.64755e-01_rb,0.73038e-01_rb, &\n        & 0.90165e-01_rb,0.10817e+00_rb,0.12616e+00_rb,0.14389e+00_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.68507e-01_rb,0.64727e-01_rb,0.64234e-01_rb,0.66213e-01_rb,0.77749e-01_rb, &\n        & 0.96668e-01_rb,0.11597e+00_rb,0.13524e+00_rb,0.15427e+00_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.67276e-01_rb,0.63962e-01_rb,0.64238e-01_rb,0.67909e-01_rb,0.82185e-01_rb, &\n        & 0.10254e+00_rb,0.12301e+00_rb,0.14345e+00_rb,0.16365e+00_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.66381e-01_rb,0.63334e-01_rb,0.64220e-01_rb,0.69770e-01_rb,0.86724e-01_rb, &\n        & 0.10832e+00_rb,0.12994e+00_rb,0.15151e+00_rb,0.17282e+00_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.65437e-01_rb,0.62972e-01_rb,0.64673e-01_rb,0.72222e-01_rb,0.91630e-01_rb, &\n        & 0.11445e+00_rb,0.13728e+00_rb,0.16006e+00_rb,0.18257e+00_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.78344e-01_rb,0.73091e-01_rb,0.69713e-01_rb,0.69214e-01_rb,0.74668e-01_rb, &\n        & 0.88915e-01_rb,0.10667e+00_rb,0.12441e+00_rb,0.14209e+00_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.76773e-01_rb,0.71981e-01_rb,0.69752e-01_rb,0.70736e-01_rb,0.78904e-01_rb, &\n        & 0.95797e-01_rb,0.11493e+00_rb,0.13406e+00_rb,0.15311e+00_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.75310e-01_rb,0.71068e-01_rb,0.69651e-01_rb,0.72503e-01_rb,0.83070e-01_rb, &\n        & 0.10214e+00_rb,0.12251e+00_rb,0.14289e+00_rb,0.16320e+00_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.74250e-01_rb,0.70202e-01_rb,0.69499e-01_rb,0.74333e-01_rb,0.87301e-01_rb, &\n        & 0.10818e+00_rb,0.12976e+00_rb,0.15132e+00_rb,0.17281e+00_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.73209e-01_rb,0.69739e-01_rb,0.69847e-01_rb,0.76315e-01_rb,0.91870e-01_rb, &\n        & 0.11438e+00_rb,0.13720e+00_rb,0.16000e+00_rb,0.18274e+00_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.87696e-01_rb,0.81522e-01_rb,0.76509e-01_rb,0.74345e-01_rb,0.77107e-01_rb, &\n        & 0.86456e-01_rb,0.10266e+00_rb,0.11975e+00_rb,0.13684e+00_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.85834e-01_rb,0.80104e-01_rb,0.76319e-01_rb,0.75879e-01_rb,0.80970e-01_rb, &\n        & 0.93234e-01_rb,0.11135e+00_rb,0.12988e+00_rb,0.14843e+00_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.84103e-01_rb,0.79034e-01_rb,0.76204e-01_rb,0.77685e-01_rb,0.84459e-01_rb, &\n        & 0.99600e-01_rb,0.11936e+00_rb,0.13921e+00_rb,0.15907e+00_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.82699e-01_rb,0.78102e-01_rb,0.75915e-01_rb,0.79277e-01_rb,0.87923e-01_rb, &\n        & 0.10572e+00_rb,0.12681e+00_rb,0.14791e+00_rb,0.16901e+00_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.81604e-01_rb,0.77529e-01_rb,0.76175e-01_rb,0.80727e-01_rb,0.91640e-01_rb, &\n        & 0.11182e+00_rb,0.13414e+00_rb,0.15644e+00_rb,0.17875e+00_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.97322e-01_rb,0.90329e-01_rb,0.84313e-01_rb,0.80452e-01_rb,0.80118e-01_rb, &\n        & 0.84204e-01_rb,0.96138e-01_rb,0.11212e+00_rb,0.12812e+00_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.95378e-01_rb,0.88856e-01_rb,0.83999e-01_rb,0.81744e-01_rb,0.83529e-01_rb, &\n        & 0.90072e-01_rb,0.10504e+00_rb,0.12254e+00_rb,0.14003e+00_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.93471e-01_rb,0.87725e-01_rb,0.83968e-01_rb,0.83424e-01_rb,0.86362e-01_rb, &\n        & 0.95913e-01_rb,0.11338e+00_rb,0.13227e+00_rb,0.15114e+00_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.91861e-01_rb,0.86679e-01_rb,0.83638e-01_rb,0.84829e-01_rb,0.89126e-01_rb, &\n        & 0.10167e+00_rb,0.12111e+00_rb,0.14127e+00_rb,0.16142e+00_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.90669e-01_rb,0.86079e-01_rb,0.83677e-01_rb,0.85955e-01_rb,0.92165e-01_rb, &\n        & 0.10751e+00_rb,0.12862e+00_rb,0.15005e+00_rb,0.17145e+00_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.10748e+00_rb,0.99760e-01_rb,0.92641e-01_rb,0.87386e-01_rb,0.83918e-01_rb, &\n        & 0.82807e-01_rb,0.88461e-01_rb,0.10199e+00_rb,0.11655e+00_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.10548e+00_rb,0.98347e-01_rb,0.92153e-01_rb,0.88724e-01_rb,0.86807e-01_rb, &\n        & 0.87435e-01_rb,0.96918e-01_rb,0.11262e+00_rb,0.12866e+00_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.10345e+00_rb,0.96941e-01_rb,0.92269e-01_rb,0.90148e-01_rb,0.89023e-01_rb, &\n        & 0.92390e-01_rb,0.10517e+00_rb,0.12260e+00_rb,0.14006e+00_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.10168e+00_rb,0.95648e-01_rb,0.92050e-01_rb,0.91217e-01_rb,0.91169e-01_rb, &\n        & 0.97530e-01_rb,0.11302e+00_rb,0.13185e+00_rb,0.15061e+00_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.10031e+00_rb,0.94918e-01_rb,0.92030e-01_rb,0.91944e-01_rb,0.93599e-01_rb, &\n        & 0.10280e+00_rb,0.12083e+00_rb,0.14095e+00_rb,0.16101e+00_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.11850e+00_rb,0.10963e+00_rb,0.10118e+00_rb,0.94592e-01_rb,0.88496e-01_rb, &\n        & 0.82777e-01_rb,0.81368e-01_rb,0.90482e-01_rb,0.10334e+00_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.11636e+00_rb,0.10836e+00_rb,0.10080e+00_rb,0.96151e-01_rb,0.90961e-01_rb, &\n        & 0.86437e-01_rb,0.88759e-01_rb,0.10103e+00_rb,0.11540e+00_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.11416e+00_rb,0.10675e+00_rb,0.10109e+00_rb,0.97591e-01_rb,0.92676e-01_rb, &\n        & 0.90148e-01_rb,0.96288e-01_rb,0.11094e+00_rb,0.12669e+00_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.11214e+00_rb,0.10527e+00_rb,0.10096e+00_rb,0.98437e-01_rb,0.94256e-01_rb, &\n        & 0.94326e-01_rb,0.10386e+00_rb,0.12050e+00_rb,0.13763e+00_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.11054e+00_rb,0.10425e+00_rb,0.10085e+00_rb,0.98717e-01_rb,0.96200e-01_rb, &\n        & 0.98935e-01_rb,0.11173e+00_rb,0.13010e+00_rb,0.14859e+00_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.13016e+00_rb,0.11986e+00_rb,0.10995e+00_rb,0.10196e+00_rb,0.93774e-01_rb, &\n        & 0.84360e-01_rb,0.76878e-01_rb,0.79680e-01_rb,0.67359e-01_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.12774e+00_rb,0.11853e+00_rb,0.10979e+00_rb,0.10367e+00_rb,0.96160e-01_rb, &\n        & 0.87173e-01_rb,0.82710e-01_rb,0.89689e-01_rb,0.82456e-01_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.12531e+00_rb,0.11685e+00_rb,0.11022e+00_rb,0.10509e+00_rb,0.97450e-01_rb, &\n        & 0.90061e-01_rb,0.89222e-01_rb,0.99588e-01_rb,0.96338e-01_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.12312e+00_rb,0.11523e+00_rb,0.11015e+00_rb,0.10584e+00_rb,0.98534e-01_rb, &\n        & 0.93531e-01_rb,0.96262e-01_rb,0.10942e+00_rb,0.11043e+00_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.12128e+00_rb,0.11400e+00_rb,0.10998e+00_rb,0.10588e+00_rb,0.10008e+00_rb, &\n        & 0.97359e-01_rb,0.10364e+00_rb,0.11932e+00_rb,0.12582e+00_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.14105e+00_rb,0.12987e+00_rb,0.11910e+00_rb,0.11026e+00_rb,0.10035e+00_rb, &\n        & 0.88081e-01_rb,0.76687e-01_rb,0.74205e-01_rb,0.50899e-01_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.13825e+00_rb,0.12810e+00_rb,0.11908e+00_rb,0.11198e+00_rb,0.10215e+00_rb, &\n        & 0.90197e-01_rb,0.81650e-01_rb,0.83605e-01_rb,0.56975e-01_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.13566e+00_rb,0.12624e+00_rb,0.11939e+00_rb,0.11316e+00_rb,0.10299e+00_rb, &\n        & 0.92874e-01_rb,0.87279e-01_rb,0.93203e-01_rb,0.64736e-01_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.13334e+00_rb,0.12460e+00_rb,0.11935e+00_rb,0.11337e+00_rb,0.10395e+00_rb, &\n        & 0.95956e-01_rb,0.93410e-01_rb,0.10293e+00_rb,0.71284e-01_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.13131e+00_rb,0.12363e+00_rb,0.11937e+00_rb,0.11314e+00_rb,0.10517e+00_rb, &\n        & 0.98969e-01_rb,0.10016e+00_rb,0.11304e+00_rb,0.78587e-01_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.15212e+00_rb,0.13991e+00_rb,0.12851e+00_rb,0.11872e+00_rb,0.10663e+00_rb, &\n        & 0.91867e-01_rb,0.77350e-01_rb,0.69757e-01_rb,0.57657e-01_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.14895e+00_rb,0.13760e+00_rb,0.12846e+00_rb,0.12032e+00_rb,0.10790e+00_rb, &\n        & 0.93798e-01_rb,0.81816e-01_rb,0.78361e-01_rb,0.63811e-01_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.14609e+00_rb,0.13558e+00_rb,0.12854e+00_rb,0.12100e+00_rb,0.10856e+00_rb, &\n        & 0.96260e-01_rb,0.86684e-01_rb,0.87192e-01_rb,0.72200e-01_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.14343e+00_rb,0.13400e+00_rb,0.12849e+00_rb,0.12073e+00_rb,0.10951e+00_rb, &\n        & 0.98753e-01_rb,0.91530e-01_rb,0.96391e-01_rb,0.79517e-01_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.14120e+00_rb,0.13303e+00_rb,0.12833e+00_rb,0.12041e+00_rb,0.11038e+00_rb, &\n        & 0.10129e+00_rb,0.97562e-01_rb,0.10658e+00_rb,0.84371e-01_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.16284e+00_rb,0.14976e+00_rb,0.13792e+00_rb,0.12684e+00_rb,0.11275e+00_rb, &\n        & 0.95645e-01_rb,0.78767e-01_rb,0.66366e-01_rb,0.59038e-01_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.15947e+00_rb,0.14721e+00_rb,0.13779e+00_rb,0.12800e+00_rb,0.11359e+00_rb, &\n        & 0.97597e-01_rb,0.82782e-01_rb,0.73753e-01_rb,0.67374e-01_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.15626e+00_rb,0.14498e+00_rb,0.13763e+00_rb,0.12811e+00_rb,0.11414e+00_rb, &\n        & 0.99826e-01_rb,0.86643e-01_rb,0.81525e-01_rb,0.75874e-01_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.15335e+00_rb,0.14330e+00_rb,0.13746e+00_rb,0.12758e+00_rb,0.11501e+00_rb, &\n        & 0.10172e+00_rb,0.90750e-01_rb,0.90246e-01_rb,0.81744e-01_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.15088e+00_rb,0.14217e+00_rb,0.13690e+00_rb,0.12723e+00_rb,0.11557e+00_rb, &\n        & 0.10388e+00_rb,0.96218e-01_rb,0.10042e+00_rb,0.88529e-01_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.62837e-01_rb,0.60695e-01_rb,0.77720e-01_rb,0.11279e+00_rb,0.15033e+00_rb, &\n        & 0.18788e+00_rb,0.22539e+00_rb,0.26284e+00_rb,0.29421e+00_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.61599e-01_rb,0.60148e-01_rb,0.79591e-01_rb,0.11750e+00_rb,0.15661e+00_rb, &\n        & 0.19570e+00_rb,0.23478e+00_rb,0.27378e+00_rb,0.30578e+00_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.60827e-01_rb,0.59792e-01_rb,0.82175e-01_rb,0.12253e+00_rb,0.16330e+00_rb, &\n        & 0.20407e+00_rb,0.24482e+00_rb,0.28548e+00_rb,0.31829e+00_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.60773e-01_rb,0.59852e-01_rb,0.85295e-01_rb,0.12765e+00_rb,0.17012e+00_rb, &\n        & 0.21258e+00_rb,0.25502e+00_rb,0.29736e+00_rb,0.33114e+00_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.60579e-01_rb,0.60436e-01_rb,0.88993e-01_rb,0.13334e+00_rb,0.17771e+00_rb, &\n        & 0.22206e+00_rb,0.26642e+00_rb,0.31066e+00_rb,0.34557e+00_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.70150e-01_rb,0.67933e-01_rb,0.82763e-01_rb,0.11770e+00_rb,0.15687e+00_rb, &\n        & 0.19605e+00_rb,0.23520e+00_rb,0.27426e+00_rb,0.30923e+00_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.68737e-01_rb,0.67168e-01_rb,0.84453e-01_rb,0.12329e+00_rb,0.16434e+00_rb, &\n        & 0.20537e+00_rb,0.24638e+00_rb,0.28735e+00_rb,0.32358e+00_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.67693e-01_rb,0.66713e-01_rb,0.87076e-01_rb,0.12893e+00_rb,0.17184e+00_rb, &\n        & 0.21474e+00_rb,0.25764e+00_rb,0.30044e+00_rb,0.33811e+00_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.67352e-01_rb,0.66652e-01_rb,0.90088e-01_rb,0.13441e+00_rb,0.17914e+00_rb, &\n        & 0.22388e+00_rb,0.26860e+00_rb,0.31321e+00_rb,0.35245e+00_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.66923e-01_rb,0.67069e-01_rb,0.93870e-01_rb,0.14034e+00_rb,0.18704e+00_rb, &\n        & 0.23374e+00_rb,0.28042e+00_rb,0.32702e+00_rb,0.36794e+00_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.79385e-01_rb,0.76263e-01_rb,0.87808e-01_rb,0.12001e+00_rb,0.15997e+00_rb, &\n        & 0.19992e+00_rb,0.23984e+00_rb,0.27971e+00_rb,0.31814e+00_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.77666e-01_rb,0.75357e-01_rb,0.89439e-01_rb,0.12673e+00_rb,0.16892e+00_rb, &\n        & 0.21110e+00_rb,0.25327e+00_rb,0.29539e+00_rb,0.33569e+00_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.76193e-01_rb,0.74694e-01_rb,0.92082e-01_rb,0.13335e+00_rb,0.17774e+00_rb, &\n        & 0.22213e+00_rb,0.26651e+00_rb,0.31084e+00_rb,0.35313e+00_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.75335e-01_rb,0.74405e-01_rb,0.95067e-01_rb,0.13953e+00_rb,0.18597e+00_rb, &\n        & 0.23241e+00_rb,0.27884e+00_rb,0.32518e+00_rb,0.36942e+00_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.74635e-01_rb,0.74698e-01_rb,0.98457e-01_rb,0.14565e+00_rb,0.19414e+00_rb, &\n        & 0.24262e+00_rb,0.29108e+00_rb,0.33947e+00_rb,0.38555e+00_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.89595e-01_rb,0.85781e-01_rb,0.93997e-01_rb,0.12072e+00_rb,0.16001e+00_rb, &\n        & 0.19998e+00_rb,0.23994e+00_rb,0.27984e+00_rb,0.31934e+00_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.87421e-01_rb,0.84747e-01_rb,0.95233e-01_rb,0.12788e+00_rb,0.17024e+00_rb, &\n        & 0.21274e+00_rb,0.25525e+00_rb,0.29772e+00_rb,0.33967e+00_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.85503e-01_rb,0.83808e-01_rb,0.97531e-01_rb,0.13512e+00_rb,0.18009e+00_rb, &\n        & 0.22508e+00_rb,0.27005e+00_rb,0.31493e+00_rb,0.35929e+00_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.84061e-01_rb,0.83216e-01_rb,0.10039e+00_rb,0.14194e+00_rb,0.18919e+00_rb, &\n        & 0.23644e+00_rb,0.28372e+00_rb,0.33088e+00_rb,0.37743e+00_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.83141e-01_rb,0.83249e-01_rb,0.10352e+00_rb,0.14853e+00_rb,0.19798e+00_rb, &\n        & 0.24744e+00_rb,0.29688e+00_rb,0.34622e+00_rb,0.39491e+00_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.10093e+00_rb,0.96180e-01_rb,0.10202e+00_rb,0.12191e+00_rb,0.15810e+00_rb, &\n        & 0.19761e+00_rb,0.23710e+00_rb,0.27651e+00_rb,0.31584e+00_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.98348e-01_rb,0.95154e-01_rb,0.10279e+00_rb,0.12897e+00_rb,0.16954e+00_rb, &\n        & 0.21190e+00_rb,0.25425e+00_rb,0.29655e+00_rb,0.33869e+00_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.96078e-01_rb,0.94065e-01_rb,0.10459e+00_rb,0.13623e+00_rb,0.18035e+00_rb, &\n        & 0.22539e+00_rb,0.27041e+00_rb,0.31537e+00_rb,0.36019e+00_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.94202e-01_rb,0.93296e-01_rb,0.10703e+00_rb,0.14326e+00_rb,0.19057e+00_rb, &\n        & 0.23817e+00_rb,0.28575e+00_rb,0.33330e+00_rb,0.38060e+00_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.93055e-01_rb,0.92935e-01_rb,0.10982e+00_rb,0.15042e+00_rb,0.20048e+00_rb, &\n        & 0.25056e+00_rb,0.30061e+00_rb,0.35061e+00_rb,0.40035e+00_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.11421e+00_rb,0.10796e+00_rb,0.11173e+00_rb,0.12476e+00_rb,0.15549e+00_rb, &\n        & 0.19408e+00_rb,0.23286e+00_rb,0.27161e+00_rb,0.31032e+00_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.11123e+00_rb,0.10718e+00_rb,0.11218e+00_rb,0.13121e+00_rb,0.16775e+00_rb, &\n        & 0.20966e+00_rb,0.25155e+00_rb,0.29340e+00_rb,0.33523e+00_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.10875e+00_rb,0.10588e+00_rb,0.11334e+00_rb,0.13798e+00_rb,0.17972e+00_rb, &\n        & 0.22462e+00_rb,0.26950e+00_rb,0.31433e+00_rb,0.35914e+00_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.10666e+00_rb,0.10458e+00_rb,0.11529e+00_rb,0.14519e+00_rb,0.19132e+00_rb, &\n        & 0.23911e+00_rb,0.28688e+00_rb,0.33463e+00_rb,0.38232e+00_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.10502e+00_rb,0.10381e+00_rb,0.11770e+00_rb,0.15287e+00_rb,0.20267e+00_rb, &\n        & 0.25329e+00_rb,0.30392e+00_rb,0.35446e+00_rb,0.40496e+00_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.12988e+00_rb,0.12138e+00_rb,0.12291e+00_rb,0.12930e+00_rb,0.15315e+00_rb, &\n        & 0.18907e+00_rb,0.22686e+00_rb,0.26460e+00_rb,0.30239e+00_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.12649e+00_rb,0.12054e+00_rb,0.12314e+00_rb,0.13530e+00_rb,0.16601e+00_rb, &\n        & 0.20667e+00_rb,0.24798e+00_rb,0.28925e+00_rb,0.33056e+00_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.12370e+00_rb,0.11924e+00_rb,0.12400e+00_rb,0.14174e+00_rb,0.17907e+00_rb, &\n        & 0.22369e+00_rb,0.26838e+00_rb,0.31304e+00_rb,0.35775e+00_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.12121e+00_rb,0.11770e+00_rb,0.12551e+00_rb,0.14889e+00_rb,0.19207e+00_rb, &\n        & 0.24005e+00_rb,0.28802e+00_rb,0.33592e+00_rb,0.38391e+00_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.11892e+00_rb,0.11635e+00_rb,0.12739e+00_rb,0.15666e+00_rb,0.20470e+00_rb, &\n        & 0.25583e+00_rb,0.30694e+00_rb,0.35802e+00_rb,0.40917e+00_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.14795e+00_rb,0.13669e+00_rb,0.13564e+00_rb,0.13646e+00_rb,0.15231e+00_rb, &\n        & 0.18310e+00_rb,0.21966e+00_rb,0.25622e+00_rb,0.29284e+00_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.14430e+00_rb,0.13540e+00_rb,0.13550e+00_rb,0.14118e+00_rb,0.16490e+00_rb, &\n        & 0.20238e+00_rb,0.24284e+00_rb,0.28324e+00_rb,0.32374e+00_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.14109e+00_rb,0.13403e+00_rb,0.13585e+00_rb,0.14713e+00_rb,0.17836e+00_rb, &\n        & 0.22126e+00_rb,0.26548e+00_rb,0.30963e+00_rb,0.35392e+00_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.13807e+00_rb,0.13250e+00_rb,0.13707e+00_rb,0.15422e+00_rb,0.19232e+00_rb, &\n        & 0.23967e+00_rb,0.28757e+00_rb,0.33540e+00_rb,0.38338e+00_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.13514e+00_rb,0.13080e+00_rb,0.13878e+00_rb,0.16197e+00_rb,0.20594e+00_rb, &\n        & 0.25719e+00_rb,0.30860e+00_rb,0.35994e+00_rb,0.41142e+00_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.16812e+00_rb,0.15406e+00_rb,0.15051e+00_rb,0.14632e+00_rb,0.15371e+00_rb, &\n        & 0.17730e+00_rb,0.21108e+00_rb,0.24622e+00_rb,0.28143e+00_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.16420e+00_rb,0.15230e+00_rb,0.14950e+00_rb,0.14998e+00_rb,0.16549e+00_rb, &\n        & 0.19706e+00_rb,0.23609e+00_rb,0.27539e+00_rb,0.31477e+00_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.16053e+00_rb,0.15077e+00_rb,0.14903e+00_rb,0.15488e+00_rb,0.17883e+00_rb, &\n        & 0.21740e+00_rb,0.26082e+00_rb,0.30423e+00_rb,0.34775e+00_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.15694e+00_rb,0.14891e+00_rb,0.14991e+00_rb,0.16140e+00_rb,0.19301e+00_rb, &\n        & 0.23753e+00_rb,0.28500e+00_rb,0.33244e+00_rb,0.37999e+00_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.15342e+00_rb,0.14670e+00_rb,0.15145e+00_rb,0.16838e+00_rb,0.20634e+00_rb, &\n        & 0.25567e+00_rb,0.30677e+00_rb,0.35784e+00_rb,0.40903e+00_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.18962e+00_rb,0.17319e+00_rb,0.16709e+00_rb,0.15817e+00_rb,0.15908e+00_rb, &\n        & 0.17425e+00_rb,0.20287e+00_rb,0.23665e+00_rb,0.27049e+00_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.18536e+00_rb,0.17110e+00_rb,0.16526e+00_rb,0.16124e+00_rb,0.16946e+00_rb, &\n        & 0.19394e+00_rb,0.22959e+00_rb,0.26781e+00_rb,0.30611e+00_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.18117e+00_rb,0.16910e+00_rb,0.16400e+00_rb,0.16579e+00_rb,0.18236e+00_rb, &\n        & 0.21466e+00_rb,0.25610e+00_rb,0.29874e+00_rb,0.34146e+00_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.17697e+00_rb,0.16677e+00_rb,0.16446e+00_rb,0.17161e+00_rb,0.19589e+00_rb, &\n        & 0.23479e+00_rb,0.28114e+00_rb,0.32796e+00_rb,0.37484e+00_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.17281e+00_rb,0.16399e+00_rb,0.16565e+00_rb,0.17716e+00_rb,0.20808e+00_rb, &\n        & 0.25277e+00_rb,0.30323e+00_rb,0.35372e+00_rb,0.40429e+00_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.21055e+00_rb,0.19254e+00_rb,0.18359e+00_rb,0.17274e+00_rb,0.17137e+00_rb, &\n        & 0.18167e+00_rb,0.20669e+00_rb,0.24044e+00_rb,0.24447e+00_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.20570e+00_rb,0.19011e+00_rb,0.18168e+00_rb,0.17577e+00_rb,0.18167e+00_rb, &\n        & 0.20144e+00_rb,0.23412e+00_rb,0.27305e+00_rb,0.28987e+00_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.20088e+00_rb,0.18755e+00_rb,0.18057e+00_rb,0.18058e+00_rb,0.19347e+00_rb, &\n        & 0.22124e+00_rb,0.26062e+00_rb,0.30406e+00_rb,0.33203e+00_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.19608e+00_rb,0.18439e+00_rb,0.18082e+00_rb,0.18569e+00_rb,0.20488e+00_rb, &\n        & 0.23927e+00_rb,0.28460e+00_rb,0.33201e+00_rb,0.37191e+00_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.19134e+00_rb,0.18083e+00_rb,0.18137e+00_rb,0.19023e+00_rb,0.21563e+00_rb, &\n        & 0.25670e+00_rb,0.30697e+00_rb,0.35809e+00_rb,0.40924e+00_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.23222e+00_rb,0.21282e+00_rb,0.20059e+00_rb,0.18856e+00_rb,0.18455e+00_rb, &\n        & 0.18954e+00_rb,0.20921e+00_rb,0.24116e+00_rb,0.20678e+00_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.22666e+00_rb,0.20982e+00_rb,0.19853e+00_rb,0.19166e+00_rb,0.19460e+00_rb, &\n        & 0.20805e+00_rb,0.23602e+00_rb,0.27405e+00_rb,0.24947e+00_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.22121e+00_rb,0.20649e+00_rb,0.19756e+00_rb,0.19621e+00_rb,0.20452e+00_rb, &\n        & 0.22597e+00_rb,0.26146e+00_rb,0.30478e+00_rb,0.28725e+00_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.21578e+00_rb,0.20240e+00_rb,0.19746e+00_rb,0.20035e+00_rb,0.21392e+00_rb, &\n        & 0.24302e+00_rb,0.28559e+00_rb,0.33317e+00_rb,0.32415e+00_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.21026e+00_rb,0.19816e+00_rb,0.19729e+00_rb,0.20402e+00_rb,0.22339e+00_rb, &\n        & 0.25983e+00_rb,0.30840e+00_rb,0.35980e+00_rb,0.36272e+00_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.25447e+00_rb,0.23356e+00_rb,0.21785e+00_rb,0.20504e+00_rb,0.19797e+00_rb, &\n        & 0.19705e+00_rb,0.20967e+00_rb,0.23794e+00_rb,0.19657e+00_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.24820e+00_rb,0.22981e+00_rb,0.21561e+00_rb,0.20828e+00_rb,0.20711e+00_rb, &\n        & 0.21347e+00_rb,0.23520e+00_rb,0.27088e+00_rb,0.23547e+00_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.24206e+00_rb,0.22556e+00_rb,0.21467e+00_rb,0.21216e+00_rb,0.21525e+00_rb, &\n        & 0.22938e+00_rb,0.25994e+00_rb,0.30180e+00_rb,0.27108e+00_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.23572e+00_rb,0.22056e+00_rb,0.21408e+00_rb,0.21517e+00_rb,0.22293e+00_rb, &\n        & 0.24576e+00_rb,0.28399e+00_rb,0.33091e+00_rb,0.30909e+00_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.22932e+00_rb,0.21557e+00_rb,0.21287e+00_rb,0.21778e+00_rb,0.23130e+00_rb, &\n        & 0.26208e+00_rb,0.30701e+00_rb,0.35815e+00_rb,0.34602e+00_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.79223e-01_rb,0.75104e-01_rb,0.13846e+00_rb,0.20766e+00_rb,0.27685e+00_rb, &\n        & 0.34601e+00_rb,0.41512e+00_rb,0.48397e+00_rb,0.52564e+00_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.76682e-01_rb,0.76450e-01_rb,0.14571e+00_rb,0.21854e+00_rb,0.29137e+00_rb, &\n        & 0.36417e+00_rb,0.43689e+00_rb,0.50929e+00_rb,0.55383e+00_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.74345e-01_rb,0.78213e-01_rb,0.15207e+00_rb,0.22808e+00_rb,0.30407e+00_rb, &\n        & 0.38004e+00_rb,0.45593e+00_rb,0.53155e+00_rb,0.57851e+00_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.72607e-01_rb,0.80130e-01_rb,0.15758e+00_rb,0.23638e+00_rb,0.31513e+00_rb, &\n        & 0.39385e+00_rb,0.47252e+00_rb,0.55092e+00_rb,0.60005e+00_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.72847e-01_rb,0.82433e-01_rb,0.16249e+00_rb,0.24371e+00_rb,0.32491e+00_rb, &\n        & 0.40606e+00_rb,0.48713e+00_rb,0.56790e+00_rb,0.61880e+00_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.89010e-01_rb,0.84748e-01_rb,0.15528e+00_rb,0.23291e+00_rb,0.31052e+00_rb, &\n        & 0.38812e+00_rb,0.46559e+00_rb,0.54282e+00_rb,0.60189e+00_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.86286e-01_rb,0.86390e-01_rb,0.16350e+00_rb,0.24523e+00_rb,0.32694e+00_rb, &\n        & 0.40865e+00_rb,0.49029e+00_rb,0.57166e+00_rb,0.63436e+00_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.83865e-01_rb,0.88469e-01_rb,0.17076e+00_rb,0.25611e+00_rb,0.34145e+00_rb, &\n        & 0.42675e+00_rb,0.51202e+00_rb,0.59693e+00_rb,0.66276e+00_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.81971e-01_rb,0.90581e-01_rb,0.17733e+00_rb,0.26595e+00_rb,0.35459e+00_rb, &\n        & 0.44319e+00_rb,0.53165e+00_rb,0.61981e+00_rb,0.68802e+00_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.81826e-01_rb,0.93085e-01_rb,0.18319e+00_rb,0.27476e+00_rb,0.36629e+00_rb, &\n        & 0.45781e+00_rb,0.54921e+00_rb,0.64033e+00_rb,0.71080e+00_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.10078e+00_rb,0.96469e-01_rb,0.17126e+00_rb,0.25687e+00_rb,0.34247e+00_rb, &\n        & 0.42804e+00_rb,0.51357e+00_rb,0.59868e+00_rb,0.67473e+00_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.97698e-01_rb,0.98193e-01_rb,0.18058e+00_rb,0.27084e+00_rb,0.36108e+00_rb, &\n        & 0.45128e+00_rb,0.54134e+00_rb,0.63128e+00_rb,0.71182e+00_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.95186e-01_rb,0.10027e+00_rb,0.18871e+00_rb,0.28303e+00_rb,0.37733e+00_rb, &\n        & 0.47160e+00_rb,0.56577e+00_rb,0.65972e+00_rb,0.74408e+00_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.93223e-01_rb,0.10231e+00_rb,0.19621e+00_rb,0.29427e+00_rb,0.39234e+00_rb, &\n        & 0.49035e+00_rb,0.58829e+00_rb,0.68586e+00_rb,0.77383e+00_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.93003e-01_rb,0.10431e+00_rb,0.20302e+00_rb,0.30448e+00_rb,0.40592e+00_rb, &\n        & 0.50734e+00_rb,0.60870e+00_rb,0.70970e+00_rb,0.80084e+00_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.11556e+00_rb,0.11007e+00_rb,0.18689e+00_rb,0.28032e+00_rb,0.37373e+00_rb, &\n        & 0.46710e+00_rb,0.56044e+00_rb,0.65346e+00_rb,0.74264e+00_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.11235e+00_rb,0.11167e+00_rb,0.19754e+00_rb,0.29630e+00_rb,0.39502e+00_rb, &\n        & 0.49371e+00_rb,0.59235e+00_rb,0.69064e+00_rb,0.78516e+00_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.10972e+00_rb,0.11355e+00_rb,0.20696e+00_rb,0.31040e+00_rb,0.41383e+00_rb, &\n        & 0.51721e+00_rb,0.62053e+00_rb,0.72352e+00_rb,0.82248e+00_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.10741e+00_rb,0.11554e+00_rb,0.21557e+00_rb,0.32331e+00_rb,0.43105e+00_rb, &\n        & 0.53874e+00_rb,0.64632e+00_rb,0.75359e+00_rb,0.85679e+00_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.10619e+00_rb,0.11745e+00_rb,0.22327e+00_rb,0.33487e+00_rb,0.44646e+00_rb, &\n        & 0.55799e+00_rb,0.66944e+00_rb,0.78056e+00_rb,0.88741e+00_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.13422e+00_rb,0.12619e+00_rb,0.20125e+00_rb,0.30186e+00_rb,0.40245e+00_rb, &\n        & 0.50302e+00_rb,0.60348e+00_rb,0.70372e+00_rb,0.80253e+00_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.13052e+00_rb,0.12743e+00_rb,0.21345e+00_rb,0.32016e+00_rb,0.42685e+00_rb, &\n        & 0.53351e+00_rb,0.64011e+00_rb,0.74634e+00_rb,0.85136e+00_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.12741e+00_rb,0.12876e+00_rb,0.22450e+00_rb,0.33672e+00_rb,0.44894e+00_rb, &\n        & 0.56113e+00_rb,0.67322e+00_rb,0.78494e+00_rb,0.89542e+00_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.12456e+00_rb,0.13045e+00_rb,0.23454e+00_rb,0.35177e+00_rb,0.46901e+00_rb, &\n        & 0.58622e+00_rb,0.70332e+00_rb,0.82004e+00_rb,0.93535e+00_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.12240e+00_rb,0.13234e+00_rb,0.24346e+00_rb,0.36515e+00_rb,0.48682e+00_rb, &\n        & 0.60842e+00_rb,0.72992e+00_rb,0.85105e+00_rb,0.97074e+00_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.15641e+00_rb,0.14549e+00_rb,0.21406e+00_rb,0.31903e+00_rb,0.42534e+00_rb, &\n        & 0.53165e+00_rb,0.63788e+00_rb,0.74385e+00_rb,0.84964e+00_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.15207e+00_rb,0.14574e+00_rb,0.22708e+00_rb,0.34022e+00_rb,0.45360e+00_rb, &\n        & 0.56697e+00_rb,0.68027e+00_rb,0.79322e+00_rb,0.90603e+00_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.14825e+00_rb,0.14665e+00_rb,0.23979e+00_rb,0.35965e+00_rb,0.47950e+00_rb, &\n        & 0.59932e+00_rb,0.71907e+00_rb,0.83857e+00_rb,0.95773e+00_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.14482e+00_rb,0.14790e+00_rb,0.25144e+00_rb,0.37711e+00_rb,0.50278e+00_rb, &\n        & 0.62841e+00_rb,0.75400e+00_rb,0.87926e+00_rb,0.10043e+01_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.14196e+00_rb,0.14929e+00_rb,0.26158e+00_rb,0.39235e+00_rb,0.52312e+00_rb, &\n        & 0.65390e+00_rb,0.78460e+00_rb,0.91489e+00_rb,0.10450e+01_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.18245e+00_rb,0.16813e+00_rb,0.22831e+00_rb,0.33360e+00_rb,0.44476e+00_rb, &\n        & 0.55591e+00_rb,0.66702e+00_rb,0.77783e+00_rb,0.88903e+00_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.17706e+00_rb,0.16763e+00_rb,0.24144e+00_rb,0.35719e+00_rb,0.47625e+00_rb, &\n        & 0.59524e+00_rb,0.71422e+00_rb,0.83295e+00_rb,0.95194e+00_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.17236e+00_rb,0.16756e+00_rb,0.25360e+00_rb,0.37892e+00_rb,0.50520e+00_rb, &\n        & 0.63143e+00_rb,0.75766e+00_rb,0.88351e+00_rb,0.10099e+01_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.16823e+00_rb,0.16816e+00_rb,0.26586e+00_rb,0.39858e+00_rb,0.53141e+00_rb, &\n        & 0.66420e+00_rb,0.79692e+00_rb,0.92941e+00_rb,0.10623e+01_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.16468e+00_rb,0.16894e+00_rb,0.27725e+00_rb,0.41585e+00_rb,0.55445e+00_rb, &\n        & 0.69298e+00_rb,0.83146e+00_rb,0.96971e+00_rb,0.11082e+01_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.21221e+00_rb,0.19366e+00_rb,0.24501e+00_rb,0.34518e+00_rb,0.46022e+00_rb, &\n        & 0.57522e+00_rb,0.69013e+00_rb,0.80500e+00_rb,0.92024e+00_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.20558e+00_rb,0.19344e+00_rb,0.25798e+00_rb,0.37195e+00_rb,0.49597e+00_rb, &\n        & 0.61989e+00_rb,0.74379e+00_rb,0.86737e+00_rb,0.99166e+00_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.19977e+00_rb,0.19260e+00_rb,0.26963e+00_rb,0.39624e+00_rb,0.52829e+00_rb, &\n        & 0.66032e+00_rb,0.79227e+00_rb,0.92396e+00_rb,0.10564e+01_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.19471e+00_rb,0.19196e+00_rb,0.28135e+00_rb,0.41773e+00_rb,0.55693e+00_rb, &\n        & 0.69614e+00_rb,0.83525e+00_rb,0.97412e+00_rb,0.11137e+01_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.19023e+00_rb,0.19149e+00_rb,0.29229e+00_rb,0.43683e+00_rb,0.58243e+00_rb, &\n        & 0.72800e+00_rb,0.87352e+00_rb,0.10186e+01_rb,0.11647e+01_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.24675e+00_rb,0.22274e+00_rb,0.26456e+00_rb,0.35496e+00_rb,0.47007e+00_rb, &\n        & 0.58755e+00_rb,0.70496e+00_rb,0.82216e+00_rb,0.94015e+00_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.23844e+00_rb,0.22223e+00_rb,0.27692e+00_rb,0.38304e+00_rb,0.51028e+00_rb, &\n        & 0.63780e+00_rb,0.76534e+00_rb,0.89259e+00_rb,0.10206e+01_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.23115e+00_rb,0.22076e+00_rb,0.28808e+00_rb,0.40973e+00_rb,0.54629e+00_rb, &\n        & 0.68281e+00_rb,0.81930e+00_rb,0.95554e+00_rb,0.10926e+01_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.22487e+00_rb,0.21935e+00_rb,0.29872e+00_rb,0.43339e+00_rb,0.57783e+00_rb, &\n        & 0.72230e+00_rb,0.86661e+00_rb,0.10108e+01_rb,0.11557e+01_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.21911e+00_rb,0.21807e+00_rb,0.30914e+00_rb,0.45602e+00_rb,0.60799e+00_rb, &\n        & 0.75991e+00_rb,0.91189e+00_rb,0.10634e+01_rb,0.12161e+01_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.28580e+00_rb,0.25610e+00_rb,0.28839e+00_rb,0.36810e+00_rb,0.47645e+00_rb, &\n        & 0.59554e+00_rb,0.71455e+00_rb,0.83348e+00_rb,0.95290e+00_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.27554e+00_rb,0.25438e+00_rb,0.29985e+00_rb,0.39603e+00_rb,0.52141e+00_rb, &\n        & 0.65175e+00_rb,0.78205e+00_rb,0.91212e+00_rb,0.10429e+01_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.26639e+00_rb,0.25230e+00_rb,0.31000e+00_rb,0.42263e+00_rb,0.56074e+00_rb, &\n        & 0.70092e+00_rb,0.84101e+00_rb,0.98094e+00_rb,0.11215e+01_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.25840e+00_rb,0.24961e+00_rb,0.31933e+00_rb,0.44762e+00_rb,0.59663e+00_rb, &\n        & 0.74572e+00_rb,0.89477e+00_rb,0.10436e+01_rb,0.11932e+01_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.25110e+00_rb,0.24738e+00_rb,0.32882e+00_rb,0.47409e+00_rb,0.63208e+00_rb, &\n        & 0.79011e+00_rb,0.94801e+00_rb,0.11055e+01_rb,0.12642e+01_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.32402e+00_rb,0.29231e+00_rb,0.32114e+00_rb,0.39449e+00_rb,0.49965e+00_rb, &\n        & 0.62359e+00_rb,0.74830e+00_rb,0.87279e+00_rb,0.99780e+00_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.31203e+00_rb,0.28940e+00_rb,0.33009e+00_rb,0.42179e+00_rb,0.54573e+00_rb, &\n        & 0.68214e+00_rb,0.81856e+00_rb,0.95481e+00_rb,0.10916e+01_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.30125e+00_rb,0.28556e+00_rb,0.33820e+00_rb,0.44749e+00_rb,0.58870e+00_rb, &\n        & 0.73583e+00_rb,0.88295e+00_rb,0.10298e+01_rb,0.11773e+01_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.29153e+00_rb,0.28159e+00_rb,0.34632e+00_rb,0.47427e+00_rb,0.63035e+00_rb, &\n        & 0.78788e+00_rb,0.94537e+00_rb,0.11027e+01_rb,0.12607e+01_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.28247e+00_rb,0.27799e+00_rb,0.35496e+00_rb,0.50259e+00_rb,0.66996e+00_rb, &\n        & 0.83740e+00_rb,0.10047e+01_rb,0.11720e+01_rb,0.13400e+01_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.36545e+00_rb,0.33140e+00_rb,0.35636e+00_rb,0.42085e+00_rb,0.52250e+00_rb, &\n        & 0.64898e+00_rb,0.77872e+00_rb,0.90834e+00_rb,0.10384e+01_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.35131e+00_rb,0.32685e+00_rb,0.36231e+00_rb,0.44658e+00_rb,0.56903e+00_rb, &\n        & 0.71087e+00_rb,0.85304e+00_rb,0.99503e+00_rb,0.11374e+01_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.33841e+00_rb,0.32098e+00_rb,0.36825e+00_rb,0.47208e+00_rb,0.61613e+00_rb, &\n        & 0.77016e+00_rb,0.92410e+00_rb,0.10779e+01_rb,0.12323e+01_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.32642e+00_rb,0.31543e+00_rb,0.37504e+00_rb,0.50058e+00_rb,0.66195e+00_rb, &\n        & 0.82736e+00_rb,0.99279e+00_rb,0.11580e+01_rb,0.13239e+01_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.31541e+00_rb,0.31006e+00_rb,0.38358e+00_rb,0.53015e+00_rb,0.70512e+00_rb, &\n        & 0.88131e+00_rb,0.10574e+01_rb,0.12335e+01_rb,0.14101e+01_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.40964e+00_rb,0.37314e+00_rb,0.39372e+00_rb,0.44813e+00_rb,0.54521e+00_rb, &\n        & 0.67332e+00_rb,0.80793e+00_rb,0.94247e+00_rb,0.10773e+01_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.39277e+00_rb,0.36624e+00_rb,0.39629e+00_rb,0.47194e+00_rb,0.59295e+00_rb, &\n        & 0.73949e+00_rb,0.88734e+00_rb,0.10350e+01_rb,0.11832e+01_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.37714e+00_rb,0.35816e+00_rb,0.39962e+00_rb,0.49769e+00_rb,0.64296e+00_rb, &\n        & 0.80367e+00_rb,0.96435e+00_rb,0.11249e+01_rb,0.12860e+01_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.36268e+00_rb,0.35049e+00_rb,0.40459e+00_rb,0.52725e+00_rb,0.69174e+00_rb, &\n        & 0.86463e+00_rb,0.10374e+01_rb,0.12101e+01_rb,0.13834e+01_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.34948e+00_rb,0.34295e+00_rb,0.41358e+00_rb,0.55736e+00_rb,0.73767e+00_rb, &\n        & 0.92205e+00_rb,0.11064e+01_rb,0.12905e+01_rb,0.14753e+01_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.90320e-01_rb,0.86361e-01_rb,0.17271e+00_rb,0.25905e+00_rb,0.34536e+00_rb, &\n        & 0.43163e+00_rb,0.51777e+00_rb,0.60344e+00_rb,0.64541e+00_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.88026e-01_rb,0.92415e-01_rb,0.18482e+00_rb,0.27721e+00_rb,0.36957e+00_rb, &\n        & 0.46188e+00_rb,0.55406e+00_rb,0.64572e+00_rb,0.69076e+00_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.85829e-01_rb,0.97954e-01_rb,0.19590e+00_rb,0.29382e+00_rb,0.39172e+00_rb, &\n        & 0.48957e+00_rb,0.58728e+00_rb,0.68449e+00_rb,0.73223e+00_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.83674e-01_rb,0.10298e+00_rb,0.20595e+00_rb,0.30890e+00_rb,0.41183e+00_rb, &\n        & 0.51469e+00_rb,0.61741e+00_rb,0.71956e+00_rb,0.77014e+00_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.84304e-01_rb,0.10756e+00_rb,0.21511e+00_rb,0.32264e+00_rb,0.43014e+00_rb, &\n        & 0.53758e+00_rb,0.64487e+00_rb,0.75164e+00_rb,0.80439e+00_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.99611e-01_rb,0.10121e+00_rb,0.20241e+00_rb,0.30359e+00_rb,0.40479e+00_rb, &\n        & 0.50590e+00_rb,0.60686e+00_rb,0.70732e+00_rb,0.77453e+00_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.97224e-01_rb,0.10870e+00_rb,0.21739e+00_rb,0.32607e+00_rb,0.43471e+00_rb, &\n        & 0.54336e+00_rb,0.65181e+00_rb,0.75967e+00_rb,0.83199e+00_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.94894e-01_rb,0.11558e+00_rb,0.23114e+00_rb,0.34669e+00_rb,0.46220e+00_rb, &\n        & 0.57772e+00_rb,0.69302e+00_rb,0.80771e+00_rb,0.88476e+00_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.92656e-01_rb,0.12184e+00_rb,0.24366e+00_rb,0.36546e+00_rb,0.48723e+00_rb, &\n        & 0.60893e+00_rb,0.73046e+00_rb,0.85132e+00_rb,0.93269e+00_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.93593e-01_rb,0.12749e+00_rb,0.25497e+00_rb,0.38243e+00_rb,0.50985e+00_rb, &\n        & 0.63721e+00_rb,0.76438e+00_rb,0.89083e+00_rb,0.97622e+00_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.11521e+00_rb,0.11614e+00_rb,0.23226e+00_rb,0.34836e+00_rb,0.46443e+00_rb, &\n        & 0.58044e+00_rb,0.69629e+00_rb,0.81149e+00_rb,0.90951e+00_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.11222e+00_rb,0.12555e+00_rb,0.25108e+00_rb,0.37659e+00_rb,0.50206e+00_rb, &\n        & 0.62747e+00_rb,0.75258e+00_rb,0.87709e+00_rb,0.98316e+00_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.10948e+00_rb,0.13410e+00_rb,0.26819e+00_rb,0.40226e+00_rb,0.53629e+00_rb, &\n        & 0.67035e+00_rb,0.80421e+00_rb,0.93726e+00_rb,0.10505e+01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.10697e+00_rb,0.14195e+00_rb,0.28389e+00_rb,0.42580e+00_rb,0.56768e+00_rb, &\n        & 0.70947e+00_rb,0.85107e+00_rb,0.99187e+00_rb,0.11120e+01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.10462e+00_rb,0.14901e+00_rb,0.29800e+00_rb,0.44697e+00_rb,0.59590e+00_rb, &\n        & 0.74474e+00_rb,0.89338e+00_rb,0.10415e+01_rb,0.11678e+01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.13825e+00_rb,0.13238e+00_rb,0.26314e+00_rb,0.39468e+00_rb,0.52618e+00_rb, &\n        & 0.65761e+00_rb,0.78893e+00_rb,0.91946e+00_rb,0.10423e+01_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.13437e+00_rb,0.14320e+00_rb,0.28638e+00_rb,0.42954e+00_rb,0.57266e+00_rb, &\n        & 0.71574e+00_rb,0.85868e+00_rb,0.10008e+01_rb,0.11347e+01_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.13067e+00_rb,0.15392e+00_rb,0.30782e+00_rb,0.46170e+00_rb,0.61554e+00_rb, &\n        & 0.76929e+00_rb,0.92283e+00_rb,0.10757e+01_rb,0.12195e+01_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.12733e+00_rb,0.16364e+00_rb,0.32725e+00_rb,0.49085e+00_rb,0.65439e+00_rb, &\n        & 0.81785e+00_rb,0.98125e+00_rb,0.11437e+01_rb,0.12968e+01_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.12429e+00_rb,0.17242e+00_rb,0.34483e+00_rb,0.51721e+00_rb,0.68954e+00_rb, &\n        & 0.86178e+00_rb,0.10339e+01_rb,0.12053e+01_rb,0.13667e+01_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.16714e+00_rb,0.15294e+00_rb,0.29770e+00_rb,0.44651e+00_rb,0.59528e+00_rb, &\n        & 0.74397e+00_rb,0.89246e+00_rb,0.10402e+01_rb,0.11846e+01_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.16248e+00_rb,0.16289e+00_rb,0.32569e+00_rb,0.48850e+00_rb,0.65127e+00_rb, &\n        & 0.81396e+00_rb,0.97625e+00_rb,0.11381e+01_rb,0.12962e+01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.15803e+00_rb,0.17580e+00_rb,0.35158e+00_rb,0.52733e+00_rb,0.70303e+00_rb, &\n        & 0.87864e+00_rb,0.10540e+01_rb,0.12284e+01_rb,0.13993e+01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.15368e+00_rb,0.18757e+00_rb,0.37512e+00_rb,0.56264e+00_rb,0.75011e+00_rb, &\n        & 0.93747e+00_rb,0.11247e+01_rb,0.13108e+01_rb,0.14933e+01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.14943e+00_rb,0.19824e+00_rb,0.39645e+00_rb,0.59477e+00_rb,0.79303e+00_rb, &\n        & 0.99112e+00_rb,0.11890e+01_rb,0.13858e+01_rb,0.15783e+01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.20217e+00_rb,0.17926e+00_rb,0.33507e+00_rb,0.50257e+00_rb,0.67002e+00_rb, &\n        & 0.83741e+00_rb,0.10046e+01_rb,0.11708e+01_rb,0.13365e+01_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.19655e+00_rb,0.18668e+00_rb,0.36910e+00_rb,0.55360e+00_rb,0.73806e+00_rb, &\n        & 0.92245e+00_rb,0.11065e+01_rb,0.12896e+01_rb,0.14724e+01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.19100e+00_rb,0.20029e+00_rb,0.40054e+00_rb,0.60077e+00_rb,0.80095e+00_rb, &\n        & 0.10010e+01_rb,0.12008e+01_rb,0.13997e+01_rb,0.15979e+01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.18556e+00_rb,0.21465e+00_rb,0.42926e+00_rb,0.64385e+00_rb,0.85838e+00_rb, &\n        & 0.10728e+01_rb,0.12869e+01_rb,0.15000e+01_rb,0.17126e+01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.18024e+00_rb,0.22760e+00_rb,0.45517e+00_rb,0.68271e+00_rb,0.91019e+00_rb, &\n        & 0.11375e+01_rb,0.13647e+01_rb,0.15907e+01_rb,0.18161e+01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.24417e+00_rb,0.21368e+00_rb,0.37507e+00_rb,0.56256e+00_rb,0.75006e+00_rb, &\n        & 0.93742e+00_rb,0.11245e+01_rb,0.13107e+01_rb,0.14982e+01_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.23715e+00_rb,0.21661e+00_rb,0.41650e+00_rb,0.62470e+00_rb,0.83285e+00_rb, &\n        & 0.10409e+01_rb,0.12487e+01_rb,0.14555e+01_rb,0.16638e+01_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.23022e+00_rb,0.22856e+00_rb,0.45485e+00_rb,0.68222e+00_rb,0.90954e+00_rb, &\n        & 0.11367e+01_rb,0.13637e+01_rb,0.15896e+01_rb,0.18170e+01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.22335e+00_rb,0.24491e+00_rb,0.48979e+00_rb,0.73464e+00_rb,0.97947e+00_rb, &\n        & 0.12241e+01_rb,0.14686e+01_rb,0.17118e+01_rb,0.19566e+01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.21655e+00_rb,0.26068e+00_rb,0.52133e+00_rb,0.78194e+00_rb,0.10425e+01_rb, &\n        & 0.13029e+01_rb,0.15630e+01_rb,0.18220e+01_rb,0.20827e+01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.29541e+00_rb,0.25848e+00_rb,0.41687e+00_rb,0.62527e+00_rb,0.83361e+00_rb, &\n        & 0.10419e+01_rb,0.12499e+01_rb,0.14571e+01_rb,0.16668e+01_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.28549e+00_rb,0.25449e+00_rb,0.46724e+00_rb,0.70082e+00_rb,0.93434e+00_rb, &\n        & 0.11678e+01_rb,0.14009e+01_rb,0.16328e+01_rb,0.18680e+01_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.27625e+00_rb,0.26285e+00_rb,0.51364e+00_rb,0.77040e+00_rb,0.10271e+01_rb, &\n        & 0.12838e+01_rb,0.15402e+01_rb,0.17956e+01_rb,0.20538e+01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.26742e+00_rb,0.27883e+00_rb,0.55601e+00_rb,0.83395e+00_rb,0.11118e+01_rb, &\n        & 0.13896e+01_rb,0.16670e+01_rb,0.19436e+01_rb,0.22230e+01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.25873e+00_rb,0.29706e+00_rb,0.59410e+00_rb,0.89109e+00_rb,0.11880e+01_rb, &\n        & 0.14848e+01_rb,0.17812e+01_rb,0.20764e+01_rb,0.23753e+01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.35727e+00_rb,0.31262e+00_rb,0.45859e+00_rb,0.68783e+00_rb,0.91710e+00_rb, &\n        & 0.11462e+01_rb,0.13749e+01_rb,0.16027e+01_rb,0.18342e+01_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.34378e+00_rb,0.30157e+00_rb,0.51912e+00_rb,0.77863e+00_rb,0.10382e+01_rb, &\n        & 0.12975e+01_rb,0.15566e+01_rb,0.18147e+01_rb,0.20764e+01_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.33111e+00_rb,0.30494e+00_rb,0.57506e+00_rb,0.86254e+00_rb,0.11500e+01_rb, &\n        & 0.14374e+01_rb,0.17244e+01_rb,0.20104e+01_rb,0.23002e+01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.31901e+00_rb,0.31860e+00_rb,0.62597e+00_rb,0.93889e+00_rb,0.12519e+01_rb, &\n        & 0.15648e+01_rb,0.18772e+01_rb,0.21885e+01_rb,0.25042e+01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.30738e+00_rb,0.33686e+00_rb,0.67173e+00_rb,0.10075e+01_rb,0.13433e+01_rb, &\n        & 0.16788e+01_rb,0.20142e+01_rb,0.23482e+01_rb,0.26866e+01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.42900e+00_rb,0.37537e+00_rb,0.50742e+00_rb,0.76107e+00_rb,0.10147e+01_rb, &\n        & 0.12682e+01_rb,0.15216e+01_rb,0.17737e+01_rb,0.20298e+01_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.41120e+00_rb,0.35980e+00_rb,0.57626e+00_rb,0.86440e+00_rb,0.11524e+01_rb, &\n        & 0.14403e+01_rb,0.17281e+01_rb,0.20148e+01_rb,0.23052e+01_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.39435e+00_rb,0.35582e+00_rb,0.64201e+00_rb,0.96295e+00_rb,0.12838e+01_rb, &\n        & 0.16046e+01_rb,0.19250e+01_rb,0.22444e+01_rb,0.25680e+01_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.37835e+00_rb,0.36721e+00_rb,0.70220e+00_rb,0.10532e+01_rb,0.14042e+01_rb, &\n        & 0.17550e+01_rb,0.21055e+01_rb,0.24551e+01_rb,0.28089e+01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.36302e+00_rb,0.38402e+00_rb,0.75599e+00_rb,0.11339e+01_rb,0.15118e+01_rb, &\n        & 0.18894e+01_rb,0.22669e+01_rb,0.26429e+01_rb,0.30243e+01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.50130e+00_rb,0.43864e+00_rb,0.59754e+00_rb,0.89626e+00_rb,0.11949e+01_rb, &\n        & 0.14934e+01_rb,0.17919e+01_rb,0.20890e+01_rb,0.23902e+01_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.47862e+00_rb,0.41971e+00_rb,0.67375e+00_rb,0.10106e+01_rb,0.13473e+01_rb, &\n        & 0.16840e+01_rb,0.20203e+01_rb,0.23553e+01_rb,0.26950e+01_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.45729e+00_rb,0.41739e+00_rb,0.74475e+00_rb,0.11171e+01_rb,0.14893e+01_rb, &\n        & 0.18615e+01_rb,0.22335e+01_rb,0.26038e+01_rb,0.29786e+01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.43691e+00_rb,0.42957e+00_rb,0.80967e+00_rb,0.12144e+01_rb,0.16191e+01_rb, &\n        & 0.20236e+01_rb,0.24280e+01_rb,0.28308e+01_rb,0.32389e+01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.41748e+00_rb,0.44621e+00_rb,0.86800e+00_rb,0.13019e+01_rb,0.17360e+01_rb, &\n        & 0.21698e+01_rb,0.26031e+01_rb,0.30355e+01_rb,0.34723e+01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.58052e+00_rb,0.50796e+00_rb,0.69775e+00_rb,0.10466e+01_rb,0.13954e+01_rb, &\n        & 0.17440e+01_rb,0.20924e+01_rb,0.24394e+01_rb,0.27908e+01_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.55207e+00_rb,0.48627e+00_rb,0.78177e+00_rb,0.11726e+01_rb,0.15635e+01_rb, &\n        & 0.19543e+01_rb,0.23447e+01_rb,0.27336e+01_rb,0.31273e+01_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.52503e+00_rb,0.48543e+00_rb,0.85881e+00_rb,0.12881e+01_rb,0.17174e+01_rb, &\n        & 0.21467e+01_rb,0.25754e+01_rb,0.30027e+01_rb,0.34355e+01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.49945e+00_rb,0.49746e+00_rb,0.92780e+00_rb,0.13917e+01_rb,0.18554e+01_rb, &\n        & 0.23191e+01_rb,0.27823e+01_rb,0.32446e+01_rb,0.37108e+01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.47536e+00_rb,0.51344e+00_rb,0.98885e+00_rb,0.14832e+01_rb,0.19776e+01_rb, &\n        & 0.24717e+01_rb,0.29655e+01_rb,0.34576e+01_rb,0.39563e+01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.66560e+00_rb,0.58240e+00_rb,0.80598e+00_rb,0.12089e+01_rb,0.16118e+01_rb, &\n        & 0.20145e+01_rb,0.24172e+01_rb,0.28183e+01_rb,0.32240e+01_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.62986e+00_rb,0.55885e+00_rb,0.89794e+00_rb,0.13468e+01_rb,0.17957e+01_rb, &\n        & 0.22443e+01_rb,0.26925e+01_rb,0.31396e+01_rb,0.35914e+01_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.59613e+00_rb,0.55868e+00_rb,0.98065e+00_rb,0.14709e+01_rb,0.19611e+01_rb, &\n        & 0.24513e+01_rb,0.29409e+01_rb,0.34293e+01_rb,0.39230e+01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.56427e+00_rb,0.56950e+00_rb,0.10539e+01_rb,0.15808e+01_rb,0.21076e+01_rb, &\n        & 0.26342e+01_rb,0.31605e+01_rb,0.36850e+01_rb,0.42159e+01_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.53530e+00_rb,0.58425e+00_rb,0.11174e+01_rb,0.16761e+01_rb,0.22346e+01_rb, &\n        & 0.27933e+01_rb,0.33512e+01_rb,0.39078e+01_rb,0.44703e+01_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.12810e-03_rb,0.12891e-03_rb,0.12890e-03_rb,0.12713e-03_rb,0.12477e-03_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.10653e-03_rb,0.10667e-03_rb,0.10648e-03_rb,0.10473e-03_rb,0.10293e-03_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.90176e-04_rb,0.90077e-04_rb,0.89286e-04_rb,0.87879e-04_rb,0.85987e-04_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.77704e-04_rb,0.77304e-04_rb,0.75879e-04_rb,0.74246e-04_rb,0.72070e-04_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.67183e-04_rb,0.65906e-04_rb,0.64619e-04_rb,0.63000e-04_rb,0.61056e-04_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.58741e-04_rb,0.57649e-04_rb,0.56028e-04_rb,0.54293e-04_rb,0.52506e-04_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.51839e-04_rb,0.50715e-04_rb,0.49053e-04_rb,0.47195e-04_rb,0.45368e-04_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.44321e-04_rb,0.43297e-04_rb,0.41923e-04_rb,0.40298e-04_rb,0.38744e-04_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.37527e-04_rb,0.36516e-04_rb,0.35380e-04_rb,0.34037e-04_rb,0.32951e-04_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.31752e-04_rb,0.30703e-04_rb,0.29586e-04_rb,0.28499e-04_rb,0.27519e-04_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.26638e-04_rb,0.25643e-04_rb,0.24693e-04_rb,0.23832e-04_rb,0.22913e-04_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.22325e-04_rb,0.21480e-04_rb,0.20621e-04_rb,0.19867e-04_rb,0.19066e-04_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.18764e-04_rb,0.17998e-04_rb,0.17269e-04_rb,0.16527e-04_rb,0.15821e-04_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.15650e-04_rb,0.14992e-04_rb,0.14356e-04_rb,0.13710e-04_rb,0.13119e-04_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.13054e-04_rb,0.12477e-04_rb,0.11929e-04_rb,0.11393e-04_rb,0.10948e-04_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.10852e-04_rb,0.10390e-04_rb,0.99195e-05_rb,0.95020e-05_rb,0.91993e-05_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.90990e-05_rb,0.87209e-05_rb,0.83384e-05_rb,0.80029e-05_rb,0.77245e-05_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.77169e-05_rb,0.73662e-05_rb,0.70552e-05_rb,0.68029e-05_rb,0.65749e-05_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.65250e-05_rb,0.62364e-05_rb,0.60172e-05_rb,0.57804e-05_rb,0.55504e-05_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.55167e-05_rb,0.53021e-05_rb,0.51088e-05_rb,0.49113e-05_rb,0.47150e-05_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.47261e-05_rb,0.45530e-05_rb,0.43641e-05_rb,0.41725e-05_rb,0.40077e-05_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.40646e-05_rb,0.39062e-05_rb,0.37472e-05_rb,0.36009e-05_rb,0.34549e-05_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.35479e-05_rb,0.34057e-05_rb,0.32704e-05_rb,0.31420e-05_rb,0.30219e-05_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.31353e-05_rb,0.30270e-05_rb,0.29024e-05_rb,0.27776e-05_rb,0.26600e-05_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.26595e-05_rb,0.25621e-05_rb,0.24646e-05_rb,0.23582e-05_rb,0.22563e-05_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.22468e-05_rb,0.21651e-05_rb,0.20812e-05_rb,0.20043e-05_rb,0.19221e-05_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.19009e-05_rb,0.18335e-05_rb,0.17685e-05_rb,0.17039e-05_rb,0.16406e-05_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.15746e-05_rb,0.15188e-05_rb,0.14669e-05_rb,0.14148e-05_rb,0.13668e-05_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.13001e-05_rb,0.12561e-05_rb,0.12122e-05_rb,0.11718e-05_rb,0.11306e-05_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.10716e-05_rb,0.10380e-05_rb,0.10018e-05_rb,0.96745e-06_rb,0.93475e-06_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.87651e-06_rb,0.85172e-06_rb,0.82453e-06_rb,0.79560e-06_rb,0.77011e-06_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.71565e-06_rb,0.69699e-06_rb,0.67699e-06_rb,0.65403e-06_rb,0.63202e-06_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.58391e-06_rb,0.56946e-06_rb,0.55318e-06_rb,0.53575e-06_rb,0.51774e-06_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.47490e-06_rb,0.46531e-06_rb,0.45175e-06_rb,0.43686e-06_rb,0.42260e-06_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.38718e-06_rb,0.37610e-06_rb,0.36650e-06_rb,0.35580e-06_rb,0.34417e-06_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.31464e-06_rb,0.30494e-06_rb,0.29872e-06_rb,0.29096e-06_rb,0.28230e-06_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.25542e-06_rb,0.24885e-06_rb,0.24314e-06_rb,0.23745e-06_rb,0.23092e-06_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.20741e-06_rb,0.20175e-06_rb,0.19699e-06_rb,0.19305e-06_rb,0.18791e-06_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.16760e-06_rb,0.16406e-06_rb,0.15993e-06_rb,0.15631e-06_rb,0.15327e-06_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.13579e-06_rb,0.13287e-06_rb,0.12985e-06_rb,0.12725e-06_rb,0.12470e-06_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.11006e-06_rb,0.10757e-06_rb,0.10568e-06_rb,0.10314e-06_rb,0.10101e-06_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.88711e-07_rb,0.87131e-07_rb,0.85162e-07_rb,0.83405e-07_rb,0.81585e-07_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.70889e-07_rb,0.69917e-07_rb,0.68692e-07_rb,0.67463e-07_rb,0.66047e-07_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.56659e-07_rb,0.56077e-07_rb,0.55518e-07_rb,0.54462e-07_rb,0.53563e-07_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.45380e-07_rb,0.45159e-07_rb,0.44718e-07_rb,0.44063e-07_rb,0.43116e-07_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.35962e-07_rb,0.36177e-07_rb,0.35997e-07_rb,0.35600e-07_rb,0.34340e-07_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.28578e-07_rb,0.28924e-07_rb,0.28901e-07_rb,0.28176e-07_rb,0.27246e-07_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.63215e-03_rb,0.64756e-03_rb,0.65734e-03_rb,0.66515e-03_rb,0.67077e-03_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.52378e-03_rb,0.53631e-03_rb,0.54485e-03_rb,0.55071e-03_rb,0.55605e-03_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.43777e-03_rb,0.44814e-03_rb,0.45521e-03_rb,0.46124e-03_rb,0.46700e-03_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.37023e-03_rb,0.37869e-03_rb,0.38568e-03_rb,0.39070e-03_rb,0.39760e-03_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.31753e-03_rb,0.32632e-03_rb,0.33254e-03_rb,0.33817e-03_rb,0.34312e-03_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.27580e-03_rb,0.28310e-03_rb,0.28915e-03_rb,0.29488e-03_rb,0.29855e-03_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.24129e-03_rb,0.24697e-03_rb,0.25302e-03_rb,0.25785e-03_rb,0.26137e-03_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.20470e-03_rb,0.21040e-03_rb,0.21552e-03_rb,0.21963e-03_rb,0.22260e-03_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.17290e-03_rb,0.17782e-03_rb,0.18188e-03_rb,0.18513e-03_rb,0.18794e-03_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.14599e-03_rb,0.15063e-03_rb,0.15389e-03_rb,0.15682e-03_rb,0.15965e-03_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.12390e-03_rb,0.12797e-03_rb,0.13071e-03_rb,0.13347e-03_rb,0.13571e-03_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.10553e-03_rb,0.10875e-03_rb,0.11134e-03_rb,0.11351e-03_rb,0.11513e-03_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.90263e-04_rb,0.92560e-04_rb,0.94667e-04_rb,0.96225e-04_rb,0.97041e-04_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.76542e-04_rb,0.78227e-04_rb,0.79755e-04_rb,0.80768e-04_rb,0.81412e-04_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.64562e-04_rb,0.66024e-04_rb,0.67121e-04_rb,0.67878e-04_rb,0.67992e-04_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.54587e-04_rb,0.55668e-04_rb,0.56439e-04_rb,0.56778e-04_rb,0.56649e-04_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.46248e-04_rb,0.46885e-04_rb,0.47469e-04_rb,0.47476e-04_rb,0.47464e-04_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.39084e-04_rb,0.39701e-04_rb,0.39836e-04_rb,0.39919e-04_rb,0.39762e-04_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.33297e-04_rb,0.33670e-04_rb,0.33781e-04_rb,0.33571e-04_rb,0.33418e-04_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.28475e-04_rb,0.28479e-04_rb,0.28352e-04_rb,0.28202e-04_rb,0.28107e-04_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.24023e-04_rb,0.23977e-04_rb,0.23874e-04_rb,0.23858e-04_rb,0.23729e-04_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.20276e-04_rb,0.20314e-04_rb,0.20262e-04_rb,0.20205e-04_rb,0.20013e-04_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.17177e-04_rb,0.17179e-04_rb,0.17181e-04_rb,0.17048e-04_rb,0.16915e-04_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.14586e-04_rb,0.14632e-04_rb,0.14569e-04_rb,0.14465e-04_rb,0.14404e-04_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.12165e-04_rb,0.12220e-04_rb,0.12164e-04_rb,0.12099e-04_rb,0.12036e-04_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.10178e-04_rb,0.10224e-04_rb,0.10201e-04_rb,0.10134e-04_rb,0.10060e-04_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.85622e-05_rb,0.85826e-05_rb,0.85520e-05_rb,0.85109e-05_rb,0.84378e-05_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.70263e-05_rb,0.70549e-05_rb,0.70334e-05_rb,0.70000e-05_rb,0.69500e-05_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.57510e-05_rb,0.57749e-05_rb,0.57692e-05_rb,0.57384e-05_rb,0.57121e-05_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.47038e-05_rb,0.47261e-05_rb,0.47278e-05_rb,0.47023e-05_rb,0.46867e-05_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.38249e-05_rb,0.38339e-05_rb,0.38498e-05_rb,0.38364e-05_rb,0.38125e-05_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.30973e-05_rb,0.31120e-05_rb,0.31166e-05_rb,0.31203e-05_rb,0.31022e-05_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.25085e-05_rb,0.25263e-05_rb,0.25293e-05_rb,0.25328e-05_rb,0.25249e-05_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.20261e-05_rb,0.20479e-05_rb,0.20565e-05_rb,0.20575e-05_rb,0.20588e-05_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.16319e-05_rb,0.16639e-05_rb,0.16745e-05_rb,0.16740e-05_rb,0.16759e-05_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.13097e-05_rb,0.13449e-05_rb,0.13611e-05_rb,0.13624e-05_rb,0.13589e-05_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.10521e-05_rb,0.10847e-05_rb,0.11052e-05_rb,0.11102e-05_rb,0.11085e-05_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.84668e-06_rb,0.87235e-06_rb,0.89544e-06_rb,0.90607e-06_rb,0.90616e-06_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.68060e-06_rb,0.70180e-06_rb,0.72187e-06_rb,0.73562e-06_rb,0.73800e-06_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.54634e-06_rb,0.56481e-06_rb,0.58256e-06_rb,0.59543e-06_rb,0.60122e-06_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.43866e-06_rb,0.45577e-06_rb,0.46957e-06_rb,0.48176e-06_rb,0.48940e-06_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.35062e-06_rb,0.36647e-06_rb,0.37935e-06_rb,0.38978e-06_rb,0.39697e-06_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.27883e-06_rb,0.29514e-06_rb,0.30397e-06_rb,0.31251e-06_rb,0.32004e-06_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.22098e-06_rb,0.23550e-06_rb,0.24289e-06_rb,0.25018e-06_rb,0.25708e-06_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.17295e-06_rb,0.18624e-06_rb,0.19332e-06_rb,0.19934e-06_rb,0.20587e-06_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.13623e-06_rb,0.14680e-06_rb,0.15403e-06_rb,0.15912e-06_rb,0.16499e-06_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.10864e-06_rb,0.11680e-06_rb,0.12353e-06_rb,0.12840e-06_rb,0.13352e-06_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.21069e-02_rb,0.21571e-02_rb,0.21943e-02_rb,0.22061e-02_rb,0.22124e-02_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.17411e-02_rb,0.17833e-02_rb,0.18097e-02_rb,0.18225e-02_rb,0.18251e-02_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.14440e-02_rb,0.14790e-02_rb,0.14963e-02_rb,0.15066e-02_rb,0.15066e-02_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.11998e-02_rb,0.12261e-02_rb,0.12398e-02_rb,0.12500e-02_rb,0.12487e-02_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.99980e-03_rb,0.10202e-02_rb,0.10332e-02_rb,0.10399e-02_rb,0.10392e-02_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.83805e-03_rb,0.85629e-03_rb,0.86827e-03_rb,0.87303e-03_rb,0.87540e-03_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.70743e-03_rb,0.72381e-03_rb,0.73251e-03_rb,0.73550e-03_rb,0.73931e-03_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.59348e-03_rb,0.60572e-03_rb,0.61137e-03_rb,0.61496e-03_rb,0.61761e-03_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.49556e-03_rb,0.50488e-03_rb,0.50987e-03_rb,0.51421e-03_rb,0.51581e-03_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.41461e-03_rb,0.42145e-03_rb,0.42584e-03_rb,0.42969e-03_rb,0.43055e-03_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.34683e-03_rb,0.35181e-03_rb,0.35660e-03_rb,0.35911e-03_rb,0.35958e-03_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.29004e-03_rb,0.29383e-03_rb,0.29787e-03_rb,0.29964e-03_rb,0.30042e-03_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.24146e-03_rb,0.24561e-03_rb,0.24879e-03_rb,0.25053e-03_rb,0.25134e-03_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.20160e-03_rb,0.20537e-03_rb,0.20774e-03_rb,0.20928e-03_rb,0.21023e-03_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.16916e-03_rb,0.17226e-03_rb,0.17386e-03_rb,0.17529e-03_rb,0.17634e-03_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.14183e-03_rb,0.14414e-03_rb,0.14604e-03_rb,0.14741e-03_rb,0.14844e-03_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.11954e-03_rb,0.12161e-03_rb,0.12286e-03_rb,0.12386e-03_rb,0.12448e-03_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.10067e-03_rb,0.10205e-03_rb,0.10331e-03_rb,0.10409e-03_rb,0.10476e-03_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.85014e-04_rb,0.86248e-04_rb,0.87024e-04_rb,0.87958e-04_rb,0.88579e-04_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.71930e-04_rb,0.73074e-04_rb,0.73985e-04_rb,0.74934e-04_rb,0.74848e-04_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.61205e-04_rb,0.62259e-04_rb,0.63209e-04_rb,0.63383e-04_rb,0.63466e-04_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.52046e-04_rb,0.52896e-04_rb,0.53420e-04_rb,0.53516e-04_rb,0.53755e-04_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.44380e-04_rb,0.45121e-04_rb,0.45277e-04_rb,0.45604e-04_rb,0.45761e-04_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.38058e-04_rb,0.38409e-04_rb,0.38657e-04_rb,0.38813e-04_rb,0.38628e-04_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.31735e-04_rb,0.31990e-04_rb,0.32199e-04_rb,0.32288e-04_rb,0.32179e-04_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.26378e-04_rb,0.26667e-04_rb,0.26778e-04_rb,0.26840e-04_rb,0.26760e-04_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.21949e-04_rb,0.22195e-04_rb,0.22340e-04_rb,0.22330e-04_rb,0.22281e-04_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.18001e-04_rb,0.18209e-04_rb,0.18338e-04_rb,0.18376e-04_rb,0.18309e-04_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.14715e-04_rb,0.14906e-04_rb,0.15025e-04_rb,0.15098e-04_rb,0.15026e-04_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.12019e-04_rb,0.12197e-04_rb,0.12312e-04_rb,0.12380e-04_rb,0.12346e-04_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.97566e-05_rb,0.99318e-05_rb,0.10036e-04_rb,0.10096e-04_rb,0.10118e-04_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.78810e-05_rb,0.80716e-05_rb,0.81637e-05_rb,0.82202e-05_rb,0.82608e-05_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.63541e-05_rb,0.65171e-05_rb,0.66330e-05_rb,0.66977e-05_rb,0.67239e-05_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.51077e-05_rb,0.52428e-05_rb,0.53636e-05_rb,0.54363e-05_rb,0.54693e-05_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.40883e-05_rb,0.42196e-05_rb,0.43199e-05_rb,0.44074e-05_rb,0.44462e-05_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.32909e-05_rb,0.33941e-05_rb,0.34746e-05_rb,0.35546e-05_rb,0.36089e-05_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.26401e-05_rb,0.27269e-05_rb,0.28003e-05_rb,0.28616e-05_rb,0.29188e-05_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.21222e-05_rb,0.22032e-05_rb,0.22638e-05_rb,0.23127e-05_rb,0.23603e-05_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.17056e-05_rb,0.17838e-05_rb,0.18386e-05_rb,0.18804e-05_rb,0.19134e-05_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.13662e-05_rb,0.14333e-05_rb,0.14855e-05_rb,0.15238e-05_rb,0.15521e-05_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.10889e-05_rb,0.11445e-05_rb,0.11955e-05_rb,0.12300e-05_rb,0.12560e-05_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.86251e-06_rb,0.91556e-06_rb,0.95999e-06_rb,0.99454e-06_rb,0.10171e-05_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.68640e-06_rb,0.72868e-06_rb,0.77389e-06_rb,0.80627e-06_rb,0.82696e-06_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.54334e-06_rb,0.58339e-06_rb,0.61953e-06_rb,0.65190e-06_rb,0.67285e-06_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.43336e-06_rb,0.46511e-06_rb,0.49561e-06_rb,0.52337e-06_rb,0.54491e-06_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.34428e-06_rb,0.37236e-06_rb,0.39687e-06_rb,0.42017e-06_rb,0.43790e-06_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.27883e-06_rb,0.30237e-06_rb,0.32096e-06_rb,0.33978e-06_rb,0.35485e-06_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.52806e-02_rb,0.53551e-02_rb,0.53836e-02_rb,0.53810e-02_rb,0.53413e-02_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.43594e-02_rb,0.44114e-02_rb,0.44268e-02_rb,0.44183e-02_rb,0.43877e-02_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.36080e-02_rb,0.36421e-02_rb,0.36603e-02_rb,0.36540e-02_rb,0.36307e-02_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.30007e-02_rb,0.30324e-02_rb,0.30479e-02_rb,0.30377e-02_rb,0.30175e-02_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.25113e-02_rb,0.25415e-02_rb,0.25489e-02_rb,0.25428e-02_rb,0.25281e-02_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.21119e-02_rb,0.21340e-02_rb,0.21396e-02_rb,0.21381e-02_rb,0.21232e-02_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.17705e-02_rb,0.17884e-02_rb,0.17942e-02_rb,0.17931e-02_rb,0.17819e-02_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.14714e-02_rb,0.14854e-02_rb,0.14921e-02_rb,0.14920e-02_rb,0.14874e-02_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.12224e-02_rb,0.12349e-02_rb,0.12432e-02_rb,0.12411e-02_rb,0.12395e-02_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.10170e-02_rb,0.10281e-02_rb,0.10319e-02_rb,0.10310e-02_rb,0.10286e-02_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.84681e-03_rb,0.85484e-03_rb,0.85517e-03_rb,0.85545e-03_rb,0.85571e-03_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.70330e-03_rb,0.70875e-03_rb,0.71078e-03_rb,0.71261e-03_rb,0.71112e-03_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.58481e-03_rb,0.58870e-03_rb,0.59157e-03_rb,0.59305e-03_rb,0.59234e-03_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.48640e-03_rb,0.49044e-03_rb,0.49395e-03_rb,0.49468e-03_rb,0.49466e-03_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.40472e-03_rb,0.40915e-03_rb,0.41235e-03_rb,0.41278e-03_rb,0.41345e-03_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.33826e-03_rb,0.34205e-03_rb,0.34364e-03_rb,0.34480e-03_rb,0.34528e-03_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.28308e-03_rb,0.28627e-03_rb,0.28792e-03_rb,0.28910e-03_rb,0.28958e-03_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.23759e-03_rb,0.23994e-03_rb,0.24196e-03_rb,0.24295e-03_rb,0.24270e-03_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.19993e-03_rb,0.20202e-03_rb,0.20390e-03_rb,0.20456e-03_rb,0.20411e-03_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.16851e-03_rb,0.17060e-03_rb,0.17151e-03_rb,0.17169e-03_rb,0.17133e-03_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.14275e-03_rb,0.14392e-03_rb,0.14445e-03_rb,0.14452e-03_rb,0.14399e-03_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.12060e-03_rb,0.12142e-03_rb,0.12181e-03_rb,0.12165e-03_rb,0.12105e-03_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.10168e-03_rb,0.10240e-03_rb,0.10276e-03_rb,0.10261e-03_rb,0.10202e-03_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.85780e-04_rb,0.86636e-04_rb,0.86815e-04_rb,0.86780e-04_rb,0.86722e-04_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.71540e-04_rb,0.72201e-04_rb,0.72422e-04_rb,0.72501e-04_rb,0.72398e-04_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.59609e-04_rb,0.60152e-04_rb,0.60443e-04_rb,0.60540e-04_rb,0.60534e-04_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.49681e-04_rb,0.50194e-04_rb,0.50481e-04_rb,0.50649e-04_rb,0.50643e-04_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.40815e-04_rb,0.41335e-04_rb,0.41565e-04_rb,0.41729e-04_rb,0.41776e-04_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.33476e-04_rb,0.33932e-04_rb,0.34171e-04_rb,0.34301e-04_rb,0.34397e-04_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.27419e-04_rb,0.27824e-04_rb,0.28083e-04_rb,0.28221e-04_rb,0.28296e-04_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.22349e-04_rb,0.22753e-04_rb,0.22975e-04_rb,0.23100e-04_rb,0.23164e-04_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.18197e-04_rb,0.18488e-04_rb,0.18747e-04_rb,0.18878e-04_rb,0.18943e-04_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.14815e-04_rb,0.15081e-04_rb,0.15284e-04_rb,0.15408e-04_rb,0.15493e-04_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.12046e-04_rb,0.12304e-04_rb,0.12476e-04_rb,0.12590e-04_rb,0.12654e-04_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.97834e-05_rb,0.10018e-04_rb,0.10187e-04_rb,0.10295e-04_rb,0.10365e-04_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.79058e-05_rb,0.81583e-05_rb,0.83158e-05_rb,0.84259e-05_rb,0.84791e-05_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.63847e-05_rb,0.66212e-05_rb,0.67735e-05_rb,0.68818e-05_rb,0.69382e-05_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.51619e-05_rb,0.53698e-05_rb,0.55239e-05_rb,0.56230e-05_rb,0.56931e-05_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.41764e-05_rb,0.43546e-05_rb,0.45018e-05_rb,0.45927e-05_rb,0.46609e-05_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.33696e-05_rb,0.35302e-05_rb,0.36585e-05_rb,0.37548e-05_rb,0.38091e-05_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.27142e-05_rb,0.28585e-05_rb,0.29700e-05_rb,0.30632e-05_rb,0.31163e-05_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.21974e-05_rb,0.23176e-05_rb,0.24169e-05_rb,0.24980e-05_rb,0.25555e-05_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.17820e-05_rb,0.18827e-05_rb,0.19647e-05_rb,0.20347e-05_rb,0.20895e-05_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.14445e-05_rb,0.15274e-05_rb,0.15999e-05_rb,0.16558e-05_rb,0.17004e-05_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.11612e-05_rb,0.12390e-05_rb,0.13020e-05_rb,0.13508e-05_rb,0.13881e-05_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.93606e-06_rb,0.10017e-05_rb,0.10598e-05_rb,0.11016e-05_rb,0.11367e-05_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.76682e-06_rb,0.82318e-06_rb,0.87281e-06_rb,0.91208e-06_rb,0.94037e-06_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.12856e-01_rb,0.13079e-01_rb,0.13167e-01_rb,0.13177e-01_rb,0.13097e-01_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.10708e-01_rb,0.10853e-01_rb,0.10911e-01_rb,0.10898e-01_rb,0.10814e-01_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.88690e-02_rb,0.89759e-02_rb,0.90116e-02_rb,0.89730e-02_rb,0.88895e-02_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.73377e-02_rb,0.74116e-02_rb,0.74224e-02_rb,0.73845e-02_rb,0.73097e-02_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.61050e-02_rb,0.61465e-02_rb,0.61522e-02_rb,0.61190e-02_rb,0.60607e-02_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.51170e-02_rb,0.51524e-02_rb,0.51567e-02_rb,0.51299e-02_rb,0.50853e-02_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.42872e-02_rb,0.43210e-02_rb,0.43249e-02_rb,0.43090e-02_rb,0.42772e-02_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.35726e-02_rb,0.35987e-02_rb,0.36030e-02_rb,0.35888e-02_rb,0.35606e-02_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.29687e-02_rb,0.29865e-02_rb,0.29887e-02_rb,0.29805e-02_rb,0.29536e-02_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.24631e-02_rb,0.24766e-02_rb,0.24818e-02_rb,0.24706e-02_rb,0.24511e-02_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.20423e-02_rb,0.20574e-02_rb,0.20622e-02_rb,0.20550e-02_rb,0.20390e-02_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.17009e-02_rb,0.17137e-02_rb,0.17151e-02_rb,0.17066e-02_rb,0.16944e-02_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.14175e-02_rb,0.14281e-02_rb,0.14264e-02_rb,0.14202e-02_rb,0.14101e-02_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.11824e-02_rb,0.11879e-02_rb,0.11852e-02_rb,0.11799e-02_rb,0.11727e-02_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.98538e-03_rb,0.98799e-03_rb,0.98648e-03_rb,0.98258e-03_rb,0.97798e-03_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.82156e-03_rb,0.82317e-03_rb,0.82299e-03_rb,0.82154e-03_rb,0.81913e-03_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.68689e-03_rb,0.68935e-03_rb,0.68992e-03_rb,0.69010e-03_rb,0.68854e-03_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.57658e-03_rb,0.57999e-03_rb,0.58178e-03_rb,0.58209e-03_rb,0.58220e-03_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.48638e-03_rb,0.49049e-03_rb,0.49261e-03_rb,0.49405e-03_rb,0.49565e-03_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.41128e-03_rb,0.41527e-03_rb,0.41847e-03_rb,0.42111e-03_rb,0.42278e-03_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.34942e-03_rb,0.35347e-03_rb,0.35669e-03_rb,0.35970e-03_rb,0.36033e-03_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.29778e-03_rb,0.30183e-03_rb,0.30543e-03_rb,0.30722e-03_rb,0.30756e-03_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.25439e-03_rb,0.25855e-03_rb,0.26145e-03_rb,0.26279e-03_rb,0.26328e-03_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.21688e-03_rb,0.22055e-03_rb,0.22366e-03_rb,0.22472e-03_rb,0.22545e-03_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.18184e-03_rb,0.18525e-03_rb,0.18789e-03_rb,0.18888e-03_rb,0.18981e-03_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.15217e-03_rb,0.15529e-03_rb,0.15752e-03_rb,0.15878e-03_rb,0.15947e-03_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.12738e-03_rb,0.13010e-03_rb,0.13202e-03_rb,0.13325e-03_rb,0.13405e-03_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.10533e-03_rb,0.10771e-03_rb,0.10944e-03_rb,0.11063e-03_rb,0.11132e-03_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.86935e-04_rb,0.89079e-04_rb,0.90576e-04_rb,0.91599e-04_rb,0.92136e-04_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.71757e-04_rb,0.73600e-04_rb,0.74913e-04_rb,0.75823e-04_rb,0.76332e-04_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.58933e-04_rb,0.60448e-04_rb,0.61689e-04_rb,0.62502e-04_rb,0.62968e-04_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.48240e-04_rb,0.49626e-04_rb,0.50671e-04_rb,0.51353e-04_rb,0.51808e-04_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.39365e-04_rb,0.40603e-04_rb,0.41556e-04_rb,0.42201e-04_rb,0.42661e-04_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.32140e-04_rb,0.33199e-04_rb,0.34102e-04_rb,0.34681e-04_rb,0.35122e-04_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.26212e-04_rb,0.27122e-04_rb,0.27914e-04_rb,0.28482e-04_rb,0.28883e-04_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.21367e-04_rb,0.22132e-04_rb,0.22808e-04_rb,0.23366e-04_rb,0.23750e-04_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.17366e-04_rb,0.18036e-04_rb,0.18610e-04_rb,0.19128e-04_rb,0.19501e-04_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.14166e-04_rb,0.14744e-04_rb,0.15227e-04_rb,0.15695e-04_rb,0.16033e-04_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.11520e-04_rb,0.12036e-04_rb,0.12466e-04_rb,0.12850e-04_rb,0.13177e-04_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.93545e-05_rb,0.97967e-05_rb,0.10185e-04_rb,0.10504e-04_rb,0.10808e-04_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.75900e-05_rb,0.79775e-05_rb,0.83066e-05_rb,0.85876e-05_rb,0.88446e-05_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.61841e-05_rb,0.65213e-05_rb,0.67983e-05_rb,0.70299e-05_rb,0.72479e-05_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.50267e-05_rb,0.53142e-05_rb,0.55644e-05_rb,0.57696e-05_rb,0.59449e-05_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.40664e-05_rb,0.43169e-05_rb,0.45344e-05_rb,0.47274e-05_rb,0.48783e-05_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.32881e-05_rb,0.34993e-05_rb,0.36900e-05_rb,0.38580e-05_rb,0.39983e-05_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.26562e-05_rb,0.28386e-05_rb,0.30033e-05_rb,0.31435e-05_rb,0.32655e-05_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.21842e-05_rb,0.23355e-05_rb,0.24742e-05_rb,0.25918e-05_rb,0.26979e-05_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.31802e-01_rb,0.32385e-01_rb,0.32761e-01_rb,0.32924e-01_rb,0.32887e-01_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.27075e-01_rb,0.27526e-01_rb,0.27777e-01_rb,0.27825e-01_rb,0.27714e-01_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.22867e-01_rb,0.23213e-01_rb,0.23346e-01_rb,0.23326e-01_rb,0.23192e-01_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.19243e-01_rb,0.19469e-01_rb,0.19534e-01_rb,0.19508e-01_rb,0.19374e-01_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.16143e-01_rb,0.16291e-01_rb,0.16340e-01_rb,0.16286e-01_rb,0.16140e-01_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.13508e-01_rb,0.13619e-01_rb,0.13632e-01_rb,0.13563e-01_rb,0.13444e-01_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.11360e-01_rb,0.11423e-01_rb,0.11418e-01_rb,0.11354e-01_rb,0.11254e-01_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.95257e-02_rb,0.95677e-02_rb,0.95569e-02_rb,0.94993e-02_rb,0.94147e-02_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.79688e-02_rb,0.80079e-02_rb,0.79930e-02_rb,0.79576e-02_rb,0.78976e-02_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.66527e-02_rb,0.66824e-02_rb,0.66717e-02_rb,0.66442e-02_rb,0.65988e-02_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.55583e-02_rb,0.55741e-02_rb,0.55685e-02_rb,0.55458e-02_rb,0.55136e-02_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.46281e-02_rb,0.46404e-02_rb,0.46354e-02_rb,0.46240e-02_rb,0.46070e-02_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.38479e-02_rb,0.38586e-02_rb,0.38647e-02_rb,0.38587e-02_rb,0.38482e-02_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.31996e-02_rb,0.32113e-02_rb,0.32185e-02_rb,0.32206e-02_rb,0.32221e-02_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.26655e-02_rb,0.26804e-02_rb,0.26909e-02_rb,0.27001e-02_rb,0.27000e-02_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.22269e-02_rb,0.22430e-02_rb,0.22546e-02_rb,0.22636e-02_rb,0.22685e-02_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.18711e-02_rb,0.18853e-02_rb,0.19010e-02_rb,0.19079e-02_rb,0.19146e-02_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.15792e-02_rb,0.15950e-02_rb,0.16049e-02_rb,0.16149e-02_rb,0.16250e-02_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.13390e-02_rb,0.13523e-02_rb,0.13631e-02_rb,0.13762e-02_rb,0.13899e-02_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.11423e-02_rb,0.11552e-02_rb,0.11689e-02_rb,0.11828e-02_rb,0.12002e-02_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.97837e-03_rb,0.99414e-03_rb,0.10078e-02_rb,0.10254e-02_rb,0.10445e-02_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.84508e-03_rb,0.85961e-03_rb,0.87553e-03_rb,0.89474e-03_rb,0.91454e-03_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.73067e-03_rb,0.74643e-03_rb,0.76522e-03_rb,0.78433e-03_rb,0.80547e-03_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.63501e-03_rb,0.65286e-03_rb,0.67124e-03_rb,0.69177e-03_rb,0.71245e-03_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.54302e-03_rb,0.56011e-03_rb,0.57838e-03_rb,0.59932e-03_rb,0.61930e-03_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.46413e-03_rb,0.48141e-03_rb,0.49888e-03_rb,0.51888e-03_rb,0.53851e-03_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.39787e-03_rb,0.41416e-03_rb,0.43137e-03_rb,0.45076e-03_rb,0.46884e-03_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.33542e-03_rb,0.35026e-03_rb,0.36640e-03_rb,0.38421e-03_rb,0.40074e-03_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.28198e-03_rb,0.29533e-03_rb,0.31033e-03_rb,0.32658e-03_rb,0.34246e-03_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.23644e-03_rb,0.24877e-03_rb,0.26248e-03_rb,0.27695e-03_rb,0.29184e-03_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.19698e-03_rb,0.20826e-03_rb,0.22042e-03_rb,0.23357e-03_rb,0.24697e-03_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.16338e-03_rb,0.17334e-03_rb,0.18409e-03_rb,0.19557e-03_rb,0.20792e-03_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.13558e-03_rb,0.14397e-03_rb,0.15333e-03_rb,0.16359e-03_rb,0.17463e-03_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.11191e-03_rb,0.11919e-03_rb,0.12729e-03_rb,0.13624e-03_rb,0.14629e-03_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.91906e-04_rb,0.98189e-04_rb,0.10520e-03_rb,0.11302e-03_rb,0.12177e-03_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.75087e-04_rb,0.80743e-04_rb,0.86708e-04_rb,0.93427e-04_rb,0.10110e-03_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.61186e-04_rb,0.66125e-04_rb,0.71313e-04_rb,0.77107e-04_rb,0.83777e-04_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.49938e-04_rb,0.54303e-04_rb,0.58807e-04_rb,0.63705e-04_rb,0.69474e-04_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.40809e-04_rb,0.44513e-04_rb,0.48369e-04_rb,0.52594e-04_rb,0.57525e-04_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.33309e-04_rb,0.36401e-04_rb,0.39694e-04_rb,0.43295e-04_rb,0.47517e-04_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.27001e-04_rb,0.29637e-04_rb,0.32443e-04_rb,0.35515e-04_rb,0.39073e-04_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.21920e-04_rb,0.24176e-04_rb,0.26587e-04_rb,0.29204e-04_rb,0.32173e-04_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.17840e-04_rb,0.19707e-04_rb,0.21784e-04_rb,0.24000e-04_rb,0.26498e-04_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.14500e-04_rb,0.16042e-04_rb,0.17779e-04_rb,0.19655e-04_rb,0.21743e-04_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.11756e-04_rb,0.13018e-04_rb,0.14458e-04_rb,0.16053e-04_rb,0.17779e-04_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.95229e-05_rb,0.10574e-04_rb,0.11760e-04_rb,0.13107e-04_rb,0.14585e-04_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.78970e-05_rb,0.87821e-05_rb,0.97860e-05_rb,0.10919e-04_rb,0.12187e-04_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.81347e-01_rb,0.83688e-01_rb,0.85307e-01_rb,0.86283e-01_rb,0.87010e-01_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.72041e-01_rb,0.73994e-01_rb,0.75287e-01_rb,0.76180e-01_rb,0.76714e-01_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.63278e-01_rb,0.64818e-01_rb,0.65954e-01_rb,0.66651e-01_rb,0.67143e-01_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.55139e-01_rb,0.56478e-01_rb,0.57384e-01_rb,0.58076e-01_rb,0.58539e-01_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.47894e-01_rb,0.48966e-01_rb,0.49829e-01_rb,0.50447e-01_rb,0.50916e-01_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.41499e-01_rb,0.42507e-01_rb,0.43240e-01_rb,0.43755e-01_rb,0.44135e-01_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.35885e-01_rb,0.36754e-01_rb,0.37403e-01_rb,0.37954e-01_rb,0.38313e-01_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.30699e-01_rb,0.31463e-01_rb,0.32108e-01_rb,0.32586e-01_rb,0.32972e-01_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.26192e-01_rb,0.26846e-01_rb,0.27409e-01_rb,0.27839e-01_rb,0.28217e-01_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.22340e-01_rb,0.22929e-01_rb,0.23404e-01_rb,0.23811e-01_rb,0.24187e-01_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.19095e-01_rb,0.19575e-01_rb,0.20007e-01_rb,0.20410e-01_rb,0.20766e-01_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.16366e-01_rb,0.16771e-01_rb,0.17186e-01_rb,0.17542e-01_rb,0.17949e-01_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.14069e-01_rb,0.14481e-01_rb,0.14832e-01_rb,0.15200e-01_rb,0.15580e-01_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.12162e-01_rb,0.12539e-01_rb,0.12888e-01_rb,0.13247e-01_rb,0.13615e-01_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.10528e-01_rb,0.10892e-01_rb,0.11265e-01_rb,0.11631e-01_rb,0.12012e-01_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.91441e-02_rb,0.95086e-02_rb,0.98896e-02_rb,0.10282e-01_rb,0.10687e-01_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.79938e-02_rb,0.83641e-02_rb,0.87511e-02_rb,0.91674e-02_rb,0.96121e-02_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.70400e-02_rb,0.74172e-02_rb,0.78125e-02_rb,0.82611e-02_rb,0.87532e-02_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.62612e-02_rb,0.66491e-02_rb,0.70836e-02_rb,0.75546e-02_rb,0.80730e-02_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.56090e-02_rb,0.60373e-02_rb,0.65021e-02_rb,0.70140e-02_rb,0.75729e-02_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.51011e-02_rb,0.55473e-02_rb,0.60429e-02_rb,0.66026e-02_rb,0.72780e-02_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.46990e-02_rb,0.51673e-02_rb,0.57072e-02_rb,0.63464e-02_rb,0.71159e-02_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.43314e-02_rb,0.48384e-02_rb,0.54243e-02_rb,0.61639e-02_rb,0.69924e-02_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.39886e-02_rb,0.45262e-02_rb,0.51941e-02_rb,0.59985e-02_rb,0.68708e-02_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.36017e-02_rb,0.41399e-02_rb,0.48219e-02_rb,0.56481e-02_rb,0.65560e-02_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.32617e-02_rb,0.38037e-02_rb,0.45057e-02_rb,0.53485e-02_rb,0.62708e-02_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.29777e-02_rb,0.35364e-02_rb,0.42387e-02_rb,0.50890e-02_rb,0.60544e-02_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.26397e-02_rb,0.31715e-02_rb,0.38573e-02_rb,0.46880e-02_rb,0.56335e-02_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.23227e-02_rb,0.28385e-02_rb,0.34927e-02_rb,0.42880e-02_rb,0.52154e-02_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.20486e-02_rb,0.25378e-02_rb,0.31647e-02_rb,0.39312e-02_rb,0.48261e-02_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.17755e-02_rb,0.22226e-02_rb,0.28140e-02_rb,0.35274e-02_rb,0.43895e-02_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.15269e-02_rb,0.19274e-02_rb,0.24688e-02_rb,0.31407e-02_rb,0.39517e-02_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.13050e-02_rb,0.16697e-02_rb,0.21647e-02_rb,0.27916e-02_rb,0.35423e-02_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.11057e-02_rb,0.14327e-02_rb,0.18777e-02_rb,0.24513e-02_rb,0.31448e-02_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.92448e-03_rb,0.12134e-02_rb,0.16064e-02_rb,0.21237e-02_rb,0.27575e-02_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.76618e-03_rb,0.10179e-02_rb,0.13627e-02_rb,0.18254e-02_rb,0.24067e-02_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.62940e-03_rb,0.85036e-03_rb,0.11489e-02_rb,0.15623e-02_rb,0.20896e-02_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.51855e-03_rb,0.71067e-03_rb,0.97602e-03_rb,0.13414e-02_rb,0.18179e-02_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.42590e-03_rb,0.59305e-03_rb,0.82548e-03_rb,0.11486e-02_rb,0.15798e-02_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.34697e-03_rb,0.49059e-03_rb,0.69535e-03_rb,0.97532e-03_rb,0.13630e-02_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.28092e-03_rb,0.40191e-03_rb,0.57931e-03_rb,0.82673e-03_rb,0.11685e-02_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.22883e-03_rb,0.33102e-03_rb,0.48584e-03_rb,0.70577e-03_rb,0.10069e-02_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.18567e-03_rb,0.27212e-03_rb,0.40629e-03_rb,0.59966e-03_rb,0.86643e-03_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.14981e-03_rb,0.22158e-03_rb,0.33702e-03_rb,0.50672e-03_rb,0.74022e-03_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.11956e-03_rb,0.17899e-03_rb,0.27717e-03_rb,0.42406e-03_rb,0.63003e-03_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.95581e-04_rb,0.14413e-03_rb,0.22637e-03_rb,0.35457e-03_rb,0.53700e-03_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.81967e-04_rb,0.12578e-03_rb,0.20146e-03_rb,0.32061e-03_rb,0.49099e-03_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.22107e+00_rb,0.22673e+00_rb,0.23188e+00_rb,0.23626e+00_rb,0.23937e+00_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.20348e+00_rb,0.20983e+00_rb,0.21521e+00_rb,0.21960e+00_rb,0.22328e+00_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.18724e+00_rb,0.19358e+00_rb,0.19903e+00_rb,0.20382e+00_rb,0.20780e+00_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.17271e+00_rb,0.17902e+00_rb,0.18466e+00_rb,0.18949e+00_rb,0.19358e+00_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.15881e+00_rb,0.16550e+00_rb,0.17139e+00_rb,0.17656e+00_rb,0.18127e+00_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.14632e+00_rb,0.15311e+00_rb,0.15937e+00_rb,0.16532e+00_rb,0.17049e+00_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.13481e+00_rb,0.14215e+00_rb,0.14899e+00_rb,0.15502e+00_rb,0.16068e+00_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.12437e+00_rb,0.13191e+00_rb,0.13890e+00_rb,0.14560e+00_rb,0.15188e+00_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.11481e+00_rb,0.12252e+00_rb,0.12982e+00_rb,0.13710e+00_rb,0.14374e+00_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.10661e+00_rb,0.11453e+00_rb,0.12244e+00_rb,0.12996e+00_rb,0.13720e+00_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.99573e-01_rb,0.10782e+00_rb,0.11598e+00_rb,0.12384e+00_rb,0.13154e+00_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.93585e-01_rb,0.10212e+00_rb,0.11044e+00_rb,0.11870e+00_rb,0.12683e+00_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.88642e-01_rb,0.97342e-01_rb,0.10600e+00_rb,0.11474e+00_rb,0.12338e+00_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.84783e-01_rb,0.93706e-01_rb,0.10275e+00_rb,0.11190e+00_rb,0.12089e+00_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.81924e-01_rb,0.91085e-01_rb,0.10043e+00_rb,0.11011e+00_rb,0.11942e+00_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.79898e-01_rb,0.89495e-01_rb,0.99246e-01_rb,0.10903e+00_rb,0.11866e+00_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.78843e-01_rb,0.88816e-01_rb,0.99112e-01_rb,0.10908e+00_rb,0.11873e+00_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.78672e-01_rb,0.89175e-01_rb,0.99763e-01_rb,0.10991e+00_rb,0.11974e+00_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.79471e-01_rb,0.90393e-01_rb,0.10090e+00_rb,0.11134e+00_rb,0.12148e+00_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.81097e-01_rb,0.92118e-01_rb,0.10299e+00_rb,0.11352e+00_rb,0.12362e+00_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.83219e-01_rb,0.94430e-01_rb,0.10536e+00_rb,0.11619e+00_rb,0.12656e+00_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.85363e-01_rb,0.96707e-01_rb,0.10798e+00_rb,0.11904e+00_rb,0.12986e+00_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.86741e-01_rb,0.98297e-01_rb,0.11004e+00_rb,0.12158e+00_rb,0.13234e+00_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.87017e-01_rb,0.99113e-01_rb,0.11121e+00_rb,0.12302e+00_rb,0.13390e+00_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.85258e-01_rb,0.97671e-01_rb,0.10985e+00_rb,0.12188e+00_rb,0.13289e+00_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.83622e-01_rb,0.96133e-01_rb,0.10847e+00_rb,0.12060e+00_rb,0.13189e+00_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.82148e-01_rb,0.94689e-01_rb,0.10723e+00_rb,0.11944e+00_rb,0.13102e+00_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.78933e-01_rb,0.91494e-01_rb,0.10410e+00_rb,0.11650e+00_rb,0.12816e+00_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.75553e-01_rb,0.88087e-01_rb,0.10066e+00_rb,0.11319e+00_rb,0.12513e+00_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.72215e-01_rb,0.84600e-01_rb,0.97314e-01_rb,0.10990e+00_rb,0.12202e+00_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.68050e-01_rb,0.80392e-01_rb,0.93038e-01_rb,0.10568e+00_rb,0.11811e+00_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.63504e-01_rb,0.75885e-01_rb,0.88427e-01_rb,0.10109e+00_rb,0.11352e+00_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.59117e-01_rb,0.71359e-01_rb,0.83835e-01_rb,0.96461e-01_rb,0.10897e+00_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.54516e-01_rb,0.66547e-01_rb,0.79117e-01_rb,0.91745e-01_rb,0.10426e+00_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.49520e-01_rb,0.61408e-01_rb,0.73788e-01_rb,0.86383e-01_rb,0.98886e-01_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.44727e-01_rb,0.56224e-01_rb,0.68415e-01_rb,0.81094e-01_rb,0.93621e-01_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.40177e-01_rb,0.51146e-01_rb,0.63191e-01_rb,0.75749e-01_rb,0.88249e-01_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.36081e-01_rb,0.46596e-01_rb,0.58341e-01_rb,0.70769e-01_rb,0.83353e-01_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.32278e-01_rb,0.42393e-01_rb,0.53717e-01_rb,0.65898e-01_rb,0.78578e-01_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.28586e-01_rb,0.38352e-01_rb,0.49175e-01_rb,0.61145e-01_rb,0.73682e-01_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.25090e-01_rb,0.34439e-01_rb,0.44807e-01_rb,0.56352e-01_rb,0.68823e-01_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.22080e-01_rb,0.30938e-01_rb,0.40952e-01_rb,0.52101e-01_rb,0.64364e-01_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.19382e-01_rb,0.27719e-01_rb,0.37405e-01_rb,0.48197e-01_rb,0.60044e-01_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.16835e-01_rb,0.24689e-01_rb,0.33908e-01_rb,0.44390e-01_rb,0.55911e-01_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.14459e-01_rb,0.21799e-01_rb,0.30531e-01_rb,0.40642e-01_rb,0.51808e-01_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.12380e-01_rb,0.19213e-01_rb,0.27475e-01_rb,0.37204e-01_rb,0.48065e-01_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.11536e-01_rb,0.18115e-01_rb,0.26160e-01_rb,0.35756e-01_rb,0.46501e-01_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.79231e+00_rb,0.80247e+00_rb,0.81169e+00_rb,0.81859e+00_rb,0.82469e+00_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.76567e+00_rb,0.77861e+00_rb,0.78976e+00_rb,0.79966e+00_rb,0.80754e+00_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.73926e+00_rb,0.75515e+00_rb,0.76982e+00_rb,0.78244e+00_rb,0.79228e+00_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.71308e+00_rb,0.73273e+00_rb,0.74955e+00_rb,0.76355e+00_rb,0.77553e+00_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.68845e+00_rb,0.70973e+00_rb,0.72813e+00_rb,0.74466e+00_rb,0.75909e+00_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.66397e+00_rb,0.68720e+00_rb,0.70872e+00_rb,0.72756e+00_rb,0.74467e+00_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.64097e+00_rb,0.66723e+00_rb,0.69155e+00_rb,0.71362e+00_rb,0.73339e+00_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.62162e+00_rb,0.65070e+00_rb,0.67764e+00_rb,0.70183e+00_rb,0.72348e+00_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.60571e+00_rb,0.63800e+00_rb,0.66649e+00_rb,0.69291e+00_rb,0.71712e+00_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.59651e+00_rb,0.62972e+00_rb,0.66058e+00_rb,0.68832e+00_rb,0.71517e+00_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.58974e+00_rb,0.62545e+00_rb,0.65753e+00_rb,0.68785e+00_rb,0.71519e+00_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.58721e+00_rb,0.62395e+00_rb,0.65801e+00_rb,0.68952e+00_rb,0.71705e+00_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.58931e+00_rb,0.62554e+00_rb,0.66080e+00_rb,0.69275e+00_rb,0.72212e+00_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.59392e+00_rb,0.63108e+00_rb,0.66576e+00_rb,0.69831e+00_rb,0.72831e+00_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.60088e+00_rb,0.63911e+00_rb,0.67310e+00_rb,0.70594e+00_rb,0.73492e+00_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.61058e+00_rb,0.64827e+00_rb,0.68351e+00_rb,0.71436e+00_rb,0.74248e+00_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.62259e+00_rb,0.66086e+00_rb,0.69462e+00_rb,0.72450e+00_rb,0.75205e+00_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.63547e+00_rb,0.67373e+00_rb,0.70715e+00_rb,0.73642e+00_rb,0.76277e+00_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.65060e+00_rb,0.68811e+00_rb,0.72216e+00_rb,0.75104e+00_rb,0.77730e+00_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.66635e+00_rb,0.70367e+00_rb,0.73703e+00_rb,0.76712e+00_rb,0.79450e+00_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.68330e+00_rb,0.72114e+00_rb,0.75529e+00_rb,0.78560e+00_rb,0.81251e+00_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.69895e+00_rb,0.73787e+00_rb,0.77209e+00_rb,0.80355e+00_rb,0.82948e+00_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.71249e+00_rb,0.75244e+00_rb,0.78786e+00_rb,0.82021e+00_rb,0.84807e+00_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.72352e+00_rb,0.76491e+00_rb,0.80192e+00_rb,0.83419e+00_rb,0.86330e+00_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.72315e+00_rb,0.76487e+00_rb,0.80310e+00_rb,0.83637e+00_rb,0.86732e+00_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.72144e+00_rb,0.76571e+00_rb,0.80444e+00_rb,0.83852e+00_rb,0.86991e+00_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.72061e+00_rb,0.76655e+00_rb,0.80661e+00_rb,0.84238e+00_rb,0.87357e+00_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.71071e+00_rb,0.75799e+00_rb,0.79882e+00_rb,0.83566e+00_rb,0.86813e+00_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.69960e+00_rb,0.74652e+00_rb,0.79034e+00_rb,0.82858e+00_rb,0.86201e+00_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.68767e+00_rb,0.73584e+00_rb,0.78080e+00_rb,0.82018e+00_rb,0.85505e+00_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.67181e+00_rb,0.72136e+00_rb,0.76709e+00_rb,0.80803e+00_rb,0.84449e+00_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.65485e+00_rb,0.70505e+00_rb,0.75190e+00_rb,0.79482e+00_rb,0.83260e+00_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.63639e+00_rb,0.68756e+00_rb,0.73541e+00_rb,0.78029e+00_rb,0.82060e+00_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.61610e+00_rb,0.67008e+00_rb,0.71893e+00_rb,0.76424e+00_rb,0.80647e+00_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.59373e+00_rb,0.64972e+00_rb,0.69969e+00_rb,0.74707e+00_rb,0.79068e+00_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.56865e+00_rb,0.62791e+00_rb,0.68069e+00_rb,0.72878e+00_rb,0.77390e+00_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.54350e+00_rb,0.60516e+00_rb,0.66027e+00_rb,0.71007e+00_rb,0.75592e+00_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.51991e+00_rb,0.58375e+00_rb,0.64136e+00_rb,0.69342e+00_rb,0.74093e+00_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.49673e+00_rb,0.56229e+00_rb,0.62200e+00_rb,0.67685e+00_rb,0.72556e+00_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.47256e+00_rb,0.53950e+00_rb,0.60133e+00_rb,0.65838e+00_rb,0.70926e+00_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.44771e+00_rb,0.51552e+00_rb,0.57980e+00_rb,0.63854e+00_rb,0.69202e+00_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.42506e+00_rb,0.49358e+00_rb,0.56009e+00_rb,0.62090e+00_rb,0.67547e+00_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.40218e+00_rb,0.47240e+00_rb,0.53999e+00_rb,0.60216e+00_rb,0.65925e+00_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.37888e+00_rb,0.45101e+00_rb,0.51913e+00_rb,0.58357e+00_rb,0.64216e+00_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.35513e+00_rb,0.42824e+00_rb,0.49765e+00_rb,0.56376e+00_rb,0.62409e+00_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.33174e+00_rb,0.40632e+00_rb,0.47713e+00_rb,0.54453e+00_rb,0.60605e+00_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.32315e+00_rb,0.39758e+00_rb,0.46935e+00_rb,0.53732e+00_rb,0.59942e+00_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.20814e+01_rb,0.20759e+01_rb,0.20660e+01_rb,0.20703e+01_rb,0.20598e+01_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.20861e+01_rb,0.20862e+01_rb,0.20902e+01_rb,0.20921e+01_rb,0.20850e+01_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.20793e+01_rb,0.20969e+01_rb,0.21057e+01_rb,0.21014e+01_rb,0.21089e+01_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.20801e+01_rb,0.20948e+01_rb,0.21151e+01_rb,0.21351e+01_rb,0.21560e+01_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.20802e+01_rb,0.21249e+01_rb,0.21608e+01_rb,0.21842e+01_rb,0.21924e+01_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.20972e+01_rb,0.21483e+01_rb,0.21814e+01_rb,0.21999e+01_rb,0.22088e+01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.21086e+01_rb,0.21513e+01_rb,0.21845e+01_rb,0.22099e+01_rb,0.22261e+01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.21001e+01_rb,0.21488e+01_rb,0.21917e+01_rb,0.22212e+01_rb,0.22394e+01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.20945e+01_rb,0.21494e+01_rb,0.22004e+01_rb,0.22330e+01_rb,0.22537e+01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.20951e+01_rb,0.21635e+01_rb,0.22151e+01_rb,0.22483e+01_rb,0.22658e+01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.21106e+01_rb,0.21802e+01_rb,0.22288e+01_rb,0.22593e+01_rb,0.22769e+01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.21251e+01_rb,0.21978e+01_rb,0.22479e+01_rb,0.22750e+01_rb,0.23069e+01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.21350e+01_rb,0.22127e+01_rb,0.22620e+01_rb,0.22919e+01_rb,0.23205e+01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.21397e+01_rb,0.22248e+01_rb,0.22778e+01_rb,0.23148e+01_rb,0.23338e+01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.21476e+01_rb,0.22244e+01_rb,0.22911e+01_rb,0.23271e+01_rb,0.23529e+01_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.21502e+01_rb,0.22263e+01_rb,0.22854e+01_rb,0.23382e+01_rb,0.23803e+01_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.21444e+01_rb,0.22159e+01_rb,0.22839e+01_rb,0.23447e+01_rb,0.24026e+01_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.21459e+01_rb,0.22135e+01_rb,0.22803e+01_rb,0.23564e+01_rb,0.24114e+01_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.21548e+01_rb,0.22131e+01_rb,0.22785e+01_rb,0.23559e+01_rb,0.23993e+01_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.21820e+01_rb,0.22366e+01_rb,0.23010e+01_rb,0.23445e+01_rb,0.23808e+01_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.22356e+01_rb,0.22739e+01_rb,0.22923e+01_rb,0.23386e+01_rb,0.23842e+01_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.22861e+01_rb,0.23162e+01_rb,0.23352e+01_rb,0.23408e+01_rb,0.23839e+01_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.23385e+01_rb,0.23680e+01_rb,0.23728e+01_rb,0.23741e+01_rb,0.23938e+01_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.23851e+01_rb,0.24072e+01_rb,0.24258e+01_rb,0.24337e+01_rb,0.24446e+01_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.23954e+01_rb,0.24271e+01_rb,0.24525e+01_rb,0.24638e+01_rb,0.24744e+01_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.24138e+01_rb,0.24360e+01_rb,0.24658e+01_rb,0.24931e+01_rb,0.25112e+01_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.24207e+01_rb,0.24415e+01_rb,0.24747e+01_rb,0.25054e+01_rb,0.25446e+01_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.24183e+01_rb,0.24401e+01_rb,0.24836e+01_rb,0.25135e+01_rb,0.25532e+01_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.24046e+01_rb,0.24486e+01_rb,0.24788e+01_rb,0.25037e+01_rb,0.25503e+01_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.23965e+01_rb,0.24448e+01_rb,0.24659e+01_rb,0.25035e+01_rb,0.25440e+01_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.23757e+01_rb,0.24456e+01_rb,0.24672e+01_rb,0.25043e+01_rb,0.25340e+01_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.23417e+01_rb,0.24271e+01_rb,0.24708e+01_rb,0.24891e+01_rb,0.25157e+01_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.23140e+01_rb,0.24224e+01_rb,0.24648e+01_rb,0.24895e+01_rb,0.25109e+01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.22839e+01_rb,0.23815e+01_rb,0.24548e+01_rb,0.24874e+01_rb,0.24983e+01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.22509e+01_rb,0.23585e+01_rb,0.24548e+01_rb,0.24976e+01_rb,0.25158e+01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.22243e+01_rb,0.23182e+01_rb,0.24167e+01_rb,0.24851e+01_rb,0.25144e+01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.21934e+01_rb,0.22838e+01_rb,0.23882e+01_rb,0.24694e+01_rb,0.25145e+01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.21637e+01_rb,0.22591e+01_rb,0.23593e+01_rb,0.24450e+01_rb,0.25097e+01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.21256e+01_rb,0.22383e+01_rb,0.23340e+01_rb,0.24239e+01_rb,0.25025e+01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.20804e+01_rb,0.22090e+01_rb,0.23144e+01_rb,0.24005e+01_rb,0.24803e+01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.20229e+01_rb,0.21712e+01_rb,0.22790e+01_rb,0.23709e+01_rb,0.24497e+01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.19647e+01_rb,0.21430e+01_rb,0.22514e+01_rb,0.23430e+01_rb,0.24343e+01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.19094e+01_rb,0.20990e+01_rb,0.22287e+01_rb,0.23283e+01_rb,0.24126e+01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.18499e+01_rb,0.20432e+01_rb,0.21961e+01_rb,0.22965e+01_rb,0.23921e+01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.17845e+01_rb,0.19868e+01_rb,0.21557e+01_rb,0.22661e+01_rb,0.23666e+01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.17304e+01_rb,0.19324e+01_rb,0.21130e+01_rb,0.22379e+01_rb,0.23344e+01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.17036e+01_rb,0.19129e+01_rb,0.20925e+01_rb,0.22299e+01_rb,0.23291e+01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.28487e+01_rb,0.28532e+01_rb,0.28392e+01_rb,0.28113e+01_rb,0.28077e+01_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.29217e+01_rb,0.29135e+01_rb,0.28970e+01_rb,0.28895e+01_rb,0.29104e+01_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.29720e+01_rb,0.29567e+01_rb,0.29515e+01_rb,0.29771e+01_rb,0.29749e+01_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.29934e+01_rb,0.30029e+01_rb,0.30226e+01_rb,0.30339e+01_rb,0.30204e+01_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.30408e+01_rb,0.30652e+01_rb,0.30797e+01_rb,0.30959e+01_rb,0.31120e+01_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.31059e+01_rb,0.31457e+01_rb,0.31893e+01_rb,0.32154e+01_rb,0.32284e+01_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.31895e+01_rb,0.32505e+01_rb,0.32863e+01_rb,0.32994e+01_rb,0.32949e+01_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.32605e+01_rb,0.33203e+01_rb,0.33389e+01_rb,0.33469e+01_rb,0.33350e+01_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.33097e+01_rb,0.33567e+01_rb,0.33762e+01_rb,0.33842e+01_rb,0.33798e+01_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.33482e+01_rb,0.33901e+01_rb,0.34068e+01_rb,0.34227e+01_rb,0.34010e+01_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.33722e+01_rb,0.34154e+01_rb,0.34438e+01_rb,0.34434e+01_rb,0.34235e+01_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.33951e+01_rb,0.34377e+01_rb,0.34659e+01_rb,0.34658e+01_rb,0.34557e+01_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.34209e+01_rb,0.34720e+01_rb,0.34904e+01_rb,0.34950e+01_rb,0.34725e+01_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.34497e+01_rb,0.34967e+01_rb,0.35233e+01_rb,0.35072e+01_rb,0.34967e+01_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.34791e+01_rb,0.35327e+01_rb,0.35370e+01_rb,0.35122e+01_rb,0.35139e+01_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.35134e+01_rb,0.35471e+01_rb,0.35465e+01_rb,0.35405e+01_rb,0.35525e+01_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.35424e+01_rb,0.35704e+01_rb,0.35632e+01_rb,0.35824e+01_rb,0.35567e+01_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.35629e+01_rb,0.35947e+01_rb,0.35992e+01_rb,0.36011e+01_rb,0.36027e+01_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.35753e+01_rb,0.36045e+01_rb,0.36365e+01_rb,0.36213e+01_rb,0.36310e+01_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.35596e+01_rb,0.36100e+01_rb,0.36333e+01_rb,0.36490e+01_rb,0.36651e+01_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.35241e+01_rb,0.35883e+01_rb,0.36383e+01_rb,0.36740e+01_rb,0.36685e+01_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.35027e+01_rb,0.35491e+01_rb,0.36249e+01_rb,0.36739e+01_rb,0.36810e+01_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.34699e+01_rb,0.35289e+01_rb,0.35926e+01_rb,0.36193e+01_rb,0.36411e+01_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.35153e+01_rb,0.35225e+01_rb,0.35498e+01_rb,0.35989e+01_rb,0.36429e+01_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.35644e+01_rb,0.35488e+01_rb,0.35358e+01_rb,0.35755e+01_rb,0.36247e+01_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.35952e+01_rb,0.35902e+01_rb,0.35685e+01_rb,0.35598e+01_rb,0.35995e+01_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.36371e+01_rb,0.36388e+01_rb,0.36159e+01_rb,0.35751e+01_rb,0.35930e+01_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.36530e+01_rb,0.36611e+01_rb,0.36495e+01_rb,0.35923e+01_rb,0.35985e+01_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.36431e+01_rb,0.36852e+01_rb,0.36606e+01_rb,0.36324e+01_rb,0.35949e+01_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.36510e+01_rb,0.36940e+01_rb,0.36905e+01_rb,0.36729e+01_rb,0.36122e+01_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.36633e+01_rb,0.36955e+01_rb,0.37103e+01_rb,0.36924e+01_rb,0.36526e+01_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.36584e+01_rb,0.36852e+01_rb,0.37131e+01_rb,0.37219e+01_rb,0.36946e+01_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.36636e+01_rb,0.36530e+01_rb,0.37160e+01_rb,0.37197e+01_rb,0.37150e+01_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.36713e+01_rb,0.36779e+01_rb,0.37130e+01_rb,0.37408e+01_rb,0.37431e+01_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.36885e+01_rb,0.36889e+01_rb,0.37012e+01_rb,0.37377e+01_rb,0.37538e+01_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.36735e+01_rb,0.37253e+01_rb,0.37092e+01_rb,0.37311e+01_rb,0.37444e+01_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.36543e+01_rb,0.37300e+01_rb,0.37306e+01_rb,0.37311e+01_rb,0.37688e+01_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.36397e+01_rb,0.37435e+01_rb,0.37659e+01_rb,0.37491e+01_rb,0.37600e+01_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.36124e+01_rb,0.37293e+01_rb,0.37963e+01_rb,0.37839e+01_rb,0.37789e+01_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.35636e+01_rb,0.37078e+01_rb,0.37818e+01_rb,0.38114e+01_rb,0.37775e+01_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.34978e+01_rb,0.36691e+01_rb,0.37922e+01_rb,0.38152e+01_rb,0.38092e+01_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.34749e+01_rb,0.36230e+01_rb,0.37686e+01_rb,0.38328e+01_rb,0.38292e+01_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.34238e+01_rb,0.35883e+01_rb,0.37261e+01_rb,0.38299e+01_rb,0.38488e+01_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.33568e+01_rb,0.35597e+01_rb,0.37073e+01_rb,0.38247e+01_rb,0.38591e+01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.32794e+01_rb,0.35193e+01_rb,0.36712e+01_rb,0.37875e+01_rb,0.38581e+01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.31971e+01_rb,0.34544e+01_rb,0.36268e+01_rb,0.37609e+01_rb,0.38393e+01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.31680e+01_rb,0.34441e+01_rb,0.36338e+01_rb,0.37596e+01_rb,0.38510e+01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.40944e+01_rb,0.40706e+01_rb,0.40738e+01_rb,0.40615e+01_rb,0.40255e+01_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.42568e+01_rb,0.42640e+01_rb,0.42578e+01_rb,0.42281e+01_rb,0.41677e+01_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.44471e+01_rb,0.44460e+01_rb,0.44235e+01_rb,0.43647e+01_rb,0.43107e+01_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.45971e+01_rb,0.45776e+01_rb,0.45277e+01_rb,0.44905e+01_rb,0.45101e+01_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.46780e+01_rb,0.46358e+01_rb,0.46311e+01_rb,0.46380e+01_rb,0.46103e+01_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.47294e+01_rb,0.47444e+01_rb,0.47418e+01_rb,0.47299e+01_rb,0.47059e+01_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.48604e+01_rb,0.48842e+01_rb,0.48819e+01_rb,0.49000e+01_rb,0.48969e+01_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.49979e+01_rb,0.50271e+01_rb,0.50614e+01_rb,0.50783e+01_rb,0.50637e+01_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.51216e+01_rb,0.51841e+01_rb,0.52155e+01_rb,0.52098e+01_rb,0.51706e+01_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.52796e+01_rb,0.53177e+01_rb,0.53275e+01_rb,0.53003e+01_rb,0.52540e+01_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.54021e+01_rb,0.54214e+01_rb,0.54107e+01_rb,0.53770e+01_rb,0.53308e+01_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.54951e+01_rb,0.54954e+01_rb,0.54655e+01_rb,0.54275e+01_rb,0.53548e+01_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.55606e+01_rb,0.55401e+01_rb,0.55126e+01_rb,0.54611e+01_rb,0.53900e+01_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.56084e+01_rb,0.55775e+01_rb,0.55344e+01_rb,0.54935e+01_rb,0.53765e+01_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.56424e+01_rb,0.55975e+01_rb,0.55674e+01_rb,0.55057e+01_rb,0.54137e+01_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.56582e+01_rb,0.56350e+01_rb,0.55811e+01_rb,0.55009e+01_rb,0.54160e+01_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.56833e+01_rb,0.56401e+01_rb,0.55975e+01_rb,0.55109e+01_rb,0.54249e+01_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.57003e+01_rb,0.56620e+01_rb,0.55904e+01_rb,0.55121e+01_rb,0.54542e+01_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.57132e+01_rb,0.56848e+01_rb,0.56091e+01_rb,0.55447e+01_rb,0.55236e+01_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.57800e+01_rb,0.57027e+01_rb,0.56220e+01_rb,0.56024e+01_rb,0.55523e+01_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.57668e+01_rb,0.57069e+01_rb,0.56826e+01_rb,0.56406e+01_rb,0.56224e+01_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.57877e+01_rb,0.57628e+01_rb,0.57465e+01_rb,0.57131e+01_rb,0.56752e+01_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.58053e+01_rb,0.58032e+01_rb,0.57814e+01_rb,0.58008e+01_rb,0.57412e+01_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.57386e+01_rb,0.58034e+01_rb,0.57934e+01_rb,0.57973e+01_rb,0.57760e+01_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.56650e+01_rb,0.57400e+01_rb,0.57795e+01_rb,0.58096e+01_rb,0.57723e+01_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.56068e+01_rb,0.56512e+01_rb,0.57137e+01_rb,0.58154e+01_rb,0.57795e+01_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.55712e+01_rb,0.56156e+01_rb,0.56456e+01_rb,0.57952e+01_rb,0.57768e+01_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.55331e+01_rb,0.55774e+01_rb,0.56049e+01_rb,0.57462e+01_rb,0.57382e+01_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.55579e+01_rb,0.55330e+01_rb,0.55754e+01_rb,0.56805e+01_rb,0.57245e+01_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.55684e+01_rb,0.55372e+01_rb,0.55455e+01_rb,0.56019e+01_rb,0.57291e+01_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.56282e+01_rb,0.55547e+01_rb,0.55863e+01_rb,0.55852e+01_rb,0.56892e+01_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.56429e+01_rb,0.55998e+01_rb,0.55663e+01_rb,0.55662e+01_rb,0.56522e+01_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.56488e+01_rb,0.56642e+01_rb,0.55915e+01_rb,0.56136e+01_rb,0.56176e+01_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.57246e+01_rb,0.57165e+01_rb,0.56557e+01_rb,0.56271e+01_rb,0.56227e+01_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.57406e+01_rb,0.57550e+01_rb,0.57336e+01_rb,0.56616e+01_rb,0.56928e+01_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.57616e+01_rb,0.57715e+01_rb,0.57765e+01_rb,0.57429e+01_rb,0.57151e+01_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.58013e+01_rb,0.57807e+01_rb,0.58014e+01_rb,0.57796e+01_rb,0.57022e+01_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.58611e+01_rb,0.58307e+01_rb,0.58954e+01_rb,0.58904e+01_rb,0.58254e+01_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.59182e+01_rb,0.59013e+01_rb,0.59353e+01_rb,0.59746e+01_rb,0.59215e+01_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.59636e+01_rb,0.59631e+01_rb,0.59638e+01_rb,0.60147e+01_rb,0.60288e+01_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.60261e+01_rb,0.59972e+01_rb,0.59771e+01_rb,0.60154e+01_rb,0.60632e+01_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.60204e+01_rb,0.60805e+01_rb,0.60002e+01_rb,0.60580e+01_rb,0.60854e+01_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.60584e+01_rb,0.61138e+01_rb,0.60917e+01_rb,0.60710e+01_rb,0.61237e+01_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.60402e+01_rb,0.61059e+01_rb,0.61154e+01_rb,0.61008e+01_rb,0.61463e+01_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.60080e+01_rb,0.61076e+01_rb,0.61306e+01_rb,0.61548e+01_rb,0.61892e+01_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.59781e+01_rb,0.61168e+01_rb,0.61621e+01_rb,0.61680e+01_rb,0.62246e+01_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.59824e+01_rb,0.60878e+01_rb,0.61825e+01_rb,0.62179e+01_rb,0.62658e+01_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.62252e+01_rb,0.61003e+01_rb,0.59711e+01_rb,0.58641e+01_rb,0.57820e+01_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.66429e+01_rb,0.64784e+01_rb,0.63526e+01_rb,0.62330e+01_rb,0.61644e+01_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.69743e+01_rb,0.68232e+01_rb,0.67077e+01_rb,0.66230e+01_rb,0.65438e+01_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.72971e+01_rb,0.72050e+01_rb,0.71016e+01_rb,0.69747e+01_rb,0.67726e+01_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.77109e+01_rb,0.75892e+01_rb,0.74253e+01_rb,0.72127e+01_rb,0.70341e+01_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.80450e+01_rb,0.78275e+01_rb,0.75988e+01_rb,0.74227e+01_rb,0.73977e+01_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.81727e+01_rb,0.79248e+01_rb,0.78355e+01_rb,0.77125e+01_rb,0.75391e+01_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.82796e+01_rb,0.81265e+01_rb,0.80271e+01_rb,0.78599e+01_rb,0.77204e+01_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.84685e+01_rb,0.83415e+01_rb,0.82106e+01_rb,0.80317e+01_rb,0.78896e+01_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.86169e+01_rb,0.85255e+01_rb,0.83779e+01_rb,0.82528e+01_rb,0.81573e+01_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.88276e+01_rb,0.86892e+01_rb,0.86001e+01_rb,0.84644e+01_rb,0.83125e+01_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.89834e+01_rb,0.88963e+01_rb,0.87866e+01_rb,0.86675e+01_rb,0.84751e+01_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.91971e+01_rb,0.90977e+01_rb,0.89941e+01_rb,0.88254e+01_rb,0.85750e+01_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.93611e+01_rb,0.92762e+01_rb,0.91306e+01_rb,0.88795e+01_rb,0.86828e+01_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.95231e+01_rb,0.94096e+01_rb,0.91709e+01_rb,0.89786e+01_rb,0.86968e+01_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.96495e+01_rb,0.94564e+01_rb,0.92347e+01_rb,0.89785e+01_rb,0.86180e+01_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.97336e+01_rb,0.94935e+01_rb,0.92561e+01_rb,0.89137e+01_rb,0.86661e+01_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.97605e+01_rb,0.95111e+01_rb,0.92200e+01_rb,0.89355e+01_rb,0.85920e+01_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.97562e+01_rb,0.95167e+01_rb,0.91771e+01_rb,0.88618e+01_rb,0.85414e+01_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.97192e+01_rb,0.94434e+01_rb,0.91403e+01_rb,0.87870e+01_rb,0.85159e+01_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.97162e+01_rb,0.94370e+01_rb,0.90971e+01_rb,0.88239e+01_rb,0.85528e+01_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.96997e+01_rb,0.93448e+01_rb,0.90783e+01_rb,0.87958e+01_rb,0.87225e+01_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.97261e+01_rb,0.93769e+01_rb,0.90457e+01_rb,0.89061e+01_rb,0.87695e+01_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.97573e+01_rb,0.94639e+01_rb,0.92105e+01_rb,0.90277e+01_rb,0.88187e+01_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.98297e+01_rb,0.95424e+01_rb,0.93169e+01_rb,0.90796e+01_rb,0.89104e+01_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.99015e+01_rb,0.96432e+01_rb,0.94039e+01_rb,0.91616e+01_rb,0.89941e+01_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.99137e+01_rb,0.96714e+01_rb,0.94790e+01_rb,0.92092e+01_rb,0.90352e+01_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.99728e+01_rb,0.96872e+01_rb,0.94263e+01_rb,0.92759e+01_rb,0.90690e+01_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.10009e+02_rb,0.96720e+01_rb,0.94529e+01_rb,0.92520e+01_rb,0.90775e+01_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.99394e+01_rb,0.96947e+01_rb,0.94735e+01_rb,0.92670e+01_rb,0.90312e+01_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.98412e+01_rb,0.96685e+01_rb,0.93802e+01_rb,0.91747e+01_rb,0.90019e+01_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.98284e+01_rb,0.96419e+01_rb,0.93576e+01_rb,0.91166e+01_rb,0.88968e+01_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.98765e+01_rb,0.96737e+01_rb,0.94176e+01_rb,0.90811e+01_rb,0.88300e+01_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.99370e+01_rb,0.96739e+01_rb,0.94534e+01_rb,0.91692e+01_rb,0.88574e+01_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.10145e+02_rb,0.99712e+01_rb,0.96675e+01_rb,0.93530e+01_rb,0.89895e+01_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.10395e+02_rb,0.10167e+02_rb,0.99330e+01_rb,0.95943e+01_rb,0.92927e+01_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.10580e+02_rb,0.10365e+02_rb,0.10114e+02_rb,0.98197e+01_rb,0.95303e+01_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.10794e+02_rb,0.10715e+02_rb,0.10421e+02_rb,0.10154e+02_rb,0.98629e+01_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.10946e+02_rb,0.10939e+02_rb,0.10689e+02_rb,0.10427e+02_rb,0.10145e+02_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.11156e+02_rb,0.11126e+02_rb,0.10973e+02_rb,0.10622e+02_rb,0.10371e+02_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.11165e+02_rb,0.11308e+02_rb,0.11212e+02_rb,0.10985e+02_rb,0.10624e+02_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.11221e+02_rb,0.11354e+02_rb,0.11431e+02_rb,0.11243e+02_rb,0.10959e+02_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.11238e+02_rb,0.11406e+02_rb,0.11591e+02_rb,0.11479e+02_rb,0.11275e+02_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.11335e+02_rb,0.11405e+02_rb,0.11662e+02_rb,0.11637e+02_rb,0.11480e+02_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.11355e+02_rb,0.11451e+02_rb,0.11592e+02_rb,0.11670e+02_rb,0.11515e+02_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.11389e+02_rb,0.11476e+02_rb,0.11586e+02_rb,0.11657e+02_rb,0.11618e+02_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.11480e+02_rb,0.11599e+02_rb,0.11673e+02_rb,0.11677e+02_rb,0.11653e+02_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.97590e+01_rb,0.94275e+01_rb,0.91020e+01_rb,0.89149e+01_rb,0.87289e+01_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.10505e+02_rb,0.10164e+02_rb,0.99232e+01_rb,0.97321e+01_rb,0.94201e+01_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.11237e+02_rb,0.10955e+02_rb,0.10714e+02_rb,0.10370e+02_rb,0.10019e+02_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.12124e+02_rb,0.11740e+02_rb,0.11352e+02_rb,0.10992e+02_rb,0.10632e+02_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.12886e+02_rb,0.12429e+02_rb,0.12001e+02_rb,0.11642e+02_rb,0.11273e+02_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.13556e+02_rb,0.13047e+02_rb,0.12733e+02_rb,0.12297e+02_rb,0.11616e+02_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.14349e+02_rb,0.13901e+02_rb,0.13193e+02_rb,0.12562e+02_rb,0.12015e+02_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.15084e+02_rb,0.14361e+02_rb,0.13567e+02_rb,0.12903e+02_rb,0.12393e+02_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.15509e+02_rb,0.14641e+02_rb,0.13824e+02_rb,0.13136e+02_rb,0.12832e+02_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.15737e+02_rb,0.14756e+02_rb,0.13944e+02_rb,0.13493e+02_rb,0.13014e+02_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.15733e+02_rb,0.14806e+02_rb,0.14130e+02_rb,0.13708e+02_rb,0.13129e+02_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.15735e+02_rb,0.14832e+02_rb,0.14382e+02_rb,0.13702e+02_rb,0.13090e+02_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.15596e+02_rb,0.15046e+02_rb,0.14369e+02_rb,0.13676e+02_rb,0.13207e+02_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.15679e+02_rb,0.15085e+02_rb,0.14382e+02_rb,0.13864e+02_rb,0.13243e+02_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.15773e+02_rb,0.15051e+02_rb,0.14458e+02_rb,0.13792e+02_rb,0.13309e+02_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.15791e+02_rb,0.15118e+02_rb,0.14520e+02_rb,0.13908e+02_rb,0.13506e+02_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.15907e+02_rb,0.15282e+02_rb,0.14696e+02_rb,0.14168e+02_rb,0.13591e+02_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.15997e+02_rb,0.15426e+02_rb,0.14908e+02_rb,0.14325e+02_rb,0.13655e+02_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.16254e+02_rb,0.15640e+02_rb,0.15053e+02_rb,0.14410e+02_rb,0.13542e+02_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.16522e+02_rb,0.15885e+02_rb,0.15194e+02_rb,0.14363e+02_rb,0.13365e+02_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.16844e+02_rb,0.16068e+02_rb,0.15151e+02_rb,0.14109e+02_rb,0.13003e+02_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.16915e+02_rb,0.16003e+02_rb,0.14953e+02_rb,0.13814e+02_rb,0.12608e+02_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.16922e+02_rb,0.15890e+02_rb,0.14756e+02_rb,0.13405e+02_rb,0.12281e+02_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.16966e+02_rb,0.15773e+02_rb,0.14522e+02_rb,0.13240e+02_rb,0.11917e+02_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.17142e+02_rb,0.15897e+02_rb,0.14564e+02_rb,0.13378e+02_rb,0.11953e+02_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.17346e+02_rb,0.16051e+02_rb,0.14752e+02_rb,0.13439e+02_rb,0.11971e+02_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.17475e+02_rb,0.16210e+02_rb,0.14948e+02_rb,0.13510e+02_rb,0.12056e+02_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.17754e+02_rb,0.16503e+02_rb,0.15328e+02_rb,0.13801e+02_rb,0.12328e+02_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.18031e+02_rb,0.16909e+02_rb,0.15619e+02_rb,0.14276e+02_rb,0.12740e+02_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.18386e+02_rb,0.17235e+02_rb,0.15966e+02_rb,0.14652e+02_rb,0.13194e+02_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.18710e+02_rb,0.17591e+02_rb,0.16361e+02_rb,0.15070e+02_rb,0.13707e+02_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.19098e+02_rb,0.17898e+02_rb,0.16845e+02_rb,0.15582e+02_rb,0.14265e+02_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.19252e+02_rb,0.18167e+02_rb,0.17135e+02_rb,0.15969e+02_rb,0.14652e+02_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.19041e+02_rb,0.18357e+02_rb,0.17265e+02_rb,0.16200e+02_rb,0.15002e+02_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.18766e+02_rb,0.18032e+02_rb,0.17152e+02_rb,0.16208e+02_rb,0.15088e+02_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.18411e+02_rb,0.17740e+02_rb,0.16984e+02_rb,0.16085e+02_rb,0.15089e+02_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.18291e+02_rb,0.17667e+02_rb,0.16941e+02_rb,0.16014e+02_rb,0.14979e+02_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.18624e+02_rb,0.17786e+02_rb,0.17174e+02_rb,0.16136e+02_rb,0.15128e+02_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.19430e+02_rb,0.18470e+02_rb,0.17722e+02_rb,0.16775e+02_rb,0.15711e+02_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.20123e+02_rb,0.18895e+02_rb,0.18060e+02_rb,0.17255e+02_rb,0.16173e+02_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.20744e+02_rb,0.19415e+02_rb,0.18626e+02_rb,0.17397e+02_rb,0.16465e+02_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.21714e+02_rb,0.20093e+02_rb,0.19173e+02_rb,0.18078e+02_rb,0.16884e+02_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.22731e+02_rb,0.21068e+02_rb,0.19674e+02_rb,0.18569e+02_rb,0.17315e+02_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.23924e+02_rb,0.22190e+02_rb,0.20317e+02_rb,0.18891e+02_rb,0.17603e+02_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.24940e+02_rb,0.23270e+02_rb,0.21498e+02_rb,0.19833e+02_rb,0.18265e+02_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.25828e+02_rb,0.24271e+02_rb,0.22518e+02_rb,0.20827e+02_rb,0.19003e+02_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.26483e+02_rb,0.24983e+02_rb,0.23453e+02_rb,0.21676e+02_rb,0.19755e+02_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.15960e+02_rb,0.15303e+02_rb,0.14694e+02_rb,0.13842e+02_rb,0.13008e+02_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.17675e+02_rb,0.16896e+02_rb,0.15925e+02_rb,0.14915e+02_rb,0.14133e+02_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.19385e+02_rb,0.18234e+02_rb,0.16959e+02_rb,0.15987e+02_rb,0.15180e+02_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.20552e+02_rb,0.19165e+02_rb,0.17982e+02_rb,0.16927e+02_rb,0.16368e+02_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.21349e+02_rb,0.19954e+02_rb,0.19023e+02_rb,0.18091e+02_rb,0.17398e+02_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.22160e+02_rb,0.21597e+02_rb,0.20213e+02_rb,0.19055e+02_rb,0.18102e+02_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.23816e+02_rb,0.22303e+02_rb,0.21008e+02_rb,0.19912e+02_rb,0.18903e+02_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.24810e+02_rb,0.23381e+02_rb,0.21933e+02_rb,0.20846e+02_rb,0.19540e+02_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.25893e+02_rb,0.24250e+02_rb,0.22750e+02_rb,0.21616e+02_rb,0.19627e+02_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.26542e+02_rb,0.24773e+02_rb,0.23600e+02_rb,0.21309e+02_rb,0.19278e+02_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.27270e+02_rb,0.25621e+02_rb,0.23587e+02_rb,0.21255e+02_rb,0.19478e+02_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.27744e+02_rb,0.26088e+02_rb,0.23254e+02_rb,0.21242e+02_rb,0.19100e+02_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.28557e+02_rb,0.25575e+02_rb,0.23098e+02_rb,0.20631e+02_rb,0.18206e+02_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.28140e+02_rb,0.25135e+02_rb,0.22210e+02_rb,0.19496e+02_rb,0.17366e+02_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.27284e+02_rb,0.24232e+02_rb,0.21249e+02_rb,0.18720e+02_rb,0.16279e+02_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.26494e+02_rb,0.23076e+02_rb,0.20060e+02_rb,0.17566e+02_rb,0.14956e+02_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.24773e+02_rb,0.21460e+02_rb,0.18370e+02_rb,0.15793e+02_rb,0.13302e+02_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.23157e+02_rb,0.19587e+02_rb,0.16563e+02_rb,0.13805e+02_rb,0.11647e+02_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.20881e+02_rb,0.17370e+02_rb,0.14460e+02_rb,0.11958e+02_rb,0.99808e+01_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.18247e+02_rb,0.15035e+02_rb,0.12296e+02_rb,0.10101e+02_rb,0.83032e+01_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.15492e+02_rb,0.12470e+02_rb,0.10235e+02_rb,0.81131e+01_rb,0.64390e+01_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.13284e+02_rb,0.10782e+02_rb,0.82553e+01_rb,0.64597e+01_rb,0.42402e+01_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.11520e+02_rb,0.89534e+01_rb,0.69691e+01_rb,0.48753e+01_rb,0.27443e+01_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.10067e+02_rb,0.75650e+01_rb,0.54572e+01_rb,0.31866e+01_rb,0.14626e+01_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.97744e+01_rb,0.73767e+01_rb,0.52433e+01_rb,0.27509e+01_rb,0.10380e+01_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.94733e+01_rb,0.70859e+01_rb,0.47807e+01_rb,0.23954e+01_rb,0.74468e+00_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.94041e+01_rb,0.67286e+01_rb,0.41966e+01_rb,0.20683e+01_rb,0.27939e+00_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.10076e+02_rb,0.74414e+01_rb,0.47964e+01_rb,0.25258e+01_rb,0.87689e+00_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.10878e+02_rb,0.81759e+01_rb,0.56173e+01_rb,0.30416e+01_rb,0.13231e+01_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.11858e+02_rb,0.88284e+01_rb,0.63009e+01_rb,0.37211e+01_rb,0.17214e+01_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.13284e+02_rb,0.99847e+01_rb,0.73905e+01_rb,0.50291e+01_rb,0.24940e+01_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.14796e+02_rb,0.11545e+02_rb,0.85671e+01_rb,0.61687e+01_rb,0.37136e+01_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.16662e+02_rb,0.12949e+02_rb,0.98033e+01_rb,0.73353e+01_rb,0.52329e+01_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.19200e+02_rb,0.14684e+02_rb,0.11434e+02_rb,0.85867e+01_rb,0.64428e+01_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.21780e+02_rb,0.16837e+02_rb,0.13158e+02_rb,0.10165e+02_rb,0.76608e+01_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.24689e+02_rb,0.19487e+02_rb,0.15145e+02_rb,0.11845e+02_rb,0.89940e+01_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.27130e+02_rb,0.21775e+02_rb,0.17116e+02_rb,0.13679e+02_rb,0.10905e+02_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.27854e+02_rb,0.22306e+02_rb,0.17103e+02_rb,0.13783e+02_rb,0.10863e+02_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.27653e+02_rb,0.21825e+02_rb,0.16692e+02_rb,0.12707e+02_rb,0.98148e+01_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.27815e+02_rb,0.22411e+02_rb,0.17151e+02_rb,0.12787e+02_rb,0.95823e+01_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.29119e+02_rb,0.23144e+02_rb,0.17252e+02_rb,0.13594e+02_rb,0.99767e+01_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.29129e+02_rb,0.23469e+02_rb,0.17342e+02_rb,0.12745e+02_rb,0.95359e+01_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.29058e+02_rb,0.23190e+02_rb,0.17458e+02_rb,0.12690e+02_rb,0.90099e+01_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.28657e+02_rb,0.23001e+02_rb,0.17896e+02_rb,0.13433e+02_rb,0.94907e+01_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.29240e+02_rb,0.22830e+02_rb,0.17734e+02_rb,0.13185e+02_rb,0.97411e+01_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.29947e+02_rb,0.22946e+02_rb,0.17582e+02_rb,0.13008e+02_rb,0.96489e+01_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.28976e+02_rb,0.21746e+02_rb,0.15522e+02_rb,0.11254e+02_rb,0.80222e+01_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.25931e+02_rb,0.24537e+02_rb,0.23224e+02_rb,0.21983e+02_rb,0.20855e+02_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.29220e+02_rb,0.27507e+02_rb,0.25899e+02_rb,0.24431e+02_rb,0.23088e+02_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.32471e+02_rb,0.30409e+02_rb,0.28502e+02_rb,0.26794e+02_rb,0.25226e+02_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.35624e+02_rb,0.33186e+02_rb,0.30989e+02_rb,0.28748e+02_rb,0.24479e+02_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.38605e+02_rb,0.35797e+02_rb,0.30613e+02_rb,0.25949e+02_rb,0.21171e+02_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.41350e+02_rb,0.31676e+02_rb,0.25965e+02_rb,0.21818e+02_rb,0.18145e+02_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.34377e+02_rb,0.28144e+02_rb,0.23342e+02_rb,0.17735e+02_rb,0.13818e+02_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.31245e+02_rb,0.24408e+02_rb,0.19618e+02_rb,0.13984e+02_rb,0.93171e+01_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.28216e+02_rb,0.21711e+02_rb,0.16938e+02_rb,0.11225e+02_rb,0.60954e+01_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.25410e+02_rb,0.20320e+02_rb,0.12451e+02_rb,0.80509e+01_rb,0.41742e+01_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.22191e+02_rb,0.15284e+02_rb,0.84334e+01_rb,0.32443e+01_rb,0.10236e-04_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.19170e+02_rb,0.98429e+01_rb,0.40822e+01_rb,0.90070e-05_rb,0.84964e-05_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.11441e+02_rb,0.50508e+01_rb,0.77316e-05_rb,0.71796e-05_rb,0.66473e-05_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.73617e+01_rb,0.56953e+00_rb,0.62155e-05_rb,0.57759e-05_rb,0.53447e-05_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.37038e+01_rb,0.54098e-05_rb,0.49933e-05_rb,0.45180e-05_rb,0.42997e-05_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.47094e-05_rb,0.43472e-05_rb,0.40149e-05_rb,0.36332e-05_rb,0.34550e-05_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.37812e-05_rb,0.34885e-05_rb,0.32238e-05_rb,0.29187e-05_rb,0.27779e-05_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.30339e-05_rb,0.28004e-05_rb,0.25314e-05_rb,0.23451e-05_rb,0.22313e-05_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.24328e-05_rb,0.22460e-05_rb,0.20326e-05_rb,0.18813e-05_rb,0.17930e-05_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.18939e-05_rb,0.18012e-05_rb,0.16316e-05_rb,0.15109e-05_rb,0.14395e-05_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.15657e-05_rb,0.14309e-05_rb,0.13083e-05_rb,0.12124e-05_rb,0.15795e-05_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.12582e-05_rb,0.11508e-05_rb,0.10527e-05_rb,0.97625e-06_rb,0.19757e-05_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.10197e-05_rb,0.93275e-06_rb,0.85375e-06_rb,0.79153e-06_rb,0.21668e-05_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.83336e-06_rb,0.76274e-06_rb,0.69805e-06_rb,0.64735e-06_rb,0.17739e-05_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.68945e-06_rb,0.63022e-06_rb,0.57702e-06_rb,0.53486e-06_rb,0.10843e-05_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.55406e-06_rb,0.52180e-06_rb,0.47760e-06_rb,0.44282e-06_rb,0.89395e-06_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.45861e-06_rb,0.43223e-06_rb,0.39548e-06_rb,0.36639e-06_rb,0.47718e-06_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.38297e-06_rb,0.36441e-06_rb,0.32989e-06_rb,0.30551e-06_rb,0.28352e-06_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.31987e-06_rb,0.30430e-06_rb,0.27838e-06_rb,0.25513e-06_rb,0.23647e-06_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.26734e-06_rb,0.24677e-06_rb,0.23264e-06_rb,0.21290e-06_rb,0.19743e-06_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.22458e-06_rb,0.20712e-06_rb,0.19517e-06_rb,0.17853e-06_rb,0.16551e-06_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.18898e-06_rb,0.17429e-06_rb,0.16587e-06_rb,0.15173e-06_rb,0.13895e-06_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.15450e-06_rb,0.14658e-06_rb,0.13533e-06_rb,0.12759e-06_rb,0.11679e-06_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.13028e-06_rb,0.12362e-06_rb,0.11400e-06_rb,0.10744e-06_rb,0.98279e-07_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.11024e-06_rb,0.10159e-06_rb,0.96435e-07_rb,0.91711e-07_rb,0.83972e-07_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.93198e-07_rb,0.85906e-07_rb,0.81590e-07_rb,0.75279e-07_rb,0.70931e-07_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.76236e-07_rb,0.72626e-07_rb,0.68995e-07_rb,0.63641e-07_rb,0.60530e-07_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.64328e-07_rb,0.61369e-07_rb,0.56594e-07_rb,0.53672e-07_rb,0.49555e-07_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.54169e-07_rb,0.51722e-07_rb,0.47685e-07_rb,0.45298e-07_rb,0.41770e-07_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.46180e-07_rb,0.42221e-07_rb,0.40251e-07_rb,0.37120e-07_rb,0.35204e-07_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.33194e-01_rb,0.35538e-07_rb,0.33930e-07_rb,0.31297e-07_rb,0.29712e-07_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.63212e-01_rb,0.54132e-01_rb,0.36437e-01_rb,0.71353e-02_rb,0.24978e-07_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.62321e-01_rb,0.69163e-01_rb,0.76899e-01_rb,0.64692e-01_rb,0.42869e-01_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.73050e-01_rb,0.83118e-01_rb,0.74962e-01_rb,0.82540e-01_rb,0.91058e-01_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.71162e-01_rb,0.79898e-01_rb,0.89953e-01_rb,0.10014e+00_rb,0.10382e+00_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.67770e-01_rb,0.78960e-01_rb,0.86882e-01_rb,0.97002e-01_rb,0.10740e+00_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.66421e-01_rb,0.77608e-01_rb,0.10426e+00_rb,0.10063e+00_rb,0.10735e+00_rb /)\n  \n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.860560e-06_rb, 0.130439e-05_rb, 0.382378e-05_rb /)\n      forrefo(:, 2) = (/ 0.817926e-06_rb, 0.158599e-05_rb, 0.658771e-04_rb /)\n      forrefo(:, 3) = (/ 0.129369e-05_rb, 0.824406e-05_rb, 0.952778e-04_rb /)\n      forrefo(:, 4) = (/ 0.438918e-05_rb, 0.375356e-04_rb, 0.119111e-03_rb /)\n      forrefo(:, 5) = (/ 0.306057e-04_rb, 0.622798e-04_rb, 0.100740e-03_rb /)\n      forrefo(:, 6) = (/ 0.891934e-04_rb, 0.856393e-04_rb, 0.635583e-04_rb /)\n      forrefo(:, 7) = (/ 0.171959e-03_rb, 0.173431e-03_rb, 0.611721e-04_rb /)\n      forrefo(:, 8) = (/ 0.357795e-03_rb, 0.247261e-03_rb, 0.488864e-04_rb /)\n      forrefo(:, 9) = (/ 0.326623e-03_rb, 0.289471e-03_rb, 0.548834e-04_rb /)\n      forrefo(:,10) = (/ 0.345103e-03_rb, 0.320898e-03_rb, 0.633214e-04_rb /)\n      forrefo(:,11) = (/ 0.392567e-03_rb, 0.325153e-03_rb, 0.744479e-04_rb /)\n      forrefo(:,12) = (/ 0.349277e-03_rb, 0.345610e-03_rb, 0.916479e-04_rb /)\n      forrefo(:,13) = (/ 0.425161e-03_rb, 0.348452e-03_rb, 0.125788e-03_rb /)\n      forrefo(:,14) = (/ 0.407594e-03_rb, 0.435836e-03_rb, 0.287583e-03_rb /)\n      forrefo(:,15) = (/ 0.521605e-03_rb, 0.486596e-03_rb, 0.483511e-03_rb /)\n      forrefo(:,16) = (/ 0.773790e-03_rb, 0.737247e-03_rb, 0.665939e-03_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n           \n      selfrefo(:, 1) = (/ &\n        &  0.750370e-03_rb, 0.644938e-03_rb, 0.554321e-03_rb, 0.476436e-03_rb, 0.409494e-03_rb, &\n        &  0.351957e-03_rb, 0.302505e-03_rb, 0.260002e-03_rb, 0.223470e-03_rb, 0.192071e-03_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.136135e-02_rb, 0.113187e-02_rb, 0.941076e-03_rb, 0.782440e-03_rb, 0.650546e-03_rb, &\n        &  0.540885e-03_rb, 0.449709e-03_rb, 0.373902e-03_rb, 0.310874e-03_rb, 0.258471e-03_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.333950e-02_rb, 0.256391e-02_rb, 0.196845e-02_rb, 0.151129e-02_rb, 0.116030e-02_rb, &\n        &  0.890824e-03_rb, 0.683934e-03_rb, 0.525093e-03_rb, 0.403143e-03_rb, 0.309515e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.793392e-02_rb, 0.589865e-02_rb, 0.438548e-02_rb, 0.326048e-02_rb, 0.242408e-02_rb, &\n        &  0.180223e-02_rb, 0.133991e-02_rb, 0.996186e-03_rb, 0.740636e-03_rb, 0.550642e-03_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.828169e-02_rb, 0.703139e-02_rb, 0.596984e-02_rb, 0.506856e-02_rb, 0.430335e-02_rb, &\n        &  0.365366e-02_rb, 0.310206e-02_rb, 0.263374e-02_rb, 0.223612e-02_rb, 0.189852e-02_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.834190e-02_rb, 0.780225e-02_rb, 0.729750e-02_rb, 0.682541e-02_rb, 0.638386e-02_rb, &\n        &  0.597087e-02_rb, 0.558460e-02_rb, 0.522332e-02_rb, 0.488541e-02_rb, 0.456936e-02_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.119082e-01_rb, 0.112566e-01_rb, 0.106406e-01_rb, 0.100583e-01_rb, 0.950785e-02_rb, &\n        &  0.898755e-02_rb, 0.849571e-02_rb, 0.803080e-02_rb, 0.759132e-02_rb, 0.717590e-02_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.144004e-01_rb, 0.141762e-01_rb, 0.139554e-01_rb, 0.137381e-01_rb, 0.135241e-01_rb, &\n        &  0.133135e-01_rb, 0.131062e-01_rb, 0.129021e-01_rb, 0.127011e-01_rb, 0.125033e-01_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.186171e-01_rb, 0.175281e-01_rb, 0.165027e-01_rb, 0.155373e-01_rb, 0.146284e-01_rb, &\n        &  0.137726e-01_rb, 0.129670e-01_rb, 0.122084e-01_rb, 0.114942e-01_rb, 0.108218e-01_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.209396e-01_rb, 0.195077e-01_rb, 0.181737e-01_rb, 0.169309e-01_rb, 0.157731e-01_rb, &\n        &  0.146945e-01_rb, 0.136897e-01_rb, 0.127535e-01_rb, 0.118814e-01_rb, 0.110689e-01_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.203661e-01_rb, 0.193311e-01_rb, 0.183487e-01_rb, 0.174163e-01_rb, 0.165312e-01_rb, &\n        &  0.156911e-01_rb, 0.148937e-01_rb, 0.141368e-01_rb, 0.134184e-01_rb, 0.127365e-01_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.226784e-01_rb, 0.210210e-01_rb, 0.194848e-01_rb, 0.180608e-01_rb, 0.167409e-01_rb, &\n        &  0.155174e-01_rb, 0.143834e-01_rb, 0.133322e-01_rb, 0.123579e-01_rb, 0.114547e-01_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.221773e-01_rb, 0.210306e-01_rb, 0.199433e-01_rb, 0.189122e-01_rb, 0.179344e-01_rb, &\n        &  0.170071e-01_rb, 0.161278e-01_rb, 0.152939e-01_rb, 0.145032e-01_rb, 0.137533e-01_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.275920e-01_rb, 0.252595e-01_rb, 0.231241e-01_rb, 0.211693e-01_rb, 0.193797e-01_rb, &\n        &  0.177415e-01_rb, 0.162417e-01_rb, 0.148687e-01_rb, 0.136117e-01_rb, 0.124610e-01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.288687e-01_rb, 0.269968e-01_rb, 0.252462e-01_rb, 0.236092e-01_rb, 0.220783e-01_rb, &\n        &  0.206466e-01_rb, 0.193078e-01_rb, 0.180559e-01_rb, 0.168851e-01_rb, 0.157902e-01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.371842e-01_rb, 0.347595e-01_rb, 0.324929e-01_rb, 0.303741e-01_rb, 0.283934e-01_rb, &\n        &  0.265419e-01_rb, 0.248112e-01_rb, 0.231933e-01_rb, 0.216809e-01_rb, 0.202671e-01_rb /)\n  \n      end subroutine sw_kgb18\n\n! **************************************************************************\n      subroutine sw_kgb19\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 3.25791_rb    , 3.29697_rb    , 3.16031_rb    , 2.96115_rb    , &\n        & 2.69238_rb    , 2.33819_rb    , 1.92760_rb    , 1.44918_rb    , &\n        & 0.979764_rb   , 0.107336_rb   , 8.94523e-02_rb, 6.98325e-02_rb, &\n        & 5.12051e-02_rb, 3.23645e-02_rb, 1.23401e-02_rb, 1.71339e-03_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 3.22769_rb    , 3.28817_rb    , 3.16687_rb    , 2.97662_rb    , &\n        & 2.69495_rb    , 2.34392_rb    , 1.92900_rb    , 1.45391_rb    , &\n        & 0.982522_rb   , 0.107638_rb   , 8.92458e-02_rb, 6.99885e-02_rb, &\n        & 5.09679e-02_rb, 3.23789e-02_rb, 1.22673e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 3.22294_rb    , 3.27780_rb    , 3.17424_rb    , 2.97143_rb    , &\n        & 2.69785_rb    , 2.34993_rb    , 1.93155_rb    , 1.45196_rb    , &\n        & 0.985329_rb   , 0.108027_rb   , 8.93552e-02_rb, 6.99937e-02_rb, &\n        & 5.11678e-02_rb, 3.24846e-02_rb, 1.20636e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 3.22445_rb    , 3.26113_rb    , 3.18438_rb    , 2.96921_rb    , &\n        & 2.69579_rb    , 2.35586_rb    , 1.93454_rb    , 1.44949_rb    , &\n        & 0.987347_rb   , 0.108611_rb   , 8.91643e-02_rb, 7.02236e-02_rb, &\n        & 5.12980e-02_rb, 3.25282e-02_rb, 1.21189e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 3.22497_rb    , 3.25109_rb    , 3.18741_rb    , 2.96970_rb    , &\n        & 2.69460_rb    , 2.36020_rb    , 1.93301_rb    , 1.45224_rb    , &\n        & 0.988564_rb   , 0.108255_rb   , 8.93830e-02_rb, 7.03655e-02_rb, &\n        & 5.13017e-02_rb, 3.29414e-02_rb, 1.21189e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,6) = (/ &\n        & 3.22632_rb    , 3.24174_rb    , 3.18524_rb    , 2.97402_rb    , &\n        & 2.69807_rb    , 2.35742_rb    , 1.93377_rb    , 1.45621_rb    , &\n        & 0.988132_rb   , 0.108344_rb   , 8.93188e-02_rb, 7.04907e-02_rb, &\n        & 5.17938e-02_rb, 3.31465e-02_rb, 1.21155e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,7) = (/ &\n        & 3.22793_rb    , 3.23589_rb    , 3.17720_rb    , 2.97869_rb    , &\n        & 2.70293_rb    , 2.35436_rb    , 1.93557_rb    , 1.45868_rb    , &\n        & 0.988654_rb   , 0.108198_rb   , 8.93375e-02_rb, 7.09790e-02_rb, &\n        & 5.24733e-02_rb, 3.31298e-02_rb, 1.21126e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,8) = (/ &\n        & 3.22966_rb    , 3.24087_rb    , 3.15676_rb    , 2.98171_rb    , &\n        & 2.70894_rb    , 2.34975_rb    , 1.93855_rb    , 1.46354_rb    , &\n        & 0.988544_rb   , 0.108574_rb   , 9.02522e-02_rb, 7.12908e-02_rb, &\n        & 5.24844e-02_rb, 3.31084e-02_rb, 1.21060e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,9) = (/ &\n        & 3.27240_rb    , 3.24666_rb    , 3.13886_rb    , 2.95238_rb    , &\n        & 2.70190_rb    , 2.34460_rb    , 1.93948_rb    , 1.47111_rb    , &\n        & 0.990821_rb   , 0.108730_rb   , 9.01625e-02_rb, 7.13261e-02_rb, &\n        & 5.24813e-02_rb, 3.31083e-02_rb, 1.21126e-02_rb, 1.56040e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 4900 cm-1.\n      rayl = 2.29e-09_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.14981e-05_rb,0.26659e-05_rb,0.31874e-05_rb,0.35509e-05_rb,0.37593e-05_rb, &\n        & 0.38514e-05_rb,0.37369e-05_rb,0.35011e-05_rb,0.23894e-05_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.15103e-05_rb,0.27348e-05_rb,0.32692e-05_rb,0.36558e-05_rb,0.38926e-05_rb, &\n        & 0.39737e-05_rb,0.38798e-05_rb,0.36565e-05_rb,0.24072e-05_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.15233e-05_rb,0.28090e-05_rb,0.33744e-05_rb,0.37729e-05_rb,0.40258e-05_rb, &\n        & 0.41107e-05_rb,0.40389e-05_rb,0.38226e-05_rb,0.24704e-05_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.15219e-05_rb,0.28978e-05_rb,0.35015e-05_rb,0.38984e-05_rb,0.41569e-05_rb, &\n        & 0.42771e-05_rb,0.42110e-05_rb,0.39963e-05_rb,0.25504e-05_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.15254e-05_rb,0.29633e-05_rb,0.36224e-05_rb,0.40435e-05_rb,0.42975e-05_rb, &\n        & 0.44410e-05_rb,0.43849e-05_rb,0.41847e-05_rb,0.26420e-05_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.13024e-05_rb,0.23699e-05_rb,0.28370e-05_rb,0.31443e-05_rb,0.33326e-05_rb, &\n        & 0.33798e-05_rb,0.32797e-05_rb,0.30078e-05_rb,0.18819e-05_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.13249e-05_rb,0.24299e-05_rb,0.29103e-05_rb,0.32336e-05_rb,0.34308e-05_rb, &\n        & 0.35019e-05_rb,0.34046e-05_rb,0.31323e-05_rb,0.19511e-05_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.13241e-05_rb,0.25059e-05_rb,0.30019e-05_rb,0.33317e-05_rb,0.35516e-05_rb, &\n        & 0.36333e-05_rb,0.35372e-05_rb,0.32615e-05_rb,0.20254e-05_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.13325e-05_rb,0.25840e-05_rb,0.31009e-05_rb,0.34399e-05_rb,0.36699e-05_rb, &\n        & 0.37727e-05_rb,0.36811e-05_rb,0.34016e-05_rb,0.20611e-05_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.13321e-05_rb,0.26601e-05_rb,0.32189e-05_rb,0.35640e-05_rb,0.38012e-05_rb, &\n        & 0.39113e-05_rb,0.38271e-05_rb,0.35499e-05_rb,0.21368e-05_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.11079e-05_rb,0.20757e-05_rb,0.24846e-05_rb,0.27511e-05_rb,0.28883e-05_rb, &\n        & 0.29142e-05_rb,0.28203e-05_rb,0.25706e-05_rb,0.15124e-05_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.11298e-05_rb,0.21278e-05_rb,0.25551e-05_rb,0.28306e-05_rb,0.29814e-05_rb, &\n        & 0.30126e-05_rb,0.29328e-05_rb,0.26721e-05_rb,0.15784e-05_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.11405e-05_rb,0.21812e-05_rb,0.26237e-05_rb,0.29130e-05_rb,0.30816e-05_rb, &\n        & 0.31265e-05_rb,0.30480e-05_rb,0.27784e-05_rb,0.16468e-05_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.11347e-05_rb,0.22472e-05_rb,0.27094e-05_rb,0.30057e-05_rb,0.31821e-05_rb, &\n        & 0.32536e-05_rb,0.31714e-05_rb,0.28837e-05_rb,0.17189e-05_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.11383e-05_rb,0.23152e-05_rb,0.28016e-05_rb,0.31126e-05_rb,0.33051e-05_rb, &\n        & 0.33759e-05_rb,0.32961e-05_rb,0.29993e-05_rb,0.17919e-05_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.93104e-06_rb,0.18005e-05_rb,0.21693e-05_rb,0.23819e-05_rb,0.24829e-05_rb, &\n        & 0.24860e-05_rb,0.23860e-05_rb,0.21586e-05_rb,0.12198e-05_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.94591e-06_rb,0.18309e-05_rb,0.22153e-05_rb,0.24487e-05_rb,0.25574e-05_rb, &\n        & 0.25721e-05_rb,0.24802e-05_rb,0.22458e-05_rb,0.13105e-05_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.95638e-06_rb,0.18753e-05_rb,0.22788e-05_rb,0.25149e-05_rb,0.26499e-05_rb, &\n        & 0.26671e-05_rb,0.25797e-05_rb,0.23335e-05_rb,0.14017e-05_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.95763e-06_rb,0.19379e-05_rb,0.23271e-05_rb,0.25858e-05_rb,0.27437e-05_rb, &\n        & 0.27792e-05_rb,0.26790e-05_rb,0.24268e-05_rb,0.14872e-05_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.95668e-06_rb,0.19877e-05_rb,0.23997e-05_rb,0.26721e-05_rb,0.28382e-05_rb, &\n        & 0.28806e-05_rb,0.27857e-05_rb,0.25225e-05_rb,0.15698e-05_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.77329e-06_rb,0.15354e-05_rb,0.18723e-05_rb,0.20411e-05_rb,0.21095e-05_rb, &\n        & 0.21017e-05_rb,0.19998e-05_rb,0.18017e-05_rb,0.97629e-06_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.78241e-06_rb,0.15660e-05_rb,0.19091e-05_rb,0.20970e-05_rb,0.21786e-05_rb, &\n        & 0.21730e-05_rb,0.20794e-05_rb,0.18731e-05_rb,0.10645e-05_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.79463e-06_rb,0.15948e-05_rb,0.19458e-05_rb,0.21529e-05_rb,0.22557e-05_rb, &\n        & 0.22576e-05_rb,0.21631e-05_rb,0.19462e-05_rb,0.11507e-05_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.79779e-06_rb,0.16389e-05_rb,0.19877e-05_rb,0.22087e-05_rb,0.23274e-05_rb, &\n        & 0.23462e-05_rb,0.22501e-05_rb,0.20204e-05_rb,0.12366e-05_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.79875e-06_rb,0.16865e-05_rb,0.20410e-05_rb,0.22789e-05_rb,0.24049e-05_rb, &\n        & 0.24283e-05_rb,0.23388e-05_rb,0.21006e-05_rb,0.13155e-05_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.63799e-06_rb,0.13079e-05_rb,0.15873e-05_rb,0.17187e-05_rb,0.17689e-05_rb, &\n        & 0.17509e-05_rb,0.16625e-05_rb,0.14950e-05_rb,0.77624e-06_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.64423e-06_rb,0.13180e-05_rb,0.16173e-05_rb,0.17648e-05_rb,0.18253e-05_rb, &\n        & 0.18152e-05_rb,0.17299e-05_rb,0.15482e-05_rb,0.85457e-06_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.65214e-06_rb,0.13481e-05_rb,0.16476e-05_rb,0.18158e-05_rb,0.18867e-05_rb, &\n        & 0.18859e-05_rb,0.17999e-05_rb,0.16080e-05_rb,0.93968e-06_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.65949e-06_rb,0.13728e-05_rb,0.16795e-05_rb,0.18618e-05_rb,0.19507e-05_rb, &\n        & 0.19568e-05_rb,0.18693e-05_rb,0.16710e-05_rb,0.10256e-05_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.66012e-06_rb,0.14051e-05_rb,0.17174e-05_rb,0.19154e-05_rb,0.20111e-05_rb, &\n        & 0.20230e-05_rb,0.19421e-05_rb,0.17361e-05_rb,0.11072e-05_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.52652e-06_rb,0.10995e-05_rb,0.13221e-05_rb,0.14282e-05_rb,0.14627e-05_rb, &\n        & 0.14494e-05_rb,0.13754e-05_rb,0.12359e-05_rb,0.62399e-06_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.52631e-06_rb,0.11047e-05_rb,0.13498e-05_rb,0.14646e-05_rb,0.15094e-05_rb, &\n        & 0.14961e-05_rb,0.14272e-05_rb,0.12791e-05_rb,0.69692e-06_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.53263e-06_rb,0.11231e-05_rb,0.13763e-05_rb,0.15059e-05_rb,0.15602e-05_rb, &\n        & 0.15533e-05_rb,0.14827e-05_rb,0.13257e-05_rb,0.76959e-06_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.53788e-06_rb,0.11448e-05_rb,0.14026e-05_rb,0.15478e-05_rb,0.16122e-05_rb, &\n        & 0.16137e-05_rb,0.15398e-05_rb,0.13748e-05_rb,0.84488e-06_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.54243e-06_rb,0.11660e-05_rb,0.14288e-05_rb,0.15891e-05_rb,0.16619e-05_rb, &\n        & 0.16672e-05_rb,0.15978e-05_rb,0.14265e-05_rb,0.92439e-06_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.42860e-06_rb,0.91208e-06_rb,0.10887e-05_rb,0.11732e-05_rb,0.12000e-05_rb, &\n        & 0.11901e-05_rb,0.11300e-05_rb,0.10181e-05_rb,0.51360e-06_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.42605e-06_rb,0.91355e-06_rb,0.11105e-05_rb,0.12004e-05_rb,0.12359e-05_rb, &\n        & 0.12238e-05_rb,0.11674e-05_rb,0.10496e-05_rb,0.58593e-06_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.42910e-06_rb,0.92458e-06_rb,0.11341e-05_rb,0.12355e-05_rb,0.12754e-05_rb, &\n        & 0.12667e-05_rb,0.12100e-05_rb,0.10877e-05_rb,0.65209e-06_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.43345e-06_rb,0.94024e-06_rb,0.11540e-05_rb,0.12669e-05_rb,0.13186e-05_rb, &\n        & 0.13163e-05_rb,0.12567e-05_rb,0.11280e-05_rb,0.72051e-06_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.43744e-06_rb,0.95845e-06_rb,0.11764e-05_rb,0.13022e-05_rb,0.13595e-05_rb, &\n        & 0.13618e-05_rb,0.13034e-05_rb,0.11671e-05_rb,0.79373e-06_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.34458e-06_rb,0.74844e-06_rb,0.89217e-06_rb,0.95875e-06_rb,0.98243e-06_rb, &\n        & 0.97566e-06_rb,0.92936e-06_rb,0.83611e-06_rb,0.44181e-06_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.34797e-06_rb,0.75304e-06_rb,0.90816e-06_rb,0.98264e-06_rb,0.10080e-05_rb, &\n        & 0.99889e-06_rb,0.95318e-06_rb,0.86041e-06_rb,0.51013e-06_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.34593e-06_rb,0.76020e-06_rb,0.92707e-06_rb,0.10062e-05_rb,0.10391e-05_rb, &\n        & 0.10296e-05_rb,0.98530e-06_rb,0.89011e-06_rb,0.58070e-06_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.34971e-06_rb,0.77088e-06_rb,0.94623e-06_rb,0.10342e-05_rb,0.10726e-05_rb, &\n        & 0.10689e-05_rb,0.10210e-05_rb,0.92020e-06_rb,0.65697e-06_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.35282e-06_rb,0.78517e-06_rb,0.96245e-06_rb,0.10609e-05_rb,0.11071e-05_rb, &\n        & 0.11073e-05_rb,0.10583e-05_rb,0.95054e-06_rb,0.72956e-06_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.27840e-06_rb,0.61035e-06_rb,0.72930e-06_rb,0.78415e-06_rb,0.80451e-06_rb, &\n        & 0.79924e-06_rb,0.76231e-06_rb,0.68727e-06_rb,0.40208e-06_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.28171e-06_rb,0.61798e-06_rb,0.74197e-06_rb,0.80115e-06_rb,0.82183e-06_rb, &\n        & 0.81621e-06_rb,0.78030e-06_rb,0.70425e-06_rb,0.46700e-06_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.28023e-06_rb,0.62269e-06_rb,0.75685e-06_rb,0.82101e-06_rb,0.84538e-06_rb, &\n        & 0.83821e-06_rb,0.80301e-06_rb,0.72663e-06_rb,0.53781e-06_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.28163e-06_rb,0.63156e-06_rb,0.77214e-06_rb,0.84244e-06_rb,0.87184e-06_rb, &\n        & 0.86752e-06_rb,0.83024e-06_rb,0.75000e-06_rb,0.60478e-06_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.28518e-06_rb,0.64070e-06_rb,0.78628e-06_rb,0.86439e-06_rb,0.89969e-06_rb, &\n        & 0.89910e-06_rb,0.85933e-06_rb,0.77376e-06_rb,0.67016e-06_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.22555e-06_rb,0.50042e-06_rb,0.59960e-06_rb,0.64537e-06_rb,0.66324e-06_rb, &\n        & 0.65924e-06_rb,0.63003e-06_rb,0.56890e-06_rb,0.34466e-06_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.22858e-06_rb,0.50705e-06_rb,0.60997e-06_rb,0.65948e-06_rb,0.67688e-06_rb, &\n        & 0.67311e-06_rb,0.64462e-06_rb,0.58333e-06_rb,0.40300e-06_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.22677e-06_rb,0.51178e-06_rb,0.62299e-06_rb,0.67572e-06_rb,0.69624e-06_rb, &\n        & 0.69126e-06_rb,0.66285e-06_rb,0.60090e-06_rb,0.46066e-06_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.22825e-06_rb,0.51907e-06_rb,0.63500e-06_rb,0.69311e-06_rb,0.71796e-06_rb, &\n        & 0.71484e-06_rb,0.68416e-06_rb,0.61859e-06_rb,0.51966e-06_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.23122e-06_rb,0.52598e-06_rb,0.64574e-06_rb,0.71116e-06_rb,0.74046e-06_rb, &\n        & 0.73979e-06_rb,0.70672e-06_rb,0.63708e-06_rb,0.58196e-06_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.18149e-06_rb,0.40829e-06_rb,0.49022e-06_rb,0.52910e-06_rb,0.54408e-06_rb, &\n        & 0.54163e-06_rb,0.51867e-06_rb,0.46933e-06_rb,0.28496e-06_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.18433e-06_rb,0.41378e-06_rb,0.49908e-06_rb,0.54027e-06_rb,0.55522e-06_rb, &\n        & 0.55286e-06_rb,0.53038e-06_rb,0.48103e-06_rb,0.33336e-06_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.18246e-06_rb,0.41799e-06_rb,0.50965e-06_rb,0.55347e-06_rb,0.57134e-06_rb, &\n        & 0.56787e-06_rb,0.54477e-06_rb,0.49462e-06_rb,0.38023e-06_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.18409e-06_rb,0.42347e-06_rb,0.51936e-06_rb,0.56749e-06_rb,0.58877e-06_rb, &\n        & 0.58648e-06_rb,0.56149e-06_rb,0.50825e-06_rb,0.43081e-06_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.18582e-06_rb,0.42888e-06_rb,0.52830e-06_rb,0.58240e-06_rb,0.60647e-06_rb, &\n        & 0.60598e-06_rb,0.57933e-06_rb,0.52277e-06_rb,0.48565e-06_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.14345e-06_rb,0.32927e-06_rb,0.39750e-06_rb,0.43000e-06_rb,0.44318e-06_rb, &\n        & 0.44201e-06_rb,0.42469e-06_rb,0.38538e-06_rb,0.23377e-06_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.14571e-06_rb,0.33355e-06_rb,0.40430e-06_rb,0.43954e-06_rb,0.45256e-06_rb, &\n        & 0.45159e-06_rb,0.43399e-06_rb,0.39467e-06_rb,0.27338e-06_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.14442e-06_rb,0.33719e-06_rb,0.41316e-06_rb,0.44996e-06_rb,0.46575e-06_rb, &\n        & 0.46364e-06_rb,0.44528e-06_rb,0.40510e-06_rb,0.31154e-06_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.14600e-06_rb,0.34141e-06_rb,0.42136e-06_rb,0.46096e-06_rb,0.47937e-06_rb, &\n        & 0.47817e-06_rb,0.45850e-06_rb,0.41598e-06_rb,0.35289e-06_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.14667e-06_rb,0.34608e-06_rb,0.42853e-06_rb,0.47296e-06_rb,0.49300e-06_rb, &\n        & 0.49352e-06_rb,0.47280e-06_rb,0.42757e-06_rb,0.39752e-06_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.16288e-04_rb,0.25817e-04_rb,0.29597e-04_rb,0.31319e-04_rb,0.31220e-04_rb, &\n        & 0.29539e-04_rb,0.25627e-04_rb,0.19758e-04_rb,0.72944e-05_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.18123e-04_rb,0.28565e-04_rb,0.32633e-04_rb,0.34427e-04_rb,0.34219e-04_rb, &\n        & 0.32223e-04_rb,0.27987e-04_rb,0.21485e-04_rb,0.79554e-05_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.19957e-04_rb,0.31607e-04_rb,0.36033e-04_rb,0.37887e-04_rb,0.37694e-04_rb, &\n        & 0.35399e-04_rb,0.30718e-04_rb,0.23412e-04_rb,0.85293e-05_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.22005e-04_rb,0.35064e-04_rb,0.39763e-04_rb,0.41694e-04_rb,0.41490e-04_rb, &\n        & 0.38891e-04_rb,0.33715e-04_rb,0.25512e-04_rb,0.91232e-05_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.24240e-04_rb,0.38906e-04_rb,0.43899e-04_rb,0.45870e-04_rb,0.45580e-04_rb, &\n        & 0.42616e-04_rb,0.36912e-04_rb,0.27728e-04_rb,0.97792e-05_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.14944e-04_rb,0.23223e-04_rb,0.25792e-04_rb,0.27019e-04_rb,0.26963e-04_rb, &\n        & 0.25431e-04_rb,0.22069e-04_rb,0.16933e-04_rb,0.59071e-05_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.16615e-04_rb,0.25452e-04_rb,0.28322e-04_rb,0.29800e-04_rb,0.29593e-04_rb, &\n        & 0.27776e-04_rb,0.24123e-04_rb,0.18444e-04_rb,0.63142e-05_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.18355e-04_rb,0.27996e-04_rb,0.31338e-04_rb,0.32892e-04_rb,0.32575e-04_rb, &\n        & 0.30478e-04_rb,0.26504e-04_rb,0.20132e-04_rb,0.67898e-05_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.20092e-04_rb,0.30938e-04_rb,0.34680e-04_rb,0.36255e-04_rb,0.35836e-04_rb, &\n        & 0.33500e-04_rb,0.29106e-04_rb,0.21950e-04_rb,0.73343e-05_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.21897e-04_rb,0.34150e-04_rb,0.38274e-04_rb,0.39931e-04_rb,0.39337e-04_rb, &\n        & 0.36752e-04_rb,0.31831e-04_rb,0.23882e-04_rb,0.78705e-05_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.13130e-04_rb,0.20363e-04_rb,0.22377e-04_rb,0.23003e-04_rb,0.22683e-04_rb, &\n        & 0.21429e-04_rb,0.18621e-04_rb,0.14177e-04_rb,0.47892e-05_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.14610e-04_rb,0.22299e-04_rb,0.24486e-04_rb,0.25140e-04_rb,0.24842e-04_rb, &\n        & 0.23413e-04_rb,0.20361e-04_rb,0.15469e-04_rb,0.52250e-05_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.16133e-04_rb,0.24482e-04_rb,0.26876e-04_rb,0.27653e-04_rb,0.27357e-04_rb, &\n        & 0.25669e-04_rb,0.22341e-04_rb,0.16897e-04_rb,0.56647e-05_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.17708e-04_rb,0.26887e-04_rb,0.29522e-04_rb,0.30577e-04_rb,0.30151e-04_rb, &\n        & 0.28221e-04_rb,0.24545e-04_rb,0.18455e-04_rb,0.60735e-05_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.19305e-04_rb,0.29364e-04_rb,0.32520e-04_rb,0.33741e-04_rb,0.33162e-04_rb, &\n        & 0.30976e-04_rb,0.26800e-04_rb,0.20103e-04_rb,0.64864e-05_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.11163e-04_rb,0.17498e-04_rb,0.19069e-04_rb,0.19561e-04_rb,0.19154e-04_rb, &\n        & 0.17906e-04_rb,0.15522e-04_rb,0.11778e-04_rb,0.40461e-05_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.12505e-04_rb,0.19238e-04_rb,0.20917e-04_rb,0.21365e-04_rb,0.20913e-04_rb, &\n        & 0.19471e-04_rb,0.16986e-04_rb,0.12856e-04_rb,0.43935e-05_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.13848e-04_rb,0.21132e-04_rb,0.22975e-04_rb,0.23433e-04_rb,0.22893e-04_rb, &\n        & 0.21327e-04_rb,0.18662e-04_rb,0.14056e-04_rb,0.47015e-05_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.15219e-04_rb,0.23159e-04_rb,0.25250e-04_rb,0.25753e-04_rb,0.25088e-04_rb, &\n        & 0.23437e-04_rb,0.20455e-04_rb,0.15366e-04_rb,0.50239e-05_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.16631e-04_rb,0.25311e-04_rb,0.27651e-04_rb,0.28243e-04_rb,0.27566e-04_rb, &\n        & 0.25775e-04_rb,0.22344e-04_rb,0.16758e-04_rb,0.53594e-05_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.92688e-05_rb,0.14829e-04_rb,0.16036e-04_rb,0.16388e-04_rb,0.16087e-04_rb, &\n        & 0.15049e-04_rb,0.12939e-04_rb,0.97243e-05_rb,0.35064e-05_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.10428e-04_rb,0.16289e-04_rb,0.17596e-04_rb,0.17928e-04_rb,0.17547e-04_rb, &\n        & 0.16347e-04_rb,0.14108e-04_rb,0.10621e-04_rb,0.37893e-05_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.11600e-04_rb,0.17922e-04_rb,0.19403e-04_rb,0.19701e-04_rb,0.19227e-04_rb, &\n        & 0.17835e-04_rb,0.15439e-04_rb,0.11627e-04_rb,0.40426e-05_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.12795e-04_rb,0.19672e-04_rb,0.21360e-04_rb,0.21677e-04_rb,0.21078e-04_rb, &\n        & 0.19535e-04_rb,0.16919e-04_rb,0.12746e-04_rb,0.43015e-05_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.14029e-04_rb,0.21551e-04_rb,0.23410e-04_rb,0.23746e-04_rb,0.23106e-04_rb, &\n        & 0.21397e-04_rb,0.18500e-04_rb,0.13918e-04_rb,0.45663e-05_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.75358e-05_rb,0.12284e-04_rb,0.13321e-04_rb,0.13580e-04_rb,0.13322e-04_rb, &\n        & 0.12459e-04_rb,0.10757e-04_rb,0.80012e-05_rb,0.28595e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.84801e-05_rb,0.13541e-04_rb,0.14600e-04_rb,0.14857e-04_rb,0.14519e-04_rb, &\n        & 0.13528e-04_rb,0.11747e-04_rb,0.87199e-05_rb,0.31250e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.94797e-05_rb,0.14898e-04_rb,0.16088e-04_rb,0.16329e-04_rb,0.15922e-04_rb, &\n        & 0.14786e-04_rb,0.12839e-04_rb,0.95406e-05_rb,0.33925e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.10510e-04_rb,0.16387e-04_rb,0.17709e-04_rb,0.17968e-04_rb,0.17465e-04_rb, &\n        & 0.16205e-04_rb,0.13999e-04_rb,0.10465e-04_rb,0.36786e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.11554e-04_rb,0.17973e-04_rb,0.19442e-04_rb,0.19736e-04_rb,0.19170e-04_rb, &\n        & 0.17751e-04_rb,0.15288e-04_rb,0.11441e-04_rb,0.39618e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.59994e-05_rb,0.10068e-04_rb,0.10903e-04_rb,0.11100e-04_rb,0.10910e-04_rb, &\n        & 0.10207e-04_rb,0.88301e-05_rb,0.65755e-05_rb,0.23537e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.67911e-05_rb,0.11098e-04_rb,0.11964e-04_rb,0.12161e-04_rb,0.11910e-04_rb, &\n        & 0.11113e-04_rb,0.96475e-05_rb,0.71733e-05_rb,0.26021e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.76012e-05_rb,0.12205e-04_rb,0.13167e-04_rb,0.13368e-04_rb,0.13058e-04_rb, &\n        & 0.12136e-04_rb,0.10571e-04_rb,0.78452e-05_rb,0.28416e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.84582e-05_rb,0.13412e-04_rb,0.14518e-04_rb,0.14721e-04_rb,0.14328e-04_rb, &\n        & 0.13323e-04_rb,0.11527e-04_rb,0.85995e-05_rb,0.30925e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.93346e-05_rb,0.14749e-04_rb,0.15973e-04_rb,0.16180e-04_rb,0.15730e-04_rb, &\n        & 0.14597e-04_rb,0.12601e-04_rb,0.93973e-05_rb,0.33285e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.47174e-05_rb,0.81367e-05_rb,0.88184e-05_rb,0.90007e-05_rb,0.88363e-05_rb, &\n        & 0.83059e-05_rb,0.72101e-05_rb,0.53496e-05_rb,0.18862e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.53543e-05_rb,0.89852e-05_rb,0.96904e-05_rb,0.98666e-05_rb,0.96509e-05_rb, &\n        & 0.90368e-05_rb,0.78700e-05_rb,0.58341e-05_rb,0.21147e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.60088e-05_rb,0.98855e-05_rb,0.10666e-04_rb,0.10849e-04_rb,0.10597e-04_rb, &\n        & 0.98826e-05_rb,0.86243e-05_rb,0.63949e-05_rb,0.23672e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.66958e-05_rb,0.10873e-04_rb,0.11751e-04_rb,0.11945e-04_rb,0.11636e-04_rb, &\n        & 0.10852e-04_rb,0.94101e-05_rb,0.70262e-05_rb,0.26329e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.74191e-05_rb,0.11960e-04_rb,0.12943e-04_rb,0.13152e-04_rb,0.12788e-04_rb, &\n        & 0.11889e-04_rb,0.10297e-04_rb,0.76977e-05_rb,0.29019e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.36886e-05_rb,0.65140e-05_rb,0.70684e-05_rb,0.72377e-05_rb,0.71080e-05_rb, &\n        & 0.67076e-05_rb,0.58353e-05_rb,0.43297e-05_rb,0.16419e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.41772e-05_rb,0.72104e-05_rb,0.77793e-05_rb,0.79335e-05_rb,0.77682e-05_rb, &\n        & 0.72903e-05_rb,0.63640e-05_rb,0.47210e-05_rb,0.18721e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.47123e-05_rb,0.79471e-05_rb,0.85662e-05_rb,0.87396e-05_rb,0.85319e-05_rb, &\n        & 0.79769e-05_rb,0.69694e-05_rb,0.51793e-05_rb,0.21015e-05_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.52612e-05_rb,0.87319e-05_rb,0.94365e-05_rb,0.96191e-05_rb,0.93783e-05_rb, &\n        & 0.87581e-05_rb,0.76277e-05_rb,0.56974e-05_rb,0.23505e-05_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.58401e-05_rb,0.96106e-05_rb,0.10404e-04_rb,0.10594e-04_rb,0.10308e-04_rb, &\n        & 0.96030e-05_rb,0.83402e-05_rb,0.62627e-05_rb,0.26170e-05_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.29023e-05_rb,0.52230e-05_rb,0.56669e-05_rb,0.58158e-05_rb,0.57137e-05_rb, &\n        & 0.54241e-05_rb,0.47416e-05_rb,0.35098e-05_rb,0.14223e-05_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.32752e-05_rb,0.57903e-05_rb,0.62548e-05_rb,0.63859e-05_rb,0.62528e-05_rb, &\n        & 0.58881e-05_rb,0.51542e-05_rb,0.38257e-05_rb,0.16559e-05_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.37047e-05_rb,0.63892e-05_rb,0.68928e-05_rb,0.70312e-05_rb,0.68734e-05_rb, &\n        & 0.64357e-05_rb,0.56361e-05_rb,0.42003e-05_rb,0.19248e-05_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.41471e-05_rb,0.70179e-05_rb,0.75920e-05_rb,0.77496e-05_rb,0.75508e-05_rb, &\n        & 0.70624e-05_rb,0.61778e-05_rb,0.46271e-05_rb,0.22074e-05_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.46061e-05_rb,0.77215e-05_rb,0.83699e-05_rb,0.85300e-05_rb,0.83121e-05_rb, &\n        & 0.77493e-05_rb,0.67551e-05_rb,0.50931e-05_rb,0.25043e-05_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.24060e-05_rb,0.43752e-05_rb,0.47372e-05_rb,0.48598e-05_rb,0.47689e-05_rb, &\n        & 0.45290e-05_rb,0.39653e-05_rb,0.29444e-05_rb,0.12255e-05_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.27123e-05_rb,0.48479e-05_rb,0.52339e-05_rb,0.53482e-05_rb,0.52342e-05_rb, &\n        & 0.49275e-05_rb,0.43239e-05_rb,0.32196e-05_rb,0.14282e-05_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.30632e-05_rb,0.53402e-05_rb,0.57660e-05_rb,0.58936e-05_rb,0.57515e-05_rb, &\n        & 0.53873e-05_rb,0.47344e-05_rb,0.35410e-05_rb,0.16636e-05_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.34245e-05_rb,0.58653e-05_rb,0.63554e-05_rb,0.64878e-05_rb,0.63244e-05_rb, &\n        & 0.59147e-05_rb,0.51855e-05_rb,0.39068e-05_rb,0.18858e-05_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.37984e-05_rb,0.64557e-05_rb,0.70032e-05_rb,0.71432e-05_rb,0.69591e-05_rb, &\n        & 0.64936e-05_rb,0.56748e-05_rb,0.42889e-05_rb,0.21529e-05_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.19822e-05_rb,0.36438e-05_rb,0.39439e-05_rb,0.40428e-05_rb,0.39656e-05_rb, &\n        & 0.37627e-05_rb,0.33048e-05_rb,0.24620e-05_rb,0.10349e-05_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.22347e-05_rb,0.40329e-05_rb,0.43559e-05_rb,0.44535e-05_rb,0.43556e-05_rb, &\n        & 0.41018e-05_rb,0.36156e-05_rb,0.26976e-05_rb,0.12078e-05_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.25196e-05_rb,0.44405e-05_rb,0.47965e-05_rb,0.49025e-05_rb,0.47850e-05_rb, &\n        & 0.44854e-05_rb,0.39542e-05_rb,0.29734e-05_rb,0.13908e-05_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.28142e-05_rb,0.48792e-05_rb,0.52882e-05_rb,0.53962e-05_rb,0.52646e-05_rb, &\n        & 0.49202e-05_rb,0.43229e-05_rb,0.32817e-05_rb,0.15895e-05_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.31182e-05_rb,0.53684e-05_rb,0.58256e-05_rb,0.59413e-05_rb,0.57855e-05_rb, &\n        & 0.54043e-05_rb,0.47298e-05_rb,0.35925e-05_rb,0.18050e-05_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.16206e-05_rb,0.30122e-05_rb,0.32612e-05_rb,0.33451e-05_rb,0.32794e-05_rb, &\n        & 0.31144e-05_rb,0.27430e-05_rb,0.20488e-05_rb,0.85267e-06_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.18267e-05_rb,0.33331e-05_rb,0.36002e-05_rb,0.36816e-05_rb,0.36054e-05_rb, &\n        & 0.33950e-05_rb,0.30021e-05_rb,0.22487e-05_rb,0.99490e-06_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.20587e-05_rb,0.36681e-05_rb,0.39651e-05_rb,0.40531e-05_rb,0.39564e-05_rb, &\n        & 0.37127e-05_rb,0.32815e-05_rb,0.24795e-05_rb,0.11422e-05_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.22973e-05_rb,0.40325e-05_rb,0.43728e-05_rb,0.44600e-05_rb,0.43540e-05_rb, &\n        & 0.40718e-05_rb,0.35848e-05_rb,0.27366e-05_rb,0.13051e-05_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.25452e-05_rb,0.44379e-05_rb,0.48164e-05_rb,0.49100e-05_rb,0.47833e-05_rb, &\n        & 0.44674e-05_rb,0.39194e-05_rb,0.29904e-05_rb,0.14817e-05_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.66641e-04_rb,0.92990e-04_rb,0.96277e-04_rb,0.95182e-04_rb,0.91424e-04_rb, &\n        & 0.85445e-04_rb,0.77014e-04_rb,0.62091e-04_rb,0.18284e-04_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.75350e-04_rb,0.10391e-03_rb,0.10751e-03_rb,0.10606e-03_rb,0.10174e-03_rb, &\n        & 0.94756e-04_rb,0.84487e-04_rb,0.67267e-04_rb,0.20037e-04_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.85286e-04_rb,0.11563e-03_rb,0.11966e-03_rb,0.11777e-03_rb,0.11259e-03_rb, &\n        & 0.10435e-03_rb,0.92076e-04_rb,0.72492e-04_rb,0.22229e-04_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.96137e-04_rb,0.12836e-03_rb,0.13265e-03_rb,0.13031e-03_rb,0.12404e-03_rb, &\n        & 0.11409e-03_rb,0.99756e-04_rb,0.77897e-04_rb,0.24656e-04_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.10739e-03_rb,0.14209e-03_rb,0.14652e-03_rb,0.14363e-03_rb,0.13579e-03_rb, &\n        & 0.12408e-03_rb,0.10749e-03_rb,0.83273e-04_rb,0.26998e-04_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.57005e-04_rb,0.80688e-04_rb,0.84199e-04_rb,0.83067e-04_rb,0.79480e-04_rb, &\n        & 0.74096e-04_rb,0.66328e-04_rb,0.53532e-04_rb,0.14534e-04_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.64518e-04_rb,0.90274e-04_rb,0.94149e-04_rb,0.92496e-04_rb,0.88374e-04_rb, &\n        & 0.82048e-04_rb,0.72698e-04_rb,0.57871e-04_rb,0.16202e-04_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.73014e-04_rb,0.10065e-03_rb,0.10466e-03_rb,0.10271e-03_rb,0.97880e-04_rb, &\n        & 0.90372e-04_rb,0.79361e-04_rb,0.62357e-04_rb,0.18056e-04_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.82297e-04_rb,0.11195e-03_rb,0.11586e-03_rb,0.11365e-03_rb,0.10799e-03_rb, &\n        & 0.98829e-04_rb,0.85923e-04_rb,0.66891e-04_rb,0.19890e-04_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.92175e-04_rb,0.12399e-03_rb,0.12794e-03_rb,0.12531e-03_rb,0.11825e-03_rb, &\n        & 0.10764e-03_rb,0.92744e-04_rb,0.71608e-04_rb,0.21968e-04_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.47324e-04_rb,0.68167e-04_rb,0.71069e-04_rb,0.70293e-04_rb,0.67313e-04_rb, &\n        & 0.62456e-04_rb,0.55646e-04_rb,0.44933e-04_rb,0.11374e-04_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.53658e-04_rb,0.76342e-04_rb,0.79560e-04_rb,0.78547e-04_rb,0.74997e-04_rb, &\n        & 0.69264e-04_rb,0.61119e-04_rb,0.48587e-04_rb,0.12639e-04_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.60905e-04_rb,0.85247e-04_rb,0.88738e-04_rb,0.87387e-04_rb,0.83098e-04_rb, &\n        & 0.76432e-04_rb,0.66733e-04_rb,0.52275e-04_rb,0.13871e-04_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.68831e-04_rb,0.94960e-04_rb,0.98638e-04_rb,0.96778e-04_rb,0.91816e-04_rb, &\n        & 0.83747e-04_rb,0.72403e-04_rb,0.56165e-04_rb,0.15423e-04_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.77259e-04_rb,0.10549e-03_rb,0.10909e-03_rb,0.10672e-03_rb,0.10065e-03_rb, &\n        & 0.91320e-04_rb,0.78406e-04_rb,0.60157e-04_rb,0.17141e-04_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.40102e-04_rb,0.56990e-04_rb,0.59444e-04_rb,0.58732e-04_rb,0.56091e-04_rb, &\n        & 0.51902e-04_rb,0.46247e-04_rb,0.37442e-04_rb,0.94022e-05_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.44930e-04_rb,0.63893e-04_rb,0.66629e-04_rb,0.65694e-04_rb,0.62627e-04_rb, &\n        & 0.57822e-04_rb,0.50819e-04_rb,0.40421e-04_rb,0.10475e-04_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.50532e-04_rb,0.71424e-04_rb,0.74352e-04_rb,0.73221e-04_rb,0.69651e-04_rb, &\n        & 0.64034e-04_rb,0.55430e-04_rb,0.43529e-04_rb,0.11728e-04_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.56953e-04_rb,0.79740e-04_rb,0.82769e-04_rb,0.81314e-04_rb,0.77278e-04_rb, &\n        & 0.70324e-04_rb,0.60396e-04_rb,0.46747e-04_rb,0.13063e-04_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.64019e-04_rb,0.88647e-04_rb,0.91768e-04_rb,0.89926e-04_rb,0.84958e-04_rb, &\n        & 0.76740e-04_rb,0.65561e-04_rb,0.50066e-04_rb,0.14435e-04_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.33806e-04_rb,0.47826e-04_rb,0.49443e-04_rb,0.48775e-04_rb,0.46477e-04_rb, &\n        & 0.42791e-04_rb,0.38155e-04_rb,0.31175e-04_rb,0.77886e-05_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.37973e-04_rb,0.53392e-04_rb,0.55526e-04_rb,0.54719e-04_rb,0.52062e-04_rb, &\n        & 0.47763e-04_rb,0.42021e-04_rb,0.33510e-04_rb,0.87404e-05_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.42758e-04_rb,0.59666e-04_rb,0.62058e-04_rb,0.61127e-04_rb,0.58012e-04_rb, &\n        & 0.53071e-04_rb,0.45971e-04_rb,0.36114e-04_rb,0.98499e-05_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.48006e-04_rb,0.66679e-04_rb,0.69230e-04_rb,0.67989e-04_rb,0.64400e-04_rb, &\n        & 0.58521e-04_rb,0.50196e-04_rb,0.38710e-04_rb,0.11022e-04_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.53657e-04_rb,0.74244e-04_rb,0.76813e-04_rb,0.75303e-04_rb,0.71011e-04_rb, &\n        & 0.64092e-04_rb,0.54599e-04_rb,0.41481e-04_rb,0.12225e-04_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.27953e-04_rb,0.40223e-04_rb,0.41331e-04_rb,0.40332e-04_rb,0.38114e-04_rb, &\n        & 0.34967e-04_rb,0.31158e-04_rb,0.25701e-04_rb,0.67604e-05_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.31595e-04_rb,0.44975e-04_rb,0.46374e-04_rb,0.45229e-04_rb,0.42775e-04_rb, &\n        & 0.39162e-04_rb,0.34373e-04_rb,0.27616e-04_rb,0.75558e-05_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.35649e-04_rb,0.50263e-04_rb,0.51713e-04_rb,0.50516e-04_rb,0.47855e-04_rb, &\n        & 0.43605e-04_rb,0.37705e-04_rb,0.29800e-04_rb,0.84063e-05_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.40086e-04_rb,0.55905e-04_rb,0.57584e-04_rb,0.56348e-04_rb,0.53200e-04_rb, &\n        & 0.48283e-04_rb,0.41331e-04_rb,0.31936e-04_rb,0.92686e-05_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.44931e-04_rb,0.62025e-04_rb,0.63942e-04_rb,0.62498e-04_rb,0.58788e-04_rb, &\n        & 0.53032e-04_rb,0.45085e-04_rb,0.34229e-04_rb,0.10175e-04_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.22829e-04_rb,0.33278e-04_rb,0.34196e-04_rb,0.33381e-04_rb,0.31444e-04_rb, &\n        & 0.28615e-04_rb,0.25331e-04_rb,0.21096e-04_rb,0.60732e-05_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.25917e-04_rb,0.37424e-04_rb,0.38527e-04_rb,0.37580e-04_rb,0.35302e-04_rb, &\n        & 0.32020e-04_rb,0.27957e-04_rb,0.22660e-04_rb,0.68180e-05_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.29386e-04_rb,0.41933e-04_rb,0.43213e-04_rb,0.42039e-04_rb,0.39445e-04_rb, &\n        & 0.35659e-04_rb,0.30780e-04_rb,0.24432e-04_rb,0.76296e-05_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.33186e-04_rb,0.46811e-04_rb,0.48218e-04_rb,0.46849e-04_rb,0.43848e-04_rb, &\n        & 0.39567e-04_rb,0.33858e-04_rb,0.26257e-04_rb,0.82634e-05_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.37227e-04_rb,0.52060e-04_rb,0.53592e-04_rb,0.51948e-04_rb,0.48471e-04_rb, &\n        & 0.43595e-04_rb,0.37022e-04_rb,0.28130e-04_rb,0.90053e-05_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.18333e-04_rb,0.27259e-04_rb,0.27929e-04_rb,0.27230e-04_rb,0.25672e-04_rb, &\n        & 0.23374e-04_rb,0.20571e-04_rb,0.17333e-04_rb,0.54157e-05_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.20948e-04_rb,0.30774e-04_rb,0.31604e-04_rb,0.30823e-04_rb,0.29002e-04_rb, &\n        & 0.26292e-04_rb,0.22734e-04_rb,0.18593e-04_rb,0.61669e-05_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.23883e-04_rb,0.34642e-04_rb,0.35656e-04_rb,0.34670e-04_rb,0.32507e-04_rb, &\n        & 0.29303e-04_rb,0.25111e-04_rb,0.19985e-04_rb,0.69048e-05_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.27098e-04_rb,0.38802e-04_rb,0.40013e-04_rb,0.38777e-04_rb,0.36214e-04_rb, &\n        & 0.32542e-04_rb,0.27674e-04_rb,0.21526e-04_rb,0.76591e-05_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.30462e-04_rb,0.43307e-04_rb,0.44596e-04_rb,0.43127e-04_rb,0.40142e-04_rb, &\n        & 0.35890e-04_rb,0.30276e-04_rb,0.23065e-04_rb,0.84480e-05_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.14510e-04_rb,0.22049e-04_rb,0.22596e-04_rb,0.22021e-04_rb,0.20750e-04_rb, &\n        & 0.18895e-04_rb,0.16685e-04_rb,0.14158e-04_rb,0.50284e-05_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.16710e-04_rb,0.25012e-04_rb,0.25686e-04_rb,0.25017e-04_rb,0.23537e-04_rb, &\n        & 0.21350e-04_rb,0.18517e-04_rb,0.15170e-04_rb,0.59016e-05_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.19138e-04_rb,0.28271e-04_rb,0.29104e-04_rb,0.28272e-04_rb,0.26493e-04_rb, &\n        & 0.23916e-04_rb,0.20530e-04_rb,0.16297e-04_rb,0.68413e-05_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.21798e-04_rb,0.31859e-04_rb,0.32802e-04_rb,0.31762e-04_rb,0.29603e-04_rb, &\n        & 0.26643e-04_rb,0.22650e-04_rb,0.17559e-04_rb,0.78093e-05_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.24599e-04_rb,0.35618e-04_rb,0.36736e-04_rb,0.35456e-04_rb,0.32981e-04_rb, &\n        & 0.29459e-04_rb,0.24877e-04_rb,0.18821e-04_rb,0.88149e-05_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.11455e-04_rb,0.17796e-04_rb,0.18282e-04_rb,0.17833e-04_rb,0.16814e-04_rb, &\n        & 0.15305e-04_rb,0.13526e-04_rb,0.11628e-04_rb,0.47637e-05_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.13295e-04_rb,0.20290e-04_rb,0.20862e-04_rb,0.20316e-04_rb,0.19125e-04_rb, &\n        & 0.17348e-04_rb,0.15042e-04_rb,0.12455e-04_rb,0.56495e-05_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.15297e-04_rb,0.22994e-04_rb,0.23740e-04_rb,0.23076e-04_rb,0.21626e-04_rb, &\n        & 0.19529e-04_rb,0.16766e-04_rb,0.13399e-04_rb,0.65988e-05_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.17488e-04_rb,0.25986e-04_rb,0.26882e-04_rb,0.26021e-04_rb,0.24246e-04_rb, &\n        & 0.21820e-04_rb,0.18554e-04_rb,0.14427e-04_rb,0.74644e-05_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.19800e-04_rb,0.29160e-04_rb,0.30208e-04_rb,0.29161e-04_rb,0.27086e-04_rb, &\n        & 0.24189e-04_rb,0.20462e-04_rb,0.15474e-04_rb,0.84395e-05_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.96366e-05_rb,0.15168e-04_rb,0.15611e-04_rb,0.15230e-04_rb,0.14381e-04_rb, &\n        & 0.13058e-04_rb,0.11457e-04_rb,0.98195e-05_rb,0.43210e-05_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.11221e-04_rb,0.17304e-04_rb,0.17859e-04_rb,0.17390e-04_rb,0.16383e-04_rb, &\n        & 0.14837e-04_rb,0.12820e-04_rb,0.10541e-04_rb,0.50915e-05_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.12922e-04_rb,0.19611e-04_rb,0.20376e-04_rb,0.19769e-04_rb,0.18510e-04_rb, &\n        & 0.16733e-04_rb,0.14297e-04_rb,0.11375e-04_rb,0.59349e-05_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.14759e-04_rb,0.22226e-04_rb,0.23087e-04_rb,0.22319e-04_rb,0.20789e-04_rb, &\n        & 0.18677e-04_rb,0.15854e-04_rb,0.12233e-04_rb,0.68646e-05_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.16687e-04_rb,0.24901e-04_rb,0.25894e-04_rb,0.25020e-04_rb,0.23234e-04_rb, &\n        & 0.20746e-04_rb,0.17450e-04_rb,0.13143e-04_rb,0.77945e-05_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.80728e-05_rb,0.12833e-04_rb,0.13241e-04_rb,0.12930e-04_rb,0.12209e-04_rb, &\n        & 0.11077e-04_rb,0.96874e-05_rb,0.82518e-05_rb,0.36987e-05_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.94096e-05_rb,0.14647e-04_rb,0.15179e-04_rb,0.14789e-04_rb,0.13929e-04_rb, &\n        & 0.12614e-04_rb,0.10863e-04_rb,0.88839e-05_rb,0.43642e-05_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.10827e-04_rb,0.16625e-04_rb,0.17336e-04_rb,0.16825e-04_rb,0.15757e-04_rb, &\n        & 0.14215e-04_rb,0.12135e-04_rb,0.95702e-05_rb,0.51276e-05_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.12346e-04_rb,0.18823e-04_rb,0.19626e-04_rb,0.19011e-04_rb,0.17715e-04_rb, &\n        & 0.15891e-04_rb,0.13472e-04_rb,0.10297e-04_rb,0.58818e-05_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.13954e-04_rb,0.21071e-04_rb,0.21985e-04_rb,0.21278e-04_rb,0.19773e-04_rb, &\n        & 0.17642e-04_rb,0.14813e-04_rb,0.11109e-04_rb,0.66485e-05_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.67198e-05_rb,0.10777e-04_rb,0.11153e-04_rb,0.10900e-04_rb,0.10301e-04_rb, &\n        & 0.93345e-05_rb,0.81433e-05_rb,0.69156e-05_rb,0.30498e-05_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.78283e-05_rb,0.12283e-04_rb,0.12805e-04_rb,0.12492e-04_rb,0.11757e-04_rb, &\n        & 0.10649e-04_rb,0.91519e-05_rb,0.74495e-05_rb,0.36028e-05_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.89966e-05_rb,0.13983e-04_rb,0.14629e-04_rb,0.14218e-04_rb,0.13315e-04_rb, &\n        & 0.11990e-04_rb,0.10230e-04_rb,0.80237e-05_rb,0.42382e-05_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.10250e-04_rb,0.15794e-04_rb,0.16536e-04_rb,0.16055e-04_rb,0.14979e-04_rb, &\n        & 0.13421e-04_rb,0.11355e-04_rb,0.86371e-05_rb,0.48511e-05_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.11575e-04_rb,0.17689e-04_rb,0.18502e-04_rb,0.17950e-04_rb,0.16689e-04_rb, &\n        & 0.14883e-04_rb,0.12476e-04_rb,0.93537e-05_rb,0.54799e-05_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.20313e-03_rb,0.26410e-03_rb,0.27054e-03_rb,0.25842e-03_rb,0.23794e-03_rb, &\n        & 0.21033e-03_rb,0.17730e-03_rb,0.13831e-03_rb,0.52995e-04_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.22722e-03_rb,0.29058e-03_rb,0.29572e-03_rb,0.28200e-03_rb,0.25898e-03_rb, &\n        & 0.22814e-03_rb,0.19209e-03_rb,0.14957e-03_rb,0.59096e-04_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.25054e-03_rb,0.31580e-03_rb,0.31991e-03_rb,0.30486e-03_rb,0.27955e-03_rb, &\n        & 0.24634e-03_rb,0.20787e-03_rb,0.16179e-03_rb,0.65118e-04_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.27197e-03_rb,0.33971e-03_rb,0.34310e-03_rb,0.32677e-03_rb,0.30002e-03_rb, &\n        & 0.26574e-03_rb,0.22502e-03_rb,0.17520e-03_rb,0.71711e-04_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.29178e-03_rb,0.36213e-03_rb,0.36503e-03_rb,0.34815e-03_rb,0.32114e-03_rb, &\n        & 0.28599e-03_rb,0.24328e-03_rb,0.18958e-03_rb,0.78523e-04_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.17547e-03_rb,0.23012e-03_rb,0.23639e-03_rb,0.22606e-03_rb,0.20799e-03_rb, &\n        & 0.18326e-03_rb,0.15385e-03_rb,0.11888e-03_rb,0.43633e-04_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.19601e-03_rb,0.25269e-03_rb,0.25751e-03_rb,0.24629e-03_rb,0.22623e-03_rb, &\n        & 0.19926e-03_rb,0.16712e-03_rb,0.12877e-03_rb,0.48382e-04_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.21598e-03_rb,0.27423e-03_rb,0.27812e-03_rb,0.26576e-03_rb,0.24403e-03_rb, &\n        & 0.21552e-03_rb,0.18141e-03_rb,0.13982e-03_rb,0.53560e-04_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.23449e-03_rb,0.29482e-03_rb,0.29820e-03_rb,0.28454e-03_rb,0.26171e-03_rb, &\n        & 0.23254e-03_rb,0.19681e-03_rb,0.15192e-03_rb,0.59054e-04_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.25198e-03_rb,0.31408e-03_rb,0.31723e-03_rb,0.30341e-03_rb,0.28040e-03_rb, &\n        & 0.25022e-03_rb,0.21333e-03_rb,0.16487e-03_rb,0.64779e-04_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.14736e-03_rb,0.19483e-03_rb,0.20065e-03_rb,0.19242e-03_rb,0.17728e-03_rb, &\n        & 0.15627e-03_rb,0.13078e-03_rb,0.10037e-03_rb,0.34217e-04_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.16492e-03_rb,0.21441e-03_rb,0.21892e-03_rb,0.20980e-03_rb,0.19289e-03_rb, &\n        & 0.17000e-03_rb,0.14249e-03_rb,0.10902e-03_rb,0.38352e-04_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.18200e-03_rb,0.23294e-03_rb,0.23658e-03_rb,0.22658e-03_rb,0.20822e-03_rb, &\n        & 0.18391e-03_rb,0.15484e-03_rb,0.11888e-03_rb,0.42700e-04_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.19811e-03_rb,0.25094e-03_rb,0.25385e-03_rb,0.24276e-03_rb,0.22338e-03_rb, &\n        & 0.19841e-03_rb,0.16822e-03_rb,0.12943e-03_rb,0.47257e-04_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.21352e-03_rb,0.26784e-03_rb,0.27027e-03_rb,0.25917e-03_rb,0.23966e-03_rb, &\n        & 0.21399e-03_rb,0.18239e-03_rb,0.14058e-03_rb,0.51997e-04_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.12070e-03_rb,0.16282e-03_rb,0.16870e-03_rb,0.16215e-03_rb,0.14966e-03_rb, &\n        & 0.13195e-03_rb,0.11003e-03_rb,0.83743e-04_rb,0.26841e-04_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.13616e-03_rb,0.17979e-03_rb,0.18420e-03_rb,0.17692e-03_rb,0.16288e-03_rb, &\n        & 0.14351e-03_rb,0.12000e-03_rb,0.91324e-04_rb,0.29956e-04_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.15142e-03_rb,0.19606e-03_rb,0.19933e-03_rb,0.19132e-03_rb,0.17582e-03_rb, &\n        & 0.15506e-03_rb,0.13061e-03_rb,0.99881e-04_rb,0.33175e-04_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.16591e-03_rb,0.21170e-03_rb,0.21421e-03_rb,0.20525e-03_rb,0.18888e-03_rb, &\n        & 0.16747e-03_rb,0.14192e-03_rb,0.10907e-03_rb,0.36625e-04_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.17956e-03_rb,0.22655e-03_rb,0.22833e-03_rb,0.21949e-03_rb,0.20283e-03_rb, &\n        & 0.18086e-03_rb,0.15393e-03_rb,0.11865e-03_rb,0.40513e-04_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.98625e-04_rb,0.13480e-03_rb,0.14099e-03_rb,0.13653e-03_rb,0.12600e-03_rb, &\n        & 0.11107e-03_rb,0.92102e-04_rb,0.69414e-04_rb,0.22597e-04_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.11165e-03_rb,0.14975e-03_rb,0.15429e-03_rb,0.14886e-03_rb,0.13710e-03_rb, &\n        & 0.12076e-03_rb,0.10051e-03_rb,0.76046e-04_rb,0.25265e-04_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.12461e-03_rb,0.16391e-03_rb,0.16725e-03_rb,0.16091e-03_rb,0.14796e-03_rb, &\n        & 0.13047e-03_rb,0.10941e-03_rb,0.83193e-04_rb,0.27962e-04_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.13738e-03_rb,0.17761e-03_rb,0.17982e-03_rb,0.17281e-03_rb,0.15916e-03_rb, &\n        & 0.14087e-03_rb,0.11892e-03_rb,0.90972e-04_rb,0.30855e-04_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.14967e-03_rb,0.19066e-03_rb,0.19231e-03_rb,0.18509e-03_rb,0.17109e-03_rb, &\n        & 0.15227e-03_rb,0.12906e-03_rb,0.99136e-04_rb,0.34017e-04_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.79863e-04_rb,0.11034e-03_rb,0.11622e-03_rb,0.11400e-03_rb,0.10532e-03_rb, &\n        & 0.92978e-04_rb,0.76661e-04_rb,0.57287e-04_rb,0.18664e-04_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.90753e-04_rb,0.12318e-03_rb,0.12766e-03_rb,0.12440e-03_rb,0.11482e-03_rb, &\n        & 0.10110e-03_rb,0.83697e-04_rb,0.62663e-04_rb,0.20928e-04_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.10183e-03_rb,0.13532e-03_rb,0.13907e-03_rb,0.13464e-03_rb,0.12396e-03_rb, &\n        & 0.10925e-03_rb,0.90984e-04_rb,0.68513e-04_rb,0.23264e-04_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.11293e-03_rb,0.14742e-03_rb,0.14995e-03_rb,0.14481e-03_rb,0.13354e-03_rb, &\n        & 0.11797e-03_rb,0.98845e-04_rb,0.74965e-04_rb,0.25850e-04_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.12360e-03_rb,0.15914e-03_rb,0.16090e-03_rb,0.15521e-03_rb,0.14361e-03_rb, &\n        & 0.12755e-03_rb,0.10739e-03_rb,0.81915e-04_rb,0.28635e-04_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.65679e-04_rb,0.90084e-04_rb,0.95681e-04_rb,0.94567e-04_rb,0.87338e-04_rb, &\n        & 0.77275e-04_rb,0.63642e-04_rb,0.47097e-04_rb,0.15508e-04_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.74551e-04_rb,0.10089e-03_rb,0.10531e-03_rb,0.10327e-03_rb,0.95364e-04_rb, &\n        & 0.84154e-04_rb,0.69569e-04_rb,0.51426e-04_rb,0.17234e-04_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.83584e-04_rb,0.11137e-03_rb,0.11469e-03_rb,0.11193e-03_rb,0.10325e-03_rb, &\n        & 0.91075e-04_rb,0.75479e-04_rb,0.56228e-04_rb,0.19127e-04_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.92762e-04_rb,0.12171e-03_rb,0.12420e-03_rb,0.12060e-03_rb,0.11147e-03_rb, &\n        & 0.98465e-04_rb,0.81969e-04_rb,0.61529e-04_rb,0.21452e-04_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.10189e-03_rb,0.13182e-03_rb,0.13364e-03_rb,0.12960e-03_rb,0.12008e-03_rb, &\n        & 0.10652e-03_rb,0.89045e-04_rb,0.67334e-04_rb,0.23711e-04_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.53656e-04_rb,0.74109e-04_rb,0.78629e-04_rb,0.78245e-04_rb,0.72322e-04_rb, &\n        & 0.63915e-04_rb,0.52625e-04_rb,0.38591e-04_rb,0.14416e-04_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.61163e-04_rb,0.83104e-04_rb,0.86832e-04_rb,0.85562e-04_rb,0.78992e-04_rb, &\n        & 0.69666e-04_rb,0.57574e-04_rb,0.42098e-04_rb,0.15921e-04_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.68914e-04_rb,0.91909e-04_rb,0.94594e-04_rb,0.92816e-04_rb,0.85590e-04_rb, &\n        & 0.75491e-04_rb,0.62445e-04_rb,0.46109e-04_rb,0.17209e-04_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.76847e-04_rb,0.10059e-03_rb,0.10256e-03_rb,0.10019e-03_rb,0.92496e-04_rb, &\n        & 0.81729e-04_rb,0.67763e-04_rb,0.50445e-04_rb,0.18589e-04_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.84847e-04_rb,0.10902e-03_rb,0.11071e-03_rb,0.10784e-03_rb,0.99812e-04_rb, &\n        & 0.88516e-04_rb,0.73718e-04_rb,0.55250e-04_rb,0.20194e-04_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.43346e-04_rb,0.60608e-04_rb,0.64818e-04_rb,0.64681e-04_rb,0.59655e-04_rb, &\n        & 0.52617e-04_rb,0.43206e-04_rb,0.31573e-04_rb,0.14696e-04_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.49669e-04_rb,0.68380e-04_rb,0.71800e-04_rb,0.70860e-04_rb,0.65260e-04_rb, &\n        & 0.57496e-04_rb,0.47313e-04_rb,0.34405e-04_rb,0.16164e-04_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.56274e-04_rb,0.76040e-04_rb,0.78454e-04_rb,0.76944e-04_rb,0.70665e-04_rb, &\n        & 0.62347e-04_rb,0.51383e-04_rb,0.37665e-04_rb,0.17841e-04_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.63127e-04_rb,0.83451e-04_rb,0.85178e-04_rb,0.83082e-04_rb,0.76437e-04_rb, &\n        & 0.67538e-04_rb,0.55797e-04_rb,0.41264e-04_rb,0.19504e-04_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.70124e-04_rb,0.90807e-04_rb,0.91960e-04_rb,0.89432e-04_rb,0.82527e-04_rb, &\n        & 0.73176e-04_rb,0.60668e-04_rb,0.45179e-04_rb,0.20992e-04_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.35059e-04_rb,0.49531e-04_rb,0.53376e-04_rb,0.53665e-04_rb,0.49644e-04_rb, &\n        & 0.43592e-04_rb,0.35609e-04_rb,0.25845e-04_rb,0.13231e-04_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.40376e-04_rb,0.56174e-04_rb,0.59502e-04_rb,0.59040e-04_rb,0.54399e-04_rb, &\n        & 0.47687e-04_rb,0.39007e-04_rb,0.28189e-04_rb,0.15223e-04_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.46006e-04_rb,0.62899e-04_rb,0.65214e-04_rb,0.64178e-04_rb,0.58976e-04_rb, &\n        & 0.51726e-04_rb,0.42386e-04_rb,0.30843e-04_rb,0.17241e-04_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.51905e-04_rb,0.69395e-04_rb,0.70988e-04_rb,0.69461e-04_rb,0.63801e-04_rb, &\n        & 0.56040e-04_rb,0.46059e-04_rb,0.33831e-04_rb,0.19714e-04_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.57990e-04_rb,0.75737e-04_rb,0.76826e-04_rb,0.74718e-04_rb,0.68839e-04_rb, &\n        & 0.60664e-04_rb,0.50105e-04_rb,0.37049e-04_rb,0.22308e-04_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.30150e-04_rb,0.42738e-04_rb,0.46011e-04_rb,0.46330e-04_rb,0.42907e-04_rb, &\n        & 0.37605e-04_rb,0.30702e-04_rb,0.21962e-04_rb,0.11791e-04_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.34714e-04_rb,0.48516e-04_rb,0.51120e-04_rb,0.50726e-04_rb,0.46912e-04_rb, &\n        & 0.41033e-04_rb,0.33505e-04_rb,0.23952e-04_rb,0.13242e-04_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.39649e-04_rb,0.54325e-04_rb,0.56146e-04_rb,0.55270e-04_rb,0.50902e-04_rb, &\n        & 0.44559e-04_rb,0.36351e-04_rb,0.26266e-04_rb,0.15075e-04_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.44779e-04_rb,0.59893e-04_rb,0.61166e-04_rb,0.59766e-04_rb,0.55070e-04_rb, &\n        & 0.48303e-04_rb,0.39491e-04_rb,0.28847e-04_rb,0.17164e-04_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.49946e-04_rb,0.65411e-04_rb,0.66256e-04_rb,0.64345e-04_rb,0.59474e-04_rb, &\n        & 0.52287e-04_rb,0.43003e-04_rb,0.31612e-04_rb,0.19542e-04_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.25681e-04_rb,0.36622e-04_rb,0.39428e-04_rb,0.39582e-04_rb,0.36786e-04_rb, &\n        & 0.32210e-04_rb,0.26270e-04_rb,0.18629e-04_rb,0.10035e-04_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.29636e-04_rb,0.41620e-04_rb,0.43701e-04_rb,0.43425e-04_rb,0.40150e-04_rb, &\n        & 0.35105e-04_rb,0.28637e-04_rb,0.20365e-04_rb,0.11416e-04_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.33921e-04_rb,0.46628e-04_rb,0.48062e-04_rb,0.47301e-04_rb,0.43633e-04_rb, &\n        & 0.38189e-04_rb,0.31133e-04_rb,0.22405e-04_rb,0.12946e-04_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.38341e-04_rb,0.51401e-04_rb,0.52457e-04_rb,0.51129e-04_rb,0.47238e-04_rb, &\n        & 0.41429e-04_rb,0.33905e-04_rb,0.24546e-04_rb,0.14770e-04_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.42576e-04_rb,0.56153e-04_rb,0.56863e-04_rb,0.55182e-04_rb,0.51113e-04_rb, &\n        & 0.44940e-04_rb,0.36987e-04_rb,0.26898e-04_rb,0.16865e-04_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.21707e-04_rb,0.31142e-04_rb,0.33487e-04_rb,0.33650e-04_rb,0.31301e-04_rb, &\n        & 0.27396e-04_rb,0.22352e-04_rb,0.15744e-04_rb,0.83005e-05_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.25112e-04_rb,0.35474e-04_rb,0.37158e-04_rb,0.36970e-04_rb,0.34170e-04_rb, &\n        & 0.29871e-04_rb,0.24361e-04_rb,0.17312e-04_rb,0.93559e-05_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.28762e-04_rb,0.39712e-04_rb,0.40924e-04_rb,0.40199e-04_rb,0.37169e-04_rb, &\n        & 0.32565e-04_rb,0.26566e-04_rb,0.19074e-04_rb,0.10670e-04_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.32448e-04_rb,0.43808e-04_rb,0.44734e-04_rb,0.43534e-04_rb,0.40323e-04_rb, &\n        & 0.35367e-04_rb,0.29011e-04_rb,0.20897e-04_rb,0.12240e-04_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.35905e-04_rb,0.47771e-04_rb,0.48482e-04_rb,0.47094e-04_rb,0.43703e-04_rb, &\n        & 0.38474e-04_rb,0.31715e-04_rb,0.22899e-04_rb,0.13958e-04_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.50328e-03_rb,0.59028e-03_rb,0.59973e-03_rb,0.58955e-03_rb,0.56685e-03_rb, &\n        & 0.50893e-03_rb,0.43098e-03_rb,0.31518e-03_rb,0.12599e-03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.53454e-03_rb,0.62581e-03_rb,0.63729e-03_rb,0.62588e-03_rb,0.59902e-03_rb, &\n        & 0.54179e-03_rb,0.45928e-03_rb,0.33824e-03_rb,0.13937e-03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.56216e-03_rb,0.66315e-03_rb,0.67707e-03_rb,0.66553e-03_rb,0.63545e-03_rb, &\n        & 0.57719e-03_rb,0.48913e-03_rb,0.36332e-03_rb,0.15548e-03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.58821e-03_rb,0.70231e-03_rb,0.71934e-03_rb,0.70828e-03_rb,0.67637e-03_rb, &\n        & 0.61438e-03_rb,0.52042e-03_rb,0.38978e-03_rb,0.17254e-03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.61349e-03_rb,0.74309e-03_rb,0.76503e-03_rb,0.75486e-03_rb,0.71943e-03_rb, &\n        & 0.65213e-03_rb,0.55331e-03_rb,0.41818e-03_rb,0.19176e-03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.43720e-03_rb,0.51117e-03_rb,0.51919e-03_rb,0.50988e-03_rb,0.48875e-03_rb, &\n        & 0.44138e-03_rb,0.37418e-03_rb,0.27478e-03_rb,0.10374e-03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.46400e-03_rb,0.54460e-03_rb,0.55429e-03_rb,0.54395e-03_rb,0.52067e-03_rb, &\n        & 0.47118e-03_rb,0.39949e-03_rb,0.29546e-03_rb,0.11585e-03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.48798e-03_rb,0.57940e-03_rb,0.59177e-03_rb,0.58113e-03_rb,0.55553e-03_rb, &\n        & 0.50290e-03_rb,0.42588e-03_rb,0.31727e-03_rb,0.12872e-03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.51088e-03_rb,0.61529e-03_rb,0.63115e-03_rb,0.62163e-03_rb,0.59296e-03_rb, &\n        & 0.53614e-03_rb,0.45317e-03_rb,0.34070e-03_rb,0.14334e-03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.53331e-03_rb,0.65233e-03_rb,0.67270e-03_rb,0.66363e-03_rb,0.63091e-03_rb, &\n        & 0.57023e-03_rb,0.48253e-03_rb,0.36597e-03_rb,0.15947e-03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.37168e-03_rb,0.43544e-03_rb,0.44351e-03_rb,0.43496e-03_rb,0.41418e-03_rb, &\n        & 0.37673e-03_rb,0.31849e-03_rb,0.23373e-03_rb,0.83035e-04_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.39476e-03_rb,0.46532e-03_rb,0.47527e-03_rb,0.46587e-03_rb,0.44394e-03_rb, &\n        & 0.40288e-03_rb,0.34052e-03_rb,0.25172e-03_rb,0.92363e-04_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.41559e-03_rb,0.49597e-03_rb,0.50880e-03_rb,0.49944e-03_rb,0.47605e-03_rb, &\n        & 0.43138e-03_rb,0.36384e-03_rb,0.27063e-03_rb,0.10327e-03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.43551e-03_rb,0.52738e-03_rb,0.54357e-03_rb,0.53553e-03_rb,0.50924e-03_rb, &\n        & 0.46069e-03_rb,0.38844e-03_rb,0.29089e-03_rb,0.11548e-03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.45509e-03_rb,0.56036e-03_rb,0.58045e-03_rb,0.57279e-03_rb,0.54320e-03_rb, &\n        & 0.49088e-03_rb,0.41461e-03_rb,0.31304e-03_rb,0.12901e-03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.31353e-03_rb,0.36800e-03_rb,0.37478e-03_rb,0.36628e-03_rb,0.34818e-03_rb, &\n        & 0.31938e-03_rb,0.26882e-03_rb,0.19725e-03_rb,0.65143e-04_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.33327e-03_rb,0.39347e-03_rb,0.40240e-03_rb,0.39421e-03_rb,0.37500e-03_rb, &\n        & 0.34245e-03_rb,0.28782e-03_rb,0.21247e-03_rb,0.72911e-04_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.35116e-03_rb,0.41935e-03_rb,0.43125e-03_rb,0.42396e-03_rb,0.40374e-03_rb, &\n        & 0.36745e-03_rb,0.30851e-03_rb,0.22861e-03_rb,0.82223e-04_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.36817e-03_rb,0.44654e-03_rb,0.46141e-03_rb,0.45505e-03_rb,0.43257e-03_rb, &\n        & 0.39339e-03_rb,0.33051e-03_rb,0.24594e-03_rb,0.92524e-04_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.38502e-03_rb,0.47537e-03_rb,0.49387e-03_rb,0.48730e-03_rb,0.46233e-03_rb, &\n        & 0.42007e-03_rb,0.35374e-03_rb,0.26504e-03_rb,0.10363e-03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.26371e-03_rb,0.30958e-03_rb,0.31480e-03_rb,0.30643e-03_rb,0.29119e-03_rb, &\n        & 0.26781e-03_rb,0.22601e-03_rb,0.16580e-03_rb,0.51526e-04_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.28046e-03_rb,0.33149e-03_rb,0.33831e-03_rb,0.33074e-03_rb,0.31455e-03_rb, &\n        & 0.28912e-03_rb,0.24254e-03_rb,0.17884e-03_rb,0.57544e-04_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.29571e-03_rb,0.35368e-03_rb,0.36281e-03_rb,0.35630e-03_rb,0.33882e-03_rb, &\n        & 0.31097e-03_rb,0.26070e-03_rb,0.19272e-03_rb,0.64519e-04_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.31016e-03_rb,0.37666e-03_rb,0.38893e-03_rb,0.38273e-03_rb,0.36412e-03_rb, &\n        & 0.33364e-03_rb,0.28016e-03_rb,0.20757e-03_rb,0.72363e-04_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.32452e-03_rb,0.40122e-03_rb,0.41666e-03_rb,0.41046e-03_rb,0.39013e-03_rb, &\n        & 0.35668e-03_rb,0.30056e-03_rb,0.22388e-03_rb,0.80981e-04_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.22069e-03_rb,0.25888e-03_rb,0.26323e-03_rb,0.25479e-03_rb,0.24246e-03_rb, &\n        & 0.22303e-03_rb,0.18865e-03_rb,0.13826e-03_rb,0.42586e-04_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.23505e-03_rb,0.27730e-03_rb,0.28289e-03_rb,0.27510e-03_rb,0.26179e-03_rb, &\n        & 0.24147e-03_rb,0.20303e-03_rb,0.14956e-03_rb,0.47728e-04_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.24799e-03_rb,0.29644e-03_rb,0.30324e-03_rb,0.29696e-03_rb,0.28190e-03_rb, &\n        & 0.26059e-03_rb,0.21889e-03_rb,0.16173e-03_rb,0.53804e-04_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.26027e-03_rb,0.31607e-03_rb,0.32548e-03_rb,0.31928e-03_rb,0.30338e-03_rb, &\n        & 0.27984e-03_rb,0.23536e-03_rb,0.17457e-03_rb,0.60579e-04_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.27261e-03_rb,0.33682e-03_rb,0.34889e-03_rb,0.34299e-03_rb,0.32589e-03_rb, &\n        & 0.29875e-03_rb,0.25286e-03_rb,0.18852e-03_rb,0.67802e-04_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.18284e-03_rb,0.21563e-03_rb,0.21874e-03_rb,0.21147e-03_rb,0.20158e-03_rb, &\n        & 0.18535e-03_rb,0.15699e-03_rb,0.11455e-03_rb,0.35095e-04_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.19537e-03_rb,0.23122e-03_rb,0.23571e-03_rb,0.22829e-03_rb,0.21760e-03_rb, &\n        & 0.20013e-03_rb,0.16934e-03_rb,0.12429e-03_rb,0.39853e-04_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.20672e-03_rb,0.24731e-03_rb,0.25313e-03_rb,0.24636e-03_rb,0.23401e-03_rb, &\n        & 0.21622e-03_rb,0.18276e-03_rb,0.13469e-03_rb,0.45173e-04_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.21741e-03_rb,0.26399e-03_rb,0.27153e-03_rb,0.26539e-03_rb,0.25198e-03_rb, &\n        & 0.23212e-03_rb,0.19655e-03_rb,0.14593e-03_rb,0.50910e-04_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.22822e-03_rb,0.28170e-03_rb,0.29118e-03_rb,0.28544e-03_rb,0.27112e-03_rb, &\n        & 0.24842e-03_rb,0.21129e-03_rb,0.15803e-03_rb,0.57288e-04_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.15136e-03_rb,0.17854e-03_rb,0.18119e-03_rb,0.17535e-03_rb,0.16721e-03_rb, &\n        & 0.15392e-03_rb,0.13041e-03_rb,0.94463e-04_rb,0.29176e-04_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.16197e-03_rb,0.19183e-03_rb,0.19544e-03_rb,0.18940e-03_rb,0.18045e-03_rb, &\n        & 0.16606e-03_rb,0.14094e-03_rb,0.10292e-03_rb,0.33234e-04_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.17149e-03_rb,0.20540e-03_rb,0.21055e-03_rb,0.20432e-03_rb,0.19421e-03_rb, &\n        & 0.17914e-03_rb,0.15214e-03_rb,0.11170e-03_rb,0.37987e-04_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.18048e-03_rb,0.21966e-03_rb,0.22618e-03_rb,0.22017e-03_rb,0.20926e-03_rb, &\n        & 0.19215e-03_rb,0.16364e-03_rb,0.12118e-03_rb,0.43249e-04_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.18968e-03_rb,0.23496e-03_rb,0.24258e-03_rb,0.23712e-03_rb,0.22524e-03_rb, &\n        & 0.20589e-03_rb,0.17598e-03_rb,0.13139e-03_rb,0.48772e-04_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.12535e-03_rb,0.14733e-03_rb,0.14911e-03_rb,0.14464e-03_rb,0.13810e-03_rb, &\n        & 0.12766e-03_rb,0.10804e-03_rb,0.77667e-04_rb,0.31607e-04_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.13428e-03_rb,0.15826e-03_rb,0.16122e-03_rb,0.15658e-03_rb,0.14914e-03_rb, &\n        & 0.13752e-03_rb,0.11655e-03_rb,0.84956e-04_rb,0.35832e-04_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.14212e-03_rb,0.16949e-03_rb,0.17392e-03_rb,0.16905e-03_rb,0.16073e-03_rb, &\n        & 0.14802e-03_rb,0.12582e-03_rb,0.92269e-04_rb,0.39990e-04_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.14955e-03_rb,0.18151e-03_rb,0.18720e-03_rb,0.18233e-03_rb,0.17343e-03_rb, &\n        & 0.15845e-03_rb,0.13559e-03_rb,0.99998e-04_rb,0.44405e-04_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.15720e-03_rb,0.19441e-03_rb,0.20115e-03_rb,0.19658e-03_rb,0.18679e-03_rb, &\n        & 0.17045e-03_rb,0.14597e-03_rb,0.10853e-03_rb,0.48354e-04_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.10518e-03_rb,0.12283e-03_rb,0.12342e-03_rb,0.11933e-03_rb,0.11376e-03_rb, &\n        & 0.10615e-03_rb,0.89610e-04_rb,0.64322e-04_rb,0.38897e-04_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.11277e-03_rb,0.13167e-03_rb,0.13319e-03_rb,0.12937e-03_rb,0.12328e-03_rb, &\n        & 0.11434e-03_rb,0.96637e-04_rb,0.70434e-04_rb,0.44697e-04_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.11946e-03_rb,0.14071e-03_rb,0.14389e-03_rb,0.14002e-03_rb,0.13292e-03_rb, &\n        & 0.12246e-03_rb,0.10436e-03_rb,0.76473e-04_rb,0.50672e-04_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.12573e-03_rb,0.15045e-03_rb,0.15515e-03_rb,0.15121e-03_rb,0.14368e-03_rb, &\n        & 0.13136e-03_rb,0.11260e-03_rb,0.82864e-04_rb,0.56090e-04_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.13210e-03_rb,0.16128e-03_rb,0.16701e-03_rb,0.16339e-03_rb,0.15508e-03_rb, &\n        & 0.14154e-03_rb,0.12132e-03_rb,0.89973e-04_rb,0.61017e-04_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.90693e-04_rb,0.10606e-03_rb,0.10639e-03_rb,0.10214e-03_rb,0.97041e-04_rb, &\n        & 0.90929e-04_rb,0.76654e-04_rb,0.55448e-04_rb,0.34971e-04_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.96878e-04_rb,0.11346e-03_rb,0.11478e-03_rb,0.11094e-03_rb,0.10496e-03_rb, &\n        & 0.97427e-04_rb,0.82680e-04_rb,0.60468e-04_rb,0.41599e-04_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.10232e-03_rb,0.12125e-03_rb,0.12365e-03_rb,0.11979e-03_rb,0.11346e-03_rb, &\n        & 0.10430e-03_rb,0.89390e-04_rb,0.65549e-04_rb,0.48186e-04_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.10772e-03_rb,0.12969e-03_rb,0.13316e-03_rb,0.12963e-03_rb,0.12290e-03_rb, &\n        & 0.11234e-03_rb,0.96526e-04_rb,0.71097e-04_rb,0.54537e-04_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.11345e-03_rb,0.13912e-03_rb,0.14339e-03_rb,0.14025e-03_rb,0.13275e-03_rb, &\n        & 0.12106e-03_rb,0.10412e-03_rb,0.77240e-04_rb,0.60238e-04_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.77577e-04_rb,0.91005e-04_rb,0.91202e-04_rb,0.87618e-04_rb,0.82974e-04_rb, &\n        & 0.77488e-04_rb,0.65261e-04_rb,0.47539e-04_rb,0.30516e-04_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.82612e-04_rb,0.97349e-04_rb,0.98497e-04_rb,0.95069e-04_rb,0.89699e-04_rb, &\n        & 0.82714e-04_rb,0.70478e-04_rb,0.51645e-04_rb,0.35968e-04_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.87206e-04_rb,0.10402e-03_rb,0.10625e-03_rb,0.10294e-03_rb,0.97013e-04_rb, &\n        & 0.88723e-04_rb,0.76259e-04_rb,0.55960e-04_rb,0.41899e-04_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.91929e-04_rb,0.11153e-03_rb,0.11462e-03_rb,0.11153e-03_rb,0.10500e-03_rb, &\n        & 0.95633e-04_rb,0.82267e-04_rb,0.60868e-04_rb,0.48100e-04_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.97101e-04_rb,0.11996e-03_rb,0.12377e-03_rb,0.12058e-03_rb,0.11342e-03_rb, &\n        & 0.10316e-03_rb,0.88884e-04_rb,0.66077e-04_rb,0.53563e-04_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.65838e-04_rb,0.77620e-04_rb,0.77829e-04_rb,0.74661e-04_rb,0.70473e-04_rb, &\n        & 0.65575e-04_rb,0.55474e-04_rb,0.40441e-04_rb,0.25521e-04_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.69998e-04_rb,0.83015e-04_rb,0.84103e-04_rb,0.81066e-04_rb,0.76507e-04_rb, &\n        & 0.70172e-04_rb,0.59914e-04_rb,0.43882e-04_rb,0.30126e-04_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.74003e-04_rb,0.88878e-04_rb,0.90840e-04_rb,0.88139e-04_rb,0.82951e-04_rb, &\n        & 0.75471e-04_rb,0.64689e-04_rb,0.47652e-04_rb,0.35171e-04_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.78234e-04_rb,0.95561e-04_rb,0.98237e-04_rb,0.95653e-04_rb,0.89770e-04_rb, &\n        & 0.81434e-04_rb,0.69913e-04_rb,0.51882e-04_rb,0.40221e-04_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.82825e-04_rb,0.10313e-03_rb,0.10644e-03_rb,0.10352e-03_rb,0.97040e-04_rb, &\n        & 0.87602e-04_rb,0.75532e-04_rb,0.56387e-04_rb,0.44675e-04_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.10615e-02_rb,0.12529e-02_rb,0.13083e-02_rb,0.12764e-02_rb,0.11881e-02_rb, &\n        & 0.10853e-02_rb,0.93421e-03_rb,0.71644e-03_rb,0.30757e-03_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.10918e-02_rb,0.13136e-02_rb,0.13677e-02_rb,0.13350e-02_rb,0.12522e-02_rb, &\n        & 0.11402e-02_rb,0.98392e-03_rb,0.76040e-03_rb,0.35125e-03_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.11297e-02_rb,0.13742e-02_rb,0.14266e-02_rb,0.13956e-02_rb,0.13143e-02_rb, &\n        & 0.11951e-02_rb,0.10359e-02_rb,0.81032e-03_rb,0.39829e-03_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.11716e-02_rb,0.14330e-02_rb,0.14865e-02_rb,0.14580e-02_rb,0.13738e-02_rb, &\n        & 0.12536e-02_rb,0.10931e-02_rb,0.86605e-03_rb,0.44907e-03_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.12137e-02_rb,0.14919e-02_rb,0.15477e-02_rb,0.15196e-02_rb,0.14358e-02_rb, &\n        & 0.13166e-02_rb,0.11546e-02_rb,0.92748e-03_rb,0.50593e-03_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.92435e-03_rb,0.10874e-02_rb,0.11275e-02_rb,0.11015e-02_rb,0.10311e-02_rb, &\n        & 0.94231e-03_rb,0.80960e-03_rb,0.63033e-03_rb,0.26663e-03_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.95885e-03_rb,0.11428e-02_rb,0.11829e-02_rb,0.11541e-02_rb,0.10849e-02_rb, &\n        & 0.98930e-03_rb,0.85567e-03_rb,0.67200e-03_rb,0.30230e-03_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.99776e-03_rb,0.11978e-02_rb,0.12376e-02_rb,0.12093e-02_rb,0.11390e-02_rb, &\n        & 0.10392e-02_rb,0.90558e-03_rb,0.71833e-03_rb,0.34245e-03_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.10380e-02_rb,0.12537e-02_rb,0.12935e-02_rb,0.12652e-02_rb,0.11933e-02_rb, &\n        & 0.10921e-02_rb,0.95939e-03_rb,0.76948e-03_rb,0.38641e-03_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.10779e-02_rb,0.13105e-02_rb,0.13515e-02_rb,0.13214e-02_rb,0.12497e-02_rb, &\n        & 0.11514e-02_rb,0.10182e-02_rb,0.82552e-03_rb,0.43428e-03_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.79958e-03_rb,0.93053e-03_rb,0.95669e-03_rb,0.93720e-03_rb,0.88165e-03_rb, &\n        & 0.80178e-03_rb,0.69131e-03_rb,0.54027e-03_rb,0.22082e-03_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.83354e-03_rb,0.98064e-03_rb,0.10079e-02_rb,0.98484e-03_rb,0.92834e-03_rb, &\n        & 0.84387e-03_rb,0.73304e-03_rb,0.57932e-03_rb,0.25149e-03_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.87012e-03_rb,0.10320e-02_rb,0.10600e-02_rb,0.10346e-02_rb,0.97491e-03_rb, &\n        & 0.88683e-03_rb,0.77649e-03_rb,0.62208e-03_rb,0.28527e-03_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.90759e-03_rb,0.10841e-02_rb,0.11129e-02_rb,0.10858e-02_rb,0.10238e-02_rb, &\n        & 0.93520e-03_rb,0.82494e-03_rb,0.66854e-03_rb,0.32199e-03_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.94443e-03_rb,0.11378e-02_rb,0.11668e-02_rb,0.11369e-02_rb,0.10746e-02_rb, &\n        & 0.98835e-03_rb,0.87764e-03_rb,0.71868e-03_rb,0.36165e-03_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.68628e-03_rb,0.79104e-03_rb,0.80863e-03_rb,0.79421e-03_rb,0.74681e-03_rb, &\n        & 0.67391e-03_rb,0.58210e-03_rb,0.45790e-03_rb,0.18137e-03_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.71790e-03_rb,0.83686e-03_rb,0.85591e-03_rb,0.83705e-03_rb,0.78808e-03_rb, &\n        & 0.71172e-03_rb,0.61822e-03_rb,0.49245e-03_rb,0.20729e-03_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.75117e-03_rb,0.88426e-03_rb,0.90462e-03_rb,0.88167e-03_rb,0.82945e-03_rb, &\n        & 0.75050e-03_rb,0.65652e-03_rb,0.53019e-03_rb,0.23455e-03_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.78430e-03_rb,0.93252e-03_rb,0.95418e-03_rb,0.92872e-03_rb,0.87301e-03_rb, &\n        & 0.79337e-03_rb,0.69871e-03_rb,0.57160e-03_rb,0.26520e-03_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.81683e-03_rb,0.98168e-03_rb,0.10045e-02_rb,0.97638e-03_rb,0.92000e-03_rb, &\n        & 0.84034e-03_rb,0.74480e-03_rb,0.61518e-03_rb,0.29808e-03_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.58497e-03_rb,0.66935e-03_rb,0.68301e-03_rb,0.66951e-03_rb,0.62962e-03_rb, &\n        & 0.56579e-03_rb,0.48826e-03_rb,0.38379e-03_rb,0.14576e-03_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.61310e-03_rb,0.71031e-03_rb,0.72592e-03_rb,0.70978e-03_rb,0.66652e-03_rb, &\n        & 0.59753e-03_rb,0.51826e-03_rb,0.41385e-03_rb,0.16772e-03_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.64179e-03_rb,0.75306e-03_rb,0.77095e-03_rb,0.75074e-03_rb,0.70458e-03_rb, &\n        & 0.63276e-03_rb,0.55157e-03_rb,0.44695e-03_rb,0.19067e-03_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.67039e-03_rb,0.79634e-03_rb,0.81655e-03_rb,0.79420e-03_rb,0.74416e-03_rb, &\n        & 0.67043e-03_rb,0.58781e-03_rb,0.48223e-03_rb,0.21651e-03_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.69870e-03_rb,0.83972e-03_rb,0.86240e-03_rb,0.83794e-03_rb,0.78674e-03_rb, &\n        & 0.71204e-03_rb,0.62768e-03_rb,0.51780e-03_rb,0.24414e-03_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.49594e-03_rb,0.56319e-03_rb,0.57248e-03_rb,0.55950e-03_rb,0.52657e-03_rb, &\n        & 0.47274e-03_rb,0.40631e-03_rb,0.31914e-03_rb,0.11737e-03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.51946e-03_rb,0.59932e-03_rb,0.61091e-03_rb,0.59626e-03_rb,0.56011e-03_rb, &\n        & 0.50076e-03_rb,0.43158e-03_rb,0.34422e-03_rb,0.13452e-03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.54355e-03_rb,0.63601e-03_rb,0.65111e-03_rb,0.63466e-03_rb,0.59552e-03_rb, &\n        & 0.53122e-03_rb,0.45996e-03_rb,0.37172e-03_rb,0.15179e-03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.56762e-03_rb,0.67321e-03_rb,0.69130e-03_rb,0.67433e-03_rb,0.63164e-03_rb, &\n        & 0.56508e-03_rb,0.49145e-03_rb,0.39979e-03_rb,0.17118e-03_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.59180e-03_rb,0.71065e-03_rb,0.73195e-03_rb,0.71355e-03_rb,0.66898e-03_rb, &\n        & 0.60268e-03_rb,0.52617e-03_rb,0.43141e-03_rb,0.19263e-03_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.41932e-03_rb,0.47346e-03_rb,0.47850e-03_rb,0.46519e-03_rb,0.43628e-03_rb, &\n        & 0.39132e-03_rb,0.33641e-03_rb,0.26485e-03_rb,0.10000e-03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.43848e-03_rb,0.50411e-03_rb,0.51171e-03_rb,0.49803e-03_rb,0.46737e-03_rb, &\n        & 0.41801e-03_rb,0.35878e-03_rb,0.28532e-03_rb,0.11408e-03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.45836e-03_rb,0.53506e-03_rb,0.54578e-03_rb,0.53230e-03_rb,0.49970e-03_rb, &\n        & 0.44506e-03_rb,0.38306e-03_rb,0.30828e-03_rb,0.13001e-03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.47855e-03_rb,0.56639e-03_rb,0.58020e-03_rb,0.56722e-03_rb,0.53202e-03_rb, &\n        & 0.47546e-03_rb,0.41064e-03_rb,0.33104e-03_rb,0.14676e-03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.49885e-03_rb,0.59805e-03_rb,0.61555e-03_rb,0.60152e-03_rb,0.56466e-03_rb, &\n        & 0.50884e-03_rb,0.44071e-03_rb,0.35766e-03_rb,0.16471e-03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.35434e-03_rb,0.39784e-03_rb,0.40003e-03_rb,0.38643e-03_rb,0.36029e-03_rb, &\n        & 0.32228e-03_rb,0.27705e-03_rb,0.21936e-03_rb,0.85304e-04_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.36972e-03_rb,0.42325e-03_rb,0.42802e-03_rb,0.41467e-03_rb,0.38745e-03_rb, &\n        & 0.34637e-03_rb,0.29590e-03_rb,0.23622e-03_rb,0.97535e-04_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.38589e-03_rb,0.44905e-03_rb,0.45611e-03_rb,0.44402e-03_rb,0.41681e-03_rb, &\n        & 0.37125e-03_rb,0.31793e-03_rb,0.25523e-03_rb,0.11156e-03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.40282e-03_rb,0.47505e-03_rb,0.48489e-03_rb,0.47391e-03_rb,0.44440e-03_rb, &\n        & 0.39797e-03_rb,0.34220e-03_rb,0.27395e-03_rb,0.12650e-03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.41971e-03_rb,0.50175e-03_rb,0.51511e-03_rb,0.50365e-03_rb,0.47246e-03_rb, &\n        & 0.42646e-03_rb,0.36852e-03_rb,0.29705e-03_rb,0.14272e-03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.29829e-03_rb,0.33364e-03_rb,0.33392e-03_rb,0.32092e-03_rb,0.29738e-03_rb, &\n        & 0.26469e-03_rb,0.22642e-03_rb,0.18017e-03_rb,0.77064e-04_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.31054e-03_rb,0.35463e-03_rb,0.35704e-03_rb,0.34432e-03_rb,0.32083e-03_rb, &\n        & 0.28575e-03_rb,0.24402e-03_rb,0.19441e-03_rb,0.87743e-04_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.32389e-03_rb,0.37581e-03_rb,0.38023e-03_rb,0.36873e-03_rb,0.34562e-03_rb, &\n        & 0.30799e-03_rb,0.26274e-03_rb,0.21037e-03_rb,0.99662e-04_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.33808e-03_rb,0.39748e-03_rb,0.40404e-03_rb,0.39387e-03_rb,0.36968e-03_rb, &\n        & 0.33141e-03_rb,0.28405e-03_rb,0.22647e-03_rb,0.11282e-03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.35231e-03_rb,0.41983e-03_rb,0.42961e-03_rb,0.41951e-03_rb,0.39352e-03_rb, &\n        & 0.35528e-03_rb,0.30599e-03_rb,0.24648e-03_rb,0.12841e-03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.25036e-03_rb,0.27999e-03_rb,0.27949e-03_rb,0.26793e-03_rb,0.24735e-03_rb, &\n        & 0.21800e-03_rb,0.18604e-03_rb,0.14807e-03_rb,0.93146e-04_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.26009e-03_rb,0.29745e-03_rb,0.29870e-03_rb,0.28727e-03_rb,0.26656e-03_rb, &\n        & 0.23674e-03_rb,0.20160e-03_rb,0.16012e-03_rb,0.10408e-03_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.27084e-03_rb,0.31508e-03_rb,0.31779e-03_rb,0.30720e-03_rb,0.28751e-03_rb, &\n        & 0.25636e-03_rb,0.21818e-03_rb,0.17357e-03_rb,0.11611e-03_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.28251e-03_rb,0.33335e-03_rb,0.33759e-03_rb,0.32814e-03_rb,0.30785e-03_rb, &\n        & 0.27625e-03_rb,0.23573e-03_rb,0.18761e-03_rb,0.12959e-03_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.29455e-03_rb,0.35211e-03_rb,0.35903e-03_rb,0.34997e-03_rb,0.32871e-03_rb, &\n        & 0.29658e-03_rb,0.25454e-03_rb,0.20476e-03_rb,0.14404e-03_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.21327e-03_rb,0.24042e-03_rb,0.24026e-03_rb,0.23068e-03_rb,0.21276e-03_rb, &\n        & 0.18665e-03_rb,0.15901e-03_rb,0.12570e-03_rb,0.94295e-04_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.22127e-03_rb,0.25493e-03_rb,0.25609e-03_rb,0.24693e-03_rb,0.22931e-03_rb, &\n        & 0.20329e-03_rb,0.17265e-03_rb,0.13686e-03_rb,0.10535e-03_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.23042e-03_rb,0.26962e-03_rb,0.27233e-03_rb,0.26383e-03_rb,0.24677e-03_rb, &\n        & 0.22030e-03_rb,0.18718e-03_rb,0.14788e-03_rb,0.11369e-03_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.24025e-03_rb,0.28500e-03_rb,0.28961e-03_rb,0.28171e-03_rb,0.26402e-03_rb, &\n        & 0.23726e-03_rb,0.20232e-03_rb,0.16110e-03_rb,0.12526e-03_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.25035e-03_rb,0.30139e-03_rb,0.30818e-03_rb,0.30033e-03_rb,0.28246e-03_rb, &\n        & 0.25541e-03_rb,0.21869e-03_rb,0.17592e-03_rb,0.13806e-03_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.18213e-03_rb,0.20563e-03_rb,0.20558e-03_rb,0.19744e-03_rb,0.18197e-03_rb, &\n        & 0.15967e-03_rb,0.13562e-03_rb,0.10709e-03_rb,0.84300e-04_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.18873e-03_rb,0.21755e-03_rb,0.21877e-03_rb,0.21098e-03_rb,0.19617e-03_rb, &\n        & 0.17419e-03_rb,0.14735e-03_rb,0.11726e-03_rb,0.96090e-04_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.19633e-03_rb,0.22994e-03_rb,0.23250e-03_rb,0.22538e-03_rb,0.21092e-03_rb, &\n        & 0.18881e-03_rb,0.15987e-03_rb,0.12650e-03_rb,0.10477e-03_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.20445e-03_rb,0.24309e-03_rb,0.24729e-03_rb,0.24084e-03_rb,0.22613e-03_rb, &\n        & 0.20371e-03_rb,0.17330e-03_rb,0.13785e-03_rb,0.11268e-03_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.21299e-03_rb,0.25719e-03_rb,0.26315e-03_rb,0.25711e-03_rb,0.24260e-03_rb, &\n        & 0.21944e-03_rb,0.18764e-03_rb,0.15038e-03_rb,0.12367e-03_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.15527e-03_rb,0.17641e-03_rb,0.17566e-03_rb,0.16836e-03_rb,0.15534e-03_rb, &\n        & 0.13636e-03_rb,0.11530e-03_rb,0.91307e-04_rb,0.70205e-04_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.16096e-03_rb,0.18612e-03_rb,0.18657e-03_rb,0.17973e-03_rb,0.16702e-03_rb, &\n        & 0.14851e-03_rb,0.12550e-03_rb,0.99145e-04_rb,0.79984e-04_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.16748e-03_rb,0.19648e-03_rb,0.19822e-03_rb,0.19209e-03_rb,0.17957e-03_rb, &\n        & 0.16107e-03_rb,0.13652e-03_rb,0.10753e-03_rb,0.86067e-04_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.17450e-03_rb,0.20751e-03_rb,0.21098e-03_rb,0.20534e-03_rb,0.19295e-03_rb, &\n        & 0.17420e-03_rb,0.14816e-03_rb,0.11772e-03_rb,0.93252e-04_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.18233e-03_rb,0.21950e-03_rb,0.22442e-03_rb,0.21958e-03_rb,0.20754e-03_rb, &\n        & 0.18842e-03_rb,0.16097e-03_rb,0.12851e-03_rb,0.10278e-03_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.23852e-02_rb,0.24955e-02_rb,0.25247e-02_rb,0.24784e-02_rb,0.23525e-02_rb, &\n        & 0.21437e-02_rb,0.18704e-02_rb,0.15353e-02_rb,0.99116e-03_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.23950e-02_rb,0.25560e-02_rb,0.26150e-02_rb,0.25851e-02_rb,0.24612e-02_rb, &\n        & 0.22632e-02_rb,0.20004e-02_rb,0.16585e-02_rb,0.11087e-02_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.24020e-02_rb,0.26226e-02_rb,0.27112e-02_rb,0.26940e-02_rb,0.25772e-02_rb, &\n        & 0.23915e-02_rb,0.21332e-02_rb,0.17859e-02_rb,0.12435e-02_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.24093e-02_rb,0.26930e-02_rb,0.28096e-02_rb,0.28038e-02_rb,0.27017e-02_rb, &\n        & 0.25227e-02_rb,0.22696e-02_rb,0.19198e-02_rb,0.13912e-02_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.24224e-02_rb,0.27647e-02_rb,0.29093e-02_rb,0.29173e-02_rb,0.28299e-02_rb, &\n        & 0.26579e-02_rb,0.24103e-02_rb,0.20612e-02_rb,0.15535e-02_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.20974e-02_rb,0.22118e-02_rb,0.22296e-02_rb,0.21778e-02_rb,0.20625e-02_rb, &\n        & 0.18815e-02_rb,0.16530e-02_rb,0.13562e-02_rb,0.82141e-03_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.21046e-02_rb,0.22702e-02_rb,0.23143e-02_rb,0.22813e-02_rb,0.21720e-02_rb, &\n        & 0.19971e-02_rb,0.17712e-02_rb,0.14678e-02_rb,0.93003e-03_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.21127e-02_rb,0.23326e-02_rb,0.24062e-02_rb,0.23885e-02_rb,0.22861e-02_rb, &\n        & 0.21193e-02_rb,0.18939e-02_rb,0.15834e-02_rb,0.10463e-02_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.21272e-02_rb,0.23971e-02_rb,0.25002e-02_rb,0.24977e-02_rb,0.24074e-02_rb, &\n        & 0.22461e-02_rb,0.20177e-02_rb,0.17030e-02_rb,0.11732e-02_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.21483e-02_rb,0.24652e-02_rb,0.25947e-02_rb,0.26138e-02_rb,0.25341e-02_rb, &\n        & 0.23755e-02_rb,0.21449e-02_rb,0.18299e-02_rb,0.13107e-02_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.18244e-02_rb,0.19320e-02_rb,0.19387e-02_rb,0.18795e-02_rb,0.17712e-02_rb, &\n        & 0.16188e-02_rb,0.14258e-02_rb,0.11664e-02_rb,0.66404e-03_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.18322e-02_rb,0.19846e-02_rb,0.20150e-02_rb,0.19741e-02_rb,0.18746e-02_rb, &\n        & 0.17292e-02_rb,0.15311e-02_rb,0.12668e-02_rb,0.75772e-03_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.18451e-02_rb,0.20412e-02_rb,0.20960e-02_rb,0.20746e-02_rb,0.19871e-02_rb, &\n        & 0.18444e-02_rb,0.16430e-02_rb,0.13711e-02_rb,0.85470e-03_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.18657e-02_rb,0.21020e-02_rb,0.21815e-02_rb,0.21798e-02_rb,0.21034e-02_rb, &\n        & 0.19629e-02_rb,0.17571e-02_rb,0.14786e-02_rb,0.95834e-03_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.18943e-02_rb,0.21674e-02_rb,0.22717e-02_rb,0.22915e-02_rb,0.22239e-02_rb, &\n        & 0.20844e-02_rb,0.18739e-02_rb,0.15906e-02_rb,0.10775e-02_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.15758e-02_rb,0.16711e-02_rb,0.16675e-02_rb,0.16043e-02_rb,0.15088e-02_rb, &\n        & 0.13785e-02_rb,0.12140e-02_rb,0.98780e-03_rb,0.53258e-03_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.15867e-02_rb,0.17169e-02_rb,0.17338e-02_rb,0.16891e-02_rb,0.16022e-02_rb, &\n        & 0.14807e-02_rb,0.13108e-02_rb,0.10774e-02_rb,0.61127e-03_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.16043e-02_rb,0.17687e-02_rb,0.18047e-02_rb,0.17788e-02_rb,0.17054e-02_rb, &\n        & 0.15869e-02_rb,0.14121e-02_rb,0.11700e-02_rb,0.69092e-03_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.16308e-02_rb,0.18263e-02_rb,0.18817e-02_rb,0.18741e-02_rb,0.18139e-02_rb, &\n        & 0.16955e-02_rb,0.15162e-02_rb,0.12673e-02_rb,0.77859e-03_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.16631e-02_rb,0.18894e-02_rb,0.19653e-02_rb,0.19764e-02_rb,0.19240e-02_rb, &\n        & 0.18069e-02_rb,0.16237e-02_rb,0.13697e-02_rb,0.87657e-03_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.13575e-02_rb,0.14376e-02_rb,0.14238e-02_rb,0.13660e-02_rb,0.12806e-02_rb, &\n        & 0.11664e-02_rb,0.10231e-02_rb,0.82794e-03_rb,0.42595e-03_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.13711e-02_rb,0.14787e-02_rb,0.14807e-02_rb,0.14369e-02_rb,0.13637e-02_rb, &\n        & 0.12570e-02_rb,0.11125e-02_rb,0.90729e-03_rb,0.48990e-03_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.13932e-02_rb,0.15262e-02_rb,0.15434e-02_rb,0.15158e-02_rb,0.14536e-02_rb, &\n        & 0.13534e-02_rb,0.12033e-02_rb,0.99132e-03_rb,0.55848e-03_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.14217e-02_rb,0.15804e-02_rb,0.16130e-02_rb,0.16009e-02_rb,0.15482e-02_rb, &\n        & 0.14537e-02_rb,0.12991e-02_rb,0.10796e-02_rb,0.63246e-03_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.14548e-02_rb,0.16406e-02_rb,0.16899e-02_rb,0.16924e-02_rb,0.16473e-02_rb, &\n        & 0.15538e-02_rb,0.13988e-02_rb,0.11736e-02_rb,0.71422e-03_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.11657e-02_rb,0.12310e-02_rb,0.12114e-02_rb,0.11593e-02_rb,0.10807e-02_rb, &\n        & 0.97870e-03_rb,0.85220e-03_rb,0.68679e-03_rb,0.33278e-03_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.11817e-02_rb,0.12689e-02_rb,0.12606e-02_rb,0.12200e-02_rb,0.11515e-02_rb, &\n        & 0.10575e-02_rb,0.93300e-03_rb,0.75653e-03_rb,0.38390e-03_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.12052e-02_rb,0.13132e-02_rb,0.13166e-02_rb,0.12868e-02_rb,0.12281e-02_rb, &\n        & 0.11419e-02_rb,0.10150e-02_rb,0.83054e-03_rb,0.44291e-03_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.12337e-02_rb,0.13638e-02_rb,0.13800e-02_rb,0.13608e-02_rb,0.13105e-02_rb, &\n        & 0.12294e-02_rb,0.11010e-02_rb,0.91218e-03_rb,0.50714e-03_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.12657e-02_rb,0.14200e-02_rb,0.14498e-02_rb,0.14421e-02_rb,0.13994e-02_rb, &\n        & 0.13201e-02_rb,0.11915e-02_rb,0.99447e-03_rb,0.57759e-03_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.99495e-03_rb,0.10489e-02_rb,0.10293e-02_rb,0.98184e-03_rb,0.91156e-03_rb, &\n        & 0.82083e-03_rb,0.70758e-03_rb,0.56387e-03_rb,0.26025e-03_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.10122e-02_rb,0.10837e-02_rb,0.10724e-02_rb,0.10344e-02_rb,0.96982e-03_rb, &\n        & 0.88589e-03_rb,0.77530e-03_rb,0.62605e-03_rb,0.29914e-03_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.10351e-02_rb,0.11253e-02_rb,0.11236e-02_rb,0.10922e-02_rb,0.10352e-02_rb, &\n        & 0.95724e-03_rb,0.84889e-03_rb,0.69076e-03_rb,0.34305e-03_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.10622e-02_rb,0.11721e-02_rb,0.11813e-02_rb,0.11564e-02_rb,0.11065e-02_rb, &\n        & 0.10331e-02_rb,0.92494e-03_rb,0.76297e-03_rb,0.39175e-03_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.10903e-02_rb,0.12244e-02_rb,0.12441e-02_rb,0.12287e-02_rb,0.11845e-02_rb, &\n        & 0.11129e-02_rb,0.10035e-02_rb,0.83648e-03_rb,0.44712e-03_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.84532e-03_rb,0.88892e-03_rb,0.86965e-03_rb,0.82727e-03_rb,0.76674e-03_rb, &\n        & 0.68807e-03_rb,0.58679e-03_rb,0.46179e-03_rb,0.21931e-03_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.86227e-03_rb,0.92051e-03_rb,0.90826e-03_rb,0.87315e-03_rb,0.81675e-03_rb, &\n        & 0.74173e-03_rb,0.64502e-03_rb,0.51436e-03_rb,0.25538e-03_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.88387e-03_rb,0.95827e-03_rb,0.95473e-03_rb,0.92480e-03_rb,0.87135e-03_rb, &\n        & 0.80090e-03_rb,0.70594e-03_rb,0.57141e-03_rb,0.29275e-03_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.90659e-03_rb,0.10014e-02_rb,0.10072e-02_rb,0.98186e-03_rb,0.93348e-03_rb, &\n        & 0.86582e-03_rb,0.77148e-03_rb,0.63431e-03_rb,0.33522e-03_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.93066e-03_rb,0.10477e-02_rb,0.10640e-02_rb,0.10456e-02_rb,0.10022e-02_rb, &\n        & 0.93597e-03_rb,0.84005e-03_rb,0.69831e-03_rb,0.38214e-03_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.71681e-03_rb,0.75151e-03_rb,0.73165e-03_rb,0.69303e-03_rb,0.64106e-03_rb, &\n        & 0.57326e-03_rb,0.48762e-03_rb,0.37724e-03_rb,0.19963e-03_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.73278e-03_rb,0.77936e-03_rb,0.76580e-03_rb,0.73272e-03_rb,0.68369e-03_rb, &\n        & 0.61851e-03_rb,0.53463e-03_rb,0.42190e-03_rb,0.23258e-03_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.75147e-03_rb,0.81327e-03_rb,0.80692e-03_rb,0.77827e-03_rb,0.73101e-03_rb, &\n        & 0.66869e-03_rb,0.58582e-03_rb,0.47030e-03_rb,0.26770e-03_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.77011e-03_rb,0.85035e-03_rb,0.85331e-03_rb,0.82912e-03_rb,0.78414e-03_rb, &\n        & 0.72425e-03_rb,0.64047e-03_rb,0.52434e-03_rb,0.30603e-03_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.79031e-03_rb,0.89033e-03_rb,0.90223e-03_rb,0.88462e-03_rb,0.84489e-03_rb, &\n        & 0.78478e-03_rb,0.70032e-03_rb,0.57826e-03_rb,0.34848e-03_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.60860e-03_rb,0.63631e-03_rb,0.61722e-03_rb,0.58182e-03_rb,0.53631e-03_rb, &\n        & 0.47875e-03_rb,0.40598e-03_rb,0.31001e-03_rb,0.21716e-03_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.62300e-03_rb,0.66096e-03_rb,0.64723e-03_rb,0.61624e-03_rb,0.57283e-03_rb, &\n        & 0.51614e-03_rb,0.44515e-03_rb,0.34783e-03_rb,0.24030e-03_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.63811e-03_rb,0.69041e-03_rb,0.68320e-03_rb,0.65609e-03_rb,0.61386e-03_rb, &\n        & 0.55902e-03_rb,0.48770e-03_rb,0.38933e-03_rb,0.26729e-03_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.65360e-03_rb,0.72213e-03_rb,0.72254e-03_rb,0.70011e-03_rb,0.66034e-03_rb, &\n        & 0.60659e-03_rb,0.53507e-03_rb,0.43477e-03_rb,0.29849e-03_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.67038e-03_rb,0.75665e-03_rb,0.76418e-03_rb,0.74727e-03_rb,0.71207e-03_rb, &\n        & 0.65924e-03_rb,0.58660e-03_rb,0.48108e-03_rb,0.33464e-03_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.52185e-03_rb,0.54797e-03_rb,0.53190e-03_rb,0.50128e-03_rb,0.46230e-03_rb, &\n        & 0.41291e-03_rb,0.35086e-03_rb,0.26843e-03_rb,0.22407e-03_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.53416e-03_rb,0.57111e-03_rb,0.56029e-03_rb,0.53286e-03_rb,0.49524e-03_rb, &\n        & 0.44633e-03_rb,0.38530e-03_rb,0.30138e-03_rb,0.24793e-03_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.54635e-03_rb,0.59685e-03_rb,0.59183e-03_rb,0.56852e-03_rb,0.53236e-03_rb, &\n        & 0.48455e-03_rb,0.42287e-03_rb,0.33910e-03_rb,0.27073e-03_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.55941e-03_rb,0.62493e-03_rb,0.62582e-03_rb,0.60673e-03_rb,0.57348e-03_rb, &\n        & 0.52713e-03_rb,0.46523e-03_rb,0.37861e-03_rb,0.29520e-03_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.57459e-03_rb,0.65537e-03_rb,0.66217e-03_rb,0.64854e-03_rb,0.61857e-03_rb, &\n        & 0.57343e-03_rb,0.51159e-03_rb,0.41997e-03_rb,0.32408e-03_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.44547e-03_rb,0.47205e-03_rb,0.45856e-03_rb,0.43259e-03_rb,0.39885e-03_rb, &\n        & 0.35629e-03_rb,0.30273e-03_rb,0.23099e-03_rb,0.20507e-03_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.45530e-03_rb,0.49200e-03_rb,0.48355e-03_rb,0.46058e-03_rb,0.42831e-03_rb, &\n        & 0.38615e-03_rb,0.33301e-03_rb,0.25970e-03_rb,0.22582e-03_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.46565e-03_rb,0.51443e-03_rb,0.51077e-03_rb,0.49108e-03_rb,0.46067e-03_rb, &\n        & 0.41962e-03_rb,0.36657e-03_rb,0.29355e-03_rb,0.24853e-03_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.47732e-03_rb,0.53905e-03_rb,0.54027e-03_rb,0.52415e-03_rb,0.49634e-03_rb, &\n        & 0.45650e-03_rb,0.40422e-03_rb,0.32887e-03_rb,0.26943e-03_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.49131e-03_rb,0.56624e-03_rb,0.57259e-03_rb,0.56091e-03_rb,0.53532e-03_rb, &\n        & 0.49724e-03_rb,0.44494e-03_rb,0.36671e-03_rb,0.29370e-03_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.37861e-03_rb,0.40433e-03_rb,0.39425e-03_rb,0.37277e-03_rb,0.34384e-03_rb, &\n        & 0.30718e-03_rb,0.26082e-03_rb,0.19813e-03_rb,0.17021e-03_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.38646e-03_rb,0.42180e-03_rb,0.41569e-03_rb,0.39676e-03_rb,0.36941e-03_rb, &\n        & 0.33370e-03_rb,0.28746e-03_rb,0.22445e-03_rb,0.18768e-03_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.39522e-03_rb,0.44150e-03_rb,0.43928e-03_rb,0.42293e-03_rb,0.39746e-03_rb, &\n        & 0.36268e-03_rb,0.31709e-03_rb,0.25391e-03_rb,0.20463e-03_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.40576e-03_rb,0.46362e-03_rb,0.46497e-03_rb,0.45178e-03_rb,0.42852e-03_rb, &\n        & 0.39486e-03_rb,0.34992e-03_rb,0.28472e-03_rb,0.22430e-03_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.41810e-03_rb,0.48813e-03_rb,0.49424e-03_rb,0.48434e-03_rb,0.46280e-03_rb, &\n        & 0.43027e-03_rb,0.38540e-03_rb,0.31863e-03_rb,0.24541e-03_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.52571e-02_rb,0.51649e-02_rb,0.50998e-02_rb,0.49978e-02_rb,0.48299e-02_rb, &\n        & 0.45478e-02_rb,0.41071e-02_rb,0.34884e-02_rb,0.27402e-02_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.51967e-02_rb,0.52277e-02_rb,0.52437e-02_rb,0.52099e-02_rb,0.50894e-02_rb, &\n        & 0.48424e-02_rb,0.44165e-02_rb,0.38421e-02_rb,0.31643e-02_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.51548e-02_rb,0.53047e-02_rb,0.54023e-02_rb,0.54271e-02_rb,0.53544e-02_rb, &\n        & 0.51370e-02_rb,0.47457e-02_rb,0.42178e-02_rb,0.36142e-02_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.51293e-02_rb,0.53942e-02_rb,0.55672e-02_rb,0.56512e-02_rb,0.56201e-02_rb, &\n        & 0.54409e-02_rb,0.50927e-02_rb,0.46186e-02_rb,0.40998e-02_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.51178e-02_rb,0.54996e-02_rb,0.57406e-02_rb,0.58798e-02_rb,0.58932e-02_rb, &\n        & 0.57606e-02_rb,0.54613e-02_rb,0.50399e-02_rb,0.46100e-02_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.47778e-02_rb,0.47398e-02_rb,0.47115e-02_rb,0.46169e-02_rb,0.44426e-02_rb, &\n        & 0.41630e-02_rb,0.37511e-02_rb,0.31426e-02_rb,0.23122e-02_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.47384e-02_rb,0.48111e-02_rb,0.48532e-02_rb,0.48144e-02_rb,0.46755e-02_rb, &\n        & 0.44342e-02_rb,0.40397e-02_rb,0.34599e-02_rb,0.26698e-02_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.47181e-02_rb,0.49025e-02_rb,0.50071e-02_rb,0.50151e-02_rb,0.49194e-02_rb, &\n        & 0.47085e-02_rb,0.43402e-02_rb,0.37956e-02_rb,0.30630e-02_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.47137e-02_rb,0.50070e-02_rb,0.51691e-02_rb,0.52245e-02_rb,0.51706e-02_rb, &\n        & 0.49959e-02_rb,0.46583e-02_rb,0.41574e-02_rb,0.34865e-02_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.47212e-02_rb,0.51234e-02_rb,0.53397e-02_rb,0.54379e-02_rb,0.54276e-02_rb, &\n        & 0.52983e-02_rb,0.49978e-02_rb,0.45412e-02_rb,0.39357e-02_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.42971e-02_rb,0.42851e-02_rb,0.42729e-02_rb,0.41707e-02_rb,0.39926e-02_rb, &\n        & 0.37146e-02_rb,0.33264e-02_rb,0.27717e-02_rb,0.18852e-02_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.42740e-02_rb,0.43647e-02_rb,0.44079e-02_rb,0.43562e-02_rb,0.42040e-02_rb, &\n        & 0.39559e-02_rb,0.35908e-02_rb,0.30443e-02_rb,0.21816e-02_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.42703e-02_rb,0.44650e-02_rb,0.45616e-02_rb,0.45425e-02_rb,0.44233e-02_rb, &\n        & 0.42066e-02_rb,0.38676e-02_rb,0.33396e-02_rb,0.25126e-02_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.42812e-02_rb,0.45806e-02_rb,0.47230e-02_rb,0.47371e-02_rb,0.46519e-02_rb, &\n        & 0.44691e-02_rb,0.41620e-02_rb,0.36586e-02_rb,0.28704e-02_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.43030e-02_rb,0.47042e-02_rb,0.48922e-02_rb,0.49377e-02_rb,0.48939e-02_rb, &\n        & 0.47477e-02_rb,0.44742e-02_rb,0.39985e-02_rb,0.32501e-02_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.38233e-02_rb,0.38279e-02_rb,0.38143e-02_rb,0.37097e-02_rb,0.35270e-02_rb, &\n        & 0.32658e-02_rb,0.29019e-02_rb,0.24142e-02_rb,0.15291e-02_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.38114e-02_rb,0.39122e-02_rb,0.39475e-02_rb,0.38778e-02_rb,0.37194e-02_rb, &\n        & 0.34777e-02_rb,0.31357e-02_rb,0.26541e-02_rb,0.17758e-02_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.38202e-02_rb,0.40186e-02_rb,0.40970e-02_rb,0.40542e-02_rb,0.39201e-02_rb, &\n        & 0.37024e-02_rb,0.33826e-02_rb,0.29146e-02_rb,0.20543e-02_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.38442e-02_rb,0.41385e-02_rb,0.42569e-02_rb,0.42394e-02_rb,0.41310e-02_rb, &\n        & 0.39403e-02_rb,0.36479e-02_rb,0.31917e-02_rb,0.23538e-02_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.38788e-02_rb,0.42695e-02_rb,0.44229e-02_rb,0.44328e-02_rb,0.43540e-02_rb, &\n        & 0.41948e-02_rb,0.39317e-02_rb,0.34895e-02_rb,0.26724e-02_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.33660e-02_rb,0.33879e-02_rb,0.33669e-02_rb,0.32570e-02_rb,0.30787e-02_rb, &\n        & 0.28362e-02_rb,0.25094e-02_rb,0.20819e-02_rb,0.12376e-02_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.33649e-02_rb,0.34740e-02_rb,0.34949e-02_rb,0.34119e-02_rb,0.32508e-02_rb, &\n        & 0.30247e-02_rb,0.27121e-02_rb,0.22949e-02_rb,0.14462e-02_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.33839e-02_rb,0.35821e-02_rb,0.36398e-02_rb,0.35762e-02_rb,0.34359e-02_rb, &\n        & 0.32230e-02_rb,0.29317e-02_rb,0.25218e-02_rb,0.16788e-02_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.34188e-02_rb,0.37047e-02_rb,0.37932e-02_rb,0.37524e-02_rb,0.36321e-02_rb, &\n        & 0.34359e-02_rb,0.31677e-02_rb,0.27663e-02_rb,0.19299e-02_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.34572e-02_rb,0.38382e-02_rb,0.39563e-02_rb,0.39381e-02_rb,0.38416e-02_rb, &\n        & 0.36710e-02_rb,0.34185e-02_rb,0.30298e-02_rb,0.21985e-02_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.29383e-02_rb,0.29689e-02_rb,0.29375e-02_rb,0.28254e-02_rb,0.26571e-02_rb, &\n        & 0.24356e-02_rb,0.21491e-02_rb,0.17706e-02_rb,0.99284e-03_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.29460e-02_rb,0.30526e-02_rb,0.30576e-02_rb,0.29676e-02_rb,0.28114e-02_rb, &\n        & 0.25995e-02_rb,0.23244e-02_rb,0.19573e-02_rb,0.11692e-02_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.29740e-02_rb,0.31582e-02_rb,0.31942e-02_rb,0.31202e-02_rb,0.29785e-02_rb, &\n        & 0.27771e-02_rb,0.25160e-02_rb,0.21565e-02_rb,0.13616e-02_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.30101e-02_rb,0.32807e-02_rb,0.33417e-02_rb,0.32855e-02_rb,0.31583e-02_rb, &\n        & 0.29708e-02_rb,0.27234e-02_rb,0.23688e-02_rb,0.15696e-02_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.30525e-02_rb,0.34071e-02_rb,0.34999e-02_rb,0.34618e-02_rb,0.33518e-02_rb, &\n        & 0.31829e-02_rb,0.29437e-02_rb,0.25986e-02_rb,0.17941e-02_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.25527e-02_rb,0.25837e-02_rb,0.25415e-02_rb,0.24332e-02_rb,0.22747e-02_rb, &\n        & 0.20758e-02_rb,0.18231e-02_rb,0.14951e-02_rb,0.78066e-03_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.25661e-02_rb,0.26638e-02_rb,0.26497e-02_rb,0.25583e-02_rb,0.24134e-02_rb, &\n        & 0.22212e-02_rb,0.19774e-02_rb,0.16540e-02_rb,0.92809e-03_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.25966e-02_rb,0.27642e-02_rb,0.27764e-02_rb,0.26998e-02_rb,0.25630e-02_rb, &\n        & 0.23812e-02_rb,0.21449e-02_rb,0.18264e-02_rb,0.10893e-02_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.26340e-02_rb,0.28771e-02_rb,0.29165e-02_rb,0.28538e-02_rb,0.27279e-02_rb, &\n        & 0.25553e-02_rb,0.23260e-02_rb,0.20107e-02_rb,0.12665e-02_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.26829e-02_rb,0.29939e-02_rb,0.30639e-02_rb,0.30192e-02_rb,0.29089e-02_rb, &\n        & 0.27450e-02_rb,0.25219e-02_rb,0.22101e-02_rb,0.14584e-02_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.22109e-02_rb,0.22392e-02_rb,0.21909e-02_rb,0.20870e-02_rb,0.19391e-02_rb, &\n        & 0.17569e-02_rb,0.15368e-02_rb,0.12514e-02_rb,0.62879e-03_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.22276e-02_rb,0.23140e-02_rb,0.22874e-02_rb,0.21965e-02_rb,0.20609e-02_rb, &\n        & 0.18868e-02_rb,0.16711e-02_rb,0.13887e-02_rb,0.73533e-03_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.22565e-02_rb,0.24065e-02_rb,0.24031e-02_rb,0.23233e-02_rb,0.21969e-02_rb, &\n        & 0.20302e-02_rb,0.18188e-02_rb,0.15365e-02_rb,0.85609e-03_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.22974e-02_rb,0.25072e-02_rb,0.25290e-02_rb,0.24653e-02_rb,0.23482e-02_rb, &\n        & 0.21882e-02_rb,0.19777e-02_rb,0.16966e-02_rb,0.98553e-03_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.23517e-02_rb,0.26173e-02_rb,0.26619e-02_rb,0.26145e-02_rb,0.25139e-02_rb, &\n        & 0.23587e-02_rb,0.21497e-02_rb,0.18671e-02_rb,0.11277e-02_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.19109e-02_rb,0.19351e-02_rb,0.18847e-02_rb,0.17853e-02_rb,0.16484e-02_rb, &\n        & 0.14828e-02_rb,0.12861e-02_rb,0.10403e-02_rb,0.59847e-03_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.19272e-02_rb,0.20031e-02_rb,0.19691e-02_rb,0.18817e-02_rb,0.17540e-02_rb, &\n        & 0.15965e-02_rb,0.14036e-02_rb,0.11571e-02_rb,0.69475e-03_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.19559e-02_rb,0.20842e-02_rb,0.20709e-02_rb,0.19954e-02_rb,0.18765e-02_rb, &\n        & 0.17233e-02_rb,0.15331e-02_rb,0.12839e-02_rb,0.80150e-03_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.19994e-02_rb,0.21761e-02_rb,0.21815e-02_rb,0.21203e-02_rb,0.20143e-02_rb, &\n        & 0.18645e-02_rb,0.16732e-02_rb,0.14206e-02_rb,0.91777e-03_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.20550e-02_rb,0.22788e-02_rb,0.23027e-02_rb,0.22546e-02_rb,0.21605e-02_rb, &\n        & 0.20175e-02_rb,0.18247e-02_rb,0.15687e-02_rb,0.10450e-02_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.16445e-02_rb,0.16716e-02_rb,0.16238e-02_rb,0.15300e-02_rb,0.14061e-02_rb, &\n        & 0.12566e-02_rb,0.10807e-02_rb,0.86738e-03_rb,0.60827e-03_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.16600e-02_rb,0.17327e-02_rb,0.16984e-02_rb,0.16154e-02_rb,0.14994e-02_rb, &\n        & 0.13556e-02_rb,0.11827e-02_rb,0.96695e-03_rb,0.70548e-03_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.16905e-02_rb,0.18053e-02_rb,0.17869e-02_rb,0.17163e-02_rb,0.16090e-02_rb, &\n        & 0.14689e-02_rb,0.12961e-02_rb,0.10754e-02_rb,0.80786e-03_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.17354e-02_rb,0.18905e-02_rb,0.18865e-02_rb,0.18272e-02_rb,0.17299e-02_rb, &\n        & 0.15951e-02_rb,0.14192e-02_rb,0.11936e-02_rb,0.91620e-03_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.17884e-02_rb,0.19860e-02_rb,0.19977e-02_rb,0.19501e-02_rb,0.18596e-02_rb, &\n        & 0.17298e-02_rb,0.15525e-02_rb,0.13217e-02_rb,0.10338e-02_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.14133e-02_rb,0.14603e-02_rb,0.14202e-02_rb,0.13407e-02_rb,0.12334e-02_rb, &\n        & 0.11026e-02_rb,0.94643e-03_rb,0.75979e-03_rb,0.57405e-03_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.14357e-02_rb,0.15193e-02_rb,0.14916e-02_rb,0.14232e-02_rb,0.13232e-02_rb, &\n        & 0.11950e-02_rb,0.10392e-02_rb,0.84686e-03_rb,0.65471e-03_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.14730e-02_rb,0.15907e-02_rb,0.15765e-02_rb,0.15172e-02_rb,0.14237e-02_rb, &\n        & 0.12997e-02_rb,0.11424e-02_rb,0.94298e-03_rb,0.75212e-03_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.15188e-02_rb,0.16737e-02_rb,0.16734e-02_rb,0.16227e-02_rb,0.15348e-02_rb, &\n        & 0.14132e-02_rb,0.12544e-02_rb,0.10476e-02_rb,0.85445e-03_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.15705e-02_rb,0.17634e-02_rb,0.17799e-02_rb,0.17387e-02_rb,0.16551e-02_rb, &\n        & 0.15344e-02_rb,0.13744e-02_rb,0.11635e-02_rb,0.96358e-03_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.12145e-02_rb,0.12721e-02_rb,0.12387e-02_rb,0.11722e-02_rb,0.10815e-02_rb, &\n        & 0.96748e-03_rb,0.83052e-03_rb,0.66461e-03_rb,0.51952e-03_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.12432e-02_rb,0.13303e-02_rb,0.13076e-02_rb,0.12500e-02_rb,0.11644e-02_rb, &\n        & 0.10531e-02_rb,0.91410e-03_rb,0.74198e-03_rb,0.58718e-03_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.12811e-02_rb,0.13998e-02_rb,0.13897e-02_rb,0.13394e-02_rb,0.12574e-02_rb, &\n        & 0.11474e-02_rb,0.10067e-02_rb,0.82675e-03_rb,0.66821e-03_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.13251e-02_rb,0.14771e-02_rb,0.14813e-02_rb,0.14393e-02_rb,0.13610e-02_rb, &\n        & 0.12504e-02_rb,0.11057e-02_rb,0.91975e-03_rb,0.76078e-03_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.13700e-02_rb,0.15597e-02_rb,0.15807e-02_rb,0.15467e-02_rb,0.14716e-02_rb, &\n        & 0.13608e-02_rb,0.12138e-02_rb,0.10232e-02_rb,0.85832e-03_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.10471e-02_rb,0.11076e-02_rb,0.10790e-02_rb,0.10231e-02_rb,0.94527e-03_rb, &\n        & 0.84789e-03_rb,0.72861e-03_rb,0.58068e-03_rb,0.44361e-03_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.10765e-02_rb,0.11637e-02_rb,0.11461e-02_rb,0.10966e-02_rb,0.10221e-02_rb, &\n        & 0.92418e-03_rb,0.80364e-03_rb,0.64949e-03_rb,0.50409e-03_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.11121e-02_rb,0.12288e-02_rb,0.12232e-02_rb,0.11802e-02_rb,0.11084e-02_rb, &\n        & 0.10099e-02_rb,0.88562e-03_rb,0.72467e-03_rb,0.57688e-03_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.11491e-02_rb,0.12989e-02_rb,0.13080e-02_rb,0.12720e-02_rb,0.12030e-02_rb, &\n        & 0.11037e-02_rb,0.97404e-03_rb,0.80781e-03_rb,0.65303e-03_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.11880e-02_rb,0.13724e-02_rb,0.13975e-02_rb,0.13701e-02_rb,0.13034e-02_rb, &\n        & 0.12049e-02_rb,0.10715e-02_rb,0.89944e-03_rb,0.73687e-03_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.14418e-01_rb,0.13406e-01_rb,0.12605e-01_rb,0.11857e-01_rb,0.11091e-01_rb, &\n        & 0.10336e-01_rb,0.95691e-02_rb,0.87036e-02_rb,0.88524e-02_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.14296e-01_rb,0.13450e-01_rb,0.12870e-01_rb,0.12297e-01_rb,0.11684e-01_rb, &\n        & 0.11070e-01_rb,0.10452e-01_rb,0.97477e-02_rb,0.10154e-01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.14166e-01_rb,0.13524e-01_rb,0.13158e-01_rb,0.12768e-01_rb,0.12317e-01_rb, &\n        & 0.11876e-01_rb,0.11397e-01_rb,0.10864e-01_rb,0.11523e-01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.14022e-01_rb,0.13622e-01_rb,0.13487e-01_rb,0.13264e-01_rb,0.13003e-01_rb, &\n        & 0.12732e-01_rb,0.12371e-01_rb,0.12050e-01_rb,0.12968e-01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.13872e-01_rb,0.13730e-01_rb,0.13820e-01_rb,0.13802e-01_rb,0.13718e-01_rb, &\n        & 0.13604e-01_rb,0.13373e-01_rb,0.13315e-01_rb,0.14498e-01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.14547e-01_rb,0.13535e-01_rb,0.12726e-01_rb,0.11955e-01_rb,0.11121e-01_rb, &\n        & 0.10242e-01_rb,0.92998e-02_rb,0.82716e-02_rb,0.79571e-02_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.14415e-01_rb,0.13577e-01_rb,0.12984e-01_rb,0.12377e-01_rb,0.11698e-01_rb, &\n        & 0.10932e-01_rb,0.10129e-01_rb,0.92199e-02_rb,0.91565e-02_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.14274e-01_rb,0.13649e-01_rb,0.13264e-01_rb,0.12845e-01_rb,0.12290e-01_rb, &\n        & 0.11686e-01_rb,0.11026e-01_rb,0.10231e-01_rb,0.10415e-01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.14122e-01_rb,0.13744e-01_rb,0.13589e-01_rb,0.13325e-01_rb,0.12935e-01_rb, &\n        & 0.12484e-01_rb,0.11950e-01_rb,0.11311e-01_rb,0.11744e-01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.13965e-01_rb,0.13855e-01_rb,0.13924e-01_rb,0.13828e-01_rb,0.13608e-01_rb, &\n        & 0.13305e-01_rb,0.12905e-01_rb,0.12457e-01_rb,0.13151e-01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.14475e-01_rb,0.13482e-01_rb,0.12654e-01_rb,0.11861e-01_rb,0.10971e-01_rb, &\n        & 0.99930e-02_rb,0.88735e-02_rb,0.76595e-02_rb,0.68509e-02_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.14335e-01_rb,0.13514e-01_rb,0.12906e-01_rb,0.12263e-01_rb,0.11533e-01_rb, &\n        & 0.10637e-01_rb,0.96386e-02_rb,0.85394e-02_rb,0.79297e-02_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.14181e-01_rb,0.13576e-01_rb,0.13177e-01_rb,0.12719e-01_rb,0.12099e-01_rb, &\n        & 0.11329e-01_rb,0.10466e-01_rb,0.94601e-02_rb,0.90731e-02_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.14024e-01_rb,0.13665e-01_rb,0.13491e-01_rb,0.13188e-01_rb,0.12703e-01_rb, &\n        & 0.12072e-01_rb,0.11323e-01_rb,0.10433e-01_rb,0.10295e-01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.13862e-01_rb,0.13772e-01_rb,0.13824e-01_rb,0.13679e-01_rb,0.13333e-01_rb, &\n        & 0.12836e-01_rb,0.12214e-01_rb,0.11468e-01_rb,0.11588e-01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.14153e-01_rb,0.13216e-01_rb,0.12406e-01_rb,0.11612e-01_rb,0.10690e-01_rb, &\n        & 0.96495e-02_rb,0.84088e-02_rb,0.70121e-02_rb,0.57874e-02_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.14005e-01_rb,0.13241e-01_rb,0.12647e-01_rb,0.11995e-01_rb,0.11231e-01_rb, &\n        & 0.10266e-01_rb,0.91127e-02_rb,0.78123e-02_rb,0.67372e-02_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.13845e-01_rb,0.13290e-01_rb,0.12907e-01_rb,0.12438e-01_rb,0.11783e-01_rb, &\n        & 0.10918e-01_rb,0.98730e-02_rb,0.86646e-02_rb,0.77601e-02_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.13685e-01_rb,0.13375e-01_rb,0.13206e-01_rb,0.12899e-01_rb,0.12360e-01_rb, &\n        & 0.11608e-01_rb,0.10665e-01_rb,0.95624e-02_rb,0.88628e-02_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.13529e-01_rb,0.13472e-01_rb,0.13531e-01_rb,0.13371e-01_rb,0.12964e-01_rb, &\n        & 0.12311e-01_rb,0.11491e-01_rb,0.10508e-01_rb,0.10039e-01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.13587e-01_rb,0.12730e-01_rb,0.11973e-01_rb,0.11204e-01_rb,0.10282e-01_rb, &\n        & 0.92218e-02_rb,0.79316e-02_rb,0.64044e-02_rb,0.48583e-02_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.13430e-01_rb,0.12751e-01_rb,0.12205e-01_rb,0.11567e-01_rb,0.10798e-01_rb, &\n        & 0.98163e-02_rb,0.85810e-02_rb,0.71221e-02_rb,0.56837e-02_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.13271e-01_rb,0.12793e-01_rb,0.12448e-01_rb,0.11993e-01_rb,0.11338e-01_rb, &\n        & 0.10437e-01_rb,0.92786e-02_rb,0.78957e-02_rb,0.65802e-02_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.13115e-01_rb,0.12874e-01_rb,0.12735e-01_rb,0.12440e-01_rb,0.11897e-01_rb, &\n        & 0.11094e-01_rb,0.10003e-01_rb,0.87146e-02_rb,0.75565e-02_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.12984e-01_rb,0.12973e-01_rb,0.13053e-01_rb,0.12899e-01_rb,0.12481e-01_rb, &\n        & 0.11759e-01_rb,0.10765e-01_rb,0.95850e-02_rb,0.86117e-02_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.12817e-01_rb,0.12050e-01_rb,0.11369e-01_rb,0.10622e-01_rb,0.97180e-02_rb, &\n        & 0.86745e-02_rb,0.73942e-02_rb,0.58154e-02_rb,0.40318e-02_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.12656e-01_rb,0.12077e-01_rb,0.11582e-01_rb,0.10960e-01_rb,0.10205e-01_rb, &\n        & 0.92477e-02_rb,0.80000e-02_rb,0.64500e-02_rb,0.47452e-02_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.12499e-01_rb,0.12115e-01_rb,0.11810e-01_rb,0.11361e-01_rb,0.10734e-01_rb, &\n        & 0.98374e-02_rb,0.86412e-02_rb,0.71467e-02_rb,0.55214e-02_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.12364e-01_rb,0.12194e-01_rb,0.12081e-01_rb,0.11798e-01_rb,0.11270e-01_rb, &\n        & 0.10459e-01_rb,0.93144e-02_rb,0.78844e-02_rb,0.63718e-02_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.12255e-01_rb,0.12311e-01_rb,0.12390e-01_rb,0.12242e-01_rb,0.11833e-01_rb, &\n        & 0.11093e-01_rb,0.10016e-01_rb,0.86730e-02_rb,0.72984e-02_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.11891e-01_rb,0.11226e-01_rb,0.10633e-01_rb,0.99134e-02_rb,0.90439e-02_rb, &\n        & 0.80297e-02_rb,0.68136e-02_rb,0.52756e-02_rb,0.33216e-02_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.11730e-01_rb,0.11250e-01_rb,0.10822e-01_rb,0.10230e-01_rb,0.94903e-02_rb, &\n        & 0.85683e-02_rb,0.73765e-02_rb,0.58347e-02_rb,0.39310e-02_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.11586e-01_rb,0.11299e-01_rb,0.11036e-01_rb,0.10599e-01_rb,0.99917e-02_rb, &\n        & 0.91260e-02_rb,0.79645e-02_rb,0.64502e-02_rb,0.46031e-02_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.11473e-01_rb,0.11391e-01_rb,0.11290e-01_rb,0.11015e-01_rb,0.10500e-01_rb, &\n        & 0.97132e-02_rb,0.85920e-02_rb,0.71112e-02_rb,0.53403e-02_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.11384e-01_rb,0.11524e-01_rb,0.11598e-01_rb,0.11442e-01_rb,0.11036e-01_rb, &\n        & 0.10317e-01_rb,0.92441e-02_rb,0.78209e-02_rb,0.61457e-02_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.10852e-01_rb,0.10302e-01_rb,0.97896e-02_rb,0.91138e-02_rb,0.83000e-02_rb, &\n        & 0.73373e-02_rb,0.61956e-02_rb,0.47644e-02_rb,0.26652e-02_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.10699e-01_rb,0.10325e-01_rb,0.99631e-02_rb,0.94045e-02_rb,0.87025e-02_rb, &\n        & 0.78255e-02_rb,0.67137e-02_rb,0.52638e-02_rb,0.31922e-02_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.10574e-01_rb,0.10385e-01_rb,0.10163e-01_rb,0.97460e-02_rb,0.91609e-02_rb, &\n        & 0.83418e-02_rb,0.72560e-02_rb,0.58143e-02_rb,0.37766e-02_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.10480e-01_rb,0.10499e-01_rb,0.10413e-01_rb,0.10139e-01_rb,0.96342e-02_rb, &\n        & 0.88826e-02_rb,0.78405e-02_rb,0.64037e-02_rb,0.44295e-02_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.10415e-01_rb,0.10646e-01_rb,0.10720e-01_rb,0.10553e-01_rb,0.10134e-01_rb, &\n        & 0.94529e-02_rb,0.84471e-02_rb,0.70384e-02_rb,0.51485e-02_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.97587e-02_rb,0.93185e-02_rb,0.88694e-02_rb,0.82517e-02_rb,0.75094e-02_rb, &\n        & 0.66177e-02_rb,0.55658e-02_rb,0.42591e-02_rb,0.21931e-02_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.96183e-02_rb,0.93436e-02_rb,0.90329e-02_rb,0.85198e-02_rb,0.78654e-02_rb, &\n        & 0.70507e-02_rb,0.60316e-02_rb,0.47067e-02_rb,0.25691e-02_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.95112e-02_rb,0.94166e-02_rb,0.92325e-02_rb,0.88355e-02_rb,0.82791e-02_rb, &\n        & 0.75194e-02_rb,0.65208e-02_rb,0.52003e-02_rb,0.29789e-02_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.94373e-02_rb,0.95446e-02_rb,0.94815e-02_rb,0.92092e-02_rb,0.87140e-02_rb, &\n        & 0.80091e-02_rb,0.70556e-02_rb,0.57344e-02_rb,0.34284e-02_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.93945e-02_rb,0.97041e-02_rb,0.97866e-02_rb,0.96055e-02_rb,0.91834e-02_rb, &\n        & 0.85358e-02_rb,0.76199e-02_rb,0.63067e-02_rb,0.39360e-02_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.86571e-02_rb,0.83282e-02_rb,0.79327e-02_rb,0.73862e-02_rb,0.67217e-02_rb, &\n        & 0.59210e-02_rb,0.49777e-02_rb,0.37950e-02_rb,0.25161e-02_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.85351e-02_rb,0.83629e-02_rb,0.80910e-02_rb,0.76400e-02_rb,0.70398e-02_rb, &\n        & 0.63068e-02_rb,0.53903e-02_rb,0.41966e-02_rb,0.29067e-02_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.84483e-02_rb,0.84483e-02_rb,0.82944e-02_rb,0.79338e-02_rb,0.74159e-02_rb, &\n        & 0.67272e-02_rb,0.58285e-02_rb,0.46411e-02_rb,0.33599e-02_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.83941e-02_rb,0.85821e-02_rb,0.85440e-02_rb,0.82866e-02_rb,0.78214e-02_rb, &\n        & 0.71692e-02_rb,0.63103e-02_rb,0.51290e-02_rb,0.38620e-02_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.83806e-02_rb,0.87510e-02_rb,0.88459e-02_rb,0.86620e-02_rb,0.82607e-02_rb, &\n        & 0.76554e-02_rb,0.68267e-02_rb,0.56504e-02_rb,0.44001e-02_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.75570e-02_rb,0.73902e-02_rb,0.70826e-02_rb,0.66405e-02_rb,0.60731e-02_rb, &\n        & 0.53892e-02_rb,0.45656e-02_rb,0.35050e-02_rb,0.26164e-02_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.74683e-02_rb,0.74501e-02_rb,0.72578e-02_rb,0.68886e-02_rb,0.63823e-02_rb, &\n        & 0.57485e-02_rb,0.49402e-02_rb,0.38790e-02_rb,0.30097e-02_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.74153e-02_rb,0.75630e-02_rb,0.74762e-02_rb,0.71912e-02_rb,0.67425e-02_rb, &\n        & 0.61326e-02_rb,0.53447e-02_rb,0.42990e-02_rb,0.34771e-02_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.74057e-02_rb,0.77202e-02_rb,0.77477e-02_rb,0.75330e-02_rb,0.71268e-02_rb, &\n        & 0.65549e-02_rb,0.57951e-02_rb,0.47555e-02_rb,0.39884e-02_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.74391e-02_rb,0.79220e-02_rb,0.80561e-02_rb,0.79014e-02_rb,0.75514e-02_rb, &\n        & 0.70214e-02_rb,0.62779e-02_rb,0.52483e-02_rb,0.45376e-02_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.65546e-02_rb,0.65200e-02_rb,0.62910e-02_rb,0.59243e-02_rb,0.54454e-02_rb, &\n        & 0.48623e-02_rb,0.41386e-02_rb,0.32013e-02_rb,0.25137e-02_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.64987e-02_rb,0.66047e-02_rb,0.64774e-02_rb,0.61754e-02_rb,0.57483e-02_rb, &\n        & 0.51910e-02_rb,0.44799e-02_rb,0.35500e-02_rb,0.28998e-02_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.64867e-02_rb,0.67439e-02_rb,0.67077e-02_rb,0.64758e-02_rb,0.60840e-02_rb, &\n        & 0.55472e-02_rb,0.48582e-02_rb,0.39433e-02_rb,0.33472e-02_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.65214e-02_rb,0.69269e-02_rb,0.69913e-02_rb,0.68034e-02_rb,0.64480e-02_rb, &\n        & 0.59497e-02_rb,0.52811e-02_rb,0.43712e-02_rb,0.38283e-02_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.66068e-02_rb,0.71634e-02_rb,0.73032e-02_rb,0.71670e-02_rb,0.68605e-02_rb, &\n        & 0.63896e-02_rb,0.57387e-02_rb,0.48340e-02_rb,0.43614e-02_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.56598e-02_rb,0.57241e-02_rb,0.55653e-02_rb,0.52616e-02_rb,0.48615e-02_rb, &\n        & 0.43534e-02_rb,0.37143e-02_rb,0.28975e-02_rb,0.22483e-02_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.56408e-02_rb,0.58364e-02_rb,0.57539e-02_rb,0.55120e-02_rb,0.51475e-02_rb, &\n        & 0.46559e-02_rb,0.40284e-02_rb,0.32222e-02_rb,0.26111e-02_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.56697e-02_rb,0.59982e-02_rb,0.59981e-02_rb,0.58053e-02_rb,0.54583e-02_rb, &\n        & 0.49917e-02_rb,0.43867e-02_rb,0.35862e-02_rb,0.30268e-02_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.57519e-02_rb,0.62108e-02_rb,0.62874e-02_rb,0.61219e-02_rb,0.58111e-02_rb, &\n        & 0.53715e-02_rb,0.47851e-02_rb,0.39858e-02_rb,0.34700e-02_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.58830e-02_rb,0.64813e-02_rb,0.66064e-02_rb,0.64830e-02_rb,0.62068e-02_rb, &\n        & 0.57872e-02_rb,0.52185e-02_rb,0.44205e-02_rb,0.39619e-02_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.28544e-01_rb,0.26155e-01_rb,0.24149e-01_rb,0.22667e-01_rb,0.21632e-01_rb, &\n        & 0.20279e-01_rb,0.18489e-01_rb,0.17580e-01_rb,0.19616e-01_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.28363e-01_rb,0.26242e-01_rb,0.24669e-01_rb,0.23473e-01_rb,0.22995e-01_rb, &\n        & 0.21803e-01_rb,0.19985e-01_rb,0.19915e-01_rb,0.22325e-01_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.28168e-01_rb,0.26278e-01_rb,0.25280e-01_rb,0.24624e-01_rb,0.24316e-01_rb, &\n        & 0.23197e-01_rb,0.21657e-01_rb,0.22779e-01_rb,0.25626e-01_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.27980e-01_rb,0.26431e-01_rb,0.25828e-01_rb,0.25920e-01_rb,0.25669e-01_rb, &\n        & 0.24755e-01_rb,0.23686e-01_rb,0.25934e-01_rb,0.29281e-01_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.27732e-01_rb,0.26646e-01_rb,0.26660e-01_rb,0.27009e-01_rb,0.27233e-01_rb, &\n        & 0.26525e-01_rb,0.25997e-01_rb,0.29201e-01_rb,0.33040e-01_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.30271e-01_rb,0.27672e-01_rb,0.25272e-01_rb,0.23430e-01_rb,0.22043e-01_rb, &\n        & 0.20727e-01_rb,0.19083e-01_rb,0.16913e-01_rb,0.18728e-01_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.30091e-01_rb,0.27720e-01_rb,0.25820e-01_rb,0.24222e-01_rb,0.23409e-01_rb, &\n        & 0.22468e-01_rb,0.20609e-01_rb,0.19148e-01_rb,0.21375e-01_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.29914e-01_rb,0.27750e-01_rb,0.26375e-01_rb,0.25267e-01_rb,0.24987e-01_rb, &\n        & 0.23926e-01_rb,0.22306e-01_rb,0.21932e-01_rb,0.24591e-01_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.29701e-01_rb,0.27873e-01_rb,0.26877e-01_rb,0.26535e-01_rb,0.26327e-01_rb, &\n        & 0.25568e-01_rb,0.24303e-01_rb,0.24920e-01_rb,0.28049e-01_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.29422e-01_rb,0.28052e-01_rb,0.27653e-01_rb,0.27818e-01_rb,0.27831e-01_rb, &\n        & 0.27375e-01_rb,0.26338e-01_rb,0.28129e-01_rb,0.31777e-01_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.32089e-01_rb,0.29221e-01_rb,0.26504e-01_rb,0.24372e-01_rb,0.22322e-01_rb, &\n        & 0.20541e-01_rb,0.19063e-01_rb,0.16413e-01_rb,0.17368e-01_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.31950e-01_rb,0.29299e-01_rb,0.26979e-01_rb,0.25078e-01_rb,0.23422e-01_rb, &\n        & 0.22454e-01_rb,0.20735e-01_rb,0.18244e-01_rb,0.19956e-01_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.31786e-01_rb,0.29316e-01_rb,0.27496e-01_rb,0.25889e-01_rb,0.24965e-01_rb, &\n        & 0.24089e-01_rb,0.22376e-01_rb,0.20693e-01_rb,0.22993e-01_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.31564e-01_rb,0.29393e-01_rb,0.27942e-01_rb,0.27000e-01_rb,0.26402e-01_rb, &\n        & 0.25715e-01_rb,0.24406e-01_rb,0.23371e-01_rb,0.26093e-01_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.31295e-01_rb,0.29526e-01_rb,0.28627e-01_rb,0.28150e-01_rb,0.27951e-01_rb, &\n        & 0.27569e-01_rb,0.26423e-01_rb,0.26332e-01_rb,0.29505e-01_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.33998e-01_rb,0.30694e-01_rb,0.27710e-01_rb,0.25291e-01_rb,0.22809e-01_rb, &\n        & 0.20329e-01_rb,0.18660e-01_rb,0.16131e-01_rb,0.15800e-01_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.33852e-01_rb,0.30861e-01_rb,0.28097e-01_rb,0.25930e-01_rb,0.23654e-01_rb, &\n        & 0.22029e-01_rb,0.20474e-01_rb,0.17896e-01_rb,0.18339e-01_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.33685e-01_rb,0.30889e-01_rb,0.28668e-01_rb,0.26585e-01_rb,0.25018e-01_rb, &\n        & 0.23681e-01_rb,0.22215e-01_rb,0.19897e-01_rb,0.21224e-01_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.33431e-01_rb,0.30933e-01_rb,0.29107e-01_rb,0.27570e-01_rb,0.26341e-01_rb, &\n        & 0.25360e-01_rb,0.24234e-01_rb,0.22138e-01_rb,0.24217e-01_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.33153e-01_rb,0.31115e-01_rb,0.29708e-01_rb,0.28626e-01_rb,0.27757e-01_rb, &\n        & 0.27318e-01_rb,0.26191e-01_rb,0.24666e-01_rb,0.27426e-01_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.35630e-01_rb,0.31962e-01_rb,0.28969e-01_rb,0.26191e-01_rb,0.23359e-01_rb, &\n        & 0.20419e-01_rb,0.18025e-01_rb,0.15529e-01_rb,0.14046e-01_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.35465e-01_rb,0.32227e-01_rb,0.29248e-01_rb,0.26845e-01_rb,0.24076e-01_rb, &\n        & 0.21854e-01_rb,0.19842e-01_rb,0.17371e-01_rb,0.16514e-01_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.35239e-01_rb,0.32283e-01_rb,0.29869e-01_rb,0.27436e-01_rb,0.25256e-01_rb, &\n        & 0.23352e-01_rb,0.21638e-01_rb,0.19381e-01_rb,0.19322e-01_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.34959e-01_rb,0.32275e-01_rb,0.30321e-01_rb,0.28325e-01_rb,0.26494e-01_rb, &\n        & 0.24825e-01_rb,0.23722e-01_rb,0.21526e-01_rb,0.22221e-01_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.34633e-01_rb,0.32463e-01_rb,0.30867e-01_rb,0.29345e-01_rb,0.27730e-01_rb, &\n        & 0.26661e-01_rb,0.25760e-01_rb,0.23698e-01_rb,0.25325e-01_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.36611e-01_rb,0.32766e-01_rb,0.29862e-01_rb,0.26964e-01_rb,0.23985e-01_rb, &\n        & 0.20572e-01_rb,0.17499e-01_rb,0.14612e-01_rb,0.12200e-01_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.36404e-01_rb,0.32931e-01_rb,0.30135e-01_rb,0.27680e-01_rb,0.24618e-01_rb, &\n        & 0.21792e-01_rb,0.19087e-01_rb,0.16488e-01_rb,0.14408e-01_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.36151e-01_rb,0.33151e-01_rb,0.30783e-01_rb,0.28229e-01_rb,0.25608e-01_rb, &\n        & 0.23215e-01_rb,0.20762e-01_rb,0.18415e-01_rb,0.17025e-01_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.35835e-01_rb,0.33169e-01_rb,0.31261e-01_rb,0.29020e-01_rb,0.26813e-01_rb, &\n        & 0.24559e-01_rb,0.22662e-01_rb,0.20622e-01_rb,0.19846e-01_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.35491e-01_rb,0.33330e-01_rb,0.31756e-01_rb,0.30047e-01_rb,0.27916e-01_rb, &\n        & 0.26189e-01_rb,0.24713e-01_rb,0.22859e-01_rb,0.22839e-01_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.36793e-01_rb,0.32943e-01_rb,0.30074e-01_rb,0.27299e-01_rb,0.24319e-01_rb, &\n        & 0.20802e-01_rb,0.17113e-01_rb,0.13465e-01_rb,0.10508e-01_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.36572e-01_rb,0.33074e-01_rb,0.30511e-01_rb,0.28032e-01_rb,0.24986e-01_rb, &\n        & 0.21844e-01_rb,0.18570e-01_rb,0.15283e-01_rb,0.12467e-01_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.36275e-01_rb,0.33234e-01_rb,0.31161e-01_rb,0.28602e-01_rb,0.25904e-01_rb, &\n        & 0.23164e-01_rb,0.20091e-01_rb,0.17151e-01_rb,0.14775e-01_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.35925e-01_rb,0.33332e-01_rb,0.31658e-01_rb,0.29367e-01_rb,0.27125e-01_rb, &\n        & 0.24431e-01_rb,0.21734e-01_rb,0.19261e-01_rb,0.17350e-01_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.35558e-01_rb,0.33506e-01_rb,0.32097e-01_rb,0.30412e-01_rb,0.28219e-01_rb, &\n        & 0.25923e-01_rb,0.23598e-01_rb,0.21456e-01_rb,0.20114e-01_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.36293e-01_rb,0.32550e-01_rb,0.29721e-01_rb,0.27154e-01_rb,0.24076e-01_rb, &\n        & 0.20693e-01_rb,0.16829e-01_rb,0.12555e-01_rb,0.89579e-02_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.35985e-01_rb,0.32624e-01_rb,0.30270e-01_rb,0.27879e-01_rb,0.24830e-01_rb, &\n        & 0.21669e-01_rb,0.18126e-01_rb,0.14126e-01_rb,0.10649e-01_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.35646e-01_rb,0.32730e-01_rb,0.30946e-01_rb,0.28474e-01_rb,0.25750e-01_rb, &\n        & 0.23017e-01_rb,0.19564e-01_rb,0.15741e-01_rb,0.12721e-01_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.35279e-01_rb,0.32754e-01_rb,0.31424e-01_rb,0.29187e-01_rb,0.27070e-01_rb, &\n        & 0.24316e-01_rb,0.21018e-01_rb,0.17682e-01_rb,0.15011e-01_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.34858e-01_rb,0.32947e-01_rb,0.31835e-01_rb,0.30265e-01_rb,0.28236e-01_rb, &\n        & 0.25710e-01_rb,0.22721e-01_rb,0.19777e-01_rb,0.17474e-01_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.35060e-01_rb,0.31556e-01_rb,0.29012e-01_rb,0.26469e-01_rb,0.23391e-01_rb, &\n        & 0.20141e-01_rb,0.16295e-01_rb,0.11885e-01_rb,0.58937e-02_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.34721e-01_rb,0.31589e-01_rb,0.29506e-01_rb,0.27211e-01_rb,0.24267e-01_rb, &\n        & 0.21055e-01_rb,0.17547e-01_rb,0.13263e-01_rb,0.69908e-02_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.34339e-01_rb,0.31609e-01_rb,0.30075e-01_rb,0.27841e-01_rb,0.25163e-01_rb, &\n        & 0.22398e-01_rb,0.18997e-01_rb,0.14640e-01_rb,0.92447e-02_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.33936e-01_rb,0.31619e-01_rb,0.30603e-01_rb,0.28503e-01_rb,0.26490e-01_rb, &\n        & 0.23804e-01_rb,0.20342e-01_rb,0.16280e-01_rb,0.11993e-01_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.33530e-01_rb,0.31821e-01_rb,0.30991e-01_rb,0.29578e-01_rb,0.27714e-01_rb, &\n        & 0.25218e-01_rb,0.21886e-01_rb,0.18137e-01_rb,0.14941e-01_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.33129e-01_rb,0.29964e-01_rb,0.27856e-01_rb,0.25331e-01_rb,0.22401e-01_rb, &\n        & 0.19295e-01_rb,0.15555e-01_rb,0.11348e-01_rb,0.74286e-02_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.32749e-01_rb,0.29950e-01_rb,0.28249e-01_rb,0.25998e-01_rb,0.23402e-01_rb, &\n        & 0.20209e-01_rb,0.16757e-01_rb,0.12616e-01_rb,0.86653e-02_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.32344e-01_rb,0.29933e-01_rb,0.28722e-01_rb,0.26736e-01_rb,0.24275e-01_rb, &\n        & 0.21508e-01_rb,0.18229e-01_rb,0.13852e-01_rb,0.98082e-02_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.31944e-01_rb,0.30002e-01_rb,0.29235e-01_rb,0.27435e-01_rb,0.25548e-01_rb, &\n        & 0.22964e-01_rb,0.19579e-01_rb,0.15278e-01_rb,0.11352e-01_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.31533e-01_rb,0.30276e-01_rb,0.29685e-01_rb,0.28539e-01_rb,0.26795e-01_rb, &\n        & 0.24358e-01_rb,0.21106e-01_rb,0.16900e-01_rb,0.12858e-01_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.30476e-01_rb,0.27848e-01_rb,0.26383e-01_rb,0.23991e-01_rb,0.21505e-01_rb, &\n        & 0.18546e-01_rb,0.15127e-01_rb,0.11242e-01_rb,0.84064e-02_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.30069e-01_rb,0.27873e-01_rb,0.26695e-01_rb,0.24743e-01_rb,0.22441e-01_rb, &\n        & 0.19591e-01_rb,0.16445e-01_rb,0.12465e-01_rb,0.99520e-02_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.29683e-01_rb,0.27938e-01_rb,0.27199e-01_rb,0.25464e-01_rb,0.23474e-01_rb, &\n        & 0.21008e-01_rb,0.17841e-01_rb,0.13636e-01_rb,0.11012e-01_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.29281e-01_rb,0.28147e-01_rb,0.27612e-01_rb,0.26457e-01_rb,0.24810e-01_rb, &\n        & 0.22367e-01_rb,0.19198e-01_rb,0.15026e-01_rb,0.12764e-01_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.28878e-01_rb,0.28450e-01_rb,0.28275e-01_rb,0.27607e-01_rb,0.26039e-01_rb, &\n        & 0.23769e-01_rb,0.20798e-01_rb,0.16479e-01_rb,0.14486e-01_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.27483e-01_rb,0.25515e-01_rb,0.24398e-01_rb,0.22423e-01_rb,0.20204e-01_rb, &\n        & 0.17532e-01_rb,0.14597e-01_rb,0.10977e-01_rb,0.89256e-02_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.27095e-01_rb,0.25634e-01_rb,0.24782e-01_rb,0.23175e-01_rb,0.21102e-01_rb, &\n        & 0.18740e-01_rb,0.15902e-01_rb,0.12114e-01_rb,0.10252e-01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.26727e-01_rb,0.25761e-01_rb,0.25266e-01_rb,0.23974e-01_rb,0.22361e-01_rb, &\n        & 0.20171e-01_rb,0.17193e-01_rb,0.13275e-01_rb,0.11451e-01_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.26341e-01_rb,0.26039e-01_rb,0.25768e-01_rb,0.25146e-01_rb,0.23693e-01_rb, &\n        & 0.21452e-01_rb,0.18566e-01_rb,0.14626e-01_rb,0.13159e-01_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.25958e-01_rb,0.26232e-01_rb,0.26607e-01_rb,0.26277e-01_rb,0.24926e-01_rb, &\n        & 0.22906e-01_rb,0.20118e-01_rb,0.16018e-01_rb,0.14784e-01_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.24404e-01_rb,0.23195e-01_rb,0.22191e-01_rb,0.20664e-01_rb,0.18645e-01_rb, &\n        & 0.16397e-01_rb,0.13889e-01_rb,0.10532e-01_rb,0.85762e-02_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.24045e-01_rb,0.23274e-01_rb,0.22704e-01_rb,0.21382e-01_rb,0.19651e-01_rb, &\n        & 0.17693e-01_rb,0.15133e-01_rb,0.11576e-01_rb,0.96068e-02_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.23688e-01_rb,0.23458e-01_rb,0.23185e-01_rb,0.22281e-01_rb,0.21010e-01_rb, &\n        & 0.19021e-01_rb,0.16312e-01_rb,0.12755e-01_rb,0.10813e-01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.23340e-01_rb,0.23719e-01_rb,0.23835e-01_rb,0.23529e-01_rb,0.22269e-01_rb, &\n        & 0.20297e-01_rb,0.17677e-01_rb,0.14063e-01_rb,0.12469e-01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.23007e-01_rb,0.23887e-01_rb,0.24745e-01_rb,0.24636e-01_rb,0.23538e-01_rb, &\n        & 0.21795e-01_rb,0.19163e-01_rb,0.15452e-01_rb,0.13866e-01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.38207e-01_rb,0.35023e-01_rb,0.31764e-01_rb,0.29513e-01_rb,0.27148e-01_rb, &\n        & 0.25121e-01_rb,0.22678e-01_rb,0.23928e-01_rb,0.26899e-01_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.37930e-01_rb,0.35272e-01_rb,0.32250e-01_rb,0.30760e-01_rb,0.28557e-01_rb, &\n        & 0.27105e-01_rb,0.25089e-01_rb,0.27604e-01_rb,0.31070e-01_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.37611e-01_rb,0.35491e-01_rb,0.32949e-01_rb,0.31869e-01_rb,0.30632e-01_rb, &\n        & 0.29068e-01_rb,0.27897e-01_rb,0.31369e-01_rb,0.35419e-01_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.37244e-01_rb,0.35566e-01_rb,0.33874e-01_rb,0.33253e-01_rb,0.32466e-01_rb, &\n        & 0.31095e-01_rb,0.31358e-01_rb,0.35716e-01_rb,0.40368e-01_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.36895e-01_rb,0.35750e-01_rb,0.34817e-01_rb,0.35038e-01_rb,0.34265e-01_rb, &\n        & 0.33428e-01_rb,0.35709e-01_rb,0.40899e-01_rb,0.46337e-01_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.39640e-01_rb,0.36208e-01_rb,0.33140e-01_rb,0.30731e-01_rb,0.28621e-01_rb, &\n        & 0.26451e-01_rb,0.23824e-01_rb,0.23418e-01_rb,0.26401e-01_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.39384e-01_rb,0.36543e-01_rb,0.33542e-01_rb,0.32043e-01_rb,0.30032e-01_rb, &\n        & 0.28484e-01_rb,0.26191e-01_rb,0.27027e-01_rb,0.30540e-01_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.39069e-01_rb,0.36650e-01_rb,0.34340e-01_rb,0.33119e-01_rb,0.32037e-01_rb, &\n        & 0.30787e-01_rb,0.28410e-01_rb,0.30659e-01_rb,0.34733e-01_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.38756e-01_rb,0.36738e-01_rb,0.35220e-01_rb,0.34547e-01_rb,0.34264e-01_rb, &\n        & 0.32872e-01_rb,0.31204e-01_rb,0.34827e-01_rb,0.39529e-01_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.38432e-01_rb,0.36958e-01_rb,0.36077e-01_rb,0.36343e-01_rb,0.36389e-01_rb, &\n        & 0.35222e-01_rb,0.34916e-01_rb,0.39622e-01_rb,0.45018e-01_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.41762e-01_rb,0.37801e-01_rb,0.34598e-01_rb,0.31385e-01_rb,0.29542e-01_rb, &\n        & 0.27120e-01_rb,0.24296e-01_rb,0.22163e-01_rb,0.24873e-01_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.41521e-01_rb,0.38107e-01_rb,0.34885e-01_rb,0.32740e-01_rb,0.30892e-01_rb, &\n        & 0.28927e-01_rb,0.26874e-01_rb,0.25608e-01_rb,0.28828e-01_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.41284e-01_rb,0.38250e-01_rb,0.35590e-01_rb,0.33929e-01_rb,0.32637e-01_rb, &\n        & 0.31412e-01_rb,0.29268e-01_rb,0.29038e-01_rb,0.32851e-01_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.40996e-01_rb,0.38286e-01_rb,0.36402e-01_rb,0.35356e-01_rb,0.34868e-01_rb, &\n        & 0.33799e-01_rb,0.31619e-01_rb,0.33158e-01_rb,0.37659e-01_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.40710e-01_rb,0.38497e-01_rb,0.37108e-01_rb,0.37161e-01_rb,0.37098e-01_rb, &\n        & 0.36226e-01_rb,0.34568e-01_rb,0.37733e-01_rb,0.42953e-01_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.44432e-01_rb,0.39911e-01_rb,0.36533e-01_rb,0.32358e-01_rb,0.30116e-01_rb, &\n        & 0.27425e-01_rb,0.24391e-01_rb,0.21003e-01_rb,0.22873e-01_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.44241e-01_rb,0.40248e-01_rb,0.36750e-01_rb,0.33734e-01_rb,0.31371e-01_rb, &\n        & 0.29050e-01_rb,0.26929e-01_rb,0.23993e-01_rb,0.26696e-01_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.43986e-01_rb,0.40474e-01_rb,0.37358e-01_rb,0.34847e-01_rb,0.32894e-01_rb, &\n        & 0.31475e-01_rb,0.29486e-01_rb,0.27256e-01_rb,0.30632e-01_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.43750e-01_rb,0.40487e-01_rb,0.38107e-01_rb,0.36115e-01_rb,0.35063e-01_rb, &\n        & 0.33924e-01_rb,0.31967e-01_rb,0.31144e-01_rb,0.35198e-01_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.43427e-01_rb,0.40610e-01_rb,0.38702e-01_rb,0.37867e-01_rb,0.37251e-01_rb, &\n        & 0.36357e-01_rb,0.34995e-01_rb,0.35502e-01_rb,0.40197e-01_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.47176e-01_rb,0.42142e-01_rb,0.38550e-01_rb,0.33884e-01_rb,0.30889e-01_rb, &\n        & 0.27516e-01_rb,0.24267e-01_rb,0.20680e-01_rb,0.20851e-01_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.47021e-01_rb,0.42363e-01_rb,0.38770e-01_rb,0.35164e-01_rb,0.32104e-01_rb, &\n        & 0.29005e-01_rb,0.26645e-01_rb,0.23247e-01_rb,0.24505e-01_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.46797e-01_rb,0.42763e-01_rb,0.39235e-01_rb,0.36269e-01_rb,0.33395e-01_rb, &\n        & 0.31307e-01_rb,0.29249e-01_rb,0.25924e-01_rb,0.28324e-01_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.46572e-01_rb,0.42912e-01_rb,0.40018e-01_rb,0.37361e-01_rb,0.35308e-01_rb, &\n        & 0.33789e-01_rb,0.31702e-01_rb,0.29304e-01_rb,0.32735e-01_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.46255e-01_rb,0.42923e-01_rb,0.40617e-01_rb,0.38829e-01_rb,0.37399e-01_rb, &\n        & 0.36167e-01_rb,0.34686e-01_rb,0.33312e-01_rb,0.37380e-01_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.49975e-01_rb,0.44361e-01_rb,0.40341e-01_rb,0.35539e-01_rb,0.31829e-01_rb, &\n        & 0.27816e-01_rb,0.23845e-01_rb,0.20093e-01_rb,0.18543e-01_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.49828e-01_rb,0.44558e-01_rb,0.40763e-01_rb,0.36628e-01_rb,0.33050e-01_rb, &\n        & 0.29095e-01_rb,0.26117e-01_rb,0.22673e-01_rb,0.22099e-01_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.49608e-01_rb,0.44841e-01_rb,0.41085e-01_rb,0.37793e-01_rb,0.34135e-01_rb, &\n        & 0.31097e-01_rb,0.28755e-01_rb,0.25283e-01_rb,0.25831e-01_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.49365e-01_rb,0.45144e-01_rb,0.41922e-01_rb,0.38723e-01_rb,0.35845e-01_rb, &\n        & 0.33431e-01_rb,0.31237e-01_rb,0.28118e-01_rb,0.29954e-01_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.49026e-01_rb,0.45249e-01_rb,0.42535e-01_rb,0.39993e-01_rb,0.37821e-01_rb, &\n        & 0.35671e-01_rb,0.34099e-01_rb,0.31399e-01_rb,0.34366e-01_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.52410e-01_rb,0.46362e-01_rb,0.41901e-01_rb,0.37210e-01_rb,0.32800e-01_rb, &\n        & 0.28263e-01_rb,0.23499e-01_rb,0.19230e-01_rb,0.16237e-01_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.52214e-01_rb,0.46505e-01_rb,0.42451e-01_rb,0.38113e-01_rb,0.34021e-01_rb, &\n        & 0.29480e-01_rb,0.25464e-01_rb,0.21812e-01_rb,0.19595e-01_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.51982e-01_rb,0.46700e-01_rb,0.42867e-01_rb,0.39292e-01_rb,0.35048e-01_rb, &\n        & 0.31222e-01_rb,0.27987e-01_rb,0.24489e-01_rb,0.23138e-01_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.51660e-01_rb,0.46904e-01_rb,0.43697e-01_rb,0.40172e-01_rb,0.36555e-01_rb, &\n        & 0.33390e-01_rb,0.30506e-01_rb,0.27287e-01_rb,0.27036e-01_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.51284e-01_rb,0.47053e-01_rb,0.44408e-01_rb,0.41338e-01_rb,0.38429e-01_rb, &\n        & 0.35446e-01_rb,0.33297e-01_rb,0.30383e-01_rb,0.31263e-01_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.53849e-01_rb,0.47597e-01_rb,0.43012e-01_rb,0.38373e-01_rb,0.33860e-01_rb, &\n        & 0.28679e-01_rb,0.23391e-01_rb,0.18151e-01_rb,0.14106e-01_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.53641e-01_rb,0.47671e-01_rb,0.43475e-01_rb,0.39445e-01_rb,0.35042e-01_rb, &\n        & 0.29924e-01_rb,0.25055e-01_rb,0.20655e-01_rb,0.17171e-01_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.53375e-01_rb,0.47826e-01_rb,0.44020e-01_rb,0.40653e-01_rb,0.36059e-01_rb, &\n        & 0.31447e-01_rb,0.27345e-01_rb,0.23357e-01_rb,0.20383e-01_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.53001e-01_rb,0.48011e-01_rb,0.44999e-01_rb,0.41558e-01_rb,0.37354e-01_rb, &\n        & 0.33601e-01_rb,0.29695e-01_rb,0.26106e-01_rb,0.24004e-01_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.52592e-01_rb,0.48152e-01_rb,0.45845e-01_rb,0.42585e-01_rb,0.39198e-01_rb, &\n        & 0.35588e-01_rb,0.32287e-01_rb,0.29155e-01_rb,0.27991e-01_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.54223e-01_rb,0.47973e-01_rb,0.43289e-01_rb,0.38882e-01_rb,0.34299e-01_rb, &\n        & 0.28946e-01_rb,0.23303e-01_rb,0.17068e-01_rb,0.11192e-01_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.53940e-01_rb,0.47929e-01_rb,0.43759e-01_rb,0.39916e-01_rb,0.35622e-01_rb, &\n        & 0.30345e-01_rb,0.24752e-01_rb,0.19298e-01_rb,0.14778e-01_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.53642e-01_rb,0.48095e-01_rb,0.44399e-01_rb,0.41241e-01_rb,0.36768e-01_rb, &\n        & 0.31745e-01_rb,0.26845e-01_rb,0.21914e-01_rb,0.17754e-01_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.53257e-01_rb,0.48243e-01_rb,0.45322e-01_rb,0.42327e-01_rb,0.37988e-01_rb, &\n        & 0.33799e-01_rb,0.29109e-01_rb,0.24533e-01_rb,0.21056e-01_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.52778e-01_rb,0.48340e-01_rb,0.46365e-01_rb,0.43326e-01_rb,0.39837e-01_rb, &\n        & 0.35758e-01_rb,0.31465e-01_rb,0.27467e-01_rb,0.24721e-01_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.53564e-01_rb,0.47520e-01_rb,0.42897e-01_rb,0.38870e-01_rb,0.34096e-01_rb, &\n        & 0.28762e-01_rb,0.23161e-01_rb,0.16420e-01_rb,0.10403e-01_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.53200e-01_rb,0.47370e-01_rb,0.43390e-01_rb,0.39812e-01_rb,0.35374e-01_rb, &\n        & 0.30449e-01_rb,0.24605e-01_rb,0.18329e-01_rb,0.12727e-01_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.52804e-01_rb,0.47486e-01_rb,0.44077e-01_rb,0.41029e-01_rb,0.36828e-01_rb, &\n        & 0.31909e-01_rb,0.26518e-01_rb,0.20700e-01_rb,0.14792e-01_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.52379e-01_rb,0.47585e-01_rb,0.44997e-01_rb,0.42270e-01_rb,0.38168e-01_rb, &\n        & 0.33930e-01_rb,0.28762e-01_rb,0.23052e-01_rb,0.16495e-01_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.51859e-01_rb,0.47629e-01_rb,0.45989e-01_rb,0.43387e-01_rb,0.40080e-01_rb, &\n        & 0.36007e-01_rb,0.30957e-01_rb,0.25773e-01_rb,0.18898e-01_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.51622e-01_rb,0.46074e-01_rb,0.42057e-01_rb,0.38618e-01_rb,0.33808e-01_rb, &\n        & 0.28847e-01_rb,0.23288e-01_rb,0.16620e-01_rb,0.11907e-01_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.51193e-01_rb,0.45980e-01_rb,0.42719e-01_rb,0.39541e-01_rb,0.35253e-01_rb, &\n        & 0.30566e-01_rb,0.24931e-01_rb,0.18565e-01_rb,0.13988e-01_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.50740e-01_rb,0.46089e-01_rb,0.43457e-01_rb,0.40804e-01_rb,0.36736e-01_rb, &\n        & 0.32310e-01_rb,0.27095e-01_rb,0.20684e-01_rb,0.16681e-01_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.50228e-01_rb,0.46105e-01_rb,0.44454e-01_rb,0.41838e-01_rb,0.38478e-01_rb, &\n        & 0.34580e-01_rb,0.29293e-01_rb,0.22846e-01_rb,0.18301e-01_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.49697e-01_rb,0.46259e-01_rb,0.45191e-01_rb,0.43198e-01_rb,0.40635e-01_rb, &\n        & 0.36709e-01_rb,0.31434e-01_rb,0.25478e-01_rb,0.20947e-01_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.48647e-01_rb,0.43752e-01_rb,0.40707e-01_rb,0.37500e-01_rb,0.33089e-01_rb, &\n        & 0.28489e-01_rb,0.23000e-01_rb,0.16785e-01_rb,0.12627e-01_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.48181e-01_rb,0.43711e-01_rb,0.41312e-01_rb,0.38500e-01_rb,0.34693e-01_rb, &\n        & 0.30128e-01_rb,0.24939e-01_rb,0.18673e-01_rb,0.15167e-01_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.47678e-01_rb,0.43812e-01_rb,0.42104e-01_rb,0.39699e-01_rb,0.36175e-01_rb, &\n        & 0.32199e-01_rb,0.27269e-01_rb,0.20637e-01_rb,0.17826e-01_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.47181e-01_rb,0.43914e-01_rb,0.43002e-01_rb,0.40767e-01_rb,0.38218e-01_rb, &\n        & 0.34662e-01_rb,0.29455e-01_rb,0.22728e-01_rb,0.19785e-01_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.46685e-01_rb,0.44343e-01_rb,0.43686e-01_rb,0.42426e-01_rb,0.40422e-01_rb, &\n        & 0.36842e-01_rb,0.31692e-01_rb,0.25217e-01_rb,0.22679e-01_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.44854e-01_rb,0.40724e-01_rb,0.38672e-01_rb,0.35614e-01_rb,0.31949e-01_rb, &\n        & 0.27602e-01_rb,0.22498e-01_rb,0.16720e-01_rb,0.12798e-01_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.44381e-01_rb,0.40833e-01_rb,0.39190e-01_rb,0.36792e-01_rb,0.33534e-01_rb, &\n        & 0.29330e-01_rb,0.24604e-01_rb,0.18629e-01_rb,0.15661e-01_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.43916e-01_rb,0.40995e-01_rb,0.40051e-01_rb,0.37975e-01_rb,0.35149e-01_rb, &\n        & 0.31642e-01_rb,0.27046e-01_rb,0.20453e-01_rb,0.17792e-01_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.43441e-01_rb,0.41288e-01_rb,0.40871e-01_rb,0.39278e-01_rb,0.37365e-01_rb, &\n        & 0.34126e-01_rb,0.29213e-01_rb,0.22513e-01_rb,0.19591e-01_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.42963e-01_rb,0.41916e-01_rb,0.41758e-01_rb,0.41144e-01_rb,0.39580e-01_rb, &\n        & 0.36327e-01_rb,0.31558e-01_rb,0.24885e-01_rb,0.22715e-01_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.52315e-01_rb,0.47505e-01_rb,0.42884e-01_rb,0.38287e-01_rb,0.34721e-01_rb, &\n        & 0.30888e-01_rb,0.29687e-01_rb,0.33559e-01_rb,0.37791e-01_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.52132e-01_rb,0.47869e-01_rb,0.43358e-01_rb,0.39519e-01_rb,0.36490e-01_rb, &\n        & 0.33059e-01_rb,0.34560e-01_rb,0.39434e-01_rb,0.44537e-01_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.51859e-01_rb,0.48259e-01_rb,0.44108e-01_rb,0.41053e-01_rb,0.38159e-01_rb, &\n        & 0.36325e-01_rb,0.40345e-01_rb,0.46345e-01_rb,0.52382e-01_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.51556e-01_rb,0.48650e-01_rb,0.44992e-01_rb,0.42544e-01_rb,0.40704e-01_rb, &\n        & 0.40160e-01_rb,0.46427e-01_rb,0.53431e-01_rb,0.60544e-01_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.51137e-01_rb,0.48860e-01_rb,0.46168e-01_rb,0.44111e-01_rb,0.43209e-01_rb, &\n        & 0.44827e-01_rb,0.52800e-01_rb,0.60972e-01_rb,0.69216e-01_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.56434e-01_rb,0.51118e-01_rb,0.46217e-01_rb,0.41561e-01_rb,0.37505e-01_rb, &\n        & 0.33646e-01_rb,0.30189e-01_rb,0.33085e-01_rb,0.37424e-01_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.56174e-01_rb,0.51590e-01_rb,0.46758e-01_rb,0.42838e-01_rb,0.39459e-01_rb, &\n        & 0.35755e-01_rb,0.34261e-01_rb,0.38732e-01_rb,0.43938e-01_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.55870e-01_rb,0.52113e-01_rb,0.47459e-01_rb,0.44557e-01_rb,0.41223e-01_rb, &\n        & 0.38732e-01_rb,0.39807e-01_rb,0.45508e-01_rb,0.51693e-01_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.55457e-01_rb,0.52524e-01_rb,0.48507e-01_rb,0.46112e-01_rb,0.43732e-01_rb, &\n        & 0.42045e-01_rb,0.45811e-01_rb,0.52732e-01_rb,0.60004e-01_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.54996e-01_rb,0.52680e-01_rb,0.49849e-01_rb,0.47721e-01_rb,0.46514e-01_rb, &\n        & 0.45961e-01_rb,0.52270e-01_rb,0.60294e-01_rb,0.68714e-01_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.59831e-01_rb,0.53764e-01_rb,0.48883e-01_rb,0.44361e-01_rb,0.39553e-01_rb, &\n        & 0.35958e-01_rb,0.31293e-01_rb,0.31467e-01_rb,0.35795e-01_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.59532e-01_rb,0.54423e-01_rb,0.49485e-01_rb,0.45554e-01_rb,0.41889e-01_rb, &\n        & 0.38044e-01_rb,0.34149e-01_rb,0.36846e-01_rb,0.42078e-01_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.59134e-01_rb,0.55152e-01_rb,0.50116e-01_rb,0.47410e-01_rb,0.43907e-01_rb, &\n        & 0.40732e-01_rb,0.38444e-01_rb,0.43145e-01_rb,0.49218e-01_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.58672e-01_rb,0.55655e-01_rb,0.51271e-01_rb,0.49059e-01_rb,0.46360e-01_rb, &\n        & 0.44063e-01_rb,0.43633e-01_rb,0.49781e-01_rb,0.56746e-01_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.58134e-01_rb,0.55813e-01_rb,0.52716e-01_rb,0.50709e-01_rb,0.49278e-01_rb, &\n        & 0.47427e-01_rb,0.49630e-01_rb,0.57031e-01_rb,0.65034e-01_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.62624e-01_rb,0.55864e-01_rb,0.50884e-01_rb,0.46641e-01_rb,0.41202e-01_rb, &\n        & 0.37808e-01_rb,0.32728e-01_rb,0.29634e-01_rb,0.33571e-01_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.62339e-01_rb,0.56365e-01_rb,0.51618e-01_rb,0.47600e-01_rb,0.43888e-01_rb, &\n        & 0.40000e-01_rb,0.35145e-01_rb,0.34591e-01_rb,0.39469e-01_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.61969e-01_rb,0.57107e-01_rb,0.52103e-01_rb,0.49599e-01_rb,0.46112e-01_rb, &\n        & 0.42482e-01_rb,0.38680e-01_rb,0.40578e-01_rb,0.46387e-01_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.61515e-01_rb,0.57939e-01_rb,0.53160e-01_rb,0.51347e-01_rb,0.48544e-01_rb, &\n        & 0.45843e-01_rb,0.42689e-01_rb,0.46767e-01_rb,0.53378e-01_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.60986e-01_rb,0.58238e-01_rb,0.54658e-01_rb,0.53027e-01_rb,0.51696e-01_rb, &\n        & 0.49388e-01_rb,0.47217e-01_rb,0.53278e-01_rb,0.60785e-01_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.65795e-01_rb,0.58347e-01_rb,0.52585e-01_rb,0.48437e-01_rb,0.42714e-01_rb, &\n        & 0.39265e-01_rb,0.34039e-01_rb,0.28235e-01_rb,0.31421e-01_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.65486e-01_rb,0.58633e-01_rb,0.53696e-01_rb,0.49213e-01_rb,0.45420e-01_rb, &\n        & 0.41668e-01_rb,0.36378e-01_rb,0.32647e-01_rb,0.37055e-01_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.65183e-01_rb,0.59134e-01_rb,0.54134e-01_rb,0.51097e-01_rb,0.47829e-01_rb, &\n        & 0.44052e-01_rb,0.39727e-01_rb,0.38129e-01_rb,0.43417e-01_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.64717e-01_rb,0.59894e-01_rb,0.54954e-01_rb,0.53041e-01_rb,0.50294e-01_rb, &\n        & 0.47344e-01_rb,0.43654e-01_rb,0.43889e-01_rb,0.49916e-01_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.64255e-01_rb,0.60489e-01_rb,0.56373e-01_rb,0.54824e-01_rb,0.53472e-01_rb, &\n        & 0.51112e-01_rb,0.47282e-01_rb,0.50031e-01_rb,0.57102e-01_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.69615e-01_rb,0.61594e-01_rb,0.54882e-01_rb,0.50187e-01_rb,0.44074e-01_rb, &\n        & 0.39997e-01_rb,0.34871e-01_rb,0.27743e-01_rb,0.29013e-01_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.69442e-01_rb,0.61757e-01_rb,0.55910e-01_rb,0.50997e-01_rb,0.46497e-01_rb, &\n        & 0.42613e-01_rb,0.37188e-01_rb,0.31216e-01_rb,0.34347e-01_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.69156e-01_rb,0.62106e-01_rb,0.56750e-01_rb,0.52515e-01_rb,0.49101e-01_rb, &\n        & 0.44986e-01_rb,0.40395e-01_rb,0.35961e-01_rb,0.40369e-01_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.68816e-01_rb,0.62627e-01_rb,0.57231e-01_rb,0.54601e-01_rb,0.51362e-01_rb, &\n        & 0.48280e-01_rb,0.44442e-01_rb,0.41156e-01_rb,0.46554e-01_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.68355e-01_rb,0.63113e-01_rb,0.58516e-01_rb,0.56347e-01_rb,0.54360e-01_rb, &\n        & 0.52199e-01_rb,0.48222e-01_rb,0.46871e-01_rb,0.53241e-01_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.74032e-01_rb,0.65393e-01_rb,0.58013e-01_rb,0.51965e-01_rb,0.45915e-01_rb, &\n        & 0.40526e-01_rb,0.35125e-01_rb,0.27883e-01_rb,0.26586e-01_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.73937e-01_rb,0.65493e-01_rb,0.58738e-01_rb,0.53263e-01_rb,0.47941e-01_rb, &\n        & 0.43149e-01_rb,0.37585e-01_rb,0.30874e-01_rb,0.31614e-01_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.73662e-01_rb,0.65759e-01_rb,0.59591e-01_rb,0.54630e-01_rb,0.50354e-01_rb, &\n        & 0.45514e-01_rb,0.40708e-01_rb,0.34889e-01_rb,0.37383e-01_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.73359e-01_rb,0.66187e-01_rb,0.60275e-01_rb,0.56599e-01_rb,0.52392e-01_rb, &\n        & 0.48574e-01_rb,0.44791e-01_rb,0.39333e-01_rb,0.43356e-01_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.72923e-01_rb,0.66589e-01_rb,0.61432e-01_rb,0.58168e-01_rb,0.55043e-01_rb, &\n        & 0.52561e-01_rb,0.48755e-01_rb,0.44300e-01_rb,0.49765e-01_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.78458e-01_rb,0.69177e-01_rb,0.61142e-01_rb,0.54247e-01_rb,0.47727e-01_rb, &\n        & 0.41456e-01_rb,0.34819e-01_rb,0.27717e-01_rb,0.23941e-01_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.78410e-01_rb,0.69294e-01_rb,0.61857e-01_rb,0.55492e-01_rb,0.49764e-01_rb, &\n        & 0.43844e-01_rb,0.37501e-01_rb,0.30644e-01_rb,0.28737e-01_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.78162e-01_rb,0.69463e-01_rb,0.62578e-01_rb,0.57026e-01_rb,0.52068e-01_rb, &\n        & 0.46044e-01_rb,0.40472e-01_rb,0.34561e-01_rb,0.34380e-01_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.77871e-01_rb,0.69834e-01_rb,0.63268e-01_rb,0.59074e-01_rb,0.53918e-01_rb, &\n        & 0.48672e-01_rb,0.44601e-01_rb,0.38671e-01_rb,0.40158e-01_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.77487e-01_rb,0.70209e-01_rb,0.64405e-01_rb,0.60632e-01_rb,0.56120e-01_rb, &\n        & 0.52504e-01_rb,0.48787e-01_rb,0.42980e-01_rb,0.46410e-01_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.82666e-01_rb,0.72734e-01_rb,0.64105e-01_rb,0.56594e-01_rb,0.49561e-01_rb, &\n        & 0.42281e-01_rb,0.34472e-01_rb,0.27105e-01_rb,0.21191e-01_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.82602e-01_rb,0.72866e-01_rb,0.64825e-01_rb,0.57780e-01_rb,0.51415e-01_rb, &\n        & 0.44682e-01_rb,0.37233e-01_rb,0.30003e-01_rb,0.25697e-01_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.82349e-01_rb,0.72898e-01_rb,0.65478e-01_rb,0.59213e-01_rb,0.53844e-01_rb, &\n        & 0.46925e-01_rb,0.39994e-01_rb,0.33830e-01_rb,0.31116e-01_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.82004e-01_rb,0.73222e-01_rb,0.66214e-01_rb,0.61303e-01_rb,0.55771e-01_rb, &\n        & 0.49206e-01_rb,0.43963e-01_rb,0.38199e-01_rb,0.36759e-01_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.81608e-01_rb,0.73612e-01_rb,0.67180e-01_rb,0.63056e-01_rb,0.57653e-01_rb, &\n        & 0.52653e-01_rb,0.48283e-01_rb,0.42441e-01_rb,0.42846e-01_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.85880e-01_rb,0.75430e-01_rb,0.66656e-01_rb,0.58773e-01_rb,0.51658e-01_rb, &\n        & 0.43336e-01_rb,0.34393e-01_rb,0.26157e-01_rb,0.14663e-01_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.85756e-01_rb,0.75590e-01_rb,0.67337e-01_rb,0.60049e-01_rb,0.53266e-01_rb, &\n        & 0.45473e-01_rb,0.37278e-01_rb,0.29125e-01_rb,0.16193e-01_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.85530e-01_rb,0.75588e-01_rb,0.67995e-01_rb,0.61462e-01_rb,0.55345e-01_rb, &\n        & 0.48001e-01_rb,0.39939e-01_rb,0.32883e-01_rb,0.20331e-01_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.85095e-01_rb,0.75810e-01_rb,0.68684e-01_rb,0.63320e-01_rb,0.57485e-01_rb, &\n        & 0.50257e-01_rb,0.43559e-01_rb,0.37443e-01_rb,0.23682e-01_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.84667e-01_rb,0.76211e-01_rb,0.69733e-01_rb,0.65095e-01_rb,0.59445e-01_rb, &\n        & 0.53380e-01_rb,0.47785e-01_rb,0.41863e-01_rb,0.26616e-01_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.87471e-01_rb,0.76929e-01_rb,0.68322e-01_rb,0.60781e-01_rb,0.53951e-01_rb, &\n        & 0.45056e-01_rb,0.35758e-01_rb,0.26371e-01_rb,0.18858e-01_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.87208e-01_rb,0.76940e-01_rb,0.68996e-01_rb,0.62212e-01_rb,0.55582e-01_rb, &\n        & 0.47319e-01_rb,0.38590e-01_rb,0.29478e-01_rb,0.21575e-01_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.86835e-01_rb,0.76905e-01_rb,0.69723e-01_rb,0.63816e-01_rb,0.57699e-01_rb, &\n        & 0.49745e-01_rb,0.41432e-01_rb,0.33605e-01_rb,0.25460e-01_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.86430e-01_rb,0.77295e-01_rb,0.70629e-01_rb,0.65834e-01_rb,0.59545e-01_rb, &\n        & 0.52341e-01_rb,0.45178e-01_rb,0.38243e-01_rb,0.30364e-01_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.85874e-01_rb,0.77597e-01_rb,0.72138e-01_rb,0.67497e-01_rb,0.61709e-01_rb, &\n        & 0.55855e-01_rb,0.49191e-01_rb,0.42789e-01_rb,0.33235e-01_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.87248e-01_rb,0.76929e-01_rb,0.68689e-01_rb,0.62001e-01_rb,0.55189e-01_rb, &\n        & 0.46282e-01_rb,0.37018e-01_rb,0.26535e-01_rb,0.20617e-01_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.86938e-01_rb,0.76894e-01_rb,0.69591e-01_rb,0.63473e-01_rb,0.56879e-01_rb, &\n        & 0.48866e-01_rb,0.39681e-01_rb,0.29869e-01_rb,0.23753e-01_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.86505e-01_rb,0.76936e-01_rb,0.70473e-01_rb,0.65213e-01_rb,0.59161e-01_rb, &\n        & 0.51227e-01_rb,0.42751e-01_rb,0.34068e-01_rb,0.28028e-01_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.86014e-01_rb,0.77389e-01_rb,0.71734e-01_rb,0.67391e-01_rb,0.61041e-01_rb, &\n        & 0.54172e-01_rb,0.46740e-01_rb,0.38524e-01_rb,0.33947e-01_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.85424e-01_rb,0.77682e-01_rb,0.73622e-01_rb,0.69056e-01_rb,0.63676e-01_rb, &\n        & 0.57877e-01_rb,0.50578e-01_rb,0.43087e-01_rb,0.36933e-01_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.85419e-01_rb,0.75627e-01_rb,0.68076e-01_rb,0.62306e-01_rb,0.55288e-01_rb, &\n        & 0.46939e-01_rb,0.37782e-01_rb,0.26869e-01_rb,0.20535e-01_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.84985e-01_rb,0.75524e-01_rb,0.69213e-01_rb,0.63729e-01_rb,0.57271e-01_rb, &\n        & 0.49714e-01_rb,0.40473e-01_rb,0.30181e-01_rb,0.22959e-01_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.84529e-01_rb,0.75748e-01_rb,0.70315e-01_rb,0.65749e-01_rb,0.59660e-01_rb, &\n        & 0.52260e-01_rb,0.43766e-01_rb,0.34359e-01_rb,0.28707e-01_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.84038e-01_rb,0.76252e-01_rb,0.71947e-01_rb,0.67890e-01_rb,0.61874e-01_rb, &\n        & 0.55511e-01_rb,0.47935e-01_rb,0.38594e-01_rb,0.34330e-01_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.83450e-01_rb,0.76542e-01_rb,0.73924e-01_rb,0.69752e-01_rb,0.64960e-01_rb, &\n        & 0.59356e-01_rb,0.51789e-01_rb,0.43079e-01_rb,0.38051e-01_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.68561e-01_rb,0.61393e-01_rb,0.55377e-01_rb,0.48367e-01_rb,0.42682e-01_rb, &\n        & 0.39908e-01_rb,0.45275e-01_rb,0.51909e-01_rb,0.58629e-01_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.68429e-01_rb,0.62258e-01_rb,0.56444e-01_rb,0.49529e-01_rb,0.45167e-01_rb, &\n        & 0.45643e-01_rb,0.53469e-01_rb,0.61626e-01_rb,0.69870e-01_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.68224e-01_rb,0.62810e-01_rb,0.57169e-01_rb,0.51186e-01_rb,0.48224e-01_rb, &\n        & 0.52899e-01_rb,0.62764e-01_rb,0.72521e-01_rb,0.82353e-01_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.67917e-01_rb,0.63314e-01_rb,0.58187e-01_rb,0.53334e-01_rb,0.52038e-01_rb, &\n        & 0.61434e-01_rb,0.73273e-01_rb,0.84850e-01_rb,0.96479e-01_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.67553e-01_rb,0.63903e-01_rb,0.59193e-01_rb,0.55737e-01_rb,0.58351e-01_rb, &\n        & 0.71682e-01_rb,0.85665e-01_rb,0.99285e-01_rb,0.11295e+00_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.77509e-01_rb,0.69079e-01_rb,0.62486e-01_rb,0.54626e-01_rb,0.48075e-01_rb, &\n        & 0.42537e-01_rb,0.44950e-01_rb,0.51477e-01_rb,0.58558e-01_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.77430e-01_rb,0.69950e-01_rb,0.63742e-01_rb,0.55764e-01_rb,0.50627e-01_rb, &\n        & 0.46853e-01_rb,0.52532e-01_rb,0.60374e-01_rb,0.68733e-01_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.77189e-01_rb,0.70882e-01_rb,0.64573e-01_rb,0.57536e-01_rb,0.53311e-01_rb, &\n        & 0.52406e-01_rb,0.61244e-01_rb,0.70634e-01_rb,0.80523e-01_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.76847e-01_rb,0.71588e-01_rb,0.65635e-01_rb,0.59928e-01_rb,0.56064e-01_rb, &\n        & 0.60283e-01_rb,0.71500e-01_rb,0.82577e-01_rb,0.94220e-01_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.76386e-01_rb,0.72289e-01_rb,0.66796e-01_rb,0.62420e-01_rb,0.60016e-01_rb, &\n        & 0.69350e-01_rb,0.82634e-01_rb,0.95798e-01_rb,0.10925e+00_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.86533e-01_rb,0.76872e-01_rb,0.69252e-01_rb,0.60999e-01_rb,0.53444e-01_rb, &\n        & 0.46117e-01_rb,0.43982e-01_rb,0.49772e-01_rb,0.56991e-01_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.86412e-01_rb,0.77388e-01_rb,0.71047e-01_rb,0.62031e-01_rb,0.55847e-01_rb, &\n        & 0.49560e-01_rb,0.50601e-01_rb,0.57831e-01_rb,0.66136e-01_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.86175e-01_rb,0.78253e-01_rb,0.72126e-01_rb,0.63678e-01_rb,0.58875e-01_rb, &\n        & 0.53556e-01_rb,0.58645e-01_rb,0.67397e-01_rb,0.77181e-01_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.85802e-01_rb,0.79483e-01_rb,0.72991e-01_rb,0.66186e-01_rb,0.61530e-01_rb, &\n        & 0.59229e-01_rb,0.68328e-01_rb,0.78749e-01_rb,0.90335e-01_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.85328e-01_rb,0.80671e-01_rb,0.74346e-01_rb,0.68871e-01_rb,0.64555e-01_rb, &\n        & 0.67267e-01_rb,0.79478e-01_rb,0.91684e-01_rb,0.10533e+00_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.95394e-01_rb,0.84557e-01_rb,0.75442e-01_rb,0.67038e-01_rb,0.59073e-01_rb, &\n        & 0.49886e-01_rb,0.44642e-01_rb,0.48508e-01_rb,0.55658e-01_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.95223e-01_rb,0.84873e-01_rb,0.77588e-01_rb,0.68316e-01_rb,0.60993e-01_rb, &\n        & 0.53907e-01_rb,0.49824e-01_rb,0.55820e-01_rb,0.64074e-01_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.94965e-01_rb,0.85575e-01_rb,0.79290e-01_rb,0.69694e-01_rb,0.64420e-01_rb, &\n        & 0.57295e-01_rb,0.56440e-01_rb,0.64306e-01_rb,0.73964e-01_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.94509e-01_rb,0.86370e-01_rb,0.80294e-01_rb,0.72257e-01_rb,0.67415e-01_rb, &\n        & 0.61388e-01_rb,0.65357e-01_rb,0.74991e-01_rb,0.86332e-01_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.94009e-01_rb,0.87806e-01_rb,0.81595e-01_rb,0.75171e-01_rb,0.70245e-01_rb, &\n        & 0.67536e-01_rb,0.76274e-01_rb,0.87845e-01_rb,0.10132e+00_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.10343e+00_rb,0.91525e-01_rb,0.80861e-01_rb,0.72378e-01_rb,0.64406e-01_rb, &\n        & 0.53983e-01_rb,0.47036e-01_rb,0.47125e-01_rb,0.54095e-01_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.10334e+00_rb,0.91907e-01_rb,0.82762e-01_rb,0.74349e-01_rb,0.66049e-01_rb, &\n        & 0.58213e-01_rb,0.51290e-01_rb,0.53990e-01_rb,0.61913e-01_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.10297e+00_rb,0.92357e-01_rb,0.85393e-01_rb,0.75564e-01_rb,0.69527e-01_rb, &\n        & 0.62165e-01_rb,0.56265e-01_rb,0.62011e-01_rb,0.71236e-01_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.10256e+00_rb,0.93114e-01_rb,0.87093e-01_rb,0.77935e-01_rb,0.73042e-01_rb, &\n        & 0.65986e-01_rb,0.63498e-01_rb,0.72109e-01_rb,0.83127e-01_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.10189e+00_rb,0.94299e-01_rb,0.88282e-01_rb,0.81218e-01_rb,0.76035e-01_rb, &\n        & 0.70876e-01_rb,0.73640e-01_rb,0.84406e-01_rb,0.97393e-01_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.11045e+00_rb,0.97454e-01_rb,0.85408e-01_rb,0.76244e-01_rb,0.68972e-01_rb, &\n        & 0.58251e-01_rb,0.49930e-01_rb,0.45374e-01_rb,0.51875e-01_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.11019e+00_rb,0.97819e-01_rb,0.87148e-01_rb,0.79069e-01_rb,0.71021e-01_rb, &\n        & 0.62071e-01_rb,0.54179e-01_rb,0.52124e-01_rb,0.59618e-01_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.10981e+00_rb,0.98088e-01_rb,0.89384e-01_rb,0.81156e-01_rb,0.73973e-01_rb, &\n        & 0.66762e-01_rb,0.58141e-01_rb,0.59499e-01_rb,0.68391e-01_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.10923e+00_rb,0.98741e-01_rb,0.91856e-01_rb,0.83093e-01_rb,0.78121e-01_rb, &\n        & 0.70717e-01_rb,0.63590e-01_rb,0.68985e-01_rb,0.79490e-01_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.10855e+00_rb,0.99728e-01_rb,0.93768e-01_rb,0.86485e-01_rb,0.81499e-01_rb, &\n        & 0.75384e-01_rb,0.71738e-01_rb,0.80634e-01_rb,0.92951e-01_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.11652e+00_rb,0.10245e+00_rb,0.89345e-01_rb,0.79831e-01_rb,0.71546e-01_rb, &\n        & 0.62110e-01_rb,0.52889e-01_rb,0.43937e-01_rb,0.49094e-01_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.11624e+00_rb,0.10291e+00_rb,0.90769e-01_rb,0.82143e-01_rb,0.74705e-01_rb, &\n        & 0.65752e-01_rb,0.57383e-01_rb,0.50125e-01_rb,0.56751e-01_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.11594e+00_rb,0.10317e+00_rb,0.92734e-01_rb,0.84722e-01_rb,0.77935e-01_rb, &\n        & 0.70772e-01_rb,0.61416e-01_rb,0.57153e-01_rb,0.65344e-01_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.11535e+00_rb,0.10356e+00_rb,0.95024e-01_rb,0.87242e-01_rb,0.82357e-01_rb, &\n        & 0.75212e-01_rb,0.65866e-01_rb,0.66110e-01_rb,0.76048e-01_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.11474e+00_rb,0.10447e+00_rb,0.97059e-01_rb,0.90869e-01_rb,0.86343e-01_rb, &\n        & 0.79806e-01_rb,0.72467e-01_rb,0.77014e-01_rb,0.88751e-01_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.12265e+00_rb,0.10756e+00_rb,0.93593e-01_rb,0.82964e-01_rb,0.73576e-01_rb, &\n        & 0.64374e-01_rb,0.55605e-01_rb,0.43559e-01_rb,0.46060e-01_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.12249e+00_rb,0.10812e+00_rb,0.94575e-01_rb,0.84973e-01_rb,0.76683e-01_rb, &\n        & 0.68823e-01_rb,0.60052e-01_rb,0.49117e-01_rb,0.53798e-01_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.12216e+00_rb,0.10834e+00_rb,0.96338e-01_rb,0.87360e-01_rb,0.80349e-01_rb, &\n        & 0.74206e-01_rb,0.64654e-01_rb,0.55074e-01_rb,0.62031e-01_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.12168e+00_rb,0.10860e+00_rb,0.98251e-01_rb,0.89888e-01_rb,0.85251e-01_rb, &\n        & 0.79126e-01_rb,0.69120e-01_rb,0.63252e-01_rb,0.72334e-01_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.12099e+00_rb,0.10931e+00_rb,0.10017e+00_rb,0.93685e-01_rb,0.90048e-01_rb, &\n        & 0.83711e-01_rb,0.75096e-01_rb,0.73779e-01_rb,0.84712e-01_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.12914e+00_rb,0.11313e+00_rb,0.98462e-01_rb,0.86441e-01_rb,0.75875e-01_rb, &\n        & 0.66332e-01_rb,0.57013e-01_rb,0.43839e-01_rb,0.42411e-01_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.12911e+00_rb,0.11365e+00_rb,0.99113e-01_rb,0.88386e-01_rb,0.78651e-01_rb, &\n        & 0.70676e-01_rb,0.61767e-01_rb,0.49076e-01_rb,0.50412e-01_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.12886e+00_rb,0.11401e+00_rb,0.10056e+00_rb,0.90400e-01_rb,0.82030e-01_rb, &\n        & 0.75969e-01_rb,0.67212e-01_rb,0.54346e-01_rb,0.58598e-01_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.12844e+00_rb,0.11410e+00_rb,0.10221e+00_rb,0.92662e-01_rb,0.86791e-01_rb, &\n        & 0.81685e-01_rb,0.71813e-01_rb,0.61251e-01_rb,0.68599e-01_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.12781e+00_rb,0.11455e+00_rb,0.10390e+00_rb,0.96184e-01_rb,0.92217e-01_rb, &\n        & 0.86557e-01_rb,0.77640e-01_rb,0.70636e-01_rb,0.80447e-01_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.13661e+00_rb,0.11963e+00_rb,0.10401e+00_rb,0.90612e-01_rb,0.78552e-01_rb, &\n        & 0.68665e-01_rb,0.58042e-01_rb,0.44182e-01_rb,0.20623e-01_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.13663e+00_rb,0.12000e+00_rb,0.10449e+00_rb,0.92427e-01_rb,0.81459e-01_rb, &\n        & 0.72606e-01_rb,0.62588e-01_rb,0.49634e-01_rb,0.27517e-01_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.13648e+00_rb,0.12048e+00_rb,0.10572e+00_rb,0.94344e-01_rb,0.84635e-01_rb, &\n        & 0.77264e-01_rb,0.68466e-01_rb,0.54964e-01_rb,0.37460e-01_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.13615e+00_rb,0.12055e+00_rb,0.10724e+00_rb,0.96538e-01_rb,0.88921e-01_rb, &\n        & 0.82919e-01_rb,0.73837e-01_rb,0.61121e-01_rb,0.51408e-01_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.13560e+00_rb,0.12083e+00_rb,0.10867e+00_rb,0.99719e-01_rb,0.94157e-01_rb, &\n        & 0.88097e-01_rb,0.79982e-01_rb,0.69630e-01_rb,0.68524e-01_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.14486e+00_rb,0.12685e+00_rb,0.11053e+00_rb,0.96215e-01_rb,0.83198e-01_rb, &\n        & 0.72790e-01_rb,0.60483e-01_rb,0.46368e-01_rb,0.23123e-01_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.14497e+00_rb,0.12740e+00_rb,0.11115e+00_rb,0.98058e-01_rb,0.86138e-01_rb, &\n        & 0.76317e-01_rb,0.65283e-01_rb,0.52226e-01_rb,0.29160e-01_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.14473e+00_rb,0.12775e+00_rb,0.11243e+00_rb,0.99891e-01_rb,0.89493e-01_rb, &\n        & 0.80996e-01_rb,0.71303e-01_rb,0.57950e-01_rb,0.32977e-01_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.14430e+00_rb,0.12774e+00_rb,0.11386e+00_rb,0.10223e+00_rb,0.94098e-01_rb, &\n        & 0.86252e-01_rb,0.77087e-01_rb,0.64785e-01_rb,0.38714e-01_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.14365e+00_rb,0.12806e+00_rb,0.11504e+00_rb,0.10578e+00_rb,0.98766e-01_rb, &\n        & 0.91283e-01_rb,0.84242e-01_rb,0.73581e-01_rb,0.47497e-01_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.15269e+00_rb,0.13372e+00_rb,0.11691e+00_rb,0.10167e+00_rb,0.88459e-01_rb, &\n        & 0.76634e-01_rb,0.62620e-01_rb,0.48153e-01_rb,0.27858e-01_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.15257e+00_rb,0.13415e+00_rb,0.11750e+00_rb,0.10380e+00_rb,0.91589e-01_rb, &\n        & 0.79898e-01_rb,0.67862e-01_rb,0.54271e-01_rb,0.35587e-01_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.15233e+00_rb,0.13449e+00_rb,0.11899e+00_rb,0.10589e+00_rb,0.94966e-01_rb, &\n        & 0.84666e-01_rb,0.73653e-01_rb,0.60551e-01_rb,0.39809e-01_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.15175e+00_rb,0.13439e+00_rb,0.12031e+00_rb,0.10854e+00_rb,0.99506e-01_rb, &\n        & 0.89389e-01_rb,0.79517e-01_rb,0.68401e-01_rb,0.45578e-01_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.15105e+00_rb,0.13484e+00_rb,0.12149e+00_rb,0.11242e+00_rb,0.10353e+00_rb, &\n        & 0.94548e-01_rb,0.87485e-01_rb,0.77323e-01_rb,0.55990e-01_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.15929e+00_rb,0.13953e+00_rb,0.12252e+00_rb,0.10682e+00_rb,0.93710e-01_rb, &\n        & 0.80318e-01_rb,0.64679e-01_rb,0.49483e-01_rb,0.31231e-01_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.15914e+00_rb,0.14001e+00_rb,0.12322e+00_rb,0.10931e+00_rb,0.96798e-01_rb, &\n        & 0.83533e-01_rb,0.70039e-01_rb,0.55928e-01_rb,0.39440e-01_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.15875e+00_rb,0.14019e+00_rb,0.12484e+00_rb,0.11161e+00_rb,0.10034e+00_rb, &\n        & 0.88309e-01_rb,0.75681e-01_rb,0.62757e-01_rb,0.43280e-01_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.15815e+00_rb,0.14019e+00_rb,0.12619e+00_rb,0.11467e+00_rb,0.10492e+00_rb, &\n        & 0.92849e-01_rb,0.81796e-01_rb,0.71221e-01_rb,0.50343e-01_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.15737e+00_rb,0.14077e+00_rb,0.12756e+00_rb,0.11888e+00_rb,0.10868e+00_rb, &\n        & 0.98192e-01_rb,0.90106e-01_rb,0.80417e-01_rb,0.60332e-01_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.83965e-01_rb,0.74725e-01_rb,0.67262e-01_rb,0.61439e-01_rb,0.63569e-01_rb, &\n        & 0.76568e-01_rb,0.91505e-01_rb,0.10604e+00_rb,0.12066e+00_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.84124e-01_rb,0.75639e-01_rb,0.69121e-01_rb,0.66761e-01_rb,0.75177e-01_rb, &\n        & 0.93190e-01_rb,0.11140e+00_rb,0.12912e+00_rb,0.14697e+00_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.84208e-01_rb,0.76821e-01_rb,0.71401e-01_rb,0.74638e-01_rb,0.90938e-01_rb, &\n        & 0.11330e+00_rb,0.13555e+00_rb,0.15732e+00_rb,0.17919e+00_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.84082e-01_rb,0.77722e-01_rb,0.74753e-01_rb,0.85505e-01_rb,0.11037e+00_rb, &\n        & 0.13754e+00_rb,0.16460e+00_rb,0.19114e+00_rb,0.21779e+00_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.83810e-01_rb,0.78431e-01_rb,0.79767e-01_rb,0.99722e-01_rb,0.13195e+00_rb, &\n        & 0.16448e+00_rb,0.19691e+00_rb,0.22867e+00_rb,0.26057e+00_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.98728e-01_rb,0.87584e-01_rb,0.78635e-01_rb,0.69559e-01_rb,0.65625e-01_rb, &\n        & 0.74022e-01_rb,0.88098e-01_rb,0.10177e+00_rb,0.11620e+00_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.98895e-01_rb,0.88195e-01_rb,0.80583e-01_rb,0.73010e-01_rb,0.73981e-01_rb, &\n        & 0.89007e-01_rb,0.10638e+00_rb,0.12319e+00_rb,0.14079e+00_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.98911e-01_rb,0.89265e-01_rb,0.82581e-01_rb,0.78421e-01_rb,0.87111e-01_rb, &\n        & 0.10783e+00_rb,0.12893e+00_rb,0.14951e+00_rb,0.17084e+00_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.98795e-01_rb,0.90737e-01_rb,0.84451e-01_rb,0.86623e-01_rb,0.10466e+00_rb, &\n        & 0.13034e+00_rb,0.15592e+00_rb,0.18094e+00_rb,0.20669e+00_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.98517e-01_rb,0.92027e-01_rb,0.87783e-01_rb,0.98306e-01_rb,0.12592e+00_rb, &\n        & 0.15706e+00_rb,0.18794e+00_rb,0.21816e+00_rb,0.24934e+00_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.11536e+00_rb,0.10204e+00_rb,0.91076e-01_rb,0.79879e-01_rb,0.70411e-01_rb, &\n        & 0.71590e-01_rb,0.83610e-01_rb,0.96241e-01_rb,0.11049e+00_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.11565e+00_rb,0.10277e+00_rb,0.93049e-01_rb,0.82303e-01_rb,0.75267e-01_rb, &\n        & 0.83499e-01_rb,0.99323e-01_rb,0.11472e+00_rb,0.13181e+00_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.11566e+00_rb,0.10353e+00_rb,0.95697e-01_rb,0.85227e-01_rb,0.84157e-01_rb, &\n        & 0.99917e-01_rb,0.11933e+00_rb,0.13815e+00_rb,0.15865e+00_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.11554e+00_rb,0.10447e+00_rb,0.97554e-01_rb,0.90504e-01_rb,0.97960e-01_rb, &\n        & 0.12029e+00_rb,0.14386e+00_rb,0.16671e+00_rb,0.19135e+00_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.11515e+00_rb,0.10586e+00_rb,0.99141e-01_rb,0.99110e-01_rb,0.11626e+00_rb, &\n        & 0.14432e+00_rb,0.17265e+00_rb,0.20040e+00_rb,0.22976e+00_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.13374e+00_rb,0.11777e+00_rb,0.10356e+00_rb,0.90948e-01_rb,0.79121e-01_rb, &\n        & 0.73845e-01_rb,0.80790e-01_rb,0.92777e-01_rb,0.10713e+00_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.13413e+00_rb,0.11892e+00_rb,0.10607e+00_rb,0.94460e-01_rb,0.81628e-01_rb, &\n        & 0.80960e-01_rb,0.93972e-01_rb,0.10817e+00_rb,0.12489e+00_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.13429e+00_rb,0.11957e+00_rb,0.10936e+00_rb,0.96737e-01_rb,0.86452e-01_rb, &\n        & 0.93977e-01_rb,0.11135e+00_rb,0.12854e+00_rb,0.14815e+00_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.13415e+00_rb,0.12054e+00_rb,0.11264e+00_rb,0.99496e-01_rb,0.96100e-01_rb, &\n        & 0.11145e+00_rb,0.13299e+00_rb,0.15385e+00_rb,0.17718e+00_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.13374e+00_rb,0.12142e+00_rb,0.11440e+00_rb,0.10500e+00_rb,0.11046e+00_rb, &\n        & 0.13295e+00_rb,0.15886e+00_rb,0.18424e+00_rb,0.21188e+00_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.15386e+00_rb,0.13491e+00_rb,0.11798e+00_rb,0.10225e+00_rb,0.89703e-01_rb, &\n        & 0.79220e-01_rb,0.79340e-01_rb,0.90595e-01_rb,0.10482e+00_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.15427e+00_rb,0.13635e+00_rb,0.12030e+00_rb,0.10668e+00_rb,0.92323e-01_rb, &\n        & 0.84157e-01_rb,0.91777e-01_rb,0.10537e+00_rb,0.12216e+00_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.15452e+00_rb,0.13729e+00_rb,0.12299e+00_rb,0.11079e+00_rb,0.94730e-01_rb, &\n        & 0.92840e-01_rb,0.10677e+00_rb,0.12287e+00_rb,0.14246e+00_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.15437e+00_rb,0.13801e+00_rb,0.12683e+00_rb,0.11313e+00_rb,0.10059e+00_rb, &\n        & 0.10648e+00_rb,0.12562e+00_rb,0.14488e+00_rb,0.16770e+00_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.15403e+00_rb,0.13896e+00_rb,0.13053e+00_rb,0.11647e+00_rb,0.11129e+00_rb, &\n        & 0.12495e+00_rb,0.14877e+00_rb,0.17193e+00_rb,0.19866e+00_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.17516e+00_rb,0.15332e+00_rb,0.13386e+00_rb,0.11461e+00_rb,0.98998e-01_rb, &\n        & 0.86199e-01_rb,0.78839e-01_rb,0.88239e-01_rb,0.10212e+00_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.17578e+00_rb,0.15465e+00_rb,0.13554e+00_rb,0.11810e+00_rb,0.10372e+00_rb, &\n        & 0.90966e-01_rb,0.90397e-01_rb,0.10318e+00_rb,0.11979e+00_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.17603e+00_rb,0.15606e+00_rb,0.13830e+00_rb,0.12297e+00_rb,0.10694e+00_rb, &\n        & 0.96886e-01_rb,0.10455e+00_rb,0.12004e+00_rb,0.13936e+00_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.17594e+00_rb,0.15671e+00_rb,0.14175e+00_rb,0.12765e+00_rb,0.11049e+00_rb, &\n        & 0.10701e+00_rb,0.12142e+00_rb,0.13971e+00_rb,0.16228e+00_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.17559e+00_rb,0.15762e+00_rb,0.14567e+00_rb,0.13124e+00_rb,0.11784e+00_rb, &\n        & 0.12121e+00_rb,0.14182e+00_rb,0.16360e+00_rb,0.18966e+00_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.19714e+00_rb,0.17254e+00_rb,0.15016e+00_rb,0.12718e+00_rb,0.10949e+00_rb, &\n        & 0.93814e-01_rb,0.79465e-01_rb,0.85103e-01_rb,0.98359e-01_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.19796e+00_rb,0.17362e+00_rb,0.15183e+00_rb,0.13102e+00_rb,0.11370e+00_rb, &\n        & 0.99479e-01_rb,0.90483e-01_rb,0.10125e+00_rb,0.11726e+00_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.19829e+00_rb,0.17522e+00_rb,0.15424e+00_rb,0.13545e+00_rb,0.11863e+00_rb, &\n        & 0.10457e+00_rb,0.10363e+00_rb,0.11810e+00_rb,0.13724e+00_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.19826e+00_rb,0.17625e+00_rb,0.15748e+00_rb,0.14049e+00_rb,0.12307e+00_rb, &\n        & 0.11254e+00_rb,0.11942e+00_rb,0.13698e+00_rb,0.15920e+00_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.19780e+00_rb,0.17685e+00_rb,0.16171e+00_rb,0.14510e+00_rb,0.12933e+00_rb, &\n        & 0.12368e+00_rb,0.13790e+00_rb,0.15875e+00_rb,0.18443e+00_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.21950e+00_rb,0.19210e+00_rb,0.16641e+00_rb,0.14074e+00_rb,0.12030e+00_rb, &\n        & 0.10245e+00_rb,0.82539e-01_rb,0.82181e-01_rb,0.95126e-01_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.22029e+00_rb,0.19287e+00_rb,0.16845e+00_rb,0.14392e+00_rb,0.12476e+00_rb, &\n        & 0.10750e+00_rb,0.92052e-01_rb,0.97622e-01_rb,0.11306e+00_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.22070e+00_rb,0.19423e+00_rb,0.17032e+00_rb,0.14847e+00_rb,0.12971e+00_rb, &\n        & 0.11297e+00_rb,0.10375e+00_rb,0.11522e+00_rb,0.13338e+00_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.22058e+00_rb,0.19569e+00_rb,0.17355e+00_rb,0.15354e+00_rb,0.13473e+00_rb, &\n        & 0.12044e+00_rb,0.11859e+00_rb,0.13469e+00_rb,0.15609e+00_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.22021e+00_rb,0.19640e+00_rb,0.17762e+00_rb,0.15857e+00_rb,0.14102e+00_rb, &\n        & 0.13035e+00_rb,0.13566e+00_rb,0.15573e+00_rb,0.18054e+00_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.24109e+00_rb,0.21099e+00_rb,0.18179e+00_rb,0.15454e+00_rb,0.13112e+00_rb, &\n        & 0.11092e+00_rb,0.89296e-01_rb,0.80506e-01_rb,0.93157e-01_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.24188e+00_rb,0.21170e+00_rb,0.18440e+00_rb,0.15693e+00_rb,0.13589e+00_rb, &\n        & 0.11596e+00_rb,0.96808e-01_rb,0.94330e-01_rb,0.10941e+00_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.24228e+00_rb,0.21270e+00_rb,0.18618e+00_rb,0.16137e+00_rb,0.14099e+00_rb, &\n        & 0.12182e+00_rb,0.10601e+00_rb,0.11139e+00_rb,0.12901e+00_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.24222e+00_rb,0.21416e+00_rb,0.18881e+00_rb,0.16653e+00_rb,0.14643e+00_rb, &\n        & 0.12886e+00_rb,0.11898e+00_rb,0.13037e+00_rb,0.15086e+00_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.24175e+00_rb,0.21527e+00_rb,0.19303e+00_rb,0.17188e+00_rb,0.15251e+00_rb, &\n        & 0.13886e+00_rb,0.13479e+00_rb,0.15182e+00_rb,0.17551e+00_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.26096e+00_rb,0.22837e+00_rb,0.19625e+00_rb,0.16743e+00_rb,0.14218e+00_rb, &\n        & 0.11905e+00_rb,0.97365e-01_rb,0.81466e-01_rb,0.86743e-01_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.26197e+00_rb,0.22928e+00_rb,0.19902e+00_rb,0.16970e+00_rb,0.14641e+00_rb, &\n        & 0.12483e+00_rb,0.10472e+00_rb,0.93843e-01_rb,0.10806e+00_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.26221e+00_rb,0.22989e+00_rb,0.20102e+00_rb,0.17345e+00_rb,0.15221e+00_rb, &\n        & 0.13116e+00_rb,0.11273e+00_rb,0.10943e+00_rb,0.12658e+00_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.26216e+00_rb,0.23120e+00_rb,0.20343e+00_rb,0.17903e+00_rb,0.15795e+00_rb, &\n        & 0.13876e+00_rb,0.12342e+00_rb,0.12756e+00_rb,0.14743e+00_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.26155e+00_rb,0.23254e+00_rb,0.20744e+00_rb,0.18479e+00_rb,0.16453e+00_rb, &\n        & 0.14894e+00_rb,0.13716e+00_rb,0.14827e+00_rb,0.17117e+00_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.28000e+00_rb,0.24504e+00_rb,0.21069e+00_rb,0.18024e+00_rb,0.15374e+00_rb, &\n        & 0.12937e+00_rb,0.10819e+00_rb,0.88668e-01_rb,0.55926e-01_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.28047e+00_rb,0.24546e+00_rb,0.21318e+00_rb,0.18272e+00_rb,0.15865e+00_rb, &\n        & 0.13663e+00_rb,0.11594e+00_rb,0.10024e+00_rb,0.74129e-01_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.28078e+00_rb,0.24627e+00_rb,0.21537e+00_rb,0.18699e+00_rb,0.16514e+00_rb, &\n        & 0.14391e+00_rb,0.12463e+00_rb,0.11566e+00_rb,0.10008e+00_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.28041e+00_rb,0.24739e+00_rb,0.21799e+00_rb,0.19316e+00_rb,0.17153e+00_rb, &\n        & 0.15296e+00_rb,0.13573e+00_rb,0.13384e+00_rb,0.12903e+00_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.27974e+00_rb,0.24878e+00_rb,0.22235e+00_rb,0.19924e+00_rb,0.17976e+00_rb, &\n        & 0.16447e+00_rb,0.14857e+00_rb,0.15437e+00_rb,0.16255e+00_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.29848e+00_rb,0.26121e+00_rb,0.22470e+00_rb,0.19300e+00_rb,0.16476e+00_rb, &\n        & 0.13979e+00_rb,0.11858e+00_rb,0.95361e-01_rb,0.54706e-01_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.29901e+00_rb,0.26167e+00_rb,0.22733e+00_rb,0.19555e+00_rb,0.17000e+00_rb, &\n        & 0.14834e+00_rb,0.12686e+00_rb,0.10640e+00_rb,0.56924e-01_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.29886e+00_rb,0.26222e+00_rb,0.22932e+00_rb,0.20008e+00_rb,0.17736e+00_rb, &\n        & 0.15653e+00_rb,0.13669e+00_rb,0.12173e+00_rb,0.76097e-01_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.29840e+00_rb,0.26333e+00_rb,0.23210e+00_rb,0.20641e+00_rb,0.18472e+00_rb, &\n        & 0.16716e+00_rb,0.14883e+00_rb,0.13980e+00_rb,0.10268e+00_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.29738e+00_rb,0.26451e+00_rb,0.23656e+00_rb,0.21275e+00_rb,0.19460e+00_rb, &\n        & 0.18005e+00_rb,0.16102e+00_rb,0.16046e+00_rb,0.13219e+00_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.31629e+00_rb,0.27681e+00_rb,0.23838e+00_rb,0.20550e+00_rb,0.17561e+00_rb, &\n        & 0.15005e+00_rb,0.12855e+00_rb,0.10141e+00_rb,0.58394e-01_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.31664e+00_rb,0.27713e+00_rb,0.24100e+00_rb,0.20827e+00_rb,0.18155e+00_rb, &\n        & 0.15952e+00_rb,0.13765e+00_rb,0.11247e+00_rb,0.60995e-01_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.31646e+00_rb,0.27774e+00_rb,0.24298e+00_rb,0.21292e+00_rb,0.18963e+00_rb, &\n        & 0.16861e+00_rb,0.14853e+00_rb,0.12785e+00_rb,0.75808e-01_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.31577e+00_rb,0.27872e+00_rb,0.24590e+00_rb,0.21953e+00_rb,0.19753e+00_rb, &\n        & 0.18064e+00_rb,0.16179e+00_rb,0.14607e+00_rb,0.10217e+00_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.31458e+00_rb,0.27978e+00_rb,0.25030e+00_rb,0.22598e+00_rb,0.20858e+00_rb, &\n        & 0.19488e+00_rb,0.17415e+00_rb,0.16696e+00_rb,0.13138e+00_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.94898e-01_rb,0.85055e-01_rb,0.10490e+00_rb,0.15201e+00_rb,0.20225e+00_rb, &\n        & 0.25227e+00_rb,0.30184e+00_rb,0.34935e+00_rb,0.39726e+00_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.95143e-01_rb,0.87211e-01_rb,0.12685e+00_rb,0.18956e+00_rb,0.25226e+00_rb, &\n        & 0.31465e+00_rb,0.37635e+00_rb,0.43547e+00_rb,0.49508e+00_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.95189e-01_rb,0.92182e-01_rb,0.15432e+00_rb,0.23093e+00_rb,0.30732e+00_rb, &\n        & 0.38333e+00_rb,0.45850e+00_rb,0.53039e+00_rb,0.60271e+00_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.95231e-01_rb,0.10069e+00_rb,0.18420e+00_rb,0.27567e+00_rb,0.36689e+00_rb, &\n        & 0.45778e+00_rb,0.54750e+00_rb,0.63309e+00_rb,0.71941e+00_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.95218e-01_rb,0.11224e+00_rb,0.21607e+00_rb,0.32340e+00_rb,0.43052e+00_rb, &\n        & 0.53710e+00_rb,0.64228e+00_rb,0.74267e+00_rb,0.84389e+00_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.11396e+00_rb,0.10141e+00_rb,0.10674e+00_rb,0.14459e+00_rb,0.19233e+00_rb, &\n        & 0.23999e+00_rb,0.28714e+00_rb,0.33260e+00_rb,0.38043e+00_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.11432e+00_rb,0.10261e+00_rb,0.12520e+00_rb,0.18276e+00_rb,0.24324e+00_rb, &\n        & 0.30342e+00_rb,0.36297e+00_rb,0.42016e+00_rb,0.48074e+00_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.11451e+00_rb,0.10490e+00_rb,0.15054e+00_rb,0.22514e+00_rb,0.29969e+00_rb, &\n        & 0.37388e+00_rb,0.44723e+00_rb,0.51774e+00_rb,0.59231e+00_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.11456e+00_rb,0.10971e+00_rb,0.18129e+00_rb,0.27136e+00_rb,0.36114e+00_rb, &\n        & 0.45069e+00_rb,0.53922e+00_rb,0.62384e+00_rb,0.71399e+00_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.11453e+00_rb,0.11800e+00_rb,0.21439e+00_rb,0.32093e+00_rb,0.42721e+00_rb, &\n        & 0.53302e+00_rb,0.63780e+00_rb,0.73784e+00_rb,0.84437e+00_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.13655e+00_rb,0.12054e+00_rb,0.11124e+00_rb,0.13153e+00_rb,0.17207e+00_rb, &\n        & 0.21470e+00_rb,0.25693e+00_rb,0.29779e+00_rb,0.34231e+00_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.13707e+00_rb,0.12216e+00_rb,0.12413e+00_rb,0.16670e+00_rb,0.22186e+00_rb, &\n        & 0.27683e+00_rb,0.33137e+00_rb,0.38384e+00_rb,0.44145e+00_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.13747e+00_rb,0.12319e+00_rb,0.14360e+00_rb,0.20888e+00_rb,0.27797e+00_rb, &\n        & 0.34687e+00_rb,0.41517e+00_rb,0.48101e+00_rb,0.55322e+00_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.13768e+00_rb,0.12546e+00_rb,0.17113e+00_rb,0.25534e+00_rb,0.33989e+00_rb, &\n        & 0.42417e+00_rb,0.50744e+00_rb,0.58796e+00_rb,0.67649e+00_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.13772e+00_rb,0.12983e+00_rb,0.20407e+00_rb,0.30559e+00_rb,0.40688e+00_rb, &\n        & 0.50779e+00_rb,0.60773e+00_rb,0.70383e+00_rb,0.80998e+00_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.16353e+00_rb,0.14321e+00_rb,0.12667e+00_rb,0.12562e+00_rb,0.14945e+00_rb, &\n        & 0.18589e+00_rb,0.22262e+00_rb,0.25813e+00_rb,0.29728e+00_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.16418e+00_rb,0.14525e+00_rb,0.13251e+00_rb,0.15131e+00_rb,0.19654e+00_rb, &\n        & 0.24525e+00_rb,0.29354e+00_rb,0.34060e+00_rb,0.39212e+00_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.16461e+00_rb,0.14670e+00_rb,0.14414e+00_rb,0.18897e+00_rb,0.25116e+00_rb, &\n        & 0.31348e+00_rb,0.37525e+00_rb,0.43507e+00_rb,0.50121e+00_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.16491e+00_rb,0.14777e+00_rb,0.16361e+00_rb,0.23441e+00_rb,0.31211e+00_rb, &\n        & 0.38952e+00_rb,0.46648e+00_rb,0.54097e+00_rb,0.62321e+00_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.16511e+00_rb,0.15008e+00_rb,0.19240e+00_rb,0.28461e+00_rb,0.37902e+00_rb, &\n        & 0.47310e+00_rb,0.56644e+00_rb,0.65651e+00_rb,0.75672e+00_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.19509e+00_rb,0.17082e+00_rb,0.14980e+00_rb,0.13204e+00_rb,0.13395e+00_rb, &\n        & 0.16269e+00_rb,0.19465e+00_rb,0.22562e+00_rb,0.26041e+00_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.19619e+00_rb,0.17214e+00_rb,0.15205e+00_rb,0.14710e+00_rb,0.17263e+00_rb, &\n        & 0.21401e+00_rb,0.25633e+00_rb,0.29729e+00_rb,0.34247e+00_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.19681e+00_rb,0.17444e+00_rb,0.15815e+00_rb,0.17421e+00_rb,0.22342e+00_rb, &\n        & 0.27889e+00_rb,0.33405e+00_rb,0.38778e+00_rb,0.44627e+00_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.19721e+00_rb,0.17581e+00_rb,0.16979e+00_rb,0.21414e+00_rb,0.28278e+00_rb, &\n        & 0.35302e+00_rb,0.42274e+00_rb,0.49080e+00_rb,0.56501e+00_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.19732e+00_rb,0.17699e+00_rb,0.18956e+00_rb,0.26168e+00_rb,0.34842e+00_rb, &\n        & 0.43503e+00_rb,0.52113e+00_rb,0.60494e+00_rb,0.69634e+00_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.23167e+00_rb,0.20281e+00_rb,0.17680e+00_rb,0.14997e+00_rb,0.13324e+00_rb, &\n        & 0.14585e+00_rb,0.17450e+00_rb,0.20194e+00_rb,0.23383e+00_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.23317e+00_rb,0.20416e+00_rb,0.17934e+00_rb,0.15819e+00_rb,0.15707e+00_rb, &\n        & 0.18679e+00_rb,0.22357e+00_rb,0.25924e+00_rb,0.29921e+00_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.23428e+00_rb,0.20631e+00_rb,0.18228e+00_rb,0.17432e+00_rb,0.19753e+00_rb, &\n        & 0.24343e+00_rb,0.29156e+00_rb,0.33836e+00_rb,0.38981e+00_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.23494e+00_rb,0.20857e+00_rb,0.18851e+00_rb,0.20211e+00_rb,0.25104e+00_rb, &\n        & 0.31278e+00_rb,0.37475e+00_rb,0.43549e+00_rb,0.50069e+00_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.23514e+00_rb,0.20988e+00_rb,0.20063e+00_rb,0.24116e+00_rb,0.31413e+00_rb, &\n        & 0.39227e+00_rb,0.47006e+00_rb,0.54611e+00_rb,0.62816e+00_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.27443e+00_rb,0.24019e+00_rb,0.20758e+00_rb,0.17610e+00_rb,0.14566e+00_rb, &\n        & 0.14000e+00_rb,0.16506e+00_rb,0.19019e+00_rb,0.22128e+00_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.27620e+00_rb,0.24179e+00_rb,0.21121e+00_rb,0.17965e+00_rb,0.15984e+00_rb, &\n        & 0.16864e+00_rb,0.20104e+00_rb,0.23213e+00_rb,0.26949e+00_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.27747e+00_rb,0.24292e+00_rb,0.21364e+00_rb,0.18907e+00_rb,0.18625e+00_rb, &\n        & 0.21432e+00_rb,0.25652e+00_rb,0.29760e+00_rb,0.34338e+00_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.27840e+00_rb,0.24591e+00_rb,0.21750e+00_rb,0.20704e+00_rb,0.22722e+00_rb, &\n        & 0.27512e+00_rb,0.32963e+00_rb,0.38304e+00_rb,0.44058e+00_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.27872e+00_rb,0.24790e+00_rb,0.22377e+00_rb,0.23568e+00_rb,0.28140e+00_rb, &\n        & 0.34919e+00_rb,0.41848e+00_rb,0.48672e+00_rb,0.55917e+00_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.32341e+00_rb,0.28305e+00_rb,0.24270e+00_rb,0.20626e+00_rb,0.16778e+00_rb, &\n        & 0.14644e+00_rb,0.16206e+00_rb,0.18656e+00_rb,0.21702e+00_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.32568e+00_rb,0.28506e+00_rb,0.24756e+00_rb,0.20963e+00_rb,0.17522e+00_rb, &\n        & 0.16516e+00_rb,0.19045e+00_rb,0.21956e+00_rb,0.25530e+00_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.32734e+00_rb,0.28654e+00_rb,0.25088e+00_rb,0.21479e+00_rb,0.19195e+00_rb, &\n        & 0.19819e+00_rb,0.23472e+00_rb,0.27107e+00_rb,0.31461e+00_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.32837e+00_rb,0.28793e+00_rb,0.25332e+00_rb,0.22544e+00_rb,0.22100e+00_rb, &\n        & 0.24722e+00_rb,0.29529e+00_rb,0.34210e+00_rb,0.39526e+00_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.32863e+00_rb,0.29096e+00_rb,0.25794e+00_rb,0.24543e+00_rb,0.26342e+00_rb, &\n        & 0.31218e+00_rb,0.37382e+00_rb,0.43401e+00_rb,0.50027e+00_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.37878e+00_rb,0.33149e+00_rb,0.28420e+00_rb,0.23973e+00_rb,0.19541e+00_rb, &\n        & 0.16103e+00_rb,0.16029e+00_rb,0.18365e+00_rb,0.21308e+00_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.38160e+00_rb,0.33397e+00_rb,0.28731e+00_rb,0.24432e+00_rb,0.19953e+00_rb, &\n        & 0.17386e+00_rb,0.18539e+00_rb,0.21378e+00_rb,0.24833e+00_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.38370e+00_rb,0.33584e+00_rb,0.29267e+00_rb,0.24777e+00_rb,0.20961e+00_rb, &\n        & 0.19622e+00_rb,0.22137e+00_rb,0.25542e+00_rb,0.29676e+00_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.38483e+00_rb,0.33686e+00_rb,0.29593e+00_rb,0.25505e+00_rb,0.22908e+00_rb, &\n        & 0.23318e+00_rb,0.27287e+00_rb,0.31549e+00_rb,0.36559e+00_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.38520e+00_rb,0.33870e+00_rb,0.29863e+00_rb,0.26759e+00_rb,0.26094e+00_rb, &\n        & 0.28563e+00_rb,0.34036e+00_rb,0.39396e+00_rb,0.45596e+00_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.44139e+00_rb,0.38627e+00_rb,0.33114e+00_rb,0.27661e+00_rb,0.22671e+00_rb, &\n        & 0.18314e+00_rb,0.16439e+00_rb,0.18365e+00_rb,0.21302e+00_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.44442e+00_rb,0.38894e+00_rb,0.33346e+00_rb,0.28317e+00_rb,0.23077e+00_rb, &\n        & 0.19173e+00_rb,0.18540e+00_rb,0.21159e+00_rb,0.24601e+00_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.44688e+00_rb,0.39111e+00_rb,0.33884e+00_rb,0.28735e+00_rb,0.23759e+00_rb, &\n        & 0.20864e+00_rb,0.21693e+00_rb,0.24969e+00_rb,0.29058e+00_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.44794e+00_rb,0.39207e+00_rb,0.34326e+00_rb,0.29193e+00_rb,0.25105e+00_rb, &\n        & 0.23562e+00_rb,0.26192e+00_rb,0.30247e+00_rb,0.35138e+00_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.44820e+00_rb,0.39253e+00_rb,0.34576e+00_rb,0.30181e+00_rb,0.27401e+00_rb, &\n        & 0.27758e+00_rb,0.32230e+00_rb,0.37259e+00_rb,0.43225e+00_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.51225e+00_rb,0.44827e+00_rb,0.38430e+00_rb,0.32096e+00_rb,0.26380e+00_rb, &\n        & 0.21204e+00_rb,0.18122e+00_rb,0.19575e+00_rb,0.22762e+00_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.51551e+00_rb,0.45114e+00_rb,0.38677e+00_rb,0.32842e+00_rb,0.26803e+00_rb, &\n        & 0.22031e+00_rb,0.20295e+00_rb,0.22783e+00_rb,0.26563e+00_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.51720e+00_rb,0.45265e+00_rb,0.39154e+00_rb,0.33278e+00_rb,0.27451e+00_rb, &\n        & 0.23732e+00_rb,0.23493e+00_rb,0.26904e+00_rb,0.31377e+00_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.51766e+00_rb,0.45307e+00_rb,0.39664e+00_rb,0.33683e+00_rb,0.28805e+00_rb, &\n        & 0.26198e+00_rb,0.27963e+00_rb,0.32252e+00_rb,0.37505e+00_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.51687e+00_rb,0.45253e+00_rb,0.39906e+00_rb,0.34713e+00_rb,0.30874e+00_rb, &\n        & 0.30122e+00_rb,0.34231e+00_rb,0.39543e+00_rb,0.45934e+00_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.58922e+00_rb,0.51562e+00_rb,0.44203e+00_rb,0.36905e+00_rb,0.30406e+00_rb, &\n        & 0.24465e+00_rb,0.20183e+00_rb,0.21102e+00_rb,0.20343e+00_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.59167e+00_rb,0.51780e+00_rb,0.44391e+00_rb,0.37709e+00_rb,0.30888e+00_rb, &\n        & 0.25236e+00_rb,0.22396e+00_rb,0.24700e+00_rb,0.27515e+00_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.59289e+00_rb,0.51887e+00_rb,0.44833e+00_rb,0.38190e+00_rb,0.31478e+00_rb, &\n        & 0.26966e+00_rb,0.25708e+00_rb,0.29183e+00_rb,0.34036e+00_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.59238e+00_rb,0.51846e+00_rb,0.45409e+00_rb,0.38554e+00_rb,0.32896e+00_rb, &\n        & 0.29236e+00_rb,0.30023e+00_rb,0.34558e+00_rb,0.40217e+00_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.59040e+00_rb,0.51681e+00_rb,0.45607e+00_rb,0.39582e+00_rb,0.34740e+00_rb, &\n        & 0.32863e+00_rb,0.36471e+00_rb,0.42134e+00_rb,0.48947e+00_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.67101e+00_rb,0.58718e+00_rb,0.50336e+00_rb,0.42031e+00_rb,0.34716e+00_rb, &\n        & 0.27980e+00_rb,0.22553e+00_rb,0.22887e+00_rb,0.21243e+00_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.67268e+00_rb,0.58864e+00_rb,0.50464e+00_rb,0.42832e+00_rb,0.35207e+00_rb, &\n        & 0.28740e+00_rb,0.24801e+00_rb,0.26765e+00_rb,0.28879e+00_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.67256e+00_rb,0.58859e+00_rb,0.50813e+00_rb,0.43372e+00_rb,0.35764e+00_rb, &\n        & 0.30459e+00_rb,0.28195e+00_rb,0.31558e+00_rb,0.36763e+00_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.67050e+00_rb,0.58682e+00_rb,0.51379e+00_rb,0.43676e+00_rb,0.37243e+00_rb, &\n        & 0.32590e+00_rb,0.32370e+00_rb,0.37117e+00_rb,0.43203e+00_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.66719e+00_rb,0.58400e+00_rb,0.51581e+00_rb,0.44632e+00_rb,0.38956e+00_rb, &\n        & 0.35928e+00_rb,0.38845e+00_rb,0.44876e+00_rb,0.52114e+00_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.10138e+00_rb,0.11271e+00_rb,0.22512e+00_rb,0.33705e+00_rb,0.44854e+00_rb, &\n        & 0.55854e+00_rb,0.66519e+00_rb,0.75942e+00_rb,0.85612e+00_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.10145e+00_rb,0.13913e+00_rb,0.27783e+00_rb,0.41606e+00_rb,0.55341e+00_rb, &\n        & 0.68935e+00_rb,0.82123e+00_rb,0.93793e+00_rb,0.10573e+01_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.10144e+00_rb,0.16758e+00_rb,0.33464e+00_rb,0.50118e+00_rb,0.66683e+00_rb, &\n        & 0.83041e+00_rb,0.98914e+00_rb,0.11301e+01_rb,0.12744e+01_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.10142e+00_rb,0.19759e+00_rb,0.39475e+00_rb,0.59125e+00_rb,0.78644e+00_rb, &\n        & 0.97913e+00_rb,0.11666e+01_rb,0.13327e+01_rb,0.15036e+01_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.10117e+00_rb,0.22893e+00_rb,0.45719e+00_rb,0.68491e+00_rb,0.91083e+00_rb, &\n        & 0.11348e+01_rb,0.13522e+01_rb,0.15448e+01_rb,0.17423e+01_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.12283e+00_rb,0.11939e+00_rb,0.23586e+00_rb,0.35344e+00_rb,0.46995e+00_rb, &\n        & 0.58562e+00_rb,0.69771e+00_rb,0.79719e+00_rb,0.91456e+00_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.12300e+00_rb,0.14726e+00_rb,0.29424e+00_rb,0.44061e+00_rb,0.58626e+00_rb, &\n        & 0.73031e+00_rb,0.87019e+00_rb,0.99468e+00_rb,0.11413e+01_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.12308e+00_rb,0.17880e+00_rb,0.35729e+00_rb,0.53471e+00_rb,0.71190e+00_rb, &\n        & 0.88678e+00_rb,0.10560e+01_rb,0.12083e+01_rb,0.13858e+01_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.12303e+00_rb,0.21231e+00_rb,0.42408e+00_rb,0.63552e+00_rb,0.84482e+00_rb, &\n        & 0.10530e+01_rb,0.12550e+01_rb,0.14355e+01_rb,0.16461e+01_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.12277e+00_rb,0.24738e+00_rb,0.49418e+00_rb,0.74021e+00_rb,0.98480e+00_rb, &\n        & 0.12263e+01_rb,0.14622e+01_rb,0.16712e+01_rb,0.19192e+01_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.14866e+00_rb,0.13122e+00_rb,0.23281e+00_rb,0.34894e+00_rb,0.46454e+00_rb, &\n        & 0.57840e+00_rb,0.68947e+00_rb,0.78868e+00_rb,0.91936e+00_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.14909e+00_rb,0.15020e+00_rb,0.29535e+00_rb,0.44246e+00_rb,0.58879e+00_rb, &\n        & 0.73298e+00_rb,0.87446e+00_rb,0.10004e+01_rb,0.11652e+01_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.14932e+00_rb,0.18193e+00_rb,0.36339e+00_rb,0.54464e+00_rb,0.72472e+00_rb, &\n        & 0.90302e+00_rb,0.10769e+01_rb,0.12326e+01_rb,0.14351e+01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.14936e+00_rb,0.21850e+00_rb,0.43638e+00_rb,0.65369e+00_rb,0.87034e+00_rb, &\n        & 0.10842e+01_rb,0.12925e+01_rb,0.14807e+01_rb,0.17238e+01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.14913e+00_rb,0.25689e+00_rb,0.51319e+00_rb,0.76884e+00_rb,0.10226e+01_rb, &\n        & 0.12750e+01_rb,0.15205e+01_rb,0.17418e+01_rb,0.20260e+01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.17957e+00_rb,0.15775e+00_rb,0.22276e+00_rb,0.33390e+00_rb,0.44423e+00_rb, &\n        & 0.55367e+00_rb,0.66019e+00_rb,0.75611e+00_rb,0.88680e+00_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.18040e+00_rb,0.16246e+00_rb,0.28812e+00_rb,0.43146e+00_rb,0.57438e+00_rb, &\n        & 0.71573e+00_rb,0.85374e+00_rb,0.97839e+00_rb,0.11468e+01_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.18097e+00_rb,0.18562e+00_rb,0.36044e+00_rb,0.53994e+00_rb,0.71844e+00_rb, &\n        & 0.89550e+00_rb,0.10683e+01_rb,0.12247e+01_rb,0.14347e+01_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.18121e+00_rb,0.21975e+00_rb,0.43861e+00_rb,0.65714e+00_rb,0.87443e+00_rb, &\n        & 0.10900e+01_rb,0.13008e+01_rb,0.14906e+01_rb,0.17458e+01_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.18106e+00_rb,0.26092e+00_rb,0.52133e+00_rb,0.78101e+00_rb,0.10395e+01_rb, &\n        & 0.12958e+01_rb,0.15460e+01_rb,0.17735e+01_rb,0.20757e+01_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.21697e+00_rb,0.19036e+00_rb,0.21215e+00_rb,0.31312e+00_rb,0.41669e+00_rb, &\n        & 0.51939e+00_rb,0.61996e+00_rb,0.71133e+00_rb,0.83486e+00_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.21794e+00_rb,0.19137e+00_rb,0.27611e+00_rb,0.41368e+00_rb,0.55071e+00_rb, &\n        & 0.68646e+00_rb,0.81902e+00_rb,0.94006e+00_rb,0.11028e+01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.21886e+00_rb,0.20114e+00_rb,0.35159e+00_rb,0.52668e+00_rb,0.70100e+00_rb, &\n        & 0.87403e+00_rb,0.10428e+01_rb,0.11973e+01_rb,0.14036e+01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.21947e+00_rb,0.22776e+00_rb,0.43385e+00_rb,0.64994e+00_rb,0.86545e+00_rb, &\n        & 0.10790e+01_rb,0.12882e+01_rb,0.14795e+01_rb,0.17328e+01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.21950e+00_rb,0.26410e+00_rb,0.52266e+00_rb,0.78311e+00_rb,0.10422e+01_rb, &\n        & 0.12993e+01_rb,0.15508e+01_rb,0.17813e+01_rb,0.20867e+01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.26192e+00_rb,0.22964e+00_rb,0.21396e+00_rb,0.28442e+00_rb,0.37859e+00_rb, &\n        & 0.47209e+00_rb,0.56361e+00_rb,0.64772e+00_rb,0.75904e+00_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.26327e+00_rb,0.23094e+00_rb,0.26427e+00_rb,0.38535e+00_rb,0.51302e+00_rb, &\n        & 0.63961e+00_rb,0.76380e+00_rb,0.87816e+00_rb,0.10282e+01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.26410e+00_rb,0.23177e+00_rb,0.33446e+00_rb,0.50065e+00_rb,0.66671e+00_rb, &\n        & 0.83097e+00_rb,0.99257e+00_rb,0.11416e+01_rb,0.13361e+01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.26501e+00_rb,0.24670e+00_rb,0.42047e+00_rb,0.62999e+00_rb,0.83846e+00_rb, &\n        & 0.10456e+01_rb,0.12484e+01_rb,0.14350e+01_rb,0.16802e+01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.26533e+00_rb,0.27595e+00_rb,0.51477e+00_rb,0.77155e+00_rb,0.10272e+01_rb, &\n        & 0.12802e+01_rb,0.15288e+01_rb,0.17573e+01_rb,0.20585e+01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.31548e+00_rb,0.27644e+00_rb,0.23749e+00_rb,0.26350e+00_rb,0.33563e+00_rb, &\n        & 0.41860e+00_rb,0.50000e+00_rb,0.57557e+00_rb,0.67307e+00_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.31747e+00_rb,0.27830e+00_rb,0.26813e+00_rb,0.35238e+00_rb,0.46780e+00_rb, &\n        & 0.58337e+00_rb,0.69695e+00_rb,0.80281e+00_rb,0.93825e+00_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.31845e+00_rb,0.27929e+00_rb,0.32577e+00_rb,0.46831e+00_rb,0.62377e+00_rb, &\n        & 0.77768e+00_rb,0.92868e+00_rb,0.10691e+01_rb,0.12510e+01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.31933e+00_rb,0.28093e+00_rb,0.40219e+00_rb,0.60218e+00_rb,0.80124e+00_rb, &\n        & 0.99953e+00_rb,0.11938e+01_rb,0.13738e+01_rb,0.16072e+01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.31962e+00_rb,0.30041e+00_rb,0.50060e+00_rb,0.75020e+00_rb,0.99895e+00_rb, &\n        & 0.12457e+01_rb,0.14877e+01_rb,0.17119e+01_rb,0.20030e+01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.37865e+00_rb,0.33167e+00_rb,0.28471e+00_rb,0.26304e+00_rb,0.29883e+00_rb, &\n        & 0.36478e+00_rb,0.43575e+00_rb,0.50177e+00_rb,0.58698e+00_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.38151e+00_rb,0.33434e+00_rb,0.29226e+00_rb,0.33286e+00_rb,0.42010e+00_rb, &\n        & 0.52397e+00_rb,0.62612e+00_rb,0.72153e+00_rb,0.84257e+00_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.38305e+00_rb,0.33575e+00_rb,0.33335e+00_rb,0.43312e+00_rb,0.57580e+00_rb, &\n        & 0.71815e+00_rb,0.85781e+00_rb,0.98826e+00_rb,0.11549e+01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.38418e+00_rb,0.33683e+00_rb,0.39821e+00_rb,0.56836e+00_rb,0.75670e+00_rb, &\n        & 0.94382e+00_rb,0.11276e+01_rb,0.12990e+01_rb,0.15179e+01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.38435e+00_rb,0.34032e+00_rb,0.48169e+00_rb,0.72105e+00_rb,0.95979e+00_rb, &\n        & 0.11976e+01_rb,0.14311e+01_rb,0.16484e+01_rb,0.19256e+01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.45391e+00_rb,0.39745e+00_rb,0.34100e+00_rb,0.28597e+00_rb,0.28236e+00_rb, &\n        & 0.32683e+00_rb,0.39003e+00_rb,0.44780e+00_rb,0.52646e+00_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.45720e+00_rb,0.40042e+00_rb,0.34369e+00_rb,0.33249e+00_rb,0.37993e+00_rb, &\n        & 0.46180e+00_rb,0.55195e+00_rb,0.63669e+00_rb,0.74252e+00_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.45930e+00_rb,0.40241e+00_rb,0.35995e+00_rb,0.41477e+00_rb,0.52224e+00_rb, &\n        & 0.65162e+00_rb,0.77908e+00_rb,0.89846e+00_rb,0.10481e+01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.46056e+00_rb,0.40360e+00_rb,0.40974e+00_rb,0.52851e+00_rb,0.70308e+00_rb, &\n        & 0.87703e+00_rb,0.10485e+01_rb,0.12091e+01_rb,0.14102e+01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.46097e+00_rb,0.40408e+00_rb,0.48083e+00_rb,0.68278e+00_rb,0.90959e+00_rb, &\n        & 0.11347e+01_rb,0.13562e+01_rb,0.15644e+01_rb,0.18239e+01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.54348e+00_rb,0.47578e+00_rb,0.40808e+00_rb,0.34039e+00_rb,0.29202e+00_rb, &\n        & 0.31463e+00_rb,0.37530e+00_rb,0.43003e+00_rb,0.50713e+00_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.54726e+00_rb,0.47923e+00_rb,0.41116e+00_rb,0.35738e+00_rb,0.36873e+00_rb, &\n        & 0.42815e+00_rb,0.51125e+00_rb,0.58827e+00_rb,0.68902e+00_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.54904e+00_rb,0.48087e+00_rb,0.41270e+00_rb,0.42187e+00_rb,0.48592e+00_rb, &\n        & 0.59834e+00_rb,0.71541e+00_rb,0.82550e+00_rb,0.96166e+00_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.55066e+00_rb,0.48237e+00_rb,0.44342e+00_rb,0.51829e+00_rb,0.65846e+00_rb, &\n        & 0.82163e+00_rb,0.98259e+00_rb,0.11344e+01_rb,0.13209e+01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.55078e+00_rb,0.48256e+00_rb,0.50243e+00_rb,0.65112e+00_rb,0.86662e+00_rb, &\n        & 0.10813e+01_rb,0.12932e+01_rb,0.14933e+01_rb,0.17377e+01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.65114e+00_rb,0.56997e+00_rb,0.48880e+00_rb,0.40765e+00_rb,0.34114e+00_rb, &\n        & 0.35299e+00_rb,0.42114e+00_rb,0.48311e+00_rb,0.56879e+00_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.65409e+00_rb,0.57269e+00_rb,0.49126e+00_rb,0.41893e+00_rb,0.41551e+00_rb, &\n        & 0.46863e+00_rb,0.55986e+00_rb,0.64427e+00_rb,0.75415e+00_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.65488e+00_rb,0.57345e+00_rb,0.49197e+00_rb,0.47947e+00_rb,0.53169e+00_rb, &\n        & 0.64034e+00_rb,0.76581e+00_rb,0.88450e+00_rb,0.10287e+01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.65537e+00_rb,0.57398e+00_rb,0.51344e+00_rb,0.57405e+00_rb,0.70306e+00_rb, &\n        & 0.87735e+00_rb,0.10495e+01_rb,0.12127e+01_rb,0.14094e+01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.65395e+00_rb,0.57279e+00_rb,0.56858e+00_rb,0.69997e+00_rb,0.92273e+00_rb, &\n        & 0.11516e+01_rb,0.13780e+01_rb,0.15930e+01_rb,0.18499e+01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.77619e+00_rb,0.67938e+00_rb,0.58258e+00_rb,0.48578e+00_rb,0.39872e+00_rb, &\n        & 0.39471e+00_rb,0.47009e+00_rb,0.53992e+00_rb,0.63430e+00_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.77753e+00_rb,0.68052e+00_rb,0.58367e+00_rb,0.49090e+00_rb,0.46899e+00_rb, &\n        & 0.51194e+00_rb,0.61162e+00_rb,0.70447e+00_rb,0.82357e+00_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.77638e+00_rb,0.67972e+00_rb,0.58318e+00_rb,0.54530e+00_rb,0.58387e+00_rb, &\n        & 0.68245e+00_rb,0.81638e+00_rb,0.94341e+00_rb,0.10965e+01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.77440e+00_rb,0.67810e+00_rb,0.59462e+00_rb,0.63695e+00_rb,0.74739e+00_rb, &\n        & 0.93197e+00_rb,0.11153e+01_rb,0.12903e+01_rb,0.14970e+01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.77021e+00_rb,0.67464e+00_rb,0.64357e+00_rb,0.75637e+00_rb,0.97798e+00_rb, &\n        & 0.12207e+01_rb,0.14609e+01_rb,0.16904e+01_rb,0.19598e+01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.91895e+00_rb,0.80429e+00_rb,0.68964e+00_rb,0.57498e+00_rb,0.46528e+00_rb, &\n        & 0.44199e+00_rb,0.52028e+00_rb,0.59834e+00_rb,0.70141e+00_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.91759e+00_rb,0.80320e+00_rb,0.68881e+00_rb,0.57463e+00_rb,0.52956e+00_rb, &\n        & 0.55768e+00_rb,0.66492e+00_rb,0.76644e+00_rb,0.89471e+00_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.91361e+00_rb,0.79979e+00_rb,0.68598e+00_rb,0.61940e+00_rb,0.64101e+00_rb, &\n        & 0.72712e+00_rb,0.86969e+00_rb,0.10053e+01_rb,0.11679e+01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.90733e+00_rb,0.79439e+00_rb,0.68655e+00_rb,0.70603e+00_rb,0.79560e+00_rb, &\n        & 0.98356e+00_rb,0.11773e+01_rb,0.13631e+01_rb,0.15788e+01_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.89862e+00_rb,0.78697e+00_rb,0.72670e+00_rb,0.82187e+00_rb,0.10292e+01_rb, &\n        & 0.12848e+01_rb,0.15381e+01_rb,0.17818e+01_rb,0.20623e+01_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.80849e-06_rb,0.81362e-06_rb,0.81391e-06_rb,0.81832e-06_rb,0.81000e-06_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.62593e-06_rb,0.63090e-06_rb,0.63158e-06_rb,0.62821e-06_rb,0.62502e-06_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.47825e-06_rb,0.47852e-06_rb,0.47713e-06_rb,0.47688e-06_rb,0.47989e-06_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.36039e-06_rb,0.35905e-06_rb,0.36064e-06_rb,0.36298e-06_rb,0.36860e-06_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.27679e-06_rb,0.27608e-06_rb,0.27742e-06_rb,0.28112e-06_rb,0.28759e-06_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.21771e-06_rb,0.21826e-06_rb,0.22019e-06_rb,0.22429e-06_rb,0.22996e-06_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.17334e-06_rb,0.17441e-06_rb,0.17681e-06_rb,0.18055e-06_rb,0.18537e-06_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.13974e-06_rb,0.14076e-06_rb,0.14326e-06_rb,0.14694e-06_rb,0.15070e-06_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.11289e-06_rb,0.11394e-06_rb,0.11631e-06_rb,0.11963e-06_rb,0.12284e-06_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.90574e-07_rb,0.91914e-07_rb,0.94046e-07_rb,0.96998e-07_rb,0.99841e-07_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.72483e-07_rb,0.74069e-07_rb,0.76186e-07_rb,0.78482e-07_rb,0.80964e-07_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.57463e-07_rb,0.59130e-07_rb,0.60802e-07_rb,0.62903e-07_rb,0.65218e-07_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.45767e-07_rb,0.47184e-07_rb,0.48696e-07_rb,0.50494e-07_rb,0.52527e-07_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.36636e-07_rb,0.37794e-07_rb,0.39217e-07_rb,0.40768e-07_rb,0.42465e-07_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.29173e-07_rb,0.30183e-07_rb,0.31469e-07_rb,0.32834e-07_rb,0.34213e-07_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.23225e-07_rb,0.24137e-07_rb,0.25167e-07_rb,0.26378e-07_rb,0.27534e-07_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.18675e-07_rb,0.19472e-07_rb,0.20340e-07_rb,0.21340e-07_rb,0.22286e-07_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.15020e-07_rb,0.15690e-07_rb,0.16468e-07_rb,0.17258e-07_rb,0.18060e-07_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.12149e-07_rb,0.12728e-07_rb,0.13375e-07_rb,0.14035e-07_rb,0.14711e-07_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.98596e-08_rb,0.10344e-07_rb,0.10879e-07_rb,0.11427e-07_rb,0.12003e-07_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.80127e-08_rb,0.84199e-08_rb,0.88610e-08_rb,0.93188e-08_rb,0.98102e-08_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.65473e-08_rb,0.68850e-08_rb,0.72470e-08_rb,0.76379e-08_rb,0.80329e-08_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.53107e-08_rb,0.55930e-08_rb,0.58984e-08_rb,0.62161e-08_rb,0.65511e-08_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.42749e-08_rb,0.45072e-08_rb,0.47592e-08_rb,0.50244e-08_rb,0.53034e-08_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.34593e-08_rb,0.36479e-08_rb,0.38557e-08_rb,0.40714e-08_rb,0.43031e-08_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.27981e-08_rb,0.29525e-08_rb,0.31212e-08_rb,0.32984e-08_rb,0.34890e-08_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.22616e-08_rb,0.23879e-08_rb,0.25266e-08_rb,0.26716e-08_rb,0.28295e-08_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.18232e-08_rb,0.19245e-08_rb,0.20362e-08_rb,0.21554e-08_rb,0.22831e-08_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.14679e-08_rb,0.15511e-08_rb,0.16402e-08_rb,0.17376e-08_rb,0.18413e-08_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.11828e-08_rb,0.12488e-08_rb,0.13200e-08_rb,0.14008e-08_rb,0.14841e-08_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.94970e-09_rb,0.10028e-08_rb,0.10610e-08_rb,0.11254e-08_rb,0.11933e-08_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.76210e-09_rb,0.80401e-09_rb,0.85098e-09_rb,0.90203e-09_rb,0.95794e-09_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.61242e-09_rb,0.64471e-09_rb,0.68205e-09_rb,0.72336e-09_rb,0.76846e-09_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.49214e-09_rb,0.51642e-09_rb,0.54633e-09_rb,0.57916e-09_rb,0.61506e-09_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.39552e-09_rb,0.41343e-09_rb,0.43658e-09_rb,0.46266e-09_rb,0.49121e-09_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.31773e-09_rb,0.33161e-09_rb,0.34878e-09_rb,0.36970e-09_rb,0.39231e-09_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.25526e-09_rb,0.26613e-09_rb,0.27906e-09_rb,0.29510e-09_rb,0.31346e-09_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.20571e-09_rb,0.21419e-09_rb,0.22379e-09_rb,0.23622e-09_rb,0.25076e-09_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.16573e-09_rb,0.17251e-09_rb,0.18002e-09_rb,0.18925e-09_rb,0.20074e-09_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.13312e-09_rb,0.13888e-09_rb,0.14480e-09_rb,0.15170e-09_rb,0.16067e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.10717e-09_rb,0.11200e-09_rb,0.11653e-09_rb,0.12187e-09_rb,0.12864e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.85395e-10_rb,0.90190e-10_rb,0.93978e-10_rb,0.98115e-10_rb,0.10324e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.67933e-10_rb,0.72682e-10_rb,0.75857e-10_rb,0.79079e-10_rb,0.82942e-10_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.53572e-10_rb,0.58095e-10_rb,0.61231e-10_rb,0.63738e-10_rb,0.66738e-10_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.41729e-10_rb,0.46380e-10_rb,0.49357e-10_rb,0.51409e-10_rb,0.53743e-10_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.32319e-10_rb,0.36737e-10_rb,0.39572e-10_rb,0.41487e-10_rb,0.43327e-10_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.25820e-10_rb,0.29541e-10_rb,0.32107e-10_rb,0.33762e-10_rb,0.35250e-10_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.93809e-05_rb,0.10536e-04_rb,0.11777e-04_rb,0.13098e-04_rb,0.14486e-04_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.77050e-05_rb,0.86520e-05_rb,0.96745e-05_rb,0.10759e-04_rb,0.11891e-04_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.63112e-05_rb,0.70914e-05_rb,0.79320e-05_rb,0.88179e-05_rb,0.97344e-05_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.51672e-05_rb,0.58172e-05_rb,0.64961e-05_rb,0.72133e-05_rb,0.79595e-05_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.42470e-05_rb,0.47817e-05_rb,0.53396e-05_rb,0.59229e-05_rb,0.65385e-05_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.35105e-05_rb,0.39513e-05_rb,0.44042e-05_rb,0.48865e-05_rb,0.53983e-05_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.29057e-05_rb,0.32680e-05_rb,0.36409e-05_rb,0.40419e-05_rb,0.44646e-05_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.24132e-05_rb,0.27111e-05_rb,0.30192e-05_rb,0.33498e-05_rb,0.36985e-05_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.20041e-05_rb,0.22484e-05_rb,0.25052e-05_rb,0.27770e-05_rb,0.30661e-05_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.16762e-05_rb,0.18775e-05_rb,0.20900e-05_rb,0.23158e-05_rb,0.25543e-05_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.14013e-05_rb,0.15665e-05_rb,0.17433e-05_rb,0.19308e-05_rb,0.21290e-05_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.11680e-05_rb,0.13039e-05_rb,0.14515e-05_rb,0.16085e-05_rb,0.17733e-05_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.97491e-06_rb,0.10886e-05_rb,0.12114e-05_rb,0.13428e-05_rb,0.14806e-05_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.81608e-06_rb,0.91198e-06_rb,0.10148e-05_rb,0.11244e-05_rb,0.12392e-05_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.68407e-06_rb,0.76432e-06_rb,0.85048e-06_rb,0.94210e-06_rb,0.10393e-05_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.57340e-06_rb,0.64071e-06_rb,0.71311e-06_rb,0.78988e-06_rb,0.87304e-06_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.48234e-06_rb,0.53886e-06_rb,0.59992e-06_rb,0.66557e-06_rb,0.73565e-06_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.40628e-06_rb,0.45384e-06_rb,0.50638e-06_rb,0.56175e-06_rb,0.62086e-06_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.34276e-06_rb,0.38409e-06_rb,0.42817e-06_rb,0.47551e-06_rb,0.52508e-06_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.29024e-06_rb,0.32548e-06_rb,0.36291e-06_rb,0.40263e-06_rb,0.44423e-06_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.24623e-06_rb,0.27596e-06_rb,0.30748e-06_rb,0.34104e-06_rb,0.37571e-06_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.20814e-06_rb,0.23318e-06_rb,0.25975e-06_rb,0.28746e-06_rb,0.31674e-06_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.17399e-06_rb,0.19476e-06_rb,0.21698e-06_rb,0.24021e-06_rb,0.26463e-06_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.14352e-06_rb,0.16079e-06_rb,0.17920e-06_rb,0.19838e-06_rb,0.21852e-06_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.11644e-06_rb,0.13061e-06_rb,0.14569e-06_rb,0.16148e-06_rb,0.17794e-06_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.94327e-07_rb,0.10597e-06_rb,0.11827e-06_rb,0.13121e-06_rb,0.14471e-06_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.76386e-07_rb,0.85932e-07_rb,0.96004e-07_rb,0.10675e-06_rb,0.11785e-06_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.61093e-07_rb,0.68856e-07_rb,0.77088e-07_rb,0.85831e-07_rb,0.94878e-07_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.48781e-07_rb,0.55058e-07_rb,0.61725e-07_rb,0.68852e-07_rb,0.76234e-07_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.38909e-07_rb,0.43987e-07_rb,0.49391e-07_rb,0.55161e-07_rb,0.61197e-07_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.30779e-07_rb,0.34866e-07_rb,0.39222e-07_rb,0.43870e-07_rb,0.48785e-07_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.24249e-07_rb,0.27514e-07_rb,0.31014e-07_rb,0.34774e-07_rb,0.38772e-07_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.19076e-07_rb,0.21693e-07_rb,0.24514e-07_rb,0.27522e-07_rb,0.30756e-07_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.14949e-07_rb,0.17046e-07_rb,0.19303e-07_rb,0.21721e-07_rb,0.24320e-07_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.11627e-07_rb,0.13294e-07_rb,0.15102e-07_rb,0.17040e-07_rb,0.19115e-07_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.90208e-08_rb,0.10359e-07_rb,0.11803e-07_rb,0.13349e-07_rb,0.15003e-07_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.69979e-08_rb,0.80625e-08_rb,0.92075e-08_rb,0.10445e-07_rb,0.11768e-07_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.54507e-08_rb,0.62777e-08_rb,0.72004e-08_rb,0.81899e-08_rb,0.92488e-08_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.42541e-08_rb,0.48933e-08_rb,0.56304e-08_rb,0.64214e-08_rb,0.72725e-08_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.33161e-08_rb,0.38121e-08_rb,0.43976e-08_rb,0.50301e-08_rb,0.57140e-08_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.25817e-08_rb,0.29691e-08_rb,0.34291e-08_rb,0.39368e-08_rb,0.44836e-08_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.20203e-08_rb,0.23228e-08_rb,0.26823e-08_rb,0.30900e-08_rb,0.35285e-08_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.15833e-08_rb,0.18196e-08_rb,0.21023e-08_rb,0.24276e-08_rb,0.27787e-08_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.12403e-08_rb,0.14250e-08_rb,0.16461e-08_rb,0.19045e-08_rb,0.21855e-08_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.97249e-09_rb,0.11164e-08_rb,0.12881e-08_rb,0.14923e-08_rb,0.17175e-08_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.76431e-09_rb,0.87699e-09_rb,0.10108e-08_rb,0.11709e-08_rb,0.13516e-08_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.61553e-09_rb,0.70649e-09_rb,0.81463e-09_rb,0.94315e-09_rb,0.10907e-08_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.37708e-04_rb,0.43942e-04_rb,0.50586e-04_rb,0.57656e-04_rb,0.65139e-04_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.31694e-04_rb,0.36862e-04_rb,0.42350e-04_rb,0.48197e-04_rb,0.54341e-04_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.26564e-04_rb,0.30824e-04_rb,0.35372e-04_rb,0.40180e-04_rb,0.45231e-04_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.22232e-04_rb,0.25740e-04_rb,0.29512e-04_rb,0.33447e-04_rb,0.37588e-04_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.18578e-04_rb,0.21467e-04_rb,0.24582e-04_rb,0.27832e-04_rb,0.31221e-04_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.15530e-04_rb,0.17922e-04_rb,0.20498e-04_rb,0.23170e-04_rb,0.25973e-04_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.12972e-04_rb,0.14952e-04_rb,0.17059e-04_rb,0.19270e-04_rb,0.21580e-04_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.10858e-04_rb,0.12498e-04_rb,0.14228e-04_rb,0.16061e-04_rb,0.17958e-04_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.90819e-05_rb,0.10446e-04_rb,0.11880e-04_rb,0.13394e-04_rb,0.14951e-04_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.76648e-05_rb,0.87979e-05_rb,0.99931e-05_rb,0.11255e-04_rb,0.12542e-04_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.64634e-05_rb,0.74140e-05_rb,0.84086e-05_rb,0.94546e-05_rb,0.10527e-04_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.54523e-05_rb,0.62464e-05_rb,0.70809e-05_rb,0.79508e-05_rb,0.88446e-05_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.46110e-05_rb,0.52716e-05_rb,0.59693e-05_rb,0.66904e-05_rb,0.74322e-05_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.39134e-05_rb,0.44620e-05_rb,0.50425e-05_rb,0.56439e-05_rb,0.62577e-05_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.33208e-05_rb,0.37777e-05_rb,0.42629e-05_rb,0.47607e-05_rb,0.52714e-05_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.28177e-05_rb,0.32008e-05_rb,0.36031e-05_rb,0.40187e-05_rb,0.44358e-05_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.23932e-05_rb,0.27158e-05_rb,0.30516e-05_rb,0.33945e-05_rb,0.37416e-05_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.20340e-05_rb,0.23035e-05_rb,0.25827e-05_rb,0.28672e-05_rb,0.31559e-05_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.17308e-05_rb,0.19547e-05_rb,0.21869e-05_rb,0.24243e-05_rb,0.26649e-05_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.14734e-05_rb,0.16593e-05_rb,0.18536e-05_rb,0.20518e-05_rb,0.22514e-05_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.12538e-05_rb,0.14097e-05_rb,0.15718e-05_rb,0.17369e-05_rb,0.19013e-05_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.10626e-05_rb,0.11932e-05_rb,0.13290e-05_rb,0.14662e-05_rb,0.16025e-05_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.88990e-06_rb,0.99878e-06_rb,0.11122e-05_rb,0.12266e-05_rb,0.13395e-05_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.73535e-06_rb,0.82690e-06_rb,0.92099e-06_rb,0.10159e-05_rb,0.11099e-05_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.59728e-06_rb,0.67301e-06_rb,0.75127e-06_rb,0.83021e-06_rb,0.90845e-06_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.48484e-06_rb,0.54737e-06_rb,0.61229e-06_rb,0.67762e-06_rb,0.74258e-06_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.39347e-06_rb,0.44485e-06_rb,0.49886e-06_rb,0.55290e-06_rb,0.60674e-06_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.31488e-06_rb,0.35703e-06_rb,0.40148e-06_rb,0.44640e-06_rb,0.49091e-06_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.25130e-06_rb,0.28561e-06_rb,0.32224e-06_rb,0.35953e-06_rb,0.39618e-06_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.20030e-06_rb,0.22840e-06_rb,0.25834e-06_rb,0.28930e-06_rb,0.31965e-06_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.15807e-06_rb,0.18109e-06_rb,0.20542e-06_rb,0.23094e-06_rb,0.25635e-06_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.12418e-06_rb,0.14282e-06_rb,0.16261e-06_rb,0.18364e-06_rb,0.20465e-06_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.97383e-07_rb,0.11245e-06_rb,0.12855e-06_rb,0.14572e-06_rb,0.16307e-06_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.76015e-07_rb,0.88067e-07_rb,0.10120e-06_rb,0.11510e-06_rb,0.12935e-06_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.58813e-07_rb,0.68493e-07_rb,0.79102e-07_rb,0.90273e-07_rb,0.10200e-06_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.45440e-07_rb,0.53144e-07_rb,0.61597e-07_rb,0.70639e-07_rb,0.80255e-07_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.35015e-07_rb,0.41136e-07_rb,0.47869e-07_rb,0.55216e-07_rb,0.62994e-07_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.27056e-07_rb,0.31910e-07_rb,0.37267e-07_rb,0.43210e-07_rb,0.49522e-07_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.20908e-07_rb,0.24756e-07_rb,0.29044e-07_rb,0.33791e-07_rb,0.38904e-07_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.16131e-07_rb,0.19181e-07_rb,0.22589e-07_rb,0.26378e-07_rb,0.30504e-07_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.12418e-07_rb,0.14835e-07_rb,0.17537e-07_rb,0.20547e-07_rb,0.23860e-07_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.95994e-08_rb,0.11514e-07_rb,0.13662e-07_rb,0.16065e-07_rb,0.18717e-07_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.74239e-08_rb,0.89453e-08_rb,0.10656e-07_rb,0.12569e-07_rb,0.14693e-07_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.57300e-08_rb,0.69441e-08_rb,0.83030e-08_rb,0.98193e-08_rb,0.11523e-07_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.44152e-08_rb,0.53811e-08_rb,0.64581e-08_rb,0.76610e-08_rb,0.90201e-08_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.34072e-08_rb,0.41708e-08_rb,0.50297e-08_rb,0.59876e-08_rb,0.70684e-08_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.27302e-08_rb,0.33492e-08_rb,0.40481e-08_rb,0.48266e-08_rb,0.57046e-08_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.12015e-03_rb,0.13920e-03_rb,0.15937e-03_rb,0.18001e-03_rb,0.19929e-03_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.10256e-03_rb,0.11883e-03_rb,0.13587e-03_rb,0.15259e-03_rb,0.16812e-03_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.87203e-04_rb,0.10099e-03_rb,0.11498e-03_rb,0.12847e-03_rb,0.14114e-03_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.73859e-04_rb,0.85304e-04_rb,0.96816e-04_rb,0.10774e-03_rb,0.11805e-03_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.62334e-04_rb,0.71786e-04_rb,0.81225e-04_rb,0.90091e-04_rb,0.98454e-04_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.52581e-04_rb,0.60344e-04_rb,0.68018e-04_rb,0.75237e-04_rb,0.81903e-04_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.44197e-04_rb,0.50573e-04_rb,0.56840e-04_rb,0.62656e-04_rb,0.67968e-04_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.37151e-04_rb,0.42384e-04_rb,0.47494e-04_rb,0.52193e-04_rb,0.56467e-04_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.31193e-04_rb,0.35480e-04_rb,0.39600e-04_rb,0.43427e-04_rb,0.46870e-04_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.26374e-04_rb,0.29925e-04_rb,0.33224e-04_rb,0.36261e-04_rb,0.39040e-04_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.22315e-04_rb,0.25198e-04_rb,0.27833e-04_rb,0.30290e-04_rb,0.32509e-04_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.18883e-04_rb,0.21184e-04_rb,0.23291e-04_rb,0.25268e-04_rb,0.27046e-04_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.15977e-04_rb,0.17808e-04_rb,0.19529e-04_rb,0.21106e-04_rb,0.22533e-04_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.13524e-04_rb,0.14996e-04_rb,0.16391e-04_rb,0.17658e-04_rb,0.18796e-04_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.11433e-04_rb,0.12631e-04_rb,0.13757e-04_rb,0.14769e-04_rb,0.15677e-04_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.96558e-05_rb,0.10640e-04_rb,0.11537e-04_rb,0.12357e-04_rb,0.13086e-04_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.81632e-05_rb,0.89560e-05_rb,0.96801e-05_rb,0.10339e-04_rb,0.10919e-04_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.68972e-05_rb,0.75321e-05_rb,0.81189e-05_rb,0.86418e-05_rb,0.91120e-05_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.58255e-05_rb,0.63427e-05_rb,0.68115e-05_rb,0.72291e-05_rb,0.76088e-05_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.49235e-05_rb,0.53404e-05_rb,0.57128e-05_rb,0.60450e-05_rb,0.63540e-05_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.41602e-05_rb,0.44904e-05_rb,0.47873e-05_rb,0.50567e-05_rb,0.53085e-05_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.34993e-05_rb,0.37640e-05_rb,0.40033e-05_rb,0.42217e-05_rb,0.44321e-05_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.29168e-05_rb,0.31331e-05_rb,0.33264e-05_rb,0.35072e-05_rb,0.36808e-05_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.24105e-05_rb,0.25863e-05_rb,0.27459e-05_rb,0.28969e-05_rb,0.30433e-05_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.19699e-05_rb,0.21167e-05_rb,0.22499e-05_rb,0.23751e-05_rb,0.24984e-05_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.16085e-05_rb,0.17316e-05_rb,0.18431e-05_rb,0.19482e-05_rb,0.20520e-05_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.13140e-05_rb,0.14172e-05_rb,0.15102e-05_rb,0.15989e-05_rb,0.16862e-05_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.10643e-05_rb,0.11518e-05_rb,0.12300e-05_rb,0.13052e-05_rb,0.13789e-05_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.86103e-06_rb,0.93494e-06_rb,0.10013e-05_rb,0.10648e-05_rb,0.11275e-05_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.69566e-06_rb,0.75803e-06_rb,0.81468e-06_rb,0.86817e-06_rb,0.92113e-06_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.55856e-06_rb,0.61135e-06_rb,0.65992e-06_rb,0.70501e-06_rb,0.74915e-06_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.44644e-06_rb,0.49113e-06_rb,0.53284e-06_rb,0.57066e-06_rb,0.60776e-06_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.35638e-06_rb,0.39386e-06_rb,0.42947e-06_rb,0.46192e-06_rb,0.49295e-06_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.28317e-06_rb,0.31490e-06_rb,0.34503e-06_rb,0.37276e-06_rb,0.39894e-06_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.22341e-06_rb,0.25002e-06_rb,0.27560e-06_rb,0.29957e-06_rb,0.32144e-06_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.17554e-06_rb,0.19798e-06_rb,0.21962e-06_rb,0.24010e-06_rb,0.25876e-06_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.13737e-06_rb,0.15642e-06_rb,0.17451e-06_rb,0.19192e-06_rb,0.20795e-06_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.10754e-06_rb,0.12357e-06_rb,0.13879e-06_rb,0.15343e-06_rb,0.16712e-06_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.84121e-07_rb,0.97441e-07_rb,0.11018e-06_rb,0.12256e-06_rb,0.13419e-06_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.65604e-07_rb,0.76564e-07_rb,0.87356e-07_rb,0.97703e-07_rb,0.10745e-06_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.50943e-07_rb,0.59988e-07_rb,0.69048e-07_rb,0.77629e-07_rb,0.85933e-07_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.39679e-07_rb,0.47121e-07_rb,0.54614e-07_rb,0.61766e-07_rb,0.68783e-07_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.30934e-07_rb,0.36980e-07_rb,0.43113e-07_rb,0.49142e-07_rb,0.55005e-07_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.24050e-07_rb,0.28923e-07_rb,0.33993e-07_rb,0.39047e-07_rb,0.43928e-07_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.18660e-07_rb,0.22557e-07_rb,0.26748e-07_rb,0.30951e-07_rb,0.35000e-07_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.14488e-07_rb,0.17625e-07_rb,0.21043e-07_rb,0.24511e-07_rb,0.27884e-07_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.11674e-07_rb,0.14234e-07_rb,0.17044e-07_rb,0.19902e-07_rb,0.22702e-07_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.36288e-03_rb,0.38577e-03_rb,0.40824e-03_rb,0.43207e-03_rb,0.45772e-03_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.30781e-03_rb,0.32754e-03_rb,0.34745e-03_rb,0.36873e-03_rb,0.39050e-03_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.26023e-03_rb,0.27734e-03_rb,0.29481e-03_rb,0.31288e-03_rb,0.33087e-03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.21963e-03_rb,0.23414e-03_rb,0.24882e-03_rb,0.26383e-03_rb,0.27866e-03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.18486e-03_rb,0.19716e-03_rb,0.20932e-03_rb,0.22139e-03_rb,0.23350e-03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.15516e-03_rb,0.16534e-03_rb,0.17526e-03_rb,0.18520e-03_rb,0.19528e-03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.12986e-03_rb,0.13820e-03_rb,0.14634e-03_rb,0.15465e-03_rb,0.16304e-03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.10854e-03_rb,0.11542e-03_rb,0.12213e-03_rb,0.12898e-03_rb,0.13583e-03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.90628e-04_rb,0.96255e-04_rb,0.10177e-03_rb,0.10738e-03_rb,0.11299e-03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.75891e-04_rb,0.80410e-04_rb,0.85018e-04_rb,0.89561e-04_rb,0.94064e-04_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.63476e-04_rb,0.67177e-04_rb,0.70959e-04_rb,0.74590e-04_rb,0.78334e-04_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.52999e-04_rb,0.56057e-04_rb,0.59157e-04_rb,0.62167e-04_rb,0.65272e-04_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.44256e-04_rb,0.46783e-04_rb,0.49281e-04_rb,0.51789e-04_rb,0.54376e-04_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.37011e-04_rb,0.39100e-04_rb,0.41098e-04_rb,0.43198e-04_rb,0.45322e-04_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.30966e-04_rb,0.32635e-04_rb,0.34289e-04_rb,0.36026e-04_rb,0.37776e-04_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.25866e-04_rb,0.27210e-04_rb,0.28616e-04_rb,0.30009e-04_rb,0.31487e-04_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.21609e-04_rb,0.22715e-04_rb,0.23863e-04_rb,0.25052e-04_rb,0.26299e-04_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.18055e-04_rb,0.18981e-04_rb,0.19946e-04_rb,0.20948e-04_rb,0.21978e-04_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.15103e-04_rb,0.15890e-04_rb,0.16699e-04_rb,0.17556e-04_rb,0.18410e-04_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.12647e-04_rb,0.13313e-04_rb,0.14001e-04_rb,0.14715e-04_rb,0.15427e-04_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.10601e-04_rb,0.11164e-04_rb,0.11755e-04_rb,0.12351e-04_rb,0.12931e-04_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.88699e-05_rb,0.93482e-05_rb,0.98481e-05_rb,0.10351e-04_rb,0.10829e-04_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.73864e-05_rb,0.77932e-05_rb,0.82148e-05_rb,0.86289e-05_rb,0.90270e-05_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.61189e-05_rb,0.64631e-05_rb,0.68137e-05_rb,0.71535e-05_rb,0.74761e-05_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.50349e-05_rb,0.53216e-05_rb,0.56110e-05_rb,0.58984e-05_rb,0.61738e-05_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.41408e-05_rb,0.43804e-05_rb,0.46209e-05_rb,0.48585e-05_rb,0.50962e-05_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.34100e-05_rb,0.36097e-05_rb,0.38105e-05_rb,0.40114e-05_rb,0.42081e-05_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.27924e-05_rb,0.29567e-05_rb,0.31274e-05_rb,0.32925e-05_rb,0.34580e-05_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.22821e-05_rb,0.24196e-05_rb,0.25613e-05_rb,0.27009e-05_rb,0.28413e-05_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.18665e-05_rb,0.19799e-05_rb,0.20975e-05_rb,0.22150e-05_rb,0.23326e-05_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.15195e-05_rb,0.16130e-05_rb,0.17109e-05_rb,0.18095e-05_rb,0.19094e-05_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.12351e-05_rb,0.13129e-05_rb,0.13926e-05_rb,0.14756e-05_rb,0.15593e-05_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.10023e-05_rb,0.10671e-05_rb,0.11334e-05_rb,0.12033e-05_rb,0.12728e-05_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.81269e-06_rb,0.86595e-06_rb,0.92094e-06_rb,0.97875e-06_rb,0.10378e-05_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.65647e-06_rb,0.70081e-06_rb,0.74604e-06_rb,0.79395e-06_rb,0.84339e-06_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.53019e-06_rb,0.56638e-06_rb,0.60399e-06_rb,0.64368e-06_rb,0.68472e-06_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.42776e-06_rb,0.45739e-06_rb,0.48880e-06_rb,0.52108e-06_rb,0.55567e-06_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.34556e-06_rb,0.36989e-06_rb,0.39599e-06_rb,0.42284e-06_rb,0.45123e-06_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.27905e-06_rb,0.29932e-06_rb,0.32065e-06_rb,0.34295e-06_rb,0.36646e-06_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.22522e-06_rb,0.24196e-06_rb,0.25940e-06_rb,0.27788e-06_rb,0.29753e-06_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.18137e-06_rb,0.19527e-06_rb,0.20965e-06_rb,0.22512e-06_rb,0.24112e-06_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.14606e-06_rb,0.15795e-06_rb,0.16971e-06_rb,0.18256e-06_rb,0.19571e-06_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.11745e-06_rb,0.12764e-06_rb,0.13751e-06_rb,0.14796e-06_rb,0.15891e-06_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.94319e-07_rb,0.10301e-06_rb,0.11131e-06_rb,0.11979e-06_rb,0.12892e-06_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.75512e-07_rb,0.83064e-07_rb,0.90010e-07_rb,0.96928e-07_rb,0.10441e-06_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.60409e-07_rb,0.66900e-07_rb,0.72712e-07_rb,0.78451e-07_rb,0.84657e-07_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.49299e-07_rb,0.54731e-07_rb,0.59628e-07_rb,0.64415e-07_rb,0.69585e-07_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.85498e-03_rb,0.88654e-03_rb,0.92216e-03_rb,0.96018e-03_rb,0.10038e-02_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.72755e-03_rb,0.75503e-03_rb,0.78615e-03_rb,0.82104e-03_rb,0.86252e-03_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.61644e-03_rb,0.64130e-03_rb,0.66934e-03_rb,0.70298e-03_rb,0.74077e-03_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.52100e-03_rb,0.54364e-03_rb,0.57046e-03_rb,0.60137e-03_rb,0.63388e-03_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.43945e-03_rb,0.46060e-03_rb,0.48533e-03_rb,0.51276e-03_rb,0.54036e-03_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.37082e-03_rb,0.39025e-03_rb,0.41242e-03_rb,0.43532e-03_rb,0.45905e-03_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.31280e-03_rb,0.33005e-03_rb,0.34867e-03_rb,0.36806e-03_rb,0.38776e-03_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.26373e-03_rb,0.27881e-03_rb,0.29445e-03_rb,0.31046e-03_rb,0.32667e-03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.22211e-03_rb,0.23470e-03_rb,0.24766e-03_rb,0.26115e-03_rb,0.27459e-03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.18729e-03_rb,0.19773e-03_rb,0.20869e-03_rb,0.22010e-03_rb,0.23102e-03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.15755e-03_rb,0.16634e-03_rb,0.17574e-03_rb,0.18527e-03_rb,0.19396e-03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.13244e-03_rb,0.14003e-03_rb,0.14791e-03_rb,0.15556e-03_rb,0.16235e-03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.11137e-03_rb,0.11779e-03_rb,0.12437e-03_rb,0.13036e-03_rb,0.13579e-03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.93817e-04_rb,0.99206e-04_rb,0.10452e-03_rb,0.10918e-03_rb,0.11356e-03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.79006e-04_rb,0.83531e-04_rb,0.87717e-04_rb,0.91355e-04_rb,0.95066e-04_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.66464e-04_rb,0.70180e-04_rb,0.73412e-04_rb,0.76548e-04_rb,0.79673e-04_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.55955e-04_rb,0.58876e-04_rb,0.61539e-04_rb,0.64161e-04_rb,0.66744e-04_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.47057e-04_rb,0.49392e-04_rb,0.51539e-04_rb,0.53762e-04_rb,0.55883e-04_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.39571e-04_rb,0.41398e-04_rb,0.43230e-04_rb,0.45052e-04_rb,0.46859e-04_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.33232e-04_rb,0.34753e-04_rb,0.36306e-04_rb,0.37802e-04_rb,0.39368e-04_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.27886e-04_rb,0.29183e-04_rb,0.30428e-04_rb,0.31753e-04_rb,0.33114e-04_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.23408e-04_rb,0.24477e-04_rb,0.25555e-04_rb,0.26683e-04_rb,0.27811e-04_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.19576e-04_rb,0.20476e-04_rb,0.21380e-04_rb,0.22323e-04_rb,0.23289e-04_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.16284e-04_rb,0.17049e-04_rb,0.17816e-04_rb,0.18626e-04_rb,0.19444e-04_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.13488e-04_rb,0.14134e-04_rb,0.14781e-04_rb,0.15488e-04_rb,0.16173e-04_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.11176e-04_rb,0.11721e-04_rb,0.12278e-04_rb,0.12866e-04_rb,0.13450e-04_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.92494e-05_rb,0.97155e-05_rb,0.10200e-04_rb,0.10699e-04_rb,0.11199e-04_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.76168e-05_rb,0.80109e-05_rb,0.84197e-05_rb,0.88496e-05_rb,0.92853e-05_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.62645e-05_rb,0.66003e-05_rb,0.69472e-05_rb,0.73123e-05_rb,0.76881e-05_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.51581e-05_rb,0.54373e-05_rb,0.57325e-05_rb,0.60421e-05_rb,0.63612e-05_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.42336e-05_rb,0.44705e-05_rb,0.47241e-05_rb,0.49790e-05_rb,0.52554e-05_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.34635e-05_rb,0.36643e-05_rb,0.38777e-05_rb,0.40942e-05_rb,0.43335e-05_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.28355e-05_rb,0.30041e-05_rb,0.31829e-05_rb,0.33678e-05_rb,0.35664e-05_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.23151e-05_rb,0.24589e-05_rb,0.26085e-05_rb,0.27655e-05_rb,0.29287e-05_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.18832e-05_rb,0.20045e-05_rb,0.21306e-05_rb,0.22633e-05_rb,0.24025e-05_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.15291e-05_rb,0.16326e-05_rb,0.17368e-05_rb,0.18516e-05_rb,0.19681e-05_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.12403e-05_rb,0.13270e-05_rb,0.14154e-05_rb,0.15108e-05_rb,0.16100e-05_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.10056e-05_rb,0.10792e-05_rb,0.11542e-05_rb,0.12335e-05_rb,0.13173e-05_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.81549e-06_rb,0.87791e-06_rb,0.94116e-06_rb,0.10080e-05_rb,0.10781e-05_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.66029e-06_rb,0.71307e-06_rb,0.76617e-06_rb,0.82179e-06_rb,0.88107e-06_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.53353e-06_rb,0.57858e-06_rb,0.62276e-06_rb,0.66919e-06_rb,0.71931e-06_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.43199e-06_rb,0.46970e-06_rb,0.50695e-06_rb,0.54584e-06_rb,0.58793e-06_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.34966e-06_rb,0.38119e-06_rb,0.41298e-06_rb,0.44530e-06_rb,0.48058e-06_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.28227e-06_rb,0.30903e-06_rb,0.33563e-06_rb,0.36285e-06_rb,0.39216e-06_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.22764e-06_rb,0.25006e-06_rb,0.27265e-06_rb,0.29503e-06_rb,0.31940e-06_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.18380e-06_rb,0.20248e-06_rb,0.22144e-06_rb,0.24002e-06_rb,0.25999e-06_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.15102e-06_rb,0.16680e-06_rb,0.18267e-06_rb,0.19825e-06_rb,0.21512e-06_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.20763e-02_rb,0.21202e-02_rb,0.21697e-02_rb,0.22297e-02_rb,0.22985e-02_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.17631e-02_rb,0.18004e-02_rb,0.18452e-02_rb,0.18998e-02_rb,0.19604e-02_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.14970e-02_rb,0.15286e-02_rb,0.15695e-02_rb,0.16172e-02_rb,0.16748e-02_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.12672e-02_rb,0.12965e-02_rb,0.13340e-02_rb,0.13795e-02_rb,0.14367e-02_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.10695e-02_rb,0.10974e-02_rb,0.11329e-02_rb,0.11783e-02_rb,0.12365e-02_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.90477e-03_rb,0.93070e-03_rb,0.96470e-03_rb,0.10105e-02_rb,0.10654e-02_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.76431e-03_rb,0.79078e-03_rb,0.82660e-03_rb,0.86991e-03_rb,0.91843e-03_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.64676e-03_rb,0.67404e-03_rb,0.70901e-03_rb,0.74996e-03_rb,0.79243e-03_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.54776e-03_rb,0.57523e-03_rb,0.60880e-03_rb,0.64511e-03_rb,0.68243e-03_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.46614e-03_rb,0.49254e-03_rb,0.52330e-03_rb,0.55502e-03_rb,0.58894e-03_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.39726e-03_rb,0.42201e-03_rb,0.44841e-03_rb,0.47653e-03_rb,0.50717e-03_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.33898e-03_rb,0.36121e-03_rb,0.38421e-03_rb,0.40924e-03_rb,0.43694e-03_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.28981e-03_rb,0.30891e-03_rb,0.32925e-03_rb,0.35185e-03_rb,0.37616e-03_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.24765e-03_rb,0.26436e-03_rb,0.28268e-03_rb,0.30306e-03_rb,0.32381e-03_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.21161e-03_rb,0.22639e-03_rb,0.24293e-03_rb,0.26080e-03_rb,0.27811e-03_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.18103e-03_rb,0.19425e-03_rb,0.20911e-03_rb,0.22426e-03_rb,0.23882e-03_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.15524e-03_rb,0.16726e-03_rb,0.18025e-03_rb,0.19313e-03_rb,0.20539e-03_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.13346e-03_rb,0.14432e-03_rb,0.15555e-03_rb,0.16625e-03_rb,0.17682e-03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.11513e-03_rb,0.12466e-03_rb,0.13417e-03_rb,0.14329e-03_rb,0.15286e-03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.99437e-04_rb,0.10768e-03_rb,0.11569e-03_rb,0.12397e-03_rb,0.13224e-03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.85975e-04_rb,0.92901e-04_rb,0.10007e-03_rb,0.10742e-03_rb,0.11487e-03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.74186e-04_rb,0.80283e-04_rb,0.86524e-04_rb,0.92965e-04_rb,0.99720e-04_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.63518e-04_rb,0.68833e-04_rb,0.74348e-04_rb,0.80205e-04_rb,0.86286e-04_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.53971e-04_rb,0.58710e-04_rb,0.63581e-04_rb,0.68731e-04_rb,0.74066e-04_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.45287e-04_rb,0.49433e-04_rb,0.53695e-04_rb,0.58207e-04_rb,0.62933e-04_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.37993e-04_rb,0.41562e-04_rb,0.45327e-04_rb,0.49315e-04_rb,0.53437e-04_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.31889e-04_rb,0.34954e-04_rb,0.38268e-04_rb,0.41760e-04_rb,0.45472e-04_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.26490e-04_rb,0.29130e-04_rb,0.31995e-04_rb,0.35094e-04_rb,0.38302e-04_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.21977e-04_rb,0.24258e-04_rb,0.26702e-04_rb,0.29405e-04_rb,0.32254e-04_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.18218e-04_rb,0.20180e-04_rb,0.22299e-04_rb,0.24616e-04_rb,0.27154e-04_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.15034e-04_rb,0.16668e-04_rb,0.18493e-04_rb,0.20514e-04_rb,0.22747e-04_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.12376e-04_rb,0.13730e-04_rb,0.15276e-04_rb,0.16983e-04_rb,0.18913e-04_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.10149e-04_rb,0.11314e-04_rb,0.12590e-04_rb,0.14099e-04_rb,0.15742e-04_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.82889e-05_rb,0.92859e-05_rb,0.10354e-04_rb,0.11603e-04_rb,0.13042e-04_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.67264e-05_rb,0.75707e-05_rb,0.84748e-05_rb,0.95081e-05_rb,0.10721e-04_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.54454e-05_rb,0.61678e-05_rb,0.69329e-05_rb,0.77845e-05_rb,0.87984e-05_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.43942e-05_rb,0.50075e-05_rb,0.56558e-05_rb,0.63802e-05_rb,0.72168e-05_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.35518e-05_rb,0.40682e-05_rb,0.46246e-05_rb,0.52318e-05_rb,0.59289e-05_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.28695e-05_rb,0.33032e-05_rb,0.37766e-05_rb,0.42938e-05_rb,0.48871e-05_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.23151e-05_rb,0.26733e-05_rb,0.30760e-05_rb,0.35184e-05_rb,0.40216e-05_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.18635e-05_rb,0.21569e-05_rb,0.24979e-05_rb,0.28705e-05_rb,0.33004e-05_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.15043e-05_rb,0.17492e-05_rb,0.20309e-05_rb,0.23469e-05_rb,0.27129e-05_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.12156e-05_rb,0.14170e-05_rb,0.16506e-05_rb,0.19188e-05_rb,0.22303e-05_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.98090e-06_rb,0.11440e-05_rb,0.13395e-05_rb,0.15647e-05_rb,0.18280e-05_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.79029e-06_rb,0.92216e-06_rb,0.10880e-05_rb,0.12732e-05_rb,0.14934e-05_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.63691e-06_rb,0.74365e-06_rb,0.88187e-06_rb,0.10375e-05_rb,0.12193e-05_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.52696e-06_rb,0.61783e-06_rb,0.73672e-06_rb,0.87054e-06_rb,0.10284e-05_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.57453e-02_rb,0.59077e-02_rb,0.61032e-02_rb,0.63038e-02_rb,0.65156e-02_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.49738e-02_rb,0.51301e-02_rb,0.52927e-02_rb,0.54623e-02_rb,0.56575e-02_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.43017e-02_rb,0.44326e-02_rb,0.45703e-02_rb,0.47292e-02_rb,0.49039e-02_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.37082e-02_rb,0.38170e-02_rb,0.39427e-02_rb,0.40844e-02_rb,0.42438e-02_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.31847e-02_rb,0.32833e-02_rb,0.33960e-02_rb,0.35252e-02_rb,0.36740e-02_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.27225e-02_rb,0.28155e-02_rb,0.29216e-02_rb,0.30449e-02_rb,0.31911e-02_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.23309e-02_rb,0.24127e-02_rb,0.25113e-02_rb,0.26325e-02_rb,0.27748e-02_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.19939e-02_rb,0.20703e-02_rb,0.21659e-02_rb,0.22816e-02_rb,0.24232e-02_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.17051e-02_rb,0.17809e-02_rb,0.18754e-02_rb,0.19919e-02_rb,0.21299e-02_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.14632e-02_rb,0.15412e-02_rb,0.16376e-02_rb,0.17554e-02_rb,0.18936e-02_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.12639e-02_rb,0.13422e-02_rb,0.14407e-02_rb,0.15575e-02_rb,0.16941e-02_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.10971e-02_rb,0.11767e-02_rb,0.12764e-02_rb,0.13939e-02_rb,0.15238e-02_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.95870e-03_rb,0.10413e-02_rb,0.11414e-02_rb,0.12556e-02_rb,0.13798e-02_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.84686e-03_rb,0.93021e-03_rb,0.10287e-02_rb,0.11374e-02_rb,0.12572e-02_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.75447e-03_rb,0.83724e-03_rb,0.93234e-03_rb,0.10369e-02_rb,0.11513e-02_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.67798e-03_rb,0.75937e-03_rb,0.85009e-03_rb,0.95072e-03_rb,0.10606e-02_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.61364e-03_rb,0.69262e-03_rb,0.77994e-03_rb,0.87674e-03_rb,0.98252e-03_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.55903e-03_rb,0.63520e-03_rb,0.71974e-03_rb,0.81322e-03_rb,0.91554e-03_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.51301e-03_rb,0.58698e-03_rb,0.66923e-03_rb,0.75972e-03_rb,0.85851e-03_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.47350e-03_rb,0.54617e-03_rb,0.62663e-03_rb,0.71470e-03_rb,0.81105e-03_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.44016e-03_rb,0.51136e-03_rb,0.58994e-03_rb,0.67638e-03_rb,0.77061e-03_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.40944e-03_rb,0.47900e-03_rb,0.55611e-03_rb,0.64143e-03_rb,0.73316e-03_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.37741e-03_rb,0.44487e-03_rb,0.52031e-03_rb,0.60323e-03_rb,0.69243e-03_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.34297e-03_rb,0.40766e-03_rb,0.48086e-03_rb,0.56132e-03_rb,0.64787e-03_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.30431e-03_rb,0.36499e-03_rb,0.43465e-03_rb,0.51167e-03_rb,0.59496e-03_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.26970e-03_rb,0.32665e-03_rb,0.39267e-03_rb,0.46706e-03_rb,0.54760e-03_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.23923e-03_rb,0.29254e-03_rb,0.35537e-03_rb,0.42706e-03_rb,0.50543e-03_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.20758e-03_rb,0.25688e-03_rb,0.31519e-03_rb,0.38349e-03_rb,0.45925e-03_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.17937e-03_rb,0.22435e-03_rb,0.27886e-03_rb,0.34337e-03_rb,0.41641e-03_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.15469e-03_rb,0.19589e-03_rb,0.24606e-03_rb,0.30674e-03_rb,0.37723e-03_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.13101e-03_rb,0.16796e-03_rb,0.21371e-03_rb,0.26992e-03_rb,0.33751e-03_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.10980e-03_rb,0.14260e-03_rb,0.18396e-03_rb,0.23557e-03_rb,0.29905e-03_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.91682e-04_rb,0.12045e-03_rb,0.15770e-03_rb,0.20472e-03_rb,0.26370e-03_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.75628e-04_rb,0.10059e-03_rb,0.13347e-03_rb,0.17595e-03_rb,0.22995e-03_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.61269e-04_rb,0.82597e-04_rb,0.11115e-03_rb,0.14863e-03_rb,0.19734e-03_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.49295e-04_rb,0.67304e-04_rb,0.91698e-04_rb,0.12475e-03_rb,0.16838e-03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.39400e-04_rb,0.54424e-04_rb,0.75252e-04_rb,0.10388e-03_rb,0.14254e-03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.31621e-04_rb,0.44130e-04_rb,0.61905e-04_rb,0.86583e-04_rb,0.12082e-03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.25214e-04_rb,0.35613e-04_rb,0.50609e-04_rb,0.71998e-04_rb,0.10219e-03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.20045e-04_rb,0.28626e-04_rb,0.41171e-04_rb,0.59458e-04_rb,0.85829e-04_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.15795e-04_rb,0.22859e-04_rb,0.33218e-04_rb,0.48810e-04_rb,0.71516e-04_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.12537e-04_rb,0.18343e-04_rb,0.26979e-04_rb,0.40183e-04_rb,0.59926e-04_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.99418e-05_rb,0.14675e-04_rb,0.21893e-04_rb,0.33017e-04_rb,0.50138e-04_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.78293e-05_rb,0.11672e-04_rb,0.17663e-04_rb,0.26975e-04_rb,0.41690e-04_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.61519e-05_rb,0.92383e-05_rb,0.14184e-04_rb,0.21901e-04_rb,0.34420e-04_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.48509e-05_rb,0.73119e-05_rb,0.11341e-04_rb,0.17783e-04_rb,0.28416e-04_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.41003e-05_rb,0.62461e-05_rb,0.98307e-05_rb,0.15678e-04_rb,0.25521e-04_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.31088e-01_rb,0.30978e-01_rb,0.31134e-01_rb,0.31580e-01_rb,0.32297e-01_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.26804e-01_rb,0.26913e-01_rb,0.27323e-01_rb,0.28019e-01_rb,0.28853e-01_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.23192e-01_rb,0.23530e-01_rb,0.24156e-01_rb,0.24918e-01_rb,0.25770e-01_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.20205e-01_rb,0.20738e-01_rb,0.21411e-01_rb,0.22189e-01_rb,0.23073e-01_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.17721e-01_rb,0.18309e-01_rb,0.19005e-01_rb,0.19816e-01_rb,0.20712e-01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.15569e-01_rb,0.16175e-01_rb,0.16902e-01_rb,0.17717e-01_rb,0.18588e-01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.13679e-01_rb,0.14314e-01_rb,0.15046e-01_rb,0.15840e-01_rb,0.16695e-01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.12060e-01_rb,0.12704e-01_rb,0.13416e-01_rb,0.14184e-01_rb,0.14994e-01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.10678e-01_rb,0.11296e-01_rb,0.11975e-01_rb,0.12694e-01_rb,0.13474e-01_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.95206e-02_rb,0.10114e-01_rb,0.10744e-01_rb,0.11429e-01_rb,0.12190e-01_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.85244e-02_rb,0.90705e-02_rb,0.96690e-02_rb,0.10334e-01_rb,0.11084e-01_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.76472e-02_rb,0.81682e-02_rb,0.87428e-02_rb,0.93948e-02_rb,0.10155e-01_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.68906e-02_rb,0.73887e-02_rb,0.79555e-02_rb,0.86116e-02_rb,0.93920e-02_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.62406e-02_rb,0.67330e-02_rb,0.73033e-02_rb,0.79807e-02_rb,0.87803e-02_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.56879e-02_rb,0.61818e-02_rb,0.67732e-02_rb,0.74721e-02_rb,0.82924e-02_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.52214e-02_rb,0.57290e-02_rb,0.63416e-02_rb,0.70614e-02_rb,0.79109e-02_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.48396e-02_rb,0.53718e-02_rb,0.60023e-02_rb,0.67493e-02_rb,0.76290e-02_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.45394e-02_rb,0.50868e-02_rb,0.57419e-02_rb,0.65213e-02_rb,0.74390e-02_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.42997e-02_rb,0.48721e-02_rb,0.55579e-02_rb,0.63736e-02_rb,0.73370e-02_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.41212e-02_rb,0.47209e-02_rb,0.54422e-02_rb,0.62987e-02_rb,0.73128e-02_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.39976e-02_rb,0.46295e-02_rb,0.53893e-02_rb,0.62949e-02_rb,0.73658e-02_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.39007e-02_rb,0.45672e-02_rb,0.53672e-02_rb,0.63167e-02_rb,0.74374e-02_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.37869e-02_rb,0.44770e-02_rb,0.53019e-02_rb,0.62849e-02_rb,0.74424e-02_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.36393e-02_rb,0.43376e-02_rb,0.51746e-02_rb,0.61726e-02_rb,0.73435e-02_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.34235e-02_rb,0.41098e-02_rb,0.49353e-02_rb,0.59226e-02_rb,0.70781e-02_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.32247e-02_rb,0.38981e-02_rb,0.47125e-02_rb,0.56849e-02_rb,0.68251e-02_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.30456e-02_rb,0.37107e-02_rb,0.45116e-02_rb,0.54683e-02_rb,0.65906e-02_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.28232e-02_rb,0.34654e-02_rb,0.42389e-02_rb,0.51610e-02_rb,0.62484e-02_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.26119e-02_rb,0.32290e-02_rb,0.39730e-02_rb,0.48613e-02_rb,0.59121e-02_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.24180e-02_rb,0.30088e-02_rb,0.37246e-02_rb,0.45813e-02_rb,0.55929e-02_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.22093e-02_rb,0.27691e-02_rb,0.34494e-02_rb,0.42630e-02_rb,0.52317e-02_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.20033e-02_rb,0.25304e-02_rb,0.31741e-02_rb,0.39439e-02_rb,0.48637e-02_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.18130e-02_rb,0.23086e-02_rb,0.29181e-02_rb,0.36487e-02_rb,0.45175e-02_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.16283e-02_rb,0.20910e-02_rb,0.26646e-02_rb,0.33526e-02_rb,0.41695e-02_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.14435e-02_rb,0.18702e-02_rb,0.24020e-02_rb,0.30439e-02_rb,0.38103e-02_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.12773e-02_rb,0.16671e-02_rb,0.21576e-02_rb,0.27587e-02_rb,0.34731e-02_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.11238e-02_rb,0.14806e-02_rb,0.19320e-02_rb,0.24920e-02_rb,0.31602e-02_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.99065e-03_rb,0.13211e-02_rb,0.17354e-02_rb,0.22582e-02_rb,0.28857e-02_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.87220e-03_rb,0.11790e-02_rb,0.15607e-02_rb,0.20453e-02_rb,0.26367e-02_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.76443e-03_rb,0.10482e-02_rb,0.13992e-02_rb,0.18469e-02_rb,0.24023e-02_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.66506e-03_rb,0.92645e-03_rb,0.12548e-02_rb,0.16624e-02_rb,0.21789e-02_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.58147e-03_rb,0.82449e-03_rb,0.11302e-02_rb,0.15093e-02_rb,0.19886e-02_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.50762e-03_rb,0.73235e-03_rb,0.10182e-02_rb,0.13732e-02_rb,0.18200e-02_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.44063e-03_rb,0.64710e-03_rb,0.91345e-03_rb,0.12471e-02_rb,0.16632e-02_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.37891e-03_rb,0.56859e-03_rb,0.81680e-03_rb,0.11290e-02_rb,0.15165e-02_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.32563e-03_rb,0.50022e-03_rb,0.73037e-03_rb,0.10236e-02_rb,0.13873e-02_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.30307e-03_rb,0.47208e-03_rb,0.69548e-03_rb,0.98198e-03_rb,0.13371e-02_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.13405e+00_rb,0.13208e+00_rb,0.13012e+00_rb,0.12819e+00_rb,0.12637e+00_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.11726e+00_rb,0.11549e+00_rb,0.11376e+00_rb,0.11219e+00_rb,0.11171e+00_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.10125e+00_rb,0.99749e-01_rb,0.98394e-01_rb,0.98385e-01_rb,0.99981e-01_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.86553e-01_rb,0.85383e-01_rb,0.85602e-01_rb,0.87440e-01_rb,0.89929e-01_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.73963e-01_rb,0.74028e-01_rb,0.75744e-01_rb,0.77969e-01_rb,0.80306e-01_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.64249e-01_rb,0.65620e-01_rb,0.67504e-01_rb,0.69584e-01_rb,0.72235e-01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.56934e-01_rb,0.58613e-01_rb,0.60462e-01_rb,0.62855e-01_rb,0.65899e-01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.50721e-01_rb,0.52418e-01_rb,0.54615e-01_rb,0.57565e-01_rb,0.61049e-01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.45027e-01_rb,0.47161e-01_rb,0.49911e-01_rb,0.53249e-01_rb,0.56950e-01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.40301e-01_rb,0.42891e-01_rb,0.46164e-01_rb,0.49801e-01_rb,0.53839e-01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.36438e-01_rb,0.39487e-01_rb,0.43011e-01_rb,0.46965e-01_rb,0.50969e-01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.33455e-01_rb,0.36675e-01_rb,0.40451e-01_rb,0.44369e-01_rb,0.48399e-01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.31038e-01_rb,0.34461e-01_rb,0.38146e-01_rb,0.42075e-01_rb,0.46138e-01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.29184e-01_rb,0.32533e-01_rb,0.36194e-01_rb,0.40134e-01_rb,0.44371e-01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.27607e-01_rb,0.30907e-01_rb,0.34540e-01_rb,0.38584e-01_rb,0.43101e-01_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.26262e-01_rb,0.29536e-01_rb,0.33259e-01_rb,0.37529e-01_rb,0.42311e-01_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.25199e-01_rb,0.28472e-01_rb,0.32405e-01_rb,0.36927e-01_rb,0.42052e-01_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.24317e-01_rb,0.27783e-01_rb,0.31948e-01_rb,0.36772e-01_rb,0.42176e-01_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.23777e-01_rb,0.27457e-01_rb,0.31879e-01_rb,0.37001e-01_rb,0.42663e-01_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.23540e-01_rb,0.27481e-01_rb,0.32177e-01_rb,0.37596e-01_rb,0.43567e-01_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.23597e-01_rb,0.27797e-01_rb,0.32792e-01_rb,0.38465e-01_rb,0.44641e-01_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.23769e-01_rb,0.28231e-01_rb,0.33430e-01_rb,0.39373e-01_rb,0.45740e-01_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.23751e-01_rb,0.28376e-01_rb,0.33764e-01_rb,0.39814e-01_rb,0.46255e-01_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.23409e-01_rb,0.28117e-01_rb,0.33564e-01_rb,0.39651e-01_rb,0.46138e-01_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.22508e-01_rb,0.27169e-01_rb,0.32556e-01_rb,0.38592e-01_rb,0.45071e-01_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.21655e-01_rb,0.26262e-01_rb,0.31543e-01_rb,0.37540e-01_rb,0.43984e-01_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.20895e-01_rb,0.25391e-01_rb,0.30600e-01_rb,0.36519e-01_rb,0.42890e-01_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.19794e-01_rb,0.24108e-01_rb,0.29157e-01_rb,0.34891e-01_rb,0.41215e-01_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.18688e-01_rb,0.22822e-01_rb,0.27713e-01_rb,0.33302e-01_rb,0.39460e-01_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.17627e-01_rb,0.21623e-01_rb,0.26302e-01_rb,0.31747e-01_rb,0.37731e-01_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.16446e-01_rb,0.20270e-01_rb,0.24738e-01_rb,0.29940e-01_rb,0.35800e-01_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.15234e-01_rb,0.18876e-01_rb,0.23100e-01_rb,0.28072e-01_rb,0.33725e-01_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.14095e-01_rb,0.17542e-01_rb,0.21553e-01_rb,0.26276e-01_rb,0.31735e-01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.12980e-01_rb,0.16215e-01_rb,0.20030e-01_rb,0.24474e-01_rb,0.29695e-01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.11800e-01_rb,0.14839e-01_rb,0.18423e-01_rb,0.22582e-01_rb,0.27493e-01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.10669e-01_rb,0.13547e-01_rb,0.16901e-01_rb,0.20822e-01_rb,0.25431e-01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.96515e-02_rb,0.12347e-01_rb,0.15476e-01_rb,0.19181e-01_rb,0.23474e-01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.87302e-02_rb,0.11282e-01_rb,0.14230e-01_rb,0.17719e-01_rb,0.21773e-01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.78879e-02_rb,0.10297e-01_rb,0.13106e-01_rb,0.16387e-01_rb,0.20218e-01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.71141e-02_rb,0.93631e-02_rb,0.12059e-01_rb,0.15140e-01_rb,0.18761e-01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.64033e-02_rb,0.84706e-02_rb,0.11019e-01_rb,0.13962e-01_rb,0.17391e-01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.58003e-02_rb,0.77325e-02_rb,0.10121e-01_rb,0.12913e-01_rb,0.16185e-01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.52567e-02_rb,0.70672e-02_rb,0.93006e-02_rb,0.11949e-01_rb,0.15064e-01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.47304e-02_rb,0.64466e-02_rb,0.85460e-02_rb,0.11037e-01_rb,0.13988e-01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.42280e-02_rb,0.58745e-02_rb,0.78453e-02_rb,0.10192e-01_rb,0.12992e-01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.37744e-02_rb,0.53584e-02_rb,0.72089e-02_rb,0.94309e-02_rb,0.12101e-01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.36027e-02_rb,0.51588e-02_rb,0.69694e-02_rb,0.91382e-02_rb,0.11759e-01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.24636e+00_rb,0.24379e+00_rb,0.24122e+00_rb,0.23863e+00_rb,0.23598e+00_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.22272e+00_rb,0.22032e+00_rb,0.21794e+00_rb,0.21559e+00_rb,0.21334e+00_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.19844e+00_rb,0.19619e+00_rb,0.19411e+00_rb,0.19222e+00_rb,0.19047e+00_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.17439e+00_rb,0.17254e+00_rb,0.17092e+00_rb,0.16946e+00_rb,0.16916e+00_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.15164e+00_rb,0.15027e+00_rb,0.14912e+00_rb,0.14939e+00_rb,0.15176e+00_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.13063e+00_rb,0.12971e+00_rb,0.13029e+00_rb,0.13302e+00_rb,0.13748e+00_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.11203e+00_rb,0.11247e+00_rb,0.11508e+00_rb,0.11959e+00_rb,0.12521e+00_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.96916e-01_rb,0.99041e-01_rb,0.10318e+00_rb,0.10837e+00_rb,0.11414e+00_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.85382e-01_rb,0.88824e-01_rb,0.93367e-01_rb,0.98603e-01_rb,0.10483e+00_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.76943e-01_rb,0.80844e-01_rb,0.85377e-01_rb,0.90964e-01_rb,0.97503e-01_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.70041e-01_rb,0.74136e-01_rb,0.79065e-01_rb,0.84905e-01_rb,0.92247e-01_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.64133e-01_rb,0.68708e-01_rb,0.74135e-01_rb,0.80762e-01_rb,0.88658e-01_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.59352e-01_rb,0.64474e-01_rb,0.70718e-01_rb,0.78064e-01_rb,0.86394e-01_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.55652e-01_rb,0.61613e-01_rb,0.68607e-01_rb,0.76451e-01_rb,0.85230e-01_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.53058e-01_rb,0.59792e-01_rb,0.67298e-01_rb,0.75623e-01_rb,0.84830e-01_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.51454e-01_rb,0.58747e-01_rb,0.66709e-01_rb,0.75478e-01_rb,0.85111e-01_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.50601e-01_rb,0.58412e-01_rb,0.66813e-01_rb,0.76014e-01_rb,0.86051e-01_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.50412e-01_rb,0.58677e-01_rb,0.67503e-01_rb,0.77079e-01_rb,0.87490e-01_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.50833e-01_rb,0.59491e-01_rb,0.68713e-01_rb,0.78659e-01_rb,0.89405e-01_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.51770e-01_rb,0.60792e-01_rb,0.70497e-01_rb,0.80769e-01_rb,0.91778e-01_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.53128e-01_rb,0.62590e-01_rb,0.72506e-01_rb,0.83033e-01_rb,0.94354e-01_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.54518e-01_rb,0.64238e-01_rb,0.74390e-01_rb,0.85011e-01_rb,0.96530e-01_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.55323e-01_rb,0.65129e-01_rb,0.75324e-01_rb,0.86085e-01_rb,0.97742e-01_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.55103e-01_rb,0.64989e-01_rb,0.75282e-01_rb,0.86060e-01_rb,0.97722e-01_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.53513e-01_rb,0.63398e-01_rb,0.73617e-01_rb,0.84326e-01_rb,0.95934e-01_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.51839e-01_rb,0.61729e-01_rb,0.71975e-01_rb,0.82585e-01_rb,0.94078e-01_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.50239e-01_rb,0.60161e-01_rb,0.70354e-01_rb,0.80923e-01_rb,0.92345e-01_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.47749e-01_rb,0.57519e-01_rb,0.67663e-01_rb,0.78238e-01_rb,0.89341e-01_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.45220e-01_rb,0.54835e-01_rb,0.64881e-01_rb,0.75369e-01_rb,0.86308e-01_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.42768e-01_rb,0.52225e-01_rb,0.62107e-01_rb,0.72467e-01_rb,0.83297e-01_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.39884e-01_rb,0.49090e-01_rb,0.58932e-01_rb,0.69072e-01_rb,0.79690e-01_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.36935e-01_rb,0.45822e-01_rb,0.55523e-01_rb,0.65525e-01_rb,0.76019e-01_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.34132e-01_rb,0.42684e-01_rb,0.52151e-01_rb,0.62095e-01_rb,0.72392e-01_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.31296e-01_rb,0.39456e-01_rb,0.48596e-01_rb,0.58446e-01_rb,0.68612e-01_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.28352e-01_rb,0.35994e-01_rb,0.44764e-01_rb,0.54432e-01_rb,0.64443e-01_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.25659e-01_rb,0.32738e-01_rb,0.41113e-01_rb,0.50437e-01_rb,0.60364e-01_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.23119e-01_rb,0.29700e-01_rb,0.37617e-01_rb,0.46554e-01_rb,0.56334e-01_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.20913e-01_rb,0.27063e-01_rb,0.34504e-01_rb,0.43055e-01_rb,0.52582e-01_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.18909e-01_rb,0.24701e-01_rb,0.31626e-01_rb,0.39797e-01_rb,0.48997e-01_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.17085e-01_rb,0.22478e-01_rb,0.28924e-01_rb,0.36689e-01_rb,0.45522e-01_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.15363e-01_rb,0.20405e-01_rb,0.26432e-01_rb,0.33725e-01_rb,0.42180e-01_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.13901e-01_rb,0.18604e-01_rb,0.24309e-01_rb,0.31149e-01_rb,0.39236e-01_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.12627e-01_rb,0.16988e-01_rb,0.22381e-01_rb,0.28834e-01_rb,0.36535e-01_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.11410e-01_rb,0.15484e-01_rb,0.20536e-01_rb,0.26668e-01_rb,0.33955e-01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.10296e-01_rb,0.14074e-01_rb,0.18805e-01_rb,0.24610e-01_rb,0.31477e-01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.93246e-02_rb,0.12835e-01_rb,0.17266e-01_rb,0.22752e-01_rb,0.29238e-01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.89562e-02_rb,0.12359e-01_rb,0.16676e-01_rb,0.22030e-01_rb,0.28380e-01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.46920e+00_rb,0.46679e+00_rb,0.46431e+00_rb,0.46162e+00_rb,0.45841e+00_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.44978e+00_rb,0.44747e+00_rb,0.44532e+00_rb,0.44273e+00_rb,0.44032e+00_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.42273e+00_rb,0.42112e+00_rb,0.41952e+00_rb,0.41793e+00_rb,0.41621e+00_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.39050e+00_rb,0.38973e+00_rb,0.38909e+00_rb,0.38861e+00_rb,0.38845e+00_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.35567e+00_rb,0.35584e+00_rb,0.35648e+00_rb,0.35743e+00_rb,0.35846e+00_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.32023e+00_rb,0.32164e+00_rb,0.32356e+00_rb,0.32582e+00_rb,0.32854e+00_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.28599e+00_rb,0.28851e+00_rb,0.29173e+00_rb,0.29552e+00_rb,0.30048e+00_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.25381e+00_rb,0.25750e+00_rb,0.26208e+00_rb,0.26822e+00_rb,0.27683e+00_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.22440e+00_rb,0.22938e+00_rb,0.23617e+00_rb,0.24559e+00_rb,0.25713e+00_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.19852e+00_rb,0.20554e+00_rb,0.21550e+00_rb,0.22788e+00_rb,0.24207e+00_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.17693e+00_rb,0.18660e+00_rb,0.19922e+00_rb,0.21410e+00_rb,0.23064e+00_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.16009e+00_rb,0.17209e+00_rb,0.18673e+00_rb,0.20389e+00_rb,0.22257e+00_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.14745e+00_rb,0.16127e+00_rb,0.17793e+00_rb,0.19685e+00_rb,0.21752e+00_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.13842e+00_rb,0.15401e+00_rb,0.17237e+00_rb,0.19313e+00_rb,0.21550e+00_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.13240e+00_rb,0.14962e+00_rb,0.16961e+00_rb,0.19199e+00_rb,0.21568e+00_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.12889e+00_rb,0.14761e+00_rb,0.16917e+00_rb,0.19286e+00_rb,0.21743e+00_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.12765e+00_rb,0.14781e+00_rb,0.17068e+00_rb,0.19527e+00_rb,0.22046e+00_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.12821e+00_rb,0.14964e+00_rb,0.17352e+00_rb,0.19873e+00_rb,0.22436e+00_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.13031e+00_rb,0.15282e+00_rb,0.17742e+00_rb,0.20308e+00_rb,0.22902e+00_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.13354e+00_rb,0.15691e+00_rb,0.18189e+00_rb,0.20791e+00_rb,0.23394e+00_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.13759e+00_rb,0.16158e+00_rb,0.18710e+00_rb,0.21336e+00_rb,0.23934e+00_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.14143e+00_rb,0.16592e+00_rb,0.19181e+00_rb,0.21830e+00_rb,0.24425e+00_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.14328e+00_rb,0.16813e+00_rb,0.19433e+00_rb,0.22092e+00_rb,0.24688e+00_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.14288e+00_rb,0.16783e+00_rb,0.19405e+00_rb,0.22076e+00_rb,0.24684e+00_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.13900e+00_rb,0.16377e+00_rb,0.19000e+00_rb,0.21677e+00_rb,0.24302e+00_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.13517e+00_rb,0.15969e+00_rb,0.18575e+00_rb,0.21259e+00_rb,0.23902e+00_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.13148e+00_rb,0.15568e+00_rb,0.18162e+00_rb,0.20849e+00_rb,0.23507e+00_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.12553e+00_rb,0.14932e+00_rb,0.17494e+00_rb,0.20171e+00_rb,0.22853e+00_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.11952e+00_rb,0.14280e+00_rb,0.16803e+00_rb,0.19459e+00_rb,0.22156e+00_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.11373e+00_rb,0.13636e+00_rb,0.16129e+00_rb,0.18763e+00_rb,0.21464e+00_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.10701e+00_rb,0.12880e+00_rb,0.15312e+00_rb,0.17916e+00_rb,0.20617e+00_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.10010e+00_rb,0.12097e+00_rb,0.14449e+00_rb,0.17006e+00_rb,0.19689e+00_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.93559e-01_rb,0.11347e+00_rb,0.13614e+00_rb,0.16117e+00_rb,0.18764e+00_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.86985e-01_rb,0.10587e+00_rb,0.12759e+00_rb,0.15183e+00_rb,0.17790e+00_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.79918e-01_rb,0.97829e-01_rb,0.11842e+00_rb,0.14172e+00_rb,0.16718e+00_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.73127e-01_rb,0.90284e-01_rb,0.10972e+00_rb,0.13198e+00_rb,0.15666e+00_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.66713e-01_rb,0.83137e-01_rb,0.10149e+00_rb,0.12264e+00_rb,0.14642e+00_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.61017e-01_rb,0.76653e-01_rb,0.94210e-01_rb,0.11429e+00_rb,0.13713e+00_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.55806e-01_rb,0.70628e-01_rb,0.87552e-01_rb,0.10658e+00_rb,0.12844e+00_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.50954e-01_rb,0.64939e-01_rb,0.81159e-01_rb,0.99264e-01_rb,0.12011e+00_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.46354e-01_rb,0.59512e-01_rb,0.74951e-01_rb,0.92338e-01_rb,0.11214e+00_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.42433e-01_rb,0.54851e-01_rb,0.69504e-01_rb,0.86317e-01_rb,0.10517e+00_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.38912e-01_rb,0.50588e-01_rb,0.64547e-01_rb,0.80719e-01_rb,0.98779e-01_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.35756e-01_rb,0.46572e-01_rb,0.59794e-01_rb,0.75289e-01_rb,0.92719e-01_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.32896e-01_rb,0.42811e-01_rb,0.55328e-01_rb,0.70070e-01_rb,0.86950e-01_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.30447e-01_rb,0.39485e-01_rb,0.51269e-01_rb,0.65351e-01_rb,0.81643e-01_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.29531e-01_rb,0.38222e-01_rb,0.49696e-01_rb,0.63514e-01_rb,0.79546e-01_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.87498e+00_rb,0.87414e+00_rb,0.87195e+00_rb,0.86869e+00_rb,0.86437e+00_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.90060e+00_rb,0.89974e+00_rb,0.89734e+00_rb,0.89423e+00_rb,0.88971e+00_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.91305e+00_rb,0.91211e+00_rb,0.91072e+00_rb,0.90792e+00_rb,0.90457e+00_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.91218e+00_rb,0.91265e+00_rb,0.91216e+00_rb,0.91150e+00_rb,0.90908e+00_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.89877e+00_rb,0.90187e+00_rb,0.90414e+00_rb,0.90531e+00_rb,0.90588e+00_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.87718e+00_rb,0.88256e+00_rb,0.88815e+00_rb,0.89271e+00_rb,0.89636e+00_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.84784e+00_rb,0.85815e+00_rb,0.86718e+00_rb,0.87552e+00_rb,0.88267e+00_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.81552e+00_rb,0.83012e+00_rb,0.84379e+00_rb,0.85649e+00_rb,0.86736e+00_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.78216e+00_rb,0.80141e+00_rb,0.82018e+00_rb,0.83708e+00_rb,0.85197e+00_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.75119e+00_rb,0.77590e+00_rb,0.79904e+00_rb,0.81994e+00_rb,0.83870e+00_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.72390e+00_rb,0.75373e+00_rb,0.78079e+00_rb,0.80579e+00_rb,0.82760e+00_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.70145e+00_rb,0.73523e+00_rb,0.76640e+00_rb,0.79456e+00_rb,0.81899e+00_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.68406e+00_rb,0.72159e+00_rb,0.75604e+00_rb,0.78669e+00_rb,0.81321e+00_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.67200e+00_rb,0.71253e+00_rb,0.74968e+00_rb,0.78214e+00_rb,0.81015e+00_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.66447e+00_rb,0.70740e+00_rb,0.74639e+00_rb,0.77996e+00_rb,0.80903e+00_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.66095e+00_rb,0.70586e+00_rb,0.74565e+00_rb,0.77995e+00_rb,0.80973e+00_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.66138e+00_rb,0.70727e+00_rb,0.74725e+00_rb,0.78204e+00_rb,0.81205e+00_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.66437e+00_rb,0.71055e+00_rb,0.75066e+00_rb,0.78572e+00_rb,0.81538e+00_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.66969e+00_rb,0.71558e+00_rb,0.75561e+00_rb,0.79049e+00_rb,0.81954e+00_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.67664e+00_rb,0.72206e+00_rb,0.76182e+00_rb,0.79609e+00_rb,0.82431e+00_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.68486e+00_rb,0.72960e+00_rb,0.76872e+00_rb,0.80214e+00_rb,0.82949e+00_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.69234e+00_rb,0.73624e+00_rb,0.77485e+00_rb,0.80729e+00_rb,0.83397e+00_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.69580e+00_rb,0.73958e+00_rb,0.77791e+00_rb,0.80990e+00_rb,0.83618e+00_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.69461e+00_rb,0.73878e+00_rb,0.77738e+00_rb,0.80959e+00_rb,0.83608e+00_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.68652e+00_rb,0.73194e+00_rb,0.77165e+00_rb,0.80500e+00_rb,0.83229e+00_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.67804e+00_rb,0.72484e+00_rb,0.76560e+00_rb,0.80009e+00_rb,0.82834e+00_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.66970e+00_rb,0.71778e+00_rb,0.75963e+00_rb,0.79504e+00_rb,0.82429e+00_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.65605e+00_rb,0.70590e+00_rb,0.74946e+00_rb,0.78658e+00_rb,0.81742e+00_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.64137e+00_rb,0.69306e+00_rb,0.73837e+00_rb,0.77717e+00_rb,0.80985e+00_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.62638e+00_rb,0.67987e+00_rb,0.72699e+00_rb,0.76756e+00_rb,0.80186e+00_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.60761e+00_rb,0.66320e+00_rb,0.71239e+00_rb,0.75526e+00_rb,0.79130e+00_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.58682e+00_rb,0.64468e+00_rb,0.69616e+00_rb,0.74131e+00_rb,0.77948e+00_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.56554e+00_rb,0.62545e+00_rb,0.67917e+00_rb,0.72630e+00_rb,0.76697e+00_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.54212e+00_rb,0.60419e+00_rb,0.66020e+00_rb,0.70997e+00_rb,0.75300e+00_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.51537e+00_rb,0.57955e+00_rb,0.63814e+00_rb,0.69060e+00_rb,0.73632e+00_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.48823e+00_rb,0.55406e+00_rb,0.61515e+00_rb,0.67007e+00_rb,0.71851e+00_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.46082e+00_rb,0.52769e+00_rb,0.59101e+00_rb,0.64854e+00_rb,0.69978e+00_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.43478e+00_rb,0.50249e+00_rb,0.56761e+00_rb,0.62745e+00_rb,0.68113e+00_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.40951e+00_rb,0.47777e+00_rb,0.54418e+00_rb,0.60613e+00_rb,0.66212e+00_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.38439e+00_rb,0.45288e+00_rb,0.52007e+00_rb,0.58405e+00_rb,0.64238e+00_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.35936e+00_rb,0.42773e+00_rb,0.49564e+00_rb,0.56121e+00_rb,0.62177e+00_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.33659e+00_rb,0.40461e+00_rb,0.47296e+00_rb,0.53959e+00_rb,0.60208e+00_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.31505e+00_rb,0.38259e+00_rb,0.45108e+00_rb,0.51845e+00_rb,0.58256e+00_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.29381e+00_rb,0.36074e+00_rb,0.42910e+00_rb,0.49702e+00_rb,0.56263e+00_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.27284e+00_rb,0.33897e+00_rb,0.40701e+00_rb,0.47542e+00_rb,0.54206e+00_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.25321e+00_rb,0.31859e+00_rb,0.38622e+00_rb,0.45477e+00_rb,0.52205e+00_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.24543e+00_rb,0.31049e+00_rb,0.37793e+00_rb,0.44646e+00_rb,0.51396e+00_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.17373e+01_rb,0.17393e+01_rb,0.17383e+01_rb,0.17344e+01_rb,0.17279e+01_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.18339e+01_rb,0.18343e+01_rb,0.18325e+01_rb,0.18267e+01_rb,0.18189e+01_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.19299e+01_rb,0.19296e+01_rb,0.19248e+01_rb,0.19184e+01_rb,0.19080e+01_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.20259e+01_rb,0.20224e+01_rb,0.20169e+01_rb,0.20066e+01_rb,0.19945e+01_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.21175e+01_rb,0.21127e+01_rb,0.21039e+01_rb,0.20921e+01_rb,0.20768e+01_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.22042e+01_rb,0.21972e+01_rb,0.21859e+01_rb,0.21721e+01_rb,0.21537e+01_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.22848e+01_rb,0.22747e+01_rb,0.22622e+01_rb,0.22448e+01_rb,0.22240e+01_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.23560e+01_rb,0.23462e+01_rb,0.23302e+01_rb,0.23098e+01_rb,0.22867e+01_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.24183e+01_rb,0.24082e+01_rb,0.23905e+01_rb,0.23680e+01_rb,0.23418e+01_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.24717e+01_rb,0.24598e+01_rb,0.24413e+01_rb,0.24169e+01_rb,0.23867e+01_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.25171e+01_rb,0.25034e+01_rb,0.24840e+01_rb,0.24570e+01_rb,0.24242e+01_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.25547e+01_rb,0.25403e+01_rb,0.25194e+01_rb,0.24898e+01_rb,0.24547e+01_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.25855e+01_rb,0.25703e+01_rb,0.25468e+01_rb,0.25156e+01_rb,0.24784e+01_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.26110e+01_rb,0.25944e+01_rb,0.25683e+01_rb,0.25352e+01_rb,0.24957e+01_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.26319e+01_rb,0.26130e+01_rb,0.25843e+01_rb,0.25495e+01_rb,0.25077e+01_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.26480e+01_rb,0.26264e+01_rb,0.25959e+01_rb,0.25590e+01_rb,0.25150e+01_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.26603e+01_rb,0.26355e+01_rb,0.26036e+01_rb,0.25644e+01_rb,0.25186e+01_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.26690e+01_rb,0.26417e+01_rb,0.26076e+01_rb,0.25661e+01_rb,0.25188e+01_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.26742e+01_rb,0.26446e+01_rb,0.26086e+01_rb,0.25648e+01_rb,0.25163e+01_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.26768e+01_rb,0.26452e+01_rb,0.26068e+01_rb,0.25609e+01_rb,0.25113e+01_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.26771e+01_rb,0.26434e+01_rb,0.26028e+01_rb,0.25551e+01_rb,0.25044e+01_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.26762e+01_rb,0.26409e+01_rb,0.25981e+01_rb,0.25494e+01_rb,0.24981e+01_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.26773e+01_rb,0.26407e+01_rb,0.25970e+01_rb,0.25475e+01_rb,0.24957e+01_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.26808e+01_rb,0.26440e+01_rb,0.25999e+01_rb,0.25501e+01_rb,0.24981e+01_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.26888e+01_rb,0.26526e+01_rb,0.26095e+01_rb,0.25599e+01_rb,0.25079e+01_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.26963e+01_rb,0.26609e+01_rb,0.26186e+01_rb,0.25695e+01_rb,0.25177e+01_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.27030e+01_rb,0.26686e+01_rb,0.26272e+01_rb,0.25787e+01_rb,0.25269e+01_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.27118e+01_rb,0.26792e+01_rb,0.26399e+01_rb,0.25927e+01_rb,0.25414e+01_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.27201e+01_rb,0.26898e+01_rb,0.26520e+01_rb,0.26068e+01_rb,0.25561e+01_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.27274e+01_rb,0.27000e+01_rb,0.26636e+01_rb,0.26203e+01_rb,0.25704e+01_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.27341e+01_rb,0.27108e+01_rb,0.26767e+01_rb,0.26357e+01_rb,0.25871e+01_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.27398e+01_rb,0.27209e+01_rb,0.26898e+01_rb,0.26513e+01_rb,0.26050e+01_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.27435e+01_rb,0.27298e+01_rb,0.27021e+01_rb,0.26655e+01_rb,0.26220e+01_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.27454e+01_rb,0.27371e+01_rb,0.27139e+01_rb,0.26799e+01_rb,0.26391e+01_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.27460e+01_rb,0.27424e+01_rb,0.27253e+01_rb,0.26950e+01_rb,0.26569e+01_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.27436e+01_rb,0.27457e+01_rb,0.27342e+01_rb,0.27088e+01_rb,0.26736e+01_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.27370e+01_rb,0.27470e+01_rb,0.27411e+01_rb,0.27207e+01_rb,0.26888e+01_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.27269e+01_rb,0.27459e+01_rb,0.27451e+01_rb,0.27305e+01_rb,0.27022e+01_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.27139e+01_rb,0.27424e+01_rb,0.27470e+01_rb,0.27377e+01_rb,0.27140e+01_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.26965e+01_rb,0.27350e+01_rb,0.27474e+01_rb,0.27429e+01_rb,0.27243e+01_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.26758e+01_rb,0.27241e+01_rb,0.27457e+01_rb,0.27461e+01_rb,0.27331e+01_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.26529e+01_rb,0.27108e+01_rb,0.27417e+01_rb,0.27475e+01_rb,0.27393e+01_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.26271e+01_rb,0.26955e+01_rb,0.27349e+01_rb,0.27476e+01_rb,0.27437e+01_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.25970e+01_rb,0.26775e+01_rb,0.27251e+01_rb,0.27462e+01_rb,0.27464e+01_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.25617e+01_rb,0.26559e+01_rb,0.27125e+01_rb,0.27426e+01_rb,0.27477e+01_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.25247e+01_rb,0.26320e+01_rb,0.26988e+01_rb,0.27363e+01_rb,0.27482e+01_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.25089e+01_rb,0.26212e+01_rb,0.26923e+01_rb,0.27333e+01_rb,0.27480e+01_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.36859e+01_rb,0.36950e+01_rb,0.36942e+01_rb,0.36830e+01_rb,0.36649e+01_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.41563e+01_rb,0.41556e+01_rb,0.41430e+01_rb,0.41233e+01_rb,0.40913e+01_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.46342e+01_rb,0.46206e+01_rb,0.45970e+01_rb,0.45604e+01_rb,0.45153e+01_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.51044e+01_rb,0.50788e+01_rb,0.50384e+01_rb,0.49882e+01_rb,0.49250e+01_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.55612e+01_rb,0.55175e+01_rb,0.54618e+01_rb,0.53932e+01_rb,0.53123e+01_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.59883e+01_rb,0.59323e+01_rb,0.58578e+01_rb,0.57682e+01_rb,0.56700e+01_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.63852e+01_rb,0.63106e+01_rb,0.62177e+01_rb,0.61123e+01_rb,0.59947e+01_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.67473e+01_rb,0.66496e+01_rb,0.65407e+01_rb,0.64159e+01_rb,0.62789e+01_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.70720e+01_rb,0.69522e+01_rb,0.68220e+01_rb,0.66792e+01_rb,0.65258e+01_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.73512e+01_rb,0.72082e+01_rb,0.70565e+01_rb,0.68942e+01_rb,0.67258e+01_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.75866e+01_rb,0.74239e+01_rb,0.72515e+01_rb,0.70718e+01_rb,0.68886e+01_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.77818e+01_rb,0.75993e+01_rb,0.74076e+01_rb,0.72128e+01_rb,0.70154e+01_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.79381e+01_rb,0.77379e+01_rb,0.75298e+01_rb,0.73205e+01_rb,0.71111e+01_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.80556e+01_rb,0.78384e+01_rb,0.76185e+01_rb,0.73961e+01_rb,0.71755e+01_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.81409e+01_rb,0.79095e+01_rb,0.76795e+01_rb,0.74472e+01_rb,0.72174e+01_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.81987e+01_rb,0.79569e+01_rb,0.77176e+01_rb,0.74766e+01_rb,0.72412e+01_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.82302e+01_rb,0.79809e+01_rb,0.77337e+01_rb,0.74875e+01_rb,0.72468e+01_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.82419e+01_rb,0.79875e+01_rb,0.77343e+01_rb,0.74825e+01_rb,0.72390e+01_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.82369e+01_rb,0.79780e+01_rb,0.77201e+01_rb,0.74661e+01_rb,0.72183e+01_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.82187e+01_rb,0.79550e+01_rb,0.76944e+01_rb,0.74386e+01_rb,0.71874e+01_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.81889e+01_rb,0.79220e+01_rb,0.76592e+01_rb,0.74026e+01_rb,0.71493e+01_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.81602e+01_rb,0.78912e+01_rb,0.76262e+01_rb,0.73693e+01_rb,0.71134e+01_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.81506e+01_rb,0.78799e+01_rb,0.76144e+01_rb,0.73562e+01_rb,0.70988e+01_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.81664e+01_rb,0.78930e+01_rb,0.76263e+01_rb,0.73664e+01_rb,0.71072e+01_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.82200e+01_rb,0.79452e+01_rb,0.76751e+01_rb,0.74132e+01_rb,0.71537e+01_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.82730e+01_rb,0.79962e+01_rb,0.77251e+01_rb,0.74606e+01_rb,0.72002e+01_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.83243e+01_rb,0.80459e+01_rb,0.77713e+01_rb,0.75063e+01_rb,0.72452e+01_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.84027e+01_rb,0.81225e+01_rb,0.78456e+01_rb,0.75775e+01_rb,0.73152e+01_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.84834e+01_rb,0.82013e+01_rb,0.79233e+01_rb,0.76507e+01_rb,0.73874e+01_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.85638e+01_rb,0.82794e+01_rb,0.79999e+01_rb,0.77248e+01_rb,0.74594e+01_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.86608e+01_rb,0.83728e+01_rb,0.80910e+01_rb,0.78137e+01_rb,0.75464e+01_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.87658e+01_rb,0.84741e+01_rb,0.81903e+01_rb,0.79102e+01_rb,0.76390e+01_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.88709e+01_rb,0.85747e+01_rb,0.82886e+01_rb,0.80079e+01_rb,0.77318e+01_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.89828e+01_rb,0.86839e+01_rb,0.83945e+01_rb,0.81115e+01_rb,0.78321e+01_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.91067e+01_rb,0.88066e+01_rb,0.85118e+01_rb,0.82270e+01_rb,0.79459e+01_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.92318e+01_rb,0.89292e+01_rb,0.86312e+01_rb,0.83427e+01_rb,0.80595e+01_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.93597e+01_rb,0.90533e+01_rb,0.87516e+01_rb,0.84602e+01_rb,0.81749e+01_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.94828e+01_rb,0.91681e+01_rb,0.88667e+01_rb,0.85700e+01_rb,0.82833e+01_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.96031e+01_rb,0.92821e+01_rb,0.89785e+01_rb,0.86778e+01_rb,0.83878e+01_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.97227e+01_rb,0.93978e+01_rb,0.90892e+01_rb,0.87879e+01_rb,0.84938e+01_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.98436e+01_rb,0.95182e+01_rb,0.92014e+01_rb,0.88988e+01_rb,0.86011e+01_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.99573e+01_rb,0.96274e+01_rb,0.93049e+01_rb,0.90008e+01_rb,0.87001e+01_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.10066e+02_rb,0.97327e+01_rb,0.94075e+01_rb,0.90983e+01_rb,0.87962e+01_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.10177e+02_rb,0.98378e+01_rb,0.95127e+01_rb,0.91960e+01_rb,0.88926e+01_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.10293e+02_rb,0.99462e+01_rb,0.96173e+01_rb,0.92949e+01_rb,0.89909e+01_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.10405e+02_rb,0.10049e+02_rb,0.97160e+01_rb,0.93909e+01_rb,0.90821e+01_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.10450e+02_rb,0.10090e+02_rb,0.97556e+01_rb,0.94305e+01_rb,0.91193e+01_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.50473e+01_rb,0.50398e+01_rb,0.50183e+01_rb,0.49834e+01_rb,0.49369e+01_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.59220e+01_rb,0.58911e+01_rb,0.58423e+01_rb,0.57748e+01_rb,0.56924e+01_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.68737e+01_rb,0.68078e+01_rb,0.67189e+01_rb,0.66072e+01_rb,0.64839e+01_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.78824e+01_rb,0.77694e+01_rb,0.76268e+01_rb,0.74643e+01_rb,0.72894e+01_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.89270e+01_rb,0.87413e+01_rb,0.85370e+01_rb,0.83130e+01_rb,0.80798e+01_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.99711e+01_rb,0.97011e+01_rb,0.94250e+01_rb,0.91345e+01_rb,0.88363e+01_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.10989e+02_rb,0.10627e+02_rb,0.10268e+02_rb,0.99076e+01_rb,0.95430e+01_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.11944e+02_rb,0.11487e+02_rb,0.11042e+02_rb,0.10609e+02_rb,0.10177e+02_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.12817e+02_rb,0.12265e+02_rb,0.11737e+02_rb,0.11232e+02_rb,0.10736e+02_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.13548e+02_rb,0.12914e+02_rb,0.12305e+02_rb,0.11734e+02_rb,0.11183e+02_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.14162e+02_rb,0.13448e+02_rb,0.12773e+02_rb,0.12143e+02_rb,0.11545e+02_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.14655e+02_rb,0.13870e+02_rb,0.13141e+02_rb,0.12464e+02_rb,0.11822e+02_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.15031e+02_rb,0.14189e+02_rb,0.13415e+02_rb,0.12699e+02_rb,0.12023e+02_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.15288e+02_rb,0.14405e+02_rb,0.13595e+02_rb,0.12850e+02_rb,0.12149e+02_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.15452e+02_rb,0.14541e+02_rb,0.13705e+02_rb,0.12937e+02_rb,0.12216e+02_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.15538e+02_rb,0.14608e+02_rb,0.13754e+02_rb,0.12971e+02_rb,0.12237e+02_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.15553e+02_rb,0.14613e+02_rb,0.13748e+02_rb,0.12957e+02_rb,0.12214e+02_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.15516e+02_rb,0.14571e+02_rb,0.13703e+02_rb,0.12907e+02_rb,0.12159e+02_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.15433e+02_rb,0.14488e+02_rb,0.13621e+02_rb,0.12822e+02_rb,0.12076e+02_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.15312e+02_rb,0.14373e+02_rb,0.13511e+02_rb,0.12712e+02_rb,0.11970e+02_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.15164e+02_rb,0.14234e+02_rb,0.13378e+02_rb,0.12584e+02_rb,0.11848e+02_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.15029e+02_rb,0.14108e+02_rb,0.13258e+02_rb,0.12470e+02_rb,0.11741e+02_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.14974e+02_rb,0.14055e+02_rb,0.13205e+02_rb,0.12418e+02_rb,0.11691e+02_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.15011e+02_rb,0.14086e+02_rb,0.13232e+02_rb,0.12441e+02_rb,0.11710e+02_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.15186e+02_rb,0.14243e+02_rb,0.13376e+02_rb,0.12573e+02_rb,0.11831e+02_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.15364e+02_rb,0.14405e+02_rb,0.13523e+02_rb,0.12708e+02_rb,0.11955e+02_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.15541e+02_rb,0.14562e+02_rb,0.13666e+02_rb,0.12840e+02_rb,0.12075e+02_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.15818e+02_rb,0.14814e+02_rb,0.13896e+02_rb,0.13052e+02_rb,0.12271e+02_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.16115e+02_rb,0.15082e+02_rb,0.14138e+02_rb,0.13278e+02_rb,0.12478e+02_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.16420e+02_rb,0.15352e+02_rb,0.14384e+02_rb,0.13504e+02_rb,0.12687e+02_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.16793e+02_rb,0.15690e+02_rb,0.14694e+02_rb,0.13784e+02_rb,0.12952e+02_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.17211e+02_rb,0.16062e+02_rb,0.15031e+02_rb,0.14091e+02_rb,0.13236e+02_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.17640e+02_rb,0.16447e+02_rb,0.15376e+02_rb,0.14411e+02_rb,0.13526e+02_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.18112e+02_rb,0.16870e+02_rb,0.15758e+02_rb,0.14754e+02_rb,0.13842e+02_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.18658e+02_rb,0.17363e+02_rb,0.16197e+02_rb,0.15151e+02_rb,0.14204e+02_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.19225e+02_rb,0.17876e+02_rb,0.16658e+02_rb,0.15564e+02_rb,0.14577e+02_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.19824e+02_rb,0.18409e+02_rb,0.17136e+02_rb,0.15993e+02_rb,0.14967e+02_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.20411e+02_rb,0.18926e+02_rb,0.17606e+02_rb,0.16414e+02_rb,0.15344e+02_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.21005e+02_rb,0.19452e+02_rb,0.18077e+02_rb,0.16838e+02_rb,0.15725e+02_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.21646e+02_rb,0.20001e+02_rb,0.18565e+02_rb,0.17278e+02_rb,0.16117e+02_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.22315e+02_rb,0.20576e+02_rb,0.19072e+02_rb,0.17736e+02_rb,0.16529e+02_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.22958e+02_rb,0.21134e+02_rb,0.19557e+02_rb,0.18172e+02_rb,0.16919e+02_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.23603e+02_rb,0.21694e+02_rb,0.20042e+02_rb,0.18600e+02_rb,0.17305e+02_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.24285e+02_rb,0.22278e+02_rb,0.20543e+02_rb,0.19044e+02_rb,0.17707e+02_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.24997e+02_rb,0.22887e+02_rb,0.21074e+02_rb,0.19504e+02_rb,0.18121e+02_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.25697e+02_rb,0.23494e+02_rb,0.21600e+02_rb,0.19961e+02_rb,0.18525e+02_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.25984e+02_rb,0.23748e+02_rb,0.21819e+02_rb,0.20147e+02_rb,0.18689e+02_rb /)\n  \n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.106275e-05_rb, 0.104185e-05_rb, 0.420154e-05_rb /)\n      forrefo(:, 2) = (/ 0.154343e-05_rb, 0.653193e-05_rb, 0.174596e-04_rb /)\n      forrefo(:, 3) = (/ 0.348917e-05_rb, 0.108420e-04_rb, 0.540849e-04_rb /)\n      forrefo(:, 4) = (/ 0.145822e-04_rb, 0.156027e-04_rb, 0.881263e-04_rb /)\n      forrefo(:, 5) = (/ 0.220204e-04_rb, 0.819892e-04_rb, 0.817937e-04_rb /)\n      forrefo(:, 6) = (/ 0.447840e-04_rb, 0.121116e-03_rb, 0.932635e-04_rb /)\n      forrefo(:, 7) = (/ 0.166516e-03_rb, 0.147640e-03_rb, 0.754029e-04_rb /)\n      forrefo(:, 8) = (/ 0.234756e-03_rb, 0.145934e-03_rb, 0.771734e-04_rb /)\n      forrefo(:, 9) = (/ 0.289207e-03_rb, 0.146768e-03_rb, 0.677806e-04_rb /)\n      forrefo(:,10) = (/ 0.334959e-03_rb, 0.125513e-03_rb, 0.636648e-04_rb /)\n      forrefo(:,11) = (/ 0.333755e-03_rb, 0.136575e-03_rb, 0.593651e-04_rb /)\n      forrefo(:,12) = (/ 0.340042e-03_rb, 0.116259e-03_rb, 0.595192e-04_rb /)\n      forrefo(:,13) = (/ 0.422470e-03_rb, 0.148691e-03_rb, 0.630266e-04_rb /)\n      forrefo(:,14) = (/ 0.440655e-03_rb, 0.461917e-04_rb, 0.108222e-04_rb /)\n      forrefo(:,15) = (/ 0.486207e-03_rb, 0.428458e-03_rb, 0.108086e-04_rb /)\n      forrefo(:,16) = (/ 0.657463e-03_rb, 0.657446e-03_rb, 0.126190e-04_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n     \n      selfrefo(:, 1) = (/ &\n        &  0.331728e-03_rb, 0.287480e-03_rb, 0.249135e-03_rb, 0.215904e-03_rb, 0.187106e-03_rb, &\n        &  0.162149e-03_rb, 0.140520e-03_rb, 0.121777e-03_rb, 0.105534e-03_rb, 0.914573e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.882628e-03_rb, 0.698914e-03_rb, 0.553439e-03_rb, 0.438244e-03_rb, 0.347026e-03_rb, &\n        &  0.274795e-03_rb, 0.217598e-03_rb, 0.172306e-03_rb, 0.136442e-03_rb, 0.108042e-03_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.115461e-02_rb, 0.937203e-03_rb, 0.760730e-03_rb, 0.617486e-03_rb, 0.501215e-03_rb, &\n        &  0.406837e-03_rb, 0.330231e-03_rb, 0.268049e-03_rb, 0.217576e-03_rb, 0.176607e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.103450e-02_rb, 0.960268e-03_rb, 0.891360e-03_rb, 0.827397e-03_rb, 0.768024e-03_rb, &\n        &  0.712911e-03_rb, 0.661754e-03_rb, 0.614267e-03_rb, 0.570188e-03_rb, 0.529272e-03_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.289040e-02_rb, 0.240129e-02_rb, 0.199495e-02_rb, 0.165737e-02_rb, 0.137692e-02_rb, &\n        &  0.114392e-02_rb, 0.950351e-03_rb, 0.789535e-03_rb, 0.655933e-03_rb, 0.544938e-03_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.361772e-02_rb, 0.306611e-02_rb, 0.259861e-02_rb, 0.220239e-02_rb, 0.186659e-02_rb, &\n        &  0.158198e-02_rb, 0.134077e-02_rb, 0.113634e-02_rb, 0.963078e-03_rb, 0.816234e-03_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.329878e-02_rb, 0.318245e-02_rb, 0.307021e-02_rb, 0.296194e-02_rb, 0.285749e-02_rb, &\n        &  0.275671e-02_rb, 0.265950e-02_rb, 0.256571e-02_rb, 0.247522e-02_rb, 0.238793e-02_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.293562e-02_rb, 0.300077e-02_rb, 0.306737e-02_rb, 0.313544e-02_rb, 0.320503e-02_rb, &\n        &  0.327615e-02_rb, 0.334886e-02_rb, 0.342318e-02_rb, 0.349915e-02_rb, 0.357680e-02_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.281453e-02_rb, 0.295894e-02_rb, 0.311076e-02_rb, 0.327038e-02_rb, 0.343818e-02_rb, &\n        &  0.361459e-02_rb, 0.380006e-02_rb, 0.399504e-02_rb, 0.420002e-02_rb, 0.441553e-02_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.239488e-02_rb, 0.262487e-02_rb, 0.287696e-02_rb, 0.315325e-02_rb, 0.345607e-02_rb, &\n        &  0.378798e-02_rb, 0.415176e-02_rb, 0.455048e-02_rb, 0.498749e-02_rb, 0.546647e-02_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.271001e-02_rb, 0.292235e-02_rb, 0.315134e-02_rb, 0.339826e-02_rb, 0.366453e-02_rb, &\n        &  0.395167e-02_rb, 0.426131e-02_rb, 0.459521e-02_rb, 0.495527e-02_rb, 0.534354e-02_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.206702e-02_rb, 0.232254e-02_rb, 0.260966e-02_rb, 0.293226e-02_rb, 0.329475e-02_rb, &\n        &  0.370204e-02_rb, 0.415969e-02_rb, 0.467391e-02_rb, 0.525169e-02_rb, 0.590090e-02_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.227023e-02_rb, 0.257331e-02_rb, 0.291685e-02_rb, 0.330626e-02_rb, 0.374766e-02_rb, &\n        &  0.424799e-02_rb, 0.481511e-02_rb, 0.545794e-02_rb, 0.618660e-02_rb, 0.701253e-02_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.851078e-03_rb, 0.111512e-02_rb, 0.146109e-02_rb, 0.191439e-02_rb, 0.250832e-02_rb, &\n        &  0.328653e-02_rb, 0.430617e-02_rb, 0.564215e-02_rb, 0.739261e-02_rb, 0.968616e-02_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.742711e-02_rb, 0.721347e-02_rb, 0.700598e-02_rb, 0.680446e-02_rb, 0.660873e-02_rb, &\n        &  0.641863e-02_rb, 0.623400e-02_rb, 0.605468e-02_rb, 0.588052e-02_rb, 0.571137e-02_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.107170e-01_rb, 0.101913e-01_rb, 0.969138e-02_rb, 0.921599e-02_rb, 0.876392e-02_rb, &\n        &  0.833402e-02_rb, 0.792521e-02_rb, 0.753646e-02_rb, 0.716677e-02_rb, 0.681522e-02_rb /)\n  \n      end subroutine sw_kgb19\n\n! **************************************************************************\n      subroutine sw_kgb20\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absch4o, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 9.34081_rb , 8.93720_rb    , 8.19346_rb    , 7.39196_rb    , &\n        & 6.12127_rb , 5.23956_rb    , 4.24941_rb    , 3.20013_rb    , &\n        & 2.16047_rb , 0.234509_rb   , 0.194593_rb   , 0.151512_rb   , &\n        & 0.110315_rb, 7.09959e-02_rb, 2.70573e-02_rb, 3.36042e-03_rb /)\n  \n      absch4o(:) = (/ &  \n        & 1.01381e-03_rb,6.33692e-03_rb,1.94185e-02_rb,4.83210e-02_rb, &\n        & 2.36574e-03_rb,6.61973e-04_rb,5.64552e-04_rb,2.83183e-04_rb, &\n        & 7.43623e-05_rb,8.90159e-07_rb,6.98728e-07_rb,6.51832e-08_rb, &\n        & 2.96619e-08_rb,         0._rb,         0._rb,         0._rb /)\n\n! Rayleigh extinction coefficient at v = 5670 cm-1.\n      rayl = 4.12e-09_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.78383e-06_rb,0.86220e-06_rb,0.95359e-06_rb,0.10590e-05_rb,0.11782e-05_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.65040e-06_rb,0.72510e-06_rb,0.81318e-06_rb,0.90059e-06_rb,0.99786e-06_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.58072e-06_rb,0.65888e-06_rb,0.74265e-06_rb,0.81854e-06_rb,0.90645e-06_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.53601e-06_rb,0.60765e-06_rb,0.68088e-06_rb,0.75741e-06_rb,0.83801e-06_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.50142e-06_rb,0.56951e-06_rb,0.64028e-06_rb,0.71944e-06_rb,0.79813e-06_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.47164e-06_rb,0.54008e-06_rb,0.61040e-06_rb,0.68006e-06_rb,0.75034e-06_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.49337e-06_rb,0.56178e-06_rb,0.62215e-06_rb,0.69127e-06_rb,0.76060e-06_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.61581e-06_rb,0.70117e-06_rb,0.78942e-06_rb,0.87145e-06_rb,0.94647e-06_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.14154e-05_rb,0.15754e-05_rb,0.17261e-05_rb,0.18739e-05_rb,0.19774e-05_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.34186e-05_rb,0.37012e-05_rb,0.39602e-05_rb,0.42235e-05_rb,0.44256e-05_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.38574e-05_rb,0.42080e-05_rb,0.44701e-05_rb,0.47454e-05_rb,0.50002e-05_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.35794e-05_rb,0.38686e-05_rb,0.41443e-05_rb,0.43939e-05_rb,0.46500e-05_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.29586e-05_rb,0.31938e-05_rb,0.34167e-05_rb,0.36253e-05_rb,0.38250e-05_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.57098e-05_rb,0.64630e-05_rb,0.73117e-05_rb,0.82436e-05_rb,0.91947e-05_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.46384e-05_rb,0.53125e-05_rb,0.60301e-05_rb,0.68028e-05_rb,0.75824e-05_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.40657e-05_rb,0.46486e-05_rb,0.52459e-05_rb,0.58955e-05_rb,0.65546e-05_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.38895e-05_rb,0.44258e-05_rb,0.49759e-05_rb,0.55663e-05_rb,0.61702e-05_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.38971e-05_rb,0.44359e-05_rb,0.49933e-05_rb,0.55523e-05_rb,0.61234e-05_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.39532e-05_rb,0.44644e-05_rb,0.49734e-05_rb,0.54875e-05_rb,0.60102e-05_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.41068e-05_rb,0.45832e-05_rb,0.50698e-05_rb,0.55521e-05_rb,0.60175e-05_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.47922e-05_rb,0.52156e-05_rb,0.56817e-05_rb,0.61576e-05_rb,0.66313e-05_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.83199e-05_rb,0.88317e-05_rb,0.93688e-05_rb,0.99754e-05_rb,0.10620e-04_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.16836e-04_rb,0.18526e-04_rb,0.19887e-04_rb,0.21168e-04_rb,0.22104e-04_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.18882e-04_rb,0.21005e-04_rb,0.22896e-04_rb,0.24777e-04_rb,0.26115e-04_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.17744e-04_rb,0.19780e-04_rb,0.21600e-04_rb,0.23523e-04_rb,0.25128e-04_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.14736e-04_rb,0.16356e-04_rb,0.17955e-04_rb,0.19533e-04_rb,0.20861e-04_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.41776e-04_rb,0.48150e-04_rb,0.55097e-04_rb,0.62661e-04_rb,0.70920e-04_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.33909e-04_rb,0.39176e-04_rb,0.44622e-04_rb,0.50754e-04_rb,0.57336e-04_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.27438e-04_rb,0.31473e-04_rb,0.36122e-04_rb,0.41134e-04_rb,0.46456e-04_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.23222e-04_rb,0.26535e-04_rb,0.30141e-04_rb,0.34099e-04_rb,0.38416e-04_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.21114e-04_rb,0.23888e-04_rb,0.26883e-04_rb,0.30340e-04_rb,0.33785e-04_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.20750e-04_rb,0.22926e-04_rb,0.25536e-04_rb,0.28492e-04_rb,0.31676e-04_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.21584e-04_rb,0.24112e-04_rb,0.26872e-04_rb,0.29794e-04_rb,0.32940e-04_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.24194e-04_rb,0.26981e-04_rb,0.30137e-04_rb,0.33546e-04_rb,0.37182e-04_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.37461e-04_rb,0.42158e-04_rb,0.46718e-04_rb,0.51048e-04_rb,0.55154e-04_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.72391e-04_rb,0.77164e-04_rb,0.84016e-04_rb,0.89658e-04_rb,0.95511e-04_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.91736e-04_rb,0.99107e-04_rb,0.10463e-03_rb,0.10952e-03_rb,0.11549e-03_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.91200e-04_rb,0.98812e-04_rb,0.10432e-03_rb,0.10893e-03_rb,0.11349e-03_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.76217e-04_rb,0.82702e-04_rb,0.87500e-04_rb,0.91349e-04_rb,0.95349e-04_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.71705e-03_rb,0.82743e-03_rb,0.94700e-03_rb,0.10670e-02_rb,0.11902e-02_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.57909e-03_rb,0.67096e-03_rb,0.76724e-03_rb,0.86582e-03_rb,0.97167e-03_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.44771e-03_rb,0.51997e-03_rb,0.59861e-03_rb,0.67967e-03_rb,0.76676e-03_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.34085e-03_rb,0.39833e-03_rb,0.46226e-03_rb,0.52889e-03_rb,0.60008e-03_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.26678e-03_rb,0.31234e-03_rb,0.36341e-03_rb,0.41663e-03_rb,0.47418e-03_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.20903e-03_rb,0.24718e-03_rb,0.28922e-03_rb,0.33353e-03_rb,0.38176e-03_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.17173e-03_rb,0.20330e-03_rb,0.23711e-03_rb,0.27401e-03_rb,0.31445e-03_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.16722e-03_rb,0.19396e-03_rb,0.22307e-03_rb,0.25347e-03_rb,0.28561e-03_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.25043e-03_rb,0.28824e-03_rb,0.32547e-03_rb,0.36193e-03_rb,0.39806e-03_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.43323e-03_rb,0.48667e-03_rb,0.53462e-03_rb,0.57879e-03_rb,0.62040e-03_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.47719e-03_rb,0.52271e-03_rb,0.56402e-03_rb,0.60388e-03_rb,0.63520e-03_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.45061e-03_rb,0.49014e-03_rb,0.52391e-03_rb,0.55276e-03_rb,0.57760e-03_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.37664e-03_rb,0.40952e-03_rb,0.43690e-03_rb,0.46055e-03_rb,0.48018e-03_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.66466e-02_rb,0.68686e-02_rb,0.70897e-02_rb,0.73019e-02_rb,0.74914e-02_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.54023e-02_rb,0.56010e-02_rb,0.58008e-02_rb,0.59987e-02_rb,0.61685e-02_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.43218e-02_rb,0.45127e-02_rb,0.46848e-02_rb,0.48647e-02_rb,0.50267e-02_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.34639e-02_rb,0.36473e-02_rb,0.37951e-02_rb,0.39570e-02_rb,0.41049e-02_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.27745e-02_rb,0.29370e-02_rb,0.30754e-02_rb,0.32148e-02_rb,0.33492e-02_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.22020e-02_rb,0.23520e-02_rb,0.24836e-02_rb,0.25965e-02_rb,0.27119e-02_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.17624e-02_rb,0.18963e-02_rb,0.20161e-02_rb,0.21153e-02_rb,0.22116e-02_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.14169e-02_rb,0.15332e-02_rb,0.16350e-02_rb,0.17231e-02_rb,0.18121e-02_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.13030e-02_rb,0.13904e-02_rb,0.14690e-02_rb,0.15500e-02_rb,0.16275e-02_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.17155e-02_rb,0.18169e-02_rb,0.18943e-02_rb,0.19620e-02_rb,0.20215e-02_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.17156e-02_rb,0.17808e-02_rb,0.18419e-02_rb,0.18925e-02_rb,0.19313e-02_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.15269e-02_rb,0.15811e-02_rb,0.16283e-02_rb,0.16686e-02_rb,0.17061e-02_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.12768e-02_rb,0.13207e-02_rb,0.13555e-02_rb,0.13924e-02_rb,0.14234e-02_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.19191e-01_rb,0.19463e-01_rb,0.19692e-01_rb,0.19900e-01_rb,0.20112e-01_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.15967e-01_rb,0.16219e-01_rb,0.16426e-01_rb,0.16613e-01_rb,0.16805e-01_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.13186e-01_rb,0.13411e-01_rb,0.13614e-01_rb,0.13785e-01_rb,0.13944e-01_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.10935e-01_rb,0.11131e-01_rb,0.11318e-01_rb,0.11475e-01_rb,0.11620e-01_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.90541e-02_rb,0.92344e-02_rb,0.94035e-02_rb,0.95537e-02_rb,0.96862e-02_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.74724e-02_rb,0.76320e-02_rb,0.77794e-02_rb,0.79294e-02_rb,0.80528e-02_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.61183e-02_rb,0.62644e-02_rb,0.63961e-02_rb,0.65303e-02_rb,0.66478e-02_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.50638e-02_rb,0.51984e-02_rb,0.53222e-02_rb,0.54412e-02_rb,0.55465e-02_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.42870e-02_rb,0.44009e-02_rb,0.45109e-02_rb,0.45976e-02_rb,0.46796e-02_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.45239e-02_rb,0.46073e-02_rb,0.46968e-02_rb,0.47979e-02_rb,0.48956e-02_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.44089e-02_rb,0.45006e-02_rb,0.45881e-02_rb,0.46721e-02_rb,0.48015e-02_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.39598e-02_rb,0.40290e-02_rb,0.41108e-02_rb,0.41899e-02_rb,0.42672e-02_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.33425e-02_rb,0.34148e-02_rb,0.34808e-02_rb,0.35405e-02_rb,0.35983e-02_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.50165e-01_rb,0.50343e-01_rb,0.50452e-01_rb,0.50424e-01_rb,0.50329e-01_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.42723e-01_rb,0.42880e-01_rb,0.42939e-01_rb,0.42910e-01_rb,0.42861e-01_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.36117e-01_rb,0.36255e-01_rb,0.36301e-01_rb,0.36294e-01_rb,0.36288e-01_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.30585e-01_rb,0.30720e-01_rb,0.30787e-01_rb,0.30816e-01_rb,0.30842e-01_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.25879e-01_rb,0.26029e-01_rb,0.26116e-01_rb,0.26179e-01_rb,0.26225e-01_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.21822e-01_rb,0.21978e-01_rb,0.22094e-01_rb,0.22178e-01_rb,0.22244e-01_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.18304e-01_rb,0.18476e-01_rb,0.18606e-01_rb,0.18705e-01_rb,0.18780e-01_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.15224e-01_rb,0.15394e-01_rb,0.15519e-01_rb,0.15619e-01_rb,0.15690e-01_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.12835e-01_rb,0.13029e-01_rb,0.13169e-01_rb,0.13281e-01_rb,0.13369e-01_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.11632e-01_rb,0.11714e-01_rb,0.11760e-01_rb,0.11776e-01_rb,0.11806e-01_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.11170e-01_rb,0.11252e-01_rb,0.11288e-01_rb,0.11357e-01_rb,0.11397e-01_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.10404e-01_rb,0.10533e-01_rb,0.10705e-01_rb,0.10833e-01_rb,0.10947e-01_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.91041e-02_rb,0.92674e-02_rb,0.94068e-02_rb,0.95412e-02_rb,0.96769e-02_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.14527e+00_rb,0.14483e+00_rb,0.14432e+00_rb,0.14389e+00_rb,0.14349e+00_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.12739e+00_rb,0.12702e+00_rb,0.12661e+00_rb,0.12624e+00_rb,0.12584e+00_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.11091e+00_rb,0.11058e+00_rb,0.11024e+00_rb,0.10990e+00_rb,0.10953e+00_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.96590e-01_rb,0.96335e-01_rb,0.96105e-01_rb,0.95818e-01_rb,0.95530e-01_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.83799e-01_rb,0.83708e-01_rb,0.83572e-01_rb,0.83347e-01_rb,0.83126e-01_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.72369e-01_rb,0.72388e-01_rb,0.72289e-01_rb,0.72143e-01_rb,0.71981e-01_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.62158e-01_rb,0.62247e-01_rb,0.62185e-01_rb,0.62111e-01_rb,0.62007e-01_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.52998e-01_rb,0.53142e-01_rb,0.53162e-01_rb,0.53154e-01_rb,0.53101e-01_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.44776e-01_rb,0.44873e-01_rb,0.44920e-01_rb,0.44946e-01_rb,0.44885e-01_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.38237e-01_rb,0.38514e-01_rb,0.38716e-01_rb,0.38877e-01_rb,0.38966e-01_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.33511e-01_rb,0.33721e-01_rb,0.33843e-01_rb,0.33840e-01_rb,0.33839e-01_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.29704e-01_rb,0.29825e-01_rb,0.29808e-01_rb,0.29787e-01_rb,0.29794e-01_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.25973e-01_rb,0.26004e-01_rb,0.26032e-01_rb,0.26023e-01_rb,0.26107e-01_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.56699e+00_rb,0.56615e+00_rb,0.56479e+00_rb,0.56318e+00_rb,0.56135e+00_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.53130e+00_rb,0.53096e+00_rb,0.53038e+00_rb,0.52953e+00_rb,0.52828e+00_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.48947e+00_rb,0.48989e+00_rb,0.48991e+00_rb,0.48970e+00_rb,0.48916e+00_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.44646e+00_rb,0.44756e+00_rb,0.44841e+00_rb,0.44893e+00_rb,0.44859e+00_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.40428e+00_rb,0.40594e+00_rb,0.40746e+00_rb,0.40811e+00_rb,0.40825e+00_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.36305e+00_rb,0.36545e+00_rb,0.36730e+00_rb,0.36814e+00_rb,0.36854e+00_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.32383e+00_rb,0.32659e+00_rb,0.32849e+00_rb,0.32954e+00_rb,0.33028e+00_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.28691e+00_rb,0.28966e+00_rb,0.29156e+00_rb,0.29286e+00_rb,0.29379e+00_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.25109e+00_rb,0.25404e+00_rb,0.25607e+00_rb,0.25752e+00_rb,0.25870e+00_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.21600e+00_rb,0.21860e+00_rb,0.22047e+00_rb,0.22164e+00_rb,0.22251e+00_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.19149e+00_rb,0.19387e+00_rb,0.19567e+00_rb,0.19725e+00_rb,0.19809e+00_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.16914e+00_rb,0.17134e+00_rb,0.17303e+00_rb,0.17407e+00_rb,0.17494e+00_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.14841e+00_rb,0.15027e+00_rb,0.15244e+00_rb,0.15403e+00_rb,0.15523e+00_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.14885e+01_rb,0.14756e+01_rb,0.14663e+01_rb,0.14567e+01_rb,0.14479e+01_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.14911e+01_rb,0.14850e+01_rb,0.14762e+01_rb,0.14677e+01_rb,0.14597e+01_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.14749e+01_rb,0.14716e+01_rb,0.14663e+01_rb,0.14579e+01_rb,0.14502e+01_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.14314e+01_rb,0.14303e+01_rb,0.14232e+01_rb,0.14150e+01_rb,0.14115e+01_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.13616e+01_rb,0.13604e+01_rb,0.13539e+01_rb,0.13506e+01_rb,0.13501e+01_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.12710e+01_rb,0.12700e+01_rb,0.12670e+01_rb,0.12702e+01_rb,0.12745e+01_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.11674e+01_rb,0.11690e+01_rb,0.11727e+01_rb,0.11812e+01_rb,0.11854e+01_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.10584e+01_rb,0.10652e+01_rb,0.10757e+01_rb,0.10857e+01_rb,0.10906e+01_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.95450e+00_rb,0.96414e+00_rb,0.97673e+00_rb,0.98621e+00_rb,0.99187e+00_rb /)\n      kao(:,10,10) = (/ &\n        & 0.83626e+00_rb,0.84690e+00_rb,0.85901e+00_rb,0.86824e+00_rb,0.87535e+00_rb /)\n      kao(:,11,10) = (/ &\n        & 0.73738e+00_rb,0.74729e+00_rb,0.75610e+00_rb,0.75994e+00_rb,0.76481e+00_rb /)\n      kao(:,12,10) = (/ &\n        & 0.66891e+00_rb,0.67622e+00_rb,0.68092e+00_rb,0.68498e+00_rb,0.68877e+00_rb /)\n      kao(:,13,10) = (/ &\n        & 0.58616e+00_rb,0.59614e+00_rb,0.59749e+00_rb,0.60310e+00_rb,0.60445e+00_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.20080e+01_rb,0.19998e+01_rb,0.19844e+01_rb,0.19679e+01_rb,0.19504e+01_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.20896e+01_rb,0.20752e+01_rb,0.20596e+01_rb,0.20445e+01_rb,0.20293e+01_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.21262e+01_rb,0.21143e+01_rb,0.21043e+01_rb,0.20968e+01_rb,0.20862e+01_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.21310e+01_rb,0.21263e+01_rb,0.21243e+01_rb,0.21203e+01_rb,0.21144e+01_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.21041e+01_rb,0.21063e+01_rb,0.21071e+01_rb,0.21077e+01_rb,0.21021e+01_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.20447e+01_rb,0.20491e+01_rb,0.20534e+01_rb,0.20532e+01_rb,0.20477e+01_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.19487e+01_rb,0.19563e+01_rb,0.19608e+01_rb,0.19593e+01_rb,0.19591e+01_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.18239e+01_rb,0.18317e+01_rb,0.18359e+01_rb,0.18391e+01_rb,0.18451e+01_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.16772e+01_rb,0.16879e+01_rb,0.16955e+01_rb,0.17047e+01_rb,0.17179e+01_rb /)\n      kao(:,10,11) = (/ &\n        & 0.15007e+01_rb,0.15184e+01_rb,0.15343e+01_rb,0.15540e+01_rb,0.15756e+01_rb /)\n      kao(:,11,11) = (/ &\n        & 0.13041e+01_rb,0.13245e+01_rb,0.13445e+01_rb,0.13685e+01_rb,0.13888e+01_rb /)\n      kao(:,12,11) = (/ &\n        & 0.11590e+01_rb,0.11749e+01_rb,0.11906e+01_rb,0.12046e+01_rb,0.12212e+01_rb /)\n      kao(:,13,11) = (/ &\n        & 0.10681e+01_rb,0.10905e+01_rb,0.11017e+01_rb,0.10997e+01_rb,0.11116e+01_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.26762e+01_rb,0.26701e+01_rb,0.26710e+01_rb,0.26742e+01_rb,0.26733e+01_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.28804e+01_rb,0.28775e+01_rb,0.28798e+01_rb,0.28773e+01_rb,0.28700e+01_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.30825e+01_rb,0.30790e+01_rb,0.30757e+01_rb,0.30631e+01_rb,0.30471e+01_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.32355e+01_rb,0.32278e+01_rb,0.32144e+01_rb,0.31959e+01_rb,0.31753e+01_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.33271e+01_rb,0.33191e+01_rb,0.33073e+01_rb,0.32879e+01_rb,0.32714e+01_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.33604e+01_rb,0.33571e+01_rb,0.33478e+01_rb,0.33355e+01_rb,0.33272e+01_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.33406e+01_rb,0.33436e+01_rb,0.33436e+01_rb,0.33435e+01_rb,0.33409e+01_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.32648e+01_rb,0.32808e+01_rb,0.32919e+01_rb,0.32976e+01_rb,0.32999e+01_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.31373e+01_rb,0.31630e+01_rb,0.31816e+01_rb,0.31936e+01_rb,0.31991e+01_rb /)\n      kao(:,10,12) = (/ &\n        & 0.29678e+01_rb,0.29982e+01_rb,0.30244e+01_rb,0.30412e+01_rb,0.30500e+01_rb /)\n      kao(:,11,12) = (/ &\n        & 0.27380e+01_rb,0.27731e+01_rb,0.28013e+01_rb,0.28227e+01_rb,0.28455e+01_rb /)\n      kao(:,12,12) = (/ &\n        & 0.24616e+01_rb,0.24905e+01_rb,0.25348e+01_rb,0.25805e+01_rb,0.26155e+01_rb /)\n      kao(:,13,12) = (/ &\n        & 0.22251e+01_rb,0.22562e+01_rb,0.22966e+01_rb,0.23312e+01_rb,0.23811e+01_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.38031e+01_rb,0.37992e+01_rb,0.37926e+01_rb,0.37822e+01_rb,0.37755e+01_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.41542e+01_rb,0.41473e+01_rb,0.41391e+01_rb,0.41329e+01_rb,0.41296e+01_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.44998e+01_rb,0.44963e+01_rb,0.44896e+01_rb,0.44914e+01_rb,0.44937e+01_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.48464e+01_rb,0.48445e+01_rb,0.48485e+01_rb,0.48565e+01_rb,0.48598e+01_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.52074e+01_rb,0.52112e+01_rb,0.52168e+01_rb,0.52231e+01_rb,0.52210e+01_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.55492e+01_rb,0.55575e+01_rb,0.55655e+01_rb,0.55693e+01_rb,0.55642e+01_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.58380e+01_rb,0.58479e+01_rb,0.58509e+01_rb,0.58482e+01_rb,0.58453e+01_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.60377e+01_rb,0.60538e+01_rb,0.60594e+01_rb,0.60647e+01_rb,0.60640e+01_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.61268e+01_rb,0.61532e+01_rb,0.61730e+01_rb,0.61888e+01_rb,0.61993e+01_rb /)\n      kao(:,10,13) = (/ &\n        & 0.61216e+01_rb,0.61612e+01_rb,0.61936e+01_rb,0.62230e+01_rb,0.62454e+01_rb /)\n      kao(:,11,13) = (/ &\n        & 0.60409e+01_rb,0.60960e+01_rb,0.61462e+01_rb,0.61882e+01_rb,0.62219e+01_rb /)\n      kao(:,12,13) = (/ &\n        & 0.58645e+01_rb,0.59597e+01_rb,0.60234e+01_rb,0.60826e+01_rb,0.61390e+01_rb /)\n      kao(:,13,13) = (/ &\n        & 0.56001e+01_rb,0.57009e+01_rb,0.58017e+01_rb,0.59181e+01_rb,0.59860e+01_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.53647e+01_rb,0.53127e+01_rb,0.52736e+01_rb,0.52471e+01_rb,0.52264e+01_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.62359e+01_rb,0.61753e+01_rb,0.61253e+01_rb,0.60847e+01_rb,0.60573e+01_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.72065e+01_rb,0.71249e+01_rb,0.70556e+01_rb,0.69965e+01_rb,0.69559e+01_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.81631e+01_rb,0.80714e+01_rb,0.79828e+01_rb,0.79081e+01_rb,0.78545e+01_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.90691e+01_rb,0.89602e+01_rb,0.88621e+01_rb,0.87858e+01_rb,0.87314e+01_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.99707e+01_rb,0.98474e+01_rb,0.97395e+01_rb,0.96541e+01_rb,0.95904e+01_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.10852e+02_rb,0.10724e+02_rb,0.10620e+02_rb,0.10536e+02_rb,0.10469e+02_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.11716e+02_rb,0.11588e+02_rb,0.11487e+02_rb,0.11403e+02_rb,0.11337e+02_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.12572e+02_rb,0.12448e+02_rb,0.12341e+02_rb,0.12260e+02_rb,0.12188e+02_rb /)\n      kao(:,10,14) = (/ &\n        & 0.13374e+02_rb,0.13256e+02_rb,0.13159e+02_rb,0.13080e+02_rb,0.13010e+02_rb /)\n      kao(:,11,14) = (/ &\n        & 0.14046e+02_rb,0.13957e+02_rb,0.13888e+02_rb,0.13824e+02_rb,0.13769e+02_rb /)\n      kao(:,12,14) = (/ &\n        & 0.14644e+02_rb,0.14592e+02_rb,0.14548e+02_rb,0.14504e+02_rb,0.14461e+02_rb /)\n      kao(:,13,14) = (/ &\n        & 0.15144e+02_rb,0.15129e+02_rb,0.15111e+02_rb,0.15095e+02_rb,0.15074e+02_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.72019e+01_rb,0.71097e+01_rb,0.70236e+01_rb,0.69449e+01_rb,0.68844e+01_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.87604e+01_rb,0.86468e+01_rb,0.85349e+01_rb,0.84375e+01_rb,0.83491e+01_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.10615e+02_rb,0.10469e+02_rb,0.10333e+02_rb,0.10214e+02_rb,0.10099e+02_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.12669e+02_rb,0.12473e+02_rb,0.12305e+02_rb,0.12161e+02_rb,0.12026e+02_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.14978e+02_rb,0.14741e+02_rb,0.14530e+02_rb,0.14329e+02_rb,0.14143e+02_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.17562e+02_rb,0.17282e+02_rb,0.17031e+02_rb,0.16791e+02_rb,0.16552e+02_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.20480e+02_rb,0.20136e+02_rb,0.19827e+02_rb,0.19524e+02_rb,0.19223e+02_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.23734e+02_rb,0.23307e+02_rb,0.22908e+02_rb,0.22521e+02_rb,0.22160e+02_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.27249e+02_rb,0.26733e+02_rb,0.26255e+02_rb,0.25787e+02_rb,0.25354e+02_rb /)\n      kao(:,10,15) = (/ &\n        & 0.30889e+02_rb,0.30311e+02_rb,0.29740e+02_rb,0.29192e+02_rb,0.28690e+02_rb /)\n      kao(:,11,15) = (/ &\n        & 0.34366e+02_rb,0.33687e+02_rb,0.33035e+02_rb,0.32430e+02_rb,0.31843e+02_rb /)\n      kao(:,12,15) = (/ &\n        & 0.37839e+02_rb,0.37085e+02_rb,0.36360e+02_rb,0.35655e+02_rb,0.34957e+02_rb /)\n      kao(:,13,15) = (/ &\n        & 0.41323e+02_rb,0.40503e+02_rb,0.39673e+02_rb,0.38847e+02_rb,0.38049e+02_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.82631e+01_rb,0.81761e+01_rb,0.80809e+01_rb,0.79778e+01_rb,0.79010e+01_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.10258e+02_rb,0.10128e+02_rb,0.10005e+02_rb,0.98803e+01_rb,0.97700e+01_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.12786e+02_rb,0.12614e+02_rb,0.12441e+02_rb,0.12267e+02_rb,0.12120e+02_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.15843e+02_rb,0.15549e+02_rb,0.15326e+02_rb,0.15095e+02_rb,0.14871e+02_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.19543e+02_rb,0.19089e+02_rb,0.18733e+02_rb,0.18430e+02_rb,0.18134e+02_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.24038e+02_rb,0.23415e+02_rb,0.22893e+02_rb,0.22427e+02_rb,0.22005e+02_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.29445e+02_rb,0.28630e+02_rb,0.27921e+02_rb,0.27268e+02_rb,0.26654e+02_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.35889e+02_rb,0.34849e+02_rb,0.33913e+02_rb,0.33036e+02_rb,0.32194e+02_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.43512e+02_rb,0.42175e+02_rb,0.40956e+02_rb,0.39809e+02_rb,0.38685e+02_rb /)\n      kao(:,10,16) = (/ &\n        & 0.52253e+02_rb,0.50582e+02_rb,0.49011e+02_rb,0.47508e+02_rb,0.46037e+02_rb /)\n      kao(:,11,16) = (/ &\n        & 0.61290e+02_rb,0.59240e+02_rb,0.57269e+02_rb,0.55343e+02_rb,0.53572e+02_rb /)\n      kao(:,12,16) = (/ &\n        & 0.71193e+02_rb,0.68607e+02_rb,0.66135e+02_rb,0.63828e+02_rb,0.61720e+02_rb /)\n      kao(:,13,16) = (/ &\n        & 0.81988e+02_rb,0.78665e+02_rb,0.75707e+02_rb,0.72932e+02_rb,0.70347e+02_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.29597e-05_rb,0.31929e-05_rb,0.34159e-05_rb,0.36256e-05_rb,0.38264e-05_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.24233e-05_rb,0.26151e-05_rb,0.27866e-05_rb,0.29502e-05_rb,0.31170e-05_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.19206e-05_rb,0.20789e-05_rb,0.22099e-05_rb,0.23383e-05_rb,0.24505e-05_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.14933e-05_rb,0.16071e-05_rb,0.17039e-05_rb,0.17994e-05_rb,0.18816e-05_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.11429e-05_rb,0.12144e-05_rb,0.12895e-05_rb,0.13503e-05_rb,0.14174e-05_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.84134e-06_rb,0.89264e-06_rb,0.94260e-06_rb,0.99003e-06_rb,0.10391e-05_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.60683e-06_rb,0.64142e-06_rb,0.68018e-06_rb,0.72042e-06_rb,0.75479e-06_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.45809e-06_rb,0.48813e-06_rb,0.51934e-06_rb,0.54823e-06_rb,0.57261e-06_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.35219e-06_rb,0.37835e-06_rb,0.40322e-06_rb,0.42772e-06_rb,0.44736e-06_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.27419e-06_rb,0.29542e-06_rb,0.31617e-06_rb,0.33398e-06_rb,0.34932e-06_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.21385e-06_rb,0.23127e-06_rb,0.24670e-06_rb,0.25951e-06_rb,0.26952e-06_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.16767e-06_rb,0.18179e-06_rb,0.19282e-06_rb,0.20136e-06_rb,0.21113e-06_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.13361e-06_rb,0.14301e-06_rb,0.14980e-06_rb,0.15778e-06_rb,0.16615e-06_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.10615e-06_rb,0.11218e-06_rb,0.11889e-06_rb,0.12574e-06_rb,0.13111e-06_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.83660e-07_rb,0.89296e-07_rb,0.95019e-07_rb,0.10007e-06_rb,0.10397e-06_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.66667e-07_rb,0.71217e-07_rb,0.75615e-07_rb,0.79237e-07_rb,0.82239e-07_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.52776e-07_rb,0.56086e-07_rb,0.59828e-07_rb,0.62513e-07_rb,0.64218e-07_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.41429e-07_rb,0.44370e-07_rb,0.46731e-07_rb,0.48553e-07_rb,0.50143e-07_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.32437e-07_rb,0.34523e-07_rb,0.36208e-07_rb,0.37500e-07_rb,0.38571e-07_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.25237e-07_rb,0.26730e-07_rb,0.27868e-07_rb,0.28829e-07_rb,0.29943e-07_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.19545e-07_rb,0.20614e-07_rb,0.21467e-07_rb,0.22280e-07_rb,0.23141e-07_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.15146e-07_rb,0.15869e-07_rb,0.16509e-07_rb,0.17179e-07_rb,0.17980e-07_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.11482e-07_rb,0.12039e-07_rb,0.12547e-07_rb,0.13255e-07_rb,0.13874e-07_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.86172e-08_rb,0.90023e-08_rb,0.95607e-08_rb,0.10106e-07_rb,0.10595e-07_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.67411e-08_rb,0.70781e-08_rb,0.75553e-08_rb,0.79739e-08_rb,0.84011e-08_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.52604e-08_rb,0.55743e-08_rb,0.59410e-08_rb,0.63031e-08_rb,0.66516e-08_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.41129e-08_rb,0.43854e-08_rb,0.46851e-08_rb,0.49771e-08_rb,0.52463e-08_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.33089e-08_rb,0.35289e-08_rb,0.37702e-08_rb,0.40125e-08_rb,0.42415e-08_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.26794e-08_rb,0.28488e-08_rb,0.30428e-08_rb,0.32437e-08_rb,0.34420e-08_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.21670e-08_rb,0.23030e-08_rb,0.24589e-08_rb,0.26252e-08_rb,0.27867e-08_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.17699e-08_rb,0.18853e-08_rb,0.20001e-08_rb,0.21330e-08_rb,0.22657e-08_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.14446e-08_rb,0.15471e-08_rb,0.16397e-08_rb,0.17423e-08_rb,0.18526e-08_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.11734e-08_rb,0.12754e-08_rb,0.13542e-08_rb,0.14242e-08_rb,0.15193e-08_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.95743e-09_rb,0.10470e-08_rb,0.11183e-08_rb,0.11726e-08_rb,0.12389e-08_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.77345e-09_rb,0.85197e-09_rb,0.92184e-09_rb,0.97368e-09_rb,0.10149e-08_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.62500e-09_rb,0.69288e-09_rb,0.75548e-09_rb,0.80446e-09_rb,0.84428e-09_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.50095e-09_rb,0.55967e-09_rb,0.61904e-09_rb,0.66441e-09_rb,0.70339e-09_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.40806e-09_rb,0.45712e-09_rb,0.50530e-09_rb,0.54974e-09_rb,0.58246e-09_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.33102e-09_rb,0.37130e-09_rb,0.41121e-09_rb,0.45024e-09_rb,0.48436e-09_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.26906e-09_rb,0.30739e-09_rb,0.33845e-09_rb,0.36884e-09_rb,0.40024e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.22202e-09_rb,0.25108e-09_rb,0.27937e-09_rb,0.30592e-09_rb,0.33012e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.18662e-09_rb,0.20761e-09_rb,0.23072e-09_rb,0.25342e-09_rb,0.27445e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.15741e-09_rb,0.17147e-09_rb,0.19146e-09_rb,0.21029e-09_rb,0.22857e-09_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.13151e-09_rb,0.14637e-09_rb,0.15977e-09_rb,0.17547e-09_rb,0.18974e-09_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.10874e-09_rb,0.12447e-09_rb,0.13634e-09_rb,0.14752e-09_rb,0.16022e-09_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.90206e-10_rb,0.10484e-09_rb,0.11617e-09_rb,0.12545e-09_rb,0.13474e-09_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.76759e-10_rb,0.88866e-10_rb,0.99340e-10_rb,0.10706e-09_rb,0.11444e-09_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.14727e-04_rb,0.16357e-04_rb,0.17961e-04_rb,0.19530e-04_rb,0.20852e-04_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.12148e-04_rb,0.13478e-04_rb,0.14818e-04_rb,0.16049e-04_rb,0.17100e-04_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.96902e-05_rb,0.10787e-04_rb,0.11835e-04_rb,0.12770e-04_rb,0.13515e-04_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.76235e-05_rb,0.84575e-05_rb,0.92217e-05_rb,0.98526e-05_rb,0.10449e-04_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.58049e-05_rb,0.64239e-05_rb,0.69733e-05_rb,0.74131e-05_rb,0.78082e-05_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.43204e-05_rb,0.47510e-05_rb,0.51165e-05_rb,0.54579e-05_rb,0.57434e-05_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.32211e-05_rb,0.35327e-05_rb,0.38175e-05_rb,0.40535e-05_rb,0.42245e-05_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.25265e-05_rb,0.27652e-05_rb,0.29644e-05_rb,0.31331e-05_rb,0.32730e-05_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.19921e-05_rb,0.21749e-05_rb,0.23343e-05_rb,0.24377e-05_rb,0.25458e-05_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.15859e-05_rb,0.17259e-05_rb,0.18236e-05_rb,0.19124e-05_rb,0.19942e-05_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.12591e-05_rb,0.13565e-05_rb,0.14309e-05_rb,0.15032e-05_rb,0.15642e-05_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.10012e-05_rb,0.10701e-05_rb,0.11246e-05_rb,0.11819e-05_rb,0.12279e-05_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.78985e-06_rb,0.84074e-06_rb,0.89029e-06_rb,0.93145e-06_rb,0.97085e-06_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.62996e-06_rb,0.66847e-06_rb,0.70637e-06_rb,0.73513e-06_rb,0.77135e-06_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.50283e-06_rb,0.53111e-06_rb,0.55653e-06_rb,0.58306e-06_rb,0.61799e-06_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.39962e-06_rb,0.42320e-06_rb,0.44265e-06_rb,0.46715e-06_rb,0.49516e-06_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.31810e-06_rb,0.33597e-06_rb,0.35191e-06_rb,0.37448e-06_rb,0.39768e-06_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.25242e-06_rb,0.26447e-06_rb,0.28109e-06_rb,0.30089e-06_rb,0.31543e-06_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.19837e-06_rb,0.20954e-06_rb,0.22442e-06_rb,0.23762e-06_rb,0.25183e-06_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.15599e-06_rb,0.16701e-06_rb,0.17789e-06_rb,0.18880e-06_rb,0.20030e-06_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.12307e-06_rb,0.13211e-06_rb,0.14046e-06_rb,0.15111e-06_rb,0.15988e-06_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.98429e-07_rb,0.10498e-06_rb,0.11326e-06_rb,0.12074e-06_rb,0.12779e-06_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.77743e-07_rb,0.83951e-07_rb,0.90473e-07_rb,0.96277e-07_rb,0.10204e-06_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.61220e-07_rb,0.66399e-07_rb,0.71102e-07_rb,0.75946e-07_rb,0.80803e-07_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.48819e-07_rb,0.52962e-07_rb,0.56669e-07_rb,0.60817e-07_rb,0.64709e-07_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.38871e-07_rb,0.42226e-07_rb,0.45376e-07_rb,0.48641e-07_rb,0.51855e-07_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.30869e-07_rb,0.33485e-07_rb,0.36233e-07_rb,0.38868e-07_rb,0.41523e-07_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.24798e-07_rb,0.26983e-07_rb,0.29180e-07_rb,0.31437e-07_rb,0.33600e-07_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.19951e-07_rb,0.21784e-07_rb,0.23518e-07_rb,0.25460e-07_rb,0.27219e-07_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.16098e-07_rb,0.17542e-07_rb,0.18979e-07_rb,0.20547e-07_rb,0.22016e-07_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.13020e-07_rb,0.14144e-07_rb,0.15414e-07_rb,0.16610e-07_rb,0.17870e-07_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.10548e-07_rb,0.11500e-07_rb,0.12492e-07_rb,0.13520e-07_rb,0.14524e-07_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.85602e-08_rb,0.93245e-08_rb,0.10096e-07_rb,0.10978e-07_rb,0.11819e-07_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.69149e-08_rb,0.75653e-08_rb,0.82154e-08_rb,0.88822e-08_rb,0.96002e-08_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.55708e-08_rb,0.61164e-08_rb,0.66678e-08_rb,0.71922e-08_rb,0.77633e-08_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.44804e-08_rb,0.49312e-08_rb,0.53967e-08_rb,0.58662e-08_rb,0.62780e-08_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.36467e-08_rb,0.39866e-08_rb,0.43628e-08_rb,0.47589e-08_rb,0.51208e-08_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.29524e-08_rb,0.32540e-08_rb,0.35471e-08_rb,0.38638e-08_rb,0.41887e-08_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.23887e-08_rb,0.26526e-08_rb,0.28959e-08_rb,0.31504e-08_rb,0.34112e-08_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.19321e-08_rb,0.21648e-08_rb,0.23625e-08_rb,0.25839e-08_rb,0.28173e-08_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.15684e-08_rb,0.17725e-08_rb,0.19476e-08_rb,0.21240e-08_rb,0.23118e-08_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.12799e-08_rb,0.14467e-08_rb,0.16073e-08_rb,0.17494e-08_rb,0.19160e-08_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.10442e-08_rb,0.11911e-08_rb,0.13216e-08_rb,0.14537e-08_rb,0.15771e-08_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.85741e-09_rb,0.97937e-09_rb,0.10936e-08_rb,0.12056e-08_rb,0.13167e-08_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.70358e-09_rb,0.80334e-09_rb,0.90824e-09_rb,0.10056e-08_rb,0.11010e-08_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.57428e-09_rb,0.66441e-09_rb,0.75420e-09_rb,0.83627e-09_rb,0.92485e-09_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.47922e-09_rb,0.55592e-09_rb,0.63499e-09_rb,0.70731e-09_rb,0.78678e-09_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.76201e-04_rb,0.82699e-04_rb,0.87499e-04_rb,0.91352e-04_rb,0.95348e-04_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.62821e-04_rb,0.67861e-04_rb,0.71868e-04_rb,0.75108e-04_rb,0.78557e-04_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.49775e-04_rb,0.53367e-04_rb,0.56639e-04_rb,0.59001e-04_rb,0.62303e-04_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.38005e-04_rb,0.40883e-04_rb,0.43269e-04_rb,0.45403e-04_rb,0.48139e-04_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.28550e-04_rb,0.30750e-04_rb,0.32331e-04_rb,0.34489e-04_rb,0.36687e-04_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.20976e-04_rb,0.22322e-04_rb,0.23743e-04_rb,0.25554e-04_rb,0.27223e-04_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.15389e-04_rb,0.16422e-04_rb,0.17792e-04_rb,0.19127e-04_rb,0.20295e-04_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.11883e-04_rb,0.12816e-04_rb,0.13962e-04_rb,0.14872e-04_rb,0.15725e-04_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.92948e-05_rb,0.10187e-04_rb,0.10986e-04_rb,0.11713e-04_rb,0.12426e-04_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.73969e-05_rb,0.80840e-05_rb,0.87263e-05_rb,0.93856e-05_rb,0.99533e-05_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.58961e-05_rb,0.64591e-05_rb,0.69648e-05_rb,0.74494e-05_rb,0.79385e-05_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.47445e-05_rb,0.51742e-05_rb,0.56036e-05_rb,0.59758e-05_rb,0.63724e-05_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.38442e-05_rb,0.41791e-05_rb,0.44837e-05_rb,0.48078e-05_rb,0.51294e-05_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.31335e-05_rb,0.33923e-05_rb,0.36400e-05_rb,0.38961e-05_rb,0.41487e-05_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.25499e-05_rb,0.27432e-05_rb,0.29560e-05_rb,0.31545e-05_rb,0.33433e-05_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.20635e-05_rb,0.22231e-05_rb,0.23897e-05_rb,0.25516e-05_rb,0.26938e-05_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.16635e-05_rb,0.18024e-05_rb,0.19279e-05_rb,0.20498e-05_rb,0.21627e-05_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.13359e-05_rb,0.14474e-05_rb,0.15470e-05_rb,0.16346e-05_rb,0.17457e-05_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.10697e-05_rb,0.11477e-05_rb,0.12254e-05_rb,0.13097e-05_rb,0.13914e-05_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.84958e-06_rb,0.91464e-06_rb,0.98189e-06_rb,0.10489e-05_rb,0.11150e-05_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.68178e-06_rb,0.73356e-06_rb,0.78905e-06_rb,0.84226e-06_rb,0.89476e-06_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.54737e-06_rb,0.58995e-06_rb,0.63374e-06_rb,0.67732e-06_rb,0.72182e-06_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.43680e-06_rb,0.47086e-06_rb,0.50771e-06_rb,0.54209e-06_rb,0.57687e-06_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.34612e-06_rb,0.37466e-06_rb,0.40370e-06_rb,0.43073e-06_rb,0.45979e-06_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.27725e-06_rb,0.30048e-06_rb,0.32451e-06_rb,0.34638e-06_rb,0.37105e-06_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.22228e-06_rb,0.24114e-06_rb,0.26049e-06_rb,0.27871e-06_rb,0.29935e-06_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.17797e-06_rb,0.19317e-06_rb,0.20878e-06_rb,0.22411e-06_rb,0.24102e-06_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.14346e-06_rb,0.15601e-06_rb,0.16913e-06_rb,0.18197e-06_rb,0.19566e-06_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.11559e-06_rb,0.12615e-06_rb,0.13697e-06_rb,0.14785e-06_rb,0.15874e-06_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.93358e-07_rb,0.10214e-06_rb,0.11089e-06_rb,0.11998e-06_rb,0.12904e-06_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.75599e-07_rb,0.82690e-07_rb,0.89808e-07_rb,0.97524e-07_rb,0.10511e-06_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.61285e-07_rb,0.66786e-07_rb,0.72937e-07_rb,0.79087e-07_rb,0.85525e-07_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.49725e-07_rb,0.54294e-07_rb,0.59263e-07_rb,0.64213e-07_rb,0.69583e-07_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.40336e-07_rb,0.44186e-07_rb,0.48034e-07_rb,0.52184e-07_rb,0.56534e-07_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.32904e-07_rb,0.35633e-07_rb,0.38959e-07_rb,0.42402e-07_rb,0.45883e-07_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.26725e-07_rb,0.29104e-07_rb,0.31693e-07_rb,0.34312e-07_rb,0.37304e-07_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.21751e-07_rb,0.23849e-07_rb,0.25803e-07_rb,0.28024e-07_rb,0.30356e-07_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.17587e-07_rb,0.19609e-07_rb,0.21216e-07_rb,0.23022e-07_rb,0.24942e-07_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.14376e-07_rb,0.15990e-07_rb,0.17493e-07_rb,0.18872e-07_rb,0.20463e-07_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.11811e-07_rb,0.13106e-07_rb,0.14489e-07_rb,0.15615e-07_rb,0.16832e-07_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.96001e-08_rb,0.10788e-07_rb,0.11921e-07_rb,0.12985e-07_rb,0.13904e-07_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.78243e-08_rb,0.89178e-08_rb,0.98430e-08_rb,0.10840e-07_rb,0.11619e-07_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.63638e-08_rb,0.73678e-08_rb,0.82214e-08_rb,0.89997e-08_rb,0.97565e-08_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.51753e-08_rb,0.60497e-08_rb,0.68419e-08_rb,0.74560e-08_rb,0.82362e-08_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.42164e-08_rb,0.49916e-08_rb,0.57066e-08_rb,0.63308e-08_rb,0.68950e-08_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.34618e-08_rb,0.41424e-08_rb,0.48054e-08_rb,0.53757e-08_rb,0.58095e-08_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.29083e-08_rb,0.35291e-08_rb,0.40932e-08_rb,0.46285e-08_rb,0.49865e-08_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.37674e-03_rb,0.40953e-03_rb,0.43690e-03_rb,0.46059e-03_rb,0.48007e-03_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.31202e-03_rb,0.33906e-03_rb,0.36066e-03_rb,0.38003e-03_rb,0.39627e-03_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.25135e-03_rb,0.27271e-03_rb,0.29069e-03_rb,0.30661e-03_rb,0.32005e-03_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.19797e-03_rb,0.21527e-03_rb,0.22955e-03_rb,0.24328e-03_rb,0.25456e-03_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.15354e-03_rb,0.16679e-03_rb,0.17933e-03_rb,0.19101e-03_rb,0.20041e-03_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.11742e-03_rb,0.12797e-03_rb,0.13923e-03_rb,0.14836e-03_rb,0.15654e-03_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.90519e-04_rb,0.99386e-04_rb,0.10819e-03_rb,0.11601e-03_rb,0.12319e-03_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.72579e-04_rb,0.79910e-04_rb,0.87075e-04_rb,0.93728e-04_rb,0.99656e-04_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.58866e-04_rb,0.64805e-04_rb,0.70705e-04_rb,0.76153e-04_rb,0.80996e-04_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.48157e-04_rb,0.52883e-04_rb,0.57740e-04_rb,0.62130e-04_rb,0.66100e-04_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.39337e-04_rb,0.43289e-04_rb,0.47275e-04_rb,0.50906e-04_rb,0.54161e-04_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.32289e-04_rb,0.35577e-04_rb,0.38808e-04_rb,0.41814e-04_rb,0.44433e-04_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.26615e-04_rb,0.29301e-04_rb,0.31984e-04_rb,0.34396e-04_rb,0.36509e-04_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.22060e-04_rb,0.24270e-04_rb,0.26460e-04_rb,0.28450e-04_rb,0.30203e-04_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.18344e-04_rb,0.20177e-04_rb,0.21948e-04_rb,0.23595e-04_rb,0.25001e-04_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.15256e-04_rb,0.16787e-04_rb,0.18242e-04_rb,0.19561e-04_rb,0.20696e-04_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.12679e-04_rb,0.13952e-04_rb,0.15170e-04_rb,0.16211e-04_rb,0.17163e-04_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.10550e-04_rb,0.11605e-04_rb,0.12579e-04_rb,0.13451e-04_rb,0.14210e-04_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.87512e-05_rb,0.96322e-05_rb,0.10433e-04_rb,0.11133e-04_rb,0.11762e-04_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.73001e-05_rb,0.80203e-05_rb,0.86745e-05_rb,0.92292e-05_rb,0.97295e-05_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.60958e-05_rb,0.66862e-05_rb,0.72006e-05_rb,0.76359e-05_rb,0.80576e-05_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.50855e-05_rb,0.55671e-05_rb,0.59670e-05_rb,0.63392e-05_rb,0.66869e-05_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.42033e-05_rb,0.45905e-05_rb,0.49250e-05_rb,0.52384e-05_rb,0.55369e-05_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.34384e-05_rb,0.37618e-05_rb,0.40430e-05_rb,0.43060e-05_rb,0.45577e-05_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.28039e-05_rb,0.30749e-05_rb,0.33135e-05_rb,0.35344e-05_rb,0.37458e-05_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.22842e-05_rb,0.25104e-05_rb,0.27126e-05_rb,0.28966e-05_rb,0.30768e-05_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.18585e-05_rb,0.20510e-05_rb,0.22194e-05_rb,0.23731e-05_rb,0.25249e-05_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.15041e-05_rb,0.16676e-05_rb,0.18097e-05_rb,0.19402e-05_rb,0.20681e-05_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.12154e-05_rb,0.13541e-05_rb,0.14749e-05_rb,0.15852e-05_rb,0.16934e-05_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.98033e-06_rb,0.10975e-05_rb,0.12011e-05_rb,0.12945e-05_rb,0.13859e-05_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.78724e-06_rb,0.88625e-06_rb,0.97486e-06_rb,0.10554e-05_rb,0.11307e-05_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.63059e-06_rb,0.71382e-06_rb,0.78948e-06_rb,0.85755e-06_rb,0.92044e-06_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.50426e-06_rb,0.57391e-06_rb,0.63808e-06_rb,0.69718e-06_rb,0.74972e-06_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.40133e-06_rb,0.45858e-06_rb,0.51414e-06_rb,0.56400e-06_rb,0.60964e-06_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.31580e-06_rb,0.36440e-06_rb,0.41120e-06_rb,0.45433e-06_rb,0.49348e-06_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.24847e-06_rb,0.28907e-06_rb,0.32879e-06_rb,0.36537e-06_rb,0.39903e-06_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.19530e-06_rb,0.22858e-06_rb,0.26247e-06_rb,0.29331e-06_rb,0.32217e-06_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.15364e-06_rb,0.18113e-06_rb,0.20911e-06_rb,0.23589e-06_rb,0.25994e-06_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.12072e-06_rb,0.14413e-06_rb,0.16656e-06_rb,0.18952e-06_rb,0.20983e-06_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.94925e-07_rb,0.11397e-06_rb,0.13255e-06_rb,0.15193e-06_rb,0.16960e-06_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.74473e-07_rb,0.90197e-07_rb,0.10574e-06_rb,0.12153e-06_rb,0.13661e-06_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.59009e-07_rb,0.71594e-07_rb,0.84781e-07_rb,0.97758e-07_rb,0.11018e-06_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.47008e-07_rb,0.56997e-07_rb,0.67838e-07_rb,0.78753e-07_rb,0.89116e-07_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.37415e-07_rb,0.45642e-07_rb,0.54420e-07_rb,0.63466e-07_rb,0.71910e-07_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.29896e-07_rb,0.36635e-07_rb,0.43697e-07_rb,0.51036e-07_rb,0.58267e-07_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.23946e-07_rb,0.29523e-07_rb,0.35316e-07_rb,0.41183e-07_rb,0.47391e-07_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.19881e-07_rb,0.24642e-07_rb,0.29390e-07_rb,0.34099e-07_rb,0.39234e-07_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.12771e-02_rb,0.13202e-02_rb,0.13557e-02_rb,0.13927e-02_rb,0.14233e-02_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.10608e-02_rb,0.10951e-02_rb,0.11249e-02_rb,0.11549e-02_rb,0.11788e-02_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.86750e-03_rb,0.89679e-03_rb,0.91986e-03_rb,0.94399e-03_rb,0.96405e-03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.70073e-03_rb,0.72504e-03_rb,0.74630e-03_rb,0.76495e-03_rb,0.78165e-03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.56280e-03_rb,0.58321e-03_rb,0.60153e-03_rb,0.61544e-03_rb,0.62885e-03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.44940e-03_rb,0.46598e-03_rb,0.47887e-03_rb,0.49058e-03_rb,0.50223e-03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.35753e-03_rb,0.37064e-03_rb,0.38290e-03_rb,0.39390e-03_rb,0.40387e-03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.29013e-03_rb,0.30099e-03_rb,0.31179e-03_rb,0.32117e-03_rb,0.33011e-03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.23657e-03_rb,0.24602e-03_rb,0.25504e-03_rb,0.26340e-03_rb,0.27145e-03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.19423e-03_rb,0.20224e-03_rb,0.20987e-03_rb,0.21711e-03_rb,0.22439e-03_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.15963e-03_rb,0.16643e-03_rb,0.17308e-03_rb,0.17949e-03_rb,0.18580e-03_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.13166e-03_rb,0.13745e-03_rb,0.14332e-03_rb,0.14871e-03_rb,0.15428e-03_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.10885e-03_rb,0.11394e-03_rb,0.11896e-03_rb,0.12371e-03_rb,0.12846e-03_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.90403e-04_rb,0.94914e-04_rb,0.99157e-04_rb,0.10310e-03_rb,0.10729e-03_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.75265e-04_rb,0.79166e-04_rb,0.82648e-04_rb,0.86209e-04_rb,0.89882e-04_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.62870e-04_rb,0.66050e-04_rb,0.69111e-04_rb,0.72289e-04_rb,0.75451e-04_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.52465e-04_rb,0.55192e-04_rb,0.57887e-04_rb,0.60660e-04_rb,0.63367e-04_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.43887e-04_rb,0.46191e-04_rb,0.48588e-04_rb,0.50910e-04_rb,0.53278e-04_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.36760e-04_rb,0.38766e-04_rb,0.40783e-04_rb,0.42783e-04_rb,0.44780e-04_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.30831e-04_rb,0.32561e-04_rb,0.34267e-04_rb,0.36000e-04_rb,0.37594e-04_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.25908e-04_rb,0.27389e-04_rb,0.28832e-04_rb,0.30290e-04_rb,0.31581e-04_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.21776e-04_rb,0.23026e-04_rb,0.24266e-04_rb,0.25444e-04_rb,0.26510e-04_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.18233e-04_rb,0.19280e-04_rb,0.20324e-04_rb,0.21266e-04_rb,0.22141e-04_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.15160e-04_rb,0.16042e-04_rb,0.16918e-04_rb,0.17686e-04_rb,0.18406e-04_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.12538e-04_rb,0.13285e-04_rb,0.14015e-04_rb,0.14657e-04_rb,0.15269e-04_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.10357e-04_rb,0.10990e-04_rb,0.11595e-04_rb,0.12148e-04_rb,0.12651e-04_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.85566e-05_rb,0.90856e-05_rb,0.95986e-05_rb,0.10057e-04_rb,0.10478e-04_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.70390e-05_rb,0.74826e-05_rb,0.79200e-05_rb,0.83061e-05_rb,0.86634e-05_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.57827e-05_rb,0.61572e-05_rb,0.65269e-05_rb,0.68528e-05_rb,0.71595e-05_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.47477e-05_rb,0.50656e-05_rb,0.53705e-05_rb,0.56486e-05_rb,0.59100e-05_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.38802e-05_rb,0.41533e-05_rb,0.44089e-05_rb,0.46515e-05_rb,0.48719e-05_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.31658e-05_rb,0.33971e-05_rb,0.36177e-05_rb,0.38205e-05_rb,0.40089e-05_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.25796e-05_rb,0.27740e-05_rb,0.29635e-05_rb,0.31336e-05_rb,0.32986e-05_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.20945e-05_rb,0.22636e-05_rb,0.24214e-05_rb,0.25698e-05_rb,0.27077e-05_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.16931e-05_rb,0.18383e-05_rb,0.19729e-05_rb,0.20996e-05_rb,0.22172e-05_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.13650e-05_rb,0.14889e-05_rb,0.16043e-05_rb,0.17139e-05_rb,0.18136e-05_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.10981e-05_rb,0.12042e-05_rb,0.13028e-05_rb,0.13963e-05_rb,0.14824e-05_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.88407e-06_rb,0.97370e-06_rb,0.10589e-05_rb,0.11383e-05_rb,0.12124e-05_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.71150e-06_rb,0.78682e-06_rb,0.86048e-06_rb,0.92711e-06_rb,0.99128e-06_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.57140e-06_rb,0.63513e-06_rb,0.69790e-06_rb,0.75466e-06_rb,0.80946e-06_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.45871e-06_rb,0.51183e-06_rb,0.56494e-06_rb,0.61376e-06_rb,0.66022e-06_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.36889e-06_rb,0.41319e-06_rb,0.45759e-06_rb,0.49973e-06_rb,0.53933e-06_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.29683e-06_rb,0.33396e-06_rb,0.37110e-06_rb,0.40671e-06_rb,0.44026e-06_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.23828e-06_rb,0.26973e-06_rb,0.30048e-06_rb,0.33099e-06_rb,0.35949e-06_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.19083e-06_rb,0.21782e-06_rb,0.24350e-06_rb,0.26883e-06_rb,0.29309e-06_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.15334e-06_rb,0.17592e-06_rb,0.19753e-06_rb,0.21869e-06_rb,0.23903e-06_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.12635e-06_rb,0.14504e-06_rb,0.16321e-06_rb,0.18074e-06_rb,0.19759e-06_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.33433e-02_rb,0.34159e-02_rb,0.34798e-02_rb,0.35397e-02_rb,0.35995e-02_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.28039e-02_rb,0.28589e-02_rb,0.29090e-02_rb,0.29595e-02_rb,0.30108e-02_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.23135e-02_rb,0.23579e-02_rb,0.24012e-02_rb,0.24470e-02_rb,0.24900e-02_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.18925e-02_rb,0.19281e-02_rb,0.19671e-02_rb,0.20090e-02_rb,0.20445e-02_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.15365e-02_rb,0.15703e-02_rb,0.16039e-02_rb,0.16424e-02_rb,0.16760e-02_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.12424e-02_rb,0.12746e-02_rb,0.13067e-02_rb,0.13397e-02_rb,0.13687e-02_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.10113e-02_rb,0.10417e-02_rb,0.10664e-02_rb,0.10958e-02_rb,0.11231e-02_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.83375e-03_rb,0.85863e-03_rb,0.88098e-03_rb,0.90680e-03_rb,0.93093e-03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.68849e-03_rb,0.71056e-03_rb,0.73161e-03_rb,0.75402e-03_rb,0.77432e-03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.57076e-03_rb,0.59001e-03_rb,0.60925e-03_rb,0.62816e-03_rb,0.64531e-03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.47462e-03_rb,0.49138e-03_rb,0.50818e-03_rb,0.52421e-03_rb,0.53930e-03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.39552e-03_rb,0.41011e-03_rb,0.42460e-03_rb,0.43865e-03_rb,0.45206e-03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.33041e-03_rb,0.34317e-03_rb,0.35573e-03_rb,0.36800e-03_rb,0.38005e-03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.27699e-03_rb,0.28806e-03_rb,0.29892e-03_rb,0.30983e-03_rb,0.32038e-03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.23253e-03_rb,0.24229e-03_rb,0.25208e-03_rb,0.26144e-03_rb,0.27039e-03_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.19573e-03_rb,0.20442e-03_rb,0.21276e-03_rb,0.22087e-03_rb,0.22869e-03_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.16528e-03_rb,0.17271e-03_rb,0.17974e-03_rb,0.18681e-03_rb,0.19373e-03_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.13949e-03_rb,0.14599e-03_rb,0.15214e-03_rb,0.15834e-03_rb,0.16448e-03_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.11793e-03_rb,0.12345e-03_rb,0.12891e-03_rb,0.13432e-03_rb,0.13975e-03_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.99845e-04_rb,0.10464e-03_rb,0.10941e-03_rb,0.11425e-03_rb,0.11896e-03_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.84723e-04_rb,0.88808e-04_rb,0.93054e-04_rb,0.97257e-04_rb,0.10144e-03_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.71857e-04_rb,0.75478e-04_rb,0.79245e-04_rb,0.82878e-04_rb,0.86527e-04_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.60741e-04_rb,0.63987e-04_rb,0.67190e-04_rb,0.70445e-04_rb,0.73634e-04_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.51094e-04_rb,0.53953e-04_rb,0.56787e-04_rb,0.59644e-04_rb,0.62421e-04_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.42809e-04_rb,0.45324e-04_rb,0.47805e-04_rb,0.50314e-04_rb,0.52797e-04_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.35862e-04_rb,0.38082e-04_rb,0.40249e-04_rb,0.42459e-04_rb,0.44691e-04_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.30047e-04_rb,0.31970e-04_rb,0.33877e-04_rb,0.35841e-04_rb,0.37792e-04_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.25051e-04_rb,0.26734e-04_rb,0.28429e-04_rb,0.30177e-04_rb,0.31859e-04_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.20858e-04_rb,0.22337e-04_rb,0.23837e-04_rb,0.25348e-04_rb,0.26845e-04_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.17358e-04_rb,0.18653e-04_rb,0.19947e-04_rb,0.21279e-04_rb,0.22614e-04_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.14382e-04_rb,0.15507e-04_rb,0.16637e-04_rb,0.17808e-04_rb,0.18975e-04_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.11875e-04_rb,0.12851e-04_rb,0.13847e-04_rb,0.14865e-04_rb,0.15886e-04_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.97824e-05_rb,0.10641e-04_rb,0.11497e-04_rb,0.12386e-04_rb,0.13288e-04_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.80305e-05_rb,0.87712e-05_rb,0.95170e-05_rb,0.10282e-04_rb,0.11073e-04_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.65554e-05_rb,0.71881e-05_rb,0.78331e-05_rb,0.85022e-05_rb,0.91799e-05_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.53399e-05_rb,0.58818e-05_rb,0.64364e-05_rb,0.70093e-05_rb,0.75992e-05_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.43396e-05_rb,0.47990e-05_rb,0.52727e-05_rb,0.57633e-05_rb,0.62785e-05_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.35272e-05_rb,0.39139e-05_rb,0.43230e-05_rb,0.47423e-05_rb,0.51819e-05_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.28624e-05_rb,0.31913e-05_rb,0.35379e-05_rb,0.38979e-05_rb,0.42744e-05_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.23189e-05_rb,0.25961e-05_rb,0.28907e-05_rb,0.31976e-05_rb,0.35200e-05_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.18736e-05_rb,0.21072e-05_rb,0.23576e-05_rb,0.26179e-05_rb,0.28943e-05_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.15155e-05_rb,0.17135e-05_rb,0.19245e-05_rb,0.21451e-05_rb,0.23808e-05_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.12250e-05_rb,0.13923e-05_rb,0.15714e-05_rb,0.17578e-05_rb,0.19597e-05_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.99012e-06_rb,0.11296e-05_rb,0.12801e-05_rb,0.14395e-05_rb,0.16107e-05_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.79875e-06_rb,0.91418e-06_rb,0.10408e-05_rb,0.11777e-05_rb,0.13212e-05_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.64474e-06_rb,0.74109e-06_rb,0.84664e-06_rb,0.96328e-06_rb,0.10849e-05_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.53296e-06_rb,0.61427e-06_rb,0.70385e-06_rb,0.80375e-06_rb,0.90863e-06_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.91063e-02_rb,0.92681e-02_rb,0.94045e-02_rb,0.95388e-02_rb,0.96735e-02_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.78483e-02_rb,0.79806e-02_rb,0.81238e-02_rb,0.82528e-02_rb,0.83603e-02_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.66269e-02_rb,0.67445e-02_rb,0.68845e-02_rb,0.69911e-02_rb,0.70854e-02_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.55183e-02_rb,0.56414e-02_rb,0.57574e-02_rb,0.58487e-02_rb,0.59407e-02_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.45693e-02_rb,0.46780e-02_rb,0.47743e-02_rb,0.48625e-02_rb,0.49467e-02_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.37611e-02_rb,0.38535e-02_rb,0.39408e-02_rb,0.40234e-02_rb,0.41007e-02_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.30991e-02_rb,0.31809e-02_rb,0.32647e-02_rb,0.33388e-02_rb,0.34042e-02_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.25858e-02_rb,0.26585e-02_rb,0.27347e-02_rb,0.27990e-02_rb,0.28579e-02_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.21672e-02_rb,0.22326e-02_rb,0.22973e-02_rb,0.23547e-02_rb,0.24058e-02_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.18211e-02_rb,0.18809e-02_rb,0.19364e-02_rb,0.19859e-02_rb,0.20352e-02_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.15314e-02_rb,0.15844e-02_rb,0.16332e-02_rb,0.16760e-02_rb,0.17243e-02_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.12924e-02_rb,0.13385e-02_rb,0.13793e-02_rb,0.14209e-02_rb,0.14659e-02_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.10926e-02_rb,0.11322e-02_rb,0.11689e-02_rb,0.12081e-02_rb,0.12493e-02_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.92756e-03_rb,0.96136e-03_rb,0.99601e-03_rb,0.10324e-02_rb,0.10695e-02_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.78832e-03_rb,0.81893e-03_rb,0.85137e-03_rb,0.88465e-03_rb,0.91885e-03_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.67097e-03_rb,0.69979e-03_rb,0.72985e-03_rb,0.76038e-03_rb,0.79213e-03_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.57231e-03_rb,0.59934e-03_rb,0.62727e-03_rb,0.65471e-03_rb,0.68389e-03_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.48996e-03_rb,0.51441e-03_rb,0.53945e-03_rb,0.56564e-03_rb,0.59164e-03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.41998e-03_rb,0.44237e-03_rb,0.46551e-03_rb,0.48924e-03_rb,0.51322e-03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.36133e-03_rb,0.38168e-03_rb,0.40297e-03_rb,0.42441e-03_rb,0.44722e-03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.31153e-03_rb,0.33055e-03_rb,0.34980e-03_rb,0.36972e-03_rb,0.39086e-03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.26941e-03_rb,0.28657e-03_rb,0.30436e-03_rb,0.32295e-03_rb,0.34256e-03_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.23210e-03_rb,0.24782e-03_rb,0.26411e-03_rb,0.28121e-03_rb,0.29930e-03_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.19904e-03_rb,0.21311e-03_rb,0.22797e-03_rb,0.24380e-03_rb,0.26030e-03_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.17000e-03_rb,0.18300e-03_rb,0.19666e-03_rb,0.21128e-03_rb,0.22641e-03_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.14528e-03_rb,0.15704e-03_rb,0.16975e-03_rb,0.18320e-03_rb,0.19735e-03_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.12414e-03_rb,0.13496e-03_rb,0.14654e-03_rb,0.15899e-03_rb,0.17211e-03_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.10567e-03_rb,0.11547e-03_rb,0.12618e-03_rb,0.13765e-03_rb,0.14994e-03_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.89774e-04_rb,0.98751e-04_rb,0.10852e-03_rb,0.11918e-03_rb,0.13057e-03_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.76232e-04_rb,0.84383e-04_rb,0.93336e-04_rb,0.10314e-03_rb,0.11381e-03_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.64370e-04_rb,0.71684e-04_rb,0.79797e-04_rb,0.88850e-04_rb,0.98733e-04_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.54125e-04_rb,0.60680e-04_rb,0.68042e-04_rb,0.76313e-04_rb,0.85432e-04_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.45374e-04_rb,0.51280e-04_rb,0.57932e-04_rb,0.65429e-04_rb,0.73852e-04_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.37861e-04_rb,0.43078e-04_rb,0.49016e-04_rb,0.55844e-04_rb,0.63538e-04_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.31342e-04_rb,0.35879e-04_rb,0.41175e-04_rb,0.47252e-04_rb,0.54286e-04_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.25821e-04_rb,0.29777e-04_rb,0.34458e-04_rb,0.39880e-04_rb,0.46218e-04_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.21180e-04_rb,0.24617e-04_rb,0.28719e-04_rb,0.33507e-04_rb,0.39184e-04_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.17377e-04_rb,0.20345e-04_rb,0.23916e-04_rb,0.28177e-04_rb,0.33237e-04_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.14223e-04_rb,0.16790e-04_rb,0.19868e-04_rb,0.23656e-04_rb,0.28163e-04_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.11593e-04_rb,0.13788e-04_rb,0.16479e-04_rb,0.19773e-04_rb,0.23765e-04_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.94141e-05_rb,0.11279e-04_rb,0.13591e-04_rb,0.16447e-04_rb,0.19969e-04_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.76622e-05_rb,0.92417e-05_rb,0.11233e-04_rb,0.13709e-04_rb,0.16819e-04_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.62315e-05_rb,0.75671e-05_rb,0.92699e-05_rb,0.11429e-04_rb,0.14186e-04_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.50473e-05_rb,0.61766e-05_rb,0.76316e-05_rb,0.94979e-05_rb,0.11890e-04_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.40773e-05_rb,0.50242e-05_rb,0.62540e-05_rb,0.78594e-05_rb,0.99378e-05_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.32937e-05_rb,0.40862e-05_rb,0.51228e-05_rb,0.64992e-05_rb,0.83112e-05_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.27593e-05_rb,0.34505e-05_rb,0.43716e-05_rb,0.56035e-05_rb,0.72609e-05_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.25990e-01_rb,0.25997e-01_rb,0.26024e-01_rb,0.26038e-01_rb,0.26132e-01_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.22648e-01_rb,0.22731e-01_rb,0.22803e-01_rb,0.22861e-01_rb,0.23020e-01_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.19641e-01_rb,0.19812e-01_rb,0.19880e-01_rb,0.19998e-01_rb,0.20141e-01_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.16909e-01_rb,0.17030e-01_rb,0.17148e-01_rb,0.17296e-01_rb,0.17502e-01_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.14365e-01_rb,0.14504e-01_rb,0.14643e-01_rb,0.14808e-01_rb,0.14996e-01_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.12072e-01_rb,0.12207e-01_rb,0.12346e-01_rb,0.12513e-01_rb,0.12742e-01_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.10135e-01_rb,0.10263e-01_rb,0.10402e-01_rb,0.10602e-01_rb,0.10794e-01_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.86508e-02_rb,0.87951e-02_rb,0.89765e-02_rb,0.91530e-02_rb,0.93447e-02_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.74228e-02_rb,0.75964e-02_rb,0.77805e-02_rb,0.79441e-02_rb,0.81266e-02_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.63949e-02_rb,0.65920e-02_rb,0.67584e-02_rb,0.69298e-02_rb,0.70968e-02_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.55389e-02_rb,0.57165e-02_rb,0.58834e-02_rb,0.60490e-02_rb,0.62163e-02_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.47980e-02_rb,0.49696e-02_rb,0.51333e-02_rb,0.53055e-02_rb,0.54695e-02_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.41676e-02_rb,0.43357e-02_rb,0.44999e-02_rb,0.46749e-02_rb,0.48179e-02_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.36391e-02_rb,0.38079e-02_rb,0.39834e-02_rb,0.41374e-02_rb,0.42754e-02_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.31917e-02_rb,0.33580e-02_rb,0.35237e-02_rb,0.36737e-02_rb,0.37982e-02_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.28096e-02_rb,0.29709e-02_rb,0.31242e-02_rb,0.32613e-02_rb,0.33829e-02_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.24786e-02_rb,0.26272e-02_rb,0.27706e-02_rb,0.28986e-02_rb,0.30130e-02_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.21907e-02_rb,0.23282e-02_rb,0.24574e-02_rb,0.25778e-02_rb,0.26806e-02_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.19346e-02_rb,0.20569e-02_rb,0.21757e-02_rb,0.22805e-02_rb,0.23742e-02_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.17101e-02_rb,0.18247e-02_rb,0.19308e-02_rb,0.20256e-02_rb,0.21176e-02_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.15171e-02_rb,0.16168e-02_rb,0.17121e-02_rb,0.18035e-02_rb,0.18911e-02_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.13466e-02_rb,0.14390e-02_rb,0.15246e-02_rb,0.16083e-02_rb,0.16921e-02_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.11871e-02_rb,0.12698e-02_rb,0.13534e-02_rb,0.14320e-02_rb,0.15071e-02_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.10388e-02_rb,0.11179e-02_rb,0.11934e-02_rb,0.12647e-02_rb,0.13391e-02_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.92233e-03_rb,0.99854e-03_rb,0.10722e-02_rb,0.11426e-02_rb,0.12118e-02_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.81843e-03_rb,0.89236e-03_rb,0.96605e-03_rb,0.10340e-02_rb,0.11003e-02_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.72738e-03_rb,0.79777e-03_rb,0.86997e-03_rb,0.93496e-03_rb,0.99852e-03_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.65149e-03_rb,0.72098e-03_rb,0.79235e-03_rb,0.86116e-03_rb,0.92474e-03_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.58318e-03_rb,0.65154e-03_rb,0.72160e-03_rb,0.79400e-03_rb,0.85973e-03_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.52127e-03_rb,0.58770e-03_rb,0.65781e-03_rb,0.73110e-03_rb,0.80165e-03_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.46404e-03_rb,0.52960e-03_rb,0.59886e-03_rb,0.67366e-03_rb,0.74727e-03_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.41229e-03_rb,0.47609e-03_rb,0.54424e-03_rb,0.61918e-03_rb,0.69366e-03_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.36534e-03_rb,0.42624e-03_rb,0.49374e-03_rb,0.56668e-03_rb,0.64364e-03_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.32134e-03_rb,0.37987e-03_rb,0.44597e-03_rb,0.51669e-03_rb,0.59469e-03_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.27855e-03_rb,0.33531e-03_rb,0.39855e-03_rb,0.46832e-03_rb,0.54562e-03_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.24094e-03_rb,0.29440e-03_rb,0.35477e-03_rb,0.42284e-03_rb,0.49767e-03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.20710e-03_rb,0.25712e-03_rb,0.31425e-03_rb,0.38098e-03_rb,0.45465e-03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.17757e-03_rb,0.22422e-03_rb,0.27906e-03_rb,0.34231e-03_rb,0.41419e-03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.15198e-03_rb,0.19538e-03_rb,0.24758e-03_rb,0.30796e-03_rb,0.37765e-03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.12943e-03_rb,0.16907e-03_rb,0.21812e-03_rb,0.27585e-03_rb,0.34284e-03_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.10946e-03_rb,0.14560e-03_rb,0.19103e-03_rb,0.24633e-03_rb,0.31049e-03_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.92950e-04_rb,0.12599e-03_rb,0.16848e-03_rb,0.22109e-03_rb,0.28266e-03_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.78722e-04_rb,0.10883e-03_rb,0.14831e-03_rb,0.19790e-03_rb,0.25770e-03_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.66323e-04_rb,0.93651e-04_rb,0.12983e-03_rb,0.17638e-03_rb,0.23393e-03_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.55644e-04_rb,0.80085e-04_rb,0.11349e-03_rb,0.15741e-03_rb,0.21274e-03_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.46537e-04_rb,0.68442e-04_rb,0.99190e-04_rb,0.14045e-03_rb,0.19327e-03_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.41558e-04_rb,0.62503e-04_rb,0.92377e-04_rb,0.13258e-03_rb,0.18528e-03_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.14836e+00_rb,0.15039e+00_rb,0.15239e+00_rb,0.15389e+00_rb,0.15517e+00_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.12935e+00_rb,0.13183e+00_rb,0.13366e+00_rb,0.13551e+00_rb,0.13674e+00_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.11269e+00_rb,0.11456e+00_rb,0.11672e+00_rb,0.11824e+00_rb,0.11951e+00_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.97577e-01_rb,0.99647e-01_rb,0.10140e+00_rb,0.10272e+00_rb,0.10390e+00_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.84601e-01_rb,0.86370e-01_rb,0.87860e-01_rb,0.89144e-01_rb,0.90341e-01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.72851e-01_rb,0.74498e-01_rb,0.75924e-01_rb,0.77220e-01_rb,0.78434e-01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.62688e-01_rb,0.64121e-01_rb,0.65574e-01_rb,0.66965e-01_rb,0.68243e-01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.54382e-01_rb,0.55704e-01_rb,0.57013e-01_rb,0.58303e-01_rb,0.59763e-01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.47190e-01_rb,0.48469e-01_rb,0.49752e-01_rb,0.51138e-01_rb,0.52452e-01_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.41104e-01_rb,0.42378e-01_rb,0.43684e-01_rb,0.45035e-01_rb,0.46495e-01_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.35910e-01_rb,0.37220e-01_rb,0.38484e-01_rb,0.39789e-01_rb,0.41443e-01_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.31558e-01_rb,0.32836e-01_rb,0.34085e-01_rb,0.35462e-01_rb,0.37160e-01_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.27861e-01_rb,0.29090e-01_rb,0.30363e-01_rb,0.31857e-01_rb,0.33566e-01_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.24743e-01_rb,0.26003e-01_rb,0.27311e-01_rb,0.28788e-01_rb,0.30553e-01_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.22141e-01_rb,0.23397e-01_rb,0.24754e-01_rb,0.26282e-01_rb,0.28040e-01_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.19941e-01_rb,0.21165e-01_rb,0.22565e-01_rb,0.24131e-01_rb,0.25980e-01_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.18046e-01_rb,0.19353e-01_rb,0.20736e-01_rb,0.22375e-01_rb,0.24248e-01_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.16429e-01_rb,0.17775e-01_rb,0.19238e-01_rb,0.20907e-01_rb,0.22847e-01_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.15094e-01_rb,0.16450e-01_rb,0.17992e-01_rb,0.19741e-01_rb,0.21608e-01_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.13975e-01_rb,0.15315e-01_rb,0.16950e-01_rb,0.18741e-01_rb,0.20564e-01_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.13026e-01_rb,0.14475e-01_rb,0.16113e-01_rb,0.17903e-01_rb,0.19794e-01_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.12248e-01_rb,0.13747e-01_rb,0.15391e-01_rb,0.17142e-01_rb,0.19155e-01_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.11491e-01_rb,0.12979e-01_rb,0.14611e-01_rb,0.16423e-01_rb,0.18475e-01_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.10695e-01_rb,0.12142e-01_rb,0.13822e-01_rb,0.15678e-01_rb,0.17729e-01_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.98761e-02_rb,0.11300e-01_rb,0.13000e-01_rb,0.14808e-01_rb,0.16848e-01_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.91358e-02_rb,0.10538e-01_rb,0.12200e-01_rb,0.13999e-01_rb,0.16082e-01_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.84558e-02_rb,0.98580e-02_rb,0.11508e-01_rb,0.13321e-01_rb,0.15372e-01_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.78020e-02_rb,0.91740e-02_rb,0.10778e-01_rb,0.12588e-01_rb,0.14594e-01_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.72028e-02_rb,0.85294e-02_rb,0.10093e-01_rb,0.11887e-01_rb,0.13872e-01_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.66335e-02_rb,0.79299e-02_rb,0.94524e-02_rb,0.11233e-01_rb,0.13162e-01_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.60936e-02_rb,0.73819e-02_rb,0.88361e-02_rb,0.10555e-01_rb,0.12456e-01_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.55851e-02_rb,0.68018e-02_rb,0.82487e-02_rb,0.98836e-02_rb,0.11744e-01_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.51361e-02_rb,0.62783e-02_rb,0.76910e-02_rb,0.92631e-02_rb,0.11096e-01_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.46789e-02_rb,0.57877e-02_rb,0.71257e-02_rb,0.86688e-02_rb,0.10399e-01_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.42434e-02_rb,0.53043e-02_rb,0.65448e-02_rb,0.80300e-02_rb,0.97286e-02_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.38917e-02_rb,0.48269e-02_rb,0.60283e-02_rb,0.74378e-02_rb,0.90783e-02_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.35823e-02_rb,0.43988e-02_rb,0.55409e-02_rb,0.68845e-02_rb,0.84495e-02_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.33116e-02_rb,0.40852e-02_rb,0.51044e-02_rb,0.63885e-02_rb,0.78773e-02_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.30752e-02_rb,0.38103e-02_rb,0.47346e-02_rb,0.59580e-02_rb,0.73779e-02_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.28626e-02_rb,0.35553e-02_rb,0.44430e-02_rb,0.55409e-02_rb,0.69343e-02_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.26485e-02_rb,0.33392e-02_rb,0.41695e-02_rb,0.51739e-02_rb,0.64753e-02_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.24736e-02_rb,0.31489e-02_rb,0.39367e-02_rb,0.48954e-02_rb,0.61401e-02_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.23362e-02_rb,0.29819e-02_rb,0.37593e-02_rb,0.46985e-02_rb,0.58363e-02_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.22243e-02_rb,0.28447e-02_rb,0.35827e-02_rb,0.44762e-02_rb,0.55720e-02_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.21389e-02_rb,0.27081e-02_rb,0.34315e-02_rb,0.43182e-02_rb,0.53898e-02_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.20428e-02_rb,0.25997e-02_rb,0.33047e-02_rb,0.41726e-02_rb,0.52071e-02_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.20538e-02_rb,0.26323e-02_rb,0.33247e-02_rb,0.41770e-02_rb,0.52496e-02_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.58637e+00_rb,0.59481e+00_rb,0.59811e+00_rb,0.60451e+00_rb,0.60418e+00_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.53191e+00_rb,0.53363e+00_rb,0.53861e+00_rb,0.53976e+00_rb,0.53933e+00_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.47845e+00_rb,0.48447e+00_rb,0.48498e+00_rb,0.48691e+00_rb,0.48935e+00_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.42695e+00_rb,0.43265e+00_rb,0.43442e+00_rb,0.43949e+00_rb,0.44244e+00_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.37796e+00_rb,0.38437e+00_rb,0.38958e+00_rb,0.39367e+00_rb,0.39802e+00_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.33399e+00_rb,0.33971e+00_rb,0.34517e+00_rb,0.35032e+00_rb,0.35265e+00_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.29538e+00_rb,0.30247e+00_rb,0.30713e+00_rb,0.30943e+00_rb,0.31544e+00_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.26154e+00_rb,0.26955e+00_rb,0.27264e+00_rb,0.27778e+00_rb,0.28167e+00_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.23200e+00_rb,0.23896e+00_rb,0.24468e+00_rb,0.24838e+00_rb,0.25453e+00_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.20714e+00_rb,0.21368e+00_rb,0.21959e+00_rb,0.22402e+00_rb,0.22934e+00_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.18514e+00_rb,0.19070e+00_rb,0.19771e+00_rb,0.20426e+00_rb,0.20794e+00_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.16629e+00_rb,0.17247e+00_rb,0.17943e+00_rb,0.18543e+00_rb,0.19044e+00_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.15103e+00_rb,0.15758e+00_rb,0.16440e+00_rb,0.16947e+00_rb,0.17504e+00_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.13782e+00_rb,0.14448e+00_rb,0.15050e+00_rb,0.15723e+00_rb,0.16403e+00_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.12675e+00_rb,0.13284e+00_rb,0.13902e+00_rb,0.14547e+00_rb,0.15299e+00_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.11700e+00_rb,0.12400e+00_rb,0.13029e+00_rb,0.13779e+00_rb,0.14535e+00_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.10975e+00_rb,0.11580e+00_rb,0.12300e+00_rb,0.13106e+00_rb,0.13981e+00_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.10326e+00_rb,0.10877e+00_rb,0.11694e+00_rb,0.12523e+00_rb,0.13409e+00_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.97072e-01_rb,0.10392e+00_rb,0.11191e+00_rb,0.12092e+00_rb,0.13156e+00_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.92483e-01_rb,0.10003e+00_rb,0.10847e+00_rb,0.11777e+00_rb,0.12978e+00_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.89436e-01_rb,0.96549e-01_rb,0.10550e+00_rb,0.11582e+00_rb,0.12938e+00_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.86605e-01_rb,0.93852e-01_rb,0.10437e+00_rb,0.11565e+00_rb,0.13025e+00_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.83755e-01_rb,0.92443e-01_rb,0.10318e+00_rb,0.11569e+00_rb,0.13035e+00_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.80159e-01_rb,0.90106e-01_rb,0.10185e+00_rb,0.11331e+00_rb,0.13105e+00_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.76863e-01_rb,0.86981e-01_rb,0.98816e-01_rb,0.11094e+00_rb,0.12837e+00_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.73911e-01_rb,0.84640e-01_rb,0.95988e-01_rb,0.10951e+00_rb,0.12524e+00_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.71484e-01_rb,0.82465e-01_rb,0.93807e-01_rb,0.10732e+00_rb,0.12288e+00_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.68367e-01_rb,0.78553e-01_rb,0.90288e-01_rb,0.10290e+00_rb,0.11884e+00_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.65972e-01_rb,0.75367e-01_rb,0.87331e-01_rb,0.98979e-01_rb,0.11479e+00_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.63899e-01_rb,0.72995e-01_rb,0.84392e-01_rb,0.96170e-01_rb,0.11066e+00_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.61601e-01_rb,0.69361e-01_rb,0.80265e-01_rb,0.92296e-01_rb,0.10575e+00_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.58053e-01_rb,0.67236e-01_rb,0.77057e-01_rb,0.88848e-01_rb,0.10118e+00_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.55041e-01_rb,0.64788e-01_rb,0.73479e-01_rb,0.85189e-01_rb,0.97294e-01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.51538e-01_rb,0.61359e-01_rb,0.70493e-01_rb,0.81342e-01_rb,0.93711e-01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.48229e-01_rb,0.57754e-01_rb,0.67703e-01_rb,0.77712e-01_rb,0.88779e-01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.44328e-01_rb,0.53953e-01_rb,0.64327e-01_rb,0.74186e-01_rb,0.85354e-01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.40181e-01_rb,0.50939e-01_rb,0.60544e-01_rb,0.71079e-01_rb,0.81883e-01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.36327e-01_rb,0.47243e-01_rb,0.57625e-01_rb,0.67925e-01_rb,0.78806e-01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.33026e-01_rb,0.43278e-01_rb,0.54464e-01_rb,0.64411e-01_rb,0.75916e-01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.29600e-01_rb,0.39888e-01_rb,0.50913e-01_rb,0.61457e-01_rb,0.72719e-01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.26994e-01_rb,0.36264e-01_rb,0.46926e-01_rb,0.58631e-01_rb,0.68972e-01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.24928e-01_rb,0.33245e-01_rb,0.43870e-01_rb,0.55481e-01_rb,0.66121e-01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.23329e-01_rb,0.30647e-01_rb,0.40729e-01_rb,0.52051e-01_rb,0.63960e-01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.21581e-01_rb,0.28578e-01_rb,0.37651e-01_rb,0.48828e-01_rb,0.60673e-01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.20121e-01_rb,0.27060e-01_rb,0.35152e-01_rb,0.45854e-01_rb,0.57152e-01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.18692e-01_rb,0.25639e-01_rb,0.32995e-01_rb,0.42657e-01_rb,0.54655e-01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.18277e-01_rb,0.25273e-01_rb,0.32791e-01_rb,0.42508e-01_rb,0.53680e-01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.10693e+01_rb,0.10902e+01_rb,0.11032e+01_rb,0.10991e+01_rb,0.11118e+01_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.95953e+00_rb,0.97384e+00_rb,0.98577e+00_rb,0.99728e+00_rb,0.10070e+01_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.85940e+00_rb,0.86781e+00_rb,0.87766e+00_rb,0.88834e+00_rb,0.89855e+00_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.76187e+00_rb,0.76651e+00_rb,0.78116e+00_rb,0.79605e+00_rb,0.80429e+00_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.67627e+00_rb,0.68377e+00_rb,0.69734e+00_rb,0.70867e+00_rb,0.71758e+00_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.60442e+00_rb,0.61462e+00_rb,0.62319e+00_rb,0.63477e+00_rb,0.64696e+00_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.54250e+00_rb,0.55180e+00_rb,0.56132e+00_rb,0.57649e+00_rb,0.58604e+00_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.49000e+00_rb,0.49922e+00_rb,0.51229e+00_rb,0.52536e+00_rb,0.53903e+00_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.44362e+00_rb,0.45018e+00_rb,0.46523e+00_rb,0.48212e+00_rb,0.49590e+00_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.40390e+00_rb,0.41136e+00_rb,0.42554e+00_rb,0.44299e+00_rb,0.45956e+00_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.36600e+00_rb,0.37646e+00_rb,0.39144e+00_rb,0.40936e+00_rb,0.42622e+00_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.33488e+00_rb,0.34802e+00_rb,0.36259e+00_rb,0.38089e+00_rb,0.39832e+00_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.30569e+00_rb,0.32099e+00_rb,0.33730e+00_rb,0.35716e+00_rb,0.37447e+00_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.28345e+00_rb,0.29933e+00_rb,0.31861e+00_rb,0.33716e+00_rb,0.35400e+00_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.26524e+00_rb,0.28116e+00_rb,0.30310e+00_rb,0.32398e+00_rb,0.34341e+00_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.25036e+00_rb,0.26748e+00_rb,0.29040e+00_rb,0.31038e+00_rb,0.33527e+00_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.23678e+00_rb,0.25759e+00_rb,0.27958e+00_rb,0.30373e+00_rb,0.33097e+00_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.22835e+00_rb,0.25043e+00_rb,0.27298e+00_rb,0.30247e+00_rb,0.33069e+00_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.22381e+00_rb,0.24448e+00_rb,0.27386e+00_rb,0.30198e+00_rb,0.33135e+00_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.21945e+00_rb,0.24581e+00_rb,0.27557e+00_rb,0.30488e+00_rb,0.33817e+00_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.22020e+00_rb,0.24997e+00_rb,0.27933e+00_rb,0.31199e+00_rb,0.34537e+00_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.22328e+00_rb,0.25315e+00_rb,0.28560e+00_rb,0.31999e+00_rb,0.35204e+00_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.22463e+00_rb,0.25599e+00_rb,0.29016e+00_rb,0.32472e+00_rb,0.35705e+00_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.22454e+00_rb,0.25719e+00_rb,0.29064e+00_rb,0.32676e+00_rb,0.35643e+00_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.21917e+00_rb,0.25146e+00_rb,0.28533e+00_rb,0.32018e+00_rb,0.35207e+00_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.21431e+00_rb,0.24593e+00_rb,0.28070e+00_rb,0.31440e+00_rb,0.34740e+00_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.20995e+00_rb,0.24107e+00_rb,0.27540e+00_rb,0.30795e+00_rb,0.34247e+00_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.20148e+00_rb,0.23319e+00_rb,0.26577e+00_rb,0.30086e+00_rb,0.33366e+00_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.19132e+00_rb,0.22478e+00_rb,0.25632e+00_rb,0.29251e+00_rb,0.32436e+00_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.18231e+00_rb,0.21584e+00_rb,0.24724e+00_rb,0.28164e+00_rb,0.31641e+00_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.17273e+00_rb,0.20475e+00_rb,0.23702e+00_rb,0.26984e+00_rb,0.30535e+00_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.16365e+00_rb,0.19313e+00_rb,0.22566e+00_rb,0.25812e+00_rb,0.29340e+00_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.15471e+00_rb,0.18278e+00_rb,0.21464e+00_rb,0.24686e+00_rb,0.28060e+00_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.14477e+00_rb,0.17256e+00_rb,0.20328e+00_rb,0.23515e+00_rb,0.26753e+00_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.13513e+00_rb,0.16209e+00_rb,0.19092e+00_rb,0.22162e+00_rb,0.25481e+00_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.12632e+00_rb,0.15056e+00_rb,0.17900e+00_rb,0.20905e+00_rb,0.24085e+00_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.11846e+00_rb,0.14059e+00_rb,0.16812e+00_rb,0.19759e+00_rb,0.22701e+00_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.11278e+00_rb,0.13341e+00_rb,0.15756e+00_rb,0.18662e+00_rb,0.21629e+00_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.10711e+00_rb,0.12752e+00_rb,0.14951e+00_rb,0.17651e+00_rb,0.20555e+00_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.10062e+00_rb,0.12140e+00_rb,0.14273e+00_rb,0.16677e+00_rb,0.19594e+00_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.93686e-01_rb,0.11587e+00_rb,0.13705e+00_rb,0.15900e+00_rb,0.18673e+00_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.88183e-01_rb,0.10986e+00_rb,0.13159e+00_rb,0.15362e+00_rb,0.17808e+00_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.81924e-01_rb,0.10428e+00_rb,0.12662e+00_rb,0.14862e+00_rb,0.17143e+00_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.75991e-01_rb,0.98633e-01_rb,0.12219e+00_rb,0.14408e+00_rb,0.16698e+00_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.69399e-01_rb,0.92760e-01_rb,0.11664e+00_rb,0.14040e+00_rb,0.16308e+00_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.64018e-01_rb,0.88343e-01_rb,0.11169e+00_rb,0.13686e+00_rb,0.15969e+00_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.63145e-01_rb,0.86273e-01_rb,0.11143e+00_rb,0.13565e+00_rb,0.16187e+00_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.22241e+01_rb,0.22556e+01_rb,0.22932e+01_rb,0.23316e+01_rb,0.23817e+01_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.20015e+01_rb,0.20535e+01_rb,0.20976e+01_rb,0.21411e+01_rb,0.21895e+01_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.18111e+01_rb,0.18671e+01_rb,0.19196e+01_rb,0.19734e+01_rb,0.20226e+01_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.16513e+01_rb,0.17114e+01_rb,0.17632e+01_rb,0.18132e+01_rb,0.18623e+01_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.15041e+01_rb,0.15648e+01_rb,0.16197e+01_rb,0.16720e+01_rb,0.17169e+01_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.13731e+01_rb,0.14345e+01_rb,0.14937e+01_rb,0.15386e+01_rb,0.16052e+01_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.12478e+01_rb,0.13115e+01_rb,0.13641e+01_rb,0.14279e+01_rb,0.14977e+01_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.11298e+01_rb,0.11910e+01_rb,0.12495e+01_rb,0.13186e+01_rb,0.13914e+01_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.10266e+01_rb,0.10915e+01_rb,0.11508e+01_rb,0.12227e+01_rb,0.13004e+01_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.93959e+00_rb,0.10027e+01_rb,0.10735e+01_rb,0.11507e+01_rb,0.12312e+01_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.87016e+00_rb,0.93486e+00_rb,0.10125e+01_rb,0.10930e+01_rb,0.11794e+01_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.81213e+00_rb,0.88017e+00_rb,0.96483e+00_rb,0.10508e+01_rb,0.11396e+01_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.77134e+00_rb,0.84295e+00_rb,0.93081e+00_rb,0.10201e+01_rb,0.11152e+01_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.73832e+00_rb,0.81743e+00_rb,0.90746e+00_rb,0.10024e+01_rb,0.11020e+01_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.71831e+00_rb,0.80328e+00_rb,0.89505e+00_rb,0.99247e+00_rb,0.10943e+01_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.70848e+00_rb,0.79592e+00_rb,0.89143e+00_rb,0.99432e+00_rb,0.10940e+01_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.70725e+00_rb,0.79781e+00_rb,0.89906e+00_rb,0.10007e+01_rb,0.11009e+01_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.71125e+00_rb,0.80824e+00_rb,0.91144e+00_rb,0.10109e+01_rb,0.11144e+01_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.72057e+00_rb,0.82548e+00_rb,0.92423e+00_rb,0.10285e+01_rb,0.11338e+01_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.73855e+00_rb,0.84223e+00_rb,0.94322e+00_rb,0.10495e+01_rb,0.11523e+01_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.75860e+00_rb,0.86137e+00_rb,0.96653e+00_rb,0.10709e+01_rb,0.11736e+01_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.77584e+00_rb,0.88104e+00_rb,0.98358e+00_rb,0.10881e+01_rb,0.11928e+01_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.78526e+00_rb,0.88915e+00_rb,0.99181e+00_rb,0.10955e+01_rb,0.12024e+01_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.78420e+00_rb,0.88679e+00_rb,0.98962e+00_rb,0.10938e+01_rb,0.12013e+01_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.76619e+00_rb,0.86975e+00_rb,0.97162e+00_rb,0.10774e+01_rb,0.11823e+01_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.74778e+00_rb,0.85168e+00_rb,0.95355e+00_rb,0.10588e+01_rb,0.11642e+01_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.73003e+00_rb,0.83397e+00_rb,0.93638e+00_rb,0.10427e+01_rb,0.11461e+01_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.70694e+00_rb,0.80603e+00_rb,0.90951e+00_rb,0.10129e+01_rb,0.11179e+01_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.68380e+00_rb,0.77629e+00_rb,0.88021e+00_rb,0.98263e+00_rb,0.10876e+01_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.66231e+00_rb,0.74849e+00_rb,0.85130e+00_rb,0.95458e+00_rb,0.10576e+01_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.63688e+00_rb,0.72048e+00_rb,0.81634e+00_rb,0.92017e+00_rb,0.10227e+01_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.60858e+00_rb,0.69178e+00_rb,0.77940e+00_rb,0.88149e+00_rb,0.98460e+00_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.58153e+00_rb,0.66520e+00_rb,0.74925e+00_rb,0.84319e+00_rb,0.94694e+00_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.55197e+00_rb,0.63412e+00_rb,0.71872e+00_rb,0.80664e+00_rb,0.90684e+00_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.51844e+00_rb,0.60273e+00_rb,0.68769e+00_rb,0.77076e+00_rb,0.86117e+00_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.48120e+00_rb,0.57148e+00_rb,0.65491e+00_rb,0.74197e+00_rb,0.82485e+00_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.44584e+00_rb,0.53846e+00_rb,0.62079e+00_rb,0.70603e+00_rb,0.79220e+00_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.41289e+00_rb,0.50133e+00_rb,0.59314e+00_rb,0.67773e+00_rb,0.76297e+00_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.38263e+00_rb,0.46808e+00_rb,0.55994e+00_rb,0.64654e+00_rb,0.73545e+00_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.35216e+00_rb,0.43713e+00_rb,0.52781e+00_rb,0.61897e+00_rb,0.70212e+00_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.33102e+00_rb,0.40477e+00_rb,0.49059e+00_rb,0.58472e+00_rb,0.67270e+00_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.31146e+00_rb,0.37834e+00_rb,0.46271e+00_rb,0.55353e+00_rb,0.64596e+00_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.29087e+00_rb,0.35982e+00_rb,0.43598e+00_rb,0.52416e+00_rb,0.61765e+00_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.27304e+00_rb,0.34098e+00_rb,0.41224e+00_rb,0.49775e+00_rb,0.58771e+00_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.25824e+00_rb,0.32066e+00_rb,0.39085e+00_rb,0.46641e+00_rb,0.55829e+00_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.24548e+00_rb,0.30081e+00_rb,0.37338e+00_rb,0.44708e+00_rb,0.53062e+00_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.24212e+00_rb,0.29858e+00_rb,0.36550e+00_rb,0.44064e+00_rb,0.51789e+00_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.55998e+01_rb,0.57039e+01_rb,0.58049e+01_rb,0.59180e+01_rb,0.59854e+01_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.53275e+01_rb,0.54387e+01_rb,0.55543e+01_rb,0.56621e+01_rb,0.57635e+01_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.50203e+01_rb,0.51578e+01_rb,0.52898e+01_rb,0.54130e+01_rb,0.55373e+01_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.47246e+01_rb,0.48786e+01_rb,0.50266e+01_rb,0.51689e+01_rb,0.53242e+01_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.44403e+01_rb,0.46027e+01_rb,0.47680e+01_rb,0.49455e+01_rb,0.51299e+01_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.41648e+01_rb,0.43473e+01_rb,0.45415e+01_rb,0.47508e+01_rb,0.49298e+01_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.39134e+01_rb,0.41196e+01_rb,0.43493e+01_rb,0.45520e+01_rb,0.47522e+01_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.36873e+01_rb,0.39195e+01_rb,0.41603e+01_rb,0.43826e+01_rb,0.46005e+01_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.34974e+01_rb,0.37507e+01_rb,0.40010e+01_rb,0.42413e+01_rb,0.44759e+01_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.33605e+01_rb,0.36305e+01_rb,0.38873e+01_rb,0.41404e+01_rb,0.43929e+01_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.32571e+01_rb,0.35388e+01_rb,0.38042e+01_rb,0.40702e+01_rb,0.43353e+01_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.31836e+01_rb,0.34721e+01_rb,0.37495e+01_rb,0.40277e+01_rb,0.43044e+01_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.31346e+01_rb,0.34329e+01_rb,0.37222e+01_rb,0.40107e+01_rb,0.42953e+01_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.31155e+01_rb,0.34221e+01_rb,0.37222e+01_rb,0.40178e+01_rb,0.43079e+01_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.31157e+01_rb,0.34328e+01_rb,0.37392e+01_rb,0.40396e+01_rb,0.43346e+01_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.31335e+01_rb,0.34580e+01_rb,0.37695e+01_rb,0.40734e+01_rb,0.43720e+01_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.31697e+01_rb,0.34978e+01_rb,0.38120e+01_rb,0.41186e+01_rb,0.44189e+01_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.32194e+01_rb,0.35475e+01_rb,0.38638e+01_rb,0.41720e+01_rb,0.44722e+01_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.32811e+01_rb,0.36069e+01_rb,0.39241e+01_rb,0.42325e+01_rb,0.45314e+01_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.33484e+01_rb,0.36727e+01_rb,0.39897e+01_rb,0.42974e+01_rb,0.45949e+01_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.34186e+01_rb,0.37430e+01_rb,0.40586e+01_rb,0.43658e+01_rb,0.46602e+01_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.34801e+01_rb,0.38048e+01_rb,0.41197e+01_rb,0.44255e+01_rb,0.47156e+01_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.35126e+01_rb,0.38375e+01_rb,0.41525e+01_rb,0.44577e+01_rb,0.47454e+01_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.35115e+01_rb,0.38370e+01_rb,0.41529e+01_rb,0.44584e+01_rb,0.47449e+01_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.34620e+01_rb,0.37892e+01_rb,0.41066e+01_rb,0.44144e+01_rb,0.47052e+01_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.34108e+01_rb,0.37391e+01_rb,0.40587e+01_rb,0.43685e+01_rb,0.46624e+01_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.33603e+01_rb,0.36896e+01_rb,0.40114e+01_rb,0.43229e+01_rb,0.46208e+01_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.32696e+01_rb,0.36068e+01_rb,0.39317e+01_rb,0.42460e+01_rb,0.45479e+01_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.31746e+01_rb,0.35197e+01_rb,0.38475e+01_rb,0.41644e+01_rb,0.44716e+01_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.30768e+01_rb,0.34312e+01_rb,0.37630e+01_rb,0.40826e+01_rb,0.43924e+01_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.29558e+01_rb,0.33178e+01_rb,0.36587e+01_rb,0.39822e+01_rb,0.42959e+01_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.28280e+01_rb,0.31906e+01_rb,0.35435e+01_rb,0.38727e+01_rb,0.41899e+01_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.26988e+01_rb,0.30597e+01_rb,0.34201e+01_rb,0.37628e+01_rb,0.40831e+01_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.25661e+01_rb,0.29262e+01_rb,0.32865e+01_rb,0.36383e+01_rb,0.39682e+01_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.24176e+01_rb,0.27716e+01_rb,0.31308e+01_rb,0.34925e+01_rb,0.38381e+01_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.22754e+01_rb,0.26218e+01_rb,0.29793e+01_rb,0.33363e+01_rb,0.36948e+01_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.21329e+01_rb,0.24724e+01_rb,0.28302e+01_rb,0.31874e+01_rb,0.35454e+01_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.20005e+01_rb,0.23398e+01_rb,0.26856e+01_rb,0.30422e+01_rb,0.34002e+01_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.18713e+01_rb,0.22087e+01_rb,0.25515e+01_rb,0.29067e+01_rb,0.32588e+01_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.17459e+01_rb,0.20772e+01_rb,0.24169e+01_rb,0.27666e+01_rb,0.31241e+01_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.16095e+01_rb,0.19502e+01_rb,0.22895e+01_rb,0.26325e+01_rb,0.29855e+01_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.15066e+01_rb,0.18320e+01_rb,0.21659e+01_rb,0.25081e+01_rb,0.28569e+01_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.14318e+01_rb,0.17117e+01_rb,0.20491e+01_rb,0.23896e+01_rb,0.27343e+01_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.13449e+01_rb,0.16235e+01_rb,0.19309e+01_rb,0.22682e+01_rb,0.26139e+01_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.12667e+01_rb,0.15514e+01_rb,0.18274e+01_rb,0.21528e+01_rb,0.24919e+01_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.11763e+01_rb,0.14696e+01_rb,0.17445e+01_rb,0.20345e+01_rb,0.23757e+01_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.11472e+01_rb,0.14428e+01_rb,0.17312e+01_rb,0.20031e+01_rb,0.23234e+01_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.15147e+02_rb,0.15130e+02_rb,0.15113e+02_rb,0.15099e+02_rb,0.15078e+02_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.15510e+02_rb,0.15546e+02_rb,0.15567e+02_rb,0.15587e+02_rb,0.15585e+02_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.15739e+02_rb,0.15841e+02_rb,0.15930e+02_rb,0.15986e+02_rb,0.16004e+02_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.15858e+02_rb,0.16042e+02_rb,0.16196e+02_rb,0.16295e+02_rb,0.16347e+02_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.15892e+02_rb,0.16168e+02_rb,0.16375e+02_rb,0.16519e+02_rb,0.16620e+02_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.15890e+02_rb,0.16233e+02_rb,0.16495e+02_rb,0.16687e+02_rb,0.16843e+02_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.15860e+02_rb,0.16260e+02_rb,0.16572e+02_rb,0.16822e+02_rb,0.17016e+02_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.15821e+02_rb,0.16274e+02_rb,0.16642e+02_rb,0.16937e+02_rb,0.17165e+02_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.15778e+02_rb,0.16284e+02_rb,0.16705e+02_rb,0.17036e+02_rb,0.17293e+02_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.15777e+02_rb,0.16337e+02_rb,0.16794e+02_rb,0.17151e+02_rb,0.17417e+02_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.15815e+02_rb,0.16408e+02_rb,0.16883e+02_rb,0.17258e+02_rb,0.17537e+02_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.15884e+02_rb,0.16493e+02_rb,0.16982e+02_rb,0.17365e+02_rb,0.17648e+02_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.15973e+02_rb,0.16594e+02_rb,0.17087e+02_rb,0.17470e+02_rb,0.17753e+02_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.16098e+02_rb,0.16711e+02_rb,0.17198e+02_rb,0.17574e+02_rb,0.17853e+02_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.16232e+02_rb,0.16836e+02_rb,0.17310e+02_rb,0.17676e+02_rb,0.17946e+02_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.16376e+02_rb,0.16966e+02_rb,0.17425e+02_rb,0.17775e+02_rb,0.18032e+02_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.16527e+02_rb,0.17096e+02_rb,0.17538e+02_rb,0.17871e+02_rb,0.18111e+02_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.16681e+02_rb,0.17223e+02_rb,0.17646e+02_rb,0.17959e+02_rb,0.18183e+02_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.16832e+02_rb,0.17348e+02_rb,0.17747e+02_rb,0.18041e+02_rb,0.18247e+02_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.16982e+02_rb,0.17470e+02_rb,0.17844e+02_rb,0.18116e+02_rb,0.18304e+02_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.17125e+02_rb,0.17586e+02_rb,0.17935e+02_rb,0.18187e+02_rb,0.18356e+02_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.17243e+02_rb,0.17681e+02_rb,0.18009e+02_rb,0.18243e+02_rb,0.18396e+02_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.17308e+02_rb,0.17736e+02_rb,0.18053e+02_rb,0.18277e+02_rb,0.18422e+02_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.17321e+02_rb,0.17747e+02_rb,0.18064e+02_rb,0.18289e+02_rb,0.18431e+02_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.17259e+02_rb,0.17701e+02_rb,0.18033e+02_rb,0.18270e+02_rb,0.18425e+02_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.17190e+02_rb,0.17649e+02_rb,0.17997e+02_rb,0.18247e+02_rb,0.18415e+02_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.17116e+02_rb,0.17594e+02_rb,0.17957e+02_rb,0.18221e+02_rb,0.18401e+02_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.16981e+02_rb,0.17491e+02_rb,0.17882e+02_rb,0.18168e+02_rb,0.18367e+02_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.16829e+02_rb,0.17375e+02_rb,0.17795e+02_rb,0.18107e+02_rb,0.18328e+02_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.16667e+02_rb,0.17250e+02_rb,0.17700e+02_rb,0.18038e+02_rb,0.18281e+02_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.16452e+02_rb,0.17082e+02_rb,0.17573e+02_rb,0.17944e+02_rb,0.18214e+02_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.16203e+02_rb,0.16887e+02_rb,0.17421e+02_rb,0.17833e+02_rb,0.18135e+02_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.15935e+02_rb,0.16673e+02_rb,0.17257e+02_rb,0.17708e+02_rb,0.18046e+02_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.15628e+02_rb,0.16427e+02_rb,0.17064e+02_rb,0.17560e+02_rb,0.17936e+02_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.15258e+02_rb,0.16126e+02_rb,0.16827e+02_rb,0.17377e+02_rb,0.17799e+02_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.14864e+02_rb,0.15798e+02_rb,0.16564e+02_rb,0.17174e+02_rb,0.17643e+02_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.14439e+02_rb,0.15441e+02_rb,0.16276e+02_rb,0.16946e+02_rb,0.17469e+02_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.14012e+02_rb,0.15084e+02_rb,0.15980e+02_rb,0.16711e+02_rb,0.17289e+02_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.13576e+02_rb,0.14715e+02_rb,0.15671e+02_rb,0.16463e+02_rb,0.17096e+02_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.13120e+02_rb,0.14320e+02_rb,0.15341e+02_rb,0.16194e+02_rb,0.16882e+02_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.12642e+02_rb,0.13899e+02_rb,0.14988e+02_rb,0.15902e+02_rb,0.16649e+02_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.12147e+02_rb,0.13496e+02_rb,0.14645e+02_rb,0.15614e+02_rb,0.16418e+02_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.11626e+02_rb,0.13090e+02_rb,0.14295e+02_rb,0.15320e+02_rb,0.16178e+02_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.11110e+02_rb,0.12619e+02_rb,0.13926e+02_rb,0.15012e+02_rb,0.15922e+02_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.10565e+02_rb,0.12110e+02_rb,0.13518e+02_rb,0.14685e+02_rb,0.15649e+02_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.10061e+02_rb,0.11633e+02_rb,0.13084e+02_rb,0.14356e+02_rb,0.15374e+02_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.98377e+01_rb,0.11416e+02_rb,0.12868e+02_rb,0.14184e+02_rb,0.15259e+02_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.41304e+02_rb,0.40483e+02_rb,0.39654e+02_rb,0.38829e+02_rb,0.38029e+02_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.44686e+02_rb,0.43762e+02_rb,0.42836e+02_rb,0.41888e+02_rb,0.41004e+02_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.48004e+02_rb,0.46942e+02_rb,0.45864e+02_rb,0.44813e+02_rb,0.43844e+02_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.51150e+02_rb,0.49938e+02_rb,0.48734e+02_rb,0.47591e+02_rb,0.46512e+02_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.54100e+02_rb,0.52729e+02_rb,0.51435e+02_rb,0.50180e+02_rb,0.48962e+02_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.56777e+02_rb,0.55306e+02_rb,0.53894e+02_rb,0.52525e+02_rb,0.51164e+02_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.59186e+02_rb,0.57635e+02_rb,0.56100e+02_rb,0.54603e+02_rb,0.53129e+02_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.61293e+02_rb,0.59648e+02_rb,0.58005e+02_rb,0.56388e+02_rb,0.54798e+02_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.63124e+02_rb,0.61368e+02_rb,0.59613e+02_rb,0.57895e+02_rb,0.56204e+02_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.64562e+02_rb,0.62695e+02_rb,0.60841e+02_rb,0.59040e+02_rb,0.57268e+02_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.65690e+02_rb,0.63742e+02_rb,0.61820e+02_rb,0.59937e+02_rb,0.58087e+02_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.66548e+02_rb,0.64535e+02_rb,0.62550e+02_rb,0.60597e+02_rb,0.58690e+02_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.67194e+02_rb,0.65115e+02_rb,0.63062e+02_rb,0.61050e+02_rb,0.59091e+02_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.67597e+02_rb,0.65466e+02_rb,0.63369e+02_rb,0.61312e+02_rb,0.59309e+02_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.67831e+02_rb,0.65647e+02_rb,0.63518e+02_rb,0.61430e+02_rb,0.59393e+02_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.67908e+02_rb,0.65687e+02_rb,0.63527e+02_rb,0.61427e+02_rb,0.59357e+02_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.67845e+02_rb,0.65603e+02_rb,0.63419e+02_rb,0.61304e+02_rb,0.59222e+02_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.67682e+02_rb,0.65422e+02_rb,0.63225e+02_rb,0.61094e+02_rb,0.59010e+02_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.67415e+02_rb,0.65154e+02_rb,0.62953e+02_rb,0.60816e+02_rb,0.58721e+02_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.67084e+02_rb,0.64817e+02_rb,0.62622e+02_rb,0.60477e+02_rb,0.58393e+02_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.66692e+02_rb,0.64428e+02_rb,0.62242e+02_rb,0.60092e+02_rb,0.58024e+02_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.66346e+02_rb,0.64077e+02_rb,0.61890e+02_rb,0.59745e+02_rb,0.57700e+02_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.66188e+02_rb,0.63920e+02_rb,0.61727e+02_rb,0.59582e+02_rb,0.57542e+02_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.66248e+02_rb,0.63978e+02_rb,0.61782e+02_rb,0.59625e+02_rb,0.57587e+02_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.66642e+02_rb,0.64358e+02_rb,0.62144e+02_rb,0.59978e+02_rb,0.57911e+02_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.67048e+02_rb,0.64747e+02_rb,0.62516e+02_rb,0.60340e+02_rb,0.58249e+02_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.67435e+02_rb,0.65122e+02_rb,0.62879e+02_rb,0.60689e+02_rb,0.58578e+02_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.68061e+02_rb,0.65724e+02_rb,0.63462e+02_rb,0.61257e+02_rb,0.59113e+02_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.68702e+02_rb,0.66354e+02_rb,0.64067e+02_rb,0.61847e+02_rb,0.59682e+02_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.69355e+02_rb,0.66983e+02_rb,0.64678e+02_rb,0.62437e+02_rb,0.60259e+02_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.70142e+02_rb,0.67744e+02_rb,0.65416e+02_rb,0.63159e+02_rb,0.60959e+02_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.70991e+02_rb,0.68567e+02_rb,0.66218e+02_rb,0.63930e+02_rb,0.61713e+02_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.71837e+02_rb,0.69401e+02_rb,0.67026e+02_rb,0.64713e+02_rb,0.62473e+02_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.72733e+02_rb,0.70287e+02_rb,0.67885e+02_rb,0.65552e+02_rb,0.63292e+02_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.73741e+02_rb,0.71285e+02_rb,0.68859e+02_rb,0.66493e+02_rb,0.64198e+02_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.74725e+02_rb,0.72283e+02_rb,0.69840e+02_rb,0.67442e+02_rb,0.65125e+02_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.75665e+02_rb,0.73280e+02_rb,0.70828e+02_rb,0.68404e+02_rb,0.66060e+02_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.76534e+02_rb,0.74218e+02_rb,0.71764e+02_rb,0.69323e+02_rb,0.66942e+02_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.77333e+02_rb,0.75093e+02_rb,0.72664e+02_rb,0.70214e+02_rb,0.67806e+02_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.78102e+02_rb,0.75935e+02_rb,0.73563e+02_rb,0.71111e+02_rb,0.68683e+02_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.78815e+02_rb,0.76761e+02_rb,0.74462e+02_rb,0.72010e+02_rb,0.69568e+02_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.79431e+02_rb,0.77488e+02_rb,0.75258e+02_rb,0.72840e+02_rb,0.70386e+02_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.79987e+02_rb,0.78156e+02_rb,0.75999e+02_rb,0.73628e+02_rb,0.71177e+02_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.80478e+02_rb,0.78776e+02_rb,0.76714e+02_rb,0.74415e+02_rb,0.71963e+02_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.80898e+02_rb,0.79365e+02_rb,0.77410e+02_rb,0.75181e+02_rb,0.72750e+02_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.81210e+02_rb,0.79894e+02_rb,0.78053e+02_rb,0.75880e+02_rb,0.73498e+02_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.81312e+02_rb,0.80086e+02_rb,0.78299e+02_rb,0.76156e+02_rb,0.73801e+02_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.81866e+02_rb,0.78569e+02_rb,0.75624e+02_rb,0.72854e+02_rb,0.70288e+02_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.93095e+02_rb,0.88986e+02_rb,0.85351e+02_rb,0.82051e+02_rb,0.78936e+02_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.10470e+03_rb,0.99738e+02_rb,0.95227e+02_rb,0.91249e+02_rb,0.87478e+02_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.11635e+03_rb,0.11037e+03_rb,0.10495e+03_rb,0.10011e+03_rb,0.95646e+02_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.12769e+03_rb,0.12074e+03_rb,0.11431e+03_rb,0.10856e+03_rb,0.10332e+03_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.13851e+03_rb,0.13038e+03_rb,0.12299e+03_rb,0.11635e+03_rb,0.11033e+03_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.14848e+03_rb,0.13912e+03_rb,0.13084e+03_rb,0.12336e+03_rb,0.11656e+03_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.15718e+03_rb,0.14679e+03_rb,0.13761e+03_rb,0.12934e+03_rb,0.12188e+03_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.16462e+03_rb,0.15341e+03_rb,0.14345e+03_rb,0.13443e+03_rb,0.12636e+03_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.17012e+03_rb,0.15822e+03_rb,0.14760e+03_rb,0.13801e+03_rb,0.12950e+03_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.17437e+03_rb,0.16184e+03_rb,0.15069e+03_rb,0.14069e+03_rb,0.13184e+03_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.17733e+03_rb,0.16436e+03_rb,0.15282e+03_rb,0.14251e+03_rb,0.13340e+03_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.17910e+03_rb,0.16583e+03_rb,0.15401e+03_rb,0.14354e+03_rb,0.13426e+03_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.17968e+03_rb,0.16627e+03_rb,0.15433e+03_rb,0.14378e+03_rb,0.13445e+03_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.17946e+03_rb,0.16602e+03_rb,0.15406e+03_rb,0.14351e+03_rb,0.13417e+03_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.17860e+03_rb,0.16522e+03_rb,0.15334e+03_rb,0.14282e+03_rb,0.13355e+03_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.17717e+03_rb,0.16389e+03_rb,0.15216e+03_rb,0.14174e+03_rb,0.13260e+03_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.17533e+03_rb,0.16225e+03_rb,0.15066e+03_rb,0.14043e+03_rb,0.13143e+03_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.17313e+03_rb,0.16029e+03_rb,0.14890e+03_rb,0.13886e+03_rb,0.13004e+03_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.17069e+03_rb,0.15811e+03_rb,0.14694e+03_rb,0.13716e+03_rb,0.12847e+03_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.16804e+03_rb,0.15577e+03_rb,0.14487e+03_rb,0.13533e+03_rb,0.12682e+03_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.16580e+03_rb,0.15376e+03_rb,0.14309e+03_rb,0.13376e+03_rb,0.12539e+03_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.16467e+03_rb,0.15275e+03_rb,0.14221e+03_rb,0.13298e+03_rb,0.12468e+03_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.16486e+03_rb,0.15289e+03_rb,0.14233e+03_rb,0.13308e+03_rb,0.12477e+03_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.16688e+03_rb,0.15469e+03_rb,0.14392e+03_rb,0.13446e+03_rb,0.12602e+03_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.16902e+03_rb,0.15657e+03_rb,0.14555e+03_rb,0.13592e+03_rb,0.12732e+03_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.17110e+03_rb,0.15844e+03_rb,0.14718e+03_rb,0.13734e+03_rb,0.12861e+03_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.17468e+03_rb,0.16155e+03_rb,0.14992e+03_rb,0.13976e+03_rb,0.13077e+03_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.17848e+03_rb,0.16489e+03_rb,0.15289e+03_rb,0.14236e+03_rb,0.13307e+03_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.18237e+03_rb,0.16833e+03_rb,0.15592e+03_rb,0.14501e+03_rb,0.13541e+03_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.18726e+03_rb,0.17263e+03_rb,0.15975e+03_rb,0.14834e+03_rb,0.13835e+03_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.19275e+03_rb,0.17748e+03_rb,0.16403e+03_rb,0.15210e+03_rb,0.14166e+03_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.19851e+03_rb,0.18250e+03_rb,0.16844e+03_rb,0.15602e+03_rb,0.14507e+03_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.20490e+03_rb,0.18806e+03_rb,0.17333e+03_rb,0.16038e+03_rb,0.14888e+03_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.21238e+03_rb,0.19462e+03_rb,0.17910e+03_rb,0.16545e+03_rb,0.15337e+03_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.22029e+03_rb,0.20156e+03_rb,0.18514e+03_rb,0.17074e+03_rb,0.15806e+03_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.22889e+03_rb,0.20882e+03_rb,0.19150e+03_rb,0.17637e+03_rb,0.16304e+03_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.23745e+03_rb,0.21596e+03_rb,0.19782e+03_rb,0.18187e+03_rb,0.16787e+03_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.24629e+03_rb,0.22340e+03_rb,0.20422e+03_rb,0.18747e+03_rb,0.17280e+03_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.25553e+03_rb,0.23136e+03_rb,0.21090e+03_rb,0.19335e+03_rb,0.17798e+03_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.26553e+03_rb,0.23980e+03_rb,0.21793e+03_rb,0.19951e+03_rb,0.18336e+03_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.27524e+03_rb,0.24799e+03_rb,0.22485e+03_rb,0.20544e+03_rb,0.18854e+03_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.28502e+03_rb,0.25615e+03_rb,0.23188e+03_rb,0.21133e+03_rb,0.19372e+03_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.29529e+03_rb,0.26491e+03_rb,0.23927e+03_rb,0.21749e+03_rb,0.19913e+03_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.30624e+03_rb,0.27413e+03_rb,0.24703e+03_rb,0.22404e+03_rb,0.20478e+03_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.31727e+03_rb,0.28329e+03_rb,0.25471e+03_rb,0.23065e+03_rb,0.21031e+03_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.32188e+03_rb,0.28710e+03_rb,0.25796e+03_rb,0.23341e+03_rb,0.21261e+03_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.214504e-06_rb, 0.460418e-06_rb, 0.357608e-05_rb, 0.192037e-05_rb /)\n      forrefo(:, 2) = (/ 0.142576e-05_rb, 0.364463e-05_rb, 0.117033e-04_rb, 0.112085e-04_rb /)\n      forrefo(:, 3) = (/ 0.101536e-04_rb, 0.124096e-04_rb, 0.509190e-04_rb, 0.565282e-04_rb /)\n      forrefo(:, 4) = (/ 0.143394e-03_rb, 0.154700e-03_rb, 0.466498e-03_rb, 0.918829e-03_rb /)\n      forrefo(:, 5) = (/ 0.251631e-02_rb, 0.241729e-02_rb, 0.240057e-02_rb, 0.350408e-02_rb /)\n      forrefo(:, 6) = (/ 0.410309e-02_rb, 0.416851e-02_rb, 0.390925e-02_rb, 0.383694e-02_rb /)\n      forrefo(:, 7) = (/ 0.445387e-02_rb, 0.448657e-02_rb, 0.432310e-02_rb, 0.370739e-02_rb /)\n      forrefo(:, 8) = (/ 0.458150e-02_rb, 0.460014e-02_rb, 0.450245e-02_rb, 0.336718e-02_rb /)\n      forrefo(:, 9) = (/ 0.465423e-02_rb, 0.465595e-02_rb, 0.467006e-02_rb, 0.368061e-02_rb /)\n      forrefo(:,10) = (/ 0.493955e-02_rb, 0.490181e-02_rb, 0.481941e-02_rb, 0.367577e-02_rb /)\n      forrefo(:,11) = (/ 0.511876e-02_rb, 0.490981e-02_rb, 0.493303e-02_rb, 0.357423e-02_rb /)\n      forrefo(:,12) = (/ 0.509845e-02_rb, 0.511556e-02_rb, 0.504031e-02_rb, 0.355915e-02_rb /)\n      forrefo(:,13) = (/ 0.523822e-02_rb, 0.530473e-02_rb, 0.523811e-02_rb, 0.414259e-02_rb /)\n      forrefo(:,14) = (/ 0.551133e-02_rb, 0.535831e-02_rb, 0.546702e-02_rb, 0.473875e-02_rb /)\n      forrefo(:,15) = (/ 0.609781e-02_rb, 0.589859e-02_rb, 0.561187e-02_rb, 0.528981e-02_rb /)\n      forrefo(:,16) = (/ 0.644958e-02_rb, 0.631718e-02_rb, 0.625201e-02_rb, 0.600448e-02_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.217058e-03_rb, 0.176391e-03_rb, 0.143342e-03_rb, 0.116486e-03_rb, 0.946614e-04_rb, &\n        &  0.769257e-04_rb, 0.625131e-04_rb, 0.508007e-04_rb, 0.412828e-04_rb, 0.335481e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.598055e-03_rb, 0.484805e-03_rb, 0.393000e-03_rb, 0.318580e-03_rb, 0.258252e-03_rb, &\n        &  0.209348e-03_rb, 0.169705e-03_rb, 0.137569e-03_rb, 0.111518e-03_rb, 0.904008e-04_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.102691e-02_rb, 0.930281e-03_rb, 0.842740e-03_rb, 0.763437e-03_rb, 0.691596e-03_rb, &\n        &  0.626516e-03_rb, 0.567560e-03_rb, 0.514152e-03_rb, 0.465769e-03_rb, 0.421940e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.388569e-02_rb, 0.365098e-02_rb, 0.343045e-02_rb, 0.322324e-02_rb, 0.302854e-02_rb, &\n        &  0.284561e-02_rb, 0.267372e-02_rb, 0.251222e-02_rb, 0.236047e-02_rb, 0.221789e-02_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.349845e-01_rb, 0.326678e-01_rb, 0.305045e-01_rb, 0.284845e-01_rb, 0.265982e-01_rb, &\n        &  0.248369e-01_rb, 0.231921e-01_rb, 0.216563e-01_rb, 0.202222e-01_rb, 0.188831e-01_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.613705e-01_rb, 0.562676e-01_rb, 0.515890e-01_rb, 0.472994e-01_rb, 0.433665e-01_rb, &\n        &  0.397606e-01_rb, 0.364545e-01_rb, 0.334233e-01_rb, 0.306442e-01_rb, 0.280961e-01_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.656981e-01_rb, 0.602660e-01_rb, 0.552830e-01_rb, 0.507120e-01_rb, 0.465190e-01_rb, &\n        &  0.426726e-01_rb, 0.391443e-01_rb, 0.359077e-01_rb, 0.329387e-01_rb, 0.302153e-01_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.671782e-01_rb, 0.616461e-01_rb, 0.565695e-01_rb, 0.519110e-01_rb, 0.476361e-01_rb, &\n        &  0.437132e-01_rb, 0.401134e-01_rb, 0.368100e-01_rb, 0.337787e-01_rb, 0.309970e-01_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.675902e-01_rb, 0.620888e-01_rb, 0.570351e-01_rb, 0.523928e-01_rb, 0.481284e-01_rb, &\n        &  0.442110e-01_rb, 0.406125e-01_rb, 0.373069e-01_rb, 0.342703e-01_rb, 0.314809e-01_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.708308e-01_rb, 0.651419e-01_rb, 0.599099e-01_rb, 0.550981e-01_rb, 0.506728e-01_rb, &\n        &  0.466030e-01_rb, 0.428600e-01_rb, 0.394176e-01_rb, 0.362517e-01_rb, 0.333401e-01_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.698445e-01_rb, 0.646584e-01_rb, 0.598573e-01_rb, 0.554128e-01_rb, 0.512982e-01_rb, &\n        &  0.474892e-01_rb, 0.439630e-01_rb, 0.406986e-01_rb, 0.376766e-01_rb, 0.348791e-01_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.743921e-01_rb, 0.682057e-01_rb, 0.625337e-01_rb, 0.573334e-01_rb, 0.525655e-01_rb, &\n        &  0.481942e-01_rb, 0.441863e-01_rb, 0.405118e-01_rb, 0.371428e-01_rb, 0.340540e-01_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.775758e-01_rb, 0.709818e-01_rb, 0.649484e-01_rb, 0.594277e-01_rb, 0.543764e-01_rb, &\n        &  0.497544e-01_rb, 0.455253e-01_rb, 0.416556e-01_rb, 0.381149e-01_rb, 0.348751e-01_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.776545e-01_rb, 0.714761e-01_rb, 0.657894e-01_rb, 0.605550e-01_rb, 0.557372e-01_rb, &\n        &  0.513026e-01_rb, 0.472209e-01_rb, 0.434639e-01_rb, 0.400058e-01_rb, 0.368229e-01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.855675e-01_rb, 0.787337e-01_rb, 0.724456e-01_rb, 0.666598e-01_rb, 0.613360e-01_rb, &\n        &  0.564374e-01_rb, 0.519301e-01_rb, 0.477827e-01_rb, 0.439666e-01_rb, 0.404552e-01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.934781e-01_rb, 0.855190e-01_rb, 0.782376e-01_rb, 0.715761e-01_rb, 0.654819e-01_rb, &\n        &  0.599065e-01_rb, 0.548058e-01_rb, 0.501394e-01_rb, 0.458704e-01_rb, 0.419648e-01_rb /)\n     \n      end subroutine sw_kgb20\n\n! **************************************************************************\n      subroutine sw_kgb21\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:, 1) = (/ &\n        & 16.1643_rb , 15.5806_rb, 14.7254_rb    , 13.5541_rb    , &\n        & 11.9519_rb ,10.44410_rb, 8.37884_rb    , 6.26384_rb    , &\n        & 4.28435_rb ,0.465228_rb, 0.385095_rb   ,0.304226_rb    , &\n        & 0.222479_rb,0.143286_rb, 5.58046e-02_rb, 7.84856e-03_rb /)\n      sfluxrefo(:, 2) = (/ &\n        & 15.6451_rb , 15.3170_rb, 14.6987_rb    , 13.7350_rb    , &\n        & 12.2267_rb ,10.51646_rb, 8.47150_rb    , 6.38873_rb    , &\n        & 4.33536_rb ,0.470610_rb,0.389426_rb    ,0.306461_rb    , &\n        & 0.223537_rb,0.143273_rb, 5.58179e-02_rb, 7.84856e-03_rb /)\n      sfluxrefo(:, 3) = (/ &\n        & 15.6092_rb , 15.3293_rb, 14.6881_rb    , 13.6693_rb    , &\n        & 12.2342_rb ,10.52010_rb, 8.49442_rb    , 6.42138_rb    , &\n        & 4.35865_rb ,0.473349_rb,0.391349_rb    ,0.308861_rb    , &\n        & 0.224666_rb,0.144799_rb, 5.58176e-02_rb, 7.84881e-03_rb /)\n      sfluxrefo(:, 4) = (/ &\n        & 15.5786_rb , 15.3422_rb, 14.6894_rb    , 13.6040_rb    , &\n        & 12.2567_rb ,10.49400_rb, 8.53521_rb    , 6.44427_rb    , &\n        & 4.37208_rb ,0.475709_rb,0.392956_rb    ,0.309737_rb    , &\n        & 0.226274_rb,0.146483_rb, 5.59325e-02_rb, 7.84881e-03_rb /)\n      sfluxrefo(:, 5) = (/ &\n        & 15.5380_rb , 15.3826_rb, 14.6575_rb    , 13.5722_rb    , &\n        & 12.2646_rb ,10.47672_rb, 8.57158_rb    , 6.46343_rb    , &\n        & 4.38259_rb ,0.477647_rb,0.393982_rb    ,0.310686_rb    , &\n        & 0.227620_rb,0.148376_rb, 5.60398e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 6) = (/ &\n        & 15.5124_rb , 15.3986_rb, 14.6240_rb    , 13.5535_rb    , &\n        & 12.2468_rb ,10.48891_rb, 8.60434_rb    , 6.47985_rb    , &\n        & 4.39448_rb ,0.478267_rb,0.395618_rb    ,0.311043_rb    , &\n        & 0.230927_rb,0.148774_rb, 5.61189e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 7) = (/ &\n        & 15.4910_rb , 15.4028_rb, 14.5772_rb    , 13.5507_rb    , &\n        & 12.2122_rb ,10.52735_rb, 8.62650_rb    , 6.49644_rb    , &\n        & 4.41173_rb ,0.478627_rb,0.396433_rb    ,0.314199_rb    , & \n        & 0.233125_rb,0.149052_rb, 5.62309e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 8) = (/ &\n        & 15.4562_rb , 15.3928_rb, 14.5510_rb    , 13.5122_rb    , &\n        & 12.1890_rb , 10.5826_rb, 8.65842_rb    , 6.51558_rb    , &\n        & 4.42747_rb ,0.480669_rb,0.400143_rb    ,0.318144_rb    , &\n        & 0.233937_rb,0.149119_rb, 5.62309e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 9) = (/ &\n        & 15.0069_rb , 15.1479_rb, 14.7802_rb    , 13.6085_rb    , &\n        & 12.2793_rb , 10.6929_rb, 8.72723_rb    , 6.57114_rb    , &\n        & 4.46330_rb ,0.486724_rb,0.401446_rb    ,0.318879_rb    , &\n        & 0.233959_rb,0.149119_rb, 5.62309e-02_rb, 7.83925e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 6925 cm-1.\n      rayl = 9.41e-09_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.31482e-07_rb,0.64010e-05_rb,0.95017e-05_rb,0.11735e-04_rb,0.13561e-04_rb, &\n        & 0.15077e-04_rb,0.16121e-04_rb,0.16138e-04_rb,0.41687e-06_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.29791e-07_rb,0.68206e-05_rb,0.10260e-04_rb,0.12764e-04_rb,0.14880e-04_rb, &\n        & 0.16665e-04_rb,0.17944e-04_rb,0.18170e-04_rb,0.44246e-06_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.28272e-07_rb,0.72448e-05_rb,0.11083e-04_rb,0.13866e-04_rb,0.16256e-04_rb, &\n        & 0.18323e-04_rb,0.19886e-04_rb,0.20229e-04_rb,0.47472e-06_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.26900e-07_rb,0.76935e-05_rb,0.11934e-04_rb,0.15015e-04_rb,0.17657e-04_rb, &\n        & 0.20038e-04_rb,0.21902e-04_rb,0.22361e-04_rb,0.50770e-06_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.25656e-07_rb,0.81661e-05_rb,0.12769e-04_rb,0.16181e-04_rb,0.19127e-04_rb, &\n        & 0.21755e-04_rb,0.23963e-04_rb,0.24421e-04_rb,0.54205e-06_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.26396e-07_rb,0.52225e-05_rb,0.77221e-05_rb,0.95150e-05_rb,0.11004e-04_rb, &\n        & 0.12195e-04_rb,0.13037e-04_rb,0.12985e-04_rb,0.32097e-06_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.24945e-07_rb,0.55737e-05_rb,0.83612e-05_rb,0.10375e-04_rb,0.12116e-04_rb, &\n        & 0.13569e-04_rb,0.14561e-04_rb,0.14711e-04_rb,0.34579e-06_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.23646e-07_rb,0.59333e-05_rb,0.90531e-05_rb,0.11301e-04_rb,0.13247e-04_rb, &\n        & 0.14956e-04_rb,0.16193e-04_rb,0.16396e-04_rb,0.37200e-06_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.22476e-07_rb,0.63144e-05_rb,0.97732e-05_rb,0.12274e-04_rb,0.14436e-04_rb, &\n        & 0.16377e-04_rb,0.17879e-04_rb,0.18223e-04_rb,0.40051e-06_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.21415e-07_rb,0.67133e-05_rb,0.10471e-04_rb,0.13264e-04_rb,0.15681e-04_rb, &\n        & 0.17843e-04_rb,0.19627e-04_rb,0.19954e-04_rb,0.42929e-06_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.22397e-07_rb,0.41930e-05_rb,0.61559e-05_rb,0.75544e-05_rb,0.86902e-05_rb, &\n        & 0.95896e-05_rb,0.10269e-04_rb,0.10114e-04_rb,0.24148e-06_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.21124e-07_rb,0.44837e-05_rb,0.66786e-05_rb,0.82475e-05_rb,0.96353e-05_rb, &\n        & 0.10742e-04_rb,0.11469e-04_rb,0.11556e-04_rb,0.26304e-06_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.19988e-07_rb,0.47839e-05_rb,0.72499e-05_rb,0.90229e-05_rb,0.10560e-04_rb, &\n        & 0.11900e-04_rb,0.12859e-04_rb,0.12935e-04_rb,0.28618e-06_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.18968e-07_rb,0.51040e-05_rb,0.78586e-05_rb,0.98308e-05_rb,0.11551e-04_rb, &\n        & 0.13094e-04_rb,0.14240e-04_rb,0.14455e-04_rb,0.30983e-06_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.18047e-07_rb,0.54366e-05_rb,0.84462e-05_rb,0.10670e-04_rb,0.12585e-04_rb, &\n        & 0.14313e-04_rb,0.15695e-04_rb,0.15934e-04_rb,0.33255e-06_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.19080e-07_rb,0.33409e-05_rb,0.48738e-05_rb,0.59354e-05_rb,0.67877e-05_rb, &\n        & 0.74900e-05_rb,0.79142e-05_rb,0.77200e-05_rb,0.18466e-06_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.17954e-07_rb,0.35910e-05_rb,0.52960e-05_rb,0.65037e-05_rb,0.75744e-05_rb, &\n        & 0.84082e-05_rb,0.89422e-05_rb,0.89302e-05_rb,0.20292e-06_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.16954e-07_rb,0.38317e-05_rb,0.57536e-05_rb,0.71322e-05_rb,0.83424e-05_rb, &\n        & 0.93788e-05_rb,0.10063e-04_rb,0.10098e-04_rb,0.22173e-06_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.16059e-07_rb,0.40932e-05_rb,0.62586e-05_rb,0.77961e-05_rb,0.91475e-05_rb, &\n        & 0.10347e-04_rb,0.11222e-04_rb,0.11312e-04_rb,0.24005e-06_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.15254e-07_rb,0.43678e-05_rb,0.67525e-05_rb,0.84873e-05_rb,0.99995e-05_rb, &\n        & 0.11353e-04_rb,0.12416e-04_rb,0.12586e-04_rb,0.25939e-06_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.16261e-07_rb,0.26540e-05_rb,0.38541e-05_rb,0.46443e-05_rb,0.52961e-05_rb, &\n        & 0.58054e-05_rb,0.60718e-05_rb,0.58540e-05_rb,0.14274e-06_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.15265e-07_rb,0.28598e-05_rb,0.41831e-05_rb,0.51221e-05_rb,0.59110e-05_rb, &\n        & 0.65207e-05_rb,0.69761e-05_rb,0.68685e-05_rb,0.15725e-06_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.14384e-07_rb,0.30623e-05_rb,0.45528e-05_rb,0.56124e-05_rb,0.65650e-05_rb, &\n        & 0.73436e-05_rb,0.78208e-05_rb,0.78523e-05_rb,0.17271e-06_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.13599e-07_rb,0.32720e-05_rb,0.49622e-05_rb,0.61605e-05_rb,0.72244e-05_rb, &\n        & 0.81582e-05_rb,0.87971e-05_rb,0.88096e-05_rb,0.18766e-06_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.12895e-07_rb,0.34985e-05_rb,0.53833e-05_rb,0.67240e-05_rb,0.79091e-05_rb, &\n        & 0.89688e-05_rb,0.97698e-05_rb,0.98639e-05_rb,0.20375e-06_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.13898e-07_rb,0.20981e-05_rb,0.30384e-05_rb,0.36041e-05_rb,0.41040e-05_rb, &\n        & 0.44334e-05_rb,0.45761e-05_rb,0.43950e-05_rb,0.11025e-06_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.13011e-07_rb,0.22645e-05_rb,0.32890e-05_rb,0.40042e-05_rb,0.45851e-05_rb, &\n        & 0.50473e-05_rb,0.53250e-05_rb,0.51854e-05_rb,0.12227e-06_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.12231e-07_rb,0.24322e-05_rb,0.35842e-05_rb,0.43915e-05_rb,0.51259e-05_rb, &\n        & 0.56903e-05_rb,0.60343e-05_rb,0.60166e-05_rb,0.13506e-06_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.11539e-07_rb,0.26032e-05_rb,0.39107e-05_rb,0.48321e-05_rb,0.56525e-05_rb, &\n        & 0.63625e-05_rb,0.68078e-05_rb,0.68024e-05_rb,0.14719e-06_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.10921e-07_rb,0.27866e-05_rb,0.42578e-05_rb,0.52919e-05_rb,0.62181e-05_rb, &\n        & 0.70362e-05_rb,0.76140e-05_rb,0.76519e-05_rb,0.16052e-06_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.11886e-07_rb,0.16563e-05_rb,0.23860e-05_rb,0.28276e-05_rb,0.31449e-05_rb, &\n        & 0.33771e-05_rb,0.34305e-05_rb,0.32824e-05_rb,0.84943e-07_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.11096e-07_rb,0.17874e-05_rb,0.25861e-05_rb,0.31100e-05_rb,0.35425e-05_rb, &\n        & 0.38737e-05_rb,0.40468e-05_rb,0.38933e-05_rb,0.94734e-07_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.10405e-07_rb,0.19286e-05_rb,0.28166e-05_rb,0.34417e-05_rb,0.39786e-05_rb, &\n        & 0.43804e-05_rb,0.46759e-05_rb,0.45835e-05_rb,0.10531e-06_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.97948e-08_rb,0.20680e-05_rb,0.30741e-05_rb,0.37803e-05_rb,0.44163e-05_rb, &\n        & 0.49420e-05_rb,0.52477e-05_rb,0.52509e-05_rb,0.11517e-06_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.92522e-08_rb,0.22140e-05_rb,0.33558e-05_rb,0.41544e-05_rb,0.48719e-05_rb, &\n        & 0.54968e-05_rb,0.59225e-05_rb,0.59027e-05_rb,0.12618e-06_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.10164e-07_rb,0.13056e-05_rb,0.18690e-05_rb,0.21940e-05_rb,0.24210e-05_rb, &\n        & 0.25504e-05_rb,0.25676e-05_rb,0.24444e-05_rb,0.66021e-07_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.94612e-08_rb,0.14106e-05_rb,0.20398e-05_rb,0.24136e-05_rb,0.27424e-05_rb, &\n        & 0.29578e-05_rb,0.30446e-05_rb,0.29182e-05_rb,0.73985e-07_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.88489e-08_rb,0.15256e-05_rb,0.22123e-05_rb,0.26894e-05_rb,0.30704e-05_rb, &\n        & 0.33808e-05_rb,0.35521e-05_rb,0.34526e-05_rb,0.82666e-07_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.83111e-08_rb,0.16396e-05_rb,0.24159e-05_rb,0.29563e-05_rb,0.34504e-05_rb, &\n        & 0.38196e-05_rb,0.40425e-05_rb,0.40093e-05_rb,0.90940e-07_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.78349e-08_rb,0.17570e-05_rb,0.26398e-05_rb,0.32547e-05_rb,0.38060e-05_rb, &\n        & 0.42813e-05_rb,0.45732e-05_rb,0.45465e-05_rb,0.10022e-06_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.86983e-08_rb,0.10284e-05_rb,0.14734e-05_rb,0.16973e-05_rb,0.18551e-05_rb, &\n        & 0.19223e-05_rb,0.19222e-05_rb,0.18289e-05_rb,0.53460e-07_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.80712e-08_rb,0.11141e-05_rb,0.16016e-05_rb,0.18902e-05_rb,0.21027e-05_rb, &\n        & 0.22504e-05_rb,0.22800e-05_rb,0.21749e-05_rb,0.60180e-07_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.75284e-08_rb,0.12033e-05_rb,0.17376e-05_rb,0.20849e-05_rb,0.23719e-05_rb, &\n        & 0.25906e-05_rb,0.26977e-05_rb,0.25910e-05_rb,0.66886e-07_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.70541e-08_rb,0.12979e-05_rb,0.18959e-05_rb,0.23090e-05_rb,0.26695e-05_rb, &\n        & 0.29367e-05_rb,0.31239e-05_rb,0.30574e-05_rb,0.73978e-07_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.66359e-08_rb,0.13937e-05_rb,0.20720e-05_rb,0.25448e-05_rb,0.29680e-05_rb, &\n        & 0.33208e-05_rb,0.35191e-05_rb,0.35097e-05_rb,0.81724e-07_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.74006e-08_rb,0.81705e-06_rb,0.11610e-05_rb,0.13325e-05_rb,0.14305e-05_rb, &\n        & 0.14668e-05_rb,0.14642e-05_rb,0.13765e-05_rb,0.44724e-07_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.68477e-08_rb,0.88306e-06_rb,0.12640e-05_rb,0.14768e-05_rb,0.16329e-05_rb, &\n        & 0.17209e-05_rb,0.17306e-05_rb,0.16441e-05_rb,0.50688e-07_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.63717e-08_rb,0.95522e-06_rb,0.13783e-05_rb,0.16303e-05_rb,0.18546e-05_rb, &\n        & 0.19963e-05_rb,0.20570e-05_rb,0.19678e-05_rb,0.56052e-07_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.59576e-08_rb,0.10331e-05_rb,0.14975e-05_rb,0.18180e-05_rb,0.20770e-05_rb, &\n        & 0.22813e-05_rb,0.24021e-05_rb,0.23350e-05_rb,0.62412e-07_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.55940e-08_rb,0.11102e-05_rb,0.16370e-05_rb,0.19999e-05_rb,0.23349e-05_rb, &\n        & 0.25900e-05_rb,0.27328e-05_rb,0.27057e-05_rb,0.69466e-07_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.60617e-08_rb,0.67167e-06_rb,0.95594e-06_rb,0.10939e-05_rb,0.11767e-05_rb, &\n        & 0.12059e-05_rb,0.12032e-05_rb,0.11314e-05_rb,0.37093e-07_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.56087e-08_rb,0.72704e-06_rb,0.10406e-05_rb,0.12137e-05_rb,0.13434e-05_rb, &\n        & 0.14171e-05_rb,0.14246e-05_rb,0.13521e-05_rb,0.41918e-07_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.52187e-08_rb,0.78681e-06_rb,0.11338e-05_rb,0.13419e-05_rb,0.15254e-05_rb, &\n        & 0.16426e-05_rb,0.16950e-05_rb,0.16203e-05_rb,0.46339e-07_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.48793e-08_rb,0.85013e-06_rb,0.12327e-05_rb,0.14971e-05_rb,0.17109e-05_rb, &\n        & 0.18776e-05_rb,0.19784e-05_rb,0.19240e-05_rb,0.51725e-07_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.45815e-08_rb,0.91420e-06_rb,0.13427e-05_rb,0.16458e-05_rb,0.19221e-05_rb, &\n        & 0.21323e-05_rb,0.22490e-05_rb,0.22263e-05_rb,0.57555e-07_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.49629e-08_rb,0.55223e-06_rb,0.78677e-06_rb,0.89789e-06_rb,0.96778e-06_rb, &\n        & 0.99148e-06_rb,0.98883e-06_rb,0.93028e-06_rb,0.30610e-07_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.45920e-08_rb,0.59832e-06_rb,0.85632e-06_rb,0.99730e-06_rb,0.11052e-05_rb, &\n        & 0.11665e-05_rb,0.11729e-05_rb,0.11125e-05_rb,0.34553e-07_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.42727e-08_rb,0.64760e-06_rb,0.93315e-06_rb,0.11041e-05_rb,0.12552e-05_rb, &\n        & 0.13521e-05_rb,0.13956e-05_rb,0.13333e-05_rb,0.38176e-07_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.39949e-08_rb,0.69926e-06_rb,0.10110e-05_rb,0.12304e-05_rb,0.14083e-05_rb, &\n        & 0.15442e-05_rb,0.16283e-05_rb,0.15837e-05_rb,0.42648e-07_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.37510e-08_rb,0.75239e-06_rb,0.11006e-05_rb,0.13535e-05_rb,0.15785e-05_rb, &\n        & 0.17547e-05_rb,0.18501e-05_rb,0.18298e-05_rb,0.47452e-07_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.40633e-08_rb,0.45378e-06_rb,0.64719e-06_rb,0.73637e-06_rb,0.79571e-06_rb, &\n        & 0.81503e-06_rb,0.81264e-06_rb,0.76488e-06_rb,0.25080e-07_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.37596e-08_rb,0.49208e-06_rb,0.70430e-06_rb,0.81894e-06_rb,0.90856e-06_rb, &\n        & 0.95919e-06_rb,0.96435e-06_rb,0.91411e-06_rb,0.28293e-07_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.34982e-08_rb,0.53259e-06_rb,0.76370e-06_rb,0.90761e-06_rb,0.10316e-05_rb, &\n        & 0.11116e-05_rb,0.11472e-05_rb,0.10956e-05_rb,0.31267e-07_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.32707e-08_rb,0.57488e-06_rb,0.82833e-06_rb,0.10096e-05_rb,0.11577e-05_rb, &\n        & 0.12688e-05_rb,0.13388e-05_rb,0.13015e-05_rb,0.34930e-07_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.30710e-08_rb,0.61832e-06_rb,0.90250e-06_rb,0.11120e-05_rb,0.12962e-05_rb, &\n        & 0.14424e-05_rb,0.15206e-05_rb,0.15032e-05_rb,0.38861e-07_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.14215e-06_rb,0.65726e-04_rb,0.11327e-03_rb,0.15324e-03_rb,0.18473e-03_rb, &\n        & 0.20658e-03_rb,0.21603e-03_rb,0.20617e-03_rb,0.13252e-04_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.13452e-06_rb,0.69521e-04_rb,0.12059e-03_rb,0.16342e-03_rb,0.19613e-03_rb, &\n        & 0.21987e-03_rb,0.22946e-03_rb,0.21879e-03_rb,0.14816e-04_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.12766e-06_rb,0.73313e-04_rb,0.12786e-03_rb,0.17303e-03_rb,0.20754e-03_rb, &\n        & 0.23326e-03_rb,0.24324e-03_rb,0.22956e-03_rb,0.16536e-04_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.12147e-06_rb,0.77087e-04_rb,0.13521e-03_rb,0.18263e-03_rb,0.21904e-03_rb, &\n        & 0.24614e-03_rb,0.25637e-03_rb,0.24060e-03_rb,0.18092e-04_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.11584e-06_rb,0.80946e-04_rb,0.14233e-03_rb,0.19230e-03_rb,0.23047e-03_rb, &\n        & 0.25869e-03_rb,0.26904e-03_rb,0.25139e-03_rb,0.19768e-04_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.11918e-06_rb,0.55167e-04_rb,0.94557e-04_rb,0.12760e-03_rb,0.15322e-03_rb, &\n        & 0.17148e-03_rb,0.17894e-03_rb,0.17049e-03_rb,0.10710e-04_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.11264e-06_rb,0.58581e-04_rb,0.10113e-03_rb,0.13648e-03_rb,0.16335e-03_rb, &\n        & 0.18288e-03_rb,0.19059e-03_rb,0.18131e-03_rb,0.12067e-04_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.10678e-06_rb,0.61935e-04_rb,0.10756e-03_rb,0.14497e-03_rb,0.17335e-03_rb, &\n        & 0.19437e-03_rb,0.20245e-03_rb,0.19070e-03_rb,0.13553e-04_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.10149e-06_rb,0.65261e-04_rb,0.11404e-03_rb,0.15331e-03_rb,0.18323e-03_rb, &\n        & 0.20559e-03_rb,0.21385e-03_rb,0.20024e-03_rb,0.14801e-04_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.96699e-07_rb,0.68698e-04_rb,0.12038e-03_rb,0.16167e-03_rb,0.19308e-03_rb, &\n        & 0.21635e-03_rb,0.22479e-03_rb,0.20964e-03_rb,0.16245e-04_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.10112e-06_rb,0.45399e-04_rb,0.77226e-04_rb,0.10397e-03_rb,0.12462e-03_rb, &\n        & 0.13956e-03_rb,0.14531e-03_rb,0.13816e-03_rb,0.83635e-05_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.95381e-07_rb,0.48357e-04_rb,0.82986e-04_rb,0.11173e-03_rb,0.13338e-03_rb, &\n        & 0.14898e-03_rb,0.15534e-03_rb,0.14786e-03_rb,0.94915e-05_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.90257e-07_rb,0.51355e-04_rb,0.88727e-04_rb,0.11920e-03_rb,0.14215e-03_rb, &\n        & 0.15859e-03_rb,0.16541e-03_rb,0.15622e-03_rb,0.10683e-04_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.85653e-07_rb,0.54322e-04_rb,0.94369e-04_rb,0.12646e-03_rb,0.15072e-03_rb, &\n        & 0.16838e-03_rb,0.17536e-03_rb,0.16433e-03_rb,0.11764e-04_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.81492e-07_rb,0.57300e-04_rb,0.99940e-04_rb,0.13355e-03_rb,0.15929e-03_rb, &\n        & 0.17800e-03_rb,0.18496e-03_rb,0.17234e-03_rb,0.12979e-04_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.86132e-07_rb,0.36910e-04_rb,0.62346e-04_rb,0.83628e-04_rb,0.10025e-03_rb, &\n        & 0.11224e-03_rb,0.11706e-03_rb,0.11109e-03_rb,0.64715e-05_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.81062e-07_rb,0.39490e-04_rb,0.67274e-04_rb,0.90384e-04_rb,0.10785e-03_rb, &\n        & 0.12026e-03_rb,0.12543e-03_rb,0.11944e-03_rb,0.73991e-05_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.76553e-07_rb,0.42055e-04_rb,0.72269e-04_rb,0.96956e-04_rb,0.11528e-03_rb, &\n        & 0.12833e-03_rb,0.13396e-03_rb,0.12697e-03_rb,0.83899e-05_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.72516e-07_rb,0.44696e-04_rb,0.77235e-04_rb,0.10321e-03_rb,0.12276e-03_rb, &\n        & 0.13674e-03_rb,0.14260e-03_rb,0.13384e-03_rb,0.93052e-05_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.68881e-07_rb,0.47273e-04_rb,0.82118e-04_rb,0.10935e-03_rb,0.13016e-03_rb, &\n        & 0.14506e-03_rb,0.15080e-03_rb,0.14062e-03_rb,0.10314e-04_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.73401e-07_rb,0.29772e-04_rb,0.49957e-04_rb,0.66720e-04_rb,0.80104e-04_rb, &\n        & 0.89761e-04_rb,0.93853e-04_rb,0.88953e-04_rb,0.50171e-05_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.68916e-07_rb,0.31976e-04_rb,0.54217e-04_rb,0.72570e-04_rb,0.86671e-04_rb, &\n        & 0.96653e-04_rb,0.10073e-03_rb,0.95875e-04_rb,0.57746e-05_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.64945e-07_rb,0.34219e-04_rb,0.58417e-04_rb,0.78327e-04_rb,0.92950e-04_rb, &\n        & 0.10358e-03_rb,0.10803e-03_rb,0.10274e-03_rb,0.66197e-05_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.61405e-07_rb,0.36457e-04_rb,0.62694e-04_rb,0.83756e-04_rb,0.99356e-04_rb, &\n        & 0.11058e-03_rb,0.11542e-03_rb,0.10858e-03_rb,0.73729e-05_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.58229e-07_rb,0.38713e-04_rb,0.67059e-04_rb,0.89033e-04_rb,0.10573e-03_rb, &\n        & 0.11764e-03_rb,0.12243e-03_rb,0.11440e-03_rb,0.82149e-05_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.62723e-07_rb,0.23750e-04_rb,0.39643e-04_rb,0.52796e-04_rb,0.63478e-04_rb, &\n        & 0.71151e-04_rb,0.74640e-04_rb,0.70193e-04_rb,0.38899e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.58735e-07_rb,0.25657e-04_rb,0.43274e-04_rb,0.57719e-04_rb,0.69124e-04_rb, &\n        & 0.77375e-04_rb,0.80498e-04_rb,0.76543e-04_rb,0.44833e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.55222e-07_rb,0.27563e-04_rb,0.46866e-04_rb,0.62699e-04_rb,0.74494e-04_rb, &\n        & 0.82946e-04_rb,0.86653e-04_rb,0.82509e-04_rb,0.51635e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.52103e-07_rb,0.29528e-04_rb,0.50470e-04_rb,0.67473e-04_rb,0.79899e-04_rb, &\n        & 0.89004e-04_rb,0.92786e-04_rb,0.87628e-04_rb,0.58104e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.49317e-07_rb,0.31444e-04_rb,0.54175e-04_rb,0.72000e-04_rb,0.85322e-04_rb, &\n        & 0.94885e-04_rb,0.98826e-04_rb,0.92648e-04_rb,0.64997e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.53634e-07_rb,0.18862e-04_rb,0.31325e-04_rb,0.41575e-04_rb,0.50141e-04_rb, &\n        & 0.56190e-04_rb,0.58882e-04_rb,0.55026e-04_rb,0.29795e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.50084e-07_rb,0.20474e-04_rb,0.34342e-04_rb,0.45732e-04_rb,0.54884e-04_rb, &\n        & 0.61494e-04_rb,0.64187e-04_rb,0.60857e-04_rb,0.34589e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.46973e-07_rb,0.22063e-04_rb,0.37411e-04_rb,0.49893e-04_rb,0.59475e-04_rb, &\n        & 0.66279e-04_rb,0.69129e-04_rb,0.65758e-04_rb,0.39983e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.44224e-07_rb,0.23764e-04_rb,0.40481e-04_rb,0.54107e-04_rb,0.64026e-04_rb, &\n        & 0.71350e-04_rb,0.74328e-04_rb,0.70513e-04_rb,0.45526e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.41777e-07_rb,0.25434e-04_rb,0.43555e-04_rb,0.57958e-04_rb,0.68599e-04_rb, &\n        & 0.76304e-04_rb,0.79456e-04_rb,0.74649e-04_rb,0.51046e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.45857e-07_rb,0.14945e-04_rb,0.24594e-04_rb,0.32696e-04_rb,0.39571e-04_rb, &\n        & 0.44348e-04_rb,0.46090e-04_rb,0.43034e-04_rb,0.22833e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.42697e-07_rb,0.16265e-04_rb,0.27198e-04_rb,0.36108e-04_rb,0.43381e-04_rb, &\n        & 0.48642e-04_rb,0.50943e-04_rb,0.47848e-04_rb,0.26669e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.39944e-07_rb,0.17616e-04_rb,0.29775e-04_rb,0.39577e-04_rb,0.47366e-04_rb, &\n        & 0.52791e-04_rb,0.54992e-04_rb,0.52236e-04_rb,0.30932e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.37522e-07_rb,0.19042e-04_rb,0.32351e-04_rb,0.43126e-04_rb,0.51153e-04_rb, &\n        & 0.56987e-04_rb,0.59316e-04_rb,0.56438e-04_rb,0.35666e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.35376e-07_rb,0.20476e-04_rb,0.34946e-04_rb,0.46521e-04_rb,0.55009e-04_rb, &\n        & 0.61221e-04_rb,0.63714e-04_rb,0.60035e-04_rb,0.40037e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.39233e-07_rb,0.11817e-04_rb,0.19254e-04_rb,0.25596e-04_rb,0.30843e-04_rb, &\n        & 0.34574e-04_rb,0.36035e-04_rb,0.33425e-04_rb,0.17673e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.36418e-07_rb,0.12914e-04_rb,0.21404e-04_rb,0.28372e-04_rb,0.34161e-04_rb, &\n        & 0.38321e-04_rb,0.40053e-04_rb,0.37435e-04_rb,0.20751e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.33979e-07_rb,0.14026e-04_rb,0.23574e-04_rb,0.31316e-04_rb,0.37514e-04_rb, &\n        & 0.41977e-04_rb,0.43747e-04_rb,0.41346e-04_rb,0.24151e-05_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.31844e-07_rb,0.15205e-04_rb,0.25770e-04_rb,0.34231e-04_rb,0.40723e-04_rb, &\n        & 0.45315e-04_rb,0.47202e-04_rb,0.44869e-04_rb,0.28151e-05_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.29961e-07_rb,0.16420e-04_rb,0.27955e-04_rb,0.37187e-04_rb,0.43941e-04_rb, &\n        & 0.48873e-04_rb,0.50856e-04_rb,0.48170e-04_rb,0.31733e-05_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.33373e-07_rb,0.93505e-05_rb,0.15216e-04_rb,0.20198e-04_rb,0.24244e-04_rb, &\n        & 0.27077e-04_rb,0.28186e-04_rb,0.25996e-04_rb,0.13941e-05_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.30893e-07_rb,0.10284e-04_rb,0.16902e-04_rb,0.22468e-04_rb,0.27072e-04_rb, &\n        & 0.30382e-04_rb,0.31603e-04_rb,0.29456e-04_rb,0.16352e-05_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.28754e-07_rb,0.11207e-04_rb,0.18715e-04_rb,0.24849e-04_rb,0.29815e-04_rb, &\n        & 0.33379e-04_rb,0.34901e-04_rb,0.32836e-04_rb,0.19188e-05_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.26892e-07_rb,0.12172e-04_rb,0.20578e-04_rb,0.27269e-04_rb,0.32536e-04_rb, &\n        & 0.36182e-04_rb,0.37703e-04_rb,0.35750e-04_rb,0.22467e-05_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.25255e-07_rb,0.13195e-04_rb,0.22422e-04_rb,0.29781e-04_rb,0.35220e-04_rb, &\n        & 0.39157e-04_rb,0.40719e-04_rb,0.38729e-04_rb,0.25535e-05_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.27335e-07_rb,0.77491e-05_rb,0.12607e-04_rb,0.16695e-04_rb,0.20093e-04_rb, &\n        & 0.22431e-04_rb,0.23345e-04_rb,0.21522e-04_rb,0.11569e-05_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.25303e-07_rb,0.85322e-05_rb,0.14022e-04_rb,0.18593e-04_rb,0.22378e-04_rb, &\n        & 0.25133e-04_rb,0.26161e-04_rb,0.24379e-04_rb,0.13709e-05_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.23551e-07_rb,0.92912e-05_rb,0.15536e-04_rb,0.20618e-04_rb,0.24722e-04_rb, &\n        & 0.27647e-04_rb,0.28874e-04_rb,0.27196e-04_rb,0.16099e-05_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.22025e-07_rb,0.10117e-04_rb,0.17115e-04_rb,0.22645e-04_rb,0.26974e-04_rb, &\n        & 0.29947e-04_rb,0.31210e-04_rb,0.29581e-04_rb,0.18845e-05_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.20684e-07_rb,0.10977e-04_rb,0.18645e-04_rb,0.24734e-04_rb,0.29203e-04_rb, &\n        & 0.32453e-04_rb,0.33733e-04_rb,0.32056e-04_rb,0.21326e-05_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.22380e-07_rb,0.64144e-05_rb,0.10436e-04_rb,0.13802e-04_rb,0.16622e-04_rb, &\n        & 0.18557e-04_rb,0.19314e-04_rb,0.17793e-04_rb,0.95906e-06_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.20716e-07_rb,0.70603e-05_rb,0.11625e-04_rb,0.15385e-04_rb,0.18503e-04_rb, &\n        & 0.20776e-04_rb,0.21630e-04_rb,0.20152e-04_rb,0.11363e-05_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.19282e-07_rb,0.76960e-05_rb,0.12886e-04_rb,0.17087e-04_rb,0.20475e-04_rb, &\n        & 0.22867e-04_rb,0.23856e-04_rb,0.22506e-04_rb,0.13400e-05_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.18032e-07_rb,0.83983e-05_rb,0.14206e-04_rb,0.18783e-04_rb,0.22334e-04_rb, &\n        & 0.24764e-04_rb,0.25815e-04_rb,0.24461e-04_rb,0.15637e-05_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.16934e-07_rb,0.91186e-05_rb,0.15491e-04_rb,0.20513e-04_rb,0.24201e-04_rb, &\n        & 0.26864e-04_rb,0.27917e-04_rb,0.26491e-04_rb,0.17707e-05_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.18323e-07_rb,0.53022e-05_rb,0.86273e-05_rb,0.11385e-04_rb,0.13729e-04_rb, &\n        & 0.15318e-04_rb,0.15952e-04_rb,0.14693e-04_rb,0.78927e-06_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.16961e-07_rb,0.58316e-05_rb,0.96204e-05_rb,0.12717e-04_rb,0.15275e-04_rb, &\n        & 0.17141e-04_rb,0.17863e-04_rb,0.16639e-04_rb,0.93659e-06_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.15787e-07_rb,0.63710e-05_rb,0.10675e-04_rb,0.14140e-04_rb,0.16925e-04_rb, &\n        & 0.18881e-04_rb,0.19675e-04_rb,0.18564e-04_rb,0.11050e-05_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.14764e-07_rb,0.69607e-05_rb,0.11779e-04_rb,0.15554e-04_rb,0.18475e-04_rb, &\n        & 0.20461e-04_rb,0.21320e-04_rb,0.20207e-04_rb,0.12868e-05_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.13865e-07_rb,0.75611e-05_rb,0.12843e-04_rb,0.16991e-04_rb,0.20029e-04_rb, &\n        & 0.22208e-04_rb,0.23079e-04_rb,0.21838e-04_rb,0.14565e-05_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.55948e-06_rb,0.43472e-03_rb,0.65689e-03_rb,0.80237e-03_rb,0.90326e-03_rb, &\n        & 0.95995e-03_rb,0.94242e-03_rb,0.81801e-03_rb,0.18380e-03_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.53175e-06_rb,0.45395e-03_rb,0.68779e-03_rb,0.84040e-03_rb,0.94598e-03_rb, &\n        & 0.10011e-02_rb,0.98481e-03_rb,0.85748e-03_rb,0.19567e-03_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.50648e-06_rb,0.46835e-03_rb,0.71403e-03_rb,0.87684e-03_rb,0.98520e-03_rb, &\n        & 0.10393e-02_rb,0.10233e-02_rb,0.89729e-03_rb,0.20725e-03_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.48330e-06_rb,0.48143e-03_rb,0.73979e-03_rb,0.91063e-03_rb,0.10212e-02_rb, &\n        & 0.10762e-02_rb,0.10600e-02_rb,0.93507e-03_rb,0.21814e-03_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.46195e-06_rb,0.49413e-03_rb,0.76470e-03_rb,0.94208e-03_rb,0.10547e-02_rb, &\n        & 0.11099e-02_rb,0.10960e-02_rb,0.97164e-03_rb,0.23056e-03_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.46813e-06_rb,0.36711e-03_rb,0.55743e-03_rb,0.68070e-03_rb,0.76614e-03_rb, &\n        & 0.81442e-03_rb,0.79940e-03_rb,0.69691e-03_rb,0.14988e-03_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.44450e-06_rb,0.38413e-03_rb,0.58502e-03_rb,0.71506e-03_rb,0.80409e-03_rb, &\n        & 0.85191e-03_rb,0.83722e-03_rb,0.73231e-03_rb,0.15985e-03_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.42301e-06_rb,0.39744e-03_rb,0.60852e-03_rb,0.74741e-03_rb,0.83920e-03_rb, &\n        & 0.88588e-03_rb,0.87206e-03_rb,0.76677e-03_rb,0.16968e-03_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.40335e-06_rb,0.40927e-03_rb,0.63200e-03_rb,0.77835e-03_rb,0.87190e-03_rb, &\n        & 0.91843e-03_rb,0.90467e-03_rb,0.79859e-03_rb,0.17948e-03_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.38529e-06_rb,0.42034e-03_rb,0.65353e-03_rb,0.80758e-03_rb,0.90248e-03_rb, &\n        & 0.94929e-03_rb,0.93715e-03_rb,0.83136e-03_rb,0.19018e-03_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.39591e-06_rb,0.30459e-03_rb,0.46364e-03_rb,0.56590e-03_rb,0.63680e-03_rb, &\n        & 0.67681e-03_rb,0.66517e-03_rb,0.58106e-03_rb,0.11936e-03_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.37538e-06_rb,0.32036e-03_rb,0.48874e-03_rb,0.59649e-03_rb,0.67170e-03_rb, &\n        & 0.71161e-03_rb,0.69943e-03_rb,0.61159e-03_rb,0.12804e-03_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.35675e-06_rb,0.33321e-03_rb,0.50999e-03_rb,0.62591e-03_rb,0.70319e-03_rb, &\n        & 0.74333e-03_rb,0.73015e-03_rb,0.64070e-03_rb,0.13642e-03_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.33978e-06_rb,0.34382e-03_rb,0.53102e-03_rb,0.65391e-03_rb,0.73278e-03_rb, &\n        & 0.77303e-03_rb,0.75990e-03_rb,0.66979e-03_rb,0.14477e-03_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.32422e-06_rb,0.35416e-03_rb,0.55071e-03_rb,0.68042e-03_rb,0.76041e-03_rb, &\n        & 0.80118e-03_rb,0.78914e-03_rb,0.69923e-03_rb,0.15365e-03_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.33598e-06_rb,0.24970e-03_rb,0.38053e-03_rb,0.46464e-03_rb,0.52234e-03_rb, &\n        & 0.55488e-03_rb,0.54675e-03_rb,0.47794e-03_rb,0.95275e-04_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.31800e-06_rb,0.26415e-03_rb,0.40313e-03_rb,0.49210e-03_rb,0.55359e-03_rb, &\n        & 0.58661e-03_rb,0.57694e-03_rb,0.50393e-03_rb,0.10292e-03_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.30177e-06_rb,0.27638e-03_rb,0.42268e-03_rb,0.51823e-03_rb,0.58348e-03_rb, &\n        & 0.61591e-03_rb,0.60497e-03_rb,0.52947e-03_rb,0.11016e-03_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.28703e-06_rb,0.28612e-03_rb,0.44165e-03_rb,0.54326e-03_rb,0.61010e-03_rb, &\n        & 0.64299e-03_rb,0.63151e-03_rb,0.55558e-03_rb,0.11708e-03_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.27356e-06_rb,0.29550e-03_rb,0.45903e-03_rb,0.56703e-03_rb,0.63522e-03_rb, &\n        & 0.66839e-03_rb,0.65812e-03_rb,0.58142e-03_rb,0.12444e-03_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.28517e-06_rb,0.20305e-03_rb,0.30940e-03_rb,0.37854e-03_rb,0.42516e-03_rb, &\n        & 0.45167e-03_rb,0.44617e-03_rb,0.39006e-03_rb,0.76394e-04_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.26943e-06_rb,0.21631e-03_rb,0.32942e-03_rb,0.40279e-03_rb,0.45281e-03_rb, &\n        & 0.47959e-03_rb,0.47274e-03_rb,0.41219e-03_rb,0.83093e-04_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.25526e-06_rb,0.22760e-03_rb,0.34736e-03_rb,0.42603e-03_rb,0.47928e-03_rb, &\n        & 0.50573e-03_rb,0.49753e-03_rb,0.43423e-03_rb,0.89137e-04_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.24245e-06_rb,0.23661e-03_rb,0.36423e-03_rb,0.44832e-03_rb,0.50373e-03_rb, &\n        & 0.53021e-03_rb,0.52092e-03_rb,0.45715e-03_rb,0.95026e-04_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.23079e-06_rb,0.24490e-03_rb,0.37979e-03_rb,0.46958e-03_rb,0.52671e-03_rb, &\n        & 0.55360e-03_rb,0.54422e-03_rb,0.47982e-03_rb,0.10100e-03_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.24258e-06_rb,0.16374e-03_rb,0.24889e-03_rb,0.30526e-03_rb,0.34256e-03_rb, &\n        & 0.36437e-03_rb,0.36054e-03_rb,0.31643e-03_rb,0.60983e-04_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.22873e-06_rb,0.17557e-03_rb,0.26674e-03_rb,0.32662e-03_rb,0.36698e-03_rb, &\n        & 0.38862e-03_rb,0.38395e-03_rb,0.33481e-03_rb,0.66717e-04_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.21632e-06_rb,0.18596e-03_rb,0.28315e-03_rb,0.34710e-03_rb,0.39032e-03_rb, &\n        & 0.41186e-03_rb,0.40597e-03_rb,0.35347e-03_rb,0.71805e-04_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.20515e-06_rb,0.19412e-03_rb,0.29825e-03_rb,0.36672e-03_rb,0.41223e-03_rb, &\n        & 0.43370e-03_rb,0.42654e-03_rb,0.37308e-03_rb,0.76950e-04_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.19500e-06_rb,0.20163e-03_rb,0.31177e-03_rb,0.38573e-03_rb,0.43298e-03_rb, &\n        & 0.45474e-03_rb,0.44659e-03_rb,0.39273e-03_rb,0.81854e-04_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.20644e-06_rb,0.13088e-03_rb,0.19883e-03_rb,0.24453e-03_rb,0.27379e-03_rb, &\n        & 0.29133e-03_rb,0.28972e-03_rb,0.25527e-03_rb,0.48483e-04_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.19422e-06_rb,0.14123e-03_rb,0.21464e-03_rb,0.26307e-03_rb,0.29520e-03_rb, &\n        & 0.31262e-03_rb,0.30976e-03_rb,0.27057e-03_rb,0.53189e-04_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.18334e-06_rb,0.15056e-03_rb,0.22945e-03_rb,0.28102e-03_rb,0.31570e-03_rb, &\n        & 0.33336e-03_rb,0.32921e-03_rb,0.28657e-03_rb,0.57664e-04_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.17359e-06_rb,0.15845e-03_rb,0.24254e-03_rb,0.29812e-03_rb,0.33533e-03_rb, &\n        & 0.35273e-03_rb,0.34737e-03_rb,0.30290e-03_rb,0.62080e-04_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.16476e-06_rb,0.16515e-03_rb,0.25472e-03_rb,0.31492e-03_rb,0.35368e-03_rb, &\n        & 0.37134e-03_rb,0.36466e-03_rb,0.31971e-03_rb,0.66283e-04_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.17564e-06_rb,0.10377e-03_rb,0.15799e-03_rb,0.19443e-03_rb,0.21775e-03_rb, &\n        & 0.23221e-03_rb,0.23178e-03_rb,0.20518e-03_rb,0.38613e-04_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.16486e-06_rb,0.11291e-03_rb,0.17177e-03_rb,0.21060e-03_rb,0.23605e-03_rb, &\n        & 0.25023e-03_rb,0.24860e-03_rb,0.21840e-03_rb,0.42574e-04_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.15532e-06_rb,0.12160e-03_rb,0.18472e-03_rb,0.22613e-03_rb,0.25383e-03_rb, &\n        & 0.26813e-03_rb,0.26569e-03_rb,0.23149e-03_rb,0.46438e-04_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.14679e-06_rb,0.12871e-03_rb,0.19629e-03_rb,0.24117e-03_rb,0.27101e-03_rb, &\n        & 0.28546e-03_rb,0.28148e-03_rb,0.24511e-03_rb,0.50132e-04_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.13913e-06_rb,0.13470e-03_rb,0.20711e-03_rb,0.25583e-03_rb,0.28735e-03_rb, &\n        & 0.30171e-03_rb,0.29653e-03_rb,0.25931e-03_rb,0.53892e-04_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.14950e-06_rb,0.81941e-04_rb,0.12473e-03_rb,0.15363e-03_rb,0.17257e-03_rb, &\n        & 0.18409e-03_rb,0.18424e-03_rb,0.16439e-03_rb,0.30772e-04_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.13998e-06_rb,0.89702e-04_rb,0.13655e-03_rb,0.16763e-03_rb,0.18779e-03_rb, &\n        & 0.19919e-03_rb,0.19877e-03_rb,0.17581e-03_rb,0.34022e-04_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.13160e-06_rb,0.97263e-04_rb,0.14776e-03_rb,0.18089e-03_rb,0.20292e-03_rb, &\n        & 0.21451e-03_rb,0.21317e-03_rb,0.18640e-03_rb,0.37381e-04_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.12415e-06_rb,0.10389e-03_rb,0.15817e-03_rb,0.19404e-03_rb,0.21794e-03_rb, &\n        & 0.22980e-03_rb,0.22715e-03_rb,0.19784e-03_rb,0.40457e-04_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.11749e-06_rb,0.10934e-03_rb,0.16768e-03_rb,0.20680e-03_rb,0.23234e-03_rb, &\n        & 0.24414e-03_rb,0.24026e-03_rb,0.20959e-03_rb,0.43586e-04_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.12658e-06_rb,0.64763e-04_rb,0.98690e-04_rb,0.12170e-03_rb,0.13709e-03_rb, &\n        & 0.14644e-03_rb,0.14709e-03_rb,0.13215e-03_rb,0.24737e-04_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.11826e-06_rb,0.71405e-04_rb,0.10875e-03_rb,0.13368e-03_rb,0.14978e-03_rb, &\n        & 0.15901e-03_rb,0.15937e-03_rb,0.14153e-03_rb,0.27487e-04_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.11097e-06_rb,0.77857e-04_rb,0.11842e-03_rb,0.14510e-03_rb,0.16261e-03_rb, &\n        & 0.17204e-03_rb,0.17129e-03_rb,0.15041e-03_rb,0.30250e-04_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.10451e-06_rb,0.83764e-04_rb,0.12762e-03_rb,0.15625e-03_rb,0.17544e-03_rb, &\n        & 0.18516e-03_rb,0.18345e-03_rb,0.16010e-03_rb,0.32891e-04_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.98767e-07_rb,0.88833e-04_rb,0.13595e-03_rb,0.16723e-03_rb,0.18798e-03_rb, &\n        & 0.19766e-03_rb,0.19477e-03_rb,0.16979e-03_rb,0.35547e-04_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.10368e-06_rb,0.53714e-04_rb,0.81748e-04_rb,0.10085e-03_rb,0.11349e-03_rb, &\n        & 0.12126e-03_rb,0.12180e-03_rb,0.10950e-03_rb,0.20787e-04_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.96854e-07_rb,0.59175e-04_rb,0.90131e-04_rb,0.11085e-03_rb,0.12425e-03_rb, &\n        & 0.13166e-03_rb,0.13207e-03_rb,0.11733e-03_rb,0.23028e-04_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.90882e-07_rb,0.64593e-04_rb,0.98275e-04_rb,0.12041e-03_rb,0.13497e-03_rb, &\n        & 0.14273e-03_rb,0.14215e-03_rb,0.12479e-03_rb,0.25362e-04_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.85602e-07_rb,0.69545e-04_rb,0.10592e-03_rb,0.12982e-03_rb,0.14583e-03_rb, &\n        & 0.15388e-03_rb,0.15228e-03_rb,0.13297e-03_rb,0.27585e-04_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.80889e-07_rb,0.73731e-04_rb,0.11290e-03_rb,0.13914e-03_rb,0.15637e-03_rb, &\n        & 0.16431e-03_rb,0.16189e-03_rb,0.14116e-03_rb,0.29828e-04_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.84886e-07_rb,0.44418e-04_rb,0.67641e-04_rb,0.83490e-04_rb,0.93906e-04_rb, &\n        & 0.10034e-03_rb,0.10075e-03_rb,0.90614e-04_rb,0.17350e-04_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.79297e-07_rb,0.48981e-04_rb,0.74656e-04_rb,0.91821e-04_rb,0.10299e-03_rb, &\n        & 0.10891e-03_rb,0.10933e-03_rb,0.97221e-04_rb,0.19237e-04_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.74408e-07_rb,0.53553e-04_rb,0.81503e-04_rb,0.99872e-04_rb,0.11196e-03_rb, &\n        & 0.11832e-03_rb,0.11782e-03_rb,0.10341e-03_rb,0.21189e-04_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.70085e-07_rb,0.57698e-04_rb,0.87887e-04_rb,0.10781e-03_rb,0.12107e-03_rb, &\n        & 0.12775e-03_rb,0.12624e-03_rb,0.11034e-03_rb,0.23038e-04_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.66226e-07_rb,0.61177e-04_rb,0.93694e-04_rb,0.11567e-03_rb,0.12995e-03_rb, &\n        & 0.13645e-03_rb,0.13436e-03_rb,0.11726e-03_rb,0.24913e-04_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.69499e-07_rb,0.36716e-04_rb,0.55902e-04_rb,0.69067e-04_rb,0.77635e-04_rb, &\n        & 0.82934e-04_rb,0.83302e-04_rb,0.74905e-04_rb,0.14419e-04_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.64923e-07_rb,0.40511e-04_rb,0.61779e-04_rb,0.75984e-04_rb,0.85239e-04_rb, &\n        & 0.90090e-04_rb,0.90456e-04_rb,0.80264e-04_rb,0.15996e-04_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.60920e-07_rb,0.44356e-04_rb,0.67533e-04_rb,0.82746e-04_rb,0.92816e-04_rb, &\n        & 0.98017e-04_rb,0.97590e-04_rb,0.85621e-04_rb,0.17623e-04_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.57381e-07_rb,0.47826e-04_rb,0.72874e-04_rb,0.89443e-04_rb,0.10040e-03_rb, &\n        & 0.10588e-03_rb,0.10456e-03_rb,0.91429e-04_rb,0.19144e-04_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.54221e-07_rb,0.50750e-04_rb,0.77698e-04_rb,0.96005e-04_rb,0.10784e-03_rb, &\n        & 0.11318e-03_rb,0.11139e-03_rb,0.97258e-04_rb,0.20671e-04_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.36654e-05_rb,0.13689e-02_rb,0.21108e-02_rb,0.26314e-02_rb,0.29458e-02_rb, &\n        & 0.30831e-02_rb,0.30207e-02_rb,0.26003e-02_rb,0.93689e-03_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.35304e-05_rb,0.14025e-02_rb,0.21716e-02_rb,0.27078e-02_rb,0.30551e-02_rb, &\n        & 0.31948e-02_rb,0.31649e-02_rb,0.27258e-02_rb,0.97983e-03_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.34059e-05_rb,0.14340e-02_rb,0.22214e-02_rb,0.27773e-02_rb,0.31348e-02_rb, &\n        & 0.33049e-02_rb,0.32835e-02_rb,0.28461e-02_rb,0.10251e-02_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.32895e-05_rb,0.14610e-02_rb,0.22596e-02_rb,0.28314e-02_rb,0.32113e-02_rb, &\n        & 0.34131e-02_rb,0.33921e-02_rb,0.29508e-02_rb,0.10730e-02_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.31814e-05_rb,0.14814e-02_rb,0.22905e-02_rb,0.28789e-02_rb,0.32785e-02_rb, &\n        & 0.34996e-02_rb,0.34952e-02_rb,0.30528e-02_rb,0.11205e-02_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.30293e-05_rb,0.11600e-02_rb,0.17946e-02_rb,0.22370e-02_rb,0.25205e-02_rb, &\n        & 0.26432e-02_rb,0.26172e-02_rb,0.22691e-02_rb,0.78466e-03_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.29173e-05_rb,0.11916e-02_rb,0.18468e-02_rb,0.23072e-02_rb,0.26094e-02_rb, &\n        & 0.27477e-02_rb,0.27388e-02_rb,0.23809e-02_rb,0.82356e-03_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.28152e-05_rb,0.12203e-02_rb,0.18939e-02_rb,0.23691e-02_rb,0.26814e-02_rb, &\n        & 0.28506e-02_rb,0.28414e-02_rb,0.24825e-02_rb,0.86161e-03_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.27207e-05_rb,0.12454e-02_rb,0.19291e-02_rb,0.24180e-02_rb,0.27489e-02_rb, &\n        & 0.29380e-02_rb,0.29345e-02_rb,0.25808e-02_rb,0.90328e-03_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.26316e-05_rb,0.12644e-02_rb,0.19586e-02_rb,0.24624e-02_rb,0.28146e-02_rb, &\n        & 0.30125e-02_rb,0.30237e-02_rb,0.26695e-02_rb,0.94678e-03_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.25288e-05_rb,0.97348e-03_rb,0.15070e-02_rb,0.18795e-02_rb,0.21206e-02_rb, &\n        & 0.22362e-02_rb,0.22210e-02_rb,0.19369e-02_rb,0.64308e-03_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.24353e-05_rb,0.10031e-02_rb,0.15552e-02_rb,0.19441e-02_rb,0.22013e-02_rb, &\n        & 0.23257e-02_rb,0.23286e-02_rb,0.20362e-02_rb,0.67529e-03_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.23495e-05_rb,0.10295e-02_rb,0.15986e-02_rb,0.20019e-02_rb,0.22663e-02_rb, &\n        & 0.24160e-02_rb,0.24204e-02_rb,0.21276e-02_rb,0.70991e-03_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.22699e-05_rb,0.10533e-02_rb,0.16337e-02_rb,0.20489e-02_rb,0.23288e-02_rb, &\n        & 0.24911e-02_rb,0.25016e-02_rb,0.22148e-02_rb,0.74635e-03_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.21951e-05_rb,0.10724e-02_rb,0.16625e-02_rb,0.20891e-02_rb,0.23896e-02_rb, &\n        & 0.25582e-02_rb,0.25812e-02_rb,0.22925e-02_rb,0.78432e-03_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.21169e-05_rb,0.81053e-03_rb,0.12568e-02_rb,0.15647e-02_rb,0.17654e-02_rb, &\n        & 0.18662e-02_rb,0.18568e-02_rb,0.16269e-02_rb,0.52608e-03_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.20407e-05_rb,0.83875e-03_rb,0.13019e-02_rb,0.16252e-02_rb,0.18383e-02_rb, &\n        & 0.19441e-02_rb,0.19538e-02_rb,0.17139e-02_rb,0.55325e-03_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.19674e-05_rb,0.86329e-03_rb,0.13417e-02_rb,0.16788e-02_rb,0.18985e-02_rb, &\n        & 0.20246e-02_rb,0.20315e-02_rb,0.17978e-02_rb,0.58253e-03_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.18994e-05_rb,0.88551e-03_rb,0.13753e-02_rb,0.17238e-02_rb,0.19566e-02_rb, &\n        & 0.20923e-02_rb,0.21035e-02_rb,0.18724e-02_rb,0.61438e-03_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.18358e-05_rb,0.90442e-03_rb,0.14042e-02_rb,0.17619e-02_rb,0.20119e-02_rb, &\n        & 0.21542e-02_rb,0.21749e-02_rb,0.19425e-02_rb,0.64762e-03_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.17725e-05_rb,0.67146e-03_rb,0.10396e-02_rb,0.12935e-02_rb,0.14576e-02_rb, &\n        & 0.15437e-02_rb,0.15341e-02_rb,0.13532e-02_rb,0.42981e-03_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.17095e-05_rb,0.69774e-03_rb,0.10823e-02_rb,0.13477e-02_rb,0.15227e-02_rb, &\n        & 0.16117e-02_rb,0.16222e-02_rb,0.14302e-02_rb,0.45286e-03_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.16478e-05_rb,0.72044e-03_rb,0.11190e-02_rb,0.13967e-02_rb,0.15783e-02_rb, &\n        & 0.16817e-02_rb,0.16897e-02_rb,0.15040e-02_rb,0.47782e-03_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.15896e-05_rb,0.74136e-03_rb,0.11512e-02_rb,0.14394e-02_rb,0.16307e-02_rb, &\n        & 0.17435e-02_rb,0.17536e-02_rb,0.15687e-02_rb,0.50468e-03_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.15353e-05_rb,0.75977e-03_rb,0.11790e-02_rb,0.14755e-02_rb,0.16811e-02_rb, &\n        & 0.17990e-02_rb,0.18175e-02_rb,0.16279e-02_rb,0.53353e-03_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.14856e-05_rb,0.55163e-03_rb,0.85182e-03_rb,0.10583e-02_rb,0.11933e-02_rb, &\n        & 0.12633e-02_rb,0.12519e-02_rb,0.11126e-02_rb,0.34969e-03_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.14323e-05_rb,0.57534e-03_rb,0.89211e-03_rb,0.11084e-02_rb,0.12510e-02_rb, &\n        & 0.13248e-02_rb,0.13302e-02_rb,0.11815e-02_rb,0.36893e-03_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.13818e-05_rb,0.59705e-03_rb,0.92552e-03_rb,0.11530e-02_rb,0.13018e-02_rb, &\n        & 0.13860e-02_rb,0.13942e-02_rb,0.12437e-02_rb,0.38991e-03_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.13317e-05_rb,0.61671e-03_rb,0.95568e-03_rb,0.11922e-02_rb,0.13481e-02_rb, &\n        & 0.14426e-02_rb,0.14508e-02_rb,0.13001e-02_rb,0.41248e-03_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.12851e-05_rb,0.63414e-03_rb,0.98227e-03_rb,0.12265e-02_rb,0.13936e-02_rb, &\n        & 0.14913e-02_rb,0.15064e-02_rb,0.13512e-02_rb,0.43696e-03_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.12453e-05_rb,0.44982e-03_rb,0.69286e-03_rb,0.85857e-03_rb,0.97115e-03_rb, &\n        & 0.10268e-02_rb,0.10132e-02_rb,0.90661e-03_rb,0.28333e-03_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.11997e-05_rb,0.47163e-03_rb,0.72984e-03_rb,0.90525e-03_rb,0.10209e-02_rb, &\n        & 0.10830e-02_rb,0.10815e-02_rb,0.96820e-03_rb,0.29991e-03_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.11571e-05_rb,0.49170e-03_rb,0.76064e-03_rb,0.94597e-03_rb,0.10683e-02_rb, &\n        & 0.11337e-02_rb,0.11418e-02_rb,0.10210e-02_rb,0.31738e-03_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.11157e-05_rb,0.50964e-03_rb,0.78859e-03_rb,0.98236e-03_rb,0.11088e-02_rb, &\n        & 0.11859e-02_rb,0.11920e-02_rb,0.10690e-02_rb,0.33600e-03_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.10757e-05_rb,0.52578e-03_rb,0.81330e-03_rb,0.10141e-02_rb,0.11493e-02_rb, &\n        & 0.12285e-02_rb,0.12399e-02_rb,0.11151e-02_rb,0.35631e-03_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.10436e-05_rb,0.36475e-03_rb,0.55948e-03_rb,0.69399e-03_rb,0.78699e-03_rb, &\n        & 0.82733e-03_rb,0.81546e-03_rb,0.73443e-03_rb,0.22874e-03_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.10043e-05_rb,0.38461e-03_rb,0.59365e-03_rb,0.73631e-03_rb,0.82902e-03_rb, &\n        & 0.87996e-03_rb,0.87589e-03_rb,0.78745e-03_rb,0.24281e-03_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.96785e-06_rb,0.40227e-03_rb,0.62191e-03_rb,0.77183e-03_rb,0.87067e-03_rb, &\n        & 0.92338e-03_rb,0.93116e-03_rb,0.83334e-03_rb,0.25735e-03_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.93367e-06_rb,0.41881e-03_rb,0.64697e-03_rb,0.80474e-03_rb,0.90754e-03_rb, &\n        & 0.96806e-03_rb,0.97434e-03_rb,0.87439e-03_rb,0.27286e-03_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.90017e-06_rb,0.43377e-03_rb,0.67026e-03_rb,0.83398e-03_rb,0.94269e-03_rb, &\n        & 0.10080e-02_rb,0.10154e-02_rb,0.91479e-03_rb,0.28948e-03_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.87469e-06_rb,0.29345e-03_rb,0.44857e-03_rb,0.55653e-03_rb,0.63371e-03_rb, &\n        & 0.66253e-03_rb,0.65229e-03_rb,0.59009e-03_rb,0.18475e-03_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.84062e-06_rb,0.31152e-03_rb,0.47975e-03_rb,0.59422e-03_rb,0.67077e-03_rb, &\n        & 0.71168e-03_rb,0.70550e-03_rb,0.63674e-03_rb,0.19669e-03_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.80947e-06_rb,0.32779e-03_rb,0.50582e-03_rb,0.62707e-03_rb,0.70705e-03_rb, &\n        & 0.74936e-03_rb,0.75252e-03_rb,0.67682e-03_rb,0.20896e-03_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.78052e-06_rb,0.34262e-03_rb,0.52820e-03_rb,0.65631e-03_rb,0.74002e-03_rb, &\n        & 0.78731e-03_rb,0.79257e-03_rb,0.71155e-03_rb,0.22197e-03_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.75300e-06_rb,0.35618e-03_rb,0.54940e-03_rb,0.68236e-03_rb,0.76978e-03_rb, &\n        & 0.82271e-03_rb,0.82806e-03_rb,0.74658e-03_rb,0.23588e-03_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.73080e-06_rb,0.23619e-03_rb,0.36002e-03_rb,0.44769e-03_rb,0.51001e-03_rb, &\n        & 0.53294e-03_rb,0.52319e-03_rb,0.47492e-03_rb,0.15005e-03_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.70142e-06_rb,0.25225e-03_rb,0.38742e-03_rb,0.48039e-03_rb,0.54285e-03_rb, &\n        & 0.57407e-03_rb,0.56765e-03_rb,0.51444e-03_rb,0.16000e-03_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.67484e-06_rb,0.26687e-03_rb,0.41119e-03_rb,0.50924e-03_rb,0.57372e-03_rb, &\n        & 0.60912e-03_rb,0.60813e-03_rb,0.54945e-03_rb,0.17036e-03_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.65032e-06_rb,0.28002e-03_rb,0.43104e-03_rb,0.53513e-03_rb,0.60294e-03_rb, &\n        & 0.63998e-03_rb,0.64485e-03_rb,0.57888e-03_rb,0.18120e-03_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.62752e-06_rb,0.29182e-03_rb,0.44950e-03_rb,0.55836e-03_rb,0.62849e-03_rb, &\n        & 0.67148e-03_rb,0.67570e-03_rb,0.60918e-03_rb,0.19271e-03_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.59846e-06_rb,0.19603e-03_rb,0.29902e-03_rb,0.37159e-03_rb,0.42367e-03_rb, &\n        & 0.44241e-03_rb,0.43550e-03_rb,0.39618e-03_rb,0.12498e-03_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.57447e-06_rb,0.20953e-03_rb,0.32187e-03_rb,0.39882e-03_rb,0.45021e-03_rb, &\n        & 0.47717e-03_rb,0.47240e-03_rb,0.42894e-03_rb,0.13362e-03_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.55265e-06_rb,0.22185e-03_rb,0.34133e-03_rb,0.42283e-03_rb,0.47616e-03_rb, &\n        & 0.50481e-03_rb,0.50553e-03_rb,0.45654e-03_rb,0.14246e-03_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.53259e-06_rb,0.23301e-03_rb,0.35816e-03_rb,0.44448e-03_rb,0.50048e-03_rb, &\n        & 0.53147e-03_rb,0.53574e-03_rb,0.48169e-03_rb,0.15168e-03_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.51379e-06_rb,0.24302e-03_rb,0.37383e-03_rb,0.46352e-03_rb,0.52203e-03_rb, &\n        & 0.55783e-03_rb,0.56175e-03_rb,0.50737e-03_rb,0.16153e-03_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.49006e-06_rb,0.16259e-03_rb,0.24802e-03_rb,0.30804e-03_rb,0.35111e-03_rb, &\n        & 0.36672e-03_rb,0.36166e-03_rb,0.32968e-03_rb,0.10401e-03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.47033e-06_rb,0.17379e-03_rb,0.26697e-03_rb,0.33069e-03_rb,0.37292e-03_rb, &\n        & 0.39587e-03_rb,0.39239e-03_rb,0.35672e-03_rb,0.11138e-03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.45247e-06_rb,0.18417e-03_rb,0.28295e-03_rb,0.35045e-03_rb,0.39465e-03_rb, &\n        & 0.41825e-03_rb,0.41984e-03_rb,0.37867e-03_rb,0.11882e-03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.43605e-06_rb,0.19351e-03_rb,0.29716e-03_rb,0.36850e-03_rb,0.41489e-03_rb, &\n        & 0.44074e-03_rb,0.44460e-03_rb,0.40031e-03_rb,0.12667e-03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.42066e-06_rb,0.20206e-03_rb,0.31038e-03_rb,0.38464e-03_rb,0.43337e-03_rb, &\n        & 0.46297e-03_rb,0.46667e-03_rb,0.42202e-03_rb,0.13498e-03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.40122e-06_rb,0.13465e-03_rb,0.20541e-03_rb,0.25488e-03_rb,0.29006e-03_rb, &\n        & 0.30358e-03_rb,0.29984e-03_rb,0.27375e-03_rb,0.86406e-04_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.38502e-06_rb,0.14398e-03_rb,0.22086e-03_rb,0.27376e-03_rb,0.30832e-03_rb, &\n        & 0.32794e-03_rb,0.32517e-03_rb,0.29562e-03_rb,0.92614e-04_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.37045e-06_rb,0.15266e-03_rb,0.23416e-03_rb,0.29013e-03_rb,0.32675e-03_rb, &\n        & 0.34622e-03_rb,0.34816e-03_rb,0.31401e-03_rb,0.98880e-04_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.35702e-06_rb,0.16050e-03_rb,0.24608e-03_rb,0.30521e-03_rb,0.34336e-03_rb, &\n        & 0.36522e-03_rb,0.36857e-03_rb,0.33246e-03_rb,0.10559e-03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.34440e-06_rb,0.16771e-03_rb,0.25742e-03_rb,0.31904e-03_rb,0.35943e-03_rb, &\n        & 0.38405e-03_rb,0.38715e-03_rb,0.35087e-03_rb,0.11262e-03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.15583e-03_rb,0.37546e-02_rb,0.53536e-02_rb,0.64161e-02_rb,0.71223e-02_rb, &\n        & 0.74982e-02_rb,0.73596e-02_rb,0.65135e-02_rb,0.35175e-02_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.16148e-03_rb,0.38569e-02_rb,0.55256e-02_rb,0.66461e-02_rb,0.73757e-02_rb, &\n        & 0.77530e-02_rb,0.75665e-02_rb,0.66496e-02_rb,0.36840e-02_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.16484e-03_rb,0.39353e-02_rb,0.56745e-02_rb,0.68364e-02_rb,0.76166e-02_rb, &\n        & 0.79711e-02_rb,0.77717e-02_rb,0.67846e-02_rb,0.38485e-02_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.16621e-03_rb,0.39946e-02_rb,0.57947e-02_rb,0.70071e-02_rb,0.78193e-02_rb, &\n        & 0.81581e-02_rb,0.79592e-02_rb,0.69132e-02_rb,0.39769e-02_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.16518e-03_rb,0.40386e-02_rb,0.58925e-02_rb,0.71530e-02_rb,0.79946e-02_rb, &\n        & 0.83258e-02_rb,0.81107e-02_rb,0.70226e-02_rb,0.41134e-02_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.12482e-03_rb,0.32204e-02_rb,0.46102e-02_rb,0.55475e-02_rb,0.61730e-02_rb, &\n        & 0.65000e-02_rb,0.63942e-02_rb,0.56394e-02_rb,0.30002e-02_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.13027e-03_rb,0.33099e-02_rb,0.47617e-02_rb,0.57497e-02_rb,0.64031e-02_rb, &\n        & 0.67184e-02_rb,0.65829e-02_rb,0.57721e-02_rb,0.31442e-02_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.13370e-03_rb,0.33808e-02_rb,0.48845e-02_rb,0.59235e-02_rb,0.66074e-02_rb, &\n        & 0.69048e-02_rb,0.67660e-02_rb,0.59018e-02_rb,0.32788e-02_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.13549e-03_rb,0.34340e-02_rb,0.49885e-02_rb,0.60745e-02_rb,0.67877e-02_rb, &\n        & 0.70780e-02_rb,0.69202e-02_rb,0.60131e-02_rb,0.33946e-02_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.13543e-03_rb,0.34778e-02_rb,0.50745e-02_rb,0.61981e-02_rb,0.69282e-02_rb, &\n        & 0.72229e-02_rb,0.70521e-02_rb,0.61218e-02_rb,0.35097e-02_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.98437e-04_rb,0.27209e-02_rb,0.39035e-02_rb,0.47185e-02_rb,0.52706e-02_rb, &\n        & 0.55579e-02_rb,0.54846e-02_rb,0.48469e-02_rb,0.25077e-02_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.10396e-03_rb,0.28031e-02_rb,0.40384e-02_rb,0.48993e-02_rb,0.54753e-02_rb, &\n        & 0.57575e-02_rb,0.56525e-02_rb,0.49684e-02_rb,0.26366e-02_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.10770e-03_rb,0.28702e-02_rb,0.41513e-02_rb,0.50504e-02_rb,0.56640e-02_rb, &\n        & 0.59245e-02_rb,0.58125e-02_rb,0.50922e-02_rb,0.27478e-02_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.10996e-03_rb,0.29232e-02_rb,0.42451e-02_rb,0.51838e-02_rb,0.58257e-02_rb, &\n        & 0.60793e-02_rb,0.59498e-02_rb,0.51949e-02_rb,0.28490e-02_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.11088e-03_rb,0.29645e-02_rb,0.43251e-02_rb,0.52992e-02_rb,0.59468e-02_rb, &\n        & 0.62096e-02_rb,0.60648e-02_rb,0.52904e-02_rb,0.29495e-02_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.76587e-04_rb,0.22792e-02_rb,0.32731e-02_rb,0.39724e-02_rb,0.44561e-02_rb, &\n        & 0.47109e-02_rb,0.46706e-02_rb,0.41444e-02_rb,0.20810e-02_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.82225e-04_rb,0.23548e-02_rb,0.33943e-02_rb,0.41325e-02_rb,0.46415e-02_rb, &\n        & 0.48939e-02_rb,0.48200e-02_rb,0.42591e-02_rb,0.21925e-02_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.86203e-04_rb,0.24180e-02_rb,0.34991e-02_rb,0.42684e-02_rb,0.48074e-02_rb, &\n        & 0.50416e-02_rb,0.49651e-02_rb,0.43643e-02_rb,0.22938e-02_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.88766e-04_rb,0.24694e-02_rb,0.35874e-02_rb,0.43875e-02_rb,0.49469e-02_rb, &\n        & 0.51810e-02_rb,0.50850e-02_rb,0.44606e-02_rb,0.23791e-02_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.90218e-04_rb,0.25110e-02_rb,0.36613e-02_rb,0.44937e-02_rb,0.50548e-02_rb, &\n        & 0.52982e-02_rb,0.51883e-02_rb,0.45498e-02_rb,0.24658e-02_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.59080e-04_rb,0.18972e-02_rb,0.27294e-02_rb,0.33195e-02_rb,0.37395e-02_rb, &\n        & 0.39683e-02_rb,0.39523e-02_rb,0.35161e-02_rb,0.17195e-02_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.64508e-04_rb,0.19673e-02_rb,0.28376e-02_rb,0.34632e-02_rb,0.39033e-02_rb, &\n        & 0.41343e-02_rb,0.40826e-02_rb,0.36195e-02_rb,0.18173e-02_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.68538e-04_rb,0.20264e-02_rb,0.29342e-02_rb,0.35856e-02_rb,0.40488e-02_rb, &\n        & 0.42664e-02_rb,0.42141e-02_rb,0.37144e-02_rb,0.19081e-02_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.71328e-04_rb,0.20750e-02_rb,0.30165e-02_rb,0.36933e-02_rb,0.41719e-02_rb, &\n        & 0.43880e-02_rb,0.43221e-02_rb,0.38006e-02_rb,0.19818e-02_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.73073e-04_rb,0.21155e-02_rb,0.30861e-02_rb,0.37892e-02_rb,0.42690e-02_rb, &\n        & 0.44901e-02_rb,0.44161e-02_rb,0.38864e-02_rb,0.20583e-02_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.45069e-04_rb,0.15673e-02_rb,0.22596e-02_rb,0.27566e-02_rb,0.31117e-02_rb, &\n        & 0.33162e-02_rb,0.33135e-02_rb,0.29574e-02_rb,0.14089e-02_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.49959e-04_rb,0.16342e-02_rb,0.23577e-02_rb,0.28828e-02_rb,0.32572e-02_rb, &\n        & 0.34626e-02_rb,0.34302e-02_rb,0.30476e-02_rb,0.14955e-02_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.54013e-04_rb,0.16891e-02_rb,0.24457e-02_rb,0.29926e-02_rb,0.33865e-02_rb, &\n        & 0.35809e-02_rb,0.35427e-02_rb,0.31358e-02_rb,0.15763e-02_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.56910e-04_rb,0.17356e-02_rb,0.25220e-02_rb,0.30903e-02_rb,0.34968e-02_rb, &\n        & 0.36853e-02_rb,0.36443e-02_rb,0.32140e-02_rb,0.16428e-02_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.58852e-04_rb,0.17743e-02_rb,0.25868e-02_rb,0.31771e-02_rb,0.35857e-02_rb, &\n        & 0.37782e-02_rb,0.37284e-02_rb,0.32905e-02_rb,0.17079e-02_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.34131e-04_rb,0.12873e-02_rb,0.18619e-02_rb,0.22745e-02_rb,0.25688e-02_rb, &\n        & 0.27494e-02_rb,0.27574e-02_rb,0.24658e-02_rb,0.11444e-02_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.38379e-04_rb,0.13503e-02_rb,0.19490e-02_rb,0.23869e-02_rb,0.26985e-02_rb, &\n        & 0.28761e-02_rb,0.28607e-02_rb,0.25443e-02_rb,0.12242e-02_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.42146e-04_rb,0.14018e-02_rb,0.20287e-02_rb,0.24843e-02_rb,0.28119e-02_rb, &\n        & 0.29848e-02_rb,0.29569e-02_rb,0.26258e-02_rb,0.12956e-02_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.45116e-04_rb,0.14454e-02_rb,0.20989e-02_rb,0.25718e-02_rb,0.29115e-02_rb, &\n        & 0.30740e-02_rb,0.30482e-02_rb,0.26967e-02_rb,0.13537e-02_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.47178e-04_rb,0.14818e-02_rb,0.21591e-02_rb,0.26509e-02_rb,0.29945e-02_rb, &\n        & 0.31590e-02_rb,0.31235e-02_rb,0.27641e-02_rb,0.14100e-02_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.25656e-04_rb,0.10525e-02_rb,0.15266e-02_rb,0.18648e-02_rb,0.21060e-02_rb, &\n        & 0.22660e-02_rb,0.22807e-02_rb,0.20415e-02_rb,0.92482e-03_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.29313e-04_rb,0.11096e-02_rb,0.16027e-02_rb,0.19628e-02_rb,0.22224e-02_rb, &\n        & 0.23730e-02_rb,0.23683e-02_rb,0.21111e-02_rb,0.99366e-03_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.32643e-04_rb,0.11579e-02_rb,0.16732e-02_rb,0.20503e-02_rb,0.23231e-02_rb, &\n        & 0.24721e-02_rb,0.24512e-02_rb,0.21842e-02_rb,0.10570e-02_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.35509e-04_rb,0.11985e-02_rb,0.17379e-02_rb,0.21284e-02_rb,0.24110e-02_rb, &\n        & 0.25519e-02_rb,0.25339e-02_rb,0.22496e-02_rb,0.11116e-02_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.37616e-04_rb,0.12327e-02_rb,0.17933e-02_rb,0.21996e-02_rb,0.24880e-02_rb, &\n        & 0.26258e-02_rb,0.26029e-02_rb,0.23088e-02_rb,0.11595e-02_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.19166e-04_rb,0.85559e-03_rb,0.12446e-02_rb,0.15213e-02_rb,0.17160e-02_rb, &\n        & 0.18527e-02_rb,0.18723e-02_rb,0.16794e-02_rb,0.74316e-03_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.22251e-04_rb,0.90701e-03_rb,0.13107e-02_rb,0.16061e-02_rb,0.18177e-02_rb, &\n        & 0.19452e-02_rb,0.19496e-02_rb,0.17420e-02_rb,0.80168e-03_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.25123e-04_rb,0.95106e-03_rb,0.13724e-02_rb,0.16826e-02_rb,0.19064e-02_rb, &\n        & 0.20352e-02_rb,0.20241e-02_rb,0.18064e-02_rb,0.85659e-03_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.27713e-04_rb,0.98903e-03_rb,0.14301e-02_rb,0.17523e-02_rb,0.19862e-02_rb, &\n        & 0.21079e-02_rb,0.20944e-02_rb,0.18656e-02_rb,0.90655e-03_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.29821e-04_rb,0.10207e-02_rb,0.14813e-02_rb,0.18163e-02_rb,0.20570e-02_rb, &\n        & 0.21737e-02_rb,0.21574e-02_rb,0.19153e-02_rb,0.94882e-03_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.14455e-04_rb,0.69508e-03_rb,0.10143e-02_rb,0.12382e-02_rb,0.13977e-02_rb, &\n        & 0.15101e-02_rb,0.15339e-02_rb,0.13794e-02_rb,0.60064e-03_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.16975e-04_rb,0.74055e-03_rb,0.10715e-02_rb,0.13117e-02_rb,0.14851e-02_rb, &\n        & 0.15938e-02_rb,0.16026e-02_rb,0.14354e-02_rb,0.65034e-03_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.19421e-04_rb,0.77996e-03_rb,0.11243e-02_rb,0.13791e-02_rb,0.15636e-02_rb, &\n        & 0.16707e-02_rb,0.16678e-02_rb,0.14908e-02_rb,0.69875e-03_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.21659e-04_rb,0.81369e-03_rb,0.11746e-02_rb,0.14408e-02_rb,0.16340e-02_rb, &\n        & 0.17376e-02_rb,0.17267e-02_rb,0.15418e-02_rb,0.74336e-03_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.23616e-04_rb,0.84316e-03_rb,0.12215e-02_rb,0.14972e-02_rb,0.16971e-02_rb, &\n        & 0.17945e-02_rb,0.17834e-02_rb,0.15844e-02_rb,0.78045e-03_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.11812e-04_rb,0.58067e-03_rb,0.84658e-03_rb,0.10349e-02_rb,0.11681e-02_rb, &\n        & 0.12622e-02_rb,0.12806e-02_rb,0.11518e-02_rb,0.50197e-03_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.13870e-04_rb,0.61870e-03_rb,0.89364e-03_rb,0.10957e-02_rb,0.12411e-02_rb, &\n        & 0.13307e-02_rb,0.13366e-02_rb,0.11990e-02_rb,0.54419e-03_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.15872e-04_rb,0.65131e-03_rb,0.93843e-03_rb,0.11520e-02_rb,0.13068e-02_rb, &\n        & 0.13966e-02_rb,0.13927e-02_rb,0.12459e-02_rb,0.58412e-03_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.17706e-04_rb,0.67957e-03_rb,0.98128e-03_rb,0.12037e-02_rb,0.13653e-02_rb, &\n        & 0.14510e-02_rb,0.14423e-02_rb,0.12873e-02_rb,0.62086e-03_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.19307e-04_rb,0.70477e-03_rb,0.10208e-02_rb,0.12522e-02_rb,0.14187e-02_rb, &\n        & 0.15000e-02_rb,0.14882e-02_rb,0.13223e-02_rb,0.65273e-03_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.96633e-05_rb,0.48384e-03_rb,0.70464e-03_rb,0.86214e-03_rb,0.97325e-03_rb, &\n        & 0.10525e-02_rb,0.10661e-02_rb,0.95818e-03_rb,0.41838e-03_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.11346e-04_rb,0.51544e-03_rb,0.74375e-03_rb,0.91255e-03_rb,0.10346e-02_rb, &\n        & 0.11088e-02_rb,0.11124e-02_rb,0.99787e-03_rb,0.45436e-03_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.12983e-04_rb,0.54258e-03_rb,0.78191e-03_rb,0.95994e-03_rb,0.10893e-02_rb, &\n        & 0.11636e-02_rb,0.11595e-02_rb,0.10379e-02_rb,0.48767e-03_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.14483e-04_rb,0.56662e-03_rb,0.81795e-03_rb,0.10036e-02_rb,0.11385e-02_rb, &\n        & 0.12091e-02_rb,0.12012e-02_rb,0.10707e-02_rb,0.51810e-03_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.15790e-04_rb,0.58805e-03_rb,0.85165e-03_rb,0.10447e-02_rb,0.11830e-02_rb, &\n        & 0.12500e-02_rb,0.12389e-02_rb,0.11012e-02_rb,0.54508e-03_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.79057e-05_rb,0.40215e-03_rb,0.58516e-03_rb,0.71666e-03_rb,0.80969e-03_rb, &\n        & 0.87518e-03_rb,0.88581e-03_rb,0.79569e-03_rb,0.34825e-03_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.92808e-05_rb,0.42853e-03_rb,0.61818e-03_rb,0.75847e-03_rb,0.86082e-03_rb, &\n        & 0.92160e-03_rb,0.92436e-03_rb,0.82894e-03_rb,0.37871e-03_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.10621e-04_rb,0.45134e-03_rb,0.65028e-03_rb,0.79815e-03_rb,0.90622e-03_rb, &\n        & 0.96752e-03_rb,0.96291e-03_rb,0.86177e-03_rb,0.40642e-03_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.11849e-04_rb,0.47161e-03_rb,0.68090e-03_rb,0.83530e-03_rb,0.94770e-03_rb, &\n        & 0.10054e-02_rb,0.99815e-03_rb,0.88908e-03_rb,0.43149e-03_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.12897e-04_rb,0.49000e-03_rb,0.70944e-03_rb,0.86982e-03_rb,0.98430e-03_rb, &\n        & 0.10398e-02_rb,0.10297e-02_rb,0.91483e-03_rb,0.45459e-03_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.23575e-02_rb,0.96457e-02_rb,0.13128e-01_rb,0.15361e-01_rb,0.16662e-01_rb, &\n        & 0.16999e-01_rb,0.16303e-01_rb,0.14368e-01_rb,0.10185e-01_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.24508e-02_rb,0.99768e-02_rb,0.13562e-01_rb,0.15786e-01_rb,0.17046e-01_rb, &\n        & 0.17316e-01_rb,0.16539e-01_rb,0.14627e-01_rb,0.10447e-01_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.25176e-02_rb,0.10262e-01_rb,0.13947e-01_rb,0.16182e-01_rb,0.17390e-01_rb, &\n        & 0.17588e-01_rb,0.16752e-01_rb,0.14857e-01_rb,0.10699e-01_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.25627e-02_rb,0.10510e-01_rb,0.14271e-01_rb,0.16517e-01_rb,0.17678e-01_rb, &\n        & 0.17815e-01_rb,0.16941e-01_rb,0.15073e-01_rb,0.10970e-01_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.25904e-02_rb,0.10712e-01_rb,0.14528e-01_rb,0.16788e-01_rb,0.17912e-01_rb, &\n        & 0.18013e-01_rb,0.17126e-01_rb,0.15282e-01_rb,0.11215e-01_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.19422e-02_rb,0.85179e-02_rb,0.11603e-01_rb,0.13561e-01_rb,0.14694e-01_rb, &\n        & 0.14952e-01_rb,0.14274e-01_rb,0.12616e-01_rb,0.86910e-02_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.20231e-02_rb,0.88208e-02_rb,0.11992e-01_rb,0.13942e-01_rb,0.15043e-01_rb, &\n        & 0.15241e-01_rb,0.14503e-01_rb,0.12849e-01_rb,0.89203e-02_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.20824e-02_rb,0.90892e-02_rb,0.12333e-01_rb,0.14283e-01_rb,0.15343e-01_rb, &\n        & 0.15493e-01_rb,0.14704e-01_rb,0.13065e-01_rb,0.91412e-02_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.21235e-02_rb,0.93193e-02_rb,0.12613e-01_rb,0.14573e-01_rb,0.15586e-01_rb, &\n        & 0.15696e-01_rb,0.14900e-01_rb,0.13269e-01_rb,0.93731e-02_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.21501e-02_rb,0.95064e-02_rb,0.12844e-01_rb,0.14802e-01_rb,0.15789e-01_rb, &\n        & 0.15872e-01_rb,0.15079e-01_rb,0.13459e-01_rb,0.95922e-02_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.15710e-02_rb,0.73739e-02_rb,0.10084e-01_rb,0.11795e-01_rb,0.12791e-01_rb, &\n        & 0.13002e-01_rb,0.12408e-01_rb,0.10948e-01_rb,0.73256e-02_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.16445e-02_rb,0.76603e-02_rb,0.10441e-01_rb,0.12136e-01_rb,0.13098e-01_rb, &\n        & 0.13272e-01_rb,0.12629e-01_rb,0.11169e-01_rb,0.75277e-02_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.17016e-02_rb,0.79120e-02_rb,0.10738e-01_rb,0.12444e-01_rb,0.13365e-01_rb, &\n        & 0.13502e-01_rb,0.12827e-01_rb,0.11365e-01_rb,0.77275e-02_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.17419e-02_rb,0.81204e-02_rb,0.10992e-01_rb,0.12704e-01_rb,0.13579e-01_rb, &\n        & 0.13687e-01_rb,0.13022e-01_rb,0.11565e-01_rb,0.79327e-02_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.17693e-02_rb,0.82896e-02_rb,0.11201e-01_rb,0.12903e-01_rb,0.13761e-01_rb, &\n        & 0.13854e-01_rb,0.13193e-01_rb,0.11760e-01_rb,0.81324e-02_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.12568e-02_rb,0.62925e-02_rb,0.86570e-02_rb,0.10156e-01_rb,0.11020e-01_rb, &\n        & 0.11220e-01_rb,0.10710e-01_rb,0.94329e-02_rb,0.61812e-02_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.13242e-02_rb,0.65532e-02_rb,0.89756e-02_rb,0.10460e-01_rb,0.11292e-01_rb, &\n        & 0.11463e-01_rb,0.10924e-01_rb,0.96449e-02_rb,0.63620e-02_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.13782e-02_rb,0.67807e-02_rb,0.92447e-02_rb,0.10739e-01_rb,0.11531e-01_rb, &\n        & 0.11676e-01_rb,0.11115e-01_rb,0.98384e-02_rb,0.65417e-02_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.14185e-02_rb,0.69728e-02_rb,0.94724e-02_rb,0.10967e-01_rb,0.11732e-01_rb, &\n        & 0.11853e-01_rb,0.11299e-01_rb,0.10029e-01_rb,0.67314e-02_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.14466e-02_rb,0.71294e-02_rb,0.96551e-02_rb,0.11150e-01_rb,0.11897e-01_rb, &\n        & 0.12003e-01_rb,0.11457e-01_rb,0.10212e-01_rb,0.69134e-02_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.99815e-03_rb,0.53184e-02_rb,0.73668e-02_rb,0.86661e-02_rb,0.94189e-02_rb, &\n        & 0.96088e-02_rb,0.91860e-02_rb,0.80854e-02_rb,0.52147e-02_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.10594e-02_rb,0.55502e-02_rb,0.76480e-02_rb,0.89382e-02_rb,0.96675e-02_rb, &\n        & 0.98281e-02_rb,0.93908e-02_rb,0.82904e-02_rb,0.53805e-02_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.11093e-02_rb,0.57534e-02_rb,0.78820e-02_rb,0.91873e-02_rb,0.98860e-02_rb, &\n        & 0.10027e-01_rb,0.95739e-02_rb,0.84774e-02_rb,0.55398e-02_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.11487e-02_rb,0.59264e-02_rb,0.80746e-02_rb,0.93952e-02_rb,0.10070e-01_rb, &\n        & 0.10196e-01_rb,0.97460e-02_rb,0.86586e-02_rb,0.57118e-02_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.11770e-02_rb,0.60715e-02_rb,0.82322e-02_rb,0.95590e-02_rb,0.10225e-01_rb, &\n        & 0.10337e-01_rb,0.98891e-02_rb,0.88282e-02_rb,0.58756e-02_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.78484e-03_rb,0.44557e-02_rb,0.62088e-02_rb,0.73238e-02_rb,0.79758e-02_rb, &\n        & 0.81565e-02_rb,0.78234e-02_rb,0.68949e-02_rb,0.43721e-02_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.84104e-03_rb,0.46584e-02_rb,0.64548e-02_rb,0.75720e-02_rb,0.82049e-02_rb, &\n        & 0.83603e-02_rb,0.80139e-02_rb,0.70912e-02_rb,0.45208e-02_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.88703e-03_rb,0.48386e-02_rb,0.66585e-02_rb,0.77939e-02_rb,0.84077e-02_rb, &\n        & 0.85494e-02_rb,0.81878e-02_rb,0.72673e-02_rb,0.46664e-02_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.92429e-03_rb,0.49939e-02_rb,0.68255e-02_rb,0.79793e-02_rb,0.85811e-02_rb, &\n        & 0.87123e-02_rb,0.83423e-02_rb,0.74324e-02_rb,0.48193e-02_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.95287e-03_rb,0.51269e-02_rb,0.69664e-02_rb,0.81216e-02_rb,0.87256e-02_rb, &\n        & 0.88404e-02_rb,0.84793e-02_rb,0.75885e-02_rb,0.49684e-02_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.61176e-03_rb,0.37105e-02_rb,0.51921e-02_rb,0.61495e-02_rb,0.67086e-02_rb, &\n        & 0.68737e-02_rb,0.66196e-02_rb,0.58499e-02_rb,0.36398e-02_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.66355e-03_rb,0.38845e-02_rb,0.54092e-02_rb,0.63684e-02_rb,0.69191e-02_rb, &\n        & 0.70638e-02_rb,0.67967e-02_rb,0.60329e-02_rb,0.37725e-02_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.70584e-03_rb,0.40429e-02_rb,0.55891e-02_rb,0.65665e-02_rb,0.71061e-02_rb, &\n        & 0.72392e-02_rb,0.69566e-02_rb,0.61958e-02_rb,0.39040e-02_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.74016e-03_rb,0.41804e-02_rb,0.57362e-02_rb,0.67306e-02_rb,0.72656e-02_rb, &\n        & 0.73939e-02_rb,0.71002e-02_rb,0.63458e-02_rb,0.40422e-02_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.76793e-03_rb,0.43013e-02_rb,0.58634e-02_rb,0.68605e-02_rb,0.73917e-02_rb, &\n        & 0.75160e-02_rb,0.72292e-02_rb,0.64867e-02_rb,0.41753e-02_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.47383e-03_rb,0.30719e-02_rb,0.43157e-02_rb,0.51299e-02_rb,0.56113e-02_rb, &\n        & 0.57604e-02_rb,0.55584e-02_rb,0.49263e-02_rb,0.30099e-02_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.52030e-03_rb,0.32224e-02_rb,0.45088e-02_rb,0.53256e-02_rb,0.58049e-02_rb, &\n        & 0.59369e-02_rb,0.57249e-02_rb,0.50950e-02_rb,0.31335e-02_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.55897e-03_rb,0.33601e-02_rb,0.46690e-02_rb,0.55008e-02_rb,0.59733e-02_rb, &\n        & 0.60982e-02_rb,0.58703e-02_rb,0.52416e-02_rb,0.32505e-02_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.59051e-03_rb,0.34823e-02_rb,0.48003e-02_rb,0.56492e-02_rb,0.61147e-02_rb, &\n        & 0.62407e-02_rb,0.60011e-02_rb,0.53776e-02_rb,0.33691e-02_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.61638e-03_rb,0.35908e-02_rb,0.49151e-02_rb,0.57682e-02_rb,0.62269e-02_rb, &\n        & 0.63505e-02_rb,0.61226e-02_rb,0.55061e-02_rb,0.34893e-02_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.36452e-03_rb,0.25301e-02_rb,0.35655e-02_rb,0.42558e-02_rb,0.46668e-02_rb, &\n        & 0.47995e-02_rb,0.46391e-02_rb,0.41176e-02_rb,0.24723e-02_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.40521e-03_rb,0.26609e-02_rb,0.37368e-02_rb,0.44313e-02_rb,0.48422e-02_rb, &\n        & 0.49605e-02_rb,0.47876e-02_rb,0.42682e-02_rb,0.25854e-02_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.44042e-03_rb,0.27811e-02_rb,0.38822e-02_rb,0.45871e-02_rb,0.49951e-02_rb, &\n        & 0.51048e-02_rb,0.49189e-02_rb,0.43988e-02_rb,0.26922e-02_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.46934e-03_rb,0.28890e-02_rb,0.40015e-02_rb,0.47204e-02_rb,0.51195e-02_rb, &\n        & 0.52329e-02_rb,0.50398e-02_rb,0.45211e-02_rb,0.27947e-02_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.49296e-03_rb,0.29863e-02_rb,0.41052e-02_rb,0.48296e-02_rb,0.52212e-02_rb, &\n        & 0.53320e-02_rb,0.51516e-02_rb,0.46410e-02_rb,0.29014e-02_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.28141e-03_rb,0.20839e-02_rb,0.29434e-02_rb,0.35250e-02_rb,0.38705e-02_rb, &\n        & 0.39907e-02_rb,0.38574e-02_rb,0.34280e-02_rb,0.20276e-02_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.31642e-03_rb,0.21962e-02_rb,0.30947e-02_rb,0.36798e-02_rb,0.40279e-02_rb, &\n        & 0.41317e-02_rb,0.39905e-02_rb,0.35591e-02_rb,0.21304e-02_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.34743e-03_rb,0.23002e-02_rb,0.32251e-02_rb,0.38167e-02_rb,0.41632e-02_rb, &\n        & 0.42588e-02_rb,0.41077e-02_rb,0.36737e-02_rb,0.22246e-02_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.37337e-03_rb,0.23958e-02_rb,0.33326e-02_rb,0.39351e-02_rb,0.42727e-02_rb, &\n        & 0.43699e-02_rb,0.42167e-02_rb,0.37850e-02_rb,0.23171e-02_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.39464e-03_rb,0.24818e-02_rb,0.34245e-02_rb,0.40341e-02_rb,0.43635e-02_rb, &\n        & 0.44592e-02_rb,0.43133e-02_rb,0.38931e-02_rb,0.24123e-02_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.23046e-03_rb,0.17561e-02_rb,0.24821e-02_rb,0.29697e-02_rb,0.32603e-02_rb, &\n        & 0.33590e-02_rb,0.32465e-02_rb,0.28911e-02_rb,0.17000e-02_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.25900e-03_rb,0.18499e-02_rb,0.26079e-02_rb,0.30983e-02_rb,0.33914e-02_rb, &\n        & 0.34790e-02_rb,0.33598e-02_rb,0.30000e-02_rb,0.17879e-02_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.28431e-03_rb,0.19371e-02_rb,0.27154e-02_rb,0.32123e-02_rb,0.35009e-02_rb, &\n        & 0.35810e-02_rb,0.34582e-02_rb,0.30989e-02_rb,0.18709e-02_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.30554e-03_rb,0.20175e-02_rb,0.28047e-02_rb,0.33094e-02_rb,0.35897e-02_rb, &\n        & 0.36708e-02_rb,0.35500e-02_rb,0.31964e-02_rb,0.19524e-02_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.32290e-03_rb,0.20906e-02_rb,0.28827e-02_rb,0.33907e-02_rb,0.36638e-02_rb, &\n        & 0.37448e-02_rb,0.36322e-02_rb,0.32921e-02_rb,0.20342e-02_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.18873e-03_rb,0.14753e-02_rb,0.20859e-02_rb,0.24932e-02_rb,0.27362e-02_rb, &\n        & 0.28163e-02_rb,0.27231e-02_rb,0.24287e-02_rb,0.14226e-02_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.21206e-03_rb,0.15542e-02_rb,0.21905e-02_rb,0.25997e-02_rb,0.28436e-02_rb, &\n        & 0.29146e-02_rb,0.28182e-02_rb,0.25196e-02_rb,0.14964e-02_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.23271e-03_rb,0.16282e-02_rb,0.22789e-02_rb,0.26937e-02_rb,0.29320e-02_rb, &\n        & 0.29995e-02_rb,0.29004e-02_rb,0.26063e-02_rb,0.15684e-02_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.25005e-03_rb,0.16959e-02_rb,0.23539e-02_rb,0.27739e-02_rb,0.30052e-02_rb, &\n        & 0.30738e-02_rb,0.29781e-02_rb,0.26924e-02_rb,0.16388e-02_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.26424e-03_rb,0.17579e-02_rb,0.24198e-02_rb,0.28418e-02_rb,0.30688e-02_rb, &\n        & 0.31370e-02_rb,0.30478e-02_rb,0.27734e-02_rb,0.17090e-02_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.15451e-03_rb,0.12362e-02_rb,0.17471e-02_rb,0.20856e-02_rb,0.22870e-02_rb, &\n        & 0.23530e-02_rb,0.22758e-02_rb,0.20318e-02_rb,0.11868e-02_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.17357e-03_rb,0.13027e-02_rb,0.18337e-02_rb,0.21736e-02_rb,0.23752e-02_rb, &\n        & 0.24339e-02_rb,0.23549e-02_rb,0.21104e-02_rb,0.12492e-02_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.19045e-03_rb,0.13651e-02_rb,0.19071e-02_rb,0.22520e-02_rb,0.24479e-02_rb, &\n        & 0.25052e-02_rb,0.24255e-02_rb,0.21862e-02_rb,0.13114e-02_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.20459e-03_rb,0.14225e-02_rb,0.19702e-02_rb,0.23195e-02_rb,0.25109e-02_rb, &\n        & 0.25680e-02_rb,0.24906e-02_rb,0.22592e-02_rb,0.13717e-02_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.21621e-03_rb,0.14751e-02_rb,0.20267e-02_rb,0.23775e-02_rb,0.25654e-02_rb, &\n        & 0.26221e-02_rb,0.25513e-02_rb,0.23283e-02_rb,0.14321e-02_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.14551e-01_rb,0.26282e-01_rb,0.32053e-01_rb,0.35189e-01_rb,0.36600e-01_rb, &\n        & 0.36646e-01_rb,0.35552e-01_rb,0.33215e-01_rb,0.27309e-01_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.15360e-01_rb,0.26847e-01_rb,0.32411e-01_rb,0.35426e-01_rb,0.36803e-01_rb, &\n        & 0.36994e-01_rb,0.36037e-01_rb,0.33674e-01_rb,0.27881e-01_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.16052e-01_rb,0.27358e-01_rb,0.32711e-01_rb,0.35602e-01_rb,0.37002e-01_rb, &\n        & 0.37322e-01_rb,0.36495e-01_rb,0.34092e-01_rb,0.28365e-01_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.16634e-01_rb,0.27765e-01_rb,0.32975e-01_rb,0.35757e-01_rb,0.37198e-01_rb, &\n        & 0.37629e-01_rb,0.36871e-01_rb,0.34489e-01_rb,0.28817e-01_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.17092e-01_rb,0.28088e-01_rb,0.33173e-01_rb,0.35899e-01_rb,0.37369e-01_rb, &\n        & 0.37894e-01_rb,0.37206e-01_rb,0.34856e-01_rb,0.29236e-01_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.12675e-01_rb,0.23757e-01_rb,0.28827e-01_rb,0.31475e-01_rb,0.32647e-01_rb, &\n        & 0.32779e-01_rb,0.31874e-01_rb,0.29659e-01_rb,0.23735e-01_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.13363e-01_rb,0.24261e-01_rb,0.29165e-01_rb,0.31734e-01_rb,0.32905e-01_rb, &\n        & 0.33137e-01_rb,0.32357e-01_rb,0.30114e-01_rb,0.24241e-01_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.13952e-01_rb,0.24673e-01_rb,0.29458e-01_rb,0.31940e-01_rb,0.33167e-01_rb, &\n        & 0.33486e-01_rb,0.32794e-01_rb,0.30540e-01_rb,0.24704e-01_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.14440e-01_rb,0.25010e-01_rb,0.29692e-01_rb,0.32131e-01_rb,0.33402e-01_rb, &\n        & 0.33816e-01_rb,0.33185e-01_rb,0.30944e-01_rb,0.25123e-01_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.14810e-01_rb,0.25246e-01_rb,0.29865e-01_rb,0.32323e-01_rb,0.33624e-01_rb, &\n        & 0.34125e-01_rb,0.33530e-01_rb,0.31299e-01_rb,0.25501e-01_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.10764e-01_rb,0.21180e-01_rb,0.25645e-01_rb,0.27934e-01_rb,0.28891e-01_rb, &\n        & 0.28978e-01_rb,0.28215e-01_rb,0.26250e-01_rb,0.20340e-01_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.11371e-01_rb,0.21611e-01_rb,0.25976e-01_rb,0.28221e-01_rb,0.29204e-01_rb, &\n        & 0.29347e-01_rb,0.28689e-01_rb,0.26687e-01_rb,0.20803e-01_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.11882e-01_rb,0.21977e-01_rb,0.26258e-01_rb,0.28467e-01_rb,0.29498e-01_rb, &\n        & 0.29730e-01_rb,0.29113e-01_rb,0.27115e-01_rb,0.21241e-01_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.12302e-01_rb,0.22273e-01_rb,0.26477e-01_rb,0.28696e-01_rb,0.29766e-01_rb, &\n        & 0.30099e-01_rb,0.29507e-01_rb,0.27503e-01_rb,0.21620e-01_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.12624e-01_rb,0.22481e-01_rb,0.26631e-01_rb,0.28900e-01_rb,0.30032e-01_rb, &\n        & 0.30425e-01_rb,0.29859e-01_rb,0.27842e-01_rb,0.21966e-01_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.89860e-02_rb,0.18659e-01_rb,0.22605e-01_rb,0.24580e-01_rb,0.25383e-01_rb, &\n        & 0.25435e-01_rb,0.24761e-01_rb,0.23037e-01_rb,0.17414e-01_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.95207e-02_rb,0.19048e-01_rb,0.22924e-01_rb,0.24888e-01_rb,0.25739e-01_rb, &\n        & 0.25823e-01_rb,0.25200e-01_rb,0.23450e-01_rb,0.17847e-01_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.99723e-02_rb,0.19380e-01_rb,0.23182e-01_rb,0.25155e-01_rb,0.26061e-01_rb, &\n        & 0.26209e-01_rb,0.25611e-01_rb,0.23862e-01_rb,0.18251e-01_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.10354e-01_rb,0.19644e-01_rb,0.23397e-01_rb,0.25401e-01_rb,0.26345e-01_rb, &\n        & 0.26580e-01_rb,0.26000e-01_rb,0.24233e-01_rb,0.18600e-01_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.10637e-01_rb,0.19822e-01_rb,0.23556e-01_rb,0.25605e-01_rb,0.26619e-01_rb, &\n        & 0.26913e-01_rb,0.26359e-01_rb,0.24562e-01_rb,0.18925e-01_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.74104e-02_rb,0.16264e-01_rb,0.19717e-01_rb,0.21452e-01_rb,0.22172e-01_rb, &\n        & 0.22207e-01_rb,0.21598e-01_rb,0.20075e-01_rb,0.14880e-01_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.78778e-02_rb,0.16624e-01_rb,0.20022e-01_rb,0.21765e-01_rb,0.22531e-01_rb, &\n        & 0.22596e-01_rb,0.21999e-01_rb,0.20458e-01_rb,0.15279e-01_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.82694e-02_rb,0.16928e-01_rb,0.20277e-01_rb,0.22036e-01_rb,0.22859e-01_rb, &\n        & 0.22978e-01_rb,0.22384e-01_rb,0.20834e-01_rb,0.15650e-01_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.85919e-02_rb,0.17168e-01_rb,0.20498e-01_rb,0.22274e-01_rb,0.23143e-01_rb, &\n        & 0.23326e-01_rb,0.22754e-01_rb,0.21189e-01_rb,0.15980e-01_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.88337e-02_rb,0.17332e-01_rb,0.20664e-01_rb,0.22477e-01_rb,0.23407e-01_rb, &\n        & 0.23648e-01_rb,0.23111e-01_rb,0.21509e-01_rb,0.16283e-01_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.60305e-02_rb,0.14008e-01_rb,0.17028e-01_rb,0.18574e-01_rb,0.19236e-01_rb, &\n        & 0.19269e-01_rb,0.18720e-01_rb,0.17347e-01_rb,0.12656e-01_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.64356e-02_rb,0.14339e-01_rb,0.17318e-01_rb,0.18872e-01_rb,0.19580e-01_rb, &\n        & 0.19645e-01_rb,0.19095e-01_rb,0.17705e-01_rb,0.13025e-01_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.67708e-02_rb,0.14626e-01_rb,0.17575e-01_rb,0.19135e-01_rb,0.19883e-01_rb, &\n        & 0.20004e-01_rb,0.19454e-01_rb,0.18055e-01_rb,0.13366e-01_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.70449e-02_rb,0.14853e-01_rb,0.17795e-01_rb,0.19363e-01_rb,0.20156e-01_rb, &\n        & 0.20324e-01_rb,0.19811e-01_rb,0.18392e-01_rb,0.13679e-01_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.72586e-02_rb,0.15014e-01_rb,0.17954e-01_rb,0.19569e-01_rb,0.20401e-01_rb, &\n        & 0.20622e-01_rb,0.20155e-01_rb,0.18706e-01_rb,0.13963e-01_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.48615e-02_rb,0.11936e-01_rb,0.14574e-01_rb,0.15963e-01_rb,0.16578e-01_rb, &\n        & 0.16615e-01_rb,0.16125e-01_rb,0.14904e-01_rb,0.10718e-01_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.52093e-02_rb,0.12247e-01_rb,0.14845e-01_rb,0.16239e-01_rb,0.16890e-01_rb, &\n        & 0.16965e-01_rb,0.16477e-01_rb,0.15238e-01_rb,0.11050e-01_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.54981e-02_rb,0.12520e-01_rb,0.15089e-01_rb,0.16485e-01_rb,0.17163e-01_rb, &\n        & 0.17296e-01_rb,0.16823e-01_rb,0.15561e-01_rb,0.11367e-01_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.57341e-02_rb,0.12732e-01_rb,0.15302e-01_rb,0.16709e-01_rb,0.17412e-01_rb, &\n        & 0.17587e-01_rb,0.17156e-01_rb,0.15882e-01_rb,0.11657e-01_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.59245e-02_rb,0.12879e-01_rb,0.15460e-01_rb,0.16900e-01_rb,0.17646e-01_rb, &\n        & 0.17862e-01_rb,0.17475e-01_rb,0.16189e-01_rb,0.11924e-01_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.38903e-02_rb,0.10086e-01_rb,0.12393e-01_rb,0.13617e-01_rb,0.14179e-01_rb, &\n        & 0.14230e-01_rb,0.13810e-01_rb,0.12741e-01_rb,0.90402e-02_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.41883e-02_rb,0.10379e-01_rb,0.12642e-01_rb,0.13866e-01_rb,0.14454e-01_rb, &\n        & 0.14549e-01_rb,0.14140e-01_rb,0.13050e-01_rb,0.93407e-02_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.44374e-02_rb,0.10628e-01_rb,0.12866e-01_rb,0.14093e-01_rb,0.14702e-01_rb, &\n        & 0.14847e-01_rb,0.14466e-01_rb,0.13354e-01_rb,0.96289e-02_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.46417e-02_rb,0.10823e-01_rb,0.13067e-01_rb,0.14297e-01_rb,0.14936e-01_rb, &\n        & 0.15113e-01_rb,0.14777e-01_rb,0.13659e-01_rb,0.98946e-02_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.48106e-02_rb,0.10958e-01_rb,0.13212e-01_rb,0.14477e-01_rb,0.15155e-01_rb, &\n        & 0.15369e-01_rb,0.15065e-01_rb,0.13954e-01_rb,0.10137e-01_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.30906e-02_rb,0.84716e-02_rb,0.10475e-01_rb,0.11533e-01_rb,0.12037e-01_rb, &\n        & 0.12102e-01_rb,0.11757e-01_rb,0.10840e-01_rb,0.75790e-02_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.33456e-02_rb,0.87380e-02_rb,0.10698e-01_rb,0.11759e-01_rb,0.12281e-01_rb, &\n        & 0.12384e-01_rb,0.12063e-01_rb,0.11124e-01_rb,0.78524e-02_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.35624e-02_rb,0.89636e-02_rb,0.10908e-01_rb,0.11964e-01_rb,0.12503e-01_rb, &\n        & 0.12651e-01_rb,0.12366e-01_rb,0.11413e-01_rb,0.81116e-02_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.37409e-02_rb,0.91394e-02_rb,0.11085e-01_rb,0.12156e-01_rb,0.12717e-01_rb, &\n        & 0.12895e-01_rb,0.12646e-01_rb,0.11703e-01_rb,0.83543e-02_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.38899e-02_rb,0.92663e-02_rb,0.11210e-01_rb,0.12323e-01_rb,0.12923e-01_rb, &\n        & 0.13135e-01_rb,0.12909e-01_rb,0.11979e-01_rb,0.85748e-02_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.24588e-02_rb,0.70997e-02_rb,0.88156e-02_rb,0.97280e-02_rb,0.10175e-01_rb, &\n        & 0.10246e-01_rb,0.99712e-02_rb,0.91951e-02_rb,0.63324e-02_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.26743e-02_rb,0.73393e-02_rb,0.90183e-02_rb,0.99289e-02_rb,0.10387e-01_rb, &\n        & 0.10496e-01_rb,0.10249e-01_rb,0.94566e-02_rb,0.65770e-02_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.28610e-02_rb,0.75352e-02_rb,0.92028e-02_rb,0.10117e-01_rb,0.10586e-01_rb, &\n        & 0.10730e-01_rb,0.10524e-01_rb,0.97307e-02_rb,0.68077e-02_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.30147e-02_rb,0.76899e-02_rb,0.93550e-02_rb,0.10291e-01_rb,0.10781e-01_rb, &\n        & 0.10954e-01_rb,0.10778e-01_rb,0.10001e-01_rb,0.70201e-02_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.31444e-02_rb,0.78050e-02_rb,0.94668e-02_rb,0.10433e-01_rb,0.10974e-01_rb, &\n        & 0.11173e-01_rb,0.11019e-01_rb,0.10253e-01_rb,0.72189e-02_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.20345e-02_rb,0.60249e-02_rb,0.74716e-02_rb,0.82496e-02_rb,0.86458e-02_rb, &\n        & 0.87340e-02_rb,0.85222e-02_rb,0.78657e-02_rb,0.53714e-02_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.22071e-02_rb,0.62176e-02_rb,0.76440e-02_rb,0.84251e-02_rb,0.88273e-02_rb, &\n        & 0.89461e-02_rb,0.87689e-02_rb,0.81125e-02_rb,0.55835e-02_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.23554e-02_rb,0.63729e-02_rb,0.77932e-02_rb,0.85868e-02_rb,0.90058e-02_rb, &\n        & 0.91548e-02_rb,0.90075e-02_rb,0.83660e-02_rb,0.57827e-02_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.24780e-02_rb,0.64944e-02_rb,0.79106e-02_rb,0.87291e-02_rb,0.91857e-02_rb, &\n        & 0.93565e-02_rb,0.92302e-02_rb,0.86036e-02_rb,0.59695e-02_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.25820e-02_rb,0.65802e-02_rb,0.79974e-02_rb,0.88427e-02_rb,0.93482e-02_rb, &\n        & 0.95539e-02_rb,0.94443e-02_rb,0.88180e-02_rb,0.61512e-02_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.16789e-02_rb,0.50906e-02_rb,0.63078e-02_rb,0.69750e-02_rb,0.73172e-02_rb, &\n        & 0.74078e-02_rb,0.72504e-02_rb,0.67015e-02_rb,0.45394e-02_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.18170e-02_rb,0.52437e-02_rb,0.64512e-02_rb,0.71255e-02_rb,0.74790e-02_rb, &\n        & 0.75959e-02_rb,0.74655e-02_rb,0.69307e-02_rb,0.47237e-02_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.19356e-02_rb,0.53689e-02_rb,0.65701e-02_rb,0.72610e-02_rb,0.76415e-02_rb, &\n        & 0.77811e-02_rb,0.76703e-02_rb,0.71508e-02_rb,0.48953e-02_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.20342e-02_rb,0.54644e-02_rb,0.66640e-02_rb,0.73792e-02_rb,0.77929e-02_rb, &\n        & 0.79635e-02_rb,0.78660e-02_rb,0.73532e-02_rb,0.50607e-02_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.21182e-02_rb,0.55328e-02_rb,0.67352e-02_rb,0.74736e-02_rb,0.79282e-02_rb, &\n        & 0.81307e-02_rb,0.80542e-02_rb,0.75407e-02_rb,0.52234e-02_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.13819e-02_rb,0.42823e-02_rb,0.53096e-02_rb,0.58771e-02_rb,0.61745e-02_rb, &\n        & 0.62601e-02_rb,0.61411e-02_rb,0.56893e-02_rb,0.38201e-02_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.14927e-02_rb,0.44078e-02_rb,0.54261e-02_rb,0.60055e-02_rb,0.63167e-02_rb, &\n        & 0.64278e-02_rb,0.63268e-02_rb,0.58891e-02_rb,0.39789e-02_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.15884e-02_rb,0.45090e-02_rb,0.55246e-02_rb,0.61217e-02_rb,0.64577e-02_rb, &\n        & 0.65903e-02_rb,0.65044e-02_rb,0.60758e-02_rb,0.41288e-02_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.16683e-02_rb,0.45858e-02_rb,0.56029e-02_rb,0.62193e-02_rb,0.65859e-02_rb, &\n        & 0.67454e-02_rb,0.66768e-02_rb,0.62506e-02_rb,0.42765e-02_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.17364e-02_rb,0.46419e-02_rb,0.56644e-02_rb,0.62996e-02_rb,0.66998e-02_rb, &\n        & 0.68888e-02_rb,0.68404e-02_rb,0.64188e-02_rb,0.44198e-02_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.57760e-01_rb,0.69432e-01_rb,0.76402e-01_rb,0.81517e-01_rb,0.85125e-01_rb, &\n        & 0.87289e-01_rb,0.87408e-01_rb,0.83317e-01_rb,0.74720e-01_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.58256e-01_rb,0.69667e-01_rb,0.76723e-01_rb,0.81911e-01_rb,0.85362e-01_rb, &\n        & 0.87289e-01_rb,0.87306e-01_rb,0.83357e-01_rb,0.75177e-01_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.58710e-01_rb,0.69859e-01_rb,0.76973e-01_rb,0.82328e-01_rb,0.85690e-01_rb, &\n        & 0.87420e-01_rb,0.87264e-01_rb,0.83435e-01_rb,0.75701e-01_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.59052e-01_rb,0.70050e-01_rb,0.77176e-01_rb,0.82642e-01_rb,0.86071e-01_rb, &\n        & 0.87660e-01_rb,0.87341e-01_rb,0.83544e-01_rb,0.76230e-01_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.59298e-01_rb,0.70198e-01_rb,0.77374e-01_rb,0.82883e-01_rb,0.86469e-01_rb, &\n        & 0.87977e-01_rb,0.87473e-01_rb,0.83691e-01_rb,0.76769e-01_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.50908e-01_rb,0.62848e-01_rb,0.70003e-01_rb,0.75263e-01_rb,0.78670e-01_rb, &\n        & 0.80594e-01_rb,0.80694e-01_rb,0.77048e-01_rb,0.67048e-01_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.51469e-01_rb,0.63178e-01_rb,0.70395e-01_rb,0.75763e-01_rb,0.79033e-01_rb, &\n        & 0.80775e-01_rb,0.80686e-01_rb,0.77199e-01_rb,0.67605e-01_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.51956e-01_rb,0.63519e-01_rb,0.70748e-01_rb,0.76221e-01_rb,0.79512e-01_rb, &\n        & 0.81067e-01_rb,0.80797e-01_rb,0.77370e-01_rb,0.68182e-01_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.52329e-01_rb,0.63831e-01_rb,0.71115e-01_rb,0.76591e-01_rb,0.80032e-01_rb, &\n        & 0.81445e-01_rb,0.81001e-01_rb,0.77568e-01_rb,0.68768e-01_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.52648e-01_rb,0.64108e-01_rb,0.71441e-01_rb,0.76941e-01_rb,0.80464e-01_rb, &\n        & 0.81866e-01_rb,0.81282e-01_rb,0.77796e-01_rb,0.69377e-01_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.44636e-01_rb,0.56575e-01_rb,0.63667e-01_rb,0.68804e-01_rb,0.72146e-01_rb, &\n        & 0.73940e-01_rb,0.73756e-01_rb,0.70359e-01_rb,0.59446e-01_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.45216e-01_rb,0.57005e-01_rb,0.64111e-01_rb,0.69328e-01_rb,0.72620e-01_rb, &\n        & 0.74228e-01_rb,0.73854e-01_rb,0.70600e-01_rb,0.60086e-01_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.45716e-01_rb,0.57448e-01_rb,0.64591e-01_rb,0.69816e-01_rb,0.73178e-01_rb, &\n        & 0.74616e-01_rb,0.74093e-01_rb,0.70843e-01_rb,0.60738e-01_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.46137e-01_rb,0.57862e-01_rb,0.65060e-01_rb,0.70283e-01_rb,0.73724e-01_rb, &\n        & 0.75067e-01_rb,0.74408e-01_rb,0.71130e-01_rb,0.61385e-01_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.46490e-01_rb,0.58240e-01_rb,0.65537e-01_rb,0.70752e-01_rb,0.74187e-01_rb, &\n        & 0.75545e-01_rb,0.74817e-01_rb,0.71479e-01_rb,0.61998e-01_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.38910e-01_rb,0.50823e-01_rb,0.57505e-01_rb,0.62364e-01_rb,0.65559e-01_rb, &\n        & 0.67154e-01_rb,0.66798e-01_rb,0.63531e-01_rb,0.52401e-01_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.39488e-01_rb,0.51307e-01_rb,0.58022e-01_rb,0.62912e-01_rb,0.66074e-01_rb, &\n        & 0.67518e-01_rb,0.67025e-01_rb,0.63840e-01_rb,0.53093e-01_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.39991e-01_rb,0.51812e-01_rb,0.58566e-01_rb,0.63451e-01_rb,0.66632e-01_rb, &\n        & 0.68010e-01_rb,0.67348e-01_rb,0.64169e-01_rb,0.53782e-01_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.40387e-01_rb,0.52291e-01_rb,0.59117e-01_rb,0.64001e-01_rb,0.67196e-01_rb, &\n        & 0.68514e-01_rb,0.67789e-01_rb,0.64555e-01_rb,0.54470e-01_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.40719e-01_rb,0.52739e-01_rb,0.59691e-01_rb,0.64572e-01_rb,0.67725e-01_rb, &\n        & 0.69031e-01_rb,0.68307e-01_rb,0.64985e-01_rb,0.55091e-01_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.33692e-01_rb,0.45459e-01_rb,0.51705e-01_rb,0.56111e-01_rb,0.58984e-01_rb, &\n        & 0.60384e-01_rb,0.59951e-01_rb,0.56770e-01_rb,0.45939e-01_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.34254e-01_rb,0.45979e-01_rb,0.52252e-01_rb,0.56664e-01_rb,0.59515e-01_rb, &\n        & 0.60816e-01_rb,0.60273e-01_rb,0.57146e-01_rb,0.46647e-01_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.34738e-01_rb,0.46532e-01_rb,0.52846e-01_rb,0.57238e-01_rb,0.60077e-01_rb, &\n        & 0.61352e-01_rb,0.60714e-01_rb,0.57566e-01_rb,0.47359e-01_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.35117e-01_rb,0.47047e-01_rb,0.53459e-01_rb,0.57849e-01_rb,0.60668e-01_rb, &\n        & 0.61902e-01_rb,0.61259e-01_rb,0.58030e-01_rb,0.48036e-01_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.35428e-01_rb,0.47508e-01_rb,0.54083e-01_rb,0.58493e-01_rb,0.61253e-01_rb, &\n        & 0.62481e-01_rb,0.61851e-01_rb,0.58523e-01_rb,0.48648e-01_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.28910e-01_rb,0.40429e-01_rb,0.46176e-01_rb,0.50108e-01_rb,0.52609e-01_rb, &\n        & 0.53750e-01_rb,0.53289e-01_rb,0.50286e-01_rb,0.40061e-01_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.29433e-01_rb,0.40967e-01_rb,0.46731e-01_rb,0.50653e-01_rb,0.53149e-01_rb, &\n        & 0.54232e-01_rb,0.53687e-01_rb,0.50714e-01_rb,0.40756e-01_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.29883e-01_rb,0.41520e-01_rb,0.47349e-01_rb,0.51251e-01_rb,0.53731e-01_rb, &\n        & 0.54796e-01_rb,0.54207e-01_rb,0.51188e-01_rb,0.41443e-01_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.30252e-01_rb,0.42024e-01_rb,0.47998e-01_rb,0.51918e-01_rb,0.54339e-01_rb, &\n        & 0.55387e-01_rb,0.54820e-01_rb,0.51711e-01_rb,0.42085e-01_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.30542e-01_rb,0.42447e-01_rb,0.48635e-01_rb,0.52598e-01_rb,0.54986e-01_rb, &\n        & 0.56038e-01_rb,0.55430e-01_rb,0.52236e-01_rb,0.42675e-01_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.24600e-01_rb,0.35725e-01_rb,0.40952e-01_rb,0.44398e-01_rb,0.46558e-01_rb, &\n        & 0.47462e-01_rb,0.46950e-01_rb,0.44227e-01_rb,0.34751e-01_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.25060e-01_rb,0.36250e-01_rb,0.41498e-01_rb,0.44950e-01_rb,0.47097e-01_rb, &\n        & 0.47977e-01_rb,0.47399e-01_rb,0.44690e-01_rb,0.35410e-01_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.25466e-01_rb,0.36769e-01_rb,0.42119e-01_rb,0.45572e-01_rb,0.47696e-01_rb, &\n        & 0.48548e-01_rb,0.47965e-01_rb,0.45198e-01_rb,0.36050e-01_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.25804e-01_rb,0.37232e-01_rb,0.42764e-01_rb,0.46249e-01_rb,0.48349e-01_rb, &\n        & 0.49173e-01_rb,0.48603e-01_rb,0.45737e-01_rb,0.36649e-01_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.26075e-01_rb,0.37645e-01_rb,0.43371e-01_rb,0.46950e-01_rb,0.49045e-01_rb, &\n        & 0.49856e-01_rb,0.49223e-01_rb,0.46279e-01_rb,0.37198e-01_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.20747e-01_rb,0.31325e-01_rb,0.36016e-01_rb,0.39047e-01_rb,0.40921e-01_rb, &\n        & 0.41656e-01_rb,0.41097e-01_rb,0.38682e-01_rb,0.29955e-01_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.21145e-01_rb,0.31811e-01_rb,0.36541e-01_rb,0.39597e-01_rb,0.41455e-01_rb, &\n        & 0.42169e-01_rb,0.41575e-01_rb,0.39145e-01_rb,0.30577e-01_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.21497e-01_rb,0.32290e-01_rb,0.37155e-01_rb,0.40238e-01_rb,0.42067e-01_rb, &\n        & 0.42744e-01_rb,0.42154e-01_rb,0.39648e-01_rb,0.31178e-01_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.21796e-01_rb,0.32717e-01_rb,0.37766e-01_rb,0.40923e-01_rb,0.42738e-01_rb, &\n        & 0.43394e-01_rb,0.42768e-01_rb,0.40185e-01_rb,0.31733e-01_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.22044e-01_rb,0.33112e-01_rb,0.38338e-01_rb,0.41597e-01_rb,0.43462e-01_rb, &\n        & 0.44087e-01_rb,0.43385e-01_rb,0.40740e-01_rb,0.32254e-01_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.17360e-01_rb,0.27218e-01_rb,0.31401e-01_rb,0.34084e-01_rb,0.35741e-01_rb, &\n        & 0.36373e-01_rb,0.35798e-01_rb,0.33594e-01_rb,0.25664e-01_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.17693e-01_rb,0.27662e-01_rb,0.31908e-01_rb,0.34622e-01_rb,0.36264e-01_rb, &\n        & 0.36877e-01_rb,0.36285e-01_rb,0.34049e-01_rb,0.26251e-01_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.17992e-01_rb,0.28089e-01_rb,0.32477e-01_rb,0.35255e-01_rb,0.36874e-01_rb, &\n        & 0.37444e-01_rb,0.36831e-01_rb,0.34544e-01_rb,0.26814e-01_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.18258e-01_rb,0.28481e-01_rb,0.33050e-01_rb,0.35909e-01_rb,0.37552e-01_rb, &\n        & 0.38078e-01_rb,0.37421e-01_rb,0.35073e-01_rb,0.27335e-01_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.18484e-01_rb,0.28849e-01_rb,0.33601e-01_rb,0.36536e-01_rb,0.38254e-01_rb, &\n        & 0.38756e-01_rb,0.38026e-01_rb,0.35616e-01_rb,0.27829e-01_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.14462e-01_rb,0.23463e-01_rb,0.27186e-01_rb,0.29588e-01_rb,0.31079e-01_rb, &\n        & 0.31625e-01_rb,0.31053e-01_rb,0.29012e-01_rb,0.21916e-01_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.14737e-01_rb,0.23853e-01_rb,0.27662e-01_rb,0.30109e-01_rb,0.31581e-01_rb, &\n        & 0.32116e-01_rb,0.31527e-01_rb,0.29461e-01_rb,0.22460e-01_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.14983e-01_rb,0.24238e-01_rb,0.28187e-01_rb,0.30710e-01_rb,0.32176e-01_rb, &\n        & 0.32664e-01_rb,0.32044e-01_rb,0.29948e-01_rb,0.22987e-01_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.15228e-01_rb,0.24593e-01_rb,0.28718e-01_rb,0.31312e-01_rb,0.32826e-01_rb, &\n        & 0.33282e-01_rb,0.32615e-01_rb,0.30467e-01_rb,0.23478e-01_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.15411e-01_rb,0.24932e-01_rb,0.29228e-01_rb,0.31903e-01_rb,0.33455e-01_rb, &\n        & 0.33943e-01_rb,0.33207e-01_rb,0.30994e-01_rb,0.23939e-01_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.12097e-01_rb,0.20230e-01_rb,0.23554e-01_rb,0.25737e-01_rb,0.27070e-01_rb, &\n        & 0.27526e-01_rb,0.26987e-01_rb,0.25125e-01_rb,0.18843e-01_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.12316e-01_rb,0.20564e-01_rb,0.24014e-01_rb,0.26265e-01_rb,0.27589e-01_rb, &\n        & 0.28021e-01_rb,0.27462e-01_rb,0.25580e-01_rb,0.19341e-01_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.12525e-01_rb,0.20893e-01_rb,0.24494e-01_rb,0.26817e-01_rb,0.28172e-01_rb, &\n        & 0.28578e-01_rb,0.27985e-01_rb,0.26073e-01_rb,0.19811e-01_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.12698e-01_rb,0.21212e-01_rb,0.24971e-01_rb,0.27358e-01_rb,0.28752e-01_rb, &\n        & 0.29196e-01_rb,0.28554e-01_rb,0.26575e-01_rb,0.20254e-01_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.12813e-01_rb,0.21527e-01_rb,0.25428e-01_rb,0.27886e-01_rb,0.29316e-01_rb, &\n        & 0.29794e-01_rb,0.29144e-01_rb,0.27095e-01_rb,0.20669e-01_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.10079e-01_rb,0.17332e-01_rb,0.20326e-01_rb,0.22283e-01_rb,0.23452e-01_rb, &\n        & 0.23840e-01_rb,0.23351e-01_rb,0.21701e-01_rb,0.16150e-01_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.10253e-01_rb,0.17624e-01_rb,0.20738e-01_rb,0.22772e-01_rb,0.23963e-01_rb, &\n        & 0.24343e-01_rb,0.23830e-01_rb,0.22159e-01_rb,0.16605e-01_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.10412e-01_rb,0.17914e-01_rb,0.21165e-01_rb,0.23257e-01_rb,0.24491e-01_rb, &\n        & 0.24907e-01_rb,0.24364e-01_rb,0.22633e-01_rb,0.17031e-01_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.10528e-01_rb,0.18203e-01_rb,0.21585e-01_rb,0.23732e-01_rb,0.25019e-01_rb, &\n        & 0.25466e-01_rb,0.24925e-01_rb,0.23123e-01_rb,0.17440e-01_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.10595e-01_rb,0.18491e-01_rb,0.21987e-01_rb,0.24205e-01_rb,0.25526e-01_rb, &\n        & 0.26013e-01_rb,0.25497e-01_rb,0.23633e-01_rb,0.17825e-01_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.83675e-02_rb,0.14778e-01_rb,0.17455e-01_rb,0.19201e-01_rb,0.20214e-01_rb, &\n        & 0.20545e-01_rb,0.20133e-01_rb,0.18703e-01_rb,0.13810e-01_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.85037e-02_rb,0.15033e-01_rb,0.17824e-01_rb,0.19621e-01_rb,0.20684e-01_rb, &\n        & 0.21052e-01_rb,0.20616e-01_rb,0.19145e-01_rb,0.14218e-01_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.86129e-02_rb,0.15303e-01_rb,0.18197e-01_rb,0.20043e-01_rb,0.21163e-01_rb, &\n        & 0.21577e-01_rb,0.21143e-01_rb,0.19600e-01_rb,0.14617e-01_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.86912e-02_rb,0.15568e-01_rb,0.18565e-01_rb,0.20472e-01_rb,0.21636e-01_rb, &\n        & 0.22091e-01_rb,0.21674e-01_rb,0.20090e-01_rb,0.14991e-01_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.87302e-02_rb,0.15800e-01_rb,0.18917e-01_rb,0.20887e-01_rb,0.22103e-01_rb, &\n        & 0.22594e-01_rb,0.22198e-01_rb,0.20586e-01_rb,0.15351e-01_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.23898e+00_rb,0.24353e+00_rb,0.26297e+00_rb,0.27410e+00_rb,0.27635e+00_rb, &\n        & 0.27151e+00_rb,0.26001e+00_rb,0.24536e+00_rb,0.24840e+00_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.23703e+00_rb,0.24151e+00_rb,0.26057e+00_rb,0.27148e+00_rb,0.27415e+00_rb, &\n        & 0.26993e+00_rb,0.25912e+00_rb,0.24520e+00_rb,0.24830e+00_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.23567e+00_rb,0.23998e+00_rb,0.25868e+00_rb,0.26917e+00_rb,0.27195e+00_rb, &\n        & 0.26833e+00_rb,0.25809e+00_rb,0.24488e+00_rb,0.24801e+00_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.23478e+00_rb,0.23885e+00_rb,0.25713e+00_rb,0.26729e+00_rb,0.26990e+00_rb, &\n        & 0.26662e+00_rb,0.25696e+00_rb,0.24453e+00_rb,0.24772e+00_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.23430e+00_rb,0.23810e+00_rb,0.25588e+00_rb,0.26568e+00_rb,0.26809e+00_rb, &\n        & 0.26490e+00_rb,0.25575e+00_rb,0.24412e+00_rb,0.24745e+00_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.22071e+00_rb,0.23189e+00_rb,0.25280e+00_rb,0.26428e+00_rb,0.26846e+00_rb, &\n        & 0.26544e+00_rb,0.25423e+00_rb,0.23818e+00_rb,0.23526e+00_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.21924e+00_rb,0.23025e+00_rb,0.25076e+00_rb,0.26194e+00_rb,0.26631e+00_rb, &\n        & 0.26393e+00_rb,0.25356e+00_rb,0.23803e+00_rb,0.23534e+00_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.21843e+00_rb,0.22915e+00_rb,0.24919e+00_rb,0.26005e+00_rb,0.26425e+00_rb, &\n        & 0.26237e+00_rb,0.25262e+00_rb,0.23788e+00_rb,0.23535e+00_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.21819e+00_rb,0.22852e+00_rb,0.24801e+00_rb,0.25855e+00_rb,0.26247e+00_rb, &\n        & 0.26079e+00_rb,0.25163e+00_rb,0.23767e+00_rb,0.23532e+00_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.21836e+00_rb,0.22826e+00_rb,0.24718e+00_rb,0.25726e+00_rb,0.26101e+00_rb, &\n        & 0.25924e+00_rb,0.25059e+00_rb,0.23733e+00_rb,0.23520e+00_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.20172e+00_rb,0.21909e+00_rb,0.24049e+00_rb,0.25259e+00_rb,0.25809e+00_rb, &\n        & 0.25661e+00_rb,0.24776e+00_rb,0.23048e+00_rb,0.22176e+00_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.20072e+00_rb,0.21779e+00_rb,0.23872e+00_rb,0.25058e+00_rb,0.25610e+00_rb, &\n        & 0.25527e+00_rb,0.24712e+00_rb,0.23055e+00_rb,0.22209e+00_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.20047e+00_rb,0.21708e+00_rb,0.23748e+00_rb,0.24902e+00_rb,0.25438e+00_rb, &\n        & 0.25391e+00_rb,0.24629e+00_rb,0.23063e+00_rb,0.22233e+00_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.20080e+00_rb,0.21687e+00_rb,0.23670e+00_rb,0.24777e+00_rb,0.25298e+00_rb, &\n        & 0.25252e+00_rb,0.24542e+00_rb,0.23053e+00_rb,0.22249e+00_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.20160e+00_rb,0.21710e+00_rb,0.23623e+00_rb,0.24683e+00_rb,0.25186e+00_rb, &\n        & 0.25126e+00_rb,0.24453e+00_rb,0.23018e+00_rb,0.22257e+00_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.18271e+00_rb,0.20499e+00_rb,0.22645e+00_rb,0.23921e+00_rb,0.24553e+00_rb, &\n        & 0.24573e+00_rb,0.23916e+00_rb,0.22190e+00_rb,0.20803e+00_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.18212e+00_rb,0.20407e+00_rb,0.22500e+00_rb,0.23755e+00_rb,0.24385e+00_rb, &\n        & 0.24460e+00_rb,0.23866e+00_rb,0.22223e+00_rb,0.20862e+00_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.18234e+00_rb,0.20374e+00_rb,0.22412e+00_rb,0.23625e+00_rb,0.24249e+00_rb, &\n        & 0.24341e+00_rb,0.23801e+00_rb,0.22245e+00_rb,0.20916e+00_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.18327e+00_rb,0.20396e+00_rb,0.22372e+00_rb,0.23535e+00_rb,0.24149e+00_rb, &\n        & 0.24231e+00_rb,0.23730e+00_rb,0.22248e+00_rb,0.20951e+00_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.18465e+00_rb,0.20466e+00_rb,0.22368e+00_rb,0.23479e+00_rb,0.24072e+00_rb, &\n        & 0.24142e+00_rb,0.23656e+00_rb,0.22226e+00_rb,0.20975e+00_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.16429e+00_rb,0.19018e+00_rb,0.21120e+00_rb,0.22440e+00_rb,0.23155e+00_rb, &\n        & 0.23328e+00_rb,0.22834e+00_rb,0.21231e+00_rb,0.19389e+00_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.16411e+00_rb,0.18954e+00_rb,0.21010e+00_rb,0.22306e+00_rb,0.23026e+00_rb, &\n        & 0.23235e+00_rb,0.22803e+00_rb,0.21280e+00_rb,0.19477e+00_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.16481e+00_rb,0.18955e+00_rb,0.20958e+00_rb,0.22215e+00_rb,0.22928e+00_rb, &\n        & 0.23142e+00_rb,0.22762e+00_rb,0.21318e+00_rb,0.19549e+00_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.16626e+00_rb,0.19018e+00_rb,0.20952e+00_rb,0.22166e+00_rb,0.22860e+00_rb, &\n        & 0.23069e+00_rb,0.22713e+00_rb,0.21333e+00_rb,0.19598e+00_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.16812e+00_rb,0.19134e+00_rb,0.20988e+00_rb,0.22152e+00_rb,0.22816e+00_rb, &\n        & 0.23013e+00_rb,0.22663e+00_rb,0.21325e+00_rb,0.19645e+00_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.14677e+00_rb,0.17503e+00_rb,0.19553e+00_rb,0.20871e+00_rb,0.21680e+00_rb, &\n        & 0.21948e+00_rb,0.21556e+00_rb,0.20158e+00_rb,0.17922e+00_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.14688e+00_rb,0.17460e+00_rb,0.19479e+00_rb,0.20777e+00_rb,0.21582e+00_rb, &\n        & 0.21883e+00_rb,0.21549e+00_rb,0.20223e+00_rb,0.18038e+00_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.14791e+00_rb,0.17490e+00_rb,0.19459e+00_rb,0.20727e+00_rb,0.21519e+00_rb, &\n        & 0.21822e+00_rb,0.21533e+00_rb,0.20278e+00_rb,0.18127e+00_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.14970e+00_rb,0.17592e+00_rb,0.19488e+00_rb,0.20713e+00_rb,0.21485e+00_rb, &\n        & 0.21785e+00_rb,0.21514e+00_rb,0.20305e+00_rb,0.18200e+00_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.15169e+00_rb,0.17756e+00_rb,0.19568e+00_rb,0.20736e+00_rb,0.21479e+00_rb, &\n        & 0.21766e+00_rb,0.21494e+00_rb,0.20315e+00_rb,0.18271e+00_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.13000e+00_rb,0.15987e+00_rb,0.17978e+00_rb,0.19301e+00_rb,0.20129e+00_rb, &\n        & 0.20436e+00_rb,0.20140e+00_rb,0.18919e+00_rb,0.16414e+00_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.13035e+00_rb,0.15964e+00_rb,0.17934e+00_rb,0.19244e+00_rb,0.20068e+00_rb, &\n        & 0.20402e+00_rb,0.20156e+00_rb,0.19006e+00_rb,0.16551e+00_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.13166e+00_rb,0.16021e+00_rb,0.17944e+00_rb,0.19225e+00_rb,0.20040e+00_rb, &\n        & 0.20381e+00_rb,0.20166e+00_rb,0.19078e+00_rb,0.16662e+00_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.13361e+00_rb,0.16157e+00_rb,0.18010e+00_rb,0.19248e+00_rb,0.20041e+00_rb, &\n        & 0.20379e+00_rb,0.20172e+00_rb,0.19125e+00_rb,0.16758e+00_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.13554e+00_rb,0.16344e+00_rb,0.18132e+00_rb,0.19308e+00_rb,0.20075e+00_rb, &\n        & 0.20397e+00_rb,0.20182e+00_rb,0.19159e+00_rb,0.16855e+00_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.11433e+00_rb,0.14488e+00_rb,0.16431e+00_rb,0.17738e+00_rb,0.18527e+00_rb, &\n        & 0.18841e+00_rb,0.18617e+00_rb,0.17535e+00_rb,0.14893e+00_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.11487e+00_rb,0.14487e+00_rb,0.16414e+00_rb,0.17713e+00_rb,0.18501e+00_rb, &\n        & 0.18837e+00_rb,0.18658e+00_rb,0.17646e+00_rb,0.15049e+00_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.11635e+00_rb,0.14571e+00_rb,0.16452e+00_rb,0.17724e+00_rb,0.18506e+00_rb, &\n        & 0.18853e+00_rb,0.18695e+00_rb,0.17741e+00_rb,0.15180e+00_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.11822e+00_rb,0.14733e+00_rb,0.16549e+00_rb,0.17782e+00_rb,0.18544e+00_rb, &\n        & 0.18888e+00_rb,0.18734e+00_rb,0.17811e+00_rb,0.15295e+00_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.12009e+00_rb,0.14924e+00_rb,0.16704e+00_rb,0.17887e+00_rb,0.18614e+00_rb, &\n        & 0.18940e+00_rb,0.18775e+00_rb,0.17867e+00_rb,0.15411e+00_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.10002e+00_rb,0.13043e+00_rb,0.14919e+00_rb,0.16171e+00_rb,0.16913e+00_rb, &\n        & 0.17211e+00_rb,0.17023e+00_rb,0.16067e+00_rb,0.13380e+00_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.10070e+00_rb,0.13063e+00_rb,0.14927e+00_rb,0.16171e+00_rb,0.16923e+00_rb, &\n        & 0.17237e+00_rb,0.17091e+00_rb,0.16202e+00_rb,0.13552e+00_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.10219e+00_rb,0.13166e+00_rb,0.14990e+00_rb,0.16210e+00_rb,0.16959e+00_rb, &\n        & 0.17285e+00_rb,0.17161e+00_rb,0.16316e+00_rb,0.13700e+00_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.10390e+00_rb,0.13341e+00_rb,0.15118e+00_rb,0.16299e+00_rb,0.17031e+00_rb, &\n        & 0.17358e+00_rb,0.17229e+00_rb,0.16405e+00_rb,0.13837e+00_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.10569e+00_rb,0.13530e+00_rb,0.15298e+00_rb,0.16444e+00_rb,0.17139e+00_rb, &\n        & 0.17443e+00_rb,0.17301e+00_rb,0.16481e+00_rb,0.13976e+00_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.87148e-01_rb,0.11690e+00_rb,0.13450e+00_rb,0.14609e+00_rb,0.15307e+00_rb, &\n        & 0.15588e+00_rb,0.15420e+00_rb,0.14572e+00_rb,0.11917e+00_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.87948e-01_rb,0.11730e+00_rb,0.13485e+00_rb,0.14637e+00_rb,0.15348e+00_rb, &\n        & 0.15645e+00_rb,0.15513e+00_rb,0.14723e+00_rb,0.12103e+00_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.89341e-01_rb,0.11856e+00_rb,0.13575e+00_rb,0.14709e+00_rb,0.15418e+00_rb, &\n        & 0.15726e+00_rb,0.15609e+00_rb,0.14852e+00_rb,0.12266e+00_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.90912e-01_rb,0.12032e+00_rb,0.13733e+00_rb,0.14835e+00_rb,0.15527e+00_rb, &\n        & 0.15827e+00_rb,0.15702e+00_rb,0.14960e+00_rb,0.12424e+00_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.92651e-01_rb,0.12218e+00_rb,0.13930e+00_rb,0.15018e+00_rb,0.15676e+00_rb, &\n        & 0.15942e+00_rb,0.15802e+00_rb,0.15063e+00_rb,0.12583e+00_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.75810e-01_rb,0.10456e+00_rb,0.12069e+00_rb,0.13117e+00_rb,0.13761e+00_rb, &\n        & 0.14039e+00_rb,0.13895e+00_rb,0.13157e+00_rb,0.10610e+00_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.76895e-01_rb,0.10557e+00_rb,0.12151e+00_rb,0.13190e+00_rb,0.13842e+00_rb, &\n        & 0.14134e+00_rb,0.14014e+00_rb,0.13312e+00_rb,0.10796e+00_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.78244e-01_rb,0.10718e+00_rb,0.12298e+00_rb,0.13318e+00_rb,0.13962e+00_rb, &\n        & 0.14250e+00_rb,0.14130e+00_rb,0.13446e+00_rb,0.10971e+00_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.79823e-01_rb,0.10896e+00_rb,0.12491e+00_rb,0.13508e+00_rb,0.14123e+00_rb, &\n        & 0.14382e+00_rb,0.14250e+00_rb,0.13575e+00_rb,0.11145e+00_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.81587e-01_rb,0.11081e+00_rb,0.12696e+00_rb,0.13729e+00_rb,0.14323e+00_rb, &\n        & 0.14541e+00_rb,0.14385e+00_rb,0.13708e+00_rb,0.11322e+00_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.65751e-01_rb,0.93358e-01_rb,0.10793e+00_rb,0.11727e+00_rb,0.12307e+00_rb, &\n        & 0.12565e+00_rb,0.12447e+00_rb,0.11782e+00_rb,0.93944e-01_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.66851e-01_rb,0.94791e-01_rb,0.10927e+00_rb,0.11849e+00_rb,0.12430e+00_rb, &\n        & 0.12692e+00_rb,0.12584e+00_rb,0.11940e+00_rb,0.95825e-01_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.68215e-01_rb,0.96468e-01_rb,0.11113e+00_rb,0.12035e+00_rb,0.12596e+00_rb, &\n        & 0.12837e+00_rb,0.12723e+00_rb,0.12088e+00_rb,0.97697e-01_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.69822e-01_rb,0.98288e-01_rb,0.11318e+00_rb,0.12260e+00_rb,0.12800e+00_rb, &\n        & 0.13009e+00_rb,0.12875e+00_rb,0.12246e+00_rb,0.99558e-01_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.71562e-01_rb,0.10021e+00_rb,0.11536e+00_rb,0.12491e+00_rb,0.13035e+00_rb, &\n        & 0.13218e+00_rb,0.13049e+00_rb,0.12412e+00_rb,0.10142e+00_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.56716e-01_rb,0.83175e-01_rb,0.96227e-01_rb,0.10452e+00_rb,0.10961e+00_rb, &\n        & 0.11186e+00_rb,0.11078e+00_rb,0.10487e+00_rb,0.82822e-01_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.57829e-01_rb,0.84711e-01_rb,0.97973e-01_rb,0.10625e+00_rb,0.11123e+00_rb, &\n        & 0.11339e+00_rb,0.11236e+00_rb,0.10648e+00_rb,0.84781e-01_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.59231e-01_rb,0.86426e-01_rb,0.99996e-01_rb,0.10847e+00_rb,0.11329e+00_rb, &\n        & 0.11518e+00_rb,0.11401e+00_rb,0.10821e+00_rb,0.86727e-01_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.60793e-01_rb,0.88335e-01_rb,0.10220e+00_rb,0.11080e+00_rb,0.11568e+00_rb, &\n        & 0.11734e+00_rb,0.11592e+00_rb,0.11003e+00_rb,0.88652e-01_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.62288e-01_rb,0.90379e-01_rb,0.10449e+00_rb,0.11321e+00_rb,0.11819e+00_rb, &\n        & 0.11985e+00_rb,0.11808e+00_rb,0.11193e+00_rb,0.90608e-01_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.73370e+00_rb,0.66239e+00_rb,0.64754e+00_rb,0.65671e+00_rb,0.64798e+00_rb, &\n        & 0.62443e+00_rb,0.62156e+00_rb,0.59642e+00_rb,0.65694e+00_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.72227e+00_rb,0.65245e+00_rb,0.64115e+00_rb,0.65244e+00_rb,0.64519e+00_rb, &\n        & 0.62272e+00_rb,0.62178e+00_rb,0.59807e+00_rb,0.65734e+00_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.71096e+00_rb,0.64287e+00_rb,0.63490e+00_rb,0.64719e+00_rb,0.64246e+00_rb, &\n        & 0.61928e+00_rb,0.62164e+00_rb,0.59971e+00_rb,0.65975e+00_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.69997e+00_rb,0.63340e+00_rb,0.62893e+00_rb,0.64188e+00_rb,0.63859e+00_rb, &\n        & 0.61601e+00_rb,0.62127e+00_rb,0.59924e+00_rb,0.66003e+00_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.68921e+00_rb,0.62412e+00_rb,0.62274e+00_rb,0.63660e+00_rb,0.63341e+00_rb, &\n        & 0.61371e+00_rb,0.61976e+00_rb,0.59796e+00_rb,0.65874e+00_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.71435e+00_rb,0.65898e+00_rb,0.65791e+00_rb,0.67621e+00_rb,0.66803e+00_rb, &\n        & 0.63952e+00_rb,0.62227e+00_rb,0.60345e+00_rb,0.64341e+00_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.70295e+00_rb,0.64927e+00_rb,0.65209e+00_rb,0.67168e+00_rb,0.66601e+00_rb, &\n        & 0.63761e+00_rb,0.62183e+00_rb,0.60472e+00_rb,0.64489e+00_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.69214e+00_rb,0.64012e+00_rb,0.64637e+00_rb,0.66639e+00_rb,0.66353e+00_rb, &\n        & 0.63487e+00_rb,0.62217e+00_rb,0.60467e+00_rb,0.64521e+00_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.68145e+00_rb,0.63089e+00_rb,0.64022e+00_rb,0.66099e+00_rb,0.65898e+00_rb, &\n        & 0.63312e+00_rb,0.62106e+00_rb,0.60298e+00_rb,0.64380e+00_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.67068e+00_rb,0.62208e+00_rb,0.63390e+00_rb,0.65546e+00_rb,0.65376e+00_rb, &\n        & 0.63122e+00_rb,0.61818e+00_rb,0.60158e+00_rb,0.64256e+00_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.68340e+00_rb,0.64482e+00_rb,0.66290e+00_rb,0.68284e+00_rb,0.67896e+00_rb, &\n        & 0.65800e+00_rb,0.61589e+00_rb,0.60026e+00_rb,0.62209e+00_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.67251e+00_rb,0.63550e+00_rb,0.65818e+00_rb,0.67891e+00_rb,0.67722e+00_rb, &\n        & 0.65575e+00_rb,0.61745e+00_rb,0.60017e+00_rb,0.62247e+00_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.66182e+00_rb,0.62604e+00_rb,0.65231e+00_rb,0.67447e+00_rb,0.67369e+00_rb, &\n        & 0.65314e+00_rb,0.61804e+00_rb,0.59851e+00_rb,0.62084e+00_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.65114e+00_rb,0.61727e+00_rb,0.64569e+00_rb,0.67007e+00_rb,0.66854e+00_rb, &\n        & 0.65146e+00_rb,0.61713e+00_rb,0.59641e+00_rb,0.61922e+00_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.64110e+00_rb,0.60881e+00_rb,0.63926e+00_rb,0.66468e+00_rb,0.66347e+00_rb, &\n        & 0.64931e+00_rb,0.61433e+00_rb,0.59600e+00_rb,0.61885e+00_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.64233e+00_rb,0.62207e+00_rb,0.65747e+00_rb,0.67845e+00_rb,0.68170e+00_rb, &\n        & 0.66374e+00_rb,0.61548e+00_rb,0.59270e+00_rb,0.60473e+00_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.63185e+00_rb,0.61324e+00_rb,0.65237e+00_rb,0.67473e+00_rb,0.67959e+00_rb, &\n        & 0.66215e+00_rb,0.61741e+00_rb,0.59134e+00_rb,0.60361e+00_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.62122e+00_rb,0.60440e+00_rb,0.64660e+00_rb,0.67096e+00_rb,0.67570e+00_rb, &\n        & 0.66004e+00_rb,0.61834e+00_rb,0.58886e+00_rb,0.60079e+00_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.61111e+00_rb,0.59616e+00_rb,0.64034e+00_rb,0.66675e+00_rb,0.67073e+00_rb, &\n        & 0.65786e+00_rb,0.61721e+00_rb,0.58692e+00_rb,0.59978e+00_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.60223e+00_rb,0.58851e+00_rb,0.63401e+00_rb,0.66136e+00_rb,0.66631e+00_rb, &\n        & 0.65503e+00_rb,0.61469e+00_rb,0.58697e+00_rb,0.60040e+00_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.59185e+00_rb,0.59370e+00_rb,0.63992e+00_rb,0.66463e+00_rb,0.67279e+00_rb, &\n        & 0.65610e+00_rb,0.61852e+00_rb,0.58331e+00_rb,0.58763e+00_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.58158e+00_rb,0.58584e+00_rb,0.63500e+00_rb,0.66123e+00_rb,0.67045e+00_rb, &\n        & 0.65504e+00_rb,0.62015e+00_rb,0.58225e+00_rb,0.58623e+00_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.57197e+00_rb,0.57827e+00_rb,0.62932e+00_rb,0.65791e+00_rb,0.66630e+00_rb, &\n        & 0.65353e+00_rb,0.61959e+00_rb,0.58025e+00_rb,0.58483e+00_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.56277e+00_rb,0.57099e+00_rb,0.62369e+00_rb,0.65326e+00_rb,0.66229e+00_rb, &\n        & 0.65156e+00_rb,0.61745e+00_rb,0.57913e+00_rb,0.58544e+00_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.55581e+00_rb,0.56431e+00_rb,0.61807e+00_rb,0.64784e+00_rb,0.65855e+00_rb, &\n        & 0.64845e+00_rb,0.61479e+00_rb,0.57987e+00_rb,0.58646e+00_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.53954e+00_rb,0.56255e+00_rb,0.61290e+00_rb,0.64303e+00_rb,0.64974e+00_rb, &\n        & 0.64176e+00_rb,0.61714e+00_rb,0.56940e+00_rb,0.56484e+00_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.53060e+00_rb,0.55651e+00_rb,0.60789e+00_rb,0.63988e+00_rb,0.64820e+00_rb, &\n        & 0.64042e+00_rb,0.61834e+00_rb,0.56932e+00_rb,0.56418e+00_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.52216e+00_rb,0.54988e+00_rb,0.60294e+00_rb,0.63619e+00_rb,0.64521e+00_rb, &\n        & 0.63878e+00_rb,0.61726e+00_rb,0.56850e+00_rb,0.56474e+00_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.51474e+00_rb,0.54331e+00_rb,0.59815e+00_rb,0.63165e+00_rb,0.64200e+00_rb, &\n        & 0.63625e+00_rb,0.61431e+00_rb,0.56860e+00_rb,0.56684e+00_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.51206e+00_rb,0.53704e+00_rb,0.59303e+00_rb,0.62695e+00_rb,0.63853e+00_rb, &\n        & 0.63290e+00_rb,0.61169e+00_rb,0.57018e+00_rb,0.56804e+00_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.49102e+00_rb,0.52896e+00_rb,0.58005e+00_rb,0.60940e+00_rb,0.62179e+00_rb, &\n        & 0.62452e+00_rb,0.60693e+00_rb,0.55666e+00_rb,0.53830e+00_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.48351e+00_rb,0.52394e+00_rb,0.57551e+00_rb,0.60647e+00_rb,0.62043e+00_rb, &\n        & 0.62318e+00_rb,0.60808e+00_rb,0.55693e+00_rb,0.53902e+00_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.47604e+00_rb,0.51848e+00_rb,0.57124e+00_rb,0.60324e+00_rb,0.61835e+00_rb, &\n        & 0.62080e+00_rb,0.60698e+00_rb,0.55691e+00_rb,0.54116e+00_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.47121e+00_rb,0.51294e+00_rb,0.56659e+00_rb,0.59937e+00_rb,0.61527e+00_rb, &\n        & 0.61807e+00_rb,0.60502e+00_rb,0.55819e+00_rb,0.54361e+00_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.47306e+00_rb,0.50884e+00_rb,0.56199e+00_rb,0.59548e+00_rb,0.61135e+00_rb, &\n        & 0.61474e+00_rb,0.60372e+00_rb,0.56024e+00_rb,0.54444e+00_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.44396e+00_rb,0.49532e+00_rb,0.54249e+00_rb,0.57145e+00_rb,0.59186e+00_rb, &\n        & 0.60060e+00_rb,0.58785e+00_rb,0.54441e+00_rb,0.50913e+00_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.43707e+00_rb,0.49048e+00_rb,0.53914e+00_rb,0.56868e+00_rb,0.59107e+00_rb, &\n        & 0.60049e+00_rb,0.58883e+00_rb,0.54507e+00_rb,0.51101e+00_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.43098e+00_rb,0.48531e+00_rb,0.53541e+00_rb,0.56592e+00_rb,0.58911e+00_rb, &\n        & 0.59846e+00_rb,0.58812e+00_rb,0.54578e+00_rb,0.51441e+00_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.42957e+00_rb,0.48093e+00_rb,0.53173e+00_rb,0.56262e+00_rb,0.58636e+00_rb, &\n        & 0.59589e+00_rb,0.58708e+00_rb,0.54776e+00_rb,0.51773e+00_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.43487e+00_rb,0.48035e+00_rb,0.52822e+00_rb,0.55903e+00_rb,0.58272e+00_rb, &\n        & 0.59353e+00_rb,0.58697e+00_rb,0.54985e+00_rb,0.51918e+00_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.39531e+00_rb,0.46021e+00_rb,0.50510e+00_rb,0.53588e+00_rb,0.55895e+00_rb, &\n        & 0.56979e+00_rb,0.56191e+00_rb,0.52659e+00_rb,0.47758e+00_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.38905e+00_rb,0.45517e+00_rb,0.50180e+00_rb,0.53416e+00_rb,0.55846e+00_rb, &\n        & 0.57047e+00_rb,0.56355e+00_rb,0.52717e+00_rb,0.48088e+00_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.38493e+00_rb,0.45067e+00_rb,0.49854e+00_rb,0.53220e+00_rb,0.55699e+00_rb, &\n        & 0.56934e+00_rb,0.56332e+00_rb,0.52868e+00_rb,0.48536e+00_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.38723e+00_rb,0.44786e+00_rb,0.49546e+00_rb,0.52928e+00_rb,0.55471e+00_rb, &\n        & 0.56730e+00_rb,0.56372e+00_rb,0.53178e+00_rb,0.48902e+00_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.39433e+00_rb,0.45054e+00_rb,0.49350e+00_rb,0.52621e+00_rb,0.55192e+00_rb, &\n        & 0.56604e+00_rb,0.56481e+00_rb,0.53491e+00_rb,0.49067e+00_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.34716e+00_rb,0.41992e+00_rb,0.46841e+00_rb,0.50264e+00_rb,0.52377e+00_rb, &\n        & 0.53462e+00_rb,0.53096e+00_rb,0.50215e+00_rb,0.44481e+00_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.34195e+00_rb,0.41601e+00_rb,0.46506e+00_rb,0.50165e+00_rb,0.52385e+00_rb, &\n        & 0.53574e+00_rb,0.53310e+00_rb,0.50401e+00_rb,0.44924e+00_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.34072e+00_rb,0.41255e+00_rb,0.46265e+00_rb,0.50007e+00_rb,0.52273e+00_rb, &\n        & 0.53553e+00_rb,0.53434e+00_rb,0.50668e+00_rb,0.45414e+00_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.34572e+00_rb,0.41258e+00_rb,0.46029e+00_rb,0.49770e+00_rb,0.52100e+00_rb, &\n        & 0.53482e+00_rb,0.53633e+00_rb,0.51056e+00_rb,0.45768e+00_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.35242e+00_rb,0.41826e+00_rb,0.46028e+00_rb,0.49520e+00_rb,0.51927e+00_rb, &\n        & 0.53500e+00_rb,0.53892e+00_rb,0.51405e+00_rb,0.45947e+00_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.30160e+00_rb,0.37714e+00_rb,0.42971e+00_rb,0.46717e+00_rb,0.48926e+00_rb, &\n        & 0.49871e+00_rb,0.49756e+00_rb,0.47436e+00_rb,0.41261e+00_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.29962e+00_rb,0.37395e+00_rb,0.42779e+00_rb,0.46654e+00_rb,0.48929e+00_rb, &\n        & 0.49998e+00_rb,0.50016e+00_rb,0.47769e+00_rb,0.41819e+00_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.30371e+00_rb,0.37339e+00_rb,0.42611e+00_rb,0.46502e+00_rb,0.48821e+00_rb, &\n        & 0.50080e+00_rb,0.50323e+00_rb,0.48215e+00_rb,0.42266e+00_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.30955e+00_rb,0.37857e+00_rb,0.42639e+00_rb,0.46320e+00_rb,0.48745e+00_rb, &\n        & 0.50213e+00_rb,0.50694e+00_rb,0.48639e+00_rb,0.42570e+00_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.31511e+00_rb,0.38606e+00_rb,0.43107e+00_rb,0.46346e+00_rb,0.48731e+00_rb, &\n        & 0.50398e+00_rb,0.50975e+00_rb,0.48945e+00_rb,0.42790e+00_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.26311e+00_rb,0.33847e+00_rb,0.39159e+00_rb,0.42993e+00_rb,0.45370e+00_rb, &\n        & 0.46372e+00_rb,0.46279e+00_rb,0.44427e+00_rb,0.37907e+00_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.26583e+00_rb,0.33679e+00_rb,0.39073e+00_rb,0.42938e+00_rb,0.45415e+00_rb, &\n        & 0.46569e+00_rb,0.46639e+00_rb,0.44945e+00_rb,0.38485e+00_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.27082e+00_rb,0.34071e+00_rb,0.39077e+00_rb,0.42842e+00_rb,0.45412e+00_rb, &\n        & 0.46820e+00_rb,0.47089e+00_rb,0.45477e+00_rb,0.38900e+00_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.27574e+00_rb,0.34733e+00_rb,0.39532e+00_rb,0.42923e+00_rb,0.45504e+00_rb, &\n        & 0.47097e+00_rb,0.47486e+00_rb,0.45848e+00_rb,0.39247e+00_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.28099e+00_rb,0.35386e+00_rb,0.40190e+00_rb,0.43447e+00_rb,0.45757e+00_rb, &\n        & 0.47294e+00_rb,0.47760e+00_rb,0.46125e+00_rb,0.39629e+00_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.23133e+00_rb,0.30448e+00_rb,0.35592e+00_rb,0.39245e+00_rb,0.41703e+00_rb, &\n        & 0.42944e+00_rb,0.42838e+00_rb,0.41191e+00_rb,0.34405e+00_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.23569e+00_rb,0.30675e+00_rb,0.35574e+00_rb,0.39238e+00_rb,0.41854e+00_rb, &\n        & 0.43261e+00_rb,0.43319e+00_rb,0.41851e+00_rb,0.34979e+00_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.23995e+00_rb,0.31287e+00_rb,0.35958e+00_rb,0.39339e+00_rb,0.42025e+00_rb, &\n        & 0.43649e+00_rb,0.43814e+00_rb,0.42387e+00_rb,0.35427e+00_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.24491e+00_rb,0.31868e+00_rb,0.36597e+00_rb,0.39887e+00_rb,0.42348e+00_rb, &\n        & 0.43960e+00_rb,0.44180e+00_rb,0.42781e+00_rb,0.35946e+00_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.25204e+00_rb,0.32443e+00_rb,0.37244e+00_rb,0.40709e+00_rb,0.42924e+00_rb, &\n        & 0.44176e+00_rb,0.44465e+00_rb,0.43196e+00_rb,0.36481e+00_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.10293e+01_rb,0.90445e+00_rb,0.86137e+00_rb,0.83022e+00_rb,0.84086e+00_rb, &\n        & 0.86548e+00_rb,0.85587e+00_rb,0.85325e+00_rb,0.97261e+00_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.10191e+01_rb,0.89556e+00_rb,0.85472e+00_rb,0.82839e+00_rb,0.83827e+00_rb, &\n        & 0.86712e+00_rb,0.85626e+00_rb,0.85096e+00_rb,0.97088e+00_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.10070e+01_rb,0.88513e+00_rb,0.84750e+00_rb,0.82570e+00_rb,0.83354e+00_rb, &\n        & 0.86668e+00_rb,0.85692e+00_rb,0.84837e+00_rb,0.96710e+00_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.99477e+00_rb,0.87449e+00_rb,0.83958e+00_rb,0.82146e+00_rb,0.82897e+00_rb, &\n        & 0.86436e+00_rb,0.85744e+00_rb,0.84703e+00_rb,0.96450e+00_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.98126e+00_rb,0.86272e+00_rb,0.83128e+00_rb,0.81555e+00_rb,0.82401e+00_rb, &\n        & 0.85929e+00_rb,0.85825e+00_rb,0.84707e+00_rb,0.96358e+00_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.10475e+01_rb,0.93151e+00_rb,0.89830e+00_rb,0.88420e+00_rb,0.87933e+00_rb, &\n        & 0.87846e+00_rb,0.87987e+00_rb,0.86086e+00_rb,0.97265e+00_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.10370e+01_rb,0.92196e+00_rb,0.89215e+00_rb,0.88284e+00_rb,0.87783e+00_rb, &\n        & 0.88073e+00_rb,0.88059e+00_rb,0.85882e+00_rb,0.96972e+00_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.10244e+01_rb,0.91082e+00_rb,0.88511e+00_rb,0.87976e+00_rb,0.87455e+00_rb, &\n        & 0.88046e+00_rb,0.88070e+00_rb,0.85623e+00_rb,0.96599e+00_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.10111e+01_rb,0.89911e+00_rb,0.87761e+00_rb,0.87481e+00_rb,0.87132e+00_rb, &\n        & 0.87692e+00_rb,0.88074e+00_rb,0.85652e+00_rb,0.96500e+00_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.99734e+00_rb,0.88696e+00_rb,0.86940e+00_rb,0.86908e+00_rb,0.86706e+00_rb, &\n        & 0.87191e+00_rb,0.88156e+00_rb,0.85742e+00_rb,0.96567e+00_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.10481e+01_rb,0.94949e+00_rb,0.92754e+00_rb,0.93134e+00_rb,0.92020e+00_rb, &\n        & 0.88963e+00_rb,0.89353e+00_rb,0.87368e+00_rb,0.96341e+00_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.10364e+01_rb,0.93961e+00_rb,0.92141e+00_rb,0.92962e+00_rb,0.91951e+00_rb, &\n        & 0.89266e+00_rb,0.89347e+00_rb,0.87218e+00_rb,0.95995e+00_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.10237e+01_rb,0.92877e+00_rb,0.91434e+00_rb,0.92574e+00_rb,0.91740e+00_rb, &\n        & 0.89302e+00_rb,0.89281e+00_rb,0.87167e+00_rb,0.95907e+00_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.10107e+01_rb,0.91711e+00_rb,0.90716e+00_rb,0.92023e+00_rb,0.91517e+00_rb, &\n        & 0.89037e+00_rb,0.89222e+00_rb,0.87266e+00_rb,0.95928e+00_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.99633e+00_rb,0.90470e+00_rb,0.89927e+00_rb,0.91439e+00_rb,0.91120e+00_rb, &\n        & 0.88600e+00_rb,0.89266e+00_rb,0.87273e+00_rb,0.95886e+00_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.10264e+01_rb,0.95071e+00_rb,0.94674e+00_rb,0.96322e+00_rb,0.95099e+00_rb, &\n        & 0.91374e+00_rb,0.89446e+00_rb,0.87855e+00_rb,0.93628e+00_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.10149e+01_rb,0.94036e+00_rb,0.94196e+00_rb,0.96089e+00_rb,0.95153e+00_rb, &\n        & 0.91752e+00_rb,0.89401e+00_rb,0.87842e+00_rb,0.93496e+00_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.10022e+01_rb,0.92957e+00_rb,0.93566e+00_rb,0.95688e+00_rb,0.95066e+00_rb, &\n        & 0.91784e+00_rb,0.89284e+00_rb,0.87926e+00_rb,0.93586e+00_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.98847e+00_rb,0.91773e+00_rb,0.92854e+00_rb,0.95134e+00_rb,0.94862e+00_rb, &\n        & 0.91547e+00_rb,0.89366e+00_rb,0.87951e+00_rb,0.93591e+00_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.97390e+00_rb,0.90550e+00_rb,0.92045e+00_rb,0.94604e+00_rb,0.94431e+00_rb, &\n        & 0.91218e+00_rb,0.89395e+00_rb,0.87858e+00_rb,0.93476e+00_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.98609e+00_rb,0.93424e+00_rb,0.95643e+00_rb,0.97684e+00_rb,0.96999e+00_rb, &\n        & 0.93774e+00_rb,0.88693e+00_rb,0.86915e+00_rb,0.90145e+00_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.97412e+00_rb,0.92401e+00_rb,0.95137e+00_rb,0.97507e+00_rb,0.97005e+00_rb, &\n        & 0.94299e+00_rb,0.88698e+00_rb,0.86947e+00_rb,0.90218e+00_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.96114e+00_rb,0.91242e+00_rb,0.94531e+00_rb,0.97096e+00_rb,0.96958e+00_rb, &\n        & 0.94325e+00_rb,0.88812e+00_rb,0.86965e+00_rb,0.90220e+00_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.94742e+00_rb,0.90067e+00_rb,0.93796e+00_rb,0.96622e+00_rb,0.96802e+00_rb, &\n        & 0.94082e+00_rb,0.89013e+00_rb,0.86974e+00_rb,0.90156e+00_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.93336e+00_rb,0.88866e+00_rb,0.92975e+00_rb,0.96102e+00_rb,0.96365e+00_rb, &\n        & 0.93814e+00_rb,0.89133e+00_rb,0.86813e+00_rb,0.89955e+00_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.92984e+00_rb,0.90494e+00_rb,0.94972e+00_rb,0.97425e+00_rb,0.97662e+00_rb, &\n        & 0.94556e+00_rb,0.88351e+00_rb,0.85584e+00_rb,0.87463e+00_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.91725e+00_rb,0.89370e+00_rb,0.94535e+00_rb,0.97222e+00_rb,0.97680e+00_rb, &\n        & 0.95110e+00_rb,0.88518e+00_rb,0.85597e+00_rb,0.87435e+00_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.90427e+00_rb,0.88250e+00_rb,0.93903e+00_rb,0.96844e+00_rb,0.97606e+00_rb, &\n        & 0.95304e+00_rb,0.88753e+00_rb,0.85497e+00_rb,0.87307e+00_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.89063e+00_rb,0.87150e+00_rb,0.93110e+00_rb,0.96495e+00_rb,0.97386e+00_rb, &\n        & 0.95208e+00_rb,0.89056e+00_rb,0.85380e+00_rb,0.87067e+00_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.87675e+00_rb,0.86027e+00_rb,0.92261e+00_rb,0.96002e+00_rb,0.96930e+00_rb, &\n        & 0.94959e+00_rb,0.89201e+00_rb,0.85155e+00_rb,0.86905e+00_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.85919e+00_rb,0.86562e+00_rb,0.92649e+00_rb,0.95965e+00_rb,0.96523e+00_rb, &\n        & 0.93650e+00_rb,0.88529e+00_rb,0.84057e+00_rb,0.84722e+00_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.84717e+00_rb,0.85599e+00_rb,0.92166e+00_rb,0.95676e+00_rb,0.96677e+00_rb, &\n        & 0.94156e+00_rb,0.88807e+00_rb,0.84087e+00_rb,0.84785e+00_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.83473e+00_rb,0.84556e+00_rb,0.91525e+00_rb,0.95342e+00_rb,0.96579e+00_rb, &\n        & 0.94506e+00_rb,0.89084e+00_rb,0.83990e+00_rb,0.84680e+00_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.82211e+00_rb,0.83508e+00_rb,0.90782e+00_rb,0.94944e+00_rb,0.96296e+00_rb, &\n        & 0.94530e+00_rb,0.89295e+00_rb,0.83822e+00_rb,0.84533e+00_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.80945e+00_rb,0.82542e+00_rb,0.90011e+00_rb,0.94513e+00_rb,0.95957e+00_rb, &\n        & 0.94356e+00_rb,0.89326e+00_rb,0.83636e+00_rb,0.84582e+00_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.78535e+00_rb,0.81958e+00_rb,0.89069e+00_rb,0.92943e+00_rb,0.93702e+00_rb, &\n        & 0.91895e+00_rb,0.88182e+00_rb,0.81942e+00_rb,0.81355e+00_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.77455e+00_rb,0.81120e+00_rb,0.88449e+00_rb,0.92737e+00_rb,0.93847e+00_rb, &\n        & 0.92275e+00_rb,0.88568e+00_rb,0.82187e+00_rb,0.81529e+00_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.76320e+00_rb,0.80325e+00_rb,0.87799e+00_rb,0.92413e+00_rb,0.93785e+00_rb, &\n        & 0.92584e+00_rb,0.88848e+00_rb,0.82246e+00_rb,0.81526e+00_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.75209e+00_rb,0.79461e+00_rb,0.87173e+00_rb,0.92037e+00_rb,0.93562e+00_rb, &\n        & 0.92659e+00_rb,0.89042e+00_rb,0.82203e+00_rb,0.81583e+00_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.74191e+00_rb,0.78569e+00_rb,0.86500e+00_rb,0.91565e+00_rb,0.93275e+00_rb, &\n        & 0.92508e+00_rb,0.89021e+00_rb,0.82215e+00_rb,0.81833e+00_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.71539e+00_rb,0.77045e+00_rb,0.84442e+00_rb,0.88339e+00_rb,0.89968e+00_rb, &\n        & 0.89536e+00_rb,0.86841e+00_rb,0.79955e+00_rb,0.77318e+00_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.70564e+00_rb,0.76424e+00_rb,0.83867e+00_rb,0.88222e+00_rb,0.90019e+00_rb, &\n        & 0.89929e+00_rb,0.87308e+00_rb,0.80390e+00_rb,0.77664e+00_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.69566e+00_rb,0.75811e+00_rb,0.83280e+00_rb,0.87940e+00_rb,0.90026e+00_rb, &\n        & 0.90222e+00_rb,0.87663e+00_rb,0.80593e+00_rb,0.77834e+00_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.68611e+00_rb,0.75067e+00_rb,0.82727e+00_rb,0.87623e+00_rb,0.89845e+00_rb, &\n        & 0.90248e+00_rb,0.87886e+00_rb,0.80698e+00_rb,0.78085e+00_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.67924e+00_rb,0.74336e+00_rb,0.82173e+00_rb,0.87192e+00_rb,0.89575e+00_rb, &\n        & 0.90118e+00_rb,0.87929e+00_rb,0.80840e+00_rb,0.78556e+00_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.64750e+00_rb,0.72291e+00_rb,0.79049e+00_rb,0.83093e+00_rb,0.85723e+00_rb, &\n        & 0.86420e+00_rb,0.84410e+00_rb,0.78062e+00_rb,0.72995e+00_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.63786e+00_rb,0.71701e+00_rb,0.78689e+00_rb,0.82920e+00_rb,0.85838e+00_rb, &\n        & 0.86903e+00_rb,0.84994e+00_rb,0.78581e+00_rb,0.73484e+00_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.62879e+00_rb,0.71055e+00_rb,0.78212e+00_rb,0.82630e+00_rb,0.85919e+00_rb, &\n        & 0.87234e+00_rb,0.85358e+00_rb,0.78925e+00_rb,0.73873e+00_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.62087e+00_rb,0.70389e+00_rb,0.77761e+00_rb,0.82356e+00_rb,0.85812e+00_rb, &\n        & 0.87281e+00_rb,0.85602e+00_rb,0.79174e+00_rb,0.74394e+00_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.61947e+00_rb,0.69759e+00_rb,0.77360e+00_rb,0.82013e+00_rb,0.85542e+00_rb, &\n        & 0.87157e+00_rb,0.85709e+00_rb,0.79529e+00_rb,0.75052e+00_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.57317e+00_rb,0.67082e+00_rb,0.73559e+00_rb,0.77934e+00_rb,0.81170e+00_rb, &\n        & 0.82582e+00_rb,0.81431e+00_rb,0.75887e+00_rb,0.68710e+00_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.56447e+00_rb,0.66437e+00_rb,0.73216e+00_rb,0.77740e+00_rb,0.81370e+00_rb, &\n        & 0.83183e+00_rb,0.81926e+00_rb,0.76438e+00_rb,0.69316e+00_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.55710e+00_rb,0.65798e+00_rb,0.72792e+00_rb,0.77609e+00_rb,0.81480e+00_rb, &\n        & 0.83377e+00_rb,0.82304e+00_rb,0.76833e+00_rb,0.70018e+00_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.55630e+00_rb,0.65257e+00_rb,0.72437e+00_rb,0.77329e+00_rb,0.81397e+00_rb, &\n        & 0.83437e+00_rb,0.82566e+00_rb,0.77320e+00_rb,0.70886e+00_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.56411e+00_rb,0.65194e+00_rb,0.72119e+00_rb,0.77017e+00_rb,0.81118e+00_rb, &\n        & 0.83405e+00_rb,0.82785e+00_rb,0.77913e+00_rb,0.71658e+00_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.50093e+00_rb,0.61265e+00_rb,0.68222e+00_rb,0.73081e+00_rb,0.76376e+00_rb, &\n        & 0.78196e+00_rb,0.77611e+00_rb,0.73046e+00_rb,0.64374e+00_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.49374e+00_rb,0.60693e+00_rb,0.67860e+00_rb,0.73087e+00_rb,0.76701e+00_rb, &\n        & 0.78657e+00_rb,0.78196e+00_rb,0.73646e+00_rb,0.65183e+00_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.49262e+00_rb,0.60232e+00_rb,0.67517e+00_rb,0.73017e+00_rb,0.76805e+00_rb, &\n        & 0.78863e+00_rb,0.78651e+00_rb,0.74261e+00_rb,0.66205e+00_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.49989e+00_rb,0.60234e+00_rb,0.67259e+00_rb,0.72790e+00_rb,0.76753e+00_rb, &\n        & 0.79017e+00_rb,0.79054e+00_rb,0.75027e+00_rb,0.67174e+00_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.51177e+00_rb,0.60963e+00_rb,0.67313e+00_rb,0.72489e+00_rb,0.76606e+00_rb, &\n        & 0.79187e+00_rb,0.79524e+00_rb,0.75809e+00_rb,0.67955e+00_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.43610e+00_rb,0.55280e+00_rb,0.62805e+00_rb,0.68236e+00_rb,0.71726e+00_rb, &\n        & 0.73439e+00_rb,0.73316e+00_rb,0.69581e+00_rb,0.60098e+00_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.43332e+00_rb,0.54879e+00_rb,0.62602e+00_rb,0.68387e+00_rb,0.71981e+00_rb, &\n        & 0.73863e+00_rb,0.74004e+00_rb,0.70395e+00_rb,0.61188e+00_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.43938e+00_rb,0.54819e+00_rb,0.62420e+00_rb,0.68392e+00_rb,0.72120e+00_rb, &\n        & 0.74159e+00_rb,0.74634e+00_rb,0.71286e+00_rb,0.62343e+00_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.44997e+00_rb,0.55515e+00_rb,0.62479e+00_rb,0.68255e+00_rb,0.72173e+00_rb, &\n        & 0.74510e+00_rb,0.75297e+00_rb,0.72278e+00_rb,0.63265e+00_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.46055e+00_rb,0.56787e+00_rb,0.63110e+00_rb,0.68248e+00_rb,0.72225e+00_rb, &\n        & 0.74921e+00_rb,0.75987e+00_rb,0.73098e+00_rb,0.64026e+00_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.14171e+01_rb,0.12412e+01_rb,0.11453e+01_rb,0.11122e+01_rb,0.11253e+01_rb, &\n        & 0.11573e+01_rb,0.11791e+01_rb,0.12973e+01_rb,0.14638e+01_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.14090e+01_rb,0.12342e+01_rb,0.11388e+01_rb,0.11095e+01_rb,0.11322e+01_rb, &\n        & 0.11607e+01_rb,0.11781e+01_rb,0.12938e+01_rb,0.14611e+01_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.13994e+01_rb,0.12258e+01_rb,0.11299e+01_rb,0.11046e+01_rb,0.11339e+01_rb, &\n        & 0.11641e+01_rb,0.11762e+01_rb,0.12907e+01_rb,0.14569e+01_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.13872e+01_rb,0.12151e+01_rb,0.11205e+01_rb,0.10983e+01_rb,0.11321e+01_rb, &\n        & 0.11655e+01_rb,0.11746e+01_rb,0.12884e+01_rb,0.14537e+01_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.13737e+01_rb,0.12034e+01_rb,0.11101e+01_rb,0.10915e+01_rb,0.11280e+01_rb, &\n        & 0.11664e+01_rb,0.11724e+01_rb,0.12834e+01_rb,0.14491e+01_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.15051e+01_rb,0.13181e+01_rb,0.12304e+01_rb,0.11719e+01_rb,0.11855e+01_rb, &\n        & 0.12309e+01_rb,0.12496e+01_rb,0.13203e+01_rb,0.15049e+01_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.14984e+01_rb,0.13123e+01_rb,0.12250e+01_rb,0.11699e+01_rb,0.11925e+01_rb, &\n        & 0.12340e+01_rb,0.12487e+01_rb,0.13193e+01_rb,0.15024e+01_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.14884e+01_rb,0.13036e+01_rb,0.12176e+01_rb,0.11665e+01_rb,0.11942e+01_rb, &\n        & 0.12376e+01_rb,0.12478e+01_rb,0.13196e+01_rb,0.15020e+01_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.14762e+01_rb,0.12929e+01_rb,0.12082e+01_rb,0.11628e+01_rb,0.11911e+01_rb, &\n        & 0.12406e+01_rb,0.12476e+01_rb,0.13168e+01_rb,0.15001e+01_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.14614e+01_rb,0.12800e+01_rb,0.11975e+01_rb,0.11575e+01_rb,0.11857e+01_rb, &\n        & 0.12414e+01_rb,0.12460e+01_rb,0.13124e+01_rb,0.14945e+01_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.15822e+01_rb,0.13890e+01_rb,0.13182e+01_rb,0.12547e+01_rb,0.12476e+01_rb, &\n        & 0.12873e+01_rb,0.13056e+01_rb,0.13300e+01_rb,0.15181e+01_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.15752e+01_rb,0.13826e+01_rb,0.13120e+01_rb,0.12557e+01_rb,0.12556e+01_rb, &\n        & 0.12906e+01_rb,0.13067e+01_rb,0.13310e+01_rb,0.15193e+01_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.15647e+01_rb,0.13732e+01_rb,0.13046e+01_rb,0.12538e+01_rb,0.12575e+01_rb, &\n        & 0.12941e+01_rb,0.13084e+01_rb,0.13307e+01_rb,0.15193e+01_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.15514e+01_rb,0.13616e+01_rb,0.12950e+01_rb,0.12500e+01_rb,0.12556e+01_rb, &\n        & 0.12989e+01_rb,0.13088e+01_rb,0.13292e+01_rb,0.15174e+01_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.15358e+01_rb,0.13480e+01_rb,0.12843e+01_rb,0.12443e+01_rb,0.12517e+01_rb, &\n        & 0.13009e+01_rb,0.13074e+01_rb,0.13265e+01_rb,0.15142e+01_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.16350e+01_rb,0.14490e+01_rb,0.13916e+01_rb,0.13443e+01_rb,0.13174e+01_rb, &\n        & 0.13244e+01_rb,0.13476e+01_rb,0.13365e+01_rb,0.15180e+01_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.16281e+01_rb,0.14425e+01_rb,0.13866e+01_rb,0.13479e+01_rb,0.13260e+01_rb, &\n        & 0.13268e+01_rb,0.13503e+01_rb,0.13390e+01_rb,0.15205e+01_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.16161e+01_rb,0.14310e+01_rb,0.13789e+01_rb,0.13476e+01_rb,0.13293e+01_rb, &\n        & 0.13314e+01_rb,0.13532e+01_rb,0.13408e+01_rb,0.15220e+01_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.16014e+01_rb,0.14178e+01_rb,0.13691e+01_rb,0.13444e+01_rb,0.13282e+01_rb, &\n        & 0.13379e+01_rb,0.13534e+01_rb,0.13410e+01_rb,0.15212e+01_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.15848e+01_rb,0.14026e+01_rb,0.13577e+01_rb,0.13378e+01_rb,0.13257e+01_rb, &\n        & 0.13408e+01_rb,0.13534e+01_rb,0.13387e+01_rb,0.15183e+01_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.16591e+01_rb,0.14947e+01_rb,0.14480e+01_rb,0.14262e+01_rb,0.13903e+01_rb, &\n        & 0.13587e+01_rb,0.13777e+01_rb,0.13491e+01_rb,0.15046e+01_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.16509e+01_rb,0.14862e+01_rb,0.14440e+01_rb,0.14316e+01_rb,0.13991e+01_rb, &\n        & 0.13598e+01_rb,0.13805e+01_rb,0.13541e+01_rb,0.15083e+01_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.16386e+01_rb,0.14750e+01_rb,0.14364e+01_rb,0.14307e+01_rb,0.14045e+01_rb, &\n        & 0.13655e+01_rb,0.13826e+01_rb,0.13579e+01_rb,0.15118e+01_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.16229e+01_rb,0.14605e+01_rb,0.14277e+01_rb,0.14269e+01_rb,0.14036e+01_rb, &\n        & 0.13722e+01_rb,0.13840e+01_rb,0.13579e+01_rb,0.15115e+01_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.16043e+01_rb,0.14439e+01_rb,0.14169e+01_rb,0.14203e+01_rb,0.14024e+01_rb, &\n        & 0.13765e+01_rb,0.13831e+01_rb,0.13575e+01_rb,0.15115e+01_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.16482e+01_rb,0.15147e+01_rb,0.14918e+01_rb,0.14883e+01_rb,0.14555e+01_rb, &\n        & 0.14030e+01_rb,0.13913e+01_rb,0.13585e+01_rb,0.14685e+01_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.16385e+01_rb,0.15059e+01_rb,0.14880e+01_rb,0.14958e+01_rb,0.14629e+01_rb, &\n        & 0.14056e+01_rb,0.13940e+01_rb,0.13659e+01_rb,0.14762e+01_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.16253e+01_rb,0.14941e+01_rb,0.14803e+01_rb,0.14965e+01_rb,0.14689e+01_rb, &\n        & 0.14106e+01_rb,0.13970e+01_rb,0.13717e+01_rb,0.14817e+01_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.16089e+01_rb,0.14791e+01_rb,0.14713e+01_rb,0.14908e+01_rb,0.14702e+01_rb, &\n        & 0.14165e+01_rb,0.13983e+01_rb,0.13748e+01_rb,0.14851e+01_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.15910e+01_rb,0.14633e+01_rb,0.14618e+01_rb,0.14838e+01_rb,0.14693e+01_rb, &\n        & 0.14213e+01_rb,0.13976e+01_rb,0.13770e+01_rb,0.14876e+01_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.16064e+01_rb,0.15086e+01_rb,0.15144e+01_rb,0.15268e+01_rb,0.15040e+01_rb, &\n        & 0.14507e+01_rb,0.13904e+01_rb,0.13521e+01_rb,0.14179e+01_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.15953e+01_rb,0.14985e+01_rb,0.15140e+01_rb,0.15345e+01_rb,0.15085e+01_rb, &\n        & 0.14549e+01_rb,0.13952e+01_rb,0.13604e+01_rb,0.14259e+01_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.15801e+01_rb,0.14851e+01_rb,0.15073e+01_rb,0.15363e+01_rb,0.15134e+01_rb, &\n        & 0.14598e+01_rb,0.13998e+01_rb,0.13678e+01_rb,0.14328e+01_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.15629e+01_rb,0.14703e+01_rb,0.14995e+01_rb,0.15318e+01_rb,0.15172e+01_rb, &\n        & 0.14656e+01_rb,0.14020e+01_rb,0.13732e+01_rb,0.14388e+01_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.15443e+01_rb,0.14531e+01_rb,0.14892e+01_rb,0.15236e+01_rb,0.15169e+01_rb, &\n        & 0.14692e+01_rb,0.14038e+01_rb,0.13766e+01_rb,0.14425e+01_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.15344e+01_rb,0.14766e+01_rb,0.15157e+01_rb,0.15423e+01_rb,0.15330e+01_rb, &\n        & 0.14811e+01_rb,0.13889e+01_rb,0.13373e+01_rb,0.13698e+01_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.15222e+01_rb,0.14679e+01_rb,0.15175e+01_rb,0.15473e+01_rb,0.15363e+01_rb, &\n        & 0.14872e+01_rb,0.13948e+01_rb,0.13442e+01_rb,0.13786e+01_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.15059e+01_rb,0.14533e+01_rb,0.15144e+01_rb,0.15489e+01_rb,0.15409e+01_rb, &\n        & 0.14932e+01_rb,0.14005e+01_rb,0.13518e+01_rb,0.13861e+01_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.14877e+01_rb,0.14368e+01_rb,0.15058e+01_rb,0.15451e+01_rb,0.15445e+01_rb, &\n        & 0.14989e+01_rb,0.14044e+01_rb,0.13574e+01_rb,0.13922e+01_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.14686e+01_rb,0.14200e+01_rb,0.14953e+01_rb,0.15388e+01_rb,0.15447e+01_rb, &\n        & 0.15024e+01_rb,0.14082e+01_rb,0.13605e+01_rb,0.13964e+01_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.14373e+01_rb,0.14266e+01_rb,0.14938e+01_rb,0.15367e+01_rb,0.15341e+01_rb, &\n        & 0.14871e+01_rb,0.13939e+01_rb,0.13173e+01_rb,0.13285e+01_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.14250e+01_rb,0.14168e+01_rb,0.14968e+01_rb,0.15390e+01_rb,0.15386e+01_rb, &\n        & 0.14934e+01_rb,0.13987e+01_rb,0.13260e+01_rb,0.13388e+01_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.14085e+01_rb,0.14020e+01_rb,0.14946e+01_rb,0.15393e+01_rb,0.15430e+01_rb, &\n        & 0.14996e+01_rb,0.14050e+01_rb,0.13340e+01_rb,0.13471e+01_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.13898e+01_rb,0.13862e+01_rb,0.14874e+01_rb,0.15365e+01_rb,0.15469e+01_rb, &\n        & 0.15061e+01_rb,0.14095e+01_rb,0.13387e+01_rb,0.13529e+01_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.13711e+01_rb,0.13694e+01_rb,0.14772e+01_rb,0.15321e+01_rb,0.15481e+01_rb, &\n        & 0.15103e+01_rb,0.14136e+01_rb,0.13413e+01_rb,0.13557e+01_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.13234e+01_rb,0.13585e+01_rb,0.14531e+01_rb,0.15073e+01_rb,0.15094e+01_rb, &\n        & 0.14728e+01_rb,0.13972e+01_rb,0.12936e+01_rb,0.12835e+01_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.13109e+01_rb,0.13494e+01_rb,0.14540e+01_rb,0.15085e+01_rb,0.15139e+01_rb, &\n        & 0.14784e+01_rb,0.14019e+01_rb,0.13047e+01_rb,0.12968e+01_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.12956e+01_rb,0.13371e+01_rb,0.14504e+01_rb,0.15092e+01_rb,0.15192e+01_rb, &\n        & 0.14835e+01_rb,0.14094e+01_rb,0.13136e+01_rb,0.13076e+01_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.12784e+01_rb,0.13237e+01_rb,0.14435e+01_rb,0.15071e+01_rb,0.15234e+01_rb, &\n        & 0.14905e+01_rb,0.14145e+01_rb,0.13190e+01_rb,0.13139e+01_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.12607e+01_rb,0.13090e+01_rb,0.14344e+01_rb,0.15038e+01_rb,0.15261e+01_rb, &\n        & 0.14956e+01_rb,0.14181e+01_rb,0.13210e+01_rb,0.13178e+01_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.12047e+01_rb,0.12789e+01_rb,0.13923e+01_rb,0.14530e+01_rb,0.14659e+01_rb, &\n        & 0.14483e+01_rb,0.13898e+01_rb,0.12749e+01_rb,0.12386e+01_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.11911e+01_rb,0.12701e+01_rb,0.13902e+01_rb,0.14549e+01_rb,0.14710e+01_rb, &\n        & 0.14517e+01_rb,0.13981e+01_rb,0.12874e+01_rb,0.12546e+01_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.11768e+01_rb,0.12599e+01_rb,0.13852e+01_rb,0.14552e+01_rb,0.14760e+01_rb, &\n        & 0.14581e+01_rb,0.14056e+01_rb,0.12968e+01_rb,0.12644e+01_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.11609e+01_rb,0.12491e+01_rb,0.13785e+01_rb,0.14542e+01_rb,0.14794e+01_rb, &\n        & 0.14643e+01_rb,0.14106e+01_rb,0.13015e+01_rb,0.12707e+01_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.11453e+01_rb,0.12370e+01_rb,0.13722e+01_rb,0.14526e+01_rb,0.14820e+01_rb, &\n        & 0.14680e+01_rb,0.14139e+01_rb,0.13041e+01_rb,0.12775e+01_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.10892e+01_rb,0.11978e+01_rb,0.13175e+01_rb,0.13800e+01_rb,0.14113e+01_rb, &\n        & 0.14104e+01_rb,0.13697e+01_rb,0.12563e+01_rb,0.11895e+01_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.10764e+01_rb,0.11912e+01_rb,0.13142e+01_rb,0.13828e+01_rb,0.14151e+01_rb, &\n        & 0.14161e+01_rb,0.13800e+01_rb,0.12704e+01_rb,0.12046e+01_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.10634e+01_rb,0.11835e+01_rb,0.13099e+01_rb,0.13835e+01_rb,0.14196e+01_rb, &\n        & 0.14241e+01_rb,0.13887e+01_rb,0.12786e+01_rb,0.12148e+01_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.10495e+01_rb,0.11751e+01_rb,0.13057e+01_rb,0.13846e+01_rb,0.14230e+01_rb, &\n        & 0.14300e+01_rb,0.13945e+01_rb,0.12836e+01_rb,0.12244e+01_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.10406e+01_rb,0.11650e+01_rb,0.13011e+01_rb,0.13864e+01_rb,0.14254e+01_rb, &\n        & 0.14322e+01_rb,0.13980e+01_rb,0.12878e+01_rb,0.12342e+01_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.97671e+00_rb,0.11194e+01_rb,0.12352e+01_rb,0.13029e+01_rb,0.13468e+01_rb, &\n        & 0.13623e+01_rb,0.13355e+01_rb,0.12363e+01_rb,0.11351e+01_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.96514e+00_rb,0.11135e+01_rb,0.12326e+01_rb,0.13049e+01_rb,0.13523e+01_rb, &\n        & 0.13721e+01_rb,0.13488e+01_rb,0.12496e+01_rb,0.11500e+01_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.95350e+00_rb,0.11073e+01_rb,0.12308e+01_rb,0.13063e+01_rb,0.13575e+01_rb, &\n        & 0.13815e+01_rb,0.13588e+01_rb,0.12584e+01_rb,0.11629e+01_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.94648e+00_rb,0.11002e+01_rb,0.12294e+01_rb,0.13087e+01_rb,0.13617e+01_rb, &\n        & 0.13873e+01_rb,0.13660e+01_rb,0.12653e+01_rb,0.11761e+01_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.94953e+00_rb,0.10941e+01_rb,0.12277e+01_rb,0.13116e+01_rb,0.13645e+01_rb, &\n        & 0.13901e+01_rb,0.13713e+01_rb,0.12717e+01_rb,0.11896e+01_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.21877e+01_rb,0.19168e+01_rb,0.16830e+01_rb,0.16306e+01_rb,0.15763e+01_rb, &\n        & 0.15398e+01_rb,0.15859e+01_rb,0.18468e+01_rb,0.20593e+01_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.22022e+01_rb,0.19296e+01_rb,0.16916e+01_rb,0.16400e+01_rb,0.15796e+01_rb, &\n        & 0.15432e+01_rb,0.15912e+01_rb,0.18534e+01_rb,0.20655e+01_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.22022e+01_rb,0.19297e+01_rb,0.16911e+01_rb,0.16436e+01_rb,0.15885e+01_rb, &\n        & 0.15469e+01_rb,0.15941e+01_rb,0.18569e+01_rb,0.20695e+01_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.21895e+01_rb,0.19186e+01_rb,0.16803e+01_rb,0.16425e+01_rb,0.15962e+01_rb, &\n        & 0.15525e+01_rb,0.15947e+01_rb,0.18575e+01_rb,0.20703e+01_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.21697e+01_rb,0.19013e+01_rb,0.16648e+01_rb,0.16344e+01_rb,0.16003e+01_rb, &\n        & 0.15574e+01_rb,0.15941e+01_rb,0.18572e+01_rb,0.20709e+01_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.22550e+01_rb,0.19753e+01_rb,0.17734e+01_rb,0.17443e+01_rb,0.17102e+01_rb, &\n        & 0.16986e+01_rb,0.17217e+01_rb,0.19863e+01_rb,0.22329e+01_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.22679e+01_rb,0.19867e+01_rb,0.17791e+01_rb,0.17520e+01_rb,0.17112e+01_rb, &\n        & 0.17026e+01_rb,0.17283e+01_rb,0.19934e+01_rb,0.22409e+01_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.22698e+01_rb,0.19883e+01_rb,0.17767e+01_rb,0.17568e+01_rb,0.17174e+01_rb, &\n        & 0.17053e+01_rb,0.17318e+01_rb,0.19966e+01_rb,0.22448e+01_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.22597e+01_rb,0.19796e+01_rb,0.17668e+01_rb,0.17548e+01_rb,0.17261e+01_rb, &\n        & 0.17073e+01_rb,0.17314e+01_rb,0.19968e+01_rb,0.22451e+01_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.22409e+01_rb,0.19632e+01_rb,0.17511e+01_rb,0.17475e+01_rb,0.17318e+01_rb, &\n        & 0.17099e+01_rb,0.17295e+01_rb,0.19947e+01_rb,0.22431e+01_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.23526e+01_rb,0.20603e+01_rb,0.18829e+01_rb,0.18493e+01_rb,0.18420e+01_rb, &\n        & 0.18637e+01_rb,0.18729e+01_rb,0.21122e+01_rb,0.23977e+01_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.23692e+01_rb,0.20749e+01_rb,0.18925e+01_rb,0.18515e+01_rb,0.18400e+01_rb, &\n        & 0.18683e+01_rb,0.18793e+01_rb,0.21211e+01_rb,0.24079e+01_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.23722e+01_rb,0.20775e+01_rb,0.18924e+01_rb,0.18562e+01_rb,0.18451e+01_rb, &\n        & 0.18704e+01_rb,0.18820e+01_rb,0.21249e+01_rb,0.24125e+01_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.23635e+01_rb,0.20699e+01_rb,0.18842e+01_rb,0.18555e+01_rb,0.18524e+01_rb, &\n        & 0.18695e+01_rb,0.18827e+01_rb,0.21252e+01_rb,0.24130e+01_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.23480e+01_rb,0.20564e+01_rb,0.18701e+01_rb,0.18499e+01_rb,0.18587e+01_rb, &\n        & 0.18689e+01_rb,0.18824e+01_rb,0.21250e+01_rb,0.24123e+01_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.24939e+01_rb,0.21837e+01_rb,0.20232e+01_rb,0.19589e+01_rb,0.19737e+01_rb, &\n        & 0.20251e+01_rb,0.20263e+01_rb,0.22145e+01_rb,0.25248e+01_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.25110e+01_rb,0.21986e+01_rb,0.20314e+01_rb,0.19589e+01_rb,0.19697e+01_rb, &\n        & 0.20307e+01_rb,0.20352e+01_rb,0.22253e+01_rb,0.25374e+01_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.25161e+01_rb,0.22032e+01_rb,0.20346e+01_rb,0.19625e+01_rb,0.19727e+01_rb, &\n        & 0.20334e+01_rb,0.20403e+01_rb,0.22301e+01_rb,0.25429e+01_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.25095e+01_rb,0.21974e+01_rb,0.20283e+01_rb,0.19657e+01_rb,0.19780e+01_rb, &\n        & 0.20313e+01_rb,0.20420e+01_rb,0.22330e+01_rb,0.25458e+01_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.24957e+01_rb,0.21853e+01_rb,0.20162e+01_rb,0.19613e+01_rb,0.19825e+01_rb, &\n        & 0.20289e+01_rb,0.20423e+01_rb,0.22370e+01_rb,0.25500e+01_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.26637e+01_rb,0.23330e+01_rb,0.21864e+01_rb,0.20904e+01_rb,0.21013e+01_rb, &\n        & 0.21699e+01_rb,0.21691e+01_rb,0.22859e+01_rb,0.26102e+01_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.26795e+01_rb,0.23466e+01_rb,0.21930e+01_rb,0.20883e+01_rb,0.21007e+01_rb, &\n        & 0.21775e+01_rb,0.21807e+01_rb,0.22957e+01_rb,0.26216e+01_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.26872e+01_rb,0.23531e+01_rb,0.22001e+01_rb,0.20926e+01_rb,0.21029e+01_rb, &\n        & 0.21797e+01_rb,0.21879e+01_rb,0.23020e+01_rb,0.26289e+01_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.26803e+01_rb,0.23471e+01_rb,0.21948e+01_rb,0.20970e+01_rb,0.21069e+01_rb, &\n        & 0.21770e+01_rb,0.21901e+01_rb,0.23087e+01_rb,0.26364e+01_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.26667e+01_rb,0.23351e+01_rb,0.21832e+01_rb,0.20959e+01_rb,0.21091e+01_rb, &\n        & 0.21729e+01_rb,0.21936e+01_rb,0.23158e+01_rb,0.26444e+01_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.28246e+01_rb,0.24844e+01_rb,0.23554e+01_rb,0.22494e+01_rb,0.22325e+01_rb, &\n        & 0.22877e+01_rb,0.22925e+01_rb,0.23319e+01_rb,0.26619e+01_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.28376e+01_rb,0.24941e+01_rb,0.23589e+01_rb,0.22458e+01_rb,0.22369e+01_rb, &\n        & 0.22959e+01_rb,0.23048e+01_rb,0.23408e+01_rb,0.26720e+01_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.28468e+01_rb,0.25010e+01_rb,0.23646e+01_rb,0.22473e+01_rb,0.22379e+01_rb, &\n        & 0.22992e+01_rb,0.23116e+01_rb,0.23486e+01_rb,0.26812e+01_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.28432e+01_rb,0.24967e+01_rb,0.23643e+01_rb,0.22531e+01_rb,0.22409e+01_rb, &\n        & 0.22981e+01_rb,0.23157e+01_rb,0.23572e+01_rb,0.26911e+01_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.28266e+01_rb,0.24816e+01_rb,0.23521e+01_rb,0.22549e+01_rb,0.22433e+01_rb, &\n        & 0.22953e+01_rb,0.23213e+01_rb,0.23655e+01_rb,0.27010e+01_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.29507e+01_rb,0.26186e+01_rb,0.25154e+01_rb,0.24214e+01_rb,0.23698e+01_rb, &\n        & 0.23809e+01_rb,0.23936e+01_rb,0.23723e+01_rb,0.26904e+01_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.29579e+01_rb,0.26218e+01_rb,0.25131e+01_rb,0.24179e+01_rb,0.23791e+01_rb, &\n        & 0.23895e+01_rb,0.24036e+01_rb,0.23830e+01_rb,0.27026e+01_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.29645e+01_rb,0.26250e+01_rb,0.25156e+01_rb,0.24180e+01_rb,0.23828e+01_rb, &\n        & 0.23929e+01_rb,0.24104e+01_rb,0.23923e+01_rb,0.27131e+01_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.29630e+01_rb,0.26222e+01_rb,0.25142e+01_rb,0.24231e+01_rb,0.23851e+01_rb, &\n        & 0.23923e+01_rb,0.24170e+01_rb,0.24017e+01_rb,0.27241e+01_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.29476e+01_rb,0.26071e+01_rb,0.25053e+01_rb,0.24267e+01_rb,0.23855e+01_rb, &\n        & 0.23922e+01_rb,0.24228e+01_rb,0.24116e+01_rb,0.27361e+01_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.30283e+01_rb,0.27271e+01_rb,0.26499e+01_rb,0.25812e+01_rb,0.25068e+01_rb, &\n        & 0.24674e+01_rb,0.24700e+01_rb,0.24088e+01_rb,0.26873e+01_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.30302e+01_rb,0.27229e+01_rb,0.26429e+01_rb,0.25805e+01_rb,0.25199e+01_rb, &\n        & 0.24758e+01_rb,0.24797e+01_rb,0.24223e+01_rb,0.27017e+01_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.30313e+01_rb,0.27198e+01_rb,0.26386e+01_rb,0.25814e+01_rb,0.25257e+01_rb, &\n        & 0.24788e+01_rb,0.24874e+01_rb,0.24335e+01_rb,0.27156e+01_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.30296e+01_rb,0.27153e+01_rb,0.26358e+01_rb,0.25865e+01_rb,0.25285e+01_rb, &\n        & 0.24798e+01_rb,0.24941e+01_rb,0.24451e+01_rb,0.27296e+01_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.30139e+01_rb,0.26994e+01_rb,0.26290e+01_rb,0.25893e+01_rb,0.25296e+01_rb, &\n        & 0.24809e+01_rb,0.25004e+01_rb,0.24568e+01_rb,0.27436e+01_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.30493e+01_rb,0.27941e+01_rb,0.27550e+01_rb,0.27119e+01_rb,0.26405e+01_rb, &\n        & 0.25561e+01_rb,0.25144e+01_rb,0.24302e+01_rb,0.26456e+01_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.30457e+01_rb,0.27865e+01_rb,0.27445e+01_rb,0.27145e+01_rb,0.26540e+01_rb, &\n        & 0.25649e+01_rb,0.25264e+01_rb,0.24468e+01_rb,0.26636e+01_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.30433e+01_rb,0.27809e+01_rb,0.27367e+01_rb,0.27179e+01_rb,0.26606e+01_rb, &\n        & 0.25683e+01_rb,0.25354e+01_rb,0.24613e+01_rb,0.26815e+01_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.30389e+01_rb,0.27734e+01_rb,0.27309e+01_rb,0.27229e+01_rb,0.26627e+01_rb, &\n        & 0.25715e+01_rb,0.25441e+01_rb,0.24765e+01_rb,0.27005e+01_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.30246e+01_rb,0.27583e+01_rb,0.27239e+01_rb,0.27244e+01_rb,0.26642e+01_rb, &\n        & 0.25740e+01_rb,0.25518e+01_rb,0.24921e+01_rb,0.27199e+01_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.30121e+01_rb,0.28154e+01_rb,0.28201e+01_rb,0.28057e+01_rb,0.27531e+01_rb, &\n        & 0.26438e+01_rb,0.25360e+01_rb,0.24395e+01_rb,0.25814e+01_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.30058e+01_rb,0.28055e+01_rb,0.28091e+01_rb,0.28117e+01_rb,0.27659e+01_rb, &\n        & 0.26536e+01_rb,0.25505e+01_rb,0.24578e+01_rb,0.26020e+01_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.29984e+01_rb,0.27957e+01_rb,0.28033e+01_rb,0.28172e+01_rb,0.27717e+01_rb, &\n        & 0.26597e+01_rb,0.25631e+01_rb,0.24765e+01_rb,0.26239e+01_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.29909e+01_rb,0.27859e+01_rb,0.27980e+01_rb,0.28231e+01_rb,0.27737e+01_rb, &\n        & 0.26641e+01_rb,0.25752e+01_rb,0.24953e+01_rb,0.26473e+01_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.29757e+01_rb,0.27703e+01_rb,0.27906e+01_rb,0.28248e+01_rb,0.27751e+01_rb, &\n        & 0.26687e+01_rb,0.25862e+01_rb,0.25141e+01_rb,0.26704e+01_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.29105e+01_rb,0.27849e+01_rb,0.28418e+01_rb,0.28641e+01_rb,0.28368e+01_rb, &\n        & 0.27205e+01_rb,0.25555e+01_rb,0.24401e+01_rb,0.25196e+01_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.29013e+01_rb,0.27742e+01_rb,0.28363e+01_rb,0.28719e+01_rb,0.28460e+01_rb, &\n        & 0.27321e+01_rb,0.25730e+01_rb,0.24607e+01_rb,0.25412e+01_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.28911e+01_rb,0.27633e+01_rb,0.28321e+01_rb,0.28799e+01_rb,0.28506e+01_rb, &\n        & 0.27417e+01_rb,0.25892e+01_rb,0.24813e+01_rb,0.25665e+01_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.28805e+01_rb,0.27495e+01_rb,0.28275e+01_rb,0.28852e+01_rb,0.28551e+01_rb, &\n        & 0.27503e+01_rb,0.26048e+01_rb,0.25023e+01_rb,0.25905e+01_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.28607e+01_rb,0.27299e+01_rb,0.28179e+01_rb,0.28868e+01_rb,0.28597e+01_rb, &\n        & 0.27578e+01_rb,0.26198e+01_rb,0.25207e+01_rb,0.26120e+01_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.27583e+01_rb,0.27145e+01_rb,0.28231e+01_rb,0.28871e+01_rb,0.28764e+01_rb, &\n        & 0.27674e+01_rb,0.25743e+01_rb,0.24278e+01_rb,0.24570e+01_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.27477e+01_rb,0.27023e+01_rb,0.28226e+01_rb,0.28962e+01_rb,0.28884e+01_rb, &\n        & 0.27832e+01_rb,0.25939e+01_rb,0.24483e+01_rb,0.24817e+01_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.27363e+01_rb,0.26890e+01_rb,0.28229e+01_rb,0.29041e+01_rb,0.28966e+01_rb, &\n        & 0.27972e+01_rb,0.26117e+01_rb,0.24706e+01_rb,0.25053e+01_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.27215e+01_rb,0.26719e+01_rb,0.28199e+01_rb,0.29098e+01_rb,0.29044e+01_rb, &\n        & 0.28097e+01_rb,0.26305e+01_rb,0.24926e+01_rb,0.25297e+01_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.27019e+01_rb,0.26521e+01_rb,0.28123e+01_rb,0.29106e+01_rb,0.29127e+01_rb, &\n        & 0.28234e+01_rb,0.26485e+01_rb,0.25112e+01_rb,0.25512e+01_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.25703e+01_rb,0.26073e+01_rb,0.27736e+01_rb,0.28686e+01_rb,0.28762e+01_rb, &\n        & 0.27819e+01_rb,0.25967e+01_rb,0.24069e+01_rb,0.23967e+01_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.25597e+01_rb,0.25968e+01_rb,0.27777e+01_rb,0.28810e+01_rb,0.28904e+01_rb, &\n        & 0.28011e+01_rb,0.26158e+01_rb,0.24298e+01_rb,0.24224e+01_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.25492e+01_rb,0.25857e+01_rb,0.27800e+01_rb,0.28929e+01_rb,0.29040e+01_rb, &\n        & 0.28202e+01_rb,0.26351e+01_rb,0.24527e+01_rb,0.24494e+01_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.25336e+01_rb,0.25705e+01_rb,0.27801e+01_rb,0.29008e+01_rb,0.29182e+01_rb, &\n        & 0.28403e+01_rb,0.26542e+01_rb,0.24758e+01_rb,0.24745e+01_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.25174e+01_rb,0.25538e+01_rb,0.27760e+01_rb,0.29061e+01_rb,0.29321e+01_rb, &\n        & 0.28592e+01_rb,0.26728e+01_rb,0.24954e+01_rb,0.24962e+01_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.34915e+01_rb,0.30588e+01_rb,0.26262e+01_rb,0.23144e+01_rb,0.22122e+01_rb, &\n        & 0.21892e+01_rb,0.25558e+01_rb,0.29818e+01_rb,0.32991e+01_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.35009e+01_rb,0.30672e+01_rb,0.26335e+01_rb,0.23059e+01_rb,0.22071e+01_rb, &\n        & 0.21796e+01_rb,0.25444e+01_rb,0.29683e+01_rb,0.32820e+01_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.35192e+01_rb,0.30832e+01_rb,0.26472e+01_rb,0.23037e+01_rb,0.22014e+01_rb, &\n        & 0.21706e+01_rb,0.25342e+01_rb,0.29565e+01_rb,0.32692e+01_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.35462e+01_rb,0.31069e+01_rb,0.26676e+01_rb,0.23054e+01_rb,0.21967e+01_rb, &\n        & 0.21619e+01_rb,0.25265e+01_rb,0.29475e+01_rb,0.32591e+01_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.35714e+01_rb,0.31290e+01_rb,0.26866e+01_rb,0.23141e+01_rb,0.21952e+01_rb, &\n        & 0.21552e+01_rb,0.25228e+01_rb,0.29432e+01_rb,0.32501e+01_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.38742e+01_rb,0.33939e+01_rb,0.29135e+01_rb,0.26368e+01_rb,0.25318e+01_rb, &\n        & 0.24566e+01_rb,0.27984e+01_rb,0.32648e+01_rb,0.36583e+01_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.38780e+01_rb,0.33972e+01_rb,0.29165e+01_rb,0.26245e+01_rb,0.25266e+01_rb, &\n        & 0.24447e+01_rb,0.27836e+01_rb,0.32475e+01_rb,0.36397e+01_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.38887e+01_rb,0.34066e+01_rb,0.29246e+01_rb,0.26139e+01_rb,0.25181e+01_rb, &\n        & 0.24355e+01_rb,0.27726e+01_rb,0.32346e+01_rb,0.36242e+01_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.39063e+01_rb,0.34220e+01_rb,0.29378e+01_rb,0.26094e+01_rb,0.25085e+01_rb, &\n        & 0.24291e+01_rb,0.27676e+01_rb,0.32288e+01_rb,0.36150e+01_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.39241e+01_rb,0.34376e+01_rb,0.29511e+01_rb,0.26073e+01_rb,0.25021e+01_rb, &\n        & 0.24243e+01_rb,0.27677e+01_rb,0.32289e+01_rb,0.36134e+01_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.42487e+01_rb,0.37216e+01_rb,0.32039e+01_rb,0.29799e+01_rb,0.28758e+01_rb, &\n        & 0.27551e+01_rb,0.30498e+01_rb,0.35581e+01_rb,0.40304e+01_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.42439e+01_rb,0.37174e+01_rb,0.31977e+01_rb,0.29675e+01_rb,0.28698e+01_rb, &\n        & 0.27440e+01_rb,0.30347e+01_rb,0.35405e+01_rb,0.40101e+01_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.42511e+01_rb,0.37238e+01_rb,0.32007e+01_rb,0.29528e+01_rb,0.28598e+01_rb, &\n        & 0.27364e+01_rb,0.30269e+01_rb,0.35313e+01_rb,0.39978e+01_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.42624e+01_rb,0.37337e+01_rb,0.32078e+01_rb,0.29428e+01_rb,0.28469e+01_rb, &\n        & 0.27311e+01_rb,0.30242e+01_rb,0.35281e+01_rb,0.39928e+01_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.42720e+01_rb,0.37420e+01_rb,0.32138e+01_rb,0.29343e+01_rb,0.28324e+01_rb, &\n        & 0.27276e+01_rb,0.30224e+01_rb,0.35261e+01_rb,0.39910e+01_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.45954e+01_rb,0.40249e+01_rb,0.35022e+01_rb,0.33403e+01_rb,0.32328e+01_rb, &\n        & 0.30833e+01_rb,0.33112e+01_rb,0.38621e+01_rb,0.43957e+01_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.45847e+01_rb,0.40157e+01_rb,0.34904e+01_rb,0.33265e+01_rb,0.32256e+01_rb, &\n        & 0.30748e+01_rb,0.32975e+01_rb,0.38466e+01_rb,0.43773e+01_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.45864e+01_rb,0.40172e+01_rb,0.34822e+01_rb,0.33081e+01_rb,0.32132e+01_rb, &\n        & 0.30693e+01_rb,0.32915e+01_rb,0.38399e+01_rb,0.43696e+01_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.45919e+01_rb,0.40220e+01_rb,0.34808e+01_rb,0.32873e+01_rb,0.31989e+01_rb, &\n        & 0.30656e+01_rb,0.32892e+01_rb,0.38374e+01_rb,0.43666e+01_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.45961e+01_rb,0.40254e+01_rb,0.34809e+01_rb,0.32746e+01_rb,0.31817e+01_rb, &\n        & 0.30639e+01_rb,0.32889e+01_rb,0.38370e+01_rb,0.43660e+01_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.49114e+01_rb,0.43012e+01_rb,0.38001e+01_rb,0.37007e+01_rb,0.36023e+01_rb, &\n        & 0.34476e+01_rb,0.35973e+01_rb,0.41814e+01_rb,0.47692e+01_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.49023e+01_rb,0.42934e+01_rb,0.37862e+01_rb,0.36850e+01_rb,0.35912e+01_rb, &\n        & 0.34412e+01_rb,0.35890e+01_rb,0.41727e+01_rb,0.47592e+01_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.48929e+01_rb,0.42852e+01_rb,0.37666e+01_rb,0.36647e+01_rb,0.35739e+01_rb, &\n        & 0.34368e+01_rb,0.35843e+01_rb,0.41678e+01_rb,0.47530e+01_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.48957e+01_rb,0.42875e+01_rb,0.37577e+01_rb,0.36399e+01_rb,0.35570e+01_rb, &\n        & 0.34352e+01_rb,0.35822e+01_rb,0.41658e+01_rb,0.47507e+01_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.48955e+01_rb,0.42870e+01_rb,0.37502e+01_rb,0.36181e+01_rb,0.35379e+01_rb, &\n        & 0.34333e+01_rb,0.35807e+01_rb,0.41639e+01_rb,0.47483e+01_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.52336e+01_rb,0.45828e+01_rb,0.41059e+01_rb,0.40455e+01_rb,0.39709e+01_rb, &\n        & 0.38438e+01_rb,0.39195e+01_rb,0.45101e+01_rb,0.51488e+01_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.52264e+01_rb,0.45766e+01_rb,0.40903e+01_rb,0.40272e+01_rb,0.39556e+01_rb, &\n        & 0.38368e+01_rb,0.39154e+01_rb,0.45074e+01_rb,0.51460e+01_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.52116e+01_rb,0.45637e+01_rb,0.40682e+01_rb,0.40069e+01_rb,0.39387e+01_rb, &\n        & 0.38311e+01_rb,0.39117e+01_rb,0.45034e+01_rb,0.51413e+01_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.52061e+01_rb,0.45585e+01_rb,0.40484e+01_rb,0.39793e+01_rb,0.39195e+01_rb, &\n        & 0.38275e+01_rb,0.39110e+01_rb,0.45018e+01_rb,0.51396e+01_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.52033e+01_rb,0.45559e+01_rb,0.40356e+01_rb,0.39520e+01_rb,0.38983e+01_rb, &\n        & 0.38238e+01_rb,0.39105e+01_rb,0.45008e+01_rb,0.51385e+01_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.55789e+01_rb,0.48845e+01_rb,0.44392e+01_rb,0.43787e+01_rb,0.43341e+01_rb, &\n        & 0.42496e+01_rb,0.42580e+01_rb,0.48177e+01_rb,0.55034e+01_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.55750e+01_rb,0.48811e+01_rb,0.44216e+01_rb,0.43602e+01_rb,0.43147e+01_rb, &\n        & 0.42460e+01_rb,0.42594e+01_rb,0.48202e+01_rb,0.55064e+01_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.55641e+01_rb,0.48716e+01_rb,0.43996e+01_rb,0.43387e+01_rb,0.42975e+01_rb, &\n        & 0.42414e+01_rb,0.42613e+01_rb,0.48234e+01_rb,0.55098e+01_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.55497e+01_rb,0.48588e+01_rb,0.43740e+01_rb,0.43098e+01_rb,0.42767e+01_rb, &\n        & 0.42365e+01_rb,0.42657e+01_rb,0.48283e+01_rb,0.55153e+01_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.55426e+01_rb,0.48524e+01_rb,0.43530e+01_rb,0.42800e+01_rb,0.42577e+01_rb, &\n        & 0.42309e+01_rb,0.42668e+01_rb,0.48295e+01_rb,0.55168e+01_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.59399e+01_rb,0.51999e+01_rb,0.48042e+01_rb,0.47185e+01_rb,0.46865e+01_rb, &\n        & 0.46496e+01_rb,0.46000e+01_rb,0.50897e+01_rb,0.58161e+01_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.59397e+01_rb,0.51999e+01_rb,0.47874e+01_rb,0.46998e+01_rb,0.46665e+01_rb, &\n        & 0.46493e+01_rb,0.46097e+01_rb,0.50997e+01_rb,0.58275e+01_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.59349e+01_rb,0.51955e+01_rb,0.47656e+01_rb,0.46767e+01_rb,0.46485e+01_rb, &\n        & 0.46473e+01_rb,0.46203e+01_rb,0.51120e+01_rb,0.58414e+01_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.59186e+01_rb,0.51811e+01_rb,0.47381e+01_rb,0.46470e+01_rb,0.46283e+01_rb, &\n        & 0.46432e+01_rb,0.46335e+01_rb,0.51262e+01_rb,0.58574e+01_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.59097e+01_rb,0.51733e+01_rb,0.47110e+01_rb,0.46158e+01_rb,0.46095e+01_rb, &\n        & 0.46379e+01_rb,0.46369e+01_rb,0.51321e+01_rb,0.58644e+01_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.63127e+01_rb,0.55322e+01_rb,0.51834e+01_rb,0.50691e+01_rb,0.50247e+01_rb, &\n        & 0.50209e+01_rb,0.49367e+01_rb,0.53236e+01_rb,0.60842e+01_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.63183e+01_rb,0.55346e+01_rb,0.51727e+01_rb,0.50532e+01_rb,0.50080e+01_rb, &\n        & 0.50274e+01_rb,0.49592e+01_rb,0.53436e+01_rb,0.61069e+01_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.63124e+01_rb,0.55272e+01_rb,0.51546e+01_rb,0.50297e+01_rb,0.49909e+01_rb, &\n        & 0.50310e+01_rb,0.49812e+01_rb,0.53668e+01_rb,0.61332e+01_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.63001e+01_rb,0.55154e+01_rb,0.51286e+01_rb,0.50009e+01_rb,0.49750e+01_rb, &\n        & 0.50299e+01_rb,0.49995e+01_rb,0.53888e+01_rb,0.61587e+01_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.62858e+01_rb,0.55023e+01_rb,0.50977e+01_rb,0.49708e+01_rb,0.49573e+01_rb, &\n        & 0.50270e+01_rb,0.50058e+01_rb,0.53988e+01_rb,0.61697e+01_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.66894e+01_rb,0.58832e+01_rb,0.55701e+01_rb,0.54237e+01_rb,0.53594e+01_rb, &\n        & 0.53556e+01_rb,0.52686e+01_rb,0.55192e+01_rb,0.63037e+01_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.66981e+01_rb,0.58851e+01_rb,0.55643e+01_rb,0.54120e+01_rb,0.53500e+01_rb, &\n        & 0.53705e+01_rb,0.53019e+01_rb,0.55500e+01_rb,0.63389e+01_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.66967e+01_rb,0.58795e+01_rb,0.55464e+01_rb,0.53921e+01_rb,0.53372e+01_rb, &\n        & 0.53796e+01_rb,0.53288e+01_rb,0.55798e+01_rb,0.63734e+01_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.66854e+01_rb,0.58646e+01_rb,0.55228e+01_rb,0.53676e+01_rb,0.53254e+01_rb, &\n        & 0.53837e+01_rb,0.53529e+01_rb,0.56104e+01_rb,0.64086e+01_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.66717e+01_rb,0.58486e+01_rb,0.54914e+01_rb,0.53392e+01_rb,0.53082e+01_rb, &\n        & 0.53849e+01_rb,0.53627e+01_rb,0.56270e+01_rb,0.64281e+01_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.70715e+01_rb,0.62495e+01_rb,0.59582e+01_rb,0.57869e+01_rb,0.56930e+01_rb, &\n        & 0.56655e+01_rb,0.56036e+01_rb,0.57057e+01_rb,0.64838e+01_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.70771e+01_rb,0.62459e+01_rb,0.59461e+01_rb,0.57734e+01_rb,0.56903e+01_rb, &\n        & 0.56860e+01_rb,0.56380e+01_rb,0.57455e+01_rb,0.65310e+01_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.70723e+01_rb,0.62337e+01_rb,0.59291e+01_rb,0.57507e+01_rb,0.56859e+01_rb, &\n        & 0.56988e+01_rb,0.56691e+01_rb,0.57882e+01_rb,0.65837e+01_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.70579e+01_rb,0.62141e+01_rb,0.59017e+01_rb,0.57243e+01_rb,0.56747e+01_rb, &\n        & 0.57061e+01_rb,0.56917e+01_rb,0.58206e+01_rb,0.66248e+01_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.70436e+01_rb,0.61942e+01_rb,0.58711e+01_rb,0.56953e+01_rb,0.56563e+01_rb, &\n        & 0.57095e+01_rb,0.57007e+01_rb,0.58439e+01_rb,0.66547e+01_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.73996e+01_rb,0.65875e+01_rb,0.63444e+01_rb,0.61468e+01_rb,0.60255e+01_rb, &\n        & 0.59627e+01_rb,0.59009e+01_rb,0.58767e+01_rb,0.66113e+01_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.74059e+01_rb,0.65818e+01_rb,0.63297e+01_rb,0.61319e+01_rb,0.60289e+01_rb, &\n        & 0.59857e+01_rb,0.59393e+01_rb,0.59291e+01_rb,0.66795e+01_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.73985e+01_rb,0.65639e+01_rb,0.63058e+01_rb,0.61104e+01_rb,0.60278e+01_rb, &\n        & 0.60017e+01_rb,0.59765e+01_rb,0.59805e+01_rb,0.67466e+01_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.73888e+01_rb,0.65439e+01_rb,0.62733e+01_rb,0.60850e+01_rb,0.60189e+01_rb, &\n        & 0.60123e+01_rb,0.59968e+01_rb,0.60157e+01_rb,0.67935e+01_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.73717e+01_rb,0.65185e+01_rb,0.62375e+01_rb,0.60536e+01_rb,0.59983e+01_rb, &\n        & 0.60180e+01_rb,0.60067e+01_rb,0.60456e+01_rb,0.68365e+01_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.76469e+01_rb,0.68731e+01_rb,0.66871e+01_rb,0.64997e+01_rb,0.63502e+01_rb, &\n        & 0.62466e+01_rb,0.61469e+01_rb,0.60253e+01_rb,0.66908e+01_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.76513e+01_rb,0.68603e+01_rb,0.66717e+01_rb,0.64853e+01_rb,0.63628e+01_rb, &\n        & 0.62754e+01_rb,0.61942e+01_rb,0.60911e+01_rb,0.67781e+01_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.76480e+01_rb,0.68404e+01_rb,0.66430e+01_rb,0.64664e+01_rb,0.63629e+01_rb, &\n        & 0.62938e+01_rb,0.62370e+01_rb,0.61432e+01_rb,0.68460e+01_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.76417e+01_rb,0.68180e+01_rb,0.66082e+01_rb,0.64389e+01_rb,0.63512e+01_rb, &\n        & 0.63082e+01_rb,0.62633e+01_rb,0.61842e+01_rb,0.69071e+01_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.76283e+01_rb,0.67918e+01_rb,0.65683e+01_rb,0.64071e+01_rb,0.63329e+01_rb, &\n        & 0.63131e+01_rb,0.62779e+01_rb,0.62184e+01_rb,0.69616e+01_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.48056e+01_rb,0.42094e+01_rb,0.36132e+01_rb,0.30171e+01_rb,0.28404e+01_rb, &\n        & 0.34490e+01_rb,0.41388e+01_rb,0.48284e+01_rb,0.52314e+01_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.48171e+01_rb,0.42194e+01_rb,0.36219e+01_rb,0.30243e+01_rb,0.28141e+01_rb, &\n        & 0.34073e+01_rb,0.40887e+01_rb,0.47701e+01_rb,0.51637e+01_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.48231e+01_rb,0.42245e+01_rb,0.36259e+01_rb,0.30275e+01_rb,0.27871e+01_rb, &\n        & 0.33709e+01_rb,0.40450e+01_rb,0.47190e+01_rb,0.51029e+01_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.48223e+01_rb,0.42236e+01_rb,0.36250e+01_rb,0.30265e+01_rb,0.27616e+01_rb, &\n        & 0.33346e+01_rb,0.40014e+01_rb,0.46682e+01_rb,0.50473e+01_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.48164e+01_rb,0.42183e+01_rb,0.36202e+01_rb,0.30224e+01_rb,0.27378e+01_rb, &\n        & 0.32980e+01_rb,0.39575e+01_rb,0.46170e+01_rb,0.49922e+01_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.56696e+01_rb,0.49649e+01_rb,0.42601e+01_rb,0.35603e+01_rb,0.33660e+01_rb, &\n        & 0.40230e+01_rb,0.48275e+01_rb,0.56320e+01_rb,0.62204e+01_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.56853e+01_rb,0.49788e+01_rb,0.42721e+01_rb,0.35690e+01_rb,0.33370e+01_rb, &\n        & 0.39815e+01_rb,0.47778e+01_rb,0.55740e+01_rb,0.61522e+01_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.56912e+01_rb,0.49841e+01_rb,0.42769e+01_rb,0.35723e+01_rb,0.33088e+01_rb, &\n        & 0.39404e+01_rb,0.47285e+01_rb,0.55164e+01_rb,0.60886e+01_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.56900e+01_rb,0.49829e+01_rb,0.42759e+01_rb,0.35705e+01_rb,0.32819e+01_rb, &\n        & 0.38975e+01_rb,0.46769e+01_rb,0.54563e+01_rb,0.60227e+01_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.56828e+01_rb,0.49765e+01_rb,0.42703e+01_rb,0.35653e+01_rb,0.32552e+01_rb, &\n        & 0.38520e+01_rb,0.46223e+01_rb,0.53926e+01_rb,0.59537e+01_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.66640e+01_rb,0.58345e+01_rb,0.50050e+01_rb,0.41960e+01_rb,0.39837e+01_rb, &\n        & 0.46765e+01_rb,0.56117e+01_rb,0.65468e+01_rb,0.73624e+01_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.66851e+01_rb,0.58530e+01_rb,0.50209e+01_rb,0.42035e+01_rb,0.39538e+01_rb, &\n        & 0.46274e+01_rb,0.55528e+01_rb,0.64781e+01_rb,0.72849e+01_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.66916e+01_rb,0.58588e+01_rb,0.50261e+01_rb,0.42046e+01_rb,0.39240e+01_rb, &\n        & 0.45763e+01_rb,0.54915e+01_rb,0.64066e+01_rb,0.72060e+01_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.66884e+01_rb,0.58563e+01_rb,0.50241e+01_rb,0.42004e+01_rb,0.38957e+01_rb, &\n        & 0.45225e+01_rb,0.54270e+01_rb,0.63313e+01_rb,0.71219e+01_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.66766e+01_rb,0.58462e+01_rb,0.50163e+01_rb,0.41933e+01_rb,0.38675e+01_rb, &\n        & 0.44702e+01_rb,0.53642e+01_rb,0.62581e+01_rb,0.70387e+01_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.77848e+01_rb,0.68149e+01_rb,0.58451e+01_rb,0.49331e+01_rb,0.46977e+01_rb, &\n        & 0.54033e+01_rb,0.64839e+01_rb,0.75644e+01_rb,0.85830e+01_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.78108e+01_rb,0.68377e+01_rb,0.58646e+01_rb,0.49375e+01_rb,0.46695e+01_rb, &\n        & 0.53453e+01_rb,0.64143e+01_rb,0.74831e+01_rb,0.84915e+01_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.78236e+01_rb,0.68489e+01_rb,0.58743e+01_rb,0.49373e+01_rb,0.46417e+01_rb, &\n        & 0.52821e+01_rb,0.63384e+01_rb,0.73947e+01_rb,0.83915e+01_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.78238e+01_rb,0.68493e+01_rb,0.58748e+01_rb,0.49301e+01_rb,0.46103e+01_rb, &\n        & 0.52166e+01_rb,0.62599e+01_rb,0.73031e+01_rb,0.82871e+01_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.78090e+01_rb,0.68373e+01_rb,0.58658e+01_rb,0.49180e+01_rb,0.45786e+01_rb, &\n        & 0.51516e+01_rb,0.61819e+01_rb,0.72121e+01_rb,0.81837e+01_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.90367e+01_rb,0.79101e+01_rb,0.67835e+01_rb,0.57840e+01_rb,0.55090e+01_rb, &\n        & 0.61816e+01_rb,0.74174e+01_rb,0.86536e+01_rb,0.98560e+01_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.90658e+01_rb,0.79355e+01_rb,0.68052e+01_rb,0.57840e+01_rb,0.54825e+01_rb, &\n        & 0.61122e+01_rb,0.73329e+01_rb,0.85548e+01_rb,0.97452e+01_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.90837e+01_rb,0.79512e+01_rb,0.68188e+01_rb,0.57766e+01_rb,0.54581e+01_rb, &\n        & 0.60426e+01_rb,0.72485e+01_rb,0.84564e+01_rb,0.96328e+01_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.90830e+01_rb,0.79510e+01_rb,0.68192e+01_rb,0.57645e+01_rb,0.54297e+01_rb, &\n        & 0.59729e+01_rb,0.71644e+01_rb,0.83583e+01_rb,0.95205e+01_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.90677e+01_rb,0.79386e+01_rb,0.68094e+01_rb,0.57479e+01_rb,0.53962e+01_rb, &\n        & 0.58998e+01_rb,0.70740e+01_rb,0.82528e+01_rb,0.94008e+01_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.10412e+02_rb,0.91128e+01_rb,0.78140e+01_rb,0.67504e+01_rb,0.64389e+01_rb, &\n        & 0.70217e+01_rb,0.83899e+01_rb,0.97882e+01_rb,0.11168e+02_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.10449e+02_rb,0.91451e+01_rb,0.78417e+01_rb,0.67466e+01_rb,0.64110e+01_rb, &\n        & 0.69507e+01_rb,0.82964e+01_rb,0.96789e+01_rb,0.11043e+02_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.10469e+02_rb,0.91634e+01_rb,0.78574e+01_rb,0.67323e+01_rb,0.63834e+01_rb, &\n        & 0.68804e+01_rb,0.82097e+01_rb,0.95778e+01_rb,0.10928e+02_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.10466e+02_rb,0.91614e+01_rb,0.78568e+01_rb,0.67135e+01_rb,0.63530e+01_rb, &\n        & 0.68083e+01_rb,0.81167e+01_rb,0.94694e+01_rb,0.10805e+02_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.10450e+02_rb,0.91481e+01_rb,0.78461e+01_rb,0.66866e+01_rb,0.63182e+01_rb, &\n        & 0.67317e+01_rb,0.80175e+01_rb,0.93536e+01_rb,0.10671e+02_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.11882e+02_rb,0.10399e+02_rb,0.89166e+01_rb,0.78253e+01_rb,0.74792e+01_rb, &\n        & 0.79512e+01_rb,0.94202e+01_rb,0.10990e+02_rb,0.12550e+02_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.11932e+02_rb,0.10443e+02_rb,0.89541e+01_rb,0.78202e+01_rb,0.74549e+01_rb, &\n        & 0.78754e+01_rb,0.93207e+01_rb,0.10874e+02_rb,0.12417e+02_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.11956e+02_rb,0.10464e+02_rb,0.89727e+01_rb,0.78020e+01_rb,0.74258e+01_rb, &\n        & 0.78051e+01_rb,0.92218e+01_rb,0.10758e+02_rb,0.12285e+02_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.11956e+02_rb,0.10465e+02_rb,0.89740e+01_rb,0.77736e+01_rb,0.73912e+01_rb, &\n        & 0.77319e+01_rb,0.91108e+01_rb,0.10629e+02_rb,0.12138e+02_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.11934e+02_rb,0.10446e+02_rb,0.89587e+01_rb,0.77346e+01_rb,0.73464e+01_rb, &\n        & 0.76503e+01_rb,0.90007e+01_rb,0.10501e+02_rb,0.11991e+02_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.13440e+02_rb,0.11762e+02_rb,0.10084e+02_rb,0.90134e+01_rb,0.86298e+01_rb, &\n        & 0.89787e+01_rb,0.10509e+02_rb,0.12260e+02_rb,0.14008e+02_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.13496e+02_rb,0.11811e+02_rb,0.10127e+02_rb,0.90042e+01_rb,0.86075e+01_rb, &\n        & 0.89016e+01_rb,0.10401e+02_rb,0.12134e+02_rb,0.13863e+02_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.13522e+02_rb,0.11835e+02_rb,0.10148e+02_rb,0.89806e+01_rb,0.85777e+01_rb, &\n        & 0.88306e+01_rb,0.10284e+02_rb,0.11998e+02_rb,0.13707e+02_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.13526e+02_rb,0.11839e+02_rb,0.10151e+02_rb,0.89422e+01_rb,0.85378e+01_rb, &\n        & 0.87510e+01_rb,0.10150e+02_rb,0.11842e+02_rb,0.13529e+02_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.13498e+02_rb,0.11814e+02_rb,0.10131e+02_rb,0.88918e+01_rb,0.84819e+01_rb, &\n        & 0.86621e+01_rb,0.10028e+02_rb,0.11700e+02_rb,0.13367e+02_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.15050e+02_rb,0.13171e+02_rb,0.11325e+02_rb,0.10314e+02_rb,0.98844e+01_rb, &\n        & 0.10113e+02_rb,0.11655e+02_rb,0.13598e+02_rb,0.15538e+02_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.15110e+02_rb,0.13224e+02_rb,0.11358e+02_rb,0.10290e+02_rb,0.98636e+01_rb, &\n        & 0.10034e+02_rb,0.11528e+02_rb,0.13449e+02_rb,0.15369e+02_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.15142e+02_rb,0.13253e+02_rb,0.11372e+02_rb,0.10253e+02_rb,0.98329e+01_rb, &\n        & 0.99565e+01_rb,0.11387e+02_rb,0.13285e+02_rb,0.15182e+02_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.15140e+02_rb,0.13251e+02_rb,0.11368e+02_rb,0.10200e+02_rb,0.97822e+01_rb, &\n        & 0.98656e+01_rb,0.11236e+02_rb,0.13109e+02_rb,0.14981e+02_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.15112e+02_rb,0.13227e+02_rb,0.11344e+02_rb,0.10134e+02_rb,0.97132e+01_rb, &\n        & 0.97634e+01_rb,0.11104e+02_rb,0.12955e+02_rb,0.14806e+02_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.16679e+02_rb,0.14596e+02_rb,0.12639e+02_rb,0.11713e+02_rb,0.11234e+02_rb, &\n        & 0.11344e+02_rb,0.12833e+02_rb,0.14972e+02_rb,0.17110e+02_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.16740e+02_rb,0.14649e+02_rb,0.12658e+02_rb,0.11669e+02_rb,0.11203e+02_rb, &\n        & 0.11257e+02_rb,0.12688e+02_rb,0.14803e+02_rb,0.16918e+02_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.16768e+02_rb,0.14675e+02_rb,0.12658e+02_rb,0.11609e+02_rb,0.11161e+02_rb, &\n        & 0.11169e+02_rb,0.12530e+02_rb,0.14619e+02_rb,0.16708e+02_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.16761e+02_rb,0.14669e+02_rb,0.12632e+02_rb,0.11528e+02_rb,0.11096e+02_rb, &\n        & 0.11064e+02_rb,0.12360e+02_rb,0.14420e+02_rb,0.16480e+02_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.16723e+02_rb,0.14636e+02_rb,0.12592e+02_rb,0.11437e+02_rb,0.11017e+02_rb, &\n        & 0.10938e+02_rb,0.12210e+02_rb,0.14245e+02_rb,0.16279e+02_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.18294e+02_rb,0.16009e+02_rb,0.13989e+02_rb,0.13135e+02_rb,0.12643e+02_rb, &\n        & 0.12628e+02_rb,0.13972e+02_rb,0.16290e+02_rb,0.18616e+02_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.18347e+02_rb,0.16056e+02_rb,0.13990e+02_rb,0.13069e+02_rb,0.12593e+02_rb, &\n        & 0.12524e+02_rb,0.13808e+02_rb,0.16097e+02_rb,0.18396e+02_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.18360e+02_rb,0.16067e+02_rb,0.13961e+02_rb,0.12977e+02_rb,0.12519e+02_rb, &\n        & 0.12404e+02_rb,0.13621e+02_rb,0.15875e+02_rb,0.18143e+02_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.18335e+02_rb,0.16046e+02_rb,0.13912e+02_rb,0.12870e+02_rb,0.12428e+02_rb, &\n        & 0.12262e+02_rb,0.13438e+02_rb,0.15668e+02_rb,0.17906e+02_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.18275e+02_rb,0.15994e+02_rb,0.13835e+02_rb,0.12741e+02_rb,0.12318e+02_rb, &\n        & 0.12107e+02_rb,0.13269e+02_rb,0.15473e+02_rb,0.17684e+02_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.19924e+02_rb,0.17435e+02_rb,0.15328e+02_rb,0.14570e+02_rb,0.14103e+02_rb, &\n        & 0.13966e+02_rb,0.15137e+02_rb,0.17574e+02_rb,0.20085e+02_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.19952e+02_rb,0.17460e+02_rb,0.15303e+02_rb,0.14472e+02_rb,0.14016e+02_rb, &\n        & 0.13836e+02_rb,0.14951e+02_rb,0.17356e+02_rb,0.19836e+02_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.19950e+02_rb,0.17459e+02_rb,0.15252e+02_rb,0.14354e+02_rb,0.13911e+02_rb, &\n        & 0.13674e+02_rb,0.14736e+02_rb,0.17121e+02_rb,0.19567e+02_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.19898e+02_rb,0.17414e+02_rb,0.15172e+02_rb,0.14207e+02_rb,0.13782e+02_rb, &\n        & 0.13496e+02_rb,0.14540e+02_rb,0.16905e+02_rb,0.19321e+02_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.19813e+02_rb,0.17339e+02_rb,0.15067e+02_rb,0.14045e+02_rb,0.13635e+02_rb, &\n        & 0.13302e+02_rb,0.14349e+02_rb,0.16691e+02_rb,0.19076e+02_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.21582e+02_rb,0.18886e+02_rb,0.16708e+02_rb,0.15984e+02_rb,0.15578e+02_rb, &\n        & 0.15338e+02_rb,0.16324e+02_rb,0.18812e+02_rb,0.21500e+02_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.21595e+02_rb,0.18898e+02_rb,0.16645e+02_rb,0.15860e+02_rb,0.15448e+02_rb, &\n        & 0.15169e+02_rb,0.16117e+02_rb,0.18583e+02_rb,0.21237e+02_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.21561e+02_rb,0.18868e+02_rb,0.16562e+02_rb,0.15696e+02_rb,0.15303e+02_rb, &\n        & 0.14968e+02_rb,0.15881e+02_rb,0.18352e+02_rb,0.20974e+02_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.21483e+02_rb,0.18800e+02_rb,0.16445e+02_rb,0.15517e+02_rb,0.15132e+02_rb, &\n        & 0.14742e+02_rb,0.15661e+02_rb,0.18119e+02_rb,0.20709e+02_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.21359e+02_rb,0.18692e+02_rb,0.16307e+02_rb,0.15310e+02_rb,0.14932e+02_rb, &\n        & 0.14513e+02_rb,0.15442e+02_rb,0.17892e+02_rb,0.20448e+02_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.54900e+01_rb,0.48060e+01_rb,0.41232e+01_rb,0.34422e+01_rb,0.34870e+01_rb, &\n        & 0.43588e+01_rb,0.52305e+01_rb,0.61020e+01_rb,0.65047e+01_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.54959e+01_rb,0.48102e+01_rb,0.41246e+01_rb,0.34396e+01_rb,0.34389e+01_rb, &\n        & 0.42986e+01_rb,0.51583e+01_rb,0.60178e+01_rb,0.64181e+01_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.54964e+01_rb,0.48111e+01_rb,0.41257e+01_rb,0.34404e+01_rb,0.33906e+01_rb, &\n        & 0.42383e+01_rb,0.50859e+01_rb,0.59334e+01_rb,0.63255e+01_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.54872e+01_rb,0.48032e+01_rb,0.41193e+01_rb,0.34354e+01_rb,0.33485e+01_rb, &\n        & 0.41856e+01_rb,0.50227e+01_rb,0.58596e+01_rb,0.62437e+01_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.54677e+01_rb,0.47864e+01_rb,0.41051e+01_rb,0.34238e+01_rb,0.33099e+01_rb, &\n        & 0.41373e+01_rb,0.49647e+01_rb,0.57920e+01_rb,0.61726e+01_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.65993e+01_rb,0.57796e+01_rb,0.49604e+01_rb,0.41421e+01_rb,0.42011e+01_rb, &\n        & 0.52514e+01_rb,0.63014e+01_rb,0.73516e+01_rb,0.80279e+01_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.66032e+01_rb,0.57810e+01_rb,0.49597e+01_rb,0.41395e+01_rb,0.41430e+01_rb, &\n        & 0.51787e+01_rb,0.62144e+01_rb,0.72499e+01_rb,0.79170e+01_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.66114e+01_rb,0.57864e+01_rb,0.49618e+01_rb,0.41380e+01_rb,0.40849e+01_rb, &\n        & 0.51061e+01_rb,0.61273e+01_rb,0.71483e+01_rb,0.78058e+01_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.66055e+01_rb,0.57814e+01_rb,0.49573e+01_rb,0.41341e+01_rb,0.40341e+01_rb, &\n        & 0.50426e+01_rb,0.60510e+01_rb,0.70593e+01_rb,0.77043e+01_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.65867e+01_rb,0.57651e+01_rb,0.49435e+01_rb,0.41221e+01_rb,0.39863e+01_rb, &\n        & 0.49829e+01_rb,0.59794e+01_rb,0.69758e+01_rb,0.76124e+01_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.79380e+01_rb,0.69526e+01_rb,0.59676e+01_rb,0.49832e+01_rb,0.50788e+01_rb, &\n        & 0.63485e+01_rb,0.76181e+01_rb,0.88875e+01_rb,0.99377e+01_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.79519e+01_rb,0.69640e+01_rb,0.59765e+01_rb,0.49895e+01_rb,0.50033e+01_rb, &\n        & 0.62541e+01_rb,0.75048e+01_rb,0.87554e+01_rb,0.97869e+01_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.79564e+01_rb,0.69660e+01_rb,0.59762e+01_rb,0.49871e+01_rb,0.49341e+01_rb, &\n        & 0.61676e+01_rb,0.74011e+01_rb,0.86343e+01_rb,0.96531e+01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.79604e+01_rb,0.69678e+01_rb,0.59753e+01_rb,0.49833e+01_rb,0.48716e+01_rb, &\n        & 0.60895e+01_rb,0.73073e+01_rb,0.85250e+01_rb,0.95280e+01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.79454e+01_rb,0.69546e+01_rb,0.59641e+01_rb,0.49739e+01_rb,0.48117e+01_rb, &\n        & 0.60146e+01_rb,0.72174e+01_rb,0.84201e+01_rb,0.94106e+01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.95482e+01_rb,0.83619e+01_rb,0.71758e+01_rb,0.59904e+01_rb,0.61617e+01_rb, &\n        & 0.77021e+01_rb,0.92425e+01_rb,0.10783e+02_rb,0.12199e+02_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.95751e+01_rb,0.83849e+01_rb,0.71952e+01_rb,0.60057e+01_rb,0.60507e+01_rb, &\n        & 0.75634e+01_rb,0.90760e+01_rb,0.10588e+02_rb,0.11979e+02_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.95851e+01_rb,0.83928e+01_rb,0.72008e+01_rb,0.60093e+01_rb,0.59519e+01_rb, &\n        & 0.74398e+01_rb,0.89277e+01_rb,0.10415e+02_rb,0.11784e+02_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.95899e+01_rb,0.83956e+01_rb,0.72016e+01_rb,0.60083e+01_rb,0.58751e+01_rb, &\n        & 0.73438e+01_rb,0.88125e+01_rb,0.10281e+02_rb,0.11628e+02_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.95802e+01_rb,0.83858e+01_rb,0.71919e+01_rb,0.59984e+01_rb,0.58004e+01_rb, &\n        & 0.72505e+01_rb,0.87005e+01_rb,0.10150e+02_rb,0.11482e+02_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.11467e+02_rb,0.10041e+02_rb,0.86153e+01_rb,0.71899e+01_rb,0.74662e+01_rb, &\n        & 0.93327e+01_rb,0.11199e+02_rb,0.13065e+02_rb,0.14858e+02_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.11518e+02_rb,0.10085e+02_rb,0.86526e+01_rb,0.72201e+01_rb,0.73208e+01_rb, &\n        & 0.91509e+01_rb,0.10981e+02_rb,0.12811e+02_rb,0.14568e+02_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.11535e+02_rb,0.10099e+02_rb,0.86636e+01_rb,0.72282e+01_rb,0.71844e+01_rb, &\n        & 0.89805e+01_rb,0.10776e+02_rb,0.12572e+02_rb,0.14298e+02_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.11542e+02_rb,0.10105e+02_rb,0.86677e+01_rb,0.72309e+01_rb,0.70636e+01_rb, &\n        & 0.88295e+01_rb,0.10595e+02_rb,0.12361e+02_rb,0.14056e+02_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.11528e+02_rb,0.10092e+02_rb,0.86561e+01_rb,0.72209e+01_rb,0.69634e+01_rb, &\n        & 0.87042e+01_rb,0.10445e+02_rb,0.12185e+02_rb,0.13857e+02_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.13743e+02_rb,0.12032e+02_rb,0.10321e+02_rb,0.86104e+01_rb,0.90301e+01_rb, &\n        & 0.11288e+02_rb,0.13545e+02_rb,0.15802e+02_rb,0.18010e+02_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.13809e+02_rb,0.12090e+02_rb,0.10370e+02_rb,0.86513e+01_rb,0.88422e+01_rb, &\n        & 0.11053e+02_rb,0.13263e+02_rb,0.15473e+02_rb,0.17638e+02_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.13850e+02_rb,0.12125e+02_rb,0.10400e+02_rb,0.86753e+01_rb,0.86607e+01_rb, &\n        & 0.10826e+02_rb,0.12991e+02_rb,0.15156e+02_rb,0.17275e+02_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.13866e+02_rb,0.12138e+02_rb,0.10411e+02_rb,0.86837e+01_rb,0.84930e+01_rb, &\n        & 0.10616e+02_rb,0.12739e+02_rb,0.14862e+02_rb,0.16940e+02_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.13850e+02_rb,0.12124e+02_rb,0.10399e+02_rb,0.86732e+01_rb,0.83442e+01_rb, &\n        & 0.10430e+02_rb,0.12516e+02_rb,0.14602e+02_rb,0.16644e+02_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.16450e+02_rb,0.14400e+02_rb,0.12350e+02_rb,0.10300e+02_rb,0.10874e+02_rb, &\n        & 0.13593e+02_rb,0.16311e+02_rb,0.19030e+02_rb,0.21722e+02_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.16525e+02_rb,0.14465e+02_rb,0.12405e+02_rb,0.10346e+02_rb,0.10632e+02_rb, &\n        & 0.13290e+02_rb,0.15948e+02_rb,0.18606e+02_rb,0.21239e+02_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.16563e+02_rb,0.14499e+02_rb,0.12434e+02_rb,0.10370e+02_rb,0.10395e+02_rb, &\n        & 0.12994e+02_rb,0.15592e+02_rb,0.18191e+02_rb,0.20762e+02_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.16590e+02_rb,0.14522e+02_rb,0.12454e+02_rb,0.10386e+02_rb,0.10172e+02_rb, &\n        & 0.12715e+02_rb,0.15258e+02_rb,0.17801e+02_rb,0.20317e+02_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.16576e+02_rb,0.14509e+02_rb,0.12443e+02_rb,0.10377e+02_rb,0.99688e+01_rb, &\n        & 0.12461e+02_rb,0.14953e+02_rb,0.17445e+02_rb,0.19913e+02_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.19629e+02_rb,0.17181e+02_rb,0.14733e+02_rb,0.12285e+02_rb,0.13022e+02_rb, &\n        & 0.16277e+02_rb,0.19532e+02_rb,0.22787e+02_rb,0.26029e+02_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.19728e+02_rb,0.17267e+02_rb,0.14807e+02_rb,0.12346e+02_rb,0.12711e+02_rb, &\n        & 0.15888e+02_rb,0.19066e+02_rb,0.22243e+02_rb,0.25406e+02_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.19768e+02_rb,0.17302e+02_rb,0.14837e+02_rb,0.12371e+02_rb,0.12399e+02_rb, &\n        & 0.15499e+02_rb,0.18599e+02_rb,0.21698e+02_rb,0.24782e+02_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.19773e+02_rb,0.17307e+02_rb,0.14840e+02_rb,0.12374e+02_rb,0.12111e+02_rb, &\n        & 0.15139e+02_rb,0.18167e+02_rb,0.21194e+02_rb,0.24210e+02_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.19744e+02_rb,0.17281e+02_rb,0.14818e+02_rb,0.12356e+02_rb,0.11840e+02_rb, &\n        & 0.14800e+02_rb,0.17760e+02_rb,0.20720e+02_rb,0.23667e+02_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.23312e+02_rb,0.20403e+02_rb,0.17494e+02_rb,0.14584e+02_rb,0.15488e+02_rb, &\n        & 0.19360e+02_rb,0.23231e+02_rb,0.27103e+02_rb,0.30970e+02_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.23439e+02_rb,0.20514e+02_rb,0.17588e+02_rb,0.14663e+02_rb,0.15085e+02_rb, &\n        & 0.18856e+02_rb,0.22627e+02_rb,0.26397e+02_rb,0.30166e+02_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.23492e+02_rb,0.20560e+02_rb,0.17628e+02_rb,0.14696e+02_rb,0.14687e+02_rb, &\n        & 0.18356e+02_rb,0.22027e+02_rb,0.25697e+02_rb,0.29367e+02_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.23479e+02_rb,0.20549e+02_rb,0.17619e+02_rb,0.14689e+02_rb,0.14321e+02_rb, &\n        & 0.17895e+02_rb,0.21474e+02_rb,0.25052e+02_rb,0.28629e+02_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.23411e+02_rb,0.20489e+02_rb,0.17567e+02_rb,0.14646e+02_rb,0.13982e+02_rb, &\n        & 0.17451e+02_rb,0.20941e+02_rb,0.24431e+02_rb,0.27917e+02_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.27592e+02_rb,0.24147e+02_rb,0.20702e+02_rb,0.17264e+02_rb,0.18240e+02_rb, &\n        & 0.22793e+02_rb,0.27352e+02_rb,0.31910e+02_rb,0.36473e+02_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.27703e+02_rb,0.24245e+02_rb,0.20786e+02_rb,0.17327e+02_rb,0.17749e+02_rb, &\n        & 0.22147e+02_rb,0.26577e+02_rb,0.31006e+02_rb,0.35436e+02_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.27743e+02_rb,0.24279e+02_rb,0.20816e+02_rb,0.17352e+02_rb,0.17266e+02_rb, &\n        & 0.21525e+02_rb,0.25830e+02_rb,0.30134e+02_rb,0.34441e+02_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.27709e+02_rb,0.24250e+02_rb,0.20790e+02_rb,0.17331e+02_rb,0.16811e+02_rb, &\n        & 0.20946e+02_rb,0.25135e+02_rb,0.29324e+02_rb,0.33510e+02_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.27598e+02_rb,0.24153e+02_rb,0.20707e+02_rb,0.17262e+02_rb,0.16378e+02_rb, &\n        & 0.20388e+02_rb,0.24466e+02_rb,0.28543e+02_rb,0.32622e+02_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.32570e+02_rb,0.28502e+02_rb,0.24434e+02_rb,0.20393e+02_rb,0.21083e+02_rb, &\n        & 0.26245e+02_rb,0.31494e+02_rb,0.36742e+02_rb,0.41994e+02_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.32601e+02_rb,0.28529e+02_rb,0.24458e+02_rb,0.20386e+02_rb,0.20492e+02_rb, &\n        & 0.25469e+02_rb,0.30563e+02_rb,0.35657e+02_rb,0.40747e+02_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.32535e+02_rb,0.28472e+02_rb,0.24408e+02_rb,0.20345e+02_rb,0.19916e+02_rb, &\n        & 0.24733e+02_rb,0.29679e+02_rb,0.34625e+02_rb,0.39568e+02_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.32390e+02_rb,0.28345e+02_rb,0.24301e+02_rb,0.20256e+02_rb,0.19358e+02_rb, &\n        & 0.24023e+02_rb,0.28827e+02_rb,0.33631e+02_rb,0.38435e+02_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.32175e+02_rb,0.28157e+02_rb,0.24140e+02_rb,0.20122e+02_rb,0.18819e+02_rb, &\n        & 0.23330e+02_rb,0.27996e+02_rb,0.32661e+02_rb,0.37328e+02_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.38135e+02_rb,0.33371e+02_rb,0.28607e+02_rb,0.23891e+02_rb,0.24203e+02_rb, &\n        & 0.29981e+02_rb,0.35977e+02_rb,0.41973e+02_rb,0.47971e+02_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.38033e+02_rb,0.33282e+02_rb,0.28531e+02_rb,0.23779e+02_rb,0.23491e+02_rb, &\n        & 0.29038e+02_rb,0.34845e+02_rb,0.40652e+02_rb,0.46464e+02_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.37806e+02_rb,0.33084e+02_rb,0.28361e+02_rb,0.23639e+02_rb,0.22788e+02_rb, &\n        & 0.28150e+02_rb,0.33780e+02_rb,0.39409e+02_rb,0.45036e+02_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.37497e+02_rb,0.32813e+02_rb,0.28129e+02_rb,0.23446e+02_rb,0.22100e+02_rb, &\n        & 0.27270e+02_rb,0.32724e+02_rb,0.38179e+02_rb,0.43632e+02_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.37099e+02_rb,0.32465e+02_rb,0.27831e+02_rb,0.23198e+02_rb,0.21440e+02_rb, &\n        & 0.26398e+02_rb,0.31678e+02_rb,0.36957e+02_rb,0.42237e+02_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.44217e+02_rb,0.38692e+02_rb,0.33167e+02_rb,0.27730e+02_rb,0.27605e+02_rb, &\n        & 0.33969e+02_rb,0.40763e+02_rb,0.47556e+02_rb,0.54352e+02_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.43915e+02_rb,0.38428e+02_rb,0.32941e+02_rb,0.27455e+02_rb,0.26738e+02_rb, &\n        & 0.32787e+02_rb,0.39345e+02_rb,0.45901e+02_rb,0.52455e+02_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.43489e+02_rb,0.38055e+02_rb,0.32622e+02_rb,0.27188e+02_rb,0.25861e+02_rb, &\n        & 0.31686e+02_rb,0.38022e+02_rb,0.44359e+02_rb,0.50700e+02_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.42951e+02_rb,0.37585e+02_rb,0.32219e+02_rb,0.26853e+02_rb,0.25006e+02_rb, &\n        & 0.30590e+02_rb,0.36708e+02_rb,0.42826e+02_rb,0.48946e+02_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.42298e+02_rb,0.37013e+02_rb,0.31729e+02_rb,0.26445e+02_rb,0.24180e+02_rb, &\n        & 0.29511e+02_rb,0.35413e+02_rb,0.41314e+02_rb,0.47218e+02_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:, 1,13, 1) = (/ &\n        & 0.40633e-08_rb,0.64718e-06_rb,0.79567e-06_rb,0.81264e-06_rb,0.25080e-07_rb /)\n      kbo(:, 2,13, 1) = (/ &\n        & 0.37596e-08_rb,0.70429e-06_rb,0.90855e-06_rb,0.96432e-06_rb,0.28292e-07_rb /)\n      kbo(:, 3,13, 1) = (/ &\n        & 0.34982e-08_rb,0.76370e-06_rb,0.10316e-05_rb,0.11472e-05_rb,0.31265e-07_rb /)\n      kbo(:, 4,13, 1) = (/ &\n        & 0.32707e-08_rb,0.82834e-06_rb,0.11577e-05_rb,0.13387e-05_rb,0.34928e-07_rb /)\n      kbo(:, 5,13, 1) = (/ &\n        & 0.30710e-08_rb,0.90252e-06_rb,0.12962e-05_rb,0.15206e-05_rb,0.38859e-07_rb /)\n      kbo(:, 1,14, 1) = (/ &\n        & 0.33026e-08_rb,0.53592e-06_rb,0.66171e-06_rb,0.67633e-06_rb,0.20767e-07_rb /)\n      kbo(:, 2,14, 1) = (/ &\n        & 0.30574e-08_rb,0.57959e-06_rb,0.75386e-06_rb,0.80395e-06_rb,0.23334e-07_rb /)\n      kbo(:, 3,14, 1) = (/ &\n        & 0.28461e-08_rb,0.62897e-06_rb,0.85486e-06_rb,0.95745e-06_rb,0.25841e-07_rb /)\n      kbo(:, 4,14, 1) = (/ &\n        & 0.26621e-08_rb,0.68352e-06_rb,0.96132e-06_rb,0.11148e-05_rb,0.28862e-07_rb /)\n      kbo(:, 5,14, 1) = (/ &\n        & 0.25005e-08_rb,0.74517e-06_rb,0.10739e-05_rb,0.12632e-05_rb,0.32093e-07_rb /)\n      kbo(:, 1,15, 1) = (/ &\n        & 0.26821e-08_rb,0.44081e-06_rb,0.55093e-06_rb,0.56465e-06_rb,0.17186e-07_rb /)\n      kbo(:, 2,15, 1) = (/ &\n        & 0.24845e-08_rb,0.47773e-06_rb,0.62636e-06_rb,0.67180e-06_rb,0.19234e-07_rb /)\n      kbo(:, 3,15, 1) = (/ &\n        & 0.23140e-08_rb,0.51811e-06_rb,0.70791e-06_rb,0.79658e-06_rb,0.21348e-07_rb /)\n      kbo(:, 4,15, 1) = (/ &\n        & 0.21654e-08_rb,0.56416e-06_rb,0.79893e-06_rb,0.92873e-06_rb,0.23832e-07_rb /)\n      kbo(:, 5,15, 1) = (/ &\n        & 0.20347e-08_rb,0.61535e-06_rb,0.88985e-06_rb,0.10499e-05_rb,0.26485e-07_rb /)\n      kbo(:, 1,16, 1) = (/ &\n        & 0.21775e-08_rb,0.36254e-06_rb,0.45870e-06_rb,0.47125e-06_rb,0.14211e-07_rb /)\n      kbo(:, 2,16, 1) = (/ &\n        & 0.20183e-08_rb,0.39376e-06_rb,0.52053e-06_rb,0.56163e-06_rb,0.15869e-07_rb /)\n      kbo(:, 3,16, 1) = (/ &\n        & 0.18808e-08_rb,0.42687e-06_rb,0.58699e-06_rb,0.66386e-06_rb,0.17627e-07_rb /)\n      kbo(:, 4,16, 1) = (/ &\n        & 0.17608e-08_rb,0.46559e-06_rb,0.66388e-06_rb,0.77063e-06_rb,0.19664e-07_rb /)\n      kbo(:, 5,16, 1) = (/ &\n        & 0.16552e-08_rb,0.50747e-06_rb,0.73699e-06_rb,0.87249e-06_rb,0.21844e-07_rb /)\n      kbo(:, 1,17, 1) = (/ &\n        & 0.17682e-08_rb,0.29836e-06_rb,0.38104e-06_rb,0.39314e-06_rb,0.11735e-07_rb /)\n      kbo(:, 2,17, 1) = (/ &\n        & 0.16399e-08_rb,0.32493e-06_rb,0.43215e-06_rb,0.46897e-06_rb,0.13077e-07_rb /)\n      kbo(:, 3,17, 1) = (/ &\n        & 0.15290e-08_rb,0.35203e-06_rb,0.48665e-06_rb,0.55328e-06_rb,0.14535e-07_rb /)\n      kbo(:, 4,17, 1) = (/ &\n        & 0.14321e-08_rb,0.38383e-06_rb,0.55033e-06_rb,0.63844e-06_rb,0.16208e-07_rb /)\n      kbo(:, 5,17, 1) = (/ &\n        & 0.13468e-08_rb,0.41822e-06_rb,0.60950e-06_rb,0.72376e-06_rb,0.17995e-07_rb /)\n      kbo(:, 1,18, 1) = (/ &\n        & 0.14362e-08_rb,0.24560e-06_rb,0.31667e-06_rb,0.32797e-06_rb,0.96831e-08_rb /)\n      kbo(:, 2,18, 1) = (/ &\n        & 0.13327e-08_rb,0.26784e-06_rb,0.35872e-06_rb,0.39134e-06_rb,0.10773e-07_rb /)\n      kbo(:, 3,18, 1) = (/ &\n        & 0.12432e-08_rb,0.29008e-06_rb,0.40334e-06_rb,0.46026e-06_rb,0.11980e-07_rb /)\n      kbo(:, 4,18, 1) = (/ &\n        & 0.11650e-08_rb,0.31637e-06_rb,0.45583e-06_rb,0.52880e-06_rb,0.13350e-07_rb /)\n      kbo(:, 5,18, 1) = (/ &\n        & 0.10960e-08_rb,0.34503e-06_rb,0.50363e-06_rb,0.59967e-06_rb,0.14815e-07_rb /)\n      kbo(:, 1,19, 1) = (/ &\n        & 0.11667e-08_rb,0.20231e-06_rb,0.26313e-06_rb,0.27359e-06_rb,0.79934e-08_rb /)\n      kbo(:, 2,19, 1) = (/ &\n        & 0.10833e-08_rb,0.22085e-06_rb,0.29760e-06_rb,0.32620e-06_rb,0.88807e-08_rb /)\n      kbo(:, 3,19, 1) = (/ &\n        & 0.10110e-08_rb,0.23912e-06_rb,0.33423e-06_rb,0.38271e-06_rb,0.98771e-08_rb /)\n      kbo(:, 4,19, 1) = (/ &\n        & 0.94778e-09_rb,0.26073e-06_rb,0.37685e-06_rb,0.43791e-06_rb,0.11002e-07_rb /)\n      kbo(:, 5,19, 1) = (/ &\n        & 0.89198e-09_rb,0.28425e-06_rb,0.41589e-06_rb,0.49682e-06_rb,0.12204e-07_rb /)\n      kbo(:, 1,20, 1) = (/ &\n        & 0.94668e-09_rb,0.16735e-06_rb,0.21822e-06_rb,0.22914e-06_rb,0.66237e-08_rb /)\n      kbo(:, 2,20, 1) = (/ &\n        & 0.87956e-09_rb,0.18255e-06_rb,0.24770e-06_rb,0.27290e-06_rb,0.73470e-08_rb /)\n      kbo(:, 3,20, 1) = (/ &\n        & 0.82132e-09_rb,0.19776e-06_rb,0.27786e-06_rb,0.31913e-06_rb,0.81732e-08_rb /)\n      kbo(:, 4,20, 1) = (/ &\n        & 0.77032e-09_rb,0.21557e-06_rb,0.31197e-06_rb,0.36380e-06_rb,0.91019e-08_rb /)\n      kbo(:, 5,20, 1) = (/ &\n        & 0.72528e-09_rb,0.23458e-06_rb,0.34449e-06_rb,0.41257e-06_rb,0.10084e-07_rb /)\n      kbo(:, 1,21, 1) = (/ &\n        & 0.76809e-09_rb,0.13858e-06_rb,0.18138e-06_rb,0.19188e-06_rb,0.54929e-08_rb /)\n      kbo(:, 2,21, 1) = (/ &\n        & 0.71408e-09_rb,0.15088e-06_rb,0.20614e-06_rb,0.22835e-06_rb,0.60825e-08_rb /)\n      kbo(:, 3,21, 1) = (/ &\n        & 0.66717e-09_rb,0.16366e-06_rb,0.23111e-06_rb,0.26622e-06_rb,0.67680e-08_rb /)\n      kbo(:, 4,21, 1) = (/ &\n        & 0.62605e-09_rb,0.17816e-06_rb,0.25834e-06_rb,0.30242e-06_rb,0.75344e-08_rb /)\n      kbo(:, 5,21, 1) = (/ &\n        & 0.58970e-09_rb,0.19374e-06_rb,0.28542e-06_rb,0.34222e-06_rb,0.83394e-08_rb /)\n      kbo(:, 1,22, 1) = (/ &\n        & 0.62013e-09_rb,0.11547e-06_rb,0.15212e-06_rb,0.16227e-06_rb,0.45926e-08_rb /)\n      kbo(:, 2,22, 1) = (/ &\n        & 0.57709e-09_rb,0.12552e-06_rb,0.17211e-06_rb,0.19265e-06_rb,0.50728e-08_rb /)\n      kbo(:, 3,22, 1) = (/ &\n        & 0.53964e-09_rb,0.13619e-06_rb,0.19363e-06_rb,0.22402e-06_rb,0.56454e-08_rb /)\n      kbo(:, 4,22, 1) = (/ &\n        & 0.50675e-09_rb,0.14805e-06_rb,0.21557e-06_rb,0.25320e-06_rb,0.62805e-08_rb /)\n      kbo(:, 5,22, 1) = (/ &\n        & 0.47764e-09_rb,0.16097e-06_rb,0.23799e-06_rb,0.28574e-06_rb,0.69414e-08_rb /)\n      kbo(:, 1,23, 1) = (/ &\n        & 0.50055e-09_rb,0.96165e-07_rb,0.12776e-06_rb,0.13752e-06_rb,0.37933e-08_rb /)\n      kbo(:, 2,23, 1) = (/ &\n        & 0.46627e-09_rb,0.10421e-06_rb,0.14387e-06_rb,0.16226e-06_rb,0.42154e-08_rb /)\n      kbo(:, 3,23, 1) = (/ &\n        & 0.43638e-09_rb,0.11320e-06_rb,0.16240e-06_rb,0.18806e-06_rb,0.46761e-08_rb /)\n      kbo(:, 4,23, 1) = (/ &\n        & 0.41009e-09_rb,0.12312e-06_rb,0.18002e-06_rb,0.21214e-06_rb,0.51724e-08_rb /)\n      kbo(:, 5,23, 1) = (/ &\n        & 0.38679e-09_rb,0.13380e-06_rb,0.19835e-06_rb,0.23836e-06_rb,0.56863e-08_rb /)\n      kbo(:, 1,24, 1) = (/ &\n        & 0.40384e-09_rb,0.80174e-07_rb,0.10742e-06_rb,0.11665e-06_rb,0.31435e-08_rb /)\n      kbo(:, 2,24, 1) = (/ &\n        & 0.37656e-09_rb,0.86611e-07_rb,0.12062e-06_rb,0.13694e-06_rb,0.34746e-08_rb /)\n      kbo(:, 3,24, 1) = (/ &\n        & 0.35273e-09_rb,0.94203e-07_rb,0.13610e-06_rb,0.15729e-06_rb,0.38586e-08_rb /)\n      kbo(:, 4,24, 1) = (/ &\n        & 0.33174e-09_rb,0.10246e-06_rb,0.15035e-06_rb,0.17775e-06_rb,0.42707e-08_rb /)\n      kbo(:, 5,24, 1) = (/ &\n        & 0.31310e-09_rb,0.11122e-06_rb,0.16543e-06_rb,0.19917e-06_rb,0.47020e-08_rb /)\n      kbo(:, 1,25, 1) = (/ &\n        & 0.32562e-09_rb,0.66785e-07_rb,0.90447e-07_rb,0.99059e-07_rb,0.26134e-08_rb /)\n      kbo(:, 2,25, 1) = (/ &\n        & 0.30393e-09_rb,0.72133e-07_rb,0.10139e-06_rb,0.11571e-06_rb,0.28872e-08_rb /)\n      kbo(:, 3,25, 1) = (/ &\n        & 0.28495e-09_rb,0.78448e-07_rb,0.11385e-06_rb,0.13178e-06_rb,0.32061e-08_rb /)\n      kbo(:, 4,25, 1) = (/ &\n        & 0.26821e-09_rb,0.85339e-07_rb,0.12563e-06_rb,0.14914e-06_rb,0.35489e-08_rb /)\n      kbo(:, 5,25, 1) = (/ &\n        & 0.25332e-09_rb,0.92445e-07_rb,0.13814e-06_rb,0.16674e-06_rb,0.39060e-08_rb /)\n      kbo(:, 1,26, 1) = (/ &\n        & 0.26224e-09_rb,0.55680e-07_rb,0.76369e-07_rb,0.84400e-07_rb,0.21759e-08_rb /)\n      kbo(:, 2,26, 1) = (/ &\n        & 0.24504e-09_rb,0.60204e-07_rb,0.85423e-07_rb,0.97885e-07_rb,0.24118e-08_rb /)\n      kbo(:, 3,26, 1) = (/ &\n        & 0.22996e-09_rb,0.65477e-07_rb,0.95321e-07_rb,0.11093e-06_rb,0.26774e-08_rb /)\n      kbo(:, 4,26, 1) = (/ &\n        & 0.21663e-09_rb,0.71188e-07_rb,0.10529e-06_rb,0.12544e-06_rb,0.29615e-08_rb /)\n      kbo(:, 5,26, 1) = (/ &\n        & 0.20475e-09_rb,0.76940e-07_rb,0.11556e-06_rb,0.13977e-06_rb,0.32569e-08_rb /)\n      kbo(:, 1,27, 1) = (/ &\n        & 0.21120e-09_rb,0.46382e-07_rb,0.63894e-07_rb,0.71379e-07_rb,0.18178e-08_rb /)\n      kbo(:, 2,27, 1) = (/ &\n        & 0.19756e-09_rb,0.50278e-07_rb,0.72033e-07_rb,0.82909e-07_rb,0.20181e-08_rb /)\n      kbo(:, 3,27, 1) = (/ &\n        & 0.18557e-09_rb,0.54670e-07_rb,0.79953e-07_rb,0.93505e-07_rb,0.22396e-08_rb /)\n      kbo(:, 4,27, 1) = (/ &\n        & 0.17496e-09_rb,0.59408e-07_rb,0.88179e-07_rb,0.10553e-06_rb,0.24737e-08_rb /)\n      kbo(:, 5,27, 1) = (/ &\n        & 0.16549e-09_rb,0.64025e-07_rb,0.96696e-07_rb,0.11704e-06_rb,0.27092e-08_rb /)\n      kbo(:, 1,28, 1) = (/ &\n        & 0.17010e-09_rb,0.38631e-07_rb,0.53773e-07_rb,0.60579e-07_rb,0.15220e-08_rb /)\n      kbo(:, 2,28, 1) = (/ &\n        & 0.15928e-09_rb,0.42001e-07_rb,0.60660e-07_rb,0.69727e-07_rb,0.16901e-08_rb /)\n      kbo(:, 3,28, 1) = (/ &\n        & 0.14976e-09_rb,0.45661e-07_rb,0.67065e-07_rb,0.78845e-07_rb,0.18696e-08_rb /)\n      kbo(:, 4,28, 1) = (/ &\n        & 0.14131e-09_rb,0.49571e-07_rb,0.73809e-07_rb,0.88481e-07_rb,0.20611e-08_rb /)\n      kbo(:, 5,28, 1) = (/ &\n        & 0.13376e-09_rb,0.53304e-07_rb,0.80910e-07_rb,0.98017e-07_rb,0.22565e-08_rb /)\n      kbo(:, 1,29, 1) = (/ &\n        & 0.13696e-09_rb,0.32270e-07_rb,0.45392e-07_rb,0.51438e-07_rb,0.12721e-08_rb /)\n      kbo(:, 2,29, 1) = (/ &\n        & 0.12839e-09_rb,0.35079e-07_rb,0.50946e-07_rb,0.58726e-07_rb,0.14118e-08_rb /)\n      kbo(:, 3,29, 1) = (/ &\n        & 0.12082e-09_rb,0.38150e-07_rb,0.56258e-07_rb,0.66493e-07_rb,0.15628e-08_rb /)\n      kbo(:, 4,29, 1) = (/ &\n        & 0.11410e-09_rb,0.41324e-07_rb,0.61843e-07_rb,0.74387e-07_rb,0.17205e-08_rb /)\n      kbo(:, 5,29, 1) = (/ &\n        & 0.10808e-09_rb,0.44387e-07_rb,0.67739e-07_rb,0.82216e-07_rb,0.18745e-08_rb /)\n      kbo(:, 1,30, 1) = (/ &\n        & 0.11029e-09_rb,0.26970e-07_rb,0.38330e-07_rb,0.43698e-07_rb,0.10655e-08_rb /)\n      kbo(:, 2,30, 1) = (/ &\n        & 0.10349e-09_rb,0.29319e-07_rb,0.42739e-07_rb,0.49552e-07_rb,0.11823e-08_rb /)\n      kbo(:, 3,30, 1) = (/ &\n        & 0.97483e-10_rb,0.31869e-07_rb,0.47210e-07_rb,0.56057e-07_rb,0.13038e-08_rb /)\n      kbo(:, 4,30, 1) = (/ &\n        & 0.92133e-10_rb,0.34436e-07_rb,0.51812e-07_rb,0.62485e-07_rb,0.14285e-08_rb /)\n      kbo(:, 5,30, 1) = (/ &\n        & 0.87340e-10_rb,0.36953e-07_rb,0.56709e-07_rb,0.68921e-07_rb,0.15563e-08_rb /)\n      kbo(:, 1,31, 1) = (/ &\n        & 0.88806e-10_rb,0.22555e-07_rb,0.32386e-07_rb,0.37129e-07_rb,0.89029e-09_rb /)\n      kbo(:, 2,31, 1) = (/ &\n        & 0.83417e-10_rb,0.24519e-07_rb,0.35921e-07_rb,0.41870e-07_rb,0.98548e-09_rb /)\n      kbo(:, 3,31, 1) = (/ &\n        & 0.78644e-10_rb,0.26638e-07_rb,0.39609e-07_rb,0.47273e-07_rb,0.10854e-08_rb /)\n      kbo(:, 4,31, 1) = (/ &\n        & 0.74388e-10_rb,0.28694e-07_rb,0.43423e-07_rb,0.52435e-07_rb,0.11880e-08_rb /)\n      kbo(:, 5,31, 1) = (/ &\n        & 0.70568e-10_rb,0.30776e-07_rb,0.47411e-07_rb,0.57750e-07_rb,0.12931e-08_rb /)\n      kbo(:, 1,32, 1) = (/ &\n        & 0.71507e-10_rb,0.18870e-07_rb,0.27332e-07_rb,0.31309e-07_rb,0.74436e-09_rb /)\n      kbo(:, 2,32, 1) = (/ &\n        & 0.67235e-10_rb,0.20512e-07_rb,0.30189e-07_rb,0.35407e-07_rb,0.82294e-09_rb /)\n      kbo(:, 3,32, 1) = (/ &\n        & 0.63444e-10_rb,0.22259e-07_rb,0.33218e-07_rb,0.39730e-07_rb,0.90483e-09_rb /)\n      kbo(:, 4,32, 1) = (/ &\n        & 0.60058e-10_rb,0.23923e-07_rb,0.36405e-07_rb,0.43976e-07_rb,0.98908e-09_rb /)\n      kbo(:, 5,32, 1) = (/ &\n        & 0.57015e-10_rb,0.25634e-07_rb,0.39548e-07_rb,0.48346e-07_rb,0.10750e-08_rb /)\n      kbo(:, 1,33, 1) = (/ &\n        & 0.57586e-10_rb,0.15779e-07_rb,0.22950e-07_rb,0.26415e-07_rb,0.62256e-09_rb /)\n      kbo(:, 2,33, 1) = (/ &\n        & 0.54199e-10_rb,0.17153e-07_rb,0.25354e-07_rb,0.29904e-07_rb,0.68734e-09_rb /)\n      kbo(:, 3,33, 1) = (/ &\n        & 0.51188e-10_rb,0.18569e-07_rb,0.27869e-07_rb,0.33404e-07_rb,0.75467e-09_rb /)\n      kbo(:, 4,33, 1) = (/ &\n        & 0.48493e-10_rb,0.19935e-07_rb,0.30437e-07_rb,0.36856e-07_rb,0.82369e-09_rb /)\n      kbo(:, 5,33, 1) = (/ &\n        & 0.46069e-10_rb,0.21345e-07_rb,0.32988e-07_rb,0.40478e-07_rb,0.89402e-09_rb /)\n      kbo(:, 1,34, 1) = (/ &\n        & 0.46487e-10_rb,0.13161e-07_rb,0.19216e-07_rb,0.22212e-07_rb,0.51910e-09_rb /)\n      kbo(:, 2,34, 1) = (/ &\n        & 0.43789e-10_rb,0.14301e-07_rb,0.21182e-07_rb,0.25090e-07_rb,0.57247e-09_rb /)\n      kbo(:, 3,34, 1) = (/ &\n        & 0.41386e-10_rb,0.15447e-07_rb,0.23208e-07_rb,0.27938e-07_rb,0.62767e-09_rb /)\n      kbo(:, 4,34, 1) = (/ &\n        & 0.39234e-10_rb,0.16571e-07_rb,0.25347e-07_rb,0.30795e-07_rb,0.68426e-09_rb /)\n      kbo(:, 5,34, 1) = (/ &\n        & 0.37294e-10_rb,0.17725e-07_rb,0.27392e-07_rb,0.33781e-07_rb,0.74179e-09_rb /)\n      kbo(:, 1,35, 1) = (/ &\n        & 0.37756e-10_rb,0.10890e-07_rb,0.15882e-07_rb,0.18441e-07_rb,0.42871e-09_rb /)\n      kbo(:, 2,35, 1) = (/ &\n        & 0.35581e-10_rb,0.11830e-07_rb,0.17514e-07_rb,0.20810e-07_rb,0.47251e-09_rb /)\n      kbo(:, 3,35, 1) = (/ &\n        & 0.33643e-10_rb,0.12757e-07_rb,0.19184e-07_rb,0.23148e-07_rb,0.51769e-09_rb /)\n      kbo(:, 4,35, 1) = (/ &\n        & 0.31905e-10_rb,0.13682e-07_rb,0.20941e-07_rb,0.25477e-07_rb,0.56394e-09_rb /)\n      kbo(:, 5,35, 1) = (/ &\n        & 0.30338e-10_rb,0.14628e-07_rb,0.22613e-07_rb,0.27948e-07_rb,0.61100e-09_rb /)\n      kbo(:, 1,36, 1) = (/ &\n        & 0.30872e-10_rb,0.89290e-08_rb,0.13007e-07_rb,0.15108e-07_rb,0.35034e-09_rb /)\n      kbo(:, 2,36, 1) = (/ &\n        & 0.29096e-10_rb,0.96995e-08_rb,0.14343e-07_rb,0.17051e-07_rb,0.38609e-09_rb /)\n      kbo(:, 3,36, 1) = (/ &\n        & 0.27513e-10_rb,0.10456e-07_rb,0.15713e-07_rb,0.18968e-07_rb,0.42296e-09_rb /)\n      kbo(:, 4,36, 1) = (/ &\n        & 0.26093e-10_rb,0.11213e-07_rb,0.17153e-07_rb,0.20875e-07_rb,0.46073e-09_rb /)\n      kbo(:, 5,36, 1) = (/ &\n        & 0.24812e-10_rb,0.11987e-07_rb,0.18522e-07_rb,0.22899e-07_rb,0.49916e-09_rb /)\n      kbo(:, 1,37, 1) = (/ &\n        & 0.25479e-10_rb,0.72338e-08_rb,0.10508e-07_rb,0.12165e-07_rb,0.28268e-09_rb /)\n      kbo(:, 2,37, 1) = (/ &\n        & 0.24002e-10_rb,0.78593e-08_rb,0.11594e-07_rb,0.13747e-07_rb,0.31173e-09_rb /)\n      kbo(:, 3,37, 1) = (/ &\n        & 0.22687e-10_rb,0.84845e-08_rb,0.12712e-07_rb,0.15315e-07_rb,0.34178e-09_rb /)\n      kbo(:, 4,37, 1) = (/ &\n        & 0.21508e-10_rb,0.90997e-08_rb,0.13892e-07_rb,0.16886e-07_rb,0.37260e-09_rb /)\n      kbo(:, 5,37, 1) = (/ &\n        & 0.20446e-10_rb,0.97322e-08_rb,0.15012e-07_rb,0.18526e-07_rb,0.40398e-09_rb /)\n      kbo(:, 1,38, 1) = (/ &\n        & 0.21041e-10_rb,0.58565e-08_rb,0.84831e-08_rb,0.97892e-08_rb,0.22791e-09_rb /)\n      kbo(:, 2,38, 1) = (/ &\n        & 0.19811e-10_rb,0.63636e-08_rb,0.93619e-08_rb,0.11072e-07_rb,0.25148e-09_rb /)\n      kbo(:, 3,38, 1) = (/ &\n        & 0.18717e-10_rb,0.68784e-08_rb,0.10276e-07_rb,0.12360e-07_rb,0.27595e-09_rb /)\n      kbo(:, 4,38, 1) = (/ &\n        & 0.17738e-10_rb,0.73792e-08_rb,0.11234e-07_rb,0.13638e-07_rb,0.30109e-09_rb /)\n      kbo(:, 5,38, 1) = (/ &\n        & 0.16856e-10_rb,0.78971e-08_rb,0.12166e-07_rb,0.14977e-07_rb,0.32671e-09_rb /)\n      kbo(:, 1,39, 1) = (/ &\n        & 0.17377e-10_rb,0.47418e-08_rb,0.68561e-08_rb,0.78795e-08_rb,0.18373e-09_rb /)\n      kbo(:, 2,39, 1) = (/ &\n        & 0.16353e-10_rb,0.51532e-08_rb,0.75620e-08_rb,0.89128e-08_rb,0.20284e-09_rb /)\n      kbo(:, 3,39, 1) = (/ &\n        & 0.15443e-10_rb,0.55752e-08_rb,0.83069e-08_rb,0.99666e-08_rb,0.22279e-09_rb /)\n      kbo(:, 4,39, 1) = (/ &\n        & 0.14629e-10_rb,0.59857e-08_rb,0.90872e-08_rb,0.11011e-07_rb,0.24327e-09_rb /)\n      kbo(:, 5,39, 1) = (/ &\n        & 0.13896e-10_rb,0.64086e-08_rb,0.98616e-08_rb,0.12104e-07_rb,0.26420e-09_rb /)\n      kbo(:, 1,40, 1) = (/ &\n        & 0.14445e-10_rb,0.38091e-08_rb,0.54799e-08_rb,0.62754e-08_rb,0.14679e-09_rb /)\n      kbo(:, 2,40, 1) = (/ &\n        & 0.13581e-10_rb,0.41391e-08_rb,0.60530e-08_rb,0.70909e-08_rb,0.16220e-09_rb /)\n      kbo(:, 3,40, 1) = (/ &\n        & 0.12815e-10_rb,0.44888e-08_rb,0.66555e-08_rb,0.79532e-08_rb,0.17842e-09_rb /)\n      kbo(:, 4,40, 1) = (/ &\n        & 0.12131e-10_rb,0.48207e-08_rb,0.72855e-08_rb,0.88071e-08_rb,0.19509e-09_rb /)\n      kbo(:, 5,40, 1) = (/ &\n        & 0.11516e-10_rb,0.51646e-08_rb,0.79268e-08_rb,0.96932e-08_rb,0.21214e-09_rb /)\n      kbo(:, 1,41, 1) = (/ &\n        & 0.12021e-10_rb,0.30566e-08_rb,0.43606e-08_rb,0.49921e-08_rb,0.11713e-09_rb /)\n      kbo(:, 2,41, 1) = (/ &\n        & 0.11291e-10_rb,0.33205e-08_rb,0.48340e-08_rb,0.56256e-08_rb,0.12954e-09_rb /)\n      kbo(:, 3,41, 1) = (/ &\n        & 0.10645e-10_rb,0.36053e-08_rb,0.53261e-08_rb,0.63473e-08_rb,0.14269e-09_rb /)\n      kbo(:, 4,41, 1) = (/ &\n        & 0.10069e-10_rb,0.38782e-08_rb,0.58347e-08_rb,0.70386e-08_rb,0.15624e-09_rb /)\n      kbo(:, 5,41, 1) = (/ &\n        & 0.95520e-11_rb,0.41580e-08_rb,0.63647e-08_rb,0.77515e-08_rb,0.17013e-09_rb /)\n      kbo(:, 1,42, 1) = (/ &\n        & 0.10007e-10_rb,0.24516e-08_rb,0.34653e-08_rb,0.39398e-08_rb,0.93475e-10_rb /)\n      kbo(:, 2,42, 1) = (/ &\n        & 0.93902e-11_rb,0.26631e-08_rb,0.38588e-08_rb,0.44635e-08_rb,0.10342e-09_rb /)\n      kbo(:, 3,42, 1) = (/ &\n        & 0.88449e-11_rb,0.28926e-08_rb,0.42600e-08_rb,0.50466e-08_rb,0.11406e-09_rb /)\n      kbo(:, 4,42, 1) = (/ &\n        & 0.83594e-11_rb,0.31198e-08_rb,0.46719e-08_rb,0.56218e-08_rb,0.12507e-09_rb /)\n      kbo(:, 5,42, 1) = (/ &\n        & 0.79244e-11_rb,0.33465e-08_rb,0.51065e-08_rb,0.61999e-08_rb,0.13640e-09_rb /)\n      kbo(:, 1,43, 1) = (/ &\n        & 0.83647e-11_rb,0.19578e-08_rb,0.27341e-08_rb,0.30827e-08_rb,0.74277e-10_rb /)\n      kbo(:, 2,43, 1) = (/ &\n        & 0.78389e-11_rb,0.21263e-08_rb,0.30690e-08_rb,0.35212e-08_rb,0.82118e-10_rb /)\n      kbo(:, 3,43, 1) = (/ &\n        & 0.73752e-11_rb,0.23103e-08_rb,0.33865e-08_rb,0.39836e-08_rb,0.90672e-10_rb /)\n      kbo(:, 4,43, 1) = (/ &\n        & 0.69633e-11_rb,0.24984e-08_rb,0.37198e-08_rb,0.44569e-08_rb,0.99628e-10_rb /)\n      kbo(:, 5,43, 1) = (/ &\n        & 0.65950e-11_rb,0.26833e-08_rb,0.40709e-08_rb,0.49265e-08_rb,0.10883e-09_rb /)\n      kbo(:, 1,44, 1) = (/ &\n        & 0.70070e-11_rb,0.15628e-08_rb,0.21521e-08_rb,0.24017e-08_rb,0.59116e-10_rb /)\n      kbo(:, 2,44, 1) = (/ &\n        & 0.65570e-11_rb,0.16954e-08_rb,0.24254e-08_rb,0.27772e-08_rb,0.65027e-10_rb /)\n      kbo(:, 3,44, 1) = (/ &\n        & 0.61612e-11_rb,0.18413e-08_rb,0.26845e-08_rb,0.31310e-08_rb,0.71892e-10_rb /)\n      kbo(:, 4,44, 1) = (/ &\n        & 0.58106e-11_rb,0.19977e-08_rb,0.29542e-08_rb,0.35211e-08_rb,0.79144e-10_rb /)\n      kbo(:, 5,44, 1) = (/ &\n        & 0.54976e-11_rb,0.21464e-08_rb,0.32360e-08_rb,0.39045e-08_rb,0.86629e-10_rb /)\n      kbo(:, 1,45, 1) = (/ &\n        & 0.58728e-11_rb,0.12500e-08_rb,0.17079e-08_rb,0.18743e-08_rb,0.46646e-10_rb /)\n      kbo(:, 2,45, 1) = (/ &\n        & 0.54873e-11_rb,0.13505e-08_rb,0.19105e-08_rb,0.21719e-08_rb,0.51499e-10_rb /)\n      kbo(:, 3,45, 1) = (/ &\n        & 0.51492e-11_rb,0.14670e-08_rb,0.21250e-08_rb,0.24590e-08_rb,0.56982e-10_rb /)\n      kbo(:, 4,45, 1) = (/ &\n        & 0.48504e-11_rb,0.15931e-08_rb,0.23464e-08_rb,0.27802e-08_rb,0.62839e-10_rb /)\n      kbo(:, 5,45, 1) = (/ &\n        & 0.45844e-11_rb,0.17167e-08_rb,0.25731e-08_rb,0.30954e-08_rb,0.68908e-10_rb /)\n      kbo(:, 1,46, 1) = (/ &\n        & 0.49328e-11_rb,0.99811e-09_rb,0.13397e-08_rb,0.14457e-08_rb,0.36694e-10_rb /)\n      kbo(:, 2,46, 1) = (/ &\n        & 0.46012e-11_rb,0.10742e-08_rb,0.14986e-08_rb,0.16875e-08_rb,0.40742e-10_rb /)\n      kbo(:, 3,46, 1) = (/ &\n        & 0.43113e-11_rb,0.11665e-08_rb,0.16813e-08_rb,0.19281e-08_rb,0.45049e-10_rb /)\n      kbo(:, 4,46, 1) = (/ &\n        & 0.40558e-11_rb,0.12673e-08_rb,0.18567e-08_rb,0.21817e-08_rb,0.49751e-10_rb /)\n      kbo(:, 5,46, 1) = (/ &\n        & 0.38288e-11_rb,0.13702e-08_rb,0.20399e-08_rb,0.24419e-08_rb,0.54679e-10_rb /)\n      kbo(:, 1,47, 1) = (/ &\n        & 0.41592e-11_rb,0.79205e-09_rb,0.10438e-08_rb,0.11055e-08_rb,0.28709e-10_rb /)\n      kbo(:, 2,47, 1) = (/ &\n        & 0.38717e-11_rb,0.85357e-09_rb,0.11710e-08_rb,0.13015e-08_rb,0.32198e-10_rb /)\n      kbo(:, 3,47, 1) = (/ &\n        & 0.36215e-11_rb,0.92515e-09_rb,0.13196e-08_rb,0.15103e-08_rb,0.35448e-10_rb /)\n      kbo(:, 4,47, 1) = (/ &\n        & 0.34016e-11_rb,0.10046e-08_rb,0.14619e-08_rb,0.17010e-08_rb,0.39203e-10_rb /)\n      kbo(:, 5,47, 1) = (/ &\n        & 0.32069e-11_rb,0.10904e-08_rb,0.16100e-08_rb,0.19168e-08_rb,0.43187e-10_rb /)\n      kbo(:, 1,48, 1) = (/ &\n        & 0.35100e-11_rb,0.62849e-09_rb,0.81319e-09_rb,0.84567e-09_rb,0.22456e-10_rb /)\n      kbo(:, 2,48, 1) = (/ &\n        & 0.32605e-11_rb,0.68021e-09_rb,0.92169e-09_rb,0.10040e-08_rb,0.25229e-10_rb /)\n      kbo(:, 3,48, 1) = (/ &\n        & 0.30441e-11_rb,0.73294e-09_rb,0.10314e-08_rb,0.11665e-08_rb,0.27903e-10_rb /)\n      kbo(:, 4,48, 1) = (/ &\n        & 0.28547e-11_rb,0.79615e-09_rb,0.11495e-08_rb,0.13251e-08_rb,0.30879e-10_rb /)\n      kbo(:, 5,48, 1) = (/ &\n        & 0.26874e-11_rb,0.86463e-09_rb,0.12703e-08_rb,0.14994e-08_rb,0.34082e-10_rb /)\n      kbo(:, 1,49, 1) = (/ &\n        & 0.29649e-11_rb,0.49867e-09_rb,0.63572e-09_rb,0.64557e-09_rb,0.17554e-10_rb /)\n      kbo(:, 2,49, 1) = (/ &\n        & 0.27480e-11_rb,0.54124e-09_rb,0.71871e-09_rb,0.76840e-09_rb,0.19749e-10_rb /)\n      kbo(:, 3,49, 1) = (/ &\n        & 0.25606e-11_rb,0.58140e-09_rb,0.80413e-09_rb,0.90054e-09_rb,0.22012e-10_rb /)\n      kbo(:, 4,49, 1) = (/ &\n        & 0.23972e-11_rb,0.63097e-09_rb,0.90637e-09_rb,0.10349e-08_rb,0.24308e-10_rb /)\n      kbo(:, 5,49, 1) = (/ &\n        & 0.22534e-11_rb,0.68545e-09_rb,0.10006e-08_rb,0.11704e-08_rb,0.26872e-10_rb /)\n      kbo(:, 1,50, 1) = (/ &\n        & 0.25019e-11_rb,0.39853e-09_rb,0.49374e-09_rb,0.49615e-09_rb,0.13762e-10_rb /)\n      kbo(:, 2,50, 1) = (/ &\n        & 0.23136e-11_rb,0.42952e-09_rb,0.56141e-09_rb,0.58980e-09_rb,0.15500e-10_rb /)\n      kbo(:, 3,50, 1) = (/ &\n        & 0.21517e-11_rb,0.46334e-09_rb,0.63284e-09_rb,0.69788e-09_rb,0.17390e-10_rb /)\n      kbo(:, 4,50, 1) = (/ &\n        & 0.20110e-11_rb,0.50130e-09_rb,0.71124e-09_rb,0.80903e-09_rb,0.19184e-10_rb /)\n      kbo(:, 5,50, 1) = (/ &\n        & 0.18875e-11_rb,0.54446e-09_rb,0.78908e-09_rb,0.91435e-09_rb,0.21230e-10_rb /)\n      kbo(:, 1,51, 1) = (/ &\n        & 0.21111e-11_rb,0.31534e-09_rb,0.38552e-09_rb,0.38324e-09_rb,0.10851e-10_rb /)\n      kbo(:, 2,51, 1) = (/ &\n        & 0.19478e-11_rb,0.34179e-09_rb,0.43986e-09_rb,0.45355e-09_rb,0.12176e-10_rb /)\n      kbo(:, 3,51, 1) = (/ &\n        & 0.18079e-11_rb,0.37016e-09_rb,0.49835e-09_rb,0.53919e-09_rb,0.13683e-10_rb /)\n      kbo(:, 4,51, 1) = (/ &\n        & 0.16868e-11_rb,0.39846e-09_rb,0.55746e-09_rb,0.62805e-09_rb,0.15164e-10_rb /)\n      kbo(:, 5,51, 1) = (/ &\n        & 0.15809e-11_rb,0.43272e-09_rb,0.62310e-09_rb,0.71587e-09_rb,0.16785e-10_rb /)\n      kbo(:, 1,52, 1) = (/ &\n        & 0.17830e-11_rb,0.24939e-09_rb,0.30033e-09_rb,0.29708e-09_rb,0.85480e-11_rb /)\n      kbo(:, 2,52, 1) = (/ &\n        & 0.16410e-11_rb,0.27244e-09_rb,0.34467e-09_rb,0.34870e-09_rb,0.95642e-11_rb /)\n      kbo(:, 3,52, 1) = (/ &\n        & 0.15200e-11_rb,0.29507e-09_rb,0.39020e-09_rb,0.41505e-09_rb,0.10764e-10_rb /)\n      kbo(:, 4,52, 1) = (/ &\n        & 0.14156e-11_rb,0.31736e-09_rb,0.43693e-09_rb,0.48758e-09_rb,0.12016e-10_rb /)\n      kbo(:, 5,52, 1) = (/ &\n        & 0.13246e-11_rb,0.34409e-09_rb,0.49243e-09_rb,0.56181e-09_rb,0.13267e-10_rb /)\n      kbo(:, 1,53, 1) = (/ &\n        & 0.15074e-11_rb,0.19746e-09_rb,0.23442e-09_rb,0.23027e-09_rb,0.66942e-11_rb /)\n      kbo(:, 2,53, 1) = (/ &\n        & 0.13838e-11_rb,0.21754e-09_rb,0.26812e-09_rb,0.26865e-09_rb,0.75095e-11_rb /)\n      kbo(:, 3,53, 1) = (/ &\n        & 0.12789e-11_rb,0.23445e-09_rb,0.30510e-09_rb,0.31916e-09_rb,0.84626e-11_rb /)\n      kbo(:, 4,53, 1) = (/ &\n        & 0.11888e-11_rb,0.25305e-09_rb,0.34496e-09_rb,0.37906e-09_rb,0.94963e-11_rb /)\n      kbo(:, 5,53, 1) = (/ &\n        & 0.11106e-11_rb,0.27355e-09_rb,0.38680e-09_rb,0.43882e-09_rb,0.10486e-10_rb /)\n      kbo(:, 1,54, 1) = (/ &\n        & 0.12722e-11_rb,0.15676e-09_rb,0.18436e-09_rb,0.18188e-09_rb,0.52601e-11_rb /)\n      kbo(:, 2,54, 1) = (/ &\n        & 0.11649e-11_rb,0.17256e-09_rb,0.21030e-09_rb,0.20876e-09_rb,0.59465e-11_rb /)\n      kbo(:, 3,54, 1) = (/ &\n        & 0.10743e-11_rb,0.18706e-09_rb,0.24022e-09_rb,0.24657e-09_rb,0.66750e-11_rb /)\n      kbo(:, 4,54, 1) = (/ &\n        & 0.99683e-12_rb,0.20263e-09_rb,0.27206e-09_rb,0.29337e-09_rb,0.75016e-11_rb /)\n      kbo(:, 5,54, 1) = (/ &\n        & 0.92975e-12_rb,0.21798e-09_rb,0.30420e-09_rb,0.34203e-09_rb,0.83182e-11_rb /)\n      kbo(:, 1,55, 1) = (/ &\n        & 0.10733e-11_rb,0.12552e-09_rb,0.14668e-09_rb,0.14477e-09_rb,0.41440e-11_rb /)\n      kbo(:, 2,55, 1) = (/ &\n        & 0.98027e-12_rb,0.13705e-09_rb,0.16480e-09_rb,0.16298e-09_rb,0.47137e-11_rb /)\n      kbo(:, 3,55, 1) = (/ &\n        & 0.90209e-12_rb,0.14966e-09_rb,0.18911e-09_rb,0.19117e-09_rb,0.52730e-11_rb /)\n      kbo(:, 4,55, 1) = (/ &\n        & 0.83546e-12_rb,0.16210e-09_rb,0.21410e-09_rb,0.22758e-09_rb,0.59349e-11_rb /)\n      kbo(:, 5,55, 1) = (/ &\n        & 0.77800e-12_rb,0.17423e-09_rb,0.23972e-09_rb,0.26725e-09_rb,0.66163e-11_rb /)\n      kbo(:, 1,56, 1) = (/ &\n        & 0.90624e-12_rb,0.99786e-10_rb,0.11674e-09_rb,0.11286e-09_rb,0.32776e-11_rb /)\n      kbo(:, 2,56, 1) = (/ &\n        & 0.82547e-12_rb,0.10897e-09_rb,0.12938e-09_rb,0.12705e-09_rb,0.37161e-11_rb /)\n      kbo(:, 3,56, 1) = (/ &\n        & 0.75791e-12_rb,0.12009e-09_rb,0.14804e-09_rb,0.14827e-09_rb,0.41646e-11_rb /)\n      kbo(:, 4,56, 1) = (/ &\n        & 0.70058e-12_rb,0.12925e-09_rb,0.16837e-09_rb,0.17630e-09_rb,0.46957e-11_rb /)\n      kbo(:, 5,56, 1) = (/ &\n        & 0.65131e-12_rb,0.13937e-09_rb,0.18999e-09_rb,0.20899e-09_rb,0.52742e-11_rb /)\n      kbo(:, 1,57, 1) = (/ &\n        & 0.76595e-12_rb,0.78822e-10_rb,0.93863e-10_rb,0.87529e-10_rb,0.26033e-11_rb /)\n      kbo(:, 2,57, 1) = (/ &\n        & 0.69568e-12_rb,0.86555e-10_rb,0.10190e-09_rb,0.10022e-09_rb,0.29288e-11_rb /)\n      kbo(:, 3,57, 1) = (/ &\n        & 0.63721e-12_rb,0.95385e-10_rb,0.11640e-09_rb,0.11533e-09_rb,0.32994e-11_rb /)\n      kbo(:, 4,57, 1) = (/ &\n        & 0.58782e-12_rb,0.10325e-09_rb,0.13264e-09_rb,0.13663e-09_rb,0.37186e-11_rb /)\n      kbo(:, 5,57, 1) = (/ &\n        & 0.54552e-12_rb,0.11173e-09_rb,0.15042e-09_rb,0.16253e-09_rb,0.41819e-11_rb /)\n      kbo(:, 1,58, 1) = (/ &\n        & 0.64693e-12_rb,0.62421e-10_rb,0.76174e-10_rb,0.68324e-10_rb,0.20833e-11_rb /)\n      kbo(:, 2,58, 1) = (/ &\n        & 0.58588e-12_rb,0.69278e-10_rb,0.81197e-10_rb,0.79691e-10_rb,0.23130e-11_rb /)\n      kbo(:, 3,58, 1) = (/ &\n        & 0.53535e-12_rb,0.75873e-10_rb,0.91414e-10_rb,0.90398e-10_rb,0.26350e-11_rb /)\n      kbo(:, 4,58, 1) = (/ &\n        & 0.49285e-12_rb,0.82653e-10_rb,0.10493e-09_rb,0.10617e-09_rb,0.29473e-11_rb /)\n      kbo(:, 5,58, 1) = (/ &\n        & 0.45660e-12_rb,0.89643e-10_rb,0.11861e-09_rb,0.12647e-09_rb,0.33231e-11_rb /)\n      kbo(:, 1,59, 1) = (/ &\n        & 0.53645e-12_rb,0.50557e-10_rb,0.62240e-10_rb,0.54854e-10_rb,0.16930e-11_rb /)\n      kbo(:, 2,59, 1) = (/ &\n        & 0.48523e-12_rb,0.56468e-10_rb,0.65604e-10_rb,0.64827e-10_rb,0.18702e-11_rb /)\n      kbo(:, 3,59, 1) = (/ &\n        & 0.44294e-12_rb,0.61442e-10_rb,0.73667e-10_rb,0.72688e-10_rb,0.21292e-11_rb /)\n      kbo(:, 4,59, 1) = (/ &\n        & 0.40744e-12_rb,0.67184e-10_rb,0.84490e-10_rb,0.85217e-10_rb,0.23832e-11_rb /)\n      kbo(:, 5,59, 1) = (/ &\n        & 0.37720e-12_rb,0.72657e-10_rb,0.95692e-10_rb,0.10144e-09_rb,0.26852e-11_rb /)\n      kbo(:, 1,13, 2) = (/ &\n        & 0.18323e-07_rb,0.86266e-05_rb,0.13728e-04_rb,0.15952e-04_rb,0.78927e-06_rb /)\n      kbo(:, 2,13, 2) = (/ &\n        & 0.16961e-07_rb,0.96203e-05_rb,0.15275e-04_rb,0.17863e-04_rb,0.93659e-06_rb /)\n      kbo(:, 3,13, 2) = (/ &\n        & 0.15787e-07_rb,0.10675e-04_rb,0.16924e-04_rb,0.19675e-04_rb,0.11050e-05_rb /)\n      kbo(:, 4,13, 2) = (/ &\n        & 0.14764e-07_rb,0.11779e-04_rb,0.18474e-04_rb,0.21320e-04_rb,0.12868e-05_rb /)\n      kbo(:, 5,13, 2) = (/ &\n        & 0.13865e-07_rb,0.12843e-04_rb,0.20029e-04_rb,0.23080e-04_rb,0.14565e-05_rb /)\n      kbo(:, 1,14, 2) = (/ &\n        & 0.14893e-07_rb,0.71882e-05_rb,0.11443e-04_rb,0.13271e-04_rb,0.65835e-06_rb /)\n      kbo(:, 2,14, 2) = (/ &\n        & 0.13793e-07_rb,0.80276e-05_rb,0.12732e-04_rb,0.14890e-04_rb,0.78132e-06_rb /)\n      kbo(:, 3,14, 2) = (/ &\n        & 0.12844e-07_rb,0.89189e-05_rb,0.14101e-04_rb,0.16339e-04_rb,0.92233e-06_rb /)\n      kbo(:, 4,14, 2) = (/ &\n        & 0.12017e-07_rb,0.98309e-05_rb,0.15384e-04_rb,0.17721e-04_rb,0.10676e-05_rb /)\n      kbo(:, 5,14, 2) = (/ &\n        & 0.11289e-07_rb,0.10704e-04_rb,0.16679e-04_rb,0.19194e-04_rb,0.12091e-05_rb /)\n      kbo(:, 1,15, 2) = (/ &\n        & 0.12096e-07_rb,0.59934e-05_rb,0.95449e-05_rb,0.11058e-04_rb,0.54969e-06_rb /)\n      kbo(:, 2,15, 2) = (/ &\n        & 0.11209e-07_rb,0.66932e-05_rb,0.10623e-04_rb,0.12407e-04_rb,0.65197e-06_rb /)\n      kbo(:, 3,15, 2) = (/ &\n        & 0.10443e-07_rb,0.74449e-05_rb,0.11746e-04_rb,0.13571e-04_rb,0.76940e-06_rb /)\n      kbo(:, 4,15, 2) = (/ &\n        & 0.97747e-08_rb,0.81948e-05_rb,0.12814e-04_rb,0.14732e-04_rb,0.88496e-06_rb /)\n      kbo(:, 5,15, 2) = (/ &\n        & 0.91864e-08_rb,0.89188e-05_rb,0.13883e-04_rb,0.15946e-04_rb,0.10023e-05_rb /)\n      kbo(:, 1,16, 2) = (/ &\n        & 0.98205e-08_rb,0.50027e-05_rb,0.79644e-05_rb,0.92248e-05_rb,0.45876e-06_rb /)\n      kbo(:, 2,16, 2) = (/ &\n        & 0.91061e-08_rb,0.55846e-05_rb,0.88593e-05_rb,0.10331e-04_rb,0.54334e-06_rb /)\n      kbo(:, 3,16, 2) = (/ &\n        & 0.84882e-08_rb,0.62183e-05_rb,0.97757e-05_rb,0.11279e-04_rb,0.64050e-06_rb /)\n      kbo(:, 4,16, 2) = (/ &\n        & 0.79486e-08_rb,0.68276e-05_rb,0.10664e-04_rb,0.12244e-04_rb,0.73344e-06_rb /)\n      kbo(:, 5,16, 2) = (/ &\n        & 0.74732e-08_rb,0.74268e-05_rb,0.11545e-04_rb,0.13224e-04_rb,0.82955e-06_rb /)\n      kbo(:, 1,17, 2) = (/ &\n        & 0.79753e-08_rb,0.41713e-05_rb,0.66153e-05_rb,0.76892e-05_rb,0.38247e-06_rb /)\n      kbo(:, 2,17, 2) = (/ &\n        & 0.73994e-08_rb,0.46562e-05_rb,0.73753e-05_rb,0.85922e-05_rb,0.45188e-06_rb /)\n      kbo(:, 3,17, 2) = (/ &\n        & 0.69008e-08_rb,0.51829e-05_rb,0.81280e-05_rb,0.93638e-05_rb,0.53211e-06_rb /)\n      kbo(:, 4,17, 2) = (/ &\n        & 0.64650e-08_rb,0.56765e-05_rb,0.88560e-05_rb,0.10168e-04_rb,0.60647e-06_rb /)\n      kbo(:, 5,17, 2) = (/ &\n        & 0.60807e-08_rb,0.61758e-05_rb,0.95894e-05_rb,0.10949e-04_rb,0.68549e-06_rb /)\n      kbo(:, 1,18, 2) = (/ &\n        & 0.64779e-08_rb,0.34727e-05_rb,0.54875e-05_rb,0.64000e-05_rb,0.31851e-06_rb /)\n      kbo(:, 2,18, 2) = (/ &\n        & 0.60135e-08_rb,0.38751e-05_rb,0.61308e-05_rb,0.71372e-05_rb,0.37552e-06_rb /)\n      kbo(:, 3,18, 2) = (/ &\n        & 0.56111e-08_rb,0.43132e-05_rb,0.67478e-05_rb,0.77698e-05_rb,0.44141e-06_rb /)\n      kbo(:, 4,18, 2) = (/ &\n        & 0.52590e-08_rb,0.47150e-05_rb,0.73444e-05_rb,0.84370e-05_rb,0.50075e-06_rb /)\n      kbo(:, 5,18, 2) = (/ &\n        & 0.49483e-08_rb,0.51345e-05_rb,0.79495e-05_rb,0.90637e-05_rb,0.56601e-06_rb /)\n      kbo(:, 1,19, 2) = (/ &\n        & 0.52627e-08_rb,0.28908e-05_rb,0.45586e-05_rb,0.53260e-05_rb,0.26516e-06_rb /)\n      kbo(:, 2,19, 2) = (/ &\n        & 0.48882e-08_rb,0.32260e-05_rb,0.50940e-05_rb,0.59200e-05_rb,0.31190e-06_rb /)\n      kbo(:, 3,19, 2) = (/ &\n        & 0.45632e-08_rb,0.35843e-05_rb,0.55992e-05_rb,0.64397e-05_rb,0.36608e-06_rb /)\n      kbo(:, 4,19, 2) = (/ &\n        & 0.42786e-08_rb,0.39167e-05_rb,0.60923e-05_rb,0.69972e-05_rb,0.41361e-06_rb /)\n      kbo(:, 5,19, 2) = (/ &\n        & 0.40273e-08_rb,0.42667e-05_rb,0.65904e-05_rb,0.75021e-05_rb,0.46741e-06_rb /)\n      kbo(:, 1,20, 2) = (/ &\n        & 0.42704e-08_rb,0.24074e-05_rb,0.37990e-05_rb,0.44458e-05_rb,0.22103e-06_rb /)\n      kbo(:, 2,20, 2) = (/ &\n        & 0.39690e-08_rb,0.26942e-05_rb,0.42393e-05_rb,0.49120e-05_rb,0.26014e-06_rb /)\n      kbo(:, 3,20, 2) = (/ &\n        & 0.37071e-08_rb,0.29827e-05_rb,0.46574e-05_rb,0.53487e-05_rb,0.30416e-06_rb /)\n      kbo(:, 4,20, 2) = (/ &\n        & 0.34776e-08_rb,0.32601e-05_rb,0.50635e-05_rb,0.58076e-05_rb,0.34304e-06_rb /)\n      kbo(:, 5,20, 2) = (/ &\n        & 0.32747e-08_rb,0.35518e-05_rb,0.54700e-05_rb,0.62197e-05_rb,0.38752e-06_rb /)\n      kbo(:, 1,21, 2) = (/ &\n        & 0.34649e-08_rb,0.20096e-05_rb,0.31689e-05_rb,0.37070e-05_rb,0.18424e-06_rb /)\n      kbo(:, 2,21, 2) = (/ &\n        & 0.32224e-08_rb,0.22503e-05_rb,0.35271e-05_rb,0.40784e-05_rb,0.21705e-06_rb /)\n      kbo(:, 3,21, 2) = (/ &\n        & 0.30114e-08_rb,0.24834e-05_rb,0.38737e-05_rb,0.44436e-05_rb,0.25229e-06_rb /)\n      kbo(:, 4,21, 2) = (/ &\n        & 0.28263e-08_rb,0.27149e-05_rb,0.42083e-05_rb,0.48061e-05_rb,0.28464e-06_rb /)\n      kbo(:, 5,21, 2) = (/ &\n        & 0.26626e-08_rb,0.29556e-05_rb,0.45394e-05_rb,0.51565e-05_rb,0.32148e-06_rb /)\n      kbo(:, 1,22, 2) = (/ &\n        & 0.27976e-08_rb,0.16913e-05_rb,0.26632e-05_rb,0.31108e-05_rb,0.15537e-06_rb /)\n      kbo(:, 2,22, 2) = (/ &\n        & 0.26043e-08_rb,0.18908e-05_rb,0.29553e-05_rb,0.34067e-05_rb,0.18311e-06_rb /)\n      kbo(:, 3,22, 2) = (/ &\n        & 0.24359e-08_rb,0.20811e-05_rb,0.32390e-05_rb,0.37110e-05_rb,0.21094e-06_rb /)\n      kbo(:, 4,22, 2) = (/ &\n        & 0.22878e-08_rb,0.22746e-05_rb,0.35144e-05_rb,0.40009e-05_rb,0.23816e-06_rb /)\n      kbo(:, 5,22, 2) = (/ &\n        & 0.21567e-08_rb,0.24714e-05_rb,0.37839e-05_rb,0.42910e-05_rb,0.26886e-06_rb /)\n      kbo(:, 1,23, 2) = (/ &\n        & 0.22583e-08_rb,0.14234e-05_rb,0.22388e-05_rb,0.26088e-05_rb,0.13143e-06_rb /)\n      kbo(:, 2,23, 2) = (/ &\n        & 0.21043e-08_rb,0.15864e-05_rb,0.24776e-05_rb,0.28493e-05_rb,0.15460e-06_rb /)\n      kbo(:, 3,23, 2) = (/ &\n        & 0.19699e-08_rb,0.17436e-05_rb,0.27072e-05_rb,0.31009e-05_rb,0.17669e-06_rb /)\n      kbo(:, 4,23, 2) = (/ &\n        & 0.18515e-08_rb,0.19057e-05_rb,0.29355e-05_rb,0.33308e-05_rb,0.19953e-06_rb /)\n      kbo(:, 5,23, 2) = (/ &\n        & 0.17465e-08_rb,0.20653e-05_rb,0.31542e-05_rb,0.35663e-05_rb,0.22501e-06_rb /)\n      kbo(:, 1,24, 2) = (/ &\n        & 0.18221e-08_rb,0.12001e-05_rb,0.18808e-05_rb,0.21868e-05_rb,0.11138e-06_rb /)\n      kbo(:, 2,24, 2) = (/ &\n        & 0.16995e-08_rb,0.13315e-05_rb,0.20779e-05_rb,0.23825e-05_rb,0.13068e-06_rb /)\n      kbo(:, 3,24, 2) = (/ &\n        & 0.15923e-08_rb,0.14625e-05_rb,0.22647e-05_rb,0.25884e-05_rb,0.14820e-06_rb /)\n      kbo(:, 4,24, 2) = (/ &\n        & 0.14978e-08_rb,0.15972e-05_rb,0.24512e-05_rb,0.27771e-05_rb,0.16734e-06_rb /)\n      kbo(:, 5,24, 2) = (/ &\n        & 0.14138e-08_rb,0.17254e-05_rb,0.26296e-05_rb,0.29649e-05_rb,0.18848e-06_rb /)\n      kbo(:, 1,25, 2) = (/ &\n        & 0.14693e-08_rb,0.10111e-05_rb,0.15809e-05_rb,0.18286e-05_rb,0.94366e-07_rb /)\n      kbo(:, 2,25, 2) = (/ &\n        & 0.13718e-08_rb,0.11199e-05_rb,0.17430e-05_rb,0.19952e-05_rb,0.11045e-06_rb /)\n      kbo(:, 3,25, 2) = (/ &\n        & 0.12864e-08_rb,0.12273e-05_rb,0.18957e-05_rb,0.21572e-05_rb,0.12445e-06_rb /)\n      kbo(:, 4,25, 2) = (/ &\n        & 0.12110e-08_rb,0.13373e-05_rb,0.20462e-05_rb,0.23162e-05_rb,0.14042e-06_rb /)\n      kbo(:, 5,25, 2) = (/ &\n        & 0.11438e-08_rb,0.14410e-05_rb,0.21916e-05_rb,0.24648e-05_rb,0.15767e-06_rb /)\n      kbo(:, 1,26, 2) = (/ &\n        & 0.11834e-08_rb,0.85331e-06_rb,0.13316e-05_rb,0.15329e-05_rb,0.80212e-07_rb /)\n      kbo(:, 2,26, 2) = (/ &\n        & 0.11061e-08_rb,0.94192e-06_rb,0.14626e-05_rb,0.16729e-05_rb,0.92775e-07_rb /)\n      kbo(:, 3,26, 2) = (/ &\n        & 0.10382e-08_rb,0.10317e-05_rb,0.15890e-05_rb,0.18006e-05_rb,0.10462e-06_rb /)\n      kbo(:, 4,26, 2) = (/ &\n        & 0.97810e-09_rb,0.11205e-05_rb,0.17099e-05_rb,0.19314e-05_rb,0.11800e-06_rb /)\n      kbo(:, 5,26, 2) = (/ &\n        & 0.92457e-09_rb,0.12034e-05_rb,0.18276e-05_rb,0.20504e-05_rb,0.13209e-06_rb /)\n      kbo(:, 1,27, 2) = (/ &\n        & 0.95311e-09_rb,0.71890e-06_rb,0.11218e-05_rb,0.12867e-05_rb,0.68084e-07_rb /)\n      kbo(:, 2,27, 2) = (/ &\n        & 0.89177e-09_rb,0.79258e-06_rb,0.12275e-05_rb,0.14019e-05_rb,0.77999e-07_rb /)\n      kbo(:, 3,27, 2) = (/ &\n        & 0.83781e-09_rb,0.86605e-06_rb,0.13308e-05_rb,0.15040e-05_rb,0.88027e-07_rb /)\n      kbo(:, 4,27, 2) = (/ &\n        & 0.78998e-09_rb,0.93815e-06_rb,0.14285e-05_rb,0.16091e-05_rb,0.99057e-07_rb /)\n      kbo(:, 5,27, 2) = (/ &\n        & 0.74729e-09_rb,0.10046e-05_rb,0.15236e-05_rb,0.17059e-05_rb,0.11074e-06_rb /)\n      kbo(:, 1,28, 2) = (/ &\n        & 0.76771e-09_rb,0.60623e-06_rb,0.94427e-06_rb,0.10796e-05_rb,0.57844e-07_rb /)\n      kbo(:, 2,28, 2) = (/ &\n        & 0.71904e-09_rb,0.66653e-06_rb,0.10298e-05_rb,0.11699e-05_rb,0.65726e-07_rb /)\n      kbo(:, 3,28, 2) = (/ &\n        & 0.67614e-09_rb,0.72689e-06_rb,0.11131e-05_rb,0.12568e-05_rb,0.74009e-07_rb /)\n      kbo(:, 4,28, 2) = (/ &\n        & 0.63806e-09_rb,0.78482e-06_rb,0.11927e-05_rb,0.13406e-05_rb,0.83200e-07_rb /)\n      kbo(:, 5,28, 2) = (/ &\n        & 0.60401e-09_rb,0.83806e-06_rb,0.12695e-05_rb,0.14186e-05_rb,0.92306e-07_rb /)\n      kbo(:, 1,29, 2) = (/ &\n        & 0.61817e-09_rb,0.51053e-06_rb,0.79450e-06_rb,0.90687e-06_rb,0.49078e-07_rb /)\n      kbo(:, 2,29, 2) = (/ &\n        & 0.57958e-09_rb,0.56071e-06_rb,0.86403e-06_rb,0.97690e-06_rb,0.55257e-07_rb /)\n      kbo(:, 3,29, 2) = (/ &\n        & 0.54551e-09_rb,0.61009e-06_rb,0.93077e-06_rb,0.10495e-05_rb,0.62286e-07_rb /)\n      kbo(:, 4,29, 2) = (/ &\n        & 0.51520e-09_rb,0.65631e-06_rb,0.99567e-06_rb,0.11159e-05_rb,0.69954e-07_rb /)\n      kbo(:, 5,29, 2) = (/ &\n        & 0.48806e-09_rb,0.69830e-06_rb,0.10576e-05_rb,0.11790e-05_rb,0.77228e-07_rb /)\n      kbo(:, 1,30, 2) = (/ &\n        & 0.49783e-09_rb,0.43014e-06_rb,0.66732e-06_rb,0.76058e-06_rb,0.41306e-07_rb /)\n      kbo(:, 2,30, 2) = (/ &\n        & 0.46723e-09_rb,0.47148e-06_rb,0.72434e-06_rb,0.81682e-06_rb,0.46537e-07_rb /)\n      kbo(:, 3,30, 2) = (/ &\n        & 0.44015e-09_rb,0.51146e-06_rb,0.77809e-06_rb,0.87537e-06_rb,0.52451e-07_rb /)\n      kbo(:, 4,30, 2) = (/ &\n        & 0.41603e-09_rb,0.54877e-06_rb,0.83073e-06_rb,0.92884e-06_rb,0.58793e-07_rb /)\n      kbo(:, 5,30, 2) = (/ &\n        & 0.39440e-09_rb,0.58159e-06_rb,0.88054e-06_rb,0.98030e-06_rb,0.64630e-07_rb /)\n      kbo(:, 1,31, 2) = (/ &\n        & 0.40087e-09_rb,0.36256e-06_rb,0.56062e-06_rb,0.63549e-06_rb,0.34778e-07_rb /)\n      kbo(:, 2,31, 2) = (/ &\n        & 0.37660e-09_rb,0.39620e-06_rb,0.60674e-06_rb,0.68313e-06_rb,0.39213e-07_rb /)\n      kbo(:, 3,31, 2) = (/ &\n        & 0.35510e-09_rb,0.42855e-06_rb,0.65037e-06_rb,0.72999e-06_rb,0.44176e-07_rb /)\n      kbo(:, 4,31, 2) = (/ &\n        & 0.33590e-09_rb,0.45852e-06_rb,0.69308e-06_rb,0.77338e-06_rb,0.49424e-07_rb /)\n      kbo(:, 5,31, 2) = (/ &\n        & 0.31866e-09_rb,0.48459e-06_rb,0.73297e-06_rb,0.81484e-06_rb,0.54137e-07_rb /)\n      kbo(:, 1,32, 2) = (/ &\n        & 0.32280e-09_rb,0.30547e-06_rb,0.47083e-06_rb,0.53147e-06_rb,0.29353e-07_rb /)\n      kbo(:, 2,32, 2) = (/ &\n        & 0.30356e-09_rb,0.33271e-06_rb,0.50770e-06_rb,0.57112e-06_rb,0.33078e-07_rb /)\n      kbo(:, 3,32, 2) = (/ &\n        & 0.28647e-09_rb,0.35876e-06_rb,0.54339e-06_rb,0.60852e-06_rb,0.37211e-07_rb /)\n      kbo(:, 4,32, 2) = (/ &\n        & 0.27120e-09_rb,0.38214e-06_rb,0.57781e-06_rb,0.64354e-06_rb,0.41295e-07_rb /)\n      kbo(:, 5,32, 2) = (/ &\n        & 0.25746e-09_rb,0.40374e-06_rb,0.60990e-06_rb,0.67711e-06_rb,0.45362e-07_rb /)\n      kbo(:, 1,33, 2) = (/ &\n        & 0.25997e-09_rb,0.25723e-06_rb,0.39505e-06_rb,0.44467e-06_rb,0.24754e-07_rb /)\n      kbo(:, 2,33, 2) = (/ &\n        & 0.24471e-09_rb,0.27926e-06_rb,0.42469e-06_rb,0.47702e-06_rb,0.27907e-07_rb /)\n      kbo(:, 3,33, 2) = (/ &\n        & 0.23113e-09_rb,0.30024e-06_rb,0.45384e-06_rb,0.50672e-06_rb,0.31344e-07_rb /)\n      kbo(:, 4,33, 2) = (/ &\n        & 0.21898e-09_rb,0.31862e-06_rb,0.48142e-06_rb,0.53515e-06_rb,0.34590e-07_rb /)\n      kbo(:, 5,33, 2) = (/ &\n        & 0.20803e-09_rb,0.33624e-06_rb,0.50721e-06_rb,0.56242e-06_rb,0.37957e-07_rb /)\n      kbo(:, 1,34, 2) = (/ &\n        & 0.20987e-09_rb,0.21561e-06_rb,0.33035e-06_rb,0.37093e-06_rb,0.20801e-07_rb /)\n      kbo(:, 2,34, 2) = (/ &\n        & 0.19771e-09_rb,0.23356e-06_rb,0.35433e-06_rb,0.39723e-06_rb,0.23443e-07_rb /)\n      kbo(:, 3,34, 2) = (/ &\n        & 0.18688e-09_rb,0.25042e-06_rb,0.37804e-06_rb,0.42127e-06_rb,0.26271e-07_rb /)\n      kbo(:, 4,34, 2) = (/ &\n        & 0.17716e-09_rb,0.26514e-06_rb,0.40029e-06_rb,0.44433e-06_rb,0.28867e-07_rb /)\n      kbo(:, 5,34, 2) = (/ &\n        & 0.16840e-09_rb,0.27949e-06_rb,0.42102e-06_rb,0.46612e-06_rb,0.31620e-07_rb /)\n      kbo(:, 1,35, 2) = (/ &\n        & 0.17046e-09_rb,0.17909e-06_rb,0.27397e-06_rb,0.30730e-06_rb,0.17283e-07_rb /)\n      kbo(:, 2,35, 2) = (/ &\n        & 0.16066e-09_rb,0.19378e-06_rb,0.29367e-06_rb,0.32869e-06_rb,0.19456e-07_rb /)\n      kbo(:, 3,35, 2) = (/ &\n        & 0.15191e-09_rb,0.20716e-06_rb,0.31287e-06_rb,0.34820e-06_rb,0.21759e-07_rb /)\n      kbo(:, 4,35, 2) = (/ &\n        & 0.14407e-09_rb,0.21938e-06_rb,0.33090e-06_rb,0.36703e-06_rb,0.23854e-07_rb /)\n      kbo(:, 5,35, 2) = (/ &\n        & 0.13699e-09_rb,0.23115e-06_rb,0.34779e-06_rb,0.38459e-06_rb,0.26128e-07_rb /)\n      kbo(:, 1,36, 2) = (/ &\n        & 0.13938e-09_rb,0.14742e-06_rb,0.22535e-06_rb,0.25261e-06_rb,0.14145e-07_rb /)\n      kbo(:, 2,36, 2) = (/ &\n        & 0.13137e-09_rb,0.15949e-06_rb,0.24155e-06_rb,0.27011e-06_rb,0.15917e-07_rb /)\n      kbo(:, 3,36, 2) = (/ &\n        & 0.12423e-09_rb,0.17037e-06_rb,0.25721e-06_rb,0.28606e-06_rb,0.17809e-07_rb /)\n      kbo(:, 4,36, 2) = (/ &\n        & 0.11782e-09_rb,0.18044e-06_rb,0.27200e-06_rb,0.30149e-06_rb,0.19530e-07_rb /)\n      kbo(:, 5,36, 2) = (/ &\n        & 0.11204e-09_rb,0.19011e-06_rb,0.28582e-06_rb,0.31581e-06_rb,0.21391e-07_rb /)\n      kbo(:, 1,37, 2) = (/ &\n        & 0.11503e-09_rb,0.11991e-06_rb,0.18339e-06_rb,0.20540e-06_rb,0.11398e-07_rb /)\n      kbo(:, 2,37, 2) = (/ &\n        & 0.10837e-09_rb,0.12985e-06_rb,0.19670e-06_rb,0.21991e-06_rb,0.12829e-07_rb /)\n      kbo(:, 3,37, 2) = (/ &\n        & 0.10244e-09_rb,0.13895e-06_rb,0.20964e-06_rb,0.23310e-06_rb,0.14370e-07_rb /)\n      kbo(:, 4,37, 2) = (/ &\n        & 0.97122e-10_rb,0.14725e-06_rb,0.22183e-06_rb,0.24582e-06_rb,0.15790e-07_rb /)\n      kbo(:, 5,37, 2) = (/ &\n        & 0.92325e-10_rb,0.15526e-06_rb,0.23327e-06_rb,0.25767e-06_rb,0.17308e-07_rb /)\n      kbo(:, 1,38, 2) = (/ &\n        & 0.94990e-10_rb,0.97434e-07_rb,0.14912e-06_rb,0.16699e-06_rb,0.91745e-08_rb /)\n      kbo(:, 2,38, 2) = (/ &\n        & 0.89449e-10_rb,0.10563e-06_rb,0.16007e-06_rb,0.17890e-06_rb,0.10330e-07_rb /)\n      kbo(:, 3,38, 2) = (/ &\n        & 0.84516e-10_rb,0.11322e-06_rb,0.17071e-06_rb,0.18982e-06_rb,0.11585e-07_rb /)\n      kbo(:, 4,38, 2) = (/ &\n        & 0.80096e-10_rb,0.12009e-06_rb,0.18084e-06_rb,0.20030e-06_rb,0.12759e-07_rb /)\n      kbo(:, 5,38, 2) = (/ &\n        & 0.76113e-10_rb,0.12672e-06_rb,0.19028e-06_rb,0.21012e-06_rb,0.13992e-07_rb /)\n      kbo(:, 1,39, 2) = (/ &\n        & 0.78444e-10_rb,0.79147e-07_rb,0.12122e-06_rb,0.13573e-06_rb,0.73846e-08_rb /)\n      kbo(:, 2,39, 2) = (/ &\n        & 0.73832e-10_rb,0.85901e-07_rb,0.13022e-06_rb,0.14552e-06_rb,0.83180e-08_rb /)\n      kbo(:, 3,39, 2) = (/ &\n        & 0.69729e-10_rb,0.92230e-07_rb,0.13899e-06_rb,0.15459e-06_rb,0.93374e-08_rb /)\n      kbo(:, 4,39, 2) = (/ &\n        & 0.66056e-10_rb,0.97919e-07_rb,0.14737e-06_rb,0.16325e-06_rb,0.10307e-07_rb /)\n      kbo(:, 5,39, 2) = (/ &\n        & 0.62749e-10_rb,0.10341e-06_rb,0.15518e-06_rb,0.17133e-06_rb,0.11312e-07_rb /)\n      kbo(:, 1,40, 2) = (/ &\n        & 0.65207e-10_rb,0.63715e-07_rb,0.97755e-07_rb,0.10945e-06_rb,0.58831e-08_rb /)\n      kbo(:, 2,40, 2) = (/ &\n        & 0.61319e-10_rb,0.69289e-07_rb,0.10524e-06_rb,0.11757e-06_rb,0.66237e-08_rb /)\n      kbo(:, 3,40, 2) = (/ &\n        & 0.57866e-10_rb,0.74694e-07_rb,0.11245e-06_rb,0.12515e-06_rb,0.74455e-08_rb /)\n      kbo(:, 4,40, 2) = (/ &\n        & 0.54779e-10_rb,0.79359e-07_rb,0.11941e-06_rb,0.13229e-06_rb,0.82595e-08_rb /)\n      kbo(:, 5,40, 2) = (/ &\n        & 0.52003e-10_rb,0.83957e-07_rb,0.12593e-06_rb,0.13909e-06_rb,0.90698e-08_rb /)\n      kbo(:, 1,41, 2) = (/ &\n        & 0.54263e-10_rb,0.51172e-07_rb,0.78714e-07_rb,0.88183e-07_rb,0.46740e-08_rb /)\n      kbo(:, 2,41, 2) = (/ &\n        & 0.50978e-10_rb,0.55838e-07_rb,0.84939e-07_rb,0.94828e-07_rb,0.52655e-08_rb /)\n      kbo(:, 3,41, 2) = (/ &\n        & 0.48066e-10_rb,0.60328e-07_rb,0.90859e-07_rb,0.10118e-06_rb,0.59273e-08_rb /)\n      kbo(:, 4,41, 2) = (/ &\n        & 0.45467e-10_rb,0.64260e-07_rb,0.96667e-07_rb,0.10710e-06_rb,0.66279e-08_rb /)\n      kbo(:, 5,41, 2) = (/ &\n        & 0.43134e-10_rb,0.68089e-07_rb,0.10208e-06_rb,0.11279e-06_rb,0.72560e-08_rb /)\n      kbo(:, 1,42, 2) = (/ &\n        & 0.45170e-10_rb,0.41073e-07_rb,0.63333e-07_rb,0.71067e-07_rb,0.37185e-08_rb /)\n      kbo(:, 2,42, 2) = (/ &\n        & 0.42393e-10_rb,0.44964e-07_rb,0.68507e-07_rb,0.76455e-07_rb,0.41864e-08_rb /)\n      kbo(:, 3,42, 2) = (/ &\n        & 0.39936e-10_rb,0.48667e-07_rb,0.73382e-07_rb,0.81772e-07_rb,0.47157e-08_rb /)\n      kbo(:, 4,42, 2) = (/ &\n        & 0.37747e-10_rb,0.51996e-07_rb,0.78220e-07_rb,0.86689e-07_rb,0.52834e-08_rb /)\n      kbo(:, 5,42, 2) = (/ &\n        & 0.35784e-10_rb,0.55178e-07_rb,0.82739e-07_rb,0.91434e-07_rb,0.58040e-08_rb /)\n      kbo(:, 1,43, 2) = (/ &\n        & 0.37754e-10_rb,0.32770e-07_rb,0.50662e-07_rb,0.56979e-07_rb,0.29405e-08_rb /)\n      kbo(:, 2,43, 2) = (/ &\n        & 0.35387e-10_rb,0.35997e-07_rb,0.54993e-07_rb,0.61357e-07_rb,0.33066e-08_rb /)\n      kbo(:, 3,43, 2) = (/ &\n        & 0.33299e-10_rb,0.39073e-07_rb,0.59036e-07_rb,0.65793e-07_rb,0.37265e-08_rb /)\n      kbo(:, 4,43, 2) = (/ &\n        & 0.31442e-10_rb,0.41903e-07_rb,0.63014e-07_rb,0.69920e-07_rb,0.41848e-08_rb /)\n      kbo(:, 5,43, 2) = (/ &\n        & 0.29781e-10_rb,0.44546e-07_rb,0.66822e-07_rb,0.73849e-07_rb,0.46204e-08_rb /)\n      kbo(:, 1,44, 2) = (/ &\n        & 0.31623e-10_rb,0.26054e-07_rb,0.40405e-07_rb,0.45692e-07_rb,0.22918e-08_rb /)\n      kbo(:, 2,44, 2) = (/ &\n        & 0.29599e-10_rb,0.28713e-07_rb,0.44010e-07_rb,0.49122e-07_rb,0.26053e-08_rb /)\n      kbo(:, 3,44, 2) = (/ &\n        & 0.27817e-10_rb,0.31296e-07_rb,0.47391e-07_rb,0.52815e-07_rb,0.29353e-08_rb /)\n      kbo(:, 4,44, 2) = (/ &\n        & 0.26236e-10_rb,0.33677e-07_rb,0.50655e-07_rb,0.56264e-07_rb,0.33023e-08_rb /)\n      kbo(:, 5,44, 2) = (/ &\n        & 0.24825e-10_rb,0.35896e-07_rb,0.53863e-07_rb,0.59538e-07_rb,0.36730e-08_rb /)\n      kbo(:, 1,45, 2) = (/ &\n        & 0.26502e-10_rb,0.20705e-07_rb,0.32152e-07_rb,0.36448e-07_rb,0.17841e-08_rb /)\n      kbo(:, 2,45, 2) = (/ &\n        & 0.24768e-10_rb,0.22868e-07_rb,0.35185e-07_rb,0.39329e-07_rb,0.20515e-08_rb /)\n      kbo(:, 3,45, 2) = (/ &\n        & 0.23247e-10_rb,0.25027e-07_rb,0.37999e-07_rb,0.42338e-07_rb,0.23118e-08_rb /)\n      kbo(:, 4,45, 2) = (/ &\n        & 0.21900e-10_rb,0.27063e-07_rb,0.40694e-07_rb,0.45258e-07_rb,0.26048e-08_rb /)\n      kbo(:, 5,45, 2) = (/ &\n        & 0.20701e-10_rb,0.28901e-07_rb,0.43361e-07_rb,0.47969e-07_rb,0.29174e-08_rb /)\n      kbo(:, 1,46, 2) = (/ &\n        & 0.22258e-10_rb,0.16422e-07_rb,0.25480e-07_rb,0.28991e-07_rb,0.13830e-08_rb /)\n      kbo(:, 2,46, 2) = (/ &\n        & 0.20767e-10_rb,0.18158e-07_rb,0.28033e-07_rb,0.31442e-07_rb,0.16144e-08_rb /)\n      kbo(:, 3,46, 2) = (/ &\n        & 0.19462e-10_rb,0.19953e-07_rb,0.30402e-07_rb,0.33850e-07_rb,0.18162e-08_rb /)\n      kbo(:, 4,46, 2) = (/ &\n        & 0.18312e-10_rb,0.21658e-07_rb,0.32639e-07_rb,0.36308e-07_rb,0.20475e-08_rb /)\n      kbo(:, 5,46, 2) = (/ &\n        & 0.17289e-10_rb,0.23211e-07_rb,0.34839e-07_rb,0.38583e-07_rb,0.22994e-08_rb /)\n      kbo(:, 1,47, 2) = (/ &\n        & 0.18764e-10_rb,0.12951e-07_rb,0.20072e-07_rb,0.22982e-07_rb,0.10645e-08_rb /)\n      kbo(:, 2,47, 2) = (/ &\n        & 0.17473e-10_rb,0.14335e-07_rb,0.22214e-07_rb,0.25085e-07_rb,0.12479e-08_rb /)\n      kbo(:, 3,47, 2) = (/ &\n        & 0.16347e-10_rb,0.15813e-07_rb,0.24205e-07_rb,0.26971e-07_rb,0.14207e-08_rb /)\n      kbo(:, 4,47, 2) = (/ &\n        & 0.15357e-10_rb,0.17255e-07_rb,0.26075e-07_rb,0.29015e-07_rb,0.16008e-08_rb /)\n      kbo(:, 5,47, 2) = (/ &\n        & 0.14480e-10_rb,0.18558e-07_rb,0.27885e-07_rb,0.30922e-07_rb,0.18018e-08_rb /)\n      kbo(:, 1,48, 2) = (/ &\n        & 0.15833e-10_rb,0.10186e-07_rb,0.15782e-07_rb,0.18174e-07_rb,0.81718e-09_rb /)\n      kbo(:, 2,48, 2) = (/ &\n        & 0.14713e-10_rb,0.11312e-07_rb,0.17555e-07_rb,0.19891e-07_rb,0.96098e-09_rb /)\n      kbo(:, 3,48, 2) = (/ &\n        & 0.13740e-10_rb,0.12509e-07_rb,0.19248e-07_rb,0.21482e-07_rb,0.11112e-08_rb /)\n      kbo(:, 4,48, 2) = (/ &\n        & 0.12887e-10_rb,0.13719e-07_rb,0.20811e-07_rb,0.23140e-07_rb,0.12515e-08_rb /)\n      kbo(:, 5,48, 2) = (/ &\n        & 0.12134e-10_rb,0.14840e-07_rb,0.22313e-07_rb,0.24769e-07_rb,0.14105e-08_rb /)\n      kbo(:, 1,49, 2) = (/ &\n        & 0.13372e-10_rb,0.80050e-08_rb,0.12403e-07_rb,0.14283e-07_rb,0.63117e-09_rb /)\n      kbo(:, 2,49, 2) = (/ &\n        & 0.12398e-10_rb,0.89393e-08_rb,0.13840e-07_rb,0.15751e-07_rb,0.73907e-09_rb /)\n      kbo(:, 3,49, 2) = (/ &\n        & 0.11556e-10_rb,0.98821e-08_rb,0.15261e-07_rb,0.17104e-07_rb,0.86645e-09_rb /)\n      kbo(:, 4,49, 2) = (/ &\n        & 0.10821e-10_rb,0.10884e-07_rb,0.16582e-07_rb,0.18441e-07_rb,0.97829e-09_rb /)\n      kbo(:, 5,49, 2) = (/ &\n        & 0.10174e-10_rb,0.11841e-07_rb,0.17828e-07_rb,0.19804e-07_rb,0.11034e-08_rb /)\n      kbo(:, 1,50, 2) = (/ &\n        & 0.11282e-10_rb,0.62726e-08_rb,0.97478e-08_rb,0.11226e-07_rb,0.48398e-09_rb /)\n      kbo(:, 2,50, 2) = (/ &\n        & 0.10437e-10_rb,0.70546e-08_rb,0.10932e-07_rb,0.12518e-07_rb,0.57051e-09_rb /)\n      kbo(:, 3,50, 2) = (/ &\n        & 0.97101e-11_rb,0.78193e-08_rb,0.12114e-07_rb,0.13671e-07_rb,0.66997e-09_rb /)\n      kbo(:, 4,50, 2) = (/ &\n        & 0.90772e-11_rb,0.86379e-08_rb,0.13218e-07_rb,0.14712e-07_rb,0.76625e-09_rb /)\n      kbo(:, 5,50, 2) = (/ &\n        & 0.85216e-11_rb,0.94405e-08_rb,0.14258e-07_rb,0.15844e-07_rb,0.86488e-09_rb /)\n      kbo(:, 1,51, 2) = (/ &\n        & 0.95179e-11_rb,0.49251e-08_rb,0.76356e-08_rb,0.87761e-08_rb,0.37213e-09_rb /)\n      kbo(:, 2,51, 2) = (/ &\n        & 0.87856e-11_rb,0.55681e-08_rb,0.86220e-08_rb,0.99159e-08_rb,0.44074e-09_rb /)\n      kbo(:, 3,51, 2) = (/ &\n        & 0.81576e-11_rb,0.61930e-08_rb,0.95989e-08_rb,0.10865e-07_rb,0.51843e-09_rb /)\n      kbo(:, 4,51, 2) = (/ &\n        & 0.76131e-11_rb,0.68518e-08_rb,0.10539e-07_rb,0.11746e-07_rb,0.60210e-09_rb /)\n      kbo(:, 5,51, 2) = (/ &\n        & 0.71366e-11_rb,0.75206e-08_rb,0.11403e-07_rb,0.12659e-07_rb,0.67841e-09_rb /)\n      kbo(:, 1,52, 2) = (/ &\n        & 0.80368e-11_rb,0.38608e-08_rb,0.60010e-08_rb,0.68441e-08_rb,0.28848e-09_rb /)\n      kbo(:, 2,52, 2) = (/ &\n        & 0.74007e-11_rb,0.43903e-08_rb,0.67974e-08_rb,0.78127e-08_rb,0.34245e-09_rb /)\n      kbo(:, 3,52, 2) = (/ &\n        & 0.68577e-11_rb,0.49086e-08_rb,0.75959e-08_rb,0.86279e-08_rb,0.40106e-09_rb /)\n      kbo(:, 4,52, 2) = (/ &\n        & 0.63886e-11_rb,0.54297e-08_rb,0.83801e-08_rb,0.93778e-08_rb,0.47058e-09_rb /)\n      kbo(:, 5,52, 2) = (/ &\n        & 0.59795e-11_rb,0.59829e-08_rb,0.91103e-08_rb,0.10111e-07_rb,0.53218e-09_rb /)\n      kbo(:, 1,53, 2) = (/ &\n        & 0.67932e-11_rb,0.30102e-08_rb,0.47269e-08_rb,0.53395e-08_rb,0.22432e-09_rb /)\n      kbo(:, 2,53, 2) = (/ &\n        & 0.62397e-11_rb,0.34450e-08_rb,0.53458e-08_rb,0.61449e-08_rb,0.26282e-09_rb /)\n      kbo(:, 3,53, 2) = (/ &\n        & 0.57693e-11_rb,0.38768e-08_rb,0.60006e-08_rb,0.68613e-08_rb,0.31020e-09_rb /)\n      kbo(:, 4,53, 2) = (/ &\n        & 0.53647e-11_rb,0.43002e-08_rb,0.66533e-08_rb,0.74990e-08_rb,0.36446e-09_rb /)\n      kbo(:, 5,53, 2) = (/ &\n        & 0.50129e-11_rb,0.47527e-08_rb,0.72638e-08_rb,0.80717e-08_rb,0.41759e-09_rb /)\n      kbo(:, 1,54, 2) = (/ &\n        & 0.57320e-11_rb,0.23582e-08_rb,0.36837e-08_rb,0.41317e-08_rb,0.17477e-09_rb /)\n      kbo(:, 2,54, 2) = (/ &\n        & 0.52518e-11_rb,0.27163e-08_rb,0.42048e-08_rb,0.48208e-08_rb,0.20321e-09_rb /)\n      kbo(:, 3,54, 2) = (/ &\n        & 0.48457e-11_rb,0.30678e-08_rb,0.47472e-08_rb,0.54472e-08_rb,0.24081e-09_rb /)\n      kbo(:, 4,54, 2) = (/ &\n        & 0.44978e-11_rb,0.34148e-08_rb,0.52851e-08_rb,0.59735e-08_rb,0.28345e-09_rb /)\n      kbo(:, 5,54, 2) = (/ &\n        & 0.41963e-11_rb,0.37804e-08_rb,0.58001e-08_rb,0.64570e-08_rb,0.32923e-09_rb /)\n      kbo(:, 1,55, 2) = (/ &\n        & 0.48347e-11_rb,0.18534e-08_rb,0.28539e-08_rb,0.31828e-08_rb,0.13492e-09_rb /)\n      kbo(:, 2,55, 2) = (/ &\n        & 0.44186e-11_rb,0.21392e-08_rb,0.33190e-08_rb,0.37817e-08_rb,0.15848e-09_rb /)\n      kbo(:, 3,55, 2) = (/ &\n        & 0.40683e-11_rb,0.24320e-08_rb,0.37592e-08_rb,0.43156e-08_rb,0.18835e-09_rb /)\n      kbo(:, 4,55, 2) = (/ &\n        & 0.37693e-11_rb,0.27150e-08_rb,0.41999e-08_rb,0.47625e-08_rb,0.22076e-09_rb /)\n      kbo(:, 5,55, 2) = (/ &\n        & 0.35111e-11_rb,0.30082e-08_rb,0.46345e-08_rb,0.51736e-08_rb,0.25916e-09_rb /)\n      kbo(:, 1,56, 2) = (/ &\n        & 0.40813e-11_rb,0.14543e-08_rb,0.22038e-08_rb,0.24488e-08_rb,0.10328e-09_rb /)\n      kbo(:, 2,56, 2) = (/ &\n        & 0.37201e-11_rb,0.16813e-08_rb,0.26371e-08_rb,0.29640e-08_rb,0.12446e-09_rb /)\n      kbo(:, 3,56, 2) = (/ &\n        & 0.34175e-11_rb,0.19191e-08_rb,0.29747e-08_rb,0.34115e-08_rb,0.14604e-09_rb /)\n      kbo(:, 4,56, 2) = (/ &\n        & 0.31604e-11_rb,0.21575e-08_rb,0.33348e-08_rb,0.38018e-08_rb,0.17202e-09_rb /)\n      kbo(:, 5,56, 2) = (/ &\n        & 0.29391e-11_rb,0.23932e-08_rb,0.36930e-08_rb,0.41472e-08_rb,0.20235e-09_rb /)\n      kbo(:, 1,57, 2) = (/ &\n        & 0.34486e-11_rb,0.11480e-08_rb,0.17032e-08_rb,0.18771e-08_rb,0.78787e-10_rb /)\n      kbo(:, 2,57, 2) = (/ &\n        & 0.31345e-11_rb,0.13189e-08_rb,0.20615e-08_rb,0.23121e-08_rb,0.96832e-10_rb /)\n      kbo(:, 3,57, 2) = (/ &\n        & 0.28728e-11_rb,0.15144e-08_rb,0.23440e-08_rb,0.26863e-08_rb,0.11317e-09_rb /)\n      kbo(:, 4,57, 2) = (/ &\n        & 0.26513e-11_rb,0.17102e-08_rb,0.26436e-08_rb,0.30246e-08_rb,0.13393e-09_rb /)\n      kbo(:, 5,57, 2) = (/ &\n        & 0.24615e-11_rb,0.19022e-08_rb,0.29394e-08_rb,0.33135e-08_rb,0.15772e-09_rb /)\n      kbo(:, 1,58, 2) = (/ &\n        & 0.29119e-11_rb,0.89500e-09_rb,0.13020e-08_rb,0.14383e-08_rb,0.60253e-10_rb /)\n      kbo(:, 2,58, 2) = (/ &\n        & 0.26392e-11_rb,0.10369e-08_rb,0.16036e-08_rb,0.17891e-08_rb,0.75765e-10_rb /)\n      kbo(:, 3,58, 2) = (/ &\n        & 0.24132e-11_rb,0.11975e-08_rb,0.18523e-08_rb,0.21114e-08_rb,0.88260e-10_rb /)\n      kbo(:, 4,58, 2) = (/ &\n        & 0.22227e-11_rb,0.13570e-08_rb,0.20959e-08_rb,0.24045e-08_rb,0.10478e-09_rb /)\n      kbo(:, 5,58, 2) = (/ &\n        & 0.20601e-11_rb,0.15139e-08_rb,0.23406e-08_rb,0.26456e-08_rb,0.12331e-09_rb /)\n      kbo(:, 1,59, 2) = (/ &\n        & 0.24143e-11_rb,0.71851e-09_rb,0.10362e-08_rb,0.11516e-08_rb,0.48086e-10_rb /)\n      kbo(:, 2,59, 2) = (/ &\n        & 0.21857e-11_rb,0.83732e-09_rb,0.12892e-08_rb,0.14335e-08_rb,0.60630e-10_rb /)\n      kbo(:, 3,59, 2) = (/ &\n        & 0.19965e-11_rb,0.96815e-09_rb,0.14990e-08_rb,0.17039e-08_rb,0.71208e-10_rb /)\n      kbo(:, 4,59, 2) = (/ &\n        & 0.18374e-11_rb,0.10982e-08_rb,0.16973e-08_rb,0.19455e-08_rb,0.84514e-10_rb /)\n      kbo(:, 5,59, 2) = (/ &\n        & 0.17017e-11_rb,0.12277e-08_rb,0.18981e-08_rb,0.21472e-08_rb,0.99289e-10_rb /)\n      kbo(:, 1,13, 3) = (/ &\n        & 0.69497e-07_rb,0.55900e-04_rb,0.77634e-04_rb,0.83300e-04_rb,0.14419e-04_rb /)\n      kbo(:, 2,13, 3) = (/ &\n        & 0.64923e-07_rb,0.61779e-04_rb,0.85238e-04_rb,0.90458e-04_rb,0.15996e-04_rb /)\n      kbo(:, 3,13, 3) = (/ &\n        & 0.60920e-07_rb,0.67532e-04_rb,0.92811e-04_rb,0.97588e-04_rb,0.17622e-04_rb /)\n      kbo(:, 4,13, 3) = (/ &\n        & 0.57379e-07_rb,0.72876e-04_rb,0.10040e-03_rb,0.10455e-03_rb,0.19144e-04_rb /)\n      kbo(:, 5,13, 3) = (/ &\n        & 0.54220e-07_rb,0.77699e-04_rb,0.10784e-03_rb,0.11139e-03_rb,0.20671e-04_rb /)\n      kbo(:, 1,14, 3) = (/ &\n        & 0.56538e-07_rb,0.46627e-04_rb,0.64678e-04_rb,0.69399e-04_rb,0.12086e-04_rb /)\n      kbo(:, 2,14, 3) = (/ &\n        & 0.52839e-07_rb,0.51536e-04_rb,0.71080e-04_rb,0.75292e-04_rb,0.13414e-04_rb /)\n      kbo(:, 3,14, 3) = (/ &\n        & 0.49600e-07_rb,0.56334e-04_rb,0.77384e-04_rb,0.81277e-04_rb,0.14732e-04_rb /)\n      kbo(:, 4,14, 3) = (/ &\n        & 0.46731e-07_rb,0.60751e-04_rb,0.83753e-04_rb,0.87067e-04_rb,0.15973e-04_rb /)\n      kbo(:, 5,14, 3) = (/ &\n        & 0.44171e-07_rb,0.64792e-04_rb,0.89963e-04_rb,0.92617e-04_rb,0.17214e-04_rb /)\n      kbo(:, 1,15, 3) = (/ &\n        & 0.45963e-07_rb,0.38920e-04_rb,0.53921e-04_rb,0.57824e-04_rb,0.10089e-04_rb /)\n      kbo(:, 2,15, 3) = (/ &\n        & 0.42976e-07_rb,0.42987e-04_rb,0.59286e-04_rb,0.62615e-04_rb,0.11238e-04_rb /)\n      kbo(:, 3,15, 3) = (/ &\n        & 0.40358e-07_rb,0.47014e-04_rb,0.64557e-04_rb,0.67658e-04_rb,0.12293e-04_rb /)\n      kbo(:, 4,15, 3) = (/ &\n        & 0.38037e-07_rb,0.50641e-04_rb,0.69879e-04_rb,0.72487e-04_rb,0.13317e-04_rb /)\n      kbo(:, 5,15, 3) = (/ &\n        & 0.35964e-07_rb,0.54003e-04_rb,0.75064e-04_rb,0.77083e-04_rb,0.14321e-04_rb /)\n      kbo(:, 1,16, 3) = (/ &\n        & 0.37354e-07_rb,0.32479e-04_rb,0.44953e-04_rb,0.48146e-04_rb,0.84079e-05_rb /)\n      kbo(:, 2,16, 3) = (/ &\n        & 0.34944e-07_rb,0.35873e-04_rb,0.49454e-04_rb,0.52120e-04_rb,0.93405e-05_rb /)\n      kbo(:, 3,16, 3) = (/ &\n        & 0.32829e-07_rb,0.39220e-04_rb,0.53861e-04_rb,0.56293e-04_rb,0.10209e-04_rb /)\n      kbo(:, 4,16, 3) = (/ &\n        & 0.30952e-07_rb,0.42155e-04_rb,0.58309e-04_rb,0.60268e-04_rb,0.11080e-04_rb /)\n      kbo(:, 5,16, 3) = (/ &\n        & 0.29274e-07_rb,0.45014e-04_rb,0.62610e-04_rb,0.64184e-04_rb,0.11887e-04_rb /)\n      kbo(:, 1,17, 3) = (/ &\n        & 0.30364e-07_rb,0.27086e-04_rb,0.37451e-04_rb,0.39995e-04_rb,0.70049e-05_rb /)\n      kbo(:, 2,17, 3) = (/ &\n        & 0.28420e-07_rb,0.29919e-04_rb,0.41194e-04_rb,0.43367e-04_rb,0.77736e-05_rb /)\n      kbo(:, 3,17, 3) = (/ &\n        & 0.26710e-07_rb,0.32650e-04_rb,0.44902e-04_rb,0.46817e-04_rb,0.84838e-05_rb /)\n      kbo(:, 4,17, 3) = (/ &\n        & 0.25192e-07_rb,0.35098e-04_rb,0.48605e-04_rb,0.50103e-04_rb,0.92038e-05_rb /)\n      kbo(:, 5,17, 3) = (/ &\n        & 0.23833e-07_rb,0.37507e-04_rb,0.52188e-04_rb,0.53413e-04_rb,0.98607e-05_rb /)\n      kbo(:, 1,18, 3) = (/ &\n        & 0.24687e-07_rb,0.22581e-04_rb,0.31211e-04_rb,0.33220e-04_rb,0.58361e-05_rb /)\n      kbo(:, 2,18, 3) = (/ &\n        & 0.23116e-07_rb,0.24940e-04_rb,0.34308e-04_rb,0.36078e-04_rb,0.64640e-05_rb /)\n      kbo(:, 3,18, 3) = (/ &\n        & 0.21734e-07_rb,0.27181e-04_rb,0.37414e-04_rb,0.38933e-04_rb,0.70344e-05_rb /)\n      kbo(:, 4,18, 3) = (/ &\n        & 0.20506e-07_rb,0.29216e-04_rb,0.40517e-04_rb,0.41653e-04_rb,0.76276e-05_rb /)\n      kbo(:, 5,18, 3) = (/ &\n        & 0.19406e-07_rb,0.31237e-04_rb,0.43490e-04_rb,0.44397e-04_rb,0.81753e-05_rb /)\n      kbo(:, 1,19, 3) = (/ &\n        & 0.20074e-07_rb,0.18818e-04_rb,0.25999e-04_rb,0.27597e-04_rb,0.48662e-05_rb /)\n      kbo(:, 2,19, 3) = (/ &\n        & 0.18805e-07_rb,0.20784e-04_rb,0.28562e-04_rb,0.29993e-04_rb,0.53723e-05_rb /)\n      kbo(:, 3,19, 3) = (/ &\n        & 0.17688e-07_rb,0.22626e-04_rb,0.31151e-04_rb,0.32363e-04_rb,0.58377e-05_rb /)\n      kbo(:, 4,19, 3) = (/ &\n        & 0.16693e-07_rb,0.24300e-04_rb,0.33760e-04_rb,0.34629e-04_rb,0.63177e-05_rb /)\n      kbo(:, 5,19, 3) = (/ &\n        & 0.15802e-07_rb,0.25985e-04_rb,0.36226e-04_rb,0.36903e-04_rb,0.67742e-05_rb /)\n      kbo(:, 1,20, 3) = (/ &\n        & 0.16306e-07_rb,0.15717e-04_rb,0.21686e-04_rb,0.22959e-04_rb,0.40680e-05_rb /)\n      kbo(:, 2,20, 3) = (/ &\n        & 0.15283e-07_rb,0.17355e-04_rb,0.23826e-04_rb,0.24969e-04_rb,0.44706e-05_rb /)\n      kbo(:, 3,20, 3) = (/ &\n        & 0.14381e-07_rb,0.18856e-04_rb,0.25992e-04_rb,0.26912e-04_rb,0.48550e-05_rb /)\n      kbo(:, 4,20, 3) = (/ &\n        & 0.13578e-07_rb,0.20265e-04_rb,0.28162e-04_rb,0.28817e-04_rb,0.52355e-05_rb /)\n      kbo(:, 5,20, 3) = (/ &\n        & 0.12857e-07_rb,0.21638e-04_rb,0.30215e-04_rb,0.30707e-04_rb,0.56224e-05_rb /)\n      kbo(:, 1,21, 3) = (/ &\n        & 0.13245e-07_rb,0.13128e-04_rb,0.18091e-04_rb,0.19107e-04_rb,0.33880e-05_rb /)\n      kbo(:, 2,21, 3) = (/ &\n        & 0.12420e-07_rb,0.14495e-04_rb,0.19887e-04_rb,0.20794e-04_rb,0.37144e-05_rb /)\n      kbo(:, 3,21, 3) = (/ &\n        & 0.11692e-07_rb,0.15704e-04_rb,0.21703e-04_rb,0.22397e-04_rb,0.40415e-05_rb /)\n      kbo(:, 4,21, 3) = (/ &\n        & 0.11043e-07_rb,0.16904e-04_rb,0.23489e-04_rb,0.23984e-04_rb,0.43455e-05_rb /)\n      kbo(:, 5,21, 3) = (/ &\n        & 0.10460e-07_rb,0.18037e-04_rb,0.25197e-04_rb,0.25558e-04_rb,0.46662e-05_rb /)\n      kbo(:, 1,22, 3) = (/ &\n        & 0.10711e-07_rb,0.11044e-04_rb,0.15199e-04_rb,0.16008e-04_rb,0.28409e-05_rb /)\n      kbo(:, 2,22, 3) = (/ &\n        & 0.10052e-07_rb,0.12165e-04_rb,0.16699e-04_rb,0.17419e-04_rb,0.31041e-05_rb /)\n      kbo(:, 3,22, 3) = (/ &\n        & 0.94690e-08_rb,0.13158e-04_rb,0.18224e-04_rb,0.18733e-04_rb,0.33768e-05_rb /)\n      kbo(:, 4,22, 3) = (/ &\n        & 0.89484e-08_rb,0.14166e-04_rb,0.19691e-04_rb,0.20050e-04_rb,0.36237e-05_rb /)\n      kbo(:, 5,22, 3) = (/ &\n        & 0.84804e-08_rb,0.15085e-04_rb,0.21105e-04_rb,0.21356e-04_rb,0.38876e-05_rb /)\n      kbo(:, 1,23, 3) = (/ &\n        & 0.86606e-08_rb,0.93002e-05_rb,0.12775e-04_rb,0.13420e-04_rb,0.23815e-05_rb /)\n      kbo(:, 2,23, 3) = (/ &\n        & 0.81340e-08_rb,0.10210e-04_rb,0.14034e-04_rb,0.14552e-04_rb,0.25955e-05_rb /)\n      kbo(:, 3,23, 3) = (/ &\n        & 0.76671e-08_rb,0.11035e-04_rb,0.15302e-04_rb,0.15657e-04_rb,0.28150e-05_rb /)\n      kbo(:, 4,23, 3) = (/ &\n        & 0.72497e-08_rb,0.11863e-04_rb,0.16513e-04_rb,0.16770e-04_rb,0.30198e-05_rb /)\n      kbo(:, 5,23, 3) = (/ &\n        & 0.68739e-08_rb,0.12616e-04_rb,0.17664e-04_rb,0.17848e-04_rb,0.32387e-05_rb /)\n      kbo(:, 1,24, 3) = (/ &\n        & 0.69995e-08_rb,0.78392e-05_rb,0.10754e-04_rb,0.11250e-04_rb,0.19986e-05_rb /)\n      kbo(:, 2,24, 3) = (/ &\n        & 0.65790e-08_rb,0.85674e-05_rb,0.11806e-04_rb,0.12186e-04_rb,0.21738e-05_rb /)\n      kbo(:, 3,24, 3) = (/ &\n        & 0.62055e-08_rb,0.92664e-05_rb,0.12850e-04_rb,0.13103e-04_rb,0.23469e-05_rb /)\n      kbo(:, 4,24, 3) = (/ &\n        & 0.58710e-08_rb,0.99376e-05_rb,0.13854e-04_rb,0.14027e-04_rb,0.25195e-05_rb /)\n      kbo(:, 5,24, 3) = (/ &\n        & 0.55696e-08_rb,0.10527e-04_rb,0.14795e-04_rb,0.14917e-04_rb,0.26988e-05_rb /)\n      kbo(:, 1,25, 3) = (/ &\n        & 0.56538e-08_rb,0.66118e-05_rb,0.90610e-05_rb,0.94422e-05_rb,0.16753e-05_rb /)\n      kbo(:, 2,25, 3) = (/ &\n        & 0.53184e-08_rb,0.71986e-05_rb,0.99389e-05_rb,0.10209e-04_rb,0.18223e-05_rb /)\n      kbo(:, 3,25, 3) = (/ &\n        & 0.50199e-08_rb,0.77863e-05_rb,0.10800e-04_rb,0.10981e-04_rb,0.19590e-05_rb /)\n      kbo(:, 4,25, 3) = (/ &\n        & 0.47522e-08_rb,0.83415e-05_rb,0.11626e-04_rb,0.11737e-04_rb,0.21020e-05_rb /)\n      kbo(:, 5,25, 3) = (/ &\n        & 0.45105e-08_rb,0.88017e-05_rb,0.12373e-04_rb,0.12468e-04_rb,0.22498e-05_rb /)\n      kbo(:, 1,26, 3) = (/ &\n        & 0.45620e-08_rb,0.55749e-05_rb,0.76463e-05_rb,0.79285e-05_rb,0.14032e-05_rb /)\n      kbo(:, 2,26, 3) = (/ &\n        & 0.42950e-08_rb,0.60590e-05_rb,0.83822e-05_rb,0.85652e-05_rb,0.15255e-05_rb /)\n      kbo(:, 3,26, 3) = (/ &\n        & 0.40569e-08_rb,0.65510e-05_rb,0.90888e-05_rb,0.92116e-05_rb,0.16373e-05_rb /)\n      kbo(:, 4,26, 3) = (/ &\n        & 0.38429e-08_rb,0.69918e-05_rb,0.97604e-05_rb,0.98329e-05_rb,0.17561e-05_rb /)\n      kbo(:, 5,26, 3) = (/ &\n        & 0.36495e-08_rb,0.73566e-05_rb,0.10367e-04_rb,0.10429e-04_rb,0.18769e-05_rb /)\n      kbo(:, 1,27, 3) = (/ &\n        & 0.36809e-08_rb,0.46967e-05_rb,0.64580e-05_rb,0.66649e-05_rb,0.11786e-05_rb /)\n      kbo(:, 2,27, 3) = (/ &\n        & 0.34683e-08_rb,0.51072e-05_rb,0.70661e-05_rb,0.71902e-05_rb,0.12759e-05_rb /)\n      kbo(:, 3,27, 3) = (/ &\n        & 0.32784e-08_rb,0.55053e-05_rb,0.76470e-05_rb,0.77250e-05_rb,0.13691e-05_rb /)\n      kbo(:, 4,27, 3) = (/ &\n        & 0.31074e-08_rb,0.58474e-05_rb,0.81898e-05_rb,0.82340e-05_rb,0.14666e-05_rb /)\n      kbo(:, 5,27, 3) = (/ &\n        & 0.29526e-08_rb,0.61493e-05_rb,0.86815e-05_rb,0.87199e-05_rb,0.15650e-05_rb /)\n      kbo(:, 1,28, 3) = (/ &\n        & 0.29701e-08_rb,0.39582e-05_rb,0.54573e-05_rb,0.55959e-05_rb,0.99037e-06_rb /)\n      kbo(:, 2,28, 3) = (/ &\n        & 0.28008e-08_rb,0.43048e-05_rb,0.59546e-05_rb,0.60406e-05_rb,0.10659e-05_rb /)\n      kbo(:, 3,28, 3) = (/ &\n        & 0.26493e-08_rb,0.46277e-05_rb,0.64286e-05_rb,0.64745e-05_rb,0.11442e-05_rb /)\n      kbo(:, 4,28, 3) = (/ &\n        & 0.25127e-08_rb,0.48940e-05_rb,0.68612e-05_rb,0.68918e-05_rb,0.12250e-05_rb /)\n      kbo(:, 5,28, 3) = (/ &\n        & 0.23888e-08_rb,0.51428e-05_rb,0.72654e-05_rb,0.72865e-05_rb,0.13046e-05_rb /)\n      kbo(:, 1,29, 3) = (/ &\n        & 0.23958e-08_rb,0.33409e-05_rb,0.46115e-05_rb,0.47054e-05_rb,0.83021e-06_rb /)\n      kbo(:, 2,29, 3) = (/ &\n        & 0.22611e-08_rb,0.36267e-05_rb,0.50192e-05_rb,0.50754e-05_rb,0.89157e-06_rb /)\n      kbo(:, 3,29, 3) = (/ &\n        & 0.21402e-08_rb,0.38805e-05_rb,0.54053e-05_rb,0.54291e-05_rb,0.95663e-06_rb /)\n      kbo(:, 4,29, 3) = (/ &\n        & 0.20311e-08_rb,0.40929e-05_rb,0.57529e-05_rb,0.57685e-05_rb,0.10232e-05_rb /)\n      kbo(:, 5,29, 3) = (/ &\n        & 0.19320e-08_rb,0.43014e-05_rb,0.60684e-05_rb,0.60868e-05_rb,0.10874e-05_rb /)\n      kbo(:, 1,30, 3) = (/ &\n        & 0.19328e-08_rb,0.28217e-05_rb,0.38955e-05_rb,0.39562e-05_rb,0.69464e-06_rb /)\n      kbo(:, 2,30, 3) = (/ &\n        & 0.18255e-08_rb,0.30515e-05_rb,0.42293e-05_rb,0.42605e-05_rb,0.74588e-06_rb /)\n      kbo(:, 3,30, 3) = (/ &\n        & 0.17291e-08_rb,0.32496e-05_rb,0.45390e-05_rb,0.45501e-05_rb,0.79957e-06_rb /)\n      kbo(:, 4,30, 3) = (/ &\n        & 0.16419e-08_rb,0.34235e-05_rb,0.48191e-05_rb,0.48249e-05_rb,0.85373e-06_rb /)\n      kbo(:, 5,30, 3) = (/ &\n        & 0.15626e-08_rb,0.35992e-05_rb,0.50632e-05_rb,0.50805e-05_rb,0.90582e-06_rb /)\n      kbo(:, 1,31, 3) = (/ &\n        & 0.15590e-08_rb,0.23841e-05_rb,0.32890e-05_rb,0.33282e-05_rb,0.58108e-06_rb /)\n      kbo(:, 2,31, 3) = (/ &\n        & 0.14736e-08_rb,0.25683e-05_rb,0.35605e-05_rb,0.35756e-05_rb,0.62401e-06_rb /)\n      kbo(:, 3,31, 3) = (/ &\n        & 0.13967e-08_rb,0.27223e-05_rb,0.38055e-05_rb,0.38110e-05_rb,0.66862e-06_rb /)\n      kbo(:, 4,31, 3) = (/ &\n        & 0.13271e-08_rb,0.28652e-05_rb,0.40295e-05_rb,0.40331e-05_rb,0.71216e-06_rb /)\n      kbo(:, 5,31, 3) = (/ &\n        & 0.12637e-08_rb,0.30069e-05_rb,0.42257e-05_rb,0.42393e-05_rb,0.75527e-06_rb /)\n      kbo(:, 1,32, 3) = (/ &\n        & 0.12575e-08_rb,0.20099e-05_rb,0.27764e-05_rb,0.27988e-05_rb,0.48614e-06_rb /)\n      kbo(:, 2,32, 3) = (/ &\n        & 0.11895e-08_rb,0.21551e-05_rb,0.29961e-05_rb,0.29996e-05_rb,0.52199e-06_rb /)\n      kbo(:, 3,32, 3) = (/ &\n        & 0.11282e-08_rb,0.22771e-05_rb,0.31901e-05_rb,0.31897e-05_rb,0.55867e-06_rb /)\n      kbo(:, 4,32, 3) = (/ &\n        & 0.10726e-08_rb,0.23969e-05_rb,0.33657e-05_rb,0.33696e-05_rb,0.59410e-06_rb /)\n      kbo(:, 5,32, 3) = (/ &\n        & 0.10218e-08_rb,0.25076e-05_rb,0.35232e-05_rb,0.35366e-05_rb,0.62965e-06_rb /)\n      kbo(:, 1,33, 3) = (/ &\n        & 0.10144e-08_rb,0.16940e-05_rb,0.23421e-05_rb,0.23519e-05_rb,0.40701e-06_rb /)\n      kbo(:, 2,33, 3) = (/ &\n        & 0.96024e-09_rb,0.18066e-05_rb,0.25146e-05_rb,0.25148e-05_rb,0.43657e-06_rb /)\n      kbo(:, 3,33, 3) = (/ &\n        & 0.91134e-09_rb,0.19053e-05_rb,0.26738e-05_rb,0.26690e-05_rb,0.46656e-06_rb /)\n      kbo(:, 4,33, 3) = (/ &\n        & 0.86689e-09_rb,0.20038e-05_rb,0.28104e-05_rb,0.28139e-05_rb,0.49516e-06_rb /)\n      kbo(:, 5,33, 3) = (/ &\n        & 0.82630e-09_rb,0.20860e-05_rb,0.29294e-05_rb,0.29485e-05_rb,0.52462e-06_rb /)\n      kbo(:, 1,34, 3) = (/ &\n        & 0.82000e-09_rb,0.14231e-05_rb,0.19661e-05_rb,0.19700e-05_rb,0.33996e-06_rb /)\n      kbo(:, 2,34, 3) = (/ &\n        & 0.77672e-09_rb,0.15105e-05_rb,0.21047e-05_rb,0.21018e-05_rb,0.36435e-06_rb /)\n      kbo(:, 3,34, 3) = (/ &\n        & 0.73757e-09_rb,0.15908e-05_rb,0.22307e-05_rb,0.22272e-05_rb,0.38851e-06_rb /)\n      kbo(:, 4,34, 3) = (/ &\n        & 0.70193e-09_rb,0.16706e-05_rb,0.23421e-05_rb,0.23448e-05_rb,0.41219e-06_rb /)\n      kbo(:, 5,34, 3) = (/ &\n        & 0.66936e-09_rb,0.17330e-05_rb,0.24342e-05_rb,0.24538e-05_rb,0.43607e-06_rb /)\n      kbo(:, 1,35, 3) = (/ &\n        & 0.66652e-09_rb,0.11842e-05_rb,0.16383e-05_rb,0.16382e-05_rb,0.28183e-06_rb /)\n      kbo(:, 2,35, 3) = (/ &\n        & 0.63156e-09_rb,0.12541e-05_rb,0.17499e-05_rb,0.17457e-05_rb,0.30195e-06_rb /)\n      kbo(:, 3,35, 3) = (/ &\n        & 0.59990e-09_rb,0.13209e-05_rb,0.18504e-05_rb,0.18484e-05_rb,0.32174e-06_rb /)\n      kbo(:, 4,35, 3) = (/ &\n        & 0.57107e-09_rb,0.13850e-05_rb,0.19418e-05_rb,0.19438e-05_rb,0.34124e-06_rb /)\n      kbo(:, 5,35, 3) = (/ &\n        & 0.54470e-09_rb,0.14348e-05_rb,0.20135e-05_rb,0.20335e-05_rb,0.36050e-06_rb /)\n      kbo(:, 1,36, 3) = (/ &\n        & 0.54506e-09_rb,0.97870e-06_rb,0.13541e-05_rb,0.13520e-05_rb,0.23190e-06_rb /)\n      kbo(:, 2,36, 3) = (/ &\n        & 0.51650e-09_rb,0.10354e-05_rb,0.14455e-05_rb,0.14404e-05_rb,0.24845e-06_rb /)\n      kbo(:, 3,36, 3) = (/ &\n        & 0.49063e-09_rb,0.10910e-05_rb,0.15270e-05_rb,0.15247e-05_rb,0.26464e-06_rb /)\n      kbo(:, 4,36, 3) = (/ &\n        & 0.46707e-09_rb,0.11427e-05_rb,0.16012e-05_rb,0.16033e-05_rb,0.28072e-06_rb /)\n      kbo(:, 5,36, 3) = (/ &\n        & 0.44553e-09_rb,0.11833e-05_rb,0.16604e-05_rb,0.16774e-05_rb,0.29643e-06_rb /)\n      kbo(:, 1,37, 3) = (/ &\n        & 0.44949e-09_rb,0.80104e-06_rb,0.11066e-05_rb,0.11045e-05_rb,0.18888e-06_rb /)\n      kbo(:, 2,37, 3) = (/ &\n        & 0.42579e-09_rb,0.84810e-06_rb,0.11826e-05_rb,0.11777e-05_rb,0.20242e-06_rb /)\n      kbo(:, 3,37, 3) = (/ &\n        & 0.40435e-09_rb,0.89404e-06_rb,0.12504e-05_rb,0.12477e-05_rb,0.21578e-06_rb /)\n      kbo(:, 4,37, 3) = (/ &\n        & 0.38483e-09_rb,0.93737e-06_rb,0.13124e-05_rb,0.13129e-05_rb,0.22892e-06_rb /)\n      kbo(:, 5,37, 3) = (/ &\n        & 0.36699e-09_rb,0.97118e-06_rb,0.13617e-05_rb,0.13744e-05_rb,0.24190e-06_rb /)\n      kbo(:, 1,38, 3) = (/ &\n        & 0.37088e-09_rb,0.65468e-06_rb,0.90347e-06_rb,0.90140e-06_rb,0.15371e-06_rb /)\n      kbo(:, 2,38, 3) = (/ &\n        & 0.35120e-09_rb,0.69421e-06_rb,0.96676e-06_rb,0.96222e-06_rb,0.16484e-06_rb /)\n      kbo(:, 3,38, 3) = (/ &\n        & 0.33340e-09_rb,0.73211e-06_rb,0.10233e-05_rb,0.10203e-05_rb,0.17578e-06_rb /)\n      kbo(:, 4,38, 3) = (/ &\n        & 0.31721e-09_rb,0.76838e-06_rb,0.10750e-05_rb,0.10745e-05_rb,0.18656e-06_rb /)\n      kbo(:, 5,38, 3) = (/ &\n        & 0.30242e-09_rb,0.79676e-06_rb,0.11164e-05_rb,0.11256e-05_rb,0.19730e-06_rb /)\n      kbo(:, 1,39, 3) = (/ &\n        & 0.30603e-09_rb,0.53518e-06_rb,0.73755e-06_rb,0.73560e-06_rb,0.12509e-06_rb /)\n      kbo(:, 2,39, 3) = (/ &\n        & 0.28967e-09_rb,0.56827e-06_rb,0.79017e-06_rb,0.78607e-06_rb,0.13420e-06_rb /)\n      kbo(:, 3,39, 3) = (/ &\n        & 0.27490e-09_rb,0.59946e-06_rb,0.83729e-06_rb,0.83418e-06_rb,0.14320e-06_rb /)\n      kbo(:, 4,39, 3) = (/ &\n        & 0.26148e-09_rb,0.62968e-06_rb,0.88045e-06_rb,0.87919e-06_rb,0.15206e-06_rb /)\n      kbo(:, 5,39, 3) = (/ &\n        & 0.24922e-09_rb,0.65358e-06_rb,0.91511e-06_rb,0.92187e-06_rb,0.16092e-06_rb /)\n      kbo(:, 1,40, 3) = (/ &\n        & 0.25401e-09_rb,0.43491e-06_rb,0.59706e-06_rb,0.59583e-06_rb,0.10103e-06_rb /)\n      kbo(:, 2,40, 3) = (/ &\n        & 0.24027e-09_rb,0.46243e-06_rb,0.64127e-06_rb,0.63780e-06_rb,0.10854e-06_rb /)\n      kbo(:, 3,40, 3) = (/ &\n        & 0.22788e-09_rb,0.48789e-06_rb,0.68111e-06_rb,0.67785e-06_rb,0.11596e-06_rb /)\n      kbo(:, 4,40, 3) = (/ &\n        & 0.21664e-09_rb,0.51370e-06_rb,0.71776e-06_rb,0.71557e-06_rb,0.12318e-06_rb /)\n      kbo(:, 5,40, 3) = (/ &\n        & 0.20639e-09_rb,0.53413e-06_rb,0.74738e-06_rb,0.75116e-06_rb,0.13055e-06_rb /)\n      kbo(:, 1,41, 3) = (/ &\n        & 0.21103e-09_rb,0.35162e-06_rb,0.48245e-06_rb,0.48181e-06_rb,0.81551e-07_rb /)\n      kbo(:, 2,41, 3) = (/ &\n        & 0.19947e-09_rb,0.37577e-06_rb,0.51975e-06_rb,0.51683e-06_rb,0.87624e-07_rb /)\n      kbo(:, 3,41, 3) = (/ &\n        & 0.18906e-09_rb,0.39681e-06_rb,0.55372e-06_rb,0.55016e-06_rb,0.93775e-07_rb /)\n      kbo(:, 4,41, 3) = (/ &\n        & 0.17963e-09_rb,0.41856e-06_rb,0.58405e-06_rb,0.58177e-06_rb,0.99677e-07_rb /)\n      kbo(:, 5,41, 3) = (/ &\n        & 0.17105e-09_rb,0.43610e-06_rb,0.60957e-06_rb,0.61150e-06_rb,0.10578e-06_rb /)\n      kbo(:, 1,42, 3) = (/ &\n        & 0.17536e-09_rb,0.28412e-06_rb,0.38948e-06_rb,0.38933e-06_rb,0.65791e-07_rb /)\n      kbo(:, 2,42, 3) = (/ &\n        & 0.16563e-09_rb,0.30504e-06_rb,0.42097e-06_rb,0.41854e-06_rb,0.70752e-07_rb /)\n      kbo(:, 3,42, 3) = (/ &\n        & 0.15688e-09_rb,0.32265e-06_rb,0.44957e-06_rb,0.44624e-06_rb,0.75790e-07_rb /)\n      kbo(:, 4,42, 3) = (/ &\n        & 0.14897e-09_rb,0.34080e-06_rb,0.47502e-06_rb,0.47268e-06_rb,0.80648e-07_rb /)\n      kbo(:, 5,42, 3) = (/ &\n        & 0.14178e-09_rb,0.35584e-06_rb,0.49696e-06_rb,0.49747e-06_rb,0.85685e-07_rb /)\n      kbo(:, 1,43, 3) = (/ &\n        & 0.14625e-09_rb,0.22828e-06_rb,0.31269e-06_rb,0.31301e-06_rb,0.52858e-07_rb /)\n      kbo(:, 2,43, 3) = (/ &\n        & 0.13800e-09_rb,0.24660e-06_rb,0.33945e-06_rb,0.33736e-06_rb,0.56872e-07_rb /)\n      kbo(:, 3,43, 3) = (/ &\n        & 0.13060e-09_rb,0.26150e-06_rb,0.36382e-06_rb,0.36052e-06_rb,0.61005e-07_rb /)\n      kbo(:, 4,43, 3) = (/ &\n        & 0.12392e-09_rb,0.27637e-06_rb,0.38496e-06_rb,0.38262e-06_rb,0.65064e-07_rb /)\n      kbo(:, 5,43, 3) = (/ &\n        & 0.11786e-09_rb,0.28960e-06_rb,0.40432e-06_rb,0.40346e-06_rb,0.69134e-07_rb /)\n      kbo(:, 1,44, 3) = (/ &\n        & 0.12220e-09_rb,0.18299e-06_rb,0.25003e-06_rb,0.25075e-06_rb,0.42426e-07_rb /)\n      kbo(:, 2,44, 3) = (/ &\n        & 0.11518e-09_rb,0.19858e-06_rb,0.27271e-06_rb,0.27124e-06_rb,0.45605e-07_rb /)\n      kbo(:, 3,44, 3) = (/ &\n        & 0.10890e-09_rb,0.21149e-06_rb,0.29306e-06_rb,0.29059e-06_rb,0.48989e-07_rb /)\n      kbo(:, 4,44, 3) = (/ &\n        & 0.10324e-09_rb,0.22361e-06_rb,0.31128e-06_rb,0.30909e-06_rb,0.52357e-07_rb /)\n      kbo(:, 5,44, 3) = (/ &\n        & 0.98119e-10_rb,0.23540e-06_rb,0.32782e-06_rb,0.32657e-06_rb,0.55650e-07_rb /)\n      kbo(:, 1,45, 3) = (/ &\n        & 0.10215e-09_rb,0.14604e-06_rb,0.19957e-06_rb,0.20079e-06_rb,0.34009e-07_rb /)\n      kbo(:, 2,45, 3) = (/ &\n        & 0.96168e-10_rb,0.15976e-06_rb,0.21859e-06_rb,0.21782e-06_rb,0.36565e-07_rb /)\n      kbo(:, 3,45, 3) = (/ &\n        & 0.90832e-10_rb,0.17092e-06_rb,0.23594e-06_rb,0.23403e-06_rb,0.39336e-07_rb /)\n      kbo(:, 4,45, 3) = (/ &\n        & 0.86039e-10_rb,0.18076e-06_rb,0.25148e-06_rb,0.24940e-06_rb,0.42120e-07_rb /)\n      kbo(:, 5,45, 3) = (/ &\n        & 0.81705e-10_rb,0.19091e-06_rb,0.26579e-06_rb,0.26417e-06_rb,0.44806e-07_rb /)\n      kbo(:, 1,46, 3) = (/ &\n        & 0.85548e-10_rb,0.11606e-06_rb,0.15858e-06_rb,0.16025e-06_rb,0.27138e-07_rb /)\n      kbo(:, 2,46, 3) = (/ &\n        & 0.80430e-10_rb,0.12777e-06_rb,0.17465e-06_rb,0.17439e-06_rb,0.29260e-07_rb /)\n      kbo(:, 3,46, 3) = (/ &\n        & 0.75882e-10_rb,0.13771e-06_rb,0.18956e-06_rb,0.18801e-06_rb,0.31519e-07_rb /)\n      kbo(:, 4,46, 3) = (/ &\n        & 0.71807e-10_rb,0.14597e-06_rb,0.20282e-06_rb,0.20085e-06_rb,0.33790e-07_rb /)\n      kbo(:, 5,46, 3) = (/ &\n        & 0.68131e-10_rb,0.15454e-06_rb,0.21485e-06_rb,0.21321e-06_rb,0.36016e-07_rb /)\n      kbo(:, 1,47, 3) = (/ &\n        & 0.71880e-10_rb,0.91677e-07_rb,0.12518e-06_rb,0.12717e-06_rb,0.21548e-07_rb /)\n      kbo(:, 2,47, 3) = (/ &\n        & 0.67474e-10_rb,0.10182e-06_rb,0.13885e-06_rb,0.13887e-06_rb,0.23366e-07_rb /)\n      kbo(:, 3,47, 3) = (/ &\n        & 0.63573e-10_rb,0.11037e-06_rb,0.15155e-06_rb,0.15037e-06_rb,0.25140e-07_rb /)\n      kbo(:, 4,47, 3) = (/ &\n        & 0.60089e-10_rb,0.11757e-06_rb,0.16292e-06_rb,0.16115e-06_rb,0.27023e-07_rb /)\n      kbo(:, 5,47, 3) = (/ &\n        & 0.56955e-10_rb,0.12460e-06_rb,0.17303e-06_rb,0.17150e-06_rb,0.28886e-07_rb /)\n      kbo(:, 1,48, 3) = (/ &\n        & 0.60438e-10_rb,0.72378e-07_rb,0.98586e-07_rb,0.10075e-06_rb,0.17068e-07_rb /)\n      kbo(:, 2,48, 3) = (/ &\n        & 0.56639e-10_rb,0.80662e-07_rb,0.11003e-06_rb,0.11052e-06_rb,0.18643e-07_rb /)\n      kbo(:, 3,48, 3) = (/ &\n        & 0.53288e-10_rb,0.88391e-07_rb,0.12069e-06_rb,0.12007e-06_rb,0.20050e-07_rb /)\n      kbo(:, 4,48, 3) = (/ &\n        & 0.50306e-10_rb,0.94624e-07_rb,0.13045e-06_rb,0.12916e-06_rb,0.21587e-07_rb /)\n      kbo(:, 5,48, 3) = (/ &\n        & 0.47632e-10_rb,0.10026e-06_rb,0.13914e-06_rb,0.13778e-06_rb,0.23136e-07_rb /)\n      kbo(:, 1,49, 3) = (/ &\n        & 0.50856e-10_rb,0.57046e-07_rb,0.77565e-07_rb,0.79741e-07_rb,0.13510e-07_rb /)\n      kbo(:, 2,49, 3) = (/ &\n        & 0.47574e-10_rb,0.63730e-07_rb,0.86939e-07_rb,0.87826e-07_rb,0.14811e-07_rb /)\n      kbo(:, 3,49, 3) = (/ &\n        & 0.44692e-10_rb,0.70367e-07_rb,0.95974e-07_rb,0.95707e-07_rb,0.15992e-07_rb /)\n      kbo(:, 4,49, 3) = (/ &\n        & 0.42136e-10_rb,0.75959e-07_rb,0.10441e-06_rb,0.10336e-06_rb,0.17235e-07_rb /)\n      kbo(:, 5,49, 3) = (/ &\n        & 0.39851e-10_rb,0.80662e-07_rb,0.11179e-06_rb,0.11061e-06_rb,0.18501e-07_rb /)\n      kbo(:, 1,50, 3) = (/ &\n        & 0.42752e-10_rb,0.44994e-07_rb,0.60933e-07_rb,0.63170e-07_rb,0.10733e-07_rb /)\n      kbo(:, 2,50, 3) = (/ &\n        & 0.39920e-10_rb,0.50417e-07_rb,0.68695e-07_rb,0.69776e-07_rb,0.11778e-07_rb /)\n      kbo(:, 3,50, 3) = (/ &\n        & 0.37445e-10_rb,0.56129e-07_rb,0.76381e-07_rb,0.76292e-07_rb,0.12796e-07_rb /)\n      kbo(:, 4,50, 3) = (/ &\n        & 0.35258e-10_rb,0.60916e-07_rb,0.83533e-07_rb,0.82746e-07_rb,0.13770e-07_rb /)\n      kbo(:, 5,50, 3) = (/ &\n        & 0.33309e-10_rb,0.65010e-07_rb,0.89933e-07_rb,0.88828e-07_rb,0.14809e-07_rb /)\n      kbo(:, 1,51, 3) = (/ &\n        & 0.35935e-10_rb,0.35278e-07_rb,0.47901e-07_rb,0.50056e-07_rb,0.85239e-08_rb /)\n      kbo(:, 2,51, 3) = (/ &\n        & 0.33494e-10_rb,0.39897e-07_rb,0.54245e-07_rb,0.55439e-07_rb,0.93562e-08_rb /)\n      kbo(:, 3,51, 3) = (/ &\n        & 0.31368e-10_rb,0.44577e-07_rb,0.60687e-07_rb,0.60854e-07_rb,0.10229e-07_rb /)\n      kbo(:, 4,51, 3) = (/ &\n        & 0.29497e-10_rb,0.48906e-07_rb,0.66668e-07_rb,0.66217e-07_rb,0.11009e-07_rb /)\n      kbo(:, 5,51, 3) = (/ &\n        & 0.27834e-10_rb,0.52348e-07_rb,0.72154e-07_rb,0.71322e-07_rb,0.11856e-07_rb /)\n      kbo(:, 1,52, 3) = (/ &\n        & 0.30227e-10_rb,0.27572e-07_rb,0.37524e-07_rb,0.39754e-07_rb,0.67198e-08_rb /)\n      kbo(:, 2,52, 3) = (/ &\n        & 0.28118e-10_rb,0.31560e-07_rb,0.42810e-07_rb,0.44031e-07_rb,0.74267e-08_rb /)\n      kbo(:, 3,52, 3) = (/ &\n        & 0.26290e-10_rb,0.35319e-07_rb,0.48079e-07_rb,0.48486e-07_rb,0.81511e-08_rb /)\n      kbo(:, 4,52, 3) = (/ &\n        & 0.24687e-10_rb,0.39041e-07_rb,0.53141e-07_rb,0.52898e-07_rb,0.88044e-08_rb /)\n      kbo(:, 5,52, 3) = (/ &\n        & 0.23267e-10_rb,0.42123e-07_rb,0.57835e-07_rb,0.57177e-07_rb,0.94934e-08_rb /)\n      kbo(:, 1,53, 3) = (/ &\n        & 0.25448e-10_rb,0.21456e-07_rb,0.29324e-07_rb,0.31450e-07_rb,0.53035e-08_rb /)\n      kbo(:, 2,53, 3) = (/ &\n        & 0.23623e-10_rb,0.24922e-07_rb,0.33706e-07_rb,0.34903e-07_rb,0.59025e-08_rb /)\n      kbo(:, 3,53, 3) = (/ &\n        & 0.22048e-10_rb,0.27931e-07_rb,0.38009e-07_rb,0.38548e-07_rb,0.64842e-08_rb /)\n      kbo(:, 4,53, 3) = (/ &\n        & 0.20673e-10_rb,0.31117e-07_rb,0.42293e-07_rb,0.42180e-07_rb,0.70454e-08_rb /)\n      kbo(:, 5,53, 3) = (/ &\n        & 0.19459e-10_rb,0.33800e-07_rb,0.46316e-07_rb,0.45776e-07_rb,0.75886e-08_rb /)\n      kbo(:, 1,54, 3) = (/ &\n        & 0.21390e-10_rb,0.16743e-07_rb,0.23031e-07_rb,0.24877e-07_rb,0.41777e-08_rb /)\n      kbo(:, 2,54, 3) = (/ &\n        & 0.19815e-10_rb,0.19619e-07_rb,0.26556e-07_rb,0.27722e-07_rb,0.47031e-08_rb /)\n      kbo(:, 3,54, 3) = (/ &\n        & 0.18463e-10_rb,0.22167e-07_rb,0.30101e-07_rb,0.30708e-07_rb,0.51646e-08_rb /)\n      kbo(:, 4,54, 3) = (/ &\n        & 0.17286e-10_rb,0.24804e-07_rb,0.33704e-07_rb,0.33716e-07_rb,0.56448e-08_rb /)\n      kbo(:, 5,54, 3) = (/ &\n        & 0.16251e-10_rb,0.27183e-07_rb,0.37049e-07_rb,0.36696e-07_rb,0.60788e-08_rb /)\n      kbo(:, 1,55, 3) = (/ &\n        & 0.17973e-10_rb,0.13037e-07_rb,0.18115e-07_rb,0.19727e-07_rb,0.32912e-08_rb /)\n      kbo(:, 2,55, 3) = (/ &\n        & 0.16615e-10_rb,0.15402e-07_rb,0.20942e-07_rb,0.22043e-07_rb,0.37301e-08_rb /)\n      kbo(:, 3,55, 3) = (/ &\n        & 0.15454e-10_rb,0.17592e-07_rb,0.23848e-07_rb,0.24485e-07_rb,0.41129e-08_rb /)\n      kbo(:, 4,55, 3) = (/ &\n        & 0.14448e-10_rb,0.19733e-07_rb,0.26815e-07_rb,0.26954e-07_rb,0.45146e-08_rb /)\n      kbo(:, 5,55, 3) = (/ &\n        & 0.13565e-10_rb,0.21785e-07_rb,0.29633e-07_rb,0.29414e-07_rb,0.48762e-08_rb /)\n      kbo(:, 1,56, 3) = (/ &\n        & 0.15112e-10_rb,0.10127e-07_rb,0.14262e-07_rb,0.15637e-07_rb,0.25986e-08_rb /)\n      kbo(:, 2,56, 3) = (/ &\n        & 0.13939e-10_rb,0.12082e-07_rb,0.16458e-07_rb,0.17567e-07_rb,0.29510e-08_rb /)\n      kbo(:, 3,56, 3) = (/ &\n        & 0.12942e-10_rb,0.13980e-07_rb,0.18876e-07_rb,0.19499e-07_rb,0.32803e-08_rb /)\n      kbo(:, 4,56, 3) = (/ &\n        & 0.12080e-10_rb,0.15677e-07_rb,0.21298e-07_rb,0.21516e-07_rb,0.36078e-08_rb /)\n      kbo(:, 5,56, 3) = (/ &\n        & 0.11328e-10_rb,0.17421e-07_rb,0.23674e-07_rb,0.23552e-07_rb,0.39142e-08_rb /)\n      kbo(:, 1,57, 3) = (/ &\n        & 0.12716e-10_rb,0.78423e-08_rb,0.11218e-07_rb,0.12368e-07_rb,0.20572e-08_rb /)\n      kbo(:, 2,57, 3) = (/ &\n        & 0.11703e-10_rb,0.94468e-08_rb,0.12944e-07_rb,0.13939e-07_rb,0.23449e-08_rb /)\n      kbo(:, 3,57, 3) = (/ &\n        & 0.10844e-10_rb,0.11054e-07_rb,0.14933e-07_rb,0.15504e-07_rb,0.26161e-08_rb /)\n      kbo(:, 4,57, 3) = (/ &\n        & 0.10105e-10_rb,0.12445e-07_rb,0.16895e-07_rb,0.17167e-07_rb,0.28789e-08_rb /)\n      kbo(:, 5,57, 3) = (/ &\n        & 0.94629e-11_rb,0.13929e-07_rb,0.18884e-07_rb,0.18837e-07_rb,0.31391e-08_rb /)\n      kbo(:, 1,58, 3) = (/ &\n        & 0.10694e-10_rb,0.61084e-08_rb,0.88278e-08_rb,0.97801e-08_rb,0.16192e-08_rb /)\n      kbo(:, 2,58, 3) = (/ &\n        & 0.98180e-11_rb,0.73859e-08_rb,0.10206e-07_rb,0.11064e-07_rb,0.18486e-08_rb /)\n      kbo(:, 3,58, 3) = (/ &\n        & 0.90797e-11_rb,0.87113e-08_rb,0.11801e-07_rb,0.12348e-07_rb,0.20872e-08_rb /)\n      kbo(:, 4,58, 3) = (/ &\n        & 0.84478e-11_rb,0.99003e-08_rb,0.13409e-07_rb,0.13707e-07_rb,0.22967e-08_rb /)\n      kbo(:, 5,58, 3) = (/ &\n        & 0.78998e-11_rb,0.11108e-07_rb,0.15069e-07_rb,0.15082e-07_rb,0.25182e-08_rb /)\n      kbo(:, 1,59, 3) = (/ &\n        & 0.88513e-11_rb,0.49239e-08_rb,0.71386e-08_rb,0.79170e-08_rb,0.13089e-08_rb /)\n      kbo(:, 2,59, 3) = (/ &\n        & 0.81187e-11_rb,0.59541e-08_rb,0.82539e-08_rb,0.89758e-08_rb,0.14952e-08_rb /)\n      kbo(:, 3,59, 3) = (/ &\n        & 0.75021e-11_rb,0.70450e-08_rb,0.95567e-08_rb,0.10024e-07_rb,0.16919e-08_rb /)\n      kbo(:, 4,59, 3) = (/ &\n        & 0.69753e-11_rb,0.80391e-08_rb,0.10874e-07_rb,0.11143e-07_rb,0.18646e-08_rb /)\n      kbo(:, 5,59, 3) = (/ &\n        & 0.65191e-11_rb,0.90265e-08_rb,0.12240e-07_rb,0.12268e-07_rb,0.20471e-08_rb /)\n      kbo(:, 1,13, 4) = (/ &\n        & 0.40115e-06_rb,0.20542e-03_rb,0.29006e-03_rb,0.29983e-03_rb,0.86404e-04_rb /)\n      kbo(:, 2,13, 4) = (/ &\n        & 0.38503e-06_rb,0.22086e-03_rb,0.30833e-03_rb,0.32518e-03_rb,0.92611e-04_rb /)\n      kbo(:, 3,13, 4) = (/ &\n        & 0.37042e-06_rb,0.23415e-03_rb,0.32674e-03_rb,0.34814e-03_rb,0.98878e-04_rb /)\n      kbo(:, 4,13, 4) = (/ &\n        & 0.35699e-06_rb,0.24607e-03_rb,0.34335e-03_rb,0.36858e-03_rb,0.10559e-03_rb /)\n      kbo(:, 5,13, 4) = (/ &\n        & 0.34439e-06_rb,0.25741e-03_rb,0.35943e-03_rb,0.38716e-03_rb,0.11262e-03_rb /)\n      kbo(:, 1,14, 4) = (/ &\n        & 0.32717e-06_rb,0.17086e-03_rb,0.24121e-03_rb,0.25001e-03_rb,0.72120e-04_rb /)\n      kbo(:, 2,14, 4) = (/ &\n        & 0.31411e-06_rb,0.18358e-03_rb,0.25599e-03_rb,0.27089e-03_rb,0.77351e-04_rb /)\n      kbo(:, 3,14, 4) = (/ &\n        & 0.30225e-06_rb,0.19456e-03_rb,0.27149e-03_rb,0.29002e-03_rb,0.82676e-04_rb /)\n      kbo(:, 4,14, 4) = (/ &\n        & 0.29132e-06_rb,0.20460e-03_rb,0.28544e-03_rb,0.30678e-03_rb,0.88331e-04_rb /)\n      kbo(:, 5,14, 4) = (/ &\n        & 0.28105e-06_rb,0.21410e-03_rb,0.29919e-03_rb,0.32271e-03_rb,0.94451e-04_rb /)\n      kbo(:, 1,15, 4) = (/ &\n        & 0.26673e-06_rb,0.14221e-03_rb,0.20048e-03_rb,0.20843e-03_rb,0.60213e-04_rb /)\n      kbo(:, 2,15, 4) = (/ &\n        & 0.25615e-06_rb,0.15268e-03_rb,0.21264e-03_rb,0.22531e-03_rb,0.64531e-04_rb /)\n      kbo(:, 3,15, 4) = (/ &\n        & 0.24652e-06_rb,0.16170e-03_rb,0.22567e-03_rb,0.24157e-03_rb,0.69102e-04_rb /)\n      kbo(:, 4,15, 4) = (/ &\n        & 0.23764e-06_rb,0.17023e-03_rb,0.23750e-03_rb,0.25543e-03_rb,0.73891e-04_rb /)\n      kbo(:, 5,15, 4) = (/ &\n        & 0.22926e-06_rb,0.17815e-03_rb,0.24912e-03_rb,0.26892e-03_rb,0.79167e-04_rb /)\n      kbo(:, 1,16, 4) = (/ &\n        & 0.21740e-06_rb,0.11824e-03_rb,0.16644e-03_rb,0.17381e-03_rb,0.50227e-04_rb /)\n      kbo(:, 2,16, 4) = (/ &\n        & 0.20884e-06_rb,0.12696e-03_rb,0.17683e-03_rb,0.18780e-03_rb,0.53903e-04_rb /)\n      kbo(:, 3,16, 4) = (/ &\n        & 0.20104e-06_rb,0.13434e-03_rb,0.18764e-03_rb,0.20094e-03_rb,0.57777e-04_rb /)\n      kbo(:, 4,16, 4) = (/ &\n        & 0.19381e-06_rb,0.14177e-03_rb,0.19757e-03_rb,0.21259e-03_rb,0.61821e-04_rb /)\n      kbo(:, 5,16, 4) = (/ &\n        & 0.18698e-06_rb,0.14828e-03_rb,0.20747e-03_rb,0.22416e-03_rb,0.66326e-04_rb /)\n      kbo(:, 1,17, 4) = (/ &\n        & 0.17724e-06_rb,0.98287e-04_rb,0.13813e-03_rb,0.14496e-03_rb,0.41851e-04_rb /)\n      kbo(:, 2,17, 4) = (/ &\n        & 0.17029e-06_rb,0.10548e-03_rb,0.14701e-03_rb,0.15636e-03_rb,0.44943e-04_rb /)\n      kbo(:, 3,17, 4) = (/ &\n        & 0.16396e-06_rb,0.11169e-03_rb,0.15605e-03_rb,0.16727e-03_rb,0.48176e-04_rb /)\n      kbo(:, 4,17, 4) = (/ &\n        & 0.15809e-06_rb,0.11795e-03_rb,0.16435e-03_rb,0.17684e-03_rb,0.51716e-04_rb /)\n      kbo(:, 5,17, 4) = (/ &\n        & 0.15251e-06_rb,0.12332e-03_rb,0.17265e-03_rb,0.18683e-03_rb,0.55480e-04_rb /)\n      kbo(:, 1,18, 4) = (/ &\n        & 0.14450e-06_rb,0.81703e-04_rb,0.11464e-03_rb,0.12079e-03_rb,0.34849e-04_rb /)\n      kbo(:, 2,18, 4) = (/ &\n        & 0.13887e-06_rb,0.87580e-04_rb,0.12224e-03_rb,0.13028e-03_rb,0.37465e-04_rb /)\n      kbo(:, 3,18, 4) = (/ &\n        & 0.13373e-06_rb,0.92869e-04_rb,0.12966e-03_rb,0.13906e-03_rb,0.40225e-04_rb /)\n      kbo(:, 4,18, 4) = (/ &\n        & 0.12896e-06_rb,0.98034e-04_rb,0.13668e-03_rb,0.14712e-03_rb,0.43227e-04_rb /)\n      kbo(:, 5,18, 4) = (/ &\n        & 0.12439e-06_rb,0.10250e-03_rb,0.14367e-03_rb,0.15557e-03_rb,0.46383e-04_rb /)\n      kbo(:, 1,19, 4) = (/ &\n        & 0.11782e-06_rb,0.67922e-04_rb,0.95121e-04_rb,0.10059e-03_rb,0.29014e-04_rb /)\n      kbo(:, 2,19, 4) = (/ &\n        & 0.11325e-06_rb,0.72759e-04_rb,0.10166e-03_rb,0.10843e-03_rb,0.31239e-04_rb /)\n      kbo(:, 3,19, 4) = (/ &\n        & 0.10909e-06_rb,0.77213e-04_rb,0.10769e-03_rb,0.11563e-03_rb,0.33594e-04_rb /)\n      kbo(:, 4,19, 4) = (/ &\n        & 0.10521e-06_rb,0.81507e-04_rb,0.11367e-03_rb,0.12244e-03_rb,0.36087e-04_rb /)\n      kbo(:, 5,19, 4) = (/ &\n        & 0.10146e-06_rb,0.85229e-04_rb,0.11951e-03_rb,0.12955e-03_rb,0.38760e-04_rb /)\n      kbo(:, 1,20, 4) = (/ &\n        & 0.96005e-07_rb,0.56539e-04_rb,0.79048e-04_rb,0.83638e-04_rb,0.24182e-04_rb /)\n      kbo(:, 2,20, 4) = (/ &\n        & 0.92311e-07_rb,0.60522e-04_rb,0.84506e-04_rb,0.90308e-04_rb,0.26052e-04_rb /)\n      kbo(:, 3,20, 4) = (/ &\n        & 0.88927e-07_rb,0.64305e-04_rb,0.89608e-04_rb,0.96229e-04_rb,0.28071e-04_rb /)\n      kbo(:, 4,20, 4) = (/ &\n        & 0.85775e-07_rb,0.67811e-04_rb,0.94659e-04_rb,0.10203e-03_rb,0.30185e-04_rb /)\n      kbo(:, 5,20, 4) = (/ &\n        & 0.82709e-07_rb,0.70967e-04_rb,0.99551e-04_rb,0.10796e-03_rb,0.32438e-04_rb /)\n      kbo(:, 1,21, 4) = (/ &\n        & 0.78225e-07_rb,0.47094e-04_rb,0.65736e-04_rb,0.69706e-04_rb,0.20168e-04_rb /)\n      kbo(:, 2,21, 4) = (/ &\n        & 0.75235e-07_rb,0.50383e-04_rb,0.70309e-04_rb,0.75210e-04_rb,0.21748e-04_rb /)\n      kbo(:, 3,21, 4) = (/ &\n        & 0.72491e-07_rb,0.53581e-04_rb,0.74579e-04_rb,0.80106e-04_rb,0.23442e-04_rb /)\n      kbo(:, 4,21, 4) = (/ &\n        & 0.69929e-07_rb,0.56448e-04_rb,0.78864e-04_rb,0.85108e-04_rb,0.25248e-04_rb /)\n      kbo(:, 5,21, 4) = (/ &\n        & 0.67419e-07_rb,0.59090e-04_rb,0.82932e-04_rb,0.89870e-04_rb,0.27098e-04_rb /)\n      kbo(:, 1,22, 4) = (/ &\n        & 0.63572e-07_rb,0.39426e-04_rb,0.54979e-04_rb,0.58443e-04_rb,0.16913e-04_rb /)\n      kbo(:, 2,22, 4) = (/ &\n        & 0.61166e-07_rb,0.42097e-04_rb,0.58779e-04_rb,0.62933e-04_rb,0.18259e-04_rb /)\n      kbo(:, 3,22, 4) = (/ &\n        & 0.58951e-07_rb,0.44794e-04_rb,0.62330e-04_rb,0.66952e-04_rb,0.19670e-04_rb /)\n      kbo(:, 4,22, 4) = (/ &\n        & 0.56872e-07_rb,0.47147e-04_rb,0.65961e-04_rb,0.71230e-04_rb,0.21221e-04_rb /)\n      kbo(:, 5,22, 4) = (/ &\n        & 0.54822e-07_rb,0.49377e-04_rb,0.69234e-04_rb,0.75038e-04_rb,0.22743e-04_rb /)\n      kbo(:, 1,23, 4) = (/ &\n        & 0.51656e-07_rb,0.32950e-04_rb,0.46052e-04_rb,0.49084e-04_rb,0.14181e-04_rb /)\n      kbo(:, 2,23, 4) = (/ &\n        & 0.49721e-07_rb,0.35250e-04_rb,0.49106e-04_rb,0.52675e-04_rb,0.15330e-04_rb /)\n      kbo(:, 3,23, 4) = (/ &\n        & 0.47930e-07_rb,0.37438e-04_rb,0.52152e-04_rb,0.56097e-04_rb,0.16532e-04_rb /)\n      kbo(:, 4,23, 4) = (/ &\n        & 0.46242e-07_rb,0.39418e-04_rb,0.55160e-04_rb,0.59674e-04_rb,0.17811e-04_rb /)\n      kbo(:, 5,23, 4) = (/ &\n        & 0.44570e-07_rb,0.41280e-04_rb,0.57899e-04_rb,0.62654e-04_rb,0.19100e-04_rb /)\n      kbo(:, 1,24, 4) = (/ &\n        & 0.41962e-07_rb,0.27608e-04_rb,0.38527e-04_rb,0.41167e-04_rb,0.11908e-04_rb /)\n      kbo(:, 2,24, 4) = (/ &\n        & 0.40405e-07_rb,0.29547e-04_rb,0.41099e-04_rb,0.44081e-04_rb,0.12880e-04_rb /)\n      kbo(:, 3,24, 4) = (/ &\n        & 0.38959e-07_rb,0.31321e-04_rb,0.43687e-04_rb,0.47051e-04_rb,0.13912e-04_rb /)\n      kbo(:, 4,24, 4) = (/ &\n        & 0.37583e-07_rb,0.32994e-04_rb,0.46190e-04_rb,0.49890e-04_rb,0.14961e-04_rb /)\n      kbo(:, 5,24, 4) = (/ &\n        & 0.36227e-07_rb,0.34560e-04_rb,0.48473e-04_rb,0.52358e-04_rb,0.16039e-04_rb /)\n      kbo(:, 1,25, 4) = (/ &\n        & 0.34075e-07_rb,0.23153e-04_rb,0.32305e-04_rb,0.34566e-04_rb,0.10014e-04_rb /)\n      kbo(:, 2,25, 4) = (/ &\n        & 0.32822e-07_rb,0.24769e-04_rb,0.34435e-04_rb,0.36968e-04_rb,0.10822e-04_rb /)\n      kbo(:, 3,25, 4) = (/ &\n        & 0.31655e-07_rb,0.26242e-04_rb,0.36635e-04_rb,0.39484e-04_rb,0.11699e-04_rb /)\n      kbo(:, 4,25, 4) = (/ &\n        & 0.30528e-07_rb,0.27624e-04_rb,0.38648e-04_rb,0.41770e-04_rb,0.12588e-04_rb /)\n      kbo(:, 5,25, 4) = (/ &\n        & 0.29434e-07_rb,0.28951e-04_rb,0.40632e-04_rb,0.43774e-04_rb,0.13479e-04_rb /)\n      kbo(:, 1,26, 4) = (/ &\n        & 0.27652e-07_rb,0.19460e-04_rb,0.27114e-04_rb,0.29052e-04_rb,0.84372e-05_rb /)\n      kbo(:, 2,26, 4) = (/ &\n        & 0.26645e-07_rb,0.20785e-04_rb,0.28933e-04_rb,0.31091e-04_rb,0.91305e-05_rb /)\n      kbo(:, 3,26, 4) = (/ &\n        & 0.25703e-07_rb,0.22018e-04_rb,0.30749e-04_rb,0.33173e-04_rb,0.98560e-05_rb /)\n      kbo(:, 4,26, 4) = (/ &\n        & 0.24780e-07_rb,0.23166e-04_rb,0.32405e-04_rb,0.34971e-04_rb,0.10593e-04_rb /)\n      kbo(:, 5,26, 4) = (/ &\n        & 0.23900e-07_rb,0.24286e-04_rb,0.34048e-04_rb,0.36663e-04_rb,0.11346e-04_rb /)\n      kbo(:, 1,27, 4) = (/ &\n        & 0.22439e-07_rb,0.16370e-04_rb,0.22763e-04_rb,0.24397e-04_rb,0.71084e-05_rb /)\n      kbo(:, 2,27, 4) = (/ &\n        & 0.21628e-07_rb,0.17461e-04_rb,0.24318e-04_rb,0.26140e-04_rb,0.76961e-05_rb /)\n      kbo(:, 3,27, 4) = (/ &\n        & 0.20865e-07_rb,0.18493e-04_rb,0.25826e-04_rb,0.27824e-04_rb,0.83080e-05_rb /)\n      kbo(:, 4,27, 4) = (/ &\n        & 0.20113e-07_rb,0.19452e-04_rb,0.27215e-04_rb,0.29287e-04_rb,0.89207e-05_rb /)\n      kbo(:, 5,27, 4) = (/ &\n        & 0.19405e-07_rb,0.20376e-04_rb,0.28543e-04_rb,0.30710e-04_rb,0.95477e-05_rb /)\n      kbo(:, 1,28, 4) = (/ &\n        & 0.18208e-07_rb,0.13777e-04_rb,0.19138e-04_rb,0.20524e-04_rb,0.59952e-05_rb /)\n      kbo(:, 2,28, 4) = (/ &\n        & 0.17555e-07_rb,0.14679e-04_rb,0.20448e-04_rb,0.21996e-04_rb,0.64907e-05_rb /)\n      kbo(:, 3,28, 4) = (/ &\n        & 0.16936e-07_rb,0.15522e-04_rb,0.21661e-04_rb,0.23357e-04_rb,0.69966e-05_rb /)\n      kbo(:, 4,28, 4) = (/ &\n        & 0.16325e-07_rb,0.16334e-04_rb,0.22846e-04_rb,0.24537e-04_rb,0.75124e-05_rb /)\n      kbo(:, 5,28, 4) = (/ &\n        & 0.15755e-07_rb,0.17088e-04_rb,0.23931e-04_rb,0.25722e-04_rb,0.80305e-05_rb /)\n      kbo(:, 1,29, 4) = (/ &\n        & 0.14772e-07_rb,0.11598e-04_rb,0.16117e-04_rb,0.17294e-04_rb,0.50602e-05_rb /)\n      kbo(:, 2,29, 4) = (/ &\n        & 0.14246e-07_rb,0.12346e-04_rb,0.17198e-04_rb,0.18521e-04_rb,0.54799e-05_rb /)\n      kbo(:, 3,29, 4) = (/ &\n        & 0.13739e-07_rb,0.13047e-04_rb,0.18205e-04_rb,0.19566e-04_rb,0.58992e-05_rb /)\n      kbo(:, 4,29, 4) = (/ &\n        & 0.13247e-07_rb,0.13729e-04_rb,0.19173e-04_rb,0.20574e-04_rb,0.63251e-05_rb /)\n      kbo(:, 5,29, 4) = (/ &\n        & 0.12789e-07_rb,0.14341e-04_rb,0.20068e-04_rb,0.21536e-04_rb,0.67496e-05_rb /)\n      kbo(:, 1,30, 4) = (/ &\n        & 0.11984e-07_rb,0.97679e-05_rb,0.13568e-04_rb,0.14565e-04_rb,0.42721e-05_rb /)\n      kbo(:, 2,30, 4) = (/ &\n        & 0.11560e-07_rb,0.10389e-04_rb,0.14461e-04_rb,0.15560e-04_rb,0.46182e-05_rb /)\n      kbo(:, 3,30, 4) = (/ &\n        & 0.11144e-07_rb,0.10973e-04_rb,0.15302e-04_rb,0.16410e-04_rb,0.49715e-05_rb /)\n      kbo(:, 4,30, 4) = (/ &\n        & 0.10750e-07_rb,0.11532e-04_rb,0.16091e-04_rb,0.17244e-04_rb,0.53212e-05_rb /)\n      kbo(:, 5,30, 4) = (/ &\n        & 0.10381e-07_rb,0.12034e-04_rb,0.16821e-04_rb,0.18023e-04_rb,0.56712e-05_rb /)\n      kbo(:, 1,31, 4) = (/ &\n        & 0.97205e-08_rb,0.82296e-05_rb,0.11440e-04_rb,0.12288e-04_rb,0.36079e-05_rb /)\n      kbo(:, 2,31, 4) = (/ &\n        & 0.93777e-08_rb,0.87431e-05_rb,0.12158e-04_rb,0.13067e-04_rb,0.38974e-05_rb /)\n      kbo(:, 3,31, 4) = (/ &\n        & 0.90391e-08_rb,0.92300e-05_rb,0.12862e-04_rb,0.13769e-04_rb,0.41885e-05_rb /)\n      kbo(:, 4,31, 4) = (/ &\n        & 0.87219e-08_rb,0.96854e-05_rb,0.13508e-04_rb,0.14454e-04_rb,0.44756e-05_rb /)\n      kbo(:, 5,31, 4) = (/ &\n        & 0.84251e-08_rb,0.10101e-04_rb,0.14090e-04_rb,0.15064e-04_rb,0.47643e-05_rb /)\n      kbo(:, 1,32, 4) = (/ &\n        & 0.78842e-08_rb,0.69379e-05_rb,0.96378e-05_rb,0.10350e-04_rb,0.30462e-05_rb /)\n      kbo(:, 2,32, 4) = (/ &\n        & 0.76058e-08_rb,0.73605e-05_rb,0.10230e-04_rb,0.10964e-04_rb,0.32879e-05_rb /)\n      kbo(:, 3,32, 4) = (/ &\n        & 0.73312e-08_rb,0.77685e-05_rb,0.10806e-04_rb,0.11552e-04_rb,0.35258e-05_rb /)\n      kbo(:, 4,32, 4) = (/ &\n        & 0.70761e-08_rb,0.81393e-05_rb,0.11329e-04_rb,0.12109e-04_rb,0.37642e-05_rb /)\n      kbo(:, 5,32, 4) = (/ &\n        & 0.68375e-08_rb,0.84723e-05_rb,0.11806e-04_rb,0.12582e-04_rb,0.40027e-05_rb /)\n      kbo(:, 1,33, 4) = (/ &\n        & 0.63946e-08_rb,0.58484e-05_rb,0.81132e-05_rb,0.87138e-05_rb,0.25722e-05_rb /)\n      kbo(:, 2,33, 4) = (/ &\n        & 0.61668e-08_rb,0.61985e-05_rb,0.86152e-05_rb,0.92043e-05_rb,0.27716e-05_rb /)\n      kbo(:, 3,33, 4) = (/ &\n        & 0.59460e-08_rb,0.65329e-05_rb,0.90761e-05_rb,0.96914e-05_rb,0.29672e-05_rb /)\n      kbo(:, 4,33, 4) = (/ &\n        & 0.57410e-08_rb,0.68349e-05_rb,0.94991e-05_rb,0.10128e-04_rb,0.31649e-05_rb /)\n      kbo(:, 5,33, 4) = (/ &\n        & 0.55490e-08_rb,0.71098e-05_rb,0.98972e-05_rb,0.10494e-04_rb,0.33613e-05_rb /)\n      kbo(:, 1,34, 4) = (/ &\n        & 0.51931e-08_rb,0.49155e-05_rb,0.68122e-05_rb,0.73003e-05_rb,0.21648e-05_rb /)\n      kbo(:, 2,34, 4) = (/ &\n        & 0.50066e-08_rb,0.52108e-05_rb,0.72299e-05_rb,0.77128e-05_rb,0.23280e-05_rb /)\n      kbo(:, 3,34, 4) = (/ &\n        & 0.48289e-08_rb,0.54838e-05_rb,0.76076e-05_rb,0.81077e-05_rb,0.24906e-05_rb /)\n      kbo(:, 4,34, 4) = (/ &\n        & 0.46636e-08_rb,0.57271e-05_rb,0.79460e-05_rb,0.84494e-05_rb,0.26534e-05_rb /)\n      kbo(:, 5,34, 4) = (/ &\n        & 0.45089e-08_rb,0.59543e-05_rb,0.82751e-05_rb,0.87422e-05_rb,0.28159e-05_rb /)\n      kbo(:, 1,35, 4) = (/ &\n        & 0.42177e-08_rb,0.41104e-05_rb,0.56914e-05_rb,0.60852e-05_rb,0.18078e-05_rb /)\n      kbo(:, 2,35, 4) = (/ &\n        & 0.40795e-08_rb,0.43580e-05_rb,0.60334e-05_rb,0.64274e-05_rb,0.19421e-05_rb /)\n      kbo(:, 3,35, 4) = (/ &\n        & 0.39353e-08_rb,0.45814e-05_rb,0.63407e-05_rb,0.67443e-05_rb,0.20767e-05_rb /)\n      kbo(:, 4,35, 4) = (/ &\n        & 0.38012e-08_rb,0.47803e-05_rb,0.66196e-05_rb,0.70144e-05_rb,0.22114e-05_rb /)\n      kbo(:, 5,35, 4) = (/ &\n        & 0.36756e-08_rb,0.49682e-05_rb,0.68884e-05_rb,0.72539e-05_rb,0.23458e-05_rb /)\n      kbo(:, 1,36, 4) = (/ &\n        & 0.34162e-08_rb,0.34141e-05_rb,0.47224e-05_rb,0.50412e-05_rb,0.14965e-05_rb /)\n      kbo(:, 2,36, 4) = (/ &\n        & 0.33196e-08_rb,0.36215e-05_rb,0.50037e-05_rb,0.53241e-05_rb,0.16078e-05_rb /)\n      kbo(:, 3,36, 4) = (/ &\n        & 0.32195e-08_rb,0.38064e-05_rb,0.52583e-05_rb,0.55817e-05_rb,0.17188e-05_rb /)\n      kbo(:, 4,36, 4) = (/ &\n        & 0.31099e-08_rb,0.39715e-05_rb,0.54881e-05_rb,0.58006e-05_rb,0.18307e-05_rb /)\n      kbo(:, 5,36, 4) = (/ &\n        & 0.30072e-08_rb,0.41270e-05_rb,0.57065e-05_rb,0.59974e-05_rb,0.19419e-05_rb /)\n      kbo(:, 1,37, 4) = (/ &\n        & 0.28008e-08_rb,0.28094e-05_rb,0.38801e-05_rb,0.41393e-05_rb,0.12248e-05_rb /)\n      kbo(:, 2,37, 4) = (/ &\n        & 0.27121e-08_rb,0.29836e-05_rb,0.41155e-05_rb,0.43748e-05_rb,0.13168e-05_rb /)\n      kbo(:, 3,37, 4) = (/ &\n        & 0.26482e-08_rb,0.31397e-05_rb,0.43282e-05_rb,0.45885e-05_rb,0.14087e-05_rb /)\n      kbo(:, 4,37, 4) = (/ &\n        & 0.25576e-08_rb,0.32779e-05_rb,0.45200e-05_rb,0.47706e-05_rb,0.15013e-05_rb /)\n      kbo(:, 5,37, 4) = (/ &\n        & 0.24727e-08_rb,0.34082e-05_rb,0.47023e-05_rb,0.49354e-05_rb,0.15935e-05_rb /)\n      kbo(:, 1,38, 4) = (/ &\n        & 0.22984e-08_rb,0.23106e-05_rb,0.31856e-05_rb,0.33961e-05_rb,0.10016e-05_rb /)\n      kbo(:, 2,38, 4) = (/ &\n        & 0.22220e-08_rb,0.24563e-05_rb,0.33826e-05_rb,0.35915e-05_rb,0.10776e-05_rb /)\n      kbo(:, 3,38, 4) = (/ &\n        & 0.21588e-08_rb,0.25882e-05_rb,0.35600e-05_rb,0.37696e-05_rb,0.11538e-05_rb /)\n      kbo(:, 4,38, 4) = (/ &\n        & 0.21040e-08_rb,0.27033e-05_rb,0.37199e-05_rb,0.39213e-05_rb,0.12304e-05_rb /)\n      kbo(:, 5,38, 4) = (/ &\n        & 0.20339e-08_rb,0.28122e-05_rb,0.38728e-05_rb,0.40597e-05_rb,0.13067e-05_rb /)\n      kbo(:, 1,39, 4) = (/ &\n        & 0.18867e-08_rb,0.18990e-05_rb,0.26147e-05_rb,0.27855e-05_rb,0.81895e-06_rb /)\n      kbo(:, 2,39, 4) = (/ &\n        & 0.18219e-08_rb,0.20211e-05_rb,0.27789e-05_rb,0.29482e-05_rb,0.88168e-06_rb /)\n      kbo(:, 3,39, 4) = (/ &\n        & 0.17671e-08_rb,0.21324e-05_rb,0.29272e-05_rb,0.30962e-05_rb,0.94475e-06_rb /)\n      kbo(:, 4,39, 4) = (/ &\n        & 0.17201e-08_rb,0.22287e-05_rb,0.30607e-05_rb,0.32231e-05_rb,0.10080e-05_rb /)\n      kbo(:, 5,39, 4) = (/ &\n        & 0.16729e-08_rb,0.23197e-05_rb,0.31885e-05_rb,0.33389e-05_rb,0.10713e-05_rb /)\n      kbo(:, 1,40, 4) = (/ &\n        & 0.15567e-08_rb,0.15486e-05_rb,0.21299e-05_rb,0.22697e-05_rb,0.66418e-06_rb /)\n      kbo(:, 2,40, 4) = (/ &\n        & 0.15030e-08_rb,0.16525e-05_rb,0.22686e-05_rb,0.24063e-05_rb,0.71591e-06_rb /)\n      kbo(:, 3,40, 4) = (/ &\n        & 0.14559e-08_rb,0.17468e-05_rb,0.23938e-05_rb,0.25304e-05_rb,0.76804e-06_rb /)\n      kbo(:, 4,40, 4) = (/ &\n        & 0.14147e-08_rb,0.18284e-05_rb,0.25062e-05_rb,0.26377e-05_rb,0.82053e-06_rb /)\n      kbo(:, 5,40, 4) = (/ &\n        & 0.13808e-08_rb,0.19051e-05_rb,0.26142e-05_rb,0.27362e-05_rb,0.87282e-06_rb /)\n      kbo(:, 1,41, 4) = (/ &\n        & 0.12855e-08_rb,0.12622e-05_rb,0.17326e-05_rb,0.18472e-05_rb,0.53778e-06_rb /)\n      kbo(:, 2,41, 4) = (/ &\n        & 0.12414e-08_rb,0.13486e-05_rb,0.18494e-05_rb,0.19612e-05_rb,0.58062e-06_rb /)\n      kbo(:, 3,41, 4) = (/ &\n        & 0.12006e-08_rb,0.14290e-05_rb,0.19551e-05_rb,0.20665e-05_rb,0.62365e-06_rb /)\n      kbo(:, 4,41, 4) = (/ &\n        & 0.11655e-08_rb,0.14984e-05_rb,0.20506e-05_rb,0.21570e-05_rb,0.66707e-06_rb /)\n      kbo(:, 5,41, 4) = (/ &\n        & 0.11366e-08_rb,0.15630e-05_rb,0.21416e-05_rb,0.22404e-05_rb,0.71035e-06_rb /)\n      kbo(:, 1,42, 4) = (/ &\n        & 0.10616e-08_rb,0.10273e-05_rb,0.14085e-05_rb,0.15034e-05_rb,0.43514e-06_rb /)\n      kbo(:, 2,42, 4) = (/ &\n        & 0.10250e-08_rb,0.10997e-05_rb,0.15070e-05_rb,0.15973e-05_rb,0.47061e-06_rb /)\n      kbo(:, 3,42, 4) = (/ &\n        & 0.99030e-09_rb,0.11679e-05_rb,0.15953e-05_rb,0.16861e-05_rb,0.50613e-06_rb /)\n      kbo(:, 4,42, 4) = (/ &\n        & 0.96062e-09_rb,0.12272e-05_rb,0.16766e-05_rb,0.17642e-05_rb,0.54216e-06_rb /)\n      kbo(:, 5,42, 4) = (/ &\n        & 0.93443e-09_rb,0.12817e-05_rb,0.17529e-05_rb,0.18333e-05_rb,0.57784e-06_rb /)\n      kbo(:, 1,43, 4) = (/ &\n        & 0.87883e-09_rb,0.83199e-06_rb,0.11402e-05_rb,0.12168e-05_rb,0.35025e-06_rb /)\n      kbo(:, 2,43, 4) = (/ &\n        & 0.84829e-09_rb,0.89254e-06_rb,0.12225e-05_rb,0.12958e-05_rb,0.37960e-06_rb /)\n      kbo(:, 3,43, 4) = (/ &\n        & 0.81903e-09_rb,0.95072e-06_rb,0.12966e-05_rb,0.13708e-05_rb,0.40893e-06_rb /)\n      kbo(:, 4,43, 4) = (/ &\n        & 0.79369e-09_rb,0.10020e-05_rb,0.13665e-05_rb,0.14379e-05_rb,0.43862e-06_rb /)\n      kbo(:, 5,43, 4) = (/ &\n        & 0.77108e-09_rb,0.10478e-05_rb,0.14302e-05_rb,0.14962e-05_rb,0.46817e-06_rb /)\n      kbo(:, 1,44, 4) = (/ &\n        & 0.72838e-09_rb,0.67080e-06_rb,0.91962e-06_rb,0.98102e-06_rb,0.28107e-06_rb /)\n      kbo(:, 2,44, 4) = (/ &\n        & 0.70279e-09_rb,0.72271e-06_rb,0.98853e-06_rb,0.10491e-05_rb,0.30540e-06_rb /)\n      kbo(:, 3,44, 4) = (/ &\n        & 0.67858e-09_rb,0.77203e-06_rb,0.10522e-05_rb,0.11122e-05_rb,0.32958e-06_rb /)\n      kbo(:, 4,44, 4) = (/ &\n        & 0.65651e-09_rb,0.81625e-06_rb,0.11115e-05_rb,0.11697e-05_rb,0.35407e-06_rb /)\n      kbo(:, 5,44, 4) = (/ &\n        & 0.63727e-09_rb,0.85495e-06_rb,0.11651e-05_rb,0.12192e-05_rb,0.37850e-06_rb /)\n      kbo(:, 1,45, 4) = (/ &\n        & 0.60379e-09_rb,0.54047e-06_rb,0.74128e-06_rb,0.79100e-06_rb,0.22535e-06_rb /)\n      kbo(:, 2,45, 4) = (/ &\n        & 0.58228e-09_rb,0.58429e-06_rb,0.79854e-06_rb,0.84841e-06_rb,0.24548e-06_rb /)\n      kbo(:, 3,45, 4) = (/ &\n        & 0.56220e-09_rb,0.62606e-06_rb,0.85283e-06_rb,0.90157e-06_rb,0.26541e-06_rb /)\n      kbo(:, 4,45, 4) = (/ &\n        & 0.54320e-09_rb,0.66423e-06_rb,0.90296e-06_rb,0.95015e-06_rb,0.28558e-06_rb /)\n      kbo(:, 5,45, 4) = (/ &\n        & 0.52686e-09_rb,0.69719e-06_rb,0.94830e-06_rb,0.99254e-06_rb,0.30580e-06_rb /)\n      kbo(:, 1,46, 4) = (/ &\n        & 0.50108e-09_rb,0.43361e-06_rb,0.59554e-06_rb,0.63432e-06_rb,0.18023e-06_rb /)\n      kbo(:, 2,46, 4) = (/ &\n        & 0.48291e-09_rb,0.47127e-06_rb,0.64349e-06_rb,0.68510e-06_rb,0.19677e-06_rb /)\n      kbo(:, 3,46, 4) = (/ &\n        & 0.46612e-09_rb,0.50621e-06_rb,0.68942e-06_rb,0.72929e-06_rb,0.21325e-06_rb /)\n      kbo(:, 4,46, 4) = (/ &\n        & 0.45004e-09_rb,0.53903e-06_rb,0.73169e-06_rb,0.77095e-06_rb,0.22986e-06_rb /)\n      kbo(:, 5,46, 4) = (/ &\n        & 0.43600e-09_rb,0.56740e-06_rb,0.77081e-06_rb,0.80714e-06_rb,0.24654e-06_rb /)\n      kbo(:, 1,47, 4) = (/ &\n        & 0.41665e-09_rb,0.34614e-06_rb,0.47565e-06_rb,0.50598e-06_rb,0.14345e-06_rb /)\n      kbo(:, 2,47, 4) = (/ &\n        & 0.40119e-09_rb,0.37779e-06_rb,0.51642e-06_rb,0.55015e-06_rb,0.15697e-06_rb /)\n      kbo(:, 3,47, 4) = (/ &\n        & 0.38702e-09_rb,0.40752e-06_rb,0.55525e-06_rb,0.58759e-06_rb,0.17064e-06_rb /)\n      kbo(:, 4,47, 4) = (/ &\n        & 0.37372e-09_rb,0.43563e-06_rb,0.59076e-06_rb,0.62318e-06_rb,0.18430e-06_rb /)\n      kbo(:, 5,47, 4) = (/ &\n        & 0.36139e-09_rb,0.46041e-06_rb,0.62474e-06_rb,0.65515e-06_rb,0.19800e-06_rb /)\n      kbo(:, 1,48, 4) = (/ &\n        & 0.34658e-09_rb,0.27494e-06_rb,0.37924e-06_rb,0.40349e-06_rb,0.11407e-06_rb /)\n      kbo(:, 2,48, 4) = (/ &\n        & 0.33340e-09_rb,0.30243e-06_rb,0.41340e-06_rb,0.44066e-06_rb,0.12508e-06_rb /)\n      kbo(:, 3,48, 4) = (/ &\n        & 0.32143e-09_rb,0.32756e-06_rb,0.44635e-06_rb,0.47308e-06_rb,0.13636e-06_rb /)\n      kbo(:, 4,48, 4) = (/ &\n        & 0.31032e-09_rb,0.35149e-06_rb,0.47669e-06_rb,0.50309e-06_rb,0.14763e-06_rb /)\n      kbo(:, 5,48, 4) = (/ &\n        & 0.29969e-09_rb,0.37323e-06_rb,0.50542e-06_rb,0.53062e-06_rb,0.15892e-06_rb /)\n      kbo(:, 1,49, 4) = (/ &\n        & 0.28846e-09_rb,0.21778e-06_rb,0.30168e-06_rb,0.32158e-06_rb,0.90607e-07_rb /)\n      kbo(:, 2,49, 4) = (/ &\n        & 0.27716e-09_rb,0.24139e-06_rb,0.33071e-06_rb,0.35214e-06_rb,0.99577e-07_rb /)\n      kbo(:, 3,49, 4) = (/ &\n        & 0.26700e-09_rb,0.26304e-06_rb,0.35804e-06_rb,0.38049e-06_rb,0.10881e-06_rb /)\n      kbo(:, 4,49, 4) = (/ &\n        & 0.25767e-09_rb,0.28313e-06_rb,0.38394e-06_rb,0.40566e-06_rb,0.11814e-06_rb /)\n      kbo(:, 5,49, 4) = (/ &\n        & 0.24875e-09_rb,0.30183e-06_rb,0.40832e-06_rb,0.42906e-06_rb,0.12742e-06_rb /)\n      kbo(:, 1,50, 4) = (/ &\n        & 0.23994e-09_rb,0.17276e-06_rb,0.24039e-06_rb,0.25644e-06_rb,0.72124e-07_rb /)\n      kbo(:, 2,50, 4) = (/ &\n        & 0.23028e-09_rb,0.19275e-06_rb,0.26429e-06_rb,0.28117e-06_rb,0.79388e-07_rb /)\n      kbo(:, 3,50, 4) = (/ &\n        & 0.22162e-09_rb,0.21106e-06_rb,0.28758e-06_rb,0.30606e-06_rb,0.86922e-07_rb /)\n      kbo(:, 4,50, 4) = (/ &\n        & 0.21377e-09_rb,0.22807e-06_rb,0.30947e-06_rb,0.32714e-06_rb,0.94628e-07_rb /)\n      kbo(:, 5,50, 4) = (/ &\n        & 0.20641e-09_rb,0.24400e-06_rb,0.32962e-06_rb,0.34715e-06_rb,0.10228e-06_rb /)\n      kbo(:, 1,51, 4) = (/ &\n        & 0.19960e-09_rb,0.13709e-06_rb,0.19101e-06_rb,0.20407e-06_rb,0.57566e-07_rb /)\n      kbo(:, 2,51, 4) = (/ &\n        & 0.19132e-09_rb,0.15352e-06_rb,0.21120e-06_rb,0.22455e-06_rb,0.63308e-07_rb /)\n      kbo(:, 3,51, 4) = (/ &\n        & 0.18395e-09_rb,0.16924e-06_rb,0.23068e-06_rb,0.24563e-06_rb,0.69421e-07_rb /)\n      kbo(:, 4,51, 4) = (/ &\n        & 0.17732e-09_rb,0.18352e-06_rb,0.24926e-06_rb,0.26383e-06_rb,0.75773e-07_rb /)\n      kbo(:, 5,51, 4) = (/ &\n        & 0.17117e-09_rb,0.19715e-06_rb,0.26630e-06_rb,0.28068e-06_rb,0.82097e-07_rb /)\n      kbo(:, 1,52, 4) = (/ &\n        & 0.16616e-09_rb,0.10852e-06_rb,0.15191e-06_rb,0.16137e-06_rb,0.45975e-07_rb /)\n      kbo(:, 2,52, 4) = (/ &\n        & 0.15901e-09_rb,0.12188e-06_rb,0.16855e-06_rb,0.17943e-06_rb,0.50454e-07_rb /)\n      kbo(:, 3,52, 4) = (/ &\n        & 0.15272e-09_rb,0.13535e-06_rb,0.18502e-06_rb,0.19705e-06_rb,0.55424e-07_rb /)\n      kbo(:, 4,52, 4) = (/ &\n        & 0.14711e-09_rb,0.14765e-06_rb,0.20042e-06_rb,0.21252e-06_rb,0.60616e-07_rb /)\n      kbo(:, 5,52, 4) = (/ &\n        & 0.14194e-09_rb,0.15907e-06_rb,0.21484e-06_rb,0.22673e-06_rb,0.65826e-07_rb /)\n      kbo(:, 1,53, 4) = (/ &\n        & 0.13839e-09_rb,0.85704e-07_rb,0.12023e-06_rb,0.12744e-06_rb,0.36523e-07_rb /)\n      kbo(:, 2,53, 4) = (/ &\n        & 0.13223e-09_rb,0.96600e-07_rb,0.13438e-06_rb,0.14312e-06_rb,0.40152e-07_rb /)\n      kbo(:, 3,53, 4) = (/ &\n        & 0.12684e-09_rb,0.10804e-06_rb,0.14784e-06_rb,0.15735e-06_rb,0.44207e-07_rb /)\n      kbo(:, 4,53, 4) = (/ &\n        & 0.12208e-09_rb,0.11851e-06_rb,0.16093e-06_rb,0.17108e-06_rb,0.48435e-07_rb /)\n      kbo(:, 5,53, 4) = (/ &\n        & 0.11772e-09_rb,0.12811e-06_rb,0.17313e-06_rb,0.18293e-06_rb,0.52733e-07_rb /)\n      kbo(:, 1,54, 4) = (/ &\n        & 0.11516e-09_rb,0.67802e-07_rb,0.95400e-07_rb,0.10065e-06_rb,0.29040e-07_rb /)\n      kbo(:, 2,54, 4) = (/ &\n        & 0.10986e-09_rb,0.76927e-07_rb,0.10712e-06_rb,0.11428e-06_rb,0.32044e-07_rb /)\n      kbo(:, 3,54, 4) = (/ &\n        & 0.10526e-09_rb,0.86295e-07_rb,0.11833e-06_rb,0.12580e-06_rb,0.35335e-07_rb /)\n      kbo(:, 4,54, 4) = (/ &\n        & 0.10122e-09_rb,0.95190e-07_rb,0.12936e-06_rb,0.13763e-06_rb,0.38764e-07_rb /)\n      kbo(:, 5,54, 4) = (/ &\n        & 0.97545e-10_rb,0.10324e-06_rb,0.13969e-06_rb,0.14768e-06_rb,0.42312e-07_rb /)\n      kbo(:, 1,55, 4) = (/ &\n        & 0.95832e-10_rb,0.53610e-07_rb,0.75981e-07_rb,0.79667e-07_rb,0.23117e-07_rb /)\n      kbo(:, 2,55, 4) = (/ &\n        & 0.91281e-10_rb,0.61130e-07_rb,0.85329e-07_rb,0.91005e-07_rb,0.25657e-07_rb /)\n      kbo(:, 3,55, 4) = (/ &\n        & 0.87335e-10_rb,0.68825e-07_rb,0.94736e-07_rb,0.10075e-06_rb,0.28264e-07_rb /)\n      kbo(:, 4,55, 4) = (/ &\n        & 0.83897e-10_rb,0.76435e-07_rb,0.10396e-06_rb,0.11070e-06_rb,0.31057e-07_rb /)\n      kbo(:, 5,55, 4) = (/ &\n        & 0.80810e-10_rb,0.83278e-07_rb,0.11269e-06_rb,0.11928e-06_rb,0.33972e-07_rb /)\n      kbo(:, 1,56, 4) = (/ &\n        & 0.79810e-10_rb,0.42322e-07_rb,0.60374e-07_rb,0.62926e-07_rb,0.18404e-07_rb /)\n      kbo(:, 2,56, 4) = (/ &\n        & 0.75864e-10_rb,0.48559e-07_rb,0.68039e-07_rb,0.72241e-07_rb,0.20548e-07_rb /)\n      kbo(:, 3,56, 4) = (/ &\n        & 0.72485e-10_rb,0.54773e-07_rb,0.75799e-07_rb,0.80757e-07_rb,0.22581e-07_rb /)\n      kbo(:, 4,56, 4) = (/ &\n        & 0.69560e-10_rb,0.61224e-07_rb,0.83554e-07_rb,0.88967e-07_rb,0.24859e-07_rb /)\n      kbo(:, 5,56, 4) = (/ &\n        & 0.66951e-10_rb,0.67084e-07_rb,0.90797e-07_rb,0.96246e-07_rb,0.27245e-07_rb /)\n      kbo(:, 1,57, 4) = (/ &\n        & 0.66524e-10_rb,0.33320e-07_rb,0.47516e-07_rb,0.49541e-07_rb,0.14620e-07_rb /)\n      kbo(:, 2,57, 4) = (/ &\n        & 0.63081e-10_rb,0.38443e-07_rb,0.54027e-07_rb,0.57142e-07_rb,0.16370e-07_rb /)\n      kbo(:, 3,57, 4) = (/ &\n        & 0.60187e-10_rb,0.43587e-07_rb,0.60611e-07_rb,0.64608e-07_rb,0.18036e-07_rb /)\n      kbo(:, 4,57, 4) = (/ &\n        & 0.57689e-10_rb,0.48970e-07_rb,0.66915e-07_rb,0.71233e-07_rb,0.19895e-07_rb /)\n      kbo(:, 5,57, 4) = (/ &\n        & 0.55478e-10_rb,0.53925e-07_rb,0.73045e-07_rb,0.77618e-07_rb,0.21831e-07_rb /)\n      kbo(:, 1,58, 4) = (/ &\n        & 0.55447e-10_rb,0.26240e-07_rb,0.37435e-07_rb,0.38989e-07_rb,0.11606e-07_rb /)\n      kbo(:, 2,58, 4) = (/ &\n        & 0.52442e-10_rb,0.30460e-07_rb,0.42955e-07_rb,0.45233e-07_rb,0.13047e-07_rb /)\n      kbo(:, 3,58, 4) = (/ &\n        & 0.49962e-10_rb,0.34761e-07_rb,0.48418e-07_rb,0.51680e-07_rb,0.14431e-07_rb /)\n      kbo(:, 4,58, 4) = (/ &\n        & 0.47826e-10_rb,0.39152e-07_rb,0.53626e-07_rb,0.57047e-07_rb,0.15934e-07_rb /)\n      kbo(:, 5,58, 4) = (/ &\n        & 0.45954e-10_rb,0.43380e-07_rb,0.58786e-07_rb,0.62538e-07_rb,0.17511e-07_rb /)\n      kbo(:, 1,59, 4) = (/ &\n        & 0.45740e-10_rb,0.21248e-07_rb,0.30261e-07_rb,0.31577e-07_rb,0.94221e-08_rb /)\n      kbo(:, 2,59, 4) = (/ &\n        & 0.43210e-10_rb,0.24730e-07_rb,0.34948e-07_rb,0.36722e-07_rb,0.10608e-07_rb /)\n      kbo(:, 3,59, 4) = (/ &\n        & 0.41141e-10_rb,0.28288e-07_rb,0.39410e-07_rb,0.42052e-07_rb,0.11754e-07_rb /)\n      kbo(:, 4,59, 4) = (/ &\n        & 0.39361e-10_rb,0.31904e-07_rb,0.43740e-07_rb,0.46527e-07_rb,0.12986e-07_rb /)\n      kbo(:, 5,59, 4) = (/ &\n        & 0.37805e-10_rb,0.35442e-07_rb,0.48020e-07_rb,0.51083e-07_rb,0.14278e-07_rb /)\n      kbo(:, 1,13, 5) = (/ &\n        & 0.79045e-05_rb,0.58512e-03_rb,0.80967e-03_rb,0.88578e-03_rb,0.34824e-03_rb /)\n      kbo(:, 2,13, 5) = (/ &\n        & 0.92807e-05_rb,0.61818e-03_rb,0.86083e-03_rb,0.92437e-03_rb,0.37870e-03_rb /)\n      kbo(:, 3,13, 5) = (/ &\n        & 0.10620e-04_rb,0.65025e-03_rb,0.90617e-03_rb,0.96290e-03_rb,0.40639e-03_rb /)\n      kbo(:, 4,13, 5) = (/ &\n        & 0.11847e-04_rb,0.68086e-03_rb,0.94767e-03_rb,0.99815e-03_rb,0.43149e-03_rb /)\n      kbo(:, 5,13, 5) = (/ &\n        & 0.12897e-04_rb,0.70941e-03_rb,0.98426e-03_rb,0.10296e-02_rb,0.45459e-03_rb /)\n      kbo(:, 1,14, 5) = (/ &\n        & 0.65683e-05_rb,0.48798e-03_rb,0.67570e-03_rb,0.73755e-03_rb,0.29172e-03_rb /)\n      kbo(:, 2,14, 5) = (/ &\n        & 0.76957e-05_rb,0.51555e-03_rb,0.71856e-03_rb,0.76978e-03_rb,0.31709e-03_rb /)\n      kbo(:, 3,14, 5) = (/ &\n        & 0.87852e-05_rb,0.54243e-03_rb,0.75604e-03_rb,0.80142e-03_rb,0.34064e-03_rb /)\n      kbo(:, 4,14, 5) = (/ &\n        & 0.97622e-05_rb,0.56817e-03_rb,0.79038e-03_rb,0.83091e-03_rb,0.36095e-03_rb /)\n      kbo(:, 5,14, 5) = (/ &\n        & 0.10614e-04_rb,0.59208e-03_rb,0.82018e-03_rb,0.85691e-03_rb,0.38095e-03_rb /)\n      kbo(:, 1,15, 5) = (/ &\n        & 0.54643e-05_rb,0.40660e-03_rb,0.56371e-03_rb,0.61286e-03_rb,0.24435e-03_rb /)\n      kbo(:, 2,15, 5) = (/ &\n        & 0.63883e-05_rb,0.42973e-03_rb,0.59914e-03_rb,0.64093e-03_rb,0.26475e-03_rb /)\n      kbo(:, 3,15, 5) = (/ &\n        & 0.72593e-05_rb,0.45218e-03_rb,0.63004e-03_rb,0.66659e-03_rb,0.28486e-03_rb /)\n      kbo(:, 4,15, 5) = (/ &\n        & 0.80526e-05_rb,0.47373e-03_rb,0.65847e-03_rb,0.69128e-03_rb,0.30200e-03_rb /)\n      kbo(:, 5,15, 5) = (/ &\n        & 0.87364e-05_rb,0.49393e-03_rb,0.68318e-03_rb,0.71321e-03_rb,0.31930e-03_rb /)\n      kbo(:, 1,16, 5) = (/ &\n        & 0.45482e-05_rb,0.33872e-03_rb,0.47003e-03_rb,0.50920e-03_rb,0.20473e-03_rb /)\n      kbo(:, 2,16, 5) = (/ &\n        & 0.52893e-05_rb,0.35785e-03_rb,0.49898e-03_rb,0.53306e-03_rb,0.22171e-03_rb /)\n      kbo(:, 3,16, 5) = (/ &\n        & 0.59989e-05_rb,0.37673e-03_rb,0.52467e-03_rb,0.55461e-03_rb,0.23803e-03_rb /)\n      kbo(:, 4,16, 5) = (/ &\n        & 0.66426e-05_rb,0.39470e-03_rb,0.54827e-03_rb,0.57515e-03_rb,0.25244e-03_rb /)\n      kbo(:, 5,16, 5) = (/ &\n        & 0.71759e-05_rb,0.41193e-03_rb,0.56909e-03_rb,0.59361e-03_rb,0.26773e-03_rb /)\n      kbo(:, 1,17, 5) = (/ &\n        & 0.37690e-05_rb,0.28177e-03_rb,0.39153e-03_rb,0.42265e-03_rb,0.17155e-03_rb /)\n      kbo(:, 2,17, 5) = (/ &\n        & 0.43790e-05_rb,0.29778e-03_rb,0.41535e-03_rb,0.44288e-03_rb,0.18563e-03_rb /)\n      kbo(:, 3,17, 5) = (/ &\n        & 0.49545e-05_rb,0.31371e-03_rb,0.43664e-03_rb,0.46090e-03_rb,0.19908e-03_rb /)\n      kbo(:, 4,17, 5) = (/ &\n        & 0.54563e-05_rb,0.32886e-03_rb,0.45637e-03_rb,0.47854e-03_rb,0.21097e-03_rb /)\n      kbo(:, 5,17, 5) = (/ &\n        & 0.58879e-05_rb,0.34359e-03_rb,0.47416e-03_rb,0.49387e-03_rb,0.22440e-03_rb /)\n      kbo(:, 1,18, 5) = (/ &\n        & 0.31260e-05_rb,0.23432e-03_rb,0.32596e-03_rb,0.35082e-03_rb,0.14348e-03_rb /)\n      kbo(:, 2,18, 5) = (/ &\n        & 0.36185e-05_rb,0.24786e-03_rb,0.34561e-03_rb,0.36765e-03_rb,0.15546e-03_rb /)\n      kbo(:, 3,18, 5) = (/ &\n        & 0.40732e-05_rb,0.26120e-03_rb,0.36343e-03_rb,0.38325e-03_rb,0.16623e-03_rb /)\n      kbo(:, 4,18, 5) = (/ &\n        & 0.44839e-05_rb,0.27403e-03_rb,0.37997e-03_rb,0.39811e-03_rb,0.17659e-03_rb /)\n      kbo(:, 5,18, 5) = (/ &\n        & 0.48304e-05_rb,0.28674e-03_rb,0.39513e-03_rb,0.41114e-03_rb,0.18813e-03_rb /)\n      kbo(:, 1,19, 5) = (/ &\n        & 0.25853e-05_rb,0.19483e-03_rb,0.27128e-03_rb,0.29126e-03_rb,0.11969e-03_rb /)\n      kbo(:, 2,19, 5) = (/ &\n        & 0.29834e-05_rb,0.20623e-03_rb,0.28749e-03_rb,0.30541e-03_rb,0.12978e-03_rb /)\n      kbo(:, 3,19, 5) = (/ &\n        & 0.33546e-05_rb,0.21750e-03_rb,0.30267e-03_rb,0.31871e-03_rb,0.13874e-03_rb /)\n      kbo(:, 4,19, 5) = (/ &\n        & 0.36863e-05_rb,0.22842e-03_rb,0.31656e-03_rb,0.33115e-03_rb,0.14789e-03_rb /)\n      kbo(:, 5,19, 5) = (/ &\n        & 0.39634e-05_rb,0.23942e-03_rb,0.32944e-03_rb,0.34220e-03_rb,0.15742e-03_rb /)\n      kbo(:, 1,20, 5) = (/ &\n        & 0.21486e-05_rb,0.16221e-03_rb,0.22609e-03_rb,0.24236e-03_rb,0.10014e-03_rb /)\n      kbo(:, 2,20, 5) = (/ &\n        & 0.24735e-05_rb,0.17178e-03_rb,0.23949e-03_rb,0.25399e-03_rb,0.10857e-03_rb /)\n      kbo(:, 3,20, 5) = (/ &\n        & 0.27744e-05_rb,0.18136e-03_rb,0.25226e-03_rb,0.26535e-03_rb,0.11604e-03_rb /)\n      kbo(:, 4,20, 5) = (/ &\n        & 0.30414e-05_rb,0.19076e-03_rb,0.26397e-03_rb,0.27566e-03_rb,0.12398e-03_rb /)\n      kbo(:, 5,20, 5) = (/ &\n        & 0.32610e-05_rb,0.20019e-03_rb,0.27488e-03_rb,0.28510e-03_rb,0.13199e-03_rb /)\n      kbo(:, 1,21, 5) = (/ &\n        & 0.17877e-05_rb,0.13507e-03_rb,0.18845e-03_rb,0.20163e-03_rb,0.83879e-04_rb /)\n      kbo(:, 2,21, 5) = (/ &\n        & 0.20518e-05_rb,0.14319e-03_rb,0.19968e-03_rb,0.21134e-03_rb,0.90858e-04_rb /)\n      kbo(:, 3,21, 5) = (/ &\n        & 0.22953e-05_rb,0.15137e-03_rb,0.21038e-03_rb,0.22094e-03_rb,0.97098e-04_rb /)\n      kbo(:, 4,21, 5) = (/ &\n        & 0.25098e-05_rb,0.15947e-03_rb,0.22019e-03_rb,0.22948e-03_rb,0.10402e-03_rb /)\n      kbo(:, 5,21, 5) = (/ &\n        & 0.26830e-05_rb,0.16749e-03_rb,0.22950e-03_rb,0.23761e-03_rb,0.11069e-03_rb /)\n      kbo(:, 1,22, 5) = (/ &\n        & 0.15022e-05_rb,0.11297e-03_rb,0.15773e-03_rb,0.16819e-03_rb,0.70808e-04_rb /)\n      kbo(:, 2,22, 5) = (/ &\n        & 0.17157e-05_rb,0.11998e-03_rb,0.16714e-03_rb,0.17644e-03_rb,0.76345e-04_rb /)\n      kbo(:, 3,22, 5) = (/ &\n        & 0.19111e-05_rb,0.12690e-03_rb,0.17611e-03_rb,0.18454e-03_rb,0.81804e-04_rb /)\n      kbo(:, 4,22, 5) = (/ &\n        & 0.20812e-05_rb,0.13385e-03_rb,0.18425e-03_rb,0.19164e-03_rb,0.87591e-04_rb /)\n      kbo(:, 5,22, 5) = (/ &\n        & 0.22144e-05_rb,0.14066e-03_rb,0.19235e-03_rb,0.19867e-03_rb,0.93228e-04_rb /)\n      kbo(:, 1,23, 5) = (/ &\n        & 0.12621e-05_rb,0.94681e-04_rb,0.13210e-03_rb,0.14032e-03_rb,0.59630e-04_rb /)\n      kbo(:, 2,23, 5) = (/ &\n        & 0.14346e-05_rb,0.10061e-03_rb,0.14009e-03_rb,0.14751e-03_rb,0.64142e-04_rb /)\n      kbo(:, 3,23, 5) = (/ &\n        & 0.15908e-05_rb,0.10655e-03_rb,0.14749e-03_rb,0.15413e-03_rb,0.68988e-04_rb /)\n      kbo(:, 4,23, 5) = (/ &\n        & 0.17253e-05_rb,0.11246e-03_rb,0.15437e-03_rb,0.16013e-03_rb,0.73893e-04_rb /)\n      kbo(:, 5,23, 5) = (/ &\n        & 0.18272e-05_rb,0.11825e-03_rb,0.16130e-03_rb,0.16627e-03_rb,0.78649e-04_rb /)\n      kbo(:, 1,24, 5) = (/ &\n        & 0.10611e-05_rb,0.79419e-04_rb,0.11079e-03_rb,0.11736e-03_rb,0.50244e-04_rb /)\n      kbo(:, 2,24, 5) = (/ &\n        & 0.11996e-05_rb,0.84486e-04_rb,0.11749e-03_rb,0.12345e-03_rb,0.54054e-04_rb /)\n      kbo(:, 3,24, 5) = (/ &\n        & 0.13241e-05_rb,0.89565e-04_rb,0.12364e-03_rb,0.12883e-03_rb,0.58259e-04_rb /)\n      kbo(:, 4,24, 5) = (/ &\n        & 0.14300e-05_rb,0.94592e-04_rb,0.12949e-03_rb,0.13406e-03_rb,0.62300e-04_rb /)\n      kbo(:, 5,24, 5) = (/ &\n        & 0.15070e-05_rb,0.99545e-04_rb,0.13538e-03_rb,0.13928e-03_rb,0.66485e-04_rb /)\n      kbo(:, 1,25, 5) = (/ &\n        & 0.89248e-06_rb,0.66757e-04_rb,0.93043e-04_rb,0.98269e-04_rb,0.42396e-04_rb /)\n      kbo(:, 2,25, 5) = (/ &\n        & 0.10034e-05_rb,0.71082e-04_rb,0.98652e-04_rb,0.10332e-03_rb,0.45719e-04_rb /)\n      kbo(:, 3,25, 5) = (/ &\n        & 0.11024e-05_rb,0.75404e-04_rb,0.10375e-03_rb,0.10782e-03_rb,0.49228e-04_rb /)\n      kbo(:, 4,25, 5) = (/ &\n        & 0.11835e-05_rb,0.79694e-04_rb,0.10882e-03_rb,0.11234e-03_rb,0.52649e-04_rb /)\n      kbo(:, 5,25, 5) = (/ &\n        & 0.12406e-05_rb,0.83915e-04_rb,0.11376e-03_rb,0.11677e-03_rb,0.56264e-04_rb /)\n      kbo(:, 1,26, 5) = (/ &\n        & 0.75147e-06_rb,0.56248e-04_rb,0.78291e-04_rb,0.82441e-04_rb,0.35781e-04_rb /)\n      kbo(:, 2,26, 5) = (/ &\n        & 0.84025e-06_rb,0.59929e-04_rb,0.82917e-04_rb,0.86562e-04_rb,0.38715e-04_rb /)\n      kbo(:, 3,26, 5) = (/ &\n        & 0.91728e-06_rb,0.63618e-04_rb,0.87231e-04_rb,0.90442e-04_rb,0.41682e-04_rb /)\n      kbo(:, 4,26, 5) = (/ &\n        & 0.97947e-06_rb,0.67285e-04_rb,0.91606e-04_rb,0.94311e-04_rb,0.44610e-04_rb /)\n      kbo(:, 5,26, 5) = (/ &\n        & 0.10222e-05_rb,0.70879e-04_rb,0.95759e-04_rb,0.97954e-04_rb,0.47678e-04_rb /)\n      kbo(:, 1,27, 5) = (/ &\n        & 0.63228e-06_rb,0.47448e-04_rb,0.65926e-04_rb,0.69211e-04_rb,0.30312e-04_rb /)\n      kbo(:, 2,27, 5) = (/ &\n        & 0.70187e-06_rb,0.50583e-04_rb,0.69752e-04_rb,0.72622e-04_rb,0.32844e-04_rb /)\n      kbo(:, 3,27, 5) = (/ &\n        & 0.76263e-06_rb,0.53723e-04_rb,0.73431e-04_rb,0.75943e-04_rb,0.35283e-04_rb /)\n      kbo(:, 4,27, 5) = (/ &\n        & 0.80975e-06_rb,0.56884e-04_rb,0.77139e-04_rb,0.79235e-04_rb,0.37837e-04_rb /)\n      kbo(:, 5,27, 5) = (/ &\n        & 0.84099e-06_rb,0.59937e-04_rb,0.80670e-04_rb,0.82198e-04_rb,0.40398e-04_rb /)\n      kbo(:, 1,28, 5) = (/ &\n        & 0.53062e-06_rb,0.40054e-04_rb,0.55536e-04_rb,0.58105e-04_rb,0.25683e-04_rb /)\n      kbo(:, 2,28, 5) = (/ &\n        & 0.58581e-06_rb,0.42748e-04_rb,0.58719e-04_rb,0.60988e-04_rb,0.27829e-04_rb /)\n      kbo(:, 3,28, 5) = (/ &\n        & 0.63283e-06_rb,0.45445e-04_rb,0.61927e-04_rb,0.63808e-04_rb,0.29914e-04_rb /)\n      kbo(:, 4,28, 5) = (/ &\n        & 0.66841e-06_rb,0.48141e-04_rb,0.65033e-04_rb,0.66567e-04_rb,0.32101e-04_rb /)\n      kbo(:, 5,28, 5) = (/ &\n        & 0.69132e-06_rb,0.50744e-04_rb,0.68002e-04_rb,0.69024e-04_rb,0.34196e-04_rb /)\n      kbo(:, 1,29, 5) = (/ &\n        & 0.44482e-06_rb,0.33876e-04_rb,0.46813e-04_rb,0.48820e-04_rb,0.21822e-04_rb /)\n      kbo(:, 2,29, 5) = (/ &\n        & 0.48830e-06_rb,0.36173e-04_rb,0.49534e-04_rb,0.51267e-04_rb,0.23598e-04_rb /)\n      kbo(:, 3,29, 5) = (/ &\n        & 0.52520e-06_rb,0.38507e-04_rb,0.52264e-04_rb,0.53700e-04_rb,0.25407e-04_rb /)\n      kbo(:, 4,29, 5) = (/ &\n        & 0.55142e-06_rb,0.40790e-04_rb,0.54879e-04_rb,0.55934e-04_rb,0.27233e-04_rb /)\n      kbo(:, 5,29, 5) = (/ &\n        & 0.56821e-06_rb,0.43005e-04_rb,0.57374e-04_rb,0.57995e-04_rb,0.28939e-04_rb /)\n      kbo(:, 1,30, 5) = (/ &\n        & 0.37240e-06_rb,0.28688e-04_rb,0.39498e-04_rb,0.41082e-04_rb,0.18542e-04_rb /)\n      kbo(:, 2,30, 5) = (/ &\n        & 0.40697e-06_rb,0.30662e-04_rb,0.41832e-04_rb,0.43139e-04_rb,0.20037e-04_rb /)\n      kbo(:, 3,30, 5) = (/ &\n        & 0.43518e-06_rb,0.32657e-04_rb,0.44137e-04_rb,0.45198e-04_rb,0.21592e-04_rb /)\n      kbo(:, 4,30, 5) = (/ &\n        & 0.45459e-06_rb,0.34600e-04_rb,0.46342e-04_rb,0.47030e-04_rb,0.23099e-04_rb /)\n      kbo(:, 5,30, 5) = (/ &\n        & 0.46674e-06_rb,0.36468e-04_rb,0.48427e-04_rb,0.48752e-04_rb,0.24524e-04_rb /)\n      kbo(:, 1,31, 5) = (/ &\n        & 0.31167e-06_rb,0.24328e-04_rb,0.33365e-04_rb,0.34577e-04_rb,0.15775e-04_rb /)\n      kbo(:, 2,31, 5) = (/ &\n        & 0.33880e-06_rb,0.26033e-04_rb,0.35376e-04_rb,0.36343e-04_rb,0.17037e-04_rb /)\n      kbo(:, 3,31, 5) = (/ &\n        & 0.36022e-06_rb,0.27728e-04_rb,0.37306e-04_rb,0.38025e-04_rb,0.18334e-04_rb /)\n      kbo(:, 4,31, 5) = (/ &\n        & 0.37443e-06_rb,0.29381e-04_rb,0.39153e-04_rb,0.39551e-04_rb,0.19559e-04_rb /)\n      kbo(:, 5,31, 5) = (/ &\n        & 0.38304e-06_rb,0.30940e-04_rb,0.40888e-04_rb,0.41012e-04_rb,0.20735e-04_rb /)\n      kbo(:, 1,32, 5) = (/ &\n        & 0.26065e-06_rb,0.20666e-04_rb,0.28226e-04_rb,0.29128e-04_rb,0.13403e-04_rb /)\n      kbo(:, 2,32, 5) = (/ &\n        & 0.28179e-06_rb,0.22130e-04_rb,0.29934e-04_rb,0.30642e-04_rb,0.14495e-04_rb /)\n      kbo(:, 3,32, 5) = (/ &\n        & 0.29791e-06_rb,0.23572e-04_rb,0.31554e-04_rb,0.32005e-04_rb,0.15576e-04_rb /)\n      kbo(:, 4,32, 5) = (/ &\n        & 0.30813e-06_rb,0.24963e-04_rb,0.33101e-04_rb,0.33278e-04_rb,0.16582e-04_rb /)\n      kbo(:, 5,32, 5) = (/ &\n        & 0.31412e-06_rb,0.26261e-04_rb,0.34510e-04_rb,0.34497e-04_rb,0.17533e-04_rb /)\n      kbo(:, 1,33, 5) = (/ &\n        & 0.21768e-06_rb,0.17581e-04_rb,0.23903e-04_rb,0.24558e-04_rb,0.11405e-04_rb /)\n      kbo(:, 2,33, 5) = (/ &\n        & 0.23409e-06_rb,0.18827e-04_rb,0.25333e-04_rb,0.25812e-04_rb,0.12331e-04_rb /)\n      kbo(:, 3,33, 5) = (/ &\n        & 0.24596e-06_rb,0.20053e-04_rb,0.26696e-04_rb,0.26942e-04_rb,0.13200e-04_rb /)\n      kbo(:, 4,33, 5) = (/ &\n        & 0.25338e-06_rb,0.21211e-04_rb,0.27978e-04_rb,0.28012e-04_rb,0.14037e-04_rb /)\n      kbo(:, 5,33, 5) = (/ &\n        & 0.25735e-06_rb,0.22292e-04_rb,0.29113e-04_rb,0.29019e-04_rb,0.14789e-04_rb /)\n      kbo(:, 1,34, 5) = (/ &\n        & 0.18111e-06_rb,0.14933e-04_rb,0.20221e-04_rb,0.20691e-04_rb,0.96853e-05_rb /)\n      kbo(:, 2,34, 5) = (/ &\n        & 0.19373e-06_rb,0.15993e-04_rb,0.21413e-04_rb,0.21708e-04_rb,0.10459e-04_rb /)\n      kbo(:, 3,34, 5) = (/ &\n        & 0.20262e-06_rb,0.17025e-04_rb,0.22551e-04_rb,0.22651e-04_rb,0.11170e-04_rb /)\n      kbo(:, 4,34, 5) = (/ &\n        & 0.20802e-06_rb,0.17992e-04_rb,0.23603e-04_rb,0.23540e-04_rb,0.11847e-04_rb /)\n      kbo(:, 5,34, 5) = (/ &\n        & 0.21068e-06_rb,0.18892e-04_rb,0.24522e-04_rb,0.24370e-04_rb,0.12444e-04_rb /)\n      kbo(:, 1,35, 5) = (/ &\n        & 0.14940e-06_rb,0.12604e-04_rb,0.17001e-04_rb,0.17339e-04_rb,0.81630e-05_rb /)\n      kbo(:, 2,35, 5) = (/ &\n        & 0.15934e-06_rb,0.13505e-04_rb,0.18008e-04_rb,0.18183e-04_rb,0.87890e-05_rb /)\n      kbo(:, 3,35, 5) = (/ &\n        & 0.16626e-06_rb,0.14374e-04_rb,0.18963e-04_rb,0.18976e-04_rb,0.93838e-05_rb /)\n      kbo(:, 4,35, 5) = (/ &\n        & 0.17040e-06_rb,0.15187e-04_rb,0.19824e-04_rb,0.19720e-04_rb,0.99229e-05_rb /)\n      kbo(:, 5,35, 5) = (/ &\n        & 0.17229e-06_rb,0.15939e-04_rb,0.20582e-04_rb,0.20394e-04_rb,0.10412e-04_rb /)\n      kbo(:, 1,36, 5) = (/ &\n        & 0.12224e-06_rb,0.10560e-04_rb,0.14203e-04_rb,0.14447e-04_rb,0.68196e-05_rb /)\n      kbo(:, 2,36, 5) = (/ &\n        & 0.13030e-06_rb,0.11326e-04_rb,0.15055e-04_rb,0.15156e-04_rb,0.73321e-05_rb /)\n      kbo(:, 3,36, 5) = (/ &\n        & 0.13590e-06_rb,0.12062e-04_rb,0.15856e-04_rb,0.15823e-04_rb,0.78230e-05_rb /)\n      kbo(:, 4,36, 5) = (/ &\n        & 0.13929e-06_rb,0.12750e-04_rb,0.16573e-04_rb,0.16449e-04_rb,0.82632e-05_rb /)\n      kbo(:, 5,36, 5) = (/ &\n        & 0.14081e-06_rb,0.13384e-04_rb,0.17208e-04_rb,0.17006e-04_rb,0.86656e-05_rb /)\n      kbo(:, 1,37, 5) = (/ &\n        & 0.98979e-07_rb,0.87500e-05_rb,0.11755e-04_rb,0.11943e-04_rb,0.56269e-05_rb /)\n      kbo(:, 2,37, 5) = (/ &\n        & 0.10583e-06_rb,0.94035e-05_rb,0.12480e-04_rb,0.12544e-04_rb,0.60528e-05_rb /)\n      kbo(:, 3,37, 5) = (/ &\n        & 0.11068e-06_rb,0.10031e-04_rb,0.13161e-04_rb,0.13110e-04_rb,0.64604e-05_rb /)\n      kbo(:, 4,37, 5) = (/ &\n        & 0.11365e-06_rb,0.10619e-04_rb,0.13767e-04_rb,0.13642e-04_rb,0.68253e-05_rb /)\n      kbo(:, 5,37, 5) = (/ &\n        & 0.11510e-06_rb,0.11162e-04_rb,0.14306e-04_rb,0.14108e-04_rb,0.71615e-05_rb /)\n      kbo(:, 1,38, 5) = (/ &\n        & 0.80050e-07_rb,0.72436e-05_rb,0.97225e-05_rb,0.98657e-05_rb,0.46375e-05_rb /)\n      kbo(:, 2,38, 5) = (/ &\n        & 0.85886e-07_rb,0.78006e-05_rb,0.10338e-04_rb,0.10378e-04_rb,0.49919e-05_rb /)\n      kbo(:, 3,38, 5) = (/ &\n        & 0.90108e-07_rb,0.83355e-05_rb,0.10916e-04_rb,0.10856e-04_rb,0.53303e-05_rb /)\n      kbo(:, 4,38, 5) = (/ &\n        & 0.92690e-07_rb,0.88380e-05_rb,0.11429e-04_rb,0.11306e-04_rb,0.56349e-05_rb /)\n      kbo(:, 5,38, 5) = (/ &\n        & 0.94046e-07_rb,0.93019e-05_rb,0.11885e-04_rb,0.11696e-04_rb,0.59152e-05_rb /)\n      kbo(:, 1,39, 5) = (/ &\n        & 0.64720e-07_rb,0.59955e-05_rb,0.80389e-05_rb,0.81488e-05_rb,0.38192e-05_rb /)\n      kbo(:, 2,39, 5) = (/ &\n        & 0.69663e-07_rb,0.64699e-05_rb,0.85613e-05_rb,0.85818e-05_rb,0.41159e-05_rb /)\n      kbo(:, 3,39, 5) = (/ &\n        & 0.73305e-07_rb,0.69246e-05_rb,0.90506e-05_rb,0.89861e-05_rb,0.43968e-05_rb /)\n      kbo(:, 4,39, 5) = (/ &\n        & 0.75588e-07_rb,0.73530e-05_rb,0.94857e-05_rb,0.93637e-05_rb,0.46505e-05_rb /)\n      kbo(:, 5,39, 5) = (/ &\n        & 0.76825e-07_rb,0.77492e-05_rb,0.98708e-05_rb,0.96898e-05_rb,0.48841e-05_rb /)\n      kbo(:, 1,40, 5) = (/ &\n        & 0.51871e-07_rb,0.49191e-05_rb,0.65994e-05_rb,0.66890e-05_rb,0.31186e-05_rb /)\n      kbo(:, 2,40, 5) = (/ &\n        & 0.56127e-07_rb,0.53227e-05_rb,0.70435e-05_rb,0.70578e-05_rb,0.33678e-05_rb /)\n      kbo(:, 3,40, 5) = (/ &\n        & 0.59395e-07_rb,0.57124e-05_rb,0.74609e-05_rb,0.74018e-05_rb,0.36025e-05_rb /)\n      kbo(:, 4,40, 5) = (/ &\n        & 0.61501e-07_rb,0.60790e-05_rb,0.78333e-05_rb,0.77210e-05_rb,0.38164e-05_rb /)\n      kbo(:, 5,40, 5) = (/ &\n        & 0.62710e-07_rb,0.64194e-05_rb,0.81613e-05_rb,0.79980e-05_rb,0.40122e-05_rb /)\n      kbo(:, 1,41, 5) = (/ &\n        & 0.41471e-07_rb,0.40276e-05_rb,0.54076e-05_rb,0.54815e-05_rb,0.25402e-05_rb /)\n      kbo(:, 2,41, 5) = (/ &\n        & 0.45127e-07_rb,0.43711e-05_rb,0.57847e-05_rb,0.57971e-05_rb,0.27507e-05_rb /)\n      kbo(:, 3,41, 5) = (/ &\n        & 0.48018e-07_rb,0.47040e-05_rb,0.61407e-05_rb,0.60883e-05_rb,0.29479e-05_rb /)\n      kbo(:, 4,41, 5) = (/ &\n        & 0.49983e-07_rb,0.50177e-05_rb,0.64595e-05_rb,0.63587e-05_rb,0.31286e-05_rb /)\n      kbo(:, 5,41, 5) = (/ &\n        & 0.51153e-07_rb,0.53098e-05_rb,0.67389e-05_rb,0.65950e-05_rb,0.32928e-05_rb /)\n      kbo(:, 1,42, 5) = (/ &\n        & 0.33108e-07_rb,0.32945e-05_rb,0.44261e-05_rb,0.44871e-05_rb,0.20674e-05_rb /)\n      kbo(:, 2,42, 5) = (/ &\n        & 0.36228e-07_rb,0.35861e-05_rb,0.47462e-05_rb,0.47571e-05_rb,0.22452e-05_rb /)\n      kbo(:, 3,42, 5) = (/ &\n        & 0.38776e-07_rb,0.38701e-05_rb,0.50505e-05_rb,0.50046e-05_rb,0.24106e-05_rb /)\n      kbo(:, 4,42, 5) = (/ &\n        & 0.40580e-07_rb,0.41378e-05_rb,0.53219e-05_rb,0.52323e-05_rb,0.25622e-05_rb /)\n      kbo(:, 5,42, 5) = (/ &\n        & 0.41689e-07_rb,0.43881e-05_rb,0.55607e-05_rb,0.54356e-05_rb,0.27015e-05_rb /)\n      kbo(:, 1,43, 5) = (/ &\n        & 0.26243e-07_rb,0.26780e-05_rb,0.36021e-05_rb,0.36578e-05_rb,0.16722e-05_rb /)\n      kbo(:, 2,43, 5) = (/ &\n        & 0.28903e-07_rb,0.29254e-05_rb,0.38754e-05_rb,0.38886e-05_rb,0.18235e-05_rb /)\n      kbo(:, 3,43, 5) = (/ &\n        & 0.31158e-07_rb,0.31674e-05_rb,0.41363e-05_rb,0.40998e-05_rb,0.19628e-05_rb /)\n      kbo(:, 4,43, 5) = (/ &\n        & 0.32828e-07_rb,0.33966e-05_rb,0.43687e-05_rb,0.42935e-05_rb,0.20906e-05_rb /)\n      kbo(:, 5,43, 5) = (/ &\n        & 0.33896e-07_rb,0.36112e-05_rb,0.45745e-05_rb,0.44680e-05_rb,0.22088e-05_rb /)\n      kbo(:, 1,44, 5) = (/ &\n        & 0.20692e-07_rb,0.21688e-05_rb,0.29226e-05_rb,0.29738e-05_rb,0.13486e-05_rb /)\n      kbo(:, 2,44, 5) = (/ &\n        & 0.22961e-07_rb,0.23776e-05_rb,0.31556e-05_rb,0.31699e-05_rb,0.14759e-05_rb /)\n      kbo(:, 3,44, 5) = (/ &\n        & 0.24934e-07_rb,0.25834e-05_rb,0.33779e-05_rb,0.33507e-05_rb,0.15926e-05_rb /)\n      kbo(:, 4,44, 5) = (/ &\n        & 0.26472e-07_rb,0.27800e-05_rb,0.35779e-05_rb,0.35162e-05_rb,0.17017e-05_rb /)\n      kbo(:, 5,44, 5) = (/ &\n        & 0.27504e-07_rb,0.29637e-05_rb,0.37558e-05_rb,0.36666e-05_rb,0.18017e-05_rb /)\n      kbo(:, 1,45, 5) = (/ &\n        & 0.16269e-07_rb,0.17537e-05_rb,0.23672e-05_rb,0.24133e-05_rb,0.10856e-05_rb /)\n      kbo(:, 2,45, 5) = (/ &\n        & 0.18194e-07_rb,0.19291e-05_rb,0.25663e-05_rb,0.25809e-05_rb,0.11927e-05_rb /)\n      kbo(:, 3,45, 5) = (/ &\n        & 0.19903e-07_rb,0.21039e-05_rb,0.27552e-05_rb,0.27360e-05_rb,0.12909e-05_rb /)\n      kbo(:, 4,45, 5) = (/ &\n        & 0.21293e-07_rb,0.22721e-05_rb,0.29270e-05_rb,0.28775e-05_rb,0.13839e-05_rb /)\n      kbo(:, 5,45, 5) = (/ &\n        & 0.22283e-07_rb,0.24292e-05_rb,0.30802e-05_rb,0.30067e-05_rb,0.14686e-05_rb /)\n      kbo(:, 1,46, 5) = (/ &\n        & 0.12712e-07_rb,0.14128e-05_rb,0.19113e-05_rb,0.19548e-05_rb,0.87114e-06_rb /)\n      kbo(:, 2,46, 5) = (/ &\n        & 0.14351e-07_rb,0.15596e-05_rb,0.20802e-05_rb,0.20949e-05_rb,0.96118e-06_rb /)\n      kbo(:, 3,46, 5) = (/ &\n        & 0.15815e-07_rb,0.17076e-05_rb,0.22404e-05_rb,0.22289e-05_rb,0.10436e-05_rb /)\n      kbo(:, 4,46, 5) = (/ &\n        & 0.17062e-07_rb,0.18511e-05_rb,0.23889e-05_rb,0.23492e-05_rb,0.11225e-05_rb /)\n      kbo(:, 5,46, 5) = (/ &\n        & 0.17993e-07_rb,0.19855e-05_rb,0.25206e-05_rb,0.24609e-05_rb,0.11948e-05_rb /)\n      kbo(:, 1,47, 5) = (/ &\n        & 0.98364e-08_rb,0.11306e-05_rb,0.15353e-05_rb,0.15746e-05_rb,0.69554e-06_rb /)\n      kbo(:, 2,47, 5) = (/ &\n        & 0.11226e-07_rb,0.12534e-05_rb,0.16765e-05_rb,0.16944e-05_rb,0.76925e-06_rb /)\n      kbo(:, 3,47, 5) = (/ &\n        & 0.12483e-07_rb,0.13784e-05_rb,0.18130e-05_rb,0.18087e-05_rb,0.84036e-06_rb /)\n      kbo(:, 4,47, 5) = (/ &\n        & 0.13587e-07_rb,0.15007e-05_rb,0.19418e-05_rb,0.19122e-05_rb,0.90712e-06_rb /)\n      kbo(:, 5,47, 5) = (/ &\n        & 0.14457e-07_rb,0.16158e-05_rb,0.20557e-05_rb,0.20073e-05_rb,0.96847e-06_rb /)\n      kbo(:, 1,48, 5) = (/ &\n        & 0.75824e-08_rb,0.90329e-06_rb,0.12307e-05_rb,0.12653e-05_rb,0.55346e-06_rb /)\n      kbo(:, 2,48, 5) = (/ &\n        & 0.87453e-08_rb,0.10050e-05_rb,0.13490e-05_rb,0.13676e-05_rb,0.61470e-06_rb /)\n      kbo(:, 3,48, 5) = (/ &\n        & 0.98194e-08_rb,0.11101e-05_rb,0.14650e-05_rb,0.14651e-05_rb,0.67492e-06_rb /)\n      kbo(:, 4,48, 5) = (/ &\n        & 0.10779e-07_rb,0.12141e-05_rb,0.15756e-05_rb,0.15544e-05_rb,0.73163e-06_rb /)\n      kbo(:, 5,48, 5) = (/ &\n        & 0.11579e-07_rb,0.13125e-05_rb,0.16743e-05_rb,0.16359e-05_rb,0.78405e-06_rb /)\n      kbo(:, 1,49, 5) = (/ &\n        & 0.58219e-08_rb,0.72015e-06_rb,0.98379e-06_rb,0.10143e-05_rb,0.43933e-06_rb /)\n      kbo(:, 2,49, 5) = (/ &\n        & 0.67817e-08_rb,0.80423e-06_rb,0.10832e-05_rb,0.11023e-05_rb,0.49018e-06_rb /)\n      kbo(:, 3,49, 5) = (/ &\n        & 0.76966e-08_rb,0.89205e-06_rb,0.11819e-05_rb,0.11846e-05_rb,0.54131e-06_rb /)\n      kbo(:, 4,49, 5) = (/ &\n        & 0.85224e-08_rb,0.98005e-06_rb,0.12760e-05_rb,0.12617e-05_rb,0.58858e-06_rb /)\n      kbo(:, 5,49, 5) = (/ &\n        & 0.92350e-08_rb,0.10644e-05_rb,0.13615e-05_rb,0.13319e-05_rb,0.63358e-06_rb /)\n      kbo(:, 1,50, 5) = (/ &\n        & 0.44790e-08_rb,0.57418e-06_rb,0.78635e-06_rb,0.81296e-06_rb,0.34881e-06_rb /)\n      kbo(:, 2,50, 5) = (/ &\n        & 0.52579e-08_rb,0.64388e-06_rb,0.87056e-06_rb,0.88896e-06_rb,0.39135e-06_rb /)\n      kbo(:, 3,50, 5) = (/ &\n        & 0.60279e-08_rb,0.71722e-06_rb,0.95348e-06_rb,0.95809e-06_rb,0.43444e-06_rb /)\n      kbo(:, 4,50, 5) = (/ &\n        & 0.67324e-08_rb,0.79134e-06_rb,0.10331e-05_rb,0.10243e-05_rb,0.47391e-06_rb /)\n      kbo(:, 5,50, 5) = (/ &\n        & 0.73551e-08_rb,0.86330e-06_rb,0.11073e-05_rb,0.10842e-05_rb,0.51234e-06_rb /)\n      kbo(:, 1,51, 5) = (/ &\n        & 0.34450e-08_rb,0.45753e-06_rb,0.62814e-06_rb,0.65158e-06_rb,0.27625e-06_rb /)\n      kbo(:, 2,51, 5) = (/ &\n        & 0.40690e-08_rb,0.51530e-06_rb,0.69892e-06_rb,0.71555e-06_rb,0.31260e-06_rb /)\n      kbo(:, 3,51, 5) = (/ &\n        & 0.47087e-08_rb,0.57624e-06_rb,0.76840e-06_rb,0.77477e-06_rb,0.34804e-06_rb /)\n      kbo(:, 4,51, 5) = (/ &\n        & 0.53086e-08_rb,0.63843e-06_rb,0.83580e-06_rb,0.83092e-06_rb,0.38181e-06_rb /)\n      kbo(:, 5,51, 5) = (/ &\n        & 0.58439e-08_rb,0.69956e-06_rb,0.89962e-06_rb,0.88225e-06_rb,0.41412e-06_rb /)\n      kbo(:, 1,52, 5) = (/ &\n        & 0.26454e-08_rb,0.36387e-06_rb,0.50007e-06_rb,0.52179e-06_rb,0.21894e-06_rb /)\n      kbo(:, 2,52, 5) = (/ &\n        & 0.31403e-08_rb,0.41173e-06_rb,0.55997e-06_rb,0.57479e-06_rb,0.24870e-06_rb /)\n      kbo(:, 3,52, 5) = (/ &\n        & 0.36655e-08_rb,0.46211e-06_rb,0.61819e-06_rb,0.62511e-06_rb,0.27840e-06_rb /)\n      kbo(:, 4,52, 5) = (/ &\n        & 0.41730e-08_rb,0.51415e-06_rb,0.67546e-06_rb,0.67307e-06_rb,0.30695e-06_rb /)\n      kbo(:, 5,52, 5) = (/ &\n        & 0.46311e-08_rb,0.56582e-06_rb,0.72973e-06_rb,0.71697e-06_rb,0.33407e-06_rb /)\n      kbo(:, 1,53, 5) = (/ &\n        & 0.20275e-08_rb,0.28873e-06_rb,0.39749e-06_rb,0.41647e-06_rb,0.17355e-06_rb /)\n      kbo(:, 2,53, 5) = (/ &\n        & 0.24190e-08_rb,0.32821e-06_rb,0.44730e-06_rb,0.46063e-06_rb,0.19774e-06_rb /)\n      kbo(:, 3,53, 5) = (/ &\n        & 0.28440e-08_rb,0.36981e-06_rb,0.49677e-06_rb,0.50411e-06_rb,0.22218e-06_rb /)\n      kbo(:, 4,53, 5) = (/ &\n        & 0.32690e-08_rb,0.41315e-06_rb,0.54488e-06_rb,0.54408e-06_rb,0.24647e-06_rb /)\n      kbo(:, 5,53, 5) = (/ &\n        & 0.36592e-08_rb,0.45680e-06_rb,0.59090e-06_rb,0.58189e-06_rb,0.26902e-06_rb /)\n      kbo(:, 1,54, 5) = (/ &\n        & 0.15611e-08_rb,0.22962e-06_rb,0.31613e-06_rb,0.33300e-06_rb,0.13730e-06_rb /)\n      kbo(:, 2,54, 5) = (/ &\n        & 0.18696e-08_rb,0.26187e-06_rb,0.35802e-06_rb,0.36954e-06_rb,0.15701e-06_rb /)\n      kbo(:, 3,54, 5) = (/ &\n        & 0.22100e-08_rb,0.29641e-06_rb,0.39970e-06_rb,0.40683e-06_rb,0.17764e-06_rb /)\n      kbo(:, 4,54, 5) = (/ &\n        & 0.25619e-08_rb,0.33255e-06_rb,0.44009e-06_rb,0.44063e-06_rb,0.19808e-06_rb /)\n      kbo(:, 5,54, 5) = (/ &\n        & 0.28928e-08_rb,0.36908e-06_rb,0.47892e-06_rb,0.47270e-06_rb,0.21696e-06_rb /)\n      kbo(:, 1,55, 5) = (/ &\n        & 0.12041e-08_rb,0.18259e-06_rb,0.25108e-06_rb,0.26608e-06_rb,0.10842e-06_rb /)\n      kbo(:, 2,55, 5) = (/ &\n        & 0.14466e-08_rb,0.20918e-06_rb,0.28633e-06_rb,0.29677e-06_rb,0.12468e-06_rb /)\n      kbo(:, 3,55, 5) = (/ &\n        & 0.17176e-08_rb,0.23765e-06_rb,0.32139e-06_rb,0.32799e-06_rb,0.14213e-06_rb /)\n      kbo(:, 4,55, 5) = (/ &\n        & 0.20058e-08_rb,0.26766e-06_rb,0.35523e-06_rb,0.35664e-06_rb,0.15907e-06_rb /)\n      kbo(:, 5,55, 5) = (/ &\n        & 0.22852e-08_rb,0.29818e-06_rb,0.38806e-06_rb,0.38381e-06_rb,0.17512e-06_rb /)\n      kbo(:, 1,56, 5) = (/ &\n        & 0.92934e-09_rb,0.14496e-06_rb,0.19887e-06_rb,0.21215e-06_rb,0.85185e-07_rb /)\n      kbo(:, 2,56, 5) = (/ &\n        & 0.11180e-08_rb,0.16668e-06_rb,0.22841e-06_rb,0.23799e-06_rb,0.99172e-07_rb /)\n      kbo(:, 3,56, 5) = (/ &\n        & 0.13333e-08_rb,0.19024e-06_rb,0.25790e-06_rb,0.26385e-06_rb,0.11331e-06_rb /)\n      kbo(:, 4,56, 5) = (/ &\n        & 0.15668e-08_rb,0.21512e-06_rb,0.28626e-06_rb,0.28820e-06_rb,0.12758e-06_rb /)\n      kbo(:, 5,56, 5) = (/ &\n        & 0.18000e-08_rb,0.24055e-06_rb,0.31405e-06_rb,0.31134e-06_rb,0.14106e-06_rb /)\n      kbo(:, 1,57, 5) = (/ &\n        & 0.71747e-09_rb,0.11491e-06_rb,0.15760e-06_rb,0.16907e-06_rb,0.66762e-07_rb /)\n      kbo(:, 2,57, 5) = (/ &\n        & 0.86318e-09_rb,0.13266e-06_rb,0.18198e-06_rb,0.19051e-06_rb,0.78844e-07_rb /)\n      kbo(:, 3,57, 5) = (/ &\n        & 0.10332e-08_rb,0.15199e-06_rb,0.20646e-06_rb,0.21185e-06_rb,0.90317e-07_rb /)\n      kbo(:, 4,57, 5) = (/ &\n        & 0.12205e-08_rb,0.17255e-06_rb,0.23049e-06_rb,0.23280e-06_rb,0.10211e-06_rb /)\n      kbo(:, 5,57, 5) = (/ &\n        & 0.14137e-08_rb,0.19374e-06_rb,0.25377e-06_rb,0.25209e-06_rb,0.11347e-06_rb /)\n      kbo(:, 1,58, 5) = (/ &\n        & 0.55534e-09_rb,0.91161e-07_rb,0.12495e-06_rb,0.13481e-06_rb,0.52524e-07_rb /)\n      kbo(:, 2,58, 5) = (/ &\n        & 0.66796e-09_rb,0.10564e-06_rb,0.14490e-06_rb,0.15246e-06_rb,0.62491e-07_rb /)\n      kbo(:, 3,58, 5) = (/ &\n        & 0.80208e-09_rb,0.12142e-06_rb,0.16540e-06_rb,0.17013e-06_rb,0.71923e-07_rb /)\n      kbo(:, 4,58, 5) = (/ &\n        & 0.95155e-09_rb,0.13846e-06_rb,0.18562e-06_rb,0.18803e-06_rb,0.81760e-07_rb /)\n      kbo(:, 5,58, 5) = (/ &\n        & 0.11100e-08_rb,0.15608e-06_rb,0.20513e-06_rb,0.20425e-06_rb,0.91405e-07_rb /)\n      kbo(:, 1,59, 5) = (/ &\n        & 0.44483e-09_rb,0.74201e-07_rb,0.10175e-06_rb,0.10986e-06_rb,0.42626e-07_rb /)\n      kbo(:, 2,59, 5) = (/ &\n        & 0.53478e-09_rb,0.86257e-07_rb,0.11818e-06_rb,0.12453e-06_rb,0.50816e-07_rb /)\n      kbo(:, 3,59, 5) = (/ &\n        & 0.64265e-09_rb,0.99390e-07_rb,0.13535e-06_rb,0.13928e-06_rb,0.58658e-07_rb /)\n      kbo(:, 4,59, 5) = (/ &\n        & 0.76369e-09_rb,0.11360e-06_rb,0.15224e-06_rb,0.15417e-06_rb,0.66845e-07_rb /)\n      kbo(:, 5,59, 5) = (/ &\n        & 0.89316e-09_rb,0.12826e-06_rb,0.16850e-06_rb,0.16775e-06_rb,0.74841e-07_rb /)\n      kbo(:, 1,13, 6) = (/ &\n        & 0.15452e-03_rb,0.17471e-02_rb,0.22870e-02_rb,0.22757e-02_rb,0.11868e-02_rb /)\n      kbo(:, 2,13, 6) = (/ &\n        & 0.17358e-03_rb,0.18337e-02_rb,0.23752e-02_rb,0.23549e-02_rb,0.12492e-02_rb /)\n      kbo(:, 3,13, 6) = (/ &\n        & 0.19043e-03_rb,0.19070e-02_rb,0.24479e-02_rb,0.24255e-02_rb,0.13114e-02_rb /)\n      kbo(:, 4,13, 6) = (/ &\n        & 0.20459e-03_rb,0.19702e-02_rb,0.25109e-02_rb,0.24905e-02_rb,0.13717e-02_rb /)\n      kbo(:, 5,13, 6) = (/ &\n        & 0.21621e-03_rb,0.20266e-02_rb,0.25653e-02_rb,0.25512e-02_rb,0.14320e-02_rb /)\n      kbo(:, 1,14, 6) = (/ &\n        & 0.12793e-03_rb,0.14662e-02_rb,0.19141e-02_rb,0.19032e-02_rb,0.99404e-03_rb /)\n      kbo(:, 2,14, 6) = (/ &\n        & 0.14335e-03_rb,0.15367e-02_rb,0.19852e-02_rb,0.19691e-02_rb,0.10462e-02_rb /)\n      kbo(:, 3,14, 6) = (/ &\n        & 0.15698e-03_rb,0.15974e-02_rb,0.20454e-02_rb,0.20285e-02_rb,0.10986e-02_rb /)\n      kbo(:, 4,14, 6) = (/ &\n        & 0.16837e-03_rb,0.16505e-02_rb,0.20982e-02_rb,0.20828e-02_rb,0.11509e-02_rb /)\n      kbo(:, 5,14, 6) = (/ &\n        & 0.17765e-03_rb,0.16990e-02_rb,0.21452e-02_rb,0.21357e-02_rb,0.12020e-02_rb /)\n      kbo(:, 1,15, 6) = (/ &\n        & 0.10600e-03_rb,0.12280e-02_rb,0.15987e-02_rb,0.15899e-02_rb,0.83160e-03_rb /)\n      kbo(:, 2,15, 6) = (/ &\n        & 0.11846e-03_rb,0.12858e-02_rb,0.16570e-02_rb,0.16438e-02_rb,0.87641e-03_rb /)\n      kbo(:, 3,15, 6) = (/ &\n        & 0.12947e-03_rb,0.13362e-02_rb,0.17073e-02_rb,0.16937e-02_rb,0.92037e-03_rb /)\n      kbo(:, 4,15, 6) = (/ &\n        & 0.13860e-03_rb,0.13818e-02_rb,0.17519e-02_rb,0.17401e-02_rb,0.96514e-03_rb /)\n      kbo(:, 5,15, 6) = (/ &\n        & 0.14605e-03_rb,0.14231e-02_rb,0.17922e-02_rb,0.17849e-02_rb,0.10088e-02_rb /)\n      kbo(:, 1,16, 6) = (/ &\n        & 0.87844e-04_rb,0.10268e-02_rb,0.13337e-02_rb,0.13258e-02_rb,0.69471e-03_rb /)\n      kbo(:, 2,16, 6) = (/ &\n        & 0.97921e-04_rb,0.10747e-02_rb,0.13816e-02_rb,0.13704e-02_rb,0.73309e-03_rb /)\n      kbo(:, 3,16, 6) = (/ &\n        & 0.10678e-03_rb,0.11173e-02_rb,0.14240e-02_rb,0.14122e-02_rb,0.77126e-03_rb /)\n      kbo(:, 4,16, 6) = (/ &\n        & 0.11410e-03_rb,0.11561e-02_rb,0.14619e-02_rb,0.14525e-02_rb,0.80983e-03_rb /)\n      kbo(:, 5,16, 6) = (/ &\n        & 0.12008e-03_rb,0.11913e-02_rb,0.14957e-02_rb,0.14904e-02_rb,0.84685e-03_rb /)\n      kbo(:, 1,17, 6) = (/ &\n        & 0.72736e-04_rb,0.85770e-03_rb,0.11110e-02_rb,0.11043e-02_rb,0.57988e-03_rb /)\n      kbo(:, 2,17, 6) = (/ &\n        & 0.80870e-04_rb,0.89737e-03_rb,0.11508e-02_rb,0.11412e-02_rb,0.61310e-03_rb /)\n      kbo(:, 3,17, 6) = (/ &\n        & 0.87984e-04_rb,0.93334e-03_rb,0.11865e-02_rb,0.11769e-02_rb,0.64563e-03_rb /)\n      kbo(:, 4,17, 6) = (/ &\n        & 0.93900e-04_rb,0.96637e-03_rb,0.12188e-02_rb,0.12115e-02_rb,0.67946e-03_rb /)\n      kbo(:, 5,17, 6) = (/ &\n        & 0.98669e-04_rb,0.99682e-03_rb,0.12477e-02_rb,0.12444e-02_rb,0.71129e-03_rb /)\n      kbo(:, 1,18, 6) = (/ &\n        & 0.60196e-04_rb,0.71585e-03_rb,0.92484e-03_rb,0.91885e-03_rb,0.48428e-03_rb /)\n      kbo(:, 2,18, 6) = (/ &\n        & 0.66759e-04_rb,0.74902e-03_rb,0.95806e-03_rb,0.95007e-03_rb,0.51254e-03_rb /)\n      kbo(:, 3,18, 6) = (/ &\n        & 0.72486e-04_rb,0.77936e-03_rb,0.98828e-03_rb,0.98036e-03_rb,0.54118e-03_rb /)\n      kbo(:, 4,18, 6) = (/ &\n        & 0.77210e-04_rb,0.80757e-03_rb,0.10157e-02_rb,0.10101e-02_rb,0.56995e-03_rb /)\n      kbo(:, 5,18, 6) = (/ &\n        & 0.81046e-04_rb,0.83344e-03_rb,0.10405e-02_rb,0.10390e-02_rb,0.59762e-03_rb /)\n      kbo(:, 1,19, 6) = (/ &\n        & 0.49797e-04_rb,0.59714e-03_rb,0.76951e-03_rb,0.76408e-03_rb,0.40487e-03_rb /)\n      kbo(:, 2,19, 6) = (/ &\n        & 0.55098e-04_rb,0.62505e-03_rb,0.79728e-03_rb,0.79071e-03_rb,0.42904e-03_rb /)\n      kbo(:, 3,19, 6) = (/ &\n        & 0.59690e-04_rb,0.65071e-03_rb,0.82294e-03_rb,0.81671e-03_rb,0.45375e-03_rb /)\n      kbo(:, 4,19, 6) = (/ &\n        & 0.63457e-04_rb,0.67490e-03_rb,0.84635e-03_rb,0.84245e-03_rb,0.47833e-03_rb /)\n      kbo(:, 5,19, 6) = (/ &\n        & 0.66538e-04_rb,0.69683e-03_rb,0.86805e-03_rb,0.86812e-03_rb,0.50238e-03_rb /)\n      kbo(:, 1,20, 6) = (/ &\n        & 0.41277e-04_rb,0.49854e-03_rb,0.64043e-03_rb,0.63582e-03_rb,0.33885e-03_rb /)\n      kbo(:, 2,20, 6) = (/ &\n        & 0.45557e-04_rb,0.52197e-03_rb,0.66408e-03_rb,0.65859e-03_rb,0.35960e-03_rb /)\n      kbo(:, 3,20, 6) = (/ &\n        & 0.49226e-04_rb,0.54380e-03_rb,0.68582e-03_rb,0.68111e-03_rb,0.38108e-03_rb /)\n      kbo(:, 4,20, 6) = (/ &\n        & 0.52238e-04_rb,0.56442e-03_rb,0.70598e-03_rb,0.70364e-03_rb,0.40199e-03_rb /)\n      kbo(:, 5,20, 6) = (/ &\n        & 0.54694e-04_rb,0.58320e-03_rb,0.72504e-03_rb,0.72645e-03_rb,0.42282e-03_rb /)\n      kbo(:, 1,21, 6) = (/ &\n        & 0.34218e-04_rb,0.41624e-03_rb,0.53312e-03_rb,0.52912e-03_rb,0.28376e-03_rb /)\n      kbo(:, 2,21, 6) = (/ &\n        & 0.37670e-04_rb,0.43597e-03_rb,0.55316e-03_rb,0.54893e-03_rb,0.30161e-03_rb /)\n      kbo(:, 3,21, 6) = (/ &\n        & 0.40602e-04_rb,0.45467e-03_rb,0.57178e-03_rb,0.56861e-03_rb,0.32023e-03_rb /)\n      kbo(:, 4,21, 6) = (/ &\n        & 0.43009e-04_rb,0.47220e-03_rb,0.58931e-03_rb,0.58850e-03_rb,0.33805e-03_rb /)\n      kbo(:, 5,21, 6) = (/ &\n        & 0.44968e-04_rb,0.48850e-03_rb,0.60624e-03_rb,0.60867e-03_rb,0.35633e-03_rb /)\n      kbo(:, 1,22, 6) = (/ &\n        & 0.28554e-04_rb,0.34872e-03_rb,0.44519e-03_rb,0.44203e-03_rb,0.23865e-03_rb /)\n      kbo(:, 2,22, 6) = (/ &\n        & 0.31312e-04_rb,0.36543e-03_rb,0.46215e-03_rb,0.45896e-03_rb,0.25429e-03_rb /)\n      kbo(:, 3,22, 6) = (/ &\n        & 0.33623e-04_rb,0.38136e-03_rb,0.47808e-03_rb,0.47625e-03_rb,0.27020e-03_rb /)\n      kbo(:, 4,22, 6) = (/ &\n        & 0.35518e-04_rb,0.39638e-03_rb,0.49352e-03_rb,0.49393e-03_rb,0.28567e-03_rb /)\n      kbo(:, 5,22, 6) = (/ &\n        & 0.37060e-04_rb,0.41046e-03_rb,0.50833e-03_rb,0.51152e-03_rb,0.30169e-03_rb /)\n      kbo(:, 1,23, 6) = (/ &\n        & 0.23825e-04_rb,0.29241e-03_rb,0.37202e-03_rb,0.36957e-03_rb,0.20120e-03_rb /)\n      kbo(:, 2,23, 6) = (/ &\n        & 0.26019e-04_rb,0.30664e-03_rb,0.38650e-03_rb,0.38433e-03_rb,0.21484e-03_rb /)\n      kbo(:, 3,23, 6) = (/ &\n        & 0.27840e-04_rb,0.32027e-03_rb,0.40038e-03_rb,0.39957e-03_rb,0.22829e-03_rb /)\n      kbo(:, 4,23, 6) = (/ &\n        & 0.29329e-04_rb,0.33317e-03_rb,0.41396e-03_rb,0.41498e-03_rb,0.24169e-03_rb /)\n      kbo(:, 5,23, 6) = (/ &\n        & 0.30542e-04_rb,0.34547e-03_rb,0.42681e-03_rb,0.43048e-03_rb,0.25568e-03_rb /)\n      kbo(:, 1,24, 6) = (/ &\n        & 0.19879e-04_rb,0.24552e-03_rb,0.31135e-03_rb,0.30936e-03_rb,0.16986e-03_rb /)\n      kbo(:, 2,24, 6) = (/ &\n        & 0.21617e-04_rb,0.25767e-03_rb,0.32376e-03_rb,0.32228e-03_rb,0.18173e-03_rb /)\n      kbo(:, 3,24, 6) = (/ &\n        & 0.23050e-04_rb,0.26937e-03_rb,0.33590e-03_rb,0.33579e-03_rb,0.19320e-03_rb /)\n      kbo(:, 4,24, 6) = (/ &\n        & 0.24217e-04_rb,0.28054e-03_rb,0.34772e-03_rb,0.34922e-03_rb,0.20501e-03_rb /)\n      kbo(:, 5,24, 6) = (/ &\n        & 0.25164e-04_rb,0.29121e-03_rb,0.35883e-03_rb,0.36286e-03_rb,0.21708e-03_rb /)\n      kbo(:, 1,25, 6) = (/ &\n        & 0.16589e-04_rb,0.20645e-03_rb,0.26087e-03_rb,0.25944e-03_rb,0.14369e-03_rb /)\n      kbo(:, 2,25, 6) = (/ &\n        & 0.17961e-04_rb,0.21688e-03_rb,0.27162e-03_rb,0.27083e-03_rb,0.15386e-03_rb /)\n      kbo(:, 3,25, 6) = (/ &\n        & 0.19083e-04_rb,0.22697e-03_rb,0.28229e-03_rb,0.28258e-03_rb,0.16383e-03_rb /)\n      kbo(:, 4,25, 6) = (/ &\n        & 0.19998e-04_rb,0.23668e-03_rb,0.29245e-03_rb,0.29438e-03_rb,0.17418e-03_rb /)\n      kbo(:, 5,25, 6) = (/ &\n        & 0.20737e-04_rb,0.24589e-03_rb,0.30216e-03_rb,0.30647e-03_rb,0.18465e-03_rb /)\n      kbo(:, 1,26, 6) = (/ &\n        & 0.13858e-04_rb,0.17402e-03_rb,0.21906e-03_rb,0.21804e-03_rb,0.12205e-03_rb /)\n      kbo(:, 2,26, 6) = (/ &\n        & 0.14930e-04_rb,0.18300e-03_rb,0.22843e-03_rb,0.22813e-03_rb,0.13065e-03_rb /)\n      kbo(:, 3,26, 6) = (/ &\n        & 0.15807e-04_rb,0.19174e-03_rb,0.23770e-03_rb,0.23830e-03_rb,0.13933e-03_rb /)\n      kbo(:, 4,26, 6) = (/ &\n        & 0.16522e-04_rb,0.20010e-03_rb,0.24640e-03_rb,0.24876e-03_rb,0.14837e-03_rb /)\n      kbo(:, 5,26, 6) = (/ &\n        & 0.17090e-04_rb,0.20798e-03_rb,0.25500e-03_rb,0.25943e-03_rb,0.15748e-03_rb /)\n      kbo(:, 1,27, 6) = (/ &\n        & 0.11565e-04_rb,0.14689e-03_rb,0.18423e-03_rb,0.18358e-03_rb,0.10372e-03_rb /)\n      kbo(:, 2,27, 6) = (/ &\n        & 0.12404e-04_rb,0.15466e-03_rb,0.19242e-03_rb,0.19242e-03_rb,0.11104e-03_rb /)\n      kbo(:, 3,27, 6) = (/ &\n        & 0.13088e-04_rb,0.16225e-03_rb,0.20035e-03_rb,0.20136e-03_rb,0.11877e-03_rb /)\n      kbo(:, 4,27, 6) = (/ &\n        & 0.13644e-04_rb,0.16938e-03_rb,0.20793e-03_rb,0.21054e-03_rb,0.12658e-03_rb /)\n      kbo(:, 5,27, 6) = (/ &\n        & 0.14079e-04_rb,0.17614e-03_rb,0.21553e-03_rb,0.22004e-03_rb,0.13455e-03_rb /)\n      kbo(:, 1,28, 6) = (/ &\n        & 0.96429e-05_rb,0.12422e-03_rb,0.15518e-03_rb,0.15486e-03_rb,0.88240e-04_rb /)\n      kbo(:, 2,28, 6) = (/ &\n        & 0.10297e-04_rb,0.13093e-03_rb,0.16229e-03_rb,0.16255e-03_rb,0.94664e-04_rb /)\n      kbo(:, 3,28, 6) = (/ &\n        & 0.10829e-04_rb,0.13744e-03_rb,0.16911e-03_rb,0.17043e-03_rb,0.10137e-03_rb /)\n      kbo(:, 4,28, 6) = (/ &\n        & 0.11263e-04_rb,0.14355e-03_rb,0.17577e-03_rb,0.17861e-03_rb,0.10818e-03_rb /)\n      kbo(:, 5,28, 6) = (/ &\n        & 0.11593e-04_rb,0.14936e-03_rb,0.18245e-03_rb,0.18698e-03_rb,0.11517e-03_rb /)\n      kbo(:, 1,29, 6) = (/ &\n        & 0.80357e-05_rb,0.10525e-03_rb,0.13098e-03_rb,0.13087e-03_rb,0.75199e-04_rb /)\n      kbo(:, 2,29, 6) = (/ &\n        & 0.85457e-05_rb,0.11106e-03_rb,0.13709e-03_rb,0.13756e-03_rb,0.80877e-04_rb /)\n      kbo(:, 3,29, 6) = (/ &\n        & 0.89585e-05_rb,0.11659e-03_rb,0.14298e-03_rb,0.14458e-03_rb,0.86703e-04_rb /)\n      kbo(:, 4,29, 6) = (/ &\n        & 0.92936e-05_rb,0.12185e-03_rb,0.14887e-03_rb,0.15184e-03_rb,0.92679e-04_rb /)\n      kbo(:, 5,29, 6) = (/ &\n        & 0.95413e-05_rb,0.12685e-03_rb,0.15476e-03_rb,0.15926e-03_rb,0.98770e-04_rb /)\n      kbo(:, 1,30, 6) = (/ &\n        & 0.66891e-05_rb,0.89326e-04_rb,0.11070e-03_rb,0.11075e-03_rb,0.64254e-04_rb /)\n      kbo(:, 2,30, 6) = (/ &\n        & 0.70855e-05_rb,0.94280e-04_rb,0.11595e-03_rb,0.11668e-03_rb,0.69215e-04_rb /)\n      kbo(:, 3,30, 6) = (/ &\n        & 0.74068e-05_rb,0.99029e-04_rb,0.12112e-03_rb,0.12290e-03_rb,0.74278e-04_rb /)\n      kbo(:, 4,30, 6) = (/ &\n        & 0.76634e-05_rb,0.10356e-03_rb,0.12631e-03_rb,0.12933e-03_rb,0.79489e-04_rb /)\n      kbo(:, 5,30, 6) = (/ &\n        & 0.78499e-05_rb,0.10785e-03_rb,0.13152e-03_rb,0.13588e-03_rb,0.84762e-04_rb /)\n      kbo(:, 1,31, 6) = (/ &\n        & 0.55647e-05_rb,0.75943e-04_rb,0.93695e-04_rb,0.93906e-04_rb,0.55002e-04_rb /)\n      kbo(:, 2,31, 6) = (/ &\n        & 0.58719e-05_rb,0.80167e-04_rb,0.98229e-04_rb,0.99204e-04_rb,0.59329e-04_rb /)\n      kbo(:, 3,31, 6) = (/ &\n        & 0.61212e-05_rb,0.84249e-04_rb,0.10281e-03_rb,0.10471e-03_rb,0.63778e-04_rb /)\n      kbo(:, 4,31, 6) = (/ &\n        & 0.63162e-05_rb,0.88122e-04_rb,0.10738e-03_rb,0.11041e-03_rb,0.68318e-04_rb /)\n      kbo(:, 5,31, 6) = (/ &\n        & 0.64553e-05_rb,0.91835e-04_rb,0.11204e-03_rb,0.11614e-03_rb,0.72907e-04_rb /)\n      kbo(:, 1,32, 6) = (/ &\n        & 0.46246e-05_rb,0.64633e-04_rb,0.79398e-04_rb,0.79831e-04_rb,0.47190e-04_rb /)\n      kbo(:, 2,32, 6) = (/ &\n        & 0.48628e-05_rb,0.68258e-04_rb,0.83383e-04_rb,0.84521e-04_rb,0.50953e-04_rb /)\n      kbo(:, 3,32, 6) = (/ &\n        & 0.50557e-05_rb,0.71758e-04_rb,0.87418e-04_rb,0.89417e-04_rb,0.54823e-04_rb /)\n      kbo(:, 4,32, 6) = (/ &\n        & 0.52035e-05_rb,0.75099e-04_rb,0.91481e-04_rb,0.94423e-04_rb,0.58785e-04_rb /)\n      kbo(:, 5,32, 6) = (/ &\n        & 0.53068e-05_rb,0.78317e-04_rb,0.95646e-04_rb,0.99452e-04_rb,0.62766e-04_rb /)\n      kbo(:, 1,33, 6) = (/ &\n        & 0.38403e-05_rb,0.55077e-04_rb,0.67410e-04_rb,0.68024e-04_rb,0.40538e-04_rb /)\n      kbo(:, 2,33, 6) = (/ &\n        & 0.40244e-05_rb,0.58199e-04_rb,0.70924e-04_rb,0.72180e-04_rb,0.43839e-04_rb /)\n      kbo(:, 3,33, 6) = (/ &\n        & 0.41730e-05_rb,0.61206e-04_rb,0.74475e-04_rb,0.76502e-04_rb,0.47222e-04_rb /)\n      kbo(:, 4,33, 6) = (/ &\n        & 0.42835e-05_rb,0.64091e-04_rb,0.78114e-04_rb,0.80883e-04_rb,0.50652e-04_rb /)\n      kbo(:, 5,33, 6) = (/ &\n        & 0.43604e-05_rb,0.66898e-04_rb,0.81798e-04_rb,0.85293e-04_rb,0.54102e-04_rb /)\n      kbo(:, 1,34, 6) = (/ &\n        & 0.31801e-05_rb,0.46888e-04_rb,0.57233e-04_rb,0.57945e-04_rb,0.34781e-04_rb /)\n      kbo(:, 2,34, 6) = (/ &\n        & 0.33244e-05_rb,0.49586e-04_rb,0.60319e-04_rb,0.61625e-04_rb,0.37646e-04_rb /)\n      kbo(:, 3,34, 6) = (/ &\n        & 0.34389e-05_rb,0.52183e-04_rb,0.63465e-04_rb,0.65422e-04_rb,0.40606e-04_rb /)\n      kbo(:, 4,34, 6) = (/ &\n        & 0.35228e-05_rb,0.54696e-04_rb,0.66697e-04_rb,0.69266e-04_rb,0.43571e-04_rb /)\n      kbo(:, 5,34, 6) = (/ &\n        & 0.35804e-05_rb,0.57162e-04_rb,0.69964e-04_rb,0.73120e-04_rb,0.46562e-04_rb /)\n      kbo(:, 1,35, 6) = (/ &\n        & 0.26200e-05_rb,0.39742e-04_rb,0.48410e-04_rb,0.49141e-04_rb,0.29639e-04_rb /)\n      kbo(:, 2,35, 6) = (/ &\n        & 0.27351e-05_rb,0.42075e-04_rb,0.51122e-04_rb,0.52382e-04_rb,0.32146e-04_rb /)\n      kbo(:, 3,35, 6) = (/ &\n        & 0.28253e-05_rb,0.44325e-04_rb,0.53916e-04_rb,0.55698e-04_rb,0.34701e-04_rb /)\n      kbo(:, 4,35, 6) = (/ &\n        & 0.28907e-05_rb,0.46530e-04_rb,0.56769e-04_rb,0.59068e-04_rb,0.37280e-04_rb /)\n      kbo(:, 5,35, 6) = (/ &\n        & 0.29354e-05_rb,0.48707e-04_rb,0.59649e-04_rb,0.62461e-04_rb,0.39864e-04_rb /)\n      kbo(:, 1,36, 6) = (/ &\n        & 0.21469e-05_rb,0.33498e-04_rb,0.40744e-04_rb,0.41427e-04_rb,0.25045e-04_rb /)\n      kbo(:, 2,36, 6) = (/ &\n        & 0.22407e-05_rb,0.35513e-04_rb,0.43124e-04_rb,0.44262e-04_rb,0.27227e-04_rb /)\n      kbo(:, 3,36, 6) = (/ &\n        & 0.23140e-05_rb,0.37481e-04_rb,0.45588e-04_rb,0.47157e-04_rb,0.29433e-04_rb /)\n      kbo(:, 4,36, 6) = (/ &\n        & 0.23673e-05_rb,0.39419e-04_rb,0.48109e-04_rb,0.50107e-04_rb,0.31672e-04_rb /)\n      kbo(:, 5,36, 6) = (/ &\n        & 0.24035e-05_rb,0.41345e-04_rb,0.50640e-04_rb,0.53089e-04_rb,0.33911e-04_rb /)\n      kbo(:, 1,37, 6) = (/ &\n        & 0.17464e-05_rb,0.27984e-04_rb,0.34007e-04_rb,0.34584e-04_rb,0.20899e-04_rb /)\n      kbo(:, 2,37, 6) = (/ &\n        & 0.18252e-05_rb,0.29737e-04_rb,0.36088e-04_rb,0.37051e-04_rb,0.22785e-04_rb /)\n      kbo(:, 3,37, 6) = (/ &\n        & 0.18877e-05_rb,0.31460e-04_rb,0.38247e-04_rb,0.39573e-04_rb,0.24687e-04_rb /)\n      kbo(:, 4,37, 6) = (/ &\n        & 0.19333e-05_rb,0.33165e-04_rb,0.40460e-04_rb,0.42146e-04_rb,0.26626e-04_rb /)\n      kbo(:, 5,37, 6) = (/ &\n        & 0.19647e-05_rb,0.34869e-04_rb,0.42691e-04_rb,0.44765e-04_rb,0.28561e-04_rb /)\n      kbo(:, 1,38, 6) = (/ &\n        & 0.14198e-05_rb,0.23364e-04_rb,0.28367e-04_rb,0.28854e-04_rb,0.17422e-04_rb /)\n      kbo(:, 2,38, 6) = (/ &\n        & 0.14862e-05_rb,0.24892e-04_rb,0.30186e-04_rb,0.30994e-04_rb,0.19047e-04_rb /)\n      kbo(:, 3,38, 6) = (/ &\n        & 0.15394e-05_rb,0.26399e-04_rb,0.32076e-04_rb,0.33192e-04_rb,0.20688e-04_rb /)\n      kbo(:, 4,38, 6) = (/ &\n        & 0.15786e-05_rb,0.27898e-04_rb,0.34020e-04_rb,0.35441e-04_rb,0.22360e-04_rb /)\n      kbo(:, 5,38, 6) = (/ &\n        & 0.16058e-05_rb,0.29401e-04_rb,0.35983e-04_rb,0.37735e-04_rb,0.24033e-04_rb /)\n      kbo(:, 1,39, 6) = (/ &\n        & 0.11541e-05_rb,0.19509e-04_rb,0.23663e-04_rb,0.24072e-04_rb,0.14521e-04_rb /)\n      kbo(:, 2,39, 6) = (/ &\n        & 0.12100e-05_rb,0.20837e-04_rb,0.25252e-04_rb,0.25929e-04_rb,0.15915e-04_rb /)\n      kbo(:, 3,39, 6) = (/ &\n        & 0.12551e-05_rb,0.22155e-04_rb,0.26902e-04_rb,0.27842e-04_rb,0.17331e-04_rb /)\n      kbo(:, 4,39, 6) = (/ &\n        & 0.12888e-05_rb,0.23470e-04_rb,0.28603e-04_rb,0.29806e-04_rb,0.18773e-04_rb /)\n      kbo(:, 5,39, 6) = (/ &\n        & 0.13123e-05_rb,0.24794e-04_rb,0.30331e-04_rb,0.31815e-04_rb,0.20216e-04_rb /)\n      kbo(:, 1,40, 6) = (/ &\n        & 0.93244e-06_rb,0.16171e-04_rb,0.19599e-04_rb,0.19918e-04_rb,0.11977e-04_rb /)\n      kbo(:, 2,40, 6) = (/ &\n        & 0.98059e-06_rb,0.17324e-04_rb,0.20976e-04_rb,0.21519e-04_rb,0.13169e-04_rb /)\n      kbo(:, 3,40, 6) = (/ &\n        & 0.10196e-05_rb,0.18475e-04_rb,0.22411e-04_rb,0.23178e-04_rb,0.14387e-04_rb /)\n      kbo(:, 4,40, 6) = (/ &\n        & 0.10496e-05_rb,0.19626e-04_rb,0.23897e-04_rb,0.24887e-04_rb,0.15625e-04_rb /)\n      kbo(:, 5,40, 6) = (/ &\n        & 0.10706e-05_rb,0.20792e-04_rb,0.25411e-04_rb,0.26641e-04_rb,0.16871e-04_rb /)\n      kbo(:, 1,41, 6) = (/ &\n        & 0.75206e-06_rb,0.13381e-04_rb,0.16204e-04_rb,0.16448e-04_rb,0.98582e-05_rb /)\n      kbo(:, 2,41, 6) = (/ &\n        & 0.79368e-06_rb,0.14380e-04_rb,0.17395e-04_rb,0.17824e-04_rb,0.10873e-04_rb /)\n      kbo(:, 3,41, 6) = (/ &\n        & 0.82742e-06_rb,0.15382e-04_rb,0.18640e-04_rb,0.19259e-04_rb,0.11916e-04_rb /)\n      kbo(:, 4,41, 6) = (/ &\n        & 0.85390e-06_rb,0.16388e-04_rb,0.19935e-04_rb,0.20745e-04_rb,0.12979e-04_rb /)\n      kbo(:, 5,41, 6) = (/ &\n        & 0.87281e-06_rb,0.17412e-04_rb,0.21261e-04_rb,0.22271e-04_rb,0.14053e-04_rb /)\n      kbo(:, 1,42, 6) = (/ &\n        & 0.60591e-06_rb,0.11061e-04_rb,0.13385e-04_rb,0.13568e-04_rb,0.81045e-05_rb /)\n      kbo(:, 2,42, 6) = (/ &\n        & 0.64182e-06_rb,0.11926e-04_rb,0.14412e-04_rb,0.14751e-04_rb,0.89661e-05_rb /)\n      kbo(:, 3,42, 6) = (/ &\n        & 0.67101e-06_rb,0.12797e-04_rb,0.15489e-04_rb,0.15987e-04_rb,0.98578e-05_rb /)\n      kbo(:, 4,42, 6) = (/ &\n        & 0.69427e-06_rb,0.13675e-04_rb,0.16616e-04_rb,0.17274e-04_rb,0.10770e-04_rb /)\n      kbo(:, 5,42, 6) = (/ &\n        & 0.71122e-06_rb,0.14573e-04_rb,0.17774e-04_rb,0.18601e-04_rb,0.11690e-04_rb /)\n      kbo(:, 1,43, 6) = (/ &\n        & 0.48565e-06_rb,0.90929e-05_rb,0.10998e-04_rb,0.11127e-04_rb,0.66136e-05_rb /)\n      kbo(:, 2,43, 6) = (/ &\n        & 0.51703e-06_rb,0.98401e-05_rb,0.11878e-04_rb,0.12136e-04_rb,0.73431e-05_rb /)\n      kbo(:, 3,43, 6) = (/ &\n        & 0.54246e-06_rb,0.10594e-04_rb,0.12807e-04_rb,0.13197e-04_rb,0.81019e-05_rb /)\n      kbo(:, 4,43, 6) = (/ &\n        & 0.56309e-06_rb,0.11359e-04_rb,0.13782e-04_rb,0.14306e-04_rb,0.88812e-05_rb /)\n      kbo(:, 5,43, 6) = (/ &\n        & 0.57854e-06_rb,0.12144e-04_rb,0.14791e-04_rb,0.15456e-04_rb,0.96685e-05_rb /)\n      kbo(:, 1,44, 6) = (/ &\n        & 0.38777e-06_rb,0.74478e-05_rb,0.90062e-05_rb,0.90921e-05_rb,0.53709e-05_rb /)\n      kbo(:, 2,44, 6) = (/ &\n        & 0.41522e-06_rb,0.80919e-05_rb,0.97570e-05_rb,0.99478e-05_rb,0.59889e-05_rb /)\n      kbo(:, 3,44, 6) = (/ &\n        & 0.43761e-06_rb,0.87433e-05_rb,0.10555e-04_rb,0.10856e-04_rb,0.66332e-05_rb /)\n      kbo(:, 4,44, 6) = (/ &\n        & 0.45584e-06_rb,0.94063e-05_rb,0.11395e-04_rb,0.11808e-04_rb,0.72955e-05_rb /)\n      kbo(:, 5,44, 6) = (/ &\n        & 0.46990e-06_rb,0.10091e-04_rb,0.12269e-04_rb,0.12799e-04_rb,0.79696e-05_rb /)\n      kbo(:, 1,45, 6) = (/ &\n        & 0.30888e-06_rb,0.60898e-05_rb,0.73632e-05_rb,0.74181e-05_rb,0.43535e-05_rb /)\n      kbo(:, 2,45, 6) = (/ &\n        & 0.33291e-06_rb,0.66440e-05_rb,0.80023e-05_rb,0.81416e-05_rb,0.48741e-05_rb /)\n      kbo(:, 3,45, 6) = (/ &\n        & 0.35255e-06_rb,0.72052e-05_rb,0.86855e-05_rb,0.89154e-05_rb,0.54207e-05_rb /)\n      kbo(:, 4,45, 6) = (/ &\n        & 0.36854e-06_rb,0.77787e-05_rb,0.94068e-05_rb,0.97308e-05_rb,0.59833e-05_rb /)\n      kbo(:, 5,45, 6) = (/ &\n        & 0.38125e-06_rb,0.83745e-05_rb,0.10163e-04_rb,0.10583e-04_rb,0.65578e-05_rb /)\n      kbo(:, 1,46, 6) = (/ &\n        & 0.24494e-06_rb,0.49598e-05_rb,0.59987e-05_rb,0.60289e-05_rb,0.35123e-05_rb /)\n      kbo(:, 2,46, 6) = (/ &\n        & 0.26595e-06_rb,0.54355e-05_rb,0.65411e-05_rb,0.66383e-05_rb,0.39494e-05_rb /)\n      kbo(:, 3,46, 6) = (/ &\n        & 0.28328e-06_rb,0.59173e-05_rb,0.71233e-05_rb,0.72943e-05_rb,0.44113e-05_rb /)\n      kbo(:, 4,46, 6) = (/ &\n        & 0.29735e-06_rb,0.64123e-05_rb,0.77406e-05_rb,0.79904e-05_rb,0.48883e-05_rb /)\n      kbo(:, 5,46, 6) = (/ &\n        & 0.30876e-06_rb,0.69283e-05_rb,0.83913e-05_rb,0.87211e-05_rb,0.53766e-05_rb /)\n      kbo(:, 1,47, 6) = (/ &\n        & 0.19287e-06_rb,0.40134e-05_rb,0.48586e-05_rb,0.48718e-05_rb,0.28114e-05_rb /)\n      kbo(:, 2,47, 6) = (/ &\n        & 0.21123e-06_rb,0.44208e-05_rb,0.53178e-05_rb,0.53794e-05_rb,0.31781e-05_rb /)\n      kbo(:, 3,47, 6) = (/ &\n        & 0.22658e-06_rb,0.48332e-05_rb,0.58104e-05_rb,0.59335e-05_rb,0.35646e-05_rb /)\n      kbo(:, 4,47, 6) = (/ &\n        & 0.23912e-06_rb,0.52582e-05_rb,0.63354e-05_rb,0.65230e-05_rb,0.39676e-05_rb /)\n      kbo(:, 5,47, 6) = (/ &\n        & 0.24931e-06_rb,0.57025e-05_rb,0.68920e-05_rb,0.71458e-05_rb,0.43826e-05_rb /)\n      kbo(:, 1,48, 6) = (/ &\n        & 0.15132e-06_rb,0.32395e-05_rb,0.39269e-05_rb,0.39289e-05_rb,0.22458e-05_rb /)\n      kbo(:, 2,48, 6) = (/ &\n        & 0.16716e-06_rb,0.35866e-05_rb,0.43144e-05_rb,0.43511e-05_rb,0.25512e-05_rb /)\n      kbo(:, 3,48, 6) = (/ &\n        & 0.18076e-06_rb,0.39391e-05_rb,0.47294e-05_rb,0.48161e-05_rb,0.28746e-05_rb /)\n      kbo(:, 4,48, 6) = (/ &\n        & 0.19194e-06_rb,0.43030e-05_rb,0.51748e-05_rb,0.53142e-05_rb,0.32135e-05_rb /)\n      kbo(:, 5,48, 6) = (/ &\n        & 0.20099e-06_rb,0.46842e-05_rb,0.56488e-05_rb,0.58430e-05_rb,0.35644e-05_rb /)\n      kbo(:, 1,49, 6) = (/ &\n        & 0.11828e-06_rb,0.26078e-05_rb,0.31672e-05_rb,0.31617e-05_rb,0.17894e-05_rb /)\n      kbo(:, 2,49, 6) = (/ &\n        & 0.13185e-06_rb,0.29029e-05_rb,0.34929e-05_rb,0.35125e-05_rb,0.20423e-05_rb /)\n      kbo(:, 3,49, 6) = (/ &\n        & 0.14378e-06_rb,0.32030e-05_rb,0.38409e-05_rb,0.39000e-05_rb,0.23121e-05_rb /)\n      kbo(:, 4,49, 6) = (/ &\n        & 0.15369e-06_rb,0.35139e-05_rb,0.42179e-05_rb,0.43198e-05_rb,0.25971e-05_rb /)\n      kbo(:, 5,49, 6) = (/ &\n        & 0.16176e-06_rb,0.38391e-05_rb,0.46198e-05_rb,0.47667e-05_rb,0.28929e-05_rb /)\n      kbo(:, 1,50, 6) = (/ &\n        & 0.92362e-07_rb,0.20997e-05_rb,0.25556e-05_rb,0.25471e-05_rb,0.14267e-05_rb /)\n      kbo(:, 2,50, 6) = (/ &\n        & 0.10390e-06_rb,0.23496e-05_rb,0.28286e-05_rb,0.28368e-05_rb,0.16356e-05_rb /)\n      kbo(:, 3,50, 6) = (/ &\n        & 0.11421e-06_rb,0.26049e-05_rb,0.31213e-05_rb,0.31606e-05_rb,0.18609e-05_rb /)\n      kbo(:, 4,50, 6) = (/ &\n        & 0.12297e-06_rb,0.28694e-05_rb,0.34392e-05_rb,0.35125e-05_rb,0.20996e-05_rb /)\n      kbo(:, 5,50, 6) = (/ &\n        & 0.13012e-06_rb,0.31471e-05_rb,0.37794e-05_rb,0.38900e-05_rb,0.23486e-05_rb /)\n      kbo(:, 1,51, 6) = (/ &\n        & 0.72029e-07_rb,0.16879e-05_rb,0.20606e-05_rb,0.20506e-05_rb,0.11365e-05_rb /)\n      kbo(:, 2,51, 6) = (/ &\n        & 0.81717e-07_rb,0.18994e-05_rb,0.22886e-05_rb,0.22902e-05_rb,0.13081e-05_rb /)\n      kbo(:, 3,51, 6) = (/ &\n        & 0.90547e-07_rb,0.21162e-05_rb,0.25347e-05_rb,0.25588e-05_rb,0.14964e-05_rb /)\n      kbo(:, 4,51, 6) = (/ &\n        & 0.98231e-07_rb,0.23407e-05_rb,0.28017e-05_rb,0.28537e-05_rb,0.16958e-05_rb /)\n      kbo(:, 5,51, 6) = (/ &\n        & 0.10454e-06_rb,0.25770e-05_rb,0.30891e-05_rb,0.31719e-05_rb,0.19053e-05_rb /)\n      kbo(:, 1,52, 6) = (/ &\n        & 0.55994e-07_rb,0.13535e-05_rb,0.16583e-05_rb,0.16483e-05_rb,0.90215e-06_rb /)\n      kbo(:, 2,52, 6) = (/ &\n        & 0.64065e-07_rb,0.15318e-05_rb,0.18483e-05_rb,0.18452e-05_rb,0.10447e-05_rb /)\n      kbo(:, 3,52, 6) = (/ &\n        & 0.71601e-07_rb,0.17156e-05_rb,0.20541e-05_rb,0.20679e-05_rb,0.12005e-05_rb /)\n      kbo(:, 4,52, 6) = (/ &\n        & 0.78265e-07_rb,0.19055e-05_rb,0.22786e-05_rb,0.23151e-05_rb,0.13673e-05_rb /)\n      kbo(:, 5,52, 6) = (/ &\n        & 0.83827e-07_rb,0.21062e-05_rb,0.25201e-05_rb,0.25812e-05_rb,0.15426e-05_rb /)\n      kbo(:, 1,53, 6) = (/ &\n        & 0.43376e-07_rb,0.10823e-05_rb,0.13316e-05_rb,0.13229e-05_rb,0.71387e-06_rb /)\n      kbo(:, 2,53, 6) = (/ &\n        & 0.50078e-07_rb,0.12320e-05_rb,0.14898e-05_rb,0.14843e-05_rb,0.83196e-06_rb /)\n      kbo(:, 3,53, 6) = (/ &\n        & 0.56440e-07_rb,0.13873e-05_rb,0.16612e-05_rb,0.16678e-05_rb,0.96085e-06_rb /)\n      kbo(:, 4,53, 6) = (/ &\n        & 0.62188e-07_rb,0.15481e-05_rb,0.18489e-05_rb,0.18736e-05_rb,0.10995e-05_rb /)\n      kbo(:, 5,53, 6) = (/ &\n        & 0.67072e-07_rb,0.17179e-05_rb,0.20520e-05_rb,0.20964e-05_rb,0.12465e-05_rb /)\n      kbo(:, 1,54, 6) = (/ &\n        & 0.33662e-07_rb,0.86685e-06_rb,0.10712e-05_rb,0.10638e-05_rb,0.56675e-06_rb /)\n      kbo(:, 2,54, 6) = (/ &\n        & 0.39188e-07_rb,0.99237e-06_rb,0.12024e-05_rb,0.11965e-05_rb,0.66407e-06_rb /)\n      kbo(:, 3,54, 6) = (/ &\n        & 0.44517e-07_rb,0.11234e-05_rb,0.13453e-05_rb,0.13477e-05_rb,0.77015e-06_rb /)\n      kbo(:, 4,54, 6) = (/ &\n        & 0.49410e-07_rb,0.12591e-05_rb,0.15022e-05_rb,0.15186e-05_rb,0.88568e-06_rb /)\n      kbo(:, 5,54, 6) = (/ &\n        & 0.53662e-07_rb,0.14028e-05_rb,0.16732e-05_rb,0.17054e-05_rb,0.10088e-05_rb /)\n      kbo(:, 1,55, 6) = (/ &\n        & 0.26107e-07_rb,0.69409e-06_rb,0.86148e-06_rb,0.85535e-06_rb,0.44993e-06_rb /)\n      kbo(:, 2,55, 6) = (/ &\n        & 0.30648e-07_rb,0.79874e-06_rb,0.97050e-06_rb,0.96432e-06_rb,0.52987e-06_rb /)\n      kbo(:, 3,55, 6) = (/ &\n        & 0.35070e-07_rb,0.90919e-06_rb,0.10893e-05_rb,0.10889e-05_rb,0.61727e-06_rb /)\n      kbo(:, 4,55, 6) = (/ &\n        & 0.39223e-07_rb,0.10237e-05_rb,0.12206e-05_rb,0.12308e-05_rb,0.71345e-06_rb /)\n      kbo(:, 5,55, 6) = (/ &\n        & 0.42897e-07_rb,0.11450e-05_rb,0.13641e-05_rb,0.13878e-05_rb,0.81614e-06_rb /)\n      kbo(:, 1,56, 6) = (/ &\n        & 0.20183e-07_rb,0.55461e-06_rb,0.69187e-06_rb,0.68686e-06_rb,0.35634e-06_rb /)\n      kbo(:, 2,56, 6) = (/ &\n        & 0.23906e-07_rb,0.64143e-06_rb,0.78193e-06_rb,0.77615e-06_rb,0.42133e-06_rb /)\n      kbo(:, 3,56, 6) = (/ &\n        & 0.27573e-07_rb,0.73422e-06_rb,0.88059e-06_rb,0.87848e-06_rb,0.49387e-06_rb /)\n      kbo(:, 4,56, 6) = (/ &\n        & 0.31066e-07_rb,0.83083e-06_rb,0.99001e-06_rb,0.99604e-06_rb,0.57362e-06_rb /)\n      kbo(:, 5,56, 6) = (/ &\n        & 0.34213e-07_rb,0.93302e-06_rb,0.11103e-05_rb,0.11271e-05_rb,0.65906e-06_rb /)\n      kbo(:, 1,57, 6) = (/ &\n        & 0.15553e-07_rb,0.44221e-06_rb,0.55475e-06_rb,0.55051e-06_rb,0.28158e-06_rb /)\n      kbo(:, 2,57, 6) = (/ &\n        & 0.18597e-07_rb,0.51387e-06_rb,0.62883e-06_rb,0.62381e-06_rb,0.33432e-06_rb /)\n      kbo(:, 3,57, 6) = (/ &\n        & 0.21627e-07_rb,0.59165e-06_rb,0.71079e-06_rb,0.70768e-06_rb,0.39423e-06_rb /)\n      kbo(:, 4,57, 6) = (/ &\n        & 0.24548e-07_rb,0.67286e-06_rb,0.80159e-06_rb,0.80451e-06_rb,0.46009e-06_rb /)\n      kbo(:, 5,57, 6) = (/ &\n        & 0.27223e-07_rb,0.75870e-06_rb,0.90196e-06_rb,0.91372e-06_rb,0.53126e-06_rb /)\n      kbo(:, 1,58, 6) = (/ &\n        & 0.11989e-07_rb,0.35271e-06_rb,0.44504e-06_rb,0.44164e-06_rb,0.22247e-06_rb /)\n      kbo(:, 2,58, 6) = (/ &\n        & 0.14473e-07_rb,0.41167e-06_rb,0.50593e-06_rb,0.50179e-06_rb,0.26557e-06_rb /)\n      kbo(:, 3,58, 6) = (/ &\n        & 0.16959e-07_rb,0.47681e-06_rb,0.57389e-06_rb,0.57055e-06_rb,0.31488e-06_rb /)\n      kbo(:, 4,58, 6) = (/ &\n        & 0.19386e-07_rb,0.54503e-06_rb,0.64933e-06_rb,0.65043e-06_rb,0.36927e-06_rb /)\n      kbo(:, 5,58, 6) = (/ &\n        & 0.21655e-07_rb,0.61705e-06_rb,0.73285e-06_rb,0.74092e-06_rb,0.42823e-06_rb /)\n      kbo(:, 1,59, 6) = (/ &\n        & 0.95745e-08_rb,0.28909e-06_rb,0.36504e-06_rb,0.36221e-06_rb,0.18143e-06_rb /)\n      kbo(:, 2,59, 6) = (/ &\n        & 0.11602e-07_rb,0.33869e-06_rb,0.41625e-06_rb,0.41267e-06_rb,0.21754e-06_rb /)\n      kbo(:, 3,59, 6) = (/ &\n        & 0.13639e-07_rb,0.39363e-06_rb,0.47345e-06_rb,0.47053e-06_rb,0.25873e-06_rb /)\n      kbo(:, 4,59, 6) = (/ &\n        & 0.15635e-07_rb,0.45132e-06_rb,0.53722e-06_rb,0.53779e-06_rb,0.30436e-06_rb /)\n      kbo(:, 5,59, 6) = (/ &\n        & 0.17515e-07_rb,0.51255e-06_rb,0.60804e-06_rb,0.61445e-06_rb,0.35395e-06_rb /)\n      kbo(:, 1,13, 7) = (/ &\n        & 0.13818e-02_rb,0.53095e-02_rb,0.61744e-02_rb,0.61409e-02_rb,0.38201e-02_rb /)\n      kbo(:, 2,13, 7) = (/ &\n        & 0.14927e-02_rb,0.54262e-02_rb,0.63169e-02_rb,0.63268e-02_rb,0.39787e-02_rb /)\n      kbo(:, 3,13, 7) = (/ &\n        & 0.15882e-02_rb,0.55245e-02_rb,0.64575e-02_rb,0.65042e-02_rb,0.41285e-02_rb /)\n      kbo(:, 4,13, 7) = (/ &\n        & 0.16683e-02_rb,0.56028e-02_rb,0.65859e-02_rb,0.66764e-02_rb,0.42766e-02_rb /)\n      kbo(:, 5,13, 7) = (/ &\n        & 0.17364e-02_rb,0.56642e-02_rb,0.66996e-02_rb,0.68400e-02_rb,0.44196e-02_rb /)\n      kbo(:, 1,14, 7) = (/ &\n        & 0.11439e-02_rb,0.44642e-02_rb,0.52052e-02_rb,0.51954e-02_rb,0.32185e-02_rb /)\n      kbo(:, 2,14, 7) = (/ &\n        & 0.12322e-02_rb,0.45612e-02_rb,0.53295e-02_rb,0.53554e-02_rb,0.33544e-02_rb /)\n      kbo(:, 3,14, 7) = (/ &\n        & 0.13082e-02_rb,0.46425e-02_rb,0.54474e-02_rb,0.55111e-02_rb,0.34869e-02_rb /)\n      kbo(:, 4,14, 7) = (/ &\n        & 0.13723e-02_rb,0.47078e-02_rb,0.55568e-02_rb,0.56605e-02_rb,0.36178e-02_rb /)\n      kbo(:, 5,14, 7) = (/ &\n        & 0.14273e-02_rb,0.47614e-02_rb,0.56536e-02_rb,0.58004e-02_rb,0.37445e-02_rb /)\n      kbo(:, 1,15, 7) = (/ &\n        & 0.94600e-03_rb,0.37452e-02_rb,0.43786e-02_rb,0.43839e-02_rb,0.27064e-02_rb /)\n      kbo(:, 2,15, 7) = (/ &\n        & 0.10166e-02_rb,0.38272e-02_rb,0.44845e-02_rb,0.45238e-02_rb,0.28259e-02_rb /)\n      kbo(:, 3,15, 7) = (/ &\n        & 0.10772e-02_rb,0.38951e-02_rb,0.45852e-02_rb,0.46569e-02_rb,0.29424e-02_rb /)\n      kbo(:, 4,15, 7) = (/ &\n        & 0.11287e-02_rb,0.39508e-02_rb,0.46776e-02_rb,0.47856e-02_rb,0.30573e-02_rb /)\n      kbo(:, 5,15, 7) = (/ &\n        & 0.11727e-02_rb,0.39984e-02_rb,0.47639e-02_rb,0.49094e-02_rb,0.31707e-02_rb /)\n      kbo(:, 1,16, 7) = (/ &\n        & 0.78170e-03_rb,0.31386e-02_rb,0.36753e-02_rb,0.36925e-02_rb,0.22749e-02_rb /)\n      kbo(:, 2,16, 7) = (/ &\n        & 0.83828e-03_rb,0.32067e-02_rb,0.37655e-02_rb,0.38108e-02_rb,0.23791e-02_rb /)\n      kbo(:, 3,16, 7) = (/ &\n        & 0.88677e-03_rb,0.32636e-02_rb,0.38524e-02_rb,0.39267e-02_rb,0.24809e-02_rb /)\n      kbo(:, 4,16, 7) = (/ &\n        & 0.92814e-03_rb,0.33127e-02_rb,0.39332e-02_rb,0.40389e-02_rb,0.25819e-02_rb /)\n      kbo(:, 5,16, 7) = (/ &\n        & 0.96342e-03_rb,0.33561e-02_rb,0.40123e-02_rb,0.41493e-02_rb,0.26825e-02_rb /)\n      kbo(:, 1,17, 7) = (/ &\n        & 0.64513e-03_rb,0.26258e-02_rb,0.30792e-02_rb,0.31027e-02_rb,0.19109e-02_rb /)\n      kbo(:, 2,17, 7) = (/ &\n        & 0.69065e-03_rb,0.26830e-02_rb,0.31573e-02_rb,0.32056e-02_rb,0.20013e-02_rb /)\n      kbo(:, 3,17, 7) = (/ &\n        & 0.72951e-03_rb,0.27321e-02_rb,0.32326e-02_rb,0.33061e-02_rb,0.20905e-02_rb /)\n      kbo(:, 4,17, 7) = (/ &\n        & 0.76279e-03_rb,0.27759e-02_rb,0.33057e-02_rb,0.34049e-02_rb,0.21791e-02_rb /)\n      kbo(:, 5,17, 7) = (/ &\n        & 0.79127e-03_rb,0.28164e-02_rb,0.33776e-02_rb,0.35037e-02_rb,0.22680e-02_rb /)\n      kbo(:, 1,18, 7) = (/ &\n        & 0.53216e-03_rb,0.21945e-02_rb,0.25768e-02_rb,0.26041e-02_rb,0.16047e-02_rb /)\n      kbo(:, 2,18, 7) = (/ &\n        & 0.56878e-03_rb,0.22431e-02_rb,0.26453e-02_rb,0.26934e-02_rb,0.16829e-02_rb /)\n      kbo(:, 3,18, 7) = (/ &\n        & 0.60002e-03_rb,0.22864e-02_rb,0.27121e-02_rb,0.27812e-02_rb,0.17605e-02_rb /)\n      kbo(:, 4,18, 7) = (/ &\n        & 0.62666e-03_rb,0.23265e-02_rb,0.27778e-02_rb,0.28689e-02_rb,0.18389e-02_rb /)\n      kbo(:, 5,18, 7) = (/ &\n        & 0.64956e-03_rb,0.23645e-02_rb,0.28436e-02_rb,0.29587e-02_rb,0.19175e-02_rb /)\n      kbo(:, 1,19, 7) = (/ &\n        & 0.43878e-03_rb,0.18328e-02_rb,0.21555e-02_rb,0.21844e-02_rb,0.13470e-02_rb /)\n      kbo(:, 2,19, 7) = (/ &\n        & 0.46832e-03_rb,0.18749e-02_rb,0.22160e-02_rb,0.22619e-02_rb,0.14147e-02_rb /)\n      kbo(:, 3,19, 7) = (/ &\n        & 0.49337e-03_rb,0.19136e-02_rb,0.22752e-02_rb,0.23395e-02_rb,0.14834e-02_rb /)\n      kbo(:, 4,19, 7) = (/ &\n        & 0.51483e-03_rb,0.19509e-02_rb,0.23344e-02_rb,0.24177e-02_rb,0.15526e-02_rb /)\n      kbo(:, 5,19, 7) = (/ &\n        & 0.53321e-03_rb,0.19863e-02_rb,0.23950e-02_rb,0.24983e-02_rb,0.16228e-02_rb /)\n      kbo(:, 1,20, 7) = (/ &\n        & 0.36218e-03_rb,0.15310e-02_rb,0.18044e-02_rb,0.18333e-02_rb,0.11320e-02_rb /)\n      kbo(:, 2,20, 7) = (/ &\n        & 0.38587e-03_rb,0.15681e-02_rb,0.18573e-02_rb,0.19010e-02_rb,0.11911e-02_rb /)\n      kbo(:, 3,20, 7) = (/ &\n        & 0.40599e-03_rb,0.16034e-02_rb,0.19105e-02_rb,0.19693e-02_rb,0.12516e-02_rb /)\n      kbo(:, 4,20, 7) = (/ &\n        & 0.42327e-03_rb,0.16372e-02_rb,0.19642e-02_rb,0.20400e-02_rb,0.13133e-02_rb /)\n      kbo(:, 5,20, 7) = (/ &\n        & 0.43800e-03_rb,0.16702e-02_rb,0.20196e-02_rb,0.21120e-02_rb,0.13760e-02_rb /)\n      kbo(:, 1,21, 7) = (/ &\n        & 0.29894e-03_rb,0.12794e-02_rb,0.15109e-02_rb,0.15392e-02_rb,0.95196e-03_rb /)\n      kbo(:, 2,21, 7) = (/ &\n        & 0.31795e-03_rb,0.13126e-02_rb,0.15578e-02_rb,0.15985e-02_rb,0.10041e-02_rb /)\n      kbo(:, 3,21, 7) = (/ &\n        & 0.33409e-03_rb,0.13444e-02_rb,0.16054e-02_rb,0.16590e-02_rb,0.10575e-02_rb /)\n      kbo(:, 4,21, 7) = (/ &\n        & 0.34798e-03_rb,0.13752e-02_rb,0.16542e-02_rb,0.17228e-02_rb,0.11124e-02_rb /)\n      kbo(:, 5,21, 7) = (/ &\n        & 0.35982e-03_rb,0.14062e-02_rb,0.17046e-02_rb,0.17872e-02_rb,0.11688e-02_rb /)\n      kbo(:, 1,22, 7) = (/ &\n        & 0.24779e-03_rb,0.10720e-02_rb,0.12687e-02_rb,0.12959e-02_rb,0.80428e-03_rb /)\n      kbo(:, 2,22, 7) = (/ &\n        & 0.26287e-03_rb,0.11012e-02_rb,0.13104e-02_rb,0.13483e-02_rb,0.85046e-03_rb /)\n      kbo(:, 3,22, 7) = (/ &\n        & 0.27570e-03_rb,0.11300e-02_rb,0.13532e-02_rb,0.14032e-02_rb,0.89796e-03_rb /)\n      kbo(:, 4,22, 7) = (/ &\n        & 0.28676e-03_rb,0.11583e-02_rb,0.13978e-02_rb,0.14602e-02_rb,0.94722e-03_rb /)\n      kbo(:, 5,22, 7) = (/ &\n        & 0.29612e-03_rb,0.11873e-02_rb,0.14439e-02_rb,0.15185e-02_rb,0.99812e-03_rb /)\n      kbo(:, 1,23, 7) = (/ &\n        & 0.20536e-03_rb,0.89901e-03_rb,0.10666e-02_rb,0.10925e-02_rb,0.68077e-03_rb /)\n      kbo(:, 2,23, 7) = (/ &\n        & 0.21732e-03_rb,0.92514e-03_rb,0.11037e-02_rb,0.11394e-02_rb,0.72189e-03_rb /)\n      kbo(:, 3,23, 7) = (/ &\n        & 0.22752e-03_rb,0.95109e-03_rb,0.11426e-02_rb,0.11888e-02_rb,0.76437e-03_rb /)\n      kbo(:, 4,23, 7) = (/ &\n        & 0.23632e-03_rb,0.97728e-03_rb,0.11832e-02_rb,0.12403e-02_rb,0.80877e-03_rb /)\n      kbo(:, 5,23, 7) = (/ &\n        & 0.24369e-03_rb,0.10040e-02_rb,0.12260e-02_rb,0.12934e-02_rb,0.85489e-03_rb /)\n      kbo(:, 1,24, 7) = (/ &\n        & 0.17021e-03_rb,0.75506e-03_rb,0.89800e-03_rb,0.92265e-03_rb,0.57788e-03_rb /)\n      kbo(:, 2,24, 7) = (/ &\n        & 0.17969e-03_rb,0.77853e-03_rb,0.93149e-03_rb,0.96497e-03_rb,0.61443e-03_rb /)\n      kbo(:, 3,24, 7) = (/ &\n        & 0.18778e-03_rb,0.80207e-03_rb,0.96680e-03_rb,0.10097e-02_rb,0.65278e-03_rb /)\n      kbo(:, 4,24, 7) = (/ &\n        & 0.19477e-03_rb,0.82622e-03_rb,0.10041e-02_rb,0.10564e-02_rb,0.69293e-03_rb /)\n      kbo(:, 5,24, 7) = (/ &\n        & 0.20055e-03_rb,0.85104e-03_rb,0.10439e-02_rb,0.11053e-02_rb,0.73424e-03_rb /)\n      kbo(:, 1,25, 7) = (/ &\n        & 0.14110e-03_rb,0.63531e-03_rb,0.75746e-03_rb,0.78109e-03_rb,0.49195e-03_rb /)\n      kbo(:, 2,25, 7) = (/ &\n        & 0.14860e-03_rb,0.65629e-03_rb,0.78801e-03_rb,0.81951e-03_rb,0.52472e-03_rb /)\n      kbo(:, 3,25, 7) = (/ &\n        & 0.15502e-03_rb,0.67802e-03_rb,0.82018e-03_rb,0.86005e-03_rb,0.55929e-03_rb /)\n      kbo(:, 4,25, 7) = (/ &\n        & 0.16054e-03_rb,0.70023e-03_rb,0.85487e-03_rb,0.90270e-03_rb,0.59546e-03_rb /)\n      kbo(:, 5,25, 7) = (/ &\n        & 0.16506e-03_rb,0.72333e-03_rb,0.89213e-03_rb,0.94794e-03_rb,0.63296e-03_rb /)\n      kbo(:, 1,26, 7) = (/ &\n        & 0.11704e-03_rb,0.53563e-03_rb,0.64089e-03_rb,0.66348e-03_rb,0.42036e-03_rb /)\n      kbo(:, 2,26, 7) = (/ &\n        & 0.12296e-03_rb,0.55482e-03_rb,0.66859e-03_rb,0.69842e-03_rb,0.44986e-03_rb /)\n      kbo(:, 3,26, 7) = (/ &\n        & 0.12804e-03_rb,0.57460e-03_rb,0.69838e-03_rb,0.73532e-03_rb,0.48115e-03_rb /)\n      kbo(:, 4,26, 7) = (/ &\n        & 0.13237e-03_rb,0.59528e-03_rb,0.73081e-03_rb,0.77472e-03_rb,0.51371e-03_rb /)\n      kbo(:, 5,26, 7) = (/ &\n        & 0.13587e-03_rb,0.61708e-03_rb,0.76562e-03_rb,0.81649e-03_rb,0.54800e-03_rb /)\n      kbo(:, 1,27, 7) = (/ &\n        & 0.97037e-04_rb,0.45263e-03_rb,0.54353e-03_rb,0.56528e-03_rb,0.36031e-03_rb /)\n      kbo(:, 2,27, 7) = (/ &\n        & 0.10171e-03_rb,0.47018e-03_rb,0.56899e-03_rb,0.59710e-03_rb,0.38698e-03_rb /)\n      kbo(:, 3,27, 7) = (/ &\n        & 0.10572e-03_rb,0.48833e-03_rb,0.59675e-03_rb,0.63096e-03_rb,0.41505e-03_rb /)\n      kbo(:, 4,27, 7) = (/ &\n        & 0.10911e-03_rb,0.50767e-03_rb,0.62713e-03_rb,0.66736e-03_rb,0.44466e-03_rb /)\n      kbo(:, 5,27, 7) = (/ &\n        & 0.11182e-03_rb,0.52830e-03_rb,0.65949e-03_rb,0.70600e-03_rb,0.47625e-03_rb /)\n      kbo(:, 1,28, 7) = (/ &\n        & 0.80419e-04_rb,0.38349e-03_rb,0.46224e-03_rb,0.48308e-03_rb,0.30982e-03_rb /)\n      kbo(:, 2,28, 7) = (/ &\n        & 0.84110e-04_rb,0.39943e-03_rb,0.48584e-03_rb,0.51214e-03_rb,0.33386e-03_rb /)\n      kbo(:, 3,28, 7) = (/ &\n        & 0.87283e-04_rb,0.41636e-03_rb,0.51189e-03_rb,0.54353e-03_rb,0.35924e-03_rb /)\n      kbo(:, 4,28, 7) = (/ &\n        & 0.89914e-04_rb,0.43456e-03_rb,0.54020e-03_rb,0.57698e-03_rb,0.38635e-03_rb /)\n      kbo(:, 5,28, 7) = (/ &\n        & 0.92003e-04_rb,0.45406e-03_rb,0.57030e-03_rb,0.61286e-03_rb,0.41553e-03_rb /)\n      kbo(:, 1,29, 7) = (/ &\n        & 0.66637e-04_rb,0.32580e-03_rb,0.39453e-03_rb,0.41439e-03_rb,0.26738e-03_rb /)\n      kbo(:, 2,29, 7) = (/ &\n        & 0.69552e-04_rb,0.34052e-03_rb,0.41660e-03_rb,0.44116e-03_rb,0.28904e-03_rb /)\n      kbo(:, 3,29, 7) = (/ &\n        & 0.72042e-04_rb,0.35633e-03_rb,0.44102e-03_rb,0.47005e-03_rb,0.31218e-03_rb /)\n      kbo(:, 4,29, 7) = (/ &\n        & 0.74082e-04_rb,0.37351e-03_rb,0.46731e-03_rb,0.50108e-03_rb,0.33714e-03_rb /)\n      kbo(:, 5,29, 7) = (/ &\n        & 0.75692e-04_rb,0.39190e-03_rb,0.49529e-03_rb,0.53447e-03_rb,0.36421e-03_rb /)\n      kbo(:, 1,30, 7) = (/ &\n        & 0.55194e-04_rb,0.27757e-03_rb,0.33804e-03_rb,0.35670e-03_rb,0.23148e-03_rb /)\n      kbo(:, 2,30, 7) = (/ &\n        & 0.57489e-04_rb,0.29130e-03_rb,0.35876e-03_rb,0.38143e-03_rb,0.25115e-03_rb /)\n      kbo(:, 3,30, 7) = (/ &\n        & 0.59445e-04_rb,0.30619e-03_rb,0.38148e-03_rb,0.40810e-03_rb,0.27242e-03_rb /)\n      kbo(:, 4,30, 7) = (/ &\n        & 0.61024e-04_rb,0.32233e-03_rb,0.40578e-03_rb,0.43698e-03_rb,0.29552e-03_rb /)\n      kbo(:, 5,30, 7) = (/ &\n        & 0.62251e-04_rb,0.33969e-03_rb,0.43185e-03_rb,0.46830e-03_rb,0.32052e-03_rb /)\n      kbo(:, 1,31, 7) = (/ &\n        & 0.45701e-04_rb,0.23736e-03_rb,0.29086e-03_rb,0.30834e-03_rb,0.20114e-03_rb /)\n      kbo(:, 2,31, 7) = (/ &\n        & 0.47516e-04_rb,0.25020e-03_rb,0.31032e-03_rb,0.33113e-03_rb,0.21916e-03_rb /)\n      kbo(:, 3,31, 7) = (/ &\n        & 0.49034e-04_rb,0.26424e-03_rb,0.33131e-03_rb,0.35593e-03_rb,0.23874e-03_rb /)\n      kbo(:, 4,31, 7) = (/ &\n        & 0.50247e-04_rb,0.27943e-03_rb,0.35395e-03_rb,0.38299e-03_rb,0.26024e-03_rb /)\n      kbo(:, 5,31, 7) = (/ &\n        & 0.51186e-04_rb,0.29578e-03_rb,0.37829e-03_rb,0.41250e-03_rb,0.28341e-03_rb /)\n      kbo(:, 1,32, 7) = (/ &\n        & 0.37829e-04_rb,0.20379e-03_rb,0.25145e-03_rb,0.26761e-03_rb,0.17549e-03_rb /)\n      kbo(:, 2,32, 7) = (/ &\n        & 0.39256e-04_rb,0.21585e-03_rb,0.26951e-03_rb,0.28871e-03_rb,0.19207e-03_rb /)\n      kbo(:, 3,32, 7) = (/ &\n        & 0.40434e-04_rb,0.22904e-03_rb,0.28903e-03_rb,0.31192e-03_rb,0.21034e-03_rb /)\n      kbo(:, 4,32, 7) = (/ &\n        & 0.41367e-04_rb,0.24332e-03_rb,0.31020e-03_rb,0.33744e-03_rb,0.23024e-03_rb /)\n      kbo(:, 5,32, 7) = (/ &\n        & 0.42072e-04_rb,0.25873e-03_rb,0.33309e-03_rb,0.36527e-03_rb,0.25179e-03_rb /)\n      kbo(:, 1,33, 7) = (/ &\n        & 0.31302e-04_rb,0.17572e-03_rb,0.21830e-03_rb,0.23321e-03_rb,0.15375e-03_rb /)\n      kbo(:, 2,33, 7) = (/ &\n        & 0.32419e-04_rb,0.18706e-03_rb,0.23504e-03_rb,0.25291e-03_rb,0.16915e-03_rb /)\n      kbo(:, 3,33, 7) = (/ &\n        & 0.33327e-04_rb,0.19940e-03_rb,0.25328e-03_rb,0.27479e-03_rb,0.18617e-03_rb /)\n      kbo(:, 4,33, 7) = (/ &\n        & 0.34039e-04_rb,0.21283e-03_rb,0.27315e-03_rb,0.29887e-03_rb,0.20465e-03_rb /)\n      kbo(:, 5,33, 7) = (/ &\n        & 0.34568e-04_rb,0.22731e-03_rb,0.29474e-03_rb,0.32519e-03_rb,0.22485e-03_rb /)\n      kbo(:, 1,34, 7) = (/ &\n        & 0.25851e-04_rb,0.15182e-03_rb,0.18976e-03_rb,0.20353e-03_rb,0.13483e-03_rb /)\n      kbo(:, 2,34, 7) = (/ &\n        & 0.26731e-04_rb,0.16241e-03_rb,0.20531e-03_rb,0.22199e-03_rb,0.14918e-03_rb /)\n      kbo(:, 3,34, 7) = (/ &\n        & 0.27437e-04_rb,0.17395e-03_rb,0.22237e-03_rb,0.24258e-03_rb,0.16491e-03_rb /)\n      kbo(:, 4,34, 7) = (/ &\n        & 0.27988e-04_rb,0.18656e-03_rb,0.24113e-03_rb,0.26529e-03_rb,0.18217e-03_rb /)\n      kbo(:, 5,34, 7) = (/ &\n        & 0.28384e-04_rb,0.20017e-03_rb,0.26144e-03_rb,0.29020e-03_rb,0.20116e-03_rb /)\n      kbo(:, 1,35, 7) = (/ &\n        & 0.21271e-04_rb,0.13078e-03_rb,0.16426e-03_rb,0.17685e-03_rb,0.11756e-03_rb /)\n      kbo(:, 2,35, 7) = (/ &\n        & 0.21975e-04_rb,0.14058e-03_rb,0.17865e-03_rb,0.19403e-03_rb,0.13072e-03_rb /)\n      kbo(:, 3,35, 7) = (/ &\n        & 0.22533e-04_rb,0.15132e-03_rb,0.19456e-03_rb,0.21323e-03_rb,0.14523e-03_rb /)\n      kbo(:, 4,35, 7) = (/ &\n        & 0.22966e-04_rb,0.16307e-03_rb,0.21206e-03_rb,0.23454e-03_rb,0.16133e-03_rb /)\n      kbo(:, 5,35, 7) = (/ &\n        & 0.23274e-04_rb,0.17579e-03_rb,0.23112e-03_rb,0.25800e-03_rb,0.17911e-03_rb /)\n      kbo(:, 1,36, 7) = (/ &\n        & 0.17431e-04_rb,0.11205e-03_rb,0.14128e-03_rb,0.15260e-03_rb,0.10161e-03_rb /)\n      kbo(:, 2,36, 7) = (/ &\n        & 0.18004e-04_rb,0.12103e-03_rb,0.15448e-03_rb,0.16840e-03_rb,0.11356e-03_rb /)\n      kbo(:, 3,36, 7) = (/ &\n        & 0.18458e-04_rb,0.13095e-03_rb,0.16918e-03_rb,0.18616e-03_rb,0.12687e-03_rb /)\n      kbo(:, 4,36, 7) = (/ &\n        & 0.18810e-04_rb,0.14182e-03_rb,0.18539e-03_rb,0.20596e-03_rb,0.14179e-03_rb /)\n      kbo(:, 5,36, 7) = (/ &\n        & 0.19059e-04_rb,0.15363e-03_rb,0.20317e-03_rb,0.22788e-03_rb,0.15831e-03_rb /)\n      kbo(:, 1,37, 7) = (/ &\n        & 0.14204e-04_rb,0.95010e-04_rb,0.12008e-03_rb,0.12996e-03_rb,0.86482e-04_rb /)\n      kbo(:, 2,37, 7) = (/ &\n        & 0.14685e-04_rb,0.10313e-03_rb,0.13200e-03_rb,0.14426e-03_rb,0.97179e-04_rb /)\n      kbo(:, 3,37, 7) = (/ &\n        & 0.15069e-04_rb,0.11214e-03_rb,0.14536e-03_rb,0.16042e-03_rb,0.10922e-03_rb /)\n      kbo(:, 4,37, 7) = (/ &\n        & 0.15369e-04_rb,0.12211e-03_rb,0.16020e-03_rb,0.17855e-03_rb,0.12282e-03_rb /)\n      kbo(:, 5,37, 7) = (/ &\n        & 0.15586e-04_rb,0.13296e-03_rb,0.17661e-03_rb,0.19876e-03_rb,0.13797e-03_rb /)\n      kbo(:, 1,38, 7) = (/ &\n        & 0.11571e-04_rb,0.80545e-04_rb,0.10206e-03_rb,0.11063e-03_rb,0.73563e-04_rb /)\n      kbo(:, 2,38, 7) = (/ &\n        & 0.11976e-04_rb,0.87875e-04_rb,0.11281e-03_rb,0.12357e-03_rb,0.83149e-04_rb /)\n      kbo(:, 3,38, 7) = (/ &\n        & 0.12301e-04_rb,0.96063e-04_rb,0.12495e-03_rb,0.13829e-03_rb,0.94026e-04_rb /)\n      kbo(:, 4,38, 7) = (/ &\n        & 0.12557e-04_rb,0.10518e-03_rb,0.13851e-03_rb,0.15487e-03_rb,0.10642e-03_rb /)\n      kbo(:, 5,38, 7) = (/ &\n        & 0.12744e-04_rb,0.11515e-03_rb,0.15364e-03_rb,0.17352e-03_rb,0.12029e-03_rb /)\n      kbo(:, 1,39, 7) = (/ &\n        & 0.94254e-05_rb,0.68333e-04_rb,0.86798e-04_rb,0.94247e-04_rb,0.62604e-04_rb /)\n      kbo(:, 2,39, 7) = (/ &\n        & 0.97657e-05_rb,0.74945e-04_rb,0.96495e-04_rb,0.10595e-03_rb,0.71185e-04_rb /)\n      kbo(:, 3,39, 7) = (/ &\n        & 0.10041e-04_rb,0.82376e-04_rb,0.10752e-03_rb,0.11934e-03_rb,0.81022e-04_rb /)\n      kbo(:, 4,39, 7) = (/ &\n        & 0.10258e-04_rb,0.90687e-04_rb,0.11992e-03_rb,0.13453e-03_rb,0.92315e-04_rb /)\n      kbo(:, 5,39, 7) = (/ &\n        & 0.10419e-04_rb,0.99852e-04_rb,0.13387e-03_rb,0.15177e-03_rb,0.10504e-03_rb /)\n      kbo(:, 1,40, 7) = (/ &\n        & 0.76452e-05_rb,0.57428e-04_rb,0.73021e-04_rb,0.79333e-04_rb,0.52568e-04_rb /)\n      kbo(:, 2,40, 7) = (/ &\n        & 0.79354e-05_rb,0.63315e-04_rb,0.81650e-04_rb,0.89752e-04_rb,0.60144e-04_rb /)\n      kbo(:, 3,40, 7) = (/ &\n        & 0.81739e-05_rb,0.69961e-04_rb,0.91542e-04_rb,0.10176e-03_rb,0.68905e-04_rb /)\n      kbo(:, 4,40, 7) = (/ &\n        & 0.83626e-05_rb,0.77456e-04_rb,0.10275e-03_rb,0.11552e-03_rb,0.79059e-04_rb /)\n      kbo(:, 5,40, 7) = (/ &\n        & 0.85064e-05_rb,0.85795e-04_rb,0.11542e-03_rb,0.13128e-03_rb,0.90578e-04_rb /)\n      kbo(:, 1,41, 7) = (/ &\n        & 0.61953e-05_rb,0.48163e-04_rb,0.61287e-04_rb,0.66616e-04_rb,0.44011e-04_rb /)\n      kbo(:, 2,41, 7) = (/ &\n        & 0.64418e-05_rb,0.53383e-04_rb,0.68934e-04_rb,0.75842e-04_rb,0.50670e-04_rb /)\n      kbo(:, 3,41, 7) = (/ &\n        & 0.66484e-05_rb,0.59312e-04_rb,0.77785e-04_rb,0.86580e-04_rb,0.58448e-04_rb /)\n      kbo(:, 4,41, 7) = (/ &\n        & 0.68134e-05_rb,0.66054e-04_rb,0.87876e-04_rb,0.98995e-04_rb,0.67543e-04_rb /)\n      kbo(:, 5,41, 7) = (/ &\n        & 0.69402e-05_rb,0.73614e-04_rb,0.99378e-04_rb,0.11337e-03_rb,0.77942e-04_rb /)\n      kbo(:, 1,42, 7) = (/ &\n        & 0.50170e-05_rb,0.40358e-04_rb,0.51378e-04_rb,0.55875e-04_rb,0.36794e-04_rb /)\n      kbo(:, 2,42, 7) = (/ &\n        & 0.52266e-05_rb,0.44971e-04_rb,0.58141e-04_rb,0.64024e-04_rb,0.42639e-04_rb /)\n      kbo(:, 3,42, 7) = (/ &\n        & 0.54046e-05_rb,0.50250e-04_rb,0.66034e-04_rb,0.73601e-04_rb,0.49527e-04_rb /)\n      kbo(:, 4,42, 7) = (/ &\n        & 0.55484e-05_rb,0.56302e-04_rb,0.75111e-04_rb,0.84788e-04_rb,0.57654e-04_rb /)\n      kbo(:, 5,42, 7) = (/ &\n        & 0.56600e-05_rb,0.63153e-04_rb,0.85551e-04_rb,0.97898e-04_rb,0.67040e-04_rb /)\n      kbo(:, 1,43, 7) = (/ &\n        & 0.40498e-05_rb,0.33563e-04_rb,0.42716e-04_rb,0.46433e-04_rb,0.30447e-04_rb /)\n      kbo(:, 2,43, 7) = (/ &\n        & 0.42291e-05_rb,0.37603e-04_rb,0.48619e-04_rb,0.53551e-04_rb,0.35516e-04_rb /)\n      kbo(:, 3,43, 7) = (/ &\n        & 0.43833e-05_rb,0.42260e-04_rb,0.55585e-04_rb,0.61999e-04_rb,0.41549e-04_rb /)\n      kbo(:, 4,43, 7) = (/ &\n        & 0.45099e-05_rb,0.47650e-04_rb,0.63668e-04_rb,0.71964e-04_rb,0.48728e-04_rb /)\n      kbo(:, 5,43, 7) = (/ &\n        & 0.46096e-05_rb,0.53790e-04_rb,0.73053e-04_rb,0.83779e-04_rb,0.57105e-04_rb /)\n      kbo(:, 1,44, 7) = (/ &\n        & 0.32616e-05_rb,0.27781e-04_rb,0.35335e-04_rb,0.38366e-04_rb,0.25032e-04_rb /)\n      kbo(:, 2,44, 7) = (/ &\n        & 0.34164e-05_rb,0.31296e-04_rb,0.40444e-04_rb,0.44531e-04_rb,0.29399e-04_rb /)\n      kbo(:, 3,44, 7) = (/ &\n        & 0.35491e-05_rb,0.35375e-04_rb,0.46540e-04_rb,0.51925e-04_rb,0.34633e-04_rb /)\n      kbo(:, 4,44, 7) = (/ &\n        & 0.36610e-05_rb,0.40146e-04_rb,0.53687e-04_rb,0.60738e-04_rb,0.40935e-04_rb /)\n      kbo(:, 5,44, 7) = (/ &\n        & 0.37500e-05_rb,0.45618e-04_rb,0.62061e-04_rb,0.71298e-04_rb,0.48356e-04_rb /)\n      kbo(:, 1,45, 7) = (/ &\n        & 0.26238e-05_rb,0.22952e-04_rb,0.29162e-04_rb,0.31630e-04_rb,0.20522e-04_rb /)\n      kbo(:, 2,45, 7) = (/ &\n        & 0.27571e-05_rb,0.25992e-04_rb,0.33567e-04_rb,0.36938e-04_rb,0.24268e-04_rb /)\n      kbo(:, 3,45, 7) = (/ &\n        & 0.28713e-05_rb,0.29549e-04_rb,0.38881e-04_rb,0.43383e-04_rb,0.28792e-04_rb /)\n      kbo(:, 4,45, 7) = (/ &\n        & 0.29693e-05_rb,0.33760e-04_rb,0.45177e-04_rb,0.51149e-04_rb,0.34303e-04_rb /)\n      kbo(:, 5,45, 7) = (/ &\n        & 0.30482e-05_rb,0.38627e-04_rb,0.52624e-04_rb,0.60551e-04_rb,0.40857e-04_rb /)\n      kbo(:, 1,46, 7) = (/ &\n        & 0.21051e-05_rb,0.18867e-04_rb,0.23935e-04_rb,0.25917e-04_rb,0.16710e-04_rb /)\n      kbo(:, 2,46, 7) = (/ &\n        & 0.22206e-05_rb,0.21480e-04_rb,0.27705e-04_rb,0.30449e-04_rb,0.19893e-04_rb /)\n      kbo(:, 3,46, 7) = (/ &\n        & 0.23191e-05_rb,0.24557e-04_rb,0.32298e-04_rb,0.36019e-04_rb,0.23769e-04_rb /)\n      kbo(:, 4,46, 7) = (/ &\n        & 0.24046e-05_rb,0.28239e-04_rb,0.37798e-04_rb,0.42807e-04_rb,0.28545e-04_rb /)\n      kbo(:, 5,46, 7) = (/ &\n        & 0.24746e-05_rb,0.32543e-04_rb,0.44374e-04_rb,0.51109e-04_rb,0.34299e-04_rb /)\n      kbo(:, 1,47, 7) = (/ &\n        & 0.16817e-05_rb,0.15386e-04_rb,0.19464e-04_rb,0.21024e-04_rb,0.13455e-04_rb /)\n      kbo(:, 2,47, 7) = (/ &\n        & 0.17822e-05_rb,0.17605e-04_rb,0.22652e-04_rb,0.24840e-04_rb,0.16124e-04_rb /)\n      kbo(:, 3,47, 7) = (/ &\n        & 0.18680e-05_rb,0.20236e-04_rb,0.26567e-04_rb,0.29585e-04_rb,0.19401e-04_rb /)\n      kbo(:, 4,47, 7) = (/ &\n        & 0.19423e-05_rb,0.23413e-04_rb,0.31317e-04_rb,0.35433e-04_rb,0.23476e-04_rb /)\n      kbo(:, 5,47, 7) = (/ &\n        & 0.20049e-05_rb,0.27181e-04_rb,0.37054e-04_rb,0.42668e-04_rb,0.28466e-04_rb /)\n      kbo(:, 1,48, 7) = (/ &\n        & 0.13405e-05_rb,0.12514e-04_rb,0.15779e-04_rb,0.16993e-04_rb,0.10791e-04_rb /)\n      kbo(:, 2,48, 7) = (/ &\n        & 0.14280e-05_rb,0.14385e-04_rb,0.18460e-04_rb,0.20187e-04_rb,0.13017e-04_rb /)\n      kbo(:, 3,48, 7) = (/ &\n        & 0.15026e-05_rb,0.16623e-04_rb,0.21773e-04_rb,0.24205e-04_rb,0.15768e-04_rb /)\n      kbo(:, 4,48, 7) = (/ &\n        & 0.15671e-05_rb,0.19354e-04_rb,0.25854e-04_rb,0.29218e-04_rb,0.19227e-04_rb /)\n      kbo(:, 5,48, 7) = (/ &\n        & 0.16224e-05_rb,0.22629e-04_rb,0.30833e-04_rb,0.35479e-04_rb,0.23525e-04_rb /)\n      kbo(:, 1,49, 7) = (/ &\n        & 0.10664e-05_rb,0.10149e-04_rb,0.12751e-04_rb,0.13684e-04_rb,0.86188e-05_rb /)\n      kbo(:, 2,49, 7) = (/ &\n        & 0.11418e-05_rb,0.11720e-04_rb,0.14999e-04_rb,0.16352e-04_rb,0.10467e-04_rb /)\n      kbo(:, 3,49, 7) = (/ &\n        & 0.12069e-05_rb,0.13612e-04_rb,0.17780e-04_rb,0.19716e-04_rb,0.12759e-04_rb /)\n      kbo(:, 4,49, 7) = (/ &\n        & 0.12630e-05_rb,0.15945e-04_rb,0.21262e-04_rb,0.23990e-04_rb,0.15676e-04_rb /)\n      kbo(:, 5,49, 7) = (/ &\n        & 0.13113e-05_rb,0.18775e-04_rb,0.25560e-04_rb,0.29382e-04_rb,0.19352e-04_rb /)\n      kbo(:, 1,50, 7) = (/ &\n        & 0.84808e-06_rb,0.82401e-05_rb,0.10318e-04_rb,0.11036e-04_rb,0.68939e-05_rb /)\n      kbo(:, 2,50, 7) = (/ &\n        & 0.91269e-06_rb,0.95513e-05_rb,0.12189e-04_rb,0.13247e-04_rb,0.84209e-05_rb /)\n      kbo(:, 3,50, 7) = (/ &\n        & 0.96928e-06_rb,0.11160e-04_rb,0.14539e-04_rb,0.16084e-04_rb,0.10336e-04_rb /)\n      kbo(:, 4,50, 7) = (/ &\n        & 0.10177e-05_rb,0.13146e-04_rb,0.17498e-04_rb,0.19711e-04_rb,0.12790e-04_rb /)\n      kbo(:, 5,50, 7) = (/ &\n        & 0.10595e-05_rb,0.15592e-04_rb,0.21207e-04_rb,0.24356e-04_rb,0.15929e-04_rb /)\n      kbo(:, 1,51, 7) = (/ &\n        & 0.67378e-06_rb,0.66826e-05_rb,0.83381e-05_rb,0.88828e-05_rb,0.55052e-05_rb /)\n      kbo(:, 2,51, 7) = (/ &\n        & 0.72873e-06_rb,0.77753e-05_rb,0.98905e-05_rb,0.10714e-04_rb,0.67636e-05_rb /)\n      kbo(:, 3,51, 7) = (/ &\n        & 0.77763e-06_rb,0.91368e-05_rb,0.11866e-04_rb,0.13091e-04_rb,0.83559e-05_rb /)\n      kbo(:, 4,51, 7) = (/ &\n        & 0.81953e-06_rb,0.10824e-04_rb,0.14378e-04_rb,0.16168e-04_rb,0.10417e-04_rb /)\n      kbo(:, 5,51, 7) = (/ &\n        & 0.85561e-06_rb,0.12933e-04_rb,0.17571e-04_rb,0.20159e-04_rb,0.13087e-04_rb /)\n      kbo(:, 1,52, 7) = (/ &\n        & 0.53444e-06_rb,0.54066e-05_rb,0.67197e-05_rb,0.71297e-05_rb,0.43814e-05_rb /)\n      kbo(:, 2,52, 7) = (/ &\n        & 0.58095e-06_rb,0.63124e-05_rb,0.79989e-05_rb,0.86346e-05_rb,0.54122e-05_rb /)\n      kbo(:, 3,52, 7) = (/ &\n        & 0.62282e-06_rb,0.74561e-05_rb,0.96489e-05_rb,0.10614e-04_rb,0.67289e-05_rb /)\n      kbo(:, 4,52, 7) = (/ &\n        & 0.65913e-06_rb,0.88917e-05_rb,0.11780e-04_rb,0.13220e-04_rb,0.84497e-05_rb /)\n      kbo(:, 5,52, 7) = (/ &\n        & 0.69032e-06_rb,0.10691e-04_rb,0.14504e-04_rb,0.16615e-04_rb,0.10706e-04_rb /)\n      kbo(:, 1,53, 7) = (/ &\n        & 0.42309e-06_rb,0.43635e-05_rb,0.54017e-05_rb,0.57047e-05_rb,0.34733e-05_rb /)\n      kbo(:, 2,53, 7) = (/ &\n        & 0.46223e-06_rb,0.51097e-05_rb,0.64465e-05_rb,0.69322e-05_rb,0.43120e-05_rb /)\n      kbo(:, 3,53, 7) = (/ &\n        & 0.49791e-06_rb,0.60643e-05_rb,0.78166e-05_rb,0.85690e-05_rb,0.53948e-05_rb /)\n      kbo(:, 4,53, 7) = (/ &\n        & 0.52942e-06_rb,0.72726e-05_rb,0.96042e-05_rb,0.10748e-04_rb,0.68211e-05_rb /)\n      kbo(:, 5,53, 7) = (/ &\n        & 0.55635e-06_rb,0.88074e-05_rb,0.11924e-04_rb,0.13632e-04_rb,0.87176e-05_rb /)\n      kbo(:, 1,54, 7) = (/ &\n        & 0.33525e-06_rb,0.35291e-05_rb,0.43533e-05_rb,0.45783e-05_rb,0.27618e-05_rb /)\n      kbo(:, 2,54, 7) = (/ &\n        & 0.36801e-06_rb,0.41464e-05_rb,0.52098e-05_rb,0.55821e-05_rb,0.34468e-05_rb /)\n      kbo(:, 3,54, 7) = (/ &\n        & 0.39830e-06_rb,0.49442e-05_rb,0.63495e-05_rb,0.69393e-05_rb,0.43390e-05_rb /)\n      kbo(:, 4,54, 7) = (/ &\n        & 0.42530e-06_rb,0.59638e-05_rb,0.78520e-05_rb,0.87652e-05_rb,0.55238e-05_rb /)\n      kbo(:, 5,54, 7) = (/ &\n        & 0.44850e-06_rb,0.72711e-05_rb,0.98256e-05_rb,0.11213e-04_rb,0.71180e-05_rb /)\n      kbo(:, 1,55, 7) = (/ &\n        & 0.26561e-06_rb,0.28535e-05_rb,0.35091e-05_rb,0.36747e-05_rb,0.21953e-05_rb /)\n      kbo(:, 2,55, 7) = (/ &\n        & 0.29299e-06_rb,0.33630e-05_rb,0.42093e-05_rb,0.44935e-05_rb,0.27543e-05_rb /)\n      kbo(:, 3,55, 7) = (/ &\n        & 0.31855e-06_rb,0.40286e-05_rb,0.51555e-05_rb,0.56160e-05_rb,0.34885e-05_rb /)\n      kbo(:, 4,55, 7) = (/ &\n        & 0.34149e-06_rb,0.48884e-05_rb,0.64166e-05_rb,0.71432e-05_rb,0.44712e-05_rb /)\n      kbo(:, 5,55, 7) = (/ &\n        & 0.36149e-06_rb,0.60082e-05_rb,0.81053e-05_rb,0.92338e-05_rb,0.58114e-05_rb /)\n      kbo(:, 1,56, 7) = (/ &\n        & 0.21017e-06_rb,0.23019e-05_rb,0.28217e-05_rb,0.29420e-05_rb,0.17403e-05_rb /)\n      kbo(:, 2,56, 7) = (/ &\n        & 0.23294e-06_rb,0.27215e-05_rb,0.33922e-05_rb,0.36070e-05_rb,0.21943e-05_rb /)\n      kbo(:, 3,56, 7) = (/ &\n        & 0.25436e-06_rb,0.32732e-05_rb,0.41720e-05_rb,0.45291e-05_rb,0.27950e-05_rb /)\n      kbo(:, 4,56, 7) = (/ &\n        & 0.27383e-06_rb,0.39951e-05_rb,0.52252e-05_rb,0.57990e-05_rb,0.36054e-05_rb /)\n      kbo(:, 5,56, 7) = (/ &\n        & 0.29106e-06_rb,0.49429e-05_rb,0.66518e-05_rb,0.75613e-05_rb,0.47246e-05_rb /)\n      kbo(:, 1,57, 7) = (/ &\n        & 0.16608e-06_rb,0.18531e-05_rb,0.22639e-05_rb,0.23504e-05_rb,0.13760e-05_rb /)\n      kbo(:, 2,57, 7) = (/ &\n        & 0.18488e-06_rb,0.21971e-05_rb,0.27271e-05_rb,0.28870e-05_rb,0.17421e-05_rb /)\n      kbo(:, 3,57, 7) = (/ &\n        & 0.20279e-06_rb,0.26520e-05_rb,0.33659e-05_rb,0.36392e-05_rb,0.22316e-05_rb /)\n      kbo(:, 4,57, 7) = (/ &\n        & 0.21931e-06_rb,0.32543e-05_rb,0.42391e-05_rb,0.46891e-05_rb,0.28949e-05_rb /)\n      kbo(:, 5,57, 7) = (/ &\n        & 0.23404e-06_rb,0.40527e-05_rb,0.54380e-05_rb,0.61649e-05_rb,0.38234e-05_rb /)\n      kbo(:, 1,58, 7) = (/ &\n        & 0.13131e-06_rb,0.14927e-05_rb,0.18179e-05_rb,0.18787e-05_rb,0.10893e-05_rb /)\n      kbo(:, 2,58, 7) = (/ &\n        & 0.14677e-06_rb,0.17748e-05_rb,0.21946e-05_rb,0.23122e-05_rb,0.13839e-05_rb /)\n      kbo(:, 3,58, 7) = (/ &\n        & 0.16171e-06_rb,0.21494e-05_rb,0.27171e-05_rb,0.29256e-05_rb,0.17827e-05_rb /)\n      kbo(:, 4,58, 7) = (/ &\n        & 0.17567e-06_rb,0.26514e-05_rb,0.34407e-05_rb,0.37923e-05_rb,0.23269e-05_rb /)\n      kbo(:, 5,58, 7) = (/ &\n        & 0.18816e-06_rb,0.33237e-05_rb,0.44466e-05_rb,0.50280e-05_rb,0.30958e-05_rb /)\n      kbo(:, 1,59, 7) = (/ &\n        & 0.10599e-06_rb,0.12374e-05_rb,0.15060e-05_rb,0.15543e-05_rb,0.89750e-06_rb /)\n      kbo(:, 2,59, 7) = (/ &\n        & 0.11868e-06_rb,0.14795e-05_rb,0.18285e-05_rb,0.19251e-05_rb,0.11479e-05_rb /)\n      kbo(:, 3,59, 7) = (/ &\n        & 0.13098e-06_rb,0.18042e-05_rb,0.22807e-05_rb,0.24552e-05_rb,0.14897e-05_rb /)\n      kbo(:, 4,59, 7) = (/ &\n        & 0.14252e-06_rb,0.22439e-05_rb,0.29152e-05_rb,0.32163e-05_rb,0.19622e-05_rb /)\n      kbo(:, 5,59, 7) = (/ &\n        & 0.15291e-06_rb,0.28396e-05_rb,0.38087e-05_rb,0.43138e-05_rb,0.26387e-05_rb /)\n      kbo(:, 1,13, 8) = (/ &\n        & 0.83673e-02_rb,0.17454e-01_rb,0.20213e-01_rb,0.20132e-01_rb,0.13810e-01_rb /)\n      kbo(:, 2,13, 8) = (/ &\n        & 0.85039e-02_rb,0.17824e-01_rb,0.20684e-01_rb,0.20616e-01_rb,0.14219e-01_rb /)\n      kbo(:, 3,13, 8) = (/ &\n        & 0.86129e-02_rb,0.18196e-01_rb,0.21163e-01_rb,0.21143e-01_rb,0.14616e-01_rb /)\n      kbo(:, 4,13, 8) = (/ &\n        & 0.86913e-02_rb,0.18563e-01_rb,0.21635e-01_rb,0.21674e-01_rb,0.14991e-01_rb /)\n      kbo(:, 5,13, 8) = (/ &\n        & 0.87301e-02_rb,0.18916e-01_rb,0.22103e-01_rb,0.22198e-01_rb,0.15351e-01_rb /)\n      kbo(:, 1,14, 8) = (/ &\n        & 0.69346e-02_rb,0.14952e-01_rb,0.17380e-01_rb,0.17342e-01_rb,0.11803e-01_rb /)\n      kbo(:, 2,14, 8) = (/ &\n        & 0.70328e-02_rb,0.15276e-01_rb,0.17808e-01_rb,0.17830e-01_rb,0.12181e-01_rb /)\n      kbo(:, 3,14, 8) = (/ &\n        & 0.71113e-02_rb,0.15604e-01_rb,0.18240e-01_rb,0.18321e-01_rb,0.12544e-01_rb /)\n      kbo(:, 4,14, 8) = (/ &\n        & 0.71580e-02_rb,0.15937e-01_rb,0.18667e-01_rb,0.18814e-01_rb,0.12884e-01_rb /)\n      kbo(:, 5,14, 8) = (/ &\n        & 0.71785e-02_rb,0.16228e-01_rb,0.19093e-01_rb,0.19299e-01_rb,0.13230e-01_rb /)\n      kbo(:, 1,15, 8) = (/ &\n        & 0.57307e-02_rb,0.12763e-01_rb,0.14890e-01_rb,0.14912e-01_rb,0.10073e-01_rb /)\n      kbo(:, 2,15, 8) = (/ &\n        & 0.58017e-02_rb,0.13052e-01_rb,0.15278e-01_rb,0.15370e-01_rb,0.10417e-01_rb /)\n      kbo(:, 3,15, 8) = (/ &\n        & 0.58533e-02_rb,0.13347e-01_rb,0.15666e-01_rb,0.15828e-01_rb,0.10742e-01_rb /)\n      kbo(:, 4,15, 8) = (/ &\n        & 0.58826e-02_rb,0.13628e-01_rb,0.16057e-01_rb,0.16289e-01_rb,0.11066e-01_rb /)\n      kbo(:, 5,15, 8) = (/ &\n        & 0.58933e-02_rb,0.13873e-01_rb,0.16444e-01_rb,0.16739e-01_rb,0.11388e-01_rb /)\n      kbo(:, 1,16, 8) = (/ &\n        & 0.47247e-02_rb,0.10863e-01_rb,0.12723e-01_rb,0.12788e-01_rb,0.85822e-02_rb /)\n      kbo(:, 2,16, 8) = (/ &\n        & 0.47755e-02_rb,0.11124e-01_rb,0.13076e-01_rb,0.13211e-01_rb,0.88907e-02_rb /)\n      kbo(:, 3,16, 8) = (/ &\n        & 0.48095e-02_rb,0.11385e-01_rb,0.13431e-01_rb,0.13641e-01_rb,0.91903e-02_rb /)\n      kbo(:, 4,16, 8) = (/ &\n        & 0.48283e-02_rb,0.11622e-01_rb,0.13790e-01_rb,0.14066e-01_rb,0.94912e-02_rb /)\n      kbo(:, 5,16, 8) = (/ &\n        & 0.48333e-02_rb,0.11841e-01_rb,0.14135e-01_rb,0.14487e-01_rb,0.97938e-02_rb /)\n      kbo(:, 1,17, 8) = (/ &\n        & 0.38881e-02_rb,0.92313e-02_rb,0.10848e-01_rb,0.10942e-01_rb,0.73006e-02_rb /)\n      kbo(:, 2,17, 8) = (/ &\n        & 0.39238e-02_rb,0.94601e-02_rb,0.11171e-01_rb,0.11333e-01_rb,0.75792e-02_rb /)\n      kbo(:, 3,17, 8) = (/ &\n        & 0.39468e-02_rb,0.96874e-02_rb,0.11500e-01_rb,0.11732e-01_rb,0.78560e-02_rb /)\n      kbo(:, 4,17, 8) = (/ &\n        & 0.39590e-02_rb,0.98962e-02_rb,0.11826e-01_rb,0.12129e-01_rb,0.81376e-02_rb /)\n      kbo(:, 5,17, 8) = (/ &\n        & 0.39612e-02_rb,0.10094e-01_rb,0.12144e-01_rb,0.12521e-01_rb,0.84293e-02_rb /)\n      kbo(:, 1,18, 8) = (/ &\n        & 0.31953e-02_rb,0.78309e-02_rb,0.92361e-02_rb,0.93523e-02_rb,0.62048e-02_rb /)\n      kbo(:, 2,18, 8) = (/ &\n        & 0.32208e-02_rb,0.80372e-02_rb,0.95350e-02_rb,0.97148e-02_rb,0.64590e-02_rb /)\n      kbo(:, 3,18, 8) = (/ &\n        & 0.32365e-02_rb,0.82342e-02_rb,0.98382e-02_rb,0.10082e-01_rb,0.67154e-02_rb /)\n      kbo(:, 4,18, 8) = (/ &\n        & 0.32447e-02_rb,0.84229e-02_rb,0.10138e-01_rb,0.10450e-01_rb,0.69838e-02_rb /)\n      kbo(:, 5,18, 8) = (/ &\n        & 0.32450e-02_rb,0.86061e-02_rb,0.10427e-01_rb,0.10814e-01_rb,0.72626e-02_rb /)\n      kbo(:, 1,19, 8) = (/ &\n        & 0.26235e-02_rb,0.66399e-02_rb,0.78599e-02_rb,0.79875e-02_rb,0.52728e-02_rb /)\n      kbo(:, 2,19, 8) = (/ &\n        & 0.26414e-02_rb,0.68231e-02_rb,0.81351e-02_rb,0.83230e-02_rb,0.55070e-02_rb /)\n      kbo(:, 3,19, 8) = (/ &\n        & 0.26530e-02_rb,0.70004e-02_rb,0.84138e-02_rb,0.86629e-02_rb,0.57468e-02_rb /)\n      kbo(:, 4,19, 8) = (/ &\n        & 0.26583e-02_rb,0.71756e-02_rb,0.86887e-02_rb,0.90029e-02_rb,0.60006e-02_rb /)\n      kbo(:, 5,19, 8) = (/ &\n        & 0.26573e-02_rb,0.73457e-02_rb,0.89549e-02_rb,0.93422e-02_rb,0.62658e-02_rb /)\n      kbo(:, 1,20, 8) = (/ &\n        & 0.21528e-02_rb,0.56300e-02_rb,0.66928e-02_rb,0.68275e-02_rb,0.44887e-02_rb /)\n      kbo(:, 2,20, 8) = (/ &\n        & 0.21659e-02_rb,0.57965e-02_rb,0.69483e-02_rb,0.71374e-02_rb,0.47044e-02_rb /)\n      kbo(:, 3,20, 8) = (/ &\n        & 0.21742e-02_rb,0.59617e-02_rb,0.72036e-02_rb,0.74503e-02_rb,0.49314e-02_rb /)\n      kbo(:, 4,20, 8) = (/ &\n        & 0.21777e-02_rb,0.61251e-02_rb,0.74562e-02_rb,0.77657e-02_rb,0.51700e-02_rb /)\n      kbo(:, 5,20, 8) = (/ &\n        & 0.21757e-02_rb,0.62850e-02_rb,0.77065e-02_rb,0.80891e-02_rb,0.54225e-02_rb /)\n      kbo(:, 1,21, 8) = (/ &\n        & 0.17659e-02_rb,0.47778e-02_rb,0.57054e-02_rb,0.58417e-02_rb,0.38271e-02_rb /)\n      kbo(:, 2,21, 8) = (/ &\n        & 0.17754e-02_rb,0.49299e-02_rb,0.59393e-02_rb,0.61257e-02_rb,0.40264e-02_rb /)\n      kbo(:, 3,21, 8) = (/ &\n        & 0.17817e-02_rb,0.50836e-02_rb,0.61750e-02_rb,0.64148e-02_rb,0.42397e-02_rb /)\n      kbo(:, 4,21, 8) = (/ &\n        & 0.17836e-02_rb,0.52370e-02_rb,0.64083e-02_rb,0.67125e-02_rb,0.44647e-02_rb /)\n      kbo(:, 5,21, 8) = (/ &\n        & 0.17811e-02_rb,0.53876e-02_rb,0.66480e-02_rb,0.70201e-02_rb,0.47076e-02_rb /)\n      kbo(:, 1,22, 8) = (/ &\n        & 0.14486e-02_rb,0.40679e-02_rb,0.48826e-02_rb,0.50205e-02_rb,0.32805e-02_rb /)\n      kbo(:, 2,22, 8) = (/ &\n        & 0.14554e-02_rb,0.42085e-02_rb,0.50980e-02_rb,0.52827e-02_rb,0.34669e-02_rb /)\n      kbo(:, 3,22, 8) = (/ &\n        & 0.14597e-02_rb,0.43515e-02_rb,0.53153e-02_rb,0.55535e-02_rb,0.36674e-02_rb /)\n      kbo(:, 4,22, 8) = (/ &\n        & 0.14606e-02_rb,0.44957e-02_rb,0.55353e-02_rb,0.58376e-02_rb,0.38816e-02_rb /)\n      kbo(:, 5,22, 8) = (/ &\n        & 0.14577e-02_rb,0.46383e-02_rb,0.57672e-02_rb,0.61302e-02_rb,0.41156e-02_rb /)\n      kbo(:, 1,23, 8) = (/ &\n        & 0.11880e-02_rb,0.34698e-02_rb,0.41861e-02_rb,0.43248e-02_rb,0.28199e-02_rb /)\n      kbo(:, 2,23, 8) = (/ &\n        & 0.11929e-02_rb,0.36010e-02_rb,0.43862e-02_rb,0.45689e-02_rb,0.29956e-02_rb /)\n      kbo(:, 3,23, 8) = (/ &\n        & 0.11958e-02_rb,0.37344e-02_rb,0.45877e-02_rb,0.48273e-02_rb,0.31843e-02_rb /)\n      kbo(:, 4,23, 8) = (/ &\n        & 0.11959e-02_rb,0.38697e-02_rb,0.48007e-02_rb,0.50965e-02_rb,0.33903e-02_rb /)\n      kbo(:, 5,23, 8) = (/ &\n        & 0.11929e-02_rb,0.40068e-02_rb,0.50232e-02_rb,0.53791e-02_rb,0.36136e-02_rb /)\n      kbo(:, 1,24, 8) = (/ &\n        & 0.97406e-03_rb,0.29675e-02_rb,0.36006e-02_rb,0.37379e-02_rb,0.24344e-02_rb /)\n      kbo(:, 2,24, 8) = (/ &\n        & 0.97756e-03_rb,0.30896e-02_rb,0.37850e-02_rb,0.39686e-02_rb,0.25994e-02_rb /)\n      kbo(:, 3,24, 8) = (/ &\n        & 0.97946e-03_rb,0.32150e-02_rb,0.39775e-02_rb,0.42135e-02_rb,0.27776e-02_rb /)\n      kbo(:, 4,24, 8) = (/ &\n        & 0.97899e-03_rb,0.33430e-02_rb,0.41825e-02_rb,0.44708e-02_rb,0.29753e-02_rb /)\n      kbo(:, 5,24, 8) = (/ &\n        & 0.97615e-03_rb,0.34761e-02_rb,0.43966e-02_rb,0.47457e-02_rb,0.31900e-02_rb /)\n      kbo(:, 1,25, 8) = (/ &\n        & 0.79856e-03_rb,0.25459e-02_rb,0.31077e-02_rb,0.32447e-02_rb,0.21114e-02_rb /)\n      kbo(:, 2,25, 8) = (/ &\n        & 0.80110e-03_rb,0.26605e-02_rb,0.32805e-02_rb,0.34640e-02_rb,0.22664e-02_rb /)\n      kbo(:, 3,25, 8) = (/ &\n        & 0.80222e-03_rb,0.27778e-02_rb,0.34666e-02_rb,0.36958e-02_rb,0.24376e-02_rb /)\n      kbo(:, 4,25, 8) = (/ &\n        & 0.80129e-03_rb,0.29014e-02_rb,0.36623e-02_rb,0.39444e-02_rb,0.26269e-02_rb /)\n      kbo(:, 5,25, 8) = (/ &\n        & 0.79857e-03_rb,0.30302e-02_rb,0.38698e-02_rb,0.42126e-02_rb,0.28335e-02_rb /)\n      kbo(:, 1,26, 8) = (/ &\n        & 0.65460e-03_rb,0.21933e-02_rb,0.26944e-02_rb,0.28334e-02_rb,0.18417e-02_rb /)\n      kbo(:, 2,26, 8) = (/ &\n        & 0.65639e-03_rb,0.23003e-02_rb,0.28599e-02_rb,0.30409e-02_rb,0.19886e-02_rb /)\n      kbo(:, 3,26, 8) = (/ &\n        & 0.65685e-03_rb,0.24132e-02_rb,0.30384e-02_rb,0.32639e-02_rb,0.21545e-02_rb /)\n      kbo(:, 4,26, 8) = (/ &\n        & 0.65577e-03_rb,0.25323e-02_rb,0.32275e-02_rb,0.35055e-02_rb,0.23366e-02_rb /)\n      kbo(:, 5,26, 8) = (/ &\n        & 0.65325e-03_rb,0.26572e-02_rb,0.34294e-02_rb,0.37687e-02_rb,0.25365e-02_rb /)\n      kbo(:, 1,27, 8) = (/ &\n        & 0.53655e-03_rb,0.18966e-02_rb,0.23474e-02_rb,0.24873e-02_rb,0.16142e-02_rb /)\n      kbo(:, 2,27, 8) = (/ &\n        & 0.53777e-03_rb,0.19979e-02_rb,0.25069e-02_rb,0.26849e-02_rb,0.17570e-02_rb /)\n      kbo(:, 3,27, 8) = (/ &\n        & 0.53783e-03_rb,0.21070e-02_rb,0.26778e-02_rb,0.29010e-02_rb,0.19163e-02_rb /)\n      kbo(:, 4,27, 8) = (/ &\n        & 0.53661e-03_rb,0.22218e-02_rb,0.28609e-02_rb,0.31373e-02_rb,0.20925e-02_rb /)\n      kbo(:, 5,27, 8) = (/ &\n        & 0.53426e-03_rb,0.23437e-02_rb,0.30591e-02_rb,0.33953e-02_rb,0.22871e-02_rb /)\n      kbo(:, 1,28, 8) = (/ &\n        & 0.43973e-03_rb,0.16467e-02_rb,0.20564e-02_rb,0.21950e-02_rb,0.14243e-02_rb /)\n      kbo(:, 2,28, 8) = (/ &\n        & 0.44046e-03_rb,0.17445e-02_rb,0.22094e-02_rb,0.23854e-02_rb,0.15622e-02_rb /)\n      kbo(:, 3,28, 8) = (/ &\n        & 0.44027e-03_rb,0.18495e-02_rb,0.23737e-02_rb,0.25954e-02_rb,0.17160e-02_rb /)\n      kbo(:, 4,28, 8) = (/ &\n        & 0.43902e-03_rb,0.19607e-02_rb,0.25527e-02_rb,0.28280e-02_rb,0.18875e-02_rb /)\n      kbo(:, 5,28, 8) = (/ &\n        & 0.43690e-03_rb,0.20797e-02_rb,0.27483e-02_rb,0.30809e-02_rb,0.20783e-02_rb /)\n      kbo(:, 1,29, 8) = (/ &\n        & 0.36035e-03_rb,0.14377e-02_rb,0.18129e-02_rb,0.19502e-02_rb,0.12665e-02_rb /)\n      kbo(:, 2,29, 8) = (/ &\n        & 0.36078e-03_rb,0.15322e-02_rb,0.19593e-02_rb,0.21346e-02_rb,0.13993e-02_rb /)\n      kbo(:, 3,29, 8) = (/ &\n        & 0.36035e-03_rb,0.16333e-02_rb,0.21194e-02_rb,0.23407e-02_rb,0.15489e-02_rb /)\n      kbo(:, 4,29, 8) = (/ &\n        & 0.35917e-03_rb,0.17416e-02_rb,0.22958e-02_rb,0.25693e-02_rb,0.17169e-02_rb /)\n      kbo(:, 5,29, 8) = (/ &\n        & 0.35722e-03_rb,0.18583e-02_rb,0.24893e-02_rb,0.28199e-02_rb,0.19058e-02_rb /)\n      kbo(:, 1,30, 8) = (/ &\n        & 0.29522e-03_rb,0.12625e-02_rb,0.16073e-02_rb,0.17444e-02_rb,0.11337e-02_rb /)\n      kbo(:, 2,30, 8) = (/ &\n        & 0.29544e-03_rb,0.13534e-02_rb,0.17493e-02_rb,0.19248e-02_rb,0.12629e-02_rb /)\n      kbo(:, 3,30, 8) = (/ &\n        & 0.29489e-03_rb,0.14513e-02_rb,0.19064e-02_rb,0.21281e-02_rb,0.14093e-02_rb /)\n      kbo(:, 4,30, 8) = (/ &\n        & 0.29377e-03_rb,0.15575e-02_rb,0.20813e-02_rb,0.23536e-02_rb,0.15751e-02_rb /)\n      kbo(:, 5,30, 8) = (/ &\n        & 0.29201e-03_rb,0.16725e-02_rb,0.22728e-02_rb,0.26031e-02_rb,0.17633e-02_rb /)\n      kbo(:, 1,31, 8) = (/ &\n        & 0.24186e-03_rb,0.11155e-02_rb,0.14353e-02_rb,0.15729e-02_rb,0.10232e-02_rb /)\n      kbo(:, 2,31, 8) = (/ &\n        & 0.24189e-03_rb,0.12032e-02_rb,0.15739e-02_rb,0.17508e-02_rb,0.11498e-02_rb /)\n      kbo(:, 3,31, 8) = (/ &\n        & 0.24130e-03_rb,0.12988e-02_rb,0.17296e-02_rb,0.19516e-02_rb,0.12942e-02_rb /)\n      kbo(:, 4,31, 8) = (/ &\n        & 0.24025e-03_rb,0.14034e-02_rb,0.19030e-02_rb,0.21764e-02_rb,0.14594e-02_rb /)\n      kbo(:, 5,31, 8) = (/ &\n        & 0.23866e-03_rb,0.15170e-02_rb,0.20940e-02_rb,0.24270e-02_rb,0.16471e-02_rb /)\n      kbo(:, 1,32, 8) = (/ &\n        & 0.19811e-03_rb,0.99188e-03_rb,0.12914e-02_rb,0.14311e-02_rb,0.93157e-03_rb /)\n      kbo(:, 2,32, 8) = (/ &\n        & 0.19799e-03_rb,0.10771e-02_rb,0.14282e-02_rb,0.16073e-02_rb,0.10562e-02_rb /)\n      kbo(:, 3,32, 8) = (/ &\n        & 0.19741e-03_rb,0.11711e-02_rb,0.15828e-02_rb,0.18068e-02_rb,0.11999e-02_rb /)\n      kbo(:, 4,32, 8) = (/ &\n        & 0.19645e-03_rb,0.12746e-02_rb,0.17559e-02_rb,0.20320e-02_rb,0.13654e-02_rb /)\n      kbo(:, 5,32, 8) = (/ &\n        & 0.19503e-03_rb,0.13871e-02_rb,0.19473e-02_rb,0.22851e-02_rb,0.15533e-02_rb /)\n      kbo(:, 1,33, 8) = (/ &\n        & 0.16225e-03_rb,0.88803e-03_rb,0.11717e-02_rb,0.13138e-02_rb,0.85556e-03_rb /)\n      kbo(:, 2,33, 8) = (/ &\n        & 0.16205e-03_rb,0.97174e-03_rb,0.13077e-02_rb,0.14890e-02_rb,0.97930e-03_rb /)\n      kbo(:, 3,33, 8) = (/ &\n        & 0.16148e-03_rb,0.10648e-02_rb,0.14621e-02_rb,0.16891e-02_rb,0.11237e-02_rb /)\n      kbo(:, 4,33, 8) = (/ &\n        & 0.16059e-03_rb,0.11673e-02_rb,0.16357e-02_rb,0.19165e-02_rb,0.12896e-02_rb /)\n      kbo(:, 5,33, 8) = (/ &\n        & 0.15934e-03_rb,0.12795e-02_rb,0.18288e-02_rb,0.21736e-02_rb,0.14791e-02_rb /)\n      kbo(:, 1,34, 8) = (/ &\n        & 0.13286e-03_rb,0.79835e-03_rb,0.10683e-02_rb,0.12117e-02_rb,0.78908e-03_rb /)\n      kbo(:, 2,34, 8) = (/ &\n        & 0.13261e-03_rb,0.88066e-03_rb,0.12036e-02_rb,0.13865e-02_rb,0.91252e-03_rb /)\n      kbo(:, 3,34, 8) = (/ &\n        & 0.13209e-03_rb,0.97270e-03_rb,0.13580e-02_rb,0.15871e-02_rb,0.10570e-02_rb /)\n      kbo(:, 4,34, 8) = (/ &\n        & 0.13130e-03_rb,0.10748e-02_rb,0.15318e-02_rb,0.18171e-02_rb,0.12236e-02_rb /)\n      kbo(:, 5,34, 8) = (/ &\n        & 0.13022e-03_rb,0.11866e-02_rb,0.17264e-02_rb,0.20786e-02_rb,0.14148e-02_rb /)\n      kbo(:, 1,35, 8) = (/ &\n        & 0.10879e-03_rb,0.71567e-03_rb,0.97075e-03_rb,0.11118e-02_rb,0.72353e-03_rb /)\n      kbo(:, 2,35, 8) = (/ &\n        & 0.10855e-03_rb,0.79625e-03_rb,0.11041e-02_rb,0.12845e-02_rb,0.84540e-03_rb /)\n      kbo(:, 3,35, 8) = (/ &\n        & 0.10811e-03_rb,0.88686e-03_rb,0.12569e-02_rb,0.14847e-02_rb,0.98831e-03_rb /)\n      kbo(:, 4,35, 8) = (/ &\n        & 0.10743e-03_rb,0.98761e-03_rb,0.14300e-02_rb,0.17157e-02_rb,0.11541e-02_rb /)\n      kbo(:, 5,35, 8) = (/ &\n        & 0.10650e-03_rb,0.10987e-02_rb,0.16251e-02_rb,0.19799e-02_rb,0.13460e-02_rb /)\n      kbo(:, 1,36, 8) = (/ &\n        & 0.89091e-04_rb,0.63773e-03_rb,0.87525e-03_rb,0.10106e-02_rb,0.65643e-03_rb /)\n      kbo(:, 2,36, 8) = (/ &\n        & 0.88892e-04_rb,0.71572e-03_rb,0.10050e-02_rb,0.11794e-02_rb,0.77482e-03_rb /)\n      kbo(:, 3,36, 8) = (/ &\n        & 0.88510e-04_rb,0.80390e-03_rb,0.11544e-02_rb,0.13768e-02_rb,0.91437e-03_rb /)\n      kbo(:, 4,36, 8) = (/ &\n        & 0.87951e-04_rb,0.90253e-03_rb,0.13255e-02_rb,0.16063e-02_rb,0.10779e-02_rb /)\n      kbo(:, 5,36, 8) = (/ &\n        & 0.87175e-04_rb,0.10120e-02_rb,0.15187e-02_rb,0.18703e-02_rb,0.12677e-02_rb /)\n      kbo(:, 1,37, 8) = (/ &\n        & 0.72967e-04_rb,0.56051e-03_rb,0.77586e-03_rb,0.90139e-03_rb,0.58319e-03_rb /)\n      kbo(:, 2,37, 8) = (/ &\n        & 0.72818e-04_rb,0.63459e-03_rb,0.89962e-03_rb,0.10627e-02_rb,0.69545e-03_rb /)\n      kbo(:, 3,37, 8) = (/ &\n        & 0.72523e-04_rb,0.71909e-03_rb,0.10433e-02_rb,0.12533e-02_rb,0.82896e-03_rb /)\n      kbo(:, 4,37, 8) = (/ &\n        & 0.72087e-04_rb,0.81427e-03_rb,0.12092e-02_rb,0.14766e-02_rb,0.98671e-03_rb /)\n      kbo(:, 5,37, 8) = (/ &\n        & 0.71486e-04_rb,0.92093e-03_rb,0.13977e-02_rb,0.17355e-02_rb,0.11708e-02_rb /)\n      kbo(:, 1,38, 8) = (/ &\n        & 0.59765e-04_rb,0.49320e-03_rb,0.68844e-03_rb,0.80478e-03_rb,0.51849e-03_rb /)\n      kbo(:, 2,38, 8) = (/ &\n        & 0.59660e-04_rb,0.56354e-03_rb,0.80640e-03_rb,0.95876e-03_rb,0.62466e-03_rb /)\n      kbo(:, 3,38, 8) = (/ &\n        & 0.59436e-04_rb,0.64440e-03_rb,0.94454e-03_rb,0.11426e-02_rb,0.75236e-03_rb /)\n      kbo(:, 4,38, 8) = (/ &\n        & 0.59102e-04_rb,0.73631e-03_rb,0.11052e-02_rb,0.13599e-02_rb,0.90433e-03_rb /)\n      kbo(:, 5,38, 8) = (/ &\n        & 0.58635e-04_rb,0.84009e-03_rb,0.12891e-02_rb,0.16134e-02_rb,0.10829e-02_rb /)\n      kbo(:, 1,39, 8) = (/ &\n        & 0.48956e-04_rb,0.43499e-03_rb,0.61231e-03_rb,0.72017e-03_rb,0.46189e-03_rb /)\n      kbo(:, 2,39, 8) = (/ &\n        & 0.48890e-04_rb,0.50181e-03_rb,0.72478e-03_rb,0.86730e-03_rb,0.56244e-03_rb /)\n      kbo(:, 3,39, 8) = (/ &\n        & 0.48717e-04_rb,0.57923e-03_rb,0.85778e-03_rb,0.10448e-02_rb,0.68464e-03_rb /)\n      kbo(:, 4,39, 8) = (/ &\n        & 0.48451e-04_rb,0.66799e-03_rb,0.10132e-02_rb,0.12563e-02_rb,0.83112e-03_rb /)\n      kbo(:, 5,39, 8) = (/ &\n        & 0.48085e-04_rb,0.76898e-03_rb,0.11928e-02_rb,0.15047e-02_rb,0.10044e-02_rb /)\n      kbo(:, 1,40, 8) = (/ &\n        & 0.40107e-04_rb,0.37860e-03_rb,0.53596e-03_rb,0.63302e-03_rb,0.40350e-03_rb /)\n      kbo(:, 2,40, 8) = (/ &\n        & 0.40068e-04_rb,0.44099e-03_rb,0.64126e-03_rb,0.77105e-03_rb,0.49697e-03_rb /)\n      kbo(:, 3,40, 8) = (/ &\n        & 0.39945e-04_rb,0.51399e-03_rb,0.76694e-03_rb,0.93934e-03_rb,0.61166e-03_rb /)\n      kbo(:, 4,40, 8) = (/ &\n        & 0.39752e-04_rb,0.59851e-03_rb,0.91528e-03_rb,0.11416e-02_rb,0.75037e-03_rb /)\n      kbo(:, 5,40, 8) = (/ &\n        & 0.39469e-04_rb,0.69544e-03_rb,0.10880e-02_rb,0.13809e-02_rb,0.91593e-03_rb /)\n      kbo(:, 1,41, 8) = (/ &\n        & 0.32851e-04_rb,0.32878e-03_rb,0.46786e-03_rb,0.55469e-03_rb,0.35120e-03_rb /)\n      kbo(:, 2,41, 8) = (/ &\n        & 0.32839e-04_rb,0.38683e-03_rb,0.56607e-03_rb,0.68394e-03_rb,0.43769e-03_rb /)\n      kbo(:, 3,41, 8) = (/ &\n        & 0.32749e-04_rb,0.45542e-03_rb,0.68444e-03_rb,0.84259e-03_rb,0.54490e-03_rb /)\n      kbo(:, 4,41, 8) = (/ &\n        & 0.32607e-04_rb,0.53564e-03_rb,0.82547e-03_rb,0.10352e-02_rb,0.67585e-03_rb /)\n      kbo(:, 5,41, 8) = (/ &\n        & 0.32395e-04_rb,0.62841e-03_rb,0.99133e-03_rb,0.12652e-02_rb,0.83332e-03_rb /)\n      kbo(:, 1,42, 8) = (/ &\n        & 0.26906e-04_rb,0.28534e-03_rb,0.40805e-03_rb,0.48535e-03_rb,0.30526e-03_rb /)\n      kbo(:, 2,42, 8) = (/ &\n        & 0.26908e-04_rb,0.33922e-03_rb,0.49950e-03_rb,0.60603e-03_rb,0.38505e-03_rb /)\n      kbo(:, 3,42, 8) = (/ &\n        & 0.26846e-04_rb,0.40361e-03_rb,0.61076e-03_rb,0.75564e-03_rb,0.48524e-03_rb /)\n      kbo(:, 4,42, 8) = (/ &\n        & 0.26739e-04_rb,0.47953e-03_rb,0.74454e-03_rb,0.93882e-03_rb,0.60861e-03_rb /)\n      kbo(:, 5,42, 8) = (/ &\n        & 0.26585e-04_rb,0.56816e-03_rb,0.90363e-03_rb,0.11597e-02_rb,0.75829e-03_rb /)\n      kbo(:, 1,43, 8) = (/ &\n        & 0.22034e-04_rb,0.24494e-03_rb,0.35126e-03_rb,0.41862e-03_rb,0.26133e-03_rb /)\n      kbo(:, 2,43, 8) = (/ &\n        & 0.22045e-04_rb,0.29428e-03_rb,0.43526e-03_rb,0.52960e-03_rb,0.33379e-03_rb /)\n      kbo(:, 3,43, 8) = (/ &\n        & 0.22009e-04_rb,0.35394e-03_rb,0.53838e-03_rb,0.66893e-03_rb,0.42599e-03_rb /)\n      kbo(:, 4,43, 8) = (/ &\n        & 0.21933e-04_rb,0.42510e-03_rb,0.66392e-03_rb,0.84090e-03_rb,0.54061e-03_rb /)\n      kbo(:, 5,43, 8) = (/ &\n        & 0.21820e-04_rb,0.50878e-03_rb,0.81474e-03_rb,0.10503e-02_rb,0.68139e-03_rb /)\n      kbo(:, 1,44, 8) = (/ &\n        & 0.18042e-04_rb,0.20878e-03_rb,0.29988e-03_rb,0.35782e-03_rb,0.22160e-03_rb /)\n      kbo(:, 2,44, 8) = (/ &\n        & 0.18058e-04_rb,0.25360e-03_rb,0.37621e-03_rb,0.45875e-03_rb,0.28670e-03_rb /)\n      kbo(:, 3,44, 8) = (/ &\n        & 0.18041e-04_rb,0.30845e-03_rb,0.47123e-03_rb,0.58727e-03_rb,0.37070e-03_rb /)\n      kbo(:, 4,44, 8) = (/ &\n        & 0.17989e-04_rb,0.37459e-03_rb,0.58804e-03_rb,0.74739e-03_rb,0.47650e-03_rb /)\n      kbo(:, 5,44, 8) = (/ &\n        & 0.17906e-04_rb,0.45317e-03_rb,0.73003e-03_rb,0.94454e-03_rb,0.60768e-03_rb /)\n      kbo(:, 1,45, 8) = (/ &\n        & 0.14770e-04_rb,0.17743e-03_rb,0.25518e-03_rb,0.30461e-03_rb,0.18718e-03_rb /)\n      kbo(:, 2,45, 8) = (/ &\n        & 0.14790e-04_rb,0.21794e-03_rb,0.32424e-03_rb,0.39603e-03_rb,0.24534e-03_rb /)\n      kbo(:, 3,45, 8) = (/ &\n        & 0.14785e-04_rb,0.26822e-03_rb,0.41132e-03_rb,0.51406e-03_rb,0.32158e-03_rb /)\n      kbo(:, 4,45, 8) = (/ &\n        & 0.14751e-04_rb,0.32948e-03_rb,0.51968e-03_rb,0.66288e-03_rb,0.41889e-03_rb /)\n      kbo(:, 5,45, 8) = (/ &\n        & 0.14692e-04_rb,0.40309e-03_rb,0.65298e-03_rb,0.84795e-03_rb,0.54078e-03_rb /)\n      kbo(:, 1,46, 8) = (/ &\n        & 0.12091e-04_rb,0.14956e-03_rb,0.21507e-03_rb,0.25664e-03_rb,0.15641e-03_rb /)\n      kbo(:, 2,46, 8) = (/ &\n        & 0.12112e-04_rb,0.18585e-03_rb,0.27689e-03_rb,0.33853e-03_rb,0.20778e-03_rb /)\n      kbo(:, 3,46, 8) = (/ &\n        & 0.12113e-04_rb,0.23156e-03_rb,0.35597e-03_rb,0.44575e-03_rb,0.27619e-03_rb /)\n      kbo(:, 4,46, 8) = (/ &\n        & 0.12094e-04_rb,0.28789e-03_rb,0.45576e-03_rb,0.58313e-03_rb,0.36492e-03_rb /)\n      kbo(:, 5,46, 8) = (/ &\n        & 0.12054e-04_rb,0.35628e-03_rb,0.57980e-03_rb,0.75523e-03_rb,0.47721e-03_rb /)\n      kbo(:, 1,47, 8) = (/ &\n        & 0.98958e-05_rb,0.12436e-03_rb,0.17838e-03_rb,0.21241e-03_rb,0.12841e-03_rb /)\n      kbo(:, 2,47, 8) = (/ &\n        & 0.99157e-05_rb,0.15633e-03_rb,0.23279e-03_rb,0.28443e-03_rb,0.17291e-03_rb /)\n      kbo(:, 3,47, 8) = (/ &\n        & 0.99224e-05_rb,0.19724e-03_rb,0.30350e-03_rb,0.38017e-03_rb,0.23323e-03_rb /)\n      kbo(:, 4,47, 8) = (/ &\n        & 0.99150e-05_rb,0.24831e-03_rb,0.39396e-03_rb,0.50488e-03_rb,0.31274e-03_rb /)\n      kbo(:, 5,47, 8) = (/ &\n        & 0.98881e-05_rb,0.31110e-03_rb,0.50788e-03_rb,0.66304e-03_rb,0.41485e-03_rb /)\n      kbo(:, 1,48, 8) = (/ &\n        & 0.80981e-05_rb,0.10284e-03_rb,0.14701e-03_rb,0.17457e-03_rb,0.10464e-03_rb /)\n      kbo(:, 2,48, 8) = (/ &\n        & 0.81170e-05_rb,0.13083e-03_rb,0.19452e-03_rb,0.23734e-03_rb,0.14298e-03_rb /)\n      kbo(:, 3,48, 8) = (/ &\n        & 0.81254e-05_rb,0.16716e-03_rb,0.25727e-03_rb,0.32230e-03_rb,0.19565e-03_rb /)\n      kbo(:, 4,48, 8) = (/ &\n        & 0.81253e-05_rb,0.21328e-03_rb,0.33887e-03_rb,0.43475e-03_rb,0.26652e-03_rb /)\n      kbo(:, 5,48, 8) = (/ &\n        & 0.81092e-05_rb,0.27062e-03_rb,0.44301e-03_rb,0.57972e-03_rb,0.35887e-03_rb /)\n      kbo(:, 1,49, 8) = (/ &\n        & 0.66262e-05_rb,0.84542e-04_rb,0.12034e-03_rb,0.14245e-03_rb,0.84636e-04_rb /)\n      kbo(:, 2,49, 8) = (/ &\n        & 0.66435e-05_rb,0.10903e-03_rb,0.16168e-03_rb,0.19686e-03_rb,0.11740e-03_rb /)\n      kbo(:, 3,49, 8) = (/ &\n        & 0.66527e-05_rb,0.14092e-03_rb,0.21685e-03_rb,0.27156e-03_rb,0.16309e-03_rb /)\n      kbo(:, 4,49, 8) = (/ &\n        & 0.66567e-05_rb,0.18229e-03_rb,0.28989e-03_rb,0.37214e-03_rb,0.22572e-03_rb /)\n      kbo(:, 5,49, 8) = (/ &\n        & 0.66489e-05_rb,0.23443e-03_rb,0.38461e-03_rb,0.50418e-03_rb,0.30883e-03_rb /)\n      kbo(:, 1,50, 8) = (/ &\n        & 0.54202e-05_rb,0.69608e-04_rb,0.98680e-04_rb,0.11646e-03_rb,0.68510e-04_rb /)\n      kbo(:, 2,50, 8) = (/ &\n        & 0.54374e-05_rb,0.90802e-04_rb,0.13434e-03_rb,0.16330e-03_rb,0.96499e-04_rb /)\n      kbo(:, 3,50, 8) = (/ &\n        & 0.54475e-05_rb,0.11916e-03_rb,0.18327e-03_rb,0.22932e-03_rb,0.13620e-03_rb /)\n      kbo(:, 4,50, 8) = (/ &\n        & 0.54521e-05_rb,0.15608e-03_rb,0.24845e-03_rb,0.31928e-03_rb,0.19154e-03_rb /)\n      kbo(:, 5,50, 8) = (/ &\n        & 0.54498e-05_rb,0.20348e-03_rb,0.33466e-03_rb,0.43937e-03_rb,0.26626e-03_rb /)\n      kbo(:, 1,51, 8) = (/ &\n        & 0.44351e-05_rb,0.57088e-04_rb,0.80582e-04_rb,0.94790e-04_rb,0.55250e-04_rb /)\n      kbo(:, 2,51, 8) = (/ &\n        & 0.44504e-05_rb,0.75435e-04_rb,0.11131e-03_rb,0.13503e-03_rb,0.79024e-04_rb /)\n      kbo(:, 3,51, 8) = (/ &\n        & 0.44599e-05_rb,0.10037e-03_rb,0.15428e-03_rb,0.19291e-03_rb,0.11343e-03_rb /)\n      kbo(:, 4,51, 8) = (/ &\n        & 0.44651e-05_rb,0.13336e-03_rb,0.21252e-03_rb,0.27335e-03_rb,0.16218e-03_rb /)\n      kbo(:, 5,51, 8) = (/ &\n        & 0.44653e-05_rb,0.17640e-03_rb,0.29075e-03_rb,0.38229e-03_rb,0.22923e-03_rb /)\n      kbo(:, 1,52, 8) = (/ &\n        & 0.36290e-05_rb,0.46565e-04_rb,0.65364e-04_rb,0.76598e-04_rb,0.44240e-04_rb /)\n      kbo(:, 2,52, 8) = (/ &\n        & 0.36420e-05_rb,0.62314e-04_rb,0.91644e-04_rb,0.11090e-03_rb,0.64234e-04_rb /)\n      kbo(:, 3,52, 8) = (/ &\n        & 0.36509e-05_rb,0.84102e-04_rb,0.12910e-03_rb,0.16125e-03_rb,0.93833e-04_rb /)\n      kbo(:, 4,52, 8) = (/ &\n        & 0.36555e-05_rb,0.11362e-03_rb,0.18115e-03_rb,0.23297e-03_rb,0.13657e-03_rb /)\n      kbo(:, 5,52, 8) = (/ &\n        & 0.36579e-05_rb,0.15226e-03_rb,0.25136e-03_rb,0.33099e-03_rb,0.19621e-03_rb /)\n      kbo(:, 1,53, 8) = (/ &\n        & 0.29692e-05_rb,0.37746e-04_rb,0.52632e-04_rb,0.61397e-04_rb,0.35165e-04_rb /)\n      kbo(:, 2,53, 8) = (/ &\n        & 0.29808e-05_rb,0.51149e-04_rb,0.74879e-04_rb,0.90335e-04_rb,0.51807e-04_rb /)\n      kbo(:, 3,53, 8) = (/ &\n        & 0.29880e-05_rb,0.70028e-04_rb,0.10724e-03_rb,0.13375e-03_rb,0.77010e-04_rb /)\n      kbo(:, 4,53, 8) = (/ &\n        & 0.29931e-05_rb,0.96105e-04_rb,0.15314e-03_rb,0.19689e-03_rb,0.11417e-03_rb /)\n      kbo(:, 5,53, 8) = (/ &\n        & 0.29959e-05_rb,0.13074e-03_rb,0.21612e-03_rb,0.28492e-03_rb,0.16697e-03_rb /)\n      kbo(:, 1,54, 8) = (/ &\n        & 0.24296e-05_rb,0.30698e-04_rb,0.42544e-04_rb,0.49406e-04_rb,0.28072e-04_rb /)\n      kbo(:, 2,54, 8) = (/ &\n        & 0.24393e-05_rb,0.42122e-04_rb,0.61454e-04_rb,0.73927e-04_rb,0.41964e-04_rb /)\n      kbo(:, 3,54, 8) = (/ &\n        & 0.24460e-05_rb,0.58528e-04_rb,0.89500e-04_rb,0.11146e-03_rb,0.63503e-04_rb /)\n      kbo(:, 4,54, 8) = (/ &\n        & 0.24507e-05_rb,0.81611e-04_rb,0.13009e-03_rb,0.16728e-03_rb,0.95947e-04_rb /)\n      kbo(:, 5,54, 8) = (/ &\n        & 0.24535e-05_rb,0.11276e-03_rb,0.18682e-03_rb,0.24654e-03_rb,0.14286e-03_rb /)\n      kbo(:, 1,55, 8) = (/ &\n        & 0.19883e-05_rb,0.24921e-04_rb,0.34312e-04_rb,0.39666e-04_rb,0.22375e-04_rb /)\n      kbo(:, 2,55, 8) = (/ &\n        & 0.19963e-05_rb,0.34641e-04_rb,0.50344e-04_rb,0.60381e-04_rb,0.33942e-04_rb /)\n      kbo(:, 3,55, 8) = (/ &\n        & 0.20020e-05_rb,0.48868e-04_rb,0.74618e-04_rb,0.92809e-04_rb,0.52280e-04_rb /)\n      kbo(:, 4,55, 8) = (/ &\n        & 0.20065e-05_rb,0.69255e-04_rb,0.11042e-03_rb,0.14203e-03_rb,0.80566e-04_rb /)\n      kbo(:, 5,55, 8) = (/ &\n        & 0.20089e-05_rb,0.97527e-04_rb,0.16182e-03_rb,0.21373e-03_rb,0.12228e-03_rb /)\n      kbo(:, 1,56, 8) = (/ &\n        & 0.16268e-05_rb,0.20122e-04_rb,0.27506e-04_rb,0.31629e-04_rb,0.17718e-04_rb /)\n      kbo(:, 2,56, 8) = (/ &\n        & 0.16337e-05_rb,0.28321e-04_rb,0.40966e-04_rb,0.48960e-04_rb,0.27271e-04_rb /)\n      kbo(:, 3,56, 8) = (/ &\n        & 0.16385e-05_rb,0.40579e-04_rb,0.61828e-04_rb,0.76747e-04_rb,0.42739e-04_rb /)\n      kbo(:, 4,56, 8) = (/ &\n        & 0.16424e-05_rb,0.58490e-04_rb,0.93220e-04_rb,0.11991e-03_rb,0.67232e-04_rb /)\n      kbo(:, 5,56, 8) = (/ &\n        & 0.16450e-05_rb,0.83776e-04_rb,0.13917e-03_rb,0.18401e-03_rb,0.10406e-03_rb /)\n      kbo(:, 1,57, 8) = (/ &\n        & 0.13311e-05_rb,0.16151e-04_rb,0.21901e-04_rb,0.25044e-04_rb,0.13934e-04_rb /)\n      kbo(:, 2,57, 8) = (/ &\n        & 0.13369e-05_rb,0.23005e-04_rb,0.33083e-04_rb,0.39377e-04_rb,0.21751e-04_rb /)\n      kbo(:, 3,57, 8) = (/ &\n        & 0.13411e-05_rb,0.33501e-04_rb,0.50888e-04_rb,0.63014e-04_rb,0.34696e-04_rb /)\n      kbo(:, 4,57, 8) = (/ &\n        & 0.13443e-05_rb,0.49111e-04_rb,0.78191e-04_rb,0.10051e-03_rb,0.55711e-04_rb /)\n      kbo(:, 5,57, 8) = (/ &\n        & 0.13467e-05_rb,0.71586e-04_rb,0.11902e-03_rb,0.15744e-03_rb,0.88025e-04_rb /)\n      kbo(:, 1,58, 8) = (/ &\n        & 0.10892e-05_rb,0.12962e-04_rb,0.17443e-04_rb,0.19825e-04_rb,0.10955e-04_rb /)\n      kbo(:, 2,58, 8) = (/ &\n        & 0.10942e-05_rb,0.18688e-04_rb,0.26716e-04_rb,0.31664e-04_rb,0.17348e-04_rb /)\n      kbo(:, 3,58, 8) = (/ &\n        & 0.10976e-05_rb,0.27650e-04_rb,0.41864e-04_rb,0.51716e-04_rb,0.28159e-04_rb /)\n      kbo(:, 4,58, 8) = (/ &\n        & 0.11004e-05_rb,0.41251e-04_rb,0.65630e-04_rb,0.84299e-04_rb,0.46156e-04_rb /)\n      kbo(:, 5,58, 8) = (/ &\n        & 0.11025e-05_rb,0.61261e-04_rb,0.10196e-03_rb,0.13496e-03_rb,0.74536e-04_rb /)\n      kbo(:, 1,59, 8) = (/ &\n        & 0.89197e-06_rb,0.11047e-04_rb,0.14899e-04_rb,0.16964e-04_rb,0.92999e-05_rb /)\n      kbo(:, 2,59, 8) = (/ &\n        & 0.89605e-06_rb,0.16215e-04_rb,0.23291e-04_rb,0.27686e-04_rb,0.15019e-04_rb /)\n      kbo(:, 3,59, 8) = (/ &\n        & 0.89875e-06_rb,0.24462e-04_rb,0.37267e-04_rb,0.46243e-04_rb,0.24905e-04_rb /)\n      kbo(:, 4,59, 8) = (/ &\n        & 0.90117e-06_rb,0.37175e-04_rb,0.59594e-04_rb,0.76969e-04_rb,0.41672e-04_rb /)\n      kbo(:, 5,59, 8) = (/ &\n        & 0.90310e-06_rb,0.56115e-04_rb,0.94187e-04_rb,0.12528e-03_rb,0.68497e-04_rb /)\n      kbo(:, 1,13, 9) = (/ &\n        & 0.56714e-01_rb,0.96228e-01_rb,0.10961e+00_rb,0.11078e+00_rb,0.82822e-01_rb /)\n      kbo(:, 2,13, 9) = (/ &\n        & 0.57828e-01_rb,0.97972e-01_rb,0.11123e+00_rb,0.11236e+00_rb,0.84782e-01_rb /)\n      kbo(:, 3,13, 9) = (/ &\n        & 0.59232e-01_rb,0.99998e-01_rb,0.11329e+00_rb,0.11400e+00_rb,0.86728e-01_rb /)\n      kbo(:, 4,13, 9) = (/ &\n        & 0.60790e-01_rb,0.10219e+00_rb,0.11568e+00_rb,0.11591e+00_rb,0.88651e-01_rb /)\n      kbo(:, 5,13, 9) = (/ &\n        & 0.62290e-01_rb,0.10448e+00_rb,0.11818e+00_rb,0.11808e+00_rb,0.90606e-01_rb /)\n      kbo(:, 1,14, 9) = (/ &\n        & 0.48757e-01_rb,0.85742e-01_rb,0.97473e-01_rb,0.98306e-01_rb,0.73073e-01_rb /)\n      kbo(:, 2,14, 9) = (/ &\n        & 0.49942e-01_rb,0.87692e-01_rb,0.99489e-01_rb,0.10004e+00_rb,0.75064e-01_rb /)\n      kbo(:, 3,14, 9) = (/ &\n        & 0.51318e-01_rb,0.89856e-01_rb,0.10188e+00_rb,0.10205e+00_rb,0.77018e-01_rb /)\n      kbo(:, 4,14, 9) = (/ &\n        & 0.52660e-01_rb,0.92153e-01_rb,0.10444e+00_rb,0.10434e+00_rb,0.78996e-01_rb /)\n      kbo(:, 5,14, 9) = (/ &\n        & 0.53901e-01_rb,0.94584e-01_rb,0.10712e+00_rb,0.10687e+00_rb,0.81028e-01_rb /)\n      kbo(:, 1,15, 9) = (/ &\n        & 0.41752e-01_rb,0.76198e-01_rb,0.86593e-01_rb,0.87037e-01_rb,0.64464e-01_rb /)\n      kbo(:, 2,15, 9) = (/ &\n        & 0.42945e-01_rb,0.78277e-01_rb,0.88919e-01_rb,0.89055e-01_rb,0.66440e-01_rb /)\n      kbo(:, 3,15, 9) = (/ &\n        & 0.44132e-01_rb,0.80544e-01_rb,0.91468e-01_rb,0.91397e-01_rb,0.68401e-01_rb /)\n      kbo(:, 4,15, 9) = (/ &\n        & 0.45260e-01_rb,0.82968e-01_rb,0.94189e-01_rb,0.93993e-01_rb,0.70410e-01_rb /)\n      kbo(:, 5,15, 9) = (/ &\n        & 0.46298e-01_rb,0.85502e-01_rb,0.97029e-01_rb,0.96802e-01_rb,0.72466e-01_rb /)\n      kbo(:, 1,16, 9) = (/ &\n        & 0.35640e-01_rb,0.67555e-01_rb,0.76928e-01_rb,0.77126e-01_rb,0.56847e-01_rb /)\n      kbo(:, 2,16, 9) = (/ &\n        & 0.36668e-01_rb,0.69730e-01_rb,0.79394e-01_rb,0.79411e-01_rb,0.58796e-01_rb /)\n      kbo(:, 3,16, 9) = (/ &\n        & 0.37665e-01_rb,0.72105e-01_rb,0.82070e-01_rb,0.81996e-01_rb,0.60763e-01_rb /)\n      kbo(:, 4,16, 9) = (/ &\n        & 0.38606e-01_rb,0.74641e-01_rb,0.84920e-01_rb,0.84810e-01_rb,0.62792e-01_rb /)\n      kbo(:, 5,16, 9) = (/ &\n        & 0.39473e-01_rb,0.77118e-01_rb,0.87904e-01_rb,0.87777e-01_rb,0.64884e-01_rb /)\n      kbo(:, 1,17, 9) = (/ &\n        & 0.30249e-01_rb,0.59768e-01_rb,0.68325e-01_rb,0.68492e-01_rb,0.50101e-01_rb /)\n      kbo(:, 2,17, 9) = (/ &\n        & 0.31103e-01_rb,0.62060e-01_rb,0.70903e-01_rb,0.70988e-01_rb,0.52022e-01_rb /)\n      kbo(:, 3,17, 9) = (/ &\n        & 0.31936e-01_rb,0.64534e-01_rb,0.73696e-01_rb,0.73735e-01_rb,0.54005e-01_rb /)\n      kbo(:, 4,17, 9) = (/ &\n        & 0.32730e-01_rb,0.67029e-01_rb,0.76655e-01_rb,0.76665e-01_rb,0.56059e-01_rb /)\n      kbo(:, 5,17, 9) = (/ &\n        & 0.33443e-01_rb,0.69449e-01_rb,0.79757e-01_rb,0.79742e-01_rb,0.58173e-01_rb /)\n      kbo(:, 1,18, 9) = (/ &\n        & 0.25545e-01_rb,0.52871e-01_rb,0.60740e-01_rb,0.60992e-01_rb,0.44172e-01_rb /)\n      kbo(:, 2,18, 9) = (/ &\n        & 0.26254e-01_rb,0.55233e-01_rb,0.63406e-01_rb,0.63637e-01_rb,0.46086e-01_rb /)\n      kbo(:, 3,18, 9) = (/ &\n        & 0.26956e-01_rb,0.57692e-01_rb,0.66286e-01_rb,0.66462e-01_rb,0.48089e-01_rb /)\n      kbo(:, 4,18, 9) = (/ &\n        & 0.27612e-01_rb,0.60136e-01_rb,0.69343e-01_rb,0.69465e-01_rb,0.50154e-01_rb /)\n      kbo(:, 5,18, 9) = (/ &\n        & 0.28200e-01_rb,0.62534e-01_rb,0.72542e-01_rb,0.72608e-01_rb,0.52275e-01_rb /)\n      kbo(:, 1,19, 9) = (/ &\n        & 0.21487e-01_rb,0.46786e-01_rb,0.54092e-01_rb,0.54451e-01_rb,0.38986e-01_rb /)\n      kbo(:, 2,19, 9) = (/ &\n        & 0.22086e-01_rb,0.49151e-01_rb,0.56837e-01_rb,0.57167e-01_rb,0.40916e-01_rb /)\n      kbo(:, 3,19, 9) = (/ &\n        & 0.22671e-01_rb,0.51565e-01_rb,0.59787e-01_rb,0.60059e-01_rb,0.42916e-01_rb /)\n      kbo(:, 4,19, 9) = (/ &\n        & 0.23212e-01_rb,0.53966e-01_rb,0.62913e-01_rb,0.63134e-01_rb,0.44993e-01_rb /)\n      kbo(:, 5,19, 9) = (/ &\n        & 0.23674e-01_rb,0.56335e-01_rb,0.66121e-01_rb,0.66362e-01_rb,0.47140e-01_rb /)\n      kbo(:, 1,20, 9) = (/ &\n        & 0.18039e-01_rb,0.41493e-01_rb,0.48348e-01_rb,0.48783e-01_rb,0.34522e-01_rb /)\n      kbo(:, 2,20, 9) = (/ &\n        & 0.18543e-01_rb,0.43801e-01_rb,0.51155e-01_rb,0.51541e-01_rb,0.36457e-01_rb /)\n      kbo(:, 3,20, 9) = (/ &\n        & 0.19027e-01_rb,0.46166e-01_rb,0.54164e-01_rb,0.54503e-01_rb,0.38468e-01_rb /)\n      kbo(:, 4,20, 9) = (/ &\n        & 0.19452e-01_rb,0.48538e-01_rb,0.57292e-01_rb,0.57654e-01_rb,0.40551e-01_rb /)\n      kbo(:, 5,20, 9) = (/ &\n        & 0.19805e-01_rb,0.50879e-01_rb,0.60490e-01_rb,0.60969e-01_rb,0.42726e-01_rb /)\n      kbo(:, 1,21, 9) = (/ &\n        & 0.15116e-01_rb,0.36867e-01_rb,0.43373e-01_rb,0.43860e-01_rb,0.30692e-01_rb /)\n      kbo(:, 2,21, 9) = (/ &\n        & 0.15537e-01_rb,0.39121e-01_rb,0.46234e-01_rb,0.46663e-01_rb,0.32616e-01_rb /)\n      kbo(:, 3,21, 9) = (/ &\n        & 0.15924e-01_rb,0.41438e-01_rb,0.49238e-01_rb,0.49692e-01_rb,0.34628e-01_rb /)\n      kbo(:, 4,21, 9) = (/ &\n        & 0.16258e-01_rb,0.43774e-01_rb,0.52361e-01_rb,0.52910e-01_rb,0.36736e-01_rb /)\n      kbo(:, 5,21, 9) = (/ &\n        & 0.16525e-01_rb,0.46101e-01_rb,0.55542e-01_rb,0.56309e-01_rb,0.38934e-01_rb /)\n      kbo(:, 1,22, 9) = (/ &\n        & 0.12675e-01_rb,0.32993e-01_rb,0.39256e-01_rb,0.39779e-01_rb,0.27529e-01_rb /)\n      kbo(:, 2,22, 9) = (/ &\n        & 0.13009e-01_rb,0.35201e-01_rb,0.42138e-01_rb,0.42658e-01_rb,0.29453e-01_rb /)\n      kbo(:, 3,22, 9) = (/ &\n        & 0.13317e-01_rb,0.37474e-01_rb,0.45144e-01_rb,0.45756e-01_rb,0.31474e-01_rb /)\n      kbo(:, 4,22, 9) = (/ &\n        & 0.13574e-01_rb,0.39784e-01_rb,0.48260e-01_rb,0.49049e-01_rb,0.33608e-01_rb /)\n      kbo(:, 5,22, 9) = (/ &\n        & 0.13778e-01_rb,0.42099e-01_rb,0.51448e-01_rb,0.52529e-01_rb,0.35844e-01_rb /)\n      kbo(:, 1,23, 9) = (/ &\n        & 0.10608e-01_rb,0.29677e-01_rb,0.35736e-01_rb,0.36323e-01_rb,0.24847e-01_rb /)\n      kbo(:, 2,23, 9) = (/ &\n        & 0.10880e-01_rb,0.31843e-01_rb,0.38613e-01_rb,0.39274e-01_rb,0.26772e-01_rb /)\n      kbo(:, 3,23, 9) = (/ &\n        & 0.11120e-01_rb,0.34081e-01_rb,0.41634e-01_rb,0.42440e-01_rb,0.28816e-01_rb /)\n      kbo(:, 4,23, 9) = (/ &\n        & 0.11313e-01_rb,0.36372e-01_rb,0.44754e-01_rb,0.45808e-01_rb,0.30978e-01_rb /)\n      kbo(:, 5,23, 9) = (/ &\n        & 0.11474e-01_rb,0.38689e-01_rb,0.47973e-01_rb,0.49367e-01_rb,0.33255e-01_rb /)\n      kbo(:, 1,24, 9) = (/ &\n        & 0.88685e-02_rb,0.26862e-01_rb,0.32736e-01_rb,0.33437e-01_rb,0.22600e-01_rb /)\n      kbo(:, 2,24, 9) = (/ &\n        & 0.90884e-02_rb,0.28994e-01_rb,0.35625e-01_rb,0.36451e-01_rb,0.24532e-01_rb /)\n      kbo(:, 3,24, 9) = (/ &\n        & 0.92759e-02_rb,0.31210e-01_rb,0.38663e-01_rb,0.39696e-01_rb,0.26600e-01_rb /)\n      kbo(:, 4,24, 9) = (/ &\n        & 0.94299e-02_rb,0.33488e-01_rb,0.41810e-01_rb,0.43137e-01_rb,0.28795e-01_rb /)\n      kbo(:, 5,24, 9) = (/ &\n        & 0.95655e-02_rb,0.35810e-01_rb,0.45067e-01_rb,0.46765e-01_rb,0.31119e-01_rb /)\n      kbo(:, 1,25, 9) = (/ &\n        & 0.74112e-02_rb,0.24493e-01_rb,0.30220e-01_rb,0.31056e-01_rb,0.20732e-01_rb /)\n      kbo(:, 2,25, 9) = (/ &\n        & 0.75852e-02_rb,0.26600e-01_rb,0.33130e-01_rb,0.34139e-01_rb,0.22685e-01_rb /)\n      kbo(:, 3,25, 9) = (/ &\n        & 0.77307e-02_rb,0.28805e-01_rb,0.36194e-01_rb,0.37461e-01_rb,0.24778e-01_rb /)\n      kbo(:, 4,25, 9) = (/ &\n        & 0.78603e-02_rb,0.31085e-01_rb,0.39384e-01_rb,0.40978e-01_rb,0.27016e-01_rb /)\n      kbo(:, 5,25, 9) = (/ &\n        & 0.79718e-02_rb,0.33416e-01_rb,0.42696e-01_rb,0.44682e-01_rb,0.29393e-01_rb /)\n      kbo(:, 1,26, 9) = (/ &\n        & 0.61902e-02_rb,0.22538e-01_rb,0.28170e-01_rb,0.29154e-01_rb,0.19220e-01_rb /)\n      kbo(:, 2,26, 9) = (/ &\n        & 0.63276e-02_rb,0.24632e-01_rb,0.31111e-01_rb,0.32321e-01_rb,0.21200e-01_rb /)\n      kbo(:, 3,26, 9) = (/ &\n        & 0.64499e-02_rb,0.26835e-01_rb,0.34213e-01_rb,0.35713e-01_rb,0.23332e-01_rb /)\n      kbo(:, 4,26, 9) = (/ &\n        & 0.65597e-02_rb,0.29126e-01_rb,0.37461e-01_rb,0.39319e-01_rb,0.25615e-01_rb /)\n      kbo(:, 5,26, 9) = (/ &\n        & 0.66551e-02_rb,0.31472e-01_rb,0.40844e-01_rb,0.43117e-01_rb,0.28057e-01_rb /)\n      kbo(:, 1,27, 9) = (/ &\n        & 0.51713e-02_rb,0.20911e-01_rb,0.26500e-01_rb,0.27639e-01_rb,0.17995e-01_rb /)\n      kbo(:, 2,27, 9) = (/ &\n        & 0.52848e-02_rb,0.23004e-01_rb,0.29475e-01_rb,0.30887e-01_rb,0.20007e-01_rb /)\n      kbo(:, 3,27, 9) = (/ &\n        & 0.53879e-02_rb,0.25219e-01_rb,0.32635e-01_rb,0.34364e-01_rb,0.22181e-01_rb /)\n      kbo(:, 4,27, 9) = (/ &\n        & 0.54763e-02_rb,0.27525e-01_rb,0.35956e-01_rb,0.38064e-01_rb,0.24520e-01_rb /)\n      kbo(:, 5,27, 9) = (/ &\n        & 0.55573e-02_rb,0.29889e-01_rb,0.39426e-01_rb,0.41977e-01_rb,0.27035e-01_rb /)\n      kbo(:, 1,28, 9) = (/ &\n        & 0.43195e-02_rb,0.19576e-01_rb,0.25160e-01_rb,0.26468e-01_rb,0.17016e-01_rb /)\n      kbo(:, 2,28, 9) = (/ &\n        & 0.44139e-02_rb,0.21680e-01_rb,0.28188e-01_rb,0.29800e-01_rb,0.19070e-01_rb /)\n      kbo(:, 3,28, 9) = (/ &\n        & 0.44969e-02_rb,0.23912e-01_rb,0.31420e-01_rb,0.33375e-01_rb,0.21294e-01_rb /)\n      kbo(:, 4,28, 9) = (/ &\n        & 0.45726e-02_rb,0.26235e-01_rb,0.34830e-01_rb,0.37186e-01_rb,0.23695e-01_rb /)\n      kbo(:, 5,28, 9) = (/ &\n        & 0.46426e-02_rb,0.28627e-01_rb,0.38395e-01_rb,0.41222e-01_rb,0.26282e-01_rb /)\n      kbo(:, 1,29, 9) = (/ &\n        & 0.36095e-02_rb,0.18508e-01_rb,0.24142e-01_rb,0.25625e-01_rb,0.16268e-01_rb /)\n      kbo(:, 2,29, 9) = (/ &\n        & 0.36856e-02_rb,0.20634e-01_rb,0.27243e-01_rb,0.29053e-01_rb,0.18372e-01_rb /)\n      kbo(:, 3,29, 9) = (/ &\n        & 0.37545e-02_rb,0.22890e-01_rb,0.30565e-01_rb,0.32742e-01_rb,0.20653e-01_rb /)\n      kbo(:, 4,29, 9) = (/ &\n        & 0.38219e-02_rb,0.25246e-01_rb,0.34070e-01_rb,0.36676e-01_rb,0.23125e-01_rb /)\n      kbo(:, 5,29, 9) = (/ &\n        & 0.38805e-02_rb,0.27676e-01_rb,0.37739e-01_rb,0.40837e-01_rb,0.25787e-01_rb /)\n      kbo(:, 1,30, 9) = (/ &\n        & 0.30149e-02_rb,0.17668e-01_rb,0.23401e-01_rb,0.25061e-01_rb,0.15717e-01_rb /)\n      kbo(:, 2,30, 9) = (/ &\n        & 0.30780e-02_rb,0.19823e-01_rb,0.26594e-01_rb,0.28602e-01_rb,0.17873e-01_rb /)\n      kbo(:, 3,30, 9) = (/ &\n        & 0.31391e-02_rb,0.22111e-01_rb,0.30012e-01_rb,0.32409e-01_rb,0.20220e-01_rb /)\n      kbo(:, 4,30, 9) = (/ &\n        & 0.31952e-02_rb,0.24511e-01_rb,0.33620e-01_rb,0.36467e-01_rb,0.22768e-01_rb /)\n      kbo(:, 5,30, 9) = (/ &\n        & 0.32462e-02_rb,0.26992e-01_rb,0.37393e-01_rb,0.40756e-01_rb,0.25513e-01_rb /)\n      kbo(:, 1,31, 9) = (/ &\n        & 0.25190e-02_rb,0.17039e-01_rb,0.22932e-01_rb,0.24769e-01_rb,0.15346e-01_rb /)\n      kbo(:, 2,31, 9) = (/ &\n        & 0.25729e-02_rb,0.19232e-01_rb,0.26227e-01_rb,0.28432e-01_rb,0.17564e-01_rb /)\n      kbo(:, 3,31, 9) = (/ &\n        & 0.26259e-02_rb,0.21567e-01_rb,0.29750e-01_rb,0.32369e-01_rb,0.19984e-01_rb /)\n      kbo(:, 4,31, 9) = (/ &\n        & 0.26746e-02_rb,0.24020e-01_rb,0.33463e-01_rb,0.36549e-01_rb,0.22614e-01_rb /)\n      kbo(:, 5,31, 9) = (/ &\n        & 0.27170e-02_rb,0.26556e-01_rb,0.37338e-01_rb,0.40957e-01_rb,0.25451e-01_rb /)\n      kbo(:, 1,32, 9) = (/ &\n        & 0.21057e-02_rb,0.16597e-01_rb,0.22710e-01_rb,0.24723e-01_rb,0.15137e-01_rb /)\n      kbo(:, 2,32, 9) = (/ &\n        & 0.21537e-02_rb,0.18840e-01_rb,0.26112e-01_rb,0.28512e-01_rb,0.17424e-01_rb /)\n      kbo(:, 3,32, 9) = (/ &\n        & 0.21983e-02_rb,0.21233e-01_rb,0.29743e-01_rb,0.32575e-01_rb,0.19926e-01_rb /)\n      kbo(:, 4,32, 9) = (/ &\n        & 0.22397e-02_rb,0.23745e-01_rb,0.33557e-01_rb,0.36873e-01_rb,0.22643e-01_rb /)\n      kbo(:, 5,32, 9) = (/ &\n        & 0.22779e-02_rb,0.26339e-01_rb,0.37525e-01_rb,0.41395e-01_rb,0.25571e-01_rb /)\n      kbo(:, 1,33, 9) = (/ &\n        & 0.17621e-02_rb,0.16326e-01_rb,0.22706e-01_rb,0.24894e-01_rb,0.15071e-01_rb /)\n      kbo(:, 2,33, 9) = (/ &\n        & 0.18037e-02_rb,0.18626e-01_rb,0.26218e-01_rb,0.28807e-01_rb,0.17434e-01_rb /)\n      kbo(:, 3,33, 9) = (/ &\n        & 0.18413e-02_rb,0.21083e-01_rb,0.29952e-01_rb,0.32989e-01_rb,0.20023e-01_rb /)\n      kbo(:, 4,33, 9) = (/ &\n        & 0.18774e-02_rb,0.23655e-01_rb,0.33863e-01_rb,0.37400e-01_rb,0.22833e-01_rb /)\n      kbo(:, 5,33, 9) = (/ &\n        & 0.19114e-02_rb,0.26308e-01_rb,0.37916e-01_rb,0.42025e-01_rb,0.25847e-01_rb /)\n      kbo(:, 1,34, 9) = (/ &\n        & 0.14751e-02_rb,0.16125e-01_rb,0.22769e-01_rb,0.25117e-01_rb,0.15050e-01_rb /)\n      kbo(:, 2,34, 9) = (/ &\n        & 0.15101e-02_rb,0.18488e-01_rb,0.26381e-01_rb,0.29139e-01_rb,0.17489e-01_rb /)\n      kbo(:, 3,34, 9) = (/ &\n        & 0.15432e-02_rb,0.21005e-01_rb,0.30205e-01_rb,0.33424e-01_rb,0.20158e-01_rb /)\n      kbo(:, 4,34, 9) = (/ &\n        & 0.15747e-02_rb,0.23633e-01_rb,0.34198e-01_rb,0.37931e-01_rb,0.23050e-01_rb /)\n      kbo(:, 5,34, 9) = (/ &\n        & 0.16051e-02_rb,0.26339e-01_rb,0.38321e-01_rb,0.42642e-01_rb,0.26140e-01_rb /)\n      kbo(:, 1,35, 9) = (/ &\n        & 0.12323e-02_rb,0.15834e-01_rb,0.22646e-01_rb,0.25106e-01_rb,0.14908e-01_rb /)\n      kbo(:, 2,35, 9) = (/ &\n        & 0.12626e-02_rb,0.18245e-01_rb,0.26331e-01_rb,0.29206e-01_rb,0.17403e-01_rb /)\n      kbo(:, 3,35, 9) = (/ &\n        & 0.12919e-02_rb,0.20808e-01_rb,0.30221e-01_rb,0.33562e-01_rb,0.20132e-01_rb /)\n      kbo(:, 4,35, 9) = (/ &\n        & 0.13197e-02_rb,0.23481e-01_rb,0.34270e-01_rb,0.38136e-01_rb,0.23081e-01_rb /)\n      kbo(:, 5,35, 9) = (/ &\n        & 0.13470e-02_rb,0.26228e-01_rb,0.38442e-01_rb,0.42907e-01_rb,0.26222e-01_rb /)\n      kbo(:, 1,36, 9) = (/ &\n        & 0.10273e-02_rb,0.15393e-01_rb,0.22247e-01_rb,0.24766e-01_rb,0.14589e-01_rb /)\n      kbo(:, 2,36, 9) = (/ &\n        & 0.10537e-02_rb,0.17833e-01_rb,0.25974e-01_rb,0.28911e-01_rb,0.17115e-01_rb /)\n      kbo(:, 3,36, 9) = (/ &\n        & 0.10795e-02_rb,0.20426e-01_rb,0.29904e-01_rb,0.33307e-01_rb,0.19875e-01_rb /)\n      kbo(:, 4,36, 9) = (/ &\n        & 0.11043e-02_rb,0.23131e-01_rb,0.33989e-01_rb,0.37917e-01_rb,0.22855e-01_rb /)\n      kbo(:, 5,36, 9) = (/ &\n        & 0.11288e-02_rb,0.25909e-01_rb,0.38197e-01_rb,0.42722e-01_rb,0.26026e-01_rb /)\n      kbo(:, 1,37, 9) = (/ &\n        & 0.85383e-03_rb,0.14679e-01_rb,0.21388e-01_rb,0.23897e-01_rb,0.13970e-01_rb /)\n      kbo(:, 2,37, 9) = (/ &\n        & 0.87682e-03_rb,0.17120e-01_rb,0.25115e-01_rb,0.28039e-01_rb,0.16489e-01_rb /)\n      kbo(:, 3,37, 9) = (/ &\n        & 0.89996e-03_rb,0.19721e-01_rb,0.29054e-01_rb,0.32436e-01_rb,0.19242e-01_rb /)\n      kbo(:, 4,37, 9) = (/ &\n        & 0.92246e-03_rb,0.22439e-01_rb,0.33150e-01_rb,0.37047e-01_rb,0.22217e-01_rb /)\n      kbo(:, 5,37, 9) = (/ &\n        & 0.94506e-03_rb,0.25234e-01_rb,0.37369e-01_rb,0.41852e-01_rb,0.25386e-01_rb /)\n      kbo(:, 1,38, 9) = (/ &\n        & 0.70953e-03_rb,0.14014e-01_rb,0.20566e-01_rb,0.23058e-01_rb,0.13383e-01_rb /)\n      kbo(:, 2,38, 9) = (/ &\n        & 0.73008e-03_rb,0.16455e-01_rb,0.24289e-01_rb,0.27191e-01_rb,0.15892e-01_rb /)\n      kbo(:, 3,38, 9) = (/ &\n        & 0.75050e-03_rb,0.19058e-01_rb,0.28230e-01_rb,0.31581e-01_rb,0.18633e-01_rb /)\n      kbo(:, 4,38, 9) = (/ &\n        & 0.77107e-03_rb,0.21784e-01_rb,0.32331e-01_rb,0.36184e-01_rb,0.21597e-01_rb /)\n      kbo(:, 5,38, 9) = (/ &\n        & 0.79117e-03_rb,0.24590e-01_rb,0.36557e-01_rb,0.40986e-01_rb,0.24760e-01_rb /)\n      kbo(:, 1,39, 9) = (/ &\n        & 0.58982e-03_rb,0.13410e-01_rb,0.19807e-01_rb,0.22275e-01_rb,0.12843e-01_rb /)\n      kbo(:, 2,39, 9) = (/ &\n        & 0.60777e-03_rb,0.15847e-01_rb,0.23520e-01_rb,0.26395e-01_rb,0.15340e-01_rb /)\n      kbo(:, 3,39, 9) = (/ &\n        & 0.62607e-03_rb,0.18449e-01_rb,0.27458e-01_rb,0.30773e-01_rb,0.18067e-01_rb /)\n      kbo(:, 4,39, 9) = (/ &\n        & 0.64471e-03_rb,0.21179e-01_rb,0.31559e-01_rb,0.35367e-01_rb,0.21018e-01_rb /)\n      kbo(:, 5,39, 9) = (/ &\n        & 0.66285e-03_rb,0.23994e-01_rb,0.35788e-01_rb,0.40160e-01_rb,0.24170e-01_rb /)\n      kbo(:, 1,40, 9) = (/ &\n        & 0.48914e-03_rb,0.12617e-01_rb,0.18733e-01_rb,0.21131e-01_rb,0.12100e-01_rb /)\n      kbo(:, 2,40, 9) = (/ &\n        & 0.50499e-03_rb,0.15028e-01_rb,0.22406e-01_rb,0.25206e-01_rb,0.14559e-01_rb /)\n      kbo(:, 3,40, 9) = (/ &\n        & 0.52119e-03_rb,0.17611e-01_rb,0.26314e-01_rb,0.29544e-01_rb,0.17245e-01_rb /)\n      kbo(:, 4,40, 9) = (/ &\n        & 0.53770e-03_rb,0.20330e-01_rb,0.30397e-01_rb,0.34103e-01_rb,0.20159e-01_rb /)\n      kbo(:, 5,40, 9) = (/ &\n        & 0.55398e-03_rb,0.23142e-01_rb,0.34616e-01_rb,0.38867e-01_rb,0.23278e-01_rb /)\n      kbo(:, 1,41, 9) = (/ &\n        & 0.40532e-03_rb,0.11840e-01_rb,0.17661e-01_rb,0.19981e-01_rb,0.11365e-01_rb /)\n      kbo(:, 2,41, 9) = (/ &\n        & 0.41916e-03_rb,0.14219e-01_rb,0.21285e-01_rb,0.24002e-01_rb,0.13782e-01_rb /)\n      kbo(:, 3,41, 9) = (/ &\n        & 0.43354e-03_rb,0.16775e-01_rb,0.25154e-01_rb,0.28292e-01_rb,0.16423e-01_rb /)\n      kbo(:, 4,41, 9) = (/ &\n        & 0.44807e-03_rb,0.19478e-01_rb,0.29214e-01_rb,0.32812e-01_rb,0.19291e-01_rb /)\n      kbo(:, 5,41, 9) = (/ &\n        & 0.46282e-03_rb,0.22283e-01_rb,0.33415e-01_rb,0.37538e-01_rb,0.22373e-01_rb /)\n      kbo(:, 1,42, 9) = (/ &\n        & 0.33573e-03_rb,0.11104e-01_rb,0.16634e-01_rb,0.18873e-01_rb,0.10664e-01_rb /)\n      kbo(:, 2,42, 9) = (/ &\n        & 0.34776e-03_rb,0.13446e-01_rb,0.20201e-01_rb,0.22835e-01_rb,0.13037e-01_rb /)\n      kbo(:, 3,42, 9) = (/ &\n        & 0.36046e-03_rb,0.15973e-01_rb,0.24027e-01_rb,0.27071e-01_rb,0.15631e-01_rb /)\n      kbo(:, 4,42, 9) = (/ &\n        & 0.37344e-03_rb,0.18654e-01_rb,0.28057e-01_rb,0.31550e-01_rb,0.18451e-01_rb /)\n      kbo(:, 5,42, 9) = (/ &\n        & 0.38663e-03_rb,0.21448e-01_rb,0.32235e-01_rb,0.36231e-01_rb,0.21492e-01_rb /)\n      kbo(:, 1,43, 9) = (/ &\n        & 0.27733e-03_rb,0.10283e-01_rb,0.15460e-01_rb,0.17597e-01_rb,0.98707e-02_rb /)\n      kbo(:, 2,43, 9) = (/ &\n        & 0.28779e-03_rb,0.12571e-01_rb,0.18947e-01_rb,0.21473e-01_rb,0.12183e-01_rb /)\n      kbo(:, 3,43, 9) = (/ &\n        & 0.29891e-03_rb,0.15054e-01_rb,0.22712e-01_rb,0.25638e-01_rb,0.14718e-01_rb /)\n      kbo(:, 4,43, 9) = (/ &\n        & 0.31033e-03_rb,0.17702e-01_rb,0.26696e-01_rb,0.30055e-01_rb,0.17477e-01_rb /)\n      kbo(:, 5,43, 9) = (/ &\n        & 0.32200e-03_rb,0.20476e-01_rb,0.30841e-01_rb,0.34682e-01_rb,0.20459e-01_rb /)\n      kbo(:, 1,44, 9) = (/ &\n        & 0.22878e-03_rb,0.94499e-02_rb,0.14251e-01_rb,0.16276e-01_rb,0.90607e-02_rb /)\n      kbo(:, 2,44, 9) = (/ &\n        & 0.23775e-03_rb,0.11673e-01_rb,0.17646e-01_rb,0.20049e-01_rb,0.11303e-01_rb /)\n      kbo(:, 3,44, 9) = (/ &\n        & 0.24747e-03_rb,0.14106e-01_rb,0.21336e-01_rb,0.24135e-01_rb,0.13772e-01_rb /)\n      kbo(:, 4,44, 9) = (/ &\n        & 0.25755e-03_rb,0.16710e-01_rb,0.25261e-01_rb,0.28479e-01_rb,0.16464e-01_rb /)\n      kbo(:, 5,44, 9) = (/ &\n        & 0.26798e-03_rb,0.19454e-01_rb,0.29363e-01_rb,0.33046e-01_rb,0.19378e-01_rb /)\n      kbo(:, 1,45, 9) = (/ &\n        & 0.18849e-03_rb,0.86584e-02_rb,0.13096e-01_rb,0.15007e-01_rb,0.82904e-02_rb /)\n      kbo(:, 2,45, 9) = (/ &\n        & 0.19636e-03_rb,0.10814e-01_rb,0.16390e-01_rb,0.18672e-01_rb,0.10458e-01_rb /)\n      kbo(:, 3,45, 9) = (/ &\n        & 0.20470e-03_rb,0.13189e-01_rb,0.19995e-01_rb,0.22671e-01_rb,0.12861e-01_rb /)\n      kbo(:, 4,45, 9) = (/ &\n        & 0.21344e-03_rb,0.15746e-01_rb,0.23854e-01_rb,0.26936e-01_rb,0.15483e-01_rb /)\n      kbo(:, 5,45, 9) = (/ &\n        & 0.22266e-03_rb,0.18454e-01_rb,0.27912e-01_rb,0.31439e-01_rb,0.18328e-01_rb /)\n      kbo(:, 1,46, 9) = (/ &\n        & 0.15507e-03_rb,0.78632e-02_rb,0.11928e-01_rb,0.13712e-01_rb,0.75164e-02_rb /)\n      kbo(:, 2,46, 9) = (/ &\n        & 0.16179e-03_rb,0.99413e-02_rb,0.15104e-01_rb,0.17260e-01_rb,0.95985e-02_rb /)\n      kbo(:, 3,46, 9) = (/ &\n        & 0.16890e-03_rb,0.12249e-01_rb,0.18612e-01_rb,0.21154e-01_rb,0.11927e-01_rb /)\n      kbo(:, 4,46, 9) = (/ &\n        & 0.17659e-03_rb,0.14751e-01_rb,0.22394e-01_rb,0.25333e-01_rb,0.14476e-01_rb /)\n      kbo(:, 5,46, 9) = (/ &\n        & 0.18474e-03_rb,0.17415e-01_rb,0.26393e-01_rb,0.29761e-01_rb,0.17246e-01_rb /)\n      kbo(:, 1,47, 9) = (/ &\n        & 0.12726e-03_rb,0.70304e-02_rb,0.10696e-01_rb,0.12336e-01_rb,0.67029e-02_rb /)\n      kbo(:, 2,47, 9) = (/ &\n        & 0.13291e-03_rb,0.90171e-02_rb,0.13730e-01_rb,0.15745e-01_rb,0.86863e-02_rb /)\n      kbo(:, 3,47, 9) = (/ &\n        & 0.13906e-03_rb,0.11243e-01_rb,0.17120e-01_rb,0.19510e-01_rb,0.10925e-01_rb /)\n      kbo(:, 4,47, 9) = (/ &\n        & 0.14561e-03_rb,0.13678e-01_rb,0.20805e-01_rb,0.23588e-01_rb,0.13392e-01_rb /)\n      kbo(:, 5,47, 9) = (/ &\n        & 0.15268e-03_rb,0.16286e-01_rb,0.24728e-01_rb,0.27924e-01_rb,0.16077e-01_rb /)\n      kbo(:, 1,48, 9) = (/ &\n        & 0.10430e-03_rb,0.62479e-02_rb,0.95325e-02_rb,0.11029e-01_rb,0.59380e-02_rb /)\n      kbo(:, 2,48, 9) = (/ &\n        & 0.10909e-03_rb,0.81380e-02_rb,0.12419e-01_rb,0.14291e-01_rb,0.78205e-02_rb /)\n      kbo(:, 3,48, 9) = (/ &\n        & 0.11429e-03_rb,0.10277e-01_rb,0.15680e-01_rb,0.17922e-01_rb,0.99641e-02_rb /)\n      kbo(:, 4,48, 9) = (/ &\n        & 0.11996e-03_rb,0.12637e-01_rb,0.19259e-01_rb,0.21888e-01_rb,0.12347e-01_rb /)\n      kbo(:, 5,48, 9) = (/ &\n        & 0.12611e-03_rb,0.15183e-01_rb,0.23095e-01_rb,0.26125e-01_rb,0.14947e-01_rb /)\n      kbo(:, 1,49, 9) = (/ &\n        & 0.85361e-04_rb,0.55178e-02_rb,0.84413e-02_rb,0.97939e-02_rb,0.52224e-02_rb /)\n      kbo(:, 2,49, 9) = (/ &\n        & 0.89682e-04_rb,0.73124e-02_rb,0.11182e-01_rb,0.12906e-01_rb,0.70024e-02_rb /)\n      kbo(:, 3,49, 9) = (/ &\n        & 0.93818e-04_rb,0.93518e-02_rb,0.14295e-01_rb,0.16393e-01_rb,0.90454e-02_rb /)\n      kbo(:, 4,49, 9) = (/ &\n        & 0.98731e-04_rb,0.11631e-01_rb,0.17758e-01_rb,0.20234e-01_rb,0.11339e-01_rb /)\n      kbo(:, 5,49, 9) = (/ &\n        & 0.10398e-03_rb,0.14111e-01_rb,0.21502e-01_rb,0.24370e-01_rb,0.13856e-01_rb /)\n      kbo(:, 1,50, 9) = (/ &\n        & 0.70068e-04_rb,0.48843e-02_rb,0.74862e-02_rb,0.87029e-02_rb,0.45961e-02_rb /)\n      kbo(:, 2,50, 9) = (/ &\n        & 0.73528e-04_rb,0.65706e-02_rb,0.10074e-01_rb,0.11661e-01_rb,0.62737e-02_rb /)\n      kbo(:, 3,50, 9) = (/ &\n        & 0.77377e-04_rb,0.85288e-02_rb,0.13057e-01_rb,0.15019e-01_rb,0.82236e-02_rb /)\n      kbo(:, 4,50, 9) = (/ &\n        & 0.81195e-04_rb,0.10720e-01_rb,0.16396e-01_rb,0.18728e-01_rb,0.10428e-01_rb /)\n      kbo(:, 5,50, 9) = (/ &\n        & 0.85703e-04_rb,0.13133e-01_rb,0.20042e-01_rb,0.22765e-01_rb,0.12867e-01_rb /)\n      kbo(:, 1,51, 9) = (/ &\n        & 0.57383e-04_rb,0.43058e-02_rb,0.66126e-02_rb,0.77023e-02_rb,0.40299e-02_rb /)\n      kbo(:, 2,51, 9) = (/ &\n        & 0.60290e-04_rb,0.58916e-02_rb,0.90543e-02_rb,0.10509e-01_rb,0.56057e-02_rb /)\n      kbo(:, 3,51, 9) = (/ &\n        & 0.63513e-04_rb,0.77586e-02_rb,0.11901e-01_rb,0.13729e-01_rb,0.74620e-02_rb /)\n      kbo(:, 4,51, 9) = (/ &\n        & 0.66727e-04_rb,0.98672e-02_rb,0.15116e-01_rb,0.17314e-01_rb,0.95779e-02_rb /)\n      kbo(:, 5,51, 9) = (/ &\n        & 0.70598e-04_rb,0.12209e-01_rb,0.18661e-01_rb,0.21244e-01_rb,0.11938e-01_rb /)\n      kbo(:, 1,52, 9) = (/ &\n        & 0.46933e-04_rb,0.37683e-02_rb,0.57987e-02_rb,0.67684e-02_rb,0.35066e-02_rb /)\n      kbo(:, 2,52, 9) = (/ &\n        & 0.49374e-04_rb,0.52554e-02_rb,0.80944e-02_rb,0.94163e-02_rb,0.49785e-02_rb /)\n      kbo(:, 3,52, 9) = (/ &\n        & 0.52069e-04_rb,0.70251e-02_rb,0.10799e-01_rb,0.12493e-01_rb,0.67384e-02_rb /)\n      kbo(:, 4,52, 9) = (/ &\n        & 0.55066e-04_rb,0.90579e-02_rb,0.13892e-01_rb,0.15957e-01_rb,0.87644e-02_rb /)\n      kbo(:, 5,52, 9) = (/ &\n        & 0.58094e-04_rb,0.11314e-01_rb,0.17321e-01_rb,0.19762e-01_rb,0.11039e-01_rb /)\n      kbo(:, 1,53, 9) = (/ &\n        & 0.38369e-04_rb,0.32705e-02_rb,0.50428e-02_rb,0.58997e-02_rb,0.30250e-02_rb /)\n      kbo(:, 2,53, 9) = (/ &\n        & 0.40389e-04_rb,0.46579e-02_rb,0.71882e-02_rb,0.83794e-02_rb,0.43908e-02_rb /)\n      kbo(:, 3,53, 9) = (/ &\n        & 0.42656e-04_rb,0.63275e-02_rb,0.97486e-02_rb,0.11308e-01_rb,0.60500e-02_rb /)\n      kbo(:, 4,53, 9) = (/ &\n        & 0.45173e-04_rb,0.82714e-02_rb,0.12706e-01_rb,0.14639e-01_rb,0.79824e-02_rb /)\n      kbo(:, 5,53, 9) = (/ &\n        & 0.47733e-04_rb,0.10447e-01_rb,0.16018e-01_rb,0.18320e-01_rb,0.10170e-01_rb /)\n      kbo(:, 1,54, 9) = (/ &\n        & 0.31373e-04_rb,0.28489e-02_rb,0.44023e-02_rb,0.51602e-02_rb,0.26198e-02_rb /)\n      kbo(:, 2,54, 9) = (/ &\n        & 0.33072e-04_rb,0.41448e-02_rb,0.64072e-02_rb,0.74821e-02_rb,0.38868e-02_rb /)\n      kbo(:, 3,54, 9) = (/ &\n        & 0.34962e-04_rb,0.57219e-02_rb,0.88331e-02_rb,0.10271e-01_rb,0.54518e-02_rb /)\n      kbo(:, 4,54, 9) = (/ &\n        & 0.37073e-04_rb,0.75801e-02_rb,0.11663e-01_rb,0.13472e-01_rb,0.72975e-02_rb /)\n      kbo(:, 5,54, 9) = (/ &\n        & 0.39224e-04_rb,0.96795e-02_rb,0.14861e-01_rb,0.17039e-01_rb,0.94030e-02_rb /)\n      kbo(:, 1,55, 9) = (/ &\n        & 0.25649e-04_rb,0.24774e-02_rb,0.38358e-02_rb,0.45027e-02_rb,0.22635e-02_rb /)\n      kbo(:, 2,55, 9) = (/ &\n        & 0.27065e-04_rb,0.36831e-02_rb,0.57040e-02_rb,0.66733e-02_rb,0.34361e-02_rb /)\n      kbo(:, 3,55, 9) = (/ &\n        & 0.28649e-04_rb,0.51728e-02_rb,0.80003e-02_rb,0.93199e-02_rb,0.49087e-02_rb /)\n      kbo(:, 4,55, 9) = (/ &\n        & 0.30419e-04_rb,0.69443e-02_rb,0.10704e-01_rb,0.12395e-01_rb,0.66688e-02_rb /)\n      kbo(:, 5,55, 9) = (/ &\n        & 0.32478e-04_rb,0.89781e-02_rb,0.13794e-01_rb,0.15856e-01_rb,0.86947e-02_rb /)\n      kbo(:, 1,56, 9) = (/ &\n        & 0.20960e-04_rb,0.21374e-02_rb,0.33161e-02_rb,0.38972e-02_rb,0.19394e-02_rb /)\n      kbo(:, 2,56, 9) = (/ &\n        & 0.22130e-04_rb,0.32530e-02_rb,0.50471e-02_rb,0.59166e-02_rb,0.30185e-02_rb /)\n      kbo(:, 3,56, 9) = (/ &\n        & 0.23455e-04_rb,0.46545e-02_rb,0.72105e-02_rb,0.84156e-02_rb,0.43975e-02_rb /)\n      kbo(:, 4,56, 9) = (/ &\n        & 0.24958e-04_rb,0.63377e-02_rb,0.97876e-02_rb,0.11360e-01_rb,0.60688e-02_rb /)\n      kbo(:, 5,56, 9) = (/ &\n        & 0.26672e-04_rb,0.82933e-02_rb,0.12759e-01_rb,0.14704e-01_rb,0.80123e-02_rb /)\n      kbo(:, 1,57, 9) = (/ &\n        & 0.17108e-04_rb,0.18275e-02_rb,0.28407e-02_rb,0.33429e-02_rb,0.16463e-02_rb /)\n      kbo(:, 2,57, 9) = (/ &\n        & 0.18082e-04_rb,0.28535e-02_rb,0.44360e-02_rb,0.52097e-02_rb,0.26326e-02_rb /)\n      kbo(:, 3,57, 9) = (/ &\n        & 0.19184e-04_rb,0.41668e-02_rb,0.64646e-02_rb,0.75572e-02_rb,0.39170e-02_rb /)\n      kbo(:, 4,57, 9) = (/ &\n        & 0.20446e-04_rb,0.57610e-02_rb,0.89128e-02_rb,0.10368e-01_rb,0.54979e-02_rb /)\n      kbo(:, 5,57, 9) = (/ &\n        & 0.21854e-04_rb,0.76342e-02_rb,0.11762e-01_rb,0.13588e-01_rb,0.73577e-02_rb /)\n      kbo(:, 1,58, 9) = (/ &\n        & 0.13963e-04_rb,0.15602e-02_rb,0.24292e-02_rb,0.28638e-02_rb,0.13965e-02_rb /)\n      kbo(:, 2,58, 9) = (/ &\n        & 0.14773e-04_rb,0.25031e-02_rb,0.38984e-02_rb,0.45849e-02_rb,0.22957e-02_rb /)\n      kbo(:, 3,58, 9) = (/ &\n        & 0.15698e-04_rb,0.37311e-02_rb,0.57975e-02_rb,0.67885e-02_rb,0.34899e-02_rb /)\n      kbo(:, 4,58, 9) = (/ &\n        & 0.16731e-04_rb,0.52413e-02_rb,0.81221e-02_rb,0.94657e-02_rb,0.49831e-02_rb /)\n      kbo(:, 5,58, 9) = (/ &\n        & 0.17926e-04_rb,0.70329e-02_rb,0.10852e-01_rb,0.12566e-01_rb,0.67622e-02_rb /)\n      kbo(:, 1,59, 9) = (/ &\n        & 0.11515e-04_rb,0.14557e-02_rb,0.22712e-02_rb,0.26808e-02_rb,0.13001e-02_rb /)\n      kbo(:, 2,59, 9) = (/ &\n        & 0.12194e-04_rb,0.23665e-02_rb,0.36913e-02_rb,0.43444e-02_rb,0.21654e-02_rb /)\n      kbo(:, 3,59, 9) = (/ &\n        & 0.12975e-04_rb,0.35608e-02_rb,0.55385e-02_rb,0.64911e-02_rb,0.33241e-02_rb /)\n      kbo(:, 4,59, 9) = (/ &\n        & 0.13854e-04_rb,0.50382e-02_rb,0.78142e-02_rb,0.91137e-02_rb,0.47825e-02_rb /)\n      kbo(:, 5,59, 9) = (/ &\n        & 0.14890e-04_rb,0.67966e-02_rb,0.10497e-01_rb,0.12166e-01_rb,0.65291e-02_rb /)\n      kbo(:, 1,13,10) = (/ &\n        & 0.23136e+00_rb,0.35590e+00_rb,0.41705e+00_rb,0.42838e+00_rb,0.34405e+00_rb /)\n      kbo(:, 2,13,10) = (/ &\n        & 0.23570e+00_rb,0.35573e+00_rb,0.41855e+00_rb,0.43318e+00_rb,0.34979e+00_rb /)\n      kbo(:, 3,13,10) = (/ &\n        & 0.23997e+00_rb,0.35949e+00_rb,0.42029e+00_rb,0.43813e+00_rb,0.35426e+00_rb /)\n      kbo(:, 4,13,10) = (/ &\n        & 0.24492e+00_rb,0.36590e+00_rb,0.42350e+00_rb,0.44177e+00_rb,0.35947e+00_rb /)\n      kbo(:, 5,13,10) = (/ &\n        & 0.25202e+00_rb,0.37242e+00_rb,0.42924e+00_rb,0.44467e+00_rb,0.36481e+00_rb /)\n      kbo(:, 1,14,10) = (/ &\n        & 0.20433e+00_rb,0.32280e+00_rb,0.38114e+00_rb,0.39530e+00_rb,0.30987e+00_rb /)\n      kbo(:, 2,14,10) = (/ &\n        & 0.20812e+00_rb,0.32580e+00_rb,0.38400e+00_rb,0.40099e+00_rb,0.31521e+00_rb /)\n      kbo(:, 3,14,10) = (/ &\n        & 0.21260e+00_rb,0.33207e+00_rb,0.38794e+00_rb,0.40573e+00_rb,0.32135e+00_rb /)\n      kbo(:, 4,14,10) = (/ &\n        & 0.21971e+00_rb,0.33857e+00_rb,0.39426e+00_rb,0.40959e+00_rb,0.32811e+00_rb /)\n      kbo(:, 5,14,10) = (/ &\n        & 0.22862e+00_rb,0.34522e+00_rb,0.40235e+00_rb,0.41376e+00_rb,0.33439e+00_rb /)\n      kbo(:, 1,15,10) = (/ &\n        & 0.17974e+00_rb,0.29385e+00_rb,0.34710e+00_rb,0.36214e+00_rb,0.27698e+00_rb /)\n      kbo(:, 2,15,10) = (/ &\n        & 0.18361e+00_rb,0.29985e+00_rb,0.35176e+00_rb,0.36835e+00_rb,0.28361e+00_rb /)\n      kbo(:, 3,15,10) = (/ &\n        & 0.19011e+00_rb,0.30650e+00_rb,0.35844e+00_rb,0.37336e+00_rb,0.29140e+00_rb /)\n      kbo(:, 4,15,10) = (/ &\n        & 0.19870e+00_rb,0.31340e+00_rb,0.36676e+00_rb,0.37856e+00_rb,0.29913e+00_rb /)\n      kbo(:, 5,15,10) = (/ &\n        & 0.20713e+00_rb,0.32067e+00_rb,0.37517e+00_rb,0.38452e+00_rb,0.30673e+00_rb /)\n      kbo(:, 1,16,10) = (/ &\n        & 0.15768e+00_rb,0.26909e+00_rb,0.31566e+00_rb,0.32905e+00_rb,0.24795e+00_rb /)\n      kbo(:, 2,16,10) = (/ &\n        & 0.16341e+00_rb,0.27579e+00_rb,0.32257e+00_rb,0.33542e+00_rb,0.25593e+00_rb /)\n      kbo(:, 3,16,10) = (/ &\n        & 0.17143e+00_rb,0.28283e+00_rb,0.33152e+00_rb,0.34164e+00_rb,0.26468e+00_rb /)\n      kbo(:, 4,16,10) = (/ &\n        & 0.17943e+00_rb,0.29026e+00_rb,0.34054e+00_rb,0.34897e+00_rb,0.27328e+00_rb /)\n      kbo(:, 5,16,10) = (/ &\n        & 0.18690e+00_rb,0.29935e+00_rb,0.34954e+00_rb,0.35767e+00_rb,0.28225e+00_rb /)\n      kbo(:, 1,17,10) = (/ &\n        & 0.13875e+00_rb,0.24652e+00_rb,0.28696e+00_rb,0.29693e+00_rb,0.22321e+00_rb /)\n      kbo(:, 2,17,10) = (/ &\n        & 0.14611e+00_rb,0.25366e+00_rb,0.29630e+00_rb,0.30411e+00_rb,0.23216e+00_rb /)\n      kbo(:, 3,17,10) = (/ &\n        & 0.15377e+00_rb,0.26122e+00_rb,0.30597e+00_rb,0.31229e+00_rb,0.24127e+00_rb /)\n      kbo(:, 4,17,10) = (/ &\n        & 0.16099e+00_rb,0.27029e+00_rb,0.31565e+00_rb,0.32218e+00_rb,0.25077e+00_rb /)\n      kbo(:, 5,17,10) = (/ &\n        & 0.16791e+00_rb,0.28100e+00_rb,0.32533e+00_rb,0.33316e+00_rb,0.26091e+00_rb /)\n      kbo(:, 1,18,10) = (/ &\n        & 0.12258e+00_rb,0.22568e+00_rb,0.26154e+00_rb,0.26746e+00_rb,0.20208e+00_rb /)\n      kbo(:, 2,18,10) = (/ &\n        & 0.12972e+00_rb,0.23340e+00_rb,0.27183e+00_rb,0.27607e+00_rb,0.21144e+00_rb /)\n      kbo(:, 3,18,10) = (/ &\n        & 0.13673e+00_rb,0.24228e+00_rb,0.28202e+00_rb,0.28661e+00_rb,0.22093e+00_rb /)\n      kbo(:, 4,18,10) = (/ &\n        & 0.14352e+00_rb,0.25285e+00_rb,0.29256e+00_rb,0.29859e+00_rb,0.23121e+00_rb /)\n      kbo(:, 5,18,10) = (/ &\n        & 0.14999e+00_rb,0.26447e+00_rb,0.30340e+00_rb,0.31163e+00_rb,0.24203e+00_rb /)\n      kbo(:, 1,19,10) = (/ &\n        & 0.10785e+00_rb,0.20667e+00_rb,0.23879e+00_rb,0.24194e+00_rb,0.18368e+00_rb /)\n      kbo(:, 2,19,10) = (/ &\n        & 0.11429e+00_rb,0.21546e+00_rb,0.24926e+00_rb,0.25235e+00_rb,0.19325e+00_rb /)\n      kbo(:, 3,19,10) = (/ &\n        & 0.12064e+00_rb,0.22577e+00_rb,0.26022e+00_rb,0.26472e+00_rb,0.20338e+00_rb /)\n      kbo(:, 4,19,10) = (/ &\n        & 0.12700e+00_rb,0.23751e+00_rb,0.27175e+00_rb,0.27823e+00_rb,0.21416e+00_rb /)\n      kbo(:, 5,19,10) = (/ &\n        & 0.13335e+00_rb,0.24924e+00_rb,0.28423e+00_rb,0.29239e+00_rb,0.22548e+00_rb /)\n      kbo(:, 1,20,10) = (/ &\n        & 0.94314e-01_rb,0.18969e+00_rb,0.21843e+00_rb,0.22089e+00_rb,0.16767e+00_rb /)\n      kbo(:, 2,20,10) = (/ &\n        & 0.10011e+00_rb,0.20009e+00_rb,0.22938e+00_rb,0.23290e+00_rb,0.17759e+00_rb /)\n      kbo(:, 3,20,10) = (/ &\n        & 0.10602e+00_rb,0.21171e+00_rb,0.24114e+00_rb,0.24650e+00_rb,0.18815e+00_rb /)\n      kbo(:, 4,20,10) = (/ &\n        & 0.11212e+00_rb,0.22366e+00_rb,0.25410e+00_rb,0.26076e+00_rb,0.19951e+00_rb /)\n      kbo(:, 5,20,10) = (/ &\n        & 0.11820e+00_rb,0.23566e+00_rb,0.26816e+00_rb,0.27572e+00_rb,0.21140e+00_rb /)\n      kbo(:, 1,21,10) = (/ &\n        & 0.82096e-01_rb,0.17498e+00_rb,0.20057e+00_rb,0.20349e+00_rb,0.15368e+00_rb /)\n      kbo(:, 2,21,10) = (/ &\n        & 0.87376e-01_rb,0.18671e+00_rb,0.21217e+00_rb,0.21678e+00_rb,0.16394e+00_rb /)\n      kbo(:, 3,21,10) = (/ &\n        & 0.92996e-01_rb,0.19901e+00_rb,0.22527e+00_rb,0.23088e+00_rb,0.17505e+00_rb /)\n      kbo(:, 4,21,10) = (/ &\n        & 0.98752e-01_rb,0.21131e+00_rb,0.23942e+00_rb,0.24575e+00_rb,0.18685e+00_rb /)\n      kbo(:, 5,21,10) = (/ &\n        & 0.10451e+00_rb,0.22356e+00_rb,0.25490e+00_rb,0.26152e+00_rb,0.19924e+00_rb /)\n      kbo(:, 1,22,10) = (/ &\n        & 0.71578e-01_rb,0.16309e+00_rb,0.18609e+00_rb,0.19018e+00_rb,0.14217e+00_rb /)\n      kbo(:, 2,22,10) = (/ &\n        & 0.76626e-01_rb,0.17564e+00_rb,0.19884e+00_rb,0.20398e+00_rb,0.15291e+00_rb /)\n      kbo(:, 3,22,10) = (/ &\n        & 0.81885e-01_rb,0.18840e+00_rb,0.21309e+00_rb,0.21858e+00_rb,0.16461e+00_rb /)\n      kbo(:, 4,22,10) = (/ &\n        & 0.87223e-01_rb,0.20113e+00_rb,0.22859e+00_rb,0.23430e+00_rb,0.17688e+00_rb /)\n      kbo(:, 5,22,10) = (/ &\n        & 0.92500e-01_rb,0.21374e+00_rb,0.24532e+00_rb,0.25104e+00_rb,0.18976e+00_rb /)\n      kbo(:, 1,23,10) = (/ &\n        & 0.62506e-01_rb,0.15298e+00_rb,0.17442e+00_rb,0.17913e+00_rb,0.13258e+00_rb /)\n      kbo(:, 2,23,10) = (/ &\n        & 0.67194e-01_rb,0.16597e+00_rb,0.18829e+00_rb,0.19340e+00_rb,0.14391e+00_rb /)\n      kbo(:, 3,23,10) = (/ &\n        & 0.72099e-01_rb,0.17922e+00_rb,0.20360e+00_rb,0.20869e+00_rb,0.15600e+00_rb /)\n      kbo(:, 4,23,10) = (/ &\n        & 0.77023e-01_rb,0.19243e+00_rb,0.22032e+00_rb,0.22532e+00_rb,0.16873e+00_rb /)\n      kbo(:, 5,23,10) = (/ &\n        & 0.81629e-01_rb,0.20537e+00_rb,0.23792e+00_rb,0.24291e+00_rb,0.18203e+00_rb /)\n      kbo(:, 1,24,10) = (/ &\n        & 0.54705e-01_rb,0.14435e+00_rb,0.16539e+00_rb,0.17004e+00_rb,0.12479e+00_rb /)\n      kbo(:, 2,24,10) = (/ &\n        & 0.59055e-01_rb,0.15781e+00_rb,0.18024e+00_rb,0.18505e+00_rb,0.13663e+00_rb /)\n      kbo(:, 3,24,10) = (/ &\n        & 0.63456e-01_rb,0.17157e+00_rb,0.19662e+00_rb,0.20113e+00_rb,0.14915e+00_rb /)\n      kbo(:, 4,24,10) = (/ &\n        & 0.67778e-01_rb,0.18520e+00_rb,0.21409e+00_rb,0.21860e+00_rb,0.16222e+00_rb /)\n      kbo(:, 5,24,10) = (/ &\n        & 0.71741e-01_rb,0.19852e+00_rb,0.23252e+00_rb,0.23726e+00_rb,0.17594e+00_rb /)\n      kbo(:, 1,25,10) = (/ &\n        & 0.47972e-01_rb,0.13725e+00_rb,0.15860e+00_rb,0.16297e+00_rb,0.11866e+00_rb /)\n      kbo(:, 2,25,10) = (/ &\n        & 0.51893e-01_rb,0.15121e+00_rb,0.17443e+00_rb,0.17877e+00_rb,0.13085e+00_rb /)\n      kbo(:, 3,25,10) = (/ &\n        & 0.55832e-01_rb,0.16535e+00_rb,0.19157e+00_rb,0.19578e+00_rb,0.14380e+00_rb /)\n      kbo(:, 4,25,10) = (/ &\n        & 0.59570e-01_rb,0.17943e+00_rb,0.20993e+00_rb,0.21423e+00_rb,0.15728e+00_rb /)\n      kbo(:, 5,25,10) = (/ &\n        & 0.62996e-01_rb,0.19323e+00_rb,0.22909e+00_rb,0.23401e+00_rb,0.17147e+00_rb /)\n      kbo(:, 1,26,10) = (/ &\n        & 0.42166e-01_rb,0.13173e+00_rb,0.15395e+00_rb,0.15801e+00_rb,0.11401e+00_rb /)\n      kbo(:, 2,26,10) = (/ &\n        & 0.45660e-01_rb,0.14616e+00_rb,0.17062e+00_rb,0.17468e+00_rb,0.12664e+00_rb /)\n      kbo(:, 3,26,10) = (/ &\n        & 0.49079e-01_rb,0.16071e+00_rb,0.18859e+00_rb,0.19278e+00_rb,0.14002e+00_rb /)\n      kbo(:, 4,26,10) = (/ &\n        & 0.52306e-01_rb,0.17521e+00_rb,0.20782e+00_rb,0.21223e+00_rb,0.15402e+00_rb /)\n      kbo(:, 5,26,10) = (/ &\n        & 0.55285e-01_rb,0.18955e+00_rb,0.22765e+00_rb,0.23299e+00_rb,0.16864e+00_rb /)\n      kbo(:, 1,27,10) = (/ &\n        & 0.37040e-01_rb,0.12755e+00_rb,0.15088e+00_rb,0.15474e+00_rb,0.11059e+00_rb /)\n      kbo(:, 2,27,10) = (/ &\n        & 0.40121e-01_rb,0.14241e+00_rb,0.16845e+00_rb,0.17243e+00_rb,0.12369e+00_rb /)\n      kbo(:, 3,27,10) = (/ &\n        & 0.43101e-01_rb,0.15742e+00_rb,0.18726e+00_rb,0.19156e+00_rb,0.13753e+00_rb /)\n      kbo(:, 4,27,10) = (/ &\n        & 0.45931e-01_rb,0.17241e+00_rb,0.20722e+00_rb,0.21200e+00_rb,0.15204e+00_rb /)\n      kbo(:, 5,27,10) = (/ &\n        & 0.48598e-01_rb,0.18733e+00_rb,0.22772e+00_rb,0.23361e+00_rb,0.16711e+00_rb /)\n      kbo(:, 1,28,10) = (/ &\n        & 0.32582e-01_rb,0.12457e+00_rb,0.14931e+00_rb,0.15310e+00_rb,0.10829e+00_rb /)\n      kbo(:, 2,28,10) = (/ &\n        & 0.35269e-01_rb,0.13987e+00_rb,0.16776e+00_rb,0.17185e+00_rb,0.12185e+00_rb /)\n      kbo(:, 3,28,10) = (/ &\n        & 0.37905e-01_rb,0.15538e+00_rb,0.18740e+00_rb,0.19192e+00_rb,0.13621e+00_rb /)\n      kbo(:, 4,28,10) = (/ &\n        & 0.40411e-01_rb,0.17101e+00_rb,0.20797e+00_rb,0.21319e+00_rb,0.15122e+00_rb /)\n      kbo(:, 5,28,10) = (/ &\n        & 0.42843e-01_rb,0.18643e+00_rb,0.22906e+00_rb,0.23551e+00_rb,0.16683e+00_rb /)\n      kbo(:, 1,29,10) = (/ &\n        & 0.28694e-01_rb,0.12285e+00_rb,0.14922e+00_rb,0.15309e+00_rb,0.10715e+00_rb /)\n      kbo(:, 2,29,10) = (/ &\n        & 0.31078e-01_rb,0.13867e+00_rb,0.16851e+00_rb,0.17281e+00_rb,0.12115e+00_rb /)\n      kbo(:, 3,29,10) = (/ &\n        & 0.33398e-01_rb,0.15475e+00_rb,0.18886e+00_rb,0.19373e+00_rb,0.13609e+00_rb /)\n      kbo(:, 4,29,10) = (/ &\n        & 0.35655e-01_rb,0.17087e+00_rb,0.21002e+00_rb,0.21569e+00_rb,0.15161e+00_rb /)\n      kbo(:, 5,29,10) = (/ &\n        & 0.37934e-01_rb,0.18672e+00_rb,0.23156e+00_rb,0.23855e+00_rb,0.16767e+00_rb /)\n      kbo(:, 1,30,10) = (/ &\n        & 0.25318e-01_rb,0.12223e+00_rb,0.15038e+00_rb,0.15442e+00_rb,0.10692e+00_rb /)\n      kbo(:, 2,30,10) = (/ &\n        & 0.27416e-01_rb,0.13863e+00_rb,0.17040e+00_rb,0.17493e+00_rb,0.12146e+00_rb /)\n      kbo(:, 3,30,10) = (/ &\n        & 0.29487e-01_rb,0.15524e+00_rb,0.19136e+00_rb,0.19656e+00_rb,0.13693e+00_rb /)\n      kbo(:, 4,30,10) = (/ &\n        & 0.31585e-01_rb,0.17178e+00_rb,0.21298e+00_rb,0.21911e+00_rb,0.15294e+00_rb /)\n      kbo(:, 5,30,10) = (/ &\n        & 0.33743e-01_rb,0.18794e+00_rb,0.23489e+00_rb,0.24234e+00_rb,0.16937e+00_rb /)\n      kbo(:, 1,31,10) = (/ &\n        & 0.22384e-01_rb,0.12276e+00_rb,0.15268e+00_rb,0.15694e+00_rb,0.10764e+00_rb /)\n      kbo(:, 2,31,10) = (/ &\n        & 0.24241e-01_rb,0.13972e+00_rb,0.17333e+00_rb,0.17809e+00_rb,0.12275e+00_rb /)\n      kbo(:, 3,31,10) = (/ &\n        & 0.26155e-01_rb,0.15678e+00_rb,0.19481e+00_rb,0.20028e+00_rb,0.13870e+00_rb /)\n      kbo(:, 4,31,10) = (/ &\n        & 0.28119e-01_rb,0.17362e+00_rb,0.21675e+00_rb,0.22330e+00_rb,0.15510e+00_rb /)\n      kbo(:, 5,31,10) = (/ &\n        & 0.30218e-01_rb,0.19000e+00_rb,0.23891e+00_rb,0.24680e+00_rb,0.17182e+00_rb /)\n      kbo(:, 1,32,10) = (/ &\n        & 0.19818e-01_rb,0.12431e+00_rb,0.15590e+00_rb,0.16037e+00_rb,0.10919e+00_rb /)\n      kbo(:, 2,32,10) = (/ &\n        & 0.21499e-01_rb,0.14174e+00_rb,0.17710e+00_rb,0.18207e+00_rb,0.12484e+00_rb /)\n      kbo(:, 3,32,10) = (/ &\n        & 0.23289e-01_rb,0.15910e+00_rb,0.19892e+00_rb,0.20468e+00_rb,0.14116e+00_rb /)\n      kbo(:, 4,32,10) = (/ &\n        & 0.25197e-01_rb,0.17612e+00_rb,0.22110e+00_rb,0.22808e+00_rb,0.15787e+00_rb /)\n      kbo(:, 5,32,10) = (/ &\n        & 0.27257e-01_rb,0.19267e+00_rb,0.24341e+00_rb,0.25172e+00_rb,0.17483e+00_rb /)\n      kbo(:, 1,33,10) = (/ &\n        & 0.17588e-01_rb,0.12670e+00_rb,0.15984e+00_rb,0.16448e+00_rb,0.11147e+00_rb /)\n      kbo(:, 2,33,10) = (/ &\n        & 0.19157e-01_rb,0.14450e+00_rb,0.18143e+00_rb,0.18665e+00_rb,0.12758e+00_rb /)\n      kbo(:, 3,33,10) = (/ &\n        & 0.20859e-01_rb,0.16204e+00_rb,0.20353e+00_rb,0.20957e+00_rb,0.14421e+00_rb /)\n      kbo(:, 4,33,10) = (/ &\n        & 0.22735e-01_rb,0.17915e+00_rb,0.22585e+00_rb,0.23324e+00_rb,0.16113e+00_rb /)\n      kbo(:, 5,33,10) = (/ &\n        & 0.24799e-01_rb,0.19574e+00_rb,0.24826e+00_rb,0.25697e+00_rb,0.17829e+00_rb /)\n      kbo(:, 1,34,10) = (/ &\n        & 0.15617e-01_rb,0.12913e+00_rb,0.16354e+00_rb,0.16830e+00_rb,0.11378e+00_rb /)\n      kbo(:, 2,34,10) = (/ &\n        & 0.17096e-01_rb,0.14716e+00_rb,0.18538e+00_rb,0.19084e+00_rb,0.13021e+00_rb /)\n      kbo(:, 3,34,10) = (/ &\n        & 0.18753e-01_rb,0.16482e+00_rb,0.20769e+00_rb,0.21402e+00_rb,0.14705e+00_rb /)\n      kbo(:, 4,34,10) = (/ &\n        & 0.20625e-01_rb,0.18194e+00_rb,0.23012e+00_rb,0.23784e+00_rb,0.16411e+00_rb /)\n      kbo(:, 5,34,10) = (/ &\n        & 0.22709e-01_rb,0.19848e+00_rb,0.25256e+00_rb,0.26160e+00_rb,0.18143e+00_rb /)\n      kbo(:, 1,35,10) = (/ &\n        & 0.13789e-01_rb,0.13026e+00_rb,0.16543e+00_rb,0.17032e+00_rb,0.11490e+00_rb /)\n      kbo(:, 2,35,10) = (/ &\n        & 0.15216e-01_rb,0.14846e+00_rb,0.18743e+00_rb,0.19307e+00_rb,0.13153e+00_rb /)\n      kbo(:, 3,35,10) = (/ &\n        & 0.16842e-01_rb,0.16621e+00_rb,0.20987e+00_rb,0.21641e+00_rb,0.14851e+00_rb /)\n      kbo(:, 4,35,10) = (/ &\n        & 0.18686e-01_rb,0.18333e+00_rb,0.23239e+00_rb,0.24032e+00_rb,0.16565e+00_rb /)\n      kbo(:, 5,35,10) = (/ &\n        & 0.20799e-01_rb,0.19983e+00_rb,0.25487e+00_rb,0.26409e+00_rb,0.18307e+00_rb /)\n      kbo(:, 1,36,10) = (/ &\n        & 0.12099e-01_rb,0.12969e+00_rb,0.16517e+00_rb,0.17011e+00_rb,0.11448e+00_rb /)\n      kbo(:, 2,36,10) = (/ &\n        & 0.13456e-01_rb,0.14803e+00_rb,0.18723e+00_rb,0.19293e+00_rb,0.13120e+00_rb /)\n      kbo(:, 3,36,10) = (/ &\n        & 0.15032e-01_rb,0.16587e+00_rb,0.20973e+00_rb,0.21635e+00_rb,0.14826e+00_rb /)\n      kbo(:, 4,36,10) = (/ &\n        & 0.16854e-01_rb,0.18305e+00_rb,0.23232e+00_rb,0.24032e+00_rb,0.16546e+00_rb /)\n      kbo(:, 5,36,10) = (/ &\n        & 0.18993e-01_rb,0.19959e+00_rb,0.25485e+00_rb,0.26414e+00_rb,0.18292e+00_rb /)\n      kbo(:, 1,37,10) = (/ &\n        & 0.10461e-01_rb,0.12652e+00_rb,0.16173e+00_rb,0.16663e+00_rb,0.11173e+00_rb /)\n      kbo(:, 2,37,10) = (/ &\n        & 0.11729e-01_rb,0.14498e+00_rb,0.18379e+00_rb,0.18940e+00_rb,0.12844e+00_rb /)\n      kbo(:, 3,37,10) = (/ &\n        & 0.13230e-01_rb,0.16298e+00_rb,0.20628e+00_rb,0.21278e+00_rb,0.14553e+00_rb /)\n      kbo(:, 4,37,10) = (/ &\n        & 0.15005e-01_rb,0.18033e+00_rb,0.22891e+00_rb,0.23679e+00_rb,0.16275e+00_rb /)\n      kbo(:, 5,37,10) = (/ &\n        & 0.17126e-01_rb,0.19699e+00_rb,0.25151e+00_rb,0.26065e+00_rb,0.18019e+00_rb /)\n      kbo(:, 1,38,10) = (/ &\n        & 0.90496e-02_rb,0.12333e+00_rb,0.15823e+00_rb,0.16307e+00_rb,0.10897e+00_rb /)\n      kbo(:, 2,38,10) = (/ &\n        & 0.10227e-01_rb,0.14188e+00_rb,0.18026e+00_rb,0.18578e+00_rb,0.12565e+00_rb /)\n      kbo(:, 3,38,10) = (/ &\n        & 0.11665e-01_rb,0.16002e+00_rb,0.20273e+00_rb,0.20911e+00_rb,0.14274e+00_rb /)\n      kbo(:, 4,38,10) = (/ &\n        & 0.13392e-01_rb,0.17754e+00_rb,0.22537e+00_rb,0.23309e+00_rb,0.15996e+00_rb /)\n      kbo(:, 5,38,10) = (/ &\n        & 0.15506e-01_rb,0.19433e+00_rb,0.24804e+00_rb,0.25702e+00_rb,0.17741e+00_rb /)\n      kbo(:, 1,39,10) = (/ &\n        & 0.78338e-02_rb,0.12027e+00_rb,0.15482e+00_rb,0.15961e+00_rb,0.10632e+00_rb /)\n      kbo(:, 2,39,10) = (/ &\n        & 0.89378e-02_rb,0.13888e+00_rb,0.17682e+00_rb,0.18224e+00_rb,0.12295e+00_rb /)\n      kbo(:, 3,39,10) = (/ &\n        & 0.10310e-01_rb,0.15714e+00_rb,0.19926e+00_rb,0.20553e+00_rb,0.14003e+00_rb /)\n      kbo(:, 4,39,10) = (/ &\n        & 0.12002e-01_rb,0.17480e+00_rb,0.22192e+00_rb,0.22947e+00_rb,0.15725e+00_rb /)\n      kbo(:, 5,39,10) = (/ &\n        & 0.14105e-01_rb,0.19172e+00_rb,0.24464e+00_rb,0.25344e+00_rb,0.17470e+00_rb /)\n      kbo(:, 1,40,10) = (/ &\n        & 0.66914e-02_rb,0.11542e+00_rb,0.14925e+00_rb,0.15395e+00_rb,0.10210e+00_rb /)\n      kbo(:, 2,40,10) = (/ &\n        & 0.77047e-02_rb,0.13403e+00_rb,0.17118e+00_rb,0.17643e+00_rb,0.11860e+00_rb /)\n      kbo(:, 3,40,10) = (/ &\n        & 0.89835e-02_rb,0.15246e+00_rb,0.19353e+00_rb,0.19961e+00_rb,0.13564e+00_rb /)\n      kbo(:, 4,40,10) = (/ &\n        & 0.10606e-01_rb,0.17030e+00_rb,0.21619e+00_rb,0.22340e+00_rb,0.15283e+00_rb /)\n      kbo(:, 5,40,10) = (/ &\n        & 0.12648e-01_rb,0.18743e+00_rb,0.23893e+00_rb,0.24746e+00_rb,0.17023e+00_rb /)\n      kbo(:, 1,41,10) = (/ &\n        & 0.57043e-02_rb,0.11041e+00_rb,0.14350e+00_rb,0.14812e+00_rb,0.97770e-01_rb /)\n      kbo(:, 2,41,10) = (/ &\n        & 0.66329e-02_rb,0.12897e+00_rb,0.16532e+00_rb,0.17041e+00_rb,0.11409e+00_rb /)\n      kbo(:, 3,41,10) = (/ &\n        & 0.78105e-02_rb,0.14755e+00_rb,0.18757e+00_rb,0.19344e+00_rb,0.13104e+00_rb /)\n      kbo(:, 4,41,10) = (/ &\n        & 0.93536e-02_rb,0.16558e+00_rb,0.21020e+00_rb,0.21707e+00_rb,0.14824e+00_rb /)\n      kbo(:, 5,41,10) = (/ &\n        & 0.11328e-01_rb,0.18290e+00_rb,0.23295e+00_rb,0.24119e+00_rb,0.16557e+00_rb /)\n      kbo(:, 1,42,10) = (/ &\n        & 0.48607e-02_rb,0.10547e+00_rb,0.13783e+00_rb,0.14238e+00_rb,0.93542e-01_rb /)\n      kbo(:, 2,42,10) = (/ &\n        & 0.56953e-02_rb,0.12396e+00_rb,0.15948e+00_rb,0.16442e+00_rb,0.10965e+00_rb /)\n      kbo(:, 3,42,10) = (/ &\n        & 0.67857e-02_rb,0.14262e+00_rb,0.18165e+00_rb,0.18732e+00_rb,0.12648e+00_rb /)\n      kbo(:, 4,42,10) = (/ &\n        & 0.82516e-02_rb,0.16083e+00_rb,0.20424e+00_rb,0.21080e+00_rb,0.14367e+00_rb /)\n      kbo(:, 5,42,10) = (/ &\n        & 0.10149e-01_rb,0.17836e+00_rb,0.22696e+00_rb,0.23490e+00_rb,0.16095e+00_rb /)\n      kbo(:, 1,43,10) = (/ &\n        & 0.40934e-02_rb,0.99600e-01_rb,0.13106e+00_rb,0.13554e+00_rb,0.88531e-01_rb /)\n      kbo(:, 2,43,10) = (/ &\n        & 0.48473e-02_rb,0.11796e+00_rb,0.15249e+00_rb,0.15728e+00_rb,0.10438e+00_rb /)\n      kbo(:, 3,43,10) = (/ &\n        & 0.58407e-02_rb,0.13665e+00_rb,0.17453e+00_rb,0.17995e+00_rb,0.12102e+00_rb /)\n      kbo(:, 4,43,10) = (/ &\n        & 0.71922e-02_rb,0.15505e+00_rb,0.19702e+00_rb,0.20328e+00_rb,0.13817e+00_rb /)\n      kbo(:, 5,43,10) = (/ &\n        & 0.89819e-02_rb,0.17282e+00_rb,0.21974e+00_rb,0.22722e+00_rb,0.15541e+00_rb /)\n      kbo(:, 1,44,10) = (/ &\n        & 0.34279e-02_rb,0.93376e-01_rb,0.12386e+00_rb,0.12828e+00_rb,0.83256e-01_rb /)\n      kbo(:, 2,44,10) = (/ &\n        & 0.40981e-02_rb,0.11153e+00_rb,0.14501e+00_rb,0.14969e+00_rb,0.98786e-01_rb /)\n      kbo(:, 3,44,10) = (/ &\n        & 0.49801e-02_rb,0.13017e+00_rb,0.16691e+00_rb,0.17209e+00_rb,0.11523e+00_rb /)\n      kbo(:, 4,44,10) = (/ &\n        & 0.62140e-02_rb,0.14877e+00_rb,0.18924e+00_rb,0.19525e+00_rb,0.13223e+00_rb /)\n      kbo(:, 5,44,10) = (/ &\n        & 0.78865e-02_rb,0.16678e+00_rb,0.21196e+00_rb,0.21896e+00_rb,0.14947e+00_rb /)\n      kbo(:, 1,45,10) = (/ &\n        & 0.28724e-02_rb,0.87295e-01_rb,0.11671e+00_rb,0.12114e+00_rb,0.78089e-01_rb /)\n      kbo(:, 2,45,10) = (/ &\n        & 0.34468e-02_rb,0.10517e+00_rb,0.13765e+00_rb,0.14225e+00_rb,0.93322e-01_rb /)\n      kbo(:, 3,45,10) = (/ &\n        & 0.42450e-02_rb,0.12371e+00_rb,0.15937e+00_rb,0.16431e+00_rb,0.10950e+00_rb /)\n      kbo(:, 4,45,10) = (/ &\n        & 0.53608e-02_rb,0.14242e+00_rb,0.18156e+00_rb,0.18727e+00_rb,0.12633e+00_rb /)\n      kbo(:, 5,45,10) = (/ &\n        & 0.69069e-02_rb,0.16067e+00_rb,0.20420e+00_rb,0.21079e+00_rb,0.14356e+00_rb /)\n      kbo(:, 1,46,10) = (/ &\n        & 0.23836e-02_rb,0.81023e-01_rb,0.10917e+00_rb,0.11375e+00_rb,0.72722e-01_rb /)\n      kbo(:, 2,46,10) = (/ &\n        & 0.28929e-02_rb,0.98528e-01_rb,0.12997e+00_rb,0.13446e+00_rb,0.87653e-01_rb /)\n      kbo(:, 3,46,10) = (/ &\n        & 0.35850e-02_rb,0.11690e+00_rb,0.15139e+00_rb,0.15617e+00_rb,0.10350e+00_rb /)\n      kbo(:, 4,46,10) = (/ &\n        & 0.45850e-02_rb,0.13564e+00_rb,0.17345e+00_rb,0.17887e+00_rb,0.12014e+00_rb /)\n      kbo(:, 5,46,10) = (/ &\n        & 0.59899e-02_rb,0.15409e+00_rb,0.19595e+00_rb,0.20220e+00_rb,0.13729e+00_rb /)\n      kbo(:, 1,47,10) = (/ &\n        & 0.19470e-02_rb,0.74238e-01_rb,0.10082e+00_rb,0.10569e+00_rb,0.66936e-01_rb /)\n      kbo(:, 2,47,10) = (/ &\n        & 0.23890e-02_rb,0.91244e-01_rb,0.12148e+00_rb,0.12591e+00_rb,0.81479e-01_rb /)\n      kbo(:, 3,47,10) = (/ &\n        & 0.29827e-02_rb,0.10934e+00_rb,0.14258e+00_rb,0.14724e+00_rb,0.96940e-01_rb /)\n      kbo(:, 4,47,10) = (/ &\n        & 0.38583e-02_rb,0.12800e+00_rb,0.16447e+00_rb,0.16958e+00_rb,0.11333e+00_rb /)\n      kbo(:, 5,47,10) = (/ &\n        & 0.51142e-02_rb,0.14666e+00_rb,0.18678e+00_rb,0.19270e+00_rb,0.13028e+00_rb /)\n      kbo(:, 1,48,10) = (/ &\n        & 0.15861e-02_rb,0.67739e-01_rb,0.92637e-01_rb,0.97854e-01_rb,0.61349e-01_rb /)\n      kbo(:, 2,48,10) = (/ &\n        & 0.19649e-02_rb,0.84157e-01_rb,0.11305e+00_rb,0.11755e+00_rb,0.75432e-01_rb /)\n      kbo(:, 3,48,10) = (/ &\n        & 0.24852e-02_rb,0.10189e+00_rb,0.13395e+00_rb,0.13849e+00_rb,0.90556e-01_rb /)\n      kbo(:, 4,48,10) = (/ &\n        & 0.32371e-02_rb,0.12039e+00_rb,0.15554e+00_rb,0.16041e+00_rb,0.10658e+00_rb /)\n      kbo(:, 5,48,10) = (/ &\n        & 0.43439e-02_rb,0.13914e+00_rb,0.17770e+00_rb,0.18327e+00_rb,0.12334e+00_rb /)\n      kbo(:, 1,49,10) = (/ &\n        & 0.12857e-02_rb,0.61441e-01_rb,0.84638e-01_rb,0.90184e-01_rb,0.55928e-01_rb /)\n      kbo(:, 2,49,10) = (/ &\n        & 0.16127e-02_rb,0.77337e-01_rb,0.10472e+00_rb,0.10945e+00_rb,0.69577e-01_rb /)\n      kbo(:, 3,49,10) = (/ &\n        & 0.20537e-02_rb,0.94575e-01_rb,0.12545e+00_rb,0.12989e+00_rb,0.84331e-01_rb /)\n      kbo(:, 4,49,10) = (/ &\n        & 0.26910e-02_rb,0.11284e+00_rb,0.14670e+00_rb,0.15143e+00_rb,0.99981e-01_rb /)\n      kbo(:, 5,49,10) = (/ &\n        & 0.36640e-02_rb,0.13156e+00_rb,0.16870e+00_rb,0.17395e+00_rb,0.11651e+00_rb /)\n      kbo(:, 1,50,10) = (/ &\n        & 0.10457e-02_rb,0.55773e-01_rb,0.77388e-01_rb,0.83215e-01_rb,0.51035e-01_rb /)\n      kbo(:, 2,50,10) = (/ &\n        & 0.13145e-02_rb,0.71139e-01_rb,0.96987e-01_rb,0.10202e+00_rb,0.64279e-01_rb /)\n      kbo(:, 3,50,10) = (/ &\n        & 0.17051e-02_rb,0.87902e-01_rb,0.11756e+00_rb,0.12199e+00_rb,0.78626e-01_rb /)\n      kbo(:, 4,50,10) = (/ &\n        & 0.22648e-02_rb,0.10582e+00_rb,0.13854e+00_rb,0.14317e+00_rb,0.93933e-01_rb /)\n      kbo(:, 5,50,10) = (/ &\n        & 0.31061e-02_rb,0.12442e+00_rb,0.16033e+00_rb,0.16532e+00_rb,0.11017e+00_rb /)\n      kbo(:, 1,51,10) = (/ &\n        & 0.84549e-03_rb,0.50472e-01_rb,0.70528e-01_rb,0.76615e-01_rb,0.46420e-01_rb /)\n      kbo(:, 2,51,10) = (/ &\n        & 0.10690e-02_rb,0.65329e-01_rb,0.89631e-01_rb,0.94967e-01_rb,0.59271e-01_rb /)\n      kbo(:, 3,51,10) = (/ &\n        & 0.14006e-02_rb,0.81572e-01_rb,0.10994e+00_rb,0.11450e+00_rb,0.73207e-01_rb /)\n      kbo(:, 4,51,10) = (/ &\n        & 0.18893e-02_rb,0.99123e-01_rb,0.13077e+00_rb,0.13529e+00_rb,0.88203e-01_rb /)\n      kbo(:, 5,51,10) = (/ &\n        & 0.26211e-02_rb,0.11756e+00_rb,0.15226e+00_rb,0.15707e+00_rb,0.10410e+00_rb /)\n      kbo(:, 1,52,10) = (/ &\n        & 0.67948e-03_rb,0.45452e-01_rb,0.63925e-01_rb,0.70191e-01_rb,0.41984e-01_rb /)\n      kbo(:, 2,52,10) = (/ &\n        & 0.86532e-03_rb,0.59697e-01_rb,0.82454e-01_rb,0.88085e-01_rb,0.54427e-01_rb /)\n      kbo(:, 3,52,10) = (/ &\n        & 0.11431e-02_rb,0.75434e-01_rb,0.10239e+00_rb,0.10721e+00_rb,0.67964e-01_rb /)\n      kbo(:, 4,52,10) = (/ &\n        & 0.15771e-02_rb,0.92585e-01_rb,0.12313e+00_rb,0.12757e+00_rb,0.82618e-01_rb /)\n      kbo(:, 5,52,10) = (/ &\n        & 0.22169e-02_rb,0.11074e+00_rb,0.14429e+00_rb,0.14899e+00_rb,0.98166e-01_rb /)\n      kbo(:, 1,53,10) = (/ &\n        & 0.54404e-03_rb,0.40689e-01_rb,0.57565e-01_rb,0.63870e-01_rb,0.37709e-01_rb /)\n      kbo(:, 2,53,10) = (/ &\n        & 0.69516e-03_rb,0.54249e-01_rb,0.75469e-01_rb,0.81366e-01_rb,0.49728e-01_rb /)\n      kbo(:, 3,53,10) = (/ &\n        & 0.92495e-03_rb,0.69505e-01_rb,0.94951e-01_rb,0.10007e+00_rb,0.62880e-01_rb /)\n      kbo(:, 4,53,10) = (/ &\n        & 0.12935e-02_rb,0.86139e-01_rb,0.11548e+00_rb,0.11993e+00_rb,0.77126e-01_rb /)\n      kbo(:, 5,53,10) = (/ &\n        & 0.18603e-02_rb,0.10397e+00_rb,0.13641e+00_rb,0.14102e+00_rb,0.92352e-01_rb /)\n      kbo(:, 1,54,10) = (/ &\n        & 0.43618e-03_rb,0.36557e-01_rb,0.51984e-01_rb,0.58236e-01_rb,0.33960e-01_rb /)\n      kbo(:, 2,54,10) = (/ &\n        & 0.56166e-03_rb,0.49456e-01_rb,0.69241e-01_rb,0.75371e-01_rb,0.45540e-01_rb /)\n      kbo(:, 3,54,10) = (/ &\n        & 0.75035e-03_rb,0.64217e-01_rb,0.88252e-01_rb,0.93648e-01_rb,0.58325e-01_rb /)\n      kbo(:, 4,54,10) = (/ &\n        & 0.10628e-02_rb,0.80385e-01_rb,0.10853e+00_rb,0.11313e+00_rb,0.72201e-01_rb /)\n      kbo(:, 5,54,10) = (/ &\n        & 0.15600e-02_rb,0.97867e-01_rb,0.12933e+00_rb,0.13384e+00_rb,0.87138e-01_rb /)\n      kbo(:, 1,55,10) = (/ &\n        & 0.34930e-03_rb,0.32793e-01_rb,0.46881e-01_rb,0.52981e-01_rb,0.30517e-01_rb /)\n      kbo(:, 2,55,10) = (/ &\n        & 0.45330e-03_rb,0.45087e-01_rb,0.63469e-01_rb,0.69744e-01_rb,0.41669e-01_rb /)\n      kbo(:, 3,55,10) = (/ &\n        & 0.61016e-03_rb,0.59300e-01_rb,0.81969e-01_rb,0.87622e-01_rb,0.54097e-01_rb /)\n      kbo(:, 4,55,10) = (/ &\n        & 0.87186e-03_rb,0.75017e-01_rb,0.10190e+00_rb,0.10674e+00_rb,0.67613e-01_rb /)\n      kbo(:, 5,55,10) = (/ &\n        & 0.13255e-02_rb,0.92144e-01_rb,0.12263e+00_rb,0.12707e+00_rb,0.82251e-01_rb /)\n      kbo(:, 1,56,10) = (/ &\n        & 0.27869e-03_rb,0.29255e-01_rb,0.42021e-01_rb,0.47895e-01_rb,0.27250e-01_rb /)\n      kbo(:, 2,56,10) = (/ &\n        & 0.36450e-03_rb,0.40920e-01_rb,0.57903e-01_rb,0.64209e-01_rb,0.37931e-01_rb /)\n      kbo(:, 3,56,10) = (/ &\n        & 0.49136e-03_rb,0.54534e-01_rb,0.75862e-01_rb,0.81747e-01_rb,0.49990e-01_rb /)\n      kbo(:, 4,56,10) = (/ &\n        & 0.71172e-03_rb,0.69828e-01_rb,0.95390e-01_rb,0.10049e+00_rb,0.63168e-01_rb /)\n      kbo(:, 5,56,10) = (/ &\n        & 0.11017e-02_rb,0.86502e-01_rb,0.11594e+00_rb,0.12039e+00_rb,0.77442e-01_rb /)\n      kbo(:, 1,57,10) = (/ &\n        & 0.22107e-03_rb,0.25925e-01_rb,0.37436e-01_rb,0.42992e-01_rb,0.24134e-01_rb /)\n      kbo(:, 2,57,10) = (/ &\n        & 0.29170e-03_rb,0.36963e-01_rb,0.52553e-01_rb,0.58819e-01_rb,0.34341e-01_rb /)\n      kbo(:, 3,57,10) = (/ &\n        & 0.39477e-03_rb,0.49943e-01_rb,0.69900e-01_rb,0.76011e-01_rb,0.45979e-01_rb /)\n      kbo(:, 4,57,10) = (/ &\n        & 0.57598e-03_rb,0.64771e-01_rb,0.88986e-01_rb,0.94351e-01_rb,0.58814e-01_rb /)\n      kbo(:, 5,57,10) = (/ &\n        & 0.90995e-03_rb,0.80998e-01_rb,0.10929e+00_rb,0.11387e+00_rb,0.72731e-01_rb /)\n      kbo(:, 1,58,10) = (/ &\n        & 0.17561e-03_rb,0.22952e-01_rb,0.33334e-01_rb,0.38531e-01_rb,0.21328e-01_rb /)\n      kbo(:, 2,58,10) = (/ &\n        & 0.23328e-03_rb,0.33378e-01_rb,0.47700e-01_rb,0.53835e-01_rb,0.31067e-01_rb /)\n      kbo(:, 3,58,10) = (/ &\n        & 0.31697e-03_rb,0.45784e-01_rb,0.64416e-01_rb,0.70683e-01_rb,0.42303e-01_rb /)\n      kbo(:, 4,58,10) = (/ &\n        & 0.46537e-03_rb,0.60108e-01_rb,0.83029e-01_rb,0.88636e-01_rb,0.54797e-01_rb /)\n      kbo(:, 5,58,10) = (/ &\n        & 0.74786e-03_rb,0.75908e-01_rb,0.10302e+00_rb,0.10782e+00_rb,0.68377e-01_rb /)\n      kbo(:, 1,59,10) = (/ &\n        & 0.14648e-03_rb,0.21806e-01_rb,0.31752e-01_rb,0.36796e-01_rb,0.20240e-01_rb /)\n      kbo(:, 2,59,10) = (/ &\n        & 0.19618e-03_rb,0.31995e-01_rb,0.45805e-01_rb,0.51875e-01_rb,0.29797e-01_rb /)\n      kbo(:, 3,59,10) = (/ &\n        & 0.27063e-03_rb,0.44166e-01_rb,0.62268e-01_rb,0.68564e-01_rb,0.40859e-01_rb /)\n      kbo(:, 4,59,10) = (/ &\n        & 0.40629e-03_rb,0.58271e-01_rb,0.80681e-01_rb,0.86380e-01_rb,0.53223e-01_rb /)\n      kbo(:, 5,59,10) = (/ &\n        & 0.67143e-03_rb,0.73904e-01_rb,0.10053e+00_rb,0.10542e+00_rb,0.66665e-01_rb /)\n      kbo(:, 1,13,11) = (/ &\n        & 0.43607e+00_rb,0.62808e+00_rb,0.71724e+00_rb,0.73315e+00_rb,0.60101e+00_rb /)\n      kbo(:, 2,13,11) = (/ &\n        & 0.43332e+00_rb,0.62604e+00_rb,0.71980e+00_rb,0.74002e+00_rb,0.61186e+00_rb /)\n      kbo(:, 3,13,11) = (/ &\n        & 0.43924e+00_rb,0.62431e+00_rb,0.72116e+00_rb,0.74635e+00_rb,0.62343e+00_rb /)\n      kbo(:, 4,13,11) = (/ &\n        & 0.44984e+00_rb,0.62482e+00_rb,0.72168e+00_rb,0.75298e+00_rb,0.63261e+00_rb /)\n      kbo(:, 5,13,11) = (/ &\n        & 0.46047e+00_rb,0.63112e+00_rb,0.72222e+00_rb,0.75987e+00_rb,0.64021e+00_rb /)\n      kbo(:, 1,14,11) = (/ &\n        & 0.38105e+00_rb,0.57533e+00_rb,0.67001e+00_rb,0.68808e+00_rb,0.55899e+00_rb /)\n      kbo(:, 2,14,11) = (/ &\n        & 0.38509e+00_rb,0.57518e+00_rb,0.67285e+00_rb,0.69660e+00_rb,0.57227e+00_rb /)\n      kbo(:, 3,14,11) = (/ &\n        & 0.39449e+00_rb,0.57649e+00_rb,0.67532e+00_rb,0.70510e+00_rb,0.58361e+00_rb /)\n      kbo(:, 4,14,11) = (/ &\n        & 0.40382e+00_rb,0.58297e+00_rb,0.67784e+00_rb,0.71417e+00_rb,0.59305e+00_rb /)\n      kbo(:, 5,14,11) = (/ &\n        & 0.41367e+00_rb,0.59430e+00_rb,0.68136e+00_rb,0.72200e+00_rb,0.60202e+00_rb /)\n      kbo(:, 1,15,11) = (/ &\n        & 0.33634e+00_rb,0.52577e+00_rb,0.62172e+00_rb,0.64383e+00_rb,0.51752e+00_rb /)\n      kbo(:, 2,15,11) = (/ &\n        & 0.34434e+00_rb,0.52795e+00_rb,0.62601e+00_rb,0.65389e+00_rb,0.53138e+00_rb /)\n      kbo(:, 3,15,11) = (/ &\n        & 0.35278e+00_rb,0.53440e+00_rb,0.63064e+00_rb,0.66483e+00_rb,0.54288e+00_rb /)\n      kbo(:, 4,15,11) = (/ &\n        & 0.36194e+00_rb,0.54564e+00_rb,0.63643e+00_rb,0.67473e+00_rb,0.55371e+00_rb /)\n      kbo(:, 5,15,11) = (/ &\n        & 0.37392e+00_rb,0.55836e+00_rb,0.64562e+00_rb,0.68317e+00_rb,0.56497e+00_rb /)\n      kbo(:, 1,16,11) = (/ &\n        & 0.29938e+00_rb,0.48063e+00_rb,0.57442e+00_rb,0.60090e+00_rb,0.47563e+00_rb /)\n      kbo(:, 2,16,11) = (/ &\n        & 0.30677e+00_rb,0.48684e+00_rb,0.58100e+00_rb,0.61362e+00_rb,0.49008e+00_rb /)\n      kbo(:, 3,16,11) = (/ &\n        & 0.31495e+00_rb,0.49797e+00_rb,0.58852e+00_rb,0.62578e+00_rb,0.50309e+00_rb /)\n      kbo(:, 4,16,11) = (/ &\n        & 0.32635e+00_rb,0.51101e+00_rb,0.59933e+00_rb,0.63613e+00_rb,0.51641e+00_rb /)\n      kbo(:, 5,16,11) = (/ &\n        & 0.34098e+00_rb,0.52383e+00_rb,0.61318e+00_rb,0.64534e+00_rb,0.52976e+00_rb /)\n      kbo(:, 1,17,11) = (/ &\n        & 0.26573e+00_rb,0.44123e+00_rb,0.53003e+00_rb,0.56054e+00_rb,0.43533e+00_rb /)\n      kbo(:, 2,17,11) = (/ &\n        & 0.27295e+00_rb,0.45155e+00_rb,0.53872e+00_rb,0.57479e+00_rb,0.45023e+00_rb /)\n      kbo(:, 3,17,11) = (/ &\n        & 0.28334e+00_rb,0.46499e+00_rb,0.55060e+00_rb,0.58775e+00_rb,0.46535e+00_rb /)\n      kbo(:, 4,17,11) = (/ &\n        & 0.29718e+00_rb,0.47854e+00_rb,0.56610e+00_rb,0.59925e+00_rb,0.48105e+00_rb /)\n      kbo(:, 5,17,11) = (/ &\n        & 0.31347e+00_rb,0.49215e+00_rb,0.58364e+00_rb,0.61031e+00_rb,0.49645e+00_rb /)\n      kbo(:, 1,18,11) = (/ &\n        & 0.23548e+00_rb,0.40722e+00_rb,0.48899e+00_rb,0.52175e+00_rb,0.39754e+00_rb /)\n      kbo(:, 2,18,11) = (/ &\n        & 0.24465e+00_rb,0.42091e+00_rb,0.50155e+00_rb,0.53754e+00_rb,0.41400e+00_rb /)\n      kbo(:, 3,18,11) = (/ &\n        & 0.25717e+00_rb,0.43494e+00_rb,0.51756e+00_rb,0.55168e+00_rb,0.43132e+00_rb /)\n      kbo(:, 4,18,11) = (/ &\n        & 0.27241e+00_rb,0.44915e+00_rb,0.53619e+00_rb,0.56524e+00_rb,0.44875e+00_rb /)\n      kbo(:, 5,18,11) = (/ &\n        & 0.28792e+00_rb,0.46398e+00_rb,0.55551e+00_rb,0.57930e+00_rb,0.46590e+00_rb /)\n      kbo(:, 1,19,11) = (/ &\n        & 0.20944e+00_rb,0.37826e+00_rb,0.45234e+00_rb,0.48406e+00_rb,0.36392e+00_rb /)\n      kbo(:, 2,19,11) = (/ &\n        & 0.22089e+00_rb,0.39288e+00_rb,0.46903e+00_rb,0.50178e+00_rb,0.38211e+00_rb /)\n      kbo(:, 3,19,11) = (/ &\n        & 0.23514e+00_rb,0.40761e+00_rb,0.48827e+00_rb,0.51821e+00_rb,0.40103e+00_rb /)\n      kbo(:, 4,19,11) = (/ &\n        & 0.24973e+00_rb,0.42303e+00_rb,0.50894e+00_rb,0.53472e+00_rb,0.42003e+00_rb /)\n      kbo(:, 5,19,11) = (/ &\n        & 0.26400e+00_rb,0.44033e+00_rb,0.52950e+00_rb,0.55236e+00_rb,0.43892e+00_rb /)\n      kbo(:, 1,20,11) = (/ &\n        & 0.18773e+00_rb,0.35288e+00_rb,0.42094e+00_rb,0.44918e+00_rb,0.33536e+00_rb /)\n      kbo(:, 2,20,11) = (/ &\n        & 0.20090e+00_rb,0.36792e+00_rb,0.44069e+00_rb,0.46887e+00_rb,0.35493e+00_rb /)\n      kbo(:, 3,20,11) = (/ &\n        & 0.21482e+00_rb,0.38362e+00_rb,0.46266e+00_rb,0.48831e+00_rb,0.37530e+00_rb /)\n      kbo(:, 4,20,11) = (/ &\n        & 0.22865e+00_rb,0.40117e+00_rb,0.48452e+00_rb,0.50881e+00_rb,0.39557e+00_rb /)\n      kbo(:, 5,20,11) = (/ &\n        & 0.24234e+00_rb,0.42087e+00_rb,0.50657e+00_rb,0.53012e+00_rb,0.41595e+00_rb /)\n      kbo(:, 1,21,11) = (/ &\n        & 0.16913e+00_rb,0.33019e+00_rb,0.39388e+00_rb,0.41795e+00_rb,0.31127e+00_rb /)\n      kbo(:, 2,21,11) = (/ &\n        & 0.18253e+00_rb,0.34600e+00_rb,0.41645e+00_rb,0.43947e+00_rb,0.33210e+00_rb /)\n      kbo(:, 3,21,11) = (/ &\n        & 0.19592e+00_rb,0.36350e+00_rb,0.43977e+00_rb,0.46279e+00_rb,0.35347e+00_rb /)\n      kbo(:, 4,21,11) = (/ &\n        & 0.20921e+00_rb,0.38317e+00_rb,0.46337e+00_rb,0.48719e+00_rb,0.37483e+00_rb /)\n      kbo(:, 5,21,11) = (/ &\n        & 0.22258e+00_rb,0.40476e+00_rb,0.48708e+00_rb,0.51206e+00_rb,0.39691e+00_rb /)\n      kbo(:, 1,22,11) = (/ &\n        & 0.15329e+00_rb,0.31121e+00_rb,0.37219e+00_rb,0.39211e+00_rb,0.29266e+00_rb /)\n      kbo(:, 2,22,11) = (/ &\n        & 0.16615e+00_rb,0.32878e+00_rb,0.39682e+00_rb,0.41672e+00_rb,0.31445e+00_rb /)\n      kbo(:, 3,22,11) = (/ &\n        & 0.17924e+00_rb,0.34835e+00_rb,0.42167e+00_rb,0.44342e+00_rb,0.33660e+00_rb /)\n      kbo(:, 4,22,11) = (/ &\n        & 0.19225e+00_rb,0.36990e+00_rb,0.44699e+00_rb,0.47133e+00_rb,0.35944e+00_rb /)\n      kbo(:, 5,22,11) = (/ &\n        & 0.20541e+00_rb,0.39323e+00_rb,0.47271e+00_rb,0.49943e+00_rb,0.38308e+00_rb /)\n      kbo(:, 1,23,11) = (/ &\n        & 0.13887e+00_rb,0.29534e+00_rb,0.35451e+00_rb,0.37144e+00_rb,0.27763e+00_rb /)\n      kbo(:, 2,23,11) = (/ &\n        & 0.15131e+00_rb,0.31502e+00_rb,0.38068e+00_rb,0.39927e+00_rb,0.30013e+00_rb /)\n      kbo(:, 3,23,11) = (/ &\n        & 0.16398e+00_rb,0.33651e+00_rb,0.40726e+00_rb,0.42913e+00_rb,0.32331e+00_rb /)\n      kbo(:, 4,23,11) = (/ &\n        & 0.17699e+00_rb,0.35967e+00_rb,0.43436e+00_rb,0.45990e+00_rb,0.34758e+00_rb /)\n      kbo(:, 5,23,11) = (/ &\n        & 0.19026e+00_rb,0.38467e+00_rb,0.46223e+00_rb,0.49074e+00_rb,0.37282e+00_rb /)\n      kbo(:, 1,24,11) = (/ &\n        & 0.12585e+00_rb,0.28281e+00_rb,0.34015e+00_rb,0.35619e+00_rb,0.26580e+00_rb /)\n      kbo(:, 2,24,11) = (/ &\n        & 0.13791e+00_rb,0.30436e+00_rb,0.36812e+00_rb,0.38675e+00_rb,0.28903e+00_rb /)\n      kbo(:, 3,24,11) = (/ &\n        & 0.15049e+00_rb,0.32769e+00_rb,0.39648e+00_rb,0.41925e+00_rb,0.31342e+00_rb /)\n      kbo(:, 4,24,11) = (/ &\n        & 0.16367e+00_rb,0.35256e+00_rb,0.42575e+00_rb,0.45270e+00_rb,0.33923e+00_rb /)\n      kbo(:, 5,24,11) = (/ &\n        & 0.17705e+00_rb,0.37855e+00_rb,0.45558e+00_rb,0.48562e+00_rb,0.36598e+00_rb /)\n      kbo(:, 1,25,11) = (/ &\n        & 0.11440e+00_rb,0.27340e+00_rb,0.32939e+00_rb,0.34570e+00_rb,0.25676e+00_rb /)\n      kbo(:, 2,25,11) = (/ &\n        & 0.12619e+00_rb,0.29667e+00_rb,0.35918e+00_rb,0.37882e+00_rb,0.28103e+00_rb /)\n      kbo(:, 3,25,11) = (/ &\n        & 0.13880e+00_rb,0.32182e+00_rb,0.38965e+00_rb,0.41370e+00_rb,0.30678e+00_rb /)\n      kbo(:, 4,25,11) = (/ &\n        & 0.15209e+00_rb,0.34806e+00_rb,0.42076e+00_rb,0.44907e+00_rb,0.33404e+00_rb /)\n      kbo(:, 5,25,11) = (/ &\n        & 0.16564e+00_rb,0.37478e+00_rb,0.45238e+00_rb,0.48364e+00_rb,0.36209e+00_rb /)\n      kbo(:, 1,26,11) = (/ &\n        & 0.10459e+00_rb,0.26698e+00_rb,0.32246e+00_rb,0.33976e+00_rb,0.25076e+00_rb /)\n      kbo(:, 2,26,11) = (/ &\n        & 0.11626e+00_rb,0.29209e+00_rb,0.35422e+00_rb,0.37512e+00_rb,0.27618e+00_rb /)\n      kbo(:, 3,26,11) = (/ &\n        & 0.12895e+00_rb,0.31885e+00_rb,0.38669e+00_rb,0.41203e+00_rb,0.30332e+00_rb /)\n      kbo(:, 4,26,11) = (/ &\n        & 0.14230e+00_rb,0.34607e+00_rb,0.41933e+00_rb,0.44889e+00_rb,0.33190e+00_rb /)\n      kbo(:, 5,26,11) = (/ &\n        & 0.15605e+00_rb,0.37346e+00_rb,0.45243e+00_rb,0.48462e+00_rb,0.36103e+00_rb /)\n      kbo(:, 1,27,11) = (/ &\n        & 0.96118e-01_rb,0.26319e+00_rb,0.31888e+00_rb,0.33748e+00_rb,0.24718e+00_rb /)\n      kbo(:, 2,27,11) = (/ &\n        & 0.10777e+00_rb,0.29006e+00_rb,0.35247e+00_rb,0.37471e+00_rb,0.27379e+00_rb /)\n      kbo(:, 3,27,11) = (/ &\n        & 0.12054e+00_rb,0.31789e+00_rb,0.38657e+00_rb,0.41315e+00_rb,0.30239e+00_rb /)\n      kbo(:, 4,27,11) = (/ &\n        & 0.13403e+00_rb,0.34597e+00_rb,0.42050e+00_rb,0.45108e+00_rb,0.33196e+00_rb /)\n      kbo(:, 5,27,11) = (/ &\n        & 0.14803e+00_rb,0.37409e+00_rb,0.45469e+00_rb,0.48753e+00_rb,0.36202e+00_rb /)\n      kbo(:, 1,28,11) = (/ &\n        & 0.88934e-01_rb,0.26189e+00_rb,0.31824e+00_rb,0.33815e+00_rb,0.24575e+00_rb /)\n      kbo(:, 2,28,11) = (/ &\n        & 0.10066e+00_rb,0.29004e+00_rb,0.35339e+00_rb,0.37699e+00_rb,0.27368e+00_rb /)\n      kbo(:, 3,28,11) = (/ &\n        & 0.11346e+00_rb,0.31878e+00_rb,0.38868e+00_rb,0.41646e+00_rb,0.30334e+00_rb /)\n      kbo(:, 4,28,11) = (/ &\n        & 0.12719e+00_rb,0.34746e+00_rb,0.42368e+00_rb,0.45510e+00_rb,0.33384e+00_rb /)\n      kbo(:, 5,28,11) = (/ &\n        & 0.14149e+00_rb,0.37622e+00_rb,0.45856e+00_rb,0.49189e+00_rb,0.36458e+00_rb /)\n      kbo(:, 1,29,11) = (/ &\n        & 0.82953e-01_rb,0.26276e+00_rb,0.32032e+00_rb,0.34153e+00_rb,0.24649e+00_rb /)\n      kbo(:, 2,29,11) = (/ &\n        & 0.94812e-01_rb,0.29186e+00_rb,0.35678e+00_rb,0.38153e+00_rb,0.27563e+00_rb /)\n      kbo(:, 3,29,11) = (/ &\n        & 0.10778e+00_rb,0.32138e+00_rb,0.39278e+00_rb,0.42163e+00_rb,0.30623e+00_rb /)\n      kbo(:, 4,29,11) = (/ &\n        & 0.12182e+00_rb,0.35053e+00_rb,0.42853e+00_rb,0.46064e+00_rb,0.33743e+00_rb /)\n      kbo(:, 5,29,11) = (/ &\n        & 0.13655e+00_rb,0.37990e+00_rb,0.46387e+00_rb,0.49754e+00_rb,0.36866e+00_rb /)\n      kbo(:, 1,30,11) = (/ &\n        & 0.78111e-01_rb,0.26530e+00_rb,0.32451e+00_rb,0.34680e+00_rb,0.24893e+00_rb /)\n      kbo(:, 2,30,11) = (/ &\n        & 0.90075e-01_rb,0.29517e+00_rb,0.36183e+00_rb,0.38763e+00_rb,0.27915e+00_rb /)\n      kbo(:, 3,30,11) = (/ &\n        & 0.10336e+00_rb,0.32522e+00_rb,0.39838e+00_rb,0.42809e+00_rb,0.31046e+00_rb /)\n      kbo(:, 4,30,11) = (/ &\n        & 0.11787e+00_rb,0.35483e+00_rb,0.43455e+00_rb,0.46718e+00_rb,0.34218e+00_rb /)\n      kbo(:, 5,30,11) = (/ &\n        & 0.13307e+00_rb,0.38452e+00_rb,0.47003e+00_rb,0.50395e+00_rb,0.37368e+00_rb /)\n      kbo(:, 1,31,11) = (/ &\n        & 0.74235e-01_rb,0.26927e+00_rb,0.33033e+00_rb,0.35368e+00_rb,0.25294e+00_rb /)\n      kbo(:, 2,31,11) = (/ &\n        & 0.86475e-01_rb,0.29980e+00_rb,0.36814e+00_rb,0.39505e+00_rb,0.28398e+00_rb /)\n      kbo(:, 3,31,11) = (/ &\n        & 0.10025e+00_rb,0.33020e+00_rb,0.40500e+00_rb,0.43563e+00_rb,0.31586e+00_rb /)\n      kbo(:, 4,31,11) = (/ &\n        & 0.11530e+00_rb,0.36008e+00_rb,0.44151e+00_rb,0.47461e+00_rb,0.34790e+00_rb /)\n      kbo(:, 5,31,11) = (/ &\n        & 0.13103e+00_rb,0.38989e+00_rb,0.47695e+00_rb,0.51108e+00_rb,0.37953e+00_rb /)\n      kbo(:, 1,32,11) = (/ &\n        & 0.71362e-01_rb,0.27445e+00_rb,0.33748e+00_rb,0.36171e+00_rb,0.25820e+00_rb /)\n      kbo(:, 2,32,11) = (/ &\n        & 0.84060e-01_rb,0.30547e+00_rb,0.37545e+00_rb,0.40335e+00_rb,0.28988e+00_rb /)\n      kbo(:, 3,32,11) = (/ &\n        & 0.98456e-01_rb,0.33600e+00_rb,0.41253e+00_rb,0.44393e+00_rb,0.32217e+00_rb /)\n      kbo(:, 4,32,11) = (/ &\n        & 0.11408e+00_rb,0.36612e+00_rb,0.44914e+00_rb,0.48266e+00_rb,0.35443e+00_rb /)\n      kbo(:, 5,32,11) = (/ &\n        & 0.13035e+00_rb,0.39590e+00_rb,0.48448e+00_rb,0.51873e+00_rb,0.38602e+00_rb /)\n      kbo(:, 1,33,11) = (/ &\n        & 0.69437e-01_rb,0.28056e+00_rb,0.34548e+00_rb,0.37055e+00_rb,0.26439e+00_rb /)\n      kbo(:, 2,33,11) = (/ &\n        & 0.82778e-01_rb,0.31179e+00_rb,0.38345e+00_rb,0.41222e+00_rb,0.29653e+00_rb /)\n      kbo(:, 3,33,11) = (/ &\n        & 0.97818e-01_rb,0.34234e+00_rb,0.42058e+00_rb,0.45271e+00_rb,0.32902e+00_rb /)\n      kbo(:, 4,33,11) = (/ &\n        & 0.11406e+00_rb,0.37264e+00_rb,0.45719e+00_rb,0.49102e+00_rb,0.36138e+00_rb /)\n      kbo(:, 5,33,11) = (/ &\n        & 0.13083e+00_rb,0.40228e+00_rb,0.49234e+00_rb,0.52669e+00_rb,0.39293e+00_rb /)\n      kbo(:, 1,34,11) = (/ &\n        & 0.68001e-01_rb,0.28611e+00_rb,0.35258e+00_rb,0.37843e+00_rb,0.27007e+00_rb /)\n      kbo(:, 2,34,11) = (/ &\n        & 0.82015e-01_rb,0.31742e+00_rb,0.39059e+00_rb,0.42007e+00_rb,0.30253e+00_rb /)\n      kbo(:, 3,34,11) = (/ &\n        & 0.97684e-01_rb,0.34800e+00_rb,0.42777e+00_rb,0.46038e+00_rb,0.33518e+00_rb /)\n      kbo(:, 4,34,11) = (/ &\n        & 0.11453e+00_rb,0.37836e+00_rb,0.46423e+00_rb,0.49832e+00_rb,0.36754e+00_rb /)\n      kbo(:, 5,34,11) = (/ &\n        & 0.13165e+00_rb,0.40799e+00_rb,0.49927e+00_rb,0.53358e+00_rb,0.39902e+00_rb /)\n      kbo(:, 1,35,11) = (/ &\n        & 0.66173e-01_rb,0.28901e+00_rb,0.35634e+00_rb,0.38261e+00_rb,0.27305e+00_rb /)\n      kbo(:, 2,35,11) = (/ &\n        & 0.80679e-01_rb,0.32036e+00_rb,0.39443e+00_rb,0.42428e+00_rb,0.30572e+00_rb /)\n      kbo(:, 3,35,11) = (/ &\n        & 0.96839e-01_rb,0.35097e+00_rb,0.43164e+00_rb,0.46448e+00_rb,0.33845e+00_rb /)\n      kbo(:, 4,35,11) = (/ &\n        & 0.11412e+00_rb,0.38139e+00_rb,0.46804e+00_rb,0.50225e+00_rb,0.37079e+00_rb /)\n      kbo(:, 5,35,11) = (/ &\n        & 0.13154e+00_rb,0.41104e+00_rb,0.50302e+00_rb,0.53730e+00_rb,0.40230e+00_rb /)\n      kbo(:, 1,36,11) = (/ &\n        & 0.63512e-01_rb,0.28876e+00_rb,0.35615e+00_rb,0.38246e+00_rb,0.27277e+00_rb /)\n      kbo(:, 2,36,11) = (/ &\n        & 0.78322e-01_rb,0.32017e+00_rb,0.39440e+00_rb,0.42423e+00_rb,0.30554e+00_rb /)\n      kbo(:, 3,36,11) = (/ &\n        & 0.94792e-01_rb,0.35084e+00_rb,0.43169e+00_rb,0.46451e+00_rb,0.33835e+00_rb /)\n      kbo(:, 4,36,11) = (/ &\n        & 0.11239e+00_rb,0.38129e+00_rb,0.46814e+00_rb,0.50234e+00_rb,0.37075e+00_rb /)\n      kbo(:, 5,36,11) = (/ &\n        & 0.13007e+00_rb,0.41105e+00_rb,0.50318e+00_rb,0.53745e+00_rb,0.40235e+00_rb /)\n      kbo(:, 1,37,11) = (/ &\n        & 0.59276e-01_rb,0.28388e+00_rb,0.35018e+00_rb,0.37605e+00_rb,0.26777e+00_rb /)\n      kbo(:, 2,37,11) = (/ &\n        & 0.74070e-01_rb,0.31543e+00_rb,0.38877e+00_rb,0.41809e+00_rb,0.30055e+00_rb /)\n      kbo(:, 3,37,11) = (/ &\n        & 0.90621e-01_rb,0.34621e+00_rb,0.42622e+00_rb,0.45870e+00_rb,0.33345e+00_rb /)\n      kbo(:, 4,37,11) = (/ &\n        & 0.10838e+00_rb,0.37677e+00_rb,0.46291e+00_rb,0.49695e+00_rb,0.36598e+00_rb /)\n      kbo(:, 5,37,11) = (/ &\n        & 0.12629e+00_rb,0.40664e+00_rb,0.49817e+00_rb,0.53255e+00_rb,0.39771e+00_rb /)\n      kbo(:, 1,38,11) = (/ &\n        & 0.55352e-01_rb,0.27885e+00_rb,0.34399e+00_rb,0.36943e+00_rb,0.26263e+00_rb /)\n      kbo(:, 2,38,11) = (/ &\n        & 0.70099e-01_rb,0.31053e+00_rb,0.38289e+00_rb,0.41165e+00_rb,0.29537e+00_rb /)\n      kbo(:, 3,38,11) = (/ &\n        & 0.86674e-01_rb,0.34144e+00_rb,0.42052e+00_rb,0.45261e+00_rb,0.32834e+00_rb /)\n      kbo(:, 4,38,11) = (/ &\n        & 0.10451e+00_rb,0.37207e+00_rb,0.45745e+00_rb,0.49130e+00_rb,0.36103e+00_rb /)\n      kbo(:, 5,38,11) = (/ &\n        & 0.12261e+00_rb,0.40208e+00_rb,0.49291e+00_rb,0.52735e+00_rb,0.39288e+00_rb /)\n      kbo(:, 1,39,11) = (/ &\n        & 0.51830e-01_rb,0.27388e+00_rb,0.33795e+00_rb,0.36294e+00_rb,0.25765e+00_rb /)\n      kbo(:, 2,39,11) = (/ &\n        & 0.66473e-01_rb,0.30570e+00_rb,0.37709e+00_rb,0.40534e+00_rb,0.29029e+00_rb /)\n      kbo(:, 3,39,11) = (/ &\n        & 0.83032e-01_rb,0.33678e+00_rb,0.41490e+00_rb,0.44656e+00_rb,0.32332e+00_rb /)\n      kbo(:, 4,39,11) = (/ &\n        & 0.10089e+00_rb,0.36746e+00_rb,0.45203e+00_rb,0.48569e+00_rb,0.35615e+00_rb /)\n      kbo(:, 5,39,11) = (/ &\n        & 0.11914e+00_rb,0.39759e+00_rb,0.48773e+00_rb,0.52218e+00_rb,0.38813e+00_rb /)\n      kbo(:, 1,40,11) = (/ &\n        & 0.47273e-01_rb,0.26566e+00_rb,0.32789e+00_rb,0.35219e+00_rb,0.24948e+00_rb /)\n      kbo(:, 2,40,11) = (/ &\n        & 0.61538e-01_rb,0.29768e+00_rb,0.36730e+00_rb,0.39473e+00_rb,0.28193e+00_rb /)\n      kbo(:, 3,40,11) = (/ &\n        & 0.77858e-01_rb,0.32903e+00_rb,0.40551e+00_rb,0.43635e+00_rb,0.31499e+00_rb /)\n      kbo(:, 4,40,11) = (/ &\n        & 0.95580e-01_rb,0.35975e+00_rb,0.44288e+00_rb,0.47617e+00_rb,0.34794e+00_rb /)\n      kbo(:, 5,40,11) = (/ &\n        & 0.11394e+00_rb,0.39008e+00_rb,0.47900e+00_rb,0.51333e+00_rb,0.38020e+00_rb /)\n      kbo(:, 1,41,11) = (/ &\n        & 0.42888e-01_rb,0.25708e+00_rb,0.31732e+00_rb,0.34096e+00_rb,0.24098e+00_rb /)\n      kbo(:, 2,41,11) = (/ &\n        & 0.56697e-01_rb,0.28927e+00_rb,0.35696e+00_rb,0.38355e+00_rb,0.27327e+00_rb /)\n      kbo(:, 3,41,11) = (/ &\n        & 0.72702e-01_rb,0.32083e+00_rb,0.39561e+00_rb,0.42555e+00_rb,0.30626e+00_rb /)\n      kbo(:, 4,41,11) = (/ &\n        & 0.90227e-01_rb,0.35164e+00_rb,0.43315e+00_rb,0.46599e+00_rb,0.33930e+00_rb /)\n      kbo(:, 5,41,11) = (/ &\n        & 0.10861e+00_rb,0.38219e+00_rb,0.46971e+00_rb,0.50385e+00_rb,0.37183e+00_rb /)\n      kbo(:, 1,42,11) = (/ &\n        & 0.38819e-01_rb,0.24850e+00_rb,0.30677e+00_rb,0.32968e+00_rb,0.23256e+00_rb /)\n      kbo(:, 2,42,11) = (/ &\n        & 0.52147e-01_rb,0.28080e+00_rb,0.34660e+00_rb,0.37239e+00_rb,0.26466e+00_rb /)\n      kbo(:, 3,42,11) = (/ &\n        & 0.67768e-01_rb,0.31263e+00_rb,0.38564e+00_rb,0.41466e+00_rb,0.29758e+00_rb /)\n      kbo(:, 4,42,11) = (/ &\n        & 0.85041e-01_rb,0.34356e+00_rb,0.42336e+00_rb,0.45563e+00_rb,0.33065e+00_rb /)\n      kbo(:, 5,42,11) = (/ &\n        & 0.10335e+00_rb,0.37426e+00_rb,0.46032e+00_rb,0.49419e+00_rb,0.36339e+00_rb /)\n      kbo(:, 1,43,11) = (/ &\n        & 0.34406e-01_rb,0.23801e+00_rb,0.29406e+00_rb,0.31601e+00_rb,0.22240e+00_rb /)\n      kbo(:, 2,43,11) = (/ &\n        & 0.47048e-01_rb,0.27050e+00_rb,0.33401e+00_rb,0.35883e+00_rb,0.25435e+00_rb /)\n      kbo(:, 3,43,11) = (/ &\n        & 0.62114e-01_rb,0.30257e+00_rb,0.37337e+00_rb,0.40135e+00_rb,0.28701e+00_rb /)\n      kbo(:, 4,43,11) = (/ &\n        & 0.79018e-01_rb,0.33381e+00_rb,0.41146e+00_rb,0.44285e+00_rb,0.32012e+00_rb /)\n      kbo(:, 5,43,11) = (/ &\n        & 0.97123e-01_rb,0.36459e+00_rb,0.44877e+00_rb,0.48229e+00_rb,0.35311e+00_rb /)\n      kbo(:, 1,44,11) = (/ &\n        & 0.30068e-01_rb,0.22661e+00_rb,0.28047e+00_rb,0.30141e+00_rb,0.21157e+00_rb /)\n      kbo(:, 2,44,11) = (/ &\n        & 0.41934e-01_rb,0.25939e+00_rb,0.32031e+00_rb,0.34420e+00_rb,0.24331e+00_rb /)\n      kbo(:, 3,44,11) = (/ &\n        & 0.56334e-01_rb,0.29165e+00_rb,0.35997e+00_rb,0.38686e+00_rb,0.27569e+00_rb /)\n      kbo(:, 4,44,11) = (/ &\n        & 0.72738e-01_rb,0.32319e+00_rb,0.39860e+00_rb,0.42881e+00_rb,0.30880e+00_rb /)\n      kbo(:, 5,44,11) = (/ &\n        & 0.90538e-01_rb,0.35407e+00_rb,0.43616e+00_rb,0.46913e+00_rb,0.34187e+00_rb /)\n      kbo(:, 1,45,11) = (/ &\n        & 0.26090e-01_rb,0.21511e+00_rb,0.26705e+00_rb,0.28701e+00_rb,0.20089e+00_rb /)\n      kbo(:, 2,45,11) = (/ &\n        & 0.37182e-01_rb,0.24828e+00_rb,0.30662e+00_rb,0.32954e+00_rb,0.23239e+00_rb /)\n      kbo(:, 3,45,11) = (/ &\n        & 0.50828e-01_rb,0.28069e+00_rb,0.34649e+00_rb,0.37235e+00_rb,0.26452e+00_rb /)\n      kbo(:, 4,45,11) = (/ &\n        & 0.66683e-01_rb,0.31254e+00_rb,0.38562e+00_rb,0.41465e+00_rb,0.29751e+00_rb /)\n      kbo(:, 5,45,11) = (/ &\n        & 0.84110e-01_rb,0.34354e+00_rb,0.42341e+00_rb,0.45565e+00_rb,0.33061e+00_rb /)\n      kbo(:, 1,46,11) = (/ &\n        & 0.22282e-01_rb,0.20276e+00_rb,0.25300e+00_rb,0.27194e+00_rb,0.18966e+00_rb /)\n      kbo(:, 2,46,11) = (/ &\n        & 0.32494e-01_rb,0.23634e+00_rb,0.29212e+00_rb,0.31397e+00_rb,0.22083e+00_rb /)\n      kbo(:, 3,46,11) = (/ &\n        & 0.45322e-01_rb,0.26893e+00_rb,0.33209e+00_rb,0.35685e+00_rb,0.25276e+00_rb /)\n      kbo(:, 4,46,11) = (/ &\n        & 0.60492e-01_rb,0.30105e+00_rb,0.37160e+00_rb,0.39945e+00_rb,0.28546e+00_rb /)\n      kbo(:, 5,46,11) = (/ &\n        & 0.77449e-01_rb,0.33241e+00_rb,0.40979e+00_rb,0.44100e+00_rb,0.31859e+00_rb /)\n      kbo(:, 1,47,11) = (/ &\n        & 0.18534e-01_rb,0.18898e+00_rb,0.23758e+00_rb,0.25552e+00_rb,0.17724e+00_rb /)\n      kbo(:, 2,47,11) = (/ &\n        & 0.27732e-01_rb,0.22283e+00_rb,0.27608e+00_rb,0.29673e+00_rb,0.20806e+00_rb /)\n      kbo(:, 3,47,11) = (/ &\n        & 0.39604e-01_rb,0.25581e+00_rb,0.31589e+00_rb,0.33953e+00_rb,0.23975e+00_rb /)\n      kbo(:, 4,47,11) = (/ &\n        & 0.53911e-01_rb,0.28814e+00_rb,0.35568e+00_rb,0.38226e+00_rb,0.27210e+00_rb /)\n      kbo(:, 5,47,11) = (/ &\n        & 0.70242e-01_rb,0.31982e+00_rb,0.39452e+00_rb,0.42435e+00_rb,0.30521e+00_rb /)\n      kbo(:, 1,48,11) = (/ &\n        & 0.15230e-01_rb,0.17512e+00_rb,0.22238e+00_rb,0.23953e+00_rb,0.16496e+00_rb /)\n      kbo(:, 2,48,11) = (/ &\n        & 0.23424e-01_rb,0.20917e+00_rb,0.26028e+00_rb,0.27977e+00_rb,0.19549e+00_rb /)\n      kbo(:, 3,48,11) = (/ &\n        & 0.34289e-01_rb,0.24261e+00_rb,0.29967e+00_rb,0.32213e+00_rb,0.22686e+00_rb /)\n      kbo(:, 4,48,11) = (/ &\n        & 0.47677e-01_rb,0.27510e+00_rb,0.33967e+00_rb,0.36502e+00_rb,0.25892e+00_rb /)\n      kbo(:, 5,48,11) = (/ &\n        & 0.63303e-01_rb,0.30711e+00_rb,0.37902e+00_rb,0.40749e+00_rb,0.29180e+00_rb /)\n      kbo(:, 1,49,11) = (/ &\n        & 0.12348e-01_rb,0.16145e+00_rb,0.20748e+00_rb,0.22396e+00_rb,0.15290e+00_rb /)\n      kbo(:, 2,49,11) = (/ &\n        & 0.19656e-01_rb,0.19547e+00_rb,0.24481e+00_rb,0.26319e+00_rb,0.18304e+00_rb /)\n      kbo(:, 3,49,11) = (/ &\n        & 0.29411e-01_rb,0.22922e+00_rb,0.28358e+00_rb,0.30484e+00_rb,0.21403e+00_rb /)\n      kbo(:, 4,49,11) = (/ &\n        & 0.41852e-01_rb,0.26199e+00_rb,0.32356e+00_rb,0.34774e+00_rb,0.24589e+00_rb /)\n      kbo(:, 5,49,11) = (/ &\n        & 0.56641e-01_rb,0.29425e+00_rb,0.36325e+00_rb,0.39043e+00_rb,0.27839e+00_rb /)\n      kbo(:, 1,50,11) = (/ &\n        & 0.10059e-01_rb,0.14901e+00_rb,0.19385e+00_rb,0.20977e+00_rb,0.14182e+00_rb /)\n      kbo(:, 2,50,11) = (/ &\n        & 0.16439e-01_rb,0.18255e+00_rb,0.23049e+00_rb,0.24806e+00_rb,0.17150e+00_rb /)\n      kbo(:, 3,50,11) = (/ &\n        & 0.25328e-01_rb,0.21656e+00_rb,0.26875e+00_rb,0.28888e+00_rb,0.20219e+00_rb /)\n      kbo(:, 4,50,11) = (/ &\n        & 0.36730e-01_rb,0.24971e+00_rb,0.30839e+00_rb,0.33151e+00_rb,0.23378e+00_rb /)\n      kbo(:, 5,50,11) = (/ &\n        & 0.50682e-01_rb,0.28213e+00_rb,0.34832e+00_rb,0.37432e+00_rb,0.26599e+00_rb /)\n      kbo(:, 1,51,11) = (/ &\n        & 0.81000e-02_rb,0.13718e+00_rb,0.18086e+00_rb,0.19633e+00_rb,0.13125e+00_rb /)\n      kbo(:, 2,51,11) = (/ &\n        & 0.13663e-01_rb,0.17002e+00_rb,0.21682e+00_rb,0.23372e+00_rb,0.16044e+00_rb /)\n      kbo(:, 3,51,11) = (/ &\n        & 0.21646e-01_rb,0.20410e+00_rb,0.25452e+00_rb,0.27362e+00_rb,0.19085e+00_rb /)\n      kbo(:, 4,51,11) = (/ &\n        & 0.32117e-01_rb,0.23766e+00_rb,0.29370e+00_rb,0.31573e+00_rb,0.22210e+00_rb /)\n      kbo(:, 5,51,11) = (/ &\n        & 0.45217e-01_rb,0.27026e+00_rb,0.33377e+00_rb,0.35865e+00_rb,0.25409e+00_rb /)\n      kbo(:, 1,52,11) = (/ &\n        & 0.64392e-02_rb,0.12568e+00_rb,0.16814e+00_rb,0.18321e+00_rb,0.12091e+00_rb /)\n      kbo(:, 2,52,11) = (/ &\n        & 0.11223e-01_rb,0.15773e+00_rb,0.20341e+00_rb,0.21973e+00_rb,0.14959e+00_rb /)\n      kbo(:, 3,52,11) = (/ &\n        & 0.18327e-01_rb,0.19165e+00_rb,0.24057e+00_rb,0.25870e+00_rb,0.17960e+00_rb /)\n      kbo(:, 4,52,11) = (/ &\n        & 0.27978e-01_rb,0.22553e+00_rb,0.27924e+00_rb,0.30015e+00_rb,0.21055e+00_rb /)\n      kbo(:, 5,52,11) = (/ &\n        & 0.40066e-01_rb,0.25840e+00_rb,0.31913e+00_rb,0.34300e+00_rb,0.24233e+00_rb /)\n      kbo(:, 1,53,11) = (/ &\n        & 0.50582e-02_rb,0.11452e+00_rb,0.15565e+00_rb,0.17040e+00_rb,0.11082e+00_rb /)\n      kbo(:, 2,53,11) = (/ &\n        & 0.90986e-02_rb,0.14571e+00_rb,0.19026e+00_rb,0.20608e+00_rb,0.13891e+00_rb /)\n      kbo(:, 3,53,11) = (/ &\n        & 0.15360e-01_rb,0.17911e+00_rb,0.22674e+00_rb,0.24415e+00_rb,0.16845e+00_rb /)\n      kbo(:, 4,53,11) = (/ &\n        & 0.24079e-01_rb,0.21320e+00_rb,0.26488e+00_rb,0.28473e+00_rb,0.19911e+00_rb /)\n      kbo(:, 5,53,11) = (/ &\n        & 0.35249e-01_rb,0.24647e+00_rb,0.30443e+00_rb,0.32725e+00_rb,0.23061e+00_rb /)\n      kbo(:, 1,54,11) = (/ &\n        & 0.39947e-02_rb,0.10467e+00_rb,0.14438e+00_rb,0.15895e+00_rb,0.10183e+00_rb /)\n      kbo(:, 2,54,11) = (/ &\n        & 0.74123e-02_rb,0.13495e+00_rb,0.17842e+00_rb,0.19384e+00_rb,0.12928e+00_rb /)\n      kbo(:, 3,54,11) = (/ &\n        & 0.12928e-01_rb,0.16768e+00_rb,0.21428e+00_rb,0.23108e+00_rb,0.15838e+00_rb /)\n      kbo(:, 4,54,11) = (/ &\n        & 0.20817e-01_rb,0.20178e+00_rb,0.25191e+00_rb,0.27082e+00_rb,0.18875e+00_rb /)\n      kbo(:, 5,54,11) = (/ &\n        & 0.31131e-01_rb,0.23540e+00_rb,0.29100e+00_rb,0.31283e+00_rb,0.21994e+00_rb /)\n      kbo(:, 1,55,11) = (/ &\n        & 0.31444e-02_rb,0.95645e-01_rb,0.13357e+00_rb,0.14821e+00_rb,0.93456e-01_rb /)\n      kbo(:, 2,55,11) = (/ &\n        & 0.60192e-02_rb,0.12488e+00_rb,0.16728e+00_rb,0.18235e+00_rb,0.12022e+00_rb /)\n      kbo(:, 3,55,11) = (/ &\n        & 0.10844e-01_rb,0.15692e+00_rb,0.20255e+00_rb,0.21884e+00_rb,0.14887e+00_rb /)\n      kbo(:, 4,55,11) = (/ &\n        & 0.17966e-01_rb,0.19085e+00_rb,0.23968e+00_rb,0.25776e+00_rb,0.17889e+00_rb /)\n      kbo(:, 5,55,11) = (/ &\n        & 0.27575e-01_rb,0.22475e+00_rb,0.27833e+00_rb,0.29920e+00_rb,0.20981e+00_rb /)\n      kbo(:, 1,56,11) = (/ &\n        & 0.24408e-02_rb,0.87042e-01_rb,0.12294e+00_rb,0.13774e+00_rb,0.85384e-01_rb /)\n      kbo(:, 2,56,11) = (/ &\n        & 0.48425e-02_rb,0.11512e+00_rb,0.15634e+00_rb,0.17115e+00_rb,0.11140e+00_rb /)\n      kbo(:, 3,56,11) = (/ &\n        & 0.90070e-02_rb,0.14641e+00_rb,0.19103e+00_rb,0.20689e+00_rb,0.13953e+00_rb /)\n      kbo(:, 4,56,11) = (/ &\n        & 0.15384e-01_rb,0.17987e+00_rb,0.22757e+00_rb,0.24502e+00_rb,0.16913e+00_rb /)\n      kbo(:, 5,56,11) = (/ &\n        & 0.24183e-01_rb,0.21396e+00_rb,0.26576e+00_rb,0.28569e+00_rb,0.19980e+00_rb /)\n      kbo(:, 1,57,11) = (/ &\n        & 0.18661e-02_rb,0.78869e-01_rb,0.11259e+00_rb,0.12744e+00_rb,0.77594e-01_rb /)\n      kbo(:, 2,57,11) = (/ &\n        & 0.38393e-02_rb,0.10567e+00_rb,0.14558e+00_rb,0.16018e+00_rb,0.10279e+00_rb /)\n      kbo(:, 3,57,11) = (/ &\n        & 0.73986e-02_rb,0.13611e+00_rb,0.17972e+00_rb,0.19518e+00_rb,0.13032e+00_rb /)\n      kbo(:, 4,57,11) = (/ &\n        & 0.13057e-01_rb,0.16895e+00_rb,0.21565e+00_rb,0.23253e+00_rb,0.15951e+00_rb /)\n      kbo(:, 5,57,11) = (/ &\n        & 0.21059e-01_rb,0.20305e+00_rb,0.25335e+00_rb,0.27238e+00_rb,0.18989e+00_rb /)\n      kbo(:, 1,58,11) = (/ &\n        & 0.14289e-02_rb,0.71481e-01_rb,0.10314e+00_rb,0.11789e+00_rb,0.70461e-01_rb /)\n      kbo(:, 2,58,11) = (/ &\n        & 0.30447e-02_rb,0.97100e-01_rb,0.13537e+00_rb,0.15001e+00_rb,0.94840e-01_rb /)\n      kbo(:, 3,58,11) = (/ &\n        & 0.60785e-02_rb,0.12656e+00_rb,0.16917e+00_rb,0.18428e+00_rb,0.12173e+00_rb /)\n      kbo(:, 4,58,11) = (/ &\n        & 0.11073e-01_rb,0.15875e+00_rb,0.20453e+00_rb,0.22090e+00_rb,0.15049e+00_rb /)\n      kbo(:, 5,58,11) = (/ &\n        & 0.18344e-01_rb,0.19271e+00_rb,0.24175e+00_rb,0.25997e+00_rb,0.18056e+00_rb /)\n      kbo(:, 1,59,11) = (/ &\n        & 0.12466e-02_rb,0.68608e-01_rb,0.99449e-01_rb,0.11409e+00_rb,0.67679e-01_rb /)\n      kbo(:, 2,59,11) = (/ &\n        & 0.27400e-02_rb,0.93756e-01_rb,0.13130e+00_rb,0.14598e+00_rb,0.91727e-01_rb /)\n      kbo(:, 3,59,11) = (/ &\n        & 0.55829e-02_rb,0.12280e+00_rb,0.16498e+00_rb,0.17997e+00_rb,0.11835e+00_rb /)\n      kbo(:, 4,59,11) = (/ &\n        & 0.10327e-01_rb,0.15471e+00_rb,0.20012e+00_rb,0.21632e+00_rb,0.14691e+00_rb /)\n      kbo(:, 5,59,11) = (/ &\n        & 0.17312e-01_rb,0.18856e+00_rb,0.23714e+00_rb,0.25511e+00_rb,0.17685e+00_rb /)\n      kbo(:, 1,13,12) = (/ &\n        & 0.97672e+00_rb,0.12351e+01_rb,0.13467e+01_rb,0.13355e+01_rb,0.11350e+01_rb /)\n      kbo(:, 2,13,12) = (/ &\n        & 0.96517e+00_rb,0.12326e+01_rb,0.13523e+01_rb,0.13488e+01_rb,0.11500e+01_rb /)\n      kbo(:, 3,13,12) = (/ &\n        & 0.95359e+00_rb,0.12308e+01_rb,0.13576e+01_rb,0.13588e+01_rb,0.11629e+01_rb /)\n      kbo(:, 4,13,12) = (/ &\n        & 0.94644e+00_rb,0.12294e+01_rb,0.13618e+01_rb,0.13660e+01_rb,0.11761e+01_rb /)\n      kbo(:, 5,13,12) = (/ &\n        & 0.94938e+00_rb,0.12277e+01_rb,0.13647e+01_rb,0.13713e+01_rb,0.11895e+01_rb /)\n      kbo(:, 1,14,12) = (/ &\n        & 0.86287e+00_rb,0.11528e+01_rb,0.12800e+01_rb,0.12931e+01_rb,0.10793e+01_rb /)\n      kbo(:, 2,14,12) = (/ &\n        & 0.85328e+00_rb,0.11519e+01_rb,0.12878e+01_rb,0.13082e+01_rb,0.10960e+01_rb /)\n      kbo(:, 3,14,12) = (/ &\n        & 0.84776e+00_rb,0.11522e+01_rb,0.12944e+01_rb,0.13193e+01_rb,0.11122e+01_rb /)\n      kbo(:, 4,14,12) = (/ &\n        & 0.85264e+00_rb,0.11532e+01_rb,0.12995e+01_rb,0.13287e+01_rb,0.11288e+01_rb /)\n      kbo(:, 5,14,12) = (/ &\n        & 0.86761e+00_rb,0.11556e+01_rb,0.13039e+01_rb,0.13378e+01_rb,0.11458e+01_rb /)\n      kbo(:, 1,15,12) = (/ &\n        & 0.75595e+00_rb,0.10736e+01_rb,0.12146e+01_rb,0.12437e+01_rb,0.10230e+01_rb /)\n      kbo(:, 2,15,12) = (/ &\n        & 0.75063e+00_rb,0.10744e+01_rb,0.12248e+01_rb,0.12603e+01_rb,0.10430e+01_rb /)\n      kbo(:, 3,15,12) = (/ &\n        & 0.75594e+00_rb,0.10769e+01_rb,0.12334e+01_rb,0.12743e+01_rb,0.10635e+01_rb /)\n      kbo(:, 4,15,12) = (/ &\n        & 0.77107e+00_rb,0.10807e+01_rb,0.12402e+01_rb,0.12881e+01_rb,0.10841e+01_rb /)\n      kbo(:, 5,15,12) = (/ &\n        & 0.79469e+00_rb,0.10902e+01_rb,0.12461e+01_rb,0.13012e+01_rb,0.11031e+01_rb /)\n      kbo(:, 1,16,12) = (/ &\n        & 0.66063e+00_rb,0.99640e+00_rb,0.11502e+01_rb,0.11902e+01_rb,0.96912e+00_rb /)\n      kbo(:, 2,16,12) = (/ &\n        & 0.66454e+00_rb,0.10001e+01_rb,0.11634e+01_rb,0.12095e+01_rb,0.99257e+00_rb /)\n      kbo(:, 3,16,12) = (/ &\n        & 0.67895e+00_rb,0.10049e+01_rb,0.11739e+01_rb,0.12282e+01_rb,0.10170e+01_rb /)\n      kbo(:, 4,16,12) = (/ &\n        & 0.70145e+00_rb,0.10153e+01_rb,0.11833e+01_rb,0.12469e+01_rb,0.10404e+01_rb /)\n      kbo(:, 5,16,12) = (/ &\n        & 0.72525e+00_rb,0.10330e+01_rb,0.11925e+01_rb,0.12646e+01_rb,0.10610e+01_rb /)\n      kbo(:, 1,17,12) = (/ &\n        & 0.58214e+00_rb,0.92297e+00_rb,0.10896e+01_rb,0.11346e+01_rb,0.91647e+00_rb /)\n      kbo(:, 2,17,12) = (/ &\n        & 0.59400e+00_rb,0.92929e+00_rb,0.11045e+01_rb,0.11590e+01_rb,0.94550e+00_rb /)\n      kbo(:, 3,17,12) = (/ &\n        & 0.61460e+00_rb,0.94000e+00_rb,0.11172e+01_rb,0.11832e+01_rb,0.97371e+00_rb /)\n      kbo(:, 4,17,12) = (/ &\n        & 0.63691e+00_rb,0.95830e+00_rb,0.11303e+01_rb,0.12071e+01_rb,0.99891e+00_rb /)\n      kbo(:, 5,17,12) = (/ &\n        & 0.66003e+00_rb,0.98295e+00_rb,0.11440e+01_rb,0.12298e+01_rb,0.10215e+01_rb /)\n      kbo(:, 1,18,12) = (/ &\n        & 0.51831e+00_rb,0.85586e+00_rb,0.10313e+01_rb,0.10823e+01_rb,0.86734e+00_rb /)\n      kbo(:, 2,18,12) = (/ &\n        & 0.53638e+00_rb,0.86645e+00_rb,0.10487e+01_rb,0.11114e+01_rb,0.90071e+00_rb /)\n      kbo(:, 3,18,12) = (/ &\n        & 0.55679e+00_rb,0.88410e+00_rb,0.10657e+01_rb,0.11407e+01_rb,0.93149e+00_rb /)\n      kbo(:, 4,18,12) = (/ &\n        & 0.57819e+00_rb,0.90902e+00_rb,0.10831e+01_rb,0.11693e+01_rb,0.95937e+00_rb /)\n      kbo(:, 5,18,12) = (/ &\n        & 0.60387e+00_rb,0.94010e+00_rb,0.11032e+01_rb,0.11966e+01_rb,0.98550e+00_rb /)\n      kbo(:, 1,19,12) = (/ &\n        & 0.46547e+00_rb,0.79533e+00_rb,0.97579e+00_rb,0.10353e+01_rb,0.82208e+00_rb /)\n      kbo(:, 2,19,12) = (/ &\n        & 0.48441e+00_rb,0.81281e+00_rb,0.99768e+00_rb,0.10690e+01_rb,0.85858e+00_rb /)\n      kbo(:, 3,19,12) = (/ &\n        & 0.50438e+00_rb,0.83723e+00_rb,0.10197e+01_rb,0.11027e+01_rb,0.89202e+00_rb /)\n      kbo(:, 4,19,12) = (/ &\n        & 0.52861e+00_rb,0.86772e+00_rb,0.10433e+01_rb,0.11355e+01_rb,0.92298e+00_rb /)\n      kbo(:, 5,19,12) = (/ &\n        & 0.55711e+00_rb,0.90301e+00_rb,0.10701e+01_rb,0.11672e+01_rb,0.95266e+00_rb /)\n      kbo(:, 1,20,12) = (/ &\n        & 0.41965e+00_rb,0.74319e+00_rb,0.92508e+00_rb,0.99412e+00_rb,0.78089e+00_rb /)\n      kbo(:, 2,20,12) = (/ &\n        & 0.43802e+00_rb,0.76766e+00_rb,0.95235e+00_rb,0.10327e+01_rb,0.82017e+00_rb /)\n      kbo(:, 3,20,12) = (/ &\n        & 0.46025e+00_rb,0.79818e+00_rb,0.98022e+00_rb,0.10706e+01_rb,0.85677e+00_rb /)\n      kbo(:, 4,20,12) = (/ &\n        & 0.48727e+00_rb,0.83370e+00_rb,0.10109e+01_rb,0.11072e+01_rb,0.89127e+00_rb /)\n      kbo(:, 5,20,12) = (/ &\n        & 0.51863e+00_rb,0.87091e+00_rb,0.10440e+01_rb,0.11423e+01_rb,0.92433e+00_rb /)\n      kbo(:, 1,21,12) = (/ &\n        & 0.37915e+00_rb,0.69998e+00_rb,0.88069e+00_rb,0.95835e+00_rb,0.74387e+00_rb /)\n      kbo(:, 2,21,12) = (/ &\n        & 0.39885e+00_rb,0.72965e+00_rb,0.91291e+00_rb,0.10022e+01_rb,0.78645e+00_rb /)\n      kbo(:, 3,21,12) = (/ &\n        & 0.42350e+00_rb,0.76561e+00_rb,0.94765e+00_rb,0.10443e+01_rb,0.82639e+00_rb /)\n      kbo(:, 4,21,12) = (/ &\n        & 0.45298e+00_rb,0.80432e+00_rb,0.98473e+00_rb,0.10842e+01_rb,0.86477e+00_rb /)\n      kbo(:, 5,21,12) = (/ &\n        & 0.48674e+00_rb,0.84344e+00_rb,0.10236e+01_rb,0.11221e+01_rb,0.90082e+00_rb /)\n      kbo(:, 1,22,12) = (/ &\n        & 0.34554e+00_rb,0.66631e+00_rb,0.84565e+00_rb,0.93193e+00_rb,0.71462e+00_rb /)\n      kbo(:, 2,22,12) = (/ &\n        & 0.36807e+00_rb,0.70096e+00_rb,0.88353e+00_rb,0.98021e+00_rb,0.76038e+00_rb /)\n      kbo(:, 3,22,12) = (/ &\n        & 0.39520e+00_rb,0.74099e+00_rb,0.92460e+00_rb,0.10260e+01_rb,0.80381e+00_rb /)\n      kbo(:, 4,22,12) = (/ &\n        & 0.42700e+00_rb,0.78213e+00_rb,0.96750e+00_rb,0.10688e+01_rb,0.84544e+00_rb /)\n      kbo(:, 5,22,12) = (/ &\n        & 0.46306e+00_rb,0.82357e+00_rb,0.10116e+01_rb,0.11089e+01_rb,0.88444e+00_rb /)\n      kbo(:, 1,23,12) = (/ &\n        & 0.31790e+00_rb,0.64007e+00_rb,0.81825e+00_rb,0.91240e+00_rb,0.69117e+00_rb /)\n      kbo(:, 2,23,12) = (/ &\n        & 0.34313e+00_rb,0.67943e+00_rb,0.86200e+00_rb,0.96400e+00_rb,0.74026e+00_rb /)\n      kbo(:, 3,23,12) = (/ &\n        & 0.37292e+00_rb,0.72179e+00_rb,0.90853e+00_rb,0.10128e+01_rb,0.78692e+00_rb /)\n      kbo(:, 4,23,12) = (/ &\n        & 0.40683e+00_rb,0.76528e+00_rb,0.95638e+00_rb,0.10584e+01_rb,0.83132e+00_rb /)\n      kbo(:, 5,23,12) = (/ &\n        & 0.44434e+00_rb,0.80906e+00_rb,0.10049e+01_rb,0.11007e+01_rb,0.87324e+00_rb /)\n      kbo(:, 1,24,12) = (/ &\n        & 0.29587e+00_rb,0.62091e+00_rb,0.79898e+00_rb,0.89859e+00_rb,0.67383e+00_rb /)\n      kbo(:, 2,24,12) = (/ &\n        & 0.32356e+00_rb,0.66370e+00_rb,0.84800e+00_rb,0.95354e+00_rb,0.72591e+00_rb /)\n      kbo(:, 3,24,12) = (/ &\n        & 0.35587e+00_rb,0.70805e+00_rb,0.89882e+00_rb,0.10049e+01_rb,0.77551e+00_rb /)\n      kbo(:, 4,24,12) = (/ &\n        & 0.39090e+00_rb,0.75345e+00_rb,0.95073e+00_rb,0.10524e+01_rb,0.82233e+00_rb /)\n      kbo(:, 5,24,12) = (/ &\n        & 0.42938e+00_rb,0.80019e+00_rb,0.10026e+01_rb,0.10965e+01_rb,0.86634e+00_rb /)\n      kbo(:, 1,25,12) = (/ &\n        & 0.27857e+00_rb,0.60799e+00_rb,0.78705e+00_rb,0.89081e+00_rb,0.66256e+00_rb /)\n      kbo(:, 2,25,12) = (/ &\n        & 0.30889e+00_rb,0.65303e+00_rb,0.84032e+00_rb,0.94841e+00_rb,0.71733e+00_rb /)\n      kbo(:, 3,25,12) = (/ &\n        & 0.34245e+00_rb,0.69924e+00_rb,0.89488e+00_rb,0.10015e+01_rb,0.76917e+00_rb /)\n      kbo(:, 4,25,12) = (/ &\n        & 0.37871e+00_rb,0.74693e+00_rb,0.95015e+00_rb,0.10506e+01_rb,0.81807e+00_rb /)\n      kbo(:, 5,25,12) = (/ &\n        & 0.41833e+00_rb,0.79644e+00_rb,0.10044e+01_rb,0.10958e+01_rb,0.86374e+00_rb /)\n      kbo(:, 1,26,12) = (/ &\n        & 0.26580e+00_rb,0.60063e+00_rb,0.78228e+00_rb,0.88879e+00_rb,0.65720e+00_rb /)\n      kbo(:, 2,26,12) = (/ &\n        & 0.29790e+00_rb,0.64759e+00_rb,0.83895e+00_rb,0.94821e+00_rb,0.71439e+00_rb /)\n      kbo(:, 3,26,12) = (/ &\n        & 0.33261e+00_rb,0.69574e+00_rb,0.89642e+00_rb,0.10025e+01_rb,0.76782e+00_rb /)\n      kbo(:, 4,26,12) = (/ &\n        & 0.37054e+00_rb,0.74591e+00_rb,0.95396e+00_rb,0.10524e+01_rb,0.81818e+00_rb /)\n      kbo(:, 5,26,12) = (/ &\n        & 0.41158e+00_rb,0.79751e+00_rb,0.10099e+01_rb,0.10981e+01_rb,0.86507e+00_rb /)\n      kbo(:, 1,27,12) = (/ &\n        & 0.25628e+00_rb,0.59727e+00_rb,0.78261e+00_rb,0.89115e+00_rb,0.65648e+00_rb /)\n      kbo(:, 2,27,12) = (/ &\n        & 0.28973e+00_rb,0.64617e+00_rb,0.84187e+00_rb,0.95137e+00_rb,0.71531e+00_rb /)\n      kbo(:, 3,27,12) = (/ &\n        & 0.32602e+00_rb,0.69640e+00_rb,0.90149e+00_rb,0.10062e+01_rb,0.76992e+00_rb /)\n      kbo(:, 4,27,12) = (/ &\n        & 0.36566e+00_rb,0.74858e+00_rb,0.96067e+00_rb,0.10565e+01_rb,0.82130e+00_rb /)\n      kbo(:, 5,27,12) = (/ &\n        & 0.40839e+00_rb,0.80160e+00_rb,0.10174e+01_rb,0.11025e+01_rb,0.86892e+00_rb /)\n      kbo(:, 1,28,12) = (/ &\n        & 0.24931e+00_rb,0.59767e+00_rb,0.78703e+00_rb,0.89664e+00_rb,0.65970e+00_rb /)\n      kbo(:, 2,28,12) = (/ &\n        & 0.28438e+00_rb,0.64828e+00_rb,0.84808e+00_rb,0.95711e+00_rb,0.71948e+00_rb /)\n      kbo(:, 3,28,12) = (/ &\n        & 0.32259e+00_rb,0.70046e+00_rb,0.90930e+00_rb,0.10123e+01_rb,0.77494e+00_rb /)\n      kbo(:, 4,28,12) = (/ &\n        & 0.36394e+00_rb,0.75423e+00_rb,0.96943e+00_rb,0.10625e+01_rb,0.82683e+00_rb /)\n      kbo(:, 5,28,12) = (/ &\n        & 0.40857e+00_rb,0.80828e+00_rb,0.10265e+01_rb,0.11085e+01_rb,0.87457e+00_rb /)\n      kbo(:, 1,29,12) = (/ &\n        & 0.24529e+00_rb,0.60153e+00_rb,0.79470e+00_rb,0.90469e+00_rb,0.66635e+00_rb /)\n      kbo(:, 2,29,12) = (/ &\n        & 0.28215e+00_rb,0.65374e+00_rb,0.85707e+00_rb,0.96518e+00_rb,0.72659e+00_rb /)\n      kbo(:, 3,29,12) = (/ &\n        & 0.32237e+00_rb,0.70744e+00_rb,0.91955e+00_rb,0.10202e+01_rb,0.78233e+00_rb /)\n      kbo(:, 4,29,12) = (/ &\n        & 0.36548e+00_rb,0.76246e+00_rb,0.98006e+00_rb,0.10704e+01_rb,0.83435e+00_rb /)\n      kbo(:, 5,29,12) = (/ &\n        & 0.41179e+00_rb,0.81715e+00_rb,0.10368e+01_rb,0.11160e+01_rb,0.88198e+00_rb /)\n      kbo(:, 1,30,12) = (/ &\n        & 0.24386e+00_rb,0.60816e+00_rb,0.80473e+00_rb,0.91460e+00_rb,0.67543e+00_rb /)\n      kbo(:, 2,30,12) = (/ &\n        & 0.28279e+00_rb,0.66165e+00_rb,0.86804e+00_rb,0.97470e+00_rb,0.73566e+00_rb /)\n      kbo(:, 3,30,12) = (/ &\n        & 0.32483e+00_rb,0.71650e+00_rb,0.93115e+00_rb,0.10292e+01_rb,0.79124e+00_rb /)\n      kbo(:, 4,30,12) = (/ &\n        & 0.36954e+00_rb,0.77208e+00_rb,0.99158e+00_rb,0.10790e+01_rb,0.84299e+00_rb /)\n      kbo(:, 5,30,12) = (/ &\n        & 0.41749e+00_rb,0.82738e+00_rb,0.10478e+01_rb,0.11245e+01_rb,0.89039e+00_rb /)\n      kbo(:, 1,31,12) = (/ &\n        & 0.24525e+00_rb,0.61702e+00_rb,0.81682e+00_rb,0.92621e+00_rb,0.68640e+00_rb /)\n      kbo(:, 2,31,12) = (/ &\n        & 0.28616e+00_rb,0.67142e+00_rb,0.88072e+00_rb,0.98550e+00_rb,0.74643e+00_rb /)\n      kbo(:, 3,31,12) = (/ &\n        & 0.32989e+00_rb,0.72710e+00_rb,0.94409e+00_rb,0.10393e+01_rb,0.80152e+00_rb /)\n      kbo(:, 4,31,12) = (/ &\n        & 0.37609e+00_rb,0.78314e+00_rb,0.10041e+01_rb,0.10886e+01_rb,0.85269e+00_rb /)\n      kbo(:, 5,31,12) = (/ &\n        & 0.42530e+00_rb,0.83896e+00_rb,0.10596e+01_rb,0.11338e+01_rb,0.89957e+00_rb /)\n      kbo(:, 1,32,12) = (/ &\n        & 0.24917e+00_rb,0.62738e+00_rb,0.83018e+00_rb,0.93886e+00_rb,0.69870e+00_rb /)\n      kbo(:, 2,32,12) = (/ &\n        & 0.29180e+00_rb,0.68257e+00_rb,0.89466e+00_rb,0.99723e+00_rb,0.75819e+00_rb /)\n      kbo(:, 3,32,12) = (/ &\n        & 0.33695e+00_rb,0.73898e+00_rb,0.95783e+00_rb,0.10503e+01_rb,0.81270e+00_rb /)\n      kbo(:, 4,32,12) = (/ &\n        & 0.38441e+00_rb,0.79527e+00_rb,0.10172e+01_rb,0.10987e+01_rb,0.86313e+00_rb /)\n      kbo(:, 5,32,12) = (/ &\n        & 0.43473e+00_rb,0.85145e+00_rb,0.10718e+01_rb,0.11436e+01_rb,0.90933e+00_rb /)\n      kbo(:, 1,33,12) = (/ &\n        & 0.25524e+00_rb,0.63888e+00_rb,0.84456e+00_rb,0.95208e+00_rb,0.71177e+00_rb /)\n      kbo(:, 2,33,12) = (/ &\n        & 0.29923e+00_rb,0.69477e+00_rb,0.90943e+00_rb,0.10094e+01_rb,0.77043e+00_rb /)\n      kbo(:, 3,33,12) = (/ &\n        & 0.34555e+00_rb,0.75166e+00_rb,0.97211e+00_rb,0.10616e+01_rb,0.82442e+00_rb /)\n      kbo(:, 4,33,12) = (/ &\n        & 0.39409e+00_rb,0.80804e+00_rb,0.10306e+01_rb,0.11094e+01_rb,0.87396e+00_rb /)\n      kbo(:, 5,33,12) = (/ &\n        & 0.44532e+00_rb,0.86454e+00_rb,0.10842e+01_rb,0.11536e+01_rb,0.91947e+00_rb /)\n      kbo(:, 1,34,12) = (/ &\n        & 0.26139e+00_rb,0.64937e+00_rb,0.85738e+00_rb,0.96358e+00_rb,0.72330e+00_rb /)\n      kbo(:, 2,34,12) = (/ &\n        & 0.30644e+00_rb,0.70578e+00_rb,0.92238e+00_rb,0.10200e+01_rb,0.78117e+00_rb /)\n      kbo(:, 3,34,12) = (/ &\n        & 0.35368e+00_rb,0.76284e+00_rb,0.98445e+00_rb,0.10715e+01_rb,0.83457e+00_rb /)\n      kbo(:, 4,34,12) = (/ &\n        & 0.40294e+00_rb,0.81944e+00_rb,0.10421e+01_rb,0.11185e+01_rb,0.88331e+00_rb /)\n      kbo(:, 5,34,12) = (/ &\n        & 0.45497e+00_rb,0.87610e+00_rb,0.10949e+01_rb,0.11623e+01_rb,0.92821e+00_rb /)\n      kbo(:, 1,35,12) = (/ &\n        & 0.26429e+00_rb,0.65495e+00_rb,0.86437e+00_rb,0.96967e+00_rb,0.72944e+00_rb /)\n      kbo(:, 2,35,12) = (/ &\n        & 0.31003e+00_rb,0.71171e+00_rb,0.92940e+00_rb,0.10257e+01_rb,0.78687e+00_rb /)\n      kbo(:, 3,35,12) = (/ &\n        & 0.35779e+00_rb,0.76892e+00_rb,0.99113e+00_rb,0.10767e+01_rb,0.83993e+00_rb /)\n      kbo(:, 4,35,12) = (/ &\n        & 0.40757e+00_rb,0.82572e+00_rb,0.10483e+01_rb,0.11235e+01_rb,0.88834e+00_rb /)\n      kbo(:, 5,35,12) = (/ &\n        & 0.46005e+00_rb,0.88243e+00_rb,0.11007e+01_rb,0.11671e+01_rb,0.93291e+00_rb /)\n      kbo(:, 1,36,12) = (/ &\n        & 0.26301e+00_rb,0.65478e+00_rb,0.86458e+00_rb,0.96965e+00_rb,0.72937e+00_rb /)\n      kbo(:, 2,36,12) = (/ &\n        & 0.30906e+00_rb,0.71167e+00_rb,0.92967e+00_rb,0.10257e+01_rb,0.78687e+00_rb /)\n      kbo(:, 3,36,12) = (/ &\n        & 0.35709e+00_rb,0.76907e+00_rb,0.99151e+00_rb,0.10769e+01_rb,0.84005e+00_rb /)\n      kbo(:, 4,36,12) = (/ &\n        & 0.40702e+00_rb,0.82602e+00_rb,0.10488e+01_rb,0.11238e+01_rb,0.88850e+00_rb /)\n      kbo(:, 5,36,12) = (/ &\n        & 0.45966e+00_rb,0.88282e+00_rb,0.11012e+01_rb,0.11674e+01_rb,0.93315e+00_rb /)\n      kbo(:, 1,37,12) = (/ &\n        & 0.25532e+00_rb,0.64621e+00_rb,0.85496e+00_rb,0.96073e+00_rb,0.72018e+00_rb /)\n      kbo(:, 2,37,12) = (/ &\n        & 0.30133e+00_rb,0.70315e+00_rb,0.92046e+00_rb,0.10178e+01_rb,0.77861e+00_rb /)\n      kbo(:, 3,37,12) = (/ &\n        & 0.34928e+00_rb,0.76070e+00_rb,0.98300e+00_rb,0.10697e+01_rb,0.83253e+00_rb /)\n      kbo(:, 4,37,12) = (/ &\n        & 0.39901e+00_rb,0.81782e+00_rb,0.10410e+01_rb,0.11173e+01_rb,0.88173e+00_rb /)\n      kbo(:, 5,37,12) = (/ &\n        & 0.45136e+00_rb,0.87470e+00_rb,0.10942e+01_rb,0.11614e+01_rb,0.92694e+00_rb /)\n      kbo(:, 1,38,12) = (/ &\n        & 0.24761e+00_rb,0.63742e+00_rb,0.84491e+00_rb,0.95139e+00_rb,0.71066e+00_rb /)\n      kbo(:, 2,38,12) = (/ &\n        & 0.29353e+00_rb,0.69428e+00_rb,0.91068e+00_rb,0.10095e+01_rb,0.76992e+00_rb /)\n      kbo(:, 3,38,12) = (/ &\n        & 0.34135e+00_rb,0.75196e+00_rb,0.97396e+00_rb,0.10621e+01_rb,0.82461e+00_rb /)\n      kbo(:, 4,38,12) = (/ &\n        & 0.39084e+00_rb,0.80925e+00_rb,0.10327e+01_rb,0.11104e+01_rb,0.87459e+00_rb /)\n      kbo(:, 5,38,12) = (/ &\n        & 0.44289e+00_rb,0.86617e+00_rb,0.10866e+01_rb,0.11550e+01_rb,0.92038e+00_rb /)\n      kbo(:, 1,39,12) = (/ &\n        & 0.24017e+00_rb,0.62886e+00_rb,0.83503e+00_rb,0.94210e+00_rb,0.70124e+00_rb /)\n      kbo(:, 2,39,12) = (/ &\n        & 0.28601e+00_rb,0.68569e+00_rb,0.90106e+00_rb,0.10011e+01_rb,0.76142e+00_rb /)\n      kbo(:, 3,39,12) = (/ &\n        & 0.33368e+00_rb,0.74335e+00_rb,0.96490e+00_rb,0.10546e+01_rb,0.81673e+00_rb /)\n      kbo(:, 4,39,12) = (/ &\n        & 0.38296e+00_rb,0.80081e+00_rb,0.10243e+01_rb,0.11035e+01_rb,0.86747e+00_rb /)\n      kbo(:, 5,39,12) = (/ &\n        & 0.43465e+00_rb,0.85778e+00_rb,0.10791e+01_rb,0.11488e+01_rb,0.91385e+00_rb /)\n      kbo(:, 1,40,12) = (/ &\n        & 0.22833e+00_rb,0.61463e+00_rb,0.81821e+00_rb,0.92620e+00_rb,0.68530e+00_rb /)\n      kbo(:, 2,40,12) = (/ &\n        & 0.27395e+00_rb,0.67134e+00_rb,0.88467e+00_rb,0.98686e+00_rb,0.74688e+00_rb /)\n      kbo(:, 3,40,12) = (/ &\n        & 0.32124e+00_rb,0.72890e+00_rb,0.94943e+00_rb,0.10418e+01_rb,0.80324e+00_rb /)\n      kbo(:, 4,40,12) = (/ &\n        & 0.37015e+00_rb,0.78652e+00_rb,0.10100e+01_rb,0.10918e+01_rb,0.85523e+00_rb /)\n      kbo(:, 5,40,12) = (/ &\n        & 0.42126e+00_rb,0.84372e+00_rb,0.10660e+01_rb,0.11379e+01_rb,0.90264e+00_rb /)\n      kbo(:, 1,41,12) = (/ &\n        & 0.21612e+00_rb,0.59971e+00_rb,0.80041e+00_rb,0.90904e+00_rb,0.66824e+00_rb /)\n      kbo(:, 2,41,12) = (/ &\n        & 0.26150e+00_rb,0.65630e+00_rb,0.86743e+00_rb,0.97155e+00_rb,0.73120e+00_rb /)\n      kbo(:, 3,41,12) = (/ &\n        & 0.30837e+00_rb,0.71376e+00_rb,0.93288e+00_rb,0.10279e+01_rb,0.78880e+00_rb /)\n      kbo(:, 4,41,12) = (/ &\n        & 0.35698e+00_rb,0.77150e+00_rb,0.99473e+00_rb,0.10791e+01_rb,0.84209e+00_rb /)\n      kbo(:, 5,41,12) = (/ &\n        & 0.40745e+00_rb,0.82887e+00_rb,0.10519e+01_rb,0.11261e+01_rb,0.89062e+00_rb /)\n      kbo(:, 1,42,12) = (/ &\n        & 0.20417e+00_rb,0.58472e+00_rb,0.78237e+00_rb,0.89154e+00_rb,0.65066e+00_rb /)\n      kbo(:, 2,42,12) = (/ &\n        & 0.24921e+00_rb,0.64136e+00_rb,0.85007e+00_rb,0.95580e+00_rb,0.71510e+00_rb /)\n      kbo(:, 3,42,12) = (/ &\n        & 0.29566e+00_rb,0.69861e+00_rb,0.91611e+00_rb,0.10137e+01_rb,0.77414e+00_rb /)\n      kbo(:, 4,42,12) = (/ &\n        & 0.34395e+00_rb,0.75651e+00_rb,0.97922e+00_rb,0.10662e+01_rb,0.82865e+00_rb /)\n      kbo(:, 5,42,12) = (/ &\n        & 0.39383e+00_rb,0.81397e+00_rb,0.10376e+01_rb,0.11142e+01_rb,0.87842e+00_rb /)\n      kbo(:, 1,43,12) = (/ &\n        & 0.18997e+00_rb,0.56647e+00_rb,0.76032e+00_rb,0.86976e+00_rb,0.62901e+00_rb /)\n      kbo(:, 2,43,12) = (/ &\n        & 0.23447e+00_rb,0.62342e+00_rb,0.82892e+00_rb,0.93617e+00_rb,0.69524e+00_rb /)\n      kbo(:, 3,43,12) = (/ &\n        & 0.28050e+00_rb,0.68037e+00_rb,0.89544e+00_rb,0.99597e+00_rb,0.75607e+00_rb /)\n      kbo(:, 4,43,12) = (/ &\n        & 0.32830e+00_rb,0.73817e+00_rb,0.95981e+00_rb,0.10502e+01_rb,0.81194e+00_rb /)\n      kbo(:, 5,43,12) = (/ &\n        & 0.37763e+00_rb,0.79580e+00_rb,0.10196e+01_rb,0.10995e+01_rb,0.86317e+00_rb /)\n      kbo(:, 1,44,12) = (/ &\n        & 0.17494e+00_rb,0.54678e+00_rb,0.73637e+00_rb,0.84544e+00_rb,0.60542e+00_rb /)\n      kbo(:, 2,44,12) = (/ &\n        & 0.21877e+00_rb,0.60406e+00_rb,0.80575e+00_rb,0.91415e+00_rb,0.67322e+00_rb /)\n      kbo(:, 3,44,12) = (/ &\n        & 0.26445e+00_rb,0.66075e+00_rb,0.87287e+00_rb,0.97625e+00_rb,0.73598e+00_rb /)\n      kbo(:, 4,44,12) = (/ &\n        & 0.31161e+00_rb,0.71841e+00_rb,0.93827e+00_rb,0.10322e+01_rb,0.79326e+00_rb /)\n      kbo(:, 5,44,12) = (/ &\n        & 0.36052e+00_rb,0.77622e+00_rb,0.99972e+00_rb,0.10831e+01_rb,0.84620e+00_rb /)\n      kbo(:, 1,45,12) = (/ &\n        & 0.16016e+00_rb,0.52729e+00_rb,0.71224e+00_rb,0.82038e+00_rb,0.58172e+00_rb /)\n      kbo(:, 2,45,12) = (/ &\n        & 0.20336e+00_rb,0.58455e+00_rb,0.78227e+00_rb,0.89144e+00_rb,0.65050e+00_rb /)\n      kbo(:, 3,45,12) = (/ &\n        & 0.24861e+00_rb,0.64128e+00_rb,0.85023e+00_rb,0.95584e+00_rb,0.71509e+00_rb /)\n      kbo(:, 4,45,12) = (/ &\n        & 0.29518e+00_rb,0.69870e+00_rb,0.91640e+00_rb,0.10138e+01_rb,0.77417e+00_rb /)\n      kbo(:, 5,45,12) = (/ &\n        & 0.34361e+00_rb,0.75661e+00_rb,0.97947e+00_rb,0.10663e+01_rb,0.82874e+00_rb /)\n      kbo(:, 1,46,12) = (/ &\n        & 0.14495e+00_rb,0.50668e+00_rb,0.68614e+00_rb,0.79268e+00_rb,0.55619e+00_rb /)\n      kbo(:, 2,46,12) = (/ &\n        & 0.18729e+00_rb,0.56366e+00_rb,0.75707e+00_rb,0.86650e+00_rb,0.62580e+00_rb /)\n      kbo(:, 3,46,12) = (/ &\n        & 0.23189e+00_rb,0.62077e+00_rb,0.82600e+00_rb,0.93336e+00_rb,0.69232e+00_rb /)\n      kbo(:, 4,46,12) = (/ &\n        & 0.27798e+00_rb,0.67784e+00_rb,0.89269e+00_rb,0.99345e+00_rb,0.75352e+00_rb /)\n      kbo(:, 5,46,12) = (/ &\n        & 0.32583e+00_rb,0.73560e+00_rb,0.95715e+00_rb,0.10480e+01_rb,0.80957e+00_rb /)\n      kbo(:, 1,47,12) = (/ &\n        & 0.12858e+00_rb,0.48369e+00_rb,0.65638e+00_rb,0.76017e+00_rb,0.52730e+00_rb /)\n      kbo(:, 2,47,12) = (/ &\n        & 0.16969e+00_rb,0.54041e+00_rb,0.72859e+00_rb,0.83745e+00_rb,0.59783e+00_rb /)\n      kbo(:, 3,47,12) = (/ &\n        & 0.21344e+00_rb,0.59783e+00_rb,0.79837e+00_rb,0.90704e+00_rb,0.66606e+00_rb /)\n      kbo(:, 4,47,12) = (/ &\n        & 0.25910e+00_rb,0.65455e+00_rb,0.86586e+00_rb,0.96989e+00_rb,0.72949e+00_rb /)\n      kbo(:, 5,47,12) = (/ &\n        & 0.30618e+00_rb,0.71222e+00_rb,0.93155e+00_rb,0.10265e+01_rb,0.78728e+00_rb /)\n      kbo(:, 1,48,12) = (/ &\n        & 0.11298e+00_rb,0.46082e+00_rb,0.62642e+00_rb,0.72640e+00_rb,0.49809e+00_rb /)\n      kbo(:, 2,48,12) = (/ &\n        & 0.15246e+00_rb,0.51740e+00_rb,0.69983e+00_rb,0.80735e+00_rb,0.56961e+00_rb /)\n      kbo(:, 3,48,12) = (/ &\n        & 0.19539e+00_rb,0.57459e+00_rb,0.77041e+00_rb,0.87978e+00_rb,0.63885e+00_rb /)\n      kbo(:, 4,48,12) = (/ &\n        & 0.24045e+00_rb,0.63157e+00_rb,0.83892e+00_rb,0.94534e+00_rb,0.70441e+00_rb /)\n      kbo(:, 5,48,12) = (/ &\n        & 0.28683e+00_rb,0.68881e+00_rb,0.90534e+00_rb,0.10043e+01_rb,0.76449e+00_rb /)\n      kbo(:, 1,49,12) = (/ &\n        & 0.98247e-01_rb,0.43787e+00_rb,0.59630e+00_rb,0.69142e+00_rb,0.46886e+00_rb /)\n      kbo(:, 2,49,12) = (/ &\n        & 0.13602e+00_rb,0.49453e+00_rb,0.67051e+00_rb,0.77567e+00_rb,0.54098e+00_rb /)\n      kbo(:, 3,49,12) = (/ &\n        & 0.17773e+00_rb,0.55136e+00_rb,0.74221e+00_rb,0.85142e+00_rb,0.61109e+00_rb /)\n      kbo(:, 4,49,12) = (/ &\n        & 0.22196e+00_rb,0.60876e+00_rb,0.81162e+00_rb,0.91969e+00_rb,0.67863e+00_rb /)\n      kbo(:, 5,49,12) = (/ &\n        & 0.26789e+00_rb,0.66564e+00_rb,0.87866e+00_rb,0.98128e+00_rb,0.74108e+00_rb /)\n      kbo(:, 1,50,12) = (/ &\n        & 0.85448e-01_rb,0.41621e+00_rb,0.56763e+00_rb,0.65757e+00_rb,0.44117e+00_rb /)\n      kbo(:, 2,50,12) = (/ &\n        & 0.12109e+00_rb,0.47310e+00_rb,0.64247e+00_rb,0.74462e+00_rb,0.51379e+00_rb /)\n      kbo(:, 3,50,12) = (/ &\n        & 0.16156e+00_rb,0.52985e+00_rb,0.71554e+00_rb,0.82373e+00_rb,0.58488e+00_rb /)\n      kbo(:, 4,50,12) = (/ &\n        & 0.20488e+00_rb,0.58711e+00_rb,0.78559e+00_rb,0.89468e+00_rb,0.65362e+00_rb /)\n      kbo(:, 5,50,12) = (/ &\n        & 0.25037e+00_rb,0.64398e+00_rb,0.85353e+00_rb,0.95880e+00_rb,0.71804e+00_rb /)\n      kbo(:, 1,51,12) = (/ &\n        & 0.73759e-01_rb,0.39485e+00_rb,0.53977e+00_rb,0.62407e+00_rb,0.41437e+00_rb /)\n      kbo(:, 2,51,12) = (/ &\n        & 0.10727e+00_rb,0.45237e+00_rb,0.61531e+00_rb,0.71353e+00_rb,0.48727e+00_rb /)\n      kbo(:, 3,51,12) = (/ &\n        & 0.14620e+00_rb,0.50899e+00_rb,0.68916e+00_rb,0.79586e+00_rb,0.55909e+00_rb /)\n      kbo(:, 4,51,12) = (/ &\n        & 0.18867e+00_rb,0.56597e+00_rb,0.76009e+00_rb,0.86950e+00_rb,0.62868e+00_rb /)\n      kbo(:, 5,51,12) = (/ &\n        & 0.23351e+00_rb,0.62321e+00_rb,0.82900e+00_rb,0.93613e+00_rb,0.69507e+00_rb /)\n      kbo(:, 1,52,12) = (/ &\n        & 0.62975e-01_rb,0.37352e+00_rb,0.51168e+00_rb,0.59007e+00_rb,0.38790e+00_rb /)\n      kbo(:, 2,52,12) = (/ &\n        & 0.94238e-01_rb,0.43155e+00_rb,0.58786e+00_rb,0.68153e+00_rb,0.46072e+00_rb /)\n      kbo(:, 3,52,12) = (/ &\n        & 0.13138e+00_rb,0.48824e+00_rb,0.66233e+00_rb,0.76673e+00_rb,0.53305e+00_rb /)\n      kbo(:, 4,52,12) = (/ &\n        & 0.17291e+00_rb,0.54507e+00_rb,0.73444e+00_rb,0.84335e+00_rb,0.60343e+00_rb /)\n      kbo(:, 5,52,12) = (/ &\n        & 0.21681e+00_rb,0.60245e+00_rb,0.80402e+00_rb,0.91249e+00_rb,0.67147e+00_rb /)\n      kbo(:, 1,53,12) = (/ &\n        & 0.53060e-01_rb,0.35230e+00_rb,0.48353e+00_rb,0.55561e+00_rb,0.36178e+00_rb /)\n      kbo(:, 2,53,12) = (/ &\n        & 0.81984e-01_rb,0.41041e+00_rb,0.56005e+00_rb,0.64855e+00_rb,0.43393e+00_rb /)\n      kbo(:, 3,53,12) = (/ &\n        & 0.11713e+00_rb,0.46754e+00_rb,0.63518e+00_rb,0.73640e+00_rb,0.50665e+00_rb /)\n      kbo(:, 4,53,12) = (/ &\n        & 0.15723e+00_rb,0.52417e+00_rb,0.70847e+00_rb,0.81636e+00_rb,0.57800e+00_rb /)\n      kbo(:, 5,53,12) = (/ &\n        & 0.20038e+00_rb,0.58144e+00_rb,0.77877e+00_rb,0.88807e+00_rb,0.64700e+00_rb /)\n      kbo(:, 1,54,12) = (/ &\n        & 0.44825e-01_rb,0.33285e+00_rb,0.45764e+00_rb,0.52392e+00_rb,0.33821e+00_rb /)\n      kbo(:, 2,54,12) = (/ &\n        & 0.71480e-01_rb,0.39083e+00_rb,0.53456e+00_rb,0.61778e+00_rb,0.40943e+00_rb /)\n      kbo(:, 3,54,12) = (/ &\n        & 0.10463e+00_rb,0.44857e+00_rb,0.61031e+00_rb,0.70773e+00_rb,0.48234e+00_rb /)\n      kbo(:, 4,54,12) = (/ &\n        & 0.14329e+00_rb,0.50511e+00_rb,0.68427e+00_rb,0.79060e+00_rb,0.55433e+00_rb /)\n      kbo(:, 5,54,12) = (/ &\n        & 0.18561e+00_rb,0.56209e+00_rb,0.75543e+00_rb,0.86487e+00_rb,0.62409e+00_rb /)\n      kbo(:, 1,55,12) = (/ &\n        & 0.37713e-01_rb,0.31417e+00_rb,0.43292e+00_rb,0.49354e+00_rb,0.31617e+00_rb /)\n      kbo(:, 2,55,12) = (/ &\n        & 0.62120e-01_rb,0.37210e+00_rb,0.50985e+00_rb,0.58786e+00_rb,0.38623e+00_rb /)\n      kbo(:, 3,55,12) = (/ &\n        & 0.93283e-01_rb,0.43021e+00_rb,0.58608e+00_rb,0.67950e+00_rb,0.45902e+00_rb /)\n      kbo(:, 4,55,12) = (/ &\n        & 0.13035e+00_rb,0.48690e+00_rb,0.66064e+00_rb,0.76487e+00_rb,0.53142e+00_rb /)\n      kbo(:, 5,55,12) = (/ &\n        & 0.17183e+00_rb,0.54374e+00_rb,0.73284e+00_rb,0.84168e+00_rb,0.60189e+00_rb /)\n      kbo(:, 1,56,12) = (/ &\n        & 0.31364e-01_rb,0.29533e+00_rb,0.40826e+00_rb,0.46346e+00_rb,0.29456e+00_rb /)\n      kbo(:, 2,56,12) = (/ &\n        & 0.53447e-01_rb,0.35352e+00_rb,0.48522e+00_rb,0.55771e+00_rb,0.36336e+00_rb /)\n      kbo(:, 3,56,12) = (/ &\n        & 0.82579e-01_rb,0.41171e+00_rb,0.56173e+00_rb,0.65061e+00_rb,0.43556e+00_rb /)\n      kbo(:, 4,56,12) = (/ &\n        & 0.11788e+00_rb,0.46877e+00_rb,0.63683e+00_rb,0.73828e+00_rb,0.50830e+00_rb /)\n      kbo(:, 5,56,12) = (/ &\n        & 0.15810e+00_rb,0.52547e+00_rb,0.71011e+00_rb,0.81806e+00_rb,0.57961e+00_rb /)\n      kbo(:, 1,57,12) = (/ &\n        & 0.25728e-01_rb,0.27641e+00_rb,0.38366e+00_rb,0.43364e+00_rb,0.27324e+00_rb /)\n      kbo(:, 2,57,12) = (/ &\n        & 0.45538e-01_rb,0.33495e+00_rb,0.46047e+00_rb,0.52741e+00_rb,0.34078e+00_rb /)\n      kbo(:, 3,57,12) = (/ &\n        & 0.72492e-01_rb,0.39302e+00_rb,0.53741e+00_rb,0.62128e+00_rb,0.41216e+00_rb /)\n      kbo(:, 4,57,12) = (/ &\n        & 0.10590e+00_rb,0.45065e+00_rb,0.61311e+00_rb,0.71103e+00_rb,0.48510e+00_rb /)\n      kbo(:, 5,57,12) = (/ &\n        & 0.14476e+00_rb,0.50725e+00_rb,0.68700e+00_rb,0.79354e+00_rb,0.55702e+00_rb /)\n      kbo(:, 1,58,12) = (/ &\n        & 0.21034e-01_rb,0.25862e+00_rb,0.36035e+00_rb,0.40559e+00_rb,0.25327e+00_rb /)\n      kbo(:, 2,58,12) = (/ &\n        & 0.38718e-01_rb,0.31732e+00_rb,0.43714e+00_rb,0.49876e+00_rb,0.31992e+00_rb /)\n      kbo(:, 3,58,12) = (/ &\n        & 0.63552e-01_rb,0.37529e+00_rb,0.51407e+00_rb,0.59305e+00_rb,0.39018e+00_rb /)\n      kbo(:, 4,58,12) = (/ &\n        & 0.95105e-01_rb,0.43334e+00_rb,0.59030e+00_rb,0.68443e+00_rb,0.46307e+00_rb /)\n      kbo(:, 5,58,12) = (/ &\n        & 0.13248e+00_rb,0.49002e+00_rb,0.66471e+00_rb,0.76934e+00_rb,0.53538e+00_rb /)\n      kbo(:, 1,59,12) = (/ &\n        & 0.19312e-01_rb,0.25156e+00_rb,0.35103e+00_rb,0.39450e+00_rb,0.24538e+00_rb /)\n      kbo(:, 2,59,12) = (/ &\n        & 0.36163e-01_rb,0.31020e+00_rb,0.42773e+00_rb,0.48723e+00_rb,0.31163e+00_rb /)\n      kbo(:, 3,59,12) = (/ &\n        & 0.60143e-01_rb,0.36820e+00_rb,0.50471e+00_rb,0.58164e+00_rb,0.38146e+00_rb /)\n      kbo(:, 4,59,12) = (/ &\n        & 0.90924e-01_rb,0.42637e+00_rb,0.58105e+00_rb,0.67358e+00_rb,0.45417e+00_rb /)\n      kbo(:, 5,59,12) = (/ &\n        & 0.12765e+00_rb,0.48313e+00_rb,0.65572e+00_rb,0.75941e+00_rb,0.52665e+00_rb /)\n      kbo(:, 1,13,13) = (/ &\n        & 0.25702e+01_rb,0.27735e+01_rb,0.28760e+01_rb,0.25966e+01_rb,0.23968e+01_rb /)\n      kbo(:, 2,13,13) = (/ &\n        & 0.25597e+01_rb,0.27776e+01_rb,0.28903e+01_rb,0.26158e+01_rb,0.24224e+01_rb /)\n      kbo(:, 3,13,13) = (/ &\n        & 0.25494e+01_rb,0.27801e+01_rb,0.29040e+01_rb,0.26351e+01_rb,0.24494e+01_rb /)\n      kbo(:, 4,13,13) = (/ &\n        & 0.25338e+01_rb,0.27802e+01_rb,0.29182e+01_rb,0.26543e+01_rb,0.24747e+01_rb /)\n      kbo(:, 5,13,13) = (/ &\n        & 0.25177e+01_rb,0.27760e+01_rb,0.29320e+01_rb,0.26728e+01_rb,0.24963e+01_rb /)\n      kbo(:, 1,14,13) = (/ &\n        & 0.23659e+01_rb,0.26936e+01_rb,0.28410e+01_rb,0.26130e+01_rb,0.23363e+01_rb /)\n      kbo(:, 2,14,13) = (/ &\n        & 0.23577e+01_rb,0.27024e+01_rb,0.28615e+01_rb,0.26344e+01_rb,0.23684e+01_rb /)\n      kbo(:, 3,14,13) = (/ &\n        & 0.23468e+01_rb,0.27102e+01_rb,0.28819e+01_rb,0.26565e+01_rb,0.24004e+01_rb /)\n      kbo(:, 4,14,13) = (/ &\n        & 0.23350e+01_rb,0.27153e+01_rb,0.29051e+01_rb,0.26785e+01_rb,0.24267e+01_rb /)\n      kbo(:, 5,14,13) = (/ &\n        & 0.23244e+01_rb,0.27141e+01_rb,0.29262e+01_rb,0.26967e+01_rb,0.24480e+01_rb /)\n      kbo(:, 1,15,13) = (/ &\n        & 0.21606e+01_rb,0.25927e+01_rb,0.27805e+01_rb,0.26146e+01_rb,0.22773e+01_rb /)\n      kbo(:, 2,15,13) = (/ &\n        & 0.21537e+01_rb,0.26084e+01_rb,0.28087e+01_rb,0.26417e+01_rb,0.23162e+01_rb /)\n      kbo(:, 3,15,13) = (/ &\n        & 0.21448e+01_rb,0.26237e+01_rb,0.28408e+01_rb,0.26683e+01_rb,0.23515e+01_rb /)\n      kbo(:, 4,15,13) = (/ &\n        & 0.21380e+01_rb,0.26327e+01_rb,0.28720e+01_rb,0.26931e+01_rb,0.23792e+01_rb /)\n      kbo(:, 5,15,13) = (/ &\n        & 0.21347e+01_rb,0.26387e+01_rb,0.29018e+01_rb,0.27159e+01_rb,0.24036e+01_rb /)\n      kbo(:, 1,16,13) = (/ &\n        & 0.19588e+01_rb,0.24824e+01_rb,0.27086e+01_rb,0.26036e+01_rb,0.22170e+01_rb /)\n      kbo(:, 2,16,13) = (/ &\n        & 0.19544e+01_rb,0.25053e+01_rb,0.27466e+01_rb,0.26370e+01_rb,0.22638e+01_rb /)\n      kbo(:, 3,16,13) = (/ &\n        & 0.19508e+01_rb,0.25256e+01_rb,0.27882e+01_rb,0.26694e+01_rb,0.23023e+01_rb /)\n      kbo(:, 4,16,13) = (/ &\n        & 0.19522e+01_rb,0.25422e+01_rb,0.28288e+01_rb,0.26997e+01_rb,0.23338e+01_rb /)\n      kbo(:, 5,16,13) = (/ &\n        & 0.19669e+01_rb,0.25568e+01_rb,0.28660e+01_rb,0.27268e+01_rb,0.23639e+01_rb /)\n      kbo(:, 1,17,13) = (/ &\n        & 0.17683e+01_rb,0.23717e+01_rb,0.26296e+01_rb,0.25828e+01_rb,0.21586e+01_rb /)\n      kbo(:, 2,17,13) = (/ &\n        & 0.17670e+01_rb,0.24002e+01_rb,0.26798e+01_rb,0.26243e+01_rb,0.22104e+01_rb /)\n      kbo(:, 3,17,13) = (/ &\n        & 0.17705e+01_rb,0.24261e+01_rb,0.27313e+01_rb,0.26643e+01_rb,0.22525e+01_rb /)\n      kbo(:, 4,17,13) = (/ &\n        & 0.17889e+01_rb,0.24495e+01_rb,0.27802e+01_rb,0.27001e+01_rb,0.22912e+01_rb /)\n      kbo(:, 5,17,13) = (/ &\n        & 0.18206e+01_rb,0.24734e+01_rb,0.28261e+01_rb,0.27304e+01_rb,0.23278e+01_rb /)\n      kbo(:, 1,18,13) = (/ &\n        & 0.15903e+01_rb,0.22606e+01_rb,0.25530e+01_rb,0.25561e+01_rb,0.21033e+01_rb /)\n      kbo(:, 2,18,13) = (/ &\n        & 0.15961e+01_rb,0.22974e+01_rb,0.26139e+01_rb,0.26069e+01_rb,0.21585e+01_rb /)\n      kbo(:, 3,18,13) = (/ &\n        & 0.16151e+01_rb,0.23303e+01_rb,0.26738e+01_rb,0.26546e+01_rb,0.22069e+01_rb /)\n      kbo(:, 4,18,13) = (/ &\n        & 0.16495e+01_rb,0.23625e+01_rb,0.27316e+01_rb,0.26970e+01_rb,0.22532e+01_rb /)\n      kbo(:, 5,18,13) = (/ &\n        & 0.16970e+01_rb,0.23957e+01_rb,0.27859e+01_rb,0.27320e+01_rb,0.22970e+01_rb /)\n      kbo(:, 1,19,13) = (/ &\n        & 0.14257e+01_rb,0.21563e+01_rb,0.24826e+01_rb,0.25271e+01_rb,0.20500e+01_rb /)\n      kbo(:, 2,19,13) = (/ &\n        & 0.14448e+01_rb,0.21999e+01_rb,0.25521e+01_rb,0.25882e+01_rb,0.21113e+01_rb /)\n      kbo(:, 3,19,13) = (/ &\n        & 0.14809e+01_rb,0.22420e+01_rb,0.26202e+01_rb,0.26436e+01_rb,0.21676e+01_rb /)\n      kbo(:, 4,19,13) = (/ &\n        & 0.15301e+01_rb,0.22839e+01_rb,0.26861e+01_rb,0.26918e+01_rb,0.22215e+01_rb /)\n      kbo(:, 5,19,13) = (/ &\n        & 0.15917e+01_rb,0.23278e+01_rb,0.27486e+01_rb,0.27324e+01_rb,0.22720e+01_rb /)\n      kbo(:, 1,20,13) = (/ &\n        & 0.12800e+01_rb,0.20626e+01_rb,0.24230e+01_rb,0.25008e+01_rb,0.20040e+01_rb /)\n      kbo(:, 2,20,13) = (/ &\n        & 0.13152e+01_rb,0.21132e+01_rb,0.24996e+01_rb,0.25711e+01_rb,0.20725e+01_rb /)\n      kbo(:, 3,20,13) = (/ &\n        & 0.13653e+01_rb,0.21643e+01_rb,0.25750e+01_rb,0.26341e+01_rb,0.21362e+01_rb /)\n      kbo(:, 4,20,13) = (/ &\n        & 0.14290e+01_rb,0.22166e+01_rb,0.26493e+01_rb,0.26871e+01_rb,0.21969e+01_rb /)\n      kbo(:, 5,20,13) = (/ &\n        & 0.15047e+01_rb,0.22739e+01_rb,0.27186e+01_rb,0.27332e+01_rb,0.22536e+01_rb /)\n      kbo(:, 1,21,13) = (/ &\n        & 0.11565e+01_rb,0.19804e+01_rb,0.23723e+01_rb,0.24790e+01_rb,0.19652e+01_rb /)\n      kbo(:, 2,21,13) = (/ &\n        & 0.12043e+01_rb,0.20401e+01_rb,0.24563e+01_rb,0.25572e+01_rb,0.20406e+01_rb /)\n      kbo(:, 3,21,13) = (/ &\n        & 0.12682e+01_rb,0.20995e+01_rb,0.25386e+01_rb,0.26265e+01_rb,0.21117e+01_rb /)\n      kbo(:, 4,21,13) = (/ &\n        & 0.13446e+01_rb,0.21634e+01_rb,0.26197e+01_rb,0.26846e+01_rb,0.21783e+01_rb /)\n      kbo(:, 5,21,13) = (/ &\n        & 0.14328e+01_rb,0.22322e+01_rb,0.26943e+01_rb,0.27351e+01_rb,0.22400e+01_rb /)\n      kbo(:, 1,22,13) = (/ &\n        & 0.10567e+01_rb,0.19161e+01_rb,0.23380e+01_rb,0.24675e+01_rb,0.19394e+01_rb /)\n      kbo(:, 2,22,13) = (/ &\n        & 0.11171e+01_rb,0.19843e+01_rb,0.24279e+01_rb,0.25525e+01_rb,0.20217e+01_rb /)\n      kbo(:, 3,22,13) = (/ &\n        & 0.11926e+01_rb,0.20529e+01_rb,0.25167e+01_rb,0.26264e+01_rb,0.20987e+01_rb /)\n      kbo(:, 4,22,13) = (/ &\n        & 0.12819e+01_rb,0.21280e+01_rb,0.26028e+01_rb,0.26881e+01_rb,0.21696e+01_rb /)\n      kbo(:, 5,22,13) = (/ &\n        & 0.13818e+01_rb,0.22069e+01_rb,0.26807e+01_rb,0.27417e+01_rb,0.22350e+01_rb /)\n      kbo(:, 1,23,13) = (/ &\n        & 0.97722e+00_rb,0.18665e+01_rb,0.23140e+01_rb,0.24623e+01_rb,0.19226e+01_rb /)\n      kbo(:, 2,23,13) = (/ &\n        & 0.10487e+01_rb,0.19424e+01_rb,0.24103e+01_rb,0.25530e+01_rb,0.20109e+01_rb /)\n      kbo(:, 3,23,13) = (/ &\n        & 0.11351e+01_rb,0.20216e+01_rb,0.25035e+01_rb,0.26294e+01_rb,0.20926e+01_rb /)\n      kbo(:, 4,23,13) = (/ &\n        & 0.12356e+01_rb,0.21056e+01_rb,0.25931e+01_rb,0.26937e+01_rb,0.21670e+01_rb /)\n      kbo(:, 5,23,13) = (/ &\n        & 0.13470e+01_rb,0.21926e+01_rb,0.26734e+01_rb,0.27495e+01_rb,0.22345e+01_rb /)\n      kbo(:, 1,24,13) = (/ &\n        & 0.91609e+00_rb,0.18302e+01_rb,0.23004e+01_rb,0.24641e+01_rb,0.19149e+01_rb /)\n      kbo(:, 2,24,13) = (/ &\n        & 0.99757e+00_rb,0.19150e+01_rb,0.24014e+01_rb,0.25579e+01_rb,0.20076e+01_rb /)\n      kbo(:, 3,24,13) = (/ &\n        & 0.10945e+01_rb,0.20031e+01_rb,0.24987e+01_rb,0.26360e+01_rb,0.20926e+01_rb /)\n      kbo(:, 4,24,13) = (/ &\n        & 0.12058e+01_rb,0.20942e+01_rb,0.25896e+01_rb,0.27020e+01_rb,0.21691e+01_rb /)\n      kbo(:, 5,24,13) = (/ &\n        & 0.13269e+01_rb,0.21869e+01_rb,0.26718e+01_rb,0.27594e+01_rb,0.22381e+01_rb /)\n      kbo(:, 1,25,13) = (/ &\n        & 0.87183e+00_rb,0.18068e+01_rb,0.22964e+01_rb,0.24719e+01_rb,0.19153e+01_rb /)\n      kbo(:, 2,25,13) = (/ &\n        & 0.96269e+00_rb,0.19004e+01_rb,0.24012e+01_rb,0.25669e+01_rb,0.20109e+01_rb /)\n      kbo(:, 3,25,13) = (/ &\n        & 0.10701e+01_rb,0.19953e+01_rb,0.24998e+01_rb,0.26458e+01_rb,0.20980e+01_rb /)\n      kbo(:, 4,25,13) = (/ &\n        & 0.11910e+01_rb,0.20919e+01_rb,0.25913e+01_rb,0.27126e+01_rb,0.21754e+01_rb /)\n      kbo(:, 5,25,13) = (/ &\n        & 0.13188e+01_rb,0.21891e+01_rb,0.26749e+01_rb,0.27711e+01_rb,0.22449e+01_rb /)\n      kbo(:, 1,26,13) = (/ &\n        & 0.84313e+00_rb,0.17965e+01_rb,0.23011e+01_rb,0.24858e+01_rb,0.19238e+01_rb /)\n      kbo(:, 2,26,13) = (/ &\n        & 0.94434e+00_rb,0.18970e+01_rb,0.24073e+01_rb,0.25798e+01_rb,0.20205e+01_rb /)\n      kbo(:, 3,26,13) = (/ &\n        & 0.10612e+01_rb,0.19972e+01_rb,0.25069e+01_rb,0.26589e+01_rb,0.21080e+01_rb /)\n      kbo(:, 4,26,13) = (/ &\n        & 0.11887e+01_rb,0.20979e+01_rb,0.25988e+01_rb,0.27257e+01_rb,0.21853e+01_rb /)\n      kbo(:, 5,26,13) = (/ &\n        & 0.13225e+01_rb,0.21985e+01_rb,0.26831e+01_rb,0.27841e+01_rb,0.22550e+01_rb /)\n      kbo(:, 1,27,13) = (/ &\n        & 0.82783e+00_rb,0.17960e+01_rb,0.23110e+01_rb,0.25019e+01_rb,0.19363e+01_rb /)\n      kbo(:, 2,27,13) = (/ &\n        & 0.93873e+00_rb,0.19014e+01_rb,0.24182e+01_rb,0.25950e+01_rb,0.20338e+01_rb /)\n      kbo(:, 3,27,13) = (/ &\n        & 0.10628e+01_rb,0.20052e+01_rb,0.25176e+01_rb,0.26735e+01_rb,0.21206e+01_rb /)\n      kbo(:, 4,27,13) = (/ &\n        & 0.11961e+01_rb,0.21092e+01_rb,0.26097e+01_rb,0.27398e+01_rb,0.21974e+01_rb /)\n      kbo(:, 5,27,13) = (/ &\n        & 0.13342e+01_rb,0.22123e+01_rb,0.26944e+01_rb,0.27973e+01_rb,0.22665e+01_rb /)\n      kbo(:, 1,28,13) = (/ &\n        & 0.82452e+00_rb,0.18027e+01_rb,0.23247e+01_rb,0.25200e+01_rb,0.19523e+01_rb /)\n      kbo(:, 2,28,13) = (/ &\n        & 0.94277e+00_rb,0.19121e+01_rb,0.24323e+01_rb,0.26114e+01_rb,0.20494e+01_rb /)\n      kbo(:, 3,28,13) = (/ &\n        & 0.10725e+01_rb,0.20183e+01_rb,0.25313e+01_rb,0.26888e+01_rb,0.21352e+01_rb /)\n      kbo(:, 4,28,13) = (/ &\n        & 0.12107e+01_rb,0.21244e+01_rb,0.26233e+01_rb,0.27544e+01_rb,0.22110e+01_rb /)\n      kbo(:, 5,28,13) = (/ &\n        & 0.13516e+01_rb,0.22292e+01_rb,0.27078e+01_rb,0.28106e+01_rb,0.22794e+01_rb /)\n      kbo(:, 1,29,13) = (/ &\n        & 0.83075e+00_rb,0.18160e+01_rb,0.23425e+01_rb,0.25401e+01_rb,0.19712e+01_rb /)\n      kbo(:, 2,29,13) = (/ &\n        & 0.95513e+00_rb,0.19278e+01_rb,0.24494e+01_rb,0.26294e+01_rb,0.20669e+01_rb /)\n      kbo(:, 3,29,13) = (/ &\n        & 0.10900e+01_rb,0.20358e+01_rb,0.25478e+01_rb,0.27053e+01_rb,0.21513e+01_rb /)\n      kbo(:, 4,29,13) = (/ &\n        & 0.12315e+01_rb,0.21431e+01_rb,0.26391e+01_rb,0.27692e+01_rb,0.22259e+01_rb /)\n      kbo(:, 5,29,13) = (/ &\n        & 0.13745e+01_rb,0.22488e+01_rb,0.27235e+01_rb,0.28240e+01_rb,0.22934e+01_rb /)\n      kbo(:, 1,30,13) = (/ &\n        & 0.84416e+00_rb,0.18336e+01_rb,0.23624e+01_rb,0.25609e+01_rb,0.19916e+01_rb /)\n      kbo(:, 2,30,13) = (/ &\n        & 0.97368e+00_rb,0.19464e+01_rb,0.24682e+01_rb,0.26481e+01_rb,0.20854e+01_rb /)\n      kbo(:, 3,30,13) = (/ &\n        & 0.11126e+01_rb,0.20559e+01_rb,0.25658e+01_rb,0.27219e+01_rb,0.21680e+01_rb /)\n      kbo(:, 4,30,13) = (/ &\n        & 0.12564e+01_rb,0.21643e+01_rb,0.26566e+01_rb,0.27840e+01_rb,0.22414e+01_rb /)\n      kbo(:, 5,30,13) = (/ &\n        & 0.14008e+01_rb,0.22700e+01_rb,0.27405e+01_rb,0.28371e+01_rb,0.23076e+01_rb /)\n      kbo(:, 1,31,13) = (/ &\n        & 0.86384e+00_rb,0.18548e+01_rb,0.23844e+01_rb,0.25824e+01_rb,0.20133e+01_rb /)\n      kbo(:, 2,31,13) = (/ &\n        & 0.99753e+00_rb,0.19681e+01_rb,0.24888e+01_rb,0.26671e+01_rb,0.21046e+01_rb /)\n      kbo(:, 3,31,13) = (/ &\n        & 0.11394e+01_rb,0.20787e+01_rb,0.25856e+01_rb,0.27387e+01_rb,0.21855e+01_rb /)\n      kbo(:, 4,31,13) = (/ &\n        & 0.12850e+01_rb,0.21876e+01_rb,0.26758e+01_rb,0.27988e+01_rb,0.22577e+01_rb /)\n      kbo(:, 5,31,13) = (/ &\n        & 0.14304e+01_rb,0.22931e+01_rb,0.27584e+01_rb,0.28498e+01_rb,0.23225e+01_rb /)\n      kbo(:, 1,32,13) = (/ &\n        & 0.88808e+00_rb,0.18788e+01_rb,0.24078e+01_rb,0.26044e+01_rb,0.20359e+01_rb /)\n      kbo(:, 2,32,13) = (/ &\n        & 0.10254e+01_rb,0.19921e+01_rb,0.25106e+01_rb,0.26862e+01_rb,0.21246e+01_rb /)\n      kbo(:, 3,32,13) = (/ &\n        & 0.11696e+01_rb,0.21031e+01_rb,0.26064e+01_rb,0.27554e+01_rb,0.22034e+01_rb /)\n      kbo(:, 4,32,13) = (/ &\n        & 0.13164e+01_rb,0.22122e+01_rb,0.26955e+01_rb,0.28135e+01_rb,0.22742e+01_rb /)\n      kbo(:, 5,32,13) = (/ &\n        & 0.14621e+01_rb,0.23175e+01_rb,0.27772e+01_rb,0.28624e+01_rb,0.23376e+01_rb /)\n      kbo(:, 1,33,13) = (/ &\n        & 0.91576e+00_rb,0.19044e+01_rb,0.24318e+01_rb,0.26262e+01_rb,0.20585e+01_rb /)\n      kbo(:, 2,33,13) = (/ &\n        & 0.10563e+01_rb,0.20178e+01_rb,0.25332e+01_rb,0.27053e+01_rb,0.21448e+01_rb /)\n      kbo(:, 3,33,13) = (/ &\n        & 0.12022e+01_rb,0.21286e+01_rb,0.26280e+01_rb,0.27719e+01_rb,0.22216e+01_rb /)\n      kbo(:, 4,33,13) = (/ &\n        & 0.13498e+01_rb,0.22379e+01_rb,0.27158e+01_rb,0.28276e+01_rb,0.22909e+01_rb /)\n      kbo(:, 5,33,13) = (/ &\n        & 0.14952e+01_rb,0.23427e+01_rb,0.27963e+01_rb,0.28748e+01_rb,0.23524e+01_rb /)\n      kbo(:, 1,34,13) = (/ &\n        & 0.94113e+00_rb,0.19270e+01_rb,0.24527e+01_rb,0.26448e+01_rb,0.20775e+01_rb /)\n      kbo(:, 2,34,13) = (/ &\n        & 0.10840e+01_rb,0.20405e+01_rb,0.25528e+01_rb,0.27213e+01_rb,0.21619e+01_rb /)\n      kbo(:, 3,34,13) = (/ &\n        & 0.12311e+01_rb,0.21512e+01_rb,0.26466e+01_rb,0.27855e+01_rb,0.22370e+01_rb /)\n      kbo(:, 4,34,13) = (/ &\n        & 0.13793e+01_rb,0.22602e+01_rb,0.27333e+01_rb,0.28395e+01_rb,0.23050e+01_rb /)\n      kbo(:, 5,34,13) = (/ &\n        & 0.15242e+01_rb,0.23644e+01_rb,0.28128e+01_rb,0.28850e+01_rb,0.23650e+01_rb /)\n      kbo(:, 1,35,13) = (/ &\n        & 0.95467e+00_rb,0.19391e+01_rb,0.24637e+01_rb,0.26549e+01_rb,0.20879e+01_rb /)\n      kbo(:, 2,35,13) = (/ &\n        & 0.10989e+01_rb,0.20529e+01_rb,0.25635e+01_rb,0.27301e+01_rb,0.21712e+01_rb /)\n      kbo(:, 3,35,13) = (/ &\n        & 0.12468e+01_rb,0.21638e+01_rb,0.26569e+01_rb,0.27931e+01_rb,0.22456e+01_rb /)\n      kbo(:, 4,35,13) = (/ &\n        & 0.13953e+01_rb,0.22726e+01_rb,0.27430e+01_rb,0.28463e+01_rb,0.23128e+01_rb /)\n      kbo(:, 5,35,13) = (/ &\n        & 0.15401e+01_rb,0.23764e+01_rb,0.28219e+01_rb,0.28908e+01_rb,0.23721e+01_rb /)\n      kbo(:, 1,36,13) = (/ &\n        & 0.95401e+00_rb,0.19393e+01_rb,0.24641e+01_rb,0.26563e+01_rb,0.20890e+01_rb /)\n      kbo(:, 2,36,13) = (/ &\n        & 0.10986e+01_rb,0.20534e+01_rb,0.25640e+01_rb,0.27314e+01_rb,0.21722e+01_rb /)\n      kbo(:, 3,36,13) = (/ &\n        & 0.12470e+01_rb,0.21646e+01_rb,0.26577e+01_rb,0.27946e+01_rb,0.22466e+01_rb /)\n      kbo(:, 4,36,13) = (/ &\n        & 0.13959e+01_rb,0.22738e+01_rb,0.27440e+01_rb,0.28477e+01_rb,0.23138e+01_rb /)\n      kbo(:, 5,36,13) = (/ &\n        & 0.15410e+01_rb,0.23778e+01_rb,0.28230e+01_rb,0.28922e+01_rb,0.23732e+01_rb /)\n      kbo(:, 1,37,13) = (/ &\n        & 0.93269e+00_rb,0.19221e+01_rb,0.24490e+01_rb,0.26452e+01_rb,0.20765e+01_rb /)\n      kbo(:, 2,37,13) = (/ &\n        & 0.10767e+01_rb,0.20372e+01_rb,0.25499e+01_rb,0.27223e+01_rb,0.21614e+01_rb /)\n      kbo(:, 3,37,13) = (/ &\n        & 0.12250e+01_rb,0.21490e+01_rb,0.26449e+01_rb,0.27873e+01_rb,0.22369e+01_rb /)\n      kbo(:, 4,37,13) = (/ &\n        & 0.13744e+01_rb,0.22588e+01_rb,0.27324e+01_rb,0.28416e+01_rb,0.23053e+01_rb /)\n      kbo(:, 5,37,13) = (/ &\n        & 0.15205e+01_rb,0.23639e+01_rb,0.28124e+01_rb,0.28871e+01_rb,0.23656e+01_rb /)\n      kbo(:, 1,38,13) = (/ &\n        & 0.91080e+00_rb,0.19040e+01_rb,0.24332e+01_rb,0.26332e+01_rb,0.20631e+01_rb /)\n      kbo(:, 2,38,13) = (/ &\n        & 0.10540e+01_rb,0.20201e+01_rb,0.25351e+01_rb,0.27123e+01_rb,0.21497e+01_rb /)\n      kbo(:, 3,38,13) = (/ &\n        & 0.12022e+01_rb,0.21326e+01_rb,0.26310e+01_rb,0.27790e+01_rb,0.22264e+01_rb /)\n      kbo(:, 4,38,13) = (/ &\n        & 0.13520e+01_rb,0.22432e+01_rb,0.27202e+01_rb,0.28347e+01_rb,0.22959e+01_rb /)\n      kbo(:, 5,38,13) = (/ &\n        & 0.14989e+01_rb,0.23490e+01_rb,0.28012e+01_rb,0.28815e+01_rb,0.23575e+01_rb /)\n      kbo(:, 1,39,13) = (/ &\n        & 0.88956e+00_rb,0.18861e+01_rb,0.24173e+01_rb,0.26207e+01_rb,0.20495e+01_rb /)\n      kbo(:, 2,39,13) = (/ &\n        & 0.10319e+01_rb,0.20032e+01_rb,0.25205e+01_rb,0.27021e+01_rb,0.21379e+01_rb /)\n      kbo(:, 3,39,13) = (/ &\n        & 0.11798e+01_rb,0.21163e+01_rb,0.26173e+01_rb,0.27704e+01_rb,0.22159e+01_rb /)\n      kbo(:, 4,39,13) = (/ &\n        & 0.13298e+01_rb,0.22272e+01_rb,0.27078e+01_rb,0.28277e+01_rb,0.22865e+01_rb /)\n      kbo(:, 5,39,13) = (/ &\n        & 0.14775e+01_rb,0.23341e+01_rb,0.27901e+01_rb,0.28757e+01_rb,0.23493e+01_rb /)\n      kbo(:, 1,40,13) = (/ &\n        & 0.85494e+00_rb,0.18558e+01_rb,0.23904e+01_rb,0.25985e+01_rb,0.20255e+01_rb /)\n      kbo(:, 2,40,13) = (/ &\n        & 0.99514e+00_rb,0.19745e+01_rb,0.24954e+01_rb,0.26836e+01_rb,0.21170e+01_rb /)\n      kbo(:, 3,40,13) = (/ &\n        & 0.11424e+01_rb,0.20885e+01_rb,0.25938e+01_rb,0.27547e+01_rb,0.21975e+01_rb /)\n      kbo(:, 4,40,13) = (/ &\n        & 0.12924e+01_rb,0.22001e+01_rb,0.26861e+01_rb,0.28148e+01_rb,0.22700e+01_rb /)\n      kbo(:, 5,40,13) = (/ &\n        & 0.14413e+01_rb,0.23083e+01_rb,0.27705e+01_rb,0.28664e+01_rb,0.23349e+01_rb /)\n      kbo(:, 1,41,13) = (/ &\n        & 0.81957e+00_rb,0.18237e+01_rb,0.23613e+01_rb,0.25741e+01_rb,0.19997e+01_rb /)\n      kbo(:, 2,41,13) = (/ &\n        & 0.95728e+00_rb,0.19441e+01_rb,0.24688e+01_rb,0.26632e+01_rb,0.20945e+01_rb /)\n      kbo(:, 3,41,13) = (/ &\n        & 0.11034e+01_rb,0.20591e+01_rb,0.25687e+01_rb,0.27378e+01_rb,0.21777e+01_rb /)\n      kbo(:, 4,41,13) = (/ &\n        & 0.12530e+01_rb,0.21714e+01_rb,0.26630e+01_rb,0.28005e+01_rb,0.22519e+01_rb /)\n      kbo(:, 5,41,13) = (/ &\n        & 0.14027e+01_rb,0.22807e+01_rb,0.27494e+01_rb,0.28533e+01_rb,0.23190e+01_rb /)\n      kbo(:, 1,42,13) = (/ &\n        & 0.78503e+00_rb,0.17918e+01_rb,0.23317e+01_rb,0.25487e+01_rb,0.19734e+01_rb /)\n      kbo(:, 2,42,13) = (/ &\n        & 0.92016e+00_rb,0.19132e+01_rb,0.24418e+01_rb,0.26418e+01_rb,0.20712e+01_rb /)\n      kbo(:, 3,42,13) = (/ &\n        & 0.10646e+01_rb,0.20294e+01_rb,0.25432e+01_rb,0.27200e+01_rb,0.21575e+01_rb /)\n      kbo(:, 4,42,13) = (/ &\n        & 0.12137e+01_rb,0.21426e+01_rb,0.26392e+01_rb,0.27859e+01_rb,0.22336e+01_rb /)\n      kbo(:, 5,42,13) = (/ &\n        & 0.13639e+01_rb,0.22528e+01_rb,0.27279e+01_rb,0.28411e+01_rb,0.23026e+01_rb /)\n      kbo(:, 1,43,13) = (/ &\n        & 0.74423e+00_rb,0.17527e+01_rb,0.22949e+01_rb,0.25159e+01_rb,0.19403e+01_rb /)\n      kbo(:, 2,43,13) = (/ &\n        & 0.87589e+00_rb,0.18750e+01_rb,0.24080e+01_rb,0.26143e+01_rb,0.20417e+01_rb /)\n      kbo(:, 3,43,13) = (/ &\n        & 0.10179e+01_rb,0.19932e+01_rb,0.25118e+01_rb,0.26972e+01_rb,0.21315e+01_rb /)\n      kbo(:, 4,43,13) = (/ &\n        & 0.11661e+01_rb,0.21073e+01_rb,0.26096e+01_rb,0.27665e+01_rb,0.22105e+01_rb /)\n      kbo(:, 5,43,13) = (/ &\n        & 0.13165e+01_rb,0.22185e+01_rb,0.27008e+01_rb,0.28247e+01_rb,0.22817e+01_rb /)\n      kbo(:, 1,44,13) = (/ &\n        & 0.70183e+00_rb,0.17101e+01_rb,0.22539e+01_rb,0.24783e+01_rb,0.19029e+01_rb /)\n      kbo(:, 2,44,13) = (/ &\n        & 0.82940e+00_rb,0.18334e+01_rb,0.23707e+01_rb,0.25829e+01_rb,0.20083e+01_rb /)\n      kbo(:, 3,44,13) = (/ &\n        & 0.96829e+00_rb,0.19537e+01_rb,0.24774e+01_rb,0.26707e+01_rb,0.21022e+01_rb /)\n      kbo(:, 4,44,13) = (/ &\n        & 0.11151e+01_rb,0.20687e+01_rb,0.25770e+01_rb,0.27443e+01_rb,0.21846e+01_rb /)\n      kbo(:, 5,44,13) = (/ &\n        & 0.12651e+01_rb,0.21808e+01_rb,0.26707e+01_rb,0.28061e+01_rb,0.22584e+01_rb /)\n      kbo(:, 1,45,13) = (/ &\n        & 0.66118e+00_rb,0.16676e+01_rb,0.22119e+01_rb,0.24384e+01_rb,0.18634e+01_rb /)\n      kbo(:, 2,45,13) = (/ &\n        & 0.78445e+00_rb,0.17917e+01_rb,0.23321e+01_rb,0.25495e+01_rb,0.19739e+01_rb /)\n      kbo(:, 3,45,13) = (/ &\n        & 0.91984e+00_rb,0.19133e+01_rb,0.24421e+01_rb,0.26427e+01_rb,0.20718e+01_rb /)\n      kbo(:, 4,45,13) = (/ &\n        & 0.10646e+01_rb,0.20301e+01_rb,0.25439e+01_rb,0.27211e+01_rb,0.21582e+01_rb /)\n      kbo(:, 5,45,13) = (/ &\n        & 0.12138e+01_rb,0.21430e+01_rb,0.26395e+01_rb,0.27867e+01_rb,0.22343e+01_rb /)\n      kbo(:, 1,46,13) = (/ &\n        & 0.61933e+00_rb,0.16221e+01_rb,0.21659e+01_rb,0.23935e+01_rb,0.18196e+01_rb /)\n      kbo(:, 2,46,13) = (/ &\n        & 0.73807e+00_rb,0.17470e+01_rb,0.22898e+01_rb,0.25118e+01_rb,0.19358e+01_rb /)\n      kbo(:, 3,46,13) = (/ &\n        & 0.86934e+00_rb,0.18696e+01_rb,0.24034e+01_rb,0.26109e+01_rb,0.20379e+01_rb /)\n      kbo(:, 4,46,13) = (/ &\n        & 0.10113e+01_rb,0.19884e+01_rb,0.25076e+01_rb,0.26946e+01_rb,0.21283e+01_rb /)\n      kbo(:, 5,46,13) = (/ &\n        & 0.11593e+01_rb,0.21025e+01_rb,0.26055e+01_rb,0.27643e+01_rb,0.22076e+01_rb /)\n      kbo(:, 1,47,13) = (/ &\n        & 0.57374e+00_rb,0.15709e+01_rb,0.21131e+01_rb,0.23400e+01_rb,0.17680e+01_rb /)\n      kbo(:, 2,47,13) = (/ &\n        & 0.68838e+00_rb,0.16965e+01_rb,0.22409e+01_rb,0.24665e+01_rb,0.18907e+01_rb /)\n      kbo(:, 3,47,13) = (/ &\n        & 0.81478e+00_rb,0.18201e+01_rb,0.23589e+01_rb,0.25731e+01_rb,0.19980e+01_rb /)\n      kbo(:, 4,47,13) = (/ &\n        & 0.95278e+00_rb,0.19412e+01_rb,0.24665e+01_rb,0.26626e+01_rb,0.20931e+01_rb /)\n      kbo(:, 5,47,13) = (/ &\n        & 0.10991e+01_rb,0.20567e+01_rb,0.25667e+01_rb,0.27376e+01_rb,0.21769e+01_rb /)\n      kbo(:, 1,48,13) = (/ &\n        & 0.52946e+00_rb,0.15198e+01_rb,0.20592e+01_rb,0.22834e+01_rb,0.17136e+01_rb /)\n      kbo(:, 2,48,13) = (/ &\n        & 0.64089e+00_rb,0.16459e+01_rb,0.21904e+01_rb,0.24180e+01_rb,0.18431e+01_rb /)\n      kbo(:, 3,48,13) = (/ &\n        & 0.76211e+00_rb,0.17708e+01_rb,0.23126e+01_rb,0.25324e+01_rb,0.19565e+01_rb /)\n      kbo(:, 4,48,13) = (/ &\n        & 0.89568e+00_rb,0.18928e+01_rb,0.24241e+01_rb,0.26284e+01_rb,0.20564e+01_rb /)\n      kbo(:, 5,48,13) = (/ &\n        & 0.10393e+01_rb,0.20105e+01_rb,0.25268e+01_rb,0.27091e+01_rb,0.21445e+01_rb /)\n      kbo(:, 1,49,13) = (/ &\n        & 0.48708e+00_rb,0.14681e+01_rb,0.20029e+01_rb,0.22232e+01_rb,0.16566e+01_rb /)\n      kbo(:, 2,49,13) = (/ &\n        & 0.59510e+00_rb,0.15951e+01_rb,0.21382e+01_rb,0.23660e+01_rb,0.17928e+01_rb /)\n      kbo(:, 3,49,13) = (/ &\n        & 0.71141e+00_rb,0.17205e+01_rb,0.22646e+01_rb,0.24889e+01_rb,0.19130e+01_rb /)\n      kbo(:, 4,49,13) = (/ &\n        & 0.84034e+00_rb,0.18437e+01_rb,0.23804e+01_rb,0.25917e+01_rb,0.20174e+01_rb /)\n      kbo(:, 5,49,13) = (/ &\n        & 0.98023e+00_rb,0.19637e+01_rb,0.24863e+01_rb,0.26785e+01_rb,0.21102e+01_rb /)\n      kbo(:, 1,50,13) = (/ &\n        & 0.44946e+00_rb,0.14198e+01_rb,0.19480e+01_rb,0.21639e+01_rb,0.16005e+01_rb /)\n      kbo(:, 2,50,13) = (/ &\n        & 0.55308e+00_rb,0.15472e+01_rb,0.20885e+01_rb,0.23146e+01_rb,0.17433e+01_rb /)\n      kbo(:, 3,50,13) = (/ &\n        & 0.66640e+00_rb,0.16732e+01_rb,0.22179e+01_rb,0.24447e+01_rb,0.18693e+01_rb /)\n      kbo(:, 4,50,13) = (/ &\n        & 0.79021e+00_rb,0.17975e+01_rb,0.23380e+01_rb,0.25550e+01_rb,0.19794e+01_rb /)\n      kbo(:, 5,50,13) = (/ &\n        & 0.92626e+00_rb,0.19191e+01_rb,0.24474e+01_rb,0.26476e+01_rb,0.20768e+01_rb /)\n      kbo(:, 1,51,13) = (/ &\n        & 0.41452e+00_rb,0.13727e+01_rb,0.18922e+01_rb,0.21038e+01_rb,0.15428e+01_rb /)\n      kbo(:, 2,51,13) = (/ &\n        & 0.51362e+00_rb,0.15005e+01_rb,0.20385e+01_rb,0.22616e+01_rb,0.16930e+01_rb /)\n      kbo(:, 3,51,13) = (/ &\n        & 0.62394e+00_rb,0.16272e+01_rb,0.21714e+01_rb,0.23993e+01_rb,0.18251e+01_rb /)\n      kbo(:, 4,51,13) = (/ &\n        & 0.74304e+00_rb,0.17523e+01_rb,0.22953e+01_rb,0.25171e+01_rb,0.19410e+01_rb /)\n      kbo(:, 5,51,13) = (/ &\n        & 0.87505e+00_rb,0.18748e+01_rb,0.24082e+01_rb,0.26155e+01_rb,0.20426e+01_rb /)\n      kbo(:, 1,52,13) = (/ &\n        & 0.38121e+00_rb,0.13250e+01_rb,0.18350e+01_rb,0.20413e+01_rb,0.14822e+01_rb /)\n      kbo(:, 2,52,13) = (/ &\n        & 0.47581e+00_rb,0.14538e+01_rb,0.19870e+01_rb,0.22062e+01_rb,0.16405e+01_rb /)\n      kbo(:, 3,52,13) = (/ &\n        & 0.58258e+00_rb,0.15810e+01_rb,0.21239e+01_rb,0.23514e+01_rb,0.17789e+01_rb /)\n      kbo(:, 4,52,13) = (/ &\n        & 0.69813e+00_rb,0.17065e+01_rb,0.22509e+01_rb,0.24762e+01_rb,0.19005e+01_rb /)\n      kbo(:, 5,52,13) = (/ &\n        & 0.82543e+00_rb,0.18301e+01_rb,0.23683e+01_rb,0.25815e+01_rb,0.20067e+01_rb /)\n      kbo(:, 1,53,13) = (/ &\n        & 0.34902e+00_rb,0.12769e+01_rb,0.17751e+01_rb,0.19762e+01_rb,0.14178e+01_rb /)\n      kbo(:, 2,53,13) = (/ &\n        & 0.43953e+00_rb,0.14068e+01_rb,0.19332e+01_rb,0.21485e+01_rb,0.15854e+01_rb /)\n      kbo(:, 3,53,13) = (/ &\n        & 0.54216e+00_rb,0.15348e+01_rb,0.20756e+01_rb,0.23010e+01_rb,0.17302e+01_rb /)\n      kbo(:, 4,53,13) = (/ &\n        & 0.65469e+00_rb,0.16608e+01_rb,0.22054e+01_rb,0.24328e+01_rb,0.18578e+01_rb /)\n      kbo(:, 5,53,13) = (/ &\n        & 0.77730e+00_rb,0.17854e+01_rb,0.23267e+01_rb,0.25453e+01_rb,0.19695e+01_rb /)\n      kbo(:, 1,54,13) = (/ &\n        & 0.32058e+00_rb,0.12324e+01_rb,0.17175e+01_rb,0.19140e+01_rb,0.13553e+01_rb /)\n      kbo(:, 2,54,13) = (/ &\n        & 0.40795e+00_rb,0.13637e+01_rb,0.18819e+01_rb,0.20929e+01_rb,0.15321e+01_rb /)\n      kbo(:, 3,54,13) = (/ &\n        & 0.50645e+00_rb,0.14920e+01_rb,0.20295e+01_rb,0.22518e+01_rb,0.16837e+01_rb /)\n      kbo(:, 4,54,13) = (/ &\n        & 0.61609e+00_rb,0.16187e+01_rb,0.21628e+01_rb,0.23909e+01_rb,0.18169e+01_rb /)\n      kbo(:, 5,54,13) = (/ &\n        & 0.73448e+00_rb,0.17439e+01_rb,0.22873e+01_rb,0.25101e+01_rb,0.19340e+01_rb /)\n      kbo(:, 1,55,13) = (/ &\n        & 0.29443e+00_rb,0.11892e+01_rb,0.16600e+01_rb,0.18513e+01_rb,0.12929e+01_rb /)\n      kbo(:, 2,55,13) = (/ &\n        & 0.37883e+00_rb,0.13219e+01_rb,0.18314e+01_rb,0.20376e+01_rb,0.14784e+01_rb /)\n      kbo(:, 3,55,13) = (/ &\n        & 0.47335e+00_rb,0.14508e+01_rb,0.19839e+01_rb,0.22027e+01_rb,0.16372e+01_rb /)\n      kbo(:, 4,55,13) = (/ &\n        & 0.57989e+00_rb,0.15780e+01_rb,0.21210e+01_rb,0.23485e+01_rb,0.17761e+01_rb /)\n      kbo(:, 5,55,13) = (/ &\n        & 0.69533e+00_rb,0.17037e+01_rb,0.22482e+01_rb,0.24738e+01_rb,0.18980e+01_rb /)\n      kbo(:, 1,56,13) = (/ &\n        & 0.26936e+00_rb,0.11459e+01_rb,0.16007e+01_rb,0.17863e+01_rb,0.12289e+01_rb /)\n      kbo(:, 2,56,13) = (/ &\n        & 0.35065e+00_rb,0.12797e+01_rb,0.17789e+01_rb,0.19807e+01_rb,0.14221e+01_rb /)\n      kbo(:, 3,56,13) = (/ &\n        & 0.44158e+00_rb,0.14097e+01_rb,0.19368e+01_rb,0.21523e+01_rb,0.15891e+01_rb /)\n      kbo(:, 4,56,13) = (/ &\n        & 0.54448e+00_rb,0.15375e+01_rb,0.20786e+01_rb,0.23043e+01_rb,0.17334e+01_rb /)\n      kbo(:, 5,56,13) = (/ &\n        & 0.65732e+00_rb,0.16637e+01_rb,0.22084e+01_rb,0.24358e+01_rb,0.18606e+01_rb /)\n      kbo(:, 1,57,13) = (/ &\n        & 0.24515e+00_rb,0.11022e+01_rb,0.15388e+01_rb,0.17186e+01_rb,0.11645e+01_rb /)\n      kbo(:, 2,57,13) = (/ &\n        & 0.32341e+00_rb,0.12372e+01_rb,0.17241e+01_rb,0.19215e+01_rb,0.13626e+01_rb /)\n      kbo(:, 3,57,13) = (/ &\n        & 0.41131e+00_rb,0.13686e+01_rb,0.18879e+01_rb,0.20994e+01_rb,0.15383e+01_rb /)\n      kbo(:, 4,57,13) = (/ &\n        & 0.51026e+00_rb,0.14967e+01_rb,0.20347e+01_rb,0.22575e+01_rb,0.16892e+01_rb /)\n      kbo(:, 5,57,13) = (/ &\n        & 0.62036e+00_rb,0.16234e+01_rb,0.21677e+01_rb,0.23959e+01_rb,0.18217e+01_rb /)\n      kbo(:, 1,58,13) = (/ &\n        & 0.22298e+00_rb,0.10601e+01_rb,0.14788e+01_rb,0.16521e+01_rb,0.11024e+01_rb /)\n      kbo(:, 2,58,13) = (/ &\n        & 0.29857e+00_rb,0.11965e+01_rb,0.16700e+01_rb,0.18625e+01_rb,0.13039e+01_rb /)\n      kbo(:, 3,58,13) = (/ &\n        & 0.38366e+00_rb,0.13291e+01_rb,0.18404e+01_rb,0.20474e+01_rb,0.14880e+01_rb /)\n      kbo(:, 4,58,13) = (/ &\n        & 0.47882e+00_rb,0.14579e+01_rb,0.19918e+01_rb,0.22114e+01_rb,0.16455e+01_rb /)\n      kbo(:, 5,58,13) = (/ &\n        & 0.58601e+00_rb,0.15850e+01_rb,0.21282e+01_rb,0.23561e+01_rb,0.17833e+01_rb /)\n      kbo(:, 1,59,13) = (/ &\n        & 0.21427e+00_rb,0.10429e+01_rb,0.14544e+01_rb,0.16247e+01_rb,0.10771e+01_rb /)\n      kbo(:, 2,59,13) = (/ &\n        & 0.28885e+00_rb,0.11801e+01_rb,0.16480e+01_rb,0.18384e+01_rb,0.12798e+01_rb /)\n      kbo(:, 3,59,13) = (/ &\n        & 0.37281e+00_rb,0.13132e+01_rb,0.18209e+01_rb,0.20260e+01_rb,0.14670e+01_rb /)\n      kbo(:, 4,59,13) = (/ &\n        & 0.46652e+00_rb,0.14422e+01_rb,0.19743e+01_rb,0.21926e+01_rb,0.16276e+01_rb /)\n      kbo(:, 5,59,13) = (/ &\n        & 0.57246e+00_rb,0.15697e+01_rb,0.21123e+01_rb,0.23397e+01_rb,0.17674e+01_rb /)\n      kbo(:, 1,13,14) = (/ &\n        & 0.76467e+01_rb,0.66870e+01_rb,0.63502e+01_rb,0.61468e+01_rb,0.66906e+01_rb /)\n      kbo(:, 2,13,14) = (/ &\n        & 0.76514e+01_rb,0.66716e+01_rb,0.63627e+01_rb,0.61942e+01_rb,0.67780e+01_rb /)\n      kbo(:, 3,13,14) = (/ &\n        & 0.76475e+01_rb,0.66428e+01_rb,0.63628e+01_rb,0.62371e+01_rb,0.68460e+01_rb /)\n      kbo(:, 4,13,14) = (/ &\n        & 0.76415e+01_rb,0.66083e+01_rb,0.63514e+01_rb,0.62630e+01_rb,0.69072e+01_rb /)\n      kbo(:, 5,13,14) = (/ &\n        & 0.76283e+01_rb,0.65686e+01_rb,0.63330e+01_rb,0.62779e+01_rb,0.69614e+01_rb /)\n      kbo(:, 1,14,14) = (/ &\n        & 0.77958e+01_rb,0.69779e+01_rb,0.66658e+01_rb,0.63591e+01_rb,0.67479e+01_rb /)\n      kbo(:, 2,14,14) = (/ &\n        & 0.78014e+01_rb,0.69599e+01_rb,0.66792e+01_rb,0.64167e+01_rb,0.68357e+01_rb /)\n      kbo(:, 3,14,14) = (/ &\n        & 0.78100e+01_rb,0.69314e+01_rb,0.66809e+01_rb,0.64627e+01_rb,0.69109e+01_rb /)\n      kbo(:, 4,14,14) = (/ &\n        & 0.78098e+01_rb,0.68950e+01_rb,0.66685e+01_rb,0.64923e+01_rb,0.69838e+01_rb /)\n      kbo(:, 5,14,14) = (/ &\n        & 0.77999e+01_rb,0.68585e+01_rb,0.66494e+01_rb,0.65137e+01_rb,0.70531e+01_rb /)\n      kbo(:, 1,15,14) = (/ &\n        & 0.78397e+01_rb,0.72065e+01_rb,0.69626e+01_rb,0.65521e+01_rb,0.67717e+01_rb /)\n      kbo(:, 2,15,14) = (/ &\n        & 0.78630e+01_rb,0.71900e+01_rb,0.69770e+01_rb,0.66166e+01_rb,0.68639e+01_rb /)\n      kbo(:, 3,15,14) = (/ &\n        & 0.78829e+01_rb,0.71661e+01_rb,0.69761e+01_rb,0.66643e+01_rb,0.69508e+01_rb /)\n      kbo(:, 4,15,14) = (/ &\n        & 0.78961e+01_rb,0.71374e+01_rb,0.69668e+01_rb,0.66987e+01_rb,0.70374e+01_rb /)\n      kbo(:, 5,15,14) = (/ &\n        & 0.78984e+01_rb,0.71026e+01_rb,0.69440e+01_rb,0.67207e+01_rb,0.71207e+01_rb /)\n      kbo(:, 1,16,14) = (/ &\n        & 0.77976e+01_rb,0.73768e+01_rb,0.72331e+01_rb,0.67309e+01_rb,0.67735e+01_rb /)\n      kbo(:, 2,16,14) = (/ &\n        & 0.78456e+01_rb,0.73704e+01_rb,0.72485e+01_rb,0.67988e+01_rb,0.68801e+01_rb /)\n      kbo(:, 3,16,14) = (/ &\n        & 0.78840e+01_rb,0.73590e+01_rb,0.72505e+01_rb,0.68482e+01_rb,0.69801e+01_rb /)\n      kbo(:, 4,16,14) = (/ &\n        & 0.79146e+01_rb,0.73379e+01_rb,0.72385e+01_rb,0.68847e+01_rb,0.70795e+01_rb /)\n      kbo(:, 5,16,14) = (/ &\n        & 0.79322e+01_rb,0.73060e+01_rb,0.72179e+01_rb,0.69099e+01_rb,0.71779e+01_rb /)\n      kbo(:, 1,17,14) = (/ &\n        & 0.76851e+01_rb,0.74978e+01_rb,0.74681e+01_rb,0.68923e+01_rb,0.67646e+01_rb /)\n      kbo(:, 2,17,14) = (/ &\n        & 0.77622e+01_rb,0.75112e+01_rb,0.74909e+01_rb,0.69618e+01_rb,0.68880e+01_rb /)\n      kbo(:, 3,17,14) = (/ &\n        & 0.78293e+01_rb,0.75089e+01_rb,0.74964e+01_rb,0.70134e+01_rb,0.70063e+01_rb /)\n      kbo(:, 4,17,14) = (/ &\n        & 0.78832e+01_rb,0.75014e+01_rb,0.74883e+01_rb,0.70540e+01_rb,0.71204e+01_rb /)\n      kbo(:, 5,17,14) = (/ &\n        & 0.79237e+01_rb,0.74752e+01_rb,0.74629e+01_rb,0.70833e+01_rb,0.72311e+01_rb /)\n      kbo(:, 1,18,14) = (/ &\n        & 0.75343e+01_rb,0.75844e+01_rb,0.76679e+01_rb,0.70369e+01_rb,0.67530e+01_rb /)\n      kbo(:, 2,18,14) = (/ &\n        & 0.76372e+01_rb,0.76127e+01_rb,0.76999e+01_rb,0.71100e+01_rb,0.68939e+01_rb /)\n      kbo(:, 3,18,14) = (/ &\n        & 0.77344e+01_rb,0.76293e+01_rb,0.77123e+01_rb,0.71649e+01_rb,0.70305e+01_rb /)\n      kbo(:, 4,18,14) = (/ &\n        & 0.78168e+01_rb,0.76302e+01_rb,0.77077e+01_rb,0.72057e+01_rb,0.71594e+01_rb /)\n      kbo(:, 5,18,14) = (/ &\n        & 0.78848e+01_rb,0.76120e+01_rb,0.76799e+01_rb,0.72369e+01_rb,0.72819e+01_rb /)\n      kbo(:, 1,19,14) = (/ &\n        & 0.73642e+01_rb,0.76427e+01_rb,0.78392e+01_rb,0.71673e+01_rb,0.67426e+01_rb /)\n      kbo(:, 2,19,14) = (/ &\n        & 0.75027e+01_rb,0.76890e+01_rb,0.78792e+01_rb,0.72411e+01_rb,0.69029e+01_rb /)\n      kbo(:, 3,19,14) = (/ &\n        & 0.76261e+01_rb,0.77218e+01_rb,0.78995e+01_rb,0.72995e+01_rb,0.70551e+01_rb /)\n      kbo(:, 4,19,14) = (/ &\n        & 0.77358e+01_rb,0.77317e+01_rb,0.78972e+01_rb,0.73431e+01_rb,0.71976e+01_rb /)\n      kbo(:, 5,19,14) = (/ &\n        & 0.78306e+01_rb,0.77206e+01_rb,0.78669e+01_rb,0.73734e+01_rb,0.73288e+01_rb /)\n      kbo(:, 1,20,14) = (/ &\n        & 0.71989e+01_rb,0.76856e+01_rb,0.79830e+01_rb,0.72835e+01_rb,0.67408e+01_rb /)\n      kbo(:, 2,20,14) = (/ &\n        & 0.73691e+01_rb,0.77492e+01_rb,0.80344e+01_rb,0.73623e+01_rb,0.69200e+01_rb /)\n      kbo(:, 3,20,14) = (/ &\n        & 0.75204e+01_rb,0.77952e+01_rb,0.80604e+01_rb,0.74206e+01_rb,0.70842e+01_rb /)\n      kbo(:, 4,20,14) = (/ &\n        & 0.76560e+01_rb,0.78150e+01_rb,0.80567e+01_rb,0.74651e+01_rb,0.72381e+01_rb /)\n      kbo(:, 5,20,14) = (/ &\n        & 0.77736e+01_rb,0.78108e+01_rb,0.80255e+01_rb,0.74944e+01_rb,0.73772e+01_rb /)\n      kbo(:, 1,21,14) = (/ &\n        & 0.70426e+01_rb,0.77166e+01_rb,0.81049e+01_rb,0.73883e+01_rb,0.67480e+01_rb /)\n      kbo(:, 2,21,14) = (/ &\n        & 0.72474e+01_rb,0.77946e+01_rb,0.81668e+01_rb,0.74708e+01_rb,0.69410e+01_rb /)\n      kbo(:, 3,21,14) = (/ &\n        & 0.74271e+01_rb,0.78518e+01_rb,0.81976e+01_rb,0.75283e+01_rb,0.71153e+01_rb /)\n      kbo(:, 4,21,14) = (/ &\n        & 0.75881e+01_rb,0.78806e+01_rb,0.81926e+01_rb,0.75722e+01_rb,0.72765e+01_rb /)\n      kbo(:, 5,21,14) = (/ &\n        & 0.77244e+01_rb,0.78840e+01_rb,0.81605e+01_rb,0.76005e+01_rb,0.74219e+01_rb /)\n      kbo(:, 1,22,14) = (/ &\n        & 0.69208e+01_rb,0.77467e+01_rb,0.82134e+01_rb,0.74892e+01_rb,0.67760e+01_rb /)\n      kbo(:, 2,22,14) = (/ &\n        & 0.71527e+01_rb,0.78380e+01_rb,0.82825e+01_rb,0.75703e+01_rb,0.69788e+01_rb /)\n      kbo(:, 3,22,14) = (/ &\n        & 0.73591e+01_rb,0.79026e+01_rb,0.83138e+01_rb,0.76265e+01_rb,0.71614e+01_rb /)\n      kbo(:, 4,22,14) = (/ &\n        & 0.75412e+01_rb,0.79369e+01_rb,0.83052e+01_rb,0.76676e+01_rb,0.73269e+01_rb /)\n      kbo(:, 5,22,14) = (/ &\n        & 0.76931e+01_rb,0.79423e+01_rb,0.82705e+01_rb,0.76932e+01_rb,0.74734e+01_rb /)\n      kbo(:, 1,23,14) = (/ &\n        & 0.68264e+01_rb,0.77768e+01_rb,0.83085e+01_rb,0.75813e+01_rb,0.68129e+01_rb /)\n      kbo(:, 2,23,14) = (/ &\n        & 0.70814e+01_rb,0.78791e+01_rb,0.83807e+01_rb,0.76573e+01_rb,0.70223e+01_rb /)\n      kbo(:, 3,23,14) = (/ &\n        & 0.73108e+01_rb,0.79473e+01_rb,0.84103e+01_rb,0.77115e+01_rb,0.72087e+01_rb /)\n      kbo(:, 4,23,14) = (/ &\n        & 0.75083e+01_rb,0.79850e+01_rb,0.83989e+01_rb,0.77500e+01_rb,0.73762e+01_rb /)\n      kbo(:, 5,23,14) = (/ &\n        & 0.76738e+01_rb,0.79912e+01_rb,0.83608e+01_rb,0.77715e+01_rb,0.75218e+01_rb /)\n      kbo(:, 1,24,14) = (/ &\n        & 0.67597e+01_rb,0.78092e+01_rb,0.83929e+01_rb,0.76639e+01_rb,0.68571e+01_rb /)\n      kbo(:, 2,24,14) = (/ &\n        & 0.70359e+01_rb,0.79159e+01_rb,0.84653e+01_rb,0.77347e+01_rb,0.70700e+01_rb /)\n      kbo(:, 3,24,14) = (/ &\n        & 0.72818e+01_rb,0.79869e+01_rb,0.84905e+01_rb,0.77860e+01_rb,0.72578e+01_rb /)\n      kbo(:, 4,24,14) = (/ &\n        & 0.74908e+01_rb,0.80269e+01_rb,0.84765e+01_rb,0.78202e+01_rb,0.74248e+01_rb /)\n      kbo(:, 5,24,14) = (/ &\n        & 0.76673e+01_rb,0.80324e+01_rb,0.84337e+01_rb,0.78375e+01_rb,0.75690e+01_rb /)\n      kbo(:, 1,25,14) = (/ &\n        & 0.67209e+01_rb,0.78436e+01_rb,0.84676e+01_rb,0.77356e+01_rb,0.69066e+01_rb /)\n      kbo(:, 2,25,14) = (/ &\n        & 0.70147e+01_rb,0.79506e+01_rb,0.85366e+01_rb,0.78027e+01_rb,0.71216e+01_rb /)\n      kbo(:, 3,25,14) = (/ &\n        & 0.72710e+01_rb,0.80222e+01_rb,0.85567e+01_rb,0.78495e+01_rb,0.73079e+01_rb /)\n      kbo(:, 4,25,14) = (/ &\n        & 0.74891e+01_rb,0.80627e+01_rb,0.85388e+01_rb,0.78803e+01_rb,0.74736e+01_rb /)\n      kbo(:, 5,25,14) = (/ &\n        & 0.76763e+01_rb,0.80663e+01_rb,0.84908e+01_rb,0.78920e+01_rb,0.76152e+01_rb /)\n      kbo(:, 1,26,14) = (/ &\n        & 0.67117e+01_rb,0.78809e+01_rb,0.85346e+01_rb,0.77996e+01_rb,0.69621e+01_rb /)\n      kbo(:, 2,26,14) = (/ &\n        & 0.70163e+01_rb,0.79848e+01_rb,0.85977e+01_rb,0.78624e+01_rb,0.71766e+01_rb /)\n      kbo(:, 3,26,14) = (/ &\n        & 0.72800e+01_rb,0.80555e+01_rb,0.86111e+01_rb,0.79043e+01_rb,0.73612e+01_rb /)\n      kbo(:, 4,26,14) = (/ &\n        & 0.75048e+01_rb,0.80927e+01_rb,0.85874e+01_rb,0.79312e+01_rb,0.75235e+01_rb /)\n      kbo(:, 5,26,14) = (/ &\n        & 0.76969e+01_rb,0.80929e+01_rb,0.85318e+01_rb,0.79367e+01_rb,0.76615e+01_rb /)\n      kbo(:, 1,27,14) = (/ &\n        & 0.67222e+01_rb,0.79165e+01_rb,0.85935e+01_rb,0.78553e+01_rb,0.70208e+01_rb /)\n      kbo(:, 2,27,14) = (/ &\n        & 0.70339e+01_rb,0.80174e+01_rb,0.86486e+01_rb,0.79134e+01_rb,0.72318e+01_rb /)\n      kbo(:, 3,27,14) = (/ &\n        & 0.73021e+01_rb,0.80859e+01_rb,0.86549e+01_rb,0.79502e+01_rb,0.74127e+01_rb /)\n      kbo(:, 4,27,14) = (/ &\n        & 0.75298e+01_rb,0.81175e+01_rb,0.86239e+01_rb,0.79721e+01_rb,0.75702e+01_rb /)\n      kbo(:, 5,27,14) = (/ &\n        & 0.77246e+01_rb,0.81143e+01_rb,0.85613e+01_rb,0.79734e+01_rb,0.77047e+01_rb /)\n      kbo(:, 1,28,14) = (/ &\n        & 0.67490e+01_rb,0.79508e+01_rb,0.86448e+01_rb,0.79039e+01_rb,0.70793e+01_rb /)\n      kbo(:, 2,28,14) = (/ &\n        & 0.70641e+01_rb,0.80481e+01_rb,0.86903e+01_rb,0.79567e+01_rb,0.72853e+01_rb /)\n      kbo(:, 3,28,14) = (/ &\n        & 0.73339e+01_rb,0.81119e+01_rb,0.86890e+01_rb,0.79886e+01_rb,0.74622e+01_rb /)\n      kbo(:, 4,28,14) = (/ &\n        & 0.75625e+01_rb,0.81383e+01_rb,0.86502e+01_rb,0.80049e+01_rb,0.76145e+01_rb /)\n      kbo(:, 5,28,14) = (/ &\n        & 0.77567e+01_rb,0.81304e+01_rb,0.85806e+01_rb,0.80023e+01_rb,0.77455e+01_rb /)\n      kbo(:, 1,29,14) = (/ &\n        & 0.67914e+01_rb,0.79845e+01_rb,0.86886e+01_rb,0.79462e+01_rb,0.71386e+01_rb /)\n      kbo(:, 2,29,14) = (/ &\n        & 0.71068e+01_rb,0.80770e+01_rb,0.87239e+01_rb,0.79933e+01_rb,0.73389e+01_rb /)\n      kbo(:, 3,29,14) = (/ &\n        & 0.73751e+01_rb,0.81344e+01_rb,0.87144e+01_rb,0.80208e+01_rb,0.75104e+01_rb /)\n      kbo(:, 4,29,14) = (/ &\n        & 0.76020e+01_rb,0.81550e+01_rb,0.86676e+01_rb,0.80316e+01_rb,0.76575e+01_rb /)\n      kbo(:, 5,29,14) = (/ &\n        & 0.77937e+01_rb,0.81425e+01_rb,0.85914e+01_rb,0.80248e+01_rb,0.77840e+01_rb /)\n      kbo(:, 1,30,14) = (/ &\n        & 0.68445e+01_rb,0.80166e+01_rb,0.87256e+01_rb,0.79827e+01_rb,0.71970e+01_rb /)\n      kbo(:, 2,30,14) = (/ &\n        & 0.71563e+01_rb,0.81037e+01_rb,0.87505e+01_rb,0.80234e+01_rb,0.73900e+01_rb /)\n      kbo(:, 3,30,14) = (/ &\n        & 0.74214e+01_rb,0.81535e+01_rb,0.87321e+01_rb,0.80469e+01_rb,0.75564e+01_rb /)\n      kbo(:, 4,30,14) = (/ &\n        & 0.76455e+01_rb,0.81683e+01_rb,0.86770e+01_rb,0.80524e+01_rb,0.76986e+01_rb /)\n      kbo(:, 5,30,14) = (/ &\n        & 0.78317e+01_rb,0.81499e+01_rb,0.85949e+01_rb,0.80416e+01_rb,0.78203e+01_rb /)\n      kbo(:, 1,31,14) = (/ &\n        & 0.69054e+01_rb,0.80478e+01_rb,0.87566e+01_rb,0.80136e+01_rb,0.72537e+01_rb /)\n      kbo(:, 2,31,14) = (/ &\n        & 0.72125e+01_rb,0.81281e+01_rb,0.87710e+01_rb,0.80494e+01_rb,0.74404e+01_rb /)\n      kbo(:, 3,31,14) = (/ &\n        & 0.74718e+01_rb,0.81700e+01_rb,0.87427e+01_rb,0.80677e+01_rb,0.76003e+01_rb /)\n      kbo(:, 4,31,14) = (/ &\n        & 0.76912e+01_rb,0.81779e+01_rb,0.86791e+01_rb,0.80682e+01_rb,0.77384e+01_rb /)\n      kbo(:, 5,31,14) = (/ &\n        & 0.78715e+01_rb,0.81532e+01_rb,0.85914e+01_rb,0.80538e+01_rb,0.78547e+01_rb /)\n      kbo(:, 1,32,14) = (/ &\n        & 0.69718e+01_rb,0.80767e+01_rb,0.87812e+01_rb,0.80405e+01_rb,0.73093e+01_rb /)\n      kbo(:, 2,32,14) = (/ &\n        & 0.72714e+01_rb,0.81493e+01_rb,0.87845e+01_rb,0.80705e+01_rb,0.74889e+01_rb /)\n      kbo(:, 3,32,14) = (/ &\n        & 0.75255e+01_rb,0.81843e+01_rb,0.87476e+01_rb,0.80843e+01_rb,0.76427e+01_rb /)\n      kbo(:, 4,32,14) = (/ &\n        & 0.77373e+01_rb,0.81836e+01_rb,0.86757e+01_rb,0.80798e+01_rb,0.77759e+01_rb /)\n      kbo(:, 5,32,14) = (/ &\n        & 0.79115e+01_rb,0.81523e+01_rb,0.85821e+01_rb,0.80611e+01_rb,0.78870e+01_rb /)\n      kbo(:, 1,33,14) = (/ &\n        & 0.70424e+01_rb,0.81041e+01_rb,0.88003e+01_rb,0.80631e+01_rb,0.73621e+01_rb /)\n      kbo(:, 2,33,14) = (/ &\n        & 0.73332e+01_rb,0.81674e+01_rb,0.87934e+01_rb,0.80887e+01_rb,0.75359e+01_rb /)\n      kbo(:, 3,33,14) = (/ &\n        & 0.75797e+01_rb,0.81949e+01_rb,0.87467e+01_rb,0.80962e+01_rb,0.76832e+01_rb /)\n      kbo(:, 4,33,14) = (/ &\n        & 0.77832e+01_rb,0.81860e+01_rb,0.86679e+01_rb,0.80880e+01_rb,0.78112e+01_rb /)\n      kbo(:, 5,33,14) = (/ &\n        & 0.79514e+01_rb,0.81480e+01_rb,0.85688e+01_rb,0.80650e+01_rb,0.79176e+01_rb /)\n      kbo(:, 1,34,14) = (/ &\n        & 0.71032e+01_rb,0.81256e+01_rb,0.88135e+01_rb,0.80801e+01_rb,0.74073e+01_rb /)\n      kbo(:, 2,34,14) = (/ &\n        & 0.73864e+01_rb,0.81812e+01_rb,0.87981e+01_rb,0.81025e+01_rb,0.75752e+01_rb /)\n      kbo(:, 3,34,14) = (/ &\n        & 0.76257e+01_rb,0.82022e+01_rb,0.87428e+01_rb,0.81055e+01_rb,0.77177e+01_rb /)\n      kbo(:, 4,34,14) = (/ &\n        & 0.78229e+01_rb,0.81866e+01_rb,0.86595e+01_rb,0.80934e+01_rb,0.78409e+01_rb /)\n      kbo(:, 5,34,14) = (/ &\n        & 0.79841e+01_rb,0.81428e+01_rb,0.85553e+01_rb,0.80663e+01_rb,0.79427e+01_rb /)\n      kbo(:, 1,35,14) = (/ &\n        & 0.71357e+01_rb,0.81386e+01_rb,0.88238e+01_rb,0.80923e+01_rb,0.74328e+01_rb /)\n      kbo(:, 2,35,14) = (/ &\n        & 0.74155e+01_rb,0.81901e+01_rb,0.88028e+01_rb,0.81125e+01_rb,0.75980e+01_rb /)\n      kbo(:, 3,35,14) = (/ &\n        & 0.76506e+01_rb,0.82068e+01_rb,0.87428e+01_rb,0.81128e+01_rb,0.77381e+01_rb /)\n      kbo(:, 4,35,14) = (/ &\n        & 0.78446e+01_rb,0.81876e+01_rb,0.86563e+01_rb,0.80980e+01_rb,0.78583e+01_rb /)\n      kbo(:, 5,35,14) = (/ &\n        & 0.80022e+01_rb,0.81408e+01_rb,0.85492e+01_rb,0.80683e+01_rb,0.79574e+01_rb /)\n      kbo(:, 1,36,14) = (/ &\n        & 0.71358e+01_rb,0.81426e+01_rb,0.88312e+01_rb,0.80996e+01_rb,0.74385e+01_rb /)\n      kbo(:, 2,36,14) = (/ &\n        & 0.74168e+01_rb,0.81942e+01_rb,0.88101e+01_rb,0.81195e+01_rb,0.76033e+01_rb /)\n      kbo(:, 3,36,14) = (/ &\n        & 0.76530e+01_rb,0.82111e+01_rb,0.87491e+01_rb,0.81189e+01_rb,0.77431e+01_rb /)\n      kbo(:, 4,36,14) = (/ &\n        & 0.78475e+01_rb,0.81916e+01_rb,0.86625e+01_rb,0.81041e+01_rb,0.78633e+01_rb /)\n      kbo(:, 5,36,14) = (/ &\n        & 0.80053e+01_rb,0.81444e+01_rb,0.85549e+01_rb,0.80739e+01_rb,0.79624e+01_rb /)\n      kbo(:, 1,37,14) = (/ &\n        & 0.70898e+01_rb,0.81353e+01_rb,0.88375e+01_rb,0.81022e+01_rb,0.74173e+01_rb /)\n      kbo(:, 2,37,14) = (/ &\n        & 0.73792e+01_rb,0.81923e+01_rb,0.88220e+01_rb,0.81236e+01_rb,0.75852e+01_rb /)\n      kbo(:, 3,37,14) = (/ &\n        & 0.76229e+01_rb,0.82146e+01_rb,0.87658e+01_rb,0.81255e+01_rb,0.77281e+01_rb /)\n      kbo(:, 4,37,14) = (/ &\n        & 0.78232e+01_rb,0.81996e+01_rb,0.86818e+01_rb,0.81120e+01_rb,0.78508e+01_rb /)\n      kbo(:, 5,37,14) = (/ &\n        & 0.79866e+01_rb,0.81554e+01_rb,0.85764e+01_rb,0.80843e+01_rb,0.79525e+01_rb /)\n      kbo(:, 1,38,14) = (/ &\n        & 0.70419e+01_rb,0.81271e+01_rb,0.88418e+01_rb,0.81031e+01_rb,0.73933e+01_rb /)\n      kbo(:, 2,38,14) = (/ &\n        & 0.73389e+01_rb,0.81889e+01_rb,0.88323e+01_rb,0.81261e+01_rb,0.75648e+01_rb /)\n      kbo(:, 3,38,14) = (/ &\n        & 0.75899e+01_rb,0.82161e+01_rb,0.87808e+01_rb,0.81301e+01_rb,0.77105e+01_rb /)\n      kbo(:, 4,38,14) = (/ &\n        & 0.77971e+01_rb,0.82068e+01_rb,0.87000e+01_rb,0.81195e+01_rb,0.78368e+01_rb /)\n      kbo(:, 5,38,14) = (/ &\n        & 0.79663e+01_rb,0.81665e+01_rb,0.85976e+01_rb,0.80935e+01_rb,0.79412e+01_rb /)\n      kbo(:, 1,39,14) = (/ &\n        & 0.69923e+01_rb,0.81165e+01_rb,0.88435e+01_rb,0.81024e+01_rb,0.73685e+01_rb /)\n      kbo(:, 2,39,14) = (/ &\n        & 0.72982e+01_rb,0.81845e+01_rb,0.88409e+01_rb,0.81277e+01_rb,0.75441e+01_rb /)\n      kbo(:, 3,39,14) = (/ &\n        & 0.75563e+01_rb,0.82164e+01_rb,0.87952e+01_rb,0.81347e+01_rb,0.76928e+01_rb /)\n      kbo(:, 4,39,14) = (/ &\n        & 0.77695e+01_rb,0.82122e+01_rb,0.87165e+01_rb,0.81250e+01_rb,0.78216e+01_rb /)\n      kbo(:, 5,39,14) = (/ &\n        & 0.79452e+01_rb,0.81762e+01_rb,0.86172e+01_rb,0.81015e+01_rb,0.79291e+01_rb /)\n      kbo(:, 1,40,14) = (/ &\n        & 0.69080e+01_rb,0.80958e+01_rb,0.88413e+01_rb,0.80965e+01_rb,0.73229e+01_rb /)\n      kbo(:, 2,40,14) = (/ &\n        & 0.72277e+01_rb,0.81734e+01_rb,0.88495e+01_rb,0.81259e+01_rb,0.75046e+01_rb /)\n      kbo(:, 3,40,14) = (/ &\n        & 0.74967e+01_rb,0.82131e+01_rb,0.88131e+01_rb,0.81381e+01_rb,0.76600e+01_rb /)\n      kbo(:, 4,40,14) = (/ &\n        & 0.77214e+01_rb,0.82184e+01_rb,0.87413e+01_rb,0.81320e+01_rb,0.77938e+01_rb /)\n      kbo(:, 5,40,14) = (/ &\n        & 0.79055e+01_rb,0.81894e+01_rb,0.86471e+01_rb,0.81094e+01_rb,0.79066e+01_rb /)\n      kbo(:, 1,41,14) = (/ &\n        & 0.68155e+01_rb,0.80708e+01_rb,0.88352e+01_rb,0.80885e+01_rb,0.72719e+01_rb /)\n      kbo(:, 2,41,14) = (/ &\n        & 0.71495e+01_rb,0.81585e+01_rb,0.88545e+01_rb,0.81224e+01_rb,0.74618e+01_rb /)\n      kbo(:, 3,41,14) = (/ &\n        & 0.74308e+01_rb,0.82074e+01_rb,0.88291e+01_rb,0.81392e+01_rb,0.76238e+01_rb /)\n      kbo(:, 4,41,14) = (/ &\n        & 0.76675e+01_rb,0.82222e+01_rb,0.87650e+01_rb,0.81374e+01_rb,0.77629e+01_rb /)\n      kbo(:, 5,41,14) = (/ &\n        & 0.78621e+01_rb,0.82014e+01_rb,0.86761e+01_rb,0.81197e+01_rb,0.78805e+01_rb /)\n      kbo(:, 1,42,14) = (/ &\n        & 0.67210e+01_rb,0.80436e+01_rb,0.88257e+01_rb,0.80787e+01_rb,0.72181e+01_rb /)\n      kbo(:, 2,42,14) = (/ &\n        & 0.70672e+01_rb,0.81413e+01_rb,0.88562e+01_rb,0.81177e+01_rb,0.74171e+01_rb /)\n      kbo(:, 3,42,14) = (/ &\n        & 0.73618e+01_rb,0.81993e+01_rb,0.88420e+01_rb,0.81387e+01_rb,0.75853e+01_rb /)\n      kbo(:, 4,42,14) = (/ &\n        & 0.76110e+01_rb,0.82240e+01_rb,0.87872e+01_rb,0.81416e+01_rb,0.77301e+01_rb /)\n      kbo(:, 5,42,14) = (/ &\n        & 0.78157e+01_rb,0.82114e+01_rb,0.87034e+01_rb,0.81275e+01_rb,0.78533e+01_rb /)\n      kbo(:, 1,43,14) = (/ &\n        & 0.66012e+01_rb,0.80077e+01_rb,0.88083e+01_rb,0.80639e+01_rb,0.71482e+01_rb /)\n      kbo(:, 2,43,14) = (/ &\n        & 0.69627e+01_rb,0.81158e+01_rb,0.88532e+01_rb,0.81101e+01_rb,0.73596e+01_rb /)\n      kbo(:, 3,43,14) = (/ &\n        & 0.72743e+01_rb,0.81862e+01_rb,0.88533e+01_rb,0.81352e+01_rb,0.75360e+01_rb /)\n      kbo(:, 4,43,14) = (/ &\n        & 0.75376e+01_rb,0.82203e+01_rb,0.88101e+01_rb,0.81444e+01_rb,0.76876e+01_rb /)\n      kbo(:, 5,43,14) = (/ &\n        & 0.77560e+01_rb,0.82200e+01_rb,0.87338e+01_rb,0.81353e+01_rb,0.78176e+01_rb /)\n      kbo(:, 1,44,14) = (/ &\n        & 0.64654e+01_rb,0.79624e+01_rb,0.87841e+01_rb,0.80450e+01_rb,0.70696e+01_rb /)\n      kbo(:, 2,44,14) = (/ &\n        & 0.68452e+01_rb,0.80842e+01_rb,0.88456e+01_rb,0.80985e+01_rb,0.72931e+01_rb /)\n      kbo(:, 3,44,14) = (/ &\n        & 0.71736e+01_rb,0.81668e+01_rb,0.88594e+01_rb,0.81294e+01_rb,0.74799e+01_rb /)\n      kbo(:, 4,44,14) = (/ &\n        & 0.74536e+01_rb,0.82135e+01_rb,0.88309e+01_rb,0.81455e+01_rb,0.76398e+01_rb /)\n      kbo(:, 5,44,14) = (/ &\n        & 0.76864e+01_rb,0.82252e+01_rb,0.87641e+01_rb,0.81417e+01_rb,0.77771e+01_rb /)\n      kbo(:, 1,45,14) = (/ &\n        & 0.63246e+01_rb,0.79121e+01_rb,0.87529e+01_rb,0.80227e+01_rb,0.69872e+01_rb /)\n      kbo(:, 2,45,14) = (/ &\n        & 0.67215e+01_rb,0.80478e+01_rb,0.88314e+01_rb,0.80840e+01_rb,0.72219e+01_rb /)\n      kbo(:, 3,45,14) = (/ &\n        & 0.70680e+01_rb,0.81447e+01_rb,0.88609e+01_rb,0.81218e+01_rb,0.74205e+01_rb /)\n      kbo(:, 4,45,14) = (/ &\n        & 0.73633e+01_rb,0.82020e+01_rb,0.88464e+01_rb,0.81437e+01_rb,0.75896e+01_rb /)\n      kbo(:, 5,45,14) = (/ &\n        & 0.76123e+01_rb,0.82264e+01_rb,0.87913e+01_rb,0.81458e+01_rb,0.77333e+01_rb /)\n      kbo(:, 1,46,14) = (/ &\n        & 0.61677e+01_rb,0.78522e+01_rb,0.87120e+01_rb,0.79958e+01_rb,0.68962e+01_rb /)\n      kbo(:, 2,46,14) = (/ &\n        & 0.65843e+01_rb,0.80056e+01_rb,0.88106e+01_rb,0.80659e+01_rb,0.71413e+01_rb /)\n      kbo(:, 3,46,14) = (/ &\n        & 0.69482e+01_rb,0.81147e+01_rb,0.88565e+01_rb,0.81122e+01_rb,0.73539e+01_rb /)\n      kbo(:, 4,46,14) = (/ &\n        & 0.72620e+01_rb,0.81857e+01_rb,0.88581e+01_rb,0.81382e+01_rb,0.75320e+01_rb /)\n      kbo(:, 5,46,14) = (/ &\n        & 0.75285e+01_rb,0.82222e+01_rb,0.88171e+01_rb,0.81482e+01_rb,0.76841e+01_rb /)\n      kbo(:, 1,47,14) = (/ &\n        & 0.59872e+01_rb,0.77759e+01_rb,0.86581e+01_rb,0.79599e+01_rb,0.67904e+01_rb /)\n      kbo(:, 2,47,14) = (/ &\n        & 0.64227e+01_rb,0.79505e+01_rb,0.87794e+01_rb,0.80417e+01_rb,0.70463e+01_rb /)\n      kbo(:, 3,47,14) = (/ &\n        & 0.68067e+01_rb,0.80750e+01_rb,0.88445e+01_rb,0.80966e+01_rb,0.72732e+01_rb /)\n      kbo(:, 4,47,14) = (/ &\n        & 0.71415e+01_rb,0.81619e+01_rb,0.88634e+01_rb,0.81302e+01_rb,0.74640e+01_rb /)\n      kbo(:, 5,47,14) = (/ &\n        & 0.74259e+01_rb,0.82118e+01_rb,0.88390e+01_rb,0.81478e+01_rb,0.76260e+01_rb /)\n      kbo(:, 1,48,14) = (/ &\n        & 0.57999e+01_rb,0.76897e+01_rb,0.85924e+01_rb,0.79165e+01_rb,0.66812e+01_rb /)\n      kbo(:, 2,48,14) = (/ &\n        & 0.62523e+01_rb,0.78878e+01_rb,0.87384e+01_rb,0.80135e+01_rb,0.69471e+01_rb /)\n      kbo(:, 3,48,14) = (/ &\n        & 0.66581e+01_rb,0.80303e+01_rb,0.88250e+01_rb,0.80783e+01_rb,0.71862e+01_rb /)\n      kbo(:, 4,48,14) = (/ &\n        & 0.70120e+01_rb,0.81321e+01_rb,0.88616e+01_rb,0.81203e+01_rb,0.73915e+01_rb /)\n      kbo(:, 5,48,14) = (/ &\n        & 0.73167e+01_rb,0.81963e+01_rb,0.88550e+01_rb,0.81433e+01_rb,0.75640e+01_rb /)\n      kbo(:, 1,49,14) = (/ &\n        & 0.56056e+01_rb,0.75967e+01_rb,0.85186e+01_rb,0.78664e+01_rb,0.65684e+01_rb /)\n      kbo(:, 2,49,14) = (/ &\n        & 0.60725e+01_rb,0.78139e+01_rb,0.86868e+01_rb,0.79799e+01_rb,0.68428e+01_rb /)\n      kbo(:, 3,49,14) = (/ &\n        & 0.65005e+01_rb,0.79789e+01_rb,0.87970e+01_rb,0.80551e+01_rb,0.70936e+01_rb /)\n      kbo(:, 4,49,14) = (/ &\n        & 0.68750e+01_rb,0.80955e+01_rb,0.88532e+01_rb,0.81069e+01_rb,0.73141e+01_rb /)\n      kbo(:, 5,49,14) = (/ &\n        & 0.72008e+01_rb,0.81753e+01_rb,0.88640e+01_rb,0.81362e+01_rb,0.74980e+01_rb /)\n      kbo(:, 1,50,14) = (/ &\n        & 0.54125e+01_rb,0.74991e+01_rb,0.84401e+01_rb,0.78123e+01_rb,0.64595e+01_rb /)\n      kbo(:, 2,50,14) = (/ &\n        & 0.59003e+01_rb,0.77375e+01_rb,0.86301e+01_rb,0.79423e+01_rb,0.67420e+01_rb /)\n      kbo(:, 3,50,14) = (/ &\n        & 0.63429e+01_rb,0.79215e+01_rb,0.87619e+01_rb,0.80304e+01_rb,0.70024e+01_rb /)\n      kbo(:, 4,50,14) = (/ &\n        & 0.67393e+01_rb,0.80557e+01_rb,0.88380e+01_rb,0.80904e+01_rb,0.72354e+01_rb /)\n      kbo(:, 5,50,14) = (/ &\n        & 0.70838e+01_rb,0.81507e+01_rb,0.88659e+01_rb,0.81277e+01_rb,0.74327e+01_rb /)\n      kbo(:, 1,51,14) = (/ &\n        & 0.52191e+01_rb,0.73982e+01_rb,0.83585e+01_rb,0.77548e+01_rb,0.63504e+01_rb /)\n      kbo(:, 2,51,14) = (/ &\n        & 0.57281e+01_rb,0.76566e+01_rb,0.85673e+01_rb,0.79002e+01_rb,0.66408e+01_rb /)\n      kbo(:, 3,51,14) = (/ &\n        & 0.61850e+01_rb,0.78612e+01_rb,0.87206e+01_rb,0.80029e+01_rb,0.69102e+01_rb /)\n      kbo(:, 4,51,14) = (/ &\n        & 0.66013e+01_rb,0.80131e+01_rb,0.88169e+01_rb,0.80719e+01_rb,0.71542e+01_rb /)\n      kbo(:, 5,51,14) = (/ &\n        & 0.69630e+01_rb,0.81207e+01_rb,0.88611e+01_rb,0.81171e+01_rb,0.73645e+01_rb /)\n      kbo(:, 1,52,14) = (/ &\n        & 0.50203e+01_rb,0.72853e+01_rb,0.82659e+01_rb,0.76900e+01_rb,0.62362e+01_rb /)\n      kbo(:, 2,52,14) = (/ &\n        & 0.55489e+01_rb,0.75692e+01_rb,0.84974e+01_rb,0.78525e+01_rb,0.65380e+01_rb /)\n      kbo(:, 3,52,14) = (/ &\n        & 0.60223e+01_rb,0.77933e+01_rb,0.86726e+01_rb,0.79710e+01_rb,0.68148e+01_rb /)\n      kbo(:, 4,52,14) = (/ &\n        & 0.64533e+01_rb,0.79619e+01_rb,0.87883e+01_rb,0.80495e+01_rb,0.70682e+01_rb /)\n      kbo(:, 5,52,14) = (/ &\n        & 0.68363e+01_rb,0.80853e+01_rb,0.88509e+01_rb,0.81034e+01_rb,0.72926e+01_rb /)\n      kbo(:, 1,53,14) = (/ &\n        & 0.48171e+01_rb,0.71626e+01_rb,0.81646e+01_rb,0.76188e+01_rb,0.61179e+01_rb /)\n      kbo(:, 2,53,14) = (/ &\n        & 0.53620e+01_rb,0.74745e+01_rb,0.84206e+01_rb,0.77982e+01_rb,0.64310e+01_rb /)\n      kbo(:, 3,53,14) = (/ &\n        & 0.58544e+01_rb,0.77168e+01_rb,0.86150e+01_rb,0.79329e+01_rb,0.67166e+01_rb /)\n      kbo(:, 4,53,14) = (/ &\n        & 0.63007e+01_rb,0.79064e+01_rb,0.87527e+01_rb,0.80244e+01_rb,0.69787e+01_rb /)\n      kbo(:, 5,53,14) = (/ &\n        & 0.67036e+01_rb,0.80457e+01_rb,0.88348e+01_rb,0.80870e+01_rb,0.72150e+01_rb /)\n      kbo(:, 1,54,14) = (/ &\n        & 0.46268e+01_rb,0.70415e+01_rb,0.80643e+01_rb,0.75453e+01_rb,0.60051e+01_rb /)\n      kbo(:, 2,54,14) = (/ &\n        & 0.51834e+01_rb,0.73793e+01_rb,0.83436e+01_rb,0.77439e+01_rb,0.63304e+01_rb /)\n      kbo(:, 3,54,14) = (/ &\n        & 0.56952e+01_rb,0.76416e+01_rb,0.85557e+01_rb,0.78930e+01_rb,0.66233e+01_rb /)\n      kbo(:, 4,54,14) = (/ &\n        & 0.61555e+01_rb,0.78501e+01_rb,0.87136e+01_rb,0.79986e+01_rb,0.68935e+01_rb /)\n      kbo(:, 5,54,14) = (/ &\n        & 0.65754e+01_rb,0.80055e+01_rb,0.88139e+01_rb,0.80689e+01_rb,0.71391e+01_rb /)\n      kbo(:, 1,55,14) = (/ &\n        & 0.44418e+01_rb,0.69152e+01_rb,0.79589e+01_rb,0.74683e+01_rb,0.58909e+01_rb /)\n      kbo(:, 2,55,14) = (/ &\n        & 0.50082e+01_rb,0.72786e+01_rb,0.82608e+01_rb,0.76866e+01_rb,0.62296e+01_rb /)\n      kbo(:, 3,55,14) = (/ &\n        & 0.55372e+01_rb,0.75641e+01_rb,0.84935e+01_rb,0.78502e+01_rb,0.65324e+01_rb /)\n      kbo(:, 4,55,14) = (/ &\n        & 0.60119e+01_rb,0.77891e+01_rb,0.86705e+01_rb,0.79700e+01_rb,0.68094e+01_rb /)\n      kbo(:, 5,55,14) = (/ &\n        & 0.64443e+01_rb,0.79596e+01_rb,0.87874e+01_rb,0.80489e+01_rb,0.70636e+01_rb /)\n      kbo(:, 1,56,14) = (/ &\n        & 0.42552e+01_rb,0.67816e+01_rb,0.78463e+01_rb,0.73861e+01_rb,0.57693e+01_rb /)\n      kbo(:, 2,56,14) = (/ &\n        & 0.48302e+01_rb,0.71710e+01_rb,0.81721e+01_rb,0.76241e+01_rb,0.61259e+01_rb /)\n      kbo(:, 3,56,14) = (/ &\n        & 0.53736e+01_rb,0.74812e+01_rb,0.84261e+01_rb,0.78026e+01_rb,0.64389e+01_rb /)\n      kbo(:, 4,56,14) = (/ &\n        & 0.58648e+01_rb,0.77223e+01_rb,0.86198e+01_rb,0.79361e+01_rb,0.67232e+01_rb /)\n      kbo(:, 5,56,14) = (/ &\n        & 0.63103e+01_rb,0.79105e+01_rb,0.87564e+01_rb,0.80271e+01_rb,0.69853e+01_rb /)\n      kbo(:, 1,57,14) = (/ &\n        & 0.40639e+01_rb,0.66394e+01_rb,0.77238e+01_rb,0.72954e+01_rb,0.56390e+01_rb /)\n      kbo(:, 2,57,14) = (/ &\n        & 0.46488e+01_rb,0.70563e+01_rb,0.80768e+01_rb,0.75544e+01_rb,0.60187e+01_rb /)\n      kbo(:, 3,57,14) = (/ &\n        & 0.52035e+01_rb,0.73909e+01_rb,0.83529e+01_rb,0.77510e+01_rb,0.63425e+01_rb /)\n      kbo(:, 4,57,14) = (/ &\n        & 0.57137e+01_rb,0.76510e+01_rb,0.85638e+01_rb,0.78985e+01_rb,0.66342e+01_rb /)\n      kbo(:, 5,57,14) = (/ &\n        & 0.61722e+01_rb,0.78574e+01_rb,0.87192e+01_rb,0.80023e+01_rb,0.69038e+01_rb /)\n      kbo(:, 1,58,14) = (/ &\n        & 0.38805e+01_rb,0.64976e+01_rb,0.75961e+01_rb,0.72010e+01_rb,0.55107e+01_rb /)\n      kbo(:, 2,58,14) = (/ &\n        & 0.44745e+01_rb,0.69383e+01_rb,0.79787e+01_rb,0.74825e+01_rb,0.59115e+01_rb /)\n      kbo(:, 3,58,14) = (/ &\n        & 0.50386e+01_rb,0.72976e+01_rb,0.82763e+01_rb,0.76973e+01_rb,0.62480e+01_rb /)\n      kbo(:, 4,58,14) = (/ &\n        & 0.55648e+01_rb,0.75780e+01_rb,0.85055e+01_rb,0.78586e+01_rb,0.65486e+01_rb /)\n      kbo(:, 5,58,14) = (/ &\n        & 0.60366e+01_rb,0.78002e+01_rb,0.86790e+01_rb,0.79756e+01_rb,0.68245e+01_rb /)\n      kbo(:, 1,59,14) = (/ &\n        & 0.38057e+01_rb,0.64388e+01_rb,0.75416e+01_rb,0.71615e+01_rb,0.54582e+01_rb /)\n      kbo(:, 2,59,14) = (/ &\n        & 0.44044e+01_rb,0.68893e+01_rb,0.79374e+01_rb,0.74528e+01_rb,0.58671e+01_rb /)\n      kbo(:, 3,59,14) = (/ &\n        & 0.49711e+01_rb,0.72574e+01_rb,0.82432e+01_rb,0.76750e+01_rb,0.62091e+01_rb /)\n      kbo(:, 4,59,14) = (/ &\n        & 0.55038e+01_rb,0.75476e+01_rb,0.84809e+01_rb,0.78415e+01_rb,0.65137e+01_rb /)\n      kbo(:, 5,59,14) = (/ &\n        & 0.59820e+01_rb,0.77764e+01_rb,0.86612e+01_rb,0.79636e+01_rb,0.67922e+01_rb /)\n      kbo(:, 1,13,15) = (/ &\n        & 0.21583e+02_rb,0.16708e+02_rb,0.15578e+02_rb,0.16324e+02_rb,0.21499e+02_rb /)\n      kbo(:, 2,13,15) = (/ &\n        & 0.21596e+02_rb,0.16646e+02_rb,0.15448e+02_rb,0.16116e+02_rb,0.21237e+02_rb /)\n      kbo(:, 3,13,15) = (/ &\n        & 0.21561e+02_rb,0.16562e+02_rb,0.15303e+02_rb,0.15881e+02_rb,0.20975e+02_rb /)\n      kbo(:, 4,13,15) = (/ &\n        & 0.21482e+02_rb,0.16444e+02_rb,0.15131e+02_rb,0.15663e+02_rb,0.20709e+02_rb /)\n      kbo(:, 5,13,15) = (/ &\n        & 0.21360e+02_rb,0.16308e+02_rb,0.14933e+02_rb,0.15443e+02_rb,0.20449e+02_rb /)\n      kbo(:, 1,14,15) = (/ &\n        & 0.23286e+02_rb,0.18105e+02_rb,0.17022e+02_rb,0.17494e+02_rb,0.22811e+02_rb /)\n      kbo(:, 2,14,15) = (/ &\n        & 0.23268e+02_rb,0.18001e+02_rb,0.16845e+02_rb,0.17259e+02_rb,0.22563e+02_rb /)\n      kbo(:, 3,14,15) = (/ &\n        & 0.23185e+02_rb,0.17865e+02_rb,0.16645e+02_rb,0.17010e+02_rb,0.22295e+02_rb /)\n      kbo(:, 4,14,15) = (/ &\n        & 0.23065e+02_rb,0.17707e+02_rb,0.16417e+02_rb,0.16757e+02_rb,0.22015e+02_rb /)\n      kbo(:, 5,14,15) = (/ &\n        & 0.22894e+02_rb,0.17515e+02_rb,0.16163e+02_rb,0.16504e+02_rb,0.21733e+02_rb /)\n      kbo(:, 1,15,15) = (/ &\n        & 0.24991e+02_rb,0.19505e+02_rb,0.18411e+02_rb,0.18638e+02_rb,0.24057e+02_rb /)\n      kbo(:, 2,15,15) = (/ &\n        & 0.24920e+02_rb,0.19349e+02_rb,0.18180e+02_rb,0.18374e+02_rb,0.23810e+02_rb /)\n      kbo(:, 3,15,15) = (/ &\n        & 0.24797e+02_rb,0.19155e+02_rb,0.17917e+02_rb,0.18103e+02_rb,0.23536e+02_rb /)\n      kbo(:, 4,15,15) = (/ &\n        & 0.24619e+02_rb,0.18942e+02_rb,0.17624e+02_rb,0.17814e+02_rb,0.23238e+02_rb /)\n      kbo(:, 5,15,15) = (/ &\n        & 0.24389e+02_rb,0.18694e+02_rb,0.17313e+02_rb,0.17524e+02_rb,0.22925e+02_rb /)\n      kbo(:, 1,16,15) = (/ &\n        & 0.26656e+02_rb,0.20879e+02_rb,0.19716e+02_rb,0.19730e+02_rb,0.25227e+02_rb /)\n      kbo(:, 2,16,15) = (/ &\n        & 0.26523e+02_rb,0.20660e+02_rb,0.19424e+02_rb,0.19442e+02_rb,0.24961e+02_rb /)\n      kbo(:, 3,16,15) = (/ &\n        & 0.26348e+02_rb,0.20405e+02_rb,0.19093e+02_rb,0.19135e+02_rb,0.24671e+02_rb /)\n      kbo(:, 4,16,15) = (/ &\n        & 0.26107e+02_rb,0.20124e+02_rb,0.18741e+02_rb,0.18812e+02_rb,0.24357e+02_rb /)\n      kbo(:, 5,16,15) = (/ &\n        & 0.25816e+02_rb,0.19816e+02_rb,0.18364e+02_rb,0.18476e+02_rb,0.24001e+02_rb /)\n      kbo(:, 1,17,15) = (/ &\n        & 0.28242e+02_rb,0.22184e+02_rb,0.20936e+02_rb,0.20769e+02_rb,0.26307e+02_rb /)\n      kbo(:, 2,17,15) = (/ &\n        & 0.28053e+02_rb,0.21895e+02_rb,0.20570e+02_rb,0.20444e+02_rb,0.26016e+02_rb /)\n      kbo(:, 3,17,15) = (/ &\n        & 0.27803e+02_rb,0.21584e+02_rb,0.20174e+02_rb,0.20096e+02_rb,0.25702e+02_rb /)\n      kbo(:, 4,17,15) = (/ &\n        & 0.27499e+02_rb,0.21233e+02_rb,0.19753e+02_rb,0.19726e+02_rb,0.25351e+02_rb /)\n      kbo(:, 5,17,15) = (/ &\n        & 0.27139e+02_rb,0.20859e+02_rb,0.19319e+02_rb,0.19342e+02_rb,0.24955e+02_rb /)\n      kbo(:, 1,18,15) = (/ &\n        & 0.29720e+02_rb,0.23411e+02_rb,0.22065e+02_rb,0.21731e+02_rb,0.27280e+02_rb /)\n      kbo(:, 2,18,15) = (/ &\n        & 0.29480e+02_rb,0.23053e+02_rb,0.21624e+02_rb,0.21360e+02_rb,0.26972e+02_rb /)\n      kbo(:, 3,18,15) = (/ &\n        & 0.29159e+02_rb,0.22667e+02_rb,0.21156e+02_rb,0.20967e+02_rb,0.26625e+02_rb /)\n      kbo(:, 4,18,15) = (/ &\n        & 0.28776e+02_rb,0.22248e+02_rb,0.20663e+02_rb,0.20553e+02_rb,0.26229e+02_rb /)\n      kbo(:, 5,18,15) = (/ &\n        & 0.28340e+02_rb,0.21810e+02_rb,0.20170e+02_rb,0.20119e+02_rb,0.25790e+02_rb /)\n      kbo(:, 1,19,15) = (/ &\n        & 0.31079e+02_rb,0.24533e+02_rb,0.23084e+02_rb,0.22601e+02_rb,0.28156e+02_rb /)\n      kbo(:, 2,19,15) = (/ &\n        & 0.30766e+02_rb,0.24108e+02_rb,0.22572e+02_rb,0.22185e+02_rb,0.27815e+02_rb /)\n      kbo(:, 3,19,15) = (/ &\n        & 0.30376e+02_rb,0.23641e+02_rb,0.22030e+02_rb,0.21741e+02_rb,0.27429e+02_rb /)\n      kbo(:, 4,19,15) = (/ &\n        & 0.29923e+02_rb,0.23160e+02_rb,0.21471e+02_rb,0.21280e+02_rb,0.26992e+02_rb /)\n      kbo(:, 5,19,15) = (/ &\n        & 0.29415e+02_rb,0.22660e+02_rb,0.20920e+02_rb,0.20797e+02_rb,0.26511e+02_rb /)\n      kbo(:, 1,20,15) = (/ &\n        & 0.32290e+02_rb,0.25527e+02_rb,0.23984e+02_rb,0.23373e+02_rb,0.28918e+02_rb /)\n      kbo(:, 2,20,15) = (/ &\n        & 0.31907e+02_rb,0.25035e+02_rb,0.23397e+02_rb,0.22899e+02_rb,0.28537e+02_rb /)\n      kbo(:, 3,20,15) = (/ &\n        & 0.31450e+02_rb,0.24496e+02_rb,0.22784e+02_rb,0.22408e+02_rb,0.28112e+02_rb /)\n      kbo(:, 4,20,15) = (/ &\n        & 0.30926e+02_rb,0.23946e+02_rb,0.22166e+02_rb,0.21898e+02_rb,0.27628e+02_rb /)\n      kbo(:, 5,20,15) = (/ &\n        & 0.30351e+02_rb,0.23384e+02_rb,0.21559e+02_rb,0.21369e+02_rb,0.27109e+02_rb /)\n      kbo(:, 1,21,15) = (/ &\n        & 0.33354e+02_rb,0.26397e+02_rb,0.24768e+02_rb,0.24040e+02_rb,0.29575e+02_rb /)\n      kbo(:, 2,21,15) = (/ &\n        & 0.32901e+02_rb,0.25842e+02_rb,0.24107e+02_rb,0.23511e+02_rb,0.29153e+02_rb /)\n      kbo(:, 3,21,15) = (/ &\n        & 0.32374e+02_rb,0.25240e+02_rb,0.23426e+02_rb,0.22972e+02_rb,0.28686e+02_rb /)\n      kbo(:, 4,21,15) = (/ &\n        & 0.31781e+02_rb,0.24624e+02_rb,0.22754e+02_rb,0.22416e+02_rb,0.28162e+02_rb /)\n      kbo(:, 5,21,15) = (/ &\n        & 0.31147e+02_rb,0.24003e+02_rb,0.22095e+02_rb,0.21845e+02_rb,0.27608e+02_rb /)\n      kbo(:, 1,22,15) = (/ &\n        & 0.34245e+02_rb,0.27109e+02_rb,0.25388e+02_rb,0.24566e+02_rb,0.30099e+02_rb /)\n      kbo(:, 2,22,15) = (/ &\n        & 0.33719e+02_rb,0.26481e+02_rb,0.24655e+02_rb,0.23987e+02_rb,0.29635e+02_rb /)\n      kbo(:, 3,22,15) = (/ &\n        & 0.33121e+02_rb,0.25821e+02_rb,0.23916e+02_rb,0.23403e+02_rb,0.29124e+02_rb /)\n      kbo(:, 4,22,15) = (/ &\n        & 0.32461e+02_rb,0.25147e+02_rb,0.23196e+02_rb,0.22805e+02_rb,0.28562e+02_rb /)\n      kbo(:, 5,22,15) = (/ &\n        & 0.31774e+02_rb,0.24482e+02_rb,0.22495e+02_rb,0.22197e+02_rb,0.27979e+02_rb /)\n      kbo(:, 1,23,15) = (/ &\n        & 0.34979e+02_rb,0.27686e+02_rb,0.25885e+02_rb,0.24985e+02_rb,0.30523e+02_rb /)\n      kbo(:, 2,23,15) = (/ &\n        & 0.34390e+02_rb,0.26989e+02_rb,0.25088e+02_rb,0.24366e+02_rb,0.30015e+02_rb /)\n      kbo(:, 3,23,15) = (/ &\n        & 0.33724e+02_rb,0.26279e+02_rb,0.24300e+02_rb,0.23742e+02_rb,0.29464e+02_rb /)\n      kbo(:, 4,23,15) = (/ &\n        & 0.33013e+02_rb,0.25562e+02_rb,0.23538e+02_rb,0.23108e+02_rb,0.28875e+02_rb /)\n      kbo(:, 5,23,15) = (/ &\n        & 0.32269e+02_rb,0.24853e+02_rb,0.22796e+02_rb,0.22467e+02_rb,0.28265e+02_rb /)\n      kbo(:, 1,24,15) = (/ &\n        & 0.35573e+02_rb,0.28136e+02_rb,0.26264e+02_rb,0.25305e+02_rb,0.30849e+02_rb /)\n      kbo(:, 2,24,15) = (/ &\n        & 0.34922e+02_rb,0.27387e+02_rb,0.25413e+02_rb,0.24653e+02_rb,0.30308e+02_rb /)\n      kbo(:, 3,24,15) = (/ &\n        & 0.34200e+02_rb,0.26632e+02_rb,0.24587e+02_rb,0.23994e+02_rb,0.29723e+02_rb /)\n      kbo(:, 4,24,15) = (/ &\n        & 0.33439e+02_rb,0.25872e+02_rb,0.23787e+02_rb,0.23329e+02_rb,0.29105e+02_rb /)\n      kbo(:, 5,24,15) = (/ &\n        & 0.32647e+02_rb,0.25128e+02_rb,0.23014e+02_rb,0.22661e+02_rb,0.28477e+02_rb /)\n      kbo(:, 1,25,15) = (/ &\n        & 0.36033e+02_rb,0.28469e+02_rb,0.26533e+02_rb,0.25539e+02_rb,0.31091e+02_rb /)\n      kbo(:, 2,25,15) = (/ &\n        & 0.35324e+02_rb,0.27679e+02_rb,0.25640e+02_rb,0.24852e+02_rb,0.30512e+02_rb /)\n      kbo(:, 3,25,15) = (/ &\n        & 0.34555e+02_rb,0.26887e+02_rb,0.24782e+02_rb,0.24167e+02_rb,0.29902e+02_rb /)\n      kbo(:, 4,25,15) = (/ &\n        & 0.33752e+02_rb,0.26092e+02_rb,0.23953e+02_rb,0.23474e+02_rb,0.29262e+02_rb /)\n      kbo(:, 5,25,15) = (/ &\n        & 0.32915e+02_rb,0.25319e+02_rb,0.23155e+02_rb,0.22787e+02_rb,0.28617e+02_rb /)\n      kbo(:, 1,26,15) = (/ &\n        & 0.36371e+02_rb,0.28696e+02_rb,0.26697e+02_rb,0.25688e+02_rb,0.31254e+02_rb /)\n      kbo(:, 2,26,15) = (/ &\n        & 0.35607e+02_rb,0.27872e+02_rb,0.25775e+02_rb,0.24975e+02_rb,0.30642e+02_rb /)\n      kbo(:, 3,26,15) = (/ &\n        & 0.34798e+02_rb,0.27047e+02_rb,0.24890e+02_rb,0.24264e+02_rb,0.30007e+02_rb /)\n      kbo(:, 4,26,15) = (/ &\n        & 0.33956e+02_rb,0.26227e+02_rb,0.24040e+02_rb,0.23549e+02_rb,0.29351e+02_rb /)\n      kbo(:, 5,26,15) = (/ &\n        & 0.33076e+02_rb,0.25425e+02_rb,0.23222e+02_rb,0.22845e+02_rb,0.28688e+02_rb /)\n      kbo(:, 1,27,15) = (/ &\n        & 0.36605e+02_rb,0.28839e+02_rb,0.26780e+02_rb,0.25770e+02_rb,0.31349e+02_rb /)\n      kbo(:, 2,27,15) = (/ &\n        & 0.35796e+02_rb,0.27987e+02_rb,0.25836e+02_rb,0.25037e+02_rb,0.30713e+02_rb /)\n      kbo(:, 3,27,15) = (/ &\n        & 0.34952e+02_rb,0.27136e+02_rb,0.24934e+02_rb,0.24306e+02_rb,0.30059e+02_rb /)\n      kbo(:, 4,27,15) = (/ &\n        & 0.34075e+02_rb,0.26294e+02_rb,0.24068e+02_rb,0.23575e+02_rb,0.29392e+02_rb /)\n      kbo(:, 5,27,15) = (/ &\n        & 0.33166e+02_rb,0.25473e+02_rb,0.23238e+02_rb,0.22856e+02_rb,0.28711e+02_rb /)\n      kbo(:, 1,28,15) = (/ &\n        & 0.36758e+02_rb,0.28917e+02_rb,0.26804e+02_rb,0.25803e+02_rb,0.31396e+02_rb /)\n      kbo(:, 2,28,15) = (/ &\n        & 0.35910e+02_rb,0.28037e+02_rb,0.25842e+02_rb,0.25051e+02_rb,0.30739e+02_rb /)\n      kbo(:, 3,28,15) = (/ &\n        & 0.35033e+02_rb,0.27165e+02_rb,0.24925e+02_rb,0.24304e+02_rb,0.30070e+02_rb /)\n      kbo(:, 4,28,15) = (/ &\n        & 0.34125e+02_rb,0.26307e+02_rb,0.24049e+02_rb,0.23563e+02_rb,0.29393e+02_rb /)\n      kbo(:, 5,28,15) = (/ &\n        & 0.33188e+02_rb,0.25468e+02_rb,0.23210e+02_rb,0.22829e+02_rb,0.28695e+02_rb /)\n      kbo(:, 1,29,15) = (/ &\n        & 0.36829e+02_rb,0.28926e+02_rb,0.26766e+02_rb,0.25785e+02_rb,0.31393e+02_rb /)\n      kbo(:, 2,29,15) = (/ &\n        & 0.35949e+02_rb,0.28025e+02_rb,0.25792e+02_rb,0.25019e+02_rb,0.30723e+02_rb /)\n      kbo(:, 3,29,15) = (/ &\n        & 0.35045e+02_rb,0.27141e+02_rb,0.24868e+02_rb,0.24260e+02_rb,0.30042e+02_rb /)\n      kbo(:, 4,29,15) = (/ &\n        & 0.34114e+02_rb,0.26272e+02_rb,0.23986e+02_rb,0.23509e+02_rb,0.29353e+02_rb /)\n      kbo(:, 5,29,15) = (/ &\n        & 0.33154e+02_rb,0.25419e+02_rb,0.23142e+02_rb,0.22765e+02_rb,0.28643e+02_rb /)\n      kbo(:, 1,30,15) = (/ &\n        & 0.36836e+02_rb,0.28884e+02_rb,0.26681e+02_rb,0.25729e+02_rb,0.31353e+02_rb /)\n      kbo(:, 2,30,15) = (/ &\n        & 0.35935e+02_rb,0.27972e+02_rb,0.25704e+02_rb,0.24955e+02_rb,0.30675e+02_rb /)\n      kbo(:, 3,30,15) = (/ &\n        & 0.35002e+02_rb,0.27075e+02_rb,0.24775e+02_rb,0.24184e+02_rb,0.29984e+02_rb /)\n      kbo(:, 4,30,15) = (/ &\n        & 0.34050e+02_rb,0.26196e+02_rb,0.23891e+02_rb,0.23427e+02_rb,0.29283e+02_rb /)\n      kbo(:, 5,30,15) = (/ &\n        & 0.33076e+02_rb,0.25337e+02_rb,0.23046e+02_rb,0.22676e+02_rb,0.28566e+02_rb /)\n      kbo(:, 1,31,15) = (/ &\n        & 0.36791e+02_rb,0.28797e+02_rb,0.26557e+02_rb,0.25640e+02_rb,0.31284e+02_rb /)\n      kbo(:, 2,31,15) = (/ &\n        & 0.35869e+02_rb,0.27877e+02_rb,0.25582e+02_rb,0.24857e+02_rb,0.30596e+02_rb /)\n      kbo(:, 3,31,15) = (/ &\n        & 0.34914e+02_rb,0.26971e+02_rb,0.24653e+02_rb,0.24083e+02_rb,0.29901e+02_rb /)\n      kbo(:, 4,31,15) = (/ &\n        & 0.33941e+02_rb,0.26084e+02_rb,0.23767e+02_rb,0.23319e+02_rb,0.29185e+02_rb /)\n      kbo(:, 5,31,15) = (/ &\n        & 0.32958e+02_rb,0.25224e+02_rb,0.22924e+02_rb,0.22563e+02_rb,0.28464e+02_rb /)\n      kbo(:, 1,32,15) = (/ &\n        & 0.36704e+02_rb,0.28676e+02_rb,0.26402e+02_rb,0.25521e+02_rb,0.31186e+02_rb /)\n      kbo(:, 2,32,15) = (/ &\n        & 0.35759e+02_rb,0.27748e+02_rb,0.25429e+02_rb,0.24734e+02_rb,0.30492e+02_rb /)\n      kbo(:, 3,32,15) = (/ &\n        & 0.34789e+02_rb,0.26839e+02_rb,0.24504e+02_rb,0.23956e+02_rb,0.29792e+02_rb /)\n      kbo(:, 4,32,15) = (/ &\n        & 0.33799e+02_rb,0.25947e+02_rb,0.23622e+02_rb,0.23189e+02_rb,0.29067e+02_rb /)\n      kbo(:, 5,32,15) = (/ &\n        & 0.32807e+02_rb,0.25086e+02_rb,0.22780e+02_rb,0.22431e+02_rb,0.28343e+02_rb /)\n      kbo(:, 1,33,15) = (/ &\n        & 0.36581e+02_rb,0.28529e+02_rb,0.26229e+02_rb,0.25386e+02_rb,0.31076e+02_rb /)\n      kbo(:, 2,33,15) = (/ &\n        & 0.35618e+02_rb,0.27597e+02_rb,0.25258e+02_rb,0.24592e+02_rb,0.30373e+02_rb /)\n      kbo(:, 3,33,15) = (/ &\n        & 0.34634e+02_rb,0.26685e+02_rb,0.24337e+02_rb,0.23815e+02_rb,0.29666e+02_rb /)\n      kbo(:, 4,33,15) = (/ &\n        & 0.33632e+02_rb,0.25791e+02_rb,0.23459e+02_rb,0.23042e+02_rb,0.28931e+02_rb /)\n      kbo(:, 5,33,15) = (/ &\n        & 0.32632e+02_rb,0.24931e+02_rb,0.22622e+02_rb,0.22288e+02_rb,0.28210e+02_rb /)\n      kbo(:, 1,34,15) = (/ &\n        & 0.36458e+02_rb,0.28392e+02_rb,0.26072e+02_rb,0.25264e+02_rb,0.30972e+02_rb /)\n      kbo(:, 2,34,15) = (/ &\n        & 0.35483e+02_rb,0.27459e+02_rb,0.25106e+02_rb,0.24467e+02_rb,0.30265e+02_rb /)\n      kbo(:, 3,34,15) = (/ &\n        & 0.34486e+02_rb,0.26542e+02_rb,0.24189e+02_rb,0.23688e+02_rb,0.29550e+02_rb /)\n      kbo(:, 4,34,15) = (/ &\n        & 0.33480e+02_rb,0.25653e+02_rb,0.23315e+02_rb,0.22913e+02_rb,0.28811e+02_rb /)\n      kbo(:, 5,34,15) = (/ &\n        & 0.32478e+02_rb,0.24793e+02_rb,0.22484e+02_rb,0.22163e+02_rb,0.28094e+02_rb /)\n      kbo(:, 1,35,15) = (/ &\n        & 0.36414e+02_rb,0.28334e+02_rb,0.25999e+02_rb,0.25206e+02_rb,0.30923e+02_rb /)\n      kbo(:, 2,35,15) = (/ &\n        & 0.35425e+02_rb,0.27395e+02_rb,0.25033e+02_rb,0.24406e+02_rb,0.30215e+02_rb /)\n      kbo(:, 3,35,15) = (/ &\n        & 0.34420e+02_rb,0.26476e+02_rb,0.24117e+02_rb,0.23624e+02_rb,0.29493e+02_rb /)\n      kbo(:, 4,35,15) = (/ &\n        & 0.33407e+02_rb,0.25585e+02_rb,0.23243e+02_rb,0.22849e+02_rb,0.28753e+02_rb /)\n      kbo(:, 5,35,15) = (/ &\n        & 0.32403e+02_rb,0.24726e+02_rb,0.22415e+02_rb,0.22101e+02_rb,0.28034e+02_rb /)\n      kbo(:, 1,36,15) = (/ &\n        & 0.36456e+02_rb,0.28365e+02_rb,0.26023e+02_rb,0.25227e+02_rb,0.30947e+02_rb /)\n      kbo(:, 2,36,15) = (/ &\n        & 0.35465e+02_rb,0.27424e+02_rb,0.25054e+02_rb,0.24425e+02_rb,0.30235e+02_rb /)\n      kbo(:, 3,36,15) = (/ &\n        & 0.34451e+02_rb,0.26498e+02_rb,0.24134e+02_rb,0.23640e+02_rb,0.29510e+02_rb /)\n      kbo(:, 4,36,15) = (/ &\n        & 0.33436e+02_rb,0.25606e+02_rb,0.23259e+02_rb,0.22862e+02_rb,0.28768e+02_rb /)\n      kbo(:, 5,36,15) = (/ &\n        & 0.32427e+02_rb,0.24743e+02_rb,0.22427e+02_rb,0.22112e+02_rb,0.28048e+02_rb /)\n      kbo(:, 1,37,15) = (/ &\n        & 0.36638e+02_rb,0.28533e+02_rb,0.26191e+02_rb,0.25363e+02_rb,0.31069e+02_rb /)\n      kbo(:, 2,37,15) = (/ &\n        & 0.35645e+02_rb,0.27585e+02_rb,0.25212e+02_rb,0.24557e+02_rb,0.30356e+02_rb /)\n      kbo(:, 3,37,15) = (/ &\n        & 0.34632e+02_rb,0.26655e+02_rb,0.24283e+02_rb,0.23768e+02_rb,0.29633e+02_rb /)\n      kbo(:, 4,37,15) = (/ &\n        & 0.33611e+02_rb,0.25753e+02_rb,0.23398e+02_rb,0.22987e+02_rb,0.28889e+02_rb /)\n      kbo(:, 5,37,15) = (/ &\n        & 0.32597e+02_rb,0.24885e+02_rb,0.22559e+02_rb,0.22230e+02_rb,0.28165e+02_rb /)\n      kbo(:, 1,38,15) = (/ &\n        & 0.36818e+02_rb,0.28702e+02_rb,0.26363e+02_rb,0.25503e+02_rb,0.31194e+02_rb /)\n      kbo(:, 2,38,15) = (/ &\n        & 0.35825e+02_rb,0.27749e+02_rb,0.25373e+02_rb,0.24692e+02_rb,0.30479e+02_rb /)\n      kbo(:, 3,38,15) = (/ &\n        & 0.34809e+02_rb,0.26811e+02_rb,0.24434e+02_rb,0.23900e+02_rb,0.29757e+02_rb /)\n      kbo(:, 4,38,15) = (/ &\n        & 0.33789e+02_rb,0.25904e+02_rb,0.23543e+02_rb,0.23114e+02_rb,0.29012e+02_rb /)\n      kbo(:, 5,38,15) = (/ &\n        & 0.32767e+02_rb,0.25028e+02_rb,0.22694e+02_rb,0.22351e+02_rb,0.28285e+02_rb /)\n      kbo(:, 1,39,15) = (/ &\n        & 0.36989e+02_rb,0.28865e+02_rb,0.26530e+02_rb,0.25636e+02_rb,0.31312e+02_rb /)\n      kbo(:, 2,39,15) = (/ &\n        & 0.35999e+02_rb,0.27907e+02_rb,0.25529e+02_rb,0.24823e+02_rb,0.30597e+02_rb /)\n      kbo(:, 3,39,15) = (/ &\n        & 0.34983e+02_rb,0.26966e+02_rb,0.24583e+02_rb,0.24027e+02_rb,0.29878e+02_rb /)\n      kbo(:, 4,39,15) = (/ &\n        & 0.33957e+02_rb,0.26048e+02_rb,0.23683e+02_rb,0.23240e+02_rb,0.29134e+02_rb /)\n      kbo(:, 5,39,15) = (/ &\n        & 0.32935e+02_rb,0.25169e+02_rb,0.22826e+02_rb,0.22468e+02_rb,0.28398e+02_rb /)\n      kbo(:, 1,40,15) = (/ &\n        & 0.37254e+02_rb,0.29125e+02_rb,0.26800e+02_rb,0.25853e+02_rb,0.31502e+02_rb /)\n      kbo(:, 2,40,15) = (/ &\n        & 0.36269e+02_rb,0.28159e+02_rb,0.25786e+02_rb,0.25036e+02_rb,0.30787e+02_rb /)\n      kbo(:, 3,40,15) = (/ &\n        & 0.35253e+02_rb,0.27211e+02_rb,0.24825e+02_rb,0.24233e+02_rb,0.30069e+02_rb /)\n      kbo(:, 4,40,15) = (/ &\n        & 0.34229e+02_rb,0.26287e+02_rb,0.23913e+02_rb,0.23442e+02_rb,0.29327e+02_rb /)\n      kbo(:, 5,40,15) = (/ &\n        & 0.33202e+02_rb,0.25396e+02_rb,0.23042e+02_rb,0.22665e+02_rb,0.28587e+02_rb /)\n      kbo(:, 1,41,15) = (/ &\n        & 0.37526e+02_rb,0.29396e+02_rb,0.27087e+02_rb,0.26081e+02_rb,0.31701e+02_rb /)\n      kbo(:, 2,41,15) = (/ &\n        & 0.36546e+02_rb,0.28422e+02_rb,0.26056e+02_rb,0.25257e+02_rb,0.30982e+02_rb /)\n      kbo(:, 3,41,15) = (/ &\n        & 0.35534e+02_rb,0.27467e+02_rb,0.25079e+02_rb,0.24448e+02_rb,0.30265e+02_rb /)\n      kbo(:, 4,41,15) = (/ &\n        & 0.34510e+02_rb,0.26534e+02_rb,0.24153e+02_rb,0.23654e+02_rb,0.29528e+02_rb /)\n      kbo(:, 5,41,15) = (/ &\n        & 0.33481e+02_rb,0.25633e+02_rb,0.23271e+02_rb,0.22872e+02_rb,0.28783e+02_rb /)\n      kbo(:, 1,42,15) = (/ &\n        & 0.37791e+02_rb,0.29665e+02_rb,0.27375e+02_rb,0.26306e+02_rb,0.31897e+02_rb /)\n      kbo(:, 2,42,15) = (/ &\n        & 0.36818e+02_rb,0.28682e+02_rb,0.26328e+02_rb,0.25479e+02_rb,0.31179e+02_rb /)\n      kbo(:, 3,42,15) = (/ &\n        & 0.35814e+02_rb,0.27725e+02_rb,0.25336e+02_rb,0.24663e+02_rb,0.30459e+02_rb /)\n      kbo(:, 4,42,15) = (/ &\n        & 0.34792e+02_rb,0.26784e+02_rb,0.24397e+02_rb,0.23867e+02_rb,0.29730e+02_rb /)\n      kbo(:, 5,42,15) = (/ &\n        & 0.33761e+02_rb,0.25873e+02_rb,0.23504e+02_rb,0.23079e+02_rb,0.28983e+02_rb /)\n      kbo(:, 1,43,15) = (/ &\n        & 0.38102e+02_rb,0.29987e+02_rb,0.27726e+02_rb,0.26579e+02_rb,0.32132e+02_rb /)\n      kbo(:, 2,43,15) = (/ &\n        & 0.37142e+02_rb,0.29000e+02_rb,0.26660e+02_rb,0.25743e+02_rb,0.31410e+02_rb /)\n      kbo(:, 3,43,15) = (/ &\n        & 0.36146e+02_rb,0.28034e+02_rb,0.25651e+02_rb,0.24927e+02_rb,0.30694e+02_rb /)\n      kbo(:, 4,43,15) = (/ &\n        & 0.35125e+02_rb,0.27087e+02_rb,0.24694e+02_rb,0.24121e+02_rb,0.29968e+02_rb /)\n      kbo(:, 5,43,15) = (/ &\n        & 0.34093e+02_rb,0.26161e+02_rb,0.23786e+02_rb,0.23330e+02_rb,0.29223e+02_rb /)\n      kbo(:, 1,44,15) = (/ &\n        & 0.38433e+02_rb,0.30339e+02_rb,0.28106e+02_rb,0.26874e+02_rb,0.32381e+02_rb /)\n      kbo(:, 2,44,15) = (/ &\n        & 0.37485e+02_rb,0.29344e+02_rb,0.27023e+02_rb,0.26033e+02_rb,0.31664e+02_rb /)\n      kbo(:, 3,44,15) = (/ &\n        & 0.36497e+02_rb,0.28368e+02_rb,0.25996e+02_rb,0.25211e+02_rb,0.30945e+02_rb /)\n      kbo(:, 4,44,15) = (/ &\n        & 0.35483e+02_rb,0.27414e+02_rb,0.25019e+02_rb,0.24397e+02_rb,0.30221e+02_rb /)\n      kbo(:, 5,44,15) = (/ &\n        & 0.34454e+02_rb,0.26480e+02_rb,0.24095e+02_rb,0.23603e+02_rb,0.29482e+02_rb /)\n      kbo(:, 1,45,15) = (/ &\n        & 0.38755e+02_rb,0.30690e+02_rb,0.28491e+02_rb,0.27169e+02_rb,0.32624e+02_rb /)\n      kbo(:, 2,45,15) = (/ &\n        & 0.37819e+02_rb,0.29686e+02_rb,0.27393e+02_rb,0.26324e+02_rb,0.31916e+02_rb /)\n      kbo(:, 3,45,15) = (/ &\n        & 0.36842e+02_rb,0.28700e+02_rb,0.26343e+02_rb,0.25494e+02_rb,0.31195e+02_rb /)\n      kbo(:, 4,45,15) = (/ &\n        & 0.35840e+02_rb,0.27743e+02_rb,0.25350e+02_rb,0.24674e+02_rb,0.30470e+02_rb /)\n      kbo(:, 5,45,15) = (/ &\n        & 0.34814e+02_rb,0.26800e+02_rb,0.24408e+02_rb,0.23874e+02_rb,0.29739e+02_rb /)\n      kbo(:, 1,46,15) = (/ &\n        & 0.39090e+02_rb,0.31065e+02_rb,0.28908e+02_rb,0.27486e+02_rb,0.32877e+02_rb /)\n      kbo(:, 2,46,15) = (/ &\n        & 0.38170e+02_rb,0.30050e+02_rb,0.27790e+02_rb,0.26631e+02_rb,0.32180e+02_rb /)\n      kbo(:, 3,46,15) = (/ &\n        & 0.37208e+02_rb,0.29060e+02_rb,0.26719e+02_rb,0.25793e+02_rb,0.31457e+02_rb /)\n      kbo(:, 4,46,15) = (/ &\n        & 0.36211e+02_rb,0.28091e+02_rb,0.25705e+02_rb,0.24972e+02_rb,0.30735e+02_rb /)\n      kbo(:, 5,46,15) = (/ &\n        & 0.35190e+02_rb,0.27143e+02_rb,0.24746e+02_rb,0.24165e+02_rb,0.30011e+02_rb /)\n      kbo(:, 1,47,15) = (/ &\n        & 0.39451e+02_rb,0.31490e+02_rb,0.29378e+02_rb,0.27842e+02_rb,0.33145e+02_rb /)\n      kbo(:, 2,47,15) = (/ &\n        & 0.38554e+02_rb,0.30463e+02_rb,0.28238e+02_rb,0.26977e+02_rb,0.32470e+02_rb /)\n      kbo(:, 3,47,15) = (/ &\n        & 0.37608e+02_rb,0.29464e+02_rb,0.27149e+02_rb,0.26134e+02_rb,0.31753e+02_rb /)\n      kbo(:, 4,47,15) = (/ &\n        & 0.36624e+02_rb,0.28485e+02_rb,0.26114e+02_rb,0.25307e+02_rb,0.31030e+02_rb /)\n      kbo(:, 5,47,15) = (/ &\n        & 0.35612e+02_rb,0.27529e+02_rb,0.25131e+02_rb,0.24491e+02_rb,0.30307e+02_rb /)\n      kbo(:, 1,48,15) = (/ &\n        & 0.39789e+02_rb,0.31912e+02_rb,0.29855e+02_rb,0.28207e+02_rb,0.33402e+02_rb /)\n      kbo(:, 2,48,15) = (/ &\n        & 0.38929e+02_rb,0.30877e+02_rb,0.28697e+02_rb,0.27328e+02_rb,0.32755e+02_rb /)\n      kbo(:, 3,48,15) = (/ &\n        & 0.38000e+02_rb,0.29868e+02_rb,0.27588e+02_rb,0.26477e+02_rb,0.32050e+02_rb /)\n      kbo(:, 4,48,15) = (/ &\n        & 0.37030e+02_rb,0.28879e+02_rb,0.26527e+02_rb,0.25639e+02_rb,0.31322e+02_rb /)\n      kbo(:, 5,48,15) = (/ &\n        & 0.36027e+02_rb,0.27916e+02_rb,0.25523e+02_rb,0.24819e+02_rb,0.30601e+02_rb /)\n      kbo(:, 1,49,15) = (/ &\n        & 0.40116e+02_rb,0.32336e+02_rb,0.30332e+02_rb,0.28574e+02_rb,0.33637e+02_rb /)\n      kbo(:, 2,49,15) = (/ &\n        & 0.39295e+02_rb,0.31299e+02_rb,0.29164e+02_rb,0.27682e+02_rb,0.33028e+02_rb /)\n      kbo(:, 3,49,15) = (/ &\n        & 0.38385e+02_rb,0.30275e+02_rb,0.28033e+02_rb,0.26821e+02_rb,0.32341e+02_rb /)\n      kbo(:, 4,49,15) = (/ &\n        & 0.37432e+02_rb,0.29281e+02_rb,0.26949e+02_rb,0.25975e+02_rb,0.31615e+02_rb /)\n      kbo(:, 5,49,15) = (/ &\n        & 0.36440e+02_rb,0.28306e+02_rb,0.25923e+02_rb,0.25151e+02_rb,0.30893e+02_rb /)\n      kbo(:, 1,50,15) = (/ &\n        & 0.40414e+02_rb,0.32736e+02_rb,0.30783e+02_rb,0.28924e+02_rb,0.33845e+02_rb /)\n      kbo(:, 2,50,15) = (/ &\n        & 0.39619e+02_rb,0.31694e+02_rb,0.29608e+02_rb,0.28020e+02_rb,0.33276e+02_rb /)\n      kbo(:, 3,50,15) = (/ &\n        & 0.38737e+02_rb,0.30661e+02_rb,0.28456e+02_rb,0.27146e+02_rb,0.32609e+02_rb /)\n      kbo(:, 4,50,15) = (/ &\n        & 0.37800e+02_rb,0.29658e+02_rb,0.27356e+02_rb,0.26296e+02_rb,0.31894e+02_rb /)\n      kbo(:, 5,50,15) = (/ &\n        & 0.36822e+02_rb,0.28673e+02_rb,0.26306e+02_rb,0.25463e+02_rb,0.31168e+02_rb /)\n      kbo(:, 1,51,15) = (/ &\n        & 0.40689e+02_rb,0.33123e+02_rb,0.31211e+02_rb,0.29252e+02_rb,0.34023e+02_rb /)\n      kbo(:, 2,51,15) = (/ &\n        & 0.39919e+02_rb,0.32076e+02_rb,0.30039e+02_rb,0.28350e+02_rb,0.33499e+02_rb /)\n      kbo(:, 3,51,15) = (/ &\n        & 0.39075e+02_rb,0.31039e+02_rb,0.28875e+02_rb,0.27462e+02_rb,0.32860e+02_rb /)\n      kbo(:, 4,51,15) = (/ &\n        & 0.38151e+02_rb,0.30023e+02_rb,0.27755e+02_rb,0.26605e+02_rb,0.32160e+02_rb /)\n      kbo(:, 5,51,15) = (/ &\n        & 0.37189e+02_rb,0.29033e+02_rb,0.26685e+02_rb,0.25765e+02_rb,0.31432e+02_rb /)\n      kbo(:, 1,52,15) = (/ &\n        & 0.40936e+02_rb,0.33510e+02_rb,0.31640e+02_rb,0.29576e+02_rb,0.34183e+02_rb /)\n      kbo(:, 2,52,15) = (/ &\n        & 0.40210e+02_rb,0.32459e+02_rb,0.30471e+02_rb,0.28683e+02_rb,0.33706e+02_rb /)\n      kbo(:, 3,52,15) = (/ &\n        & 0.39397e+02_rb,0.31418e+02_rb,0.29296e+02_rb,0.27784e+02_rb,0.33107e+02_rb /)\n      kbo(:, 4,52,15) = (/ &\n        & 0.38495e+02_rb,0.30394e+02_rb,0.28160e+02_rb,0.26919e+02_rb,0.32422e+02_rb /)\n      kbo(:, 5,52,15) = (/ &\n        & 0.37548e+02_rb,0.29397e+02_rb,0.27070e+02_rb,0.26070e+02_rb,0.31697e+02_rb /)\n      kbo(:, 1,53,15) = (/ &\n        & 0.41161e+02_rb,0.33900e+02_rb,0.32075e+02_rb,0.29895e+02_rb,0.34325e+02_rb /)\n      kbo(:, 2,53,15) = (/ &\n        & 0.40494e+02_rb,0.32844e+02_rb,0.30901e+02_rb,0.29015e+02_rb,0.33898e+02_rb /)\n      kbo(:, 3,53,15) = (/ &\n        & 0.39709e+02_rb,0.31802e+02_rb,0.29726e+02_rb,0.28110e+02_rb,0.33339e+02_rb /)\n      kbo(:, 4,53,15) = (/ &\n        & 0.38833e+02_rb,0.30766e+02_rb,0.28570e+02_rb,0.27234e+02_rb,0.32680e+02_rb /)\n      kbo(:, 5,53,15) = (/ &\n        & 0.37902e+02_rb,0.29761e+02_rb,0.27465e+02_rb,0.26380e+02_rb,0.31966e+02_rb /)\n      kbo(:, 1,54,15) = (/ &\n        & 0.41350e+02_rb,0.34259e+02_rb,0.32468e+02_rb,0.30182e+02_rb,0.34433e+02_rb /)\n      kbo(:, 2,54,15) = (/ &\n        & 0.40740e+02_rb,0.33197e+02_rb,0.31292e+02_rb,0.29316e+02_rb,0.34057e+02_rb /)\n      kbo(:, 3,54,15) = (/ &\n        & 0.39978e+02_rb,0.32149e+02_rb,0.30122e+02_rb,0.28414e+02_rb,0.33542e+02_rb /)\n      kbo(:, 4,54,15) = (/ &\n        & 0.39139e+02_rb,0.31111e+02_rb,0.28955e+02_rb,0.27524e+02_rb,0.32911e+02_rb /)\n      kbo(:, 5,54,15) = (/ &\n        & 0.38222e+02_rb,0.30095e+02_rb,0.27832e+02_rb,0.26664e+02_rb,0.32209e+02_rb /)\n      kbo(:, 1,55,15) = (/ &\n        & 0.41508e+02_rb,0.34608e+02_rb,0.32849e+02_rb,0.30454e+02_rb,0.34522e+02_rb /)\n      kbo(:, 2,55,15) = (/ &\n        & 0.40955e+02_rb,0.33539e+02_rb,0.31671e+02_rb,0.29598e+02_rb,0.34194e+02_rb /)\n      kbo(:, 3,55,15) = (/ &\n        & 0.40232e+02_rb,0.32485e+02_rb,0.30501e+02_rb,0.28707e+02_rb,0.33722e+02_rb /)\n      kbo(:, 4,55,15) = (/ &\n        & 0.39425e+02_rb,0.31448e+02_rb,0.29326e+02_rb,0.27805e+02_rb,0.33122e+02_rb /)\n      kbo(:, 5,55,15) = (/ &\n        & 0.38521e+02_rb,0.30419e+02_rb,0.28187e+02_rb,0.26941e+02_rb,0.32441e+02_rb /)\n      kbo(:, 1,56,15) = (/ &\n        & 0.41645e+02_rb,0.34957e+02_rb,0.33233e+02_rb,0.30720e+02_rb,0.34599e+02_rb /)\n      kbo(:, 2,56,15) = (/ &\n        & 0.41152e+02_rb,0.33880e+02_rb,0.32050e+02_rb,0.29874e+02_rb,0.34316e+02_rb /)\n      kbo(:, 3,56,15) = (/ &\n        & 0.40482e+02_rb,0.32823e+02_rb,0.30877e+02_rb,0.28999e+02_rb,0.33890e+02_rb /)\n      kbo(:, 4,56,15) = (/ &\n        & 0.39696e+02_rb,0.31783e+02_rb,0.29704e+02_rb,0.28093e+02_rb,0.33329e+02_rb /)\n      kbo(:, 5,56,15) = (/ &\n        & 0.38819e+02_rb,0.30747e+02_rb,0.28547e+02_rb,0.27216e+02_rb,0.32666e+02_rb /)\n      kbo(:, 1,57,15) = (/ &\n        & 0.41772e+02_rb,0.35313e+02_rb,0.33621e+02_rb,0.30980e+02_rb,0.34653e+02_rb /)\n      kbo(:, 2,57,15) = (/ &\n        & 0.41335e+02_rb,0.34223e+02_rb,0.32428e+02_rb,0.30152e+02_rb,0.34423e+02_rb /)\n      kbo(:, 3,57,15) = (/ &\n        & 0.40717e+02_rb,0.33158e+02_rb,0.31249e+02_rb,0.29283e+02_rb,0.34041e+02_rb /)\n      kbo(:, 4,57,15) = (/ &\n        & 0.39952e+02_rb,0.32113e+02_rb,0.30080e+02_rb,0.28382e+02_rb,0.33523e+02_rb /)\n      kbo(:, 5,57,15) = (/ &\n        & 0.39110e+02_rb,0.31075e+02_rb,0.28913e+02_rb,0.27492e+02_rb,0.32886e+02_rb /)\n      kbo(:, 1,58,15) = (/ &\n        & 0.41872e+02_rb,0.35648e+02_rb,0.33990e+02_rb,0.31215e+02_rb,0.34668e+02_rb /)\n      kbo(:, 2,58,15) = (/ &\n        & 0.41486e+02_rb,0.34551e+02_rb,0.32786e+02_rb,0.30408e+02_rb,0.34507e+02_rb /)\n      kbo(:, 3,58,15) = (/ &\n        & 0.40923e+02_rb,0.33481e+02_rb,0.31606e+02_rb,0.29553e+02_rb,0.34175e+02_rb /)\n      kbo(:, 4,58,15) = (/ &\n        & 0.40193e+02_rb,0.32431e+02_rb,0.30438e+02_rb,0.28657e+02_rb,0.33692e+02_rb /)\n      kbo(:, 5,58,15) = (/ &\n        & 0.39381e+02_rb,0.31393e+02_rb,0.29263e+02_rb,0.27758e+02_rb,0.33088e+02_rb /)\n      kbo(:, 1,59,15) = (/ &\n        & 0.41905e+02_rb,0.35780e+02_rb,0.34140e+02_rb,0.31306e+02_rb,0.34668e+02_rb /)\n      kbo(:, 2,59,15) = (/ &\n        & 0.41541e+02_rb,0.34683e+02_rb,0.32931e+02_rb,0.30509e+02_rb,0.34539e+02_rb /)\n      kbo(:, 3,59,15) = (/ &\n        & 0.41000e+02_rb,0.33610e+02_rb,0.31751e+02_rb,0.29658e+02_rb,0.34225e+02_rb /)\n      kbo(:, 4,59,15) = (/ &\n        & 0.40289e+02_rb,0.32559e+02_rb,0.30582e+02_rb,0.28769e+02_rb,0.33760e+02_rb /)\n      kbo(:, 5,59,15) = (/ &\n        & 0.39484e+02_rb,0.31518e+02_rb,0.29405e+02_rb,0.27867e+02_rb,0.33169e+02_rb /)\n      kbo(:, 1,13,16) = (/ &\n        & 0.44218e+02_rb,0.33168e+02_rb,0.27605e+02_rb,0.40761e+02_rb,0.54348e+02_rb /)\n      kbo(:, 2,13,16) = (/ &\n        & 0.43915e+02_rb,0.32941e+02_rb,0.26738e+02_rb,0.39342e+02_rb,0.52457e+02_rb /)\n      kbo(:, 3,13,16) = (/ &\n        & 0.43491e+02_rb,0.32624e+02_rb,0.25861e+02_rb,0.38022e+02_rb,0.50696e+02_rb /)\n      kbo(:, 4,13,16) = (/ &\n        & 0.42952e+02_rb,0.32220e+02_rb,0.25010e+02_rb,0.36713e+02_rb,0.48951e+02_rb /)\n      kbo(:, 5,13,16) = (/ &\n        & 0.42305e+02_rb,0.31735e+02_rb,0.24184e+02_rb,0.35417e+02_rb,0.47222e+02_rb /)\n      kbo(:, 1,14,16) = (/ &\n        & 0.50640e+02_rb,0.37984e+02_rb,0.31138e+02_rb,0.45571e+02_rb,0.60761e+02_rb /)\n      kbo(:, 2,14,16) = (/ &\n        & 0.50072e+02_rb,0.37558e+02_rb,0.30053e+02_rb,0.43809e+02_rb,0.58413e+02_rb /)\n      kbo(:, 3,14,16) = (/ &\n        & 0.49384e+02_rb,0.37043e+02_rb,0.28981e+02_rb,0.42162e+02_rb,0.56216e+02_rb /)\n      kbo(:, 4,14,16) = (/ &\n        & 0.48531e+02_rb,0.36404e+02_rb,0.27924e+02_rb,0.40555e+02_rb,0.54074e+02_rb /)\n      kbo(:, 5,14,16) = (/ &\n        & 0.47588e+02_rb,0.35696e+02_rb,0.26896e+02_rb,0.38961e+02_rb,0.51948e+02_rb /)\n      kbo(:, 1,15,16) = (/ &\n        & 0.57280e+02_rb,0.42964e+02_rb,0.34740e+02_rb,0.50323e+02_rb,0.67098e+02_rb /)\n      kbo(:, 2,15,16) = (/ &\n        & 0.56367e+02_rb,0.42280e+02_rb,0.33407e+02_rb,0.48191e+02_rb,0.64255e+02_rb /)\n      kbo(:, 3,15,16) = (/ &\n        & 0.55318e+02_rb,0.41493e+02_rb,0.32092e+02_rb,0.46141e+02_rb,0.61520e+02_rb /)\n      kbo(:, 4,15,16) = (/ &\n        & 0.54108e+02_rb,0.40586e+02_rb,0.30808e+02_rb,0.44198e+02_rb,0.58930e+02_rb /)\n      kbo(:, 5,15,16) = (/ &\n        & 0.52826e+02_rb,0.39625e+02_rb,0.29570e+02_rb,0.42303e+02_rb,0.56404e+02_rb /)\n      kbo(:, 1,16,16) = (/ &\n        & 0.63967e+02_rb,0.47979e+02_rb,0.38312e+02_rb,0.54909e+02_rb,0.73213e+02_rb /)\n      kbo(:, 2,16,16) = (/ &\n        & 0.62626e+02_rb,0.46973e+02_rb,0.36695e+02_rb,0.52345e+02_rb,0.69794e+02_rb /)\n      kbo(:, 3,16,16) = (/ &\n        & 0.61112e+02_rb,0.45838e+02_rb,0.35123e+02_rb,0.49904e+02_rb,0.66539e+02_rb /)\n      kbo(:, 4,16,16) = (/ &\n        & 0.59503e+02_rb,0.44632e+02_rb,0.33592e+02_rb,0.47568e+02_rb,0.63425e+02_rb /)\n      kbo(:, 5,16,16) = (/ &\n        & 0.57855e+02_rb,0.43396e+02_rb,0.32125e+02_rb,0.45372e+02_rb,0.60497e+02_rb /)\n      kbo(:, 1,17,16) = (/ &\n        & 0.70540e+02_rb,0.52908e+02_rb,0.41791e+02_rb,0.59184e+02_rb,0.78912e+02_rb /)\n      kbo(:, 2,17,16) = (/ &\n        & 0.68668e+02_rb,0.51504e+02_rb,0.39850e+02_rb,0.56189e+02_rb,0.74919e+02_rb /)\n      kbo(:, 3,17,16) = (/ &\n        & 0.66662e+02_rb,0.50000e+02_rb,0.37983e+02_rb,0.53339e+02_rb,0.71119e+02_rb /)\n      kbo(:, 4,17,16) = (/ &\n        & 0.64633e+02_rb,0.48479e+02_rb,0.36199e+02_rb,0.50655e+02_rb,0.67541e+02_rb /)\n      kbo(:, 5,17,16) = (/ &\n        & 0.62569e+02_rb,0.46932e+02_rb,0.34500e+02_rb,0.48144e+02_rb,0.64192e+02_rb /)\n      kbo(:, 1,18,16) = (/ &\n        & 0.76762e+02_rb,0.57574e+02_rb,0.45062e+02_rb,0.63079e+02_rb,0.84105e+02_rb /)\n      kbo(:, 2,18,16) = (/ &\n        & 0.74320e+02_rb,0.55743e+02_rb,0.42789e+02_rb,0.59653e+02_rb,0.79537e+02_rb /)\n      kbo(:, 3,18,16) = (/ &\n        & 0.71820e+02_rb,0.53869e+02_rb,0.40630e+02_rb,0.56414e+02_rb,0.75219e+02_rb /)\n      kbo(:, 4,18,16) = (/ &\n        & 0.69367e+02_rb,0.52029e+02_rb,0.38584e+02_rb,0.53391e+02_rb,0.71188e+02_rb /)\n      kbo(:, 5,18,16) = (/ &\n        & 0.66895e+02_rb,0.50176e+02_rb,0.36663e+02_rb,0.50596e+02_rb,0.67461e+02_rb /)\n      kbo(:, 1,19,16) = (/ &\n        & 0.82534e+02_rb,0.61903e+02_rb,0.48066e+02_rb,0.66533e+02_rb,0.88711e+02_rb /)\n      kbo(:, 2,19,16) = (/ &\n        & 0.79500e+02_rb,0.59627e+02_rb,0.45463e+02_rb,0.62698e+02_rb,0.83597e+02_rb /)\n      kbo(:, 3,19,16) = (/ &\n        & 0.76531e+02_rb,0.57402e+02_rb,0.43003e+02_rb,0.59107e+02_rb,0.78810e+02_rb /)\n      kbo(:, 4,19,16) = (/ &\n        & 0.73621e+02_rb,0.55219e+02_rb,0.40714e+02_rb,0.55776e+02_rb,0.74368e+02_rb /)\n      kbo(:, 5,19,16) = (/ &\n        & 0.70758e+02_rb,0.53072e+02_rb,0.38580e+02_rb,0.52720e+02_rb,0.70294e+02_rb /)\n      kbo(:, 1,20,16) = (/ &\n        & 0.87685e+02_rb,0.65766e+02_rb,0.50694e+02_rb,0.69445e+02_rb,0.92594e+02_rb /)\n      kbo(:, 2,20,16) = (/ &\n        & 0.84090e+02_rb,0.63070e+02_rb,0.47778e+02_rb,0.65259e+02_rb,0.87012e+02_rb /)\n      kbo(:, 3,20,16) = (/ &\n        & 0.80661e+02_rb,0.60499e+02_rb,0.45053e+02_rb,0.61350e+02_rb,0.81800e+02_rb /)\n      kbo(:, 4,20,16) = (/ &\n        & 0.77340e+02_rb,0.58008e+02_rb,0.42537e+02_rb,0.57756e+02_rb,0.77009e+02_rb /)\n      kbo(:, 5,20,16) = (/ &\n        & 0.74079e+02_rb,0.55564e+02_rb,0.40201e+02_rb,0.54475e+02_rb,0.72633e+02_rb /)\n      kbo(:, 1,21,16) = (/ &\n        & 0.92165e+02_rb,0.69126e+02_rb,0.52960e+02_rb,0.71872e+02_rb,0.95829e+02_rb /)\n      kbo(:, 2,21,16) = (/ &\n        & 0.88084e+02_rb,0.66065e+02_rb,0.49750e+02_rb,0.67363e+02_rb,0.89818e+02_rb /)\n      kbo(:, 3,21,16) = (/ &\n        & 0.84210e+02_rb,0.63159e+02_rb,0.46796e+02_rb,0.63194e+02_rb,0.84259e+02_rb /)\n      kbo(:, 4,21,16) = (/ &\n        & 0.80508e+02_rb,0.60384e+02_rb,0.44071e+02_rb,0.59388e+02_rb,0.79185e+02_rb /)\n      kbo(:, 5,21,16) = (/ &\n        & 0.76889e+02_rb,0.57670e+02_rb,0.41555e+02_rb,0.55904e+02_rb,0.74538e+02_rb /)\n      kbo(:, 1,22,16) = (/ &\n        & 0.95696e+02_rb,0.71774e+02_rb,0.54631e+02_rb,0.73526e+02_rb,0.98034e+02_rb /)\n      kbo(:, 2,22,16) = (/ &\n        & 0.91190e+02_rb,0.68395e+02_rb,0.51188e+02_rb,0.68768e+02_rb,0.91690e+02_rb /)\n      kbo(:, 3,22,16) = (/ &\n        & 0.86939e+02_rb,0.65206e+02_rb,0.48040e+02_rb,0.64409e+02_rb,0.85879e+02_rb /)\n      kbo(:, 4,22,16) = (/ &\n        & 0.82890e+02_rb,0.62171e+02_rb,0.45151e+02_rb,0.60441e+02_rb,0.80589e+02_rb /)\n      kbo(:, 5,22,16) = (/ &\n        & 0.78983e+02_rb,0.59241e+02_rb,0.42494e+02_rb,0.56811e+02_rb,0.75748e+02_rb /)\n      kbo(:, 1,23,16) = (/ &\n        & 0.98505e+02_rb,0.73881e+02_rb,0.55897e+02_rb,0.74690e+02_rb,0.99587e+02_rb /)\n      kbo(:, 2,23,16) = (/ &\n        & 0.93651e+02_rb,0.70240e+02_rb,0.52277e+02_rb,0.69755e+02_rb,0.93007e+02_rb /)\n      kbo(:, 3,23,16) = (/ &\n        & 0.89065e+02_rb,0.66801e+02_rb,0.48963e+02_rb,0.65256e+02_rb,0.87008e+02_rb /)\n      kbo(:, 4,23,16) = (/ &\n        & 0.84725e+02_rb,0.63546e+02_rb,0.45949e+02_rb,0.61155e+02_rb,0.81540e+02_rb /)\n      kbo(:, 5,23,16) = (/ &\n        & 0.80582e+02_rb,0.60440e+02_rb,0.43182e+02_rb,0.57417e+02_rb,0.76556e+02_rb /)\n      kbo(:, 1,24,16) = (/ &\n        & 0.10064e+03_rb,0.75484e+02_rb,0.56783e+02_rb,0.75422e+02_rb,0.10056e+03_rb /)\n      kbo(:, 2,24,16) = (/ &\n        & 0.95486e+02_rb,0.71616e+02_rb,0.53021e+02_rb,0.70355e+02_rb,0.93807e+02_rb /)\n      kbo(:, 3,24,16) = (/ &\n        & 0.90630e+02_rb,0.67975e+02_rb,0.49592e+02_rb,0.65751e+02_rb,0.87668e+02_rb /)\n      kbo(:, 4,24,16) = (/ &\n        & 0.86059e+02_rb,0.64548e+02_rb,0.46483e+02_rb,0.61565e+02_rb,0.82086e+02_rb /)\n      kbo(:, 5,24,16) = (/ &\n        & 0.81718e+02_rb,0.61292e+02_rb,0.43631e+02_rb,0.57753e+02_rb,0.77003e+02_rb /)\n      kbo(:, 1,25,16) = (/ &\n        & 0.10215e+03_rb,0.76618e+02_rb,0.57324e+02_rb,0.75759e+02_rb,0.10101e+03_rb /)\n      kbo(:, 2,25,16) = (/ &\n        & 0.96743e+02_rb,0.72560e+02_rb,0.53446e+02_rb,0.70607e+02_rb,0.94143e+02_rb /)\n      kbo(:, 3,25,16) = (/ &\n        & 0.91681e+02_rb,0.68763e+02_rb,0.49955e+02_rb,0.65940e+02_rb,0.87921e+02_rb /)\n      kbo(:, 4,25,16) = (/ &\n        & 0.86919e+02_rb,0.65192e+02_rb,0.46773e+02_rb,0.61703e+02_rb,0.82270e+02_rb /)\n      kbo(:, 5,25,16) = (/ &\n        & 0.82440e+02_rb,0.61834e+02_rb,0.43873e+02_rb,0.57842e+02_rb,0.77123e+02_rb /)\n      kbo(:, 1,26,16) = (/ &\n        & 0.10303e+03_rb,0.77274e+02_rb,0.57519e+02_rb,0.75701e+02_rb,0.10093e+03_rb /)\n      kbo(:, 2,26,16) = (/ &\n        & 0.97444e+02_rb,0.73085e+02_rb,0.53575e+02_rb,0.70525e+02_rb,0.94033e+02_rb /)\n      kbo(:, 3,26,16) = (/ &\n        & 0.92222e+02_rb,0.69170e+02_rb,0.50048e+02_rb,0.65828e+02_rb,0.87771e+02_rb /)\n      kbo(:, 4,26,16) = (/ &\n        & 0.87336e+02_rb,0.65505e+02_rb,0.46824e+02_rb,0.61566e+02_rb,0.82088e+02_rb /)\n      kbo(:, 5,26,16) = (/ &\n        & 0.82771e+02_rb,0.62082e+02_rb,0.43909e+02_rb,0.57710e+02_rb,0.76947e+02_rb /)\n      kbo(:, 1,27,16) = (/ &\n        & 0.10345e+03_rb,0.77590e+02_rb,0.57467e+02_rb,0.75392e+02_rb,0.10052e+03_rb /)\n      kbo(:, 2,27,16) = (/ &\n        & 0.97739e+02_rb,0.73306e+02_rb,0.53511e+02_rb,0.70214e+02_rb,0.93619e+02_rb /)\n      kbo(:, 3,27,16) = (/ &\n        & 0.92406e+02_rb,0.69307e+02_rb,0.49956e+02_rb,0.65525e+02_rb,0.87366e+02_rb /)\n      kbo(:, 4,27,16) = (/ &\n        & 0.87439e+02_rb,0.65583e+02_rb,0.46715e+02_rb,0.61255e+02_rb,0.81674e+02_rb /)\n      kbo(:, 5,27,16) = (/ &\n        & 0.82826e+02_rb,0.62123e+02_rb,0.43807e+02_rb,0.57432e+02_rb,0.76576e+02_rb /)\n      kbo(:, 1,28,16) = (/ &\n        & 0.10350e+03_rb,0.77625e+02_rb,0.57222e+02_rb,0.74881e+02_rb,0.99841e+02_rb /)\n      kbo(:, 2,28,16) = (/ &\n        & 0.97691e+02_rb,0.73271e+02_rb,0.53275e+02_rb,0.69730e+02_rb,0.92974e+02_rb /)\n      kbo(:, 3,28,16) = (/ &\n        & 0.92289e+02_rb,0.69219e+02_rb,0.49719e+02_rb,0.65057e+02_rb,0.86743e+02_rb /)\n      kbo(:, 4,28,16) = (/ &\n        & 0.87284e+02_rb,0.65466e+02_rb,0.46485e+02_rb,0.60817e+02_rb,0.81090e+02_rb /)\n      kbo(:, 5,28,16) = (/ &\n        & 0.82640e+02_rb,0.61984e+02_rb,0.43588e+02_rb,0.57042e+02_rb,0.76055e+02_rb /)\n      kbo(:, 1,29,16) = (/ &\n        & 0.10319e+03_rb,0.77394e+02_rb,0.56799e+02_rb,0.74179e+02_rb,0.98906e+02_rb /)\n      kbo(:, 2,29,16) = (/ &\n        & 0.97340e+02_rb,0.73008e+02_rb,0.52885e+02_rb,0.69064e+02_rb,0.92086e+02_rb /)\n      kbo(:, 3,29,16) = (/ &\n        & 0.91909e+02_rb,0.68935e+02_rb,0.49342e+02_rb,0.64439e+02_rb,0.85918e+02_rb /)\n      kbo(:, 4,29,16) = (/ &\n        & 0.86890e+02_rb,0.65171e+02_rb,0.46144e+02_rb,0.60253e+02_rb,0.80337e+02_rb /)\n      kbo(:, 5,29,16) = (/ &\n        & 0.82249e+02_rb,0.61690e+02_rb,0.43266e+02_rb,0.56539e+02_rb,0.75385e+02_rb /)\n      kbo(:, 1,30,16) = (/ &\n        & 0.10264e+03_rb,0.76981e+02_rb,0.56267e+02_rb,0.73352e+02_rb,0.97803e+02_rb /)\n      kbo(:, 2,30,16) = (/ &\n        & 0.96761e+02_rb,0.72573e+02_rb,0.52390e+02_rb,0.68302e+02_rb,0.91070e+02_rb /)\n      kbo(:, 3,30,16) = (/ &\n        & 0.91349e+02_rb,0.68515e+02_rb,0.48877e+02_rb,0.63734e+02_rb,0.84978e+02_rb /)\n      kbo(:, 4,30,16) = (/ &\n        & 0.86346e+02_rb,0.64763e+02_rb,0.45722e+02_rb,0.59615e+02_rb,0.79487e+02_rb /)\n      kbo(:, 5,30,16) = (/ &\n        & 0.81701e+02_rb,0.61280e+02_rb,0.42874e+02_rb,0.55973e+02_rb,0.74631e+02_rb /)\n      kbo(:, 1,31,16) = (/ &\n        & 0.10185e+03_rb,0.76389e+02_rb,0.55624e+02_rb,0.72410e+02_rb,0.96547e+02_rb /)\n      kbo(:, 2,31,16) = (/ &\n        & 0.95999e+02_rb,0.72002e+02_rb,0.51796e+02_rb,0.67443e+02_rb,0.89924e+02_rb /)\n      kbo(:, 3,31,16) = (/ &\n        & 0.90614e+02_rb,0.67963e+02_rb,0.48327e+02_rb,0.62938e+02_rb,0.83917e+02_rb /)\n      kbo(:, 4,31,16) = (/ &\n        & 0.85645e+02_rb,0.64237e+02_rb,0.45228e+02_rb,0.58906e+02_rb,0.78542e+02_rb /)\n      kbo(:, 5,31,16) = (/ &\n        & 0.81007e+02_rb,0.60759e+02_rb,0.42414e+02_rb,0.55328e+02_rb,0.73771e+02_rb /)\n      kbo(:, 1,32,16) = (/ &\n        & 0.10089e+03_rb,0.75672e+02_rb,0.54904e+02_rb,0.71387e+02_rb,0.95183e+02_rb /)\n      kbo(:, 2,32,16) = (/ &\n        & 0.95077e+02_rb,0.71310e+02_rb,0.51129e+02_rb,0.66501e+02_rb,0.88668e+02_rb /)\n      kbo(:, 3,32,16) = (/ &\n        & 0.89743e+02_rb,0.67310e+02_rb,0.47720e+02_rb,0.62089e+02_rb,0.82785e+02_rb /)\n      kbo(:, 4,32,16) = (/ &\n        & 0.84830e+02_rb,0.63626e+02_rb,0.44676e+02_rb,0.58147e+02_rb,0.77529e+02_rb /)\n      kbo(:, 5,32,16) = (/ &\n        & 0.80208e+02_rb,0.60160e+02_rb,0.41909e+02_rb,0.54638e+02_rb,0.72851e+02_rb /)\n      kbo(:, 1,33,16) = (/ &\n        & 0.99806e+02_rb,0.74857e+02_rb,0.54124e+02_rb,0.70307e+02_rb,0.93742e+02_rb /)\n      kbo(:, 2,33,16) = (/ &\n        & 0.94060e+02_rb,0.70548e+02_rb,0.50418e+02_rb,0.65525e+02_rb,0.87366e+02_rb /)\n      kbo(:, 3,33,16) = (/ &\n        & 0.88780e+02_rb,0.66588e+02_rb,0.47080e+02_rb,0.61195e+02_rb,0.81594e+02_rb /)\n      kbo(:, 4,33,16) = (/ &\n        & 0.83926e+02_rb,0.62948e+02_rb,0.44091e+02_rb,0.57369e+02_rb,0.76493e+02_rb /)\n      kbo(:, 5,33,16) = (/ &\n        & 0.79342e+02_rb,0.59511e+02_rb,0.41372e+02_rb,0.53910e+02_rb,0.71880e+02_rb /)\n      kbo(:, 1,34,16) = (/ &\n        & 0.98842e+02_rb,0.74134e+02_rb,0.53446e+02_rb,0.69373e+02_rb,0.92498e+02_rb /)\n      kbo(:, 2,34,16) = (/ &\n        & 0.93169e+02_rb,0.69879e+02_rb,0.49796e+02_rb,0.64672e+02_rb,0.86229e+02_rb /)\n      kbo(:, 3,34,16) = (/ &\n        & 0.87940e+02_rb,0.65958e+02_rb,0.46525e+02_rb,0.60437e+02_rb,0.80583e+02_rb /)\n      kbo(:, 4,34,16) = (/ &\n        & 0.83124e+02_rb,0.62347e+02_rb,0.43581e+02_rb,0.56689e+02_rb,0.75585e+02_rb /)\n      kbo(:, 5,34,16) = (/ &\n        & 0.78566e+02_rb,0.58929e+02_rb,0.40900e+02_rb,0.53287e+02_rb,0.71049e+02_rb /)\n      kbo(:, 1,35,16) = (/ &\n        & 0.98383e+02_rb,0.73790e+02_rb,0.53104e+02_rb,0.68893e+02_rb,0.91857e+02_rb /)\n      kbo(:, 2,35,16) = (/ &\n        & 0.92731e+02_rb,0.69551e+02_rb,0.49484e+02_rb,0.64233e+02_rb,0.85643e+02_rb /)\n      kbo(:, 3,35,16) = (/ &\n        & 0.87537e+02_rb,0.65656e+02_rb,0.46247e+02_rb,0.60050e+02_rb,0.80067e+02_rb /)\n      kbo(:, 4,35,16) = (/ &\n        & 0.82730e+02_rb,0.62051e+02_rb,0.43325e+02_rb,0.56336e+02_rb,0.75115e+02_rb /)\n      kbo(:, 5,35,16) = (/ &\n        & 0.78184e+02_rb,0.58642e+02_rb,0.40664e+02_rb,0.52959e+02_rb,0.70611e+02_rb /)\n      kbo(:, 1,36,16) = (/ &\n        & 0.98510e+02_rb,0.73885e+02_rb,0.53153e+02_rb,0.68921e+02_rb,0.91895e+02_rb /)\n      kbo(:, 2,36,16) = (/ &\n        & 0.92845e+02_rb,0.69637e+02_rb,0.49525e+02_rb,0.64248e+02_rb,0.85664e+02_rb /)\n      kbo(:, 3,36,16) = (/ &\n        & 0.87626e+02_rb,0.65723e+02_rb,0.46281e+02_rb,0.60067e+02_rb,0.80090e+02_rb /)\n      kbo(:, 4,36,16) = (/ &\n        & 0.82805e+02_rb,0.62108e+02_rb,0.43352e+02_rb,0.56351e+02_rb,0.75135e+02_rb /)\n      kbo(:, 5,36,16) = (/ &\n        & 0.78246e+02_rb,0.58689e+02_rb,0.40687e+02_rb,0.52970e+02_rb,0.70627e+02_rb /)\n      kbo(:, 1,37,16) = (/ &\n        & 0.99499e+02_rb,0.74626e+02_rb,0.53765e+02_rb,0.69681e+02_rb,0.92907e+02_rb /)\n      kbo(:, 2,37,16) = (/ &\n        & 0.93737e+02_rb,0.70305e+02_rb,0.50072e+02_rb,0.64938e+02_rb,0.86584e+02_rb /)\n      kbo(:, 3,37,16) = (/ &\n        & 0.88443e+02_rb,0.66336e+02_rb,0.46765e+02_rb,0.60669e+02_rb,0.80892e+02_rb /)\n      kbo(:, 4,37,16) = (/ &\n        & 0.83569e+02_rb,0.62680e+02_rb,0.43792e+02_rb,0.56887e+02_rb,0.75849e+02_rb /)\n      kbo(:, 5,37,16) = (/ &\n        & 0.78959e+02_rb,0.59223e+02_rb,0.41087e+02_rb,0.53464e+02_rb,0.71286e+02_rb /)\n      kbo(:, 1,38,16) = (/ &\n        & 0.10053e+03_rb,0.75401e+02_rb,0.54401e+02_rb,0.70469e+02_rb,0.93958e+02_rb /)\n      kbo(:, 2,38,16) = (/ &\n        & 0.94665e+02_rb,0.71001e+02_rb,0.50643e+02_rb,0.65651e+02_rb,0.87535e+02_rb /)\n      kbo(:, 3,38,16) = (/ &\n        & 0.89287e+02_rb,0.66968e+02_rb,0.47272e+02_rb,0.61298e+02_rb,0.81730e+02_rb /)\n      kbo(:, 4,38,16) = (/ &\n        & 0.84354e+02_rb,0.63269e+02_rb,0.44250e+02_rb,0.57455e+02_rb,0.76607e+02_rb /)\n      kbo(:, 5,38,16) = (/ &\n        & 0.79688e+02_rb,0.59770e+02_rb,0.41502e+02_rb,0.53978e+02_rb,0.71970e+02_rb /)\n      kbo(:, 1,39,16) = (/ &\n        & 0.10152e+03_rb,0.76145e+02_rb,0.55030e+02_rb,0.71266e+02_rb,0.95022e+02_rb /)\n      kbo(:, 2,39,16) = (/ &\n        & 0.95574e+02_rb,0.71683e+02_rb,0.51208e+02_rb,0.66359e+02_rb,0.88479e+02_rb /)\n      kbo(:, 3,39,16) = (/ &\n        & 0.90127e+02_rb,0.67598e+02_rb,0.47776e+02_rb,0.61934e+02_rb,0.82579e+02_rb /)\n      kbo(:, 4,39,16) = (/ &\n        & 0.85122e+02_rb,0.63845e+02_rb,0.44704e+02_rb,0.58015e+02_rb,0.77353e+02_rb /)\n      kbo(:, 5,39,16) = (/ &\n        & 0.80410e+02_rb,0.60311e+02_rb,0.41916e+02_rb,0.54486e+02_rb,0.72649e+02_rb /)\n      kbo(:, 1,40,16) = (/ &\n        & 0.10316e+03_rb,0.77371e+02_rb,0.56077e+02_rb,0.72600e+02_rb,0.96800e+02_rb /)\n      kbo(:, 2,40,16) = (/ &\n        & 0.97060e+02_rb,0.72797e+02_rb,0.52149e+02_rb,0.67558e+02_rb,0.90077e+02_rb /)\n      kbo(:, 3,40,16) = (/ &\n        & 0.91509e+02_rb,0.68635e+02_rb,0.48618e+02_rb,0.63010e+02_rb,0.84013e+02_rb /)\n      kbo(:, 4,40,16) = (/ &\n        & 0.86384e+02_rb,0.64791e+02_rb,0.45460e+02_rb,0.58959e+02_rb,0.78612e+02_rb /)\n      kbo(:, 5,40,16) = (/ &\n        & 0.81600e+02_rb,0.61204e+02_rb,0.42605e+02_rb,0.55349e+02_rb,0.73798e+02_rb /)\n      kbo(:, 1,41,16) = (/ &\n        & 0.10490e+03_rb,0.78677e+02_rb,0.57202e+02_rb,0.74030e+02_rb,0.98707e+02_rb /)\n      kbo(:, 2,41,16) = (/ &\n        & 0.98655e+02_rb,0.73994e+02_rb,0.53155e+02_rb,0.68836e+02_rb,0.91782e+02_rb /)\n      kbo(:, 3,41,16) = (/ &\n        & 0.92964e+02_rb,0.69726e+02_rb,0.49517e+02_rb,0.64156e+02_rb,0.85541e+02_rb /)\n      kbo(:, 4,41,16) = (/ &\n        & 0.87720e+02_rb,0.65793e+02_rb,0.46275e+02_rb,0.59984e+02_rb,0.79978e+02_rb /)\n      kbo(:, 5,41,16) = (/ &\n        & 0.82858e+02_rb,0.62147e+02_rb,0.43340e+02_rb,0.56275e+02_rb,0.75033e+02_rb /)\n      kbo(:, 1,42,16) = (/ &\n        & 0.10666e+03_rb,0.79997e+02_rb,0.58340e+02_rb,0.75485e+02_rb,0.10065e+03_rb /)\n      kbo(:, 2,42,16) = (/ &\n        & 0.10028e+03_rb,0.75211e+02_rb,0.54189e+02_rb,0.70153e+02_rb,0.93537e+02_rb /)\n      kbo(:, 3,42,16) = (/ &\n        & 0.94432e+02_rb,0.70827e+02_rb,0.50443e+02_rb,0.65340e+02_rb,0.87121e+02_rb /)\n      kbo(:, 4,42,16) = (/ &\n        & 0.89075e+02_rb,0.66809e+02_rb,0.47102e+02_rb,0.61032e+02_rb,0.81376e+02_rb /)\n      kbo(:, 5,42,16) = (/ &\n        & 0.84125e+02_rb,0.63097e+02_rb,0.44086e+02_rb,0.57211e+02_rb,0.76281e+02_rb /)\n      kbo(:, 1,43,16) = (/ &\n        & 0.10883e+03_rb,0.81624e+02_rb,0.59771e+02_rb,0.77309e+02_rb,0.10308e+03_rb /)\n      kbo(:, 2,43,16) = (/ &\n        & 0.10228e+03_rb,0.76711e+02_rb,0.55476e+02_rb,0.71797e+02_rb,0.95729e+02_rb /)\n      kbo(:, 3,43,16) = (/ &\n        & 0.96257e+02_rb,0.72196e+02_rb,0.51599e+02_rb,0.66824e+02_rb,0.89098e+02_rb /)\n      kbo(:, 4,43,16) = (/ &\n        & 0.90745e+02_rb,0.68062e+02_rb,0.48126e+02_rb,0.62350e+02_rb,0.83134e+02_rb /)\n      kbo(:, 5,43,16) = (/ &\n        & 0.85682e+02_rb,0.64265e+02_rb,0.45017e+02_rb,0.58380e+02_rb,0.77840e+02_rb /)\n      kbo(:, 1,44,16) = (/ &\n        & 0.11122e+03_rb,0.83416e+02_rb,0.61378e+02_rb,0.79350e+02_rb,0.10580e+03_rb /)\n      kbo(:, 2,44,16) = (/ &\n        & 0.10448e+03_rb,0.78362e+02_rb,0.56905e+02_rb,0.73629e+02_rb,0.98171e+02_rb /)\n      kbo(:, 3,44,16) = (/ &\n        & 0.98280e+02_rb,0.73712e+02_rb,0.52886e+02_rb,0.68474e+02_rb,0.91299e+02_rb /)\n      kbo(:, 4,44,16) = (/ &\n        & 0.92614e+02_rb,0.69464e+02_rb,0.49277e+02_rb,0.63819e+02_rb,0.85092e+02_rb /)\n      kbo(:, 5,44,16) = (/ &\n        & 0.87390e+02_rb,0.65546e+02_rb,0.46054e+02_rb,0.59688e+02_rb,0.79585e+02_rb /)\n      kbo(:, 1,45,16) = (/ &\n        & 0.11367e+03_rb,0.85251e+02_rb,0.63043e+02_rb,0.81458e+02_rb,0.10861e+03_rb /)\n      kbo(:, 2,45,16) = (/ &\n        & 0.10674e+03_rb,0.80056e+02_rb,0.58377e+02_rb,0.75516e+02_rb,0.10069e+03_rb /)\n      kbo(:, 3,45,16) = (/ &\n        & 0.10036e+03_rb,0.75271e+02_rb,0.54217e+02_rb,0.70172e+02_rb,0.93562e+02_rb /)\n      kbo(:, 4,45,16) = (/ &\n        & 0.94507e+02_rb,0.70883e+02_rb,0.50472e+02_rb,0.65352e+02_rb,0.87137e+02_rb /)\n      kbo(:, 5,45,16) = (/ &\n        & 0.89124e+02_rb,0.66846e+02_rb,0.47119e+02_rb,0.61044e+02_rb,0.81393e+02_rb /)\n      kbo(:, 1,46,16) = (/ &\n        & 0.11634e+03_rb,0.87256e+02_rb,0.64886e+02_rb,0.83772e+02_rb,0.11170e+03_rb /)\n      kbo(:, 2,46,16) = (/ &\n        & 0.10921e+03_rb,0.81909e+02_rb,0.60009e+02_rb,0.77600e+02_rb,0.10347e+03_rb /)\n      kbo(:, 3,46,16) = (/ &\n        & 0.10262e+03_rb,0.76969e+02_rb,0.55682e+02_rb,0.72046e+02_rb,0.96062e+02_rb /)\n      kbo(:, 4,46,16) = (/ &\n        & 0.96578e+02_rb,0.72436e+02_rb,0.51790e+02_rb,0.67050e+02_rb,0.89399e+02_rb /)\n      kbo(:, 5,46,16) = (/ &\n        & 0.91036e+02_rb,0.68280e+02_rb,0.48293e+02_rb,0.62556e+02_rb,0.83408e+02_rb /)\n      kbo(:, 1,47,16) = (/ &\n        & 0.11944e+03_rb,0.89580e+02_rb,0.67039e+02_rb,0.86470e+02_rb,0.11529e+03_rb /)\n      kbo(:, 2,47,16) = (/ &\n        & 0.11203e+03_rb,0.84025e+02_rb,0.61916e+02_rb,0.80032e+02_rb,0.10671e+03_rb /)\n      kbo(:, 3,47,16) = (/ &\n        & 0.10523e+03_rb,0.78928e+02_rb,0.57378e+02_rb,0.74229e+02_rb,0.98972e+02_rb /)\n      kbo(:, 4,47,16) = (/ &\n        & 0.98975e+02_rb,0.74234e+02_rb,0.53317e+02_rb,0.69003e+02_rb,0.92005e+02_rb /)\n      kbo(:, 5,47,16) = (/ &\n        & 0.93247e+02_rb,0.69938e+02_rb,0.49666e+02_rb,0.64309e+02_rb,0.85745e+02_rb /)\n      kbo(:, 1,48,16) = (/ &\n        & 0.12267e+03_rb,0.92006e+02_rb,0.69290e+02_rb,0.89280e+02_rb,0.11904e+03_rb /)\n      kbo(:, 2,48,16) = (/ &\n        & 0.11495e+03_rb,0.86215e+02_rb,0.63917e+02_rb,0.82556e+02_rb,0.11008e+03_rb /)\n      kbo(:, 3,48,16) = (/ &\n        & 0.10793e+03_rb,0.80951e+02_rb,0.59146e+02_rb,0.76493e+02_rb,0.10199e+03_rb /)\n      kbo(:, 4,48,16) = (/ &\n        & 0.10147e+03_rb,0.76101e+02_rb,0.54918e+02_rb,0.71050e+02_rb,0.94733e+02_rb /)\n      kbo(:, 5,48,16) = (/ &\n        & 0.95498e+02_rb,0.71626e+02_rb,0.51095e+02_rb,0.66155e+02_rb,0.88207e+02_rb /)\n      kbo(:, 1,49,16) = (/ &\n        & 0.12603e+03_rb,0.94521e+02_rb,0.71680e+02_rb,0.92236e+02_rb,0.12298e+03_rb /)\n      kbo(:, 2,49,16) = (/ &\n        & 0.11801e+03_rb,0.88509e+02_rb,0.66027e+02_rb,0.85192e+02_rb,0.11359e+03_rb /)\n      kbo(:, 3,49,16) = (/ &\n        & 0.11070e+03_rb,0.83029e+02_rb,0.61003e+02_rb,0.78868e+02_rb,0.10516e+03_rb /)\n      kbo(:, 4,49,16) = (/ &\n        & 0.10402e+03_rb,0.78016e+02_rb,0.56578e+02_rb,0.73185e+02_rb,0.97580e+02_rb /)\n      kbo(:, 5,49,16) = (/ &\n        & 0.97847e+02_rb,0.73387e+02_rb,0.52593e+02_rb,0.68075e+02_rb,0.90767e+02_rb /)\n      kbo(:, 1,50,16) = (/ &\n        & 0.12933e+03_rb,0.96996e+02_rb,0.74078e+02_rb,0.95132e+02_rb,0.12684e+03_rb /)\n      kbo(:, 2,50,16) = (/ &\n        & 0.12097e+03_rb,0.90726e+02_rb,0.68085e+02_rb,0.87768e+02_rb,0.11702e+03_rb /)\n      kbo(:, 3,50,16) = (/ &\n        & 0.11343e+03_rb,0.85073e+02_rb,0.62849e+02_rb,0.81185e+02_rb,0.10825e+03_rb /)\n      kbo(:, 4,50,16) = (/ &\n        & 0.10650e+03_rb,0.79879e+02_rb,0.58193e+02_rb,0.75257e+02_rb,0.10034e+03_rb /)\n      kbo(:, 5,50,16) = (/ &\n        & 0.10012e+03_rb,0.75094e+02_rb,0.54050e+02_rb,0.69940e+02_rb,0.93253e+02_rb /)\n      kbo(:, 1,51,16) = (/ &\n        & 0.13262e+03_rb,0.99463e+02_rb,0.76537e+02_rb,0.98089e+02_rb,0.13079e+03_rb /)\n      kbo(:, 2,51,16) = (/ &\n        & 0.12396e+03_rb,0.92972e+02_rb,0.70180e+02_rb,0.90371e+02_rb,0.12049e+03_rb /)\n      kbo(:, 3,51,16) = (/ &\n        & 0.11611e+03_rb,0.87085e+02_rb,0.64700e+02_rb,0.83525e+02_rb,0.11137e+03_rb /)\n      kbo(:, 4,51,16) = (/ &\n        & 0.10897e+03_rb,0.81728e+02_rb,0.59829e+02_rb,0.77356e+02_rb,0.10314e+03_rb /)\n      kbo(:, 5,51,16) = (/ &\n        & 0.10241e+03_rb,0.76807e+02_rb,0.55526e+02_rb,0.71828e+02_rb,0.95771e+02_rb /)\n      kbo(:, 1,52,16) = (/ &\n        & 0.13607e+03_rb,0.10205e+03_rb,0.79117e+02_rb,0.10117e+03_rb,0.13489e+03_rb /)\n      kbo(:, 2,52,16) = (/ &\n        & 0.12703e+03_rb,0.95276e+02_rb,0.72382e+02_rb,0.93082e+02_rb,0.12411e+03_rb /)\n      kbo(:, 3,52,16) = (/ &\n        & 0.11888e+03_rb,0.89162e+02_rb,0.66631e+02_rb,0.85943e+02_rb,0.11459e+03_rb /)\n      kbo(:, 4,52,16) = (/ &\n        & 0.11155e+03_rb,0.83666e+02_rb,0.61557e+02_rb,0.79542e+02_rb,0.10606e+03_rb /)\n      kbo(:, 5,52,16) = (/ &\n        & 0.10475e+03_rb,0.78563e+02_rb,0.57053e+02_rb,0.73794e+02_rb,0.98392e+02_rb /)\n      kbo(:, 1,53,16) = (/ &\n        & 0.13969e+03_rb,0.10477e+03_rb,0.81852e+02_rb,0.10445e+03_rb,0.13926e+03_rb /)\n      kbo(:, 2,53,16) = (/ &\n        & 0.13021e+03_rb,0.97660e+02_rb,0.74731e+02_rb,0.95923e+02_rb,0.12790e+03_rb /)\n      kbo(:, 3,53,16) = (/ &\n        & 0.12178e+03_rb,0.91333e+02_rb,0.68644e+02_rb,0.88461e+02_rb,0.11795e+03_rb /)\n      kbo(:, 4,53,16) = (/ &\n        & 0.11417e+03_rb,0.85628e+02_rb,0.63346e+02_rb,0.81812e+02_rb,0.10908e+03_rb /)\n      kbo(:, 5,53,16) = (/ &\n        & 0.10716e+03_rb,0.80376e+02_rb,0.58630e+02_rb,0.75816e+02_rb,0.10109e+03_rb /)\n      kbo(:, 1,54,16) = (/ &\n        & 0.14312e+03_rb,0.10734e+03_rb,0.84505e+02_rb,0.10757e+03_rb,0.14343e+03_rb /)\n      kbo(:, 2,54,16) = (/ &\n        & 0.13326e+03_rb,0.99943e+02_rb,0.77008e+02_rb,0.98653e+02_rb,0.13154e+03_rb /)\n      kbo(:, 3,54,16) = (/ &\n        & 0.12453e+03_rb,0.93400e+02_rb,0.70583e+02_rb,0.90867e+02_rb,0.12116e+03_rb /)\n      kbo(:, 4,54,16) = (/ &\n        & 0.11663e+03_rb,0.87472e+02_rb,0.65055e+02_rb,0.83971e+02_rb,0.11196e+03_rb /)\n      kbo(:, 5,54,16) = (/ &\n        & 0.10944e+03_rb,0.82085e+02_rb,0.60143e+02_rb,0.77761e+02_rb,0.10368e+03_rb /)\n      kbo(:, 1,55,16) = (/ &\n        & 0.14652e+03_rb,0.10989e+03_rb,0.87185e+02_rb,0.11072e+03_rb,0.14762e+03_rb /)\n      kbo(:, 2,55,16) = (/ &\n        & 0.13631e+03_rb,0.10223e+03_rb,0.79292e+02_rb,0.10139e+03_rb,0.13518e+03_rb /)\n      kbo(:, 3,55,16) = (/ &\n        & 0.12725e+03_rb,0.95436e+02_rb,0.72534e+02_rb,0.93260e+02_rb,0.12435e+03_rb /)\n      kbo(:, 4,55,16) = (/ &\n        & 0.11908e+03_rb,0.89315e+02_rb,0.66761e+02_rb,0.86100e+02_rb,0.11480e+03_rb /)\n      kbo(:, 5,55,16) = (/ &\n        & 0.11172e+03_rb,0.83789e+02_rb,0.61666e+02_rb,0.79683e+02_rb,0.10624e+03_rb /)\n      kbo(:, 1,56,16) = (/ &\n        & 0.15005e+03_rb,0.11254e+03_rb,0.89964e+02_rb,0.11399e+03_rb,0.15199e+03_rb /)\n      kbo(:, 2,56,16) = (/ &\n        & 0.13946e+03_rb,0.10459e+03_rb,0.81673e+02_rb,0.10424e+03_rb,0.13899e+03_rb /)\n      kbo(:, 3,56,16) = (/ &\n        & 0.13002e+03_rb,0.97512e+02_rb,0.74583e+02_rb,0.95730e+02_rb,0.12764e+03_rb /)\n      kbo(:, 4,56,16) = (/ &\n        & 0.12160e+03_rb,0.91205e+02_rb,0.68519e+02_rb,0.88312e+02_rb,0.11775e+03_rb /)\n      kbo(:, 5,56,16) = (/ &\n        & 0.11401e+03_rb,0.85509e+02_rb,0.63233e+02_rb,0.81665e+02_rb,0.10889e+03_rb /)\n      kbo(:, 1,57,16) = (/ &\n        & 0.15367e+03_rb,0.11525e+03_rb,0.92893e+02_rb,0.11745e+03_rb,0.15659e+03_rb /)\n      kbo(:, 2,57,16) = (/ &\n        & 0.14273e+03_rb,0.10705e+03_rb,0.84201e+02_rb,0.10722e+03_rb,0.14296e+03_rb /)\n      kbo(:, 3,57,16) = (/ &\n        & 0.13291e+03_rb,0.99681e+02_rb,0.76750e+02_rb,0.98336e+02_rb,0.13111e+03_rb /)\n      kbo(:, 4,57,16) = (/ &\n        & 0.12423e+03_rb,0.93171e+02_rb,0.70357e+02_rb,0.90589e+02_rb,0.12079e+03_rb /)\n      kbo(:, 5,57,16) = (/ &\n        & 0.11636e+03_rb,0.87269e+02_rb,0.64859e+02_rb,0.83719e+02_rb,0.11162e+03_rb /)\n      kbo(:, 1,58,16) = (/ &\n        & 0.15720e+03_rb,0.11790e+03_rb,0.95809e+02_rb,0.12090e+03_rb,0.16121e+03_rb /)\n      kbo(:, 2,58,16) = (/ &\n        & 0.14594e+03_rb,0.10946e+03_rb,0.86713e+02_rb,0.11017e+03_rb,0.14690e+03_rb /)\n      kbo(:, 3,58,16) = (/ &\n        & 0.13577e+03_rb,0.10183e+03_rb,0.78898e+02_rb,0.10090e+03_rb,0.13454e+03_rb /)\n      kbo(:, 4,58,16) = (/ &\n        & 0.12678e+03_rb,0.95087e+02_rb,0.72188e+02_rb,0.92844e+02_rb,0.12379e+03_rb /)\n      kbo(:, 5,58,16) = (/ &\n        & 0.11865e+03_rb,0.88989e+02_rb,0.66460e+02_rb,0.85728e+02_rb,0.11430e+03_rb /)\n      kbo(:, 1,59,16) = (/ &\n        & 0.15867e+03_rb,0.11900e+03_rb,0.97023e+02_rb,0.12235e+03_rb,0.16313e+03_rb /)\n      kbo(:, 2,59,16) = (/ &\n        & 0.14725e+03_rb,0.11044e+03_rb,0.87747e+02_rb,0.11139e+03_rb,0.14852e+03_rb /)\n      kbo(:, 3,59,16) = (/ &\n        & 0.13696e+03_rb,0.10272e+03_rb,0.79780e+02_rb,0.10196e+03_rb,0.13595e+03_rb /)\n      kbo(:, 4,59,16) = (/ &\n        & 0.12782e+03_rb,0.95865e+02_rb,0.72946e+02_rb,0.93765e+02_rb,0.12502e+03_rb /)\n      kbo(:, 5,59,16) = (/ &\n        & 0.11961e+03_rb,0.89706e+02_rb,0.67116e+02_rb,0.86544e+02_rb,0.11539e+03_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.110008e-06_rb, 0.630912e-06_rb, 0.363159e-05_rb, 0.616892e-05_rb /)\n      forrefo(:, 2) = (/ 0.429709e-05_rb, 0.789174e-05_rb, 0.217416e-04_rb, 0.639393e-04_rb /)\n      forrefo(:, 3) = (/ 0.436283e-04_rb, 0.526247e-04_rb, 0.116341e-03_rb, 0.205616e-03_rb /)\n      forrefo(:, 4) = (/ 0.215627e-03_rb, 0.234522e-03_rb, 0.280497e-03_rb, 0.838668e-03_rb /)\n      forrefo(:, 5) = (/ 0.529283e-03_rb, 0.620848e-03_rb, 0.935561e-03_rb, 0.171252e-02_rb /)\n      forrefo(:, 6) = (/ 0.212267e-02_rb, 0.218564e-02_rb, 0.222227e-02_rb, 0.199650e-02_rb /)\n      forrefo(:, 7) = (/ 0.291120e-02_rb, 0.281168e-02_rb, 0.259543e-02_rb, 0.210159e-02_rb /)\n      forrefo(:, 8) = (/ 0.316249e-02_rb, 0.310695e-02_rb, 0.279501e-02_rb, 0.208076e-02_rb /)\n      forrefo(:, 9) = (/ 0.354993e-02_rb, 0.336989e-02_rb, 0.298930e-02_rb, 0.180424e-02_rb /)\n      forrefo(:,10) = (/ 0.397729e-02_rb, 0.367409e-02_rb, 0.328982e-02_rb, 0.177807e-02_rb /)\n      forrefo(:,11) = (/ 0.408831e-02_rb, 0.398792e-02_rb, 0.352727e-02_rb, 0.192470e-02_rb /)\n      forrefo(:,12) = (/ 0.433926e-02_rb, 0.420667e-02_rb, 0.383894e-02_rb, 0.220836e-02_rb /)\n      forrefo(:,13) = (/ 0.436397e-02_rb, 0.433769e-02_rb, 0.425752e-02_rb, 0.237343e-02_rb /)\n      forrefo(:,14) = (/ 0.440525e-02_rb, 0.449018e-02_rb, 0.451881e-02_rb, 0.269169e-02_rb /)\n      forrefo(:,15) = (/ 0.491350e-02_rb, 0.481760e-02_rb, 0.475799e-02_rb, 0.362666e-02_rb /)\n      forrefo(:,16) = (/ 0.561641e-02_rb, 0.524553e-02_rb, 0.512473e-02_rb, 0.493802e-02_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.115887e-03_rb, 0.926537e-04_rb, 0.740783e-04_rb, 0.592270e-04_rb, 0.473530e-04_rb, &\n        &  0.378596e-04_rb, 0.302694e-04_rb, 0.242010e-04_rb, 0.193491e-04_rb, 0.154700e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.459557e-03_rb, 0.381962e-03_rb, 0.317469e-03_rb, 0.263866e-03_rb, 0.219313e-03_rb, &\n        &  0.182283e-03_rb, 0.151505e-03_rb, 0.125924e-03_rb, 0.104662e-03_rb, 0.869904e-04_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.166821e-02_rb, 0.151103e-02_rb, 0.136866e-02_rb, 0.123970e-02_rb, 0.112290e-02_rb, &\n        &  0.101710e-02_rb, 0.921266e-03_rb, 0.834463e-03_rb, 0.755839e-03_rb, 0.684623e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.460175e-02_rb, 0.421372e-02_rb, 0.385842e-02_rb, 0.353307e-02_rb, 0.323516e-02_rb, &\n        &  0.296236e-02_rb, 0.271257e-02_rb, 0.248385e-02_rb, 0.227440e-02_rb, 0.208262e-02_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.101589e-01_rb, 0.924742e-02_rb, 0.841772e-02_rb, 0.766247e-02_rb, 0.697497e-02_rb, &\n        &  0.634917e-02_rb, 0.577951e-02_rb, 0.526096e-02_rb, 0.478893e-02_rb, 0.435926e-02_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.328043e-01_rb, 0.300853e-01_rb, 0.275917e-01_rb, 0.253048e-01_rb, 0.232075e-01_rb, &\n        &  0.212839e-01_rb, 0.195198e-01_rb, 0.179020e-01_rb, 0.164182e-01_rb, 0.150574e-01_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.405936e-01_rb, 0.376032e-01_rb, 0.348331e-01_rb, 0.322671e-01_rb, 0.298901e-01_rb, &\n        &  0.276883e-01_rb, 0.256486e-01_rb, 0.237591e-01_rb, 0.220089e-01_rb, 0.203876e-01_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.448362e-01_rb, 0.413811e-01_rb, 0.381923e-01_rb, 0.352492e-01_rb, 0.325329e-01_rb, &\n        &  0.300259e-01_rb, 0.277121e-01_rb, 0.255766e-01_rb, 0.236056e-01_rb, 0.217866e-01_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.479741e-01_rb, 0.445389e-01_rb, 0.413497e-01_rb, 0.383889e-01_rb, 0.356400e-01_rb, &\n        &  0.330880e-01_rb, 0.307188e-01_rb, 0.285191e-01_rb, 0.264770e-01_rb, 0.245812e-01_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.519308e-01_rb, 0.484130e-01_rb, 0.451335e-01_rb, 0.420761e-01_rb, 0.392259e-01_rb, &\n        &  0.365687e-01_rb, 0.340916e-01_rb, 0.317822e-01_rb, 0.296293e-01_rb, 0.276222e-01_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.572039e-01_rb, 0.527780e-01_rb, 0.486945e-01_rb, 0.449270e-01_rb, 0.414510e-01_rb, &\n        &  0.382439e-01_rb, 0.352849e-01_rb, 0.325549e-01_rb, 0.300361e-01_rb, 0.277122e-01_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.601046e-01_rb, 0.554411e-01_rb, 0.511395e-01_rb, 0.471716e-01_rb, 0.435116e-01_rb, &\n        &  0.401356e-01_rb, 0.370215e-01_rb, 0.341490e-01_rb, 0.314994e-01_rb, 0.290554e-01_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.616595e-01_rb, 0.567145e-01_rb, 0.521662e-01_rb, 0.479826e-01_rb, 0.441346e-01_rb, &\n        &  0.405951e-01_rb, 0.373395e-01_rb, 0.343450e-01_rb, 0.315906e-01_rb, 0.290571e-01_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.647916e-01_rb, 0.592493e-01_rb, 0.541811e-01_rb, 0.495465e-01_rb, 0.453083e-01_rb, &\n        &  0.414326e-01_rb, 0.378885e-01_rb, 0.346475e-01_rb, 0.316837e-01_rb, 0.289735e-01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.694231e-01_rb, 0.637703e-01_rb, 0.585777e-01_rb, 0.538079e-01_rb, 0.494265e-01_rb, &\n        &  0.454019e-01_rb, 0.417050e-01_rb, 0.383091e-01_rb, 0.351897e-01_rb, 0.323244e-01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.761764e-01_rb, 0.701815e-01_rb, 0.646584e-01_rb, 0.595700e-01_rb, 0.548820e-01_rb, &\n        &  0.505629e-01_rb, 0.465838e-01_rb, 0.429178e-01_rb, 0.395403e-01_rb, 0.364286e-01_rb /)\n     \n      end subroutine sw_kgb21\n\n! **************************************************************************\n      subroutine sw_kgb22\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:, 1) = (/ &\n        & 3.71641_rb    ,3.63190_rb    ,3.44795_rb    ,3.17936_rb    , &\n        & 2.86071_rb    ,2.48490_rb    ,2.02471_rb    ,1.52475_rb    , &\n        & 1.03811_rb    ,0.113272_rb   ,9.37115e-02_rb,7.38969e-02_rb, &\n        & 5.44713e-02_rb,3.45905e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 2) = (/ &\n        & 3.73933_rb    ,3.60360_rb    ,3.43370_rb    ,3.19749_rb    , & \n        & 2.87747_rb    ,2.47926_rb    ,2.02175_rb    ,1.52010_rb    , &\n        & 1.03612_rb    ,0.113265_rb   ,9.37145e-02_rb,7.38951e-02_rb, &\n        & 5.44714e-02_rb,3.45906e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 3) = (/ &\n        & 3.73889_rb    ,3.60279_rb    ,3.43404_rb    ,3.20560_rb    , &\n        & 2.87367_rb    ,2.47515_rb    ,2.02412_rb    ,1.52315_rb    , &\n        & 1.03146_rb    ,0.113272_rb   ,9.36707e-02_rb,7.39080e-02_rb, &\n        & 5.44598e-02_rb,3.45906e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 4) = (/ &\n        & 3.73801_rb    ,3.60530_rb    ,3.43659_rb    ,3.20640_rb    , &\n        & 2.87039_rb    ,2.47330_rb    ,2.02428_rb    ,1.52509_rb    , &\n        & 1.03037_rb    ,0.112553_rb   ,9.35352e-02_rb,7.39675e-02_rb, &\n        & 5.43951e-02_rb,3.45669e-02_rb,1.30292e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 5) = (/ &\n        & 3.73809_rb    ,3.60996_rb    ,3.43602_rb    ,3.20364_rb    , &\n        & 2.87005_rb    ,2.47343_rb    ,2.02353_rb    ,1.52617_rb    , &\n        & 1.03138_rb    ,0.111172_rb   ,9.29885e-02_rb,7.35034e-02_rb, &\n        & 5.42427e-02_rb,3.45732e-02_rb,1.30169e-02_rb,1.84550e-03_rb /)\n      sfluxrefo(:, 6) = (/ &\n        & 3.73872_rb    ,3.62054_rb    ,3.42934_rb    ,3.20110_rb    , &\n        & 2.86886_rb    ,2.47379_rb    ,2.02237_rb    ,1.52754_rb    , & \n        & 1.03228_rb    ,0.111597_rb   ,9.12252e-02_rb,7.33115e-02_rb, &\n        & 5.35600e-02_rb,3.45187e-02_rb,1.30184e-02_rb,1.84551e-03_rb /)\n      sfluxrefo(:, 7) = (/ &\n        & 3.73969_rb    ,3.65461_rb    ,3.40646_rb    ,3.19082_rb    , &\n        & 2.86919_rb    ,2.47289_rb    ,2.02312_rb    ,1.52629_rb    , &\n        & 1.03329_rb    ,0.111611_rb   ,9.16275e-02_rb,7.14731e-02_rb, &\n        & 5.31771e-02_rb,3.44980e-02_rb,1.30190e-02_rb,1.84551e-03_rb /)\n      sfluxrefo(:, 8) = (/ &\n        & 3.73995_rb    ,3.65348_rb    ,3.43707_rb    ,3.16351_rb    , &\n        & 2.87003_rb    ,2.47392_rb    ,2.02114_rb    ,1.52548_rb    , & \n        & 1.03306_rb    ,0.111088_rb   ,9.12422e-02_rb,7.11146e-02_rb, &\n        & 5.31333e-02_rb,3.45302e-02_rb,1.30209e-02_rb,1.84554e-03_rb /)\n      sfluxrefo(:, 9) = (/ &\n        & 3.73788_rb    ,3.65004_rb    ,3.46938_rb    ,3.15236_rb    , &\n        & 2.86381_rb    ,2.47393_rb    ,2.01715_rb    ,1.52134_rb    , &\n        & 1.03163_rb    ,0.111259_rb   ,9.12948e-02_rb,7.09999e-02_rb, &\n        & 5.31792e-02_rb,3.44955e-02_rb,1.30189e-02_rb,1.84551e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 8000 cm-1.\n      rayl = 1.54e-08_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.14658e-08_rb,0.32044e-07_rb,0.36289e-07_rb,0.38717e-07_rb,0.40590e-07_rb, &\n        & 0.43330e-07_rb,0.46916e-07_rb,0.56519e-07_rb,0.42446e-07_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.17883e-08_rb,0.36129e-07_rb,0.40724e-07_rb,0.43498e-07_rb,0.45371e-07_rb, &\n        & 0.47093e-07_rb,0.51195e-07_rb,0.58562e-07_rb,0.44474e-07_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.21286e-08_rb,0.46092e-07_rb,0.53991e-07_rb,0.59439e-07_rb,0.63497e-07_rb, &\n        & 0.66730e-07_rb,0.70296e-07_rb,0.83990e-07_rb,0.65058e-07_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.24816e-08_rb,0.43399e-07_rb,0.49167e-07_rb,0.52969e-07_rb,0.55586e-07_rb, &\n        & 0.57260e-07_rb,0.58809e-07_rb,0.64046e-07_rb,0.48780e-07_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.28409e-08_rb,0.46683e-07_rb,0.53128e-07_rb,0.57526e-07_rb,0.60605e-07_rb, &\n        & 0.62715e-07_rb,0.64284e-07_rb,0.67579e-07_rb,0.52346e-07_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.10965e-08_rb,0.24934e-07_rb,0.28268e-07_rb,0.30156e-07_rb,0.31820e-07_rb, &\n        & 0.34498e-07_rb,0.36563e-07_rb,0.46609e-07_rb,0.30202e-07_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.13538e-08_rb,0.28338e-07_rb,0.31923e-07_rb,0.34048e-07_rb,0.35529e-07_rb, &\n        & 0.37136e-07_rb,0.41583e-07_rb,0.46831e-07_rb,0.32817e-07_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.16260e-08_rb,0.36648e-07_rb,0.42882e-07_rb,0.47128e-07_rb,0.50288e-07_rb, &\n        & 0.52851e-07_rb,0.56093e-07_rb,0.70511e-07_rb,0.48182e-07_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.19102e-08_rb,0.39471e-07_rb,0.46225e-07_rb,0.50974e-07_rb,0.54565e-07_rb, &\n        & 0.57380e-07_rb,0.60079e-07_rb,0.67707e-07_rb,0.50168e-07_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.22030e-08_rb,0.37203e-07_rb,0.42234e-07_rb,0.45622e-07_rb,0.47990e-07_rb, &\n        & 0.49546e-07_rb,0.50777e-07_rb,0.53867e-07_rb,0.39769e-07_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.77844e-09_rb,0.18777e-07_rb,0.21347e-07_rb,0.22946e-07_rb,0.24368e-07_rb, &\n        & 0.25870e-07_rb,0.28084e-07_rb,0.39197e-07_rb,0.20196e-07_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.97891e-09_rb,0.21591e-07_rb,0.24379e-07_rb,0.25974e-07_rb,0.27213e-07_rb, &\n        & 0.29039e-07_rb,0.31487e-07_rb,0.37725e-07_rb,0.23228e-07_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.11949e-08_rb,0.24305e-07_rb,0.27342e-07_rb,0.29177e-07_rb,0.30428e-07_rb, &\n        & 0.31562e-07_rb,0.34299e-07_rb,0.39267e-07_rb,0.23943e-07_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.14225e-08_rb,0.30991e-07_rb,0.36244e-07_rb,0.39880e-07_rb,0.42596e-07_rb, &\n        & 0.44752e-07_rb,0.47132e-07_rb,0.56253e-07_rb,0.37250e-07_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.16586e-08_rb,0.29152e-07_rb,0.32988e-07_rb,0.35508e-07_rb,0.37264e-07_rb, &\n        & 0.38387e-07_rb,0.39417e-07_rb,0.42936e-07_rb,0.29439e-07_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.53935e-09_rb,0.13922e-07_rb,0.15779e-07_rb,0.16979e-07_rb,0.18157e-07_rb, &\n        & 0.19199e-07_rb,0.22168e-07_rb,0.31060e-07_rb,0.13772e-07_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.69404e-09_rb,0.16220e-07_rb,0.18381e-07_rb,0.19646e-07_rb,0.20841e-07_rb, &\n        & 0.22407e-07_rb,0.23846e-07_rb,0.31992e-07_rb,0.15532e-07_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.86327e-09_rb,0.18514e-07_rb,0.20845e-07_rb,0.22209e-07_rb,0.23196e-07_rb, &\n        & 0.24396e-07_rb,0.27026e-07_rb,0.31067e-07_rb,0.17116e-07_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.10436e-08_rb,0.20666e-07_rb,0.23248e-07_rb,0.24835e-07_rb,0.25904e-07_rb, &\n        & 0.26757e-07_rb,0.28384e-07_rb,0.33085e-07_rb,0.19320e-07_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.12327e-08_rb,0.26056e-07_rb,0.30481e-07_rb,0.33580e-07_rb,0.35908e-07_rb, &\n        & 0.37744e-07_rb,0.39586e-07_rb,0.45434e-07_rb,0.29787e-07_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.36905e-09_rb,0.10245e-07_rb,0.11596e-07_rb,0.12576e-07_rb,0.13293e-07_rb, &\n        & 0.14477e-07_rb,0.18355e-07_rb,0.25395e-07_rb,0.95950e-08_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.48708e-09_rb,0.12119e-07_rb,0.13746e-07_rb,0.14791e-07_rb,0.15718e-07_rb, &\n        & 0.16646e-07_rb,0.18396e-07_rb,0.25737e-07_rb,0.10793e-07_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.61847e-09_rb,0.13998e-07_rb,0.15813e-07_rb,0.16851e-07_rb,0.17722e-07_rb, &\n        & 0.19232e-07_rb,0.20414e-07_rb,0.25223e-07_rb,0.12354e-07_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.76052e-09_rb,0.15846e-07_rb,0.17816e-07_rb,0.18991e-07_rb,0.19806e-07_rb, &\n        & 0.20628e-07_rb,0.23016e-07_rb,0.25874e-07_rb,0.14269e-07_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.91109e-09_rb,0.20382e-07_rb,0.23823e-07_rb,0.26180e-07_rb,0.27929e-07_rb, &\n        & 0.29345e-07_rb,0.31039e-07_rb,0.38471e-07_rb,0.22626e-07_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.24637e-09_rb,0.74144e-08_rb,0.83997e-08_rb,0.90789e-08_rb,0.97769e-08_rb, &\n        & 0.11308e-07_rb,0.14223e-07_rb,0.20837e-07_rb,0.66398e-08_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.33527e-09_rb,0.89450e-08_rb,0.10119e-07_rb,0.10892e-07_rb,0.11613e-07_rb, &\n        & 0.12382e-07_rb,0.14900e-07_rb,0.20638e-07_rb,0.76422e-08_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.43587e-09_rb,0.10479e-07_rb,0.11902e-07_rb,0.12737e-07_rb,0.13564e-07_rb, &\n        & 0.14416e-07_rb,0.15545e-07_rb,0.21677e-07_rb,0.89455e-08_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.54672e-09_rb,0.12017e-07_rb,0.13540e-07_rb,0.14423e-07_rb,0.15090e-07_rb, &\n        & 0.16030e-07_rb,0.17496e-07_rb,0.20678e-07_rb,0.10490e-07_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.66579e-09_rb,0.13493e-07_rb,0.15163e-07_rb,0.16178e-07_rb,0.16873e-07_rb, &\n        & 0.17474e-07_rb,0.18852e-07_rb,0.21699e-07_rb,0.12216e-07_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.16149e-09_rb,0.53201e-08_rb,0.60079e-08_rb,0.65349e-08_rb,0.72837e-08_rb, &\n        & 0.90792e-08_rb,0.11028e-07_rb,0.15917e-07_rb,0.45574e-08_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.22765e-09_rb,0.65457e-08_rb,0.74143e-08_rb,0.80126e-08_rb,0.85152e-08_rb, &\n        & 0.94934e-08_rb,0.12210e-07_rb,0.16917e-07_rb,0.54301e-08_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.30418e-09_rb,0.77971e-08_rb,0.88287e-08_rb,0.94927e-08_rb,0.10154e-07_rb, &\n        & 0.10712e-07_rb,0.12099e-07_rb,0.16996e-07_rb,0.64594e-08_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.38990e-09_rb,0.90563e-08_rb,0.10243e-07_rb,0.10928e-07_rb,0.11554e-07_rb, &\n        & 0.12512e-07_rb,0.13254e-07_rb,0.17320e-07_rb,0.76835e-08_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.48334e-09_rb,0.10307e-07_rb,0.11588e-07_rb,0.12345e-07_rb,0.12884e-07_rb, &\n        & 0.13512e-07_rb,0.15051e-07_rb,0.17108e-07_rb,0.90662e-08_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.10442e-09_rb,0.37895e-08_rb,0.42781e-08_rb,0.47285e-08_rb,0.55672e-08_rb, &\n        & 0.67246e-08_rb,0.87615e-08_rb,0.12496e-07_rb,0.31063e-08_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.15294e-09_rb,0.47545e-08_rb,0.53771e-08_rb,0.58176e-08_rb,0.63249e-08_rb, &\n        & 0.74935e-08_rb,0.93024e-08_rb,0.13484e-07_rb,0.38514e-08_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.21056e-09_rb,0.57727e-08_rb,0.65270e-08_rb,0.70416e-08_rb,0.74786e-08_rb, &\n        & 0.80475e-08_rb,0.10012e-07_rb,0.13784e-07_rb,0.46496e-08_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.27636e-09_rb,0.67987e-08_rb,0.77111e-08_rb,0.82983e-08_rb,0.87947e-08_rb, &\n        & 0.93313e-08_rb,0.10204e-07_rb,0.14244e-07_rb,0.56141e-08_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.34924e-09_rb,0.78297e-08_rb,0.88319e-08_rb,0.94055e-08_rb,0.98667e-08_rb, &\n        & 0.10620e-07_rb,0.11396e-07_rb,0.13825e-07_rb,0.67139e-08_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.66385e-10_rb,0.26743e-08_rb,0.30313e-08_rb,0.34595e-08_rb,0.42156e-08_rb, &\n        & 0.50940e-08_rb,0.66728e-08_rb,0.10021e-07_rb,0.20965e-08_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.10109e-09_rb,0.34278e-08_rb,0.38685e-08_rb,0.42217e-08_rb,0.47673e-08_rb, &\n        & 0.59120e-08_rb,0.72992e-08_rb,0.10438e-07_rb,0.27321e-08_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.14405e-09_rb,0.42386e-08_rb,0.48029e-08_rb,0.51840e-08_rb,0.55416e-08_rb, &\n        & 0.62759e-08_rb,0.79851e-08_rb,0.11314e-07_rb,0.33332e-08_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.19414e-09_rb,0.50774e-08_rb,0.57440e-08_rb,0.61764e-08_rb,0.66005e-08_rb, &\n        & 0.69887e-08_rb,0.81552e-08_rb,0.11319e-07_rb,0.40828e-08_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.25056e-09_rb,0.59198e-08_rb,0.67025e-08_rb,0.71627e-08_rb,0.76155e-08_rb, &\n        & 0.81557e-08_rb,0.87035e-08_rb,0.11788e-07_rb,0.49512e-08_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.43147e-10_rb,0.19136e-08_rb,0.21883e-08_rb,0.26153e-08_rb,0.31055e-08_rb, &\n        & 0.39720e-08_rb,0.51107e-08_rb,0.84498e-08_rb,0.15100e-08_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.68069e-10_rb,0.25012e-08_rb,0.28230e-08_rb,0.31278e-08_rb,0.37084e-08_rb, &\n        & 0.44577e-08_rb,0.58316e-08_rb,0.82732e-08_rb,0.20294e-08_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.10013e-09_rb,0.31445e-08_rb,0.35530e-08_rb,0.38466e-08_rb,0.41961e-08_rb, &\n        & 0.50063e-08_rb,0.61960e-08_rb,0.89421e-08_rb,0.24447e-08_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.13837e-09_rb,0.38258e-08_rb,0.43236e-08_rb,0.46732e-08_rb,0.49545e-08_rb, &\n        & 0.53447e-08_rb,0.67172e-08_rb,0.92217e-08_rb,0.30274e-08_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.18212e-09_rb,0.45123e-08_rb,0.51146e-08_rb,0.55026e-08_rb,0.58368e-08_rb, &\n        & 0.61896e-08_rb,0.67974e-08_rb,0.94910e-08_rb,0.36975e-08_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.35238e-10_rb,0.15650e-08_rb,0.17900e-08_rb,0.21398e-08_rb,0.25395e-08_rb, &\n        & 0.32442e-08_rb,0.41684e-08_rb,0.68456e-08_rb,0.12890e-08_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.55588e-10_rb,0.20451e-08_rb,0.23079e-08_rb,0.25570e-08_rb,0.30342e-08_rb, &\n        & 0.36465e-08_rb,0.47717e-08_rb,0.67353e-08_rb,0.16499e-08_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.81825e-10_rb,0.25719e-08_rb,0.29058e-08_rb,0.31458e-08_rb,0.34324e-08_rb, &\n        & 0.40982e-08_rb,0.50669e-08_rb,0.73083e-08_rb,0.20031e-08_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.11311e-09_rb,0.31293e-08_rb,0.35365e-08_rb,0.38229e-08_rb,0.40518e-08_rb, &\n        & 0.43730e-08_rb,0.54993e-08_rb,0.75470e-08_rb,0.24754e-08_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.14891e-09_rb,0.36915e-08_rb,0.41839e-08_rb,0.45010e-08_rb,0.47744e-08_rb, &\n        & 0.50622e-08_rb,0.55621e-08_rb,0.77689e-08_rb,0.30237e-08_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.28851e-10_rb,0.12816e-08_rb,0.14656e-08_rb,0.17508e-08_rb,0.20791e-08_rb, &\n        & 0.26542e-08_rb,0.34061e-08_rb,0.55940e-08_rb,0.10876e-08_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.45511e-10_rb,0.16747e-08_rb,0.18898e-08_rb,0.20935e-08_rb,0.24841e-08_rb, &\n        & 0.29844e-08_rb,0.39040e-08_rb,0.54988e-08_rb,0.13569e-08_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.66972e-10_rb,0.21053e-08_rb,0.23788e-08_rb,0.25750e-08_rb,0.28091e-08_rb, &\n        & 0.33541e-08_rb,0.41474e-08_rb,0.59783e-08_rb,0.16488e-08_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.92606e-10_rb,0.25620e-08_rb,0.28952e-08_rb,0.31304e-08_rb,0.33162e-08_rb, &\n        & 0.35801e-08_rb,0.45003e-08_rb,0.61789e-08_rb,0.20293e-08_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.12192e-09_rb,0.30226e-08_rb,0.34255e-08_rb,0.36843e-08_rb,0.39084e-08_rb, &\n        & 0.41445e-08_rb,0.45524e-08_rb,0.63605e-08_rb,0.24756e-08_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.23621e-10_rb,0.10494e-08_rb,0.11996e-08_rb,0.14331e-08_rb,0.17023e-08_rb, &\n        & 0.21711e-08_rb,0.27844e-08_rb,0.45532e-08_rb,0.89489e-09_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.37261e-10_rb,0.13712e-08_rb,0.15471e-08_rb,0.17138e-08_rb,0.20333e-08_rb, &\n        & 0.24433e-08_rb,0.31958e-08_rb,0.44925e-08_rb,0.11124e-08_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.54831e-10_rb,0.17238e-08_rb,0.19475e-08_rb,0.21082e-08_rb,0.23003e-08_rb, &\n        & 0.27446e-08_rb,0.33959e-08_rb,0.48947e-08_rb,0.13514e-08_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.75799e-10_rb,0.20971e-08_rb,0.23698e-08_rb,0.25624e-08_rb,0.27143e-08_rb, &\n        & 0.29304e-08_rb,0.36822e-08_rb,0.50589e-08_rb,0.16628e-08_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.99820e-10_rb,0.24745e-08_rb,0.28041e-08_rb,0.30159e-08_rb,0.31995e-08_rb, &\n        & 0.33924e-08_rb,0.37279e-08_rb,0.52074e-08_rb,0.20270e-08_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.13785e-07_rb,0.24738e-06_rb,0.32984e-06_rb,0.38970e-06_rb,0.43737e-06_rb, &\n        & 0.50889e-06_rb,0.56985e-06_rb,0.52821e-06_rb,0.22857e-06_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.15768e-07_rb,0.27583e-06_rb,0.36371e-06_rb,0.42333e-06_rb,0.46175e-06_rb, &\n        & 0.50608e-06_rb,0.57108e-06_rb,0.57199e-06_rb,0.21992e-06_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.17740e-07_rb,0.31295e-06_rb,0.41668e-06_rb,0.48111e-06_rb,0.52105e-06_rb, &\n        & 0.56257e-06_rb,0.61638e-06_rb,0.64253e-06_rb,0.25630e-06_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.19676e-07_rb,0.33378e-06_rb,0.43874e-06_rb,0.50021e-06_rb,0.53506e-06_rb, &\n        & 0.56909e-06_rb,0.60800e-06_rb,0.63155e-06_rb,0.24206e-06_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.21537e-07_rb,0.36160e-06_rb,0.47596e-06_rb,0.54056e-06_rb,0.57557e-06_rb, &\n        & 0.60002e-06_rb,0.61606e-06_rb,0.61827e-06_rb,0.25207e-06_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.10621e-07_rb,0.19636e-06_rb,0.26336e-06_rb,0.31062e-06_rb,0.35012e-06_rb, &\n        & 0.41219e-06_rb,0.46827e-06_rb,0.42345e-06_rb,0.16044e-06_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.12238e-07_rb,0.21970e-06_rb,0.28920e-06_rb,0.33755e-06_rb,0.37073e-06_rb, &\n        & 0.41004e-06_rb,0.46315e-06_rb,0.45777e-06_rb,0.15877e-06_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.13863e-07_rb,0.24955e-06_rb,0.33252e-06_rb,0.38359e-06_rb,0.41679e-06_rb, &\n        & 0.45237e-06_rb,0.50277e-06_rb,0.51752e-06_rb,0.18617e-06_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.15467e-07_rb,0.27294e-06_rb,0.36292e-06_rb,0.41560e-06_rb,0.44818e-06_rb, &\n        & 0.47909e-06_rb,0.51811e-06_rb,0.54528e-06_rb,0.19311e-06_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.17013e-07_rb,0.28946e-06_rb,0.38040e-06_rb,0.43177e-06_rb,0.46055e-06_rb, &\n        & 0.48627e-06_rb,0.50036e-06_rb,0.50711e-06_rb,0.19056e-06_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.79041e-08_rb,0.15193e-06_rb,0.20367e-06_rb,0.24255e-06_rb,0.27584e-06_rb, &\n        & 0.33106e-06_rb,0.39018e-06_rb,0.33367e-06_rb,0.10147e-06_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.92256e-08_rb,0.17005e-06_rb,0.22457e-06_rb,0.26442e-06_rb,0.29755e-06_rb, &\n        & 0.33937e-06_rb,0.38659e-06_rb,0.36019e-06_rb,0.10982e-06_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.10548e-07_rb,0.18874e-06_rb,0.24827e-06_rb,0.28648e-06_rb,0.31109e-06_rb, &\n        & 0.33996e-06_rb,0.38319e-06_rb,0.38934e-06_rb,0.11953e-06_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.11869e-07_rb,0.21314e-06_rb,0.28402e-06_rb,0.32565e-06_rb,0.35249e-06_rb, &\n        & 0.38039e-06_rb,0.41637e-06_rb,0.43423e-06_rb,0.13779e-06_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.13170e-07_rb,0.22682e-06_rb,0.29805e-06_rb,0.33849e-06_rb,0.36193e-06_rb, &\n        & 0.38387e-06_rb,0.41078e-06_rb,0.42298e-06_rb,0.13819e-06_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.57872e-08_rb,0.11704e-06_rb,0.15599e-06_rb,0.19092e-06_rb,0.22043e-06_rb, &\n        & 0.26778e-06_rb,0.30128e-06_rb,0.25769e-06_rb,0.68111e-07_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.68505e-08_rb,0.13037e-06_rb,0.17389e-06_rb,0.20556e-06_rb,0.23194e-06_rb, &\n        & 0.27485e-06_rb,0.31447e-06_rb,0.28139e-06_rb,0.78259e-07_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.79353e-08_rb,0.14574e-06_rb,0.19135e-06_rb,0.22328e-06_rb,0.24623e-06_rb, &\n        & 0.27497e-06_rb,0.31125e-06_rb,0.30440e-06_rb,0.85397e-07_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.90207e-08_rb,0.16075e-06_rb,0.21140e-06_rb,0.24210e-06_rb,0.26199e-06_rb, &\n        & 0.28412e-06_rb,0.31832e-06_rb,0.32424e-06_rb,0.93374e-07_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.10099e-07_rb,0.18068e-06_rb,0.24072e-06_rb,0.27515e-06_rb,0.29704e-06_rb, &\n        & 0.31830e-06_rb,0.34575e-06_rb,0.36301e-06_rb,0.10959e-06_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.42071e-08_rb,0.88799e-07_rb,0.11974e-06_rb,0.15503e-06_rb,0.18473e-06_rb, &\n        & 0.21750e-06_rb,0.23111e-06_rb,0.19568e-06_rb,0.47645e-07_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.50589e-08_rb,0.10003e-06_rb,0.13353e-06_rb,0.15994e-06_rb,0.18265e-06_rb, &\n        & 0.22030e-06_rb,0.25851e-06_rb,0.22196e-06_rb,0.56400e-07_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.59363e-08_rb,0.11183e-06_rb,0.14743e-06_rb,0.17446e-06_rb,0.19617e-06_rb, &\n        & 0.22887e-06_rb,0.25813e-06_rb,0.23893e-06_rb,0.62471e-07_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.68265e-08_rb,0.12408e-06_rb,0.16316e-06_rb,0.18879e-06_rb,0.20540e-06_rb, &\n        & 0.22681e-06_rb,0.25640e-06_rb,0.25817e-06_rb,0.69233e-07_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.77164e-08_rb,0.14022e-06_rb,0.18715e-06_rb,0.21470e-06_rb,0.23265e-06_rb, &\n        & 0.25223e-06_rb,0.27783e-06_rb,0.28837e-06_rb,0.82855e-07_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.30108e-08_rb,0.66997e-07_rb,0.92811e-07_rb,0.12074e-06_rb,0.15295e-06_rb, &\n        & 0.17839e-06_rb,0.17246e-06_rb,0.14892e-06_rb,0.33739e-07_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.36900e-08_rb,0.76605e-07_rb,0.10196e-06_rb,0.12672e-06_rb,0.14857e-06_rb, &\n        & 0.17805e-06_rb,0.19825e-06_rb,0.16899e-06_rb,0.40438e-07_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.43974e-08_rb,0.85358e-07_rb,0.11411e-06_rb,0.13507e-06_rb,0.15283e-06_rb, &\n        & 0.18257e-06_rb,0.21172e-06_rb,0.18597e-06_rb,0.46134e-07_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.51213e-08_rb,0.95538e-07_rb,0.12544e-06_rb,0.14691e-06_rb,0.16455e-06_rb, &\n        & 0.18481e-06_rb,0.20979e-06_rb,0.20070e-06_rb,0.51618e-07_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.58500e-08_rb,0.10543e-06_rb,0.13870e-06_rb,0.15918e-06_rb,0.17259e-06_rb, &\n        & 0.18830e-06_rb,0.21165e-06_rb,0.21507e-06_rb,0.58184e-07_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.21343e-08_rb,0.50731e-07_rb,0.73677e-07_rb,0.95876e-07_rb,0.12180e-06_rb, &\n        & 0.14539e-06_rb,0.12792e-06_rb,0.11548e-06_rb,0.24049e-07_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.26695e-08_rb,0.57886e-07_rb,0.78431e-07_rb,0.10179e-06_rb,0.12404e-06_rb, &\n        & 0.14498e-06_rb,0.15075e-06_rb,0.12789e-06_rb,0.28929e-07_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.32350e-08_rb,0.65356e-07_rb,0.87120e-07_rb,0.10537e-06_rb,0.12108e-06_rb, &\n        & 0.14722e-06_rb,0.16980e-06_rb,0.14529e-06_rb,0.34426e-07_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.38202e-08_rb,0.73009e-07_rb,0.96634e-07_rb,0.11454e-06_rb,0.12893e-06_rb, &\n        & 0.15239e-06_rb,0.17280e-06_rb,0.15699e-06_rb,0.38936e-07_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.44151e-08_rb,0.81203e-07_rb,0.10676e-06_rb,0.12425e-06_rb,0.13576e-06_rb, &\n        & 0.15119e-06_rb,0.17122e-06_rb,0.16974e-06_rb,0.43692e-07_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.15010e-08_rb,0.38595e-07_rb,0.58295e-07_rb,0.77729e-07_rb,0.98683e-07_rb, &\n        & 0.10992e-06_rb,0.95145e-07_rb,0.92252e-07_rb,0.17319e-07_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.19201e-08_rb,0.43791e-07_rb,0.61750e-07_rb,0.79921e-07_rb,0.10136e-06_rb, &\n        & 0.11894e-06_rb,0.11276e-06_rb,0.97846e-07_rb,0.20720e-07_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.23693e-08_rb,0.50071e-07_rb,0.66873e-07_rb,0.85063e-07_rb,0.10052e-06_rb, &\n        & 0.11892e-06_rb,0.13009e-06_rb,0.11045e-06_rb,0.25527e-07_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.28395e-08_rb,0.55947e-07_rb,0.74757e-07_rb,0.88934e-07_rb,0.10114e-06_rb, &\n        & 0.12142e-06_rb,0.14341e-06_rb,0.12281e-06_rb,0.28938e-07_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.33227e-08_rb,0.62620e-07_rb,0.82343e-07_rb,0.96807e-07_rb,0.10922e-06_rb, &\n        & 0.12542e-06_rb,0.14247e-06_rb,0.13252e-06_rb,0.32804e-07_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.10437e-08_rb,0.30107e-07_rb,0.47694e-07_rb,0.63218e-07_rb,0.80199e-07_rb, &\n        & 0.81465e-07_rb,0.70748e-07_rb,0.72461e-07_rb,0.12620e-07_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.13691e-08_rb,0.33315e-07_rb,0.48674e-07_rb,0.63756e-07_rb,0.81165e-07_rb, &\n        & 0.96892e-07_rb,0.83814e-07_rb,0.76311e-07_rb,0.14799e-07_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.17229e-08_rb,0.37985e-07_rb,0.51777e-07_rb,0.67272e-07_rb,0.83770e-07_rb, &\n        & 0.97220e-07_rb,0.98951e-07_rb,0.84136e-07_rb,0.18369e-07_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.20990e-08_rb,0.43091e-07_rb,0.57320e-07_rb,0.69933e-07_rb,0.81214e-07_rb, &\n        & 0.98518e-07_rb,0.11188e-06_rb,0.95453e-07_rb,0.21724e-07_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.24895e-08_rb,0.48030e-07_rb,0.63808e-07_rb,0.75595e-07_rb,0.85237e-07_rb, &\n        & 0.10122e-06_rb,0.11598e-06_rb,0.10350e-06_rb,0.24792e-07_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.73565e-09_rb,0.23201e-07_rb,0.38192e-07_rb,0.51890e-07_rb,0.66677e-07_rb, &\n        & 0.60941e-07_rb,0.53794e-07_rb,0.57060e-07_rb,0.95538e-08_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.98838e-09_rb,0.25706e-07_rb,0.38945e-07_rb,0.51950e-07_rb,0.65881e-07_rb, &\n        & 0.73501e-07_rb,0.63459e-07_rb,0.61276e-07_rb,0.10909e-07_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.12675e-08_rb,0.29153e-07_rb,0.41180e-07_rb,0.53354e-07_rb,0.67729e-07_rb, &\n        & 0.79616e-07_rb,0.75117e-07_rb,0.65122e-07_rb,0.13531e-07_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.15675e-08_rb,0.33329e-07_rb,0.44560e-07_rb,0.57066e-07_rb,0.67627e-07_rb, &\n        & 0.79638e-07_rb,0.86678e-07_rb,0.73448e-07_rb,0.16804e-07_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.18817e-08_rb,0.37257e-07_rb,0.49746e-07_rb,0.59306e-07_rb,0.67554e-07_rb, &\n        & 0.81218e-07_rb,0.96337e-07_rb,0.82154e-07_rb,0.18958e-07_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.60140e-09_rb,0.19007e-07_rb,0.31253e-07_rb,0.42433e-07_rb,0.54566e-07_rb, &\n        & 0.50044e-07_rb,0.44177e-07_rb,0.46695e-07_rb,0.77009e-08_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.80782e-09_rb,0.21033e-07_rb,0.31865e-07_rb,0.42505e-07_rb,0.53930e-07_rb, &\n        & 0.60271e-07_rb,0.51969e-07_rb,0.49836e-07_rb,0.88971e-08_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.10365e-08_rb,0.23860e-07_rb,0.33711e-07_rb,0.43668e-07_rb,0.55447e-07_rb, &\n        & 0.65129e-07_rb,0.61514e-07_rb,0.53242e-07_rb,0.11044e-07_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.12819e-08_rb,0.27278e-07_rb,0.36477e-07_rb,0.46671e-07_rb,0.55334e-07_rb, &\n        & 0.65191e-07_rb,0.70955e-07_rb,0.60123e-07_rb,0.13732e-07_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.15394e-08_rb,0.30488e-07_rb,0.40723e-07_rb,0.48551e-07_rb,0.55301e-07_rb, &\n        & 0.66490e-07_rb,0.78877e-07_rb,0.67264e-07_rb,0.15488e-07_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.49234e-09_rb,0.15554e-07_rb,0.25575e-07_rb,0.34616e-07_rb,0.44615e-07_rb, &\n        & 0.41056e-07_rb,0.36097e-07_rb,0.38091e-07_rb,0.62448e-08_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.66141e-09_rb,0.17225e-07_rb,0.26080e-07_rb,0.34787e-07_rb,0.44118e-07_rb, &\n        & 0.49432e-07_rb,0.42531e-07_rb,0.40718e-07_rb,0.72624e-08_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.84839e-09_rb,0.19539e-07_rb,0.27604e-07_rb,0.35754e-07_rb,0.45370e-07_rb, &\n        & 0.53306e-07_rb,0.50418e-07_rb,0.43565e-07_rb,0.90256e-08_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.10495e-08_rb,0.22342e-07_rb,0.29867e-07_rb,0.38196e-07_rb,0.45322e-07_rb, &\n        & 0.53368e-07_rb,0.58112e-07_rb,0.49244e-07_rb,0.11197e-07_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.12604e-08_rb,0.24969e-07_rb,0.33348e-07_rb,0.39742e-07_rb,0.45269e-07_rb, &\n        & 0.54454e-07_rb,0.64580e-07_rb,0.55079e-07_rb,0.12657e-07_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.40306e-09_rb,0.12738e-07_rb,0.20936e-07_rb,0.28312e-07_rb,0.36505e-07_rb, &\n        & 0.33674e-07_rb,0.29525e-07_rb,0.31139e-07_rb,0.51040e-08_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.54151e-09_rb,0.14106e-07_rb,0.21346e-07_rb,0.28471e-07_rb,0.36139e-07_rb, &\n        & 0.40516e-07_rb,0.34830e-07_rb,0.33325e-07_rb,0.59425e-08_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.69468e-09_rb,0.15999e-07_rb,0.22600e-07_rb,0.29268e-07_rb,0.37150e-07_rb, &\n        & 0.43635e-07_rb,0.41297e-07_rb,0.35646e-07_rb,0.73862e-08_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.85913e-09_rb,0.18290e-07_rb,0.24452e-07_rb,0.31282e-07_rb,0.37096e-07_rb, &\n        & 0.43709e-07_rb,0.47585e-07_rb,0.40319e-07_rb,0.91581e-08_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.10319e-08_rb,0.20440e-07_rb,0.27299e-07_rb,0.32532e-07_rb,0.37047e-07_rb, &\n        & 0.44575e-07_rb,0.52880e-07_rb,0.45086e-07_rb,0.10367e-07_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.77542e-07_rb,0.72331e-06_rb,0.98561e-06_rb,0.11860e-05_rb,0.13497e-05_rb, &\n        & 0.13448e-05_rb,0.13214e-05_rb,0.14401e-05_rb,0.51217e-06_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.83965e-07_rb,0.81202e-06_rb,0.11096e-05_rb,0.13150e-05_rb,0.14966e-05_rb, &\n        & 0.14837e-05_rb,0.13715e-05_rb,0.14446e-05_rb,0.53558e-06_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.89893e-07_rb,0.91147e-06_rb,0.12494e-05_rb,0.14817e-05_rb,0.16581e-05_rb, &\n        & 0.16379e-05_rb,0.14913e-05_rb,0.13540e-05_rb,0.57527e-06_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.95336e-07_rb,0.98977e-06_rb,0.13580e-05_rb,0.16044e-05_rb,0.17602e-05_rb, &\n        & 0.17289e-05_rb,0.15601e-05_rb,0.13435e-05_rb,0.60153e-06_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.10024e-06_rb,0.10817e-05_rb,0.14820e-05_rb,0.17354e-05_rb,0.18806e-05_rb, &\n        & 0.18468e-05_rb,0.16817e-05_rb,0.14550e-05_rb,0.63092e-06_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.61222e-07_rb,0.57382e-06_rb,0.78272e-06_rb,0.94950e-06_rb,0.10796e-05_rb, &\n        & 0.10829e-05_rb,0.10794e-05_rb,0.12292e-05_rb,0.35440e-06_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.66652e-07_rb,0.64604e-06_rb,0.88511e-06_rb,0.10523e-05_rb,0.12028e-05_rb, &\n        & 0.11924e-05_rb,0.11103e-05_rb,0.11987e-05_rb,0.38232e-06_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.71672e-07_rb,0.73084e-06_rb,0.10012e-05_rb,0.11880e-05_rb,0.13384e-05_rb, &\n        & 0.13220e-05_rb,0.12030e-05_rb,0.11381e-05_rb,0.43262e-06_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.76301e-07_rb,0.80259e-06_rb,0.11033e-05_rb,0.13071e-05_rb,0.14343e-05_rb, &\n        & 0.14171e-05_rb,0.12785e-05_rb,0.11080e-05_rb,0.46030e-06_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.80500e-07_rb,0.87105e-06_rb,0.11939e-05_rb,0.14005e-05_rb,0.15153e-05_rb, &\n        & 0.14864e-05_rb,0.13529e-05_rb,0.11688e-05_rb,0.48117e-06_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.47304e-07_rb,0.44051e-06_rb,0.60584e-06_rb,0.74769e-06_rb,0.84468e-06_rb, &\n        & 0.85077e-06_rb,0.85665e-06_rb,0.10494e-05_rb,0.24668e-06_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.51943e-07_rb,0.50181e-06_rb,0.68762e-06_rb,0.82034e-06_rb,0.93657e-06_rb, &\n        & 0.92789e-06_rb,0.88766e-06_rb,0.99297e-06_rb,0.26836e-06_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.56252e-07_rb,0.56363e-06_rb,0.77259e-06_rb,0.91469e-06_rb,0.10403e-05_rb, &\n        & 0.10243e-05_rb,0.93713e-06_rb,0.99098e-06_rb,0.29882e-06_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.60224e-07_rb,0.63130e-06_rb,0.86724e-06_rb,0.10288e-05_rb,0.11344e-05_rb, &\n        & 0.11222e-05_rb,0.10162e-05_rb,0.91320e-06_rb,0.33854e-06_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.63868e-07_rb,0.68673e-06_rb,0.94084e-06_rb,0.11069e-05_rb,0.12001e-05_rb, &\n        & 0.11819e-05_rb,0.10625e-05_rb,0.91639e-06_rb,0.36042e-06_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.36151e-07_rb,0.33292e-06_rb,0.46957e-06_rb,0.57176e-06_rb,0.64965e-06_rb, &\n        & 0.66578e-06_rb,0.71030e-06_rb,0.90686e-06_rb,0.17407e-06_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.40107e-07_rb,0.38424e-06_rb,0.52571e-06_rb,0.63554e-06_rb,0.72553e-06_rb, &\n        & 0.72856e-06_rb,0.72697e-06_rb,0.84339e-06_rb,0.19253e-06_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.43816e-07_rb,0.43401e-06_rb,0.59546e-06_rb,0.70644e-06_rb,0.80752e-06_rb, &\n        & 0.79519e-06_rb,0.74520e-06_rb,0.81506e-06_rb,0.21830e-06_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.47242e-07_rb,0.48695e-06_rb,0.66577e-06_rb,0.78531e-06_rb,0.87970e-06_rb, &\n        & 0.86799e-06_rb,0.78705e-06_rb,0.76812e-06_rb,0.24161e-06_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.50394e-07_rb,0.54183e-06_rb,0.74240e-06_rb,0.87572e-06_rb,0.95669e-06_rb, &\n        & 0.94640e-06_rb,0.85379e-06_rb,0.74722e-06_rb,0.28102e-06_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.27462e-07_rb,0.25134e-06_rb,0.35698e-06_rb,0.43146e-06_rb,0.48552e-06_rb, &\n        & 0.53177e-06_rb,0.62976e-06_rb,0.75904e-06_rb,0.12452e-06_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.30835e-07_rb,0.29261e-06_rb,0.40164e-06_rb,0.49701e-06_rb,0.56250e-06_rb, &\n        & 0.56722e-06_rb,0.57761e-06_rb,0.72004e-06_rb,0.13996e-06_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.33997e-07_rb,0.33394e-06_rb,0.45684e-06_rb,0.54380e-06_rb,0.62140e-06_rb, &\n        & 0.61241e-06_rb,0.60037e-06_rb,0.67265e-06_rb,0.16106e-06_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.36946e-07_rb,0.37590e-06_rb,0.51390e-06_rb,0.60628e-06_rb,0.69027e-06_rb, &\n        & 0.67692e-06_rb,0.62237e-06_rb,0.67035e-06_rb,0.18128e-06_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.39670e-07_rb,0.42211e-06_rb,0.57710e-06_rb,0.68190e-06_rb,0.75209e-06_rb, &\n        & 0.74450e-06_rb,0.67496e-06_rb,0.61709e-06_rb,0.21416e-06_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.20602e-07_rb,0.18703e-06_rb,0.26972e-06_rb,0.33456e-06_rb,0.36532e-06_rb, &\n        & 0.42767e-06_rb,0.56721e-06_rb,0.66482e-06_rb,0.87936e-07_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.23484e-07_rb,0.21971e-06_rb,0.30953e-06_rb,0.37643e-06_rb,0.42627e-06_rb, &\n        & 0.44517e-06_rb,0.48560e-06_rb,0.61604e-06_rb,0.10185e-06_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.26181e-07_rb,0.25382e-06_rb,0.34607e-06_rb,0.41971e-06_rb,0.47851e-06_rb, &\n        & 0.48129e-06_rb,0.48156e-06_rb,0.56916e-06_rb,0.11864e-06_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.28705e-07_rb,0.28735e-06_rb,0.39181e-06_rb,0.46499e-06_rb,0.52971e-06_rb, &\n        & 0.52262e-06_rb,0.49397e-06_rb,0.54792e-06_rb,0.13605e-06_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.31065e-07_rb,0.32265e-06_rb,0.43948e-06_rb,0.51712e-06_rb,0.58131e-06_rb, &\n        & 0.57275e-06_rb,0.52154e-06_rb,0.53300e-06_rb,0.15326e-06_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.15315e-07_rb,0.13867e-06_rb,0.20497e-06_rb,0.25791e-06_rb,0.28251e-06_rb, &\n        & 0.36209e-06_rb,0.48615e-06_rb,0.57617e-06_rb,0.62083e-07_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.17770e-07_rb,0.16467e-06_rb,0.23430e-06_rb,0.28445e-06_rb,0.31749e-06_rb, &\n        & 0.35373e-06_rb,0.43530e-06_rb,0.51750e-06_rb,0.74598e-07_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.20071e-07_rb,0.19194e-06_rb,0.26349e-06_rb,0.32575e-06_rb,0.37090e-06_rb, &\n        & 0.37391e-06_rb,0.38838e-06_rb,0.49613e-06_rb,0.88392e-07_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.22230e-07_rb,0.21953e-06_rb,0.29840e-06_rb,0.35680e-06_rb,0.40841e-06_rb, &\n        & 0.40516e-06_rb,0.40513e-06_rb,0.45518e-06_rb,0.10149e-06_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.24244e-07_rb,0.24730e-06_rb,0.33583e-06_rb,0.39740e-06_rb,0.45364e-06_rb, &\n        & 0.44496e-06_rb,0.41471e-06_rb,0.45022e-06_rb,0.11554e-06_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.11318e-07_rb,0.10309e-06_rb,0.15679e-06_rb,0.19765e-06_rb,0.22300e-06_rb, &\n        & 0.30242e-06_rb,0.40824e-06_rb,0.49442e-06_rb,0.44061e-07_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.13358e-07_rb,0.12273e-06_rb,0.17705e-06_rb,0.22062e-06_rb,0.24115e-06_rb, &\n        & 0.28999e-06_rb,0.39012e-06_rb,0.45451e-06_rb,0.54847e-07_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.15323e-07_rb,0.14448e-06_rb,0.20316e-06_rb,0.24566e-06_rb,0.27787e-06_rb, &\n        & 0.29655e-06_rb,0.33237e-06_rb,0.41480e-06_rb,0.64157e-07_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.17158e-07_rb,0.16673e-06_rb,0.22673e-06_rb,0.27760e-06_rb,0.31491e-06_rb, &\n        & 0.31778e-06_rb,0.31818e-06_rb,0.38422e-06_rb,0.75698e-07_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.18880e-07_rb,0.18905e-06_rb,0.25711e-06_rb,0.30558e-06_rb,0.34820e-06_rb, &\n        & 0.34226e-06_rb,0.32757e-06_rb,0.36903e-06_rb,0.87559e-07_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.83060e-08_rb,0.76710e-07_rb,0.11565e-06_rb,0.14764e-06_rb,0.17329e-06_rb, &\n        & 0.25783e-06_rb,0.35957e-06_rb,0.41243e-06_rb,0.31797e-07_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.99651e-08_rb,0.91242e-07_rb,0.13632e-06_rb,0.17065e-06_rb,0.18967e-06_rb, &\n        & 0.24393e-06_rb,0.32914e-06_rb,0.39160e-06_rb,0.39225e-07_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.11621e-07_rb,0.10845e-06_rb,0.15426e-06_rb,0.18813e-06_rb,0.20803e-06_rb, &\n        & 0.23565e-06_rb,0.29600e-06_rb,0.35083e-06_rb,0.47417e-07_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.13182e-07_rb,0.12617e-06_rb,0.17363e-06_rb,0.21434e-06_rb,0.24338e-06_rb, &\n        & 0.24767e-06_rb,0.26174e-06_rb,0.33967e-06_rb,0.56851e-07_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.14647e-07_rb,0.14462e-06_rb,0.19609e-06_rb,0.23554e-06_rb,0.26966e-06_rb, &\n        & 0.27000e-06_rb,0.26860e-06_rb,0.30941e-06_rb,0.65848e-07_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.61513e-08_rb,0.59201e-07_rb,0.89564e-07_rb,0.11096e-06_rb,0.13963e-06_rb, &\n        & 0.22868e-06_rb,0.30519e-06_rb,0.34949e-06_rb,0.23910e-07_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.74969e-08_rb,0.68921e-07_rb,0.10513e-06_rb,0.13256e-06_rb,0.14959e-06_rb, &\n        & 0.20339e-06_rb,0.27500e-06_rb,0.33281e-06_rb,0.28611e-07_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.88625e-08_rb,0.82016e-07_rb,0.11818e-06_rb,0.14725e-06_rb,0.16097e-06_rb, &\n        & 0.19608e-06_rb,0.26185e-06_rb,0.30530e-06_rb,0.35935e-07_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.10184e-07_rb,0.96432e-07_rb,0.13542e-06_rb,0.16348e-06_rb,0.18477e-06_rb, &\n        & 0.19886e-06_rb,0.22449e-06_rb,0.27787e-06_rb,0.42133e-07_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.11421e-07_rb,0.11117e-06_rb,0.15107e-06_rb,0.18528e-06_rb,0.21005e-06_rb, &\n        & 0.21209e-06_rb,0.21257e-06_rb,0.25796e-06_rb,0.49988e-07_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.50310e-08_rb,0.48563e-07_rb,0.73473e-07_rb,0.91094e-07_rb,0.11455e-06_rb, &\n        & 0.18734e-06_rb,0.24995e-06_rb,0.28620e-06_rb,0.19440e-07_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.61304e-08_rb,0.56532e-07_rb,0.86340e-07_rb,0.10878e-06_rb,0.12244e-06_rb, &\n        & 0.16646e-06_rb,0.22541e-06_rb,0.27316e-06_rb,0.23338e-07_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.72491e-08_rb,0.67226e-07_rb,0.96798e-07_rb,0.12061e-06_rb,0.13181e-06_rb, &\n        & 0.16043e-06_rb,0.21436e-06_rb,0.24928e-06_rb,0.29352e-07_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.83326e-08_rb,0.78998e-07_rb,0.11085e-06_rb,0.13391e-06_rb,0.15135e-06_rb, &\n        & 0.16281e-06_rb,0.18360e-06_rb,0.22741e-06_rb,0.34425e-07_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.93458e-08_rb,0.91055e-07_rb,0.12364e-06_rb,0.15181e-06_rb,0.17196e-06_rb, &\n        & 0.17367e-06_rb,0.17400e-06_rb,0.21108e-06_rb,0.40855e-07_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.41189e-08_rb,0.39856e-07_rb,0.60140e-07_rb,0.74963e-07_rb,0.94012e-07_rb, &\n        & 0.15333e-06_rb,0.20441e-06_rb,0.23474e-06_rb,0.15853e-07_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.50193e-08_rb,0.46348e-07_rb,0.70855e-07_rb,0.89301e-07_rb,0.10040e-06_rb, &\n        & 0.13626e-06_rb,0.18429e-06_rb,0.22399e-06_rb,0.19078e-07_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.59344e-08_rb,0.55100e-07_rb,0.79255e-07_rb,0.98783e-07_rb,0.10799e-06_rb, &\n        & 0.13125e-06_rb,0.17544e-06_rb,0.20357e-06_rb,0.24013e-07_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.68228e-08_rb,0.64743e-07_rb,0.90843e-07_rb,0.10971e-06_rb,0.12396e-06_rb, &\n        & 0.13321e-06_rb,0.15026e-06_rb,0.18611e-06_rb,0.28198e-07_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.76512e-08_rb,0.74591e-07_rb,0.10123e-06_rb,0.12433e-06_rb,0.14085e-06_rb, &\n        & 0.14222e-06_rb,0.14246e-06_rb,0.17276e-06_rb,0.33441e-07_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.33724e-08_rb,0.32680e-07_rb,0.49222e-07_rb,0.61513e-07_rb,0.77133e-07_rb, &\n        & 0.12555e-06_rb,0.16713e-06_rb,0.19233e-06_rb,0.12966e-07_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.41100e-08_rb,0.37987e-07_rb,0.58121e-07_rb,0.73233e-07_rb,0.82218e-07_rb, &\n        & 0.11156e-06_rb,0.15077e-06_rb,0.18269e-06_rb,0.15614e-07_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.48589e-08_rb,0.45157e-07_rb,0.64912e-07_rb,0.80902e-07_rb,0.88466e-07_rb, &\n        & 0.10747e-06_rb,0.14360e-06_rb,0.16616e-06_rb,0.19653e-07_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.55845e-08_rb,0.53032e-07_rb,0.74357e-07_rb,0.89835e-07_rb,0.10150e-06_rb, &\n        & 0.10902e-06_rb,0.12309e-06_rb,0.15231e-06_rb,0.23083e-07_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.62642e-08_rb,0.61086e-07_rb,0.82886e-07_rb,0.10172e-06_rb,0.11529e-06_rb, &\n        & 0.11645e-06_rb,0.11667e-06_rb,0.14140e-06_rb,0.27368e-07_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.38523e-06_rb,0.18405e-05_rb,0.24561e-05_rb,0.26688e-05_rb,0.26627e-05_rb, &\n        & 0.26678e-05_rb,0.26221e-05_rb,0.23434e-05_rb,0.10243e-05_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.41258e-06_rb,0.20340e-05_rb,0.26799e-05_rb,0.29289e-05_rb,0.29138e-05_rb, &\n        & 0.29293e-05_rb,0.29106e-05_rb,0.25138e-05_rb,0.11179e-05_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.43826e-06_rb,0.22391e-05_rb,0.29055e-05_rb,0.31733e-05_rb,0.31848e-05_rb, &\n        & 0.32210e-05_rb,0.31726e-05_rb,0.29277e-05_rb,0.13122e-05_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.46214e-06_rb,0.24098e-05_rb,0.30735e-05_rb,0.33543e-05_rb,0.34157e-05_rb, &\n        & 0.34436e-05_rb,0.34008e-05_rb,0.32157e-05_rb,0.14111e-05_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.48360e-06_rb,0.25684e-05_rb,0.32470e-05_rb,0.35527e-05_rb,0.36650e-05_rb, &\n        & 0.37054e-05_rb,0.36463e-05_rb,0.35130e-05_rb,0.16128e-05_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.30632e-06_rb,0.14811e-05_rb,0.19813e-05_rb,0.21525e-05_rb,0.21480e-05_rb, &\n        & 0.21651e-05_rb,0.21352e-05_rb,0.19097e-05_rb,0.76078e-06_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.32924e-06_rb,0.16454e-05_rb,0.21736e-05_rb,0.23701e-05_rb,0.23496e-05_rb, &\n        & 0.23721e-05_rb,0.23664e-05_rb,0.20501e-05_rb,0.85884e-06_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.35084e-06_rb,0.18164e-05_rb,0.23625e-05_rb,0.25754e-05_rb,0.25799e-05_rb, &\n        & 0.26089e-05_rb,0.25758e-05_rb,0.23569e-05_rb,0.98156e-06_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.37092e-06_rb,0.19724e-05_rb,0.25182e-05_rb,0.27461e-05_rb,0.27987e-05_rb, &\n        & 0.28122e-05_rb,0.27766e-05_rb,0.26535e-05_rb,0.11297e-05_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.38936e-06_rb,0.20952e-05_rb,0.26519e-05_rb,0.29005e-05_rb,0.29889e-05_rb, &\n        & 0.30120e-05_rb,0.29564e-05_rb,0.28641e-05_rb,0.12488e-05_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.23924e-06_rb,0.11590e-05_rb,0.15536e-05_rb,0.16834e-05_rb,0.16891e-05_rb, &\n        & 0.17668e-05_rb,0.16904e-05_rb,0.15951e-05_rb,0.52632e-06_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.25864e-06_rb,0.12971e-05_rb,0.17221e-05_rb,0.18731e-05_rb,0.18563e-05_rb, &\n        & 0.18804e-05_rb,0.18628e-05_rb,0.16576e-05_rb,0.62738e-06_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.27696e-06_rb,0.14325e-05_rb,0.18710e-05_rb,0.20345e-05_rb,0.20276e-05_rb, &\n        & 0.20548e-05_rb,0.20259e-05_rb,0.17837e-05_rb,0.70461e-06_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.29413e-06_rb,0.15757e-05_rb,0.20191e-05_rb,0.22050e-05_rb,0.22319e-05_rb, &\n        & 0.22354e-05_rb,0.22195e-05_rb,0.20885e-05_rb,0.84521e-06_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.31013e-06_rb,0.16829e-05_rb,0.21333e-05_rb,0.23274e-05_rb,0.23871e-05_rb, &\n        & 0.23939e-05_rb,0.23475e-05_rb,0.22805e-05_rb,0.93762e-06_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.18537e-06_rb,0.89469e-06_rb,0.11953e-05_rb,0.13099e-05_rb,0.13271e-05_rb, &\n        & 0.13910e-05_rb,0.13233e-05_rb,0.12842e-05_rb,0.37595e-06_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.20178e-06_rb,0.10096e-05_rb,0.13476e-05_rb,0.14636e-05_rb,0.14567e-05_rb, &\n        & 0.14730e-05_rb,0.14642e-05_rb,0.13131e-05_rb,0.45273e-06_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.21732e-06_rb,0.11251e-05_rb,0.14779e-05_rb,0.16107e-05_rb,0.15945e-05_rb, &\n        & 0.16194e-05_rb,0.16016e-05_rb,0.14026e-05_rb,0.52023e-06_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.23198e-06_rb,0.12348e-05_rb,0.15955e-05_rb,0.17391e-05_rb,0.17432e-05_rb, &\n        & 0.17515e-05_rb,0.17226e-05_rb,0.15707e-05_rb,0.60921e-06_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.24566e-06_rb,0.13471e-05_rb,0.17138e-05_rb,0.18677e-05_rb,0.19071e-05_rb, &\n        & 0.19021e-05_rb,0.18647e-05_rb,0.18054e-05_rb,0.72437e-06_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.14315e-06_rb,0.68654e-06_rb,0.91703e-06_rb,0.10136e-05_rb,0.10640e-05_rb, &\n        & 0.10899e-05_rb,0.10066e-05_rb,0.10387e-05_rb,0.27115e-06_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.15693e-06_rb,0.78124e-06_rb,0.10460e-05_rb,0.11319e-05_rb,0.11350e-05_rb, &\n        & 0.11836e-05_rb,0.11463e-05_rb,0.10954e-05_rb,0.33462e-06_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.17013e-06_rb,0.87619e-06_rb,0.11607e-05_rb,0.12633e-05_rb,0.12502e-05_rb, &\n        & 0.12683e-05_rb,0.12476e-05_rb,0.11184e-05_rb,0.38421e-06_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.18255e-06_rb,0.96990e-06_rb,0.12617e-05_rb,0.13726e-05_rb,0.13641e-05_rb, &\n        & 0.13787e-05_rb,0.13521e-05_rb,0.11952e-05_rb,0.45446e-06_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.19427e-06_rb,0.10668e-05_rb,0.13642e-05_rb,0.14869e-05_rb,0.15021e-05_rb, &\n        & 0.14945e-05_rb,0.14801e-05_rb,0.13920e-05_rb,0.54371e-06_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.10978e-06_rb,0.52395e-06_rb,0.69476e-06_rb,0.76850e-06_rb,0.83675e-06_rb, &\n        & 0.86491e-06_rb,0.77625e-06_rb,0.85871e-06_rb,0.19533e-06_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.12132e-06_rb,0.59825e-06_rb,0.79672e-06_rb,0.87685e-06_rb,0.88945e-06_rb, &\n        & 0.93176e-06_rb,0.88241e-06_rb,0.87959e-06_rb,0.24185e-06_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.13245e-06_rb,0.67730e-06_rb,0.90458e-06_rb,0.97978e-06_rb,0.97457e-06_rb, &\n        & 0.98659e-06_rb,0.98199e-06_rb,0.88654e-06_rb,0.28188e-06_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.14304e-06_rb,0.75520e-06_rb,0.99285e-06_rb,0.10803e-05_rb,0.10647e-05_rb, &\n        & 0.10764e-05_rb,0.10623e-05_rb,0.93315e-06_rb,0.33738e-06_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.15298e-06_rb,0.83133e-06_rb,0.10714e-05_rb,0.11654e-05_rb,0.11612e-05_rb, &\n        & 0.11628e-05_rb,0.11409e-05_rb,0.10211e-05_rb,0.39343e-06_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.83795e-07_rb,0.39583e-06_rb,0.52221e-06_rb,0.57623e-06_rb,0.66801e-06_rb, &\n        & 0.68350e-06_rb,0.61427e-06_rb,0.74508e-06_rb,0.14027e-06_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.93456e-07_rb,0.45651e-06_rb,0.60707e-06_rb,0.67267e-06_rb,0.70886e-06_rb, &\n        & 0.72875e-06_rb,0.66655e-06_rb,0.70837e-06_rb,0.17333e-06_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.10278e-06_rb,0.52065e-06_rb,0.69548e-06_rb,0.75346e-06_rb,0.75243e-06_rb, &\n        & 0.79752e-06_rb,0.76130e-06_rb,0.73768e-06_rb,0.20746e-06_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.11172e-06_rb,0.58539e-06_rb,0.77614e-06_rb,0.84147e-06_rb,0.82956e-06_rb, &\n        & 0.83892e-06_rb,0.81830e-06_rb,0.74649e-06_rb,0.24711e-06_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.12020e-06_rb,0.64890e-06_rb,0.84430e-06_rb,0.91375e-06_rb,0.90365e-06_rb, &\n        & 0.91211e-06_rb,0.89073e-06_rb,0.78796e-06_rb,0.29290e-06_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.63771e-07_rb,0.29724e-06_rb,0.38901e-06_rb,0.42952e-06_rb,0.53569e-06_rb, &\n        & 0.52739e-06_rb,0.51421e-06_rb,0.65416e-06_rb,0.10106e-06_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.71835e-07_rb,0.34855e-06_rb,0.45895e-06_rb,0.50927e-06_rb,0.55878e-06_rb, &\n        & 0.57413e-06_rb,0.51386e-06_rb,0.58703e-06_rb,0.12396e-06_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.79626e-07_rb,0.39836e-06_rb,0.52930e-06_rb,0.58238e-06_rb,0.59321e-06_rb, &\n        & 0.61917e-06_rb,0.58275e-06_rb,0.59574e-06_rb,0.15556e-06_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.87141e-07_rb,0.45236e-06_rb,0.60287e-06_rb,0.64978e-06_rb,0.64621e-06_rb, &\n        & 0.65548e-06_rb,0.65037e-06_rb,0.59243e-06_rb,0.18170e-06_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.94308e-07_rb,0.50478e-06_rb,0.66216e-06_rb,0.71791e-06_rb,0.70542e-06_rb, &\n        & 0.71265e-06_rb,0.70440e-06_rb,0.61750e-06_rb,0.21806e-06_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.48334e-07_rb,0.22150e-06_rb,0.29066e-06_rb,0.32650e-06_rb,0.41774e-06_rb, &\n        & 0.40737e-06_rb,0.44502e-06_rb,0.56524e-06_rb,0.72879e-07_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.54994e-07_rb,0.26340e-06_rb,0.34441e-06_rb,0.38160e-06_rb,0.44410e-06_rb, &\n        & 0.45746e-06_rb,0.41390e-06_rb,0.50482e-06_rb,0.89924e-07_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.61501e-07_rb,0.30416e-06_rb,0.40299e-06_rb,0.44693e-06_rb,0.47253e-06_rb, &\n        & 0.48623e-06_rb,0.44624e-06_rb,0.47646e-06_rb,0.11220e-06_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.67792e-07_rb,0.34758e-06_rb,0.46191e-06_rb,0.50102e-06_rb,0.50055e-06_rb, &\n        & 0.52975e-06_rb,0.50335e-06_rb,0.48665e-06_rb,0.13456e-06_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.73830e-07_rb,0.39095e-06_rb,0.51738e-06_rb,0.55894e-06_rb,0.55048e-06_rb, &\n        & 0.55492e-06_rb,0.54317e-06_rb,0.49144e-06_rb,0.16088e-06_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.36931e-07_rb,0.16614e-06_rb,0.21895e-06_rb,0.26116e-06_rb,0.33023e-06_rb, &\n        & 0.31438e-06_rb,0.35810e-06_rb,0.46819e-06_rb,0.53649e-07_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.42386e-07_rb,0.20028e-06_rb,0.26120e-06_rb,0.28858e-06_rb,0.36090e-06_rb, &\n        & 0.35506e-06_rb,0.34639e-06_rb,0.43640e-06_rb,0.66551e-07_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.47801e-07_rb,0.23474e-06_rb,0.30842e-06_rb,0.34242e-06_rb,0.37552e-06_rb, &\n        & 0.38348e-06_rb,0.34637e-06_rb,0.39519e-06_rb,0.81897e-07_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.53030e-07_rb,0.26856e-06_rb,0.35532e-06_rb,0.39019e-06_rb,0.39727e-06_rb, &\n        & 0.41391e-06_rb,0.38815e-06_rb,0.39845e-06_rb,0.10316e-06_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.58073e-07_rb,0.30468e-06_rb,0.40415e-06_rb,0.43508e-06_rb,0.43212e-06_rb, &\n        & 0.43860e-06_rb,0.43462e-06_rb,0.39513e-06_rb,0.12065e-06_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.30210e-07_rb,0.13672e-06_rb,0.18028e-06_rb,0.21388e-06_rb,0.27067e-06_rb, &\n        & 0.25748e-06_rb,0.29347e-06_rb,0.38486e-06_rb,0.43992e-07_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.34676e-07_rb,0.16480e-06_rb,0.21447e-06_rb,0.23703e-06_rb,0.29658e-06_rb, &\n        & 0.29189e-06_rb,0.28346e-06_rb,0.35425e-06_rb,0.54558e-07_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.39112e-07_rb,0.19301e-06_rb,0.25343e-06_rb,0.28112e-06_rb,0.30767e-06_rb, &\n        & 0.31424e-06_rb,0.28354e-06_rb,0.32323e-06_rb,0.67060e-07_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.43392e-07_rb,0.22069e-06_rb,0.29158e-06_rb,0.31987e-06_rb,0.32514e-06_rb, &\n        & 0.33920e-06_rb,0.31782e-06_rb,0.32572e-06_rb,0.84444e-07_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.47520e-07_rb,0.25011e-06_rb,0.33134e-06_rb,0.35641e-06_rb,0.35390e-06_rb, &\n        & 0.35921e-06_rb,0.35594e-06_rb,0.32298e-06_rb,0.98845e-07_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.24733e-07_rb,0.11230e-06_rb,0.14856e-06_rb,0.17472e-06_rb,0.22197e-06_rb, &\n        & 0.21118e-06_rb,0.24122e-06_rb,0.31477e-06_rb,0.36119e-07_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.28389e-07_rb,0.13551e-06_rb,0.17612e-06_rb,0.19468e-06_rb,0.24363e-06_rb, &\n        & 0.23963e-06_rb,0.23290e-06_rb,0.28830e-06_rb,0.44709e-07_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.32017e-07_rb,0.15859e-06_rb,0.20791e-06_rb,0.23074e-06_rb,0.25230e-06_rb, &\n        & 0.25771e-06_rb,0.23238e-06_rb,0.26334e-06_rb,0.54941e-07_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.35526e-07_rb,0.18123e-06_rb,0.23912e-06_rb,0.26228e-06_rb,0.26637e-06_rb, &\n        & 0.27804e-06_rb,0.26039e-06_rb,0.26652e-06_rb,0.69162e-07_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.38912e-07_rb,0.20524e-06_rb,0.27165e-06_rb,0.29207e-06_rb,0.28991e-06_rb, &\n        & 0.29419e-06_rb,0.29154e-06_rb,0.26412e-06_rb,0.80995e-07_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.20250e-07_rb,0.92231e-07_rb,0.12203e-06_rb,0.14275e-06_rb,0.18179e-06_rb, &\n        & 0.17279e-06_rb,0.19796e-06_rb,0.25817e-06_rb,0.29574e-07_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.23243e-07_rb,0.11133e-06_rb,0.14442e-06_rb,0.15980e-06_rb,0.20001e-06_rb, &\n        & 0.19638e-06_rb,0.19075e-06_rb,0.23541e-06_rb,0.36618e-07_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.26215e-07_rb,0.13018e-06_rb,0.17053e-06_rb,0.18925e-06_rb,0.20654e-06_rb, &\n        & 0.21104e-06_rb,0.19040e-06_rb,0.21495e-06_rb,0.44987e-07_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.29082e-07_rb,0.14865e-06_rb,0.19601e-06_rb,0.21490e-06_rb,0.21820e-06_rb, &\n        & 0.22779e-06_rb,0.21313e-06_rb,0.21809e-06_rb,0.56635e-07_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.31856e-07_rb,0.16826e-06_rb,0.22260e-06_rb,0.23930e-06_rb,0.23753e-06_rb, &\n        & 0.24098e-06_rb,0.23875e-06_rb,0.21605e-06_rb,0.66316e-07_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.17059e-05_rb,0.38862e-05_rb,0.46330e-05_rb,0.51258e-05_rb,0.53516e-05_rb, &\n        & 0.52890e-05_rb,0.49050e-05_rb,0.49561e-05_rb,0.24914e-05_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.17702e-05_rb,0.41613e-05_rb,0.49979e-05_rb,0.55352e-05_rb,0.58535e-05_rb, &\n        & 0.58620e-05_rb,0.55540e-05_rb,0.53944e-05_rb,0.30111e-05_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.18268e-05_rb,0.44218e-05_rb,0.53631e-05_rb,0.59894e-05_rb,0.63892e-05_rb, &\n        & 0.64888e-05_rb,0.63488e-05_rb,0.59957e-05_rb,0.35253e-05_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.18763e-05_rb,0.46467e-05_rb,0.56969e-05_rb,0.64112e-05_rb,0.68701e-05_rb, &\n        & 0.70687e-05_rb,0.69575e-05_rb,0.65330e-05_rb,0.40117e-05_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.19168e-05_rb,0.48702e-05_rb,0.60413e-05_rb,0.68595e-05_rb,0.73828e-05_rb, &\n        & 0.76555e-05_rb,0.76620e-05_rb,0.72236e-05_rb,0.44814e-05_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.13807e-05_rb,0.32052e-05_rb,0.37981e-05_rb,0.41868e-05_rb,0.43666e-05_rb, &\n        & 0.42966e-05_rb,0.39397e-05_rb,0.40523e-05_rb,0.19972e-05_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.14355e-05_rb,0.34375e-05_rb,0.40968e-05_rb,0.45345e-05_rb,0.47869e-05_rb, &\n        & 0.47900e-05_rb,0.45121e-05_rb,0.44176e-05_rb,0.23759e-05_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.14839e-05_rb,0.36628e-05_rb,0.44128e-05_rb,0.49223e-05_rb,0.52399e-05_rb, &\n        & 0.53302e-05_rb,0.51982e-05_rb,0.49130e-05_rb,0.28052e-05_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.15261e-05_rb,0.38551e-05_rb,0.47116e-05_rb,0.52947e-05_rb,0.56758e-05_rb, &\n        & 0.58601e-05_rb,0.57606e-05_rb,0.54224e-05_rb,0.31665e-05_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.15621e-05_rb,0.40345e-05_rb,0.49797e-05_rb,0.56344e-05_rb,0.60672e-05_rb, &\n        & 0.63079e-05_rb,0.63076e-05_rb,0.59671e-05_rb,0.35368e-05_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.11048e-05_rb,0.25908e-05_rb,0.30458e-05_rb,0.33480e-05_rb,0.34767e-05_rb, &\n        & 0.33444e-05_rb,0.30982e-05_rb,0.31520e-05_rb,0.14943e-05_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.11526e-05_rb,0.27857e-05_rb,0.32915e-05_rb,0.36364e-05_rb,0.38272e-05_rb, &\n        & 0.38169e-05_rb,0.35492e-05_rb,0.35141e-05_rb,0.17575e-05_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.11948e-05_rb,0.29688e-05_rb,0.35427e-05_rb,0.39401e-05_rb,0.41747e-05_rb, &\n        & 0.42239e-05_rb,0.40766e-05_rb,0.39111e-05_rb,0.20688e-05_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.12319e-05_rb,0.31426e-05_rb,0.38135e-05_rb,0.42625e-05_rb,0.45635e-05_rb, &\n        & 0.47062e-05_rb,0.46027e-05_rb,0.43389e-05_rb,0.23873e-05_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.12642e-05_rb,0.32923e-05_rb,0.40402e-05_rb,0.45497e-05_rb,0.48934e-05_rb, &\n        & 0.50814e-05_rb,0.50577e-05_rb,0.47614e-05_rb,0.26860e-05_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.87810e-06_rb,0.20726e-05_rb,0.24188e-05_rb,0.26498e-05_rb,0.27201e-05_rb, &\n        & 0.25966e-05_rb,0.24215e-05_rb,0.25596e-05_rb,0.10910e-05_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.92113e-06_rb,0.22378e-05_rb,0.26243e-05_rb,0.28859e-05_rb,0.30228e-05_rb, &\n        & 0.29855e-05_rb,0.27257e-05_rb,0.28497e-05_rb,0.12952e-05_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.95847e-06_rb,0.23927e-05_rb,0.28323e-05_rb,0.31308e-05_rb,0.33238e-05_rb, &\n        & 0.33287e-05_rb,0.31597e-05_rb,0.31032e-05_rb,0.15368e-05_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.99115e-06_rb,0.25350e-05_rb,0.30423e-05_rb,0.33883e-05_rb,0.36085e-05_rb, &\n        & 0.36829e-05_rb,0.35850e-05_rb,0.33993e-05_rb,0.17502e-05_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.10199e-05_rb,0.26768e-05_rb,0.32656e-05_rb,0.36641e-05_rb,0.39303e-05_rb, &\n        & 0.40820e-05_rb,0.40444e-05_rb,0.38038e-05_rb,0.20588e-05_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.69521e-06_rb,0.16480e-05_rb,0.19136e-05_rb,0.20758e-05_rb,0.21053e-05_rb, &\n        & 0.19983e-05_rb,0.19384e-05_rb,0.21119e-05_rb,0.79759e-06_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.73399e-06_rb,0.17885e-05_rb,0.20863e-05_rb,0.22802e-05_rb,0.23681e-05_rb, &\n        & 0.23078e-05_rb,0.21093e-05_rb,0.21684e-05_rb,0.95048e-06_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.76704e-06_rb,0.19210e-05_rb,0.22551e-05_rb,0.24823e-05_rb,0.26201e-05_rb, &\n        & 0.26181e-05_rb,0.24369e-05_rb,0.24387e-05_rb,0.11396e-05_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.79598e-06_rb,0.20422e-05_rb,0.24305e-05_rb,0.26936e-05_rb,0.28610e-05_rb, &\n        & 0.28938e-05_rb,0.28032e-05_rb,0.26848e-05_rb,0.13054e-05_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.82146e-06_rb,0.21630e-05_rb,0.26149e-05_rb,0.29202e-05_rb,0.31281e-05_rb, &\n        & 0.32364e-05_rb,0.31639e-05_rb,0.29903e-05_rb,0.15503e-05_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.54790e-06_rb,0.12968e-05_rb,0.14998e-05_rb,0.16199e-05_rb,0.16168e-05_rb, &\n        & 0.15151e-05_rb,0.14932e-05_rb,0.16380e-05_rb,0.58437e-06_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.58180e-06_rb,0.14204e-05_rb,0.16474e-05_rb,0.17877e-05_rb,0.18382e-05_rb, &\n        & 0.17645e-05_rb,0.16359e-05_rb,0.17414e-05_rb,0.70191e-06_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.61169e-06_rb,0.15332e-05_rb,0.17837e-05_rb,0.19554e-05_rb,0.20462e-05_rb, &\n        & 0.20343e-05_rb,0.18483e-05_rb,0.19670e-05_rb,0.83824e-06_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.63729e-06_rb,0.16375e-05_rb,0.19280e-05_rb,0.21247e-05_rb,0.22559e-05_rb, &\n        & 0.22588e-05_rb,0.21468e-05_rb,0.21190e-05_rb,0.96829e-06_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.65987e-06_rb,0.17326e-05_rb,0.20710e-05_rb,0.23017e-05_rb,0.24525e-05_rb, &\n        & 0.25042e-05_rb,0.24377e-05_rb,0.23029e-05_rb,0.11330e-05_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.43067e-06_rb,0.10147e-05_rb,0.11663e-05_rb,0.12622e-05_rb,0.12316e-05_rb, &\n        & 0.11186e-05_rb,0.12227e-05_rb,0.12153e-05_rb,0.41960e-06_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.45965e-06_rb,0.11216e-05_rb,0.12929e-05_rb,0.13935e-05_rb,0.14129e-05_rb, &\n        & 0.13426e-05_rb,0.12944e-05_rb,0.14463e-05_rb,0.51416e-06_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.48636e-06_rb,0.12186e-05_rb,0.14109e-05_rb,0.15331e-05_rb,0.15936e-05_rb, &\n        & 0.15473e-05_rb,0.14164e-05_rb,0.14707e-05_rb,0.61314e-06_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.50928e-06_rb,0.13071e-05_rb,0.15237e-05_rb,0.16740e-05_rb,0.17644e-05_rb, &\n        & 0.17562e-05_rb,0.16373e-05_rb,0.16431e-05_rb,0.72862e-06_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.52919e-06_rb,0.13890e-05_rb,0.16443e-05_rb,0.18186e-05_rb,0.19296e-05_rb, &\n        & 0.19451e-05_rb,0.18786e-05_rb,0.17942e-05_rb,0.84235e-06_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.33792e-06_rb,0.78856e-06_rb,0.90464e-06_rb,0.98317e-06_rb,0.92848e-06_rb, &\n        & 0.86387e-06_rb,0.95438e-06_rb,0.90887e-06_rb,0.29529e-06_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.36263e-06_rb,0.88071e-06_rb,0.10121e-05_rb,0.10878e-05_rb,0.10817e-05_rb, &\n        & 0.10133e-05_rb,0.10031e-05_rb,0.11161e-05_rb,0.37413e-06_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.38563e-06_rb,0.96560e-06_rb,0.11116e-05_rb,0.12011e-05_rb,0.12324e-05_rb, &\n        & 0.11848e-05_rb,0.10927e-05_rb,0.11776e-05_rb,0.44987e-06_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.40622e-06_rb,0.10407e-05_rb,0.12047e-05_rb,0.13138e-05_rb,0.13745e-05_rb, &\n        & 0.13598e-05_rb,0.12356e-05_rb,0.13203e-05_rb,0.54288e-06_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.42386e-06_rb,0.11111e-05_rb,0.13019e-05_rb,0.14302e-05_rb,0.15146e-05_rb, &\n        & 0.15112e-05_rb,0.14255e-05_rb,0.14090e-05_rb,0.62729e-06_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.26432e-06_rb,0.60726e-06_rb,0.70036e-06_rb,0.76229e-06_rb,0.71577e-06_rb, &\n        & 0.69749e-06_rb,0.70164e-06_rb,0.72668e-06_rb,0.20659e-06_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.28549e-06_rb,0.68848e-06_rb,0.78705e-06_rb,0.84862e-06_rb,0.82241e-06_rb, &\n        & 0.74707e-06_rb,0.82519e-06_rb,0.82938e-06_rb,0.27449e-06_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.30511e-06_rb,0.76168e-06_rb,0.87199e-06_rb,0.93359e-06_rb,0.94531e-06_rb, &\n        & 0.89794e-06_rb,0.85947e-06_rb,0.97111e-06_rb,0.33410e-06_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.32329e-06_rb,0.82660e-06_rb,0.95163e-06_rb,0.10287e-05_rb,0.10680e-05_rb, &\n        & 0.10381e-05_rb,0.94558e-06_rb,0.98374e-06_rb,0.39896e-06_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.33897e-06_rb,0.88614e-06_rb,0.10276e-05_rb,0.11239e-05_rb,0.11817e-05_rb, &\n        & 0.11723e-05_rb,0.10892e-05_rb,0.10943e-05_rb,0.47438e-06_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.20748e-06_rb,0.47023e-06_rb,0.54165e-06_rb,0.58159e-06_rb,0.54422e-06_rb, &\n        & 0.55116e-06_rb,0.57712e-06_rb,0.60571e-06_rb,0.14752e-06_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.22561e-06_rb,0.54027e-06_rb,0.61555e-06_rb,0.66550e-06_rb,0.62550e-06_rb, &\n        & 0.58306e-06_rb,0.64781e-06_rb,0.63365e-06_rb,0.19821e-06_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.24219e-06_rb,0.60251e-06_rb,0.68703e-06_rb,0.73412e-06_rb,0.72965e-06_rb, &\n        & 0.68255e-06_rb,0.67291e-06_rb,0.76422e-06_rb,0.24874e-06_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.25766e-06_rb,0.65861e-06_rb,0.75375e-06_rb,0.81214e-06_rb,0.83171e-06_rb, &\n        & 0.80129e-06_rb,0.73385e-06_rb,0.78864e-06_rb,0.29867e-06_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.27157e-06_rb,0.70870e-06_rb,0.81638e-06_rb,0.88593e-06_rb,0.92651e-06_rb, &\n        & 0.91449e-06_rb,0.83048e-06_rb,0.88651e-06_rb,0.36087e-06_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.16984e-06_rb,0.38981e-06_rb,0.44742e-06_rb,0.48022e-06_rb,0.44950e-06_rb, &\n        & 0.45173e-06_rb,0.47333e-06_rb,0.50203e-06_rb,0.12166e-06_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.18466e-06_rb,0.44753e-06_rb,0.50754e-06_rb,0.54744e-06_rb,0.51342e-06_rb, &\n        & 0.47893e-06_rb,0.53296e-06_rb,0.51992e-06_rb,0.16283e-06_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.19826e-06_rb,0.49803e-06_rb,0.56578e-06_rb,0.60333e-06_rb,0.60031e-06_rb, &\n        & 0.56085e-06_rb,0.55152e-06_rb,0.63442e-06_rb,0.20412e-06_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.21087e-06_rb,0.54349e-06_rb,0.62058e-06_rb,0.66722e-06_rb,0.68339e-06_rb, &\n        & 0.65819e-06_rb,0.60140e-06_rb,0.64555e-06_rb,0.24501e-06_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.22228e-06_rb,0.58430e-06_rb,0.67139e-06_rb,0.72733e-06_rb,0.76067e-06_rb, &\n        & 0.75025e-06_rb,0.68133e-06_rb,0.72307e-06_rb,0.29566e-06_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.13908e-06_rb,0.32322e-06_rb,0.36926e-06_rb,0.39668e-06_rb,0.37094e-06_rb, &\n        & 0.37104e-06_rb,0.38736e-06_rb,0.41059e-06_rb,0.10018e-06_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.15119e-06_rb,0.37037e-06_rb,0.41804e-06_rb,0.44988e-06_rb,0.42138e-06_rb, &\n        & 0.39334e-06_rb,0.43800e-06_rb,0.42649e-06_rb,0.13384e-06_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.16232e-06_rb,0.41107e-06_rb,0.46554e-06_rb,0.49568e-06_rb,0.49349e-06_rb, &\n        & 0.46062e-06_rb,0.45205e-06_rb,0.52165e-06_rb,0.16749e-06_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.17268e-06_rb,0.44802e-06_rb,0.51028e-06_rb,0.54757e-06_rb,0.56096e-06_rb, &\n        & 0.54041e-06_rb,0.49303e-06_rb,0.52723e-06_rb,0.20095e-06_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.18199e-06_rb,0.48092e-06_rb,0.55149e-06_rb,0.59694e-06_rb,0.62405e-06_rb, &\n        & 0.61534e-06_rb,0.55851e-06_rb,0.58926e-06_rb,0.24228e-06_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.11387e-06_rb,0.26741e-06_rb,0.30441e-06_rb,0.32687e-06_rb,0.30479e-06_rb, &\n        & 0.30477e-06_rb,0.31768e-06_rb,0.33316e-06_rb,0.82090e-07_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.12381e-06_rb,0.30579e-06_rb,0.34391e-06_rb,0.36935e-06_rb,0.34578e-06_rb, &\n        & 0.32317e-06_rb,0.35995e-06_rb,0.35099e-06_rb,0.10981e-06_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.13290e-06_rb,0.33871e-06_rb,0.38265e-06_rb,0.40672e-06_rb,0.40511e-06_rb, &\n        & 0.37796e-06_rb,0.36986e-06_rb,0.42813e-06_rb,0.13721e-06_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.14135e-06_rb,0.36878e-06_rb,0.41898e-06_rb,0.44916e-06_rb,0.46012e-06_rb, &\n        & 0.44348e-06_rb,0.40383e-06_rb,0.43087e-06_rb,0.16460e-06_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.14898e-06_rb,0.39524e-06_rb,0.45245e-06_rb,0.48939e-06_rb,0.51148e-06_rb, &\n        & 0.50420e-06_rb,0.45753e-06_rb,0.48088e-06_rb,0.19843e-06_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.49835e-05_rb,0.73512e-05_rb,0.88016e-05_rb,0.97115e-05_rb,0.10342e-04_rb, &\n        & 0.10688e-04_rb,0.10747e-04_rb,0.97587e-05_rb,0.57353e-05_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.49823e-05_rb,0.77944e-05_rb,0.95403e-05_rb,0.10739e-04_rb,0.11522e-04_rb, &\n        & 0.11974e-04_rb,0.12019e-04_rb,0.11200e-04_rb,0.69362e-05_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.49638e-05_rb,0.82513e-05_rb,0.10343e-04_rb,0.11836e-04_rb,0.12804e-04_rb, &\n        & 0.13375e-04_rb,0.13427e-04_rb,0.12807e-04_rb,0.83325e-05_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.49300e-05_rb,0.87230e-05_rb,0.11131e-04_rb,0.12834e-04_rb,0.13980e-04_rb, &\n        & 0.14660e-04_rb,0.14790e-04_rb,0.14186e-04_rb,0.94893e-05_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.48886e-05_rb,0.92046e-05_rb,0.11933e-04_rb,0.13885e-04_rb,0.15255e-04_rb, &\n        & 0.16071e-04_rb,0.16239e-04_rb,0.15605e-04_rb,0.10917e-04_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.41174e-05_rb,0.62362e-05_rb,0.73897e-05_rb,0.81161e-05_rb,0.86061e-05_rb, &\n        & 0.88364e-05_rb,0.89272e-05_rb,0.81534e-05_rb,0.45187e-05_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.41154e-05_rb,0.66112e-05_rb,0.80274e-05_rb,0.90030e-05_rb,0.96264e-05_rb, &\n        & 0.99529e-05_rb,0.10004e-04_rb,0.93836e-05_rb,0.55300e-05_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.40999e-05_rb,0.69972e-05_rb,0.87232e-05_rb,0.99464e-05_rb,0.10738e-04_rb, &\n        & 0.11186e-04_rb,0.11235e-04_rb,0.10760e-04_rb,0.66656e-05_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.40728e-05_rb,0.73933e-05_rb,0.94032e-05_rb,0.10842e-04_rb,0.11807e-04_rb, &\n        & 0.12371e-04_rb,0.12495e-04_rb,0.12016e-04_rb,0.78073e-05_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.40371e-05_rb,0.77954e-05_rb,0.10060e-04_rb,0.11710e-04_rb,0.12855e-04_rb, &\n        & 0.13529e-04_rb,0.13658e-04_rb,0.13169e-04_rb,0.88462e-05_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.33911e-05_rb,0.51807e-05_rb,0.60524e-05_rb,0.65745e-05_rb,0.69209e-05_rb, &\n        & 0.70496e-05_rb,0.71376e-05_rb,0.64864e-05_rb,0.34232e-05_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.33916e-05_rb,0.54910e-05_rb,0.65875e-05_rb,0.73243e-05_rb,0.77878e-05_rb, &\n        & 0.79847e-05_rb,0.80332e-05_rb,0.75309e-05_rb,0.42228e-05_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.33813e-05_rb,0.58057e-05_rb,0.71503e-05_rb,0.80869e-05_rb,0.86798e-05_rb, &\n        & 0.89845e-05_rb,0.90042e-05_rb,0.85938e-05_rb,0.50519e-05_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.33618e-05_rb,0.61503e-05_rb,0.77470e-05_rb,0.88947e-05_rb,0.96421e-05_rb, &\n        & 0.10056e-04_rb,0.10131e-04_rb,0.97836e-05_rb,0.60817e-05_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.33346e-05_rb,0.64834e-05_rb,0.82992e-05_rb,0.96266e-05_rb,0.10527e-04_rb, &\n        & 0.11042e-04_rb,0.11154e-04_rb,0.10788e-04_rb,0.69208e-05_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.27862e-05_rb,0.42534e-05_rb,0.48987e-05_rb,0.52435e-05_rb,0.54733e-05_rb, &\n        & 0.55364e-05_rb,0.55872e-05_rb,0.49226e-05_rb,0.25436e-05_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.27893e-05_rb,0.45093e-05_rb,0.53394e-05_rb,0.58691e-05_rb,0.61855e-05_rb, &\n        & 0.63070e-05_rb,0.63399e-05_rb,0.58599e-05_rb,0.31726e-05_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.27843e-05_rb,0.47714e-05_rb,0.58075e-05_rb,0.65048e-05_rb,0.69158e-05_rb, &\n        & 0.71341e-05_rb,0.71529e-05_rb,0.67578e-05_rb,0.38485e-05_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.27713e-05_rb,0.50491e-05_rb,0.62824e-05_rb,0.71451e-05_rb,0.76931e-05_rb, &\n        & 0.79968e-05_rb,0.80403e-05_rb,0.77391e-05_rb,0.46093e-05_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.27517e-05_rb,0.53526e-05_rb,0.67897e-05_rb,0.78357e-05_rb,0.85357e-05_rb, &\n        & 0.89260e-05_rb,0.90160e-05_rb,0.87287e-05_rb,0.54226e-05_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.22852e-05_rb,0.34704e-05_rb,0.39351e-05_rb,0.41626e-05_rb,0.42797e-05_rb, &\n        & 0.43078e-05_rb,0.42289e-05_rb,0.36572e-05_rb,0.18725e-05_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.22904e-05_rb,0.36828e-05_rb,0.42969e-05_rb,0.46636e-05_rb,0.48818e-05_rb, &\n        & 0.49227e-05_rb,0.49640e-05_rb,0.45776e-05_rb,0.23620e-05_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.22883e-05_rb,0.38995e-05_rb,0.46830e-05_rb,0.51887e-05_rb,0.54814e-05_rb, &\n        & 0.56039e-05_rb,0.56350e-05_rb,0.52624e-05_rb,0.29139e-05_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.22808e-05_rb,0.41317e-05_rb,0.50763e-05_rb,0.57196e-05_rb,0.61208e-05_rb, &\n        & 0.63389e-05_rb,0.63549e-05_rb,0.60859e-05_rb,0.35219e-05_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.22671e-05_rb,0.43851e-05_rb,0.54991e-05_rb,0.62948e-05_rb,0.68249e-05_rb, &\n        & 0.71098e-05_rb,0.71755e-05_rb,0.69558e-05_rb,0.41900e-05_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.18699e-05_rb,0.28114e-05_rb,0.31400e-05_rb,0.32683e-05_rb,0.33153e-05_rb, &\n        & 0.33008e-05_rb,0.31920e-05_rb,0.27860e-05_rb,0.13420e-05_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.18773e-05_rb,0.29859e-05_rb,0.34309e-05_rb,0.36695e-05_rb,0.38007e-05_rb, &\n        & 0.38091e-05_rb,0.38180e-05_rb,0.34314e-05_rb,0.17179e-05_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.18783e-05_rb,0.31642e-05_rb,0.37448e-05_rb,0.40997e-05_rb,0.43019e-05_rb, &\n        & 0.43546e-05_rb,0.43740e-05_rb,0.40084e-05_rb,0.21605e-05_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.18743e-05_rb,0.33566e-05_rb,0.40684e-05_rb,0.45371e-05_rb,0.48151e-05_rb, &\n        & 0.49624e-05_rb,0.49624e-05_rb,0.47228e-05_rb,0.26431e-05_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.18657e-05_rb,0.35541e-05_rb,0.43955e-05_rb,0.49826e-05_rb,0.53649e-05_rb, &\n        & 0.55694e-05_rb,0.55990e-05_rb,0.54328e-05_rb,0.31359e-05_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.15270e-05_rb,0.22681e-05_rb,0.24953e-05_rb,0.25538e-05_rb,0.25397e-05_rb, &\n        & 0.25315e-05_rb,0.23299e-05_rb,0.21035e-05_rb,0.95748e-06_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.15365e-05_rb,0.24113e-05_rb,0.27304e-05_rb,0.28767e-05_rb,0.29339e-05_rb, &\n        & 0.29290e-05_rb,0.28728e-05_rb,0.24852e-05_rb,0.12383e-05_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.15398e-05_rb,0.25576e-05_rb,0.29821e-05_rb,0.32226e-05_rb,0.33508e-05_rb, &\n        & 0.33584e-05_rb,0.33733e-05_rb,0.31044e-05_rb,0.15900e-05_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.15385e-05_rb,0.27150e-05_rb,0.32458e-05_rb,0.35802e-05_rb,0.37697e-05_rb, &\n        & 0.38500e-05_rb,0.38510e-05_rb,0.36169e-05_rb,0.19605e-05_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.15336e-05_rb,0.28792e-05_rb,0.35139e-05_rb,0.39460e-05_rb,0.42149e-05_rb, &\n        & 0.43622e-05_rb,0.43664e-05_rb,0.42187e-05_rb,0.23523e-05_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.12444e-05_rb,0.18266e-05_rb,0.19784e-05_rb,0.19900e-05_rb,0.19390e-05_rb, &\n        & 0.19235e-05_rb,0.17231e-05_rb,0.16995e-05_rb,0.68590e-06_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.12557e-05_rb,0.19427e-05_rb,0.21667e-05_rb,0.22465e-05_rb,0.22625e-05_rb, &\n        & 0.22377e-05_rb,0.21596e-05_rb,0.18759e-05_rb,0.89490e-06_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.12608e-05_rb,0.20627e-05_rb,0.23694e-05_rb,0.25224e-05_rb,0.25961e-05_rb, &\n        & 0.25892e-05_rb,0.25887e-05_rb,0.23400e-05_rb,0.11490e-05_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.12616e-05_rb,0.21916e-05_rb,0.25816e-05_rb,0.28156e-05_rb,0.29418e-05_rb, &\n        & 0.29759e-05_rb,0.29788e-05_rb,0.27379e-05_rb,0.14416e-05_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.12590e-05_rb,0.23261e-05_rb,0.28013e-05_rb,0.31131e-05_rb,0.32990e-05_rb, &\n        & 0.33976e-05_rb,0.33946e-05_rb,0.32600e-05_rb,0.17529e-05_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.10123e-05_rb,0.14681e-05_rb,0.15612e-05_rb,0.15411e-05_rb,0.14778e-05_rb, &\n        & 0.14343e-05_rb,0.12992e-05_rb,0.13172e-05_rb,0.49290e-06_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.10245e-05_rb,0.15617e-05_rb,0.17149e-05_rb,0.17499e-05_rb,0.17312e-05_rb, &\n        & 0.17144e-05_rb,0.15772e-05_rb,0.14382e-05_rb,0.63132e-06_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.10311e-05_rb,0.16600e-05_rb,0.18786e-05_rb,0.19738e-05_rb,0.20017e-05_rb, &\n        & 0.19859e-05_rb,0.19416e-05_rb,0.17139e-05_rb,0.82278e-06_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.10334e-05_rb,0.17639e-05_rb,0.20493e-05_rb,0.22069e-05_rb,0.22845e-05_rb, &\n        & 0.22769e-05_rb,0.22855e-05_rb,0.21115e-05_rb,0.10531e-05_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.10328e-05_rb,0.18738e-05_rb,0.22265e-05_rb,0.24495e-05_rb,0.25737e-05_rb, &\n        & 0.26232e-05_rb,0.26173e-05_rb,0.24699e-05_rb,0.12950e-05_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.82261e-06_rb,0.11811e-05_rb,0.12403e-05_rb,0.12060e-05_rb,0.11493e-05_rb, &\n        & 0.10907e-05_rb,0.98035e-06_rb,0.10980e-05_rb,0.37316e-06_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.83528e-06_rb,0.12595e-05_rb,0.13646e-05_rb,0.13745e-05_rb,0.13365e-05_rb, &\n        & 0.13172e-05_rb,0.11846e-05_rb,0.11491e-05_rb,0.46158e-06_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.84255e-06_rb,0.13392e-05_rb,0.14968e-05_rb,0.15528e-05_rb,0.15573e-05_rb, &\n        & 0.15339e-05_rb,0.14802e-05_rb,0.12811e-05_rb,0.60300e-06_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.84587e-06_rb,0.14245e-05_rb,0.16355e-05_rb,0.17381e-05_rb,0.17835e-05_rb, &\n        & 0.17693e-05_rb,0.17683e-05_rb,0.16097e-05_rb,0.77730e-06_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.84627e-06_rb,0.15137e-05_rb,0.17779e-05_rb,0.19378e-05_rb,0.20192e-05_rb, &\n        & 0.20387e-05_rb,0.20340e-05_rb,0.18636e-05_rb,0.96863e-06_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.67388e-06_rb,0.97942e-06_rb,0.10286e-05_rb,0.10023e-05_rb,0.95317e-06_rb, &\n        & 0.90847e-06_rb,0.81776e-06_rb,0.89345e-06_rb,0.30408e-06_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.68407e-06_rb,0.10438e-05_rb,0.11334e-05_rb,0.11425e-05_rb,0.11096e-05_rb, &\n        & 0.10886e-05_rb,0.98240e-06_rb,0.94798e-06_rb,0.38086e-06_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.69000e-06_rb,0.11106e-05_rb,0.12435e-05_rb,0.12890e-05_rb,0.12895e-05_rb, &\n        & 0.12679e-05_rb,0.12202e-05_rb,0.10522e-05_rb,0.49623e-06_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.69276e-06_rb,0.11824e-05_rb,0.13564e-05_rb,0.14402e-05_rb,0.14763e-05_rb, &\n        & 0.14628e-05_rb,0.14599e-05_rb,0.13328e-05_rb,0.63979e-06_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.69302e-06_rb,0.12555e-05_rb,0.14740e-05_rb,0.16049e-05_rb,0.16694e-05_rb, &\n        & 0.16839e-05_rb,0.16772e-05_rb,0.15421e-05_rb,0.79514e-06_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.55214e-06_rb,0.81079e-06_rb,0.85249e-06_rb,0.83175e-06_rb,0.78783e-06_rb, &\n        & 0.75281e-06_rb,0.67567e-06_rb,0.74075e-06_rb,0.24910e-06_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.56029e-06_rb,0.86391e-06_rb,0.94032e-06_rb,0.94758e-06_rb,0.91883e-06_rb, &\n        & 0.89834e-06_rb,0.81189e-06_rb,0.77883e-06_rb,0.31399e-06_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.56504e-06_rb,0.92066e-06_rb,0.10308e-05_rb,0.10667e-05_rb,0.10655e-05_rb, &\n        & 0.10460e-05_rb,0.10067e-05_rb,0.87150e-06_rb,0.40815e-06_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.56721e-06_rb,0.97985e-06_rb,0.11224e-05_rb,0.11915e-05_rb,0.12197e-05_rb, &\n        & 0.12063e-05_rb,0.12014e-05_rb,0.10950e-05_rb,0.52630e-06_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.56742e-06_rb,0.10399e-05_rb,0.12195e-05_rb,0.13255e-05_rb,0.13771e-05_rb, &\n        & 0.13876e-05_rb,0.13807e-05_rb,0.12724e-05_rb,0.65264e-06_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.45223e-06_rb,0.67006e-06_rb,0.70582e-06_rb,0.68873e-06_rb,0.65038e-06_rb, &\n        & 0.62084e-06_rb,0.55442e-06_rb,0.60996e-06_rb,0.20428e-06_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.45880e-06_rb,0.71490e-06_rb,0.77859e-06_rb,0.78376e-06_rb,0.75834e-06_rb, &\n        & 0.73987e-06_rb,0.66959e-06_rb,0.63711e-06_rb,0.25817e-06_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.46276e-06_rb,0.76231e-06_rb,0.85214e-06_rb,0.88098e-06_rb,0.87867e-06_rb, &\n        & 0.86188e-06_rb,0.83033e-06_rb,0.72166e-06_rb,0.33548e-06_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.46442e-06_rb,0.81043e-06_rb,0.92714e-06_rb,0.98329e-06_rb,0.10050e-05_rb, &\n        & 0.99247e-06_rb,0.98770e-06_rb,0.89931e-06_rb,0.43220e-06_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.46456e-06_rb,0.86048e-06_rb,0.10065e-05_rb,0.10920e-05_rb,0.11333e-05_rb, &\n        & 0.11411e-05_rb,0.11342e-05_rb,0.10473e-05_rb,0.53527e-06_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.12335e-04_rb,0.15987e-04_rb,0.18565e-04_rb,0.20406e-04_rb,0.21636e-04_rb, &\n        & 0.22077e-04_rb,0.21364e-04_rb,0.19544e-04_rb,0.14733e-04_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.12351e-04_rb,0.17014e-04_rb,0.20216e-04_rb,0.22480e-04_rb,0.24098e-04_rb, &\n        & 0.24791e-04_rb,0.24379e-04_rb,0.22600e-04_rb,0.17292e-04_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.12364e-04_rb,0.18152e-04_rb,0.21907e-04_rb,0.24643e-04_rb,0.26659e-04_rb, &\n        & 0.27630e-04_rb,0.27512e-04_rb,0.25730e-04_rb,0.20236e-04_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.12365e-04_rb,0.19320e-04_rb,0.23679e-04_rb,0.26885e-04_rb,0.29225e-04_rb, &\n        & 0.30430e-04_rb,0.30461e-04_rb,0.28726e-04_rb,0.23208e-04_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.12355e-04_rb,0.20495e-04_rb,0.25505e-04_rb,0.29189e-04_rb,0.31816e-04_rb, &\n        & 0.33308e-04_rb,0.33478e-04_rb,0.31898e-04_rb,0.26469e-04_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.10350e-04_rb,0.13753e-04_rb,0.16101e-04_rb,0.17726e-04_rb,0.18733e-04_rb, &\n        & 0.19034e-04_rb,0.18319e-04_rb,0.16594e-04_rb,0.11961e-04_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.10365e-04_rb,0.14706e-04_rb,0.17542e-04_rb,0.19561e-04_rb,0.20895e-04_rb, &\n        & 0.21420e-04_rb,0.21012e-04_rb,0.19409e-04_rb,0.14130e-04_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.10364e-04_rb,0.15733e-04_rb,0.19081e-04_rb,0.21505e-04_rb,0.23181e-04_rb, &\n        & 0.23958e-04_rb,0.23844e-04_rb,0.22334e-04_rb,0.16750e-04_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.10354e-04_rb,0.16759e-04_rb,0.20670e-04_rb,0.23471e-04_rb,0.25440e-04_rb, &\n        & 0.26474e-04_rb,0.26560e-04_rb,0.25188e-04_rb,0.19386e-04_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.10329e-04_rb,0.17823e-04_rb,0.22292e-04_rb,0.25488e-04_rb,0.27703e-04_rb, &\n        & 0.28957e-04_rb,0.29205e-04_rb,0.27936e-04_rb,0.22026e-04_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.86408e-05_rb,0.11607e-04_rb,0.13624e-04_rb,0.14928e-04_rb,0.15622e-04_rb, &\n        & 0.15768e-04_rb,0.15034e-04_rb,0.13540e-04_rb,0.91950e-05_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.86478e-05_rb,0.12463e-04_rb,0.14889e-04_rb,0.16508e-04_rb,0.17482e-04_rb, &\n        & 0.17819e-04_rb,0.17439e-04_rb,0.15994e-04_rb,0.11026e-04_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.86444e-05_rb,0.13354e-04_rb,0.16234e-04_rb,0.18159e-04_rb,0.19394e-04_rb, &\n        & 0.19962e-04_rb,0.19837e-04_rb,0.18485e-04_rb,0.13087e-04_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.86273e-05_rb,0.14262e-04_rb,0.17647e-04_rb,0.19921e-04_rb,0.21457e-04_rb, &\n        & 0.22290e-04_rb,0.22338e-04_rb,0.21203e-04_rb,0.15397e-04_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.85960e-05_rb,0.15200e-04_rb,0.19031e-04_rb,0.21649e-04_rb,0.23415e-04_rb, &\n        & 0.24453e-04_rb,0.24660e-04_rb,0.23666e-04_rb,0.17582e-04_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.71803e-05_rb,0.97101e-05_rb,0.11373e-04_rb,0.12321e-04_rb,0.12789e-04_rb, &\n        & 0.12803e-04_rb,0.12062e-04_rb,0.10784e-04_rb,0.69624e-05_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.71855e-05_rb,0.10459e-04_rb,0.12456e-04_rb,0.13673e-04_rb,0.14371e-04_rb, &\n        & 0.14569e-04_rb,0.14153e-04_rb,0.12788e-04_rb,0.84564e-05_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.71795e-05_rb,0.11229e-04_rb,0.13608e-04_rb,0.15091e-04_rb,0.16013e-04_rb, &\n        & 0.16409e-04_rb,0.16232e-04_rb,0.15085e-04_rb,0.10120e-04_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.71584e-05_rb,0.12023e-04_rb,0.14800e-04_rb,0.16568e-04_rb,0.17732e-04_rb, &\n        & 0.18336e-04_rb,0.18317e-04_rb,0.17347e-04_rb,0.11917e-04_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.71267e-05_rb,0.12845e-04_rb,0.16058e-04_rb,0.18162e-04_rb,0.19580e-04_rb, &\n        & 0.20399e-04_rb,0.20543e-04_rb,0.19767e-04_rb,0.13958e-04_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.59442e-05_rb,0.80861e-05_rb,0.93878e-05_rb,0.10066e-04_rb,0.10362e-04_rb, &\n        & 0.10281e-04_rb,0.95734e-05_rb,0.84778e-05_rb,0.52204e-05_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.59498e-05_rb,0.87281e-05_rb,0.10301e-04_rb,0.11210e-04_rb,0.11702e-04_rb, &\n        & 0.11782e-04_rb,0.11315e-04_rb,0.10068e-04_rb,0.64302e-05_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.59430e-05_rb,0.93925e-05_rb,0.11277e-04_rb,0.12419e-04_rb,0.13099e-04_rb, &\n        & 0.13351e-04_rb,0.13104e-04_rb,0.12095e-04_rb,0.77633e-05_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.59217e-05_rb,0.10078e-04_rb,0.12288e-04_rb,0.13686e-04_rb,0.14573e-04_rb, &\n        & 0.14994e-04_rb,0.14908e-04_rb,0.14023e-04_rb,0.92337e-05_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.58935e-05_rb,0.10789e-04_rb,0.13390e-04_rb,0.15066e-04_rb,0.16172e-04_rb, &\n        & 0.16788e-04_rb,0.16832e-04_rb,0.16140e-04_rb,0.10913e-04_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.49077e-05_rb,0.66672e-05_rb,0.76412e-05_rb,0.81181e-05_rb,0.82831e-05_rb, &\n        & 0.81137e-05_rb,0.74381e-05_rb,0.64600e-05_rb,0.38540e-05_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.49136e-05_rb,0.72093e-05_rb,0.84100e-05_rb,0.90761e-05_rb,0.94026e-05_rb, &\n        & 0.93849e-05_rb,0.88761e-05_rb,0.77852e-05_rb,0.48097e-05_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.49088e-05_rb,0.77732e-05_rb,0.92304e-05_rb,0.10089e-04_rb,0.10581e-04_rb, &\n        & 0.10707e-04_rb,0.10412e-04_rb,0.94217e-05_rb,0.58741e-05_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.48919e-05_rb,0.83551e-05_rb,0.10086e-04_rb,0.11166e-04_rb,0.11831e-04_rb, &\n        & 0.12095e-04_rb,0.11941e-04_rb,0.11106e-04_rb,0.70559e-05_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.48652e-05_rb,0.89412e-05_rb,0.10983e-04_rb,0.12289e-04_rb,0.13118e-04_rb, &\n        & 0.13538e-04_rb,0.13477e-04_rb,0.12811e-04_rb,0.83378e-05_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.40428e-05_rb,0.54588e-05_rb,0.61687e-05_rb,0.64926e-05_rb,0.65568e-05_rb, &\n        & 0.63259e-05_rb,0.56948e-05_rb,0.49607e-05_rb,0.28237e-05_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.40484e-05_rb,0.59019e-05_rb,0.68052e-05_rb,0.72891e-05_rb,0.74881e-05_rb, &\n        & 0.73951e-05_rb,0.68736e-05_rb,0.59771e-05_rb,0.35700e-05_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.40443e-05_rb,0.63719e-05_rb,0.74936e-05_rb,0.81309e-05_rb,0.84699e-05_rb, &\n        & 0.84975e-05_rb,0.81643e-05_rb,0.72224e-05_rb,0.43995e-05_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.40304e-05_rb,0.68636e-05_rb,0.82100e-05_rb,0.90329e-05_rb,0.95142e-05_rb, &\n        & 0.96616e-05_rb,0.94576e-05_rb,0.86932e-05_rb,0.53385e-05_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.40097e-05_rb,0.73587e-05_rb,0.89665e-05_rb,0.99825e-05_rb,0.10592e-04_rb, &\n        & 0.10860e-04_rb,0.10751e-04_rb,0.10114e-04_rb,0.63905e-05_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.33247e-05_rb,0.44437e-05_rb,0.49476e-05_rb,0.51623e-05_rb,0.51521e-05_rb, &\n        & 0.48927e-05_rb,0.43130e-05_rb,0.36508e-05_rb,0.20433e-05_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.33302e-05_rb,0.48035e-05_rb,0.54757e-05_rb,0.58129e-05_rb,0.59219e-05_rb, &\n        & 0.57796e-05_rb,0.52788e-05_rb,0.45081e-05_rb,0.26233e-05_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.33275e-05_rb,0.51944e-05_rb,0.60436e-05_rb,0.65119e-05_rb,0.67329e-05_rb, &\n        & 0.66992e-05_rb,0.63336e-05_rb,0.54989e-05_rb,0.32839e-05_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.33167e-05_rb,0.56042e-05_rb,0.66425e-05_rb,0.72606e-05_rb,0.75965e-05_rb, &\n        & 0.76619e-05_rb,0.74319e-05_rb,0.66922e-05_rb,0.40228e-05_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.33014e-05_rb,0.60212e-05_rb,0.72748e-05_rb,0.80496e-05_rb,0.84940e-05_rb, &\n        & 0.86532e-05_rb,0.85181e-05_rb,0.78992e-05_rb,0.48672e-05_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.27310e-05_rb,0.35992e-05_rb,0.39468e-05_rb,0.40831e-05_rb,0.40161e-05_rb, &\n        & 0.37266e-05_rb,0.32070e-05_rb,0.27591e-05_rb,0.14628e-05_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.27361e-05_rb,0.38904e-05_rb,0.43781e-05_rb,0.46075e-05_rb,0.46475e-05_rb, &\n        & 0.44710e-05_rb,0.39993e-05_rb,0.33922e-05_rb,0.19203e-05_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.27349e-05_rb,0.42103e-05_rb,0.48448e-05_rb,0.51814e-05_rb,0.53150e-05_rb, &\n        & 0.52403e-05_rb,0.48712e-05_rb,0.41669e-05_rb,0.24268e-05_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.27270e-05_rb,0.45504e-05_rb,0.53414e-05_rb,0.57970e-05_rb,0.60255e-05_rb, &\n        & 0.60359e-05_rb,0.57915e-05_rb,0.51016e-05_rb,0.30070e-05_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.27146e-05_rb,0.48994e-05_rb,0.58660e-05_rb,0.64467e-05_rb,0.67684e-05_rb, &\n        & 0.68529e-05_rb,0.66981e-05_rb,0.61431e-05_rb,0.36677e-05_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.22419e-05_rb,0.29237e-05_rb,0.31619e-05_rb,0.32419e-05_rb,0.31445e-05_rb, &\n        & 0.28618e-05_rb,0.23945e-05_rb,0.20454e-05_rb,0.10493e-05_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.22458e-05_rb,0.31578e-05_rb,0.35134e-05_rb,0.36703e-05_rb,0.36665e-05_rb, &\n        & 0.34835e-05_rb,0.30593e-05_rb,0.25559e-05_rb,0.14125e-05_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.22450e-05_rb,0.34192e-05_rb,0.38967e-05_rb,0.41378e-05_rb,0.42160e-05_rb, &\n        & 0.41184e-05_rb,0.37724e-05_rb,0.31954e-05_rb,0.18099e-05_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.22393e-05_rb,0.36988e-05_rb,0.43039e-05_rb,0.46449e-05_rb,0.48027e-05_rb, &\n        & 0.47756e-05_rb,0.45281e-05_rb,0.39284e-05_rb,0.22652e-05_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.22295e-05_rb,0.39888e-05_rb,0.47391e-05_rb,0.51827e-05_rb,0.54135e-05_rb, &\n        & 0.54517e-05_rb,0.52919e-05_rb,0.47894e-05_rb,0.27859e-05_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.18412e-05_rb,0.24512e-05_rb,0.26550e-05_rb,0.27210e-05_rb,0.26438e-05_rb, &\n        & 0.24068e-05_rb,0.20134e-05_rb,0.16980e-05_rb,0.87310e-06_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.18429e-05_rb,0.26525e-05_rb,0.29507e-05_rb,0.30835e-05_rb,0.30829e-05_rb, &\n        & 0.29354e-05_rb,0.25810e-05_rb,0.21539e-05_rb,0.11715e-05_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.18405e-05_rb,0.28725e-05_rb,0.32735e-05_rb,0.34815e-05_rb,0.35507e-05_rb, &\n        & 0.34733e-05_rb,0.31901e-05_rb,0.26957e-05_rb,0.15018e-05_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.18348e-05_rb,0.31060e-05_rb,0.36191e-05_rb,0.39123e-05_rb,0.40426e-05_rb, &\n        & 0.40206e-05_rb,0.38184e-05_rb,0.33125e-05_rb,0.18804e-05_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.18263e-05_rb,0.33539e-05_rb,0.39862e-05_rb,0.43590e-05_rb,0.45516e-05_rb, &\n        & 0.45841e-05_rb,0.44525e-05_rb,0.40371e-05_rb,0.23130e-05_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.15111e-05_rb,0.20512e-05_rb,0.22220e-05_rb,0.22783e-05_rb,0.22181e-05_rb, &\n        & 0.20219e-05_rb,0.16992e-05_rb,0.14085e-05_rb,0.72438e-06_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.15111e-05_rb,0.22209e-05_rb,0.24719e-05_rb,0.25841e-05_rb,0.25877e-05_rb, &\n        & 0.24700e-05_rb,0.21742e-05_rb,0.18087e-05_rb,0.96963e-06_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.15082e-05_rb,0.24051e-05_rb,0.27419e-05_rb,0.29223e-05_rb,0.29832e-05_rb, &\n        & 0.29201e-05_rb,0.26833e-05_rb,0.22609e-05_rb,0.12444e-05_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.15029e-05_rb,0.26018e-05_rb,0.30364e-05_rb,0.32843e-05_rb,0.33933e-05_rb, &\n        & 0.33730e-05_rb,0.32057e-05_rb,0.27875e-05_rb,0.15571e-05_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.14954e-05_rb,0.28127e-05_rb,0.33443e-05_rb,0.36551e-05_rb,0.38145e-05_rb, &\n        & 0.38425e-05_rb,0.37317e-05_rb,0.33866e-05_rb,0.19133e-05_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.12390e-05_rb,0.17127e-05_rb,0.18553e-05_rb,0.19025e-05_rb,0.18568e-05_rb, &\n        & 0.16968e-05_rb,0.14297e-05_rb,0.11813e-05_rb,0.59950e-06_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.12381e-05_rb,0.18537e-05_rb,0.20641e-05_rb,0.21603e-05_rb,0.21689e-05_rb, &\n        & 0.20712e-05_rb,0.18216e-05_rb,0.15132e-05_rb,0.80096e-06_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.12352e-05_rb,0.20080e-05_rb,0.22929e-05_rb,0.24467e-05_rb,0.24992e-05_rb, &\n        & 0.24434e-05_rb,0.22447e-05_rb,0.18839e-05_rb,0.10290e-05_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.12307e-05_rb,0.21754e-05_rb,0.25409e-05_rb,0.27489e-05_rb,0.28366e-05_rb, &\n        & 0.28171e-05_rb,0.26776e-05_rb,0.23303e-05_rb,0.12853e-05_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.12246e-05_rb,0.23532e-05_rb,0.27977e-05_rb,0.30556e-05_rb,0.31857e-05_rb, &\n        & 0.32077e-05_rb,0.31127e-05_rb,0.28260e-05_rb,0.15788e-05_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.43566e-04_rb,0.45402e-04_rb,0.48829e-04_rb,0.50194e-04_rb,0.49978e-04_rb, &\n        & 0.48581e-04_rb,0.45902e-04_rb,0.40781e-04_rb,0.34170e-04_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.43974e-04_rb,0.47415e-04_rb,0.52012e-04_rb,0.54325e-04_rb,0.54921e-04_rb, &\n        & 0.53975e-04_rb,0.51279e-04_rb,0.46650e-04_rb,0.40945e-04_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.44333e-04_rb,0.49545e-04_rb,0.55453e-04_rb,0.58909e-04_rb,0.60094e-04_rb, &\n        & 0.59376e-04_rb,0.56940e-04_rb,0.52843e-04_rb,0.48266e-04_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.44647e-04_rb,0.51771e-04_rb,0.59155e-04_rb,0.63607e-04_rb,0.65306e-04_rb, &\n        & 0.64935e-04_rb,0.62961e-04_rb,0.59262e-04_rb,0.55812e-04_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.44938e-04_rb,0.54202e-04_rb,0.63063e-04_rb,0.68229e-04_rb,0.70615e-04_rb, &\n        & 0.70683e-04_rb,0.69315e-04_rb,0.65992e-04_rb,0.63855e-04_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.37849e-04_rb,0.40606e-04_rb,0.43836e-04_rb,0.45171e-04_rb,0.45318e-04_rb, &\n        & 0.44251e-04_rb,0.41853e-04_rb,0.37247e-04_rb,0.29303e-04_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.38202e-04_rb,0.42545e-04_rb,0.46901e-04_rb,0.49156e-04_rb,0.50002e-04_rb, &\n        & 0.49256e-04_rb,0.46845e-04_rb,0.42755e-04_rb,0.35187e-04_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.38525e-04_rb,0.44570e-04_rb,0.50219e-04_rb,0.53465e-04_rb,0.54833e-04_rb, &\n        & 0.54348e-04_rb,0.52176e-04_rb,0.48578e-04_rb,0.41697e-04_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.38828e-04_rb,0.46787e-04_rb,0.53767e-04_rb,0.57818e-04_rb,0.59705e-04_rb, &\n        & 0.59611e-04_rb,0.57787e-04_rb,0.54523e-04_rb,0.48350e-04_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.39076e-04_rb,0.49105e-04_rb,0.57380e-04_rb,0.62144e-04_rb,0.64743e-04_rb, &\n        & 0.65049e-04_rb,0.63700e-04_rb,0.60747e-04_rb,0.55348e-04_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.32392e-04_rb,0.35504e-04_rb,0.38232e-04_rb,0.39483e-04_rb,0.39809e-04_rb, &\n        & 0.39031e-04_rb,0.36901e-04_rb,0.32585e-04_rb,0.23735e-04_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.32715e-04_rb,0.37303e-04_rb,0.41039e-04_rb,0.43202e-04_rb,0.44102e-04_rb, &\n        & 0.43582e-04_rb,0.41484e-04_rb,0.37593e-04_rb,0.28689e-04_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.33011e-04_rb,0.39216e-04_rb,0.44127e-04_rb,0.47180e-04_rb,0.48515e-04_rb, &\n        & 0.48269e-04_rb,0.46352e-04_rb,0.42866e-04_rb,0.34062e-04_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.33271e-04_rb,0.41283e-04_rb,0.47451e-04_rb,0.51158e-04_rb,0.53031e-04_rb, &\n        & 0.53191e-04_rb,0.51599e-04_rb,0.48489e-04_rb,0.40122e-04_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.33495e-04_rb,0.43439e-04_rb,0.50779e-04_rb,0.55143e-04_rb,0.57687e-04_rb, &\n        & 0.58208e-04_rb,0.56935e-04_rb,0.54138e-04_rb,0.46109e-04_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.27415e-04_rb,0.30543e-04_rb,0.32764e-04_rb,0.33940e-04_rb,0.34340e-04_rb, &\n        & 0.33775e-04_rb,0.31812e-04_rb,0.27722e-04_rb,0.18770e-04_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.27715e-04_rb,0.32169e-04_rb,0.35304e-04_rb,0.37332e-04_rb,0.38224e-04_rb, &\n        & 0.37868e-04_rb,0.35986e-04_rb,0.32265e-04_rb,0.22928e-04_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.27982e-04_rb,0.33932e-04_rb,0.38141e-04_rb,0.40925e-04_rb,0.42223e-04_rb, &\n        & 0.42122e-04_rb,0.40409e-04_rb,0.37026e-04_rb,0.27474e-04_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.28215e-04_rb,0.35808e-04_rb,0.41184e-04_rb,0.44532e-04_rb,0.46320e-04_rb, &\n        & 0.46554e-04_rb,0.45091e-04_rb,0.41998e-04_rb,0.32462e-04_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.28437e-04_rb,0.37809e-04_rb,0.44202e-04_rb,0.48199e-04_rb,0.50577e-04_rb, &\n        & 0.51211e-04_rb,0.50186e-04_rb,0.47427e-04_rb,0.38088e-04_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.23010e-04_rb,0.25978e-04_rb,0.27838e-04_rb,0.28899e-04_rb,0.29286e-04_rb, &\n        & 0.28721e-04_rb,0.26945e-04_rb,0.23196e-04_rb,0.14687e-04_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.23283e-04_rb,0.27434e-04_rb,0.30115e-04_rb,0.31931e-04_rb,0.32743e-04_rb, &\n        & 0.32398e-04_rb,0.30674e-04_rb,0.27269e-04_rb,0.18140e-04_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.23522e-04_rb,0.29002e-04_rb,0.32686e-04_rb,0.35125e-04_rb,0.36325e-04_rb, &\n        & 0.36232e-04_rb,0.34626e-04_rb,0.31511e-04_rb,0.21987e-04_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.23738e-04_rb,0.30687e-04_rb,0.35404e-04_rb,0.38366e-04_rb,0.40013e-04_rb, &\n        & 0.40198e-04_rb,0.38830e-04_rb,0.35973e-04_rb,0.26236e-04_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.23936e-04_rb,0.32534e-04_rb,0.38093e-04_rb,0.41748e-04_rb,0.43875e-04_rb, &\n        & 0.44440e-04_rb,0.43519e-04_rb,0.40954e-04_rb,0.31086e-04_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.19172e-04_rb,0.21867e-04_rb,0.23409e-04_rb,0.24321e-04_rb,0.24529e-04_rb, &\n        & 0.23927e-04_rb,0.22333e-04_rb,0.18955e-04_rb,0.11218e-04_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.19419e-04_rb,0.23150e-04_rb,0.25412e-04_rb,0.26974e-04_rb,0.27574e-04_rb, &\n        & 0.27129e-04_rb,0.25625e-04_rb,0.22590e-04_rb,0.14082e-04_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.19636e-04_rb,0.24533e-04_rb,0.27708e-04_rb,0.29785e-04_rb,0.30733e-04_rb, &\n        & 0.30517e-04_rb,0.29114e-04_rb,0.26329e-04_rb,0.17293e-04_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.19836e-04_rb,0.26054e-04_rb,0.30093e-04_rb,0.32660e-04_rb,0.34002e-04_rb, &\n        & 0.34049e-04_rb,0.32819e-04_rb,0.30271e-04_rb,0.20869e-04_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.20002e-04_rb,0.27734e-04_rb,0.32461e-04_rb,0.35638e-04_rb,0.37355e-04_rb, &\n        & 0.37686e-04_rb,0.36788e-04_rb,0.34519e-04_rb,0.24769e-04_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.15886e-04_rb,0.18280e-04_rb,0.19557e-04_rb,0.20235e-04_rb,0.20297e-04_rb, &\n        & 0.19642e-04_rb,0.18202e-04_rb,0.15130e-04_rb,0.84335e-05_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.16105e-04_rb,0.19408e-04_rb,0.21322e-04_rb,0.22532e-04_rb,0.22888e-04_rb, &\n        & 0.22409e-04_rb,0.21064e-04_rb,0.18396e-04_rb,0.10766e-04_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.16304e-04_rb,0.20629e-04_rb,0.23329e-04_rb,0.24999e-04_rb,0.25612e-04_rb, &\n        & 0.25350e-04_rb,0.24115e-04_rb,0.21685e-04_rb,0.13408e-04_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.16482e-04_rb,0.21985e-04_rb,0.25409e-04_rb,0.27506e-04_rb,0.28475e-04_rb, &\n        & 0.28447e-04_rb,0.27347e-04_rb,0.25116e-04_rb,0.16377e-04_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.16621e-04_rb,0.23483e-04_rb,0.27507e-04_rb,0.30111e-04_rb,0.31449e-04_rb, &\n        & 0.31651e-04_rb,0.30823e-04_rb,0.28853e-04_rb,0.19647e-04_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.13104e-04_rb,0.15202e-04_rb,0.16227e-04_rb,0.16675e-04_rb,0.16618e-04_rb, &\n        & 0.15949e-04_rb,0.14642e-04_rb,0.11862e-04_rb,0.62741e-05_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.13296e-04_rb,0.16183e-04_rb,0.17762e-04_rb,0.18645e-04_rb,0.18799e-04_rb, &\n        & 0.18302e-04_rb,0.17108e-04_rb,0.14749e-04_rb,0.81431e-05_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.13475e-04_rb,0.17250e-04_rb,0.19501e-04_rb,0.20748e-04_rb,0.21144e-04_rb, &\n        & 0.20825e-04_rb,0.19726e-04_rb,0.17623e-04_rb,0.10291e-04_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.13631e-04_rb,0.18462e-04_rb,0.21319e-04_rb,0.22916e-04_rb,0.23622e-04_rb, &\n        & 0.23509e-04_rb,0.22509e-04_rb,0.20604e-04_rb,0.12727e-04_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.13752e-04_rb,0.19773e-04_rb,0.23162e-04_rb,0.25182e-04_rb,0.26210e-04_rb, &\n        & 0.26298e-04_rb,0.25526e-04_rb,0.23837e-04_rb,0.15433e-04_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.10771e-04_rb,0.12580e-04_rb,0.13349e-04_rb,0.13617e-04_rb,0.13459e-04_rb, &\n        & 0.12816e-04_rb,0.11635e-04_rb,0.90636e-05_rb,0.45849e-05_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.10937e-04_rb,0.13431e-04_rb,0.14667e-04_rb,0.15270e-04_rb,0.15289e-04_rb, &\n        & 0.14786e-04_rb,0.13720e-04_rb,0.11614e-04_rb,0.60707e-05_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.11095e-04_rb,0.14367e-04_rb,0.16153e-04_rb,0.17055e-04_rb,0.17287e-04_rb, &\n        & 0.16925e-04_rb,0.15948e-04_rb,0.14098e-04_rb,0.78037e-05_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.11230e-04_rb,0.15436e-04_rb,0.17715e-04_rb,0.18921e-04_rb,0.19404e-04_rb, &\n        & 0.19208e-04_rb,0.18318e-04_rb,0.16668e-04_rb,0.97810e-05_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.11337e-04_rb,0.16572e-04_rb,0.19310e-04_rb,0.20882e-04_rb,0.21623e-04_rb, &\n        & 0.21621e-04_rb,0.20902e-04_rb,0.19439e-04_rb,0.11994e-04_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.88397e-05_rb,0.10407e-04_rb,0.10992e-04_rb,0.11130e-04_rb,0.10914e-04_rb, &\n        & 0.10319e-04_rb,0.92746e-05_rb,0.69230e-05_rb,0.33878e-05_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.89820e-05_rb,0.11148e-04_rb,0.12114e-04_rb,0.12509e-04_rb,0.12455e-04_rb, &\n        & 0.11973e-04_rb,0.11026e-04_rb,0.91303e-05_rb,0.45777e-05_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.91201e-05_rb,0.11975e-04_rb,0.13369e-04_rb,0.14032e-04_rb,0.14150e-04_rb, &\n        & 0.13774e-04_rb,0.12899e-04_rb,0.11289e-04_rb,0.59718e-05_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.92338e-05_rb,0.12910e-04_rb,0.14708e-04_rb,0.15633e-04_rb,0.15947e-04_rb, &\n        & 0.15711e-04_rb,0.14916e-04_rb,0.13483e-04_rb,0.75778e-05_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.93270e-05_rb,0.13899e-04_rb,0.16089e-04_rb,0.17313e-04_rb,0.17838e-04_rb, &\n        & 0.17779e-04_rb,0.17126e-04_rb,0.15852e-04_rb,0.93849e-05_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.72957e-05_rb,0.88518e-05_rb,0.94180e-05_rb,0.95477e-05_rb,0.93627e-05_rb, &\n        & 0.88681e-05_rb,0.79846e-05_rb,0.60665e-05_rb,0.28938e-05_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.74164e-05_rb,0.95244e-05_rb,0.10413e-04_rb,0.10760e-04_rb,0.10725e-04_rb, &\n        & 0.10300e-04_rb,0.94914e-05_rb,0.79265e-05_rb,0.39145e-05_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.75267e-05_rb,0.10290e-04_rb,0.11516e-04_rb,0.12091e-04_rb,0.12186e-04_rb, &\n        & 0.11866e-04_rb,0.11116e-04_rb,0.97843e-05_rb,0.51152e-05_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.76165e-05_rb,0.11127e-04_rb,0.12682e-04_rb,0.13483e-04_rb,0.13746e-04_rb, &\n        & 0.13546e-04_rb,0.12885e-04_rb,0.11704e-04_rb,0.64876e-05_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.76866e-05_rb,0.11972e-04_rb,0.13896e-04_rb,0.14938e-04_rb,0.15405e-04_rb, &\n        & 0.15374e-04_rb,0.14838e-04_rb,0.13790e-04_rb,0.80319e-05_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.60137e-05_rb,0.75193e-05_rb,0.80348e-05_rb,0.81538e-05_rb,0.80064e-05_rb, &\n        & 0.75822e-05_rb,0.68354e-05_rb,0.52502e-05_rb,0.24674e-05_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.61150e-05_rb,0.81325e-05_rb,0.89089e-05_rb,0.92208e-05_rb,0.91831e-05_rb, &\n        & 0.88171e-05_rb,0.81283e-05_rb,0.68396e-05_rb,0.33429e-05_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.62020e-05_rb,0.88113e-05_rb,0.98818e-05_rb,0.10369e-04_rb,0.10440e-04_rb, &\n        & 0.10164e-04_rb,0.95355e-05_rb,0.84372e-05_rb,0.43683e-05_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.62729e-05_rb,0.95382e-05_rb,0.10890e-04_rb,0.11569e-04_rb,0.11793e-04_rb, &\n        & 0.11630e-04_rb,0.11082e-04_rb,0.10108e-04_rb,0.55358e-05_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.63199e-05_rb,0.10271e-04_rb,0.11934e-04_rb,0.12838e-04_rb,0.13254e-04_rb, &\n        & 0.13231e-04_rb,0.12796e-04_rb,0.11934e-04_rb,0.68492e-05_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.49517e-05_rb,0.63774e-05_rb,0.68261e-05_rb,0.69411e-05_rb,0.68151e-05_rb, &\n        & 0.64513e-05_rb,0.58220e-05_rb,0.45056e-05_rb,0.20980e-05_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.50331e-05_rb,0.69207e-05_rb,0.75990e-05_rb,0.78660e-05_rb,0.78231e-05_rb, &\n        & 0.75119e-05_rb,0.69333e-05_rb,0.58688e-05_rb,0.28426e-05_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.51036e-05_rb,0.75155e-05_rb,0.84393e-05_rb,0.88490e-05_rb,0.89047e-05_rb, &\n        & 0.86720e-05_rb,0.81449e-05_rb,0.72410e-05_rb,0.37114e-05_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.51548e-05_rb,0.81445e-05_rb,0.93105e-05_rb,0.98793e-05_rb,0.10078e-04_rb, &\n        & 0.99535e-05_rb,0.94951e-05_rb,0.86973e-05_rb,0.47002e-05_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.51867e-05_rb,0.87857e-05_rb,0.10211e-04_rb,0.10992e-04_rb,0.11352e-04_rb, &\n        & 0.11351e-04_rb,0.10990e-04_rb,0.10277e-04_rb,0.58153e-05_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.18292e-03_rb,0.16357e-03_rb,0.15341e-03_rb,0.14585e-03_rb,0.13797e-03_rb, &\n        & 0.12826e-03_rb,0.11477e-03_rb,0.99322e-04_rb,0.99311e-04_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.18277e-03_rb,0.16502e-03_rb,0.15805e-03_rb,0.15290e-03_rb,0.14696e-03_rb, &\n        & 0.13850e-03_rb,0.12664e-03_rb,0.11419e-03_rb,0.11887e-03_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.18261e-03_rb,0.16694e-03_rb,0.16322e-03_rb,0.16061e-03_rb,0.15658e-03_rb, &\n        & 0.14997e-03_rb,0.14010e-03_rb,0.13154e-03_rb,0.14123e-03_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.18244e-03_rb,0.16952e-03_rb,0.16897e-03_rb,0.16909e-03_rb,0.16740e-03_rb, &\n        & 0.16268e-03_rb,0.15556e-03_rb,0.15163e-03_rb,0.16610e-03_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.18218e-03_rb,0.17247e-03_rb,0.17521e-03_rb,0.17844e-03_rb,0.17911e-03_rb, &\n        & 0.17696e-03_rb,0.17241e-03_rb,0.17370e-03_rb,0.19290e-03_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.17473e-03_rb,0.15735e-03_rb,0.14910e-03_rb,0.14227e-03_rb,0.13471e-03_rb, &\n        & 0.12515e-03_rb,0.11200e-03_rb,0.94986e-04_rb,0.89520e-04_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.17467e-03_rb,0.15907e-03_rb,0.15401e-03_rb,0.14953e-03_rb,0.14402e-03_rb, &\n        & 0.13581e-03_rb,0.12401e-03_rb,0.10893e-03_rb,0.10811e-03_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.17463e-03_rb,0.16142e-03_rb,0.15942e-03_rb,0.15773e-03_rb,0.15417e-03_rb, &\n        & 0.14769e-03_rb,0.13747e-03_rb,0.12528e-03_rb,0.12924e-03_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.17449e-03_rb,0.16426e-03_rb,0.16549e-03_rb,0.16671e-03_rb,0.16541e-03_rb, &\n        & 0.16085e-03_rb,0.15263e-03_rb,0.14389e-03_rb,0.15270e-03_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.17439e-03_rb,0.16753e-03_rb,0.17238e-03_rb,0.17658e-03_rb,0.17759e-03_rb, &\n        & 0.17537e-03_rb,0.16910e-03_rb,0.16442e-03_rb,0.17796e-03_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.16429e-03_rb,0.14895e-03_rb,0.14201e-03_rb,0.13557e-03_rb,0.12797e-03_rb, &\n        & 0.11829e-03_rb,0.10548e-03_rb,0.88188e-04_rb,0.77280e-04_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.16436e-03_rb,0.15092e-03_rb,0.14708e-03_rb,0.14277e-03_rb,0.13731e-03_rb, &\n        & 0.12899e-03_rb,0.11719e-03_rb,0.10108e-03_rb,0.94071e-04_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.16438e-03_rb,0.15344e-03_rb,0.15259e-03_rb,0.15105e-03_rb,0.14760e-03_rb, &\n        & 0.14078e-03_rb,0.13037e-03_rb,0.11602e-03_rb,0.11331e-03_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.16440e-03_rb,0.15651e-03_rb,0.15877e-03_rb,0.16021e-03_rb,0.15883e-03_rb, &\n        & 0.15394e-03_rb,0.14519e-03_rb,0.13303e-03_rb,0.13463e-03_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.16444e-03_rb,0.16001e-03_rb,0.16595e-03_rb,0.17023e-03_rb,0.17105e-03_rb, &\n        & 0.16855e-03_rb,0.16116e-03_rb,0.15159e-03_rb,0.15764e-03_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.15195e-03_rb,0.13883e-03_rb,0.13294e-03_rb,0.12699e-03_rb,0.11928e-03_rb, &\n        & 0.10948e-03_rb,0.97355e-04_rb,0.80985e-04_rb,0.65303e-04_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.15212e-03_rb,0.14097e-03_rb,0.13802e-03_rb,0.13404e-03_rb,0.12836e-03_rb, &\n        & 0.11996e-03_rb,0.10855e-03_rb,0.92884e-04_rb,0.80285e-04_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.15229e-03_rb,0.14364e-03_rb,0.14356e-03_rb,0.14222e-03_rb,0.13844e-03_rb, &\n        & 0.13147e-03_rb,0.12124e-03_rb,0.10661e-03_rb,0.97473e-04_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.15247e-03_rb,0.14694e-03_rb,0.14987e-03_rb,0.15132e-03_rb,0.14947e-03_rb, &\n        & 0.14428e-03_rb,0.13562e-03_rb,0.12218e-03_rb,0.11647e-03_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.15268e-03_rb,0.15064e-03_rb,0.15719e-03_rb,0.16126e-03_rb,0.16162e-03_rb, &\n        & 0.15869e-03_rb,0.15101e-03_rb,0.13904e-03_rb,0.13733e-03_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.13846e-03_rb,0.12761e-03_rb,0.12265e-03_rb,0.11713e-03_rb,0.10945e-03_rb, &\n        & 0.10011e-03_rb,0.88713e-04_rb,0.73647e-04_rb,0.54834e-04_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.13872e-03_rb,0.12987e-03_rb,0.12766e-03_rb,0.12392e-03_rb,0.11814e-03_rb, &\n        & 0.11013e-03_rb,0.99375e-04_rb,0.84759e-04_rb,0.68007e-04_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.13899e-03_rb,0.13272e-03_rb,0.13319e-03_rb,0.13187e-03_rb,0.12795e-03_rb, &\n        & 0.12108e-03_rb,0.11145e-03_rb,0.97499e-04_rb,0.83096e-04_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.13930e-03_rb,0.13617e-03_rb,0.13955e-03_rb,0.14081e-03_rb,0.13862e-03_rb, &\n        & 0.13340e-03_rb,0.12522e-03_rb,0.11183e-03_rb,0.99891e-04_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.13961e-03_rb,0.13997e-03_rb,0.14692e-03_rb,0.15049e-03_rb,0.15045e-03_rb, &\n        & 0.14736e-03_rb,0.14024e-03_rb,0.12733e-03_rb,0.11865e-03_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.12419e-03_rb,0.11551e-03_rb,0.11132e-03_rb,0.10604e-03_rb,0.98912e-04_rb, &\n        & 0.90174e-04_rb,0.79553e-04_rb,0.65781e-04_rb,0.45228e-04_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.12454e-03_rb,0.11786e-03_rb,0.11619e-03_rb,0.11259e-03_rb,0.10704e-03_rb, &\n        & 0.99552e-04_rb,0.89546e-04_rb,0.76061e-04_rb,0.56748e-04_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.12490e-03_rb,0.12081e-03_rb,0.12161e-03_rb,0.12024e-03_rb,0.11632e-03_rb, &\n        & 0.10988e-03_rb,0.10081e-03_rb,0.87950e-04_rb,0.69901e-04_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.12528e-03_rb,0.12425e-03_rb,0.12796e-03_rb,0.12887e-03_rb,0.12649e-03_rb, &\n        & 0.12150e-03_rb,0.11381e-03_rb,0.10130e-03_rb,0.84575e-04_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.12568e-03_rb,0.12811e-03_rb,0.13519e-03_rb,0.13816e-03_rb,0.13780e-03_rb, &\n        & 0.13476e-03_rb,0.12819e-03_rb,0.11553e-03_rb,0.10091e-03_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.10978e-03_rb,0.10308e-03_rb,0.99508e-04_rb,0.94571e-04_rb,0.88120e-04_rb, &\n        & 0.80226e-04_rb,0.70492e-04_rb,0.57993e-04_rb,0.36699e-04_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.11018e-03_rb,0.10544e-03_rb,0.10415e-03_rb,0.10080e-03_rb,0.95769e-04_rb, &\n        & 0.88865e-04_rb,0.79698e-04_rb,0.67450e-04_rb,0.46683e-04_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.11058e-03_rb,0.10837e-03_rb,0.10936e-03_rb,0.10807e-03_rb,0.10453e-03_rb, &\n        & 0.98497e-04_rb,0.90104e-04_rb,0.78443e-04_rb,0.58212e-04_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.11104e-03_rb,0.11179e-03_rb,0.11551e-03_rb,0.11629e-03_rb,0.11409e-03_rb, &\n        & 0.10934e-03_rb,0.10217e-03_rb,0.90913e-04_rb,0.71131e-04_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.11149e-03_rb,0.11560e-03_rb,0.12257e-03_rb,0.12521e-03_rb,0.12472e-03_rb, &\n        & 0.12180e-03_rb,0.11572e-03_rb,0.10421e-03_rb,0.85542e-04_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.95759e-04_rb,0.90773e-04_rb,0.87806e-04_rb,0.83290e-04_rb,0.77515e-04_rb, &\n        & 0.70528e-04_rb,0.61795e-04_rb,0.50465e-04_rb,0.29380e-04_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.96189e-04_rb,0.93120e-04_rb,0.92132e-04_rb,0.89103e-04_rb,0.84653e-04_rb, &\n        & 0.78456e-04_rb,0.70159e-04_rb,0.59177e-04_rb,0.37867e-04_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.96665e-04_rb,0.96018e-04_rb,0.97008e-04_rb,0.95975e-04_rb,0.92760e-04_rb, &\n        & 0.87379e-04_rb,0.79687e-04_rb,0.69248e-04_rb,0.47855e-04_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.97168e-04_rb,0.99322e-04_rb,0.10289e-03_rb,0.10373e-03_rb,0.10169e-03_rb, &\n        & 0.97397e-04_rb,0.90796e-04_rb,0.80805e-04_rb,0.59240e-04_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.97641e-04_rb,0.10302e-03_rb,0.10967e-03_rb,0.11218e-03_rb,0.11166e-03_rb, &\n        & 0.10896e-03_rb,0.10343e-03_rb,0.93210e-04_rb,0.71998e-04_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.82482e-04_rb,0.78941e-04_rb,0.76398e-04_rb,0.72429e-04_rb,0.67369e-04_rb, &\n        & 0.61188e-04_rb,0.53486e-04_rb,0.43219e-04_rb,0.23144e-04_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.82941e-04_rb,0.81194e-04_rb,0.80391e-04_rb,0.77783e-04_rb,0.73924e-04_rb, &\n        & 0.68383e-04_rb,0.61055e-04_rb,0.51145e-04_rb,0.30235e-04_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.83462e-04_rb,0.83998e-04_rb,0.84977e-04_rb,0.84161e-04_rb,0.81323e-04_rb, &\n        & 0.76538e-04_rb,0.69739e-04_rb,0.60350e-04_rb,0.38714e-04_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.83976e-04_rb,0.87153e-04_rb,0.90583e-04_rb,0.91413e-04_rb,0.89589e-04_rb, &\n        & 0.85741e-04_rb,0.79900e-04_rb,0.70947e-04_rb,0.48553e-04_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.84461e-04_rb,0.90734e-04_rb,0.96938e-04_rb,0.99296e-04_rb,0.98864e-04_rb, &\n        & 0.96399e-04_rb,0.91511e-04_rb,0.82490e-04_rb,0.59777e-04_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.70371e-04_rb,0.68110e-04_rb,0.65986e-04_rb,0.62636e-04_rb,0.58303e-04_rb, &\n        & 0.52961e-04_rb,0.46122e-04_rb,0.37036e-04_rb,0.18341e-04_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.70853e-04_rb,0.70288e-04_rb,0.69669e-04_rb,0.67543e-04_rb,0.64271e-04_rb, &\n        & 0.59496e-04_rb,0.53052e-04_rb,0.44224e-04_rb,0.24306e-04_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.71373e-04_rb,0.72956e-04_rb,0.74034e-04_rb,0.73423e-04_rb,0.71076e-04_rb, &\n        & 0.66934e-04_rb,0.61048e-04_rb,0.52623e-04_rb,0.31537e-04_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.71862e-04_rb,0.75946e-04_rb,0.79283e-04_rb,0.80149e-04_rb,0.78712e-04_rb, &\n        & 0.75412e-04_rb,0.70399e-04_rb,0.62323e-04_rb,0.40041e-04_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.72376e-04_rb,0.79405e-04_rb,0.85220e-04_rb,0.87544e-04_rb,0.87332e-04_rb, &\n        & 0.85268e-04_rb,0.81104e-04_rb,0.73085e-04_rb,0.49845e-04_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.59776e-04_rb,0.59155e-04_rb,0.57996e-04_rb,0.55642e-04_rb,0.52323e-04_rb, &\n        & 0.47930e-04_rb,0.42036e-04_rb,0.34179e-04_rb,0.16514e-04_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.60275e-04_rb,0.61436e-04_rb,0.61654e-04_rb,0.60490e-04_rb,0.58055e-04_rb, &\n        & 0.54242e-04_rb,0.48750e-04_rb,0.41144e-04_rb,0.21987e-04_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.60746e-04_rb,0.64075e-04_rb,0.66078e-04_rb,0.66233e-04_rb,0.64629e-04_rb, &\n        & 0.61455e-04_rb,0.56611e-04_rb,0.49290e-04_rb,0.28648e-04_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.61244e-04_rb,0.67066e-04_rb,0.71217e-04_rb,0.72696e-04_rb,0.72050e-04_rb, &\n        & 0.69816e-04_rb,0.65797e-04_rb,0.58590e-04_rb,0.36515e-04_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.61769e-04_rb,0.70693e-04_rb,0.76979e-04_rb,0.79872e-04_rb,0.80561e-04_rb, &\n        & 0.79478e-04_rb,0.76089e-04_rb,0.68898e-04_rb,0.45628e-04_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.50518e-04_rb,0.51187e-04_rb,0.50822e-04_rb,0.49284e-04_rb,0.46769e-04_rb, &\n        & 0.43097e-04_rb,0.38110e-04_rb,0.31379e-04_rb,0.14783e-04_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.50964e-04_rb,0.53463e-04_rb,0.54457e-04_rb,0.54020e-04_rb,0.52266e-04_rb, &\n        & 0.49174e-04_rb,0.44595e-04_rb,0.38042e-04_rb,0.19796e-04_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.51421e-04_rb,0.56033e-04_rb,0.58762e-04_rb,0.59481e-04_rb,0.58578e-04_rb, &\n        & 0.56207e-04_rb,0.52260e-04_rb,0.45820e-04_rb,0.25919e-04_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.51920e-04_rb,0.59121e-04_rb,0.63731e-04_rb,0.65674e-04_rb,0.65806e-04_rb, &\n        & 0.64464e-04_rb,0.61120e-04_rb,0.54677e-04_rb,0.33164e-04_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.52396e-04_rb,0.62780e-04_rb,0.69274e-04_rb,0.72637e-04_rb,0.74145e-04_rb, &\n        & 0.73831e-04_rb,0.71039e-04_rb,0.64514e-04_rb,0.41597e-04_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.42486e-04_rb,0.44174e-04_rb,0.44463e-04_rb,0.43555e-04_rb,0.41568e-04_rb, &\n        & 0.38563e-04_rb,0.34384e-04_rb,0.28625e-04_rb,0.13171e-04_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.42904e-04_rb,0.46376e-04_rb,0.47979e-04_rb,0.48065e-04_rb,0.46867e-04_rb, &\n        & 0.44391e-04_rb,0.40615e-04_rb,0.34938e-04_rb,0.17746e-04_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.43349e-04_rb,0.48965e-04_rb,0.52137e-04_rb,0.53262e-04_rb,0.52962e-04_rb, &\n        & 0.51246e-04_rb,0.47996e-04_rb,0.42282e-04_rb,0.23342e-04_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.43790e-04_rb,0.52076e-04_rb,0.56889e-04_rb,0.59186e-04_rb,0.60002e-04_rb, &\n        & 0.59254e-04_rb,0.56460e-04_rb,0.50705e-04_rb,0.29999e-04_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.44254e-04_rb,0.55629e-04_rb,0.62209e-04_rb,0.65993e-04_rb,0.68105e-04_rb, &\n        & 0.68270e-04_rb,0.65941e-04_rb,0.60145e-04_rb,0.37728e-04_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.42864e-03_rb,0.37538e-03_rb,0.32907e-03_rb,0.29701e-03_rb,0.26399e-03_rb, &\n        & 0.23587e-03_rb,0.21519e-03_rb,0.20736e-03_rb,0.23690e-03_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.42770e-03_rb,0.37463e-03_rb,0.33468e-03_rb,0.30443e-03_rb,0.27635e-03_rb, &\n        & 0.25424e-03_rb,0.24068e-03_rb,0.24289e-03_rb,0.27885e-03_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.42742e-03_rb,0.37444e-03_rb,0.34109e-03_rb,0.31378e-03_rb,0.29265e-03_rb, &\n        & 0.27618e-03_rb,0.26729e-03_rb,0.27967e-03_rb,0.32090e-03_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.42756e-03_rb,0.37461e-03_rb,0.34714e-03_rb,0.32647e-03_rb,0.30721e-03_rb, &\n        & 0.29888e-03_rb,0.29503e-03_rb,0.31853e-03_rb,0.36629e-03_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.42817e-03_rb,0.37676e-03_rb,0.35506e-03_rb,0.34027e-03_rb,0.32593e-03_rb, &\n        & 0.32117e-03_rb,0.33159e-03_rb,0.36650e-03_rb,0.42307e-03_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.44647e-03_rb,0.39099e-03_rb,0.34399e-03_rb,0.31315e-03_rb,0.27681e-03_rb, &\n        & 0.24757e-03_rb,0.21977e-03_rb,0.20260e-03_rb,0.22465e-03_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.44675e-03_rb,0.39126e-03_rb,0.35094e-03_rb,0.32069e-03_rb,0.29009e-03_rb, &\n        & 0.26696e-03_rb,0.24338e-03_rb,0.23431e-03_rb,0.26448e-03_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.44728e-03_rb,0.39176e-03_rb,0.35848e-03_rb,0.33002e-03_rb,0.30752e-03_rb, &\n        & 0.28763e-03_rb,0.26835e-03_rb,0.26923e-03_rb,0.30805e-03_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.44805e-03_rb,0.39321e-03_rb,0.36547e-03_rb,0.34473e-03_rb,0.32431e-03_rb, &\n        & 0.30833e-03_rb,0.29659e-03_rb,0.31021e-03_rb,0.35789e-03_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.44833e-03_rb,0.39641e-03_rb,0.37373e-03_rb,0.35955e-03_rb,0.34286e-03_rb, &\n        & 0.33059e-03_rb,0.33253e-03_rb,0.36056e-03_rb,0.41785e-03_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.45575e-03_rb,0.39903e-03_rb,0.35239e-03_rb,0.32061e-03_rb,0.28610e-03_rb, &\n        & 0.25358e-03_rb,0.22160e-03_rb,0.19044e-03_rb,0.19754e-03_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.45658e-03_rb,0.39983e-03_rb,0.35980e-03_rb,0.32984e-03_rb,0.29898e-03_rb, &\n        & 0.27505e-03_rb,0.24328e-03_rb,0.21905e-03_rb,0.23515e-03_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.45737e-03_rb,0.40126e-03_rb,0.36866e-03_rb,0.34025e-03_rb,0.31808e-03_rb, &\n        & 0.29648e-03_rb,0.26565e-03_rb,0.25100e-03_rb,0.27824e-03_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.45822e-03_rb,0.40344e-03_rb,0.37727e-03_rb,0.35639e-03_rb,0.33753e-03_rb, &\n        & 0.31544e-03_rb,0.29107e-03_rb,0.29011e-03_rb,0.33040e-03_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.45803e-03_rb,0.40724e-03_rb,0.38685e-03_rb,0.37303e-03_rb,0.35804e-03_rb, &\n        & 0.33477e-03_rb,0.32542e-03_rb,0.34063e-03_rb,0.39188e-03_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.45696e-03_rb,0.40009e-03_rb,0.35533e-03_rb,0.32134e-03_rb,0.28977e-03_rb, &\n        & 0.25642e-03_rb,0.22005e-03_rb,0.17825e-03_rb,0.16960e-03_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.45799e-03_rb,0.40164e-03_rb,0.36303e-03_rb,0.33235e-03_rb,0.30343e-03_rb, &\n        & 0.27796e-03_rb,0.24341e-03_rb,0.20303e-03_rb,0.20347e-03_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.45889e-03_rb,0.40391e-03_rb,0.37251e-03_rb,0.34409e-03_rb,0.32396e-03_rb, &\n        & 0.30068e-03_rb,0.26403e-03_rb,0.23112e-03_rb,0.24434e-03_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.45955e-03_rb,0.40640e-03_rb,0.38203e-03_rb,0.36158e-03_rb,0.34561e-03_rb, &\n        & 0.32162e-03_rb,0.28613e-03_rb,0.26715e-03_rb,0.29513e-03_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.45899e-03_rb,0.41016e-03_rb,0.39290e-03_rb,0.38024e-03_rb,0.36719e-03_rb, &\n        & 0.34183e-03_rb,0.31736e-03_rb,0.31348e-03_rb,0.35430e-03_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.44860e-03_rb,0.39309e-03_rb,0.35143e-03_rb,0.31765e-03_rb,0.28887e-03_rb, &\n        & 0.25439e-03_rb,0.21652e-03_rb,0.16876e-03_rb,0.14333e-03_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.45003e-03_rb,0.39579e-03_rb,0.35959e-03_rb,0.33075e-03_rb,0.30371e-03_rb, &\n        & 0.27559e-03_rb,0.24058e-03_rb,0.19058e-03_rb,0.17442e-03_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.45146e-03_rb,0.39890e-03_rb,0.36951e-03_rb,0.34437e-03_rb,0.32442e-03_rb, &\n        & 0.30040e-03_rb,0.26223e-03_rb,0.21520e-03_rb,0.21295e-03_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.45218e-03_rb,0.40151e-03_rb,0.38022e-03_rb,0.36228e-03_rb,0.34802e-03_rb, &\n        & 0.32336e-03_rb,0.28327e-03_rb,0.24766e-03_rb,0.26132e-03_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.45207e-03_rb,0.40582e-03_rb,0.39175e-03_rb,0.38293e-03_rb,0.37072e-03_rb, &\n        & 0.34500e-03_rb,0.31037e-03_rb,0.29012e-03_rb,0.31661e-03_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.43374e-03_rb,0.38081e-03_rb,0.34182e-03_rb,0.31060e-03_rb,0.28045e-03_rb, &\n        & 0.24697e-03_rb,0.20889e-03_rb,0.16055e-03_rb,0.12036e-03_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.43531e-03_rb,0.38407e-03_rb,0.35000e-03_rb,0.32358e-03_rb,0.29721e-03_rb, &\n        & 0.26821e-03_rb,0.23298e-03_rb,0.18104e-03_rb,0.14668e-03_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.43706e-03_rb,0.38738e-03_rb,0.35982e-03_rb,0.33840e-03_rb,0.31879e-03_rb, &\n        & 0.29390e-03_rb,0.25605e-03_rb,0.20200e-03_rb,0.18191e-03_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.43807e-03_rb,0.39050e-03_rb,0.37037e-03_rb,0.35740e-03_rb,0.34372e-03_rb, &\n        & 0.31863e-03_rb,0.27734e-03_rb,0.23003e-03_rb,0.22665e-03_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.43877e-03_rb,0.39551e-03_rb,0.38302e-03_rb,0.38004e-03_rb,0.36796e-03_rb, &\n        & 0.34140e-03_rb,0.30328e-03_rb,0.26832e-03_rb,0.27676e-03_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.41256e-03_rb,0.36341e-03_rb,0.32806e-03_rb,0.30023e-03_rb,0.26855e-03_rb, &\n        & 0.23444e-03_rb,0.19788e-03_rb,0.15062e-03_rb,0.10262e-03_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.41482e-03_rb,0.36772e-03_rb,0.33624e-03_rb,0.31297e-03_rb,0.28556e-03_rb, &\n        & 0.25627e-03_rb,0.22127e-03_rb,0.17072e-03_rb,0.12601e-03_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.41718e-03_rb,0.37142e-03_rb,0.34661e-03_rb,0.32744e-03_rb,0.30719e-03_rb, &\n        & 0.28254e-03_rb,0.24553e-03_rb,0.19044e-03_rb,0.15628e-03_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.41872e-03_rb,0.37555e-03_rb,0.35755e-03_rb,0.34713e-03_rb,0.33306e-03_rb, &\n        & 0.30832e-03_rb,0.26791e-03_rb,0.21481e-03_rb,0.19464e-03_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.42048e-03_rb,0.38195e-03_rb,0.37042e-03_rb,0.37076e-03_rb,0.35893e-03_rb, &\n        & 0.33177e-03_rb,0.29351e-03_rb,0.24858e-03_rb,0.23890e-03_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.38528e-03_rb,0.34132e-03_rb,0.30950e-03_rb,0.28435e-03_rb,0.25387e-03_rb, &\n        & 0.21998e-03_rb,0.18381e-03_rb,0.13995e-03_rb,0.86291e-04_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.38813e-03_rb,0.34604e-03_rb,0.31840e-03_rb,0.29716e-03_rb,0.26994e-03_rb, &\n        & 0.24125e-03_rb,0.20696e-03_rb,0.15919e-03_rb,0.10863e-03_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.39073e-03_rb,0.35038e-03_rb,0.33010e-03_rb,0.31128e-03_rb,0.29227e-03_rb, &\n        & 0.26641e-03_rb,0.23195e-03_rb,0.17813e-03_rb,0.13616e-03_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.39281e-03_rb,0.35556e-03_rb,0.34140e-03_rb,0.33132e-03_rb,0.31814e-03_rb, &\n        & 0.29308e-03_rb,0.25493e-03_rb,0.20064e-03_rb,0.16931e-03_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.39565e-03_rb,0.36362e-03_rb,0.35480e-03_rb,0.35632e-03_rb,0.34483e-03_rb, &\n        & 0.31779e-03_rb,0.27994e-03_rb,0.23183e-03_rb,0.20721e-03_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.35353e-03_rb,0.31534e-03_rb,0.28844e-03_rb,0.26382e-03_rb,0.23534e-03_rb, &\n        & 0.20347e-03_rb,0.16850e-03_rb,0.12923e-03_rb,0.71856e-04_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.35704e-03_rb,0.32078e-03_rb,0.29797e-03_rb,0.27689e-03_rb,0.25047e-03_rb, &\n        & 0.22397e-03_rb,0.19066e-03_rb,0.14773e-03_rb,0.92561e-04_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.36000e-03_rb,0.32561e-03_rb,0.31012e-03_rb,0.29082e-03_rb,0.27253e-03_rb, &\n        & 0.24851e-03_rb,0.21457e-03_rb,0.16607e-03_rb,0.11811e-03_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.36298e-03_rb,0.33189e-03_rb,0.32100e-03_rb,0.31077e-03_rb,0.29911e-03_rb, &\n        & 0.27480e-03_rb,0.23785e-03_rb,0.18730e-03_rb,0.14849e-03_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.36645e-03_rb,0.34041e-03_rb,0.33535e-03_rb,0.33583e-03_rb,0.32646e-03_rb, &\n        & 0.29975e-03_rb,0.26277e-03_rb,0.21618e-03_rb,0.18220e-03_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.31882e-03_rb,0.28657e-03_rb,0.26462e-03_rb,0.24132e-03_rb,0.21534e-03_rb, &\n        & 0.18636e-03_rb,0.15549e-03_rb,0.11817e-03_rb,0.60706e-04_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.32301e-03_rb,0.29267e-03_rb,0.27519e-03_rb,0.25478e-03_rb,0.23046e-03_rb, &\n        & 0.20560e-03_rb,0.17582e-03_rb,0.13638e-03_rb,0.79531e-04_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.32639e-03_rb,0.29816e-03_rb,0.28709e-03_rb,0.26927e-03_rb,0.25170e-03_rb, &\n        & 0.23027e-03_rb,0.19794e-03_rb,0.15520e-03_rb,0.10253e-03_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.33008e-03_rb,0.30559e-03_rb,0.29823e-03_rb,0.28948e-03_rb,0.27786e-03_rb, &\n        & 0.25639e-03_rb,0.22020e-03_rb,0.17621e-03_rb,0.13035e-03_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.33429e-03_rb,0.31481e-03_rb,0.31383e-03_rb,0.31396e-03_rb,0.30544e-03_rb, &\n        & 0.28143e-03_rb,0.24487e-03_rb,0.20336e-03_rb,0.16246e-03_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.28433e-03_rb,0.25922e-03_rb,0.24227e-03_rb,0.22327e-03_rb,0.20067e-03_rb, &\n        & 0.17618e-03_rb,0.15050e-03_rb,0.11425e-03_rb,0.57921e-04_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.28828e-03_rb,0.26532e-03_rb,0.25425e-03_rb,0.23723e-03_rb,0.21797e-03_rb, &\n        & 0.19695e-03_rb,0.17056e-03_rb,0.13252e-03_rb,0.76361e-04_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.29236e-03_rb,0.27228e-03_rb,0.26588e-03_rb,0.25415e-03_rb,0.24099e-03_rb, &\n        & 0.22135e-03_rb,0.19174e-03_rb,0.15232e-03_rb,0.98360e-04_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.29717e-03_rb,0.28209e-03_rb,0.27970e-03_rb,0.27650e-03_rb,0.26714e-03_rb, &\n        & 0.24681e-03_rb,0.21371e-03_rb,0.17631e-03_rb,0.12518e-03_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.30177e-03_rb,0.29180e-03_rb,0.29905e-03_rb,0.30274e-03_rb,0.29362e-03_rb, &\n        & 0.27208e-03_rb,0.24087e-03_rb,0.20461e-03_rb,0.15616e-03_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.24998e-03_rb,0.23220e-03_rb,0.21962e-03_rb,0.20418e-03_rb,0.18598e-03_rb, &\n        & 0.16635e-03_rb,0.14319e-03_rb,0.11002e-03_rb,0.54657e-04_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.25422e-03_rb,0.23880e-03_rb,0.23171e-03_rb,0.21907e-03_rb,0.20484e-03_rb, &\n        & 0.18724e-03_rb,0.16371e-03_rb,0.12837e-03_rb,0.72183e-04_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.25909e-03_rb,0.24827e-03_rb,0.24443e-03_rb,0.23867e-03_rb,0.22868e-03_rb, &\n        & 0.21084e-03_rb,0.18482e-03_rb,0.14974e-03_rb,0.93395e-04_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.26399e-03_rb,0.25851e-03_rb,0.26208e-03_rb,0.26298e-03_rb,0.25438e-03_rb, &\n        & 0.23482e-03_rb,0.20834e-03_rb,0.17589e-03_rb,0.11924e-03_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.26914e-03_rb,0.26866e-03_rb,0.28401e-03_rb,0.28945e-03_rb,0.28022e-03_rb, &\n        & 0.26150e-03_rb,0.23750e-03_rb,0.20542e-03_rb,0.14923e-03_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.21751e-03_rb,0.20608e-03_rb,0.19731e-03_rb,0.18540e-03_rb,0.17208e-03_rb, &\n        & 0.15624e-03_rb,0.13474e-03_rb,0.10527e-03_rb,0.50953e-04_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.22228e-03_rb,0.21439e-03_rb,0.20968e-03_rb,0.20158e-03_rb,0.19151e-03_rb, &\n        & 0.17720e-03_rb,0.15564e-03_rb,0.12461e-03_rb,0.67516e-04_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.22727e-03_rb,0.22462e-03_rb,0.22474e-03_rb,0.22318e-03_rb,0.21469e-03_rb, &\n        & 0.19989e-03_rb,0.17790e-03_rb,0.14782e-03_rb,0.88180e-04_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.23242e-03_rb,0.23488e-03_rb,0.24462e-03_rb,0.24805e-03_rb,0.24003e-03_rb, &\n        & 0.22364e-03_rb,0.20382e-03_rb,0.17470e-03_rb,0.11335e-03_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.23819e-03_rb,0.24692e-03_rb,0.26797e-03_rb,0.27413e-03_rb,0.26611e-03_rb, &\n        & 0.25207e-03_rb,0.23456e-03_rb,0.20493e-03_rb,0.14302e-03_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.54188e-03_rb,0.47438e-03_rb,0.41220e-03_rb,0.36319e-03_rb,0.32177e-03_rb, &\n        & 0.28178e-03_rb,0.26195e-03_rb,0.26768e-03_rb,0.30988e-03_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.53863e-03_rb,0.47157e-03_rb,0.41235e-03_rb,0.37142e-03_rb,0.33314e-03_rb, &\n        & 0.30667e-03_rb,0.29622e-03_rb,0.31573e-03_rb,0.36594e-03_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.53537e-03_rb,0.46873e-03_rb,0.41881e-03_rb,0.37881e-03_rb,0.35190e-03_rb, &\n        & 0.33275e-03_rb,0.33720e-03_rb,0.36928e-03_rb,0.42810e-03_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.53255e-03_rb,0.46630e-03_rb,0.42443e-03_rb,0.38945e-03_rb,0.37640e-03_rb, &\n        & 0.36424e-03_rb,0.38086e-03_rb,0.42782e-03_rb,0.49486e-03_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.53016e-03_rb,0.46423e-03_rb,0.43029e-03_rb,0.40524e-03_rb,0.39835e-03_rb, &\n        & 0.40134e-03_rb,0.42785e-03_rb,0.48998e-03_rb,0.56469e-03_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.58031e-03_rb,0.50799e-03_rb,0.44209e-03_rb,0.39038e-03_rb,0.34592e-03_rb, &\n        & 0.30091e-03_rb,0.27060e-03_rb,0.26179e-03_rb,0.30262e-03_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.57783e-03_rb,0.50583e-03_rb,0.44303e-03_rb,0.40158e-03_rb,0.35771e-03_rb, &\n        & 0.32458e-03_rb,0.30412e-03_rb,0.31051e-03_rb,0.36041e-03_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.57540e-03_rb,0.50373e-03_rb,0.45070e-03_rb,0.41078e-03_rb,0.37604e-03_rb, &\n        & 0.34973e-03_rb,0.34205e-03_rb,0.36376e-03_rb,0.42111e-03_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.57390e-03_rb,0.50246e-03_rb,0.45850e-03_rb,0.42273e-03_rb,0.40005e-03_rb, &\n        & 0.37925e-03_rb,0.38380e-03_rb,0.42075e-03_rb,0.48570e-03_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.57251e-03_rb,0.50128e-03_rb,0.46686e-03_rb,0.44000e-03_rb,0.42177e-03_rb, &\n        & 0.41338e-03_rb,0.42764e-03_rb,0.47996e-03_rb,0.55489e-03_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.61606e-03_rb,0.53921e-03_rb,0.46963e-03_rb,0.41409e-03_rb,0.36561e-03_rb, &\n        & 0.31888e-03_rb,0.27397e-03_rb,0.24837e-03_rb,0.28056e-03_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.61406e-03_rb,0.53752e-03_rb,0.47091e-03_rb,0.42713e-03_rb,0.37975e-03_rb, &\n        & 0.33844e-03_rb,0.30659e-03_rb,0.29320e-03_rb,0.33782e-03_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.61257e-03_rb,0.53626e-03_rb,0.47829e-03_rb,0.43902e-03_rb,0.39761e-03_rb, &\n        & 0.36364e-03_rb,0.34206e-03_rb,0.34371e-03_rb,0.39648e-03_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.61154e-03_rb,0.53538e-03_rb,0.48822e-03_rb,0.45223e-03_rb,0.42130e-03_rb, &\n        & 0.39347e-03_rb,0.37907e-03_rb,0.39708e-03_rb,0.45765e-03_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.61140e-03_rb,0.53529e-03_rb,0.49797e-03_rb,0.47117e-03_rb,0.44115e-03_rb, &\n        & 0.42497e-03_rb,0.41979e-03_rb,0.45564e-03_rb,0.52659e-03_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.64443e-03_rb,0.56411e-03_rb,0.49232e-03_rb,0.43467e-03_rb,0.38190e-03_rb, &\n        & 0.33277e-03_rb,0.27825e-03_rb,0.23501e-03_rb,0.25182e-03_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.64292e-03_rb,0.56277e-03_rb,0.49409e-03_rb,0.44787e-03_rb,0.39817e-03_rb, &\n        & 0.35161e-03_rb,0.30747e-03_rb,0.27717e-03_rb,0.30629e-03_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.64243e-03_rb,0.56236e-03_rb,0.50119e-03_rb,0.46200e-03_rb,0.41580e-03_rb, &\n        & 0.37809e-03_rb,0.34162e-03_rb,0.32168e-03_rb,0.36251e-03_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.64248e-03_rb,0.56245e-03_rb,0.51257e-03_rb,0.47612e-03_rb,0.44107e-03_rb, &\n        & 0.40610e-03_rb,0.37659e-03_rb,0.36992e-03_rb,0.42339e-03_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.64345e-03_rb,0.56414e-03_rb,0.52333e-03_rb,0.49621e-03_rb,0.46345e-03_rb, &\n        & 0.43530e-03_rb,0.41388e-03_rb,0.42704e-03_rb,0.49356e-03_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.66205e-03_rb,0.57941e-03_rb,0.50732e-03_rb,0.44788e-03_rb,0.39504e-03_rb, &\n        & 0.34261e-03_rb,0.28274e-03_rb,0.22440e-03_rb,0.22048e-03_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.66163e-03_rb,0.57912e-03_rb,0.51033e-03_rb,0.46104e-03_rb,0.41289e-03_rb, &\n        & 0.36220e-03_rb,0.30969e-03_rb,0.26291e-03_rb,0.27073e-03_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.66197e-03_rb,0.57946e-03_rb,0.51799e-03_rb,0.47594e-03_rb,0.43132e-03_rb, &\n        & 0.39012e-03_rb,0.34192e-03_rb,0.30335e-03_rb,0.32369e-03_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.66310e-03_rb,0.58124e-03_rb,0.52962e-03_rb,0.49191e-03_rb,0.45677e-03_rb, &\n        & 0.42022e-03_rb,0.37529e-03_rb,0.34603e-03_rb,0.38247e-03_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.66411e-03_rb,0.58365e-03_rb,0.54225e-03_rb,0.51373e-03_rb,0.48391e-03_rb, &\n        & 0.44802e-03_rb,0.41016e-03_rb,0.39855e-03_rb,0.45388e-03_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.66761e-03_rb,0.58431e-03_rb,0.51405e-03_rb,0.45280e-03_rb,0.40155e-03_rb, &\n        & 0.34610e-03_rb,0.28249e-03_rb,0.21395e-03_rb,0.18888e-03_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.66804e-03_rb,0.58472e-03_rb,0.51807e-03_rb,0.46619e-03_rb,0.41922e-03_rb, &\n        & 0.36797e-03_rb,0.30908e-03_rb,0.24851e-03_rb,0.23408e-03_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.66946e-03_rb,0.58664e-03_rb,0.52673e-03_rb,0.48103e-03_rb,0.43940e-03_rb, &\n        & 0.39605e-03_rb,0.34204e-03_rb,0.28507e-03_rb,0.28224e-03_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.67150e-03_rb,0.59004e-03_rb,0.53959e-03_rb,0.49825e-03_rb,0.46612e-03_rb, &\n        & 0.42814e-03_rb,0.37432e-03_rb,0.32325e-03_rb,0.33817e-03_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.67315e-03_rb,0.59352e-03_rb,0.55351e-03_rb,0.52125e-03_rb,0.49748e-03_rb, &\n        & 0.45943e-03_rb,0.40603e-03_rb,0.37064e-03_rb,0.40786e-03_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.65825e-03_rb,0.57610e-03_rb,0.50973e-03_rb,0.44919e-03_rb,0.40091e-03_rb, &\n        & 0.34393e-03_rb,0.27863e-03_rb,0.20584e-03_rb,0.15896e-03_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.66067e-03_rb,0.57854e-03_rb,0.51604e-03_rb,0.46345e-03_rb,0.41921e-03_rb, &\n        & 0.36628e-03_rb,0.30597e-03_rb,0.23625e-03_rb,0.19866e-03_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.66419e-03_rb,0.58318e-03_rb,0.52599e-03_rb,0.48043e-03_rb,0.43994e-03_rb, &\n        & 0.39562e-03_rb,0.33865e-03_rb,0.26970e-03_rb,0.24286e-03_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.66717e-03_rb,0.58792e-03_rb,0.54016e-03_rb,0.49893e-03_rb,0.46857e-03_rb, &\n        & 0.43005e-03_rb,0.37266e-03_rb,0.30411e-03_rb,0.29541e-03_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.67024e-03_rb,0.59309e-03_rb,0.55482e-03_rb,0.52246e-03_rb,0.50380e-03_rb, &\n        & 0.46446e-03_rb,0.40297e-03_rb,0.34641e-03_rb,0.36121e-03_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.63858e-03_rb,0.55888e-03_rb,0.49736e-03_rb,0.43942e-03_rb,0.39082e-03_rb, &\n        & 0.33512e-03_rb,0.27058e-03_rb,0.19736e-03_rb,0.13589e-03_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.64324e-03_rb,0.56410e-03_rb,0.50530e-03_rb,0.45504e-03_rb,0.41149e-03_rb, &\n        & 0.35701e-03_rb,0.29879e-03_rb,0.22618e-03_rb,0.16884e-03_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.64790e-03_rb,0.57033e-03_rb,0.51640e-03_rb,0.47474e-03_rb,0.43226e-03_rb, &\n        & 0.38846e-03_rb,0.33154e-03_rb,0.25769e-03_rb,0.20679e-03_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.65242e-03_rb,0.57688e-03_rb,0.53191e-03_rb,0.49447e-03_rb,0.46234e-03_rb, &\n        & 0.42468e-03_rb,0.36669e-03_rb,0.28907e-03_rb,0.25449e-03_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.65716e-03_rb,0.58346e-03_rb,0.54799e-03_rb,0.51859e-03_rb,0.49982e-03_rb, &\n        & 0.46218e-03_rb,0.39875e-03_rb,0.32573e-03_rb,0.31655e-03_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.61155e-03_rb,0.53549e-03_rb,0.47878e-03_rb,0.42579e-03_rb,0.37499e-03_rb, &\n        & 0.31961e-03_rb,0.25793e-03_rb,0.18655e-03_rb,0.11490e-03_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.61794e-03_rb,0.54314e-03_rb,0.48878e-03_rb,0.44250e-03_rb,0.39687e-03_rb, &\n        & 0.34151e-03_rb,0.28569e-03_rb,0.21436e-03_rb,0.14511e-03_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.62338e-03_rb,0.55078e-03_rb,0.50083e-03_rb,0.46354e-03_rb,0.41796e-03_rb, &\n        & 0.37306e-03_rb,0.31954e-03_rb,0.24508e-03_rb,0.17854e-03_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.62936e-03_rb,0.55894e-03_rb,0.51722e-03_rb,0.48335e-03_rb,0.44775e-03_rb, &\n        & 0.41130e-03_rb,0.35579e-03_rb,0.27533e-03_rb,0.21988e-03_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.63545e-03_rb,0.56698e-03_rb,0.53473e-03_rb,0.50887e-03_rb,0.48603e-03_rb, &\n        & 0.45259e-03_rb,0.39001e-03_rb,0.30792e-03_rb,0.27464e-03_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.57726e-03_rb,0.50676e-03_rb,0.45606e-03_rb,0.40779e-03_rb,0.35629e-03_rb, &\n        & 0.30220e-03_rb,0.24273e-03_rb,0.17731e-03_rb,0.97262e-04_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.58382e-03_rb,0.51548e-03_rb,0.46729e-03_rb,0.42570e-03_rb,0.37915e-03_rb, &\n        & 0.32497e-03_rb,0.26965e-03_rb,0.20381e-03_rb,0.12529e-03_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.59071e-03_rb,0.52512e-03_rb,0.48044e-03_rb,0.44753e-03_rb,0.40142e-03_rb, &\n        & 0.35504e-03_rb,0.30526e-03_rb,0.23284e-03_rb,0.15783e-03_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.59829e-03_rb,0.53444e-03_rb,0.49886e-03_rb,0.46810e-03_rb,0.43172e-03_rb, &\n        & 0.39380e-03_rb,0.34313e-03_rb,0.26284e-03_rb,0.19647e-03_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.60558e-03_rb,0.54444e-03_rb,0.51788e-03_rb,0.49497e-03_rb,0.47022e-03_rb, &\n        & 0.43733e-03_rb,0.37954e-03_rb,0.29404e-03_rb,0.24439e-03_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.53880e-03_rb,0.47669e-03_rb,0.43422e-03_rb,0.39066e-03_rb,0.34441e-03_rb, &\n        & 0.29300e-03_rb,0.23722e-03_rb,0.17846e-03_rb,0.93053e-04_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.54672e-03_rb,0.48762e-03_rb,0.44694e-03_rb,0.41155e-03_rb,0.36791e-03_rb, &\n        & 0.31854e-03_rb,0.26663e-03_rb,0.20551e-03_rb,0.12100e-03_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.55543e-03_rb,0.49853e-03_rb,0.46450e-03_rb,0.43411e-03_rb,0.39364e-03_rb, &\n        & 0.35233e-03_rb,0.30378e-03_rb,0.23442e-03_rb,0.15474e-03_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.56418e-03_rb,0.50955e-03_rb,0.48543e-03_rb,0.45785e-03_rb,0.42947e-03_rb, &\n        & 0.39274e-03_rb,0.34329e-03_rb,0.26304e-03_rb,0.19545e-03_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.57281e-03_rb,0.52221e-03_rb,0.50507e-03_rb,0.49044e-03_rb,0.47093e-03_rb, &\n        & 0.43647e-03_rb,0.38057e-03_rb,0.29685e-03_rb,0.24345e-03_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.49534e-03_rb,0.44336e-03_rb,0.40843e-03_rb,0.37029e-03_rb,0.32924e-03_rb, &\n        & 0.28268e-03_rb,0.23204e-03_rb,0.17692e-03_rb,0.89557e-04_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.50529e-03_rb,0.45586e-03_rb,0.42428e-03_rb,0.39360e-03_rb,0.35384e-03_rb, &\n        & 0.31099e-03_rb,0.26296e-03_rb,0.20575e-03_rb,0.11779e-03_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.51591e-03_rb,0.46841e-03_rb,0.44557e-03_rb,0.41710e-03_rb,0.38396e-03_rb, &\n        & 0.34779e-03_rb,0.29981e-03_rb,0.23475e-03_rb,0.15231e-03_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.52638e-03_rb,0.48189e-03_rb,0.46689e-03_rb,0.44567e-03_rb,0.42354e-03_rb, &\n        & 0.38951e-03_rb,0.33959e-03_rb,0.26406e-03_rb,0.19354e-03_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.53740e-03_rb,0.49847e-03_rb,0.48961e-03_rb,0.48352e-03_rb,0.46848e-03_rb, &\n        & 0.43322e-03_rb,0.37807e-03_rb,0.30031e-03_rb,0.24179e-03_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.44967e-03_rb,0.40765e-03_rb,0.37964e-03_rb,0.34767e-03_rb,0.31190e-03_rb, &\n        & 0.27110e-03_rb,0.22687e-03_rb,0.17331e-03_rb,0.86456e-04_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.46197e-03_rb,0.42196e-03_rb,0.40010e-03_rb,0.37282e-03_rb,0.33881e-03_rb, &\n        & 0.30170e-03_rb,0.25812e-03_rb,0.20314e-03_rb,0.11471e-03_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.47416e-03_rb,0.43662e-03_rb,0.42347e-03_rb,0.39902e-03_rb,0.37341e-03_rb, &\n        & 0.34073e-03_rb,0.29426e-03_rb,0.23321e-03_rb,0.14921e-03_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.48670e-03_rb,0.45348e-03_rb,0.44656e-03_rb,0.43321e-03_rb,0.41603e-03_rb, &\n        & 0.38366e-03_rb,0.33328e-03_rb,0.26489e-03_rb,0.19032e-03_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.49941e-03_rb,0.47298e-03_rb,0.47361e-03_rb,0.47457e-03_rb,0.46263e-03_rb, &\n        & 0.42791e-03_rb,0.37404e-03_rb,0.30319e-03_rb,0.23864e-03_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.67194e-03_rb,0.58821e-03_rb,0.50483e-03_rb,0.44022e-03_rb,0.39428e-03_rb, &\n        & 0.35001e-03_rb,0.32802e-03_rb,0.34712e-03_rb,0.40424e-03_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.66779e-03_rb,0.58462e-03_rb,0.50560e-03_rb,0.45370e-03_rb,0.41018e-03_rb, &\n        & 0.37788e-03_rb,0.37804e-03_rb,0.41641e-03_rb,0.48433e-03_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.66375e-03_rb,0.58112e-03_rb,0.50831e-03_rb,0.46547e-03_rb,0.43045e-03_rb, &\n        & 0.42028e-03_rb,0.43766e-03_rb,0.49681e-03_rb,0.57585e-03_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.65976e-03_rb,0.57768e-03_rb,0.51951e-03_rb,0.47941e-03_rb,0.45883e-03_rb, &\n        & 0.47280e-03_rb,0.50926e-03_rb,0.58385e-03_rb,0.67578e-03_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.65493e-03_rb,0.57349e-03_rb,0.52976e-03_rb,0.49649e-03_rb,0.49872e-03_rb, &\n        & 0.52477e-03_rb,0.58910e-03_rb,0.67477e-03_rb,0.78177e-03_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.74429e-03_rb,0.65147e-03_rb,0.55958e-03_rb,0.48439e-03_rb,0.43163e-03_rb, &\n        & 0.37450e-03_rb,0.34047e-03_rb,0.34702e-03_rb,0.40780e-03_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.73897e-03_rb,0.64685e-03_rb,0.56004e-03_rb,0.49710e-03_rb,0.44831e-03_rb, &\n        & 0.39986e-03_rb,0.38897e-03_rb,0.41601e-03_rb,0.48800e-03_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.73423e-03_rb,0.64274e-03_rb,0.56120e-03_rb,0.51084e-03_rb,0.46668e-03_rb, &\n        & 0.44211e-03_rb,0.44391e-03_rb,0.49187e-03_rb,0.57573e-03_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.72906e-03_rb,0.63825e-03_rb,0.57090e-03_rb,0.52414e-03_rb,0.49429e-03_rb, &\n        & 0.48962e-03_rb,0.50615e-03_rb,0.57487e-03_rb,0.67078e-03_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.72487e-03_rb,0.63461e-03_rb,0.58043e-03_rb,0.54078e-03_rb,0.53373e-03_rb, &\n        & 0.54010e-03_rb,0.58187e-03_rb,0.66737e-03_rb,0.77655e-03_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.81958e-03_rb,0.71735e-03_rb,0.61664e-03_rb,0.53266e-03_rb,0.46619e-03_rb, &\n        & 0.39818e-03_rb,0.35035e-03_rb,0.33455e-03_rb,0.39417e-03_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.81517e-03_rb,0.71349e-03_rb,0.61778e-03_rb,0.54292e-03_rb,0.48245e-03_rb, &\n        & 0.42187e-03_rb,0.39187e-03_rb,0.40203e-03_rb,0.47500e-03_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.81131e-03_rb,0.71014e-03_rb,0.61887e-03_rb,0.55563e-03_rb,0.49928e-03_rb, &\n        & 0.45852e-03_rb,0.44599e-03_rb,0.47656e-03_rb,0.56304e-03_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.80684e-03_rb,0.70624e-03_rb,0.62502e-03_rb,0.56854e-03_rb,0.52516e-03_rb, &\n        & 0.50282e-03_rb,0.50405e-03_rb,0.55674e-03_rb,0.65701e-03_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.80277e-03_rb,0.70271e-03_rb,0.63387e-03_rb,0.58439e-03_rb,0.56394e-03_rb, &\n        & 0.54984e-03_rb,0.57036e-03_rb,0.64435e-03_rb,0.75883e-03_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.88962e-03_rb,0.77859e-03_rb,0.66931e-03_rb,0.57740e-03_rb,0.50138e-03_rb, &\n        & 0.42396e-03_rb,0.36076e-03_rb,0.31901e-03_rb,0.36723e-03_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.88665e-03_rb,0.77601e-03_rb,0.67190e-03_rb,0.58651e-03_rb,0.51766e-03_rb, &\n        & 0.44641e-03_rb,0.39755e-03_rb,0.38137e-03_rb,0.44921e-03_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.88362e-03_rb,0.77338e-03_rb,0.67394e-03_rb,0.60034e-03_rb,0.53406e-03_rb, &\n        & 0.47716e-03_rb,0.44855e-03_rb,0.45695e-03_rb,0.53953e-03_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.87936e-03_rb,0.76967e-03_rb,0.67789e-03_rb,0.61530e-03_rb,0.55605e-03_rb, &\n        & 0.52026e-03_rb,0.50535e-03_rb,0.53746e-03_rb,0.63432e-03_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.87542e-03_rb,0.76625e-03_rb,0.68901e-03_rb,0.63085e-03_rb,0.59283e-03_rb, &\n        & 0.56499e-03_rb,0.56855e-03_rb,0.62330e-03_rb,0.73477e-03_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.95206e-03_rb,0.83319e-03_rb,0.71670e-03_rb,0.61887e-03_rb,0.53098e-03_rb, &\n        & 0.45065e-03_rb,0.37161e-03_rb,0.30790e-03_rb,0.33661e-03_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.95024e-03_rb,0.83163e-03_rb,0.72052e-03_rb,0.62686e-03_rb,0.54899e-03_rb, &\n        & 0.47363e-03_rb,0.40570e-03_rb,0.36303e-03_rb,0.41611e-03_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.94830e-03_rb,0.82995e-03_rb,0.72350e-03_rb,0.64294e-03_rb,0.56882e-03_rb, &\n        & 0.49923e-03_rb,0.45370e-03_rb,0.43446e-03_rb,0.50740e-03_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.94590e-03_rb,0.82788e-03_rb,0.72796e-03_rb,0.66075e-03_rb,0.59106e-03_rb, &\n        & 0.53960e-03_rb,0.50922e-03_rb,0.51449e-03_rb,0.60347e-03_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.94431e-03_rb,0.82652e-03_rb,0.73985e-03_rb,0.67685e-03_rb,0.62406e-03_rb, &\n        & 0.58535e-03_rb,0.56960e-03_rb,0.60003e-03_rb,0.70205e-03_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.10063e-02_rb,0.88067e-03_rb,0.75816e-03_rb,0.65590e-03_rb,0.55704e-03_rb, &\n        & 0.47312e-03_rb,0.38218e-03_rb,0.29812e-03_rb,0.29923e-03_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.10075e-02_rb,0.88171e-03_rb,0.76490e-03_rb,0.66447e-03_rb,0.57639e-03_rb, &\n        & 0.49685e-03_rb,0.41345e-03_rb,0.34724e-03_rb,0.37557e-03_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.10072e-02_rb,0.88152e-03_rb,0.76915e-03_rb,0.68176e-03_rb,0.59750e-03_rb, &\n        & 0.52339e-03_rb,0.45689e-03_rb,0.41130e-03_rb,0.46505e-03_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.10060e-02_rb,0.88049e-03_rb,0.77394e-03_rb,0.69974e-03_rb,0.62189e-03_rb, &\n        & 0.55958e-03_rb,0.51188e-03_rb,0.48580e-03_rb,0.55924e-03_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.10051e-02_rb,0.87967e-03_rb,0.78569e-03_rb,0.71720e-03_rb,0.65527e-03_rb, &\n        & 0.60501e-03_rb,0.57082e-03_rb,0.56756e-03_rb,0.65737e-03_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.10487e-02_rb,0.91773e-03_rb,0.79062e-03_rb,0.68516e-03_rb,0.57878e-03_rb, &\n        & 0.49035e-03_rb,0.39066e-03_rb,0.28990e-03_rb,0.26192e-03_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.10509e-02_rb,0.91972e-03_rb,0.79894e-03_rb,0.69452e-03_rb,0.59953e-03_rb, &\n        & 0.51487e-03_rb,0.42128e-03_rb,0.33451e-03_rb,0.33284e-03_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.10507e-02_rb,0.91957e-03_rb,0.80398e-03_rb,0.71157e-03_rb,0.62221e-03_rb, &\n        & 0.54150e-03_rb,0.46197e-03_rb,0.39208e-03_rb,0.41685e-03_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.10509e-02_rb,0.91973e-03_rb,0.80950e-03_rb,0.73042e-03_rb,0.64659e-03_rb, &\n        & 0.57916e-03_rb,0.51360e-03_rb,0.46065e-03_rb,0.50813e-03_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.10509e-02_rb,0.91978e-03_rb,0.82196e-03_rb,0.75027e-03_rb,0.67740e-03_rb, &\n        & 0.62606e-03_rb,0.57168e-03_rb,0.53418e-03_rb,0.60461e-03_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.10710e-02_rb,0.93729e-03_rb,0.80929e-03_rb,0.70366e-03_rb,0.59621e-03_rb, &\n        & 0.50074e-03_rb,0.39602e-03_rb,0.28309e-03_rb,0.22630e-03_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.10749e-02_rb,0.94069e-03_rb,0.82032e-03_rb,0.71447e-03_rb,0.61694e-03_rb, &\n        & 0.52833e-03_rb,0.42406e-03_rb,0.32400e-03_rb,0.29100e-03_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.10773e-02_rb,0.94281e-03_rb,0.82736e-03_rb,0.73051e-03_rb,0.64296e-03_rb, &\n        & 0.55298e-03_rb,0.46605e-03_rb,0.37591e-03_rb,0.36869e-03_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.10796e-02_rb,0.94487e-03_rb,0.83459e-03_rb,0.75111e-03_rb,0.66786e-03_rb, &\n        & 0.59048e-03_rb,0.51603e-03_rb,0.43920e-03_rb,0.45502e-03_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.10814e-02_rb,0.94726e-03_rb,0.84809e-03_rb,0.77185e-03_rb,0.69811e-03_rb, &\n        & 0.64090e-03_rb,0.57338e-03_rb,0.50692e-03_rb,0.54643e-03_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.10730e-02_rb,0.93903e-03_rb,0.81373e-03_rb,0.70878e-03_rb,0.60523e-03_rb, &\n        & 0.50463e-03_rb,0.39690e-03_rb,0.27640e-03_rb,0.19492e-03_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.10796e-02_rb,0.94482e-03_rb,0.82740e-03_rb,0.72216e-03_rb,0.62667e-03_rb, &\n        & 0.53533e-03_rb,0.42406e-03_rb,0.31368e-03_rb,0.25100e-03_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.10853e-02_rb,0.94982e-03_rb,0.83742e-03_rb,0.73904e-03_rb,0.65592e-03_rb, &\n        & 0.56092e-03_rb,0.46365e-03_rb,0.36183e-03_rb,0.32022e-03_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.10900e-02_rb,0.95441e-03_rb,0.84774e-03_rb,0.76272e-03_rb,0.68162e-03_rb, &\n        & 0.59735e-03_rb,0.51414e-03_rb,0.41927e-03_rb,0.39972e-03_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.10952e-02_rb,0.96081e-03_rb,0.86364e-03_rb,0.78596e-03_rb,0.71341e-03_rb, &\n        & 0.64539e-03_rb,0.57286e-03_rb,0.48249e-03_rb,0.48653e-03_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.10558e-02_rb,0.92391e-03_rb,0.80426e-03_rb,0.70294e-03_rb,0.60555e-03_rb, &\n        & 0.50218e-03_rb,0.39384e-03_rb,0.27052e-03_rb,0.17175e-03_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.10672e-02_rb,0.93391e-03_rb,0.82187e-03_rb,0.72055e-03_rb,0.62861e-03_rb, &\n        & 0.53517e-03_rb,0.42394e-03_rb,0.30520e-03_rb,0.22066e-03_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.10767e-02_rb,0.94234e-03_rb,0.83636e-03_rb,0.73971e-03_rb,0.66074e-03_rb, &\n        & 0.56459e-03_rb,0.46058e-03_rb,0.35232e-03_rb,0.28101e-03_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.10858e-02_rb,0.95208e-03_rb,0.85075e-03_rb,0.76653e-03_rb,0.68963e-03_rb, &\n        & 0.60125e-03_rb,0.51089e-03_rb,0.40664e-03_rb,0.35284e-03_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.10953e-02_rb,0.96285e-03_rb,0.86971e-03_rb,0.79369e-03_rb,0.72347e-03_rb, &\n        & 0.65043e-03_rb,0.57028e-03_rb,0.46529e-03_rb,0.43428e-03_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.10314e-02_rb,0.90258e-03_rb,0.79467e-03_rb,0.69943e-03_rb,0.60546e-03_rb, &\n        & 0.50625e-03_rb,0.39977e-03_rb,0.27736e-03_rb,0.16855e-03_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.10451e-02_rb,0.91471e-03_rb,0.81404e-03_rb,0.71994e-03_rb,0.63569e-03_rb, &\n        & 0.54231e-03_rb,0.43348e-03_rb,0.31480e-03_rb,0.21751e-03_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.10591e-02_rb,0.92888e-03_rb,0.83171e-03_rb,0.74582e-03_rb,0.67129e-03_rb, &\n        & 0.57545e-03_rb,0.47649e-03_rb,0.36327e-03_rb,0.27482e-03_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.10732e-02_rb,0.94400e-03_rb,0.85133e-03_rb,0.77904e-03_rb,0.70324e-03_rb, &\n        & 0.62021e-03_rb,0.53030e-03_rb,0.41771e-03_rb,0.34284e-03_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.10880e-02_rb,0.96010e-03_rb,0.87843e-03_rb,0.80902e-03_rb,0.74479e-03_rb, &\n        & 0.67711e-03_rb,0.59146e-03_rb,0.47518e-03_rb,0.42405e-03_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.99800e-03_rb,0.87344e-03_rb,0.77838e-03_rb,0.69077e-03_rb,0.60021e-03_rb, &\n        & 0.50540e-03_rb,0.40237e-03_rb,0.28326e-03_rb,0.16340e-03_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.10163e-02_rb,0.89149e-03_rb,0.80050e-03_rb,0.71513e-03_rb,0.63616e-03_rb, &\n        & 0.54455e-03_rb,0.44056e-03_rb,0.32235e-03_rb,0.21276e-03_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.10345e-02_rb,0.91067e-03_rb,0.82237e-03_rb,0.74899e-03_rb,0.67503e-03_rb, &\n        & 0.58381e-03_rb,0.48916e-03_rb,0.37171e-03_rb,0.26817e-03_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.10541e-02_rb,0.93146e-03_rb,0.84943e-03_rb,0.78581e-03_rb,0.71327e-03_rb, &\n        & 0.63724e-03_rb,0.54703e-03_rb,0.42621e-03_rb,0.33361e-03_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.10724e-02_rb,0.95127e-03_rb,0.88178e-03_rb,0.82065e-03_rb,0.76248e-03_rb, &\n        & 0.70028e-03_rb,0.60892e-03_rb,0.48179e-03_rb,0.41458e-03_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.95912e-03_rb,0.84178e-03_rb,0.75778e-03_rb,0.67765e-03_rb,0.59123e-03_rb, &\n        & 0.50112e-03_rb,0.40170e-03_rb,0.28784e-03_rb,0.15761e-03_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.98187e-03_rb,0.86541e-03_rb,0.78344e-03_rb,0.70851e-03_rb,0.63200e-03_rb, &\n        & 0.54351e-03_rb,0.44541e-03_rb,0.32864e-03_rb,0.20682e-03_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.10063e-02_rb,0.89078e-03_rb,0.81111e-03_rb,0.74766e-03_rb,0.67473e-03_rb, &\n        & 0.58963e-03_rb,0.49872e-03_rb,0.37736e-03_rb,0.26208e-03_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.10299e-02_rb,0.91565e-03_rb,0.84455e-03_rb,0.78769e-03_rb,0.71894e-03_rb, &\n        & 0.65012e-03_rb,0.55995e-03_rb,0.43170e-03_rb,0.32660e-03_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.10525e-02_rb,0.93912e-03_rb,0.88061e-03_rb,0.82863e-03_rb,0.77810e-03_rb, &\n        & 0.71766e-03_rb,0.62330e-03_rb,0.48589e-03_rb,0.40661e-03_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.84224e-03_rb,0.73740e-03_rb,0.63257e-03_rb,0.54853e-03_rb,0.48911e-03_rb, &\n        & 0.46139e-03_rb,0.45309e-03_rb,0.51018e-03_rb,0.59300e-03_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.83841e-03_rb,0.73411e-03_rb,0.62983e-03_rb,0.55802e-03_rb,0.51855e-03_rb, &\n        & 0.50261e-03_rb,0.52209e-03_rb,0.59394e-03_rb,0.69158e-03_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.83593e-03_rb,0.73202e-03_rb,0.62914e-03_rb,0.58596e-03_rb,0.54957e-03_rb, &\n        & 0.55151e-03_rb,0.60969e-03_rb,0.69097e-03_rb,0.80707e-03_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.83246e-03_rb,0.72902e-03_rb,0.63274e-03_rb,0.60961e-03_rb,0.59022e-03_rb, &\n        & 0.61063e-03_rb,0.70961e-03_rb,0.80207e-03_rb,0.93855e-03_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.82958e-03_rb,0.72654e-03_rb,0.65011e-03_rb,0.63711e-03_rb,0.63941e-03_rb, &\n        & 0.69313e-03_rb,0.82070e-03_rb,0.92941e-03_rb,0.10860e-02_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.94737e-03_rb,0.82928e-03_rb,0.71121e-03_rb,0.61292e-03_rb,0.53888e-03_rb, &\n        & 0.49608e-03_rb,0.46449e-03_rb,0.50895e-03_rb,0.59638e-03_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.94309e-03_rb,0.82559e-03_rb,0.70809e-03_rb,0.61981e-03_rb,0.56880e-03_rb, &\n        & 0.53738e-03_rb,0.52906e-03_rb,0.59714e-03_rb,0.70098e-03_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.93813e-03_rb,0.82131e-03_rb,0.70667e-03_rb,0.64442e-03_rb,0.60095e-03_rb, &\n        & 0.58581e-03_rb,0.62140e-03_rb,0.70455e-03_rb,0.83109e-03_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.93357e-03_rb,0.81735e-03_rb,0.70879e-03_rb,0.66885e-03_rb,0.63704e-03_rb, &\n        & 0.64975e-03_rb,0.73250e-03_rb,0.82836e-03_rb,0.97995e-03_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.92926e-03_rb,0.81362e-03_rb,0.72487e-03_rb,0.69759e-03_rb,0.68443e-03_rb, &\n        & 0.72989e-03_rb,0.85114e-03_rb,0.96045e-03_rb,0.11390e-02_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.10589e-02_rb,0.92685e-03_rb,0.79478e-03_rb,0.68185e-03_rb,0.58961e-03_rb, &\n        & 0.52592e-03_rb,0.47382e-03_rb,0.49304e-03_rb,0.58474e-03_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.10532e-02_rb,0.92189e-03_rb,0.79057e-03_rb,0.68536e-03_rb,0.61794e-03_rb, &\n        & 0.56535e-03_rb,0.53040e-03_rb,0.57934e-03_rb,0.68761e-03_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.10466e-02_rb,0.91613e-03_rb,0.78805e-03_rb,0.70517e-03_rb,0.65240e-03_rb, &\n        & 0.61071e-03_rb,0.61067e-03_rb,0.68776e-03_rb,0.81827e-03_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.10406e-02_rb,0.91088e-03_rb,0.78949e-03_rb,0.73011e-03_rb,0.68643e-03_rb, &\n        & 0.67486e-03_rb,0.72316e-03_rb,0.82048e-03_rb,0.97591e-03_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.10350e-02_rb,0.90609e-03_rb,0.80184e-03_rb,0.75651e-03_rb,0.73102e-03_rb, &\n        & 0.75672e-03_rb,0.85035e-03_rb,0.96398e-03_rb,0.11483e-02_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.11788e-02_rb,0.10317e-02_rb,0.88462e-03_rb,0.75562e-03_rb,0.64370e-03_rb, &\n        & 0.55868e-03_rb,0.48899e-03_rb,0.48008e-03_rb,0.57112e-03_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.11725e-02_rb,0.10263e-02_rb,0.87998e-03_rb,0.75781e-03_rb,0.66989e-03_rb, &\n        & 0.59814e-03_rb,0.54177e-03_rb,0.56164e-03_rb,0.66999e-03_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.11654e-02_rb,0.10201e-02_rb,0.87720e-03_rb,0.76990e-03_rb,0.70381e-03_rb, &\n        & 0.63928e-03_rb,0.60787e-03_rb,0.66447e-03_rb,0.79300e-03_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.11592e-02_rb,0.10147e-02_rb,0.87854e-03_rb,0.79340e-03_rb,0.73787e-03_rb, &\n        & 0.69602e-03_rb,0.70539e-03_rb,0.79266e-03_rb,0.94522e-03_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.11532e-02_rb,0.10094e-02_rb,0.88452e-03_rb,0.81797e-03_rb,0.78065e-03_rb, &\n        & 0.77762e-03_rb,0.82734e-03_rb,0.94053e-03_rb,0.11199e-02_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.13090e-02_rb,0.11455e-02_rb,0.98213e-03_rb,0.83571e-03_rb,0.70447e-03_rb, &\n        & 0.59736e-03_rb,0.51100e-03_rb,0.46541e-03_rb,0.54756e-03_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.13011e-02_rb,0.11387e-02_rb,0.97633e-03_rb,0.83818e-03_rb,0.72563e-03_rb, &\n        & 0.63146e-03_rb,0.56040e-03_rb,0.54671e-03_rb,0.65045e-03_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.12919e-02_rb,0.11307e-02_rb,0.97249e-03_rb,0.84355e-03_rb,0.75615e-03_rb, &\n        & 0.67456e-03_rb,0.62106e-03_rb,0.64503e-03_rb,0.77294e-03_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.12834e-02_rb,0.11233e-02_rb,0.97228e-03_rb,0.86290e-03_rb,0.79001e-03_rb, &\n        & 0.72644e-03_rb,0.70406e-03_rb,0.76742e-03_rb,0.92034e-03_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.12754e-02_rb,0.11163e-02_rb,0.97447e-03_rb,0.88787e-03_rb,0.82956e-03_rb, &\n        & 0.80041e-03_rb,0.81433e-03_rb,0.91302e-03_rb,0.10923e-02_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.14384e-02_rb,0.12588e-02_rb,0.10791e-02_rb,0.91745e-03_rb,0.77222e-03_rb, &\n        & 0.63777e-03_rb,0.53552e-03_rb,0.44917e-03_rb,0.50804e-03_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.14296e-02_rb,0.12511e-02_rb,0.10726e-02_rb,0.92106e-03_rb,0.78721e-03_rb, &\n        & 0.67056e-03_rb,0.58135e-03_rb,0.52600e-03_rb,0.61657e-03_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.14197e-02_rb,0.12425e-02_rb,0.10687e-02_rb,0.92311e-03_rb,0.81466e-03_rb, &\n        & 0.70925e-03_rb,0.63651e-03_rb,0.62263e-03_rb,0.74116e-03_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.14113e-02_rb,0.12351e-02_rb,0.10686e-02_rb,0.93888e-03_rb,0.84557e-03_rb, &\n        & 0.75721e-03_rb,0.71295e-03_rb,0.74435e-03_rb,0.88914e-03_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.14033e-02_rb,0.12282e-02_rb,0.10694e-02_rb,0.96147e-03_rb,0.87768e-03_rb, &\n        & 0.82519e-03_rb,0.81219e-03_rb,0.88552e-03_rb,0.10599e-02_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.15646e-02_rb,0.13692e-02_rb,0.11737e-02_rb,0.99670e-03_rb,0.83910e-03_rb, &\n        & 0.68337e-03_rb,0.56133e-03_rb,0.43784e-03_rb,0.46053e-03_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.15575e-02_rb,0.13630e-02_rb,0.11685e-02_rb,0.10035e-02_rb,0.85062e-03_rb, &\n        & 0.71436e-03_rb,0.60284e-03_rb,0.50378e-03_rb,0.56665e-03_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.15495e-02_rb,0.13560e-02_rb,0.11666e-02_rb,0.10059e-02_rb,0.87670e-03_rb, &\n        & 0.74963e-03_rb,0.65339e-03_rb,0.59583e-03_rb,0.69467e-03_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.15420e-02_rb,0.13494e-02_rb,0.11678e-02_rb,0.10189e-02_rb,0.90417e-03_rb, &\n        & 0.79237e-03_rb,0.72265e-03_rb,0.71412e-03_rb,0.84581e-03_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.15345e-02_rb,0.13429e-02_rb,0.11695e-02_rb,0.10414e-02_rb,0.93588e-03_rb, &\n        & 0.84978e-03_rb,0.81799e-03_rb,0.85682e-03_rb,0.10184e-02_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.16856e-02_rb,0.14750e-02_rb,0.12645e-02_rb,0.10725e-02_rb,0.90201e-03_rb, &\n        & 0.73159e-03_rb,0.58478e-03_rb,0.43268e-03_rb,0.41101e-03_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.16806e-02_rb,0.14706e-02_rb,0.12609e-02_rb,0.10836e-02_rb,0.91363e-03_rb, &\n        & 0.76033e-03_rb,0.62810e-03_rb,0.48786e-03_rb,0.51346e-03_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.16744e-02_rb,0.14652e-02_rb,0.12612e-02_rb,0.10887e-02_rb,0.93599e-03_rb, &\n        & 0.79815e-03_rb,0.66916e-03_rb,0.56926e-03_rb,0.63978e-03_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.16684e-02_rb,0.14601e-02_rb,0.12641e-02_rb,0.11000e-02_rb,0.96490e-03_rb, &\n        & 0.83543e-03_rb,0.73243e-03_rb,0.67845e-03_rb,0.78892e-03_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.16618e-02_rb,0.14543e-02_rb,0.12671e-02_rb,0.11238e-02_rb,0.99451e-03_rb, &\n        & 0.88426e-03_rb,0.81935e-03_rb,0.81741e-03_rb,0.96330e-03_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.17934e-02_rb,0.15694e-02_rb,0.13453e-02_rb,0.11410e-02_rb,0.95885e-03_rb, &\n        & 0.77818e-03_rb,0.60653e-03_rb,0.43079e-03_rb,0.36156e-03_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.17902e-02_rb,0.15666e-02_rb,0.13435e-02_rb,0.11557e-02_rb,0.97291e-03_rb, &\n        & 0.80328e-03_rb,0.65101e-03_rb,0.47930e-03_rb,0.45791e-03_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.17870e-02_rb,0.15637e-02_rb,0.13465e-02_rb,0.11644e-02_rb,0.99290e-03_rb, &\n        & 0.84365e-03_rb,0.69043e-03_rb,0.54887e-03_rb,0.58027e-03_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.17836e-02_rb,0.15608e-02_rb,0.13520e-02_rb,0.11761e-02_rb,0.10245e-02_rb, &\n        & 0.87956e-03_rb,0.74487e-03_rb,0.64626e-03_rb,0.72649e-03_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.17784e-02_rb,0.15563e-02_rb,0.13567e-02_rb,0.11994e-02_rb,0.10543e-02_rb, &\n        & 0.92517e-03_rb,0.82194e-03_rb,0.77306e-03_rb,0.89652e-03_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.18870e-02_rb,0.16513e-02_rb,0.14155e-02_rb,0.12026e-02_rb,0.10094e-02_rb, &\n        & 0.82157e-03_rb,0.62812e-03_rb,0.43279e-03_rb,0.32100e-03_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.18874e-02_rb,0.16516e-02_rb,0.14168e-02_rb,0.12199e-02_rb,0.10267e-02_rb, &\n        & 0.84527e-03_rb,0.67192e-03_rb,0.47951e-03_rb,0.41207e-03_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.18869e-02_rb,0.16512e-02_rb,0.14226e-02_rb,0.12326e-02_rb,0.10456e-02_rb, &\n        & 0.88603e-03_rb,0.71450e-03_rb,0.53998e-03_rb,0.52708e-03_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.18844e-02_rb,0.16490e-02_rb,0.14297e-02_rb,0.12452e-02_rb,0.10784e-02_rb, &\n        & 0.92565e-03_rb,0.76291e-03_rb,0.62910e-03_rb,0.66842e-03_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.18812e-02_rb,0.16463e-02_rb,0.14369e-02_rb,0.12677e-02_rb,0.11133e-02_rb, &\n        & 0.96733e-03_rb,0.83676e-03_rb,0.74378e-03_rb,0.83514e-03_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.19652e-02_rb,0.17197e-02_rb,0.14741e-02_rb,0.12638e-02_rb,0.10628e-02_rb, &\n        & 0.86832e-03_rb,0.66314e-03_rb,0.45418e-03_rb,0.32052e-03_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.19706e-02_rb,0.17244e-02_rb,0.14828e-02_rb,0.12836e-02_rb,0.10826e-02_rb, &\n        & 0.89693e-03_rb,0.71120e-03_rb,0.50274e-03_rb,0.41269e-03_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.19727e-02_rb,0.17263e-02_rb,0.14935e-02_rb,0.12979e-02_rb,0.11060e-02_rb, &\n        & 0.94341e-03_rb,0.75411e-03_rb,0.56772e-03_rb,0.53374e-03_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.19726e-02_rb,0.17262e-02_rb,0.15047e-02_rb,0.13132e-02_rb,0.11439e-02_rb, &\n        & 0.98450e-03_rb,0.80814e-03_rb,0.66163e-03_rb,0.68012e-03_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.19717e-02_rb,0.17254e-02_rb,0.15111e-02_rb,0.13415e-02_rb,0.11812e-02_rb, &\n        & 0.10302e-02_rb,0.88976e-03_rb,0.77856e-03_rb,0.85217e-03_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.20238e-02_rb,0.17709e-02_rb,0.15209e-02_rb,0.13140e-02_rb,0.11103e-02_rb, &\n        & 0.90805e-03_rb,0.69487e-03_rb,0.47365e-03_rb,0.32170e-03_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.20339e-02_rb,0.17798e-02_rb,0.15376e-02_rb,0.13369e-02_rb,0.11339e-02_rb, &\n        & 0.94414e-03_rb,0.74487e-03_rb,0.52470e-03_rb,0.41340e-03_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.20400e-02_rb,0.17851e-02_rb,0.15537e-02_rb,0.13538e-02_rb,0.11634e-02_rb, &\n        & 0.99316e-03_rb,0.79139e-03_rb,0.59483e-03_rb,0.53800e-03_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.20440e-02_rb,0.17887e-02_rb,0.15672e-02_rb,0.13751e-02_rb,0.12054e-02_rb, &\n        & 0.10358e-02_rb,0.85239e-03_rb,0.69118e-03_rb,0.69062e-03_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.20478e-02_rb,0.17920e-02_rb,0.15770e-02_rb,0.14084e-02_rb,0.12434e-02_rb, &\n        & 0.10883e-02_rb,0.94102e-03_rb,0.81111e-03_rb,0.86624e-03_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.20618e-02_rb,0.18042e-02_rb,0.15564e-02_rb,0.13520e-02_rb,0.11495e-02_rb, &\n        & 0.94146e-03_rb,0.72197e-03_rb,0.49143e-03_rb,0.32080e-03_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.20769e-02_rb,0.18174e-02_rb,0.15793e-02_rb,0.13781e-02_rb,0.11781e-02_rb, &\n        & 0.98504e-03_rb,0.77410e-03_rb,0.54584e-03_rb,0.41409e-03_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.20884e-02_rb,0.18274e-02_rb,0.16007e-02_rb,0.14008e-02_rb,0.12152e-02_rb, &\n        & 0.10359e-02_rb,0.82528e-03_rb,0.62085e-03_rb,0.53970e-03_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.21000e-02_rb,0.18376e-02_rb,0.16180e-02_rb,0.14292e-02_rb,0.12615e-02_rb, &\n        & 0.10817e-02_rb,0.89457e-03_rb,0.71909e-03_rb,0.69474e-03_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.21077e-02_rb,0.18456e-02_rb,0.16335e-02_rb,0.14673e-02_rb,0.12995e-02_rb, &\n        & 0.11413e-02_rb,0.98821e-03_rb,0.84127e-03_rb,0.87402e-03_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.11199e-02_rb,0.98039e-03_rb,0.84084e-03_rb,0.70943e-03_rb,0.63603e-03_rb, &\n        & 0.60649e-03_rb,0.68312e-03_rb,0.76350e-03_rb,0.90110e-03_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.11157e-02_rb,0.97670e-03_rb,0.83773e-03_rb,0.72395e-03_rb,0.68641e-03_rb, &\n        & 0.69858e-03_rb,0.81907e-03_rb,0.92056e-03_rb,0.10823e-02_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.11108e-02_rb,0.97243e-03_rb,0.83426e-03_rb,0.74791e-03_rb,0.75340e-03_rb, &\n        & 0.82026e-03_rb,0.97233e-03_rb,0.10968e-02_rb,0.12857e-02_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.11077e-02_rb,0.96981e-03_rb,0.83196e-03_rb,0.80006e-03_rb,0.82593e-03_rb, &\n        & 0.96481e-03_rb,0.11451e-02_rb,0.12942e-02_rb,0.15153e-02_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.11057e-02_rb,0.96811e-03_rb,0.83287e-03_rb,0.85771e-03_rb,0.92243e-03_rb, &\n        & 0.11291e-02_rb,0.13401e-02_rb,0.15139e-02_rb,0.17730e-02_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.12618e-02_rb,0.11045e-02_rb,0.94731e-03_rb,0.80059e-03_rb,0.70460e-03_rb, &\n        & 0.66164e-03_rb,0.71798e-03_rb,0.80280e-03_rb,0.96182e-03_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.12573e-02_rb,0.11007e-02_rb,0.94415e-03_rb,0.81463e-03_rb,0.74844e-03_rb, &\n        & 0.74157e-03_rb,0.85097e-03_rb,0.95625e-03_rb,0.11395e-02_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.12537e-02_rb,0.10976e-02_rb,0.94166e-03_rb,0.83421e-03_rb,0.81760e-03_rb, &\n        & 0.85124e-03_rb,0.10029e-02_rb,0.11319e-02_rb,0.13421e-02_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.12517e-02_rb,0.10959e-02_rb,0.94019e-03_rb,0.88029e-03_rb,0.88890e-03_rb, &\n        & 0.98937e-03_rb,0.11747e-02_rb,0.13301e-02_rb,0.15715e-02_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.12484e-02_rb,0.10932e-02_rb,0.93873e-03_rb,0.93946e-03_rb,0.97784e-03_rb, &\n        & 0.11555e-02_rb,0.13735e-02_rb,0.15606e-02_rb,0.18367e-02_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.14334e-02_rb,0.12547e-02_rb,0.10760e-02_rb,0.90369e-03_rb,0.78163e-03_rb, &\n        & 0.71064e-03_rb,0.72074e-03_rb,0.81006e-03_rb,0.97636e-03_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.14266e-02_rb,0.12488e-02_rb,0.10711e-02_rb,0.91657e-03_rb,0.81392e-03_rb, &\n        & 0.78379e-03_rb,0.85758e-03_rb,0.96540e-03_rb,0.11622e-02_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.14223e-02_rb,0.12452e-02_rb,0.10680e-02_rb,0.93146e-03_rb,0.87510e-03_rb, &\n        & 0.87756e-03_rb,0.10059e-02_rb,0.11359e-02_rb,0.13619e-02_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.14175e-02_rb,0.12411e-02_rb,0.10646e-02_rb,0.96483e-03_rb,0.94572e-03_rb, &\n        & 0.99384e-03_rb,0.11710e-02_rb,0.13256e-02_rb,0.15838e-02_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.14120e-02_rb,0.12363e-02_rb,0.10614e-02_rb,0.10223e-02_rb,0.10225e-02_rb, &\n        & 0.11461e-02_rb,0.13616e-02_rb,0.15455e-02_rb,0.18394e-02_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.16334e-02_rb,0.14296e-02_rb,0.12259e-02_rb,0.10262e-02_rb,0.87529e-03_rb, &\n        & 0.76396e-03_rb,0.72119e-03_rb,0.79306e-03_rb,0.95651e-03_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.16232e-02_rb,0.14208e-02_rb,0.12185e-02_rb,0.10348e-02_rb,0.89367e-03_rb, &\n        & 0.83199e-03_rb,0.84657e-03_rb,0.95561e-03_rb,0.11474e-02_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.16152e-02_rb,0.14140e-02_rb,0.12127e-02_rb,0.10485e-02_rb,0.94236e-03_rb, &\n        & 0.91572e-03_rb,0.99902e-03_rb,0.11299e-02_rb,0.13583e-02_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.16069e-02_rb,0.14067e-02_rb,0.12065e-02_rb,0.10685e-02_rb,0.10126e-02_rb, &\n        & 0.10172e-02_rb,0.11639e-02_rb,0.13179e-02_rb,0.15822e-02_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.15986e-02_rb,0.13996e-02_rb,0.12009e-02_rb,0.11161e-02_rb,0.10822e-02_rb, &\n        & 0.11448e-02_rb,0.13482e-02_rb,0.15289e-02_rb,0.18307e-02_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.18523e-02_rb,0.16211e-02_rb,0.13900e-02_rb,0.11617e-02_rb,0.98609e-03_rb, &\n        & 0.83071e-03_rb,0.73506e-03_rb,0.77421e-03_rb,0.93359e-03_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.18399e-02_rb,0.16104e-02_rb,0.13808e-02_rb,0.11680e-02_rb,0.99824e-03_rb, &\n        & 0.89112e-03_rb,0.84383e-03_rb,0.93250e-03_rb,0.11210e-02_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.18296e-02_rb,0.16015e-02_rb,0.13734e-02_rb,0.11806e-02_rb,0.10315e-02_rb, &\n        & 0.96812e-03_rb,0.98130e-03_rb,0.11095e-02_rb,0.13275e-02_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.18179e-02_rb,0.15913e-02_rb,0.13647e-02_rb,0.11924e-02_rb,0.10905e-02_rb, &\n        & 0.10578e-02_rb,0.11513e-02_rb,0.13088e-02_rb,0.15638e-02_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.18067e-02_rb,0.15816e-02_rb,0.13575e-02_rb,0.12252e-02_rb,0.11627e-02_rb, &\n        & 0.11690e-02_rb,0.13357e-02_rb,0.15168e-02_rb,0.18162e-02_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.20925e-02_rb,0.18312e-02_rb,0.15700e-02_rb,0.13095e-02_rb,0.11041e-02_rb, &\n        & 0.91669e-03_rb,0.76437e-03_rb,0.75155e-03_rb,0.90862e-03_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.20749e-02_rb,0.18159e-02_rb,0.15569e-02_rb,0.13117e-02_rb,0.11170e-02_rb, &\n        & 0.95740e-03_rb,0.85349e-03_rb,0.90211e-03_rb,0.10843e-02_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.20605e-02_rb,0.18034e-02_rb,0.15463e-02_rb,0.13221e-02_rb,0.11384e-02_rb, &\n        & 0.10293e-02_rb,0.97333e-03_rb,0.10765e-02_rb,0.12853e-02_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.20459e-02_rb,0.17907e-02_rb,0.15355e-02_rb,0.13321e-02_rb,0.11878e-02_rb, &\n        & 0.11138e-02_rb,0.11236e-02_rb,0.12716e-02_rb,0.15170e-02_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.20310e-02_rb,0.17778e-02_rb,0.15259e-02_rb,0.13542e-02_rb,0.12517e-02_rb, &\n        & 0.12095e-02_rb,0.13081e-02_rb,0.14898e-02_rb,0.17755e-02_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.23595e-02_rb,0.20648e-02_rb,0.17701e-02_rb,0.14754e-02_rb,0.12323e-02_rb, &\n        & 0.10132e-02_rb,0.80835e-03_rb,0.73377e-03_rb,0.88458e-03_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.23333e-02_rb,0.20420e-02_rb,0.17506e-02_rb,0.14700e-02_rb,0.12449e-02_rb, &\n        & 0.10427e-02_rb,0.88482e-03_rb,0.87865e-03_rb,0.10548e-02_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.23118e-02_rb,0.20232e-02_rb,0.17345e-02_rb,0.14754e-02_rb,0.12581e-02_rb, &\n        & 0.11040e-02_rb,0.98425e-03_rb,0.10425e-02_rb,0.12451e-02_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.22911e-02_rb,0.20052e-02_rb,0.17193e-02_rb,0.14831e-02_rb,0.12996e-02_rb, &\n        & 0.11778e-02_rb,0.11137e-02_rb,0.12310e-02_rb,0.14656e-02_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.22715e-02_rb,0.19881e-02_rb,0.17061e-02_rb,0.14949e-02_rb,0.13595e-02_rb, &\n        & 0.12702e-02_rb,0.12792e-02_rb,0.14480e-02_rb,0.17220e-02_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.26465e-02_rb,0.23159e-02_rb,0.19853e-02_rb,0.16547e-02_rb,0.13704e-02_rb, &\n        & 0.11161e-02_rb,0.87227e-03_rb,0.72579e-03_rb,0.85316e-03_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.26139e-02_rb,0.22874e-02_rb,0.19609e-02_rb,0.16420e-02_rb,0.13837e-02_rb, &\n        & 0.11377e-02_rb,0.93183e-03_rb,0.85926e-03_rb,0.10245e-02_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.25857e-02_rb,0.22628e-02_rb,0.19400e-02_rb,0.16425e-02_rb,0.13917e-02_rb, &\n        & 0.11859e-02_rb,0.10228e-02_rb,0.10157e-02_rb,0.12103e-02_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.25573e-02_rb,0.22380e-02_rb,0.19187e-02_rb,0.16463e-02_rb,0.14196e-02_rb, &\n        & 0.12582e-02_rb,0.11286e-02_rb,0.11958e-02_rb,0.14229e-02_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.25310e-02_rb,0.22151e-02_rb,0.19006e-02_rb,0.16478e-02_rb,0.14771e-02_rb, &\n        & 0.13382e-02_rb,0.12711e-02_rb,0.14043e-02_rb,0.16688e-02_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.29437e-02_rb,0.25759e-02_rb,0.22081e-02_rb,0.18403e-02_rb,0.15126e-02_rb, &\n        & 0.12266e-02_rb,0.94502e-03_rb,0.72553e-03_rb,0.80872e-03_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.29059e-02_rb,0.25428e-02_rb,0.21798e-02_rb,0.18221e-02_rb,0.15299e-02_rb, &\n        & 0.12446e-02_rb,0.99114e-03_rb,0.84495e-03_rb,0.98123e-03_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.28735e-02_rb,0.25146e-02_rb,0.21557e-02_rb,0.18193e-02_rb,0.15373e-02_rb, &\n        & 0.12770e-02_rb,0.10730e-02_rb,0.99151e-03_rb,0.11701e-02_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.28399e-02_rb,0.24853e-02_rb,0.21306e-02_rb,0.18209e-02_rb,0.15526e-02_rb, &\n        & 0.13434e-02_rb,0.11682e-02_rb,0.11617e-02_rb,0.13773e-02_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.28070e-02_rb,0.24565e-02_rb,0.21073e-02_rb,0.18175e-02_rb,0.15973e-02_rb, &\n        & 0.14179e-02_rb,0.12830e-02_rb,0.13638e-02_rb,0.16173e-02_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.32399e-02_rb,0.28350e-02_rb,0.24302e-02_rb,0.20252e-02_rb,0.16589e-02_rb, &\n        & 0.13407e-02_rb,0.10274e-02_rb,0.73986e-03_rb,0.76203e-03_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.31965e-02_rb,0.27971e-02_rb,0.23977e-02_rb,0.20029e-02_rb,0.16776e-02_rb, &\n        & 0.13600e-02_rb,0.10652e-02_rb,0.84551e-03_rb,0.93841e-03_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.31601e-02_rb,0.27653e-02_rb,0.23707e-02_rb,0.19975e-02_rb,0.16883e-02_rb, &\n        & 0.13843e-02_rb,0.11385e-02_rb,0.98230e-03_rb,0.11352e-02_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.31230e-02_rb,0.27329e-02_rb,0.23428e-02_rb,0.19986e-02_rb,0.16986e-02_rb, &\n        & 0.14381e-02_rb,0.12318e-02_rb,0.11431e-02_rb,0.13466e-02_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.30838e-02_rb,0.26986e-02_rb,0.23157e-02_rb,0.19957e-02_rb,0.17285e-02_rb, &\n        & 0.15111e-02_rb,0.13270e-02_rb,0.13396e-02_rb,0.15853e-02_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.35110e-02_rb,0.30722e-02_rb,0.26335e-02_rb,0.21948e-02_rb,0.18129e-02_rb, &\n        & 0.14641e-02_rb,0.11256e-02_rb,0.79561e-03_rb,0.78300e-03_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.34682e-02_rb,0.30349e-02_rb,0.26015e-02_rb,0.21788e-02_rb,0.18300e-02_rb, &\n        & 0.14846e-02_rb,0.11655e-02_rb,0.90541e-03_rb,0.97352e-03_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.34263e-02_rb,0.29982e-02_rb,0.25700e-02_rb,0.21750e-02_rb,0.18411e-02_rb, &\n        & 0.15104e-02_rb,0.12444e-02_rb,0.10462e-02_rb,0.11863e-02_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.33817e-02_rb,0.29592e-02_rb,0.25369e-02_rb,0.21760e-02_rb,0.18525e-02_rb, &\n        & 0.15666e-02_rb,0.13382e-02_rb,0.12088e-02_rb,0.14124e-02_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.33351e-02_rb,0.29184e-02_rb,0.25088e-02_rb,0.21673e-02_rb,0.18858e-02_rb, &\n        & 0.16404e-02_rb,0.14339e-02_rb,0.14160e-02_rb,0.16713e-02_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.37813e-02_rb,0.33087e-02_rb,0.28362e-02_rb,0.23654e-02_rb,0.19642e-02_rb, &\n        & 0.15868e-02_rb,0.12220e-02_rb,0.85134e-03_rb,0.79810e-03_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.37337e-02_rb,0.32671e-02_rb,0.28006e-02_rb,0.23535e-02_rb,0.19812e-02_rb, &\n        & 0.16073e-02_rb,0.12646e-02_rb,0.96230e-03_rb,0.10021e-02_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.36838e-02_rb,0.32235e-02_rb,0.27633e-02_rb,0.23494e-02_rb,0.19898e-02_rb, &\n        & 0.16363e-02_rb,0.13472e-02_rb,0.11056e-02_rb,0.12297e-02_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.36315e-02_rb,0.31778e-02_rb,0.27268e-02_rb,0.23457e-02_rb,0.20010e-02_rb, &\n        & 0.16953e-02_rb,0.14396e-02_rb,0.12736e-02_rb,0.14737e-02_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.35780e-02_rb,0.31310e-02_rb,0.26962e-02_rb,0.23324e-02_rb,0.20383e-02_rb, &\n        & 0.17680e-02_rb,0.15379e-02_rb,0.14913e-02_rb,0.17515e-02_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.40401e-02_rb,0.35352e-02_rb,0.30303e-02_rb,0.25331e-02_rb,0.21125e-02_rb, &\n        & 0.17061e-02_rb,0.13144e-02_rb,0.90469e-03_rb,0.81129e-03_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.39897e-02_rb,0.34912e-02_rb,0.29926e-02_rb,0.25245e-02_rb,0.21272e-02_rb, &\n        & 0.17273e-02_rb,0.13608e-02_rb,0.10148e-02_rb,0.10248e-02_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.39313e-02_rb,0.34401e-02_rb,0.29487e-02_rb,0.25178e-02_rb,0.21303e-02_rb, &\n        & 0.17587e-02_rb,0.14454e-02_rb,0.11592e-02_rb,0.12656e-02_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.38694e-02_rb,0.33859e-02_rb,0.29093e-02_rb,0.25068e-02_rb,0.21412e-02_rb, &\n        & 0.18203e-02_rb,0.15361e-02_rb,0.13357e-02_rb,0.15298e-02_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.38109e-02_rb,0.33347e-02_rb,0.28761e-02_rb,0.24907e-02_rb,0.21821e-02_rb, &\n        & 0.18916e-02_rb,0.16371e-02_rb,0.15629e-02_rb,0.18275e-02_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.15071e-02_rb,0.13191e-02_rb,0.11311e-02_rb,0.94313e-03_rb,0.82178e-03_rb, &\n        & 0.90230e-03_rb,0.10652e-02_rb,0.11879e-02_rb,0.14045e-02_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.15053e-02_rb,0.13176e-02_rb,0.11298e-02_rb,0.94210e-03_rb,0.87562e-03_rb, &\n        & 0.10432e-02_rb,0.12302e-02_rb,0.13664e-02_rb,0.16201e-02_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.15019e-02_rb,0.13147e-02_rb,0.11275e-02_rb,0.94187e-03_rb,0.97652e-03_rb, &\n        & 0.12093e-02_rb,0.14252e-02_rb,0.15816e-02_rb,0.18766e-02_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.14976e-02_rb,0.13109e-02_rb,0.11243e-02_rb,0.96063e-03_rb,0.11391e-02_rb, &\n        & 0.14106e-02_rb,0.16622e-02_rb,0.18446e-02_rb,0.21889e-02_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.14918e-02_rb,0.13060e-02_rb,0.11201e-02_rb,0.10256e-02_rb,0.13135e-02_rb, &\n        & 0.16256e-02_rb,0.19138e-02_rb,0.21174e-02_rb,0.25177e-02_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.17368e-02_rb,0.15199e-02_rb,0.13031e-02_rb,0.10865e-02_rb,0.93589e-03_rb, &\n        & 0.95913e-03_rb,0.11327e-02_rb,0.12643e-02_rb,0.15179e-02_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.17347e-02_rb,0.15183e-02_rb,0.13018e-02_rb,0.10853e-02_rb,0.98162e-03_rb, &\n        & 0.11204e-02_rb,0.13214e-02_rb,0.14695e-02_rb,0.17719e-02_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.17301e-02_rb,0.15143e-02_rb,0.12982e-02_rb,0.10867e-02_rb,0.10624e-02_rb, &\n        & 0.13058e-02_rb,0.15388e-02_rb,0.17088e-02_rb,0.20640e-02_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.17235e-02_rb,0.15085e-02_rb,0.12935e-02_rb,0.11059e-02_rb,0.12337e-02_rb, &\n        & 0.15285e-02_rb,0.18009e-02_rb,0.19982e-02_rb,0.24152e-02_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.17181e-02_rb,0.15038e-02_rb,0.12895e-02_rb,0.11598e-02_rb,0.14379e-02_rb, &\n        & 0.17807e-02_rb,0.20976e-02_rb,0.23230e-02_rb,0.28132e-02_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.19949e-02_rb,0.17458e-02_rb,0.14967e-02_rb,0.12475e-02_rb,0.10641e-02_rb, &\n        & 0.10100e-02_rb,0.11774e-02_rb,0.13116e-02_rb,0.16051e-02_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.19910e-02_rb,0.17424e-02_rb,0.14939e-02_rb,0.12453e-02_rb,0.11049e-02_rb, &\n        & 0.11564e-02_rb,0.13657e-02_rb,0.15222e-02_rb,0.18601e-02_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.19848e-02_rb,0.17370e-02_rb,0.14892e-02_rb,0.12476e-02_rb,0.11571e-02_rb, &\n        & 0.13573e-02_rb,0.16014e-02_rb,0.17817e-02_rb,0.21839e-02_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.19813e-02_rb,0.17340e-02_rb,0.14867e-02_rb,0.12671e-02_rb,0.12941e-02_rb, &\n        & 0.15954e-02_rb,0.18821e-02_rb,0.20919e-02_rb,0.25670e-02_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.19771e-02_rb,0.17304e-02_rb,0.14836e-02_rb,0.13013e-02_rb,0.15091e-02_rb, &\n        & 0.18697e-02_rb,0.22058e-02_rb,0.24525e-02_rb,0.30084e-02_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.23002e-02_rb,0.20126e-02_rb,0.17253e-02_rb,0.14382e-02_rb,0.12005e-02_rb, &\n        & 0.10932e-02_rb,0.12228e-02_rb,0.13639e-02_rb,0.16798e-02_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.22929e-02_rb,0.20065e-02_rb,0.17201e-02_rb,0.14337e-02_rb,0.12491e-02_rb, &\n        & 0.11967e-02_rb,0.14046e-02_rb,0.15632e-02_rb,0.19322e-02_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.22828e-02_rb,0.19977e-02_rb,0.17127e-02_rb,0.14287e-02_rb,0.12914e-02_rb, &\n        & 0.13860e-02_rb,0.16360e-02_rb,0.18240e-02_rb,0.22487e-02_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.22757e-02_rb,0.19915e-02_rb,0.17074e-02_rb,0.14457e-02_rb,0.13800e-02_rb, &\n        & 0.16339e-02_rb,0.19297e-02_rb,0.21519e-02_rb,0.26493e-02_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.22684e-02_rb,0.19852e-02_rb,0.17019e-02_rb,0.14754e-02_rb,0.15614e-02_rb, &\n        & 0.19242e-02_rb,0.22727e-02_rb,0.25341e-02_rb,0.31196e-02_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.26562e-02_rb,0.23246e-02_rb,0.19929e-02_rb,0.16611e-02_rb,0.13598e-02_rb, &\n        & 0.11996e-02_rb,0.12698e-02_rb,0.14174e-02_rb,0.17501e-02_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.26415e-02_rb,0.23116e-02_rb,0.19818e-02_rb,0.16521e-02_rb,0.14129e-02_rb, &\n        & 0.12866e-02_rb,0.14524e-02_rb,0.16197e-02_rb,0.20022e-02_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.26277e-02_rb,0.22994e-02_rb,0.19710e-02_rb,0.16428e-02_rb,0.14513e-02_rb, &\n        & 0.14339e-02_rb,0.16856e-02_rb,0.18777e-02_rb,0.23236e-02_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.26179e-02_rb,0.22909e-02_rb,0.19639e-02_rb,0.16526e-02_rb,0.15154e-02_rb, &\n        & 0.16607e-02_rb,0.19618e-02_rb,0.21909e-02_rb,0.27021e-02_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.26074e-02_rb,0.22818e-02_rb,0.19561e-02_rb,0.16780e-02_rb,0.16497e-02_rb, &\n        & 0.19592e-02_rb,0.23163e-02_rb,0.25915e-02_rb,0.31846e-02_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.30676e-02_rb,0.26845e-02_rb,0.23014e-02_rb,0.19182e-02_rb,0.15508e-02_rb, &\n        & 0.13265e-02_rb,0.13165e-02_rb,0.14712e-02_rb,0.18123e-02_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.30472e-02_rb,0.26667e-02_rb,0.22862e-02_rb,0.19057e-02_rb,0.15947e-02_rb, &\n        & 0.14067e-02_rb,0.15004e-02_rb,0.16750e-02_rb,0.20695e-02_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.30255e-02_rb,0.26477e-02_rb,0.22705e-02_rb,0.18926e-02_rb,0.16408e-02_rb, &\n        & 0.15149e-02_rb,0.17276e-02_rb,0.19275e-02_rb,0.23847e-02_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.30083e-02_rb,0.26326e-02_rb,0.22569e-02_rb,0.18906e-02_rb,0.16765e-02_rb, &\n        & 0.17066e-02_rb,0.20035e-02_rb,0.22386e-02_rb,0.27616e-02_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.29915e-02_rb,0.26179e-02_rb,0.22443e-02_rb,0.19114e-02_rb,0.17836e-02_rb, &\n        & 0.19800e-02_rb,0.23411e-02_rb,0.26194e-02_rb,0.32234e-02_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.35311e-02_rb,0.30900e-02_rb,0.26490e-02_rb,0.22082e-02_rb,0.17722e-02_rb, &\n        & 0.14850e-02_rb,0.13781e-02_rb,0.15158e-02_rb,0.18578e-02_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.35031e-02_rb,0.30656e-02_rb,0.26281e-02_rb,0.21907e-02_rb,0.18048e-02_rb, &\n        & 0.15528e-02_rb,0.15481e-02_rb,0.17322e-02_rb,0.21307e-02_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.34762e-02_rb,0.30421e-02_rb,0.26077e-02_rb,0.21737e-02_rb,0.18550e-02_rb, &\n        & 0.16362e-02_rb,0.17771e-02_rb,0.19863e-02_rb,0.24506e-02_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.34506e-02_rb,0.30197e-02_rb,0.25888e-02_rb,0.21628e-02_rb,0.18864e-02_rb, &\n        & 0.17891e-02_rb,0.20527e-02_rb,0.22948e-02_rb,0.28308e-02_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.34242e-02_rb,0.29966e-02_rb,0.25690e-02_rb,0.21752e-02_rb,0.19463e-02_rb, &\n        & 0.20224e-02_rb,0.23798e-02_rb,0.26659e-02_rb,0.32785e-02_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.40545e-02_rb,0.35480e-02_rb,0.30415e-02_rb,0.25348e-02_rb,0.20284e-02_rb, &\n        & 0.16698e-02_rb,0.14585e-02_rb,0.15473e-02_rb,0.18938e-02_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.40094e-02_rb,0.35086e-02_rb,0.30078e-02_rb,0.25070e-02_rb,0.20421e-02_rb, &\n        & 0.17325e-02_rb,0.16159e-02_rb,0.17783e-02_rb,0.21732e-02_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.39679e-02_rb,0.34723e-02_rb,0.29772e-02_rb,0.24816e-02_rb,0.20882e-02_rb, &\n        & 0.17972e-02_rb,0.18217e-02_rb,0.20430e-02_rb,0.25042e-02_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.39321e-02_rb,0.34411e-02_rb,0.29500e-02_rb,0.24630e-02_rb,0.21284e-02_rb, &\n        & 0.19080e-02_rb,0.21043e-02_rb,0.23586e-02_rb,0.28966e-02_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.38953e-02_rb,0.34088e-02_rb,0.29224e-02_rb,0.24683e-02_rb,0.21576e-02_rb, &\n        & 0.21070e-02_rb,0.24382e-02_rb,0.27335e-02_rb,0.33549e-02_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.46508e-02_rb,0.40697e-02_rb,0.34886e-02_rb,0.29075e-02_rb,0.23264e-02_rb, &\n        & 0.18591e-02_rb,0.15578e-02_rb,0.15738e-02_rb,0.19224e-02_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.45823e-02_rb,0.40098e-02_rb,0.34374e-02_rb,0.28649e-02_rb,0.23092e-02_rb, &\n        & 0.19366e-02_rb,0.17051e-02_rb,0.18133e-02_rb,0.22104e-02_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.45166e-02_rb,0.39524e-02_rb,0.33880e-02_rb,0.28238e-02_rb,0.23394e-02_rb, &\n        & 0.19917e-02_rb,0.18843e-02_rb,0.20815e-02_rb,0.25365e-02_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.44602e-02_rb,0.39031e-02_rb,0.33460e-02_rb,0.27890e-02_rb,0.23856e-02_rb, &\n        & 0.20682e-02_rb,0.21419e-02_rb,0.24093e-02_rb,0.29396e-02_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.44050e-02_rb,0.38549e-02_rb,0.33047e-02_rb,0.27817e-02_rb,0.24123e-02_rb, &\n        & 0.22258e-02_rb,0.24850e-02_rb,0.27956e-02_rb,0.34119e-02_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.53098e-02_rb,0.46463e-02_rb,0.39828e-02_rb,0.33194e-02_rb,0.26559e-02_rb, &\n        & 0.20766e-02_rb,0.16840e-02_rb,0.16129e-02_rb,0.19635e-02_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.52134e-02_rb,0.45620e-02_rb,0.39106e-02_rb,0.32592e-02_rb,0.26145e-02_rb, &\n        & 0.21601e-02_rb,0.18269e-02_rb,0.18690e-02_rb,0.22681e-02_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.51182e-02_rb,0.44788e-02_rb,0.38392e-02_rb,0.31998e-02_rb,0.26226e-02_rb, &\n        & 0.22138e-02_rb,0.19824e-02_rb,0.21416e-02_rb,0.25956e-02_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.50344e-02_rb,0.44054e-02_rb,0.37765e-02_rb,0.31477e-02_rb,0.26616e-02_rb, &\n        & 0.22709e-02_rb,0.22099e-02_rb,0.24682e-02_rb,0.29962e-02_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.49550e-02_rb,0.43361e-02_rb,0.37172e-02_rb,0.31183e-02_rb,0.26883e-02_rb, &\n        & 0.23873e-02_rb,0.25425e-02_rb,0.28708e-02_rb,0.34790e-02_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.59619e-02_rb,0.52169e-02_rb,0.44719e-02_rb,0.37267e-02_rb,0.29817e-02_rb, &\n        & 0.23525e-02_rb,0.18854e-02_rb,0.17723e-02_rb,0.21445e-02_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.58318e-02_rb,0.51031e-02_rb,0.43744e-02_rb,0.36457e-02_rb,0.29351e-02_rb, &\n        & 0.24253e-02_rb,0.20278e-02_rb,0.20449e-02_rb,0.24715e-02_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.57112e-02_rb,0.49976e-02_rb,0.42840e-02_rb,0.35704e-02_rb,0.29381e-02_rb, &\n        & 0.24724e-02_rb,0.21871e-02_rb,0.23372e-02_rb,0.28231e-02_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.56008e-02_rb,0.49010e-02_rb,0.42013e-02_rb,0.35025e-02_rb,0.29677e-02_rb, &\n        & 0.25269e-02_rb,0.24222e-02_rb,0.27009e-02_rb,0.32614e-02_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.54961e-02_rb,0.48096e-02_rb,0.41230e-02_rb,0.34666e-02_rb,0.29811e-02_rb, &\n        & 0.26438e-02_rb,0.27691e-02_rb,0.31324e-02_rb,0.37747e-02_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.66218e-02_rb,0.57942e-02_rb,0.49667e-02_rb,0.41391e-02_rb,0.33116e-02_rb, &\n        & 0.26382e-02_rb,0.20922e-02_rb,0.19344e-02_rb,0.23267e-02_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.64584e-02_rb,0.56513e-02_rb,0.48443e-02_rb,0.40372e-02_rb,0.32618e-02_rb, &\n        & 0.26974e-02_rb,0.22343e-02_rb,0.22270e-02_rb,0.26783e-02_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.63097e-02_rb,0.55213e-02_rb,0.47331e-02_rb,0.39445e-02_rb,0.32599e-02_rb, &\n        & 0.27357e-02_rb,0.23983e-02_rb,0.25418e-02_rb,0.30577e-02_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.61694e-02_rb,0.53986e-02_rb,0.46278e-02_rb,0.38631e-02_rb,0.32772e-02_rb, &\n        & 0.27857e-02_rb,0.26412e-02_rb,0.29352e-02_rb,0.35233e-02_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.60360e-02_rb,0.52820e-02_rb,0.45279e-02_rb,0.38177e-02_rb,0.32735e-02_rb, &\n        & 0.29011e-02_rb,0.29998e-02_rb,0.33948e-02_rb,0.40685e-02_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.72856e-02_rb,0.63751e-02_rb,0.54646e-02_rb,0.45539e-02_rb,0.36434e-02_rb, &\n        & 0.29246e-02_rb,0.23024e-02_rb,0.20968e-02_rb,0.25004e-02_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.70792e-02_rb,0.61945e-02_rb,0.53099e-02_rb,0.44252e-02_rb,0.35875e-02_rb, &\n        & 0.29681e-02_rb,0.24397e-02_rb,0.24073e-02_rb,0.28787e-02_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.68966e-02_rb,0.60348e-02_rb,0.51733e-02_rb,0.43112e-02_rb,0.35811e-02_rb, &\n        & 0.29976e-02_rb,0.26071e-02_rb,0.27479e-02_rb,0.32886e-02_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.67258e-02_rb,0.58855e-02_rb,0.50451e-02_rb,0.42204e-02_rb,0.35830e-02_rb, &\n        & 0.30400e-02_rb,0.28573e-02_rb,0.31625e-02_rb,0.37791e-02_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.65607e-02_rb,0.57411e-02_rb,0.49214e-02_rb,0.41617e-02_rb,0.35593e-02_rb, &\n        & 0.31530e-02_rb,0.32258e-02_rb,0.36487e-02_rb,0.43508e-02_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.16712e-02_rb,0.14631e-02_rb,0.12550e-02_rb,0.10468e-02_rb,0.92082e-03_rb, &\n        & 0.11371e-02_rb,0.13321e-02_rb,0.14544e-02_rb,0.17472e-02_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.16787e-02_rb,0.14701e-02_rb,0.12615e-02_rb,0.10530e-02_rb,0.10440e-02_rb, &\n        & 0.12893e-02_rb,0.15114e-02_rb,0.16524e-02_rb,0.19826e-02_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.16875e-02_rb,0.14779e-02_rb,0.12683e-02_rb,0.10588e-02_rb,0.11676e-02_rb, &\n        & 0.14424e-02_rb,0.16914e-02_rb,0.18523e-02_rb,0.22202e-02_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.16926e-02_rb,0.14826e-02_rb,0.12725e-02_rb,0.10626e-02_rb,0.12909e-02_rb, &\n        & 0.15950e-02_rb,0.18720e-02_rb,0.20532e-02_rb,0.24579e-02_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.16942e-02_rb,0.14841e-02_rb,0.12739e-02_rb,0.11419e-02_rb,0.15149e-02_rb, &\n        & 0.18796e-02_rb,0.22246e-02_rb,0.24968e-02_rb,0.29379e-02_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.19607e-02_rb,0.17158e-02_rb,0.14714e-02_rb,0.12274e-02_rb,0.10440e-02_rb, &\n        & 0.12890e-02_rb,0.15097e-02_rb,0.16471e-02_rb,0.20285e-02_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.19666e-02_rb,0.17216e-02_rb,0.14767e-02_rb,0.12314e-02_rb,0.11872e-02_rb, &\n        & 0.14659e-02_rb,0.17177e-02_rb,0.18761e-02_rb,0.23077e-02_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.19740e-02_rb,0.17284e-02_rb,0.14830e-02_rb,0.12374e-02_rb,0.13301e-02_rb, &\n        & 0.16429e-02_rb,0.19255e-02_rb,0.21058e-02_rb,0.25866e-02_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.19796e-02_rb,0.17334e-02_rb,0.14872e-02_rb,0.12416e-02_rb,0.14717e-02_rb, &\n        & 0.18182e-02_rb,0.21321e-02_rb,0.23342e-02_rb,0.28637e-02_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.19818e-02_rb,0.17354e-02_rb,0.14891e-02_rb,0.12544e-02_rb,0.16318e-02_rb, &\n        & 0.20217e-02_rb,0.23832e-02_rb,0.26470e-02_rb,0.31951e-02_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.23039e-02_rb,0.20168e-02_rb,0.17292e-02_rb,0.14410e-02_rb,0.11614e-02_rb, &\n        & 0.14213e-02_rb,0.16646e-02_rb,0.18149e-02_rb,0.22923e-02_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.23064e-02_rb,0.20187e-02_rb,0.17311e-02_rb,0.14440e-02_rb,0.13190e-02_rb, &\n        & 0.16288e-02_rb,0.19083e-02_rb,0.20825e-02_rb,0.26267e-02_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.23119e-02_rb,0.20237e-02_rb,0.17351e-02_rb,0.14470e-02_rb,0.14864e-02_rb, &\n        & 0.18354e-02_rb,0.21515e-02_rb,0.23501e-02_rb,0.29596e-02_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.23154e-02_rb,0.20269e-02_rb,0.17385e-02_rb,0.14496e-02_rb,0.16513e-02_rb, &\n        & 0.20395e-02_rb,0.23915e-02_rb,0.26154e-02_rb,0.32883e-02_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.23212e-02_rb,0.20321e-02_rb,0.17430e-02_rb,0.14536e-02_rb,0.18129e-02_rb, &\n        & 0.22398e-02_rb,0.26272e-02_rb,0.28760e-02_rb,0.36101e-02_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.27129e-02_rb,0.23736e-02_rb,0.20348e-02_rb,0.16965e-02_rb,0.13577e-02_rb, &\n        & 0.15487e-02_rb,0.18138e-02_rb,0.19776e-02_rb,0.25289e-02_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.27133e-02_rb,0.23745e-02_rb,0.20358e-02_rb,0.16966e-02_rb,0.14516e-02_rb, &\n        & 0.17925e-02_rb,0.21002e-02_rb,0.22917e-02_rb,0.29262e-02_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.27155e-02_rb,0.23766e-02_rb,0.20379e-02_rb,0.16990e-02_rb,0.16483e-02_rb, &\n        & 0.20360e-02_rb,0.23858e-02_rb,0.26061e-02_rb,0.33224e-02_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.27175e-02_rb,0.23784e-02_rb,0.20394e-02_rb,0.17007e-02_rb,0.18426e-02_rb, &\n        & 0.22757e-02_rb,0.26681e-02_rb,0.29171e-02_rb,0.37132e-02_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.27186e-02_rb,0.23796e-02_rb,0.20406e-02_rb,0.17019e-02_rb,0.20320e-02_rb, &\n        & 0.25101e-02_rb,0.29443e-02_rb,0.32220e-02_rb,0.40947e-02_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.32119e-02_rb,0.28114e-02_rb,0.24099e-02_rb,0.20078e-02_rb,0.16065e-02_rb, &\n        & 0.16767e-02_rb,0.19643e-02_rb,0.21431e-02_rb,0.27523e-02_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.32085e-02_rb,0.28077e-02_rb,0.24069e-02_rb,0.20064e-02_rb,0.16195e-02_rb, &\n        & 0.19633e-02_rb,0.23007e-02_rb,0.25120e-02_rb,0.32215e-02_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.32085e-02_rb,0.28078e-02_rb,0.24068e-02_rb,0.20061e-02_rb,0.18214e-02_rb, &\n        & 0.22501e-02_rb,0.26375e-02_rb,0.28827e-02_rb,0.36897e-02_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.32059e-02_rb,0.28056e-02_rb,0.24053e-02_rb,0.20050e-02_rb,0.20501e-02_rb, &\n        & 0.25321e-02_rb,0.29699e-02_rb,0.32491e-02_rb,0.41521e-02_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.31984e-02_rb,0.27990e-02_rb,0.23997e-02_rb,0.20000e-02_rb,0.22727e-02_rb, &\n        & 0.28084e-02_rb,0.32949e-02_rb,0.36079e-02_rb,0.46028e-02_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.38076e-02_rb,0.33317e-02_rb,0.28559e-02_rb,0.23799e-02_rb,0.19041e-02_rb, &\n        & 0.17889e-02_rb,0.20969e-02_rb,0.22903e-02_rb,0.29420e-02_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.37964e-02_rb,0.33220e-02_rb,0.28476e-02_rb,0.23732e-02_rb,0.18989e-02_rb, &\n        & 0.21234e-02_rb,0.24900e-02_rb,0.27226e-02_rb,0.34908e-02_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.37877e-02_rb,0.33145e-02_rb,0.28416e-02_rb,0.23683e-02_rb,0.19985e-02_rb, &\n        & 0.24600e-02_rb,0.28851e-02_rb,0.31576e-02_rb,0.40421e-02_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.37785e-02_rb,0.33065e-02_rb,0.28344e-02_rb,0.23627e-02_rb,0.22594e-02_rb, &\n        & 0.27919e-02_rb,0.32761e-02_rb,0.35889e-02_rb,0.45855e-02_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.37630e-02_rb,0.32929e-02_rb,0.28229e-02_rb,0.23532e-02_rb,0.25213e-02_rb, &\n        & 0.31161e-02_rb,0.36579e-02_rb,0.40115e-02_rb,0.51155e-02_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.45014e-02_rb,0.39388e-02_rb,0.33762e-02_rb,0.28135e-02_rb,0.22509e-02_rb, &\n        & 0.18859e-02_rb,0.22117e-02_rb,0.24208e-02_rb,0.31038e-02_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.44788e-02_rb,0.39190e-02_rb,0.33593e-02_rb,0.27996e-02_rb,0.22399e-02_rb, &\n        & 0.22735e-02_rb,0.26677e-02_rb,0.29222e-02_rb,0.37394e-02_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.44593e-02_rb,0.39020e-02_rb,0.33439e-02_rb,0.27867e-02_rb,0.22518e-02_rb, &\n        & 0.26648e-02_rb,0.31283e-02_rb,0.34304e-02_rb,0.43806e-02_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.44374e-02_rb,0.38829e-02_rb,0.33284e-02_rb,0.27732e-02_rb,0.24705e-02_rb, &\n        & 0.30533e-02_rb,0.35850e-02_rb,0.39361e-02_rb,0.50160e-02_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.44113e-02_rb,0.38601e-02_rb,0.33089e-02_rb,0.27567e-02_rb,0.27756e-02_rb, &\n        & 0.34321e-02_rb,0.40324e-02_rb,0.44314e-02_rb,0.56359e-02_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.53031e-02_rb,0.46403e-02_rb,0.39774e-02_rb,0.33149e-02_rb,0.26520e-02_rb, &\n        & 0.20316e-02_rb,0.23080e-02_rb,0.25314e-02_rb,0.32334e-02_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.52648e-02_rb,0.46067e-02_rb,0.39487e-02_rb,0.32907e-02_rb,0.26325e-02_rb, &\n        & 0.24096e-02_rb,0.28298e-02_rb,0.31081e-02_rb,0.39611e-02_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.52246e-02_rb,0.45716e-02_rb,0.39189e-02_rb,0.32659e-02_rb,0.26125e-02_rb, &\n        & 0.28611e-02_rb,0.33614e-02_rb,0.36958e-02_rb,0.47006e-02_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.51821e-02_rb,0.45344e-02_rb,0.38868e-02_rb,0.32390e-02_rb,0.27289e-02_rb, &\n        & 0.33103e-02_rb,0.38912e-02_rb,0.42829e-02_rb,0.54355e-02_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.51356e-02_rb,0.44938e-02_rb,0.38520e-02_rb,0.32108e-02_rb,0.30299e-02_rb, &\n        & 0.37493e-02_rb,0.44090e-02_rb,0.48604e-02_rb,0.61537e-02_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.62116e-02_rb,0.54352e-02_rb,0.46587e-02_rb,0.38825e-02_rb,0.31060e-02_rb, &\n        & 0.23296e-02_rb,0.23830e-02_rb,0.26152e-02_rb,0.33400e-02_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.61510e-02_rb,0.53822e-02_rb,0.46134e-02_rb,0.38445e-02_rb,0.30756e-02_rb, &\n        & 0.25421e-02_rb,0.29622e-02_rb,0.32625e-02_rb,0.41372e-02_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.60862e-02_rb,0.53255e-02_rb,0.45651e-02_rb,0.38044e-02_rb,0.30427e-02_rb, &\n        & 0.30332e-02_rb,0.35680e-02_rb,0.39355e-02_rb,0.49777e-02_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.60169e-02_rb,0.52649e-02_rb,0.45129e-02_rb,0.37608e-02_rb,0.30629e-02_rb, &\n        & 0.35468e-02_rb,0.41747e-02_rb,0.46107e-02_rb,0.58172e-02_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.59428e-02_rb,0.52001e-02_rb,0.44573e-02_rb,0.37148e-02_rb,0.33039e-02_rb, &\n        & 0.40510e-02_rb,0.47683e-02_rb,0.52747e-02_rb,0.66403e-02_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.72226e-02_rb,0.63198e-02_rb,0.54170e-02_rb,0.45138e-02_rb,0.36111e-02_rb, &\n        & 0.27087e-02_rb,0.25246e-02_rb,0.27733e-02_rb,0.35348e-02_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.71308e-02_rb,0.62395e-02_rb,0.53482e-02_rb,0.44569e-02_rb,0.35656e-02_rb, &\n        & 0.27737e-02_rb,0.31148e-02_rb,0.34380e-02_rb,0.43453e-02_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.70337e-02_rb,0.61546e-02_rb,0.52755e-02_rb,0.43963e-02_rb,0.35178e-02_rb, &\n        & 0.32195e-02_rb,0.37898e-02_rb,0.41956e-02_rb,0.52718e-02_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.69308e-02_rb,0.60645e-02_rb,0.51982e-02_rb,0.43312e-02_rb,0.34725e-02_rb, &\n        & 0.37977e-02_rb,0.44773e-02_rb,0.49627e-02_rb,0.62190e-02_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.68213e-02_rb,0.59687e-02_rb,0.51162e-02_rb,0.42630e-02_rb,0.36577e-02_rb, &\n        & 0.43690e-02_rb,0.51523e-02_rb,0.57195e-02_rb,0.71486e-02_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.82729e-02_rb,0.72388e-02_rb,0.62047e-02_rb,0.51704e-02_rb,0.41364e-02_rb, &\n        & 0.31022e-02_rb,0.29450e-02_rb,0.32481e-02_rb,0.41092e-02_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.81377e-02_rb,0.71207e-02_rb,0.61034e-02_rb,0.50862e-02_rb,0.40694e-02_rb, &\n        & 0.32023e-02_rb,0.35972e-02_rb,0.39817e-02_rb,0.50045e-02_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.79927e-02_rb,0.69937e-02_rb,0.59945e-02_rb,0.49955e-02_rb,0.39980e-02_rb, &\n        & 0.36849e-02_rb,0.43305e-02_rb,0.48162e-02_rb,0.60016e-02_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.78435e-02_rb,0.68631e-02_rb,0.58827e-02_rb,0.49014e-02_rb,0.39530e-02_rb, &\n        & 0.43152e-02_rb,0.50942e-02_rb,0.56750e-02_rb,0.70494e-02_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.76868e-02_rb,0.67260e-02_rb,0.57653e-02_rb,0.48045e-02_rb,0.41698e-02_rb, &\n        & 0.49442e-02_rb,0.58408e-02_rb,0.65151e-02_rb,0.80731e-02_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.93677e-02_rb,0.81967e-02_rb,0.70258e-02_rb,0.58546e-02_rb,0.46837e-02_rb, &\n        & 0.35124e-02_rb,0.33991e-02_rb,0.37659e-02_rb,0.47255e-02_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.91725e-02_rb,0.80259e-02_rb,0.68794e-02_rb,0.57329e-02_rb,0.45871e-02_rb, &\n        & 0.36555e-02_rb,0.41158e-02_rb,0.45739e-02_rb,0.57058e-02_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.89743e-02_rb,0.78526e-02_rb,0.67312e-02_rb,0.56083e-02_rb,0.44874e-02_rb, &\n        & 0.41738e-02_rb,0.49000e-02_rb,0.54681e-02_rb,0.67707e-02_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.87651e-02_rb,0.76695e-02_rb,0.65740e-02_rb,0.54780e-02_rb,0.44541e-02_rb, &\n        & 0.48422e-02_rb,0.57276e-02_rb,0.64103e-02_rb,0.78928e-02_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.85557e-02_rb,0.74863e-02_rb,0.64169e-02_rb,0.53471e-02_rb,0.46965e-02_rb, &\n        & 0.55261e-02_rb,0.65398e-02_rb,0.73300e-02_rb,0.90026e-02_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.10484e-01_rb,0.91737e-02_rb,0.78632e-02_rb,0.65525e-02_rb,0.52420e-02_rb, &\n        & 0.39330e-02_rb,0.38753e-02_rb,0.43130e-02_rb,0.53655e-02_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.10212e-01_rb,0.89352e-02_rb,0.76588e-02_rb,0.63823e-02_rb,0.51063e-02_rb, &\n        & 0.41214e-02_rb,0.46538e-02_rb,0.51962e-02_rb,0.64287e-02_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.99472e-02_rb,0.87039e-02_rb,0.74620e-02_rb,0.62164e-02_rb,0.49733e-02_rb, &\n        & 0.46683e-02_rb,0.54886e-02_rb,0.61482e-02_rb,0.75590e-02_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.96776e-02_rb,0.84679e-02_rb,0.72583e-02_rb,0.60495e-02_rb,0.49611e-02_rb, &\n        & 0.53643e-02_rb,0.63558e-02_rb,0.71458e-02_rb,0.87290e-02_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.94084e-02_rb,0.82324e-02_rb,0.70564e-02_rb,0.58807e-02_rb,0.52210e-02_rb, &\n        & 0.60971e-02_rb,0.72271e-02_rb,0.81397e-02_rb,0.99102e-02_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.33062e-11_rb,0.42306e-11_rb,0.53172e-11_rb,0.65673e-11_rb,0.78335e-11_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.27467e-11_rb,0.35252e-11_rb,0.44160e-11_rb,0.54171e-11_rb,0.64630e-11_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.23431e-11_rb,0.29962e-11_rb,0.37507e-11_rb,0.46179e-11_rb,0.54790e-11_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.20178e-11_rb,0.25698e-11_rb,0.32330e-11_rb,0.40024e-11_rb,0.46899e-11_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.17389e-11_rb,0.22126e-11_rb,0.27864e-11_rb,0.34615e-11_rb,0.40184e-11_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.15164e-11_rb,0.19304e-11_rb,0.24263e-11_rb,0.29918e-11_rb,0.34734e-11_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.13194e-11_rb,0.16684e-11_rb,0.20851e-11_rb,0.25471e-11_rb,0.29992e-11_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.11345e-11_rb,0.14317e-11_rb,0.17813e-11_rb,0.21686e-11_rb,0.25523e-11_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.97614e-12_rb,0.12233e-11_rb,0.15124e-11_rb,0.18436e-11_rb,0.21624e-11_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.84972e-12_rb,0.10604e-11_rb,0.13001e-11_rb,0.15853e-11_rb,0.18511e-11_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.73919e-12_rb,0.91863e-12_rb,0.11179e-11_rb,0.13612e-11_rb,0.15791e-11_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.63952e-12_rb,0.79203e-12_rb,0.96272e-12_rb,0.11643e-11_rb,0.13384e-11_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.55198e-12_rb,0.68176e-12_rb,0.82782e-12_rb,0.99347e-12_rb,0.11342e-11_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.47648e-12_rb,0.58395e-12_rb,0.71214e-12_rb,0.84565e-12_rb,0.96146e-12_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.41185e-12_rb,0.50403e-12_rb,0.61156e-12_rb,0.71539e-12_rb,0.81410e-12_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.35568e-12_rb,0.43404e-12_rb,0.52441e-12_rb,0.60652e-12_rb,0.68860e-12_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.30863e-12_rb,0.37487e-12_rb,0.45120e-12_rb,0.51591e-12_rb,0.58367e-12_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.26804e-12_rb,0.32390e-12_rb,0.38615e-12_rb,0.43956e-12_rb,0.49890e-12_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.23316e-12_rb,0.28106e-12_rb,0.33068e-12_rb,0.37478e-12_rb,0.42377e-12_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.20255e-12_rb,0.24397e-12_rb,0.28293e-12_rb,0.31878e-12_rb,0.36224e-12_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.17541e-12_rb,0.21018e-12_rb,0.24052e-12_rb,0.27083e-12_rb,0.30963e-12_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.15014e-12_rb,0.17890e-12_rb,0.20293e-12_rb,0.23058e-12_rb,0.26131e-12_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.12610e-12_rb,0.14972e-12_rb,0.16906e-12_rb,0.19250e-12_rb,0.21752e-12_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.10365e-12_rb,0.12301e-12_rb,0.13878e-12_rb,0.15810e-12_rb,0.17856e-12_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.82572e-13_rb,0.98388e-13_rb,0.11143e-12_rb,0.12645e-12_rb,0.14343e-12_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.65632e-13_rb,0.78531e-13_rb,0.89359e-13_rb,0.10135e-12_rb,0.11495e-12_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.52174e-13_rb,0.62607e-13_rb,0.71650e-13_rb,0.80738e-13_rb,0.92112e-13_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.40434e-13_rb,0.48683e-13_rb,0.56479e-13_rb,0.63806e-13_rb,0.72155e-13_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.31179e-13_rb,0.37691e-13_rb,0.44339e-13_rb,0.50247e-13_rb,0.56982e-13_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.24040e-13_rb,0.29161e-13_rb,0.34731e-13_rb,0.39467e-13_rb,0.44922e-13_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.18259e-13_rb,0.22185e-13_rb,0.26753e-13_rb,0.30617e-13_rb,0.34721e-13_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.13667e-13_rb,0.16662e-13_rb,0.20308e-13_rb,0.23577e-13_rb,0.26865e-13_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.10182e-13_rb,0.12571e-13_rb,0.15345e-13_rb,0.18028e-13_rb,0.20725e-13_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.75196e-14_rb,0.94092e-14_rb,0.11475e-13_rb,0.13704e-13_rb,0.15878e-13_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.54721e-14_rb,0.69523e-14_rb,0.85280e-14_rb,0.10311e-13_rb,0.11952e-13_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.39619e-14_rb,0.50439e-14_rb,0.62896e-14_rb,0.77193e-14_rb,0.89282e-14_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.28508e-14_rb,0.36419e-14_rb,0.46044e-14_rb,0.57276e-14_rb,0.66866e-14_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.20973e-14_rb,0.26588e-14_rb,0.33754e-14_rb,0.42404e-14_rb,0.50338e-14_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.15010e-14_rb,0.19461e-14_rb,0.24807e-14_rb,0.31095e-14_rb,0.37789e-14_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.10686e-14_rb,0.14205e-14_rb,0.18164e-14_rb,0.22651e-14_rb,0.27790e-14_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.75469e-15_rb,0.10279e-14_rb,0.13211e-14_rb,0.16657e-14_rb,0.20344e-14_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.53837e-15_rb,0.75440e-15_rb,0.97064e-15_rb,0.12260e-14_rb,0.15156e-14_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.38620e-15_rb,0.54750e-15_rb,0.71223e-15_rb,0.90921e-15_rb,0.11265e-14_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.27852e-15_rb,0.39135e-15_rb,0.51858e-15_rb,0.66760e-15_rb,0.83486e-15_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.20280e-15_rb,0.27940e-15_rb,0.37558e-15_rb,0.48656e-15_rb,0.61658e-15_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.14586e-15_rb,0.19788e-15_rb,0.27273e-15_rb,0.35391e-15_rb,0.45250e-15_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.11164e-15_rb,0.15082e-15_rb,0.20804e-15_rb,0.27081e-15_rb,0.49339e-15_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.15800e-10_rb,0.20781e-10_rb,0.26154e-10_rb,0.31936e-10_rb,0.38062e-10_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.13333e-10_rb,0.17459e-10_rb,0.21881e-10_rb,0.26666e-10_rb,0.31696e-10_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.11381e-10_rb,0.14784e-10_rb,0.18449e-10_rb,0.22397e-10_rb,0.26533e-10_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.97593e-11_rb,0.12591e-10_rb,0.15641e-10_rb,0.18845e-10_rb,0.22503e-10_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.83473e-11_rb,0.10709e-10_rb,0.13261e-10_rb,0.15857e-10_rb,0.19052e-10_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.71523e-11_rb,0.91255e-11_rb,0.11229e-10_rb,0.13436e-10_rb,0.16145e-10_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.60777e-11_rb,0.77489e-11_rb,0.94796e-11_rb,0.11415e-10_rb,0.13591e-10_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.51693e-11_rb,0.65609e-11_rb,0.80124e-11_rb,0.96944e-11_rb,0.11427e-10_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.43931e-11_rb,0.55492e-11_rb,0.67698e-11_rb,0.81825e-11_rb,0.95836e-11_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.37967e-11_rb,0.47515e-11_rb,0.57759e-11_rb,0.69676e-11_rb,0.81090e-11_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.32747e-11_rb,0.40830e-11_rb,0.49616e-11_rb,0.59280e-11_rb,0.68614e-11_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.28215e-11_rb,0.34976e-11_rb,0.42532e-11_rb,0.50228e-11_rb,0.57971e-11_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.24334e-11_rb,0.29960e-11_rb,0.36396e-11_rb,0.42606e-11_rb,0.49056e-11_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.21117e-11_rb,0.25752e-11_rb,0.31134e-11_rb,0.36244e-11_rb,0.41489e-11_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.18253e-11_rb,0.22243e-11_rb,0.26576e-11_rb,0.30793e-11_rb,0.35048e-11_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.15682e-11_rb,0.19141e-11_rb,0.22636e-11_rb,0.26109e-11_rb,0.29589e-11_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.13535e-11_rb,0.16466e-11_rb,0.19296e-11_rb,0.22145e-11_rb,0.25005e-11_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.11709e-11_rb,0.14136e-11_rb,0.16432e-11_rb,0.18792e-11_rb,0.21240e-11_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.10216e-11_rb,0.12142e-11_rb,0.14045e-11_rb,0.15978e-11_rb,0.18001e-11_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.88417e-12_rb,0.10400e-11_rb,0.11973e-11_rb,0.13566e-11_rb,0.15303e-11_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.76210e-12_rb,0.89004e-12_rb,0.10199e-11_rb,0.11509e-11_rb,0.12984e-11_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.64910e-12_rb,0.75460e-12_rb,0.86122e-12_rb,0.97227e-12_rb,0.10908e-11_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.54374e-12_rb,0.63015e-12_rb,0.71745e-12_rb,0.80944e-12_rb,0.90628e-12_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.44718e-12_rb,0.51791e-12_rb,0.58946e-12_rb,0.66527e-12_rb,0.74411e-12_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.35793e-12_rb,0.41591e-12_rb,0.47443e-12_rb,0.53549e-12_rb,0.60041e-12_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.28618e-12_rb,0.33345e-12_rb,0.38124e-12_rb,0.43139e-12_rb,0.48394e-12_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.22858e-12_rb,0.26729e-12_rb,0.30628e-12_rb,0.34554e-12_rb,0.38998e-12_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.17867e-12_rb,0.21032e-12_rb,0.24207e-12_rb,0.27407e-12_rb,0.30925e-12_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.13875e-12_rb,0.16498e-12_rb,0.19072e-12_rb,0.21688e-12_rb,0.24410e-12_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.10714e-12_rb,0.12915e-12_rb,0.14999e-12_rb,0.17156e-12_rb,0.19364e-12_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.81856e-13_rb,0.99592e-13_rb,0.11661e-12_rb,0.13414e-12_rb,0.15145e-12_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.62221e-13_rb,0.75886e-13_rb,0.90106e-13_rb,0.10425e-12_rb,0.11838e-12_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.47139e-13_rb,0.57421e-13_rb,0.69401e-13_rb,0.80830e-13_rb,0.92462e-13_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.35469e-13_rb,0.43603e-13_rb,0.52913e-13_rb,0.62345e-13_rb,0.71769e-13_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.26308e-13_rb,0.32606e-13_rb,0.39610e-13_rb,0.47505e-13_rb,0.55354e-13_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.19388e-13_rb,0.24430e-13_rb,0.29903e-13_rb,0.35902e-13_rb,0.42540e-13_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.14144e-13_rb,0.18180e-13_rb,0.22467e-13_rb,0.26985e-13_rb,0.32471e-13_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.10280e-13_rb,0.13471e-13_rb,0.16900e-13_rb,0.20465e-13_rb,0.24665e-13_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.74898e-14_rb,0.99392e-14_rb,0.12674e-13_rb,0.15571e-13_rb,0.18663e-13_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.54214e-14_rb,0.72917e-14_rb,0.94517e-14_rb,0.11816e-13_rb,0.14256e-13_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.38970e-14_rb,0.53165e-14_rb,0.69989e-14_rb,0.88828e-14_rb,0.10862e-13_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.27972e-14_rb,0.38775e-14_rb,0.51927e-14_rb,0.66775e-14_rb,0.82659e-14_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.19962e-14_rb,0.28257e-14_rb,0.38491e-14_rb,0.50059e-14_rb,0.62864e-14_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.14049e-14_rb,0.20447e-14_rb,0.28389e-14_rb,0.37444e-14_rb,0.47474e-14_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.97467e-15_rb,0.14635e-14_rb,0.20787e-14_rb,0.27878e-14_rb,0.35737e-14_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.67770e-15_rb,0.10398e-14_rb,0.15169e-14_rb,0.20739e-14_rb,0.26951e-14_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.50857e-15_rb,0.79496e-15_rb,0.11749e-14_rb,0.16262e-14_rb,0.21270e-14_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.93671e-10_rb,0.11591e-09_rb,0.13715e-09_rb,0.15779e-09_rb,0.17870e-09_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.78883e-10_rb,0.96971e-10_rb,0.11437e-09_rb,0.13160e-09_rb,0.14863e-09_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.66900e-10_rb,0.81568e-10_rb,0.96052e-10_rb,0.11028e-09_rb,0.12439e-09_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.56737e-10_rb,0.68853e-10_rb,0.80870e-10_rb,0.92769e-10_rb,0.10422e-09_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.48148e-10_rb,0.58209e-10_rb,0.68168e-10_rb,0.78006e-10_rb,0.87308e-10_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.40874e-10_rb,0.49268e-10_rb,0.57591e-10_rb,0.65627e-10_rb,0.73296e-10_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.34619e-10_rb,0.41578e-10_rb,0.48414e-10_rb,0.55049e-10_rb,0.61235e-10_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.29370e-10_rb,0.35034e-10_rb,0.40682e-10_rb,0.46014e-10_rb,0.51115e-10_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.24821e-10_rb,0.29490e-10_rb,0.34141e-10_rb,0.38423e-10_rb,0.42621e-10_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.21204e-10_rb,0.25041e-10_rb,0.28846e-10_rb,0.32305e-10_rb,0.35757e-10_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.18107e-10_rb,0.21244e-10_rb,0.24304e-10_rb,0.27144e-10_rb,0.30005e-10_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.15432e-10_rb,0.18015e-10_rb,0.20470e-10_rb,0.22803e-10_rb,0.25180e-10_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.13155e-10_rb,0.15266e-10_rb,0.17234e-10_rb,0.19170e-10_rb,0.21096e-10_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11220e-10_rb,0.12944e-10_rb,0.14527e-10_rb,0.16132e-10_rb,0.17690e-10_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.95562e-11_rb,0.10942e-10_rb,0.12242e-10_rb,0.13560e-10_rb,0.14820e-10_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.81359e-11_rb,0.92394e-11_rb,0.10309e-10_rb,0.11386e-10_rb,0.12407e-10_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.69193e-11_rb,0.78077e-11_rb,0.87009e-11_rb,0.95682e-11_rb,0.10386e-10_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.58737e-11_rb,0.65956e-11_rb,0.73381e-11_rb,0.80325e-11_rb,0.87147e-11_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.49782e-11_rb,0.55816e-11_rb,0.61826e-11_rb,0.67463e-11_rb,0.73000e-11_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.42202e-11_rb,0.47232e-11_rb,0.52043e-11_rb,0.56623e-11_rb,0.61016e-11_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.35744e-11_rb,0.39897e-11_rb,0.43757e-11_rb,0.47465e-11_rb,0.50931e-11_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.30127e-11_rb,0.33496e-11_rb,0.36630e-11_rb,0.39738e-11_rb,0.42413e-11_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.25098e-11_rb,0.27837e-11_rb,0.30393e-11_rb,0.32916e-11_rb,0.35093e-11_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.20644e-11_rb,0.22886e-11_rb,0.24982e-11_rb,0.27043e-11_rb,0.28833e-11_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.16684e-11_rb,0.18536e-11_rb,0.20259e-11_rb,0.21979e-11_rb,0.23456e-11_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.13466e-11_rb,0.14996e-11_rb,0.16425e-11_rb,0.17834e-11_rb,0.19065e-11_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.10861e-11_rb,0.12130e-11_rb,0.13309e-11_rb,0.14440e-11_rb,0.15498e-11_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.86498e-12_rb,0.96921e-12_rb,0.10678e-11_rb,0.11601e-11_rb,0.12509e-11_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.68788e-12_rb,0.77191e-12_rb,0.85472e-12_rb,0.93133e-12_rb,0.10084e-11_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.54661e-12_rb,0.61437e-12_rb,0.68360e-12_rb,0.74699e-12_rb,0.81088e-12_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.42920e-12_rb,0.48515e-12_rb,0.54174e-12_rb,0.59564e-12_rb,0.64658e-12_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.33491e-12_rb,0.38198e-12_rb,0.42756e-12_rb,0.47274e-12_rb,0.51490e-12_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.26072e-12_rb,0.29981e-12_rb,0.33699e-12_rb,0.37442e-12_rb,0.40968e-12_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.20167e-12_rb,0.23370e-12_rb,0.26473e-12_rb,0.29535e-12_rb,0.32495e-12_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.15427e-12_rb,0.18070e-12_rb,0.20644e-12_rb,0.23129e-12_rb,0.25612e-12_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.11746e-12_rb,0.13905e-12_rb,0.16032e-12_rb,0.18088e-12_rb,0.20125e-12_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.88976e-13_rb,0.10661e-12_rb,0.12415e-12_rb,0.14128e-12_rb,0.15777e-12_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.67378e-13_rb,0.81791e-13_rb,0.96162e-13_rb,0.11029e-12_rb,0.12384e-12_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.50786e-13_rb,0.62576e-13_rb,0.74348e-13_rb,0.85995e-13_rb,0.97345e-13_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.37951e-13_rb,0.47645e-13_rb,0.57250e-13_rb,0.66805e-13_rb,0.76257e-13_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.28159e-13_rb,0.36102e-13_rb,0.43964e-13_rb,0.51774e-13_rb,0.59583e-13_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.21004e-13_rb,0.27366e-13_rb,0.33776e-13_rb,0.40177e-13_rb,0.46583e-13_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.15637e-13_rb,0.20632e-13_rb,0.25941e-13_rb,0.31184e-13_rb,0.36409e-13_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.11581e-13_rb,0.15522e-13_rb,0.19844e-13_rb,0.24130e-13_rb,0.28399e-13_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.85125e-14_rb,0.11631e-13_rb,0.15093e-13_rb,0.18610e-13_rb,0.22102e-13_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.62435e-14_rb,0.87193e-14_rb,0.11437e-13_rb,0.14347e-13_rb,0.17208e-13_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.48886e-14_rb,0.68810e-14_rb,0.90777e-14_rb,0.11450e-13_rb,0.13800e-13_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.49769e-09_rb,0.57573e-09_rb,0.65456e-09_rb,0.73233e-09_rb,0.81030e-09_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.41687e-09_rb,0.48070e-09_rb,0.54629e-09_rb,0.61156e-09_rb,0.67509e-09_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.35004e-09_rb,0.40346e-09_rb,0.45778e-09_rb,0.51155e-09_rb,0.56442e-09_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.29428e-09_rb,0.33893e-09_rb,0.38370e-09_rb,0.42831e-09_rb,0.47172e-09_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.24736e-09_rb,0.28447e-09_rb,0.32184e-09_rb,0.35882e-09_rb,0.39576e-09_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.20799e-09_rb,0.23913e-09_rb,0.26980e-09_rb,0.30118e-09_rb,0.33239e-09_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.17474e-09_rb,0.20037e-09_rb,0.22650e-09_rb,0.25275e-09_rb,0.27848e-09_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.14678e-09_rb,0.16826e-09_rb,0.19015e-09_rb,0.21182e-09_rb,0.23321e-09_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.12329e-09_rb,0.14137e-09_rb,0.15951e-09_rb,0.17762e-09_rb,0.19539e-09_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.10475e-09_rb,0.11989e-09_rb,0.13488e-09_rb,0.14993e-09_rb,0.16481e-09_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.89090e-10_rb,0.10156e-09_rb,0.11416e-09_rb,0.12661e-09_rb,0.13928e-09_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.75648e-10_rb,0.86094e-10_rb,0.96530e-10_rb,0.10692e-09_rb,0.11716e-09_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.64419e-10_rb,0.73036e-10_rb,0.81659e-10_rb,0.90142e-10_rb,0.98524e-10_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.54857e-10_rb,0.61972e-10_rb,0.69147e-10_rb,0.76125e-10_rb,0.82778e-10_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.46656e-10_rb,0.52591e-10_rb,0.58413e-10_rb,0.64168e-10_rb,0.69451e-10_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.39665e-10_rb,0.44561e-10_rb,0.49317e-10_rb,0.53971e-10_rb,0.58228e-10_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.33755e-10_rb,0.37736e-10_rb,0.41652e-10_rb,0.45382e-10_rb,0.48825e-10_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.28671e-10_rb,0.31949e-10_rb,0.35144e-10_rb,0.38141e-10_rb,0.41003e-10_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.24360e-10_rb,0.27027e-10_rb,0.29632e-10_rb,0.32038e-10_rb,0.34391e-10_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.20671e-10_rb,0.22852e-10_rb,0.24963e-10_rb,0.26903e-10_rb,0.28818e-10_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.17515e-10_rb,0.19306e-10_rb,0.20998e-10_rb,0.22562e-10_rb,0.24113e-10_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.14755e-10_rb,0.16223e-10_rb,0.17588e-10_rb,0.18905e-10_rb,0.20105e-10_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.12305e-10_rb,0.13505e-10_rb,0.14616e-10_rb,0.15703e-10_rb,0.16661e-10_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.10152e-10_rb,0.11132e-10_rb,0.12046e-10_rb,0.12938e-10_rb,0.13718e-10_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.82437e-11_rb,0.90546e-11_rb,0.98101e-11_rb,0.10549e-10_rb,0.11200e-10_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.66891e-11_rb,0.73572e-11_rb,0.79832e-11_rb,0.85923e-11_rb,0.91388e-11_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.54271e-11_rb,0.59789e-11_rb,0.64946e-11_rb,0.69804e-11_rb,0.74536e-11_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.43504e-11_rb,0.48077e-11_rb,0.52359e-11_rb,0.56420e-11_rb,0.60390e-11_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.34805e-11_rb,0.38570e-11_rb,0.42158e-11_rb,0.45532e-11_rb,0.48856e-11_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.27817e-11_rb,0.30896e-11_rb,0.33906e-11_rb,0.36712e-11_rb,0.39504e-11_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.22059e-11_rb,0.24603e-11_rb,0.27112e-11_rb,0.29449e-11_rb,0.31673e-11_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.17407e-11_rb,0.19508e-11_rb,0.21593e-11_rb,0.23549e-11_rb,0.25394e-11_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.13717e-11_rb,0.15444e-11_rb,0.17149e-11_rb,0.18808e-11_rb,0.20349e-11_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.10758e-11_rb,0.12178e-11_rb,0.13582e-11_rb,0.14973e-11_rb,0.16264e-11_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.83623e-12_rb,0.95326e-12_rb,0.10692e-11_rb,0.11850e-11_rb,0.12934e-11_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.64811e-12_rb,0.74426e-12_rb,0.84002e-12_rb,0.93446e-12_rb,0.10270e-11_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.50093e-12_rb,0.57976e-12_rb,0.65824e-12_rb,0.73652e-12_rb,0.81364e-12_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.38740e-12_rb,0.45167e-12_rb,0.51620e-12_rb,0.58084e-12_rb,0.64495e-12_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.29910e-12_rb,0.35149e-12_rb,0.40454e-12_rb,0.45768e-12_rb,0.51010e-12_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.23004e-12_rb,0.27291e-12_rb,0.31637e-12_rb,0.35993e-12_rb,0.40313e-12_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.17654e-12_rb,0.21129e-12_rb,0.24667e-12_rb,0.28251e-12_rb,0.31798e-12_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.13566e-12_rb,0.16388e-12_rb,0.19277e-12_rb,0.22203e-12_rb,0.25140e-12_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.10414e-12_rb,0.12705e-12_rb,0.15062e-12_rb,0.17458e-12_rb,0.19863e-12_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.79695e-13_rb,0.98154e-13_rb,0.11737e-12_rb,0.13696e-12_rb,0.15674e-12_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.60735e-13_rb,0.75667e-13_rb,0.91265e-13_rb,0.10718e-12_rb,0.12346e-12_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.46331e-13_rb,0.58316e-13_rb,0.71018e-13_rb,0.83950e-13_rb,0.97215e-13_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.36896e-13_rb,0.46643e-13_rb,0.57036e-13_rb,0.67613e-13_rb,0.78545e-13_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.26254e-08_rb,0.28627e-08_rb,0.30909e-08_rb,0.33000e-08_rb,0.34892e-08_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.21830e-08_rb,0.23794e-08_rb,0.25635e-08_rb,0.27354e-08_rb,0.28987e-08_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.18164e-08_rb,0.19772e-08_rb,0.21299e-08_rb,0.22819e-08_rb,0.24177e-08_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.15141e-08_rb,0.16500e-08_rb,0.17819e-08_rb,0.19057e-08_rb,0.20139e-08_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.12644e-08_rb,0.13791e-08_rb,0.14854e-08_rb,0.15868e-08_rb,0.16779e-08_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.10569e-08_rb,0.11490e-08_rb,0.12387e-08_rb,0.13249e-08_rb,0.14004e-08_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.88077e-09_rb,0.95771e-09_rb,0.10342e-08_rb,0.11045e-08_rb,0.11654e-08_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.73433e-09_rb,0.79954e-09_rb,0.86343e-09_rb,0.92049e-09_rb,0.97111e-09_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.61317e-09_rb,0.66751e-09_rb,0.72065e-09_rb,0.76613e-09_rb,0.80891e-09_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.51519e-09_rb,0.56066e-09_rb,0.60290e-09_rb,0.64113e-09_rb,0.67719e-09_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.43331e-09_rb,0.47103e-09_rb,0.50532e-09_rb,0.53747e-09_rb,0.56589e-09_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.36478e-09_rb,0.39531e-09_rb,0.42421e-09_rb,0.45023e-09_rb,0.47333e-09_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.30661e-09_rb,0.33249e-09_rb,0.35642e-09_rb,0.37711e-09_rb,0.39645e-09_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.25851e-09_rb,0.28030e-09_rb,0.29893e-09_rb,0.31621e-09_rb,0.33249e-09_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.21849e-09_rb,0.23581e-09_rb,0.25124e-09_rb,0.26548e-09_rb,0.27889e-09_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.18476e-09_rb,0.19866e-09_rb,0.21115e-09_rb,0.22285e-09_rb,0.23419e-09_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.15608e-09_rb,0.16725e-09_rb,0.17764e-09_rb,0.18744e-09_rb,0.19627e-09_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.13180e-09_rb,0.14084e-09_rb,0.14944e-09_rb,0.15734e-09_rb,0.16419e-09_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.11122e-09_rb,0.11878e-09_rb,0.12548e-09_rb,0.13183e-09_rb,0.13690e-09_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.93806e-10_rb,0.99909e-10_rb,0.10547e-09_rb,0.11013e-09_rb,0.11393e-09_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.79057e-10_rb,0.83869e-10_rb,0.88337e-10_rb,0.91833e-10_rb,0.94728e-10_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.66383e-10_rb,0.70216e-10_rb,0.73644e-10_rb,0.76467e-10_rb,0.78589e-10_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.55303e-10_rb,0.58435e-10_rb,0.61122e-10_rb,0.63317e-10_rb,0.64984e-10_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.45788e-10_rb,0.48318e-10_rb,0.50463e-10_rb,0.52237e-10_rb,0.53589e-10_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.37517e-10_rb,0.39593e-10_rb,0.41407e-10_rb,0.42883e-10_rb,0.44012e-10_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.30717e-10_rb,0.32436e-10_rb,0.33950e-10_rb,0.35197e-10_rb,0.36146e-10_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.25129e-10_rb,0.26560e-10_rb,0.27827e-10_rb,0.28835e-10_rb,0.29676e-10_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.20420e-10_rb,0.21620e-10_rb,0.22699e-10_rb,0.23564e-10_rb,0.24290e-10_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.16561e-10_rb,0.17583e-10_rb,0.18496e-10_rb,0.19245e-10_rb,0.19868e-10_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.13418e-10_rb,0.14291e-10_rb,0.15059e-10_rb,0.15706e-10_rb,0.16243e-10_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.10810e-10_rb,0.11562e-10_rb,0.12210e-10_rb,0.12774e-10_rb,0.13223e-10_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.86843e-11_rb,0.93265e-11_rb,0.98789e-11_rb,0.10369e-10_rb,0.10770e-10_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.69593e-11_rb,0.75111e-11_rb,0.79891e-11_rb,0.84084e-11_rb,0.87638e-11_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.55576e-11_rb,0.60308e-11_rb,0.64400e-11_rb,0.68030e-11_rb,0.71149e-11_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.44097e-11_rb,0.48155e-11_rb,0.51709e-11_rb,0.54794e-11_rb,0.57570e-11_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.34877e-11_rb,0.38384e-11_rb,0.41433e-11_rb,0.44120e-11_rb,0.46521e-11_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.27512e-11_rb,0.30491e-11_rb,0.33123e-11_rb,0.35456e-11_rb,0.37509e-11_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.21734e-11_rb,0.24185e-11_rb,0.26481e-11_rb,0.28485e-11_rb,0.30236e-11_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.17150e-11_rb,0.19185e-11_rb,0.21147e-11_rb,0.22857e-11_rb,0.24371e-11_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.13499e-11_rb,0.15196e-11_rb,0.16853e-11_rb,0.18315e-11_rb,0.19613e-11_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.10590e-11_rb,0.11989e-11_rb,0.13374e-11_rb,0.14641e-11_rb,0.15756e-11_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.83182e-12_rb,0.94832e-12_rb,0.10625e-11_rb,0.11713e-11_rb,0.12669e-11_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.65257e-12_rb,0.74992e-12_rb,0.84445e-12_rb,0.93664e-12_rb,0.10175e-11_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.51109e-12_rb,0.59162e-12_rb,0.67030e-12_rb,0.74706e-12_rb,0.81634e-12_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.39868e-12_rb,0.46532e-12_rb,0.53042e-12_rb,0.59449e-12_rb,0.65374e-12_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.31062e-12_rb,0.36629e-12_rb,0.42009e-12_rb,0.47298e-12_rb,0.52357e-12_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.24996e-12_rb,0.29597e-12_rb,0.34052e-12_rb,0.38403e-12_rb,0.42584e-12_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.10275e-07_rb,0.10425e-07_rb,0.10505e-07_rb,0.10571e-07_rb,0.10619e-07_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.84309e-08_rb,0.85528e-08_rb,0.86280e-08_rb,0.86935e-08_rb,0.87236e-08_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.69259e-08_rb,0.70218e-08_rb,0.71031e-08_rb,0.71419e-08_rb,0.71430e-08_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.56933e-08_rb,0.57765e-08_rb,0.58298e-08_rb,0.58527e-08_rb,0.58704e-08_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.46880e-08_rb,0.47555e-08_rb,0.47985e-08_rb,0.48270e-08_rb,0.48471e-08_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.38628e-08_rb,0.39183e-08_rb,0.39591e-08_rb,0.39923e-08_rb,0.40106e-08_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.31833e-08_rb,0.32370e-08_rb,0.32750e-08_rb,0.32992e-08_rb,0.33139e-08_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.26315e-08_rb,0.26765e-08_rb,0.27033e-08_rb,0.27208e-08_rb,0.27412e-08_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.21768e-08_rb,0.22074e-08_rb,0.22281e-08_rb,0.22492e-08_rb,0.22648e-08_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.17970e-08_rb,0.18204e-08_rb,0.18421e-08_rb,0.18603e-08_rb,0.18697e-08_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.14828e-08_rb,0.15043e-08_rb,0.15235e-08_rb,0.15373e-08_rb,0.15469e-08_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.12265e-08_rb,0.12457e-08_rb,0.12602e-08_rb,0.12704e-08_rb,0.12795e-08_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.10153e-08_rb,0.10303e-08_rb,0.10406e-08_rb,0.10511e-08_rb,0.10591e-08_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.84067e-09_rb,0.85220e-09_rb,0.86139e-09_rb,0.87145e-09_rb,0.87606e-09_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.69556e-09_rb,0.70441e-09_rb,0.71396e-09_rb,0.72098e-09_rb,0.72486e-09_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.57505e-09_rb,0.58326e-09_rb,0.59186e-09_rb,0.59662e-09_rb,0.60056e-09_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.47621e-09_rb,0.48459e-09_rb,0.49079e-09_rb,0.49432e-09_rb,0.49717e-09_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.39513e-09_rb,0.40232e-09_rb,0.40640e-09_rb,0.40995e-09_rb,0.41263e-09_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.32890e-09_rb,0.33390e-09_rb,0.33797e-09_rb,0.34036e-09_rb,0.34440e-09_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.27372e-09_rb,0.27757e-09_rb,0.28057e-09_rb,0.28360e-09_rb,0.28668e-09_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.22771e-09_rb,0.23074e-09_rb,0.23349e-09_rb,0.23595e-09_rb,0.23797e-09_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.18899e-09_rb,0.19179e-09_rb,0.19391e-09_rb,0.19591e-09_rb,0.19720e-09_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.15677e-09_rb,0.15897e-09_rb,0.16075e-09_rb,0.16219e-09_rb,0.16318e-09_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.12972e-09_rb,0.13147e-09_rb,0.13291e-09_rb,0.13412e-09_rb,0.13484e-09_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.10704e-09_rb,0.10855e-09_rb,0.10970e-09_rb,0.11065e-09_rb,0.11129e-09_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.88219e-10_rb,0.89571e-10_rb,0.90489e-10_rb,0.91263e-10_rb,0.91821e-10_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.72709e-10_rb,0.73884e-10_rb,0.74615e-10_rb,0.75144e-10_rb,0.75719e-10_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.59779e-10_rb,0.60793e-10_rb,0.61424e-10_rb,0.61873e-10_rb,0.62379e-10_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.49104e-10_rb,0.49999e-10_rb,0.50541e-10_rb,0.50924e-10_rb,0.51369e-10_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.40324e-10_rb,0.41079e-10_rb,0.41584e-10_rb,0.41914e-10_rb,0.42279e-10_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.33050e-10_rb,0.33695e-10_rb,0.34173e-10_rb,0.34462e-10_rb,0.34716e-10_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.27054e-10_rb,0.27604e-10_rb,0.28056e-10_rb,0.28313e-10_rb,0.28542e-10_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.22112e-10_rb,0.22613e-10_rb,0.23018e-10_rb,0.23255e-10_rb,0.23441e-10_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.18060e-10_rb,0.18501e-10_rb,0.18867e-10_rb,0.19082e-10_rb,0.19252e-10_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.14722e-10_rb,0.15111e-10_rb,0.15432e-10_rb,0.15658e-10_rb,0.15802e-10_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.11985e-10_rb,0.12318e-10_rb,0.12624e-10_rb,0.12826e-10_rb,0.12965e-10_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.97421e-11_rb,0.10040e-10_rb,0.10306e-10_rb,0.10499e-10_rb,0.10630e-10_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.79055e-11_rb,0.81823e-11_rb,0.84121e-11_rb,0.85902e-11_rb,0.87163e-11_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.64164e-11_rb,0.66612e-11_rb,0.68621e-11_rb,0.70240e-11_rb,0.71428e-11_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.51935e-11_rb,0.54159e-11_rb,0.55861e-11_rb,0.57406e-11_rb,0.58465e-11_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.42017e-11_rb,0.43985e-11_rb,0.45525e-11_rb,0.46862e-11_rb,0.47817e-11_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.33953e-11_rb,0.35701e-11_rb,0.37080e-11_rb,0.38204e-11_rb,0.39118e-11_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.27420e-11_rb,0.28948e-11_rb,0.30166e-11_rb,0.31148e-11_rb,0.31981e-11_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.22097e-11_rb,0.23440e-11_rb,0.24518e-11_rb,0.25378e-11_rb,0.26122e-11_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.17765e-11_rb,0.18968e-11_rb,0.19913e-11_rb,0.20659e-11_rb,0.21319e-11_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.14264e-11_rb,0.15324e-11_rb,0.16166e-11_rb,0.16816e-11_rb,0.17374e-11_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.11621e-11_rb,0.12515e-11_rb,0.13230e-11_rb,0.13773e-11_rb,0.14240e-11_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.28079e-07_rb,0.28035e-07_rb,0.27949e-07_rb,0.27835e-07_rb,0.27661e-07_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.23041e-07_rb,0.22982e-07_rb,0.22914e-07_rb,0.22814e-07_rb,0.22653e-07_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.18899e-07_rb,0.18860e-07_rb,0.18790e-07_rb,0.18675e-07_rb,0.18596e-07_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.15489e-07_rb,0.15457e-07_rb,0.15389e-07_rb,0.15337e-07_rb,0.15329e-07_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.12699e-07_rb,0.12665e-07_rb,0.12634e-07_rb,0.12640e-07_rb,0.12612e-07_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.10409e-07_rb,0.10397e-07_rb,0.10401e-07_rb,0.10391e-07_rb,0.10368e-07_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.85482e-08_rb,0.85403e-08_rb,0.85408e-08_rb,0.85379e-08_rb,0.85325e-08_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.70183e-08_rb,0.70212e-08_rb,0.70225e-08_rb,0.70232e-08_rb,0.70243e-08_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.57704e-08_rb,0.57836e-08_rb,0.57919e-08_rb,0.57990e-08_rb,0.58135e-08_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.47522e-08_rb,0.47673e-08_rb,0.47834e-08_rb,0.48084e-08_rb,0.48239e-08_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.39186e-08_rb,0.39439e-08_rb,0.39679e-08_rb,0.39863e-08_rb,0.40063e-08_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.32407e-08_rb,0.32645e-08_rb,0.32840e-08_rb,0.33039e-08_rb,0.33353e-08_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.26846e-08_rb,0.27012e-08_rb,0.27199e-08_rb,0.27477e-08_rb,0.27761e-08_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.22196e-08_rb,0.22367e-08_rb,0.22646e-08_rb,0.22896e-08_rb,0.23141e-08_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.18370e-08_rb,0.18616e-08_rb,0.18864e-08_rb,0.19087e-08_rb,0.19319e-08_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.15259e-08_rb,0.15495e-08_rb,0.15695e-08_rb,0.15912e-08_rb,0.16152e-08_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.12717e-08_rb,0.12907e-08_rb,0.13087e-08_rb,0.13304e-08_rb,0.13523e-08_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.10599e-08_rb,0.10765e-08_rb,0.10939e-08_rb,0.11139e-08_rb,0.11374e-08_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.88411e-09_rb,0.89833e-09_rb,0.91628e-09_rb,0.93662e-09_rb,0.95540e-09_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.73723e-09_rb,0.75198e-09_rb,0.77042e-09_rb,0.78608e-09_rb,0.80601e-09_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.61511e-09_rb,0.63161e-09_rb,0.64646e-09_rb,0.66232e-09_rb,0.68095e-09_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.51621e-09_rb,0.53001e-09_rb,0.54332e-09_rb,0.55986e-09_rb,0.57326e-09_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.43217e-09_rb,0.44439e-09_rb,0.45713e-09_rb,0.47103e-09_rb,0.48242e-09_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.36090e-09_rb,0.37166e-09_rb,0.38311e-09_rb,0.39461e-09_rb,0.40545e-09_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.29990e-09_rb,0.30916e-09_rb,0.31937e-09_rb,0.32943e-09_rb,0.34038e-09_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.24927e-09_rb,0.25737e-09_rb,0.26638e-09_rb,0.27543e-09_rb,0.28596e-09_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.20718e-09_rb,0.21434e-09_rb,0.22203e-09_rb,0.23026e-09_rb,0.23966e-09_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.17122e-09_rb,0.17745e-09_rb,0.18425e-09_rb,0.19138e-09_rb,0.19937e-09_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.14145e-09_rb,0.14673e-09_rb,0.15273e-09_rb,0.15885e-09_rb,0.16544e-09_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.11673e-09_rb,0.12130e-09_rb,0.12626e-09_rb,0.13156e-09_rb,0.13718e-09_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.95979e-10_rb,0.99773e-10_rb,0.10407e-09_rb,0.10848e-09_rb,0.11289e-09_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.78684e-10_rb,0.81894e-10_rb,0.85476e-10_rb,0.89249e-10_rb,0.92971e-10_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.64482e-10_rb,0.67161e-10_rb,0.70163e-10_rb,0.73315e-10_rb,0.76486e-10_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.52720e-10_rb,0.54998e-10_rb,0.57509e-10_rb,0.60128e-10_rb,0.62787e-10_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.42902e-10_rb,0.44887e-10_rb,0.46948e-10_rb,0.49098e-10_rb,0.51392e-10_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.34914e-10_rb,0.36612e-10_rb,0.38268e-10_rb,0.40114e-10_rb,0.41998e-10_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.28363e-10_rb,0.29830e-10_rb,0.31160e-10_rb,0.32712e-10_rb,0.34278e-10_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.23044e-10_rb,0.24298e-10_rb,0.25411e-10_rb,0.26663e-10_rb,0.27956e-10_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.18719e-10_rb,0.19762e-10_rb,0.20717e-10_rb,0.21748e-10_rb,0.22834e-10_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.15214e-10_rb,0.16060e-10_rb,0.16882e-10_rb,0.17722e-10_rb,0.18609e-10_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.12339e-10_rb,0.13039e-10_rb,0.13738e-10_rb,0.14413e-10_rb,0.15144e-10_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.10028e-10_rb,0.10589e-10_rb,0.11176e-10_rb,0.11743e-10_rb,0.12340e-10_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.81332e-11_rb,0.85988e-11_rb,0.90904e-11_rb,0.95545e-11_rb,0.10057e-10_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.66047e-11_rb,0.69777e-11_rb,0.73796e-11_rb,0.77755e-11_rb,0.81880e-11_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.53536e-11_rb,0.56554e-11_rb,0.59940e-11_rb,0.63232e-11_rb,0.66612e-11_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.43329e-11_rb,0.45903e-11_rb,0.48661e-11_rb,0.51412e-11_rb,0.54200e-11_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.35522e-11_rb,0.37646e-11_rb,0.39940e-11_rb,0.42211e-11_rb,0.44525e-11_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.11230e-06_rb,0.11409e-06_rb,0.11566e-06_rb,0.11672e-06_rb,0.11734e-06_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.92428e-07_rb,0.93878e-07_rb,0.95014e-07_rb,0.95711e-07_rb,0.96110e-07_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.76021e-07_rb,0.77148e-07_rb,0.77913e-07_rb,0.78505e-07_rb,0.78756e-07_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.62512e-07_rb,0.63402e-07_rb,0.63979e-07_rb,0.64292e-07_rb,0.64352e-07_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.51480e-07_rb,0.52099e-07_rb,0.52465e-07_rb,0.52634e-07_rb,0.52753e-07_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.42336e-07_rb,0.42773e-07_rb,0.43015e-07_rb,0.43145e-07_rb,0.43290e-07_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.34820e-07_rb,0.35138e-07_rb,0.35326e-07_rb,0.35465e-07_rb,0.35546e-07_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.28634e-07_rb,0.28882e-07_rb,0.29099e-07_rb,0.29190e-07_rb,0.29248e-07_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.23527e-07_rb,0.23767e-07_rb,0.23879e-07_rb,0.24001e-07_rb,0.24136e-07_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.19380e-07_rb,0.19526e-07_rb,0.19668e-07_rb,0.19823e-07_rb,0.20000e-07_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.15955e-07_rb,0.16103e-07_rb,0.16252e-07_rb,0.16425e-07_rb,0.16561e-07_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.13163e-07_rb,0.13294e-07_rb,0.13466e-07_rb,0.13609e-07_rb,0.13701e-07_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.10863e-07_rb,0.11029e-07_rb,0.11155e-07_rb,0.11256e-07_rb,0.11368e-07_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.90043e-08_rb,0.91173e-08_rb,0.92226e-08_rb,0.93261e-08_rb,0.94322e-08_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.74604e-08_rb,0.75548e-08_rb,0.76410e-08_rb,0.77390e-08_rb,0.78488e-08_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.61944e-08_rb,0.62754e-08_rb,0.63658e-08_rb,0.64728e-08_rb,0.65523e-08_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.51553e-08_rb,0.52390e-08_rb,0.53444e-08_rb,0.54244e-08_rb,0.55104e-08_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.43022e-08_rb,0.44056e-08_rb,0.44906e-08_rb,0.45753e-08_rb,0.46815e-08_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.36260e-08_rb,0.37147e-08_rb,0.37854e-08_rb,0.38857e-08_rb,0.39725e-08_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.30574e-08_rb,0.31222e-08_rb,0.32149e-08_rb,0.32959e-08_rb,0.33679e-08_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.25690e-08_rb,0.26475e-08_rb,0.27306e-08_rb,0.27942e-08_rb,0.28607e-08_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.21739e-08_rb,0.22522e-08_rb,0.23131e-08_rb,0.23724e-08_rb,0.24398e-08_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.18403e-08_rb,0.19033e-08_rb,0.19580e-08_rb,0.20191e-08_rb,0.20792e-08_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.15538e-08_rb,0.16068e-08_rb,0.16535e-08_rb,0.17159e-08_rb,0.17681e-08_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.13002e-08_rb,0.13483e-08_rb,0.13923e-08_rb,0.14493e-08_rb,0.14927e-08_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.10893e-08_rb,0.11319e-08_rb,0.11765e-08_rb,0.12253e-08_rb,0.12624e-08_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.91348e-09_rb,0.95067e-09_rb,0.99134e-09_rb,0.10293e-08_rb,0.10668e-08_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.76170e-09_rb,0.79404e-09_rb,0.82953e-09_rb,0.86548e-09_rb,0.90041e-09_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.63292e-09_rb,0.66170e-09_rb,0.69363e-09_rb,0.72573e-09_rb,0.75710e-09_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.52609e-09_rb,0.55120e-09_rb,0.57974e-09_rb,0.60803e-09_rb,0.63636e-09_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.43444e-09_rb,0.45674e-09_rb,0.48206e-09_rb,0.50747e-09_rb,0.53053e-09_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.35755e-09_rb,0.37758e-09_rb,0.39965e-09_rb,0.42169e-09_rb,0.44276e-09_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.29410e-09_rb,0.31126e-09_rb,0.33079e-09_rb,0.35014e-09_rb,0.36874e-09_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.24113e-09_rb,0.25605e-09_rb,0.27273e-09_rb,0.28962e-09_rb,0.30646e-09_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.19675e-09_rb,0.20937e-09_rb,0.22390e-09_rb,0.23865e-09_rb,0.25330e-09_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.16029e-09_rb,0.17125e-09_rb,0.18339e-09_rb,0.19620e-09_rb,0.20918e-09_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.13018e-09_rb,0.13961e-09_rb,0.15020e-09_rb,0.16108e-09_rb,0.17231e-09_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.10559e-09_rb,0.11394e-09_rb,0.12271e-09_rb,0.13208e-09_rb,0.14200e-09_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.85569e-10_rb,0.92775e-10_rb,0.10011e-09_rb,0.10818e-09_rb,0.11665e-09_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.69342e-10_rb,0.75341e-10_rb,0.81596e-10_rb,0.88527e-10_rb,0.95876e-10_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.56003e-10_rb,0.61203e-10_rb,0.66389e-10_rb,0.72376e-10_rb,0.78642e-10_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.45380e-10_rb,0.49599e-10_rb,0.54006e-10_rb,0.59069e-10_rb,0.64380e-10_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.36637e-10_rb,0.40078e-10_rb,0.43990e-10_rb,0.48279e-10_rb,0.52815e-10_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.29596e-10_rb,0.32455e-10_rb,0.35694e-10_rb,0.39315e-10_rb,0.43169e-10_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.23911e-10_rb,0.26268e-10_rb,0.28916e-10_rb,0.31929e-10_rb,0.35182e-10_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.19299e-10_rb,0.21198e-10_rb,0.23407e-10_rb,0.25936e-10_rb,0.28689e-10_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.15839e-10_rb,0.17448e-10_rb,0.19334e-10_rb,0.21469e-10_rb,0.23829e-10_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.96471e-06_rb,0.97408e-06_rb,0.98436e-06_rb,0.99439e-06_rb,0.10050e-05_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.80904e-06_rb,0.81838e-06_rb,0.82742e-06_rb,0.83703e-06_rb,0.84742e-06_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.67733e-06_rb,0.68563e-06_rb,0.69403e-06_rb,0.70345e-06_rb,0.71287e-06_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.56582e-06_rb,0.57313e-06_rb,0.58159e-06_rb,0.59012e-06_rb,0.59880e-06_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.47164e-06_rb,0.47892e-06_rb,0.48671e-06_rb,0.49436e-06_rb,0.50258e-06_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.39308e-06_rb,0.39992e-06_rb,0.40685e-06_rb,0.41415e-06_rb,0.42143e-06_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.32764e-06_rb,0.33370e-06_rb,0.34000e-06_rb,0.34660e-06_rb,0.35294e-06_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.27304e-06_rb,0.27855e-06_rb,0.28433e-06_rb,0.29002e-06_rb,0.29550e-06_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.22762e-06_rb,0.23263e-06_rb,0.23776e-06_rb,0.24264e-06_rb,0.24751e-06_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.19016e-06_rb,0.19467e-06_rb,0.19902e-06_rb,0.20331e-06_rb,0.20743e-06_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.15902e-06_rb,0.16285e-06_rb,0.16664e-06_rb,0.17032e-06_rb,0.17381e-06_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.13300e-06_rb,0.13639e-06_rb,0.13965e-06_rb,0.14271e-06_rb,0.14575e-06_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.11136e-06_rb,0.11428e-06_rb,0.11705e-06_rb,0.11966e-06_rb,0.12234e-06_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.93355e-07_rb,0.95870e-07_rb,0.98179e-07_rb,0.10046e-06_rb,0.10295e-06_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.78546e-07_rb,0.80656e-07_rb,0.82694e-07_rb,0.84793e-07_rb,0.87129e-07_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.65991e-07_rb,0.67786e-07_rb,0.69602e-07_rb,0.71624e-07_rb,0.74063e-07_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.55459e-07_rb,0.56995e-07_rb,0.58695e-07_rb,0.60741e-07_rb,0.63281e-07_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.46750e-07_rb,0.48054e-07_rb,0.49703e-07_rb,0.51793e-07_rb,0.54403e-07_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.39452e-07_rb,0.40727e-07_rb,0.42319e-07_rb,0.44486e-07_rb,0.47323e-07_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.33473e-07_rb,0.34884e-07_rb,0.36502e-07_rb,0.38781e-07_rb,0.41735e-07_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.28581e-07_rb,0.30008e-07_rb,0.31748e-07_rb,0.34217e-07_rb,0.37511e-07_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.24450e-07_rb,0.25951e-07_rb,0.27867e-07_rb,0.30565e-07_rb,0.34125e-07_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.20942e-07_rb,0.22554e-07_rb,0.24574e-07_rb,0.27409e-07_rb,0.31159e-07_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.18081e-07_rb,0.19648e-07_rb,0.21657e-07_rb,0.24573e-07_rb,0.28429e-07_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.15436e-07_rb,0.16978e-07_rb,0.19037e-07_rb,0.21710e-07_rb,0.25509e-07_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.13187e-07_rb,0.14690e-07_rb,0.16738e-07_rb,0.19257e-07_rb,0.22992e-07_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.11282e-07_rb,0.12751e-07_rb,0.14794e-07_rb,0.17292e-07_rb,0.20852e-07_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.96293e-08_rb,0.10973e-07_rb,0.12917e-07_rb,0.15272e-07_rb,0.18582e-07_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.81770e-08_rb,0.94352e-08_rb,0.11220e-07_rb,0.13516e-07_rb,0.16546e-07_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.69323e-08_rb,0.80750e-08_rb,0.97479e-08_rb,0.11964e-07_rb,0.14736e-07_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.58312e-08_rb,0.68571e-08_rb,0.83595e-08_rb,0.10414e-07_rb,0.12928e-07_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.48754e-08_rb,0.58128e-08_rb,0.71504e-08_rb,0.90270e-08_rb,0.11362e-07_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.40522e-08_rb,0.48841e-08_rb,0.60765e-08_rb,0.77697e-08_rb,0.99439e-08_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.33429e-08_rb,0.40820e-08_rb,0.51038e-08_rb,0.66237e-08_rb,0.86427e-08_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.27297e-08_rb,0.33571e-08_rb,0.42806e-08_rb,0.55863e-08_rb,0.73605e-08_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.22143e-08_rb,0.27445e-08_rb,0.35414e-08_rb,0.46711e-08_rb,0.62204e-08_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.18030e-08_rb,0.22208e-08_rb,0.28995e-08_rb,0.38639e-08_rb,0.52216e-08_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.14670e-08_rb,0.18085e-08_rb,0.23853e-08_rb,0.32522e-08_rb,0.44284e-08_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.11873e-08_rb,0.14637e-08_rb,0.19592e-08_rb,0.27073e-08_rb,0.37306e-08_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.96876e-09_rb,0.11883e-08_rb,0.15881e-08_rb,0.22316e-08_rb,0.31252e-08_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.79526e-09_rb,0.95443e-09_rb,0.12843e-08_rb,0.18180e-08_rb,0.25992e-08_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.65045e-09_rb,0.77197e-09_rb,0.10500e-08_rb,0.14963e-08_rb,0.21953e-08_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.53001e-09_rb,0.62144e-09_rb,0.84441e-09_rb,0.12265e-08_rb,0.18415e-08_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.43274e-09_rb,0.50433e-09_rb,0.67633e-09_rb,0.10051e-08_rb,0.15294e-08_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.35151e-09_rb,0.40652e-09_rb,0.53819e-09_rb,0.80840e-09_rb,0.12530e-08_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.28511e-09_rb,0.33047e-09_rb,0.42809e-09_rb,0.65584e-09_rb,0.10383e-08_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.23557e-09_rb,0.27695e-09_rb,0.36588e-09_rb,0.57468e-09_rb,0.92796e-09_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.49379e-05_rb,0.50469e-05_rb,0.51595e-05_rb,0.52778e-05_rb,0.54099e-05_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.42812e-05_rb,0.43888e-05_rb,0.45022e-05_rb,0.46302e-05_rb,0.47669e-05_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.36929e-05_rb,0.37965e-05_rb,0.39164e-05_rb,0.40454e-05_rb,0.41827e-05_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.31721e-05_rb,0.32791e-05_rb,0.33975e-05_rb,0.35246e-05_rb,0.36634e-05_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.27212e-05_rb,0.28264e-05_rb,0.29414e-05_rb,0.30666e-05_rb,0.32085e-05_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.23339e-05_rb,0.24330e-05_rb,0.25438e-05_rb,0.26711e-05_rb,0.28184e-05_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.19987e-05_rb,0.20932e-05_rb,0.22036e-05_rb,0.23332e-05_rb,0.24834e-05_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.17132e-05_rb,0.18061e-05_rb,0.19176e-05_rb,0.20491e-05_rb,0.21989e-05_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.14710e-05_rb,0.15640e-05_rb,0.16759e-05_rb,0.18061e-05_rb,0.19600e-05_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.12737e-05_rb,0.13668e-05_rb,0.14788e-05_rb,0.16132e-05_rb,0.17763e-05_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.11088e-05_rb,0.12015e-05_rb,0.13166e-05_rb,0.14583e-05_rb,0.16304e-05_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.97145e-06_rb,0.10662e-05_rb,0.11867e-05_rb,0.13370e-05_rb,0.15170e-05_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.85857e-06_rb,0.95791e-06_rb,0.10855e-05_rb,0.12438e-05_rb,0.14327e-05_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.76914e-06_rb,0.87488e-06_rb,0.10107e-05_rb,0.11782e-05_rb,0.13762e-05_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.69709e-06_rb,0.81000e-06_rb,0.95427e-06_rb,0.11311e-05_rb,0.13395e-05_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.64352e-06_rb,0.76453e-06_rb,0.91846e-06_rb,0.11047e-05_rb,0.13225e-05_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.60601e-06_rb,0.73668e-06_rb,0.90033e-06_rb,0.10967e-05_rb,0.13241e-05_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.58144e-06_rb,0.72277e-06_rb,0.89681e-06_rb,0.11031e-05_rb,0.13400e-05_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.57013e-06_rb,0.72161e-06_rb,0.90691e-06_rb,0.11230e-05_rb,0.13684e-05_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.57021e-06_rb,0.73098e-06_rb,0.92629e-06_rb,0.11521e-05_rb,0.14071e-05_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.58025e-06_rb,0.75106e-06_rb,0.95601e-06_rb,0.11909e-05_rb,0.14530e-05_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.59352e-06_rb,0.77298e-06_rb,0.98581e-06_rb,0.12280e-05_rb,0.14964e-05_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.59731e-06_rb,0.78147e-06_rb,0.99919e-06_rb,0.12457e-05_rb,0.15176e-05_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.58516e-06_rb,0.77138e-06_rb,0.99076e-06_rb,0.12378e-05_rb,0.15105e-05_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.55140e-06_rb,0.73346e-06_rb,0.94817e-06_rb,0.11937e-05_rb,0.14631e-05_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.51916e-06_rb,0.69705e-06_rb,0.90723e-06_rb,0.11496e-05_rb,0.14156e-05_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.48960e-06_rb,0.66318e-06_rb,0.86863e-06_rb,0.11068e-05_rb,0.13701e-05_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.44595e-06_rb,0.61209e-06_rb,0.81011e-06_rb,0.10412e-05_rb,0.12987e-05_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.40399e-06_rb,0.56185e-06_rb,0.75199e-06_rb,0.97449e-06_rb,0.12265e-05_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.36503e-06_rb,0.51494e-06_rb,0.69685e-06_rb,0.91108e-06_rb,0.11565e-05_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.32174e-06_rb,0.46170e-06_rb,0.63377e-06_rb,0.83820e-06_rb,0.10749e-05_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.27930e-06_rb,0.40829e-06_rb,0.56968e-06_rb,0.76331e-06_rb,0.98961e-06_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.24096e-06_rb,0.35938e-06_rb,0.50997e-06_rb,0.69291e-06_rb,0.90837e-06_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.20431e-06_rb,0.31166e-06_rb,0.45096e-06_rb,0.62224e-06_rb,0.82595e-06_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.16816e-06_rb,0.26359e-06_rb,0.38972e-06_rb,0.54827e-06_rb,0.73938e-06_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.13670e-06_rb,0.22070e-06_rb,0.33435e-06_rb,0.47996e-06_rb,0.65830e-06_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.10953e-06_rb,0.18282e-06_rb,0.28430e-06_rb,0.41725e-06_rb,0.58243e-06_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.88267e-07_rb,0.15143e-06_rb,0.24199e-06_rb,0.36271e-06_rb,0.51595e-06_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.70298e-07_rb,0.12484e-06_rb,0.20511e-06_rb,0.31462e-06_rb,0.45605e-06_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.55131e-07_rb,0.10217e-06_rb,0.17234e-06_rb,0.27088e-06_rb,0.40072e-06_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.43153e-07_rb,0.82195e-07_rb,0.14318e-06_rb,0.23139e-06_rb,0.34955e-06_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.33903e-07_rb,0.66466e-07_rb,0.12020e-06_rb,0.19856e-06_rb,0.30630e-06_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.26416e-07_rb,0.53605e-07_rb,0.10034e-06_rb,0.17017e-06_rb,0.26833e-06_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.20206e-07_rb,0.42611e-07_rb,0.82928e-07_rb,0.14532e-06_rb,0.23365e-06_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.15310e-07_rb,0.33413e-07_rb,0.67820e-07_rb,0.12262e-06_rb,0.20213e-06_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.11722e-07_rb,0.26420e-07_rb,0.55414e-07_rb,0.10347e-06_rb,0.17567e-06_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.10312e-07_rb,0.23851e-07_rb,0.50918e-07_rb,0.96421e-07_rb,0.16547e-06_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.10213e-04_rb,0.10492e-04_rb,0.10768e-04_rb,0.11052e-04_rb,0.11341e-04_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.92065e-05_rb,0.95170e-05_rb,0.98374e-05_rb,0.10166e-04_rb,0.10515e-04_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.82447e-05_rb,0.85845e-05_rb,0.89388e-05_rb,0.93243e-05_rb,0.97313e-05_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.73562e-05_rb,0.77204e-05_rb,0.81177e-05_rb,0.85472e-05_rb,0.89941e-05_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.65534e-05_rb,0.69440e-05_rb,0.73753e-05_rb,0.78408e-05_rb,0.83202e-05_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.58421e-05_rb,0.62603e-05_rb,0.67231e-05_rb,0.72105e-05_rb,0.77276e-05_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.52249e-05_rb,0.56681e-05_rb,0.61484e-05_rb,0.66668e-05_rb,0.72285e-05_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.47032e-05_rb,0.51617e-05_rb,0.56660e-05_rb,0.62226e-05_rb,0.68302e-05_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.42601e-05_rb,0.47338e-05_rb,0.52698e-05_rb,0.58670e-05_rb,0.65065e-05_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.39167e-05_rb,0.44205e-05_rb,0.49953e-05_rb,0.56267e-05_rb,0.62956e-05_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.36499e-05_rb,0.41883e-05_rb,0.47965e-05_rb,0.54568e-05_rb,0.61529e-05_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.34565e-05_rb,0.40283e-05_rb,0.46653e-05_rb,0.53526e-05_rb,0.60723e-05_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.33292e-05_rb,0.39315e-05_rb,0.45958e-05_rb,0.53082e-05_rb,0.60473e-05_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.32653e-05_rb,0.38970e-05_rb,0.45879e-05_rb,0.53204e-05_rb,0.60776e-05_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.32497e-05_rb,0.39083e-05_rb,0.46221e-05_rb,0.53722e-05_rb,0.61437e-05_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.32741e-05_rb,0.39580e-05_rb,0.46902e-05_rb,0.54541e-05_rb,0.62354e-05_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.33369e-05_rb,0.40429e-05_rb,0.47902e-05_rb,0.55664e-05_rb,0.63553e-05_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.34283e-05_rb,0.41504e-05_rb,0.49124e-05_rb,0.56972e-05_rb,0.64922e-05_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.35444e-05_rb,0.42823e-05_rb,0.50547e-05_rb,0.58477e-05_rb,0.66477e-05_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.36801e-05_rb,0.44317e-05_rb,0.52138e-05_rb,0.60136e-05_rb,0.68176e-05_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.38318e-05_rb,0.45951e-05_rb,0.53855e-05_rb,0.61901e-05_rb,0.69963e-05_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.39692e-05_rb,0.47416e-05_rb,0.55387e-05_rb,0.63463e-05_rb,0.71529e-05_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.40413e-05_rb,0.48197e-05_rb,0.56200e-05_rb,0.64302e-05_rb,0.72378e-05_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.40356e-05_rb,0.48162e-05_rb,0.56178e-05_rb,0.64290e-05_rb,0.72385e-05_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.39181e-05_rb,0.46953e-05_rb,0.54967e-05_rb,0.63083e-05_rb,0.71198e-05_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.37977e-05_rb,0.45715e-05_rb,0.53704e-05_rb,0.61820e-05_rb,0.69964e-05_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.36811e-05_rb,0.44507e-05_rb,0.52481e-05_rb,0.60593e-05_rb,0.68739e-05_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.34909e-05_rb,0.42522e-05_rb,0.50444e-05_rb,0.58543e-05_rb,0.66697e-05_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.32953e-05_rb,0.40465e-05_rb,0.48326e-05_rb,0.56401e-05_rb,0.64551e-05_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.31040e-05_rb,0.38444e-05_rb,0.46230e-05_rb,0.54267e-05_rb,0.62419e-05_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.28773e-05_rb,0.36028e-05_rb,0.43716e-05_rb,0.51693e-05_rb,0.59825e-05_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.26404e-05_rb,0.33480e-05_rb,0.41036e-05_rb,0.48939e-05_rb,0.57034e-05_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.24120e-05_rb,0.30991e-05_rb,0.38405e-05_rb,0.46208e-05_rb,0.54260e-05_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.21786e-05_rb,0.28418e-05_rb,0.35659e-05_rb,0.43343e-05_rb,0.51318e-05_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.19311e-05_rb,0.25641e-05_rb,0.32660e-05_rb,0.40180e-05_rb,0.48060e-05_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.16967e-05_rb,0.22980e-05_rb,0.29746e-05_rb,0.37093e-05_rb,0.44842e-05_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.14774e-05_rb,0.20448e-05_rb,0.26926e-05_rb,0.34064e-05_rb,0.41668e-05_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.12873e-05_rb,0.18193e-05_rb,0.24384e-05_rb,0.31296e-05_rb,0.38742e-05_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.11146e-05_rb,0.16126e-05_rb,0.22020e-05_rb,0.28686e-05_rb,0.35959e-05_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.95604e-06_rb,0.14200e-05_rb,0.19761e-05_rb,0.26163e-05_rb,0.33236e-05_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.80966e-06_rb,0.12381e-05_rb,0.17610e-05_rb,0.23732e-05_rb,0.30580e-05_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.68766e-06_rb,0.10830e-05_rb,0.15763e-05_rb,0.21583e-05_rb,0.28207e-05_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.58212e-06_rb,0.94518e-06_rb,0.14071e-05_rb,0.19616e-05_rb,0.26001e-05_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.48769e-06_rb,0.81784e-06_rb,0.12480e-05_rb,0.17754e-05_rb,0.23872e-05_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.40334e-06_rb,0.70099e-06_rb,0.10993e-05_rb,0.15960e-05_rb,0.21818e-05_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.33254e-06_rb,0.59979e-06_rb,0.96749e-06_rb,0.14348e-05_rb,0.19961e-05_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.30667e-06_rb,0.56182e-06_rb,0.91722e-06_rb,0.13728e-05_rb,0.19233e-05_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.21780e-04_rb,0.22297e-04_rb,0.22851e-04_rb,0.23387e-04_rb,0.23897e-04_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.20875e-04_rb,0.21531e-04_rb,0.22189e-04_rb,0.22823e-04_rb,0.23424e-04_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.19941e-04_rb,0.20728e-04_rb,0.21492e-04_rb,0.22225e-04_rb,0.22948e-04_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.19013e-04_rb,0.19918e-04_rb,0.20796e-04_rb,0.21654e-04_rb,0.22503e-04_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.18129e-04_rb,0.19150e-04_rb,0.20149e-04_rb,0.21144e-04_rb,0.22094e-04_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.17308e-04_rb,0.18451e-04_rb,0.19578e-04_rb,0.20689e-04_rb,0.21728e-04_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.16581e-04_rb,0.17835e-04_rb,0.19087e-04_rb,0.20285e-04_rb,0.21402e-04_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.15978e-04_rb,0.17349e-04_rb,0.18704e-04_rb,0.19972e-04_rb,0.21143e-04_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.15496e-04_rb,0.16976e-04_rb,0.18403e-04_rb,0.19724e-04_rb,0.20952e-04_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.15240e-04_rb,0.16798e-04_rb,0.18272e-04_rb,0.19635e-04_rb,0.20901e-04_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.15105e-04_rb,0.16716e-04_rb,0.18220e-04_rb,0.19617e-04_rb,0.20916e-04_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.15076e-04_rb,0.16719e-04_rb,0.18249e-04_rb,0.19672e-04_rb,0.20991e-04_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.15141e-04_rb,0.16802e-04_rb,0.18352e-04_rb,0.19786e-04_rb,0.21116e-04_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.15306e-04_rb,0.16974e-04_rb,0.18529e-04_rb,0.19965e-04_rb,0.21296e-04_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.15522e-04_rb,0.17192e-04_rb,0.18747e-04_rb,0.20182e-04_rb,0.21501e-04_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.15784e-04_rb,0.17449e-04_rb,0.18996e-04_rb,0.20419e-04_rb,0.21733e-04_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.16090e-04_rb,0.17744e-04_rb,0.19276e-04_rb,0.20687e-04_rb,0.21987e-04_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.16419e-04_rb,0.18062e-04_rb,0.19575e-04_rb,0.20970e-04_rb,0.22248e-04_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.16777e-04_rb,0.18399e-04_rb,0.19892e-04_rb,0.21268e-04_rb,0.22521e-04_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.17152e-04_rb,0.18750e-04_rb,0.20222e-04_rb,0.21573e-04_rb,0.22802e-04_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.17537e-04_rb,0.19109e-04_rb,0.20556e-04_rb,0.21883e-04_rb,0.23082e-04_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.17871e-04_rb,0.19418e-04_rb,0.20844e-04_rb,0.22147e-04_rb,0.23322e-04_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.18052e-04_rb,0.19587e-04_rb,0.21002e-04_rb,0.22291e-04_rb,0.23455e-04_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.18063e-04_rb,0.19601e-04_rb,0.21016e-04_rb,0.22306e-04_rb,0.23468e-04_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.17833e-04_rb,0.19389e-04_rb,0.20824e-04_rb,0.22132e-04_rb,0.23314e-04_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.17587e-04_rb,0.19167e-04_rb,0.20623e-04_rb,0.21950e-04_rb,0.23152e-04_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.17343e-04_rb,0.18945e-04_rb,0.20418e-04_rb,0.21765e-04_rb,0.22984e-04_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.16926e-04_rb,0.18563e-04_rb,0.20065e-04_rb,0.21446e-04_rb,0.22697e-04_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.16478e-04_rb,0.18152e-04_rb,0.19687e-04_rb,0.21101e-04_rb,0.22388e-04_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.16023e-04_rb,0.17729e-04_rb,0.19301e-04_rb,0.20748e-04_rb,0.22068e-04_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.15458e-04_rb,0.17203e-04_rb,0.18821e-04_rb,0.20305e-04_rb,0.21667e-04_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.14831e-04_rb,0.16623e-04_rb,0.18287e-04_rb,0.19814e-04_rb,0.21219e-04_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.14192e-04_rb,0.16029e-04_rb,0.17735e-04_rb,0.19308e-04_rb,0.20757e-04_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.13493e-04_rb,0.15380e-04_rb,0.17134e-04_rb,0.18756e-04_rb,0.20247e-04_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.12693e-04_rb,0.14634e-04_rb,0.16440e-04_rb,0.18118e-04_rb,0.19661e-04_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.11878e-04_rb,0.13868e-04_rb,0.15729e-04_rb,0.17458e-04_rb,0.19054e-04_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.11052e-04_rb,0.13077e-04_rb,0.14993e-04_rb,0.16776e-04_rb,0.18429e-04_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.10274e-04_rb,0.12322e-04_rb,0.14286e-04_rb,0.16119e-04_rb,0.17820e-04_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.95165e-05_rb,0.11577e-04_rb,0.13581e-04_rb,0.15463e-04_rb,0.17211e-04_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.87654e-05_rb,0.10825e-04_rb,0.12859e-04_rb,0.14791e-04_rb,0.16589e-04_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.80213e-05_rb,0.10071e-04_rb,0.12124e-04_rb,0.14102e-04_rb,0.15949e-04_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.73473e-05_rb,0.93776e-05_rb,0.11439e-04_rb,0.13452e-04_rb,0.15344e-04_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.67127e-05_rb,0.87188e-05_rb,0.10780e-04_rb,0.12816e-04_rb,0.14751e-04_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.60935e-05_rb,0.80668e-05_rb,0.10118e-04_rb,0.12169e-04_rb,0.14148e-04_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.54908e-05_rb,0.74223e-05_rb,0.94571e-05_rb,0.11517e-04_rb,0.13528e-04_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.49372e-05_rb,0.68201e-05_rb,0.88324e-05_rb,0.10894e-04_rb,0.12926e-04_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.47213e-05_rb,0.65842e-05_rb,0.85835e-05_rb,0.10644e-04_rb,0.12683e-04_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.46820e-04_rb,0.47158e-04_rb,0.47420e-04_rb,0.47688e-04_rb,0.47860e-04_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.47343e-04_rb,0.47824e-04_rb,0.48275e-04_rb,0.48677e-04_rb,0.48937e-04_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.47643e-04_rb,0.48345e-04_rb,0.48980e-04_rb,0.49469e-04_rb,0.49813e-04_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.47844e-04_rb,0.48762e-04_rb,0.49536e-04_rb,0.50120e-04_rb,0.50548e-04_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.47956e-04_rb,0.49079e-04_rb,0.49982e-04_rb,0.50640e-04_rb,0.51155e-04_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.48046e-04_rb,0.49334e-04_rb,0.50343e-04_rb,0.51068e-04_rb,0.51673e-04_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.48132e-04_rb,0.49550e-04_rb,0.50630e-04_rb,0.51453e-04_rb,0.52124e-04_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.48262e-04_rb,0.49765e-04_rb,0.50907e-04_rb,0.51808e-04_rb,0.52533e-04_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.48402e-04_rb,0.49959e-04_rb,0.51170e-04_rb,0.52136e-04_rb,0.52894e-04_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.48671e-04_rb,0.50243e-04_rb,0.51485e-04_rb,0.52481e-04_rb,0.53256e-04_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.48954e-04_rb,0.50544e-04_rb,0.51806e-04_rb,0.52811e-04_rb,0.53587e-04_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.49272e-04_rb,0.50858e-04_rb,0.52128e-04_rb,0.53125e-04_rb,0.53892e-04_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.49616e-04_rb,0.51186e-04_rb,0.52450e-04_rb,0.53425e-04_rb,0.54174e-04_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.50001e-04_rb,0.51551e-04_rb,0.52773e-04_rb,0.53723e-04_rb,0.54445e-04_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.50406e-04_rb,0.51904e-04_rb,0.53086e-04_rb,0.54001e-04_rb,0.54687e-04_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.50802e-04_rb,0.52248e-04_rb,0.53391e-04_rb,0.54260e-04_rb,0.54906e-04_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.51204e-04_rb,0.52593e-04_rb,0.53683e-04_rb,0.54507e-04_rb,0.55109e-04_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.51608e-04_rb,0.52928e-04_rb,0.53956e-04_rb,0.54730e-04_rb,0.55285e-04_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.51993e-04_rb,0.53249e-04_rb,0.54213e-04_rb,0.54939e-04_rb,0.55442e-04_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.52364e-04_rb,0.53549e-04_rb,0.54461e-04_rb,0.55127e-04_rb,0.55583e-04_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.52722e-04_rb,0.53841e-04_rb,0.54688e-04_rb,0.55301e-04_rb,0.55705e-04_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.53018e-04_rb,0.54074e-04_rb,0.54867e-04_rb,0.55434e-04_rb,0.55799e-04_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.53187e-04_rb,0.54211e-04_rb,0.54980e-04_rb,0.55515e-04_rb,0.55855e-04_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.53222e-04_rb,0.54242e-04_rb,0.55009e-04_rb,0.55544e-04_rb,0.55878e-04_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.53077e-04_rb,0.54137e-04_rb,0.54934e-04_rb,0.55495e-04_rb,0.55862e-04_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.52907e-04_rb,0.54013e-04_rb,0.54850e-04_rb,0.55445e-04_rb,0.55837e-04_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.52736e-04_rb,0.53884e-04_rb,0.54754e-04_rb,0.55383e-04_rb,0.55805e-04_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.52415e-04_rb,0.53638e-04_rb,0.54576e-04_rb,0.55258e-04_rb,0.55727e-04_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.52053e-04_rb,0.53364e-04_rb,0.54368e-04_rb,0.55117e-04_rb,0.55636e-04_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.51661e-04_rb,0.53061e-04_rb,0.54142e-04_rb,0.54952e-04_rb,0.55527e-04_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.51150e-04_rb,0.52667e-04_rb,0.53836e-04_rb,0.54732e-04_rb,0.55377e-04_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.50559e-04_rb,0.52194e-04_rb,0.53480e-04_rb,0.54465e-04_rb,0.55186e-04_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.49921e-04_rb,0.51684e-04_rb,0.53086e-04_rb,0.54162e-04_rb,0.54971e-04_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.49197e-04_rb,0.51093e-04_rb,0.52628e-04_rb,0.53809e-04_rb,0.54714e-04_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.48328e-04_rb,0.50372e-04_rb,0.52058e-04_rb,0.53374e-04_rb,0.54380e-04_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.47381e-04_rb,0.49603e-04_rb,0.51420e-04_rb,0.52887e-04_rb,0.54013e-04_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.46342e-04_rb,0.48755e-04_rb,0.50735e-04_rb,0.52347e-04_rb,0.53594e-04_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.45266e-04_rb,0.47911e-04_rb,0.50033e-04_rb,0.51782e-04_rb,0.53163e-04_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.44139e-04_rb,0.47021e-04_rb,0.49310e-04_rb,0.51184e-04_rb,0.52699e-04_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.42930e-04_rb,0.46044e-04_rb,0.48523e-04_rb,0.50540e-04_rb,0.52191e-04_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.41632e-04_rb,0.44983e-04_rb,0.47688e-04_rb,0.49847e-04_rb,0.51629e-04_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.40359e-04_rb,0.43928e-04_rb,0.46843e-04_rb,0.49172e-04_rb,0.51075e-04_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.39074e-04_rb,0.42858e-04_rb,0.45984e-04_rb,0.48480e-04_rb,0.50508e-04_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.37728e-04_rb,0.41722e-04_rb,0.45056e-04_rb,0.47740e-04_rb,0.49900e-04_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.36320e-04_rb,0.40515e-04_rb,0.44055e-04_rb,0.46942e-04_rb,0.49258e-04_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.34927e-04_rb,0.39308e-04_rb,0.43052e-04_rb,0.46141e-04_rb,0.48596e-04_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.34349e-04_rb,0.38808e-04_rb,0.42631e-04_rb,0.45802e-04_rb,0.48325e-04_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.91739e-04_rb,0.90588e-04_rb,0.89270e-04_rb,0.87862e-04_rb,0.86541e-04_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.97111e-04_rb,0.95879e-04_rb,0.94382e-04_rb,0.92799e-04_rb,0.91344e-04_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.10201e-03_rb,0.10059e-03_rb,0.98963e-04_rb,0.97297e-04_rb,0.95661e-04_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.10632e-03_rb,0.10477e-03_rb,0.10303e-03_rb,0.10127e-03_rb,0.99489e-04_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.11011e-03_rb,0.10842e-03_rb,0.10659e-03_rb,0.10474e-03_rb,0.10285e-03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.11338e-03_rb,0.11158e-03_rb,0.10968e-03_rb,0.10773e-03_rb,0.10569e-03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.11615e-03_rb,0.11428e-03_rb,0.11231e-03_rb,0.11026e-03_rb,0.10810e-03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.11847e-03_rb,0.11653e-03_rb,0.11450e-03_rb,0.11235e-03_rb,0.11005e-03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.12039e-03_rb,0.11839e-03_rb,0.11628e-03_rb,0.11404e-03_rb,0.11166e-03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.12185e-03_rb,0.11978e-03_rb,0.11759e-03_rb,0.11525e-03_rb,0.11275e-03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.12298e-03_rb,0.12085e-03_rb,0.11858e-03_rb,0.11615e-03_rb,0.11356e-03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.12384e-03_rb,0.12163e-03_rb,0.11927e-03_rb,0.11676e-03_rb,0.11410e-03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.12445e-03_rb,0.12216e-03_rb,0.11972e-03_rb,0.11712e-03_rb,0.11440e-03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.12480e-03_rb,0.12244e-03_rb,0.11993e-03_rb,0.11725e-03_rb,0.11449e-03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.12497e-03_rb,0.12254e-03_rb,0.11997e-03_rb,0.11723e-03_rb,0.11442e-03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.12498e-03_rb,0.12249e-03_rb,0.11986e-03_rb,0.11707e-03_rb,0.11425e-03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.12486e-03_rb,0.12231e-03_rb,0.11961e-03_rb,0.11677e-03_rb,0.11393e-03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.12462e-03_rb,0.12202e-03_rb,0.11925e-03_rb,0.11640e-03_rb,0.11355e-03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.12428e-03_rb,0.12163e-03_rb,0.11882e-03_rb,0.11594e-03_rb,0.11310e-03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.12387e-03_rb,0.12116e-03_rb,0.11831e-03_rb,0.11542e-03_rb,0.11260e-03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.12338e-03_rb,0.12061e-03_rb,0.11773e-03_rb,0.11485e-03_rb,0.11205e-03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.12293e-03_rb,0.12013e-03_rb,0.11722e-03_rb,0.11434e-03_rb,0.11156e-03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.12271e-03_rb,0.11987e-03_rb,0.11696e-03_rb,0.11408e-03_rb,0.11132e-03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.12276e-03_rb,0.11992e-03_rb,0.11700e-03_rb,0.11412e-03_rb,0.11135e-03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.12321e-03_rb,0.12039e-03_rb,0.11748e-03_rb,0.11457e-03_rb,0.11178e-03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.12368e-03_rb,0.12086e-03_rb,0.11795e-03_rb,0.11504e-03_rb,0.11223e-03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.12412e-03_rb,0.12132e-03_rb,0.11841e-03_rb,0.11549e-03_rb,0.11266e-03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.12481e-03_rb,0.12205e-03_rb,0.11917e-03_rb,0.11624e-03_rb,0.11338e-03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.12552e-03_rb,0.12282e-03_rb,0.11995e-03_rb,0.11701e-03_rb,0.11413e-03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.12624e-03_rb,0.12356e-03_rb,0.12073e-03_rb,0.11779e-03_rb,0.11489e-03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.12708e-03_rb,0.12444e-03_rb,0.12166e-03_rb,0.11873e-03_rb,0.11581e-03_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.12796e-03_rb,0.12537e-03_rb,0.12263e-03_rb,0.11974e-03_rb,0.11681e-03_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.12882e-03_rb,0.12627e-03_rb,0.12360e-03_rb,0.12075e-03_rb,0.11782e-03_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.12968e-03_rb,0.12723e-03_rb,0.12459e-03_rb,0.12181e-03_rb,0.11889e-03_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.13062e-03_rb,0.12827e-03_rb,0.12567e-03_rb,0.12295e-03_rb,0.12008e-03_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.13150e-03_rb,0.12926e-03_rb,0.12675e-03_rb,0.12408e-03_rb,0.12126e-03_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.13233e-03_rb,0.13021e-03_rb,0.12780e-03_rb,0.12517e-03_rb,0.12242e-03_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.13307e-03_rb,0.13105e-03_rb,0.12874e-03_rb,0.12618e-03_rb,0.12349e-03_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.13374e-03_rb,0.13183e-03_rb,0.12963e-03_rb,0.12715e-03_rb,0.12449e-03_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.13431e-03_rb,0.13255e-03_rb,0.13046e-03_rb,0.12807e-03_rb,0.12548e-03_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.13479e-03_rb,0.13325e-03_rb,0.13127e-03_rb,0.12898e-03_rb,0.12645e-03_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.13511e-03_rb,0.13385e-03_rb,0.13196e-03_rb,0.12979e-03_rb,0.12732e-03_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.13533e-03_rb,0.13436e-03_rb,0.13261e-03_rb,0.13052e-03_rb,0.12814e-03_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.13543e-03_rb,0.13477e-03_rb,0.13321e-03_rb,0.13121e-03_rb,0.12893e-03_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.13540e-03_rb,0.13509e-03_rb,0.13379e-03_rb,0.13190e-03_rb,0.12969e-03_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.13520e-03_rb,0.13532e-03_rb,0.13428e-03_rb,0.13250e-03_rb,0.13039e-03_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.13510e-03_rb,0.13536e-03_rb,0.13445e-03_rb,0.13273e-03_rb,0.13066e-03_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.16545e-03_rb,0.16076e-03_rb,0.15662e-03_rb,0.15273e-03_rb,0.14899e-03_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.17968e-03_rb,0.17402e-03_rb,0.16899e-03_rb,0.16434e-03_rb,0.15984e-03_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.19299e-03_rb,0.18634e-03_rb,0.18041e-03_rb,0.17491e-03_rb,0.16965e-03_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.20519e-03_rb,0.19756e-03_rb,0.19072e-03_rb,0.18435e-03_rb,0.17834e-03_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.21616e-03_rb,0.20753e-03_rb,0.19981e-03_rb,0.19268e-03_rb,0.18599e-03_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.22578e-03_rb,0.21627e-03_rb,0.20768e-03_rb,0.19983e-03_rb,0.19254e-03_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.23404e-03_rb,0.22371e-03_rb,0.21439e-03_rb,0.20593e-03_rb,0.19813e-03_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.24079e-03_rb,0.22975e-03_rb,0.21986e-03_rb,0.21084e-03_rb,0.20261e-03_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.24629e-03_rb,0.23467e-03_rb,0.22423e-03_rb,0.21475e-03_rb,0.20622e-03_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.24979e-03_rb,0.23775e-03_rb,0.22702e-03_rb,0.21724e-03_rb,0.20849e-03_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.25216e-03_rb,0.23989e-03_rb,0.22890e-03_rb,0.21892e-03_rb,0.21005e-03_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.25355e-03_rb,0.24109e-03_rb,0.22997e-03_rb,0.21990e-03_rb,0.21094e-03_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.25401e-03_rb,0.24151e-03_rb,0.23030e-03_rb,0.22024e-03_rb,0.21125e-03_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.25359e-03_rb,0.24114e-03_rb,0.22993e-03_rb,0.21995e-03_rb,0.21097e-03_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.25262e-03_rb,0.24030e-03_rb,0.22913e-03_rb,0.21926e-03_rb,0.21037e-03_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.25126e-03_rb,0.23904e-03_rb,0.22801e-03_rb,0.21831e-03_rb,0.20948e-03_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.24948e-03_rb,0.23745e-03_rb,0.22663e-03_rb,0.21704e-03_rb,0.20834e-03_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.24748e-03_rb,0.23558e-03_rb,0.22502e-03_rb,0.21558e-03_rb,0.20699e-03_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.24521e-03_rb,0.23353e-03_rb,0.22323e-03_rb,0.21394e-03_rb,0.20549e-03_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.24273e-03_rb,0.23132e-03_rb,0.22129e-03_rb,0.21221e-03_rb,0.20387e-03_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.24020e-03_rb,0.22911e-03_rb,0.21929e-03_rb,0.21039e-03_rb,0.20217e-03_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.23799e-03_rb,0.22719e-03_rb,0.21754e-03_rb,0.20880e-03_rb,0.20071e-03_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.23687e-03_rb,0.22619e-03_rb,0.21668e-03_rb,0.20798e-03_rb,0.19994e-03_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.23693e-03_rb,0.22624e-03_rb,0.21673e-03_rb,0.20802e-03_rb,0.19997e-03_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.23866e-03_rb,0.22780e-03_rb,0.21810e-03_rb,0.20930e-03_rb,0.20116e-03_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.24049e-03_rb,0.22941e-03_rb,0.21958e-03_rb,0.21064e-03_rb,0.20240e-03_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.24235e-03_rb,0.23100e-03_rb,0.22101e-03_rb,0.21195e-03_rb,0.20362e-03_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.24544e-03_rb,0.23374e-03_rb,0.22344e-03_rb,0.21416e-03_rb,0.20567e-03_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.24874e-03_rb,0.23671e-03_rb,0.22606e-03_rb,0.21653e-03_rb,0.20786e-03_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.25214e-03_rb,0.23974e-03_rb,0.22874e-03_rb,0.21892e-03_rb,0.21007e-03_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.25633e-03_rb,0.24355e-03_rb,0.23207e-03_rb,0.22195e-03_rb,0.21281e-03_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.26108e-03_rb,0.24779e-03_rb,0.23584e-03_rb,0.22529e-03_rb,0.21581e-03_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.26596e-03_rb,0.25216e-03_rb,0.23977e-03_rb,0.22875e-03_rb,0.21897e-03_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.27137e-03_rb,0.25699e-03_rb,0.24413e-03_rb,0.23258e-03_rb,0.22240e-03_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.27767e-03_rb,0.26264e-03_rb,0.24919e-03_rb,0.23707e-03_rb,0.22639e-03_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.28422e-03_rb,0.26851e-03_rb,0.25443e-03_rb,0.24179e-03_rb,0.23054e-03_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.29109e-03_rb,0.27465e-03_rb,0.25993e-03_rb,0.24676e-03_rb,0.23489e-03_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.29784e-03_rb,0.28066e-03_rb,0.26532e-03_rb,0.25156e-03_rb,0.23921e-03_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.30464e-03_rb,0.28674e-03_rb,0.27072e-03_rb,0.25642e-03_rb,0.24358e-03_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.31175e-03_rb,0.29305e-03_rb,0.27640e-03_rb,0.26149e-03_rb,0.24813e-03_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.31921e-03_rb,0.29964e-03_rb,0.28229e-03_rb,0.26674e-03_rb,0.25282e-03_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.32632e-03_rb,0.30596e-03_rb,0.28789e-03_rb,0.27174e-03_rb,0.25731e-03_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.33342e-03_rb,0.31218e-03_rb,0.29344e-03_rb,0.27674e-03_rb,0.26179e-03_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.34053e-03_rb,0.31870e-03_rb,0.29920e-03_rb,0.28191e-03_rb,0.26637e-03_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.34801e-03_rb,0.32554e-03_rb,0.30518e-03_rb,0.28726e-03_rb,0.27114e-03_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.35537e-03_rb,0.33214e-03_rb,0.31109e-03_rb,0.29248e-03_rb,0.27588e-03_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.35841e-03_rb,0.33487e-03_rb,0.31352e-03_rb,0.29463e-03_rb,0.27781e-03_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.23817e-03_rb,0.23193e-03_rb,0.22589e-03_rb,0.21979e-03_rb,0.21365e-03_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.26266e-03_rb,0.25442e-03_rb,0.24663e-03_rb,0.23897e-03_rb,0.23152e-03_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.28586e-03_rb,0.27559e-03_rb,0.26587e-03_rb,0.25663e-03_rb,0.24800e-03_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.30726e-03_rb,0.29496e-03_rb,0.28337e-03_rb,0.27251e-03_rb,0.26278e-03_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.32665e-03_rb,0.31224e-03_rb,0.29895e-03_rb,0.28665e-03_rb,0.27581e-03_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.34367e-03_rb,0.32749e-03_rb,0.31249e-03_rb,0.29896e-03_rb,0.28707e-03_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.35833e-03_rb,0.34046e-03_rb,0.32413e-03_rb,0.30949e-03_rb,0.29662e-03_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.37032e-03_rb,0.35107e-03_rb,0.33355e-03_rb,0.31795e-03_rb,0.30443e-03_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.38004e-03_rb,0.35962e-03_rb,0.34106e-03_rb,0.32482e-03_rb,0.31071e-03_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.38628e-03_rb,0.36502e-03_rb,0.34582e-03_rb,0.32929e-03_rb,0.31473e-03_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.39046e-03_rb,0.36870e-03_rb,0.34902e-03_rb,0.33239e-03_rb,0.31753e-03_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.39290e-03_rb,0.37079e-03_rb,0.35085e-03_rb,0.33417e-03_rb,0.31909e-03_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.39368e-03_rb,0.37132e-03_rb,0.35155e-03_rb,0.33489e-03_rb,0.31974e-03_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.39288e-03_rb,0.37052e-03_rb,0.35111e-03_rb,0.33452e-03_rb,0.31938e-03_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.39120e-03_rb,0.36896e-03_rb,0.34999e-03_rb,0.33347e-03_rb,0.31836e-03_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.38862e-03_rb,0.36669e-03_rb,0.34828e-03_rb,0.33189e-03_rb,0.31693e-03_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.38540e-03_rb,0.36396e-03_rb,0.34596e-03_rb,0.32975e-03_rb,0.31502e-03_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.38165e-03_rb,0.36095e-03_rb,0.34333e-03_rb,0.32738e-03_rb,0.31277e-03_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.37756e-03_rb,0.35762e-03_rb,0.34034e-03_rb,0.32467e-03_rb,0.31030e-03_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.37323e-03_rb,0.35410e-03_rb,0.33709e-03_rb,0.32164e-03_rb,0.30764e-03_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.36881e-03_rb,0.35033e-03_rb,0.33368e-03_rb,0.31855e-03_rb,0.30481e-03_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.36518e-03_rb,0.34710e-03_rb,0.33080e-03_rb,0.31589e-03_rb,0.30241e-03_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.36331e-03_rb,0.34548e-03_rb,0.32924e-03_rb,0.31455e-03_rb,0.30119e-03_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.36345e-03_rb,0.34559e-03_rb,0.32934e-03_rb,0.31463e-03_rb,0.30125e-03_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.36636e-03_rb,0.34821e-03_rb,0.33175e-03_rb,0.31676e-03_rb,0.30324e-03_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.36948e-03_rb,0.35092e-03_rb,0.33423e-03_rb,0.31902e-03_rb,0.30527e-03_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.37259e-03_rb,0.35368e-03_rb,0.33668e-03_rb,0.32128e-03_rb,0.30727e-03_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.37795e-03_rb,0.35829e-03_rb,0.34085e-03_rb,0.32505e-03_rb,0.31069e-03_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.38379e-03_rb,0.36312e-03_rb,0.34529e-03_rb,0.32908e-03_rb,0.31437e-03_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.38990e-03_rb,0.36819e-03_rb,0.34980e-03_rb,0.33322e-03_rb,0.31806e-03_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.39755e-03_rb,0.37469e-03_rb,0.35548e-03_rb,0.33833e-03_rb,0.32274e-03_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.40604e-03_rb,0.38206e-03_rb,0.36178e-03_rb,0.34404e-03_rb,0.32793e-03_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.41497e-03_rb,0.38998e-03_rb,0.36828e-03_rb,0.34986e-03_rb,0.33329e-03_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.42497e-03_rb,0.39871e-03_rb,0.37566e-03_rb,0.35633e-03_rb,0.33909e-03_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.43684e-03_rb,0.40880e-03_rb,0.38451e-03_rb,0.36380e-03_rb,0.34586e-03_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.44932e-03_rb,0.41960e-03_rb,0.39404e-03_rb,0.37171e-03_rb,0.35286e-03_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.46270e-03_rb,0.43113e-03_rb,0.40397e-03_rb,0.38027e-03_rb,0.36021e-03_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.47605e-03_rb,0.44249e-03_rb,0.41370e-03_rb,0.38887e-03_rb,0.36733e-03_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.48981e-03_rb,0.45414e-03_rb,0.42376e-03_rb,0.39765e-03_rb,0.37477e-03_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.50430e-03_rb,0.46661e-03_rb,0.43437e-03_rb,0.40673e-03_rb,0.38268e-03_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.51980e-03_rb,0.47970e-03_rb,0.44558e-03_rb,0.41639e-03_rb,0.39115e-03_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.53506e-03_rb,0.49244e-03_rb,0.45647e-03_rb,0.42564e-03_rb,0.39926e-03_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.55131e-03_rb,0.50528e-03_rb,0.46739e-03_rb,0.43505e-03_rb,0.40730e-03_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.56909e-03_rb,0.51883e-03_rb,0.47884e-03_rb,0.44497e-03_rb,0.41571e-03_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.58824e-03_rb,0.53334e-03_rb,0.49097e-03_rb,0.45523e-03_rb,0.42457e-03_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.60745e-03_rb,0.54837e-03_rb,0.50301e-03_rb,0.46546e-03_rb,0.43352e-03_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.61557e-03_rb,0.55493e-03_rb,0.50805e-03_rb,0.46962e-03_rb,0.43716e-03_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.351362e-07_rb, 0.341136e-07_rb, 0.181317e-06_rb /)\n      forrefo(:, 2) = (/ 0.109648e-06_rb, 0.344240e-06_rb, 0.139709e-05_rb /)\n      forrefo(:, 3) = (/ 0.374823e-06_rb, 0.103424e-05_rb, 0.188717e-05_rb /)\n      forrefo(:, 4) = (/ 0.580041e-06_rb, 0.116876e-05_rb, 0.121183e-05_rb /)\n      forrefo(:, 5) = (/ 0.115608e-05_rb, 0.148110e-05_rb, 0.836083e-06_rb /)\n      forrefo(:, 6) = (/ 0.181460e-05_rb, 0.133313e-05_rb, 0.500167e-06_rb /)\n      forrefo(:, 7) = (/ 0.199096e-05_rb, 0.115276e-05_rb, 0.432994e-06_rb /)\n      forrefo(:, 8) = (/ 0.183730e-05_rb, 0.122260e-05_rb, 0.433248e-06_rb /)\n      forrefo(:, 9) = (/ 0.198386e-05_rb, 0.100130e-05_rb, 0.269712e-06_rb /)\n      forrefo(:,10) = (/ 0.276382e-05_rb, 0.749215e-06_rb, 0.236919e-06_rb /)\n      forrefo(:,11) = (/ 0.298202e-05_rb, 0.629688e-06_rb, 0.228388e-06_rb /)\n      forrefo(:,12) = (/ 0.364604e-05_rb, 0.455336e-06_rb, 0.206130e-06_rb /)\n      forrefo(:,13) = (/ 0.373339e-05_rb, 0.245210e-06_rb, 0.201987e-06_rb /)\n      forrefo(:,14) = (/ 0.480378e-05_rb, 0.177591e-06_rb, 0.171458e-06_rb /)\n      forrefo(:,15) = (/ 0.521700e-05_rb, 0.203358e-06_rb, 0.189559e-06_rb /)\n      forrefo(:,16) = (/ 0.542717e-05_rb, 0.219022e-06_rb, 0.218271e-06_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.538526e-04_rb, 0.464603e-04_rb, 0.400828e-04_rb, 0.345807e-04_rb, 0.298339e-04_rb, &\n        &  0.257386e-04_rb, 0.222055e-04_rb, 0.191574e-04_rb, 0.165277e-04_rb, 0.142590e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.162409e-03_rb, 0.128347e-03_rb, 0.101430e-03_rb, 0.801571e-04_rb, 0.633460e-04_rb, &\n        &  0.500607e-04_rb, 0.395616e-04_rb, 0.312645e-04_rb, 0.247075e-04_rb, 0.195257e-04_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.262882e-03_rb, 0.212793e-03_rb, 0.172247e-03_rb, 0.139427e-03_rb, 0.112860e-03_rb, &\n        &  0.913557e-04_rb, 0.739487e-04_rb, 0.598584e-04_rb, 0.484529e-04_rb, 0.392206e-04_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.242873e-03_rb, 0.204225e-03_rb, 0.171726e-03_rb, 0.144399e-03_rb, 0.121421e-03_rb, &\n        &  0.102099e-03_rb, 0.858516e-04_rb, 0.721899e-04_rb, 0.607022e-04_rb, 0.510426e-04_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.235614e-03_rb, 0.207814e-03_rb, 0.183293e-03_rb, 0.161666e-03_rb, 0.142591e-03_rb, &\n        &  0.125766e-03_rb, 0.110927e-03_rb, 0.978381e-04_rb, 0.862939e-04_rb, 0.761119e-04_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.205508e-03_rb, 0.190174e-03_rb, 0.175985e-03_rb, 0.162854e-03_rb, 0.150702e-03_rb, &\n        &  0.139458e-03_rb, 0.129052e-03_rb, 0.119423e-03_rb, 0.110513e-03_rb, 0.102267e-03_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.185027e-03_rb, 0.175148e-03_rb, 0.165796e-03_rb, 0.156944e-03_rb, 0.148565e-03_rb, &\n        &  0.140633e-03_rb, 0.133124e-03_rb, 0.126016e-03_rb, 0.119288e-03_rb, 0.112919e-03_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.192634e-03_rb, 0.180192e-03_rb, 0.168554e-03_rb, 0.157668e-03_rb, 0.147484e-03_rb, &\n        &  0.137959e-03_rb, 0.129048e-03_rb, 0.120713e-03_rb, 0.112917e-03_rb, 0.105624e-03_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.161632e-03_rb, 0.155919e-03_rb, 0.150408e-03_rb, 0.145092e-03_rb, 0.139963e-03_rb, &\n        &  0.135016e-03_rb, 0.130244e-03_rb, 0.125640e-03_rb, 0.121199e-03_rb, 0.116915e-03_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.120880e-03_rb, 0.125265e-03_rb, 0.129810e-03_rb, 0.134520e-03_rb, 0.139400e-03_rb, &\n        &  0.144458e-03_rb, 0.149699e-03_rb, 0.155130e-03_rb, 0.160758e-03_rb, 0.166591e-03_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.104705e-03_rb, 0.111761e-03_rb, 0.119291e-03_rb, 0.127330e-03_rb, 0.135910e-03_rb, &\n        &  0.145068e-03_rb, 0.154843e-03_rb, 0.165277e-03_rb, 0.176414e-03_rb, 0.188302e-03_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.846335e-04_rb, 0.951236e-04_rb, 0.106914e-03_rb, 0.120166e-03_rb, 0.135060e-03_rb, &\n        &  0.151800e-03_rb, 0.170616e-03_rb, 0.191763e-03_rb, 0.215532e-03_rb, 0.242246e-03_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.669754e-04_rb, 0.781902e-04_rb, 0.912829e-04_rb, 0.106568e-03_rb, 0.124413e-03_rb, &\n        &  0.145245e-03_rb, 0.169566e-03_rb, 0.197959e-03_rb, 0.231107e-03_rb, 0.269805e-03_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.597091e-04_rb, 0.722265e-04_rb, 0.873679e-04_rb, 0.105684e-03_rb, 0.127839e-03_rb, &\n        &  0.154639e-03_rb, 0.187057e-03_rb, 0.226272e-03_rb, 0.273707e-03_rb, 0.331087e-03_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.640410e-04_rb, 0.771879e-04_rb, 0.930338e-04_rb, 0.112133e-03_rb, 0.135152e-03_rb, &\n        &  0.162897e-03_rb, 0.196338e-03_rb, 0.236644e-03_rb, 0.285225e-03_rb, 0.343778e-03_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.666420e-04_rb, 0.801056e-04_rb, 0.962892e-04_rb, 0.115742e-03_rb, 0.139126e-03_rb, &\n        &  0.167233e-03_rb, 0.201019e-03_rb, 0.241630e-03_rb, 0.290446e-03_rb, 0.349125e-03_rb /)\n     \n      end subroutine sw_kgb22\n\n! **************************************************************************\n      subroutine sw_kgb23\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 53.2101_rb , 51.4143_rb, 49.3348_rb, 45.4612_rb    , &\n        & 40.8294_rb , 35.1801_rb, 28.6947_rb, 21.5751_rb    , &\n        & 14.6388_rb , 1.59111_rb, 1.31860_rb, 1.04018_rb    , &\n        & 0.762140_rb,0.484214_rb,0.182275_rb, 2.54948e-02_rb /)\n\n! Rayleigh extinction coefficient at all v \n      raylo(:) = (/ &\n        & 5.94837e-08_rb,5.70593e-08_rb,6.27845e-08_rb,5.56602e-08_rb, &\n        & 5.25571e-08_rb,4.73388e-08_rb,4.17466e-08_rb,3.98097e-08_rb, &\n        & 4.00786e-08_rb,3.67478e-08_rb,3.45186e-08_rb,3.46156e-08_rb, &\n        & 3.32155e-08_rb,3.23642e-08_rb,2.72590e-08_rb,2.96813e-08_rb /)\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.33078e-07_rb,0.34034e-07_rb,0.35124e-07_rb,0.34187e-07_rb,0.34744e-07_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.25544e-07_rb,0.25873e-07_rb,0.26742e-07_rb,0.27512e-07_rb,0.27504e-07_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.18549e-07_rb,0.19611e-07_rb,0.20840e-07_rb,0.22548e-07_rb,0.23069e-07_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.28794e-07_rb,0.30837e-07_rb,0.32679e-07_rb,0.34307e-07_rb,0.36901e-07_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.36776e-07_rb,0.39144e-07_rb,0.41300e-07_rb,0.43264e-07_rb,0.46626e-07_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.59710e-07_rb,0.62941e-07_rb,0.65500e-07_rb,0.67353e-07_rb,0.68774e-07_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.12143e-06_rb,0.12932e-06_rb,0.13250e-06_rb,0.13526e-06_rb,0.13849e-06_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.12531e-06_rb,0.13241e-06_rb,0.13939e-06_rb,0.14705e-06_rb,0.15465e-06_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.20209e-06_rb,0.21134e-06_rb,0.22163e-06_rb,0.23098e-06_rb,0.24004e-06_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.10750e-05_rb,0.11204e-05_rb,0.11575e-05_rb,0.11923e-05_rb,0.12227e-05_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.27782e-05_rb,0.28204e-05_rb,0.28406e-05_rb,0.28380e-05_rb,0.28440e-05_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.38510e-05_rb,0.39934e-05_rb,0.40697e-05_rb,0.41102e-05_rb,0.41571e-05_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.43157e-05_rb,0.44488e-05_rb,0.45799e-05_rb,0.46585e-05_rb,0.47223e-05_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.84637e-06_rb,0.86989e-06_rb,0.90697e-06_rb,0.90000e-06_rb,0.91373e-06_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.67062e-06_rb,0.68649e-06_rb,0.72334e-06_rb,0.73645e-06_rb,0.72978e-06_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.52317e-06_rb,0.53924e-06_rb,0.55425e-06_rb,0.58347e-06_rb,0.57813e-06_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.39868e-06_rb,0.41431e-06_rb,0.42761e-06_rb,0.43892e-06_rb,0.45982e-06_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.32074e-06_rb,0.33452e-06_rb,0.34754e-06_rb,0.35582e-06_rb,0.37378e-06_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.42465e-06_rb,0.44058e-06_rb,0.45605e-06_rb,0.47192e-06_rb,0.48493e-06_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.47581e-06_rb,0.50000e-06_rb,0.52487e-06_rb,0.54192e-06_rb,0.55955e-06_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.10592e-05_rb,0.11093e-05_rb,0.11483e-05_rb,0.11923e-05_rb,0.12169e-05_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.50835e-05_rb,0.51710e-05_rb,0.52329e-05_rb,0.52644e-05_rb,0.52818e-05_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.77867e-05_rb,0.82156e-05_rb,0.86002e-05_rb,0.89664e-05_rb,0.92394e-05_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.89031e-05_rb,0.93573e-05_rb,0.97686e-05_rb,0.10236e-04_rb,0.10591e-04_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.98068e-05_rb,0.10238e-04_rb,0.10700e-04_rb,0.11108e-04_rb,0.11471e-04_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.11145e-04_rb,0.11697e-04_rb,0.12123e-04_rb,0.12482e-04_rb,0.12856e-04_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.66049e-05_rb,0.67547e-05_rb,0.70104e-05_rb,0.69745e-05_rb,0.70687e-05_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.54104e-05_rb,0.55245e-05_rb,0.57623e-05_rb,0.58532e-05_rb,0.58099e-05_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.43608e-05_rb,0.44784e-05_rb,0.45778e-05_rb,0.47665e-05_rb,0.47295e-05_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.35399e-05_rb,0.36454e-05_rb,0.37356e-05_rb,0.38107e-05_rb,0.39586e-05_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.28576e-05_rb,0.29552e-05_rb,0.30325e-05_rb,0.31028e-05_rb,0.32276e-05_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.21017e-05_rb,0.21836e-05_rb,0.22554e-05_rb,0.23121e-05_rb,0.23486e-05_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.19384e-05_rb,0.19914e-05_rb,0.20428e-05_rb,0.20879e-05_rb,0.21191e-05_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.32672e-05_rb,0.33753e-05_rb,0.34694e-05_rb,0.35273e-05_rb,0.35984e-05_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.82257e-05_rb,0.84975e-05_rb,0.86969e-05_rb,0.88995e-05_rb,0.90123e-05_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.35363e-04_rb,0.36204e-04_rb,0.36916e-04_rb,0.37708e-04_rb,0.38294e-04_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.48837e-04_rb,0.50952e-04_rb,0.52710e-04_rb,0.54347e-04_rb,0.55976e-04_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.56059e-04_rb,0.58301e-04_rb,0.60100e-04_rb,0.61776e-04_rb,0.63179e-04_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.57871e-04_rb,0.59505e-04_rb,0.60930e-04_rb,0.62289e-04_rb,0.63278e-04_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.27624e-04_rb,0.28017e-04_rb,0.29078e-04_rb,0.28567e-04_rb,0.28724e-04_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.23107e-04_rb,0.23464e-04_rb,0.24357e-04_rb,0.24519e-04_rb,0.24024e-04_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.19113e-04_rb,0.19400e-04_rb,0.19615e-04_rb,0.20420e-04_rb,0.19962e-04_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.15873e-04_rb,0.16138e-04_rb,0.16349e-04_rb,0.16528e-04_rb,0.17176e-04_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.13198e-04_rb,0.13437e-04_rb,0.13641e-04_rb,0.13810e-04_rb,0.14393e-04_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.10951e-04_rb,0.11172e-04_rb,0.11352e-04_rb,0.11506e-04_rb,0.11631e-04_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.86121e-05_rb,0.88300e-05_rb,0.90149e-05_rb,0.91565e-05_rb,0.92594e-05_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.71478e-05_rb,0.72918e-05_rb,0.74035e-05_rb,0.74959e-05_rb,0.75566e-05_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.16458e-04_rb,0.17092e-04_rb,0.17686e-04_rb,0.17967e-04_rb,0.18273e-04_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.47953e-04_rb,0.49663e-04_rb,0.51524e-04_rb,0.52800e-04_rb,0.54192e-04_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.94263e-04_rb,0.95557e-04_rb,0.96513e-04_rb,0.97430e-04_rb,0.97733e-04_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.12087e-03_rb,0.12152e-03_rb,0.12240e-03_rb,0.12318e-03_rb,0.12403e-03_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.12781e-03_rb,0.12897e-03_rb,0.13049e-03_rb,0.13171e-03_rb,0.13337e-03_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.82859e-04_rb,0.84817e-04_rb,0.89056e-04_rb,0.88057e-04_rb,0.89410e-04_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.70937e-04_rb,0.72685e-04_rb,0.76796e-04_rb,0.77955e-04_rb,0.76735e-04_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.59876e-04_rb,0.61448e-04_rb,0.62837e-04_rb,0.66293e-04_rb,0.64996e-04_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.50598e-04_rb,0.52054e-04_rb,0.53293e-04_rb,0.54332e-04_rb,0.57333e-04_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.42742e-04_rb,0.44035e-04_rb,0.45164e-04_rb,0.46134e-04_rb,0.48935e-04_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.35769e-04_rb,0.36975e-04_rb,0.38038e-04_rb,0.38917e-04_rb,0.39681e-04_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.29747e-04_rb,0.30824e-04_rb,0.31756e-04_rb,0.32589e-04_rb,0.33314e-04_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.21994e-04_rb,0.22945e-04_rb,0.23786e-04_rb,0.24517e-04_rb,0.25155e-04_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.22298e-04_rb,0.22688e-04_rb,0.23127e-04_rb,0.23803e-04_rb,0.24335e-04_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.88898e-04_rb,0.91280e-04_rb,0.93333e-04_rb,0.95224e-04_rb,0.96298e-04_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.12299e-03_rb,0.12407e-03_rb,0.12536e-03_rb,0.12642e-03_rb,0.12813e-03_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.14539e-03_rb,0.14851e-03_rb,0.15022e-03_rb,0.15157e-03_rb,0.15204e-03_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.15949e-03_rb,0.16239e-03_rb,0.16467e-03_rb,0.16667e-03_rb,0.16801e-03_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.25339e-03_rb,0.25995e-03_rb,0.27170e-03_rb,0.26963e-03_rb,0.27413e-03_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.21908e-03_rb,0.22404e-03_rb,0.23522e-03_rb,0.23902e-03_rb,0.23717e-03_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.18611e-03_rb,0.19076e-03_rb,0.19518e-03_rb,0.20503e-03_rb,0.20222e-03_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.15769e-03_rb,0.16210e-03_rb,0.16597e-03_rb,0.16948e-03_rb,0.17817e-03_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.13402e-03_rb,0.13792e-03_rb,0.14153e-03_rb,0.14434e-03_rb,0.15267e-03_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.11390e-03_rb,0.11743e-03_rb,0.12065e-03_rb,0.12316e-03_rb,0.12543e-03_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.96417e-04_rb,0.99612e-04_rb,0.10233e-03_rb,0.10453e-03_rb,0.10652e-03_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.81395e-04_rb,0.84205e-04_rb,0.86346e-04_rb,0.88406e-04_rb,0.90122e-04_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.47776e-04_rb,0.48971e-04_rb,0.49736e-04_rb,0.49917e-04_rb,0.50289e-04_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.10698e-03_rb,0.10815e-03_rb,0.10817e-03_rb,0.10799e-03_rb,0.10851e-03_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.20220e-03_rb,0.20727e-03_rb,0.21241e-03_rb,0.21675e-03_rb,0.21989e-03_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.23474e-03_rb,0.23601e-03_rb,0.23974e-03_rb,0.24383e-03_rb,0.24876e-03_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.23410e-03_rb,0.23809e-03_rb,0.24185e-03_rb,0.24554e-03_rb,0.24952e-03_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.67024e-03_rb,0.68026e-03_rb,0.70419e-03_rb,0.70159e-03_rb,0.71089e-03_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.58729e-03_rb,0.59778e-03_rb,0.62097e-03_rb,0.62912e-03_rb,0.62423e-03_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.50967e-03_rb,0.51900e-03_rb,0.52765e-03_rb,0.54794e-03_rb,0.54266e-03_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.44167e-03_rb,0.45006e-03_rb,0.45793e-03_rb,0.46469e-03_rb,0.48335e-03_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.38096e-03_rb,0.38881e-03_rb,0.39576e-03_rb,0.40259e-03_rb,0.42086e-03_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.32818e-03_rb,0.33539e-03_rb,0.34192e-03_rb,0.34829e-03_rb,0.35405e-03_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.28259e-03_rb,0.28946e-03_rb,0.29584e-03_rb,0.30203e-03_rb,0.30742e-03_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.24273e-03_rb,0.24912e-03_rb,0.25546e-03_rb,0.26110e-03_rb,0.26607e-03_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.19937e-03_rb,0.20653e-03_rb,0.21314e-03_rb,0.21968e-03_rb,0.22520e-03_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.13306e-03_rb,0.13331e-03_rb,0.13393e-03_rb,0.13538e-03_rb,0.13616e-03_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.16236e-03_rb,0.16154e-03_rb,0.16187e-03_rb,0.16113e-03_rb,0.16209e-03_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.17872e-03_rb,0.18355e-03_rb,0.18612e-03_rb,0.18792e-03_rb,0.18745e-03_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.18970e-03_rb,0.19384e-03_rb,0.19773e-03_rb,0.20261e-03_rb,0.20377e-03_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.18130e-02_rb,0.18305e-02_rb,0.18716e-02_rb,0.18655e-02_rb,0.18814e-02_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.16420e-02_rb,0.16600e-02_rb,0.17006e-02_rb,0.17156e-02_rb,0.17108e-02_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.14687e-02_rb,0.14870e-02_rb,0.15042e-02_rb,0.15423e-02_rb,0.15376e-02_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.13068e-02_rb,0.13248e-02_rb,0.13421e-02_rb,0.13592e-02_rb,0.13960e-02_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.11574e-02_rb,0.11753e-02_rb,0.11928e-02_rb,0.12097e-02_rb,0.12467e-02_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.10167e-02_rb,0.10342e-02_rb,0.10515e-02_rb,0.10681e-02_rb,0.10840e-02_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.88992e-03_rb,0.90662e-03_rb,0.92299e-03_rb,0.93844e-03_rb,0.95347e-03_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.78445e-03_rb,0.80031e-03_rb,0.81639e-03_rb,0.83131e-03_rb,0.84631e-03_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.69812e-03_rb,0.71312e-03_rb,0.72801e-03_rb,0.74222e-03_rb,0.75605e-03_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.32521e-03_rb,0.33835e-03_rb,0.35194e-03_rb,0.36381e-03_rb,0.37594e-03_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.31406e-03_rb,0.32013e-03_rb,0.32456e-03_rb,0.33261e-03_rb,0.33741e-03_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.28132e-03_rb,0.28732e-03_rb,0.29674e-03_rb,0.30509e-03_rb,0.31393e-03_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.25704e-03_rb,0.26316e-03_rb,0.27195e-03_rb,0.27732e-03_rb,0.28905e-03_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.67370e-02_rb,0.67873e-02_rb,0.68896e-02_rb,0.68819e-02_rb,0.69268e-02_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.63111e-02_rb,0.63622e-02_rb,0.64623e-02_rb,0.65060e-02_rb,0.65027e-02_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.58834e-02_rb,0.59361e-02_rb,0.59858e-02_rb,0.60811e-02_rb,0.60806e-02_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.54753e-02_rb,0.55309e-02_rb,0.55823e-02_rb,0.56306e-02_rb,0.57229e-02_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.50781e-02_rb,0.51373e-02_rb,0.51895e-02_rb,0.52391e-02_rb,0.53328e-02_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.46791e-02_rb,0.47408e-02_rb,0.47949e-02_rb,0.48470e-02_rb,0.48993e-02_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.42724e-02_rb,0.43381e-02_rb,0.43951e-02_rb,0.44503e-02_rb,0.45061e-02_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.38568e-02_rb,0.39254e-02_rb,0.39848e-02_rb,0.40431e-02_rb,0.41005e-02_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.35657e-02_rb,0.36362e-02_rb,0.36994e-02_rb,0.37608e-02_rb,0.38215e-02_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.33774e-02_rb,0.34501e-02_rb,0.35171e-02_rb,0.35811e-02_rb,0.36450e-02_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.23923e-02_rb,0.24623e-02_rb,0.25263e-02_rb,0.25890e-02_rb,0.26517e-02_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.16959e-02_rb,0.17542e-02_rb,0.18077e-02_rb,0.18614e-02_rb,0.19187e-02_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.11732e-02_rb,0.12232e-02_rb,0.12712e-02_rb,0.13221e-02_rb,0.13677e-02_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.19604e-01_rb,0.19698e-01_rb,0.19938e-01_rb,0.19854e-01_rb,0.19950e-01_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.18714e-01_rb,0.18803e-01_rb,0.19035e-01_rb,0.19131e-01_rb,0.19102e-01_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.17676e-01_rb,0.17785e-01_rb,0.17904e-01_rb,0.18189e-01_rb,0.18156e-01_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.16662e-01_rb,0.16773e-01_rb,0.16908e-01_rb,0.17056e-01_rb,0.17303e-01_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.15655e-01_rb,0.15775e-01_rb,0.15942e-01_rb,0.16103e-01_rb,0.16359e-01_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.14694e-01_rb,0.14838e-01_rb,0.15029e-01_rb,0.15200e-01_rb,0.15320e-01_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.13797e-01_rb,0.13959e-01_rb,0.14174e-01_rb,0.14350e-01_rb,0.14471e-01_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.12902e-01_rb,0.13089e-01_rb,0.13313e-01_rb,0.13489e-01_rb,0.13626e-01_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.11897e-01_rb,0.12105e-01_rb,0.12333e-01_rb,0.12512e-01_rb,0.12656e-01_rb /)\n      kao(:,10,10) = (/ &\n        & 0.11834e-01_rb,0.12072e-01_rb,0.12331e-01_rb,0.12548e-01_rb,0.12721e-01_rb /)\n      kao(:,11,10) = (/ &\n        & 0.11416e-01_rb,0.11699e-01_rb,0.11968e-01_rb,0.12141e-01_rb,0.12311e-01_rb /)\n      kao(:,12,10) = (/ &\n        & 0.10776e-01_rb,0.11070e-01_rb,0.11309e-01_rb,0.11507e-01_rb,0.11702e-01_rb /)\n      kao(:,13,10) = (/ &\n        & 0.99577e-02_rb,0.10263e-01_rb,0.10492e-01_rb,0.10719e-01_rb,0.10951e-01_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.29783e-01_rb,0.29883e-01_rb,0.30210e-01_rb,0.30141e-01_rb,0.30248e-01_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.28562e-01_rb,0.28743e-01_rb,0.29186e-01_rb,0.29339e-01_rb,0.29258e-01_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.27212e-01_rb,0.27429e-01_rb,0.27654e-01_rb,0.28083e-01_rb,0.28023e-01_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.25949e-01_rb,0.26197e-01_rb,0.26424e-01_rb,0.26623e-01_rb,0.27069e-01_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.24686e-01_rb,0.24942e-01_rb,0.25176e-01_rb,0.25403e-01_rb,0.25908e-01_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.23430e-01_rb,0.23686e-01_rb,0.23923e-01_rb,0.24158e-01_rb,0.24433e-01_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.22171e-01_rb,0.22424e-01_rb,0.22653e-01_rb,0.22909e-01_rb,0.23203e-01_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.20928e-01_rb,0.21171e-01_rb,0.21407e-01_rb,0.21699e-01_rb,0.22018e-01_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.19076e-01_rb,0.19320e-01_rb,0.19548e-01_rb,0.19858e-01_rb,0.20150e-01_rb /)\n      kao(:,10,11) = (/ &\n        & 0.19537e-01_rb,0.19788e-01_rb,0.20064e-01_rb,0.20391e-01_rb,0.20843e-01_rb /)\n      kao(:,11,11) = (/ &\n        & 0.19137e-01_rb,0.19444e-01_rb,0.19793e-01_rb,0.20268e-01_rb,0.20695e-01_rb /)\n      kao(:,12,11) = (/ &\n        & 0.18393e-01_rb,0.18715e-01_rb,0.19143e-01_rb,0.19652e-01_rb,0.20037e-01_rb /)\n      kao(:,13,11) = (/ &\n        & 0.17255e-01_rb,0.17680e-01_rb,0.18170e-01_rb,0.18641e-01_rb,0.19010e-01_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.46641e-01_rb,0.46796e-01_rb,0.47107e-01_rb,0.46977e-01_rb,0.47093e-01_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.46819e-01_rb,0.46956e-01_rb,0.47337e-01_rb,0.47426e-01_rb,0.47339e-01_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.46276e-01_rb,0.46366e-01_rb,0.46462e-01_rb,0.46935e-01_rb,0.46862e-01_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.44986e-01_rb,0.45103e-01_rb,0.45287e-01_rb,0.45535e-01_rb,0.46152e-01_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.43367e-01_rb,0.43552e-01_rb,0.43761e-01_rb,0.44035e-01_rb,0.44674e-01_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.41584e-01_rb,0.41793e-01_rb,0.42020e-01_rb,0.42344e-01_rb,0.42701e-01_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.39785e-01_rb,0.40007e-01_rb,0.40269e-01_rb,0.40635e-01_rb,0.41003e-01_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.37918e-01_rb,0.38155e-01_rb,0.38468e-01_rb,0.38839e-01_rb,0.39210e-01_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.35060e-01_rb,0.35328e-01_rb,0.35698e-01_rb,0.36105e-01_rb,0.36551e-01_rb /)\n      kao(:,10,12) = (/ &\n        & 0.35216e-01_rb,0.35547e-01_rb,0.35872e-01_rb,0.36327e-01_rb,0.36542e-01_rb /)\n      kao(:,11,12) = (/ &\n        & 0.35158e-01_rb,0.35374e-01_rb,0.35869e-01_rb,0.36242e-01_rb,0.36691e-01_rb /)\n      kao(:,12,12) = (/ &\n        & 0.34264e-01_rb,0.34598e-01_rb,0.35106e-01_rb,0.35505e-01_rb,0.36021e-01_rb /)\n      kao(:,13,12) = (/ &\n        & 0.32716e-01_rb,0.33195e-01_rb,0.33830e-01_rb,0.34228e-01_rb,0.34925e-01_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.76084e-01_rb,0.76052e-01_rb,0.76051e-01_rb,0.75851e-01_rb,0.75753e-01_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.79580e-01_rb,0.79564e-01_rb,0.79664e-01_rb,0.79619e-01_rb,0.79414e-01_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.82218e-01_rb,0.82302e-01_rb,0.82367e-01_rb,0.82543e-01_rb,0.82246e-01_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.83613e-01_rb,0.83740e-01_rb,0.83824e-01_rb,0.83866e-01_rb,0.84103e-01_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.83913e-01_rb,0.84123e-01_rb,0.84289e-01_rb,0.84403e-01_rb,0.84840e-01_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.83159e-01_rb,0.83442e-01_rb,0.83718e-01_rb,0.83891e-01_rb,0.83993e-01_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.81401e-01_rb,0.81826e-01_rb,0.82202e-01_rb,0.82451e-01_rb,0.82656e-01_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.78949e-01_rb,0.79505e-01_rb,0.79978e-01_rb,0.80351e-01_rb,0.80690e-01_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.76002e-01_rb,0.76671e-01_rb,0.77279e-01_rb,0.77752e-01_rb,0.78257e-01_rb /)\n      kao(:,10,13) = (/ &\n        & 0.69777e-01_rb,0.70425e-01_rb,0.71054e-01_rb,0.71706e-01_rb,0.72167e-01_rb /)\n      kao(:,11,13) = (/ &\n        & 0.72929e-01_rb,0.73732e-01_rb,0.74323e-01_rb,0.75246e-01_rb,0.75786e-01_rb /)\n      kao(:,12,13) = (/ &\n        & 0.73007e-01_rb,0.74429e-01_rb,0.74922e-01_rb,0.75916e-01_rb,0.76947e-01_rb /)\n      kao(:,13,13) = (/ &\n        & 0.71376e-01_rb,0.72507e-01_rb,0.73710e-01_rb,0.74716e-01_rb,0.75702e-01_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.12585e+00_rb,0.12569e+00_rb,0.12576e+00_rb,0.12571e+00_rb,0.12570e+00_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.13868e+00_rb,0.13853e+00_rb,0.13849e+00_rb,0.13824e+00_rb,0.13803e+00_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.15142e+00_rb,0.15135e+00_rb,0.15112e+00_rb,0.15093e+00_rb,0.15074e+00_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.16359e+00_rb,0.16359e+00_rb,0.16339e+00_rb,0.16311e+00_rb,0.16285e+00_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.17462e+00_rb,0.17472e+00_rb,0.17456e+00_rb,0.17421e+00_rb,0.17393e+00_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.18403e+00_rb,0.18447e+00_rb,0.18450e+00_rb,0.18424e+00_rb,0.18395e+00_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.19179e+00_rb,0.19239e+00_rb,0.19256e+00_rb,0.19253e+00_rb,0.19252e+00_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.19772e+00_rb,0.19863e+00_rb,0.19901e+00_rb,0.19923e+00_rb,0.19947e+00_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.20154e+00_rb,0.20279e+00_rb,0.20355e+00_rb,0.20417e+00_rb,0.20473e+00_rb /)\n      kao(:,10,14) = (/ &\n        & 0.18853e+00_rb,0.19028e+00_rb,0.19160e+00_rb,0.19253e+00_rb,0.19393e+00_rb /)\n      kao(:,11,14) = (/ &\n        & 0.18013e+00_rb,0.18167e+00_rb,0.18320e+00_rb,0.18375e+00_rb,0.18507e+00_rb /)\n      kao(:,12,14) = (/ &\n        & 0.19011e+00_rb,0.19027e+00_rb,0.19283e+00_rb,0.19402e+00_rb,0.19478e+00_rb /)\n      kao(:,13,14) = (/ &\n        & 0.19594e+00_rb,0.19738e+00_rb,0.19911e+00_rb,0.20124e+00_rb,0.20282e+00_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.22369e+00_rb,0.22259e+00_rb,0.22155e+00_rb,0.22059e+00_rb,0.21997e+00_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.25602e+00_rb,0.25478e+00_rb,0.25377e+00_rb,0.25306e+00_rb,0.25237e+00_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.29258e+00_rb,0.29107e+00_rb,0.28998e+00_rb,0.28920e+00_rb,0.28830e+00_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.33067e+00_rb,0.32888e+00_rb,0.32753e+00_rb,0.32646e+00_rb,0.32566e+00_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.37114e+00_rb,0.36880e+00_rb,0.36713e+00_rb,0.36598e+00_rb,0.36499e+00_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.41494e+00_rb,0.41167e+00_rb,0.40935e+00_rb,0.40779e+00_rb,0.40636e+00_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.46115e+00_rb,0.45729e+00_rb,0.45455e+00_rb,0.45230e+00_rb,0.45004e+00_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.50906e+00_rb,0.50463e+00_rb,0.50137e+00_rb,0.49843e+00_rb,0.49550e+00_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.55829e+00_rb,0.55330e+00_rb,0.54936e+00_rb,0.54557e+00_rb,0.54168e+00_rb /)\n      kao(:,10,15) = (/ &\n        & 0.60814e+00_rb,0.60274e+00_rb,0.59806e+00_rb,0.59326e+00_rb,0.58833e+00_rb /)\n      kao(:,11,15) = (/ &\n        & 0.62954e+00_rb,0.62588e+00_rb,0.62076e+00_rb,0.61665e+00_rb,0.61184e+00_rb /)\n      kao(:,12,15) = (/ &\n        & 0.62585e+00_rb,0.62437e+00_rb,0.61807e+00_rb,0.61303e+00_rb,0.60869e+00_rb /)\n      kao(:,13,15) = (/ &\n        & 0.64856e+00_rb,0.64505e+00_rb,0.63861e+00_rb,0.63277e+00_rb,0.62702e+00_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.33327e+00_rb,0.33385e+00_rb,0.33538e+00_rb,0.33638e+00_rb,0.33736e+00_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.40916e+00_rb,0.40842e+00_rb,0.40848e+00_rb,0.40865e+00_rb,0.40854e+00_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.50099e+00_rb,0.49888e+00_rb,0.49727e+00_rb,0.49588e+00_rb,0.49422e+00_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.60389e+00_rb,0.60029e+00_rb,0.59704e+00_rb,0.59367e+00_rb,0.59071e+00_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.71868e+00_rb,0.71337e+00_rb,0.70835e+00_rb,0.70318e+00_rb,0.69852e+00_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.84815e+00_rb,0.84138e+00_rb,0.83446e+00_rb,0.82728e+00_rb,0.82023e+00_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.99512e+00_rb,0.98644e+00_rb,0.97698e+00_rb,0.96695e+00_rb,0.95712e+00_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.11606e+01_rb,0.11485e+01_rb,0.11354e+01_rb,0.11218e+01_rb,0.11077e+01_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.13444e+01_rb,0.13282e+01_rb,0.13102e+01_rb,0.12917e+01_rb,0.12735e+01_rb /)\n      kao(:,10,16) = (/ &\n        & 0.15423e+01_rb,0.15207e+01_rb,0.14970e+01_rb,0.14733e+01_rb,0.14494e+01_rb /)\n      kao(:,11,16) = (/ &\n        & 0.17462e+01_rb,0.17138e+01_rb,0.16827e+01_rb,0.16518e+01_rb,0.16199e+01_rb /)\n      kao(:,12,16) = (/ &\n        & 0.19577e+01_rb,0.19145e+01_rb,0.18728e+01_rb,0.18320e+01_rb,0.17910e+01_rb /)\n      kao(:,13,16) = (/ &\n        & 0.21716e+01_rb,0.21171e+01_rb,0.20639e+01_rb,0.20113e+01_rb,0.19587e+01_rb /)\n  \n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.315770e-07_rb, 0.671978e-07_rb, 0.440649e-06_rb /)\n      forrefo(:, 2) = (/ 0.313674e-06_rb, 0.285252e-06_rb, 0.421024e-05_rb /)\n      forrefo(:, 3) = (/ 0.135818e-05_rb, 0.145071e-05_rb, 0.611285e-05_rb /)\n      forrefo(:, 4) = (/ 0.534065e-05_rb, 0.586268e-05_rb, 0.933970e-05_rb /)\n      forrefo(:, 5) = (/ 0.964007e-05_rb, 0.107110e-04_rb, 0.104486e-04_rb /)\n      forrefo(:, 6) = (/ 0.302775e-04_rb, 0.357530e-04_rb, 0.340724e-04_rb /)\n      forrefo(:, 7) = (/ 0.102437e-03_rb, 0.108475e-03_rb, 0.105245e-03_rb /)\n      forrefo(:, 8) = (/ 0.146054e-03_rb, 0.141490e-03_rb, 0.133071e-03_rb /)\n      forrefo(:, 9) = (/ 0.163978e-03_rb, 0.150208e-03_rb, 0.142864e-03_rb /)\n      forrefo(:,10) = (/ 0.220412e-03_rb, 0.182943e-03_rb, 0.150941e-03_rb /)\n      forrefo(:,11) = (/ 0.228877e-03_rb, 0.197679e-03_rb, 0.163220e-03_rb /)\n      forrefo(:,12) = (/ 0.234177e-03_rb, 0.217734e-03_rb, 0.185038e-03_rb /)\n      forrefo(:,13) = (/ 0.257187e-03_rb, 0.241570e-03_rb, 0.221178e-03_rb /)\n      forrefo(:,14) = (/ 0.272455e-03_rb, 0.270637e-03_rb, 0.256269e-03_rb /)\n      forrefo(:,15) = (/ 0.339445e-03_rb, 0.300268e-03_rb, 0.286574e-03_rb /)\n      forrefo(:,16) = (/ 0.338841e-03_rb, 0.355428e-03_rb, 0.353794e-03_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.100945e-04_rb, 0.801113e-05_rb, 0.635771e-05_rb, 0.504554e-05_rb, 0.400419e-05_rb, &\n        &  0.317777e-05_rb, 0.252191e-05_rb, 0.200141e-05_rb, 0.158834e-05_rb, 0.126052e-05_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.107573e-04_rb, 0.999809e-05_rb, 0.929245e-05_rb, 0.863661e-05_rb, 0.802706e-05_rb, &\n        &  0.746053e-05_rb, 0.693399e-05_rb, 0.644460e-05_rb, 0.598976e-05_rb, 0.556702e-05_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.350389e-04_rb, 0.319234e-04_rb, 0.290850e-04_rb, 0.264989e-04_rb, 0.241428e-04_rb, &\n        &  0.219962e-04_rb, 0.200404e-04_rb, 0.182586e-04_rb, 0.166351e-04_rb, 0.151560e-04_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.122993e-03_rb, 0.110885e-03_rb, 0.999691e-04_rb, 0.901277e-04_rb, 0.812551e-04_rb, &\n        &  0.732559e-04_rb, 0.660443e-04_rb, 0.595426e-04_rb, 0.536809e-04_rb, 0.483963e-04_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.206434e-03_rb, 0.187435e-03_rb, 0.170185e-03_rb, 0.154522e-03_rb, 0.140301e-03_rb, &\n        &  0.127388e-03_rb, 0.115664e-03_rb, 0.105019e-03_rb, 0.953540e-04_rb, 0.865783e-04_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.590645e-03_rb, 0.533109e-03_rb, 0.481177e-03_rb, 0.434305e-03_rb, 0.391998e-03_rb, &\n        &  0.353812e-03_rb, 0.319346e-03_rb, 0.288238e-03_rb, 0.260160e-03_rb, 0.234817e-03_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.163029e-02_rb, 0.148773e-02_rb, 0.135763e-02_rb, 0.123891e-02_rb, 0.113057e-02_rb, &\n        &  0.103170e-02_rb, 0.941483e-03_rb, 0.859153e-03_rb, 0.784023e-03_rb, 0.715462e-03_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.204528e-02_rb, 0.189258e-02_rb, 0.175128e-02_rb, 0.162053e-02_rb, 0.149954e-02_rb, &\n        &  0.138758e-02_rb, 0.128398e-02_rb, 0.118812e-02_rb, 0.109941e-02_rb, 0.101733e-02_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.210589e-02_rb, 0.197078e-02_rb, 0.184434e-02_rb, 0.172601e-02_rb, 0.161528e-02_rb, &\n        &  0.151164e-02_rb, 0.141466e-02_rb, 0.132390e-02_rb, 0.123896e-02_rb, 0.115947e-02_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.245098e-02_rb, 0.233745e-02_rb, 0.222918e-02_rb, 0.212592e-02_rb, 0.202745e-02_rb, &\n        &  0.193353e-02_rb, 0.184397e-02_rb, 0.175856e-02_rb, 0.167710e-02_rb, 0.159941e-02_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.267460e-02_rb, 0.253325e-02_rb, 0.239936e-02_rb, 0.227255e-02_rb, 0.215244e-02_rb, &\n        &  0.203868e-02_rb, 0.193093e-02_rb, 0.182888e-02_rb, 0.173222e-02_rb, 0.164067e-02_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.304510e-02_rb, 0.283919e-02_rb, 0.264720e-02_rb, 0.246820e-02_rb, 0.230130e-02_rb, &\n        &  0.214568e-02_rb, 0.200059e-02_rb, 0.186531e-02_rb, 0.173918e-02_rb, 0.162157e-02_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.338445e-02_rb, 0.314719e-02_rb, 0.292655e-02_rb, 0.272139e-02_rb, 0.253060e-02_rb, &\n        &  0.235319e-02_rb, 0.218822e-02_rb, 0.203482e-02_rb, 0.189217e-02_rb, 0.175952e-02_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.388649e-02_rb, 0.357018e-02_rb, 0.327961e-02_rb, 0.301269e-02_rb, 0.276750e-02_rb, &\n        &  0.254226e-02_rb, 0.233535e-02_rb, 0.214528e-02_rb, 0.197068e-02_rb, 0.181029e-02_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.412547e-02_rb, 0.387413e-02_rb, 0.363810e-02_rb, 0.341646e-02_rb, 0.320831e-02_rb, &\n        &  0.301285e-02_rb, 0.282930e-02_rb, 0.265693e-02_rb, 0.249506e-02_rb, 0.234305e-02_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.534327e-02_rb, 0.482967e-02_rb, 0.436544e-02_rb, 0.394583e-02_rb, 0.356655e-02_rb, &\n        &  0.322373e-02_rb, 0.291387e-02_rb, 0.263378e-02_rb, 0.238062e-02_rb, 0.215179e-02_rb /)\n     \n      end subroutine sw_kgb23\n\n! **************************************************************************\n      subroutine sw_kgb24\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            raylao, raylbo, abso3ao, abso3bo\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 34.3610_rb , 33.1240_rb, 31.3948_rb, 28.7248_rb, &\n        & 24.7884_rb , 21.4892_rb, 17.3972_rb, 13.7928_rb, &\n        & 9.54462_rb , 1.05002_rb,0.867332_rb,0.685753_rb, &\n        & 0.504718_rb,0.323112_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 34.2367_rb , 32.4327_rb, 30.0863_rb, 28.2085_rb, & \n        & 25.6533_rb , 22.3412_rb, 18.3112_rb, 13.8521_rb, &\n        & 9.51035_rb , 1.04138_rb,0.863493_rb,0.682790_rb, &\n        & 0.504721_rb,0.323102_rb,0.122193_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 34.1883_rb , 32.2479_rb, 30.2650_rb, 28.2914_rb, &\n        & 25.6626_rb , 22.3163_rb, 18.3327_rb, 13.8508_rb, &\n        & 9.49190_rb , 1.03672_rb,0.858272_rb,0.681485_rb, &\n        & 0.501363_rb,0.323110_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 34.1365_rb , 32.2316_rb, 30.3325_rb, 28.3305_rb, &\n        & 25.6420_rb , 22.3223_rb, 18.3411_rb, 13.8471_rb, &\n        & 9.47492_rb , 1.03376_rb,0.855380_rb,0.679085_rb, &\n        & 0.497998_rb,0.323053_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 34.0460_rb , 32.2795_rb, 30.4147_rb, 28.3123_rb, &\n        & 25.6438_rb , 22.3238_rb, 18.3441_rb, 13.8528_rb, &\n        & 9.45222_rb , 1.03058_rb,0.854037_rb,0.675554_rb, &\n        & 0.498344_rb,0.320072_rb,0.122193_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,6) = (/ &\n        & 33.9909_rb , 32.3127_rb, 30.4854_rb, 28.3005_rb, &\n        & 25.6310_rb , 22.3294_rb, 18.3459_rb, 13.8488_rb, &\n        & 9.43336_rb , 1.02901_rb,0.852728_rb,0.672322_rb, &\n        & 0.498056_rb,0.317753_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,7) = (/ &\n        & 33.9225_rb , 32.4097_rb, 30.5125_rb, 28.2810_rb, &\n        & 25.6387_rb , 22.3080_rb, 18.3715_rb, 13.8248_rb, &\n        & 9.41834_rb , 1.02735_rb,0.850807_rb,0.671379_rb, &\n        & 0.496975_rb,0.317158_rb,0.119297_rb, 1.70207e-02_rb /)\n      sfluxrefo(:,8) = (/ &\n        & 33.8940_rb , 32.4951_rb, 30.5494_rb, 28.2788_rb, &\n        & 25.5975_rb , 22.3225_rb, 18.3358_rb, 13.8199_rb, &\n        & 9.40283_rb , 1.02751_rb,0.850729_rb,0.670152_rb, &\n        & 0.494294_rb,0.315829_rb,0.116195_rb, 1.64138e-02_rb /)\n      sfluxrefo(:,9) = (/ &\n        & 34.6501_rb , 32.6690_rb, 30.2872_rb, 28.0955_rb, &\n        & 25.4662_rb , 22.1446_rb, 18.2754_rb, 13.7573_rb, &\n        & 9.36645_rb , 1.02356_rb,0.847154_rb,0.668519_rb, &\n        & 0.489186_rb,0.313790_rb,0.117074_rb, 1.60943e-02_rb /)\n\n! Rayleigh extinction coefficient at all v\n      raylao(:,1) = (/ &\n        & 1.28405e-07_rb,1.45501e-07_rb,1.67272e-07_rb,1.94856e-07_rb, &\n        & 2.15248e-07_rb,2.34920e-07_rb,2.48558e-07_rb,1.80004e-07_rb, &\n        & 1.46504e-07_rb,1.31355e-07_rb,1.33562e-07_rb,1.35618e-07_rb, &\n        & 1.22412e-07_rb,1.19842e-07_rb,1.19924e-07_rb,1.20264e-07_rb /)\n      raylao(:,2) = (/ &\n        & 1.41622e-07_rb,1.93436e-07_rb,2.25057e-07_rb,2.01025e-07_rb, &\n        & 1.85138e-07_rb,1.72672e-07_rb,1.64771e-07_rb,1.59312e-07_rb, &\n        & 1.44961e-07_rb,1.37448e-07_rb,1.37506e-07_rb,1.38081e-07_rb, &\n        & 1.22432e-07_rb,1.19844e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,3) = (/ &\n        & 1.45382e-07_rb,1.97020e-07_rb,2.22781e-07_rb,1.96062e-07_rb, &\n        & 1.83495e-07_rb,1.72495e-07_rb,1.64910e-07_rb,1.58797e-07_rb, &\n        & 1.46208e-07_rb,1.42274e-07_rb,1.40445e-07_rb,1.39496e-07_rb, &\n        & 1.26940e-07_rb,1.19844e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,4) = (/ &\n        & 1.48247e-07_rb,1.99958e-07_rb,2.18048e-07_rb,1.93896e-07_rb, &\n        & 1.83125e-07_rb,1.73244e-07_rb,1.64320e-07_rb,1.58298e-07_rb, &\n        & 1.48428e-07_rb,1.44769e-07_rb,1.43704e-07_rb,1.38498e-07_rb, &\n        & 1.31732e-07_rb,1.22299e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,5) = (/ &\n        & 1.51343e-07_rb,1.99621e-07_rb,2.14563e-07_rb,1.93824e-07_rb, &\n        & 1.82992e-07_rb,1.73143e-07_rb,1.64587e-07_rb,1.57355e-07_rb, &\n        & 1.51198e-07_rb,1.46373e-07_rb,1.45438e-07_rb,1.38095e-07_rb, &\n        & 1.35026e-07_rb,1.27504e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,6) = (/ &\n        & 1.54462e-07_rb,1.97610e-07_rb,2.11992e-07_rb,1.93831e-07_rb, &\n        & 1.83900e-07_rb,1.73125e-07_rb,1.64093e-07_rb,1.57651e-07_rb, &\n        & 1.53158e-07_rb,1.46843e-07_rb,1.44733e-07_rb,1.40611e-07_rb, &\n        & 1.37320e-07_rb,1.33932e-07_rb,1.20423e-07_rb,1.20287e-07_rb /)\n      raylao(:,7) = (/ &\n        & 1.59068e-07_rb,1.92757e-07_rb,2.09865e-07_rb,1.95132e-07_rb, &\n        & 1.83641e-07_rb,1.73778e-07_rb,1.63215e-07_rb,1.59462e-07_rb, &\n        & 1.54331e-07_rb,1.46177e-07_rb,1.45819e-07_rb,1.43177e-07_rb, &\n        & 1.39797e-07_rb,1.36780e-07_rb,1.33385e-07_rb,1.20287e-07_rb /)\n      raylao(:,8) = (/ &\n        & 1.62066e-07_rb,1.87529e-07_rb,2.07191e-07_rb,1.97788e-07_rb, &\n        & 1.84920e-07_rb,1.72951e-07_rb,1.65450e-07_rb,1.60344e-07_rb, &\n        & 1.54403e-07_rb,1.47679e-07_rb,1.47287e-07_rb,1.44951e-07_rb, &\n        & 1.42517e-07_rb,1.41107e-07_rb,1.48688e-07_rb,1.51127e-07_rb /)\n      raylao(:,9) = (/ &\n        & 1.19177e-07_rb,1.86522e-07_rb,2.20324e-07_rb,2.13543e-07_rb, &\n        & 1.92198e-07_rb,1.81641e-07_rb,1.70092e-07_rb,1.65072e-07_rb, &\n        & 1.59804e-07_rb,1.56745e-07_rb,1.51235e-07_rb,1.51400e-07_rb, &\n        & 1.49635e-07_rb,1.48056e-07_rb,1.49046e-07_rb,1.51010e-07_rb /)\n\n      raylbo(:) = (/ &\n        & 1.23766e-07_rb,1.40524e-07_rb,1.61610e-07_rb,1.83232e-07_rb, &\n        & 2.02951e-07_rb,2.21367e-07_rb,2.38367e-07_rb,2.53019e-07_rb, &\n        & 2.12202e-07_rb,1.36977e-07_rb,1.39118e-07_rb,1.37097e-07_rb, &\n        & 1.33223e-07_rb,1.38695e-07_rb,1.19868e-07_rb,1.20062e-07_rb /)\n\n      abso3ao(:) = (/ &\n        & 8.03067e-02_rb,0.180926_rb   ,0.227484_rb   ,0.168015_rb   , &\n        & 0.138284_rb   ,0.114537_rb   ,9.50114e-02_rb,8.06816e-02_rb, &\n        & 6.76406e-02_rb,5.69802e-02_rb,5.63283e-02_rb,4.57592e-02_rb, &\n        & 4.21862e-02_rb,3.47949e-02_rb,2.65731e-02_rb,2.67628e-02_rb /)\n\n      abso3bo(:) = (/ &\n        & 2.94848e-02_rb,4.33642e-02_rb,6.70197e-02_rb,0.104990_rb   , &\n        & 0.156180_rb   ,0.214638_rb   ,0.266281_rb   ,0.317941_rb   , &\n        & 0.355327_rb   ,0.371241_rb   ,0.374396_rb   ,0.326847_rb   , &\n        & 0.126497_rb   ,6.95264e-02_rb,2.58175e-02_rb,2.52862e-02_rb /)\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.73110e-09_rb,0.95257e-08_rb,0.84454e-08_rb,0.69367e-08_rb,0.55267e-08_rb, &\n        & 0.41107e-08_rb,0.32800e-08_rb,0.33548e-08_rb,0.22111e-08_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.71850e-09_rb,0.98856e-08_rb,0.88084e-08_rb,0.72442e-08_rb,0.57586e-08_rb, &\n        & 0.43475e-08_rb,0.34021e-08_rb,0.32425e-08_rb,0.21911e-08_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.57048e-09_rb,0.11944e-07_rb,0.10693e-07_rb,0.91787e-08_rb,0.75423e-08_rb, &\n        & 0.56949e-08_rb,0.43124e-08_rb,0.42335e-08_rb,0.57788e-08_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.45283e-09_rb,0.10517e-07_rb,0.93142e-08_rb,0.77267e-08_rb,0.61927e-08_rb, &\n        & 0.47485e-08_rb,0.34557e-08_rb,0.32691e-08_rb,0.21836e-08_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.40037e-09_rb,0.10599e-07_rb,0.93529e-08_rb,0.78411e-08_rb,0.63421e-08_rb, &\n        & 0.49082e-08_rb,0.36312e-08_rb,0.32874e-08_rb,0.21861e-08_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.77671e-09_rb,0.11163e-07_rb,0.95032e-08_rb,0.79805e-08_rb,0.60721e-08_rb, &\n        & 0.45440e-08_rb,0.31263e-08_rb,0.28631e-08_rb,0.19430e-08_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.85527e-09_rb,0.11271e-07_rb,0.97269e-08_rb,0.82280e-08_rb,0.62706e-08_rb, &\n        & 0.47926e-08_rb,0.32802e-08_rb,0.28152e-08_rb,0.19155e-08_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.85773e-09_rb,0.13292e-07_rb,0.11943e-07_rb,0.10177e-07_rb,0.81637e-08_rb, &\n        & 0.62054e-08_rb,0.44045e-08_rb,0.35504e-08_rb,0.48274e-08_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.76956e-09_rb,0.13343e-07_rb,0.12140e-07_rb,0.10403e-07_rb,0.83916e-08_rb, &\n        & 0.64414e-08_rb,0.46212e-08_rb,0.36611e-08_rb,0.46523e-08_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.53187e-09_rb,0.11759e-07_rb,0.10564e-07_rb,0.89416e-08_rb,0.69566e-08_rb, &\n        & 0.54336e-08_rb,0.36797e-08_rb,0.28238e-08_rb,0.18838e-08_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.99065e-09_rb,0.13223e-07_rb,0.11222e-07_rb,0.94282e-08_rb,0.74664e-08_rb, &\n        & 0.54084e-08_rb,0.35205e-08_rb,0.24806e-08_rb,0.20205e-08_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.98793e-09_rb,0.13673e-07_rb,0.11444e-07_rb,0.96735e-08_rb,0.76364e-08_rb, &\n        & 0.55809e-08_rb,0.37259e-08_rb,0.25419e-08_rb,0.20086e-08_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.10274e-08_rb,0.14243e-07_rb,0.12051e-07_rb,0.10168e-07_rb,0.80110e-08_rb, &\n        & 0.59129e-08_rb,0.38720e-08_rb,0.26806e-08_rb,0.19959e-08_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.10879e-08_rb,0.15991e-07_rb,0.14290e-07_rb,0.12193e-07_rb,0.99943e-08_rb, &\n        & 0.76411e-08_rb,0.49949e-08_rb,0.32117e-08_rb,0.45196e-08_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.10733e-08_rb,0.14460e-07_rb,0.12483e-07_rb,0.10703e-07_rb,0.84924e-08_rb, &\n        & 0.62896e-08_rb,0.42753e-08_rb,0.27408e-08_rb,0.19679e-08_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.11948e-08_rb,0.15804e-07_rb,0.13423e-07_rb,0.10964e-07_rb,0.86345e-08_rb, &\n        & 0.61421e-08_rb,0.39130e-08_rb,0.24271e-08_rb,0.26282e-08_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.12796e-08_rb,0.16985e-07_rb,0.14121e-07_rb,0.11784e-07_rb,0.93415e-08_rb, &\n        & 0.67310e-08_rb,0.43124e-08_rb,0.25170e-08_rb,0.26033e-08_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.12903e-08_rb,0.17863e-07_rb,0.14703e-07_rb,0.12387e-07_rb,0.99243e-08_rb, &\n        & 0.72283e-08_rb,0.46892e-08_rb,0.26092e-08_rb,0.25739e-08_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.13030e-08_rb,0.17982e-07_rb,0.14488e-07_rb,0.12389e-07_rb,0.10284e-07_rb, &\n        & 0.76192e-08_rb,0.50049e-08_rb,0.27184e-08_rb,0.25450e-08_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.13295e-08_rb,0.20084e-07_rb,0.17213e-07_rb,0.15086e-07_rb,0.12255e-07_rb, &\n        & 0.93192e-08_rb,0.61747e-08_rb,0.34151e-08_rb,0.50409e-08_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.14930e-08_rb,0.19740e-07_rb,0.16353e-07_rb,0.13382e-07_rb,0.10370e-07_rb, &\n        & 0.76167e-08_rb,0.46913e-08_rb,0.23740e-08_rb,0.37254e-08_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.15750e-08_rb,0.20826e-07_rb,0.17352e-07_rb,0.14080e-07_rb,0.11109e-07_rb, &\n        & 0.82293e-08_rb,0.51142e-08_rb,0.25900e-08_rb,0.36977e-08_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.16427e-08_rb,0.22313e-07_rb,0.18005e-07_rb,0.14545e-07_rb,0.11545e-07_rb, &\n        & 0.85987e-08_rb,0.53849e-08_rb,0.27523e-08_rb,0.36628e-08_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.17106e-08_rb,0.23821e-07_rb,0.18882e-07_rb,0.15226e-07_rb,0.12313e-07_rb, &\n        & 0.92367e-08_rb,0.58646e-08_rb,0.29020e-08_rb,0.36336e-08_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.17465e-08_rb,0.26750e-07_rb,0.22103e-07_rb,0.18690e-07_rb,0.15320e-07_rb, &\n        & 0.11508e-07_rb,0.77281e-08_rb,0.34929e-08_rb,0.69801e-08_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.17561e-08_rb,0.17298e-07_rb,0.18888e-07_rb,0.16164e-07_rb,0.12676e-07_rb, &\n        & 0.91128e-08_rb,0.57292e-08_rb,0.25945e-08_rb,0.52718e-08_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.19997e-08_rb,0.20866e-07_rb,0.20612e-07_rb,0.17467e-07_rb,0.13431e-07_rb, &\n        & 0.96178e-08_rb,0.60009e-08_rb,0.28959e-08_rb,0.52609e-08_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.21808e-08_rb,0.24689e-07_rb,0.22590e-07_rb,0.18672e-07_rb,0.14573e-07_rb, &\n        & 0.10599e-07_rb,0.66802e-08_rb,0.31104e-08_rb,0.52649e-08_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.22321e-08_rb,0.28043e-07_rb,0.23802e-07_rb,0.19473e-07_rb,0.15182e-07_rb, &\n        & 0.11372e-07_rb,0.73223e-08_rb,0.34820e-08_rb,0.52977e-08_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.23033e-08_rb,0.30784e-07_rb,0.25188e-07_rb,0.20376e-07_rb,0.16019e-07_rb, &\n        & 0.12009e-07_rb,0.77933e-08_rb,0.37322e-08_rb,0.52777e-08_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.22679e-08_rb,0.13507e-07_rb,0.20320e-07_rb,0.19549e-07_rb,0.15905e-07_rb, &\n        & 0.11277e-07_rb,0.68710e-08_rb,0.29328e-08_rb,0.79703e-08_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.25718e-08_rb,0.16957e-07_rb,0.24375e-07_rb,0.21175e-07_rb,0.17080e-07_rb, &\n        & 0.12233e-07_rb,0.77114e-08_rb,0.34113e-08_rb,0.79963e-08_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.27598e-08_rb,0.19896e-07_rb,0.28092e-07_rb,0.23059e-07_rb,0.18272e-07_rb, &\n        & 0.13117e-07_rb,0.84449e-08_rb,0.37817e-08_rb,0.79824e-08_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.28979e-08_rb,0.22997e-07_rb,0.29556e-07_rb,0.24211e-07_rb,0.19134e-07_rb, &\n        & 0.13799e-07_rb,0.90980e-08_rb,0.41849e-08_rb,0.79622e-08_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.31158e-08_rb,0.26193e-07_rb,0.32426e-07_rb,0.25685e-07_rb,0.19970e-07_rb, &\n        & 0.14504e-07_rb,0.96379e-08_rb,0.45034e-08_rb,0.78914e-08_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.27286e-08_rb,0.10085e-07_rb,0.15014e-07_rb,0.19090e-07_rb,0.19831e-07_rb, &\n        & 0.15054e-07_rb,0.91059e-08_rb,0.39324e-08_rb,0.14155e-07_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.30146e-08_rb,0.12680e-07_rb,0.19259e-07_rb,0.23896e-07_rb,0.21584e-07_rb, &\n        & 0.16217e-07_rb,0.99712e-08_rb,0.44108e-08_rb,0.14243e-07_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.35571e-08_rb,0.15989e-07_rb,0.23328e-07_rb,0.28003e-07_rb,0.22999e-07_rb, &\n        & 0.17316e-07_rb,0.10856e-07_rb,0.49279e-08_rb,0.13770e-07_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.40065e-08_rb,0.19481e-07_rb,0.27247e-07_rb,0.30922e-07_rb,0.24592e-07_rb, &\n        & 0.18005e-07_rb,0.11331e-07_rb,0.53242e-08_rb,0.13758e-07_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.44047e-08_rb,0.23368e-07_rb,0.31337e-07_rb,0.33478e-07_rb,0.26467e-07_rb, &\n        & 0.19093e-07_rb,0.12194e-07_rb,0.56088e-08_rb,0.13665e-07_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.32692e-08_rb,0.79127e-08_rb,0.11108e-07_rb,0.13962e-07_rb,0.15949e-07_rb, &\n        & 0.18125e-07_rb,0.12367e-07_rb,0.53666e-08_rb,0.28048e-07_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.39872e-08_rb,0.10056e-07_rb,0.14185e-07_rb,0.17838e-07_rb,0.20262e-07_rb, &\n        & 0.19824e-07_rb,0.13459e-07_rb,0.59111e-08_rb,0.29491e-07_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.46117e-08_rb,0.12472e-07_rb,0.17902e-07_rb,0.22130e-07_rb,0.25362e-07_rb, &\n        & 0.21745e-07_rb,0.14226e-07_rb,0.62741e-08_rb,0.30373e-07_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.52024e-08_rb,0.15275e-07_rb,0.21923e-07_rb,0.27295e-07_rb,0.30210e-07_rb, &\n        & 0.23240e-07_rb,0.15087e-07_rb,0.66869e-08_rb,0.31196e-07_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.56198e-08_rb,0.17975e-07_rb,0.26684e-07_rb,0.30762e-07_rb,0.34012e-07_rb, &\n        & 0.25509e-07_rb,0.16208e-07_rb,0.72951e-08_rb,0.31583e-07_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.48178e-08_rb,0.70531e-08_rb,0.93321e-08_rb,0.10834e-07_rb,0.12386e-07_rb, &\n        & 0.13718e-07_rb,0.14795e-07_rb,0.73464e-08_rb,0.35934e-07_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.55752e-08_rb,0.86985e-08_rb,0.11492e-07_rb,0.13823e-07_rb,0.15291e-07_rb, &\n        & 0.17278e-07_rb,0.18153e-07_rb,0.81439e-08_rb,0.37177e-07_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.63274e-08_rb,0.10735e-07_rb,0.13985e-07_rb,0.17136e-07_rb,0.19303e-07_rb, &\n        & 0.20940e-07_rb,0.20044e-07_rb,0.88008e-08_rb,0.38431e-07_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.70007e-08_rb,0.12858e-07_rb,0.17195e-07_rb,0.20946e-07_rb,0.23543e-07_rb, &\n        & 0.25732e-07_rb,0.21748e-07_rb,0.95846e-08_rb,0.39768e-07_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.75858e-08_rb,0.15576e-07_rb,0.20803e-07_rb,0.25331e-07_rb,0.28222e-07_rb, &\n        & 0.30974e-07_rb,0.23346e-07_rb,0.10532e-07_rb,0.41126e-07_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.71066e-08_rb,0.91105e-08_rb,0.91823e-08_rb,0.10078e-07_rb,0.11080e-07_rb, &\n        & 0.11808e-07_rb,0.12592e-07_rb,0.10585e-07_rb,0.36646e-07_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.75651e-08_rb,0.10196e-07_rb,0.11288e-07_rb,0.12341e-07_rb,0.13264e-07_rb, &\n        & 0.14635e-07_rb,0.15304e-07_rb,0.12113e-07_rb,0.37821e-07_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.84521e-08_rb,0.11641e-07_rb,0.13494e-07_rb,0.15134e-07_rb,0.16494e-07_rb, &\n        & 0.17667e-07_rb,0.18637e-07_rb,0.13998e-07_rb,0.39151e-07_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.96535e-08_rb,0.13091e-07_rb,0.16210e-07_rb,0.18132e-07_rb,0.20108e-07_rb, &\n        & 0.21506e-07_rb,0.22578e-07_rb,0.15372e-07_rb,0.40534e-07_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.10866e-07_rb,0.15259e-07_rb,0.19222e-07_rb,0.21816e-07_rb,0.23808e-07_rb, &\n        & 0.25779e-07_rb,0.26640e-07_rb,0.16560e-07_rb,0.41783e-07_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.80834e-08_rb,0.10420e-07_rb,0.92387e-08_rb,0.95448e-08_rb,0.10004e-07_rb, &\n        & 0.10210e-07_rb,0.10715e-07_rb,0.12956e-07_rb,0.37307e-07_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.93300e-08_rb,0.11721e-07_rb,0.10935e-07_rb,0.11240e-07_rb,0.12099e-07_rb, &\n        & 0.12529e-07_rb,0.12978e-07_rb,0.14968e-07_rb,0.38619e-07_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.10509e-07_rb,0.12830e-07_rb,0.12793e-07_rb,0.13649e-07_rb,0.14634e-07_rb, &\n        & 0.15024e-07_rb,0.15635e-07_rb,0.17087e-07_rb,0.40001e-07_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.11973e-07_rb,0.14173e-07_rb,0.14811e-07_rb,0.16236e-07_rb,0.17652e-07_rb, &\n        & 0.18139e-07_rb,0.18897e-07_rb,0.19167e-07_rb,0.41426e-07_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.13412e-07_rb,0.16145e-07_rb,0.17438e-07_rb,0.18946e-07_rb,0.20873e-07_rb, &\n        & 0.21649e-07_rb,0.22446e-07_rb,0.20222e-07_rb,0.42866e-07_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.96752e-08_rb,0.12525e-07_rb,0.10944e-07_rb,0.96402e-08_rb,0.92613e-08_rb, &\n        & 0.89183e-08_rb,0.91757e-08_rb,0.10962e-07_rb,0.37700e-07_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.10573e-07_rb,0.14013e-07_rb,0.12095e-07_rb,0.11243e-07_rb,0.11108e-07_rb, &\n        & 0.10880e-07_rb,0.11099e-07_rb,0.12700e-07_rb,0.39054e-07_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.12096e-07_rb,0.15476e-07_rb,0.13719e-07_rb,0.13357e-07_rb,0.13060e-07_rb, &\n        & 0.13122e-07_rb,0.13232e-07_rb,0.14320e-07_rb,0.40767e-07_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.13461e-07_rb,0.16674e-07_rb,0.15454e-07_rb,0.15611e-07_rb,0.15616e-07_rb, &\n        & 0.15505e-07_rb,0.16233e-07_rb,0.16510e-07_rb,0.42192e-07_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.14863e-07_rb,0.17307e-07_rb,0.17245e-07_rb,0.18041e-07_rb,0.18314e-07_rb, &\n        & 0.18445e-07_rb,0.19222e-07_rb,0.18635e-07_rb,0.43353e-07_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.11698e-08_rb,0.30848e-07_rb,0.36454e-07_rb,0.38710e-07_rb,0.45901e-07_rb, &\n        & 0.55227e-07_rb,0.66976e-07_rb,0.88407e-07_rb,0.23422e-07_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.11855e-08_rb,0.31924e-07_rb,0.37139e-07_rb,0.40576e-07_rb,0.48515e-07_rb, &\n        & 0.57453e-07_rb,0.68267e-07_rb,0.87661e-07_rb,0.23548e-07_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.14595e-08_rb,0.39594e-07_rb,0.49562e-07_rb,0.62806e-07_rb,0.77187e-07_rb, &\n        & 0.93412e-07_rb,0.11204e-06_rb,0.13944e-06_rb,0.36327e-07_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.16033e-08_rb,0.32903e-07_rb,0.39616e-07_rb,0.43600e-07_rb,0.51878e-07_rb, &\n        & 0.61189e-07_rb,0.71838e-07_rb,0.88579e-07_rb,0.23754e-07_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.16713e-08_rb,0.33816e-07_rb,0.40271e-07_rb,0.44761e-07_rb,0.53112e-07_rb, &\n        & 0.62817e-07_rb,0.73214e-07_rb,0.89918e-07_rb,0.23712e-07_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.14413e-08_rb,0.29542e-07_rb,0.33672e-07_rb,0.38233e-07_rb,0.38429e-07_rb, &\n        & 0.45175e-07_rb,0.55138e-07_rb,0.73579e-07_rb,0.25050e-07_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.13819e-08_rb,0.33839e-07_rb,0.35660e-07_rb,0.39637e-07_rb,0.40862e-07_rb, &\n        & 0.47496e-07_rb,0.56716e-07_rb,0.72256e-07_rb,0.25722e-07_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.14034e-08_rb,0.38888e-07_rb,0.49224e-07_rb,0.54694e-07_rb,0.64529e-07_rb, &\n        & 0.76758e-07_rb,0.91615e-07_rb,0.11521e-06_rb,0.39473e-07_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.15427e-08_rb,0.40736e-07_rb,0.49562e-07_rb,0.55626e-07_rb,0.65520e-07_rb, &\n        & 0.77421e-07_rb,0.92434e-07_rb,0.11487e-06_rb,0.39089e-07_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.19146e-08_rb,0.37020e-07_rb,0.37998e-07_rb,0.40828e-07_rb,0.46417e-07_rb, &\n        & 0.52511e-07_rb,0.60306e-07_rb,0.73583e-07_rb,0.26882e-07_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.16720e-08_rb,0.23360e-07_rb,0.34106e-07_rb,0.35883e-07_rb,0.37371e-07_rb, &\n        & 0.37719e-07_rb,0.44564e-07_rb,0.59521e-07_rb,0.60171e-07_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.17699e-08_rb,0.26546e-07_rb,0.36000e-07_rb,0.36846e-07_rb,0.38381e-07_rb, &\n        & 0.39667e-07_rb,0.46368e-07_rb,0.60306e-07_rb,0.60604e-07_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.18009e-08_rb,0.29450e-07_rb,0.37614e-07_rb,0.38630e-07_rb,0.39041e-07_rb, &\n        & 0.41600e-07_rb,0.48142e-07_rb,0.59638e-07_rb,0.61274e-07_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.18222e-08_rb,0.39219e-07_rb,0.48109e-07_rb,0.53485e-07_rb,0.57150e-07_rb, &\n        & 0.64444e-07_rb,0.75574e-07_rb,0.94813e-07_rb,0.76759e-07_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.18210e-08_rb,0.34020e-07_rb,0.40366e-07_rb,0.41710e-07_rb,0.42164e-07_rb, &\n        & 0.45001e-07_rb,0.49878e-07_rb,0.60009e-07_rb,0.61481e-07_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.21152e-08_rb,0.23706e-07_rb,0.29784e-07_rb,0.35302e-07_rb,0.35282e-07_rb, &\n        & 0.34361e-07_rb,0.35938e-07_rb,0.47065e-07_rb,0.17050e-06_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.22014e-08_rb,0.24318e-07_rb,0.33239e-07_rb,0.37390e-07_rb,0.36975e-07_rb, &\n        & 0.35774e-07_rb,0.38207e-07_rb,0.49025e-07_rb,0.17312e-06_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.21940e-08_rb,0.26005e-07_rb,0.37067e-07_rb,0.38353e-07_rb,0.38894e-07_rb, &\n        & 0.37527e-07_rb,0.40105e-07_rb,0.50082e-07_rb,0.17777e-06_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.23140e-08_rb,0.28378e-07_rb,0.41743e-07_rb,0.40523e-07_rb,0.40492e-07_rb, &\n        & 0.38652e-07_rb,0.40876e-07_rb,0.49640e-07_rb,0.18336e-06_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.23213e-08_rb,0.34154e-07_rb,0.50461e-07_rb,0.52357e-07_rb,0.54187e-07_rb, &\n        & 0.57113e-07_rb,0.62843e-07_rb,0.77605e-07_rb,0.21695e-06_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.26738e-08_rb,0.26329e-07_rb,0.23971e-07_rb,0.31112e-07_rb,0.35671e-07_rb, &\n        & 0.34087e-07_rb,0.29799e-07_rb,0.37789e-07_rb,0.52514e-06_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.25455e-08_rb,0.28564e-07_rb,0.26376e-07_rb,0.34876e-07_rb,0.38195e-07_rb, &\n        & 0.36126e-07_rb,0.31889e-07_rb,0.38787e-07_rb,0.53894e-06_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.27955e-08_rb,0.30168e-07_rb,0.29598e-07_rb,0.39256e-07_rb,0.39488e-07_rb, &\n        & 0.38121e-07_rb,0.34110e-07_rb,0.40225e-07_rb,0.55617e-06_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.30518e-08_rb,0.31696e-07_rb,0.32642e-07_rb,0.43581e-07_rb,0.40810e-07_rb, &\n        & 0.38887e-07_rb,0.35568e-07_rb,0.41837e-07_rb,0.57141e-06_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.29545e-08_rb,0.34626e-07_rb,0.42873e-07_rb,0.52742e-07_rb,0.53043e-07_rb, &\n        & 0.52428e-07_rb,0.54304e-07_rb,0.64247e-07_rb,0.63906e-06_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.30127e-08_rb,0.42606e-07_rb,0.28980e-07_rb,0.24923e-07_rb,0.29265e-07_rb, &\n        & 0.34534e-07_rb,0.31090e-07_rb,0.30814e-07_rb,0.12844e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.33504e-08_rb,0.42102e-07_rb,0.30491e-07_rb,0.27666e-07_rb,0.33477e-07_rb, &\n        & 0.35643e-07_rb,0.33324e-07_rb,0.31448e-07_rb,0.13231e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.37714e-08_rb,0.40516e-07_rb,0.32080e-07_rb,0.30623e-07_rb,0.37391e-07_rb, &\n        & 0.37255e-07_rb,0.35144e-07_rb,0.32296e-07_rb,0.13598e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.40809e-08_rb,0.41419e-07_rb,0.33638e-07_rb,0.33756e-07_rb,0.41072e-07_rb, &\n        & 0.38814e-07_rb,0.36264e-07_rb,0.33664e-07_rb,0.13955e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.38112e-08_rb,0.42764e-07_rb,0.35694e-07_rb,0.36747e-07_rb,0.45193e-07_rb, &\n        & 0.40460e-07_rb,0.37371e-07_rb,0.35107e-07_rb,0.14282e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.36577e-08_rb,0.64857e-07_rb,0.37268e-07_rb,0.28977e-07_rb,0.24480e-07_rb, &\n        & 0.26864e-07_rb,0.30486e-07_rb,0.25122e-07_rb,0.20521e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.39427e-08_rb,0.65731e-07_rb,0.37248e-07_rb,0.30585e-07_rb,0.26773e-07_rb, &\n        & 0.30114e-07_rb,0.31576e-07_rb,0.26187e-07_rb,0.21480e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.43811e-08_rb,0.66809e-07_rb,0.38170e-07_rb,0.32043e-07_rb,0.28837e-07_rb, &\n        & 0.34005e-07_rb,0.32765e-07_rb,0.27322e-07_rb,0.22122e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.46591e-08_rb,0.68244e-07_rb,0.41020e-07_rb,0.34183e-07_rb,0.31347e-07_rb, &\n        & 0.37946e-07_rb,0.34473e-07_rb,0.28264e-07_rb,0.22876e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.51635e-08_rb,0.69768e-07_rb,0.42241e-07_rb,0.36125e-07_rb,0.34689e-07_rb, &\n        & 0.41422e-07_rb,0.36208e-07_rb,0.29319e-07_rb,0.23528e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.48063e-08_rb,0.99492e-07_rb,0.67977e-07_rb,0.40583e-07_rb,0.27462e-07_rb, &\n        & 0.23261e-07_rb,0.24790e-07_rb,0.24175e-07_rb,0.34404e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.46794e-08_rb,0.10207e-06_rb,0.68838e-07_rb,0.41170e-07_rb,0.30068e-07_rb, &\n        & 0.24536e-07_rb,0.27696e-07_rb,0.25318e-07_rb,0.35579e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.51560e-08_rb,0.10436e-06_rb,0.69782e-07_rb,0.42105e-07_rb,0.32065e-07_rb, &\n        & 0.26776e-07_rb,0.30613e-07_rb,0.26859e-07_rb,0.36807e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.59944e-08_rb,0.10484e-06_rb,0.71027e-07_rb,0.44319e-07_rb,0.34843e-07_rb, &\n        & 0.29788e-07_rb,0.33876e-07_rb,0.28922e-07_rb,0.37740e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.64682e-08_rb,0.10541e-06_rb,0.71736e-07_rb,0.46124e-07_rb,0.36934e-07_rb, &\n        & 0.32173e-07_rb,0.36502e-07_rb,0.30991e-07_rb,0.38805e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.56433e-08_rb,0.13757e-06_rb,0.10641e-06_rb,0.72870e-07_rb,0.43453e-07_rb, &\n        & 0.25530e-07_rb,0.19778e-07_rb,0.25383e-07_rb,0.95912e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.61882e-08_rb,0.14041e-06_rb,0.11046e-06_rb,0.75424e-07_rb,0.44204e-07_rb, &\n        & 0.28513e-07_rb,0.22344e-07_rb,0.27258e-07_rb,0.98257e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.68724e-08_rb,0.14355e-06_rb,0.11272e-06_rb,0.76977e-07_rb,0.44934e-07_rb, &\n        & 0.30972e-07_rb,0.24609e-07_rb,0.29074e-07_rb,0.10035e-04_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.75288e-08_rb,0.14628e-06_rb,0.11397e-06_rb,0.77508e-07_rb,0.45913e-07_rb, &\n        & 0.33498e-07_rb,0.27308e-07_rb,0.31237e-07_rb,0.10206e-04_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.82361e-08_rb,0.14989e-06_rb,0.11575e-06_rb,0.78052e-07_rb,0.47282e-07_rb, &\n        & 0.34986e-07_rb,0.29571e-07_rb,0.31933e-07_rb,0.10332e-04_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.80705e-08_rb,0.18916e-06_rb,0.16332e-06_rb,0.12182e-06_rb,0.80167e-07_rb, &\n        & 0.44659e-07_rb,0.24027e-07_rb,0.20514e-07_rb,0.18076e-04_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.86522e-08_rb,0.19825e-06_rb,0.16839e-06_rb,0.12817e-06_rb,0.85984e-07_rb, &\n        & 0.48117e-07_rb,0.24937e-07_rb,0.22855e-07_rb,0.18392e-04_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.93838e-08_rb,0.20474e-06_rb,0.17472e-06_rb,0.13185e-06_rb,0.89897e-07_rb, &\n        & 0.50484e-07_rb,0.27069e-07_rb,0.24729e-07_rb,0.18827e-04_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.10442e-07_rb,0.21110e-06_rb,0.17958e-06_rb,0.13546e-06_rb,0.92462e-07_rb, &\n        & 0.51368e-07_rb,0.29958e-07_rb,0.26382e-07_rb,0.19325e-04_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.11203e-07_rb,0.21676e-06_rb,0.18359e-06_rb,0.14012e-06_rb,0.94090e-07_rb, &\n        & 0.51431e-07_rb,0.32637e-07_rb,0.27900e-07_rb,0.19654e-04_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.10898e-07_rb,0.20490e-06_rb,0.23352e-06_rb,0.18592e-06_rb,0.13108e-06_rb, &\n        & 0.82594e-07_rb,0.41478e-07_rb,0.20359e-07_rb,0.24656e-04_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.12100e-07_rb,0.21595e-06_rb,0.24259e-06_rb,0.19598e-06_rb,0.14307e-06_rb, &\n        & 0.90287e-07_rb,0.44897e-07_rb,0.21400e-07_rb,0.25439e-04_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.12997e-07_rb,0.22559e-06_rb,0.25028e-06_rb,0.20624e-06_rb,0.15074e-06_rb, &\n        & 0.95763e-07_rb,0.46972e-07_rb,0.22656e-07_rb,0.26128e-04_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.12774e-07_rb,0.23494e-06_rb,0.26130e-06_rb,0.21398e-06_rb,0.15730e-06_rb, &\n        & 0.98985e-07_rb,0.48309e-07_rb,0.24026e-07_rb,0.26834e-04_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.13184e-07_rb,0.24219e-06_rb,0.26811e-06_rb,0.22059e-06_rb,0.16314e-06_rb, &\n        & 0.10271e-06_rb,0.49802e-07_rb,0.25441e-07_rb,0.27644e-04_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.11394e-07_rb,0.19172e-06_rb,0.27076e-06_rb,0.23579e-06_rb,0.17648e-06_rb, &\n        & 0.11366e-06_rb,0.56463e-07_rb,0.20869e-07_rb,0.27151e-04_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.12908e-07_rb,0.20309e-06_rb,0.28462e-06_rb,0.24753e-06_rb,0.18719e-06_rb, &\n        & 0.12033e-06_rb,0.60157e-07_rb,0.21646e-07_rb,0.27962e-04_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.13752e-07_rb,0.21619e-06_rb,0.29476e-06_rb,0.25594e-06_rb,0.19641e-06_rb, &\n        & 0.12734e-06_rb,0.64272e-07_rb,0.22557e-07_rb,0.28912e-04_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.14906e-07_rb,0.22665e-06_rb,0.30298e-06_rb,0.26272e-06_rb,0.20331e-06_rb, &\n        & 0.13316e-06_rb,0.68243e-07_rb,0.23417e-07_rb,0.29816e-04_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.15969e-07_rb,0.23477e-06_rb,0.31068e-06_rb,0.27029e-06_rb,0.20850e-06_rb, &\n        & 0.13902e-06_rb,0.71857e-07_rb,0.25264e-07_rb,0.30765e-04_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.13593e-07_rb,0.19801e-06_rb,0.26490e-06_rb,0.27826e-06_rb,0.22531e-06_rb, &\n        & 0.15112e-06_rb,0.78691e-07_rb,0.27273e-07_rb,0.28055e-04_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.15426e-07_rb,0.20839e-06_rb,0.27732e-06_rb,0.28785e-06_rb,0.23371e-06_rb, &\n        & 0.16027e-06_rb,0.86131e-07_rb,0.29011e-07_rb,0.29165e-04_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.16638e-07_rb,0.21808e-06_rb,0.28896e-06_rb,0.29666e-06_rb,0.24201e-06_rb, &\n        & 0.16845e-06_rb,0.91791e-07_rb,0.30670e-07_rb,0.30372e-04_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.17929e-07_rb,0.22577e-06_rb,0.29798e-06_rb,0.30533e-06_rb,0.24895e-06_rb, &\n        & 0.17573e-06_rb,0.96085e-07_rb,0.31360e-07_rb,0.31437e-04_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.18861e-07_rb,0.23397e-06_rb,0.30715e-06_rb,0.31382e-06_rb,0.25665e-06_rb, &\n        & 0.18246e-06_rb,0.10017e-06_rb,0.32454e-07_rb,0.32266e-04_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.39751e-08_rb,0.10094e-06_rb,0.20247e-06_rb,0.30028e-06_rb,0.39102e-06_rb, &\n        & 0.48711e-06_rb,0.59106e-06_rb,0.72709e-06_rb,0.20885e-06_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.43080e-08_rb,0.10546e-06_rb,0.20982e-06_rb,0.31135e-06_rb,0.40303e-06_rb, &\n        & 0.49632e-06_rb,0.59855e-06_rb,0.74477e-06_rb,0.21012e-06_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.42986e-08_rb,0.15269e-06_rb,0.29890e-06_rb,0.43493e-06_rb,0.56429e-06_rb, &\n        & 0.69336e-06_rb,0.83181e-06_rb,0.10423e-05_rb,0.36557e-06_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.43554e-08_rb,0.11271e-06_rb,0.22069e-06_rb,0.32651e-06_rb,0.42391e-06_rb, &\n        & 0.51393e-06_rb,0.61294e-06_rb,0.75229e-06_rb,0.20945e-06_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.45047e-08_rb,0.11576e-06_rb,0.22657e-06_rb,0.33173e-06_rb,0.43142e-06_rb, &\n        & 0.52151e-06_rb,0.61871e-06_rb,0.74980e-06_rb,0.20891e-06_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.46065e-08_rb,0.81519e-07_rb,0.15960e-06_rb,0.23610e-06_rb,0.31656e-06_rb, &\n        & 0.39839e-06_rb,0.48591e-06_rb,0.60182e-06_rb,0.18230e-06_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.46837e-08_rb,0.82106e-07_rb,0.16429e-06_rb,0.24471e-06_rb,0.32626e-06_rb, &\n        & 0.40531e-06_rb,0.49330e-06_rb,0.61810e-06_rb,0.18355e-06_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.50163e-08_rb,0.12328e-06_rb,0.23602e-06_rb,0.35332e-06_rb,0.46387e-06_rb, &\n        & 0.57515e-06_rb,0.69445e-06_rb,0.88167e-06_rb,0.30546e-06_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.49809e-08_rb,0.12454e-06_rb,0.23839e-06_rb,0.35429e-06_rb,0.46515e-06_rb, &\n        & 0.57491e-06_rb,0.69031e-06_rb,0.86630e-06_rb,0.29807e-06_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.51988e-08_rb,0.91291e-07_rb,0.17869e-06_rb,0.26485e-06_rb,0.34907e-06_rb, &\n        & 0.42509e-06_rb,0.50894e-06_rb,0.62361e-06_rb,0.18234e-06_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.51916e-08_rb,0.88867e-07_rb,0.12220e-06_rb,0.18411e-06_rb,0.24720e-06_rb, &\n        & 0.32303e-06_rb,0.39526e-06_rb,0.49595e-06_rb,0.27125e-06_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.56319e-08_rb,0.87189e-07_rb,0.12678e-06_rb,0.19176e-06_rb,0.25624e-06_rb, &\n        & 0.32740e-06_rb,0.40564e-06_rb,0.50601e-06_rb,0.28010e-06_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.59026e-08_rb,0.86017e-07_rb,0.13043e-06_rb,0.19649e-06_rb,0.26497e-06_rb, &\n        & 0.33305e-06_rb,0.40679e-06_rb,0.51963e-06_rb,0.28660e-06_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.59909e-08_rb,0.10759e-06_rb,0.18790e-06_rb,0.28104e-06_rb,0.37702e-06_rb, &\n        & 0.47222e-06_rb,0.57322e-06_rb,0.72906e-06_rb,0.37657e-06_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.64422e-08_rb,0.89472e-07_rb,0.13687e-06_rb,0.20453e-06_rb,0.27802e-06_rb, &\n        & 0.34266e-06_rb,0.41565e-06_rb,0.51746e-06_rb,0.29675e-06_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.62298e-08_rb,0.99509e-07_rb,0.10306e-06_rb,0.14232e-06_rb,0.19390e-06_rb, &\n        & 0.25435e-06_rb,0.31764e-06_rb,0.40578e-06_rb,0.49031e-06_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.68419e-08_rb,0.10415e-06_rb,0.10349e-06_rb,0.14672e-06_rb,0.19860e-06_rb, &\n        & 0.26012e-06_rb,0.32720e-06_rb,0.41327e-06_rb,0.51522e-06_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.71418e-08_rb,0.10626e-06_rb,0.10522e-06_rb,0.15175e-06_rb,0.20471e-06_rb, &\n        & 0.26435e-06_rb,0.33148e-06_rb,0.42294e-06_rb,0.53456e-06_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.72470e-08_rb,0.10891e-06_rb,0.10648e-06_rb,0.15457e-06_rb,0.21007e-06_rb, &\n        & 0.26937e-06_rb,0.33376e-06_rb,0.42939e-06_rb,0.55207e-06_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.77585e-08_rb,0.12954e-06_rb,0.14999e-06_rb,0.22224e-06_rb,0.29994e-06_rb, &\n        & 0.38053e-06_rb,0.47027e-06_rb,0.60032e-06_rb,0.76592e-06_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.68852e-08_rb,0.11288e-06_rb,0.11969e-06_rb,0.11689e-06_rb,0.14994e-06_rb, &\n        & 0.19637e-06_rb,0.25309e-06_rb,0.33018e-06_rb,0.84551e-06_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.75119e-08_rb,0.11838e-06_rb,0.12255e-06_rb,0.11926e-06_rb,0.15341e-06_rb, &\n        & 0.20169e-06_rb,0.26231e-06_rb,0.33745e-06_rb,0.85714e-06_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.84416e-08_rb,0.12128e-06_rb,0.12324e-06_rb,0.12015e-06_rb,0.15812e-06_rb, &\n        & 0.20463e-06_rb,0.26808e-06_rb,0.34461e-06_rb,0.86734e-06_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.92293e-08_rb,0.12493e-06_rb,0.12330e-06_rb,0.12093e-06_rb,0.16146e-06_rb, &\n        & 0.20899e-06_rb,0.26904e-06_rb,0.35101e-06_rb,0.88204e-06_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.10279e-07_rb,0.14631e-06_rb,0.14078e-06_rb,0.17511e-06_rb,0.23546e-06_rb, &\n        & 0.30442e-06_rb,0.38374e-06_rb,0.50000e-06_rb,0.10431e-05_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.51921e-08_rb,0.14437e-06_rb,0.12917e-06_rb,0.11673e-06_rb,0.12444e-06_rb, &\n        & 0.14966e-06_rb,0.19338e-06_rb,0.26674e-06_rb,0.16987e-05_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.69052e-08_rb,0.14822e-06_rb,0.13564e-06_rb,0.12080e-06_rb,0.12884e-06_rb, &\n        & 0.15616e-06_rb,0.20083e-06_rb,0.27373e-06_rb,0.17147e-05_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.93932e-08_rb,0.15309e-06_rb,0.13785e-06_rb,0.12361e-06_rb,0.12904e-06_rb, &\n        & 0.16004e-06_rb,0.20790e-06_rb,0.27928e-06_rb,0.17384e-05_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.10364e-07_rb,0.15577e-06_rb,0.14281e-06_rb,0.12445e-06_rb,0.13032e-06_rb, &\n        & 0.16178e-06_rb,0.21225e-06_rb,0.28499e-06_rb,0.17733e-05_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.10950e-07_rb,0.15768e-06_rb,0.14728e-06_rb,0.12674e-06_rb,0.12961e-06_rb, &\n        & 0.16455e-06_rb,0.21080e-06_rb,0.28744e-06_rb,0.17869e-05_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.51527e-08_rb,0.13331e-06_rb,0.15220e-06_rb,0.13781e-06_rb,0.11791e-06_rb, &\n        & 0.12291e-06_rb,0.14839e-06_rb,0.21430e-06_rb,0.45802e-05_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.52409e-08_rb,0.14109e-06_rb,0.15809e-06_rb,0.14393e-06_rb,0.12362e-06_rb, &\n        & 0.12831e-06_rb,0.15572e-06_rb,0.22059e-06_rb,0.46088e-05_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.66901e-08_rb,0.14833e-06_rb,0.16524e-06_rb,0.14893e-06_rb,0.12670e-06_rb, &\n        & 0.13152e-06_rb,0.16110e-06_rb,0.22404e-06_rb,0.46200e-05_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.90836e-08_rb,0.15267e-06_rb,0.17113e-06_rb,0.15541e-06_rb,0.12966e-06_rb, &\n        & 0.13240e-06_rb,0.16410e-06_rb,0.22868e-06_rb,0.45999e-05_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.11721e-07_rb,0.15605e-06_rb,0.17580e-06_rb,0.16064e-06_rb,0.13194e-06_rb, &\n        & 0.13127e-06_rb,0.16676e-06_rb,0.23245e-06_rb,0.46103e-05_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.53770e-08_rb,0.12906e-06_rb,0.19117e-06_rb,0.16928e-06_rb,0.14454e-06_rb, &\n        & 0.11318e-06_rb,0.12091e-06_rb,0.16771e-06_rb,0.10838e-04_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.71217e-08_rb,0.13171e-06_rb,0.20115e-06_rb,0.17525e-06_rb,0.15189e-06_rb, &\n        & 0.11980e-06_rb,0.12589e-06_rb,0.17247e-06_rb,0.10844e-04_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.76051e-08_rb,0.13463e-06_rb,0.20837e-06_rb,0.18092e-06_rb,0.15831e-06_rb, &\n        & 0.12491e-06_rb,0.12782e-06_rb,0.17568e-06_rb,0.10855e-04_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.87276e-08_rb,0.14002e-06_rb,0.21488e-06_rb,0.18616e-06_rb,0.16272e-06_rb, &\n        & 0.12991e-06_rb,0.13139e-06_rb,0.17775e-06_rb,0.10873e-04_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.98102e-08_rb,0.14390e-06_rb,0.21715e-06_rb,0.19383e-06_rb,0.16843e-06_rb, &\n        & 0.13102e-06_rb,0.13320e-06_rb,0.18001e-06_rb,0.10883e-04_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.78846e-08_rb,0.14921e-06_rb,0.16266e-06_rb,0.21810e-06_rb,0.17257e-06_rb, &\n        & 0.13914e-06_rb,0.10621e-06_rb,0.13009e-06_rb,0.22193e-04_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.87670e-08_rb,0.15667e-06_rb,0.17179e-06_rb,0.22870e-06_rb,0.18453e-06_rb, &\n        & 0.14806e-06_rb,0.11198e-06_rb,0.13228e-06_rb,0.22470e-04_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.94042e-08_rb,0.16331e-06_rb,0.17929e-06_rb,0.23732e-06_rb,0.19309e-06_rb, &\n        & 0.15669e-06_rb,0.11769e-06_rb,0.13462e-06_rb,0.22759e-04_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.10052e-07_rb,0.16738e-06_rb,0.18654e-06_rb,0.24428e-06_rb,0.19714e-06_rb, &\n        & 0.16469e-06_rb,0.12194e-06_rb,0.13694e-06_rb,0.23037e-04_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.99609e-08_rb,0.16974e-06_rb,0.19096e-06_rb,0.25212e-06_rb,0.20604e-06_rb, &\n        & 0.17005e-06_rb,0.12529e-06_rb,0.13965e-06_rb,0.23331e-04_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.10600e-07_rb,0.19194e-06_rb,0.19694e-06_rb,0.19228e-06_rb,0.23306e-06_rb, &\n        & 0.18017e-06_rb,0.13563e-06_rb,0.11106e-06_rb,0.57833e-04_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.11513e-07_rb,0.19670e-06_rb,0.20600e-06_rb,0.20153e-06_rb,0.24712e-06_rb, &\n        & 0.19420e-06_rb,0.14374e-06_rb,0.11223e-06_rb,0.59252e-04_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.12267e-07_rb,0.20052e-06_rb,0.21125e-06_rb,0.21502e-06_rb,0.25879e-06_rb, &\n        & 0.20809e-06_rb,0.15257e-06_rb,0.11412e-06_rb,0.60474e-04_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.11377e-07_rb,0.20485e-06_rb,0.21479e-06_rb,0.22527e-06_rb,0.26884e-06_rb, &\n        & 0.21723e-06_rb,0.15872e-06_rb,0.11733e-06_rb,0.61380e-04_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.12141e-07_rb,0.20611e-06_rb,0.22439e-06_rb,0.22986e-06_rb,0.27411e-06_rb, &\n        & 0.22402e-06_rb,0.16342e-06_rb,0.11916e-06_rb,0.62353e-04_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.12251e-07_rb,0.29022e-06_rb,0.24496e-06_rb,0.24059e-06_rb,0.21631e-06_rb, &\n        & 0.23923e-06_rb,0.16597e-06_rb,0.10842e-06_rb,0.80074e-04_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.12224e-07_rb,0.29680e-06_rb,0.25368e-06_rb,0.24691e-06_rb,0.22294e-06_rb, &\n        & 0.24912e-06_rb,0.17747e-06_rb,0.10969e-06_rb,0.81125e-04_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.14264e-07_rb,0.29886e-06_rb,0.26040e-06_rb,0.25256e-06_rb,0.23184e-06_rb, &\n        & 0.25957e-06_rb,0.18845e-06_rb,0.11123e-06_rb,0.82960e-04_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.16608e-07_rb,0.30056e-06_rb,0.26198e-06_rb,0.25724e-06_rb,0.23897e-06_rb, &\n        & 0.26977e-06_rb,0.19716e-06_rb,0.11521e-06_rb,0.84911e-04_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.18982e-07_rb,0.30200e-06_rb,0.26559e-06_rb,0.26090e-06_rb,0.24427e-06_rb, &\n        & 0.27763e-06_rb,0.20825e-06_rb,0.11858e-06_rb,0.86586e-04_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.16186e-07_rb,0.36864e-06_rb,0.27735e-06_rb,0.24475e-06_rb,0.23659e-06_rb, &\n        & 0.20178e-06_rb,0.20651e-06_rb,0.11504e-06_rb,0.90323e-04_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.16900e-07_rb,0.36903e-06_rb,0.27865e-06_rb,0.25015e-06_rb,0.24279e-06_rb, &\n        & 0.21379e-06_rb,0.22149e-06_rb,0.12739e-06_rb,0.92788e-04_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.18900e-07_rb,0.36546e-06_rb,0.28369e-06_rb,0.25919e-06_rb,0.24650e-06_rb, &\n        & 0.22349e-06_rb,0.23741e-06_rb,0.13455e-06_rb,0.94381e-04_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.24666e-07_rb,0.36289e-06_rb,0.28992e-06_rb,0.26755e-06_rb,0.25261e-06_rb, &\n        & 0.23012e-06_rb,0.24862e-06_rb,0.14012e-06_rb,0.95689e-04_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.28047e-07_rb,0.36144e-06_rb,0.29439e-06_rb,0.27280e-06_rb,0.25910e-06_rb, &\n        & 0.23527e-06_rb,0.25804e-06_rb,0.14441e-06_rb,0.97273e-04_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.27099e-07_rb,0.42452e-06_rb,0.36469e-06_rb,0.28012e-06_rb,0.24206e-06_rb, &\n        & 0.21452e-06_rb,0.19737e-06_rb,0.12552e-06_rb,0.93221e-04_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.30641e-07_rb,0.42348e-06_rb,0.36821e-06_rb,0.29049e-06_rb,0.25191e-06_rb, &\n        & 0.22447e-06_rb,0.20459e-06_rb,0.13174e-06_rb,0.95326e-04_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.31538e-07_rb,0.42218e-06_rb,0.36978e-06_rb,0.29801e-06_rb,0.26042e-06_rb, &\n        & 0.23413e-06_rb,0.21354e-06_rb,0.13999e-06_rb,0.97244e-04_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.33087e-07_rb,0.42233e-06_rb,0.36980e-06_rb,0.30223e-06_rb,0.26697e-06_rb, &\n        & 0.24077e-06_rb,0.22289e-06_rb,0.14849e-06_rb,0.99282e-04_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.35771e-07_rb,0.42124e-06_rb,0.36949e-06_rb,0.30814e-06_rb,0.27423e-06_rb, &\n        & 0.24510e-06_rb,0.22998e-06_rb,0.15431e-06_rb,0.10189e-03_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.60599e-08_rb,0.49839e-06_rb,0.90796e-06_rb,0.12825e-05_rb,0.16387e-05_rb, &\n        & 0.20000e-05_rb,0.24097e-05_rb,0.30198e-05_rb,0.14012e-05_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.57361e-08_rb,0.51373e-06_rb,0.93344e-06_rb,0.13150e-05_rb,0.16776e-05_rb, &\n        & 0.20412e-05_rb,0.24476e-05_rb,0.30155e-05_rb,0.14079e-05_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.61895e-08_rb,0.64074e-06_rb,0.11706e-05_rb,0.16523e-05_rb,0.21138e-05_rb, &\n        & 0.25765e-05_rb,0.30714e-05_rb,0.37148e-05_rb,0.20046e-05_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.63590e-08_rb,0.53918e-06_rb,0.97233e-06_rb,0.13614e-05_rb,0.17274e-05_rb, &\n        & 0.21018e-05_rb,0.24992e-05_rb,0.30391e-05_rb,0.14106e-05_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.66907e-08_rb,0.54769e-06_rb,0.98459e-06_rb,0.13756e-05_rb,0.17428e-05_rb, &\n        & 0.21216e-05_rb,0.25190e-05_rb,0.30528e-05_rb,0.14057e-05_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.63247e-08_rb,0.40976e-06_rb,0.75743e-06_rb,0.10729e-05_rb,0.13776e-05_rb, &\n        & 0.16847e-05_rb,0.20386e-05_rb,0.25923e-05_rb,0.11016e-05_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.71971e-08_rb,0.42277e-06_rb,0.77866e-06_rb,0.11006e-05_rb,0.14075e-05_rb, &\n        & 0.17208e-05_rb,0.20689e-05_rb,0.25842e-05_rb,0.11093e-05_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.68862e-08_rb,0.54111e-06_rb,0.99924e-06_rb,0.14135e-05_rb,0.18137e-05_rb, &\n        & 0.22190e-05_rb,0.26613e-05_rb,0.32636e-05_rb,0.16377e-05_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.74570e-08_rb,0.54374e-06_rb,0.10016e-05_rb,0.14142e-05_rb,0.18118e-05_rb, &\n        & 0.22093e-05_rb,0.26451e-05_rb,0.32306e-05_rb,0.16062e-05_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.76975e-08_rb,0.44890e-06_rb,0.82016e-06_rb,0.11488e-05_rb,0.14591e-05_rb, &\n        & 0.17814e-05_rb,0.21241e-05_rb,0.26089e-05_rb,0.11145e-05_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.83656e-08_rb,0.31311e-06_rb,0.61949e-06_rb,0.88176e-06_rb,0.11379e-05_rb, &\n        & 0.13977e-05_rb,0.17043e-05_rb,0.22078e-05_rb,0.73836e-06_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.85171e-08_rb,0.32573e-06_rb,0.63573e-06_rb,0.90517e-06_rb,0.11641e-05_rb, &\n        & 0.14286e-05_rb,0.17247e-05_rb,0.21938e-05_rb,0.74285e-06_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.78702e-08_rb,0.33673e-06_rb,0.64948e-06_rb,0.92347e-06_rb,0.11844e-05_rb, &\n        & 0.14525e-05_rb,0.17473e-05_rb,0.21823e-05_rb,0.74417e-06_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.88135e-08_rb,0.44484e-06_rb,0.84006e-06_rb,0.11924e-05_rb,0.15326e-05_rb, &\n        & 0.18766e-05_rb,0.22592e-05_rb,0.27980e-05_rb,0.11629e-05_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.83594e-08_rb,0.34852e-06_rb,0.67171e-06_rb,0.94786e-06_rb,0.12080e-05_rb, &\n        & 0.14818e-05_rb,0.17721e-05_rb,0.22017e-05_rb,0.74162e-06_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.82233e-08_rb,0.22714e-06_rb,0.49574e-06_rb,0.71618e-06_rb,0.92897e-06_rb, &\n        & 0.11522e-05_rb,0.14150e-05_rb,0.18749e-05_rb,0.10829e-05_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.90906e-08_rb,0.23281e-06_rb,0.51082e-06_rb,0.73615e-06_rb,0.95322e-06_rb, &\n        & 0.11749e-05_rb,0.14287e-05_rb,0.18456e-05_rb,0.10964e-05_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.10403e-07_rb,0.23873e-06_rb,0.52083e-06_rb,0.75142e-06_rb,0.97057e-06_rb, &\n        & 0.11959e-05_rb,0.14456e-05_rb,0.18299e-05_rb,0.11024e-05_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.11681e-07_rb,0.24287e-06_rb,0.52982e-06_rb,0.76518e-06_rb,0.98418e-06_rb, &\n        & 0.12105e-05_rb,0.14593e-05_rb,0.18314e-05_rb,0.11002e-05_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.11781e-07_rb,0.32919e-06_rb,0.69041e-06_rb,0.99008e-06_rb,0.12781e-05_rb, &\n        & 0.15684e-05_rb,0.18900e-05_rb,0.23626e-05_rb,0.11507e-05_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.10746e-07_rb,0.16960e-06_rb,0.36271e-06_rb,0.57393e-06_rb,0.75088e-06_rb, &\n        & 0.94078e-06_rb,0.11700e-05_rb,0.15610e-05_rb,0.23060e-05_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.12322e-07_rb,0.17145e-06_rb,0.37466e-06_rb,0.58975e-06_rb,0.77156e-06_rb, &\n        & 0.96051e-06_rb,0.11773e-05_rb,0.15431e-05_rb,0.23550e-05_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.12362e-07_rb,0.17491e-06_rb,0.38517e-06_rb,0.60273e-06_rb,0.78779e-06_rb, &\n        & 0.97831e-06_rb,0.11895e-05_rb,0.15264e-05_rb,0.23946e-05_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.11932e-07_rb,0.17603e-06_rb,0.39310e-06_rb,0.61276e-06_rb,0.80198e-06_rb, &\n        & 0.99168e-06_rb,0.12014e-05_rb,0.15209e-05_rb,0.24122e-05_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.12827e-07_rb,0.23797e-06_rb,0.54915e-06_rb,0.81314e-06_rb,0.10605e-05_rb, &\n        & 0.13079e-05_rb,0.15848e-05_rb,0.19982e-05_rb,0.26265e-05_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.16887e-07_rb,0.16918e-06_rb,0.26182e-06_rb,0.43955e-06_rb,0.59876e-06_rb, &\n        & 0.76220e-06_rb,0.96205e-06_rb,0.12977e-05_rb,0.30196e-05_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.16463e-07_rb,0.17256e-06_rb,0.26723e-06_rb,0.45266e-06_rb,0.61330e-06_rb, &\n        & 0.77949e-06_rb,0.96881e-06_rb,0.12938e-05_rb,0.31027e-05_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.14297e-07_rb,0.17174e-06_rb,0.27626e-06_rb,0.46141e-06_rb,0.62873e-06_rb, &\n        & 0.79335e-06_rb,0.97523e-06_rb,0.12716e-05_rb,0.31487e-05_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.15984e-07_rb,0.17093e-06_rb,0.27951e-06_rb,0.46972e-06_rb,0.64062e-06_rb, &\n        & 0.80616e-06_rb,0.98183e-06_rb,0.12602e-05_rb,0.31591e-05_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.17832e-07_rb,0.17197e-06_rb,0.28124e-06_rb,0.47610e-06_rb,0.64900e-06_rb, &\n        & 0.81537e-06_rb,0.99403e-06_rb,0.12613e-05_rb,0.32001e-05_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.19543e-07_rb,0.20424e-06_rb,0.20827e-06_rb,0.30613e-06_rb,0.46038e-06_rb, &\n        & 0.61052e-06_rb,0.78796e-06_rb,0.10769e-05_rb,0.53495e-05_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.21943e-07_rb,0.20486e-06_rb,0.21292e-06_rb,0.31650e-06_rb,0.47369e-06_rb, &\n        & 0.62546e-06_rb,0.78997e-06_rb,0.10696e-05_rb,0.53612e-05_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.23096e-07_rb,0.20519e-06_rb,0.21260e-06_rb,0.32419e-06_rb,0.48522e-06_rb, &\n        & 0.63494e-06_rb,0.79556e-06_rb,0.10562e-05_rb,0.54125e-05_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.23811e-07_rb,0.20761e-06_rb,0.21334e-06_rb,0.32752e-06_rb,0.49467e-06_rb, &\n        & 0.64456e-06_rb,0.80411e-06_rb,0.10435e-05_rb,0.54920e-05_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.23502e-07_rb,0.20918e-06_rb,0.21430e-06_rb,0.32878e-06_rb,0.50037e-06_rb, &\n        & 0.65413e-06_rb,0.80879e-06_rb,0.10409e-05_rb,0.55076e-05_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.28818e-07_rb,0.26386e-06_rb,0.23322e-06_rb,0.23394e-06_rb,0.31766e-06_rb, &\n        & 0.47372e-06_rb,0.64268e-06_rb,0.89272e-06_rb,0.10691e-04_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.30094e-07_rb,0.27235e-06_rb,0.23524e-06_rb,0.24245e-06_rb,0.32636e-06_rb, &\n        & 0.48411e-06_rb,0.63773e-06_rb,0.88040e-06_rb,0.10770e-04_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.32474e-07_rb,0.27799e-06_rb,0.23717e-06_rb,0.24789e-06_rb,0.33554e-06_rb, &\n        & 0.49304e-06_rb,0.64255e-06_rb,0.87788e-06_rb,0.10799e-04_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.33631e-07_rb,0.28020e-06_rb,0.23819e-06_rb,0.25000e-06_rb,0.34187e-06_rb, &\n        & 0.49874e-06_rb,0.64803e-06_rb,0.86373e-06_rb,0.10824e-04_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.34597e-07_rb,0.28107e-06_rb,0.24266e-06_rb,0.24933e-06_rb,0.34607e-06_rb, &\n        & 0.50692e-06_rb,0.65081e-06_rb,0.85686e-06_rb,0.10819e-04_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.37049e-07_rb,0.33070e-06_rb,0.32147e-06_rb,0.25828e-06_rb,0.24460e-06_rb, &\n        & 0.33057e-06_rb,0.51182e-06_rb,0.72970e-06_rb,0.32667e-04_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.39634e-07_rb,0.34282e-06_rb,0.32875e-06_rb,0.26785e-06_rb,0.25757e-06_rb, &\n        & 0.33579e-06_rb,0.50462e-06_rb,0.72240e-06_rb,0.32638e-04_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.42012e-07_rb,0.34998e-06_rb,0.33495e-06_rb,0.27514e-06_rb,0.26581e-06_rb, &\n        & 0.33988e-06_rb,0.50360e-06_rb,0.72105e-06_rb,0.32828e-04_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.43216e-07_rb,0.35061e-06_rb,0.33953e-06_rb,0.28140e-06_rb,0.27172e-06_rb, &\n        & 0.34266e-06_rb,0.50914e-06_rb,0.70829e-06_rb,0.32970e-04_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.43838e-07_rb,0.35447e-06_rb,0.34674e-06_rb,0.28252e-06_rb,0.27122e-06_rb, &\n        & 0.34740e-06_rb,0.51058e-06_rb,0.70194e-06_rb,0.33023e-04_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.46492e-07_rb,0.34673e-06_rb,0.43959e-06_rb,0.39620e-06_rb,0.30969e-06_rb, &\n        & 0.25359e-06_rb,0.35579e-06_rb,0.58999e-06_rb,0.75308e-04_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.51642e-07_rb,0.35814e-06_rb,0.45251e-06_rb,0.40694e-06_rb,0.31643e-06_rb, &\n        & 0.25658e-06_rb,0.34700e-06_rb,0.58340e-06_rb,0.75445e-04_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.55139e-07_rb,0.36959e-06_rb,0.46273e-06_rb,0.41592e-06_rb,0.32168e-06_rb, &\n        & 0.26320e-06_rb,0.34598e-06_rb,0.57972e-06_rb,0.75796e-04_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.58094e-07_rb,0.37731e-06_rb,0.47160e-06_rb,0.41969e-06_rb,0.32536e-06_rb, &\n        & 0.27186e-06_rb,0.34692e-06_rb,0.57173e-06_rb,0.76680e-04_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.62665e-07_rb,0.38529e-06_rb,0.47122e-06_rb,0.42322e-06_rb,0.32990e-06_rb, &\n        & 0.28125e-06_rb,0.34920e-06_rb,0.56204e-06_rb,0.77515e-04_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.71997e-07_rb,0.39039e-06_rb,0.48930e-06_rb,0.52037e-06_rb,0.44835e-06_rb, &\n        & 0.32920e-06_rb,0.25424e-06_rb,0.45719e-06_rb,0.97599e-04_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.84174e-07_rb,0.39220e-06_rb,0.49753e-06_rb,0.53466e-06_rb,0.46035e-06_rb, &\n        & 0.34028e-06_rb,0.25580e-06_rb,0.44804e-06_rb,0.98017e-04_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.88241e-07_rb,0.39809e-06_rb,0.50514e-06_rb,0.54464e-06_rb,0.47069e-06_rb, &\n        & 0.34919e-06_rb,0.25830e-06_rb,0.44783e-06_rb,0.97609e-04_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.93462e-07_rb,0.40271e-06_rb,0.51216e-06_rb,0.55531e-06_rb,0.48178e-06_rb, &\n        & 0.35530e-06_rb,0.26505e-06_rb,0.43524e-06_rb,0.97099e-04_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.96966e-07_rb,0.40660e-06_rb,0.51682e-06_rb,0.56367e-06_rb,0.48662e-06_rb, &\n        & 0.35706e-06_rb,0.26903e-06_rb,0.42986e-06_rb,0.97653e-04_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.99102e-07_rb,0.42179e-06_rb,0.46920e-06_rb,0.54974e-06_rb,0.50699e-06_rb, &\n        & 0.41543e-06_rb,0.26692e-06_rb,0.34287e-06_rb,0.10692e-03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.10220e-06_rb,0.42343e-06_rb,0.48263e-06_rb,0.56179e-06_rb,0.52088e-06_rb, &\n        & 0.42826e-06_rb,0.27416e-06_rb,0.32165e-06_rb,0.10849e-03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.10736e-06_rb,0.42994e-06_rb,0.49237e-06_rb,0.56848e-06_rb,0.53837e-06_rb, &\n        & 0.43862e-06_rb,0.28070e-06_rb,0.31402e-06_rb,0.10890e-03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.10535e-06_rb,0.42853e-06_rb,0.49830e-06_rb,0.57259e-06_rb,0.55337e-06_rb, &\n        & 0.45117e-06_rb,0.28964e-06_rb,0.30229e-06_rb,0.11005e-03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.10635e-06_rb,0.42826e-06_rb,0.50038e-06_rb,0.57688e-06_rb,0.56182e-06_rb, &\n        & 0.45862e-06_rb,0.29473e-06_rb,0.29904e-06_rb,0.11056e-03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.11521e-06_rb,0.43118e-06_rb,0.49222e-06_rb,0.52624e-06_rb,0.55771e-06_rb, &\n        & 0.47186e-06_rb,0.32691e-06_rb,0.24833e-06_rb,0.10886e-03_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.11730e-06_rb,0.43904e-06_rb,0.49350e-06_rb,0.54164e-06_rb,0.56845e-06_rb, &\n        & 0.49098e-06_rb,0.34261e-06_rb,0.23938e-06_rb,0.11077e-03_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.11952e-06_rb,0.44327e-06_rb,0.50284e-06_rb,0.55816e-06_rb,0.58198e-06_rb, &\n        & 0.50372e-06_rb,0.35861e-06_rb,0.22850e-06_rb,0.11296e-03_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.11965e-06_rb,0.44664e-06_rb,0.51058e-06_rb,0.56661e-06_rb,0.59093e-06_rb, &\n        & 0.51146e-06_rb,0.36596e-06_rb,0.22349e-06_rb,0.11560e-03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.12171e-06_rb,0.45566e-06_rb,0.52364e-06_rb,0.57439e-06_rb,0.59010e-06_rb, &\n        & 0.52011e-06_rb,0.37200e-06_rb,0.22417e-06_rb,0.11598e-03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.64393e-08_rb,0.14477e-05_rb,0.26383e-05_rb,0.37578e-05_rb,0.48497e-05_rb, &\n        & 0.58771e-05_rb,0.69748e-05_rb,0.83337e-05_rb,0.52972e-05_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.74788e-08_rb,0.14813e-05_rb,0.26820e-05_rb,0.38123e-05_rb,0.49043e-05_rb, &\n        & 0.59719e-05_rb,0.70794e-05_rb,0.84777e-05_rb,0.53686e-05_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.70698e-08_rb,0.17381e-05_rb,0.31521e-05_rb,0.44815e-05_rb,0.57370e-05_rb, &\n        & 0.69696e-05_rb,0.82426e-05_rb,0.98195e-05_rb,0.67445e-05_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.75728e-08_rb,0.15363e-05_rb,0.27544e-05_rb,0.38956e-05_rb,0.49855e-05_rb, &\n        & 0.60556e-05_rb,0.72284e-05_rb,0.86770e-05_rb,0.54442e-05_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.72646e-08_rb,0.15573e-05_rb,0.27840e-05_rb,0.39266e-05_rb,0.50091e-05_rb, &\n        & 0.60781e-05_rb,0.72327e-05_rb,0.87344e-05_rb,0.54537e-05_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.91682e-08_rb,0.12471e-05_rb,0.22727e-05_rb,0.32462e-05_rb,0.42007e-05_rb, &\n        & 0.51012e-05_rb,0.60761e-05_rb,0.73379e-05_rb,0.44448e-05_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.78841e-08_rb,0.12745e-05_rb,0.23098e-05_rb,0.32938e-05_rb,0.42384e-05_rb, &\n        & 0.51817e-05_rb,0.61658e-05_rb,0.74615e-05_rb,0.44925e-05_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.88457e-08_rb,0.15305e-05_rb,0.27824e-05_rb,0.39573e-05_rb,0.50820e-05_rb, &\n        & 0.61863e-05_rb,0.73547e-05_rb,0.88186e-05_rb,0.58192e-05_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.81699e-08_rb,0.15379e-05_rb,0.27884e-05_rb,0.39554e-05_rb,0.50640e-05_rb, &\n        & 0.61598e-05_rb,0.73260e-05_rb,0.88047e-05_rb,0.57596e-05_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.81267e-08_rb,0.13345e-05_rb,0.23941e-05_rb,0.33760e-05_rb,0.43121e-05_rb, &\n        & 0.52406e-05_rb,0.62663e-05_rb,0.76657e-05_rb,0.45393e-05_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.91717e-08_rb,0.10541e-05_rb,0.19313e-05_rb,0.27682e-05_rb,0.35915e-05_rb, &\n        & 0.43666e-05_rb,0.52222e-05_rb,0.63759e-05_rb,0.36110e-05_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.10331e-07_rb,0.10789e-05_rb,0.19645e-05_rb,0.28075e-05_rb,0.36240e-05_rb, &\n        & 0.44392e-05_rb,0.52990e-05_rb,0.64883e-05_rb,0.36530e-05_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.12324e-07_rb,0.10988e-05_rb,0.19944e-05_rb,0.28363e-05_rb,0.36532e-05_rb, &\n        & 0.44650e-05_rb,0.53622e-05_rb,0.65761e-05_rb,0.36791e-05_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.11596e-07_rb,0.13389e-05_rb,0.24365e-05_rb,0.34597e-05_rb,0.44354e-05_rb, &\n        & 0.54167e-05_rb,0.64681e-05_rb,0.78697e-05_rb,0.48568e-05_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.11476e-07_rb,0.11282e-05_rb,0.20370e-05_rb,0.28768e-05_rb,0.36785e-05_rb, &\n        & 0.44764e-05_rb,0.53828e-05_rb,0.66660e-05_rb,0.36841e-05_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.12942e-07_rb,0.87057e-06_rb,0.16185e-05_rb,0.23328e-05_rb,0.30327e-05_rb, &\n        & 0.36939e-05_rb,0.44351e-05_rb,0.54720e-05_rb,0.21271e-05_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.12911e-07_rb,0.89351e-06_rb,0.16491e-05_rb,0.23657e-05_rb,0.30660e-05_rb, &\n        & 0.37589e-05_rb,0.45049e-05_rb,0.55808e-05_rb,0.21315e-05_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.11919e-07_rb,0.91285e-06_rb,0.16762e-05_rb,0.23907e-05_rb,0.30911e-05_rb, &\n        & 0.37889e-05_rb,0.45584e-05_rb,0.56554e-05_rb,0.21302e-05_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.12644e-07_rb,0.92680e-06_rb,0.16966e-05_rb,0.24115e-05_rb,0.31023e-05_rb, &\n        & 0.37973e-05_rb,0.46002e-05_rb,0.57029e-05_rb,0.21090e-05_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.14252e-07_rb,0.11501e-05_rb,0.21042e-05_rb,0.29827e-05_rb,0.38200e-05_rb, &\n        & 0.46680e-05_rb,0.55977e-05_rb,0.69211e-05_rb,0.32123e-05_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.14457e-07_rb,0.68848e-06_rb,0.13403e-05_rb,0.19448e-05_rb,0.25364e-05_rb, &\n        & 0.30956e-05_rb,0.37236e-05_rb,0.46561e-05_rb,0.23476e-05_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.13664e-07_rb,0.70724e-06_rb,0.13666e-05_rb,0.19744e-05_rb,0.25701e-05_rb, &\n        & 0.31515e-05_rb,0.37903e-05_rb,0.47386e-05_rb,0.23292e-05_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.16363e-07_rb,0.72382e-06_rb,0.13894e-05_rb,0.19966e-05_rb,0.25908e-05_rb, &\n        & 0.31942e-05_rb,0.38380e-05_rb,0.48063e-05_rb,0.23210e-05_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.18854e-07_rb,0.73645e-06_rb,0.14075e-05_rb,0.20143e-05_rb,0.25995e-05_rb, &\n        & 0.31924e-05_rb,0.38751e-05_rb,0.48509e-05_rb,0.23084e-05_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.19502e-07_rb,0.95711e-06_rb,0.17948e-05_rb,0.25536e-05_rb,0.32756e-05_rb, &\n        & 0.40127e-05_rb,0.48356e-05_rb,0.60502e-05_rb,0.26522e-05_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.20265e-07_rb,0.45716e-06_rb,0.10840e-05_rb,0.16034e-05_rb,0.20999e-05_rb, &\n        & 0.25681e-05_rb,0.30977e-05_rb,0.39107e-05_rb,0.52450e-05_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.21598e-07_rb,0.47132e-06_rb,0.11079e-05_rb,0.16263e-05_rb,0.21396e-05_rb, &\n        & 0.26164e-05_rb,0.31577e-05_rb,0.39701e-05_rb,0.52182e-05_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.24575e-07_rb,0.48601e-06_rb,0.11257e-05_rb,0.16486e-05_rb,0.21513e-05_rb, &\n        & 0.26585e-05_rb,0.32022e-05_rb,0.40354e-05_rb,0.51968e-05_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.24397e-07_rb,0.49804e-06_rb,0.11416e-05_rb,0.16645e-05_rb,0.21605e-05_rb, &\n        & 0.26639e-05_rb,0.32353e-05_rb,0.40822e-05_rb,0.51575e-05_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.24456e-07_rb,0.50499e-06_rb,0.11522e-05_rb,0.16738e-05_rb,0.21632e-05_rb, &\n        & 0.26629e-05_rb,0.32463e-05_rb,0.41051e-05_rb,0.51085e-05_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.28039e-07_rb,0.29800e-06_rb,0.81783e-06_rb,0.13008e-05_rb,0.17226e-05_rb, &\n        & 0.21163e-05_rb,0.25578e-05_rb,0.32519e-05_rb,0.82307e-05_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.29388e-07_rb,0.30492e-06_rb,0.83771e-06_rb,0.13192e-05_rb,0.17591e-05_rb, &\n        & 0.21563e-05_rb,0.26128e-05_rb,0.33130e-05_rb,0.81908e-05_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.29556e-07_rb,0.30866e-06_rb,0.85444e-06_rb,0.13376e-05_rb,0.17722e-05_rb, &\n        & 0.21943e-05_rb,0.26541e-05_rb,0.33584e-05_rb,0.81819e-05_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.26709e-07_rb,0.30951e-06_rb,0.86739e-06_rb,0.13505e-05_rb,0.17805e-05_rb, &\n        & 0.22093e-05_rb,0.26812e-05_rb,0.34009e-05_rb,0.81017e-05_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.27877e-07_rb,0.31158e-06_rb,0.87645e-06_rb,0.13597e-05_rb,0.17817e-05_rb, &\n        & 0.22083e-05_rb,0.26996e-05_rb,0.34240e-05_rb,0.80774e-05_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.34498e-07_rb,0.30504e-06_rb,0.50025e-06_rb,0.99104e-06_rb,0.13907e-05_rb, &\n        & 0.17284e-05_rb,0.20950e-05_rb,0.26875e-05_rb,0.12492e-04_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.34468e-07_rb,0.31253e-06_rb,0.51376e-06_rb,0.10029e-05_rb,0.14233e-05_rb, &\n        & 0.17665e-05_rb,0.21486e-05_rb,0.27439e-05_rb,0.12811e-04_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.33481e-07_rb,0.31885e-06_rb,0.52532e-06_rb,0.10176e-05_rb,0.14361e-05_rb, &\n        & 0.18000e-05_rb,0.21864e-05_rb,0.27713e-05_rb,0.12979e-04_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.35023e-07_rb,0.32212e-06_rb,0.53171e-06_rb,0.10292e-05_rb,0.14414e-05_rb, &\n        & 0.18222e-05_rb,0.22113e-05_rb,0.28111e-05_rb,0.13061e-04_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.38480e-07_rb,0.32386e-06_rb,0.53818e-06_rb,0.10355e-05_rb,0.14400e-05_rb, &\n        & 0.18162e-05_rb,0.22298e-05_rb,0.28367e-05_rb,0.13100e-04_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.41152e-07_rb,0.31870e-06_rb,0.36402e-06_rb,0.61613e-06_rb,0.10619e-05_rb, &\n        & 0.13940e-05_rb,0.17098e-05_rb,0.22173e-05_rb,0.27198e-04_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.47020e-07_rb,0.31765e-06_rb,0.37312e-06_rb,0.61961e-06_rb,0.10763e-05_rb, &\n        & 0.14273e-05_rb,0.17555e-05_rb,0.22573e-05_rb,0.28218e-04_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.48171e-07_rb,0.31526e-06_rb,0.38468e-06_rb,0.62540e-06_rb,0.10803e-05_rb, &\n        & 0.14543e-05_rb,0.17919e-05_rb,0.22822e-05_rb,0.28600e-04_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.52826e-07_rb,0.32481e-06_rb,0.38733e-06_rb,0.62721e-06_rb,0.10854e-05_rb, &\n        & 0.14750e-05_rb,0.18124e-05_rb,0.23140e-05_rb,0.29051e-04_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.56456e-07_rb,0.32727e-06_rb,0.38424e-06_rb,0.63178e-06_rb,0.10853e-05_rb, &\n        & 0.14692e-05_rb,0.18309e-05_rb,0.23369e-05_rb,0.29958e-04_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.62033e-07_rb,0.45418e-06_rb,0.43247e-06_rb,0.44775e-06_rb,0.62834e-06_rb, &\n        & 0.10534e-05_rb,0.13865e-05_rb,0.18301e-05_rb,0.47779e-04_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.66259e-07_rb,0.45321e-06_rb,0.43983e-06_rb,0.45223e-06_rb,0.63440e-06_rb, &\n        & 0.10746e-05_rb,0.14253e-05_rb,0.18534e-05_rb,0.48468e-04_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.78966e-07_rb,0.45246e-06_rb,0.44780e-06_rb,0.45868e-06_rb,0.63026e-06_rb, &\n        & 0.10842e-05_rb,0.14519e-05_rb,0.18794e-05_rb,0.49251e-04_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.87881e-07_rb,0.44642e-06_rb,0.45426e-06_rb,0.46583e-06_rb,0.63116e-06_rb, &\n        & 0.10925e-05_rb,0.14710e-05_rb,0.18965e-05_rb,0.49742e-04_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.92572e-07_rb,0.44310e-06_rb,0.45326e-06_rb,0.47005e-06_rb,0.63094e-06_rb, &\n        & 0.10763e-05_rb,0.14843e-05_rb,0.19214e-05_rb,0.50457e-04_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.10522e-06_rb,0.58600e-06_rb,0.57473e-06_rb,0.52150e-06_rb,0.51202e-06_rb, &\n        & 0.62383e-06_rb,0.10987e-05_rb,0.15032e-05_rb,0.50557e-04_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.98332e-07_rb,0.58669e-06_rb,0.57910e-06_rb,0.52997e-06_rb,0.52591e-06_rb, &\n        & 0.62992e-06_rb,0.11144e-05_rb,0.15271e-05_rb,0.52915e-04_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.10383e-06_rb,0.58976e-06_rb,0.58650e-06_rb,0.53573e-06_rb,0.53394e-06_rb, &\n        & 0.63743e-06_rb,0.11251e-05_rb,0.15415e-05_rb,0.55206e-04_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.10626e-06_rb,0.58622e-06_rb,0.58747e-06_rb,0.53868e-06_rb,0.53891e-06_rb, &\n        & 0.62645e-06_rb,0.11296e-05_rb,0.15628e-05_rb,0.58020e-04_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.10795e-06_rb,0.57800e-06_rb,0.58664e-06_rb,0.53883e-06_rb,0.54784e-06_rb, &\n        & 0.62145e-06_rb,0.11279e-05_rb,0.15782e-05_rb,0.60369e-04_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.11905e-06_rb,0.60759e-06_rb,0.68611e-06_rb,0.59318e-06_rb,0.53805e-06_rb, &\n        & 0.44962e-06_rb,0.74828e-06_rb,0.12279e-05_rb,0.57098e-04_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.12660e-06_rb,0.61695e-06_rb,0.68094e-06_rb,0.60079e-06_rb,0.55064e-06_rb, &\n        & 0.44953e-06_rb,0.74858e-06_rb,0.12489e-05_rb,0.55969e-04_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.12824e-06_rb,0.61561e-06_rb,0.67586e-06_rb,0.61662e-06_rb,0.55533e-06_rb, &\n        & 0.46796e-06_rb,0.74406e-06_rb,0.12615e-05_rb,0.57249e-04_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.12834e-06_rb,0.62554e-06_rb,0.67923e-06_rb,0.62343e-06_rb,0.55964e-06_rb, &\n        & 0.48091e-06_rb,0.73622e-06_rb,0.12795e-05_rb,0.58462e-04_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.13022e-06_rb,0.63206e-06_rb,0.68726e-06_rb,0.62663e-06_rb,0.56231e-06_rb, &\n        & 0.48008e-06_rb,0.72942e-06_rb,0.12885e-05_rb,0.57642e-04_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.15325e-06_rb,0.60909e-06_rb,0.76952e-06_rb,0.71232e-06_rb,0.57983e-06_rb, &\n        & 0.50489e-06_rb,0.48627e-06_rb,0.99183e-06_rb,0.58778e-04_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.15519e-06_rb,0.62152e-06_rb,0.78639e-06_rb,0.71888e-06_rb,0.59866e-06_rb, &\n        & 0.50930e-06_rb,0.48247e-06_rb,0.10069e-05_rb,0.57959e-04_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.17242e-06_rb,0.64099e-06_rb,0.78686e-06_rb,0.71502e-06_rb,0.60678e-06_rb, &\n        & 0.51633e-06_rb,0.47220e-06_rb,0.10180e-05_rb,0.56844e-04_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.18585e-06_rb,0.65002e-06_rb,0.78368e-06_rb,0.71421e-06_rb,0.61538e-06_rb, &\n        & 0.52650e-06_rb,0.46857e-06_rb,0.10263e-05_rb,0.55757e-04_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.19235e-06_rb,0.64166e-06_rb,0.76203e-06_rb,0.70622e-06_rb,0.61837e-06_rb, &\n        & 0.53042e-06_rb,0.45529e-06_rb,0.10275e-05_rb,0.55475e-04_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.95617e-08_rb,0.36774e-05_rb,0.65849e-05_rb,0.92221e-05_rb,0.11700e-04_rb, &\n        & 0.14161e-04_rb,0.16732e-04_rb,0.20350e-04_rb,0.14554e-04_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.93327e-08_rb,0.37537e-05_rb,0.66916e-05_rb,0.93495e-05_rb,0.11842e-04_rb, &\n        & 0.14289e-04_rb,0.16848e-04_rb,0.20318e-04_rb,0.14747e-04_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.98298e-08_rb,0.41944e-05_rb,0.75022e-05_rb,0.10503e-04_rb,0.13381e-04_rb, &\n        & 0.16104e-04_rb,0.19004e-04_rb,0.22601e-04_rb,0.17337e-04_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.92318e-08_rb,0.38872e-05_rb,0.68816e-05_rb,0.95784e-05_rb,0.12112e-04_rb, &\n        & 0.14510e-04_rb,0.17052e-04_rb,0.20522e-04_rb,0.14967e-04_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.98053e-08_rb,0.39438e-05_rb,0.69574e-05_rb,0.96665e-05_rb,0.12218e-04_rb, &\n        & 0.14607e-04_rb,0.17135e-04_rb,0.20557e-04_rb,0.15005e-04_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.99669e-08_rb,0.32456e-05_rb,0.58216e-05_rb,0.81575e-05_rb,0.10349e-04_rb, &\n        & 0.12573e-04_rb,0.14901e-04_rb,0.18163e-04_rb,0.12615e-04_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.12231e-07_rb,0.33138e-05_rb,0.59221e-05_rb,0.82752e-05_rb,0.10501e-04_rb, &\n        & 0.12666e-04_rb,0.15004e-04_rb,0.18147e-04_rb,0.12797e-04_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.10745e-07_rb,0.37581e-05_rb,0.67327e-05_rb,0.94426e-05_rb,0.12044e-04_rb, &\n        & 0.14533e-04_rb,0.17181e-04_rb,0.20503e-04_rb,0.15464e-04_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.11723e-07_rb,0.37897e-05_rb,0.67581e-05_rb,0.94584e-05_rb,0.12035e-04_rb, &\n        & 0.14508e-04_rb,0.17115e-04_rb,0.20450e-04_rb,0.15378e-04_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.10775e-07_rb,0.34864e-05_rb,0.61478e-05_rb,0.85479e-05_rb,0.10823e-04_rb, &\n        & 0.12985e-04_rb,0.15273e-04_rb,0.18381e-04_rb,0.12972e-04_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.12159e-07_rb,0.28311e-05_rb,0.50923e-05_rb,0.71433e-05_rb,0.90735e-05_rb, &\n        & 0.11042e-04_rb,0.13160e-04_rb,0.16141e-04_rb,0.10790e-04_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.11403e-07_rb,0.28950e-05_rb,0.51829e-05_rb,0.72481e-05_rb,0.92149e-05_rb, &\n        & 0.11135e-04_rb,0.13267e-04_rb,0.16084e-04_rb,0.10912e-04_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.12436e-07_rb,0.29531e-05_rb,0.52642e-05_rb,0.73461e-05_rb,0.93337e-05_rb, &\n        & 0.11250e-04_rb,0.13358e-04_rb,0.16208e-04_rb,0.10995e-04_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.14856e-07_rb,0.33723e-05_rb,0.60342e-05_rb,0.84579e-05_rb,0.10776e-04_rb, &\n        & 0.13025e-04_rb,0.15434e-04_rb,0.18466e-04_rb,0.13550e-04_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.16537e-07_rb,0.30506e-05_rb,0.53821e-05_rb,0.74897e-05_rb,0.94861e-05_rb, &\n        & 0.11421e-04_rb,0.13503e-04_rb,0.16308e-04_rb,0.11045e-04_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.13114e-07_rb,0.24467e-05_rb,0.44159e-05_rb,0.61941e-05_rb,0.78845e-05_rb, &\n        & 0.96031e-05_rb,0.11513e-04_rb,0.14234e-04_rb,0.89642e-05_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.15028e-07_rb,0.25040e-05_rb,0.44954e-05_rb,0.62931e-05_rb,0.80050e-05_rb, &\n        & 0.97056e-05_rb,0.11618e-04_rb,0.14175e-04_rb,0.90802e-05_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.18213e-07_rb,0.25556e-05_rb,0.45678e-05_rb,0.63789e-05_rb,0.81071e-05_rb, &\n        & 0.98077e-05_rb,0.11694e-04_rb,0.14301e-04_rb,0.91538e-05_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.19097e-07_rb,0.26037e-05_rb,0.46288e-05_rb,0.64476e-05_rb,0.81897e-05_rb, &\n        & 0.98941e-05_rb,0.11740e-04_rb,0.14344e-04_rb,0.91968e-05_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.18014e-07_rb,0.29993e-05_rb,0.53622e-05_rb,0.75209e-05_rb,0.95686e-05_rb, &\n        & 0.11571e-04_rb,0.13783e-04_rb,0.16522e-04_rb,0.11644e-04_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.21237e-07_rb,0.20921e-05_rb,0.37961e-05_rb,0.53264e-05_rb,0.67905e-05_rb, &\n        & 0.82846e-05_rb,0.99803e-05_rb,0.12512e-04_rb,0.44075e-05_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.23885e-07_rb,0.21444e-05_rb,0.38676e-05_rb,0.54146e-05_rb,0.68931e-05_rb, &\n        & 0.83832e-05_rb,0.10077e-04_rb,0.12417e-04_rb,0.44982e-05_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.20851e-07_rb,0.21906e-05_rb,0.39301e-05_rb,0.54900e-05_rb,0.69833e-05_rb, &\n        & 0.84513e-05_rb,0.10145e-04_rb,0.12513e-04_rb,0.45299e-05_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.22487e-07_rb,0.22322e-05_rb,0.39843e-05_rb,0.55506e-05_rb,0.70502e-05_rb, &\n        & 0.85357e-05_rb,0.10189e-04_rb,0.12546e-04_rb,0.45220e-05_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.23015e-07_rb,0.26442e-05_rb,0.47363e-05_rb,0.66520e-05_rb,0.84676e-05_rb, &\n        & 0.10272e-04_rb,0.12268e-04_rb,0.14801e-04_rb,0.72945e-05_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.22693e-07_rb,0.17592e-05_rb,0.32289e-05_rb,0.45327e-05_rb,0.57876e-05_rb, &\n        & 0.70822e-05_rb,0.85643e-05_rb,0.10966e-04_rb,0.53375e-05_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.22407e-07_rb,0.18081e-05_rb,0.32912e-05_rb,0.46136e-05_rb,0.58716e-05_rb, &\n        & 0.71710e-05_rb,0.86530e-05_rb,0.10805e-04_rb,0.53845e-05_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.22705e-07_rb,0.18504e-05_rb,0.33475e-05_rb,0.46786e-05_rb,0.59585e-05_rb, &\n        & 0.72252e-05_rb,0.87123e-05_rb,0.10876e-04_rb,0.53808e-05_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.23941e-07_rb,0.18862e-05_rb,0.33938e-05_rb,0.47325e-05_rb,0.60159e-05_rb, &\n        & 0.72910e-05_rb,0.87573e-05_rb,0.10893e-04_rb,0.53357e-05_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.27004e-07_rb,0.19136e-05_rb,0.34294e-05_rb,0.47766e-05_rb,0.60573e-05_rb, &\n        & 0.73309e-05_rb,0.87892e-05_rb,0.10892e-04_rb,0.52484e-05_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.27131e-07_rb,0.14236e-05_rb,0.27128e-05_rb,0.38203e-05_rb,0.48870e-05_rb, &\n        & 0.59983e-05_rb,0.72827e-05_rb,0.94729e-05_rb,0.86942e-05_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.26214e-07_rb,0.14673e-05_rb,0.27677e-05_rb,0.38940e-05_rb,0.49627e-05_rb, &\n        & 0.60727e-05_rb,0.73587e-05_rb,0.93332e-05_rb,0.87651e-05_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.29249e-07_rb,0.15085e-05_rb,0.28175e-05_rb,0.39503e-05_rb,0.50362e-05_rb, &\n        & 0.61230e-05_rb,0.74095e-05_rb,0.93608e-05_rb,0.87497e-05_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.35846e-07_rb,0.15423e-05_rb,0.28570e-05_rb,0.39988e-05_rb,0.50875e-05_rb, &\n        & 0.61709e-05_rb,0.74491e-05_rb,0.93691e-05_rb,0.88300e-05_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.36255e-07_rb,0.15665e-05_rb,0.28868e-05_rb,0.40378e-05_rb,0.51248e-05_rb, &\n        & 0.62083e-05_rb,0.74689e-05_rb,0.93597e-05_rb,0.88065e-05_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.37619e-07_rb,0.92017e-06_rb,0.22295e-05_rb,0.31821e-05_rb,0.40883e-05_rb, &\n        & 0.50331e-05_rb,0.61447e-05_rb,0.80461e-05_rb,0.15512e-04_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.43015e-07_rb,0.95048e-06_rb,0.22782e-05_rb,0.32493e-05_rb,0.41585e-05_rb, &\n        & 0.50968e-05_rb,0.61995e-05_rb,0.80232e-05_rb,0.15472e-04_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.47635e-07_rb,0.97934e-06_rb,0.23207e-05_rb,0.33002e-05_rb,0.42181e-05_rb, &\n        & 0.51430e-05_rb,0.62468e-05_rb,0.79821e-05_rb,0.15652e-04_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.48140e-07_rb,0.10026e-05_rb,0.23582e-05_rb,0.33416e-05_rb,0.42650e-05_rb, &\n        & 0.51734e-05_rb,0.62779e-05_rb,0.79833e-05_rb,0.15762e-04_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.45231e-07_rb,0.10212e-05_rb,0.23819e-05_rb,0.33754e-05_rb,0.42991e-05_rb, &\n        & 0.52146e-05_rb,0.62945e-05_rb,0.79701e-05_rb,0.15840e-04_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.48601e-07_rb,0.49350e-06_rb,0.16585e-05_rb,0.26009e-05_rb,0.33796e-05_rb, &\n        & 0.41888e-05_rb,0.51434e-05_rb,0.67867e-05_rb,0.26875e-04_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.49825e-07_rb,0.51680e-06_rb,0.16935e-05_rb,0.26607e-05_rb,0.34457e-05_rb, &\n        & 0.42434e-05_rb,0.51839e-05_rb,0.68587e-05_rb,0.27475e-04_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.52843e-07_rb,0.53573e-06_rb,0.17199e-05_rb,0.27038e-05_rb,0.35027e-05_rb, &\n        & 0.42858e-05_rb,0.52233e-05_rb,0.67410e-05_rb,0.28097e-04_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.49841e-07_rb,0.54248e-06_rb,0.17493e-05_rb,0.27418e-05_rb,0.35427e-05_rb, &\n        & 0.43127e-05_rb,0.52517e-05_rb,0.67418e-05_rb,0.28632e-04_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.50649e-07_rb,0.54940e-06_rb,0.17700e-05_rb,0.27695e-05_rb,0.35712e-05_rb, &\n        & 0.43482e-05_rb,0.52645e-05_rb,0.67282e-05_rb,0.28662e-04_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.82685e-07_rb,0.54022e-06_rb,0.87761e-06_rb,0.18752e-05_rb,0.27293e-05_rb, &\n        & 0.34506e-05_rb,0.42821e-05_rb,0.56501e-05_rb,0.44067e-04_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.87011e-07_rb,0.54017e-06_rb,0.89732e-06_rb,0.19208e-05_rb,0.27945e-05_rb, &\n        & 0.35005e-05_rb,0.43124e-05_rb,0.57881e-05_rb,0.45858e-04_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.79909e-07_rb,0.55355e-06_rb,0.90995e-06_rb,0.19451e-05_rb,0.28460e-05_rb, &\n        & 0.35425e-05_rb,0.43438e-05_rb,0.56593e-05_rb,0.45805e-04_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.75533e-07_rb,0.55705e-06_rb,0.92147e-06_rb,0.19661e-05_rb,0.28785e-05_rb, &\n        & 0.35628e-05_rb,0.43635e-05_rb,0.56526e-05_rb,0.46295e-04_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.76631e-07_rb,0.55159e-06_rb,0.93362e-06_rb,0.19832e-05_rb,0.29003e-05_rb, &\n        & 0.35965e-05_rb,0.43731e-05_rb,0.56385e-05_rb,0.46720e-04_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.11164e-06_rb,0.57710e-06_rb,0.71279e-06_rb,0.10003e-05_rb,0.19253e-05_rb, &\n        & 0.28027e-05_rb,0.35523e-05_rb,0.47607e-05_rb,0.51144e-04_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.11484e-06_rb,0.58649e-06_rb,0.71918e-06_rb,0.10167e-05_rb,0.19538e-05_rb, &\n        & 0.28431e-05_rb,0.35713e-05_rb,0.48333e-05_rb,0.49887e-04_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.11442e-06_rb,0.58483e-06_rb,0.70503e-06_rb,0.10320e-05_rb,0.19684e-05_rb, &\n        & 0.28674e-05_rb,0.35911e-05_rb,0.47191e-05_rb,0.50222e-04_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.11737e-06_rb,0.58895e-06_rb,0.70242e-06_rb,0.10442e-05_rb,0.19738e-05_rb, &\n        & 0.28962e-05_rb,0.36035e-05_rb,0.47045e-05_rb,0.48754e-04_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.12314e-06_rb,0.59299e-06_rb,0.70874e-06_rb,0.10470e-05_rb,0.19736e-05_rb, &\n        & 0.29100e-05_rb,0.36075e-05_rb,0.46813e-05_rb,0.45986e-04_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.14446e-06_rb,0.57459e-06_rb,0.72800e-06_rb,0.69912e-06_rb,0.11693e-05_rb, &\n        & 0.21457e-05_rb,0.29151e-05_rb,0.39683e-05_rb,0.42970e-04_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.14738e-06_rb,0.58568e-06_rb,0.75374e-06_rb,0.69814e-06_rb,0.11797e-05_rb, &\n        & 0.21759e-05_rb,0.29287e-05_rb,0.39942e-05_rb,0.41434e-04_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.15006e-06_rb,0.60144e-06_rb,0.75420e-06_rb,0.70559e-06_rb,0.11849e-05_rb, &\n        & 0.21718e-05_rb,0.29383e-05_rb,0.39185e-05_rb,0.42909e-04_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.15745e-06_rb,0.60776e-06_rb,0.75984e-06_rb,0.71270e-06_rb,0.11804e-05_rb, &\n        & 0.21578e-05_rb,0.29477e-05_rb,0.38939e-05_rb,0.41761e-04_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.16583e-06_rb,0.62207e-06_rb,0.74591e-06_rb,0.69746e-06_rb,0.11751e-05_rb, &\n        & 0.21552e-05_rb,0.29514e-05_rb,0.38695e-05_rb,0.45252e-04_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.18492e-06_rb,0.65841e-06_rb,0.74904e-06_rb,0.82698e-06_rb,0.69790e-06_rb, &\n        & 0.13356e-05_rb,0.23333e-05_rb,0.33010e-05_rb,0.43502e-04_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.18447e-06_rb,0.66115e-06_rb,0.74200e-06_rb,0.80748e-06_rb,0.68676e-06_rb, &\n        & 0.13419e-05_rb,0.23369e-05_rb,0.32873e-05_rb,0.44908e-04_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.20107e-06_rb,0.65387e-06_rb,0.73155e-06_rb,0.79291e-06_rb,0.67848e-06_rb, &\n        & 0.13368e-05_rb,0.23434e-05_rb,0.32337e-05_rb,0.47417e-04_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.20493e-06_rb,0.66191e-06_rb,0.72707e-06_rb,0.79839e-06_rb,0.67208e-06_rb, &\n        & 0.13273e-05_rb,0.23466e-05_rb,0.32075e-05_rb,0.48703e-04_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.20003e-06_rb,0.66753e-06_rb,0.73390e-06_rb,0.79794e-06_rb,0.66936e-06_rb, &\n        & 0.13150e-05_rb,0.23558e-05_rb,0.31828e-05_rb,0.50012e-04_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.45955e-07_rb,0.96988e-05_rb,0.16766e-04_rb,0.23073e-04_rb,0.28829e-04_rb, &\n        & 0.34350e-04_rb,0.39744e-04_rb,0.45071e-04_rb,0.36783e-04_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.57268e-07_rb,0.98413e-05_rb,0.16970e-04_rb,0.23311e-04_rb,0.29149e-04_rb, &\n        & 0.34726e-04_rb,0.40229e-04_rb,0.45682e-04_rb,0.37190e-04_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.70060e-07_rb,0.10517e-04_rb,0.18168e-04_rb,0.24965e-04_rb,0.31264e-04_rb, &\n        & 0.37439e-04_rb,0.43299e-04_rb,0.49335e-04_rb,0.41254e-04_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.84370e-07_rb,0.10120e-04_rb,0.17302e-04_rb,0.23633e-04_rb,0.29544e-04_rb, &\n        & 0.35368e-04_rb,0.40885e-04_rb,0.46535e-04_rb,0.37819e-04_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.97346e-07_rb,0.10254e-04_rb,0.17458e-04_rb,0.23773e-04_rb,0.29672e-04_rb, &\n        & 0.35542e-04_rb,0.41140e-04_rb,0.46864e-04_rb,0.38054e-04_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.27937e-07_rb,0.87332e-05_rb,0.15102e-04_rb,0.20785e-04_rb,0.26002e-04_rb, &\n        & 0.30993e-04_rb,0.35918e-04_rb,0.41124e-04_rb,0.32692e-04_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.34502e-07_rb,0.88655e-05_rb,0.15279e-04_rb,0.20992e-04_rb,0.26281e-04_rb, &\n        & 0.31393e-04_rb,0.36363e-04_rb,0.41768e-04_rb,0.33047e-04_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.45243e-07_rb,0.95567e-05_rb,0.16535e-04_rb,0.22740e-04_rb,0.28503e-04_rb, &\n        & 0.34161e-04_rb,0.39521e-04_rb,0.45509e-04_rb,0.37184e-04_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.56029e-07_rb,0.96404e-05_rb,0.16599e-04_rb,0.22759e-04_rb,0.28526e-04_rb, &\n        & 0.34207e-04_rb,0.39586e-04_rb,0.45601e-04_rb,0.37152e-04_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.67453e-07_rb,0.92372e-05_rb,0.15744e-04_rb,0.21435e-04_rb,0.26769e-04_rb, &\n        & 0.32085e-04_rb,0.37228e-04_rb,0.42908e-04_rb,0.33841e-04_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.21909e-07_rb,0.77821e-05_rb,0.13457e-04_rb,0.18525e-04_rb,0.23194e-04_rb, &\n        & 0.27662e-04_rb,0.32086e-04_rb,0.37089e-04_rb,0.28700e-04_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.25816e-07_rb,0.78998e-05_rb,0.13627e-04_rb,0.18723e-04_rb,0.23459e-04_rb, &\n        & 0.28049e-04_rb,0.32494e-04_rb,0.37775e-04_rb,0.29060e-04_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.28009e-07_rb,0.80177e-05_rb,0.13778e-04_rb,0.18883e-04_rb,0.23652e-04_rb, &\n        & 0.28348e-04_rb,0.32831e-04_rb,0.38183e-04_rb,0.29363e-04_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.32250e-07_rb,0.87000e-05_rb,0.14997e-04_rb,0.20591e-04_rb,0.25858e-04_rb, &\n        & 0.30984e-04_rb,0.35855e-04_rb,0.41716e-04_rb,0.33352e-04_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.38565e-07_rb,0.82442e-05_rb,0.14048e-04_rb,0.19147e-04_rb,0.23963e-04_rb, &\n        & 0.28712e-04_rb,0.33322e-04_rb,0.38841e-04_rb,0.29827e-04_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.27845e-07_rb,0.68782e-05_rb,0.11887e-04_rb,0.16370e-04_rb,0.20522e-04_rb, &\n        & 0.24507e-04_rb,0.28445e-04_rb,0.33146e-04_rb,0.25091e-04_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.30162e-07_rb,0.69860e-05_rb,0.12053e-04_rb,0.16569e-04_rb,0.20786e-04_rb, &\n        & 0.24863e-04_rb,0.28833e-04_rb,0.33823e-04_rb,0.25439e-04_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.31547e-07_rb,0.70934e-05_rb,0.12196e-04_rb,0.16734e-04_rb,0.20984e-04_rb, &\n        & 0.25140e-04_rb,0.29167e-04_rb,0.34188e-04_rb,0.25743e-04_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.30733e-07_rb,0.72009e-05_rb,0.12319e-04_rb,0.16870e-04_rb,0.21150e-04_rb, &\n        & 0.25350e-04_rb,0.29432e-04_rb,0.34551e-04_rb,0.26011e-04_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.33104e-07_rb,0.78742e-05_rb,0.13511e-04_rb,0.18536e-04_rb,0.23314e-04_rb, &\n        & 0.27934e-04_rb,0.32284e-04_rb,0.37983e-04_rb,0.29911e-04_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.31453e-07_rb,0.60344e-05_rb,0.10431e-04_rb,0.14360e-04_rb,0.18025e-04_rb, &\n        & 0.21556e-04_rb,0.25057e-04_rb,0.29352e-04_rb,0.21244e-04_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.32645e-07_rb,0.61373e-05_rb,0.10589e-04_rb,0.14561e-04_rb,0.18288e-04_rb, &\n        & 0.21896e-04_rb,0.25427e-04_rb,0.30041e-04_rb,0.21582e-04_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.36285e-07_rb,0.62371e-05_rb,0.10724e-04_rb,0.14730e-04_rb,0.18494e-04_rb, &\n        & 0.22175e-04_rb,0.25749e-04_rb,0.30401e-04_rb,0.21875e-04_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.35840e-07_rb,0.63361e-05_rb,0.10841e-04_rb,0.14872e-04_rb,0.18672e-04_rb, &\n        & 0.22386e-04_rb,0.26001e-04_rb,0.30772e-04_rb,0.22136e-04_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.34391e-07_rb,0.70384e-05_rb,0.12100e-04_rb,0.16639e-04_rb,0.20967e-04_rb, &\n        & 0.25106e-04_rb,0.29033e-04_rb,0.34382e-04_rb,0.26458e-04_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.38317e-07_rb,0.52554e-05_rb,0.90847e-05_rb,0.12506e-04_rb,0.15706e-04_rb, &\n        & 0.18802e-04_rb,0.21926e-04_rb,0.25721e-04_rb,0.82786e-05_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.42993e-07_rb,0.53521e-05_rb,0.92425e-05_rb,0.12708e-04_rb,0.15965e-04_rb, &\n        & 0.19131e-04_rb,0.22269e-04_rb,0.26449e-04_rb,0.85145e-05_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.43612e-07_rb,0.54474e-05_rb,0.93707e-05_rb,0.12875e-04_rb,0.16176e-04_rb, &\n        & 0.19407e-04_rb,0.22575e-04_rb,0.26830e-04_rb,0.87594e-05_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.42757e-07_rb,0.55405e-05_rb,0.94823e-05_rb,0.13019e-04_rb,0.16363e-04_rb, &\n        & 0.19625e-04_rb,0.22815e-04_rb,0.27200e-04_rb,0.90170e-05_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.43664e-07_rb,0.56274e-05_rb,0.95923e-05_rb,0.13140e-04_rb,0.16520e-04_rb, &\n        & 0.19797e-04_rb,0.22995e-04_rb,0.27528e-04_rb,0.91836e-05_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.39995e-07_rb,0.45414e-05_rb,0.78502e-05_rb,0.10801e-04_rb,0.13562e-04_rb, &\n        & 0.16248e-04_rb,0.19009e-04_rb,0.22439e-04_rb,0.93804e-05_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.43614e-07_rb,0.46331e-05_rb,0.80059e-05_rb,0.11000e-04_rb,0.13813e-04_rb, &\n        & 0.16577e-04_rb,0.19346e-04_rb,0.23103e-04_rb,0.95334e-05_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.45687e-07_rb,0.47201e-05_rb,0.81316e-05_rb,0.11167e-04_rb,0.14031e-04_rb, &\n        & 0.16844e-04_rb,0.19646e-04_rb,0.23513e-04_rb,0.96503e-05_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.48386e-07_rb,0.48081e-05_rb,0.82413e-05_rb,0.11310e-04_rb,0.14223e-04_rb, &\n        & 0.17063e-04_rb,0.19885e-04_rb,0.23881e-04_rb,0.95360e-05_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.54287e-07_rb,0.48899e-05_rb,0.83473e-05_rb,0.11434e-04_rb,0.14383e-04_rb, &\n        & 0.17240e-04_rb,0.20064e-04_rb,0.24201e-04_rb,0.94267e-05_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.45720e-07_rb,0.38685e-05_rb,0.67269e-05_rb,0.92537e-05_rb,0.11613e-04_rb, &\n        & 0.13930e-04_rb,0.16333e-04_rb,0.19500e-04_rb,0.15537e-04_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.46817e-07_rb,0.39568e-05_rb,0.68775e-05_rb,0.94493e-05_rb,0.11857e-04_rb, &\n        & 0.14250e-04_rb,0.16679e-04_rb,0.19983e-04_rb,0.15822e-04_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.48700e-07_rb,0.40362e-05_rb,0.70012e-05_rb,0.96148e-05_rb,0.12076e-04_rb, &\n        & 0.14508e-04_rb,0.16969e-04_rb,0.20440e-04_rb,0.15878e-04_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.54460e-07_rb,0.41199e-05_rb,0.71098e-05_rb,0.97580e-05_rb,0.12268e-04_rb, &\n        & 0.14725e-04_rb,0.17206e-04_rb,0.20805e-04_rb,0.16014e-04_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.59565e-07_rb,0.42000e-05_rb,0.72128e-05_rb,0.98789e-05_rb,0.12424e-04_rb, &\n        & 0.14896e-04_rb,0.17382e-04_rb,0.21113e-04_rb,0.15894e-04_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.60502e-07_rb,0.31758e-05_rb,0.57011e-05_rb,0.78602e-05_rb,0.98646e-05_rb, &\n        & 0.11842e-04_rb,0.13914e-04_rb,0.16812e-04_rb,0.32738e-04_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.61920e-07_rb,0.32583e-05_rb,0.58474e-05_rb,0.80501e-05_rb,0.10097e-04_rb, &\n        & 0.12150e-04_rb,0.14260e-04_rb,0.17128e-04_rb,0.32707e-04_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.66102e-07_rb,0.33410e-05_rb,0.59686e-05_rb,0.82148e-05_rb,0.10310e-04_rb, &\n        & 0.12398e-04_rb,0.14542e-04_rb,0.17650e-04_rb,0.33629e-04_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.86168e-07_rb,0.34261e-05_rb,0.60763e-05_rb,0.83539e-05_rb,0.10496e-04_rb, &\n        & 0.12604e-04_rb,0.14773e-04_rb,0.17994e-04_rb,0.33878e-04_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.91586e-07_rb,0.35057e-05_rb,0.61764e-05_rb,0.84703e-05_rb,0.10646e-04_rb, &\n        & 0.12765e-04_rb,0.14939e-04_rb,0.18282e-04_rb,0.33645e-04_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.96997e-07_rb,0.19211e-05_rb,0.47098e-05_rb,0.66155e-05_rb,0.83225e-05_rb, &\n        & 0.10005e-04_rb,0.11773e-04_rb,0.14404e-04_rb,0.53631e-04_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.96064e-07_rb,0.20141e-05_rb,0.48491e-05_rb,0.67941e-05_rb,0.85382e-05_rb, &\n        & 0.10290e-04_rb,0.12102e-04_rb,0.14626e-04_rb,0.54289e-04_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.10431e-06_rb,0.20834e-05_rb,0.49690e-05_rb,0.69520e-05_rb,0.87398e-05_rb, &\n        & 0.10520e-04_rb,0.12369e-04_rb,0.15124e-04_rb,0.55603e-04_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.11432e-06_rb,0.21653e-05_rb,0.50755e-05_rb,0.70852e-05_rb,0.89148e-05_rb, &\n        & 0.10714e-04_rb,0.12591e-04_rb,0.15457e-04_rb,0.56630e-04_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.11074e-06_rb,0.22480e-05_rb,0.51732e-05_rb,0.71951e-05_rb,0.90530e-05_rb, &\n        & 0.10860e-04_rb,0.12745e-04_rb,0.15721e-04_rb,0.54963e-04_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.15854e-06_rb,0.91297e-06_rb,0.32555e-05_rb,0.55113e-05_rb,0.70464e-05_rb, &\n        & 0.85121e-05_rb,0.10027e-04_rb,0.12303e-04_rb,0.52607e-04_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.16751e-06_rb,0.96634e-06_rb,0.33790e-05_rb,0.56722e-05_rb,0.72351e-05_rb, &\n        & 0.87519e-05_rb,0.10311e-04_rb,0.12547e-04_rb,0.52883e-04_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.16741e-06_rb,0.10318e-05_rb,0.35064e-05_rb,0.58058e-05_rb,0.74099e-05_rb, &\n        & 0.89413e-05_rb,0.10546e-04_rb,0.12998e-04_rb,0.52407e-04_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.16708e-06_rb,0.10925e-05_rb,0.36064e-05_rb,0.59145e-05_rb,0.75531e-05_rb, &\n        & 0.90996e-05_rb,0.10715e-04_rb,0.13285e-04_rb,0.53203e-04_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.16578e-06_rb,0.11490e-05_rb,0.36852e-05_rb,0.60104e-05_rb,0.76652e-05_rb, &\n        & 0.92182e-05_rb,0.10838e-04_rb,0.13496e-04_rb,0.54467e-04_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.17287e-06_rb,0.67222e-06_rb,0.20177e-05_rb,0.42045e-05_rb,0.58863e-05_rb, &\n        & 0.71911e-05_rb,0.84904e-05_rb,0.10467e-04_rb,0.53824e-04_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.17534e-06_rb,0.66930e-06_rb,0.20902e-05_rb,0.43510e-05_rb,0.60518e-05_rb, &\n        & 0.73834e-05_rb,0.87285e-05_rb,0.10723e-04_rb,0.57713e-04_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.19862e-06_rb,0.69271e-06_rb,0.21807e-05_rb,0.44473e-05_rb,0.61938e-05_rb, &\n        & 0.75395e-05_rb,0.89230e-05_rb,0.11082e-04_rb,0.58727e-04_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.20481e-06_rb,0.70155e-06_rb,0.22437e-05_rb,0.45330e-05_rb,0.63072e-05_rb, &\n        & 0.76639e-05_rb,0.90515e-05_rb,0.11316e-04_rb,0.62478e-04_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.22362e-06_rb,0.66686e-06_rb,0.23107e-05_rb,0.46277e-05_rb,0.64004e-05_rb, &\n        & 0.77560e-05_rb,0.91460e-05_rb,0.11480e-04_rb,0.61459e-04_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.24394e-06_rb,0.78850e-06_rb,0.10005e-05_rb,0.25869e-05_rb,0.46671e-05_rb, &\n        & 0.60110e-05_rb,0.71462e-05_rb,0.88357e-05_rb,0.59707e-04_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.25387e-06_rb,0.77656e-06_rb,0.10565e-05_rb,0.27093e-05_rb,0.48105e-05_rb, &\n        & 0.61610e-05_rb,0.73436e-05_rb,0.90989e-05_rb,0.60151e-04_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.22260e-06_rb,0.76604e-06_rb,0.11188e-05_rb,0.28168e-05_rb,0.49259e-05_rb, &\n        & 0.62864e-05_rb,0.74912e-05_rb,0.93777e-05_rb,0.58560e-04_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.22499e-06_rb,0.75979e-06_rb,0.11746e-05_rb,0.28869e-05_rb,0.50154e-05_rb, &\n        & 0.63819e-05_rb,0.75933e-05_rb,0.95633e-05_rb,0.61656e-04_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.22527e-06_rb,0.74699e-06_rb,0.12195e-05_rb,0.29526e-05_rb,0.50915e-05_rb, &\n        & 0.64528e-05_rb,0.76669e-05_rb,0.96909e-05_rb,0.60588e-04_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.29788e-05_rb,0.29380e-04_rb,0.47103e-04_rb,0.62484e-04_rb,0.75923e-04_rb, &\n        & 0.86945e-04_rb,0.96459e-04_rb,0.10727e-03_rb,0.95715e-04_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.31829e-05_rb,0.29542e-04_rb,0.47406e-04_rb,0.62987e-04_rb,0.76500e-04_rb, &\n        & 0.87575e-04_rb,0.97244e-04_rb,0.10847e-03_rb,0.96769e-04_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.34017e-05_rb,0.30451e-04_rb,0.49181e-04_rb,0.65673e-04_rb,0.79848e-04_rb, &\n        & 0.91475e-04_rb,0.10206e-03_rb,0.11418e-03_rb,0.10339e-03_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.36204e-05_rb,0.29858e-04_rb,0.47964e-04_rb,0.63849e-04_rb,0.77416e-04_rb, &\n        & 0.88495e-04_rb,0.98624e-04_rb,0.11030e-03_rb,0.98665e-04_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.38336e-05_rb,0.30032e-04_rb,0.48176e-04_rb,0.64174e-04_rb,0.77743e-04_rb, &\n        & 0.88899e-04_rb,0.99219e-04_rb,0.11117e-03_rb,0.99410e-04_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.24422e-05_rb,0.27039e-04_rb,0.43472e-04_rb,0.57657e-04_rb,0.69985e-04_rb, &\n        & 0.80297e-04_rb,0.89716e-04_rb,0.10091e-03_rb,0.87814e-04_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.26194e-05_rb,0.27224e-04_rb,0.43834e-04_rb,0.58227e-04_rb,0.70564e-04_rb, &\n        & 0.80899e-04_rb,0.90555e-04_rb,0.10201e-03_rb,0.88900e-04_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.28026e-05_rb,0.28185e-04_rb,0.45675e-04_rb,0.60941e-04_rb,0.73932e-04_rb, &\n        & 0.84933e-04_rb,0.95539e-04_rb,0.10795e-03_rb,0.95932e-04_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.29807e-05_rb,0.28297e-04_rb,0.45818e-04_rb,0.61151e-04_rb,0.74119e-04_rb, &\n        & 0.85132e-04_rb,0.95905e-04_rb,0.10857e-03_rb,0.96316e-04_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.31559e-05_rb,0.27777e-04_rb,0.44649e-04_rb,0.59431e-04_rb,0.71821e-04_rb, &\n        & 0.82324e-04_rb,0.92537e-04_rb,0.10487e-03_rb,0.91446e-04_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.19527e-05_rb,0.24728e-04_rb,0.39864e-04_rb,0.52777e-04_rb,0.63893e-04_rb, &\n        & 0.73441e-04_rb,0.82582e-04_rb,0.93968e-04_rb,0.79571e-04_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.21028e-05_rb,0.24948e-04_rb,0.40273e-04_rb,0.53366e-04_rb,0.64472e-04_rb, &\n        & 0.74070e-04_rb,0.83496e-04_rb,0.95166e-04_rb,0.80711e-04_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.22571e-05_rb,0.25146e-04_rb,0.40613e-04_rb,0.53873e-04_rb,0.64998e-04_rb, &\n        & 0.74638e-04_rb,0.84298e-04_rb,0.96249e-04_rb,0.81670e-04_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.24052e-05_rb,0.26082e-04_rb,0.42367e-04_rb,0.56407e-04_rb,0.68204e-04_rb, &\n        & 0.78600e-04_rb,0.89199e-04_rb,0.10217e-03_rb,0.88502e-04_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.25493e-05_rb,0.25521e-04_rb,0.41156e-04_rb,0.54597e-04_rb,0.65795e-04_rb, &\n        & 0.75610e-04_rb,0.85600e-04_rb,0.98234e-04_rb,0.83132e-04_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.15249e-05_rb,0.22458e-04_rb,0.36230e-04_rb,0.47832e-04_rb,0.57788e-04_rb, &\n        & 0.66572e-04_rb,0.75267e-04_rb,0.86613e-04_rb,0.71765e-04_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.16472e-05_rb,0.22706e-04_rb,0.36674e-04_rb,0.48420e-04_rb,0.58373e-04_rb, &\n        & 0.67233e-04_rb,0.76205e-04_rb,0.87918e-04_rb,0.72872e-04_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.17727e-05_rb,0.22924e-04_rb,0.37041e-04_rb,0.48925e-04_rb,0.58917e-04_rb, &\n        & 0.67822e-04_rb,0.77056e-04_rb,0.89127e-04_rb,0.73812e-04_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.18979e-05_rb,0.23116e-04_rb,0.37363e-04_rb,0.49353e-04_rb,0.59386e-04_rb, &\n        & 0.68373e-04_rb,0.77816e-04_rb,0.90208e-04_rb,0.74597e-04_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.20187e-05_rb,0.24032e-04_rb,0.39090e-04_rb,0.51784e-04_rb,0.62486e-04_rb, &\n        & 0.72274e-04_rb,0.82652e-04_rb,0.95944e-04_rb,0.81360e-04_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.11616e-05_rb,0.20230e-04_rb,0.32593e-04_rb,0.43015e-04_rb,0.51913e-04_rb, &\n        & 0.59885e-04_rb,0.68041e-04_rb,0.79091e-04_rb,0.64237e-04_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.12634e-05_rb,0.20493e-04_rb,0.33052e-04_rb,0.43575e-04_rb,0.52485e-04_rb, &\n        & 0.60579e-04_rb,0.68993e-04_rb,0.80447e-04_rb,0.65308e-04_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.13665e-05_rb,0.20722e-04_rb,0.33449e-04_rb,0.44078e-04_rb,0.53031e-04_rb, &\n        & 0.61206e-04_rb,0.69878e-04_rb,0.81712e-04_rb,0.66219e-04_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.14654e-05_rb,0.20926e-04_rb,0.33806e-04_rb,0.44507e-04_rb,0.53511e-04_rb, &\n        & 0.61775e-04_rb,0.70644e-04_rb,0.82800e-04_rb,0.67010e-04_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.15654e-05_rb,0.21919e-04_rb,0.35683e-04_rb,0.47135e-04_rb,0.56892e-04_rb, &\n        & 0.66014e-04_rb,0.75901e-04_rb,0.88948e-04_rb,0.74367e-04_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.85477e-06_rb,0.18056e-04_rb,0.29058e-04_rb,0.38374e-04_rb,0.46318e-04_rb, &\n        & 0.53503e-04_rb,0.60983e-04_rb,0.71567e-04_rb,0.55220e-04_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.93399e-06_rb,0.18333e-04_rb,0.29518e-04_rb,0.38924e-04_rb,0.46903e-04_rb, &\n        & 0.54228e-04_rb,0.61990e-04_rb,0.72960e-04_rb,0.56327e-04_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.10173e-05_rb,0.18568e-04_rb,0.29940e-04_rb,0.39430e-04_rb,0.47457e-04_rb, &\n        & 0.54891e-04_rb,0.62912e-04_rb,0.74219e-04_rb,0.57262e-04_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.10990e-05_rb,0.18773e-04_rb,0.30321e-04_rb,0.39858e-04_rb,0.47937e-04_rb, &\n        & 0.55463e-04_rb,0.63685e-04_rb,0.75339e-04_rb,0.58060e-04_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.11736e-05_rb,0.18980e-04_rb,0.30632e-04_rb,0.40210e-04_rb,0.48338e-04_rb, &\n        & 0.55952e-04_rb,0.64349e-04_rb,0.76243e-04_rb,0.58787e-04_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.60315e-06_rb,0.15982e-04_rb,0.25725e-04_rb,0.33991e-04_rb,0.41066e-04_rb, &\n        & 0.47516e-04_rb,0.54302e-04_rb,0.64196e-04_rb,0.19175e-04_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.66792e-06_rb,0.16270e-04_rb,0.26184e-04_rb,0.34534e-04_rb,0.41673e-04_rb, &\n        & 0.48253e-04_rb,0.55322e-04_rb,0.65617e-04_rb,0.20214e-04_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.72908e-06_rb,0.16517e-04_rb,0.26616e-04_rb,0.35037e-04_rb,0.42229e-04_rb, &\n        & 0.48924e-04_rb,0.56239e-04_rb,0.66903e-04_rb,0.21171e-04_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.78570e-06_rb,0.16735e-04_rb,0.27002e-04_rb,0.35463e-04_rb,0.42700e-04_rb, &\n        & 0.49504e-04_rb,0.57015e-04_rb,0.68011e-04_rb,0.22118e-04_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.83832e-06_rb,0.16948e-04_rb,0.27325e-04_rb,0.35815e-04_rb,0.43102e-04_rb, &\n        & 0.50003e-04_rb,0.57693e-04_rb,0.68917e-04_rb,0.22989e-04_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.37835e-06_rb,0.14042e-04_rb,0.22619e-04_rb,0.29906e-04_rb,0.36184e-04_rb, &\n        & 0.41943e-04_rb,0.48058e-04_rb,0.57159e-04_rb,0.15030e-04_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.42400e-06_rb,0.14336e-04_rb,0.23076e-04_rb,0.30441e-04_rb,0.36790e-04_rb, &\n        & 0.42677e-04_rb,0.49055e-04_rb,0.58574e-04_rb,0.15267e-04_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.47003e-06_rb,0.14598e-04_rb,0.23503e-04_rb,0.30926e-04_rb,0.37338e-04_rb, &\n        & 0.43345e-04_rb,0.49944e-04_rb,0.59871e-04_rb,0.15168e-04_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.50983e-06_rb,0.14832e-04_rb,0.23887e-04_rb,0.31342e-04_rb,0.37806e-04_rb, &\n        & 0.43932e-04_rb,0.50714e-04_rb,0.60954e-04_rb,0.15479e-04_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.55238e-06_rb,0.15050e-04_rb,0.24211e-04_rb,0.31698e-04_rb,0.38215e-04_rb, &\n        & 0.44447e-04_rb,0.51404e-04_rb,0.61843e-04_rb,0.15864e-04_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.20614e-06_rb,0.12247e-04_rb,0.19755e-04_rb,0.26136e-04_rb,0.31671e-04_rb, &\n        & 0.36795e-04_rb,0.42267e-04_rb,0.50480e-04_rb,0.31415e-04_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.22820e-06_rb,0.12543e-04_rb,0.20203e-04_rb,0.26660e-04_rb,0.32273e-04_rb, &\n        & 0.37518e-04_rb,0.43228e-04_rb,0.51895e-04_rb,0.32257e-04_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.25381e-06_rb,0.12814e-04_rb,0.20621e-04_rb,0.27129e-04_rb,0.32814e-04_rb, &\n        & 0.38186e-04_rb,0.44095e-04_rb,0.53151e-04_rb,0.31766e-04_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.26266e-06_rb,0.13056e-04_rb,0.20991e-04_rb,0.27538e-04_rb,0.33285e-04_rb, &\n        & 0.38781e-04_rb,0.44859e-04_rb,0.54214e-04_rb,0.32184e-04_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.28878e-06_rb,0.13277e-04_rb,0.21308e-04_rb,0.27899e-04_rb,0.33704e-04_rb, &\n        & 0.39313e-04_rb,0.45556e-04_rb,0.55111e-04_rb,0.32436e-04_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.12421e-06_rb,0.10598e-04_rb,0.17170e-04_rb,0.22745e-04_rb,0.27597e-04_rb, &\n        & 0.32129e-04_rb,0.37024e-04_rb,0.44410e-04_rb,0.36288e-04_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.11833e-06_rb,0.10888e-04_rb,0.17606e-04_rb,0.23251e-04_rb,0.28191e-04_rb, &\n        & 0.32843e-04_rb,0.37957e-04_rb,0.45757e-04_rb,0.36706e-04_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.11564e-06_rb,0.11153e-04_rb,0.18009e-04_rb,0.23706e-04_rb,0.28726e-04_rb, &\n        & 0.33507e-04_rb,0.38804e-04_rb,0.46971e-04_rb,0.39285e-04_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.11888e-06_rb,0.11400e-04_rb,0.18364e-04_rb,0.24104e-04_rb,0.29196e-04_rb, &\n        & 0.34101e-04_rb,0.39555e-04_rb,0.47996e-04_rb,0.37765e-04_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.13250e-06_rb,0.11625e-04_rb,0.18671e-04_rb,0.24463e-04_rb,0.29622e-04_rb, &\n        & 0.34646e-04_rb,0.40249e-04_rb,0.48876e-04_rb,0.41184e-04_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.17958e-06_rb,0.90757e-05_rb,0.15007e-04_rb,0.19889e-04_rb,0.24154e-04_rb, &\n        & 0.28187e-04_rb,0.32636e-04_rb,0.39437e-04_rb,0.34162e-04_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.18139e-06_rb,0.93666e-05_rb,0.15418e-04_rb,0.20361e-04_rb,0.24716e-04_rb, &\n        & 0.28864e-04_rb,0.33507e-04_rb,0.40680e-04_rb,0.35787e-04_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.18275e-06_rb,0.96291e-05_rb,0.15787e-04_rb,0.20786e-04_rb,0.25221e-04_rb, &\n        & 0.29495e-04_rb,0.34295e-04_rb,0.41765e-04_rb,0.33878e-04_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.18574e-06_rb,0.98743e-05_rb,0.16117e-04_rb,0.21165e-04_rb,0.25673e-04_rb, &\n        & 0.30069e-04_rb,0.35015e-04_rb,0.42686e-04_rb,0.32841e-04_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.20082e-06_rb,0.10102e-04_rb,0.16409e-04_rb,0.21512e-04_rb,0.26096e-04_rb, &\n        & 0.30600e-04_rb,0.35678e-04_rb,0.43526e-04_rb,0.33904e-04_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.23860e-06_rb,0.72127e-05_rb,0.13015e-04_rb,0.17297e-04_rb,0.21033e-04_rb, &\n        & 0.24600e-04_rb,0.28604e-04_rb,0.34818e-04_rb,0.40933e-04_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.23391e-06_rb,0.75352e-05_rb,0.13408e-04_rb,0.17740e-04_rb,0.21564e-04_rb, &\n        & 0.25251e-04_rb,0.29426e-04_rb,0.35947e-04_rb,0.39399e-04_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.24701e-06_rb,0.78057e-05_rb,0.13760e-04_rb,0.18144e-04_rb,0.22045e-04_rb, &\n        & 0.25844e-04_rb,0.30162e-04_rb,0.36924e-04_rb,0.38294e-04_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.26761e-06_rb,0.80774e-05_rb,0.14071e-04_rb,0.18509e-04_rb,0.22485e-04_rb, &\n        & 0.26399e-04_rb,0.30850e-04_rb,0.37793e-04_rb,0.37310e-04_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.23665e-06_rb,0.83711e-05_rb,0.14360e-04_rb,0.18850e-04_rb,0.22903e-04_rb, &\n        & 0.26918e-04_rb,0.31485e-04_rb,0.38601e-04_rb,0.34593e-04_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.27521e-06_rb,0.50755e-05_rb,0.11059e-04_rb,0.14942e-04_rb,0.18221e-04_rb, &\n        & 0.21366e-04_rb,0.24941e-04_rb,0.30569e-04_rb,0.35909e-04_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.25317e-06_rb,0.53749e-05_rb,0.11450e-04_rb,0.15364e-04_rb,0.18725e-04_rb, &\n        & 0.21982e-04_rb,0.25707e-04_rb,0.31598e-04_rb,0.37411e-04_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.23895e-06_rb,0.56684e-05_rb,0.11800e-04_rb,0.15745e-04_rb,0.19182e-04_rb, &\n        & 0.22548e-04_rb,0.26403e-04_rb,0.32490e-04_rb,0.35715e-04_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.23323e-06_rb,0.59219e-05_rb,0.12110e-04_rb,0.16104e-04_rb,0.19621e-04_rb, &\n        & 0.23090e-04_rb,0.27069e-04_rb,0.33309e-04_rb,0.26489e-04_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.23115e-06_rb,0.61949e-05_rb,0.12408e-04_rb,0.16438e-04_rb,0.20031e-04_rb, &\n        & 0.23602e-04_rb,0.27683e-04_rb,0.34068e-04_rb,0.26612e-04_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.91507e-04_rb,0.14710e-03_rb,0.19128e-03_rb,0.22605e-03_rb,0.25532e-03_rb, &\n        & 0.28077e-03_rb,0.30345e-03_rb,0.32646e-03_rb,0.30807e-03_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.91242e-04_rb,0.14642e-03_rb,0.19074e-03_rb,0.22564e-03_rb,0.25500e-03_rb, &\n        & 0.28086e-03_rb,0.30369e-03_rb,0.32690e-03_rb,0.30957e-03_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.90877e-04_rb,0.14692e-03_rb,0.19251e-03_rb,0.22869e-03_rb,0.25946e-03_rb, &\n        & 0.28682e-03_rb,0.31087e-03_rb,0.33538e-03_rb,0.32011e-03_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.90459e-04_rb,0.14494e-03_rb,0.18943e-03_rb,0.22459e-03_rb,0.25465e-03_rb, &\n        & 0.28114e-03_rb,0.30414e-03_rb,0.32755e-03_rb,0.31196e-03_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.89993e-04_rb,0.14416e-03_rb,0.18875e-03_rb,0.22408e-03_rb,0.25453e-03_rb, &\n        & 0.28137e-03_rb,0.30449e-03_rb,0.32780e-03_rb,0.31307e-03_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.77262e-04_rb,0.13432e-03_rb,0.17769e-03_rb,0.21240e-03_rb,0.24204e-03_rb, &\n        & 0.26866e-03_rb,0.29235e-03_rb,0.31628e-03_rb,0.29582e-03_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.77061e-04_rb,0.13375e-03_rb,0.17727e-03_rb,0.21210e-03_rb,0.24206e-03_rb, &\n        & 0.26905e-03_rb,0.29288e-03_rb,0.31707e-03_rb,0.29754e-03_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.76803e-04_rb,0.13443e-03_rb,0.17926e-03_rb,0.21557e-03_rb,0.24713e-03_rb, &\n        & 0.27557e-03_rb,0.30072e-03_rb,0.32610e-03_rb,0.30880e-03_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.76502e-04_rb,0.13372e-03_rb,0.17855e-03_rb,0.21503e-03_rb,0.24689e-03_rb, &\n        & 0.27560e-03_rb,0.30084e-03_rb,0.32601e-03_rb,0.30963e-03_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.76149e-04_rb,0.13198e-03_rb,0.17568e-03_rb,0.21133e-03_rb,0.24254e-03_rb, &\n        & 0.27051e-03_rb,0.29485e-03_rb,0.31890e-03_rb,0.30223e-03_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.65103e-04_rb,0.12258e-03_rb,0.16452e-03_rb,0.19865e-03_rb,0.22866e-03_rb, &\n        & 0.25591e-03_rb,0.28055e-03_rb,0.30511e-03_rb,0.28178e-03_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.64961e-04_rb,0.12216e-03_rb,0.16424e-03_rb,0.19863e-03_rb,0.22903e-03_rb, &\n        & 0.25664e-03_rb,0.28152e-03_rb,0.30626e-03_rb,0.28379e-03_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.64796e-04_rb,0.12170e-03_rb,0.16393e-03_rb,0.19861e-03_rb,0.22948e-03_rb, &\n        & 0.25740e-03_rb,0.28253e-03_rb,0.30727e-03_rb,0.28578e-03_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.64583e-04_rb,0.12248e-03_rb,0.16600e-03_rb,0.20227e-03_rb,0.23481e-03_rb, &\n        & 0.26421e-03_rb,0.29055e-03_rb,0.31636e-03_rb,0.29736e-03_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.64341e-04_rb,0.12081e-03_rb,0.16325e-03_rb,0.19869e-03_rb,0.23043e-03_rb, &\n        & 0.25903e-03_rb,0.28445e-03_rb,0.30920e-03_rb,0.28976e-03_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.54784e-04_rb,0.11174e-03_rb,0.15188e-03_rb,0.18523e-03_rb,0.21503e-03_rb, &\n        & 0.24239e-03_rb,0.26770e-03_rb,0.29311e-03_rb,0.26685e-03_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.54700e-04_rb,0.11144e-03_rb,0.15177e-03_rb,0.18550e-03_rb,0.21578e-03_rb, &\n        & 0.24348e-03_rb,0.26903e-03_rb,0.29466e-03_rb,0.26928e-03_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.54592e-04_rb,0.11111e-03_rb,0.15167e-03_rb,0.18578e-03_rb,0.21655e-03_rb, &\n        & 0.24456e-03_rb,0.27029e-03_rb,0.29609e-03_rb,0.27162e-03_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.54457e-04_rb,0.11078e-03_rb,0.15152e-03_rb,0.18607e-03_rb,0.21728e-03_rb, &\n        & 0.24565e-03_rb,0.27151e-03_rb,0.29746e-03_rb,0.27399e-03_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.54312e-04_rb,0.11162e-03_rb,0.15369e-03_rb,0.18993e-03_rb,0.22281e-03_rb, &\n        & 0.25263e-03_rb,0.27972e-03_rb,0.30664e-03_rb,0.28593e-03_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.46088e-04_rb,0.10164e-03_rb,0.13985e-03_rb,0.17192e-03_rb,0.20105e-03_rb, &\n        & 0.22810e-03_rb,0.25365e-03_rb,0.28019e-03_rb,0.25169e-03_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.46037e-04_rb,0.10150e-03_rb,0.13996e-03_rb,0.17251e-03_rb,0.20208e-03_rb, &\n        & 0.22949e-03_rb,0.25532e-03_rb,0.28211e-03_rb,0.25438e-03_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.45971e-04_rb,0.10129e-03_rb,0.14008e-03_rb,0.17302e-03_rb,0.20310e-03_rb, &\n        & 0.23085e-03_rb,0.25690e-03_rb,0.28385e-03_rb,0.25702e-03_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.45890e-04_rb,0.10111e-03_rb,0.14015e-03_rb,0.17355e-03_rb,0.20405e-03_rb, &\n        & 0.23221e-03_rb,0.25843e-03_rb,0.28547e-03_rb,0.25970e-03_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.45808e-04_rb,0.10210e-03_rb,0.14263e-03_rb,0.17783e-03_rb,0.21010e-03_rb, &\n        & 0.23994e-03_rb,0.26750e-03_rb,0.29545e-03_rb,0.27288e-03_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.38759e-04_rb,0.92287e-04_rb,0.12830e-03_rb,0.15873e-03_rb,0.18673e-03_rb, &\n        & 0.21305e-03_rb,0.23858e-03_rb,0.26603e-03_rb,0.23576e-03_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.38742e-04_rb,0.92285e-04_rb,0.12860e-03_rb,0.15956e-03_rb,0.18804e-03_rb, &\n        & 0.21479e-03_rb,0.24061e-03_rb,0.26833e-03_rb,0.23876e-03_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.38716e-04_rb,0.92248e-04_rb,0.12890e-03_rb,0.16031e-03_rb,0.18934e-03_rb, &\n        & 0.21647e-03_rb,0.24252e-03_rb,0.27042e-03_rb,0.24167e-03_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.38672e-04_rb,0.92189e-04_rb,0.12914e-03_rb,0.16108e-03_rb,0.19055e-03_rb, &\n        & 0.21815e-03_rb,0.24441e-03_rb,0.27232e-03_rb,0.24468e-03_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.38631e-04_rb,0.92110e-04_rb,0.12940e-03_rb,0.16181e-03_rb,0.19180e-03_rb, &\n        & 0.21982e-03_rb,0.24634e-03_rb,0.27420e-03_rb,0.24778e-03_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.32524e-04_rb,0.83578e-04_rb,0.11715e-03_rb,0.14581e-03_rb,0.17242e-03_rb, &\n        & 0.19778e-03_rb,0.22289e-03_rb,0.25099e-03_rb,0.21544e-03_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.32544e-04_rb,0.83724e-04_rb,0.11765e-03_rb,0.14685e-03_rb,0.17402e-03_rb, &\n        & 0.19984e-03_rb,0.22531e-03_rb,0.25360e-03_rb,0.21897e-03_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.32541e-04_rb,0.83837e-04_rb,0.11812e-03_rb,0.14785e-03_rb,0.17560e-03_rb, &\n        & 0.20184e-03_rb,0.22764e-03_rb,0.25604e-03_rb,0.22234e-03_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.32522e-04_rb,0.83911e-04_rb,0.11855e-03_rb,0.14886e-03_rb,0.17710e-03_rb, &\n        & 0.20381e-03_rb,0.22989e-03_rb,0.25831e-03_rb,0.22586e-03_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.32511e-04_rb,0.83972e-04_rb,0.11899e-03_rb,0.14985e-03_rb,0.17863e-03_rb, &\n        & 0.20577e-03_rb,0.23212e-03_rb,0.26056e-03_rb,0.22930e-03_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.27162e-04_rb,0.75477e-04_rb,0.10657e-03_rb,0.13337e-03_rb,0.15848e-03_rb, &\n        & 0.18267e-03_rb,0.20707e-03_rb,0.23532e-03_rb,0.10685e-03_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.27219e-04_rb,0.75747e-04_rb,0.10724e-03_rb,0.13464e-03_rb,0.16036e-03_rb, &\n        & 0.18507e-03_rb,0.20988e-03_rb,0.23834e-03_rb,0.11049e-03_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.27240e-04_rb,0.75981e-04_rb,0.10788e-03_rb,0.13591e-03_rb,0.16217e-03_rb, &\n        & 0.18731e-03_rb,0.21250e-03_rb,0.24115e-03_rb,0.11463e-03_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.27241e-04_rb,0.76175e-04_rb,0.10851e-03_rb,0.13715e-03_rb,0.16392e-03_rb, &\n        & 0.18952e-03_rb,0.21504e-03_rb,0.24375e-03_rb,0.11830e-03_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.27254e-04_rb,0.76338e-04_rb,0.10913e-03_rb,0.13836e-03_rb,0.16569e-03_rb, &\n        & 0.19172e-03_rb,0.21755e-03_rb,0.24638e-03_rb,0.12227e-03_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.22546e-04_rb,0.67903e-04_rb,0.96628e-04_rb,0.12150e-03_rb,0.14489e-03_rb, &\n        & 0.16757e-03_rb,0.19095e-03_rb,0.21913e-03_rb,0.25626e-04_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.22635e-04_rb,0.68268e-04_rb,0.97460e-04_rb,0.12301e-03_rb,0.14702e-03_rb, &\n        & 0.17028e-03_rb,0.19411e-03_rb,0.22260e-03_rb,0.25839e-04_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.22685e-04_rb,0.68616e-04_rb,0.98277e-04_rb,0.12450e-03_rb,0.14909e-03_rb, &\n        & 0.17284e-03_rb,0.19709e-03_rb,0.22578e-03_rb,0.27443e-04_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.22709e-04_rb,0.68929e-04_rb,0.99095e-04_rb,0.12593e-03_rb,0.15108e-03_rb, &\n        & 0.17530e-03_rb,0.19995e-03_rb,0.22878e-03_rb,0.28531e-04_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.22740e-04_rb,0.69227e-04_rb,0.99896e-04_rb,0.12734e-03_rb,0.15306e-03_rb, &\n        & 0.17777e-03_rb,0.20277e-03_rb,0.23170e-03_rb,0.28894e-04_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.18403e-04_rb,0.60856e-04_rb,0.87340e-04_rb,0.11017e-03_rb,0.13174e-03_rb, &\n        & 0.15284e-03_rb,0.17492e-03_rb,0.20267e-03_rb,0.31931e-04_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.18527e-04_rb,0.61329e-04_rb,0.88371e-04_rb,0.11191e-03_rb,0.13412e-03_rb, &\n        & 0.15579e-03_rb,0.17838e-03_rb,0.20650e-03_rb,0.29084e-04_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.18600e-04_rb,0.61796e-04_rb,0.89354e-04_rb,0.11363e-03_rb,0.13643e-03_rb, &\n        & 0.15861e-03_rb,0.18170e-03_rb,0.21009e-03_rb,0.27893e-04_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.18642e-04_rb,0.62226e-04_rb,0.90339e-04_rb,0.11526e-03_rb,0.13867e-03_rb, &\n        & 0.16137e-03_rb,0.18486e-03_rb,0.21346e-03_rb,0.33895e-04_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.18688e-04_rb,0.62651e-04_rb,0.91302e-04_rb,0.11690e-03_rb,0.14093e-03_rb, &\n        & 0.16416e-03_rb,0.18804e-03_rb,0.21676e-03_rb,0.31724e-04_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.14636e-04_rb,0.54588e-04_rb,0.79114e-04_rb,0.10030e-03_rb,0.12035e-03_rb, &\n        & 0.14003e-03_rb,0.16089e-03_rb,0.18797e-03_rb,0.24886e-04_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.14721e-04_rb,0.55182e-04_rb,0.80295e-04_rb,0.10221e-03_rb,0.12288e-03_rb, &\n        & 0.14315e-03_rb,0.16455e-03_rb,0.19200e-03_rb,0.28280e-04_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.14784e-04_rb,0.55751e-04_rb,0.81465e-04_rb,0.10405e-03_rb,0.12535e-03_rb, &\n        & 0.14614e-03_rb,0.16802e-03_rb,0.19578e-03_rb,0.31405e-04_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.14831e-04_rb,0.56293e-04_rb,0.82611e-04_rb,0.10589e-03_rb,0.12782e-03_rb, &\n        & 0.14918e-03_rb,0.17147e-03_rb,0.19942e-03_rb,0.34684e-04_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.14856e-04_rb,0.56829e-04_rb,0.83754e-04_rb,0.10776e-03_rb,0.13034e-03_rb, &\n        & 0.15225e-03_rb,0.17499e-03_rb,0.20312e-03_rb,0.30970e-04_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.11572e-04_rb,0.48876e-04_rb,0.71553e-04_rb,0.91191e-04_rb,0.10973e-03_rb, &\n        & 0.12799e-03_rb,0.14756e-03_rb,0.17351e-03_rb,0.30682e-04_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.11642e-04_rb,0.49592e-04_rb,0.72882e-04_rb,0.93233e-04_rb,0.11240e-03_rb, &\n        & 0.13124e-03_rb,0.15132e-03_rb,0.17770e-03_rb,0.31240e-04_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.11629e-04_rb,0.50261e-04_rb,0.74205e-04_rb,0.95210e-04_rb,0.11505e-03_rb, &\n        & 0.13447e-03_rb,0.15502e-03_rb,0.18170e-03_rb,0.31943e-04_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.11633e-04_rb,0.50925e-04_rb,0.75501e-04_rb,0.97246e-04_rb,0.11773e-03_rb, &\n        & 0.13775e-03_rb,0.15878e-03_rb,0.18567e-03_rb,0.23441e-04_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.11677e-04_rb,0.51560e-04_rb,0.76851e-04_rb,0.99310e-04_rb,0.12044e-03_rb, &\n        & 0.14103e-03_rb,0.16255e-03_rb,0.18968e-03_rb,0.23249e-04_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.88185e-05_rb,0.43709e-04_rb,0.64627e-04_rb,0.82824e-04_rb,0.99889e-04_rb, &\n        & 0.11672e-03_rb,0.13488e-03_rb,0.15952e-03_rb,0.30903e-04_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.88986e-05_rb,0.44515e-04_rb,0.66093e-04_rb,0.84980e-04_rb,0.10270e-03_rb, &\n        & 0.12016e-03_rb,0.13885e-03_rb,0.16386e-03_rb,0.25840e-04_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.89568e-05_rb,0.45280e-04_rb,0.67556e-04_rb,0.87134e-04_rb,0.10555e-03_rb, &\n        & 0.12361e-03_rb,0.14282e-03_rb,0.16813e-03_rb,0.26878e-04_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.89829e-05_rb,0.46045e-04_rb,0.69040e-04_rb,0.89346e-04_rb,0.10842e-03_rb, &\n        & 0.12710e-03_rb,0.14682e-03_rb,0.17243e-03_rb,0.28852e-04_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.90413e-05_rb,0.46787e-04_rb,0.70568e-04_rb,0.91561e-04_rb,0.11129e-03_rb, &\n        & 0.13056e-03_rb,0.15080e-03_rb,0.17669e-03_rb,0.28623e-04_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.44112e-03_rb,0.47423e-03_rb,0.54876e-03_rb,0.61567e-03_rb,0.66971e-03_rb, &\n        & 0.71699e-03_rb,0.76347e-03_rb,0.77814e-03_rb,0.77298e-03_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.43794e-03_rb,0.47285e-03_rb,0.54643e-03_rb,0.61370e-03_rb,0.66959e-03_rb, &\n        & 0.71530e-03_rb,0.76226e-03_rb,0.77693e-03_rb,0.76966e-03_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.43480e-03_rb,0.47183e-03_rb,0.54721e-03_rb,0.61831e-03_rb,0.67726e-03_rb, &\n        & 0.72423e-03_rb,0.77288e-03_rb,0.78901e-03_rb,0.78603e-03_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.43220e-03_rb,0.46825e-03_rb,0.54213e-03_rb,0.61349e-03_rb,0.66880e-03_rb, &\n        & 0.71215e-03_rb,0.75938e-03_rb,0.77341e-03_rb,0.76775e-03_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.42987e-03_rb,0.46597e-03_rb,0.54025e-03_rb,0.61237e-03_rb,0.66800e-03_rb, &\n        & 0.70968e-03_rb,0.75599e-03_rb,0.77132e-03_rb,0.76754e-03_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.37934e-03_rb,0.43540e-03_rb,0.51852e-03_rb,0.59327e-03_rb,0.65919e-03_rb, &\n        & 0.71028e-03_rb,0.75523e-03_rb,0.78660e-03_rb,0.77018e-03_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.37616e-03_rb,0.43418e-03_rb,0.51743e-03_rb,0.59232e-03_rb,0.65869e-03_rb, &\n        & 0.70879e-03_rb,0.75385e-03_rb,0.78506e-03_rb,0.76914e-03_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.37285e-03_rb,0.43338e-03_rb,0.51992e-03_rb,0.59796e-03_rb,0.66588e-03_rb, &\n        & 0.71863e-03_rb,0.76525e-03_rb,0.79746e-03_rb,0.78726e-03_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.36993e-03_rb,0.43092e-03_rb,0.51858e-03_rb,0.59729e-03_rb,0.66425e-03_rb, &\n        & 0.71582e-03_rb,0.76129e-03_rb,0.79428e-03_rb,0.78557e-03_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.36795e-03_rb,0.42667e-03_rb,0.51498e-03_rb,0.59125e-03_rb,0.65451e-03_rb, &\n        & 0.70295e-03_rb,0.74646e-03_rb,0.77706e-03_rb,0.76846e-03_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.32398e-03_rb,0.39840e-03_rb,0.48910e-03_rb,0.57202e-03_rb,0.64247e-03_rb, &\n        & 0.69920e-03_rb,0.74272e-03_rb,0.78560e-03_rb,0.76158e-03_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.32107e-03_rb,0.39683e-03_rb,0.48877e-03_rb,0.57106e-03_rb,0.64200e-03_rb, &\n        & 0.69780e-03_rb,0.74068e-03_rb,0.78389e-03_rb,0.76255e-03_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.31808e-03_rb,0.39502e-03_rb,0.48851e-03_rb,0.57104e-03_rb,0.64052e-03_rb, &\n        & 0.69677e-03_rb,0.73846e-03_rb,0.78156e-03_rb,0.76341e-03_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.31534e-03_rb,0.39419e-03_rb,0.49223e-03_rb,0.57621e-03_rb,0.64746e-03_rb, &\n        & 0.70569e-03_rb,0.74986e-03_rb,0.79350e-03_rb,0.78192e-03_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.31343e-03_rb,0.39031e-03_rb,0.48789e-03_rb,0.56911e-03_rb,0.63804e-03_rb, &\n        & 0.69322e-03_rb,0.73529e-03_rb,0.77554e-03_rb,0.76249e-03_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.27516e-03_rb,0.36405e-03_rb,0.46107e-03_rb,0.54790e-03_rb,0.62253e-03_rb, &\n        & 0.68384e-03_rb,0.73057e-03_rb,0.77856e-03_rb,0.74793e-03_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.27272e-03_rb,0.36262e-03_rb,0.46080e-03_rb,0.54700e-03_rb,0.62201e-03_rb, &\n        & 0.68300e-03_rb,0.72976e-03_rb,0.77591e-03_rb,0.74919e-03_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.26991e-03_rb,0.36139e-03_rb,0.46064e-03_rb,0.54673e-03_rb,0.62063e-03_rb, &\n        & 0.68269e-03_rb,0.72862e-03_rb,0.77298e-03_rb,0.75070e-03_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.26757e-03_rb,0.35993e-03_rb,0.46053e-03_rb,0.54625e-03_rb,0.61982e-03_rb, &\n        & 0.68167e-03_rb,0.72799e-03_rb,0.77005e-03_rb,0.75046e-03_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.26556e-03_rb,0.36025e-03_rb,0.46433e-03_rb,0.55132e-03_rb,0.62683e-03_rb, &\n        & 0.69143e-03_rb,0.74137e-03_rb,0.78366e-03_rb,0.76845e-03_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.23277e-03_rb,0.33279e-03_rb,0.43313e-03_rb,0.52236e-03_rb,0.59970e-03_rb, &\n        & 0.66464e-03_rb,0.71686e-03_rb,0.76626e-03_rb,0.72457e-03_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.23078e-03_rb,0.33167e-03_rb,0.43303e-03_rb,0.52181e-03_rb,0.60054e-03_rb, &\n        & 0.66529e-03_rb,0.71807e-03_rb,0.76458e-03_rb,0.72852e-03_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.22839e-03_rb,0.33111e-03_rb,0.43245e-03_rb,0.52229e-03_rb,0.60068e-03_rb, &\n        & 0.66640e-03_rb,0.71880e-03_rb,0.76367e-03_rb,0.73165e-03_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.22634e-03_rb,0.33010e-03_rb,0.43234e-03_rb,0.52220e-03_rb,0.60179e-03_rb, &\n        & 0.66699e-03_rb,0.71996e-03_rb,0.76305e-03_rb,0.73316e-03_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.22442e-03_rb,0.33158e-03_rb,0.43680e-03_rb,0.52864e-03_rb,0.61018e-03_rb, &\n        & 0.67770e-03_rb,0.73371e-03_rb,0.78031e-03_rb,0.75138e-03_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.19685e-03_rb,0.30442e-03_rb,0.40547e-03_rb,0.49610e-03_rb,0.57453e-03_rb, &\n        & 0.64299e-03_rb,0.69899e-03_rb,0.74954e-03_rb,0.69460e-03_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.19517e-03_rb,0.30338e-03_rb,0.40585e-03_rb,0.49683e-03_rb,0.57671e-03_rb, &\n        & 0.64425e-03_rb,0.70130e-03_rb,0.75004e-03_rb,0.70036e-03_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.19324e-03_rb,0.30268e-03_rb,0.40573e-03_rb,0.49834e-03_rb,0.57803e-03_rb, &\n        & 0.64627e-03_rb,0.70310e-03_rb,0.75130e-03_rb,0.70596e-03_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.19132e-03_rb,0.30224e-03_rb,0.40644e-03_rb,0.49947e-03_rb,0.58014e-03_rb, &\n        & 0.64741e-03_rb,0.70472e-03_rb,0.75293e-03_rb,0.70917e-03_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.18952e-03_rb,0.30177e-03_rb,0.40672e-03_rb,0.50101e-03_rb,0.58137e-03_rb, &\n        & 0.64847e-03_rb,0.70602e-03_rb,0.75537e-03_rb,0.71121e-03_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.16684e-03_rb,0.27825e-03_rb,0.37860e-03_rb,0.46883e-03_rb,0.54680e-03_rb, &\n        & 0.61510e-03_rb,0.67386e-03_rb,0.72824e-03_rb,0.66391e-03_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.16553e-03_rb,0.27719e-03_rb,0.37963e-03_rb,0.47077e-03_rb,0.54985e-03_rb, &\n        & 0.61768e-03_rb,0.67717e-03_rb,0.73093e-03_rb,0.67156e-03_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.16397e-03_rb,0.27663e-03_rb,0.38054e-03_rb,0.47308e-03_rb,0.55166e-03_rb, &\n        & 0.62067e-03_rb,0.67975e-03_rb,0.73342e-03_rb,0.67787e-03_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.16246e-03_rb,0.27634e-03_rb,0.38198e-03_rb,0.47489e-03_rb,0.55414e-03_rb, &\n        & 0.62280e-03_rb,0.68232e-03_rb,0.73600e-03_rb,0.68175e-03_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.16089e-03_rb,0.27624e-03_rb,0.38314e-03_rb,0.47665e-03_rb,0.55585e-03_rb, &\n        & 0.62443e-03_rb,0.68436e-03_rb,0.73852e-03_rb,0.68559e-03_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.14215e-03_rb,0.25407e-03_rb,0.35215e-03_rb,0.43863e-03_rb,0.51443e-03_rb, &\n        & 0.58154e-03_rb,0.64180e-03_rb,0.70004e-03_rb,0.62276e-03_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.14104e-03_rb,0.25332e-03_rb,0.35394e-03_rb,0.44179e-03_rb,0.51810e-03_rb, &\n        & 0.58508e-03_rb,0.64584e-03_rb,0.70407e-03_rb,0.63285e-03_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.13977e-03_rb,0.25313e-03_rb,0.35560e-03_rb,0.44458e-03_rb,0.52101e-03_rb, &\n        & 0.58953e-03_rb,0.65037e-03_rb,0.70785e-03_rb,0.64108e-03_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.13869e-03_rb,0.25332e-03_rb,0.35744e-03_rb,0.44722e-03_rb,0.52464e-03_rb, &\n        & 0.59336e-03_rb,0.65468e-03_rb,0.71201e-03_rb,0.64611e-03_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.13742e-03_rb,0.25367e-03_rb,0.35927e-03_rb,0.44959e-03_rb,0.52752e-03_rb, &\n        & 0.59656e-03_rb,0.65824e-03_rb,0.71554e-03_rb,0.65066e-03_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.12109e-03_rb,0.23210e-03_rb,0.32446e-03_rb,0.40715e-03_rb,0.48065e-03_rb, &\n        & 0.54715e-03_rb,0.60775e-03_rb,0.66825e-03_rb,0.18336e-04_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.12018e-03_rb,0.23207e-03_rb,0.32699e-03_rb,0.41058e-03_rb,0.48505e-03_rb, &\n        & 0.55180e-03_rb,0.61323e-03_rb,0.67309e-03_rb,0.24327e-04_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.11917e-03_rb,0.23229e-03_rb,0.32956e-03_rb,0.41390e-03_rb,0.48910e-03_rb, &\n        & 0.55710e-03_rb,0.61911e-03_rb,0.67851e-03_rb,0.23065e-04_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.11843e-03_rb,0.23292e-03_rb,0.33197e-03_rb,0.41764e-03_rb,0.49354e-03_rb, &\n        & 0.56238e-03_rb,0.62497e-03_rb,0.68395e-03_rb,0.23680e-04_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.11748e-03_rb,0.23365e-03_rb,0.33458e-03_rb,0.42109e-03_rb,0.49774e-03_rb, &\n        & 0.56667e-03_rb,0.62987e-03_rb,0.68909e-03_rb,0.25905e-04_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.10273e-03_rb,0.21204e-03_rb,0.29794e-03_rb,0.37761e-03_rb,0.44937e-03_rb, &\n        & 0.51495e-03_rb,0.57567e-03_rb,0.63761e-03_rb,0.19724e-04_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.10190e-03_rb,0.21272e-03_rb,0.30059e-03_rb,0.38150e-03_rb,0.45434e-03_rb, &\n        & 0.52089e-03_rb,0.58270e-03_rb,0.64346e-03_rb,0.24197e-04_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.10112e-03_rb,0.21334e-03_rb,0.30377e-03_rb,0.38507e-03_rb,0.45917e-03_rb, &\n        & 0.52739e-03_rb,0.58976e-03_rb,0.64941e-03_rb,0.34326e-04_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.10061e-03_rb,0.21443e-03_rb,0.30659e-03_rb,0.38965e-03_rb,0.46453e-03_rb, &\n        & 0.53354e-03_rb,0.59675e-03_rb,0.65639e-03_rb,0.33702e-04_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.99890e-04_rb,0.21543e-03_rb,0.30998e-03_rb,0.39375e-03_rb,0.46925e-03_rb, &\n        & 0.53804e-03_rb,0.60223e-03_rb,0.66255e-03_rb,0.31412e-04_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.86338e-04_rb,0.19398e-03_rb,0.27516e-03_rb,0.35204e-03_rb,0.42116e-03_rb, &\n        & 0.48556e-03_rb,0.54615e-03_rb,0.60927e-03_rb,0.19945e-04_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.85730e-04_rb,0.19502e-03_rb,0.27834e-03_rb,0.35636e-03_rb,0.42792e-03_rb, &\n        & 0.49403e-03_rb,0.55597e-03_rb,0.61737e-03_rb,0.90093e-05_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.85275e-04_rb,0.19618e-03_rb,0.28168e-03_rb,0.36165e-03_rb,0.43438e-03_rb, &\n        & 0.50224e-03_rb,0.56492e-03_rb,0.62614e-03_rb,0.37496e-04_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.84865e-04_rb,0.19761e-03_rb,0.28526e-03_rb,0.36657e-03_rb,0.44042e-03_rb, &\n        & 0.50863e-03_rb,0.57263e-03_rb,0.63413e-03_rb,0.15044e-04_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.84443e-04_rb,0.19914e-03_rb,0.28886e-03_rb,0.37069e-03_rb,0.44492e-03_rb, &\n        & 0.51377e-03_rb,0.57803e-03_rb,0.63993e-03_rb,0.48683e-04_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.72237e-04_rb,0.17794e-03_rb,0.25491e-03_rb,0.32737e-03_rb,0.39376e-03_rb, &\n        & 0.45690e-03_rb,0.51684e-03_rb,0.58057e-03_rb,0.10800e-04_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.71846e-04_rb,0.17916e-03_rb,0.25896e-03_rb,0.33355e-03_rb,0.40234e-03_rb, &\n        & 0.46708e-03_rb,0.52856e-03_rb,0.59174e-03_rb,0.37304e-04_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.71641e-04_rb,0.18095e-03_rb,0.26291e-03_rb,0.34013e-03_rb,0.41022e-03_rb, &\n        & 0.47645e-03_rb,0.53911e-03_rb,0.60240e-03_rb,0.20066e-04_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.71337e-04_rb,0.18255e-03_rb,0.26698e-03_rb,0.34557e-03_rb,0.41722e-03_rb, &\n        & 0.48390e-03_rb,0.54753e-03_rb,0.61134e-03_rb,0.20267e-04_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.71187e-04_rb,0.18456e-03_rb,0.27032e-03_rb,0.35012e-03_rb,0.42265e-03_rb, &\n        & 0.49079e-03_rb,0.55462e-03_rb,0.61760e-03_rb,0.29175e-04_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.60308e-04_rb,0.16344e-03_rb,0.23674e-03_rb,0.30451e-03_rb,0.36859e-03_rb, &\n        & 0.42973e-03_rb,0.48896e-03_rb,0.55265e-03_rb,0.35870e-04_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.60075e-04_rb,0.16518e-03_rb,0.24182e-03_rb,0.31202e-03_rb,0.37817e-03_rb, &\n        & 0.44097e-03_rb,0.50163e-03_rb,0.56563e-03_rb,0.24717e-04_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.59963e-04_rb,0.16736e-03_rb,0.24636e-03_rb,0.31956e-03_rb,0.38717e-03_rb, &\n        & 0.45122e-03_rb,0.51282e-03_rb,0.57786e-03_rb,0.24967e-04_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.59808e-04_rb,0.16950e-03_rb,0.25081e-03_rb,0.32559e-03_rb,0.39488e-03_rb, &\n        & 0.45992e-03_rb,0.52243e-03_rb,0.58716e-03_rb,0.25073e-04_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.59738e-04_rb,0.17182e-03_rb,0.25430e-03_rb,0.33121e-03_rb,0.40220e-03_rb, &\n        & 0.46925e-03_rb,0.53224e-03_rb,0.59573e-03_rb,0.14031e-04_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.79109e-03_rb,0.77354e-03_rb,0.84795e-03_rb,0.91837e-03_rb,0.98287e-03_rb, &\n        & 0.10467e-02_rb,0.10876e-02_rb,0.10899e-02_rb,0.10918e-02_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.79035e-03_rb,0.76999e-03_rb,0.84502e-03_rb,0.91315e-03_rb,0.97569e-03_rb, &\n        & 0.10420e-02_rb,0.10843e-02_rb,0.10840e-02_rb,0.10904e-02_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.79094e-03_rb,0.76969e-03_rb,0.84501e-03_rb,0.91212e-03_rb,0.97616e-03_rb, &\n        & 0.10502e-02_rb,0.10978e-02_rb,0.10968e-02_rb,0.11098e-02_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.79012e-03_rb,0.76698e-03_rb,0.84052e-03_rb,0.90224e-03_rb,0.96448e-03_rb, &\n        & 0.10367e-02_rb,0.10810e-02_rb,0.10798e-02_rb,0.10838e-02_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.78840e-03_rb,0.76416e-03_rb,0.83816e-03_rb,0.89971e-03_rb,0.96199e-03_rb, &\n        & 0.10344e-02_rb,0.10796e-02_rb,0.10773e-02_rb,0.10800e-02_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.69789e-03_rb,0.72093e-03_rb,0.81475e-03_rb,0.89922e-03_rb,0.96655e-03_rb, &\n        & 0.10286e-02_rb,0.10852e-02_rb,0.10968e-02_rb,0.10998e-02_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.69799e-03_rb,0.71831e-03_rb,0.81026e-03_rb,0.89390e-03_rb,0.96162e-03_rb, &\n        & 0.10278e-02_rb,0.10853e-02_rb,0.10953e-02_rb,0.10980e-02_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.69849e-03_rb,0.71872e-03_rb,0.81039e-03_rb,0.89368e-03_rb,0.96713e-03_rb, &\n        & 0.10387e-02_rb,0.11003e-02_rb,0.11139e-02_rb,0.11199e-02_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.69786e-03_rb,0.71702e-03_rb,0.80831e-03_rb,0.88926e-03_rb,0.96426e-03_rb, &\n        & 0.10353e-02_rb,0.10976e-02_rb,0.11107e-02_rb,0.11152e-02_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.69639e-03_rb,0.71420e-03_rb,0.80246e-03_rb,0.88289e-03_rb,0.95515e-03_rb, &\n        & 0.10226e-02_rb,0.10812e-02_rb,0.10915e-02_rb,0.10904e-02_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.60717e-03_rb,0.66595e-03_rb,0.77916e-03_rb,0.87509e-03_rb,0.95372e-03_rb, &\n        & 0.10167e-02_rb,0.10820e-02_rb,0.11070e-02_rb,0.11005e-02_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.60740e-03_rb,0.66447e-03_rb,0.77425e-03_rb,0.87078e-03_rb,0.95087e-03_rb, &\n        & 0.10164e-02_rb,0.10820e-02_rb,0.11070e-02_rb,0.10996e-02_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.60743e-03_rb,0.66421e-03_rb,0.77076e-03_rb,0.86668e-03_rb,0.94936e-03_rb, &\n        & 0.10146e-02_rb,0.10809e-02_rb,0.11066e-02_rb,0.10979e-02_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.60721e-03_rb,0.66487e-03_rb,0.77207e-03_rb,0.87093e-03_rb,0.95679e-03_rb, &\n        & 0.10247e-02_rb,0.10950e-02_rb,0.11248e-02_rb,0.11171e-02_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.60632e-03_rb,0.66259e-03_rb,0.76645e-03_rb,0.86469e-03_rb,0.94611e-03_rb, &\n        & 0.10116e-02_rb,0.10778e-02_rb,0.11040e-02_rb,0.10953e-02_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.52196e-03_rb,0.61309e-03_rb,0.74127e-03_rb,0.84825e-03_rb,0.93805e-03_rb, &\n        & 0.10078e-02_rb,0.10732e-02_rb,0.11156e-02_rb,0.10964e-02_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.52205e-03_rb,0.61209e-03_rb,0.73709e-03_rb,0.84586e-03_rb,0.93585e-03_rb, &\n        & 0.10074e-02_rb,0.10727e-02_rb,0.11168e-02_rb,0.10976e-02_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.52218e-03_rb,0.61175e-03_rb,0.73426e-03_rb,0.84316e-03_rb,0.93485e-03_rb, &\n        & 0.10055e-02_rb,0.10718e-02_rb,0.11162e-02_rb,0.10985e-02_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.52176e-03_rb,0.61131e-03_rb,0.73315e-03_rb,0.84162e-03_rb,0.93319e-03_rb, &\n        & 0.10035e-02_rb,0.10709e-02_rb,0.11149e-02_rb,0.11000e-02_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.52100e-03_rb,0.61215e-03_rb,0.73639e-03_rb,0.84868e-03_rb,0.94102e-03_rb, &\n        & 0.10132e-02_rb,0.10822e-02_rb,0.11303e-02_rb,0.11192e-02_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.44537e-03_rb,0.56415e-03_rb,0.70334e-03_rb,0.81986e-03_rb,0.91737e-03_rb, &\n        & 0.99505e-03_rb,0.10590e-02_rb,0.11155e-02_rb,0.10855e-02_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.44499e-03_rb,0.56304e-03_rb,0.70021e-03_rb,0.81824e-03_rb,0.91496e-03_rb, &\n        & 0.99465e-03_rb,0.10577e-02_rb,0.11163e-02_rb,0.10886e-02_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.44481e-03_rb,0.56231e-03_rb,0.69884e-03_rb,0.81557e-03_rb,0.91387e-03_rb, &\n        & 0.99269e-03_rb,0.10566e-02_rb,0.11154e-02_rb,0.10925e-02_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.44459e-03_rb,0.56155e-03_rb,0.69827e-03_rb,0.81462e-03_rb,0.91145e-03_rb, &\n        & 0.99105e-03_rb,0.10558e-02_rb,0.11141e-02_rb,0.10950e-02_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.44401e-03_rb,0.56266e-03_rb,0.70342e-03_rb,0.82262e-03_rb,0.92017e-03_rb, &\n        & 0.10017e-02_rb,0.10686e-02_rb,0.11300e-02_rb,0.11166e-02_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.37714e-03_rb,0.51787e-03_rb,0.66544e-03_rb,0.78793e-03_rb,0.89178e-03_rb, &\n        & 0.97506e-03_rb,0.10421e-02_rb,0.11072e-02_rb,0.10679e-02_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.37645e-03_rb,0.51719e-03_rb,0.66329e-03_rb,0.78619e-03_rb,0.88946e-03_rb, &\n        & 0.97613e-03_rb,0.10421e-02_rb,0.11076e-02_rb,0.10727e-02_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.37621e-03_rb,0.51663e-03_rb,0.66248e-03_rb,0.78421e-03_rb,0.88840e-03_rb, &\n        & 0.97530e-03_rb,0.10423e-02_rb,0.11074e-02_rb,0.10773e-02_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.37625e-03_rb,0.51591e-03_rb,0.66198e-03_rb,0.78342e-03_rb,0.88665e-03_rb, &\n        & 0.97510e-03_rb,0.10427e-02_rb,0.11065e-02_rb,0.10807e-02_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.37578e-03_rb,0.51583e-03_rb,0.66231e-03_rb,0.78322e-03_rb,0.88597e-03_rb, &\n        & 0.97458e-03_rb,0.10416e-02_rb,0.11045e-02_rb,0.10828e-02_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.31849e-03_rb,0.47598e-03_rb,0.62784e-03_rb,0.75245e-03_rb,0.86097e-03_rb, &\n        & 0.95037e-03_rb,0.10228e-02_rb,0.10907e-02_rb,0.10381e-02_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.31748e-03_rb,0.47565e-03_rb,0.62625e-03_rb,0.75127e-03_rb,0.86016e-03_rb, &\n        & 0.95292e-03_rb,0.10249e-02_rb,0.10924e-02_rb,0.10446e-02_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.31709e-03_rb,0.47527e-03_rb,0.62527e-03_rb,0.75044e-03_rb,0.86086e-03_rb, &\n        & 0.95398e-03_rb,0.10272e-02_rb,0.10943e-02_rb,0.10513e-02_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.31690e-03_rb,0.47506e-03_rb,0.62534e-03_rb,0.75023e-03_rb,0.86098e-03_rb, &\n        & 0.95576e-03_rb,0.10298e-02_rb,0.10956e-02_rb,0.10570e-02_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.31661e-03_rb,0.47556e-03_rb,0.62564e-03_rb,0.75129e-03_rb,0.86194e-03_rb, &\n        & 0.95752e-03_rb,0.10312e-02_rb,0.10967e-02_rb,0.10605e-02_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.26920e-03_rb,0.43740e-03_rb,0.58907e-03_rb,0.71604e-03_rb,0.82585e-03_rb, &\n        & 0.92017e-03_rb,0.99828e-03_rb,0.10677e-02_rb,0.99191e-03_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.26802e-03_rb,0.43738e-03_rb,0.58846e-03_rb,0.71590e-03_rb,0.82753e-03_rb, &\n        & 0.92484e-03_rb,0.10036e-02_rb,0.10726e-02_rb,0.10010e-02_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.26738e-03_rb,0.43742e-03_rb,0.58827e-03_rb,0.71679e-03_rb,0.83051e-03_rb, &\n        & 0.92821e-03_rb,0.10079e-02_rb,0.10772e-02_rb,0.10102e-02_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.26701e-03_rb,0.43751e-03_rb,0.58933e-03_rb,0.71793e-03_rb,0.83304e-03_rb, &\n        & 0.93190e-03_rb,0.10124e-02_rb,0.10810e-02_rb,0.10188e-02_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.26686e-03_rb,0.43824e-03_rb,0.58999e-03_rb,0.72050e-03_rb,0.83607e-03_rb, &\n        & 0.93581e-03_rb,0.10160e-02_rb,0.10848e-02_rb,0.10263e-02_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.22904e-03_rb,0.40123e-03_rb,0.55115e-03_rb,0.67712e-03_rb,0.78732e-03_rb, &\n        & 0.88313e-03_rb,0.96568e-03_rb,0.10387e-02_rb,0.14403e-04_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.22775e-03_rb,0.40129e-03_rb,0.55155e-03_rb,0.67918e-03_rb,0.79168e-03_rb, &\n        & 0.89045e-03_rb,0.97356e-03_rb,0.10468e-02_rb,0.17396e-04_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.22691e-03_rb,0.40187e-03_rb,0.55239e-03_rb,0.68238e-03_rb,0.79664e-03_rb, &\n        & 0.89641e-03_rb,0.98013e-03_rb,0.10538e-02_rb,0.17983e-04_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.22637e-03_rb,0.40220e-03_rb,0.55452e-03_rb,0.68525e-03_rb,0.80145e-03_rb, &\n        & 0.90223e-03_rb,0.98673e-03_rb,0.10599e-02_rb,0.14884e-04_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.22595e-03_rb,0.40316e-03_rb,0.55613e-03_rb,0.68950e-03_rb,0.80623e-03_rb, &\n        & 0.90849e-03_rb,0.99244e-03_rb,0.10655e-02_rb,0.19485e-04_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.19610e-03_rb,0.36707e-03_rb,0.51305e-03_rb,0.63612e-03_rb,0.74337e-03_rb, &\n        & 0.83875e-03_rb,0.92458e-03_rb,0.10007e-02_rb,0.30583e-04_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.19499e-03_rb,0.36759e-03_rb,0.51501e-03_rb,0.64066e-03_rb,0.75082e-03_rb, &\n        & 0.84853e-03_rb,0.93443e-03_rb,0.10117e-02_rb,0.20484e-04_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.19427e-03_rb,0.36886e-03_rb,0.51745e-03_rb,0.64625e-03_rb,0.75815e-03_rb, &\n        & 0.85733e-03_rb,0.94303e-03_rb,0.10217e-02_rb,0.20784e-04_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.19367e-03_rb,0.36958e-03_rb,0.52106e-03_rb,0.65093e-03_rb,0.76545e-03_rb, &\n        & 0.86571e-03_rb,0.95244e-03_rb,0.10301e-02_rb,0.30511e-04_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.19319e-03_rb,0.37098e-03_rb,0.52409e-03_rb,0.65675e-03_rb,0.77258e-03_rb, &\n        & 0.87491e-03_rb,0.96110e-03_rb,0.10378e-02_rb,0.19883e-04_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.16767e-03_rb,0.33624e-03_rb,0.47635e-03_rb,0.59543e-03_rb,0.70301e-03_rb, &\n        & 0.79872e-03_rb,0.88652e-03_rb,0.96550e-03_rb,0.27483e-04_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.16687e-03_rb,0.33764e-03_rb,0.48055e-03_rb,0.60283e-03_rb,0.71186e-03_rb, &\n        & 0.80978e-03_rb,0.89673e-03_rb,0.97758e-03_rb,0.20639e-04_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.16664e-03_rb,0.33942e-03_rb,0.48524e-03_rb,0.60962e-03_rb,0.72075e-03_rb, &\n        & 0.81953e-03_rb,0.90753e-03_rb,0.98729e-03_rb,0.27689e-04_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.16611e-03_rb,0.34104e-03_rb,0.48994e-03_rb,0.61708e-03_rb,0.72992e-03_rb, &\n        & 0.83047e-03_rb,0.91898e-03_rb,0.99769e-03_rb,0.13719e-04_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.16596e-03_rb,0.34313e-03_rb,0.49467e-03_rb,0.62538e-03_rb,0.73960e-03_rb, &\n        & 0.84171e-03_rb,0.92999e-03_rb,0.10075e-02_rb,0.27137e-04_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.14282e-03_rb,0.30890e-03_rb,0.44183e-03_rb,0.55831e-03_rb,0.66503e-03_rb, &\n        & 0.76077e-03_rb,0.84890e-03_rb,0.93128e-03_rb,0.21228e-04_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.14255e-03_rb,0.31125e-03_rb,0.44731e-03_rb,0.56685e-03_rb,0.67491e-03_rb, &\n        & 0.77277e-03_rb,0.86092e-03_rb,0.94274e-03_rb,0.32331e-04_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.14244e-03_rb,0.31334e-03_rb,0.45354e-03_rb,0.57479e-03_rb,0.68552e-03_rb, &\n        & 0.78420e-03_rb,0.87396e-03_rb,0.95434e-03_rb,0.19978e-06_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.14239e-03_rb,0.31614e-03_rb,0.45984e-03_rb,0.58419e-03_rb,0.69607e-03_rb, &\n        & 0.79750e-03_rb,0.88765e-03_rb,0.96637e-03_rb,0.21475e-04_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.14252e-03_rb,0.31876e-03_rb,0.46658e-03_rb,0.59385e-03_rb,0.70775e-03_rb, &\n        & 0.80986e-03_rb,0.90037e-03_rb,0.97814e-03_rb,0.21476e-04_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.12125e-03_rb,0.28444e-03_rb,0.41080e-03_rb,0.52444e-03_rb,0.62932e-03_rb, &\n        & 0.72481e-03_rb,0.81245e-03_rb,0.89716e-03_rb,0.27405e-04_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.12138e-03_rb,0.28788e-03_rb,0.41712e-03_rb,0.53396e-03_rb,0.64078e-03_rb, &\n        & 0.73819e-03_rb,0.82737e-03_rb,0.91020e-03_rb,0.13699e-04_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.12142e-03_rb,0.29086e-03_rb,0.42441e-03_rb,0.54338e-03_rb,0.65260e-03_rb, &\n        & 0.75224e-03_rb,0.84352e-03_rb,0.92398e-03_rb,0.13820e-04_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.12174e-03_rb,0.29430e-03_rb,0.43176e-03_rb,0.55440e-03_rb,0.66546e-03_rb, &\n        & 0.76738e-03_rb,0.85914e-03_rb,0.93821e-03_rb,0.26505e-06_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.12197e-03_rb,0.29750e-03_rb,0.43989e-03_rb,0.56500e-03_rb,0.67844e-03_rb, &\n        & 0.78071e-03_rb,0.87280e-03_rb,0.95108e-03_rb,0.33764e-06_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.15537e-02_rb,0.13818e-02_rb,0.14273e-02_rb,0.15055e-02_rb,0.15786e-02_rb, &\n        & 0.16339e-02_rb,0.16467e-02_rb,0.15800e-02_rb,0.16050e-02_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.15485e-02_rb,0.13765e-02_rb,0.14181e-02_rb,0.14978e-02_rb,0.15727e-02_rb, &\n        & 0.16256e-02_rb,0.16371e-02_rb,0.15728e-02_rb,0.16005e-02_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.15437e-02_rb,0.13722e-02_rb,0.14122e-02_rb,0.14971e-02_rb,0.15752e-02_rb, &\n        & 0.16261e-02_rb,0.16396e-02_rb,0.15797e-02_rb,0.16209e-02_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.15424e-02_rb,0.13691e-02_rb,0.14015e-02_rb,0.14839e-02_rb,0.15593e-02_rb, &\n        & 0.16040e-02_rb,0.16150e-02_rb,0.15487e-02_rb,0.15957e-02_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.15425e-02_rb,0.13681e-02_rb,0.13961e-02_rb,0.14766e-02_rb,0.15502e-02_rb, &\n        & 0.15943e-02_rb,0.16046e-02_rb,0.15376e-02_rb,0.15923e-02_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.14274e-02_rb,0.13101e-02_rb,0.13901e-02_rb,0.14665e-02_rb,0.15597e-02_rb, &\n        & 0.16365e-02_rb,0.16682e-02_rb,0.16286e-02_rb,0.16381e-02_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.14223e-02_rb,0.13039e-02_rb,0.13828e-02_rb,0.14629e-02_rb,0.15522e-02_rb, &\n        & 0.16256e-02_rb,0.16567e-02_rb,0.16183e-02_rb,0.16362e-02_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.14195e-02_rb,0.12999e-02_rb,0.13791e-02_rb,0.14641e-02_rb,0.15538e-02_rb, &\n        & 0.16259e-02_rb,0.16605e-02_rb,0.16235e-02_rb,0.16585e-02_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.14181e-02_rb,0.12958e-02_rb,0.13726e-02_rb,0.14576e-02_rb,0.15447e-02_rb, &\n        & 0.16149e-02_rb,0.16487e-02_rb,0.16101e-02_rb,0.16540e-02_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.14191e-02_rb,0.12933e-02_rb,0.13650e-02_rb,0.14448e-02_rb,0.15270e-02_rb, &\n        & 0.15959e-02_rb,0.16273e-02_rb,0.15850e-02_rb,0.16279e-02_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.12975e-02_rb,0.12495e-02_rb,0.13516e-02_rb,0.14440e-02_rb,0.15390e-02_rb, &\n        & 0.16298e-02_rb,0.16807e-02_rb,0.16634e-02_rb,0.16697e-02_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.12938e-02_rb,0.12434e-02_rb,0.13457e-02_rb,0.14406e-02_rb,0.15301e-02_rb, &\n        & 0.16196e-02_rb,0.16709e-02_rb,0.16534e-02_rb,0.16671e-02_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.12920e-02_rb,0.12378e-02_rb,0.13412e-02_rb,0.14340e-02_rb,0.15221e-02_rb, &\n        & 0.16094e-02_rb,0.16610e-02_rb,0.16426e-02_rb,0.16655e-02_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.12905e-02_rb,0.12343e-02_rb,0.13399e-02_rb,0.14335e-02_rb,0.15224e-02_rb, &\n        & 0.16137e-02_rb,0.16692e-02_rb,0.16519e-02_rb,0.16891e-02_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.12916e-02_rb,0.12305e-02_rb,0.13333e-02_rb,0.14197e-02_rb,0.15049e-02_rb, &\n        & 0.15945e-02_rb,0.16481e-02_rb,0.16282e-02_rb,0.16593e-02_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.11586e-02_rb,0.11791e-02_rb,0.13059e-02_rb,0.14246e-02_rb,0.15191e-02_rb, &\n        & 0.16155e-02_rb,0.16888e-02_rb,0.16884e-02_rb,0.16900e-02_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.11563e-02_rb,0.11735e-02_rb,0.13020e-02_rb,0.14191e-02_rb,0.15117e-02_rb, &\n        & 0.16067e-02_rb,0.16804e-02_rb,0.16804e-02_rb,0.16885e-02_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.11547e-02_rb,0.11684e-02_rb,0.12989e-02_rb,0.14121e-02_rb,0.15049e-02_rb, &\n        & 0.15986e-02_rb,0.16736e-02_rb,0.16742e-02_rb,0.16864e-02_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.11549e-02_rb,0.11640e-02_rb,0.12947e-02_rb,0.14053e-02_rb,0.14971e-02_rb, &\n        & 0.15940e-02_rb,0.16690e-02_rb,0.16701e-02_rb,0.16826e-02_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.11568e-02_rb,0.11629e-02_rb,0.12947e-02_rb,0.14048e-02_rb,0.15017e-02_rb, &\n        & 0.16054e-02_rb,0.16836e-02_rb,0.16886e-02_rb,0.17044e-02_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.10197e-02_rb,0.11002e-02_rb,0.12563e-02_rb,0.13948e-02_rb,0.15048e-02_rb, &\n        & 0.16026e-02_rb,0.16898e-02_rb,0.17082e-02_rb,0.17013e-02_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.10187e-02_rb,0.10963e-02_rb,0.12532e-02_rb,0.13909e-02_rb,0.14993e-02_rb, &\n        & 0.15953e-02_rb,0.16843e-02_rb,0.17040e-02_rb,0.16991e-02_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.10179e-02_rb,0.10925e-02_rb,0.12502e-02_rb,0.13858e-02_rb,0.14932e-02_rb, &\n        & 0.15900e-02_rb,0.16803e-02_rb,0.17019e-02_rb,0.16952e-02_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.10188e-02_rb,0.10896e-02_rb,0.12461e-02_rb,0.13806e-02_rb,0.14878e-02_rb, &\n        & 0.15873e-02_rb,0.16767e-02_rb,0.17001e-02_rb,0.16925e-02_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.10211e-02_rb,0.10901e-02_rb,0.12464e-02_rb,0.13834e-02_rb,0.14970e-02_rb, &\n        & 0.16026e-02_rb,0.16952e-02_rb,0.17210e-02_rb,0.17180e-02_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.88455e-03_rb,0.10185e-02_rb,0.12021e-02_rb,0.13605e-02_rb,0.14894e-02_rb, &\n        & 0.15922e-02_rb,0.16870e-02_rb,0.17277e-02_rb,0.17006e-02_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.88487e-03_rb,0.10158e-02_rb,0.12001e-02_rb,0.13587e-02_rb,0.14854e-02_rb, &\n        & 0.15856e-02_rb,0.16819e-02_rb,0.17253e-02_rb,0.17001e-02_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.88512e-03_rb,0.10136e-02_rb,0.11981e-02_rb,0.13544e-02_rb,0.14820e-02_rb, &\n        & 0.15811e-02_rb,0.16785e-02_rb,0.17233e-02_rb,0.16989e-02_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.88698e-03_rb,0.10127e-02_rb,0.11948e-02_rb,0.13505e-02_rb,0.14784e-02_rb, &\n        & 0.15789e-02_rb,0.16749e-02_rb,0.17211e-02_rb,0.16988e-02_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.88923e-03_rb,0.10128e-02_rb,0.11919e-02_rb,0.13468e-02_rb,0.14756e-02_rb, &\n        & 0.15764e-02_rb,0.16734e-02_rb,0.17190e-02_rb,0.16990e-02_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.75937e-03_rb,0.93876e-03_rb,0.11443e-02_rb,0.13228e-02_rb,0.14681e-02_rb, &\n        & 0.15807e-02_rb,0.16771e-02_rb,0.17403e-02_rb,0.16920e-02_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.75998e-03_rb,0.93770e-03_rb,0.11447e-02_rb,0.13222e-02_rb,0.14656e-02_rb, &\n        & 0.15751e-02_rb,0.16722e-02_rb,0.17374e-02_rb,0.16943e-02_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.76057e-03_rb,0.93698e-03_rb,0.11442e-02_rb,0.13192e-02_rb,0.14630e-02_rb, &\n        & 0.15711e-02_rb,0.16684e-02_rb,0.17351e-02_rb,0.16966e-02_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.76306e-03_rb,0.93700e-03_rb,0.11417e-02_rb,0.13175e-02_rb,0.14605e-02_rb, &\n        & 0.15679e-02_rb,0.16649e-02_rb,0.17327e-02_rb,0.16998e-02_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.76563e-03_rb,0.93740e-03_rb,0.11401e-02_rb,0.13155e-02_rb,0.14583e-02_rb, &\n        & 0.15655e-02_rb,0.16637e-02_rb,0.17306e-02_rb,0.17045e-02_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.64586e-03_rb,0.86421e-03_rb,0.10884e-02_rb,0.12806e-02_rb,0.14383e-02_rb, &\n        & 0.15636e-02_rb,0.16605e-02_rb,0.17434e-02_rb,0.16711e-02_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.64665e-03_rb,0.86473e-03_rb,0.10896e-02_rb,0.12820e-02_rb,0.14363e-02_rb, &\n        & 0.15592e-02_rb,0.16561e-02_rb,0.17403e-02_rb,0.16771e-02_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.64816e-03_rb,0.86506e-03_rb,0.10903e-02_rb,0.12802e-02_rb,0.14357e-02_rb, &\n        & 0.15554e-02_rb,0.16529e-02_rb,0.17367e-02_rb,0.16846e-02_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.65115e-03_rb,0.86561e-03_rb,0.10893e-02_rb,0.12797e-02_rb,0.14336e-02_rb, &\n        & 0.15533e-02_rb,0.16505e-02_rb,0.17349e-02_rb,0.16920e-02_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.65335e-03_rb,0.86692e-03_rb,0.10897e-02_rb,0.12788e-02_rb,0.14323e-02_rb, &\n        & 0.15519e-02_rb,0.16494e-02_rb,0.17328e-02_rb,0.17005e-02_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.54495e-03_rb,0.79374e-03_rb,0.10331e-02_rb,0.12325e-02_rb,0.13999e-02_rb, &\n        & 0.15343e-02_rb,0.16359e-02_rb,0.17304e-02_rb,0.88289e-03_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.54631e-03_rb,0.79621e-03_rb,0.10351e-02_rb,0.12356e-02_rb,0.13999e-02_rb, &\n        & 0.15332e-02_rb,0.16343e-02_rb,0.17287e-02_rb,0.90009e-03_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.54838e-03_rb,0.79738e-03_rb,0.10366e-02_rb,0.12358e-02_rb,0.14008e-02_rb, &\n        & 0.15312e-02_rb,0.16325e-02_rb,0.17267e-02_rb,0.91715e-03_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.55103e-03_rb,0.79925e-03_rb,0.10373e-02_rb,0.12370e-02_rb,0.14003e-02_rb, &\n        & 0.15313e-02_rb,0.16317e-02_rb,0.17265e-02_rb,0.93948e-03_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.55358e-03_rb,0.80158e-03_rb,0.10391e-02_rb,0.12370e-02_rb,0.14008e-02_rb, &\n        & 0.15320e-02_rb,0.16328e-02_rb,0.17271e-02_rb,0.97099e-03_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.45828e-03_rb,0.73128e-03_rb,0.97725e-03_rb,0.11801e-02_rb,0.13541e-02_rb, &\n        & 0.14966e-02_rb,0.16059e-02_rb,0.17081e-02_rb,0.25261e-04_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.45994e-03_rb,0.73433e-03_rb,0.98047e-03_rb,0.11852e-02_rb,0.13571e-02_rb, &\n        & 0.14993e-02_rb,0.16071e-02_rb,0.17093e-02_rb,0.32778e-04_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.46172e-03_rb,0.73698e-03_rb,0.98332e-03_rb,0.11877e-02_rb,0.13607e-02_rb, &\n        & 0.15001e-02_rb,0.16089e-02_rb,0.17098e-02_rb,0.30108e-04_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.46419e-03_rb,0.73967e-03_rb,0.98568e-03_rb,0.11903e-02_rb,0.13620e-02_rb, &\n        & 0.15042e-02_rb,0.16117e-02_rb,0.17131e-02_rb,0.14814e-04_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.46710e-03_rb,0.74287e-03_rb,0.98852e-03_rb,0.11927e-02_rb,0.13653e-02_rb, &\n        & 0.15080e-02_rb,0.16153e-02_rb,0.17174e-02_rb,0.18206e-04_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.38711e-03_rb,0.67660e-03_rb,0.92352e-03_rb,0.11285e-02_rb,0.13042e-02_rb, &\n        & 0.14533e-02_rb,0.15680e-02_rb,0.16768e-02_rb,0.35375e-04_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.38827e-03_rb,0.68076e-03_rb,0.92811e-03_rb,0.11355e-02_rb,0.13110e-02_rb, &\n        & 0.14578e-02_rb,0.15732e-02_rb,0.16802e-02_rb,0.17785e-04_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.39017e-03_rb,0.68339e-03_rb,0.93243e-03_rb,0.11404e-02_rb,0.13179e-02_rb, &\n        & 0.14648e-02_rb,0.15809e-02_rb,0.16870e-02_rb,0.17310e-04_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.39259e-03_rb,0.68706e-03_rb,0.93609e-03_rb,0.11451e-02_rb,0.13243e-02_rb, &\n        & 0.14746e-02_rb,0.15892e-02_rb,0.16958e-02_rb,0.17795e-04_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.39544e-03_rb,0.69011e-03_rb,0.94016e-03_rb,0.11496e-02_rb,0.13318e-02_rb, &\n        & 0.14825e-02_rb,0.15980e-02_rb,0.17052e-02_rb,0.87581e-05_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.32882e-03_rb,0.62658e-03_rb,0.87124e-03_rb,0.10770e-02_rb,0.12526e-02_rb, &\n        & 0.14042e-02_rb,0.15246e-02_rb,0.16367e-02_rb,0.13823e-04_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.33008e-03_rb,0.63068e-03_rb,0.87790e-03_rb,0.10857e-02_rb,0.12638e-02_rb, &\n        & 0.14155e-02_rb,0.15376e-02_rb,0.16473e-02_rb,0.27356e-04_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.33191e-03_rb,0.63479e-03_rb,0.88401e-03_rb,0.10939e-02_rb,0.12749e-02_rb, &\n        & 0.14298e-02_rb,0.15521e-02_rb,0.16615e-02_rb,0.26924e-04_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.33384e-03_rb,0.63914e-03_rb,0.88945e-03_rb,0.11023e-02_rb,0.12871e-02_rb, &\n        & 0.14439e-02_rb,0.15651e-02_rb,0.16755e-02_rb,0.13486e-04_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.33630e-03_rb,0.64288e-03_rb,0.89554e-03_rb,0.11106e-02_rb,0.12985e-02_rb, &\n        & 0.14567e-02_rb,0.15792e-02_rb,0.16910e-02_rb,0.54470e-04_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.28179e-03_rb,0.58039e-03_rb,0.82131e-03_rb,0.10258e-02_rb,0.12001e-02_rb, &\n        & 0.13522e-02_rb,0.14762e-02_rb,0.15892e-02_rb,0.17365e-04_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.28322e-03_rb,0.58517e-03_rb,0.83048e-03_rb,0.10376e-02_rb,0.12180e-02_rb, &\n        & 0.13721e-02_rb,0.14980e-02_rb,0.16092e-02_rb,0.19167e-10_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.28449e-03_rb,0.59004e-03_rb,0.83867e-03_rb,0.10495e-02_rb,0.12349e-02_rb, &\n        & 0.13937e-02_rb,0.15189e-02_rb,0.16302e-02_rb,0.17686e-04_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.28623e-03_rb,0.59506e-03_rb,0.84661e-03_rb,0.10616e-02_rb,0.12511e-02_rb, &\n        & 0.14124e-02_rb,0.15380e-02_rb,0.16505e-02_rb,0.27174e-10_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.28834e-03_rb,0.60000e-03_rb,0.85510e-03_rb,0.10735e-02_rb,0.12664e-02_rb, &\n        & 0.14298e-02_rb,0.15583e-02_rb,0.16724e-02_rb,0.30930e-10_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.39229e-02_rb,0.34326e-02_rb,0.30162e-02_rb,0.28699e-02_rb,0.28381e-02_rb, &\n        & 0.27734e-02_rb,0.26260e-02_rb,0.23062e-02_rb,0.25522e-02_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.39213e-02_rb,0.34310e-02_rb,0.30108e-02_rb,0.28565e-02_rb,0.28216e-02_rb, &\n        & 0.27552e-02_rb,0.26075e-02_rb,0.22956e-02_rb,0.25296e-02_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.39180e-02_rb,0.34283e-02_rb,0.30095e-02_rb,0.28490e-02_rb,0.28140e-02_rb, &\n        & 0.27516e-02_rb,0.26057e-02_rb,0.23031e-02_rb,0.25320e-02_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.39161e-02_rb,0.34265e-02_rb,0.30039e-02_rb,0.28320e-02_rb,0.27864e-02_rb, &\n        & 0.27263e-02_rb,0.25779e-02_rb,0.22767e-02_rb,0.24834e-02_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.39129e-02_rb,0.34239e-02_rb,0.29985e-02_rb,0.28202e-02_rb,0.27725e-02_rb, &\n        & 0.27107e-02_rb,0.25647e-02_rb,0.22654e-02_rb,0.24632e-02_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.35717e-02_rb,0.31250e-02_rb,0.28583e-02_rb,0.28716e-02_rb,0.28885e-02_rb, &\n        & 0.28569e-02_rb,0.27419e-02_rb,0.24528e-02_rb,0.26589e-02_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.35704e-02_rb,0.31241e-02_rb,0.28509e-02_rb,0.28521e-02_rb,0.28717e-02_rb, &\n        & 0.28411e-02_rb,0.27277e-02_rb,0.24440e-02_rb,0.26352e-02_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.35692e-02_rb,0.31228e-02_rb,0.28479e-02_rb,0.28438e-02_rb,0.28636e-02_rb, &\n        & 0.28419e-02_rb,0.27327e-02_rb,0.24542e-02_rb,0.26382e-02_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.35651e-02_rb,0.31194e-02_rb,0.28382e-02_rb,0.28288e-02_rb,0.28472e-02_rb, &\n        & 0.28288e-02_rb,0.27211e-02_rb,0.24428e-02_rb,0.26140e-02_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.35614e-02_rb,0.31162e-02_rb,0.28280e-02_rb,0.28080e-02_rb,0.28270e-02_rb, &\n        & 0.28018e-02_rb,0.26919e-02_rb,0.24122e-02_rb,0.25721e-02_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.32370e-02_rb,0.28408e-02_rb,0.27429e-02_rb,0.28459e-02_rb,0.29107e-02_rb, &\n        & 0.29163e-02_rb,0.28452e-02_rb,0.26013e-02_rb,0.27589e-02_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.32378e-02_rb,0.28409e-02_rb,0.27346e-02_rb,0.28282e-02_rb,0.28967e-02_rb, &\n        & 0.29036e-02_rb,0.28357e-02_rb,0.25912e-02_rb,0.27381e-02_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.32344e-02_rb,0.28366e-02_rb,0.27224e-02_rb,0.28159e-02_rb,0.28824e-02_rb, &\n        & 0.28940e-02_rb,0.28268e-02_rb,0.25801e-02_rb,0.27164e-02_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.32328e-02_rb,0.28349e-02_rb,0.27139e-02_rb,0.28071e-02_rb,0.28820e-02_rb, &\n        & 0.28985e-02_rb,0.28328e-02_rb,0.25870e-02_rb,0.27280e-02_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.32337e-02_rb,0.28348e-02_rb,0.27027e-02_rb,0.27877e-02_rb,0.28613e-02_rb, &\n        & 0.28723e-02_rb,0.28004e-02_rb,0.25498e-02_rb,0.26848e-02_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.29442e-02_rb,0.26158e-02_rb,0.26686e-02_rb,0.28002e-02_rb,0.29074e-02_rb, &\n        & 0.29569e-02_rb,0.29354e-02_rb,0.27381e-02_rb,0.28491e-02_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.29416e-02_rb,0.26110e-02_rb,0.26570e-02_rb,0.27866e-02_rb,0.28959e-02_rb, &\n        & 0.29477e-02_rb,0.29295e-02_rb,0.27262e-02_rb,0.28287e-02_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.29392e-02_rb,0.26064e-02_rb,0.26421e-02_rb,0.27765e-02_rb,0.28845e-02_rb, &\n        & 0.29406e-02_rb,0.29202e-02_rb,0.27107e-02_rb,0.28099e-02_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.29406e-02_rb,0.26055e-02_rb,0.26309e-02_rb,0.27645e-02_rb,0.28769e-02_rb, &\n        & 0.29312e-02_rb,0.29057e-02_rb,0.26928e-02_rb,0.27972e-02_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.29379e-02_rb,0.26016e-02_rb,0.26230e-02_rb,0.27605e-02_rb,0.28772e-02_rb, &\n        & 0.29338e-02_rb,0.29114e-02_rb,0.26956e-02_rb,0.28225e-02_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.26861e-02_rb,0.24510e-02_rb,0.26014e-02_rb,0.27478e-02_rb,0.28811e-02_rb, &\n        & 0.29878e-02_rb,0.30091e-02_rb,0.28610e-02_rb,0.29320e-02_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.26822e-02_rb,0.24426e-02_rb,0.25898e-02_rb,0.27369e-02_rb,0.28725e-02_rb, &\n        & 0.29815e-02_rb,0.30039e-02_rb,0.28485e-02_rb,0.29157e-02_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.26829e-02_rb,0.24377e-02_rb,0.25766e-02_rb,0.27289e-02_rb,0.28648e-02_rb, &\n        & 0.29741e-02_rb,0.29940e-02_rb,0.28292e-02_rb,0.29014e-02_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.26816e-02_rb,0.24329e-02_rb,0.25674e-02_rb,0.27192e-02_rb,0.28602e-02_rb, &\n        & 0.29643e-02_rb,0.29808e-02_rb,0.28105e-02_rb,0.28911e-02_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.26776e-02_rb,0.24242e-02_rb,0.25584e-02_rb,0.27174e-02_rb,0.28631e-02_rb, &\n        & 0.29690e-02_rb,0.29916e-02_rb,0.28176e-02_rb,0.29253e-02_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.24590e-02_rb,0.23376e-02_rb,0.25355e-02_rb,0.26945e-02_rb,0.28553e-02_rb, &\n        & 0.29996e-02_rb,0.30574e-02_rb,0.29544e-02_rb,0.30033e-02_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.24565e-02_rb,0.23281e-02_rb,0.25242e-02_rb,0.26862e-02_rb,0.28495e-02_rb, &\n        & 0.29966e-02_rb,0.30559e-02_rb,0.29459e-02_rb,0.29901e-02_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.24594e-02_rb,0.23224e-02_rb,0.25135e-02_rb,0.26796e-02_rb,0.28441e-02_rb, &\n        & 0.29914e-02_rb,0.30494e-02_rb,0.29315e-02_rb,0.29796e-02_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.24561e-02_rb,0.23120e-02_rb,0.25070e-02_rb,0.26723e-02_rb,0.28398e-02_rb, &\n        & 0.29830e-02_rb,0.30431e-02_rb,0.29165e-02_rb,0.29718e-02_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.24544e-02_rb,0.23009e-02_rb,0.24971e-02_rb,0.26678e-02_rb,0.28335e-02_rb, &\n        & 0.29758e-02_rb,0.30342e-02_rb,0.29019e-02_rb,0.29654e-02_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.22277e-02_rb,0.22296e-02_rb,0.24669e-02_rb,0.26497e-02_rb,0.28285e-02_rb, &\n        & 0.29885e-02_rb,0.30855e-02_rb,0.30292e-02_rb,0.30616e-02_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.22293e-02_rb,0.22219e-02_rb,0.24569e-02_rb,0.26437e-02_rb,0.28247e-02_rb, &\n        & 0.29924e-02_rb,0.30879e-02_rb,0.30266e-02_rb,0.30510e-02_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.22351e-02_rb,0.22176e-02_rb,0.24495e-02_rb,0.26382e-02_rb,0.28222e-02_rb, &\n        & 0.29913e-02_rb,0.30877e-02_rb,0.30175e-02_rb,0.30415e-02_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.22344e-02_rb,0.22079e-02_rb,0.24453e-02_rb,0.26324e-02_rb,0.28192e-02_rb, &\n        & 0.29887e-02_rb,0.30862e-02_rb,0.30074e-02_rb,0.30342e-02_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.22361e-02_rb,0.21982e-02_rb,0.24378e-02_rb,0.26291e-02_rb,0.28143e-02_rb, &\n        & 0.29850e-02_rb,0.30822e-02_rb,0.29969e-02_rb,0.30270e-02_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.19878e-02_rb,0.21080e-02_rb,0.23886e-02_rb,0.26087e-02_rb,0.27952e-02_rb, &\n        & 0.29676e-02_rb,0.31003e-02_rb,0.30904e-02_rb,0.31018e-02_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.19936e-02_rb,0.21034e-02_rb,0.23825e-02_rb,0.26049e-02_rb,0.27978e-02_rb, &\n        & 0.29755e-02_rb,0.31107e-02_rb,0.30954e-02_rb,0.30940e-02_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.20012e-02_rb,0.21016e-02_rb,0.23778e-02_rb,0.26010e-02_rb,0.27982e-02_rb, &\n        & 0.29815e-02_rb,0.31166e-02_rb,0.30929e-02_rb,0.30865e-02_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.20034e-02_rb,0.20960e-02_rb,0.23764e-02_rb,0.25979e-02_rb,0.27992e-02_rb, &\n        & 0.29823e-02_rb,0.31192e-02_rb,0.30868e-02_rb,0.30812e-02_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.20095e-02_rb,0.20891e-02_rb,0.23711e-02_rb,0.25960e-02_rb,0.27964e-02_rb, &\n        & 0.29828e-02_rb,0.31181e-02_rb,0.30806e-02_rb,0.30733e-02_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.17523e-02_rb,0.19789e-02_rb,0.23024e-02_rb,0.25572e-02_rb,0.27629e-02_rb, &\n        & 0.29479e-02_rb,0.31085e-02_rb,0.31444e-02_rb,0.30417e-02_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.17607e-02_rb,0.19777e-02_rb,0.23013e-02_rb,0.25587e-02_rb,0.27691e-02_rb, &\n        & 0.29613e-02_rb,0.31227e-02_rb,0.31535e-02_rb,0.30346e-02_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.17693e-02_rb,0.19800e-02_rb,0.23011e-02_rb,0.25605e-02_rb,0.27739e-02_rb, &\n        & 0.29714e-02_rb,0.31329e-02_rb,0.31549e-02_rb,0.30299e-02_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.17751e-02_rb,0.19773e-02_rb,0.23025e-02_rb,0.25606e-02_rb,0.27770e-02_rb, &\n        & 0.29770e-02_rb,0.31405e-02_rb,0.31532e-02_rb,0.30280e-02_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.17845e-02_rb,0.19738e-02_rb,0.23006e-02_rb,0.25633e-02_rb,0.27766e-02_rb, &\n        & 0.29802e-02_rb,0.31452e-02_rb,0.31517e-02_rb,0.30317e-02_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.15244e-02_rb,0.18437e-02_rb,0.22100e-02_rb,0.24972e-02_rb,0.27331e-02_rb, &\n        & 0.29304e-02_rb,0.31059e-02_rb,0.31844e-02_rb,0.23817e-04_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.15360e-02_rb,0.18467e-02_rb,0.22145e-02_rb,0.25068e-02_rb,0.27437e-02_rb, &\n        & 0.29473e-02_rb,0.31260e-02_rb,0.31986e-02_rb,0.12454e-04_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.15476e-02_rb,0.18512e-02_rb,0.22181e-02_rb,0.25119e-02_rb,0.27538e-02_rb, &\n        & 0.29593e-02_rb,0.31389e-02_rb,0.32042e-02_rb,0.30814e-04_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.15571e-02_rb,0.18528e-02_rb,0.22235e-02_rb,0.25174e-02_rb,0.27591e-02_rb, &\n        & 0.29666e-02_rb,0.31497e-02_rb,0.32063e-02_rb,0.11698e-04_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.15695e-02_rb,0.18534e-02_rb,0.22262e-02_rb,0.25236e-02_rb,0.27611e-02_rb, &\n        & 0.29733e-02_rb,0.31600e-02_rb,0.32093e-02_rb,0.22330e-04_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.13188e-02_rb,0.17123e-02_rb,0.21150e-02_rb,0.24398e-02_rb,0.27060e-02_rb, &\n        & 0.29190e-02_rb,0.31061e-02_rb,0.32197e-02_rb,0.11689e-04_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.13341e-02_rb,0.17189e-02_rb,0.21240e-02_rb,0.24532e-02_rb,0.27222e-02_rb, &\n        & 0.29371e-02_rb,0.31262e-02_rb,0.32338e-02_rb,0.11845e-04_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.13447e-02_rb,0.17274e-02_rb,0.21339e-02_rb,0.24651e-02_rb,0.27343e-02_rb, &\n        & 0.29498e-02_rb,0.31430e-02_rb,0.32440e-02_rb,0.24255e-04_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.13578e-02_rb,0.17324e-02_rb,0.21454e-02_rb,0.24765e-02_rb,0.27400e-02_rb, &\n        & 0.29585e-02_rb,0.31579e-02_rb,0.32502e-02_rb,0.35648e-04_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.13715e-02_rb,0.17394e-02_rb,0.21518e-02_rb,0.24842e-02_rb,0.27436e-02_rb, &\n        & 0.29689e-02_rb,0.31719e-02_rb,0.32570e-02_rb,0.48216e-04_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.11367e-02_rb,0.15942e-02_rb,0.20255e-02_rb,0.23827e-02_rb,0.26757e-02_rb, &\n        & 0.29001e-02_rb,0.30944e-02_rb,0.32386e-02_rb,0.48616e-12_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.11495e-02_rb,0.16057e-02_rb,0.20405e-02_rb,0.24019e-02_rb,0.26965e-02_rb, &\n        & 0.29177e-02_rb,0.31160e-02_rb,0.32553e-02_rb,0.63803e-12_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.11626e-02_rb,0.16147e-02_rb,0.20558e-02_rb,0.24193e-02_rb,0.27102e-02_rb, &\n        & 0.29330e-02_rb,0.31363e-02_rb,0.32673e-02_rb,0.18451e-04_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.11784e-02_rb,0.16224e-02_rb,0.20681e-02_rb,0.24334e-02_rb,0.27187e-02_rb, &\n        & 0.29473e-02_rb,0.31560e-02_rb,0.32789e-02_rb,0.93725e-12_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.11935e-02_rb,0.16327e-02_rb,0.20790e-02_rb,0.24438e-02_rb,0.27275e-02_rb, &\n        & 0.29614e-02_rb,0.31756e-02_rb,0.32901e-02_rb,0.36773e-04_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.97386e-03_rb,0.14865e-02_rb,0.19422e-02_rb,0.23265e-02_rb,0.26377e-02_rb, &\n        & 0.28742e-02_rb,0.30758e-02_rb,0.32440e-02_rb,0.42838e-12_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.98704e-03_rb,0.15018e-02_rb,0.19617e-02_rb,0.23518e-02_rb,0.26608e-02_rb, &\n        & 0.28955e-02_rb,0.31025e-02_rb,0.32660e-02_rb,0.54956e-12_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.10034e-02_rb,0.15127e-02_rb,0.19822e-02_rb,0.23722e-02_rb,0.26791e-02_rb, &\n        & 0.29131e-02_rb,0.31272e-02_rb,0.32827e-02_rb,0.68281e-12_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.10185e-02_rb,0.15248e-02_rb,0.19990e-02_rb,0.23896e-02_rb,0.26942e-02_rb, &\n        & 0.29331e-02_rb,0.31525e-02_rb,0.33003e-02_rb,0.47348e-04_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.10353e-02_rb,0.15370e-02_rb,0.20122e-02_rb,0.24032e-02_rb,0.27096e-02_rb, &\n        & 0.29526e-02_rb,0.31774e-02_rb,0.33154e-02_rb,0.94094e-12_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.11127e-01_rb,0.97365e-02_rb,0.83450e-02_rb,0.69546e-02_rb,0.57518e-02_rb, &\n        & 0.48972e-02_rb,0.42517e-02_rb,0.34771e-02_rb,0.44616e-02_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.11168e-01_rb,0.97719e-02_rb,0.83762e-02_rb,0.69801e-02_rb,0.57613e-02_rb, &\n        & 0.48914e-02_rb,0.42324e-02_rb,0.34356e-02_rb,0.44183e-02_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.11206e-01_rb,0.98061e-02_rb,0.84051e-02_rb,0.70040e-02_rb,0.57786e-02_rb, &\n        & 0.48973e-02_rb,0.42300e-02_rb,0.34167e-02_rb,0.44088e-02_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.11230e-01_rb,0.98265e-02_rb,0.84228e-02_rb,0.70190e-02_rb,0.57794e-02_rb, &\n        & 0.48702e-02_rb,0.41927e-02_rb,0.33658e-02_rb,0.43365e-02_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.11247e-01_rb,0.98411e-02_rb,0.84348e-02_rb,0.70292e-02_rb,0.57800e-02_rb, &\n        & 0.48600e-02_rb,0.41735e-02_rb,0.33367e-02_rb,0.43003e-02_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.11360e-01_rb,0.99403e-02_rb,0.85204e-02_rb,0.71449e-02_rb,0.60754e-02_rb, &\n        & 0.53678e-02_rb,0.47333e-02_rb,0.38804e-02_rb,0.48459e-02_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.11402e-01_rb,0.99768e-02_rb,0.85517e-02_rb,0.71687e-02_rb,0.60816e-02_rb, &\n        & 0.53522e-02_rb,0.47062e-02_rb,0.38343e-02_rb,0.48034e-02_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.11432e-01_rb,0.10003e-01_rb,0.85744e-02_rb,0.71872e-02_rb,0.60934e-02_rb, &\n        & 0.53498e-02_rb,0.46968e-02_rb,0.38177e-02_rb,0.48004e-02_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.11460e-01_rb,0.10028e-01_rb,0.85956e-02_rb,0.72000e-02_rb,0.60909e-02_rb, &\n        & 0.53282e-02_rb,0.46686e-02_rb,0.37852e-02_rb,0.47598e-02_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.11484e-01_rb,0.10049e-01_rb,0.86132e-02_rb,0.72108e-02_rb,0.60794e-02_rb, &\n        & 0.52951e-02_rb,0.46284e-02_rb,0.37347e-02_rb,0.46895e-02_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.11375e-01_rb,0.99535e-02_rb,0.85318e-02_rb,0.72748e-02_rb,0.63965e-02_rb, &\n        & 0.58374e-02_rb,0.52215e-02_rb,0.43002e-02_rb,0.52258e-02_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.11412e-01_rb,0.99855e-02_rb,0.85592e-02_rb,0.72909e-02_rb,0.63926e-02_rb, &\n        & 0.58142e-02_rb,0.51838e-02_rb,0.42530e-02_rb,0.51857e-02_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.11451e-01_rb,0.10019e-01_rb,0.85873e-02_rb,0.73027e-02_rb,0.63856e-02_rb, &\n        & 0.57886e-02_rb,0.51485e-02_rb,0.42153e-02_rb,0.51479e-02_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.11483e-01_rb,0.10047e-01_rb,0.86122e-02_rb,0.73190e-02_rb,0.63840e-02_rb, &\n        & 0.57742e-02_rb,0.51342e-02_rb,0.42027e-02_rb,0.51482e-02_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.11512e-01_rb,0.10073e-01_rb,0.86339e-02_rb,0.73301e-02_rb,0.63706e-02_rb, &\n        & 0.57344e-02_rb,0.50899e-02_rb,0.41496e-02_rb,0.50782e-02_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.11149e-01_rb,0.97560e-02_rb,0.83906e-02_rb,0.73568e-02_rb,0.67050e-02_rb, &\n        & 0.62789e-02_rb,0.56809e-02_rb,0.47244e-02_rb,0.55742e-02_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.11201e-01_rb,0.98016e-02_rb,0.84237e-02_rb,0.73684e-02_rb,0.66927e-02_rb, &\n        & 0.62506e-02_rb,0.56398e-02_rb,0.46775e-02_rb,0.55381e-02_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.11250e-01_rb,0.98437e-02_rb,0.84576e-02_rb,0.73794e-02_rb,0.66793e-02_rb, &\n        & 0.62192e-02_rb,0.56018e-02_rb,0.46402e-02_rb,0.55028e-02_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.11293e-01_rb,0.98814e-02_rb,0.84883e-02_rb,0.73928e-02_rb,0.66658e-02_rb, &\n        & 0.61879e-02_rb,0.55699e-02_rb,0.46073e-02_rb,0.54669e-02_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.11341e-01_rb,0.99237e-02_rb,0.85206e-02_rb,0.74085e-02_rb,0.66636e-02_rb, &\n        & 0.61710e-02_rb,0.55548e-02_rb,0.45934e-02_rb,0.54646e-02_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.10704e-01_rb,0.93660e-02_rb,0.81568e-02_rb,0.74021e-02_rb,0.69945e-02_rb, &\n        & 0.66654e-02_rb,0.61172e-02_rb,0.51470e-02_rb,0.58967e-02_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.10771e-01_rb,0.94250e-02_rb,0.81953e-02_rb,0.74101e-02_rb,0.69769e-02_rb, &\n        & 0.66347e-02_rb,0.60743e-02_rb,0.50992e-02_rb,0.58616e-02_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.10834e-01_rb,0.94795e-02_rb,0.82348e-02_rb,0.74202e-02_rb,0.69586e-02_rb, &\n        & 0.66047e-02_rb,0.60376e-02_rb,0.50623e-02_rb,0.58279e-02_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.10899e-01_rb,0.95365e-02_rb,0.82726e-02_rb,0.74343e-02_rb,0.69400e-02_rb, &\n        & 0.65760e-02_rb,0.60076e-02_rb,0.50289e-02_rb,0.57953e-02_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.10965e-01_rb,0.95941e-02_rb,0.83123e-02_rb,0.74464e-02_rb,0.69292e-02_rb, &\n        & 0.65626e-02_rb,0.59940e-02_rb,0.50178e-02_rb,0.57938e-02_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.10078e-01_rb,0.88178e-02_rb,0.78666e-02_rb,0.74112e-02_rb,0.72308e-02_rb, &\n        & 0.70100e-02_rb,0.65312e-02_rb,0.55779e-02_rb,0.62140e-02_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.10161e-01_rb,0.88906e-02_rb,0.79113e-02_rb,0.74185e-02_rb,0.72160e-02_rb, &\n        & 0.69843e-02_rb,0.64888e-02_rb,0.55247e-02_rb,0.61818e-02_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.10243e-01_rb,0.89616e-02_rb,0.79583e-02_rb,0.74318e-02_rb,0.71999e-02_rb, &\n        & 0.69579e-02_rb,0.64523e-02_rb,0.54833e-02_rb,0.61492e-02_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.10327e-01_rb,0.90374e-02_rb,0.79989e-02_rb,0.74443e-02_rb,0.71832e-02_rb, &\n        & 0.69350e-02_rb,0.64210e-02_rb,0.54479e-02_rb,0.61172e-02_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.10409e-01_rb,0.91075e-02_rb,0.80421e-02_rb,0.74489e-02_rb,0.71645e-02_rb, &\n        & 0.69118e-02_rb,0.63952e-02_rb,0.54129e-02_rb,0.60849e-02_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.93799e-02_rb,0.82246e-02_rb,0.75645e-02_rb,0.73983e-02_rb,0.74124e-02_rb, &\n        & 0.73054e-02_rb,0.69103e-02_rb,0.59986e-02_rb,0.65205e-02_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.94746e-02_rb,0.83048e-02_rb,0.76105e-02_rb,0.74041e-02_rb,0.74008e-02_rb, &\n        & 0.72835e-02_rb,0.68745e-02_rb,0.59435e-02_rb,0.64911e-02_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.95665e-02_rb,0.83814e-02_rb,0.76560e-02_rb,0.74150e-02_rb,0.73885e-02_rb, &\n        & 0.72645e-02_rb,0.68399e-02_rb,0.59000e-02_rb,0.64612e-02_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.96610e-02_rb,0.84615e-02_rb,0.76953e-02_rb,0.74218e-02_rb,0.73786e-02_rb, &\n        & 0.72467e-02_rb,0.68110e-02_rb,0.58618e-02_rb,0.64309e-02_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.97576e-02_rb,0.85445e-02_rb,0.77428e-02_rb,0.74271e-02_rb,0.73666e-02_rb, &\n        & 0.72295e-02_rb,0.67856e-02_rb,0.58248e-02_rb,0.64018e-02_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.86695e-02_rb,0.76539e-02_rb,0.72832e-02_rb,0.73811e-02_rb,0.75539e-02_rb, &\n        & 0.75395e-02_rb,0.72391e-02_rb,0.63979e-02_rb,0.68067e-02_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.87714e-02_rb,0.77350e-02_rb,0.73260e-02_rb,0.73889e-02_rb,0.75481e-02_rb, &\n        & 0.75307e-02_rb,0.72059e-02_rb,0.63386e-02_rb,0.67797e-02_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.88648e-02_rb,0.78065e-02_rb,0.73635e-02_rb,0.73928e-02_rb,0.75428e-02_rb, &\n        & 0.75176e-02_rb,0.71786e-02_rb,0.62948e-02_rb,0.67512e-02_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.89696e-02_rb,0.78903e-02_rb,0.74008e-02_rb,0.73947e-02_rb,0.75364e-02_rb, &\n        & 0.75091e-02_rb,0.71562e-02_rb,0.62573e-02_rb,0.67249e-02_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.90827e-02_rb,0.79827e-02_rb,0.74524e-02_rb,0.74004e-02_rb,0.75307e-02_rb, &\n        & 0.75004e-02_rb,0.71406e-02_rb,0.62196e-02_rb,0.66995e-02_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.79522e-02_rb,0.71197e-02_rb,0.70358e-02_rb,0.73522e-02_rb,0.76328e-02_rb, &\n        & 0.77097e-02_rb,0.75175e-02_rb,0.67703e-02_rb,0.70524e-02_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.80598e-02_rb,0.71969e-02_rb,0.70715e-02_rb,0.73653e-02_rb,0.76374e-02_rb, &\n        & 0.77113e-02_rb,0.74908e-02_rb,0.67151e-02_rb,0.70338e-02_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.81632e-02_rb,0.72678e-02_rb,0.71027e-02_rb,0.73712e-02_rb,0.76458e-02_rb, &\n        & 0.77123e-02_rb,0.74742e-02_rb,0.66728e-02_rb,0.70182e-02_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.82823e-02_rb,0.73561e-02_rb,0.71392e-02_rb,0.73768e-02_rb,0.76576e-02_rb, &\n        & 0.77143e-02_rb,0.74622e-02_rb,0.66357e-02_rb,0.69991e-02_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.84105e-02_rb,0.74558e-02_rb,0.71910e-02_rb,0.73874e-02_rb,0.76648e-02_rb, &\n        & 0.77180e-02_rb,0.74509e-02_rb,0.65977e-02_rb,0.69736e-02_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.72630e-02_rb,0.66377e-02_rb,0.68373e-02_rb,0.72984e-02_rb,0.76509e-02_rb, &\n        & 0.78294e-02_rb,0.77460e-02_rb,0.71207e-02_rb,0.20344e-04_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.73671e-02_rb,0.67055e-02_rb,0.68587e-02_rb,0.73198e-02_rb,0.76710e-02_rb, &\n        & 0.78437e-02_rb,0.77323e-02_rb,0.70655e-02_rb,0.20564e-04_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.74810e-02_rb,0.67793e-02_rb,0.68858e-02_rb,0.73353e-02_rb,0.76947e-02_rb, &\n        & 0.78590e-02_rb,0.77307e-02_rb,0.70272e-02_rb,0.37563e-05_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.76171e-02_rb,0.68754e-02_rb,0.69230e-02_rb,0.73502e-02_rb,0.77241e-02_rb, &\n        & 0.78765e-02_rb,0.77271e-02_rb,0.69915e-02_rb,0.47236e-05_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.77608e-02_rb,0.69811e-02_rb,0.69732e-02_rb,0.73676e-02_rb,0.77455e-02_rb, &\n        & 0.78941e-02_rb,0.77236e-02_rb,0.69531e-02_rb,0.26047e-04_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.66493e-02_rb,0.62366e-02_rb,0.66807e-02_rb,0.72344e-02_rb,0.76404e-02_rb, &\n        & 0.79217e-02_rb,0.79405e-02_rb,0.74097e-02_rb,0.00000e+00_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.67616e-02_rb,0.63044e-02_rb,0.67053e-02_rb,0.72656e-02_rb,0.76819e-02_rb, &\n        & 0.79515e-02_rb,0.79506e-02_rb,0.73718e-02_rb,0.18408e-04_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.69005e-02_rb,0.63894e-02_rb,0.67349e-02_rb,0.72931e-02_rb,0.77291e-02_rb, &\n        & 0.79845e-02_rb,0.79576e-02_rb,0.73388e-02_rb,0.37607e-04_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.70530e-02_rb,0.64912e-02_rb,0.67712e-02_rb,0.73223e-02_rb,0.77726e-02_rb, &\n        & 0.80170e-02_rb,0.79618e-02_rb,0.73054e-02_rb,0.56367e-04_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.72039e-02_rb,0.65911e-02_rb,0.68118e-02_rb,0.73572e-02_rb,0.78096e-02_rb, &\n        & 0.80477e-02_rb,0.79648e-02_rb,0.72708e-02_rb,0.00000e+00_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.60858e-02_rb,0.58916e-02_rb,0.65335e-02_rb,0.71525e-02_rb,0.76284e-02_rb, &\n        & 0.80006e-02_rb,0.81294e-02_rb,0.76675e-02_rb,0.58588e-04_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.62191e-02_rb,0.59612e-02_rb,0.65675e-02_rb,0.71998e-02_rb,0.76898e-02_rb, &\n        & 0.80500e-02_rb,0.81534e-02_rb,0.76479e-02_rb,0.00000e+00_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.63725e-02_rb,0.60546e-02_rb,0.66095e-02_rb,0.72445e-02_rb,0.77558e-02_rb, &\n        & 0.80973e-02_rb,0.81695e-02_rb,0.76255e-02_rb,0.29841e-04_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.65241e-02_rb,0.61494e-02_rb,0.66519e-02_rb,0.72916e-02_rb,0.78126e-02_rb, &\n        & 0.81445e-02_rb,0.81839e-02_rb,0.75955e-02_rb,0.00000e+00_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.66908e-02_rb,0.62534e-02_rb,0.66904e-02_rb,0.73429e-02_rb,0.78615e-02_rb, &\n        & 0.81879e-02_rb,0.81898e-02_rb,0.75652e-02_rb,0.00000e+00_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.55891e-02_rb,0.56116e-02_rb,0.63936e-02_rb,0.70621e-02_rb,0.76241e-02_rb, &\n        & 0.80837e-02_rb,0.82964e-02_rb,0.79007e-02_rb,0.00000e+00_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.57354e-02_rb,0.56825e-02_rb,0.64439e-02_rb,0.71280e-02_rb,0.77039e-02_rb, &\n        & 0.81460e-02_rb,0.83322e-02_rb,0.78896e-02_rb,0.38090e-04_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.58847e-02_rb,0.57651e-02_rb,0.64971e-02_rb,0.71963e-02_rb,0.77792e-02_rb, &\n        & 0.82047e-02_rb,0.83632e-02_rb,0.78746e-02_rb,0.00000e+00_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.60503e-02_rb,0.58579e-02_rb,0.65448e-02_rb,0.72663e-02_rb,0.78467e-02_rb, &\n        & 0.82617e-02_rb,0.83886e-02_rb,0.78555e-02_rb,0.00000e+00_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.62326e-02_rb,0.59678e-02_rb,0.65939e-02_rb,0.73313e-02_rb,0.79071e-02_rb, &\n        & 0.83133e-02_rb,0.83975e-02_rb,0.78294e-02_rb,0.00000e+00_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.22784e-01_rb,0.19937e-01_rb,0.17089e-01_rb,0.14240e-01_rb,0.11393e-01_rb, &\n        & 0.85439e-02_rb,0.62360e-02_rb,0.50515e-02_rb,0.76952e-02_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.22781e-01_rb,0.19933e-01_rb,0.17085e-01_rb,0.14238e-01_rb,0.11390e-01_rb, &\n        & 0.85426e-02_rb,0.62118e-02_rb,0.49990e-02_rb,0.75953e-02_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.22781e-01_rb,0.19934e-01_rb,0.17086e-01_rb,0.14239e-01_rb,0.11390e-01_rb, &\n        & 0.85428e-02_rb,0.62149e-02_rb,0.49913e-02_rb,0.75531e-02_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.22807e-01_rb,0.19955e-01_rb,0.17104e-01_rb,0.14253e-01_rb,0.11403e-01_rb, &\n        & 0.85521e-02_rb,0.61662e-02_rb,0.48921e-02_rb,0.74213e-02_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.22846e-01_rb,0.19991e-01_rb,0.17134e-01_rb,0.14278e-01_rb,0.11422e-01_rb, &\n        & 0.85672e-02_rb,0.61477e-02_rb,0.48442e-02_rb,0.73437e-02_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.25963e-01_rb,0.22716e-01_rb,0.19471e-01_rb,0.16227e-01_rb,0.12981e-01_rb, &\n        & 0.97432e-02_rb,0.72799e-02_rb,0.58913e-02_rb,0.89930e-02_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.25957e-01_rb,0.22712e-01_rb,0.19468e-01_rb,0.16223e-01_rb,0.12978e-01_rb, &\n        & 0.97376e-02_rb,0.72409e-02_rb,0.58243e-02_rb,0.88738e-02_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.25967e-01_rb,0.22721e-01_rb,0.19475e-01_rb,0.16229e-01_rb,0.12984e-01_rb, &\n        & 0.97376e-02_rb,0.72294e-02_rb,0.57970e-02_rb,0.88082e-02_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.25991e-01_rb,0.22741e-01_rb,0.19493e-01_rb,0.16243e-01_rb,0.12995e-01_rb, &\n        & 0.97464e-02_rb,0.71939e-02_rb,0.57194e-02_rb,0.86974e-02_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.26012e-01_rb,0.22759e-01_rb,0.19508e-01_rb,0.16256e-01_rb,0.13005e-01_rb, &\n        & 0.97539e-02_rb,0.71378e-02_rb,0.56167e-02_rb,0.85506e-02_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.29273e-01_rb,0.25614e-01_rb,0.21954e-01_rb,0.18296e-01_rb,0.14638e-01_rb, &\n        & 0.11059e-01_rb,0.84536e-02_rb,0.68488e-02_rb,0.10453e-01_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.29273e-01_rb,0.25613e-01_rb,0.21954e-01_rb,0.18296e-01_rb,0.14636e-01_rb, &\n        & 0.11040e-01_rb,0.84006e-02_rb,0.67671e-02_rb,0.10308e-01_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.29281e-01_rb,0.25620e-01_rb,0.21957e-01_rb,0.18299e-01_rb,0.14639e-01_rb, &\n        & 0.11029e-01_rb,0.83532e-02_rb,0.66803e-02_rb,0.10170e-01_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.29284e-01_rb,0.25622e-01_rb,0.21963e-01_rb,0.18303e-01_rb,0.14642e-01_rb, &\n        & 0.11027e-01_rb,0.83265e-02_rb,0.66328e-02_rb,0.10072e-01_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.29273e-01_rb,0.25615e-01_rb,0.21955e-01_rb,0.18297e-01_rb,0.14636e-01_rb, &\n        & 0.11016e-01_rb,0.82524e-02_rb,0.65141e-02_rb,0.98927e-02_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.32689e-01_rb,0.28601e-01_rb,0.24517e-01_rb,0.20431e-01_rb,0.16343e-01_rb, &\n        & 0.12498e-01_rb,0.97860e-02_rb,0.79359e-02_rb,0.11964e-01_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.32673e-01_rb,0.28590e-01_rb,0.24505e-01_rb,0.20420e-01_rb,0.16336e-01_rb, &\n        & 0.12462e-01_rb,0.97090e-02_rb,0.78356e-02_rb,0.11793e-01_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.32657e-01_rb,0.28575e-01_rb,0.24494e-01_rb,0.20410e-01_rb,0.16330e-01_rb, &\n        & 0.12434e-01_rb,0.96384e-02_rb,0.77321e-02_rb,0.11625e-01_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.32631e-01_rb,0.28553e-01_rb,0.24473e-01_rb,0.20396e-01_rb,0.16316e-01_rb, &\n        & 0.12404e-01_rb,0.95671e-02_rb,0.76286e-02_rb,0.11457e-01_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.32595e-01_rb,0.28521e-01_rb,0.24445e-01_rb,0.20372e-01_rb,0.16297e-01_rb, &\n        & 0.12376e-01_rb,0.95137e-02_rb,0.75694e-02_rb,0.11318e-01_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.36129e-01_rb,0.31613e-01_rb,0.27097e-01_rb,0.22582e-01_rb,0.18065e-01_rb, &\n        & 0.14059e-01_rb,0.11253e-01_rb,0.91497e-02_rb,0.13513e-01_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.36091e-01_rb,0.31580e-01_rb,0.27068e-01_rb,0.22557e-01_rb,0.18046e-01_rb, &\n        & 0.13996e-01_rb,0.11159e-01_rb,0.90273e-02_rb,0.13314e-01_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.36050e-01_rb,0.31543e-01_rb,0.27038e-01_rb,0.22530e-01_rb,0.18025e-01_rb, &\n        & 0.13938e-01_rb,0.11057e-01_rb,0.89022e-02_rb,0.13117e-01_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.35994e-01_rb,0.31496e-01_rb,0.26994e-01_rb,0.22495e-01_rb,0.17996e-01_rb, &\n        & 0.13877e-01_rb,0.10953e-01_rb,0.87755e-02_rb,0.12914e-01_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.35944e-01_rb,0.31450e-01_rb,0.26957e-01_rb,0.22466e-01_rb,0.17973e-01_rb, &\n        & 0.13819e-01_rb,0.10863e-01_rb,0.86942e-02_rb,0.12744e-01_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.39506e-01_rb,0.34566e-01_rb,0.29627e-01_rb,0.24691e-01_rb,0.19819e-01_rb, &\n        & 0.15734e-01_rb,0.12852e-01_rb,0.10482e-01_rb,0.15100e-01_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.39438e-01_rb,0.34510e-01_rb,0.29581e-01_rb,0.24651e-01_rb,0.19767e-01_rb, &\n        & 0.15626e-01_rb,0.12723e-01_rb,0.10339e-01_rb,0.14869e-01_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.39363e-01_rb,0.34443e-01_rb,0.29524e-01_rb,0.24601e-01_rb,0.19714e-01_rb, &\n        & 0.15531e-01_rb,0.12593e-01_rb,0.10189e-01_rb,0.14636e-01_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.39295e-01_rb,0.34380e-01_rb,0.29468e-01_rb,0.24559e-01_rb,0.19663e-01_rb, &\n        & 0.15432e-01_rb,0.12453e-01_rb,0.10038e-01_rb,0.14402e-01_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.39232e-01_rb,0.34326e-01_rb,0.29423e-01_rb,0.24518e-01_rb,0.19622e-01_rb, &\n        & 0.15336e-01_rb,0.12308e-01_rb,0.98939e-02_rb,0.14172e-01_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.42642e-01_rb,0.37314e-01_rb,0.31983e-01_rb,0.26652e-01_rb,0.21609e-01_rb, &\n        & 0.17542e-01_rb,0.14584e-01_rb,0.11924e-01_rb,0.16714e-01_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.42588e-01_rb,0.37267e-01_rb,0.31942e-01_rb,0.26620e-01_rb,0.21537e-01_rb, &\n        & 0.17385e-01_rb,0.14405e-01_rb,0.11750e-01_rb,0.16453e-01_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.42519e-01_rb,0.37203e-01_rb,0.31888e-01_rb,0.26575e-01_rb,0.21450e-01_rb, &\n        & 0.17237e-01_rb,0.14233e-01_rb,0.11569e-01_rb,0.16190e-01_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.42450e-01_rb,0.37145e-01_rb,0.31837e-01_rb,0.26531e-01_rb,0.21364e-01_rb, &\n        & 0.17089e-01_rb,0.14051e-01_rb,0.11390e-01_rb,0.15924e-01_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.42372e-01_rb,0.37075e-01_rb,0.31780e-01_rb,0.26482e-01_rb,0.21293e-01_rb, &\n        & 0.16947e-01_rb,0.13866e-01_rb,0.11216e-01_rb,0.15662e-01_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.45438e-01_rb,0.39757e-01_rb,0.34077e-01_rb,0.28427e-01_rb,0.23418e-01_rb, &\n        & 0.19456e-01_rb,0.16427e-01_rb,0.13456e-01_rb,0.18359e-01_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.45420e-01_rb,0.39742e-01_rb,0.34065e-01_rb,0.28396e-01_rb,0.23308e-01_rb, &\n        & 0.19242e-01_rb,0.16196e-01_rb,0.13253e-01_rb,0.18076e-01_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.45404e-01_rb,0.39728e-01_rb,0.34054e-01_rb,0.28379e-01_rb,0.23190e-01_rb, &\n        & 0.19044e-01_rb,0.15968e-01_rb,0.13036e-01_rb,0.17789e-01_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.45355e-01_rb,0.39684e-01_rb,0.34015e-01_rb,0.28348e-01_rb,0.23074e-01_rb, &\n        & 0.18841e-01_rb,0.15735e-01_rb,0.12818e-01_rb,0.17487e-01_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.45268e-01_rb,0.39604e-01_rb,0.33951e-01_rb,0.28294e-01_rb,0.22964e-01_rb, &\n        & 0.18639e-01_rb,0.15495e-01_rb,0.12608e-01_rb,0.17187e-01_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.47828e-01_rb,0.41848e-01_rb,0.35870e-01_rb,0.30096e-01_rb,0.25238e-01_rb, &\n        & 0.21453e-01_rb,0.18348e-01_rb,0.15048e-01_rb,0.20030e-01_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.47883e-01_rb,0.41899e-01_rb,0.35911e-01_rb,0.30061e-01_rb,0.25102e-01_rb, &\n        & 0.21178e-01_rb,0.18071e-01_rb,0.14812e-01_rb,0.19720e-01_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.47917e-01_rb,0.41930e-01_rb,0.35941e-01_rb,0.30033e-01_rb,0.24934e-01_rb, &\n        & 0.20917e-01_rb,0.17786e-01_rb,0.14566e-01_rb,0.19396e-01_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.47914e-01_rb,0.41927e-01_rb,0.35936e-01_rb,0.29997e-01_rb,0.24771e-01_rb, &\n        & 0.20657e-01_rb,0.17491e-01_rb,0.14311e-01_rb,0.19056e-01_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.47853e-01_rb,0.41872e-01_rb,0.35889e-01_rb,0.29935e-01_rb,0.24616e-01_rb, &\n        & 0.20393e-01_rb,0.17196e-01_rb,0.14061e-01_rb,0.18721e-01_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.49786e-01_rb,0.43562e-01_rb,0.37346e-01_rb,0.31673e-01_rb,0.27058e-01_rb, &\n        & 0.23446e-01_rb,0.20298e-01_rb,0.16634e-01_rb,0.20401e-01_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.49957e-01_rb,0.43713e-01_rb,0.37470e-01_rb,0.31624e-01_rb,0.26879e-01_rb, &\n        & 0.23121e-01_rb,0.19962e-01_rb,0.16379e-01_rb,0.19980e-01_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.50073e-01_rb,0.43811e-01_rb,0.37553e-01_rb,0.31591e-01_rb,0.26668e-01_rb, &\n        & 0.22810e-01_rb,0.19616e-01_rb,0.16101e-01_rb,0.19150e-01_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.50104e-01_rb,0.43839e-01_rb,0.37576e-01_rb,0.31542e-01_rb,0.26451e-01_rb, &\n        & 0.22487e-01_rb,0.19263e-01_rb,0.15810e-01_rb,0.18309e-01_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.50083e-01_rb,0.43821e-01_rb,0.37560e-01_rb,0.31463e-01_rb,0.26247e-01_rb, &\n        & 0.22153e-01_rb,0.18906e-01_rb,0.15516e-01_rb,0.17790e-01_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.51449e-01_rb,0.45016e-01_rb,0.38642e-01_rb,0.33136e-01_rb,0.28759e-01_rb, &\n        & 0.25254e-01_rb,0.22053e-01_rb,0.18120e-01_rb,0.53897e-02_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.51718e-01_rb,0.45255e-01_rb,0.38815e-01_rb,0.33090e-01_rb,0.28517e-01_rb, &\n        & 0.24894e-01_rb,0.21659e-01_rb,0.17825e-01_rb,0.47196e-02_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.51885e-01_rb,0.45397e-01_rb,0.38919e-01_rb,0.33034e-01_rb,0.28248e-01_rb, &\n        & 0.24520e-01_rb,0.21252e-01_rb,0.17499e-01_rb,0.36639e-02_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.51965e-01_rb,0.45468e-01_rb,0.38969e-01_rb,0.32946e-01_rb,0.27987e-01_rb, &\n        & 0.24125e-01_rb,0.20834e-01_rb,0.17164e-01_rb,0.30436e-02_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.52007e-01_rb,0.45508e-01_rb,0.39008e-01_rb,0.32828e-01_rb,0.27732e-01_rb, &\n        & 0.23720e-01_rb,0.20415e-01_rb,0.16822e-01_rb,0.23024e-02_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.52772e-01_rb,0.46179e-01_rb,0.39786e-01_rb,0.34518e-01_rb,0.30341e-01_rb, &\n        & 0.26996e-01_rb,0.23719e-01_rb,0.19625e-01_rb,0.00000e+00_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.53131e-01_rb,0.46489e-01_rb,0.39976e-01_rb,0.34451e-01_rb,0.30050e-01_rb, &\n        & 0.26583e-01_rb,0.23271e-01_rb,0.19259e-01_rb,0.79250e-04_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.53372e-01_rb,0.46707e-01_rb,0.40090e-01_rb,0.34369e-01_rb,0.29734e-01_rb, &\n        & 0.26140e-01_rb,0.22802e-01_rb,0.18870e-01_rb,0.00000e+00_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.53549e-01_rb,0.46855e-01_rb,0.40175e-01_rb,0.34238e-01_rb,0.29424e-01_rb, &\n        & 0.25661e-01_rb,0.22318e-01_rb,0.18486e-01_rb,0.00000e+00_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.53641e-01_rb,0.46944e-01_rb,0.40238e-01_rb,0.34087e-01_rb,0.29108e-01_rb, &\n        & 0.25184e-01_rb,0.21836e-01_rb,0.18091e-01_rb,0.00000e+00_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.53794e-01_rb,0.47070e-01_rb,0.40802e-01_rb,0.35804e-01_rb,0.31808e-01_rb, &\n        & 0.28611e-01_rb,0.25317e-01_rb,0.21103e-01_rb,0.00000e+00_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.54248e-01_rb,0.47468e-01_rb,0.40994e-01_rb,0.35717e-01_rb,0.31468e-01_rb, &\n        & 0.28147e-01_rb,0.24800e-01_rb,0.20666e-01_rb,0.99549e-04_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.54616e-01_rb,0.47795e-01_rb,0.41127e-01_rb,0.35591e-01_rb,0.31112e-01_rb, &\n        & 0.27634e-01_rb,0.24251e-01_rb,0.20223e-01_rb,0.00000e+00_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.54881e-01_rb,0.48017e-01_rb,0.41234e-01_rb,0.35410e-01_rb,0.30749e-01_rb, &\n        & 0.27090e-01_rb,0.23692e-01_rb,0.19766e-01_rb,0.00000e+00_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.55030e-01_rb,0.48150e-01_rb,0.41295e-01_rb,0.35229e-01_rb,0.30369e-01_rb, &\n        & 0.26544e-01_rb,0.23150e-01_rb,0.19313e-01_rb,0.00000e+00_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.31412e-01_rb,0.27484e-01_rb,0.23556e-01_rb,0.19630e-01_rb,0.15703e-01_rb, &\n        & 0.11777e-01_rb,0.78503e-02_rb,0.63859e-02_rb,0.10546e-01_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.31306e-01_rb,0.27393e-01_rb,0.23480e-01_rb,0.19566e-01_rb,0.15652e-01_rb, &\n        & 0.11737e-01_rb,0.78244e-02_rb,0.64039e-02_rb,0.10543e-01_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.31189e-01_rb,0.27291e-01_rb,0.23390e-01_rb,0.19492e-01_rb,0.15594e-01_rb, &\n        & 0.11694e-01_rb,0.77949e-02_rb,0.65607e-02_rb,0.10621e-01_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.31060e-01_rb,0.27175e-01_rb,0.23293e-01_rb,0.19412e-01_rb,0.15526e-01_rb, &\n        & 0.11645e-01_rb,0.77621e-02_rb,0.64197e-02_rb,0.10470e-01_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.30934e-01_rb,0.27069e-01_rb,0.23201e-01_rb,0.19334e-01_rb,0.15466e-01_rb, &\n        & 0.11599e-01_rb,0.77309e-02_rb,0.64181e-02_rb,0.10407e-01_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.37345e-01_rb,0.32673e-01_rb,0.28007e-01_rb,0.23341e-01_rb,0.18670e-01_rb, &\n        & 0.14002e-01_rb,0.93330e-02_rb,0.76035e-02_rb,0.12759e-01_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.37160e-01_rb,0.32513e-01_rb,0.27871e-01_rb,0.23225e-01_rb,0.18579e-01_rb, &\n        & 0.13933e-01_rb,0.92868e-02_rb,0.75902e-02_rb,0.12702e-01_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.36977e-01_rb,0.32353e-01_rb,0.27732e-01_rb,0.23111e-01_rb,0.18487e-01_rb, &\n        & 0.13864e-01_rb,0.92415e-02_rb,0.77168e-02_rb,0.12729e-01_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.36807e-01_rb,0.32204e-01_rb,0.27602e-01_rb,0.23002e-01_rb,0.18402e-01_rb, &\n        & 0.13798e-01_rb,0.91981e-02_rb,0.77023e-02_rb,0.12641e-01_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.36620e-01_rb,0.32046e-01_rb,0.27465e-01_rb,0.22887e-01_rb,0.18309e-01_rb, &\n        & 0.13731e-01_rb,0.91527e-02_rb,0.75684e-02_rb,0.12457e-01_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.44232e-01_rb,0.38700e-01_rb,0.33173e-01_rb,0.27644e-01_rb,0.22114e-01_rb, &\n        & 0.16581e-01_rb,0.11054e-01_rb,0.91028e-02_rb,0.15510e-01_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.43957e-01_rb,0.38463e-01_rb,0.32969e-01_rb,0.27474e-01_rb,0.21977e-01_rb, &\n        & 0.16483e-01_rb,0.10987e-01_rb,0.90298e-02_rb,0.15354e-01_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.43680e-01_rb,0.38217e-01_rb,0.32756e-01_rb,0.27297e-01_rb,0.21838e-01_rb, &\n        & 0.16376e-01_rb,0.10918e-01_rb,0.89896e-02_rb,0.15195e-01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.43409e-01_rb,0.37982e-01_rb,0.32556e-01_rb,0.27128e-01_rb,0.21703e-01_rb, &\n        & 0.16277e-01_rb,0.10849e-01_rb,0.90630e-02_rb,0.15090e-01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.43148e-01_rb,0.37757e-01_rb,0.32362e-01_rb,0.26967e-01_rb,0.21574e-01_rb, &\n        & 0.16179e-01_rb,0.10784e-01_rb,0.89323e-02_rb,0.14861e-01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.52173e-01_rb,0.45650e-01_rb,0.39129e-01_rb,0.32609e-01_rb,0.26084e-01_rb, &\n        & 0.19564e-01_rb,0.13063e-01_rb,0.10928e-01_rb,0.18665e-01_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.51767e-01_rb,0.45298e-01_rb,0.38824e-01_rb,0.32358e-01_rb,0.25882e-01_rb, &\n        & 0.19411e-01_rb,0.12948e-01_rb,0.10795e-01_rb,0.18386e-01_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.51358e-01_rb,0.44935e-01_rb,0.38514e-01_rb,0.32093e-01_rb,0.25677e-01_rb, &\n        & 0.19255e-01_rb,0.12843e-01_rb,0.10694e-01_rb,0.18120e-01_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.50955e-01_rb,0.44587e-01_rb,0.38218e-01_rb,0.31847e-01_rb,0.25475e-01_rb, &\n        & 0.19107e-01_rb,0.12737e-01_rb,0.10607e-01_rb,0.17851e-01_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.50544e-01_rb,0.44227e-01_rb,0.37909e-01_rb,0.31588e-01_rb,0.25270e-01_rb, &\n        & 0.18952e-01_rb,0.12634e-01_rb,0.10599e-01_rb,0.17618e-01_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.61214e-01_rb,0.53565e-01_rb,0.45917e-01_rb,0.38262e-01_rb,0.30607e-01_rb, &\n        & 0.22954e-01_rb,0.15462e-01_rb,0.13125e-01_rb,0.22278e-01_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.60651e-01_rb,0.53068e-01_rb,0.45484e-01_rb,0.37903e-01_rb,0.30322e-01_rb, &\n        & 0.22741e-01_rb,0.15244e-01_rb,0.12927e-01_rb,0.21870e-01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.60040e-01_rb,0.52533e-01_rb,0.45028e-01_rb,0.37524e-01_rb,0.30019e-01_rb, &\n        & 0.22514e-01_rb,0.15074e-01_rb,0.12758e-01_rb,0.21465e-01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.59437e-01_rb,0.52006e-01_rb,0.44573e-01_rb,0.37145e-01_rb,0.29715e-01_rb, &\n        & 0.22286e-01_rb,0.14911e-01_rb,0.12602e-01_rb,0.21062e-01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.58809e-01_rb,0.51461e-01_rb,0.44106e-01_rb,0.36755e-01_rb,0.29405e-01_rb, &\n        & 0.22053e-01_rb,0.14746e-01_rb,0.12499e-01_rb,0.20685e-01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.71375e-01_rb,0.62451e-01_rb,0.53529e-01_rb,0.44607e-01_rb,0.35687e-01_rb, &\n        & 0.26759e-01_rb,0.18273e-01_rb,0.15758e-01_rb,0.26378e-01_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.70571e-01_rb,0.61748e-01_rb,0.52933e-01_rb,0.44107e-01_rb,0.35285e-01_rb, &\n        & 0.26462e-01_rb,0.17959e-01_rb,0.15470e-01_rb,0.25822e-01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.69734e-01_rb,0.61022e-01_rb,0.52301e-01_rb,0.43583e-01_rb,0.34867e-01_rb, &\n        & 0.26147e-01_rb,0.17660e-01_rb,0.15207e-01_rb,0.25265e-01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.68870e-01_rb,0.60256e-01_rb,0.51654e-01_rb,0.43043e-01_rb,0.34432e-01_rb, &\n        & 0.25826e-01_rb,0.17391e-01_rb,0.14968e-01_rb,0.24710e-01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.67988e-01_rb,0.59482e-01_rb,0.50988e-01_rb,0.42488e-01_rb,0.33987e-01_rb, &\n        & 0.25491e-01_rb,0.17159e-01_rb,0.14740e-01_rb,0.24148e-01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.82705e-01_rb,0.72369e-01_rb,0.62031e-01_rb,0.51694e-01_rb,0.41353e-01_rb, &\n        & 0.31012e-01_rb,0.21511e-01_rb,0.18843e-01_rb,0.31008e-01_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.81487e-01_rb,0.71304e-01_rb,0.61113e-01_rb,0.50924e-01_rb,0.40740e-01_rb, &\n        & 0.30554e-01_rb,0.21074e-01_rb,0.18457e-01_rb,0.30235e-01_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.80318e-01_rb,0.70281e-01_rb,0.60235e-01_rb,0.50200e-01_rb,0.40157e-01_rb, &\n        & 0.30117e-01_rb,0.20636e-01_rb,0.18102e-01_rb,0.29494e-01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.79154e-01_rb,0.69255e-01_rb,0.59365e-01_rb,0.49470e-01_rb,0.39576e-01_rb, &\n        & 0.29680e-01_rb,0.20228e-01_rb,0.17748e-01_rb,0.28759e-01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.77937e-01_rb,0.68190e-01_rb,0.58450e-01_rb,0.48707e-01_rb,0.38965e-01_rb, &\n        & 0.29223e-01_rb,0.19858e-01_rb,0.17406e-01_rb,0.28017e-01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.95173e-01_rb,0.83270e-01_rb,0.71377e-01_rb,0.59480e-01_rb,0.47582e-01_rb, &\n        & 0.35684e-01_rb,0.25169e-01_rb,0.22449e-01_rb,0.36274e-01_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.93409e-01_rb,0.81740e-01_rb,0.70058e-01_rb,0.58384e-01_rb,0.46709e-01_rb, &\n        & 0.35028e-01_rb,0.24581e-01_rb,0.21893e-01_rb,0.35207e-01_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.91737e-01_rb,0.80263e-01_rb,0.68796e-01_rb,0.57330e-01_rb,0.45863e-01_rb, &\n        & 0.34396e-01_rb,0.23987e-01_rb,0.21409e-01_rb,0.34174e-01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.90113e-01_rb,0.78852e-01_rb,0.67585e-01_rb,0.56324e-01_rb,0.45060e-01_rb, &\n        & 0.33794e-01_rb,0.23415e-01_rb,0.20940e-01_rb,0.33185e-01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.88500e-01_rb,0.77445e-01_rb,0.66378e-01_rb,0.55317e-01_rb,0.44252e-01_rb, &\n        & 0.33190e-01_rb,0.22890e-01_rb,0.20471e-01_rb,0.32236e-01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.10878e+00_rb,0.95186e-01_rb,0.81587e-01_rb,0.67986e-01_rb,0.54386e-01_rb, &\n        & 0.40792e-01_rb,0.29314e-01_rb,0.26669e-01_rb,0.42265e-01_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.10631e+00_rb,0.93021e-01_rb,0.79732e-01_rb,0.66444e-01_rb,0.53150e-01_rb, &\n        & 0.39864e-01_rb,0.28508e-01_rb,0.25873e-01_rb,0.40792e-01_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.10400e+00_rb,0.91002e-01_rb,0.78003e-01_rb,0.64997e-01_rb,0.51997e-01_rb, &\n        & 0.39001e-01_rb,0.27707e-01_rb,0.25186e-01_rb,0.39383e-01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.10173e+00_rb,0.89018e-01_rb,0.76292e-01_rb,0.63582e-01_rb,0.50863e-01_rb, &\n        & 0.38144e-01_rb,0.26926e-01_rb,0.24532e-01_rb,0.38084e-01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.99555e-01_rb,0.87113e-01_rb,0.74666e-01_rb,0.62221e-01_rb,0.49774e-01_rb, &\n        & 0.37334e-01_rb,0.26211e-01_rb,0.23902e-01_rb,0.36825e-01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.12320e+00_rb,0.10779e+00_rb,0.92400e-01_rb,0.76993e-01_rb,0.61601e-01_rb, &\n        & 0.46197e-01_rb,0.33879e-01_rb,0.31475e-01_rb,0.48792e-01_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.11986e+00_rb,0.10487e+00_rb,0.89890e-01_rb,0.74910e-01_rb,0.59927e-01_rb, &\n        & 0.44946e-01_rb,0.32786e-01_rb,0.30373e-01_rb,0.46838e-01_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.11671e+00_rb,0.10212e+00_rb,0.87531e-01_rb,0.72938e-01_rb,0.58350e-01_rb, &\n        & 0.43767e-01_rb,0.31728e-01_rb,0.29415e-01_rb,0.45011e-01_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.11373e+00_rb,0.99514e-01_rb,0.85291e-01_rb,0.71084e-01_rb,0.56859e-01_rb, &\n        & 0.42648e-01_rb,0.30712e-01_rb,0.28518e-01_rb,0.43306e-01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.11086e+00_rb,0.97005e-01_rb,0.83130e-01_rb,0.69287e-01_rb,0.55428e-01_rb, &\n        & 0.41573e-01_rb,0.29748e-01_rb,0.27669e-01_rb,0.41673e-01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.13635e+00_rb,0.11930e+00_rb,0.10226e+00_rb,0.85213e-01_rb,0.68170e-01_rb, &\n        & 0.51126e-01_rb,0.38257e-01_rb,0.36212e-01_rb,0.54706e-01_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.13203e+00_rb,0.11554e+00_rb,0.99030e-01_rb,0.82523e-01_rb,0.66019e-01_rb, &\n        & 0.49513e-01_rb,0.36799e-01_rb,0.34833e-01_rb,0.52312e-01_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.12805e+00_rb,0.11203e+00_rb,0.96022e-01_rb,0.80023e-01_rb,0.64019e-01_rb, &\n        & 0.48015e-01_rb,0.35435e-01_rb,0.33591e-01_rb,0.50057e-01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.12432e+00_rb,0.10877e+00_rb,0.93237e-01_rb,0.77695e-01_rb,0.62158e-01_rb, &\n        & 0.46618e-01_rb,0.34181e-01_rb,0.32427e-01_rb,0.47918e-01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.12077e+00_rb,0.10567e+00_rb,0.90572e-01_rb,0.75471e-01_rb,0.60381e-01_rb, &\n        & 0.45284e-01_rb,0.32973e-01_rb,0.31331e-01_rb,0.45895e-01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.14909e+00_rb,0.13045e+00_rb,0.11182e+00_rb,0.93176e-01_rb,0.74537e-01_rb, &\n        & 0.55927e-01_rb,0.42736e-01_rb,0.41194e-01_rb,0.43864e-01_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.14380e+00_rb,0.12582e+00_rb,0.10785e+00_rb,0.89883e-01_rb,0.71900e-01_rb, &\n        & 0.53925e-01_rb,0.40874e-01_rb,0.39509e-01_rb,0.34410e-01_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.13887e+00_rb,0.12152e+00_rb,0.10414e+00_rb,0.86796e-01_rb,0.69431e-01_rb, &\n        & 0.52073e-01_rb,0.39165e-01_rb,0.37950e-01_rb,0.27228e-01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.13436e+00_rb,0.11758e+00_rb,0.10078e+00_rb,0.83978e-01_rb,0.67186e-01_rb, &\n        & 0.50383e-01_rb,0.37599e-01_rb,0.36473e-01_rb,0.23165e-01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.13007e+00_rb,0.11382e+00_rb,0.97560e-01_rb,0.81293e-01_rb,0.65042e-01_rb, &\n        & 0.48775e-01_rb,0.36131e-01_rb,0.35083e-01_rb,0.14412e-01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.16113e+00_rb,0.14100e+00_rb,0.12085e+00_rb,0.10071e+00_rb,0.80563e-01_rb, &\n        & 0.60580e-01_rb,0.47246e-01_rb,0.46365e-01_rb,0.26456e-01_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.15486e+00_rb,0.13550e+00_rb,0.11616e+00_rb,0.96791e-01_rb,0.77431e-01_rb, &\n        & 0.58082e-01_rb,0.44915e-01_rb,0.44314e-01_rb,0.19340e-01_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.14906e+00_rb,0.13042e+00_rb,0.11179e+00_rb,0.93156e-01_rb,0.74526e-01_rb, &\n        & 0.55893e-01_rb,0.42831e-01_rb,0.42380e-01_rb,0.11993e-01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.14369e+00_rb,0.12574e+00_rb,0.10777e+00_rb,0.89817e-01_rb,0.71849e-01_rb, &\n        & 0.53884e-01_rb,0.40915e-01_rb,0.40556e-01_rb,0.50486e-02_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.13868e+00_rb,0.12134e+00_rb,0.10400e+00_rb,0.86669e-01_rb,0.69338e-01_rb, &\n        & 0.52006e-01_rb,0.39136e-01_rb,0.38851e-01_rb,0.00000e+00_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.12158e-08_rb,0.13238e-08_rb,0.15146e-08_rb,0.16862e-08_rb,0.18609e-08_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.16931e-08_rb,0.20047e-08_rb,0.23006e-08_rb,0.25636e-08_rb,0.28912e-08_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.31521e-08_rb,0.36963e-08_rb,0.41550e-08_rb,0.46365e-08_rb,0.50834e-08_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.46152e-08_rb,0.50173e-08_rb,0.55381e-08_rb,0.60748e-08_rb,0.66355e-08_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.62662e-08_rb,0.67518e-08_rb,0.71765e-08_rb,0.80302e-08_rb,0.89056e-08_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.81764e-08_rb,0.91818e-08_rb,0.10385e-07_rb,0.11708e-07_rb,0.12536e-07_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.12946e-07_rb,0.13631e-07_rb,0.14453e-07_rb,0.15133e-07_rb,0.15911e-07_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.15868e-07_rb,0.16654e-07_rb,0.17281e-07_rb,0.17857e-07_rb,0.18383e-07_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.18151e-07_rb,0.19056e-07_rb,0.20057e-07_rb,0.20708e-07_rb,0.21229e-07_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.20234e-07_rb,0.21482e-07_rb,0.22599e-07_rb,0.23778e-07_rb,0.25115e-07_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.23827e-07_rb,0.25405e-07_rb,0.26545e-07_rb,0.27716e-07_rb,0.28422e-07_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.27638e-07_rb,0.28518e-07_rb,0.29101e-07_rb,0.29639e-07_rb,0.30077e-07_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.28942e-07_rb,0.29436e-07_rb,0.29831e-07_rb,0.30066e-07_rb,0.30242e-07_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.28774e-07_rb,0.29004e-07_rb,0.29272e-07_rb,0.29431e-07_rb,0.29616e-07_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.27317e-07_rb,0.27462e-07_rb,0.27698e-07_rb,0.27835e-07_rb,0.27843e-07_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.25463e-07_rb,0.25523e-07_rb,0.25678e-07_rb,0.25658e-07_rb,0.25687e-07_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.22603e-07_rb,0.22672e-07_rb,0.22704e-07_rb,0.22668e-07_rb,0.22698e-07_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.19657e-07_rb,0.19747e-07_rb,0.19687e-07_rb,0.19659e-07_rb,0.19680e-07_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.16553e-07_rb,0.16571e-07_rb,0.16522e-07_rb,0.16545e-07_rb,0.16563e-07_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.13867e-07_rb,0.13795e-07_rb,0.13808e-07_rb,0.13815e-07_rb,0.13799e-07_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.11414e-07_rb,0.11409e-07_rb,0.11395e-07_rb,0.11384e-07_rb,0.11416e-07_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.95639e-08_rb,0.95514e-08_rb,0.95251e-08_rb,0.95607e-08_rb,0.95767e-08_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.80018e-08_rb,0.79882e-08_rb,0.79720e-08_rb,0.79934e-08_rb,0.79942e-08_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.67279e-08_rb,0.67135e-08_rb,0.67089e-08_rb,0.67131e-08_rb,0.67290e-08_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.57292e-08_rb,0.57278e-08_rb,0.57247e-08_rb,0.57298e-08_rb,0.57269e-08_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.48406e-08_rb,0.48461e-08_rb,0.48394e-08_rb,0.48468e-08_rb,0.48401e-08_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.40368e-08_rb,0.40419e-08_rb,0.40353e-08_rb,0.40432e-08_rb,0.40267e-08_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.34875e-08_rb,0.34931e-08_rb,0.34872e-08_rb,0.34940e-08_rb,0.34782e-08_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.30195e-08_rb,0.30243e-08_rb,0.30129e-08_rb,0.30148e-08_rb,0.30016e-08_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.25993e-08_rb,0.25924e-08_rb,0.25861e-08_rb,0.25841e-08_rb,0.25734e-08_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.22290e-08_rb,0.22166e-08_rb,0.22080e-08_rb,0.22067e-08_rb,0.21992e-08_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.18916e-08_rb,0.18847e-08_rb,0.18733e-08_rb,0.18685e-08_rb,0.18685e-08_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.15840e-08_rb,0.15787e-08_rb,0.15719e-08_rb,0.15641e-08_rb,0.15644e-08_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.13197e-08_rb,0.13138e-08_rb,0.13098e-08_rb,0.13024e-08_rb,0.13049e-08_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.11052e-08_rb,0.11003e-08_rb,0.10954e-08_rb,0.10927e-08_rb,0.10941e-08_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.91115e-09_rb,0.90837e-09_rb,0.90520e-09_rb,0.90009e-09_rb,0.90047e-09_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.73101e-09_rb,0.73246e-09_rb,0.73006e-09_rb,0.72687e-09_rb,0.72508e-09_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.60565e-09_rb,0.60526e-09_rb,0.60121e-09_rb,0.60117e-09_rb,0.60056e-09_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.50736e-09_rb,0.50750e-09_rb,0.50421e-09_rb,0.50378e-09_rb,0.50259e-09_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.41843e-09_rb,0.41856e-09_rb,0.41499e-09_rb,0.41535e-09_rb,0.41353e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.33766e-09_rb,0.33794e-09_rb,0.33511e-09_rb,0.33405e-09_rb,0.33405e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.29473e-09_rb,0.29448e-09_rb,0.29284e-09_rb,0.29146e-09_rb,0.29053e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.26948e-09_rb,0.27034e-09_rb,0.27016e-09_rb,0.26799e-09_rb,0.26580e-09_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.24773e-09_rb,0.24784e-09_rb,0.24734e-09_rb,0.24436e-09_rb,0.24377e-09_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.22707e-09_rb,0.22765e-09_rb,0.22683e-09_rb,0.22503e-09_rb,0.22447e-09_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.21180e-09_rb,0.21264e-09_rb,0.21254e-09_rb,0.21338e-09_rb,0.21089e-09_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.22898e-09_rb,0.23089e-09_rb,0.23471e-09_rb,0.23606e-09_rb,0.23388e-09_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.18001e-08_rb,0.19945e-08_rb,0.21612e-08_rb,0.23316e-08_rb,0.25983e-08_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.39853e-08_rb,0.42632e-08_rb,0.44602e-08_rb,0.46784e-08_rb,0.48071e-08_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.60848e-08_rb,0.61494e-08_rb,0.61069e-08_rb,0.61295e-08_rb,0.65707e-08_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.75494e-08_rb,0.85999e-08_rb,0.91057e-08_rb,0.10175e-07_rb,0.10943e-07_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.12037e-07_rb,0.12753e-07_rb,0.13314e-07_rb,0.13239e-07_rb,0.13306e-07_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.15519e-07_rb,0.15517e-07_rb,0.15097e-07_rb,0.14435e-07_rb,0.13983e-07_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.16420e-07_rb,0.17025e-07_rb,0.17639e-07_rb,0.17633e-07_rb,0.17513e-07_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.18021e-07_rb,0.19301e-07_rb,0.20621e-07_rb,0.22238e-07_rb,0.23351e-07_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.22378e-07_rb,0.23582e-07_rb,0.24409e-07_rb,0.24915e-07_rb,0.25516e-07_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.24712e-07_rb,0.24864e-07_rb,0.24556e-07_rb,0.23953e-07_rb,0.23424e-07_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.22545e-07_rb,0.22002e-07_rb,0.21325e-07_rb,0.20492e-07_rb,0.20022e-07_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.18798e-07_rb,0.18566e-07_rb,0.18366e-07_rb,0.18099e-07_rb,0.17971e-07_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.16773e-07_rb,0.16803e-07_rb,0.16541e-07_rb,0.16450e-07_rb,0.16482e-07_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.15222e-07_rb,0.15398e-07_rb,0.15177e-07_rb,0.15147e-07_rb,0.14951e-07_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.13792e-07_rb,0.13944e-07_rb,0.13534e-07_rb,0.13546e-07_rb,0.13516e-07_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.12157e-07_rb,0.12221e-07_rb,0.11930e-07_rb,0.12115e-07_rb,0.12027e-07_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.10487e-07_rb,0.10393e-07_rb,0.10366e-07_rb,0.10455e-07_rb,0.10269e-07_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.90084e-08_rb,0.88590e-08_rb,0.90055e-08_rb,0.88655e-08_rb,0.87392e-08_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.74765e-08_rb,0.74889e-08_rb,0.73915e-08_rb,0.73289e-08_rb,0.72219e-08_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.62311e-08_rb,0.62461e-08_rb,0.61378e-08_rb,0.59795e-08_rb,0.60309e-08_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.51421e-08_rb,0.50519e-08_rb,0.50031e-08_rb,0.49630e-08_rb,0.49489e-08_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.42880e-08_rb,0.42042e-08_rb,0.41366e-08_rb,0.41198e-08_rb,0.41265e-08_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.35718e-08_rb,0.34728e-08_rb,0.34599e-08_rb,0.34385e-08_rb,0.34695e-08_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.29713e-08_rb,0.29023e-08_rb,0.28707e-08_rb,0.28790e-08_rb,0.28873e-08_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.25246e-08_rb,0.24463e-08_rb,0.24323e-08_rb,0.24308e-08_rb,0.24753e-08_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.21159e-08_rb,0.20527e-08_rb,0.20532e-08_rb,0.20325e-08_rb,0.20615e-08_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.17631e-08_rb,0.17097e-08_rb,0.17043e-08_rb,0.16987e-08_rb,0.17298e-08_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.15260e-08_rb,0.14757e-08_rb,0.14566e-08_rb,0.14513e-08_rb,0.14651e-08_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.13009e-08_rb,0.12457e-08_rb,0.12523e-08_rb,0.12490e-08_rb,0.12671e-08_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.10990e-08_rb,0.10789e-08_rb,0.10741e-08_rb,0.10762e-08_rb,0.10873e-08_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.94313e-09_rb,0.92236e-09_rb,0.92369e-09_rb,0.91495e-09_rb,0.92405e-09_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.80746e-09_rb,0.78453e-09_rb,0.77646e-09_rb,0.77477e-09_rb,0.77888e-09_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.67944e-09_rb,0.66381e-09_rb,0.65747e-09_rb,0.65286e-09_rb,0.65668e-09_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.56677e-09_rb,0.55682e-09_rb,0.54825e-09_rb,0.54623e-09_rb,0.54843e-09_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.47375e-09_rb,0.47120e-09_rb,0.45836e-09_rb,0.45709e-09_rb,0.45689e-09_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.39797e-09_rb,0.39204e-09_rb,0.37735e-09_rb,0.37505e-09_rb,0.37687e-09_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.32772e-09_rb,0.31857e-09_rb,0.30808e-09_rb,0.30232e-09_rb,0.30140e-09_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.27300e-09_rb,0.26581e-09_rb,0.26125e-09_rb,0.24922e-09_rb,0.25029e-09_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.23073e-09_rb,0.22159e-09_rb,0.21979e-09_rb,0.20969e-09_rb,0.21117e-09_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.18868e-09_rb,0.18466e-09_rb,0.18517e-09_rb,0.17470e-09_rb,0.17469e-09_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.15290e-09_rb,0.14970e-09_rb,0.15032e-09_rb,0.14201e-09_rb,0.14053e-09_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.13616e-09_rb,0.13340e-09_rb,0.13256e-09_rb,0.12713e-09_rb,0.12621e-09_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.12605e-09_rb,0.12524e-09_rb,0.12106e-09_rb,0.11994e-09_rb,0.11735e-09_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.11625e-09_rb,0.11350e-09_rb,0.11287e-09_rb,0.11534e-09_rb,0.10942e-09_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.10168e-09_rb,0.10628e-09_rb,0.10684e-09_rb,0.10799e-09_rb,0.10313e-09_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.92659e-10_rb,0.10050e-09_rb,0.10168e-09_rb,0.97877e-10_rb,0.97971e-10_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.10198e-09_rb,0.11632e-09_rb,0.11127e-09_rb,0.10947e-09_rb,0.11000e-09_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.33788e-08_rb,0.38685e-08_rb,0.40059e-08_rb,0.41301e-08_rb,0.43316e-08_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.54022e-08_rb,0.55644e-08_rb,0.55814e-08_rb,0.55195e-08_rb,0.57708e-08_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.95769e-08_rb,0.10205e-07_rb,0.12445e-07_rb,0.13419e-07_rb,0.13357e-07_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.17233e-07_rb,0.16177e-07_rb,0.16092e-07_rb,0.15590e-07_rb,0.15068e-07_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.19731e-07_rb,0.19947e-07_rb,0.20278e-07_rb,0.20235e-07_rb,0.20699e-07_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.23168e-07_rb,0.23970e-07_rb,0.25507e-07_rb,0.27034e-07_rb,0.29135e-07_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.33749e-07_rb,0.35374e-07_rb,0.37333e-07_rb,0.38730e-07_rb,0.39816e-07_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.39844e-07_rb,0.39698e-07_rb,0.39651e-07_rb,0.38618e-07_rb,0.37699e-07_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.37013e-07_rb,0.35923e-07_rb,0.35560e-07_rb,0.35217e-07_rb,0.34594e-07_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.32381e-07_rb,0.31844e-07_rb,0.32272e-07_rb,0.32430e-07_rb,0.31922e-07_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.29924e-07_rb,0.29834e-07_rb,0.30537e-07_rb,0.30494e-07_rb,0.30313e-07_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.27849e-07_rb,0.28147e-07_rb,0.29005e-07_rb,0.29081e-07_rb,0.28673e-07_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.25534e-07_rb,0.25854e-07_rb,0.26978e-07_rb,0.27173e-07_rb,0.27116e-07_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.23413e-07_rb,0.24124e-07_rb,0.25341e-07_rb,0.25322e-07_rb,0.25266e-07_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.21218e-07_rb,0.22105e-07_rb,0.23470e-07_rb,0.23280e-07_rb,0.23250e-07_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.19002e-07_rb,0.20309e-07_rb,0.21106e-07_rb,0.20908e-07_rb,0.21199e-07_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.16901e-07_rb,0.18244e-07_rb,0.18426e-07_rb,0.18398e-07_rb,0.18708e-07_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.15065e-07_rb,0.15814e-07_rb,0.15711e-07_rb,0.16012e-07_rb,0.16145e-07_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.13100e-07_rb,0.13194e-07_rb,0.13385e-07_rb,0.13455e-07_rb,0.13435e-07_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.10972e-07_rb,0.10986e-07_rb,0.11085e-07_rb,0.11182e-07_rb,0.11030e-07_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.90750e-08_rb,0.90832e-08_rb,0.91769e-08_rb,0.89877e-08_rb,0.89513e-08_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.75008e-08_rb,0.76569e-08_rb,0.76237e-08_rb,0.74547e-08_rb,0.74719e-08_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.63063e-08_rb,0.64050e-08_rb,0.62067e-08_rb,0.61836e-08_rb,0.61775e-08_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.53250e-08_rb,0.52712e-08_rb,0.52454e-08_rb,0.51153e-08_rb,0.51657e-08_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.45450e-08_rb,0.45358e-08_rb,0.44274e-08_rb,0.43893e-08_rb,0.43616e-08_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.38039e-08_rb,0.38254e-08_rb,0.37172e-08_rb,0.37203e-08_rb,0.37278e-08_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.31821e-08_rb,0.31632e-08_rb,0.30774e-08_rb,0.30626e-08_rb,0.30979e-08_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.27339e-08_rb,0.27443e-08_rb,0.26754e-08_rb,0.26505e-08_rb,0.27022e-08_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.23939e-08_rb,0.24228e-08_rb,0.23415e-08_rb,0.23287e-08_rb,0.23327e-08_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.20895e-08_rb,0.20874e-08_rb,0.20298e-08_rb,0.20180e-08_rb,0.19876e-08_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.17869e-08_rb,0.17800e-08_rb,0.17392e-08_rb,0.17376e-08_rb,0.16927e-08_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.15169e-08_rb,0.15335e-08_rb,0.14778e-08_rb,0.14668e-08_rb,0.14407e-08_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.12692e-08_rb,0.12902e-08_rb,0.12439e-08_rb,0.12324e-08_rb,0.11996e-08_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.10611e-08_rb,0.10656e-08_rb,0.10472e-08_rb,0.10282e-08_rb,0.10015e-08_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.90394e-09_rb,0.88143e-09_rb,0.87958e-09_rb,0.84984e-09_rb,0.85121e-09_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.73451e-09_rb,0.71978e-09_rb,0.73014e-09_rb,0.70436e-09_rb,0.69840e-09_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.58678e-09_rb,0.58259e-09_rb,0.58316e-09_rb,0.55960e-09_rb,0.56079e-09_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.48502e-09_rb,0.47984e-09_rb,0.48693e-09_rb,0.47265e-09_rb,0.46016e-09_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.40704e-09_rb,0.40367e-09_rb,0.41046e-09_rb,0.39764e-09_rb,0.38714e-09_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.33771e-09_rb,0.33070e-09_rb,0.32984e-09_rb,0.33231e-09_rb,0.32299e-09_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.27062e-09_rb,0.27028e-09_rb,0.26516e-09_rb,0.26816e-09_rb,0.25661e-09_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.23501e-09_rb,0.23579e-09_rb,0.23460e-09_rb,0.23532e-09_rb,0.22777e-09_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.20561e-09_rb,0.21843e-09_rb,0.22171e-09_rb,0.22358e-09_rb,0.21702e-09_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.18557e-09_rb,0.20864e-09_rb,0.21196e-09_rb,0.20646e-09_rb,0.20759e-09_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.17099e-09_rb,0.19489e-09_rb,0.19486e-09_rb,0.19102e-09_rb,0.19124e-09_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.16535e-09_rb,0.16955e-09_rb,0.18769e-09_rb,0.18586e-09_rb,0.18358e-09_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.18472e-09_rb,0.17614e-09_rb,0.20835e-09_rb,0.19900e-09_rb,0.17587e-09_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.14276e-07_rb,0.14530e-07_rb,0.14762e-07_rb,0.14823e-07_rb,0.15070e-07_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.22710e-07_rb,0.23419e-07_rb,0.26577e-07_rb,0.28008e-07_rb,0.28298e-07_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.40218e-07_rb,0.40306e-07_rb,0.38786e-07_rb,0.38421e-07_rb,0.37982e-07_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.46010e-07_rb,0.46709e-07_rb,0.48658e-07_rb,0.49166e-07_rb,0.49018e-07_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.57896e-07_rb,0.59606e-07_rb,0.62582e-07_rb,0.65981e-07_rb,0.66467e-07_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.74731e-07_rb,0.75116e-07_rb,0.75181e-07_rb,0.74922e-07_rb,0.73535e-07_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.76222e-07_rb,0.73788e-07_rb,0.71345e-07_rb,0.70864e-07_rb,0.69839e-07_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.69638e-07_rb,0.67680e-07_rb,0.66694e-07_rb,0.67021e-07_rb,0.67066e-07_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.65779e-07_rb,0.64200e-07_rb,0.63508e-07_rb,0.64106e-07_rb,0.64461e-07_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.61488e-07_rb,0.60248e-07_rb,0.59719e-07_rb,0.60704e-07_rb,0.61392e-07_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.56738e-07_rb,0.55143e-07_rb,0.55071e-07_rb,0.56796e-07_rb,0.58031e-07_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.53299e-07_rb,0.52091e-07_rb,0.52308e-07_rb,0.54157e-07_rb,0.55094e-07_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.49763e-07_rb,0.48954e-07_rb,0.49068e-07_rb,0.51533e-07_rb,0.52367e-07_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.46006e-07_rb,0.45410e-07_rb,0.45860e-07_rb,0.48840e-07_rb,0.49788e-07_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.42208e-07_rb,0.41876e-07_rb,0.43006e-07_rb,0.46350e-07_rb,0.47032e-07_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.38508e-07_rb,0.38430e-07_rb,0.40481e-07_rb,0.43465e-07_rb,0.43170e-07_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.33913e-07_rb,0.34466e-07_rb,0.37202e-07_rb,0.38288e-07_rb,0.38327e-07_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.29454e-07_rb,0.30842e-07_rb,0.33204e-07_rb,0.33354e-07_rb,0.33727e-07_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.25253e-07_rb,0.27183e-07_rb,0.28228e-07_rb,0.27946e-07_rb,0.28495e-07_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.21784e-07_rb,0.23351e-07_rb,0.23372e-07_rb,0.23449e-07_rb,0.23246e-07_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.18910e-07_rb,0.19134e-07_rb,0.18984e-07_rb,0.19294e-07_rb,0.18955e-07_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.15933e-07_rb,0.15755e-07_rb,0.16059e-07_rb,0.15913e-07_rb,0.15386e-07_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.13356e-07_rb,0.13247e-07_rb,0.13429e-07_rb,0.13202e-07_rb,0.12675e-07_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.11207e-07_rb,0.11196e-07_rb,0.11048e-07_rb,0.10870e-07_rb,0.10431e-07_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.95811e-08_rb,0.94647e-08_rb,0.93875e-08_rb,0.90968e-08_rb,0.88553e-08_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.81243e-08_rb,0.80255e-08_rb,0.78559e-08_rb,0.75538e-08_rb,0.74057e-08_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.66871e-08_rb,0.66553e-08_rb,0.65003e-08_rb,0.62809e-08_rb,0.60862e-08_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.58254e-08_rb,0.57657e-08_rb,0.56185e-08_rb,0.54242e-08_rb,0.52135e-08_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.50967e-08_rb,0.50027e-08_rb,0.48304e-08_rb,0.46813e-08_rb,0.44864e-08_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.43731e-08_rb,0.43157e-08_rb,0.41432e-08_rb,0.39968e-08_rb,0.38854e-08_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.37430e-08_rb,0.37088e-08_rb,0.35491e-08_rb,0.34012e-08_rb,0.33022e-08_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.32207e-08_rb,0.31034e-08_rb,0.30690e-08_rb,0.29015e-08_rb,0.27644e-08_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.27111e-08_rb,0.25582e-08_rb,0.26092e-08_rb,0.24352e-08_rb,0.23234e-08_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.22675e-08_rb,0.21455e-08_rb,0.21930e-08_rb,0.20490e-08_rb,0.19277e-08_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.18722e-08_rb,0.18163e-08_rb,0.18222e-08_rb,0.17256e-08_rb,0.16025e-08_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.15670e-08_rb,0.15133e-08_rb,0.14751e-08_rb,0.14433e-08_rb,0.13269e-08_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.12576e-08_rb,0.12106e-08_rb,0.11779e-08_rb,0.11664e-08_rb,0.10722e-08_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.10308e-08_rb,0.10019e-08_rb,0.98151e-09_rb,0.96758e-09_rb,0.89739e-09_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.84050e-09_rb,0.85047e-09_rb,0.83131e-09_rb,0.81346e-09_rb,0.77303e-09_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.67669e-09_rb,0.70190e-09_rb,0.68695e-09_rb,0.66858e-09_rb,0.63719e-09_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.52755e-09_rb,0.56097e-09_rb,0.54716e-09_rb,0.53877e-09_rb,0.51047e-09_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.44864e-09_rb,0.48984e-09_rb,0.48831e-09_rb,0.46728e-09_rb,0.45462e-09_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.40938e-09_rb,0.45501e-09_rb,0.45212e-09_rb,0.43586e-09_rb,0.42245e-09_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.38293e-09_rb,0.40217e-09_rb,0.41760e-09_rb,0.39645e-09_rb,0.38652e-09_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.35808e-09_rb,0.34306e-09_rb,0.38440e-09_rb,0.37442e-09_rb,0.33472e-09_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.33278e-09_rb,0.31839e-09_rb,0.35327e-09_rb,0.33061e-09_rb,0.29093e-09_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.32589e-09_rb,0.30766e-09_rb,0.30185e-09_rb,0.35182e-09_rb,0.34474e-09_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.19090e-07_rb,0.19323e-07_rb,0.21491e-07_rb,0.23162e-07_rb,0.23970e-07_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.37888e-07_rb,0.37108e-07_rb,0.33727e-07_rb,0.34146e-07_rb,0.33930e-07_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.46395e-07_rb,0.47265e-07_rb,0.48201e-07_rb,0.50512e-07_rb,0.51101e-07_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.60743e-07_rb,0.64371e-07_rb,0.67862e-07_rb,0.71479e-07_rb,0.74200e-07_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.79052e-07_rb,0.79011e-07_rb,0.77558e-07_rb,0.75900e-07_rb,0.76450e-07_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.75325e-07_rb,0.74009e-07_rb,0.72866e-07_rb,0.72803e-07_rb,0.73869e-07_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.74009e-07_rb,0.74054e-07_rb,0.73970e-07_rb,0.73800e-07_rb,0.75638e-07_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.73077e-07_rb,0.73306e-07_rb,0.72248e-07_rb,0.73120e-07_rb,0.74630e-07_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.68928e-07_rb,0.70100e-07_rb,0.69203e-07_rb,0.69478e-07_rb,0.71860e-07_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.65324e-07_rb,0.66570e-07_rb,0.66457e-07_rb,0.66345e-07_rb,0.68314e-07_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.62411e-07_rb,0.63996e-07_rb,0.63443e-07_rb,0.63576e-07_rb,0.65766e-07_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.60058e-07_rb,0.60956e-07_rb,0.60176e-07_rb,0.60222e-07_rb,0.63287e-07_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.57223e-07_rb,0.58225e-07_rb,0.58348e-07_rb,0.58584e-07_rb,0.61933e-07_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.55089e-07_rb,0.55723e-07_rb,0.55839e-07_rb,0.56337e-07_rb,0.60335e-07_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.52294e-07_rb,0.51745e-07_rb,0.52750e-07_rb,0.52701e-07_rb,0.57676e-07_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.48915e-07_rb,0.48234e-07_rb,0.48708e-07_rb,0.49873e-07_rb,0.54442e-07_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.43357e-07_rb,0.43230e-07_rb,0.43679e-07_rb,0.47285e-07_rb,0.49519e-07_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.37379e-07_rb,0.38427e-07_rb,0.39703e-07_rb,0.43492e-07_rb,0.43278e-07_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.31354e-07_rb,0.32238e-07_rb,0.35376e-07_rb,0.37358e-07_rb,0.37130e-07_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.26553e-07_rb,0.27801e-07_rb,0.30978e-07_rb,0.30698e-07_rb,0.31234e-07_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.21542e-07_rb,0.24274e-07_rb,0.24944e-07_rb,0.25194e-07_rb,0.25415e-07_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.19097e-07_rb,0.20582e-07_rb,0.20324e-07_rb,0.21006e-07_rb,0.20944e-07_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.16377e-07_rb,0.16881e-07_rb,0.16957e-07_rb,0.16743e-07_rb,0.16958e-07_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.13727e-07_rb,0.13834e-07_rb,0.13766e-07_rb,0.13776e-07_rb,0.13546e-07_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.11550e-07_rb,0.11601e-07_rb,0.11757e-07_rb,0.11723e-07_rb,0.11413e-07_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.98076e-08_rb,0.96320e-08_rb,0.10028e-07_rb,0.98197e-08_rb,0.91408e-08_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.80861e-08_rb,0.80113e-08_rb,0.81586e-08_rb,0.80121e-08_rb,0.75021e-08_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.70348e-08_rb,0.69980e-08_rb,0.71058e-08_rb,0.69171e-08_rb,0.64103e-08_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.61395e-08_rb,0.60379e-08_rb,0.61651e-08_rb,0.59006e-08_rb,0.54433e-08_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.51740e-08_rb,0.51391e-08_rb,0.53717e-08_rb,0.50506e-08_rb,0.46901e-08_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.44374e-08_rb,0.44002e-08_rb,0.45405e-08_rb,0.42888e-08_rb,0.39390e-08_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.36635e-08_rb,0.37555e-08_rb,0.37320e-08_rb,0.35598e-08_rb,0.33280e-08_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.30833e-08_rb,0.31320e-08_rb,0.30264e-08_rb,0.29827e-08_rb,0.28298e-08_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.25366e-08_rb,0.26077e-08_rb,0.24905e-08_rb,0.24281e-08_rb,0.22727e-08_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.20576e-08_rb,0.22029e-08_rb,0.20905e-08_rb,0.21040e-08_rb,0.19027e-08_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.16047e-08_rb,0.18190e-08_rb,0.17008e-08_rb,0.17298e-08_rb,0.16059e-08_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.12276e-08_rb,0.14135e-08_rb,0.13565e-08_rb,0.13704e-08_rb,0.13029e-08_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.98291e-09_rb,0.11837e-08_rb,0.11000e-08_rb,0.11342e-08_rb,0.10621e-08_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.79374e-09_rb,0.97756e-09_rb,0.90252e-09_rb,0.90527e-09_rb,0.86815e-09_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.64781e-09_rb,0.78454e-09_rb,0.75690e-09_rb,0.74124e-09_rb,0.73195e-09_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.51536e-09_rb,0.61158e-09_rb,0.60936e-09_rb,0.59007e-09_rb,0.58458e-09_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.46178e-09_rb,0.51944e-09_rb,0.52167e-09_rb,0.53965e-09_rb,0.50524e-09_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.44467e-09_rb,0.42857e-09_rb,0.50799e-09_rb,0.47528e-09_rb,0.43900e-09_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.39667e-09_rb,0.37862e-09_rb,0.45808e-09_rb,0.43270e-09_rb,0.38817e-09_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.35926e-09_rb,0.35410e-09_rb,0.38962e-09_rb,0.37502e-09_rb,0.40935e-09_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.31517e-09_rb,0.32964e-09_rb,0.29323e-09_rb,0.39945e-09_rb,0.40389e-09_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.36198e-09_rb,0.38633e-09_rb,0.41096e-09_rb,0.53914e-09_rb,0.57631e-09_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.23095e-07_rb,0.23025e-07_rb,0.25126e-07_rb,0.25618e-07_rb,0.24969e-07_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.31573e-07_rb,0.32360e-07_rb,0.33220e-07_rb,0.32611e-07_rb,0.32150e-07_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.45219e-07_rb,0.45787e-07_rb,0.47088e-07_rb,0.49543e-07_rb,0.54072e-07_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.65293e-07_rb,0.67448e-07_rb,0.64557e-07_rb,0.63976e-07_rb,0.64905e-07_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.64862e-07_rb,0.63259e-07_rb,0.62851e-07_rb,0.62500e-07_rb,0.63112e-07_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.61849e-07_rb,0.62108e-07_rb,0.60565e-07_rb,0.60920e-07_rb,0.61810e-07_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.63930e-07_rb,0.63195e-07_rb,0.62478e-07_rb,0.62282e-07_rb,0.62250e-07_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.60100e-07_rb,0.60269e-07_rb,0.59919e-07_rb,0.57578e-07_rb,0.57933e-07_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.56465e-07_rb,0.56674e-07_rb,0.56992e-07_rb,0.55969e-07_rb,0.54719e-07_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.54280e-07_rb,0.53760e-07_rb,0.52615e-07_rb,0.52261e-07_rb,0.51523e-07_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.49921e-07_rb,0.49472e-07_rb,0.49168e-07_rb,0.47959e-07_rb,0.47449e-07_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.45803e-07_rb,0.46271e-07_rb,0.46322e-07_rb,0.46536e-07_rb,0.46494e-07_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.43723e-07_rb,0.44225e-07_rb,0.44324e-07_rb,0.43726e-07_rb,0.43579e-07_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.41617e-07_rb,0.42588e-07_rb,0.42306e-07_rb,0.41086e-07_rb,0.41943e-07_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.38855e-07_rb,0.40231e-07_rb,0.39090e-07_rb,0.39461e-07_rb,0.39072e-07_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.35912e-07_rb,0.36691e-07_rb,0.35670e-07_rb,0.35644e-07_rb,0.38295e-07_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.33357e-07_rb,0.33134e-07_rb,0.32394e-07_rb,0.32909e-07_rb,0.36234e-07_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.30529e-07_rb,0.29196e-07_rb,0.29147e-07_rb,0.30292e-07_rb,0.33912e-07_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.27228e-07_rb,0.27081e-07_rb,0.26630e-07_rb,0.30010e-07_rb,0.28781e-07_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.24109e-07_rb,0.24388e-07_rb,0.25546e-07_rb,0.26823e-07_rb,0.26681e-07_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.21402e-07_rb,0.22303e-07_rb,0.24668e-07_rb,0.24556e-07_rb,0.24369e-07_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.18136e-07_rb,0.20944e-07_rb,0.21211e-07_rb,0.21286e-07_rb,0.21648e-07_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.16306e-07_rb,0.17531e-07_rb,0.17744e-07_rb,0.18061e-07_rb,0.18282e-07_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.13873e-07_rb,0.14963e-07_rb,0.15398e-07_rb,0.15527e-07_rb,0.15391e-07_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.11948e-07_rb,0.12614e-07_rb,0.12946e-07_rb,0.12916e-07_rb,0.13085e-07_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.98235e-08_rb,0.10612e-07_rb,0.10029e-07_rb,0.10618e-07_rb,0.10860e-07_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.81514e-08_rb,0.84716e-08_rb,0.81123e-08_rb,0.83644e-08_rb,0.81668e-08_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.68179e-08_rb,0.69030e-08_rb,0.69393e-08_rb,0.69969e-08_rb,0.71027e-08_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.59350e-08_rb,0.60668e-08_rb,0.59026e-08_rb,0.60181e-08_rb,0.60779e-08_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.51181e-08_rb,0.52127e-08_rb,0.48788e-08_rb,0.51397e-08_rb,0.50230e-08_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.42653e-08_rb,0.44600e-08_rb,0.41100e-08_rb,0.44735e-08_rb,0.42607e-08_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.34724e-08_rb,0.37628e-08_rb,0.35340e-08_rb,0.38309e-08_rb,0.36188e-08_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.27994e-08_rb,0.31690e-08_rb,0.28599e-08_rb,0.30290e-08_rb,0.27730e-08_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.22089e-08_rb,0.25761e-08_rb,0.23856e-08_rb,0.24874e-08_rb,0.23603e-08_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.18078e-08_rb,0.20304e-08_rb,0.19457e-08_rb,0.19366e-08_rb,0.19286e-08_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.14716e-08_rb,0.15703e-08_rb,0.17393e-08_rb,0.14836e-08_rb,0.15316e-08_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.11334e-08_rb,0.12901e-08_rb,0.13556e-08_rb,0.11610e-08_rb,0.11617e-08_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.90881e-09_rb,0.10323e-08_rb,0.11378e-08_rb,0.95509e-09_rb,0.96291e-09_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.76751e-09_rb,0.81710e-09_rb,0.97432e-09_rb,0.82408e-09_rb,0.81205e-09_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.62668e-09_rb,0.66223e-09_rb,0.76870e-09_rb,0.68347e-09_rb,0.65771e-09_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.50547e-09_rb,0.49991e-09_rb,0.61494e-09_rb,0.55640e-09_rb,0.52803e-09_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.42841e-09_rb,0.42678e-09_rb,0.51796e-09_rb,0.46340e-09_rb,0.44830e-09_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.40234e-09_rb,0.40065e-09_rb,0.45944e-09_rb,0.42252e-09_rb,0.44365e-09_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.36764e-09_rb,0.35937e-09_rb,0.36570e-09_rb,0.44631e-09_rb,0.45684e-09_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.33321e-09_rb,0.29808e-09_rb,0.31056e-09_rb,0.44585e-09_rb,0.41122e-09_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.31198e-09_rb,0.29542e-09_rb,0.33327e-09_rb,0.43871e-09_rb,0.45291e-09_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.38710e-09_rb,0.42412e-09_rb,0.44197e-09_rb,0.49964e-09_rb,0.70387e-09_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.30377e-07_rb,0.31586e-07_rb,0.27647e-07_rb,0.27937e-07_rb,0.28036e-07_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.37766e-07_rb,0.39819e-07_rb,0.39822e-07_rb,0.40069e-07_rb,0.42091e-07_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.57996e-07_rb,0.64474e-07_rb,0.69368e-07_rb,0.70909e-07_rb,0.70748e-07_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.73220e-07_rb,0.70124e-07_rb,0.69135e-07_rb,0.68058e-07_rb,0.66524e-07_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.66529e-07_rb,0.66306e-07_rb,0.63797e-07_rb,0.63551e-07_rb,0.63462e-07_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.66492e-07_rb,0.65156e-07_rb,0.66323e-07_rb,0.64485e-07_rb,0.63285e-07_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.62980e-07_rb,0.62900e-07_rb,0.62718e-07_rb,0.61114e-07_rb,0.59765e-07_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.59754e-07_rb,0.58066e-07_rb,0.59540e-07_rb,0.58926e-07_rb,0.57835e-07_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.57368e-07_rb,0.55161e-07_rb,0.55685e-07_rb,0.55360e-07_rb,0.53982e-07_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.51435e-07_rb,0.49998e-07_rb,0.50952e-07_rb,0.50442e-07_rb,0.49717e-07_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.47663e-07_rb,0.46845e-07_rb,0.47849e-07_rb,0.48876e-07_rb,0.48885e-07_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.47926e-07_rb,0.45619e-07_rb,0.45793e-07_rb,0.46467e-07_rb,0.45938e-07_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.44687e-07_rb,0.43904e-07_rb,0.44284e-07_rb,0.44176e-07_rb,0.45520e-07_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.42751e-07_rb,0.41938e-07_rb,0.42889e-07_rb,0.42927e-07_rb,0.43868e-07_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.40180e-07_rb,0.40529e-07_rb,0.40621e-07_rb,0.40949e-07_rb,0.41005e-07_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.35890e-07_rb,0.36716e-07_rb,0.37875e-07_rb,0.38308e-07_rb,0.37626e-07_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.31499e-07_rb,0.33284e-07_rb,0.32725e-07_rb,0.32493e-07_rb,0.35018e-07_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.29364e-07_rb,0.28675e-07_rb,0.28942e-07_rb,0.28761e-07_rb,0.33960e-07_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.25558e-07_rb,0.23679e-07_rb,0.24292e-07_rb,0.26053e-07_rb,0.29211e-07_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.20860e-07_rb,0.21491e-07_rb,0.20910e-07_rb,0.25598e-07_rb,0.24209e-07_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.18874e-07_rb,0.18554e-07_rb,0.21206e-07_rb,0.20708e-07_rb,0.21100e-07_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.18632e-07_rb,0.18625e-07_rb,0.20707e-07_rb,0.19570e-07_rb,0.18956e-07_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.15958e-07_rb,0.19141e-07_rb,0.19004e-07_rb,0.19249e-07_rb,0.17793e-07_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.14552e-07_rb,0.16561e-07_rb,0.16607e-07_rb,0.16784e-07_rb,0.16326e-07_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.13127e-07_rb,0.14300e-07_rb,0.14021e-07_rb,0.14385e-07_rb,0.13328e-07_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.11514e-07_rb,0.12356e-07_rb,0.12677e-07_rb,0.12181e-07_rb,0.11774e-07_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.93434e-08_rb,0.10196e-07_rb,0.10605e-07_rb,0.10201e-07_rb,0.10584e-07_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.81790e-08_rb,0.89000e-08_rb,0.85315e-08_rb,0.89663e-08_rb,0.91635e-08_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.65541e-08_rb,0.74884e-08_rb,0.72364e-08_rb,0.72692e-08_rb,0.75649e-08_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.54665e-08_rb,0.61796e-08_rb,0.61564e-08_rb,0.61304e-08_rb,0.64285e-08_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.43531e-08_rb,0.47798e-08_rb,0.51393e-08_rb,0.49135e-08_rb,0.53520e-08_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.35872e-08_rb,0.38233e-08_rb,0.42659e-08_rb,0.39384e-08_rb,0.44541e-08_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.28156e-08_rb,0.32775e-08_rb,0.36262e-08_rb,0.32518e-08_rb,0.36805e-08_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.23879e-08_rb,0.26299e-08_rb,0.28972e-08_rb,0.27379e-08_rb,0.30333e-08_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.19282e-08_rb,0.22066e-08_rb,0.23812e-08_rb,0.23512e-08_rb,0.23794e-08_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.15092e-08_rb,0.18255e-08_rb,0.17414e-08_rb,0.19322e-08_rb,0.19399e-08_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.11905e-08_rb,0.13964e-08_rb,0.14306e-08_rb,0.14791e-08_rb,0.14939e-08_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.98537e-09_rb,0.10687e-08_rb,0.11753e-08_rb,0.11334e-08_rb,0.13178e-08_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.84255e-09_rb,0.88069e-09_rb,0.95073e-09_rb,0.92632e-09_rb,0.10457e-08_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.68238e-09_rb,0.70376e-09_rb,0.74795e-09_rb,0.75152e-09_rb,0.78131e-09_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.56271e-09_rb,0.58527e-09_rb,0.61397e-09_rb,0.56343e-09_rb,0.61138e-09_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.52493e-09_rb,0.46040e-09_rb,0.53769e-09_rb,0.51459e-09_rb,0.52912e-09_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.40372e-09_rb,0.38720e-09_rb,0.40004e-09_rb,0.56294e-09_rb,0.55844e-09_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.37372e-09_rb,0.35358e-09_rb,0.39920e-09_rb,0.52819e-09_rb,0.50147e-09_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.31149e-09_rb,0.39454e-09_rb,0.38951e-09_rb,0.52086e-09_rb,0.54542e-09_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.30564e-09_rb,0.36251e-09_rb,0.38551e-09_rb,0.43845e-09_rb,0.61772e-09_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.46934e-09_rb,0.57639e-09_rb,0.58591e-09_rb,0.63021e-09_rb,0.71158e-09_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.34320e-07_rb,0.31607e-07_rb,0.29840e-07_rb,0.29114e-07_rb,0.28831e-07_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.38157e-07_rb,0.37907e-07_rb,0.40351e-07_rb,0.45015e-07_rb,0.44786e-07_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.71231e-07_rb,0.71647e-07_rb,0.71034e-07_rb,0.71647e-07_rb,0.71755e-07_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.72049e-07_rb,0.69075e-07_rb,0.67707e-07_rb,0.67019e-07_rb,0.66780e-07_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.69751e-07_rb,0.66211e-07_rb,0.66017e-07_rb,0.63095e-07_rb,0.63343e-07_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.67728e-07_rb,0.66581e-07_rb,0.64787e-07_rb,0.62981e-07_rb,0.62245e-07_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.65864e-07_rb,0.63789e-07_rb,0.62712e-07_rb,0.62065e-07_rb,0.61005e-07_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.61816e-07_rb,0.63755e-07_rb,0.63424e-07_rb,0.61945e-07_rb,0.58720e-07_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.59112e-07_rb,0.58061e-07_rb,0.57019e-07_rb,0.54795e-07_rb,0.56069e-07_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.56217e-07_rb,0.53887e-07_rb,0.54812e-07_rb,0.52500e-07_rb,0.53303e-07_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.54428e-07_rb,0.52930e-07_rb,0.53278e-07_rb,0.52797e-07_rb,0.51840e-07_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.51236e-07_rb,0.52532e-07_rb,0.53348e-07_rb,0.51715e-07_rb,0.53224e-07_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.49989e-07_rb,0.50872e-07_rb,0.49932e-07_rb,0.52702e-07_rb,0.51493e-07_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.49845e-07_rb,0.48733e-07_rb,0.48348e-07_rb,0.51346e-07_rb,0.51109e-07_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.43883e-07_rb,0.43853e-07_rb,0.46523e-07_rb,0.47281e-07_rb,0.47292e-07_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.41424e-07_rb,0.42057e-07_rb,0.43773e-07_rb,0.43422e-07_rb,0.41438e-07_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.37736e-07_rb,0.34915e-07_rb,0.37971e-07_rb,0.38437e-07_rb,0.38122e-07_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.30209e-07_rb,0.32936e-07_rb,0.31853e-07_rb,0.30285e-07_rb,0.31746e-07_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.25886e-07_rb,0.26990e-07_rb,0.27039e-07_rb,0.26019e-07_rb,0.34246e-07_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.24750e-07_rb,0.20653e-07_rb,0.21921e-07_rb,0.25087e-07_rb,0.25874e-07_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.19410e-07_rb,0.18820e-07_rb,0.18768e-07_rb,0.23223e-07_rb,0.20942e-07_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.16037e-07_rb,0.16060e-07_rb,0.19012e-07_rb,0.17686e-07_rb,0.18319e-07_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.16085e-07_rb,0.15072e-07_rb,0.16472e-07_rb,0.15719e-07_rb,0.16406e-07_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.15014e-07_rb,0.17144e-07_rb,0.16353e-07_rb,0.15223e-07_rb,0.14884e-07_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.12909e-07_rb,0.15628e-07_rb,0.16086e-07_rb,0.15318e-07_rb,0.15605e-07_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.11803e-07_rb,0.12970e-07_rb,0.13587e-07_rb,0.13257e-07_rb,0.13920e-07_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.10299e-07_rb,0.10951e-07_rb,0.11006e-07_rb,0.11507e-07_rb,0.10553e-07_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.87605e-08_rb,0.10094e-07_rb,0.10641e-07_rb,0.94199e-08_rb,0.97115e-08_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.69747e-08_rb,0.82105e-08_rb,0.93516e-08_rb,0.90234e-08_rb,0.91657e-08_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.60201e-08_rb,0.73523e-08_rb,0.76249e-08_rb,0.76962e-08_rb,0.80489e-08_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.50249e-08_rb,0.64035e-08_rb,0.62997e-08_rb,0.63745e-08_rb,0.65773e-08_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.43021e-08_rb,0.55682e-08_rb,0.52391e-08_rb,0.55432e-08_rb,0.53417e-08_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.34659e-08_rb,0.41011e-08_rb,0.41998e-08_rb,0.45328e-08_rb,0.45452e-08_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.26629e-08_rb,0.30573e-08_rb,0.34050e-08_rb,0.36018e-08_rb,0.38146e-08_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.20352e-08_rb,0.25120e-08_rb,0.29668e-08_rb,0.27818e-08_rb,0.34015e-08_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.16537e-08_rb,0.17568e-08_rb,0.23894e-08_rb,0.22154e-08_rb,0.25802e-08_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.13981e-08_rb,0.14349e-08_rb,0.17246e-08_rb,0.17767e-08_rb,0.19090e-08_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.10918e-08_rb,0.11356e-08_rb,0.12258e-08_rb,0.14996e-08_rb,0.12493e-08_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.96204e-09_rb,0.88786e-09_rb,0.10061e-08_rb,0.12415e-08_rb,0.10774e-08_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.79848e-09_rb,0.70289e-09_rb,0.84515e-09_rb,0.10143e-08_rb,0.85552e-09_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.60435e-09_rb,0.54746e-09_rb,0.63806e-09_rb,0.74615e-09_rb,0.64507e-09_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.47378e-09_rb,0.48059e-09_rb,0.54886e-09_rb,0.73215e-09_rb,0.65721e-09_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.45346e-09_rb,0.46291e-09_rb,0.55380e-09_rb,0.67829e-09_rb,0.56756e-09_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.43938e-09_rb,0.46043e-09_rb,0.50980e-09_rb,0.62685e-09_rb,0.70094e-09_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.42587e-09_rb,0.43184e-09_rb,0.47819e-09_rb,0.57152e-09_rb,0.76528e-09_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.47403e-09_rb,0.46387e-09_rb,0.50904e-09_rb,0.58886e-09_rb,0.70162e-09_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.54448e-09_rb,0.50172e-09_rb,0.65155e-09_rb,0.65748e-09_rb,0.98321e-09_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.10995e-05_rb,0.11095e-05_rb,0.11168e-05_rb,0.11200e-05_rb,0.11274e-05_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.73340e-06_rb,0.73567e-06_rb,0.73740e-06_rb,0.73330e-06_rb,0.73919e-06_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.32510e-06_rb,0.31252e-06_rb,0.30243e-06_rb,0.29146e-06_rb,0.28830e-06_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.61567e-07_rb,0.60590e-07_rb,0.61057e-07_rb,0.58821e-07_rb,0.58536e-07_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.60009e-07_rb,0.60924e-07_rb,0.61205e-07_rb,0.63591e-07_rb,0.59950e-07_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.61458e-07_rb,0.61692e-07_rb,0.60339e-07_rb,0.59878e-07_rb,0.58575e-07_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.57878e-07_rb,0.60299e-07_rb,0.60236e-07_rb,0.59512e-07_rb,0.58126e-07_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.58329e-07_rb,0.57451e-07_rb,0.54760e-07_rb,0.57082e-07_rb,0.56805e-07_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.53092e-07_rb,0.51700e-07_rb,0.51833e-07_rb,0.52853e-07_rb,0.52467e-07_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.47591e-07_rb,0.51357e-07_rb,0.49075e-07_rb,0.53548e-07_rb,0.55924e-07_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.49724e-07_rb,0.51803e-07_rb,0.51793e-07_rb,0.49922e-07_rb,0.52665e-07_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.47737e-07_rb,0.49279e-07_rb,0.51207e-07_rb,0.49000e-07_rb,0.51613e-07_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.49014e-07_rb,0.50174e-07_rb,0.54886e-07_rb,0.47520e-07_rb,0.49798e-07_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.42783e-07_rb,0.51200e-07_rb,0.50600e-07_rb,0.47620e-07_rb,0.43709e-07_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.42685e-07_rb,0.50611e-07_rb,0.42800e-07_rb,0.43026e-07_rb,0.46518e-07_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.40023e-07_rb,0.44433e-07_rb,0.38380e-07_rb,0.40945e-07_rb,0.42005e-07_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.34641e-07_rb,0.38943e-07_rb,0.36153e-07_rb,0.36773e-07_rb,0.32051e-07_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.31936e-07_rb,0.28774e-07_rb,0.32629e-07_rb,0.32074e-07_rb,0.31547e-07_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.25468e-07_rb,0.25946e-07_rb,0.23671e-07_rb,0.23770e-07_rb,0.28704e-07_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.18317e-07_rb,0.22069e-07_rb,0.20055e-07_rb,0.21665e-07_rb,0.25653e-07_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.18319e-07_rb,0.17920e-07_rb,0.16523e-07_rb,0.20049e-07_rb,0.19951e-07_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.15127e-07_rb,0.13546e-07_rb,0.16257e-07_rb,0.16818e-07_rb,0.15661e-07_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.12192e-07_rb,0.13829e-07_rb,0.15792e-07_rb,0.15440e-07_rb,0.14596e-07_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.11593e-07_rb,0.10509e-07_rb,0.13211e-07_rb,0.13026e-07_rb,0.13917e-07_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.12302e-07_rb,0.13196e-07_rb,0.12558e-07_rb,0.11760e-07_rb,0.12490e-07_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.10116e-07_rb,0.12498e-07_rb,0.12546e-07_rb,0.12890e-07_rb,0.12908e-07_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.88258e-08_rb,0.10400e-07_rb,0.11293e-07_rb,0.11361e-07_rb,0.11468e-07_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.70753e-08_rb,0.81481e-08_rb,0.94292e-08_rb,0.10943e-07_rb,0.90300e-08_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.71994e-08_rb,0.84394e-08_rb,0.89108e-08_rb,0.89407e-08_rb,0.87875e-08_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.55536e-08_rb,0.66846e-08_rb,0.83965e-08_rb,0.80560e-08_rb,0.79305e-08_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.50223e-08_rb,0.59958e-08_rb,0.69583e-08_rb,0.70648e-08_rb,0.76990e-08_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.40990e-08_rb,0.43884e-08_rb,0.50706e-08_rb,0.56081e-08_rb,0.62414e-08_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.35590e-08_rb,0.38731e-08_rb,0.41923e-08_rb,0.44278e-08_rb,0.44950e-08_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.26814e-08_rb,0.33691e-08_rb,0.34101e-08_rb,0.34324e-08_rb,0.35321e-08_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.21424e-08_rb,0.21249e-08_rb,0.27532e-08_rb,0.28475e-08_rb,0.25748e-08_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.16514e-08_rb,0.18931e-08_rb,0.22507e-08_rb,0.22575e-08_rb,0.21238e-08_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.12235e-08_rb,0.12503e-08_rb,0.16643e-08_rb,0.16742e-08_rb,0.16438e-08_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.11340e-08_rb,0.11248e-08_rb,0.13120e-08_rb,0.13854e-08_rb,0.13503e-08_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.79176e-09_rb,0.91681e-09_rb,0.99908e-09_rb,0.13532e-08_rb,0.10405e-08_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.64785e-09_rb,0.57185e-09_rb,0.84784e-09_rb,0.90912e-09_rb,0.87721e-09_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.51330e-09_rb,0.43209e-09_rb,0.61659e-09_rb,0.79798e-09_rb,0.65017e-09_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.40227e-09_rb,0.45562e-09_rb,0.54691e-09_rb,0.63160e-09_rb,0.62902e-09_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.44280e-09_rb,0.43833e-09_rb,0.48132e-09_rb,0.55748e-09_rb,0.72672e-09_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.33767e-09_rb,0.43448e-09_rb,0.42774e-09_rb,0.52401e-09_rb,0.66273e-09_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.40113e-09_rb,0.38794e-09_rb,0.46286e-09_rb,0.57261e-09_rb,0.60773e-09_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.36624e-09_rb,0.52965e-09_rb,0.49530e-09_rb,0.54114e-09_rb,0.65708e-09_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.52598e-09_rb,0.55940e-09_rb,0.70094e-09_rb,0.71749e-09_rb,0.81086e-09_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.75197e-05_rb,0.74908e-05_rb,0.74768e-05_rb,0.74579e-05_rb,0.74485e-05_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.62427e-05_rb,0.62400e-05_rb,0.62314e-05_rb,0.62357e-05_rb,0.62230e-05_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.51235e-05_rb,0.51220e-05_rb,0.51270e-05_rb,0.51388e-05_rb,0.51377e-05_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.36653e-05_rb,0.36812e-05_rb,0.36844e-05_rb,0.36893e-05_rb,0.37175e-05_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.10067e-05_rb,0.10571e-05_rb,0.10948e-05_rb,0.11331e-05_rb,0.11791e-05_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.37963e-07_rb,0.35028e-07_rb,0.38085e-07_rb,0.36252e-07_rb,0.39741e-07_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.58861e-07_rb,0.39909e-07_rb,0.43872e-07_rb,0.52963e-07_rb,0.37762e-07_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.65438e-07_rb,0.43429e-07_rb,0.52709e-07_rb,0.35811e-07_rb,0.59833e-07_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.50452e-07_rb,0.50995e-07_rb,0.40371e-07_rb,0.51145e-07_rb,0.52725e-07_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.42139e-07_rb,0.45011e-07_rb,0.61867e-07_rb,0.41292e-07_rb,0.37916e-07_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.30176e-07_rb,0.29856e-07_rb,0.39637e-07_rb,0.38957e-07_rb,0.64896e-07_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.36010e-07_rb,0.42155e-07_rb,0.32787e-07_rb,0.46750e-07_rb,0.46940e-07_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.34802e-07_rb,0.41607e-07_rb,0.40854e-07_rb,0.61643e-07_rb,0.53762e-07_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.41295e-07_rb,0.39697e-07_rb,0.46005e-07_rb,0.46334e-07_rb,0.53334e-07_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.61711e-07_rb,0.29641e-07_rb,0.51823e-07_rb,0.42625e-07_rb,0.36336e-07_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.45196e-07_rb,0.56637e-07_rb,0.31716e-07_rb,0.38569e-07_rb,0.45693e-07_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.47349e-07_rb,0.38492e-07_rb,0.26330e-07_rb,0.30953e-07_rb,0.33330e-07_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.20700e-07_rb,0.24999e-07_rb,0.19626e-07_rb,0.33645e-07_rb,0.21883e-07_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.31879e-07_rb,0.26245e-07_rb,0.28697e-07_rb,0.26867e-07_rb,0.26801e-07_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.29616e-07_rb,0.18927e-07_rb,0.18903e-07_rb,0.14917e-07_rb,0.25602e-07_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.22437e-07_rb,0.26260e-07_rb,0.17262e-07_rb,0.13354e-07_rb,0.18413e-07_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.15957e-07_rb,0.11226e-07_rb,0.16852e-07_rb,0.11987e-07_rb,0.14358e-07_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.11233e-07_rb,0.90736e-08_rb,0.13960e-07_rb,0.76472e-08_rb,0.11733e-07_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.13919e-07_rb,0.10081e-07_rb,0.10035e-07_rb,0.10345e-07_rb,0.10622e-07_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.76780e-08_rb,0.12331e-07_rb,0.10794e-07_rb,0.16023e-07_rb,0.11524e-07_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.65416e-08_rb,0.97484e-08_rb,0.12132e-07_rb,0.10472e-07_rb,0.11363e-07_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.78511e-08_rb,0.70392e-08_rb,0.91444e-08_rb,0.84352e-08_rb,0.95946e-08_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.81878e-08_rb,0.94957e-08_rb,0.84996e-08_rb,0.11246e-07_rb,0.13024e-07_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.65901e-08_rb,0.80717e-08_rb,0.78357e-08_rb,0.67309e-08_rb,0.85966e-08_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.64210e-08_rb,0.59979e-08_rb,0.56936e-08_rb,0.70018e-08_rb,0.70433e-08_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.40388e-08_rb,0.71452e-08_rb,0.63548e-08_rb,0.84902e-08_rb,0.75828e-08_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.39142e-08_rb,0.55915e-08_rb,0.49863e-08_rb,0.52254e-08_rb,0.62790e-08_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.42931e-08_rb,0.31608e-08_rb,0.46572e-08_rb,0.47490e-08_rb,0.59912e-08_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.38722e-08_rb,0.16146e-08_rb,0.40010e-08_rb,0.24242e-08_rb,0.45711e-08_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.14942e-08_rb,0.28671e-08_rb,0.27168e-08_rb,0.40090e-08_rb,0.42343e-08_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.11911e-08_rb,0.13582e-08_rb,0.26580e-08_rb,0.29275e-08_rb,0.17855e-08_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.14130e-08_rb,0.10553e-08_rb,0.10543e-08_rb,0.11428e-08_rb,0.14141e-08_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.12182e-08_rb,0.14973e-08_rb,0.13182e-08_rb,0.84197e-09_rb,0.12115e-08_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.81227e-09_rb,0.90496e-09_rb,0.77903e-09_rb,0.83007e-09_rb,0.86051e-09_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.96715e-09_rb,0.52504e-09_rb,0.42702e-09_rb,0.99435e-09_rb,0.91829e-09_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.37232e-09_rb,0.22359e-09_rb,0.89279e-09_rb,0.85173e-09_rb,0.51790e-09_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.34402e-09_rb,0.40116e-09_rb,0.54696e-09_rb,0.50848e-09_rb,0.53123e-09_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.66100e-09_rb,0.65370e-09_rb,0.58427e-09_rb,0.74840e-09_rb,0.49778e-09_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.43138e-09_rb,0.39155e-09_rb,0.52944e-09_rb,0.58374e-09_rb,0.77481e-09_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.48190e-09_rb,0.37726e-09_rb,0.54783e-09_rb,0.43462e-09_rb,0.46295e-09_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.42276e-09_rb,0.62831e-09_rb,0.68493e-09_rb,0.49089e-09_rb,0.43799e-09_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.37023e-09_rb,0.90764e-09_rb,0.36527e-09_rb,0.99235e-09_rb,0.10719e-08_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.15119e-04_rb,0.15135e-04_rb,0.15140e-04_rb,0.15181e-04_rb,0.15209e-04_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.12807e-04_rb,0.12837e-04_rb,0.12873e-04_rb,0.12938e-04_rb,0.12999e-04_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.10789e-04_rb,0.10839e-04_rb,0.10921e-04_rb,0.10986e-04_rb,0.11078e-04_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.90472e-05_rb,0.91077e-05_rb,0.91930e-05_rb,0.92812e-05_rb,0.93959e-05_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.74085e-05_rb,0.75116e-05_rb,0.76103e-05_rb,0.77238e-05_rb,0.78364e-05_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.47863e-05_rb,0.49607e-05_rb,0.51634e-05_rb,0.53824e-05_rb,0.55724e-05_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.17849e-05_rb,0.19797e-05_rb,0.21641e-05_rb,0.23597e-05_rb,0.26015e-05_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.14011e-06_rb,0.26424e-06_rb,0.39902e-06_rb,0.56382e-06_rb,0.75666e-06_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.32681e-07_rb,0.30855e-07_rb,0.23688e-07_rb,0.28954e-07_rb,0.30262e-07_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.39000e-07_rb,0.34641e-07_rb,0.36220e-07_rb,0.29230e-07_rb,0.25365e-07_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.39936e-07_rb,0.40586e-07_rb,0.26460e-07_rb,0.13886e-07_rb,0.18108e-07_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.34546e-07_rb,0.30818e-07_rb,0.33243e-07_rb,0.31408e-07_rb,0.37755e-07_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.36078e-07_rb,0.45586e-07_rb,0.18117e-07_rb,0.20176e-07_rb,0.46256e-07_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.61382e-07_rb,0.31185e-07_rb,0.38578e-07_rb,0.18908e-07_rb,0.43919e-07_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.37585e-07_rb,0.28323e-07_rb,0.45638e-07_rb,0.34261e-07_rb,0.26227e-07_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.41226e-07_rb,0.24793e-07_rb,0.23296e-07_rb,0.20952e-07_rb,0.27899e-07_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.21318e-07_rb,0.23768e-07_rb,0.39220e-07_rb,0.28896e-07_rb,0.15703e-07_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.25522e-07_rb,0.29485e-07_rb,0.39326e-07_rb,0.29293e-07_rb,0.36529e-07_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.14494e-07_rb,0.25417e-07_rb,0.13732e-07_rb,0.97827e-08_rb,0.20014e-07_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.14101e-07_rb,0.26239e-07_rb,0.22312e-07_rb,0.10163e-07_rb,0.17547e-07_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.17347e-07_rb,0.17261e-07_rb,0.13014e-07_rb,0.21130e-07_rb,0.31576e-08_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.11923e-07_rb,0.13818e-07_rb,0.14692e-07_rb,0.14120e-07_rb,0.12000e-07_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.86917e-08_rb,0.10083e-07_rb,0.11872e-07_rb,0.58578e-08_rb,0.13194e-07_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.74538e-08_rb,0.94606e-08_rb,0.85633e-08_rb,0.15394e-07_rb,0.81997e-08_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.59982e-08_rb,0.58805e-08_rb,0.92255e-08_rb,0.69472e-08_rb,0.63632e-08_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.75481e-08_rb,0.82094e-08_rb,0.10405e-07_rb,0.62921e-08_rb,0.70021e-08_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.65770e-08_rb,0.73715e-08_rb,0.70899e-08_rb,0.49884e-08_rb,0.73567e-08_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.62200e-08_rb,0.79227e-08_rb,0.65710e-08_rb,0.35793e-08_rb,0.48653e-08_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.67810e-08_rb,0.64933e-08_rb,0.26651e-08_rb,0.71067e-08_rb,0.42136e-08_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.32351e-08_rb,0.79993e-08_rb,0.25727e-08_rb,0.70581e-08_rb,0.58932e-08_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.54331e-08_rb,0.21653e-08_rb,0.69372e-08_rb,0.30142e-08_rb,0.23071e-07_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.26834e-08_rb,0.43047e-08_rb,0.44246e-08_rb,0.29474e-08_rb,0.52315e-07_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.22521e-08_rb,0.21920e-08_rb,0.35952e-08_rb,0.29799e-08_rb,0.81164e-07_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.28580e-08_rb,0.12605e-08_rb,0.64390e-09_rb,0.24255e-07_rb,0.96879e-07_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.13005e-08_rb,0.17967e-08_rb,0.21618e-08_rb,0.30225e-07_rb,0.10319e-06_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.13676e-08_rb,0.96043e-09_rb,0.14275e-08_rb,0.39735e-07_rb,0.11261e-06_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.79619e-09_rb,0.85338e-09_rb,0.14300e-08_rb,0.51821e-07_rb,0.12169e-06_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.49284e-09_rb,0.21801e-09_rb,0.75017e-08_rb,0.50308e-07_rb,0.11953e-06_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.51956e-09_rb,0.59927e-09_rb,0.87276e-08_rb,0.45028e-07_rb,0.11141e-06_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.35814e-09_rb,0.78982e-09_rb,0.10205e-07_rb,0.45574e-07_rb,0.10332e-06_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.69729e-09_rb,0.23757e-09_rb,0.11741e-07_rb,0.45086e-07_rb,0.98023e-07_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.38203e-09_rb,0.28792e-09_rb,0.72239e-08_rb,0.35770e-07_rb,0.80771e-07_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.33870e-09_rb,0.39698e-09_rb,0.15883e-08_rb,0.22568e-07_rb,0.61465e-07_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.50424e-09_rb,0.25383e-09_rb,0.46226e-09_rb,0.12214e-07_rb,0.43776e-07_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.18824e-09_rb,0.14340e-09_rb,0.96547e-10_rb,0.36771e-08_rb,0.28437e-07_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.53960e-09_rb,0.71198e-09_rb,0.40290e-09_rb,0.38600e-09_rb,0.14449e-07_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.64570e-09_rb,0.80856e-09_rb,0.54439e-09_rb,0.66021e-09_rb,0.28306e-09_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.35137e-04_rb,0.35315e-04_rb,0.35473e-04_rb,0.35691e-04_rb,0.35953e-04_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.30387e-04_rb,0.30535e-04_rb,0.30693e-04_rb,0.30906e-04_rb,0.31121e-04_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.26404e-04_rb,0.26560e-04_rb,0.26776e-04_rb,0.26963e-04_rb,0.27157e-04_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.22908e-04_rb,0.23161e-04_rb,0.23420e-04_rb,0.23636e-04_rb,0.23864e-04_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.19849e-04_rb,0.20170e-04_rb,0.20453e-04_rb,0.20723e-04_rb,0.21011e-04_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.17158e-04_rb,0.17516e-04_rb,0.17820e-04_rb,0.18149e-04_rb,0.18467e-04_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.14706e-04_rb,0.15074e-04_rb,0.15426e-04_rb,0.15809e-04_rb,0.16128e-04_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.12200e-04_rb,0.12654e-04_rb,0.13122e-04_rb,0.13561e-04_rb,0.13942e-04_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.88744e-05_rb,0.95294e-05_rb,0.10194e-04_rb,0.10811e-04_rb,0.11447e-04_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.63063e-05_rb,0.69160e-05_rb,0.75170e-05_rb,0.81696e-05_rb,0.87829e-05_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.42549e-05_rb,0.48576e-05_rb,0.54224e-05_rb,0.60649e-05_rb,0.65852e-05_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.26155e-05_rb,0.31537e-05_rb,0.36816e-05_rb,0.42795e-05_rb,0.47356e-05_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.14576e-05_rb,0.18762e-05_rb,0.23875e-05_rb,0.29308e-05_rb,0.33846e-05_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.67369e-06_rb,0.10096e-05_rb,0.14730e-05_rb,0.19592e-05_rb,0.24356e-05_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.27240e-06_rb,0.59733e-06_rb,0.98553e-06_rb,0.13968e-05_rb,0.18466e-05_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.81179e-07_rb,0.35063e-06_rb,0.74692e-06_rb,0.11081e-05_rb,0.15613e-05_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.94800e-07_rb,0.40513e-06_rb,0.73547e-06_rb,0.10914e-05_rb,0.16188e-05_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.19045e-06_rb,0.51192e-06_rb,0.80594e-06_rb,0.12694e-05_rb,0.16954e-05_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.38493e-06_rb,0.71230e-06_rb,0.11392e-05_rb,0.15875e-05_rb,0.20565e-05_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.61444e-06_rb,0.97779e-06_rb,0.14257e-05_rb,0.18883e-05_rb,0.26649e-05_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.84230e-06_rb,0.12390e-05_rb,0.17304e-05_rb,0.23322e-05_rb,0.32859e-05_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.10458e-05_rb,0.14709e-05_rb,0.19634e-05_rb,0.28004e-05_rb,0.37724e-05_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.11901e-05_rb,0.16306e-05_rb,0.22411e-05_rb,0.31089e-05_rb,0.41007e-05_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.12859e-05_rb,0.17604e-05_rb,0.24414e-05_rb,0.32964e-05_rb,0.43267e-05_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.13015e-05_rb,0.17577e-05_rb,0.24562e-05_rb,0.33117e-05_rb,0.43238e-05_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.13522e-05_rb,0.18247e-05_rb,0.25116e-05_rb,0.33483e-05_rb,0.43352e-05_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.14322e-05_rb,0.19336e-05_rb,0.26107e-05_rb,0.34258e-05_rb,0.44158e-05_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.14006e-05_rb,0.18728e-05_rb,0.25304e-05_rb,0.33179e-05_rb,0.42738e-05_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.13551e-05_rb,0.18012e-05_rb,0.24357e-05_rb,0.32084e-05_rb,0.41141e-05_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.13297e-05_rb,0.17512e-05_rb,0.23561e-05_rb,0.30946e-05_rb,0.39665e-05_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.12687e-05_rb,0.16768e-05_rb,0.22464e-05_rb,0.29540e-05_rb,0.37527e-05_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.12099e-05_rb,0.15968e-05_rb,0.21385e-05_rb,0.28006e-05_rb,0.35240e-05_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.11534e-05_rb,0.15243e-05_rb,0.20279e-05_rb,0.26581e-05_rb,0.33062e-05_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.10898e-05_rb,0.14434e-05_rb,0.19097e-05_rb,0.24739e-05_rb,0.30807e-05_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.10111e-05_rb,0.13412e-05_rb,0.17607e-05_rb,0.22724e-05_rb,0.28391e-05_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.92540e-06_rb,0.12447e-05_rb,0.16295e-05_rb,0.20863e-05_rb,0.26097e-05_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.84684e-06_rb,0.11506e-05_rb,0.15141e-05_rb,0.19160e-05_rb,0.23957e-05_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.76391e-06_rb,0.10519e-05_rb,0.13910e-05_rb,0.17635e-05_rb,0.22060e-05_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.68139e-06_rb,0.95640e-06_rb,0.12771e-05_rb,0.16252e-05_rb,0.20363e-05_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.60392e-06_rb,0.86706e-06_rb,0.11671e-05_rb,0.14940e-05_rb,0.18793e-05_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.53856e-06_rb,0.78259e-06_rb,0.10620e-05_rb,0.13737e-05_rb,0.17330e-05_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.46919e-06_rb,0.69589e-06_rb,0.96582e-06_rb,0.12666e-05_rb,0.16070e-05_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.40013e-06_rb,0.61215e-06_rb,0.87450e-06_rb,0.11663e-05_rb,0.14929e-05_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.33987e-06_rb,0.53286e-06_rb,0.78520e-06_rb,0.10697e-05_rb,0.13857e-05_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.28415e-06_rb,0.45936e-06_rb,0.69784e-06_rb,0.97544e-06_rb,0.12829e-05_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.23457e-06_rb,0.39019e-06_rb,0.61528e-06_rb,0.88439e-06_rb,0.11866e-05_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.19576e-06_rb,0.34385e-06_rb,0.56055e-06_rb,0.82347e-06_rb,0.11274e-05_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.12143e-03_rb,0.12308e-03_rb,0.12512e-03_rb,0.12699e-03_rb,0.12910e-03_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.10385e-03_rb,0.10569e-03_rb,0.10770e-03_rb,0.10972e-03_rb,0.11214e-03_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.88944e-04_rb,0.90837e-04_rb,0.92688e-04_rb,0.94910e-04_rb,0.97472e-04_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.76542e-04_rb,0.78268e-04_rb,0.80179e-04_rb,0.82469e-04_rb,0.84734e-04_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.66332e-04_rb,0.67885e-04_rb,0.69742e-04_rb,0.71831e-04_rb,0.74034e-04_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.57811e-04_rb,0.59251e-04_rb,0.61096e-04_rb,0.62954e-04_rb,0.65175e-04_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.50669e-04_rb,0.52124e-04_rb,0.53790e-04_rb,0.55608e-04_rb,0.57861e-04_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.44810e-04_rb,0.46258e-04_rb,0.47774e-04_rb,0.49573e-04_rb,0.51715e-04_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.40009e-04_rb,0.41361e-04_rb,0.42755e-04_rb,0.44560e-04_rb,0.46559e-04_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.36116e-04_rb,0.37297e-04_rb,0.38718e-04_rb,0.40472e-04_rb,0.42441e-04_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.32736e-04_rb,0.33861e-04_rb,0.35361e-04_rb,0.37075e-04_rb,0.39134e-04_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.29883e-04_rb,0.31056e-04_rb,0.32552e-04_rb,0.34296e-04_rb,0.36499e-04_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.27373e-04_rb,0.28693e-04_rb,0.30179e-04_rb,0.32033e-04_rb,0.34358e-04_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.25273e-04_rb,0.26749e-04_rb,0.28306e-04_rb,0.30341e-04_rb,0.32793e-04_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.23652e-04_rb,0.25175e-04_rb,0.26905e-04_rb,0.29145e-04_rb,0.31814e-04_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.22453e-04_rb,0.24077e-04_rb,0.26031e-04_rb,0.28419e-04_rb,0.31259e-04_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.21794e-04_rb,0.23553e-04_rb,0.25672e-04_rb,0.28266e-04_rb,0.31243e-04_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.21501e-04_rb,0.23414e-04_rb,0.25687e-04_rb,0.28389e-04_rb,0.31547e-04_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.21532e-04_rb,0.23577e-04_rb,0.25947e-04_rb,0.28793e-04_rb,0.32070e-04_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.21702e-04_rb,0.23850e-04_rb,0.26365e-04_rb,0.29337e-04_rb,0.32730e-04_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.21999e-04_rb,0.24243e-04_rb,0.26895e-04_rb,0.29970e-04_rb,0.33492e-04_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.22272e-04_rb,0.24615e-04_rb,0.27365e-04_rb,0.30535e-04_rb,0.34149e-04_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.22408e-04_rb,0.24786e-04_rb,0.27609e-04_rb,0.30838e-04_rb,0.34518e-04_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.22324e-04_rb,0.24717e-04_rb,0.27535e-04_rb,0.30781e-04_rb,0.34466e-04_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.21914e-04_rb,0.24278e-04_rb,0.27037e-04_rb,0.30223e-04_rb,0.33847e-04_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.21518e-04_rb,0.23846e-04_rb,0.26529e-04_rb,0.29664e-04_rb,0.33219e-04_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.21138e-04_rb,0.23443e-04_rb,0.26064e-04_rb,0.29132e-04_rb,0.32628e-04_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.20535e-04_rb,0.22813e-04_rb,0.25328e-04_rb,0.28289e-04_rb,0.31682e-04_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.19918e-04_rb,0.22174e-04_rb,0.24598e-04_rb,0.27447e-04_rb,0.30722e-04_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.19309e-04_rb,0.21550e-04_rb,0.23909e-04_rb,0.26639e-04_rb,0.29801e-04_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.18566e-04_rb,0.20812e-04_rb,0.23112e-04_rb,0.25700e-04_rb,0.28732e-04_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.17767e-04_rb,0.20035e-04_rb,0.22299e-04_rb,0.24756e-04_rb,0.27639e-04_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.16962e-04_rb,0.19260e-04_rb,0.21500e-04_rb,0.23864e-04_rb,0.26597e-04_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.16086e-04_rb,0.18421e-04_rb,0.20671e-04_rb,0.22972e-04_rb,0.25545e-04_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.15115e-04_rb,0.17481e-04_rb,0.19766e-04_rb,0.22019e-04_rb,0.24442e-04_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.14158e-04_rb,0.16526e-04_rb,0.18843e-04_rb,0.21088e-04_rb,0.23419e-04_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.13195e-04_rb,0.15552e-04_rb,0.17911e-04_rb,0.20179e-04_rb,0.22454e-04_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.12314e-04_rb,0.14653e-04_rb,0.17032e-04_rb,0.19326e-04_rb,0.21576e-04_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.11480e-04_rb,0.13788e-04_rb,0.16154e-04_rb,0.18484e-04_rb,0.20739e-04_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.10629e-04_rb,0.12922e-04_rb,0.15279e-04_rb,0.17642e-04_rb,0.19921e-04_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.97710e-05_rb,0.12082e-04_rb,0.14410e-04_rb,0.16788e-04_rb,0.19091e-04_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.90074e-05_rb,0.11316e-04_rb,0.13617e-04_rb,0.15981e-04_rb,0.18321e-04_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.83042e-05_rb,0.10569e-04_rb,0.12859e-04_rb,0.15214e-04_rb,0.17581e-04_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.76202e-05_rb,0.98296e-05_rb,0.12125e-04_rb,0.14457e-04_rb,0.16835e-04_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.69561e-05_rb,0.91024e-05_rb,0.11398e-04_rb,0.13700e-04_rb,0.16068e-04_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.63426e-05_rb,0.84347e-05_rb,0.10695e-04_rb,0.12984e-04_rb,0.15340e-04_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.61056e-05_rb,0.81719e-05_rb,0.10410e-04_rb,0.12698e-04_rb,0.15054e-04_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.69692e-03_rb,0.71516e-03_rb,0.73378e-03_rb,0.75443e-03_rb,0.77716e-03_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.64436e-03_rb,0.66211e-03_rb,0.68199e-03_rb,0.70460e-03_rb,0.72891e-03_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.59775e-03_rb,0.61618e-03_rb,0.63785e-03_rb,0.66198e-03_rb,0.68803e-03_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.55668e-03_rb,0.57752e-03_rb,0.60052e-03_rb,0.62615e-03_rb,0.65391e-03_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.52104e-03_rb,0.54458e-03_rb,0.56934e-03_rb,0.59627e-03_rb,0.62539e-03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.49086e-03_rb,0.51685e-03_rb,0.54337e-03_rb,0.57147e-03_rb,0.60182e-03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.46544e-03_rb,0.49373e-03_rb,0.52192e-03_rb,0.55124e-03_rb,0.58277e-03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.44496e-03_rb,0.47526e-03_rb,0.50494e-03_rb,0.53564e-03_rb,0.56857e-03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.42855e-03_rb,0.46070e-03_rb,0.49202e-03_rb,0.52375e-03_rb,0.55795e-03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.41783e-03_rb,0.45160e-03_rb,0.48421e-03_rb,0.51739e-03_rb,0.55269e-03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.41085e-03_rb,0.44564e-03_rb,0.47947e-03_rb,0.51389e-03_rb,0.55016e-03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.40699e-03_rb,0.44263e-03_rb,0.47766e-03_rb,0.51290e-03_rb,0.55008e-03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.40592e-03_rb,0.44215e-03_rb,0.47812e-03_rb,0.51419e-03_rb,0.55216e-03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.40741e-03_rb,0.44425e-03_rb,0.48085e-03_rb,0.51770e-03_rb,0.55654e-03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.41074e-03_rb,0.44811e-03_rb,0.48506e-03_rb,0.52264e-03_rb,0.56211e-03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.41538e-03_rb,0.45333e-03_rb,0.49042e-03_rb,0.52868e-03_rb,0.56877e-03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.42139e-03_rb,0.45956e-03_rb,0.49700e-03_rb,0.53588e-03_rb,0.57647e-03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.42836e-03_rb,0.46659e-03_rb,0.50435e-03_rb,0.54377e-03_rb,0.58489e-03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.43618e-03_rb,0.47431e-03_rb,0.51248e-03_rb,0.55256e-03_rb,0.59401e-03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.44466e-03_rb,0.48256e-03_rb,0.52138e-03_rb,0.56187e-03_rb,0.60364e-03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.45349e-03_rb,0.49137e-03_rb,0.53076e-03_rb,0.57166e-03_rb,0.61359e-03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.46108e-03_rb,0.49922e-03_rb,0.53902e-03_rb,0.58028e-03_rb,0.62237e-03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.46528e-03_rb,0.50354e-03_rb,0.54368e-03_rb,0.58501e-03_rb,0.62724e-03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.46539e-03_rb,0.50375e-03_rb,0.54391e-03_rb,0.58538e-03_rb,0.62763e-03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.45984e-03_rb,0.49817e-03_rb,0.53806e-03_rb,0.57948e-03_rb,0.62153e-03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.45408e-03_rb,0.49229e-03_rb,0.53205e-03_rb,0.57322e-03_rb,0.61533e-03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.44837e-03_rb,0.48652e-03_rb,0.52604e-03_rb,0.56712e-03_rb,0.60916e-03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.43865e-03_rb,0.47705e-03_rb,0.51607e-03_rb,0.55678e-03_rb,0.59870e-03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.42850e-03_rb,0.46708e-03_rb,0.50578e-03_rb,0.54611e-03_rb,0.58790e-03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.41832e-03_rb,0.45718e-03_rb,0.49552e-03_rb,0.53551e-03_rb,0.57688e-03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.40611e-03_rb,0.44501e-03_rb,0.48328e-03_rb,0.52271e-03_rb,0.56375e-03_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.39281e-03_rb,0.43169e-03_rb,0.47025e-03_rb,0.50904e-03_rb,0.54960e-03_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.37939e-03_rb,0.41841e-03_rb,0.45722e-03_rb,0.49565e-03_rb,0.53564e-03_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.36481e-03_rb,0.40443e-03_rb,0.44334e-03_rb,0.48171e-03_rb,0.52104e-03_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.34813e-03_rb,0.38867e-03_rb,0.42754e-03_rb,0.46626e-03_rb,0.50489e-03_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.33101e-03_rb,0.37257e-03_rb,0.41188e-03_rb,0.45078e-03_rb,0.48906e-03_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.31369e-03_rb,0.35613e-03_rb,0.39621e-03_rb,0.43508e-03_rb,0.47354e-03_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.29739e-03_rb,0.34030e-03_rb,0.38132e-03_rb,0.42035e-03_rb,0.45918e-03_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.28140e-03_rb,0.32461e-03_rb,0.36662e-03_rb,0.40619e-03_rb,0.44511e-03_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.26563e-03_rb,0.30898e-03_rb,0.35161e-03_rb,0.39193e-03_rb,0.43080e-03_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.24997e-03_rb,0.29311e-03_rb,0.33618e-03_rb,0.37741e-03_rb,0.41655e-03_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.23534e-03_rb,0.27846e-03_rb,0.32175e-03_rb,0.36391e-03_rb,0.40359e-03_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.22140e-03_rb,0.26468e-03_rb,0.30799e-03_rb,0.35062e-03_rb,0.39107e-03_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.20748e-03_rb,0.25097e-03_rb,0.29409e-03_rb,0.33714e-03_rb,0.37835e-03_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.19363e-03_rb,0.23702e-03_rb,0.28013e-03_rb,0.32339e-03_rb,0.36545e-03_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.18066e-03_rb,0.22379e-03_rb,0.26710e-03_rb,0.31040e-03_rb,0.35295e-03_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.17550e-03_rb,0.21855e-03_rb,0.26188e-03_rb,0.30515e-03_rb,0.34793e-03_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.67077e-02_rb,0.67643e-02_rb,0.68102e-02_rb,0.68432e-02_rb,0.68617e-02_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.68112e-02_rb,0.68842e-02_rb,0.69413e-02_rb,0.69806e-02_rb,0.70063e-02_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.68961e-02_rb,0.69833e-02_rb,0.70488e-02_rb,0.70965e-02_rb,0.71269e-02_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.69706e-02_rb,0.70648e-02_rb,0.71387e-02_rb,0.71925e-02_rb,0.72279e-02_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.70342e-02_rb,0.71339e-02_rb,0.72130e-02_rb,0.72737e-02_rb,0.73138e-02_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.70890e-02_rb,0.71933e-02_rb,0.72776e-02_rb,0.73426e-02_rb,0.73856e-02_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.71380e-02_rb,0.72441e-02_rb,0.73326e-02_rb,0.74006e-02_rb,0.74464e-02_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.71838e-02_rb,0.72907e-02_rb,0.73816e-02_rb,0.74514e-02_rb,0.74969e-02_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.72239e-02_rb,0.73326e-02_rb,0.74235e-02_rb,0.74941e-02_rb,0.75405e-02_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.72699e-02_rb,0.73767e-02_rb,0.74650e-02_rb,0.75340e-02_rb,0.75785e-02_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.73111e-02_rb,0.74172e-02_rb,0.75033e-02_rb,0.75687e-02_rb,0.76113e-02_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.73510e-02_rb,0.74537e-02_rb,0.75371e-02_rb,0.76008e-02_rb,0.76395e-02_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.73875e-02_rb,0.74885e-02_rb,0.75684e-02_rb,0.76282e-02_rb,0.76634e-02_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.74256e-02_rb,0.75226e-02_rb,0.75985e-02_rb,0.76530e-02_rb,0.76835e-02_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.74605e-02_rb,0.75517e-02_rb,0.76248e-02_rb,0.76742e-02_rb,0.77008e-02_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.74927e-02_rb,0.75800e-02_rb,0.76483e-02_rb,0.76927e-02_rb,0.77139e-02_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.75244e-02_rb,0.76057e-02_rb,0.76690e-02_rb,0.77086e-02_rb,0.77249e-02_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.75518e-02_rb,0.76303e-02_rb,0.76877e-02_rb,0.77209e-02_rb,0.77334e-02_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.75781e-02_rb,0.76519e-02_rb,0.77036e-02_rb,0.77320e-02_rb,0.77395e-02_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.76025e-02_rb,0.76727e-02_rb,0.77178e-02_rb,0.77409e-02_rb,0.77439e-02_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.76266e-02_rb,0.76908e-02_rb,0.77289e-02_rb,0.77461e-02_rb,0.77464e-02_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.76450e-02_rb,0.77038e-02_rb,0.77387e-02_rb,0.77507e-02_rb,0.77465e-02_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.76558e-02_rb,0.77117e-02_rb,0.77433e-02_rb,0.77536e-02_rb,0.77475e-02_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.76587e-02_rb,0.77150e-02_rb,0.77452e-02_rb,0.77564e-02_rb,0.77495e-02_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.76522e-02_rb,0.77109e-02_rb,0.77439e-02_rb,0.77579e-02_rb,0.77534e-02_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.76429e-02_rb,0.77056e-02_rb,0.77426e-02_rb,0.77582e-02_rb,0.77560e-02_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.76339e-02_rb,0.76993e-02_rb,0.77402e-02_rb,0.77587e-02_rb,0.77588e-02_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.76166e-02_rb,0.76865e-02_rb,0.77335e-02_rb,0.77564e-02_rb,0.77613e-02_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.75961e-02_rb,0.76706e-02_rb,0.77239e-02_rb,0.77534e-02_rb,0.77621e-02_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.75752e-02_rb,0.76537e-02_rb,0.77143e-02_rb,0.77487e-02_rb,0.77622e-02_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.75459e-02_rb,0.76317e-02_rb,0.76988e-02_rb,0.77406e-02_rb,0.77602e-02_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.75134e-02_rb,0.76061e-02_rb,0.76788e-02_rb,0.77299e-02_rb,0.77567e-02_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.74772e-02_rb,0.75773e-02_rb,0.76562e-02_rb,0.77161e-02_rb,0.77502e-02_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.74372e-02_rb,0.75438e-02_rb,0.76298e-02_rb,0.76975e-02_rb,0.77405e-02_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.73875e-02_rb,0.75032e-02_rb,0.75980e-02_rb,0.76724e-02_rb,0.77261e-02_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.73358e-02_rb,0.74597e-02_rb,0.75632e-02_rb,0.76453e-02_rb,0.77080e-02_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.72811e-02_rb,0.74117e-02_rb,0.75238e-02_rb,0.76147e-02_rb,0.76865e-02_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.72248e-02_rb,0.73656e-02_rb,0.74842e-02_rb,0.75831e-02_rb,0.76614e-02_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.71662e-02_rb,0.73174e-02_rb,0.74427e-02_rb,0.75493e-02_rb,0.76342e-02_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.71006e-02_rb,0.72655e-02_rb,0.73997e-02_rb,0.75133e-02_rb,0.76064e-02_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.70300e-02_rb,0.72101e-02_rb,0.73531e-02_rb,0.74734e-02_rb,0.75745e-02_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.69596e-02_rb,0.71548e-02_rb,0.73082e-02_rb,0.74357e-02_rb,0.75431e-02_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.68873e-02_rb,0.70968e-02_rb,0.72620e-02_rb,0.73967e-02_rb,0.75110e-02_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.68089e-02_rb,0.70345e-02_rb,0.72141e-02_rb,0.73575e-02_rb,0.74766e-02_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.67241e-02_rb,0.69678e-02_rb,0.71623e-02_rb,0.73141e-02_rb,0.74401e-02_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.66371e-02_rb,0.69009e-02_rb,0.71063e-02_rb,0.72699e-02_rb,0.74044e-02_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.66009e-02_rb,0.68723e-02_rb,0.70852e-02_rb,0.72532e-02_rb,0.73888e-02_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.20091e-01_rb,0.19310e-01_rb,0.18586e-01_rb,0.17917e-01_rb,0.17293e-01_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.21405e-01_rb,0.20507e-01_rb,0.19679e-01_rb,0.18912e-01_rb,0.18201e-01_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.22567e-01_rb,0.21555e-01_rb,0.20633e-01_rb,0.19775e-01_rb,0.18992e-01_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.23562e-01_rb,0.22456e-01_rb,0.21445e-01_rb,0.20508e-01_rb,0.19661e-01_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.24411e-01_rb,0.23217e-01_rb,0.22126e-01_rb,0.21126e-01_rb,0.20220e-01_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.25116e-01_rb,0.23847e-01_rb,0.22688e-01_rb,0.21635e-01_rb,0.20680e-01_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.25693e-01_rb,0.24361e-01_rb,0.23149e-01_rb,0.22047e-01_rb,0.21053e-01_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.26126e-01_rb,0.24747e-01_rb,0.23489e-01_rb,0.22355e-01_rb,0.21332e-01_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.26457e-01_rb,0.25034e-01_rb,0.23751e-01_rb,0.22588e-01_rb,0.21537e-01_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.26586e-01_rb,0.25153e-01_rb,0.23857e-01_rb,0.22677e-01_rb,0.21621e-01_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.26640e-01_rb,0.25191e-01_rb,0.23890e-01_rb,0.22706e-01_rb,0.21649e-01_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.26616e-01_rb,0.25160e-01_rb,0.23861e-01_rb,0.22680e-01_rb,0.21622e-01_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.26518e-01_rb,0.25075e-01_rb,0.23777e-01_rb,0.22603e-01_rb,0.21555e-01_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.26348e-01_rb,0.24922e-01_rb,0.23637e-01_rb,0.22478e-01_rb,0.21437e-01_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.26138e-01_rb,0.24737e-01_rb,0.23465e-01_rb,0.22328e-01_rb,0.21299e-01_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.25904e-01_rb,0.24526e-01_rb,0.23272e-01_rb,0.22156e-01_rb,0.21140e-01_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.25645e-01_rb,0.24289e-01_rb,0.23059e-01_rb,0.21960e-01_rb,0.20965e-01_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.25364e-01_rb,0.24034e-01_rb,0.22831e-01_rb,0.21758e-01_rb,0.20776e-01_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.25075e-01_rb,0.23766e-01_rb,0.22595e-01_rb,0.21541e-01_rb,0.20581e-01_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.24769e-01_rb,0.23490e-01_rb,0.22348e-01_rb,0.21316e-01_rb,0.20377e-01_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.24460e-01_rb,0.23211e-01_rb,0.22098e-01_rb,0.21090e-01_rb,0.20170e-01_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.24193e-01_rb,0.22975e-01_rb,0.21887e-01_rb,0.20894e-01_rb,0.19994e-01_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.24050e-01_rb,0.22849e-01_rb,0.21770e-01_rb,0.20789e-01_rb,0.19901e-01_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.24043e-01_rb,0.22842e-01_rb,0.21764e-01_rb,0.20784e-01_rb,0.19894e-01_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.24229e-01_rb,0.23006e-01_rb,0.21915e-01_rb,0.20918e-01_rb,0.20018e-01_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.24421e-01_rb,0.23180e-01_rb,0.22070e-01_rb,0.21062e-01_rb,0.20144e-01_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.24617e-01_rb,0.23352e-01_rb,0.22226e-01_rb,0.21205e-01_rb,0.20274e-01_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.24953e-01_rb,0.23654e-01_rb,0.22496e-01_rb,0.21449e-01_rb,0.20495e-01_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.25312e-01_rb,0.23980e-01_rb,0.22786e-01_rb,0.21712e-01_rb,0.20738e-01_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.25679e-01_rb,0.24315e-01_rb,0.23082e-01_rb,0.21982e-01_rb,0.20981e-01_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.26140e-01_rb,0.24730e-01_rb,0.23454e-01_rb,0.22317e-01_rb,0.21287e-01_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.26653e-01_rb,0.25200e-01_rb,0.23871e-01_rb,0.22691e-01_rb,0.21628e-01_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.27190e-01_rb,0.25674e-01_rb,0.24311e-01_rb,0.23078e-01_rb,0.21977e-01_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.27783e-01_rb,0.26205e-01_rb,0.24787e-01_rb,0.23504e-01_rb,0.22362e-01_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.28471e-01_rb,0.26819e-01_rb,0.25343e-01_rb,0.24006e-01_rb,0.22809e-01_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.29185e-01_rb,0.27464e-01_rb,0.25918e-01_rb,0.24532e-01_rb,0.23275e-01_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.29935e-01_rb,0.28138e-01_rb,0.26520e-01_rb,0.25074e-01_rb,0.23762e-01_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.30661e-01_rb,0.28793e-01_rb,0.27111e-01_rb,0.25603e-01_rb,0.24243e-01_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.31401e-01_rb,0.29455e-01_rb,0.27706e-01_rb,0.26135e-01_rb,0.24726e-01_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.32182e-01_rb,0.30140e-01_rb,0.28322e-01_rb,0.26686e-01_rb,0.25224e-01_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.33002e-01_rb,0.30856e-01_rb,0.28966e-01_rb,0.27268e-01_rb,0.25738e-01_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.33792e-01_rb,0.31541e-01_rb,0.29577e-01_rb,0.27816e-01_rb,0.26234e-01_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.34581e-01_rb,0.32233e-01_rb,0.30182e-01_rb,0.28363e-01_rb,0.26721e-01_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.35416e-01_rb,0.32947e-01_rb,0.30807e-01_rb,0.28926e-01_rb,0.27227e-01_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.36291e-01_rb,0.33701e-01_rb,0.31460e-01_rb,0.29510e-01_rb,0.27750e-01_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.37161e-01_rb,0.34436e-01_rb,0.32106e-01_rb,0.30077e-01_rb,0.28264e-01_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.37521e-01_rb,0.34750e-01_rb,0.32373e-01_rb,0.30309e-01_rb,0.28477e-01_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.515619e-08_rb, 0.131078e-06_rb, 0.349038e-06_rb /)\n      forrefo(:, 2) = (/ 0.329605e-07_rb, 0.430497e-06_rb, 0.458569e-05_rb /)\n      forrefo(:, 3) = (/ 0.188244e-06_rb, 0.792931e-06_rb, 0.267176e-05_rb /)\n      forrefo(:, 4) = (/ 0.611237e-06_rb, 0.798868e-06_rb, 0.411583e-06_rb /)\n      forrefo(:, 5) = (/ 0.111903e-05_rb, 0.914895e-06_rb, 0.444828e-06_rb /)\n      forrefo(:, 6) = (/ 0.235399e-05_rb, 0.269099e-05_rb, 0.739855e-06_rb /)\n      forrefo(:, 7) = (/ 0.400131e-05_rb, 0.378135e-05_rb, 0.231265e-06_rb /)\n      forrefo(:, 8) = (/ 0.464257e-05_rb, 0.371927e-05_rb, 0.460611e-06_rb /)\n      forrefo(:, 9) = (/ 0.476792e-05_rb, 0.311841e-05_rb, 0.934811e-06_rb /)\n      forrefo(:,10) = (/ 0.555683e-05_rb, 0.238129e-05_rb, 0.400334e-07_rb /)\n      forrefo(:,11) = (/ 0.569068e-05_rb, 0.196039e-05_rb, 0.374476e-07_rb /)\n      forrefo(:,12) = (/ 0.554154e-05_rb, 0.131724e-05_rb, 0.399720e-07_rb /)\n      forrefo(:,13) = (/ 0.462684e-05_rb, 0.238826e-07_rb, 0.325793e-07_rb /)\n      forrefo(:,14) = (/ 0.808644e-06_rb, 0.105126e-11_rb, 0.148691e-07_rb /)\n      forrefo(:,15) = (/ 0.865024e-12_rb, 0.822434e-12_rb, 0.825756e-12_rb /)\n      forrefo(:,16) = (/ 0.945747e-12_rb, 0.802065e-12_rb, 0.724732e-12_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.637755e-05_rb, 0.403921e-05_rb, 0.255823e-05_rb, 0.162025e-05_rb, 0.102618e-05_rb, &\n        &  0.649930e-06_rb, 0.411632e-06_rb, 0.260707e-06_rb, 0.165118e-06_rb, 0.104577e-06_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.180887e-04_rb, 0.108890e-04_rb, 0.655493e-05_rb, 0.394592e-05_rb, 0.237536e-05_rb, &\n        &  0.142991e-05_rb, 0.860774e-06_rb, 0.518167e-06_rb, 0.311925e-06_rb, 0.187772e-06_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.212261e-04_rb, 0.150697e-04_rb, 0.106989e-04_rb, 0.759581e-05_rb, 0.539274e-05_rb, &\n        &  0.382864e-05_rb, 0.271819e-05_rb, 0.192981e-05_rb, 0.137009e-05_rb, 0.972711e-06_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.132497e-04_rb, 0.118071e-04_rb, 0.105216e-04_rb, 0.937599e-05_rb, 0.835516e-05_rb, &\n        &  0.744547e-05_rb, 0.663482e-05_rb, 0.591243e-05_rb, 0.526870e-05_rb, 0.469506e-05_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.124069e-04_rb, 0.120785e-04_rb, 0.117589e-04_rb, 0.114477e-04_rb, 0.111447e-04_rb, &\n        &  0.108498e-04_rb, 0.105626e-04_rb, 0.102831e-04_rb, 0.100109e-04_rb, 0.974601e-05_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.411994e-04_rb, 0.372560e-04_rb, 0.336901e-04_rb, 0.304654e-04_rb, 0.275494e-04_rb, &\n        &  0.249126e-04_rb, 0.225281e-04_rb, 0.203718e-04_rb, 0.184219e-04_rb, 0.166587e-04_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.537376e-04_rb, 0.501002e-04_rb, 0.467090e-04_rb, 0.435473e-04_rb, 0.405996e-04_rb, &\n        &  0.378515e-04_rb, 0.352893e-04_rb, 0.329006e-04_rb, 0.306736e-04_rb, 0.285974e-04_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.494279e-04_rb, 0.475365e-04_rb, 0.457175e-04_rb, 0.439681e-04_rb, 0.422857e-04_rb, &\n        &  0.406676e-04_rb, 0.391114e-04_rb, 0.376148e-04_rb, 0.361755e-04_rb, 0.347912e-04_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.377444e-04_rb, 0.378199e-04_rb, 0.378956e-04_rb, 0.379715e-04_rb, 0.380475e-04_rb, &\n        &  0.381236e-04_rb, 0.381999e-04_rb, 0.382763e-04_rb, 0.383529e-04_rb, 0.384297e-04_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.245916e-04_rb, 0.267183e-04_rb, 0.290289e-04_rb, 0.315394e-04_rb, 0.342669e-04_rb, &\n        &  0.372304e-04_rb, 0.404501e-04_rb, 0.439483e-04_rb, 0.477490e-04_rb, 0.518784e-04_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.186528e-04_rb, 0.211417e-04_rb, 0.239628e-04_rb, 0.271603e-04_rb, 0.307845e-04_rb, &\n        &  0.348923e-04_rb, 0.395482e-04_rb, 0.448254e-04_rb, 0.508068e-04_rb, 0.575863e-04_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.109896e-04_rb, 0.133794e-04_rb, 0.162890e-04_rb, 0.198312e-04_rb, 0.241438e-04_rb, &\n        &  0.293942e-04_rb, 0.357864e-04_rb, 0.435686e-04_rb, 0.530432e-04_rb, 0.645781e-04_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.183885e-06_rb, 0.391019e-06_rb, 0.831472e-06_rb, 0.176806e-05_rb, 0.375966e-05_rb, &\n        &  0.799463e-05_rb, 0.170000e-04_rb, 0.361492e-04_rb, 0.768686e-04_rb, 0.163455e-03_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.466057e-07_rb, 0.937419e-07_rb, 0.188551e-06_rb, 0.379248e-06_rb, 0.762813e-06_rb, &\n        &  0.153431e-05_rb, 0.308608e-05_rb, 0.620729e-05_rb, 0.124852e-04_rb, 0.251126e-04_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.248961e-06_rb, 0.216780e-06_rb, 0.188758e-06_rb, 0.164358e-06_rb, 0.143113e-06_rb, &\n        &  0.124613e-06_rb, 0.108505e-06_rb, 0.944795e-07_rb, 0.822667e-07_rb, 0.716326e-07_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.252246e-06_rb, 0.220335e-06_rb, 0.192462e-06_rb, 0.168114e-06_rb, 0.146847e-06_rb, &\n        &  0.128270e-06_rb, 0.112043e-06_rb, 0.978688e-07_rb, 0.854878e-07_rb, 0.746731e-07_rb /)\n     \n      end subroutine sw_kgb24\n\n! **************************************************************************\n      subroutine sw_kgb25\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg25, only : kao, sfluxrefo, &\n                            raylo, abso3ao, abso3bo\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 42.6858_rb , 45.7720_rb, 44.9872_rb, 45.9662_rb    , &\n        & 46.5458_rb , 41.6926_rb, 32.2893_rb, 24.0928_rb    , &\n        & 16.7686_rb , 1.86048_rb, 1.54057_rb, 1.23503_rb    , &\n        & 0.915085_rb,0.590099_rb,0.218622_rb, 3.21287e-02_rb /)\n\n! Rayleigh extinction coefficient at v = 2925 cm-1.\n      raylo(:) = (/ &\n        & 9.81132e-07_rb,8.25605e-07_rb,6.71302e-07_rb,5.53556e-07_rb, & \n        & 3.97383e-07_rb,3.68206e-07_rb,4.42379e-07_rb,4.57799e-07_rb, &\n        & 4.22683e-07_rb,3.87113e-07_rb,3.79810e-07_rb,3.63192e-07_rb, &\n        & 3.51921e-07_rb,3.34231e-07_rb,3.34294e-07_rb,3.32673e-07_rb /)\n     \n      abso3ao(:) = (/ &\n        & 2.32664e-02_rb,5.76154e-02_rb,0.125389_rb,0.250158_rb, &\n        & 0.378756_rb   ,0.402196_rb   ,0.352026_rb,0.352036_rb, &\n        & 0.386253_rb   ,0.414598_rb   ,0.420079_rb,0.435471_rb, &\n        & 0.445487_rb   ,0.459549_rb   ,0.452920_rb,0.456838_rb /)\n\n      abso3bo(:) = (/ &     \n        & 1.76917e-02_rb,4.64185e-02_rb,1.03640e-01_rb,0.189469_rb, &\n        & 0.303858_rb   ,0.400248_rb   ,0.447357_rb   ,0.470009_rb, &\n        & 0.498673_rb   ,0.515696_rb   ,0.517053_rb   ,0.517930_rb, &\n        & 0.518345_rb   ,0.524952_rb   ,0.508244_rb   ,0.468981_rb /)\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.16461e-08_rb,0.16782e-08_rb,0.19339e-08_rb,0.17100e-08_rb,0.17045e-08_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.28759e-08_rb,0.29469e-08_rb,0.33789e-08_rb,0.34357e-08_rb,0.28833e-08_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.55148e-08_rb,0.54808e-08_rb,0.54190e-08_rb,0.68260e-08_rb,0.51972e-08_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.95336e-08_rb,0.94552e-08_rb,0.93001e-08_rb,0.90961e-08_rb,0.14451e-07_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.14930e-07_rb,0.14736e-07_rb,0.14432e-07_rb,0.14074e-07_rb,0.24102e-07_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.22770e-07_rb,0.22301e-07_rb,0.21778e-07_rb,0.21194e-07_rb,0.20569e-07_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.34699e-07_rb,0.33951e-07_rb,0.33124e-07_rb,0.32144e-07_rb,0.31220e-07_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.62339e-07_rb,0.60405e-07_rb,0.59548e-07_rb,0.58214e-07_rb,0.56977e-07_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.17411e-06_rb,0.17654e-06_rb,0.18315e-06_rb,0.18100e-06_rb,0.17839e-06_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.23526e-06_rb,0.22729e-06_rb,0.21947e-06_rb,0.21188e-06_rb,0.20454e-06_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.23535e-06_rb,0.22737e-06_rb,0.21956e-06_rb,0.21196e-06_rb,0.20461e-06_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.23539e-06_rb,0.22740e-06_rb,0.21959e-06_rb,0.21199e-06_rb,0.20465e-06_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.23543e-06_rb,0.22744e-06_rb,0.21962e-06_rb,0.21202e-06_rb,0.20467e-06_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.62912e-08_rb,0.61559e-08_rb,0.84640e-08_rb,0.59240e-08_rb,0.58217e-08_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.83749e-08_rb,0.80756e-08_rb,0.11623e-07_rb,0.11272e-07_rb,0.73636e-08_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.13304e-07_rb,0.12795e-07_rb,0.12343e-07_rb,0.21235e-07_rb,0.11577e-07_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.20704e-07_rb,0.19736e-07_rb,0.18900e-07_rb,0.18228e-07_rb,0.31601e-07_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.31149e-07_rb,0.29669e-07_rb,0.28318e-07_rb,0.27101e-07_rb,0.49649e-07_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.45713e-07_rb,0.43519e-07_rb,0.41488e-07_rb,0.39918e-07_rb,0.38291e-07_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.77265e-07_rb,0.73848e-07_rb,0.70437e-07_rb,0.67945e-07_rb,0.66127e-07_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.15754e-06_rb,0.15664e-06_rb,0.15378e-06_rb,0.15027e-06_rb,0.14633e-06_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.16439e-06_rb,0.14678e-06_rb,0.12610e-06_rb,0.11532e-06_rb,0.10591e-06_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.14366e-06_rb,0.13506e-06_rb,0.12583e-06_rb,0.11774e-06_rb,0.11011e-06_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.14521e-06_rb,0.13766e-06_rb,0.13072e-06_rb,0.12218e-06_rb,0.11400e-06_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.14524e-06_rb,0.13769e-06_rb,0.13074e-06_rb,0.12241e-06_rb,0.11552e-06_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.14525e-06_rb,0.13770e-06_rb,0.13075e-06_rb,0.12252e-06_rb,0.11553e-06_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.14060e-07_rb,0.13587e-07_rb,0.24644e-07_rb,0.12716e-07_rb,0.12367e-07_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.17055e-07_rb,0.16577e-07_rb,0.32443e-07_rb,0.31273e-07_rb,0.15381e-07_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.25414e-07_rb,0.24672e-07_rb,0.23874e-07_rb,0.47281e-07_rb,0.22346e-07_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.39536e-07_rb,0.38124e-07_rb,0.36836e-07_rb,0.35587e-07_rb,0.72260e-07_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.59488e-07_rb,0.57630e-07_rb,0.55623e-07_rb,0.53878e-07_rb,0.11230e-06_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.99996e-07_rb,0.96206e-07_rb,0.93184e-07_rb,0.90812e-07_rb,0.89206e-07_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.17678e-06_rb,0.17554e-06_rb,0.17358e-06_rb,0.17091e-06_rb,0.16830e-06_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.18672e-06_rb,0.17850e-06_rb,0.16967e-06_rb,0.16275e-06_rb,0.15875e-06_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.13558e-06_rb,0.13493e-06_rb,0.13633e-06_rb,0.13799e-06_rb,0.13932e-06_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.18883e-06_rb,0.20452e-06_rb,0.22206e-06_rb,0.24347e-06_rb,0.26091e-06_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.21296e-06_rb,0.23580e-06_rb,0.26439e-06_rb,0.30148e-06_rb,0.34942e-06_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.22072e-06_rb,0.25535e-06_rb,0.28661e-06_rb,0.34814e-06_rb,0.39337e-06_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.22515e-06_rb,0.26161e-06_rb,0.30833e-06_rb,0.36527e-06_rb,0.40123e-06_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.32735e-07_rb,0.31345e-07_rb,0.58846e-07_rb,0.28258e-07_rb,0.27022e-07_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.37754e-07_rb,0.36873e-07_rb,0.82776e-07_rb,0.80947e-07_rb,0.35190e-07_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.76368e-07_rb,0.75292e-07_rb,0.74075e-07_rb,0.10820e-06_rb,0.73183e-07_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.16392e-06_rb,0.16130e-06_rb,0.15926e-06_rb,0.15700e-06_rb,0.22041e-06_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.29704e-06_rb,0.28924e-06_rb,0.28301e-06_rb,0.27633e-06_rb,0.42284e-06_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.48466e-06_rb,0.47240e-06_rb,0.46143e-06_rb,0.45012e-06_rb,0.43867e-06_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.71637e-06_rb,0.69847e-06_rb,0.67384e-06_rb,0.65368e-06_rb,0.63375e-06_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.11904e-05_rb,0.11714e-05_rb,0.11524e-05_rb,0.11354e-05_rb,0.11172e-05_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.21976e-05_rb,0.21606e-05_rb,0.21332e-05_rb,0.20944e-05_rb,0.20536e-05_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.21713e-05_rb,0.21144e-05_rb,0.20553e-05_rb,0.19901e-05_rb,0.19286e-05_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.21443e-05_rb,0.20785e-05_rb,0.20048e-05_rb,0.19232e-05_rb,0.18295e-05_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.21363e-05_rb,0.20578e-05_rb,0.19811e-05_rb,0.18729e-05_rb,0.17807e-05_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.21319e-05_rb,0.20513e-05_rb,0.19580e-05_rb,0.18546e-05_rb,0.17725e-05_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.36050e-07_rb,0.36125e-07_rb,0.46253e-07_rb,0.37280e-07_rb,0.37359e-07_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.65102e-07_rb,0.64266e-07_rb,0.68896e-07_rb,0.65925e-07_rb,0.61190e-07_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.12173e-06_rb,0.11889e-06_rb,0.11625e-06_rb,0.17574e-06_rb,0.10921e-06_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.20555e-06_rb,0.19853e-06_rb,0.19068e-06_rb,0.18313e-06_rb,0.30241e-06_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.30900e-06_rb,0.29996e-06_rb,0.28857e-06_rb,0.27772e-06_rb,0.51631e-06_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.43774e-06_rb,0.42465e-06_rb,0.40920e-06_rb,0.39315e-06_rb,0.37901e-06_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.63869e-06_rb,0.61654e-06_rb,0.60324e-06_rb,0.58966e-06_rb,0.57948e-06_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.98362e-06_rb,0.96271e-06_rb,0.94180e-06_rb,0.92206e-06_rb,0.91105e-06_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.12061e-05_rb,0.11895e-05_rb,0.11564e-05_rb,0.11296e-05_rb,0.11110e-05_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.12958e-05_rb,0.12694e-05_rb,0.12425e-05_rb,0.12153e-05_rb,0.11880e-05_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.12962e-05_rb,0.12698e-05_rb,0.12429e-05_rb,0.12156e-05_rb,0.11883e-05_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.12964e-05_rb,0.12701e-05_rb,0.12431e-05_rb,0.12158e-05_rb,0.11885e-05_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.12966e-05_rb,0.12702e-05_rb,0.12433e-05_rb,0.12160e-05_rb,0.11886e-05_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.73925e-07_rb,0.70231e-07_rb,0.21454e-06_rb,0.63477e-07_rb,0.60912e-07_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.67794e-07_rb,0.65807e-07_rb,0.13854e-06_rb,0.13061e-06_rb,0.59361e-07_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.98353e-07_rb,0.95275e-07_rb,0.92426e-07_rb,0.15768e-06_rb,0.87986e-07_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.15855e-06_rb,0.15394e-06_rb,0.14948e-06_rb,0.14655e-06_rb,0.23172e-06_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.27764e-06_rb,0.26941e-06_rb,0.26299e-06_rb,0.25975e-06_rb,0.40526e-06_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.45469e-06_rb,0.44417e-06_rb,0.43276e-06_rb,0.42440e-06_rb,0.41489e-06_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.71540e-06_rb,0.71291e-06_rb,0.70656e-06_rb,0.69823e-06_rb,0.68342e-06_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.79651e-06_rb,0.79807e-06_rb,0.80621e-06_rb,0.80941e-06_rb,0.79835e-06_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.18716e-06_rb,0.16713e-06_rb,0.14725e-06_rb,0.13728e-06_rb,0.11763e-06_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.92638e-07_rb,0.86207e-07_rb,0.80877e-07_rb,0.70432e-07_rb,0.64517e-07_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.13396e-06_rb,0.12820e-06_rb,0.12387e-06_rb,0.10427e-06_rb,0.94091e-07_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.14877e-06_rb,0.14827e-06_rb,0.14350e-06_rb,0.12154e-06_rb,0.10552e-06_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.15437e-06_rb,0.15323e-06_rb,0.14992e-06_rb,0.12715e-06_rb,0.10933e-06_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.72717e-06_rb,0.70656e-06_rb,0.13933e-05_rb,0.66449e-06_rb,0.64269e-06_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.52595e-06_rb,0.50791e-06_rb,0.11171e-05_rb,0.10538e-05_rb,0.45644e-06_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.29919e-06_rb,0.29227e-06_rb,0.28284e-06_rb,0.65215e-06_rb,0.26347e-06_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.27961e-06_rb,0.27579e-06_rb,0.27068e-06_rb,0.26343e-06_rb,0.41265e-06_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.37031e-06_rb,0.36318e-06_rb,0.35475e-06_rb,0.34488e-06_rb,0.53740e-06_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.53195e-06_rb,0.52692e-06_rb,0.52224e-06_rb,0.51934e-06_rb,0.51146e-06_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.83043e-06_rb,0.84552e-06_rb,0.84833e-06_rb,0.82800e-06_rb,0.80930e-06_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.14910e-05_rb,0.15179e-05_rb,0.15248e-05_rb,0.15091e-05_rb,0.14853e-05_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.37340e-05_rb,0.37823e-05_rb,0.38311e-05_rb,0.38453e-05_rb,0.38567e-05_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.86791e-05_rb,0.89697e-05_rb,0.92118e-05_rb,0.93991e-05_rb,0.95564e-05_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.11878e-04_rb,0.12201e-04_rb,0.12588e-04_rb,0.12897e-04_rb,0.13151e-04_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.13192e-04_rb,0.13732e-04_rb,0.14137e-04_rb,0.14465e-04_rb,0.14643e-04_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.13716e-04_rb,0.14229e-04_rb,0.14617e-04_rb,0.14944e-04_rb,0.15182e-04_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.39538e-05_rb,0.38949e-05_rb,0.56188e-05_rb,0.37475e-05_rb,0.36648e-05_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.34231e-05_rb,0.33633e-05_rb,0.51877e-05_rb,0.50048e-05_rb,0.31425e-05_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.28073e-05_rb,0.27497e-05_rb,0.26875e-05_rb,0.44405e-05_rb,0.25492e-05_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.19229e-05_rb,0.18818e-05_rb,0.18382e-05_rb,0.17896e-05_rb,0.33073e-05_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.11453e-05_rb,0.11293e-05_rb,0.11095e-05_rb,0.10866e-05_rb,0.19344e-05_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.14565e-05_rb,0.14517e-05_rb,0.14369e-05_rb,0.14141e-05_rb,0.13944e-05_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.23228e-05_rb,0.22753e-05_rb,0.22395e-05_rb,0.22124e-05_rb,0.21731e-05_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.34877e-05_rb,0.34362e-05_rb,0.33796e-05_rb,0.33389e-05_rb,0.32924e-05_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.63448e-05_rb,0.63701e-05_rb,0.63619e-05_rb,0.62632e-05_rb,0.61645e-05_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.12155e-04_rb,0.11880e-04_rb,0.11762e-04_rb,0.11759e-04_rb,0.11651e-04_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.14093e-04_rb,0.13835e-04_rb,0.13547e-04_rb,0.13205e-04_rb,0.12690e-04_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.14428e-04_rb,0.14056e-04_rb,0.13932e-04_rb,0.13396e-04_rb,0.12885e-04_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.15229e-04_rb,0.14534e-04_rb,0.13849e-04_rb,0.13292e-04_rb,0.12704e-04_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.19250e-04_rb,0.19148e-04_rb,0.21702e-04_rb,0.18906e-04_rb,0.18761e-04_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.18132e-04_rb,0.18040e-04_rb,0.20884e-04_rb,0.20523e-04_rb,0.17656e-04_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.16928e-04_rb,0.16843e-04_rb,0.16742e-04_rb,0.19715e-04_rb,0.16470e-04_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.15526e-04_rb,0.15463e-04_rb,0.15377e-04_rb,0.15268e-04_rb,0.18367e-04_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.13545e-04_rb,0.13511e-04_rb,0.13455e-04_rb,0.13362e-04_rb,0.16722e-04_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.97183e-05_rb,0.97218e-05_rb,0.97084e-05_rb,0.96717e-05_rb,0.96030e-05_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.50307e-05_rb,0.50984e-05_rb,0.51628e-05_rb,0.52093e-05_rb,0.52354e-05_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.45837e-05_rb,0.45939e-05_rb,0.45938e-05_rb,0.45639e-05_rb,0.45109e-05_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.12254e-04_rb,0.12319e-04_rb,0.12397e-04_rb,0.12584e-04_rb,0.12620e-04_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.21545e-04_rb,0.21836e-04_rb,0.21718e-04_rb,0.21511e-04_rb,0.21211e-04_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.20079e-04_rb,0.19539e-04_rb,0.18859e-04_rb,0.18393e-04_rb,0.18181e-04_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.17115e-04_rb,0.16357e-04_rb,0.15410e-04_rb,0.15220e-04_rb,0.15207e-04_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.14935e-04_rb,0.14679e-04_rb,0.14593e-04_rb,0.14448e-04_rb,0.14436e-04_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.53569e-04_rb,0.53042e-04_rb,0.55454e-04_rb,0.52098e-04_rb,0.51678e-04_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.52196e-04_rb,0.51739e-04_rb,0.54777e-04_rb,0.54075e-04_rb,0.50624e-04_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.50339e-04_rb,0.50046e-04_rb,0.49769e-04_rb,0.53168e-04_rb,0.49370e-04_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.48505e-04_rb,0.48316e-04_rb,0.48143e-04_rb,0.47993e-04_rb,0.51621e-04_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.46313e-04_rb,0.46267e-04_rb,0.46119e-04_rb,0.46064e-04_rb,0.50279e-04_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.42662e-04_rb,0.42818e-04_rb,0.42935e-04_rb,0.43007e-04_rb,0.43099e-04_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.35762e-04_rb,0.36149e-04_rb,0.36450e-04_rb,0.36639e-04_rb,0.36887e-04_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.13516e-05_rb,0.18607e-05_rb,0.23061e-05_rb,0.27339e-05_rb,0.36516e-05_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.36432e-05_rb,0.40739e-05_rb,0.43830e-05_rb,0.41136e-05_rb,0.43128e-05_rb /)\n      kao(:,10,10) = (/ &\n        & 0.62049e-05_rb,0.69116e-05_rb,0.73244e-05_rb,0.65087e-05_rb,0.78951e-05_rb /)\n      kao(:,11,10) = (/ &\n        & 0.32156e-05_rb,0.38834e-05_rb,0.41231e-05_rb,0.43386e-05_rb,0.43405e-05_rb /)\n      kao(:,12,10) = (/ &\n        & 0.22152e-05_rb,0.26754e-05_rb,0.31971e-05_rb,0.34911e-05_rb,0.37935e-05_rb /)\n      kao(:,13,10) = (/ &\n        & 0.19792e-05_rb,0.26543e-05_rb,0.31511e-05_rb,0.34597e-05_rb,0.40624e-05_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.75384e-04_rb,0.75103e-04_rb,0.77406e-04_rb,0.74222e-04_rb,0.73734e-04_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.75458e-04_rb,0.75244e-04_rb,0.77778e-04_rb,0.77018e-04_rb,0.73942e-04_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.75023e-04_rb,0.74844e-04_rb,0.74477e-04_rb,0.77271e-04_rb,0.73633e-04_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.73633e-04_rb,0.73539e-04_rb,0.73257e-04_rb,0.72934e-04_rb,0.76232e-04_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.71348e-04_rb,0.71322e-04_rb,0.71227e-04_rb,0.71069e-04_rb,0.75258e-04_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.67784e-04_rb,0.67873e-04_rb,0.67974e-04_rb,0.67924e-04_rb,0.67903e-04_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.61855e-04_rb,0.61922e-04_rb,0.61973e-04_rb,0.62206e-04_rb,0.62496e-04_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.36622e-04_rb,0.37413e-04_rb,0.38740e-04_rb,0.40550e-04_rb,0.41833e-04_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.28544e-05_rb,0.28831e-05_rb,0.31445e-05_rb,0.32900e-05_rb,0.27967e-05_rb /)\n      kao(:,10,11) = (/ &\n        & 0.53755e-05_rb,0.42123e-05_rb,0.51154e-05_rb,0.63481e-05_rb,0.54219e-05_rb /)\n      kao(:,11,11) = (/ &\n        & 0.12605e-05_rb,0.14078e-05_rb,0.19167e-05_rb,0.23729e-05_rb,0.30161e-05_rb /)\n      kao(:,12,11) = (/ &\n        & 0.11370e-05_rb,0.91524e-06_rb,0.11150e-05_rb,0.14746e-05_rb,0.20128e-05_rb /)\n      kao(:,13,11) = (/ &\n        & 0.10511e-05_rb,0.10014e-05_rb,0.11405e-05_rb,0.13852e-05_rb,0.15576e-05_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.11184e-03_rb,0.11117e-03_rb,0.11327e-03_rb,0.10989e-03_rb,0.10910e-03_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.11379e-03_rb,0.11322e-03_rb,0.11555e-03_rb,0.11462e-03_rb,0.11135e-03_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.11508e-03_rb,0.11459e-03_rb,0.11421e-03_rb,0.11671e-03_rb,0.11339e-03_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.11596e-03_rb,0.11563e-03_rb,0.11538e-03_rb,0.11511e-03_rb,0.11770e-03_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.11597e-03_rb,0.11581e-03_rb,0.11569e-03_rb,0.11553e-03_rb,0.11890e-03_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.11443e-03_rb,0.11445e-03_rb,0.11443e-03_rb,0.11443e-03_rb,0.11438e-03_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.10852e-03_rb,0.10888e-03_rb,0.10912e-03_rb,0.10934e-03_rb,0.10942e-03_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.93194e-04_rb,0.94766e-04_rb,0.95355e-04_rb,0.95090e-04_rb,0.94926e-04_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.11836e-05_rb,0.16115e-05_rb,0.12883e-05_rb,0.14202e-05_rb,0.16541e-05_rb /)\n      kao(:,10,12) = (/ &\n        & 0.18748e-05_rb,0.34401e-05_rb,0.39984e-05_rb,0.44576e-05_rb,0.33683e-05_rb /)\n      kao(:,11,12) = (/ &\n        & 0.29890e-06_rb,0.48741e-06_rb,0.66276e-06_rb,0.99698e-06_rb,0.19230e-05_rb /)\n      kao(:,12,12) = (/ &\n        & 0.15034e-06_rb,0.39966e-06_rb,0.56523e-06_rb,0.70494e-06_rb,0.10046e-05_rb /)\n      kao(:,13,12) = (/ &\n        & 0.15016e-06_rb,0.25751e-06_rb,0.48928e-06_rb,0.63534e-06_rb,0.93575e-06_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.17305e-03_rb,0.17234e-03_rb,0.17389e-03_rb,0.17055e-03_rb,0.16974e-03_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.18170e-03_rb,0.18075e-03_rb,0.18265e-03_rb,0.18138e-03_rb,0.17772e-03_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.18990e-03_rb,0.18892e-03_rb,0.18776e-03_rb,0.18950e-03_rb,0.18494e-03_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.19649e-03_rb,0.19552e-03_rb,0.19424e-03_rb,0.19281e-03_rb,0.19464e-03_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.20197e-03_rb,0.20109e-03_rb,0.19993e-03_rb,0.19856e-03_rb,0.20092e-03_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.20595e-03_rb,0.20549e-03_rb,0.20452e-03_rb,0.20331e-03_rb,0.20199e-03_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.20703e-03_rb,0.20710e-03_rb,0.20649e-03_rb,0.20552e-03_rb,0.20428e-03_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.19874e-03_rb,0.19767e-03_rb,0.19696e-03_rb,0.19655e-03_rb,0.19591e-03_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.20434e-04_rb,0.23398e-04_rb,0.27400e-04_rb,0.32409e-04_rb,0.38451e-04_rb /)\n      kao(:,10,13) = (/ &\n        & 0.18617e-05_rb,0.99513e-06_rb,0.10554e-05_rb,0.16516e-05_rb,0.37792e-05_rb /)\n      kao(:,11,13) = (/ &\n        & 0.12517e-06_rb,0.29518e-06_rb,0.77058e-06_rb,0.11660e-05_rb,0.15349e-05_rb /)\n      kao(:,12,13) = (/ &\n        & 0.12734e-06_rb,0.36524e-06_rb,0.66699e-06_rb,0.10362e-05_rb,0.14158e-05_rb /)\n      kao(:,13,13) = (/ &\n        & 0.12431e-06_rb,0.39389e-06_rb,0.67331e-06_rb,0.10292e-05_rb,0.14448e-05_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.29365e-03_rb,0.29046e-03_rb,0.29008e-03_rb,0.28509e-03_rb,0.28286e-03_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.31990e-03_rb,0.31668e-03_rb,0.31617e-03_rb,0.31332e-03_rb,0.30885e-03_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.34787e-03_rb,0.34432e-03_rb,0.34112e-03_rb,0.34052e-03_rb,0.33589e-03_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.37401e-03_rb,0.37027e-03_rb,0.36696e-03_rb,0.36394e-03_rb,0.36355e-03_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.39840e-03_rb,0.39446e-03_rb,0.39082e-03_rb,0.38763e-03_rb,0.38760e-03_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.42165e-03_rb,0.41729e-03_rb,0.41335e-03_rb,0.41006e-03_rb,0.40721e-03_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.44257e-03_rb,0.43782e-03_rb,0.43364e-03_rb,0.43014e-03_rb,0.42736e-03_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.45299e-03_rb,0.44953e-03_rb,0.44586e-03_rb,0.44260e-03_rb,0.44006e-03_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.40190e-03_rb,0.39751e-03_rb,0.39238e-03_rb,0.38812e-03_rb,0.38612e-03_rb /)\n      kao(:,10,14) = (/ &\n        & 0.64278e-05_rb,0.18248e-05_rb,0.16996e-05_rb,0.31086e-06_rb,0.16836e-06_rb /)\n      kao(:,11,14) = (/ &\n        & 0.14350e-05_rb,0.94778e-06_rb,0.41349e-06_rb,0.20817e-06_rb,0.20238e-06_rb /)\n      kao(:,12,14) = (/ &\n        & 0.16805e-05_rb,0.15323e-05_rb,0.62348e-06_rb,0.99743e-07_rb,0.12977e-06_rb /)\n      kao(:,13,14) = (/ &\n        & 0.16858e-05_rb,0.17103e-05_rb,0.80574e-06_rb,0.15825e-06_rb,0.15032e-06_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.52181e-03_rb,0.51578e-03_rb,0.51251e-03_rb,0.50356e-03_rb,0.49731e-03_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.59491e-03_rb,0.58822e-03_rb,0.58413e-03_rb,0.57646e-03_rb,0.56692e-03_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.67653e-03_rb,0.66881e-03_rb,0.66126e-03_rb,0.65540e-03_rb,0.64461e-03_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.76388e-03_rb,0.75456e-03_rb,0.74556e-03_rb,0.73649e-03_rb,0.72840e-03_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.85507e-03_rb,0.84417e-03_rb,0.83378e-03_rb,0.82338e-03_rb,0.81349e-03_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.95034e-03_rb,0.93798e-03_rb,0.92553e-03_rb,0.91287e-03_rb,0.89957e-03_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.10496e-02_rb,0.10352e-02_rb,0.10206e-02_rb,0.10054e-02_rb,0.98958e-03_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.11507e-02_rb,0.11337e-02_rb,0.11169e-02_rb,0.10991e-02_rb,0.10806e-02_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.12408e-02_rb,0.12207e-02_rb,0.11996e-02_rb,0.11773e-02_rb,0.11531e-02_rb /)\n      kao(:,10,15) = (/ &\n        & 0.12042e-03_rb,0.11501e-03_rb,0.11424e-03_rb,0.11450e-03_rb,0.13219e-03_rb /)\n      kao(:,11,15) = (/ &\n        & 0.68914e-06_rb,0.83960e-06_rb,0.74591e-06_rb,0.18660e-05_rb,0.32503e-05_rb /)\n      kao(:,12,15) = (/ &\n        & 0.35963e-07_rb,0.46256e-06_rb,0.56223e-06_rb,0.98816e-06_rb,0.92366e-06_rb /)\n      kao(:,13,15) = (/ &\n        & 0.36605e-07_rb,0.56591e-06_rb,0.84008e-06_rb,0.86042e-06_rb,0.68452e-06_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.76517e-03_rb,0.75944e-03_rb,0.76010e-03_rb,0.76100e-03_rb,0.76498e-03_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.92375e-03_rb,0.91357e-03_rb,0.90997e-03_rb,0.90997e-03_rb,0.90993e-03_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.11142e-02_rb,0.10974e-02_rb,0.10835e-02_rb,0.10789e-02_rb,0.10748e-02_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.13278e-02_rb,0.13025e-02_rb,0.12802e-02_rb,0.12631e-02_rb,0.12539e-02_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.15712e-02_rb,0.15343e-02_rb,0.15017e-02_rb,0.14713e-02_rb,0.14497e-02_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.18525e-02_rb,0.17982e-02_rb,0.17525e-02_rb,0.17101e-02_rb,0.16714e-02_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.21731e-02_rb,0.20986e-02_rb,0.20340e-02_rb,0.19757e-02_rb,0.19210e-02_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.25325e-02_rb,0.24346e-02_rb,0.23473e-02_rb,0.22687e-02_rb,0.21950e-02_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.29269e-02_rb,0.28006e-02_rb,0.26863e-02_rb,0.25805e-02_rb,0.24878e-02_rb /)\n      kao(:,10,16) = (/ &\n        & 0.29442e-02_rb,0.27008e-02_rb,0.23913e-02_rb,0.21437e-02_rb,0.18865e-02_rb /)\n      kao(:,11,16) = (/ &\n        & 0.23220e-05_rb,0.22310e-04_rb,0.48349e-04_rb,0.67183e-04_rb,0.88908e-04_rb /)\n      kao(:,12,16) = (/ &\n        & 0.22857e-05_rb,0.11848e-04_rb,0.42066e-04_rb,0.67613e-04_rb,0.86033e-04_rb /)\n      kao(:,13,16) = (/ &\n        & 0.22823e-05_rb,0.69105e-05_rb,0.36212e-04_rb,0.66247e-04_rb,0.85488e-04_rb /)\n  \n      end subroutine sw_kgb25\n\n! **************************************************************************\n      subroutine sw_kgb26\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg26, only : sfluxrefo, raylo\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n!         &     129.462_rb, 15*0._rb /)\n        &   29.0079_rb,  28.4088_rb,     20.3099_rb,  13.0283_rb &\n        &,  11.8619_rb,  9.95840_rb,     6.68696_rb,  5.38987_rb &\n        &,  3.49829_rb, 0.407693_rb,    0.299027_rb, 0.236827_rb &\n        &, 0.188502_rb, 0.163489_rb, 4.64335e-02_rb, 2.72662e-03_rb /)\n\n! Rayleigh extinction coefficient at all v \n      raylo(:) = (/ &\n        &  1.21263e-06_rb,1.43428e-06_rb,1.67677e-06_rb,1.93255e-06_rb &\n        &, 2.19177e-06_rb,2.44195e-06_rb,2.66926e-06_rb,2.85990e-06_rb &\n        &, 3.00380e-06_rb,3.06996e-06_rb,3.08184e-06_rb,3.09172e-06_rb &\n        &, 3.09938e-06_rb,3.10456e-06_rb,3.10727e-06_rb,3.10818e-06_rb /)\n\n      end subroutine sw_kgb26\n\n! **************************************************************************\n      subroutine sw_kgb27\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo\n\n      implicit none\n      save\n\n! Kurucz solar source function\n! The following values were obtained using the \"low resolution\"\n! version of the Kurucz solar source function.  For unknown reasons,\n! the total irradiance in this band differs from the corresponding\n! total in the \"high-resolution\" version of the Kurucz function.\n! Therefore, these values are scaled later by the factor SCALEKUR.\n      sfluxrefo(:) = (/ &\n        & 14.0526_rb    , 11.4794_rb    , 8.72590_rb    , 5.56966_rb    , &\n        & 3.80927_rb    , 1.57690_rb    , 1.15099_rb    , 1.10012_rb    , &\n        & 0.658212_rb   , 5.86859e-02_rb, 5.56186e-02_rb, 4.68040e-02_rb, &\n        & 3.64897e-02_rb, 3.58053e-02_rb, 1.38130e-02_rb, 1.90193e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 2925 cm-1.\n      raylo(:) = (/ &\n        & 3.44534e-06_rb,4.14480e-06_rb,4.95069e-06_rb,5.81204e-06_rb, &\n        & 6.69748e-06_rb,7.56488e-06_rb,8.36344e-06_rb,9.04135e-06_rb, &\n        & 9.58324e-06_rb,9.81542e-06_rb,9.75119e-06_rb,9.74533e-06_rb, &\n        & 9.74139e-06_rb,9.73525e-06_rb,9.73577e-06_rb,9.73618e-06_rb /)\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.22907e+00_rb,0.25625e+00_rb,0.28779e+00_rb,0.32376e+00_rb,0.36426e+00_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.21913e+00_rb,0.24445e+00_rb,0.27422e+00_rb,0.30832e+00_rb,0.34694e+00_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.20602e+00_rb,0.22864e+00_rb,0.25574e+00_rb,0.28721e+00_rb,0.32310e+00_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.19379e+00_rb,0.21352e+00_rb,0.23771e+00_rb,0.26643e+00_rb,0.29940e+00_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.18369e+00_rb,0.20061e+00_rb,0.22200e+00_rb,0.24786e+00_rb,0.27816e+00_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.17517e+00_rb,0.18920e+00_rb,0.20771e+00_rb,0.23069e+00_rb,0.25817e+00_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.16888e+00_rb,0.17988e+00_rb,0.19559e+00_rb,0.21577e+00_rb,0.24042e+00_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.16442e+00_rb,0.17273e+00_rb,0.18565e+00_rb,0.20315e+00_rb,0.22512e+00_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.16159e+00_rb,0.16738e+00_rb,0.17752e+00_rb,0.19242e+00_rb,0.21179e+00_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.16037e+00_rb,0.16402e+00_rb,0.17204e+00_rb,0.18463e+00_rb,0.20183e+00_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.20716e+01_rb,0.21925e+01_rb,0.23327e+01_rb,0.24921e+01_rb,0.26726e+01_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.20272e+01_rb,0.21401e+01_rb,0.22723e+01_rb,0.24238e+01_rb,0.25950e+01_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.19684e+01_rb,0.20697e+01_rb,0.21902e+01_rb,0.23301e+01_rb,0.24892e+01_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.19133e+01_rb,0.20021e+01_rb,0.21101e+01_rb,0.22375e+01_rb,0.23842e+01_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.18673e+01_rb,0.19441e+01_rb,0.20400e+01_rb,0.21553e+01_rb,0.22898e+01_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.18277e+01_rb,0.18925e+01_rb,0.19760e+01_rb,0.20788e+01_rb,0.22009e+01_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.17963e+01_rb,0.18497e+01_rb,0.19214e+01_rb,0.20121e+01_rb,0.21222e+01_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.17749e+01_rb,0.18156e+01_rb,0.18763e+01_rb,0.19555e+01_rb,0.20540e+01_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.17600e+01_rb,0.17885e+01_rb,0.18388e+01_rb,0.19071e+01_rb,0.19943e+01_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.17526e+01_rb,0.17729e+01_rb,0.18121e+01_rb,0.18716e+01_rb,0.19496e+01_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.12189e+02_rb,0.12619e+02_rb,0.13110e+02_rb,0.13663e+02_rb,0.14275e+02_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.12030e+02_rb,0.12434e+02_rb,0.12899e+02_rb,0.13427e+02_rb,0.14015e+02_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.11816e+02_rb,0.12183e+02_rb,0.12611e+02_rb,0.13101e+02_rb,0.13653e+02_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.11611e+02_rb,0.11938e+02_rb,0.12327e+02_rb,0.12777e+02_rb,0.13289e+02_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.11437e+02_rb,0.11726e+02_rb,0.12076e+02_rb,0.12488e+02_rb,0.12961e+02_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.11284e+02_rb,0.11533e+02_rb,0.11843e+02_rb,0.12215e+02_rb,0.12649e+02_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.11160e+02_rb,0.11370e+02_rb,0.11641e+02_rb,0.11975e+02_rb,0.12370e+02_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.11063e+02_rb,0.11237e+02_rb,0.11471e+02_rb,0.11768e+02_rb,0.12126e+02_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.10990e+02_rb,0.11129e+02_rb,0.11327e+02_rb,0.11588e+02_rb,0.11910e+02_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.10945e+02_rb,0.11053e+02_rb,0.11223e+02_rb,0.11454e+02_rb,0.11746e+02_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.55057e+02_rb,0.56143e+02_rb,0.57364e+02_rb,0.58719e+02_rb,0.60208e+02_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.54647e+02_rb,0.55677e+02_rb,0.56842e+02_rb,0.58142e+02_rb,0.59575e+02_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.54090e+02_rb,0.55039e+02_rb,0.56123e+02_rb,0.57342e+02_rb,0.58694e+02_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.53548e+02_rb,0.54410e+02_rb,0.55408e+02_rb,0.56539e+02_rb,0.57805e+02_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.53074e+02_rb,0.53853e+02_rb,0.54766e+02_rb,0.55813e+02_rb,0.56995e+02_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.52644e+02_rb,0.53336e+02_rb,0.54162e+02_rb,0.55123e+02_rb,0.56218e+02_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.52279e+02_rb,0.52887e+02_rb,0.53629e+02_rb,0.54505e+02_rb,0.55516e+02_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.51979e+02_rb,0.52507e+02_rb,0.53168e+02_rb,0.53965e+02_rb,0.54895e+02_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.51734e+02_rb,0.52183e+02_rb,0.52767e+02_rb,0.53485e+02_rb,0.54337e+02_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.51565e+02_rb,0.51948e+02_rb,0.52467e+02_rb,0.53120e+02_rb,0.53907e+02_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.17794e+03_rb,0.17973e+03_rb,0.18164e+03_rb,0.18366e+03_rb,0.18581e+03_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.17724e+03_rb,0.17898e+03_rb,0.18083e+03_rb,0.18281e+03_rb,0.18491e+03_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.17624e+03_rb,0.17791e+03_rb,0.17970e+03_rb,0.18160e+03_rb,0.18363e+03_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.17523e+03_rb,0.17682e+03_rb,0.17853e+03_rb,0.18036e+03_rb,0.18231e+03_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.17429e+03_rb,0.17581e+03_rb,0.17744e+03_rb,0.17920e+03_rb,0.18107e+03_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.17338e+03_rb,0.17482e+03_rb,0.17638e+03_rb,0.17805e+03_rb,0.17985e+03_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.17253e+03_rb,0.17390e+03_rb,0.17539e+03_rb,0.17699e+03_rb,0.17871e+03_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.17177e+03_rb,0.17307e+03_rb,0.17448e+03_rb,0.17601e+03_rb,0.17767e+03_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.17107e+03_rb,0.17230e+03_rb,0.17364e+03_rb,0.17511e+03_rb,0.17669e+03_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.17052e+03_rb,0.17169e+03_rb,0.17298e+03_rb,0.17438e+03_rb,0.17591e+03_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.37680e+05_rb,0.36801e+05_rb,0.36011e+05_rb,0.35298e+05_rb,0.34715e+05_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.39286e+03_rb,0.39463e+03_rb,0.39616e+03_rb,0.39748e+03_rb,0.39858e+03_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.39169e+03_rb,0.39359e+03_rb,0.39526e+03_rb,0.39671e+03_rb,0.39794e+03_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.39034e+03_rb,0.39239e+03_rb,0.39421e+03_rb,0.39580e+03_rb,0.39717e+03_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.38895e+03_rb,0.39113e+03_rb,0.39309e+03_rb,0.39483e+03_rb,0.39634e+03_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.38742e+03_rb,0.38975e+03_rb,0.39185e+03_rb,0.39373e+03_rb,0.39539e+03_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.38585e+03_rb,0.38832e+03_rb,0.39056e+03_rb,0.39258e+03_rb,0.39438e+03_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.38426e+03_rb,0.38686e+03_rb,0.38924e+03_rb,0.39140e+03_rb,0.39333e+03_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.38264e+03_rb,0.38538e+03_rb,0.38789e+03_rb,0.39017e+03_rb,0.39223e+03_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.38123e+03_rb,0.38408e+03_rb,0.38670e+03_rb,0.38909e+03_rb,0.39126e+03_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.18202e+07_rb,0.17771e+07_rb,0.17382e+07_rb,0.17034e+07_rb,0.16716e+07_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.63027e+03_rb,0.63194e+03_rb,0.63388e+03_rb,0.63607e+03_rb,0.63849e+03_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.62938e+03_rb,0.63090e+03_rb,0.63268e+03_rb,0.63472e+03_rb,0.63701e+03_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.62853e+03_rb,0.62989e+03_rb,0.63150e+03_rb,0.63337e+03_rb,0.63550e+03_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.62781e+03_rb,0.62901e+03_rb,0.63046e+03_rb,0.63217e+03_rb,0.63413e+03_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.62717e+03_rb,0.62821e+03_rb,0.62950e+03_rb,0.63104e+03_rb,0.63283e+03_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.62666e+03_rb,0.62753e+03_rb,0.62867e+03_rb,0.63005e+03_rb,0.63168e+03_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.62627e+03_rb,0.62698e+03_rb,0.62795e+03_rb,0.62919e+03_rb,0.63067e+03_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.62600e+03_rb,0.62653e+03_rb,0.62735e+03_rb,0.62844e+03_rb,0.62978e+03_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.62583e+03_rb,0.62624e+03_rb,0.62692e+03_rb,0.62788e+03_rb,0.62910e+03_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.55488e+07_rb,0.54180e+07_rb,0.53005e+07_rb,0.51943e+07_rb,0.50978e+07_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.82143e+03_rb,0.82232e+03_rb,0.82327e+03_rb,0.82429e+03_rb,0.82541e+03_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.82092e+03_rb,0.82177e+03_rb,0.82269e+03_rb,0.82366e+03_rb,0.82472e+03_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.82041e+03_rb,0.82121e+03_rb,0.82209e+03_rb,0.82303e+03_rb,0.82402e+03_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.81996e+03_rb,0.82070e+03_rb,0.82152e+03_rb,0.82243e+03_rb,0.82339e+03_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.81952e+03_rb,0.82021e+03_rb,0.82098e+03_rb,0.82184e+03_rb,0.82277e+03_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.81917e+03_rb,0.81977e+03_rb,0.82048e+03_rb,0.82129e+03_rb,0.82218e+03_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.81881e+03_rb,0.81938e+03_rb,0.82004e+03_rb,0.82080e+03_rb,0.82163e+03_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.81846e+03_rb,0.81906e+03_rb,0.81965e+03_rb,0.82035e+03_rb,0.82114e+03_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.82000e+03_rb,0.82074e+03_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81935e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.10204e+08_rb,0.99477e+07_rb,0.97209e+07_rb,0.95103e+07_rb,0.92960e+07_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.95102e+03_rb,0.95144e+03_rb,0.95133e+03_rb,0.95066e+03_rb,0.94964e+03_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.95048e+03_rb,0.95118e+03_rb,0.95136e+03_rb,0.95103e+03_rb,0.95020e+03_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.94969e+03_rb,0.95077e+03_rb,0.95126e+03_rb,0.95124e+03_rb,0.95074e+03_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.94872e+03_rb,0.95015e+03_rb,0.95101e+03_rb,0.95129e+03_rb,0.95105e+03_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.94752e+03_rb,0.94929e+03_rb,0.95052e+03_rb,0.95116e+03_rb,0.95126e+03_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.94612e+03_rb,0.94825e+03_rb,0.94981e+03_rb,0.95083e+03_rb,0.95126e+03_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.94461e+03_rb,0.94704e+03_rb,0.94894e+03_rb,0.95029e+03_rb,0.95107e+03_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.94291e+03_rb,0.94567e+03_rb,0.94791e+03_rb,0.94957e+03_rb,0.95069e+03_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.94135e+03_rb,0.94441e+03_rb,0.94689e+03_rb,0.94884e+03_rb,0.95022e+03_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.94133e+03_rb,0.94440e+03_rb,0.94688e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.94133e+03_rb,0.94438e+03_rb,0.94688e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.94133e+03_rb,0.94438e+03_rb,0.94687e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.12764e+08_rb,0.12408e+08_rb,0.12012e+08_rb,0.11438e+08_rb,0.11217e+08_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.99589e+03_rb,0.99493e+03_rb,0.99263e+03_rb,0.98974e+03_rb,0.98742e+03_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.99532e+03_rb,0.99571e+03_rb,0.99447e+03_rb,0.99207e+03_rb,0.98779e+03_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.99446e+03_rb,0.99559e+03_rb,0.99536e+03_rb,0.99386e+03_rb,0.99088e+03_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.99288e+03_rb,0.99493e+03_rb,0.99558e+03_rb,0.99487e+03_rb,0.99336e+03_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.99069e+03_rb,0.99366e+03_rb,0.99519e+03_rb,0.99534e+03_rb,0.99428e+03_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.98811e+03_rb,0.99191e+03_rb,0.99430e+03_rb,0.99510e+03_rb,0.99504e+03_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.98531e+03_rb,0.98996e+03_rb,0.99300e+03_rb,0.99479e+03_rb,0.99513e+03_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.98264e+03_rb,0.98737e+03_rb,0.99138e+03_rb,0.99390e+03_rb,0.99503e+03_rb /)\n      kao(:,10,10) = (/ &\n        & 0.98010e+03_rb,0.98517e+03_rb,0.98974e+03_rb,0.99281e+03_rb,0.99470e+03_rb /)\n      kao(:,11,10) = (/ &\n        & 0.98010e+03_rb,0.98509e+03_rb,0.98985e+03_rb,0.99280e+03_rb,0.99468e+03_rb /)\n      kao(:,12,10) = (/ &\n        & 0.98035e+03_rb,0.98524e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)\n      kao(:,13,10) = (/ &\n        & 0.98012e+03_rb,0.98526e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.12266e+08_rb,0.12000e+08_rb,0.11724e+08_rb,0.11828e+08_rb,0.11523e+08_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.10001e+04_rb,0.99984e+03_rb,0.99745e+03_rb,0.99535e+03_rb,0.98599e+03_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.99963e+03_rb,0.99927e+03_rb,0.99848e+03_rb,0.99596e+03_rb,0.99390e+03_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.99904e+03_rb,0.99942e+03_rb,0.99870e+03_rb,0.99747e+03_rb,0.99542e+03_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.99826e+03_rb,0.99927e+03_rb,0.99919e+03_rb,0.99821e+03_rb,0.99627e+03_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.99730e+03_rb,0.99882e+03_rb,0.99938e+03_rb,0.99902e+03_rb,0.99764e+03_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.99551e+03_rb,0.99810e+03_rb,0.99919e+03_rb,0.99961e+03_rb,0.99863e+03_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.99324e+03_rb,0.99688e+03_rb,0.99871e+03_rb,0.99940e+03_rb,0.99942e+03_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.99058e+03_rb,0.99489e+03_rb,0.99773e+03_rb,0.99912e+03_rb,0.99954e+03_rb /)\n      kao(:,10,11) = (/ &\n        & 0.98802e+03_rb,0.99297e+03_rb,0.99656e+03_rb,0.99861e+03_rb,0.99937e+03_rb /)\n      kao(:,11,11) = (/ &\n        & 0.98800e+03_rb,0.99310e+03_rb,0.99655e+03_rb,0.99860e+03_rb,0.99936e+03_rb /)\n      kao(:,12,11) = (/ &\n        & 0.98771e+03_rb,0.99296e+03_rb,0.99669e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)\n      kao(:,13,11) = (/ &\n        & 0.98800e+03_rb,0.99296e+03_rb,0.99655e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.12503e+08_rb,0.11946e+08_rb,0.11557e+08_rb,0.11503e+08_rb,0.11901e+08_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.10015e+04_rb,0.10004e+04_rb,0.99932e+03_rb,0.99373e+03_rb,0.98591e+03_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.10024e+04_rb,0.10021e+04_rb,0.10003e+04_rb,0.99817e+03_rb,0.99146e+03_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.10022e+04_rb,0.10027e+04_rb,0.10021e+04_rb,0.99956e+03_rb,0.99610e+03_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.10024e+04_rb,0.10024e+04_rb,0.10028e+04_rb,0.10015e+04_rb,0.99826e+03_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.10017e+04_rb,0.10025e+04_rb,0.10025e+04_rb,0.10023e+04_rb,0.10008e+04_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.10005e+04_rb,0.10020e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10019e+04_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.10000e+04_rb,0.10010e+04_rb,0.10024e+04_rb,0.10029e+04_rb,0.10023e+04_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.99906e+03_rb,0.10004e+04_rb,0.10018e+04_rb,0.10029e+04_rb,0.10028e+04_rb /)\n      kao(:,10,12) = (/ &\n        & 0.99791e+03_rb,0.99989e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10031e+04_rb /)\n      kao(:,11,12) = (/ &\n        & 0.99769e+03_rb,0.99967e+03_rb,0.10008e+04_rb,0.10024e+04_rb,0.10029e+04_rb /)\n      kao(:,12,12) = (/ &\n        & 0.99787e+03_rb,0.99985e+03_rb,0.10008e+04_rb,0.10025e+04_rb,0.10029e+04_rb /)\n      kao(:,13,12) = (/ &\n        & 0.99768e+03_rb,0.99984e+03_rb,0.10012e+04_rb,0.10026e+04_rb,0.10029e+04_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.12359e+08_rb,0.12469e+08_rb,0.12868e+08_rb,0.12776e+08_rb,0.12590e+08_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.10045e+04_rb,0.10033e+04_rb,0.99840e+03_rb,0.99184e+03_rb,0.98861e+03_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.10050e+04_rb,0.10041e+04_rb,0.10024e+04_rb,0.99701e+03_rb,0.99083e+03_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.10053e+04_rb,0.10043e+04_rb,0.10035e+04_rb,0.10017e+04_rb,0.99538e+03_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.10048e+04_rb,0.10056e+04_rb,0.10038e+04_rb,0.10026e+04_rb,0.10008e+04_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.10042e+04_rb,0.10054e+04_rb,0.10054e+04_rb,0.10039e+04_rb,0.10017e+04_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.10029e+04_rb,0.10046e+04_rb,0.10055e+04_rb,0.10046e+04_rb,0.10033e+04_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.10002e+04_rb,0.10039e+04_rb,0.10051e+04_rb,0.10054e+04_rb,0.10046e+04_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.99825e+03_rb,0.10019e+04_rb,0.10043e+04_rb,0.10051e+04_rb,0.10052e+04_rb /)\n      kao(:,10,13) = (/ &\n        & 0.99595e+03_rb,0.99983e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10051e+04_rb /)\n      kao(:,11,13) = (/ &\n        & 0.99621e+03_rb,0.99979e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10054e+04_rb /)\n      kao(:,12,13) = (/ &\n        & 0.99597e+03_rb,0.99979e+03_rb,0.10031e+04_rb,0.10047e+04_rb,0.10054e+04_rb /)\n      kao(:,13,13) = (/ &\n        & 0.99623e+03_rb,0.99978e+03_rb,0.10031e+04_rb,0.10047e+04_rb,0.10054e+04_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.13636e+08_rb,0.13818e+08_rb,0.13518e+08_rb,0.13266e+08_rb,0.13048e+08_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.10049e+04_rb,0.99946e+03_rb,0.99774e+03_rb,0.99774e+03_rb,0.99771e+03_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.10051e+04_rb,0.10068e+04_rb,0.10007e+04_rb,0.99775e+03_rb,0.99778e+03_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.10071e+04_rb,0.10061e+04_rb,0.10050e+04_rb,0.10005e+04_rb,0.99776e+03_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.10067e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10044e+04_rb,0.99972e+03_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.10049e+04_rb,0.10070e+04_rb,0.10074e+04_rb,0.10057e+04_rb,0.10037e+04_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.10033e+04_rb,0.10063e+04_rb,0.10072e+04_rb,0.10067e+04_rb,0.10050e+04_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.10025e+04_rb,0.10048e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.99880e+03_rb,0.10031e+04_rb,0.10060e+04_rb,0.10071e+04_rb,0.10069e+04_rb /)\n      kao(:,10,14) = (/ &\n        & 0.99610e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kao(:,11,14) = (/ &\n        & 0.99601e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kao(:,12,14) = (/ &\n        & 0.99598e+03_rb,0.10023e+04_rb,0.10051e+04_rb,0.10067e+04_rb,0.10076e+04_rb /)\n      kao(:,13,14) = (/ &\n        & 0.99596e+03_rb,0.10027e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.14285e+08_rb,0.13947e+08_rb,0.13644e+08_rb,0.13317e+08_rb,0.13015e+08_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.99932e+03_rb,0.10011e+04_rb,0.10018e+04_rb,0.10007e+04_rb,0.99706e+03_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.10097e+04_rb,0.99743e+03_rb,0.10015e+04_rb,0.10018e+04_rb,0.99920e+03_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.10099e+04_rb,0.10076e+04_rb,0.10030e+04_rb,0.10017e+04_rb,0.10013e+04_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.10075e+04_rb,0.10079e+04_rb,0.10073e+04_rb,0.10035e+04_rb,0.10018e+04_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.10068e+04_rb,0.10088e+04_rb,0.10068e+04_rb,0.10090e+04_rb,0.10033e+04_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.10057e+04_rb,0.10073e+04_rb,0.10090e+04_rb,0.10087e+04_rb,0.10062e+04_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.10010e+04_rb,0.10054e+04_rb,0.10076e+04_rb,0.10079e+04_rb,0.10072e+04_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.99853e+03_rb,0.10054e+04_rb,0.10071e+04_rb,0.10079e+04_rb,0.10078e+04_rb /)\n      kao(:,10,15) = (/ &\n        & 0.99742e+03_rb,0.10007e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kao(:,11,15) = (/ &\n        & 0.99635e+03_rb,0.10006e+04_rb,0.10064e+04_rb,0.10087e+04_rb,0.10090e+04_rb /)\n      kao(:,12,15) = (/ &\n        & 0.99635e+03_rb,0.10006e+04_rb,0.10064e+04_rb,0.10087e+04_rb,0.10069e+04_rb /)\n      kao(:,13,15) = (/ &\n        & 0.99635e+03_rb,0.99960e+03_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.14326e+08_rb,0.13988e+08_rb,0.13684e+08_rb,0.13409e+08_rb,0.13021e+08_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.10008e+04_rb,0.10027e+04_rb,0.10036e+04_rb,0.10037e+04_rb,0.99673e+03_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.99286e+03_rb,0.10016e+04_rb,0.10031e+04_rb,0.10038e+04_rb,0.10035e+04_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.99278e+03_rb,0.10078e+04_rb,0.10023e+04_rb,0.10035e+04_rb,0.10038e+04_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.10074e+04_rb,0.10079e+04_rb,0.10075e+04_rb,0.10028e+04_rb,0.10037e+04_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.10069e+04_rb,0.10002e+04_rb,0.10079e+04_rb,0.99212e+03_rb,0.10032e+04_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.10060e+04_rb,0.10072e+04_rb,0.10004e+04_rb,0.10003e+04_rb,0.10063e+04_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.10009e+04_rb,0.10066e+04_rb,0.10075e+04_rb,0.10080e+04_rb,0.10074e+04_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.99860e+03_rb,0.10057e+04_rb,0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb /)\n      kao(:,10,16) = (/ &\n        & 0.98908e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)\n      kao(:,11,16) = (/ &\n        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10000e+04_rb,0.10005e+04_rb /)\n      kao(:,12,16) = (/ &\n        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10000e+04_rb,0.10080e+04_rb /)\n      kao(:,13,16) = (/ &\n        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n  \n      kbo(:,13, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.16050e+00_rb,0.16454e+00_rb,0.17292e+00_rb,0.18592e+00_rb,0.20351e+00_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.16071e+00_rb,0.16519e+00_rb,0.17400e+00_rb,0.18750e+00_rb,0.20554e+00_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.16098e+00_rb,0.16593e+00_rb,0.17517e+00_rb,0.18921e+00_rb,0.20772e+00_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.16129e+00_rb,0.16670e+00_rb,0.17642e+00_rb,0.19093e+00_rb,0.20991e+00_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.16164e+00_rb,0.16750e+00_rb,0.17771e+00_rb,0.19267e+00_rb,0.21211e+00_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.16203e+00_rb,0.16832e+00_rb,0.17901e+00_rb,0.19443e+00_rb,0.21431e+00_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.16255e+00_rb,0.16934e+00_rb,0.18059e+00_rb,0.19653e+00_rb,0.21694e+00_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.16313e+00_rb,0.17044e+00_rb,0.18225e+00_rb,0.19873e+00_rb,0.21967e+00_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.16416e+00_rb,0.17227e+00_rb,0.18498e+00_rb,0.20229e+00_rb,0.22406e+00_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.16539e+00_rb,0.17431e+00_rb,0.18796e+00_rb,0.20612e+00_rb,0.22875e+00_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.16684e+00_rb,0.17666e+00_rb,0.19125e+00_rb,0.21032e+00_rb,0.23385e+00_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.16856e+00_rb,0.17939e+00_rb,0.19493e+00_rb,0.21495e+00_rb,0.23943e+00_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.17067e+00_rb,0.18260e+00_rb,0.19919e+00_rb,0.22024e+00_rb,0.24578e+00_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.17306e+00_rb,0.18613e+00_rb,0.20377e+00_rb,0.22588e+00_rb,0.25248e+00_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.17570e+00_rb,0.18994e+00_rb,0.20865e+00_rb,0.23184e+00_rb,0.25952e+00_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.17882e+00_rb,0.19417e+00_rb,0.21399e+00_rb,0.23828e+00_rb,0.26708e+00_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.18223e+00_rb,0.19870e+00_rb,0.21964e+00_rb,0.24505e+00_rb,0.27492e+00_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.18602e+00_rb,0.20364e+00_rb,0.22572e+00_rb,0.25229e+00_rb,0.28325e+00_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.19018e+00_rb,0.20895e+00_rb,0.23219e+00_rb,0.25994e+00_rb,0.29200e+00_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.19466e+00_rb,0.21461e+00_rb,0.23902e+00_rb,0.26795e+00_rb,0.30114e+00_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.19880e+00_rb,0.21976e+00_rb,0.24520e+00_rb,0.27509e+00_rb,0.30932e+00_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.20129e+00_rb,0.22283e+00_rb,0.24886e+00_rb,0.27931e+00_rb,0.31412e+00_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.20170e+00_rb,0.22334e+00_rb,0.24946e+00_rb,0.28000e+00_rb,0.31492e+00_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.19920e+00_rb,0.22026e+00_rb,0.24579e+00_rb,0.27578e+00_rb,0.31010e+00_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.19662e+00_rb,0.21706e+00_rb,0.24197e+00_rb,0.27135e+00_rb,0.30504e+00_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.19414e+00_rb,0.21396e+00_rb,0.23824e+00_rb,0.26704e+00_rb,0.30010e+00_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.19003e+00_rb,0.20877e+00_rb,0.23197e+00_rb,0.25968e+00_rb,0.29171e+00_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.18597e+00_rb,0.20357e+00_rb,0.22564e+00_rb,0.25219e+00_rb,0.28314e+00_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.18220e+00_rb,0.19865e+00_rb,0.21958e+00_rb,0.24498e+00_rb,0.27484e+00_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.17798e+00_rb,0.19304e+00_rb,0.21257e+00_rb,0.23657e+00_rb,0.26510e+00_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.17397e+00_rb,0.18746e+00_rb,0.20548e+00_rb,0.22798e+00_rb,0.25496e+00_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.17053e+00_rb,0.18239e+00_rb,0.19890e+00_rb,0.21989e+00_rb,0.24535e+00_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.16739e+00_rb,0.17754e+00_rb,0.19245e+00_rb,0.21183e+00_rb,0.23568e+00_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.16454e+00_rb,0.17292e+00_rb,0.18592e+00_rb,0.20351e+00_rb,0.22556e+00_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.16239e+00_rb,0.16903e+00_rb,0.18011e+00_rb,0.19590e+00_rb,0.21615e+00_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.16095e+00_rb,0.16584e+00_rb,0.17504e+00_rb,0.18902e+00_rb,0.20747e+00_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.16025e+00_rb,0.16348e+00_rb,0.17109e+00_rb,0.18322e+00_rb,0.20000e+00_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.16021e+00_rb,0.16179e+00_rb,0.16781e+00_rb,0.17821e+00_rb,0.19335e+00_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.16078e+00_rb,0.16068e+00_rb,0.16511e+00_rb,0.17387e+00_rb,0.18731e+00_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.16197e+00_rb,0.16018e+00_rb,0.16299e+00_rb,0.17017e+00_rb,0.18186e+00_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.16362e+00_rb,0.16026e+00_rb,0.16155e+00_rb,0.16729e+00_rb,0.17738e+00_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.16570e+00_rb,0.16083e+00_rb,0.16064e+00_rb,0.16498e+00_rb,0.17365e+00_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.16825e+00_rb,0.16187e+00_rb,0.16020e+00_rb,0.16311e+00_rb,0.17041e+00_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.17129e+00_rb,0.16340e+00_rb,0.16023e+00_rb,0.16169e+00_rb,0.16761e+00_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.17462e+00_rb,0.16529e+00_rb,0.16069e+00_rb,0.16077e+00_rb,0.16535e+00_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.17607e+00_rb,0.16617e+00_rb,0.16100e+00_rb,0.16051e+00_rb,0.16456e+00_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.17536e+01_rb,0.17755e+01_rb,0.18165e+01_rb,0.18775e+01_rb,0.19571e+01_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.17549e+01_rb,0.17787e+01_rb,0.18219e+01_rb,0.18847e+01_rb,0.19662e+01_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.17565e+01_rb,0.17819e+01_rb,0.18278e+01_rb,0.18925e+01_rb,0.19761e+01_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.17583e+01_rb,0.17850e+01_rb,0.18336e+01_rb,0.19003e+01_rb,0.19859e+01_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.17603e+01_rb,0.17891e+01_rb,0.18396e+01_rb,0.19082e+01_rb,0.19957e+01_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.17624e+01_rb,0.17934e+01_rb,0.18457e+01_rb,0.19162e+01_rb,0.20056e+01_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.17652e+01_rb,0.17986e+01_rb,0.18530e+01_rb,0.19257e+01_rb,0.20174e+01_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.17683e+01_rb,0.18042e+01_rb,0.18607e+01_rb,0.19356e+01_rb,0.20296e+01_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.17736e+01_rb,0.18133e+01_rb,0.18732e+01_rb,0.19516e+01_rb,0.20492e+01_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.17796e+01_rb,0.18234e+01_rb,0.18868e+01_rb,0.19689e+01_rb,0.20702e+01_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.17857e+01_rb,0.18347e+01_rb,0.19018e+01_rb,0.19877e+01_rb,0.20929e+01_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.17946e+01_rb,0.18475e+01_rb,0.19185e+01_rb,0.20085e+01_rb,0.21178e+01_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.18053e+01_rb,0.18623e+01_rb,0.19377e+01_rb,0.20322e+01_rb,0.21460e+01_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.18172e+01_rb,0.18785e+01_rb,0.19583e+01_rb,0.20574e+01_rb,0.21757e+01_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.18303e+01_rb,0.18959e+01_rb,0.19802e+01_rb,0.20839e+01_rb,0.22069e+01_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.18448e+01_rb,0.19150e+01_rb,0.20042e+01_rb,0.21126e+01_rb,0.22404e+01_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.18606e+01_rb,0.19355e+01_rb,0.20295e+01_rb,0.21428e+01_rb,0.22754e+01_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.18780e+01_rb,0.19577e+01_rb,0.20566e+01_rb,0.21749e+01_rb,0.23125e+01_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.18969e+01_rb,0.19816e+01_rb,0.20855e+01_rb,0.22088e+01_rb,0.23514e+01_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.19172e+01_rb,0.20069e+01_rb,0.21160e+01_rb,0.22443e+01_rb,0.23920e+01_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.19359e+01_rb,0.20300e+01_rb,0.21434e+01_rb,0.22762e+01_rb,0.24282e+01_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.19471e+01_rb,0.20437e+01_rb,0.21597e+01_rb,0.22949e+01_rb,0.24495e+01_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.19490e+01_rb,0.20460e+01_rb,0.21624e+01_rb,0.22980e+01_rb,0.24530e+01_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.19377e+01_rb,0.20322e+01_rb,0.21461e+01_rb,0.22792e+01_rb,0.24317e+01_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.19261e+01_rb,0.20179e+01_rb,0.21291e+01_rb,0.22595e+01_rb,0.24093e+01_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.19149e+01_rb,0.20040e+01_rb,0.21125e+01_rb,0.22402e+01_rb,0.23873e+01_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.18963e+01_rb,0.19807e+01_rb,0.20845e+01_rb,0.22076e+01_rb,0.23501e+01_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.18778e+01_rb,0.19574e+01_rb,0.20563e+01_rb,0.21745e+01_rb,0.23120e+01_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.18604e+01_rb,0.19352e+01_rb,0.20292e+01_rb,0.21425e+01_rb,0.22750e+01_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.18409e+01_rb,0.19099e+01_rb,0.19978e+01_rb,0.21050e+01_rb,0.22315e+01_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.18217e+01_rb,0.18845e+01_rb,0.19660e+01_rb,0.20667e+01_rb,0.21867e+01_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.18046e+01_rb,0.18613e+01_rb,0.19364e+01_rb,0.20306e+01_rb,0.21441e+01_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.17886e+01_rb,0.18389e+01_rb,0.19072e+01_rb,0.19945e+01_rb,0.21011e+01_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.17755e+01_rb,0.18165e+01_rb,0.18775e+01_rb,0.19571e+01_rb,0.20559e+01_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.17644e+01_rb,0.17970e+01_rb,0.18508e+01_rb,0.19228e+01_rb,0.20139e+01_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.17563e+01_rb,0.17816e+01_rb,0.18271e+01_rb,0.18916e+01_rb,0.19749e+01_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.17517e+01_rb,0.17702e+01_rb,0.18074e+01_rb,0.18651e+01_rb,0.19413e+01_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.17504e+01_rb,0.17611e+01_rb,0.17908e+01_rb,0.18420e+01_rb,0.19113e+01_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.17523e+01_rb,0.17547e+01_rb,0.17783e+01_rb,0.18212e+01_rb,0.18839e+01_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.17566e+01_rb,0.17510e+01_rb,0.17675e+01_rb,0.18028e+01_rb,0.18589e+01_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.17623e+01_rb,0.17507e+01_rb,0.17598e+01_rb,0.17881e+01_rb,0.18381e+01_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.17691e+01_rb,0.17524e+01_rb,0.17544e+01_rb,0.17777e+01_rb,0.18201e+01_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.17776e+01_rb,0.17562e+01_rb,0.17512e+01_rb,0.17682e+01_rb,0.18040e+01_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.17881e+01_rb,0.17616e+01_rb,0.17505e+01_rb,0.17606e+01_rb,0.17897e+01_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.17996e+01_rb,0.17678e+01_rb,0.17520e+01_rb,0.17552e+01_rb,0.17794e+01_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.18045e+01_rb,0.17707e+01_rb,0.17530e+01_rb,0.17536e+01_rb,0.17756e+01_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.10952e+02_rb,0.11065e+02_rb,0.11240e+02_rb,0.11476e+02_rb,0.11774e+02_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.10961e+02_rb,0.11080e+02_rb,0.11261e+02_rb,0.11503e+02_rb,0.11807e+02_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.10971e+02_rb,0.11097e+02_rb,0.11284e+02_rb,0.11533e+02_rb,0.11844e+02_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.10981e+02_rb,0.11115e+02_rb,0.11307e+02_rb,0.11562e+02_rb,0.11879e+02_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.10992e+02_rb,0.11132e+02_rb,0.11331e+02_rb,0.11592e+02_rb,0.11915e+02_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.11003e+02_rb,0.11149e+02_rb,0.11354e+02_rb,0.11622e+02_rb,0.11951e+02_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.11017e+02_rb,0.11170e+02_rb,0.11382e+02_rb,0.11657e+02_rb,0.11994e+02_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.11031e+02_rb,0.11192e+02_rb,0.11412e+02_rb,0.11694e+02_rb,0.12038e+02_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.11056e+02_rb,0.11228e+02_rb,0.11460e+02_rb,0.11754e+02_rb,0.12109e+02_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.11085e+02_rb,0.11267e+02_rb,0.11511e+02_rb,0.11817e+02_rb,0.12184e+02_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.11118e+02_rb,0.11312e+02_rb,0.11568e+02_rb,0.11886e+02_rb,0.12266e+02_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.11154e+02_rb,0.11361e+02_rb,0.11630e+02_rb,0.11962e+02_rb,0.12354e+02_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11196e+02_rb,0.11418e+02_rb,0.11702e+02_rb,0.12048e+02_rb,0.12455e+02_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.11243e+02_rb,0.11480e+02_rb,0.11778e+02_rb,0.12138e+02_rb,0.12560e+02_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.11294e+02_rb,0.11545e+02_rb,0.11859e+02_rb,0.12234e+02_rb,0.12670e+02_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.11351e+02_rb,0.11617e+02_rb,0.11946e+02_rb,0.12336e+02_rb,0.12788e+02_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.11411e+02_rb,0.11694e+02_rb,0.12038e+02_rb,0.12443e+02_rb,0.12910e+02_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.11478e+02_rb,0.11776e+02_rb,0.12136e+02_rb,0.12557e+02_rb,0.13040e+02_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.11549e+02_rb,0.11864e+02_rb,0.12239e+02_rb,0.12677e+02_rb,0.13175e+02_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.11626e+02_rb,0.11956e+02_rb,0.12348e+02_rb,0.12801e+02_rb,0.13316e+02_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.11695e+02_rb,0.12040e+02_rb,0.12446e+02_rb,0.12913e+02_rb,0.13442e+02_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.11737e+02_rb,0.12089e+02_rb,0.12503e+02_rb,0.12979e+02_rb,0.13515e+02_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.11744e+02_rb,0.12098e+02_rb,0.12513e+02_rb,0.12989e+02_rb,0.13528e+02_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.11702e+02_rb,0.12048e+02_rb,0.12455e+02_rb,0.12924e+02_rb,0.13454e+02_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.11659e+02_rb,0.11996e+02_rb,0.12395e+02_rb,0.12855e+02_rb,0.13376e+02_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.11617e+02_rb,0.11946e+02_rb,0.12336e+02_rb,0.12787e+02_rb,0.13300e+02_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.11547e+02_rb,0.11861e+02_rb,0.12236e+02_rb,0.12673e+02_rb,0.13171e+02_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.11477e+02_rb,0.11775e+02_rb,0.12134e+02_rb,0.12555e+02_rb,0.13038e+02_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.11411e+02_rb,0.11693e+02_rb,0.12037e+02_rb,0.12442e+02_rb,0.12909e+02_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.11335e+02_rb,0.11598e+02_rb,0.11923e+02_rb,0.12309e+02_rb,0.12757e+02_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.11261e+02_rb,0.11503e+02_rb,0.11807e+02_rb,0.12172e+02_rb,0.12599e+02_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.11193e+02_rb,0.11414e+02_rb,0.11697e+02_rb,0.12042e+02_rb,0.12448e+02_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.11129e+02_rb,0.11328e+02_rb,0.11588e+02_rb,0.11911e+02_rb,0.12295e+02_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.11065e+02_rb,0.11240e+02_rb,0.11476e+02_rb,0.11774e+02_rb,0.12133e+02_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.11012e+02_rb,0.11163e+02_rb,0.11374e+02_rb,0.11647e+02_rb,0.11981e+02_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.10969e+02_rb,0.11095e+02_rb,0.11282e+02_rb,0.11530e+02_rb,0.11839e+02_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.10938e+02_rb,0.11040e+02_rb,0.11204e+02_rb,0.11429e+02_rb,0.11715e+02_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.10916e+02_rb,0.10996e+02_rb,0.11138e+02_rb,0.11340e+02_rb,0.11604e+02_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.10900e+02_rb,0.10960e+02_rb,0.11079e+02_rb,0.11259e+02_rb,0.11500e+02_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.10894e+02_rb,0.10932e+02_rb,0.11028e+02_rb,0.11186e+02_rb,0.11405e+02_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.10895e+02_rb,0.10912e+02_rb,0.10989e+02_rb,0.11127e+02_rb,0.11325e+02_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.10903e+02_rb,0.10900e+02_rb,0.10958e+02_rb,0.11075e+02_rb,0.11255e+02_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.10921e+02_rb,0.10894e+02_rb,0.10933e+02_rb,0.11031e+02_rb,0.11191e+02_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.10944e+02_rb,0.10894e+02_rb,0.10914e+02_rb,0.10993e+02_rb,0.11134e+02_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.10972e+02_rb,0.10901e+02_rb,0.10902e+02_rb,0.10963e+02_rb,0.11084e+02_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.10984e+02_rb,0.10906e+02_rb,0.10898e+02_rb,0.10952e+02_rb,0.11066e+02_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.51593e+02_rb,0.51987e+02_rb,0.52517e+02_rb,0.53182e+02_rb,0.53980e+02_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.51626e+02_rb,0.52035e+02_rb,0.52579e+02_rb,0.53256e+02_rb,0.54069e+02_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.51664e+02_rb,0.52087e+02_rb,0.52644e+02_rb,0.53337e+02_rb,0.54163e+02_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.51701e+02_rb,0.52138e+02_rb,0.52710e+02_rb,0.53416e+02_rb,0.54257e+02_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.51740e+02_rb,0.52191e+02_rb,0.52776e+02_rb,0.53496e+02_rb,0.54351e+02_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.51779e+02_rb,0.52244e+02_rb,0.52843e+02_rb,0.53576e+02_rb,0.54444e+02_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.51827e+02_rb,0.52307e+02_rb,0.52922e+02_rb,0.53671e+02_rb,0.54555e+02_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.51877e+02_rb,0.52373e+02_rb,0.53004e+02_rb,0.53770e+02_rb,0.54669e+02_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.51959e+02_rb,0.52481e+02_rb,0.53136e+02_rb,0.53927e+02_rb,0.54851e+02_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.52049e+02_rb,0.52596e+02_rb,0.53278e+02_rb,0.54094e+02_rb,0.55044e+02_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.52148e+02_rb,0.52723e+02_rb,0.53431e+02_rb,0.54274e+02_rb,0.55252e+02_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.52259e+02_rb,0.52862e+02_rb,0.53599e+02_rb,0.54471e+02_rb,0.55477e+02_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.52387e+02_rb,0.53022e+02_rb,0.53790e+02_rb,0.54693e+02_rb,0.55730e+02_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.52525e+02_rb,0.53191e+02_rb,0.53992e+02_rb,0.54926e+02_rb,0.55995e+02_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.52672e+02_rb,0.53371e+02_rb,0.54203e+02_rb,0.55170e+02_rb,0.56271e+02_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.52833e+02_rb,0.53565e+02_rb,0.54430e+02_rb,0.55430e+02_rb,0.56565e+02_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.53003e+02_rb,0.53768e+02_rb,0.54668e+02_rb,0.55702e+02_rb,0.56870e+02_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.53186e+02_rb,0.53986e+02_rb,0.54920e+02_rb,0.55988e+02_rb,0.57190e+02_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.53381e+02_rb,0.54216e+02_rb,0.55184e+02_rb,0.56287e+02_rb,0.57525e+02_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.53587e+02_rb,0.54457e+02_rb,0.55460e+02_rb,0.56599e+02_rb,0.57871e+02_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.53773e+02_rb,0.54673e+02_rb,0.55707e+02_rb,0.56876e+02_rb,0.58179e+02_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.53883e+02_rb,0.54800e+02_rb,0.55852e+02_rb,0.57039e+02_rb,0.58359e+02_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.53901e+02_rb,0.54822e+02_rb,0.55876e+02_rb,0.57066e+02_rb,0.58389e+02_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.53791e+02_rb,0.54694e+02_rb,0.55731e+02_rb,0.56903e+02_rb,0.58208e+02_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.53676e+02_rb,0.54560e+02_rb,0.55578e+02_rb,0.56731e+02_rb,0.58018e+02_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.53563e+02_rb,0.54429e+02_rb,0.55429e+02_rb,0.56563e+02_rb,0.57832e+02_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.53375e+02_rb,0.54208e+02_rb,0.55175e+02_rb,0.56277e+02_rb,0.57513e+02_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.53184e+02_rb,0.53983e+02_rb,0.54916e+02_rb,0.55984e+02_rb,0.57186e+02_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.53001e+02_rb,0.53766e+02_rb,0.54665e+02_rb,0.55699e+02_rb,0.56866e+02_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.52790e+02_rb,0.53513e+02_rb,0.54370e+02_rb,0.55362e+02_rb,0.56488e+02_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.52577e+02_rb,0.53254e+02_rb,0.54066e+02_rb,0.55012e+02_rb,0.56093e+02_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.52379e+02_rb,0.53011e+02_rb,0.53777e+02_rb,0.54678e+02_rb,0.55713e+02_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.52184e+02_rb,0.52768e+02_rb,0.53486e+02_rb,0.54339e+02_rb,0.55326e+02_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.51987e+02_rb,0.52517e+02_rb,0.53182e+02_rb,0.53980e+02_rb,0.54913e+02_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.51812e+02_rb,0.52288e+02_rb,0.52898e+02_rb,0.53643e+02_rb,0.54522e+02_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.51659e+02_rb,0.52081e+02_rb,0.52637e+02_rb,0.53327e+02_rb,0.54152e+02_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.51535e+02_rb,0.51906e+02_rb,0.52412e+02_rb,0.53052e+02_rb,0.53826e+02_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.51433e+02_rb,0.51755e+02_rb,0.52211e+02_rb,0.52802e+02_rb,0.53527e+02_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.51349e+02_rb,0.51622e+02_rb,0.52029e+02_rb,0.52571e+02_rb,0.53247e+02_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.51285e+02_rb,0.51507e+02_rb,0.51865e+02_rb,0.52358e+02_rb,0.52985e+02_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.51240e+02_rb,0.51417e+02_rb,0.51730e+02_rb,0.52178e+02_rb,0.52760e+02_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.51211e+02_rb,0.51346e+02_rb,0.51615e+02_rb,0.52020e+02_rb,0.52559e+02_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.51194e+02_rb,0.51288e+02_rb,0.51514e+02_rb,0.51875e+02_rb,0.52371e+02_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.51190e+02_rb,0.51245e+02_rb,0.51426e+02_rb,0.51746e+02_rb,0.52198e+02_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.51200e+02_rb,0.51216e+02_rb,0.51357e+02_rb,0.51635e+02_rb,0.52046e+02_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.51207e+02_rb,0.51207e+02_rb,0.51333e+02_rb,0.51594e+02_rb,0.51989e+02_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.17061e+03_rb,0.17179e+03_rb,0.17309e+03_rb,0.17451e+03_rb,0.17604e+03_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.17073e+03_rb,0.17192e+03_rb,0.17323e+03_rb,0.17466e+03_rb,0.17621e+03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.17085e+03_rb,0.17205e+03_rb,0.17338e+03_rb,0.17482e+03_rb,0.17638e+03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.17097e+03_rb,0.17218e+03_rb,0.17352e+03_rb,0.17497e+03_rb,0.17655e+03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.17109e+03_rb,0.17232e+03_rb,0.17366e+03_rb,0.17513e+03_rb,0.17671e+03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.17121e+03_rb,0.17245e+03_rb,0.17381e+03_rb,0.17528e+03_rb,0.17688e+03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.17134e+03_rb,0.17260e+03_rb,0.17397e+03_rb,0.17547e+03_rb,0.17708e+03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.17149e+03_rb,0.17276e+03_rb,0.17415e+03_rb,0.17565e+03_rb,0.17728e+03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.17172e+03_rb,0.17301e+03_rb,0.17442e+03_rb,0.17594e+03_rb,0.17759e+03_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.17195e+03_rb,0.17327e+03_rb,0.17470e+03_rb,0.17625e+03_rb,0.17792e+03_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.17221e+03_rb,0.17355e+03_rb,0.17500e+03_rb,0.17658e+03_rb,0.17827e+03_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.17248e+03_rb,0.17385e+03_rb,0.17533e+03_rb,0.17693e+03_rb,0.17865e+03_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.17279e+03_rb,0.17418e+03_rb,0.17569e+03_rb,0.17732e+03_rb,0.17906e+03_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.17311e+03_rb,0.17453e+03_rb,0.17606e+03_rb,0.17772e+03_rb,0.17949e+03_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.17344e+03_rb,0.17488e+03_rb,0.17645e+03_rb,0.17813e+03_rb,0.17994e+03_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.17379e+03_rb,0.17526e+03_rb,0.17686e+03_rb,0.17857e+03_rb,0.18040e+03_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.17414e+03_rb,0.17565e+03_rb,0.17727e+03_rb,0.17902e+03_rb,0.18088e+03_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.17452e+03_rb,0.17605e+03_rb,0.17771e+03_rb,0.17948e+03_rb,0.18137e+03_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.17491e+03_rb,0.17647e+03_rb,0.17816e+03_rb,0.17996e+03_rb,0.18188e+03_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.17531e+03_rb,0.17690e+03_rb,0.17862e+03_rb,0.18045e+03_rb,0.18241e+03_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.17566e+03_rb,0.17728e+03_rb,0.17903e+03_rb,0.18089e+03_rb,0.18287e+03_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.17586e+03_rb,0.17750e+03_rb,0.17926e+03_rb,0.18114e+03_rb,0.18313e+03_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.17590e+03_rb,0.17754e+03_rb,0.17930e+03_rb,0.18118e+03_rb,0.18318e+03_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.17569e+03_rb,0.17732e+03_rb,0.17906e+03_rb,0.18093e+03_rb,0.18291e+03_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.17547e+03_rb,0.17708e+03_rb,0.17881e+03_rb,0.18066e+03_rb,0.18263e+03_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.17526e+03_rb,0.17685e+03_rb,0.17857e+03_rb,0.18040e+03_rb,0.18235e+03_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.17489e+03_rb,0.17646e+03_rb,0.17814e+03_rb,0.17995e+03_rb,0.18187e+03_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.17451e+03_rb,0.17605e+03_rb,0.17770e+03_rb,0.17948e+03_rb,0.18137e+03_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.17414e+03_rb,0.17565e+03_rb,0.17727e+03_rb,0.17901e+03_rb,0.18087e+03_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.17369e+03_rb,0.17516e+03_rb,0.17675e+03_rb,0.17846e+03_rb,0.18028e+03_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.17323e+03_rb,0.17465e+03_rb,0.17620e+03_rb,0.17787e+03_rb,0.17965e+03_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.17277e+03_rb,0.17416e+03_rb,0.17567e+03_rb,0.17729e+03_rb,0.17904e+03_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.17230e+03_rb,0.17365e+03_rb,0.17511e+03_rb,0.17669e+03_rb,0.17840e+03_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.17179e+03_rb,0.17309e+03_rb,0.17451e+03_rb,0.17604e+03_rb,0.17770e+03_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.17130e+03_rb,0.17255e+03_rb,0.17392e+03_rb,0.17541e+03_rb,0.17702e+03_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.17083e+03_rb,0.17204e+03_rb,0.17336e+03_rb,0.17480e+03_rb,0.17636e+03_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.17041e+03_rb,0.17157e+03_rb,0.17285e+03_rb,0.17424e+03_rb,0.17576e+03_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.17002e+03_rb,0.17113e+03_rb,0.17237e+03_rb,0.17372e+03_rb,0.17519e+03_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.16964e+03_rb,0.17071e+03_rb,0.17190e+03_rb,0.17321e+03_rb,0.17464e+03_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.16927e+03_rb,0.17031e+03_rb,0.17145e+03_rb,0.17272e+03_rb,0.17411e+03_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.16896e+03_rb,0.16995e+03_rb,0.17106e+03_rb,0.17228e+03_rb,0.17363e+03_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.16866e+03_rb,0.16962e+03_rb,0.17069e+03_rb,0.17188e+03_rb,0.17318e+03_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.16839e+03_rb,0.16930e+03_rb,0.17033e+03_rb,0.17148e+03_rb,0.17275e+03_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.16812e+03_rb,0.16899e+03_rb,0.16999e+03_rb,0.17110e+03_rb,0.17233e+03_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.16788e+03_rb,0.16871e+03_rb,0.16968e+03_rb,0.17075e+03_rb,0.17195e+03_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.16779e+03_rb,0.16861e+03_rb,0.16955e+03_rb,0.17062e+03_rb,0.17180e+03_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.38148e+03_rb,0.38431e+03_rb,0.38691e+03_rb,0.38929e+03_rb,0.39144e+03_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.38178e+03_rb,0.38458e+03_rb,0.38716e+03_rb,0.38951e+03_rb,0.39164e+03_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.38209e+03_rb,0.38487e+03_rb,0.38742e+03_rb,0.38975e+03_rb,0.39186e+03_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.38239e+03_rb,0.38514e+03_rb,0.38767e+03_rb,0.38998e+03_rb,0.39206e+03_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.38268e+03_rb,0.38541e+03_rb,0.38792e+03_rb,0.39020e+03_rb,0.39226e+03_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.38297e+03_rb,0.38568e+03_rb,0.38816e+03_rb,0.39042e+03_rb,0.39246e+03_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.38330e+03_rb,0.38598e+03_rb,0.38844e+03_rb,0.39067e+03_rb,0.39268e+03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.38363e+03_rb,0.38629e+03_rb,0.38872e+03_rb,0.39092e+03_rb,0.39291e+03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.38414e+03_rb,0.38675e+03_rb,0.38914e+03_rb,0.39131e+03_rb,0.39325e+03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.38466e+03_rb,0.38723e+03_rb,0.38958e+03_rb,0.39170e+03_rb,0.39360e+03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.38520e+03_rb,0.38772e+03_rb,0.39002e+03_rb,0.39210e+03_rb,0.39395e+03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.38575e+03_rb,0.38823e+03_rb,0.39048e+03_rb,0.39251e+03_rb,0.39432e+03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.38635e+03_rb,0.38877e+03_rb,0.39098e+03_rb,0.39295e+03_rb,0.39470e+03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.38694e+03_rb,0.38932e+03_rb,0.39146e+03_rb,0.39339e+03_rb,0.39509e+03_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.38753e+03_rb,0.38985e+03_rb,0.39194e+03_rb,0.39381e+03_rb,0.39546e+03_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.38813e+03_rb,0.39039e+03_rb,0.39243e+03_rb,0.39424e+03_rb,0.39583e+03_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.38871e+03_rb,0.39092e+03_rb,0.39290e+03_rb,0.39466e+03_rb,0.39620e+03_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.38930e+03_rb,0.39145e+03_rb,0.39338e+03_rb,0.39508e+03_rb,0.39655e+03_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.38988e+03_rb,0.39197e+03_rb,0.39384e+03_rb,0.39548e+03_rb,0.39690e+03_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.39045e+03_rb,0.39248e+03_rb,0.39429e+03_rb,0.39587e+03_rb,0.39723e+03_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.39093e+03_rb,0.39291e+03_rb,0.39467e+03_rb,0.39620e+03_rb,0.39751e+03_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.39120e+03_rb,0.39316e+03_rb,0.39488e+03_rb,0.39639e+03_rb,0.39766e+03_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.39125e+03_rb,0.39320e+03_rb,0.39492e+03_rb,0.39642e+03_rb,0.39769e+03_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.39098e+03_rb,0.39295e+03_rb,0.39471e+03_rb,0.39623e+03_rb,0.39754e+03_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.39068e+03_rb,0.39269e+03_rb,0.39447e+03_rb,0.39603e+03_rb,0.39737e+03_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.39039e+03_rb,0.39243e+03_rb,0.39424e+03_rb,0.39583e+03_rb,0.39720e+03_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.38986e+03_rb,0.39196e+03_rb,0.39382e+03_rb,0.39547e+03_rb,0.39689e+03_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.38929e+03_rb,0.39144e+03_rb,0.39337e+03_rb,0.39507e+03_rb,0.39655e+03_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.38871e+03_rb,0.39092e+03_rb,0.39290e+03_rb,0.39466e+03_rb,0.39619e+03_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.38797e+03_rb,0.39025e+03_rb,0.39230e+03_rb,0.39413e+03_rb,0.39574e+03_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.38715e+03_rb,0.38951e+03_rb,0.39164e+03_rb,0.39354e+03_rb,0.39522e+03_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.38631e+03_rb,0.38874e+03_rb,0.39094e+03_rb,0.39292e+03_rb,0.39468e+03_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.38538e+03_rb,0.38789e+03_rb,0.39018e+03_rb,0.39224e+03_rb,0.39407e+03_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.38431e+03_rb,0.38691e+03_rb,0.38929e+03_rb,0.39144e+03_rb,0.39336e+03_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.38320e+03_rb,0.38589e+03_rb,0.38836e+03_rb,0.39060e+03_rb,0.39262e+03_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.38206e+03_rb,0.38484e+03_rb,0.38739e+03_rb,0.38972e+03_rb,0.39183e+03_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.38095e+03_rb,0.38382e+03_rb,0.38646e+03_rb,0.38887e+03_rb,0.39106e+03_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.37985e+03_rb,0.38279e+03_rb,0.38552e+03_rb,0.38802e+03_rb,0.39029e+03_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.37873e+03_rb,0.38175e+03_rb,0.38455e+03_rb,0.38713e+03_rb,0.38949e+03_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.37762e+03_rb,0.38067e+03_rb,0.38355e+03_rb,0.38621e+03_rb,0.38865e+03_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.37661e+03_rb,0.37965e+03_rb,0.38261e+03_rb,0.38535e+03_rb,0.38786e+03_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.37559e+03_rb,0.37867e+03_rb,0.38169e+03_rb,0.38450e+03_rb,0.38708e+03_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.37459e+03_rb,0.37768e+03_rb,0.38074e+03_rb,0.38362e+03_rb,0.38628e+03_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.37353e+03_rb,0.37673e+03_rb,0.37977e+03_rb,0.38272e+03_rb,0.38545e+03_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.37251e+03_rb,0.37577e+03_rb,0.37885e+03_rb,0.38185e+03_rb,0.38465e+03_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.37212e+03_rb,0.37539e+03_rb,0.37847e+03_rb,0.38150e+03_rb,0.38432e+03_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.62586e+03_rb,0.62628e+03_rb,0.62699e+03_rb,0.62797e+03_rb,0.62921e+03_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.62589e+03_rb,0.62634e+03_rb,0.62708e+03_rb,0.62809e+03_rb,0.62935e+03_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.62593e+03_rb,0.62640e+03_rb,0.62717e+03_rb,0.62821e+03_rb,0.62950e+03_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.62597e+03_rb,0.62647e+03_rb,0.62727e+03_rb,0.62833e+03_rb,0.62965e+03_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.62601e+03_rb,0.62654e+03_rb,0.62737e+03_rb,0.62846e+03_rb,0.62980e+03_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.62605e+03_rb,0.62661e+03_rb,0.62746e+03_rb,0.62858e+03_rb,0.62995e+03_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.62610e+03_rb,0.62670e+03_rb,0.62758e+03_rb,0.62873e+03_rb,0.63012e+03_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.62615e+03_rb,0.62679e+03_rb,0.62770e+03_rb,0.62888e+03_rb,0.63031e+03_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.62625e+03_rb,0.62694e+03_rb,0.62790e+03_rb,0.62913e+03_rb,0.63060e+03_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.62636e+03_rb,0.62710e+03_rb,0.62812e+03_rb,0.62939e+03_rb,0.63091e+03_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.62648e+03_rb,0.62729e+03_rb,0.62835e+03_rb,0.62968e+03_rb,0.63125e+03_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.62663e+03_rb,0.62749e+03_rb,0.62861e+03_rb,0.62999e+03_rb,0.63162e+03_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.62681e+03_rb,0.62773e+03_rb,0.62891e+03_rb,0.63035e+03_rb,0.63203e+03_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.62700e+03_rb,0.62799e+03_rb,0.62923e+03_rb,0.63072e+03_rb,0.63247e+03_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.62721e+03_rb,0.62826e+03_rb,0.62956e+03_rb,0.63112e+03_rb,0.63292e+03_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.62745e+03_rb,0.62856e+03_rb,0.62993e+03_rb,0.63154e+03_rb,0.63341e+03_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.62770e+03_rb,0.62888e+03_rb,0.63031e+03_rb,0.63198e+03_rb,0.63392e+03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.62798e+03_rb,0.62922e+03_rb,0.63071e+03_rb,0.63245e+03_rb,0.63446e+03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.62828e+03_rb,0.62958e+03_rb,0.63114e+03_rb,0.63295e+03_rb,0.63503e+03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.62860e+03_rb,0.62997e+03_rb,0.63159e+03_rb,0.63347e+03_rb,0.63562e+03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.62889e+03_rb,0.63031e+03_rb,0.63199e+03_rb,0.63393e+03_rb,0.63614e+03_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.62906e+03_rb,0.63052e+03_rb,0.63223e+03_rb,0.63421e+03_rb,0.63644e+03_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.62909e+03_rb,0.63055e+03_rb,0.63227e+03_rb,0.63425e+03_rb,0.63649e+03_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.62891e+03_rb,0.63035e+03_rb,0.63203e+03_rb,0.63397e+03_rb,0.63619e+03_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.62873e+03_rb,0.63013e+03_rb,0.63178e+03_rb,0.63369e+03_rb,0.63586e+03_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.62856e+03_rb,0.62992e+03_rb,0.63154e+03_rb,0.63341e+03_rb,0.63555e+03_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.62827e+03_rb,0.62957e+03_rb,0.63113e+03_rb,0.63293e+03_rb,0.63501e+03_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.62798e+03_rb,0.62922e+03_rb,0.63071e+03_rb,0.63245e+03_rb,0.63445e+03_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.62770e+03_rb,0.62887e+03_rb,0.63030e+03_rb,0.63198e+03_rb,0.63391e+03_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.62739e+03_rb,0.62848e+03_rb,0.62983e+03_rb,0.63143e+03_rb,0.63328e+03_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.62708e+03_rb,0.62808e+03_rb,0.62935e+03_rb,0.63086e+03_rb,0.63263e+03_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.62679e+03_rb,0.62771e+03_rb,0.62889e+03_rb,0.63032e+03_rb,0.63200e+03_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.62653e+03_rb,0.62735e+03_rb,0.62844e+03_rb,0.62978e+03_rb,0.63137e+03_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.62629e+03_rb,0.62699e+03_rb,0.62797e+03_rb,0.62921e+03_rb,0.63070e+03_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.62608e+03_rb,0.62667e+03_rb,0.62755e+03_rb,0.62868e+03_rb,0.63007e+03_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.62592e+03_rb,0.62640e+03_rb,0.62716e+03_rb,0.62820e+03_rb,0.62948e+03_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.62580e+03_rb,0.62619e+03_rb,0.62684e+03_rb,0.62778e+03_rb,0.62897e+03_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.62580e+03_rb,0.62602e+03_rb,0.62657e+03_rb,0.62741e+03_rb,0.62850e+03_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.62578e+03_rb,0.62589e+03_rb,0.62633e+03_rb,0.62707e+03_rb,0.62807e+03_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.62574e+03_rb,0.62578e+03_rb,0.62614e+03_rb,0.62677e+03_rb,0.62768e+03_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.62576e+03_rb,0.62580e+03_rb,0.62600e+03_rb,0.62652e+03_rb,0.62734e+03_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.62585e+03_rb,0.62578e+03_rb,0.62588e+03_rb,0.62632e+03_rb,0.62705e+03_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.62587e+03_rb,0.62576e+03_rb,0.62579e+03_rb,0.62615e+03_rb,0.62678e+03_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.62591e+03_rb,0.62574e+03_rb,0.62580e+03_rb,0.62601e+03_rb,0.62655e+03_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.62591e+03_rb,0.62583e+03_rb,0.62578e+03_rb,0.62590e+03_rb,0.62636e+03_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.62590e+03_rb,0.62586e+03_rb,0.62578e+03_rb,0.62586e+03_rb,0.62628e+03_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81935e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.81826e+03_rb,0.81882e+03_rb,0.81939e+03_rb,0.82006e+03_rb,0.82081e+03_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.81831e+03_rb,0.81888e+03_rb,0.81946e+03_rb,0.82012e+03_rb,0.82089e+03_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.81836e+03_rb,0.81895e+03_rb,0.81952e+03_rb,0.82021e+03_rb,0.82098e+03_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.81842e+03_rb,0.81901e+03_rb,0.81959e+03_rb,0.82028e+03_rb,0.82106e+03_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.81847e+03_rb,0.81907e+03_rb,0.81965e+03_rb,0.82036e+03_rb,0.82116e+03_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.81853e+03_rb,0.81913e+03_rb,0.81972e+03_rb,0.82043e+03_rb,0.82123e+03_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.81860e+03_rb,0.81919e+03_rb,0.81980e+03_rb,0.82052e+03_rb,0.82133e+03_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.81868e+03_rb,0.81925e+03_rb,0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.81879e+03_rb,0.81936e+03_rb,0.82001e+03_rb,0.82076e+03_rb,0.82160e+03_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.81889e+03_rb,0.81947e+03_rb,0.82015e+03_rb,0.82091e+03_rb,0.82177e+03_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.81902e+03_rb,0.81960e+03_rb,0.82030e+03_rb,0.82108e+03_rb,0.82195e+03_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.81914e+03_rb,0.81974e+03_rb,0.82046e+03_rb,0.82126e+03_rb,0.82214e+03_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.81927e+03_rb,0.81990e+03_rb,0.82063e+03_rb,0.82145e+03_rb,0.82236e+03_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.81941e+03_rb,0.82006e+03_rb,0.82082e+03_rb,0.82166e+03_rb,0.82258e+03_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.81957e+03_rb,0.82024e+03_rb,0.82101e+03_rb,0.82188e+03_rb,0.82281e+03_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.81971e+03_rb,0.82042e+03_rb,0.82122e+03_rb,0.82210e+03_rb,0.82305e+03_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb,0.82233e+03_rb,0.82330e+03_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.82006e+03_rb,0.82081e+03_rb,0.82166e+03_rb,0.82258e+03_rb,0.82355e+03_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.82025e+03_rb,0.82103e+03_rb,0.82189e+03_rb,0.82283e+03_rb,0.82380e+03_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.82044e+03_rb,0.82124e+03_rb,0.82213e+03_rb,0.82308e+03_rb,0.82408e+03_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.82062e+03_rb,0.82144e+03_rb,0.82234e+03_rb,0.82330e+03_rb,0.82432e+03_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.82072e+03_rb,0.82155e+03_rb,0.82246e+03_rb,0.82342e+03_rb,0.82446e+03_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.82074e+03_rb,0.82157e+03_rb,0.82248e+03_rb,0.82345e+03_rb,0.82448e+03_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.82063e+03_rb,0.82146e+03_rb,0.82236e+03_rb,0.82332e+03_rb,0.82434e+03_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.82053e+03_rb,0.82134e+03_rb,0.82223e+03_rb,0.82319e+03_rb,0.82419e+03_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.82042e+03_rb,0.82122e+03_rb,0.82210e+03_rb,0.82305e+03_rb,0.82405e+03_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.82024e+03_rb,0.82102e+03_rb,0.82188e+03_rb,0.82282e+03_rb,0.82380e+03_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.82006e+03_rb,0.82081e+03_rb,0.82165e+03_rb,0.82257e+03_rb,0.82354e+03_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb,0.82233e+03_rb,0.82329e+03_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.81967e+03_rb,0.82037e+03_rb,0.82117e+03_rb,0.82204e+03_rb,0.82299e+03_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.81946e+03_rb,0.82013e+03_rb,0.82089e+03_rb,0.82174e+03_rb,0.82267e+03_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.81926e+03_rb,0.81989e+03_rb,0.82062e+03_rb,0.82144e+03_rb,0.82234e+03_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.81907e+03_rb,0.81965e+03_rb,0.82034e+03_rb,0.82114e+03_rb,0.82201e+03_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.81882e+03_rb,0.81939e+03_rb,0.82006e+03_rb,0.82081e+03_rb,0.82165e+03_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.81858e+03_rb,0.81917e+03_rb,0.81978e+03_rb,0.82050e+03_rb,0.82130e+03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.81836e+03_rb,0.81894e+03_rb,0.81953e+03_rb,0.82019e+03_rb,0.82097e+03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.81817e+03_rb,0.81871e+03_rb,0.81929e+03_rb,0.81993e+03_rb,0.82067e+03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.81790e+03_rb,0.81850e+03_rb,0.81910e+03_rb,0.81967e+03_rb,0.82039e+03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.81779e+03_rb,0.81830e+03_rb,0.81888e+03_rb,0.81945e+03_rb,0.82012e+03_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.81766e+03_rb,0.81812e+03_rb,0.81866e+03_rb,0.81924e+03_rb,0.81986e+03_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.81744e+03_rb,0.81785e+03_rb,0.81846e+03_rb,0.81906e+03_rb,0.81964e+03_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.81733e+03_rb,0.81777e+03_rb,0.81829e+03_rb,0.81886e+03_rb,0.81944e+03_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.81741e+03_rb,0.81767e+03_rb,0.81813e+03_rb,0.81867e+03_rb,0.81925e+03_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.81785e+03_rb,0.81749e+03_rb,0.81788e+03_rb,0.81848e+03_rb,0.81908e+03_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.81817e+03_rb,0.81731e+03_rb,0.81779e+03_rb,0.81832e+03_rb,0.81889e+03_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.81824e+03_rb,0.81736e+03_rb,0.81776e+03_rb,0.81826e+03_rb,0.81883e+03_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.94133e+03_rb,0.94438e+03_rb,0.94687e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.94163e+03_rb,0.94463e+03_rb,0.94708e+03_rb,0.94898e+03_rb,0.95031e+03_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.94195e+03_rb,0.94490e+03_rb,0.94731e+03_rb,0.94914e+03_rb,0.95042e+03_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.94229e+03_rb,0.94518e+03_rb,0.94753e+03_rb,0.94930e+03_rb,0.95052e+03_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.94262e+03_rb,0.94544e+03_rb,0.94774e+03_rb,0.94946e+03_rb,0.95061e+03_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.94293e+03_rb,0.94570e+03_rb,0.94795e+03_rb,0.94960e+03_rb,0.95069e+03_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.94323e+03_rb,0.94595e+03_rb,0.94814e+03_rb,0.94974e+03_rb,0.95078e+03_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.94357e+03_rb,0.94624e+03_rb,0.94835e+03_rb,0.94989e+03_rb,0.95087e+03_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.94393e+03_rb,0.94654e+03_rb,0.94857e+03_rb,0.95003e+03_rb,0.95096e+03_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.94445e+03_rb,0.94695e+03_rb,0.94888e+03_rb,0.95025e+03_rb,0.95105e+03_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.94499e+03_rb,0.94737e+03_rb,0.94919e+03_rb,0.95045e+03_rb,0.95113e+03_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.94549e+03_rb,0.94778e+03_rb,0.94948e+03_rb,0.95063e+03_rb,0.95120e+03_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.94602e+03_rb,0.94819e+03_rb,0.94978e+03_rb,0.95082e+03_rb,0.95125e+03_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.94658e+03_rb,0.94861e+03_rb,0.95006e+03_rb,0.95096e+03_rb,0.95127e+03_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.94710e+03_rb,0.94900e+03_rb,0.95033e+03_rb,0.95109e+03_rb,0.95126e+03_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.94759e+03_rb,0.94937e+03_rb,0.95056e+03_rb,0.95118e+03_rb,0.95123e+03_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.94811e+03_rb,0.94973e+03_rb,0.95077e+03_rb,0.95124e+03_rb,0.95116e+03_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.94856e+03_rb,0.95003e+03_rb,0.95095e+03_rb,0.95127e+03_rb,0.95105e+03_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.94901e+03_rb,0.95032e+03_rb,0.95108e+03_rb,0.95127e+03_rb,0.95090e+03_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.94939e+03_rb,0.95057e+03_rb,0.95118e+03_rb,0.95121e+03_rb,0.95071e+03_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.94975e+03_rb,0.95079e+03_rb,0.95125e+03_rb,0.95115e+03_rb,0.95050e+03_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.95004e+03_rb,0.95095e+03_rb,0.95128e+03_rb,0.95105e+03_rb,0.95030e+03_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.95020e+03_rb,0.95102e+03_rb,0.95127e+03_rb,0.95098e+03_rb,0.95016e+03_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.95021e+03_rb,0.95103e+03_rb,0.95127e+03_rb,0.95096e+03_rb,0.95023e+03_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.95006e+03_rb,0.95096e+03_rb,0.95127e+03_rb,0.95104e+03_rb,0.95027e+03_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.94990e+03_rb,0.95087e+03_rb,0.95126e+03_rb,0.95110e+03_rb,0.95040e+03_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.94972e+03_rb,0.95077e+03_rb,0.95124e+03_rb,0.95117e+03_rb,0.95053e+03_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.94939e+03_rb,0.95057e+03_rb,0.95118e+03_rb,0.95123e+03_rb,0.95072e+03_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.94899e+03_rb,0.95032e+03_rb,0.95108e+03_rb,0.95127e+03_rb,0.95090e+03_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.94856e+03_rb,0.95004e+03_rb,0.95094e+03_rb,0.95127e+03_rb,0.95105e+03_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.94799e+03_rb,0.94963e+03_rb,0.95073e+03_rb,0.95123e+03_rb,0.95118e+03_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.94729e+03_rb,0.94914e+03_rb,0.95041e+03_rb,0.95112e+03_rb,0.95126e+03_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.94655e+03_rb,0.94858e+03_rb,0.95004e+03_rb,0.95095e+03_rb,0.95127e+03_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.94568e+03_rb,0.94792e+03_rb,0.94958e+03_rb,0.95070e+03_rb,0.95122e+03_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.94463e+03_rb,0.94708e+03_rb,0.94898e+03_rb,0.95031e+03_rb,0.95108e+03_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.94348e+03_rb,0.94616e+03_rb,0.94829e+03_rb,0.94984e+03_rb,0.95084e+03_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.94226e+03_rb,0.94515e+03_rb,0.94748e+03_rb,0.94928e+03_rb,0.95051e+03_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.94103e+03_rb,0.94413e+03_rb,0.94669e+03_rb,0.94868e+03_rb,0.95011e+03_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.93978e+03_rb,0.94307e+03_rb,0.94580e+03_rb,0.94802e+03_rb,0.94965e+03_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.93828e+03_rb,0.94192e+03_rb,0.94488e+03_rb,0.94728e+03_rb,0.94912e+03_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.93678e+03_rb,0.94072e+03_rb,0.94388e+03_rb,0.94646e+03_rb,0.94851e+03_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.93537e+03_rb,0.93955e+03_rb,0.94287e+03_rb,0.94565e+03_rb,0.94789e+03_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.93380e+03_rb,0.93820e+03_rb,0.94186e+03_rb,0.94483e+03_rb,0.94722e+03_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.93205e+03_rb,0.93688e+03_rb,0.94080e+03_rb,0.94394e+03_rb,0.94652e+03_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.92997e+03_rb,0.93554e+03_rb,0.93969e+03_rb,0.94299e+03_rb,0.94574e+03_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.92808e+03_rb,0.93414e+03_rb,0.93844e+03_rb,0.94204e+03_rb,0.94498e+03_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.92793e+03_rb,0.93341e+03_rb,0.93792e+03_rb,0.94165e+03_rb,0.94465e+03_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.98036e+03_rb,0.98526e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.98067e+03_rb,0.98568e+03_rb,0.99005e+03_rb,0.99301e+03_rb,0.99477e+03_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.98125e+03_rb,0.98614e+03_rb,0.99040e+03_rb,0.99324e+03_rb,0.99485e+03_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.98185e+03_rb,0.98662e+03_rb,0.99076e+03_rb,0.99348e+03_rb,0.99493e+03_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.98242e+03_rb,0.98721e+03_rb,0.99109e+03_rb,0.99369e+03_rb,0.99498e+03_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.98296e+03_rb,0.98755e+03_rb,0.99141e+03_rb,0.99390e+03_rb,0.99502e+03_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.98350e+03_rb,0.98800e+03_rb,0.99172e+03_rb,0.99408e+03_rb,0.99505e+03_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.98411e+03_rb,0.98852e+03_rb,0.99205e+03_rb,0.99428e+03_rb,0.99507e+03_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.98464e+03_rb,0.98894e+03_rb,0.99238e+03_rb,0.99447e+03_rb,0.99496e+03_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.98547e+03_rb,0.98983e+03_rb,0.99286e+03_rb,0.99470e+03_rb,0.99509e+03_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.98617e+03_rb,0.99062e+03_rb,0.99331e+03_rb,0.99487e+03_rb,0.99508e+03_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.98718e+03_rb,0.99115e+03_rb,0.99373e+03_rb,0.99499e+03_rb,0.99503e+03_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.98813e+03_rb,0.99180e+03_rb,0.99413e+03_rb,0.99494e+03_rb,0.99492e+03_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.98918e+03_rb,0.99244e+03_rb,0.99450e+03_rb,0.99508e+03_rb,0.99475e+03_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.99010e+03_rb,0.99304e+03_rb,0.99478e+03_rb,0.99509e+03_rb,0.99499e+03_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.99090e+03_rb,0.99357e+03_rb,0.99495e+03_rb,0.99505e+03_rb,0.99433e+03_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.99167e+03_rb,0.99393e+03_rb,0.99505e+03_rb,0.99495e+03_rb,0.99385e+03_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.99249e+03_rb,0.99447e+03_rb,0.99508e+03_rb,0.99477e+03_rb,0.99348e+03_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.99290e+03_rb,0.99477e+03_rb,0.99509e+03_rb,0.99452e+03_rb,0.99326e+03_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.99360e+03_rb,0.99496e+03_rb,0.99505e+03_rb,0.99419e+03_rb,0.99287e+03_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.99410e+03_rb,0.99506e+03_rb,0.99493e+03_rb,0.99381e+03_rb,0.99210e+03_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.99447e+03_rb,0.99508e+03_rb,0.99465e+03_rb,0.99347e+03_rb,0.99121e+03_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.99453e+03_rb,0.99509e+03_rb,0.99465e+03_rb,0.99330e+03_rb,0.99083e+03_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.99467e+03_rb,0.99509e+03_rb,0.99463e+03_rb,0.99327e+03_rb,0.98992e+03_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.99451e+03_rb,0.99508e+03_rb,0.99475e+03_rb,0.99344e+03_rb,0.99124e+03_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.99429e+03_rb,0.99507e+03_rb,0.99486e+03_rb,0.99365e+03_rb,0.99174e+03_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.99405e+03_rb,0.99505e+03_rb,0.99495e+03_rb,0.99373e+03_rb,0.99219e+03_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.99347e+03_rb,0.99496e+03_rb,0.99505e+03_rb,0.99420e+03_rb,0.99289e+03_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.99302e+03_rb,0.99477e+03_rb,0.99509e+03_rb,0.99452e+03_rb,0.99315e+03_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.99237e+03_rb,0.99435e+03_rb,0.99508e+03_rb,0.99477e+03_rb,0.99348e+03_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.99148e+03_rb,0.99394e+03_rb,0.99491e+03_rb,0.99498e+03_rb,0.99395e+03_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.99040e+03_rb,0.99324e+03_rb,0.99485e+03_rb,0.99508e+03_rb,0.99453e+03_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.98910e+03_rb,0.99241e+03_rb,0.99449e+03_rb,0.99508e+03_rb,0.99476e+03_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.98735e+03_rb,0.99138e+03_rb,0.99388e+03_rb,0.99490e+03_rb,0.99500e+03_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.98565e+03_rb,0.99006e+03_rb,0.99301e+03_rb,0.99477e+03_rb,0.99509e+03_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.98383e+03_rb,0.98834e+03_rb,0.99196e+03_rb,0.99423e+03_rb,0.99507e+03_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.98174e+03_rb,0.98651e+03_rb,0.99073e+03_rb,0.99346e+03_rb,0.99492e+03_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.97955e+03_rb,0.98480e+03_rb,0.98924e+03_rb,0.99257e+03_rb,0.99470e+03_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.97755e+03_rb,0.98298e+03_rb,0.98767e+03_rb,0.99154e+03_rb,0.99399e+03_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.97554e+03_rb,0.98111e+03_rb,0.98597e+03_rb,0.99036e+03_rb,0.99323e+03_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.97320e+03_rb,0.97892e+03_rb,0.98413e+03_rb,0.98888e+03_rb,0.99232e+03_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.97086e+03_rb,0.97720e+03_rb,0.98263e+03_rb,0.98733e+03_rb,0.99135e+03_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.96881e+03_rb,0.97539e+03_rb,0.98096e+03_rb,0.98583e+03_rb,0.99029e+03_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.96735e+03_rb,0.97336e+03_rb,0.97906e+03_rb,0.98435e+03_rb,0.98900e+03_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.96407e+03_rb,0.97115e+03_rb,0.97740e+03_rb,0.98282e+03_rb,0.98752e+03_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.96154e+03_rb,0.96893e+03_rb,0.97574e+03_rb,0.98129e+03_rb,0.98611e+03_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.95571e+03_rb,0.96861e+03_rb,0.97503e+03_rb,0.98063e+03_rb,0.98557e+03_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.98771e+03_rb,0.99296e+03_rb,0.99655e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.98850e+03_rb,0.99335e+03_rb,0.99679e+03_rb,0.99871e+03_rb,0.99939e+03_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.98905e+03_rb,0.99377e+03_rb,0.99705e+03_rb,0.99882e+03_rb,0.99942e+03_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.98962e+03_rb,0.99419e+03_rb,0.99730e+03_rb,0.99893e+03_rb,0.99945e+03_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.99016e+03_rb,0.99444e+03_rb,0.99754e+03_rb,0.99903e+03_rb,0.99947e+03_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.99067e+03_rb,0.99497e+03_rb,0.99775e+03_rb,0.99911e+03_rb,0.99948e+03_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.99117e+03_rb,0.99532e+03_rb,0.99795e+03_rb,0.99918e+03_rb,0.99949e+03_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.99173e+03_rb,0.99572e+03_rb,0.99816e+03_rb,0.99924e+03_rb,0.99949e+03_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.99228e+03_rb,0.99610e+03_rb,0.99835e+03_rb,0.99929e+03_rb,0.99946e+03_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.99309e+03_rb,0.99663e+03_rb,0.99862e+03_rb,0.99936e+03_rb,0.99953e+03_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.99388e+03_rb,0.99698e+03_rb,0.99900e+03_rb,0.99942e+03_rb,0.99925e+03_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.99466e+03_rb,0.99758e+03_rb,0.99904e+03_rb,0.99947e+03_rb,0.99905e+03_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.99542e+03_rb,0.99800e+03_rb,0.99919e+03_rb,0.99963e+03_rb,0.99878e+03_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.99618e+03_rb,0.99839e+03_rb,0.99930e+03_rb,0.99945e+03_rb,0.99847e+03_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.99683e+03_rb,0.99872e+03_rb,0.99939e+03_rb,0.99934e+03_rb,0.99751e+03_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.99741e+03_rb,0.99897e+03_rb,0.99946e+03_rb,0.99913e+03_rb,0.99749e+03_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.99792e+03_rb,0.99917e+03_rb,0.99949e+03_rb,0.99884e+03_rb,0.99707e+03_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.99821e+03_rb,0.99929e+03_rb,0.99946e+03_rb,0.99850e+03_rb,0.99637e+03_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.99871e+03_rb,0.99938e+03_rb,0.99949e+03_rb,0.99810e+03_rb,0.99532e+03_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.99899e+03_rb,0.99961e+03_rb,0.99926e+03_rb,0.99761e+03_rb,0.99460e+03_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.99918e+03_rb,0.99949e+03_rb,0.99880e+03_rb,0.99700e+03_rb,0.99413e+03_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.99929e+03_rb,0.99946e+03_rb,0.99850e+03_rb,0.99635e+03_rb,0.99329e+03_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.99934e+03_rb,0.99941e+03_rb,0.99830e+03_rb,0.99590e+03_rb,0.99292e+03_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.99935e+03_rb,0.99940e+03_rb,0.99826e+03_rb,0.99583e+03_rb,0.99287e+03_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.99930e+03_rb,0.99946e+03_rb,0.99846e+03_rb,0.99628e+03_rb,0.99327e+03_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.99924e+03_rb,0.99949e+03_rb,0.99866e+03_rb,0.99670e+03_rb,0.99350e+03_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.99917e+03_rb,0.99949e+03_rb,0.99899e+03_rb,0.99707e+03_rb,0.99451e+03_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.99898e+03_rb,0.99946e+03_rb,0.99913e+03_rb,0.99777e+03_rb,0.99505e+03_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.99871e+03_rb,0.99939e+03_rb,0.99935e+03_rb,0.99810e+03_rb,0.99546e+03_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.99835e+03_rb,0.99929e+03_rb,0.99947e+03_rb,0.99851e+03_rb,0.99637e+03_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.99780e+03_rb,0.99913e+03_rb,0.99949e+03_rb,0.99893e+03_rb,0.99722e+03_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.99704e+03_rb,0.99882e+03_rb,0.99942e+03_rb,0.99928e+03_rb,0.99778e+03_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.99613e+03_rb,0.99837e+03_rb,0.99930e+03_rb,0.99947e+03_rb,0.99849e+03_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.99492e+03_rb,0.99787e+03_rb,0.99911e+03_rb,0.99949e+03_rb,0.99897e+03_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.99335e+03_rb,0.99679e+03_rb,0.99871e+03_rb,0.99939e+03_rb,0.99936e+03_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.99156e+03_rb,0.99560e+03_rb,0.99810e+03_rb,0.99923e+03_rb,0.99951e+03_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.98955e+03_rb,0.99414e+03_rb,0.99727e+03_rb,0.99894e+03_rb,0.99946e+03_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.98749e+03_rb,0.99256e+03_rb,0.99630e+03_rb,0.99847e+03_rb,0.99918e+03_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.98496e+03_rb,0.99085e+03_rb,0.99509e+03_rb,0.99784e+03_rb,0.99916e+03_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.98304e+03_rb,0.98897e+03_rb,0.99370e+03_rb,0.99701e+03_rb,0.99883e+03_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.98104e+03_rb,0.98693e+03_rb,0.99213e+03_rb,0.99600e+03_rb,0.99833e+03_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.97906e+03_rb,0.98440e+03_rb,0.99053e+03_rb,0.99485e+03_rb,0.99771e+03_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.97789e+03_rb,0.98286e+03_rb,0.98886e+03_rb,0.99361e+03_rb,0.99696e+03_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.97514e+03_rb,0.98117e+03_rb,0.98708e+03_rb,0.99224e+03_rb,0.99622e+03_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.97242e+03_rb,0.97945e+03_rb,0.98472e+03_rb,0.99072e+03_rb,0.99500e+03_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.96969e+03_rb,0.97814e+03_rb,0.98316e+03_rb,0.98916e+03_rb,0.99384e+03_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.96859e+03_rb,0.97725e+03_rb,0.98261e+03_rb,0.98851e+03_rb,0.99335e+03_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.99768e+03_rb,0.99984e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10029e+04_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.99795e+03_rb,0.99992e+03_rb,0.10011e+04_rb,0.10025e+04_rb,0.10029e+04_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.99880e+03_rb,0.99996e+03_rb,0.10013e+04_rb,0.10026e+04_rb,0.10031e+04_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.99852e+03_rb,0.10003e+04_rb,0.10015e+04_rb,0.10028e+04_rb,0.10029e+04_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.99876e+03_rb,0.10000e+04_rb,0.10016e+04_rb,0.10027e+04_rb,0.10029e+04_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.99898e+03_rb,0.10001e+04_rb,0.10018e+04_rb,0.10028e+04_rb,0.10028e+04_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.99918e+03_rb,0.10003e+04_rb,0.10021e+04_rb,0.10028e+04_rb,0.10028e+04_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.99940e+03_rb,0.10005e+04_rb,0.10026e+04_rb,0.10029e+04_rb,0.10031e+04_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.99959e+03_rb,0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.99984e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10030e+04_rb,0.10023e+04_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.99996e+03_rb,0.10013e+04_rb,0.10024e+04_rb,0.10029e+04_rb,0.10025e+04_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.10000e+04_rb,0.10016e+04_rb,0.10029e+04_rb,0.10029e+04_rb,0.10023e+04_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.10003e+04_rb,0.10023e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10019e+04_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.10012e+04_rb,0.10025e+04_rb,0.10031e+04_rb,0.10024e+04_rb,0.10010e+04_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.10015e+04_rb,0.10027e+04_rb,0.10029e+04_rb,0.10022e+04_rb,0.10005e+04_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.10019e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10019e+04_rb,0.99992e+03_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10017e+04_rb,0.99965e+03_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.10025e+04_rb,0.10030e+04_rb,0.10022e+04_rb,0.10011e+04_rb,0.99843e+03_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.10027e+04_rb,0.10029e+04_rb,0.10020e+04_rb,0.10007e+04_rb,0.99748e+03_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.10029e+04_rb,0.10028e+04_rb,0.10021e+04_rb,0.10000e+04_rb,0.99658e+03_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.10031e+04_rb,0.10026e+04_rb,0.10017e+04_rb,0.99945e+03_rb,0.99563e+03_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.10030e+04_rb,0.10025e+04_rb,0.10031e+04_rb,0.99888e+03_rb,0.99496e+03_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.10030e+04_rb,0.10025e+04_rb,0.10020e+04_rb,0.99880e+03_rb,0.99482e+03_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb,0.99939e+03_rb,0.99547e+03_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.10029e+04_rb,0.10027e+04_rb,0.10017e+04_rb,0.99958e+03_rb,0.99634e+03_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.10028e+04_rb,0.10028e+04_rb,0.10017e+04_rb,0.99993e+03_rb,0.99613e+03_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.10027e+04_rb,0.10029e+04_rb,0.10022e+04_rb,0.10003e+04_rb,0.99696e+03_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.10027e+04_rb,0.10029e+04_rb,0.10024e+04_rb,0.10013e+04_rb,0.99857e+03_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.10022e+04_rb,0.10029e+04_rb,0.10028e+04_rb,0.10021e+04_rb,0.99929e+03_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.10018e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10020e+04_rb,0.10001e+04_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.10013e+04_rb,0.10026e+04_rb,0.10029e+04_rb,0.10023e+04_rb,0.10016e+04_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.10014e+04_rb,0.10016e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10020e+04_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.99993e+03_rb,0.10012e+04_rb,0.10025e+04_rb,0.10029e+04_rb,0.10024e+04_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.99937e+03_rb,0.10005e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10027e+04_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.99853e+03_rb,0.10002e+04_rb,0.10015e+04_rb,0.10026e+04_rb,0.10029e+04_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.99741e+03_rb,0.99993e+03_rb,0.10008e+04_rb,0.10023e+04_rb,0.10029e+04_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.99665e+03_rb,0.99912e+03_rb,0.10002e+04_rb,0.10018e+04_rb,0.10028e+04_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.99385e+03_rb,0.99826e+03_rb,0.10000e+04_rb,0.10013e+04_rb,0.10025e+04_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.99099e+03_rb,0.99714e+03_rb,0.99965e+03_rb,0.10007e+04_rb,0.10022e+04_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.98826e+03_rb,0.99612e+03_rb,0.99903e+03_rb,0.10002e+04_rb,0.10018e+04_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.98397e+03_rb,0.99379e+03_rb,0.99822e+03_rb,0.10000e+04_rb,0.10013e+04_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.98006e+03_rb,0.99120e+03_rb,0.99722e+03_rb,0.99969e+03_rb,0.10006e+04_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.97631e+03_rb,0.98840e+03_rb,0.99624e+03_rb,0.99911e+03_rb,0.10002e+04_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.97279e+03_rb,0.98508e+03_rb,0.99422e+03_rb,0.99838e+03_rb,0.10001e+04_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.97171e+03_rb,0.98327e+03_rb,0.99315e+03_rb,0.99818e+03_rb,0.99997e+03_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.99623e+03_rb,0.99978e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10054e+04_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.99674e+03_rb,0.10002e+04_rb,0.10034e+04_rb,0.10050e+04_rb,0.10053e+04_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.99652e+03_rb,0.10007e+04_rb,0.10036e+04_rb,0.10051e+04_rb,0.10051e+04_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.99785e+03_rb,0.10007e+04_rb,0.10039e+04_rb,0.10049e+04_rb,0.10053e+04_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.99816e+03_rb,0.10017e+04_rb,0.10043e+04_rb,0.10052e+04_rb,0.10052e+04_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.99792e+03_rb,0.10021e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10051e+04_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.99826e+03_rb,0.10023e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10051e+04_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.99869e+03_rb,0.10028e+04_rb,0.10038e+04_rb,0.10053e+04_rb,0.10044e+04_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.99914e+03_rb,0.10028e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.99989e+03_rb,0.10035e+04_rb,0.10050e+04_rb,0.10053e+04_rb,0.10046e+04_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.10011e+04_rb,0.10037e+04_rb,0.10051e+04_rb,0.10053e+04_rb,0.10041e+04_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.10018e+04_rb,0.10041e+04_rb,0.10050e+04_rb,0.10052e+04_rb,0.10037e+04_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.10026e+04_rb,0.10040e+04_rb,0.10056e+04_rb,0.10050e+04_rb,0.10036e+04_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.10031e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10050e+04_rb,0.10030e+04_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.10047e+04_rb,0.10050e+04_rb,0.10051e+04_rb,0.10045e+04_rb,0.10025e+04_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.10039e+04_rb,0.10052e+04_rb,0.10052e+04_rb,0.10041e+04_rb,0.10018e+04_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.10044e+04_rb,0.10053e+04_rb,0.10051e+04_rb,0.10037e+04_rb,0.10011e+04_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb,0.10029e+04_rb,0.99977e+03_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.10050e+04_rb,0.10053e+04_rb,0.10045e+04_rb,0.10025e+04_rb,0.99968e+03_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.10052e+04_rb,0.10050e+04_rb,0.10041e+04_rb,0.10015e+04_rb,0.99880e+03_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.10053e+04_rb,0.10050e+04_rb,0.10033e+04_rb,0.10008e+04_rb,0.99675e+03_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.10051e+04_rb,0.10048e+04_rb,0.10028e+04_rb,0.10000e+04_rb,0.99529e+03_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.10054e+04_rb,0.10047e+04_rb,0.10003e+04_rb,0.99992e+03_rb,0.99481e+03_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.10054e+04_rb,0.10046e+04_rb,0.10017e+04_rb,0.99987e+03_rb,0.99445e+03_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.10054e+04_rb,0.10048e+04_rb,0.10030e+04_rb,0.99995e+03_rb,0.99517e+03_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.10054e+04_rb,0.10049e+04_rb,0.10034e+04_rb,0.10006e+04_rb,0.99603e+03_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.10053e+04_rb,0.10051e+04_rb,0.10037e+04_rb,0.10011e+04_rb,0.99693e+03_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.10052e+04_rb,0.10052e+04_rb,0.10041e+04_rb,0.10018e+04_rb,0.99860e+03_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.10048e+04_rb,0.10053e+04_rb,0.10045e+04_rb,0.10023e+04_rb,0.99951e+03_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.10048e+04_rb,0.10054e+04_rb,0.10046e+04_rb,0.10024e+04_rb,0.10003e+04_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.10043e+04_rb,0.10053e+04_rb,0.10051e+04_rb,0.10038e+04_rb,0.10013e+04_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.10036e+04_rb,0.10051e+04_rb,0.10053e+04_rb,0.10044e+04_rb,0.10012e+04_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.10028e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb,0.10031e+04_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.10008e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10052e+04_rb,0.10038e+04_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.10002e+04_rb,0.10039e+04_rb,0.10050e+04_rb,0.10053e+04_rb,0.10045e+04_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.99859e+03_rb,0.10025e+04_rb,0.10043e+04_rb,0.10054e+04_rb,0.10050e+04_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.99776e+03_rb,0.10009e+04_rb,0.10041e+04_rb,0.10052e+04_rb,0.10053e+04_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.99565e+03_rb,0.99944e+03_rb,0.10034e+04_rb,0.10049e+04_rb,0.10054e+04_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.99271e+03_rb,0.99811e+03_rb,0.10022e+04_rb,0.10043e+04_rb,0.10053e+04_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.99056e+03_rb,0.99717e+03_rb,0.10006e+04_rb,0.10036e+04_rb,0.10051e+04_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.98830e+03_rb,0.99502e+03_rb,0.99909e+03_rb,0.10028e+04_rb,0.10048e+04_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.98610e+03_rb,0.99275e+03_rb,0.99821e+03_rb,0.10021e+04_rb,0.10042e+04_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.98386e+03_rb,0.99045e+03_rb,0.99729e+03_rb,0.10008e+04_rb,0.10038e+04_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.98150e+03_rb,0.98846e+03_rb,0.99517e+03_rb,0.99919e+03_rb,0.10028e+04_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.97902e+03_rb,0.98636e+03_rb,0.99303e+03_rb,0.99832e+03_rb,0.10022e+04_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.97656e+03_rb,0.98426e+03_rb,0.99079e+03_rb,0.99735e+03_rb,0.10008e+04_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.97503e+03_rb,0.98337e+03_rb,0.99004e+03_rb,0.99647e+03_rb,0.10002e+04_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.99596e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.99625e+03_rb,0.10024e+04_rb,0.10052e+04_rb,0.10068e+04_rb,0.10071e+04_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.99662e+03_rb,0.10025e+04_rb,0.10054e+04_rb,0.10069e+04_rb,0.10071e+04_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.99703e+03_rb,0.10026e+04_rb,0.10056e+04_rb,0.10070e+04_rb,0.10070e+04_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.99784e+03_rb,0.10032e+04_rb,0.10054e+04_rb,0.10071e+04_rb,0.10070e+04_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.99947e+03_rb,0.10032e+04_rb,0.10060e+04_rb,0.10071e+04_rb,0.10069e+04_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.10001e+04_rb,0.10036e+04_rb,0.10062e+04_rb,0.10071e+04_rb,0.10068e+04_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.10009e+04_rb,0.10037e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10067e+04_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.10015e+04_rb,0.10046e+04_rb,0.10065e+04_rb,0.10072e+04_rb,0.10065e+04_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.10023e+04_rb,0.10047e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10063e+04_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.10021e+04_rb,0.10055e+04_rb,0.10069e+04_rb,0.10071e+04_rb,0.10060e+04_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.10028e+04_rb,0.10059e+04_rb,0.10071e+04_rb,0.10069e+04_rb,0.10057e+04_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.10033e+04_rb,0.10062e+04_rb,0.10068e+04_rb,0.10068e+04_rb,0.10052e+04_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.10043e+04_rb,0.10066e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10047e+04_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.10033e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.10057e+04_rb,0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10036e+04_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.10062e+04_rb,0.10075e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10030e+04_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.10065e+04_rb,0.10072e+04_rb,0.10069e+04_rb,0.10048e+04_rb,0.10022e+04_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb,0.10014e+04_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10035e+04_rb,0.99925e+03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.10071e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10029e+04_rb,0.99808e+03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb,0.10021e+04_rb,0.99788e+03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.10072e+04_rb,0.10064e+04_rb,0.10045e+04_rb,0.10016e+04_rb,0.99700e+03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.10072e+04_rb,0.10063e+04_rb,0.10044e+04_rb,0.10015e+04_rb,0.99731e+03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.10072e+04_rb,0.10065e+04_rb,0.10047e+04_rb,0.10021e+04_rb,0.99778e+03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.10072e+04_rb,0.10067e+04_rb,0.10050e+04_rb,0.10026e+04_rb,0.99820e+03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.10071e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10030e+04_rb,0.99855e+03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10036e+04_rb,0.99965e+03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb,0.10010e+04_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.10065e+04_rb,0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb,0.10022e+04_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.10061e+04_rb,0.10071e+04_rb,0.10069e+04_rb,0.10055e+04_rb,0.10031e+04_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.10054e+04_rb,0.10069e+04_rb,0.10071e+04_rb,0.10061e+04_rb,0.10039e+04_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.10046e+04_rb,0.10066e+04_rb,0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.10023e+04_rb,0.10060e+04_rb,0.10075e+04_rb,0.10069e+04_rb,0.10055e+04_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.10024e+04_rb,0.10044e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.10006e+04_rb,0.10039e+04_rb,0.10063e+04_rb,0.10072e+04_rb,0.10067e+04_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.99705e+03_rb,0.10026e+04_rb,0.10052e+04_rb,0.10070e+04_rb,0.10070e+04_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.99574e+03_rb,0.10014e+04_rb,0.10040e+04_rb,0.10066e+04_rb,0.10072e+04_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.99447e+03_rb,0.99966e+03_rb,0.10033e+04_rb,0.10065e+04_rb,0.10071e+04_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.99299e+03_rb,0.99670e+03_rb,0.10025e+04_rb,0.10054e+04_rb,0.10069e+04_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.99138e+03_rb,0.99552e+03_rb,0.10013e+04_rb,0.10044e+04_rb,0.10065e+04_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.98979e+03_rb,0.99462e+03_rb,0.99874e+03_rb,0.10030e+04_rb,0.10060e+04_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.98814e+03_rb,0.99291e+03_rb,0.99630e+03_rb,0.10029e+04_rb,0.10050e+04_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.98639e+03_rb,0.99150e+03_rb,0.99562e+03_rb,0.10014e+04_rb,0.10045e+04_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.98454e+03_rb,0.98998e+03_rb,0.99438e+03_rb,0.99904e+03_rb,0.10032e+04_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.98268e+03_rb,0.98844e+03_rb,0.99315e+03_rb,0.99688e+03_rb,0.10025e+04_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.98190e+03_rb,0.98779e+03_rb,0.99262e+03_rb,0.99638e+03_rb,0.10024e+04_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.99739e+03_rb,0.10017e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.99781e+03_rb,0.10021e+04_rb,0.10065e+04_rb,0.10077e+04_rb,0.10090e+04_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.99827e+03_rb,0.10029e+04_rb,0.10067e+04_rb,0.10077e+04_rb,0.10079e+04_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.99875e+03_rb,0.10040e+04_rb,0.10068e+04_rb,0.10078e+04_rb,0.10089e+04_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.99816e+03_rb,0.10041e+04_rb,0.10080e+04_rb,0.10079e+04_rb,0.10078e+04_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.99861e+03_rb,0.10065e+04_rb,0.10071e+04_rb,0.10090e+04_rb,0.10078e+04_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.10001e+04_rb,0.10056e+04_rb,0.10072e+04_rb,0.10079e+04_rb,0.10077e+04_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.99952e+03_rb,0.10059e+04_rb,0.10074e+04_rb,0.10090e+04_rb,0.10087e+04_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.10000e+04_rb,0.10061e+04_rb,0.10085e+04_rb,0.10080e+04_rb,0.10085e+04_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.10012e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10090e+04_rb,0.10073e+04_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.10032e+04_rb,0.10067e+04_rb,0.10088e+04_rb,0.10079e+04_rb,0.10070e+04_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.10052e+04_rb,0.10070e+04_rb,0.10079e+04_rb,0.10089e+04_rb,0.10067e+04_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.10057e+04_rb,0.10083e+04_rb,0.10079e+04_rb,0.10098e+04_rb,0.10062e+04_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.10061e+04_rb,0.10085e+04_rb,0.10080e+04_rb,0.10075e+04_rb,0.10068e+04_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.10066e+04_rb,0.10087e+04_rb,0.10111e+04_rb,0.10072e+04_rb,0.10051e+04_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.10069e+04_rb,0.10089e+04_rb,0.10079e+04_rb,0.10068e+04_rb,0.10054e+04_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.10072e+04_rb,0.10069e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10034e+04_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.10075e+04_rb,0.10111e+04_rb,0.10075e+04_rb,0.10068e+04_rb,0.10088e+04_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.10077e+04_rb,0.10080e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10007e+04_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.10078e+04_rb,0.10089e+04_rb,0.10068e+04_rb,0.10043e+04_rb,0.10013e+04_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.10079e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10044e+04_rb,0.10009e+04_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.10090e+04_rb,0.10075e+04_rb,0.10058e+04_rb,0.10025e+04_rb,0.10002e+04_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.10080e+04_rb,0.10073e+04_rb,0.10054e+04_rb,0.10021e+04_rb,0.99972e+03_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.10090e+04_rb,0.10073e+04_rb,0.10054e+04_rb,0.10020e+04_rb,0.99964e+03_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.10080e+04_rb,0.10075e+04_rb,0.10057e+04_rb,0.10024e+04_rb,0.10001e+04_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.10090e+04_rb,0.10076e+04_rb,0.10060e+04_rb,0.10040e+04_rb,0.10006e+04_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.10079e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10034e+04_rb,0.10010e+04_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.10089e+04_rb,0.10089e+04_rb,0.10068e+04_rb,0.10054e+04_rb,0.10014e+04_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.10087e+04_rb,0.10090e+04_rb,0.10082e+04_rb,0.10051e+04_rb,0.10018e+04_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.10085e+04_rb,0.10090e+04_rb,0.10075e+04_rb,0.10058e+04_rb,0.10025e+04_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.10071e+04_rb,0.10079e+04_rb,0.10078e+04_rb,0.10086e+04_rb,0.10037e+04_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.10067e+04_rb,0.10088e+04_rb,0.10079e+04_rb,0.10071e+04_rb,0.10048e+04_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.10061e+04_rb,0.10075e+04_rb,0.10090e+04_rb,0.10096e+04_rb,0.10057e+04_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.10054e+04_rb,0.10071e+04_rb,0.10068e+04_rb,0.10078e+04_rb,0.10065e+04_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.10020e+04_rb,0.10065e+04_rb,0.10087e+04_rb,0.10079e+04_rb,0.10093e+04_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.99938e+03_rb,0.10058e+04_rb,0.10073e+04_rb,0.10079e+04_rb,0.10087e+04_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.99869e+03_rb,0.10038e+04_rb,0.10079e+04_rb,0.10099e+04_rb,0.10089e+04_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.99593e+03_rb,0.10003e+04_rb,0.10062e+04_rb,0.10075e+04_rb,0.10090e+04_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.99417e+03_rb,0.99877e+03_rb,0.10055e+04_rb,0.10061e+04_rb,0.10090e+04_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.99334e+03_rb,0.99717e+03_rb,0.10030e+04_rb,0.10077e+04_rb,0.10077e+04_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.99034e+03_rb,0.99548e+03_rb,0.99989e+03_rb,0.10071e+04_rb,0.10085e+04_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.98844e+03_rb,0.99385e+03_rb,0.99849e+03_rb,0.10064e+04_rb,0.10081e+04_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.98654e+03_rb,0.99323e+03_rb,0.99708e+03_rb,0.10005e+04_rb,0.10066e+04_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.98558e+03_rb,0.99048e+03_rb,0.99560e+03_rb,0.99999e+03_rb,0.10071e+04_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.98349e+03_rb,0.98867e+03_rb,0.99404e+03_rb,0.99866e+03_rb,0.10054e+04_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.98039e+03_rb,0.98688e+03_rb,0.99250e+03_rb,0.99837e+03_rb,0.10028e+04_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.97954e+03_rb,0.98614e+03_rb,0.99186e+03_rb,0.99679e+03_rb,0.10019e+04_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.98905e+03_rb,0.99319e+03_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.98947e+03_rb,0.10009e+04_rb,0.10067e+04_rb,0.10076e+04_rb,0.10005e+04_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.98993e+03_rb,0.10052e+04_rb,0.10068e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.99040e+03_rb,0.10054e+04_rb,0.10069e+04_rb,0.10077e+04_rb,0.10005e+04_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.99823e+03_rb,0.10056e+04_rb,0.99955e+03_rb,0.10078e+04_rb,0.10080e+04_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.99867e+03_rb,0.99832e+03_rb,0.10071e+04_rb,0.10003e+04_rb,0.10079e+04_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.99168e+03_rb,0.10059e+04_rb,0.10072e+04_rb,0.10078e+04_rb,0.10079e+04_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.99955e+03_rb,0.10061e+04_rb,0.10073e+04_rb,0.99297e+03_rb,0.10003e+04_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.10000e+04_rb,0.10063e+04_rb,0.99994e+03_rb,0.10079e+04_rb,0.10002e+04_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.10007e+04_rb,0.10066e+04_rb,0.10075e+04_rb,0.10005e+04_rb,0.10075e+04_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.10052e+04_rb,0.10068e+04_rb,0.10002e+04_rb,0.10080e+04_rb,0.10072e+04_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.10056e+04_rb,0.10070e+04_rb,0.10078e+04_rb,0.10005e+04_rb,0.10068e+04_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.10060e+04_rb,0.99977e+03_rb,0.10079e+04_rb,0.99294e+03_rb,0.10064e+04_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.10064e+04_rb,0.99996e+03_rb,0.10080e+04_rb,0.10077e+04_rb,0.99839e+03_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.10067e+04_rb,0.10001e+04_rb,0.98561e+03_rb,0.10074e+04_rb,0.10052e+04_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.10069e+04_rb,0.10003e+04_rb,0.10080e+04_rb,0.10070e+04_rb,0.99700e+03_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.10072e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.10065e+04_rb,0.10036e+04_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.10074e+04_rb,0.98555e+03_rb,0.10002e+04_rb,0.99845e+03_rb,0.95900e+03_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.10076e+04_rb,0.10080e+04_rb,0.10074e+04_rb,0.99776e+03_rb,0.10037e+04_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.10077e+04_rb,0.10005e+04_rb,0.10070e+04_rb,0.10044e+04_rb,0.10038e+04_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.10079e+04_rb,0.10079e+04_rb,0.10064e+04_rb,0.99602e+03_rb,0.10038e+04_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.10005e+04_rb,0.10077e+04_rb,0.10059e+04_rb,0.10036e+04_rb,0.10037e+04_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.10080e+04_rb,0.10075e+04_rb,0.10055e+04_rb,0.10037e+04_rb,0.10036e+04_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.10005e+04_rb,0.10075e+04_rb,0.10055e+04_rb,0.10037e+04_rb,0.10036e+04_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.10080e+04_rb,0.10077e+04_rb,0.10058e+04_rb,0.10037e+04_rb,0.10037e+04_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.10004e+04_rb,0.10078e+04_rb,0.10062e+04_rb,0.99569e+03_rb,0.10037e+04_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.10078e+04_rb,0.10079e+04_rb,0.10065e+04_rb,0.10036e+04_rb,0.10038e+04_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.10003e+04_rb,0.10005e+04_rb,0.10070e+04_rb,0.99698e+03_rb,0.10038e+04_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.10001e+04_rb,0.10005e+04_rb,0.99992e+03_rb,0.10052e+04_rb,0.10037e+04_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.99994e+03_rb,0.10005e+04_rb,0.10077e+04_rb,0.10059e+04_rb,0.10036e+04_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.99172e+03_rb,0.10038e+04_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.10068e+04_rb,0.10002e+04_rb,0.10080e+04_rb,0.10072e+04_rb,0.10049e+04_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.10063e+04_rb,0.10074e+04_rb,0.10005e+04_rb,0.99276e+03_rb,0.10059e+04_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.10057e+04_rb,0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.10067e+04_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.10009e+04_rb,0.10067e+04_rb,0.10001e+04_rb,0.10080e+04_rb,0.99247e+03_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.99941e+03_rb,0.10061e+04_rb,0.10073e+04_rb,0.10079e+04_rb,0.10004e+04_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.99034e+03_rb,0.10054e+04_rb,0.99943e+03_rb,0.99276e+03_rb,0.10005e+04_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.99601e+03_rb,0.10003e+04_rb,0.10064e+04_rb,0.10074e+04_rb,0.10005e+04_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.99422e+03_rb,0.99882e+03_rb,0.10058e+04_rb,0.10071e+04_rb,0.10003e+04_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.98496e+03_rb,0.99726e+03_rb,0.10013e+04_rb,0.99930e+03_rb,0.10076e+04_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.99030e+03_rb,0.99555e+03_rb,0.99990e+03_rb,0.99882e+03_rb,0.99991e+03_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.98836e+03_rb,0.98653e+03_rb,0.99856e+03_rb,0.99827e+03_rb,0.99962e+03_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.98643e+03_rb,0.98485e+03_rb,0.99716e+03_rb,0.10012e+04_rb,0.10067e+04_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.97714e+03_rb,0.99044e+03_rb,0.99567e+03_rb,0.99999e+03_rb,0.99885e+03_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.97511e+03_rb,0.98860e+03_rb,0.99409e+03_rb,0.99872e+03_rb,0.10058e+04_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.98036e+03_rb,0.98678e+03_rb,0.99251e+03_rb,0.99003e+03_rb,0.10052e+04_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.97953e+03_rb,0.98603e+03_rb,0.99185e+03_rb,0.99687e+03_rb,0.10009e+04_rb /)\n     \n      end subroutine sw_kgb27\n\n! **************************************************************************\n      subroutine sw_kgb28\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg28, only : kao, kbo, sfluxrefo, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 1.06156_rb    , 0.599910_rb   , 0.422462_rb   , 0.400077_rb   , &\n        & 0.282221_rb   , 0.187893_rb   , 6.77357e-02_rb, 3.04572e-02_rb, &\n        & 2.00442e-02_rb, 2.30786e-03_rb, 2.08824e-03_rb, 1.42604e-03_rb, &\n        & 9.67384e-04_rb, 6.35362e-04_rb, 1.47727e-04_rb, 6.87639e-06_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 1.07598_rb    , 0.585099_rb   , 0.422852_rb   , 0.400077_rb   , &\n        & 0.282221_rb   , 0.187893_rb   , 6.69686e-02_rb, 3.09070e-02_rb, &\n        & 2.02400e-02_rb, 2.47760e-03_rb, 1.89411e-03_rb, 1.41122e-03_rb, &\n        & 1.12449e-03_rb, 5.73505e-04_rb, 2.04160e-04_rb, 1.58371e-05_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 0.461647_rb   , 0.406113_rb   , 0.332506_rb   , 0.307508_rb   , &\n        & 0.211167_rb   , 0.235457_rb   , 0.495886_rb   , 0.363921_rb   , &\n        & 0.192700_rb   , 2.04678e-02_rb, 1.55407e-02_rb, 1.03882e-02_rb, &\n        & 1.10778e-02_rb, 1.00504e-02_rb, 4.93497e-03_rb, 5.73410e-04_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 0.132669_rb   , 0.175058_rb   , 0.359263_rb   , 0.388142_rb   , &\n        & 0.350359_rb   , 0.475892_rb   , 0.489593_rb   , 0.408437_rb   , &\n        & 0.221049_rb   , 1.94514e-02_rb, 1.54848e-02_rb, 1.44999e-02_rb, &\n        & 1.44568e-02_rb, 1.00527e-02_rb, 4.95897e-03_rb, 5.73327e-04_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 7.54800e-02_rb, 0.232246_rb   , 0.359263_rb   , 0.388142_rb   , &\n        & 0.350359_rb   , 0.426317_rb   , 0.493485_rb   , 0.432016_rb   , &\n        & 0.239203_rb   , 1.74951e-02_rb, 1.74477e-02_rb, 1.83566e-02_rb, &\n        & 1.44818e-02_rb, 1.01048e-02_rb, 4.97487e-03_rb, 5.66831e-04_rb /)\n\n! Rayleigh extinction coefficient at v = ????? cm-1.\n      rayl = 2.02e-05_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.46447e+02_rb,0.18001e+03_rb,0.31338e+03_rb,0.44652e+03_rb,0.54636e+03_rb, &\n        & 0.54173e+03_rb,0.45707e+03_rb,0.27363e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.45270e+02_rb,0.17886e+03_rb,0.31225e+03_rb,0.44541e+03_rb,0.54177e+03_rb, &\n        & 0.53436e+03_rb,0.44932e+03_rb,0.26748e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.44214e+02_rb,0.17776e+03_rb,0.31115e+03_rb,0.44427e+03_rb,0.53733e+03_rb, &\n        & 0.52756e+03_rb,0.44224e+03_rb,0.26195e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.43259e+02_rb,0.17673e+03_rb,0.31005e+03_rb,0.44305e+03_rb,0.53298e+03_rb, &\n        & 0.52129e+03_rb,0.43574e+03_rb,0.25696e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.42393e+02_rb,0.17575e+03_rb,0.30896e+03_rb,0.44173e+03_rb,0.52883e+03_rb, &\n        & 0.51548e+03_rb,0.42976e+03_rb,0.25242e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.42908e+02_rb,0.17695e+03_rb,0.31077e+03_rb,0.44434e+03_rb,0.53161e+03_rb, &\n        & 0.51895e+03_rb,0.43332e+03_rb,0.25512e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.41899e+02_rb,0.17596e+03_rb,0.30980e+03_rb,0.44336e+03_rb,0.52686e+03_rb, &\n        & 0.51213e+03_rb,0.42632e+03_rb,0.24984e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.40995e+02_rb,0.17502e+03_rb,0.30884e+03_rb,0.44232e+03_rb,0.52230e+03_rb, &\n        & 0.50592e+03_rb,0.41995e+03_rb,0.24511e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.40181e+02_rb,0.17412e+03_rb,0.30788e+03_rb,0.44119e+03_rb,0.51785e+03_rb, &\n        & 0.50025e+03_rb,0.41414e+03_rb,0.24085e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.39443e+02_rb,0.17326e+03_rb,0.30691e+03_rb,0.43992e+03_rb,0.51364e+03_rb, &\n        & 0.49503e+03_rb,0.40882e+03_rb,0.23699e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.40126e+02_rb,0.17457e+03_rb,0.30876e+03_rb,0.44248e+03_rb,0.51755e+03_rb, &\n        & 0.49986e+03_rb,0.41375e+03_rb,0.24056e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.39240e+02_rb,0.17370e+03_rb,0.30792e+03_rb,0.44146e+03_rb,0.51254e+03_rb, &\n        & 0.49358e+03_rb,0.40735e+03_rb,0.23593e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.38450e+02_rb,0.17288e+03_rb,0.30708e+03_rb,0.44031e+03_rb,0.50793e+03_rb, &\n        & 0.48786e+03_rb,0.40155e+03_rb,0.23179e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.37740e+02_rb,0.17210e+03_rb,0.30624e+03_rb,0.43908e+03_rb,0.50368e+03_rb, &\n        & 0.48264e+03_rb,0.39629e+03_rb,0.22808e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.37099e+02_rb,0.17134e+03_rb,0.30539e+03_rb,0.43781e+03_rb,0.49975e+03_rb, &\n        & 0.47787e+03_rb,0.39149e+03_rb,0.22473e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.37818e+02_rb,0.17258e+03_rb,0.30708e+03_rb,0.43967e+03_rb,0.50412e+03_rb, &\n        & 0.48321e+03_rb,0.39687e+03_rb,0.22848e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.37034e+02_rb,0.17183e+03_rb,0.30636e+03_rb,0.43833e+03_rb,0.49935e+03_rb, &\n        & 0.47738e+03_rb,0.39100e+03_rb,0.22439e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.36338e+02_rb,0.17111e+03_rb,0.30564e+03_rb,0.43700e+03_rb,0.49496e+03_rb, &\n        & 0.47212e+03_rb,0.38572e+03_rb,0.22075e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.35716e+02_rb,0.17043e+03_rb,0.30491e+03_rb,0.43569e+03_rb,0.49094e+03_rb, &\n        & 0.46732e+03_rb,0.38094e+03_rb,0.21749e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.35156e+02_rb,0.16977e+03_rb,0.30416e+03_rb,0.43437e+03_rb,0.48726e+03_rb, &\n        & 0.46294e+03_rb,0.37660e+03_rb,0.21456e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.35857e+02_rb,0.17089e+03_rb,0.30563e+03_rb,0.43619e+03_rb,0.49186e+03_rb, &\n        & 0.46841e+03_rb,0.38202e+03_rb,0.21822e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.35163e+02_rb,0.17023e+03_rb,0.30502e+03_rb,0.43478e+03_rb,0.48731e+03_rb, &\n        & 0.46300e+03_rb,0.37666e+03_rb,0.21460e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.34550e+02_rb,0.16961e+03_rb,0.30441e+03_rb,0.43332e+03_rb,0.48321e+03_rb, &\n        & 0.45813e+03_rb,0.37186e+03_rb,0.21139e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.34004e+02_rb,0.16902e+03_rb,0.30378e+03_rb,0.43194e+03_rb,0.47950e+03_rb, &\n        & 0.45375e+03_rb,0.36755e+03_rb,0.20853e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.33514e+02_rb,0.16844e+03_rb,0.30312e+03_rb,0.43058e+03_rb,0.47611e+03_rb, &\n        & 0.44977e+03_rb,0.36365e+03_rb,0.20597e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.34212e+02_rb,0.16946e+03_rb,0.30440e+03_rb,0.43247e+03_rb,0.48092e+03_rb, &\n        & 0.45542e+03_rb,0.36920e+03_rb,0.20962e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.33595e+02_rb,0.16889e+03_rb,0.30389e+03_rb,0.43093e+03_rb,0.47667e+03_rb, &\n        & 0.45043e+03_rb,0.36430e+03_rb,0.20639e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.33052e+02_rb,0.16835e+03_rb,0.30337e+03_rb,0.42946e+03_rb,0.47287e+03_rb, &\n        & 0.44599e+03_rb,0.35993e+03_rb,0.20355e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.32571e+02_rb,0.16784e+03_rb,0.30283e+03_rb,0.42807e+03_rb,0.46947e+03_rb, &\n        & 0.44201e+03_rb,0.35602e+03_rb,0.20103e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.32141e+02_rb,0.16733e+03_rb,0.30227e+03_rb,0.42674e+03_rb,0.46640e+03_rb, &\n        & 0.43842e+03_rb,0.35250e+03_rb,0.19879e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.32812e+02_rb,0.16823e+03_rb,0.30334e+03_rb,0.42859e+03_rb,0.47118e+03_rb, &\n        & 0.44401e+03_rb,0.35799e+03_rb,0.20230e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.32263e+02_rb,0.16774e+03_rb,0.30291e+03_rb,0.42708e+03_rb,0.46727e+03_rb, &\n        & 0.43944e+03_rb,0.35350e+03_rb,0.19942e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.31782e+02_rb,0.16728e+03_rb,0.30248e+03_rb,0.42558e+03_rb,0.46381e+03_rb, &\n        & 0.43539e+03_rb,0.34954e+03_rb,0.19691e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.31357e+02_rb,0.16683e+03_rb,0.30203e+03_rb,0.42413e+03_rb,0.46069e+03_rb, &\n        & 0.43177e+03_rb,0.34599e+03_rb,0.19468e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.30980e+02_rb,0.16640e+03_rb,0.30154e+03_rb,0.42276e+03_rb,0.45787e+03_rb, &\n        & 0.42852e+03_rb,0.34280e+03_rb,0.19271e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.31614e+02_rb,0.16716e+03_rb,0.30239e+03_rb,0.42473e+03_rb,0.46259e+03_rb, &\n        & 0.43397e+03_rb,0.34814e+03_rb,0.19603e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.31125e+02_rb,0.16674e+03_rb,0.30206e+03_rb,0.42311e+03_rb,0.45896e+03_rb, &\n        & 0.42978e+03_rb,0.34403e+03_rb,0.19347e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.30699e+02_rb,0.16635e+03_rb,0.30170e+03_rb,0.42163e+03_rb,0.45573e+03_rb, &\n        & 0.42608e+03_rb,0.34039e+03_rb,0.19124e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.30325e+02_rb,0.16597e+03_rb,0.30133e+03_rb,0.42027e+03_rb,0.45286e+03_rb, &\n        & 0.42281e+03_rb,0.33716e+03_rb,0.18928e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.29993e+02_rb,0.16559e+03_rb,0.30092e+03_rb,0.41901e+03_rb,0.45030e+03_rb, &\n        & 0.41988e+03_rb,0.33427e+03_rb,0.18755e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.30594e+02_rb,0.16624e+03_rb,0.30156e+03_rb,0.42087e+03_rb,0.45493e+03_rb, &\n        & 0.42517e+03_rb,0.33949e+03_rb,0.19069e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.30158e+02_rb,0.16589e+03_rb,0.30131e+03_rb,0.41937e+03_rb,0.45157e+03_rb, &\n        & 0.42134e+03_rb,0.33570e+03_rb,0.18841e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.29780e+02_rb,0.16556e+03_rb,0.30103e+03_rb,0.41800e+03_rb,0.44864e+03_rb, &\n        & 0.41799e+03_rb,0.33239e+03_rb,0.18643e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.29450e+02_rb,0.16523e+03_rb,0.30072e+03_rb,0.41674e+03_rb,0.44606e+03_rb, &\n        & 0.41504e+03_rb,0.32946e+03_rb,0.18471e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.29159e+02_rb,0.16491e+03_rb,0.30039e+03_rb,0.41557e+03_rb,0.44377e+03_rb, &\n        & 0.41242e+03_rb,0.32686e+03_rb,0.18318e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.29691e+02_rb,0.16541e+03_rb,0.30081e+03_rb,0.41722e+03_rb,0.44795e+03_rb, &\n        & 0.41720e+03_rb,0.33160e+03_rb,0.18597e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.29307e+02_rb,0.16512e+03_rb,0.30063e+03_rb,0.41581e+03_rb,0.44493e+03_rb, &\n        & 0.41375e+03_rb,0.32818e+03_rb,0.18396e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.28975e+02_rb,0.16485e+03_rb,0.30042e+03_rb,0.41454e+03_rb,0.44231e+03_rb, &\n        & 0.41076e+03_rb,0.32520e+03_rb,0.18222e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.28687e+02_rb,0.16458e+03_rb,0.30018e+03_rb,0.41340e+03_rb,0.44002e+03_rb, &\n        & 0.40814e+03_rb,0.32259e+03_rb,0.18071e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.28434e+02_rb,0.16431e+03_rb,0.29989e+03_rb,0.41235e+03_rb,0.43799e+03_rb, &\n        & 0.40583e+03_rb,0.32028e+03_rb,0.17939e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.28760e+02_rb,0.16459e+03_rb,0.30010e+03_rb,0.41321e+03_rb,0.44060e+03_rb, &\n        & 0.40880e+03_rb,0.32325e+03_rb,0.18109e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.28444e+02_rb,0.16436e+03_rb,0.29997e+03_rb,0.41200e+03_rb,0.43807e+03_rb, &\n        & 0.40592e+03_rb,0.32038e+03_rb,0.17944e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.28173e+02_rb,0.16414e+03_rb,0.29981e+03_rb,0.41092e+03_rb,0.43587e+03_rb, &\n        & 0.40342e+03_rb,0.31788e+03_rb,0.17802e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.27937e+02_rb,0.16392e+03_rb,0.29960e+03_rb,0.40994e+03_rb,0.43395e+03_rb, &\n        & 0.40124e+03_rb,0.31570e+03_rb,0.17679e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.27730e+02_rb,0.16369e+03_rb,0.29936e+03_rb,0.40905e+03_rb,0.43224e+03_rb, &\n        & 0.39931e+03_rb,0.31377e+03_rb,0.17571e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.27995e+02_rb,0.16391e+03_rb,0.29951e+03_rb,0.40970e+03_rb,0.43443e+03_rb, &\n        & 0.40178e+03_rb,0.31624e+03_rb,0.17709e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.27737e+02_rb,0.16374e+03_rb,0.29943e+03_rb,0.40869e+03_rb,0.43230e+03_rb, &\n        & 0.39938e+03_rb,0.31384e+03_rb,0.17574e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.27515e+02_rb,0.16356e+03_rb,0.29930e+03_rb,0.40779e+03_rb,0.43046e+03_rb, &\n        & 0.39730e+03_rb,0.31176e+03_rb,0.17458e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.27322e+02_rb,0.16338e+03_rb,0.29913e+03_rb,0.40697e+03_rb,0.42883e+03_rb, &\n        & 0.39548e+03_rb,0.30994e+03_rb,0.17357e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.27152e+02_rb,0.16318e+03_rb,0.29892e+03_rb,0.40622e+03_rb,0.42740e+03_rb, &\n        & 0.39387e+03_rb,0.30834e+03_rb,0.17268e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.27369e+02_rb,0.16336e+03_rb,0.29903e+03_rb,0.40671e+03_rb,0.42924e+03_rb, &\n        & 0.39593e+03_rb,0.31039e+03_rb,0.17382e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.27158e+02_rb,0.16323e+03_rb,0.29898e+03_rb,0.40587e+03_rb,0.42745e+03_rb, &\n        & 0.39393e+03_rb,0.30840e+03_rb,0.17271e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.26976e+02_rb,0.16309e+03_rb,0.29889e+03_rb,0.40513e+03_rb,0.42590e+03_rb, &\n        & 0.39221e+03_rb,0.30667e+03_rb,0.17176e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.26818e+02_rb,0.16293e+03_rb,0.29875e+03_rb,0.40445e+03_rb,0.42455e+03_rb, &\n        & 0.39070e+03_rb,0.30516e+03_rb,0.17093e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.26679e+02_rb,0.16276e+03_rb,0.29855e+03_rb,0.40381e+03_rb,0.42335e+03_rb, &\n        & 0.38937e+03_rb,0.30384e+03_rb,0.17021e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.17271e+03_rb,0.27646e+03_rb,0.38039e+03_rb,0.48420e+03_rb,0.56932e+03_rb, &\n        & 0.57534e+03_rb,0.47873e+03_rb,0.28147e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.16834e+03_rb,0.27246e+03_rb,0.37678e+03_rb,0.48091e+03_rb,0.56471e+03_rb, &\n        & 0.56734e+03_rb,0.47005e+03_rb,0.27593e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.16441e+03_rb,0.26883e+03_rb,0.37341e+03_rb,0.47777e+03_rb,0.56037e+03_rb, &\n        & 0.56003e+03_rb,0.46210e+03_rb,0.27096e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.16086e+03_rb,0.26548e+03_rb,0.37025e+03_rb,0.47479e+03_rb,0.55629e+03_rb, &\n        & 0.55327e+03_rb,0.45481e+03_rb,0.26647e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.15764e+03_rb,0.26237e+03_rb,0.36725e+03_rb,0.47195e+03_rb,0.55235e+03_rb, &\n        & 0.54701e+03_rb,0.44810e+03_rb,0.26239e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.15955e+03_rb,0.26500e+03_rb,0.37067e+03_rb,0.47595e+03_rb,0.55480e+03_rb, &\n        & 0.55074e+03_rb,0.45210e+03_rb,0.26482e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.15580e+03_rb,0.26157e+03_rb,0.36756e+03_rb,0.47303e+03_rb,0.55028e+03_rb, &\n        & 0.54339e+03_rb,0.44423e+03_rb,0.26007e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.15244e+03_rb,0.25844e+03_rb,0.36465e+03_rb,0.47023e+03_rb,0.54619e+03_rb, &\n        & 0.53664e+03_rb,0.43708e+03_rb,0.25581e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.14941e+03_rb,0.25556e+03_rb,0.36191e+03_rb,0.46753e+03_rb,0.54253e+03_rb, &\n        & 0.53041e+03_rb,0.43052e+03_rb,0.25198e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.14667e+03_rb,0.25289e+03_rb,0.35930e+03_rb,0.46494e+03_rb,0.53908e+03_rb, &\n        & 0.52470e+03_rb,0.42448e+03_rb,0.24851e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.14921e+03_rb,0.25601e+03_rb,0.36308e+03_rb,0.46872e+03_rb,0.54234e+03_rb, &\n        & 0.52999e+03_rb,0.43007e+03_rb,0.25172e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.14591e+03_rb,0.25301e+03_rb,0.36036e+03_rb,0.46599e+03_rb,0.53834e+03_rb, &\n        & 0.52313e+03_rb,0.42280e+03_rb,0.24755e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.14297e+03_rb,0.25028e+03_rb,0.35782e+03_rb,0.46350e+03_rb,0.53459e+03_rb, &\n        & 0.51696e+03_rb,0.41619e+03_rb,0.24383e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.14033e+03_rb,0.24777e+03_rb,0.35542e+03_rb,0.46116e+03_rb,0.53100e+03_rb, &\n        & 0.51122e+03_rb,0.41016e+03_rb,0.24049e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.13795e+03_rb,0.24544e+03_rb,0.35313e+03_rb,0.45882e+03_rb,0.52751e+03_rb, &\n        & 0.50591e+03_rb,0.40463e+03_rb,0.23747e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.14062e+03_rb,0.24856e+03_rb,0.35678e+03_rb,0.46260e+03_rb,0.53137e+03_rb, &\n        & 0.51186e+03_rb,0.41082e+03_rb,0.24086e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.13771e+03_rb,0.24592e+03_rb,0.35440e+03_rb,0.46020e+03_rb,0.52732e+03_rb, &\n        & 0.50537e+03_rb,0.40407e+03_rb,0.23717e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.13512e+03_rb,0.24353e+03_rb,0.35219e+03_rb,0.45796e+03_rb,0.52348e+03_rb, &\n        & 0.49954e+03_rb,0.39798e+03_rb,0.23389e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.13281e+03_rb,0.24133e+03_rb,0.35008e+03_rb,0.45583e+03_rb,0.51985e+03_rb, &\n        & 0.49431e+03_rb,0.39246e+03_rb,0.23096e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.13073e+03_rb,0.23928e+03_rb,0.34807e+03_rb,0.45378e+03_rb,0.51643e+03_rb, &\n        & 0.48957e+03_rb,0.38745e+03_rb,0.22833e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.13333e+03_rb,0.24222e+03_rb,0.35141e+03_rb,0.45702e+03_rb,0.52057e+03_rb, &\n        & 0.49550e+03_rb,0.39372e+03_rb,0.23163e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.13075e+03_rb,0.23990e+03_rb,0.34934e+03_rb,0.45476e+03_rb,0.51651e+03_rb, &\n        & 0.48963e+03_rb,0.38752e+03_rb,0.22836e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.12847e+03_rb,0.23780e+03_rb,0.34741e+03_rb,0.45266e+03_rb,0.51271e+03_rb, &\n        & 0.48438e+03_rb,0.38196e+03_rb,0.22548e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.12644e+03_rb,0.23588e+03_rb,0.34557e+03_rb,0.45066e+03_rb,0.50911e+03_rb, &\n        & 0.47962e+03_rb,0.37696e+03_rb,0.22291e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.12462e+03_rb,0.23409e+03_rb,0.34381e+03_rb,0.44874e+03_rb,0.50570e+03_rb, &\n        & 0.47526e+03_rb,0.37245e+03_rb,0.22060e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.12722e+03_rb,0.23690e+03_rb,0.34688e+03_rb,0.45177e+03_rb,0.51032e+03_rb, &\n        & 0.48144e+03_rb,0.37887e+03_rb,0.22389e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.12492e+03_rb,0.23485e+03_rb,0.34508e+03_rb,0.44967e+03_rb,0.50620e+03_rb, &\n        & 0.47598e+03_rb,0.37319e+03_rb,0.22098e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.12290e+03_rb,0.23301e+03_rb,0.34340e+03_rb,0.44769e+03_rb,0.50242e+03_rb, &\n        & 0.47108e+03_rb,0.36815e+03_rb,0.21843e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.12111e+03_rb,0.23132e+03_rb,0.34180e+03_rb,0.44582e+03_rb,0.49894e+03_rb, &\n        & 0.46668e+03_rb,0.36363e+03_rb,0.21616e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.11952e+03_rb,0.22976e+03_rb,0.34026e+03_rb,0.44407e+03_rb,0.49574e+03_rb, &\n        & 0.46270e+03_rb,0.35956e+03_rb,0.21414e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.12201e+03_rb,0.23235e+03_rb,0.34300e+03_rb,0.44700e+03_rb,0.50054e+03_rb, &\n        & 0.46889e+03_rb,0.36590e+03_rb,0.21730e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.11997e+03_rb,0.23055e+03_rb,0.34145e+03_rb,0.44492e+03_rb,0.49657e+03_rb, &\n        & 0.46383e+03_rb,0.36071e+03_rb,0.21471e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.11818e+03_rb,0.22894e+03_rb,0.33999e+03_rb,0.44309e+03_rb,0.49292e+03_rb, &\n        & 0.45934e+03_rb,0.35613e+03_rb,0.21245e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.11660e+03_rb,0.22746e+03_rb,0.33859e+03_rb,0.44146e+03_rb,0.48959e+03_rb, &\n        & 0.45533e+03_rb,0.35208e+03_rb,0.21045e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.11520e+03_rb,0.22609e+03_rb,0.33724e+03_rb,0.43996e+03_rb,0.48657e+03_rb, &\n        & 0.45175e+03_rb,0.34847e+03_rb,0.20867e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.11756e+03_rb,0.22844e+03_rb,0.33965e+03_rb,0.44261e+03_rb,0.49147e+03_rb, &\n        & 0.45776e+03_rb,0.35454e+03_rb,0.21166e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.11574e+03_rb,0.22687e+03_rb,0.33830e+03_rb,0.44082e+03_rb,0.48767e+03_rb, &\n        & 0.45313e+03_rb,0.34986e+03_rb,0.20936e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.11415e+03_rb,0.22546e+03_rb,0.33704e+03_rb,0.43915e+03_rb,0.48429e+03_rb, &\n        & 0.44908e+03_rb,0.34579e+03_rb,0.20735e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.11276e+03_rb,0.22417e+03_rb,0.33584e+03_rb,0.43758e+03_rb,0.48126e+03_rb, &\n        & 0.44549e+03_rb,0.34220e+03_rb,0.20559e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.11153e+03_rb,0.22298e+03_rb,0.33466e+03_rb,0.43617e+03_rb,0.47855e+03_rb, &\n        & 0.44228e+03_rb,0.33902e+03_rb,0.20403e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.11376e+03_rb,0.22510e+03_rb,0.33674e+03_rb,0.43882e+03_rb,0.48336e+03_rb, &\n        & 0.44807e+03_rb,0.34479e+03_rb,0.20686e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.11214e+03_rb,0.22372e+03_rb,0.33559e+03_rb,0.43706e+03_rb,0.47989e+03_rb, &\n        & 0.44388e+03_rb,0.34060e+03_rb,0.20480e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.11074e+03_rb,0.22250e+03_rb,0.33451e+03_rb,0.43547e+03_rb,0.47679e+03_rb, &\n        & 0.44020e+03_rb,0.33697e+03_rb,0.20303e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.10951e+03_rb,0.22138e+03_rb,0.33348e+03_rb,0.43404e+03_rb,0.47404e+03_rb, &\n        & 0.43694e+03_rb,0.33379e+03_rb,0.20147e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.10843e+03_rb,0.22034e+03_rb,0.33246e+03_rb,0.43277e+03_rb,0.47159e+03_rb, &\n        & 0.43405e+03_rb,0.33096e+03_rb,0.20010e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.11041e+03_rb,0.22214e+03_rb,0.33414e+03_rb,0.43517e+03_rb,0.47604e+03_rb, &\n        & 0.43932e+03_rb,0.33611e+03_rb,0.20261e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.10898e+03_rb,0.22095e+03_rb,0.33317e+03_rb,0.43358e+03_rb,0.47283e+03_rb, &\n        & 0.43552e+03_rb,0.33239e+03_rb,0.20080e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.10774e+03_rb,0.21989e+03_rb,0.33226e+03_rb,0.43213e+03_rb,0.47002e+03_rb, &\n        & 0.43222e+03_rb,0.32917e+03_rb,0.19924e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.10667e+03_rb,0.21893e+03_rb,0.33139e+03_rb,0.43083e+03_rb,0.46753e+03_rb, &\n        & 0.42932e+03_rb,0.32634e+03_rb,0.19788e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.10573e+03_rb,0.21803e+03_rb,0.33053e+03_rb,0.42965e+03_rb,0.46532e+03_rb, &\n        & 0.42677e+03_rb,0.32386e+03_rb,0.19669e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.10694e+03_rb,0.21911e+03_rb,0.33152e+03_rb,0.43127e+03_rb,0.46816e+03_rb, &\n        & 0.43005e+03_rb,0.32706e+03_rb,0.19822e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.10577e+03_rb,0.21815e+03_rb,0.33074e+03_rb,0.42984e+03_rb,0.46541e+03_rb, &\n        & 0.42687e+03_rb,0.32396e+03_rb,0.19674e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.10476e+03_rb,0.21728e+03_rb,0.33000e+03_rb,0.42855e+03_rb,0.46301e+03_rb, &\n        & 0.42411e+03_rb,0.32130e+03_rb,0.19546e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.10388e+03_rb,0.21649e+03_rb,0.32928e+03_rb,0.42741e+03_rb,0.46089e+03_rb, &\n        & 0.42169e+03_rb,0.31897e+03_rb,0.19435e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.10311e+03_rb,0.21575e+03_rb,0.32855e+03_rb,0.42639e+03_rb,0.45902e+03_rb, &\n        & 0.41954e+03_rb,0.31692e+03_rb,0.19338e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.10410e+03_rb,0.21663e+03_rb,0.32937e+03_rb,0.42778e+03_rb,0.46141e+03_rb, &\n        & 0.42229e+03_rb,0.31955e+03_rb,0.19463e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.10314e+03_rb,0.21585e+03_rb,0.32875e+03_rb,0.42654e+03_rb,0.45909e+03_rb, &\n        & 0.41961e+03_rb,0.31700e+03_rb,0.19341e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.10231e+03_rb,0.21515e+03_rb,0.32815e+03_rb,0.42544e+03_rb,0.45707e+03_rb, &\n        & 0.41729e+03_rb,0.31480e+03_rb,0.19236e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.10159e+03_rb,0.21449e+03_rb,0.32754e+03_rb,0.42445e+03_rb,0.45532e+03_rb, &\n        & 0.41526e+03_rb,0.31288e+03_rb,0.19145e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.10096e+03_rb,0.21387e+03_rb,0.32692e+03_rb,0.42356e+03_rb,0.45377e+03_rb, &\n        & 0.41347e+03_rb,0.31119e+03_rb,0.19066e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.10177e+03_rb,0.21460e+03_rb,0.32761e+03_rb,0.42475e+03_rb,0.45575e+03_rb, &\n        & 0.41576e+03_rb,0.31335e+03_rb,0.19168e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.10099e+03_rb,0.21397e+03_rb,0.32712e+03_rb,0.42368e+03_rb,0.45383e+03_rb, &\n        & 0.41353e+03_rb,0.31125e+03_rb,0.19068e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.10031e+03_rb,0.21340e+03_rb,0.32663e+03_rb,0.42272e+03_rb,0.45216e+03_rb, &\n        & 0.41160e+03_rb,0.30943e+03_rb,0.18983e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.99720e+02_rb,0.21286e+03_rb,0.32612e+03_rb,0.42187e+03_rb,0.45071e+03_rb, &\n        & 0.40991e+03_rb,0.30785e+03_rb,0.18908e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.99204e+02_rb,0.21233e+03_rb,0.32558e+03_rb,0.42112e+03_rb,0.44942e+03_rb, &\n        & 0.40842e+03_rb,0.30646e+03_rb,0.18843e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.44909e+03_rb,0.47445e+03_rb,0.49981e+03_rb,0.52556e+03_rb,0.59352e+03_rb, &\n        & 0.63011e+03_rb,0.50440e+03_rb,0.31793e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.43771e+03_rb,0.46449e+03_rb,0.49128e+03_rb,0.51852e+03_rb,0.58982e+03_rb, &\n        & 0.62155e+03_rb,0.49364e+03_rb,0.31383e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.42749e+03_rb,0.45555e+03_rb,0.48362e+03_rb,0.51220e+03_rb,0.58623e+03_rb, &\n        & 0.61324e+03_rb,0.48379e+03_rb,0.31014e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.41826e+03_rb,0.44748e+03_rb,0.47670e+03_rb,0.50650e+03_rb,0.58281e+03_rb, &\n        & 0.60555e+03_rb,0.47483e+03_rb,0.30681e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.40989e+03_rb,0.44015e+03_rb,0.47042e+03_rb,0.50132e+03_rb,0.57944e+03_rb, &\n        & 0.59846e+03_rb,0.46657e+03_rb,0.30379e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.41487e+03_rb,0.44451e+03_rb,0.47415e+03_rb,0.50447e+03_rb,0.58410e+03_rb, &\n        & 0.60269e+03_rb,0.47150e+03_rb,0.30559e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.40511e+03_rb,0.43597e+03_rb,0.46683e+03_rb,0.49854e+03_rb,0.58056e+03_rb, &\n        & 0.59434e+03_rb,0.46181e+03_rb,0.30207e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.39637e+03_rb,0.42832e+03_rb,0.46028e+03_rb,0.49326e+03_rb,0.57701e+03_rb, &\n        & 0.58648e+03_rb,0.45298e+03_rb,0.29892e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.38850e+03_rb,0.42143e+03_rb,0.45437e+03_rb,0.48855e+03_rb,0.57350e+03_rb, &\n        & 0.57914e+03_rb,0.44500e+03_rb,0.29608e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.38136e+03_rb,0.41519e+03_rb,0.44902e+03_rb,0.48433e+03_rb,0.57004e+03_rb, &\n        & 0.57245e+03_rb,0.43774e+03_rb,0.29351e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.38797e+03_rb,0.42097e+03_rb,0.45397e+03_rb,0.48897e+03_rb,0.57508e+03_rb, &\n        & 0.57865e+03_rb,0.44446e+03_rb,0.29589e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.37940e+03_rb,0.41348e+03_rb,0.44755e+03_rb,0.48416e+03_rb,0.57138e+03_rb, &\n        & 0.57059e+03_rb,0.43573e+03_rb,0.29280e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.37176e+03_rb,0.40679e+03_rb,0.44182e+03_rb,0.47985e+03_rb,0.56781e+03_rb, &\n        & 0.56324e+03_rb,0.42791e+03_rb,0.29005e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.36490e+03_rb,0.40078e+03_rb,0.43667e+03_rb,0.47599e+03_rb,0.56436e+03_rb, &\n        & 0.55656e+03_rb,0.42088e+03_rb,0.28757e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.35870e+03_rb,0.39536e+03_rb,0.43202e+03_rb,0.47253e+03_rb,0.56109e+03_rb, &\n        & 0.55041e+03_rb,0.41448e+03_rb,0.28534e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.36565e+03_rb,0.40144e+03_rb,0.43723e+03_rb,0.47759e+03_rb,0.56581e+03_rb, &\n        & 0.55729e+03_rb,0.42164e+03_rb,0.28784e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.35808e+03_rb,0.39482e+03_rb,0.43155e+03_rb,0.47386e+03_rb,0.56215e+03_rb, &\n        & 0.54978e+03_rb,0.41381e+03_rb,0.28511e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.35135e+03_rb,0.38893e+03_rb,0.42651e+03_rb,0.47052e+03_rb,0.55875e+03_rb, &\n        & 0.54295e+03_rb,0.40683e+03_rb,0.28269e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.34533e+03_rb,0.38366e+03_rb,0.42199e+03_rb,0.46746e+03_rb,0.55555e+03_rb, &\n        & 0.53669e+03_rb,0.40055e+03_rb,0.28052e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.33991e+03_rb,0.37892e+03_rb,0.41793e+03_rb,0.46467e+03_rb,0.55244e+03_rb, &\n        & 0.53093e+03_rb,0.39488e+03_rb,0.27856e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.34669e+03_rb,0.38485e+03_rb,0.42301e+03_rb,0.46943e+03_rb,0.55667e+03_rb, &\n        & 0.53812e+03_rb,0.40197e+03_rb,0.28101e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.33999e+03_rb,0.37899e+03_rb,0.41799e+03_rb,0.46662e+03_rb,0.55311e+03_rb, &\n        & 0.53101e+03_rb,0.39496e+03_rb,0.27859e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.33406e+03_rb,0.37380e+03_rb,0.41354e+03_rb,0.46416e+03_rb,0.54976e+03_rb, &\n        & 0.52459e+03_rb,0.38873e+03_rb,0.27645e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.32878e+03_rb,0.36918e+03_rb,0.40958e+03_rb,0.46185e+03_rb,0.54671e+03_rb, &\n        & 0.51881e+03_rb,0.38326e+03_rb,0.27455e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.32404e+03_rb,0.36503e+03_rb,0.40603e+03_rb,0.45969e+03_rb,0.54395e+03_rb, &\n        & 0.51356e+03_rb,0.37844e+03_rb,0.27284e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.33079e+03_rb,0.37094e+03_rb,0.41109e+03_rb,0.46395e+03_rb,0.54790e+03_rb, &\n        & 0.52101e+03_rb,0.38534e+03_rb,0.27527e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.32482e+03_rb,0.36572e+03_rb,0.40662e+03_rb,0.46188e+03_rb,0.54448e+03_rb, &\n        & 0.51443e+03_rb,0.37923e+03_rb,0.27312e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.31958e+03_rb,0.36113e+03_rb,0.40268e+03_rb,0.45998e+03_rb,0.54143e+03_rb, &\n        & 0.50857e+03_rb,0.37397e+03_rb,0.27123e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.31492e+03_rb,0.35705e+03_rb,0.39919e+03_rb,0.45816e+03_rb,0.53866e+03_rb, &\n        & 0.50335e+03_rb,0.36939e+03_rb,0.26955e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.31076e+03_rb,0.35342e+03_rb,0.39607e+03_rb,0.45638e+03_rb,0.53611e+03_rb, &\n        & 0.49868e+03_rb,0.36537e+03_rb,0.26805e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.31725e+03_rb,0.35910e+03_rb,0.40094e+03_rb,0.45992e+03_rb,0.53978e+03_rb, &\n        & 0.50597e+03_rb,0.37168e+03_rb,0.27039e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.31194e+03_rb,0.35445e+03_rb,0.39695e+03_rb,0.45835e+03_rb,0.53664e+03_rb, &\n        & 0.50000e+03_rb,0.36650e+03_rb,0.26848e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.30729e+03_rb,0.35038e+03_rb,0.39347e+03_rb,0.45686e+03_rb,0.53383e+03_rb, &\n        & 0.49465e+03_rb,0.36205e+03_rb,0.26680e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.30318e+03_rb,0.34679e+03_rb,0.39040e+03_rb,0.45536e+03_rb,0.53125e+03_rb, &\n        & 0.48979e+03_rb,0.35818e+03_rb,0.26532e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.29953e+03_rb,0.34359e+03_rb,0.38767e+03_rb,0.45383e+03_rb,0.52882e+03_rb, &\n        & 0.48543e+03_rb,0.35479e+03_rb,0.26401e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.30567e+03_rb,0.34896e+03_rb,0.39226e+03_rb,0.45673e+03_rb,0.53243e+03_rb, &\n        & 0.49274e+03_rb,0.36052e+03_rb,0.26622e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.30094e+03_rb,0.34482e+03_rb,0.38872e+03_rb,0.45541e+03_rb,0.52945e+03_rb, &\n        & 0.48711e+03_rb,0.35609e+03_rb,0.26451e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.29682e+03_rb,0.34122e+03_rb,0.38564e+03_rb,0.45413e+03_rb,0.52674e+03_rb, &\n        & 0.48217e+03_rb,0.35231e+03_rb,0.26303e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.29320e+03_rb,0.33805e+03_rb,0.38294e+03_rb,0.45285e+03_rb,0.52426e+03_rb, &\n        & 0.47779e+03_rb,0.34904e+03_rb,0.26172e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.29000e+03_rb,0.33525e+03_rb,0.38055e+03_rb,0.45152e+03_rb,0.52191e+03_rb, &\n        & 0.47388e+03_rb,0.34618e+03_rb,0.26057e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.29581e+03_rb,0.34033e+03_rb,0.38489e+03_rb,0.45387e+03_rb,0.52555e+03_rb, &\n        & 0.48095e+03_rb,0.35139e+03_rb,0.26266e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.29159e+03_rb,0.33664e+03_rb,0.38173e+03_rb,0.45277e+03_rb,0.52268e+03_rb, &\n        & 0.47582e+03_rb,0.34759e+03_rb,0.26114e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.28794e+03_rb,0.33344e+03_rb,0.37901e+03_rb,0.45167e+03_rb,0.52008e+03_rb, &\n        & 0.47135e+03_rb,0.34436e+03_rb,0.25982e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.28475e+03_rb,0.33065e+03_rb,0.37663e+03_rb,0.45055e+03_rb,0.51765e+03_rb, &\n        & 0.46738e+03_rb,0.34157e+03_rb,0.25867e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.28193e+03_rb,0.32819e+03_rb,0.37453e+03_rb,0.44937e+03_rb,0.51538e+03_rb, &\n        & 0.46382e+03_rb,0.33916e+03_rb,0.25766e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.28708e+03_rb,0.33269e+03_rb,0.37836e+03_rb,0.45121e+03_rb,0.51885e+03_rb, &\n        & 0.47029e+03_rb,0.34361e+03_rb,0.25951e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.28336e+03_rb,0.32944e+03_rb,0.37559e+03_rb,0.45027e+03_rb,0.51611e+03_rb, &\n        & 0.46563e+03_rb,0.34037e+03_rb,0.25817e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.28016e+03_rb,0.32664e+03_rb,0.37320e+03_rb,0.44932e+03_rb,0.51361e+03_rb, &\n        & 0.46153e+03_rb,0.33765e+03_rb,0.25702e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.27737e+03_rb,0.32420e+03_rb,0.37112e+03_rb,0.44835e+03_rb,0.51133e+03_rb, &\n        & 0.45793e+03_rb,0.33532e+03_rb,0.25601e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.27492e+03_rb,0.32206e+03_rb,0.36930e+03_rb,0.44735e+03_rb,0.50922e+03_rb, &\n        & 0.45473e+03_rb,0.33330e+03_rb,0.25513e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.27807e+03_rb,0.32481e+03_rb,0.37164e+03_rb,0.44842e+03_rb,0.51141e+03_rb, &\n        & 0.45884e+03_rb,0.33590e+03_rb,0.25627e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.27502e+03_rb,0.32214e+03_rb,0.36937e+03_rb,0.44764e+03_rb,0.50894e+03_rb, &\n        & 0.45486e+03_rb,0.33338e+03_rb,0.25517e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.27240e+03_rb,0.31985e+03_rb,0.36742e+03_rb,0.44685e+03_rb,0.50671e+03_rb, &\n        & 0.45139e+03_rb,0.33123e+03_rb,0.25422e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.27012e+03_rb,0.31785e+03_rb,0.36572e+03_rb,0.44602e+03_rb,0.50464e+03_rb, &\n        & 0.44836e+03_rb,0.32939e+03_rb,0.25340e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.26811e+03_rb,0.31610e+03_rb,0.36422e+03_rb,0.44514e+03_rb,0.50273e+03_rb, &\n        & 0.44569e+03_rb,0.32779e+03_rb,0.25268e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.27068e+03_rb,0.31834e+03_rb,0.36613e+03_rb,0.44605e+03_rb,0.50476e+03_rb, &\n        & 0.44911e+03_rb,0.32983e+03_rb,0.25360e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.26818e+03_rb,0.31616e+03_rb,0.36428e+03_rb,0.44539e+03_rb,0.50255e+03_rb, &\n        & 0.44579e+03_rb,0.32784e+03_rb,0.25270e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.26603e+03_rb,0.31428e+03_rb,0.36268e+03_rb,0.44471e+03_rb,0.50054e+03_rb, &\n        & 0.44293e+03_rb,0.32614e+03_rb,0.25193e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.26417e+03_rb,0.31264e+03_rb,0.36129e+03_rb,0.44399e+03_rb,0.49874e+03_rb, &\n        & 0.44043e+03_rb,0.32468e+03_rb,0.25125e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.26252e+03_rb,0.31121e+03_rb,0.36005e+03_rb,0.44322e+03_rb,0.49710e+03_rb, &\n        & 0.43824e+03_rb,0.32341e+03_rb,0.25066e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.26463e+03_rb,0.31305e+03_rb,0.36163e+03_rb,0.44400e+03_rb,0.49889e+03_rb, &\n        & 0.44105e+03_rb,0.32504e+03_rb,0.25142e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.26258e+03_rb,0.31126e+03_rb,0.36010e+03_rb,0.44348e+03_rb,0.49698e+03_rb, &\n        & 0.43831e+03_rb,0.32345e+03_rb,0.25068e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.26082e+03_rb,0.30972e+03_rb,0.35880e+03_rb,0.44291e+03_rb,0.49519e+03_rb, &\n        & 0.43595e+03_rb,0.32210e+03_rb,0.25005e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.25929e+03_rb,0.30838e+03_rb,0.35766e+03_rb,0.44229e+03_rb,0.49360e+03_rb, &\n        & 0.43388e+03_rb,0.32093e+03_rb,0.24950e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.25795e+03_rb,0.30721e+03_rb,0.35666e+03_rb,0.44160e+03_rb,0.49217e+03_rb, &\n        & 0.43204e+03_rb,0.31991e+03_rb,0.24901e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.86913e+03_rb,0.80389e+03_rb,0.73864e+03_rb,0.67339e+03_rb,0.62239e+03_rb, &\n        & 0.67741e+03_rb,0.51596e+03_rb,0.43641e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.84711e+03_rb,0.78462e+03_rb,0.72212e+03_rb,0.65963e+03_rb,0.61530e+03_rb, &\n        & 0.66963e+03_rb,0.50564e+03_rb,0.43387e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.82734e+03_rb,0.76731e+03_rb,0.70729e+03_rb,0.64727e+03_rb,0.60932e+03_rb, &\n        & 0.66251e+03_rb,0.49688e+03_rb,0.43160e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.80948e+03_rb,0.75169e+03_rb,0.69390e+03_rb,0.63611e+03_rb,0.60420e+03_rb, &\n        & 0.65531e+03_rb,0.48930e+03_rb,0.42954e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.79327e+03_rb,0.73751e+03_rb,0.68174e+03_rb,0.62598e+03_rb,0.59980e+03_rb, &\n        & 0.64776e+03_rb,0.48275e+03_rb,0.42767e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.80291e+03_rb,0.74594e+03_rb,0.68897e+03_rb,0.63200e+03_rb,0.60547e+03_rb, &\n        & 0.65273e+03_rb,0.48660e+03_rb,0.42878e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.78403e+03_rb,0.72942e+03_rb,0.67481e+03_rb,0.62020e+03_rb,0.60133e+03_rb, &\n        & 0.64384e+03_rb,0.47915e+03_rb,0.42661e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.76711e+03_rb,0.71462e+03_rb,0.66212e+03_rb,0.60962e+03_rb,0.59788e+03_rb, &\n        & 0.63506e+03_rb,0.47284e+03_rb,0.42466e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.75187e+03_rb,0.70128e+03_rb,0.65069e+03_rb,0.60010e+03_rb,0.59472e+03_rb, &\n        & 0.62679e+03_rb,0.46742e+03_rb,0.42291e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.73807e+03_rb,0.68920e+03_rb,0.64034e+03_rb,0.59147e+03_rb,0.59165e+03_rb, &\n        & 0.61864e+03_rb,0.46272e+03_rb,0.42132e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.75084e+03_rb,0.70038e+03_rb,0.64992e+03_rb,0.59946e+03_rb,0.59732e+03_rb, &\n        & 0.62621e+03_rb,0.46707e+03_rb,0.42279e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.73427e+03_rb,0.68588e+03_rb,0.63749e+03_rb,0.58910e+03_rb,0.59435e+03_rb, &\n        & 0.61627e+03_rb,0.46147e+03_rb,0.42088e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.71948e+03_rb,0.67294e+03_rb,0.62640e+03_rb,0.57986e+03_rb,0.59145e+03_rb, &\n        & 0.60690e+03_rb,0.45675e+03_rb,0.41918e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.70620e+03_rb,0.66132e+03_rb,0.61644e+03_rb,0.57156e+03_rb,0.58863e+03_rb, &\n        & 0.59842e+03_rb,0.45269e+03_rb,0.41765e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.69421e+03_rb,0.65083e+03_rb,0.60744e+03_rb,0.56406e+03_rb,0.58580e+03_rb, &\n        & 0.59032e+03_rb,0.44923e+03_rb,0.41627e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.70765e+03_rb,0.66259e+03_rb,0.61753e+03_rb,0.57246e+03_rb,0.59114e+03_rb, &\n        & 0.59936e+03_rb,0.45313e+03_rb,0.41781e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.69300e+03_rb,0.64977e+03_rb,0.60654e+03_rb,0.56330e+03_rb,0.58834e+03_rb, &\n        & 0.58949e+03_rb,0.44892e+03_rb,0.41613e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.67997e+03_rb,0.63837e+03_rb,0.59677e+03_rb,0.55516e+03_rb,0.58563e+03_rb, &\n        & 0.58057e+03_rb,0.44538e+03_rb,0.41463e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.66833e+03_rb,0.62818e+03_rb,0.58803e+03_rb,0.54788e+03_rb,0.58292e+03_rb, &\n        & 0.57257e+03_rb,0.44238e+03_rb,0.41329e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.65784e+03_rb,0.61901e+03_rb,0.58017e+03_rb,0.54133e+03_rb,0.58031e+03_rb, &\n        & 0.56522e+03_rb,0.43982e+03_rb,0.41208e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.67096e+03_rb,0.63048e+03_rb,0.59001e+03_rb,0.54953e+03_rb,0.58521e+03_rb, &\n        & 0.57438e+03_rb,0.44304e+03_rb,0.41359e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.65799e+03_rb,0.61913e+03_rb,0.58028e+03_rb,0.54142e+03_rb,0.58256e+03_rb, &\n        & 0.56532e+03_rb,0.43984e+03_rb,0.41210e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.64651e+03_rb,0.60909e+03_rb,0.57167e+03_rb,0.53427e+03_rb,0.57997e+03_rb, &\n        & 0.55705e+03_rb,0.43718e+03_rb,0.41077e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.63629e+03_rb,0.60015e+03_rb,0.56401e+03_rb,0.52793e+03_rb,0.57742e+03_rb, &\n        & 0.54959e+03_rb,0.43482e+03_rb,0.40960e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.62713e+03_rb,0.59213e+03_rb,0.55713e+03_rb,0.52227e+03_rb,0.57480e+03_rb, &\n        & 0.54282e+03_rb,0.43271e+03_rb,0.40854e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.64019e+03_rb,0.60356e+03_rb,0.56693e+03_rb,0.53034e+03_rb,0.57955e+03_rb, &\n        & 0.55244e+03_rb,0.43572e+03_rb,0.41005e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.62864e+03_rb,0.59346e+03_rb,0.55827e+03_rb,0.52321e+03_rb,0.57700e+03_rb, &\n        & 0.54395e+03_rb,0.43306e+03_rb,0.40872e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.61849e+03_rb,0.58457e+03_rb,0.55065e+03_rb,0.51703e+03_rb,0.57439e+03_rb, &\n        & 0.53634e+03_rb,0.43072e+03_rb,0.40755e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.60948e+03_rb,0.57669e+03_rb,0.54390e+03_rb,0.51158e+03_rb,0.57170e+03_rb, &\n        & 0.52946e+03_rb,0.42865e+03_rb,0.40651e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.60143e+03_rb,0.56965e+03_rb,0.53786e+03_rb,0.50675e+03_rb,0.56897e+03_rb, &\n        & 0.52321e+03_rb,0.42679e+03_rb,0.40558e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.61399e+03_rb,0.58064e+03_rb,0.54728e+03_rb,0.51440e+03_rb,0.57380e+03_rb, &\n        & 0.53292e+03_rb,0.42969e+03_rb,0.40703e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.60371e+03_rb,0.57164e+03_rb,0.53957e+03_rb,0.50828e+03_rb,0.57103e+03_rb, &\n        & 0.52498e+03_rb,0.42732e+03_rb,0.40585e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.59471e+03_rb,0.56376e+03_rb,0.53282e+03_rb,0.50302e+03_rb,0.56836e+03_rb, &\n        & 0.51802e+03_rb,0.42525e+03_rb,0.40481e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.58676e+03_rb,0.55681e+03_rb,0.52686e+03_rb,0.49842e+03_rb,0.56580e+03_rb, &\n        & 0.51197e+03_rb,0.42342e+03_rb,0.40389e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.57970e+03_rb,0.55063e+03_rb,0.52156e+03_rb,0.49437e+03_rb,0.56333e+03_rb, &\n        & 0.50656e+03_rb,0.42179e+03_rb,0.40308e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.59158e+03_rb,0.56102e+03_rb,0.53047e+03_rb,0.50136e+03_rb,0.56762e+03_rb, &\n        & 0.51564e+03_rb,0.42452e+03_rb,0.40445e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.58242e+03_rb,0.55301e+03_rb,0.52360e+03_rb,0.49623e+03_rb,0.56499e+03_rb, &\n        & 0.50866e+03_rb,0.42242e+03_rb,0.40339e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.57445e+03_rb,0.54604e+03_rb,0.51762e+03_rb,0.49188e+03_rb,0.56245e+03_rb, &\n        & 0.50238e+03_rb,0.42058e+03_rb,0.40248e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.56745e+03_rb,0.53991e+03_rb,0.51237e+03_rb,0.48811e+03_rb,0.55998e+03_rb, &\n        & 0.49675e+03_rb,0.41897e+03_rb,0.40167e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.56125e+03_rb,0.53448e+03_rb,0.50772e+03_rb,0.48477e+03_rb,0.55757e+03_rb, &\n        & 0.49178e+03_rb,0.41754e+03_rb,0.40096e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.57249e+03_rb,0.54432e+03_rb,0.51615e+03_rb,0.49103e+03_rb,0.56159e+03_rb, &\n        & 0.50080e+03_rb,0.42013e+03_rb,0.40225e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.56432e+03_rb,0.53718e+03_rb,0.51003e+03_rb,0.48678e+03_rb,0.55899e+03_rb, &\n        & 0.49424e+03_rb,0.41825e+03_rb,0.40131e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.55726e+03_rb,0.53099e+03_rb,0.50473e+03_rb,0.48321e+03_rb,0.55650e+03_rb, &\n        & 0.48858e+03_rb,0.41662e+03_rb,0.40050e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.55108e+03_rb,0.52559e+03_rb,0.50010e+03_rb,0.48011e+03_rb,0.55416e+03_rb, &\n        & 0.48367e+03_rb,0.41520e+03_rb,0.39978e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.54564e+03_rb,0.52083e+03_rb,0.49601e+03_rb,0.47737e+03_rb,0.55194e+03_rb, &\n        & 0.47938e+03_rb,0.41394e+03_rb,0.39916e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.55559e+03_rb,0.52954e+03_rb,0.50348e+03_rb,0.48256e+03_rb,0.55544e+03_rb, &\n        & 0.48725e+03_rb,0.41624e+03_rb,0.40030e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.54839e+03_rb,0.52324e+03_rb,0.49808e+03_rb,0.47910e+03_rb,0.55295e+03_rb, &\n        & 0.48155e+03_rb,0.41458e+03_rb,0.39948e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.54220e+03_rb,0.51781e+03_rb,0.49343e+03_rb,0.47621e+03_rb,0.55067e+03_rb, &\n        & 0.47667e+03_rb,0.41315e+03_rb,0.39876e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.53680e+03_rb,0.51310e+03_rb,0.48939e+03_rb,0.47371e+03_rb,0.54855e+03_rb, &\n        & 0.47238e+03_rb,0.41191e+03_rb,0.39814e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.53207e+03_rb,0.50895e+03_rb,0.48584e+03_rb,0.47148e+03_rb,0.54655e+03_rb, &\n        & 0.46857e+03_rb,0.41082e+03_rb,0.39760e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.53816e+03_rb,0.51428e+03_rb,0.49041e+03_rb,0.47455e+03_rb,0.54857e+03_rb, &\n        & 0.47346e+03_rb,0.41222e+03_rb,0.39830e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.53226e+03_rb,0.50912e+03_rb,0.48598e+03_rb,0.47200e+03_rb,0.54640e+03_rb, &\n        & 0.46874e+03_rb,0.41086e+03_rb,0.39762e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.52718e+03_rb,0.50468e+03_rb,0.48217e+03_rb,0.46982e+03_rb,0.54436e+03_rb, &\n        & 0.46486e+03_rb,0.40969e+03_rb,0.39703e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.52277e+03_rb,0.50081e+03_rb,0.47886e+03_rb,0.46790e+03_rb,0.54248e+03_rb, &\n        & 0.46109e+03_rb,0.40868e+03_rb,0.39652e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.51889e+03_rb,0.49742e+03_rb,0.47595e+03_rb,0.46618e+03_rb,0.54076e+03_rb, &\n        & 0.45793e+03_rb,0.40778e+03_rb,0.39608e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.52385e+03_rb,0.50177e+03_rb,0.47968e+03_rb,0.46863e+03_rb,0.54244e+03_rb, &\n        & 0.46202e+03_rb,0.40893e+03_rb,0.39665e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.51902e+03_rb,0.49754e+03_rb,0.47606e+03_rb,0.46673e+03_rb,0.54050e+03_rb, &\n        & 0.45805e+03_rb,0.40782e+03_rb,0.39609e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.51487e+03_rb,0.49390e+03_rb,0.47294e+03_rb,0.46509e+03_rb,0.53868e+03_rb, &\n        & 0.45465e+03_rb,0.40686e+03_rb,0.39561e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.51125e+03_rb,0.49074e+03_rb,0.47022e+03_rb,0.46362e+03_rb,0.53703e+03_rb, &\n        & 0.45171e+03_rb,0.40602e+03_rb,0.39520e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.50807e+03_rb,0.48796e+03_rb,0.46784e+03_rb,0.46227e+03_rb,0.53558e+03_rb, &\n        & 0.44916e+03_rb,0.40529e+03_rb,0.39483e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.51214e+03_rb,0.49152e+03_rb,0.47089e+03_rb,0.46425e+03_rb,0.53698e+03_rb, &\n        & 0.45243e+03_rb,0.40623e+03_rb,0.39530e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.50819e+03_rb,0.48806e+03_rb,0.46793e+03_rb,0.46281e+03_rb,0.53522e+03_rb, &\n        & 0.44925e+03_rb,0.40532e+03_rb,0.39485e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.50478e+03_rb,0.48508e+03_rb,0.46537e+03_rb,0.46157e+03_rb,0.53378e+03_rb, &\n        & 0.44654e+03_rb,0.40453e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.50182e+03_rb,0.48249e+03_rb,0.46315e+03_rb,0.46044e+03_rb,0.53251e+03_rb, &\n        & 0.44422e+03_rb,0.40385e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.49922e+03_rb,0.48021e+03_rb,0.46120e+03_rb,0.45936e+03_rb,0.53137e+03_rb, &\n        & 0.44221e+03_rb,0.40325e+03_rb,0.39381e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.13243e+04_rb,0.11799e+04_rb,0.10354e+04_rb,0.89093e+03_rb,0.74647e+03_rb, &\n        & 0.71044e+03_rb,0.61021e+03_rb,0.64069e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.12908e+04_rb,0.11505e+04_rb,0.10102e+04_rb,0.86996e+03_rb,0.72969e+03_rb, &\n        & 0.70292e+03_rb,0.60750e+03_rb,0.63934e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.12606e+04_rb,0.11241e+04_rb,0.98763e+03_rb,0.85113e+03_rb,0.71463e+03_rb, &\n        & 0.69451e+03_rb,0.60507e+03_rb,0.63812e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.12334e+04_rb,0.11003e+04_rb,0.96722e+03_rb,0.83412e+03_rb,0.70102e+03_rb, &\n        & 0.68564e+03_rb,0.60287e+03_rb,0.63703e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.12087e+04_rb,0.10787e+04_rb,0.94870e+03_rb,0.81869e+03_rb,0.68867e+03_rb, &\n        & 0.67724e+03_rb,0.60088e+03_rb,0.63603e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.12234e+04_rb,0.10916e+04_rb,0.95972e+03_rb,0.82787e+03_rb,0.69602e+03_rb, &\n        & 0.68345e+03_rb,0.60207e+03_rb,0.63662e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.11946e+04_rb,0.10664e+04_rb,0.93814e+03_rb,0.80988e+03_rb,0.68163e+03_rb, &\n        & 0.67225e+03_rb,0.59975e+03_rb,0.63546e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.11689e+04_rb,0.10438e+04_rb,0.91881e+03_rb,0.79377e+03_rb,0.66882e+03_rb, &\n        & 0.66165e+03_rb,0.59767e+03_rb,0.63442e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.11456e+04_rb,0.10235e+04_rb,0.90139e+03_rb,0.77926e+03_rb,0.65759e+03_rb, &\n        & 0.65058e+03_rb,0.59579e+03_rb,0.63348e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.11246e+04_rb,0.10051e+04_rb,0.88561e+03_rb,0.76611e+03_rb,0.64778e+03_rb, &\n        & 0.64016e+03_rb,0.59410e+03_rb,0.63264e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.11441e+04_rb,0.10221e+04_rb,0.90021e+03_rb,0.77828e+03_rb,0.65728e+03_rb, &\n        & 0.64981e+03_rb,0.59567e+03_rb,0.63342e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.11188e+04_rb,0.10001e+04_rb,0.88128e+03_rb,0.76250e+03_rb,0.64582e+03_rb, &\n        & 0.63739e+03_rb,0.59363e+03_rb,0.63240e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.10963e+04_rb,0.98033e+03_rb,0.86437e+03_rb,0.74841e+03_rb,0.63611e+03_rb, &\n        & 0.62581e+03_rb,0.59181e+03_rb,0.63149e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.10761e+04_rb,0.96263e+03_rb,0.84920e+03_rb,0.73577e+03_rb,0.62780e+03_rb, &\n        & 0.61513e+03_rb,0.59018e+03_rb,0.63068e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.10578e+04_rb,0.94664e+03_rb,0.83549e+03_rb,0.72435e+03_rb,0.62066e+03_rb, &\n        & 0.60588e+03_rb,0.58871e+03_rb,0.62994e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.10783e+04_rb,0.96456e+03_rb,0.85086e+03_rb,0.73715e+03_rb,0.62971e+03_rb, &\n        & 0.61628e+03_rb,0.59036e+03_rb,0.63077e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.10559e+04_rb,0.94502e+03_rb,0.83411e+03_rb,0.72319e+03_rb,0.62145e+03_rb, &\n        & 0.60490e+03_rb,0.58856e+03_rb,0.62987e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.10361e+04_rb,0.92766e+03_rb,0.81923e+03_rb,0.71079e+03_rb,0.61457e+03_rb, &\n        & 0.59452e+03_rb,0.58696e+03_rb,0.62907e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.10183e+04_rb,0.91213e+03_rb,0.80591e+03_rb,0.69970e+03_rb,0.60876e+03_rb, &\n        & 0.58559e+03_rb,0.58552e+03_rb,0.62835e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.10024e+04_rb,0.89816e+03_rb,0.79394e+03_rb,0.68972e+03_rb,0.60374e+03_rb, &\n        & 0.57800e+03_rb,0.58424e+03_rb,0.62771e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.10224e+04_rb,0.91564e+03_rb,0.80892e+03_rb,0.70221e+03_rb,0.61144e+03_rb, &\n        & 0.58757e+03_rb,0.58585e+03_rb,0.62851e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.10026e+04_rb,0.89835e+03_rb,0.79410e+03_rb,0.68985e+03_rb,0.60588e+03_rb, &\n        & 0.57810e+03_rb,0.58425e+03_rb,0.62772e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.98511e+03_rb,0.88305e+03_rb,0.78099e+03_rb,0.67893e+03_rb,0.60138e+03_rb, &\n        & 0.57034e+03_rb,0.58284e+03_rb,0.62701e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.96954e+03_rb,0.86942e+03_rb,0.76931e+03_rb,0.66919e+03_rb,0.59759e+03_rb, &\n        & 0.56378e+03_rb,0.58159e+03_rb,0.62638e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.95557e+03_rb,0.85720e+03_rb,0.75883e+03_rb,0.66046e+03_rb,0.59436e+03_rb, &\n        & 0.55823e+03_rb,0.58046e+03_rb,0.62582e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.97547e+03_rb,0.87461e+03_rb,0.77376e+03_rb,0.67290e+03_rb,0.60045e+03_rb, &\n        & 0.56624e+03_rb,0.58207e+03_rb,0.62662e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.95788e+03_rb,0.85922e+03_rb,0.76057e+03_rb,0.66191e+03_rb,0.59710e+03_rb, &\n        & 0.55912e+03_rb,0.58065e+03_rb,0.62591e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.94241e+03_rb,0.84568e+03_rb,0.74896e+03_rb,0.65223e+03_rb,0.59434e+03_rb, &\n        & 0.55328e+03_rb,0.57940e+03_rb,0.62529e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.92868e+03_rb,0.83367e+03_rb,0.73866e+03_rb,0.64365e+03_rb,0.59182e+03_rb, &\n        & 0.54839e+03_rb,0.57829e+03_rb,0.62473e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.91642e+03_rb,0.82295e+03_rb,0.72947e+03_rb,0.63599e+03_rb,0.58948e+03_rb, &\n        & 0.54428e+03_rb,0.57730e+03_rb,0.62424e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.93556e+03_rb,0.83969e+03_rb,0.74382e+03_rb,0.64795e+03_rb,0.59420e+03_rb, &\n        & 0.55081e+03_rb,0.57885e+03_rb,0.62501e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.91989e+03_rb,0.82598e+03_rb,0.73207e+03_rb,0.63816e+03_rb,0.59179e+03_rb, &\n        & 0.54542e+03_rb,0.57758e+03_rb,0.62438e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.90618e+03_rb,0.81398e+03_rb,0.72179e+03_rb,0.62959e+03_rb,0.58955e+03_rb, &\n        & 0.54102e+03_rb,0.57648e+03_rb,0.62383e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.89407e+03_rb,0.80339e+03_rb,0.71271e+03_rb,0.62202e+03_rb,0.58737e+03_rb, &\n        & 0.53729e+03_rb,0.57550e+03_rb,0.62334e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.88331e+03_rb,0.79397e+03_rb,0.70463e+03_rb,0.61530e+03_rb,0.58524e+03_rb, &\n        & 0.53413e+03_rb,0.57463e+03_rb,0.62290e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.90140e+03_rb,0.80981e+03_rb,0.71821e+03_rb,0.62661e+03_rb,0.58941e+03_rb, &\n        & 0.53953e+03_rb,0.57609e+03_rb,0.62363e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.88745e+03_rb,0.79760e+03_rb,0.70774e+03_rb,0.61789e+03_rb,0.58727e+03_rb, &\n        & 0.53533e+03_rb,0.57497e+03_rb,0.62307e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.87531e+03_rb,0.78697e+03_rb,0.69863e+03_rb,0.61030e+03_rb,0.58522e+03_rb, &\n        & 0.53203e+03_rb,0.57399e+03_rb,0.62258e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.86464e+03_rb,0.77763e+03_rb,0.69063e+03_rb,0.60363e+03_rb,0.58317e+03_rb, &\n        & 0.52938e+03_rb,0.57313e+03_rb,0.62215e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.85519e+03_rb,0.76937e+03_rb,0.68354e+03_rb,0.59772e+03_rb,0.58120e+03_rb, &\n        & 0.52712e+03_rb,0.57236e+03_rb,0.62177e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.87232e+03_rb,0.78435e+03_rb,0.69639e+03_rb,0.60843e+03_rb,0.58508e+03_rb, &\n        & 0.53128e+03_rb,0.57375e+03_rb,0.62246e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.85988e+03_rb,0.77347e+03_rb,0.68706e+03_rb,0.60065e+03_rb,0.58302e+03_rb, &\n        & 0.52823e+03_rb,0.57274e+03_rb,0.62196e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.84911e+03_rb,0.76405e+03_rb,0.67898e+03_rb,0.59392e+03_rb,0.58102e+03_rb, &\n        & 0.52572e+03_rb,0.57187e+03_rb,0.62153e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.83970e+03_rb,0.75581e+03_rb,0.67193e+03_rb,0.58804e+03_rb,0.57906e+03_rb, &\n        & 0.52364e+03_rb,0.57111e+03_rb,0.62115e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.83140e+03_rb,0.74855e+03_rb,0.66571e+03_rb,0.58286e+03_rb,0.57713e+03_rb, &\n        & 0.52190e+03_rb,0.57045e+03_rb,0.62081e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.84657e+03_rb,0.76183e+03_rb,0.67708e+03_rb,0.59234e+03_rb,0.58061e+03_rb, &\n        & 0.52515e+03_rb,0.57167e+03_rb,0.62142e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.83560e+03_rb,0.75223e+03_rb,0.66886e+03_rb,0.58548e+03_rb,0.57865e+03_rb, &\n        & 0.52276e+03_rb,0.57078e+03_rb,0.62098e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.82616e+03_rb,0.74397e+03_rb,0.66177e+03_rb,0.57958e+03_rb,0.57663e+03_rb, &\n        & 0.52085e+03_rb,0.57002e+03_rb,0.62060e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.81794e+03_rb,0.73678e+03_rb,0.65561e+03_rb,0.57444e+03_rb,0.57466e+03_rb, &\n        & 0.51933e+03_rb,0.56936e+03_rb,0.62027e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.81073e+03_rb,0.73047e+03_rb,0.65020e+03_rb,0.56994e+03_rb,0.57276e+03_rb, &\n        & 0.51811e+03_rb,0.56878e+03_rb,0.61998e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.82001e+03_rb,0.73859e+03_rb,0.65716e+03_rb,0.57574e+03_rb,0.57531e+03_rb, &\n        & 0.51970e+03_rb,0.56953e+03_rb,0.62035e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.81102e+03_rb,0.73072e+03_rb,0.65042e+03_rb,0.57012e+03_rb,0.57326e+03_rb, &\n        & 0.51814e+03_rb,0.56880e+03_rb,0.61999e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.80328e+03_rb,0.72395e+03_rb,0.64462e+03_rb,0.56528e+03_rb,0.57135e+03_rb, &\n        & 0.51670e+03_rb,0.56818e+03_rb,0.61968e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.79655e+03_rb,0.71806e+03_rb,0.63957e+03_rb,0.56108e+03_rb,0.56956e+03_rb, &\n        & 0.51595e+03_rb,0.56763e+03_rb,0.61941e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.79064e+03_rb,0.71289e+03_rb,0.63514e+03_rb,0.55738e+03_rb,0.56781e+03_rb, &\n        & 0.51517e+03_rb,0.56716e+03_rb,0.61917e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.79821e+03_rb,0.71951e+03_rb,0.64081e+03_rb,0.56211e+03_rb,0.57002e+03_rb, &\n        & 0.51613e+03_rb,0.56777e+03_rb,0.61947e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.79085e+03_rb,0.71307e+03_rb,0.63529e+03_rb,0.55751e+03_rb,0.56813e+03_rb, &\n        & 0.51519e+03_rb,0.56717e+03_rb,0.61918e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.78452e+03_rb,0.70753e+03_rb,0.63054e+03_rb,0.55355e+03_rb,0.56648e+03_rb, &\n        & 0.51441e+03_rb,0.56666e+03_rb,0.61892e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.77901e+03_rb,0.70271e+03_rb,0.62641e+03_rb,0.55011e+03_rb,0.56489e+03_rb, &\n        & 0.51374e+03_rb,0.56622e+03_rb,0.61870e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.77417e+03_rb,0.69847e+03_rb,0.62278e+03_rb,0.54708e+03_rb,0.56325e+03_rb, &\n        & 0.51315e+03_rb,0.56583e+03_rb,0.61850e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.78036e+03_rb,0.70389e+03_rb,0.62743e+03_rb,0.55096e+03_rb,0.56495e+03_rb, &\n        & 0.51390e+03_rb,0.56633e+03_rb,0.61875e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.77434e+03_rb,0.69862e+03_rb,0.62291e+03_rb,0.54719e+03_rb,0.56343e+03_rb, &\n        & 0.51318e+03_rb,0.56584e+03_rb,0.61851e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.76915e+03_rb,0.69408e+03_rb,0.61902e+03_rb,0.54395e+03_rb,0.56189e+03_rb, &\n        & 0.51255e+03_rb,0.56542e+03_rb,0.61830e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.76464e+03_rb,0.69014e+03_rb,0.61563e+03_rb,0.54113e+03_rb,0.56027e+03_rb, &\n        & 0.51200e+03_rb,0.56506e+03_rb,0.61812e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.76068e+03_rb,0.68667e+03_rb,0.61266e+03_rb,0.53865e+03_rb,0.55865e+03_rb, &\n        & 0.51152e+03_rb,0.56474e+03_rb,0.61796e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.16832e+04_rb,0.14832e+04_rb,0.12833e+04_rb,0.10834e+04_rb,0.88343e+03_rb, &\n        & 0.73047e+03_rb,0.75923e+03_rb,0.85568e+03_rb,0.94989e+03_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.16405e+04_rb,0.14459e+04_rb,0.12513e+04_rb,0.10567e+04_rb,0.86211e+03_rb, &\n        & 0.72257e+03_rb,0.75791e+03_rb,0.85457e+03_rb,0.94915e+03_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.16022e+04_rb,0.14124e+04_rb,0.12226e+04_rb,0.10328e+04_rb,0.84296e+03_rb, &\n        & 0.71182e+03_rb,0.75643e+03_rb,0.85315e+03_rb,0.94805e+03_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.15677e+04_rb,0.13822e+04_rb,0.11967e+04_rb,0.10112e+04_rb,0.82566e+03_rb, &\n        & 0.70003e+03_rb,0.75475e+03_rb,0.85145e+03_rb,0.94659e+03_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.15363e+04_rb,0.13547e+04_rb,0.11731e+04_rb,0.99155e+03_rb,0.80997e+03_rb, &\n        & 0.68802e+03_rb,0.75277e+03_rb,0.84941e+03_rb,0.94478e+03_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.15549e+04_rb,0.13710e+04_rb,0.11871e+04_rb,0.10032e+04_rb,0.81930e+03_rb, &\n        & 0.69644e+03_rb,0.75599e+03_rb,0.85402e+03_rb,0.95009e+03_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.15184e+04_rb,0.13390e+04_rb,0.11597e+04_rb,0.98036e+03_rb,0.80102e+03_rb, &\n        & 0.68214e+03_rb,0.75486e+03_rb,0.85308e+03_rb,0.94950e+03_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.14856e+04_rb,0.13104e+04_rb,0.11351e+04_rb,0.95988e+03_rb,0.78464e+03_rb, &\n        & 0.67032e+03_rb,0.75359e+03_rb,0.85186e+03_rb,0.94855e+03_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.14561e+04_rb,0.12845e+04_rb,0.11130e+04_rb,0.94143e+03_rb,0.76988e+03_rb, &\n        & 0.66240e+03_rb,0.75215e+03_rb,0.85037e+03_rb,0.94724e+03_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.14294e+04_rb,0.12611e+04_rb,0.10929e+04_rb,0.92472e+03_rb,0.75651e+03_rb, &\n        & 0.65660e+03_rb,0.75042e+03_rb,0.84857e+03_rb,0.94557e+03_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.14541e+04_rb,0.12828e+04_rb,0.11115e+04_rb,0.94019e+03_rb,0.76889e+03_rb, &\n        & 0.66226e+03_rb,0.75340e+03_rb,0.85268e+03_rb,0.95029e+03_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.14220e+04_rb,0.12547e+04_rb,0.10874e+04_rb,0.92013e+03_rb,0.75284e+03_rb, &\n        & 0.65611e+03_rb,0.75249e+03_rb,0.85200e+03_rb,0.94990e+03_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.13934e+04_rb,0.12297e+04_rb,0.10659e+04_rb,0.90223e+03_rb,0.73852e+03_rb, &\n        & 0.65222e+03_rb,0.75143e+03_rb,0.85101e+03_rb,0.94916e+03_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.13676e+04_rb,0.12071e+04_rb,0.10467e+04_rb,0.88615e+03_rb,0.72566e+03_rb, &\n        & 0.64945e+03_rb,0.75024e+03_rb,0.84977e+03_rb,0.94807e+03_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.13444e+04_rb,0.11868e+04_rb,0.10292e+04_rb,0.87164e+03_rb,0.71405e+03_rb, &\n        & 0.64733e+03_rb,0.74880e+03_rb,0.84822e+03_rb,0.94662e+03_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.13705e+04_rb,0.12096e+04_rb,0.10488e+04_rb,0.88791e+03_rb,0.72707e+03_rb, &\n        & 0.64976e+03_rb,0.75119e+03_rb,0.85151e+03_rb,0.95037e+03_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.13421e+04_rb,0.11848e+04_rb,0.10275e+04_rb,0.87017e+03_rb,0.71287e+03_rb, &\n        & 0.64785e+03_rb,0.75047e+03_rb,0.85104e+03_rb,0.95019e+03_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.13169e+04_rb,0.11627e+04_rb,0.10086e+04_rb,0.85441e+03_rb,0.70026e+03_rb, &\n        & 0.64696e+03_rb,0.74964e+03_rb,0.85031e+03_rb,0.94968e+03_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.12943e+04_rb,0.11430e+04_rb,0.99164e+03_rb,0.84031e+03_rb,0.68898e+03_rb, &\n        & 0.64601e+03_rb,0.74865e+03_rb,0.84930e+03_rb,0.94882e+03_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.12740e+04_rb,0.11252e+04_rb,0.97642e+03_rb,0.82763e+03_rb,0.67884e+03_rb, &\n        & 0.64496e+03_rb,0.74747e+03_rb,0.84802e+03_rb,0.94760e+03_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.12994e+04_rb,0.11474e+04_rb,0.99546e+03_rb,0.84350e+03_rb,0.69153e+03_rb, &\n        & 0.64599e+03_rb,0.74922e+03_rb,0.85040e+03_rb,0.95032e+03_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.12743e+04_rb,0.11254e+04_rb,0.97662e+03_rb,0.82780e+03_rb,0.67897e+03_rb, &\n        & 0.64529e+03_rb,0.74869e+03_rb,0.85015e+03_rb,0.95034e+03_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.12521e+04_rb,0.11060e+04_rb,0.95996e+03_rb,0.81391e+03_rb,0.66786e+03_rb, &\n        & 0.64458e+03_rb,0.74805e+03_rb,0.84965e+03_rb,0.95004e+03_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.12323e+04_rb,0.10887e+04_rb,0.94511e+03_rb,0.80154e+03_rb,0.65797e+03_rb, &\n        & 0.64380e+03_rb,0.74727e+03_rb,0.84886e+03_rb,0.94940e+03_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.12145e+04_rb,0.10732e+04_rb,0.93180e+03_rb,0.79045e+03_rb,0.64909e+03_rb, &\n        & 0.64294e+03_rb,0.74629e+03_rb,0.84781e+03_rb,0.94841e+03_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.12398e+04_rb,0.10953e+04_rb,0.95077e+03_rb,0.80625e+03_rb,0.66174e+03_rb, &\n        & 0.64362e+03_rb,0.74747e+03_rb,0.84935e+03_rb,0.95014e+03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.12174e+04_rb,0.10757e+04_rb,0.93400e+03_rb,0.79228e+03_rb,0.65056e+03_rb, &\n        & 0.64308e+03_rb,0.74712e+03_rb,0.84932e+03_rb,0.95036e+03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.11978e+04_rb,0.10585e+04_rb,0.91925e+03_rb,0.77999e+03_rb,0.64087e+03_rb, &\n        & 0.64253e+03_rb,0.74666e+03_rb,0.84902e+03_rb,0.95027e+03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.11803e+04_rb,0.10432e+04_rb,0.90616e+03_rb,0.76908e+03_rb,0.63262e+03_rb, &\n        & 0.64192e+03_rb,0.74606e+03_rb,0.84847e+03_rb,0.94985e+03_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.11647e+04_rb,0.10296e+04_rb,0.89448e+03_rb,0.75935e+03_rb,0.62549e+03_rb, &\n        & 0.64122e+03_rb,0.74529e+03_rb,0.84763e+03_rb,0.94909e+03_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.11891e+04_rb,0.10509e+04_rb,0.91272e+03_rb,0.77455e+03_rb,0.63693e+03_rb, &\n        & 0.64154e+03_rb,0.74584e+03_rb,0.84830e+03_rb,0.94975e+03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.11692e+04_rb,0.10335e+04_rb,0.89779e+03_rb,0.76210e+03_rb,0.62795e+03_rb, &\n        & 0.64115e+03_rb,0.74575e+03_rb,0.84848e+03_rb,0.95025e+03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.11517e+04_rb,0.10182e+04_rb,0.88471e+03_rb,0.75121e+03_rb,0.62051e+03_rb, &\n        & 0.64074e+03_rb,0.74542e+03_rb,0.84840e+03_rb,0.95037e+03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.11363e+04_rb,0.10048e+04_rb,0.87317e+03_rb,0.74159e+03_rb,0.61432e+03_rb, &\n        & 0.64028e+03_rb,0.74499e+03_rb,0.84806e+03_rb,0.95015e+03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.11227e+04_rb,0.99279e+03_rb,0.86291e+03_rb,0.73304e+03_rb,0.60908e+03_rb, &\n        & 0.63974e+03_rb,0.74440e+03_rb,0.84744e+03_rb,0.94961e+03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.11457e+04_rb,0.10129e+04_rb,0.88017e+03_rb,0.74742e+03_rb,0.61848e+03_rb, &\n        & 0.63968e+03_rb,0.74433e+03_rb,0.84725e+03_rb,0.94927e+03_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.11279e+04_rb,0.99740e+03_rb,0.86687e+03_rb,0.73633e+03_rb,0.61183e+03_rb, &\n        & 0.63944e+03_rb,0.74439e+03_rb,0.84765e+03_rb,0.94999e+03_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.11125e+04_rb,0.98389e+03_rb,0.85529e+03_rb,0.72668e+03_rb,0.60652e+03_rb, &\n        & 0.63917e+03_rb,0.74428e+03_rb,0.84777e+03_rb,0.95034e+03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.10989e+04_rb,0.97202e+03_rb,0.84512e+03_rb,0.71821e+03_rb,0.60224e+03_rb, &\n        & 0.63885e+03_rb,0.74401e+03_rb,0.84763e+03_rb,0.95032e+03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.10869e+04_rb,0.96152e+03_rb,0.83611e+03_rb,0.71070e+03_rb,0.59867e+03_rb, &\n        & 0.63844e+03_rb,0.74359e+03_rb,0.84721e+03_rb,0.94997e+03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.11087e+04_rb,0.98057e+03_rb,0.85244e+03_rb,0.72431e+03_rb,0.60583e+03_rb, &\n        & 0.63802e+03_rb,0.74290e+03_rb,0.84619e+03_rb,0.94868e+03_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.10929e+04_rb,0.96673e+03_rb,0.84058e+03_rb,0.71443e+03_rb,0.60128e+03_rb, &\n        & 0.63792e+03_rb,0.74318e+03_rb,0.84681e+03_rb,0.94962e+03_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.10792e+04_rb,0.95475e+03_rb,0.83031e+03_rb,0.70587e+03_rb,0.59784e+03_rb, &\n        & 0.63778e+03_rb,0.74323e+03_rb,0.84713e+03_rb,0.95019e+03_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.10672e+04_rb,0.94429e+03_rb,0.82134e+03_rb,0.69840e+03_rb,0.59517e+03_rb, &\n        & 0.63759e+03_rb,0.74313e+03_rb,0.84718e+03_rb,0.95037e+03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.10567e+04_rb,0.93506e+03_rb,0.81344e+03_rb,0.69181e+03_rb,0.59278e+03_rb, &\n        & 0.63730e+03_rb,0.74285e+03_rb,0.84695e+03_rb,0.95021e+03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.10760e+04_rb,0.95193e+03_rb,0.82790e+03_rb,0.70386e+03_rb,0.59768e+03_rb, &\n        & 0.63651e+03_rb,0.74157e+03_rb,0.84519e+03_rb,0.94809e+03_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.10620e+04_rb,0.93974e+03_rb,0.81744e+03_rb,0.69515e+03_rb,0.59477e+03_rb, &\n        & 0.63656e+03_rb,0.74203e+03_rb,0.84600e+03_rb,0.94921e+03_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.10500e+04_rb,0.92923e+03_rb,0.80844e+03_rb,0.68764e+03_rb,0.59242e+03_rb, &\n        & 0.63654e+03_rb,0.74226e+03_rb,0.84650e+03_rb,0.94996e+03_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.10396e+04_rb,0.92010e+03_rb,0.80061e+03_rb,0.68112e+03_rb,0.59042e+03_rb, &\n        & 0.63645e+03_rb,0.74230e+03_rb,0.84672e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.10304e+04_rb,0.91207e+03_rb,0.79373e+03_rb,0.67539e+03_rb,0.58849e+03_rb, &\n        & 0.63628e+03_rb,0.74216e+03_rb,0.84665e+03_rb,0.95033e+03_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.10422e+04_rb,0.92239e+03_rb,0.80258e+03_rb,0.68276e+03_rb,0.59118e+03_rb, &\n        & 0.63525e+03_rb,0.74065e+03_rb,0.84470e+03_rb,0.94808e+03_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.10308e+04_rb,0.91240e+03_rb,0.79401e+03_rb,0.67562e+03_rb,0.58920e+03_rb, &\n        & 0.63540e+03_rb,0.74118e+03_rb,0.84554e+03_rb,0.94920e+03_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.10210e+04_rb,0.90379e+03_rb,0.78663e+03_rb,0.66947e+03_rb,0.58737e+03_rb, &\n        & 0.63545e+03_rb,0.74147e+03_rb,0.84609e+03_rb,0.94995e+03_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.10124e+04_rb,0.89631e+03_rb,0.78022e+03_rb,0.66413e+03_rb,0.58569e+03_rb, &\n        & 0.63543e+03_rb,0.74156e+03_rb,0.84634e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.10049e+04_rb,0.88974e+03_rb,0.77458e+03_rb,0.65943e+03_rb,0.58398e+03_rb, &\n        & 0.63532e+03_rb,0.74146e+03_rb,0.84628e+03_rb,0.95033e+03_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.10145e+04_rb,0.89815e+03_rb,0.78180e+03_rb,0.66544e+03_rb,0.58616e+03_rb, &\n        & 0.63421e+03_rb,0.73990e+03_rb,0.84430e+03_rb,0.94808e+03_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.10052e+04_rb,0.88997e+03_rb,0.77478e+03_rb,0.65960e+03_rb,0.58451e+03_rb, &\n        & 0.63444e+03_rb,0.74048e+03_rb,0.84518e+03_rb,0.94921e+03_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.99710e+03_rb,0.88292e+03_rb,0.76874e+03_rb,0.65457e+03_rb,0.58265e+03_rb, &\n        & 0.63457e+03_rb,0.74082e+03_rb,0.84574e+03_rb,0.94995e+03_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.99010e+03_rb,0.87679e+03_rb,0.76349e+03_rb,0.65019e+03_rb,0.58054e+03_rb, &\n        & 0.63460e+03_rb,0.74095e+03_rb,0.84600e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.98395e+03_rb,0.87141e+03_rb,0.75888e+03_rb,0.64634e+03_rb,0.57844e+03_rb, &\n        & 0.63453e+03_rb,0.74089e+03_rb,0.84598e+03_rb,0.95033e+03_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.99182e+03_rb,0.87830e+03_rb,0.76478e+03_rb,0.65127e+03_rb,0.58122e+03_rb, &\n        & 0.63336e+03_rb,0.73928e+03_rb,0.84397e+03_rb,0.94808e+03_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.98416e+03_rb,0.87160e+03_rb,0.75904e+03_rb,0.64648e+03_rb,0.57888e+03_rb, &\n        & 0.63366e+03_rb,0.73991e+03_rb,0.84487e+03_rb,0.94921e+03_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.97757e+03_rb,0.86583e+03_rb,0.75410e+03_rb,0.64236e+03_rb,0.57650e+03_rb, &\n        & 0.63384e+03_rb,0.74029e+03_rb,0.84546e+03_rb,0.94996e+03_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.97184e+03_rb,0.86082e+03_rb,0.74980e+03_rb,0.63878e+03_rb,0.57428e+03_rb, &\n        & 0.63391e+03_rb,0.74045e+03_rb,0.84574e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.96680e+03_rb,0.85641e+03_rb,0.74602e+03_rb,0.63563e+03_rb,0.57218e+03_rb, &\n        & 0.63388e+03_rb,0.74043e+03_rb,0.84574e+03_rb,0.95033e+03_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.18845e+04_rb,0.16548e+04_rb,0.14251e+04_rb,0.11953e+04_rb,0.96557e+03_rb, &\n        & 0.74301e+03_rb,0.82697e+03_rb,0.94964e+03_rb,0.10740e+04_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.18367e+04_rb,0.16130e+04_rb,0.13892e+04_rb,0.11655e+04_rb,0.94169e+03_rb, &\n        & 0.73101e+03_rb,0.82533e+03_rb,0.94833e+03_rb,0.10730e+04_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.17938e+04_rb,0.15755e+04_rb,0.13571e+04_rb,0.11387e+04_rb,0.92025e+03_rb, &\n        & 0.71894e+03_rb,0.82353e+03_rb,0.94679e+03_rb,0.10715e+04_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.17551e+04_rb,0.15416e+04_rb,0.13280e+04_rb,0.11145e+04_rb,0.90089e+03_rb, &\n        & 0.70691e+03_rb,0.82149e+03_rb,0.94487e+03_rb,0.10696e+04_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.17200e+04_rb,0.15108e+04_rb,0.13017e+04_rb,0.10925e+04_rb,0.88332e+03_rb, &\n        & 0.69946e+03_rb,0.81920e+03_rb,0.94260e+03_rb,0.10672e+04_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.17409e+04_rb,0.15291e+04_rb,0.13174e+04_rb,0.11056e+04_rb,0.89377e+03_rb, &\n        & 0.70556e+03_rb,0.82545e+03_rb,0.94918e+03_rb,0.10743e+04_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.16999e+04_rb,0.14933e+04_rb,0.12867e+04_rb,0.10800e+04_rb,0.87329e+03_rb, &\n        & 0.70177e+03_rb,0.82404e+03_rb,0.94806e+03_rb,0.10734e+04_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.16632e+04_rb,0.14612e+04_rb,0.12591e+04_rb,0.10571e+04_rb,0.85495e+03_rb, &\n        & 0.69985e+03_rb,0.82245e+03_rb,0.94668e+03_rb,0.10721e+04_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.16302e+04_rb,0.14323e+04_rb,0.12344e+04_rb,0.10364e+04_rb,0.83842e+03_rb, &\n        & 0.69778e+03_rb,0.82061e+03_rb,0.94495e+03_rb,0.10705e+04_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.16003e+04_rb,0.14061e+04_rb,0.12119e+04_rb,0.10177e+04_rb,0.82345e+03_rb, &\n        & 0.69549e+03_rb,0.81853e+03_rb,0.94286e+03_rb,0.10683e+04_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.16280e+04_rb,0.14303e+04_rb,0.12327e+04_rb,0.10350e+04_rb,0.83731e+03_rb, &\n        & 0.70164e+03_rb,0.82440e+03_rb,0.94900e+03_rb,0.10748e+04_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.15920e+04_rb,0.13989e+04_rb,0.12057e+04_rb,0.10126e+04_rb,0.81934e+03_rb, &\n        & 0.70016e+03_rb,0.82323e+03_rb,0.94804e+03_rb,0.10740e+04_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.15600e+04_rb,0.13708e+04_rb,0.11817e+04_rb,0.99252e+03_rb,0.80330e+03_rb, &\n        & 0.69850e+03_rb,0.82187e+03_rb,0.94688e+03_rb,0.10730e+04_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.15312e+04_rb,0.13457e+04_rb,0.11601e+04_rb,0.97452e+03_rb,0.78890e+03_rb, &\n        & 0.69669e+03_rb,0.82029e+03_rb,0.94542e+03_rb,0.10716e+04_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.15052e+04_rb,0.13229e+04_rb,0.11406e+04_rb,0.95827e+03_rb,0.77590e+03_rb, &\n        & 0.69468e+03_rb,0.81844e+03_rb,0.94358e+03_rb,0.10697e+04_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.15343e+04_rb,0.13484e+04_rb,0.11625e+04_rb,0.97650e+03_rb,0.79047e+03_rb, &\n        & 0.70005e+03_rb,0.82352e+03_rb,0.94883e+03_rb,0.10751e+04_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.15026e+04_rb,0.13206e+04_rb,0.11386e+04_rb,0.95663e+03_rb,0.77458e+03_rb, &\n        & 0.69884e+03_rb,0.82260e+03_rb,0.94808e+03_rb,0.10745e+04_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.14743e+04_rb,0.12959e+04_rb,0.11175e+04_rb,0.93898e+03_rb,0.76046e+03_rb, &\n        & 0.69743e+03_rb,0.82145e+03_rb,0.94711e+03_rb,0.10737e+04_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.14491e+04_rb,0.12738e+04_rb,0.10985e+04_rb,0.92319e+03_rb,0.74783e+03_rb, &\n        & 0.69586e+03_rb,0.82010e+03_rb,0.94588e+03_rb,0.10725e+04_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.14263e+04_rb,0.12539e+04_rb,0.10815e+04_rb,0.90900e+03_rb,0.73646e+03_rb, &\n        & 0.69412e+03_rb,0.81852e+03_rb,0.94430e+03_rb,0.10710e+04_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.14548e+04_rb,0.12788e+04_rb,0.11028e+04_rb,0.92676e+03_rb,0.75068e+03_rb, &\n        & 0.69862e+03_rb,0.82271e+03_rb,0.94860e+03_rb,0.10753e+04_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.14266e+04_rb,0.12542e+04_rb,0.10817e+04_rb,0.90918e+03_rb,0.73662e+03_rb, &\n        & 0.69765e+03_rb,0.82202e+03_rb,0.94804e+03_rb,0.10749e+04_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.14018e+04_rb,0.12324e+04_rb,0.10630e+04_rb,0.89363e+03_rb,0.72418e+03_rb, &\n        & 0.69649e+03_rb,0.82110e+03_rb,0.94729e+03_rb,0.10743e+04_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.13796e+04_rb,0.12130e+04_rb,0.10464e+04_rb,0.87978e+03_rb,0.71309e+03_rb, &\n        & 0.69515e+03_rb,0.81992e+03_rb,0.94623e+03_rb,0.10733e+04_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.13597e+04_rb,0.11956e+04_rb,0.10315e+04_rb,0.86737e+03_rb,0.70315e+03_rb, &\n        & 0.69363e+03_rb,0.81858e+03_rb,0.94492e+03_rb,0.10720e+04_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.13881e+04_rb,0.12204e+04_rb,0.10528e+04_rb,0.88506e+03_rb,0.71732e+03_rb, &\n        & 0.69732e+03_rb,0.82195e+03_rb,0.94833e+03_rb,0.10753e+04_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.13630e+04_rb,0.11985e+04_rb,0.10340e+04_rb,0.86942e+03_rb,0.70480e+03_rb, &\n        & 0.69661e+03_rb,0.82150e+03_rb,0.94796e+03_rb,0.10752e+04_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.13410e+04_rb,0.11792e+04_rb,0.10175e+04_rb,0.85565e+03_rb,0.69378e+03_rb, &\n        & 0.69568e+03_rb,0.82079e+03_rb,0.94739e+03_rb,0.10747e+04_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.13215e+04_rb,0.11622e+04_rb,0.10028e+04_rb,0.84344e+03_rb,0.68401e+03_rb, &\n        & 0.69456e+03_rb,0.81984e+03_rb,0.94655e+03_rb,0.10740e+04_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.13040e+04_rb,0.11469e+04_rb,0.98973e+03_rb,0.83254e+03_rb,0.67529e+03_rb, &\n        & 0.69326e+03_rb,0.81868e+03_rb,0.94544e+03_rb,0.10729e+04_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.13313e+04_rb,0.11707e+04_rb,0.10101e+04_rb,0.84956e+03_rb,0.68891e+03_rb, &\n        & 0.69611e+03_rb,0.82122e+03_rb,0.94800e+03_rb,0.10754e+04_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.13090e+04_rb,0.11512e+04_rb,0.99343e+03_rb,0.83562e+03_rb,0.67776e+03_rb, &\n        & 0.69564e+03_rb,0.82091e+03_rb,0.94785e+03_rb,0.10753e+04_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.12894e+04_rb,0.11341e+04_rb,0.97879e+03_rb,0.82342e+03_rb,0.66800e+03_rb, &\n        & 0.69494e+03_rb,0.82048e+03_rb,0.94742e+03_rb,0.10750e+04_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.12722e+04_rb,0.11191e+04_rb,0.96587e+03_rb,0.81266e+03_rb,0.65938e+03_rb, &\n        & 0.69403e+03_rb,0.81973e+03_rb,0.94677e+03_rb,0.10745e+04_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.12569e+04_rb,0.11057e+04_rb,0.95438e+03_rb,0.80308e+03_rb,0.65172e+03_rb, &\n        & 0.69293e+03_rb,0.81874e+03_rb,0.94587e+03_rb,0.10736e+04_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.12827e+04_rb,0.11282e+04_rb,0.97371e+03_rb,0.81918e+03_rb,0.66460e+03_rb, &\n        & 0.69497e+03_rb,0.82050e+03_rb,0.94762e+03_rb,0.10753e+04_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.12628e+04_rb,0.11108e+04_rb,0.95881e+03_rb,0.80678e+03_rb,0.65467e+03_rb, &\n        & 0.69473e+03_rb,0.82044e+03_rb,0.94765e+03_rb,0.10754e+04_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.12455e+04_rb,0.10957e+04_rb,0.94585e+03_rb,0.79597e+03_rb,0.64602e+03_rb, &\n        & 0.69425e+03_rb,0.82014e+03_rb,0.94746e+03_rb,0.10752e+04_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.12303e+04_rb,0.10824e+04_rb,0.93446e+03_rb,0.78648e+03_rb,0.63843e+03_rb, &\n        & 0.69354e+03_rb,0.81959e+03_rb,0.94691e+03_rb,0.10748e+04_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.12169e+04_rb,0.10706e+04_rb,0.92437e+03_rb,0.77807e+03_rb,0.63171e+03_rb, &\n        & 0.69262e+03_rb,0.81878e+03_rb,0.94618e+03_rb,0.10741e+04_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.12413e+04_rb,0.10920e+04_rb,0.94266e+03_rb,0.79331e+03_rb,0.64390e+03_rb, &\n        & 0.69387e+03_rb,0.81977e+03_rb,0.94713e+03_rb,0.10750e+04_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.12236e+04_rb,0.10765e+04_rb,0.92938e+03_rb,0.78225e+03_rb,0.63504e+03_rb, &\n        & 0.69385e+03_rb,0.81989e+03_rb,0.94741e+03_rb,0.10753e+04_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.12082e+04_rb,0.10631e+04_rb,0.91789e+03_rb,0.77267e+03_rb,0.62738e+03_rb, &\n        & 0.69359e+03_rb,0.81979e+03_rb,0.94732e+03_rb,0.10754e+04_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.11949e+04_rb,0.10514e+04_rb,0.90785e+03_rb,0.76430e+03_rb,0.62068e+03_rb, &\n        & 0.69307e+03_rb,0.81942e+03_rb,0.94698e+03_rb,0.10751e+04_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.11831e+04_rb,0.10410e+04_rb,0.89899e+03_rb,0.75692e+03_rb,0.61500e+03_rb, &\n        & 0.69235e+03_rb,0.81879e+03_rb,0.94641e+03_rb,0.10746e+04_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.12046e+04_rb,0.10599e+04_rb,0.91518e+03_rb,0.77041e+03_rb,0.62557e+03_rb, &\n        & 0.69285e+03_rb,0.81909e+03_rb,0.94663e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.11890e+04_rb,0.10463e+04_rb,0.90347e+03_rb,0.76066e+03_rb,0.61799e+03_rb, &\n        & 0.69301e+03_rb,0.81937e+03_rb,0.94709e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.11756e+04_rb,0.10345e+04_rb,0.89339e+03_rb,0.75225e+03_rb,0.61189e+03_rb, &\n        & 0.69293e+03_rb,0.81942e+03_rb,0.94719e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.11639e+04_rb,0.10243e+04_rb,0.88463e+03_rb,0.74495e+03_rb,0.60683e+03_rb, &\n        & 0.69260e+03_rb,0.81922e+03_rb,0.94698e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.11536e+04_rb,0.10153e+04_rb,0.87693e+03_rb,0.73853e+03_rb,0.60268e+03_rb, &\n        & 0.69203e+03_rb,0.81871e+03_rb,0.94653e+03_rb,0.10749e+04_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.11668e+04_rb,0.10268e+04_rb,0.88684e+03_rb,0.74678e+03_rb,0.60837e+03_rb, &\n        & 0.69208e+03_rb,0.81864e+03_rb,0.94642e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.11540e+04_rb,0.10157e+04_rb,0.87724e+03_rb,0.73879e+03_rb,0.60335e+03_rb, &\n        & 0.69229e+03_rb,0.81896e+03_rb,0.94691e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.11430e+04_rb,0.10060e+04_rb,0.86898e+03_rb,0.73191e+03_rb,0.59939e+03_rb, &\n        & 0.69226e+03_rb,0.81904e+03_rb,0.94700e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.11335e+04_rb,0.99764e+03_rb,0.86180e+03_rb,0.72592e+03_rb,0.59585e+03_rb, &\n        & 0.69198e+03_rb,0.81884e+03_rb,0.94679e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.11251e+04_rb,0.99028e+03_rb,0.85549e+03_rb,0.72067e+03_rb,0.59286e+03_rb, &\n        & 0.69146e+03_rb,0.81839e+03_rb,0.94639e+03_rb,0.10749e+04_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.11358e+04_rb,0.99970e+03_rb,0.86357e+03_rb,0.72739e+03_rb,0.59707e+03_rb, &\n        & 0.69145e+03_rb,0.81829e+03_rb,0.94626e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.11253e+04_rb,0.99054e+03_rb,0.85571e+03_rb,0.72085e+03_rb,0.59339e+03_rb, &\n        & 0.69172e+03_rb,0.81863e+03_rb,0.94675e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.11163e+04_rb,0.98265e+03_rb,0.84895e+03_rb,0.71521e+03_rb,0.59030e+03_rb, &\n        & 0.69172e+03_rb,0.81873e+03_rb,0.94686e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.11085e+04_rb,0.97579e+03_rb,0.84307e+03_rb,0.71031e+03_rb,0.58782e+03_rb, &\n        & 0.69148e+03_rb,0.81855e+03_rb,0.94672e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.11016e+04_rb,0.96977e+03_rb,0.83790e+03_rb,0.70601e+03_rb,0.58538e+03_rb, &\n        & 0.69099e+03_rb,0.81812e+03_rb,0.94628e+03_rb,0.10749e+04_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.11104e+04_rb,0.97748e+03_rb,0.84452e+03_rb,0.71152e+03_rb,0.58852e+03_rb, &\n        & 0.69093e+03_rb,0.81799e+03_rb,0.94612e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.11018e+04_rb,0.96998e+03_rb,0.83809e+03_rb,0.70616e+03_rb,0.58570e+03_rb, &\n        & 0.69123e+03_rb,0.81841e+03_rb,0.94664e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.10945e+04_rb,0.96352e+03_rb,0.83255e+03_rb,0.70155e+03_rb,0.58307e+03_rb, &\n        & 0.69128e+03_rb,0.81849e+03_rb,0.94675e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.10880e+04_rb,0.95790e+03_rb,0.82774e+03_rb,0.69753e+03_rb,0.58045e+03_rb, &\n        & 0.69107e+03_rb,0.81832e+03_rb,0.94657e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.10824e+04_rb,0.95297e+03_rb,0.82351e+03_rb,0.69401e+03_rb,0.57806e+03_rb, &\n        & 0.69061e+03_rb,0.81788e+03_rb,0.94614e+03_rb,0.10749e+04_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.19433e+04_rb,0.17047e+04_rb,0.14661e+04_rb,0.12275e+04_rb,0.98902e+03_rb, &\n        & 0.75120e+03_rb,0.85754e+03_rb,0.98845e+03_rb,0.11206e+04_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.18941e+04_rb,0.16616e+04_rb,0.14292e+04_rb,0.11968e+04_rb,0.96439e+03_rb, &\n        & 0.73548e+03_rb,0.85594e+03_rb,0.98707e+03_rb,0.11193e+04_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.18499e+04_rb,0.16229e+04_rb,0.13960e+04_rb,0.11691e+04_rb,0.94229e+03_rb, &\n        & 0.72448e+03_rb,0.85413e+03_rb,0.98549e+03_rb,0.11177e+04_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.18099e+04_rb,0.15880e+04_rb,0.13661e+04_rb,0.11442e+04_rb,0.92233e+03_rb, &\n        & 0.72225e+03_rb,0.85214e+03_rb,0.98373e+03_rb,0.11158e+04_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.17737e+04_rb,0.15563e+04_rb,0.13389e+04_rb,0.11215e+04_rb,0.90421e+03_rb, &\n        & 0.72001e+03_rb,0.85005e+03_rb,0.98175e+03_rb,0.11138e+04_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.17953e+04_rb,0.15751e+04_rb,0.13551e+04_rb,0.11350e+04_rb,0.91499e+03_rb, &\n        & 0.72569e+03_rb,0.85649e+03_rb,0.98821e+03_rb,0.11210e+04_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.17530e+04_rb,0.15382e+04_rb,0.13234e+04_rb,0.11086e+04_rb,0.89388e+03_rb, &\n        & 0.72424e+03_rb,0.85509e+03_rb,0.98698e+03_rb,0.11198e+04_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.17152e+04_rb,0.15051e+04_rb,0.12950e+04_rb,0.10850e+04_rb,0.87497e+03_rb, &\n        & 0.72267e+03_rb,0.85348e+03_rb,0.98553e+03_rb,0.11184e+04_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.16811e+04_rb,0.14753e+04_rb,0.12695e+04_rb,0.10637e+04_rb,0.85793e+03_rb, &\n        & 0.72084e+03_rb,0.85163e+03_rb,0.98389e+03_rb,0.11166e+04_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.16502e+04_rb,0.14483e+04_rb,0.12463e+04_rb,0.10444e+04_rb,0.84250e+03_rb, &\n        & 0.71877e+03_rb,0.84969e+03_rb,0.98204e+03_rb,0.11147e+04_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.16788e+04_rb,0.14733e+04_rb,0.12678e+04_rb,0.10623e+04_rb,0.85679e+03_rb, &\n        & 0.72434e+03_rb,0.85588e+03_rb,0.98822e+03_rb,0.11216e+04_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.16418e+04_rb,0.14409e+04_rb,0.12400e+04_rb,0.10391e+04_rb,0.83827e+03_rb, &\n        & 0.72306e+03_rb,0.85466e+03_rb,0.98716e+03_rb,0.11206e+04_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.16087e+04_rb,0.14119e+04_rb,0.12152e+04_rb,0.10184e+04_rb,0.82172e+03_rb, &\n        & 0.72165e+03_rb,0.85327e+03_rb,0.98590e+03_rb,0.11193e+04_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.15790e+04_rb,0.13859e+04_rb,0.11929e+04_rb,0.99988e+03_rb,0.80688e+03_rb, &\n        & 0.72007e+03_rb,0.85161e+03_rb,0.98438e+03_rb,0.11177e+04_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.15522e+04_rb,0.13625e+04_rb,0.11728e+04_rb,0.98311e+03_rb,0.79349e+03_rb, &\n        & 0.71824e+03_rb,0.84982e+03_rb,0.98270e+03_rb,0.11159e+04_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.15823e+04_rb,0.13888e+04_rb,0.11953e+04_rb,0.10019e+04_rb,0.80851e+03_rb, &\n        & 0.72326e+03_rb,0.85540e+03_rb,0.98823e+03_rb,0.11221e+04_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.15495e+04_rb,0.13601e+04_rb,0.11708e+04_rb,0.98142e+03_rb,0.79213e+03_rb, &\n        & 0.72214e+03_rb,0.85436e+03_rb,0.98737e+03_rb,0.11213e+04_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.15204e+04_rb,0.13346e+04_rb,0.11489e+04_rb,0.96322e+03_rb,0.77758e+03_rb, &\n        & 0.72091e+03_rb,0.85317e+03_rb,0.98628e+03_rb,0.11202e+04_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.14943e+04_rb,0.13118e+04_rb,0.11294e+04_rb,0.94694e+03_rb,0.76455e+03_rb, &\n        & 0.71952e+03_rb,0.85175e+03_rb,0.98496e+03_rb,0.11188e+04_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.14709e+04_rb,0.12913e+04_rb,0.11118e+04_rb,0.93229e+03_rb,0.75284e+03_rb, &\n        & 0.71792e+03_rb,0.85010e+03_rb,0.98342e+03_rb,0.11171e+04_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.15002e+04_rb,0.13170e+04_rb,0.11338e+04_rb,0.95063e+03_rb,0.76749e+03_rb, &\n        & 0.72234e+03_rb,0.85495e+03_rb,0.98821e+03_rb,0.11224e+04_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.14712e+04_rb,0.12916e+04_rb,0.11120e+04_rb,0.93250e+03_rb,0.75300e+03_rb, &\n        & 0.72139e+03_rb,0.85409e+03_rb,0.98753e+03_rb,0.11218e+04_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.14456e+04_rb,0.12692e+04_rb,0.10928e+04_rb,0.91647e+03_rb,0.74017e+03_rb, &\n        & 0.72031e+03_rb,0.85307e+03_rb,0.98657e+03_rb,0.11209e+04_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.14227e+04_rb,0.12492e+04_rb,0.10757e+04_rb,0.90219e+03_rb,0.72875e+03_rb, &\n        & 0.71909e+03_rb,0.85186e+03_rb,0.98546e+03_rb,0.11197e+04_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.14022e+04_rb,0.12312e+04_rb,0.10603e+04_rb,0.88937e+03_rb,0.71851e+03_rb, &\n        & 0.71769e+03_rb,0.85037e+03_rb,0.98406e+03_rb,0.11182e+04_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.14314e+04_rb,0.12568e+04_rb,0.10822e+04_rb,0.90763e+03_rb,0.73310e+03_rb, &\n        & 0.72155e+03_rb,0.85452e+03_rb,0.98813e+03_rb,0.11226e+04_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.14056e+04_rb,0.12342e+04_rb,0.10628e+04_rb,0.89150e+03_rb,0.72020e+03_rb, &\n        & 0.72077e+03_rb,0.85386e+03_rb,0.98765e+03_rb,0.11222e+04_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.13829e+04_rb,0.12143e+04_rb,0.10458e+04_rb,0.87730e+03_rb,0.70887e+03_rb, &\n        & 0.71986e+03_rb,0.85300e+03_rb,0.98688e+03_rb,0.11215e+04_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.13627e+04_rb,0.11967e+04_rb,0.10307e+04_rb,0.86473e+03_rb,0.69880e+03_rb, &\n        & 0.71879e+03_rb,0.85197e+03_rb,0.98590e+03_rb,0.11205e+04_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.13448e+04_rb,0.11810e+04_rb,0.10172e+04_rb,0.85348e+03_rb,0.68979e+03_rb, &\n        & 0.71757e+03_rb,0.85073e+03_rb,0.98469e+03_rb,0.11192e+04_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.13728e+04_rb,0.12055e+04_rb,0.10383e+04_rb,0.87102e+03_rb,0.70382e+03_rb, &\n        & 0.72081e+03_rb,0.85410e+03_rb,0.98799e+03_rb,0.11227e+04_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.13499e+04_rb,0.11854e+04_rb,0.10210e+04_rb,0.85666e+03_rb,0.69233e+03_rb, &\n        & 0.72022e+03_rb,0.85362e+03_rb,0.98768e+03_rb,0.11225e+04_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.13297e+04_rb,0.11678e+04_rb,0.10059e+04_rb,0.84408e+03_rb,0.68228e+03_rb, &\n        & 0.71945e+03_rb,0.85293e+03_rb,0.98711e+03_rb,0.11220e+04_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.13120e+04_rb,0.11523e+04_rb,0.99261e+03_rb,0.83298e+03_rb,0.67339e+03_rb, &\n        & 0.71854e+03_rb,0.85205e+03_rb,0.98632e+03_rb,0.11212e+04_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.12962e+04_rb,0.11384e+04_rb,0.98077e+03_rb,0.82312e+03_rb,0.66550e+03_rb, &\n        & 0.71746e+03_rb,0.85098e+03_rb,0.98523e+03_rb,0.11200e+04_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.13227e+04_rb,0.11617e+04_rb,0.10007e+04_rb,0.83971e+03_rb,0.67877e+03_rb, &\n        & 0.72007e+03_rb,0.85366e+03_rb,0.98779e+03_rb,0.11227e+04_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.13022e+04_rb,0.11438e+04_rb,0.98533e+03_rb,0.82690e+03_rb,0.66854e+03_rb, &\n        & 0.71969e+03_rb,0.85334e+03_rb,0.98763e+03_rb,0.11227e+04_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.12844e+04_rb,0.11282e+04_rb,0.97196e+03_rb,0.81577e+03_rb,0.65963e+03_rb, &\n        & 0.71908e+03_rb,0.85283e+03_rb,0.98717e+03_rb,0.11223e+04_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.12688e+04_rb,0.11145e+04_rb,0.96023e+03_rb,0.80599e+03_rb,0.65182e+03_rb, &\n        & 0.71830e+03_rb,0.85210e+03_rb,0.98659e+03_rb,0.11217e+04_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.12549e+04_rb,0.11024e+04_rb,0.94982e+03_rb,0.79733e+03_rb,0.64488e+03_rb, &\n        & 0.71736e+03_rb,0.85118e+03_rb,0.98569e+03_rb,0.11208e+04_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.12800e+04_rb,0.11244e+04_rb,0.96868e+03_rb,0.81302e+03_rb,0.65744e+03_rb, &\n        & 0.71936e+03_rb,0.85323e+03_rb,0.98761e+03_rb,0.11226e+04_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.12618e+04_rb,0.11084e+04_rb,0.95498e+03_rb,0.80161e+03_rb,0.64832e+03_rb, &\n        & 0.71916e+03_rb,0.85306e+03_rb,0.98751e+03_rb,0.11227e+04_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.12460e+04_rb,0.10945e+04_rb,0.94313e+03_rb,0.79175e+03_rb,0.64042e+03_rb, &\n        & 0.71874e+03_rb,0.85269e+03_rb,0.98731e+03_rb,0.11226e+04_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.12322e+04_rb,0.10825e+04_rb,0.93277e+03_rb,0.78311e+03_rb,0.63351e+03_rb, &\n        & 0.71809e+03_rb,0.85213e+03_rb,0.98681e+03_rb,0.11221e+04_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.12200e+04_rb,0.10718e+04_rb,0.92365e+03_rb,0.77552e+03_rb,0.62743e+03_rb, &\n        & 0.71728e+03_rb,0.85134e+03_rb,0.98607e+03_rb,0.11214e+04_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.12423e+04_rb,0.10913e+04_rb,0.94034e+03_rb,0.78942e+03_rb,0.63856e+03_rb, &\n        & 0.71867e+03_rb,0.85279e+03_rb,0.98738e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.12262e+04_rb,0.10772e+04_rb,0.92827e+03_rb,0.77936e+03_rb,0.63052e+03_rb, &\n        & 0.71863e+03_rb,0.85274e+03_rb,0.98738e+03_rb,0.11227e+04_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.12123e+04_rb,0.10651e+04_rb,0.91788e+03_rb,0.77071e+03_rb,0.62359e+03_rb, &\n        & 0.71835e+03_rb,0.85251e+03_rb,0.98725e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.12002e+04_rb,0.10545e+04_rb,0.90884e+03_rb,0.76317e+03_rb,0.61756e+03_rb, &\n        & 0.71785e+03_rb,0.85203e+03_rb,0.98691e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.11897e+04_rb,0.10453e+04_rb,0.90090e+03_rb,0.75655e+03_rb,0.61227e+03_rb, &\n        & 0.71716e+03_rb,0.85141e+03_rb,0.98631e+03_rb,0.11218e+04_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.12033e+04_rb,0.10572e+04_rb,0.91110e+03_rb,0.76506e+03_rb,0.61908e+03_rb, &\n        & 0.71809e+03_rb,0.85242e+03_rb,0.98721e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.11901e+04_rb,0.10456e+04_rb,0.90123e+03_rb,0.75682e+03_rb,0.61248e+03_rb, &\n        & 0.71809e+03_rb,0.85240e+03_rb,0.98723e+03_rb,0.11226e+04_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.11788e+04_rb,0.10357e+04_rb,0.89271e+03_rb,0.74972e+03_rb,0.60692e+03_rb, &\n        & 0.71785e+03_rb,0.85217e+03_rb,0.98712e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.11689e+04_rb,0.10271e+04_rb,0.88529e+03_rb,0.74355e+03_rb,0.60253e+03_rb, &\n        & 0.71738e+03_rb,0.85177e+03_rb,0.98681e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.11602e+04_rb,0.10195e+04_rb,0.87880e+03_rb,0.73813e+03_rb,0.59855e+03_rb, &\n        & 0.71672e+03_rb,0.85114e+03_rb,0.98618e+03_rb,0.11218e+04_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.11713e+04_rb,0.10292e+04_rb,0.88712e+03_rb,0.74507e+03_rb,0.60379e+03_rb, &\n        & 0.71766e+03_rb,0.85212e+03_rb,0.98706e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.11605e+04_rb,0.10197e+04_rb,0.87902e+03_rb,0.73833e+03_rb,0.59891e+03_rb, &\n        & 0.71764e+03_rb,0.85212e+03_rb,0.98710e+03_rb,0.11227e+04_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.11512e+04_rb,0.10116e+04_rb,0.87205e+03_rb,0.73251e+03_rb,0.59502e+03_rb, &\n        & 0.71744e+03_rb,0.85192e+03_rb,0.98700e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.11431e+04_rb,0.10045e+04_rb,0.86598e+03_rb,0.72746e+03_rb,0.59151e+03_rb, &\n        & 0.71699e+03_rb,0.85153e+03_rb,0.98663e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.11360e+04_rb,0.99832e+03_rb,0.86067e+03_rb,0.72302e+03_rb,0.58868e+03_rb, &\n        & 0.71636e+03_rb,0.85092e+03_rb,0.98606e+03_rb,0.11218e+04_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.11451e+04_rb,0.10063e+04_rb,0.86748e+03_rb,0.72871e+03_rb,0.59258e+03_rb, &\n        & 0.71726e+03_rb,0.85187e+03_rb,0.98696e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.11363e+04_rb,0.99855e+03_rb,0.86085e+03_rb,0.72320e+03_rb,0.58896e+03_rb, &\n        & 0.71729e+03_rb,0.85183e+03_rb,0.98699e+03_rb,0.11227e+04_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.11287e+04_rb,0.99189e+03_rb,0.85515e+03_rb,0.71842e+03_rb,0.58585e+03_rb, &\n        & 0.71710e+03_rb,0.85169e+03_rb,0.98691e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.11220e+04_rb,0.98609e+03_rb,0.85017e+03_rb,0.71429e+03_rb,0.58380e+03_rb, &\n        & 0.71668e+03_rb,0.85133e+03_rb,0.98660e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.11162e+04_rb,0.98101e+03_rb,0.84582e+03_rb,0.71065e+03_rb,0.58234e+03_rb, &\n        & 0.71606e+03_rb,0.85074e+03_rb,0.98601e+03_rb,0.11218e+04_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.19571e+04_rb,0.17167e+04_rb,0.14761e+04_rb,0.12357e+04_rb,0.99528e+03_rb, &\n        & 0.75488e+03_rb,0.87315e+03_rb,0.10086e+04_rb,0.11441e+04_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.19076e+04_rb,0.16733e+04_rb,0.14390e+04_rb,0.12047e+04_rb,0.97044e+03_rb, &\n        & 0.73841e+03_rb,0.87146e+03_rb,0.10070e+04_rb,0.11425e+04_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.18630e+04_rb,0.16343e+04_rb,0.14056e+04_rb,0.11769e+04_rb,0.94822e+03_rb, &\n        & 0.73460e+03_rb,0.86967e+03_rb,0.10052e+04_rb,0.11407e+04_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.18229e+04_rb,0.15991e+04_rb,0.13754e+04_rb,0.11517e+04_rb,0.92811e+03_rb, &\n        & 0.73269e+03_rb,0.86788e+03_rb,0.10033e+04_rb,0.11387e+04_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.17864e+04_rb,0.15672e+04_rb,0.13481e+04_rb,0.11289e+04_rb,0.90984e+03_rb, &\n        & 0.73091e+03_rb,0.86616e+03_rb,0.10016e+04_rb,0.11368e+04_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.18080e+04_rb,0.15862e+04_rb,0.13643e+04_rb,0.11425e+04_rb,0.92072e+03_rb, &\n        & 0.73694e+03_rb,0.87246e+03_rb,0.10086e+04_rb,0.11448e+04_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.17655e+04_rb,0.15491e+04_rb,0.13324e+04_rb,0.11159e+04_rb,0.89943e+03_rb, &\n        & 0.73525e+03_rb,0.87092e+03_rb,0.10070e+04_rb,0.11432e+04_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.17274e+04_rb,0.15157e+04_rb,0.13039e+04_rb,0.10921e+04_rb,0.88039e+03_rb, &\n        & 0.73343e+03_rb,0.86922e+03_rb,0.10053e+04_rb,0.11415e+04_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.16931e+04_rb,0.14856e+04_rb,0.12781e+04_rb,0.10706e+04_rb,0.86326e+03_rb, &\n        & 0.73166e+03_rb,0.86752e+03_rb,0.10036e+04_rb,0.11395e+04_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.16621e+04_rb,0.14584e+04_rb,0.12549e+04_rb,0.10512e+04_rb,0.84768e+03_rb, &\n        & 0.73000e+03_rb,0.86583e+03_rb,0.10018e+04_rb,0.11376e+04_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.16908e+04_rb,0.14837e+04_rb,0.12764e+04_rb,0.10692e+04_rb,0.86209e+03_rb, &\n        & 0.73591e+03_rb,0.87213e+03_rb,0.10088e+04_rb,0.11456e+04_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.16535e+04_rb,0.14509e+04_rb,0.12484e+04_rb,0.10459e+04_rb,0.84339e+03_rb, &\n        & 0.73450e+03_rb,0.87080e+03_rb,0.10075e+04_rb,0.11442e+04_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.16202e+04_rb,0.14218e+04_rb,0.12234e+04_rb,0.10251e+04_rb,0.82680e+03_rb, &\n        & 0.73291e+03_rb,0.86926e+03_rb,0.10059e+04_rb,0.11426e+04_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.15902e+04_rb,0.13956e+04_rb,0.12011e+04_rb,0.10064e+04_rb,0.81183e+03_rb, &\n        & 0.73120e+03_rb,0.86761e+03_rb,0.10042e+04_rb,0.11407e+04_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.15632e+04_rb,0.13720e+04_rb,0.11808e+04_rb,0.98952e+03_rb,0.79832e+03_rb, &\n        & 0.72957e+03_rb,0.86594e+03_rb,0.10024e+04_rb,0.11387e+04_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.15935e+04_rb,0.13985e+04_rb,0.12035e+04_rb,0.10084e+04_rb,0.81344e+03_rb, &\n        & 0.73513e+03_rb,0.87195e+03_rb,0.10092e+04_rb,0.11463e+04_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.15605e+04_rb,0.13697e+04_rb,0.11787e+04_rb,0.98782e+03_rb,0.79694e+03_rb, &\n        & 0.73394e+03_rb,0.87080e+03_rb,0.10079e+04_rb,0.11451e+04_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.15313e+04_rb,0.13439e+04_rb,0.11567e+04_rb,0.96950e+03_rb,0.78229e+03_rb, &\n        & 0.73257e+03_rb,0.86942e+03_rb,0.10065e+04_rb,0.11436e+04_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.15050e+04_rb,0.13210e+04_rb,0.11371e+04_rb,0.95308e+03_rb,0.76922e+03_rb, &\n        & 0.73104e+03_rb,0.86787e+03_rb,0.10049e+04_rb,0.11419e+04_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.14814e+04_rb,0.13003e+04_rb,0.11193e+04_rb,0.93833e+03_rb,0.75745e+03_rb, &\n        & 0.72946e+03_rb,0.86622e+03_rb,0.10032e+04_rb,0.11400e+04_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.15109e+04_rb,0.13262e+04_rb,0.11415e+04_rb,0.95685e+03_rb,0.77217e+03_rb, &\n        & 0.73443e+03_rb,0.87177e+03_rb,0.10094e+04_rb,0.11470e+04_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.14817e+04_rb,0.13007e+04_rb,0.11196e+04_rb,0.93852e+03_rb,0.75755e+03_rb, &\n        & 0.73343e+03_rb,0.87078e+03_rb,0.10083e+04_rb,0.11459e+04_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.14559e+04_rb,0.12780e+04_rb,0.11003e+04_rb,0.92240e+03_rb,0.74463e+03_rb, &\n        & 0.73229e+03_rb,0.86958e+03_rb,0.10071e+04_rb,0.11446e+04_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.14329e+04_rb,0.12579e+04_rb,0.10829e+04_rb,0.90802e+03_rb,0.73310e+03_rb, &\n        & 0.73095e+03_rb,0.86817e+03_rb,0.10056e+04_rb,0.11430e+04_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.14122e+04_rb,0.12398e+04_rb,0.10675e+04_rb,0.89511e+03_rb,0.72281e+03_rb, &\n        & 0.72946e+03_rb,0.86664e+03_rb,0.10039e+04_rb,0.11412e+04_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.14417e+04_rb,0.12655e+04_rb,0.10896e+04_rb,0.91348e+03_rb,0.73747e+03_rb, &\n        & 0.73386e+03_rb,0.87165e+03_rb,0.10096e+04_rb,0.11475e+04_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.14156e+04_rb,0.12429e+04_rb,0.10700e+04_rb,0.89725e+03_rb,0.72457e+03_rb, &\n        & 0.73304e+03_rb,0.87078e+03_rb,0.10087e+04_rb,0.11466e+04_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.13928e+04_rb,0.12228e+04_rb,0.10529e+04_rb,0.88300e+03_rb,0.71308e+03_rb, &\n        & 0.73207e+03_rb,0.86977e+03_rb,0.10076e+04_rb,0.11455e+04_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.13725e+04_rb,0.12051e+04_rb,0.10377e+04_rb,0.87029e+03_rb,0.70290e+03_rb, &\n        & 0.73093e+03_rb,0.86853e+03_rb,0.10063e+04_rb,0.11441e+04_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.13544e+04_rb,0.11892e+04_rb,0.10241e+04_rb,0.85897e+03_rb,0.69390e+03_rb, &\n        & 0.72961e+03_rb,0.86706e+03_rb,0.10048e+04_rb,0.11424e+04_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.13826e+04_rb,0.12140e+04_rb,0.10453e+04_rb,0.87664e+03_rb,0.70803e+03_rb, &\n        & 0.73339e+03_rb,0.87155e+03_rb,0.10098e+04_rb,0.11480e+04_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.13594e+04_rb,0.11937e+04_rb,0.10279e+04_rb,0.86216e+03_rb,0.69645e+03_rb, &\n        & 0.73269e+03_rb,0.87079e+03_rb,0.10090e+04_rb,0.11472e+04_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.13392e+04_rb,0.11759e+04_rb,0.10127e+04_rb,0.84953e+03_rb,0.68632e+03_rb, &\n        & 0.73188e+03_rb,0.86990e+03_rb,0.10081e+04_rb,0.11462e+04_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.13213e+04_rb,0.11603e+04_rb,0.99928e+03_rb,0.83829e+03_rb,0.67737e+03_rb, &\n        & 0.73090e+03_rb,0.86884e+03_rb,0.10069e+04_rb,0.11450e+04_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.13054e+04_rb,0.11464e+04_rb,0.98739e+03_rb,0.82837e+03_rb,0.66946e+03_rb, &\n        & 0.72975e+03_rb,0.86756e+03_rb,0.10055e+04_rb,0.11435e+04_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.13322e+04_rb,0.11698e+04_rb,0.10074e+04_rb,0.84511e+03_rb,0.68280e+03_rb, &\n        & 0.73302e+03_rb,0.87145e+03_rb,0.10099e+04_rb,0.11483e+04_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.13116e+04_rb,0.11517e+04_rb,0.99199e+03_rb,0.83221e+03_rb,0.67250e+03_rb, &\n        & 0.73244e+03_rb,0.87079e+03_rb,0.10093e+04_rb,0.11477e+04_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.12937e+04_rb,0.11360e+04_rb,0.97848e+03_rb,0.82097e+03_rb,0.66349e+03_rb, &\n        & 0.73170e+03_rb,0.87002e+03_rb,0.10085e+04_rb,0.11469e+04_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.12778e+04_rb,0.11223e+04_rb,0.96666e+03_rb,0.81113e+03_rb,0.65562e+03_rb, &\n        & 0.73087e+03_rb,0.86909e+03_rb,0.10075e+04_rb,0.11458e+04_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.12639e+04_rb,0.11101e+04_rb,0.95620e+03_rb,0.80244e+03_rb,0.64865e+03_rb, &\n        & 0.72985e+03_rb,0.86796e+03_rb,0.10062e+04_rb,0.11444e+04_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.12892e+04_rb,0.11322e+04_rb,0.97520e+03_rb,0.81821e+03_rb,0.66134e+03_rb, &\n        & 0.73274e+03_rb,0.87135e+03_rb,0.10099e+04_rb,0.11485e+04_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.12708e+04_rb,0.11161e+04_rb,0.96140e+03_rb,0.80674e+03_rb,0.65213e+03_rb, &\n        & 0.73213e+03_rb,0.87079e+03_rb,0.10095e+04_rb,0.11481e+04_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.12548e+04_rb,0.11022e+04_rb,0.94949e+03_rb,0.79681e+03_rb,0.64421e+03_rb, &\n        & 0.73152e+03_rb,0.87011e+03_rb,0.10088e+04_rb,0.11474e+04_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.12410e+04_rb,0.10900e+04_rb,0.93905e+03_rb,0.78808e+03_rb,0.63726e+03_rb, &\n        & 0.73083e+03_rb,0.86928e+03_rb,0.10079e+04_rb,0.11464e+04_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.12287e+04_rb,0.10793e+04_rb,0.92981e+03_rb,0.78042e+03_rb,0.63106e+03_rb, &\n        & 0.72995e+03_rb,0.86831e+03_rb,0.10068e+04_rb,0.11452e+04_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.12511e+04_rb,0.10989e+04_rb,0.94665e+03_rb,0.79449e+03_rb,0.64227e+03_rb, &\n        & 0.73248e+03_rb,0.87121e+03_rb,0.10099e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.12350e+04_rb,0.10848e+04_rb,0.93449e+03_rb,0.78435e+03_rb,0.63416e+03_rb, &\n        & 0.73188e+03_rb,0.87073e+03_rb,0.10095e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.12209e+04_rb,0.10725e+04_rb,0.92407e+03_rb,0.77565e+03_rb,0.62724e+03_rb, &\n        & 0.73132e+03_rb,0.87012e+03_rb,0.10091e+04_rb,0.11477e+04_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.12088e+04_rb,0.10618e+04_rb,0.91493e+03_rb,0.76801e+03_rb,0.62113e+03_rb, &\n        & 0.73072e+03_rb,0.86943e+03_rb,0.10082e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.11981e+04_rb,0.10526e+04_rb,0.90691e+03_rb,0.76134e+03_rb,0.61583e+03_rb, &\n        & 0.72997e+03_rb,0.86853e+03_rb,0.10072e+04_rb,0.11458e+04_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.12119e+04_rb,0.10646e+04_rb,0.91723e+03_rb,0.76995e+03_rb,0.62265e+03_rb, &\n        & 0.73201e+03_rb,0.87093e+03_rb,0.10098e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.11986e+04_rb,0.10529e+04_rb,0.90727e+03_rb,0.76161e+03_rb,0.61603e+03_rb, &\n        & 0.73147e+03_rb,0.87046e+03_rb,0.10094e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.11871e+04_rb,0.10429e+04_rb,0.89865e+03_rb,0.75449e+03_rb,0.61031e+03_rb, &\n        & 0.73094e+03_rb,0.86988e+03_rb,0.10088e+04_rb,0.11477e+04_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.11772e+04_rb,0.10342e+04_rb,0.89122e+03_rb,0.74824e+03_rb,0.60537e+03_rb, &\n        & 0.73035e+03_rb,0.86918e+03_rb,0.10081e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.11684e+04_rb,0.10265e+04_rb,0.88467e+03_rb,0.74278e+03_rb,0.60127e+03_rb, &\n        & 0.72963e+03_rb,0.86831e+03_rb,0.10071e+04_rb,0.11458e+04_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.11796e+04_rb,0.10363e+04_rb,0.89308e+03_rb,0.74980e+03_rb,0.60664e+03_rb, &\n        & 0.73158e+03_rb,0.87066e+03_rb,0.10097e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.11688e+04_rb,0.10268e+04_rb,0.88492e+03_rb,0.74297e+03_rb,0.60173e+03_rb, &\n        & 0.73111e+03_rb,0.87023e+03_rb,0.10093e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.11594e+04_rb,0.10186e+04_rb,0.87787e+03_rb,0.73715e+03_rb,0.59711e+03_rb, &\n        & 0.73061e+03_rb,0.86968e+03_rb,0.10088e+04_rb,0.11478e+04_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.11512e+04_rb,0.10115e+04_rb,0.87180e+03_rb,0.73203e+03_rb,0.59373e+03_rb, &\n        & 0.73004e+03_rb,0.86900e+03_rb,0.10080e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.11441e+04_rb,0.10053e+04_rb,0.86640e+03_rb,0.72756e+03_rb,0.59149e+03_rb, &\n        & 0.72934e+03_rb,0.86813e+03_rb,0.10070e+04_rb,0.11458e+04_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.11533e+04_rb,0.10132e+04_rb,0.87330e+03_rb,0.73334e+03_rb,0.59476e+03_rb, &\n        & 0.73130e+03_rb,0.87046e+03_rb,0.10096e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.11444e+04_rb,0.10055e+04_rb,0.86659e+03_rb,0.72770e+03_rb,0.59240e+03_rb, &\n        & 0.73084e+03_rb,0.87005e+03_rb,0.10092e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.11367e+04_rb,0.99882e+03_rb,0.86084e+03_rb,0.72297e+03_rb,0.59186e+03_rb, &\n        & 0.73036e+03_rb,0.86950e+03_rb,0.10087e+04_rb,0.11478e+04_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.11300e+04_rb,0.99294e+03_rb,0.85585e+03_rb,0.71880e+03_rb,0.59143e+03_rb, &\n        & 0.72979e+03_rb,0.86883e+03_rb,0.10079e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.11242e+04_rb,0.98788e+03_rb,0.85146e+03_rb,0.71512e+03_rb,0.59082e+03_rb, &\n        & 0.72910e+03_rb,0.86797e+03_rb,0.10069e+04_rb,0.11459e+04_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.19609e+04_rb,0.17196e+04_rb,0.14787e+04_rb,0.12373e+04_rb,0.99636e+03_rb, &\n        & 0.75577e+03_rb,0.88158e+03_rb,0.10175e+04_rb,0.11538e+04_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.19102e+04_rb,0.16765e+04_rb,0.14403e+04_rb,0.12063e+04_rb,0.97232e+03_rb, &\n        & 0.74406e+03_rb,0.87986e+03_rb,0.10152e+04_rb,0.11513e+04_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.18658e+04_rb,0.16364e+04_rb,0.14075e+04_rb,0.11783e+04_rb,0.94916e+03_rb, &\n        & 0.74249e+03_rb,0.87815e+03_rb,0.10135e+04_rb,0.11491e+04_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.18250e+04_rb,0.16014e+04_rb,0.13778e+04_rb,0.11533e+04_rb,0.92945e+03_rb, &\n        & 0.74050e+03_rb,0.87640e+03_rb,0.10114e+04_rb,0.11477e+04_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.17888e+04_rb,0.15692e+04_rb,0.13504e+04_rb,0.11313e+04_rb,0.91134e+03_rb, &\n        & 0.73837e+03_rb,0.87432e+03_rb,0.10096e+04_rb,0.11467e+04_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.18108e+04_rb,0.15879e+04_rb,0.13673e+04_rb,0.11437e+04_rb,0.92213e+03_rb, &\n        & 0.74428e+03_rb,0.88077e+03_rb,0.10175e+04_rb,0.11547e+04_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.17684e+04_rb,0.15508e+04_rb,0.13352e+04_rb,0.11178e+04_rb,0.90099e+03_rb, &\n        & 0.74265e+03_rb,0.87920e+03_rb,0.10158e+04_rb,0.11521e+04_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.17293e+04_rb,0.15183e+04_rb,0.13063e+04_rb,0.10931e+04_rb,0.88199e+03_rb, &\n        & 0.74117e+03_rb,0.87755e+03_rb,0.10136e+04_rb,0.11500e+04_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.16960e+04_rb,0.14887e+04_rb,0.12799e+04_rb,0.10727e+04_rb,0.86433e+03_rb, &\n        & 0.73957e+03_rb,0.87577e+03_rb,0.10116e+04_rb,0.11482e+04_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.16637e+04_rb,0.14607e+04_rb,0.12562e+04_rb,0.10527e+04_rb,0.84877e+03_rb, &\n        & 0.73748e+03_rb,0.87409e+03_rb,0.10096e+04_rb,0.11470e+04_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.16939e+04_rb,0.14847e+04_rb,0.12786e+04_rb,0.10705e+04_rb,0.86372e+03_rb, &\n        & 0.74343e+03_rb,0.88064e+03_rb,0.10178e+04_rb,0.11559e+04_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.16557e+04_rb,0.14542e+04_rb,0.12503e+04_rb,0.10478e+04_rb,0.84533e+03_rb, &\n        & 0.74182e+03_rb,0.87906e+03_rb,0.10163e+04_rb,0.11537e+04_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.16218e+04_rb,0.14239e+04_rb,0.12249e+04_rb,0.10266e+04_rb,0.82819e+03_rb, &\n        & 0.74031e+03_rb,0.87730e+03_rb,0.10137e+04_rb,0.11513e+04_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.15929e+04_rb,0.13992e+04_rb,0.12027e+04_rb,0.10077e+04_rb,0.81299e+03_rb, &\n        & 0.73896e+03_rb,0.87590e+03_rb,0.10123e+04_rb,0.11493e+04_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.15654e+04_rb,0.13740e+04_rb,0.11824e+04_rb,0.99136e+03_rb,0.79933e+03_rb, &\n        & 0.73740e+03_rb,0.87406e+03_rb,0.10104e+04_rb,0.11477e+04_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.15959e+04_rb,0.14010e+04_rb,0.12054e+04_rb,0.10100e+04_rb,0.81522e+03_rb, &\n        & 0.74271e+03_rb,0.88040e+03_rb,0.10180e+04_rb,0.11570e+04_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.15637e+04_rb,0.13710e+04_rb,0.11804e+04_rb,0.98920e+03_rb,0.79803e+03_rb, &\n        & 0.74139e+03_rb,0.87903e+03_rb,0.10168e+04_rb,0.11552e+04_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.15330e+04_rb,0.13459e+04_rb,0.11594e+04_rb,0.97120e+03_rb,0.78314e+03_rb, &\n        & 0.74000e+03_rb,0.87753e+03_rb,0.10151e+04_rb,0.11528e+04_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.15077e+04_rb,0.13229e+04_rb,0.11386e+04_rb,0.95486e+03_rb,0.77029e+03_rb, &\n        & 0.73854e+03_rb,0.87600e+03_rb,0.10131e+04_rb,0.11506e+04_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.14835e+04_rb,0.13025e+04_rb,0.11209e+04_rb,0.94000e+03_rb,0.75786e+03_rb, &\n        & 0.73717e+03_rb,0.87438e+03_rb,0.10111e+04_rb,0.11486e+04_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.15126e+04_rb,0.13285e+04_rb,0.11431e+04_rb,0.95745e+03_rb,0.77284e+03_rb, &\n        & 0.74220e+03_rb,0.88024e+03_rb,0.10187e+04_rb,0.11578e+04_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.14829e+04_rb,0.13024e+04_rb,0.11209e+04_rb,0.94020e+03_rb,0.75863e+03_rb, &\n        & 0.74099e+03_rb,0.87909e+03_rb,0.10174e+04_rb,0.11564e+04_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.14582e+04_rb,0.12806e+04_rb,0.11014e+04_rb,0.92377e+03_rb,0.74596e+03_rb, &\n        & 0.73960e+03_rb,0.87772e+03_rb,0.10159e+04_rb,0.11544e+04_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.14345e+04_rb,0.12594e+04_rb,0.10847e+04_rb,0.90887e+03_rb,0.73410e+03_rb, &\n        & 0.73828e+03_rb,0.87622e+03_rb,0.10139e+04_rb,0.11518e+04_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.14140e+04_rb,0.12418e+04_rb,0.10683e+04_rb,0.89661e+03_rb,0.72364e+03_rb, &\n        & 0.73696e+03_rb,0.87469e+03_rb,0.10119e+04_rb,0.11501e+04_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.14435e+04_rb,0.12676e+04_rb,0.10914e+04_rb,0.91493e+03_rb,0.73889e+03_rb, &\n        & 0.74179e+03_rb,0.88024e+03_rb,0.10190e+04_rb,0.11586e+04_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.14184e+04_rb,0.12443e+04_rb,0.10722e+04_rb,0.89834e+03_rb,0.72535e+03_rb, &\n        & 0.74069e+03_rb,0.87922e+03_rb,0.10178e+04_rb,0.11574e+04_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.13949e+04_rb,0.12245e+04_rb,0.10548e+04_rb,0.88411e+03_rb,0.71441e+03_rb, &\n        & 0.73951e+03_rb,0.87792e+03_rb,0.10164e+04_rb,0.11554e+04_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.13745e+04_rb,0.12070e+04_rb,0.10388e+04_rb,0.87157e+03_rb,0.70381e+03_rb, &\n        & 0.73817e+03_rb,0.87654e+03_rb,0.10150e+04_rb,0.11533e+04_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.13558e+04_rb,0.11909e+04_rb,0.10253e+04_rb,0.86039e+03_rb,0.69505e+03_rb, &\n        & 0.73669e+03_rb,0.87508e+03_rb,0.10128e+04_rb,0.11510e+04_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.13849e+04_rb,0.12154e+04_rb,0.10465e+04_rb,0.87809e+03_rb,0.70922e+03_rb, &\n        & 0.74150e+03_rb,0.88017e+03_rb,0.10197e+04_rb,0.11599e+04_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.13622e+04_rb,0.11954e+04_rb,0.10296e+04_rb,0.86328e+03_rb,0.69750e+03_rb, &\n        & 0.74031e+03_rb,0.87926e+03_rb,0.10184e+04_rb,0.11581e+04_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.13407e+04_rb,0.11775e+04_rb,0.10144e+04_rb,0.85098e+03_rb,0.68710e+03_rb, &\n        & 0.73933e+03_rb,0.87824e+03_rb,0.10171e+04_rb,0.11568e+04_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.13234e+04_rb,0.11620e+04_rb,0.10006e+04_rb,0.83940e+03_rb,0.67808e+03_rb, &\n        & 0.73818e+03_rb,0.87693e+03_rb,0.10157e+04_rb,0.11549e+04_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.13077e+04_rb,0.11481e+04_rb,0.98850e+03_rb,0.82952e+03_rb,0.66976e+03_rb, &\n        & 0.73685e+03_rb,0.87533e+03_rb,0.10140e+04_rb,0.11525e+04_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.13336e+04_rb,0.11711e+04_rb,0.10088e+04_rb,0.84626e+03_rb,0.68382e+03_rb, &\n        & 0.74131e+03_rb,0.88025e+03_rb,0.10205e+04_rb,0.11609e+04_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.13133e+04_rb,0.11535e+04_rb,0.99382e+03_rb,0.83328e+03_rb,0.67355e+03_rb, &\n        & 0.73954e+03_rb,0.87931e+03_rb,0.10187e+04_rb,0.11591e+04_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.12952e+04_rb,0.11377e+04_rb,0.97980e+03_rb,0.82257e+03_rb,0.66450e+03_rb, &\n        & 0.73910e+03_rb,0.87831e+03_rb,0.10177e+04_rb,0.11576e+04_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.12798e+04_rb,0.11238e+04_rb,0.96848e+03_rb,0.81189e+03_rb,0.65672e+03_rb, &\n        & 0.73820e+03_rb,0.87729e+03_rb,0.10162e+04_rb,0.11560e+04_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.12652e+04_rb,0.11115e+04_rb,0.95739e+03_rb,0.80373e+03_rb,0.64938e+03_rb, &\n        & 0.73712e+03_rb,0.87584e+03_rb,0.10149e+04_rb,0.11541e+04_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.12921e+04_rb,0.11338e+04_rb,0.97649e+03_rb,0.81965e+03_rb,0.66193e+03_rb, &\n        & 0.74117e+03_rb,0.88056e+03_rb,0.10212e+04_rb,0.11621e+04_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.12725e+04_rb,0.11175e+04_rb,0.96294e+03_rb,0.80792e+03_rb,0.65314e+03_rb, &\n        & 0.74018e+03_rb,0.87944e+03_rb,0.10196e+04_rb,0.11602e+04_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.12569e+04_rb,0.11032e+04_rb,0.95038e+03_rb,0.79825e+03_rb,0.64471e+03_rb, &\n        & 0.73910e+03_rb,0.87852e+03_rb,0.10181e+04_rb,0.11585e+04_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.12428e+04_rb,0.10914e+04_rb,0.94028e+03_rb,0.78940e+03_rb,0.63769e+03_rb, &\n        & 0.73816e+03_rb,0.87758e+03_rb,0.10170e+04_rb,0.11569e+04_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.12310e+04_rb,0.10815e+04_rb,0.93149e+03_rb,0.78151e+03_rb,0.63218e+03_rb, &\n        & 0.73726e+03_rb,0.87637e+03_rb,0.10156e+04_rb,0.11553e+04_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.12531e+04_rb,0.11009e+04_rb,0.94808e+03_rb,0.79569e+03_rb,0.64353e+03_rb, &\n        & 0.74092e+03_rb,0.88101e+03_rb,0.10222e+04_rb,0.11631e+04_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.12357e+04_rb,0.10861e+04_rb,0.93599e+03_rb,0.78490e+03_rb,0.63564e+03_rb, &\n        & 0.74008e+03_rb,0.87961e+03_rb,0.10203e+04_rb,0.11613e+04_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.12227e+04_rb,0.10738e+04_rb,0.92501e+03_rb,0.77680e+03_rb,0.62842e+03_rb, &\n        & 0.73914e+03_rb,0.87860e+03_rb,0.10179e+04_rb,0.11592e+04_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.12109e+04_rb,0.10632e+04_rb,0.91605e+03_rb,0.76920e+03_rb,0.62177e+03_rb, &\n        & 0.73819e+03_rb,0.87758e+03_rb,0.10174e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.11998e+04_rb,0.10537e+04_rb,0.90813e+03_rb,0.76232e+03_rb,0.61616e+03_rb, &\n        & 0.73732e+03_rb,0.87676e+03_rb,0.10162e+04_rb,0.11563e+04_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.12137e+04_rb,0.10654e+04_rb,0.91884e+03_rb,0.77105e+03_rb,0.62358e+03_rb, &\n        & 0.74042e+03_rb,0.88057e+03_rb,0.10221e+04_rb,0.11630e+04_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.11999e+04_rb,0.10545e+04_rb,0.90854e+03_rb,0.76253e+03_rb,0.61715e+03_rb, &\n        & 0.73961e+03_rb,0.87932e+03_rb,0.10201e+04_rb,0.11611e+04_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.11890e+04_rb,0.10445e+04_rb,0.90019e+03_rb,0.75537e+03_rb,0.61109e+03_rb, &\n        & 0.73864e+03_rb,0.87832e+03_rb,0.10186e+04_rb,0.11592e+04_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.11789e+04_rb,0.10359e+04_rb,0.89280e+03_rb,0.74928e+03_rb,0.60622e+03_rb, &\n        & 0.73779e+03_rb,0.87747e+03_rb,0.10172e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.11709e+04_rb,0.10287e+04_rb,0.88607e+03_rb,0.74401e+03_rb,0.60247e+03_rb, &\n        & 0.73688e+03_rb,0.87644e+03_rb,0.10160e+04_rb,0.11563e+04_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.11820e+04_rb,0.10383e+04_rb,0.89456e+03_rb,0.75081e+03_rb,0.60714e+03_rb, &\n        & 0.74001e+03_rb,0.88049e+03_rb,0.10220e+04_rb,0.11631e+04_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.11713e+04_rb,0.10290e+04_rb,0.88623e+03_rb,0.74407e+03_rb,0.60058e+03_rb, &\n        & 0.73921e+03_rb,0.87901e+03_rb,0.10201e+04_rb,0.11611e+04_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.11605e+04_rb,0.10200e+04_rb,0.87951e+03_rb,0.73788e+03_rb,0.59769e+03_rb, &\n        & 0.73835e+03_rb,0.87808e+03_rb,0.10182e+04_rb,0.11591e+04_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.11533e+04_rb,0.10132e+04_rb,0.87284e+03_rb,0.73305e+03_rb,0.59795e+03_rb, &\n        & 0.73753e+03_rb,0.87718e+03_rb,0.10171e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.11467e+04_rb,0.10071e+04_rb,0.86739e+03_rb,0.72890e+03_rb,0.59711e+03_rb, &\n        & 0.73664e+03_rb,0.87623e+03_rb,0.10159e+04_rb,0.11563e+04_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.11553e+04_rb,0.10149e+04_rb,0.87419e+03_rb,0.73470e+03_rb,0.59975e+03_rb, &\n        & 0.73968e+03_rb,0.88029e+03_rb,0.10219e+04_rb,0.11630e+04_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.11455e+04_rb,0.10072e+04_rb,0.86782e+03_rb,0.72873e+03_rb,0.59921e+03_rb, &\n        & 0.73889e+03_rb,0.87889e+03_rb,0.10200e+04_rb,0.11611e+04_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.11380e+04_rb,0.10000e+04_rb,0.86190e+03_rb,0.72452e+03_rb,0.59831e+03_rb, &\n        & 0.73799e+03_rb,0.87789e+03_rb,0.10182e+04_rb,0.11592e+04_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.11318e+04_rb,0.99472e+03_rb,0.85697e+03_rb,0.71950e+03_rb,0.59744e+03_rb, &\n        & 0.73726e+03_rb,0.87708e+03_rb,0.10170e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.11253e+04_rb,0.98825e+03_rb,0.85273e+03_rb,0.71635e+03_rb,0.59683e+03_rb, &\n        & 0.73639e+03_rb,0.87606e+03_rb,0.10160e+04_rb,0.11562e+04_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.19598e+04_rb,0.17186e+04_rb,0.14777e+04_rb,0.12380e+04_rb,0.99729e+03_rb, &\n        & 0.75567e+03_rb,0.88469e+03_rb,0.10202e+04_rb,0.11560e+04_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.19102e+04_rb,0.16743e+04_rb,0.14414e+04_rb,0.12066e+04_rb,0.97117e+03_rb, &\n        & 0.74679e+03_rb,0.88252e+03_rb,0.10178e+04_rb,0.11544e+04_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.18656e+04_rb,0.16383e+04_rb,0.14073e+04_rb,0.11791e+04_rb,0.94951e+03_rb, &\n        & 0.74505e+03_rb,0.88029e+03_rb,0.10159e+04_rb,0.11530e+04_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.18261e+04_rb,0.16025e+04_rb,0.13782e+04_rb,0.11540e+04_rb,0.92917e+03_rb, &\n        & 0.74299e+03_rb,0.87816e+03_rb,0.10141e+04_rb,0.11522e+04_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.17888e+04_rb,0.15710e+04_rb,0.13500e+04_rb,0.11298e+04_rb,0.91140e+03_rb, &\n        & 0.74109e+03_rb,0.87588e+03_rb,0.10122e+04_rb,0.11510e+04_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.18117e+04_rb,0.15887e+04_rb,0.13651e+04_rb,0.11459e+04_rb,0.92177e+03_rb, &\n        & 0.74731e+03_rb,0.88412e+03_rb,0.10203e+04_rb,0.11568e+04_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.17673e+04_rb,0.15512e+04_rb,0.13335e+04_rb,0.11174e+04_rb,0.90028e+03_rb, &\n        & 0.74546e+03_rb,0.88203e+03_rb,0.10179e+04_rb,0.11551e+04_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.17317e+04_rb,0.15193e+04_rb,0.13050e+04_rb,0.10955e+04_rb,0.88112e+03_rb, &\n        & 0.74378e+03_rb,0.87978e+03_rb,0.10161e+04_rb,0.11535e+04_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.16956e+04_rb,0.14873e+04_rb,0.12805e+04_rb,0.10729e+04_rb,0.86470e+03_rb, &\n        & 0.74189e+03_rb,0.87768e+03_rb,0.10142e+04_rb,0.11524e+04_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.16657e+04_rb,0.14596e+04_rb,0.12568e+04_rb,0.10531e+04_rb,0.84904e+03_rb, &\n        & 0.73979e+03_rb,0.87528e+03_rb,0.10122e+04_rb,0.11511e+04_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.16927e+04_rb,0.14859e+04_rb,0.12782e+04_rb,0.10724e+04_rb,0.86335e+03_rb, &\n        & 0.74646e+03_rb,0.88392e+03_rb,0.10211e+04_rb,0.11579e+04_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.16581e+04_rb,0.14524e+04_rb,0.12540e+04_rb,0.10466e+04_rb,0.84448e+03_rb, &\n        & 0.74471e+03_rb,0.88205e+03_rb,0.10189e+04_rb,0.11562e+04_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.16261e+04_rb,0.14229e+04_rb,0.12269e+04_rb,0.10264e+04_rb,0.82790e+03_rb, &\n        & 0.74305e+03_rb,0.87988e+03_rb,0.10167e+04_rb,0.11544e+04_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.15929e+04_rb,0.13986e+04_rb,0.12038e+04_rb,0.10084e+04_rb,0.81266e+03_rb, &\n        & 0.74160e+03_rb,0.87767e+03_rb,0.10148e+04_rb,0.11530e+04_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.15661e+04_rb,0.13746e+04_rb,0.11837e+04_rb,0.99103e+03_rb,0.79967e+03_rb, &\n        & 0.73929e+03_rb,0.87586e+03_rb,0.10132e+04_rb,0.11521e+04_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.15973e+04_rb,0.14004e+04_rb,0.12065e+04_rb,0.10106e+04_rb,0.81385e+03_rb, &\n        & 0.74599e+03_rb,0.88404e+03_rb,0.10218e+04_rb,0.11590e+04_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.15637e+04_rb,0.13722e+04_rb,0.11812e+04_rb,0.98900e+03_rb,0.79856e+03_rb, &\n        & 0.74428e+03_rb,0.88217e+03_rb,0.10197e+04_rb,0.11572e+04_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.15340e+04_rb,0.13469e+04_rb,0.11576e+04_rb,0.97012e+03_rb,0.78412e+03_rb, &\n        & 0.74257e+03_rb,0.88022e+03_rb,0.10176e+04_rb,0.11556e+04_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.15085e+04_rb,0.13226e+04_rb,0.11393e+04_rb,0.95486e+03_rb,0.76980e+03_rb, &\n        & 0.74114e+03_rb,0.87815e+03_rb,0.10155e+04_rb,0.11538e+04_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.14836e+04_rb,0.13020e+04_rb,0.11212e+04_rb,0.93957e+03_rb,0.75824e+03_rb, &\n        & 0.73939e+03_rb,0.87630e+03_rb,0.10138e+04_rb,0.11526e+04_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.15143e+04_rb,0.13286e+04_rb,0.11431e+04_rb,0.95847e+03_rb,0.77403e+03_rb, &\n        & 0.74572e+03_rb,0.88418e+03_rb,0.10223e+04_rb,0.11603e+04_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.14842e+04_rb,0.13025e+04_rb,0.11230e+04_rb,0.94028e+03_rb,0.75881e+03_rb, &\n        & 0.74405e+03_rb,0.88254e+03_rb,0.10205e+04_rb,0.11584e+04_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.14577e+04_rb,0.12799e+04_rb,0.11020e+04_rb,0.92340e+03_rb,0.74531e+03_rb, &\n        & 0.74244e+03_rb,0.88060e+03_rb,0.10185e+04_rb,0.11566e+04_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.14365e+04_rb,0.12603e+04_rb,0.10859e+04_rb,0.90939e+03_rb,0.73467e+03_rb, &\n        & 0.74090e+03_rb,0.87865e+03_rb,0.10164e+04_rb,0.11549e+04_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.14147e+04_rb,0.12422e+04_rb,0.10695e+04_rb,0.89657e+03_rb,0.72409e+03_rb, &\n        & 0.73938e+03_rb,0.87659e+03_rb,0.10145e+04_rb,0.11530e+04_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.14426e+04_rb,0.12686e+04_rb,0.10911e+04_rb,0.91528e+03_rb,0.73914e+03_rb, &\n        & 0.74563e+03_rb,0.88436e+03_rb,0.10228e+04_rb,0.11615e+04_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.14171e+04_rb,0.12457e+04_rb,0.10728e+04_rb,0.89861e+03_rb,0.72517e+03_rb, &\n        & 0.74402e+03_rb,0.88280e+03_rb,0.10215e+04_rb,0.11596e+04_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.13943e+04_rb,0.12252e+04_rb,0.10539e+04_rb,0.88362e+03_rb,0.71333e+03_rb, &\n        & 0.74243e+03_rb,0.88117e+03_rb,0.10194e+04_rb,0.11577e+04_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.13749e+04_rb,0.12056e+04_rb,0.10405e+04_rb,0.87188e+03_rb,0.70449e+03_rb, &\n        & 0.74089e+03_rb,0.87923e+03_rb,0.10173e+04_rb,0.11560e+04_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.13580e+04_rb,0.11907e+04_rb,0.10258e+04_rb,0.85998e+03_rb,0.69473e+03_rb, &\n        & 0.73937e+03_rb,0.87727e+03_rb,0.10154e+04_rb,0.11543e+04_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.13844e+04_rb,0.12166e+04_rb,0.10469e+04_rb,0.87815e+03_rb,0.70873e+03_rb, &\n        & 0.74560e+03_rb,0.88449e+03_rb,0.10233e+04_rb,0.11626e+04_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.13610e+04_rb,0.11962e+04_rb,0.10291e+04_rb,0.86318e+03_rb,0.69730e+03_rb, &\n        & 0.74409e+03_rb,0.88322e+03_rb,0.10221e+04_rb,0.11608e+04_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.13413e+04_rb,0.11786e+04_rb,0.10145e+04_rb,0.85031e+03_rb,0.68760e+03_rb, &\n        & 0.74253e+03_rb,0.88154e+03_rb,0.10203e+04_rb,0.11589e+04_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.13235e+04_rb,0.11630e+04_rb,0.10007e+04_rb,0.84004e+03_rb,0.67864e+03_rb, &\n        & 0.74101e+03_rb,0.87982e+03_rb,0.10185e+04_rb,0.11572e+04_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.13063e+04_rb,0.11482e+04_rb,0.98932e+03_rb,0.82998e+03_rb,0.67037e+03_rb, &\n        & 0.73955e+03_rb,0.87796e+03_rb,0.10167e+04_rb,0.11554e+04_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.13361e+04_rb,0.11714e+04_rb,0.10092e+04_rb,0.84627e+03_rb,0.68340e+03_rb, &\n        & 0.74540e+03_rb,0.88457e+03_rb,0.10236e+04_rb,0.11638e+04_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.13143e+04_rb,0.11537e+04_rb,0.99295e+03_rb,0.83355e+03_rb,0.67330e+03_rb, &\n        & 0.74420e+03_rb,0.88339e+03_rb,0.10225e+04_rb,0.11619e+04_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.12952e+04_rb,0.11377e+04_rb,0.98075e+03_rb,0.82213e+03_rb,0.66496e+03_rb, &\n        & 0.74271e+03_rb,0.88199e+03_rb,0.10211e+04_rb,0.11601e+04_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.12808e+04_rb,0.11242e+04_rb,0.96858e+03_rb,0.81350e+03_rb,0.65663e+03_rb, &\n        & 0.74121e+03_rb,0.88037e+03_rb,0.10192e+04_rb,0.11582e+04_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.12664e+04_rb,0.11113e+04_rb,0.95757e+03_rb,0.80317e+03_rb,0.64978e+03_rb, &\n        & 0.73975e+03_rb,0.87862e+03_rb,0.10173e+04_rb,0.11564e+04_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.12911e+04_rb,0.11331e+04_rb,0.97754e+03_rb,0.81972e+03_rb,0.66210e+03_rb, &\n        & 0.74501e+03_rb,0.88462e+03_rb,0.10244e+04_rb,0.11652e+04_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.12743e+04_rb,0.11193e+04_rb,0.96288e+03_rb,0.80865e+03_rb,0.65325e+03_rb, &\n        & 0.74437e+03_rb,0.88360e+03_rb,0.10230e+04_rb,0.11629e+04_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.12573e+04_rb,0.11051e+04_rb,0.95155e+03_rb,0.79729e+03_rb,0.64451e+03_rb, &\n        & 0.74294e+03_rb,0.88237e+03_rb,0.10218e+04_rb,0.11610e+04_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.12441e+04_rb,0.10920e+04_rb,0.94089e+03_rb,0.78911e+03_rb,0.63797e+03_rb, &\n        & 0.74148e+03_rb,0.88091e+03_rb,0.10202e+04_rb,0.11593e+04_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.12297e+04_rb,0.10813e+04_rb,0.93127e+03_rb,0.78127e+03_rb,0.63265e+03_rb, &\n        & 0.74003e+03_rb,0.87926e+03_rb,0.10184e+04_rb,0.11573e+04_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.12530e+04_rb,0.11001e+04_rb,0.94821e+03_rb,0.79486e+03_rb,0.64277e+03_rb, &\n        & 0.74454e+03_rb,0.88447e+03_rb,0.10249e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.12387e+04_rb,0.10865e+04_rb,0.93685e+03_rb,0.78643e+03_rb,0.63425e+03_rb, &\n        & 0.74423e+03_rb,0.88371e+03_rb,0.10234e+04_rb,0.11637e+04_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.12243e+04_rb,0.10744e+04_rb,0.92585e+03_rb,0.77676e+03_rb,0.62740e+03_rb, &\n        & 0.74307e+03_rb,0.88260e+03_rb,0.10221e+04_rb,0.11620e+04_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.12107e+04_rb,0.10640e+04_rb,0.91623e+03_rb,0.76957e+03_rb,0.62235e+03_rb, &\n        & 0.74168e+03_rb,0.88129e+03_rb,0.10208e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.12010e+04_rb,0.10536e+04_rb,0.90891e+03_rb,0.76248e+03_rb,0.61761e+03_rb, &\n        & 0.74025e+03_rb,0.87965e+03_rb,0.10191e+04_rb,0.11583e+04_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.12140e+04_rb,0.10672e+04_rb,0.91852e+03_rb,0.77048e+03_rb,0.62320e+03_rb, &\n        & 0.74401e+03_rb,0.88413e+03_rb,0.10249e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.12007e+04_rb,0.10549e+04_rb,0.90904e+03_rb,0.76333e+03_rb,0.61635e+03_rb, &\n        & 0.74367e+03_rb,0.88337e+03_rb,0.10233e+04_rb,0.11639e+04_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.11891e+04_rb,0.10458e+04_rb,0.90055e+03_rb,0.75543e+03_rb,0.61123e+03_rb, &\n        & 0.74262e+03_rb,0.88229e+03_rb,0.10219e+04_rb,0.11620e+04_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.11794e+04_rb,0.10371e+04_rb,0.89190e+03_rb,0.74912e+03_rb,0.60572e+03_rb, &\n        & 0.74128e+03_rb,0.88110e+03_rb,0.10207e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.11697e+04_rb,0.10285e+04_rb,0.88631e+03_rb,0.74374e+03_rb,0.60062e+03_rb, &\n        & 0.73987e+03_rb,0.87958e+03_rb,0.10191e+04_rb,0.11583e+04_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.11829e+04_rb,0.10373e+04_rb,0.89433e+03_rb,0.75107e+03_rb,0.60775e+03_rb, &\n        & 0.74357e+03_rb,0.88385e+03_rb,0.10247e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.11707e+04_rb,0.10276e+04_rb,0.88712e+03_rb,0.74426e+03_rb,0.60163e+03_rb, &\n        & 0.74327e+03_rb,0.88309e+03_rb,0.10231e+04_rb,0.11639e+04_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.11629e+04_rb,0.10211e+04_rb,0.88018e+03_rb,0.73831e+03_rb,0.60184e+03_rb, &\n        & 0.74224e+03_rb,0.88203e+03_rb,0.10219e+04_rb,0.11620e+04_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.11538e+04_rb,0.10126e+04_rb,0.87253e+03_rb,0.73377e+03_rb,0.60080e+03_rb, &\n        & 0.74101e+03_rb,0.88067e+03_rb,0.10205e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.11449e+04_rb,0.10062e+04_rb,0.86764e+03_rb,0.72842e+03_rb,0.59975e+03_rb, &\n        & 0.73955e+03_rb,0.87926e+03_rb,0.10190e+04_rb,0.11583e+04_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.11561e+04_rb,0.10152e+04_rb,0.87509e+03_rb,0.73383e+03_rb,0.60253e+03_rb, &\n        & 0.74321e+03_rb,0.88362e+03_rb,0.10246e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.11468e+04_rb,0.10069e+04_rb,0.86783e+03_rb,0.72921e+03_rb,0.60211e+03_rb, &\n        & 0.74294e+03_rb,0.88286e+03_rb,0.10230e+04_rb,0.11639e+04_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.11390e+04_rb,0.10001e+04_rb,0.86301e+03_rb,0.72323e+03_rb,0.60140e+03_rb, &\n        & 0.74194e+03_rb,0.88181e+03_rb,0.10218e+04_rb,0.11621e+04_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.11313e+04_rb,0.99361e+03_rb,0.85706e+03_rb,0.72032e+03_rb,0.60042e+03_rb, &\n        & 0.74065e+03_rb,0.88048e+03_rb,0.10204e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.11266e+04_rb,0.99042e+03_rb,0.85257e+03_rb,0.71548e+03_rb,0.59931e+03_rb, &\n        & 0.73930e+03_rb,0.87908e+03_rb,0.10187e+04_rb,0.11583e+04_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.19596e+04_rb,0.17200e+04_rb,0.14802e+04_rb,0.12370e+04_rb,0.99641e+03_rb, &\n        & 0.75556e+03_rb,0.88658e+03_rb,0.10236e+04_rb,0.11622e+04_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.19107e+04_rb,0.16797e+04_rb,0.14463e+04_rb,0.12083e+04_rb,0.97440e+03_rb, &\n        & 0.74935e+03_rb,0.88455e+03_rb,0.10223e+04_rb,0.11611e+04_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.18687e+04_rb,0.16368e+04_rb,0.14091e+04_rb,0.11809e+04_rb,0.95100e+03_rb, &\n        & 0.74626e+03_rb,0.88278e+03_rb,0.10214e+04_rb,0.11600e+04_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.18274e+04_rb,0.15998e+04_rb,0.13805e+04_rb,0.11544e+04_rb,0.92955e+03_rb, &\n        & 0.74432e+03_rb,0.88029e+03_rb,0.10193e+04_rb,0.11572e+04_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.17908e+04_rb,0.15685e+04_rb,0.13492e+04_rb,0.11303e+04_rb,0.91228e+03_rb, &\n        & 0.74183e+03_rb,0.87814e+03_rb,0.10165e+04_rb,0.11551e+04_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.18091e+04_rb,0.15890e+04_rb,0.13701e+04_rb,0.11447e+04_rb,0.92240e+03_rb, &\n        & 0.75031e+03_rb,0.88580e+03_rb,0.10236e+04_rb,0.11628e+04_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.17702e+04_rb,0.15507e+04_rb,0.13346e+04_rb,0.11179e+04_rb,0.90072e+03_rb, &\n        & 0.74790e+03_rb,0.88384e+03_rb,0.10222e+04_rb,0.11616e+04_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.17282e+04_rb,0.15159e+04_rb,0.13066e+04_rb,0.10967e+04_rb,0.88274e+03_rb, &\n        & 0.74530e+03_rb,0.88241e+03_rb,0.10213e+04_rb,0.11606e+04_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.16964e+04_rb,0.14887e+04_rb,0.12816e+04_rb,0.10711e+04_rb,0.86387e+03_rb, &\n        & 0.74308e+03_rb,0.88064e+03_rb,0.10199e+04_rb,0.11593e+04_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.16664e+04_rb,0.14634e+04_rb,0.12570e+04_rb,0.10541e+04_rb,0.84878e+03_rb, &\n        & 0.74105e+03_rb,0.87802e+03_rb,0.10170e+04_rb,0.11559e+04_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.16969e+04_rb,0.14893e+04_rb,0.12806e+04_rb,0.10686e+04_rb,0.86200e+03_rb, &\n        & 0.74953e+03_rb,0.88586e+03_rb,0.10239e+04_rb,0.11637e+04_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.16530e+04_rb,0.14535e+04_rb,0.12505e+04_rb,0.10502e+04_rb,0.84485e+03_rb, &\n        & 0.74734e+03_rb,0.88380e+03_rb,0.10224e+04_rb,0.11623e+04_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.16258e+04_rb,0.14316e+04_rb,0.12308e+04_rb,0.10274e+04_rb,0.82737e+03_rb, &\n        & 0.74498e+03_rb,0.88220e+03_rb,0.10214e+04_rb,0.11612e+04_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.15947e+04_rb,0.13987e+04_rb,0.12036e+04_rb,0.10100e+04_rb,0.81398e+03_rb, &\n        & 0.74250e+03_rb,0.88073e+03_rb,0.10203e+04_rb,0.11601e+04_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.15659e+04_rb,0.13745e+04_rb,0.11827e+04_rb,0.99357e+03_rb,0.79945e+03_rb, &\n        & 0.74072e+03_rb,0.87844e+03_rb,0.10192e+04_rb,0.11574e+04_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.15993e+04_rb,0.14029e+04_rb,0.12034e+04_rb,0.10105e+04_rb,0.81494e+03_rb, &\n        & 0.74898e+03_rb,0.88604e+03_rb,0.10246e+04_rb,0.11648e+04_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.15603e+04_rb,0.13717e+04_rb,0.11803e+04_rb,0.99158e+03_rb,0.79797e+03_rb, &\n        & 0.74702e+03_rb,0.88413e+03_rb,0.10230e+04_rb,0.11631e+04_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.15363e+04_rb,0.13460e+04_rb,0.11581e+04_rb,0.97158e+03_rb,0.78286e+03_rb, &\n        & 0.74488e+03_rb,0.88249e+03_rb,0.10215e+04_rb,0.11618e+04_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.15069e+04_rb,0.13248e+04_rb,0.11397e+04_rb,0.95515e+03_rb,0.77185e+03_rb, &\n        & 0.74259e+03_rb,0.88086e+03_rb,0.10207e+04_rb,0.11608e+04_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.14842e+04_rb,0.13030e+04_rb,0.11201e+04_rb,0.94205e+03_rb,0.75928e+03_rb, &\n        & 0.74072e+03_rb,0.87912e+03_rb,0.10193e+04_rb,0.11593e+04_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.15161e+04_rb,0.13293e+04_rb,0.11434e+04_rb,0.96071e+03_rb,0.77366e+03_rb, &\n        & 0.74856e+03_rb,0.88634e+03_rb,0.10256e+04_rb,0.11660e+04_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.14862e+04_rb,0.13039e+04_rb,0.11202e+04_rb,0.93927e+03_rb,0.75808e+03_rb, &\n        & 0.74678e+03_rb,0.88432e+03_rb,0.10237e+04_rb,0.11641e+04_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.14569e+04_rb,0.12812e+04_rb,0.11040e+04_rb,0.92477e+03_rb,0.74608e+03_rb, &\n        & 0.74483e+03_rb,0.88267e+03_rb,0.10221e+04_rb,0.11626e+04_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.14370e+04_rb,0.12601e+04_rb,0.10866e+04_rb,0.91322e+03_rb,0.73546e+03_rb, &\n        & 0.74282e+03_rb,0.88106e+03_rb,0.10210e+04_rb,0.11614e+04_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.14157e+04_rb,0.12432e+04_rb,0.10692e+04_rb,0.89766e+03_rb,0.72371e+03_rb, &\n        & 0.74075e+03_rb,0.87977e+03_rb,0.10201e+04_rb,0.11604e+04_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.14446e+04_rb,0.12668e+04_rb,0.10902e+04_rb,0.91458e+03_rb,0.73853e+03_rb, &\n        & 0.74800e+03_rb,0.88683e+03_rb,0.10267e+04_rb,0.11674e+04_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.14180e+04_rb,0.12442e+04_rb,0.10729e+04_rb,0.90054e+03_rb,0.72712e+03_rb, &\n        & 0.74664e+03_rb,0.88490e+03_rb,0.10243e+04_rb,0.11653e+04_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.13970e+04_rb,0.12338e+04_rb,0.10562e+04_rb,0.88644e+03_rb,0.71466e+03_rb, &\n        & 0.74490e+03_rb,0.88299e+03_rb,0.10228e+04_rb,0.11635e+04_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.13772e+04_rb,0.12092e+04_rb,0.10403e+04_rb,0.87191e+03_rb,0.70566e+03_rb, &\n        & 0.74297e+03_rb,0.88145e+03_rb,0.10214e+04_rb,0.11622e+04_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.13536e+04_rb,0.11933e+04_rb,0.10279e+04_rb,0.85985e+03_rb,0.69532e+03_rb, &\n        & 0.74091e+03_rb,0.88002e+03_rb,0.10207e+04_rb,0.11611e+04_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.13872e+04_rb,0.12173e+04_rb,0.10473e+04_rb,0.87779e+03_rb,0.70929e+03_rb, &\n        & 0.74753e+03_rb,0.88739e+03_rb,0.10279e+04_rb,0.11686e+04_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.13614e+04_rb,0.11960e+04_rb,0.10302e+04_rb,0.86342e+03_rb,0.69779e+03_rb, &\n        & 0.74649e+03_rb,0.88535e+03_rb,0.10254e+04_rb,0.11666e+04_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.13423e+04_rb,0.11779e+04_rb,0.10152e+04_rb,0.85120e+03_rb,0.68669e+03_rb, &\n        & 0.74500e+03_rb,0.88364e+03_rb,0.10236e+04_rb,0.11646e+04_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.13222e+04_rb,0.11614e+04_rb,0.10027e+04_rb,0.84138e+03_rb,0.67980e+03_rb, &\n        & 0.74324e+03_rb,0.88194e+03_rb,0.10219e+04_rb,0.11628e+04_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.13077e+04_rb,0.11487e+04_rb,0.98870e+03_rb,0.82923e+03_rb,0.67117e+03_rb, &\n        & 0.74131e+03_rb,0.88052e+03_rb,0.10200e+04_rb,0.11617e+04_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.13318e+04_rb,0.11751e+04_rb,0.10116e+04_rb,0.84760e+03_rb,0.68552e+03_rb, &\n        & 0.74755e+03_rb,0.88764e+03_rb,0.10284e+04_rb,0.11697e+04_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.13123e+04_rb,0.11533e+04_rb,0.99316e+03_rb,0.83364e+03_rb,0.67452e+03_rb, &\n        & 0.74634e+03_rb,0.88623e+03_rb,0.10267e+04_rb,0.11679e+04_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.12963e+04_rb,0.11395e+04_rb,0.98036e+03_rb,0.82206e+03_rb,0.66378e+03_rb, &\n        & 0.74528e+03_rb,0.88422e+03_rb,0.10245e+04_rb,0.11657e+04_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.12799e+04_rb,0.11235e+04_rb,0.96838e+03_rb,0.81175e+03_rb,0.65688e+03_rb, &\n        & 0.74350e+03_rb,0.88249e+03_rb,0.10227e+04_rb,0.11639e+04_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.12649e+04_rb,0.11128e+04_rb,0.95762e+03_rb,0.80323e+03_rb,0.64917e+03_rb, &\n        & 0.74172e+03_rb,0.88089e+03_rb,0.10213e+04_rb,0.11624e+04_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.12892e+04_rb,0.11353e+04_rb,0.97529e+03_rb,0.81997e+03_rb,0.66439e+03_rb, &\n        & 0.74689e+03_rb,0.88774e+03_rb,0.10288e+04_rb,0.11703e+04_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.12710e+04_rb,0.11179e+04_rb,0.96230e+03_rb,0.80757e+03_rb,0.65174e+03_rb, &\n        & 0.74606e+03_rb,0.88671e+03_rb,0.10277e+04_rb,0.11691e+04_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.12556e+04_rb,0.11026e+04_rb,0.95506e+03_rb,0.79904e+03_rb,0.64512e+03_rb, &\n        & 0.74525e+03_rb,0.88489e+03_rb,0.10254e+04_rb,0.11669e+04_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.12434e+04_rb,0.10930e+04_rb,0.94625e+03_rb,0.79326e+03_rb,0.63956e+03_rb, &\n        & 0.74375e+03_rb,0.88308e+03_rb,0.10236e+04_rb,0.11649e+04_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.12362e+04_rb,0.10807e+04_rb,0.93519e+03_rb,0.78318e+03_rb,0.63176e+03_rb, &\n        & 0.74222e+03_rb,0.88144e+03_rb,0.10218e+04_rb,0.11632e+04_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.12560e+04_rb,0.11008e+04_rb,0.94819e+03_rb,0.79713e+03_rb,0.64289e+03_rb, &\n        & 0.74662e+03_rb,0.88790e+03_rb,0.10293e+04_rb,0.11710e+04_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.12370e+04_rb,0.10868e+04_rb,0.93614e+03_rb,0.78750e+03_rb,0.63591e+03_rb, &\n        & 0.74589e+03_rb,0.88689e+03_rb,0.10281e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.12228e+04_rb,0.10745e+04_rb,0.92565e+03_rb,0.77586e+03_rb,0.63013e+03_rb, &\n        & 0.74525e+03_rb,0.88546e+03_rb,0.10265e+04_rb,0.11680e+04_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.12130e+04_rb,0.10629e+04_rb,0.91805e+03_rb,0.77218e+03_rb,0.62214e+03_rb, &\n        & 0.74398e+03_rb,0.88360e+03_rb,0.10243e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.11990e+04_rb,0.10561e+04_rb,0.90990e+03_rb,0.76234e+03_rb,0.61782e+03_rb, &\n        & 0.74238e+03_rb,0.88192e+03_rb,0.10225e+04_rb,0.11640e+04_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.12160e+04_rb,0.10660e+04_rb,0.91756e+03_rb,0.77092e+03_rb,0.62410e+03_rb, &\n        & 0.74614e+03_rb,0.88758e+03_rb,0.10288e+04_rb,0.11712e+04_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.12001e+04_rb,0.10573e+04_rb,0.90897e+03_rb,0.76187e+03_rb,0.61778e+03_rb, &\n        & 0.74563e+03_rb,0.88659e+03_rb,0.10280e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.11883e+04_rb,0.10436e+04_rb,0.89901e+03_rb,0.75711e+03_rb,0.61087e+03_rb, &\n        & 0.74468e+03_rb,0.88519e+03_rb,0.10264e+04_rb,0.11680e+04_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.11791e+04_rb,0.10338e+04_rb,0.89462e+03_rb,0.74974e+03_rb,0.60740e+03_rb, &\n        & 0.74372e+03_rb,0.88322e+03_rb,0.10242e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.11736e+04_rb,0.10284e+04_rb,0.88610e+03_rb,0.74386e+03_rb,0.60256e+03_rb, &\n        & 0.74204e+03_rb,0.88156e+03_rb,0.10223e+04_rb,0.11640e+04_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.11783e+04_rb,0.10408e+04_rb,0.89462e+03_rb,0.75034e+03_rb,0.60838e+03_rb, &\n        & 0.74575e+03_rb,0.88732e+03_rb,0.10288e+04_rb,0.11710e+04_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.11693e+04_rb,0.10333e+04_rb,0.88486e+03_rb,0.74467e+03_rb,0.60420e+03_rb, &\n        & 0.74514e+03_rb,0.88635e+03_rb,0.10279e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.11597e+04_rb,0.10197e+04_rb,0.87845e+03_rb,0.73901e+03_rb,0.60371e+03_rb, &\n        & 0.74440e+03_rb,0.88495e+03_rb,0.10263e+04_rb,0.11680e+04_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.11554e+04_rb,0.10154e+04_rb,0.87390e+03_rb,0.73209e+03_rb,0.60310e+03_rb, &\n        & 0.74343e+03_rb,0.88312e+03_rb,0.10241e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.11463e+04_rb,0.10081e+04_rb,0.86768e+03_rb,0.73113e+03_rb,0.60226e+03_rb, &\n        & 0.74178e+03_rb,0.88148e+03_rb,0.10222e+04_rb,0.11640e+04_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.11576e+04_rb,0.10172e+04_rb,0.87697e+03_rb,0.73496e+03_rb,0.60442e+03_rb, &\n        & 0.74542e+03_rb,0.88710e+03_rb,0.10287e+04_rb,0.11710e+04_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.11489e+04_rb,0.10121e+04_rb,0.86787e+03_rb,0.73038e+03_rb,0.60369e+03_rb, &\n        & 0.74483e+03_rb,0.88615e+03_rb,0.10278e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.11408e+04_rb,0.10003e+04_rb,0.86069e+03_rb,0.72468e+03_rb,0.60332e+03_rb, &\n        & 0.74398e+03_rb,0.88477e+03_rb,0.10262e+04_rb,0.11679e+04_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.11353e+04_rb,0.99812e+03_rb,0.85805e+03_rb,0.72010e+03_rb,0.60276e+03_rb, &\n        & 0.74301e+03_rb,0.88294e+03_rb,0.10240e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.11276e+04_rb,0.99093e+03_rb,0.85424e+03_rb,0.71851e+03_rb,0.60186e+03_rb, &\n        & 0.74137e+03_rb,0.88131e+03_rb,0.10223e+04_rb,0.11640e+04_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.19698e+04_rb,0.17183e+04_rb,0.14812e+04_rb,0.12476e+04_rb,0.10057e+04_rb, &\n        & 0.76142e+03_rb,0.89076e+03_rb,0.10305e+04_rb,0.11701e+04_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.19138e+04_rb,0.16790e+04_rb,0.14471e+04_rb,0.12079e+04_rb,0.97024e+03_rb, &\n        & 0.74958e+03_rb,0.88854e+03_rb,0.10281e+04_rb,0.11676e+04_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.18656e+04_rb,0.16362e+04_rb,0.14072e+04_rb,0.11764e+04_rb,0.95368e+03_rb, &\n        & 0.74756e+03_rb,0.88578e+03_rb,0.10247e+04_rb,0.11642e+04_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.18274e+04_rb,0.16076e+04_rb,0.13744e+04_rb,0.11522e+04_rb,0.93101e+03_rb, &\n        & 0.74489e+03_rb,0.88368e+03_rb,0.10224e+04_rb,0.11624e+04_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.18123e+04_rb,0.15711e+04_rb,0.13539e+04_rb,0.11391e+04_rb,0.91271e+03_rb, &\n        & 0.74309e+03_rb,0.88194e+03_rb,0.10210e+04_rb,0.11601e+04_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.18136e+04_rb,0.16074e+04_rb,0.13682e+04_rb,0.11455e+04_rb,0.92152e+03_rb, &\n        & 0.75090e+03_rb,0.89044e+03_rb,0.10309e+04_rb,0.11711e+04_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.17663e+04_rb,0.15639e+04_rb,0.13412e+04_rb,0.11338e+04_rb,0.90565e+03_rb, &\n        & 0.74892e+03_rb,0.88842e+03_rb,0.10286e+04_rb,0.11690e+04_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.17473e+04_rb,0.15168e+04_rb,0.13179e+04_rb,0.10933e+04_rb,0.88564e+03_rb, &\n        & 0.74657e+03_rb,0.88587e+03_rb,0.10277e+04_rb,0.11659e+04_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.16935e+04_rb,0.14940e+04_rb,0.12866e+04_rb,0.10771e+04_rb,0.86513e+03_rb, &\n        & 0.74388e+03_rb,0.88292e+03_rb,0.10226e+04_rb,0.11621e+04_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.16796e+04_rb,0.14587e+04_rb,0.12610e+04_rb,0.10625e+04_rb,0.85051e+03_rb, &\n        & 0.74222e+03_rb,0.88187e+03_rb,0.10215e+04_rb,0.11614e+04_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.16915e+04_rb,0.14853e+04_rb,0.12759e+04_rb,0.10742e+04_rb,0.87078e+03_rb, &\n        & 0.75040e+03_rb,0.89056e+03_rb,0.10314e+04_rb,0.11723e+04_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.16685e+04_rb,0.14695e+04_rb,0.12569e+04_rb,0.10522e+04_rb,0.84369e+03_rb, &\n        & 0.74849e+03_rb,0.88875e+03_rb,0.10295e+04_rb,0.11702e+04_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.16315e+04_rb,0.14234e+04_rb,0.12207e+04_rb,0.10278e+04_rb,0.83542e+03_rb, &\n        & 0.74665e+03_rb,0.88665e+03_rb,0.10272e+04_rb,0.11677e+04_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.15936e+04_rb,0.13973e+04_rb,0.11983e+04_rb,0.10068e+04_rb,0.81253e+03_rb, &\n        & 0.74392e+03_rb,0.88383e+03_rb,0.10241e+04_rb,0.11643e+04_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.15704e+04_rb,0.13749e+04_rb,0.11794e+04_rb,0.99081e+03_rb,0.79887e+03_rb, &\n        & 0.74214e+03_rb,0.88216e+03_rb,0.10204e+04_rb,0.11625e+04_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.16005e+04_rb,0.14146e+04_rb,0.12141e+04_rb,0.10096e+04_rb,0.81830e+03_rb, &\n        & 0.74981e+03_rb,0.89073e+03_rb,0.10323e+04_rb,0.11736e+04_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.15697e+04_rb,0.13709e+04_rb,0.11792e+04_rb,0.98706e+03_rb,0.80274e+03_rb, &\n        & 0.74843e+03_rb,0.88917e+03_rb,0.10304e+04_rb,0.11716e+04_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.15342e+04_rb,0.13528e+04_rb,0.11633e+04_rb,0.97494e+03_rb,0.78298e+03_rb, &\n        & 0.74655e+03_rb,0.88714e+03_rb,0.10283e+04_rb,0.11694e+04_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.15079e+04_rb,0.13273e+04_rb,0.11368e+04_rb,0.95326e+03_rb,0.76898e+03_rb, &\n        & 0.74477e+03_rb,0.88522e+03_rb,0.10258e+04_rb,0.11666e+04_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.14904e+04_rb,0.13050e+04_rb,0.11274e+04_rb,0.94133e+03_rb,0.75918e+03_rb, &\n        & 0.74185e+03_rb,0.88236e+03_rb,0.10229e+04_rb,0.11634e+04_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.15223e+04_rb,0.13292e+04_rb,0.11458e+04_rb,0.96632e+03_rb,0.77253e+03_rb, &\n        & 0.74931e+03_rb,0.89080e+03_rb,0.10327e+04_rb,0.11744e+04_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.14887e+04_rb,0.13100e+04_rb,0.11308e+04_rb,0.95564e+03_rb,0.76318e+03_rb, &\n        & 0.74814e+03_rb,0.88953e+03_rb,0.10311e+04_rb,0.11728e+04_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.14666e+04_rb,0.12805e+04_rb,0.10990e+04_rb,0.92585e+03_rb,0.74527e+03_rb, &\n        & 0.74662e+03_rb,0.88788e+03_rb,0.10293e+04_rb,0.11708e+04_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.14380e+04_rb,0.12615e+04_rb,0.10805e+04_rb,0.91192e+03_rb,0.73306e+03_rb, &\n        & 0.74471e+03_rb,0.88594e+03_rb,0.10272e+04_rb,0.11684e+04_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.14117e+04_rb,0.12389e+04_rb,0.10707e+04_rb,0.89863e+03_rb,0.72872e+03_rb, &\n        & 0.74254e+03_rb,0.88356e+03_rb,0.10243e+04_rb,0.11652e+04_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.14428e+04_rb,0.12661e+04_rb,0.10990e+04_rb,0.91605e+03_rb,0.74645e+03_rb, &\n        & 0.74914e+03_rb,0.89068e+03_rb,0.10327e+04_rb,0.11747e+04_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.14277e+04_rb,0.12454e+04_rb,0.10670e+04_rb,0.90364e+03_rb,0.72758e+03_rb, &\n        & 0.74802e+03_rb,0.88983e+03_rb,0.10318e+04_rb,0.11738e+04_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.14072e+04_rb,0.12244e+04_rb,0.10539e+04_rb,0.88576e+03_rb,0.71342e+03_rb, &\n        & 0.74674e+03_rb,0.88844e+03_rb,0.10303e+04_rb,0.11723e+04_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.13764e+04_rb,0.12101e+04_rb,0.10371e+04_rb,0.87173e+03_rb,0.70565e+03_rb, &\n        & 0.74519e+03_rb,0.88672e+03_rb,0.10284e+04_rb,0.11700e+04_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.13559e+04_rb,0.11928e+04_rb,0.10275e+04_rb,0.87202e+03_rb,0.69916e+03_rb, &\n        & 0.74337e+03_rb,0.88468e+03_rb,0.10257e+04_rb,0.11677e+04_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.13816e+04_rb,0.12181e+04_rb,0.10498e+04_rb,0.87727e+03_rb,0.70862e+03_rb, &\n        & 0.74879e+03_rb,0.89032e+03_rb,0.10324e+04_rb,0.11748e+04_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.13746e+04_rb,0.12007e+04_rb,0.10368e+04_rb,0.86700e+03_rb,0.69742e+03_rb, &\n        & 0.74791e+03_rb,0.88998e+03_rb,0.10322e+04_rb,0.11745e+04_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.13471e+04_rb,0.11822e+04_rb,0.10118e+04_rb,0.85187e+03_rb,0.69076e+03_rb, &\n        & 0.74684e+03_rb,0.88891e+03_rb,0.10311e+04_rb,0.11732e+04_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.13306e+04_rb,0.11625e+04_rb,0.10055e+04_rb,0.83687e+03_rb,0.67946e+03_rb, &\n        & 0.74564e+03_rb,0.88741e+03_rb,0.10294e+04_rb,0.11714e+04_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.13072e+04_rb,0.11462e+04_rb,0.98997e+03_rb,0.82975e+03_rb,0.67148e+03_rb, &\n        & 0.74390e+03_rb,0.88544e+03_rb,0.10275e+04_rb,0.11691e+04_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.13342e+04_rb,0.11738e+04_rb,0.10072e+04_rb,0.84777e+03_rb,0.68336e+03_rb, &\n        & 0.74810e+03_rb,0.89032e+03_rb,0.10328e+04_rb,0.11753e+04_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.13170e+04_rb,0.11565e+04_rb,0.99551e+03_rb,0.83812e+03_rb,0.67873e+03_rb, &\n        & 0.74767e+03_rb,0.88984e+03_rb,0.10325e+04_rb,0.11747e+04_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.12961e+04_rb,0.11348e+04_rb,0.98531e+03_rb,0.82142e+03_rb,0.66767e+03_rb, &\n        & 0.74660e+03_rb,0.88923e+03_rb,0.10317e+04_rb,0.11741e+04_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.12863e+04_rb,0.11324e+04_rb,0.96704e+03_rb,0.81553e+03_rb,0.65703e+03_rb, &\n        & 0.74590e+03_rb,0.88815e+03_rb,0.10305e+04_rb,0.11725e+04_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.12689e+04_rb,0.11113e+04_rb,0.96142e+03_rb,0.81188e+03_rb,0.65150e+03_rb, &\n        & 0.74435e+03_rb,0.88637e+03_rb,0.10284e+04_rb,0.11705e+04_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.12929e+04_rb,0.11420e+04_rb,0.97941e+03_rb,0.82358e+03_rb,0.66259e+03_rb, &\n        & 0.74862e+03_rb,0.89046e+03_rb,0.10332e+04_rb,0.11761e+04_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.12739e+04_rb,0.11222e+04_rb,0.96918e+03_rb,0.81141e+03_rb,0.65436e+03_rb, &\n        & 0.74747e+03_rb,0.88962e+03_rb,0.10323e+04_rb,0.11749e+04_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.12674e+04_rb,0.11070e+04_rb,0.94554e+03_rb,0.79811e+03_rb,0.64989e+03_rb, &\n        & 0.74671e+03_rb,0.88937e+03_rb,0.10320e+04_rb,0.11746e+04_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.12536e+04_rb,0.10974e+04_rb,0.93180e+03_rb,0.78881e+03_rb,0.64048e+03_rb, &\n        & 0.74596e+03_rb,0.88846e+03_rb,0.10310e+04_rb,0.11735e+04_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.12304e+04_rb,0.10931e+04_rb,0.92897e+03_rb,0.78158e+03_rb,0.63657e+03_rb, &\n        & 0.74461e+03_rb,0.88706e+03_rb,0.10294e+04_rb,0.11717e+04_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.12516e+04_rb,0.11039e+04_rb,0.96641e+03_rb,0.80204e+03_rb,0.64728e+03_rb, &\n        & 0.74871e+03_rb,0.89043e+03_rb,0.10331e+04_rb,0.11761e+04_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.12445e+04_rb,0.10951e+04_rb,0.94205e+03_rb,0.78296e+03_rb,0.63684e+03_rb, &\n        & 0.74738e+03_rb,0.88974e+03_rb,0.10326e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.12212e+04_rb,0.10830e+04_rb,0.92907e+03_rb,0.78344e+03_rb,0.62583e+03_rb, &\n        & 0.74649e+03_rb,0.88924e+03_rb,0.10320e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.12116e+04_rb,0.10675e+04_rb,0.91424e+03_rb,0.76668e+03_rb,0.62374e+03_rb, &\n        & 0.74589e+03_rb,0.88889e+03_rb,0.10314e+04_rb,0.11741e+04_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.12052e+04_rb,0.10532e+04_rb,0.90488e+03_rb,0.76246e+03_rb,0.61399e+03_rb, &\n        & 0.74500e+03_rb,0.88754e+03_rb,0.10301e+04_rb,0.11727e+04_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.12119e+04_rb,0.10670e+04_rb,0.92549e+03_rb,0.77292e+03_rb,0.62469e+03_rb, &\n        & 0.74822e+03_rb,0.89015e+03_rb,0.10331e+04_rb,0.11759e+04_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.12040e+04_rb,0.10529e+04_rb,0.90947e+03_rb,0.76631e+03_rb,0.61756e+03_rb, &\n        & 0.74680e+03_rb,0.88950e+03_rb,0.10325e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.11932e+04_rb,0.10470e+04_rb,0.90374e+03_rb,0.75316e+03_rb,0.61137e+03_rb, &\n        & 0.74625e+03_rb,0.88901e+03_rb,0.10319e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.11901e+04_rb,0.10395e+04_rb,0.89205e+03_rb,0.75483e+03_rb,0.60707e+03_rb, &\n        & 0.74529e+03_rb,0.88868e+03_rb,0.10313e+04_rb,0.11742e+04_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.11740e+04_rb,0.10262e+04_rb,0.88782e+03_rb,0.74555e+03_rb,0.60321e+03_rb, &\n        & 0.74456e+03_rb,0.88735e+03_rb,0.10302e+04_rb,0.11727e+04_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.11952e+04_rb,0.10387e+04_rb,0.90464e+03_rb,0.75031e+03_rb,0.60579e+03_rb, &\n        & 0.74809e+03_rb,0.88993e+03_rb,0.10330e+04_rb,0.11761e+04_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.11767e+04_rb,0.10280e+04_rb,0.89305e+03_rb,0.74295e+03_rb,0.60520e+03_rb, &\n        & 0.74658e+03_rb,0.88930e+03_rb,0.10324e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.11638e+04_rb,0.10252e+04_rb,0.88200e+03_rb,0.74209e+03_rb,0.60448e+03_rb, &\n        & 0.74580e+03_rb,0.88883e+03_rb,0.10318e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.11608e+04_rb,0.10182e+04_rb,0.87717e+03_rb,0.73339e+03_rb,0.60384e+03_rb, &\n        & 0.74474e+03_rb,0.88834e+03_rb,0.10314e+04_rb,0.11742e+04_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.11455e+04_rb,0.10085e+04_rb,0.86868e+03_rb,0.72782e+03_rb,0.60261e+03_rb, &\n        & 0.74417e+03_rb,0.88752e+03_rb,0.10299e+04_rb,0.11727e+04_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.11538e+04_rb,0.10104e+04_rb,0.87836e+03_rb,0.74181e+03_rb,0.60545e+03_rb, &\n        & 0.74747e+03_rb,0.88975e+03_rb,0.10329e+04_rb,0.11763e+04_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.11412e+04_rb,0.10013e+04_rb,0.88484e+03_rb,0.73153e+03_rb,0.60489e+03_rb, &\n        & 0.74629e+03_rb,0.88914e+03_rb,0.10323e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.11370e+04_rb,0.10022e+04_rb,0.86246e+03_rb,0.73215e+03_rb,0.60419e+03_rb, &\n        & 0.74569e+03_rb,0.88867e+03_rb,0.10317e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.11288e+04_rb,0.99109e+03_rb,0.86549e+03_rb,0.72280e+03_rb,0.60356e+03_rb, &\n        & 0.74480e+03_rb,0.88820e+03_rb,0.10312e+04_rb,0.11742e+04_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.11445e+04_rb,0.99099e+03_rb,0.85129e+03_rb,0.71952e+03_rb,0.60234e+03_rb, &\n        & 0.74410e+03_rb,0.88705e+03_rb,0.10299e+04_rb,0.11727e+04_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.20185e+04_rb,0.18044e+04_rb,0.14758e+04_rb,0.13047e+04_rb,0.10029e+04_rb, &\n        & 0.77460e+03_rb,0.89226e+03_rb,0.10322e+04_rb,0.11721e+04_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.19173e+04_rb,0.17154e+04_rb,0.14467e+04_rb,0.12101e+04_rb,0.99594e+03_rb, &\n        & 0.75026e+03_rb,0.88974e+03_rb,0.10295e+04_rb,0.11713e+04_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.19468e+04_rb,0.16851e+04_rb,0.14136e+04_rb,0.12474e+04_rb,0.94959e+03_rb, &\n        & 0.74773e+03_rb,0.88696e+03_rb,0.10271e+04_rb,0.11663e+04_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.18423e+04_rb,0.16214e+04_rb,0.13991e+04_rb,0.11633e+04_rb,0.94698e+03_rb, &\n        & 0.74507e+03_rb,0.88457e+03_rb,0.10239e+04_rb,0.11632e+04_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.17538e+04_rb,0.16376e+04_rb,0.13645e+04_rb,0.11303e+04_rb,0.98877e+03_rb, &\n        & 0.74430e+03_rb,0.88372e+03_rb,0.10232e+04_rb,0.11626e+04_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.18551e+04_rb,0.16163e+04_rb,0.13640e+04_rb,0.12440e+04_rb,0.97095e+03_rb, &\n        & 0.75153e+03_rb,0.89202e+03_rb,0.10323e+04_rb,0.11731e+04_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.18136e+04_rb,0.16209e+04_rb,0.13887e+04_rb,0.11127e+04_rb,0.90845e+03_rb, &\n        & 0.74936e+03_rb,0.88974e+03_rb,0.10301e+04_rb,0.11702e+04_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.17918e+04_rb,0.15931e+04_rb,0.13282e+04_rb,0.11266e+04_rb,0.93052e+03_rb, &\n        & 0.74732e+03_rb,0.88725e+03_rb,0.10243e+04_rb,0.11672e+04_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.17507e+04_rb,0.14791e+04_rb,0.12865e+04_rb,0.10818e+04_rb,0.87901e+03_rb, &\n        & 0.74478e+03_rb,0.88467e+03_rb,0.10246e+04_rb,0.11645e+04_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.16872e+04_rb,0.14818e+04_rb,0.12871e+04_rb,0.10513e+04_rb,0.88744e+03_rb, &\n        & 0.74325e+03_rb,0.88337e+03_rb,0.10230e+04_rb,0.11625e+04_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.16919e+04_rb,0.15533e+04_rb,0.13337e+04_rb,0.10831e+04_rb,0.86308e+03_rb, &\n        & 0.75085e+03_rb,0.89217e+03_rb,0.10333e+04_rb,0.11744e+04_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.17034e+04_rb,0.15495e+04_rb,0.12643e+04_rb,0.11407e+04_rb,0.84365e+03_rb, &\n        & 0.74929e+03_rb,0.89025e+03_rb,0.10312e+04_rb,0.11722e+04_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.16844e+04_rb,0.14282e+04_rb,0.12585e+04_rb,0.10790e+04_rb,0.84114e+03_rb, &\n        & 0.74691e+03_rb,0.88785e+03_rb,0.10286e+04_rb,0.11700e+04_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.16791e+04_rb,0.14180e+04_rb,0.12209e+04_rb,0.10441e+04_rb,0.85899e+03_rb, &\n        & 0.74519e+03_rb,0.88544e+03_rb,0.10259e+04_rb,0.11667e+04_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.16063e+04_rb,0.13774e+04_rb,0.12181e+04_rb,0.10006e+04_rb,0.82020e+03_rb, &\n        & 0.74245e+03_rb,0.88287e+03_rb,0.10231e+04_rb,0.11633e+04_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.15960e+04_rb,0.13846e+04_rb,0.12078e+04_rb,0.10284e+04_rb,0.81079e+03_rb, &\n        & 0.75078e+03_rb,0.89233e+03_rb,0.10336e+04_rb,0.11751e+04_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.16237e+04_rb,0.13919e+04_rb,0.11906e+04_rb,0.10115e+04_rb,0.83009e+03_rb, &\n        & 0.74909e+03_rb,0.89076e+03_rb,0.10322e+04_rb,0.11737e+04_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.16136e+04_rb,0.13698e+04_rb,0.12046e+04_rb,0.98839e+03_rb,0.80997e+03_rb, &\n        & 0.74745e+03_rb,0.88871e+03_rb,0.10300e+04_rb,0.11712e+04_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.15739e+04_rb,0.13753e+04_rb,0.11394e+04_rb,0.97871e+03_rb,0.77029e+03_rb, &\n        & 0.74770e+03_rb,0.88627e+03_rb,0.10279e+04_rb,0.11682e+04_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.14863e+04_rb,0.13334e+04_rb,0.11445e+04_rb,0.95775e+03_rb,0.78998e+03_rb, &\n        & 0.74317e+03_rb,0.88387e+03_rb,0.10246e+04_rb,0.11653e+04_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.15101e+04_rb,0.14006e+04_rb,0.11513e+04_rb,0.96783e+03_rb,0.79581e+03_rb, &\n        & 0.75045e+03_rb,0.89239e+03_rb,0.10340e+04_rb,0.11759e+04_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.15461e+04_rb,0.13003e+04_rb,0.11685e+04_rb,0.92112e+03_rb,0.77517e+03_rb, &\n        & 0.74927e+03_rb,0.89114e+03_rb,0.10330e+04_rb,0.11749e+04_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.14676e+04_rb,0.12966e+04_rb,0.11042e+04_rb,0.93875e+03_rb,0.79645e+03_rb, &\n        & 0.74772e+03_rb,0.88943e+03_rb,0.10311e+04_rb,0.11729e+04_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.14571e+04_rb,0.12955e+04_rb,0.11734e+04_rb,0.89731e+03_rb,0.76986e+03_rb, &\n        & 0.74578e+03_rb,0.88723e+03_rb,0.10287e+04_rb,0.11702e+04_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.14311e+04_rb,0.13054e+04_rb,0.10738e+04_rb,0.10079e+04_rb,0.72704e+03_rb, &\n        & 0.74437e+03_rb,0.88461e+03_rb,0.10260e+04_rb,0.11675e+04_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.14715e+04_rb,0.12798e+04_rb,0.11182e+04_rb,0.92160e+03_rb,0.75379e+03_rb, &\n        & 0.75023e+03_rb,0.89251e+03_rb,0.10348e+04_rb,0.11771e+04_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.14479e+04_rb,0.12414e+04_rb,0.11222e+04_rb,0.91289e+03_rb,0.75013e+03_rb, &\n        & 0.74921e+03_rb,0.89141e+03_rb,0.10336e+04_rb,0.11758e+04_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.14270e+04_rb,0.12651e+04_rb,0.10793e+04_rb,0.91215e+03_rb,0.74649e+03_rb, &\n        & 0.74796e+03_rb,0.89005e+03_rb,0.10321e+04_rb,0.11739e+04_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.14058e+04_rb,0.12702e+04_rb,0.11005e+04_rb,0.93809e+03_rb,0.69854e+03_rb, &\n        & 0.74632e+03_rb,0.88820e+03_rb,0.10301e+04_rb,0.11720e+04_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.14048e+04_rb,0.12100e+04_rb,0.10413e+04_rb,0.84934e+03_rb,0.69794e+03_rb, &\n        & 0.74429e+03_rb,0.88588e+03_rb,0.10284e+04_rb,0.11701e+04_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.14325e+04_rb,0.12413e+04_rb,0.10595e+04_rb,0.88906e+03_rb,0.71717e+03_rb, &\n        & 0.75037e+03_rb,0.89273e+03_rb,0.10353e+04_rb,0.11779e+04_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.13620e+04_rb,0.12089e+04_rb,0.10598e+04_rb,0.89550e+03_rb,0.73134e+03_rb, &\n        & 0.74911e+03_rb,0.89161e+03_rb,0.10341e+04_rb,0.11766e+04_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.13346e+04_rb,0.12111e+04_rb,0.10262e+04_rb,0.84775e+03_rb,0.68161e+03_rb, &\n        & 0.74811e+03_rb,0.89050e+03_rb,0.10329e+04_rb,0.11753e+04_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.13132e+04_rb,0.11998e+04_rb,0.99757e+03_rb,0.86083e+03_rb,0.70251e+03_rb, &\n        & 0.74653e+03_rb,0.88899e+03_rb,0.10312e+04_rb,0.11735e+04_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.13232e+04_rb,0.11634e+04_rb,0.10230e+04_rb,0.84353e+03_rb,0.68339e+03_rb, &\n        & 0.74500e+03_rb,0.88698e+03_rb,0.10287e+04_rb,0.11709e+04_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.13366e+04_rb,0.11630e+04_rb,0.10188e+04_rb,0.86405e+03_rb,0.71800e+03_rb, &\n        & 0.75008e+03_rb,0.89285e+03_rb,0.10357e+04_rb,0.11785e+04_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.13647e+04_rb,0.11518e+04_rb,0.10110e+04_rb,0.84719e+03_rb,0.67819e+03_rb, &\n        & 0.74911e+03_rb,0.89187e+03_rb,0.10343e+04_rb,0.11777e+04_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.13128e+04_rb,0.11472e+04_rb,0.99038e+03_rb,0.82656e+03_rb,0.66483e+03_rb, &\n        & 0.74815e+03_rb,0.89080e+03_rb,0.10335e+04_rb,0.11761e+04_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.12817e+04_rb,0.11127e+04_rb,0.10092e+04_rb,0.82047e+03_rb,0.65442e+03_rb, &\n        & 0.74685e+03_rb,0.88933e+03_rb,0.10318e+04_rb,0.11746e+04_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.13162e+04_rb,0.11356e+04_rb,0.98305e+03_rb,0.84668e+03_rb,0.66544e+03_rb, &\n        & 0.74558e+03_rb,0.88790e+03_rb,0.10302e+04_rb,0.11725e+04_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.13174e+04_rb,0.11399e+04_rb,0.97696e+03_rb,0.84117e+03_rb,0.66145e+03_rb, &\n        & 0.75011e+03_rb,0.89307e+03_rb,0.10362e+04_rb,0.11789e+04_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.13196e+04_rb,0.11310e+04_rb,0.99094e+03_rb,0.80674e+03_rb,0.67265e+03_rb, &\n        & 0.74915e+03_rb,0.89213e+03_rb,0.10351e+04_rb,0.11781e+04_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.12950e+04_rb,0.10983e+04_rb,0.10229e+04_rb,0.86051e+03_rb,0.66007e+03_rb, &\n        & 0.74819e+03_rb,0.89107e+03_rb,0.10339e+04_rb,0.11768e+04_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.12605e+04_rb,0.10785e+04_rb,0.10061e+04_rb,0.79531e+03_rb,0.63414e+03_rb, &\n        & 0.74728e+03_rb,0.89004e+03_rb,0.10328e+04_rb,0.11756e+04_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.12553e+04_rb,0.10628e+04_rb,0.94908e+03_rb,0.82074e+03_rb,0.64983e+03_rb, &\n        & 0.74606e+03_rb,0.88866e+03_rb,0.10313e+04_rb,0.11739e+04_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.13413e+04_rb,0.11632e+04_rb,0.10048e+04_rb,0.80476e+03_rb,0.65189e+03_rb, &\n        & 0.75022e+03_rb,0.89354e+03_rb,0.10369e+04_rb,0.11806e+04_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.12838e+04_rb,0.11017e+04_rb,0.10173e+04_rb,0.85213e+03_rb,0.64367e+03_rb, &\n        & 0.74909e+03_rb,0.89223e+03_rb,0.10354e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.12657e+04_rb,0.11229e+04_rb,0.92134e+03_rb,0.80214e+03_rb,0.64195e+03_rb, &\n        & 0.74870e+03_rb,0.89159e+03_rb,0.10344e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.12310e+04_rb,0.10594e+04_rb,0.92792e+03_rb,0.78251e+03_rb,0.62401e+03_rb, &\n        & 0.74734e+03_rb,0.89003e+03_rb,0.10332e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.12088e+04_rb,0.10663e+04_rb,0.92275e+03_rb,0.77707e+03_rb,0.64354e+03_rb, &\n        & 0.74634e+03_rb,0.88914e+03_rb,0.10320e+04_rb,0.11748e+04_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.12205e+04_rb,0.10982e+04_rb,0.93349e+03_rb,0.79899e+03_rb,0.64961e+03_rb, &\n        & 0.74981e+03_rb,0.89329e+03_rb,0.10368e+04_rb,0.11803e+04_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.12266e+04_rb,0.10977e+04_rb,0.90836e+03_rb,0.76723e+03_rb,0.61851e+03_rb, &\n        & 0.74871e+03_rb,0.89199e+03_rb,0.10353e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.11876e+04_rb,0.10750e+04_rb,0.92258e+03_rb,0.76849e+03_rb,0.61349e+03_rb, &\n        & 0.74902e+03_rb,0.89163e+03_rb,0.10343e+04_rb,0.11775e+04_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.12363e+04_rb,0.10327e+04_rb,0.91965e+03_rb,0.74736e+03_rb,0.60206e+03_rb, &\n        & 0.74703e+03_rb,0.88982e+03_rb,0.10331e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.11827e+04_rb,0.10266e+04_rb,0.89018e+03_rb,0.76668e+03_rb,0.60360e+03_rb, &\n        & 0.74604e+03_rb,0.88895e+03_rb,0.10316e+04_rb,0.11748e+04_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.11808e+04_rb,0.10792e+04_rb,0.88334e+03_rb,0.76947e+03_rb,0.60663e+03_rb, &\n        & 0.74904e+03_rb,0.89307e+03_rb,0.10367e+04_rb,0.11803e+04_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.12120e+04_rb,0.10402e+04_rb,0.92096e+03_rb,0.78880e+03_rb,0.60609e+03_rb, &\n        & 0.74841e+03_rb,0.89179e+03_rb,0.10352e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.12016e+04_rb,0.10899e+04_rb,0.90018e+03_rb,0.73017e+03_rb,0.60527e+03_rb, &\n        & 0.75028e+03_rb,0.89119e+03_rb,0.10342e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.11901e+04_rb,0.10101e+04_rb,0.88929e+03_rb,0.75342e+03_rb,0.60426e+03_rb, &\n        & 0.74677e+03_rb,0.88991e+03_rb,0.10327e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.12404e+04_rb,0.10285e+04_rb,0.87283e+03_rb,0.77029e+03_rb,0.60316e+03_rb, &\n        & 0.74579e+03_rb,0.88852e+03_rb,0.10318e+04_rb,0.11748e+04_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.11819e+04_rb,0.10465e+04_rb,0.87588e+03_rb,0.72550e+03_rb,0.60649e+03_rb, &\n        & 0.74922e+03_rb,0.89289e+03_rb,0.10366e+04_rb,0.11799e+04_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.11759e+04_rb,0.10245e+04_rb,0.86816e+03_rb,0.77411e+03_rb,0.60565e+03_rb, &\n        & 0.74816e+03_rb,0.89163e+03_rb,0.10351e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.11354e+04_rb,0.10124e+04_rb,0.96299e+03_rb,0.72358e+03_rb,0.60486e+03_rb, &\n        & 0.74851e+03_rb,0.89156e+03_rb,0.10341e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.11811e+04_rb,0.10736e+04_rb,0.85638e+03_rb,0.74549e+03_rb,0.60366e+03_rb, &\n        & 0.74655e+03_rb,0.88977e+03_rb,0.10330e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.11332e+04_rb,0.99282e+03_rb,0.87259e+03_rb,0.77082e+03_rb,0.60280e+03_rb, &\n        & 0.74559e+03_rb,0.88865e+03_rb,0.10317e+04_rb,0.11748e+04_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.19847e+04_rb,0.16615e+04_rb,0.16299e+04_rb,0.11466e+04_rb,0.10123e+04_rb, &\n        & 0.72871e+03_rb,0.89405e+03_rb,0.10334e+04_rb,0.11734e+04_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.18867e+04_rb,0.16470e+04_rb,0.14051e+04_rb,0.12848e+04_rb,0.91870e+03_rb, &\n        & 0.75104e+03_rb,0.89013e+03_rb,0.10307e+04_rb,0.11650e+04_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.17405e+04_rb,0.16240e+04_rb,0.14364e+04_rb,0.10773e+04_rb,0.10008e+04_rb, &\n        & 0.74790e+03_rb,0.89023e+03_rb,0.10382e+04_rb,0.11720e+04_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.19099e+04_rb,0.16930e+04_rb,0.14454e+04_rb,0.12410e+04_rb,0.95925e+03_rb, &\n        & 0.74605e+03_rb,0.88544e+03_rb,0.10248e+04_rb,0.11651e+04_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.19738e+04_rb,0.13892e+04_rb,0.14377e+04_rb,0.12129e+04_rb,0.77083e+03_rb, &\n        & 0.74496e+03_rb,0.88458e+03_rb,0.10242e+04_rb,0.11638e+04_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.18788e+04_rb,0.15414e+04_rb,0.14391e+04_rb,0.94831e+03_rb,0.88384e+03_rb, &\n        & 0.75320e+03_rb,0.89399e+03_rb,0.10340e+04_rb,0.11746e+04_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.16660e+04_rb,0.14507e+04_rb,0.12145e+04_rb,0.11753e+04_rb,0.91977e+03_rb, &\n        & 0.75003e+03_rb,0.89113e+03_rb,0.10308e+04_rb,0.11712e+04_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.15746e+04_rb,0.14551e+04_rb,0.13375e+04_rb,0.10698e+04_rb,0.76931e+03_rb, &\n        & 0.74657e+03_rb,0.88729e+03_rb,0.10267e+04_rb,0.11695e+04_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.16772e+04_rb,0.16415e+04_rb,0.13391e+04_rb,0.10287e+04_rb,0.88207e+03_rb, &\n        & 0.74593e+03_rb,0.88530e+03_rb,0.10252e+04_rb,0.11661e+04_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.16581e+04_rb,0.15452e+04_rb,0.12479e+04_rb,0.10067e+04_rb,0.83698e+03_rb, &\n        & 0.74419e+03_rb,0.88279e+03_rb,0.10234e+04_rb,0.11634e+04_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.17888e+04_rb,0.13395e+04_rb,0.12224e+04_rb,0.11479e+04_rb,0.91734e+03_rb, &\n        & 0.75291e+03_rb,0.89358e+03_rb,0.10348e+04_rb,0.11761e+04_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.16146e+04_rb,0.11805e+04_rb,0.12709e+04_rb,0.85911e+03_rb,0.90210e+03_rb, &\n        & 0.75028e+03_rb,0.89203e+03_rb,0.10324e+04_rb,0.11734e+04_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.14717e+04_rb,0.15353e+04_rb,0.12224e+04_rb,0.96001e+03_rb,0.77554e+03_rb, &\n        & 0.74753e+03_rb,0.88823e+03_rb,0.10297e+04_rb,0.11678e+04_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.15479e+04_rb,0.14535e+04_rb,0.11756e+04_rb,0.99609e+03_rb,0.71892e+03_rb, &\n        & 0.74634e+03_rb,0.88703e+03_rb,0.10366e+04_rb,0.11684e+04_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.15155e+04_rb,0.14515e+04_rb,0.11733e+04_rb,0.10638e+04_rb,0.80510e+03_rb, &\n        & 0.74461e+03_rb,0.88580e+03_rb,0.10240e+04_rb,0.11652e+04_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.15848e+04_rb,0.14083e+04_rb,0.12006e+04_rb,0.10439e+04_rb,0.81336e+03_rb, &\n        & 0.75201e+03_rb,0.89444e+03_rb,0.10363e+04_rb,0.11781e+04_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.13736e+04_rb,0.13760e+04_rb,0.12165e+04_rb,0.94289e+03_rb,0.75006e+03_rb, &\n        & 0.75167e+03_rb,0.89210e+03_rb,0.10337e+04_rb,0.11753e+04_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.14353e+04_rb,0.13702e+04_rb,0.10217e+04_rb,0.10119e+04_rb,0.72585e+03_rb, &\n        & 0.74883e+03_rb,0.88956e+03_rb,0.10325e+04_rb,0.11731e+04_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.14295e+04_rb,0.12548e+04_rb,0.12198e+04_rb,0.96945e+03_rb,0.84557e+03_rb, &\n        & 0.73846e+03_rb,0.88641e+03_rb,0.10258e+04_rb,0.11703e+04_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.15742e+04_rb,0.13268e+04_rb,0.10395e+04_rb,0.90301e+03_rb,0.67604e+03_rb, &\n        & 0.74473e+03_rb,0.88569e+03_rb,0.10266e+04_rb,0.11676e+04_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.15038e+04_rb,0.11787e+04_rb,0.11191e+04_rb,0.96573e+03_rb,0.74364e+03_rb, &\n        & 0.75161e+03_rb,0.89373e+03_rb,0.10358e+04_rb,0.11780e+04_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.12972e+04_rb,0.14157e+04_rb,0.10073e+04_rb,0.10120e+04_rb,0.78829e+03_rb, &\n        & 0.75051e+03_rb,0.89254e+03_rb,0.10346e+04_rb,0.11785e+04_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.15562e+04_rb,0.12980e+04_rb,0.11053e+04_rb,0.96784e+03_rb,0.68156e+03_rb, &\n        & 0.74938e+03_rb,0.89063e+03_rb,0.10325e+04_rb,0.11743e+04_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.15203e+04_rb,0.12953e+04_rb,0.96757e+03_rb,0.95061e+03_rb,0.68480e+03_rb, &\n        & 0.74750e+03_rb,0.88780e+03_rb,0.10293e+04_rb,0.11708e+04_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.14730e+04_rb,0.11456e+04_rb,0.11151e+04_rb,0.68408e+03_rb,0.76176e+03_rb, &\n        & 0.75307e+03_rb,0.89322e+03_rb,0.10317e+04_rb,0.11682e+04_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.15240e+04_rb,0.12794e+04_rb,0.10826e+04_rb,0.93131e+03_rb,0.69525e+03_rb, &\n        & 0.75122e+03_rb,0.89364e+03_rb,0.10361e+04_rb,0.11785e+04_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.13735e+04_rb,0.12837e+04_rb,0.10725e+04_rb,0.91616e+03_rb,0.69548e+03_rb, &\n        & 0.75041e+03_rb,0.89279e+03_rb,0.10360e+04_rb,0.11776e+04_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.14287e+04_rb,0.11366e+04_rb,0.10240e+04_rb,0.87529e+03_rb,0.70795e+03_rb, &\n        & 0.75034e+03_rb,0.89142e+03_rb,0.10337e+04_rb,0.11759e+04_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.12768e+04_rb,0.11078e+04_rb,0.98805e+03_rb,0.76254e+03_rb,0.77383e+03_rb, &\n        & 0.74782e+03_rb,0.88921e+03_rb,0.10312e+04_rb,0.11732e+04_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.13045e+04_rb,0.12087e+04_rb,0.10585e+04_rb,0.89185e+03_rb,0.69378e+03_rb, &\n        & 0.74461e+03_rb,0.88618e+03_rb,0.10253e+04_rb,0.11684e+04_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.13068e+04_rb,0.11778e+04_rb,0.10485e+04_rb,0.87245e+03_rb,0.70237e+03_rb, &\n        & 0.75029e+03_rb,0.89358e+03_rb,0.10363e+04_rb,0.11790e+04_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.13988e+04_rb,0.11525e+04_rb,0.98924e+03_rb,0.83779e+03_rb,0.64617e+03_rb, &\n        & 0.75022e+03_rb,0.89357e+03_rb,0.10355e+04_rb,0.11782e+04_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.14294e+04_rb,0.11695e+04_rb,0.10182e+04_rb,0.91196e+03_rb,0.69696e+03_rb, &\n        & 0.74932e+03_rb,0.89330e+03_rb,0.10353e+04_rb,0.11780e+04_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.14082e+04_rb,0.10640e+04_rb,0.10540e+04_rb,0.79295e+03_rb,0.62688e+03_rb, &\n        & 0.74789e+03_rb,0.89097e+03_rb,0.10327e+04_rb,0.11750e+04_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.13514e+04_rb,0.12038e+04_rb,0.10012e+04_rb,0.83544e+03_rb,0.67927e+03_rb, &\n        & 0.74629e+03_rb,0.88843e+03_rb,0.10298e+04_rb,0.11718e+04_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.14761e+04_rb,0.12412e+04_rb,0.10429e+04_rb,0.84370e+03_rb,0.62388e+03_rb, &\n        & 0.75133e+03_rb,0.89371e+03_rb,0.10367e+04_rb,0.11796e+04_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.12119e+04_rb,0.11409e+04_rb,0.10121e+04_rb,0.85755e+03_rb,0.70976e+03_rb, &\n        & 0.74998e+03_rb,0.89216e+03_rb,0.10357e+04_rb,0.11786e+04_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.12581e+04_rb,0.11663e+04_rb,0.10198e+04_rb,0.88649e+03_rb,0.69509e+03_rb, &\n        & 0.74932e+03_rb,0.89355e+03_rb,0.10350e+04_rb,0.11787e+04_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.12478e+04_rb,0.12066e+04_rb,0.87201e+03_rb,0.84155e+03_rb,0.70223e+03_rb, &\n        & 0.74886e+03_rb,0.89098e+03_rb,0.10337e+04_rb,0.11764e+04_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.12322e+04_rb,0.11048e+04_rb,0.93070e+03_rb,0.68296e+03_rb,0.66022e+03_rb, &\n        & 0.74776e+03_rb,0.88972e+03_rb,0.10315e+04_rb,0.11748e+04_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.13164e+04_rb,0.12093e+04_rb,0.10729e+04_rb,0.80022e+03_rb,0.68605e+03_rb, &\n        & 0.75075e+03_rb,0.89396e+03_rb,0.10372e+04_rb,0.11804e+04_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.12738e+04_rb,0.11851e+04_rb,0.88381e+03_rb,0.85846e+03_rb,0.65813e+03_rb, &\n        & 0.74985e+03_rb,0.89295e+03_rb,0.10369e+04_rb,0.11792e+04_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.12657e+04_rb,0.12031e+04_rb,0.79849e+03_rb,0.64636e+03_rb,0.60824e+03_rb, &\n        & 0.74924e+03_rb,0.89227e+03_rb,0.10353e+04_rb,0.11783e+04_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.12866e+04_rb,0.11531e+04_rb,0.85958e+03_rb,0.76890e+03_rb,0.66204e+03_rb, &\n        & 0.74965e+03_rb,0.89143e+03_rb,0.10344e+04_rb,0.11773e+04_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.11604e+04_rb,0.11730e+04_rb,0.87009e+03_rb,0.73148e+03_rb,0.58106e+03_rb, &\n        & 0.74723e+03_rb,0.88998e+03_rb,0.10327e+04_rb,0.11755e+04_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.11188e+04_rb,0.99215e+03_rb,0.73460e+03_rb,0.83046e+03_rb,0.68844e+03_rb, &\n        & 0.75085e+03_rb,0.89429e+03_rb,0.10377e+04_rb,0.11803e+04_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.12059e+04_rb,0.10804e+04_rb,0.70761e+03_rb,0.65712e+03_rb,0.66535e+03_rb, &\n        & 0.74980e+03_rb,0.89311e+03_rb,0.10364e+04_rb,0.11807e+04_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.11817e+04_rb,0.10195e+04_rb,0.95365e+03_rb,0.71601e+03_rb,0.59959e+03_rb, &\n        & 0.74791e+03_rb,0.89228e+03_rb,0.10355e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.11350e+04_rb,0.11533e+04_rb,0.91058e+03_rb,0.81845e+03_rb,0.64874e+03_rb, &\n        & 0.74908e+03_rb,0.89233e+03_rb,0.10356e+04_rb,0.11779e+04_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.12000e+04_rb,0.10896e+04_rb,0.93671e+03_rb,0.81314e+03_rb,0.60750e+03_rb, &\n        & 0.74754e+03_rb,0.89053e+03_rb,0.10335e+04_rb,0.11765e+04_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.12887e+04_rb,0.10795e+04_rb,0.92507e+03_rb,0.76020e+03_rb,0.61621e+03_rb, &\n        & 0.75046e+03_rb,0.89404e+03_rb,0.10376e+04_rb,0.11812e+04_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.11864e+04_rb,0.99352e+03_rb,0.96688e+03_rb,0.81999e+03_rb,0.65449e+03_rb, &\n        & 0.74944e+03_rb,0.89287e+03_rb,0.10363e+04_rb,0.11797e+04_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.11946e+04_rb,0.10069e+04_rb,0.91904e+03_rb,0.81170e+03_rb,0.65606e+03_rb, &\n        & 0.74582e+03_rb,0.89066e+03_rb,0.10354e+04_rb,0.11787e+04_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.10269e+04_rb,0.10463e+04_rb,0.82697e+03_rb,0.81731e+03_rb,0.61185e+03_rb, &\n        & 0.74876e+03_rb,0.89142e+03_rb,0.10347e+04_rb,0.11779e+04_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.11483e+04_rb,0.10490e+04_rb,0.91718e+03_rb,0.72295e+03_rb,0.60510e+03_rb, &\n        & 0.74783e+03_rb,0.89173e+03_rb,0.10334e+04_rb,0.11765e+04_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.12157e+04_rb,0.94948e+03_rb,0.89441e+03_rb,0.76380e+03_rb,0.60866e+03_rb, &\n        & 0.75013e+03_rb,0.89382e+03_rb,0.10375e+04_rb,0.11812e+04_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.10470e+04_rb,0.10059e+04_rb,0.83704e+03_rb,0.70161e+03_rb,0.60721e+03_rb, &\n        & 0.74914e+03_rb,0.89267e+03_rb,0.10370e+04_rb,0.11807e+04_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.10541e+04_rb,0.86865e+03_rb,0.86614e+03_rb,0.79420e+03_rb,0.60576e+03_rb, &\n        & 0.74144e+03_rb,0.89117e+03_rb,0.10353e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.11152e+04_rb,0.10946e+04_rb,0.91200e+03_rb,0.75719e+03_rb,0.60459e+03_rb, &\n        & 0.74791e+03_rb,0.89124e+03_rb,0.10346e+04_rb,0.11788e+04_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.10232e+04_rb,0.97767e+03_rb,0.95862e+03_rb,0.62268e+03_rb,0.60382e+03_rb, &\n        & 0.74758e+03_rb,0.88947e+03_rb,0.10333e+04_rb,0.11765e+04_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.11027e+04_rb,0.93786e+03_rb,0.84040e+03_rb,0.77686e+03_rb,0.60858e+03_rb, &\n        & 0.74987e+03_rb,0.89364e+03_rb,0.10374e+04_rb,0.11812e+04_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.10816e+04_rb,0.10747e+04_rb,0.88690e+03_rb,0.66213e+03_rb,0.60670e+03_rb, &\n        & 0.74889e+03_rb,0.89251e+03_rb,0.10369e+04_rb,0.11797e+04_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.11963e+04_rb,0.98701e+03_rb,0.69767e+03_rb,0.73646e+03_rb,0.60528e+03_rb, &\n        & 0.74531e+03_rb,0.88962e+03_rb,0.10352e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.10530e+04_rb,0.78530e+03_rb,0.91477e+03_rb,0.71026e+03_rb,0.60430e+03_rb, &\n        & 0.74770e+03_rb,0.89110e+03_rb,0.10345e+04_rb,0.11779e+04_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.11409e+04_rb,0.10574e+04_rb,0.83207e+03_rb,0.61034e+03_rb,0.60355e+03_rb, &\n        & 0.74679e+03_rb,0.89073e+03_rb,0.10333e+04_rb,0.11765e+04_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.34848e+03_rb,0.49670e+03_rb,0.29569e+03_rb,0.31627e+03_rb,0.46514e+03_rb, &\n        & 0.42834e+03_rb,0.88848e+03_rb,0.10335e+04_rb,0.11735e+04_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.18044e+04_rb,0.87518e+03_rb,0.11930e+04_rb,0.45580e+03_rb,0.83690e+03_rb, &\n        & 0.74631e+03_rb,0.89022e+03_rb,0.10242e+04_rb,0.11632e+04_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.11196e+04_rb,0.73658e+03_rb,0.10480e+04_rb,0.53695e+03_rb,0.39566e+03_rb, &\n        & 0.74377e+03_rb,0.86775e+03_rb,0.94144e+03_rb,0.11277e+04_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.72013e+03_rb,0.40040e+03_rb,0.39030e+03_rb,0.31401e+03_rb,0.31498e+03_rb, &\n        & 0.74613e+03_rb,0.88553e+03_rb,0.10249e+04_rb,0.11579e+04_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.34789e+03_rb,0.14911e+04_rb,0.33003e+03_rb,0.29522e+03_rb,0.31385e+03_rb, &\n        & 0.74516e+03_rb,0.88480e+03_rb,0.10244e+04_rb,0.11641e+04_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.41247e+03_rb,0.81197e+03_rb,0.68322e+03_rb,0.50855e+03_rb,0.24076e+03_rb, &\n        & 0.74851e+03_rb,0.88842e+03_rb,0.10341e+04_rb,0.11748e+04_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.16209e+04_rb,0.56884e+03_rb,0.94156e+03_rb,0.29182e+03_rb,0.46039e+03_rb, &\n        & 0.75011e+03_rb,0.88557e+03_rb,0.10309e+04_rb,0.11714e+04_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.11534e+04_rb,0.51443e+03_rb,0.23941e+03_rb,0.44358e+03_rb,0.58779e+03_rb, &\n        & 0.74720e+03_rb,0.88237e+03_rb,0.10275e+04_rb,0.11547e+04_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.78193e+03_rb,0.30585e+03_rb,0.42670e+03_rb,0.10365e+04_rb,0.43225e+03_rb, &\n        & 0.74126e+03_rb,0.88535e+03_rb,0.10253e+04_rb,0.11588e+04_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.67509e+03_rb,0.40574e+03_rb,0.57252e+03_rb,0.10353e+04_rb,0.15564e+03_rb, &\n        & 0.73954e+03_rb,0.88360e+03_rb,0.10236e+04_rb,0.11636e+04_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.91257e+03_rb,0.11144e+04_rb,0.54685e+03_rb,0.19037e+03_rb,0.25900e+03_rb, &\n        & 0.74823e+03_rb,0.89369e+03_rb,0.10350e+04_rb,0.11762e+04_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.67162e+03_rb,0.10092e+04_rb,0.40983e+03_rb,0.37826e+03_rb,0.42702e+03_rb, &\n        & 0.75035e+03_rb,0.88647e+03_rb,0.10325e+04_rb,0.11736e+04_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.94657e+03_rb,0.26107e+03_rb,0.43567e+03_rb,0.41065e+03_rb,0.70838e+03_rb, &\n        & 0.74760e+03_rb,0.88832e+03_rb,0.10233e+04_rb,0.11698e+04_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.10618e+03_rb,0.45040e+03_rb,0.10291e+04_rb,0.30237e+03_rb,0.57813e+03_rb, &\n        & 0.73277e+03_rb,0.87582e+03_rb,0.95203e+03_rb,0.11472e+04_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.96551e+03_rb,0.68706e+03_rb,0.56500e+03_rb,0.14865e+03_rb,0.35532e+03_rb, &\n        & 0.73527e+03_rb,0.86908e+03_rb,0.10241e+04_rb,0.11579e+04_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.13211e+04_rb,0.11050e+04_rb,0.91067e+03_rb,0.34788e+03_rb,0.76485e+03_rb, &\n        & 0.75213e+03_rb,0.88892e+03_rb,0.10299e+04_rb,0.11709e+04_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.15543e+04_rb,0.92211e+03_rb,0.72798e+03_rb,0.86839e+03_rb,0.36802e+03_rb, &\n        & 0.74223e+03_rb,0.89219e+03_rb,0.10338e+04_rb,0.11754e+04_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.53676e+03_rb,0.46363e+03_rb,0.10941e+04_rb,0.19958e+03_rb,0.68767e+03_rb, &\n        & 0.74416e+03_rb,0.88965e+03_rb,0.10195e+04_rb,0.11658e+04_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.66992e+03_rb,0.61007e+03_rb,0.50612e+03_rb,0.34999e+03_rb,0.19685e+03_rb, &\n        & 0.74139e+03_rb,0.88155e+03_rb,0.10274e+04_rb,0.11555e+04_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.55226e+03_rb,0.42689e+03_rb,0.10712e+04_rb,0.69959e+03_rb,0.69105e+03_rb, &\n        & 0.73534e+03_rb,0.87452e+03_rb,0.10137e+04_rb,0.11529e+04_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.11854e+04_rb,0.90025e+03_rb,0.10734e+04_rb,0.36732e+03_rb,0.51551e+03_rb, &\n        & 0.75181e+03_rb,0.89397e+03_rb,0.10361e+04_rb,0.11783e+04_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.13933e+04_rb,0.23882e+03_rb,0.71015e+03_rb,0.29765e+03_rb,0.88507e+02_rb, &\n        & 0.75060e+03_rb,0.89266e+03_rb,0.10347e+04_rb,0.11637e+04_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.30783e+03_rb,0.72533e+03_rb,0.99782e+03_rb,0.22581e+03_rb,0.21957e+03_rb, &\n        & 0.74471e+03_rb,0.89072e+03_rb,0.10326e+04_rb,0.11744e+04_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.12756e+03_rb,0.23797e+03_rb,0.16871e+03_rb,0.60625e+03_rb,0.35893e+03_rb, &\n        & 0.73811e+03_rb,0.88789e+03_rb,0.10294e+04_rb,0.11709e+04_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.67577e+03_rb,0.67606e+03_rb,0.57612e+03_rb,0.15439e+03_rb,0.22922e+03_rb, &\n        & 0.66526e+03_rb,0.82593e+03_rb,0.98621e+03_rb,0.11543e+04_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.35294e+03_rb,0.92951e+03_rb,0.39404e+03_rb,0.59466e+03_rb,0.46365e+03_rb, &\n        & 0.75155e+03_rb,0.89403e+03_rb,0.10365e+04_rb,0.11790e+04_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.83494e+03_rb,0.91972e+03_rb,0.83351e+02_rb,0.26459e+03_rb,0.33053e+03_rb, &\n        & 0.75056e+03_rb,0.89298e+03_rb,0.10296e+04_rb,0.11778e+04_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.77495e+02_rb,0.67358e+03_rb,0.71470e+03_rb,0.28985e+03_rb,0.12695e+03_rb, &\n        & 0.74093e+03_rb,0.89153e+03_rb,0.10338e+04_rb,0.11761e+04_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.12524e+04_rb,0.52300e+03_rb,0.17321e+03_rb,0.31958e+03_rb,0.15643e+03_rb, &\n        & 0.74316e+03_rb,0.88930e+03_rb,0.10313e+04_rb,0.11733e+04_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.79880e+03_rb,0.54259e+03_rb,0.31909e+03_rb,0.47791e+03_rb,0.45938e+03_rb, &\n        & 0.74468e+03_rb,0.88626e+03_rb,0.10278e+04_rb,0.11499e+04_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.10078e+04_rb,0.83081e+03_rb,0.68047e+03_rb,0.68284e+03_rb,0.57904e+03_rb, &\n        & 0.75128e+03_rb,0.89403e+03_rb,0.10368e+04_rb,0.11795e+04_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.67323e+03_rb,0.10228e+04_rb,0.49758e+03_rb,0.33578e+03_rb,0.38746e+03_rb, &\n        & 0.75047e+03_rb,0.88822e+03_rb,0.10359e+04_rb,0.11786e+04_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.60358e+03_rb,0.41876e+03_rb,0.74942e+03_rb,0.38757e+03_rb,0.61092e+03_rb, &\n        & 0.74943e+03_rb,0.88213e+03_rb,0.10289e+04_rb,0.11707e+04_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.69109e+03_rb,0.11040e+04_rb,0.46705e+03_rb,0.74628e+03_rb,0.47483e+03_rb, &\n        & 0.74797e+03_rb,0.88542e+03_rb,0.10328e+04_rb,0.11752e+04_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.68277e+03_rb,0.46564e+03_rb,0.19228e+03_rb,0.48854e+03_rb,0.28304e+03_rb, &\n        & 0.74163e+03_rb,0.88289e+03_rb,0.10299e+04_rb,0.11719e+04_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.26685e+03_rb,0.60532e+03_rb,0.51009e+03_rb,0.40907e+03_rb,0.39126e+03_rb, &\n        & 0.74682e+03_rb,0.89396e+03_rb,0.10369e+04_rb,0.11799e+04_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.94869e+03_rb,0.11471e+04_rb,0.44706e+03_rb,0.23151e+03_rb,0.93532e+02_rb, &\n        & 0.75035e+03_rb,0.89331e+03_rb,0.10363e+04_rb,0.11727e+04_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.11588e+04_rb,0.74588e+03_rb,0.28311e+03_rb,0.27864e+03_rb,0.32853e+03_rb, &\n        & 0.74950e+03_rb,0.88246e+03_rb,0.10352e+04_rb,0.11716e+04_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.11874e+04_rb,0.47456e+03_rb,0.83368e+03_rb,0.31591e+03_rb,0.30274e+03_rb, &\n        & 0.74421e+03_rb,0.89109e+03_rb,0.10338e+04_rb,0.11765e+04_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.45710e+03_rb,0.66086e+03_rb,0.55863e+03_rb,0.58037e+03_rb,0.20569e+03_rb, &\n        & 0.73836e+03_rb,0.88417e+03_rb,0.10316e+04_rb,0.11675e+04_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.55233e+03_rb,0.18269e+03_rb,0.18991e+03_rb,0.35964e+03_rb,0.38998e+03_rb, &\n        & 0.75089e+03_rb,0.89415e+03_rb,0.10374e+04_rb,0.11807e+04_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.31819e+03_rb,0.14904e+03_rb,0.79703e+03_rb,0.32317e+03_rb,0.20679e+03_rb, &\n        & 0.75021e+03_rb,0.89337e+03_rb,0.10308e+04_rb,0.11797e+04_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.16059e+03_rb,0.37409e+03_rb,0.62337e+03_rb,0.62951e+03_rb,0.47662e+03_rb, &\n        & 0.74953e+03_rb,0.89262e+03_rb,0.10357e+04_rb,0.11788e+04_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.15191e+03_rb,0.63681e+03_rb,0.25601e+03_rb,0.65772e+03_rb,0.38994e+03_rb, &\n        & 0.74029e+03_rb,0.89158e+03_rb,0.10346e+04_rb,0.11775e+04_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.10392e+04_rb,0.33629e+03_rb,0.90538e+03_rb,0.33435e+03_rb,0.46694e+03_rb, &\n        & 0.74731e+03_rb,0.89008e+03_rb,0.10329e+04_rb,0.11756e+04_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.43161e+03_rb,0.53194e+03_rb,0.82168e+03_rb,0.11050e+03_rb,0.32159e+02_rb, &\n        & 0.75101e+03_rb,0.89450e+03_rb,0.10380e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.23362e+03_rb,0.50697e+03_rb,0.75913e+03_rb,0.37965e+03_rb,0.15877e+03_rb, &\n        & 0.75002e+03_rb,0.89333e+03_rb,0.10366e+04_rb,0.11734e+04_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.66577e+03_rb,0.22676e+03_rb,0.63752e+03_rb,0.50488e+03_rb,0.52339e+03_rb, &\n        & 0.74947e+03_rb,0.88778e+03_rb,0.10360e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.12040e+04_rb,0.37222e+03_rb,0.71269e+03_rb,0.68368e+02_rb,0.31445e+03_rb, &\n        & 0.74453e+03_rb,0.88691e+03_rb,0.10293e+04_rb,0.11782e+04_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.85334e+03_rb,0.50951e+03_rb,0.43397e+03_rb,0.11861e+03_rb,0.15074e+03_rb, &\n        & 0.74764e+03_rb,0.89065e+03_rb,0.10337e+04_rb,0.11767e+04_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.45853e+03_rb,0.29024e+03_rb,0.38275e+03_rb,0.26130e+03_rb,0.12124e+03_rb, &\n        & 0.75062e+03_rb,0.89424e+03_rb,0.10379e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.66691e+03_rb,0.55656e+03_rb,0.39879e+03_rb,0.16526e+03_rb,0.24675e+03_rb, &\n        & 0.74965e+03_rb,0.89309e+03_rb,0.10365e+04_rb,0.11800e+04_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.10239e+04_rb,0.60930e+03_rb,0.22001e+03_rb,0.10914e+03_rb,0.22748e+03_rb, &\n        & 0.74913e+03_rb,0.89251e+03_rb,0.10359e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.80567e+03_rb,0.90344e+03_rb,0.77356e+03_rb,0.12489e+03_rb,0.55902e+03_rb, &\n        & 0.74421e+03_rb,0.89165e+03_rb,0.10349e+04_rb,0.11782e+04_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.80619e+03_rb,0.87963e+03_rb,0.47254e+03_rb,0.39261e+03_rb,0.59752e+03_rb, &\n        & 0.74319e+03_rb,0.88056e+03_rb,0.10336e+04_rb,0.11767e+04_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.54479e+03_rb,0.73809e+03_rb,0.74534e+03_rb,0.30870e+03_rb,0.60893e+03_rb, &\n        & 0.75030e+03_rb,0.89402e+03_rb,0.10378e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.10600e+04_rb,0.76559e+03_rb,0.34957e+03_rb,0.18602e+03_rb,0.60736e+03_rb, &\n        & 0.74935e+03_rb,0.89289e+03_rb,0.10307e+04_rb,0.11734e+04_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.10515e+04_rb,0.60079e+03_rb,0.43472e+03_rb,0.33220e+03_rb,0.60582e+03_rb, &\n        & 0.74885e+03_rb,0.89233e+03_rb,0.10358e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.32670e+03_rb,0.23075e+03_rb,0.13581e+03_rb,0.17106e+03_rb,0.60474e+03_rb, &\n        & 0.74811e+03_rb,0.89148e+03_rb,0.10348e+04_rb,0.11717e+04_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.20371e+03_rb,0.68798e+03_rb,0.91592e+02_rb,0.60316e+03_rb,0.60390e+03_rb, &\n        & 0.74294e+03_rb,0.89029e+03_rb,0.10335e+04_rb,0.11767e+04_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.85988e+03_rb,0.94717e+03_rb,0.84544e+03_rb,0.31415e+03_rb,0.60500e+03_rb, &\n        & 0.75003e+03_rb,0.89385e+03_rb,0.10377e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.10379e+04_rb,0.11189e+03_rb,0.20733e+03_rb,0.17410e+03_rb,0.60685e+03_rb, &\n        & 0.74910e+03_rb,0.89272e+03_rb,0.10306e+04_rb,0.11800e+04_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.70206e+03_rb,0.77801e+03_rb,0.11974e+03_rb,0.34591e+03_rb,0.60534e+03_rb, &\n        & 0.74861e+03_rb,0.89217e+03_rb,0.10357e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.69165e+03_rb,0.93369e+03_rb,0.16190e+03_rb,0.16396e+03_rb,0.60445e+03_rb, &\n        & 0.74789e+03_rb,0.89133e+03_rb,0.10348e+04_rb,0.11782e+04_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.20016e+03_rb,0.25832e+03_rb,0.57797e+03_rb,0.24270e+03_rb,0.60363e+03_rb, &\n        & 0.74689e+03_rb,0.88521e+03_rb,0.10334e+04_rb,0.11767e+04_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:, 1,13, 1) = (/ &\n        & 0.27369e+02_rb,0.29903e+03_rb,0.42924e+03_rb,0.31039e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,13, 1) = (/ &\n        & 0.27158e+02_rb,0.29898e+03_rb,0.42745e+03_rb,0.30840e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,13, 1) = (/ &\n        & 0.26976e+02_rb,0.29889e+03_rb,0.42590e+03_rb,0.30668e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,13, 1) = (/ &\n        & 0.26818e+02_rb,0.29875e+03_rb,0.42455e+03_rb,0.30517e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,13, 1) = (/ &\n        & 0.26679e+02_rb,0.29855e+03_rb,0.42335e+03_rb,0.30384e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,14, 1) = (/ &\n        & 0.26840e+02_rb,0.29863e+03_rb,0.42474e+03_rb,0.30538e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,14, 1) = (/ &\n        & 0.26669e+02_rb,0.29862e+03_rb,0.42327e+03_rb,0.30375e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,14, 1) = (/ &\n        & 0.26522e+02_rb,0.29854e+03_rb,0.42199e+03_rb,0.30234e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,14, 1) = (/ &\n        & 0.26394e+02_rb,0.29842e+03_rb,0.42088e+03_rb,0.30111e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,14, 1) = (/ &\n        & 0.26282e+02_rb,0.29824e+03_rb,0.41990e+03_rb,0.30002e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,15, 1) = (/ &\n        & 0.26408e+02_rb,0.29831e+03_rb,0.42100e+03_rb,0.30124e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,15, 1) = (/ &\n        & 0.26271e+02_rb,0.29832e+03_rb,0.41980e+03_rb,0.29991e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,15, 1) = (/ &\n        & 0.26152e+02_rb,0.29826e+03_rb,0.41876e+03_rb,0.29877e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,15, 1) = (/ &\n        & 0.26049e+02_rb,0.29814e+03_rb,0.41785e+03_rb,0.29776e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,15, 1) = (/ &\n        & 0.25958e+02_rb,0.29797e+03_rb,0.41705e+03_rb,0.29688e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,16, 1) = (/ &\n        & 0.26057e+02_rb,0.29806e+03_rb,0.41793e+03_rb,0.29784e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,16, 1) = (/ &\n        & 0.25946e+02_rb,0.29807e+03_rb,0.41695e+03_rb,0.29676e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,16, 1) = (/ &\n        & 0.25851e+02_rb,0.29803e+03_rb,0.41610e+03_rb,0.29583e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,16, 1) = (/ &\n        & 0.25767e+02_rb,0.29792e+03_rb,0.41536e+03_rb,0.29502e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,16, 1) = (/ &\n        & 0.25694e+02_rb,0.29776e+03_rb,0.41470e+03_rb,0.29430e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,17, 1) = (/ &\n        & 0.25772e+02_rb,0.29785e+03_rb,0.41540e+03_rb,0.29506e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,17, 1) = (/ &\n        & 0.25683e+02_rb,0.29787e+03_rb,0.41460e+03_rb,0.29419e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,17, 1) = (/ &\n        & 0.25606e+02_rb,0.29784e+03_rb,0.41391e+03_rb,0.29343e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,17, 1) = (/ &\n        & 0.25538e+02_rb,0.29774e+03_rb,0.41331e+03_rb,0.29277e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,17, 1) = (/ &\n        & 0.25479e+02_rb,0.29758e+03_rb,0.41278e+03_rb,0.29219e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,18, 1) = (/ &\n        & 0.25541e+02_rb,0.29768e+03_rb,0.41334e+03_rb,0.29280e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,18, 1) = (/ &\n        & 0.25469e+02_rb,0.29772e+03_rb,0.41269e+03_rb,0.29209e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,18, 1) = (/ &\n        & 0.25407e+02_rb,0.29768e+03_rb,0.41213e+03_rb,0.29147e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,18, 1) = (/ &\n        & 0.25353e+02_rb,0.29758e+03_rb,0.41163e+03_rb,0.29094e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,18, 1) = (/ &\n        & 0.25305e+02_rb,0.29743e+03_rb,0.41120e+03_rb,0.29046e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,19, 1) = (/ &\n        & 0.25354e+02_rb,0.29755e+03_rb,0.41165e+03_rb,0.29095e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,19, 1) = (/ &\n        & 0.25296e+02_rb,0.29758e+03_rb,0.41112e+03_rb,0.29037e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,19, 1) = (/ &\n        & 0.25245e+02_rb,0.29755e+03_rb,0.41067e+03_rb,0.28988e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,19, 1) = (/ &\n        & 0.25201e+02_rb,0.29746e+03_rb,0.41027e+03_rb,0.28944e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,19, 1) = (/ &\n        & 0.25163e+02_rb,0.29730e+03_rb,0.40991e+03_rb,0.28905e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,20, 1) = (/ &\n        & 0.25201e+02_rb,0.29744e+03_rb,0.41026e+03_rb,0.28943e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,20, 1) = (/ &\n        & 0.25154e+02_rb,0.29748e+03_rb,0.40984e+03_rb,0.28897e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,20, 1) = (/ &\n        & 0.25113e+02_rb,0.29745e+03_rb,0.40947e+03_rb,0.28856e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,20, 1) = (/ &\n        & 0.25078e+02_rb,0.29735e+03_rb,0.40914e+03_rb,0.28821e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,20, 1) = (/ &\n        & 0.25047e+02_rb,0.29719e+03_rb,0.40886e+03_rb,0.28790e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,21, 1) = (/ &\n        & 0.25076e+02_rb,0.29736e+03_rb,0.40913e+03_rb,0.28819e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,21, 1) = (/ &\n        & 0.25039e+02_rb,0.29739e+03_rb,0.40879e+03_rb,0.28782e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,21, 1) = (/ &\n        & 0.25006e+02_rb,0.29736e+03_rb,0.40849e+03_rb,0.28749e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,21, 1) = (/ &\n        & 0.24978e+02_rb,0.29726e+03_rb,0.40823e+03_rb,0.28722e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,21, 1) = (/ &\n        & 0.24952e+02_rb,0.29710e+03_rb,0.40800e+03_rb,0.28695e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,22, 1) = (/ &\n        & 0.24973e+02_rb,0.29729e+03_rb,0.40819e+03_rb,0.28717e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,22, 1) = (/ &\n        & 0.24944e+02_rb,0.29732e+03_rb,0.40792e+03_rb,0.28687e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,22, 1) = (/ &\n        & 0.24917e+02_rb,0.29728e+03_rb,0.40768e+03_rb,0.28661e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,22, 1) = (/ &\n        & 0.24895e+02_rb,0.29717e+03_rb,0.40747e+03_rb,0.28638e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,22, 1) = (/ &\n        & 0.24874e+02_rb,0.29700e+03_rb,0.40728e+03_rb,0.28618e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,23, 1) = (/ &\n        & 0.24890e+02_rb,0.29724e+03_rb,0.40743e+03_rb,0.28634e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,23, 1) = (/ &\n        & 0.24866e+02_rb,0.29726e+03_rb,0.40721e+03_rb,0.28610e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,23, 1) = (/ &\n        & 0.24846e+02_rb,0.29721e+03_rb,0.40702e+03_rb,0.28589e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,23, 1) = (/ &\n        & 0.24827e+02_rb,0.29710e+03_rb,0.40685e+03_rb,0.28571e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,23, 1) = (/ &\n        & 0.24811e+02_rb,0.29692e+03_rb,0.40671e+03_rb,0.28554e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,24, 1) = (/ &\n        & 0.24823e+02_rb,0.29721e+03_rb,0.40681e+03_rb,0.28566e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,24, 1) = (/ &\n        & 0.24804e+02_rb,0.29721e+03_rb,0.40664e+03_rb,0.28547e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,24, 1) = (/ &\n        & 0.24787e+02_rb,0.29715e+03_rb,0.40649e+03_rb,0.28530e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,24, 1) = (/ &\n        & 0.24773e+02_rb,0.29703e+03_rb,0.40635e+03_rb,0.28516e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,24, 1) = (/ &\n        & 0.24760e+02_rb,0.29684e+03_rb,0.40623e+03_rb,0.28503e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,25, 1) = (/ &\n        & 0.24769e+02_rb,0.29717e+03_rb,0.40631e+03_rb,0.28511e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,25, 1) = (/ &\n        & 0.24753e+02_rb,0.29717e+03_rb,0.40618e+03_rb,0.28496e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,25, 1) = (/ &\n        & 0.24740e+02_rb,0.29710e+03_rb,0.40606e+03_rb,0.28483e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,25, 1) = (/ &\n        & 0.24729e+02_rb,0.29696e+03_rb,0.40595e+03_rb,0.28472e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,25, 1) = (/ &\n        & 0.24718e+02_rb,0.29676e+03_rb,0.40585e+03_rb,0.28462e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,26, 1) = (/ &\n        & 0.24724e+02_rb,0.29715e+03_rb,0.40591e+03_rb,0.28467e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,26, 1) = (/ &\n        & 0.24712e+02_rb,0.29713e+03_rb,0.40580e+03_rb,0.28456e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,26, 1) = (/ &\n        & 0.24702e+02_rb,0.29704e+03_rb,0.40570e+03_rb,0.28445e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,26, 1) = (/ &\n        & 0.24693e+02_rb,0.29689e+03_rb,0.40562e+03_rb,0.28435e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,26, 1) = (/ &\n        & 0.24684e+02_rb,0.29668e+03_rb,0.40554e+03_rb,0.28427e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,27, 1) = (/ &\n        & 0.24689e+02_rb,0.29713e+03_rb,0.40558e+03_rb,0.28431e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,27, 1) = (/ &\n        & 0.24679e+02_rb,0.29709e+03_rb,0.40550e+03_rb,0.28422e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,27, 1) = (/ &\n        & 0.24671e+02_rb,0.29699e+03_rb,0.40542e+03_rb,0.28423e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,27, 1) = (/ &\n        & 0.24664e+02_rb,0.29683e+03_rb,0.40535e+03_rb,0.28405e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,27, 1) = (/ &\n        & 0.24657e+02_rb,0.29660e+03_rb,0.40529e+03_rb,0.28399e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,28, 1) = (/ &\n        & 0.24660e+02_rb,0.29710e+03_rb,0.40532e+03_rb,0.28404e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,28, 1) = (/ &\n        & 0.24653e+02_rb,0.29706e+03_rb,0.40525e+03_rb,0.28395e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,28, 1) = (/ &\n        & 0.24646e+02_rb,0.29694e+03_rb,0.40519e+03_rb,0.28389e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,28, 1) = (/ &\n        & 0.24640e+02_rb,0.29676e+03_rb,0.40514e+03_rb,0.28383e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,28, 1) = (/ &\n        & 0.24635e+02_rb,0.29651e+03_rb,0.40509e+03_rb,0.28376e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,29, 1) = (/ &\n        & 0.24637e+02_rb,0.29708e+03_rb,0.40511e+03_rb,0.28380e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,29, 1) = (/ &\n        & 0.24631e+02_rb,0.29702e+03_rb,0.40505e+03_rb,0.28374e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,29, 1) = (/ &\n        & 0.24626e+02_rb,0.29689e+03_rb,0.40500e+03_rb,0.28368e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,29, 1) = (/ &\n        & 0.24621e+02_rb,0.29669e+03_rb,0.40496e+03_rb,0.28364e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,29, 1) = (/ &\n        & 0.24617e+02_rb,0.29643e+03_rb,0.40492e+03_rb,0.28359e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,30, 1) = (/ &\n        & 0.24619e+02_rb,0.29706e+03_rb,0.40494e+03_rb,0.28360e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,30, 1) = (/ &\n        & 0.24614e+02_rb,0.29698e+03_rb,0.40489e+03_rb,0.28355e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,30, 1) = (/ &\n        & 0.24610e+02_rb,0.29683e+03_rb,0.40485e+03_rb,0.28351e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,30, 1) = (/ &\n        & 0.24606e+02_rb,0.29662e+03_rb,0.40482e+03_rb,0.28347e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,30, 1) = (/ &\n        & 0.24603e+02_rb,0.29634e+03_rb,0.40479e+03_rb,0.28344e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,31, 1) = (/ &\n        & 0.24604e+02_rb,0.29704e+03_rb,0.40480e+03_rb,0.28345e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,31, 1) = (/ &\n        & 0.24600e+02_rb,0.29694e+03_rb,0.40477e+03_rb,0.28341e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,31, 1) = (/ &\n        & 0.24597e+02_rb,0.29678e+03_rb,0.40473e+03_rb,0.28338e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,31, 1) = (/ &\n        & 0.24594e+02_rb,0.29655e+03_rb,0.40471e+03_rb,0.28336e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,31, 1) = (/ &\n        & 0.24591e+02_rb,0.29625e+03_rb,0.40468e+03_rb,0.28332e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,32, 1) = (/ &\n        & 0.24592e+02_rb,0.29701e+03_rb,0.40469e+03_rb,0.28333e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,32, 1) = (/ &\n        & 0.24589e+02_rb,0.29689e+03_rb,0.40466e+03_rb,0.28330e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,32, 1) = (/ &\n        & 0.24586e+02_rb,0.29672e+03_rb,0.40464e+03_rb,0.28328e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,32, 1) = (/ &\n        & 0.24584e+02_rb,0.29647e+03_rb,0.40461e+03_rb,0.28324e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,32, 1) = (/ &\n        & 0.24582e+02_rb,0.29615e+03_rb,0.40459e+03_rb,0.28325e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,33, 1) = (/ &\n        & 0.24582e+02_rb,0.29698e+03_rb,0.40460e+03_rb,0.28323e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,33, 1) = (/ &\n        & 0.24580e+02_rb,0.29685e+03_rb,0.40458e+03_rb,0.28321e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,33, 1) = (/ &\n        & 0.24578e+02_rb,0.29665e+03_rb,0.40456e+03_rb,0.28318e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,33, 1) = (/ &\n        & 0.24576e+02_rb,0.29639e+03_rb,0.40454e+03_rb,0.28317e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,33, 1) = (/ &\n        & 0.24574e+02_rb,0.29605e+03_rb,0.40452e+03_rb,0.28315e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,34, 1) = (/ &\n        & 0.24574e+02_rb,0.29695e+03_rb,0.40453e+03_rb,0.28315e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,34, 1) = (/ &\n        & 0.24572e+02_rb,0.29680e+03_rb,0.40451e+03_rb,0.28313e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,34, 1) = (/ &\n        & 0.24571e+02_rb,0.29659e+03_rb,0.40449e+03_rb,0.28312e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,34, 1) = (/ &\n        & 0.24569e+02_rb,0.29631e+03_rb,0.40448e+03_rb,0.28310e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,34, 1) = (/ &\n        & 0.24568e+02_rb,0.29596e+03_rb,0.40447e+03_rb,0.28308e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,35, 1) = (/ &\n        & 0.24568e+02_rb,0.29693e+03_rb,0.40447e+03_rb,0.28309e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,35, 1) = (/ &\n        & 0.24567e+02_rb,0.29678e+03_rb,0.40446e+03_rb,0.28308e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,35, 1) = (/ &\n        & 0.24565e+02_rb,0.29656e+03_rb,0.40444e+03_rb,0.28306e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,35, 1) = (/ &\n        & 0.24564e+02_rb,0.29627e+03_rb,0.40443e+03_rb,0.28305e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,35, 1) = (/ &\n        & 0.24563e+02_rb,0.29590e+03_rb,0.40442e+03_rb,0.28304e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,36, 1) = (/ &\n        & 0.24563e+02_rb,0.29692e+03_rb,0.40443e+03_rb,0.28305e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,36, 1) = (/ &\n        & 0.24562e+02_rb,0.29677e+03_rb,0.40442e+03_rb,0.28304e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,36, 1) = (/ &\n        & 0.24561e+02_rb,0.29655e+03_rb,0.40440e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,36, 1) = (/ &\n        & 0.24560e+02_rb,0.29626e+03_rb,0.40440e+03_rb,0.28302e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,36, 1) = (/ &\n        & 0.24559e+02_rb,0.29589e+03_rb,0.40439e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,37, 1) = (/ &\n        & 0.24560e+02_rb,0.29693e+03_rb,0.40439e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,37, 1) = (/ &\n        & 0.24559e+02_rb,0.29679e+03_rb,0.40438e+03_rb,0.28299e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,37, 1) = (/ &\n        & 0.24558e+02_rb,0.29658e+03_rb,0.40437e+03_rb,0.28299e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,37, 1) = (/ &\n        & 0.24557e+02_rb,0.29630e+03_rb,0.40437e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,37, 1) = (/ &\n        & 0.24556e+02_rb,0.29594e+03_rb,0.40436e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,38, 1) = (/ &\n        & 0.24557e+02_rb,0.29695e+03_rb,0.40436e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,38, 1) = (/ &\n        & 0.24556e+02_rb,0.29681e+03_rb,0.40436e+03_rb,0.28296e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,38, 1) = (/ &\n        & 0.24555e+02_rb,0.29661e+03_rb,0.40435e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,38, 1) = (/ &\n        & 0.24554e+02_rb,0.29634e+03_rb,0.40434e+03_rb,0.28296e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,38, 1) = (/ &\n        & 0.24554e+02_rb,0.29599e+03_rb,0.40434e+03_rb,0.28294e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,39, 1) = (/ &\n        & 0.24554e+02_rb,0.29696e+03_rb,0.40434e+03_rb,0.28295e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,39, 1) = (/ &\n        & 0.24553e+02_rb,0.29683e+03_rb,0.40433e+03_rb,0.28294e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,39, 1) = (/ &\n        & 0.24553e+02_rb,0.29664e+03_rb,0.40433e+03_rb,0.28293e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,39, 1) = (/ &\n        & 0.24552e+02_rb,0.29638e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,39, 1) = (/ &\n        & 0.24552e+02_rb,0.29604e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,40, 1) = (/ &\n        & 0.24552e+02_rb,0.29698e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,40, 1) = (/ &\n        & 0.24551e+02_rb,0.29687e+03_rb,0.40432e+03_rb,0.28293e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,40, 1) = (/ &\n        & 0.24551e+02_rb,0.29669e+03_rb,0.40431e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,40, 1) = (/ &\n        & 0.24550e+02_rb,0.29645e+03_rb,0.40431e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,40, 1) = (/ &\n        & 0.24550e+02_rb,0.29613e+03_rb,0.40430e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,41, 1) = (/ &\n        & 0.24550e+02_rb,0.29699e+03_rb,0.40431e+03_rb,0.28290e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,41, 1) = (/ &\n        & 0.24550e+02_rb,0.29690e+03_rb,0.40430e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,41, 1) = (/ &\n        & 0.24549e+02_rb,0.29674e+03_rb,0.40430e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,41, 1) = (/ &\n        & 0.24549e+02_rb,0.29651e+03_rb,0.40429e+03_rb,0.28290e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,41, 1) = (/ &\n        & 0.24549e+02_rb,0.29622e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,42, 1) = (/ &\n        & 0.24549e+02_rb,0.29700e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,42, 1) = (/ &\n        & 0.24549e+02_rb,0.29693e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,42, 1) = (/ &\n        & 0.24548e+02_rb,0.29679e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,42, 1) = (/ &\n        & 0.24548e+02_rb,0.29658e+03_rb,0.40428e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,42, 1) = (/ &\n        & 0.24547e+02_rb,0.29630e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,43, 1) = (/ &\n        & 0.24548e+02_rb,0.29701e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29696e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29684e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29665e+03_rb,0.40427e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29639e+03_rb,0.40427e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,44, 1) = (/ &\n        & 0.24547e+02_rb,0.29702e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,44, 1) = (/ &\n        & 0.24547e+02_rb,0.29698e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,44, 1) = (/ &\n        & 0.24546e+02_rb,0.29688e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,44, 1) = (/ &\n        & 0.24546e+02_rb,0.29672e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,44, 1) = (/ &\n        & 0.24546e+02_rb,0.29649e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,45, 1) = (/ &\n        & 0.24546e+02_rb,0.29701e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,45, 1) = (/ &\n        & 0.24546e+02_rb,0.29700e+03_rb,0.40426e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,45, 1) = (/ &\n        & 0.24546e+02_rb,0.29692e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,45, 1) = (/ &\n        & 0.24545e+02_rb,0.29678e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,45, 1) = (/ &\n        & 0.24545e+02_rb,0.29657e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29699e+03_rb,0.40426e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29701e+03_rb,0.40426e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29696e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29684e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29665e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,47, 1) = (/ &\n        & 0.24545e+02_rb,0.29696e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,47, 1) = (/ &\n        & 0.24545e+02_rb,0.29701e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,47, 1) = (/ &\n        & 0.24544e+02_rb,0.29699e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,47, 1) = (/ &\n        & 0.24544e+02_rb,0.29690e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,47, 1) = (/ &\n        & 0.24544e+02_rb,0.29674e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29691e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29700e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29701e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29694e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29681e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29685e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29698e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29697e+03_rb,0.40424e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29687e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,50, 1) = (/ &\n        & 0.24544e+02_rb,0.29678e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,50, 1) = (/ &\n        & 0.24544e+02_rb,0.29694e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,50, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,50, 1) = (/ &\n        & 0.24543e+02_rb,0.29700e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,50, 1) = (/ &\n        & 0.24543e+02_rb,0.29692e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29670e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29689e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29699e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29695e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29660e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29684e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29697e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29698e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29648e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29676e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29693e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29700e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29635e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29668e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29688e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29699e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40423e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29622e+03_rb,0.40424e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29659e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29683e+03_rb,0.40423e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29696e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,56, 1) = (/ &\n        & 0.24543e+02_rb,0.29607e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,56, 1) = (/ &\n        & 0.24543e+02_rb,0.29649e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,56, 1) = (/ &\n        & 0.24543e+02_rb,0.29676e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,56, 1) = (/ &\n        & 0.24542e+02_rb,0.29693e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,56, 1) = (/ &\n        & 0.24542e+02_rb,0.29700e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,57, 1) = (/ &\n        & 0.24543e+02_rb,0.29591e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29637e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29669e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29689e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29699e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29574e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29624e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29660e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29684e+03_rb,0.40423e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29697e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29566e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29619e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29657e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29682e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29696e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,13, 2) = (/ &\n        & 0.10177e+03_rb,0.32761e+03_rb,0.45575e+03_rb,0.31335e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,13, 2) = (/ &\n        & 0.10099e+03_rb,0.32713e+03_rb,0.45383e+03_rb,0.31125e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,13, 2) = (/ &\n        & 0.10031e+03_rb,0.32663e+03_rb,0.45216e+03_rb,0.30943e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,13, 2) = (/ &\n        & 0.99721e+02_rb,0.32612e+03_rb,0.45071e+03_rb,0.30785e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,13, 2) = (/ &\n        & 0.99204e+02_rb,0.32558e+03_rb,0.44942e+03_rb,0.30646e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,14, 2) = (/ &\n        & 0.99803e+02_rb,0.32613e+03_rb,0.45091e+03_rb,0.30807e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,14, 2) = (/ &\n        & 0.99169e+02_rb,0.32574e+03_rb,0.44934e+03_rb,0.30636e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,14, 2) = (/ &\n        & 0.98622e+02_rb,0.32534e+03_rb,0.44797e+03_rb,0.30489e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,14, 2) = (/ &\n        & 0.98146e+02_rb,0.32491e+03_rb,0.44677e+03_rb,0.30362e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,14, 2) = (/ &\n        & 0.97728e+02_rb,0.32444e+03_rb,0.44571e+03_rb,0.30248e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,15, 2) = (/ &\n        & 0.98198e+02_rb,0.32493e+03_rb,0.44690e+03_rb,0.30375e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,15, 2) = (/ &\n        & 0.97687e+02_rb,0.32462e+03_rb,0.44560e+03_rb,0.30237e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,15, 2) = (/ &\n        & 0.97245e+02_rb,0.32429e+03_rb,0.44448e+03_rb,0.30119e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,15, 2) = (/ &\n        & 0.96861e+02_rb,0.32392e+03_rb,0.44350e+03_rb,0.30014e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,15, 2) = (/ &\n        & 0.96523e+02_rb,0.32350e+03_rb,0.44263e+03_rb,0.29923e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,16, 2) = (/ &\n        & 0.96892e+02_rb,0.32395e+03_rb,0.44358e+03_rb,0.30023e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,16, 2) = (/ &\n        & 0.96480e+02_rb,0.32371e+03_rb,0.44252e+03_rb,0.29912e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,16, 2) = (/ &\n        & 0.96125e+02_rb,0.32343e+03_rb,0.44161e+03_rb,0.29817e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,16, 2) = (/ &\n        & 0.95814e+02_rb,0.32311e+03_rb,0.44081e+03_rb,0.29733e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,16, 2) = (/ &\n        & 0.95541e+02_rb,0.32273e+03_rb,0.44010e+03_rb,0.29661e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,17, 2) = (/ &\n        & 0.95833e+02_rb,0.32316e+03_rb,0.44086e+03_rb,0.29737e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,17, 2) = (/ &\n        & 0.95501e+02_rb,0.32297e+03_rb,0.44000e+03_rb,0.29648e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,17, 2) = (/ &\n        & 0.95214e+02_rb,0.32274e+03_rb,0.43925e+03_rb,0.29569e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,17, 2) = (/ &\n        & 0.94964e+02_rb,0.32245e+03_rb,0.43860e+03_rb,0.29502e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,17, 2) = (/ &\n        & 0.94743e+02_rb,0.32210e+03_rb,0.43803e+03_rb,0.29442e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,18, 2) = (/ &\n        & 0.94974e+02_rb,0.32251e+03_rb,0.43863e+03_rb,0.29504e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,18, 2) = (/ &\n        & 0.94707e+02_rb,0.32236e+03_rb,0.43793e+03_rb,0.29432e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,18, 2) = (/ &\n        & 0.94475e+02_rb,0.32217e+03_rb,0.43733e+03_rb,0.29369e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,18, 2) = (/ &\n        & 0.94272e+02_rb,0.32191e+03_rb,0.43680e+03_rb,0.29315e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,18, 2) = (/ &\n        & 0.94094e+02_rb,0.32158e+03_rb,0.43633e+03_rb,0.29267e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,19, 2) = (/ &\n        & 0.94277e+02_rb,0.32199e+03_rb,0.43681e+03_rb,0.29316e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,19, 2) = (/ &\n        & 0.94061e+02_rb,0.32187e+03_rb,0.43624e+03_rb,0.29258e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,19, 2) = (/ &\n        & 0.93874e+02_rb,0.32170e+03_rb,0.43575e+03_rb,0.29207e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,19, 2) = (/ &\n        & 0.93711e+02_rb,0.32146e+03_rb,0.43532e+03_rb,0.29164e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,19, 2) = (/ &\n        & 0.93566e+02_rb,0.32115e+03_rb,0.43494e+03_rb,0.29125e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,20, 2) = (/ &\n        & 0.93708e+02_rb,0.32157e+03_rb,0.43531e+03_rb,0.29163e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,20, 2) = (/ &\n        & 0.93534e+02_rb,0.32147e+03_rb,0.43485e+03_rb,0.29117e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,20, 2) = (/ &\n        & 0.93383e+02_rb,0.32132e+03_rb,0.43445e+03_rb,0.29076e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,20, 2) = (/ &\n        & 0.93251e+02_rb,0.32109e+03_rb,0.43411e+03_rb,0.29041e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,20, 2) = (/ &\n        & 0.93135e+02_rb,0.32079e+03_rb,0.43380e+03_rb,0.29010e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,21, 2) = (/ &\n        & 0.93246e+02_rb,0.32122e+03_rb,0.43409e+03_rb,0.29040e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,21, 2) = (/ &\n        & 0.93106e+02_rb,0.32114e+03_rb,0.43372e+03_rb,0.29003e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,21, 2) = (/ &\n        & 0.92985e+02_rb,0.32100e+03_rb,0.43340e+03_rb,0.28970e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,21, 2) = (/ &\n        & 0.92878e+02_rb,0.32079e+03_rb,0.43311e+03_rb,0.28941e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,21, 2) = (/ &\n        & 0.92784e+02_rb,0.32049e+03_rb,0.43286e+03_rb,0.28917e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,22, 2) = (/ &\n        & 0.92863e+02_rb,0.32094e+03_rb,0.43307e+03_rb,0.28938e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,22, 2) = (/ &\n        & 0.92751e+02_rb,0.32087e+03_rb,0.43278e+03_rb,0.28908e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,22, 2) = (/ &\n        & 0.92655e+02_rb,0.32073e+03_rb,0.43252e+03_rb,0.28882e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,22, 2) = (/ &\n        & 0.92569e+02_rb,0.32051e+03_rb,0.43229e+03_rb,0.28860e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,22, 2) = (/ &\n        & 0.92494e+02_rb,0.32022e+03_rb,0.43209e+03_rb,0.28840e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,23, 2) = (/ &\n        & 0.92553e+02_rb,0.32072e+03_rb,0.43225e+03_rb,0.28855e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,23, 2) = (/ &\n        & 0.92465e+02_rb,0.32064e+03_rb,0.43201e+03_rb,0.28832e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,23, 2) = (/ &\n        & 0.92387e+02_rb,0.32050e+03_rb,0.43180e+03_rb,0.28811e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,23, 2) = (/ &\n        & 0.92319e+02_rb,0.32029e+03_rb,0.43162e+03_rb,0.28793e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,23, 2) = (/ &\n        & 0.92259e+02_rb,0.31998e+03_rb,0.43146e+03_rb,0.28778e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,24, 2) = (/ &\n        & 0.92303e+02_rb,0.32053e+03_rb,0.43158e+03_rb,0.28789e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,24, 2) = (/ &\n        & 0.92233e+02_rb,0.32046e+03_rb,0.43139e+03_rb,0.28770e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,24, 2) = (/ &\n        & 0.92171e+02_rb,0.32031e+03_rb,0.43122e+03_rb,0.28754e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,24, 2) = (/ &\n        & 0.92117e+02_rb,0.32009e+03_rb,0.43108e+03_rb,0.28740e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,24, 2) = (/ &\n        & 0.92068e+02_rb,0.31978e+03_rb,0.43095e+03_rb,0.28727e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,25, 2) = (/ &\n        & 0.92101e+02_rb,0.32038e+03_rb,0.43103e+03_rb,0.28736e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,25, 2) = (/ &\n        & 0.92045e+02_rb,0.32030e+03_rb,0.43088e+03_rb,0.28721e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,25, 2) = (/ &\n        & 0.91996e+02_rb,0.32015e+03_rb,0.43075e+03_rb,0.28708e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,25, 2) = (/ &\n        & 0.91952e+02_rb,0.31991e+03_rb,0.43064e+03_rb,0.28696e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,25, 2) = (/ &\n        & 0.91914e+02_rb,0.31959e+03_rb,0.43053e+03_rb,0.28684e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,26, 2) = (/ &\n        & 0.91937e+02_rb,0.32025e+03_rb,0.43059e+03_rb,0.28693e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,26, 2) = (/ &\n        & 0.91892e+02_rb,0.32016e+03_rb,0.43047e+03_rb,0.28680e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,26, 2) = (/ &\n        & 0.91853e+02_rb,0.32000e+03_rb,0.43037e+03_rb,0.28670e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,26, 2) = (/ &\n        & 0.91819e+02_rb,0.31975e+03_rb,0.43028e+03_rb,0.28661e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,26, 2) = (/ &\n        & 0.91788e+02_rb,0.31942e+03_rb,0.43019e+03_rb,0.28653e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,27, 2) = (/ &\n        & 0.91805e+02_rb,0.32015e+03_rb,0.43024e+03_rb,0.28658e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,27, 2) = (/ &\n        & 0.91770e+02_rb,0.32005e+03_rb,0.43014e+03_rb,0.28648e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,27, 2) = (/ &\n        & 0.91738e+02_rb,0.31986e+03_rb,0.43006e+03_rb,0.28630e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,27, 2) = (/ &\n        & 0.91711e+02_rb,0.31960e+03_rb,0.42998e+03_rb,0.28633e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,27, 2) = (/ &\n        & 0.91687e+02_rb,0.31925e+03_rb,0.42992e+03_rb,0.28626e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,28, 2) = (/ &\n        & 0.91698e+02_rb,0.32005e+03_rb,0.42995e+03_rb,0.28628e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,28, 2) = (/ &\n        & 0.91670e+02_rb,0.31994e+03_rb,0.42987e+03_rb,0.28622e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,28, 2) = (/ &\n        & 0.91646e+02_rb,0.31974e+03_rb,0.42981e+03_rb,0.28615e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,28, 2) = (/ &\n        & 0.91624e+02_rb,0.31946e+03_rb,0.42975e+03_rb,0.28609e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,28, 2) = (/ &\n        & 0.91604e+02_rb,0.31910e+03_rb,0.42970e+03_rb,0.28605e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,29, 2) = (/ &\n        & 0.91613e+02_rb,0.31997e+03_rb,0.42972e+03_rb,0.28605e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,29, 2) = (/ &\n        & 0.91591e+02_rb,0.31984e+03_rb,0.42966e+03_rb,0.28600e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,29, 2) = (/ &\n        & 0.91571e+02_rb,0.31963e+03_rb,0.42960e+03_rb,0.28595e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,29, 2) = (/ &\n        & 0.91554e+02_rb,0.31933e+03_rb,0.42956e+03_rb,0.28590e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,29, 2) = (/ &\n        & 0.91538e+02_rb,0.31895e+03_rb,0.42952e+03_rb,0.28586e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,30, 2) = (/ &\n        & 0.91544e+02_rb,0.31990e+03_rb,0.42953e+03_rb,0.28589e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,30, 2) = (/ &\n        & 0.91526e+02_rb,0.31975e+03_rb,0.42948e+03_rb,0.28584e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,30, 2) = (/ &\n        & 0.91511e+02_rb,0.31952e+03_rb,0.42944e+03_rb,0.28580e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,30, 2) = (/ &\n        & 0.91497e+02_rb,0.31920e+03_rb,0.42940e+03_rb,0.28577e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,30, 2) = (/ &\n        & 0.91484e+02_rb,0.31880e+03_rb,0.42937e+03_rb,0.28573e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,31, 2) = (/ &\n        & 0.91488e+02_rb,0.31983e+03_rb,0.42938e+03_rb,0.28574e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,31, 2) = (/ &\n        & 0.91474e+02_rb,0.31966e+03_rb,0.42934e+03_rb,0.28571e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,31, 2) = (/ &\n        & 0.91462e+02_rb,0.31941e+03_rb,0.42931e+03_rb,0.28567e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,31, 2) = (/ &\n        & 0.91451e+02_rb,0.31908e+03_rb,0.42928e+03_rb,0.28564e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,31, 2) = (/ &\n        & 0.91441e+02_rb,0.31866e+03_rb,0.42925e+03_rb,0.28562e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,32, 2) = (/ &\n        & 0.91443e+02_rb,0.31976e+03_rb,0.42926e+03_rb,0.28562e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,32, 2) = (/ &\n        & 0.91432e+02_rb,0.31958e+03_rb,0.42923e+03_rb,0.28559e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,32, 2) = (/ &\n        & 0.91423e+02_rb,0.31930e+03_rb,0.42920e+03_rb,0.28557e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,32, 2) = (/ &\n        & 0.91414e+02_rb,0.31895e+03_rb,0.42918e+03_rb,0.28555e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,32, 2) = (/ &\n        & 0.91406e+02_rb,0.31851e+03_rb,0.42916e+03_rb,0.28551e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,33, 2) = (/ &\n        & 0.91407e+02_rb,0.31970e+03_rb,0.42916e+03_rb,0.28553e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,33, 2) = (/ &\n        & 0.91399e+02_rb,0.31949e+03_rb,0.42914e+03_rb,0.28551e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,33, 2) = (/ &\n        & 0.91391e+02_rb,0.31920e+03_rb,0.42912e+03_rb,0.28549e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,33, 2) = (/ &\n        & 0.91384e+02_rb,0.31882e+03_rb,0.42910e+03_rb,0.28547e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,33, 2) = (/ &\n        & 0.91378e+02_rb,0.31837e+03_rb,0.42908e+03_rb,0.28546e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,34, 2) = (/ &\n        & 0.91379e+02_rb,0.31964e+03_rb,0.42908e+03_rb,0.28546e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,34, 2) = (/ &\n        & 0.91372e+02_rb,0.31941e+03_rb,0.42906e+03_rb,0.28544e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,34, 2) = (/ &\n        & 0.91365e+02_rb,0.31910e+03_rb,0.42905e+03_rb,0.28542e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,34, 2) = (/ &\n        & 0.91360e+02_rb,0.31871e+03_rb,0.42903e+03_rb,0.28541e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,34, 2) = (/ &\n        & 0.91355e+02_rb,0.31824e+03_rb,0.42902e+03_rb,0.28540e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,35, 2) = (/ &\n        & 0.91356e+02_rb,0.31960e+03_rb,0.42902e+03_rb,0.28539e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,35, 2) = (/ &\n        & 0.91350e+02_rb,0.31936e+03_rb,0.42901e+03_rb,0.28538e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,35, 2) = (/ &\n        & 0.91345e+02_rb,0.31904e+03_rb,0.42899e+03_rb,0.28537e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,35, 2) = (/ &\n        & 0.91341e+02_rb,0.31863e+03_rb,0.42898e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,35, 2) = (/ &\n        & 0.91337e+02_rb,0.31816e+03_rb,0.42897e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,36, 2) = (/ &\n        & 0.91338e+02_rb,0.31958e+03_rb,0.42897e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,36, 2) = (/ &\n        & 0.91334e+02_rb,0.31934e+03_rb,0.42896e+03_rb,0.28533e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,36, 2) = (/ &\n        & 0.91330e+02_rb,0.31902e+03_rb,0.42895e+03_rb,0.28533e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,36, 2) = (/ &\n        & 0.91326e+02_rb,0.31862e+03_rb,0.42894e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,36, 2) = (/ &\n        & 0.91323e+02_rb,0.31814e+03_rb,0.42893e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,37, 2) = (/ &\n        & 0.91324e+02_rb,0.31959e+03_rb,0.42894e+03_rb,0.28531e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,37, 2) = (/ &\n        & 0.91320e+02_rb,0.31937e+03_rb,0.42893e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,37, 2) = (/ &\n        & 0.91317e+02_rb,0.31906e+03_rb,0.42892e+03_rb,0.28529e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,37, 2) = (/ &\n        & 0.91314e+02_rb,0.31866e+03_rb,0.42891e+03_rb,0.28529e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,37, 2) = (/ &\n        & 0.91311e+02_rb,0.31819e+03_rb,0.42890e+03_rb,0.28527e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,38, 2) = (/ &\n        & 0.91313e+02_rb,0.31961e+03_rb,0.42890e+03_rb,0.28528e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,38, 2) = (/ &\n        & 0.91310e+02_rb,0.31939e+03_rb,0.42890e+03_rb,0.28528e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,38, 2) = (/ &\n        & 0.91307e+02_rb,0.31910e+03_rb,0.42889e+03_rb,0.28526e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,38, 2) = (/ &\n        & 0.91304e+02_rb,0.31871e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,38, 2) = (/ &\n        & 0.91302e+02_rb,0.31826e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,39, 2) = (/ &\n        & 0.91303e+02_rb,0.31962e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,39, 2) = (/ &\n        & 0.91301e+02_rb,0.31942e+03_rb,0.42887e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,39, 2) = (/ &\n        & 0.91298e+02_rb,0.31914e+03_rb,0.42886e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,39, 2) = (/ &\n        & 0.91296e+02_rb,0.31877e+03_rb,0.42886e+03_rb,0.28524e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,39, 2) = (/ &\n        & 0.91294e+02_rb,0.31832e+03_rb,0.42885e+03_rb,0.28523e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,40, 2) = (/ &\n        & 0.91296e+02_rb,0.31965e+03_rb,0.42886e+03_rb,0.28524e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,40, 2) = (/ &\n        & 0.91293e+02_rb,0.31947e+03_rb,0.42885e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,40, 2) = (/ &\n        & 0.91292e+02_rb,0.31921e+03_rb,0.42885e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,40, 2) = (/ &\n        & 0.91290e+02_rb,0.31886e+03_rb,0.42884e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,40, 2) = (/ &\n        & 0.91288e+02_rb,0.31843e+03_rb,0.42884e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,41, 2) = (/ &\n        & 0.91289e+02_rb,0.31968e+03_rb,0.42884e+03_rb,0.28523e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,41, 2) = (/ &\n        & 0.91288e+02_rb,0.31952e+03_rb,0.42884e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,41, 2) = (/ &\n        & 0.91286e+02_rb,0.31928e+03_rb,0.42883e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,41, 2) = (/ &\n        & 0.91284e+02_rb,0.31895e+03_rb,0.42883e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,41, 2) = (/ &\n        & 0.91283e+02_rb,0.31854e+03_rb,0.42882e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,42, 2) = (/ &\n        & 0.91284e+02_rb,0.31970e+03_rb,0.42883e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,42, 2) = (/ &\n        & 0.91283e+02_rb,0.31957e+03_rb,0.42882e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,42, 2) = (/ &\n        & 0.91281e+02_rb,0.31934e+03_rb,0.42882e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,42, 2) = (/ &\n        & 0.91280e+02_rb,0.31904e+03_rb,0.42882e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,42, 2) = (/ &\n        & 0.91279e+02_rb,0.31865e+03_rb,0.42881e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,43, 2) = (/ &\n        & 0.91280e+02_rb,0.31972e+03_rb,0.42882e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,43, 2) = (/ &\n        & 0.91279e+02_rb,0.31961e+03_rb,0.42881e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,43, 2) = (/ &\n        & 0.91277e+02_rb,0.31942e+03_rb,0.42881e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,43, 2) = (/ &\n        & 0.91276e+02_rb,0.31914e+03_rb,0.42881e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,43, 2) = (/ &\n        & 0.91275e+02_rb,0.31878e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,44, 2) = (/ &\n        & 0.91276e+02_rb,0.31974e+03_rb,0.42881e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,44, 2) = (/ &\n        & 0.91275e+02_rb,0.31966e+03_rb,0.42880e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,44, 2) = (/ &\n        & 0.91274e+02_rb,0.31949e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,44, 2) = (/ &\n        & 0.91273e+02_rb,0.31924e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,44, 2) = (/ &\n        & 0.91273e+02_rb,0.31890e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,45, 2) = (/ &\n        & 0.91274e+02_rb,0.31974e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,45, 2) = (/ &\n        & 0.91273e+02_rb,0.31969e+03_rb,0.42880e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,45, 2) = (/ &\n        & 0.91272e+02_rb,0.31955e+03_rb,0.42879e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,45, 2) = (/ &\n        & 0.91271e+02_rb,0.31933e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,45, 2) = (/ &\n        & 0.91270e+02_rb,0.31903e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,46, 2) = (/ &\n        & 0.91271e+02_rb,0.31974e+03_rb,0.42879e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,46, 2) = (/ &\n        & 0.91270e+02_rb,0.31972e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,46, 2) = (/ &\n        & 0.91270e+02_rb,0.31961e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,46, 2) = (/ &\n        & 0.91269e+02_rb,0.31942e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,46, 2) = (/ &\n        & 0.91268e+02_rb,0.31914e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,47, 2) = (/ &\n        & 0.91269e+02_rb,0.31973e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,47, 2) = (/ &\n        & 0.91268e+02_rb,0.31974e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,47, 2) = (/ &\n        & 0.91268e+02_rb,0.31966e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,47, 2) = (/ &\n        & 0.91267e+02_rb,0.31951e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,47, 2) = (/ &\n        & 0.91267e+02_rb,0.31926e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,48, 2) = (/ &\n        & 0.91267e+02_rb,0.31970e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,48, 2) = (/ &\n        & 0.91267e+02_rb,0.31974e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,48, 2) = (/ &\n        & 0.91266e+02_rb,0.31970e+03_rb,0.42878e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,48, 2) = (/ &\n        & 0.91266e+02_rb,0.31958e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,48, 2) = (/ &\n        & 0.91265e+02_rb,0.31937e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,49, 2) = (/ &\n        & 0.91266e+02_rb,0.31966e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,49, 2) = (/ &\n        & 0.91265e+02_rb,0.31973e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,49, 2) = (/ &\n        & 0.91265e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,49, 2) = (/ &\n        & 0.91265e+02_rb,0.31964e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,49, 2) = (/ &\n        & 0.91264e+02_rb,0.31946e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,50, 2) = (/ &\n        & 0.91265e+02_rb,0.31962e+03_rb,0.42877e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,50, 2) = (/ &\n        & 0.91264e+02_rb,0.31972e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,50, 2) = (/ &\n        & 0.91264e+02_rb,0.31974e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,50, 2) = (/ &\n        & 0.91264e+02_rb,0.31968e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,50, 2) = (/ &\n        & 0.91263e+02_rb,0.31954e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,51, 2) = (/ &\n        & 0.91264e+02_rb,0.31958e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,51, 2) = (/ &\n        & 0.91263e+02_rb,0.31969e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,51, 2) = (/ &\n        & 0.91263e+02_rb,0.31974e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,51, 2) = (/ &\n        & 0.91263e+02_rb,0.31971e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,51, 2) = (/ &\n        & 0.91262e+02_rb,0.31960e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,52, 2) = (/ &\n        & 0.91263e+02_rb,0.31953e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,52, 2) = (/ &\n        & 0.91263e+02_rb,0.31965e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,52, 2) = (/ &\n        & 0.91262e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,52, 2) = (/ &\n        & 0.91262e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,52, 2) = (/ &\n        & 0.91262e+02_rb,0.31965e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,53, 2) = (/ &\n        & 0.91262e+02_rb,0.31948e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,53, 2) = (/ &\n        & 0.91262e+02_rb,0.31961e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,53, 2) = (/ &\n        & 0.91262e+02_rb,0.31971e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,53, 2) = (/ &\n        & 0.91261e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,53, 2) = (/ &\n        & 0.91261e+02_rb,0.31969e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,54, 2) = (/ &\n        & 0.91262e+02_rb,0.31942e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31957e+03_rb,0.42877e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31968e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31971e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31937e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31953e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31965e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,55, 2) = (/ &\n        & 0.91260e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,56, 2) = (/ &\n        & 0.91261e+02_rb,0.31932e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31947e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31961e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31971e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31927e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31943e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31957e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31968e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31922e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31938e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31953e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31965e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,59, 2) = (/ &\n        & 0.91260e+02_rb,0.31920e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,59, 2) = (/ &\n        & 0.91260e+02_rb,0.31936e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,59, 2) = (/ &\n        & 0.91259e+02_rb,0.31952e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,59, 2) = (/ &\n        & 0.91259e+02_rb,0.31964e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,59, 2) = (/ &\n        & 0.91259e+02_rb,0.31972e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,13, 3) = (/ &\n        & 0.26463e+03_rb,0.36163e+03_rb,0.49889e+03_rb,0.32504e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,13, 3) = (/ &\n        & 0.26258e+03_rb,0.36010e+03_rb,0.49695e+03_rb,0.32345e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,13, 3) = (/ &\n        & 0.26083e+03_rb,0.35879e+03_rb,0.49519e+03_rb,0.32209e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,13, 3) = (/ &\n        & 0.25930e+03_rb,0.35766e+03_rb,0.49360e+03_rb,0.32093e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,13, 3) = (/ &\n        & 0.25795e+03_rb,0.35666e+03_rb,0.49217e+03_rb,0.31991e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,14, 3) = (/ &\n        & 0.25951e+03_rb,0.35782e+03_rb,0.49358e+03_rb,0.32109e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,14, 3) = (/ &\n        & 0.25786e+03_rb,0.35659e+03_rb,0.49191e+03_rb,0.31984e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,14, 3) = (/ &\n        & 0.25644e+03_rb,0.35554e+03_rb,0.49043e+03_rb,0.31877e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,14, 3) = (/ &\n        & 0.25520e+03_rb,0.35461e+03_rb,0.48912e+03_rb,0.31784e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,14, 3) = (/ &\n        & 0.25411e+03_rb,0.35381e+03_rb,0.48795e+03_rb,0.31704e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,15, 3) = (/ &\n        & 0.25534e+03_rb,0.35471e+03_rb,0.48908e+03_rb,0.31794e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,15, 3) = (/ &\n        & 0.25401e+03_rb,0.35373e+03_rb,0.48771e+03_rb,0.31695e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,15, 3) = (/ &\n        & 0.25286e+03_rb,0.35287e+03_rb,0.48651e+03_rb,0.31610e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,15, 3) = (/ &\n        & 0.25186e+03_rb,0.35213e+03_rb,0.48543e+03_rb,0.31537e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,15, 3) = (/ &\n        & 0.25098e+03_rb,0.35147e+03_rb,0.48447e+03_rb,0.31472e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,16, 3) = (/ &\n        & 0.25194e+03_rb,0.35219e+03_rb,0.48538e+03_rb,0.31543e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,16, 3) = (/ &\n        & 0.25087e+03_rb,0.35140e+03_rb,0.48427e+03_rb,0.31463e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,16, 3) = (/ &\n        & 0.24994e+03_rb,0.35071e+03_rb,0.48328e+03_rb,0.31395e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,16, 3) = (/ &\n        & 0.24914e+03_rb,0.35011e+03_rb,0.48239e+03_rb,0.31337e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,16, 3) = (/ &\n        & 0.24843e+03_rb,0.34958e+03_rb,0.48159e+03_rb,0.31282e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,17, 3) = (/ &\n        & 0.24919e+03_rb,0.35014e+03_rb,0.48236e+03_rb,0.31341e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,17, 3) = (/ &\n        & 0.24832e+03_rb,0.34950e+03_rb,0.48145e+03_rb,0.31278e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,17, 3) = (/ &\n        & 0.24758e+03_rb,0.34895e+03_rb,0.48063e+03_rb,0.31225e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,17, 3) = (/ &\n        & 0.24693e+03_rb,0.34847e+03_rb,0.47989e+03_rb,0.31178e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,17, 3) = (/ &\n        & 0.24635e+03_rb,0.34804e+03_rb,0.47924e+03_rb,0.31137e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,18, 3) = (/ &\n        & 0.24695e+03_rb,0.34848e+03_rb,0.47988e+03_rb,0.31180e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,18, 3) = (/ &\n        & 0.24626e+03_rb,0.34797e+03_rb,0.47913e+03_rb,0.31130e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,18, 3) = (/ &\n        & 0.24565e+03_rb,0.34752e+03_rb,0.47845e+03_rb,0.31086e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,18, 3) = (/ &\n        & 0.24513e+03_rb,0.34713e+03_rb,0.47784e+03_rb,0.31048e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,18, 3) = (/ &\n        & 0.24466e+03_rb,0.34679e+03_rb,0.47731e+03_rb,0.31015e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,19, 3) = (/ &\n        & 0.24514e+03_rb,0.34714e+03_rb,0.47784e+03_rb,0.31049e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,19, 3) = (/ &\n        & 0.24458e+03_rb,0.34672e+03_rb,0.47721e+03_rb,0.31009e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,19, 3) = (/ &\n        & 0.24409e+03_rb,0.34636e+03_rb,0.47665e+03_rb,0.30974e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,19, 3) = (/ &\n        & 0.24367e+03_rb,0.34605e+03_rb,0.47616e+03_rb,0.30943e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,19, 3) = (/ &\n        & 0.24329e+03_rb,0.34577e+03_rb,0.47573e+03_rb,0.30916e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,20, 3) = (/ &\n        & 0.24366e+03_rb,0.34604e+03_rb,0.47615e+03_rb,0.30943e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,20, 3) = (/ &\n        & 0.24321e+03_rb,0.34571e+03_rb,0.47563e+03_rb,0.30910e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,20, 3) = (/ &\n        & 0.24282e+03_rb,0.34542e+03_rb,0.47518e+03_rb,0.30882e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,20, 3) = (/ &\n        & 0.24247e+03_rb,0.34516e+03_rb,0.47478e+03_rb,0.30857e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,20, 3) = (/ &\n        & 0.24217e+03_rb,0.34494e+03_rb,0.47443e+03_rb,0.30835e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,21, 3) = (/ &\n        & 0.24246e+03_rb,0.34515e+03_rb,0.47476e+03_rb,0.30856e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,21, 3) = (/ &\n        & 0.24210e+03_rb,0.34488e+03_rb,0.47434e+03_rb,0.30830e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,21, 3) = (/ &\n        & 0.24178e+03_rb,0.34465e+03_rb,0.47397e+03_rb,0.30807e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,21, 3) = (/ &\n        & 0.24150e+03_rb,0.34444e+03_rb,0.47364e+03_rb,0.30787e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,21, 3) = (/ &\n        & 0.24126e+03_rb,0.34426e+03_rb,0.47341e+03_rb,0.30769e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,22, 3) = (/ &\n        & 0.24146e+03_rb,0.34441e+03_rb,0.47360e+03_rb,0.30784e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,22, 3) = (/ &\n        & 0.24117e+03_rb,0.34420e+03_rb,0.47327e+03_rb,0.30763e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,22, 3) = (/ &\n        & 0.24092e+03_rb,0.34401e+03_rb,0.47296e+03_rb,0.30745e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,22, 3) = (/ &\n        & 0.24070e+03_rb,0.34385e+03_rb,0.47270e+03_rb,0.30729e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,22, 3) = (/ &\n        & 0.24050e+03_rb,0.34370e+03_rb,0.47246e+03_rb,0.30715e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,23, 3) = (/ &\n        & 0.24066e+03_rb,0.34382e+03_rb,0.47265e+03_rb,0.30726e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,23, 3) = (/ &\n        & 0.24043e+03_rb,0.34365e+03_rb,0.47237e+03_rb,0.30709e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,23, 3) = (/ &\n        & 0.24023e+03_rb,0.34350e+03_rb,0.47213e+03_rb,0.30695e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,23, 3) = (/ &\n        & 0.24005e+03_rb,0.34336e+03_rb,0.47191e+03_rb,0.30682e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,23, 3) = (/ &\n        & 0.23989e+03_rb,0.34325e+03_rb,0.47173e+03_rb,0.30671e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,24, 3) = (/ &\n        & 0.24001e+03_rb,0.34333e+03_rb,0.47187e+03_rb,0.30679e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,24, 3) = (/ &\n        & 0.23982e+03_rb,0.34320e+03_rb,0.47164e+03_rb,0.30666e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,24, 3) = (/ &\n        & 0.23966e+03_rb,0.34308e+03_rb,0.47145e+03_rb,0.30654e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,24, 3) = (/ &\n        & 0.23952e+03_rb,0.34297e+03_rb,0.47128e+03_rb,0.30644e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,24, 3) = (/ &\n        & 0.23940e+03_rb,0.34288e+03_rb,0.47113e+03_rb,0.30635e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,25, 3) = (/ &\n        & 0.23948e+03_rb,0.34294e+03_rb,0.47124e+03_rb,0.30641e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,25, 3) = (/ &\n        & 0.23934e+03_rb,0.34284e+03_rb,0.47105e+03_rb,0.30631e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,25, 3) = (/ &\n        & 0.23921e+03_rb,0.34274e+03_rb,0.47089e+03_rb,0.30622e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,25, 3) = (/ &\n        & 0.23910e+03_rb,0.34266e+03_rb,0.47075e+03_rb,0.30613e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,25, 3) = (/ &\n        & 0.23900e+03_rb,0.34258e+03_rb,0.47063e+03_rb,0.30606e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,26, 3) = (/ &\n        & 0.23906e+03_rb,0.34263e+03_rb,0.47070e+03_rb,0.30610e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,26, 3) = (/ &\n        & 0.23894e+03_rb,0.34254e+03_rb,0.47056e+03_rb,0.30602e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,26, 3) = (/ &\n        & 0.23884e+03_rb,0.34247e+03_rb,0.47044e+03_rb,0.30595e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,26, 3) = (/ &\n        & 0.23875e+03_rb,0.34240e+03_rb,0.47033e+03_rb,0.30588e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,26, 3) = (/ &\n        & 0.23867e+03_rb,0.34234e+03_rb,0.47023e+03_rb,0.30583e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,27, 3) = (/ &\n        & 0.23871e+03_rb,0.34237e+03_rb,0.47028e+03_rb,0.30586e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,27, 3) = (/ &\n        & 0.23862e+03_rb,0.34230e+03_rb,0.47017e+03_rb,0.30579e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,27, 3) = (/ &\n        & 0.23854e+03_rb,0.34225e+03_rb,0.47007e+03_rb,0.30573e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,27, 3) = (/ &\n        & 0.23847e+03_rb,0.34219e+03_rb,0.46998e+03_rb,0.30568e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,27, 3) = (/ &\n        & 0.23840e+03_rb,0.34214e+03_rb,0.46990e+03_rb,0.30564e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,28, 3) = (/ &\n        & 0.23844e+03_rb,0.34217e+03_rb,0.46994e+03_rb,0.30566e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,28, 3) = (/ &\n        & 0.23836e+03_rb,0.34211e+03_rb,0.46985e+03_rb,0.30561e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,28, 3) = (/ &\n        & 0.23830e+03_rb,0.34207e+03_rb,0.46977e+03_rb,0.30556e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,28, 3) = (/ &\n        & 0.23824e+03_rb,0.34202e+03_rb,0.46970e+03_rb,0.30552e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,28, 3) = (/ &\n        & 0.23819e+03_rb,0.34198e+03_rb,0.46964e+03_rb,0.30548e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,29, 3) = (/ &\n        & 0.23821e+03_rb,0.34200e+03_rb,0.46966e+03_rb,0.30550e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,29, 3) = (/ &\n        & 0.23815e+03_rb,0.34196e+03_rb,0.46959e+03_rb,0.30546e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,29, 3) = (/ &\n        & 0.23810e+03_rb,0.34192e+03_rb,0.46953e+03_rb,0.30542e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,29, 3) = (/ &\n        & 0.23806e+03_rb,0.34189e+03_rb,0.46948e+03_rb,0.30539e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,29, 3) = (/ &\n        & 0.23802e+03_rb,0.34185e+03_rb,0.46942e+03_rb,0.30536e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,30, 3) = (/ &\n        & 0.23803e+03_rb,0.34187e+03_rb,0.46944e+03_rb,0.30537e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,30, 3) = (/ &\n        & 0.23799e+03_rb,0.34184e+03_rb,0.46939e+03_rb,0.30533e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,30, 3) = (/ &\n        & 0.23795e+03_rb,0.34180e+03_rb,0.46934e+03_rb,0.30531e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,30, 3) = (/ &\n        & 0.23791e+03_rb,0.34178e+03_rb,0.46929e+03_rb,0.30528e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,30, 3) = (/ &\n        & 0.23788e+03_rb,0.34175e+03_rb,0.46925e+03_rb,0.30526e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,31, 3) = (/ &\n        & 0.23789e+03_rb,0.34176e+03_rb,0.46926e+03_rb,0.30526e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,31, 3) = (/ &\n        & 0.23785e+03_rb,0.34173e+03_rb,0.46922e+03_rb,0.30524e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,31, 3) = (/ &\n        & 0.23782e+03_rb,0.34171e+03_rb,0.46918e+03_rb,0.30521e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,31, 3) = (/ &\n        & 0.23779e+03_rb,0.34169e+03_rb,0.46914e+03_rb,0.30519e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,31, 3) = (/ &\n        & 0.23777e+03_rb,0.34167e+03_rb,0.46911e+03_rb,0.30518e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,32, 3) = (/ &\n        & 0.23777e+03_rb,0.34168e+03_rb,0.46912e+03_rb,0.30518e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,32, 3) = (/ &\n        & 0.23774e+03_rb,0.34166e+03_rb,0.46908e+03_rb,0.30516e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,32, 3) = (/ &\n        & 0.23772e+03_rb,0.34163e+03_rb,0.46905e+03_rb,0.30514e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,32, 3) = (/ &\n        & 0.23770e+03_rb,0.34162e+03_rb,0.46902e+03_rb,0.30512e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,32, 3) = (/ &\n        & 0.23767e+03_rb,0.34160e+03_rb,0.46900e+03_rb,0.30511e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,33, 3) = (/ &\n        & 0.23768e+03_rb,0.34161e+03_rb,0.46900e+03_rb,0.30511e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,33, 3) = (/ &\n        & 0.23766e+03_rb,0.34159e+03_rb,0.46897e+03_rb,0.30510e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,33, 3) = (/ &\n        & 0.23764e+03_rb,0.34157e+03_rb,0.46895e+03_rb,0.30508e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,33, 3) = (/ &\n        & 0.23762e+03_rb,0.34156e+03_rb,0.46893e+03_rb,0.30507e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,33, 3) = (/ &\n        & 0.23760e+03_rb,0.34154e+03_rb,0.46891e+03_rb,0.30506e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,34, 3) = (/ &\n        & 0.23760e+03_rb,0.34155e+03_rb,0.46891e+03_rb,0.30506e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,34, 3) = (/ &\n        & 0.23759e+03_rb,0.34154e+03_rb,0.46889e+03_rb,0.30505e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,34, 3) = (/ &\n        & 0.23757e+03_rb,0.34152e+03_rb,0.46887e+03_rb,0.30503e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,34, 3) = (/ &\n        & 0.23756e+03_rb,0.34151e+03_rb,0.46885e+03_rb,0.30502e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,34, 3) = (/ &\n        & 0.23754e+03_rb,0.34150e+03_rb,0.46883e+03_rb,0.30501e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,35, 3) = (/ &\n        & 0.23755e+03_rb,0.34151e+03_rb,0.46884e+03_rb,0.30502e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,35, 3) = (/ &\n        & 0.23753e+03_rb,0.34150e+03_rb,0.46882e+03_rb,0.30501e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,35, 3) = (/ &\n        & 0.23752e+03_rb,0.34148e+03_rb,0.46880e+03_rb,0.30500e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,35, 3) = (/ &\n        & 0.23751e+03_rb,0.34147e+03_rb,0.46879e+03_rb,0.30499e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,35, 3) = (/ &\n        & 0.23750e+03_rb,0.34146e+03_rb,0.46878e+03_rb,0.30498e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,36, 3) = (/ &\n        & 0.23750e+03_rb,0.34147e+03_rb,0.46878e+03_rb,0.30498e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,36, 3) = (/ &\n        & 0.23749e+03_rb,0.34146e+03_rb,0.46877e+03_rb,0.30497e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,36, 3) = (/ &\n        & 0.23748e+03_rb,0.34145e+03_rb,0.46875e+03_rb,0.30497e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,36, 3) = (/ &\n        & 0.23747e+03_rb,0.34144e+03_rb,0.46874e+03_rb,0.30496e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,36, 3) = (/ &\n        & 0.23746e+03_rb,0.34144e+03_rb,0.46873e+03_rb,0.30495e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,37, 3) = (/ &\n        & 0.23746e+03_rb,0.34145e+03_rb,0.46874e+03_rb,0.30496e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,37, 3) = (/ &\n        & 0.23745e+03_rb,0.34144e+03_rb,0.46872e+03_rb,0.30495e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,37, 3) = (/ &\n        & 0.23744e+03_rb,0.34143e+03_rb,0.46871e+03_rb,0.30494e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,37, 3) = (/ &\n        & 0.23744e+03_rb,0.34142e+03_rb,0.46870e+03_rb,0.30494e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,37, 3) = (/ &\n        & 0.23743e+03_rb,0.34141e+03_rb,0.46869e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,38, 3) = (/ &\n        & 0.23743e+03_rb,0.34143e+03_rb,0.46870e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,38, 3) = (/ &\n        & 0.23742e+03_rb,0.34142e+03_rb,0.46869e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,38, 3) = (/ &\n        & 0.23742e+03_rb,0.34141e+03_rb,0.46868e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,38, 3) = (/ &\n        & 0.23741e+03_rb,0.34140e+03_rb,0.46867e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,38, 3) = (/ &\n        & 0.23740e+03_rb,0.34140e+03_rb,0.46866e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,39, 3) = (/ &\n        & 0.23741e+03_rb,0.34141e+03_rb,0.46867e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,39, 3) = (/ &\n        & 0.23740e+03_rb,0.34140e+03_rb,0.46866e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,39, 3) = (/ &\n        & 0.23739e+03_rb,0.34139e+03_rb,0.46865e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,39, 3) = (/ &\n        & 0.23739e+03_rb,0.34139e+03_rb,0.46865e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,39, 3) = (/ &\n        & 0.23738e+03_rb,0.34138e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,40, 3) = (/ &\n        & 0.23739e+03_rb,0.34139e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,40, 3) = (/ &\n        & 0.23738e+03_rb,0.34139e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,40, 3) = (/ &\n        & 0.23738e+03_rb,0.34138e+03_rb,0.46863e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,40, 3) = (/ &\n        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,40, 3) = (/ &\n        & 0.23737e+03_rb,0.34137e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,41, 3) = (/ &\n        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,41, 3) = (/ &\n        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,41, 3) = (/ &\n        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,41, 3) = (/ &\n        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,41, 3) = (/ &\n        & 0.23736e+03_rb,0.34136e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,42, 3) = (/ &\n        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,42, 3) = (/ &\n        & 0.23735e+03_rb,0.34137e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,42, 3) = (/ &\n        & 0.23735e+03_rb,0.34136e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,42, 3) = (/ &\n        & 0.23735e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,42, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,43, 3) = (/ &\n        & 0.23735e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34136e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,44, 3) = (/ &\n        & 0.23734e+03_rb,0.34136e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,44, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,44, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,44, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,44, 3) = (/ &\n        & 0.23733e+03_rb,0.34134e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,45, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,45, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,45, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,45, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,45, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34135e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,47, 3) = (/ &\n        & 0.23732e+03_rb,0.34135e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,47, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,47, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,47, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,47, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34135e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34135e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,50, 3) = (/ &\n        & 0.23731e+03_rb,0.34136e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,50, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,50, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,50, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,50, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,51, 3) = (/ &\n        & 0.23731e+03_rb,0.34136e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34132e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46851e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46849e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34138e+03_rb,0.46847e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34139e+03_rb,0.46844e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46850e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34140e+03_rb,0.46840e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46849e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,57, 3) = (/ &\n        & 0.23729e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,58, 3) = (/ &\n        & 0.23730e+03_rb,0.34140e+03_rb,0.46837e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34138e+03_rb,0.46847e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34136e+03_rb,0.46851e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34141e+03_rb,0.46835e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34138e+03_rb,0.46846e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34136e+03_rb,0.46851e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,13, 4) = (/ &\n        & 0.51214e+03_rb,0.47089e+03_rb,0.53698e+03_rb,0.40623e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,13, 4) = (/ &\n        & 0.50819e+03_rb,0.46793e+03_rb,0.53525e+03_rb,0.40532e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,13, 4) = (/ &\n        & 0.50478e+03_rb,0.46537e+03_rb,0.53379e+03_rb,0.40453e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,13, 4) = (/ &\n        & 0.50182e+03_rb,0.46315e+03_rb,0.53251e+03_rb,0.40385e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,13, 4) = (/ &\n        & 0.49922e+03_rb,0.46120e+03_rb,0.53137e+03_rb,0.40325e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,14, 4) = (/ &\n        & 0.50224e+03_rb,0.46346e+03_rb,0.53224e+03_rb,0.40395e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,14, 4) = (/ &\n        & 0.49905e+03_rb,0.46107e+03_rb,0.53090e+03_rb,0.40321e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,14, 4) = (/ &\n        & 0.49629e+03_rb,0.45901e+03_rb,0.52974e+03_rb,0.40258e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,14, 4) = (/ &\n        & 0.49390e+03_rb,0.45721e+03_rb,0.52871e+03_rb,0.40203e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,14, 4) = (/ &\n        & 0.49179e+03_rb,0.45563e+03_rb,0.52774e+03_rb,0.40154e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,15, 4) = (/ &\n        & 0.49416e+03_rb,0.45741e+03_rb,0.52835e+03_rb,0.40209e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,15, 4) = (/ &\n        & 0.49159e+03_rb,0.45548e+03_rb,0.52725e+03_rb,0.40149e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,15, 4) = (/ &\n        & 0.48937e+03_rb,0.45381e+03_rb,0.52626e+03_rb,0.40098e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,15, 4) = (/ &\n        & 0.48743e+03_rb,0.45236e+03_rb,0.52534e+03_rb,0.40054e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,15, 4) = (/ &\n        & 0.48573e+03_rb,0.45108e+03_rb,0.52448e+03_rb,0.40015e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,16, 4) = (/ &\n        & 0.48759e+03_rb,0.45248e+03_rb,0.52492e+03_rb,0.40057e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,16, 4) = (/ &\n        & 0.48552e+03_rb,0.45092e+03_rb,0.52397e+03_rb,0.40010e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,16, 4) = (/ &\n        & 0.48373e+03_rb,0.44958e+03_rb,0.52310e+03_rb,0.39968e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,16, 4) = (/ &\n        & 0.48216e+03_rb,0.44841e+03_rb,0.52232e+03_rb,0.39932e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,16, 4) = (/ &\n        & 0.48079e+03_rb,0.44738e+03_rb,0.52159e+03_rb,0.39901e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,17, 4) = (/ &\n        & 0.48226e+03_rb,0.44848e+03_rb,0.52188e+03_rb,0.39935e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,17, 4) = (/ &\n        & 0.48059e+03_rb,0.44723e+03_rb,0.52110e+03_rb,0.39896e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,17, 4) = (/ &\n        & 0.47915e+03_rb,0.44615e+03_rb,0.52038e+03_rb,0.39863e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,17, 4) = (/ &\n        & 0.47788e+03_rb,0.44520e+03_rb,0.51974e+03_rb,0.39834e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,17, 4) = (/ &\n        & 0.47677e+03_rb,0.44437e+03_rb,0.51913e+03_rb,0.39808e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,18, 4) = (/ &\n        & 0.47794e+03_rb,0.44524e+03_rb,0.51928e+03_rb,0.39835e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,18, 4) = (/ &\n        & 0.47659e+03_rb,0.44423e+03_rb,0.51865e+03_rb,0.39804e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,18, 4) = (/ &\n        & 0.47542e+03_rb,0.44336e+03_rb,0.51808e+03_rb,0.39777e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,18, 4) = (/ &\n        & 0.47441e+03_rb,0.44259e+03_rb,0.51755e+03_rb,0.39754e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,18, 4) = (/ &\n        & 0.47351e+03_rb,0.44192e+03_rb,0.51705e+03_rb,0.39733e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,19, 4) = (/ &\n        & 0.47443e+03_rb,0.44261e+03_rb,0.51710e+03_rb,0.39754e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,19, 4) = (/ &\n        & 0.47334e+03_rb,0.44179e+03_rb,0.51660e+03_rb,0.39729e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,19, 4) = (/ &\n        & 0.47240e+03_rb,0.44109e+03_rb,0.51615e+03_rb,0.39708e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,19, 4) = (/ &\n        & 0.47158e+03_rb,0.44047e+03_rb,0.51573e+03_rb,0.39689e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,19, 4) = (/ &\n        & 0.47085e+03_rb,0.43993e+03_rb,0.51533e+03_rb,0.39672e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,20, 4) = (/ &\n        & 0.47156e+03_rb,0.44046e+03_rb,0.51527e+03_rb,0.39688e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,20, 4) = (/ &\n        & 0.47069e+03_rb,0.43980e+03_rb,0.51490e+03_rb,0.39668e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,20, 4) = (/ &\n        & 0.46993e+03_rb,0.43924e+03_rb,0.51455e+03_rb,0.39651e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,20, 4) = (/ &\n        & 0.46927e+03_rb,0.43874e+03_rb,0.51422e+03_rb,0.39635e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,20, 4) = (/ &\n        & 0.46868e+03_rb,0.43830e+03_rb,0.51389e+03_rb,0.39622e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,21, 4) = (/ &\n        & 0.46924e+03_rb,0.43872e+03_rb,0.51377e+03_rb,0.39635e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,21, 4) = (/ &\n        & 0.46853e+03_rb,0.43819e+03_rb,0.51350e+03_rb,0.39619e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,21, 4) = (/ &\n        & 0.46792e+03_rb,0.43773e+03_rb,0.51323e+03_rb,0.39604e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,21, 4) = (/ &\n        & 0.46739e+03_rb,0.43733e+03_rb,0.51296e+03_rb,0.39592e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,21, 4) = (/ &\n        & 0.46692e+03_rb,0.43697e+03_rb,0.51263e+03_rb,0.39581e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,22, 4) = (/ &\n        & 0.46731e+03_rb,0.43727e+03_rb,0.51254e+03_rb,0.39590e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,22, 4) = (/ &\n        & 0.46675e+03_rb,0.43685e+03_rb,0.51231e+03_rb,0.39577e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,22, 4) = (/ &\n        & 0.46626e+03_rb,0.43648e+03_rb,0.51212e+03_rb,0.39566e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,22, 4) = (/ &\n        & 0.46584e+03_rb,0.43616e+03_rb,0.51190e+03_rb,0.39556e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,22, 4) = (/ &\n        & 0.46546e+03_rb,0.43588e+03_rb,0.51168e+03_rb,0.39548e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,23, 4) = (/ &\n        & 0.46575e+03_rb,0.43610e+03_rb,0.51153e+03_rb,0.39554e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,23, 4) = (/ &\n        & 0.46531e+03_rb,0.43577e+03_rb,0.51138e+03_rb,0.39544e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,23, 4) = (/ &\n        & 0.46492e+03_rb,0.43548e+03_rb,0.51122e+03_rb,0.39535e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,23, 4) = (/ &\n        & 0.46458e+03_rb,0.43522e+03_rb,0.51104e+03_rb,0.39527e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,23, 4) = (/ &\n        & 0.46427e+03_rb,0.43499e+03_rb,0.51086e+03_rb,0.39520e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,24, 4) = (/ &\n        & 0.46450e+03_rb,0.43516e+03_rb,0.51071e+03_rb,0.39525e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,24, 4) = (/ &\n        & 0.46414e+03_rb,0.43489e+03_rb,0.51060e+03_rb,0.39517e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,24, 4) = (/ &\n        & 0.46383e+03_rb,0.43466e+03_rb,0.51047e+03_rb,0.39510e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,24, 4) = (/ &\n        & 0.46356e+03_rb,0.43445e+03_rb,0.51033e+03_rb,0.39504e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,24, 4) = (/ &\n        & 0.46331e+03_rb,0.43427e+03_rb,0.51019e+03_rb,0.39498e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,25, 4) = (/ &\n        & 0.46348e+03_rb,0.43439e+03_rb,0.51003e+03_rb,0.39502e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,25, 4) = (/ &\n        & 0.46319e+03_rb,0.43418e+03_rb,0.50997e+03_rb,0.39496e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,25, 4) = (/ &\n        & 0.46295e+03_rb,0.43400e+03_rb,0.50987e+03_rb,0.39490e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,25, 4) = (/ &\n        & 0.46273e+03_rb,0.43383e+03_rb,0.50976e+03_rb,0.39485e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,25, 4) = (/ &\n        & 0.46254e+03_rb,0.43369e+03_rb,0.50965e+03_rb,0.39480e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,26, 4) = (/ &\n        & 0.46265e+03_rb,0.43378e+03_rb,0.50951e+03_rb,0.39483e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,26, 4) = (/ &\n        & 0.46243e+03_rb,0.43361e+03_rb,0.50946e+03_rb,0.39478e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,26, 4) = (/ &\n        & 0.46223e+03_rb,0.43346e+03_rb,0.50938e+03_rb,0.39473e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,26, 4) = (/ &\n        & 0.46206e+03_rb,0.43333e+03_rb,0.50930e+03_rb,0.39469e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,26, 4) = (/ &\n        & 0.46190e+03_rb,0.43321e+03_rb,0.50921e+03_rb,0.39466e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,27, 4) = (/ &\n        & 0.46199e+03_rb,0.43328e+03_rb,0.50908e+03_rb,0.39468e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,27, 4) = (/ &\n        & 0.46181e+03_rb,0.43314e+03_rb,0.50904e+03_rb,0.39464e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,27, 4) = (/ &\n        & 0.46165e+03_rb,0.43303e+03_rb,0.50899e+03_rb,0.39460e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,27, 4) = (/ &\n        & 0.46152e+03_rb,0.43292e+03_rb,0.50892e+03_rb,0.39457e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,27, 4) = (/ &\n        & 0.46139e+03_rb,0.43283e+03_rb,0.50885e+03_rb,0.39454e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,28, 4) = (/ &\n        & 0.46145e+03_rb,0.43288e+03_rb,0.50873e+03_rb,0.39455e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,28, 4) = (/ &\n        & 0.46131e+03_rb,0.43277e+03_rb,0.50871e+03_rb,0.39452e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,28, 4) = (/ &\n        & 0.46119e+03_rb,0.43268e+03_rb,0.50867e+03_rb,0.39449e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,28, 4) = (/ &\n        & 0.46108e+03_rb,0.43259e+03_rb,0.50862e+03_rb,0.39447e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,28, 4) = (/ &\n        & 0.46098e+03_rb,0.43252e+03_rb,0.50856e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,29, 4) = (/ &\n        & 0.46102e+03_rb,0.43255e+03_rb,0.50845e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,29, 4) = (/ &\n        & 0.46091e+03_rb,0.43247e+03_rb,0.50844e+03_rb,0.39443e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,29, 4) = (/ &\n        & 0.46081e+03_rb,0.43239e+03_rb,0.50842e+03_rb,0.39441e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,29, 4) = (/ &\n        & 0.46072e+03_rb,0.43233e+03_rb,0.50837e+03_rb,0.39439e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,29, 4) = (/ &\n        & 0.46064e+03_rb,0.43227e+03_rb,0.50832e+03_rb,0.39437e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,30, 4) = (/ &\n        & 0.46067e+03_rb,0.43229e+03_rb,0.50823e+03_rb,0.39437e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,30, 4) = (/ &\n        & 0.46058e+03_rb,0.43223e+03_rb,0.50823e+03_rb,0.39435e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,30, 4) = (/ &\n        & 0.46051e+03_rb,0.43217e+03_rb,0.50821e+03_rb,0.39434e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,30, 4) = (/ &\n        & 0.46044e+03_rb,0.43211e+03_rb,0.50818e+03_rb,0.39432e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,30, 4) = (/ &\n        & 0.46037e+03_rb,0.43207e+03_rb,0.50813e+03_rb,0.39431e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,31, 4) = (/ &\n        & 0.46039e+03_rb,0.43208e+03_rb,0.50805e+03_rb,0.39431e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,31, 4) = (/ &\n        & 0.46032e+03_rb,0.43203e+03_rb,0.50805e+03_rb,0.39429e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,31, 4) = (/ &\n        & 0.46026e+03_rb,0.43198e+03_rb,0.50804e+03_rb,0.39428e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,31, 4) = (/ &\n        & 0.46021e+03_rb,0.43194e+03_rb,0.50801e+03_rb,0.39427e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,31, 4) = (/ &\n        & 0.46016e+03_rb,0.43190e+03_rb,0.50797e+03_rb,0.39426e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,32, 4) = (/ &\n        & 0.46017e+03_rb,0.43191e+03_rb,0.50790e+03_rb,0.39426e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,32, 4) = (/ &\n        & 0.46011e+03_rb,0.43187e+03_rb,0.50792e+03_rb,0.39425e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,32, 4) = (/ &\n        & 0.46006e+03_rb,0.43183e+03_rb,0.50791e+03_rb,0.39423e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,32, 4) = (/ &\n        & 0.46002e+03_rb,0.43180e+03_rb,0.50788e+03_rb,0.39422e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,32, 4) = (/ &\n        & 0.45998e+03_rb,0.43177e+03_rb,0.50784e+03_rb,0.39421e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,33, 4) = (/ &\n        & 0.45999e+03_rb,0.43178e+03_rb,0.50779e+03_rb,0.39422e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,33, 4) = (/ &\n        & 0.45994e+03_rb,0.43174e+03_rb,0.50781e+03_rb,0.39421e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,33, 4) = (/ &\n        & 0.45990e+03_rb,0.43171e+03_rb,0.50780e+03_rb,0.39420e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,33, 4) = (/ &\n        & 0.45987e+03_rb,0.43169e+03_rb,0.50777e+03_rb,0.39419e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,33, 4) = (/ &\n        & 0.45984e+03_rb,0.43166e+03_rb,0.50773e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,34, 4) = (/ &\n        & 0.45984e+03_rb,0.43167e+03_rb,0.50770e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,34, 4) = (/ &\n        & 0.45981e+03_rb,0.43164e+03_rb,0.50772e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,34, 4) = (/ &\n        & 0.45978e+03_rb,0.43162e+03_rb,0.50771e+03_rb,0.39417e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,34, 4) = (/ &\n        & 0.45975e+03_rb,0.43160e+03_rb,0.50768e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,34, 4) = (/ &\n        & 0.45972e+03_rb,0.43158e+03_rb,0.50764e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,35, 4) = (/ &\n        & 0.45973e+03_rb,0.43158e+03_rb,0.50763e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,35, 4) = (/ &\n        & 0.45970e+03_rb,0.43156e+03_rb,0.50764e+03_rb,0.39415e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,35, 4) = (/ &\n        & 0.45968e+03_rb,0.43154e+03_rb,0.50764e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,35, 4) = (/ &\n        & 0.45965e+03_rb,0.43153e+03_rb,0.50761e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,35, 4) = (/ &\n        & 0.45963e+03_rb,0.43151e+03_rb,0.50757e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,36, 4) = (/ &\n        & 0.45964e+03_rb,0.43152e+03_rb,0.50757e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,36, 4) = (/ &\n        & 0.45962e+03_rb,0.43150e+03_rb,0.50758e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,36, 4) = (/ &\n        & 0.45960e+03_rb,0.43148e+03_rb,0.50758e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,36, 4) = (/ &\n        & 0.45958e+03_rb,0.43147e+03_rb,0.50756e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,36, 4) = (/ &\n        & 0.45956e+03_rb,0.43146e+03_rb,0.50752e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,37, 4) = (/ &\n        & 0.45957e+03_rb,0.43146e+03_rb,0.50751e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,37, 4) = (/ &\n        & 0.45955e+03_rb,0.43145e+03_rb,0.50753e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,37, 4) = (/ &\n        & 0.45953e+03_rb,0.43144e+03_rb,0.50754e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,37, 4) = (/ &\n        & 0.45952e+03_rb,0.43142e+03_rb,0.50752e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,37, 4) = (/ &\n        & 0.45950e+03_rb,0.43141e+03_rb,0.50748e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,38, 4) = (/ &\n        & 0.45951e+03_rb,0.43142e+03_rb,0.50746e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,38, 4) = (/ &\n        & 0.45950e+03_rb,0.43141e+03_rb,0.50749e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,38, 4) = (/ &\n        & 0.45948e+03_rb,0.43140e+03_rb,0.50750e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,38, 4) = (/ &\n        & 0.45947e+03_rb,0.43139e+03_rb,0.50749e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,38, 4) = (/ &\n        & 0.45946e+03_rb,0.43138e+03_rb,0.50745e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,39, 4) = (/ &\n        & 0.45946e+03_rb,0.43138e+03_rb,0.50742e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,39, 4) = (/ &\n        & 0.45945e+03_rb,0.43137e+03_rb,0.50746e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,39, 4) = (/ &\n        & 0.45944e+03_rb,0.43137e+03_rb,0.50747e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,39, 4) = (/ &\n        & 0.45943e+03_rb,0.43136e+03_rb,0.50746e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,39, 4) = (/ &\n        & 0.45942e+03_rb,0.43135e+03_rb,0.50743e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,40, 4) = (/ &\n        & 0.45943e+03_rb,0.43136e+03_rb,0.50738e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,40, 4) = (/ &\n        & 0.45941e+03_rb,0.43135e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,40, 4) = (/ &\n        & 0.45940e+03_rb,0.43134e+03_rb,0.50744e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,40, 4) = (/ &\n        & 0.45940e+03_rb,0.43133e+03_rb,0.50744e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,40, 4) = (/ &\n        & 0.45939e+03_rb,0.43133e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,41, 4) = (/ &\n        & 0.45939e+03_rb,0.43133e+03_rb,0.50734e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,41, 4) = (/ &\n        & 0.45938e+03_rb,0.43133e+03_rb,0.50739e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,41, 4) = (/ &\n        & 0.45938e+03_rb,0.43132e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,41, 4) = (/ &\n        & 0.45937e+03_rb,0.43131e+03_rb,0.50742e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,41, 4) = (/ &\n        & 0.45936e+03_rb,0.43131e+03_rb,0.50741e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,42, 4) = (/ &\n        & 0.45937e+03_rb,0.43131e+03_rb,0.50731e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,42, 4) = (/ &\n        & 0.45936e+03_rb,0.43131e+03_rb,0.50736e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,42, 4) = (/ &\n        & 0.45935e+03_rb,0.43130e+03_rb,0.50739e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,42, 4) = (/ &\n        & 0.45935e+03_rb,0.43130e+03_rb,0.50741e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,42, 4) = (/ &\n        & 0.45934e+03_rb,0.43129e+03_rb,0.50740e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,43, 4) = (/ &\n        & 0.45935e+03_rb,0.43130e+03_rb,0.50727e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,43, 4) = (/ &\n        & 0.45934e+03_rb,0.43129e+03_rb,0.50733e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,43, 4) = (/ &\n        & 0.45933e+03_rb,0.43129e+03_rb,0.50737e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,43, 4) = (/ &\n        & 0.45933e+03_rb,0.43128e+03_rb,0.50739e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,43, 4) = (/ &\n        & 0.45932e+03_rb,0.43128e+03_rb,0.50739e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,44, 4) = (/ &\n        & 0.45933e+03_rb,0.43128e+03_rb,0.50723e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,44, 4) = (/ &\n        & 0.45932e+03_rb,0.43128e+03_rb,0.50730e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,44, 4) = (/ &\n        & 0.45932e+03_rb,0.43128e+03_rb,0.50735e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,44, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50737e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,44, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50738e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,45, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50718e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,45, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50727e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,45, 4) = (/ &\n        & 0.45930e+03_rb,0.43127e+03_rb,0.50732e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,45, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50736e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,45, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50737e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,46, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50714e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,46, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50723e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,46, 4) = (/ &\n        & 0.45929e+03_rb,0.43126e+03_rb,0.50730e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,46, 4) = (/ &\n        & 0.45929e+03_rb,0.43125e+03_rb,0.50734e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,46, 4) = (/ &\n        & 0.45929e+03_rb,0.43125e+03_rb,0.50736e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,47, 4) = (/ &\n        & 0.45929e+03_rb,0.43126e+03_rb,0.50708e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,47, 4) = (/ &\n        & 0.45929e+03_rb,0.43125e+03_rb,0.50719e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,47, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50727e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,47, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50732e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,47, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50735e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,48, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,48, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,48, 4) = (/ &\n        & 0.45928e+03_rb,0.43124e+03_rb,0.50723e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,48, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50729e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,48, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50733e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,49, 4) = (/ &\n        & 0.45928e+03_rb,0.43124e+03_rb,0.50694e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50709e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50720e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50727e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50732e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,50, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50686e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,50, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50704e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,50, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50716e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,50, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50724e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,50, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50730e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43124e+03_rb,0.50679e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50697e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50711e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50721e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50728e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50671e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50691e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50707e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50718e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,52, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50725e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,53, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50663e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,53, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50684e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,53, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,53, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,53, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50722e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50655e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50677e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50696e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50710e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50720e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50647e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50670e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50690e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50706e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50717e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50640e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50663e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50683e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50632e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50656e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50677e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50696e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,57, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50710e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,58, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50624e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,58, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50648e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,58, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50671e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,58, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50690e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,58, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50706e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50622e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50645e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50668e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50688e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50704e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,13, 5) = (/ &\n        & 0.78037e+03_rb,0.62743e+03_rb,0.56495e+03_rb,0.56633e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,13, 5) = (/ &\n        & 0.77434e+03_rb,0.62291e+03_rb,0.56343e+03_rb,0.56584e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,13, 5) = (/ &\n        & 0.76915e+03_rb,0.61902e+03_rb,0.56189e+03_rb,0.56542e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,13, 5) = (/ &\n        & 0.76464e+03_rb,0.61563e+03_rb,0.56027e+03_rb,0.56506e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,13, 5) = (/ &\n        & 0.76068e+03_rb,0.61266e+03_rb,0.55865e+03_rb,0.56474e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,14, 5) = (/ &\n        & 0.76527e+03_rb,0.61611e+03_rb,0.56011e+03_rb,0.56511e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,14, 5) = (/ &\n        & 0.76041e+03_rb,0.61246e+03_rb,0.55859e+03_rb,0.56472e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,14, 5) = (/ &\n        & 0.75622e+03_rb,0.60932e+03_rb,0.55696e+03_rb,0.56438e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,14, 5) = (/ &\n        & 0.75257e+03_rb,0.60658e+03_rb,0.55539e+03_rb,0.56408e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,14, 5) = (/ &\n        & 0.74936e+03_rb,0.60417e+03_rb,0.55391e+03_rb,0.56383e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,15, 5) = (/ &\n        & 0.75296e+03_rb,0.60688e+03_rb,0.55521e+03_rb,0.56412e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,15, 5) = (/ &\n        & 0.74904e+03_rb,0.60394e+03_rb,0.55372e+03_rb,0.56380e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,15, 5) = (/ &\n        & 0.74566e+03_rb,0.60140e+03_rb,0.55235e+03_rb,0.56353e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,15, 5) = (/ &\n        & 0.74271e+03_rb,0.59919e+03_rb,0.55103e+03_rb,0.56329e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,15, 5) = (/ &\n        & 0.74012e+03_rb,0.59724e+03_rb,0.54977e+03_rb,0.56308e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,16, 5) = (/ &\n        & 0.74295e+03_rb,0.59937e+03_rb,0.55079e+03_rb,0.56331e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,16, 5) = (/ &\n        & 0.73979e+03_rb,0.59700e+03_rb,0.54953e+03_rb,0.56305e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,16, 5) = (/ &\n        & 0.73707e+03_rb,0.59495e+03_rb,0.54828e+03_rb,0.56283e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,16, 5) = (/ &\n        & 0.73469e+03_rb,0.59317e+03_rb,0.54708e+03_rb,0.56264e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,16, 5) = (/ &\n        & 0.73259e+03_rb,0.59160e+03_rb,0.54600e+03_rb,0.56247e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,17, 5) = (/ &\n        & 0.73483e+03_rb,0.59328e+03_rb,0.54695e+03_rb,0.56265e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,17, 5) = (/ &\n        & 0.73229e+03_rb,0.59137e+03_rb,0.54572e+03_rb,0.56245e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,17, 5) = (/ &\n        & 0.73009e+03_rb,0.58972e+03_rb,0.54462e+03_rb,0.56227e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,17, 5) = (/ &\n        & 0.72817e+03_rb,0.58828e+03_rb,0.54366e+03_rb,0.56212e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,17, 5) = (/ &\n        & 0.72647e+03_rb,0.58701e+03_rb,0.54281e+03_rb,0.56198e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,18, 5) = (/ &\n        & 0.72825e+03_rb,0.58834e+03_rb,0.54354e+03_rb,0.56212e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,18, 5) = (/ &\n        & 0.72619e+03_rb,0.58680e+03_rb,0.54253e+03_rb,0.56196e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,18, 5) = (/ &\n        & 0.72442e+03_rb,0.58547e+03_rb,0.54166e+03_rb,0.56181e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,18, 5) = (/ &\n        & 0.72286e+03_rb,0.58430e+03_rb,0.54091e+03_rb,0.56169e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,18, 5) = (/ &\n        & 0.72150e+03_rb,0.58328e+03_rb,0.54024e+03_rb,0.56158e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,19, 5) = (/ &\n        & 0.72290e+03_rb,0.58433e+03_rb,0.54075e+03_rb,0.56169e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,19, 5) = (/ &\n        & 0.72124e+03_rb,0.58309e+03_rb,0.53996e+03_rb,0.56156e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,19, 5) = (/ &\n        & 0.71981e+03_rb,0.58201e+03_rb,0.53928e+03_rb,0.56144e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,19, 5) = (/ &\n        & 0.71856e+03_rb,0.58107e+03_rb,0.53868e+03_rb,0.56134e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,19, 5) = (/ &\n        & 0.71745e+03_rb,0.58024e+03_rb,0.53816e+03_rb,0.56125e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,20, 5) = (/ &\n        & 0.71853e+03_rb,0.58105e+03_rb,0.53849e+03_rb,0.56134e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,20, 5) = (/ &\n        & 0.71720e+03_rb,0.58006e+03_rb,0.53788e+03_rb,0.56123e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,20, 5) = (/ &\n        & 0.71605e+03_rb,0.57919e+03_rb,0.53734e+03_rb,0.56114e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,20, 5) = (/ &\n        & 0.71504e+03_rb,0.57843e+03_rb,0.53687e+03_rb,0.56106e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,20, 5) = (/ &\n        & 0.71414e+03_rb,0.57776e+03_rb,0.53643e+03_rb,0.56098e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,21, 5) = (/ &\n        & 0.71499e+03_rb,0.57840e+03_rb,0.53667e+03_rb,0.56105e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,21, 5) = (/ &\n        & 0.71392e+03_rb,0.57759e+03_rb,0.53620e+03_rb,0.56097e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,21, 5) = (/ &\n        & 0.71299e+03_rb,0.57690e+03_rb,0.53578e+03_rb,0.56089e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,21, 5) = (/ &\n        & 0.71217e+03_rb,0.57628e+03_rb,0.53541e+03_rb,0.56083e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,21, 5) = (/ &\n        & 0.71145e+03_rb,0.57574e+03_rb,0.53506e+03_rb,0.56077e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,22, 5) = (/ &\n        & 0.71206e+03_rb,0.57620e+03_rb,0.53519e+03_rb,0.56082e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,22, 5) = (/ &\n        & 0.71120e+03_rb,0.57555e+03_rb,0.53482e+03_rb,0.56075e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,22, 5) = (/ &\n        & 0.71046e+03_rb,0.57500e+03_rb,0.53450e+03_rb,0.56069e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,22, 5) = (/ &\n        & 0.70981e+03_rb,0.57451e+03_rb,0.53420e+03_rb,0.56064e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,22, 5) = (/ &\n        & 0.70923e+03_rb,0.57408e+03_rb,0.53390e+03_rb,0.56059e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,23, 5) = (/ &\n        & 0.70968e+03_rb,0.57442e+03_rb,0.53396e+03_rb,0.56063e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,23, 5) = (/ &\n        & 0.70900e+03_rb,0.57391e+03_rb,0.53367e+03_rb,0.56057e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,23, 5) = (/ &\n        & 0.70841e+03_rb,0.57346e+03_rb,0.53341e+03_rb,0.56052e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,23, 5) = (/ &\n        & 0.70789e+03_rb,0.57307e+03_rb,0.53316e+03_rb,0.56048e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,23, 5) = (/ &\n        & 0.70743e+03_rb,0.57272e+03_rb,0.53290e+03_rb,0.56044e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,24, 5) = (/ &\n        & 0.70776e+03_rb,0.57298e+03_rb,0.53293e+03_rb,0.56047e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,24, 5) = (/ &\n        & 0.70722e+03_rb,0.57257e+03_rb,0.53269e+03_rb,0.56043e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,24, 5) = (/ &\n        & 0.70675e+03_rb,0.57222e+03_rb,0.53248e+03_rb,0.56039e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,24, 5) = (/ &\n        & 0.70633e+03_rb,0.57190e+03_rb,0.53228e+03_rb,0.56036e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,24, 5) = (/ &\n        & 0.70596e+03_rb,0.57163e+03_rb,0.53207e+03_rb,0.56033e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,25, 5) = (/ &\n        & 0.70621e+03_rb,0.57181e+03_rb,0.53206e+03_rb,0.56035e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,25, 5) = (/ &\n        & 0.70578e+03_rb,0.57149e+03_rb,0.53188e+03_rb,0.56031e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,25, 5) = (/ &\n        & 0.70541e+03_rb,0.57121e+03_rb,0.53172e+03_rb,0.56028e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,25, 5) = (/ &\n        & 0.70507e+03_rb,0.57096e+03_rb,0.53156e+03_rb,0.56025e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,25, 5) = (/ &\n        & 0.70478e+03_rb,0.57074e+03_rb,0.53138e+03_rb,0.56023e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,26, 5) = (/ &\n        & 0.70496e+03_rb,0.57087e+03_rb,0.53135e+03_rb,0.56024e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,26, 5) = (/ &\n        & 0.70461e+03_rb,0.57061e+03_rb,0.53122e+03_rb,0.56022e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,26, 5) = (/ &\n        & 0.70432e+03_rb,0.57039e+03_rb,0.53110e+03_rb,0.56019e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,26, 5) = (/ &\n        & 0.70405e+03_rb,0.57019e+03_rb,0.53097e+03_rb,0.56017e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,26, 5) = (/ &\n        & 0.70382e+03_rb,0.57001e+03_rb,0.53082e+03_rb,0.56015e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,27, 5) = (/ &\n        & 0.70394e+03_rb,0.57011e+03_rb,0.53077e+03_rb,0.56016e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,27, 5) = (/ &\n        & 0.70367e+03_rb,0.56991e+03_rb,0.53069e+03_rb,0.56014e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,27, 5) = (/ &\n        & 0.70343e+03_rb,0.56973e+03_rb,0.53060e+03_rb,0.56012e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,27, 5) = (/ &\n        & 0.70322e+03_rb,0.56957e+03_rb,0.53049e+03_rb,0.56010e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,27, 5) = (/ &\n        & 0.70304e+03_rb,0.56943e+03_rb,0.53036e+03_rb,0.56009e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,28, 5) = (/ &\n        & 0.70313e+03_rb,0.56950e+03_rb,0.53032e+03_rb,0.56010e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,28, 5) = (/ &\n        & 0.70291e+03_rb,0.56934e+03_rb,0.53026e+03_rb,0.56008e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,28, 5) = (/ &\n        & 0.70272e+03_rb,0.56920e+03_rb,0.53019e+03_rb,0.56006e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,28, 5) = (/ &\n        & 0.70256e+03_rb,0.56907e+03_rb,0.53010e+03_rb,0.56005e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,28, 5) = (/ &\n        & 0.70241e+03_rb,0.56896e+03_rb,0.52998e+03_rb,0.56004e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,29, 5) = (/ &\n        & 0.70247e+03_rb,0.56901e+03_rb,0.52995e+03_rb,0.56004e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,29, 5) = (/ &\n        & 0.70230e+03_rb,0.56888e+03_rb,0.52991e+03_rb,0.56003e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,29, 5) = (/ &\n        & 0.70215e+03_rb,0.56877e+03_rb,0.52985e+03_rb,0.56002e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,29, 5) = (/ &\n        & 0.70202e+03_rb,0.56867e+03_rb,0.52978e+03_rb,0.56001e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,29, 5) = (/ &\n        & 0.70190e+03_rb,0.56858e+03_rb,0.52967e+03_rb,0.56000e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,30, 5) = (/ &\n        & 0.70194e+03_rb,0.56861e+03_rb,0.52966e+03_rb,0.56000e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,30, 5) = (/ &\n        & 0.70181e+03_rb,0.56851e+03_rb,0.52963e+03_rb,0.55999e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,30, 5) = (/ &\n        & 0.70169e+03_rb,0.56842e+03_rb,0.52958e+03_rb,0.55998e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,30, 5) = (/ &\n        & 0.70158e+03_rb,0.56834e+03_rb,0.52951e+03_rb,0.55997e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,30, 5) = (/ &\n        & 0.70149e+03_rb,0.56827e+03_rb,0.52941e+03_rb,0.55996e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,31, 5) = (/ &\n        & 0.70151e+03_rb,0.56829e+03_rb,0.52942e+03_rb,0.55997e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,31, 5) = (/ &\n        & 0.70141e+03_rb,0.56821e+03_rb,0.52941e+03_rb,0.55996e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,31, 5) = (/ &\n        & 0.70131e+03_rb,0.56814e+03_rb,0.52936e+03_rb,0.55995e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,31, 5) = (/ &\n        & 0.70123e+03_rb,0.56807e+03_rb,0.52930e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,31, 5) = (/ &\n        & 0.70115e+03_rb,0.56802e+03_rb,0.52920e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,32, 5) = (/ &\n        & 0.70117e+03_rb,0.56803e+03_rb,0.52924e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,32, 5) = (/ &\n        & 0.70109e+03_rb,0.56797e+03_rb,0.52922e+03_rb,0.55993e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,32, 5) = (/ &\n        & 0.70101e+03_rb,0.56791e+03_rb,0.52919e+03_rb,0.55993e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,32, 5) = (/ &\n        & 0.70094e+03_rb,0.56786e+03_rb,0.52912e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,32, 5) = (/ &\n        & 0.70088e+03_rb,0.56782e+03_rb,0.52902e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,33, 5) = (/ &\n        & 0.70090e+03_rb,0.56782e+03_rb,0.52908e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,33, 5) = (/ &\n        & 0.70083e+03_rb,0.56777e+03_rb,0.52907e+03_rb,0.55991e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,33, 5) = (/ &\n        & 0.70077e+03_rb,0.56773e+03_rb,0.52904e+03_rb,0.55991e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,33, 5) = (/ &\n        & 0.70072e+03_rb,0.56769e+03_rb,0.52897e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,33, 5) = (/ &\n        & 0.70067e+03_rb,0.56765e+03_rb,0.52887e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,34, 5) = (/ &\n        & 0.70068e+03_rb,0.56766e+03_rb,0.52896e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,34, 5) = (/ &\n        & 0.70062e+03_rb,0.56762e+03_rb,0.52895e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,34, 5) = (/ &\n        & 0.70057e+03_rb,0.56758e+03_rb,0.52892e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,34, 5) = (/ &\n        & 0.70053e+03_rb,0.56755e+03_rb,0.52885e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,34, 5) = (/ &\n        & 0.70049e+03_rb,0.56752e+03_rb,0.52874e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,35, 5) = (/ &\n        & 0.70050e+03_rb,0.56753e+03_rb,0.52886e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,35, 5) = (/ &\n        & 0.70046e+03_rb,0.56750e+03_rb,0.52885e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,35, 5) = (/ &\n        & 0.70042e+03_rb,0.56747e+03_rb,0.52883e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,35, 5) = (/ &\n        & 0.70039e+03_rb,0.56744e+03_rb,0.52876e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,35, 5) = (/ &\n        & 0.70035e+03_rb,0.56742e+03_rb,0.52864e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,36, 5) = (/ &\n        & 0.70037e+03_rb,0.56743e+03_rb,0.52877e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,36, 5) = (/ &\n        & 0.70033e+03_rb,0.56740e+03_rb,0.52878e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,36, 5) = (/ &\n        & 0.70030e+03_rb,0.56738e+03_rb,0.52875e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,36, 5) = (/ &\n        & 0.70027e+03_rb,0.56736e+03_rb,0.52869e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,36, 5) = (/ &\n        & 0.70025e+03_rb,0.56734e+03_rb,0.52857e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,37, 5) = (/ &\n        & 0.70026e+03_rb,0.56735e+03_rb,0.52870e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,37, 5) = (/ &\n        & 0.70023e+03_rb,0.56733e+03_rb,0.52872e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,37, 5) = (/ &\n        & 0.70020e+03_rb,0.56731e+03_rb,0.52870e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,37, 5) = (/ &\n        & 0.70018e+03_rb,0.56729e+03_rb,0.52864e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,37, 5) = (/ &\n        & 0.70016e+03_rb,0.56727e+03_rb,0.52854e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,38, 5) = (/ &\n        & 0.70017e+03_rb,0.56728e+03_rb,0.52864e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,38, 5) = (/ &\n        & 0.70015e+03_rb,0.56726e+03_rb,0.52866e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,38, 5) = (/ &\n        & 0.70012e+03_rb,0.56725e+03_rb,0.52866e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,38, 5) = (/ &\n        & 0.70010e+03_rb,0.56723e+03_rb,0.52860e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,38, 5) = (/ &\n        & 0.70009e+03_rb,0.56722e+03_rb,0.52852e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,39, 5) = (/ &\n        & 0.70010e+03_rb,0.56723e+03_rb,0.52860e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,39, 5) = (/ &\n        & 0.70008e+03_rb,0.56721e+03_rb,0.52862e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,39, 5) = (/ &\n        & 0.70006e+03_rb,0.56720e+03_rb,0.52861e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,39, 5) = (/ &\n        & 0.70004e+03_rb,0.56719e+03_rb,0.52858e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,39, 5) = (/ &\n        & 0.70003e+03_rb,0.56717e+03_rb,0.52850e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,40, 5) = (/ &\n        & 0.70004e+03_rb,0.56718e+03_rb,0.52855e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,40, 5) = (/ &\n        & 0.70002e+03_rb,0.56717e+03_rb,0.52858e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,40, 5) = (/ &\n        & 0.70001e+03_rb,0.56716e+03_rb,0.52859e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,40, 5) = (/ &\n        & 0.69999e+03_rb,0.56715e+03_rb,0.52856e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,40, 5) = (/ &\n        & 0.69998e+03_rb,0.56714e+03_rb,0.52849e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,41, 5) = (/ &\n        & 0.69999e+03_rb,0.56715e+03_rb,0.52850e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,41, 5) = (/ &\n        & 0.69998e+03_rb,0.56714e+03_rb,0.52854e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,41, 5) = (/ &\n        & 0.69996e+03_rb,0.56713e+03_rb,0.52856e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,41, 5) = (/ &\n        & 0.69995e+03_rb,0.56712e+03_rb,0.52854e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,41, 5) = (/ &\n        & 0.69994e+03_rb,0.56711e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,42, 5) = (/ &\n        & 0.69995e+03_rb,0.56712e+03_rb,0.52846e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,42, 5) = (/ &\n        & 0.69994e+03_rb,0.56711e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,42, 5) = (/ &\n        & 0.69993e+03_rb,0.56710e+03_rb,0.52853e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,42, 5) = (/ &\n        & 0.69992e+03_rb,0.56709e+03_rb,0.52853e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,42, 5) = (/ &\n        & 0.69991e+03_rb,0.56709e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,43, 5) = (/ &\n        & 0.69992e+03_rb,0.56709e+03_rb,0.52843e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,43, 5) = (/ &\n        & 0.69991e+03_rb,0.56708e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,43, 5) = (/ &\n        & 0.69990e+03_rb,0.56708e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,43, 5) = (/ &\n        & 0.69989e+03_rb,0.56707e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,43, 5) = (/ &\n        & 0.69988e+03_rb,0.56707e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,44, 5) = (/ &\n        & 0.69989e+03_rb,0.56707e+03_rb,0.52838e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,44, 5) = (/ &\n        & 0.69988e+03_rb,0.56707e+03_rb,0.52844e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,44, 5) = (/ &\n        & 0.69988e+03_rb,0.56706e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,44, 5) = (/ &\n        & 0.69987e+03_rb,0.56705e+03_rb,0.52850e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,44, 5) = (/ &\n        & 0.69986e+03_rb,0.56705e+03_rb,0.52849e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,45, 5) = (/ &\n        & 0.69987e+03_rb,0.56706e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,45, 5) = (/ &\n        & 0.69986e+03_rb,0.56705e+03_rb,0.52841e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,45, 5) = (/ &\n        & 0.69986e+03_rb,0.56704e+03_rb,0.52846e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,45, 5) = (/ &\n        & 0.69985e+03_rb,0.56704e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,45, 5) = (/ &\n        & 0.69984e+03_rb,0.56704e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,46, 5) = (/ &\n        & 0.69985e+03_rb,0.56704e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,46, 5) = (/ &\n        & 0.69984e+03_rb,0.56704e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,46, 5) = (/ &\n        & 0.69984e+03_rb,0.56703e+03_rb,0.52843e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,46, 5) = (/ &\n        & 0.69983e+03_rb,0.56703e+03_rb,0.52847e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,46, 5) = (/ &\n        & 0.69983e+03_rb,0.56703e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,47, 5) = (/ &\n        & 0.69984e+03_rb,0.56703e+03_rb,0.52826e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,47, 5) = (/ &\n        & 0.69983e+03_rb,0.56703e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,47, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52840e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,47, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52845e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,47, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52847e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,48, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52821e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,48, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,48, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,48, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52842e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,48, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52845e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,49, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52817e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,49, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,49, 5) = (/ &\n        & 0.69980e+03_rb,0.56701e+03_rb,0.52833e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,49, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52840e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,49, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52844e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,50, 5) = (/ &\n        & 0.69980e+03_rb,0.56701e+03_rb,0.52812e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,50, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52821e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,50, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,50, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,50, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52842e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52807e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52818e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52827e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,51, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52841e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,52, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52802e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,52, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52814e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,52, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52823e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,52, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52831e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,52, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52838e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52798e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52809e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52820e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52828e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,53, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52836e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,54, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52794e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,54, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52804e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,54, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52816e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,54, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,54, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52833e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52790e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52801e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52812e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52822e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52786e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52797e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52808e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52819e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52827e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,57, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52781e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,57, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52794e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,57, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52805e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,57, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52815e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,57, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,58, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52777e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52790e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52801e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52812e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52822e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52775e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52788e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52801e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52811e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52821e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,13, 6) = (/ &\n        & 0.99182e+03_rb,0.76479e+03_rb,0.58123e+03_rb,0.73928e+03_rb,0.94808e+03_rb /)\n      kbo(:, 2,13, 6) = (/ &\n        & 0.98417e+03_rb,0.75904e+03_rb,0.57888e+03_rb,0.73991e+03_rb,0.94920e+03_rb /)\n      kbo(:, 3,13, 6) = (/ &\n        & 0.97757e+03_rb,0.75410e+03_rb,0.57650e+03_rb,0.74029e+03_rb,0.94995e+03_rb /)\n      kbo(:, 4,13, 6) = (/ &\n        & 0.97184e+03_rb,0.74980e+03_rb,0.57428e+03_rb,0.74046e+03_rb,0.95033e+03_rb /)\n      kbo(:, 5,13, 6) = (/ &\n        & 0.96680e+03_rb,0.74602e+03_rb,0.57217e+03_rb,0.74043e+03_rb,0.95033e+03_rb /)\n      kbo(:, 1,14, 6) = (/ &\n        & 0.97264e+03_rb,0.75040e+03_rb,0.57482e+03_rb,0.73884e+03_rb,0.94820e+03_rb /)\n      kbo(:, 2,14, 6) = (/ &\n        & 0.96646e+03_rb,0.74576e+03_rb,0.57229e+03_rb,0.73949e+03_rb,0.94928e+03_rb /)\n      kbo(:, 3,14, 6) = (/ &\n        & 0.96113e+03_rb,0.74177e+03_rb,0.57016e+03_rb,0.73988e+03_rb,0.95000e+03_rb /)\n      kbo(:, 4,14, 6) = (/ &\n        & 0.95649e+03_rb,0.73829e+03_rb,0.56822e+03_rb,0.74006e+03_rb,0.95035e+03_rb /)\n      kbo(:, 5,14, 6) = (/ &\n        & 0.95242e+03_rb,0.73523e+03_rb,0.56635e+03_rb,0.74003e+03_rb,0.95032e+03_rb /)\n      kbo(:, 1,15, 6) = (/ &\n        & 0.95700e+03_rb,0.73867e+03_rb,0.56844e+03_rb,0.73851e+03_rb,0.94832e+03_rb /)\n      kbo(:, 2,15, 6) = (/ &\n        & 0.95201e+03_rb,0.73493e+03_rb,0.56632e+03_rb,0.73916e+03_rb,0.94937e+03_rb /)\n      kbo(:, 3,15, 6) = (/ &\n        & 0.94772e+03_rb,0.73170e+03_rb,0.56426e+03_rb,0.73956e+03_rb,0.95005e+03_rb /)\n      kbo(:, 4,15, 6) = (/ &\n        & 0.94397e+03_rb,0.72889e+03_rb,0.56242e+03_rb,0.73973e+03_rb,0.95035e+03_rb /)\n      kbo(:, 5,15, 6) = (/ &\n        & 0.94067e+03_rb,0.72642e+03_rb,0.56076e+03_rb,0.73970e+03_rb,0.95029e+03_rb /)\n      kbo(:, 1,16, 6) = (/ &\n        & 0.94427e+03_rb,0.72912e+03_rb,0.56257e+03_rb,0.73826e+03_rb,0.94846e+03_rb /)\n      kbo(:, 2,16, 6) = (/ &\n        & 0.94026e+03_rb,0.72611e+03_rb,0.56064e+03_rb,0.73891e+03_rb,0.94946e+03_rb /)\n      kbo(:, 3,16, 6) = (/ &\n        & 0.93679e+03_rb,0.72351e+03_rb,0.55906e+03_rb,0.73929e+03_rb,0.95011e+03_rb /)\n      kbo(:, 4,16, 6) = (/ &\n        & 0.93377e+03_rb,0.72124e+03_rb,0.55770e+03_rb,0.73948e+03_rb,0.95036e+03_rb /)\n      kbo(:, 5,16, 6) = (/ &\n        & 0.93110e+03_rb,0.71925e+03_rb,0.55641e+03_rb,0.73943e+03_rb,0.95027e+03_rb /)\n      kbo(:, 1,17, 6) = (/ &\n        & 0.93395e+03_rb,0.72138e+03_rb,0.55755e+03_rb,0.73807e+03_rb,0.94857e+03_rb /)\n      kbo(:, 2,17, 6) = (/ &\n        & 0.93072e+03_rb,0.71896e+03_rb,0.55622e+03_rb,0.73871e+03_rb,0.94955e+03_rb /)\n      kbo(:, 3,17, 6) = (/ &\n        & 0.92792e+03_rb,0.71686e+03_rb,0.55497e+03_rb,0.73909e+03_rb,0.95015e+03_rb /)\n      kbo(:, 4,17, 6) = (/ &\n        & 0.92548e+03_rb,0.71503e+03_rb,0.55372e+03_rb,0.73925e+03_rb,0.95038e+03_rb /)\n      kbo(:, 5,17, 6) = (/ &\n        & 0.92333e+03_rb,0.71341e+03_rb,0.55252e+03_rb,0.73921e+03_rb,0.95024e+03_rb /)\n      kbo(:, 1,18, 6) = (/ &\n        & 0.92558e+03_rb,0.71510e+03_rb,0.55360e+03_rb,0.73792e+03_rb,0.94869e+03_rb /)\n      kbo(:, 2,18, 6) = (/ &\n        & 0.92297e+03_rb,0.71315e+03_rb,0.55237e+03_rb,0.73856e+03_rb,0.94963e+03_rb /)\n      kbo(:, 3,18, 6) = (/ &\n        & 0.92072e+03_rb,0.71146e+03_rb,0.55114e+03_rb,0.73892e+03_rb,0.95019e+03_rb /)\n      kbo(:, 4,18, 6) = (/ &\n        & 0.91874e+03_rb,0.70998e+03_rb,0.55001e+03_rb,0.73908e+03_rb,0.95037e+03_rb /)\n      kbo(:, 5,18, 6) = (/ &\n        & 0.91700e+03_rb,0.70867e+03_rb,0.54903e+03_rb,0.73903e+03_rb,0.95021e+03_rb /)\n      kbo(:, 1,19, 6) = (/ &\n        & 0.91879e+03_rb,0.71001e+03_rb,0.55004e+03_rb,0.73782e+03_rb,0.94880e+03_rb /)\n      kbo(:, 2,19, 6) = (/ &\n        & 0.91668e+03_rb,0.70843e+03_rb,0.54889e+03_rb,0.73844e+03_rb,0.94970e+03_rb /)\n      kbo(:, 3,19, 6) = (/ &\n        & 0.91486e+03_rb,0.70706e+03_rb,0.54830e+03_rb,0.73880e+03_rb,0.95023e+03_rb /)\n      kbo(:, 4,19, 6) = (/ &\n        & 0.91327e+03_rb,0.70587e+03_rb,0.54705e+03_rb,0.73894e+03_rb,0.95037e+03_rb /)\n      kbo(:, 5,19, 6) = (/ &\n        & 0.91186e+03_rb,0.70481e+03_rb,0.54615e+03_rb,0.73887e+03_rb,0.95019e+03_rb /)\n      kbo(:, 1,20, 6) = (/ &\n        & 0.91324e+03_rb,0.70585e+03_rb,0.54718e+03_rb,0.73776e+03_rb,0.94893e+03_rb /)\n      kbo(:, 2,20, 6) = (/ &\n        & 0.91155e+03_rb,0.70458e+03_rb,0.54599e+03_rb,0.73835e+03_rb,0.94979e+03_rb /)\n      kbo(:, 3,20, 6) = (/ &\n        & 0.91008e+03_rb,0.70348e+03_rb,0.54519e+03_rb,0.73870e+03_rb,0.95026e+03_rb /)\n      kbo(:, 4,20, 6) = (/ &\n        & 0.90879e+03_rb,0.70251e+03_rb,0.54450e+03_rb,0.73882e+03_rb,0.95036e+03_rb /)\n      kbo(:, 5,20, 6) = (/ &\n        & 0.90766e+03_rb,0.70166e+03_rb,0.54390e+03_rb,0.73874e+03_rb,0.95013e+03_rb /)\n      kbo(:, 1,21, 6) = (/ &\n        & 0.90874e+03_rb,0.70247e+03_rb,0.54444e+03_rb,0.73773e+03_rb,0.94905e+03_rb /)\n      kbo(:, 2,21, 6) = (/ &\n        & 0.90737e+03_rb,0.70145e+03_rb,0.54370e+03_rb,0.73831e+03_rb,0.94986e+03_rb /)\n      kbo(:, 3,21, 6) = (/ &\n        & 0.90619e+03_rb,0.70056e+03_rb,0.54308e+03_rb,0.73862e+03_rb,0.95029e+03_rb /)\n      kbo(:, 4,21, 6) = (/ &\n        & 0.90515e+03_rb,0.69978e+03_rb,0.54255e+03_rb,0.73872e+03_rb,0.95035e+03_rb /)\n      kbo(:, 5,21, 6) = (/ &\n        & 0.90424e+03_rb,0.69910e+03_rb,0.54208e+03_rb,0.73862e+03_rb,0.95008e+03_rb /)\n      kbo(:, 1,22, 6) = (/ &\n        & 0.90500e+03_rb,0.69967e+03_rb,0.54240e+03_rb,0.73776e+03_rb,0.94923e+03_rb /)\n      kbo(:, 2,22, 6) = (/ &\n        & 0.90392e+03_rb,0.69886e+03_rb,0.54185e+03_rb,0.73829e+03_rb,0.94997e+03_rb /)\n      kbo(:, 3,22, 6) = (/ &\n        & 0.90297e+03_rb,0.69815e+03_rb,0.54138e+03_rb,0.73857e+03_rb,0.95033e+03_rb /)\n      kbo(:, 4,22, 6) = (/ &\n        & 0.90215e+03_rb,0.69753e+03_rb,0.54099e+03_rb,0.73864e+03_rb,0.95033e+03_rb /)\n      kbo(:, 5,22, 6) = (/ &\n        & 0.90141e+03_rb,0.69698e+03_rb,0.54066e+03_rb,0.73851e+03_rb,0.94999e+03_rb /)\n      kbo(:, 1,23, 6) = (/ &\n        & 0.90199e+03_rb,0.69741e+03_rb,0.54083e+03_rb,0.73780e+03_rb,0.94940e+03_rb /)\n      kbo(:, 2,23, 6) = (/ &\n        & 0.90112e+03_rb,0.69676e+03_rb,0.54044e+03_rb,0.73828e+03_rb,0.95007e+03_rb /)\n      kbo(:, 3,23, 6) = (/ &\n        & 0.90037e+03_rb,0.69620e+03_rb,0.54010e+03_rb,0.73854e+03_rb,0.95036e+03_rb /)\n      kbo(:, 4,23, 6) = (/ &\n        & 0.89971e+03_rb,0.69570e+03_rb,0.53983e+03_rb,0.73858e+03_rb,0.95029e+03_rb /)\n      kbo(:, 5,23, 6) = (/ &\n        & 0.89912e+03_rb,0.69526e+03_rb,0.53959e+03_rb,0.73840e+03_rb,0.94989e+03_rb /)\n      kbo(:, 1,24, 6) = (/ &\n        & 0.89955e+03_rb,0.69558e+03_rb,0.53965e+03_rb,0.73787e+03_rb,0.94957e+03_rb /)\n      kbo(:, 2,24, 6) = (/ &\n        & 0.89886e+03_rb,0.69507e+03_rb,0.53937e+03_rb,0.73829e+03_rb,0.95016e+03_rb /)\n      kbo(:, 3,24, 6) = (/ &\n        & 0.89826e+03_rb,0.69461e+03_rb,0.53914e+03_rb,0.73851e+03_rb,0.95038e+03_rb /)\n      kbo(:, 4,24, 6) = (/ &\n        & 0.89773e+03_rb,0.69422e+03_rb,0.53895e+03_rb,0.73850e+03_rb,0.95023e+03_rb /)\n      kbo(:, 5,24, 6) = (/ &\n        & 0.89726e+03_rb,0.69387e+03_rb,0.53876e+03_rb,0.73829e+03_rb,0.94977e+03_rb /)\n      kbo(:, 1,25, 6) = (/ &\n        & 0.89758e+03_rb,0.69410e+03_rb,0.53876e+03_rb,0.73792e+03_rb,0.94973e+03_rb /)\n      kbo(:, 2,25, 6) = (/ &\n        & 0.89703e+03_rb,0.69369e+03_rb,0.53857e+03_rb,0.73831e+03_rb,0.95024e+03_rb /)\n      kbo(:, 3,25, 6) = (/ &\n        & 0.89655e+03_rb,0.69333e+03_rb,0.53841e+03_rb,0.73848e+03_rb,0.95037e+03_rb /)\n      kbo(:, 4,25, 6) = (/ &\n        & 0.89613e+03_rb,0.69302e+03_rb,0.53826e+03_rb,0.73843e+03_rb,0.95016e+03_rb /)\n      kbo(:, 5,25, 6) = (/ &\n        & 0.89576e+03_rb,0.69273e+03_rb,0.53811e+03_rb,0.73818e+03_rb,0.94963e+03_rb /)\n      kbo(:, 1,26, 6) = (/ &\n        & 0.89598e+03_rb,0.69290e+03_rb,0.53808e+03_rb,0.73799e+03_rb,0.94987e+03_rb /)\n      kbo(:, 2,26, 6) = (/ &\n        & 0.89555e+03_rb,0.69258e+03_rb,0.53794e+03_rb,0.73834e+03_rb,0.95030e+03_rb /)\n      kbo(:, 3,26, 6) = (/ &\n        & 0.89517e+03_rb,0.69229e+03_rb,0.53782e+03_rb,0.73845e+03_rb,0.95035e+03_rb /)\n      kbo(:, 4,26, 6) = (/ &\n        & 0.89483e+03_rb,0.69204e+03_rb,0.53770e+03_rb,0.73836e+03_rb,0.95007e+03_rb /)\n      kbo(:, 5,26, 6) = (/ &\n        & 0.89453e+03_rb,0.69182e+03_rb,0.53759e+03_rb,0.73806e+03_rb,0.94946e+03_rb /)\n      kbo(:, 1,27, 6) = (/ &\n        & 0.89469e+03_rb,0.69194e+03_rb,0.53754e+03_rb,0.73806e+03_rb,0.95001e+03_rb /)\n      kbo(:, 2,27, 6) = (/ &\n        & 0.89435e+03_rb,0.69168e+03_rb,0.53744e+03_rb,0.73835e+03_rb,0.95034e+03_rb /)\n      kbo(:, 3,27, 6) = (/ &\n        & 0.89405e+03_rb,0.69145e+03_rb,0.53736e+03_rb,0.73843e+03_rb,0.95031e+03_rb /)\n      kbo(:, 4,27, 6) = (/ &\n        & 0.89378e+03_rb,0.69125e+03_rb,0.53727e+03_rb,0.73828e+03_rb,0.94995e+03_rb /)\n      kbo(:, 5,27, 6) = (/ &\n        & 0.89354e+03_rb,0.69107e+03_rb,0.53717e+03_rb,0.73792e+03_rb,0.94926e+03_rb /)\n      kbo(:, 1,28, 6) = (/ &\n        & 0.89366e+03_rb,0.69116e+03_rb,0.53711e+03_rb,0.73814e+03_rb,0.95012e+03_rb /)\n      kbo(:, 2,28, 6) = (/ &\n        & 0.89338e+03_rb,0.69096e+03_rb,0.53705e+03_rb,0.73836e+03_rb,0.95037e+03_rb /)\n      kbo(:, 3,28, 6) = (/ &\n        & 0.89314e+03_rb,0.69078e+03_rb,0.53699e+03_rb,0.73838e+03_rb,0.95026e+03_rb /)\n      kbo(:, 4,28, 6) = (/ &\n        & 0.89293e+03_rb,0.69062e+03_rb,0.53692e+03_rb,0.73819e+03_rb,0.94982e+03_rb /)\n      kbo(:, 5,28, 6) = (/ &\n        & 0.89274e+03_rb,0.69047e+03_rb,0.53684e+03_rb,0.73778e+03_rb,0.94904e+03_rb /)\n      kbo(:, 1,29, 6) = (/ &\n        & 0.89282e+03_rb,0.69053e+03_rb,0.53678e+03_rb,0.73818e+03_rb,0.95022e+03_rb /)\n      kbo(:, 2,29, 6) = (/ &\n        & 0.89261e+03_rb,0.69037e+03_rb,0.53674e+03_rb,0.73837e+03_rb,0.95037e+03_rb /)\n      kbo(:, 3,29, 6) = (/ &\n        & 0.89241e+03_rb,0.69023e+03_rb,0.53670e+03_rb,0.73834e+03_rb,0.95018e+03_rb /)\n      kbo(:, 4,29, 6) = (/ &\n        & 0.89224e+03_rb,0.69010e+03_rb,0.53663e+03_rb,0.73810e+03_rb,0.94966e+03_rb /)\n      kbo(:, 5,29, 6) = (/ &\n        & 0.89209e+03_rb,0.68999e+03_rb,0.53656e+03_rb,0.73762e+03_rb,0.94880e+03_rb /)\n      kbo(:, 1,30, 6) = (/ &\n        & 0.89215e+03_rb,0.69003e+03_rb,0.53652e+03_rb,0.73823e+03_rb,0.95029e+03_rb /)\n      kbo(:, 2,30, 6) = (/ &\n        & 0.89198e+03_rb,0.68990e+03_rb,0.53650e+03_rb,0.73836e+03_rb,0.95035e+03_rb /)\n      kbo(:, 3,30, 6) = (/ &\n        & 0.89183e+03_rb,0.68979e+03_rb,0.53646e+03_rb,0.73828e+03_rb,0.95008e+03_rb /)\n      kbo(:, 4,30, 6) = (/ &\n        & 0.89169e+03_rb,0.68969e+03_rb,0.53641e+03_rb,0.73798e+03_rb,0.94948e+03_rb /)\n      kbo(:, 5,30, 6) = (/ &\n        & 0.89157e+03_rb,0.68960e+03_rb,0.53634e+03_rb,0.73744e+03_rb,0.94852e+03_rb /)\n      kbo(:, 1,31, 6) = (/ &\n        & 0.89161e+03_rb,0.68962e+03_rb,0.53631e+03_rb,0.73827e+03_rb,0.95034e+03_rb /)\n      kbo(:, 2,31, 6) = (/ &\n        & 0.89147e+03_rb,0.68952e+03_rb,0.53629e+03_rb,0.73835e+03_rb,0.95031e+03_rb /)\n      kbo(:, 3,31, 6) = (/ &\n        & 0.89135e+03_rb,0.68943e+03_rb,0.53627e+03_rb,0.73821e+03_rb,0.94996e+03_rb /)\n      kbo(:, 4,31, 6) = (/ &\n        & 0.89124e+03_rb,0.68935e+03_rb,0.53622e+03_rb,0.73786e+03_rb,0.94927e+03_rb /)\n      kbo(:, 5,31, 6) = (/ &\n        & 0.89115e+03_rb,0.68928e+03_rb,0.53615e+03_rb,0.73725e+03_rb,0.94822e+03_rb /)\n      kbo(:, 1,32, 6) = (/ &\n        & 0.89117e+03_rb,0.68930e+03_rb,0.53614e+03_rb,0.73830e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,32, 6) = (/ &\n        & 0.89106e+03_rb,0.68922e+03_rb,0.53614e+03_rb,0.73833e+03_rb,0.95025e+03_rb /)\n      kbo(:, 3,32, 6) = (/ &\n        & 0.89097e+03_rb,0.68914e+03_rb,0.53611e+03_rb,0.73813e+03_rb,0.94981e+03_rb /)\n      kbo(:, 4,32, 6) = (/ &\n        & 0.89088e+03_rb,0.68908e+03_rb,0.53608e+03_rb,0.73772e+03_rb,0.94903e+03_rb /)\n      kbo(:, 5,32, 6) = (/ &\n        & 0.89081e+03_rb,0.68902e+03_rb,0.53600e+03_rb,0.73703e+03_rb,0.94789e+03_rb /)\n      kbo(:, 1,33, 6) = (/ &\n        & 0.89082e+03_rb,0.68903e+03_rb,0.53602e+03_rb,0.73832e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,33, 6) = (/ &\n        & 0.89073e+03_rb,0.68897e+03_rb,0.53601e+03_rb,0.73829e+03_rb,0.95017e+03_rb /)\n      kbo(:, 3,33, 6) = (/ &\n        & 0.89066e+03_rb,0.68891e+03_rb,0.53599e+03_rb,0.73804e+03_rb,0.94964e+03_rb /)\n      kbo(:, 4,33, 6) = (/ &\n        & 0.89059e+03_rb,0.68886e+03_rb,0.53595e+03_rb,0.73756e+03_rb,0.94877e+03_rb /)\n      kbo(:, 5,33, 6) = (/ &\n        & 0.89053e+03_rb,0.68882e+03_rb,0.53586e+03_rb,0.73678e+03_rb,0.94753e+03_rb /)\n      kbo(:, 1,34, 6) = (/ &\n        & 0.89054e+03_rb,0.68882e+03_rb,0.53592e+03_rb,0.73832e+03_rb,0.95035e+03_rb /)\n      kbo(:, 2,34, 6) = (/ &\n        & 0.89047e+03_rb,0.68877e+03_rb,0.53592e+03_rb,0.73824e+03_rb,0.95008e+03_rb /)\n      kbo(:, 3,34, 6) = (/ &\n        & 0.89041e+03_rb,0.68873e+03_rb,0.53589e+03_rb,0.73795e+03_rb,0.94947e+03_rb /)\n      kbo(:, 4,34, 6) = (/ &\n        & 0.89036e+03_rb,0.68869e+03_rb,0.53584e+03_rb,0.73741e+03_rb,0.94852e+03_rb /)\n      kbo(:, 5,34, 6) = (/ &\n        & 0.89031e+03_rb,0.68865e+03_rb,0.53575e+03_rb,0.73655e+03_rb,0.94719e+03_rb /)\n      kbo(:, 1,35, 6) = (/ &\n        & 0.89032e+03_rb,0.68866e+03_rb,0.53584e+03_rb,0.73832e+03_rb,0.95034e+03_rb /)\n      kbo(:, 2,35, 6) = (/ &\n        & 0.89027e+03_rb,0.68862e+03_rb,0.53584e+03_rb,0.73821e+03_rb,0.95002e+03_rb /)\n      kbo(:, 3,35, 6) = (/ &\n        & 0.89022e+03_rb,0.68858e+03_rb,0.53581e+03_rb,0.73788e+03_rb,0.94937e+03_rb /)\n      kbo(:, 4,35, 6) = (/ &\n        & 0.89017e+03_rb,0.68855e+03_rb,0.53576e+03_rb,0.73731e+03_rb,0.94836e+03_rb /)\n      kbo(:, 5,35, 6) = (/ &\n        & 0.89013e+03_rb,0.68852e+03_rb,0.53567e+03_rb,0.73640e+03_rb,0.94700e+03_rb /)\n      kbo(:, 1,36, 6) = (/ &\n        & 0.89015e+03_rb,0.68853e+03_rb,0.53577e+03_rb,0.73831e+03_rb,0.95033e+03_rb /)\n      kbo(:, 2,36, 6) = (/ &\n        & 0.89010e+03_rb,0.68849e+03_rb,0.53577e+03_rb,0.73820e+03_rb,0.95001e+03_rb /)\n      kbo(:, 3,36, 6) = (/ &\n        & 0.89006e+03_rb,0.68846e+03_rb,0.53575e+03_rb,0.73787e+03_rb,0.94935e+03_rb /)\n      kbo(:, 4,36, 6) = (/ &\n        & 0.89003e+03_rb,0.68844e+03_rb,0.53570e+03_rb,0.73729e+03_rb,0.94834e+03_rb /)\n      kbo(:, 5,36, 6) = (/ &\n        & 0.88999e+03_rb,0.68841e+03_rb,0.53561e+03_rb,0.73637e+03_rb,0.94696e+03_rb /)\n      kbo(:, 1,37, 6) = (/ &\n        & 0.89001e+03_rb,0.68843e+03_rb,0.53571e+03_rb,0.73831e+03_rb,0.95036e+03_rb /)\n      kbo(:, 2,37, 6) = (/ &\n        & 0.88997e+03_rb,0.68840e+03_rb,0.53572e+03_rb,0.73823e+03_rb,0.95007e+03_rb /)\n      kbo(:, 3,37, 6) = (/ &\n        & 0.88994e+03_rb,0.68837e+03_rb,0.53570e+03_rb,0.73792e+03_rb,0.94946e+03_rb /)\n      kbo(:, 4,37, 6) = (/ &\n        & 0.88991e+03_rb,0.68835e+03_rb,0.53566e+03_rb,0.73738e+03_rb,0.94849e+03_rb /)\n      kbo(:, 5,37, 6) = (/ &\n        & 0.88988e+03_rb,0.68833e+03_rb,0.53557e+03_rb,0.73651e+03_rb,0.94716e+03_rb /)\n      kbo(:, 1,38, 6) = (/ &\n        & 0.88990e+03_rb,0.68834e+03_rb,0.53566e+03_rb,0.73830e+03_rb,0.95036e+03_rb /)\n      kbo(:, 2,38, 6) = (/ &\n        & 0.88987e+03_rb,0.68832e+03_rb,0.53568e+03_rb,0.73825e+03_rb,0.95013e+03_rb /)\n      kbo(:, 3,38, 6) = (/ &\n        & 0.88984e+03_rb,0.68830e+03_rb,0.53566e+03_rb,0.73798e+03_rb,0.94957e+03_rb /)\n      kbo(:, 4,38, 6) = (/ &\n        & 0.88982e+03_rb,0.68828e+03_rb,0.53563e+03_rb,0.73747e+03_rb,0.94865e+03_rb /)\n      kbo(:, 5,38, 6) = (/ &\n        & 0.88979e+03_rb,0.68826e+03_rb,0.53555e+03_rb,0.73665e+03_rb,0.94737e+03_rb /)\n      kbo(:, 1,39, 6) = (/ &\n        & 0.88981e+03_rb,0.68827e+03_rb,0.53562e+03_rb,0.73829e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,39, 6) = (/ &\n        & 0.88978e+03_rb,0.68825e+03_rb,0.53564e+03_rb,0.73826e+03_rb,0.95018e+03_rb /)\n      kbo(:, 3,39, 6) = (/ &\n        & 0.88976e+03_rb,0.68824e+03_rb,0.53563e+03_rb,0.73803e+03_rb,0.94966e+03_rb /)\n      kbo(:, 4,39, 6) = (/ &\n        & 0.88974e+03_rb,0.68822e+03_rb,0.53560e+03_rb,0.73755e+03_rb,0.94880e+03_rb /)\n      kbo(:, 5,39, 6) = (/ &\n        & 0.88972e+03_rb,0.68821e+03_rb,0.53553e+03_rb,0.73679e+03_rb,0.94757e+03_rb /)\n      kbo(:, 1,40, 6) = (/ &\n        & 0.88973e+03_rb,0.68822e+03_rb,0.53558e+03_rb,0.73826e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,40, 6) = (/ &\n        & 0.88971e+03_rb,0.68820e+03_rb,0.53561e+03_rb,0.73829e+03_rb,0.95026e+03_rb /)\n      kbo(:, 3,40, 6) = (/ &\n        & 0.88969e+03_rb,0.68819e+03_rb,0.53561e+03_rb,0.73810e+03_rb,0.94982e+03_rb /)\n      kbo(:, 4,40, 6) = (/ &\n        & 0.88967e+03_rb,0.68817e+03_rb,0.53559e+03_rb,0.73769e+03_rb,0.94904e+03_rb /)\n      kbo(:, 5,40, 6) = (/ &\n        & 0.88966e+03_rb,0.68816e+03_rb,0.53553e+03_rb,0.73700e+03_rb,0.94790e+03_rb /)\n      kbo(:, 1,41, 6) = (/ &\n        & 0.88967e+03_rb,0.68817e+03_rb,0.53555e+03_rb,0.73822e+03_rb,0.95035e+03_rb /)\n      kbo(:, 2,41, 6) = (/ &\n        & 0.88965e+03_rb,0.68816e+03_rb,0.53558e+03_rb,0.73830e+03_rb,0.95031e+03_rb /)\n      kbo(:, 3,41, 6) = (/ &\n        & 0.88964e+03_rb,0.68815e+03_rb,0.53559e+03_rb,0.73817e+03_rb,0.94996e+03_rb /)\n      kbo(:, 4,41, 6) = (/ &\n        & 0.88962e+03_rb,0.68813e+03_rb,0.53558e+03_rb,0.73782e+03_rb,0.94927e+03_rb /)\n      kbo(:, 5,41, 6) = (/ &\n        & 0.88961e+03_rb,0.68812e+03_rb,0.53553e+03_rb,0.73722e+03_rb,0.94822e+03_rb /)\n      kbo(:, 1,42, 6) = (/ &\n        & 0.88962e+03_rb,0.68813e+03_rb,0.53551e+03_rb,0.73816e+03_rb,0.95029e+03_rb /)\n      kbo(:, 2,42, 6) = (/ &\n        & 0.88960e+03_rb,0.68812e+03_rb,0.53555e+03_rb,0.73830e+03_rb,0.95035e+03_rb /)\n      kbo(:, 3,42, 6) = (/ &\n        & 0.88959e+03_rb,0.68811e+03_rb,0.53557e+03_rb,0.73822e+03_rb,0.95008e+03_rb /)\n      kbo(:, 4,42, 6) = (/ &\n        & 0.88958e+03_rb,0.68810e+03_rb,0.53556e+03_rb,0.73793e+03_rb,0.94948e+03_rb /)\n      kbo(:, 5,42, 6) = (/ &\n        & 0.88957e+03_rb,0.68809e+03_rb,0.53553e+03_rb,0.73739e+03_rb,0.94853e+03_rb /)\n      kbo(:, 1,43, 6) = (/ &\n        & 0.88958e+03_rb,0.68810e+03_rb,0.53547e+03_rb,0.73807e+03_rb,0.95020e+03_rb /)\n      kbo(:, 2,43, 6) = (/ &\n        & 0.88957e+03_rb,0.68809e+03_rb,0.53552e+03_rb,0.73828e+03_rb,0.95037e+03_rb /)\n      kbo(:, 3,43, 6) = (/ &\n        & 0.88955e+03_rb,0.68808e+03_rb,0.53555e+03_rb,0.73826e+03_rb,0.95020e+03_rb /)\n      kbo(:, 4,43, 6) = (/ &\n        & 0.88954e+03_rb,0.68808e+03_rb,0.53555e+03_rb,0.73804e+03_rb,0.94970e+03_rb /)\n      kbo(:, 5,43, 6) = (/ &\n        & 0.88953e+03_rb,0.68807e+03_rb,0.53553e+03_rb,0.73758e+03_rb,0.94886e+03_rb /)\n      kbo(:, 1,44, 6) = (/ &\n        & 0.88954e+03_rb,0.68808e+03_rb,0.53544e+03_rb,0.73795e+03_rb,0.95005e+03_rb /)\n      kbo(:, 2,44, 6) = (/ &\n        & 0.88953e+03_rb,0.68807e+03_rb,0.53549e+03_rb,0.73823e+03_rb,0.95035e+03_rb /)\n      kbo(:, 3,44, 6) = (/ &\n        & 0.88952e+03_rb,0.68806e+03_rb,0.53553e+03_rb,0.73829e+03_rb,0.95030e+03_rb /)\n      kbo(:, 4,44, 6) = (/ &\n        & 0.88951e+03_rb,0.68805e+03_rb,0.53554e+03_rb,0.73815e+03_rb,0.94991e+03_rb /)\n      kbo(:, 5,44, 6) = (/ &\n        & 0.88951e+03_rb,0.68805e+03_rb,0.53553e+03_rb,0.73776e+03_rb,0.94919e+03_rb /)\n      kbo(:, 1,45, 6) = (/ &\n        & 0.88952e+03_rb,0.68806e+03_rb,0.53540e+03_rb,0.73782e+03_rb,0.94987e+03_rb /)\n      kbo(:, 2,45, 6) = (/ &\n        & 0.88951e+03_rb,0.68805e+03_rb,0.53547e+03_rb,0.73816e+03_rb,0.95030e+03_rb /)\n      kbo(:, 3,45, 6) = (/ &\n        & 0.88950e+03_rb,0.68804e+03_rb,0.53551e+03_rb,0.73830e+03_rb,0.95035e+03_rb /)\n      kbo(:, 4,45, 6) = (/ &\n        & 0.88949e+03_rb,0.68804e+03_rb,0.53553e+03_rb,0.73821e+03_rb,0.95008e+03_rb /)\n      kbo(:, 5,45, 6) = (/ &\n        & 0.88948e+03_rb,0.68803e+03_rb,0.53553e+03_rb,0.73792e+03_rb,0.94947e+03_rb /)\n      kbo(:, 1,46, 6) = (/ &\n        & 0.88949e+03_rb,0.68804e+03_rb,0.53537e+03_rb,0.73763e+03_rb,0.94962e+03_rb /)\n      kbo(:, 2,46, 6) = (/ &\n        & 0.88948e+03_rb,0.68803e+03_rb,0.53544e+03_rb,0.73806e+03_rb,0.95019e+03_rb /)\n      kbo(:, 3,46, 6) = (/ &\n        & 0.88948e+03_rb,0.68803e+03_rb,0.53549e+03_rb,0.73827e+03_rb,0.95037e+03_rb /)\n      kbo(:, 4,46, 6) = (/ &\n        & 0.88947e+03_rb,0.68802e+03_rb,0.53552e+03_rb,0.73827e+03_rb,0.95021e+03_rb /)\n      kbo(:, 5,46, 6) = (/ &\n        & 0.88946e+03_rb,0.68802e+03_rb,0.53552e+03_rb,0.73805e+03_rb,0.94973e+03_rb /)\n      kbo(:, 1,47, 6) = (/ &\n        & 0.88947e+03_rb,0.68802e+03_rb,0.53531e+03_rb,0.73737e+03_rb,0.94929e+03_rb /)\n      kbo(:, 2,47, 6) = (/ &\n        & 0.88947e+03_rb,0.68802e+03_rb,0.53539e+03_rb,0.73792e+03_rb,0.95000e+03_rb /)\n      kbo(:, 3,47, 6) = (/ &\n        & 0.88946e+03_rb,0.68801e+03_rb,0.53546e+03_rb,0.73821e+03_rb,0.95034e+03_rb /)\n      kbo(:, 4,47, 6) = (/ &\n        & 0.88945e+03_rb,0.68801e+03_rb,0.53550e+03_rb,0.73829e+03_rb,0.95032e+03_rb /)\n      kbo(:, 5,47, 6) = (/ &\n        & 0.88945e+03_rb,0.68800e+03_rb,0.53551e+03_rb,0.73816e+03_rb,0.94996e+03_rb /)\n      kbo(:, 1,48, 6) = (/ &\n        & 0.88946e+03_rb,0.68801e+03_rb,0.53528e+03_rb,0.73708e+03_rb,0.94889e+03_rb /)\n      kbo(:, 2,48, 6) = (/ &\n        & 0.88945e+03_rb,0.68801e+03_rb,0.53536e+03_rb,0.73773e+03_rb,0.94976e+03_rb /)\n      kbo(:, 3,48, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53543e+03_rb,0.73812e+03_rb,0.95025e+03_rb /)\n      kbo(:, 4,48, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53548e+03_rb,0.73829e+03_rb,0.95037e+03_rb /)\n      kbo(:, 5,48, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53551e+03_rb,0.73824e+03_rb,0.95014e+03_rb /)\n      kbo(:, 1,49, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53524e+03_rb,0.73674e+03_rb,0.94844e+03_rb /)\n      kbo(:, 2,49, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53533e+03_rb,0.73750e+03_rb,0.94945e+03_rb /)\n      kbo(:, 3,49, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53540e+03_rb,0.73799e+03_rb,0.95016e+03_rb /)\n      kbo(:, 4,49, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53546e+03_rb,0.73825e+03_rb,0.95036e+03_rb /)\n      kbo(:, 5,49, 6) = (/ &\n        & 0.88942e+03_rb,0.68799e+03_rb,0.53549e+03_rb,0.73828e+03_rb,0.95027e+03_rb /)\n      kbo(:, 1,50, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53521e+03_rb,0.73638e+03_rb,0.94796e+03_rb /)\n      kbo(:, 2,50, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53529e+03_rb,0.73724e+03_rb,0.94911e+03_rb /)\n      kbo(:, 3,50, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53537e+03_rb,0.73783e+03_rb,0.94990e+03_rb /)\n      kbo(:, 4,50, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53544e+03_rb,0.73817e+03_rb,0.95031e+03_rb /)\n      kbo(:, 5,50, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53548e+03_rb,0.73829e+03_rb,0.95034e+03_rb /)\n      kbo(:, 1,51, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53518e+03_rb,0.73600e+03_rb,0.94745e+03_rb /)\n      kbo(:, 2,51, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53525e+03_rb,0.73696e+03_rb,0.94873e+03_rb /)\n      kbo(:, 3,51, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53533e+03_rb,0.73765e+03_rb,0.94966e+03_rb /)\n      kbo(:, 4,51, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53541e+03_rb,0.73807e+03_rb,0.95020e+03_rb /)\n      kbo(:, 5,51, 6) = (/ &\n        & 0.88941e+03_rb,0.68797e+03_rb,0.53546e+03_rb,0.73827e+03_rb,0.95037e+03_rb /)\n      kbo(:, 1,52, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53513e+03_rb,0.73556e+03_rb,0.94688e+03_rb /)\n      kbo(:, 2,52, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53522e+03_rb,0.73664e+03_rb,0.94831e+03_rb /)\n      kbo(:, 3,52, 6) = (/ &\n        & 0.88941e+03_rb,0.68797e+03_rb,0.53531e+03_rb,0.73743e+03_rb,0.94936e+03_rb /)\n      kbo(:, 4,52, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53538e+03_rb,0.73795e+03_rb,0.95005e+03_rb /)\n      kbo(:, 5,52, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53545e+03_rb,0.73822e+03_rb,0.95036e+03_rb /)\n      kbo(:, 1,53, 6) = (/ &\n        & 0.88941e+03_rb,0.68797e+03_rb,0.53507e+03_rb,0.73509e+03_rb,0.94627e+03_rb /)\n      kbo(:, 2,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53519e+03_rb,0.73629e+03_rb,0.94784e+03_rb /)\n      kbo(:, 3,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53527e+03_rb,0.73717e+03_rb,0.94902e+03_rb /)\n      kbo(:, 4,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53535e+03_rb,0.73779e+03_rb,0.94984e+03_rb /)\n      kbo(:, 5,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53542e+03_rb,0.73815e+03_rb,0.95029e+03_rb /)\n      kbo(:, 1,54, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53502e+03_rb,0.73463e+03_rb,0.94566e+03_rb /)\n      kbo(:, 2,54, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53516e+03_rb,0.73592e+03_rb,0.94735e+03_rb /)\n      kbo(:, 3,54, 6) = (/ &\n        & 0.88940e+03_rb,0.68796e+03_rb,0.53524e+03_rb,0.73691e+03_rb,0.94866e+03_rb /)\n      kbo(:, 4,54, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53533e+03_rb,0.73761e+03_rb,0.94961e+03_rb /)\n      kbo(:, 5,54, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53539e+03_rb,0.73805e+03_rb,0.95018e+03_rb /)\n      kbo(:, 1,55, 6) = (/ &\n        & 0.88940e+03_rb,0.68796e+03_rb,0.53495e+03_rb,0.73415e+03_rb,0.94503e+03_rb /)\n      kbo(:, 2,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53513e+03_rb,0.73554e+03_rb,0.94685e+03_rb /)\n      kbo(:, 3,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53521e+03_rb,0.73662e+03_rb,0.94828e+03_rb /)\n      kbo(:, 4,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53530e+03_rb,0.73742e+03_rb,0.94934e+03_rb /)\n      kbo(:, 5,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53537e+03_rb,0.73794e+03_rb,0.95004e+03_rb /)\n      kbo(:, 1,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53489e+03_rb,0.73364e+03_rb,0.94437e+03_rb /)\n      kbo(:, 2,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53507e+03_rb,0.73512e+03_rb,0.94631e+03_rb /)\n      kbo(:, 3,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53519e+03_rb,0.73631e+03_rb,0.94787e+03_rb /)\n      kbo(:, 4,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53527e+03_rb,0.73719e+03_rb,0.94904e+03_rb /)\n      kbo(:, 5,56, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53535e+03_rb,0.73780e+03_rb,0.94987e+03_rb /)\n      kbo(:, 1,57, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53481e+03_rb,0.73310e+03_rb,0.94366e+03_rb /)\n      kbo(:, 2,57, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53502e+03_rb,0.73469e+03_rb,0.94573e+03_rb /)\n      kbo(:, 3,57, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53516e+03_rb,0.73597e+03_rb,0.94741e+03_rb /)\n      kbo(:, 4,57, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53524e+03_rb,0.73694e+03_rb,0.94871e+03_rb /)\n      kbo(:, 5,57, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53532e+03_rb,0.73764e+03_rb,0.94964e+03_rb /)\n      kbo(:, 1,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53474e+03_rb,0.73255e+03_rb,0.94296e+03_rb /)\n      kbo(:, 2,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53496e+03_rb,0.73423e+03_rb,0.94515e+03_rb /)\n      kbo(:, 3,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53512e+03_rb,0.73561e+03_rb,0.94695e+03_rb /)\n      kbo(:, 4,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53522e+03_rb,0.73667e+03_rb,0.94836e+03_rb /)\n      kbo(:, 5,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53530e+03_rb,0.73745e+03_rb,0.94939e+03_rb /)\n      kbo(:, 1,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53470e+03_rb,0.73233e+03_rb,0.94266e+03_rb /)\n      kbo(:, 2,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53494e+03_rb,0.73405e+03_rb,0.94490e+03_rb /)\n      kbo(:, 3,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53510e+03_rb,0.73546e+03_rb,0.94675e+03_rb /)\n      kbo(:, 4,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53521e+03_rb,0.73657e+03_rb,0.94820e+03_rb /)\n      kbo(:, 5,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53529e+03_rb,0.73737e+03_rb,0.94929e+03_rb /)\n      kbo(:, 1,13, 7) = (/ &\n        & 0.11104e+04_rb,0.84453e+03_rb,0.58852e+03_rb,0.81799e+03_rb,0.10746e+04_rb /)\n      kbo(:, 2,13, 7) = (/ &\n        & 0.11019e+04_rb,0.83810e+03_rb,0.58572e+03_rb,0.81836e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,13, 7) = (/ &\n        & 0.10945e+04_rb,0.83257e+03_rb,0.58306e+03_rb,0.81848e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,13, 7) = (/ &\n        & 0.10881e+04_rb,0.82775e+03_rb,0.58047e+03_rb,0.81831e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,13, 7) = (/ &\n        & 0.10824e+04_rb,0.82352e+03_rb,0.57809e+03_rb,0.81788e+03_rb,0.10749e+04_rb /)\n      kbo(:, 1,14, 7) = (/ &\n        & 0.10890e+04_rb,0.82842e+03_rb,0.58087e+03_rb,0.81780e+03_rb,0.10747e+04_rb /)\n      kbo(:, 2,14, 7) = (/ &\n        & 0.10820e+04_rb,0.82323e+03_rb,0.57803e+03_rb,0.81816e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,14, 7) = (/ &\n        & 0.10761e+04_rb,0.81875e+03_rb,0.57524e+03_rb,0.81827e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,14, 7) = (/ &\n        & 0.10709e+04_rb,0.81486e+03_rb,0.57281e+03_rb,0.81809e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,14, 7) = (/ &\n        & 0.10663e+04_rb,0.81144e+03_rb,0.57087e+03_rb,0.81766e+03_rb,0.10748e+04_rb /)\n      kbo(:, 1,15, 7) = (/ &\n        & 0.10714e+04_rb,0.81529e+03_rb,0.57324e+03_rb,0.81765e+03_rb,0.10748e+04_rb /)\n      kbo(:, 2,15, 7) = (/ &\n        & 0.10659e+04_rb,0.81110e+03_rb,0.57094e+03_rb,0.81800e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,15, 7) = (/ &\n        & 0.10611e+04_rb,0.80749e+03_rb,0.56926e+03_rb,0.81809e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,15, 7) = (/ &\n        & 0.10569e+04_rb,0.80434e+03_rb,0.56791e+03_rb,0.81790e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,15, 7) = (/ &\n        & 0.10532e+04_rb,0.80157e+03_rb,0.56672e+03_rb,0.81746e+03_rb,0.10748e+04_rb /)\n      kbo(:, 1,16, 7) = (/ &\n        & 0.10572e+04_rb,0.80460e+03_rb,0.56822e+03_rb,0.81755e+03_rb,0.10748e+04_rb /)\n      kbo(:, 2,16, 7) = (/ &\n        & 0.10527e+04_rb,0.80122e+03_rb,0.56701e+03_rb,0.81788e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,16, 7) = (/ &\n        & 0.10488e+04_rb,0.79831e+03_rb,0.56599e+03_rb,0.81796e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,16, 7) = (/ &\n        & 0.10454e+04_rb,0.79577e+03_rb,0.56505e+03_rb,0.81773e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,16, 7) = (/ &\n        & 0.10425e+04_rb,0.79354e+03_rb,0.56418e+03_rb,0.81728e+03_rb,0.10747e+04_rb /)\n      kbo(:, 1,17, 7) = (/ &\n        & 0.10456e+04_rb,0.79593e+03_rb,0.56540e+03_rb,0.81747e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,17, 7) = (/ &\n        & 0.10420e+04_rb,0.79321e+03_rb,0.56464e+03_rb,0.81778e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,17, 7) = (/ &\n        & 0.10389e+04_rb,0.79086e+03_rb,0.56406e+03_rb,0.81783e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,17, 7) = (/ &\n        & 0.10362e+04_rb,0.78881e+03_rb,0.56355e+03_rb,0.81761e+03_rb,0.10751e+04_rb /)\n      kbo(:, 5,17, 7) = (/ &\n        & 0.10337e+04_rb,0.78701e+03_rb,0.56298e+03_rb,0.81712e+03_rb,0.10746e+04_rb /)\n      kbo(:, 1,18, 7) = (/ &\n        & 0.10363e+04_rb,0.78890e+03_rb,0.56372e+03_rb,0.81741e+03_rb,0.10750e+04_rb /)\n      kbo(:, 2,18, 7) = (/ &\n        & 0.10334e+04_rb,0.78671e+03_rb,0.56351e+03_rb,0.81771e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,18, 7) = (/ &\n        & 0.10308e+04_rb,0.78481e+03_rb,0.56335e+03_rb,0.81775e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,18, 7) = (/ &\n        & 0.10286e+04_rb,0.78316e+03_rb,0.56306e+03_rb,0.81749e+03_rb,0.10751e+04_rb /)\n      kbo(:, 5,18, 7) = (/ &\n        & 0.10267e+04_rb,0.78170e+03_rb,0.56253e+03_rb,0.81698e+03_rb,0.10746e+04_rb /)\n      kbo(:, 1,19, 7) = (/ &\n        & 0.10287e+04_rb,0.78319e+03_rb,0.56306e+03_rb,0.81737e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,19, 7) = (/ &\n        & 0.10263e+04_rb,0.78143e+03_rb,0.56317e+03_rb,0.81766e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,19, 7) = (/ &\n        & 0.10243e+04_rb,0.77990e+03_rb,0.56256e+03_rb,0.81764e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,19, 7) = (/ &\n        & 0.10225e+04_rb,0.77856e+03_rb,0.56270e+03_rb,0.81737e+03_rb,0.10751e+04_rb /)\n      kbo(:, 5,19, 7) = (/ &\n        & 0.10209e+04_rb,0.77738e+03_rb,0.56230e+03_rb,0.81685e+03_rb,0.10745e+04_rb /)\n      kbo(:, 1,20, 7) = (/ &\n        & 0.10225e+04_rb,0.77853e+03_rb,0.56258e+03_rb,0.81735e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,20, 7) = (/ &\n        & 0.10206e+04_rb,0.77711e+03_rb,0.56304e+03_rb,0.81761e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,20, 7) = (/ &\n        & 0.10189e+04_rb,0.77589e+03_rb,0.56295e+03_rb,0.81757e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,20, 7) = (/ &\n        & 0.10175e+04_rb,0.77480e+03_rb,0.56264e+03_rb,0.81728e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,20, 7) = (/ &\n        & 0.10162e+04_rb,0.77385e+03_rb,0.56211e+03_rb,0.81672e+03_rb,0.10744e+04_rb /)\n      kbo(:, 1,21, 7) = (/ &\n        & 0.10174e+04_rb,0.77475e+03_rb,0.56279e+03_rb,0.81734e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,21, 7) = (/ &\n        & 0.10159e+04_rb,0.77361e+03_rb,0.56292e+03_rb,0.81756e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,21, 7) = (/ &\n        & 0.10146e+04_rb,0.77262e+03_rb,0.56281e+03_rb,0.81751e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,21, 7) = (/ &\n        & 0.10134e+04_rb,0.77175e+03_rb,0.56248e+03_rb,0.81718e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,21, 7) = (/ &\n        & 0.10124e+04_rb,0.77098e+03_rb,0.56193e+03_rb,0.81661e+03_rb,0.10743e+04_rb /)\n      kbo(:, 1,22, 7) = (/ &\n        & 0.10132e+04_rb,0.77163e+03_rb,0.56273e+03_rb,0.81736e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,22, 7) = (/ &\n        & 0.10120e+04_rb,0.77071e+03_rb,0.56281e+03_rb,0.81753e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,22, 7) = (/ &\n        & 0.10110e+04_rb,0.76992e+03_rb,0.56267e+03_rb,0.81743e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,22, 7) = (/ &\n        & 0.10100e+04_rb,0.76922e+03_rb,0.56230e+03_rb,0.81706e+03_rb,0.10749e+04_rb /)\n      kbo(:, 5,22, 7) = (/ &\n        & 0.10092e+04_rb,0.76860e+03_rb,0.56172e+03_rb,0.81643e+03_rb,0.10742e+04_rb /)\n      kbo(:, 1,23, 7) = (/ &\n        & 0.10099e+04_rb,0.76909e+03_rb,0.56267e+03_rb,0.81738e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,23, 7) = (/ &\n        & 0.10089e+04_rb,0.76836e+03_rb,0.56273e+03_rb,0.81751e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,23, 7) = (/ &\n        & 0.10080e+04_rb,0.76773e+03_rb,0.56254e+03_rb,0.81734e+03_rb,0.10752e+04_rb /)\n      kbo(:, 4,23, 7) = (/ &\n        & 0.10073e+04_rb,0.76717e+03_rb,0.56214e+03_rb,0.81691e+03_rb,0.10748e+04_rb /)\n      kbo(:, 5,23, 7) = (/ &\n        & 0.10067e+04_rb,0.76668e+03_rb,0.56152e+03_rb,0.81625e+03_rb,0.10740e+04_rb /)\n      kbo(:, 1,24, 7) = (/ &\n        & 0.10071e+04_rb,0.76704e+03_rb,0.56263e+03_rb,0.81739e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,24, 7) = (/ &\n        & 0.10064e+04_rb,0.76647e+03_rb,0.56264e+03_rb,0.81747e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,24, 7) = (/ &\n        & 0.10057e+04_rb,0.76596e+03_rb,0.56242e+03_rb,0.81725e+03_rb,0.10751e+04_rb /)\n      kbo(:, 4,24, 7) = (/ &\n        & 0.10051e+04_rb,0.76551e+03_rb,0.56198e+03_rb,0.81678e+03_rb,0.10746e+04_rb /)\n      kbo(:, 5,24, 7) = (/ &\n        & 0.10046e+04_rb,0.76512e+03_rb,0.56132e+03_rb,0.81606e+03_rb,0.10738e+04_rb /)\n      kbo(:, 1,25, 7) = (/ &\n        & 0.10049e+04_rb,0.76538e+03_rb,0.56260e+03_rb,0.81741e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,25, 7) = (/ &\n        & 0.10043e+04_rb,0.76492e+03_rb,0.56256e+03_rb,0.81742e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,25, 7) = (/ &\n        & 0.10038e+04_rb,0.76453e+03_rb,0.56229e+03_rb,0.81717e+03_rb,0.10750e+04_rb /)\n      kbo(:, 4,25, 7) = (/ &\n        & 0.10033e+04_rb,0.76417e+03_rb,0.56181e+03_rb,0.81663e+03_rb,0.10745e+04_rb /)\n      kbo(:, 5,25, 7) = (/ &\n        & 0.10029e+04_rb,0.76385e+03_rb,0.56111e+03_rb,0.81585e+03_rb,0.10736e+04_rb /)\n      kbo(:, 1,26, 7) = (/ &\n        & 0.10031e+04_rb,0.76404e+03_rb,0.56257e+03_rb,0.81743e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,26, 7) = (/ &\n        & 0.10026e+04_rb,0.76368e+03_rb,0.56248e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,26, 7) = (/ &\n        & 0.10022e+04_rb,0.76336e+03_rb,0.56216e+03_rb,0.81707e+03_rb,0.10749e+04_rb /)\n      kbo(:, 4,26, 7) = (/ &\n        & 0.10018e+04_rb,0.76308e+03_rb,0.56163e+03_rb,0.81645e+03_rb,0.10743e+04_rb /)\n      kbo(:, 5,26, 7) = (/ &\n        & 0.10015e+04_rb,0.76282e+03_rb,0.56088e+03_rb,0.81561e+03_rb,0.10734e+04_rb /)\n      kbo(:, 1,27, 7) = (/ &\n        & 0.10017e+04_rb,0.76296e+03_rb,0.56253e+03_rb,0.81743e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,27, 7) = (/ &\n        & 0.10013e+04_rb,0.76268e+03_rb,0.56239e+03_rb,0.81730e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,27, 7) = (/ &\n        & 0.10010e+04_rb,0.76242e+03_rb,0.56202e+03_rb,0.81696e+03_rb,0.10748e+04_rb /)\n      kbo(:, 4,27, 7) = (/ &\n        & 0.10007e+04_rb,0.76220e+03_rb,0.56144e+03_rb,0.81630e+03_rb,0.10741e+04_rb /)\n      kbo(:, 5,27, 7) = (/ &\n        & 0.10004e+04_rb,0.76200e+03_rb,0.56064e+03_rb,0.81536e+03_rb,0.10731e+04_rb /)\n      kbo(:, 1,28, 7) = (/ &\n        & 0.10005e+04_rb,0.76209e+03_rb,0.56249e+03_rb,0.81738e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,28, 7) = (/ &\n        & 0.10002e+04_rb,0.76186e+03_rb,0.56229e+03_rb,0.81724e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,28, 7) = (/ &\n        & 0.99995e+03_rb,0.76166e+03_rb,0.56188e+03_rb,0.81687e+03_rb,0.10747e+04_rb /)\n      kbo(:, 4,28, 7) = (/ &\n        & 0.99971e+03_rb,0.76148e+03_rb,0.56124e+03_rb,0.81607e+03_rb,0.10739e+04_rb /)\n      kbo(:, 5,28, 7) = (/ &\n        & 0.99950e+03_rb,0.76132e+03_rb,0.56040e+03_rb,0.81510e+03_rb,0.10728e+04_rb /)\n      kbo(:, 1,29, 7) = (/ &\n        & 0.99960e+03_rb,0.76139e+03_rb,0.56244e+03_rb,0.81739e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,29, 7) = (/ &\n        & 0.99935e+03_rb,0.76121e+03_rb,0.56219e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 3,29, 7) = (/ &\n        & 0.99914e+03_rb,0.76105e+03_rb,0.56172e+03_rb,0.81663e+03_rb,0.10745e+04_rb /)\n      kbo(:, 4,29, 7) = (/ &\n        & 0.99895e+03_rb,0.76091e+03_rb,0.56103e+03_rb,0.81584e+03_rb,0.10737e+04_rb /)\n      kbo(:, 5,29, 7) = (/ &\n        & 0.99878e+03_rb,0.76078e+03_rb,0.56014e+03_rb,0.81482e+03_rb,0.10725e+04_rb /)\n      kbo(:, 1,30, 7) = (/ &\n        & 0.99885e+03_rb,0.76083e+03_rb,0.56238e+03_rb,0.81733e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,30, 7) = (/ &\n        & 0.99865e+03_rb,0.76069e+03_rb,0.56207e+03_rb,0.81703e+03_rb,0.10750e+04_rb /)\n      kbo(:, 3,30, 7) = (/ &\n        & 0.99848e+03_rb,0.76055e+03_rb,0.56155e+03_rb,0.81643e+03_rb,0.10743e+04_rb /)\n      kbo(:, 4,30, 7) = (/ &\n        & 0.99833e+03_rb,0.76044e+03_rb,0.56081e+03_rb,0.81561e+03_rb,0.10734e+04_rb /)\n      kbo(:, 5,30, 7) = (/ &\n        & 0.99819e+03_rb,0.76034e+03_rb,0.55986e+03_rb,0.81451e+03_rb,0.10721e+04_rb /)\n      kbo(:, 1,31, 7) = (/ &\n        & 0.99824e+03_rb,0.76037e+03_rb,0.56231e+03_rb,0.81727e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,31, 7) = (/ &\n        & 0.99808e+03_rb,0.76026e+03_rb,0.56195e+03_rb,0.81690e+03_rb,0.10748e+04_rb /)\n      kbo(:, 3,31, 7) = (/ &\n        & 0.99794e+03_rb,0.76015e+03_rb,0.56137e+03_rb,0.81625e+03_rb,0.10741e+04_rb /)\n      kbo(:, 4,31, 7) = (/ &\n        & 0.99782e+03_rb,0.76006e+03_rb,0.56058e+03_rb,0.81535e+03_rb,0.10731e+04_rb /)\n      kbo(:, 5,31, 7) = (/ &\n        & 0.99772e+03_rb,0.75998e+03_rb,0.55958e+03_rb,0.81419e+03_rb,0.10717e+04_rb /)\n      kbo(:, 1,32, 7) = (/ &\n        & 0.99774e+03_rb,0.76000e+03_rb,0.56222e+03_rb,0.81719e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,32, 7) = (/ &\n        & 0.99763e+03_rb,0.75991e+03_rb,0.56181e+03_rb,0.81675e+03_rb,0.10747e+04_rb /)\n      kbo(:, 3,32, 7) = (/ &\n        & 0.99752e+03_rb,0.75984e+03_rb,0.56117e+03_rb,0.81604e+03_rb,0.10739e+04_rb /)\n      kbo(:, 4,32, 7) = (/ &\n        & 0.99742e+03_rb,0.75976e+03_rb,0.56033e+03_rb,0.81507e+03_rb,0.10728e+04_rb /)\n      kbo(:, 5,32, 7) = (/ &\n        & 0.99733e+03_rb,0.75970e+03_rb,0.55927e+03_rb,0.81384e+03_rb,0.10713e+04_rb /)\n      kbo(:, 1,33, 7) = (/ &\n        & 0.99735e+03_rb,0.75971e+03_rb,0.56212e+03_rb,0.81709e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,33, 7) = (/ &\n        & 0.99725e+03_rb,0.75964e+03_rb,0.56165e+03_rb,0.81658e+03_rb,0.10745e+04_rb /)\n      kbo(:, 3,33, 7) = (/ &\n        & 0.99717e+03_rb,0.75957e+03_rb,0.56096e+03_rb,0.81581e+03_rb,0.10736e+04_rb /)\n      kbo(:, 4,33, 7) = (/ &\n        & 0.99709e+03_rb,0.75952e+03_rb,0.56006e+03_rb,0.81477e+03_rb,0.10724e+04_rb /)\n      kbo(:, 5,33, 7) = (/ &\n        & 0.99703e+03_rb,0.75946e+03_rb,0.55896e+03_rb,0.81347e+03_rb,0.10709e+04_rb /)\n      kbo(:, 1,34, 7) = (/ &\n        & 0.99704e+03_rb,0.75947e+03_rb,0.56203e+03_rb,0.81702e+03_rb,0.10750e+04_rb /)\n      kbo(:, 2,34, 7) = (/ &\n        & 0.99696e+03_rb,0.75942e+03_rb,0.56151e+03_rb,0.81642e+03_rb,0.10743e+04_rb /)\n      kbo(:, 3,34, 7) = (/ &\n        & 0.99689e+03_rb,0.75937e+03_rb,0.56077e+03_rb,0.81558e+03_rb,0.10734e+04_rb /)\n      kbo(:, 4,34, 7) = (/ &\n        & 0.99683e+03_rb,0.75932e+03_rb,0.55982e+03_rb,0.81449e+03_rb,0.10721e+04_rb /)\n      kbo(:, 5,34, 7) = (/ &\n        & 0.99678e+03_rb,0.75928e+03_rb,0.55868e+03_rb,0.81314e+03_rb,0.10704e+04_rb /)\n      kbo(:, 1,35, 7) = (/ &\n        & 0.99679e+03_rb,0.75929e+03_rb,0.56197e+03_rb,0.81693e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,35, 7) = (/ &\n        & 0.99673e+03_rb,0.75925e+03_rb,0.56142e+03_rb,0.81633e+03_rb,0.10742e+04_rb /)\n      kbo(:, 3,35, 7) = (/ &\n        & 0.99667e+03_rb,0.75920e+03_rb,0.56065e+03_rb,0.81545e+03_rb,0.10733e+04_rb /)\n      kbo(:, 4,35, 7) = (/ &\n        & 0.99663e+03_rb,0.75916e+03_rb,0.55968e+03_rb,0.81434e+03_rb,0.10719e+04_rb /)\n      kbo(:, 5,35, 7) = (/ &\n        & 0.99658e+03_rb,0.75913e+03_rb,0.55851e+03_rb,0.81294e+03_rb,0.10702e+04_rb /)\n      kbo(:, 1,36, 7) = (/ &\n        & 0.99660e+03_rb,0.75914e+03_rb,0.56195e+03_rb,0.81692e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,36, 7) = (/ &\n        & 0.99655e+03_rb,0.75911e+03_rb,0.56140e+03_rb,0.81631e+03_rb,0.10742e+04_rb /)\n      kbo(:, 3,36, 7) = (/ &\n        & 0.99650e+03_rb,0.75907e+03_rb,0.56063e+03_rb,0.81543e+03_rb,0.10732e+04_rb /)\n      kbo(:, 4,36, 7) = (/ &\n        & 0.99646e+03_rb,0.75904e+03_rb,0.55965e+03_rb,0.81430e+03_rb,0.10719e+04_rb /)\n      kbo(:, 5,36, 7) = (/ &\n        & 0.99642e+03_rb,0.75901e+03_rb,0.55848e+03_rb,0.81290e+03_rb,0.10702e+04_rb /)\n      kbo(:, 1,37, 7) = (/ &\n        & 0.99645e+03_rb,0.75903e+03_rb,0.56200e+03_rb,0.81697e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,37, 7) = (/ &\n        & 0.99640e+03_rb,0.75900e+03_rb,0.56148e+03_rb,0.81640e+03_rb,0.10743e+04_rb /)\n      kbo(:, 3,37, 7) = (/ &\n        & 0.99636e+03_rb,0.75897e+03_rb,0.56074e+03_rb,0.81556e+03_rb,0.10734e+04_rb /)\n      kbo(:, 4,37, 7) = (/ &\n        & 0.99633e+03_rb,0.75894e+03_rb,0.55979e+03_rb,0.81446e+03_rb,0.10721e+04_rb /)\n      kbo(:, 5,37, 7) = (/ &\n        & 0.99630e+03_rb,0.75892e+03_rb,0.55864e+03_rb,0.81313e+03_rb,0.10704e+04_rb /)\n      kbo(:, 1,38, 7) = (/ &\n        & 0.99632e+03_rb,0.75894e+03_rb,0.56206e+03_rb,0.81703e+03_rb,0.10750e+04_rb /)\n      kbo(:, 2,38, 7) = (/ &\n        & 0.99628e+03_rb,0.75891e+03_rb,0.56157e+03_rb,0.81650e+03_rb,0.10744e+04_rb /)\n      kbo(:, 3,38, 7) = (/ &\n        & 0.99625e+03_rb,0.75889e+03_rb,0.56085e+03_rb,0.81569e+03_rb,0.10735e+04_rb /)\n      kbo(:, 4,38, 7) = (/ &\n        & 0.99623e+03_rb,0.75887e+03_rb,0.55993e+03_rb,0.81464e+03_rb,0.10723e+04_rb /)\n      kbo(:, 5,38, 7) = (/ &\n        & 0.99620e+03_rb,0.75885e+03_rb,0.55881e+03_rb,0.81331e+03_rb,0.10707e+04_rb /)\n      kbo(:, 1,39, 7) = (/ &\n        & 0.99622e+03_rb,0.75886e+03_rb,0.56210e+03_rb,0.81708e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,39, 7) = (/ &\n        & 0.99619e+03_rb,0.75884e+03_rb,0.56164e+03_rb,0.81666e+03_rb,0.10745e+04_rb /)\n      kbo(:, 3,39, 7) = (/ &\n        & 0.99617e+03_rb,0.75882e+03_rb,0.56096e+03_rb,0.81582e+03_rb,0.10737e+04_rb /)\n      kbo(:, 4,39, 7) = (/ &\n        & 0.99614e+03_rb,0.75880e+03_rb,0.56007e+03_rb,0.81479e+03_rb,0.10725e+04_rb /)\n      kbo(:, 5,39, 7) = (/ &\n        & 0.99612e+03_rb,0.75878e+03_rb,0.55897e+03_rb,0.81351e+03_rb,0.10709e+04_rb /)\n      kbo(:, 1,40, 7) = (/ &\n        & 0.99613e+03_rb,0.75880e+03_rb,0.56218e+03_rb,0.81716e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,40, 7) = (/ &\n        & 0.99611e+03_rb,0.75878e+03_rb,0.56177e+03_rb,0.81672e+03_rb,0.10747e+04_rb /)\n      kbo(:, 3,40, 7) = (/ &\n        & 0.99609e+03_rb,0.75876e+03_rb,0.56114e+03_rb,0.81603e+03_rb,0.10739e+04_rb /)\n      kbo(:, 4,40, 7) = (/ &\n        & 0.99607e+03_rb,0.75875e+03_rb,0.56030e+03_rb,0.81506e+03_rb,0.10728e+04_rb /)\n      kbo(:, 5,40, 7) = (/ &\n        & 0.99605e+03_rb,0.75874e+03_rb,0.55925e+03_rb,0.81383e+03_rb,0.10713e+04_rb /)\n      kbo(:, 1,41, 7) = (/ &\n        & 0.99606e+03_rb,0.75874e+03_rb,0.56225e+03_rb,0.81724e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,41, 7) = (/ &\n        & 0.99604e+03_rb,0.75873e+03_rb,0.56189e+03_rb,0.81688e+03_rb,0.10748e+04_rb /)\n      kbo(:, 3,41, 7) = (/ &\n        & 0.99602e+03_rb,0.75871e+03_rb,0.56132e+03_rb,0.81623e+03_rb,0.10741e+04_rb /)\n      kbo(:, 4,41, 7) = (/ &\n        & 0.99601e+03_rb,0.75870e+03_rb,0.56053e+03_rb,0.81532e+03_rb,0.10731e+04_rb /)\n      kbo(:, 5,41, 7) = (/ &\n        & 0.99600e+03_rb,0.75869e+03_rb,0.55954e+03_rb,0.81416e+03_rb,0.10717e+04_rb /)\n      kbo(:, 1,42, 7) = (/ &\n        & 0.99601e+03_rb,0.75870e+03_rb,0.56231e+03_rb,0.81730e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,42, 7) = (/ &\n        & 0.99599e+03_rb,0.75869e+03_rb,0.56200e+03_rb,0.81698e+03_rb,0.10750e+04_rb /)\n      kbo(:, 3,42, 7) = (/ &\n        & 0.99597e+03_rb,0.75868e+03_rb,0.56149e+03_rb,0.81641e+03_rb,0.10743e+04_rb /)\n      kbo(:, 4,42, 7) = (/ &\n        & 0.99596e+03_rb,0.75867e+03_rb,0.56075e+03_rb,0.81559e+03_rb,0.10734e+04_rb /)\n      kbo(:, 5,42, 7) = (/ &\n        & 0.99595e+03_rb,0.75866e+03_rb,0.55981e+03_rb,0.81449e+03_rb,0.10721e+04_rb /)\n      kbo(:, 1,43, 7) = (/ &\n        & 0.99596e+03_rb,0.75867e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,43, 7) = (/ &\n        & 0.99595e+03_rb,0.75866e+03_rb,0.56212e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 3,43, 7) = (/ &\n        & 0.99594e+03_rb,0.75865e+03_rb,0.56167e+03_rb,0.81662e+03_rb,0.10746e+04_rb /)\n      kbo(:, 4,43, 7) = (/ &\n        & 0.99592e+03_rb,0.75864e+03_rb,0.56100e+03_rb,0.81588e+03_rb,0.10737e+04_rb /)\n      kbo(:, 5,43, 7) = (/ &\n        & 0.99591e+03_rb,0.75863e+03_rb,0.56012e+03_rb,0.81487e+03_rb,0.10726e+04_rb /)\n      kbo(:, 1,44, 7) = (/ &\n        & 0.99592e+03_rb,0.75864e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,44, 7) = (/ &\n        & 0.99591e+03_rb,0.75863e+03_rb,0.56222e+03_rb,0.81722e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,44, 7) = (/ &\n        & 0.99591e+03_rb,0.75862e+03_rb,0.56184e+03_rb,0.81680e+03_rb,0.10748e+04_rb /)\n      kbo(:, 4,44, 7) = (/ &\n        & 0.99589e+03_rb,0.75861e+03_rb,0.56125e+03_rb,0.81614e+03_rb,0.10741e+04_rb /)\n      kbo(:, 5,44, 7) = (/ &\n        & 0.99588e+03_rb,0.75861e+03_rb,0.56044e+03_rb,0.81523e+03_rb,0.10730e+04_rb /)\n      kbo(:, 1,45, 7) = (/ &\n        & 0.99589e+03_rb,0.75861e+03_rb,0.56237e+03_rb,0.81733e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,45, 7) = (/ &\n        & 0.99588e+03_rb,0.75861e+03_rb,0.56230e+03_rb,0.81729e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,45, 7) = (/ &\n        & 0.99587e+03_rb,0.75860e+03_rb,0.56199e+03_rb,0.81699e+03_rb,0.10750e+04_rb /)\n      kbo(:, 4,45, 7) = (/ &\n        & 0.99586e+03_rb,0.75859e+03_rb,0.56147e+03_rb,0.81641e+03_rb,0.10743e+04_rb /)\n      kbo(:, 5,45, 7) = (/ &\n        & 0.99585e+03_rb,0.75859e+03_rb,0.56074e+03_rb,0.81557e+03_rb,0.10734e+04_rb /)\n      kbo(:, 1,46, 7) = (/ &\n        & 0.99586e+03_rb,0.75859e+03_rb,0.56233e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,46, 7) = (/ &\n        & 0.99585e+03_rb,0.75859e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,46, 7) = (/ &\n        & 0.99585e+03_rb,0.75858e+03_rb,0.56213e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 4,46, 7) = (/ &\n        & 0.99584e+03_rb,0.75858e+03_rb,0.56169e+03_rb,0.81663e+03_rb,0.10746e+04_rb /)\n      kbo(:, 5,46, 7) = (/ &\n        & 0.99583e+03_rb,0.75858e+03_rb,0.56103e+03_rb,0.81590e+03_rb,0.10738e+04_rb /)\n      kbo(:, 1,47, 7) = (/ &\n        & 0.99585e+03_rb,0.75858e+03_rb,0.56226e+03_rb,0.81718e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,47, 7) = (/ &\n        & 0.99583e+03_rb,0.75857e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,47, 7) = (/ &\n        & 0.99583e+03_rb,0.75857e+03_rb,0.56224e+03_rb,0.81723e+03_rb,0.10752e+04_rb /)\n      kbo(:, 4,47, 7) = (/ &\n        & 0.99582e+03_rb,0.75856e+03_rb,0.56189e+03_rb,0.81686e+03_rb,0.10748e+04_rb /)\n      kbo(:, 5,47, 7) = (/ &\n        & 0.99581e+03_rb,0.75856e+03_rb,0.56132e+03_rb,0.81626e+03_rb,0.10741e+04_rb /)\n      kbo(:, 1,48, 7) = (/ &\n        & 0.99582e+03_rb,0.75856e+03_rb,0.56215e+03_rb,0.81703e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,48, 7) = (/ &\n        & 0.99582e+03_rb,0.75856e+03_rb,0.56235e+03_rb,0.81732e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,48, 7) = (/ &\n        & 0.99581e+03_rb,0.75855e+03_rb,0.56232e+03_rb,0.81733e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,48, 7) = (/ &\n        & 0.99580e+03_rb,0.75855e+03_rb,0.56206e+03_rb,0.81704e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,48, 7) = (/ &\n        & 0.99580e+03_rb,0.75855e+03_rb,0.56157e+03_rb,0.81651e+03_rb,0.10744e+04_rb /)\n      kbo(:, 1,49, 7) = (/ &\n        & 0.99581e+03_rb,0.75855e+03_rb,0.56199e+03_rb,0.81684e+03_rb,0.10748e+04_rb /)\n      kbo(:, 2,49, 7) = (/ &\n        & 0.99580e+03_rb,0.75855e+03_rb,0.56230e+03_rb,0.81724e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,49, 7) = (/ &\n        & 0.99580e+03_rb,0.75854e+03_rb,0.56236e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,49, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56219e+03_rb,0.81718e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,49, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56179e+03_rb,0.81678e+03_rb,0.10747e+04_rb /)\n      kbo(:, 1,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56180e+03_rb,0.81662e+03_rb,0.10745e+04_rb /)\n      kbo(:, 2,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56221e+03_rb,0.81713e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56237e+03_rb,0.81735e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56228e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,50, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56197e+03_rb,0.81695e+03_rb,0.10749e+04_rb /)\n      kbo(:, 1,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56158e+03_rb,0.81637e+03_rb,0.10741e+04_rb /)\n      kbo(:, 2,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56209e+03_rb,0.81697e+03_rb,0.10750e+04_rb /)\n      kbo(:, 3,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56234e+03_rb,0.81729e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56234e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 5,51, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56211e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 1,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75853e+03_rb,0.56131e+03_rb,0.81608e+03_rb,0.10737e+04_rb /)\n      kbo(:, 2,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56194e+03_rb,0.81678e+03_rb,0.10748e+04_rb /)\n      kbo(:, 3,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56228e+03_rb,0.81721e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56237e+03_rb,0.81738e+03_rb,0.10754e+04_rb /)\n      kbo(:, 5,52, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56222e+03_rb,0.81722e+03_rb,0.10752e+04_rb /)\n      kbo(:, 1,53, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56102e+03_rb,0.81574e+03_rb,0.10731e+04_rb /)\n      kbo(:, 2,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56174e+03_rb,0.81656e+03_rb,0.10744e+04_rb /)\n      kbo(:, 3,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56218e+03_rb,0.81709e+03_rb,0.10752e+04_rb /)\n      kbo(:, 4,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75851e+03_rb,0.56236e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 5,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56230e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)\n      kbo(:, 1,54, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56072e+03_rb,0.81536e+03_rb,0.10726e+04_rb /)\n      kbo(:, 2,54, 7) = (/ &\n        & 0.99576e+03_rb,0.75851e+03_rb,0.56153e+03_rb,0.81633e+03_rb,0.10740e+04_rb /)\n      kbo(:, 3,54, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56207e+03_rb,0.81694e+03_rb,0.10750e+04_rb /)\n      kbo(:, 4,54, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56233e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,54, 7) = (/ &\n        & 0.99576e+03_rb,0.75851e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56039e+03_rb,0.81495e+03_rb,0.10720e+04_rb /)\n      kbo(:, 2,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56128e+03_rb,0.81606e+03_rb,0.10736e+04_rb /)\n      kbo(:, 3,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56193e+03_rb,0.81677e+03_rb,0.10747e+04_rb /)\n      kbo(:, 4,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56227e+03_rb,0.81720e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,56, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56002e+03_rb,0.81448e+03_rb,0.10713e+04_rb /)\n      kbo(:, 2,56, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56104e+03_rb,0.81576e+03_rb,0.10732e+04_rb /)\n      kbo(:, 3,56, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56175e+03_rb,0.81659e+03_rb,0.10744e+04_rb /)\n      kbo(:, 4,56, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56219e+03_rb,0.81709e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,56, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56236e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,57, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.55963e+03_rb,0.81395e+03_rb,0.10705e+04_rb /)\n      kbo(:, 2,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56076e+03_rb,0.81540e+03_rb,0.10727e+04_rb /)\n      kbo(:, 3,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56157e+03_rb,0.81635e+03_rb,0.10741e+04_rb /)\n      kbo(:, 4,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56208e+03_rb,0.81696e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56234e+03_rb,0.81729e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,58, 7) = (/ &\n        & 0.99575e+03_rb,0.75850e+03_rb,0.55922e+03_rb,0.81340e+03_rb,0.10697e+04_rb /)\n      kbo(:, 2,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56044e+03_rb,0.81503e+03_rb,0.10721e+04_rb /)\n      kbo(:, 3,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75851e+03_rb,0.56134e+03_rb,0.81611e+03_rb,0.10737e+04_rb /)\n      kbo(:, 4,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75851e+03_rb,0.56195e+03_rb,0.81681e+03_rb,0.10748e+04_rb /)\n      kbo(:, 5,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56228e+03_rb,0.81722e+03_rb,0.10753e+04_rb /)\n      kbo(:, 1,59, 7) = (/ &\n        & 0.99575e+03_rb,0.75850e+03_rb,0.55905e+03_rb,0.81317e+03_rb,0.10694e+04_rb /)\n      kbo(:, 2,59, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56032e+03_rb,0.81485e+03_rb,0.10718e+04_rb /)\n      kbo(:, 3,59, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56125e+03_rb,0.81601e+03_rb,0.10735e+04_rb /)\n      kbo(:, 4,59, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56189e+03_rb,0.81673e+03_rb,0.10747e+04_rb /)\n      kbo(:, 5,59, 7) = (/ &\n        & 0.99573e+03_rb,0.75850e+03_rb,0.56225e+03_rb,0.81718e+03_rb,0.10753e+04_rb /)\n      kbo(:, 1,13, 8) = (/ &\n        & 0.11451e+04_rb,0.86748e+03_rb,0.59259e+03_rb,0.85187e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,13, 8) = (/ &\n        & 0.11363e+04_rb,0.86085e+03_rb,0.58896e+03_rb,0.85188e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,13, 8) = (/ &\n        & 0.11286e+04_rb,0.85515e+03_rb,0.58586e+03_rb,0.85170e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,13, 8) = (/ &\n        & 0.11220e+04_rb,0.85016e+03_rb,0.58378e+03_rb,0.85132e+03_rb,0.11224e+04_rb /)\n      kbo(:, 5,13, 8) = (/ &\n        & 0.11162e+04_rb,0.84582e+03_rb,0.58229e+03_rb,0.85074e+03_rb,0.11218e+04_rb /)\n      kbo(:, 1,14, 8) = (/ &\n        & 0.11230e+04_rb,0.85087e+03_rb,0.58392e+03_rb,0.85168e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,14, 8) = (/ &\n        & 0.11158e+04_rb,0.84552e+03_rb,0.58280e+03_rb,0.85169e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,14, 8) = (/ &\n        & 0.11097e+04_rb,0.84090e+03_rb,0.58233e+03_rb,0.85151e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,14, 8) = (/ &\n        & 0.11043e+04_rb,0.83689e+03_rb,0.58194e+03_rb,0.85113e+03_rb,0.11223e+04_rb /)\n      kbo(:, 5,14, 8) = (/ &\n        & 0.10996e+04_rb,0.83336e+03_rb,0.58140e+03_rb,0.85052e+03_rb,0.11217e+04_rb /)\n      kbo(:, 1,15, 8) = (/ &\n        & 0.11049e+04_rb,0.83731e+03_rb,0.58207e+03_rb,0.85153e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,15, 8) = (/ &\n        & 0.10991e+04_rb,0.83301e+03_rb,0.58217e+03_rb,0.85153e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,15, 8) = (/ &\n        & 0.10942e+04_rb,0.82928e+03_rb,0.58200e+03_rb,0.85134e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,15, 8) = (/ &\n        & 0.10899e+04_rb,0.82605e+03_rb,0.58161e+03_rb,0.85094e+03_rb,0.11223e+04_rb /)\n      kbo(:, 5,15, 8) = (/ &\n        & 0.10860e+04_rb,0.82320e+03_rb,0.58108e+03_rb,0.85034e+03_rb,0.11216e+04_rb /)\n      kbo(:, 1,16, 8) = (/ &\n        & 0.10902e+04_rb,0.82630e+03_rb,0.58181e+03_rb,0.85141e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,16, 8) = (/ &\n        & 0.10856e+04_rb,0.82283e+03_rb,0.58190e+03_rb,0.85139e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,16, 8) = (/ &\n        & 0.10816e+04_rb,0.81983e+03_rb,0.58172e+03_rb,0.85119e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,16, 8) = (/ &\n        & 0.10781e+04_rb,0.81721e+03_rb,0.58133e+03_rb,0.85078e+03_rb,0.11222e+04_rb /)\n      kbo(:, 5,16, 8) = (/ &\n        & 0.10750e+04_rb,0.81491e+03_rb,0.58080e+03_rb,0.85015e+03_rb,0.11215e+04_rb /)\n      kbo(:, 1,17, 8) = (/ &\n        & 0.10783e+04_rb,0.81738e+03_rb,0.58160e+03_rb,0.85131e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,17, 8) = (/ &\n        & 0.10746e+04_rb,0.81457e+03_rb,0.58168e+03_rb,0.85129e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,17, 8) = (/ &\n        & 0.10713e+04_rb,0.81215e+03_rb,0.58149e+03_rb,0.85108e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,17, 8) = (/ &\n        & 0.10685e+04_rb,0.81004e+03_rb,0.58109e+03_rb,0.85064e+03_rb,0.11222e+04_rb /)\n      kbo(:, 5,17, 8) = (/ &\n        & 0.10660e+04_rb,0.80818e+03_rb,0.58056e+03_rb,0.85000e+03_rb,0.11214e+04_rb /)\n      kbo(:, 1,18, 8) = (/ &\n        & 0.10686e+04_rb,0.81013e+03_rb,0.58144e+03_rb,0.85124e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,18, 8) = (/ &\n        & 0.10656e+04_rb,0.80786e+03_rb,0.58150e+03_rb,0.85119e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,18, 8) = (/ &\n        & 0.10630e+04_rb,0.80591e+03_rb,0.58129e+03_rb,0.85095e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,18, 8) = (/ &\n        & 0.10607e+04_rb,0.80419e+03_rb,0.58089e+03_rb,0.85052e+03_rb,0.11221e+04_rb /)\n      kbo(:, 5,18, 8) = (/ &\n        & 0.10587e+04_rb,0.80269e+03_rb,0.58036e+03_rb,0.84984e+03_rb,0.11213e+04_rb /)\n      kbo(:, 1,19, 8) = (/ &\n        & 0.10608e+04_rb,0.80424e+03_rb,0.58130e+03_rb,0.85117e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,19, 8) = (/ &\n        & 0.10584e+04_rb,0.80242e+03_rb,0.58135e+03_rb,0.85109e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,19, 8) = (/ &\n        & 0.10562e+04_rb,0.80084e+03_rb,0.58113e+03_rb,0.85087e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,19, 8) = (/ &\n        & 0.10544e+04_rb,0.79946e+03_rb,0.58072e+03_rb,0.85040e+03_rb,0.11220e+04_rb /)\n      kbo(:, 5,19, 8) = (/ &\n        & 0.10528e+04_rb,0.79825e+03_rb,0.58019e+03_rb,0.84971e+03_rb,0.11212e+04_rb /)\n      kbo(:, 1,20, 8) = (/ &\n        & 0.10544e+04_rb,0.79943e+03_rb,0.58120e+03_rb,0.85111e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,20, 8) = (/ &\n        & 0.10524e+04_rb,0.79797e+03_rb,0.58122e+03_rb,0.85103e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,20, 8) = (/ &\n        & 0.10507e+04_rb,0.79669e+03_rb,0.58098e+03_rb,0.85078e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,20, 8) = (/ &\n        & 0.10492e+04_rb,0.79558e+03_rb,0.58056e+03_rb,0.85028e+03_rb,0.11220e+04_rb /)\n      kbo(:, 5,20, 8) = (/ &\n        & 0.10479e+04_rb,0.79460e+03_rb,0.58002e+03_rb,0.84958e+03_rb,0.11211e+04_rb /)\n      kbo(:, 1,21, 8) = (/ &\n        & 0.10492e+04_rb,0.79553e+03_rb,0.58112e+03_rb,0.85107e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,21, 8) = (/ &\n        & 0.10476e+04_rb,0.79436e+03_rb,0.58112e+03_rb,0.85096e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,21, 8) = (/ &\n        & 0.10462e+04_rb,0.79334e+03_rb,0.58085e+03_rb,0.85069e+03_rb,0.11224e+04_rb /)\n      kbo(:, 4,21, 8) = (/ &\n        & 0.10450e+04_rb,0.79243e+03_rb,0.58042e+03_rb,0.85021e+03_rb,0.11219e+04_rb /)\n      kbo(:, 5,21, 8) = (/ &\n        & 0.10440e+04_rb,0.79165e+03_rb,0.57987e+03_rb,0.84945e+03_rb,0.11210e+04_rb /)\n      kbo(:, 1,22, 8) = (/ &\n        & 0.10449e+04_rb,0.79230e+03_rb,0.58106e+03_rb,0.85103e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,22, 8) = (/ &\n        & 0.10436e+04_rb,0.79136e+03_rb,0.58100e+03_rb,0.85090e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,22, 8) = (/ &\n        & 0.10425e+04_rb,0.79054e+03_rb,0.58071e+03_rb,0.85058e+03_rb,0.11224e+04_rb /)\n      kbo(:, 4,22, 8) = (/ &\n        & 0.10416e+04_rb,0.78983e+03_rb,0.58026e+03_rb,0.85002e+03_rb,0.11217e+04_rb /)\n      kbo(:, 5,22, 8) = (/ &\n        & 0.10407e+04_rb,0.78921e+03_rb,0.57969e+03_rb,0.84925e+03_rb,0.11208e+04_rb /)\n      kbo(:, 1,23, 8) = (/ &\n        & 0.10414e+04_rb,0.78969e+03_rb,0.58100e+03_rb,0.85099e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,23, 8) = (/ &\n        & 0.10404e+04_rb,0.78894e+03_rb,0.58090e+03_rb,0.85083e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,23, 8) = (/ &\n        & 0.10395e+04_rb,0.78829e+03_rb,0.58058e+03_rb,0.85047e+03_rb,0.11223e+04_rb /)\n      kbo(:, 4,23, 8) = (/ &\n        & 0.10387e+04_rb,0.78772e+03_rb,0.58011e+03_rb,0.84989e+03_rb,0.11216e+04_rb /)\n      kbo(:, 5,23, 8) = (/ &\n        & 0.10381e+04_rb,0.78721e+03_rb,0.57952e+03_rb,0.84905e+03_rb,0.11206e+04_rb /)\n      kbo(:, 1,24, 8) = (/ &\n        & 0.10386e+04_rb,0.78759e+03_rb,0.58095e+03_rb,0.85095e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,24, 8) = (/ &\n        & 0.10378e+04_rb,0.78698e+03_rb,0.58081e+03_rb,0.85075e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,24, 8) = (/ &\n        & 0.10371e+04_rb,0.78646e+03_rb,0.58046e+03_rb,0.85035e+03_rb,0.11222e+04_rb /)\n      kbo(:, 4,24, 8) = (/ &\n        & 0.10365e+04_rb,0.78601e+03_rb,0.57995e+03_rb,0.84971e+03_rb,0.11214e+04_rb /)\n      kbo(:, 5,24, 8) = (/ &\n        & 0.10359e+04_rb,0.78561e+03_rb,0.57934e+03_rb,0.84885e+03_rb,0.11203e+04_rb /)\n      kbo(:, 1,25, 8) = (/ &\n        & 0.10363e+04_rb,0.78588e+03_rb,0.58090e+03_rb,0.85090e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,25, 8) = (/ &\n        & 0.10357e+04_rb,0.78541e+03_rb,0.58070e+03_rb,0.85067e+03_rb,0.11225e+04_rb /)\n      kbo(:, 3,25, 8) = (/ &\n        & 0.10351e+04_rb,0.78498e+03_rb,0.58032e+03_rb,0.85020e+03_rb,0.11220e+04_rb /)\n      kbo(:, 4,25, 8) = (/ &\n        & 0.10346e+04_rb,0.78461e+03_rb,0.57980e+03_rb,0.84953e+03_rb,0.11212e+04_rb /)\n      kbo(:, 5,25, 8) = (/ &\n        & 0.10342e+04_rb,0.78430e+03_rb,0.57916e+03_rb,0.84863e+03_rb,0.11201e+04_rb /)\n      kbo(:, 1,26, 8) = (/ &\n        & 0.10345e+04_rb,0.78450e+03_rb,0.58084e+03_rb,0.85084e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,26, 8) = (/ &\n        & 0.10339e+04_rb,0.78411e+03_rb,0.58059e+03_rb,0.85057e+03_rb,0.11224e+04_rb /)\n      kbo(:, 3,26, 8) = (/ &\n        & 0.10335e+04_rb,0.78378e+03_rb,0.58018e+03_rb,0.85004e+03_rb,0.11219e+04_rb /)\n      kbo(:, 4,26, 8) = (/ &\n        & 0.10331e+04_rb,0.78349e+03_rb,0.57964e+03_rb,0.84934e+03_rb,0.11210e+04_rb /)\n      kbo(:, 5,26, 8) = (/ &\n        & 0.10328e+04_rb,0.78323e+03_rb,0.57897e+03_rb,0.84838e+03_rb,0.11198e+04_rb /)\n      kbo(:, 1,27, 8) = (/ &\n        & 0.10329e+04_rb,0.78338e+03_rb,0.58078e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,27, 8) = (/ &\n        & 0.10326e+04_rb,0.78307e+03_rb,0.58048e+03_rb,0.85045e+03_rb,0.11223e+04_rb /)\n      kbo(:, 3,27, 8) = (/ &\n        & 0.10322e+04_rb,0.78282e+03_rb,0.58003e+03_rb,0.84982e+03_rb,0.11217e+04_rb /)\n      kbo(:, 4,27, 8) = (/ &\n        & 0.10319e+04_rb,0.78258e+03_rb,0.57947e+03_rb,0.84907e+03_rb,0.11207e+04_rb /)\n      kbo(:, 5,27, 8) = (/ &\n        & 0.10316e+04_rb,0.78237e+03_rb,0.57877e+03_rb,0.84811e+03_rb,0.11194e+04_rb /)\n      kbo(:, 1,28, 8) = (/ &\n        & 0.10318e+04_rb,0.78248e+03_rb,0.58069e+03_rb,0.85072e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,28, 8) = (/ &\n        & 0.10314e+04_rb,0.78225e+03_rb,0.58037e+03_rb,0.85030e+03_rb,0.11222e+04_rb /)\n      kbo(:, 3,28, 8) = (/ &\n        & 0.10312e+04_rb,0.78205e+03_rb,0.57989e+03_rb,0.84960e+03_rb,0.11215e+04_rb /)\n      kbo(:, 4,28, 8) = (/ &\n        & 0.10309e+04_rb,0.78185e+03_rb,0.57929e+03_rb,0.84888e+03_rb,0.11204e+04_rb /)\n      kbo(:, 5,28, 8) = (/ &\n        & 0.10307e+04_rb,0.78168e+03_rb,0.57856e+03_rb,0.84784e+03_rb,0.11191e+04_rb /)\n      kbo(:, 1,29, 8) = (/ &\n        & 0.10308e+04_rb,0.78175e+03_rb,0.58061e+03_rb,0.85062e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,29, 8) = (/ &\n        & 0.10305e+04_rb,0.78157e+03_rb,0.58024e+03_rb,0.85019e+03_rb,0.11221e+04_rb /)\n      kbo(:, 3,29, 8) = (/ &\n        & 0.10303e+04_rb,0.78140e+03_rb,0.57974e+03_rb,0.84950e+03_rb,0.11213e+04_rb /)\n      kbo(:, 4,29, 8) = (/ &\n        & 0.10301e+04_rb,0.78126e+03_rb,0.57911e+03_rb,0.84863e+03_rb,0.11201e+04_rb /)\n      kbo(:, 5,29, 8) = (/ &\n        & 0.10300e+04_rb,0.78112e+03_rb,0.57834e+03_rb,0.84752e+03_rb,0.11188e+04_rb /)\n      kbo(:, 1,30, 8) = (/ &\n        & 0.10300e+04_rb,0.78117e+03_rb,0.58052e+03_rb,0.85055e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,30, 8) = (/ &\n        & 0.10298e+04_rb,0.78102e+03_rb,0.58011e+03_rb,0.85001e+03_rb,0.11219e+04_rb /)\n      kbo(:, 3,30, 8) = (/ &\n        & 0.10296e+04_rb,0.78089e+03_rb,0.57958e+03_rb,0.84932e+03_rb,0.11210e+04_rb /)\n      kbo(:, 4,30, 8) = (/ &\n        & 0.10295e+04_rb,0.78077e+03_rb,0.57892e+03_rb,0.84838e+03_rb,0.11198e+04_rb /)\n      kbo(:, 5,30, 8) = (/ &\n        & 0.10294e+04_rb,0.78066e+03_rb,0.57811e+03_rb,0.84720e+03_rb,0.11184e+04_rb /)\n      kbo(:, 1,31, 8) = (/ &\n        & 0.10294e+04_rb,0.78070e+03_rb,0.58042e+03_rb,0.85041e+03_rb,0.11223e+04_rb /)\n      kbo(:, 2,31, 8) = (/ &\n        & 0.10292e+04_rb,0.78058e+03_rb,0.57998e+03_rb,0.84985e+03_rb,0.11217e+04_rb /)\n      kbo(:, 3,31, 8) = (/ &\n        & 0.10291e+04_rb,0.78049e+03_rb,0.57941e+03_rb,0.84908e+03_rb,0.11207e+04_rb /)\n      kbo(:, 4,31, 8) = (/ &\n        & 0.10290e+04_rb,0.78039e+03_rb,0.57872e+03_rb,0.84808e+03_rb,0.11195e+04_rb /)\n      kbo(:, 5,31, 8) = (/ &\n        & 0.10289e+04_rb,0.78030e+03_rb,0.57786e+03_rb,0.84686e+03_rb,0.11179e+04_rb /)\n      kbo(:, 1,32, 8) = (/ &\n        & 0.10289e+04_rb,0.78033e+03_rb,0.58031e+03_rb,0.85030e+03_rb,0.11222e+04_rb /)\n      kbo(:, 2,32, 8) = (/ &\n        & 0.10288e+04_rb,0.78024e+03_rb,0.57984e+03_rb,0.84967e+03_rb,0.11215e+04_rb /)\n      kbo(:, 3,32, 8) = (/ &\n        & 0.10287e+04_rb,0.78016e+03_rb,0.57924e+03_rb,0.84884e+03_rb,0.11204e+04_rb /)\n      kbo(:, 4,32, 8) = (/ &\n        & 0.10286e+04_rb,0.78009e+03_rb,0.57851e+03_rb,0.84778e+03_rb,0.11191e+04_rb /)\n      kbo(:, 5,32, 8) = (/ &\n        & 0.10285e+04_rb,0.78000e+03_rb,0.57759e+03_rb,0.84651e+03_rb,0.11175e+04_rb /)\n      kbo(:, 1,33, 8) = (/ &\n        & 0.10285e+04_rb,0.78003e+03_rb,0.58019e+03_rb,0.85016e+03_rb,0.11220e+04_rb /)\n      kbo(:, 2,33, 8) = (/ &\n        & 0.10284e+04_rb,0.77995e+03_rb,0.57968e+03_rb,0.84947e+03_rb,0.11212e+04_rb /)\n      kbo(:, 3,33, 8) = (/ &\n        & 0.10283e+04_rb,0.77988e+03_rb,0.57905e+03_rb,0.84858e+03_rb,0.11201e+04_rb /)\n      kbo(:, 4,33, 8) = (/ &\n        & 0.10282e+04_rb,0.77982e+03_rb,0.57829e+03_rb,0.84747e+03_rb,0.11187e+04_rb /)\n      kbo(:, 5,33, 8) = (/ &\n        & 0.10282e+04_rb,0.77978e+03_rb,0.57730e+03_rb,0.84615e+03_rb,0.11170e+04_rb /)\n      kbo(:, 1,34, 8) = (/ &\n        & 0.10282e+04_rb,0.77978e+03_rb,0.58008e+03_rb,0.84998e+03_rb,0.11219e+04_rb /)\n      kbo(:, 2,34, 8) = (/ &\n        & 0.10281e+04_rb,0.77972e+03_rb,0.57954e+03_rb,0.84930e+03_rb,0.11210e+04_rb /)\n      kbo(:, 3,34, 8) = (/ &\n        & 0.10280e+04_rb,0.77967e+03_rb,0.57889e+03_rb,0.84836e+03_rb,0.11198e+04_rb /)\n      kbo(:, 4,34, 8) = (/ &\n        & 0.10280e+04_rb,0.77962e+03_rb,0.57808e+03_rb,0.84718e+03_rb,0.11184e+04_rb /)\n      kbo(:, 5,34, 8) = (/ &\n        & 0.10279e+04_rb,0.77958e+03_rb,0.57705e+03_rb,0.84582e+03_rb,0.11166e+04_rb /)\n      kbo(:, 1,35, 8) = (/ &\n        & 0.10279e+04_rb,0.77958e+03_rb,0.58001e+03_rb,0.84995e+03_rb,0.11218e+04_rb /)\n      kbo(:, 2,35, 8) = (/ &\n        & 0.10278e+04_rb,0.77953e+03_rb,0.57946e+03_rb,0.84916e+03_rb,0.11209e+04_rb /)\n      kbo(:, 3,35, 8) = (/ &\n        & 0.10278e+04_rb,0.77951e+03_rb,0.57880e+03_rb,0.84823e+03_rb,0.11196e+04_rb /)\n      kbo(:, 4,35, 8) = (/ &\n        & 0.10277e+04_rb,0.77946e+03_rb,0.57796e+03_rb,0.84701e+03_rb,0.11181e+04_rb /)\n      kbo(:, 5,35, 8) = (/ &\n        & 0.10277e+04_rb,0.77943e+03_rb,0.57689e+03_rb,0.84563e+03_rb,0.11163e+04_rb /)\n      kbo(:, 1,36, 8) = (/ &\n        & 0.10277e+04_rb,0.77944e+03_rb,0.58000e+03_rb,0.84992e+03_rb,0.11218e+04_rb /)\n      kbo(:, 2,36, 8) = (/ &\n        & 0.10277e+04_rb,0.77940e+03_rb,0.57944e+03_rb,0.84917e+03_rb,0.11208e+04_rb /)\n      kbo(:, 3,36, 8) = (/ &\n        & 0.10276e+04_rb,0.77936e+03_rb,0.57877e+03_rb,0.84819e+03_rb,0.11196e+04_rb /)\n      kbo(:, 4,36, 8) = (/ &\n        & 0.10276e+04_rb,0.77933e+03_rb,0.57793e+03_rb,0.84697e+03_rb,0.11181e+04_rb /)\n      kbo(:, 5,36, 8) = (/ &\n        & 0.10275e+04_rb,0.77931e+03_rb,0.57686e+03_rb,0.84561e+03_rb,0.11162e+04_rb /)\n      kbo(:, 1,37, 8) = (/ &\n        & 0.10275e+04_rb,0.77932e+03_rb,0.58006e+03_rb,0.85002e+03_rb,0.11219e+04_rb /)\n      kbo(:, 2,37, 8) = (/ &\n        & 0.10275e+04_rb,0.77929e+03_rb,0.57952e+03_rb,0.84927e+03_rb,0.11210e+04_rb /)\n      kbo(:, 3,37, 8) = (/ &\n        & 0.10275e+04_rb,0.77926e+03_rb,0.57886e+03_rb,0.84832e+03_rb,0.11198e+04_rb /)\n      kbo(:, 4,37, 8) = (/ &\n        & 0.10274e+04_rb,0.77924e+03_rb,0.57805e+03_rb,0.84715e+03_rb,0.11183e+04_rb /)\n      kbo(:, 5,37, 8) = (/ &\n        & 0.10274e+04_rb,0.77921e+03_rb,0.57701e+03_rb,0.84575e+03_rb,0.11165e+04_rb /)\n      kbo(:, 1,38, 8) = (/ &\n        & 0.10274e+04_rb,0.77922e+03_rb,0.58012e+03_rb,0.85009e+03_rb,0.11220e+04_rb /)\n      kbo(:, 2,38, 8) = (/ &\n        & 0.10274e+04_rb,0.77920e+03_rb,0.57959e+03_rb,0.84938e+03_rb,0.11211e+04_rb /)\n      kbo(:, 3,38, 8) = (/ &\n        & 0.10274e+04_rb,0.77918e+03_rb,0.57896e+03_rb,0.84848e+03_rb,0.11200e+04_rb /)\n      kbo(:, 4,38, 8) = (/ &\n        & 0.10273e+04_rb,0.77915e+03_rb,0.57818e+03_rb,0.84731e+03_rb,0.11185e+04_rb /)\n      kbo(:, 5,38, 8) = (/ &\n        & 0.10273e+04_rb,0.77912e+03_rb,0.57716e+03_rb,0.84599e+03_rb,0.11168e+04_rb /)\n      kbo(:, 1,39, 8) = (/ &\n        & 0.10273e+04_rb,0.77914e+03_rb,0.58018e+03_rb,0.85016e+03_rb,0.11221e+04_rb /)\n      kbo(:, 2,39, 8) = (/ &\n        & 0.10273e+04_rb,0.77912e+03_rb,0.57968e+03_rb,0.84939e+03_rb,0.11213e+04_rb /)\n      kbo(:, 3,39, 8) = (/ &\n        & 0.10273e+04_rb,0.77911e+03_rb,0.57905e+03_rb,0.84861e+03_rb,0.11201e+04_rb /)\n      kbo(:, 4,39, 8) = (/ &\n        & 0.10272e+04_rb,0.77910e+03_rb,0.57829e+03_rb,0.84750e+03_rb,0.11187e+04_rb /)\n      kbo(:, 5,39, 8) = (/ &\n        & 0.10272e+04_rb,0.77907e+03_rb,0.57732e+03_rb,0.84617e+03_rb,0.11171e+04_rb /)\n      kbo(:, 1,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77908e+03_rb,0.58028e+03_rb,0.85029e+03_rb,0.11222e+04_rb /)\n      kbo(:, 2,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77906e+03_rb,0.57981e+03_rb,0.84968e+03_rb,0.11215e+04_rb /)\n      kbo(:, 3,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77904e+03_rb,0.57922e+03_rb,0.84885e+03_rb,0.11204e+04_rb /)\n      kbo(:, 4,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77904e+03_rb,0.57849e+03_rb,0.84779e+03_rb,0.11191e+04_rb /)\n      kbo(:, 5,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77901e+03_rb,0.57757e+03_rb,0.84651e+03_rb,0.11176e+04_rb /)\n      kbo(:, 1,41, 8) = (/ &\n        & 0.10272e+04_rb,0.77903e+03_rb,0.58037e+03_rb,0.85041e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,41, 8) = (/ &\n        & 0.10272e+04_rb,0.77902e+03_rb,0.57994e+03_rb,0.84983e+03_rb,0.11217e+04_rb /)\n      kbo(:, 3,41, 8) = (/ &\n        & 0.10271e+04_rb,0.77900e+03_rb,0.57937e+03_rb,0.84906e+03_rb,0.11207e+04_rb /)\n      kbo(:, 4,41, 8) = (/ &\n        & 0.10271e+04_rb,0.77898e+03_rb,0.57870e+03_rb,0.84808e+03_rb,0.11195e+04_rb /)\n      kbo(:, 5,41, 8) = (/ &\n        & 0.10271e+04_rb,0.77898e+03_rb,0.57782e+03_rb,0.84685e+03_rb,0.11180e+04_rb /)\n      kbo(:, 1,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77900e+03_rb,0.58046e+03_rb,0.85051e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77898e+03_rb,0.58006e+03_rb,0.85002e+03_rb,0.11219e+04_rb /)\n      kbo(:, 3,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77896e+03_rb,0.57953e+03_rb,0.84930e+03_rb,0.11210e+04_rb /)\n      kbo(:, 4,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77895e+03_rb,0.57888e+03_rb,0.84835e+03_rb,0.11198e+04_rb /)\n      kbo(:, 5,42, 8) = (/ &\n        & 0.10270e+04_rb,0.77894e+03_rb,0.57806e+03_rb,0.84718e+03_rb,0.11184e+04_rb /)\n      kbo(:, 1,43, 8) = (/ &\n        & 0.10271e+04_rb,0.77895e+03_rb,0.58056e+03_rb,0.85062e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77895e+03_rb,0.58020e+03_rb,0.85017e+03_rb,0.11221e+04_rb /)\n      kbo(:, 3,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77892e+03_rb,0.57970e+03_rb,0.84954e+03_rb,0.11213e+04_rb /)\n      kbo(:, 4,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77892e+03_rb,0.57909e+03_rb,0.84866e+03_rb,0.11202e+04_rb /)\n      kbo(:, 5,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77891e+03_rb,0.57834e+03_rb,0.84756e+03_rb,0.11188e+04_rb /)\n      kbo(:, 1,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77892e+03_rb,0.58064e+03_rb,0.85071e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77891e+03_rb,0.58034e+03_rb,0.85036e+03_rb,0.11223e+04_rb /)\n      kbo(:, 3,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77891e+03_rb,0.57988e+03_rb,0.84979e+03_rb,0.11216e+04_rb /)\n      kbo(:, 4,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77890e+03_rb,0.57931e+03_rb,0.84899e+03_rb,0.11206e+04_rb /)\n      kbo(:, 5,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.57861e+03_rb,0.84797e+03_rb,0.11193e+04_rb /)\n      kbo(:, 1,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77889e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.58047e+03_rb,0.85051e+03_rb,0.11224e+04_rb /)\n      kbo(:, 3,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.58005e+03_rb,0.84999e+03_rb,0.11219e+04_rb /)\n      kbo(:, 4,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.57952e+03_rb,0.84927e+03_rb,0.11210e+04_rb /)\n      kbo(:, 5,45, 8) = (/ &\n        & 0.10269e+04_rb,0.77886e+03_rb,0.57890e+03_rb,0.84837e+03_rb,0.11198e+04_rb /)\n      kbo(:, 1,46, 8) = (/ &\n        & 0.10270e+04_rb,0.77887e+03_rb,0.58072e+03_rb,0.85082e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,46, 8) = (/ &\n        & 0.10270e+04_rb,0.77886e+03_rb,0.58056e+03_rb,0.85063e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,46, 8) = (/ &\n        & 0.10269e+04_rb,0.77886e+03_rb,0.58022e+03_rb,0.85021e+03_rb,0.11221e+04_rb /)\n      kbo(:, 4,46, 8) = (/ &\n        & 0.10270e+04_rb,0.77885e+03_rb,0.57972e+03_rb,0.84957e+03_rb,0.11213e+04_rb /)\n      kbo(:, 5,46, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.57911e+03_rb,0.84871e+03_rb,0.11203e+04_rb /)\n      kbo(:, 1,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77885e+03_rb,0.58070e+03_rb,0.85086e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77886e+03_rb,0.58066e+03_rb,0.85073e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77885e+03_rb,0.58037e+03_rb,0.85041e+03_rb,0.11223e+04_rb /)\n      kbo(:, 4,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.57993e+03_rb,0.84985e+03_rb,0.11217e+04_rb /)\n      kbo(:, 5,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.57937e+03_rb,0.84903e+03_rb,0.11207e+04_rb /)\n      kbo(:, 1,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.58064e+03_rb,0.85086e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58071e+03_rb,0.85080e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58051e+03_rb,0.85055e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58013e+03_rb,0.85010e+03_rb,0.11220e+04_rb /)\n      kbo(:, 5,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.57961e+03_rb,0.84941e+03_rb,0.11212e+04_rb /)\n      kbo(:, 1,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.58054e+03_rb,0.85082e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58072e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58061e+03_rb,0.85068e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58029e+03_rb,0.85032e+03_rb,0.11222e+04_rb /)\n      kbo(:, 5,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.57983e+03_rb,0.84969e+03_rb,0.11215e+04_rb /)\n      kbo(:, 1,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58042e+03_rb,0.85074e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.58068e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58069e+03_rb,0.85077e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58043e+03_rb,0.85048e+03_rb,0.11224e+04_rb /)\n      kbo(:, 5,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58002e+03_rb,0.84997e+03_rb,0.11218e+04_rb /)\n      kbo(:, 1,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.58027e+03_rb,0.85064e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58061e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85082e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58055e+03_rb,0.85061e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.58020e+03_rb,0.85015e+03_rb,0.11221e+04_rb /)\n      kbo(:, 1,52, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58011e+03_rb,0.85051e+03_rb,0.11222e+04_rb /)\n      kbo(:, 2,52, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58051e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)\n      kbo(:, 3,52, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,52, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58064e+03_rb,0.85068e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,52, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58034e+03_rb,0.85037e+03_rb,0.11223e+04_rb /)\n      kbo(:, 1,53, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.57994e+03_rb,0.85036e+03_rb,0.11220e+04_rb /)\n      kbo(:, 2,53, 8) = (/ &\n        & 0.10269e+04_rb,0.77879e+03_rb,0.58038e+03_rb,0.85072e+03_rb,0.11224e+04_rb /)\n      kbo(:, 3,53, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58066e+03_rb,0.85087e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,53, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 5,53, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58047e+03_rb,0.85044e+03_rb,0.11225e+04_rb /)\n      kbo(:, 1,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.57977e+03_rb,0.85022e+03_rb,0.11219e+04_rb /)\n      kbo(:, 2,54, 8) = (/ &\n        & 0.10269e+04_rb,0.77879e+03_rb,0.58026e+03_rb,0.85061e+03_rb,0.11223e+04_rb /)\n      kbo(:, 3,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77881e+03_rb,0.58060e+03_rb,0.85084e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58072e+03_rb,0.85083e+03_rb,0.11227e+04_rb /)\n      kbo(:, 5,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58058e+03_rb,0.85063e+03_rb,0.11226e+04_rb /)\n      kbo(:, 1,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.57962e+03_rb,0.85008e+03_rb,0.11217e+04_rb /)\n      kbo(:, 2,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58011e+03_rb,0.85050e+03_rb,0.11222e+04_rb /)\n      kbo(:, 3,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58050e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58064e+03_rb,0.85072e+03_rb,0.11226e+04_rb /)\n      kbo(:, 1,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57945e+03_rb,0.84993e+03_rb,0.11216e+04_rb /)\n      kbo(:, 2,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.57995e+03_rb,0.85037e+03_rb,0.11220e+04_rb /)\n      kbo(:, 3,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58039e+03_rb,0.85071e+03_rb,0.11224e+04_rb /)\n      kbo(:, 4,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58067e+03_rb,0.85086e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.57927e+03_rb,0.84978e+03_rb,0.11215e+04_rb /)\n      kbo(:, 2,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57979e+03_rb,0.85024e+03_rb,0.11219e+04_rb /)\n      kbo(:, 3,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58025e+03_rb,0.85063e+03_rb,0.11223e+04_rb /)\n      kbo(:, 4,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58060e+03_rb,0.85084e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58071e+03_rb,0.85083e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57911e+03_rb,0.84962e+03_rb,0.11212e+04_rb /)\n      kbo(:, 2,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57964e+03_rb,0.85010e+03_rb,0.11218e+04_rb /)\n      kbo(:, 3,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58013e+03_rb,0.85053e+03_rb,0.11222e+04_rb /)\n      kbo(:, 4,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58052e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)\n      kbo(:, 5,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57904e+03_rb,0.84955e+03_rb,0.11212e+04_rb /)\n      kbo(:, 2,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.57958e+03_rb,0.85006e+03_rb,0.11217e+04_rb /)\n      kbo(:, 3,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58007e+03_rb,0.85048e+03_rb,0.11222e+04_rb /)\n      kbo(:, 4,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58048e+03_rb,0.85078e+03_rb,0.11225e+04_rb /)\n      kbo(:, 5,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58070e+03_rb,0.85086e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,13, 9) = (/ &\n        & 0.11533e+04_rb,0.87327e+03_rb,0.59473e+03_rb,0.87046e+03_rb,0.11487e+04_rb /)\n      kbo(:, 2,13, 9) = (/ &\n        & 0.11444e+04_rb,0.86660e+03_rb,0.59240e+03_rb,0.87005e+03_rb,0.11483e+04_rb /)\n      kbo(:, 3,13, 9) = (/ &\n        & 0.11367e+04_rb,0.86090e+03_rb,0.59185e+03_rb,0.86950e+03_rb,0.11478e+04_rb /)\n      kbo(:, 4,13, 9) = (/ &\n        & 0.11301e+04_rb,0.85587e+03_rb,0.59143e+03_rb,0.86883e+03_rb,0.11469e+04_rb /)\n      kbo(:, 5,13, 9) = (/ &\n        & 0.11242e+04_rb,0.85148e+03_rb,0.59084e+03_rb,0.86797e+03_rb,0.11458e+04_rb /)\n      kbo(:, 1,14, 9) = (/ &\n        & 0.11310e+04_rb,0.85656e+03_rb,0.59238e+03_rb,0.87026e+03_rb,0.11487e+04_rb /)\n      kbo(:, 2,14, 9) = (/ &\n        & 0.11238e+04_rb,0.85118e+03_rb,0.59190e+03_rb,0.86988e+03_rb,0.11483e+04_rb /)\n      kbo(:, 3,14, 9) = (/ &\n        & 0.11176e+04_rb,0.84654e+03_rb,0.59149e+03_rb,0.86931e+03_rb,0.11477e+04_rb /)\n      kbo(:, 4,14, 9) = (/ &\n        & 0.11122e+04_rb,0.84248e+03_rb,0.59105e+03_rb,0.86863e+03_rb,0.11468e+04_rb /)\n      kbo(:, 5,14, 9) = (/ &\n        & 0.11074e+04_rb,0.83890e+03_rb,0.59046e+03_rb,0.86777e+03_rb,0.11457e+04_rb /)\n      kbo(:, 1,15, 9) = (/ &\n        & 0.11128e+04_rb,0.84292e+03_rb,0.59202e+03_rb,0.87009e+03_rb,0.11486e+04_rb /)\n      kbo(:, 2,15, 9) = (/ &\n        & 0.11070e+04_rb,0.83857e+03_rb,0.59157e+03_rb,0.86969e+03_rb,0.11482e+04_rb /)\n      kbo(:, 3,15, 9) = (/ &\n        & 0.11020e+04_rb,0.83480e+03_rb,0.59118e+03_rb,0.86913e+03_rb,0.11476e+04_rb /)\n      kbo(:, 4,15, 9) = (/ &\n        & 0.10976e+04_rb,0.83151e+03_rb,0.59076e+03_rb,0.86843e+03_rb,0.11467e+04_rb /)\n      kbo(:, 5,15, 9) = (/ &\n        & 0.10938e+04_rb,0.82865e+03_rb,0.59015e+03_rb,0.86756e+03_rb,0.11457e+04_rb /)\n      kbo(:, 1,16, 9) = (/ &\n        & 0.10980e+04_rb,0.83182e+03_rb,0.59172e+03_rb,0.86994e+03_rb,0.11486e+04_rb /)\n      kbo(:, 2,16, 9) = (/ &\n        & 0.10933e+04_rb,0.82831e+03_rb,0.59129e+03_rb,0.86966e+03_rb,0.11482e+04_rb /)\n      kbo(:, 3,16, 9) = (/ &\n        & 0.10893e+04_rb,0.82527e+03_rb,0.59092e+03_rb,0.86898e+03_rb,0.11475e+04_rb /)\n      kbo(:, 4,16, 9) = (/ &\n        & 0.10858e+04_rb,0.82261e+03_rb,0.59049e+03_rb,0.86826e+03_rb,0.11466e+04_rb /)\n      kbo(:, 5,16, 9) = (/ &\n        & 0.10827e+04_rb,0.82037e+03_rb,0.58989e+03_rb,0.86738e+03_rb,0.11455e+04_rb /)\n      kbo(:, 1,17, 9) = (/ &\n        & 0.10860e+04_rb,0.82280e+03_rb,0.59147e+03_rb,0.86983e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,17, 9) = (/ &\n        & 0.10822e+04_rb,0.81997e+03_rb,0.59107e+03_rb,0.86941e+03_rb,0.11481e+04_rb /)\n      kbo(:, 3,17, 9) = (/ &\n        & 0.10790e+04_rb,0.81753e+03_rb,0.59070e+03_rb,0.86883e+03_rb,0.11474e+04_rb /)\n      kbo(:, 4,17, 9) = (/ &\n        & 0.10761e+04_rb,0.81539e+03_rb,0.59027e+03_rb,0.86811e+03_rb,0.11465e+04_rb /)\n      kbo(:, 5,17, 9) = (/ &\n        & 0.10736e+04_rb,0.81353e+03_rb,0.58965e+03_rb,0.86721e+03_rb,0.11454e+04_rb /)\n      kbo(:, 1,18, 9) = (/ &\n        & 0.10762e+04_rb,0.81555e+03_rb,0.59126e+03_rb,0.86969e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,18, 9) = (/ &\n        & 0.10732e+04_rb,0.81322e+03_rb,0.59088e+03_rb,0.86928e+03_rb,0.11481e+04_rb /)\n      kbo(:, 3,18, 9) = (/ &\n        & 0.10706e+04_rb,0.81128e+03_rb,0.59052e+03_rb,0.86870e+03_rb,0.11474e+04_rb /)\n      kbo(:, 4,18, 9) = (/ &\n        & 0.10683e+04_rb,0.80956e+03_rb,0.59008e+03_rb,0.86800e+03_rb,0.11464e+04_rb /)\n      kbo(:, 5,18, 9) = (/ &\n        & 0.10663e+04_rb,0.80808e+03_rb,0.58945e+03_rb,0.86705e+03_rb,0.11452e+04_rb /)\n      kbo(:, 1,19, 9) = (/ &\n        & 0.10684e+04_rb,0.80963e+03_rb,0.59108e+03_rb,0.86962e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,19, 9) = (/ &\n        & 0.10659e+04_rb,0.80774e+03_rb,0.59072e+03_rb,0.86917e+03_rb,0.11480e+04_rb /)\n      kbo(:, 3,19, 9) = (/ &\n        & 0.10638e+04_rb,0.80613e+03_rb,0.59038e+03_rb,0.86858e+03_rb,0.11473e+04_rb /)\n      kbo(:, 4,19, 9) = (/ &\n        & 0.10619e+04_rb,0.80481e+03_rb,0.58991e+03_rb,0.86784e+03_rb,0.11463e+04_rb /)\n      kbo(:, 5,19, 9) = (/ &\n        & 0.10603e+04_rb,0.80353e+03_rb,0.58926e+03_rb,0.86690e+03_rb,0.11451e+04_rb /)\n      kbo(:, 1,20, 9) = (/ &\n        & 0.10619e+04_rb,0.80474e+03_rb,0.59092e+03_rb,0.86952e+03_rb,0.11484e+04_rb /)\n      kbo(:, 2,20, 9) = (/ &\n        & 0.10599e+04_rb,0.80326e+03_rb,0.59057e+03_rb,0.86907e+03_rb,0.11479e+04_rb /)\n      kbo(:, 3,20, 9) = (/ &\n        & 0.10582e+04_rb,0.80198e+03_rb,0.59022e+03_rb,0.86845e+03_rb,0.11472e+04_rb /)\n      kbo(:, 4,20, 9) = (/ &\n        & 0.10567e+04_rb,0.80089e+03_rb,0.58976e+03_rb,0.86771e+03_rb,0.11462e+04_rb /)\n      kbo(:, 5,20, 9) = (/ &\n        & 0.10554e+04_rb,0.79986e+03_rb,0.58910e+03_rb,0.86674e+03_rb,0.11449e+04_rb /)\n      kbo(:, 1,21, 9) = (/ &\n        & 0.10567e+04_rb,0.80080e+03_rb,0.59079e+03_rb,0.86945e+03_rb,0.11483e+04_rb /)\n      kbo(:, 2,21, 9) = (/ &\n        & 0.10550e+04_rb,0.79960e+03_rb,0.59045e+03_rb,0.86897e+03_rb,0.11478e+04_rb /)\n      kbo(:, 3,21, 9) = (/ &\n        & 0.10537e+04_rb,0.79858e+03_rb,0.59010e+03_rb,0.86836e+03_rb,0.11471e+04_rb /)\n      kbo(:, 4,21, 9) = (/ &\n        & 0.10525e+04_rb,0.79770e+03_rb,0.58962e+03_rb,0.86752e+03_rb,0.11460e+04_rb /)\n      kbo(:, 5,21, 9) = (/ &\n        & 0.10514e+04_rb,0.79685e+03_rb,0.58893e+03_rb,0.86654e+03_rb,0.11447e+04_rb /)\n      kbo(:, 1,22, 9) = (/ &\n        & 0.10523e+04_rb,0.79754e+03_rb,0.59066e+03_rb,0.86933e+03_rb,0.11483e+04_rb /)\n      kbo(:, 2,22, 9) = (/ &\n        & 0.10510e+04_rb,0.79661e+03_rb,0.59033e+03_rb,0.86884e+03_rb,0.11477e+04_rb /)\n      kbo(:, 3,22, 9) = (/ &\n        & 0.10500e+04_rb,0.79577e+03_rb,0.58997e+03_rb,0.86819e+03_rb,0.11469e+04_rb /)\n      kbo(:, 4,22, 9) = (/ &\n        & 0.10490e+04_rb,0.79506e+03_rb,0.58945e+03_rb,0.86737e+03_rb,0.11458e+04_rb /)\n      kbo(:, 5,22, 9) = (/ &\n        & 0.10482e+04_rb,0.79443e+03_rb,0.58872e+03_rb,0.86635e+03_rb,0.11444e+04_rb /)\n      kbo(:, 1,23, 9) = (/ &\n        & 0.10488e+04_rb,0.79491e+03_rb,0.59053e+03_rb,0.86922e+03_rb,0.11482e+04_rb /)\n      kbo(:, 2,23, 9) = (/ &\n        & 0.10478e+04_rb,0.79417e+03_rb,0.59023e+03_rb,0.86872e+03_rb,0.11476e+04_rb /)\n      kbo(:, 3,23, 9) = (/ &\n        & 0.10469e+04_rb,0.79351e+03_rb,0.58983e+03_rb,0.86802e+03_rb,0.11467e+04_rb /)\n      kbo(:, 4,23, 9) = (/ &\n        & 0.10461e+04_rb,0.79293e+03_rb,0.58929e+03_rb,0.86717e+03_rb,0.11456e+04_rb /)\n      kbo(:, 5,23, 9) = (/ &\n        & 0.10455e+04_rb,0.79241e+03_rb,0.58851e+03_rb,0.86610e+03_rb,0.11442e+04_rb /)\n      kbo(:, 1,24, 9) = (/ &\n        & 0.10460e+04_rb,0.79285e+03_rb,0.59042e+03_rb,0.86910e+03_rb,0.11481e+04_rb /)\n      kbo(:, 2,24, 9) = (/ &\n        & 0.10452e+04_rb,0.79220e+03_rb,0.59009e+03_rb,0.86856e+03_rb,0.11474e+04_rb /)\n      kbo(:, 3,24, 9) = (/ &\n        & 0.10445e+04_rb,0.79170e+03_rb,0.58968e+03_rb,0.86785e+03_rb,0.11465e+04_rb /)\n      kbo(:, 4,24, 9) = (/ &\n        & 0.10439e+04_rb,0.79123e+03_rb,0.58911e+03_rb,0.86698e+03_rb,0.11453e+04_rb /)\n      kbo(:, 5,24, 9) = (/ &\n        & 0.10433e+04_rb,0.79086e+03_rb,0.58830e+03_rb,0.86584e+03_rb,0.11439e+04_rb /)\n      kbo(:, 1,25, 9) = (/ &\n        & 0.10438e+04_rb,0.79109e+03_rb,0.59032e+03_rb,0.86899e+03_rb,0.11480e+04_rb /)\n      kbo(:, 2,25, 9) = (/ &\n        & 0.10430e+04_rb,0.79059e+03_rb,0.58999e+03_rb,0.86841e+03_rb,0.11473e+04_rb /)\n      kbo(:, 3,25, 9) = (/ &\n        & 0.10425e+04_rb,0.79018e+03_rb,0.58955e+03_rb,0.86768e+03_rb,0.11463e+04_rb /)\n      kbo(:, 4,25, 9) = (/ &\n        & 0.10420e+04_rb,0.78985e+03_rb,0.58893e+03_rb,0.86674e+03_rb,0.11450e+04_rb /)\n      kbo(:, 5,25, 9) = (/ &\n        & 0.10416e+04_rb,0.78947e+03_rb,0.58810e+03_rb,0.86557e+03_rb,0.11436e+04_rb /)\n      kbo(:, 1,26, 9) = (/ &\n        & 0.10418e+04_rb,0.78966e+03_rb,0.59022e+03_rb,0.86886e+03_rb,0.11478e+04_rb /)\n      kbo(:, 2,26, 9) = (/ &\n        & 0.10414e+04_rb,0.78932e+03_rb,0.58989e+03_rb,0.86824e+03_rb,0.11471e+04_rb /)\n      kbo(:, 3,26, 9) = (/ &\n        & 0.10409e+04_rb,0.78898e+03_rb,0.58940e+03_rb,0.86743e+03_rb,0.11460e+04_rb /)\n      kbo(:, 4,26, 9) = (/ &\n        & 0.10405e+04_rb,0.78870e+03_rb,0.58873e+03_rb,0.86647e+03_rb,0.11447e+04_rb /)\n      kbo(:, 5,26, 9) = (/ &\n        & 0.10401e+04_rb,0.78842e+03_rb,0.58782e+03_rb,0.86527e+03_rb,0.11432e+04_rb /)\n      kbo(:, 1,27, 9) = (/ &\n        & 0.10403e+04_rb,0.78855e+03_rb,0.59012e+03_rb,0.86872e+03_rb,0.11477e+04_rb /)\n      kbo(:, 2,27, 9) = (/ &\n        & 0.10399e+04_rb,0.78827e+03_rb,0.58977e+03_rb,0.86806e+03_rb,0.11468e+04_rb /)\n      kbo(:, 3,27, 9) = (/ &\n        & 0.10396e+04_rb,0.78799e+03_rb,0.58924e+03_rb,0.86723e+03_rb,0.11458e+04_rb /)\n      kbo(:, 4,27, 9) = (/ &\n        & 0.10392e+04_rb,0.78776e+03_rb,0.58850e+03_rb,0.86619e+03_rb,0.11444e+04_rb /)\n      kbo(:, 5,27, 9) = (/ &\n        & 0.10390e+04_rb,0.78757e+03_rb,0.58756e+03_rb,0.86495e+03_rb,0.11428e+04_rb /)\n      kbo(:, 1,28, 9) = (/ &\n        & 0.10391e+04_rb,0.78770e+03_rb,0.59002e+03_rb,0.86856e+03_rb,0.11475e+04_rb /)\n      kbo(:, 2,28, 9) = (/ &\n        & 0.10388e+04_rb,0.78747e+03_rb,0.58964e+03_rb,0.86790e+03_rb,0.11466e+04_rb /)\n      kbo(:, 3,28, 9) = (/ &\n        & 0.10385e+04_rb,0.78719e+03_rb,0.58908e+03_rb,0.86701e+03_rb,0.11455e+04_rb /)\n      kbo(:, 4,28, 9) = (/ &\n        & 0.10383e+04_rb,0.78704e+03_rb,0.58829e+03_rb,0.86590e+03_rb,0.11440e+04_rb /)\n      kbo(:, 5,28, 9) = (/ &\n        & 0.10381e+04_rb,0.78687e+03_rb,0.58729e+03_rb,0.86461e+03_rb,0.11423e+04_rb /)\n      kbo(:, 1,29, 9) = (/ &\n        & 0.10382e+04_rb,0.78694e+03_rb,0.58994e+03_rb,0.86841e+03_rb,0.11473e+04_rb /)\n      kbo(:, 2,29, 9) = (/ &\n        & 0.10379e+04_rb,0.78677e+03_rb,0.58950e+03_rb,0.86767e+03_rb,0.11463e+04_rb /)\n      kbo(:, 3,29, 9) = (/ &\n        & 0.10377e+04_rb,0.78658e+03_rb,0.58888e+03_rb,0.86674e+03_rb,0.11451e+04_rb /)\n      kbo(:, 4,29, 9) = (/ &\n        & 0.10375e+04_rb,0.78645e+03_rb,0.58805e+03_rb,0.86559e+03_rb,0.11436e+04_rb /)\n      kbo(:, 5,29, 9) = (/ &\n        & 0.10374e+04_rb,0.78628e+03_rb,0.58702e+03_rb,0.86429e+03_rb,0.11419e+04_rb /)\n      kbo(:, 1,30, 9) = (/ &\n        & 0.10373e+04_rb,0.78632e+03_rb,0.58983e+03_rb,0.86822e+03_rb,0.11471e+04_rb /)\n      kbo(:, 2,30, 9) = (/ &\n        & 0.10371e+04_rb,0.78619e+03_rb,0.58935e+03_rb,0.86746e+03_rb,0.11460e+04_rb /)\n      kbo(:, 3,30, 9) = (/ &\n        & 0.10370e+04_rb,0.78613e+03_rb,0.58869e+03_rb,0.86647e+03_rb,0.11448e+04_rb /)\n      kbo(:, 4,30, 9) = (/ &\n        & 0.10369e+04_rb,0.78594e+03_rb,0.58779e+03_rb,0.86529e+03_rb,0.11432e+04_rb /)\n      kbo(:, 5,30, 9) = (/ &\n        & 0.10367e+04_rb,0.78585e+03_rb,0.58673e+03_rb,0.86393e+03_rb,0.11414e+04_rb /)\n      kbo(:, 1,31, 9) = (/ &\n        & 0.10367e+04_rb,0.78588e+03_rb,0.58971e+03_rb,0.86804e+03_rb,0.11468e+04_rb /)\n      kbo(:, 2,31, 9) = (/ &\n        & 0.10365e+04_rb,0.78574e+03_rb,0.58919e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)\n      kbo(:, 3,31, 9) = (/ &\n        & 0.10364e+04_rb,0.78562e+03_rb,0.58847e+03_rb,0.86618e+03_rb,0.11443e+04_rb /)\n      kbo(:, 4,31, 9) = (/ &\n        & 0.10363e+04_rb,0.78557e+03_rb,0.58752e+03_rb,0.86495e+03_rb,0.11427e+04_rb /)\n      kbo(:, 5,31, 9) = (/ &\n        & 0.10362e+04_rb,0.78546e+03_rb,0.58644e+03_rb,0.86356e+03_rb,0.11409e+04_rb /)\n      kbo(:, 1,32, 9) = (/ &\n        & 0.10362e+04_rb,0.78556e+03_rb,0.58958e+03_rb,0.86784e+03_rb,0.11466e+04_rb /)\n      kbo(:, 2,32, 9) = (/ &\n        & 0.10361e+04_rb,0.78539e+03_rb,0.58901e+03_rb,0.86697e+03_rb,0.11454e+04_rb /)\n      kbo(:, 3,32, 9) = (/ &\n        & 0.10360e+04_rb,0.78539e+03_rb,0.58824e+03_rb,0.86587e+03_rb,0.11440e+04_rb /)\n      kbo(:, 4,32, 9) = (/ &\n        & 0.10359e+04_rb,0.78525e+03_rb,0.58724e+03_rb,0.86459e+03_rb,0.11423e+04_rb /)\n      kbo(:, 5,32, 9) = (/ &\n        & 0.10358e+04_rb,0.78516e+03_rb,0.58615e+03_rb,0.86318e+03_rb,0.11404e+04_rb /)\n      kbo(:, 1,33, 9) = (/ &\n        & 0.10358e+04_rb,0.78520e+03_rb,0.58945e+03_rb,0.86763e+03_rb,0.11463e+04_rb /)\n      kbo(:, 2,33, 9) = (/ &\n        & 0.10357e+04_rb,0.78510e+03_rb,0.58883e+03_rb,0.86670e+03_rb,0.11450e+04_rb /)\n      kbo(:, 3,33, 9) = (/ &\n        & 0.10356e+04_rb,0.78504e+03_rb,0.58799e+03_rb,0.86554e+03_rb,0.11435e+04_rb /)\n      kbo(:, 4,33, 9) = (/ &\n        & 0.10356e+04_rb,0.78500e+03_rb,0.58695e+03_rb,0.86422e+03_rb,0.11418e+04_rb /)\n      kbo(:, 5,33, 9) = (/ &\n        & 0.10355e+04_rb,0.78493e+03_rb,0.58586e+03_rb,0.86281e+03_rb,0.11399e+04_rb /)\n      kbo(:, 1,34, 9) = (/ &\n        & 0.10355e+04_rb,0.78495e+03_rb,0.58932e+03_rb,0.86743e+03_rb,0.11460e+04_rb /)\n      kbo(:, 2,34, 9) = (/ &\n        & 0.10354e+04_rb,0.78487e+03_rb,0.58865e+03_rb,0.86644e+03_rb,0.11447e+04_rb /)\n      kbo(:, 3,34, 9) = (/ &\n        & 0.10354e+04_rb,0.78485e+03_rb,0.58776e+03_rb,0.86524e+03_rb,0.11432e+04_rb /)\n      kbo(:, 4,34, 9) = (/ &\n        & 0.10353e+04_rb,0.78479e+03_rb,0.58670e+03_rb,0.86390e+03_rb,0.11414e+04_rb /)\n      kbo(:, 5,34, 9) = (/ &\n        & 0.10352e+04_rb,0.78474e+03_rb,0.58560e+03_rb,0.86249e+03_rb,0.11395e+04_rb /)\n      kbo(:, 1,35, 9) = (/ &\n        & 0.10352e+04_rb,0.78478e+03_rb,0.58924e+03_rb,0.86731e+03_rb,0.11459e+04_rb /)\n      kbo(:, 2,35, 9) = (/ &\n        & 0.10352e+04_rb,0.78472e+03_rb,0.58855e+03_rb,0.86632e+03_rb,0.11445e+04_rb /)\n      kbo(:, 3,35, 9) = (/ &\n        & 0.10351e+04_rb,0.78465e+03_rb,0.58761e+03_rb,0.86508e+03_rb,0.11430e+04_rb /)\n      kbo(:, 4,35, 9) = (/ &\n        & 0.10350e+04_rb,0.78465e+03_rb,0.58655e+03_rb,0.86369e+03_rb,0.11412e+04_rb /)\n      kbo(:, 5,35, 9) = (/ &\n        & 0.10350e+04_rb,0.78456e+03_rb,0.58545e+03_rb,0.86237e+03_rb,0.11393e+04_rb /)\n      kbo(:, 1,36, 9) = (/ &\n        & 0.10350e+04_rb,0.78465e+03_rb,0.58922e+03_rb,0.86729e+03_rb,0.11458e+04_rb /)\n      kbo(:, 2,36, 9) = (/ &\n        & 0.10350e+04_rb,0.78456e+03_rb,0.58852e+03_rb,0.86627e+03_rb,0.11445e+04_rb /)\n      kbo(:, 3,36, 9) = (/ &\n        & 0.10350e+04_rb,0.78452e+03_rb,0.58759e+03_rb,0.86505e+03_rb,0.11429e+04_rb /)\n      kbo(:, 4,36, 9) = (/ &\n        & 0.10349e+04_rb,0.78450e+03_rb,0.58651e+03_rb,0.86369e+03_rb,0.11411e+04_rb /)\n      kbo(:, 5,36, 9) = (/ &\n        & 0.10348e+04_rb,0.78444e+03_rb,0.58544e+03_rb,0.86227e+03_rb,0.11392e+04_rb /)\n      kbo(:, 1,37, 9) = (/ &\n        & 0.10349e+04_rb,0.78446e+03_rb,0.58930e+03_rb,0.86738e+03_rb,0.11460e+04_rb /)\n      kbo(:, 2,37, 9) = (/ &\n        & 0.10348e+04_rb,0.78444e+03_rb,0.58863e+03_rb,0.86642e+03_rb,0.11447e+04_rb /)\n      kbo(:, 3,37, 9) = (/ &\n        & 0.10348e+04_rb,0.78441e+03_rb,0.58773e+03_rb,0.86522e+03_rb,0.11432e+04_rb /)\n      kbo(:, 4,37, 9) = (/ &\n        & 0.10348e+04_rb,0.78439e+03_rb,0.58667e+03_rb,0.86387e+03_rb,0.11414e+04_rb /)\n      kbo(:, 5,37, 9) = (/ &\n        & 0.10347e+04_rb,0.78436e+03_rb,0.58559e+03_rb,0.86245e+03_rb,0.11394e+04_rb /)\n      kbo(:, 1,38, 9) = (/ &\n        & 0.10348e+04_rb,0.78440e+03_rb,0.58936e+03_rb,0.86753e+03_rb,0.11462e+04_rb /)\n      kbo(:, 2,38, 9) = (/ &\n        & 0.10347e+04_rb,0.78434e+03_rb,0.58873e+03_rb,0.86658e+03_rb,0.11449e+04_rb /)\n      kbo(:, 3,38, 9) = (/ &\n        & 0.10347e+04_rb,0.78432e+03_rb,0.58786e+03_rb,0.86537e+03_rb,0.11434e+04_rb /)\n      kbo(:, 4,38, 9) = (/ &\n        & 0.10346e+04_rb,0.78431e+03_rb,0.58681e+03_rb,0.86407e+03_rb,0.11416e+04_rb /)\n      kbo(:, 5,38, 9) = (/ &\n        & 0.10347e+04_rb,0.78428e+03_rb,0.58573e+03_rb,0.86265e+03_rb,0.11397e+04_rb /)\n      kbo(:, 1,39, 9) = (/ &\n        & 0.10347e+04_rb,0.78431e+03_rb,0.58943e+03_rb,0.86764e+03_rb,0.11463e+04_rb /)\n      kbo(:, 2,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78431e+03_rb,0.58882e+03_rb,0.86672e+03_rb,0.11451e+04_rb /)\n      kbo(:, 3,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78424e+03_rb,0.58800e+03_rb,0.86557e+03_rb,0.11436e+04_rb /)\n      kbo(:, 4,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78421e+03_rb,0.58697e+03_rb,0.86426e+03_rb,0.11419e+04_rb /)\n      kbo(:, 5,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78429e+03_rb,0.58587e+03_rb,0.86284e+03_rb,0.11400e+04_rb /)\n      kbo(:, 1,40, 9) = (/ &\n        & 0.10346e+04_rb,0.78426e+03_rb,0.58957e+03_rb,0.86785e+03_rb,0.11466e+04_rb /)\n      kbo(:, 2,40, 9) = (/ &\n        & 0.10345e+04_rb,0.78427e+03_rb,0.58899e+03_rb,0.86697e+03_rb,0.11454e+04_rb /)\n      kbo(:, 3,40, 9) = (/ &\n        & 0.10345e+04_rb,0.78422e+03_rb,0.58822e+03_rb,0.86585e+03_rb,0.11440e+04_rb /)\n      kbo(:, 4,40, 9) = (/ &\n        & 0.10345e+04_rb,0.78421e+03_rb,0.58723e+03_rb,0.86460e+03_rb,0.11423e+04_rb /)\n      kbo(:, 5,40, 9) = (/ &\n        & 0.10344e+04_rb,0.78416e+03_rb,0.58614e+03_rb,0.86319e+03_rb,0.11403e+04_rb /)\n      kbo(:, 1,41, 9) = (/ &\n        & 0.10345e+04_rb,0.78421e+03_rb,0.58967e+03_rb,0.86804e+03_rb,0.11468e+04_rb /)\n      kbo(:, 2,41, 9) = (/ &\n        & 0.10345e+04_rb,0.78418e+03_rb,0.58916e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)\n      kbo(:, 3,41, 9) = (/ &\n        & 0.10344e+04_rb,0.78415e+03_rb,0.58844e+03_rb,0.86618e+03_rb,0.11444e+04_rb /)\n      kbo(:, 4,41, 9) = (/ &\n        & 0.10344e+04_rb,0.78413e+03_rb,0.58748e+03_rb,0.86492e+03_rb,0.11428e+04_rb /)\n      kbo(:, 5,41, 9) = (/ &\n        & 0.10344e+04_rb,0.78411e+03_rb,0.58642e+03_rb,0.86355e+03_rb,0.11409e+04_rb /)\n      kbo(:, 1,42, 9) = (/ &\n        & 0.10345e+04_rb,0.78414e+03_rb,0.58976e+03_rb,0.86830e+03_rb,0.11471e+04_rb /)\n      kbo(:, 2,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78417e+03_rb,0.58930e+03_rb,0.86744e+03_rb,0.11460e+04_rb /)\n      kbo(:, 3,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78411e+03_rb,0.58863e+03_rb,0.86645e+03_rb,0.11448e+04_rb /)\n      kbo(:, 4,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78409e+03_rb,0.58775e+03_rb,0.86525e+03_rb,0.11432e+04_rb /)\n      kbo(:, 5,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78408e+03_rb,0.58670e+03_rb,0.86391e+03_rb,0.11414e+04_rb /)\n      kbo(:, 1,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78410e+03_rb,0.58987e+03_rb,0.86842e+03_rb,0.11473e+04_rb /)\n      kbo(:, 2,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78408e+03_rb,0.58947e+03_rb,0.86769e+03_rb,0.11464e+04_rb /)\n      kbo(:, 3,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78409e+03_rb,0.58887e+03_rb,0.86678e+03_rb,0.11452e+04_rb /)\n      kbo(:, 4,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78410e+03_rb,0.58806e+03_rb,0.86567e+03_rb,0.11437e+04_rb /)\n      kbo(:, 5,43, 9) = (/ &\n        & 0.10343e+04_rb,0.78406e+03_rb,0.58704e+03_rb,0.86435e+03_rb,0.11420e+04_rb /)\n      kbo(:, 1,44, 9) = (/ &\n        & 0.10344e+04_rb,0.78409e+03_rb,0.58998e+03_rb,0.86862e+03_rb,0.11476e+04_rb /)\n      kbo(:, 2,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78407e+03_rb,0.58962e+03_rb,0.86796e+03_rb,0.11467e+04_rb /)\n      kbo(:, 3,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78406e+03_rb,0.58910e+03_rb,0.86711e+03_rb,0.11456e+04_rb /)\n      kbo(:, 4,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58835e+03_rb,0.86607e+03_rb,0.11442e+04_rb /)\n      kbo(:, 5,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58738e+03_rb,0.86483e+03_rb,0.11426e+04_rb /)\n      kbo(:, 1,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78404e+03_rb,0.59009e+03_rb,0.86881e+03_rb,0.11478e+04_rb /)\n      kbo(:, 2,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78405e+03_rb,0.58975e+03_rb,0.86821e+03_rb,0.11471e+04_rb /)\n      kbo(:, 3,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78404e+03_rb,0.58930e+03_rb,0.86741e+03_rb,0.11460e+04_rb /)\n      kbo(:, 4,45, 9) = (/ &\n        & 0.10342e+04_rb,0.78400e+03_rb,0.58862e+03_rb,0.86644e+03_rb,0.11447e+04_rb /)\n      kbo(:, 5,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78402e+03_rb,0.58769e+03_rb,0.86520e+03_rb,0.11432e+04_rb /)\n      kbo(:, 1,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.59019e+03_rb,0.86899e+03_rb,0.11481e+04_rb /)\n      kbo(:, 2,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58989e+03_rb,0.86845e+03_rb,0.11474e+04_rb /)\n      kbo(:, 3,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58947e+03_rb,0.86773e+03_rb,0.11464e+04_rb /)\n      kbo(:, 4,46, 9) = (/ &\n        & 0.10342e+04_rb,0.78401e+03_rb,0.58890e+03_rb,0.86681e+03_rb,0.11452e+04_rb /)\n      kbo(:, 5,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78405e+03_rb,0.58808e+03_rb,0.86568e+03_rb,0.11438e+04_rb /)\n      kbo(:, 1,47, 9) = (/ &\n        & 0.10343e+04_rb,0.78401e+03_rb,0.59032e+03_rb,0.86917e+03_rb,0.11483e+04_rb /)\n      kbo(:, 2,47, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.59001e+03_rb,0.86868e+03_rb,0.11477e+04_rb /)\n      kbo(:, 3,47, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.58967e+03_rb,0.86807e+03_rb,0.11468e+04_rb /)\n      kbo(:, 4,47, 9) = (/ &\n        & 0.10343e+04_rb,0.78397e+03_rb,0.58916e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)\n      kbo(:, 5,47, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58844e+03_rb,0.86618e+03_rb,0.11444e+04_rb /)\n      kbo(:, 1,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.59046e+03_rb,0.86932e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,48, 9) = (/ &\n        & 0.10343e+04_rb,0.78398e+03_rb,0.59013e+03_rb,0.86890e+03_rb,0.11480e+04_rb /)\n      kbo(:, 3,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78402e+03_rb,0.58982e+03_rb,0.86829e+03_rb,0.11472e+04_rb /)\n      kbo(:, 4,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.58938e+03_rb,0.86756e+03_rb,0.11462e+04_rb /)\n      kbo(:, 5,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78400e+03_rb,0.58875e+03_rb,0.86661e+03_rb,0.11449e+04_rb /)\n      kbo(:, 1,49, 9) = (/ &\n        & 0.10343e+04_rb,0.78402e+03_rb,0.59060e+03_rb,0.86945e+03_rb,0.11486e+04_rb /)\n      kbo(:, 2,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.59025e+03_rb,0.86908e+03_rb,0.11482e+04_rb /)\n      kbo(:, 3,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58995e+03_rb,0.86856e+03_rb,0.11475e+04_rb /)\n      kbo(:, 4,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58958e+03_rb,0.86790e+03_rb,0.11466e+04_rb /)\n      kbo(:, 5,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.58903e+03_rb,0.86700e+03_rb,0.11455e+04_rb /)\n      kbo(:, 1,50, 9) = (/ &\n        & 0.10343e+04_rb,0.78395e+03_rb,0.59074e+03_rb,0.86956e+03_rb,0.11487e+04_rb /)\n      kbo(:, 2,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.59038e+03_rb,0.86924e+03_rb,0.11483e+04_rb /)\n      kbo(:, 3,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.59006e+03_rb,0.86878e+03_rb,0.11478e+04_rb /)\n      kbo(:, 4,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58974e+03_rb,0.86817e+03_rb,0.11470e+04_rb /)\n      kbo(:, 5,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58927e+03_rb,0.86736e+03_rb,0.11460e+04_rb /)\n      kbo(:, 1,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.59088e+03_rb,0.86965e+03_rb,0.11488e+04_rb /)\n      kbo(:, 2,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59051e+03_rb,0.86937e+03_rb,0.11485e+04_rb /)\n      kbo(:, 3,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78400e+03_rb,0.59018e+03_rb,0.86897e+03_rb,0.11480e+04_rb /)\n      kbo(:, 4,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.58987e+03_rb,0.86840e+03_rb,0.11473e+04_rb /)\n      kbo(:, 5,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.58946e+03_rb,0.86768e+03_rb,0.11464e+04_rb /)\n      kbo(:, 1,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59100e+03_rb,0.86971e+03_rb,0.11490e+04_rb /)\n      kbo(:, 2,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.59064e+03_rb,0.86949e+03_rb,0.11486e+04_rb /)\n      kbo(:, 3,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59029e+03_rb,0.86915e+03_rb,0.11482e+04_rb /)\n      kbo(:, 4,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.58998e+03_rb,0.86864e+03_rb,0.11476e+04_rb /)\n      kbo(:, 5,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58963e+03_rb,0.86796e+03_rb,0.11468e+04_rb /)\n      kbo(:, 1,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78397e+03_rb,0.59111e+03_rb,0.86975e+03_rb,0.11490e+04_rb /)\n      kbo(:, 2,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.59078e+03_rb,0.86960e+03_rb,0.11488e+04_rb /)\n      kbo(:, 3,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59041e+03_rb,0.86926e+03_rb,0.11484e+04_rb /)\n      kbo(:, 4,53, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59010e+03_rb,0.86884e+03_rb,0.11479e+04_rb /)\n      kbo(:, 5,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58977e+03_rb,0.86822e+03_rb,0.11471e+04_rb /)\n      kbo(:, 1,54, 9) = (/ &\n        & 0.10343e+04_rb,0.78394e+03_rb,0.59121e+03_rb,0.86979e+03_rb,0.11491e+04_rb /)\n      kbo(:, 2,54, 9) = (/ &\n        & 0.10341e+04_rb,0.78399e+03_rb,0.59088e+03_rb,0.86966e+03_rb,0.11489e+04_rb /)\n      kbo(:, 3,54, 9) = (/ &\n        & 0.10341e+04_rb,0.78394e+03_rb,0.59052e+03_rb,0.86939e+03_rb,0.11485e+04_rb /)\n      kbo(:, 4,54, 9) = (/ &\n        & 0.10341e+04_rb,0.78394e+03_rb,0.59020e+03_rb,0.86900e+03_rb,0.11481e+04_rb /)\n      kbo(:, 5,54, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58987e+03_rb,0.86845e+03_rb,0.11474e+04_rb /)\n      kbo(:, 1,55, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59130e+03_rb,0.86983e+03_rb,0.11491e+04_rb /)\n      kbo(:, 2,55, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59100e+03_rb,0.86971e+03_rb,0.11490e+04_rb /)\n      kbo(:, 3,55, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59065e+03_rb,0.86949e+03_rb,0.11486e+04_rb /)\n      kbo(:, 4,55, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59029e+03_rb,0.86914e+03_rb,0.11483e+04_rb /)\n      kbo(:, 5,55, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59000e+03_rb,0.86864e+03_rb,0.11477e+04_rb /)\n      kbo(:, 1,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59137e+03_rb,0.86987e+03_rb,0.11492e+04_rb /)\n      kbo(:, 2,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59111e+03_rb,0.86975e+03_rb,0.11490e+04_rb /)\n      kbo(:, 3,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78392e+03_rb,0.59077e+03_rb,0.86958e+03_rb,0.11488e+04_rb /)\n      kbo(:, 4,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59040e+03_rb,0.86926e+03_rb,0.11484e+04_rb /)\n      kbo(:, 5,56, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59009e+03_rb,0.86883e+03_rb,0.11479e+04_rb /)\n      kbo(:, 1,57, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59143e+03_rb,0.86993e+03_rb,0.11492e+04_rb /)\n      kbo(:, 2,57, 9) = (/ &\n        & 0.10342e+04_rb,0.78392e+03_rb,0.59122e+03_rb,0.86979e+03_rb,0.11491e+04_rb /)\n      kbo(:, 3,57, 9) = (/ &\n        & 0.10342e+04_rb,0.78392e+03_rb,0.59089e+03_rb,0.86966e+03_rb,0.11489e+04_rb /)\n      kbo(:, 4,57, 9) = (/ &\n        & 0.10341e+04_rb,0.78395e+03_rb,0.59052e+03_rb,0.86938e+03_rb,0.11485e+04_rb /)\n      kbo(:, 5,57, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59018e+03_rb,0.86897e+03_rb,0.11481e+04_rb /)\n      kbo(:, 1,58, 9) = (/ &\n        & 0.10341e+04_rb,0.78395e+03_rb,0.59147e+03_rb,0.86996e+03_rb,0.11493e+04_rb /)\n      kbo(:, 2,58, 9) = (/ &\n        & 0.10341e+04_rb,0.78397e+03_rb,0.59129e+03_rb,0.86982e+03_rb,0.11491e+04_rb /)\n      kbo(:, 3,58, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59099e+03_rb,0.86970e+03_rb,0.11489e+04_rb /)\n      kbo(:, 4,58, 9) = (/ &\n        & 0.10342e+04_rb,0.78397e+03_rb,0.59063e+03_rb,0.86948e+03_rb,0.11486e+04_rb /)\n      kbo(:, 5,58, 9) = (/ &\n        & 0.10342e+04_rb,0.78390e+03_rb,0.59028e+03_rb,0.86913e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,59, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59148e+03_rb,0.86998e+03_rb,0.11494e+04_rb /)\n      kbo(:, 2,59, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59132e+03_rb,0.86982e+03_rb,0.11492e+04_rb /)\n      kbo(:, 3,59, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59103e+03_rb,0.86972e+03_rb,0.11490e+04_rb /)\n      kbo(:, 4,59, 9) = (/ &\n        & 0.10341e+04_rb,0.78394e+03_rb,0.59067e+03_rb,0.86951e+03_rb,0.11487e+04_rb /)\n      kbo(:, 5,59, 9) = (/ &\n        & 0.10341e+04_rb,0.78397e+03_rb,0.59032e+03_rb,0.86918e+03_rb,0.11483e+04_rb /)\n      kbo(:, 1,13,10) = (/ &\n        & 0.11544e+04_rb,0.87486e+03_rb,0.59975e+03_rb,0.88029e+03_rb,0.11631e+04_rb /)\n      kbo(:, 2,13,10) = (/ &\n        & 0.11458e+04_rb,0.86752e+03_rb,0.59921e+03_rb,0.87889e+03_rb,0.11611e+04_rb /)\n      kbo(:, 3,13,10) = (/ &\n        & 0.11380e+04_rb,0.86177e+03_rb,0.59836e+03_rb,0.87789e+03_rb,0.11592e+04_rb /)\n      kbo(:, 4,13,10) = (/ &\n        & 0.11310e+04_rb,0.85697e+03_rb,0.59745e+03_rb,0.87697e+03_rb,0.11577e+04_rb /)\n      kbo(:, 5,13,10) = (/ &\n        & 0.11259e+04_rb,0.85279e+03_rb,0.59663e+03_rb,0.87606e+03_rb,0.11564e+04_rb /)\n      kbo(:, 1,14,10) = (/ &\n        & 0.11329e+04_rb,0.85757e+03_rb,0.59935e+03_rb,0.88000e+03_rb,0.11630e+04_rb /)\n      kbo(:, 2,14,10) = (/ &\n        & 0.11257e+04_rb,0.85228e+03_rb,0.59878e+03_rb,0.87841e+03_rb,0.11609e+04_rb /)\n      kbo(:, 3,14,10) = (/ &\n        & 0.11201e+04_rb,0.84731e+03_rb,0.59797e+03_rb,0.87766e+03_rb,0.11591e+04_rb /)\n      kbo(:, 4,14,10) = (/ &\n        & 0.11140e+04_rb,0.84389e+03_rb,0.59731e+03_rb,0.87707e+03_rb,0.11577e+04_rb /)\n      kbo(:, 5,14,10) = (/ &\n        & 0.11094e+04_rb,0.84001e+03_rb,0.59642e+03_rb,0.87571e+03_rb,0.11561e+04_rb /)\n      kbo(:, 1,15,10) = (/ &\n        & 0.11142e+04_rb,0.84370e+03_rb,0.59900e+03_rb,0.87973e+03_rb,0.11627e+04_rb /)\n      kbo(:, 2,15,10) = (/ &\n        & 0.11097e+04_rb,0.84029e+03_rb,0.59841e+03_rb,0.87827e+03_rb,0.11607e+04_rb /)\n      kbo(:, 3,15,10) = (/ &\n        & 0.11039e+04_rb,0.83570e+03_rb,0.59763e+03_rb,0.87745e+03_rb,0.11587e+04_rb /)\n      kbo(:, 4,15,10) = (/ &\n        & 0.10995e+04_rb,0.83295e+03_rb,0.59685e+03_rb,0.87664e+03_rb,0.11574e+04_rb /)\n      kbo(:, 5,15,10) = (/ &\n        & 0.10956e+04_rb,0.82966e+03_rb,0.59611e+03_rb,0.87548e+03_rb,0.11555e+04_rb /)\n      kbo(:, 1,16,10) = (/ &\n        & 0.11006e+04_rb,0.83290e+03_rb,0.59871e+03_rb,0.87947e+03_rb,0.11625e+04_rb /)\n      kbo(:, 2,16,10) = (/ &\n        & 0.10967e+04_rb,0.82960e+03_rb,0.59809e+03_rb,0.87696e+03_rb,0.11605e+04_rb /)\n      kbo(:, 3,16,10) = (/ &\n        & 0.10908e+04_rb,0.82627e+03_rb,0.59735e+03_rb,0.87716e+03_rb,0.11587e+04_rb /)\n      kbo(:, 4,16,10) = (/ &\n        & 0.10878e+04_rb,0.82496e+03_rb,0.59665e+03_rb,0.87645e+03_rb,0.11573e+04_rb /)\n      kbo(:, 5,16,10) = (/ &\n        & 0.10846e+04_rb,0.82140e+03_rb,0.59584e+03_rb,0.87537e+03_rb,0.11556e+04_rb /)\n      kbo(:, 1,17,10) = (/ &\n        & 0.10872e+04_rb,0.82399e+03_rb,0.59847e+03_rb,0.87912e+03_rb,0.11623e+04_rb /)\n      kbo(:, 2,17,10) = (/ &\n        & 0.10836e+04_rb,0.82137e+03_rb,0.59782e+03_rb,0.87785e+03_rb,0.11604e+04_rb /)\n      kbo(:, 3,17,10) = (/ &\n        & 0.10806e+04_rb,0.81903e+03_rb,0.59710e+03_rb,0.87700e+03_rb,0.11586e+04_rb /)\n      kbo(:, 4,17,10) = (/ &\n        & 0.10781e+04_rb,0.81649e+03_rb,0.59641e+03_rb,0.87627e+03_rb,0.11571e+04_rb /)\n      kbo(:, 5,17,10) = (/ &\n        & 0.10750e+04_rb,0.81461e+03_rb,0.59560e+03_rb,0.87517e+03_rb,0.11554e+04_rb /)\n      kbo(:, 1,18,10) = (/ &\n        & 0.10783e+04_rb,0.81627e+03_rb,0.59826e+03_rb,0.87902e+03_rb,0.11620e+04_rb /)\n      kbo(:, 2,18,10) = (/ &\n        & 0.10752e+04_rb,0.81450e+03_rb,0.59759e+03_rb,0.87778e+03_rb,0.11602e+04_rb /)\n      kbo(:, 3,18,10) = (/ &\n        & 0.10718e+04_rb,0.81284e+03_rb,0.59689e+03_rb,0.87707e+03_rb,0.11584e+04_rb /)\n      kbo(:, 4,18,10) = (/ &\n        & 0.10695e+04_rb,0.81051e+03_rb,0.59620e+03_rb,0.87578e+03_rb,0.11570e+04_rb /)\n      kbo(:, 5,18,10) = (/ &\n        & 0.10675e+04_rb,0.80859e+03_rb,0.59539e+03_rb,0.87498e+03_rb,0.11554e+04_rb /)\n      kbo(:, 1,19,10) = (/ &\n        & 0.10693e+04_rb,0.81014e+03_rb,0.59808e+03_rb,0.87871e+03_rb,0.11618e+04_rb /)\n      kbo(:, 2,19,10) = (/ &\n        & 0.10674e+04_rb,0.80961e+03_rb,0.59739e+03_rb,0.87763e+03_rb,0.11601e+04_rb /)\n      kbo(:, 3,19,10) = (/ &\n        & 0.10651e+04_rb,0.80782e+03_rb,0.59664e+03_rb,0.87683e+03_rb,0.11582e+04_rb /)\n      kbo(:, 4,19,10) = (/ &\n        & 0.10639e+04_rb,0.80562e+03_rb,0.59610e+03_rb,0.87595e+03_rb,0.11569e+04_rb /)\n      kbo(:, 5,19,10) = (/ &\n        & 0.10620e+04_rb,0.80440e+03_rb,0.59520e+03_rb,0.87481e+03_rb,0.11551e+04_rb /)\n      kbo(:, 1,20,10) = (/ &\n        & 0.10633e+04_rb,0.80580e+03_rb,0.59791e+03_rb,0.87862e+03_rb,0.11616e+04_rb /)\n      kbo(:, 2,20,10) = (/ &\n        & 0.10619e+04_rb,0.80442e+03_rb,0.59720e+03_rb,0.87747e+03_rb,0.11598e+04_rb /)\n      kbo(:, 3,20,10) = (/ &\n        & 0.10607e+04_rb,0.80344e+03_rb,0.59654e+03_rb,0.87680e+03_rb,0.11581e+04_rb /)\n      kbo(:, 4,20,10) = (/ &\n        & 0.10584e+04_rb,0.80182e+03_rb,0.59585e+03_rb,0.87568e+03_rb,0.11568e+04_rb /)\n      kbo(:, 5,20,10) = (/ &\n        & 0.10568e+04_rb,0.80142e+03_rb,0.59502e+03_rb,0.87461e+03_rb,0.11549e+04_rb /)\n      kbo(:, 1,21,10) = (/ &\n        & 0.10577e+04_rb,0.80247e+03_rb,0.59775e+03_rb,0.87831e+03_rb,0.11614e+04_rb /)\n      kbo(:, 2,21,10) = (/ &\n        & 0.10572e+04_rb,0.80108e+03_rb,0.59703e+03_rb,0.87733e+03_rb,0.11595e+04_rb /)\n      kbo(:, 3,21,10) = (/ &\n        & 0.10551e+04_rb,0.79955e+03_rb,0.59639e+03_rb,0.87689e+03_rb,0.11579e+04_rb /)\n      kbo(:, 4,21,10) = (/ &\n        & 0.10548e+04_rb,0.79914e+03_rb,0.59569e+03_rb,0.87563e+03_rb,0.11565e+04_rb /)\n      kbo(:, 5,21,10) = (/ &\n        & 0.10533e+04_rb,0.79794e+03_rb,0.59484e+03_rb,0.87454e+03_rb,0.11546e+04_rb /)\n      kbo(:, 1,22,10) = (/ &\n        & 0.10544e+04_rb,0.79901e+03_rb,0.59755e+03_rb,0.87816e+03_rb,0.11610e+04_rb /)\n      kbo(:, 2,22,10) = (/ &\n        & 0.10524e+04_rb,0.79865e+03_rb,0.59692e+03_rb,0.87715e+03_rb,0.11592e+04_rb /)\n      kbo(:, 3,22,10) = (/ &\n        & 0.10518e+04_rb,0.79733e+03_rb,0.59621e+03_rb,0.87638e+03_rb,0.11576e+04_rb /)\n      kbo(:, 4,22,10) = (/ &\n        & 0.10503e+04_rb,0.79602e+03_rb,0.59549e+03_rb,0.87540e+03_rb,0.11562e+04_rb /)\n      kbo(:, 5,22,10) = (/ &\n        & 0.10497e+04_rb,0.79577e+03_rb,0.59455e+03_rb,0.87415e+03_rb,0.11542e+04_rb /)\n      kbo(:, 1,23,10) = (/ &\n        & 0.10504e+04_rb,0.79618e+03_rb,0.59736e+03_rb,0.87790e+03_rb,0.11608e+04_rb /)\n      kbo(:, 2,23,10) = (/ &\n        & 0.10488e+04_rb,0.79542e+03_rb,0.59652e+03_rb,0.87687e+03_rb,0.11588e+04_rb /)\n      kbo(:, 3,23,10) = (/ &\n        & 0.10489e+04_rb,0.79466e+03_rb,0.59603e+03_rb,0.87619e+03_rb,0.11574e+04_rb /)\n      kbo(:, 4,23,10) = (/ &\n        & 0.10477e+04_rb,0.79399e+03_rb,0.59528e+03_rb,0.87505e+03_rb,0.11559e+04_rb /)\n      kbo(:, 5,23,10) = (/ &\n        & 0.10468e+04_rb,0.79357e+03_rb,0.59440e+03_rb,0.87388e+03_rb,0.11537e+04_rb /)\n      kbo(:, 1,24,10) = (/ &\n        & 0.10475e+04_rb,0.79355e+03_rb,0.59716e+03_rb,0.87766e+03_rb,0.11603e+04_rb /)\n      kbo(:, 2,24,10) = (/ &\n        & 0.10471e+04_rb,0.79325e+03_rb,0.59650e+03_rb,0.87681e+03_rb,0.11585e+04_rb /)\n      kbo(:, 3,24,10) = (/ &\n        & 0.10463e+04_rb,0.79243e+03_rb,0.59586e+03_rb,0.87587e+03_rb,0.11571e+04_rb /)\n      kbo(:, 4,24,10) = (/ &\n        & 0.10454e+04_rb,0.79206e+03_rb,0.59508e+03_rb,0.87468e+03_rb,0.11555e+04_rb /)\n      kbo(:, 5,24,10) = (/ &\n        & 0.10455e+04_rb,0.79146e+03_rb,0.59426e+03_rb,0.87360e+03_rb,0.11532e+04_rb /)\n      kbo(:, 1,25,10) = (/ &\n        & 0.10443e+04_rb,0.79222e+03_rb,0.59698e+03_rb,0.87742e+03_rb,0.11598e+04_rb /)\n      kbo(:, 2,25,10) = (/ &\n        & 0.10446e+04_rb,0.79165e+03_rb,0.59633e+03_rb,0.87696e+03_rb,0.11582e+04_rb /)\n      kbo(:, 3,25,10) = (/ &\n        & 0.10440e+04_rb,0.79123e+03_rb,0.59567e+03_rb,0.87565e+03_rb,0.11568e+04_rb /)\n      kbo(:, 4,25,10) = (/ &\n        & 0.10433e+04_rb,0.79106e+03_rb,0.59487e+03_rb,0.87451e+03_rb,0.11551e+04_rb /)\n      kbo(:, 5,25,10) = (/ &\n        & 0.10423e+04_rb,0.79063e+03_rb,0.59375e+03_rb,0.87329e+03_rb,0.11525e+04_rb /)\n      kbo(:, 1,26,10) = (/ &\n        & 0.10431e+04_rb,0.79112e+03_rb,0.59671e+03_rb,0.87720e+03_rb,0.11595e+04_rb /)\n      kbo(:, 2,26,10) = (/ &\n        & 0.10430e+04_rb,0.79016e+03_rb,0.59608e+03_rb,0.87633e+03_rb,0.11579e+04_rb /)\n      kbo(:, 3,26,10) = (/ &\n        & 0.10422e+04_rb,0.78992e+03_rb,0.59547e+03_rb,0.87551e+03_rb,0.11565e+04_rb /)\n      kbo(:, 4,26,10) = (/ &\n        & 0.10418e+04_rb,0.78943e+03_rb,0.59456e+03_rb,0.87419e+03_rb,0.11545e+04_rb /)\n      kbo(:, 5,26,10) = (/ &\n        & 0.10417e+04_rb,0.78966e+03_rb,0.59375e+03_rb,0.87285e+03_rb,0.11523e+04_rb /)\n      kbo(:, 1,27,10) = (/ &\n        & 0.10421e+04_rb,0.78970e+03_rb,0.59653e+03_rb,0.87700e+03_rb,0.11589e+04_rb /)\n      kbo(:, 2,27,10) = (/ &\n        & 0.10419e+04_rb,0.78911e+03_rb,0.59591e+03_rb,0.87623e+03_rb,0.11575e+04_rb /)\n      kbo(:, 3,27,10) = (/ &\n        & 0.10414e+04_rb,0.78914e+03_rb,0.59527e+03_rb,0.87524e+03_rb,0.11555e+04_rb /)\n      kbo(:, 4,27,10) = (/ &\n        & 0.10412e+04_rb,0.78891e+03_rb,0.59440e+03_rb,0.87398e+03_rb,0.11540e+04_rb /)\n      kbo(:, 5,27,10) = (/ &\n        & 0.10400e+04_rb,0.78850e+03_rb,0.59354e+03_rb,0.87262e+03_rb,0.11516e+04_rb /)\n      kbo(:, 1,28,10) = (/ &\n        & 0.10402e+04_rb,0.78860e+03_rb,0.59644e+03_rb,0.87682e+03_rb,0.11586e+04_rb /)\n      kbo(:, 2,28,10) = (/ &\n        & 0.10405e+04_rb,0.78788e+03_rb,0.59574e+03_rb,0.87579e+03_rb,0.11571e+04_rb /)\n      kbo(:, 3,28,10) = (/ &\n        & 0.10403e+04_rb,0.78855e+03_rb,0.59498e+03_rb,0.87473e+03_rb,0.11552e+04_rb /)\n      kbo(:, 4,28,10) = (/ &\n        & 0.10397e+04_rb,0.78826e+03_rb,0.59417e+03_rb,0.87377e+03_rb,0.11534e+04_rb /)\n      kbo(:, 5,28,10) = (/ &\n        & 0.10396e+04_rb,0.78810e+03_rb,0.59333e+03_rb,0.87227e+03_rb,0.11511e+04_rb /)\n      kbo(:, 1,29,10) = (/ &\n        & 0.10391e+04_rb,0.78797e+03_rb,0.59612e+03_rb,0.87685e+03_rb,0.11584e+04_rb /)\n      kbo(:, 2,29,10) = (/ &\n        & 0.10393e+04_rb,0.78808e+03_rb,0.59562e+03_rb,0.87577e+03_rb,0.11569e+04_rb /)\n      kbo(:, 3,29,10) = (/ &\n        & 0.10401e+04_rb,0.78791e+03_rb,0.59476e+03_rb,0.87463e+03_rb,0.11550e+04_rb /)\n      kbo(:, 4,29,10) = (/ &\n        & 0.10388e+04_rb,0.78727e+03_rb,0.59387e+03_rb,0.87332e+03_rb,0.11526e+04_rb /)\n      kbo(:, 5,29,10) = (/ &\n        & 0.10383e+04_rb,0.78753e+03_rb,0.59306e+03_rb,0.87189e+03_rb,0.11504e+04_rb /)\n      kbo(:, 1,30,10) = (/ &\n        & 0.10398e+04_rb,0.78748e+03_rb,0.59603e+03_rb,0.87643e+03_rb,0.11579e+04_rb /)\n      kbo(:, 2,30,10) = (/ &\n        & 0.10387e+04_rb,0.78733e+03_rb,0.59550e+03_rb,0.87550e+03_rb,0.11567e+04_rb /)\n      kbo(:, 3,30,10) = (/ &\n        & 0.10384e+04_rb,0.78700e+03_rb,0.59460e+03_rb,0.87431e+03_rb,0.11543e+04_rb /)\n      kbo(:, 4,30,10) = (/ &\n        & 0.10381e+04_rb,0.78738e+03_rb,0.59372e+03_rb,0.87275e+03_rb,0.11522e+04_rb /)\n      kbo(:, 5,30,10) = (/ &\n        & 0.10382e+04_rb,0.78707e+03_rb,0.59292e+03_rb,0.87137e+03_rb,0.11500e+04_rb /)\n      kbo(:, 1,31,10) = (/ &\n        & 0.10388e+04_rb,0.78740e+03_rb,0.59593e+03_rb,0.87621e+03_rb,0.11575e+04_rb /)\n      kbo(:, 2,31,10) = (/ &\n        & 0.10385e+04_rb,0.78757e+03_rb,0.59522e+03_rb,0.87522e+03_rb,0.11561e+04_rb /)\n      kbo(:, 3,31,10) = (/ &\n        & 0.10386e+04_rb,0.78718e+03_rb,0.59436e+03_rb,0.87397e+03_rb,0.11540e+04_rb /)\n      kbo(:, 4,31,10) = (/ &\n        & 0.10377e+04_rb,0.78650e+03_rb,0.59350e+03_rb,0.87250e+03_rb,0.11516e+04_rb /)\n      kbo(:, 5,31,10) = (/ &\n        & 0.10376e+04_rb,0.78651e+03_rb,0.59269e+03_rb,0.87108e+03_rb,0.11495e+04_rb /)\n      kbo(:, 1,32,10) = (/ &\n        & 0.10383e+04_rb,0.78682e+03_rb,0.59576e+03_rb,0.87597e+03_rb,0.11572e+04_rb /)\n      kbo(:, 2,32,10) = (/ &\n        & 0.10383e+04_rb,0.78712e+03_rb,0.59500e+03_rb,0.87480e+03_rb,0.11556e+04_rb /)\n      kbo(:, 3,32,10) = (/ &\n        & 0.10381e+04_rb,0.78606e+03_rb,0.59405e+03_rb,0.87362e+03_rb,0.11534e+04_rb /)\n      kbo(:, 4,32,10) = (/ &\n        & 0.10372e+04_rb,0.78628e+03_rb,0.59329e+03_rb,0.87223e+03_rb,0.11510e+04_rb /)\n      kbo(:, 5,32,10) = (/ &\n        & 0.10377e+04_rb,0.78690e+03_rb,0.59245e+03_rb,0.87068e+03_rb,0.11490e+04_rb /)\n      kbo(:, 1,33,10) = (/ &\n        & 0.10380e+04_rb,0.78593e+03_rb,0.59549e+03_rb,0.87572e+03_rb,0.11567e+04_rb /)\n      kbo(:, 2,33,10) = (/ &\n        & 0.10375e+04_rb,0.78654e+03_rb,0.59477e+03_rb,0.87458e+03_rb,0.11551e+04_rb /)\n      kbo(:, 3,33,10) = (/ &\n        & 0.10374e+04_rb,0.78686e+03_rb,0.59389e+03_rb,0.87337e+03_rb,0.11527e+04_rb /)\n      kbo(:, 4,33,10) = (/ &\n        & 0.10366e+04_rb,0.78593e+03_rb,0.59308e+03_rb,0.87194e+03_rb,0.11506e+04_rb /)\n      kbo(:, 5,33,10) = (/ &\n        & 0.10369e+04_rb,0.78626e+03_rb,0.59219e+03_rb,0.87038e+03_rb,0.11486e+04_rb /)\n      kbo(:, 1,34,10) = (/ &\n        & 0.10373e+04_rb,0.78657e+03_rb,0.59539e+03_rb,0.87559e+03_rb,0.11565e+04_rb /)\n      kbo(:, 2,34,10) = (/ &\n        & 0.10370e+04_rb,0.78641e+03_rb,0.59464e+03_rb,0.87429e+03_rb,0.11546e+04_rb /)\n      kbo(:, 3,34,10) = (/ &\n        & 0.10370e+04_rb,0.78587e+03_rb,0.59369e+03_rb,0.87295e+03_rb,0.11522e+04_rb /)\n      kbo(:, 4,34,10) = (/ &\n        & 0.10371e+04_rb,0.78562e+03_rb,0.59289e+03_rb,0.87146e+03_rb,0.11500e+04_rb /)\n      kbo(:, 5,34,10) = (/ &\n        & 0.10372e+04_rb,0.78597e+03_rb,0.59202e+03_rb,0.86991e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,35,10) = (/ &\n        & 0.10364e+04_rb,0.78559e+03_rb,0.59529e+03_rb,0.87523e+03_rb,0.11563e+04_rb /)\n      kbo(:, 2,35,10) = (/ &\n        & 0.10362e+04_rb,0.78545e+03_rb,0.59445e+03_rb,0.87400e+03_rb,0.11543e+04_rb /)\n      kbo(:, 3,35,10) = (/ &\n        & 0.10372e+04_rb,0.78599e+03_rb,0.59365e+03_rb,0.87265e+03_rb,0.11519e+04_rb /)\n      kbo(:, 4,35,10) = (/ &\n        & 0.10370e+04_rb,0.78527e+03_rb,0.59278e+03_rb,0.87136e+03_rb,0.11496e+04_rb /)\n      kbo(:, 5,35,10) = (/ &\n        & 0.10363e+04_rb,0.78582e+03_rb,0.59179e+03_rb,0.86905e+03_rb,0.11477e+04_rb /)\n      kbo(:, 1,36,10) = (/ &\n        & 0.10368e+04_rb,0.78515e+03_rb,0.59520e+03_rb,0.87532e+03_rb,0.11563e+04_rb /)\n      kbo(:, 2,36,10) = (/ &\n        & 0.10358e+04_rb,0.78589e+03_rb,0.59443e+03_rb,0.87419e+03_rb,0.11542e+04_rb /)\n      kbo(:, 3,36,10) = (/ &\n        & 0.10361e+04_rb,0.78556e+03_rb,0.59355e+03_rb,0.87273e+03_rb,0.11517e+04_rb /)\n      kbo(:, 4,36,10) = (/ &\n        & 0.10361e+04_rb,0.78543e+03_rb,0.59275e+03_rb,0.87122e+03_rb,0.11497e+04_rb /)\n      kbo(:, 5,36,10) = (/ &\n        & 0.10368e+04_rb,0.78570e+03_rb,0.59176e+03_rb,0.86999e+03_rb,0.11477e+04_rb /)\n      kbo(:, 1,37,10) = (/ &\n        & 0.10363e+04_rb,0.78591e+03_rb,0.59537e+03_rb,0.87546e+03_rb,0.11565e+04_rb /)\n      kbo(:, 2,37,10) = (/ &\n        & 0.10360e+04_rb,0.78548e+03_rb,0.59454e+03_rb,0.87425e+03_rb,0.11545e+04_rb /)\n      kbo(:, 3,37,10) = (/ &\n        & 0.10362e+04_rb,0.78546e+03_rb,0.59366e+03_rb,0.87291e+03_rb,0.11521e+04_rb /)\n      kbo(:, 4,37,10) = (/ &\n        & 0.10364e+04_rb,0.78543e+03_rb,0.59286e+03_rb,0.87142e+03_rb,0.11500e+04_rb /)\n      kbo(:, 5,37,10) = (/ &\n        & 0.10360e+04_rb,0.78560e+03_rb,0.59177e+03_rb,0.86987e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,38,10) = (/ &\n        & 0.10362e+04_rb,0.78542e+03_rb,0.59547e+03_rb,0.87560e+03_rb,0.11567e+04_rb /)\n      kbo(:, 2,38,10) = (/ &\n        & 0.10357e+04_rb,0.78588e+03_rb,0.59466e+03_rb,0.87433e+03_rb,0.11549e+04_rb /)\n      kbo(:, 3,38,10) = (/ &\n        & 0.10370e+04_rb,0.78605e+03_rb,0.59385e+03_rb,0.87310e+03_rb,0.11524e+04_rb /)\n      kbo(:, 4,38,10) = (/ &\n        & 0.10362e+04_rb,0.78574e+03_rb,0.59297e+03_rb,0.87186e+03_rb,0.11501e+04_rb /)\n      kbo(:, 5,38,10) = (/ &\n        & 0.10364e+04_rb,0.78533e+03_rb,0.59199e+03_rb,0.87009e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,39,10) = (/ &\n        & 0.10359e+04_rb,0.78514e+03_rb,0.59557e+03_rb,0.87574e+03_rb,0.11567e+04_rb /)\n      kbo(:, 2,39,10) = (/ &\n        & 0.10371e+04_rb,0.78541e+03_rb,0.59478e+03_rb,0.87461e+03_rb,0.11552e+04_rb /)\n      kbo(:, 3,39,10) = (/ &\n        & 0.10366e+04_rb,0.78569e+03_rb,0.59382e+03_rb,0.87329e+03_rb,0.11528e+04_rb /)\n      kbo(:, 4,39,10) = (/ &\n        & 0.10359e+04_rb,0.78528e+03_rb,0.59308e+03_rb,0.87198e+03_rb,0.11506e+04_rb /)\n      kbo(:, 5,39,10) = (/ &\n        & 0.10356e+04_rb,0.78487e+03_rb,0.59220e+03_rb,0.87042e+03_rb,0.11486e+04_rb /)\n      kbo(:, 1,40,10) = (/ &\n        & 0.10357e+04_rb,0.78518e+03_rb,0.59566e+03_rb,0.87586e+03_rb,0.11569e+04_rb /)\n      kbo(:, 2,40,10) = (/ &\n        & 0.10357e+04_rb,0.78506e+03_rb,0.59498e+03_rb,0.87480e+03_rb,0.11555e+04_rb /)\n      kbo(:, 3,40,10) = (/ &\n        & 0.10366e+04_rb,0.78504e+03_rb,0.59396e+03_rb,0.87362e+03_rb,0.11534e+04_rb /)\n      kbo(:, 4,40,10) = (/ &\n        & 0.10363e+04_rb,0.78503e+03_rb,0.59319e+03_rb,0.87212e+03_rb,0.11511e+04_rb /)\n      kbo(:, 5,40,10) = (/ &\n        & 0.10363e+04_rb,0.78540e+03_rb,0.59243e+03_rb,0.87078e+03_rb,0.11490e+04_rb /)\n      kbo(:, 1,41,10) = (/ &\n        & 0.10363e+04_rb,0.78503e+03_rb,0.59590e+03_rb,0.87608e+03_rb,0.11576e+04_rb /)\n      kbo(:, 2,41,10) = (/ &\n        & 0.10356e+04_rb,0.78491e+03_rb,0.59519e+03_rb,0.87520e+03_rb,0.11561e+04_rb /)\n      kbo(:, 3,41,10) = (/ &\n        & 0.10364e+04_rb,0.78558e+03_rb,0.59433e+03_rb,0.87384e+03_rb,0.11540e+04_rb /)\n      kbo(:, 4,41,10) = (/ &\n        & 0.10357e+04_rb,0.78518e+03_rb,0.59354e+03_rb,0.87259e+03_rb,0.11516e+04_rb /)\n      kbo(:, 5,41,10) = (/ &\n        & 0.10360e+04_rb,0.78526e+03_rb,0.59259e+03_rb,0.87107e+03_rb,0.11495e+04_rb /)\n      kbo(:, 1,42,10) = (/ &\n        & 0.10360e+04_rb,0.78488e+03_rb,0.59605e+03_rb,0.87553e+03_rb,0.11576e+04_rb /)\n      kbo(:, 2,42,10) = (/ &\n        & 0.10363e+04_rb,0.78507e+03_rb,0.59538e+03_rb,0.87537e+03_rb,0.11565e+04_rb /)\n      kbo(:, 3,42,10) = (/ &\n        & 0.10362e+04_rb,0.78535e+03_rb,0.59456e+03_rb,0.87429e+03_rb,0.11545e+04_rb /)\n      kbo(:, 4,42,10) = (/ &\n        & 0.10361e+04_rb,0.78514e+03_rb,0.59368e+03_rb,0.87295e+03_rb,0.11522e+04_rb /)\n      kbo(:, 5,42,10) = (/ &\n        & 0.10360e+04_rb,0.78523e+03_rb,0.59281e+03_rb,0.87146e+03_rb,0.11502e+04_rb /)\n      kbo(:, 1,43,10) = (/ &\n        & 0.10359e+04_rb,0.78504e+03_rb,0.59624e+03_rb,0.87675e+03_rb,0.11584e+04_rb /)\n      kbo(:, 2,43,10) = (/ &\n        & 0.10355e+04_rb,0.78552e+03_rb,0.59568e+03_rb,0.87580e+03_rb,0.11570e+04_rb /)\n      kbo(:, 3,43,10) = (/ &\n        & 0.10354e+04_rb,0.78512e+03_rb,0.59483e+03_rb,0.87469e+03_rb,0.11553e+04_rb /)\n      kbo(:, 4,43,10) = (/ &\n        & 0.10354e+04_rb,0.78569e+03_rb,0.59395e+03_rb,0.87316e+03_rb,0.11531e+04_rb /)\n      kbo(:, 5,43,10) = (/ &\n        & 0.10359e+04_rb,0.78598e+03_rb,0.59313e+03_rb,0.87186e+03_rb,0.11507e+04_rb /)\n      kbo(:, 1,44,10) = (/ &\n        & 0.10359e+04_rb,0.78521e+03_rb,0.59645e+03_rb,0.87700e+03_rb,0.11590e+04_rb /)\n      kbo(:, 2,44,10) = (/ &\n        & 0.10361e+04_rb,0.78510e+03_rb,0.59583e+03_rb,0.87611e+03_rb,0.11574e+04_rb /)\n      kbo(:, 3,44,10) = (/ &\n        & 0.10368e+04_rb,0.78519e+03_rb,0.59511e+03_rb,0.87509e+03_rb,0.11561e+04_rb /)\n      kbo(:, 4,44,10) = (/ &\n        & 0.10360e+04_rb,0.78508e+03_rb,0.59424e+03_rb,0.87372e+03_rb,0.11538e+04_rb /)\n      kbo(:, 5,44,10) = (/ &\n        & 0.10356e+04_rb,0.78537e+03_rb,0.59339e+03_rb,0.87213e+03_rb,0.11514e+04_rb /)\n      kbo(:, 1,45,10) = (/ &\n        & 0.10357e+04_rb,0.78557e+03_rb,0.59666e+03_rb,0.87715e+03_rb,0.11597e+04_rb /)\n      kbo(:, 2,45,10) = (/ &\n        & 0.10356e+04_rb,0.78527e+03_rb,0.59604e+03_rb,0.87639e+03_rb,0.11579e+04_rb /)\n      kbo(:, 3,45,10) = (/ &\n        & 0.10360e+04_rb,0.78546e+03_rb,0.59537e+03_rb,0.87547e+03_rb,0.11565e+04_rb /)\n      kbo(:, 4,45,10) = (/ &\n        & 0.10361e+04_rb,0.78506e+03_rb,0.59454e+03_rb,0.87427e+03_rb,0.11544e+04_rb /)\n      kbo(:, 5,45,10) = (/ &\n        & 0.10353e+04_rb,0.78535e+03_rb,0.59366e+03_rb,0.87293e+03_rb,0.11520e+04_rb /)\n      kbo(:, 1,46,10) = (/ &\n        & 0.10358e+04_rb,0.78506e+03_rb,0.59691e+03_rb,0.87749e+03_rb,0.11602e+04_rb /)\n      kbo(:, 2,46,10) = (/ &\n        & 0.10353e+04_rb,0.78486e+03_rb,0.59626e+03_rb,0.87678e+03_rb,0.11584e+04_rb /)\n      kbo(:, 3,46,10) = (/ &\n        & 0.10353e+04_rb,0.78495e+03_rb,0.59563e+03_rb,0.87572e+03_rb,0.11570e+04_rb /)\n      kbo(:, 4,46,10) = (/ &\n        & 0.10363e+04_rb,0.78534e+03_rb,0.59478e+03_rb,0.87473e+03_rb,0.11554e+04_rb /)\n      kbo(:, 5,46,10) = (/ &\n        & 0.10355e+04_rb,0.78455e+03_rb,0.59398e+03_rb,0.87342e+03_rb,0.11530e+04_rb /)\n      kbo(:, 1,47,10) = (/ &\n        & 0.10357e+04_rb,0.78544e+03_rb,0.59719e+03_rb,0.87795e+03_rb,0.11609e+04_rb /)\n      kbo(:, 2,47,10) = (/ &\n        & 0.10355e+04_rb,0.78533e+03_rb,0.59651e+03_rb,0.87696e+03_rb,0.11589e+04_rb /)\n      kbo(:, 3,47,10) = (/ &\n        & 0.10358e+04_rb,0.78543e+03_rb,0.59590e+03_rb,0.87576e+03_rb,0.11576e+04_rb /)\n      kbo(:, 4,47,10) = (/ &\n        & 0.10351e+04_rb,0.78562e+03_rb,0.59519e+03_rb,0.87521e+03_rb,0.11561e+04_rb /)\n      kbo(:, 5,47,10) = (/ &\n        & 0.10359e+04_rb,0.78571e+03_rb,0.59433e+03_rb,0.87385e+03_rb,0.11540e+04_rb /)\n      kbo(:, 1,48,10) = (/ &\n        & 0.10363e+04_rb,0.78513e+03_rb,0.59744e+03_rb,0.87846e+03_rb,0.11618e+04_rb /)\n      kbo(:, 2,48,10) = (/ &\n        & 0.10360e+04_rb,0.78532e+03_rb,0.59677e+03_rb,0.87730e+03_rb,0.11598e+04_rb /)\n      kbo(:, 3,48,10) = (/ &\n        & 0.10365e+04_rb,0.78483e+03_rb,0.59614e+03_rb,0.87707e+03_rb,0.11581e+04_rb /)\n      kbo(:, 4,48,10) = (/ &\n        & 0.10355e+04_rb,0.78521e+03_rb,0.59549e+03_rb,0.87564e+03_rb,0.11567e+04_rb /)\n      kbo(:, 5,48,10) = (/ &\n        & 0.10355e+04_rb,0.78531e+03_rb,0.59469e+03_rb,0.87448e+03_rb,0.11550e+04_rb /)\n      kbo(:, 1,49,10) = (/ &\n        & 0.10351e+04_rb,0.78492e+03_rb,0.59768e+03_rb,0.87902e+03_rb,0.11625e+04_rb /)\n      kbo(:, 2,49,10) = (/ &\n        & 0.10355e+04_rb,0.78541e+03_rb,0.59705e+03_rb,0.87772e+03_rb,0.11606e+04_rb /)\n      kbo(:, 3,49,10) = (/ &\n        & 0.10352e+04_rb,0.78472e+03_rb,0.59639e+03_rb,0.87682e+03_rb,0.11587e+04_rb /)\n      kbo(:, 4,49,10) = (/ &\n        & 0.10356e+04_rb,0.78511e+03_rb,0.59577e+03_rb,0.87591e+03_rb,0.11574e+04_rb /)\n      kbo(:, 5,49,10) = (/ &\n        & 0.10352e+04_rb,0.78501e+03_rb,0.59510e+03_rb,0.87498e+03_rb,0.11558e+04_rb /)\n      kbo(:, 1,50,10) = (/ &\n        & 0.10361e+04_rb,0.78540e+03_rb,0.59770e+03_rb,0.87956e+03_rb,0.11633e+04_rb /)\n      kbo(:, 2,50,10) = (/ &\n        & 0.10357e+04_rb,0.78530e+03_rb,0.59731e+03_rb,0.87817e+03_rb,0.11612e+04_rb /)\n      kbo(:, 3,50,10) = (/ &\n        & 0.10365e+04_rb,0.78510e+03_rb,0.59662e+03_rb,0.87710e+03_rb,0.11596e+04_rb /)\n      kbo(:, 4,50,10) = (/ &\n        & 0.10365e+04_rb,0.78510e+03_rb,0.59601e+03_rb,0.87645e+03_rb,0.11578e+04_rb /)\n      kbo(:, 5,50,10) = (/ &\n        & 0.10352e+04_rb,0.78588e+03_rb,0.59525e+03_rb,0.87541e+03_rb,0.11564e+04_rb /)\n      kbo(:, 1,51,10) = (/ &\n        & 0.10356e+04_rb,0.78490e+03_rb,0.59781e+03_rb,0.88010e+03_rb,0.11639e+04_rb /)\n      kbo(:, 2,51,10) = (/ &\n        & 0.10356e+04_rb,0.78539e+03_rb,0.59751e+03_rb,0.87866e+03_rb,0.11620e+04_rb /)\n      kbo(:, 3,51,10) = (/ &\n        & 0.10359e+04_rb,0.78461e+03_rb,0.59687e+03_rb,0.87744e+03_rb,0.11601e+04_rb /)\n      kbo(:, 4,51,10) = (/ &\n        & 0.10352e+04_rb,0.78519e+03_rb,0.59623e+03_rb,0.87674e+03_rb,0.11583e+04_rb /)\n      kbo(:, 5,51,10) = (/ &\n        & 0.10356e+04_rb,0.78470e+03_rb,0.59552e+03_rb,0.87578e+03_rb,0.11569e+04_rb /)\n      kbo(:, 1,52,10) = (/ &\n        & 0.10352e+04_rb,0.78509e+03_rb,0.59800e+03_rb,0.88094e+03_rb,0.11643e+04_rb /)\n      kbo(:, 2,52,10) = (/ &\n        & 0.10355e+04_rb,0.78528e+03_rb,0.59763e+03_rb,0.87918e+03_rb,0.11627e+04_rb /)\n      kbo(:, 3,52,10) = (/ &\n        & 0.10361e+04_rb,0.78479e+03_rb,0.59712e+03_rb,0.87762e+03_rb,0.11608e+04_rb /)\n      kbo(:, 4,52,10) = (/ &\n        & 0.10358e+04_rb,0.78528e+03_rb,0.59645e+03_rb,0.87678e+03_rb,0.11589e+04_rb /)\n      kbo(:, 5,52,10) = (/ &\n        & 0.10355e+04_rb,0.78528e+03_rb,0.59584e+03_rb,0.87612e+03_rb,0.11573e+04_rb /)\n      kbo(:, 1,53,10) = (/ &\n        & 0.10357e+04_rb,0.78528e+03_rb,0.59832e+03_rb,0.88148e+03_rb,0.11650e+04_rb /)\n      kbo(:, 2,53,10) = (/ &\n        & 0.10357e+04_rb,0.78596e+03_rb,0.59772e+03_rb,0.87969e+03_rb,0.11634e+04_rb /)\n      kbo(:, 3,53,10) = (/ &\n        & 0.10361e+04_rb,0.78547e+03_rb,0.59737e+03_rb,0.87830e+03_rb,0.11614e+04_rb /)\n      kbo(:, 4,53,10) = (/ &\n        & 0.10362e+04_rb,0.78537e+03_rb,0.59668e+03_rb,0.87707e+03_rb,0.11596e+04_rb /)\n      kbo(:, 5,53,10) = (/ &\n        & 0.10356e+04_rb,0.78498e+03_rb,0.59606e+03_rb,0.87642e+03_rb,0.11578e+04_rb /)\n      kbo(:, 1,54,10) = (/ &\n        & 0.10351e+04_rb,0.78567e+03_rb,0.59851e+03_rb,0.88199e+03_rb,0.11656e+04_rb /)\n      kbo(:, 2,54,10) = (/ &\n        & 0.10366e+04_rb,0.78518e+03_rb,0.59776e+03_rb,0.88021e+03_rb,0.11638e+04_rb /)\n      kbo(:, 3,54,10) = (/ &\n        & 0.10364e+04_rb,0.78478e+03_rb,0.59753e+03_rb,0.87875e+03_rb,0.11621e+04_rb /)\n      kbo(:, 4,54,10) = (/ &\n        & 0.10356e+04_rb,0.78498e+03_rb,0.59692e+03_rb,0.87751e+03_rb,0.11602e+04_rb /)\n      kbo(:, 5,54,10) = (/ &\n        & 0.10362e+04_rb,0.78527e+03_rb,0.59627e+03_rb,0.87657e+03_rb,0.11584e+04_rb /)\n      kbo(:, 1,55,10) = (/ &\n        & 0.10355e+04_rb,0.78488e+03_rb,0.59876e+03_rb,0.88250e+03_rb,0.11663e+04_rb /)\n      kbo(:, 2,55,10) = (/ &\n        & 0.10362e+04_rb,0.78527e+03_rb,0.59801e+03_rb,0.88087e+03_rb,0.11643e+04_rb /)\n      kbo(:, 3,55,10) = (/ &\n        & 0.10356e+04_rb,0.78507e+03_rb,0.59764e+03_rb,0.87920e+03_rb,0.11628e+04_rb /)\n      kbo(:, 4,55,10) = (/ &\n        & 0.10353e+04_rb,0.78488e+03_rb,0.59714e+03_rb,0.87787e+03_rb,0.11606e+04_rb /)\n      kbo(:, 5,55,10) = (/ &\n        & 0.10356e+04_rb,0.78488e+03_rb,0.59639e+03_rb,0.87691e+03_rb,0.11585e+04_rb /)\n      kbo(:, 1,56,10) = (/ &\n        & 0.10353e+04_rb,0.78537e+03_rb,0.59904e+03_rb,0.88318e+03_rb,0.11672e+04_rb /)\n      kbo(:, 2,56,10) = (/ &\n        & 0.10354e+04_rb,0.78497e+03_rb,0.59830e+03_rb,0.88144e+03_rb,0.11649e+04_rb /)\n      kbo(:, 3,56,10) = (/ &\n        & 0.10361e+04_rb,0.78536e+03_rb,0.59771e+03_rb,0.87966e+03_rb,0.11634e+04_rb /)\n      kbo(:, 4,56,10) = (/ &\n        & 0.10357e+04_rb,0.78497e+03_rb,0.59736e+03_rb,0.87826e+03_rb,0.11615e+04_rb /)\n      kbo(:, 5,56,10) = (/ &\n        & 0.10353e+04_rb,0.78478e+03_rb,0.59667e+03_rb,0.87705e+03_rb,0.11595e+04_rb /)\n      kbo(:, 1,57,10) = (/ &\n        & 0.10358e+04_rb,0.78458e+03_rb,0.59927e+03_rb,0.88350e+03_rb,0.11679e+04_rb /)\n      kbo(:, 2,57,10) = (/ &\n        & 0.10352e+04_rb,0.78536e+03_rb,0.59840e+03_rb,0.88193e+03_rb,0.11656e+04_rb /)\n      kbo(:, 3,57,10) = (/ &\n        & 0.10352e+04_rb,0.78526e+03_rb,0.59782e+03_rb,0.88003e+03_rb,0.11638e+04_rb /)\n      kbo(:, 4,57,10) = (/ &\n        & 0.10358e+04_rb,0.78497e+03_rb,0.59751e+03_rb,0.87869e+03_rb,0.11622e+04_rb /)\n      kbo(:, 5,57,10) = (/ &\n        & 0.10360e+04_rb,0.78497e+03_rb,0.59689e+03_rb,0.87746e+03_rb,0.11601e+04_rb /)\n      kbo(:, 1,58,10) = (/ &\n        & 0.10358e+04_rb,0.78468e+03_rb,0.59969e+03_rb,0.88402e+03_rb,0.11685e+04_rb /)\n      kbo(:, 2,58,10) = (/ &\n        & 0.10357e+04_rb,0.78458e+03_rb,0.59873e+03_rb,0.88241e+03_rb,0.11662e+04_rb /)\n      kbo(:, 3,58,10) = (/ &\n        & 0.10358e+04_rb,0.78526e+03_rb,0.59797e+03_rb,0.88085e+03_rb,0.11642e+04_rb /)\n      kbo(:, 4,58,10) = (/ &\n        & 0.10356e+04_rb,0.78487e+03_rb,0.59762e+03_rb,0.87912e+03_rb,0.11626e+04_rb /)\n      kbo(:, 5,58,10) = (/ &\n        & 0.10357e+04_rb,0.78565e+03_rb,0.59710e+03_rb,0.87769e+03_rb,0.11608e+04_rb /)\n      kbo(:, 1,59,10) = (/ &\n        & 0.10360e+04_rb,0.78507e+03_rb,0.59979e+03_rb,0.88416e+03_rb,0.11687e+04_rb /)\n      kbo(:, 2,59,10) = (/ &\n        & 0.10357e+04_rb,0.78477e+03_rb,0.59879e+03_rb,0.88260e+03_rb,0.11665e+04_rb /)\n      kbo(:, 3,59,10) = (/ &\n        & 0.10350e+04_rb,0.78526e+03_rb,0.59804e+03_rb,0.88100e+03_rb,0.11644e+04_rb /)\n      kbo(:, 4,59,10) = (/ &\n        & 0.10357e+04_rb,0.78467e+03_rb,0.59773e+03_rb,0.87930e+03_rb,0.11629e+04_rb /)\n      kbo(:, 5,59,10) = (/ &\n        & 0.10358e+04_rb,0.78457e+03_rb,0.59718e+03_rb,0.87783e+03_rb,0.11609e+04_rb /)\n      kbo(:, 1,13,11) = (/ &\n        & 0.11563e+04_rb,0.87491e+03_rb,0.60253e+03_rb,0.88362e+03_rb,0.11664e+04_rb /)\n      kbo(:, 2,13,11) = (/ &\n        & 0.11454e+04_rb,0.86861e+03_rb,0.60211e+03_rb,0.88300e+03_rb,0.11639e+04_rb /)\n      kbo(:, 3,13,11) = (/ &\n        & 0.11392e+04_rb,0.86181e+03_rb,0.60140e+03_rb,0.88181e+03_rb,0.11620e+04_rb /)\n      kbo(:, 4,13,11) = (/ &\n        & 0.11315e+04_rb,0.85680e+03_rb,0.60042e+03_rb,0.88057e+03_rb,0.11602e+04_rb /)\n      kbo(:, 5,13,11) = (/ &\n        & 0.11273e+04_rb,0.85330e+03_rb,0.59929e+03_rb,0.87908e+03_rb,0.11581e+04_rb /)\n      kbo(:, 1,14,11) = (/ &\n        & 0.11333e+04_rb,0.85776e+03_rb,0.60215e+03_rb,0.88338e+03_rb,0.11660e+04_rb /)\n      kbo(:, 2,14,11) = (/ &\n        & 0.11256e+04_rb,0.85211e+03_rb,0.60176e+03_rb,0.88258e+03_rb,0.11637e+04_rb /)\n      kbo(:, 3,14,11) = (/ &\n        & 0.11185e+04_rb,0.84809e+03_rb,0.60101e+03_rb,0.88154e+03_rb,0.11618e+04_rb /)\n      kbo(:, 4,14,11) = (/ &\n        & 0.11137e+04_rb,0.84328e+03_rb,0.59992e+03_rb,0.87989e+03_rb,0.11599e+04_rb /)\n      kbo(:, 5,14,11) = (/ &\n        & 0.11092e+04_rb,0.83997e+03_rb,0.59898e+03_rb,0.87879e+03_rb,0.11581e+04_rb /)\n      kbo(:, 1,15,11) = (/ &\n        & 0.11149e+04_rb,0.84435e+03_rb,0.60192e+03_rb,0.88317e+03_rb,0.11660e+04_rb /)\n      kbo(:, 2,15,11) = (/ &\n        & 0.11071e+04_rb,0.83899e+03_rb,0.60145e+03_rb,0.88233e+03_rb,0.11635e+04_rb /)\n      kbo(:, 3,15,11) = (/ &\n        & 0.11058e+04_rb,0.83612e+03_rb,0.60066e+03_rb,0.88128e+03_rb,0.11617e+04_rb /)\n      kbo(:, 4,15,11) = (/ &\n        & 0.10996e+04_rb,0.83410e+03_rb,0.59965e+03_rb,0.88002e+03_rb,0.11599e+04_rb /)\n      kbo(:, 5,15,11) = (/ &\n        & 0.10957e+04_rb,0.83022e+03_rb,0.59863e+03_rb,0.87850e+03_rb,0.11578e+04_rb /)\n      kbo(:, 1,16,11) = (/ &\n        & 0.10993e+04_rb,0.83361e+03_rb,0.60157e+03_rb,0.88298e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,16,11) = (/ &\n        & 0.10933e+04_rb,0.82961e+03_rb,0.60127e+03_rb,0.88210e+03_rb,0.11633e+04_rb /)\n      kbo(:, 3,16,11) = (/ &\n        & 0.10924e+04_rb,0.82745e+03_rb,0.60035e+03_rb,0.88104e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,16,11) = (/ &\n        & 0.10885e+04_rb,0.82319e+03_rb,0.59934e+03_rb,0.87977e+03_rb,0.11597e+04_rb /)\n      kbo(:, 5,16,11) = (/ &\n        & 0.10838e+04_rb,0.82062e+03_rb,0.59823e+03_rb,0.87823e+03_rb,0.11577e+04_rb /)\n      kbo(:, 1,17,11) = (/ &\n        & 0.10881e+04_rb,0.82385e+03_rb,0.60135e+03_rb,0.88282e+03_rb,0.11656e+04_rb /)\n      kbo(:, 2,17,11) = (/ &\n        & 0.10840e+04_rb,0.82201e+03_rb,0.60094e+03_rb,0.88190e+03_rb,0.11631e+04_rb /)\n      kbo(:, 3,17,11) = (/ &\n        & 0.10809e+04_rb,0.81908e+03_rb,0.60007e+03_rb,0.88083e+03_rb,0.11613e+04_rb /)\n      kbo(:, 4,17,11) = (/ &\n        & 0.10772e+04_rb,0.81792e+03_rb,0.59907e+03_rb,0.87953e+03_rb,0.11595e+04_rb /)\n      kbo(:, 5,17,11) = (/ &\n        & 0.10760e+04_rb,0.81580e+03_rb,0.59806e+03_rb,0.87798e+03_rb,0.11575e+04_rb /)\n      kbo(:, 1,18,11) = (/ &\n        & 0.10780e+04_rb,0.81679e+03_rb,0.60116e+03_rb,0.88267e+03_rb,0.11653e+04_rb /)\n      kbo(:, 2,18,11) = (/ &\n        & 0.10749e+04_rb,0.81512e+03_rb,0.60072e+03_rb,0.88171e+03_rb,0.11629e+04_rb /)\n      kbo(:, 3,18,11) = (/ &\n        & 0.10728e+04_rb,0.81180e+03_rb,0.59983e+03_rb,0.88050e+03_rb,0.11611e+04_rb /)\n      kbo(:, 4,18,11) = (/ &\n        & 0.10707e+04_rb,0.81081e+03_rb,0.59883e+03_rb,0.87944e+03_rb,0.11593e+04_rb /)\n      kbo(:, 5,18,11) = (/ &\n        & 0.10678e+04_rb,0.80905e+03_rb,0.59782e+03_rb,0.87775e+03_rb,0.11574e+04_rb /)\n      kbo(:, 1,19,11) = (/ &\n        & 0.10696e+04_rb,0.81122e+03_rb,0.60101e+03_rb,0.88252e+03_rb,0.11649e+04_rb /)\n      kbo(:, 2,19,11) = (/ &\n        & 0.10692e+04_rb,0.80792e+03_rb,0.60053e+03_rb,0.88155e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,19,11) = (/ &\n        & 0.10653e+04_rb,0.80791e+03_rb,0.59962e+03_rb,0.88058e+03_rb,0.11609e+04_rb /)\n      kbo(:, 4,19,11) = (/ &\n        & 0.10635e+04_rb,0.80651e+03_rb,0.59853e+03_rb,0.87910e+03_rb,0.11591e+04_rb /)\n      kbo(:, 5,19,11) = (/ &\n        & 0.10626e+04_rb,0.80552e+03_rb,0.59761e+03_rb,0.87753e+03_rb,0.11572e+04_rb /)\n      kbo(:, 1,20,11) = (/ &\n        & 0.10638e+04_rb,0.80613e+03_rb,0.60096e+03_rb,0.88236e+03_rb,0.11646e+04_rb /)\n      kbo(:, 2,20,11) = (/ &\n        & 0.10623e+04_rb,0.80416e+03_rb,0.60035e+03_rb,0.88137e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,20,11) = (/ &\n        & 0.10590e+04_rb,0.80264e+03_rb,0.59950e+03_rb,0.88013e+03_rb,0.11607e+04_rb /)\n      kbo(:, 4,20,11) = (/ &\n        & 0.10603e+04_rb,0.80308e+03_rb,0.59841e+03_rb,0.87915e+03_rb,0.11587e+04_rb /)\n      kbo(:, 5,20,11) = (/ &\n        & 0.10573e+04_rb,0.80101e+03_rb,0.59740e+03_rb,0.87729e+03_rb,0.11568e+04_rb /)\n      kbo(:, 1,21,11) = (/ &\n        & 0.10580e+04_rb,0.80255e+03_rb,0.60075e+03_rb,0.88233e+03_rb,0.11643e+04_rb /)\n      kbo(:, 2,21,11) = (/ &\n        & 0.10580e+04_rb,0.80172e+03_rb,0.60017e+03_rb,0.88121e+03_rb,0.11623e+04_rb /)\n      kbo(:, 3,21,11) = (/ &\n        & 0.10551e+04_rb,0.80129e+03_rb,0.59922e+03_rb,0.87954e+03_rb,0.11605e+04_rb /)\n      kbo(:, 4,21,11) = (/ &\n        & 0.10544e+04_rb,0.79894e+03_rb,0.59822e+03_rb,0.87866e+03_rb,0.11586e+04_rb /)\n      kbo(:, 5,21,11) = (/ &\n        & 0.10531e+04_rb,0.79850e+03_rb,0.59721e+03_rb,0.87693e+03_rb,0.11568e+04_rb /)\n      kbo(:, 1,22,11) = (/ &\n        & 0.10535e+04_rb,0.79809e+03_rb,0.60064e+03_rb,0.88198e+03_rb,0.11639e+04_rb /)\n      kbo(:, 2,22,11) = (/ &\n        & 0.10534e+04_rb,0.79679e+03_rb,0.59986e+03_rb,0.88098e+03_rb,0.11619e+04_rb /)\n      kbo(:, 3,22,11) = (/ &\n        & 0.10517e+04_rb,0.79764e+03_rb,0.59897e+03_rb,0.87993e+03_rb,0.11602e+04_rb /)\n      kbo(:, 4,22,11) = (/ &\n        & 0.10510e+04_rb,0.79739e+03_rb,0.59797e+03_rb,0.87835e+03_rb,0.11582e+04_rb /)\n      kbo(:, 5,22,11) = (/ &\n        & 0.10492e+04_rb,0.79579e+03_rb,0.59697e+03_rb,0.87672e+03_rb,0.11565e+04_rb /)\n      kbo(:, 1,23,11) = (/ &\n        & 0.10516e+04_rb,0.79606e+03_rb,0.60095e+03_rb,0.88176e+03_rb,0.11633e+04_rb /)\n      kbo(:, 2,23,11) = (/ &\n        & 0.10497e+04_rb,0.79542e+03_rb,0.59972e+03_rb,0.88074e+03_rb,0.11616e+04_rb /)\n      kbo(:, 3,23,11) = (/ &\n        & 0.10482e+04_rb,0.79453e+03_rb,0.59873e+03_rb,0.87952e+03_rb,0.11598e+04_rb /)\n      kbo(:, 4,23,11) = (/ &\n        & 0.10486e+04_rb,0.79431e+03_rb,0.59782e+03_rb,0.87802e+03_rb,0.11579e+04_rb /)\n      kbo(:, 5,23,11) = (/ &\n        & 0.10473e+04_rb,0.79522e+03_rb,0.59672e+03_rb,0.87637e+03_rb,0.11562e+04_rb /)\n      kbo(:, 1,24,11) = (/ &\n        & 0.10467e+04_rb,0.79476e+03_rb,0.60034e+03_rb,0.88154e+03_rb,0.11630e+04_rb /)\n      kbo(:, 2,24,11) = (/ &\n        & 0.10461e+04_rb,0.79357e+03_rb,0.59948e+03_rb,0.88049e+03_rb,0.11613e+04_rb /)\n      kbo(:, 3,24,11) = (/ &\n        & 0.10460e+04_rb,0.79280e+03_rb,0.59849e+03_rb,0.87921e+03_rb,0.11596e+04_rb /)\n      kbo(:, 4,24,11) = (/ &\n        & 0.10457e+04_rb,0.79222e+03_rb,0.59749e+03_rb,0.87768e+03_rb,0.11575e+04_rb /)\n      kbo(:, 5,24,11) = (/ &\n        & 0.10450e+04_rb,0.79193e+03_rb,0.59639e+03_rb,0.87600e+03_rb,0.11558e+04_rb /)\n      kbo(:, 1,25,11) = (/ &\n        & 0.10463e+04_rb,0.79209e+03_rb,0.60015e+03_rb,0.88131e+03_rb,0.11626e+04_rb /)\n      kbo(:, 2,25,11) = (/ &\n        & 0.10455e+04_rb,0.79185e+03_rb,0.59924e+03_rb,0.87983e+03_rb,0.11609e+04_rb /)\n      kbo(:, 3,25,11) = (/ &\n        & 0.10450e+04_rb,0.79214e+03_rb,0.59824e+03_rb,0.87889e+03_rb,0.11590e+04_rb /)\n      kbo(:, 4,25,11) = (/ &\n        & 0.10445e+04_rb,0.79118e+03_rb,0.59725e+03_rb,0.87732e+03_rb,0.11571e+04_rb /)\n      kbo(:, 5,25,11) = (/ &\n        & 0.10428e+04_rb,0.79168e+03_rb,0.59624e+03_rb,0.87561e+03_rb,0.11555e+04_rb /)\n      kbo(:, 1,26,11) = (/ &\n        & 0.10437e+04_rb,0.79093e+03_rb,0.59993e+03_rb,0.88106e+03_rb,0.11624e+04_rb /)\n      kbo(:, 2,26,11) = (/ &\n        & 0.10430e+04_rb,0.79091e+03_rb,0.59898e+03_rb,0.87993e+03_rb,0.11605e+04_rb /)\n      kbo(:, 3,26,11) = (/ &\n        & 0.10430e+04_rb,0.79069e+03_rb,0.59808e+03_rb,0.87852e+03_rb,0.11586e+04_rb /)\n      kbo(:, 4,26,11) = (/ &\n        & 0.10425e+04_rb,0.79087e+03_rb,0.59699e+03_rb,0.87692e+03_rb,0.11569e+04_rb /)\n      kbo(:, 5,26,11) = (/ &\n        & 0.10414e+04_rb,0.78954e+03_rb,0.59598e+03_rb,0.87517e+03_rb,0.11547e+04_rb /)\n      kbo(:, 1,27,11) = (/ &\n        & 0.10423e+04_rb,0.79028e+03_rb,0.59970e+03_rb,0.88080e+03_rb,0.11616e+04_rb /)\n      kbo(:, 2,27,11) = (/ &\n        & 0.10415e+04_rb,0.78939e+03_rb,0.59872e+03_rb,0.87961e+03_rb,0.11600e+04_rb /)\n      kbo(:, 3,27,11) = (/ &\n        & 0.10419e+04_rb,0.78972e+03_rb,0.59773e+03_rb,0.87814e+03_rb,0.11581e+04_rb /)\n      kbo(:, 4,27,11) = (/ &\n        & 0.10405e+04_rb,0.78901e+03_rb,0.59673e+03_rb,0.87651e+03_rb,0.11564e+04_rb /)\n      kbo(:, 5,27,11) = (/ &\n        & 0.10410e+04_rb,0.78880e+03_rb,0.59572e+03_rb,0.87471e+03_rb,0.11546e+04_rb /)\n      kbo(:, 1,28,11) = (/ &\n        & 0.10411e+04_rb,0.78831e+03_rb,0.59945e+03_rb,0.88052e+03_rb,0.11614e+04_rb /)\n      kbo(:, 2,28,11) = (/ &\n        & 0.10402e+04_rb,0.78866e+03_rb,0.59846e+03_rb,0.87954e+03_rb,0.11596e+04_rb /)\n      kbo(:, 3,28,11) = (/ &\n        & 0.10401e+04_rb,0.78798e+03_rb,0.59747e+03_rb,0.87776e+03_rb,0.11577e+04_rb /)\n      kbo(:, 4,28,11) = (/ &\n        & 0.10407e+04_rb,0.78779e+03_rb,0.59647e+03_rb,0.87596e+03_rb,0.11560e+04_rb /)\n      kbo(:, 5,28,11) = (/ &\n        & 0.10407e+04_rb,0.78751e+03_rb,0.59548e+03_rb,0.87425e+03_rb,0.11542e+04_rb /)\n      kbo(:, 1,29,11) = (/ &\n        & 0.10408e+04_rb,0.78876e+03_rb,0.59920e+03_rb,0.87983e+03_rb,0.11608e+04_rb /)\n      kbo(:, 2,29,11) = (/ &\n        & 0.10408e+04_rb,0.78834e+03_rb,0.59820e+03_rb,0.87891e+03_rb,0.11591e+04_rb /)\n      kbo(:, 3,29,11) = (/ &\n        & 0.10387e+04_rb,0.78864e+03_rb,0.59721e+03_rb,0.87735e+03_rb,0.11572e+04_rb /)\n      kbo(:, 4,29,11) = (/ &\n        & 0.10384e+04_rb,0.78778e+03_rb,0.59621e+03_rb,0.87578e+03_rb,0.11555e+04_rb /)\n      kbo(:, 5,29,11) = (/ &\n        & 0.10412e+04_rb,0.78824e+03_rb,0.59524e+03_rb,0.87368e+03_rb,0.11538e+04_rb /)\n      kbo(:, 1,30,11) = (/ &\n        & 0.10383e+04_rb,0.78758e+03_rb,0.59894e+03_rb,0.87992e+03_rb,0.11605e+04_rb /)\n      kbo(:, 2,30,11) = (/ &\n        & 0.10390e+04_rb,0.78755e+03_rb,0.59785e+03_rb,0.87840e+03_rb,0.11584e+04_rb /)\n      kbo(:, 3,30,11) = (/ &\n        & 0.10391e+04_rb,0.78813e+03_rb,0.59695e+03_rb,0.87693e+03_rb,0.11568e+04_rb /)\n      kbo(:, 4,30,11) = (/ &\n        & 0.10384e+04_rb,0.78683e+03_rb,0.59594e+03_rb,0.87519e+03_rb,0.11551e+04_rb /)\n      kbo(:, 5,30,11) = (/ &\n        & 0.10388e+04_rb,0.78660e+03_rb,0.59501e+03_rb,0.87341e+03_rb,0.11534e+04_rb /)\n      kbo(:, 1,31,11) = (/ &\n        & 0.10376e+04_rb,0.78640e+03_rb,0.59867e+03_rb,0.87959e+03_rb,0.11601e+04_rb /)\n      kbo(:, 2,31,11) = (/ &\n        & 0.10381e+04_rb,0.78687e+03_rb,0.59768e+03_rb,0.87813e+03_rb,0.11581e+04_rb /)\n      kbo(:, 3,31,11) = (/ &\n        & 0.10369e+04_rb,0.78736e+03_rb,0.59668e+03_rb,0.87650e+03_rb,0.11564e+04_rb /)\n      kbo(:, 4,31,11) = (/ &\n        & 0.10380e+04_rb,0.78738e+03_rb,0.59577e+03_rb,0.87483e+03_rb,0.11546e+04_rb /)\n      kbo(:, 5,31,11) = (/ &\n        & 0.10391e+04_rb,0.78671e+03_rb,0.59479e+03_rb,0.87299e+03_rb,0.11532e+04_rb /)\n      kbo(:, 1,32,11) = (/ &\n        & 0.10371e+04_rb,0.78531e+03_rb,0.59840e+03_rb,0.87936e+03_rb,0.11596e+04_rb /)\n      kbo(:, 2,32,11) = (/ &\n        & 0.10383e+04_rb,0.78734e+03_rb,0.59742e+03_rb,0.87771e+03_rb,0.11576e+04_rb /)\n      kbo(:, 3,32,11) = (/ &\n        & 0.10363e+04_rb,0.78691e+03_rb,0.59641e+03_rb,0.87605e+03_rb,0.11559e+04_rb /)\n      kbo(:, 4,32,11) = (/ &\n        & 0.10373e+04_rb,0.78648e+03_rb,0.59543e+03_rb,0.87420e+03_rb,0.11542e+04_rb /)\n      kbo(:, 5,32,11) = (/ &\n        & 0.10376e+04_rb,0.78617e+03_rb,0.59455e+03_rb,0.87256e+03_rb,0.11529e+04_rb /)\n      kbo(:, 1,33,11) = (/ &\n        & 0.10366e+04_rb,0.78725e+03_rb,0.59814e+03_rb,0.87885e+03_rb,0.11591e+04_rb /)\n      kbo(:, 2,33,11) = (/ &\n        & 0.10366e+04_rb,0.78694e+03_rb,0.59715e+03_rb,0.87729e+03_rb,0.11572e+04_rb /)\n      kbo(:, 3,33,11) = (/ &\n        & 0.10365e+04_rb,0.78534e+03_rb,0.59614e+03_rb,0.87545e+03_rb,0.11555e+04_rb /)\n      kbo(:, 4,33,11) = (/ &\n        & 0.10377e+04_rb,0.78705e+03_rb,0.59518e+03_rb,0.87362e+03_rb,0.11536e+04_rb /)\n      kbo(:, 5,33,11) = (/ &\n        & 0.10381e+04_rb,0.78546e+03_rb,0.59428e+03_rb,0.87201e+03_rb,0.11526e+04_rb /)\n      kbo(:, 1,34,11) = (/ &\n        & 0.10370e+04_rb,0.78547e+03_rb,0.59791e+03_rb,0.87837e+03_rb,0.11586e+04_rb /)\n      kbo(:, 2,34,11) = (/ &\n        & 0.10369e+04_rb,0.78635e+03_rb,0.59683e+03_rb,0.87691e+03_rb,0.11568e+04_rb /)\n      kbo(:, 3,34,11) = (/ &\n        & 0.10373e+04_rb,0.78607e+03_rb,0.59591e+03_rb,0.87516e+03_rb,0.11551e+04_rb /)\n      kbo(:, 4,34,11) = (/ &\n        & 0.10371e+04_rb,0.78696e+03_rb,0.59498e+03_rb,0.87338e+03_rb,0.11534e+04_rb /)\n      kbo(:, 5,34,11) = (/ &\n        & 0.10366e+04_rb,0.78538e+03_rb,0.59374e+03_rb,0.87179e+03_rb,0.11524e+04_rb /)\n      kbo(:, 1,35,11) = (/ &\n        & 0.10371e+04_rb,0.78681e+03_rb,0.59778e+03_rb,0.87830e+03_rb,0.11583e+04_rb /)\n      kbo(:, 2,35,11) = (/ &\n        & 0.10367e+04_rb,0.78665e+03_rb,0.59678e+03_rb,0.87669e+03_rb,0.11566e+04_rb /)\n      kbo(:, 3,35,11) = (/ &\n        & 0.10363e+04_rb,0.78613e+03_rb,0.59569e+03_rb,0.87491e+03_rb,0.11549e+04_rb /)\n      kbo(:, 4,35,11) = (/ &\n        & 0.10364e+04_rb,0.78668e+03_rb,0.59487e+03_rb,0.87304e+03_rb,0.11533e+04_rb /)\n      kbo(:, 5,35,11) = (/ &\n        & 0.10370e+04_rb,0.78641e+03_rb,0.59363e+03_rb,0.87159e+03_rb,0.11523e+04_rb /)\n      kbo(:, 1,36,11) = (/ &\n        & 0.10366e+04_rb,0.78595e+03_rb,0.59775e+03_rb,0.87827e+03_rb,0.11583e+04_rb /)\n      kbo(:, 2,36,11) = (/ &\n        & 0.10367e+04_rb,0.78568e+03_rb,0.59676e+03_rb,0.87652e+03_rb,0.11565e+04_rb /)\n      kbo(:, 3,36,11) = (/ &\n        & 0.10363e+04_rb,0.78600e+03_rb,0.59575e+03_rb,0.87487e+03_rb,0.11548e+04_rb /)\n      kbo(:, 4,36,11) = (/ &\n        & 0.10370e+04_rb,0.78596e+03_rb,0.59503e+03_rb,0.87314e+03_rb,0.11533e+04_rb /)\n      kbo(:, 5,36,11) = (/ &\n        & 0.10356e+04_rb,0.78546e+03_rb,0.59359e+03_rb,0.87116e+03_rb,0.11523e+04_rb /)\n      kbo(:, 1,37,11) = (/ &\n        & 0.10367e+04_rb,0.78524e+03_rb,0.59788e+03_rb,0.87847e+03_rb,0.11586e+04_rb /)\n      kbo(:, 2,37,11) = (/ &\n        & 0.10373e+04_rb,0.78580e+03_rb,0.59689e+03_rb,0.87687e+03_rb,0.11567e+04_rb /)\n      kbo(:, 3,37,11) = (/ &\n        & 0.10369e+04_rb,0.78554e+03_rb,0.59588e+03_rb,0.87512e+03_rb,0.11550e+04_rb /)\n      kbo(:, 4,37,11) = (/ &\n        & 0.10372e+04_rb,0.78551e+03_rb,0.59495e+03_rb,0.87335e+03_rb,0.11534e+04_rb /)\n      kbo(:, 5,37,11) = (/ &\n        & 0.10364e+04_rb,0.78631e+03_rb,0.59378e+03_rb,0.87175e+03_rb,0.11524e+04_rb /)\n      kbo(:, 1,38,11) = (/ &\n        & 0.10372e+04_rb,0.78574e+03_rb,0.59801e+03_rb,0.87867e+03_rb,0.11588e+04_rb /)\n      kbo(:, 2,38,11) = (/ &\n        & 0.10364e+04_rb,0.78476e+03_rb,0.59702e+03_rb,0.87710e+03_rb,0.11570e+04_rb /)\n      kbo(:, 3,38,11) = (/ &\n        & 0.10351e+04_rb,0.78521e+03_rb,0.59593e+03_rb,0.87537e+03_rb,0.11553e+04_rb /)\n      kbo(:, 4,38,11) = (/ &\n        & 0.10362e+04_rb,0.78507e+03_rb,0.59507e+03_rb,0.87344e+03_rb,0.11536e+04_rb /)\n      kbo(:, 5,38,11) = (/ &\n        & 0.10371e+04_rb,0.78635e+03_rb,0.59400e+03_rb,0.87197e+03_rb,0.11525e+04_rb /)\n      kbo(:, 1,39,11) = (/ &\n        & 0.10359e+04_rb,0.78601e+03_rb,0.59815e+03_rb,0.87888e+03_rb,0.11591e+04_rb /)\n      kbo(:, 2,39,11) = (/ &\n        & 0.10375e+04_rb,0.78669e+03_rb,0.59716e+03_rb,0.87732e+03_rb,0.11572e+04_rb /)\n      kbo(:, 3,39,11) = (/ &\n        & 0.10350e+04_rb,0.78597e+03_rb,0.59615e+03_rb,0.87562e+03_rb,0.11555e+04_rb /)\n      kbo(:, 4,39,11) = (/ &\n        & 0.10366e+04_rb,0.78524e+03_rb,0.59519e+03_rb,0.87365e+03_rb,0.11538e+04_rb /)\n      kbo(:, 5,39,11) = (/ &\n        & 0.10373e+04_rb,0.78605e+03_rb,0.59422e+03_rb,0.87205e+03_rb,0.11526e+04_rb /)\n      kbo(:, 1,40,11) = (/ &\n        & 0.10361e+04_rb,0.78559e+03_rb,0.59838e+03_rb,0.87949e+03_rb,0.11596e+04_rb /)\n      kbo(:, 2,40,11) = (/ &\n        & 0.10364e+04_rb,0.78533e+03_rb,0.59740e+03_rb,0.87771e+03_rb,0.11576e+04_rb /)\n      kbo(:, 3,40,11) = (/ &\n        & 0.10357e+04_rb,0.78567e+03_rb,0.59640e+03_rb,0.87605e+03_rb,0.11559e+04_rb /)\n      kbo(:, 4,40,11) = (/ &\n        & 0.10354e+04_rb,0.78518e+03_rb,0.59541e+03_rb,0.87434e+03_rb,0.11542e+04_rb /)\n      kbo(:, 5,40,11) = (/ &\n        & 0.10361e+04_rb,0.78553e+03_rb,0.59453e+03_rb,0.87244e+03_rb,0.11529e+04_rb /)\n      kbo(:, 1,41,11) = (/ &\n        & 0.10352e+04_rb,0.78554e+03_rb,0.59863e+03_rb,0.87958e+03_rb,0.11601e+04_rb /)\n      kbo(:, 2,41,11) = (/ &\n        & 0.10361e+04_rb,0.78611e+03_rb,0.59765e+03_rb,0.87811e+03_rb,0.11581e+04_rb /)\n      kbo(:, 3,41,11) = (/ &\n        & 0.10357e+04_rb,0.78586e+03_rb,0.59665e+03_rb,0.87648e+03_rb,0.11564e+04_rb /)\n      kbo(:, 4,41,11) = (/ &\n        & 0.10369e+04_rb,0.78632e+03_rb,0.59556e+03_rb,0.87469e+03_rb,0.11547e+04_rb /)\n      kbo(:, 5,41,11) = (/ &\n        & 0.10372e+04_rb,0.78631e+03_rb,0.59476e+03_rb,0.87298e+03_rb,0.11532e+04_rb /)\n      kbo(:, 1,42,11) = (/ &\n        & 0.10352e+04_rb,0.78620e+03_rb,0.59889e+03_rb,0.87990e+03_rb,0.11605e+04_rb /)\n      kbo(:, 2,42,11) = (/ &\n        & 0.10362e+04_rb,0.78666e+03_rb,0.59790e+03_rb,0.87851e+03_rb,0.11586e+04_rb /)\n      kbo(:, 3,42,11) = (/ &\n        & 0.10358e+04_rb,0.78476e+03_rb,0.59691e+03_rb,0.87691e+03_rb,0.11568e+04_rb /)\n      kbo(:, 4,42,11) = (/ &\n        & 0.10367e+04_rb,0.78534e+03_rb,0.59590e+03_rb,0.87517e+03_rb,0.11551e+04_rb /)\n      kbo(:, 5,42,11) = (/ &\n        & 0.10374e+04_rb,0.78497e+03_rb,0.59497e+03_rb,0.87339e+03_rb,0.11533e+04_rb /)\n      kbo(:, 1,43,11) = (/ &\n        & 0.10357e+04_rb,0.78569e+03_rb,0.59919e+03_rb,0.88014e+03_rb,0.11611e+04_rb /)\n      kbo(:, 2,43,11) = (/ &\n        & 0.10384e+04_rb,0.78603e+03_rb,0.59811e+03_rb,0.87910e+03_rb,0.11592e+04_rb /)\n      kbo(:, 3,43,11) = (/ &\n        & 0.10376e+04_rb,0.78685e+03_rb,0.59731e+03_rb,0.87742e+03_rb,0.11573e+04_rb /)\n      kbo(:, 4,43,11) = (/ &\n        & 0.10368e+04_rb,0.78484e+03_rb,0.59612e+03_rb,0.87573e+03_rb,0.11555e+04_rb /)\n      kbo(:, 5,43,11) = (/ &\n        & 0.10371e+04_rb,0.78612e+03_rb,0.59525e+03_rb,0.87389e+03_rb,0.11539e+04_rb /)\n      kbo(:, 1,44,11) = (/ &\n        & 0.10362e+04_rb,0.78531e+03_rb,0.59952e+03_rb,0.88052e+03_rb,0.11615e+04_rb /)\n      kbo(:, 2,44,11) = (/ &\n        & 0.10357e+04_rb,0.78506e+03_rb,0.59854e+03_rb,0.87945e+03_rb,0.11599e+04_rb /)\n      kbo(:, 3,44,11) = (/ &\n        & 0.10347e+04_rb,0.78494e+03_rb,0.59755e+03_rb,0.87796e+03_rb,0.11576e+04_rb /)\n      kbo(:, 4,44,11) = (/ &\n        & 0.10360e+04_rb,0.78599e+03_rb,0.59655e+03_rb,0.87632e+03_rb,0.11562e+04_rb /)\n      kbo(:, 5,44,11) = (/ &\n        & 0.10364e+04_rb,0.78610e+03_rb,0.59556e+03_rb,0.87451e+03_rb,0.11545e+04_rb /)\n      kbo(:, 1,45,11) = (/ &\n        & 0.10355e+04_rb,0.78552e+03_rb,0.59982e+03_rb,0.88100e+03_rb,0.11621e+04_rb /)\n      kbo(:, 2,45,11) = (/ &\n        & 0.10357e+04_rb,0.78527e+03_rb,0.59887e+03_rb,0.87975e+03_rb,0.11605e+04_rb /)\n      kbo(:, 3,45,11) = (/ &\n        & 0.10358e+04_rb,0.78432e+03_rb,0.59788e+03_rb,0.87848e+03_rb,0.11586e+04_rb /)\n      kbo(:, 4,45,11) = (/ &\n        & 0.10358e+04_rb,0.78597e+03_rb,0.59689e+03_rb,0.87689e+03_rb,0.11568e+04_rb /)\n      kbo(:, 5,45,11) = (/ &\n        & 0.10353e+04_rb,0.78525e+03_rb,0.59589e+03_rb,0.87514e+03_rb,0.11551e+04_rb /)\n      kbo(:, 1,46,11) = (/ &\n        & 0.10358e+04_rb,0.78503e+03_rb,0.60010e+03_rb,0.88136e+03_rb,0.11629e+04_rb /)\n      kbo(:, 2,46,11) = (/ &\n        & 0.10366e+04_rb,0.78667e+03_rb,0.59923e+03_rb,0.88004e+03_rb,0.11611e+04_rb /)\n      kbo(:, 3,46,11) = (/ &\n        & 0.10372e+04_rb,0.78560e+03_rb,0.59824e+03_rb,0.87915e+03_rb,0.11593e+04_rb /)\n      kbo(:, 4,46,11) = (/ &\n        & 0.10348e+04_rb,0.78513e+03_rb,0.59725e+03_rb,0.87748e+03_rb,0.11574e+04_rb /)\n      kbo(:, 5,46,11) = (/ &\n        & 0.10372e+04_rb,0.78595e+03_rb,0.59625e+03_rb,0.87592e+03_rb,0.11557e+04_rb /)\n      kbo(:, 1,47,11) = (/ &\n        & 0.10352e+04_rb,0.78466e+03_rb,0.60059e+03_rb,0.88175e+03_rb,0.11637e+04_rb /)\n      kbo(:, 2,47,11) = (/ &\n        & 0.10362e+04_rb,0.78477e+03_rb,0.59970e+03_rb,0.88075e+03_rb,0.11618e+04_rb /)\n      kbo(:, 3,47,11) = (/ &\n        & 0.10362e+04_rb,0.78559e+03_rb,0.59863e+03_rb,0.87958e+03_rb,0.11601e+04_rb /)\n      kbo(:, 4,47,11) = (/ &\n        & 0.10356e+04_rb,0.78476e+03_rb,0.59765e+03_rb,0.87812e+03_rb,0.11581e+04_rb /)\n      kbo(:, 5,47,11) = (/ &\n        & 0.10361e+04_rb,0.78428e+03_rb,0.59665e+03_rb,0.87649e+03_rb,0.11564e+04_rb /)\n      kbo(:, 1,48,11) = (/ &\n        & 0.10354e+04_rb,0.78500e+03_rb,0.60042e+03_rb,0.88214e+03_rb,0.11645e+04_rb /)\n      kbo(:, 2,48,11) = (/ &\n        & 0.10348e+04_rb,0.78582e+03_rb,0.59995e+03_rb,0.88117e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,48,11) = (/ &\n        & 0.10353e+04_rb,0.78569e+03_rb,0.59903e+03_rb,0.87942e+03_rb,0.11608e+04_rb /)\n      kbo(:, 4,48,11) = (/ &\n        & 0.10359e+04_rb,0.78569e+03_rb,0.59804e+03_rb,0.87873e+03_rb,0.11589e+04_rb /)\n      kbo(:, 5,48,11) = (/ &\n        & 0.10354e+04_rb,0.78509e+03_rb,0.59705e+03_rb,0.87716e+03_rb,0.11570e+04_rb /)\n      kbo(:, 1,49,11) = (/ &\n        & 0.10362e+04_rb,0.78463e+03_rb,0.60042e+03_rb,0.88242e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,49,11) = (/ &\n        & 0.10367e+04_rb,0.78580e+03_rb,0.60023e+03_rb,0.88156e+03_rb,0.11633e+04_rb /)\n      kbo(:, 3,49,11) = (/ &\n        & 0.10373e+04_rb,0.78533e+03_rb,0.59942e+03_rb,0.88054e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,49,11) = (/ &\n        & 0.10373e+04_rb,0.78462e+03_rb,0.59844e+03_rb,0.87918e+03_rb,0.11595e+04_rb /)\n      kbo(:, 5,49,11) = (/ &\n        & 0.10370e+04_rb,0.78532e+03_rb,0.59736e+03_rb,0.87781e+03_rb,0.11578e+04_rb /)\n      kbo(:, 1,50,11) = (/ &\n        & 0.10356e+04_rb,0.78474e+03_rb,0.60056e+03_rb,0.88267e+03_rb,0.11666e+04_rb /)\n      kbo(:, 2,50,11) = (/ &\n        & 0.10370e+04_rb,0.78497e+03_rb,0.60046e+03_rb,0.88192e+03_rb,0.11642e+04_rb /)\n      kbo(:, 3,50,11) = (/ &\n        & 0.10348e+04_rb,0.78508e+03_rb,0.59977e+03_rb,0.88094e+03_rb,0.11634e+04_rb /)\n      kbo(:, 4,50,11) = (/ &\n        & 0.10352e+04_rb,0.78473e+03_rb,0.59881e+03_rb,0.87954e+03_rb,0.11604e+04_rb /)\n      kbo(:, 5,50,11) = (/ &\n        & 0.10360e+04_rb,0.78437e+03_rb,0.59782e+03_rb,0.87840e+03_rb,0.11585e+04_rb /)\n      kbo(:, 1,51,11) = (/ &\n        & 0.10365e+04_rb,0.78532e+03_rb,0.60054e+03_rb,0.88306e+03_rb,0.11674e+04_rb /)\n      kbo(:, 2,51,11) = (/ &\n        & 0.10360e+04_rb,0.78555e+03_rb,0.60046e+03_rb,0.88226e+03_rb,0.11651e+04_rb /)\n      kbo(:, 3,51,11) = (/ &\n        & 0.10359e+04_rb,0.78508e+03_rb,0.60006e+03_rb,0.88131e+03_rb,0.11628e+04_rb /)\n      kbo(:, 4,51,11) = (/ &\n        & 0.10359e+04_rb,0.78554e+03_rb,0.59917e+03_rb,0.88011e+03_rb,0.11610e+04_rb /)\n      kbo(:, 5,51,11) = (/ &\n        & 0.10363e+04_rb,0.78507e+03_rb,0.59818e+03_rb,0.87894e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,52,11) = (/ &\n        & 0.10357e+04_rb,0.78531e+03_rb,0.60048e+03_rb,0.88333e+03_rb,0.11687e+04_rb /)\n      kbo(:, 2,52,11) = (/ &\n        & 0.10368e+04_rb,0.78554e+03_rb,0.60053e+03_rb,0.88249e+03_rb,0.11660e+04_rb /)\n      kbo(:, 3,52,11) = (/ &\n        & 0.10362e+04_rb,0.78601e+03_rb,0.60037e+03_rb,0.88166e+03_rb,0.11635e+04_rb /)\n      kbo(:, 4,52,11) = (/ &\n        & 0.10354e+04_rb,0.78507e+03_rb,0.59952e+03_rb,0.88066e+03_rb,0.11617e+04_rb /)\n      kbo(:, 5,52,11) = (/ &\n        & 0.10363e+04_rb,0.78565e+03_rb,0.59854e+03_rb,0.87959e+03_rb,0.11599e+04_rb /)\n      kbo(:, 1,53,11) = (/ &\n        & 0.10366e+04_rb,0.78460e+03_rb,0.60030e+03_rb,0.88415e+03_rb,0.11699e+04_rb /)\n      kbo(:, 2,53,11) = (/ &\n        & 0.10366e+04_rb,0.78400e+03_rb,0.60056e+03_rb,0.88262e+03_rb,0.11668e+04_rb /)\n      kbo(:, 3,53,11) = (/ &\n        & 0.10358e+04_rb,0.78459e+03_rb,0.60039e+03_rb,0.88202e+03_rb,0.11644e+04_rb /)\n      kbo(:, 4,53,11) = (/ &\n        & 0.10348e+04_rb,0.78471e+03_rb,0.59985e+03_rb,0.88104e+03_rb,0.11623e+04_rb /)\n      kbo(:, 5,53,11) = (/ &\n        & 0.10366e+04_rb,0.78577e+03_rb,0.59891e+03_rb,0.87992e+03_rb,0.11606e+04_rb /)\n      kbo(:, 1,54,11) = (/ &\n        & 0.10355e+04_rb,0.78471e+03_rb,0.60033e+03_rb,0.88501e+03_rb,0.11708e+04_rb /)\n      kbo(:, 2,54,11) = (/ &\n        & 0.10360e+04_rb,0.78494e+03_rb,0.60053e+03_rb,0.88313e+03_rb,0.11678e+04_rb /)\n      kbo(:, 3,54,11) = (/ &\n        & 0.10360e+04_rb,0.78671e+03_rb,0.60047e+03_rb,0.88230e+03_rb,0.11652e+04_rb /)\n      kbo(:, 4,54,11) = (/ &\n        & 0.10355e+04_rb,0.78588e+03_rb,0.60010e+03_rb,0.88137e+03_rb,0.11629e+04_rb /)\n      kbo(:, 5,54,11) = (/ &\n        & 0.10357e+04_rb,0.78517e+03_rb,0.59924e+03_rb,0.88032e+03_rb,0.11612e+04_rb /)\n      kbo(:, 1,55,11) = (/ &\n        & 0.10357e+04_rb,0.78506e+03_rb,0.60035e+03_rb,0.88567e+03_rb,0.11714e+04_rb /)\n      kbo(:, 2,55,11) = (/ &\n        & 0.10357e+04_rb,0.78518e+03_rb,0.60047e+03_rb,0.88349e+03_rb,0.11688e+04_rb /)\n      kbo(:, 3,55,11) = (/ &\n        & 0.10361e+04_rb,0.78517e+03_rb,0.60053e+03_rb,0.88250e+03_rb,0.11660e+04_rb /)\n      kbo(:, 4,55,11) = (/ &\n        & 0.10357e+04_rb,0.78529e+03_rb,0.60029e+03_rb,0.88168e+03_rb,0.11636e+04_rb /)\n      kbo(:, 5,55,11) = (/ &\n        & 0.10360e+04_rb,0.78529e+03_rb,0.59954e+03_rb,0.88068e+03_rb,0.11617e+04_rb /)\n      kbo(:, 1,56,11) = (/ &\n        & 0.10361e+04_rb,0.78494e+03_rb,0.60049e+03_rb,0.88607e+03_rb,0.11718e+04_rb /)\n      kbo(:, 2,56,11) = (/ &\n        & 0.10360e+04_rb,0.78482e+03_rb,0.60030e+03_rb,0.88410e+03_rb,0.11698e+04_rb /)\n      kbo(:, 3,56,11) = (/ &\n        & 0.10354e+04_rb,0.78493e+03_rb,0.60056e+03_rb,0.88273e+03_rb,0.11667e+04_rb /)\n      kbo(:, 4,56,11) = (/ &\n        & 0.10357e+04_rb,0.78552e+03_rb,0.60038e+03_rb,0.88199e+03_rb,0.11645e+04_rb /)\n      kbo(:, 5,56,11) = (/ &\n        & 0.10357e+04_rb,0.78517e+03_rb,0.59983e+03_rb,0.88101e+03_rb,0.11624e+04_rb /)\n      kbo(:, 1,57,11) = (/ &\n        & 0.10357e+04_rb,0.78588e+03_rb,0.60099e+03_rb,0.88686e+03_rb,0.11725e+04_rb /)\n      kbo(:, 2,57,11) = (/ &\n        & 0.10366e+04_rb,0.78458e+03_rb,0.60033e+03_rb,0.88491e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,57,11) = (/ &\n        & 0.10366e+04_rb,0.78481e+03_rb,0.60053e+03_rb,0.88335e+03_rb,0.11676e+04_rb /)\n      kbo(:, 4,57,11) = (/ &\n        & 0.10358e+04_rb,0.78611e+03_rb,0.60046e+03_rb,0.88227e+03_rb,0.11650e+04_rb /)\n      kbo(:, 5,57,11) = (/ &\n        & 0.10355e+04_rb,0.78599e+03_rb,0.60008e+03_rb,0.88133e+03_rb,0.11630e+04_rb /)\n      kbo(:, 1,58,11) = (/ &\n        & 0.10363e+04_rb,0.78576e+03_rb,0.60143e+03_rb,0.88764e+03_rb,0.11733e+04_rb /)\n      kbo(:, 2,58,11) = (/ &\n        & 0.10354e+04_rb,0.78611e+03_rb,0.60042e+03_rb,0.88557e+03_rb,0.11713e+04_rb /)\n      kbo(:, 3,58,11) = (/ &\n        & 0.10363e+04_rb,0.78576e+03_rb,0.60048e+03_rb,0.88329e+03_rb,0.11686e+04_rb /)\n      kbo(:, 4,58,11) = (/ &\n        & 0.10364e+04_rb,0.78505e+03_rb,0.60052e+03_rb,0.88247e+03_rb,0.11659e+04_rb /)\n      kbo(:, 5,58,11) = (/ &\n        & 0.10357e+04_rb,0.78552e+03_rb,0.60026e+03_rb,0.88163e+03_rb,0.11633e+04_rb /)\n      kbo(:, 1,59,11) = (/ &\n        & 0.10354e+04_rb,0.78634e+03_rb,0.60176e+03_rb,0.88797e+03_rb,0.11736e+04_rb /)\n      kbo(:, 2,59,11) = (/ &\n        & 0.10350e+04_rb,0.78505e+03_rb,0.60038e+03_rb,0.88577e+03_rb,0.11715e+04_rb /)\n      kbo(:, 3,59,11) = (/ &\n        & 0.10360e+04_rb,0.78469e+03_rb,0.60046e+03_rb,0.88358e+03_rb,0.11703e+04_rb /)\n      kbo(:, 4,59,11) = (/ &\n        & 0.10357e+04_rb,0.78493e+03_rb,0.60045e+03_rb,0.88254e+03_rb,0.11662e+04_rb /)\n      kbo(:, 5,59,11) = (/ &\n        & 0.10366e+04_rb,0.78516e+03_rb,0.60041e+03_rb,0.88174e+03_rb,0.11637e+04_rb /)\n      kbo(:, 1,13,12) = (/ &\n        & 0.11535e+04_rb,0.87955e+03_rb,0.60434e+03_rb,0.88744e+03_rb,0.11710e+04_rb /)\n      kbo(:, 2,13,12) = (/ &\n        & 0.11485e+04_rb,0.86886e+03_rb,0.60369e+03_rb,0.88598e+03_rb,0.11697e+04_rb /)\n      kbo(:, 3,13,12) = (/ &\n        & 0.11395e+04_rb,0.86441e+03_rb,0.60332e+03_rb,0.88477e+03_rb,0.11680e+04_rb /)\n      kbo(:, 4,13,12) = (/ &\n        & 0.11350e+04_rb,0.86216e+03_rb,0.60276e+03_rb,0.88294e+03_rb,0.11659e+04_rb /)\n      kbo(:, 5,13,12) = (/ &\n        & 0.11237e+04_rb,0.85514e+03_rb,0.60186e+03_rb,0.88131e+03_rb,0.11640e+04_rb /)\n      kbo(:, 1,14,12) = (/ &\n        & 0.11312e+04_rb,0.85960e+03_rb,0.60391e+03_rb,0.88683e+03_rb,0.11708e+04_rb /)\n      kbo(:, 2,14,12) = (/ &\n        & 0.11248e+04_rb,0.85192e+03_rb,0.60329e+03_rb,0.88591e+03_rb,0.11696e+04_rb /)\n      kbo(:, 3,14,12) = (/ &\n        & 0.11210e+04_rb,0.84824e+03_rb,0.60297e+03_rb,0.88444e+03_rb,0.11678e+04_rb /)\n      kbo(:, 4,14,12) = (/ &\n        & 0.11139e+04_rb,0.84322e+03_rb,0.60241e+03_rb,0.88264e+03_rb,0.11657e+04_rb /)\n      kbo(:, 5,14,12) = (/ &\n        & 0.11123e+04_rb,0.84158e+03_rb,0.60150e+03_rb,0.88104e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,15,12) = (/ &\n        & 0.11159e+04_rb,0.84414e+03_rb,0.60344e+03_rb,0.88657e+03_rb,0.11715e+04_rb /)\n      kbo(:, 2,15,12) = (/ &\n        & 0.11106e+04_rb,0.84043e+03_rb,0.60296e+03_rb,0.88568e+03_rb,0.11695e+04_rb /)\n      kbo(:, 3,15,12) = (/ &\n        & 0.11018e+04_rb,0.83588e+03_rb,0.60268e+03_rb,0.88413e+03_rb,0.11676e+04_rb /)\n      kbo(:, 4,15,12) = (/ &\n        & 0.10976e+04_rb,0.83213e+03_rb,0.60210e+03_rb,0.88235e+03_rb,0.11655e+04_rb /)\n      kbo(:, 5,15,12) = (/ &\n        & 0.10965e+04_rb,0.83273e+03_rb,0.60128e+03_rb,0.88077e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,16,12) = (/ &\n        & 0.11003e+04_rb,0.83414e+03_rb,0.60325e+03_rb,0.88634e+03_rb,0.11705e+04_rb /)\n      kbo(:, 2,16,12) = (/ &\n        & 0.10991e+04_rb,0.82921e+03_rb,0.60259e+03_rb,0.88546e+03_rb,0.11694e+04_rb /)\n      kbo(:, 3,16,12) = (/ &\n        & 0.10955e+04_rb,0.82665e+03_rb,0.60243e+03_rb,0.88384e+03_rb,0.11674e+04_rb /)\n      kbo(:, 4,16,12) = (/ &\n        & 0.10851e+04_rb,0.82401e+03_rb,0.60183e+03_rb,0.88207e+03_rb,0.11653e+04_rb /)\n      kbo(:, 5,16,12) = (/ &\n        & 0.10849e+04_rb,0.82356e+03_rb,0.60085e+03_rb,0.88053e+03_rb,0.11635e+04_rb /)\n      kbo(:, 1,17,12) = (/ &\n        & 0.10876e+04_rb,0.82527e+03_rb,0.60299e+03_rb,0.88614e+03_rb,0.11702e+04_rb /)\n      kbo(:, 2,17,12) = (/ &\n        & 0.10859e+04_rb,0.82135e+03_rb,0.60250e+03_rb,0.88526e+03_rb,0.11692e+04_rb /)\n      kbo(:, 3,17,12) = (/ &\n        & 0.10841e+04_rb,0.81891e+03_rb,0.60222e+03_rb,0.88356e+03_rb,0.11671e+04_rb /)\n      kbo(:, 4,17,12) = (/ &\n        & 0.10784e+04_rb,0.81708e+03_rb,0.60159e+03_rb,0.88183e+03_rb,0.11651e+04_rb /)\n      kbo(:, 5,17,12) = (/ &\n        & 0.10763e+04_rb,0.81350e+03_rb,0.60170e+03_rb,0.88030e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,18,12) = (/ &\n        & 0.10781e+04_rb,0.81748e+03_rb,0.60276e+03_rb,0.88597e+03_rb,0.11700e+04_rb /)\n      kbo(:, 2,18,12) = (/ &\n        & 0.10771e+04_rb,0.81396e+03_rb,0.60232e+03_rb,0.88573e+03_rb,0.11691e+04_rb /)\n      kbo(:, 3,18,12) = (/ &\n        & 0.10718e+04_rb,0.81415e+03_rb,0.60204e+03_rb,0.88331e+03_rb,0.11669e+04_rb /)\n      kbo(:, 4,18,12) = (/ &\n        & 0.10689e+04_rb,0.81027e+03_rb,0.60137e+03_rb,0.88144e+03_rb,0.11649e+04_rb /)\n      kbo(:, 5,18,12) = (/ &\n        & 0.10691e+04_rb,0.80937e+03_rb,0.60029e+03_rb,0.88009e+03_rb,0.11632e+04_rb /)\n      kbo(:, 1,19,12) = (/ &\n        & 0.10732e+04_rb,0.81093e+03_rb,0.60257e+03_rb,0.88582e+03_rb,0.11702e+04_rb /)\n      kbo(:, 2,19,12) = (/ &\n        & 0.10665e+04_rb,0.81093e+03_rb,0.60218e+03_rb,0.88486e+03_rb,0.11689e+04_rb /)\n      kbo(:, 3,19,12) = (/ &\n        & 0.10668e+04_rb,0.80596e+03_rb,0.60188e+03_rb,0.88291e+03_rb,0.11667e+04_rb /)\n      kbo(:, 4,19,12) = (/ &\n        & 0.10625e+04_rb,0.80871e+03_rb,0.60129e+03_rb,0.88139e+03_rb,0.11647e+04_rb /)\n      kbo(:, 5,19,12) = (/ &\n        & 0.10641e+04_rb,0.80549e+03_rb,0.60005e+03_rb,0.87990e+03_rb,0.11631e+04_rb /)\n      kbo(:, 1,20,12) = (/ &\n        & 0.10655e+04_rb,0.80608e+03_rb,0.60228e+03_rb,0.88568e+03_rb,0.11700e+04_rb /)\n      kbo(:, 2,20,12) = (/ &\n        & 0.10621e+04_rb,0.80582e+03_rb,0.60205e+03_rb,0.88462e+03_rb,0.11686e+04_rb /)\n      kbo(:, 3,20,12) = (/ &\n        & 0.10596e+04_rb,0.80439e+03_rb,0.60161e+03_rb,0.88282e+03_rb,0.11664e+04_rb /)\n      kbo(:, 4,20,12) = (/ &\n        & 0.10569e+04_rb,0.80052e+03_rb,0.60133e+03_rb,0.88084e+03_rb,0.11645e+04_rb /)\n      kbo(:, 5,20,12) = (/ &\n        & 0.10576e+04_rb,0.80029e+03_rb,0.59980e+03_rb,0.87969e+03_rb,0.11629e+04_rb /)\n      kbo(:, 1,21,12) = (/ &\n        & 0.10601e+04_rb,0.80047e+03_rb,0.60235e+03_rb,0.88539e+03_rb,0.11699e+04_rb /)\n      kbo(:, 2,21,12) = (/ &\n        & 0.10553e+04_rb,0.80126e+03_rb,0.60195e+03_rb,0.88437e+03_rb,0.11684e+04_rb /)\n      kbo(:, 3,21,12) = (/ &\n        & 0.10581e+04_rb,0.79916e+03_rb,0.60159e+03_rb,0.88257e+03_rb,0.11662e+04_rb /)\n      kbo(:, 4,21,12) = (/ &\n        & 0.10523e+04_rb,0.79871e+03_rb,0.60090e+03_rb,0.88096e+03_rb,0.11643e+04_rb /)\n      kbo(:, 5,21,12) = (/ &\n        & 0.10536e+04_rb,0.79852e+03_rb,0.59957e+03_rb,0.87950e+03_rb,0.11627e+04_rb /)\n      kbo(:, 1,22,12) = (/ &\n        & 0.10543e+04_rb,0.79995e+03_rb,0.60207e+03_rb,0.88538e+03_rb,0.11697e+04_rb /)\n      kbo(:, 2,22,12) = (/ &\n        & 0.10531e+04_rb,0.79794e+03_rb,0.60195e+03_rb,0.88401e+03_rb,0.11680e+04_rb /)\n      kbo(:, 3,22,12) = (/ &\n        & 0.10510e+04_rb,0.79590e+03_rb,0.60141e+03_rb,0.88205e+03_rb,0.11658e+04_rb /)\n      kbo(:, 4,22,12) = (/ &\n        & 0.10516e+04_rb,0.79518e+03_rb,0.60121e+03_rb,0.88065e+03_rb,0.11640e+04_rb /)\n      kbo(:, 5,22,12) = (/ &\n        & 0.10507e+04_rb,0.79514e+03_rb,0.59925e+03_rb,0.87922e+03_rb,0.11625e+04_rb /)\n      kbo(:, 1,23,12) = (/ &\n        & 0.10496e+04_rb,0.79686e+03_rb,0.60138e+03_rb,0.88518e+03_rb,0.11695e+04_rb /)\n      kbo(:, 2,23,12) = (/ &\n        & 0.10500e+04_rb,0.79504e+03_rb,0.60174e+03_rb,0.88363e+03_rb,0.11675e+04_rb /)\n      kbo(:, 3,23,12) = (/ &\n        & 0.10497e+04_rb,0.79559e+03_rb,0.60122e+03_rb,0.88187e+03_rb,0.11654e+04_rb /)\n      kbo(:, 4,23,12) = (/ &\n        & 0.10478e+04_rb,0.79456e+03_rb,0.60013e+03_rb,0.88034e+03_rb,0.11637e+04_rb /)\n      kbo(:, 5,23,12) = (/ &\n        & 0.10481e+04_rb,0.79269e+03_rb,0.59893e+03_rb,0.87894e+03_rb,0.11623e+04_rb /)\n      kbo(:, 1,24,12) = (/ &\n        & 0.10504e+04_rb,0.79322e+03_rb,0.60186e+03_rb,0.88494e+03_rb,0.11692e+04_rb /)\n      kbo(:, 2,24,12) = (/ &\n        & 0.10474e+04_rb,0.79292e+03_rb,0.60174e+03_rb,0.88325e+03_rb,0.11671e+04_rb /)\n      kbo(:, 3,24,12) = (/ &\n        & 0.10457e+04_rb,0.79315e+03_rb,0.60103e+03_rb,0.88153e+03_rb,0.11648e+04_rb /)\n      kbo(:, 4,24,12) = (/ &\n        & 0.10462e+04_rb,0.79329e+03_rb,0.59996e+03_rb,0.88003e+03_rb,0.11633e+04_rb /)\n      kbo(:, 5,24,12) = (/ &\n        & 0.10477e+04_rb,0.79348e+03_rb,0.59860e+03_rb,0.87867e+03_rb,0.11620e+04_rb /)\n      kbo(:, 1,25,12) = (/ &\n        & 0.10437e+04_rb,0.79315e+03_rb,0.60179e+03_rb,0.88497e+03_rb,0.11688e+04_rb /)\n      kbo(:, 2,25,12) = (/ &\n        & 0.10446e+04_rb,0.79177e+03_rb,0.60151e+03_rb,0.88285e+03_rb,0.11666e+04_rb /)\n      kbo(:, 3,25,12) = (/ &\n        & 0.10443e+04_rb,0.79105e+03_rb,0.60081e+03_rb,0.88119e+03_rb,0.11647e+04_rb /)\n      kbo(:, 4,25,12) = (/ &\n        & 0.10440e+04_rb,0.79204e+03_rb,0.59965e+03_rb,0.87971e+03_rb,0.11630e+04_rb /)\n      kbo(:, 5,25,12) = (/ &\n        & 0.10441e+04_rb,0.79141e+03_rb,0.59825e+03_rb,0.87840e+03_rb,0.11618e+04_rb /)\n      kbo(:, 1,26,12) = (/ &\n        & 0.10444e+04_rb,0.79040e+03_rb,0.60171e+03_rb,0.88422e+03_rb,0.11681e+04_rb /)\n      kbo(:, 2,26,12) = (/ &\n        & 0.10415e+04_rb,0.78987e+03_rb,0.60136e+03_rb,0.88243e+03_rb,0.11661e+04_rb /)\n      kbo(:, 3,26,12) = (/ &\n        & 0.10417e+04_rb,0.79014e+03_rb,0.60043e+03_rb,0.88082e+03_rb,0.11642e+04_rb /)\n      kbo(:, 4,26,12) = (/ &\n        & 0.10442e+04_rb,0.78985e+03_rb,0.59932e+03_rb,0.87937e+03_rb,0.11625e+04_rb /)\n      kbo(:, 5,26,12) = (/ &\n        & 0.10421e+04_rb,0.79004e+03_rb,0.59787e+03_rb,0.87814e+03_rb,0.11615e+04_rb /)\n      kbo(:, 1,27,12) = (/ &\n        & 0.10431e+04_rb,0.78868e+03_rb,0.60163e+03_rb,0.88378e+03_rb,0.11678e+04_rb /)\n      kbo(:, 2,27,12) = (/ &\n        & 0.10423e+04_rb,0.79138e+03_rb,0.60118e+03_rb,0.88201e+03_rb,0.11657e+04_rb /)\n      kbo(:, 3,27,12) = (/ &\n        & 0.10404e+04_rb,0.78916e+03_rb,0.60037e+03_rb,0.88046e+03_rb,0.11638e+04_rb /)\n      kbo(:, 4,27,12) = (/ &\n        & 0.10405e+04_rb,0.78893e+03_rb,0.59897e+03_rb,0.87905e+03_rb,0.11624e+04_rb /)\n      kbo(:, 5,27,12) = (/ &\n        & 0.10396e+04_rb,0.78917e+03_rb,0.59748e+03_rb,0.87790e+03_rb,0.11613e+04_rb /)\n      kbo(:, 1,28,12) = (/ &\n        & 0.10409e+04_rb,0.79152e+03_rb,0.60155e+03_rb,0.88334e+03_rb,0.11673e+04_rb /)\n      kbo(:, 2,28,12) = (/ &\n        & 0.10439e+04_rb,0.78963e+03_rb,0.60099e+03_rb,0.88127e+03_rb,0.11652e+04_rb /)\n      kbo(:, 3,28,12) = (/ &\n        & 0.10423e+04_rb,0.78823e+03_rb,0.60006e+03_rb,0.88010e+03_rb,0.11635e+04_rb /)\n      kbo(:, 4,28,12) = (/ &\n        & 0.10442e+04_rb,0.78834e+03_rb,0.59861e+03_rb,0.87873e+03_rb,0.11621e+04_rb /)\n      kbo(:, 5,28,12) = (/ &\n        & 0.10392e+04_rb,0.79042e+03_rb,0.59708e+03_rb,0.87768e+03_rb,0.11610e+04_rb /)\n      kbo(:, 1,29,12) = (/ &\n        & 0.10405e+04_rb,0.79019e+03_rb,0.60167e+03_rb,0.88289e+03_rb,0.11667e+04_rb /)\n      kbo(:, 2,29,12) = (/ &\n        & 0.10432e+04_rb,0.78865e+03_rb,0.60111e+03_rb,0.88122e+03_rb,0.11647e+04_rb /)\n      kbo(:, 3,29,12) = (/ &\n        & 0.10406e+04_rb,0.78834e+03_rb,0.59962e+03_rb,0.87974e+03_rb,0.11631e+04_rb /)\n      kbo(:, 4,29,12) = (/ &\n        & 0.10397e+04_rb,0.78909e+03_rb,0.59824e+03_rb,0.87826e+03_rb,0.11618e+04_rb /)\n      kbo(:, 5,29,12) = (/ &\n        & 0.10387e+04_rb,0.78925e+03_rb,0.59665e+03_rb,0.87746e+03_rb,0.11608e+04_rb /)\n      kbo(:, 1,30,12) = (/ &\n        & 0.10411e+04_rb,0.78840e+03_rb,0.60130e+03_rb,0.88244e+03_rb,0.11662e+04_rb /)\n      kbo(:, 2,30,12) = (/ &\n        & 0.10395e+04_rb,0.79020e+03_rb,0.60051e+03_rb,0.88083e+03_rb,0.11643e+04_rb /)\n      kbo(:, 3,30,12) = (/ &\n        & 0.10384e+04_rb,0.78543e+03_rb,0.59928e+03_rb,0.87938e+03_rb,0.11627e+04_rb /)\n      kbo(:, 4,30,12) = (/ &\n        & 0.10394e+04_rb,0.78756e+03_rb,0.59785e+03_rb,0.87814e+03_rb,0.11615e+04_rb /)\n      kbo(:, 5,30,12) = (/ &\n        & 0.10383e+04_rb,0.78820e+03_rb,0.59620e+03_rb,0.87743e+03_rb,0.11605e+04_rb /)\n      kbo(:, 1,31,12) = (/ &\n        & 0.10385e+04_rb,0.78703e+03_rb,0.60113e+03_rb,0.88199e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,31,12) = (/ &\n        & 0.10401e+04_rb,0.79050e+03_rb,0.60021e+03_rb,0.88045e+03_rb,0.11639e+04_rb /)\n      kbo(:, 3,31,12) = (/ &\n        & 0.10412e+04_rb,0.78681e+03_rb,0.59892e+03_rb,0.87903e+03_rb,0.11624e+04_rb /)\n      kbo(:, 4,31,12) = (/ &\n        & 0.10385e+04_rb,0.78582e+03_rb,0.59732e+03_rb,0.87772e+03_rb,0.11613e+04_rb /)\n      kbo(:, 5,31,12) = (/ &\n        & 0.10372e+04_rb,0.78947e+03_rb,0.59573e+03_rb,0.87705e+03_rb,0.11602e+04_rb /)\n      kbo(:, 1,32,12) = (/ &\n        & 0.10378e+04_rb,0.78710e+03_rb,0.60105e+03_rb,0.88140e+03_rb,0.11652e+04_rb /)\n      kbo(:, 2,32,12) = (/ &\n        & 0.10375e+04_rb,0.78506e+03_rb,0.59989e+03_rb,0.88006e+03_rb,0.11634e+04_rb /)\n      kbo(:, 3,32,12) = (/ &\n        & 0.10409e+04_rb,0.78648e+03_rb,0.59855e+03_rb,0.87869e+03_rb,0.11621e+04_rb /)\n      kbo(:, 4,32,12) = (/ &\n        & 0.10389e+04_rb,0.78640e+03_rb,0.59701e+03_rb,0.87765e+03_rb,0.11610e+04_rb /)\n      kbo(:, 5,32,12) = (/ &\n        & 0.10378e+04_rb,0.78589e+03_rb,0.59527e+03_rb,0.87675e+03_rb,0.11598e+04_rb /)\n      kbo(:, 1,33,12) = (/ &\n        & 0.10380e+04_rb,0.78620e+03_rb,0.60093e+03_rb,0.88116e+03_rb,0.11647e+04_rb /)\n      kbo(:, 2,33,12) = (/ &\n        & 0.10383e+04_rb,0.78582e+03_rb,0.59966e+03_rb,0.87968e+03_rb,0.11631e+04_rb /)\n      kbo(:, 3,33,12) = (/ &\n        & 0.10388e+04_rb,0.78740e+03_rb,0.59816e+03_rb,0.87838e+03_rb,0.11618e+04_rb /)\n      kbo(:, 4,33,12) = (/ &\n        & 0.10367e+04_rb,0.78734e+03_rb,0.59657e+03_rb,0.87743e+03_rb,0.11608e+04_rb /)\n      kbo(:, 5,33,12) = (/ &\n        & 0.10382e+04_rb,0.78803e+03_rb,0.59484e+03_rb,0.87630e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,34,12) = (/ &\n        & 0.10390e+04_rb,0.78774e+03_rb,0.60058e+03_rb,0.88098e+03_rb,0.11643e+04_rb /)\n      kbo(:, 2,34,12) = (/ &\n        & 0.10374e+04_rb,0.78664e+03_rb,0.59936e+03_rb,0.87936e+03_rb,0.11627e+04_rb /)\n      kbo(:, 3,34,12) = (/ &\n        & 0.10352e+04_rb,0.78733e+03_rb,0.59781e+03_rb,0.87813e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,34,12) = (/ &\n        & 0.10386e+04_rb,0.78609e+03_rb,0.59617e+03_rb,0.87742e+03_rb,0.11605e+04_rb /)\n      kbo(:, 5,34,12) = (/ &\n        & 0.10400e+04_rb,0.78709e+03_rb,0.59476e+03_rb,0.87581e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,35,12) = (/ &\n        & 0.10374e+04_rb,0.78486e+03_rb,0.60032e+03_rb,0.88061e+03_rb,0.11641e+04_rb /)\n      kbo(:, 2,35,12) = (/ &\n        & 0.10385e+04_rb,0.78482e+03_rb,0.59906e+03_rb,0.87918e+03_rb,0.11626e+04_rb /)\n      kbo(:, 3,35,12) = (/ &\n        & 0.10371e+04_rb,0.78627e+03_rb,0.59760e+03_rb,0.87799e+03_rb,0.11614e+04_rb /)\n      kbo(:, 4,35,12) = (/ &\n        & 0.10378e+04_rb,0.78697e+03_rb,0.59593e+03_rb,0.87715e+03_rb,0.11604e+04_rb /)\n      kbo(:, 5,35,12) = (/ &\n        & 0.10370e+04_rb,0.78545e+03_rb,0.59500e+03_rb,0.87549e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,36,12) = (/ &\n        & 0.10362e+04_rb,0.78845e+03_rb,0.60029e+03_rb,0.88058e+03_rb,0.11640e+04_rb /)\n      kbo(:, 2,36,12) = (/ &\n        & 0.10379e+04_rb,0.78676e+03_rb,0.59903e+03_rb,0.87915e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,36,12) = (/ &\n        & 0.10369e+04_rb,0.78598e+03_rb,0.59768e+03_rb,0.87797e+03_rb,0.11614e+04_rb /)\n      kbo(:, 4,36,12) = (/ &\n        & 0.10369e+04_rb,0.78595e+03_rb,0.59566e+03_rb,0.87713e+03_rb,0.11604e+04_rb /)\n      kbo(:, 5,36,12) = (/ &\n        & 0.10368e+04_rb,0.78548e+03_rb,0.59464e+03_rb,0.87594e+03_rb,0.11600e+04_rb /)\n      kbo(:, 1,37,12) = (/ &\n        & 0.10374e+04_rb,0.78579e+03_rb,0.60055e+03_rb,0.88077e+03_rb,0.11642e+04_rb /)\n      kbo(:, 2,37,12) = (/ &\n        & 0.10362e+04_rb,0.78844e+03_rb,0.59921e+03_rb,0.87933e+03_rb,0.11627e+04_rb /)\n      kbo(:, 3,37,12) = (/ &\n        & 0.10360e+04_rb,0.78603e+03_rb,0.59777e+03_rb,0.87810e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,37,12) = (/ &\n        & 0.10367e+04_rb,0.78734e+03_rb,0.59623e+03_rb,0.87723e+03_rb,0.11605e+04_rb /)\n      kbo(:, 5,37,12) = (/ &\n        & 0.10361e+04_rb,0.78702e+03_rb,0.59474e+03_rb,0.87592e+03_rb,0.11587e+04_rb /)\n      kbo(:, 1,38,12) = (/ &\n        & 0.10367e+04_rb,0.78778e+03_rb,0.60058e+03_rb,0.88098e+03_rb,0.11645e+04_rb /)\n      kbo(:, 2,38,12) = (/ &\n        & 0.10387e+04_rb,0.78865e+03_rb,0.59939e+03_rb,0.87952e+03_rb,0.11629e+04_rb /)\n      kbo(:, 3,38,12) = (/ &\n        & 0.10363e+04_rb,0.78758e+03_rb,0.59820e+03_rb,0.87825e+03_rb,0.11617e+04_rb /)\n      kbo(:, 4,38,12) = (/ &\n        & 0.10372e+04_rb,0.78786e+03_rb,0.59636e+03_rb,0.87717e+03_rb,0.11609e+04_rb /)\n      kbo(:, 5,38,12) = (/ &\n        & 0.10362e+04_rb,0.78470e+03_rb,0.59485e+03_rb,0.87657e+03_rb,0.11589e+04_rb /)\n      kbo(:, 1,39,12) = (/ &\n        & 0.10374e+04_rb,0.78680e+03_rb,0.60094e+03_rb,0.88119e+03_rb,0.11647e+04_rb /)\n      kbo(:, 2,39,12) = (/ &\n        & 0.10352e+04_rb,0.78618e+03_rb,0.60014e+03_rb,0.87971e+03_rb,0.11631e+04_rb /)\n      kbo(:, 3,39,12) = (/ &\n        & 0.10401e+04_rb,0.78497e+03_rb,0.59818e+03_rb,0.87840e+03_rb,0.11618e+04_rb /)\n      kbo(:, 4,39,12) = (/ &\n        & 0.10369e+04_rb,0.78868e+03_rb,0.59660e+03_rb,0.87744e+03_rb,0.11608e+04_rb /)\n      kbo(:, 5,39,12) = (/ &\n        & 0.10353e+04_rb,0.78494e+03_rb,0.59497e+03_rb,0.87635e+03_rb,0.11593e+04_rb /)\n      kbo(:, 1,40,12) = (/ &\n        & 0.10385e+04_rb,0.78584e+03_rb,0.60091e+03_rb,0.88123e+03_rb,0.11652e+04_rb /)\n      kbo(:, 2,40,12) = (/ &\n        & 0.10387e+04_rb,0.78568e+03_rb,0.59987e+03_rb,0.88006e+03_rb,0.11635e+04_rb /)\n      kbo(:, 3,40,12) = (/ &\n        & 0.10371e+04_rb,0.78626e+03_rb,0.59853e+03_rb,0.87869e+03_rb,0.11621e+04_rb /)\n      kbo(:, 4,40,12) = (/ &\n        & 0.10386e+04_rb,0.78684e+03_rb,0.59700e+03_rb,0.87748e+03_rb,0.11610e+04_rb /)\n      kbo(:, 5,40,12) = (/ &\n        & 0.10362e+04_rb,0.78503e+03_rb,0.59526e+03_rb,0.87692e+03_rb,0.11598e+04_rb /)\n      kbo(:, 1,41,12) = (/ &\n        & 0.10384e+04_rb,0.78504e+03_rb,0.60109e+03_rb,0.88198e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,41,12) = (/ &\n        & 0.10360e+04_rb,0.78533e+03_rb,0.60017e+03_rb,0.88043e+03_rb,0.11639e+04_rb /)\n      kbo(:, 3,41,12) = (/ &\n        & 0.10374e+04_rb,0.78412e+03_rb,0.59889e+03_rb,0.87902e+03_rb,0.11624e+04_rb /)\n      kbo(:, 4,41,12) = (/ &\n        & 0.10350e+04_rb,0.78545e+03_rb,0.59741e+03_rb,0.87788e+03_rb,0.11613e+04_rb /)\n      kbo(:, 5,41,12) = (/ &\n        & 0.10385e+04_rb,0.78529e+03_rb,0.59570e+03_rb,0.87704e+03_rb,0.11607e+04_rb /)\n      kbo(:, 1,42,12) = (/ &\n        & 0.10370e+04_rb,0.78560e+03_rb,0.60125e+03_rb,0.88242e+03_rb,0.11662e+04_rb /)\n      kbo(:, 2,42,12) = (/ &\n        & 0.10383e+04_rb,0.78469e+03_rb,0.60057e+03_rb,0.88081e+03_rb,0.11643e+04_rb /)\n      kbo(:, 3,42,12) = (/ &\n        & 0.10368e+04_rb,0.78617e+03_rb,0.59924e+03_rb,0.87937e+03_rb,0.11627e+04_rb /)\n      kbo(:, 4,42,12) = (/ &\n        & 0.10362e+04_rb,0.78586e+03_rb,0.59780e+03_rb,0.87813e+03_rb,0.11615e+04_rb /)\n      kbo(:, 5,42,12) = (/ &\n        & 0.10350e+04_rb,0.78958e+03_rb,0.59616e+03_rb,0.87725e+03_rb,0.11605e+04_rb /)\n      kbo(:, 1,43,12) = (/ &\n        & 0.10375e+04_rb,0.78586e+03_rb,0.60140e+03_rb,0.88280e+03_rb,0.11669e+04_rb /)\n      kbo(:, 2,43,12) = (/ &\n        & 0.10344e+04_rb,0.78615e+03_rb,0.60088e+03_rb,0.88112e+03_rb,0.11651e+04_rb /)\n      kbo(:, 3,43,12) = (/ &\n        & 0.10344e+04_rb,0.78345e+03_rb,0.59953e+03_rb,0.87980e+03_rb,0.11632e+04_rb /)\n      kbo(:, 4,43,12) = (/ &\n        & 0.10347e+04_rb,0.78777e+03_rb,0.59827e+03_rb,0.87847e+03_rb,0.11619e+04_rb /)\n      kbo(:, 5,43,12) = (/ &\n        & 0.10355e+04_rb,0.78627e+03_rb,0.59681e+03_rb,0.87766e+03_rb,0.11609e+04_rb /)\n      kbo(:, 1,44,12) = (/ &\n        & 0.10355e+04_rb,0.78449e+03_rb,0.60162e+03_rb,0.88358e+03_rb,0.11676e+04_rb /)\n      kbo(:, 2,44,12) = (/ &\n        & 0.10359e+04_rb,0.78627e+03_rb,0.60103e+03_rb,0.88182e+03_rb,0.11655e+04_rb /)\n      kbo(:, 3,44,12) = (/ &\n        & 0.10377e+04_rb,0.78715e+03_rb,0.60005e+03_rb,0.88029e+03_rb,0.11637e+04_rb /)\n      kbo(:, 4,44,12) = (/ &\n        & 0.10378e+04_rb,0.78625e+03_rb,0.59875e+03_rb,0.87890e+03_rb,0.11623e+04_rb /)\n      kbo(:, 5,44,12) = (/ &\n        & 0.10374e+04_rb,0.78401e+03_rb,0.59725e+03_rb,0.87779e+03_rb,0.11612e+04_rb /)\n      kbo(:, 1,45,12) = (/ &\n        & 0.10390e+04_rb,0.78655e+03_rb,0.60158e+03_rb,0.88419e+03_rb,0.11684e+04_rb /)\n      kbo(:, 2,45,12) = (/ &\n        & 0.10396e+04_rb,0.78684e+03_rb,0.60124e+03_rb,0.88239e+03_rb,0.11662e+04_rb /)\n      kbo(:, 3,45,12) = (/ &\n        & 0.10355e+04_rb,0.78758e+03_rb,0.60044e+03_rb,0.88079e+03_rb,0.11643e+04_rb /)\n      kbo(:, 4,45,12) = (/ &\n        & 0.10368e+04_rb,0.78548e+03_rb,0.59922e+03_rb,0.87935e+03_rb,0.11627e+04_rb /)\n      kbo(:, 5,45,12) = (/ &\n        & 0.10360e+04_rb,0.78578e+03_rb,0.59778e+03_rb,0.87811e+03_rb,0.11615e+04_rb /)\n      kbo(:, 1,46,12) = (/ &\n        & 0.10390e+04_rb,0.78534e+03_rb,0.60165e+03_rb,0.88476e+03_rb,0.11691e+04_rb /)\n      kbo(:, 2,46,12) = (/ &\n        & 0.10368e+04_rb,0.78339e+03_rb,0.60141e+03_rb,0.88303e+03_rb,0.11669e+04_rb /)\n      kbo(:, 3,46,12) = (/ &\n        & 0.10364e+04_rb,0.78696e+03_rb,0.60079e+03_rb,0.88117e+03_rb,0.11649e+04_rb /)\n      kbo(:, 4,46,12) = (/ &\n        & 0.10407e+04_rb,0.78666e+03_rb,0.59968e+03_rb,0.87985e+03_rb,0.11632e+04_rb /)\n      kbo(:, 5,46,12) = (/ &\n        & 0.10344e+04_rb,0.78501e+03_rb,0.59832e+03_rb,0.87835e+03_rb,0.11619e+04_rb /)\n      kbo(:, 1,47,12) = (/ &\n        & 0.10372e+04_rb,0.78547e+03_rb,0.60140e+03_rb,0.88518e+03_rb,0.11696e+04_rb /)\n      kbo(:, 2,47,12) = (/ &\n        & 0.10368e+04_rb,0.78740e+03_rb,0.60142e+03_rb,0.88376e+03_rb,0.11678e+04_rb /)\n      kbo(:, 3,47,12) = (/ &\n        & 0.10360e+04_rb,0.78411e+03_rb,0.60109e+03_rb,0.88198e+03_rb,0.11657e+04_rb /)\n      kbo(:, 4,47,12) = (/ &\n        & 0.10358e+04_rb,0.78709e+03_rb,0.60017e+03_rb,0.88044e+03_rb,0.11639e+04_rb /)\n      kbo(:, 5,47,12) = (/ &\n        & 0.10354e+04_rb,0.78664e+03_rb,0.59889e+03_rb,0.87902e+03_rb,0.11624e+04_rb /)\n      kbo(:, 1,48,12) = (/ &\n        & 0.10362e+04_rb,0.78680e+03_rb,0.60195e+03_rb,0.88548e+03_rb,0.11701e+04_rb /)\n      kbo(:, 2,48,12) = (/ &\n        & 0.10362e+04_rb,0.78545e+03_rb,0.60161e+03_rb,0.88447e+03_rb,0.11687e+04_rb /)\n      kbo(:, 3,48,12) = (/ &\n        & 0.10378e+04_rb,0.78604e+03_rb,0.60144e+03_rb,0.88268e+03_rb,0.11665e+04_rb /)\n      kbo(:, 4,48,12) = (/ &\n        & 0.10382e+04_rb,0.78544e+03_rb,0.60061e+03_rb,0.88104e+03_rb,0.11646e+04_rb /)\n      kbo(:, 5,48,12) = (/ &\n        & 0.10364e+04_rb,0.78424e+03_rb,0.59943e+03_rb,0.87957e+03_rb,0.11630e+04_rb /)\n      kbo(:, 1,49,12) = (/ &\n        & 0.10370e+04_rb,0.78693e+03_rb,0.60225e+03_rb,0.88600e+03_rb,0.11705e+04_rb /)\n      kbo(:, 2,49,12) = (/ &\n        & 0.10356e+04_rb,0.78469e+03_rb,0.60169e+03_rb,0.88499e+03_rb,0.11694e+04_rb /)\n      kbo(:, 3,49,12) = (/ &\n        & 0.10350e+04_rb,0.78588e+03_rb,0.60148e+03_rb,0.88340e+03_rb,0.11674e+04_rb /)\n      kbo(:, 4,49,12) = (/ &\n        & 0.10352e+04_rb,0.78677e+03_rb,0.60095e+03_rb,0.88166e+03_rb,0.11653e+04_rb /)\n      kbo(:, 5,49,12) = (/ &\n        & 0.10356e+04_rb,0.78647e+03_rb,0.59993e+03_rb,0.88015e+03_rb,0.11636e+04_rb /)\n      kbo(:, 1,50,12) = (/ &\n        & 0.10356e+04_rb,0.78558e+03_rb,0.60226e+03_rb,0.88620e+03_rb,0.11712e+04_rb /)\n      kbo(:, 2,50,12) = (/ &\n        & 0.10346e+04_rb,0.78796e+03_rb,0.60171e+03_rb,0.88533e+03_rb,0.11698e+04_rb /)\n      kbo(:, 3,50,12) = (/ &\n        & 0.10366e+04_rb,0.78751e+03_rb,0.60168e+03_rb,0.88408e+03_rb,0.11667e+04_rb /)\n      kbo(:, 4,50,12) = (/ &\n        & 0.10366e+04_rb,0.78646e+03_rb,0.60132e+03_rb,0.88229e+03_rb,0.11661e+04_rb /)\n      kbo(:, 5,50,12) = (/ &\n        & 0.10393e+04_rb,0.78616e+03_rb,0.60083e+03_rb,0.88070e+03_rb,0.11642e+04_rb /)\n      kbo(:, 1,51,12) = (/ &\n        & 0.10356e+04_rb,0.78468e+03_rb,0.60241e+03_rb,0.88644e+03_rb,0.11719e+04_rb /)\n      kbo(:, 2,51,12) = (/ &\n        & 0.10368e+04_rb,0.78423e+03_rb,0.60203e+03_rb,0.88559e+03_rb,0.11702e+04_rb /)\n      kbo(:, 3,51,12) = (/ &\n        & 0.10356e+04_rb,0.78586e+03_rb,0.60163e+03_rb,0.88469e+03_rb,0.11690e+04_rb /)\n      kbo(:, 4,51,12) = (/ &\n        & 0.10358e+04_rb,0.78601e+03_rb,0.60139e+03_rb,0.88294e+03_rb,0.11668e+04_rb /)\n      kbo(:, 5,51,12) = (/ &\n        & 0.10379e+04_rb,0.78646e+03_rb,0.60074e+03_rb,0.88126e+03_rb,0.11648e+04_rb /)\n      kbo(:, 1,52,12) = (/ &\n        & 0.10383e+04_rb,0.78512e+03_rb,0.60257e+03_rb,0.88672e+03_rb,0.11727e+04_rb /)\n      kbo(:, 2,52,12) = (/ &\n        & 0.10350e+04_rb,0.78646e+03_rb,0.60217e+03_rb,0.88594e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,52,12) = (/ &\n        & 0.10358e+04_rb,0.78466e+03_rb,0.60160e+03_rb,0.88510e+03_rb,0.11695e+04_rb /)\n      kbo(:, 4,52,12) = (/ &\n        & 0.10356e+04_rb,0.78511e+03_rb,0.60151e+03_rb,0.88359e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,52,12) = (/ &\n        & 0.10365e+04_rb,0.78541e+03_rb,0.60103e+03_rb,0.88167e+03_rb,0.11655e+04_rb /)\n      kbo(:, 1,53,12) = (/ &\n        & 0.10352e+04_rb,0.78496e+03_rb,0.60273e+03_rb,0.88710e+03_rb,0.11735e+04_rb /)\n      kbo(:, 2,53,12) = (/ &\n        & 0.10359e+04_rb,0.78600e+03_rb,0.60229e+03_rb,0.88628e+03_rb,0.11714e+04_rb /)\n      kbo(:, 3,53,12) = (/ &\n        & 0.10369e+04_rb,0.78526e+03_rb,0.60188e+03_rb,0.88540e+03_rb,0.11699e+04_rb /)\n      kbo(:, 4,53,12) = (/ &\n        & 0.10383e+04_rb,0.78660e+03_rb,0.60159e+03_rb,0.88425e+03_rb,0.11685e+04_rb /)\n      kbo(:, 5,53,12) = (/ &\n        & 0.10373e+04_rb,0.78555e+03_rb,0.60126e+03_rb,0.88246e+03_rb,0.11663e+04_rb /)\n      kbo(:, 1,54,12) = (/ &\n        & 0.10367e+04_rb,0.78451e+03_rb,0.60297e+03_rb,0.88752e+03_rb,0.11746e+04_rb /)\n      kbo(:, 2,54,12) = (/ &\n        & 0.10355e+04_rb,0.78600e+03_rb,0.60244e+03_rb,0.88648e+03_rb,0.11721e+04_rb /)\n      kbo(:, 3,54,12) = (/ &\n        & 0.10348e+04_rb,0.78301e+03_rb,0.60206e+03_rb,0.88564e+03_rb,0.11703e+04_rb /)\n      kbo(:, 4,54,12) = (/ &\n        & 0.10395e+04_rb,0.78629e+03_rb,0.60165e+03_rb,0.88477e+03_rb,0.11691e+04_rb /)\n      kbo(:, 5,54,12) = (/ &\n        & 0.10361e+04_rb,0.78420e+03_rb,0.60141e+03_rb,0.88305e+03_rb,0.11670e+04_rb /)\n      kbo(:, 1,55,12) = (/ &\n        & 0.10361e+04_rb,0.78555e+03_rb,0.60296e+03_rb,0.88822e+03_rb,0.11760e+04_rb /)\n      kbo(:, 2,55,12) = (/ &\n        & 0.10355e+04_rb,0.78495e+03_rb,0.60258e+03_rb,0.88674e+03_rb,0.11727e+04_rb /)\n      kbo(:, 3,55,12) = (/ &\n        & 0.10349e+04_rb,0.78525e+03_rb,0.60217e+03_rb,0.88596e+03_rb,0.11709e+04_rb /)\n      kbo(:, 4,55,12) = (/ &\n        & 0.10361e+04_rb,0.78465e+03_rb,0.60184e+03_rb,0.88512e+03_rb,0.11696e+04_rb /)\n      kbo(:, 5,55,12) = (/ &\n        & 0.10363e+04_rb,0.78599e+03_rb,0.60163e+03_rb,0.88363e+03_rb,0.11677e+04_rb /)\n      kbo(:, 1,56,12) = (/ &\n        & 0.10361e+04_rb,0.78599e+03_rb,0.60309e+03_rb,0.88918e+03_rb,0.11774e+04_rb /)\n      kbo(:, 2,56,12) = (/ &\n        & 0.10391e+04_rb,0.78674e+03_rb,0.60272e+03_rb,0.88707e+03_rb,0.11734e+04_rb /)\n      kbo(:, 3,56,12) = (/ &\n        & 0.10363e+04_rb,0.78584e+03_rb,0.60228e+03_rb,0.88626e+03_rb,0.11716e+04_rb /)\n      kbo(:, 4,56,12) = (/ &\n        & 0.10369e+04_rb,0.78509e+03_rb,0.60186e+03_rb,0.88538e+03_rb,0.11695e+04_rb /)\n      kbo(:, 5,56,12) = (/ &\n        & 0.10363e+04_rb,0.78554e+03_rb,0.60158e+03_rb,0.88421e+03_rb,0.11682e+04_rb /)\n      kbo(:, 1,57,12) = (/ &\n        & 0.10381e+04_rb,0.78509e+03_rb,0.60327e+03_rb,0.89026e+03_rb,0.11789e+04_rb /)\n      kbo(:, 2,57,12) = (/ &\n        & 0.10344e+04_rb,0.78852e+03_rb,0.60284e+03_rb,0.88747e+03_rb,0.11744e+04_rb /)\n      kbo(:, 3,57,12) = (/ &\n        & 0.10369e+04_rb,0.78509e+03_rb,0.60242e+03_rb,0.88612e+03_rb,0.11720e+04_rb /)\n      kbo(:, 4,57,12) = (/ &\n        & 0.10393e+04_rb,0.78330e+03_rb,0.60216e+03_rb,0.88561e+03_rb,0.11703e+04_rb /)\n      kbo(:, 5,57,12) = (/ &\n        & 0.10365e+04_rb,0.78494e+03_rb,0.60164e+03_rb,0.88472e+03_rb,0.11688e+04_rb /)\n      kbo(:, 1,58,12) = (/ &\n        & 0.10353e+04_rb,0.78509e+03_rb,0.60357e+03_rb,0.89125e+03_rb,0.11802e+04_rb /)\n      kbo(:, 2,58,12) = (/ &\n        & 0.10371e+04_rb,0.78524e+03_rb,0.60283e+03_rb,0.88807e+03_rb,0.11757e+04_rb /)\n      kbo(:, 3,58,12) = (/ &\n        & 0.10365e+04_rb,0.78718e+03_rb,0.60278e+03_rb,0.88669e+03_rb,0.11726e+04_rb /)\n      kbo(:, 4,58,12) = (/ &\n        & 0.10349e+04_rb,0.78673e+03_rb,0.60216e+03_rb,0.88590e+03_rb,0.11708e+04_rb /)\n      kbo(:, 5,58,12) = (/ &\n        & 0.10365e+04_rb,0.78389e+03_rb,0.60170e+03_rb,0.88506e+03_rb,0.11695e+04_rb /)\n      kbo(:, 1,59,12) = (/ &\n        & 0.10365e+04_rb,0.78390e+03_rb,0.60373e+03_rb,0.89165e+03_rb,0.11808e+04_rb /)\n      kbo(:, 2,59,12) = (/ &\n        & 0.10369e+04_rb,0.78479e+03_rb,0.60298e+03_rb,0.88840e+03_rb,0.11763e+04_rb /)\n      kbo(:, 3,59,12) = (/ &\n        & 0.10357e+04_rb,0.78703e+03_rb,0.60261e+03_rb,0.88680e+03_rb,0.11713e+04_rb /)\n      kbo(:, 4,59,12) = (/ &\n        & 0.10363e+04_rb,0.78509e+03_rb,0.60219e+03_rb,0.88602e+03_rb,0.11708e+04_rb /)\n      kbo(:, 5,59,12) = (/ &\n        & 0.10365e+04_rb,0.78479e+03_rb,0.60174e+03_rb,0.88517e+03_rb,0.11696e+04_rb /)\n      kbo(:, 1,13,13) = (/ &\n        & 0.11661e+04_rb,0.87073e+03_rb,0.60556e+03_rb,0.88929e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,13,13) = (/ &\n        & 0.11527e+04_rb,0.87014e+03_rb,0.60489e+03_rb,0.88914e+03_rb,0.11754e+04_rb /)\n      kbo(:, 3,13,13) = (/ &\n        & 0.11423e+04_rb,0.85968e+03_rb,0.60419e+03_rb,0.88867e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,13,13) = (/ &\n        & 0.11371e+04_rb,0.85890e+03_rb,0.60344e+03_rb,0.88820e+03_rb,0.11742e+04_rb /)\n      kbo(:, 5,13,13) = (/ &\n        & 0.11390e+04_rb,0.85008e+03_rb,0.60234e+03_rb,0.88705e+03_rb,0.11727e+04_rb /)\n      kbo(:, 1,14,13) = (/ &\n        & 0.11362e+04_rb,0.85805e+03_rb,0.60511e+03_rb,0.88957e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,14,13) = (/ &\n        & 0.11276e+04_rb,0.85398e+03_rb,0.60448e+03_rb,0.88893e+03_rb,0.11753e+04_rb /)\n      kbo(:, 3,14,13) = (/ &\n        & 0.11208e+04_rb,0.84888e+03_rb,0.60397e+03_rb,0.88854e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,14,13) = (/ &\n        & 0.11194e+04_rb,0.85006e+03_rb,0.60305e+03_rb,0.88823e+03_rb,0.11740e+04_rb /)\n      kbo(:, 5,14,13) = (/ &\n        & 0.11083e+04_rb,0.84212e+03_rb,0.60191e+03_rb,0.88682e+03_rb,0.11725e+04_rb /)\n      kbo(:, 1,15,13) = (/ &\n        & 0.11142e+04_rb,0.84766e+03_rb,0.60488e+03_rb,0.88941e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,15,13) = (/ &\n        & 0.11176e+04_rb,0.84112e+03_rb,0.60414e+03_rb,0.88873e+03_rb,0.11752e+04_rb /)\n      kbo(:, 3,15,13) = (/ &\n        & 0.11051e+04_rb,0.84191e+03_rb,0.60348e+03_rb,0.88843e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,15,13) = (/ &\n        & 0.11036e+04_rb,0.83753e+03_rb,0.60270e+03_rb,0.88781e+03_rb,0.11739e+04_rb /)\n      kbo(:, 5,15,13) = (/ &\n        & 0.10935e+04_rb,0.82883e+03_rb,0.60139e+03_rb,0.88658e+03_rb,0.11723e+04_rb /)\n      kbo(:, 1,16,13) = (/ &\n        & 0.11074e+04_rb,0.83456e+03_rb,0.60440e+03_rb,0.88927e+03_rb,0.11760e+04_rb /)\n      kbo(:, 2,16,13) = (/ &\n        & 0.11018e+04_rb,0.83298e+03_rb,0.60385e+03_rb,0.88856e+03_rb,0.11751e+04_rb /)\n      kbo(:, 3,16,13) = (/ &\n        & 0.10859e+04_rb,0.83101e+03_rb,0.60319e+03_rb,0.88832e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,16,13) = (/ &\n        & 0.10925e+04_rb,0.82836e+03_rb,0.60254e+03_rb,0.88762e+03_rb,0.11738e+04_rb /)\n      kbo(:, 5,16,13) = (/ &\n        & 0.10900e+04_rb,0.82283e+03_rb,0.60124e+03_rb,0.88636e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,17,13) = (/ &\n        & 0.10953e+04_rb,0.82596e+03_rb,0.60413e+03_rb,0.88915e+03_rb,0.11759e+04_rb /)\n      kbo(:, 2,17,13) = (/ &\n        & 0.10864e+04_rb,0.82504e+03_rb,0.60360e+03_rb,0.88842e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,17,13) = (/ &\n        & 0.10812e+04_rb,0.81898e+03_rb,0.60295e+03_rb,0.88822e+03_rb,0.11746e+04_rb /)\n      kbo(:, 4,17,13) = (/ &\n        & 0.10806e+04_rb,0.81706e+03_rb,0.60242e+03_rb,0.88745e+03_rb,0.11736e+04_rb /)\n      kbo(:, 5,17,13) = (/ &\n        & 0.10764e+04_rb,0.81771e+03_rb,0.59943e+03_rb,0.88638e+03_rb,0.11722e+04_rb /)\n      kbo(:, 1,18,13) = (/ &\n        & 0.10787e+04_rb,0.82265e+03_rb,0.60390e+03_rb,0.88903e+03_rb,0.11759e+04_rb /)\n      kbo(:, 2,18,13) = (/ &\n        & 0.10743e+04_rb,0.81466e+03_rb,0.60339e+03_rb,0.88738e+03_rb,0.11749e+04_rb /)\n      kbo(:, 3,18,13) = (/ &\n        & 0.10792e+04_rb,0.81648e+03_rb,0.60273e+03_rb,0.88812e+03_rb,0.11749e+04_rb /)\n      kbo(:, 4,18,13) = (/ &\n        & 0.10724e+04_rb,0.81516e+03_rb,0.60185e+03_rb,0.88728e+03_rb,0.11735e+04_rb /)\n      kbo(:, 5,18,13) = (/ &\n        & 0.10737e+04_rb,0.81301e+03_rb,0.60092e+03_rb,0.88618e+03_rb,0.11717e+04_rb /)\n      kbo(:, 1,19,13) = (/ &\n        & 0.10778e+04_rb,0.81646e+03_rb,0.60388e+03_rb,0.88893e+03_rb,0.11758e+04_rb /)\n      kbo(:, 2,19,13) = (/ &\n        & 0.10709e+04_rb,0.81021e+03_rb,0.60321e+03_rb,0.88822e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,19,13) = (/ &\n        & 0.10651e+04_rb,0.80945e+03_rb,0.60254e+03_rb,0.88803e+03_rb,0.11745e+04_rb /)\n      kbo(:, 4,19,13) = (/ &\n        & 0.10677e+04_rb,0.80743e+03_rb,0.60147e+03_rb,0.88735e+03_rb,0.11733e+04_rb /)\n      kbo(:, 5,19,13) = (/ &\n        & 0.10575e+04_rb,0.80245e+03_rb,0.60072e+03_rb,0.88575e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,20,13) = (/ &\n        & 0.10622e+04_rb,0.81096e+03_rb,0.60356e+03_rb,0.88881e+03_rb,0.11757e+04_rb /)\n      kbo(:, 2,20,13) = (/ &\n        & 0.10607e+04_rb,0.80739e+03_rb,0.60305e+03_rb,0.88816e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,20,13) = (/ &\n        & 0.10623e+04_rb,0.80381e+03_rb,0.60252e+03_rb,0.88792e+03_rb,0.11744e+04_rb /)\n      kbo(:, 4,20,13) = (/ &\n        & 0.10570e+04_rb,0.80456e+03_rb,0.60093e+03_rb,0.88695e+03_rb,0.11731e+04_rb /)\n      kbo(:, 5,20,13) = (/ &\n        & 0.10628e+04_rb,0.80481e+03_rb,0.60051e+03_rb,0.88554e+03_rb,0.11713e+04_rb /)\n      kbo(:, 1,21,13) = (/ &\n        & 0.10564e+04_rb,0.80721e+03_rb,0.60326e+03_rb,0.88869e+03_rb,0.11756e+04_rb /)\n      kbo(:, 2,21,13) = (/ &\n        & 0.10630e+04_rb,0.79813e+03_rb,0.60290e+03_rb,0.88813e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,21,13) = (/ &\n        & 0.10553e+04_rb,0.80228e+03_rb,0.60219e+03_rb,0.88781e+03_rb,0.11743e+04_rb /)\n      kbo(:, 4,21,13) = (/ &\n        & 0.10544e+04_rb,0.79888e+03_rb,0.60136e+03_rb,0.88677e+03_rb,0.11729e+04_rb /)\n      kbo(:, 5,21,13) = (/ &\n        & 0.10596e+04_rb,0.81049e+03_rb,0.60032e+03_rb,0.88532e+03_rb,0.11710e+04_rb /)\n      kbo(:, 1,22,13) = (/ &\n        & 0.10550e+04_rb,0.80310e+03_rb,0.60326e+03_rb,0.88850e+03_rb,0.11754e+04_rb /)\n      kbo(:, 2,22,13) = (/ &\n        & 0.10516e+04_rb,0.80380e+03_rb,0.60256e+03_rb,0.88810e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,22,13) = (/ &\n        & 0.10562e+04_rb,0.80152e+03_rb,0.60229e+03_rb,0.88764e+03_rb,0.11741e+04_rb /)\n      kbo(:, 4,22,13) = (/ &\n        & 0.10509e+04_rb,0.80224e+03_rb,0.60002e+03_rb,0.88651e+03_rb,0.11726e+04_rb /)\n      kbo(:, 5,22,13) = (/ &\n        & 0.10563e+04_rb,0.79871e+03_rb,0.59990e+03_rb,0.88500e+03_rb,0.11706e+04_rb /)\n      kbo(:, 1,23,13) = (/ &\n        & 0.10567e+04_rb,0.79860e+03_rb,0.60326e+03_rb,0.88832e+03_rb,0.11752e+04_rb /)\n      kbo(:, 2,23,13) = (/ &\n        & 0.10532e+04_rb,0.79557e+03_rb,0.60254e+03_rb,0.88806e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,23,13) = (/ &\n        & 0.10534e+04_rb,0.79512e+03_rb,0.60237e+03_rb,0.88744e+03_rb,0.11739e+04_rb /)\n      kbo(:, 4,23,13) = (/ &\n        & 0.10472e+04_rb,0.79721e+03_rb,0.60072e+03_rb,0.88622e+03_rb,0.11723e+04_rb /)\n      kbo(:, 5,23,13) = (/ &\n        & 0.10509e+04_rb,0.79423e+03_rb,0.59964e+03_rb,0.88466e+03_rb,0.11702e+04_rb /)\n      kbo(:, 1,24,13) = (/ &\n        & 0.10549e+04_rb,0.79502e+03_rb,0.60296e+03_rb,0.88817e+03_rb,0.11750e+04_rb /)\n      kbo(:, 2,24,13) = (/ &\n        & 0.10498e+04_rb,0.80428e+03_rb,0.60221e+03_rb,0.88799e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,24,13) = (/ &\n        & 0.10553e+04_rb,0.79369e+03_rb,0.60149e+03_rb,0.88721e+03_rb,0.11736e+04_rb /)\n      kbo(:, 4,24,13) = (/ &\n        & 0.10517e+04_rb,0.79240e+03_rb,0.60048e+03_rb,0.88592e+03_rb,0.11719e+04_rb /)\n      kbo(:, 5,24,13) = (/ &\n        & 0.10493e+04_rb,0.79281e+03_rb,0.59936e+03_rb,0.88429e+03_rb,0.11697e+04_rb /)\n      kbo(:, 1,25,13) = (/ &\n        & 0.10472e+04_rb,0.79884e+03_rb,0.60281e+03_rb,0.88760e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,25,13) = (/ &\n        & 0.10433e+04_rb,0.79261e+03_rb,0.60217e+03_rb,0.88787e+03_rb,0.11745e+04_rb /)\n      kbo(:, 3,25,13) = (/ &\n        & 0.10495e+04_rb,0.79568e+03_rb,0.60138e+03_rb,0.88696e+03_rb,0.11733e+04_rb /)\n      kbo(:, 4,25,13) = (/ &\n        & 0.10412e+04_rb,0.79264e+03_rb,0.60023e+03_rb,0.88559e+03_rb,0.11715e+04_rb /)\n      kbo(:, 5,25,13) = (/ &\n        & 0.10432e+04_rb,0.79682e+03_rb,0.59908e+03_rb,0.88390e+03_rb,0.11692e+04_rb /)\n      kbo(:, 1,26,13) = (/ &\n        & 0.10426e+04_rb,0.79538e+03_rb,0.60266e+03_rb,0.88804e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,26,13) = (/ &\n        & 0.10459e+04_rb,0.79909e+03_rb,0.60196e+03_rb,0.88771e+03_rb,0.11743e+04_rb /)\n      kbo(:, 3,26,13) = (/ &\n        & 0.10455e+04_rb,0.79078e+03_rb,0.60113e+03_rb,0.88666e+03_rb,0.11729e+04_rb /)\n      kbo(:, 4,26,13) = (/ &\n        & 0.10380e+04_rb,0.79069e+03_rb,0.60011e+03_rb,0.88521e+03_rb,0.11710e+04_rb /)\n      kbo(:, 5,26,13) = (/ &\n        & 0.10428e+04_rb,0.79124e+03_rb,0.59892e+03_rb,0.88345e+03_rb,0.11686e+04_rb /)\n      kbo(:, 1,27,13) = (/ &\n        & 0.10409e+04_rb,0.79057e+03_rb,0.60249e+03_rb,0.88802e+03_rb,0.11747e+04_rb /)\n      kbo(:, 2,27,13) = (/ &\n        & 0.10432e+04_rb,0.78863e+03_rb,0.60172e+03_rb,0.88750e+03_rb,0.11740e+04_rb /)\n      kbo(:, 3,27,13) = (/ &\n        & 0.10404e+04_rb,0.79041e+03_rb,0.60057e+03_rb,0.88634e+03_rb,0.11728e+04_rb /)\n      kbo(:, 4,27,13) = (/ &\n        & 0.10425e+04_rb,0.78854e+03_rb,0.59967e+03_rb,0.88481e+03_rb,0.11704e+04_rb /)\n      kbo(:, 5,27,13) = (/ &\n        & 0.10492e+04_rb,0.78874e+03_rb,0.59843e+03_rb,0.88297e+03_rb,0.11680e+04_rb /)\n      kbo(:, 1,28,13) = (/ &\n        & 0.10434e+04_rb,0.79273e+03_rb,0.60231e+03_rb,0.88820e+03_rb,0.11747e+04_rb /)\n      kbo(:, 2,28,13) = (/ &\n        & 0.10472e+04_rb,0.78799e+03_rb,0.60162e+03_rb,0.88726e+03_rb,0.11737e+04_rb /)\n      kbo(:, 3,28,13) = (/ &\n        & 0.10366e+04_rb,0.79125e+03_rb,0.60032e+03_rb,0.88600e+03_rb,0.11720e+04_rb /)\n      kbo(:, 4,28,13) = (/ &\n        & 0.10345e+04_rb,0.78841e+03_rb,0.59938e+03_rb,0.88440e+03_rb,0.11699e+04_rb /)\n      kbo(:, 5,28,13) = (/ &\n        & 0.10534e+04_rb,0.78866e+03_rb,0.59808e+03_rb,0.88245e+03_rb,0.11673e+04_rb /)\n      kbo(:, 1,29,13) = (/ &\n        & 0.10524e+04_rb,0.78934e+03_rb,0.60181e+03_rb,0.88786e+03_rb,0.11745e+04_rb /)\n      kbo(:, 2,29,13) = (/ &\n        & 0.10481e+04_rb,0.78588e+03_rb,0.60321e+03_rb,0.88698e+03_rb,0.11734e+04_rb /)\n      kbo(:, 3,29,13) = (/ &\n        & 0.10466e+04_rb,0.79266e+03_rb,0.60021e+03_rb,0.88562e+03_rb,0.11715e+04_rb /)\n      kbo(:, 4,29,13) = (/ &\n        & 0.10466e+04_rb,0.79965e+03_rb,0.59906e+03_rb,0.88395e+03_rb,0.11693e+04_rb /)\n      kbo(:, 5,29,13) = (/ &\n        & 0.10459e+04_rb,0.78993e+03_rb,0.59799e+03_rb,0.88185e+03_rb,0.11668e+04_rb /)\n      kbo(:, 1,30,13) = (/ &\n        & 0.10360e+04_rb,0.78916e+03_rb,0.60191e+03_rb,0.88770e+03_rb,0.11743e+04_rb /)\n      kbo(:, 2,30,13) = (/ &\n        & 0.10409e+04_rb,0.78411e+03_rb,0.60093e+03_rb,0.88667e+03_rb,0.11729e+04_rb /)\n      kbo(:, 3,30,13) = (/ &\n        & 0.10391e+04_rb,0.79193e+03_rb,0.59993e+03_rb,0.88546e+03_rb,0.11710e+04_rb /)\n      kbo(:, 4,30,13) = (/ &\n        & 0.10409e+04_rb,0.78876e+03_rb,0.59874e+03_rb,0.88348e+03_rb,0.11687e+04_rb /)\n      kbo(:, 5,30,13) = (/ &\n        & 0.10396e+04_rb,0.78722e+03_rb,0.59722e+03_rb,0.88117e+03_rb,0.11665e+04_rb /)\n      kbo(:, 1,31,13) = (/ &\n        & 0.10394e+04_rb,0.79419e+03_rb,0.60167e+03_rb,0.88749e+03_rb,0.11740e+04_rb /)\n      kbo(:, 2,31,13) = (/ &\n        & 0.10363e+04_rb,0.79203e+03_rb,0.60068e+03_rb,0.88633e+03_rb,0.11725e+04_rb /)\n      kbo(:, 3,31,13) = (/ &\n        & 0.10437e+04_rb,0.78663e+03_rb,0.59963e+03_rb,0.88481e+03_rb,0.11705e+04_rb /)\n      kbo(:, 4,31,13) = (/ &\n        & 0.10406e+04_rb,0.79000e+03_rb,0.59839e+03_rb,0.88297e+03_rb,0.11680e+04_rb /)\n      kbo(:, 5,31,13) = (/ &\n        & 0.10413e+04_rb,0.79093e+03_rb,0.59674e+03_rb,0.88044e+03_rb,0.11650e+04_rb /)\n      kbo(:, 1,32,13) = (/ &\n        & 0.10440e+04_rb,0.79014e+03_rb,0.60327e+03_rb,0.88723e+03_rb,0.11737e+04_rb /)\n      kbo(:, 2,32,13) = (/ &\n        & 0.10391e+04_rb,0.79106e+03_rb,0.60042e+03_rb,0.88596e+03_rb,0.11720e+04_rb /)\n      kbo(:, 3,32,13) = (/ &\n        & 0.10467e+04_rb,0.78955e+03_rb,0.59932e+03_rb,0.88436e+03_rb,0.11699e+04_rb /)\n      kbo(:, 4,32,13) = (/ &\n        & 0.10407e+04_rb,0.79722e+03_rb,0.59818e+03_rb,0.88241e+03_rb,0.11673e+04_rb /)\n      kbo(:, 5,32,13) = (/ &\n        & 0.10382e+04_rb,0.78961e+03_rb,0.59626e+03_rb,0.87980e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,33,13) = (/ &\n        & 0.10522e+04_rb,0.78494e+03_rb,0.60081e+03_rb,0.88693e+03_rb,0.11733e+04_rb /)\n      kbo(:, 2,33,13) = (/ &\n        & 0.10373e+04_rb,0.79220e+03_rb,0.59999e+03_rb,0.88557e+03_rb,0.11715e+04_rb /)\n      kbo(:, 3,33,13) = (/ &\n        & 0.10359e+04_rb,0.78622e+03_rb,0.59900e+03_rb,0.88389e+03_rb,0.11695e+04_rb /)\n      kbo(:, 4,33,13) = (/ &\n        & 0.10377e+04_rb,0.78474e+03_rb,0.59760e+03_rb,0.88177e+03_rb,0.11667e+04_rb /)\n      kbo(:, 5,33,13) = (/ &\n        & 0.10406e+04_rb,0.78876e+03_rb,0.59580e+03_rb,0.87933e+03_rb,0.11633e+04_rb /)\n      kbo(:, 1,34,13) = (/ &\n        & 0.10360e+04_rb,0.79366e+03_rb,0.60074e+03_rb,0.88666e+03_rb,0.11729e+04_rb /)\n      kbo(:, 2,34,13) = (/ &\n        & 0.10445e+04_rb,0.78362e+03_rb,0.59974e+03_rb,0.88521e+03_rb,0.11710e+04_rb /)\n      kbo(:, 3,34,13) = (/ &\n        & 0.10445e+04_rb,0.78784e+03_rb,0.59871e+03_rb,0.88346e+03_rb,0.11687e+04_rb /)\n      kbo(:, 4,34,13) = (/ &\n        & 0.10420e+04_rb,0.78840e+03_rb,0.59718e+03_rb,0.88091e+03_rb,0.11665e+04_rb /)\n      kbo(:, 5,34,13) = (/ &\n        & 0.10384e+04_rb,0.79182e+03_rb,0.59540e+03_rb,0.87927e+03_rb,0.11620e+04_rb /)\n      kbo(:, 1,35,13) = (/ &\n        & 0.10422e+04_rb,0.79326e+03_rb,0.60077e+03_rb,0.88648e+03_rb,0.11727e+04_rb /)\n      kbo(:, 2,35,13) = (/ &\n        & 0.10360e+04_rb,0.79158e+03_rb,0.59975e+03_rb,0.88500e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,35,13) = (/ &\n        & 0.10370e+04_rb,0.78869e+03_rb,0.59854e+03_rb,0.88320e+03_rb,0.11683e+04_rb /)\n      kbo(:, 4,35,13) = (/ &\n        & 0.10364e+04_rb,0.79354e+03_rb,0.59694e+03_rb,0.88077e+03_rb,0.11651e+04_rb /)\n      kbo(:, 5,35,13) = (/ &\n        & 0.10369e+04_rb,0.78943e+03_rb,0.59473e+03_rb,0.87892e+03_rb,0.11616e+04_rb /)\n      kbo(:, 1,36,13) = (/ &\n        & 0.10401e+04_rb,0.78191e+03_rb,0.60075e+03_rb,0.88645e+03_rb,0.11727e+04_rb /)\n      kbo(:, 2,36,13) = (/ &\n        & 0.10371e+04_rb,0.78614e+03_rb,0.59972e+03_rb,0.88519e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,36,13) = (/ &\n        & 0.10392e+04_rb,0.78550e+03_rb,0.59835e+03_rb,0.88339e+03_rb,0.11683e+04_rb /)\n      kbo(:, 4,36,13) = (/ &\n        & 0.10378e+04_rb,0.78649e+03_rb,0.59690e+03_rb,0.88071e+03_rb,0.11650e+04_rb /)\n      kbo(:, 5,36,13) = (/ &\n        & 0.10389e+04_rb,0.79012e+03_rb,0.59516e+03_rb,0.87821e+03_rb,0.11604e+04_rb /)\n      kbo(:, 1,37,13) = (/ &\n        & 0.10397e+04_rb,0.78790e+03_rb,0.60071e+03_rb,0.88662e+03_rb,0.11729e+04_rb /)\n      kbo(:, 2,37,13) = (/ &\n        & 0.10413e+04_rb,0.78135e+03_rb,0.59986e+03_rb,0.88540e+03_rb,0.11710e+04_rb /)\n      kbo(:, 3,37,13) = (/ &\n        & 0.10434e+04_rb,0.78885e+03_rb,0.59867e+03_rb,0.88341e+03_rb,0.11686e+04_rb /)\n      kbo(:, 4,37,13) = (/ &\n        & 0.10382e+04_rb,0.79636e+03_rb,0.59698e+03_rb,0.88108e+03_rb,0.11655e+04_rb /)\n      kbo(:, 5,37,13) = (/ &\n        & 0.10369e+04_rb,0.78656e+03_rb,0.59536e+03_rb,0.87879e+03_rb,0.11626e+04_rb /)\n      kbo(:, 1,38,13) = (/ &\n        & 0.10433e+04_rb,0.78475e+03_rb,0.60099e+03_rb,0.88680e+03_rb,0.11731e+04_rb /)\n      kbo(:, 2,38,13) = (/ &\n        & 0.10422e+04_rb,0.78187e+03_rb,0.60001e+03_rb,0.88539e+03_rb,0.11713e+04_rb /)\n      kbo(:, 3,38,13) = (/ &\n        & 0.10376e+04_rb,0.78470e+03_rb,0.59854e+03_rb,0.88368e+03_rb,0.11690e+04_rb /)\n      kbo(:, 4,38,13) = (/ &\n        & 0.10379e+04_rb,0.78467e+03_rb,0.59739e+03_rb,0.88147e+03_rb,0.11660e+04_rb /)\n      kbo(:, 5,38,13) = (/ &\n        & 0.10346e+04_rb,0.79279e+03_rb,0.59559e+03_rb,0.87849e+03_rb,0.11631e+04_rb /)\n      kbo(:, 1,39,13) = (/ &\n        & 0.10564e+04_rb,0.79016e+03_rb,0.60113e+03_rb,0.88696e+03_rb,0.11734e+04_rb /)\n      kbo(:, 2,39,13) = (/ &\n        & 0.10405e+04_rb,0.78139e+03_rb,0.59938e+03_rb,0.88561e+03_rb,0.11715e+04_rb /)\n      kbo(:, 3,39,13) = (/ &\n        & 0.10386e+04_rb,0.79256e+03_rb,0.59902e+03_rb,0.88393e+03_rb,0.11693e+04_rb /)\n      kbo(:, 4,39,13) = (/ &\n        & 0.10351e+04_rb,0.78501e+03_rb,0.59779e+03_rb,0.88184e+03_rb,0.11668e+04_rb /)\n      kbo(:, 5,39,13) = (/ &\n        & 0.10353e+04_rb,0.78561e+03_rb,0.59583e+03_rb,0.87937e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,40,13) = (/ &\n        & 0.10351e+04_rb,0.78501e+03_rb,0.60325e+03_rb,0.88723e+03_rb,0.11737e+04_rb /)\n      kbo(:, 2,40,13) = (/ &\n        & 0.10332e+04_rb,0.78519e+03_rb,0.60040e+03_rb,0.88596e+03_rb,0.11720e+04_rb /)\n      kbo(:, 3,40,13) = (/ &\n        & 0.10393e+04_rb,0.78843e+03_rb,0.59931e+03_rb,0.88436e+03_rb,0.11699e+04_rb /)\n      kbo(:, 4,40,13) = (/ &\n        & 0.10339e+04_rb,0.78821e+03_rb,0.59801e+03_rb,0.88242e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,40,13) = (/ &\n        & 0.10476e+04_rb,0.78616e+03_rb,0.59626e+03_rb,0.87958e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,41,13) = (/ &\n        & 0.10420e+04_rb,0.78658e+03_rb,0.60226e+03_rb,0.88748e+03_rb,0.11740e+04_rb /)\n      kbo(:, 2,41,13) = (/ &\n        & 0.10471e+04_rb,0.78433e+03_rb,0.60065e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 3,41,13) = (/ &\n        & 0.10385e+04_rb,0.78777e+03_rb,0.59960e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)\n      kbo(:, 4,41,13) = (/ &\n        & 0.10374e+04_rb,0.79305e+03_rb,0.59837e+03_rb,0.88319e+03_rb,0.11680e+04_rb /)\n      kbo(:, 5,41,13) = (/ &\n        & 0.10341e+04_rb,0.79121e+03_rb,0.59671e+03_rb,0.88067e+03_rb,0.11641e+04_rb /)\n      kbo(:, 1,42,13) = (/ &\n        & 0.10427e+04_rb,0.78654e+03_rb,0.60202e+03_rb,0.88768e+03_rb,0.11743e+04_rb /)\n      kbo(:, 2,42,13) = (/ &\n        & 0.10376e+04_rb,0.78774e+03_rb,0.60073e+03_rb,0.88666e+03_rb,0.11730e+04_rb /)\n      kbo(:, 3,42,13) = (/ &\n        & 0.10387e+04_rb,0.78631e+03_rb,0.59989e+03_rb,0.88522e+03_rb,0.11710e+04_rb /)\n      kbo(:, 4,42,13) = (/ &\n        & 0.10432e+04_rb,0.79240e+03_rb,0.59870e+03_rb,0.88347e+03_rb,0.11690e+04_rb /)\n      kbo(:, 5,42,13) = (/ &\n        & 0.10408e+04_rb,0.78283e+03_rb,0.59718e+03_rb,0.88116e+03_rb,0.11677e+04_rb /)\n      kbo(:, 1,43,13) = (/ &\n        & 0.10384e+04_rb,0.78732e+03_rb,0.60211e+03_rb,0.88787e+03_rb,0.11746e+04_rb /)\n      kbo(:, 2,43,13) = (/ &\n        & 0.10392e+04_rb,0.79483e+03_rb,0.60103e+03_rb,0.88703e+03_rb,0.11735e+04_rb /)\n      kbo(:, 3,43,13) = (/ &\n        & 0.10435e+04_rb,0.79279e+03_rb,0.60022e+03_rb,0.88570e+03_rb,0.11717e+04_rb /)\n      kbo(:, 4,43,13) = (/ &\n        & 0.10453e+04_rb,0.78261e+03_rb,0.59909e+03_rb,0.88405e+03_rb,0.11698e+04_rb /)\n      kbo(:, 5,43,13) = (/ &\n        & 0.10349e+04_rb,0.78239e+03_rb,0.59773e+03_rb,0.88200e+03_rb,0.11670e+04_rb /)\n      kbo(:, 1,44,13) = (/ &\n        & 0.10376e+04_rb,0.78973e+03_rb,0.60218e+03_rb,0.88797e+03_rb,0.11747e+04_rb /)\n      kbo(:, 2,44,13) = (/ &\n        & 0.10357e+04_rb,0.79073e+03_rb,0.60154e+03_rb,0.88738e+03_rb,0.11742e+04_rb /)\n      kbo(:, 3,44,13) = (/ &\n        & 0.10381e+04_rb,0.78584e+03_rb,0.60056e+03_rb,0.88619e+03_rb,0.11723e+04_rb /)\n      kbo(:, 4,44,13) = (/ &\n        & 0.10410e+04_rb,0.78726e+03_rb,0.59965e+03_rb,0.88464e+03_rb,0.11703e+04_rb /)\n      kbo(:, 5,44,13) = (/ &\n        & 0.10370e+04_rb,0.78461e+03_rb,0.59824e+03_rb,0.88299e+03_rb,0.11677e+04_rb /)\n      kbo(:, 1,45,13) = (/ &\n        & 0.10383e+04_rb,0.78177e+03_rb,0.60254e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,45,13) = (/ &\n        & 0.10337e+04_rb,0.78400e+03_rb,0.60200e+03_rb,0.88790e+03_rb,0.11743e+04_rb /)\n      kbo(:, 3,45,13) = (/ &\n        & 0.10407e+04_rb,0.78928e+03_rb,0.60087e+03_rb,0.88664e+03_rb,0.11732e+04_rb /)\n      kbo(:, 4,45,13) = (/ &\n        & 0.10410e+04_rb,0.79578e+03_rb,0.59987e+03_rb,0.88519e+03_rb,0.11713e+04_rb /)\n      kbo(:, 5,45,13) = (/ &\n        & 0.10369e+04_rb,0.78337e+03_rb,0.59884e+03_rb,0.88344e+03_rb,0.11687e+04_rb /)\n      kbo(:, 1,46,13) = (/ &\n        & 0.10415e+04_rb,0.79090e+03_rb,0.60272e+03_rb,0.88805e+03_rb,0.11749e+04_rb /)\n      kbo(:, 2,46,13) = (/ &\n        & 0.10332e+04_rb,0.79374e+03_rb,0.60213e+03_rb,0.88788e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,46,13) = (/ &\n        & 0.10495e+04_rb,0.78743e+03_rb,0.60122e+03_rb,0.88707e+03_rb,0.11738e+04_rb /)\n      kbo(:, 4,46,13) = (/ &\n        & 0.10359e+04_rb,0.78275e+03_rb,0.60025e+03_rb,0.88575e+03_rb,0.11717e+04_rb /)\n      kbo(:, 5,46,13) = (/ &\n        & 0.10407e+04_rb,0.79210e+03_rb,0.59913e+03_rb,0.88411e+03_rb,0.11695e+04_rb /)\n      kbo(:, 1,47,13) = (/ &\n        & 0.10396e+04_rb,0.78478e+03_rb,0.60291e+03_rb,0.88833e+03_rb,0.11753e+04_rb /)\n      kbo(:, 2,47,13) = (/ &\n        & 0.10391e+04_rb,0.78254e+03_rb,0.60239e+03_rb,0.88798e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,47,13) = (/ &\n        & 0.10358e+04_rb,0.79087e+03_rb,0.60194e+03_rb,0.88748e+03_rb,0.11740e+04_rb /)\n      kbo(:, 4,47,13) = (/ &\n        & 0.10382e+04_rb,0.78212e+03_rb,0.60065e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 5,47,13) = (/ &\n        & 0.10417e+04_rb,0.78639e+03_rb,0.59976e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)\n      kbo(:, 1,48,13) = (/ &\n        & 0.10401e+04_rb,0.78456e+03_rb,0.60307e+03_rb,0.88865e+03_rb,0.11757e+04_rb /)\n      kbo(:, 2,48,13) = (/ &\n        & 0.10385e+04_rb,0.78639e+03_rb,0.60262e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,48,13) = (/ &\n        & 0.10377e+04_rb,0.78374e+03_rb,0.60183e+03_rb,0.88778e+03_rb,0.11745e+04_rb /)\n      kbo(:, 4,48,13) = (/ &\n        & 0.10347e+04_rb,0.78455e+03_rb,0.60102e+03_rb,0.88707e+03_rb,0.11732e+04_rb /)\n      kbo(:, 5,48,13) = (/ &\n        & 0.10420e+04_rb,0.79085e+03_rb,0.60005e+03_rb,0.88545e+03_rb,0.11713e+04_rb /)\n      kbo(:, 1,49,13) = (/ &\n        & 0.10372e+04_rb,0.78740e+03_rb,0.60317e+03_rb,0.88862e+03_rb,0.11760e+04_rb /)\n      kbo(:, 2,49,13) = (/ &\n        & 0.10417e+04_rb,0.78862e+03_rb,0.60282e+03_rb,0.88818e+03_rb,0.11751e+04_rb /)\n      kbo(:, 3,49,13) = (/ &\n        & 0.10345e+04_rb,0.78780e+03_rb,0.60227e+03_rb,0.88818e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,49,13) = (/ &\n        & 0.10406e+04_rb,0.78617e+03_rb,0.60221e+03_rb,0.88729e+03_rb,0.11738e+04_rb /)\n      kbo(:, 5,49,13) = (/ &\n        & 0.10382e+04_rb,0.79023e+03_rb,0.60061e+03_rb,0.88605e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,50,13) = (/ &\n        & 0.10347e+04_rb,0.79207e+03_rb,0.60367e+03_rb,0.88900e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,50,13) = (/ &\n        & 0.10350e+04_rb,0.78739e+03_rb,0.60298e+03_rb,0.88872e+03_rb,0.11755e+04_rb /)\n      kbo(:, 3,50,13) = (/ &\n        & 0.10353e+04_rb,0.78433e+03_rb,0.60234e+03_rb,0.88799e+03_rb,0.11744e+04_rb /)\n      kbo(:, 4,50,13) = (/ &\n        & 0.10489e+04_rb,0.79267e+03_rb,0.60164e+03_rb,0.88763e+03_rb,0.11743e+04_rb /)\n      kbo(:, 5,50,13) = (/ &\n        & 0.10406e+04_rb,0.78514e+03_rb,0.60019e+03_rb,0.88656e+03_rb,0.11728e+04_rb /)\n      kbo(:, 1,51,13) = (/ &\n        & 0.10345e+04_rb,0.78799e+03_rb,0.60398e+03_rb,0.88932e+03_rb,0.11765e+04_rb /)\n      kbo(:, 2,51,13) = (/ &\n        & 0.10401e+04_rb,0.78697e+03_rb,0.60314e+03_rb,0.88874e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,51,13) = (/ &\n        & 0.10366e+04_rb,0.78656e+03_rb,0.60285e+03_rb,0.88803e+03_rb,0.11749e+04_rb /)\n      kbo(:, 4,51,13) = (/ &\n        & 0.10374e+04_rb,0.78473e+03_rb,0.60240e+03_rb,0.88809e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,51,13) = (/ &\n        & 0.10390e+04_rb,0.78920e+03_rb,0.60116e+03_rb,0.88701e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,52,13) = (/ &\n        & 0.10369e+04_rb,0.78758e+03_rb,0.60425e+03_rb,0.88974e+03_rb,0.11770e+04_rb /)\n      kbo(:, 2,52,13) = (/ &\n        & 0.10369e+04_rb,0.78229e+03_rb,0.60357e+03_rb,0.88889e+03_rb,0.11760e+04_rb /)\n      kbo(:, 3,52,13) = (/ &\n        & 0.10371e+04_rb,0.78737e+03_rb,0.60287e+03_rb,0.88826e+03_rb,0.11752e+04_rb /)\n      kbo(:, 4,52,13) = (/ &\n        & 0.10414e+04_rb,0.78574e+03_rb,0.60234e+03_rb,0.88797e+03_rb,0.11747e+04_rb /)\n      kbo(:, 5,52,13) = (/ &\n        & 0.10377e+04_rb,0.78696e+03_rb,0.60170e+03_rb,0.88739e+03_rb,0.11739e+04_rb /)\n      kbo(:, 1,53,13) = (/ &\n        & 0.10446e+04_rb,0.78533e+03_rb,0.60451e+03_rb,0.89022e+03_rb,0.11778e+04_rb /)\n      kbo(:, 2,53,13) = (/ &\n        & 0.10366e+04_rb,0.78675e+03_rb,0.60391e+03_rb,0.88907e+03_rb,0.11762e+04_rb /)\n      kbo(:, 3,53,13) = (/ &\n        & 0.10339e+04_rb,0.78472e+03_rb,0.60302e+03_rb,0.88857e+03_rb,0.11756e+04_rb /)\n      kbo(:, 4,53,13) = (/ &\n        & 0.10347e+04_rb,0.78858e+03_rb,0.60271e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 5,53,13) = (/ &\n        & 0.10414e+04_rb,0.78370e+03_rb,0.60188e+03_rb,0.88770e+03_rb,0.11743e+04_rb /)\n      kbo(:, 1,54,13) = (/ &\n        & 0.10366e+04_rb,0.78980e+03_rb,0.60463e+03_rb,0.89072e+03_rb,0.11788e+04_rb /)\n      kbo(:, 2,54,13) = (/ &\n        & 0.10376e+04_rb,0.78289e+03_rb,0.60402e+03_rb,0.88939e+03_rb,0.11765e+04_rb /)\n      kbo(:, 3,54,13) = (/ &\n        & 0.10387e+04_rb,0.78695e+03_rb,0.60318e+03_rb,0.88877e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,54,13) = (/ &\n        & 0.10435e+04_rb,0.78370e+03_rb,0.60273e+03_rb,0.88806e+03_rb,0.11749e+04_rb /)\n      kbo(:, 5,54,13) = (/ &\n        & 0.10492e+04_rb,0.79000e+03_rb,0.60214e+03_rb,0.88789e+03_rb,0.11746e+04_rb /)\n      kbo(:, 1,55,13) = (/ &\n        & 0.10395e+04_rb,0.78654e+03_rb,0.60524e+03_rb,0.89136e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,55,13) = (/ &\n        & 0.10379e+04_rb,0.78553e+03_rb,0.60426e+03_rb,0.88977e+03_rb,0.11770e+04_rb /)\n      kbo(:, 3,55,13) = (/ &\n        & 0.10376e+04_rb,0.78959e+03_rb,0.60343e+03_rb,0.88890e+03_rb,0.11757e+04_rb /)\n      kbo(:, 4,55,13) = (/ &\n        & 0.10360e+04_rb,0.78634e+03_rb,0.60272e+03_rb,0.88828e+03_rb,0.11752e+04_rb /)\n      kbo(:, 5,55,13) = (/ &\n        & 0.10355e+04_rb,0.78796e+03_rb,0.60219e+03_rb,0.88821e+03_rb,0.11747e+04_rb /)\n      kbo(:, 1,56,13) = (/ &\n        & 0.10500e+04_rb,0.78471e+03_rb,0.60540e+03_rb,0.89210e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,56,13) = (/ &\n        & 0.10441e+04_rb,0.78735e+03_rb,0.60449e+03_rb,0.89019e+03_rb,0.11777e+04_rb /)\n      kbo(:, 3,56,13) = (/ &\n        & 0.10382e+04_rb,0.78755e+03_rb,0.60374e+03_rb,0.88905e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,56,13) = (/ &\n        & 0.10470e+04_rb,0.78715e+03_rb,0.60301e+03_rb,0.88855e+03_rb,0.11756e+04_rb /)\n      kbo(:, 5,56,13) = (/ &\n        & 0.10358e+04_rb,0.78674e+03_rb,0.60270e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 1,57,13) = (/ &\n        & 0.10339e+04_rb,0.78715e+03_rb,0.60588e+03_rb,0.89295e+03_rb,0.11828e+04_rb /)\n      kbo(:, 2,57,13) = (/ &\n        & 0.10441e+04_rb,0.78267e+03_rb,0.60475e+03_rb,0.89065e+03_rb,0.11787e+04_rb /)\n      kbo(:, 3,57,13) = (/ &\n        & 0.10435e+04_rb,0.78938e+03_rb,0.60399e+03_rb,0.88934e+03_rb,0.11765e+04_rb /)\n      kbo(:, 4,57,13) = (/ &\n        & 0.10392e+04_rb,0.79203e+03_rb,0.60300e+03_rb,0.88875e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,57,13) = (/ &\n        & 0.10360e+04_rb,0.78491e+03_rb,0.60271e+03_rb,0.88827e+03_rb,0.11749e+04_rb /)\n      kbo(:, 1,58,13) = (/ &\n        & 0.10392e+04_rb,0.78430e+03_rb,0.60601e+03_rb,0.89398e+03_rb,0.11847e+04_rb /)\n      kbo(:, 2,58,13) = (/ &\n        & 0.10363e+04_rb,0.78694e+03_rb,0.60503e+03_rb,0.89124e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,58,13) = (/ &\n        & 0.10360e+04_rb,0.78084e+03_rb,0.60391e+03_rb,0.88970e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,58,13) = (/ &\n        & 0.10459e+04_rb,0.78267e+03_rb,0.60338e+03_rb,0.88888e+03_rb,0.11757e+04_rb /)\n      kbo(:, 5,58,13) = (/ &\n        & 0.10368e+04_rb,0.79101e+03_rb,0.60285e+03_rb,0.88823e+03_rb,0.11752e+04_rb /)\n      kbo(:, 1,59,13) = (/ &\n        & 0.10403e+04_rb,0.78613e+03_rb,0.60612e+03_rb,0.89444e+03_rb,0.11849e+04_rb /)\n      kbo(:, 2,59,13) = (/ &\n        & 0.10349e+04_rb,0.78531e+03_rb,0.60514e+03_rb,0.89150e+03_rb,0.11802e+04_rb /)\n      kbo(:, 3,59,13) = (/ &\n        & 0.10360e+04_rb,0.78470e+03_rb,0.60447e+03_rb,0.88985e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,59,13) = (/ &\n        & 0.10411e+04_rb,0.78531e+03_rb,0.60349e+03_rb,0.88892e+03_rb,0.11761e+04_rb /)\n      kbo(:, 5,59,13) = (/ &\n        & 0.10355e+04_rb,0.78795e+03_rb,0.60275e+03_rb,0.88833e+03_rb,0.11753e+04_rb /)\n      kbo(:, 1,13,14) = (/ &\n        & 0.12194e+04_rb,0.91192e+03_rb,0.60649e+03_rb,0.89289e+03_rb,0.11803e+04_rb /)\n      kbo(:, 2,13,14) = (/ &\n        & 0.11340e+04_rb,0.93388e+03_rb,0.60565e+03_rb,0.89163e+03_rb,0.11786e+04_rb /)\n      kbo(:, 3,13,14) = (/ &\n        & 0.11287e+04_rb,0.93154e+03_rb,0.60510e+03_rb,0.89077e+03_rb,0.11775e+04_rb /)\n      kbo(:, 4,13,14) = (/ &\n        & 0.11571e+04_rb,0.89198e+03_rb,0.60383e+03_rb,0.88977e+03_rb,0.11762e+04_rb /)\n      kbo(:, 5,13,14) = (/ &\n        & 0.11232e+04_rb,0.85932e+03_rb,0.60280e+03_rb,0.88865e+03_rb,0.11748e+04_rb /)\n      kbo(:, 1,14,14) = (/ &\n        & 0.11313e+04_rb,0.85574e+03_rb,0.60604e+03_rb,0.89259e+03_rb,0.11800e+04_rb /)\n      kbo(:, 2,14,14) = (/ &\n        & 0.11392e+04_rb,0.85278e+03_rb,0.60523e+03_rb,0.89143e+03_rb,0.11785e+04_rb /)\n      kbo(:, 3,14,14) = (/ &\n        & 0.11402e+04_rb,0.86846e+03_rb,0.60420e+03_rb,0.89055e+03_rb,0.11774e+04_rb /)\n      kbo(:, 4,14,14) = (/ &\n        & 0.11058e+04_rb,0.85128e+03_rb,0.60339e+03_rb,0.88920e+03_rb,0.11761e+04_rb /)\n      kbo(:, 5,14,14) = (/ &\n        & 0.11286e+04_rb,0.84325e+03_rb,0.60241e+03_rb,0.88842e+03_rb,0.11746e+04_rb /)\n      kbo(:, 1,15,14) = (/ &\n        & 0.11349e+04_rb,0.84417e+03_rb,0.60541e+03_rb,0.89231e+03_rb,0.11798e+04_rb /)\n      kbo(:, 2,15,14) = (/ &\n        & 0.11015e+04_rb,0.88045e+03_rb,0.60487e+03_rb,0.89125e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,15,14) = (/ &\n        & 0.11261e+04_rb,0.83776e+03_rb,0.60408e+03_rb,0.89034e+03_rb,0.11772e+04_rb /)\n      kbo(:, 4,15,14) = (/ &\n        & 0.10962e+04_rb,0.86597e+03_rb,0.60302e+03_rb,0.88937e+03_rb,0.11760e+04_rb /)\n      kbo(:, 5,15,14) = (/ &\n        & 0.10995e+04_rb,0.86095e+03_rb,0.60207e+03_rb,0.88855e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,16,14) = (/ &\n        & 0.11556e+04_rb,0.89943e+03_rb,0.60533e+03_rb,0.89241e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,16,14) = (/ &\n        & 0.10928e+04_rb,0.87845e+03_rb,0.60456e+03_rb,0.89108e+03_rb,0.11783e+04_rb /)\n      kbo(:, 3,16,14) = (/ &\n        & 0.11526e+04_rb,0.84568e+03_rb,0.60375e+03_rb,0.89014e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,16,14) = (/ &\n        & 0.11224e+04_rb,0.82958e+03_rb,0.60245e+03_rb,0.88919e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,16,14) = (/ &\n        & 0.11104e+04_rb,0.83492e+03_rb,0.60177e+03_rb,0.88796e+03_rb,0.11747e+04_rb /)\n      kbo(:, 1,17,14) = (/ &\n        & 0.11093e+04_rb,0.86391e+03_rb,0.60505e+03_rb,0.89183e+03_rb,0.11794e+04_rb /)\n      kbo(:, 2,17,14) = (/ &\n        & 0.10879e+04_rb,0.83992e+03_rb,0.60455e+03_rb,0.89093e+03_rb,0.11782e+04_rb /)\n      kbo(:, 3,17,14) = (/ &\n        & 0.11180e+04_rb,0.83675e+03_rb,0.60345e+03_rb,0.88997e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,17,14) = (/ &\n        & 0.11203e+04_rb,0.81299e+03_rb,0.60195e+03_rb,0.88902e+03_rb,0.11757e+04_rb /)\n      kbo(:, 5,17,14) = (/ &\n        & 0.10902e+04_rb,0.84755e+03_rb,0.60151e+03_rb,0.88739e+03_rb,0.11736e+04_rb /)\n      kbo(:, 1,18,14) = (/ &\n        & 0.10889e+04_rb,0.82171e+03_rb,0.60482e+03_rb,0.89199e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,18,14) = (/ &\n        & 0.10836e+04_rb,0.85518e+03_rb,0.60408e+03_rb,0.89079e+03_rb,0.11781e+04_rb /)\n      kbo(:, 3,18,14) = (/ &\n        & 0.10919e+04_rb,0.82437e+03_rb,0.60318e+03_rb,0.88981e+03_rb,0.11763e+04_rb /)\n      kbo(:, 4,18,14) = (/ &\n        & 0.11143e+04_rb,0.86811e+03_rb,0.60223e+03_rb,0.88886e+03_rb,0.11755e+04_rb /)\n      kbo(:, 5,18,14) = (/ &\n        & 0.10618e+04_rb,0.80694e+03_rb,0.60104e+03_rb,0.88718e+03_rb,0.11738e+04_rb /)\n      kbo(:, 1,19,14) = (/ &\n        & 0.10700e+04_rb,0.81179e+03_rb,0.60437e+03_rb,0.89145e+03_rb,0.11790e+04_rb /)\n      kbo(:, 2,19,14) = (/ &\n        & 0.11096e+04_rb,0.84185e+03_rb,0.60389e+03_rb,0.89066e+03_rb,0.11785e+04_rb /)\n      kbo(:, 3,19,14) = (/ &\n        & 0.10919e+04_rb,0.82575e+03_rb,0.60295e+03_rb,0.89004e+03_rb,0.11767e+04_rb /)\n      kbo(:, 4,19,14) = (/ &\n        & 0.10874e+04_rb,0.81974e+03_rb,0.60205e+03_rb,0.88835e+03_rb,0.11754e+04_rb /)\n      kbo(:, 5,19,14) = (/ &\n        & 0.11077e+04_rb,0.86723e+03_rb,0.60084e+03_rb,0.88734e+03_rb,0.11727e+04_rb /)\n      kbo(:, 1,20,14) = (/ &\n        & 0.10813e+04_rb,0.82037e+03_rb,0.60443e+03_rb,0.89128e+03_rb,0.11789e+04_rb /)\n      kbo(:, 2,20,14) = (/ &\n        & 0.10944e+04_rb,0.83718e+03_rb,0.60369e+03_rb,0.89052e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,20,14) = (/ &\n        & 0.10922e+04_rb,0.81527e+03_rb,0.60248e+03_rb,0.88953e+03_rb,0.11765e+04_rb /)\n      kbo(:, 4,20,14) = (/ &\n        & 0.10962e+04_rb,0.82815e+03_rb,0.60188e+03_rb,0.88854e+03_rb,0.11752e+04_rb /)\n      kbo(:, 5,20,14) = (/ &\n        & 0.10768e+04_rb,0.81150e+03_rb,0.60064e+03_rb,0.88711e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,21,14) = (/ &\n        & 0.10919e+04_rb,0.79941e+03_rb,0.60426e+03_rb,0.89114e+03_rb,0.11787e+04_rb /)\n      kbo(:, 2,21,14) = (/ &\n        & 0.10481e+04_rb,0.83111e+03_rb,0.60351e+03_rb,0.89037e+03_rb,0.11777e+04_rb /)\n      kbo(:, 3,21,14) = (/ &\n        & 0.10716e+04_rb,0.81475e+03_rb,0.60253e+03_rb,0.88975e+03_rb,0.11764e+04_rb /)\n      kbo(:, 4,21,14) = (/ &\n        & 0.11197e+04_rb,0.80344e+03_rb,0.60123e+03_rb,0.88837e+03_rb,0.11750e+04_rb /)\n      kbo(:, 5,21,14) = (/ &\n        & 0.10436e+04_rb,0.80977e+03_rb,0.60045e+03_rb,0.88688e+03_rb,0.11731e+04_rb /)\n      kbo(:, 1,22,14) = (/ &\n        & 0.11028e+04_rb,0.82019e+03_rb,0.60406e+03_rb,0.89099e+03_rb,0.11785e+04_rb /)\n      kbo(:, 2,22,14) = (/ &\n        & 0.10664e+04_rb,0.84127e+03_rb,0.60327e+03_rb,0.89089e+03_rb,0.11775e+04_rb /)\n      kbo(:, 3,22,14) = (/ &\n        & 0.10764e+04_rb,0.83101e+03_rb,0.60182e+03_rb,0.88920e+03_rb,0.11762e+04_rb /)\n      kbo(:, 4,22,14) = (/ &\n        & 0.10955e+04_rb,0.82928e+03_rb,0.60175e+03_rb,0.88811e+03_rb,0.11747e+04_rb /)\n      kbo(:, 5,22,14) = (/ &\n        & 0.10429e+04_rb,0.82150e+03_rb,0.60042e+03_rb,0.88653e+03_rb,0.11726e+04_rb /)\n      kbo(:, 1,23,14) = (/ &\n        & 0.10449e+04_rb,0.79677e+03_rb,0.60363e+03_rb,0.89084e+03_rb,0.11784e+04_rb /)\n      kbo(:, 2,23,14) = (/ &\n        & 0.10443e+04_rb,0.81477e+03_rb,0.60352e+03_rb,0.88994e+03_rb,0.11772e+04_rb /)\n      kbo(:, 3,23,14) = (/ &\n        & 0.10490e+04_rb,0.84026e+03_rb,0.60112e+03_rb,0.88900e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,23,14) = (/ &\n        & 0.10652e+04_rb,0.80737e+03_rb,0.60128e+03_rb,0.88783e+03_rb,0.11744e+04_rb /)\n      kbo(:, 5,23,14) = (/ &\n        & 0.10777e+04_rb,0.80975e+03_rb,0.60014e+03_rb,0.88615e+03_rb,0.11722e+04_rb /)\n      kbo(:, 1,24,14) = (/ &\n        & 0.10587e+04_rb,0.83370e+03_rb,0.60369e+03_rb,0.89067e+03_rb,0.11782e+04_rb /)\n      kbo(:, 2,24,14) = (/ &\n        & 0.10413e+04_rb,0.79049e+03_rb,0.60278e+03_rb,0.88972e+03_rb,0.11769e+04_rb /)\n      kbo(:, 3,24,14) = (/ &\n        & 0.10508e+04_rb,0.83928e+03_rb,0.60192e+03_rb,0.88879e+03_rb,0.11757e+04_rb /)\n      kbo(:, 4,24,14) = (/ &\n        & 0.10667e+04_rb,0.80304e+03_rb,0.60105e+03_rb,0.88752e+03_rb,0.11740e+04_rb /)\n      kbo(:, 5,24,14) = (/ &\n        & 0.10776e+04_rb,0.78685e+03_rb,0.59985e+03_rb,0.88574e+03_rb,0.11716e+04_rb /)\n      kbo(:, 1,25,14) = (/ &\n        & 0.10559e+04_rb,0.78648e+03_rb,0.60348e+03_rb,0.89048e+03_rb,0.11779e+04_rb /)\n      kbo(:, 2,25,14) = (/ &\n        & 0.10600e+04_rb,0.81980e+03_rb,0.60253e+03_rb,0.88951e+03_rb,0.11766e+04_rb /)\n      kbo(:, 3,25,14) = (/ &\n        & 0.10484e+04_rb,0.79331e+03_rb,0.60149e+03_rb,0.88854e+03_rb,0.11754e+04_rb /)\n      kbo(:, 4,25,14) = (/ &\n        & 0.11000e+04_rb,0.80548e+03_rb,0.60080e+03_rb,0.88717e+03_rb,0.11735e+04_rb /)\n      kbo(:, 5,25,14) = (/ &\n        & 0.11165e+04_rb,0.79968e+03_rb,0.59952e+03_rb,0.88528e+03_rb,0.11711e+04_rb /)\n      kbo(:, 1,26,14) = (/ &\n        & 0.10604e+04_rb,0.79570e+03_rb,0.60325e+03_rb,0.89026e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,26,14) = (/ &\n        & 0.10870e+04_rb,0.78311e+03_rb,0.60230e+03_rb,0.88929e+03_rb,0.11764e+04_rb /)\n      kbo(:, 3,26,14) = (/ &\n        & 0.10476e+04_rb,0.79338e+03_rb,0.60128e+03_rb,0.88826e+03_rb,0.11750e+04_rb /)\n      kbo(:, 4,26,14) = (/ &\n        & 0.10459e+04_rb,0.80175e+03_rb,0.60027e+03_rb,0.88677e+03_rb,0.11730e+04_rb /)\n      kbo(:, 5,26,14) = (/ &\n        & 0.10485e+04_rb,0.81112e+03_rb,0.59892e+03_rb,0.88476e+03_rb,0.11704e+04_rb /)\n      kbo(:, 1,27,14) = (/ &\n        & 0.10458e+04_rb,0.79457e+03_rb,0.60301e+03_rb,0.89001e+03_rb,0.11773e+04_rb /)\n      kbo(:, 2,27,14) = (/ &\n        & 0.10576e+04_rb,0.79170e+03_rb,0.60208e+03_rb,0.88906e+03_rb,0.11761e+04_rb /)\n      kbo(:, 3,27,14) = (/ &\n        & 0.10632e+04_rb,0.79464e+03_rb,0.60130e+03_rb,0.88794e+03_rb,0.11741e+04_rb /)\n      kbo(:, 4,27,14) = (/ &\n        & 0.10506e+04_rb,0.80916e+03_rb,0.60021e+03_rb,0.88633e+03_rb,0.11725e+04_rb /)\n      kbo(:, 5,27,14) = (/ &\n        & 0.10406e+04_rb,0.79035e+03_rb,0.59878e+03_rb,0.88422e+03_rb,0.11697e+04_rb /)\n      kbo(:, 1,28,14) = (/ &\n        & 0.10390e+04_rb,0.79142e+03_rb,0.60274e+03_rb,0.88940e+03_rb,0.11770e+04_rb /)\n      kbo(:, 2,28,14) = (/ &\n        & 0.10793e+04_rb,0.84664e+03_rb,0.60165e+03_rb,0.88883e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,28,14) = (/ &\n        & 0.10389e+04_rb,0.81244e+03_rb,0.60106e+03_rb,0.88760e+03_rb,0.11741e+04_rb /)\n      kbo(:, 4,28,14) = (/ &\n        & 0.10910e+04_rb,0.82250e+03_rb,0.59988e+03_rb,0.88586e+03_rb,0.11718e+04_rb /)\n      kbo(:, 5,28,14) = (/ &\n        & 0.10984e+04_rb,0.79766e+03_rb,0.59863e+03_rb,0.88510e+03_rb,0.11689e+04_rb /)\n      kbo(:, 1,29,14) = (/ &\n        & 0.10453e+04_rb,0.79421e+03_rb,0.60249e+03_rb,0.88988e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,29,14) = (/ &\n        & 0.10759e+04_rb,0.85231e+03_rb,0.59780e+03_rb,0.88856e+03_rb,0.11754e+04_rb /)\n      kbo(:, 3,29,14) = (/ &\n        & 0.10355e+04_rb,0.83260e+03_rb,0.60079e+03_rb,0.88721e+03_rb,0.11736e+04_rb /)\n      kbo(:, 4,29,14) = (/ &\n        & 0.10260e+04_rb,0.78313e+03_rb,0.59953e+03_rb,0.88535e+03_rb,0.11712e+04_rb /)\n      kbo(:, 5,29,14) = (/ &\n        & 0.10495e+04_rb,0.79101e+03_rb,0.59751e+03_rb,0.88309e+03_rb,0.11682e+04_rb /)\n      kbo(:, 1,30,14) = (/ &\n        & 0.10479e+04_rb,0.78753e+03_rb,0.60225e+03_rb,0.88928e+03_rb,0.11764e+04_rb /)\n      kbo(:, 2,30,14) = (/ &\n        & 0.10451e+04_rb,0.80563e+03_rb,0.60150e+03_rb,0.88827e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,30,14) = (/ &\n        & 0.10758e+04_rb,0.79525e+03_rb,0.60050e+03_rb,0.88643e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,30,14) = (/ &\n        & 0.10781e+04_rb,0.79929e+03_rb,0.59916e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)\n      kbo(:, 5,30,14) = (/ &\n        & 0.10459e+04_rb,0.81358e+03_rb,0.59790e+03_rb,0.88220e+03_rb,0.11665e+04_rb /)\n      kbo(:, 1,31,14) = (/ &\n        & 0.10607e+04_rb,0.80146e+03_rb,0.60204e+03_rb,0.88905e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,31,14) = (/ &\n        & 0.10395e+04_rb,0.78822e+03_rb,0.60127e+03_rb,0.88793e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,31,14) = (/ &\n        & 0.10321e+04_rb,0.80923e+03_rb,0.60018e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 4,31,14) = (/ &\n        & 0.11042e+04_rb,0.80049e+03_rb,0.59875e+03_rb,0.88457e+03_rb,0.11697e+04_rb /)\n      kbo(:, 5,31,14) = (/ &\n        & 0.10581e+04_rb,0.80105e+03_rb,0.59750e+03_rb,0.88200e+03_rb,0.11672e+04_rb /)\n      kbo(:, 1,32,14) = (/ &\n        & 0.10889e+04_rb,0.84488e+03_rb,0.59867e+03_rb,0.88880e+03_rb,0.11757e+04_rb /)\n      kbo(:, 2,32,14) = (/ &\n        & 0.10428e+04_rb,0.79586e+03_rb,0.60101e+03_rb,0.88756e+03_rb,0.11741e+04_rb /)\n      kbo(:, 3,32,14) = (/ &\n        & 0.10671e+04_rb,0.82487e+03_rb,0.59984e+03_rb,0.88582e+03_rb,0.11718e+04_rb /)\n      kbo(:, 4,32,14) = (/ &\n        & 0.10426e+04_rb,0.83726e+03_rb,0.59809e+03_rb,0.88469e+03_rb,0.11694e+04_rb /)\n      kbo(:, 5,32,14) = (/ &\n        & 0.10522e+04_rb,0.80937e+03_rb,0.59684e+03_rb,0.88175e+03_rb,0.11659e+04_rb /)\n      kbo(:, 1,33,14) = (/ &\n        & 0.10391e+04_rb,0.79980e+03_rb,0.60166e+03_rb,0.88852e+03_rb,0.11754e+04_rb /)\n      kbo(:, 2,33,14) = (/ &\n        & 0.10719e+04_rb,0.78917e+03_rb,0.60073e+03_rb,0.88751e+03_rb,0.11736e+04_rb /)\n      kbo(:, 3,33,14) = (/ &\n        & 0.10389e+04_rb,0.82235e+03_rb,0.59947e+03_rb,0.88564e+03_rb,0.11706e+04_rb /)\n      kbo(:, 4,33,14) = (/ &\n        & 0.10819e+04_rb,0.81877e+03_rb,0.59794e+03_rb,0.88337e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,33,14) = (/ &\n        & 0.10266e+04_rb,0.78772e+03_rb,0.59642e+03_rb,0.88112e+03_rb,0.11651e+04_rb /)\n      kbo(:, 1,34,14) = (/ &\n        & 0.10675e+04_rb,0.78932e+03_rb,0.60147e+03_rb,0.88789e+03_rb,0.11750e+04_rb /)\n      kbo(:, 2,34,14) = (/ &\n        & 0.10375e+04_rb,0.79310e+03_rb,0.60047e+03_rb,0.88677e+03_rb,0.11731e+04_rb /)\n      kbo(:, 3,34,14) = (/ &\n        & 0.10378e+04_rb,0.82372e+03_rb,0.59913e+03_rb,0.88478e+03_rb,0.11704e+04_rb /)\n      kbo(:, 4,34,14) = (/ &\n        & 0.10677e+04_rb,0.78757e+03_rb,0.59836e+03_rb,0.88254e+03_rb,0.11660e+04_rb /)\n      kbo(:, 5,34,14) = (/ &\n        & 0.10419e+04_rb,0.77666e+03_rb,0.59604e+03_rb,0.87984e+03_rb,0.11644e+04_rb /)\n      kbo(:, 1,35,14) = (/ &\n        & 0.10613e+04_rb,0.80031e+03_rb,0.60136e+03_rb,0.88808e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,35,14) = (/ &\n        & 0.11118e+04_rb,0.80250e+03_rb,0.60031e+03_rb,0.88654e+03_rb,0.11732e+04_rb /)\n      kbo(:, 3,35,14) = (/ &\n        & 0.10759e+04_rb,0.83185e+03_rb,0.59892e+03_rb,0.88448e+03_rb,0.11701e+04_rb /)\n      kbo(:, 4,35,14) = (/ &\n        & 0.11049e+04_rb,0.77622e+03_rb,0.59743e+03_rb,0.88477e+03_rb,0.11680e+04_rb /)\n      kbo(:, 5,35,14) = (/ &\n        & 0.10459e+04_rb,0.78322e+03_rb,0.59581e+03_rb,0.87986e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,36,14) = (/ &\n        & 0.10396e+04_rb,0.79026e+03_rb,0.60134e+03_rb,0.88805e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,36,14) = (/ &\n        & 0.10471e+04_rb,0.80778e+03_rb,0.60028e+03_rb,0.88614e+03_rb,0.11727e+04_rb /)\n      kbo(:, 3,36,14) = (/ &\n        & 0.10450e+04_rb,0.79912e+03_rb,0.59889e+03_rb,0.88407e+03_rb,0.11700e+04_rb /)\n      kbo(:, 4,36,14) = (/ &\n        & 0.10626e+04_rb,0.80803e+03_rb,0.59740e+03_rb,0.88257e+03_rb,0.11756e+04_rb /)\n      kbo(:, 5,36,14) = (/ &\n        & 0.10609e+04_rb,0.81056e+03_rb,0.59577e+03_rb,0.87981e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,37,14) = (/ &\n        & 0.10479e+04_rb,0.79014e+03_rb,0.60145e+03_rb,0.88822e+03_rb,0.11750e+04_rb /)\n      kbo(:, 2,37,14) = (/ &\n        & 0.10744e+04_rb,0.81437e+03_rb,0.60044e+03_rb,0.88637e+03_rb,0.11730e+04_rb /)\n      kbo(:, 3,37,14) = (/ &\n        & 0.10335e+04_rb,0.79550e+03_rb,0.59909e+03_rb,0.88473e+03_rb,0.11704e+04_rb /)\n      kbo(:, 4,37,14) = (/ &\n        & 0.10410e+04_rb,0.77504e+03_rb,0.59808e+03_rb,0.88321e+03_rb,0.11674e+04_rb /)\n      kbo(:, 5,37,14) = (/ &\n        & 0.10557e+04_rb,0.79226e+03_rb,0.59599e+03_rb,0.88014e+03_rb,0.11643e+04_rb /)\n      kbo(:, 1,38,14) = (/ &\n        & 0.10418e+04_rb,0.80249e+03_rb,0.60156e+03_rb,0.88838e+03_rb,0.11752e+04_rb /)\n      kbo(:, 2,38,14) = (/ &\n        & 0.10220e+04_rb,0.82577e+03_rb,0.60060e+03_rb,0.88697e+03_rb,0.11733e+04_rb /)\n      kbo(:, 3,38,14) = (/ &\n        & 0.10502e+04_rb,0.80915e+03_rb,0.59929e+03_rb,0.88503e+03_rb,0.11708e+04_rb /)\n      kbo(:, 4,38,14) = (/ &\n        & 0.10497e+04_rb,0.81774e+03_rb,0.59826e+03_rb,0.88277e+03_rb,0.11673e+04_rb /)\n      kbo(:, 5,38,14) = (/ &\n        & 0.10771e+04_rb,0.81134e+03_rb,0.59623e+03_rb,0.88049e+03_rb,0.11648e+04_rb /)\n      kbo(:, 1,39,14) = (/ &\n        & 0.10165e+04_rb,0.77782e+03_rb,0.60118e+03_rb,0.88854e+03_rb,0.11754e+04_rb /)\n      kbo(:, 2,39,14) = (/ &\n        & 0.10531e+04_rb,0.80302e+03_rb,0.60075e+03_rb,0.88719e+03_rb,0.11736e+04_rb /)\n      kbo(:, 3,39,14) = (/ &\n        & 0.10758e+04_rb,0.78257e+03_rb,0.59949e+03_rb,0.88533e+03_rb,0.11712e+04_rb /)\n      kbo(:, 4,39,14) = (/ &\n        & 0.10568e+04_rb,0.79852e+03_rb,0.59772e+03_rb,0.88307e+03_rb,0.11677e+04_rb /)\n      kbo(:, 5,39,14) = (/ &\n        & 0.11120e+04_rb,0.79275e+03_rb,0.59645e+03_rb,0.88083e+03_rb,0.11652e+04_rb /)\n      kbo(:, 1,40,14) = (/ &\n        & 0.10416e+04_rb,0.79660e+03_rb,0.59890e+03_rb,0.88879e+03_rb,0.11758e+04_rb /)\n      kbo(:, 2,40,14) = (/ &\n        & 0.10391e+04_rb,0.79051e+03_rb,0.60100e+03_rb,0.88756e+03_rb,0.11741e+04_rb /)\n      kbo(:, 3,40,14) = (/ &\n        & 0.10420e+04_rb,0.78155e+03_rb,0.59983e+03_rb,0.88583e+03_rb,0.11718e+04_rb /)\n      kbo(:, 4,40,14) = (/ &\n        & 0.10496e+04_rb,0.79527e+03_rb,0.59833e+03_rb,0.88434e+03_rb,0.11689e+04_rb /)\n      kbo(:, 5,40,14) = (/ &\n        & 0.10264e+04_rb,0.78919e+03_rb,0.59684e+03_rb,0.88140e+03_rb,0.11660e+04_rb /)\n      kbo(:, 1,41,14) = (/ &\n        & 0.10689e+04_rb,0.80516e+03_rb,0.60103e+03_rb,0.88904e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,41,14) = (/ &\n        & 0.10416e+04_rb,0.82239e+03_rb,0.60124e+03_rb,0.88792e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,41,14) = (/ &\n        & 0.10563e+04_rb,0.81535e+03_rb,0.60016e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 4,41,14) = (/ &\n        & 0.10676e+04_rb,0.82044e+03_rb,0.59873e+03_rb,0.88421e+03_rb,0.11697e+04_rb /)\n      kbo(:, 5,41,14) = (/ &\n        & 0.10596e+04_rb,0.78372e+03_rb,0.59724e+03_rb,0.88164e+03_rb,0.11672e+04_rb /)\n      kbo(:, 1,42,14) = (/ &\n        & 0.10655e+04_rb,0.80320e+03_rb,0.60196e+03_rb,0.88927e+03_rb,0.11764e+04_rb /)\n      kbo(:, 2,42,14) = (/ &\n        & 0.10714e+04_rb,0.78435e+03_rb,0.60147e+03_rb,0.88825e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,42,14) = (/ &\n        & 0.10516e+04_rb,0.79392e+03_rb,0.60071e+03_rb,0.88678e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,42,14) = (/ &\n        & 0.10516e+04_rb,0.77763e+03_rb,0.59913e+03_rb,0.88479e+03_rb,0.11700e+04_rb /)\n      kbo(:, 5,42,14) = (/ &\n        & 0.10486e+04_rb,0.79390e+03_rb,0.59811e+03_rb,0.88255e+03_rb,0.11641e+04_rb /)\n      kbo(:, 1,43,14) = (/ &\n        & 0.10979e+04_rb,0.83796e+03_rb,0.60248e+03_rb,0.88955e+03_rb,0.11768e+04_rb /)\n      kbo(:, 2,43,14) = (/ &\n        & 0.11147e+04_rb,0.76548e+03_rb,0.60171e+03_rb,0.88861e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,43,14) = (/ &\n        & 0.10326e+04_rb,0.79357e+03_rb,0.60081e+03_rb,0.88729e+03_rb,0.11738e+04_rb /)\n      kbo(:, 4,43,14) = (/ &\n        & 0.10439e+04_rb,0.86155e+03_rb,0.59958e+03_rb,0.88546e+03_rb,0.11709e+04_rb /)\n      kbo(:, 5,43,14) = (/ &\n        & 0.10945e+04_rb,0.81749e+03_rb,0.59781e+03_rb,0.88321e+03_rb,0.11679e+04_rb /)\n      kbo(:, 1,44,14) = (/ &\n        & 0.10684e+04_rb,0.83027e+03_rb,0.60306e+03_rb,0.88988e+03_rb,0.11772e+04_rb /)\n      kbo(:, 2,44,14) = (/ &\n        & 0.10549e+04_rb,0.78589e+03_rb,0.60194e+03_rb,0.88895e+03_rb,0.11755e+04_rb /)\n      kbo(:, 3,44,14) = (/ &\n        & 0.10654e+04_rb,0.79705e+03_rb,0.60140e+03_rb,0.88779e+03_rb,0.11744e+04_rb /)\n      kbo(:, 4,44,14) = (/ &\n        & 0.10595e+04_rb,0.79130e+03_rb,0.59979e+03_rb,0.88614e+03_rb,0.11722e+04_rb /)\n      kbo(:, 5,44,14) = (/ &\n        & 0.10477e+04_rb,0.80597e+03_rb,0.59858e+03_rb,0.88363e+03_rb,0.11704e+04_rb /)\n      kbo(:, 1,45,14) = (/ &\n        & 0.10873e+04_rb,0.79417e+03_rb,0.60313e+03_rb,0.89023e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,45,14) = (/ &\n        & 0.10616e+04_rb,0.78299e+03_rb,0.60195e+03_rb,0.88889e+03_rb,0.11764e+04_rb /)\n      kbo(:, 3,45,14) = (/ &\n        & 0.10452e+04_rb,0.80979e+03_rb,0.60145e+03_rb,0.88823e+03_rb,0.11745e+04_rb /)\n      kbo(:, 4,45,14) = (/ &\n        & 0.10957e+04_rb,0.80372e+03_rb,0.60045e+03_rb,0.88675e+03_rb,0.11726e+04_rb /)\n      kbo(:, 5,45,14) = (/ &\n        & 0.10725e+04_rb,0.79223e+03_rb,0.59886e+03_rb,0.88476e+03_rb,0.11704e+04_rb /)\n      kbo(:, 1,46,14) = (/ &\n        & 0.10477e+04_rb,0.79958e+03_rb,0.60344e+03_rb,0.89054e+03_rb,0.11781e+04_rb /)\n      kbo(:, 2,46,14) = (/ &\n        & 0.10873e+04_rb,0.80021e+03_rb,0.60251e+03_rb,0.88958e+03_rb,0.11768e+04_rb /)\n      kbo(:, 3,46,14) = (/ &\n        & 0.10228e+04_rb,0.78903e+03_rb,0.60173e+03_rb,0.88864e+03_rb,0.11751e+04_rb /)\n      kbo(:, 4,46,14) = (/ &\n        & 0.10295e+04_rb,0.83052e+03_rb,0.60085e+03_rb,0.88734e+03_rb,0.11738e+04_rb /)\n      kbo(:, 5,46,14) = (/ &\n        & 0.10527e+04_rb,0.80434e+03_rb,0.59963e+03_rb,0.88553e+03_rb,0.11714e+04_rb /)\n      kbo(:, 1,47,14) = (/ &\n        & 0.10317e+04_rb,0.78934e+03_rb,0.60373e+03_rb,0.89119e+03_rb,0.11785e+04_rb /)\n      kbo(:, 2,47,14) = (/ &\n        & 0.10325e+04_rb,0.79125e+03_rb,0.60291e+03_rb,0.88999e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,47,14) = (/ &\n        & 0.10417e+04_rb,0.79891e+03_rb,0.60152e+03_rb,0.88904e+03_rb,0.11761e+04_rb /)\n      kbo(:, 4,47,14) = (/ &\n        & 0.10561e+04_rb,0.78901e+03_rb,0.60124e+03_rb,0.88793e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,47,14) = (/ &\n        & 0.10468e+04_rb,0.79347e+03_rb,0.59991e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 1,48,14) = (/ &\n        & 0.10540e+04_rb,0.78901e+03_rb,0.60401e+03_rb,0.89113e+03_rb,0.11789e+04_rb /)\n      kbo(:, 2,48,14) = (/ &\n        & 0.10320e+04_rb,0.80975e+03_rb,0.60327e+03_rb,0.89037e+03_rb,0.11779e+04_rb /)\n      kbo(:, 3,48,14) = (/ &\n        & 0.10535e+04_rb,0.79283e+03_rb,0.60233e+03_rb,0.88940e+03_rb,0.11766e+04_rb /)\n      kbo(:, 4,48,14) = (/ &\n        & 0.10485e+04_rb,0.81102e+03_rb,0.60158e+03_rb,0.88807e+03_rb,0.11753e+04_rb /)\n      kbo(:, 5,48,14) = (/ &\n        & 0.10337e+04_rb,0.82793e+03_rb,0.60064e+03_rb,0.88703e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,49,14) = (/ &\n        & 0.10304e+04_rb,0.83177e+03_rb,0.60454e+03_rb,0.89164e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,49,14) = (/ &\n        & 0.10417e+04_rb,0.78580e+03_rb,0.60359e+03_rb,0.89069e+03_rb,0.11783e+04_rb /)\n      kbo(:, 3,49,14) = (/ &\n        & 0.10725e+04_rb,0.82186e+03_rb,0.60271e+03_rb,0.88942e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,49,14) = (/ &\n        & 0.10362e+04_rb,0.80207e+03_rb,0.60065e+03_rb,0.88885e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,49,14) = (/ &\n        & 0.10383e+04_rb,0.79856e+03_rb,0.60081e+03_rb,0.88765e+03_rb,0.11743e+04_rb /)\n      kbo(:, 1,50,14) = (/ &\n        & 0.10581e+04_rb,0.78356e+03_rb,0.60457e+03_rb,0.89226e+03_rb,0.11805e+04_rb /)\n      kbo(:, 2,50,14) = (/ &\n        & 0.10447e+04_rb,0.80207e+03_rb,0.60385e+03_rb,0.89058e+03_rb,0.11786e+04_rb /)\n      kbo(:, 3,50,14) = (/ &\n        & 0.10788e+04_rb,0.82154e+03_rb,0.60308e+03_rb,0.89017e+03_rb,0.11776e+04_rb /)\n      kbo(:, 4,50,14) = (/ &\n        & 0.10695e+04_rb,0.79696e+03_rb,0.60214e+03_rb,0.88920e+03_rb,0.11763e+04_rb /)\n      kbo(:, 5,50,14) = (/ &\n        & 0.10859e+04_rb,0.79983e+03_rb,0.60140e+03_rb,0.88816e+03_rb,0.11749e+04_rb /)\n      kbo(:, 1,51,14) = (/ &\n        & 0.10459e+04_rb,0.79632e+03_rb,0.60498e+03_rb,0.89284e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,51,14) = (/ &\n        & 0.10371e+04_rb,0.78419e+03_rb,0.60411e+03_rb,0.89166e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,51,14) = (/ &\n        & 0.10657e+04_rb,0.82185e+03_rb,0.60315e+03_rb,0.89049e+03_rb,0.11780e+04_rb /)\n      kbo(:, 4,51,14) = (/ &\n        & 0.10396e+04_rb,0.78418e+03_rb,0.60197e+03_rb,0.88917e+03_rb,0.11768e+04_rb /)\n      kbo(:, 5,51,14) = (/ &\n        & 0.10354e+04_rb,0.78290e+03_rb,0.60169e+03_rb,0.88859e+03_rb,0.11755e+04_rb /)\n      kbo(:, 1,52,14) = (/ &\n        & 0.10434e+04_rb,0.78546e+03_rb,0.60574e+03_rb,0.89370e+03_rb,0.11824e+04_rb /)\n      kbo(:, 2,52,14) = (/ &\n        & 0.10665e+04_rb,0.78610e+03_rb,0.60413e+03_rb,0.89180e+03_rb,0.11798e+04_rb /)\n      kbo(:, 3,52,14) = (/ &\n        & 0.10821e+04_rb,0.78641e+03_rb,0.60367e+03_rb,0.89113e+03_rb,0.11784e+04_rb /)\n      kbo(:, 4,52,14) = (/ &\n        & 0.10514e+04_rb,0.79279e+03_rb,0.60282e+03_rb,0.88989e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,52,14) = (/ &\n        & 0.10408e+04_rb,0.77939e+03_rb,0.60170e+03_rb,0.88895e+03_rb,0.11760e+04_rb /)\n      kbo(:, 1,53,14) = (/ &\n        & 0.10497e+04_rb,0.80875e+03_rb,0.60601e+03_rb,0.89382e+03_rb,0.11825e+04_rb /)\n      kbo(:, 2,53,14) = (/ &\n        & 0.10514e+04_rb,0.81226e+03_rb,0.60441e+03_rb,0.89243e+03_rb,0.11807e+04_rb /)\n      kbo(:, 3,53,14) = (/ &\n        & 0.11137e+04_rb,0.80237e+03_rb,0.60392e+03_rb,0.89101e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,53,14) = (/ &\n        & 0.10661e+04_rb,0.79885e+03_rb,0.60292e+03_rb,0.89026e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,53,14) = (/ &\n        & 0.10324e+04_rb,0.82343e+03_rb,0.60222e+03_rb,0.88929e+03_rb,0.11764e+04_rb /)\n      kbo(:, 1,54,14) = (/ &\n        & 0.10594e+04_rb,0.86492e+03_rb,0.60646e+03_rb,0.89428e+03_rb,0.11831e+04_rb /)\n      kbo(:, 2,54,14) = (/ &\n        & 0.10303e+04_rb,0.85949e+03_rb,0.60506e+03_rb,0.89294e+03_rb,0.11813e+04_rb /)\n      kbo(:, 3,54,14) = (/ &\n        & 0.10905e+04_rb,0.84800e+03_rb,0.60416e+03_rb,0.89138e+03_rb,0.11793e+04_rb /)\n      kbo(:, 4,54,14) = (/ &\n        & 0.10438e+04_rb,0.78736e+03_rb,0.60344e+03_rb,0.89055e+03_rb,0.11781e+04_rb /)\n      kbo(:, 5,54,14) = (/ &\n        & 0.10324e+04_rb,0.83619e+03_rb,0.60252e+03_rb,0.88959e+03_rb,0.11768e+04_rb /)\n      kbo(:, 1,55,14) = (/ &\n        & 0.10463e+04_rb,0.78385e+03_rb,0.60663e+03_rb,0.89475e+03_rb,0.11838e+04_rb /)\n      kbo(:, 2,55,14) = (/ &\n        & 0.10543e+04_rb,0.79119e+03_rb,0.60552e+03_rb,0.89337e+03_rb,0.11824e+04_rb /)\n      kbo(:, 3,55,14) = (/ &\n        & 0.10391e+04_rb,0.80395e+03_rb,0.60439e+03_rb,0.89183e+03_rb,0.11799e+04_rb /)\n      kbo(:, 4,55,14) = (/ &\n        & 0.10421e+04_rb,0.79916e+03_rb,0.60368e+03_rb,0.89078e+03_rb,0.11784e+04_rb /)\n      kbo(:, 5,55,14) = (/ &\n        & 0.10909e+04_rb,0.78448e+03_rb,0.60284e+03_rb,0.88955e+03_rb,0.11777e+04_rb /)\n      kbo(:, 1,56,14) = (/ &\n        & 0.10143e+04_rb,0.81481e+03_rb,0.60727e+03_rb,0.89531e+03_rb,0.11848e+04_rb /)\n      kbo(:, 2,56,14) = (/ &\n        & 0.10240e+04_rb,0.81034e+03_rb,0.60598e+03_rb,0.89378e+03_rb,0.11825e+04_rb /)\n      kbo(:, 3,56,14) = (/ &\n        & 0.10324e+04_rb,0.78927e+03_rb,0.60463e+03_rb,0.89238e+03_rb,0.11806e+04_rb /)\n      kbo(:, 4,56,14) = (/ &\n        & 0.10273e+04_rb,0.78959e+03_rb,0.60390e+03_rb,0.89099e+03_rb,0.11787e+04_rb /)\n      kbo(:, 5,56,14) = (/ &\n        & 0.10404e+04_rb,0.80937e+03_rb,0.60290e+03_rb,0.89024e+03_rb,0.11777e+04_rb /)\n      kbo(:, 1,57,14) = (/ &\n        & 0.10408e+04_rb,0.79150e+03_rb,0.60742e+03_rb,0.89593e+03_rb,0.11860e+04_rb /)\n      kbo(:, 2,57,14) = (/ &\n        & 0.10640e+04_rb,0.82150e+03_rb,0.60641e+03_rb,0.89422e+03_rb,0.11831e+04_rb /)\n      kbo(:, 3,57,14) = (/ &\n        & 0.10551e+04_rb,0.79661e+03_rb,0.60501e+03_rb,0.89288e+03_rb,0.11813e+04_rb /)\n      kbo(:, 4,57,14) = (/ &\n        & 0.10817e+04_rb,0.79118e+03_rb,0.60413e+03_rb,0.89133e+03_rb,0.11792e+04_rb /)\n      kbo(:, 5,57,14) = (/ &\n        & 0.10370e+04_rb,0.79629e+03_rb,0.60341e+03_rb,0.89015e+03_rb,0.11781e+04_rb /)\n      kbo(:, 1,58,14) = (/ &\n        & 0.10442e+04_rb,0.84033e+03_rb,0.60809e+03_rb,0.89672e+03_rb,0.11869e+04_rb /)\n      kbo(:, 2,58,14) = (/ &\n        & 0.10934e+04_rb,0.79820e+03_rb,0.60680e+03_rb,0.89466e+03_rb,0.11837e+04_rb /)\n      kbo(:, 3,58,14) = (/ &\n        & 0.10657e+04_rb,0.80043e+03_rb,0.60544e+03_rb,0.89329e+03_rb,0.11818e+04_rb /)\n      kbo(:, 4,58,14) = (/ &\n        & 0.10223e+04_rb,0.78480e+03_rb,0.60435e+03_rb,0.89175e+03_rb,0.11798e+04_rb /)\n      kbo(:, 5,58,14) = (/ &\n        & 0.10438e+04_rb,0.81735e+03_rb,0.60364e+03_rb,0.89074e+03_rb,0.11789e+04_rb /)\n      kbo(:, 1,59,14) = (/ &\n        & 0.10513e+04_rb,0.80331e+03_rb,0.60826e+03_rb,0.89709e+03_rb,0.11883e+04_rb /)\n      kbo(:, 2,59,14) = (/ &\n        & 0.10429e+04_rb,0.81799e+03_rb,0.60696e+03_rb,0.89486e+03_rb,0.11840e+04_rb /)\n      kbo(:, 3,59,14) = (/ &\n        & 0.10400e+04_rb,0.80905e+03_rb,0.60537e+03_rb,0.89345e+03_rb,0.11830e+04_rb /)\n      kbo(:, 4,59,14) = (/ &\n        & 0.10488e+04_rb,0.79628e+03_rb,0.60443e+03_rb,0.89194e+03_rb,0.11800e+04_rb /)\n      kbo(:, 5,59,14) = (/ &\n        & 0.10795e+04_rb,0.78415e+03_rb,0.60372e+03_rb,0.89082e+03_rb,0.11785e+04_rb /)\n      kbo(:, 1,13,15) = (/ &\n        & 0.98934e+03_rb,0.75572e+03_rb,0.60810e+03_rb,0.89364e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,13,15) = (/ &\n        & 0.12809e+04_rb,0.72091e+03_rb,0.60670e+03_rb,0.89251e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,13,15) = (/ &\n        & 0.11704e+04_rb,0.77844e+03_rb,0.60529e+03_rb,0.89171e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,13,15) = (/ &\n        & 0.11159e+04_rb,0.83495e+03_rb,0.60430e+03_rb,0.89110e+03_rb,0.11779e+04_rb /)\n      kbo(:, 5,13,15) = (/ &\n        & 0.11939e+04_rb,0.93553e+03_rb,0.60355e+03_rb,0.89003e+03_rb,0.11765e+04_rb /)\n      kbo(:, 1,14,15) = (/ &\n        & 0.11963e+04_rb,0.95315e+03_rb,0.60753e+03_rb,0.89338e+03_rb,0.11810e+04_rb /)\n      kbo(:, 2,14,15) = (/ &\n        & 0.11729e+04_rb,0.92141e+03_rb,0.60616e+03_rb,0.89229e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,14,15) = (/ &\n        & 0.11471e+04_rb,0.85602e+03_rb,0.60478e+03_rb,0.89154e+03_rb,0.11786e+04_rb /)\n      kbo(:, 4,14,15) = (/ &\n        & 0.11824e+04_rb,0.88196e+03_rb,0.60401e+03_rb,0.89091e+03_rb,0.11778e+04_rb /)\n      kbo(:, 5,14,15) = (/ &\n        & 0.11271e+04_rb,0.87462e+03_rb,0.60324e+03_rb,0.89075e+03_rb,0.11763e+04_rb /)\n      kbo(:, 1,15,15) = (/ &\n        & 0.10604e+04_rb,0.90519e+03_rb,0.60703e+03_rb,0.89409e+03_rb,0.11809e+04_rb /)\n      kbo(:, 2,15,15) = (/ &\n        & 0.11577e+04_rb,0.75557e+03_rb,0.60568e+03_rb,0.89209e+03_rb,0.11795e+04_rb /)\n      kbo(:, 3,15,15) = (/ &\n        & 0.11406e+04_rb,0.81803e+03_rb,0.60438e+03_rb,0.89138e+03_rb,0.11785e+04_rb /)\n      kbo(:, 4,15,15) = (/ &\n        & 0.11847e+04_rb,0.71960e+03_rb,0.60376e+03_rb,0.89073e+03_rb,0.11790e+04_rb /)\n      kbo(:, 5,15,15) = (/ &\n        & 0.11179e+04_rb,0.81112e+03_rb,0.60296e+03_rb,0.88859e+03_rb,0.11787e+04_rb /)\n      kbo(:, 1,16,15) = (/ &\n        & 0.10356e+04_rb,0.71983e+03_rb,0.60659e+03_rb,0.89194e+03_rb,0.11820e+04_rb /)\n      kbo(:, 2,16,15) = (/ &\n        & 0.11364e+04_rb,0.76870e+03_rb,0.60526e+03_rb,0.89190e+03_rb,0.11794e+04_rb /)\n      kbo(:, 3,16,15) = (/ &\n        & 0.96034e+03_rb,0.83277e+03_rb,0.60407e+03_rb,0.89124e+03_rb,0.11785e+04_rb /)\n      kbo(:, 4,16,15) = (/ &\n        & 0.10077e+04_rb,0.87988e+03_rb,0.60354e+03_rb,0.89055e+03_rb,0.11776e+04_rb /)\n      kbo(:, 5,16,15) = (/ &\n        & 0.10422e+04_rb,0.83397e+03_rb,0.60335e+03_rb,0.88931e+03_rb,0.11759e+04_rb /)\n      kbo(:, 1,17,15) = (/ &\n        & 0.10091e+04_rb,0.77782e+03_rb,0.60621e+03_rb,0.89269e+03_rb,0.11805e+04_rb /)\n      kbo(:, 2,17,15) = (/ &\n        & 0.11716e+04_rb,0.80971e+03_rb,0.60425e+03_rb,0.89175e+03_rb,0.11793e+04_rb /)\n      kbo(:, 3,17,15) = (/ &\n        & 0.10550e+04_rb,0.78786e+03_rb,0.60385e+03_rb,0.89112e+03_rb,0.11784e+04_rb /)\n      kbo(:, 4,17,15) = (/ &\n        & 0.99990e+03_rb,0.88096e+03_rb,0.60335e+03_rb,0.89039e+03_rb,0.11774e+04_rb /)\n      kbo(:, 5,17,15) = (/ &\n        & 0.11263e+04_rb,0.73127e+03_rb,0.60311e+03_rb,0.88908e+03_rb,0.11770e+04_rb /)\n      kbo(:, 1,18,15) = (/ &\n        & 0.11151e+04_rb,0.85991e+03_rb,0.60588e+03_rb,0.89155e+03_rb,0.11804e+04_rb /)\n      kbo(:, 2,18,15) = (/ &\n        & 0.10413e+04_rb,0.70815e+03_rb,0.60458e+03_rb,0.89161e+03_rb,0.11791e+04_rb /)\n      kbo(:, 3,18,15) = (/ &\n        & 0.11058e+04_rb,0.82037e+03_rb,0.60370e+03_rb,0.89101e+03_rb,0.11783e+04_rb /)\n      kbo(:, 4,18,15) = (/ &\n        & 0.10134e+04_rb,0.64109e+03_rb,0.60383e+03_rb,0.89024e+03_rb,0.11786e+04_rb /)\n      kbo(:, 5,18,15) = (/ &\n        & 0.11497e+04_rb,0.88170e+03_rb,0.60224e+03_rb,0.88981e+03_rb,0.11767e+04_rb /)\n      kbo(:, 1,19,15) = (/ &\n        & 0.10261e+04_rb,0.82130e+03_rb,0.60625e+03_rb,0.89236e+03_rb,0.11802e+04_rb /)\n      kbo(:, 2,19,15) = (/ &\n        & 0.10077e+04_rb,0.78017e+03_rb,0.60431e+03_rb,0.89148e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,19,15) = (/ &\n        & 0.10505e+04_rb,0.75163e+03_rb,0.60422e+03_rb,0.88995e+03_rb,0.11782e+04_rb /)\n      kbo(:, 4,19,15) = (/ &\n        & 0.10498e+04_rb,0.84163e+03_rb,0.60302e+03_rb,0.89009e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,19,15) = (/ &\n        & 0.94853e+03_rb,0.71012e+03_rb,0.60269e+03_rb,0.88958e+03_rb,0.11765e+04_rb /)\n      kbo(:, 1,20,15) = (/ &\n        & 0.11198e+04_rb,0.83291e+03_rb,0.60532e+03_rb,0.89221e+03_rb,0.11814e+04_rb /)\n      kbo(:, 2,20,15) = (/ &\n        & 0.10146e+04_rb,0.70988e+03_rb,0.60473e+03_rb,0.89136e+03_rb,0.11789e+04_rb /)\n      kbo(:, 3,20,15) = (/ &\n        & 0.98440e+03_rb,0.83872e+03_rb,0.60345e+03_rb,0.89080e+03_rb,0.11781e+04_rb /)\n      kbo(:, 4,20,15) = (/ &\n        & 0.10595e+04_rb,0.75621e+03_rb,0.60286e+03_rb,0.88992e+03_rb,0.11770e+04_rb /)\n      kbo(:, 5,20,15) = (/ &\n        & 0.10274e+04_rb,0.81836e+03_rb,0.60247e+03_rb,0.88836e+03_rb,0.11749e+04_rb /)\n      kbo(:, 1,21,15) = (/ &\n        & 0.10788e+04_rb,0.78645e+03_rb,0.60506e+03_rb,0.89207e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,21,15) = (/ &\n        & 0.10852e+04_rb,0.74295e+03_rb,0.60386e+03_rb,0.89125e+03_rb,0.11788e+04_rb /)\n      kbo(:, 3,21,15) = (/ &\n        & 0.10428e+04_rb,0.82396e+03_rb,0.60333e+03_rb,0.88973e+03_rb,0.11780e+04_rb /)\n      kbo(:, 4,21,15) = (/ &\n        & 0.10018e+04_rb,0.87387e+03_rb,0.60336e+03_rb,0.89071e+03_rb,0.11768e+04_rb /)\n      kbo(:, 5,21,15) = (/ &\n        & 0.11155e+04_rb,0.79293e+03_rb,0.60225e+03_rb,0.88809e+03_rb,0.11746e+04_rb /)\n      kbo(:, 1,22,15) = (/ &\n        & 0.10301e+04_rb,0.79445e+03_rb,0.60539e+03_rb,0.89186e+03_rb,0.11797e+04_rb /)\n      kbo(:, 2,22,15) = (/ &\n        & 0.11174e+04_rb,0.68851e+03_rb,0.60364e+03_rb,0.88919e+03_rb,0.11787e+04_rb /)\n      kbo(:, 3,22,15) = (/ &\n        & 0.10845e+04_rb,0.72821e+03_rb,0.60320e+03_rb,0.89053e+03_rb,0.11779e+04_rb /)\n      kbo(:, 4,22,15) = (/ &\n        & 0.94182e+03_rb,0.74129e+03_rb,0.60185e+03_rb,0.88948e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,22,15) = (/ &\n        & 0.11256e+04_rb,0.74069e+03_rb,0.60323e+03_rb,0.88766e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,23,15) = (/ &\n        & 0.11218e+04_rb,0.85968e+03_rb,0.60443e+03_rb,0.89167e+03_rb,0.11795e+04_rb /)\n      kbo(:, 2,23,15) = (/ &\n        & 0.10449e+04_rb,0.80739e+03_rb,0.60218e+03_rb,0.89100e+03_rb,0.11785e+04_rb /)\n      kbo(:, 3,23,15) = (/ &\n        & 0.11277e+04_rb,0.69098e+03_rb,0.60306e+03_rb,0.89036e+03_rb,0.11777e+04_rb /)\n      kbo(:, 4,23,15) = (/ &\n        & 0.10580e+04_rb,0.81384e+03_rb,0.60228e+03_rb,0.88919e+03_rb,0.11761e+04_rb /)\n      kbo(:, 5,23,15) = (/ &\n        & 0.10279e+04_rb,0.82530e+03_rb,0.60094e+03_rb,0.88718e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,24,15) = (/ &\n        & 0.10227e+04_rb,0.68179e+03_rb,0.60412e+03_rb,0.89149e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,24,15) = (/ &\n        & 0.11518e+04_rb,0.80624e+03_rb,0.60338e+03_rb,0.89088e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,24,15) = (/ &\n        & 0.10788e+04_rb,0.70820e+03_rb,0.60290e+03_rb,0.89016e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,24,15) = (/ &\n        & 0.10466e+04_rb,0.82233e+03_rb,0.60268e+03_rb,0.88884e+03_rb,0.11757e+04_rb /)\n      kbo(:, 5,24,15) = (/ &\n        & 0.10066e+04_rb,0.82618e+03_rb,0.60057e+03_rb,0.88665e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,25,15) = (/ &\n        & 0.10780e+04_rb,0.80937e+03_rb,0.60386e+03_rb,0.89131e+03_rb,0.11790e+04_rb /)\n      kbo(:, 2,25,15) = (/ &\n        & 0.10199e+04_rb,0.81059e+03_rb,0.60327e+03_rb,0.89075e+03_rb,0.11782e+04_rb /)\n      kbo(:, 3,25,15) = (/ &\n        & 0.11207e+04_rb,0.80162e+03_rb,0.60338e+03_rb,0.88992e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,25,15) = (/ &\n        & 0.97495e+03_rb,0.78589e+03_rb,0.60305e+03_rb,0.88845e+03_rb,0.11751e+04_rb /)\n      kbo(:, 5,25,15) = (/ &\n        & 0.95428e+03_rb,0.80945e+03_rb,0.60015e+03_rb,0.88605e+03_rb,0.11720e+04_rb /)\n      kbo(:, 1,26,15) = (/ &\n        & 0.10862e+04_rb,0.78235e+03_rb,0.60361e+03_rb,0.89115e+03_rb,0.11801e+04_rb /)\n      kbo(:, 2,26,15) = (/ &\n        & 0.91581e+03_rb,0.82546e+03_rb,0.60381e+03_rb,0.89059e+03_rb,0.11780e+04_rb /)\n      kbo(:, 3,26,15) = (/ &\n        & 0.10920e+04_rb,0.84813e+03_rb,0.60253e+03_rb,0.88964e+03_rb,0.11767e+04_rb /)\n      kbo(:, 4,26,15) = (/ &\n        & 0.11174e+04_rb,0.83078e+03_rb,0.60207e+03_rb,0.88892e+03_rb,0.11745e+04_rb /)\n      kbo(:, 5,26,15) = (/ &\n        & 0.11159e+04_rb,0.75128e+03_rb,0.59967e+03_rb,0.88536e+03_rb,0.11723e+04_rb /)\n      kbo(:, 1,27,15) = (/ &\n        & 0.10835e+04_rb,0.80424e+03_rb,0.60343e+03_rb,0.89101e+03_rb,0.11786e+04_rb /)\n      kbo(:, 2,27,15) = (/ &\n        & 0.10910e+04_rb,0.86525e+03_rb,0.60302e+03_rb,0.89041e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,27,15) = (/ &\n        & 0.10210e+04_rb,0.77642e+03_rb,0.60231e+03_rb,0.89027e+03_rb,0.11763e+04_rb /)\n      kbo(:, 4,27,15) = (/ &\n        & 0.10645e+04_rb,0.80598e+03_rb,0.60105e+03_rb,0.88742e+03_rb,0.11751e+04_rb /)\n      kbo(:, 5,27,15) = (/ &\n        & 0.10451e+04_rb,0.82023e+03_rb,0.59981e+03_rb,0.88559e+03_rb,0.11701e+04_rb /)\n      kbo(:, 1,28,15) = (/ &\n        & 0.10856e+04_rb,0.83991e+03_rb,0.60332e+03_rb,0.89088e+03_rb,0.11784e+04_rb /)\n      kbo(:, 2,28,15) = (/ &\n        & 0.93268e+03_rb,0.70779e+03_rb,0.60288e+03_rb,0.89019e+03_rb,0.11788e+04_rb /)\n      kbo(:, 3,28,15) = (/ &\n        & 0.11243e+04_rb,0.76544e+03_rb,0.60205e+03_rb,0.88894e+03_rb,0.11758e+04_rb /)\n      kbo(:, 4,28,15) = (/ &\n        & 0.10096e+04_rb,0.72189e+03_rb,0.60064e+03_rb,0.88682e+03_rb,0.11730e+04_rb /)\n      kbo(:, 5,28,15) = (/ &\n        & 0.88490e+03_rb,0.83821e+03_rb,0.59801e+03_rb,0.88198e+03_rb,0.11692e+04_rb /)\n      kbo(:, 1,29,15) = (/ &\n        & 0.10218e+04_rb,0.78897e+03_rb,0.60322e+03_rb,0.88978e+03_rb,0.11783e+04_rb /)\n      kbo(:, 2,29,15) = (/ &\n        & 0.97223e+03_rb,0.70803e+03_rb,0.60270e+03_rb,0.88994e+03_rb,0.11772e+04_rb /)\n      kbo(:, 3,29,15) = (/ &\n        & 0.10729e+04_rb,0.71638e+03_rb,0.60175e+03_rb,0.88850e+03_rb,0.11752e+04_rb /)\n      kbo(:, 4,29,15) = (/ &\n        & 0.10369e+04_rb,0.79357e+03_rb,0.60017e+03_rb,0.88614e+03_rb,0.11734e+04_rb /)\n      kbo(:, 5,29,15) = (/ &\n        & 0.10748e+04_rb,0.83591e+03_rb,0.59814e+03_rb,0.88321e+03_rb,0.11671e+04_rb /)\n      kbo(:, 1,30,15) = (/ &\n        & 0.10681e+04_rb,0.78838e+03_rb,0.60311e+03_rb,0.89058e+03_rb,0.11780e+04_rb /)\n      kbo(:, 2,30,15) = (/ &\n        & 0.10690e+04_rb,0.81372e+03_rb,0.60250e+03_rb,0.88965e+03_rb,0.11768e+04_rb /)\n      kbo(:, 3,30,15) = (/ &\n        & 0.10330e+04_rb,0.79065e+03_rb,0.60271e+03_rb,0.88800e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,30,15) = (/ &\n        & 0.99812e+03_rb,0.80751e+03_rb,0.60032e+03_rb,0.88541e+03_rb,0.11712e+04_rb /)\n      kbo(:, 5,30,15) = (/ &\n        & 0.10394e+04_rb,0.71741e+03_rb,0.59705e+03_rb,0.88643e+03_rb,0.11676e+04_rb /)\n      kbo(:, 1,31,15) = (/ &\n        & 0.10025e+04_rb,0.73187e+03_rb,0.60298e+03_rb,0.89039e+03_rb,0.11778e+04_rb /)\n      kbo(:, 2,31,15) = (/ &\n        & 0.11099e+04_rb,0.74280e+03_rb,0.60227e+03_rb,0.88930e+03_rb,0.11763e+04_rb /)\n      kbo(:, 3,31,15) = (/ &\n        & 0.10884e+04_rb,0.79617e+03_rb,0.60102e+03_rb,0.88838e+03_rb,0.11738e+04_rb /)\n      kbo(:, 4,31,15) = (/ &\n        & 0.90245e+03_rb,0.76637e+03_rb,0.59915e+03_rb,0.88368e+03_rb,0.11701e+04_rb /)\n      kbo(:, 5,31,15) = (/ &\n        & 0.10031e+04_rb,0.78751e+03_rb,0.59673e+03_rb,0.89640e+03_rb,0.11644e+04_rb /)\n      kbo(:, 1,32,15) = (/ &\n        & 0.87663e+03_rb,0.68400e+03_rb,0.60283e+03_rb,0.89016e+03_rb,0.11775e+04_rb /)\n      kbo(:, 2,32,15) = (/ &\n        & 0.10467e+04_rb,0.83071e+03_rb,0.60330e+03_rb,0.88890e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,32,15) = (/ &\n        & 0.97045e+03_rb,0.72881e+03_rb,0.60123e+03_rb,0.88677e+03_rb,0.11730e+04_rb /)\n      kbo(:, 4,32,15) = (/ &\n        & 0.11080e+04_rb,0.69141e+03_rb,0.59860e+03_rb,0.88193e+03_rb,0.11679e+04_rb /)\n      kbo(:, 5,32,15) = (/ &\n        & 0.10206e+04_rb,0.73037e+03_rb,0.59837e+03_rb,0.88358e+03_rb,0.11726e+04_rb /)\n      kbo(:, 1,33,15) = (/ &\n        & 0.10520e+04_rb,0.78807e+03_rb,0.60265e+03_rb,0.89086e+03_rb,0.11771e+04_rb /)\n      kbo(:, 2,33,15) = (/ &\n        & 0.98139e+03_rb,0.81175e+03_rb,0.60169e+03_rb,0.88843e+03_rb,0.11752e+04_rb /)\n      kbo(:, 3,33,15) = (/ &\n        & 0.11223e+04_rb,0.75994e+03_rb,0.60074e+03_rb,0.88510e+03_rb,0.11720e+04_rb /)\n      kbo(:, 4,33,15) = (/ &\n        & 0.10271e+04_rb,0.75564e+03_rb,0.59806e+03_rb,0.88218e+03_rb,0.11708e+04_rb /)\n      kbo(:, 5,33,15) = (/ &\n        & 0.10438e+04_rb,0.78527e+03_rb,0.59677e+03_rb,0.88217e+03_rb,0.11682e+04_rb /)\n      kbo(:, 1,34,15) = (/ &\n        & 0.10293e+04_rb,0.82175e+03_rb,0.60313e+03_rb,0.88963e+03_rb,0.11768e+04_rb /)\n      kbo(:, 2,34,15) = (/ &\n        & 0.11086e+04_rb,0.80472e+03_rb,0.60138e+03_rb,0.88797e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,34,15) = (/ &\n        & 0.10235e+04_rb,0.72497e+03_rb,0.60029e+03_rb,0.88634e+03_rb,0.11724e+04_rb /)\n      kbo(:, 4,34,15) = (/ &\n        & 0.10022e+04_rb,0.79360e+03_rb,0.59703e+03_rb,0.88927e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,34,15) = (/ &\n        & 0.11107e+04_rb,0.84019e+03_rb,0.59650e+03_rb,0.88082e+03_rb,0.11651e+04_rb /)\n      kbo(:, 1,35,15) = (/ &\n        & 0.10782e+04_rb,0.81052e+03_rb,0.60236e+03_rb,0.89138e+03_rb,0.11766e+04_rb /)\n      kbo(:, 2,35,15) = (/ &\n        & 0.89922e+03_rb,0.74859e+03_rb,0.60119e+03_rb,0.88769e+03_rb,0.11729e+04_rb /)\n      kbo(:, 3,35,15) = (/ &\n        & 0.10088e+04_rb,0.71209e+03_rb,0.59938e+03_rb,0.88499e+03_rb,0.11706e+04_rb /)\n      kbo(:, 4,35,15) = (/ &\n        & 0.96175e+03_rb,0.77055e+03_rb,0.60072e+03_rb,0.87852e+03_rb,0.11710e+04_rb /)\n      kbo(:, 5,35,15) = (/ &\n        & 0.10310e+04_rb,0.84426e+03_rb,0.59635e+03_rb,0.88059e+03_rb,0.11648e+04_rb /)\n      kbo(:, 1,36,15) = (/ &\n        & 0.10188e+04_rb,0.85190e+03_rb,0.60234e+03_rb,0.88943e+03_rb,0.11765e+04_rb /)\n      kbo(:, 2,36,15) = (/ &\n        & 0.10154e+04_rb,0.76964e+03_rb,0.60245e+03_rb,0.88859e+03_rb,0.11741e+04_rb /)\n      kbo(:, 3,36,15) = (/ &\n        & 0.10902e+04_rb,0.77130e+03_rb,0.59998e+03_rb,0.88588e+03_rb,0.11705e+04_rb /)\n      kbo(:, 4,36,15) = (/ &\n        & 0.98172e+03_rb,0.79246e+03_rb,0.59876e+03_rb,0.89371e+03_rb,0.11495e+04_rb /)\n      kbo(:, 5,36,15) = (/ &\n        & 0.10409e+04_rb,0.75260e+03_rb,0.59632e+03_rb,0.88055e+03_rb,0.11660e+04_rb /)\n      kbo(:, 1,37,15) = (/ &\n        & 0.10398e+04_rb,0.81024e+03_rb,0.60310e+03_rb,0.88960e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,37,15) = (/ &\n        & 0.94253e+03_rb,0.72207e+03_rb,0.60199e+03_rb,0.88792e+03_rb,0.11745e+04_rb /)\n      kbo(:, 3,37,15) = (/ &\n        & 0.11326e+04_rb,0.78984e+03_rb,0.60024e+03_rb,0.88532e+03_rb,0.11710e+04_rb /)\n      kbo(:, 4,37,15) = (/ &\n        & 0.10789e+04_rb,0.84320e+03_rb,0.59634e+03_rb,0.88350e+03_rb,0.11688e+04_rb /)\n      kbo(:, 5,37,15) = (/ &\n        & 0.10084e+04_rb,0.82623e+03_rb,0.59647e+03_rb,0.88078e+03_rb,0.11651e+04_rb /)\n      kbo(:, 1,38,15) = (/ &\n        & 0.99835e+03_rb,0.77031e+03_rb,0.60321e+03_rb,0.88977e+03_rb,0.11782e+04_rb /)\n      kbo(:, 2,38,15) = (/ &\n        & 0.11135e+04_rb,0.73046e+03_rb,0.60283e+03_rb,0.88917e+03_rb,0.11749e+04_rb /)\n      kbo(:, 3,38,15) = (/ &\n        & 0.10419e+04_rb,0.72620e+03_rb,0.59987e+03_rb,0.88669e+03_rb,0.11716e+04_rb /)\n      kbo(:, 4,38,15) = (/ &\n        & 0.10631e+04_rb,0.75245e+03_rb,0.59721e+03_rb,0.88572e+03_rb,0.11692e+04_rb /)\n      kbo(:, 5,38,15) = (/ &\n        & 0.10228e+04_rb,0.73209e+03_rb,0.59792e+03_rb,0.88102e+03_rb,0.11654e+04_rb /)\n      kbo(:, 1,39,15) = (/ &\n        & 0.10910e+04_rb,0.86853e+03_rb,0.60266e+03_rb,0.88992e+03_rb,0.11772e+04_rb /)\n      kbo(:, 2,39,15) = (/ &\n        & 0.10519e+04_rb,0.73802e+03_rb,0.60236e+03_rb,0.88944e+03_rb,0.11753e+04_rb /)\n      kbo(:, 3,39,15) = (/ &\n        & 0.90206e+03_rb,0.82442e+03_rb,0.60079e+03_rb,0.88708e+03_rb,0.11721e+04_rb /)\n      kbo(:, 4,39,15) = (/ &\n        & 0.10954e+04_rb,0.83033e+03_rb,0.59811e+03_rb,0.88319e+03_rb,0.11696e+04_rb /)\n      kbo(:, 5,39,15) = (/ &\n        & 0.92773e+03_rb,0.79134e+03_rb,0.59808e+03_rb,0.88316e+03_rb,0.11657e+04_rb /)\n      kbo(:, 1,40,15) = (/ &\n        & 0.10887e+04_rb,0.78119e+03_rb,0.60281e+03_rb,0.89016e+03_rb,0.11775e+04_rb /)\n      kbo(:, 2,40,15) = (/ &\n        & 0.10361e+04_rb,0.78964e+03_rb,0.60199e+03_rb,0.88890e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,40,15) = (/ &\n        & 0.10674e+04_rb,0.81250e+03_rb,0.60058e+03_rb,0.88678e+03_rb,0.11730e+04_rb /)\n      kbo(:, 4,40,15) = (/ &\n        & 0.11076e+04_rb,0.76250e+03_rb,0.59989e+03_rb,0.88480e+03_rb,0.11679e+04_rb /)\n      kbo(:, 5,40,15) = (/ &\n        & 0.11154e+04_rb,0.83280e+03_rb,0.59900e+03_rb,0.88168e+03_rb,0.11814e+04_rb /)\n      kbo(:, 1,41,15) = (/ &\n        & 0.10350e+04_rb,0.79893e+03_rb,0.60296e+03_rb,0.89038e+03_rb,0.11778e+04_rb /)\n      kbo(:, 2,41,15) = (/ &\n        & 0.10104e+04_rb,0.69640e+03_rb,0.60225e+03_rb,0.88929e+03_rb,0.11763e+04_rb /)\n      kbo(:, 3,41,15) = (/ &\n        & 0.10193e+04_rb,0.78110e+03_rb,0.60100e+03_rb,0.88741e+03_rb,0.11751e+04_rb /)\n      kbo(:, 4,41,15) = (/ &\n        & 0.10785e+04_rb,0.73450e+03_rb,0.59977e+03_rb,0.88368e+03_rb,0.11701e+04_rb /)\n      kbo(:, 5,41,15) = (/ &\n        & 0.96003e+03_rb,0.80480e+03_rb,0.59865e+03_rb,0.90400e+03_rb,0.11833e+04_rb /)\n      kbo(:, 1,42,15) = (/ &\n        & 0.97569e+03_rb,0.77685e+03_rb,0.60307e+03_rb,0.89056e+03_rb,0.11793e+04_rb /)\n      kbo(:, 2,42,15) = (/ &\n        & 0.98796e+03_rb,0.83953e+03_rb,0.60247e+03_rb,0.88963e+03_rb,0.11768e+04_rb /)\n      kbo(:, 3,42,15) = (/ &\n        & 0.10852e+04_rb,0.82427e+03_rb,0.60332e+03_rb,0.88798e+03_rb,0.11746e+04_rb /)\n      kbo(:, 4,42,15) = (/ &\n        & 0.10360e+04_rb,0.83188e+03_rb,0.59965e+03_rb,0.88636e+03_rb,0.11712e+04_rb /)\n      kbo(:, 5,42,15) = (/ &\n        & 0.10125e+04_rb,0.74885e+03_rb,0.59702e+03_rb,0.88356e+03_rb,0.11676e+04_rb /)\n      kbo(:, 1,43,15) = (/ &\n        & 0.91082e+03_rb,0.72514e+03_rb,0.60320e+03_rb,0.89075e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,43,15) = (/ &\n        & 0.82029e+03_rb,0.80137e+03_rb,0.60335e+03_rb,0.88998e+03_rb,0.11773e+04_rb /)\n      kbo(:, 3,43,15) = (/ &\n        & 0.11298e+04_rb,0.78950e+03_rb,0.60243e+03_rb,0.88859e+03_rb,0.11754e+04_rb /)\n      kbo(:, 4,43,15) = (/ &\n        & 0.10717e+04_rb,0.65904e+03_rb,0.60090e+03_rb,0.88726e+03_rb,0.11724e+04_rb /)\n      kbo(:, 5,43,15) = (/ &\n        & 0.89290e+03_rb,0.78779e+03_rb,0.59823e+03_rb,0.88240e+03_rb,0.11774e+04_rb /)\n      kbo(:, 1,44,15) = (/ &\n        & 0.10292e+04_rb,0.72935e+03_rb,0.60266e+03_rb,0.89093e+03_rb,0.11785e+04_rb /)\n      kbo(:, 2,44,15) = (/ &\n        & 0.10616e+04_rb,0.76323e+03_rb,0.60355e+03_rb,0.89030e+03_rb,0.11790e+04_rb /)\n      kbo(:, 3,44,15) = (/ &\n        & 0.10058e+04_rb,0.82082e+03_rb,0.60215e+03_rb,0.88915e+03_rb,0.11762e+04_rb /)\n      kbo(:, 4,44,15) = (/ &\n        & 0.96216e+03_rb,0.76914e+03_rb,0.60084e+03_rb,0.88814e+03_rb,0.11735e+04_rb /)\n      kbo(:, 5,44,15) = (/ &\n        & 0.10069e+04_rb,0.76998e+03_rb,0.59893e+03_rb,0.88624e+03_rb,0.11672e+04_rb /)\n      kbo(:, 1,45,15) = (/ &\n        & 0.92082e+03_rb,0.79879e+03_rb,0.60350e+03_rb,0.89110e+03_rb,0.11788e+04_rb /)\n      kbo(:, 2,45,15) = (/ &\n        & 0.96551e+03_rb,0.79963e+03_rb,0.60307e+03_rb,0.89055e+03_rb,0.11780e+04_rb /)\n      kbo(:, 3,45,15) = (/ &\n        & 0.10337e+04_rb,0.76320e+03_rb,0.60246e+03_rb,0.88962e+03_rb,0.11768e+04_rb /)\n      kbo(:, 4,45,15) = (/ &\n        & 0.97219e+03_rb,0.72677e+03_rb,0.60201e+03_rb,0.88795e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,45,15) = (/ &\n        & 0.10146e+04_rb,0.80892e+03_rb,0.59962e+03_rb,0.88632e+03_rb,0.11711e+04_rb /)\n      kbo(:, 1,46,15) = (/ &\n        & 0.10772e+04_rb,0.81655e+03_rb,0.60383e+03_rb,0.89135e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,46,15) = (/ &\n        & 0.98671e+03_rb,0.73523e+03_rb,0.60321e+03_rb,0.89077e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,46,15) = (/ &\n        & 0.10348e+04_rb,0.84026e+03_rb,0.60272e+03_rb,0.89002e+03_rb,0.11773e+04_rb /)\n      kbo(:, 4,46,15) = (/ &\n        & 0.11018e+04_rb,0.66661e+03_rb,0.60312e+03_rb,0.88865e+03_rb,0.11755e+04_rb /)\n      kbo(:, 5,46,15) = (/ &\n        & 0.10012e+04_rb,0.71404e+03_rb,0.60161e+03_rb,0.88639e+03_rb,0.11725e+04_rb /)\n      kbo(:, 1,47,15) = (/ &\n        & 0.10560e+04_rb,0.78520e+03_rb,0.60429e+03_rb,0.89072e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,47,15) = (/ &\n        & 0.10627e+04_rb,0.82754e+03_rb,0.60335e+03_rb,0.89097e+03_rb,0.11773e+04_rb /)\n      kbo(:, 3,47,15) = (/ &\n        & 0.10705e+04_rb,0.76570e+03_rb,0.60295e+03_rb,0.89038e+03_rb,0.11791e+04_rb /)\n      kbo(:, 4,47,15) = (/ &\n        & 0.11051e+04_rb,0.83346e+03_rb,0.60225e+03_rb,0.89026e+03_rb,0.11789e+04_rb /)\n      kbo(:, 5,47,15) = (/ &\n        & 0.10627e+04_rb,0.79957e+03_rb,0.60100e+03_rb,0.88742e+03_rb,0.11738e+04_rb /)\n      kbo(:, 1,48,15) = (/ &\n        & 0.10526e+04_rb,0.83431e+03_rb,0.60478e+03_rb,0.89205e+03_rb,0.11801e+04_rb /)\n      kbo(:, 2,48,15) = (/ &\n        & 0.11375e+04_rb,0.74537e+03_rb,0.60363e+03_rb,0.89121e+03_rb,0.11790e+04_rb /)\n      kbo(:, 3,48,15) = (/ &\n        & 0.10571e+04_rb,0.77077e+03_rb,0.60313e+03_rb,0.89066e+03_rb,0.11782e+04_rb /)\n      kbo(:, 4,48,15) = (/ &\n        & 0.10694e+04_rb,0.73604e+03_rb,0.60258e+03_rb,0.88981e+03_rb,0.11770e+04_rb /)\n      kbo(:, 5,48,15) = (/ &\n        & 0.11062e+04_rb,0.66828e+03_rb,0.60158e+03_rb,0.88925e+03_rb,0.11750e+04_rb /)\n      kbo(:, 1,49,15) = (/ &\n        & 0.10727e+04_rb,0.73859e+03_rb,0.60462e+03_rb,0.89249e+03_rb,0.11807e+04_rb /)\n      kbo(:, 2,49,15) = (/ &\n        & 0.11006e+04_rb,0.84446e+03_rb,0.60404e+03_rb,0.89152e+03_rb,0.11794e+04_rb /)\n      kbo(:, 3,49,15) = (/ &\n        & 0.96096e+03_rb,0.73858e+03_rb,0.60393e+03_rb,0.89088e+03_rb,0.11785e+04_rb /)\n      kbo(:, 4,49,15) = (/ &\n        & 0.11140e+04_rb,0.80464e+03_rb,0.60285e+03_rb,0.89021e+03_rb,0.11776e+04_rb /)\n      kbo(:, 5,49,15) = (/ &\n        & 0.10928e+04_rb,0.75297e+03_rb,0.60205e+03_rb,0.88996e+03_rb,0.11760e+04_rb /)\n      kbo(:, 1,50,15) = (/ &\n        & 0.10626e+04_rb,0.84953e+03_rb,0.60572e+03_rb,0.89295e+03_rb,0.11814e+04_rb /)\n      kbo(:, 2,50,15) = (/ &\n        & 0.11017e+04_rb,0.71824e+03_rb,0.60451e+03_rb,0.89185e+03_rb,0.11811e+04_rb /)\n      kbo(:, 3,50,15) = (/ &\n        & 0.10336e+04_rb,0.71570e+03_rb,0.60345e+03_rb,0.89107e+03_rb,0.11800e+04_rb /)\n      kbo(:, 4,50,15) = (/ &\n        & 0.95200e+03_rb,0.76482e+03_rb,0.60304e+03_rb,0.89051e+03_rb,0.11793e+04_rb /)\n      kbo(:, 5,50,15) = (/ &\n        & 0.96988e+03_rb,0.83512e+03_rb,0.60306e+03_rb,0.88954e+03_rb,0.11767e+04_rb /)\n      kbo(:, 1,51,15) = (/ &\n        & 0.11017e+04_rb,0.77329e+03_rb,0.60615e+03_rb,0.89371e+03_rb,0.11825e+04_rb /)\n      kbo(:, 2,51,15) = (/ &\n        & 0.10950e+04_rb,0.81479e+03_rb,0.60496e+03_rb,0.89123e+03_rb,0.11790e+04_rb /)\n      kbo(:, 3,51,15) = (/ &\n        & 0.99893e+03_rb,0.69452e+03_rb,0.60377e+03_rb,0.89131e+03_rb,0.11791e+04_rb /)\n      kbo(:, 4,51,15) = (/ &\n        & 0.10704e+04_rb,0.82834e+03_rb,0.60319e+03_rb,0.89074e+03_rb,0.11783e+04_rb /)\n      kbo(:, 5,51,15) = (/ &\n        & 0.10391e+04_rb,0.80716e+03_rb,0.60333e+03_rb,0.89092e+03_rb,0.11772e+04_rb /)\n      kbo(:, 1,52,15) = (/ &\n        & 0.10358e+04_rb,0.83681e+03_rb,0.60593e+03_rb,0.89390e+03_rb,0.11828e+04_rb /)\n      kbo(:, 2,52,15) = (/ &\n        & 0.95423e+03_rb,0.78599e+03_rb,0.60540e+03_rb,0.89262e+03_rb,0.11809e+04_rb /)\n      kbo(:, 3,52,15) = (/ &\n        & 0.98439e+03_rb,0.83257e+03_rb,0.60417e+03_rb,0.89064e+03_rb,0.11795e+04_rb /)\n      kbo(:, 4,52,15) = (/ &\n        & 0.10548e+04_rb,0.77074e+03_rb,0.60331e+03_rb,0.89093e+03_rb,0.11786e+04_rb /)\n      kbo(:, 5,52,15) = (/ &\n        & 0.10358e+04_rb,0.81478e+03_rb,0.60291e+03_rb,0.89030e+03_rb,0.11777e+04_rb /)\n      kbo(:, 1,53,15) = (/ &\n        & 0.96204e+03_rb,0.74448e+03_rb,0.60716e+03_rb,0.89629e+03_rb,0.11860e+04_rb /)\n      kbo(:, 2,53,15) = (/ &\n        & 0.10872e+04_rb,0.75126e+03_rb,0.60583e+03_rb,0.89310e+03_rb,0.11816e+04_rb /)\n      kbo(:, 3,53,15) = (/ &\n        & 0.90617e+03_rb,0.75210e+03_rb,0.60463e+03_rb,0.89194e+03_rb,0.11800e+04_rb /)\n      kbo(:, 4,53,15) = (/ &\n        & 0.97991e+03_rb,0.76565e+03_rb,0.60352e+03_rb,0.89113e+03_rb,0.11788e+04_rb /)\n      kbo(:, 5,53,15) = (/ &\n        & 0.10425e+04_rb,0.76988e+03_rb,0.60308e+03_rb,0.89058e+03_rb,0.11793e+04_rb /)\n      kbo(:, 1,54,15) = (/ &\n        & 0.10112e+04_rb,0.55645e+03_rb,0.60785e+03_rb,0.89766e+03_rb,0.11878e+04_rb /)\n      kbo(:, 2,54,15) = (/ &\n        & 0.10637e+04_rb,0.66232e+03_rb,0.60623e+03_rb,0.89389e+03_rb,0.11827e+04_rb /)\n      kbo(:, 3,54,15) = (/ &\n        & 0.88717e+03_rb,0.63014e+03_rb,0.60503e+03_rb,0.89226e+03_rb,0.11804e+04_rb /)\n      kbo(:, 4,54,15) = (/ &\n        & 0.10369e+04_rb,0.84103e+03_rb,0.60384e+03_rb,0.89232e+03_rb,0.11792e+04_rb /)\n      kbo(:, 5,54,15) = (/ &\n        & 0.10000e+04_rb,0.70043e+03_rb,0.60321e+03_rb,0.89174e+03_rb,0.11783e+04_rb /)\n      kbo(:, 1,55,15) = (/ &\n        & 0.10615e+04_rb,0.77920e+03_rb,0.60858e+03_rb,0.89903e+03_rb,0.11896e+04_rb /)\n      kbo(:, 2,55,15) = (/ &\n        & 0.10425e+04_rb,0.78513e+03_rb,0.60661e+03_rb,0.89494e+03_rb,0.11829e+04_rb /)\n      kbo(:, 3,55,15) = (/ &\n        & 0.10916e+04_rb,0.73854e+03_rb,0.60542e+03_rb,0.89361e+03_rb,0.11809e+04_rb /)\n      kbo(:, 4,55,15) = (/ &\n        & 0.10715e+04_rb,0.78936e+03_rb,0.60420e+03_rb,0.89162e+03_rb,0.11795e+04_rb /)\n      kbo(:, 5,55,15) = (/ &\n        & 0.96091e+03_rb,0.82578e+03_rb,0.60397e+03_rb,0.89094e+03_rb,0.11773e+04_rb /)\n      kbo(:, 1,56,15) = (/ &\n        & 0.10458e+04_rb,0.77242e+03_rb,0.60942e+03_rb,0.90044e+03_rb,0.11915e+04_rb /)\n      kbo(:, 2,56,15) = (/ &\n        & 0.11062e+04_rb,0.77581e+03_rb,0.60712e+03_rb,0.89619e+03_rb,0.11859e+04_rb /)\n      kbo(:, 3,56,15) = (/ &\n        & 0.10883e+04_rb,0.80121e+03_rb,0.60580e+03_rb,0.89306e+03_rb,0.11815e+04_rb /)\n      kbo(:, 4,56,15) = (/ &\n        & 0.10726e+04_rb,0.82069e+03_rb,0.60459e+03_rb,0.89192e+03_rb,0.11799e+04_rb /)\n      kbo(:, 5,56,15) = (/ &\n        & 0.11263e+04_rb,0.78597e+03_rb,0.60416e+03_rb,0.89111e+03_rb,0.11788e+04_rb /)\n      kbo(:, 1,57,15) = (/ &\n        & 0.11095e+04_rb,0.76988e+03_rb,0.61034e+03_rb,0.90190e+03_rb,0.11935e+04_rb /)\n      kbo(:, 2,57,15) = (/ &\n        & 0.97543e+03_rb,0.72583e+03_rb,0.60777e+03_rb,0.89749e+03_rb,0.11876e+04_rb /)\n      kbo(:, 3,57,15) = (/ &\n        & 0.98548e+03_rb,0.78597e+03_rb,0.60618e+03_rb,0.89378e+03_rb,0.11826e+04_rb /)\n      kbo(:, 4,57,15) = (/ &\n        & 0.98213e+03_rb,0.81053e+03_rb,0.60499e+03_rb,0.89222e+03_rb,0.11804e+04_rb /)\n      kbo(:, 5,57,15) = (/ &\n        & 0.10760e+04_rb,0.81137e+03_rb,0.60380e+03_rb,0.89133e+03_rb,0.11791e+04_rb /)\n      kbo(:, 1,58,15) = (/ &\n        & 0.10034e+04_rb,0.71059e+03_rb,0.61128e+03_rb,0.90333e+03_rb,0.11954e+04_rb /)\n      kbo(:, 2,58,15) = (/ &\n        & 0.97431e+03_rb,0.80290e+03_rb,0.60845e+03_rb,0.89878e+03_rb,0.11893e+04_rb /)\n      kbo(:, 3,58,15) = (/ &\n        & 0.95308e+03_rb,0.77157e+03_rb,0.60654e+03_rb,0.89474e+03_rb,0.11839e+04_rb /)\n      kbo(:, 4,58,15) = (/ &\n        & 0.10737e+04_rb,0.87404e+03_rb,0.60535e+03_rb,0.89257e+03_rb,0.11808e+04_rb /)\n      kbo(:, 5,58,15) = (/ &\n        & 0.10626e+04_rb,0.67671e+03_rb,0.60413e+03_rb,0.89157e+03_rb,0.11782e+04_rb /)\n      kbo(:, 1,59,15) = (/ &\n        & 0.98325e+03_rb,0.78258e+03_rb,0.61167e+03_rb,0.90392e+03_rb,0.11962e+04_rb /)\n      kbo(:, 2,59,15) = (/ &\n        & 0.10481e+04_rb,0.74785e+03_rb,0.60874e+03_rb,0.89931e+03_rb,0.11900e+04_rb /)\n      kbo(:, 3,59,15) = (/ &\n        & 0.11151e+04_rb,0.73006e+03_rb,0.60669e+03_rb,0.89518e+03_rb,0.11820e+04_rb /)\n      kbo(:, 4,59,15) = (/ &\n        & 0.10425e+04_rb,0.79358e+03_rb,0.60550e+03_rb,0.89369e+03_rb,0.11810e+04_rb /)\n      kbo(:, 5,59,15) = (/ &\n        & 0.97877e+03_rb,0.79866e+03_rb,0.60428e+03_rb,0.89168e+03_rb,0.11796e+04_rb /)\n      kbo(:, 1,13,16) = (/ &\n        & 0.75523e+03_rb,0.86786e+03_rb,0.60838e+03_rb,0.89385e+03_rb,0.11815e+04_rb /)\n      kbo(:, 2,13,16) = (/ &\n        & 0.10580e+03_rb,0.52074e+03_rb,0.60685e+03_rb,0.89272e+03_rb,0.11800e+04_rb /)\n      kbo(:, 3,13,16) = (/ &\n        & 0.88450e+03_rb,0.99478e+02_rb,0.60069e+03_rb,0.89217e+03_rb,0.11793e+04_rb /)\n      kbo(:, 4,13,16) = (/ &\n        & 0.47883e+03_rb,0.85714e+02_rb,0.60445e+03_rb,0.89133e+03_rb,0.11782e+04_rb /)\n      kbo(:, 5,13,16) = (/ &\n        & 0.30313e+03_rb,0.39357e+02_rb,0.60363e+03_rb,0.89015e+03_rb,0.11767e+04_rb /)\n      kbo(:, 1,14,16) = (/ &\n        & 0.59250e+03_rb,0.12538e+03_rb,0.60779e+03_rb,0.89359e+03_rb,0.11813e+04_rb /)\n      kbo(:, 2,14,16) = (/ &\n        & 0.45021e+03_rb,0.30819e+03_rb,0.60630e+03_rb,0.89255e+03_rb,0.11799e+04_rb /)\n      kbo(:, 3,14,16) = (/ &\n        & 0.38746e+03_rb,0.31955e+03_rb,0.60482e+03_rb,0.89198e+03_rb,0.11792e+04_rb /)\n      kbo(:, 4,14,16) = (/ &\n        & 0.59123e+03_rb,0.24014e+03_rb,0.60415e+03_rb,0.89112e+03_rb,0.11781e+04_rb /)\n      kbo(:, 5,14,16) = (/ &\n        & 0.47780e+03_rb,0.41362e+03_rb,0.60332e+03_rb,0.88306e+03_rb,0.11765e+04_rb /)\n      kbo(:, 1,15,16) = (/ &\n        & 0.10202e+04_rb,0.29221e+03_rb,0.60727e+03_rb,0.88647e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,15,16) = (/ &\n        & 0.55435e+03_rb,0.58788e+03_rb,0.60581e+03_rb,0.89239e+03_rb,0.11799e+04_rb /)\n      kbo(:, 3,15,16) = (/ &\n        & 0.31413e+03_rb,0.75889e+03_rb,0.60450e+03_rb,0.89181e+03_rb,0.11791e+04_rb /)\n      kbo(:, 4,15,16) = (/ &\n        & 0.41436e+03_rb,0.80717e+03_rb,0.60389e+03_rb,0.89092e+03_rb,0.11689e+04_rb /)\n      kbo(:, 5,15,16) = (/ &\n        & 0.84269e+03_rb,0.27451e+03_rb,0.60303e+03_rb,0.88966e+03_rb,0.11582e+04_rb /)\n      kbo(:, 1,16,16) = (/ &\n        & 0.19456e+03_rb,0.24351e+03_rb,0.60682e+03_rb,0.89311e+03_rb,0.11719e+04_rb /)\n      kbo(:, 2,16,16) = (/ &\n        & 0.43800e+03_rb,0.21696e+03_rb,0.60538e+03_rb,0.89225e+03_rb,0.11798e+04_rb /)\n      kbo(:, 3,16,16) = (/ &\n        & 0.73851e+03_rb,0.22888e+03_rb,0.60428e+03_rb,0.89164e+03_rb,0.11790e+04_rb /)\n      kbo(:, 4,16,16) = (/ &\n        & 0.83650e+03_rb,0.13309e+03_rb,0.60366e+03_rb,0.89073e+03_rb,0.11778e+04_rb /)\n      kbo(:, 5,16,16) = (/ &\n        & 0.65895e+03_rb,0.36022e+03_rb,0.59813e+03_rb,0.88942e+03_rb,0.11670e+04_rb /)\n      kbo(:, 1,17,16) = (/ &\n        & 0.97890e+03_rb,0.27257e+03_rb,0.60643e+03_rb,0.89290e+03_rb,0.11808e+04_rb /)\n      kbo(:, 2,17,16) = (/ &\n        & 0.21678e+03_rb,0.36639e+03_rb,0.60501e+03_rb,0.89213e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,17,16) = (/ &\n        & 0.36576e+03_rb,0.64243e+03_rb,0.60409e+03_rb,0.89150e+03_rb,0.11789e+04_rb /)\n      kbo(:, 4,17,16) = (/ &\n        & 0.71301e+03_rb,0.32666e+03_rb,0.60345e+03_rb,0.89056e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,17,16) = (/ &\n        & 0.30605e+03_rb,0.68315e+03_rb,0.59789e+03_rb,0.88918e+03_rb,0.11668e+04_rb /)\n      kbo(:, 1,18,16) = (/ &\n        & 0.52238e+03_rb,0.17591e+03_rb,0.60609e+03_rb,0.89271e+03_rb,0.11807e+04_rb /)\n      kbo(:, 2,18,16) = (/ &\n        & 0.10253e+04_rb,0.75807e+03_rb,0.60468e+03_rb,0.89202e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,18,16) = (/ &\n        & 0.23095e+03_rb,0.31874e+03_rb,0.60392e+03_rb,0.89136e+03_rb,0.11788e+04_rb /)\n      kbo(:, 4,18,16) = (/ &\n        & 0.55144e+03_rb,0.80452e+03_rb,0.59863e+03_rb,0.89039e+03_rb,0.11685e+04_rb /)\n      kbo(:, 5,18,16) = (/ &\n        & 0.36145e+03_rb,0.21165e+03_rb,0.60231e+03_rb,0.88211e+03_rb,0.11666e+04_rb /)\n      kbo(:, 1,19,16) = (/ &\n        & 0.10124e+04_rb,0.51143e+03_rb,0.60113e+03_rb,0.89253e+03_rb,0.11805e+04_rb /)\n      kbo(:, 2,19,16) = (/ &\n        & 0.54199e+03_rb,0.26758e+03_rb,0.60439e+03_rb,0.89192e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,19,16) = (/ &\n        & 0.61467e+03_rb,0.78253e+03_rb,0.59913e+03_rb,0.89123e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,19,16) = (/ &\n        & 0.58906e+03_rb,0.74398e+02_rb,0.60311e+03_rb,0.89023e+03_rb,0.11774e+04_rb /)\n      kbo(:, 5,19,16) = (/ &\n        & 0.98025e+03_rb,0.28476e+03_rb,0.59747e+03_rb,0.88189e+03_rb,0.11663e+04_rb /)\n      kbo(:, 1,20,16) = (/ &\n        & 0.25361e+03_rb,0.16739e+03_rb,0.60550e+03_rb,0.89234e+03_rb,0.11712e+04_rb /)\n      kbo(:, 2,20,16) = (/ &\n        & 0.70227e+03_rb,0.71784e+03_rb,0.59948e+03_rb,0.89182e+03_rb,0.11795e+04_rb /)\n      kbo(:, 3,20,16) = (/ &\n        & 0.89681e+03_rb,0.24714e+03_rb,0.60364e+03_rb,0.89109e+03_rb,0.11786e+04_rb /)\n      kbo(:, 4,20,16) = (/ &\n        & 0.30123e+03_rb,0.54911e+03_rb,0.60295e+03_rb,0.89006e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,20,16) = (/ &\n        & 0.68301e+03_rb,0.36973e+03_rb,0.59725e+03_rb,0.88846e+03_rb,0.11750e+04_rb /)\n      kbo(:, 1,21,16) = (/ &\n        & 0.25236e+03_rb,0.80202e+03_rb,0.60523e+03_rb,0.89218e+03_rb,0.11801e+04_rb /)\n      kbo(:, 2,21,16) = (/ &\n        & 0.77221e+03_rb,0.62834e+03_rb,0.60401e+03_rb,0.89171e+03_rb,0.11794e+04_rb /)\n      kbo(:, 3,21,16) = (/ &\n        & 0.70626e+03_rb,0.20918e+03_rb,0.60351e+03_rb,0.89096e+03_rb,0.11784e+04_rb /)\n      kbo(:, 4,21,16) = (/ &\n        & 0.16217e+03_rb,0.14134e+03_rb,0.59816e+03_rb,0.88303e+03_rb,0.11770e+04_rb /)\n      kbo(:, 5,21,16) = (/ &\n        & 0.51843e+03_rb,0.20259e+03_rb,0.59703e+03_rb,0.88818e+03_rb,0.11747e+04_rb /)\n      kbo(:, 1,22,16) = (/ &\n        & 0.21890e+03_rb,0.24577e+03_rb,0.60023e+03_rb,0.89209e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,22,16) = (/ &\n        & 0.30771e+03_rb,0.55233e+03_rb,0.60388e+03_rb,0.89157e+03_rb,0.11793e+04_rb /)\n      kbo(:, 3,22,16) = (/ &\n        & 0.17796e+03_rb,0.48432e+03_rb,0.60334e+03_rb,0.89076e+03_rb,0.11782e+04_rb /)\n      kbo(:, 4,22,16) = (/ &\n        & 0.88899e+03_rb,0.36751e+03_rb,0.60258e+03_rb,0.88960e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,22,16) = (/ &\n        & 0.37953e+03_rb,0.56918e+03_rb,0.58746e+03_rb,0.88775e+03_rb,0.11742e+04_rb /)\n      kbo(:, 1,23,16) = (/ &\n        & 0.42018e+03_rb,0.21434e+03_rb,0.60456e+03_rb,0.89198e+03_rb,0.11798e+04_rb /)\n      kbo(:, 2,23,16) = (/ &\n        & 0.10252e+04_rb,0.32427e+03_rb,0.60375e+03_rb,0.89142e+03_rb,0.11791e+04_rb /)\n      kbo(:, 3,23,16) = (/ &\n        & 0.25811e+03_rb,0.61743e+03_rb,0.60318e+03_rb,0.89055e+03_rb,0.11779e+04_rb /)\n      kbo(:, 4,23,16) = (/ &\n        & 0.60449e+03_rb,0.28100e+03_rb,0.60235e+03_rb,0.88930e+03_rb,0.11762e+04_rb /)\n      kbo(:, 5,23,16) = (/ &\n        & 0.43495e+03_rb,0.18925e+03_rb,0.60100e+03_rb,0.88727e+03_rb,0.11735e+04_rb /)\n      kbo(:, 1,24,16) = (/ &\n        & 0.68497e+03_rb,0.77568e+03_rb,0.60423e+03_rb,0.89188e+03_rb,0.11797e+04_rb /)\n      kbo(:, 2,24,16) = (/ &\n        & 0.27378e+03_rb,0.43332e+03_rb,0.60362e+03_rb,0.89125e+03_rb,0.11789e+04_rb /)\n      kbo(:, 3,24,16) = (/ &\n        & 0.44258e+03_rb,0.48182e+03_rb,0.60301e+03_rb,0.89032e+03_rb,0.11686e+04_rb /)\n      kbo(:, 4,24,16) = (/ &\n        & 0.38603e+03_rb,0.34135e+03_rb,0.59747e+03_rb,0.88895e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,24,16) = (/ &\n        & 0.39386e+03_rb,0.54222e+03_rb,0.60062e+03_rb,0.88674e+03_rb,0.11638e+04_rb /)\n      kbo(:, 1,25,16) = (/ &\n        & 0.55482e+03_rb,0.53022e+03_rb,0.60394e+03_rb,0.89175e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,25,16) = (/ &\n        & 0.90002e+03_rb,0.91361e+02_rb,0.60348e+03_rb,0.89107e+03_rb,0.11787e+04_rb /)\n      kbo(:, 3,25,16) = (/ &\n        & 0.17670e+03_rb,0.51744e+03_rb,0.59819e+03_rb,0.89007e+03_rb,0.11773e+04_rb /)\n      kbo(:, 4,25,16) = (/ &\n        & 0.44153e+03_rb,0.41376e+03_rb,0.59256e+03_rb,0.88854e+03_rb,0.11753e+04_rb /)\n      kbo(:, 5,25,16) = (/ &\n        & 0.24073e+03_rb,0.21288e+03_rb,0.60020e+03_rb,0.88614e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,26,16) = (/ &\n        & 0.37725e+03_rb,0.61445e+03_rb,0.60383e+03_rb,0.89161e+03_rb,0.11703e+04_rb /)\n      kbo(:, 2,26,16) = (/ &\n        & 0.10269e+04_rb,0.42565e+03_rb,0.59868e+03_rb,0.89085e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,26,16) = (/ &\n        & 0.49719e+03_rb,0.26744e+03_rb,0.60261e+03_rb,0.88977e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,26,16) = (/ &\n        & 0.41684e+03_rb,0.19443e+03_rb,0.59685e+03_rb,0.88123e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,26,16) = (/ &\n        & 0.32855e+03_rb,0.57095e+03_rb,0.59973e+03_rb,0.88545e+03_rb,0.11622e+04_rb /)\n      kbo(:, 1,27,16) = (/ &\n        & 0.60914e+03_rb,0.57105e+03_rb,0.60371e+03_rb,0.89145e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,27,16) = (/ &\n        & 0.26439e+03_rb,0.15182e+03_rb,0.60316e+03_rb,0.89062e+03_rb,0.11781e+04_rb /)\n      kbo(:, 3,27,16) = (/ &\n        & 0.73685e+03_rb,0.69813e+03_rb,0.60238e+03_rb,0.88259e+03_rb,0.11765e+04_rb /)\n      kbo(:, 4,27,16) = (/ &\n        & 0.64054e+03_rb,0.28524e+03_rb,0.60110e+03_rb,0.88751e+03_rb,0.11649e+04_rb /)\n      kbo(:, 5,27,16) = (/ &\n        & 0.75244e+03_rb,0.50359e+03_rb,0.59461e+03_rb,0.87791e+03_rb,0.11702e+04_rb /)\n      kbo(:, 1,28,16) = (/ &\n        & 0.64046e+03_rb,0.15170e+03_rb,0.60358e+03_rb,0.89127e+03_rb,0.11790e+04_rb /)\n      kbo(:, 2,28,16) = (/ &\n        & 0.70429e+03_rb,0.23052e+03_rb,0.60299e+03_rb,0.89037e+03_rb,0.11687e+04_rb /)\n      kbo(:, 3,28,16) = (/ &\n        & 0.44006e+03_rb,0.41240e+03_rb,0.60212e+03_rb,0.88904e+03_rb,0.11760e+04_rb /)\n      kbo(:, 4,28,16) = (/ &\n        & 0.22398e+03_rb,0.59419e+03_rb,0.60069e+03_rb,0.88691e+03_rb,0.11731e+04_rb /)\n      kbo(:, 5,28,16) = (/ &\n        & 0.55183e+03_rb,0.13336e+03_rb,0.59871e+03_rb,0.87038e+03_rb,0.11692e+04_rb /)\n      kbo(:, 1,29,16) = (/ &\n        & 0.59987e+03_rb,0.49106e+03_rb,0.60344e+03_rb,0.89107e+03_rb,0.11787e+04_rb /)\n      kbo(:, 2,29,16) = (/ &\n        & 0.34384e+03_rb,0.96976e+02_rb,0.60280e+03_rb,0.89009e+03_rb,0.11774e+04_rb /)\n      kbo(:, 3,29,16) = (/ &\n        & 0.54363e+03_rb,0.20603e+03_rb,0.60181e+03_rb,0.88860e+03_rb,0.11754e+04_rb /)\n      kbo(:, 4,29,16) = (/ &\n        & 0.10391e+04_rb,0.38775e+03_rb,0.60023e+03_rb,0.88623e+03_rb,0.11632e+04_rb /)\n      kbo(:, 5,29,16) = (/ &\n        & 0.22377e+03_rb,0.17567e+03_rb,0.59820e+03_rb,0.88324e+03_rb,0.11684e+04_rb /)\n      kbo(:, 1,30,16) = (/ &\n        & 0.63138e+03_rb,0.68455e+03_rb,0.60329e+03_rb,0.89085e+03_rb,0.11784e+04_rb /)\n      kbo(:, 2,30,16) = (/ &\n        & 0.58332e+03_rb,0.21199e+03_rb,0.60259e+03_rb,0.88978e+03_rb,0.11770e+04_rb /)\n      kbo(:, 3,30,16) = (/ &\n        & 0.33555e+03_rb,0.46024e+03_rb,0.59221e+03_rb,0.88809e+03_rb,0.11657e+04_rb /)\n      kbo(:, 4,30,16) = (/ &\n        & 0.44733e+03_rb,0.32696e+03_rb,0.59512e+03_rb,0.88550e+03_rb,0.11713e+04_rb /)\n      kbo(:, 5,30,16) = (/ &\n        & 0.79071e+03_rb,0.72043e+03_rb,0.59773e+03_rb,0.85548e+03_rb,0.11586e+04_rb /)\n      kbo(:, 1,31,16) = (/ &\n        & 0.81471e+03_rb,0.68414e+03_rb,0.60312e+03_rb,0.89060e+03_rb,0.11781e+04_rb /)\n      kbo(:, 2,31,16) = (/ &\n        & 0.44722e+03_rb,0.73246e+03_rb,0.60235e+03_rb,0.88942e+03_rb,0.11765e+04_rb /)\n      kbo(:, 3,31,16) = (/ &\n        & 0.48709e+03_rb,0.24210e+03_rb,0.60108e+03_rb,0.88068e+03_rb,0.11739e+04_rb /)\n      kbo(:, 4,31,16) = (/ &\n        & 0.63873e+03_rb,0.56888e+03_rb,0.59920e+03_rb,0.88472e+03_rb,0.11702e+04_rb /)\n      kbo(:, 5,31,16) = (/ &\n        & 0.72647e+03_rb,0.26020e+03_rb,0.59739e+03_rb,0.78035e+03_rb,0.11669e+04_rb /)\n      kbo(:, 1,32,16) = (/ &\n        & 0.10219e+04_rb,0.29652e+03_rb,0.60294e+03_rb,0.89034e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,32,16) = (/ &\n        & 0.75833e+03_rb,0.13311e+03_rb,0.59281e+03_rb,0.88900e+03_rb,0.11759e+04_rb /)\n      kbo(:, 3,32,16) = (/ &\n        & 0.54275e+03_rb,0.31460e+03_rb,0.59602e+03_rb,0.88686e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,32,16) = (/ &\n        & 0.28731e+03_rb,0.15124e+03_rb,0.59865e+03_rb,0.87712e+03_rb,0.11692e+04_rb /)\n      kbo(:, 5,32,16) = (/ &\n        & 0.79004e+03_rb,0.63514e+03_rb,0.58791e+03_rb,0.86135e+03_rb,0.11214e+04_rb /)\n      kbo(:, 1,33,16) = (/ &\n        & 0.42295e+03_rb,0.52022e+03_rb,0.60275e+03_rb,0.88319e+03_rb,0.11773e+04_rb /)\n      kbo(:, 2,33,16) = (/ &\n        & 0.72614e+03_rb,0.33266e+03_rb,0.60175e+03_rb,0.88169e+03_rb,0.11753e+04_rb /)\n      kbo(:, 3,33,16) = (/ &\n        & 0.36703e+03_rb,0.22982e+03_rb,0.59554e+03_rb,0.88614e+03_rb,0.11721e+04_rb /)\n      kbo(:, 4,33,16) = (/ &\n        & 0.23137e+03_rb,0.32656e+03_rb,0.59813e+03_rb,0.88315e+03_rb,0.11503e+04_rb /)\n      kbo(:, 5,33,16) = (/ &\n        & 0.98125e+03_rb,0.60471e+03_rb,0.59681e+03_rb,0.86770e+03_rb,0.11478e+04_rb /)\n      kbo(:, 1,34,16) = (/ &\n        & 0.44676e+03_rb,0.16327e+03_rb,0.59792e+03_rb,0.88976e+03_rb,0.11770e+04_rb /)\n      kbo(:, 2,34,16) = (/ &\n        & 0.27122e+03_rb,0.52002e+03_rb,0.60144e+03_rb,0.88807e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,34,16) = (/ &\n        & 0.89338e+03_rb,0.37487e+03_rb,0.59509e+03_rb,0.87866e+03_rb,0.11622e+04_rb /)\n      kbo(:, 4,34,16) = (/ &\n        & 0.43071e+03_rb,0.56832e+03_rb,0.58850e+03_rb,0.83509e+03_rb,0.10958e+04_rb /)\n      kbo(:, 5,34,16) = (/ &\n        & 0.20737e+03_rb,0.35064e+03_rb,0.59655e+03_rb,0.88088e+03_rb,0.11652e+04_rb /)\n      kbo(:, 1,35,16) = (/ &\n        & 0.79758e+02_rb,0.10278e+03_rb,0.60244e+03_rb,0.87589e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,35,16) = (/ &\n        & 0.52637e+03_rb,0.56826e+03_rb,0.60124e+03_rb,0.88778e+03_rb,0.11743e+04_rb /)\n      kbo(:, 3,35,16) = (/ &\n        & 0.43064e+03_rb,0.29620e+03_rb,0.59943e+03_rb,0.88508e+03_rb,0.11707e+04_rb /)\n      kbo(:, 4,35,16) = (/ &\n        & 0.21531e+03_rb,0.74954e+03_rb,0.57453e+03_rb,0.86197e+03_rb,0.11223e+04_rb /)\n      kbo(:, 5,35,16) = (/ &\n        & 0.85323e+03_rb,0.27200e+03_rb,0.59640e+03_rb,0.88066e+03_rb,0.11649e+04_rb /)\n      kbo(:, 1,36,16) = (/ &\n        & 0.99678e+03_rb,0.21760e+03_rb,0.60242e+03_rb,0.88955e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,36,16) = (/ &\n        & 0.90902e+03_rb,0.40496e+03_rb,0.59196e+03_rb,0.88090e+03_rb,0.11742e+04_rb /)\n      kbo(:, 3,36,16) = (/ &\n        & 0.38273e+03_rb,0.60439e+03_rb,0.59478e+03_rb,0.87820e+03_rb,0.11706e+04_rb /)\n      kbo(:, 4,36,16) = (/ &\n        & 0.84516e+03_rb,0.25383e+03_rb,0.58829e+03_rb,0.79406e+03_rb,0.11312e+04_rb /)\n      kbo(:, 5,36,16) = (/ &\n        & 0.45445e+03_rb,0.41700e+03_rb,0.59637e+03_rb,0.88062e+03_rb,0.11559e+04_rb /)\n      kbo(:, 1,37,16) = (/ &\n        & 0.62987e+03_rb,0.44723e+03_rb,0.59790e+03_rb,0.88973e+03_rb,0.11769e+04_rb /)\n      kbo(:, 2,37,16) = (/ &\n        & 0.80524e+03_rb,0.68894e+03_rb,0.59677e+03_rb,0.88802e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,37,16) = (/ &\n        & 0.18337e+03_rb,0.45323e+03_rb,0.59504e+03_rb,0.88541e+03_rb,0.11712e+04_rb /)\n      kbo(:, 4,37,16) = (/ &\n        & 0.50224e+03_rb,0.16920e+03_rb,0.59765e+03_rb,0.86220e+03_rb,0.11586e+04_rb /)\n      kbo(:, 5,37,16) = (/ &\n        & 0.85299e+03_rb,0.22358e+03_rb,0.59652e+03_rb,0.88084e+03_rb,0.11652e+04_rb /)\n      kbo(:, 1,38,16) = (/ &\n        & 0.91678e+03_rb,0.47738e+03_rb,0.59801e+03_rb,0.88990e+03_rb,0.11681e+04_rb /)\n      kbo(:, 2,38,16) = (/ &\n        & 0.47033e+03_rb,0.39881e+03_rb,0.59234e+03_rb,0.88147e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,38,16) = (/ &\n        & 0.69352e+03_rb,0.66467e+03_rb,0.59993e+03_rb,0.87901e+03_rb,0.11717e+04_rb /)\n      kbo(:, 4,38,16) = (/ &\n        & 0.48625e+03_rb,0.32628e+03_rb,0.59330e+03_rb,0.86251e+03_rb,0.11590e+04_rb /)\n      kbo(:, 5,38,16) = (/ &\n        & 0.31087e+03_rb,0.44108e+03_rb,0.58749e+03_rb,0.88107e+03_rb,0.11655e+04_rb /)\n      kbo(:, 1,39,16) = (/ &\n        & 0.35870e+03_rb,0.11480e+03_rb,0.60275e+03_rb,0.89007e+03_rb,0.11774e+04_rb /)\n      kbo(:, 2,39,16) = (/ &\n        & 0.37464e+03_rb,0.78547e+03_rb,0.59714e+03_rb,0.88174e+03_rb,0.11754e+04_rb /)\n      kbo(:, 3,39,16) = (/ &\n        & 0.10123e+04_rb,0.30814e+03_rb,0.59558e+03_rb,0.87940e+03_rb,0.11722e+04_rb /)\n      kbo(:, 4,39,16) = (/ &\n        & 0.17535e+03_rb,0.96668e+02_rb,0.59817e+03_rb,0.88323e+03_rb,0.11594e+04_rb /)\n      kbo(:, 5,39,16) = (/ &\n        & 0.36664e+03_rb,0.56187e+03_rb,0.58764e+03_rb,0.86774e+03_rb,0.11658e+04_rb /)\n      kbo(:, 1,40,16) = (/ &\n        & 0.48620e+03_rb,0.57396e+03_rb,0.60293e+03_rb,0.89033e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,40,16) = (/ &\n        & 0.94847e+03_rb,0.62832e+03_rb,0.60206e+03_rb,0.88901e+03_rb,0.11760e+04_rb /)\n      kbo(:, 3,40,16) = (/ &\n        & 0.54197e+03_rb,0.51352e+03_rb,0.60063e+03_rb,0.88687e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,40,16) = (/ &\n        & 0.21519e+03_rb,0.61017e+03_rb,0.58944e+03_rb,0.86354e+03_rb,0.11692e+04_rb /)\n      kbo(:, 5,40,16) = (/ &\n        & 0.27098e+03_rb,0.33831e+03_rb,0.58331e+03_rb,0.88170e+03_rb,0.10587e+04_rb /)\n      kbo(:, 1,41,16) = (/ &\n        & 0.14346e+03_rb,0.26582e+03_rb,0.60309e+03_rb,0.89059e+03_rb,0.11781e+04_rb /)\n      kbo(:, 2,41,16) = (/ &\n        & 0.76510e+03_rb,0.70682e+03_rb,0.60232e+03_rb,0.88941e+03_rb,0.11765e+04_rb /)\n      kbo(:, 3,41,16) = (/ &\n        & 0.62163e+03_rb,0.16311e+03_rb,0.60105e+03_rb,0.88750e+03_rb,0.11649e+04_rb /)\n      kbo(:, 4,41,16) = (/ &\n        & 0.87665e+02_rb,0.19331e+03_rb,0.59457e+03_rb,0.88472e+03_rb,0.11703e+04_rb /)\n      kbo(:, 5,41,16) = (/ &\n        & 0.10041e+04_rb,0.44098e+03_rb,0.58818e+03_rb,0.72606e+03_rb,0.10412e+04_rb /)\n      kbo(:, 1,42,16) = (/ &\n        & 0.66944e+03_rb,0.41079e+03_rb,0.60325e+03_rb,0.89083e+03_rb,0.11693e+04_rb /)\n      kbo(:, 2,42,16) = (/ &\n        & 0.51801e+03_rb,0.25976e+03_rb,0.60255e+03_rb,0.88976e+03_rb,0.11770e+04_rb /)\n      kbo(:, 3,42,16) = (/ &\n        & 0.23111e+03_rb,0.27788e+03_rb,0.58293e+03_rb,0.88808e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,42,16) = (/ &\n        & 0.44627e+03_rb,0.35036e+03_rb,0.59971e+03_rb,0.87868e+03_rb,0.11713e+04_rb /)\n      kbo(:, 5,42,16) = (/ &\n        & 0.75706e+03_rb,0.77924e+03_rb,0.59310e+03_rb,0.87584e+03_rb,0.11676e+04_rb /)\n      kbo(:, 1,43,16) = (/ &\n        & 0.60566e+03_rb,0.10873e+03_rb,0.60342e+03_rb,0.89110e+03_rb,0.11697e+04_rb /)\n      kbo(:, 2,43,16) = (/ &\n        & 0.92441e+03_rb,0.64634e+03_rb,0.59816e+03_rb,0.89014e+03_rb,0.11775e+04_rb /)\n      kbo(:, 3,43,16) = (/ &\n        & 0.18329e+03_rb,0.35035e+03_rb,0.59722e+03_rb,0.88869e+03_rb,0.11755e+04_rb /)\n      kbo(:, 4,43,16) = (/ &\n        & 0.34266e+03_rb,0.17517e+03_rb,0.59569e+03_rb,0.87957e+03_rb,0.11725e+04_rb /)\n      kbo(:, 5,43,16) = (/ &\n        & 0.92438e+03_rb,0.90606e+02_rb,0.59829e+03_rb,0.88341e+03_rb,0.11057e+04_rb /)\n      kbo(:, 1,44,16) = (/ &\n        & 0.38251e+03_rb,0.19934e+03_rb,0.60359e+03_rb,0.89135e+03_rb,0.11791e+04_rb /)\n      kbo(:, 2,44,16) = (/ &\n        & 0.48609e+03_rb,0.71881e+03_rb,0.59839e+03_rb,0.89050e+03_rb,0.11689e+04_rb /)\n      kbo(:, 3,44,16) = (/ &\n        & 0.54984e+03_rb,0.19933e+03_rb,0.59759e+03_rb,0.88926e+03_rb,0.11763e+04_rb /)\n      kbo(:, 4,44,16) = (/ &\n        & 0.85264e+03_rb,0.64027e+03_rb,0.60090e+03_rb,0.88045e+03_rb,0.11736e+04_rb /)\n      kbo(:, 5,44,16) = (/ &\n        & 0.88451e+03_rb,0.49530e+03_rb,0.59898e+03_rb,0.87082e+03_rb,0.11699e+04_rb /)\n      kbo(:, 1,45,16) = (/ &\n        & 0.66936e+03_rb,0.51946e+03_rb,0.60373e+03_rb,0.89157e+03_rb,0.11794e+04_rb /)\n      kbo(:, 2,45,16) = (/ &\n        & 0.95622e+03_rb,0.66442e+03_rb,0.60324e+03_rb,0.89082e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,45,16) = (/ &\n        & 0.70122e+03_rb,0.25973e+03_rb,0.60254e+03_rb,0.88974e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,45,16) = (/ &\n        & 0.13546e+03_rb,0.47717e+03_rb,0.59679e+03_rb,0.88805e+03_rb,0.11747e+04_rb /)\n      kbo(:, 5,45,16) = (/ &\n        & 0.44623e+03_rb,0.47716e+03_rb,0.59968e+03_rb,0.87864e+03_rb,0.11712e+04_rb /)\n      kbo(:, 1,46,16) = (/ &\n        & 0.16734e+03_rb,0.11476e+03_rb,0.60389e+03_rb,0.89176e+03_rb,0.11797e+04_rb /)\n      kbo(:, 2,46,16) = (/ &\n        & 0.41435e+03_rb,0.59796e+03_rb,0.60344e+03_rb,0.89112e+03_rb,0.11697e+04_rb /)\n      kbo(:, 3,46,16) = (/ &\n        & 0.78886e+03_rb,0.13892e+03_rb,0.60282e+03_rb,0.89018e+03_rb,0.11775e+04_rb /)\n      kbo(:, 4,46,16) = (/ &\n        & 0.48606e+03_rb,0.76103e+03_rb,0.59263e+03_rb,0.88876e+03_rb,0.11756e+04_rb /)\n      kbo(:, 5,46,16) = (/ &\n        & 0.77291e+03_rb,0.68855e+03_rb,0.59113e+03_rb,0.88648e+03_rb,0.11726e+04_rb /)\n      kbo(:, 1,47,16) = (/ &\n        & 0.80479e+03_rb,0.70064e+03_rb,0.60443e+03_rb,0.89194e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,47,16) = (/ &\n        & 0.74901e+03_rb,0.35032e+03_rb,0.60363e+03_rb,0.89142e+03_rb,0.11792e+04_rb /)\n      kbo(:, 3,47,16) = (/ &\n        & 0.62948e+03_rb,0.48923e+03_rb,0.60309e+03_rb,0.89059e+03_rb,0.11690e+04_rb /)\n      kbo(:, 4,47,16) = (/ &\n        & 0.87648e+02_rb,0.36239e+03_rb,0.60232e+03_rb,0.88257e+03_rb,0.11584e+04_rb /)\n      kbo(:, 5,47,16) = (/ &\n        & 0.44621e+03_rb,0.42279e+03_rb,0.60106e+03_rb,0.88751e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,48,16) = (/ &\n        & 0.39044e+03_rb,0.31407e+03_rb,0.60497e+03_rb,0.89220e+03_rb,0.11803e+04_rb /)\n      kbo(:, 2,48,16) = (/ &\n        & 0.28685e+03_rb,0.50131e+03_rb,0.60379e+03_rb,0.89166e+03_rb,0.11795e+04_rb /)\n      kbo(:, 3,48,16) = (/ &\n        & 0.38246e+03_rb,0.70665e+03_rb,0.60333e+03_rb,0.89096e+03_rb,0.11786e+04_rb /)\n      kbo(:, 4,48,16) = (/ &\n        & 0.47011e+03_rb,0.61002e+03_rb,0.60267e+03_rb,0.88995e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,48,16) = (/ &\n        & 0.36652e+03_rb,0.63417e+03_rb,0.60164e+03_rb,0.88155e+03_rb,0.11751e+04_rb /)\n      kbo(:, 1,49,16) = (/ &\n        & 0.76492e+03_rb,0.96636e+02_rb,0.60550e+03_rb,0.89270e+03_rb,0.11810e+04_rb /)\n      kbo(:, 2,49,16) = (/ &\n        & 0.23107e+03_rb,0.19931e+03_rb,0.60416e+03_rb,0.89186e+03_rb,0.11798e+04_rb /)\n      kbo(:, 3,49,16) = (/ &\n        & 0.86850e+03_rb,0.30199e+03_rb,0.59890e+03_rb,0.89128e+03_rb,0.11790e+04_rb /)\n      kbo(:, 4,49,16) = (/ &\n        & 0.27091e+03_rb,0.22951e+03_rb,0.60296e+03_rb,0.89040e+03_rb,0.11778e+04_rb /)\n      kbo(:, 5,49,16) = (/ &\n        & 0.45416e+03_rb,0.53149e+03_rb,0.60212e+03_rb,0.88227e+03_rb,0.11761e+04_rb /)\n      kbo(:, 1,50,16) = (/ &\n        & 0.39042e+03_rb,0.12079e+03_rb,0.60601e+03_rb,0.89316e+03_rb,0.11816e+04_rb /)\n      kbo(:, 2,50,16) = (/ &\n        & 0.38245e+03_rb,0.73080e+03_rb,0.60467e+03_rb,0.89201e+03_rb,0.11709e+04_rb /)\n      kbo(:, 3,50,16) = (/ &\n        & 0.19919e+03_rb,0.50733e+03_rb,0.60370e+03_rb,0.89153e+03_rb,0.11703e+04_rb /)\n      kbo(:, 4,50,16) = (/ &\n        & 0.52587e+03_rb,0.41673e+03_rb,0.60320e+03_rb,0.89076e+03_rb,0.11693e+04_rb /)\n      kbo(:, 5,50,16) = (/ &\n        & 0.25497e+03_rb,0.90594e+02_rb,0.59785e+03_rb,0.88966e+03_rb,0.11768e+04_rb /)\n      kbo(:, 1,51,16) = (/ &\n        & 0.35058e+03_rb,0.56772e+03_rb,0.60650e+03_rb,0.89405e+03_rb,0.11830e+04_rb /)\n      kbo(:, 2,51,16) = (/ &\n        & 0.39839e+03_rb,0.52545e+03_rb,0.60516e+03_rb,0.89238e+03_rb,0.11806e+04_rb /)\n      kbo(:, 3,51,16) = (/ &\n        & 0.69319e+03_rb,0.65831e+03_rb,0.60384e+03_rb,0.89174e+03_rb,0.11796e+04_rb /)\n      kbo(:, 4,51,16) = (/ &\n        & 0.66132e+03_rb,0.42881e+03_rb,0.60341e+03_rb,0.89108e+03_rb,0.11788e+04_rb /)\n      kbo(:, 5,51,16) = (/ &\n        & 0.80473e+03_rb,0.49524e+03_rb,0.59814e+03_rb,0.88327e+03_rb,0.11775e+04_rb /)\n      kbo(:, 1,52,16) = (/ &\n        & 0.75693e+03_rb,0.32010e+03_rb,0.60698e+03_rb,0.89551e+03_rb,0.11849e+04_rb /)\n      kbo(:, 2,52,16) = (/ &\n        & 0.98002e+03_rb,0.74890e+03_rb,0.60565e+03_rb,0.89283e+03_rb,0.11812e+04_rb /)\n      kbo(:, 3,52,16) = (/ &\n        & 0.42228e+03_rb,0.32613e+03_rb,0.60430e+03_rb,0.89190e+03_rb,0.11799e+04_rb /)\n      kbo(:, 4,52,16) = (/ &\n        & 0.43025e+03_rb,0.70662e+03_rb,0.60359e+03_rb,0.89136e+03_rb,0.11791e+04_rb /)\n      kbo(:, 5,52,16) = (/ &\n        & 0.81269e+03_rb,0.56167e+03_rb,0.60303e+03_rb,0.89051e+03_rb,0.11780e+04_rb /)\n      kbo(:, 1,53,16) = (/ &\n        & 0.98002e+03_rb,0.61603e+03_rb,0.60747e+03_rb,0.89705e+03_rb,0.11870e+04_rb /)\n      kbo(:, 2,53,16) = (/ &\n        & 0.28683e+03_rb,0.42277e+03_rb,0.60613e+03_rb,0.89328e+03_rb,0.11818e+04_rb /)\n      kbo(:, 3,53,16) = (/ &\n        & 0.45415e+03_rb,0.68246e+03_rb,0.60479e+03_rb,0.89204e+03_rb,0.11801e+04_rb /)\n      kbo(:, 4,53,16) = (/ &\n        & 0.78879e+03_rb,0.48920e+03_rb,0.60374e+03_rb,0.89159e+03_rb,0.11794e+04_rb /)\n      kbo(:, 5,53,16) = (/ &\n        & 0.76488e+03_rb,0.14495e+03_rb,0.60326e+03_rb,0.89085e+03_rb,0.11694e+04_rb /)\n      kbo(:, 1,54,16) = (/ &\n        & 0.67724e+03_rb,0.76701e+03_rb,0.60808e+03_rb,0.89852e+03_rb,0.11890e+04_rb /)\n      kbo(:, 2,54,16) = (/ &\n        & 0.81269e+03_rb,0.24762e+03_rb,0.60658e+03_rb,0.89430e+03_rb,0.11833e+04_rb /)\n      kbo(:, 3,54,16) = (/ &\n        & 0.94813e+03_rb,0.63414e+03_rb,0.60524e+03_rb,0.89246e+03_rb,0.11807e+04_rb /)\n      kbo(:, 4,54,16) = (/ &\n        & 0.49398e+03_rb,0.28989e+03_rb,0.60390e+03_rb,0.88491e+03_rb,0.11797e+04_rb /)\n      kbo(:, 5,54,16) = (/ &\n        & 0.89236e+03_rb,0.27781e+03_rb,0.60344e+03_rb,0.88428e+03_rb,0.11788e+04_rb /)\n      kbo(:, 1,55,16) = (/ &\n        & 0.52586e+03_rb,0.77305e+03_rb,0.60906e+03_rb,0.89999e+03_rb,0.11909e+04_rb /)\n      kbo(:, 2,55,16) = (/ &\n        & 0.54179e+03_rb,0.64018e+03_rb,0.60701e+03_rb,0.89560e+03_rb,0.11851e+04_rb /)\n      kbo(:, 3,55,16) = (/ &\n        & 0.50992e+03_rb,0.60394e+03_rb,0.60567e+03_rb,0.88598e+03_rb,0.11812e+04_rb /)\n      kbo(:, 4,55,16) = (/ &\n        & 0.63740e+03_rb,0.44088e+03_rb,0.60433e+03_rb,0.89191e+03_rb,0.11799e+04_rb /)\n      kbo(:, 5,55,16) = (/ &\n        & 0.49398e+03_rb,0.37444e+03_rb,0.59895e+03_rb,0.89137e+03_rb,0.11791e+04_rb /)\n      kbo(:, 1,56,16) = (/ &\n        & 0.90829e+03_rb,0.27177e+03_rb,0.61007e+03_rb,0.90151e+03_rb,0.11929e+04_rb /)\n      kbo(:, 2,56,16) = (/ &\n        & 0.35854e+03_rb,0.24158e+03_rb,0.60744e+03_rb,0.89694e+03_rb,0.11869e+04_rb /)\n      kbo(:, 3,56,16) = (/ &\n        & 0.59756e+03_rb,0.47107e+03_rb,0.60610e+03_rb,0.89325e+03_rb,0.11817e+04_rb /)\n      kbo(:, 4,56,16) = (/ &\n        & 0.52585e+03_rb,0.35632e+03_rb,0.60476e+03_rb,0.89203e+03_rb,0.11801e+04_rb /)\n      kbo(:, 5,56,16) = (/ &\n        & 0.27886e+03_rb,0.24761e+03_rb,0.59909e+03_rb,0.89157e+03_rb,0.11794e+04_rb /)\n      kbo(:, 1,57,16) = (/ &\n        & 0.34260e+03_rb,0.66433e+03_rb,0.61112e+03_rb,0.90308e+03_rb,0.11950e+04_rb /)\n      kbo(:, 2,57,16) = (/ &\n        & 0.66130e+03_rb,0.45295e+03_rb,0.60796e+03_rb,0.89834e+03_rb,0.11887e+04_rb /)\n      kbo(:, 3,57,16) = (/ &\n        & 0.69317e+03_rb,0.42880e+03_rb,0.60653e+03_rb,0.89415e+03_rb,0.11831e+04_rb /)\n      kbo(:, 4,57,16) = (/ &\n        & 0.27089e+03_rb,0.28385e+03_rb,0.60519e+03_rb,0.89241e+03_rb,0.11806e+04_rb /)\n      kbo(:, 5,57,16) = (/ &\n        & 0.66926e+03_rb,0.34424e+03_rb,0.60385e+03_rb,0.89175e+03_rb,0.11797e+04_rb /)\n      kbo(:, 1,58,16) = (/ &\n        & 0.96406e+03_rb,0.25365e+03_rb,0.61214e+03_rb,0.90462e+03_rb,0.11971e+04_rb /)\n      kbo(:, 2,58,16) = (/ &\n        & 0.31073e+03_rb,0.28385e+03_rb,0.60888e+03_rb,0.89972e+03_rb,0.11906e+04_rb /)\n      kbo(:, 3,58,16) = (/ &\n        & 0.96405e+03_rb,0.57374e+03_rb,0.60693e+03_rb,0.89536e+03_rb,0.11848e+04_rb /)\n      kbo(:, 4,58,16) = (/ &\n        & 0.69316e+03_rb,0.13891e+03_rb,0.60560e+03_rb,0.89278e+03_rb,0.11811e+04_rb /)\n      kbo(:, 5,58,16) = (/ &\n        & 0.59755e+03_rb,0.75492e+03_rb,0.60426e+03_rb,0.89189e+03_rb,0.11798e+04_rb /)\n      kbo(:, 1,59,16) = (/ &\n        & 0.92422e+03_rb,0.39860e+03_rb,0.61256e+03_rb,0.90525e+03_rb,0.11979e+04_rb /)\n      kbo(:, 2,59,16) = (/ &\n        & 0.78877e+03_rb,0.42275e+03_rb,0.60926e+03_rb,0.90029e+03_rb,0.11913e+04_rb /)\n      kbo(:, 3,59,16) = (/ &\n        & 0.35853e+03_rb,0.65225e+03_rb,0.60710e+03_rb,0.89586e+03_rb,0.11854e+04_rb /)\n      kbo(:, 4,59,16) = (/ &\n        & 0.54975e+03_rb,0.50730e+03_rb,0.60576e+03_rb,0.88606e+03_rb,0.11813e+04_rb /)\n      kbo(:, 5,59,16) = (/ &\n        & 0.52585e+03_rb,0.62205e+03_rb,0.60442e+03_rb,0.89194e+03_rb,0.11799e+04_rb /)\n     \n      end subroutine sw_kgb28\n\n! **************************************************************************\n      subroutine sw_kgb29\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absh2oo, absco2o, rayl\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 1.32880_rb    , 2.14018_rb    , 1.97612_rb    , 1.79000_rb    , &\n        & 1.51242_rb    , 1.22977_rb    , 1.06052_rb    , 0.800996_rb   , &\n        & 0.748053_rb   , 8.64369e-02_rb, 7.10675e-02_rb, 5.62425e-02_rb, &\n        & 4.46988e-02_rb, 3.07441e-02_rb, 1.16728e-02_rb, 1.65573e-03_rb /)\n\n      absco2o(:) = (/ &\n        & 2.90073e-06_rb, 2.12382e-05_rb, 1.03032e-04_rb, 1.86481e-04_rb, &\n        & 4.31997e-04_rb, 6.08238e-04_rb, 2.17603e-03_rb, 4.64479e-02_rb, &\n        & 2.96956_rb    , 14.9569_rb    , 28.4831_rb    , 61.3998_rb    , &\n        & 164.129_rb    , 832.282_rb    , 4995.02_rb    , 12678.1_rb     /)\n\n      absh2oo(:) = (/ &\n        & 2.99508e-04_rb, 3.95012e-03_rb, 1.49316e-02_rb, 3.24384e-02_rb, &\n        & 6.92879e-02_rb, 0.123523_rb   , 0.360985_rb   , 1.86434_rb    , &\n        & 10.38157_rb   , 0.214129_rb   , 0.213914_rb   , 0.212781_rb   , &\n        & 0.215562_rb   , 0.218087_rb   , 0.220918_rb   , 0.218546_rb    /)\n           \n! Rayleigh extinction coefficient at v = 2200 cm-1.\n      rayl = 9.30e-11_rb\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.11565e-03_rb,0.10123e-03_rb,0.90804e-04_rb,0.82282e-04_rb,0.71083e-04_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.96434e-04_rb,0.82830e-04_rb,0.72366e-04_rb,0.61803e-04_rb,0.52497e-04_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.64539e-04_rb,0.56659e-04_rb,0.46605e-04_rb,0.39815e-04_rb,0.37118e-04_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.34417e-04_rb,0.27113e-04_rb,0.25362e-04_rb,0.30345e-04_rb,0.36275e-04_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.12260e-04_rb,0.15856e-04_rb,0.20834e-04_rb,0.27363e-04_rb,0.36114e-04_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.10221e-04_rb,0.14598e-04_rb,0.19695e-04_rb,0.25976e-04_rb,0.33702e-04_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.97563e-05_rb,0.13809e-04_rb,0.20231e-04_rb,0.27238e-04_rb,0.36110e-04_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.14062e-04_rb,0.19587e-04_rb,0.27069e-04_rb,0.36937e-04_rb,0.49415e-04_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.36371e-04_rb,0.48122e-04_rb,0.61586e-04_rb,0.77647e-04_rb,0.99897e-04_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.99203e-04_rb,0.12842e-03_rb,0.16588e-03_rb,0.20834e-03_rb,0.26000e-03_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.13233e-03_rb,0.17318e-03_rb,0.22059e-03_rb,0.28904e-03_rb,0.36062e-03_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.13379e-03_rb,0.17484e-03_rb,0.23687e-03_rb,0.30286e-03_rb,0.37504e-03_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.11740e-03_rb,0.15667e-03_rb,0.20962e-03_rb,0.26768e-03_rb,0.33485e-03_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.10246e-03_rb,0.10450e-03_rb,0.97383e-04_rb,0.96398e-04_rb,0.10549e-03_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.10589e-03_rb,0.10240e-03_rb,0.95801e-04_rb,0.98509e-04_rb,0.11993e-03_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.94054e-04_rb,0.87009e-04_rb,0.10941e-03_rb,0.13486e-03_rb,0.15918e-03_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.11883e-03_rb,0.14236e-03_rb,0.16636e-03_rb,0.18235e-03_rb,0.19785e-03_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.17800e-03_rb,0.19347e-03_rb,0.20977e-03_rb,0.22730e-03_rb,0.25111e-03_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.22243e-03_rb,0.24157e-03_rb,0.26567e-03_rb,0.28549e-03_rb,0.30723e-03_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.29248e-03_rb,0.32242e-03_rb,0.34635e-03_rb,0.37915e-03_rb,0.40803e-03_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.43386e-03_rb,0.48611e-03_rb,0.52681e-03_rb,0.56812e-03_rb,0.60642e-03_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.89109e-03_rb,0.10345e-02_rb,0.11794e-02_rb,0.13045e-02_rb,0.14303e-02_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.21538e-02_rb,0.24459e-02_rb,0.27329e-02_rb,0.30932e-02_rb,0.35253e-02_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.29272e-02_rb,0.32676e-02_rb,0.36353e-02_rb,0.40062e-02_rb,0.45441e-02_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.30762e-02_rb,0.34365e-02_rb,0.38146e-02_rb,0.41556e-02_rb,0.47164e-02_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.27808e-02_rb,0.31114e-02_rb,0.34383e-02_rb,0.37954e-02_rb,0.42576e-02_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.24042e-03_rb,0.32719e-03_rb,0.44370e-03_rb,0.56836e-03_rb,0.70357e-03_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.23303e-03_rb,0.31901e-03_rb,0.41926e-03_rb,0.52400e-03_rb,0.62365e-03_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.35050e-03_rb,0.42158e-03_rb,0.47490e-03_rb,0.53390e-03_rb,0.60411e-03_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.49954e-03_rb,0.53067e-03_rb,0.56338e-03_rb,0.60859e-03_rb,0.66569e-03_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.66908e-03_rb,0.69727e-03_rb,0.72898e-03_rb,0.76756e-03_rb,0.80358e-03_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.88634e-03_rb,0.92853e-03_rb,0.96856e-03_rb,0.10101e-02_rb,0.10556e-02_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.11659e-02_rb,0.12355e-02_rb,0.13238e-02_rb,0.13889e-02_rb,0.14491e-02_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.17485e-02_rb,0.18223e-02_rb,0.19411e-02_rb,0.20705e-02_rb,0.22025e-02_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.42442e-02_rb,0.43561e-02_rb,0.45061e-02_rb,0.47505e-02_rb,0.50358e-02_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.10940e-01_rb,0.11499e-01_rb,0.11906e-01_rb,0.12570e-01_rb,0.12803e-01_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.14287e-01_rb,0.15010e-01_rb,0.15581e-01_rb,0.16054e-01_rb,0.16609e-01_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.14856e-01_rb,0.15546e-01_rb,0.16074e-01_rb,0.16478e-01_rb,0.17057e-01_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.13257e-01_rb,0.13834e-01_rb,0.14155e-01_rb,0.14723e-01_rb,0.15095e-01_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.24391e-02_rb,0.28720e-02_rb,0.33497e-02_rb,0.38926e-02_rb,0.45054e-02_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.22506e-02_rb,0.26004e-02_rb,0.30002e-02_rb,0.34490e-02_rb,0.39579e-02_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.22153e-02_rb,0.25711e-02_rb,0.29320e-02_rb,0.33330e-02_rb,0.37728e-02_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.22483e-02_rb,0.25445e-02_rb,0.28745e-02_rb,0.32484e-02_rb,0.36554e-02_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.23388e-02_rb,0.25985e-02_rb,0.28914e-02_rb,0.32377e-02_rb,0.36113e-02_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.24669e-02_rb,0.26579e-02_rb,0.28834e-02_rb,0.31538e-02_rb,0.34593e-02_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.32536e-02_rb,0.33413e-02_rb,0.34375e-02_rb,0.35905e-02_rb,0.38010e-02_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.51228e-02_rb,0.51967e-02_rb,0.52820e-02_rb,0.53446e-02_rb,0.53797e-02_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.13029e-01_rb,0.13065e-01_rb,0.12891e-01_rb,0.12848e-01_rb,0.12777e-01_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.29911e-01_rb,0.30117e-01_rb,0.28340e-01_rb,0.27321e-01_rb,0.27485e-01_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.36663e-01_rb,0.36877e-01_rb,0.34688e-01_rb,0.33004e-01_rb,0.32437e-01_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.37282e-01_rb,0.37775e-01_rb,0.34910e-01_rb,0.33463e-01_rb,0.33074e-01_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.33412e-01_rb,0.32961e-01_rb,0.30323e-01_rb,0.29437e-01_rb,0.29572e-01_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.20792e-01_rb,0.22727e-01_rb,0.25207e-01_rb,0.27650e-01_rb,0.29866e-01_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.17515e-01_rb,0.19421e-01_rb,0.21509e-01_rb,0.23389e-01_rb,0.25418e-01_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.14912e-01_rb,0.16535e-01_rb,0.18159e-01_rb,0.19873e-01_rb,0.21718e-01_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.13498e-01_rb,0.14786e-01_rb,0.16253e-01_rb,0.17812e-01_rb,0.19494e-01_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.12840e-01_rb,0.13983e-01_rb,0.15257e-01_rb,0.16617e-01_rb,0.18015e-01_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.12557e-01_rb,0.13714e-01_rb,0.14939e-01_rb,0.16145e-01_rb,0.17356e-01_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.11839e-01_rb,0.12951e-01_rb,0.14090e-01_rb,0.15237e-01_rb,0.16396e-01_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.13190e-01_rb,0.13998e-01_rb,0.14783e-01_rb,0.15641e-01_rb,0.16632e-01_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.24479e-01_rb,0.24660e-01_rb,0.25206e-01_rb,0.25571e-01_rb,0.26098e-01_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.62373e-01_rb,0.60241e-01_rb,0.61372e-01_rb,0.61530e-01_rb,0.60978e-01_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.76394e-01_rb,0.73727e-01_rb,0.74701e-01_rb,0.75649e-01_rb,0.75608e-01_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.76656e-01_rb,0.73608e-01_rb,0.75610e-01_rb,0.76362e-01_rb,0.76033e-01_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.66025e-01_rb,0.64890e-01_rb,0.66873e-01_rb,0.66992e-01_rb,0.66685e-01_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.99799e-01_rb,0.10479e+00_rb,0.10918e+00_rb,0.11347e+00_rb,0.11767e+00_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.87946e-01_rb,0.91820e-01_rb,0.95208e-01_rb,0.99071e-01_rb,0.10286e+00_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.76753e-01_rb,0.80377e-01_rb,0.84204e-01_rb,0.87924e-01_rb,0.91370e-01_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.67002e-01_rb,0.70630e-01_rb,0.73736e-01_rb,0.76764e-01_rb,0.79671e-01_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.58933e-01_rb,0.61857e-01_rb,0.64756e-01_rb,0.67323e-01_rb,0.69871e-01_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.53143e-01_rb,0.55386e-01_rb,0.57507e-01_rb,0.59715e-01_rb,0.62263e-01_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.50856e-01_rb,0.52603e-01_rb,0.54414e-01_rb,0.56230e-01_rb,0.58483e-01_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.50528e-01_rb,0.52598e-01_rb,0.54634e-01_rb,0.56710e-01_rb,0.58872e-01_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.64616e-01_rb,0.65915e-01_rb,0.67210e-01_rb,0.68742e-01_rb,0.70092e-01_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.11509e+00_rb,0.11448e+00_rb,0.11368e+00_rb,0.11348e+00_rb,0.11401e+00_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.14266e+00_rb,0.13997e+00_rb,0.13810e+00_rb,0.13688e+00_rb,0.13622e+00_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.14464e+00_rb,0.14198e+00_rb,0.13915e+00_rb,0.13789e+00_rb,0.13781e+00_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.12550e+00_rb,0.12328e+00_rb,0.12173e+00_rb,0.12127e+00_rb,0.12078e+00_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.30825e+00_rb,0.31119e+00_rb,0.31335e+00_rb,0.31641e+00_rb,0.32024e+00_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.28100e+00_rb,0.28660e+00_rb,0.29192e+00_rb,0.29680e+00_rb,0.30014e+00_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.26374e+00_rb,0.27129e+00_rb,0.27887e+00_rb,0.28626e+00_rb,0.29478e+00_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.24539e+00_rb,0.25325e+00_rb,0.26070e+00_rb,0.26955e+00_rb,0.27794e+00_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.21737e+00_rb,0.22642e+00_rb,0.23531e+00_rb,0.24408e+00_rb,0.25322e+00_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.19066e+00_rb,0.19913e+00_rb,0.20834e+00_rb,0.21782e+00_rb,0.22698e+00_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.17386e+00_rb,0.18325e+00_rb,0.19211e+00_rb,0.20024e+00_rb,0.20881e+00_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.17625e+00_rb,0.18236e+00_rb,0.18905e+00_rb,0.19574e+00_rb,0.20193e+00_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.21820e+00_rb,0.22416e+00_rb,0.22986e+00_rb,0.23737e+00_rb,0.24518e+00_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.33529e+00_rb,0.34302e+00_rb,0.35397e+00_rb,0.36397e+00_rb,0.37339e+00_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.38474e+00_rb,0.39863e+00_rb,0.41168e+00_rb,0.42115e+00_rb,0.42917e+00_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.38499e+00_rb,0.39580e+00_rb,0.40497e+00_rb,0.41279e+00_rb,0.42045e+00_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.34291e+00_rb,0.35180e+00_rb,0.35970e+00_rb,0.36697e+00_rb,0.37460e+00_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.87131e+00_rb,0.87876e+00_rb,0.88509e+00_rb,0.89061e+00_rb,0.89432e+00_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.78963e+00_rb,0.79236e+00_rb,0.79978e+00_rb,0.80959e+00_rb,0.82163e+00_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.82479e+00_rb,0.82842e+00_rb,0.83069e+00_rb,0.83679e+00_rb,0.84334e+00_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.90877e+00_rb,0.91962e+00_rb,0.92466e+00_rb,0.93139e+00_rb,0.93904e+00_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.97131e+00_rb,0.99301e+00_rb,0.10095e+01_rb,0.10270e+01_rb,0.10371e+01_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.96984e+00_rb,0.10040e+01_rb,0.10393e+01_rb,0.10670e+01_rb,0.10990e+01_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.95686e+00_rb,0.10029e+01_rb,0.10449e+01_rb,0.10923e+01_rb,0.11334e+01_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.97227e+00_rb,0.10380e+01_rb,0.11014e+01_rb,0.11624e+01_rb,0.12218e+01_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.12290e+01_rb,0.13071e+01_rb,0.14005e+01_rb,0.15005e+01_rb,0.15980e+01_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.17996e+01_rb,0.19304e+01_rb,0.20752e+01_rb,0.22219e+01_rb,0.23814e+01_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.19289e+01_rb,0.20656e+01_rb,0.22166e+01_rb,0.23715e+01_rb,0.25386e+01_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.18429e+01_rb,0.19765e+01_rb,0.21175e+01_rb,0.22722e+01_rb,0.24239e+01_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.16420e+01_rb,0.17464e+01_rb,0.18635e+01_rb,0.19773e+01_rb,0.21012e+01_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.39892e+01_rb,0.40153e+01_rb,0.40324e+01_rb,0.40465e+01_rb,0.40524e+01_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.38871e+01_rb,0.39035e+01_rb,0.39123e+01_rb,0.39056e+01_rb,0.38966e+01_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.37883e+01_rb,0.37950e+01_rb,0.38080e+01_rb,0.37991e+01_rb,0.37826e+01_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.37778e+01_rb,0.37663e+01_rb,0.37745e+01_rb,0.37709e+01_rb,0.37556e+01_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.38757e+01_rb,0.38404e+01_rb,0.38539e+01_rb,0.39228e+01_rb,0.39777e+01_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.40990e+01_rb,0.41407e+01_rb,0.41745e+01_rb,0.42258e+01_rb,0.42574e+01_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.46288e+01_rb,0.46726e+01_rb,0.47096e+01_rb,0.47165e+01_rb,0.47374e+01_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.58432e+01_rb,0.58474e+01_rb,0.58608e+01_rb,0.58935e+01_rb,0.59261e+01_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.88685e+01_rb,0.88567e+01_rb,0.88137e+01_rb,0.87653e+01_rb,0.87262e+01_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.10455e+02_rb,0.10242e+02_rb,0.10004e+02_rb,0.97643e+01_rb,0.95067e+01_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.10240e+02_rb,0.99968e+01_rb,0.97347e+01_rb,0.94750e+01_rb,0.92006e+01_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.10401e+02_rb,0.10165e+02_rb,0.99240e+01_rb,0.96656e+01_rb,0.94112e+01_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.10764e+02_rb,0.10580e+02_rb,0.10381e+02_rb,0.10188e+02_rb,0.99802e+01_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.10712e+02_rb,0.10575e+02_rb,0.10581e+02_rb,0.10556e+02_rb,0.10575e+02_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.11144e+02_rb,0.11109e+02_rb,0.11034e+02_rb,0.11107e+02_rb,0.11138e+02_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.12257e+02_rb,0.12112e+02_rb,0.11992e+02_rb,0.11951e+02_rb,0.12031e+02_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.13040e+02_rb,0.13085e+02_rb,0.12882e+02_rb,0.12756e+02_rb,0.12737e+02_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.13809e+02_rb,0.13771e+02_rb,0.13452e+02_rb,0.12567e+02_rb,0.12086e+02_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.14608e+02_rb,0.13942e+02_rb,0.13365e+02_rb,0.13494e+02_rb,0.13762e+02_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.14665e+02_rb,0.14685e+02_rb,0.15121e+02_rb,0.15602e+02_rb,0.15768e+02_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.15612e+02_rb,0.16507e+02_rb,0.16644e+02_rb,0.16706e+02_rb,0.16696e+02_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.15405e+02_rb,0.15874e+02_rb,0.16716e+02_rb,0.17957e+02_rb,0.17859e+02_rb /)\n      kao(:,10,10) = (/ &\n        & 0.19406e+00_rb,0.17932e+00_rb,0.16660e+00_rb,0.15558e+00_rb,0.14589e+00_rb /)\n      kao(:,11,10) = (/ &\n        & 0.27650e+00_rb,0.25556e+00_rb,0.23727e+00_rb,0.22182e+00_rb,0.20805e+00_rb /)\n      kao(:,12,10) = (/ &\n        & 0.29298e+00_rb,0.27044e+00_rb,0.25162e+00_rb,0.23497e+00_rb,0.22076e+00_rb /)\n      kao(:,13,10) = (/ &\n        & 0.24883e+00_rb,0.22985e+00_rb,0.21413e+00_rb,0.20012e+00_rb,0.18795e+00_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.13650e+02_rb,0.13767e+02_rb,0.13771e+02_rb,0.13650e+02_rb,0.13663e+02_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.15146e+02_rb,0.15253e+02_rb,0.15272e+02_rb,0.15152e+02_rb,0.15138e+02_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.16834e+02_rb,0.17107e+02_rb,0.17158e+02_rb,0.17187e+02_rb,0.17057e+02_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.19191e+02_rb,0.19144e+02_rb,0.19155e+02_rb,0.19247e+02_rb,0.19292e+02_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.20953e+02_rb,0.21248e+02_rb,0.21186e+02_rb,0.21027e+02_rb,0.20703e+02_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.22592e+02_rb,0.22192e+02_rb,0.22056e+02_rb,0.20972e+02_rb,0.19910e+02_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.24652e+02_rb,0.23679e+02_rb,0.22339e+02_rb,0.21302e+02_rb,0.21697e+02_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.22508e+02_rb,0.20438e+02_rb,0.20163e+02_rb,0.20628e+02_rb,0.20954e+02_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.10264e+02_rb,0.85820e+01_rb,0.65270e+01_rb,0.38883e+01_rb,0.27974e+01_rb /)\n      kao(:,10,11) = (/ &\n        & 0.19324e+00_rb,0.17913e+00_rb,0.16619e+00_rb,0.15516e+00_rb,0.14524e+00_rb /)\n      kao(:,11,11) = (/ &\n        & 0.27573e+00_rb,0.25425e+00_rb,0.23627e+00_rb,0.22036e+00_rb,0.20639e+00_rb /)\n      kao(:,12,11) = (/ &\n        & 0.29224e+00_rb,0.26998e+00_rb,0.25055e+00_rb,0.23380e+00_rb,0.21908e+00_rb /)\n      kao(:,13,11) = (/ &\n        & 0.24964e+00_rb,0.23056e+00_rb,0.21391e+00_rb,0.19980e+00_rb,0.18698e+00_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.17721e+02_rb,0.17805e+02_rb,0.17752e+02_rb,0.17857e+02_rb,0.17872e+02_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.20222e+02_rb,0.20161e+02_rb,0.20267e+02_rb,0.20335e+02_rb,0.20254e+02_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.23717e+02_rb,0.23414e+02_rb,0.23571e+02_rb,0.23552e+02_rb,0.23687e+02_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.26876e+02_rb,0.26972e+02_rb,0.27155e+02_rb,0.26947e+02_rb,0.27025e+02_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.30213e+02_rb,0.29978e+02_rb,0.30226e+02_rb,0.30477e+02_rb,0.30329e+02_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.33660e+02_rb,0.33482e+02_rb,0.33159e+02_rb,0.32959e+02_rb,0.32299e+02_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.35893e+02_rb,0.35649e+02_rb,0.35067e+02_rb,0.34565e+02_rb,0.32437e+02_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.33426e+02_rb,0.33323e+02_rb,0.31984e+02_rb,0.29587e+02_rb,0.27505e+02_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.46633e-01_rb,0.43205e-01_rb,0.40562e-01_rb,0.38133e-01_rb,0.35900e-01_rb /)\n      kao(:,10,12) = (/ &\n        & 0.19421e+00_rb,0.18024e+00_rb,0.16872e+00_rb,0.15815e+00_rb,0.14837e+00_rb /)\n      kao(:,11,12) = (/ &\n        & 0.27315e+00_rb,0.25480e+00_rb,0.23771e+00_rb,0.22191e+00_rb,0.20780e+00_rb /)\n      kao(:,12,12) = (/ &\n        & 0.29027e+00_rb,0.26969e+00_rb,0.25017e+00_rb,0.23314e+00_rb,0.21774e+00_rb /)\n      kao(:,13,12) = (/ &\n        & 0.24833e+00_rb,0.22943e+00_rb,0.21278e+00_rb,0.19800e+00_rb,0.18543e+00_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.29672e+02_rb,0.29291e+02_rb,0.29191e+02_rb,0.29170e+02_rb,0.29116e+02_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.24713e+02_rb,0.24965e+02_rb,0.25039e+02_rb,0.25355e+02_rb,0.25650e+02_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.30510e+02_rb,0.31166e+02_rb,0.30663e+02_rb,0.31021e+02_rb,0.30901e+02_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.38695e+02_rb,0.38922e+02_rb,0.38741e+02_rb,0.39204e+02_rb,0.38826e+02_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.45118e+02_rb,0.44337e+02_rb,0.43664e+02_rb,0.43267e+02_rb,0.43524e+02_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.34652e+02_rb,0.35182e+02_rb,0.35339e+02_rb,0.35340e+02_rb,0.35899e+02_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.18801e+02_rb,0.18598e+02_rb,0.18855e+02_rb,0.18819e+02_rb,0.19052e+02_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.12297e-01_rb,0.11425e-01_rb,0.10670e-01_rb,0.99994e-02_rb,0.94139e-02_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.46821e-01_rb,0.43361e-01_rb,0.40368e-01_rb,0.37752e-01_rb,0.35493e-01_rb /)\n      kao(:,10,13) = (/ &\n        & 0.19817e+00_rb,0.18303e+00_rb,0.17002e+00_rb,0.15883e+00_rb,0.14933e+00_rb /)\n      kao(:,11,13) = (/ &\n        & 0.28145e+00_rb,0.25995e+00_rb,0.24181e+00_rb,0.22660e+00_rb,0.21326e+00_rb /)\n      kao(:,12,13) = (/ &\n        & 0.29510e+00_rb,0.27294e+00_rb,0.25519e+00_rb,0.23947e+00_rb,0.22551e+00_rb /)\n      kao(:,13,13) = (/ &\n        & 0.24830e+00_rb,0.23074e+00_rb,0.21556e+00_rb,0.20226e+00_rb,0.19029e+00_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.47168e+02_rb,0.46890e+02_rb,0.46612e+02_rb,0.46353e+02_rb,0.46088e+02_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.47771e+02_rb,0.46980e+02_rb,0.46445e+02_rb,0.45828e+02_rb,0.45437e+02_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.42946e+02_rb,0.42652e+02_rb,0.43791e+02_rb,0.43237e+02_rb,0.44104e+02_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.30957e+02_rb,0.30098e+02_rb,0.30055e+02_rb,0.29555e+02_rb,0.29902e+02_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.28397e+01_rb,0.38572e+01_rb,0.42906e+01_rb,0.47091e+01_rb,0.48135e+01_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.36978e-02_rb,0.34591e-02_rb,0.32524e-02_rb,0.30649e-02_rb,0.29018e-02_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.61733e-02_rb,0.57589e-02_rb,0.53925e-02_rb,0.50742e-02_rb,0.47835e-02_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.12390e-01_rb,0.11526e-01_rb,0.10766e-01_rb,0.10096e-01_rb,0.95010e-02_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.47105e-01_rb,0.43648e-01_rb,0.40665e-01_rb,0.38054e-01_rb,0.35722e-01_rb /)\n      kao(:,10,14) = (/ &\n        & 0.19915e+00_rb,0.18412e+00_rb,0.17099e+00_rb,0.15957e+00_rb,0.14948e+00_rb /)\n      kao(:,11,14) = (/ &\n        & 0.28280e+00_rb,0.26124e+00_rb,0.24266e+00_rb,0.22645e+00_rb,0.21214e+00_rb /)\n      kao(:,12,14) = (/ &\n        & 0.29891e+00_rb,0.27613e+00_rb,0.25648e+00_rb,0.23927e+00_rb,0.22423e+00_rb /)\n      kao(:,13,14) = (/ &\n        & 0.25421e+00_rb,0.23484e+00_rb,0.21809e+00_rb,0.20347e+00_rb,0.19057e+00_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.64994e+02_rb,0.64283e+02_rb,0.63755e+02_rb,0.63407e+02_rb,0.63287e+02_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.78266e+02_rb,0.77364e+02_rb,0.76722e+02_rb,0.76285e+02_rb,0.75992e+02_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.41710e+02_rb,0.38379e+02_rb,0.35076e+02_rb,0.35418e+02_rb,0.33306e+02_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.14170e-02_rb,0.13401e-02_rb,0.12716e-02_rb,0.12073e-02_rb,0.11535e-02_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.23659e-02_rb,0.22261e-02_rb,0.21042e-02_rb,0.19950e-02_rb,0.18970e-02_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.37432e-02_rb,0.35105e-02_rb,0.33006e-02_rb,0.31222e-02_rb,0.29521e-02_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.62408e-02_rb,0.58258e-02_rb,0.54782e-02_rb,0.51594e-02_rb,0.48767e-02_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.12522e-01_rb,0.11652e-01_rb,0.10922e-01_rb,0.10265e-01_rb,0.96672e-02_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.47545e-01_rb,0.44152e-01_rb,0.41251e-01_rb,0.38666e-01_rb,0.36358e-01_rb /)\n      kao(:,10,15) = (/ &\n        & 0.20097e+00_rb,0.18592e+00_rb,0.17341e+00_rb,0.16203e+00_rb,0.15235e+00_rb /)\n      kao(:,11,15) = (/ &\n        & 0.28499e+00_rb,0.26428e+00_rb,0.24585e+00_rb,0.22980e+00_rb,0.21575e+00_rb /)\n      kao(:,12,15) = (/ &\n        & 0.30172e+00_rb,0.27929e+00_rb,0.25980e+00_rb,0.24306e+00_rb,0.22789e+00_rb /)\n      kao(:,13,15) = (/ &\n        & 0.25655e+00_rb,0.23731e+00_rb,0.22092e+00_rb,0.20639e+00_rb,0.19367e+00_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.80810e+02_rb,0.81099e+02_rb,0.81190e+02_rb,0.81107e+02_rb,0.80989e+02_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.99319e+02_rb,0.99708e+02_rb,0.99822e+02_rb,0.99871e+02_rb,0.99993e+02_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.46927e+02_rb,0.54316e+02_rb,0.57355e+02_rb,0.53715e+02_rb,0.52802e+02_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.12802e-02_rb,0.12027e-02_rb,0.11386e-02_rb,0.10866e-02_rb,0.10525e-02_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.21675e-02_rb,0.20715e-02_rb,0.19422e-02_rb,0.18402e-02_rb,0.17681e-02_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.34707e-02_rb,0.32796e-02_rb,0.30986e-02_rb,0.29246e-02_rb,0.28034e-02_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.58659e-02_rb,0.55310e-02_rb,0.51820e-02_rb,0.48829e-02_rb,0.46784e-02_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.11875e-01_rb,0.11183e-01_rb,0.10438e-01_rb,0.98038e-02_rb,0.93665e-02_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.45519e-01_rb,0.42850e-01_rb,0.39715e-01_rb,0.37447e-01_rb,0.35369e-01_rb /)\n      kao(:,10,16) = (/ &\n        & 0.19392e+00_rb,0.18108e+00_rb,0.16817e+00_rb,0.15883e+00_rb,0.14864e+00_rb /)\n      kao(:,11,16) = (/ &\n        & 0.27830e+00_rb,0.25715e+00_rb,0.24100e+00_rb,0.22595e+00_rb,0.21321e+00_rb /)\n      kao(:,12,16) = (/ &\n        & 0.29533e+00_rb,0.27422e+00_rb,0.25636e+00_rb,0.23936e+00_rb,0.22658e+00_rb /)\n      kao(:,13,16) = (/ &\n        & 0.25310e+00_rb,0.23535e+00_rb,0.21855e+00_rb,0.20552e+00_rb,0.19293e+00_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.18379e-05_rb,0.23296e-05_rb,0.29007e-05_rb,0.35902e-05_rb,0.43437e-05_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.15919e-05_rb,0.19832e-05_rb,0.24720e-05_rb,0.30683e-05_rb,0.37253e-05_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.13850e-05_rb,0.17115e-05_rb,0.21225e-05_rb,0.26292e-05_rb,0.31945e-05_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.11896e-05_rb,0.14680e-05_rb,0.18142e-05_rb,0.22537e-05_rb,0.27284e-05_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.10228e-05_rb,0.12597e-05_rb,0.15532e-05_rb,0.19272e-05_rb,0.23163e-05_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.88243e-06_rb,0.10835e-05_rb,0.13316e-05_rb,0.16603e-05_rb,0.19808e-05_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.75677e-06_rb,0.92925e-06_rb,0.11401e-05_rb,0.14107e-05_rb,0.16901e-05_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.64614e-06_rb,0.79361e-06_rb,0.97353e-06_rb,0.11964e-05_rb,0.14414e-05_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.55323e-06_rb,0.67580e-06_rb,0.82647e-06_rb,0.10137e-05_rb,0.12318e-05_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.47719e-06_rb,0.58149e-06_rb,0.71060e-06_rb,0.87005e-06_rb,0.10605e-05_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.41128e-06_rb,0.50080e-06_rb,0.61104e-06_rb,0.75347e-06_rb,0.91200e-06_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.35306e-06_rb,0.42860e-06_rb,0.52320e-06_rb,0.65156e-06_rb,0.78122e-06_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.30363e-06_rb,0.36731e-06_rb,0.44673e-06_rb,0.56097e-06_rb,0.66791e-06_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.26073e-06_rb,0.31537e-06_rb,0.38738e-06_rb,0.48210e-06_rb,0.57382e-06_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.22303e-06_rb,0.26986e-06_rb,0.33628e-06_rb,0.41161e-06_rb,0.48722e-06_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.18954e-06_rb,0.22952e-06_rb,0.28797e-06_rb,0.35166e-06_rb,0.41440e-06_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.16106e-06_rb,0.19430e-06_rb,0.24661e-06_rb,0.29815e-06_rb,0.35151e-06_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.13630e-06_rb,0.16528e-06_rb,0.20922e-06_rb,0.25193e-06_rb,0.29913e-06_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.11504e-06_rb,0.14276e-06_rb,0.17807e-06_rb,0.21482e-06_rb,0.25451e-06_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.96980e-07_rb,0.12215e-06_rb,0.15159e-06_rb,0.18179e-06_rb,0.21515e-06_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.81598e-07_rb,0.10315e-06_rb,0.12730e-06_rb,0.15190e-06_rb,0.18093e-06_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.67700e-07_rb,0.85970e-07_rb,0.10559e-06_rb,0.12608e-06_rb,0.15006e-06_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.55177e-07_rb,0.69519e-07_rb,0.85967e-07_rb,0.10223e-06_rb,0.12147e-06_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.43924e-07_rb,0.54395e-07_rb,0.67998e-07_rb,0.81142e-07_rb,0.95717e-07_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.34469e-07_rb,0.41036e-07_rb,0.52575e-07_rb,0.63117e-07_rb,0.74301e-07_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.26777e-07_rb,0.31734e-07_rb,0.40555e-07_rb,0.49032e-07_rb,0.57653e-07_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.20670e-07_rb,0.24721e-07_rb,0.30685e-07_rb,0.37873e-07_rb,0.44555e-07_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.15860e-07_rb,0.19032e-07_rb,0.22612e-07_rb,0.28845e-07_rb,0.34246e-07_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.12129e-07_rb,0.14603e-07_rb,0.17357e-07_rb,0.21851e-07_rb,0.26346e-07_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.92319e-08_rb,0.11199e-07_rb,0.13365e-07_rb,0.16174e-07_rb,0.20019e-07_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.69289e-08_rb,0.84537e-08_rb,0.10159e-07_rb,0.11992e-07_rb,0.14940e-07_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.51546e-08_rb,0.63380e-08_rb,0.76593e-08_rb,0.90562e-08_rb,0.10716e-07_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.38335e-08_rb,0.47085e-08_rb,0.57219e-08_rb,0.68148e-08_rb,0.79518e-08_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.28583e-08_rb,0.34724e-08_rb,0.42447e-08_rb,0.50888e-08_rb,0.59494e-08_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.20945e-08_rb,0.25418e-08_rb,0.31058e-08_rb,0.37494e-08_rb,0.44274e-08_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.15164e-08_rb,0.18560e-08_rb,0.22628e-08_rb,0.27371e-08_rb,0.32773e-08_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.10916e-08_rb,0.13465e-08_rb,0.16387e-08_rb,0.19740e-08_rb,0.23865e-08_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.78324e-09_rb,0.98361e-09_rb,0.11977e-08_rb,0.14517e-08_rb,0.17457e-08_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.57263e-09_rb,0.71786e-09_rb,0.87689e-09_rb,0.10705e-08_rb,0.12881e-08_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.41574e-09_rb,0.51264e-09_rb,0.64152e-09_rb,0.78315e-09_rb,0.94705e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.29940e-09_rb,0.36836e-09_rb,0.45886e-09_rb,0.56405e-09_rb,0.69166e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.22617e-09_rb,0.27395e-09_rb,0.33754e-09_rb,0.42095e-09_rb,0.51544e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.17483e-09_rb,0.20845e-09_rb,0.25546e-09_rb,0.31817e-09_rb,0.39119e-09_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.13496e-09_rb,0.15930e-09_rb,0.19380e-09_rb,0.23861e-09_rb,0.29770e-09_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.10406e-09_rb,0.12247e-09_rb,0.14749e-09_rb,0.18078e-09_rb,0.22597e-09_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.81345e-10_rb,0.94816e-10_rb,0.11329e-09_rb,0.13832e-09_rb,0.17161e-09_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.67159e-10_rb,0.78312e-10_rb,0.94745e-10_rb,0.11544e-09_rb,0.14442e-09_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.16654e-04_rb,0.18728e-04_rb,0.21238e-04_rb,0.24491e-04_rb,0.29038e-04_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.15636e-04_rb,0.17574e-04_rb,0.19918e-04_rb,0.23671e-04_rb,0.27237e-04_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.14853e-04_rb,0.16629e-04_rb,0.19700e-04_rb,0.22604e-04_rb,0.25586e-04_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.13519e-04_rb,0.15923e-04_rb,0.18289e-04_rb,0.20530e-04_rb,0.22799e-04_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.12411e-04_rb,0.14439e-04_rb,0.16431e-04_rb,0.18235e-04_rb,0.20109e-04_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.11267e-04_rb,0.12880e-04_rb,0.14429e-04_rb,0.16005e-04_rb,0.17538e-04_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.10025e-04_rb,0.11332e-04_rb,0.12550e-04_rb,0.13853e-04_rb,0.15103e-04_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.86342e-05_rb,0.97455e-05_rb,0.10778e-04_rb,0.11898e-04_rb,0.12789e-04_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.74004e-05_rb,0.83107e-05_rb,0.91633e-05_rb,0.10071e-04_rb,0.10674e-04_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.63700e-05_rb,0.70549e-05_rb,0.78271e-05_rb,0.85170e-05_rb,0.90022e-05_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.54404e-05_rb,0.60156e-05_rb,0.66393e-05_rb,0.71320e-05_rb,0.75007e-05_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.45997e-05_rb,0.50718e-05_rb,0.55713e-05_rb,0.59455e-05_rb,0.62118e-05_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.38745e-05_rb,0.42617e-05_rb,0.46479e-05_rb,0.49297e-05_rb,0.51638e-05_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.32488e-05_rb,0.35592e-05_rb,0.38685e-05_rb,0.40759e-05_rb,0.43092e-05_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.26995e-05_rb,0.29601e-05_rb,0.32065e-05_rb,0.33666e-05_rb,0.35609e-05_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.22359e-05_rb,0.24429e-05_rb,0.26408e-05_rb,0.27752e-05_rb,0.29293e-05_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.18487e-05_rb,0.20089e-05_rb,0.21668e-05_rb,0.22793e-05_rb,0.24029e-05_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.15291e-05_rb,0.16589e-05_rb,0.17733e-05_rb,0.18706e-05_rb,0.19584e-05_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.12554e-05_rb,0.13589e-05_rb,0.14436e-05_rb,0.15195e-05_rb,0.15928e-05_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.10248e-05_rb,0.11046e-05_rb,0.11716e-05_rb,0.12288e-05_rb,0.12916e-05_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.83272e-06_rb,0.89120e-06_rb,0.95036e-06_rb,0.99040e-06_rb,0.10409e-05_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.67518e-06_rb,0.72097e-06_rb,0.76854e-06_rb,0.80246e-06_rb,0.83912e-06_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.53577e-06_rb,0.57870e-06_rb,0.61715e-06_rb,0.64987e-06_rb,0.67220e-06_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.42402e-06_rb,0.45825e-06_rb,0.49307e-06_rb,0.52005e-06_rb,0.54029e-06_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.33419e-06_rb,0.36213e-06_rb,0.38911e-06_rb,0.41359e-06_rb,0.43177e-06_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.26240e-06_rb,0.28355e-06_rb,0.30530e-06_rb,0.32881e-06_rb,0.34617e-06_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.20468e-06_rb,0.22245e-06_rb,0.23980e-06_rb,0.25776e-06_rb,0.27424e-06_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.16070e-06_rb,0.17478e-06_rb,0.18856e-06_rb,0.20230e-06_rb,0.21801e-06_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.12583e-06_rb,0.13680e-06_rb,0.14851e-06_rb,0.15917e-06_rb,0.17184e-06_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.98494e-07_rb,0.10639e-06_rb,0.11634e-06_rb,0.12500e-06_rb,0.13490e-06_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.75196e-07_rb,0.82809e-07_rb,0.90095e-07_rb,0.97952e-07_rb,0.10509e-06_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.57305e-07_rb,0.63787e-07_rb,0.69227e-07_rb,0.75635e-07_rb,0.81687e-07_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.42965e-07_rb,0.48245e-07_rb,0.53346e-07_rb,0.58061e-07_rb,0.63120e-07_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.31048e-07_rb,0.36457e-07_rb,0.40514e-07_rb,0.44557e-07_rb,0.48550e-07_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.23094e-07_rb,0.26356e-07_rb,0.30443e-07_rb,0.33954e-07_rb,0.36789e-07_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.16858e-07_rb,0.19402e-07_rb,0.22449e-07_rb,0.25401e-07_rb,0.28254e-07_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.11413e-07_rb,0.14055e-07_rb,0.16046e-07_rb,0.18927e-07_rb,0.21080e-07_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.78650e-08_rb,0.99879e-08_rb,0.11846e-07_rb,0.13654e-07_rb,0.15871e-07_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.55417e-08_rb,0.68977e-08_rb,0.87006e-08_rb,0.10108e-07_rb,0.11829e-07_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.39143e-08_rb,0.48025e-08_rb,0.60180e-08_rb,0.73762e-08_rb,0.85851e-08_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.27637e-08_rb,0.33397e-08_rb,0.41996e-08_rb,0.52787e-08_rb,0.62923e-08_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.19691e-08_rb,0.24529e-08_rb,0.30071e-08_rb,0.38041e-08_rb,0.46981e-08_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.13034e-08_rb,0.18257e-08_rb,0.22359e-08_rb,0.28210e-08_rb,0.35386e-08_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.10026e-08_rb,0.13422e-08_rb,0.16687e-08_rb,0.20793e-08_rb,0.26054e-08_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.77730e-09_rb,0.91190e-09_rb,0.12468e-08_rb,0.15302e-08_rb,0.19418e-08_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.60359e-09_rb,0.67848e-09_rb,0.92414e-09_rb,0.11511e-08_rb,0.14401e-08_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.50441e-09_rb,0.56797e-09_rb,0.77369e-09_rb,0.95612e-09_rb,0.11957e-08_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.98124e-04_rb,0.10149e-03_rb,0.10303e-03_rb,0.10669e-03_rb,0.10870e-03_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.88110e-04_rb,0.89730e-04_rb,0.90679e-04_rb,0.91892e-04_rb,0.91413e-04_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.78555e-04_rb,0.78633e-04_rb,0.79145e-04_rb,0.77689e-04_rb,0.77791e-04_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.67245e-04_rb,0.67743e-04_rb,0.66690e-04_rb,0.65765e-04_rb,0.65950e-04_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.57553e-04_rb,0.57490e-04_rb,0.56012e-04_rb,0.55634e-04_rb,0.56016e-04_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.49729e-04_rb,0.48302e-04_rb,0.47418e-04_rb,0.47262e-04_rb,0.47732e-04_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.42101e-04_rb,0.40906e-04_rb,0.40541e-04_rb,0.40229e-04_rb,0.40671e-04_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.35046e-04_rb,0.34193e-04_rb,0.34032e-04_rb,0.33881e-04_rb,0.34691e-04_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.29192e-04_rb,0.28813e-04_rb,0.28525e-04_rb,0.28485e-04_rb,0.29764e-04_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.24212e-04_rb,0.23970e-04_rb,0.23804e-04_rb,0.23947e-04_rb,0.24310e-04_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.20167e-04_rb,0.19961e-04_rb,0.19837e-04_rb,0.20528e-04_rb,0.19887e-04_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.16817e-04_rb,0.16624e-04_rb,0.16525e-04_rb,0.17263e-04_rb,0.16481e-04_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.13896e-04_rb,0.13806e-04_rb,0.13810e-04_rb,0.14348e-04_rb,0.13634e-04_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11515e-04_rb,0.11474e-04_rb,0.11553e-04_rb,0.11705e-04_rb,0.11167e-04_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.95004e-05_rb,0.94543e-05_rb,0.95650e-05_rb,0.95316e-05_rb,0.91651e-05_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.78135e-05_rb,0.77862e-05_rb,0.78715e-05_rb,0.77825e-05_rb,0.74877e-05_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.63615e-05_rb,0.63601e-05_rb,0.64198e-05_rb,0.63507e-05_rb,0.61200e-05_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.51738e-05_rb,0.51781e-05_rb,0.52250e-05_rb,0.51709e-05_rb,0.50243e-05_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.41825e-05_rb,0.42240e-05_rb,0.42510e-05_rb,0.42241e-05_rb,0.41058e-05_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.34024e-05_rb,0.34302e-05_rb,0.34514e-05_rb,0.34436e-05_rb,0.33474e-05_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.27510e-05_rb,0.27828e-05_rb,0.28059e-05_rb,0.28125e-05_rb,0.27394e-05_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.22195e-05_rb,0.22517e-05_rb,0.22743e-05_rb,0.22728e-05_rb,0.22254e-05_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.18029e-05_rb,0.18238e-05_rb,0.18432e-05_rb,0.18461e-05_rb,0.18241e-05_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.14477e-05_rb,0.14734e-05_rb,0.14936e-05_rb,0.15116e-05_rb,0.14874e-05_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.11637e-05_rb,0.11929e-05_rb,0.12098e-05_rb,0.12265e-05_rb,0.12076e-05_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.93292e-06_rb,0.96246e-06_rb,0.98169e-06_rb,0.99435e-06_rb,0.98749e-06_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.74927e-06_rb,0.76742e-06_rb,0.79020e-06_rb,0.80604e-06_rb,0.81415e-06_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.60479e-06_rb,0.61743e-06_rb,0.63973e-06_rb,0.65295e-06_rb,0.66261e-06_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.48450e-06_rb,0.49742e-06_rb,0.51366e-06_rb,0.52876e-06_rb,0.53813e-06_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.38298e-06_rb,0.40088e-06_rb,0.41192e-06_rb,0.42651e-06_rb,0.43595e-06_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.30310e-06_rb,0.31905e-06_rb,0.32907e-06_rb,0.34154e-06_rb,0.35007e-06_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.23745e-06_rb,0.25035e-06_rb,0.26224e-06_rb,0.27145e-06_rb,0.28146e-06_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.18653e-06_rb,0.19510e-06_rb,0.20644e-06_rb,0.21510e-06_rb,0.22354e-06_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.14759e-06_rb,0.15322e-06_rb,0.16145e-06_rb,0.17034e-06_rb,0.17744e-06_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.11410e-06_rb,0.12007e-06_rb,0.12507e-06_rb,0.13237e-06_rb,0.13995e-06_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.88327e-07_rb,0.93967e-07_rb,0.97683e-07_rb,0.10257e-06_rb,0.10921e-06_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.66715e-07_rb,0.72172e-07_rb,0.76442e-07_rb,0.79214e-07_rb,0.84006e-07_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.51458e-07_rb,0.55761e-07_rb,0.59239e-07_rb,0.62292e-07_rb,0.64470e-07_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.39957e-07_rb,0.42400e-07_rb,0.45870e-07_rb,0.48592e-07_rb,0.50287e-07_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.31150e-07_rb,0.32725e-07_rb,0.35598e-07_rb,0.37633e-07_rb,0.39607e-07_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.23783e-07_rb,0.25415e-07_rb,0.26634e-07_rb,0.28885e-07_rb,0.30620e-07_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.18531e-07_rb,0.19938e-07_rb,0.20988e-07_rb,0.22678e-07_rb,0.23867e-07_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.14810e-07_rb,0.15772e-07_rb,0.16651e-07_rb,0.17727e-07_rb,0.18861e-07_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.11652e-07_rb,0.12557e-07_rb,0.13319e-07_rb,0.13930e-07_rb,0.15077e-07_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.91523e-08_rb,0.99835e-08_rb,0.10603e-07_rb,0.11081e-07_rb,0.11999e-07_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.72383e-08_rb,0.79060e-08_rb,0.84489e-08_rb,0.88615e-08_rb,0.94456e-08_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.60315e-08_rb,0.65931e-08_rb,0.71001e-08_rb,0.74012e-08_rb,0.78761e-08_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.21882e-03_rb,0.20968e-03_rb,0.18648e-03_rb,0.17505e-03_rb,0.17320e-03_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.19140e-03_rb,0.17026e-03_rb,0.15903e-03_rb,0.15552e-03_rb,0.16009e-03_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.16003e-03_rb,0.14531e-03_rb,0.14007e-03_rb,0.14511e-03_rb,0.14619e-03_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.13387e-03_rb,0.12423e-03_rb,0.12444e-03_rb,0.12743e-03_rb,0.12749e-03_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.11266e-03_rb,0.10780e-03_rb,0.11110e-03_rb,0.11051e-03_rb,0.11075e-03_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.96156e-04_rb,0.95617e-04_rb,0.96775e-04_rb,0.96220e-04_rb,0.96078e-04_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.82712e-04_rb,0.82946e-04_rb,0.83265e-04_rb,0.82827e-04_rb,0.82044e-04_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.71080e-04_rb,0.71167e-04_rb,0.71040e-04_rb,0.70443e-04_rb,0.69069e-04_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.60110e-04_rb,0.60836e-04_rb,0.59994e-04_rb,0.58992e-04_rb,0.57237e-04_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.50688e-04_rb,0.51296e-04_rb,0.50271e-04_rb,0.48889e-04_rb,0.48471e-04_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.42706e-04_rb,0.42628e-04_rb,0.41764e-04_rb,0.39999e-04_rb,0.40893e-04_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.35803e-04_rb,0.35316e-04_rb,0.34535e-04_rb,0.33229e-04_rb,0.34127e-04_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.29906e-04_rb,0.29201e-04_rb,0.28336e-04_rb,0.27455e-04_rb,0.28044e-04_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.24659e-04_rb,0.23926e-04_rb,0.23159e-04_rb,0.22827e-04_rb,0.23266e-04_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.20221e-04_rb,0.19578e-04_rb,0.18838e-04_rb,0.18853e-04_rb,0.19067e-04_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.16345e-04_rb,0.15913e-04_rb,0.15327e-04_rb,0.15412e-04_rb,0.15560e-04_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.13195e-04_rb,0.12870e-04_rb,0.12430e-04_rb,0.12518e-04_rb,0.12639e-04_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.10622e-04_rb,0.10384e-04_rb,0.10068e-04_rb,0.10151e-04_rb,0.10256e-04_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.85785e-05_rb,0.83523e-05_rb,0.81227e-05_rb,0.81998e-05_rb,0.83313e-05_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.69114e-05_rb,0.67093e-05_rb,0.65758e-05_rb,0.66222e-05_rb,0.67679e-05_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.55456e-05_rb,0.54342e-05_rb,0.53229e-05_rb,0.53610e-05_rb,0.54819e-05_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.44461e-05_rb,0.43891e-05_rb,0.43112e-05_rb,0.43632e-05_rb,0.44560e-05_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.35725e-05_rb,0.35192e-05_rb,0.34703e-05_rb,0.35075e-05_rb,0.35919e-05_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.28842e-05_rb,0.28362e-05_rb,0.28143e-05_rb,0.28097e-05_rb,0.29057e-05_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.23374e-05_rb,0.22987e-05_rb,0.22934e-05_rb,0.22812e-05_rb,0.23451e-05_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.18966e-05_rb,0.18679e-05_rb,0.18613e-05_rb,0.18437e-05_rb,0.18894e-05_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.15300e-05_rb,0.15180e-05_rb,0.15096e-05_rb,0.14915e-05_rb,0.15107e-05_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.12426e-05_rb,0.12357e-05_rb,0.12171e-05_rb,0.12170e-05_rb,0.12227e-05_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.10102e-05_rb,0.10077e-05_rb,0.98593e-06_rb,0.98478e-06_rb,0.99213e-06_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.82201e-06_rb,0.81050e-06_rb,0.80313e-06_rb,0.80181e-06_rb,0.80361e-06_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.67318e-06_rb,0.65347e-06_rb,0.65478e-06_rb,0.64360e-06_rb,0.64722e-06_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.55598e-06_rb,0.53355e-06_rb,0.52778e-06_rb,0.52097e-06_rb,0.51997e-06_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.46157e-06_rb,0.43457e-06_rb,0.42412e-06_rb,0.42137e-06_rb,0.41750e-06_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.39156e-06_rb,0.35690e-06_rb,0.34498e-06_rb,0.33995e-06_rb,0.33614e-06_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.33392e-06_rb,0.29746e-06_rb,0.28074e-06_rb,0.27344e-06_rb,0.27079e-06_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.27066e-06_rb,0.25369e-06_rb,0.23115e-06_rb,0.22213e-06_rb,0.21766e-06_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.22198e-06_rb,0.21395e-06_rb,0.19274e-06_rb,0.18040e-06_rb,0.17542e-06_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.18070e-06_rb,0.17367e-06_rb,0.16473e-06_rb,0.14916e-06_rb,0.14306e-06_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.14595e-06_rb,0.14287e-06_rb,0.13847e-06_rb,0.12418e-06_rb,0.11697e-06_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.11819e-06_rb,0.11588e-06_rb,0.11225e-06_rb,0.10604e-06_rb,0.96269e-07_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.95028e-07_rb,0.93094e-07_rb,0.91303e-07_rb,0.88900e-07_rb,0.80262e-07_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.77005e-07_rb,0.76238e-07_rb,0.74228e-07_rb,0.72526e-07_rb,0.67965e-07_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.62979e-07_rb,0.62692e-07_rb,0.60930e-07_rb,0.59579e-07_rb,0.57700e-07_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.51571e-07_rb,0.51196e-07_rb,0.50031e-07_rb,0.48916e-07_rb,0.48127e-07_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.42602e-07_rb,0.41678e-07_rb,0.41006e-07_rb,0.39709e-07_rb,0.39283e-07_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.35155e-07_rb,0.34052e-07_rb,0.33561e-07_rb,0.32395e-07_rb,0.32057e-07_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.29318e-07_rb,0.28516e-07_rb,0.28097e-07_rb,0.26888e-07_rb,0.26840e-07_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.43718e-03_rb,0.42279e-03_rb,0.43200e-03_rb,0.42910e-03_rb,0.42775e-03_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.37902e-03_rb,0.38090e-03_rb,0.38058e-03_rb,0.37637e-03_rb,0.36798e-03_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.33222e-03_rb,0.33597e-03_rb,0.33205e-03_rb,0.32000e-03_rb,0.31310e-03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.28736e-03_rb,0.28700e-03_rb,0.27853e-03_rb,0.26891e-03_rb,0.26391e-03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.24534e-03_rb,0.24098e-03_rb,0.23072e-03_rb,0.22519e-03_rb,0.22013e-03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.20645e-03_rb,0.20019e-03_rb,0.19266e-03_rb,0.18716e-03_rb,0.18139e-03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.17271e-03_rb,0.16642e-03_rb,0.16064e-03_rb,0.15556e-03_rb,0.14951e-03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.14266e-03_rb,0.13766e-03_rb,0.13239e-03_rb,0.12767e-03_rb,0.12305e-03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.11797e-03_rb,0.11256e-03_rb,0.10880e-03_rb,0.10424e-03_rb,0.10062e-03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.97085e-04_rb,0.92101e-04_rb,0.88420e-04_rb,0.85535e-04_rb,0.82201e-04_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.79380e-04_rb,0.75312e-04_rb,0.72177e-04_rb,0.69710e-04_rb,0.66966e-04_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.64591e-04_rb,0.61520e-04_rb,0.58891e-04_rb,0.56626e-04_rb,0.54603e-04_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.52423e-04_rb,0.49934e-04_rb,0.48122e-04_rb,0.46331e-04_rb,0.44875e-04_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.42528e-04_rb,0.40739e-04_rb,0.39218e-04_rb,0.37806e-04_rb,0.36631e-04_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.34453e-04_rb,0.33104e-04_rb,0.32009e-04_rb,0.30764e-04_rb,0.30000e-04_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.28076e-04_rb,0.26948e-04_rb,0.26097e-04_rb,0.25065e-04_rb,0.24596e-04_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.22814e-04_rb,0.21902e-04_rb,0.21222e-04_rb,0.20350e-04_rb,0.20152e-04_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.18551e-04_rb,0.17731e-04_rb,0.17162e-04_rb,0.16614e-04_rb,0.16461e-04_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.15020e-04_rb,0.14383e-04_rb,0.13922e-04_rb,0.13548e-04_rb,0.13388e-04_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.12091e-04_rb,0.11653e-04_rb,0.11308e-04_rb,0.11033e-04_rb,0.10954e-04_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.97901e-05_rb,0.93570e-05_rb,0.91428e-05_rb,0.89594e-05_rb,0.89614e-05_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.79439e-05_rb,0.76095e-05_rb,0.74365e-05_rb,0.73099e-05_rb,0.73269e-05_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.64505e-05_rb,0.62326e-05_rb,0.60921e-05_rb,0.59939e-05_rb,0.59799e-05_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.52745e-05_rb,0.51017e-05_rb,0.49658e-05_rb,0.48988e-05_rb,0.48773e-05_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.43522e-05_rb,0.42053e-05_rb,0.40681e-05_rb,0.40176e-05_rb,0.40058e-05_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.35676e-05_rb,0.34559e-05_rb,0.33446e-05_rb,0.33017e-05_rb,0.32771e-05_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.29238e-05_rb,0.28445e-05_rb,0.27512e-05_rb,0.27095e-05_rb,0.26825e-05_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.23985e-05_rb,0.23437e-05_rb,0.22756e-05_rb,0.22251e-05_rb,0.22009e-05_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.19763e-05_rb,0.19311e-05_rb,0.18886e-05_rb,0.18370e-05_rb,0.18072e-05_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.16256e-05_rb,0.15918e-05_rb,0.15558e-05_rb,0.15108e-05_rb,0.14861e-05_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.13290e-05_rb,0.13116e-05_rb,0.12833e-05_rb,0.12550e-05_rb,0.12262e-05_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.10777e-05_rb,0.10760e-05_rb,0.10566e-05_rb,0.10365e-05_rb,0.10136e-05_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.86690e-06_rb,0.87981e-06_rb,0.87044e-06_rb,0.85428e-06_rb,0.83627e-06_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.68706e-06_rb,0.71088e-06_rb,0.70939e-06_rb,0.70110e-06_rb,0.69032e-06_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.54665e-06_rb,0.56934e-06_rb,0.58033e-06_rb,0.57830e-06_rb,0.57105e-06_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.44874e-06_rb,0.44653e-06_rb,0.46650e-06_rb,0.47090e-06_rb,0.46732e-06_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.36869e-06_rb,0.35456e-06_rb,0.36842e-06_rb,0.37978e-06_rb,0.38217e-06_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.30489e-06_rb,0.29229e-06_rb,0.29104e-06_rb,0.30430e-06_rb,0.31068e-06_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.25290e-06_rb,0.24012e-06_rb,0.23271e-06_rb,0.24366e-06_rb,0.25149e-06_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.21148e-06_rb,0.19715e-06_rb,0.19121e-06_rb,0.19177e-06_rb,0.20148e-06_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.17334e-06_rb,0.16335e-06_rb,0.15574e-06_rb,0.15266e-06_rb,0.15921e-06_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.14189e-06_rb,0.13650e-06_rb,0.12781e-06_rb,0.12535e-06_rb,0.12749e-06_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.11763e-06_rb,0.11398e-06_rb,0.10627e-06_rb,0.10373e-06_rb,0.10268e-06_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.98316e-07_rb,0.94892e-07_rb,0.88799e-07_rb,0.85036e-07_rb,0.83393e-07_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.83049e-07_rb,0.78499e-07_rb,0.74140e-07_rb,0.70137e-07_rb,0.68774e-07_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.71768e-07_rb,0.64682e-07_rb,0.62012e-07_rb,0.58149e-07_rb,0.57037e-07_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.60166e-07_rb,0.54824e-07_rb,0.52042e-07_rb,0.49198e-07_rb,0.47862e-07_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.71254e-03_rb,0.65708e-03_rb,0.60824e-03_rb,0.57965e-03_rb,0.55389e-03_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.58852e-03_rb,0.54811e-03_rb,0.51125e-03_rb,0.48557e-03_rb,0.47730e-03_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.50599e-03_rb,0.46869e-03_rb,0.44362e-03_rb,0.43503e-03_rb,0.43705e-03_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.43493e-03_rb,0.40996e-03_rb,0.39680e-03_rb,0.39623e-03_rb,0.40784e-03_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.38028e-03_rb,0.36175e-03_rb,0.35696e-03_rb,0.36547e-03_rb,0.38127e-03_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.33113e-03_rb,0.32205e-03_rb,0.32458e-03_rb,0.33502e-03_rb,0.35577e-03_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.28886e-03_rb,0.29134e-03_rb,0.29799e-03_rb,0.31134e-03_rb,0.33676e-03_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.25113e-03_rb,0.25555e-03_rb,0.26535e-03_rb,0.28470e-03_rb,0.30677e-03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.21640e-03_rb,0.22152e-03_rb,0.23323e-03_rb,0.25467e-03_rb,0.27764e-03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.18601e-03_rb,0.19217e-03_rb,0.20696e-03_rb,0.22593e-03_rb,0.24729e-03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.15978e-03_rb,0.16833e-03_rb,0.18229e-03_rb,0.19994e-03_rb,0.21913e-03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.13748e-03_rb,0.14696e-03_rb,0.16025e-03_rb,0.17620e-03_rb,0.19459e-03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.11841e-03_rb,0.12828e-03_rb,0.13998e-03_rb,0.15487e-03_rb,0.17174e-03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.10209e-03_rb,0.11175e-03_rb,0.12193e-03_rb,0.13590e-03_rb,0.15125e-03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.87003e-04_rb,0.95681e-04_rb,0.10499e-03_rb,0.11744e-03_rb,0.13086e-03_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.73110e-04_rb,0.80653e-04_rb,0.89103e-04_rb,0.99988e-04_rb,0.11120e-03_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.60620e-04_rb,0.66736e-04_rb,0.74222e-04_rb,0.82863e-04_rb,0.92471e-04_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.49831e-04_rb,0.54602e-04_rb,0.61288e-04_rb,0.68281e-04_rb,0.75599e-04_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.40315e-04_rb,0.44435e-04_rb,0.49703e-04_rb,0.55140e-04_rb,0.60140e-04_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.32490e-04_rb,0.36020e-04_rb,0.39894e-04_rb,0.44068e-04_rb,0.48080e-04_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.26085e-04_rb,0.29063e-04_rb,0.32003e-04_rb,0.35074e-04_rb,0.38662e-04_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.21201e-04_rb,0.23256e-04_rb,0.25636e-04_rb,0.28140e-04_rb,0.31273e-04_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.17022e-04_rb,0.18534e-04_rb,0.20322e-04_rb,0.22464e-04_rb,0.25109e-04_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.13427e-04_rb,0.14606e-04_rb,0.16055e-04_rb,0.17783e-04_rb,0.19877e-04_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.10630e-04_rb,0.11559e-04_rb,0.12731e-04_rb,0.14118e-04_rb,0.15831e-04_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.84365e-05_rb,0.91300e-05_rb,0.10077e-04_rb,0.11171e-04_rb,0.12568e-04_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.66762e-05_rb,0.71770e-05_rb,0.79359e-05_rb,0.88044e-05_rb,0.99043e-05_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.53561e-05_rb,0.57216e-05_rb,0.63210e-05_rb,0.70080e-05_rb,0.79213e-05_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.42954e-05_rb,0.45692e-05_rb,0.50356e-05_rb,0.56102e-05_rb,0.63394e-05_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.34409e-05_rb,0.36788e-05_rb,0.40124e-05_rb,0.44898e-05_rb,0.50645e-05_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.27453e-05_rb,0.29361e-05_rb,0.31651e-05_rb,0.35498e-05_rb,0.40058e-05_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.21863e-05_rb,0.23320e-05_rb,0.24965e-05_rb,0.27915e-05_rb,0.31593e-05_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.17409e-05_rb,0.18472e-05_rb,0.19801e-05_rb,0.21812e-05_rb,0.24741e-05_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.13903e-05_rb,0.14639e-05_rb,0.15660e-05_rb,0.17042e-05_rb,0.19243e-05_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.11229e-05_rb,0.11661e-05_rb,0.12377e-05_rb,0.13335e-05_rb,0.14898e-05_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.90528e-06_rb,0.92962e-06_rb,0.97799e-06_rb,0.10483e-05_rb,0.11575e-05_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.72877e-06_rb,0.74278e-06_rb,0.77380e-06_rb,0.82564e-06_rb,0.89736e-06_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.59358e-06_rb,0.59955e-06_rb,0.62170e-06_rb,0.65720e-06_rb,0.70771e-06_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.48783e-06_rb,0.48769e-06_rb,0.50300e-06_rb,0.52655e-06_rb,0.56377e-06_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.39834e-06_rb,0.39922e-06_rb,0.40604e-06_rb,0.42316e-06_rb,0.45057e-06_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.33019e-06_rb,0.32505e-06_rb,0.33011e-06_rb,0.33917e-06_rb,0.35858e-06_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.27829e-06_rb,0.26763e-06_rb,0.27219e-06_rb,0.27714e-06_rb,0.29159e-06_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.23259e-06_rb,0.22250e-06_rb,0.22510e-06_rb,0.22855e-06_rb,0.23937e-06_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.19401e-06_rb,0.18605e-06_rb,0.18566e-06_rb,0.18937e-06_rb,0.19605e-06_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.15908e-06_rb,0.15649e-06_rb,0.15396e-06_rb,0.15754e-06_rb,0.16039e-06_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.12892e-06_rb,0.13132e-06_rb,0.12793e-06_rb,0.13093e-06_rb,0.13273e-06_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.11177e-06_rb,0.11165e-06_rb,0.10875e-06_rb,0.11132e-06_rb,0.11431e-06_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.19357e-02_rb,0.20341e-02_rb,0.21760e-02_rb,0.22982e-02_rb,0.24550e-02_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.20343e-02_rb,0.21709e-02_rb,0.23192e-02_rb,0.24854e-02_rb,0.27026e-02_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.21108e-02_rb,0.23009e-02_rb,0.25488e-02_rb,0.28048e-02_rb,0.30159e-02_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.21016e-02_rb,0.23581e-02_rb,0.25958e-02_rb,0.28093e-02_rb,0.29839e-02_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.21350e-02_rb,0.23722e-02_rb,0.25718e-02_rb,0.27703e-02_rb,0.30036e-02_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.21493e-02_rb,0.23550e-02_rb,0.25593e-02_rb,0.27827e-02_rb,0.29722e-02_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.21677e-02_rb,0.23602e-02_rb,0.25446e-02_rb,0.27267e-02_rb,0.29542e-02_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.21009e-02_rb,0.22669e-02_rb,0.24261e-02_rb,0.26095e-02_rb,0.28436e-02_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.19811e-02_rb,0.21249e-02_rb,0.22790e-02_rb,0.24716e-02_rb,0.26844e-02_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.18393e-02_rb,0.19585e-02_rb,0.21127e-02_rb,0.22962e-02_rb,0.25211e-02_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.16905e-02_rb,0.18032e-02_rb,0.19594e-02_rb,0.21280e-02_rb,0.23466e-02_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.15327e-02_rb,0.16542e-02_rb,0.18047e-02_rb,0.19642e-02_rb,0.21591e-02_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.13831e-02_rb,0.14932e-02_rb,0.16391e-02_rb,0.17921e-02_rb,0.19606e-02_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.12298e-02_rb,0.13325e-02_rb,0.14676e-02_rb,0.16086e-02_rb,0.17628e-02_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.10692e-02_rb,0.11652e-02_rb,0.12858e-02_rb,0.14124e-02_rb,0.15514e-02_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.91706e-03_rb,0.10034e-02_rb,0.11100e-02_rb,0.12231e-02_rb,0.13481e-02_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.76824e-03_rb,0.84492e-03_rb,0.93654e-03_rb,0.10377e-02_rb,0.11448e-02_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.63841e-03_rb,0.70573e-03_rb,0.78553e-03_rb,0.87197e-03_rb,0.96607e-03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.51979e-03_rb,0.58056e-03_rb,0.64728e-03_rb,0.71891e-03_rb,0.80875e-03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.42659e-03_rb,0.47686e-03_rb,0.53347e-03_rb,0.60016e-03_rb,0.67592e-03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.34820e-03_rb,0.39030e-03_rb,0.44004e-03_rb,0.49875e-03_rb,0.56492e-03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.28753e-03_rb,0.32477e-03_rb,0.36831e-03_rb,0.41989e-03_rb,0.47708e-03_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.23568e-03_rb,0.26716e-03_rb,0.30618e-03_rb,0.35062e-03_rb,0.39934e-03_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.19116e-03_rb,0.21863e-03_rb,0.25180e-03_rb,0.28983e-03_rb,0.33082e-03_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.15437e-03_rb,0.17829e-03_rb,0.20646e-03_rb,0.23900e-03_rb,0.27320e-03_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.12397e-03_rb,0.14462e-03_rb,0.16847e-03_rb,0.19621e-03_rb,0.22528e-03_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.98930e-04_rb,0.11647e-03_rb,0.13711e-03_rb,0.16057e-03_rb,0.18549e-03_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.79845e-04_rb,0.94437e-04_rb,0.11202e-03_rb,0.13217e-03_rb,0.15346e-03_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.64260e-04_rb,0.76439e-04_rb,0.91253e-04_rb,0.10837e-03_rb,0.12691e-03_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.51561e-04_rb,0.61686e-04_rb,0.74044e-04_rb,0.88504e-04_rb,0.10431e-03_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.40906e-04_rb,0.49267e-04_rb,0.59361e-04_rb,0.71417e-04_rb,0.84751e-04_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.32247e-04_rb,0.38955e-04_rb,0.47246e-04_rb,0.57199e-04_rb,0.68540e-04_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.25243e-04_rb,0.30790e-04_rb,0.37490e-04_rb,0.45754e-04_rb,0.55394e-04_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.19604e-04_rb,0.24131e-04_rb,0.29598e-04_rb,0.36431e-04_rb,0.44419e-04_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.15116e-04_rb,0.18785e-04_rb,0.23180e-04_rb,0.28780e-04_rb,0.35381e-04_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.11550e-04_rb,0.14451e-04_rb,0.18039e-04_rb,0.22545e-04_rb,0.28005e-04_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.87452e-05_rb,0.10992e-04_rb,0.13863e-04_rb,0.17498e-04_rb,0.21949e-04_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.66768e-05_rb,0.84974e-05_rb,0.10835e-04_rb,0.13777e-04_rb,0.17448e-04_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.51359e-05_rb,0.66277e-05_rb,0.85196e-05_rb,0.10905e-04_rb,0.13933e-04_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.38737e-05_rb,0.51001e-05_rb,0.66347e-05_rb,0.85842e-05_rb,0.11033e-04_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.28793e-05_rb,0.38820e-05_rb,0.50987e-05_rb,0.66800e-05_rb,0.86846e-05_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.22250e-05_rb,0.30528e-05_rb,0.40721e-05_rb,0.53813e-05_rb,0.70529e-05_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.17548e-05_rb,0.24455e-05_rb,0.32962e-05_rb,0.43877e-05_rb,0.58071e-05_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.13740e-05_rb,0.19413e-05_rb,0.26523e-05_rb,0.35566e-05_rb,0.47512e-05_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.10745e-05_rb,0.15242e-05_rb,0.21190e-05_rb,0.28679e-05_rb,0.38612e-05_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.84271e-06_rb,0.12117e-05_rb,0.17039e-05_rb,0.23246e-05_rb,0.31564e-05_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.75625e-06_rb,0.11002e-05_rb,0.15376e-05_rb,0.20855e-05_rb,0.28548e-05_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.41133e-01_rb,0.43585e-01_rb,0.46448e-01_rb,0.50156e-01_rb,0.54607e-01_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.39162e-01_rb,0.41636e-01_rb,0.44649e-01_rb,0.48118e-01_rb,0.52078e-01_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.37770e-01_rb,0.40048e-01_rb,0.43090e-01_rb,0.46524e-01_rb,0.50698e-01_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.35235e-01_rb,0.37712e-01_rb,0.40429e-01_rb,0.44092e-01_rb,0.48470e-01_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.32748e-01_rb,0.35232e-01_rb,0.38049e-01_rb,0.41536e-01_rb,0.45596e-01_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.30656e-01_rb,0.33078e-01_rb,0.36084e-01_rb,0.39403e-01_rb,0.43319e-01_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.28887e-01_rb,0.31462e-01_rb,0.34348e-01_rb,0.37660e-01_rb,0.41532e-01_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.26521e-01_rb,0.29153e-01_rb,0.32006e-01_rb,0.35368e-01_rb,0.39083e-01_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.23988e-01_rb,0.26537e-01_rb,0.29508e-01_rb,0.32666e-01_rb,0.36356e-01_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.21655e-01_rb,0.24205e-01_rb,0.27193e-01_rb,0.30346e-01_rb,0.33820e-01_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.19724e-01_rb,0.22257e-01_rb,0.25021e-01_rb,0.27997e-01_rb,0.31309e-01_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.18094e-01_rb,0.20464e-01_rb,0.23167e-01_rb,0.26069e-01_rb,0.29357e-01_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.16666e-01_rb,0.18896e-01_rb,0.21422e-01_rb,0.24282e-01_rb,0.27401e-01_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.15252e-01_rb,0.17451e-01_rb,0.19828e-01_rb,0.22565e-01_rb,0.25604e-01_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.13902e-01_rb,0.15940e-01_rb,0.18143e-01_rb,0.20720e-01_rb,0.23727e-01_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.12642e-01_rb,0.14401e-01_rb,0.16467e-01_rb,0.18975e-01_rb,0.21740e-01_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.11177e-01_rb,0.12765e-01_rb,0.14750e-01_rb,0.16957e-01_rb,0.19575e-01_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.97810e-02_rb,0.11281e-01_rb,0.13066e-01_rb,0.15112e-01_rb,0.17581e-01_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.84562e-02_rb,0.98553e-02_rb,0.11427e-01_rb,0.13312e-01_rb,0.15536e-01_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.73434e-02_rb,0.85939e-02_rb,0.10020e-01_rb,0.11770e-01_rb,0.13758e-01_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.63801e-02_rb,0.74957e-02_rb,0.87874e-02_rb,0.10375e-01_rb,0.12145e-01_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.56002e-02_rb,0.65926e-02_rb,0.77964e-02_rb,0.92186e-02_rb,0.10768e-01_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.48489e-02_rb,0.57164e-02_rb,0.68333e-02_rb,0.80886e-02_rb,0.94500e-02_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.41428e-02_rb,0.49220e-02_rb,0.58884e-02_rb,0.69905e-02_rb,0.81862e-02_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.34967e-02_rb,0.41841e-02_rb,0.50244e-02_rb,0.59657e-02_rb,0.70167e-02_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.29333e-02_rb,0.35364e-02_rb,0.42644e-02_rb,0.50719e-02_rb,0.59938e-02_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.24443e-02_rb,0.29647e-02_rb,0.35953e-02_rb,0.42898e-02_rb,0.50972e-02_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.20439e-02_rb,0.25046e-02_rb,0.30512e-02_rb,0.36459e-02_rb,0.43466e-02_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.17068e-02_rb,0.21107e-02_rb,0.25838e-02_rb,0.30959e-02_rb,0.36971e-02_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.14199e-02_rb,0.17705e-02_rb,0.21755e-02_rb,0.26204e-02_rb,0.31356e-02_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.11616e-02_rb,0.14584e-02_rb,0.18069e-02_rb,0.21876e-02_rb,0.26286e-02_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.93807e-03_rb,0.11864e-02_rb,0.14851e-02_rb,0.18080e-02_rb,0.21849e-02_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.75026e-03_rb,0.95460e-03_rb,0.12092e-02_rb,0.14831e-02_rb,0.18037e-02_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.59319e-03_rb,0.76134e-03_rb,0.97292e-03_rb,0.12059e-02_rb,0.14787e-02_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.46546e-03_rb,0.60113e-03_rb,0.77762e-03_rb,0.97379e-03_rb,0.12030e-02_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.36131e-03_rb,0.46999e-03_rb,0.61292e-03_rb,0.77778e-03_rb,0.96667e-03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.27490e-03_rb,0.36153e-03_rb,0.47561e-03_rb,0.61173e-03_rb,0.76634e-03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.21403e-03_rb,0.28416e-03_rb,0.37592e-03_rb,0.48994e-03_rb,0.61812e-03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.16745e-03_rb,0.22425e-03_rb,0.29943e-03_rb,0.39474e-03_rb,0.50310e-03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.12927e-03_rb,0.17496e-03_rb,0.23541e-03_rb,0.31434e-03_rb,0.40442e-03_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.98512e-04_rb,0.13503e-03_rb,0.18276e-03_rb,0.24681e-03_rb,0.32086e-03_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.78150e-04_rb,0.10819e-03_rb,0.14843e-03_rb,0.20243e-03_rb,0.26646e-03_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.63455e-04_rb,0.88570e-04_rb,0.12297e-03_rb,0.17015e-03_rb,0.22626e-03_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.51095e-04_rb,0.72223e-04_rb,0.10144e-03_rb,0.14188e-03_rb,0.19132e-03_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.40866e-04_rb,0.58631e-04_rb,0.83096e-04_rb,0.11753e-03_rb,0.16055e-03_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.32890e-04_rb,0.47893e-04_rb,0.68644e-04_rb,0.98156e-04_rb,0.13564e-03_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.29702e-04_rb,0.43928e-04_rb,0.64217e-04_rb,0.92621e-04_rb,0.12965e-03_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.27690e+01_rb,0.28644e+01_rb,0.29696e+01_rb,0.30850e+01_rb,0.32162e+01_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.23162e+01_rb,0.23973e+01_rb,0.24876e+01_rb,0.25913e+01_rb,0.27107e+01_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.19377e+01_rb,0.20096e+01_rb,0.20909e+01_rb,0.21846e+01_rb,0.22904e+01_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.16221e+01_rb,0.16854e+01_rb,0.17596e+01_rb,0.18440e+01_rb,0.19374e+01_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.13581e+01_rb,0.14147e+01_rb,0.14813e+01_rb,0.15562e+01_rb,0.16364e+01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.11494e+01_rb,0.11995e+01_rb,0.12558e+01_rb,0.13168e+01_rb,0.13828e+01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.99857e+00_rb,0.10422e+01_rb,0.10890e+01_rb,0.11391e+01_rb,0.11917e+01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.86585e+00_rb,0.90292e+00_rb,0.94341e+00_rb,0.98616e+00_rb,0.10332e+01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.74752e+00_rb,0.77983e+00_rb,0.81433e+00_rb,0.85283e+00_rb,0.89462e+00_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.64494e+00_rb,0.67286e+00_rb,0.70277e+00_rb,0.73658e+00_rb,0.77352e+00_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.55485e+00_rb,0.57897e+00_rb,0.60654e+00_rb,0.63699e+00_rb,0.66979e+00_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.47664e+00_rb,0.49869e+00_rb,0.52329e+00_rb,0.54973e+00_rb,0.57955e+00_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.41114e+00_rb,0.42988e+00_rb,0.45044e+00_rb,0.47447e+00_rb,0.50163e+00_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.35513e+00_rb,0.37142e+00_rb,0.38942e+00_rb,0.41045e+00_rb,0.43493e+00_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.30546e+00_rb,0.31995e+00_rb,0.33673e+00_rb,0.35597e+00_rb,0.37742e+00_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.26188e+00_rb,0.27552e+00_rb,0.29117e+00_rb,0.30879e+00_rb,0.32839e+00_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.22377e+00_rb,0.23654e+00_rb,0.25102e+00_rb,0.26735e+00_rb,0.28587e+00_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.19129e+00_rb,0.20332e+00_rb,0.21691e+00_rb,0.23233e+00_rb,0.24924e+00_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.16347e+00_rb,0.17463e+00_rb,0.18745e+00_rb,0.20165e+00_rb,0.21712e+00_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.14037e+00_rb,0.15075e+00_rb,0.16282e+00_rb,0.17567e+00_rb,0.18973e+00_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.12095e+00_rb,0.13081e+00_rb,0.14161e+00_rb,0.15337e+00_rb,0.16632e+00_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.10468e+00_rb,0.11371e+00_rb,0.12351e+00_rb,0.13423e+00_rb,0.14632e+00_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.90259e-01_rb,0.98421e-01_rb,0.10717e+00_rb,0.11695e+00_rb,0.12831e+00_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.77272e-01_rb,0.84599e-01_rb,0.92464e-01_rb,0.10140e+00_rb,0.11193e+00_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.65606e-01_rb,0.72029e-01_rb,0.79063e-01_rb,0.87174e-01_rb,0.96643e-01_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.55528e-01_rb,0.61268e-01_rb,0.67613e-01_rb,0.74898e-01_rb,0.83456e-01_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.46985e-01_rb,0.52085e-01_rb,0.57765e-01_rb,0.64303e-01_rb,0.72021e-01_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.39626e-01_rb,0.44094e-01_rb,0.49150e-01_rb,0.55005e-01_rb,0.61884e-01_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.33376e-01_rb,0.37326e-01_rb,0.41783e-01_rb,0.46997e-01_rb,0.53158e-01_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.28074e-01_rb,0.31535e-01_rb,0.35493e-01_rb,0.40112e-01_rb,0.45645e-01_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.23419e-01_rb,0.26419e-01_rb,0.29889e-01_rb,0.33982e-01_rb,0.38867e-01_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.19437e-01_rb,0.22035e-01_rb,0.25042e-01_rb,0.28622e-01_rb,0.32930e-01_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.16083e-01_rb,0.18329e-01_rb,0.20937e-01_rb,0.24027e-01_rb,0.27786e-01_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.13236e-01_rb,0.15146e-01_rb,0.17420e-01_rb,0.20094e-01_rb,0.23328e-01_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.10820e-01_rb,0.12455e-01_rb,0.14377e-01_rb,0.16656e-01_rb,0.19464e-01_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.88043e-02_rb,0.10190e-01_rb,0.11813e-01_rb,0.13745e-01_rb,0.16141e-01_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.71234e-02_rb,0.82775e-02_rb,0.96453e-02_rb,0.11284e-01_rb,0.13310e-01_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.58127e-02_rb,0.67802e-02_rb,0.79379e-02_rb,0.93254e-02_rb,0.11078e-01_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.47494e-02_rb,0.55659e-02_rb,0.65602e-02_rb,0.77407e-02_rb,0.92288e-02_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.38618e-02_rb,0.45424e-02_rb,0.53925e-02_rb,0.64011e-02_rb,0.76645e-02_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.31264e-02_rb,0.36823e-02_rb,0.43952e-02_rb,0.52615e-02_rb,0.63311e-02_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.25794e-02_rb,0.30481e-02_rb,0.36548e-02_rb,0.44037e-02_rb,0.53380e-02_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.21508e-02_rb,0.25472e-02_rb,0.30665e-02_rb,0.37188e-02_rb,0.45472e-02_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.17938e-02_rb,0.21263e-02_rb,0.25713e-02_rb,0.31411e-02_rb,0.38667e-02_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.14949e-02_rb,0.17755e-02_rb,0.21510e-02_rb,0.26439e-02_rb,0.32830e-02_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.12521e-02_rb,0.14938e-02_rb,0.18137e-02_rb,0.22426e-02_rb,0.28028e-02_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.11302e-02_rb,0.13552e-02_rb,0.16582e-02_rb,0.20691e-02_rb,0.26051e-02_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.14370e+02_rb,0.14649e+02_rb,0.14957e+02_rb,0.15296e+02_rb,0.15663e+02_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.12178e+02_rb,0.12411e+02_rb,0.12682e+02_rb,0.12978e+02_rb,0.13316e+02_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.10211e+02_rb,0.10402e+02_rb,0.10625e+02_rb,0.10894e+02_rb,0.11239e+02_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.85974e+01_rb,0.87539e+01_rb,0.89410e+01_rb,0.91849e+01_rb,0.95108e+01_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.72440e+01_rb,0.73858e+01_rb,0.75683e+01_rb,0.78199e+01_rb,0.81516e+01_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.59680e+01_rb,0.61054e+01_rb,0.63108e+01_rb,0.66074e+01_rb,0.69367e+01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.47759e+01_rb,0.49000e+01_rb,0.51125e+01_rb,0.53858e+01_rb,0.56972e+01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.40682e+01_rb,0.42060e+01_rb,0.43988e+01_rb,0.46035e+01_rb,0.48052e+01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.35226e+01_rb,0.36715e+01_rb,0.38357e+01_rb,0.40017e+01_rb,0.41636e+01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.30730e+01_rb,0.32059e+01_rb,0.33607e+01_rb,0.35055e+01_rb,0.36621e+01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.26688e+01_rb,0.27999e+01_rb,0.29296e+01_rb,0.30668e+01_rb,0.32115e+01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.23228e+01_rb,0.24338e+01_rb,0.25510e+01_rb,0.26866e+01_rb,0.28223e+01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.19964e+01_rb,0.21083e+01_rb,0.22332e+01_rb,0.23566e+01_rb,0.24845e+01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.17097e+01_rb,0.18190e+01_rb,0.19420e+01_rb,0.20663e+01_rb,0.21952e+01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.14729e+01_rb,0.15741e+01_rb,0.16825e+01_rb,0.17963e+01_rb,0.19295e+01_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.12788e+01_rb,0.13609e+01_rb,0.14562e+01_rb,0.15668e+01_rb,0.17032e+01_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.11113e+01_rb,0.11813e+01_rb,0.12669e+01_rb,0.13763e+01_rb,0.15012e+01_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.96661e+00_rb,0.10287e+01_rb,0.11081e+01_rb,0.12093e+01_rb,0.13273e+01_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.83795e+00_rb,0.89792e+00_rb,0.97327e+00_rb,0.10727e+01_rb,0.11828e+01_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.72634e+00_rb,0.78480e+00_rb,0.86071e+00_rb,0.95503e+00_rb,0.10615e+01_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.63134e+00_rb,0.68789e+00_rb,0.76628e+00_rb,0.85854e+00_rb,0.96370e+00_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.55172e+00_rb,0.60863e+00_rb,0.68672e+00_rb,0.77637e+00_rb,0.87664e+00_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.48039e+00_rb,0.53701e+00_rb,0.61125e+00_rb,0.69795e+00_rb,0.79084e+00_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.41819e+00_rb,0.47188e+00_rb,0.54096e+00_rb,0.62096e+00_rb,0.70693e+00_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.36050e+00_rb,0.40906e+00_rb,0.47069e+00_rb,0.54184e+00_rb,0.62144e+00_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.31156e+00_rb,0.35409e+00_rb,0.40958e+00_rb,0.47371e+00_rb,0.54611e+00_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.26782e+00_rb,0.30677e+00_rb,0.35645e+00_rb,0.41535e+00_rb,0.48073e+00_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.23006e+00_rb,0.26273e+00_rb,0.30670e+00_rb,0.35934e+00_rb,0.41871e+00_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.19681e+00_rb,0.22601e+00_rb,0.26383e+00_rb,0.31041e+00_rb,0.36443e+00_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.16794e+00_rb,0.19457e+00_rb,0.22757e+00_rb,0.26875e+00_rb,0.31708e+00_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.14222e+00_rb,0.16606e+00_rb,0.19480e+00_rb,0.23049e+00_rb,0.27422e+00_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.11907e+00_rb,0.14059e+00_rb,0.16567e+00_rb,0.19741e+00_rb,0.23557e+00_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.99508e-01_rb,0.11792e+00_rb,0.14029e+00_rb,0.16912e+00_rb,0.20294e+00_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.82787e-01_rb,0.98729e-01_rb,0.11783e+00_rb,0.14344e+00_rb,0.17433e+00_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.68205e-01_rb,0.81739e-01_rb,0.98558e-01_rb,0.12017e+00_rb,0.14798e+00_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.55907e-01_rb,0.67050e-01_rb,0.81465e-01_rb,0.10030e+00_rb,0.12506e+00_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.45682e-01_rb,0.54871e-01_rb,0.66950e-01_rb,0.83270e-01_rb,0.10500e+00_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.37515e-01_rb,0.45259e-01_rb,0.55584e-01_rb,0.69475e-01_rb,0.88432e-01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.31052e-01_rb,0.37347e-01_rb,0.46136e-01_rb,0.58029e-01_rb,0.74379e-01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.25697e-01_rb,0.30758e-01_rb,0.38027e-01_rb,0.48169e-01_rb,0.62340e-01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.21053e-01_rb,0.25282e-01_rb,0.31221e-01_rb,0.39765e-01_rb,0.52061e-01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.17506e-01_rb,0.21171e-01_rb,0.26181e-01_rb,0.33450e-01_rb,0.43837e-01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.14733e-01_rb,0.17912e-01_rb,0.22352e-01_rb,0.28517e-01_rb,0.37310e-01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.12382e-01_rb,0.15138e-01_rb,0.19031e-01_rb,0.24337e-01_rb,0.31780e-01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.10363e-01_rb,0.12802e-01_rb,0.16188e-01_rb,0.20731e-01_rb,0.27252e-01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.87632e-02_rb,0.10863e-01_rb,0.13823e-01_rb,0.17907e-01_rb,0.23570e-01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.79477e-02_rb,0.99708e-02_rb,0.12797e-01_rb,0.16832e-01_rb,0.22384e-01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.27028e+02_rb,0.27753e+02_rb,0.28483e+02_rb,0.29219e+02_rb,0.29909e+02_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.23419e+02_rb,0.24025e+02_rb,0.24638e+02_rb,0.25228e+02_rb,0.25789e+02_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.20150e+02_rb,0.20660e+02_rb,0.21151e+02_rb,0.21642e+02_rb,0.22118e+02_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.17107e+02_rb,0.17510e+02_rb,0.17925e+02_rb,0.18355e+02_rb,0.18823e+02_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.14361e+02_rb,0.14686e+02_rb,0.15035e+02_rb,0.15422e+02_rb,0.15903e+02_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.12138e+02_rb,0.12397e+02_rb,0.12696e+02_rb,0.13058e+02_rb,0.13553e+02_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.10135e+02_rb,0.10395e+02_rb,0.10708e+02_rb,0.11115e+02_rb,0.11638e+02_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.81786e+01_rb,0.84190e+01_rb,0.87492e+01_rb,0.92221e+01_rb,0.97673e+01_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.68203e+01_rb,0.70074e+01_rb,0.73249e+01_rb,0.77062e+01_rb,0.81227e+01_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.58880e+01_rb,0.61142e+01_rb,0.64089e+01_rb,0.67273e+01_rb,0.70540e+01_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.51482e+01_rb,0.53972e+01_rb,0.56613e+01_rb,0.59190e+01_rb,0.62039e+01_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.45460e+01_rb,0.47798e+01_rb,0.50055e+01_rb,0.52340e+01_rb,0.54793e+01_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.40038e+01_rb,0.42162e+01_rb,0.44356e+01_rb,0.46519e+01_rb,0.48861e+01_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.35330e+01_rb,0.37282e+01_rb,0.39261e+01_rb,0.41342e+01_rb,0.43614e+01_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.30918e+01_rb,0.32790e+01_rb,0.34783e+01_rb,0.36774e+01_rb,0.38933e+01_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.27019e+01_rb,0.28880e+01_rb,0.30842e+01_rb,0.32755e+01_rb,0.34826e+01_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.23567e+01_rb,0.25399e+01_rb,0.27237e+01_rb,0.29118e+01_rb,0.31184e+01_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.20673e+01_rb,0.22421e+01_rb,0.24146e+01_rb,0.26001e+01_rb,0.28136e+01_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.18233e+01_rb,0.19796e+01_rb,0.21491e+01_rb,0.23275e+01_rb,0.25391e+01_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.16164e+01_rb,0.17629e+01_rb,0.19137e+01_rb,0.20921e+01_rb,0.23020e+01_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.14325e+01_rb,0.15691e+01_rb,0.17171e+01_rb,0.18965e+01_rb,0.20991e+01_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.12711e+01_rb,0.14025e+01_rb,0.15514e+01_rb,0.17231e+01_rb,0.19204e+01_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.11251e+01_rb,0.12478e+01_rb,0.13948e+01_rb,0.15591e+01_rb,0.17428e+01_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.98734e+00_rb,0.11026e+01_rb,0.12425e+01_rb,0.13991e+01_rb,0.15730e+01_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.85152e+00_rb,0.96327e+00_rb,0.10911e+01_rb,0.12398e+01_rb,0.14045e+01_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.73399e+00_rb,0.83942e+00_rb,0.95984e+00_rb,0.10967e+01_rb,0.12526e+01_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.63468e+00_rb,0.73175e+00_rb,0.84488e+00_rb,0.97279e+00_rb,0.11163e+01_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.54166e+00_rb,0.63099e+00_rb,0.73459e+00_rb,0.85525e+00_rb,0.98986e+00_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.46341e+00_rb,0.54185e+00_rb,0.63786e+00_rb,0.75041e+00_rb,0.87557e+00_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.39710e+00_rb,0.46604e+00_rb,0.55335e+00_rb,0.65788e+00_rb,0.77518e+00_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.33809e+00_rb,0.39845e+00_rb,0.47656e+00_rb,0.56991e+00_rb,0.67763e+00_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.28738e+00_rb,0.33811e+00_rb,0.40783e+00_rb,0.49238e+00_rb,0.58805e+00_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.24372e+00_rb,0.28787e+00_rb,0.34858e+00_rb,0.42338e+00_rb,0.51131e+00_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.20655e+00_rb,0.24407e+00_rb,0.29751e+00_rb,0.36239e+00_rb,0.44206e+00_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.17359e+00_rb,0.20653e+00_rb,0.25158e+00_rb,0.30900e+00_rb,0.37888e+00_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.14508e+00_rb,0.17395e+00_rb,0.21335e+00_rb,0.26232e+00_rb,0.32328e+00_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.12016e+00_rb,0.14523e+00_rb,0.17928e+00_rb,0.22128e+00_rb,0.27412e+00_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.99920e-01_rb,0.12218e+00_rb,0.15097e+00_rb,0.18907e+00_rb,0.23575e+00_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.82909e-01_rb,0.10226e+00_rb,0.12737e+00_rb,0.16132e+00_rb,0.20378e+00_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.68577e-01_rb,0.85131e-01_rb,0.10673e+00_rb,0.13644e+00_rb,0.17453e+00_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.56302e-01_rb,0.70491e-01_rb,0.88684e-01_rb,0.11469e+00_rb,0.14786e+00_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.47171e-01_rb,0.59185e-01_rb,0.74877e-01_rb,0.97387e-01_rb,0.12762e+00_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.40028e-01_rb,0.50199e-01_rb,0.63960e-01_rb,0.83211e-01_rb,0.11104e+00_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.33854e-01_rb,0.42508e-01_rb,0.54649e-01_rb,0.71262e-01_rb,0.95596e-01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.28590e-01_rb,0.36142e-01_rb,0.46409e-01_rb,0.61269e-01_rb,0.82012e-01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.24352e-01_rb,0.30934e-01_rb,0.39697e-01_rb,0.52483e-01_rb,0.71167e-01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.22598e-01_rb,0.29152e-01_rb,0.37468e-01_rb,0.48573e-01_rb,0.66434e-01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.57172e+02_rb,0.59297e+02_rb,0.61400e+02_rb,0.63512e+02_rb,0.65627e+02_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.50361e+02_rb,0.52086e+02_rb,0.53828e+02_rb,0.55595e+02_rb,0.57346e+02_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.44078e+02_rb,0.45453e+02_rb,0.46902e+02_rb,0.48347e+02_rb,0.49789e+02_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.38395e+02_rb,0.39554e+02_rb,0.40754e+02_rb,0.41955e+02_rb,0.43150e+02_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.33363e+02_rb,0.34355e+02_rb,0.35352e+02_rb,0.36337e+02_rb,0.37312e+02_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.28599e+02_rb,0.29463e+02_rb,0.30307e+02_rb,0.31155e+02_rb,0.32043e+02_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.24284e+02_rb,0.24982e+02_rb,0.25685e+02_rb,0.26424e+02_rb,0.27289e+02_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.20576e+02_rb,0.21117e+02_rb,0.21693e+02_rb,0.22370e+02_rb,0.23304e+02_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.17126e+02_rb,0.17629e+02_rb,0.18193e+02_rb,0.18968e+02_rb,0.20012e+02_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.14084e+02_rb,0.14526e+02_rb,0.15112e+02_rb,0.15986e+02_rb,0.17086e+02_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.11727e+02_rb,0.12073e+02_rb,0.12663e+02_rb,0.13546e+02_rb,0.14594e+02_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.10116e+02_rb,0.10483e+02_rb,0.11087e+02_rb,0.11839e+02_rb,0.12630e+02_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.89362e+01_rb,0.93748e+01_rb,0.99578e+01_rb,0.10576e+02_rb,0.11263e+02_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.79574e+01_rb,0.84325e+01_rb,0.89960e+01_rb,0.95862e+01_rb,0.10135e+02_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.71290e+01_rb,0.76343e+01_rb,0.81343e+01_rb,0.86609e+01_rb,0.91441e+01_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.64441e+01_rb,0.69081e+01_rb,0.73340e+01_rb,0.77892e+01_rb,0.82579e+01_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.57859e+01_rb,0.61904e+01_rb,0.65762e+01_rb,0.69937e+01_rb,0.74255e+01_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.51602e+01_rb,0.55338e+01_rb,0.58953e+01_rb,0.62766e+01_rb,0.66823e+01_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.45943e+01_rb,0.49270e+01_rb,0.52739e+01_rb,0.56298e+01_rb,0.60118e+01_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.40881e+01_rb,0.44095e+01_rb,0.47450e+01_rb,0.50839e+01_rb,0.54488e+01_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.36534e+01_rb,0.39549e+01_rb,0.42670e+01_rb,0.46043e+01_rb,0.49743e+01_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.32874e+01_rb,0.35667e+01_rb,0.38571e+01_rb,0.41872e+01_rb,0.45862e+01_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.29379e+01_rb,0.31963e+01_rb,0.34845e+01_rb,0.38151e+01_rb,0.42290e+01_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.26101e+01_rb,0.28628e+01_rb,0.31405e+01_rb,0.34760e+01_rb,0.38927e+01_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.23047e+01_rb,0.25368e+01_rb,0.28124e+01_rb,0.31292e+01_rb,0.35310e+01_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.20413e+01_rb,0.22603e+01_rb,0.25129e+01_rb,0.28252e+01_rb,0.32149e+01_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.18040e+01_rb,0.20133e+01_rb,0.22565e+01_rb,0.25571e+01_rb,0.29423e+01_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.15898e+01_rb,0.17862e+01_rb,0.20189e+01_rb,0.22992e+01_rb,0.26576e+01_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.14002e+01_rb,0.15861e+01_rb,0.18008e+01_rb,0.20620e+01_rb,0.24028e+01_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.12302e+01_rb,0.14049e+01_rb,0.16015e+01_rb,0.18444e+01_rb,0.21658e+01_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.10668e+01_rb,0.12258e+01_rb,0.14101e+01_rb,0.16347e+01_rb,0.19297e+01_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.91800e+00_rb,0.10642e+01_rb,0.12324e+01_rb,0.14347e+01_rb,0.17074e+01_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.78687e+00_rb,0.91967e+00_rb,0.10737e+01_rb,0.12598e+01_rb,0.15049e+01_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.67148e+00_rb,0.79041e+00_rb,0.92761e+00_rb,0.10973e+01_rb,0.13177e+01_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.57045e+00_rb,0.67640e+00_rb,0.80034e+00_rb,0.94779e+00_rb,0.11432e+01_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.48142e+00_rb,0.57646e+00_rb,0.68676e+00_rb,0.82116e+00_rb,0.98898e+00_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.40194e+00_rb,0.48757e+00_rb,0.58498e+00_rb,0.70838e+00_rb,0.85881e+00_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.34095e+00_rb,0.41499e+00_rb,0.50425e+00_rb,0.61464e+00_rb,0.75451e+00_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.29038e+00_rb,0.35608e+00_rb,0.43553e+00_rb,0.53422e+00_rb,0.66315e+00_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.24615e+00_rb,0.30360e+00_rb,0.37359e+00_rb,0.46378e+00_rb,0.57808e+00_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.20660e+00_rb,0.25764e+00_rb,0.31993e+00_rb,0.39869e+00_rb,0.50232e+00_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.17518e+00_rb,0.22280e+00_rb,0.27852e+00_rb,0.34881e+00_rb,0.44243e+00_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.14906e+00_rb,0.19392e+00_rb,0.24538e+00_rb,0.31045e+00_rb,0.39204e+00_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.12564e+00_rb,0.16748e+00_rb,0.21535e+00_rb,0.27386e+00_rb,0.34816e+00_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.10489e+00_rb,0.14334e+00_rb,0.18902e+00_rb,0.24147e+00_rb,0.30976e+00_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.88415e-01_rb,0.12250e+00_rb,0.16566e+00_rb,0.21499e+00_rb,0.27515e+00_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.80710e-01_rb,0.11375e+00_rb,0.15629e+00_rb,0.20737e+00_rb,0.26838e+00_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.16465e+03_rb,0.16298e+03_rb,0.16413e+03_rb,0.16796e+03_rb,0.17425e+03_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.14134e+03_rb,0.14223e+03_rb,0.14584e+03_rb,0.15183e+03_rb,0.15823e+03_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.12334e+03_rb,0.12642e+03_rb,0.13170e+03_rb,0.13719e+03_rb,0.14248e+03_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.10903e+03_rb,0.11350e+03_rb,0.11825e+03_rb,0.12284e+03_rb,0.12720e+03_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.96744e+02_rb,0.10077e+03_rb,0.10473e+03_rb,0.10856e+03_rb,0.11225e+03_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.85368e+02_rb,0.88669e+02_rb,0.91934e+02_rb,0.95127e+02_rb,0.98216e+02_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.74865e+02_rb,0.77560e+02_rb,0.80263e+02_rb,0.82912e+02_rb,0.85499e+02_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.65304e+02_rb,0.67588e+02_rb,0.69849e+02_rb,0.72099e+02_rb,0.74316e+02_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.56704e+02_rb,0.58616e+02_rb,0.60541e+02_rb,0.62457e+02_rb,0.64444e+02_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.49099e+02_rb,0.50788e+02_rb,0.52451e+02_rb,0.54119e+02_rb,0.55970e+02_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.42076e+02_rb,0.43646e+02_rb,0.45230e+02_rb,0.46888e+02_rb,0.48798e+02_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.35457e+02_rb,0.36904e+02_rb,0.38447e+02_rb,0.40262e+02_rb,0.42565e+02_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.29832e+02_rb,0.31036e+02_rb,0.32508e+02_rb,0.34502e+02_rb,0.36979e+02_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.25205e+02_rb,0.26348e+02_rb,0.27792e+02_rb,0.29788e+02_rb,0.32459e+02_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.21486e+02_rb,0.22586e+02_rb,0.24162e+02_rb,0.26260e+02_rb,0.28944e+02_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.18712e+02_rb,0.19693e+02_rb,0.21370e+02_rb,0.23591e+02_rb,0.26158e+02_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.16630e+02_rb,0.17716e+02_rb,0.19369e+02_rb,0.21565e+02_rb,0.24102e+02_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.14923e+02_rb,0.16119e+02_rb,0.17783e+02_rb,0.19989e+02_rb,0.22379e+02_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.13532e+02_rb,0.14853e+02_rb,0.16576e+02_rb,0.18745e+02_rb,0.21084e+02_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.12453e+02_rb,0.13784e+02_rb,0.15587e+02_rb,0.17718e+02_rb,0.20022e+02_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.11580e+02_rb,0.13038e+02_rb,0.14851e+02_rb,0.16892e+02_rb,0.19192e+02_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.10820e+02_rb,0.12376e+02_rb,0.14134e+02_rb,0.16152e+02_rb,0.18402e+02_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.10116e+02_rb,0.11686e+02_rb,0.13402e+02_rb,0.15346e+02_rb,0.17556e+02_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.93933e+01_rb,0.10910e+02_rb,0.12572e+02_rb,0.14432e+02_rb,0.16536e+02_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.85160e+01_rb,0.99755e+01_rb,0.11554e+02_rb,0.13358e+02_rb,0.15350e+02_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.77505e+01_rb,0.91225e+01_rb,0.10670e+02_rb,0.12380e+02_rb,0.14273e+02_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.70897e+01_rb,0.83885e+01_rb,0.98694e+01_rb,0.11502e+02_rb,0.13343e+02_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.63295e+01_rb,0.75506e+01_rb,0.89466e+01_rb,0.10495e+02_rb,0.12287e+02_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.56302e+01_rb,0.67988e+01_rb,0.80957e+01_rb,0.96013e+01_rb,0.11280e+02_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.50234e+01_rb,0.61071e+01_rb,0.73389e+01_rb,0.87816e+01_rb,0.10380e+02_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.44225e+01_rb,0.54282e+01_rb,0.65963e+01_rb,0.79433e+01_rb,0.94666e+01_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.38558e+01_rb,0.47912e+01_rb,0.58905e+01_rb,0.71478e+01_rb,0.86145e+01_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.33575e+01_rb,0.42351e+01_rb,0.52475e+01_rb,0.64292e+01_rb,0.78296e+01_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.29053e+01_rb,0.37074e+01_rb,0.46432e+01_rb,0.57484e+01_rb,0.70674e+01_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.24706e+01_rb,0.31851e+01_rb,0.40524e+01_rb,0.50837e+01_rb,0.62990e+01_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.20907e+01_rb,0.27320e+01_rb,0.35232e+01_rb,0.44689e+01_rb,0.55998e+01_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.17652e+01_rb,0.23397e+01_rb,0.30525e+01_rb,0.39130e+01_rb,0.49641e+01_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.14980e+01_rb,0.19995e+01_rb,0.26386e+01_rb,0.34309e+01_rb,0.43930e+01_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.12883e+01_rb,0.17229e+01_rb,0.22808e+01_rb,0.30058e+01_rb,0.38921e+01_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.11032e+01_rb,0.14878e+01_rb,0.19945e+01_rb,0.26225e+01_rb,0.34327e+01_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.94256e+00_rb,0.12803e+01_rb,0.17436e+01_rb,0.23095e+01_rb,0.30258e+01_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.80847e+00_rb,0.11045e+01_rb,0.15250e+01_rb,0.20573e+01_rb,0.27048e+01_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.69972e+00_rb,0.95008e+00_rb,0.13215e+01_rb,0.18178e+01_rb,0.24326e+01_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.60659e+00_rb,0.81298e+00_rb,0.11430e+01_rb,0.15925e+01_rb,0.21783e+01_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.52664e+00_rb,0.69670e+00_rb,0.97998e+00_rb,0.13891e+01_rb,0.19333e+01_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.45985e+00_rb,0.60682e+00_rb,0.84337e+00_rb,0.12113e+01_rb,0.17188e+01_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.43853e+00_rb,0.57879e+00_rb,0.79018e+00_rb,0.11130e+01_rb,0.16039e+01_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.86016e+03_rb,0.84626e+03_rb,0.83228e+03_rb,0.81817e+03_rb,0.80450e+03_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.75981e+03_rb,0.74663e+03_rb,0.73345e+03_rb,0.72104e+03_rb,0.71224e+03_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.66201e+03_rb,0.64993e+03_rb,0.63891e+03_rb,0.63210e+03_rb,0.62978e+03_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.57014e+03_rb,0.56027e+03_rb,0.55466e+03_rb,0.55378e+03_rb,0.55721e+03_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.48861e+03_rb,0.48354e+03_rb,0.48324e+03_rb,0.48760e+03_rb,0.49602e+03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.41987e+03_rb,0.41964e+03_rb,0.42411e+03_rb,0.43291e+03_rb,0.44575e+03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.36303e+03_rb,0.36702e+03_rb,0.37556e+03_rb,0.38834e+03_rb,0.40471e+03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.31651e+03_rb,0.32421e+03_rb,0.33627e+03_rb,0.35219e+03_rb,0.37072e+03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.27867e+03_rb,0.28947e+03_rb,0.30434e+03_rb,0.32131e+03_rb,0.33823e+03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.24916e+03_rb,0.26251e+03_rb,0.27768e+03_rb,0.29296e+03_rb,0.30844e+03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.22571e+03_rb,0.23932e+03_rb,0.25291e+03_rb,0.26670e+03_rb,0.28069e+03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.20503e+03_rb,0.21765e+03_rb,0.23029e+03_rb,0.24291e+03_rb,0.25575e+03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.18574e+03_rb,0.19763e+03_rb,0.20960e+03_rb,0.22151e+03_rb,0.23356e+03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.16825e+03_rb,0.17945e+03_rb,0.19085e+03_rb,0.20242e+03_rb,0.21406e+03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.15254e+03_rb,0.16311e+03_rb,0.17402e+03_rb,0.18521e+03_rb,0.19696e+03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.13815e+03_rb,0.14857e+03_rb,0.15913e+03_rb,0.17022e+03_rb,0.18238e+03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.12560e+03_rb,0.13571e+03_rb,0.14630e+03_rb,0.15763e+03_rb,0.17019e+03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.11497e+03_rb,0.12476e+03_rb,0.13550e+03_rb,0.14719e+03_rb,0.16044e+03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.10602e+03_rb,0.11577e+03_rb,0.12671e+03_rb,0.13889e+03_rb,0.15289e+03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.98519e+02_rb,0.10855e+03_rb,0.11978e+03_rb,0.13265e+03_rb,0.14744e+03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.92517e+02_rb,0.10274e+03_rb,0.11452e+03_rb,0.12822e+03_rb,0.14389e+03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.87441e+02_rb,0.97936e+02_rb,0.11044e+03_rb,0.12495e+03_rb,0.14148e+03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.82499e+02_rb,0.93333e+02_rb,0.10635e+03_rb,0.12151e+03_rb,0.13874e+03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.77442e+02_rb,0.88493e+02_rb,0.10184e+03_rb,0.11740e+03_rb,0.13513e+03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.71771e+02_rb,0.82731e+02_rb,0.96032e+02_rb,0.11158e+03_rb,0.12941e+03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.66727e+02_rb,0.77610e+02_rb,0.90795e+02_rb,0.10632e+03_rb,0.12415e+03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.62339e+02_rb,0.73113e+02_rb,0.86200e+02_rb,0.10167e+03_rb,0.11942e+03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.57601e+02_rb,0.67999e+02_rb,0.80724e+02_rb,0.95858e+02_rb,0.11323e+03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.53285e+02_rb,0.63203e+02_rb,0.75577e+02_rb,0.90242e+02_rb,0.10726e+03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.49392e+02_rb,0.58908e+02_rb,0.70834e+02_rb,0.85045e+02_rb,0.10163e+03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.45446e+02_rb,0.54452e+02_rb,0.65751e+02_rb,0.79402e+02_rb,0.95397e+02_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.41620e+02_rb,0.50184e+02_rb,0.60777e+02_rb,0.73786e+02_rb,0.89076e+02_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.38059e+02_rb,0.46282e+02_rb,0.56226e+02_rb,0.68539e+02_rb,0.83136e+02_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.34554e+02_rb,0.42501e+02_rb,0.51829e+02_rb,0.63383e+02_rb,0.77220e+02_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.31009e+02_rb,0.38610e+02_rb,0.47385e+02_rb,0.58058e+02_rb,0.71080e+02_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.27715e+02_rb,0.34934e+02_rb,0.43319e+02_rb,0.53190e+02_rb,0.65347e+02_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.24658e+02_rb,0.31478e+02_rb,0.39500e+02_rb,0.48743e+02_rb,0.59997e+02_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.22034e+02_rb,0.28437e+02_rb,0.36093e+02_rb,0.44894e+02_rb,0.55346e+02_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.19684e+02_rb,0.25626e+02_rb,0.32937e+02_rb,0.41385e+02_rb,0.51154e+02_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.17504e+02_rb,0.22995e+02_rb,0.29925e+02_rb,0.38057e+02_rb,0.47307e+02_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.15552e+02_rb,0.20544e+02_rb,0.27079e+02_rb,0.34832e+02_rb,0.43722e+02_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.13886e+02_rb,0.18476e+02_rb,0.24607e+02_rb,0.31966e+02_rb,0.40540e+02_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.12396e+02_rb,0.16681e+02_rb,0.22385e+02_rb,0.29384e+02_rb,0.37592e+02_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.11028e+02_rb,0.15006e+02_rb,0.20297e+02_rb,0.26955e+02_rb,0.34780e+02_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.97493e+01_rb,0.13452e+02_rb,0.18354e+02_rb,0.24644e+02_rb,0.32099e+02_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.86411e+01_rb,0.12068e+02_rb,0.16627e+02_rb,0.22569e+02_rb,0.29684e+02_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.80894e+01_rb,0.11449e+02_rb,0.15905e+02_rb,0.21753e+02_rb,0.28728e+02_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.50046e+04_rb,0.50034e+04_rb,0.49950e+04_rb,0.49781e+04_rb,0.49542e+04_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.51812e+04_rb,0.51738e+04_rb,0.51582e+04_rb,0.51357e+04_rb,0.51054e+04_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.52793e+04_rb,0.52645e+04_rb,0.52450e+04_rb,0.52172e+04_rb,0.51836e+04_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.53001e+04_rb,0.52818e+04_rb,0.52568e+04_rb,0.52274e+04_rb,0.51924e+04_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.52448e+04_rb,0.52242e+04_rb,0.52004e+04_rb,0.51715e+04_rb,0.51377e+04_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.51200e+04_rb,0.51031e+04_rb,0.50817e+04_rb,0.50571e+04_rb,0.50308e+04_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.49389e+04_rb,0.49284e+04_rb,0.49153e+04_rb,0.49007e+04_rb,0.48819e+04_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.47181e+04_rb,0.47168e+04_rb,0.47163e+04_rb,0.47129e+04_rb,0.47111e+04_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.44718e+04_rb,0.44865e+04_rb,0.44990e+04_rb,0.45153e+04_rb,0.45403e+04_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.42192e+04_rb,0.42497e+04_rb,0.42861e+04_rb,0.43316e+04_rb,0.43809e+04_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.39727e+04_rb,0.40275e+04_rb,0.40936e+04_rb,0.41646e+04_rb,0.42404e+04_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.37507e+04_rb,0.38336e+04_rb,0.39239e+04_rb,0.40206e+04_rb,0.41209e+04_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.35606e+04_rb,0.36694e+04_rb,0.37826e+04_rb,0.39026e+04_rb,0.40244e+04_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.34043e+04_rb,0.35364e+04_rb,0.36731e+04_rb,0.38130e+04_rb,0.39519e+04_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.32803e+04_rb,0.34346e+04_rb,0.35912e+04_rb,0.37476e+04_rb,0.39014e+04_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.31876e+04_rb,0.33610e+04_rb,0.35344e+04_rb,0.37042e+04_rb,0.38699e+04_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.31239e+04_rb,0.33137e+04_rb,0.34995e+04_rb,0.36813e+04_rb,0.38573e+04_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.30850e+04_rb,0.32872e+04_rb,0.34837e+04_rb,0.36745e+04_rb,0.38591e+04_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.30674e+04_rb,0.32795e+04_rb,0.34848e+04_rb,0.36826e+04_rb,0.38724e+04_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.30683e+04_rb,0.32879e+04_rb,0.34990e+04_rb,0.37022e+04_rb,0.38953e+04_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.30831e+04_rb,0.33087e+04_rb,0.35243e+04_rb,0.37303e+04_rb,0.39250e+04_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.31017e+04_rb,0.33308e+04_rb,0.35496e+04_rb,0.37580e+04_rb,0.39527e+04_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.31057e+04_rb,0.33387e+04_rb,0.35601e+04_rb,0.37700e+04_rb,0.39654e+04_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.30895e+04_rb,0.33260e+04_rb,0.35504e+04_rb,0.37630e+04_rb,0.39606e+04_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.30400e+04_rb,0.32811e+04_rb,0.35096e+04_rb,0.37263e+04_rb,0.39277e+04_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.29913e+04_rb,0.32361e+04_rb,0.34690e+04_rb,0.36890e+04_rb,0.38942e+04_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.29441e+04_rb,0.31926e+04_rb,0.34294e+04_rb,0.36526e+04_rb,0.38612e+04_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.28722e+04_rb,0.31254e+04_rb,0.33667e+04_rb,0.35943e+04_rb,0.38073e+04_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.27971e+04_rb,0.30548e+04_rb,0.33004e+04_rb,0.35326e+04_rb,0.37505e+04_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.27226e+04_rb,0.29837e+04_rb,0.32336e+04_rb,0.34701e+04_rb,0.36925e+04_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.26332e+04_rb,0.28981e+04_rb,0.31525e+04_rb,0.33944e+04_rb,0.36223e+04_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.25372e+04_rb,0.28050e+04_rb,0.30643e+04_rb,0.33114e+04_rb,0.35441e+04_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.24417e+04_rb,0.27113e+04_rb,0.29748e+04_rb,0.32268e+04_rb,0.34651e+04_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.23395e+04_rb,0.26115e+04_rb,0.28783e+04_rb,0.31351e+04_rb,0.33792e+04_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.22243e+04_rb,0.24998e+04_rb,0.27694e+04_rb,0.30313e+04_rb,0.32810e+04_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.21083e+04_rb,0.23877e+04_rb,0.26592e+04_rb,0.29257e+04_rb,0.31803e+04_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.19925e+04_rb,0.22741e+04_rb,0.25488e+04_rb,0.28180e+04_rb,0.30783e+04_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.18841e+04_rb,0.21666e+04_rb,0.24447e+04_rb,0.27159e+04_rb,0.29806e+04_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.17798e+04_rb,0.20618e+04_rb,0.23428e+04_rb,0.26160e+04_rb,0.28839e+04_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.16762e+04_rb,0.19574e+04_rb,0.22398e+04_rb,0.25156e+04_rb,0.27862e+04_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.15731e+04_rb,0.18530e+04_rb,0.21358e+04_rb,0.24152e+04_rb,0.26872e+04_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.14802e+04_rb,0.17581e+04_rb,0.20401e+04_rb,0.23219e+04_rb,0.25956e+04_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.13915e+04_rb,0.16675e+04_rb,0.19488e+04_rb,0.22318e+04_rb,0.25080e+04_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.13039e+04_rb,0.15778e+04_rb,0.18577e+04_rb,0.21406e+04_rb,0.24200e+04_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.12167e+04_rb,0.14890e+04_rb,0.17672e+04_rb,0.20493e+04_rb,0.23313e+04_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.11349e+04_rb,0.14057e+04_rb,0.16818e+04_rb,0.19631e+04_rb,0.22464e+04_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.11025e+04_rb,0.13721e+04_rb,0.16476e+04_rb,0.19283e+04_rb,0.22117e+04_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.12492e+05_rb,0.12602e+05_rb,0.12678e+05_rb,0.12730e+05_rb,0.12749e+05_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.14696e+05_rb,0.14792e+05_rb,0.14862e+05_rb,0.14890e+05_rb,0.14889e+05_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.17153e+05_rb,0.17242e+05_rb,0.17275e+05_rb,0.17274e+05_rb,0.17231e+05_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.19843e+05_rb,0.19894e+05_rb,0.19898e+05_rb,0.19845e+05_rb,0.19747e+05_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.22727e+05_rb,0.22731e+05_rb,0.22667e+05_rb,0.22551e+05_rb,0.22386e+05_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.25761e+05_rb,0.25684e+05_rb,0.25544e+05_rb,0.25342e+05_rb,0.25070e+05_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.28878e+05_rb,0.28701e+05_rb,0.28454e+05_rb,0.28131e+05_rb,0.27759e+05_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.31981e+05_rb,0.31695e+05_rb,0.31314e+05_rb,0.30871e+05_rb,0.30360e+05_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.35017e+05_rb,0.34575e+05_rb,0.34064e+05_rb,0.33480e+05_rb,0.32821e+05_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.37854e+05_rb,0.37264e+05_rb,0.36589e+05_rb,0.35840e+05_rb,0.35046e+05_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.40473e+05_rb,0.39710e+05_rb,0.38862e+05_rb,0.37967e+05_rb,0.37023e+05_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.42796e+05_rb,0.41864e+05_rb,0.40869e+05_rb,0.39817e+05_rb,0.38718e+05_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.44813e+05_rb,0.43719e+05_rb,0.42578e+05_rb,0.41380e+05_rb,0.40143e+05_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.46504e+05_rb,0.45263e+05_rb,0.43973e+05_rb,0.42641e+05_rb,0.41294e+05_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.47893e+05_rb,0.46507e+05_rb,0.45087e+05_rb,0.43647e+05_rb,0.42197e+05_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.48993e+05_rb,0.47480e+05_rb,0.45952e+05_rb,0.44417e+05_rb,0.42878e+05_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.49823e+05_rb,0.48206e+05_rb,0.46588e+05_rb,0.44969e+05_rb,0.43353e+05_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.50415e+05_rb,0.48716e+05_rb,0.47025e+05_rb,0.45339e+05_rb,0.43659e+05_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.50811e+05_rb,0.49042e+05_rb,0.47288e+05_rb,0.45543e+05_rb,0.43813e+05_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.51032e+05_rb,0.49203e+05_rb,0.47400e+05_rb,0.45610e+05_rb,0.43841e+05_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.51107e+05_rb,0.49234e+05_rb,0.47393e+05_rb,0.45565e+05_rb,0.43775e+05_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.51130e+05_rb,0.49228e+05_rb,0.47350e+05_rb,0.45497e+05_rb,0.43688e+05_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.51256e+05_rb,0.49316e+05_rb,0.47413e+05_rb,0.45540e+05_rb,0.43711e+05_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.51519e+05_rb,0.49555e+05_rb,0.47626e+05_rb,0.45731e+05_rb,0.43885e+05_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.52034e+05_rb,0.50041e+05_rb,0.48090e+05_rb,0.46168e+05_rb,0.44302e+05_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.52529e+05_rb,0.50511e+05_rb,0.48535e+05_rb,0.46595e+05_rb,0.44706e+05_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.52985e+05_rb,0.50952e+05_rb,0.48954e+05_rb,0.46996e+05_rb,0.45085e+05_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.53633e+05_rb,0.51575e+05_rb,0.49556e+05_rb,0.47578e+05_rb,0.45648e+05_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.54289e+05_rb,0.52211e+05_rb,0.50171e+05_rb,0.48171e+05_rb,0.46220e+05_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.54932e+05_rb,0.52836e+05_rb,0.50778e+05_rb,0.48759e+05_rb,0.46785e+05_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.55673e+05_rb,0.53569e+05_rb,0.51488e+05_rb,0.49449e+05_rb,0.47456e+05_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.56461e+05_rb,0.54346e+05_rb,0.52247e+05_rb,0.50190e+05_rb,0.48178e+05_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.57241e+05_rb,0.55121e+05_rb,0.53007e+05_rb,0.50929e+05_rb,0.48897e+05_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.58063e+05_rb,0.55933e+05_rb,0.53806e+05_rb,0.51710e+05_rb,0.49656e+05_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.58978e+05_rb,0.56828e+05_rb,0.54697e+05_rb,0.52582e+05_rb,0.50505e+05_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.59891e+05_rb,0.57720e+05_rb,0.55586e+05_rb,0.53459e+05_rb,0.51367e+05_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.60795e+05_rb,0.58621e+05_rb,0.56472e+05_rb,0.54336e+05_rb,0.52224e+05_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.61639e+05_rb,0.59466e+05_rb,0.57298e+05_rb,0.55162e+05_rb,0.53034e+05_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.62447e+05_rb,0.60284e+05_rb,0.58110e+05_rb,0.55961e+05_rb,0.53824e+05_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.63240e+05_rb,0.61098e+05_rb,0.58916e+05_rb,0.56760e+05_rb,0.54612e+05_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.64030e+05_rb,0.61903e+05_rb,0.59727e+05_rb,0.57558e+05_rb,0.55411e+05_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.64735e+05_rb,0.62637e+05_rb,0.60471e+05_rb,0.58287e+05_rb,0.56138e+05_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.65407e+05_rb,0.63332e+05_rb,0.61181e+05_rb,0.59003e+05_rb,0.56834e+05_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.66069e+05_rb,0.64015e+05_rb,0.61881e+05_rb,0.59702e+05_rb,0.57529e+05_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.66725e+05_rb,0.64683e+05_rb,0.62576e+05_rb,0.60411e+05_rb,0.58225e+05_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.67327e+05_rb,0.65315e+05_rb,0.63232e+05_rb,0.61078e+05_rb,0.58891e+05_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.67577e+05_rb,0.65572e+05_rb,0.63496e+05_rb,0.61349e+05_rb,0.59161e+05_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.299818e-05_rb, 0.209282e-05_rb, 0.988353e-04_rb, 0.632178e-03_rb /)\n      forrefo(:, 2) = (/ 0.633648e-05_rb, 0.509214e-04_rb, 0.650535e-03_rb, 0.264019e-02_rb /)\n      forrefo(:, 3) = (/ 0.636782e-04_rb, 0.136577e-03_rb, 0.166500e-02_rb, 0.750821e-02_rb /)\n      forrefo(:, 4) = (/ 0.472314e-03_rb, 0.988296e-03_rb, 0.585751e-02_rb, 0.187352e-01_rb /)\n      forrefo(:, 5) = (/ 0.558635e-02_rb, 0.856489e-02_rb, 0.157438e-01_rb, 0.181471e-01_rb /)\n      forrefo(:, 6) = (/ 0.217395e-01_rb, 0.229156e-01_rb, 0.230125e-01_rb, 0.143821e-01_rb /)\n      forrefo(:, 7) = (/ 0.277222e-01_rb, 0.299252e-01_rb, 0.208929e-01_rb, 0.826748e-02_rb /)\n      forrefo(:, 8) = (/ 0.252119e-01_rb, 0.262911e-01_rb, 0.187663e-01_rb, 0.417110e-02_rb /)\n      forrefo(:, 9) = (/ 0.304941e-01_rb, 0.175545e-01_rb, 0.971224e-02_rb, 0.142023e-02_rb /)\n      forrefo(:,10) = (/ 0.327200e-01_rb, 0.215788e-01_rb, 0.346831e-02_rb, 0.157989e-02_rb /)\n      forrefo(:,11) = (/ 0.324955e-01_rb, 0.228571e-01_rb, 0.171749e-02_rb, 0.226853e-02_rb /)\n      forrefo(:,12) = (/ 0.326588e-01_rb, 0.198544e-01_rb, 0.532339e-06_rb, 0.279086e-02_rb /)\n      forrefo(:,13) = (/ 0.345157e-01_rb, 0.168679e-01_rb, 0.505361e-06_rb, 0.276647e-02_rb /)\n      forrefo(:,14) = (/ 0.448765e-01_rb, 0.123791e-02_rb, 0.488367e-06_rb, 0.122245e-02_rb /)\n      forrefo(:,15) = (/ 0.486925e-01_rb, 0.464371e-06_rb, 0.464241e-06_rb, 0.753846e-06_rb /)\n      forrefo(:,16) = (/ 0.530511e-01_rb, 0.376234e-06_rb, 0.409824e-06_rb, 0.470650e-06_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.118069e+00_rb, 0.713523e-01_rb, 0.431199e-01_rb, 0.260584e-01_rb, 0.157477e-01_rb, &\n        &  0.951675e-02_rb, 0.575121e-02_rb, 0.347560e-02_rb, 0.210039e-02_rb, 0.126932e-02_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.137081e-01_rb, 0.139046e-01_rb, 0.141040e-01_rb, 0.143061e-01_rb, 0.145112e-01_rb, &\n        &  0.147193e-01_rb, 0.149303e-01_rb, 0.151443e-01_rb, 0.153614e-01_rb, 0.155816e-01_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.166575e-01_rb, 0.164916e-01_rb, 0.163273e-01_rb, 0.161647e-01_rb, 0.160037e-01_rb, &\n        &  0.158443e-01_rb, 0.156864e-01_rb, 0.155302e-01_rb, 0.153755e-01_rb, 0.152224e-01_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.597379e-01_rb, 0.509517e-01_rb, 0.434579e-01_rb, 0.370662e-01_rb, 0.316145e-01_rb, &\n        &  0.269647e-01_rb, 0.229988e-01_rb, 0.196162e-01_rb, 0.167311e-01_rb, 0.142703e-01_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.227517e+00_rb, 0.198401e+00_rb, 0.173011e+00_rb, 0.150870e+00_rb, 0.131563e+00_rb, &\n        &  0.114726e+00_rb, 0.100044e+00_rb, 0.872415e-01_rb, 0.760769e-01_rb, 0.663411e-01_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.453235e+00_rb, 0.414848e+00_rb, 0.379712e+00_rb, 0.347552e+00_rb, 0.318116e+00_rb, &\n        &  0.291173e+00_rb, 0.266512e+00_rb, 0.243940e+00_rb, 0.223279e+00_rb, 0.204368e+00_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.569263e+00_rb, 0.516415e+00_rb, 0.468473e+00_rb, 0.424982e+00_rb, 0.385528e+00_rb, &\n        &  0.349737e+00_rb, 0.317269e+00_rb, 0.287815e+00_rb, 0.261095e+00_rb, 0.236856e+00_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.490314e+00_rb, 0.448042e+00_rb, 0.409413e+00_rb, 0.374116e+00_rb, 0.341861e+00_rb, &\n        &  0.312387e+00_rb, 0.285455e+00_rb, 0.260844e+00_rb, 0.238355e+00_rb, 0.217805e+00_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.258162e+00_rb, 0.265085e+00_rb, 0.272193e+00_rb, 0.279493e+00_rb, 0.286988e+00_rb, &\n        &  0.294684e+00_rb, 0.302586e+00_rb, 0.310701e+00_rb, 0.319033e+00_rb, 0.327588e+00_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.332019e+00_rb, 0.331902e+00_rb, 0.331784e+00_rb, 0.331666e+00_rb, 0.331549e+00_rb, &\n        &  0.331431e+00_rb, 0.331314e+00_rb, 0.331197e+00_rb, 0.331079e+00_rb, 0.330962e+00_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.357523e+00_rb, 0.353154e+00_rb, 0.348839e+00_rb, 0.344576e+00_rb, 0.340366e+00_rb, &\n        &  0.336207e+00_rb, 0.332099e+00_rb, 0.328041e+00_rb, 0.324032e+00_rb, 0.320073e+00_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.294662e+00_rb, 0.299043e+00_rb, 0.303488e+00_rb, 0.308000e+00_rb, 0.312579e+00_rb, &\n        &  0.317226e+00_rb, 0.321941e+00_rb, 0.326727e+00_rb, 0.331585e+00_rb, 0.336514e+00_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.227445e+00_rb, 0.241545e+00_rb, 0.256519e+00_rb, 0.272422e+00_rb, 0.289311e+00_rb, &\n        &  0.307247e+00_rb, 0.326294e+00_rb, 0.346523e+00_rb, 0.368005e+00_rb, 0.390820e+00_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.616203e-02_rb, 0.113523e-01_rb, 0.209144e-01_rb, 0.385307e-01_rb, 0.709852e-01_rb, &\n        &  0.130776e+00_rb, 0.240929e+00_rb, 0.443865e+00_rb, 0.817733e+00_rb, 0.150651e+01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.279552e-03_rb, 0.808472e-03_rb, 0.233812e-02_rb, 0.676192e-02_rb, 0.195557e-01_rb, &\n        &  0.565555e-01_rb, 0.163560e+00_rb, 0.473020e+00_rb, 0.136799e+01_rb, 0.395626e+01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.261006e-03_rb, 0.771043e-03_rb, 0.227776e-02_rb, 0.672879e-02_rb, 0.198777e-01_rb, &\n        &  0.587212e-01_rb, 0.173470e+00_rb, 0.512452e+00_rb, 0.151385e+01_rb, 0.447209e+01_rb /)\n     \n      end subroutine sw_kgb29\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_reftra.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n      module rrtmg_sw_reftra\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl\n      use rrsw_vsn, only : hvrrft, hnamrft\n\n      implicit none\n\n      contains\n\n! --------------------------------------------------------------------\n      subroutine reftra_sw(nlayers, lrtchk, pgg, prmuz, ptau, pw, &\n                           pref, prefd, ptra, ptrad)\n! --------------------------------------------------------------------\n  \n! Purpose: computes the reflectivity and transmissivity of a clear or \n!   cloudy layer using a choice of various approximations.\n!\n! Interface:  *rrtmg_sw_reftra* is called by *rrtmg_sw_spcvrt*\n!\n! Description:\n! explicit arguments :\n! --------------------\n! inputs\n! ------ \n!      lrtchk  = .t. for all layers in clear profile\n!      lrtchk  = .t. for cloudy layers in cloud profile \n!              = .f. for clear layers in cloud profile\n!      pgg     = assymetry factor\n!      prmuz   = cosine solar zenith angle\n!      ptau    = optical thickness\n!      pw      = single scattering albedo\n!\n! outputs\n! -------\n!      pref    : collimated beam reflectivity\n!      prefd   : diffuse beam reflectivity \n!      ptra    : collimated beam transmissivity\n!      ptrad   : diffuse beam transmissivity\n!\n!\n! Method:\n! -------\n!      standard delta-eddington, p.i.f.m., or d.o.m. layer calculations.\n!      kmodts  = 1 eddington (joseph et al., 1976)\n!              = 2 pifm (zdunkowski et al., 1980)\n!              = 3 discrete ordinates (liou, 1973)\n!\n!\n! Modifications:\n! --------------\n! Original: J-JMorcrette, ECMWF, Feb 2003\n! Revised for F90 reformatting: MJIacono, AER, Jul 2006\n! Revised to add exponential lookup table: MJIacono, AER, Aug 2007\n!\n! ------------------------------------------------------------------\n\n! ------- Declarations ------\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers\n\n      logical, intent(in) :: lrtchk(:)                         ! Logical flag for reflectivity and\n                                                               ! and transmissivity calculation; \n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: pgg(:)                      ! asymmetry parameter\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ptau(:)                     ! optical depth\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pw(:)                       ! single scattering albedo \n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: prmuz                       ! cosine of solar zenith angle\n\n! ------- Output -------\n\n      real(kind=rb), intent(inout) :: pref(:)                  ! direct beam reflectivity\n                                                               !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: prefd(:)                 ! diffuse beam reflectivity\n                                                               !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: ptra(:)                  ! direct beam transmissivity\n                                                               !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: ptrad(:)                 ! diffuse beam transmissivity\n                                                               !   Dimensions: (nlayers+1)\n\n! ------- Local -------\n\n      integer(kind=im) :: jk, jl, kmodts\n      integer(kind=im) :: itind\n\n      real(kind=rb) :: tblind\n      real(kind=rb) :: za, za1, za2\n      real(kind=rb) :: zbeta, zdend, zdenr, zdent\n      real(kind=rb) :: ze1, ze2, zem1, zem2, zemm, zep1, zep2\n      real(kind=rb) :: zg, zg3, zgamma1, zgamma2, zgamma3, zgamma4, zgt\n      real(kind=rb) :: zr1, zr2, zr3, zr4, zr5\n      real(kind=rb) :: zrk, zrk2, zrkg, zrm1, zrp, zrp1, zrpp\n      real(kind=rb) :: zsr3, zt1, zt2, zt3, zt4, zt5, zto1\n      real(kind=rb) :: zw, zwcrit, zwo\n\n      real(kind=rb), parameter :: eps = 1.e-08_rb\n\n!     ------------------------------------------------------------------\n\n! Initialize\n\n      hvrrft = '$Revision: 1.5 $'\n\n      zsr3=sqrt(3._rb)\n      zwcrit=0.9999995_rb\n      kmodts=2\n\n      do jk=1, nlayers\n         if (.not.lrtchk(jk)) then\n            pref(jk) =0._rb\n            ptra(jk) =1._rb\n            prefd(jk)=0._rb\n            ptrad(jk)=1._rb\n         else\n            zto1=ptau(jk)\n            zw  =pw(jk)\n            zg  =pgg(jk)  \n\n! General two-stream expressions\n\n            zg3= 3._rb * zg\n            if (kmodts == 1) then\n               zgamma1= (7._rb - zw * (4._rb + zg3)) * 0.25_rb\n               zgamma2=-(1._rb - zw * (4._rb - zg3)) * 0.25_rb\n               zgamma3= (2._rb - zg3 * prmuz ) * 0.25_rb\n            else if (kmodts == 2) then  \n               zgamma1= (8._rb - zw * (5._rb + zg3)) * 0.25_rb\n               zgamma2=  3._rb *(zw * (1._rb - zg )) * 0.25_rb\n               zgamma3= (2._rb - zg3 * prmuz ) * 0.25_rb\n            else if (kmodts == 3) then  \n               zgamma1= zsr3 * (2._rb - zw * (1._rb + zg)) * 0.5_rb\n               zgamma2= zsr3 * zw * (1._rb - zg ) * 0.5_rb\n               zgamma3= (1._rb - zsr3 * zg * prmuz ) * 0.5_rb\n            end if\n            zgamma4= 1._rb - zgamma3\n    \n! Recompute original s.s.a. to test for conservative solution\n\n            zwo= zw / (1._rb - (1._rb - zw) * (zg / (1._rb - zg))**2)\n    \n            if (zwo >= zwcrit) then\n! Conservative scattering\n\n               za  = zgamma1 * prmuz \n               za1 = za - zgamma3\n               zgt = zgamma1 * zto1\n        \n! Homogeneous reflectance and transmittance,\n! collimated beam\n\n               ze1 = min ( zto1 / prmuz , 500._rb)\n!               ze2 = exp( -ze1 )\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               if (ze1 .le. od_lo) then \n                  ze2 = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  ze2 = exp_tbl(itind)\n               endif\n!\n\n               pref(jk) = (zgt - za1 * (1._rb - ze2)) / (1._rb + zgt)\n               ptra(jk) = 1._rb - pref(jk)\n\n! isotropic incidence\n\n               prefd(jk) = zgt / (1._rb + zgt)\n               ptrad(jk) = 1._rb - prefd(jk)        \n\n! This is applied for consistency between total (delta-scaled) and direct (unscaled) \n! calculations at very low optical depths (tau < 1.e-4) when the exponential lookup\n! table returns a transmittance of 1.0.\n               if (ze2 .eq. 1.0_rb) then \n                  pref(jk) = 0.0_rb\n                  ptra(jk) = 1.0_rb\n                  prefd(jk) = 0.0_rb\n                  ptrad(jk) = 1.0_rb\n               endif\n\n            else\n! Non-conservative scattering\n\n               za1 = zgamma1 * zgamma4 + zgamma2 * zgamma3\n               za2 = zgamma1 * zgamma3 + zgamma2 * zgamma4\n               zrk = sqrt ( zgamma1**2 - zgamma2**2)\n               zrp = zrk * prmuz               \n               zrp1 = 1._rb + zrp\n               zrm1 = 1._rb - zrp\n               zrk2 = 2._rb * zrk\n               zrpp = 1._rb - zrp*zrp\n               zrkg = zrk + zgamma1\n               zr1  = zrm1 * (za2 + zrk * zgamma3)\n               zr2  = zrp1 * (za2 - zrk * zgamma3)\n               zr3  = zrk2 * (zgamma3 - za2 * prmuz )\n               zr4  = zrpp * zrkg\n               zr5  = zrpp * (zrk - zgamma1)\n               zt1  = zrp1 * (za1 + zrk * zgamma4)\n               zt2  = zrm1 * (za1 - zrk * zgamma4)\n               zt3  = zrk2 * (zgamma4 + za1 * prmuz )\n               zt4  = zr4\n               zt5  = zr5\n\n! mji - reformulated code to avoid potential floating point exceptions\n!               zbeta = - zr5 / zr4\n               zbeta = (zgamma1 - zrk) / zrkg\n!!\n        \n! Homogeneous reflectance and transmittance\n\n               ze1 = min ( zrk * zto1, 500._rb)\n               ze2 = min ( zto1 / prmuz , 500._rb)\n!\n! Original\n!              zep1 = exp( ze1 )\n!              zem1 = exp(-ze1 )\n!              zep2 = exp( ze2 )\n!              zem2 = exp(-ze2 )\n!\n! Revised original, to reduce exponentials\n!              zep1 = exp( ze1 )\n!              zem1 = 1._rb / zep1\n!              zep2 = exp( ze2 )\n!              zem2 = 1._rb / zep2\n!\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               if (ze1 .le. od_lo) then \n                  zem1 = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  zep1 = 1._rb / zem1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zem1 = exp_tbl(itind)\n                  zep1 = 1._rb / zem1\n               endif\n\n               if (ze2 .le. od_lo) then \n                  zem2 = 1._rb - ze2 + 0.5_rb * ze2 * ze2\n                  zep2 = 1._rb / zem2\n               else\n                  tblind = ze2 / (bpade + ze2)\n                  itind = tblint * tblind + 0.5_rb\n                  zem2 = exp_tbl(itind)\n                  zep2 = 1._rb / zem2\n               endif\n\n! collimated beam\n\n! mji - reformulated code to avoid potential floating point exceptions\n!               zdenr = zr4*zep1 + zr5*zem1\n!               pref(jk) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr\n!               zdent = zt4*zep1 + zt5*zem1\n!               ptra(jk) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent\n\n               zdenr = zr4*zep1 + zr5*zem1\n               zdent = zt4*zep1 + zt5*zem1\n               if (zdenr .ge. -eps .and. zdenr .le. eps) then\n                  pref(jk) = eps\n                  ptra(jk) = zem2\n               else \n                  pref(jk) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr\n                  ptra(jk) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent\n               endif\n!!\n\n! diffuse beam\n\n               zemm = zem1*zem1\n               zdend = 1._rb / ( (1._rb - zbeta*zemm ) * zrkg)\n               prefd(jk) =  zgamma2 * (1._rb - zemm) * zdend\n               ptrad(jk) =  zrk2*zem1*zdend\n\n            endif\n\n         endif         \n\n      enddo    \n\n      end subroutine reftra_sw\n\n      end module rrtmg_sw_reftra\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_setcoef.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n      module rrtmg_sw_setcoef\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : mxmol\n      use rrsw_ref, only : pref, preflog, tref\n      use rrsw_vsn, only : hvrset, hnamset\n\n      implicit none\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &\n                            laytrop, layswtch, laylow, jp, jt, jt1, &\n                            co2mult, colch4, colco2, colh2o, colmol, coln2o, &\n                            colo2, colo3, fac00, fac01, fac10, fac11, &\n                            selffac, selffrac, indself, forfac, forfrac, indfor)\n!----------------------------------------------------------------------------\n!\n! Purpose:  For a given atmosphere, calculate the indices and\n! fractions related to the pressure and temperature interpolations.\n\n! Modifications:\n! Original: J. Delamere, AER, Inc. (version 2.5, 02/04/01)\n! Revised: Rewritten and adapted to ECMWF F90, JJMorcrette 030224\n! Revised: For uniform rrtmg formatting, MJIacono, Jul 2006\n\n! ------ Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n\n      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) \n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tavel(:)           ! layer temperatures (K)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tz(0:)             ! level (interface) temperatures (K)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tbound             ! surface temperature (K)\n      real(kind=rb), intent(in) :: coldry(:)          ! dry air column density (mol/cm2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: wkl(:,:)           ! molecular amounts (mol/cm-2)\n                                                      !    Dimensions: (mxmol,nlayers)\n\n! ----- Output -----\n      integer(kind=im), intent(out) :: laytrop        ! tropopause layer index\n      integer(kind=im), intent(out) :: layswtch       ! \n      integer(kind=im), intent(out) :: laylow         ! \n\n      integer(kind=im), intent(out) :: jp(:)          ! \n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: jt(:)          !\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: jt1(:)         !\n                                                      !    Dimensions: (nlayers)\n\n      real(kind=rb), intent(out) :: colh2o(:)         ! column amount (h2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colco2(:)         ! column amount (co2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colo3(:)          ! column amount (o3)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: coln2o(:)         ! column amount (n2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colch4(:)         ! column amount (ch4)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colo2(:)          ! column amount (o2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colmol(:)         ! \n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: co2mult(:)        !\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(out) :: indself(:)\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: indfor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: selffac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: selffrac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: forfac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: forfrac(:)\n                                                      !    Dimensions: (nlayers)\n\n      real(kind=rb), intent(out) :: &                 !\n                         fac00(:), fac01(:), &        !    Dimensions: (nlayers)\n                         fac10(:), fac11(:) \n\n! ----- Local -----\n\n      integer(kind=im) :: indbound\n      integer(kind=im) :: indlev0\n      integer(kind=im) :: lay\n      integer(kind=im) :: jp1\n\n      real(kind=rb) :: stpfac\n      real(kind=rb) :: tbndfrac\n      real(kind=rb) :: t0frac\n      real(kind=rb) :: plog\n      real(kind=rb) :: fp\n      real(kind=rb) :: ft\n      real(kind=rb) :: ft1\n      real(kind=rb) :: water\n      real(kind=rb) :: scalefac\n      real(kind=rb) :: factor\n      real(kind=rb) :: co2reg\n      real(kind=rb) :: compfp\n\n\n! Initializations\n      stpfac = 296._rb/1013._rb\n\n      indbound = tbound - 159._rb\n      tbndfrac = tbound - int(tbound)\n      indlev0  = tz(0) - 159._rb\n      t0frac   = tz(0) - int(tz(0))\n\n      laytrop  = 0\n      layswtch = 0\n      laylow   = 0\n\n! Begin layer loop\n      do lay = 1, nlayers\n! Find the two reference pressures on either side of the\n! layer pressure.  Store them in JP and JP1.  Store in FP the\n! fraction of the difference (in ln(pressure)) between these\n! two values that the layer pressure lies.\n\n         plog = log(pavel(lay))\n         jp(lay) = int(36._rb - 5*(plog+0.04_rb))\n         if (jp(lay) .lt. 1) then\n            jp(lay) = 1\n         elseif (jp(lay) .gt. 58) then\n            jp(lay) = 58\n         endif\n         jp1 = jp(lay) + 1\n         fp = 5._rb * (preflog(jp(lay)) - plog)\n\n! Determine, for each reference pressure (JP and JP1), which\n! reference temperature (these are different for each  \n! reference pressure) is nearest the layer temperature but does\n! not exceed it.  Store these indices in JT and JT1, resp.\n! Store in FT (resp. FT1) the fraction of the way between JT\n! (JT1) and the next highest reference temperature that the \n! layer temperature falls.\n\n         jt(lay) = int(3._rb + (tavel(lay)-tref(jp(lay)))/15._rb)\n         if (jt(lay) .lt. 1) then\n            jt(lay) = 1\n         elseif (jt(lay) .gt. 4) then\n            jt(lay) = 4\n         endif\n         ft = ((tavel(lay)-tref(jp(lay)))/15._rb) - float(jt(lay)-3)\n         jt1(lay) = int(3._rb + (tavel(lay)-tref(jp1))/15._rb)\n         if (jt1(lay) .lt. 1) then\n            jt1(lay) = 1\n         elseif (jt1(lay) .gt. 4) then\n            jt1(lay) = 4\n         endif\n         ft1 = ((tavel(lay)-tref(jp1))/15._rb) - float(jt1(lay)-3)\n\n         water = wkl(1,lay)/coldry(lay)\n         scalefac = pavel(lay) * stpfac / tavel(lay)\n\n! If the pressure is less than ~100mb, perform a different\n! set of species interpolations.\n\n         if (plog .le. 4.56_rb) go to 5300\n         laytrop =  laytrop + 1\n         if (plog .ge. 6.62_rb) laylow = laylow + 1\n\n! Set up factors needed to separately include the water vapor\n! foreign-continuum in the calculation of absorption coefficient.\n\n         forfac(lay) = scalefac / (1.+water)\n         factor = (332.0_rb-tavel(lay))/36.0_rb\n         indfor(lay) = min(2, max(1, int(factor)))\n         forfrac(lay) = factor - float(indfor(lay))\n\n! Set up factors needed to separately include the water vapor\n! self-continuum in the calculation of absorption coefficient.\n\n         selffac(lay) = water * forfac(lay)\n         factor = (tavel(lay)-188.0_rb)/7.2_rb\n         indself(lay) = min(9, max(1, int(factor)-7))\n         selffrac(lay) = factor - float(indself(lay) + 7)\n\n! Calculate needed column amounts.\n\n         colh2o(lay) = 1.e-20_rb * wkl(1,lay)\n         colco2(lay) = 1.e-20_rb * wkl(2,lay)\n         colo3(lay) = 1.e-20_rb * wkl(3,lay)\n!           colo3(lay) = 0._rb\n!           colo3(lay) = colo3(lay)/1.16_rb\n         coln2o(lay) = 1.e-20_rb * wkl(4,lay)\n         colch4(lay) = 1.e-20_rb * wkl(6,lay)\n         colo2(lay) = 1.e-20_rb * wkl(7,lay)\n         colmol(lay) = 1.e-20_rb * coldry(lay) + colh2o(lay)\n!           colco2(lay) = 0._rb\n!           colo3(lay) = 0._rb\n!           coln2o(lay) = 0._rb\n!           colch4(lay) = 0._rb\n!           colo2(lay) = 0._rb\n!           colmol(lay) = 0._rb\n         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)\n         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)\n         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)\n         if (colo2(lay) .eq. 0._rb) colo2(lay) = 1.e-32_rb * coldry(lay)\n! Using E = 1334.2 cm-1.\n         co2reg = 3.55e-24_rb * coldry(lay)\n         co2mult(lay)= (colco2(lay) - co2reg) * &\n               272.63_rb*exp(-1919.4_rb/tavel(lay))/(8.7604e-4_rb*tavel(lay))\n         goto 5400\n\n! Above laytrop.\n 5300    continue\n\n! Set up factors needed to separately include the water vapor\n! foreign-continuum in the calculation of absorption coefficient.\n\n         forfac(lay) = scalefac / (1.+water)\n         factor = (tavel(lay)-188.0_rb)/36.0_rb\n         indfor(lay) = 3\n         forfrac(lay) = factor - 1.0_rb\n\n! Calculate needed column amounts.\n\n         colh2o(lay) = 1.e-20_rb * wkl(1,lay)\n         colco2(lay) = 1.e-20_rb * wkl(2,lay)\n         colo3(lay)  = 1.e-20_rb * wkl(3,lay)\n         coln2o(lay) = 1.e-20_rb * wkl(4,lay)\n         colch4(lay) = 1.e-20_rb * wkl(6,lay)\n         colo2(lay)  = 1.e-20_rb * wkl(7,lay)\n         colmol(lay) = 1.e-20_rb * coldry(lay) + colh2o(lay)\n         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)\n         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)\n         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)\n         if (colo2(lay)  .eq. 0._rb) colo2(lay)  = 1.e-32_rb * coldry(lay)\n         co2reg = 3.55e-24_rb * coldry(lay)\n         co2mult(lay)= (colco2(lay) - co2reg) * &\n               272.63_rb*exp(-1919.4_rb/tavel(lay))/(8.7604e-4_rb*tavel(lay))\n\n         selffac(lay) = 0._rb\n         selffrac(lay)= 0._rb\n         indself(lay) = 0\n\n 5400    continue\n\n! We have now isolated the layer ln pressure and temperature,\n! between two reference pressures and two reference temperatures \n! (for each reference pressure).  We multiply the pressure \n! fraction FP with the appropriate temperature fractions to get \n! the factors that will be needed for the interpolation that yields\n! the optical depths (performed in routines TAUGBn for band n).\n\n         compfp = 1._rb - fp\n         fac10(lay) = compfp * ft\n         fac00(lay) = compfp * (1._rb - ft)\n         fac11(lay) = fp * ft1\n         fac01(lay) = fp * (1._rb - ft1)\n\n! End layer loop\n      enddo\n\n      end subroutine setcoef_sw\n\n!***************************************************************************\n      subroutine swatmref\n!***************************************************************************\n\n      save\n \n! These pressures are chosen such that the ln of the first pressure\n! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and\n! each subsequent ln(pressure) differs from the previous one by 0.2.\n\n      pref(:) = (/ &\n          1.05363e+03_rb,8.62642e+02_rb,7.06272e+02_rb,5.78246e+02_rb,4.73428e+02_rb, &\n          3.87610e+02_rb,3.17348e+02_rb,2.59823e+02_rb,2.12725e+02_rb,1.74164e+02_rb, &\n          1.42594e+02_rb,1.16746e+02_rb,9.55835e+01_rb,7.82571e+01_rb,6.40715e+01_rb, &\n          5.24573e+01_rb,4.29484e+01_rb,3.51632e+01_rb,2.87892e+01_rb,2.35706e+01_rb, &\n          1.92980e+01_rb,1.57998e+01_rb,1.29358e+01_rb,1.05910e+01_rb,8.67114e+00_rb, &\n          7.09933e+00_rb,5.81244e+00_rb,4.75882e+00_rb,3.89619e+00_rb,3.18993e+00_rb, &\n          2.61170e+00_rb,2.13828e+00_rb,1.75067e+00_rb,1.43333e+00_rb,1.17351e+00_rb, &\n          9.60789e-01_rb,7.86628e-01_rb,6.44036e-01_rb,5.27292e-01_rb,4.31710e-01_rb, &\n          3.53455e-01_rb,2.89384e-01_rb,2.36928e-01_rb,1.93980e-01_rb,1.58817e-01_rb, &\n          1.30029e-01_rb,1.06458e-01_rb,8.71608e-02_rb,7.13612e-02_rb,5.84256e-02_rb, &\n          4.78349e-02_rb,3.91639e-02_rb,3.20647e-02_rb,2.62523e-02_rb,2.14936e-02_rb, &\n          1.75975e-02_rb,1.44076e-02_rb,1.17959e-02_rb,9.65769e-03_rb /)\n\n      preflog(:) = (/ &\n           6.9600e+00_rb, 6.7600e+00_rb, 6.5600e+00_rb, 6.3600e+00_rb, 6.1600e+00_rb, &\n           5.9600e+00_rb, 5.7600e+00_rb, 5.5600e+00_rb, 5.3600e+00_rb, 5.1600e+00_rb, &\n           4.9600e+00_rb, 4.7600e+00_rb, 4.5600e+00_rb, 4.3600e+00_rb, 4.1600e+00_rb, &\n           3.9600e+00_rb, 3.7600e+00_rb, 3.5600e+00_rb, 3.3600e+00_rb, 3.1600e+00_rb, &\n           2.9600e+00_rb, 2.7600e+00_rb, 2.5600e+00_rb, 2.3600e+00_rb, 2.1600e+00_rb, &\n           1.9600e+00_rb, 1.7600e+00_rb, 1.5600e+00_rb, 1.3600e+00_rb, 1.1600e+00_rb, &\n           9.6000e-01_rb, 7.6000e-01_rb, 5.6000e-01_rb, 3.6000e-01_rb, 1.6000e-01_rb, &\n          -4.0000e-02_rb,-2.4000e-01_rb,-4.4000e-01_rb,-6.4000e-01_rb,-8.4000e-01_rb, &\n          -1.0400e+00_rb,-1.2400e+00_rb,-1.4400e+00_rb,-1.6400e+00_rb,-1.8400e+00_rb, &\n          -2.0400e+00_rb,-2.2400e+00_rb,-2.4400e+00_rb,-2.6400e+00_rb,-2.8400e+00_rb, &\n          -3.0400e+00_rb,-3.2400e+00_rb,-3.4400e+00_rb,-3.6400e+00_rb,-3.8400e+00_rb, &\n          -4.0400e+00_rb,-4.2400e+00_rb,-4.4400e+00_rb,-4.6400e+00_rb /)\n\n! These are the temperatures associated with the respective \n! pressures for the MLS standard atmosphere. \n\n      tref(:) = (/ &\n           2.9420e+02_rb, 2.8799e+02_rb, 2.7894e+02_rb, 2.6925e+02_rb, 2.5983e+02_rb, &\n           2.5017e+02_rb, 2.4077e+02_rb, 2.3179e+02_rb, 2.2306e+02_rb, 2.1578e+02_rb, &\n           2.1570e+02_rb, 2.1570e+02_rb, 2.1570e+02_rb, 2.1706e+02_rb, 2.1858e+02_rb, &\n           2.2018e+02_rb, 2.2174e+02_rb, 2.2328e+02_rb, 2.2479e+02_rb, 2.2655e+02_rb, &\n           2.2834e+02_rb, 2.3113e+02_rb, 2.3401e+02_rb, 2.3703e+02_rb, 2.4022e+02_rb, &\n           2.4371e+02_rb, 2.4726e+02_rb, 2.5085e+02_rb, 2.5457e+02_rb, 2.5832e+02_rb, &\n           2.6216e+02_rb, 2.6606e+02_rb, 2.6999e+02_rb, 2.7340e+02_rb, 2.7536e+02_rb, &\n           2.7568e+02_rb, 2.7372e+02_rb, 2.7163e+02_rb, 2.6955e+02_rb, 2.6593e+02_rb, &\n           2.6211e+02_rb, 2.5828e+02_rb, 2.5360e+02_rb, 2.4854e+02_rb, 2.4348e+02_rb, & \n           2.3809e+02_rb, 2.3206e+02_rb, 2.2603e+02_rb, 2.2000e+02_rb, 2.1435e+02_rb, &\n           2.0887e+02_rb, 2.0340e+02_rb, 1.9792e+02_rb, 1.9290e+02_rb, 1.8809e+02_rb, &\n           1.8329e+02_rb, 1.7849e+02_rb, 1.7394e+02_rb, 1.7212e+02_rb /)\n\n      end subroutine swatmref\n\n      end module rrtmg_sw_setcoef\n\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_taumol.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n      module rrtmg_sw_taumol\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n!      use parrrsw, only : mg, jpband, nbndsw, ngptsw\n      use rrsw_con, only: oneminus\n      use rrsw_wvn, only: nspa, nspb\n      use rrsw_vsn, only: hvrtau, hnamtau\n\n      implicit none\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine taumol_sw(nlayers, &\n                           colh2o, colco2, colch4, colo2, colo3, colmol, &\n                           laytrop, jp, jt, jt1, &\n                           fac00, fac01, fac10, fac11, &\n                           selffac, selffrac, indself, forfac, forfrac, indfor, &\n                           sfluxzen, taug, taur)\n!----------------------------------------------------------------------------\n\n! ******************************************************************************\n! *                                                                            *\n! *                 Optical depths developed for the                           *\n! *                                                                            *\n! *               RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *\n! *                                                                            *\n! *                                                                            *\n! *           ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *\n! *                       131 HARTWELL AVENUE                                  *\n! *                       LEXINGTON, MA 02421                                  *\n! *                                                                            *\n! *                                                                            *\n! *                          ELI J. MLAWER                                     *\n! *                        JENNIFER DELAMERE                                   *\n! *                        STEVEN J. TAUBMAN                                   *\n! *                        SHEPARD A. CLOUGH                                   *\n! *                                                                            *\n! *                                                                            *\n! *                                                                            *\n! *                                                                            *\n! *                      email:  mlawer@aer.com                                *\n! *                      email:  jdelamer@aer.com                              *\n! *                                                                            *\n! *       The authors wish to acknowledge the contributions of the             *\n! *       following people:  Patrick D. Brown, Michael J. Iacono,              *\n! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                       *\n! *                                                                            *\n! ******************************************************************************\n! *    TAUMOL                                                                  *\n! *                                                                            *\n! *    This file contains the subroutines TAUGBn (where n goes from            *\n! *    1 to 28).  TAUGBn calculates the optical depths and Planck fractions    *\n! *    per g-value and layer for band n.                                       *\n! *                                                                            *\n! * Output:  optical depths (unitless)                                         *\n! *          fractions needed to compute Planck functions at every layer       *\n! *              and g-value                                                   *\n! *                                                                            *\n! *    COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *\n! *    COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *\n! *                                                                            *\n! * Input                                                                      *\n! *                                                                            *\n! *    PARAMETER (MG=16, MXLAY=203, NBANDS=14)                                 *\n! *                                                                            *\n! *    COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *\n! *    COMMON /PRECISE/  ONEMINUS                                              *\n! *    COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *\n! *   &                  PZ(0:MXLAY),TZ(0:MXLAY),TBOUND                        *\n! *    COMMON /PROFDATA/ LAYTROP,LAYSWTCH,LAYLOW,                              *\n! *   &                  COLH2O(MXLAY),COLCO2(MXLAY),                          *\n! *   &                  COLO3(MXLAY),COLN2O(MXLAY),COLCH4(MXLAY),             *\n! *   &                  COLO2(MXLAY),CO2MULT(MXLAY)                           *\n! *    COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *\n! *   &                  FAC10(MXLAY),FAC11(MXLAY)                             *\n! *    COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *\n! *    COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *\n! *                                                                            *\n! *    Description:                                                            *\n! *    NG(IBAND) - number of g-values in band IBAND                            *\n! *    NSPA(IBAND) - for the lower atmosphere, the number of reference         *\n! *                  atmospheres that are stored for band IBAND per            *\n! *                  pressure level and temperature.  Each of these            *\n! *                  atmospheres has different relative amounts of the         *\n! *                  key species for the band (i.e. different binary           *\n! *                  species parameters).                                      *\n! *    NSPB(IBAND) - same for upper atmosphere                                 *\n! *    ONEMINUS - since problems are caused in some cases by interpolation     *\n! *               parameters equal to or greater than 1, for these cases       *\n! *               these parameters are set to this value, slightly < 1.        *\n! *    PAVEL - layer pressures (mb)                                            *\n! *    TAVEL - layer temperatures (degrees K)                                  *\n! *    PZ - level pressures (mb)                                               *\n! *    TZ - level temperatures (degrees K)                                     *\n! *    LAYTROP - layer at which switch is made from one combination of         *\n! *              key species to another                                        *\n! *    COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *\n! *              vapor,carbon dioxide, ozone, nitrous ozide, methane,          *\n! *              respectively (molecules/cm**2)                                *\n! *    CO2MULT - for bands in which carbon dioxide is implemented as a         *\n! *              trace species, this is the factor used to multiply the        *\n! *              band's average CO2 absorption coefficient to get the added    *\n! *              contribution to the optical depth relative to 355 ppm.        *\n! *    FACij(LAY) - for layer LAY, these are factors that are needed to        *\n! *                 compute the interpolation factors that multiply the        *\n! *                 appropriate reference k-values.  A value of 0 (1) for      *\n! *                 i,j indicates that the corresponding factor multiplies     *\n! *                 reference k-value for the lower (higher) of the two        *\n! *                 appropriate temperatures, and altitudes, respectively.     *\n! *    JP - the index of the lower (in altitude) of the two appropriate        *\n! *         reference pressure levels needed for interpolation                 *\n! *    JT, JT1 - the indices of the lower of the two appropriate reference     *\n! *              temperatures needed for interpolation (for pressure           *\n! *              levels JP and JP+1, respectively)                             *\n! *    SELFFAC - scale factor needed to water vapor self-continuum, equals     *\n! *              (water vapor density)/(atmospheric density at 296K and        *\n! *              1013 mb)                                                      *\n! *    SELFFRAC - factor needed for temperature interpolation of reference     *\n! *               water vapor self-continuum data                              *\n! *    INDSELF - index of the lower of the two appropriate reference           *\n! *              temperatures needed for the self-continuum interpolation      *\n! *                                                                            *\n! * Data input                                                                 *\n! *    COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG) *\n! *       (note:  n is the band number)                                        *\n! *                                                                            *\n! *    Description:                                                            *\n! *    KA - k-values for low reference atmospheres (no water vapor             *\n! *         self-continuum) (units: cm**2/molecule)                            *\n! *    KB - k-values for high reference atmospheres (all sources)              *\n! *         (units: cm**2/molecule)                                            *\n! *    SELFREF - k-values for water vapor self-continuum for reference         *\n! *              atmospheres (used below LAYTROP)                              *\n! *              (units: cm**2/molecule)                                       *\n! *                                                                            *\n! *    DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *\n! *    EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *\n! *                                                                            *\n! *****************************************************************************\n!\n! Modifications\n!\n! Revised: Adapted to F90 coding, J.-J.Morcrette, ECMWF, Feb 2003\n! Revised: Modified for g-point reduction, MJIacono, AER, Dec 2003\n! Revised: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006\n!\n! ------- Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers            ! total number of layers\n\n      integer(kind=im), intent(in) :: laytrop            ! tropopause layer index\n      integer(kind=im), intent(in) :: jp(:)              ! \n                                                         !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt(:)              !\n                                                         !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt1(:)             !\n                                                         !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: colh2o(:)             ! column amount (h2o)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco2(:)             ! column amount (co2)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo3(:)              ! column amount (o3)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colch4(:)             ! column amount (ch4)\n                                                         !   Dimensions: (nlayers)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo2(:)              ! column amount (o2)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colmol(:)             ! \n                                                         !   Dimensions: (nlayers)\n\n      integer(kind=im), intent(in) :: indself(:)    \n                                                         !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: indfor(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffac(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffrac(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfac(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfrac(:)\n                                                         !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: &                     !\n                       fac00(:), fac01(:), &             !   Dimensions: (nlayers)\n                       fac10(:), fac11(:) \n\n! ----- Output -----\n      real(kind=rb), intent(out) :: sfluxzen(:)          ! solar source function\n                                                         !   Dimensions: (ngptsw)\n      real(kind=rb), intent(out) :: taug(:,:)            ! gaseous optical depth \n                                                         !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(out) :: taur(:,:)            ! Rayleigh \n                                                         !   Dimensions: (nlayers,ngptsw)\n!      real(kind=rb), intent(out) :: ssa(:,:)            ! single scattering albedo (inactive)\n                                                         !   Dimensions: (nlayers,ngptsw)\n\n      hvrtau = '$Revision: 1.5 $'\n\n! Calculate gaseous optical depth and planck fractions for each spectral band.\n\n      call taumol16\n      call taumol17\n      call taumol18\n      call taumol19\n      call taumol20\n      call taumol21\n      call taumol22\n      call taumol23\n      call taumol24\n      call taumol25\n      call taumol26\n      call taumol27\n      call taumol28\n      call taumol29\n\n!-------------\n      contains\n!-------------\n\n!----------------------------------------------------------------------------\n      subroutine taumol16\n!----------------------------------------------------------------------------\n!\n!     band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng16\n      use rrsw_kg16, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat1\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat1 = 252.131_rb\n      layreffr = 18\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         speccomb = colh2o(lay) + strrat1*colch4(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(16) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(16) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng16\n            taug(lay,ig) = speccomb * &\n                (fac000 * absa(ind0   ,ig) + &\n                 fac100 * absa(ind0 +1,ig) + &\n                 fac010 * absa(ind0 +9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1   ,ig) + &\n                 fac101 * absa(ind1 +1,ig) + &\n                 fac011 * absa(ind1 +9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ig) = tauray/taug(lay,ig)\n            taur(lay,ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(16) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(16) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng16\n            taug(lay,ig) = colch4(lay) * &\n                (fac00(lay) * absb(ind0  ,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1  ,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) \n!            ssa(lay,ig) = tauray/taug(lay,ig)\n            if (lay .eq. laysolfr) sfluxzen(ig) = sfluxref(ig) \n            taur(lay,ig) = tauray  \n         enddo\n      enddo\n\n      end subroutine taumol16\n\n!----------------------------------------------------------------------------\n      subroutine taumol17\n!----------------------------------------------------------------------------\n!\n!     band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng17, ngs16\n      use rrsw_kg17, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 0.364641_rb\n      layreffr = 30\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(17) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(17) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng17\n            taug(lay,ngs16+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!             ssa(lay,ngs16+ig) = tauray/taug(lay,ngs16+ig)\n            taur(lay,ngs16+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(17) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(17) + js\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng17\n            taug(lay,ngs16+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                 fac100 * absb(ind0+1,ig) + &\n                 fac010 * absb(ind0+5,ig) + &\n                 fac110 * absb(ind0+6,ig) + &\n                 fac001 * absb(ind1,ig) + &\n                 fac101 * absb(ind1+1,ig) + &\n                 fac011 * absb(ind1+5,ig) + &\n                 fac111 * absb(ind1+6,ig)) + &\n                 colh2o(lay) * &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n!            ssa(lay,ngs16+ig) = tauray/taug(lay,ngs16+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs16+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs16+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol17\n\n!----------------------------------------------------------------------------\n      subroutine taumol18\n!----------------------------------------------------------------------------\n!\n!     band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng18, ngs17\n      use rrsw_kg18, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 38.9589_rb\n      layreffr = 6\n      laysolfr = laytrop\n      \n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colch4(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(18) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(18) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng18\n            taug(lay,ngs17+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ngs17+ig) = tauray/taug(lay,ngs17+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs17+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs17+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(18) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(18) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng18\n            taug(lay,ngs17+ig) = colch4(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\t  \n                 fac11(lay) * absb(ind1+1,ig)) \n!           ssa(lay,ngs17+ig) = tauray/taug(lay,ngs17+ig)\n           taur(lay,ngs17+ig) = tauray\n         enddo\n       enddo\n\n       end subroutine taumol18\n\n!----------------------------------------------------------------------------\n      subroutine taumol19\n!----------------------------------------------------------------------------\n!\n!     band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng19, ngs18\n      use rrsw_kg19, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 5.49281_rb\n      layreffr = 3\n      laysolfr = laytrop\n\n! Lower atmosphere loop      \n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(19) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(19) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1 , ng19\n            taug(lay,ngs18+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + & \n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ngs18+ig) = tauray/taug(lay,ngs18+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs18+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs18+ig) = tauray   \n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(19) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(19) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1 , ng19\n            taug(lay,ngs18+ig) = colco2(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) \n!            ssa(lay,ngs18+ig) = tauray/taug(lay,ngs18+ig) \n            taur(lay,ngs18+ig) = tauray   \n         enddo\n      enddo\n\n      end subroutine taumol19\n\n!----------------------------------------------------------------------------\n      subroutine taumol20\n!----------------------------------------------------------------------------\n!\n!     band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng20, ngs19\n      use rrsw_kg20, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, absch4, rayl\n\n      implicit none\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      layreffr = 3\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(20) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(20) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng20\n            taug(lay,ngs19+ig) = colh2o(lay) * &\n               ((fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 selffac(lay) * (selfref(inds,ig) + & \n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) &\n                 + colch4(lay) * absch4(ig)\n!            ssa(lay,ngs19+ig) = tauray/taug(lay,ngs19+ig)\n            taur(lay,ngs19+ig) = tauray \n            if (lay .eq. laysolfr) sfluxzen(ngs19+ig) = sfluxref(ig) \n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(20) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(20) + 1\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng20\n            taug(lay,ngs19+ig) = colh2o(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) + &\n                 colch4(lay) * absch4(ig)\n!            ssa(lay,ngs19+ig) = tauray/taug(lay,ngs19+ig)\n            taur(lay,ngs19+ig) = tauray \n         enddo\n      enddo\n\n      end subroutine taumol20\n\n!----------------------------------------------------------------------------\n      subroutine taumol21\n!----------------------------------------------------------------------------\n!\n!     band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng21, ngs20\n      use rrsw_kg21, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 0.0045321_rb\n      layreffr = 8\n      laysolfr = laytrop\n      \n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(21) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(21) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng21\n            taug(lay,ngs20+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))))\n!            ssa(lay,ngs20+ig) = tauray/taug(lay,ngs20+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs20+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs20+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(21) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(21) + js\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng21\n            taug(lay,ngs20+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                 fac100 * absb(ind0+1,ig) + &\n                 fac010 * absb(ind0+5,ig) + &\n                 fac110 * absb(ind0+6,ig) + &\n                 fac001 * absb(ind1,ig) + &\n                 fac101 * absb(ind1+1,ig) + &\n                 fac011 * absb(ind1+5,ig) + &\n                 fac111 * absb(ind1+6,ig)) + &\n                 colh2o(lay) * &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))\n!            ssa(lay,ngs20+ig) = tauray/taug(lay,ngs20+ig)\n            taur(lay,ngs20+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol21\n\n!----------------------------------------------------------------------------\n      subroutine taumol22\n!----------------------------------------------------------------------------\n!\n!     band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng22, ngs21\n      use rrsw_kg22, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, o2adj, o2cont, strrat\n\n! The following factor is the ratio of total O2 band intensity (lines \n! and Mate continuum) to O2 band intensity (line only).  It is needed\n! to adjust the optical depths since the k's include only lines.\n      o2adj = 1.6_rb\n      \n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 0.022708_rb\n      layreffr = 2\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         o2cont = 4.35e-4_rb*colo2(lay)/(350.0_rb*2.0_rb)\n         speccomb = colh2o(lay) + o2adj*strrat*colo2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n!         odadj = specparm + o2adj * (1._rb - specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(22) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(22) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng22\n            taug(lay,ngs21+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                  (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) &\n                 + o2cont\n!            ssa(lay,ngs21+ig) = tauray/taug(lay,ngs21+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs21+ig) = sfluxref(ig,js) &\n                + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs21+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         o2cont = 4.35e-4_rb*colo2(lay)/(350.0_rb*2.0_rb)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(22) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(22) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng22\n            taug(lay,ngs21+ig) = colo2(lay) * o2adj * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) + &\n                 o2cont\n!            ssa(lay,ngs21+ig) = tauray/taug(lay,ngs21+ig)\n            taur(lay,ngs21+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol22\n\n!----------------------------------------------------------------------------\n      subroutine taumol23\n!----------------------------------------------------------------------------\n!\n!     band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng23, ngs22\n      use rrsw_kg23, only : absa, ka, forref, selfref, &\n                            sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, givfac\n\n! Average Giver et al. correction factor for this band.\n      givfac = 1.029_rb\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      layreffr = 6\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(23) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(23) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         do ig = 1, ng23\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs22+ig) = colh2o(lay) * &\n                (givfac * (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ngs22+ig) = tauray/taug(lay,ngs22+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs22+ig) = sfluxref(ig) \n            taur(lay,ngs22+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng23\n!            taug(lay,ngs22+ig) = colmol(lay) * rayl(ig)\n!            ssa(lay,ngs22+ig) = 1.0_rb\n            taug(lay,ngs22+ig) = 0._rb\n            taur(lay,ngs22+ig) = colmol(lay) * rayl(ig) \n         enddo\n      enddo\n\n      end subroutine taumol23\n\n!----------------------------------------------------------------------------\n      subroutine taumol24\n!----------------------------------------------------------------------------\n!\n!     band 24:  12850-16000 cm-1 (low - h2o,o2; high - o2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng24, ngs23\n      use rrsw_kg24, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, abso3a, abso3b, rayla, raylb\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 0.124692_rb\n      layreffr = 1\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colo2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(24) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(24) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         do ig = 1, ng24\n            tauray = colmol(lay) * (rayla(ig,js) + &\n               fs * (rayla(ig,js+1) - rayla(ig,js)))\n            taug(lay,ngs23+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colo3(lay) * abso3a(ig) + &\n                 colh2o(lay) * & \n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + & \n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))))\n!            ssa(lay,ngs23+ig) = tauray/taug(lay,ngs23+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs23+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs23+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(24) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(24) + 1\n\n         do ig = 1, ng24\n            tauray = colmol(lay) * raylb(ig)\n            taug(lay,ngs23+ig) = colo2(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) + &\n                 colo3(lay) * abso3b(ig)\n!            ssa(lay,ngs23+ig) = tauray/taug(lay,ngs23+ig)\n            taur(lay,ngs23+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol24\n\n!----------------------------------------------------------------------------\n      subroutine taumol25\n!----------------------------------------------------------------------------\n!\n!     band 25:  16000-22650 cm-1 (low - h2o; high - nothing)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng25, ngs24\n      use rrsw_kg25, only : absa, ka, &\n                            sfluxref, abso3a, abso3b, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      layreffr = 2\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(25) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(25) + 1\n\n         do ig = 1, ng25\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs24+ig) = colh2o(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 colo3(lay) * abso3a(ig) \n!            ssa(lay,ngs24+ig) = tauray/taug(lay,ngs24+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs24+ig) = sfluxref(ig) \n            taur(lay,ngs24+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng25\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs24+ig) = colo3(lay) * abso3b(ig) \n!            ssa(lay,ngs24+ig) = tauray/taug(lay,ngs24+ig)\n            taur(lay,ngs24+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol25\n\n!----------------------------------------------------------------------------\n      subroutine taumol26\n!----------------------------------------------------------------------------\n!\n!     band 26:  22650-29000 cm-1 (low - nothing; high - nothing)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng26, ngs25\n      use rrsw_kg26, only : sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         do ig = 1, ng26 \n!            taug(lay,ngs25+ig) = colmol(lay) * rayl(ig)\n!            ssa(lay,ngs25+ig) = 1.0_rb\n            if (lay .eq. laysolfr) sfluxzen(ngs25+ig) = sfluxref(ig) \n            taug(lay,ngs25+ig) = 0._rb\n            taur(lay,ngs25+ig) = colmol(lay) * rayl(ig) \n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng26\n!            taug(lay,ngs25+ig) = colmol(lay) * rayl(ig)\n!            ssa(lay,ngs25+ig) = 1.0_rb\n            taug(lay,ngs25+ig) = 0._rb\n            taur(lay,ngs25+ig) = colmol(lay) * rayl(ig) \n         enddo\n      enddo\n\n      end subroutine taumol26\n\n!----------------------------------------------------------------------------\n      subroutine taumol27\n!----------------------------------------------------------------------------\n!\n!     band 27:  29000-38000 cm-1 (low - o3; high - o3)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng27, ngs26\n      use rrsw_kg27, only : absa, ka, absb, kb, sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, scalekur\n\n! Kurucz solar source function\n! The values in sfluxref were obtained using the \"low resolution\"\n! version of the Kurucz solar source function.  For unknown reasons,\n! the total irradiance in this band differs from the corresponding\n! total in the \"high-resolution\" version of the Kurucz function.\n! Therefore, these values are scaled below by the factor SCALEKUR.\n\n      scalekur = 50.15_rb/48.37_rb\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      layreffr = 32\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(27) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(27) + 1\n\n         do ig = 1, ng27\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs26+ig) = colo3(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig))\n!            ssa(lay,ngs26+ig) = tauray/taug(lay,ngs26+ig)\n            taur(lay,ngs26+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(27) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(27) + 1\n\n         do ig = 1, ng27\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs26+ig) = colo3(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + & \n                 fac11(lay) * absb(ind1+1,ig))\n!            ssa(lay,ngs26+ig) = tauray/taug(lay,ngs26+ig)\n            if (lay.eq.laysolfr) sfluxzen(ngs26+ig) = scalekur * sfluxref(ig) \n            taur(lay,ngs26+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol27\n\n!----------------------------------------------------------------------------\n      subroutine taumol28\n!----------------------------------------------------------------------------\n!\n!     band 28:  38000-50000 cm-1 (low - o3,o2; high - o3,o2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng28, ngs27\n      use rrsw_kg28, only : absa, ka, absb, kb, sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, strrat\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      strrat = 6.67029e-07_rb\n      layreffr = 58\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         speccomb = colo3(lay) + strrat*colo2(lay)\n         specparm = colo3(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(28) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(28) + js\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng28\n            taug(lay,ngs27+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) \n!            ssa(lay,ngs27+ig) = tauray/taug(lay,ngs27+ig)\n            taur(lay,ngs27+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         speccomb = colo3(lay) + strrat*colo2(lay)\n         specparm = colo3(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(28) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(28) + js\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng28\n            taug(lay,ngs27+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                 fac100 * absb(ind0+1,ig) + &\n                 fac010 * absb(ind0+5,ig) + &\n                 fac110 * absb(ind0+6,ig) + &\n                 fac001 * absb(ind1,ig) + &\n                 fac101 * absb(ind1+1,ig) + &\n                 fac011 * absb(ind1+5,ig) + &\n                 fac111 * absb(ind1+6,ig)) \n!            ssa(lay,ngs27+ig) = tauray/taug(lay,ngs27+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs27+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs27+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol28\n\n!----------------------------------------------------------------------------\n      subroutine taumol29\n!----------------------------------------------------------------------------\n!\n!     band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng29, ngs28\n      use rrsw_kg29, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, absh2o, absco2, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr, &\n                          layreffr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      layreffr = 49\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(29) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(29) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng29\n            taug(lay,ngs28+ig) = colh2o(lay) * &\n               ((fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + & \n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) &\n                 + colco2(lay) * absco2(ig) \n!            ssa(lay,ngs28+ig) = tauray/taug(lay,ngs28+ig)\n            taur(lay,ngs28+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(29) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(29) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng29\n            taug(lay,ngs28+ig) = colco2(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) &  \n                 + colh2o(lay) * absh2o(ig) \n!            ssa(lay,ngs28+ig) = tauray/taug(lay,ngs28+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs28+ig) = sfluxref(ig) \n            taur(lay,ngs28+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol29\n\n      end subroutine taumol_sw\n\n      end module rrtmg_sw_taumol\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_vrtqdr.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n!\n      module rrtmg_sw_vrtqdr\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only: im => kind_im, rb => kind_rb\n!      use parrrsw, only: ngptsw\n\n      implicit none\n\n      contains\n\n! --------------------------------------------------------------------------\n      subroutine vrtqdr_sw(klev, kw, &\n                           pref, prefd, ptra, ptrad, &\n                           pdbt, prdnd, prup, prupd, ptdbt, &\n                           pfd, pfu)\n! --------------------------------------------------------------------------\n \n! Purpose: This routine performs the vertical quadrature integration\n!\n! Interface:  *vrtqdr_sw* is called from *spcvrt_sw* and *spcvmc_sw*\n!\n! Modifications.\n! \n! Original: H. Barker\n! Revision: Integrated with rrtmg_sw, J.-J. Morcrette, ECMWF, Oct 2002\n! Revision: Reformatted for consistency with rrtmg_lw: MJIacono, AER, Jul 2006\n!\n!-----------------------------------------------------------------------\n\n! ------- Declarations -------\n\n! Input\n\n      integer(kind=im), intent (in) :: klev                   ! number of model layers\n      integer(kind=im), intent (in) :: kw                     ! g-point index\n\n      real(kind=rb), intent(in) :: pref(:)                    ! direct beam reflectivity\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: prefd(:)                   ! diffuse beam reflectivity\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: ptra(:)                    ! direct beam transmissivity\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: ptrad(:)                   ! diffuse beam transmissivity\n                                                              !   Dimensions: (nlayers+1)\n\n      real(kind=rb), intent(in) :: pdbt(:)\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: ptdbt(:)\n                                                              !   Dimensions: (nlayers+1)\n\n      real(kind=rb), intent(inout) :: prdnd(:)\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: prup(:)\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: prupd(:)\n                                                              !   Dimensions: (nlayers+1)\n\n! Output\n      real(kind=rb), intent(out) :: pfd(:,:)                  ! downwelling flux (W/m2)\n                                                              !   Dimensions: (nlayers+1,ngptsw)\n                                                              ! unadjusted for earth/sun distance or zenith angle\n      real(kind=rb), intent(out) :: pfu(:,:)                  ! upwelling flux (W/m2)\n                                                              !   Dimensions: (nlayers+1,ngptsw)\n                                                              ! unadjusted for earth/sun distance or zenith angle\n\n! Local\n\n      integer(kind=im) :: ikp, ikx, jk\n\n      real(kind=rb) :: zreflect\n      real(kind=rb) :: ztdn(klev+1)  \n\n! Definitions\n!\n! pref(jk)   direct reflectance\n! prefd(jk)  diffuse reflectance\n! ptra(jk)   direct transmittance\n! ptrad(jk)  diffuse transmittance\n!\n! pdbt(jk)   layer mean direct beam transmittance\n! ptdbt(jk)  total direct beam transmittance at levels\n!\n!-----------------------------------------------------------------------------\n                   \n! Link lowest layer with surface\n             \n      zreflect = 1._rb / (1._rb - prefd(klev+1) * prefd(klev))\n      prup(klev) = pref(klev) + (ptrad(klev) * &\n                 ((ptra(klev) - pdbt(klev)) * prefd(klev+1) + &\n                   pdbt(klev) * pref(klev+1))) * zreflect\n      prupd(klev) = prefd(klev) + ptrad(klev) * ptrad(klev) * &\n                    prefd(klev+1) * zreflect\n\n! Pass from bottom to top \n\n      do jk = 1,klev-1\n         ikp = klev+1-jk                       \n         ikx = ikp-1\n         zreflect = 1._rb / (1._rb -prupd(ikp) * prefd(ikx))\n         prup(ikx) = pref(ikx) + (ptrad(ikx) * &\n                   ((ptra(ikx) - pdbt(ikx)) * prupd(ikp) + &\n                     pdbt(ikx) * prup(ikp))) * zreflect\n         prupd(ikx) = prefd(ikx) + ptrad(ikx) * ptrad(ikx) * &\n                      prupd(ikp) * zreflect\n      enddo\n    \n! Upper boundary conditions\n\n      ztdn(1) = 1._rb\n      prdnd(1) = 0._rb\n      ztdn(2) = ptra(1)\n      prdnd(2) = prefd(1)\n\n! Pass from top to bottom\n\n      do jk = 2,klev\n         ikp = jk+1\n         zreflect = 1._rb / (1._rb - prefd(jk) * prdnd(jk))\n         ztdn(ikp) = ptdbt(jk) * ptra(jk) + &\n                    (ptrad(jk) * ((ztdn(jk) - ptdbt(jk)) + &\n                     ptdbt(jk) * pref(jk) * prdnd(jk))) * zreflect\n         prdnd(ikp) = prefd(jk) + ptrad(jk) * ptrad(jk) * &\n                      prdnd(jk) * zreflect\n      enddo\n    \n! Up and down-welling fluxes at levels\n\n      do jk = 1,klev+1\n         zreflect = 1._rb / (1._rb - prdnd(jk) * prupd(jk))\n         pfu(jk,kw) = (ptdbt(jk) * prup(jk) + &\n                      (ztdn(jk) - ptdbt(jk)) * prupd(jk)) * zreflect\n         pfd(jk,kw) = ptdbt(jk) + (ztdn(jk) - ptdbt(jk)+ &\n                      ptdbt(jk) * prup(jk) * prdnd(jk)) * zreflect\n      enddo\n\n      end subroutine vrtqdr_sw\n\n      end module rrtmg_sw_vrtqdr\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_spcvrt.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n      module rrtmg_sw_spcvrt\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, ngptsw, mxmol, jpband\n      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl\n      use rrsw_vsn, only : hvrspv, hnamspv\n      use rrsw_wvn, only : ngc, ngs\n      use rrtmg_sw_reftra, only: reftra_sw\n      use rrtmg_sw_taumol, only: taumol_sw\n      use rrtmg_sw_vrtqdr, only: vrtqdr_sw\n\n      implicit none\n\n      contains\n\n! ---------------------------------------------------------------------------\n      subroutine spcvrt_sw &\n            (nlayers, istart, iend, icpr, idelm, iout, &\n             pavel, tavel, pz, tz, tbound, palbd, palbp, &\n             pclfr, ptauc, pasyc, pomgc, ptaucorig, &\n             ptaua, pasya, pomga, prmu0, coldry, wkl, adjflux, &\n             laytrop, layswtch, laylow, jp, jt, jt1, &\n             co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n             fac00, fac01, fac10, fac11, &\n             selffac, selffrac, indself, forfac, forfrac, indfor, &\n             pbbfd, pbbfu, pbbcd, pbbcu, puvfd, puvcd, pnifd, pnicd, &\n             pbbfddir, pbbcddir, puvfddir, puvcddir, pnifddir, pnicddir)\n! ---------------------------------------------------------------------------\n!\n! Purpose: Contains spectral loop to compute the shortwave radiative fluxes, \n!          using the two-stream method of H. Barker. \n!\n! Interface:  *spcvrt_sw* is called from *rrtmg_sw.F90* or rrtmg_sw.1col.F90*\n!\n! Method:\n!    Adapted from two-stream model of H. Barker;\n!    Two-stream model options (selected with kmodts in rrtmg_sw_reftra.F90):\n!        1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates\n!\n! Modifications:\n!\n! Original: H. Barker\n! Revision: Merge with RRTMG_SW: J.-J.Morcrette, ECMWF, Feb 2003\n! Revision: Add adjustment for Earth/Sun distance : MJIacono, AER, Oct 2003\n! Revision: Bug fix for use of PALBP and PALBD: MJIacono, AER, Nov 2003\n! Revision: Bug fix to apply delta scaling to clear sky: AER, Dec 2004\n! Revision: Code modified so that delta scaling is not done in cloudy profiles\n!           if routine cldprop is used; delta scaling can be applied by swithcing\n!           code below if cldprop is not used to get cloud properties. \n!           AER, Jan 2005\n! Revision: Uniform formatting for RRTMG: MJIacono, AER, Jul 2006 \n! Revision: Use exponential lookup table for transmittance: MJIacono, AER, \n!           Aug 2007 \n!\n! ------------------------------------------------------------------\n\n! ------- Declarations ------\n\n! -------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers\n      integer(kind=im), intent(in) :: istart\n      integer(kind=im), intent(in) :: iend\n      integer(kind=im), intent(in) :: icpr\n      integer(kind=im), intent(in) :: idelm   ! delta-m scaling flag\n                                              ! [0 = direct and diffuse fluxes are unscaled]\n                                              ! [1 = direct and diffuse fluxes are scaled]\n      integer(kind=im), intent(in) :: iout\n      integer(kind=im), intent(in) :: laytrop\n      integer(kind=im), intent(in) :: layswtch\n      integer(kind=im), intent(in) :: laylow\n\n      integer(kind=im), intent(in) :: indfor(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: indself(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jp(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt1(:)\n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: pavel(:)                    ! layer pressure (hPa, mb) \n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tavel(:)                    ! layer temperature (K)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pz(0:)                      ! level (interface) pressure (hPa, mb)\n                                                               !   Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tz(0:)                      ! level temperatures (hPa, mb)\n                                                               !   Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tbound                      ! surface temperature (K)\n      real(kind=rb), intent(in) :: wkl(:,:)                    ! molecular amounts (mol/cm2) \n                                                               !   Dimensions: (mxmol,nlayers)\n      real(kind=rb), intent(in) :: coldry(:)                   ! dry air column density (mol/cm2)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colmol(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: adjflux(:)                  ! Earth/Sun distance adjustment\n                                                               !   Dimensions: (jpband)\n\n      real(kind=rb), intent(in) :: palbd(:)                    ! surface albedo (diffuse)\n                                                               !   Dimensions: (nbndsw)\n      real(kind=rb), intent(in) :: palbp(:)                    ! surface albedo (direct)\n                                                               !   Dimensions: (nbndsw)\n      real(kind=rb), intent(in) :: prmu0                       ! cosine of solar zenith angle\n      real(kind=rb), intent(in) :: pclfr(:)                    ! cloud fraction\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ptauc(:,:)                  ! cloud optical depth\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pasyc(:,:)                  ! cloud asymmetry parameter\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pomgc(:,:)                  ! cloud single scattering albedo\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: ptaucorig(:,:)              ! cloud optical depth, non-delta scaled\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: ptaua(:,:)                  ! aerosol optical depth\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pasya(:,:)                  ! aerosol asymmetry parameter\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pomga(:,:)                  ! aerosol single scattering albedo\n                                                               !   Dimensions: (nlayers,nbndsw)\n\n      real(kind=rb), intent(in) :: colh2o(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco2(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colch4(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: co2mult(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo3(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo2(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: coln2o(:)\n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: forfac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfrac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffrac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac00(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac01(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac10(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac11(:)\n                                                               !   Dimensions: (nlayers)\n\n! ------- Output -------\n                                                               !   All Dimensions: (nlayers+1)\n      real(kind=rb), intent(out) :: pbbcd(:)\n      real(kind=rb), intent(out) :: pbbcu(:)\n      real(kind=rb), intent(out) :: pbbfd(:)\n      real(kind=rb), intent(out) :: pbbfu(:)\n      real(kind=rb), intent(out) :: pbbfddir(:)\n      real(kind=rb), intent(out) :: pbbcddir(:)\n\n      real(kind=rb), intent(out) :: puvcd(:)\n      real(kind=rb), intent(out) :: puvfd(:)\n      real(kind=rb), intent(out) :: puvcddir(:)\n      real(kind=rb), intent(out) :: puvfddir(:)\n\n      real(kind=rb), intent(out) :: pnicd(:)\n      real(kind=rb), intent(out) :: pnifd(:)\n      real(kind=rb), intent(out) :: pnicddir(:)\n      real(kind=rb), intent(out) :: pnifddir(:)\n\n! Output - inactive                                            !   All Dimensions: (nlayers+1)\n!      real(kind=rb), intent(out) :: puvcu(:)\n!      real(kind=rb), intent(out) :: puvfu(:)\n!      real(kind=rb), intent(out) :: pnicu(:)\n!      real(kind=rb), intent(out) :: pnifu(:)\n!      real(kind=rb), intent(out) :: pvscd(:)\n!      real(kind=rb), intent(out) :: pvscu(:)\n!      real(kind=rb), intent(out) :: pvsfd(:)\n!      real(kind=rb), intent(out) :: pvsfu(:)\n\n\n! ------- Local -------\n\n      logical :: lrtchkclr(nlayers),lrtchkcld(nlayers)\n\n      integer(kind=im)  :: klev\n      integer(kind=im) :: ib1, ib2, ibm, igt, ikl, ikp, ikx\n      integer(kind=im) :: iw, jb, jg, jl, jk\n!      integer(kind=im), parameter :: nuv = ?? \n!      integer(kind=im), parameter :: nvs = ?? \n      integer(kind=im) :: itind\n\n      real(kind=rb) :: tblind, ze1\n      real(kind=rb) :: zclear, zcloud\n      real(kind=rb) :: zdbt(nlayers+1), zdbt_nodel(nlayers+1)\n      real(kind=rb) :: zgc(nlayers), zgcc(nlayers), zgco(nlayers)\n      real(kind=rb) :: zomc(nlayers), zomcc(nlayers), zomco(nlayers)\n      real(kind=rb) :: zrdnd(nlayers+1), zrdndc(nlayers+1)\n      real(kind=rb) :: zref(nlayers+1), zrefc(nlayers+1), zrefo(nlayers+1)\n      real(kind=rb) :: zrefd(nlayers+1), zrefdc(nlayers+1), zrefdo(nlayers+1)\n      real(kind=rb) :: zrup(nlayers+1), zrupd(nlayers+1)\n      real(kind=rb) :: zrupc(nlayers+1), zrupdc(nlayers+1)\n      real(kind=rb) :: zs1(nlayers+1)\n      real(kind=rb) :: ztauc(nlayers), ztauo(nlayers)\n      real(kind=rb) :: ztdn(nlayers+1), ztdnd(nlayers+1), ztdbt(nlayers+1)\n      real(kind=rb) :: ztoc(nlayers), ztor(nlayers)\n      real(kind=rb) :: ztra(nlayers+1), ztrac(nlayers+1), ztrao(nlayers+1)\n      real(kind=rb) :: ztrad(nlayers+1), ztradc(nlayers+1), ztrado(nlayers+1)\n      real(kind=rb) :: zdbtc(nlayers+1), ztdbtc(nlayers+1)\n      real(kind=rb) :: zincflx(ngptsw), zdbtc_nodel(nlayers+1) \n      real(kind=rb) :: ztdbt_nodel(nlayers+1), ztdbtc_nodel(nlayers+1)\n\n      real(kind=rb) :: zdbtmc, zdbtmo, zf, zgw, zreflect\n      real(kind=rb) :: zwf, tauorig, repclc\n!     real(kind=rb) :: zincflux                                   ! inactive\n\n! Arrays from rrtmg_sw_taumoln routines\n\n!      real(kind=rb) :: ztaug(nlayers,16), ztaur(nlayers,16)\n!      real(kind=rb) :: zsflxzen(16)\n      real(kind=rb) :: ztaug(nlayers,ngptsw), ztaur(nlayers,ngptsw)\n      real(kind=rb) :: zsflxzen(ngptsw)\n\n! Arrays from rrtmg_sw_vrtqdr routine\n\n      real(kind=rb) :: zcd(nlayers+1,ngptsw), zcu(nlayers+1,ngptsw)\n      real(kind=rb) :: zfd(nlayers+1,ngptsw), zfu(nlayers+1,ngptsw)\n\n! Inactive arrays\n!     real(kind=rb) :: zbbcd(nlayers+1), zbbcu(nlayers+1)\n!     real(kind=rb) :: zbbfd(nlayers+1), zbbfu(nlayers+1)\n!     real(kind=rb) :: zbbfddir(nlayers+1), zbbcddir(nlayers+1)\n\n! ------------------------------------------------------------------\n\n! Initializations\n\n      ib1 = istart\n      ib2 = iend\n      klev = nlayers\n      iw = 0\n      repclc = 1.e-12_rb\n!      zincflux = 0.0_rb\n\n      do jk=1,klev+1\n         pbbcd(jk)=0._rb\n         pbbcu(jk)=0._rb\n         pbbfd(jk)=0._rb\n         pbbfu(jk)=0._rb\n         pbbcddir(jk)=0._rb\n         pbbfddir(jk)=0._rb\n         puvcd(jk)=0._rb\n         puvfd(jk)=0._rb\n         puvcddir(jk)=0._rb\n         puvfddir(jk)=0._rb\n         pnicd(jk)=0._rb\n         pnifd(jk)=0._rb\n         pnicddir(jk)=0._rb\n         pnifddir(jk)=0._rb\n      enddo\n\n\n! Calculate the optical depths for gaseous absorption and Rayleigh scattering\n\n      call taumol_sw(klev, &\n                     colh2o, colco2, colch4, colo2, colo3, colmol, &\n                     laytrop, jp, jt, jt1, &\n                     fac00, fac01, fac10, fac11, &\n                     selffac, selffrac, indself, forfac, forfrac, indfor, &\n                     zsflxzen, ztaug, ztaur)\n\n\n! Top of shortwave spectral band loop, jb = 16 -> 29; ibm = 1 -> 14\n\n      do jb = ib1, ib2\n         ibm = jb-15\n         igt = ngc(ibm)\n\n! Reinitialize g-point counter for each band if output for each band is requested.\n         if (iout.gt.0.and.ibm.ge.2) iw = ngs(ibm-1)\n\n!        do jk=1,klev+1\n!           zbbcd(jk)=0.0_rb\n!           zbbcu(jk)=0.0_rb\n!           zbbfd(jk)=0.0_rb\n!           zbbfu(jk)=0.0_rb\n!        enddo\n\n! Top of g-point interval loop within each band (iw is cumulative counter) \n         do jg = 1,igt\n            iw = iw+1\n\n! Apply adjustments for correct Earth/Sun distance and zenith angle to incoming solar flux\n            zincflx(iw) = adjflux(jb) * zsflxzen(iw) * prmu0\n!             zincflux = zincflux + adjflux(jb) * zsflxzen(iw) * prmu0           ! inactive\n\n! Compute layer reflectances and transmittances for direct and diffuse sources, \n! first clear then cloudy\n\n! zrefc(jk)  direct albedo for clear\n! zrefo(jk)  direct albedo for cloud\n! zrefdc(jk) diffuse albedo for clear\n! zrefdo(jk) diffuse albedo for cloud\n! ztrac(jk)  direct transmittance for clear\n! ztrao(jk)  direct transmittance for cloudy\n! ztradc(jk) diffuse transmittance for clear\n! ztrado(jk) diffuse transmittance for cloudy\n!  \n! zref(jk)   direct reflectance\n! zrefd(jk)  diffuse reflectance\n! ztra(jk)   direct transmittance\n! ztrad(jk)  diffuse transmittance\n!\n! zdbtc(jk)  clear direct beam transmittance\n! zdbto(jk)  cloudy direct beam transmittance\n! zdbt(jk)   layer mean direct beam transmittance\n! ztdbt(jk)  total direct beam transmittance at levels\n\n! Clear-sky    \n!   TOA direct beam    \n            ztdbtc(1)=1.0_rb\n            ztdbtc_nodel(1)=1.0_rb\n!   Surface values\n            zdbtc(klev+1) =0.0_rb\n            ztrac(klev+1) =0.0_rb\n            ztradc(klev+1)=0.0_rb\n            zrefc(klev+1) =palbp(ibm)\n            zrefdc(klev+1)=palbd(ibm)\n            zrupc(klev+1) =palbp(ibm)\n            zrupdc(klev+1)=palbd(ibm)\n           \n! Cloudy-sky    \n!   Surface values\n            ztrao(klev+1) =0.0_rb\n            ztrado(klev+1)=0.0_rb\n            zrefo(klev+1) =palbp(ibm)\n            zrefdo(klev+1)=palbd(ibm)\n           \n! Total sky    \n!   TOA direct beam    \n            ztdbt(1)=1.0_rb\n            ztdbt_nodel(1)=1.0_rb\n!   Surface values\n            zdbt(klev+1) =0.0_rb\n            ztra(klev+1) =0.0_rb\n            ztrad(klev+1)=0.0_rb\n            zref(klev+1) =palbp(ibm)\n            zrefd(klev+1)=palbd(ibm)\n            zrup(klev+1) =palbp(ibm)\n            zrupd(klev+1)=palbd(ibm)\n    \n    \n! Top of layer loop\n            do jk=1,klev\n\n! Note: two-stream calculations proceed from top to bottom; \n!   RRTMG_SW quantities are given bottom to top and are reversed here\n\n               ikl=klev+1-jk\n\n! Set logical flag to do REFTRA calculation\n!   Do REFTRA for all clear layers\n               lrtchkclr(jk)=.true.\n\n!   Do REFTRA only for cloudy layers in profile, since already done for clear layers\n               lrtchkcld(jk)=.false.\n               lrtchkcld(jk)=(pclfr(ikl) > repclc)\n\n! Clear-sky optical parameters - this section inactive     \n!   Original\n!               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw)\n!               zomcc(jk) = ztaur(ikl,iw) / ztauc(jk)\n!               zgcc(jk) = 0.0001_rb\n!   Total sky optical parameters        \n!               ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptauc(ikl,ibm)\n!               zomco(jk) = ptauc(ikl,ibm) * pomgc(ikl,ibm) + ztaur(ikl,iw)\n!               zgco (jk) = (ptauc(ikl,ibm) * pomgc(ikl,ibm) * pasyc(ikl,ibm) + &\n!                           ztaur(ikl,iw) * 0.0001_rb) / zomco(jk)\n!               zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Clear-sky optical parameters including aerosols\n               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm)\n               zomcc(jk) = ztaur(ikl,iw) * 1.0_rb + ptaua(ikl,ibm) * pomga(ikl,ibm)\n               zgcc(jk) = pasya(ikl,ibm) * pomga(ikl,ibm) * ptaua(ikl,ibm) / zomcc(jk)\n               zomcc(jk) = zomcc(jk) / ztauc(jk)\n\n! Pre-delta-scaling clear and cloudy direct beam transmittance (must use 'orig', unscaled cloud OD)       \n!   \\/\\/\\/ This block of code is only needed for unscaled direct beam calculation\n               if (idelm .eq. 0) then\n!     \n                  zclear = 1.0_rb - pclfr(ikl)\n                  zcloud = pclfr(ikl)\n\n! Clear\n!                   zdbtmc = exp(-ztauc(jk) / prmu0)\n \n! Use exponential lookup table for transmittance, or expansion of exponential for low tau\n                  ze1 = ztauc(jk) / prmu0\n                  if (ze1 .le. od_lo) then\n                     zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  else \n                     tblind = ze1 / (bpade + ze1)\n                     itind = tblint * tblind + 0.5_rb\n                     zdbtmc = exp_tbl(itind)\n                  endif\n\n                  zdbtc_nodel(jk) = zdbtmc\n                  ztdbtc_nodel(jk+1) = zdbtc_nodel(jk) * ztdbtc_nodel(jk)\n\n! Clear + Cloud\n                  tauorig = ztauc(jk) + ptaucorig(ikl,ibm)\n!                   zdbtmo = exp(-tauorig / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of exponential for low tau\n                  ze1 = tauorig / prmu0\n                  if (ze1 .le. od_lo) then\n                     zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  else\n                     tblind = ze1 / (bpade + ze1)\n                     itind = tblint * tblind + 0.5_rb\n                     zdbtmo = exp_tbl(itind)\n                  endif\n\n                  zdbt_nodel(jk) = zclear * zdbtmc + zcloud * zdbtmo\n                  ztdbt_nodel(jk+1) = zdbt_nodel(jk) * ztdbt_nodel(jk)\n\n               endif\n!   /\\/\\/\\ Above code only needed for unscaled direct beam calculation\n\n\n! Delta scaling - clear   \n               zf = zgcc(jk) * zgcc(jk)\n               zwf = zomcc(jk) * zf\n               ztauc(jk) = (1.0_rb - zwf) * ztauc(jk)\n               zomcc(jk) = (zomcc(jk) - zwf) / (1.0_rb - zwf)\n               zgcc (jk) = (zgcc(jk) - zf) / (1.0_rb - zf)\n\n! Total sky optical parameters (cloud properties already delta-scaled)\n!   Use this code if cloud properties are derived in rrtmg_sw_cldprop       \n               if (icpr .ge. 1) then\n                  ztauo(jk) = ztauc(jk) + ptauc(ikl,ibm)\n                  zomco(jk) = ztauc(jk) * zomcc(jk) + ptauc(ikl,ibm) * pomgc(ikl,ibm) \n                  zgco (jk) = (ptauc(ikl,ibm) * pomgc(ikl,ibm) * pasyc(ikl,ibm) + &\n                              ztauc(jk) * zomcc(jk) * zgcc(jk)) / zomco(jk)\n                  zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Total sky optical parameters (if cloud properties not delta scaled)\n!   Use this code if cloud properties are not derived in rrtmg_sw_cldprop       \n               elseif (icpr .eq. 0) then\n                  ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm) + ptauc(ikl,ibm)\n                  zomco(jk) = ptaua(ikl,ibm) * pomga(ikl,ibm) + ptauc(ikl,ibm) * pomgc(ikl,ibm) + &\n                              ztaur(ikl,iw) * 1.0_rb\n                  zgco (jk) = (ptauc(ikl,ibm) * pomgc(ikl,ibm) * pasyc(ikl,ibm) + &\n                              ptaua(ikl,ibm)*pomga(ikl,ibm)*pasya(ikl,ibm)) / zomco(jk)\n                  zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Delta scaling - clouds \n!   Use only if subroutine rrtmg_sw_cldprop is not used to get cloud properties and to apply delta scaling\n                  zf = zgco(jk) * zgco(jk)\n                  zwf = zomco(jk) * zf\n                  ztauo(jk) = (1._rb - zwf) * ztauo(jk)\n                  zomco(jk) = (zomco(jk) - zwf) / (1.0_rb - zwf)\n                  zgco (jk) = (zgco(jk) - zf) / (1.0_rb - zf)\n               endif \n\n! End of layer loop\n            enddo    \n\n\n! Clear sky reflectivities\n            call reftra_sw (klev, &\n                            lrtchkclr, zgcc, prmu0, ztauc, zomcc, &\n                            zrefc, zrefdc, ztrac, ztradc)\n\n! Total sky reflectivities      \n            call reftra_sw (klev, &\n                            lrtchkcld, zgco, prmu0, ztauo, zomco, &\n                            zrefo, zrefdo, ztrao, ztrado)\n\n\n            do jk=1,klev\n\n! Combine clear and cloudy contributions for total sky\n               ikl = klev+1-jk \n               zclear = 1.0_rb - pclfr(ikl)\n               zcloud = pclfr(ikl)\n\n               zref(jk) = zclear*zrefc(jk) + zcloud*zrefo(jk)\n               zrefd(jk)= zclear*zrefdc(jk) + zcloud*zrefdo(jk)\n               ztra(jk) = zclear*ztrac(jk) + zcloud*ztrao(jk)\n               ztrad(jk)= zclear*ztradc(jk) + zcloud*ztrado(jk)\n\n! Direct beam transmittance        \n\n! Clear\n!                zdbtmc = exp(-ztauc(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               ze1 = ztauc(jk) / prmu0\n               if (ze1 .le. od_lo) then\n                  zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zdbtmc = exp_tbl(itind)\n               endif\n\n               zdbtc(jk) = zdbtmc\n               ztdbtc(jk+1) = zdbtc(jk)*ztdbtc(jk)\n\n! Clear + Cloud\n!                zdbtmo = exp(-ztauo(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               ze1 = ztauo(jk) / prmu0\n               if (ze1 .le. od_lo) then\n                  zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zdbtmo = exp_tbl(itind)\n               endif\n\n               zdbt(jk) = zclear*zdbtmc + zcloud*zdbtmo\n               ztdbt(jk+1) = zdbt(jk)*ztdbt(jk)\n        \n            enddo           \n                 \n! Vertical quadrature for clear-sky fluxes\n\n            call vrtqdr_sw (klev, iw, &\n                            zrefc, zrefdc, ztrac, ztradc, &\n                            zdbtc, zrdndc, zrupc, zrupdc, ztdbtc, &\n                            zcd, zcu)\n      \n! Vertical quadrature for cloudy fluxes\n\n            call vrtqdr_sw (klev, iw, &\n                            zref, zrefd, ztra, ztrad, &\n                            zdbt, zrdnd, zrup, zrupd, ztdbt, &\n                            zfd, zfu)\n\n! Upwelling and downwelling fluxes at levels\n!   Two-stream calculations go from top to bottom; \n!   layer indexing is reversed to go bottom to top for output arrays\n\n            do jk=1,klev+1\n               ikl=klev+2-jk\n\n! Accumulate spectral fluxes over bands - inactive\n!               zbbfu(ikl) = zbbfu(ikl) + zincflx(iw)*zfu(jk,iw)  \n!               zbbfd(ikl) = zbbfd(ikl) + zincflx(iw)*zfd(jk,iw)\n!               zbbcu(ikl) = zbbcu(ikl) + zincflx(iw)*zcu(jk,iw)\n!               zbbcd(ikl) = zbbcd(ikl) + zincflx(iw)*zcd(jk,iw)\n!               zbbfddir(ikl) = zbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n!               zbbcddir(ikl) = zbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n\n! Accumulate spectral fluxes over whole spectrum  \n               pbbfu(ikl) = pbbfu(ikl) + zincflx(iw)*zfu(jk,iw)\n               pbbfd(ikl) = pbbfd(ikl) + zincflx(iw)*zfd(jk,iw)\n               pbbcu(ikl) = pbbcu(ikl) + zincflx(iw)*zcu(jk,iw)\n               pbbcd(ikl) = pbbcd(ikl) + zincflx(iw)*zcd(jk,iw)\n               if (idelm .eq. 0) then \n                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n               elseif (idelm .eq. 1) then\n                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt(jk)\n                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc(jk)\n               endif\n\n! Accumulate direct fluxes for UV/visible bands\n               if (ibm >= 10 .and. ibm <= 13) then\n                  puvcd(ikl) = puvcd(ikl) + zincflx(iw)*zcd(jk,iw)\n                  puvfd(ikl) = puvfd(ikl) + zincflx(iw)*zfd(jk,iw)\n                  if (idelm .eq. 0) then \n                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n                  elseif (idelm .eq. 1) then\n                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt(jk)\n                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc(jk)\n                  endif\n! Accumulate direct fluxes for near-IR bands\n               else if (ibm == 14 .or. ibm <= 9) then  \n                  pnicd(ikl) = pnicd(ikl) + zincflx(iw)*zcd(jk,iw)\n                  pnifd(ikl) = pnifd(ikl) + zincflx(iw)*zfd(jk,iw)\n                  if (idelm .eq. 0) then \n                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n                  elseif (idelm .eq. 1) then\n                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt(jk)\n                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc(jk)\n                  endif\n               endif\n\n            enddo\n\n! End loop on jg, g-point interval\n         enddo             \n\n! End loop on jb, spectral band\n      enddo                    \n\n      end subroutine spcvrt_sw\n\n      end module rrtmg_sw_spcvrt\n\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_spcvmc.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n      module rrtmg_sw_spcvmc\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, ngptsw, mxmol, jpband\n      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl\n      use rrsw_vsn, only : hvrspc, hnamspc\n      use rrsw_wvn, only : ngc, ngs\n      use rrtmg_sw_reftra, only: reftra_sw\n      use rrtmg_sw_taumol, only: taumol_sw\n      use rrtmg_sw_vrtqdr, only: vrtqdr_sw\n\n      implicit none\n\n      contains\n\n! ---------------------------------------------------------------------------\n      subroutine spcvmc_sw &\n            (nlayers, istart, iend, icpr, idelm, iout, &\n             pavel, tavel, pz, tz, tbound, palbd, palbp, &\n             pcldfmc, ptaucmc, pasycmc, pomgcmc, ptaormc, &\n             ptaua, pasya, pomga, prmu0, coldry, wkl, adjflux, &\n             laytrop, layswtch, laylow, jp, jt, jt1, &\n             co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n             fac00, fac01, fac10, fac11, &\n             selffac, selffrac, indself, forfac, forfrac, indfor, &\n             pbbfd, pbbfu, pbbcd, pbbcu, puvfd, puvcd, pnifd, pnicd, &\n             pbbfddir, pbbcddir, puvfddir, puvcddir, pnifddir, pnicddir)\n! ---------------------------------------------------------------------------\n!\n! Purpose: Contains spectral loop to compute the shortwave radiative fluxes, \n!          using the two-stream method of H. Barker and McICA, the Monte-Carlo\n!          Independent Column Approximation, for the representation of \n!          sub-grid cloud variability (i.e. cloud overlap).\n!\n! Interface:  *spcvmc_sw* is called from *rrtmg_sw.F90* or rrtmg_sw.1col.F90*\n!\n! Method:\n!    Adapted from two-stream model of H. Barker;\n!    Two-stream model options (selected with kmodts in rrtmg_sw_reftra.F90):\n!        1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates\n!\n! Modifications:\n!\n! Original: H. Barker\n! Revision: Merge with RRTMG_SW: J.-J.Morcrette, ECMWF, Feb 2003\n! Revision: Add adjustment for Earth/Sun distance : MJIacono, AER, Oct 2003\n! Revision: Bug fix for use of PALBP and PALBD: MJIacono, AER, Nov 2003\n! Revision: Bug fix to apply delta scaling to clear sky: AER, Dec 2004\n! Revision: Code modified so that delta scaling is not done in cloudy profiles\n!           if routine cldprop is used; delta scaling can be applied by swithcing\n!           code below if cldprop is not used to get cloud properties. \n!           AER, Jan 2005\n! Revision: Modified to use McICA: MJIacono, AER, Nov 2005\n! Revision: Uniform formatting for RRTMG: MJIacono, AER, Jul 2006 \n! Revision: Use exponential lookup table for transmittance: MJIacono, AER, \n!           Aug 2007 \n!\n! ------------------------------------------------------------------\n\n! ------- Declarations ------\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers\n      integer(kind=im), intent(in) :: istart\n      integer(kind=im), intent(in) :: iend\n      integer(kind=im), intent(in) :: icpr\n      integer(kind=im), intent(in) :: idelm   ! delta-m scaling flag\n                                              ! [0 = direct and diffuse fluxes are unscaled]\n                                              ! [1 = direct and diffuse fluxes are scaled]\n      integer(kind=im), intent(in) :: iout\n      integer(kind=im), intent(in) :: laytrop\n      integer(kind=im), intent(in) :: layswtch\n      integer(kind=im), intent(in) :: laylow\n\n      integer(kind=im), intent(in) :: indfor(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: indself(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jp(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt1(:)\n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: pavel(:)                    ! layer pressure (hPa, mb) \n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tavel(:)                    ! layer temperature (K)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pz(0:)                      ! level (interface) pressure (hPa, mb)\n                                                               !   Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tz(0:)                      ! level temperatures (hPa, mb)\n                                                               !   Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tbound                      ! surface temperature (K)\n      real(kind=rb), intent(in) :: wkl(:,:)                    ! molecular amounts (mol/cm2) \n                                                               !   Dimensions: (mxmol,nlayers)\n      real(kind=rb), intent(in) :: coldry(:)                   ! dry air column density (mol/cm2)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colmol(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: adjflux(:)                  ! Earth/Sun distance adjustment\n                                                               !   Dimensions: (jpband)\n\n      real(kind=rb), intent(in) :: palbd(:)                    ! surface albedo (diffuse)\n                                                               !   Dimensions: (nbndsw)\n      real(kind=rb), intent(in) :: palbp(:)                    ! surface albedo (direct)\n                                                               !   Dimensions: (nbndsw)\n      real(kind=rb), intent(in) :: prmu0                       ! cosine of solar zenith angle\n      real(kind=rb), intent(in) :: pcldfmc(:,:)                ! cloud fraction [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: ptaucmc(:,:)                ! cloud optical depth [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: pasycmc(:,:)                ! cloud asymmetry parameter [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: pomgcmc(:,:)                ! cloud single scattering albedo [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: ptaormc(:,:)                ! cloud optical depth, non-delta scaled [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: ptaua(:,:)                  ! aerosol optical depth\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pasya(:,:)                  ! aerosol asymmetry parameter\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pomga(:,:)                  ! aerosol single scattering albedo\n                                                               !   Dimensions: (nlayers,nbndsw)\n\n      real(kind=rb), intent(in) :: colh2o(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco2(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colch4(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: co2mult(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo3(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo2(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: coln2o(:)\n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: forfac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfrac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffrac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac00(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac01(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac10(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac11(:)\n                                                               !   Dimensions: (nlayers)\n\n! ------- Output -------\n                                                               !   All Dimensions: (nlayers+1)\n      real(kind=rb), intent(out) :: pbbcd(:)\n      real(kind=rb), intent(out) :: pbbcu(:)\n      real(kind=rb), intent(out) :: pbbfd(:)\n      real(kind=rb), intent(out) :: pbbfu(:)\n      real(kind=rb), intent(out) :: pbbfddir(:)\n      real(kind=rb), intent(out) :: pbbcddir(:)\n\n      real(kind=rb), intent(out) :: puvcd(:)\n      real(kind=rb), intent(out) :: puvfd(:)\n      real(kind=rb), intent(out) :: puvcddir(:)\n      real(kind=rb), intent(out) :: puvfddir(:)\n\n      real(kind=rb), intent(out) :: pnicd(:)\n      real(kind=rb), intent(out) :: pnifd(:)\n      real(kind=rb), intent(out) :: pnicddir(:)\n      real(kind=rb), intent(out) :: pnifddir(:)\n\n! Output - inactive                                            !   All Dimensions: (nlayers+1)\n!      real(kind=rb), intent(out) :: puvcu(:)\n!      real(kind=rb), intent(out) :: puvfu(:)\n!      real(kind=rb), intent(out) :: pnicu(:)\n!      real(kind=rb), intent(out) :: pnifu(:)\n!      real(kind=rb), intent(out) :: pvscd(:)\n!      real(kind=rb), intent(out) :: pvscu(:)\n!      real(kind=rb), intent(out) :: pvsfd(:)\n!      real(kind=rb), intent(out) :: pvsfu(:)\n\n! ------- Local -------\n\n      logical :: lrtchkclr(nlayers),lrtchkcld(nlayers)\n\n      integer(kind=im)  :: klev\n      integer(kind=im) :: ib1, ib2, ibm, igt, ikl, ikp, ikx\n      integer(kind=im) :: iw, jb, jg, jl, jk\n!      integer(kind=im), parameter :: nuv = ?? \n!      integer(kind=im), parameter :: nvs = ?? \n      integer(kind=im) :: itind\n\n      real(kind=rb) :: tblind, ze1\n      real(kind=rb) :: zclear, zcloud\n      real(kind=rb) :: zdbt(nlayers+1), zdbt_nodel(nlayers+1)\n      real(kind=rb) :: zgc(nlayers), zgcc(nlayers), zgco(nlayers)\n      real(kind=rb) :: zomc(nlayers), zomcc(nlayers), zomco(nlayers)\n      real(kind=rb) :: zrdnd(nlayers+1), zrdndc(nlayers+1)\n      real(kind=rb) :: zref(nlayers+1), zrefc(nlayers+1), zrefo(nlayers+1)\n      real(kind=rb) :: zrefd(nlayers+1), zrefdc(nlayers+1), zrefdo(nlayers+1)\n      real(kind=rb) :: zrup(nlayers+1), zrupd(nlayers+1)\n      real(kind=rb) :: zrupc(nlayers+1), zrupdc(nlayers+1)\n      real(kind=rb) :: zs1(nlayers+1)\n      real(kind=rb) :: ztauc(nlayers), ztauo(nlayers)\n      real(kind=rb) :: ztdn(nlayers+1), ztdnd(nlayers+1), ztdbt(nlayers+1)\n      real(kind=rb) :: ztoc(nlayers), ztor(nlayers)\n      real(kind=rb) :: ztra(nlayers+1), ztrac(nlayers+1), ztrao(nlayers+1)\n      real(kind=rb) :: ztrad(nlayers+1), ztradc(nlayers+1), ztrado(nlayers+1)\n      real(kind=rb) :: zdbtc(nlayers+1), ztdbtc(nlayers+1)\n      real(kind=rb) :: zincflx(ngptsw), zdbtc_nodel(nlayers+1) \n      real(kind=rb) :: ztdbt_nodel(nlayers+1), ztdbtc_nodel(nlayers+1)\n\n      real(kind=rb) :: zdbtmc, zdbtmo, zf, zgw, zreflect\n      real(kind=rb) :: zwf, tauorig, repclc\n!     real(kind=rb) :: zincflux                                   ! inactive\n\n! Arrays from rrtmg_sw_taumoln routines\n\n!      real(kind=rb) :: ztaug(nlayers,16), ztaur(nlayers,16)\n!      real(kind=rb) :: zsflxzen(16)\n      real(kind=rb) :: ztaug(nlayers,ngptsw), ztaur(nlayers,ngptsw)\n      real(kind=rb) :: zsflxzen(ngptsw)\n\n! Arrays from rrtmg_sw_vrtqdr routine\n\n      real(kind=rb) :: zcd(nlayers+1,ngptsw), zcu(nlayers+1,ngptsw)\n      real(kind=rb) :: zfd(nlayers+1,ngptsw), zfu(nlayers+1,ngptsw)\n\n! Inactive arrays\n!     real(kind=rb) :: zbbcd(nlayers+1), zbbcu(nlayers+1)\n!     real(kind=rb) :: zbbfd(nlayers+1), zbbfu(nlayers+1)\n!     real(kind=rb) :: zbbfddir(nlayers+1), zbbcddir(nlayers+1)\n\n! ------------------------------------------------------------------\n\n! Initializations\n\n      ib1 = istart\n      ib2 = iend\n      klev = nlayers\n      iw = 0\n      repclc = 1.e-12_rb\n!      zincflux = 0.0_rb\n\n      do jk=1,klev+1\n         pbbcd(jk)=0._rb\n         pbbcu(jk)=0._rb\n         pbbfd(jk)=0._rb\n         pbbfu(jk)=0._rb\n         pbbcddir(jk)=0._rb\n         pbbfddir(jk)=0._rb\n         puvcd(jk)=0._rb\n         puvfd(jk)=0._rb\n         puvcddir(jk)=0._rb\n         puvfddir(jk)=0._rb\n         pnicd(jk)=0._rb\n         pnifd(jk)=0._rb\n         pnicddir(jk)=0._rb\n         pnifddir(jk)=0._rb\n      enddo\n\n\n! Calculate the optical depths for gaseous absorption and Rayleigh scattering\n\n      call taumol_sw(klev, &\n                     colh2o, colco2, colch4, colo2, colo3, colmol, &\n                     laytrop, jp, jt, jt1, &\n                     fac00, fac01, fac10, fac11, &\n                     selffac, selffrac, indself, forfac, forfrac, indfor, &\n                     zsflxzen, ztaug, ztaur)\n\n! Top of shortwave spectral band loop, jb = 16 -> 29; ibm = 1 -> 14\n\n      do jb = ib1, ib2\n         ibm = jb-15\n         igt = ngc(ibm)\n\n! Reinitialize g-point counter for each band if output for each band is requested.\n         if (iout.gt.0.and.ibm.ge.2) iw = ngs(ibm-1)\n\n!        do jk=1,klev+1\n!           zbbcd(jk)=0.0_rb\n!           zbbcu(jk)=0.0_rb\n!           zbbfd(jk)=0.0_rb\n!           zbbfu(jk)=0.0_rb\n!        enddo\n\n! Top of g-point interval loop within each band (iw is cumulative counter) \n         do jg = 1,igt\n            iw = iw+1\n\n! Apply adjustment for correct Earth/Sun distance and zenith angle to incoming solar flux\n            zincflx(iw) = adjflux(jb) * zsflxzen(iw) * prmu0\n!             zincflux = zincflux + adjflux(jb) * zsflxzen(iw) * prmu0           ! inactive\n\n! Compute layer reflectances and transmittances for direct and diffuse sources, \n! first clear then cloudy\n\n! zrefc(jk)  direct albedo for clear\n! zrefo(jk)  direct albedo for cloud\n! zrefdc(jk) diffuse albedo for clear\n! zrefdo(jk) diffuse albedo for cloud\n! ztrac(jk)  direct transmittance for clear\n! ztrao(jk)  direct transmittance for cloudy\n! ztradc(jk) diffuse transmittance for clear\n! ztrado(jk) diffuse transmittance for cloudy\n!  \n! zref(jk)   direct reflectance\n! zrefd(jk)  diffuse reflectance\n! ztra(jk)   direct transmittance\n! ztrad(jk)  diffuse transmittance\n!\n! zdbtc(jk)  clear direct beam transmittance\n! zdbto(jk)  cloudy direct beam transmittance\n! zdbt(jk)   layer mean direct beam transmittance\n! ztdbt(jk)  total direct beam transmittance at levels\n\n! Clear-sky    \n!   TOA direct beam    \n            ztdbtc(1)=1.0_rb\n            ztdbtc_nodel(1)=1.0_rb\n!   Surface values\n            zdbtc(klev+1) =0.0_rb\n            ztrac(klev+1) =0.0_rb\n            ztradc(klev+1)=0.0_rb\n            zrefc(klev+1) =palbp(ibm)\n            zrefdc(klev+1)=palbd(ibm)\n            zrupc(klev+1) =palbp(ibm)\n            zrupdc(klev+1)=palbd(ibm)\n           \n! Cloudy-sky    \n!   Surface values\n            ztrao(klev+1) =0.0_rb\n            ztrado(klev+1)=0.0_rb\n            zrefo(klev+1) =palbp(ibm)\n            zrefdo(klev+1)=palbd(ibm)\n           \n! Total sky    \n!   TOA direct beam    \n            ztdbt(1)=1.0_rb\n            ztdbt_nodel(1)=1.0_rb\n!   Surface values\n            zdbt(klev+1) =0.0_rb\n            ztra(klev+1) =0.0_rb\n            ztrad(klev+1)=0.0_rb\n            zref(klev+1) =palbp(ibm)\n            zrefd(klev+1)=palbd(ibm)\n            zrup(klev+1) =palbp(ibm)\n            zrupd(klev+1)=palbd(ibm)\n    \n! Top of layer loop\n            do jk=1,klev\n\n! Note: two-stream calculations proceed from top to bottom; \n!   RRTMG_SW quantities are given bottom to top and are reversed here\n\n               ikl=klev+1-jk\n\n! Set logical flag to do REFTRA calculation\n!   Do REFTRA for all clear layers\n               lrtchkclr(jk)=.true.\n\n!   Do REFTRA only for cloudy layers in profile, since already done for clear layers\n               lrtchkcld(jk)=.false.\n               lrtchkcld(jk)=(pcldfmc(ikl,iw) > repclc)\n\n! Clear-sky optical parameters - this section inactive     \n!   Original\n!               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw)\n!               zomcc(jk) = ztaur(ikl,iw) / ztauc(jk)\n!               zgcc(jk) = 0.0001_rb\n!   Total sky optical parameters        \n!               ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaucmc(ikl,iw)\n!               zomco(jk) = ptaucmc(ikl,iw) * pomgcmc(ikl,iw) + ztaur(ikl,iw)\n!               zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &\n!                           ztaur(ikl,iw) * 0.0001_rb) / zomco(jk)\n!               zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Clear-sky optical parameters including aerosols\n               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm)\n               zomcc(jk) = ztaur(ikl,iw) * 1.0_rb + ptaua(ikl,ibm) * pomga(ikl,ibm)\n               zgcc(jk) = pasya(ikl,ibm) * pomga(ikl,ibm) * ptaua(ikl,ibm) / zomcc(jk)\n               zomcc(jk) = zomcc(jk) / ztauc(jk)\n\n! Pre-delta-scaling clear and cloudy direct beam transmittance (must use 'orig', unscaled cloud OD)       \n!   \\/\\/\\/ This block of code is only needed for unscaled direct beam calculation\n               if (idelm .eq. 0) then\n!     \n                  zclear = 1.0_rb - pcldfmc(ikl,iw)\n                  zcloud = pcldfmc(ikl,iw)\n\n! Clear\n!                   zdbtmc = exp(-ztauc(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of exponential for low tau\n                  ze1 = ztauc(jk) / prmu0\n                  if (ze1 .le. od_lo) then\n                     zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  else \n                     tblind = ze1 / (bpade + ze1)\n                     itind = tblint * tblind + 0.5_rb\n                     zdbtmc = exp_tbl(itind)\n                  endif\n\n                  zdbtc_nodel(jk) = zdbtmc\n                  ztdbtc_nodel(jk+1) = zdbtc_nodel(jk) * ztdbtc_nodel(jk)\n\n! Clear + Cloud\n                  tauorig = ztauc(jk) + ptaormc(ikl,iw)\n!                   zdbtmo = exp(-tauorig / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of exponential for low tau\n                  ze1 = tauorig / prmu0\n                  if (ze1 .le. od_lo) then\n                     zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  else\n                     tblind = ze1 / (bpade + ze1)\n                     itind = tblint * tblind + 0.5_rb\n                     zdbtmo = exp_tbl(itind)\n                  endif\n\n                  zdbt_nodel(jk) = zclear*zdbtmc + zcloud*zdbtmo\n                  ztdbt_nodel(jk+1) = zdbt_nodel(jk) * ztdbt_nodel(jk)\n\n               endif\n!   /\\/\\/\\ Above code only needed for unscaled direct beam calculation\n\n\n! Delta scaling - clear   \n               zf = zgcc(jk) * zgcc(jk)\n               zwf = zomcc(jk) * zf\n               ztauc(jk) = (1.0_rb - zwf) * ztauc(jk)\n               zomcc(jk) = (zomcc(jk) - zwf) / (1.0_rb - zwf)\n               zgcc (jk) = (zgcc(jk) - zf) / (1.0_rb - zf)\n\n! Total sky optical parameters (cloud properties already delta-scaled)\n!   Use this code if cloud properties are derived in rrtmg_sw_cldprop       \n               if (icpr .ge. 1) then\n                  ztauo(jk) = ztauc(jk) + ptaucmc(ikl,iw)\n                  zomco(jk) = ztauc(jk) * zomcc(jk) + ptaucmc(ikl,iw) * pomgcmc(ikl,iw) \n                  zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &\n                              ztauc(jk) * zomcc(jk) * zgcc(jk)) / zomco(jk)\n                  zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Total sky optical parameters (if cloud properties not delta scaled)\n!   Use this code if cloud properties are not derived in rrtmg_sw_cldprop       \n               elseif (icpr .eq. 0) then\n                  ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm) + ptaucmc(ikl,iw)\n                  zomco(jk) = ptaua(ikl,ibm) * pomga(ikl,ibm) + ptaucmc(ikl,iw) * pomgcmc(ikl,iw) + &\n                              ztaur(ikl,iw) * 1.0_rb\n                  zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &\n                              ptaua(ikl,ibm)*pomga(ikl,ibm)*pasya(ikl,ibm)) / zomco(jk)\n                  zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Delta scaling - clouds \n!   Use only if subroutine rrtmg_sw_cldprop is not used to get cloud properties and to apply delta scaling\n                  zf = zgco(jk) * zgco(jk)\n                  zwf = zomco(jk) * zf\n                  ztauo(jk) = (1._rb - zwf) * ztauo(jk)\n                  zomco(jk) = (zomco(jk) - zwf) / (1.0_rb - zwf)\n                  zgco (jk) = (zgco(jk) - zf) / (1.0_rb - zf)\n               endif \n\n! End of layer loop\n            enddo    \n\n! Clear sky reflectivities\n            call reftra_sw (klev, &\n                            lrtchkclr, zgcc, prmu0, ztauc, zomcc, &\n                            zrefc, zrefdc, ztrac, ztradc)\n\n! Total sky reflectivities      \n            call reftra_sw (klev, &\n                            lrtchkcld, zgco, prmu0, ztauo, zomco, &\n                            zrefo, zrefdo, ztrao, ztrado)\n\n            do jk=1,klev\n\n! Combine clear and cloudy contributions for total sky\n               ikl = klev+1-jk \n               zclear = 1.0_rb - pcldfmc(ikl,iw)\n               zcloud = pcldfmc(ikl,iw)\n\n               zref(jk) = zclear*zrefc(jk) + zcloud*zrefo(jk)\n               zrefd(jk)= zclear*zrefdc(jk) + zcloud*zrefdo(jk)\n               ztra(jk) = zclear*ztrac(jk) + zcloud*ztrao(jk)\n               ztrad(jk)= zclear*ztradc(jk) + zcloud*ztrado(jk)\n\n! Direct beam transmittance        \n\n! Clear\n!                zdbtmc = exp(-ztauc(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               ze1 = ztauc(jk) / prmu0\n               if (ze1 .le. od_lo) then\n                  zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zdbtmc = exp_tbl(itind)\n               endif\n\n               zdbtc(jk) = zdbtmc\n               ztdbtc(jk+1) = zdbtc(jk)*ztdbtc(jk)\n\n! Clear + Cloud\n!                zdbtmo = exp(-ztauo(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               ze1 = ztauo(jk) / prmu0\n               if (ze1 .le. od_lo) then\n                  zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zdbtmo = exp_tbl(itind)\n               endif\n\n               zdbt(jk) = zclear*zdbtmc + zcloud*zdbtmo\n               ztdbt(jk+1) = zdbt(jk)*ztdbt(jk)\n        \n            enddo           \n                 \n! Vertical quadrature for clear-sky fluxes\n\n            call vrtqdr_sw(klev, iw, &\n                           zrefc, zrefdc, ztrac, ztradc, &\n                           zdbtc, zrdndc, zrupc, zrupdc, ztdbtc, &\n                           zcd, zcu)\n      \n! Vertical quadrature for cloudy fluxes\n\n            call vrtqdr_sw(klev, iw, &\n                           zref, zrefd, ztra, ztrad, &\n                           zdbt, zrdnd, zrup, zrupd, ztdbt, &\n                           zfd, zfu)\n\n! Upwelling and downwelling fluxes at levels\n!   Two-stream calculations go from top to bottom; \n!   layer indexing is reversed to go bottom to top for output arrays\n\n            do jk=1,klev+1\n               ikl=klev+2-jk\n\n! Accumulate spectral fluxes over bands - inactive\n!               zbbfu(ikl) = zbbfu(ikl) + zincflx(iw)*zfu(jk,iw)  \n!               zbbfd(ikl) = zbbfd(ikl) + zincflx(iw)*zfd(jk,iw)\n!               zbbcu(ikl) = zbbcu(ikl) + zincflx(iw)*zcu(jk,iw)\n!               zbbcd(ikl) = zbbcd(ikl) + zincflx(iw)*zcd(jk,iw)\n!               zbbfddir(ikl) = zbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n!               zbbcddir(ikl) = zbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n\n! Accumulate spectral fluxes over whole spectrum  \n               pbbfu(ikl) = pbbfu(ikl) + zincflx(iw)*zfu(jk,iw)\n               pbbfd(ikl) = pbbfd(ikl) + zincflx(iw)*zfd(jk,iw)\n               pbbcu(ikl) = pbbcu(ikl) + zincflx(iw)*zcu(jk,iw)\n               pbbcd(ikl) = pbbcd(ikl) + zincflx(iw)*zcd(jk,iw)\n               if (idelm .eq. 0) then \n                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n               elseif (idelm .eq. 1) then\n                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt(jk)\n                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc(jk)\n               endif\n\n! Accumulate direct fluxes for UV/visible bands\n               if (ibm >= 10 .and. ibm <= 13) then\n                  puvcd(ikl) = puvcd(ikl) + zincflx(iw)*zcd(jk,iw)\n                  puvfd(ikl) = puvfd(ikl) + zincflx(iw)*zfd(jk,iw)\n                  if (idelm .eq. 0) then \n                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n                  elseif (idelm .eq. 1) then\n                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt(jk)\n                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc(jk)\n                  endif\n! Accumulate direct fluxes for near-IR bands\n               else if (ibm == 14 .or. ibm <= 9) then  \n                  pnicd(ikl) = pnicd(ikl) + zincflx(iw)*zcd(jk,iw)\n                  pnifd(ikl) = pnifd(ikl) + zincflx(iw)*zfd(jk,iw)\n                  if (idelm .eq. 0) then \n                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n                  elseif (idelm .eq. 1) then\n                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt(jk)\n                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc(jk)\n                  endif\n               endif\n\n            enddo\n\n! End loop on jg, g-point interval\n         enddo             \n\n! End loop on jb, spectral band\n      enddo                    \n\n      end subroutine spcvmc_sw\n\n      end module rrtmg_sw_spcvmc\n\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/mcica_random_numbers.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.3 $\n!     created:   $Date: 2008/08/29 17:59:07 $\n!\n\n! Fortran-95 implementation of the Mersenne Twister 19937, following \n!   the C implementation described below (code mt19937ar-cok.c, dated 2002/2/10), \n!   adapted cosmetically by making the names more general.  \n! Users must declare one or more variables of type randomNumberSequence in the calling \n!   procedure which are then initialized using a required seed. If the \n!   variable is not initialized the random numbers will all be 0. \n! For example: \n! program testRandoms \n!   use RandomNumbers\n!   type(randomNumberSequence) :: randomNumbers\n!   integer                    :: i\n!   \n!   randomNumbers = new_RandomNumberSequence(seed = 100)\n!   do i = 1, 10\n!     print ('(f12.10, 2x)'), getRandomReal(randomNumbers)\n!   end do\n! end program testRandoms\n! \n! Fortran-95 implementation by \n!   Robert Pincus\n!   NOAA-CIRES Climate Diagnostics Center\n!   Boulder, CO 80305 \n!   email: Robert.Pincus@colorado.edu\n!\n! This documentation in the original C program reads:\n! -------------------------------------------------------------\n!    A C-program for MT19937, with initialization improved 2002/2/10.\n!    Coded by Takuji Nishimura and Makoto Matsumoto.\n!    This is a faster version by taking Shawn Cokus's optimization,\n!    Matthe Bellew's simplification, Isaku Wada's real version.\n! \n!    Before using, initialize the state by using init_genrand(seed) \n!    or init_by_array(init_key, key_length).\n! \n!    Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura,\n!    All rights reserved.                          \n! \n!    Redistribution and use in source and binary forms, with or without\n!    modification, are permitted provided that the following conditions\n!    are met:\n! \n!      1. Redistributions of source code must retain the above copyright\n!         notice, this list of conditions and the following disclaimer.\n! \n!      2. Redistributions in binary form must reproduce the above copyright\n!         notice, this list of conditions and the following disclaimer in the\n!         documentation and/or other materials provided with the distribution.\n! \n!      3. The names of its contributors may not be used to endorse or promote \n!         products derived from this software without specific prior written \n!         permission.\n! \n!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\n!    \"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\n!    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\n!    A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR\n!    CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,\n!    EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,\n!    PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR\n!    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF\n!    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING\n!    NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\n!    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n! \n! \n!    Any feedback is very welcome.\n!    http://www.math.keio.ac.jp/matumoto/emt.html\n!    email: matumoto@math.keio.ac.jp\n! -------------------------------------------------------------\n\n  module MersenneTwister\n! -------------------------------------------------------------\n\n  use parkind, only : im => kind_im, rb => kind_rb\n\n  implicit none\n  private\n  \n  ! Algorithm parameters\n  ! -------\n  ! Period parameters\n  integer(kind=im), parameter :: blockSize = 624,         &\n                        M         = 397,         &\n                        MATRIX_A  = -1727483681, & ! constant vector a         (0x9908b0dfUL)\n                        UMASK     = -2147483648, & ! most significant w-r bits (0x80000000UL)\n                        LMASK     =  2147483647    ! least significant r bits  (0x7fffffffUL)\n  ! Tempering parameters\n  integer(kind=im), parameter :: TMASKB= -1658038656, & ! (0x9d2c5680UL)\n                        TMASKC= -272236544     ! (0xefc60000UL)\n  ! -------\n\n  ! The type containing the state variable  \n  type randomNumberSequence\n    integer(kind=im)                            :: currentElement ! = blockSize\n    integer(kind=im), dimension(0:blockSize -1) :: state ! = 0\n  end type randomNumberSequence\n\n  interface new_RandomNumberSequence\n    module procedure initialize_scalar, initialize_vector\n  end interface new_RandomNumberSequence \n\n  public :: randomNumberSequence\n  public :: new_RandomNumberSequence, finalize_RandomNumberSequence, &\n            getRandomInt, getRandomPositiveInt, getRandomReal\n! -------------------------------------------------------------\ncontains\n  ! -------------------------------------------------------------\n  ! Private functions\n  ! ---------------------------\n  function mixbits(u, v)\n    integer(kind=im), intent( in) :: u, v\n    integer(kind=im)              :: mixbits\n    \n    mixbits = ior(iand(u, UMASK), iand(v, LMASK))\n  end function mixbits\n  ! ---------------------------\n  function twist(u, v)\n    integer(kind=im), intent( in) :: u, v\n    integer(kind=im)              :: twist\n\n    ! Local variable\n    integer(kind=im), parameter, dimension(0:1) :: t_matrix = (/ 0_im, MATRIX_A /)\n    \n    twist = ieor(ishft(mixbits(u, v), -1_im), t_matrix(iand(v, 1_im)))\n    twist = ieor(ishft(mixbits(u, v), -1_im), t_matrix(iand(v, 1_im)))\n  end function twist\n  ! ---------------------------\n  subroutine nextState(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    \n    ! Local variables\n    integer(kind=im) :: k\n    \n    do k = 0, blockSize - M - 1\n      twister%state(k) = ieor(twister%state(k + M), &\n                              twist(twister%state(k), twister%state(k + 1_im)))\n    end do \n    do k = blockSize - M, blockSize - 2\n      twister%state(k) = ieor(twister%state(k + M - blockSize), &\n                              twist(twister%state(k), twister%state(k + 1_im)))\n    end do \n    twister%state(blockSize - 1_im) = ieor(twister%state(M - 1_im), &\n                                        twist(twister%state(blockSize - 1_im), twister%state(0_im)))\n    twister%currentElement = 0_im\n\n  end subroutine nextState\n  ! ---------------------------\n  elemental function temper(y)\n    integer(kind=im), intent(in) :: y\n    integer(kind=im)             :: temper\n    \n    integer(kind=im) :: x\n    \n    ! Tempering\n    x      = ieor(y, ishft(y, -11))\n    x      = ieor(x, iand(ishft(x,  7), TMASKB))\n    x      = ieor(x, iand(ishft(x, 15), TMASKC))\n    temper = ieor(x, ishft(x, -18))\n  end function temper\n  ! -------------------------------------------------------------\n  ! Public (but hidden) functions\n  ! --------------------\n  function initialize_scalar(seed) result(twister)\n    integer(kind=im),       intent(in   ) :: seed\n    type(randomNumberSequence)                :: twister \n    \n    integer(kind=im) :: i\n    ! See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. In the previous versions, \n    !   MSBs of the seed affect only MSBs of the array state[].                       \n    !   2002/01/09 modified by Makoto Matsumoto            \n    \n    twister%state(0) = iand(seed, -1_im)\n    do i = 1,  blockSize - 1 ! ubound(twister%state)\n       twister%state(i) = 1812433253_im * ieor(twister%state(i-1), &\n                                            ishft(twister%state(i-1), -30_im)) + i\n       twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n    end do\n    twister%currentElement = blockSize\n  end function initialize_scalar\n  ! -------------------------------------------------------------\n  function initialize_vector(seed) result(twister)\n    integer(kind=im), dimension(0:), intent(in) :: seed\n    type(randomNumberSequence)                      :: twister \n    \n    integer(kind=im) :: i, j, k, nFirstLoop, nWraps\n    \n    nWraps  = 0\n    twister = initialize_scalar(19650218_im)\n    \n    nFirstLoop = max(blockSize, size(seed))\n    do k = 1, nFirstLoop\n       i = mod(k + nWraps, blockSize)\n       j = mod(k - 1,      size(seed))\n       if(i == 0) then\n         twister%state(i) = twister%state(blockSize - 1)\n         twister%state(1) = ieor(twister%state(1),                                 &\n                                 ieor(twister%state(1-1),                          & \n                                      ishft(twister%state(1-1), -30_im)) * 1664525_im) + & \n                            seed(j) + j ! Non-linear\n         twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n         nWraps = nWraps + 1\n       else\n         twister%state(i) = ieor(twister%state(i),                                 &\n                                 ieor(twister%state(i-1),                          & \n                                      ishft(twister%state(i-1), -30_im)) * 1664525_im) + & \n                            seed(j) + j ! Non-linear\n         twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n      end if\n    end do\n    \n    !\n    ! Walk through the state array, beginning where we left off in the block above\n    ! \n    do i = mod(nFirstLoop, blockSize) + nWraps + 1, blockSize - 1\n      twister%state(i) = ieor(twister%state(i),                                 &\n                              ieor(twister%state(i-1),                          & \n                                   ishft(twister%state(i-1), -30_im)) * 1566083941_im) - i ! Non-linear\n      twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n    end do\n    \n    twister%state(0) = twister%state(blockSize - 1) \n    \n    do i = 1, mod(nFirstLoop, blockSize) + nWraps\n      twister%state(i) = ieor(twister%state(i),                                 &\n                              ieor(twister%state(i-1),                          & \n                                   ishft(twister%state(i-1), -30_im)) * 1566083941_im) - i ! Non-linear\n      twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n    end do\n    \n    twister%state(0) = UMASK \n    twister%currentElement = blockSize\n    \n  end function initialize_vector\n  ! -------------------------------------------------------------\n  ! Public functions\n  ! --------------------\n  function getRandomInt(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    integer(kind=im)                        :: getRandomInt\n    ! Generate a random integer on the interval [0,0xffffffff]\n    !   Equivalent to genrand_int32 in the C code. \n    !   Fortran doesn't have a type that's unsigned like C does, \n    !   so this is integers in the range -2**31 - 2**31\n    ! All functions for getting random numbers call this one, \n    !   then manipulate the result\n    \n    if(twister%currentElement >= blockSize) call nextState(twister)\n      \n    getRandomInt = temper(twister%state(twister%currentElement))\n    twister%currentElement = twister%currentElement + 1\n  \n  end function getRandomInt\n  ! --------------------\n  function getRandomPositiveInt(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    integer(kind=im)                        :: getRandomPositiveInt\n    ! Generate a random integer on the interval [0,0x7fffffff]\n    !   or [0,2**31]\n    !   Equivalent to genrand_int31 in the C code. \n    \n    ! Local integers\n    integer(kind=im) :: localInt\n\n    localInt = getRandomInt(twister)\n    getRandomPositiveInt = ishft(localInt, -1)\n  \n  end function getRandomPositiveInt\n  ! --------------------\n!! mji - modified Jan 2007, double converted to rrtmg real kind type\n  function getRandomReal(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n!    double precision             :: getRandomReal\n    real(kind=rb)             :: getRandomReal\n    ! Generate a random number on [0,1]\n    !   Equivalent to genrand_real1 in the C code\n    !   The result is stored as double precision but has 32 bit resolution\n    \n    integer(kind=im) :: localInt\n    \n    localInt = getRandomInt(twister)\n    if(localInt < 0) then\n!      getRandomReal = dble(localInt + 2.0d0**32)/(2.0d0**32 - 1.0d0)\n      getRandomReal = (localInt + 2.0**32_rb)/(2.0**32_rb - 1.0_rb)\n    else\n!      getRandomReal = dble(localInt            )/(2.0d0**32 - 1.0d0)\n      getRandomReal = (localInt            )/(2.0**32_rb - 1.0_rb)\n    end if\n\n  end function getRandomReal\n  ! --------------------\n  subroutine finalize_RandomNumberSequence(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    \n      twister%currentElement = blockSize\n      twister%state(:) = 0_im\n  end subroutine finalize_RandomNumberSequence\n\n  ! --------------------  \n  \n  end module MersenneTwister\n\n\n  module mcica_random_numbers\n\n  ! Generic module to wrap random number generators. \n  !   The module defines a type that identifies the particular stream of random \n  !   numbers, and has procedures for initializing it and getting real numbers \n  !   in the range 0 to 1. \n  ! This version uses the Mersenne Twister to generate random numbers on [0, 1]. \n  !\n  use MersenneTwister, only: randomNumberSequence, & ! The random number engine.\n                             new_RandomNumberSequence, getRandomReal\n!! mji\n!!  use time_manager_mod, only: time_type, get_date\n\n  use parkind, only : im => kind_im, rb => kind_rb\n\n  implicit none\n  private\n  \n  type randomNumberStream\n    type(randomNumberSequence) :: theNumbers\n  end type randomNumberStream\n  \n  interface getRandomNumbers\n    module procedure getRandomNumber_Scalar, getRandomNumber_1D, getRandomNumber_2D\n  end interface getRandomNumbers\n  \n  interface initializeRandomNumberStream\n    module procedure initializeRandomNumberStream_S, initializeRandomNumberStream_V\n  end interface initializeRandomNumberStream\n\n  public :: randomNumberStream,                             &\n            initializeRandomNumberStream, getRandomNumbers\n!! mji\n!!            initializeRandomNumberStream, getRandomNumbers, &\n!!            constructSeed\ncontains\n  ! ---------------------------------------------------------\n  ! Initialization\n  ! ---------------------------------------------------------\n  function initializeRandomNumberStream_S(seed) result(new) \n    integer(kind=im), intent( in)     :: seed\n    type(randomNumberStream) :: new\n    \n    new%theNumbers = new_RandomNumberSequence(seed)\n    \n  end function initializeRandomNumberStream_S\n  ! ---------------------------------------------------------\n  function initializeRandomNumberStream_V(seed) result(new) \n    integer(kind=im), dimension(:), intent( in) :: seed\n    type(randomNumberStream)           :: new\n    \n    new%theNumbers = new_RandomNumberSequence(seed)\n    \n  end function initializeRandomNumberStream_V\n  ! ---------------------------------------------------------\n  ! Procedures for drawing random numbers\n  ! ---------------------------------------------------------\n  subroutine getRandomNumber_Scalar(stream, number)\n    type(randomNumberStream), intent(inout) :: stream\n    real(kind=rb),                     intent(  out) :: number\n    \n    number = getRandomReal(stream%theNumbers)\n  end subroutine getRandomNumber_Scalar\n  ! ---------------------------------------------------------\n  subroutine getRandomNumber_1D(stream, numbers)\n    type(randomNumberStream), intent(inout) :: stream\n    real(kind=rb), dimension(:),       intent(  out) :: numbers\n    \n    ! Local variables\n    integer(kind=im) :: i\n    \n    do i = 1, size(numbers)\n      numbers(i) = getRandomReal(stream%theNumbers)\n    end do\n  end subroutine getRandomNumber_1D\n  ! ---------------------------------------------------------\n  subroutine getRandomNumber_2D(stream, numbers)\n    type(randomNumberStream), intent(inout) :: stream\n    real(kind=rb), dimension(:, :),    intent(  out) :: numbers\n    \n    ! Local variables\n    integer(kind=im) :: i\n    \n    do i = 1, size(numbers, 2)\n      call getRandomNumber_1D(stream, numbers(:, i))\n    end do\n  end subroutine getRandomNumber_2D\n! mji\n!  ! ---------------------------------------------------------\n!  ! Constructing a unique seed from grid cell index and model date/time\n!  !   Once we have the GFDL stuff we'll add the year, month, day, hour, minute\n!  ! ---------------------------------------------------------\n!  function constructSeed(i, j, time) result(seed)\n!    integer(kind=im),         intent( in)  :: i, j\n!    type(time_type), intent( in) :: time\n!    integer(kind=im), dimension(8) :: seed\n!    \n!    ! Local variables\n!    integer(kind=im) :: year, month, day, hour, minute, second\n!    \n!    \n!    call get_date(time, year, month, day, hour, minute, second)\n!    seed = (/ i, j, year, month, day, hour, minute, second /)\n!  end function constructSeed\n\n  end module mcica_random_numbers\n\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/mcica_subcol_gen_sw.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.7 $\n!     created:   $Date: 2009/05/22 22:22:21 $\n!\n\n      module mcica_subcol_gen_sw\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2006-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.   \n! Two options are possible:\n! 1) Input cloud physical properties: cloud fraction, ice and liquid water\n!    paths, ice fraction, and particle sizes.  Output will be stochastic\n!    arrays of these variables.  (inflag = 1)\n! 2) Input cloud optical properties directly: cloud optical depth, single\n!    scattering albedo and asymmetry parameter.  Output will be stochastic\n!    arrays of these variables.  (inflag = 0)\n\n! --------- Modules ----------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, ngptsw\n      use rrsw_con, only: grav\n      use rrsw_wvn, only: ngb\n      use rrsw_vsn\n\n      implicit none\n\n! public interfaces/functions/subroutines\n      public :: mcica_subcol_sw, generate_stochastic_clouds_sw\n\n      contains\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, &\n                       cldfrac, ciwp, clwp, rei, rel, tauc, ssac, asmc, fsfc, &\n                       cldfmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, &\n                       taucmcl, ssacmcl, asmcmcl, fsfcmcl)\n\n! ----- Input -----\n! Control\n      integer(kind=im), intent(in) :: iplon           ! column/longitude dimension\n      integer(kind=im), intent(in) :: ncol            ! number of columns\n      integer(kind=im), intent(in) :: nlay            ! number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag\n      integer(kind=im), intent(in) :: permuteseed     ! if the cloud generator is called multiple times,\n                                                      ! permute the seed between each call;\n                                                      ! between calls for LW and SW, recommended\n                                                      ! permuteseed differs by 'ngpt'\n      integer(kind=im), intent(inout) :: irng         ! flag for random number generator\n                                                      !  0 = kissvec\n                                                      !  1 = Mersenne Twister\n        \n! Atmosphere\n      real(kind=rb), intent(in) :: play(:,:)          ! layer pressures (mb) \n                                                      !    Dimensions: (ncol,nlay)\n\n! Atmosphere/clouds - cldprop\n      real(kind=rb), intent(in) :: cldfrac(:,:)       ! layer cloud fraction\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ssac(:,:,:)        ! in-cloud single scattering albedo (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: asmc(:,:,:)        ! in-cloud asymmetry parameter (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: fsfc(:,:,:)        ! in-cloud forward scattering fraction (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: rei(:,:)           ! cloud ice particle size\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: rel(:,:)           ! cloud liquid particle size\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Output -----\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb), intent(out) :: cldfmcl(:,:,:)    ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ciwpmcl(:,:,:)    ! in-cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: clwpmcl(:,:,:)    ! in-cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: relqmcl(:,:)      ! liquid particle size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: reicmcl(:,:)      ! ice partcle size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: taucmcl(:,:,:)    ! in-cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ssacmcl(:,:,:)    ! in-cloud single scattering albedo [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: asmcmcl(:,:,:)    ! in-cloud asymmetry parameter [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: fsfcmcl(:,:,:)    ! in-cloud forward scattering fraction [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n\n! ----- Local -----\n\n! Stochastic cloud generator variables [mcica]\n      integer(kind=im), parameter :: nsubcsw = ngptsw ! number of sub-columns (g-point intervals)\n      integer(kind=im) :: ilev                        ! loop index\n\n      real(kind=rb) :: pmid(ncol,nlay)                ! layer pressures (Pa) \n!      real(kind=rb) :: pdel(ncol,nlay)               ! layer pressure thickness (Pa) \n!      real(kind=rb) :: qi(ncol,nlay)                 ! ice water (specific humidity)\n!      real(kind=rb) :: ql(ncol,nlay)                 ! liq water (specific humidity)\n\n\n! Return if clear sky; or stop if icld out of range\n      if (icld.eq.0) return\n      if (icld.lt.0.or.icld.gt.3) then \n         stop 'MCICA_SUBCOL: INVALID ICLD'\n      endif \n\n! NOTE: For GCM mode, permuteseed must be offset between LW and SW by at least number of subcolumns\n\n\n! Pass particle sizes to new arrays, no subcolumns for these properties yet\n! Convert pressures from mb to Pa\n\n      reicmcl(:ncol,:nlay) = rei(:ncol,:nlay)\n      relqmcl(:ncol,:nlay) = rel(:ncol,:nlay)\n      pmid(:ncol,:nlay) = play(:ncol,:nlay)*1.e2_rb\n\n! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components \n\n!      cwp =  (q * pdel * 1000.) / gravit)\n!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2\n!           = (g m-2)\n!\n!      q  = (cwp * gravit) / (pdel *1000.)\n!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)\n!         =  kg/kg\n\n!      do ilev = 1, nlay\n!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)\n!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)\n!      enddo\n\n!  Generate the stochastic subcolumns of cloud optical properties for the shortwave;\n      call generate_stochastic_clouds_sw (ncol, nlay, nsubcsw, icld, irng, pmid, cldfrac, clwp, ciwp, &\n                               tauc, ssac, asmc, fsfc, cldfmcl, clwpmcl, ciwpmcl, &\n                               taucmcl, ssacmcl, asmcmcl, fsfcmcl, permuteseed)\n\n      end subroutine mcica_subcol_sw\n\n\n!-------------------------------------------------------------------------------------------------\n      subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, &\n                               tauc, ssac, asmc, fsfc, cld_stoch, clwp_stoch, ciwp_stoch, &\n                               tauc_stoch, ssac_stoch, asmc_stoch, fsfc_stoch, changeSeed) \n!-------------------------------------------------------------------------------------------------\n\n  !----------------------------------------------------------------------------------------------------------------\n  ! ---------------------\n  ! Contact: Cecile Hannay (hannay@ucar.edu)\n  ! \n  ! Original code: Based on Raisanen et al., QJRMS, 2004.\n  !\n  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default\n  !   random number generator, which can be changed to the optional kissvec random number generator\n  !   with flag 'irng'. Some extra functionality has been commented or removed.  \n  !   Michael J. Iacono, AER, Inc., February 2007\n  !\n  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.\n  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one \n  ! and uniform cloud liquid and cloud ice concentration.\n  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer \n  ! and obeys an overlap assumption in the vertical.   \n  ! \n  ! Overlap assumption:\n  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. \n  !  The default option is maximum-random (option 3)\n  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap\n  !  This is set with the variable \"overlap\" \n  !mji - Exponential overlap option (overlap=4) has been deactivated in this version\n  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) \n  ! \n  ! Seed:\n  !  If the stochastic cloud generator is called several times during the same timestep, \n  !  one should change the seed between the call to insure that the subcolumns are different.\n  !  This is done by changing the argument 'changeSeed'\n  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,\n  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call \n  !\n  ! PDF assumption:\n  !  We can use arbitrary complicated PDFS. \n  !  In the present version, we produce homogeneuous clouds (the simplest case).  \n  !  Future developments include using the PDF scheme of Ben Johnson. \n  !\n  ! History file:\n  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)\n  !  nsubcol = number of subcolumns\n  !  overlap = overlap type (1-3)\n  !  Zo = length scale \n  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S\" means Stochastic)\n  !  CLDLIQ_S = mean of the subcolumn cloud water\n  !  CLDICE_S = mean of the subcolumn cloud ice \n  !\n  ! Note:\n  !   Here: we force that the cloud condensate to be consistent with the cloud fraction \n  !   i.e we only have cloud condensate when the cell is cloudy. \n  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations \n  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction \n  !   without cloud condensate or the opposite).\n  !---------------------------------------------------------------------------------------------------------------\n\n      use mcica_random_numbers\n! The Mersenne Twister random number engine\n      use MersenneTwister, only: randomNumberSequence, &   \n                                 new_RandomNumberSequence, getRandomReal\n\n      type(randomNumberSequence) :: randomNumbers\n\n! -- Arguments\n\n      integer(kind=im), intent(in) :: ncol            ! number of layers\n      integer(kind=im), intent(in) :: nlay            ! number of layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag\n      integer(kind=im), intent(inout) :: irng         ! flag for random number generator\n                                                      !  0 = kissvec\n                                                      !  1 = Mersenne Twister\n      integer(kind=im), intent(in) :: nsubcol         ! number of sub-columns (g-point intervals)\n      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting seed\n\n! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state \n      real(kind=rb), intent(in) :: pmid(:,:)          ! layer pressure (Pa)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cld(:,:)           ! cloud fraction \n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ssac(:,:,:)        ! in-cloud single scattering albedo (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: asmc(:,:,:)        ! in-cloud asymmetry parameter (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: fsfc(:,:,:)        ! in-cloud forward scattering fraction (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n\n      real(kind=rb), intent(out) :: cld_stoch(:,:,:)  ! subcolumn cloud fraction \n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: clwp_stoch(:,:,:) ! subcolumn in-cloud liquid water path\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ciwp_stoch(:,:,:) ! subcolumn in-cloud ice water path\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: tauc_stoch(:,:,:) ! subcolumn in-cloud optical depth\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ssac_stoch(:,:,:) ! subcolumn in-cloud single scattering albedo\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: asmc_stoch(:,:,:) ! subcolumn in-cloud asymmetry parameter\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: fsfc_stoch(:,:,:) ! subcolumn in-cloud forward scattering fraction\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n\n! -- Local variables\n      real(kind=rb) :: cldf(ncol,nlay)                ! cloud fraction \n                                                      !    Dimensions: (ncol,nlay)\n\n! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive\n!      real(kind=rb) :: mean_cld_stoch(ncol,nlay)     ! cloud fraction \n!      real(kind=rb) :: mean_clwp_stoch(ncol,nlay)    ! cloud water\n!      real(kind=rb) :: mean_ciwp_stoch(ncol,nlay)    ! cloud ice\n!      real(kind=rb) :: mean_tauc_stoch(ncol,nlay)    ! cloud optical depth\n!      real(kind=rb) :: mean_ssac_stoch(ncol,nlay)    ! cloud single scattering albedo\n!      real(kind=rb) :: mean_asmc_stoch(ncol,nlay)    ! cloud asymmetry parameter\n!      real(kind=rb) :: mean_fsfc_stoch(ncol,nlay)    ! cloud forward scattering fraction\n\n! Set overlap\n      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum/random,\n                                                      ! 3 = maximum overlap, \n!      real(kind=rb), parameter  :: Zo = 2500._rb        ! length scale (m) \n!      real(kind=rb) :: zm(ncon,nlay)                    ! Height of midpoints (above surface)\n!      real(kind=rb), dimension(nlay) :: alpha=0.0_rb    ! overlap parameter  \n\n! Constants (min value for cloud fraction and cloud water and ice)\n      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction\n!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)\n\n! Variables related to random number and seed \n      real(kind=rb), dimension(nsubcol, ncol, nlay) :: CDF, CDF2       ! random numbers\n      integer(kind=im), dimension(ncol) :: seed1, seed2, seed3, seed4  ! seed to create random number\n      real(kind=rb), dimension(ncol) :: rand_num       ! random number (kissvec)\n      integer(kind=im) :: iseed                        ! seed to create random number (Mersenne Twister)\n      real(kind=rb) :: rand_num_mt                     ! random number (Mersenne Twister)\n\n! Flag to identify cloud fraction in subcolumns\n      logical,  dimension(nsubcol, ncol, nlay) :: isCloudy   ! flag that says whether a gridbox is cloudy\n\n! Indices\n      integer(kind=im) :: ilev, isubcol, i, n, ngbm    ! indices\n\n!------------------------------------------------------------------------------------------ \n\n! Check that irng is in bounds; if not, set to default\n      if (irng .ne. 0) irng = 1\n\n! Pass input cloud overlap setting to local variable\n      overlap = icld\n\n! Ensure that cloud fractions are in bounds \n      do ilev = 1, nlay\n         do i = 1, ncol\n            cldf(i,ilev) = cld(i,ilev)\n            if (cldf(i,ilev) < cldmin) then\n               cldf(i,ilev) = 0._rb\n            endif\n         enddo\n      enddo\n\n! ----- Create seed  --------\n   \n! Advance randum number generator by changeseed values\n      if (irng.eq.0) then   \n! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  \n! Must use pmid from bottom four layers. \n         do i=1,ncol\n            if (pmid(i,1).lt.pmid(i,2)) then\n               stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'\n            endif\n            seed1(i) = (pmid(i,1) - int(pmid(i,1)))  * 1000000000_im\n            seed2(i) = (pmid(i,2) - int(pmid(i,2)))  * 1000000000_im\n            seed3(i) = (pmid(i,3) - int(pmid(i,3)))  * 1000000000_im\n            seed4(i) = (pmid(i,4) - int(pmid(i,4)))  * 1000000000_im\n          enddo\n         do i=1,changeSeed\n            call kissvec(seed1, seed2, seed3, seed4, rand_num)\n         enddo\n      elseif (irng.eq.1) then\n         randomNumbers = new_RandomNumberSequence(seed = changeSeed)\n      endif \n\n\n! ------ Apply overlap assumption --------\n\n! generate the random numbers  \n\n      select case (overlap)\n\n      case(1) \n! Random overlap\n! i) pick a random value at every level\n  \n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               do ilev = 1,nlay\n                  call kissvec(seed1, seed2, seed3, seed4, rand_num)\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  do ilev = 1, nlay\n                     rand_num_mt = getRandomReal(randomNumbers)\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n      case(2) \n! Maximum-Random overlap\n! i) pick  a random number for top layer.\n! ii) walk down the column: \n!    - if the layer above is cloudy, we use the same random number than in the layer above\n!    - if the layer above is clear, we use a new random number \n\n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               do ilev = 1,nlay\n                  call kissvec(seed1, seed2, seed3, seed4, rand_num)\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  do ilev = 1, nlay\n                     rand_num_mt = getRandomReal(randomNumbers)\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n         do ilev = 2,nlay\n            do i = 1, ncol\n               do isubcol = 1, nsubcol\n                  if (CDF(isubcol, i, ilev-1) > 1._rb - cldf(i,ilev-1) ) then\n                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev-1) \n                  else\n                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev) * (1._rb - cldf(i,ilev-1)) \n                  endif\n               enddo\n            enddo\n         enddo\n\n      case(3) \n! Maximum overlap\n! i) pick same random numebr at every level  \n\n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               call kissvec(seed1, seed2, seed3, seed4, rand_num)\n               do ilev = 1,nlay\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  rand_num_mt = getRandomReal(randomNumbers)\n                  do ilev = 1, nlay\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n!    case(4)  - inactive\n!       ! Exponential overlap: weighting between maximum and random overlap increases with the distance. \n!       ! The random numbers for exponential overlap verify:\n!       ! j=1   RAN(j)=RND1\n!       ! j>1   if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1)\n!       !                                 RAN(j) = RND2\n!       ! alpha is obtained from the equation\n!       ! alpha = exp(- (Zi-Zj-1)/Zo) where Zo is a characteristic length scale    \n\n\n!       ! compute alpha\n!       zm    = state%zm     \n!       alpha(:, 1) = 0._rb\n!       do ilev = 2,nlay\n!          alpha(:, ilev) = exp( -( zm (:, ilev-1) -  zm (:, ilev)) / Zo)\n!       end do\n       \n!       ! generate 2 streams of random numbers\n!       do isubcol = 1,nsubcol\n!          do ilev = 1,nlay\n!             call kissvec(seed1, seed2, seed3, seed4, rand_num)\n!             CDF(isubcol, :, ilev) = rand_num\n!             call kissvec(seed1, seed2, seed3, seed4, rand_num)\n!             CDF2(isubcol, :, ilev) = rand_num\n!          end do\n!       end do\n\n!       ! generate random numbers\n!       do ilev = 2,nlay\n!          where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )\n!             CDF(:,:,ilev) = CDF(:,:,ilev-1) \n!          end where\n!       end do\n\n      end select\n\n \n! -- generate subcolumns for homogeneous clouds -----\n      do ilev = 1, nlay\n         isCloudy(:,:,ilev) = (CDF(:,:,ilev) >= 1._rb - spread(cldf(:,ilev), dim=1, nCopies=nsubcol) )\n      enddo\n\n! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;\n! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;\n! where there is a cloud, define the subcolumn cloud properties,\n! otherwise set these to zero\n\n      ngbm = ngb(1) - 1\n      do ilev = 1,nlay\n         do i = 1, ncol\n            do isubcol = 1, nsubcol\n               if ( iscloudy(isubcol,i,ilev) ) then\n                  cld_stoch(isubcol,i,ilev) = 1._rb\n                  clwp_stoch(isubcol,i,ilev) = clwp(i,ilev)\n                  ciwp_stoch(isubcol,i,ilev) = ciwp(i,ilev)\n                  n = ngb(isubcol) - ngbm\n                  tauc_stoch(isubcol,i,ilev) = tauc(n,i,ilev)\n                  ssac_stoch(isubcol,i,ilev) = ssac(n,i,ilev)\n                  asmc_stoch(isubcol,i,ilev) = asmc(n,i,ilev)\n                  fsfc_stoch(isubcol,i,ilev) = fsfc(n,i,ilev)\n               else\n                  cld_stoch(isubcol,i,ilev) = 0._rb\n                  clwp_stoch(isubcol,i,ilev) = 0._rb\n                  ciwp_stoch(isubcol,i,ilev) = 0._rb\n                  tauc_stoch(isubcol,i,ilev) = 0._rb\n                  ssac_stoch(isubcol,i,ilev) = 1._rb\n                  asmc_stoch(isubcol,i,ilev) = 0._rb\n                  fsfc_stoch(isubcol,i,ilev) = 0._rb\n               endif\n            enddo\n         enddo\n      enddo\n\n! -- compute the means of the subcolumns ---\n!      mean_cld_stoch(:,:) = 0._rb\n!      mean_clwp_stoch(:,:) = 0._rb\n!      mean_ciwp_stoch(:,:) = 0._rb\n!      mean_tauc_stoch(:,:) = 0._rb\n!      mean_ssac_stoch(:,:) = 0._rb\n!      mean_asmc_stoch(:,:) = 0._rb\n!      mean_fsfc_stoch(:,:) = 0._rb\n!      do i = 1, nsubcol\n!         mean_cld_stoch(:,:) =  cld_stoch(i,:,:) + mean_cld_stoch(:,:) \n!         mean_clwp_stoch(:,:) =  clwp_stoch( i,:,:) + mean_clwp_stoch(:,:) \n!         mean_ciwp_stoch(:,:) =  ciwp_stoch( i,:,:) + mean_ciwp_stoch(:,:) \n!         mean_tauc_stoch(:,:) =  tauc_stoch( i,:,:) + mean_tauc_stoch(:,:) \n!         mean_ssac_stoch(:,:) =  ssac_stoch( i,:,:) + mean_ssac_stoch(:,:) \n!         mean_asmc_stoch(:,:) =  asmc_stoch( i,:,:) + mean_asmc_stoch(:,:) \n!         mean_fsfc_stoch(:,:) =  fsfc_stoch( i,:,:) + mean_fsfc_stoch(:,:) \n!      end do\n!      mean_cld_stoch(:,:) = mean_cld_stoch(:,:) / nsubcol\n!      mean_clwp_stoch(:,:) = mean_clwp_stoch(:,:) / nsubcol\n!      mean_ciwp_stoch(:,:) = mean_ciwp_stoch(:,:) / nsubcol\n!      mean_tauc_stoch(:,:) = mean_tauc_stoch(:,:) / nsubcol\n!      mean_ssac_stoch(:,:) = mean_ssac_stoch(:,:) / nsubcol\n!      mean_asmc_stoch(:,:) = mean_asmc_stoch(:,:) / nsubcol\n!      mean_fsfc_stoch(:,:) = mean_fsfc_stoch(:,:) / nsubcol\n\n      end subroutine generate_stochastic_clouds_sw\n\n\n!-------------------------------------------------------------------------------------------------- \n      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)\n!-------------------------------------------------------------------------------------------------- \n\n! public domain code\n! made available from http://www.fortran.com/\n! downloaded by pjr on 03/16/04 for NCAR CAM\n! converted to vector form, functions inlined by pjr,mvr on 05/10/2004\n\n! The  KISS (Keep It Simple Stupid) random number generator. Combines:\n! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.\n! (2) A 3-shift shift-register generator, period 2^32-1,\n! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59\n!  Overall period>2^123; \n!\n      real(kind=rb), dimension(:), intent(inout)  :: ran_arr\n      integer(kind=im), dimension(:), intent(inout) :: seed1,seed2,seed3,seed4\n      integer(kind=im) :: i,sz,kiss\n      integer(kind=im) :: m, k, n\n\n! inline function \n      m(k, n) = ieor (k, ishft (k, n) )\n\n      sz = size(ran_arr)\n      do i = 1, sz\n         seed1(i) = 69069_im * seed1(i) + 1327217885_im\n         seed2(i) = m (m (m (seed2(i), 13_im), - 17_im), 5_im)\n         seed3(i) = 18000_im * iand (seed3(i), 65535_im) + ishft (seed3(i), - 16_im)\n         seed4(i) = 30903_im * iand (seed4(i), 65535_im) + ishft (seed4(i), - 16_im)\n         kiss = seed1(i) + seed2(i) + ishft (seed3(i), 16_im) + seed4(i)\n         ran_arr(i) = kiss*2.328306e-10_rb + 0.5_rb\n      end do\n    \n      end subroutine kissvec\n\n      end module mcica_subcol_gen_sw\n\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_init.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/05/22 22:22:22 $\n\n      module rrtmg_sw_init\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrsw_wvn\n      use rrtmg_sw_setcoef, only: swatmref\n\n      implicit none\n\n      contains\n\n! **************************************************************************\n      subroutine rrtmg_sw_ini(cpdair)\n! **************************************************************************\n!\n!  Original version:   Michael J. Iacono; February, 2004\n!  Revision for F90 formatting:  M. J. Iacono, July, 2006\n!\n!  This subroutine performs calculations necessary for the initialization\n!  of the shortwave model.  Lookup tables are computed for use in the SW\n!  radiative transfer, and input absorption coefficient data for each\n!  spectral band are reduced from 224 g-point intervals to 112.\n! **************************************************************************\n\n      use parrrsw, only : mg, nbndsw, ngptsw\n      use rrsw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl\n      use rrsw_vsn, only: hvrini, hnamini\n\n      real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air\n                                              ! at constant pressure at 273 K\n                                              ! (J kg-1 K-1)\n\n! ------- Local -------\n\n      integer(kind=im) :: ibnd, igc, ig, ind, ipr\n      integer(kind=im) :: igcsm, iprsm\n      integer(kind=im) :: itr\n\n      real(kind=rb) :: wtsum, wtsm(mg)\n      real(kind=rb) :: tfn\n\n      real(kind=rb), parameter :: expeps = 1.e-20_rb   ! Smallest value for exponential table\n\n! ------- Definitions -------\n!     Arrays for 10000-point look-up tables:\n!     TAU_TBL  Clear-sky optical depth \n!     EXP_TBL  Exponential lookup table for transmittance\n!     PADE     Pade approximation constant (= 0.278)\n!     BPADE    Inverse of the Pade approximation constant\n!\n\n      hvrini = '$Revision: 1.5 $'\n\n! Initialize model data\n      call swdatinit(cpdair)\n      call swcmbdat              ! g-point interval reduction data\n      call swaerpr               ! aerosol optical properties\n      call swcldpr               ! cloud optical properties\n      call swatmref              ! reference MLS profile\n      call sw_kgb16              ! molecular absorption coefficients\n      call sw_kgb17\n      call sw_kgb18\n      call sw_kgb19\n      call sw_kgb20\n      call sw_kgb21\n      call sw_kgb22\n      call sw_kgb23\n      call sw_kgb24\n      call sw_kgb25\n      call sw_kgb26\n      call sw_kgb27\n      call sw_kgb28\n      call sw_kgb29\n\n! Define exponential lookup tables for transmittance. Tau is\n! computed as a function of the tau transition function, and transmittance \n! is calculated as a function of tau.  All tables are computed at intervals \n! of 0.0001.  The inverse of the constant used in the Pade approximation to \n! the tau transition function is set to bpade.\n\n      exp_tbl(0) = 1.0_rb\n      exp_tbl(ntbl) = expeps\n      bpade = 1.0_rb / pade\n      do itr = 1, ntbl-1\n         tfn = float(itr) / float(ntbl)\n         tau_tbl = bpade * tfn / (1._rb - tfn)\n         exp_tbl(itr) = exp(-tau_tbl)\n         if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps\n      enddo\n\n! Perform g-point reduction from 16 per band (224 total points) to\n! a band dependent number (112 total points) for all absorption\n! coefficient input data and Planck fraction input data.\n! Compute relative weighting for new g-point combinations.\n\n      igcsm = 0\n      do ibnd = 1,nbndsw\n         iprsm = 0\n         if (ngc(ibnd).lt.mg) then\n            do igc = 1,ngc(ibnd)\n               igcsm = igcsm + 1\n               wtsum = 0.\n               do ipr = 1, ngn(igcsm)\n                  iprsm = iprsm + 1\n                  wtsum = wtsum + wt(iprsm)\n               enddo\n               wtsm(igc) = wtsum\n            enddo\n            do ig = 1, ng(ibnd+15)\n               ind = (ibnd-1)*mg + ig\n               rwgt(ind) = wt(ig)/wtsm(ngm(ind))\n            enddo\n         else\n            do ig = 1, ng(ibnd+15)\n               igcsm = igcsm + 1\n               ind = (ibnd-1)*mg + ig\n               rwgt(ind) = 1.0_rb\n            enddo\n         endif\n      enddo\n\n! Reduce g-points for absorption coefficient data in each LW spectral band.\n\n      call cmbgb16s\n      call cmbgb17\n      call cmbgb18\n      call cmbgb19\n      call cmbgb20\n      call cmbgb21\n      call cmbgb22\n      call cmbgb23\n      call cmbgb24\n      call cmbgb25\n      call cmbgb26\n      call cmbgb27\n      call cmbgb28\n      call cmbgb29\n\n      end subroutine rrtmg_sw_ini\n\n!***************************************************************************\n      subroutine swdatinit(cpdair)\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use rrsw_con, only: heatfac, grav, planck, boltz, &\n                          clight, avogad, alosmt, gascon, radcn1, radcn2, &\n                          sbcnst, secdy \n      use rrsw_vsn\n\n      save \n \n      real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air\n                                              ! at constant pressure at 273 K\n                                              ! (J kg-1 K-1)\n\n! Shortwave spectral band limits (wavenumbers)\n      wavenum1(:) = (/2600._rb, 3250._rb, 4000._rb, 4650._rb, 5150._rb, 6150._rb, 7700._rb, &\n                      8050._rb,12850._rb,16000._rb,22650._rb,29000._rb,38000._rb,  820._rb/)\n      wavenum2(:) = (/3250._rb, 4000._rb, 4650._rb, 5150._rb, 6150._rb, 7700._rb, 8050._rb, &\n                     12850._rb,16000._rb,22650._rb,29000._rb,38000._rb,50000._rb, 2600._rb/)\n      delwave(:) =  (/ 650._rb,  750._rb,  650._rb,  500._rb, 1000._rb, 1550._rb,  350._rb, &\n                      4800._rb, 3150._rb, 6650._rb, 6350._rb, 9000._rb,12000._rb, 1780._rb/)\n\n! Spectral band information\n      ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16/)\n      nspa(:) = (/9,9,9,9,1,9,9,1,9,1,0,1,9,1/)\n      nspb(:) = (/1,5,1,1,1,5,1,0,1,0,0,1,5,1/)\n\n! Fundamental physical constants from NIST 2002\n\n      grav = 9.8066_rb                        ! Acceleration of gravity\n                                              ! (m s-2)\n      planck = 6.62606876e-27_rb              ! Planck constant\n                                              ! (ergs s; g cm2 s-1)\n      boltz = 1.3806503e-16_rb                ! Boltzmann constant\n                                              ! (ergs K-1; g cm2 s-2 K-1)\n      clight = 2.99792458e+10_rb              ! Speed of light in a vacuum  \n                                              ! (cm s-1)\n      avogad = 6.02214199e+23_rb              ! Avogadro constant\n                                              ! (mol-1)\n      alosmt = 2.6867775e+19_rb               ! Loschmidt constant\n                                              ! (cm-3)\n      gascon = 8.31447200e+07_rb              ! Molar gas constant\n                                              ! (ergs mol-1 K-1)\n      radcn1 = 1.191042772e-12_rb             ! First radiation constant\n                                              ! (W cm2 sr-1)\n      radcn2 = 1.4387752_rb                   ! Second radiation constant\n                                              ! (cm K)\n      sbcnst = 5.670400e-04_rb                ! Stefan-Boltzmann constant\n                                              ! (W cm-2 K-4)\n      secdy = 8.6400e4_rb                     ! Number of seconds per day\n                                              ! (s d-1)\n!\n!     units are generally cgs\n!\n!     The first and second radiation constants are taken from NIST.\n!     They were previously obtained from the relations:\n!          radcn1 = 2.*planck*clight*clight*1.e-07\n!          radcn2 = planck*clight/boltz\n\n!     Heatfac is the factor by which delta-flux / delta-pressure is\n!     multiplied, with flux in W/m-2 and pressure in mbar, to get \n!     the heating rate in units of degrees/day.  It is equal to:\n!     Original value:\n!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)\n!           Here, cpdair (1.004) is in units of J g-1 K-1, and the \n!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.\n!        =  (9.8066)(86400)(1e-5)/(1.004)\n!      heatfac = 8.4391_rb\n!\n!     Modified value for consistency with CAM3:\n!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)\n!           Here, cpdair (1.00464) is in units of J g-1 K-1, and the\n!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.\n!        =  (9.80616)(86400)(1e-5)/(1.00464)\n!      heatfac = 8.43339130434_rb\n!\n!     Calculated value (from constants above and input cpdair)\n!        (grav) x (#sec/day) / (specific heat of dry air at const. p x 1.e2)\n!           Here, cpdair is in units of J kg-1 K-1, and the constant (1.e2) \n!           converts mb to Pa when heatfac is multiplied by W m-2 mb-1. \n      heatfac = grav * secdy / (cpdair * 1.e2_rb)\n\n      end subroutine swdatinit\n\n!***************************************************************************\n      subroutine swcmbdat\n!***************************************************************************\n\n      save\n \n! ------- Definitions -------\n!     Arrays for the g-point reduction from 224 to 112 for the 16 LW bands:\n!     This mapping from 224 to 112 points has been carefully selected to \n!     minimize the effect on the resulting fluxes and cooling rates, and\n!     caution should be used if the mapping is modified.  The full 224\n!     g-point set can be restored with ngpt=224, ngc=16*16, ngn=224*1., etc.\n!     ngpt    The total number of new g-points\n!     ngc     The number of new g-points in each band\n!     ngs     The cumulative sum of new g-points for each band\n!     ngm     The index of each new g-point relative to the original\n!             16 g-points for each band.  \n!     ngn     The number of original g-points that are combined to make\n!             each new g-point in each band.\n!     ngb     The band index for each new g-point.\n!     wt      RRTM weights for 16 g-points.\n\n! Use this set for 112 quadrature point (g-point) model\n! ------- Data statements -------\n      ngc(:) = (/ 6,12, 8, 8,10,10, 2,10, 8, 6, 6, 8, 6,12 /)\n      ngs(:) = (/ 6,18,26,34,44,54,56,66,74,80,86,94,100,112 /)\n      ngm(:) = (/ 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! band 16\n                  1,2,3,4,5,6,6,7,8,8,9,10,10,11,12,12, &      ! band 17\n                  1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 18\n                  1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 19\n                  1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! band 20\n                  1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! band 21\n                  1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 22\n                  1,1,2,2,3,4,5,6,7,8,9,9,10,10,10,10, &       ! band 23\n                  1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 24\n                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 25\n                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 26\n                  1,2,3,4,5,6,7,7,7,7,8,8,8,8,8,8, &           ! band 27\n                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 28\n                  1,2,3,4,5,5,6,6,7,7,8,8,9,10,11,12 /)        ! band 29\n      ngn(:) = (/ 2,2,2,2,4,4, &                               ! band 16\n                  1,1,1,1,1,2,1,2,1,2,1,2, &                   ! band 17\n                  1,1,1,1,2,2,4,4, &                           ! band 18\n                  1,1,1,1,2,2,4,4, &                           ! band 19\n                  1,1,1,1,1,1,1,1,2,6, &                       ! band 20\n                  1,1,1,1,1,1,1,1,2,6, &                       ! band 21\n                  8,8, &                                       ! band 22\n                  2,2,1,1,1,1,1,1,2,4, &                       ! band 23\n                  2,2,2,2,2,2,2,2, &                           ! band 24\n                  1,1,2,2,4,6, &                               ! band 25\n                  1,1,2,2,4,6, &                               ! band 26\n                  1,1,1,1,1,1,4,6, &                           ! band 27\n                  1,1,2,2,4,6, &                               ! band 28\n                  1,1,1,1,2,2,2,2,1,1,1,1 /)                   ! band 29\n      ngb(:) = (/ 16,16,16,16,16,16, &                         ! band 16\n                  17,17,17,17,17,17,17,17,17,17,17,17, &       ! band 17\n                  18,18,18,18,18,18,18,18, &                   ! band 18\n                  19,19,19,19,19,19,19,19, &                   ! band 19\n                  20,20,20,20,20,20,20,20,20,20, &             ! band 20\n                  21,21,21,21,21,21,21,21,21,21, &             ! band 21\n                  22,22, &                                     ! band 22\n                  23,23,23,23,23,23,23,23,23,23, &             ! band 23\n                  24,24,24,24,24,24,24,24, &                   ! band 24\n                  25,25,25,25,25,25, &                         ! band 25\n                  26,26,26,26,26,26, &                         ! band 26\n                  27,27,27,27,27,27,27,27, &                   ! band 27\n                  28,28,28,28,28,28, &                         ! band 28\n                  29,29,29,29,29,29,29,29,29,29,29,29 /)       ! band 29\n\n! Use this set for full 224 quadrature point (g-point) model\n! ------- Data statements -------\n!      ngc(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)\n!      ngs(:) = (/ 16,32,48,64,80,96,112,128,144,160,176,192,208,224 /)\n!      ngm(:) = (/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 16\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 17\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 18\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 19\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 20\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 21\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 22\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 23\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 24\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 25\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 26\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 27\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 28\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /)    ! band 29\n!      ngn(:) = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 16\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 17\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 18\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 19\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 20\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 21\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 22\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 23\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 24\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 25\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 26\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 27\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 28\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 /)           ! band 29\n!      ngb(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, &   ! band 16\n!                  17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, &   ! band 17\n!                  18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, &   ! band 18\n!                  19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, &   ! band 19\n!                  20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, &   ! band 20\n!                  21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, &   ! band 21\n!                  22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, &   ! band 22\n!                  23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, &   ! band 23\n!                  24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, &   ! band 24\n!                  25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, &   ! band 25\n!                  26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, &   ! band 26\n!                  27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, &   ! band 27\n!                  28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, &   ! band 28\n!                  29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29 /)   ! band 29\n\n\n      wt(:) =  (/ 0.1527534276_rb, 0.1491729617_rb, 0.1420961469_rb, &\n                  0.1316886544_rb, 0.1181945205_rb, 0.1019300893_rb, &\n                  0.0832767040_rb, 0.0626720116_rb, 0.0424925000_rb, &\n                  0.0046269894_rb, 0.0038279891_rb, 0.0030260086_rb, &\n                  0.0022199750_rb, 0.0014140010_rb, 0.0005330000_rb, &\n                  0.0000750000_rb /)\n\n      end subroutine swcmbdat\n\n!***************************************************************************\n      subroutine swaerpr\n!***************************************************************************\n\n! Purpose: Define spectral aerosol properties for six ECMWF aerosol types\n! as used in the ECMWF IFS model (see module rrsw_aer.F90 for details)\n!\n! Original: Defined for rrtmg_sw 14 spectral bands, JJMorcrette, ECMWF Feb 2003\n! Revision: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006\n\n      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya\n\n      save\n\n      rsrtaua( 1, :) = (/ &\n        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)\n      rsrtaua( 2, :) = (/ &\n        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)\n      rsrtaua( 3, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 4, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 5, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 6, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 7, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 8, :) = (/ &\n        0.52838_rb, 0.93285_rb, 0.93449_rb, 0.53078_rb, 0.67148_rb, 0.46608_rb/)\n      rsrtaua( 9, :) = (/ &\n        0.52838_rb, 0.93285_rb, 0.93449_rb, 0.53078_rb, 0.67148_rb, 0.46608_rb/)\n      rsrtaua(10, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(11, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(12, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(13, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(14, :) = (/ &\n        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)\n \n      rsrpiza( 1, :) = (/ &\n        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)\n      rsrpiza( 2, :) = (/ &\n        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)\n      rsrpiza( 3, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 4, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 5, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 6, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 7, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 8, :) = (/ &\n        .8970131_rb, .9984940_rb, .9245594_rb, .7768385_rb, .9532763_rb, .9999999_rb/)\n      rsrpiza( 9, :) = (/ &\n        .8970131_rb, .9984940_rb, .9245594_rb, .7768385_rb, .9532763_rb, .9999999_rb/)\n      rsrpiza(10, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(11, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(12, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(13, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(14, :) = (/ &\n        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)\n\n      rsrasya( 1, :) = (/ &\n        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)\n      rsrasya( 2, :) = (/ &\n        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)\n      rsrasya( 3, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 4, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 5, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 6, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 7, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 8, :) = (/ &\n        0.668431_rb, 0.788530_rb, 0.698682_rb, 0.657422_rb, .6735182_rb, .6519706_rb/)\n      rsrasya( 9, :) = (/ &\n        0.668431_rb, 0.788530_rb, 0.698682_rb, 0.657422_rb, .6735182_rb, .6519706_rb/)\n      rsrasya(10, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(11, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(12, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(13, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(14, :) = (/ &\n        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)\n\n      end subroutine swaerpr\n \n!***************************************************************************\n      subroutine cmbgb16s\n!***************************************************************************\n!\n!  Original version:       MJIacono; July 1998\n!  Revision for RRTM_SW:   MJIacono; November 2002\n!  Revision for RRTMG_SW:  MJIacono; December 2003\n!  Revision for F90 reformatting:  MJIacono; July 2006\n!\n!  The subroutines CMBGB16->CMBGB29 input the absorption coefficient\n!  data for each band, which are defined for 16 g-points and 14 spectral\n!  bands. The data are combined with appropriate weighting following the\n!  g-point mapping arrays specified in RRTMG_SW_INIT.  Solar source \n!  function data in array SFLUXREF are combined without weighting.  All\n!  g-point reduced data are put into new arrays for use in RRTMG_SW.\n!\n!  band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)\n!\n!-----------------------------------------------------------------------\n\n      use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(1)\n                  sumk = 0.\n                  do ipr = 1, ngn(igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(1)\n               sumk = 0.\n               do ipr = 1, ngn(igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(1)\n         sumf = 0.\n         do ipr = 1, ngn(igc)\n            iprsm = iprsm + 1\n            sumf = sumf + sfluxrefo(iprsm)\n         enddo\n         sfluxref(igc) = sumf\n      enddo\n\n      end subroutine cmbgb16s\n\n!***************************************************************************\n      subroutine cmbgb17\n!***************************************************************************\n!\n!     band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(2)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(1)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+16)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(2)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(1)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+16)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb17\n\n!***************************************************************************\n      subroutine cmbgb18\n!***************************************************************************\n!\n!     band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(3)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(2)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(3)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(2)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+32)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb18\n\n!***************************************************************************\n      subroutine cmbgb19\n!***************************************************************************\n!\n!     band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(4)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(3)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(4)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(3)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+48)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb19\n\n!***************************************************************************\n      subroutine cmbgb20\n!***************************************************************************\n!\n!     band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, absch4o, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref, absch4\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(5)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(4)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+64)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(5)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(4)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+64)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(5)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(4)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + absch4o(iprsm)*rwgt(iprsm+64)\n         enddo\n         sfluxref(igc) = sumf1\n         absch4(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb20\n\n!***************************************************************************\n      subroutine cmbgb21\n!***************************************************************************\n!\n!     band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(6)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(5)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+80)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(6)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(5)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+80)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb21\n\n!***************************************************************************\n      subroutine cmbgb22\n!***************************************************************************\n!\n!     band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(7)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(6)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(7)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(6)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb22\n\n!***************************************************************************\n      subroutine cmbgb23\n!***************************************************************************\n!\n!     band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo, &\n                            absa, ka, selfref, forref, sfluxref, rayl\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(8)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(7)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(8)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(7)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+112)\n         enddo\n         sfluxref(igc) = sumf1\n         rayl(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb23\n\n!***************************************************************************\n      subroutine cmbgb24\n!***************************************************************************\n!\n!     band 24:  12850-16000 cm-1 (low - h2o,o2; high - o2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            abso3ao, abso3bo, raylao, raylbo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref, &\n                            abso3a, abso3b, rayla, raylb\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2, sumf3\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(9)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(8)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(9)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(8)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(9)\n         sumf1 = 0.\n         sumf2 = 0.\n         sumf3 = 0.\n         do ipr = 1, ngn(ngs(8)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + raylbo(iprsm)*rwgt(iprsm+128)\n            sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+128)\n            sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+128)\n         enddo\n         raylb(igc) = sumf1\n         abso3a(igc) = sumf2\n         abso3b(igc) = sumf3\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumf1 = 0.\n            sumf2 = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumf1 = sumf1 + sfluxrefo(iprsm,jp)\n               sumf2 = sumf2 + raylao(iprsm,jp)*rwgt(iprsm+128)\n            enddo\n            sfluxref(igc,jp) = sumf1\n            rayla(igc,jp) = sumf2\n         enddo\n      enddo\n\n      end subroutine cmbgb24\n\n!***************************************************************************\n      subroutine cmbgb25\n!***************************************************************************\n!\n!     band 25:  16000-22650 cm-1 (low - h2o; high - nothing)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg25, only : kao, sfluxrefo, &\n                            abso3ao, abso3bo, raylo, &\n                            absa, ka, sfluxref, &\n                            abso3a, abso3b, rayl\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2, sumf3, sumf4\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(10)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(9)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(10)\n         sumf1 = 0.\n         sumf2 = 0.\n         sumf3 = 0.\n         sumf4 = 0.\n         do ipr = 1, ngn(ngs(9)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+144)\n            sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+144)\n            sumf4 = sumf4 + raylo(iprsm)*rwgt(iprsm+144)\n         enddo\n         sfluxref(igc) = sumf1\n         abso3a(igc) = sumf2\n         abso3b(igc) = sumf3\n         rayl(igc) = sumf4\n      enddo\n\n      end subroutine cmbgb25\n\n!***************************************************************************\n      subroutine cmbgb26\n!***************************************************************************\n!\n!     band 26:  22650-29000 cm-1 (low - nothing; high - nothing)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg26, only : sfluxrefo, raylo, &\n                            sfluxref, rayl\n\n! ------- Local -------\n      integer(kind=im) :: igc, ipr, iprsm\n      real(kind=rb) :: sumf1, sumf2\n\n\n      iprsm = 0\n      do igc = 1,ngc(11)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(10)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + raylo(iprsm)*rwgt(iprsm+160)\n            sumf2 = sumf2 + sfluxrefo(iprsm)\n         enddo\n         rayl(igc) = sumf1\n         sfluxref(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb26\n\n!***************************************************************************\n      subroutine cmbgb27\n!***************************************************************************\n!\n!     band 27:  29000-38000 cm-1 (low - o3; high - o3)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, &\n                            absa, ka, absb, kb, sfluxref, rayl\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(12)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(11)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+176)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(12)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(11)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+176)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(12)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(11)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+176)\n         enddo\n         sfluxref(igc) = sumf1\n         rayl(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb27\n\n!***************************************************************************\n      subroutine cmbgb28\n!***************************************************************************\n!\n!     band 28:  38000-50000 cm-1 (low - o3,o2; high - o3,o2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg28, only : kao, kbo, sfluxrefo, &\n                            absa, ka, absb, kb, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(13)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(12)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(13)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(12)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+192)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(13)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(12)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb28\n\n!***************************************************************************\n      subroutine cmbgb29\n!***************************************************************************\n!\n!     band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absh2oo, absco2o, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref, &\n                            absh2o, absco2\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2, sumf3\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(14)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(13)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(14)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(13)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(14)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(13)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(14)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(13)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(14)\n         sumf1 = 0.\n         sumf2 = 0.\n         sumf3 = 0.\n         do ipr = 1, ngn(ngs(13)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + absco2o(iprsm)*rwgt(iprsm+208)\n            sumf3 = sumf3 + absh2oo(iprsm)*rwgt(iprsm+208)\n         enddo\n         sfluxref(igc) = sumf1\n         absco2(igc) = sumf2\n         absh2o(igc) = sumf3\n      enddo\n\n      end subroutine cmbgb29\n\n!***********************************************************************\n      subroutine swcldpr\n!***********************************************************************\n\n! Purpose: Define cloud extinction coefficient, single scattering albedo\n!          and asymmetry parameter data.\n!\n\n! ------- Modules -------\n\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n\n      save\n\n!-----------------------------------------------------------------------\n!\n! Explanation of the method for each value of INFLAG.  A value of\n!  0 for INFLAG do not distingish being liquid and ice clouds.\n!  INFLAG = 2 does distinguish between liquid and ice clouds, and\n!    requires further user input to specify the method to be used to \n!    compute the aborption due to each.\n!  INFLAG = 0:  For each cloudy layer, the cloud fraction, the cloud optical\n!    depth, the cloud single-scattering albedo, and the\n!    moments of the phase function (0:NSTREAM).  Note\n!    that these values are delta-m scaled within this\n!    subroutine.\n\n!  INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud \n!    water path (g/m2), and cloud ice fraction are input.\n!  ICEFLAG = 2:  The ice effective radius (microns) is input and the\n!    optical properties due to ice clouds are computed from\n!    the optical properties stored in the RT code, STREAMER v3.0 \n!    (Reference: Key. J., Streamer User's Guide, Cooperative \n!    Institute for Meteorological Satellite Studies, 2001, 96 pp.).\n!    Valid range of values for re are between 5.0 and\n!    131.0 micron.\n!    This version uses Ebert and Curry, JGR, (1992) method for \n!    ice particles larger than 131.0 microns. \n!  ICEFLAG = 3:  The ice generalized effective size (dge) is input\n!    and the optical depths, single-scattering albedo,\n!    and phase function moments are calculated as in\n!    Q. Fu, J. Climate, (1996). Q. Fu provided high resolution\n!    tables which were appropriately averaged for the\n!    bands in RRTM_SW.  Linear interpolation is used to\n!    get the coefficients from the stored tables.\n!    Valid range of values for dge are between 5.0 and\n!    140.0 micron. \n!    This version uses Ebert and Curry, JGR, (1992) method for \n!    ice particles larger than 140.0 microns. \n!  LIQFLAG = 1:  The water droplet effective radius (microns) is input \n!    and the optical depths due to water clouds are computed \n!    as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).\n!    The values for absorption coefficients appropriate for\n!    the spectral bands in RRTM have been obtained for a \n!    range of effective radii by an averaging procedure \n!    based on the work of J. Pinto (private communication).\n!    Linear interpolation is used to get the absorption \n!    coefficients for the input effective radius.\n!\n!     ------------------------------------------------------------------\n\n! Everything below is for INFLAG = 2.\n\n! Coefficients for Ebert and Curry method\n      abari(:) = (/ &\n        & 3.448e-03_rb,3.448e-03_rb,3.448e-03_rb,3.448e-03_rb,3.448e-03_rb /)\n      bbari(:) = (/ &\n        & 2.431e+00_rb,2.431e+00_rb,2.431e+00_rb,2.431e+00_rb,2.431e+00_rb /)\n      cbari(:) = (/ &\n        & 1.000e-05_rb,1.100e-04_rb,1.240e-02_rb,3.779e-02_rb,4.666e-01_rb /)\n      dbari(:) = (/ &\n        & 0.000e+00_rb,1.405e-05_rb,6.867e-04_rb,1.284e-03_rb,2.050e-05_rb /)\n      ebari(:) = (/ &\n        & 7.661e-01_rb,7.730e-01_rb,7.865e-01_rb,8.172e-01_rb,9.595e-01_rb /)\n      fbari(:) = (/ &\n        & 5.851e-04_rb,5.665e-04_rb,7.204e-04_rb,7.463e-04_rb,1.076e-04_rb /)\n\n! Extinction coefficient\n      extliq1(:, 16) = (/ &\n        & 8.981463e-01_rb,6.317895e-01_rb,4.557508e-01_rb,3.481624e-01_rb,2.797950e-01_rb,&\n        & 2.342753e-01_rb,2.026934e-01_rb,1.800102e-01_rb,1.632408e-01_rb,1.505384e-01_rb,&\n        & 1.354524e-01_rb,1.246520e-01_rb,1.154342e-01_rb,1.074756e-01_rb,1.005353e-01_rb,&\n        & 9.442987e-02_rb,8.901760e-02_rb,8.418693e-02_rb,7.984904e-02_rb,7.593229e-02_rb,&\n        & 7.237827e-02_rb,6.913887e-02_rb,6.617415e-02_rb,6.345061e-02_rb,6.094001e-02_rb,&\n        & 5.861834e-02_rb,5.646506e-02_rb,5.446250e-02_rb,5.249596e-02_rb,5.081114e-02_rb,&\n        & 4.922243e-02_rb,4.772189e-02_rb,4.630243e-02_rb,4.495766e-02_rb,4.368189e-02_rb,&\n        & 4.246995e-02_rb,4.131720e-02_rb,4.021941e-02_rb,3.917276e-02_rb,3.817376e-02_rb,&\n        & 3.721926e-02_rb,3.630635e-02_rb,3.543237e-02_rb,3.459491e-02_rb,3.379171e-02_rb,&\n        & 3.302073e-02_rb,3.228007e-02_rb,3.156798e-02_rb,3.088284e-02_rb,3.022315e-02_rb,&\n        & 2.958753e-02_rb,2.897468e-02_rb,2.838340e-02_rb,2.781258e-02_rb,2.726117e-02_rb,&\n        & 2.672821e-02_rb,2.621278e-02_rb,2.5714e-02_rb /)\n      extliq1(:, 17) = (/ &\n        & 8.293797e-01_rb,6.048371e-01_rb,4.465706e-01_rb,3.460387e-01_rb,2.800064e-01_rb,&\n        & 2.346584e-01_rb,2.022399e-01_rb,1.782626e-01_rb,1.600153e-01_rb,1.457903e-01_rb,&\n        & 1.334061e-01_rb,1.228548e-01_rb,1.138396e-01_rb,1.060486e-01_rb,9.924856e-02_rb,&\n        & 9.326208e-02_rb,8.795158e-02_rb,8.320883e-02_rb,7.894750e-02_rb,7.509792e-02_rb,&\n        & 7.160323e-02_rb,6.841653e-02_rb,6.549889e-02_rb,6.281763e-02_rb,6.034516e-02_rb,&\n        & 5.805802e-02_rb,5.593615e-02_rb,5.396226e-02_rb,5.202302e-02_rb,5.036246e-02_rb,&\n        & 4.879606e-02_rb,4.731610e-02_rb,4.591565e-02_rb,4.458852e-02_rb,4.332912e-02_rb,&\n        & 4.213243e-02_rb,4.099390e-02_rb,3.990941e-02_rb,3.887522e-02_rb,3.788792e-02_rb,&\n        & 3.694440e-02_rb,3.604183e-02_rb,3.517760e-02_rb,3.434934e-02_rb,3.355485e-02_rb,&\n        & 3.279211e-02_rb,3.205925e-02_rb,3.135458e-02_rb,3.067648e-02_rb,3.002349e-02_rb,&\n        & 2.939425e-02_rb,2.878748e-02_rb,2.820200e-02_rb,2.763673e-02_rb,2.709062e-02_rb,&\n        & 2.656272e-02_rb,2.605214e-02_rb,2.5558e-02_rb /)\n      extliq1(:, 18) = (/ &\n        & 9.193685e-01_rb,6.128292e-01_rb,4.344150e-01_rb,3.303048e-01_rb,2.659500e-01_rb,&\n        & 2.239727e-01_rb,1.953457e-01_rb,1.751012e-01_rb,1.603515e-01_rb,1.493360e-01_rb,&\n        & 1.323791e-01_rb,1.219335e-01_rb,1.130076e-01_rb,1.052926e-01_rb,9.855839e-02_rb,&\n        & 9.262925e-02_rb,8.736918e-02_rb,8.267112e-02_rb,7.844965e-02_rb,7.463585e-02_rb,&\n        & 7.117343e-02_rb,6.801601e-02_rb,6.512503e-02_rb,6.246815e-02_rb,6.001806e-02_rb,&\n        & 5.775154e-02_rb,5.564872e-02_rb,5.369250e-02_rb,5.176284e-02_rb,5.011536e-02_rb,&\n        & 4.856099e-02_rb,4.709211e-02_rb,4.570193e-02_rb,4.438430e-02_rb,4.313375e-02_rb,&\n        & 4.194529e-02_rb,4.081443e-02_rb,3.973712e-02_rb,3.870966e-02_rb,3.772866e-02_rb,&\n        & 3.679108e-02_rb,3.589409e-02_rb,3.503514e-02_rb,3.421185e-02_rb,3.342206e-02_rb,&\n        & 3.266377e-02_rb,3.193513e-02_rb,3.123447e-02_rb,3.056018e-02_rb,2.991081e-02_rb,&\n        & 2.928502e-02_rb,2.868154e-02_rb,2.809920e-02_rb,2.753692e-02_rb,2.699367e-02_rb,&\n        & 2.646852e-02_rb,2.596057e-02_rb,2.5469e-02_rb /)\n      extliq1(:, 19) = (/ &\n        & 9.136931e-01_rb,5.743244e-01_rb,4.080708e-01_rb,3.150572e-01_rb,2.577261e-01_rb,&\n        & 2.197900e-01_rb,1.933037e-01_rb,1.740212e-01_rb,1.595056e-01_rb,1.482756e-01_rb,&\n        & 1.312164e-01_rb,1.209246e-01_rb,1.121227e-01_rb,1.045095e-01_rb,9.785967e-02_rb,&\n        & 9.200149e-02_rb,8.680170e-02_rb,8.215531e-02_rb,7.797850e-02_rb,7.420361e-02_rb,&\n        & 7.077530e-02_rb,6.764798e-02_rb,6.478369e-02_rb,6.215063e-02_rb,5.972189e-02_rb,&\n        & 5.747458e-02_rb,5.538913e-02_rb,5.344866e-02_rb,5.153216e-02_rb,4.989745e-02_rb,&\n        & 4.835476e-02_rb,4.689661e-02_rb,4.551629e-02_rb,4.420777e-02_rb,4.296563e-02_rb,&\n        & 4.178497e-02_rb,4.066137e-02_rb,3.959081e-02_rb,3.856963e-02_rb,3.759452e-02_rb,&\n        & 3.666244e-02_rb,3.577061e-02_rb,3.491650e-02_rb,3.409777e-02_rb,3.331227e-02_rb,&\n        & 3.255803e-02_rb,3.183322e-02_rb,3.113617e-02_rb,3.046530e-02_rb,2.981918e-02_rb,&\n        & 2.919646e-02_rb,2.859591e-02_rb,2.801635e-02_rb,2.745671e-02_rb,2.691599e-02_rb,&\n        & 2.639324e-02_rb,2.588759e-02_rb,2.5398e-02_rb /)\n      extliq1(:, 20) = (/ &\n        & 8.447548e-01_rb,5.326840e-01_rb,3.921523e-01_rb,3.119082e-01_rb,2.597055e-01_rb,&\n        & 2.228737e-01_rb,1.954157e-01_rb,1.741155e-01_rb,1.570881e-01_rb,1.431520e-01_rb,&\n        & 1.302034e-01_rb,1.200491e-01_rb,1.113571e-01_rb,1.038330e-01_rb,9.725657e-02_rb,&\n        & 9.145949e-02_rb,8.631112e-02_rb,8.170840e-02_rb,7.756901e-02_rb,7.382641e-02_rb,&\n        & 7.042616e-02_rb,6.732338e-02_rb,6.448069e-02_rb,6.186672e-02_rb,5.945494e-02_rb,&\n        & 5.722277e-02_rb,5.515089e-02_rb,5.322262e-02_rb,5.132153e-02_rb,4.969799e-02_rb,&\n        & 4.816556e-02_rb,4.671686e-02_rb,4.534525e-02_rb,4.404480e-02_rb,4.281014e-02_rb,&\n        & 4.163643e-02_rb,4.051930e-02_rb,3.945479e-02_rb,3.843927e-02_rb,3.746945e-02_rb,&\n        & 3.654234e-02_rb,3.565518e-02_rb,3.480547e-02_rb,3.399088e-02_rb,3.320930e-02_rb,&\n        & 3.245876e-02_rb,3.173745e-02_rb,3.104371e-02_rb,3.037600e-02_rb,2.973287e-02_rb,&\n        & 2.911300e-02_rb,2.851516e-02_rb,2.793818e-02_rb,2.738101e-02_rb,2.684264e-02_rb,&\n        & 2.632214e-02_rb,2.581863e-02_rb,2.5331e-02_rb /)\n      extliq1(:, 21) = (/ &\n        & 7.727642e-01_rb,5.034865e-01_rb,3.808673e-01_rb,3.080333e-01_rb,2.586453e-01_rb,&\n        & 2.224989e-01_rb,1.947060e-01_rb,1.725821e-01_rb,1.545096e-01_rb,1.394456e-01_rb,&\n        & 1.288683e-01_rb,1.188852e-01_rb,1.103317e-01_rb,1.029214e-01_rb,9.643967e-02_rb,&\n        & 9.072239e-02_rb,8.564194e-02_rb,8.109758e-02_rb,7.700875e-02_rb,7.331026e-02_rb,&\n        & 6.994879e-02_rb,6.688028e-02_rb,6.406807e-02_rb,6.148133e-02_rb,5.909400e-02_rb,&\n        & 5.688388e-02_rb,5.483197e-02_rb,5.292185e-02_rb,5.103763e-02_rb,4.942905e-02_rb,&\n        & 4.791039e-02_rb,4.647438e-02_rb,4.511453e-02_rb,4.382497e-02_rb,4.260043e-02_rb,&\n        & 4.143616e-02_rb,4.032784e-02_rb,3.927155e-02_rb,3.826375e-02_rb,3.730117e-02_rb,&\n        & 3.638087e-02_rb,3.550013e-02_rb,3.465646e-02_rb,3.384759e-02_rb,3.307141e-02_rb,&\n        & 3.232598e-02_rb,3.160953e-02_rb,3.092040e-02_rb,3.025706e-02_rb,2.961810e-02_rb,&\n        & 2.900220e-02_rb,2.840814e-02_rb,2.783478e-02_rb,2.728106e-02_rb,2.674599e-02_rb,&\n        & 2.622864e-02_rb,2.572816e-02_rb,2.5244e-02_rb /)\n      extliq1(:, 22) = (/ &\n        & 7.416833e-01_rb,4.959591e-01_rb,3.775057e-01_rb,3.056353e-01_rb,2.565943e-01_rb,&\n        & 2.206935e-01_rb,1.931479e-01_rb,1.712860e-01_rb,1.534837e-01_rb,1.386906e-01_rb,&\n        & 1.281198e-01_rb,1.182344e-01_rb,1.097595e-01_rb,1.024137e-01_rb,9.598552e-02_rb,&\n        & 9.031320e-02_rb,8.527093e-02_rb,8.075927e-02_rb,7.669869e-02_rb,7.302481e-02_rb,&\n        & 6.968491e-02_rb,6.663542e-02_rb,6.384008e-02_rb,6.126838e-02_rb,5.889452e-02_rb,&\n        & 5.669654e-02_rb,5.465558e-02_rb,5.275540e-02_rb,5.087937e-02_rb,4.927904e-02_rb,&\n        & 4.776796e-02_rb,4.633895e-02_rb,4.498557e-02_rb,4.370202e-02_rb,4.248306e-02_rb,&\n        & 4.132399e-02_rb,4.022052e-02_rb,3.916878e-02_rb,3.816523e-02_rb,3.720665e-02_rb,&\n        & 3.629011e-02_rb,3.541290e-02_rb,3.457257e-02_rb,3.376685e-02_rb,3.299365e-02_rb,&\n        & 3.225105e-02_rb,3.153728e-02_rb,3.085069e-02_rb,3.018977e-02_rb,2.955310e-02_rb,&\n        & 2.893940e-02_rb,2.834742e-02_rb,2.777606e-02_rb,2.722424e-02_rb,2.669099e-02_rb,&\n        & 2.617539e-02_rb,2.567658e-02_rb,2.5194e-02_rb /)\n      extliq1(:, 23) = (/ &\n        & 7.058580e-01_rb,4.866573e-01_rb,3.712238e-01_rb,2.998638e-01_rb,2.513441e-01_rb,&\n        & 2.161972e-01_rb,1.895576e-01_rb,1.686669e-01_rb,1.518437e-01_rb,1.380046e-01_rb,&\n        & 1.267564e-01_rb,1.170399e-01_rb,1.087026e-01_rb,1.014704e-01_rb,9.513729e-02_rb,&\n        & 8.954555e-02_rb,8.457221e-02_rb,8.012009e-02_rb,7.611136e-02_rb,7.248294e-02_rb,&\n        & 6.918317e-02_rb,6.616934e-02_rb,6.340584e-02_rb,6.086273e-02_rb,5.851465e-02_rb,&\n        & 5.634001e-02_rb,5.432027e-02_rb,5.243946e-02_rb,5.058070e-02_rb,4.899628e-02_rb,&\n        & 4.749975e-02_rb,4.608411e-02_rb,4.474303e-02_rb,4.347082e-02_rb,4.226237e-02_rb,&\n        & 4.111303e-02_rb,4.001861e-02_rb,3.897528e-02_rb,3.797959e-02_rb,3.702835e-02_rb,&\n        & 3.611867e-02_rb,3.524791e-02_rb,3.441364e-02_rb,3.361360e-02_rb,3.284577e-02_rb,&\n        & 3.210823e-02_rb,3.139923e-02_rb,3.071716e-02_rb,3.006052e-02_rb,2.942791e-02_rb,&\n        & 2.881806e-02_rb,2.822974e-02_rb,2.766185e-02_rb,2.711335e-02_rb,2.658326e-02_rb,&\n        & 2.607066e-02_rb,2.557473e-02_rb,2.5095e-02_rb /)\n      extliq1(:, 24) = (/ &\n        & 6.822779e-01_rb,4.750373e-01_rb,3.634834e-01_rb,2.940726e-01_rb,2.468060e-01_rb,&\n        & 2.125768e-01_rb,1.866586e-01_rb,1.663588e-01_rb,1.500326e-01_rb,1.366192e-01_rb,&\n        & 1.253472e-01_rb,1.158052e-01_rb,1.076101e-01_rb,1.004954e-01_rb,9.426089e-02_rb,&\n        & 8.875268e-02_rb,8.385090e-02_rb,7.946063e-02_rb,7.550578e-02_rb,7.192466e-02_rb,&\n        & 6.866669e-02_rb,6.569001e-02_rb,6.295971e-02_rb,6.044642e-02_rb,5.812526e-02_rb,&\n        & 5.597500e-02_rb,5.397746e-02_rb,5.211690e-02_rb,5.027505e-02_rb,4.870703e-02_rb,&\n        & 4.722555e-02_rb,4.582373e-02_rb,4.449540e-02_rb,4.323497e-02_rb,4.203742e-02_rb,&\n        & 4.089821e-02_rb,3.981321e-02_rb,3.877867e-02_rb,3.779118e-02_rb,3.684762e-02_rb,&\n        & 3.594514e-02_rb,3.508114e-02_rb,3.425322e-02_rb,3.345917e-02_rb,3.269698e-02_rb,&\n        & 3.196477e-02_rb,3.126082e-02_rb,3.058352e-02_rb,2.993141e-02_rb,2.930310e-02_rb,&\n        & 2.869732e-02_rb,2.811289e-02_rb,2.754869e-02_rb,2.700371e-02_rb,2.647698e-02_rb,&\n        & 2.596760e-02_rb,2.547473e-02_rb,2.4998e-02_rb /)\n      extliq1(:, 25) = (/ &\n        & 6.666233e-01_rb,4.662044e-01_rb,3.579517e-01_rb,2.902984e-01_rb,2.440475e-01_rb,&\n        & 2.104431e-01_rb,1.849277e-01_rb,1.648970e-01_rb,1.487555e-01_rb,1.354714e-01_rb,&\n        & 1.244173e-01_rb,1.149913e-01_rb,1.068903e-01_rb,9.985323e-02_rb,9.368351e-02_rb,&\n        & 8.823009e-02_rb,8.337507e-02_rb,7.902511e-02_rb,7.510529e-02_rb,7.155482e-02_rb,&\n        & 6.832386e-02_rb,6.537113e-02_rb,6.266218e-02_rb,6.016802e-02_rb,5.786408e-02_rb,&\n        & 5.572939e-02_rb,5.374598e-02_rb,5.189830e-02_rb,5.006825e-02_rb,4.851081e-02_rb,&\n        & 4.703906e-02_rb,4.564623e-02_rb,4.432621e-02_rb,4.307349e-02_rb,4.188312e-02_rb,&\n        & 4.075060e-02_rb,3.967183e-02_rb,3.864313e-02_rb,3.766111e-02_rb,3.672269e-02_rb,&\n        & 3.582505e-02_rb,3.496559e-02_rb,3.414196e-02_rb,3.335198e-02_rb,3.259362e-02_rb,&\n        & 3.186505e-02_rb,3.116454e-02_rb,3.049052e-02_rb,2.984152e-02_rb,2.921617e-02_rb,&\n        & 2.861322e-02_rb,2.803148e-02_rb,2.746986e-02_rb,2.692733e-02_rb,2.640295e-02_rb,&\n        & 2.589582e-02_rb,2.540510e-02_rb,2.4930e-02_rb /)\n      extliq1(:, 26) = (/ &\n        & 6.535669e-01_rb,4.585865e-01_rb,3.529226e-01_rb,2.867245e-01_rb,2.413848e-01_rb,&\n        & 2.083956e-01_rb,1.833191e-01_rb,1.636150e-01_rb,1.477247e-01_rb,1.346392e-01_rb,&\n        & 1.236449e-01_rb,1.143095e-01_rb,1.062828e-01_rb,9.930773e-02_rb,9.319029e-02_rb,&\n        & 8.778150e-02_rb,8.296497e-02_rb,7.864847e-02_rb,7.475799e-02_rb,7.123343e-02_rb,&\n        & 6.802549e-02_rb,6.509332e-02_rb,6.240285e-02_rb,5.992538e-02_rb,5.763657e-02_rb,&\n        & 5.551566e-02_rb,5.354483e-02_rb,5.170870e-02_rb,4.988866e-02_rb,4.834061e-02_rb,&\n        & 4.687751e-02_rb,4.549264e-02_rb,4.417999e-02_rb,4.293410e-02_rb,4.175006e-02_rb,&\n        & 4.062344e-02_rb,3.955019e-02_rb,3.852663e-02_rb,3.754943e-02_rb,3.661553e-02_rb,&\n        & 3.572214e-02_rb,3.486669e-02_rb,3.404683e-02_rb,3.326040e-02_rb,3.250542e-02_rb,&\n        & 3.178003e-02_rb,3.108254e-02_rb,3.041139e-02_rb,2.976511e-02_rb,2.914235e-02_rb,&\n        & 2.854187e-02_rb,2.796247e-02_rb,2.740309e-02_rb,2.686271e-02_rb,2.634038e-02_rb,&\n        & 2.583520e-02_rb,2.534636e-02_rb,2.4873e-02_rb /)\n      extliq1(:, 27) = (/ &\n        & 6.448790e-01_rb,4.541425e-01_rb,3.503348e-01_rb,2.850494e-01_rb,2.401966e-01_rb,&\n        & 2.074811e-01_rb,1.825631e-01_rb,1.629515e-01_rb,1.471142e-01_rb,1.340574e-01_rb,&\n        & 1.231462e-01_rb,1.138628e-01_rb,1.058802e-01_rb,9.894286e-02_rb,9.285818e-02_rb,&\n        & 8.747802e-02_rb,8.268676e-02_rb,7.839271e-02_rb,7.452230e-02_rb,7.101580e-02_rb,&\n        & 6.782418e-02_rb,6.490685e-02_rb,6.222991e-02_rb,5.976484e-02_rb,5.748742e-02_rb,&\n        & 5.537703e-02_rb,5.341593e-02_rb,5.158883e-02_rb,4.977355e-02_rb,4.823172e-02_rb,&\n        & 4.677430e-02_rb,4.539465e-02_rb,4.408680e-02_rb,4.284533e-02_rb,4.166539e-02_rb,&\n        & 4.054257e-02_rb,3.947283e-02_rb,3.845256e-02_rb,3.747842e-02_rb,3.654737e-02_rb,&\n        & 3.565665e-02_rb,3.480370e-02_rb,3.398620e-02_rb,3.320198e-02_rb,3.244908e-02_rb,&\n        & 3.172566e-02_rb,3.103002e-02_rb,3.036062e-02_rb,2.971600e-02_rb,2.909482e-02_rb,&\n        & 2.849582e-02_rb,2.791785e-02_rb,2.735982e-02_rb,2.682072e-02_rb,2.629960e-02_rb,&\n        & 2.579559e-02_rb,2.530786e-02_rb,2.4836e-02_rb /)\n      extliq1(:, 28) = (/ &\n        & 6.422688e-01_rb,4.528453e-01_rb,3.497232e-01_rb,2.847724e-01_rb,2.400815e-01_rb,&\n        & 2.074403e-01_rb,1.825502e-01_rb,1.629415e-01_rb,1.470934e-01_rb,1.340183e-01_rb,&\n        & 1.230935e-01_rb,1.138049e-01_rb,1.058201e-01_rb,9.888245e-02_rb,9.279878e-02_rb,&\n        & 8.742053e-02_rb,8.263175e-02_rb,7.834058e-02_rb,7.447327e-02_rb,7.097000e-02_rb,&\n        & 6.778167e-02_rb,6.486765e-02_rb,6.219400e-02_rb,5.973215e-02_rb,5.745790e-02_rb,&\n        & 5.535059e-02_rb,5.339250e-02_rb,5.156831e-02_rb,4.975308e-02_rb,4.821235e-02_rb,&\n        & 4.675596e-02_rb,4.537727e-02_rb,4.407030e-02_rb,4.282968e-02_rb,4.165053e-02_rb,&\n        & 4.052845e-02_rb,3.945941e-02_rb,3.843980e-02_rb,3.746628e-02_rb,3.653583e-02_rb,&\n        & 3.564567e-02_rb,3.479326e-02_rb,3.397626e-02_rb,3.319253e-02_rb,3.244008e-02_rb,&\n        & 3.171711e-02_rb,3.102189e-02_rb,3.035289e-02_rb,2.970866e-02_rb,2.908784e-02_rb,&\n        & 2.848920e-02_rb,2.791156e-02_rb,2.735385e-02_rb,2.681507e-02_rb,2.629425e-02_rb,&\n        & 2.579053e-02_rb,2.530308e-02_rb,2.4831e-02_rb /)\n      extliq1(:, 29) = (/ &\n        & 4.614710e-01_rb,4.556116e-01_rb,4.056568e-01_rb,3.529833e-01_rb,3.060334e-01_rb,&\n        & 2.658127e-01_rb,2.316095e-01_rb,2.024325e-01_rb,1.773749e-01_rb,1.556867e-01_rb,&\n        & 1.455558e-01_rb,1.332882e-01_rb,1.229052e-01_rb,1.140067e-01_rb,1.062981e-01_rb,&\n        & 9.955703e-02_rb,9.361333e-02_rb,8.833420e-02_rb,8.361467e-02_rb,7.937071e-02_rb,&\n        & 7.553420e-02_rb,7.204942e-02_rb,6.887031e-02_rb,6.595851e-02_rb,6.328178e-02_rb,&\n        & 6.081286e-02_rb,5.852854e-02_rb,5.640892e-02_rb,5.431269e-02_rb,5.252561e-02_rb,&\n        & 5.084345e-02_rb,4.925727e-02_rb,4.775910e-02_rb,4.634182e-02_rb,4.499907e-02_rb,&\n        & 4.372512e-02_rb,4.251484e-02_rb,4.136357e-02_rb,4.026710e-02_rb,3.922162e-02_rb,&\n        & 3.822365e-02_rb,3.727004e-02_rb,3.635790e-02_rb,3.548457e-02_rb,3.464764e-02_rb,&\n        & 3.384488e-02_rb,3.307424e-02_rb,3.233384e-02_rb,3.162192e-02_rb,3.093688e-02_rb,&\n        & 3.027723e-02_rb,2.964158e-02_rb,2.902864e-02_rb,2.843722e-02_rb,2.786621e-02_rb,&\n        & 2.731457e-02_rb,2.678133e-02_rb,2.6266e-02_rb /)\n\n! Single scattering albedo     \n      ssaliq1(:, 16) = (/ &\n        & 8.143821e-01_rb,7.836739e-01_rb,7.550722e-01_rb,7.306269e-01_rb,7.105612e-01_rb,&\n        & 6.946649e-01_rb,6.825556e-01_rb,6.737762e-01_rb,6.678448e-01_rb,6.642830e-01_rb,&\n        & 6.679741e-01_rb,6.584607e-01_rb,6.505598e-01_rb,6.440951e-01_rb,6.388901e-01_rb,&\n        & 6.347689e-01_rb,6.315549e-01_rb,6.290718e-01_rb,6.271432e-01_rb,6.255928e-01_rb,&\n        & 6.242441e-01_rb,6.229207e-01_rb,6.214464e-01_rb,6.196445e-01_rb,6.173388e-01_rb,&\n        & 6.143527e-01_rb,6.105099e-01_rb,6.056339e-01_rb,6.108290e-01_rb,6.073939e-01_rb,&\n        & 6.043073e-01_rb,6.015473e-01_rb,5.990913e-01_rb,5.969173e-01_rb,5.950028e-01_rb,&\n        & 5.933257e-01_rb,5.918636e-01_rb,5.905944e-01_rb,5.894957e-01_rb,5.885453e-01_rb,&\n        & 5.877209e-01_rb,5.870003e-01_rb,5.863611e-01_rb,5.857811e-01_rb,5.852381e-01_rb,&\n        & 5.847098e-01_rb,5.841738e-01_rb,5.836081e-01_rb,5.829901e-01_rb,5.822979e-01_rb,&\n        & 5.815089e-01_rb,5.806011e-01_rb,5.795521e-01_rb,5.783396e-01_rb,5.769413e-01_rb,&\n        & 5.753351e-01_rb,5.734986e-01_rb,5.7141e-01_rb /)\n      ssaliq1(:, 17) = (/ &\n        & 8.165821e-01_rb,8.002015e-01_rb,7.816921e-01_rb,7.634131e-01_rb,7.463721e-01_rb,&\n        & 7.312469e-01_rb,7.185883e-01_rb,7.088975e-01_rb,7.026671e-01_rb,7.004020e-01_rb,&\n        & 7.042138e-01_rb,6.960930e-01_rb,6.894243e-01_rb,6.840459e-01_rb,6.797957e-01_rb,&\n        & 6.765119e-01_rb,6.740325e-01_rb,6.721955e-01_rb,6.708391e-01_rb,6.698013e-01_rb,&\n        & 6.689201e-01_rb,6.680339e-01_rb,6.669805e-01_rb,6.655982e-01_rb,6.637250e-01_rb,&\n        & 6.611992e-01_rb,6.578588e-01_rb,6.535420e-01_rb,6.584449e-01_rb,6.553992e-01_rb,&\n        & 6.526547e-01_rb,6.501917e-01_rb,6.479905e-01_rb,6.460313e-01_rb,6.442945e-01_rb,&\n        & 6.427605e-01_rb,6.414094e-01_rb,6.402217e-01_rb,6.391775e-01_rb,6.382573e-01_rb,&\n        & 6.374413e-01_rb,6.367099e-01_rb,6.360433e-01_rb,6.354218e-01_rb,6.348257e-01_rb,&\n        & 6.342355e-01_rb,6.336313e-01_rb,6.329935e-01_rb,6.323023e-01_rb,6.315383e-01_rb,&\n        & 6.306814e-01_rb,6.297122e-01_rb,6.286110e-01_rb,6.273579e-01_rb,6.259333e-01_rb,&\n        & 6.243176e-01_rb,6.224910e-01_rb,6.2043e-01_rb /)\n      ssaliq1(:, 18) = (/ &\n        & 9.900163e-01_rb,9.854307e-01_rb,9.797730e-01_rb,9.733113e-01_rb,9.664245e-01_rb,&\n        & 9.594976e-01_rb,9.529055e-01_rb,9.470112e-01_rb,9.421695e-01_rb,9.387304e-01_rb,&\n        & 9.344918e-01_rb,9.305302e-01_rb,9.267048e-01_rb,9.230072e-01_rb,9.194289e-01_rb,&\n        & 9.159616e-01_rb,9.125968e-01_rb,9.093260e-01_rb,9.061409e-01_rb,9.030330e-01_rb,&\n        & 8.999940e-01_rb,8.970154e-01_rb,8.940888e-01_rb,8.912058e-01_rb,8.883579e-01_rb,&\n        & 8.855368e-01_rb,8.827341e-01_rb,8.799413e-01_rb,8.777423e-01_rb,8.749566e-01_rb,&\n        & 8.722298e-01_rb,8.695605e-01_rb,8.669469e-01_rb,8.643875e-01_rb,8.618806e-01_rb,&\n        & 8.594246e-01_rb,8.570179e-01_rb,8.546589e-01_rb,8.523459e-01_rb,8.500773e-01_rb,&\n        & 8.478516e-01_rb,8.456670e-01_rb,8.435219e-01_rb,8.414148e-01_rb,8.393439e-01_rb,&\n        & 8.373078e-01_rb,8.353047e-01_rb,8.333330e-01_rb,8.313911e-01_rb,8.294774e-01_rb,&\n        & 8.275904e-01_rb,8.257282e-01_rb,8.238893e-01_rb,8.220721e-01_rb,8.202751e-01_rb,&\n        & 8.184965e-01_rb,8.167346e-01_rb,8.1499e-01_rb /)\n      ssaliq1(:, 19) = (/ &\n        & 9.999916e-01_rb,9.987396e-01_rb,9.966900e-01_rb,9.950738e-01_rb,9.937531e-01_rb,&\n        & 9.925912e-01_rb,9.914525e-01_rb,9.902018e-01_rb,9.887046e-01_rb,9.868263e-01_rb,&\n        & 9.849039e-01_rb,9.832372e-01_rb,9.815265e-01_rb,9.797770e-01_rb,9.779940e-01_rb,&\n        & 9.761827e-01_rb,9.743481e-01_rb,9.724955e-01_rb,9.706303e-01_rb,9.687575e-01_rb,&\n        & 9.668823e-01_rb,9.650100e-01_rb,9.631457e-01_rb,9.612947e-01_rb,9.594622e-01_rb,&\n        & 9.576534e-01_rb,9.558734e-01_rb,9.541275e-01_rb,9.522059e-01_rb,9.504258e-01_rb,&\n        & 9.486459e-01_rb,9.468676e-01_rb,9.450921e-01_rb,9.433208e-01_rb,9.415548e-01_rb,&\n        & 9.397955e-01_rb,9.380441e-01_rb,9.363022e-01_rb,9.345706e-01_rb,9.328510e-01_rb,&\n        & 9.311445e-01_rb,9.294524e-01_rb,9.277761e-01_rb,9.261167e-01_rb,9.244755e-01_rb,&\n        & 9.228540e-01_rb,9.212534e-01_rb,9.196748e-01_rb,9.181197e-01_rb,9.165894e-01_rb,&\n        & 9.150851e-01_rb,9.136080e-01_rb,9.121596e-01_rb,9.107410e-01_rb,9.093536e-01_rb,&\n        & 9.079987e-01_rb,9.066775e-01_rb,9.0539e-01_rb /)\n      ssaliq1(:, 20) = (/ &\n        & 9.979493e-01_rb,9.964113e-01_rb,9.950014e-01_rb,9.937045e-01_rb,9.924964e-01_rb,&\n        & 9.913546e-01_rb,9.902575e-01_rb,9.891843e-01_rb,9.881136e-01_rb,9.870238e-01_rb,&\n        & 9.859934e-01_rb,9.849372e-01_rb,9.838873e-01_rb,9.828434e-01_rb,9.818052e-01_rb,&\n        & 9.807725e-01_rb,9.797450e-01_rb,9.787225e-01_rb,9.777047e-01_rb,9.766914e-01_rb,&\n        & 9.756823e-01_rb,9.746771e-01_rb,9.736756e-01_rb,9.726775e-01_rb,9.716827e-01_rb,&\n        & 9.706907e-01_rb,9.697014e-01_rb,9.687145e-01_rb,9.678060e-01_rb,9.668108e-01_rb,&\n        & 9.658218e-01_rb,9.648391e-01_rb,9.638629e-01_rb,9.628936e-01_rb,9.619313e-01_rb,&\n        & 9.609763e-01_rb,9.600287e-01_rb,9.590888e-01_rb,9.581569e-01_rb,9.572330e-01_rb,&\n        & 9.563176e-01_rb,9.554108e-01_rb,9.545128e-01_rb,9.536239e-01_rb,9.527443e-01_rb,&\n        & 9.518741e-01_rb,9.510137e-01_rb,9.501633e-01_rb,9.493230e-01_rb,9.484931e-01_rb,&\n        & 9.476740e-01_rb,9.468656e-01_rb,9.460683e-01_rb,9.452824e-01_rb,9.445080e-01_rb,&\n        & 9.437454e-01_rb,9.429948e-01_rb,9.4226e-01_rb /)\n      ssaliq1(:, 21) = (/ &\n        & 9.988742e-01_rb,9.982668e-01_rb,9.976935e-01_rb,9.971497e-01_rb,9.966314e-01_rb,&\n        & 9.961344e-01_rb,9.956545e-01_rb,9.951873e-01_rb,9.947286e-01_rb,9.942741e-01_rb,&\n        & 9.938457e-01_rb,9.933947e-01_rb,9.929473e-01_rb,9.925032e-01_rb,9.920621e-01_rb,&\n        & 9.916237e-01_rb,9.911875e-01_rb,9.907534e-01_rb,9.903209e-01_rb,9.898898e-01_rb,&\n        & 9.894597e-01_rb,9.890304e-01_rb,9.886015e-01_rb,9.881726e-01_rb,9.877435e-01_rb,&\n        & 9.873138e-01_rb,9.868833e-01_rb,9.864516e-01_rb,9.860698e-01_rb,9.856317e-01_rb,&\n        & 9.851957e-01_rb,9.847618e-01_rb,9.843302e-01_rb,9.839008e-01_rb,9.834739e-01_rb,&\n        & 9.830494e-01_rb,9.826275e-01_rb,9.822083e-01_rb,9.817918e-01_rb,9.813782e-01_rb,&\n        & 9.809675e-01_rb,9.805598e-01_rb,9.801552e-01_rb,9.797538e-01_rb,9.793556e-01_rb,&\n        & 9.789608e-01_rb,9.785695e-01_rb,9.781817e-01_rb,9.777975e-01_rb,9.774171e-01_rb,&\n        & 9.770404e-01_rb,9.766676e-01_rb,9.762988e-01_rb,9.759340e-01_rb,9.755733e-01_rb,&\n        & 9.752169e-01_rb,9.748649e-01_rb,9.7452e-01_rb /)\n      ssaliq1(:, 22) = (/ &\n        & 9.994441e-01_rb,9.991608e-01_rb,9.988949e-01_rb,9.986439e-01_rb,9.984054e-01_rb,&\n        & 9.981768e-01_rb,9.979557e-01_rb,9.977396e-01_rb,9.975258e-01_rb,9.973120e-01_rb,&\n        & 9.971011e-01_rb,9.968852e-01_rb,9.966708e-01_rb,9.964578e-01_rb,9.962462e-01_rb,&\n        & 9.960357e-01_rb,9.958264e-01_rb,9.956181e-01_rb,9.954108e-01_rb,9.952043e-01_rb,&\n        & 9.949987e-01_rb,9.947937e-01_rb,9.945892e-01_rb,9.943853e-01_rb,9.941818e-01_rb,&\n        & 9.939786e-01_rb,9.937757e-01_rb,9.935728e-01_rb,9.933922e-01_rb,9.931825e-01_rb,&\n        & 9.929739e-01_rb,9.927661e-01_rb,9.925592e-01_rb,9.923534e-01_rb,9.921485e-01_rb,&\n        & 9.919447e-01_rb,9.917421e-01_rb,9.915406e-01_rb,9.913403e-01_rb,9.911412e-01_rb,&\n        & 9.909435e-01_rb,9.907470e-01_rb,9.905519e-01_rb,9.903581e-01_rb,9.901659e-01_rb,&\n        & 9.899751e-01_rb,9.897858e-01_rb,9.895981e-01_rb,9.894120e-01_rb,9.892276e-01_rb,&\n        & 9.890447e-01_rb,9.888637e-01_rb,9.886845e-01_rb,9.885070e-01_rb,9.883314e-01_rb,&\n        & 9.881576e-01_rb,9.879859e-01_rb,9.8782e-01_rb /)\n      ssaliq1(:, 23) = (/ &\n        & 9.999138e-01_rb,9.998730e-01_rb,9.998338e-01_rb,9.997965e-01_rb,9.997609e-01_rb,&\n        & 9.997270e-01_rb,9.996944e-01_rb,9.996629e-01_rb,9.996321e-01_rb,9.996016e-01_rb,&\n        & 9.995690e-01_rb,9.995372e-01_rb,9.995057e-01_rb,9.994744e-01_rb,9.994433e-01_rb,&\n        & 9.994124e-01_rb,9.993817e-01_rb,9.993510e-01_rb,9.993206e-01_rb,9.992903e-01_rb,&\n        & 9.992600e-01_rb,9.992299e-01_rb,9.991998e-01_rb,9.991698e-01_rb,9.991398e-01_rb,&\n        & 9.991098e-01_rb,9.990799e-01_rb,9.990499e-01_rb,9.990231e-01_rb,9.989920e-01_rb,&\n        & 9.989611e-01_rb,9.989302e-01_rb,9.988996e-01_rb,9.988690e-01_rb,9.988386e-01_rb,&\n        & 9.988084e-01_rb,9.987783e-01_rb,9.987485e-01_rb,9.987187e-01_rb,9.986891e-01_rb,&\n        & 9.986598e-01_rb,9.986306e-01_rb,9.986017e-01_rb,9.985729e-01_rb,9.985443e-01_rb,&\n        & 9.985160e-01_rb,9.984879e-01_rb,9.984600e-01_rb,9.984324e-01_rb,9.984050e-01_rb,&\n        & 9.983778e-01_rb,9.983509e-01_rb,9.983243e-01_rb,9.982980e-01_rb,9.982719e-01_rb,&\n        & 9.982461e-01_rb,9.982206e-01_rb,9.9820e-01_rb /)\n      ssaliq1(:, 24) = (/ &\n        & 9.999985e-01_rb,9.999979e-01_rb,9.999972e-01_rb,9.999966e-01_rb,9.999961e-01_rb,&\n        & 9.999955e-01_rb,9.999950e-01_rb,9.999944e-01_rb,9.999938e-01_rb,9.999933e-01_rb,&\n        & 9.999927e-01_rb,9.999921e-01_rb,9.999915e-01_rb,9.999910e-01_rb,9.999904e-01_rb,&\n        & 9.999899e-01_rb,9.999893e-01_rb,9.999888e-01_rb,9.999882e-01_rb,9.999877e-01_rb,&\n        & 9.999871e-01_rb,9.999866e-01_rb,9.999861e-01_rb,9.999855e-01_rb,9.999850e-01_rb,&\n        & 9.999844e-01_rb,9.999839e-01_rb,9.999833e-01_rb,9.999828e-01_rb,9.999823e-01_rb,&\n        & 9.999817e-01_rb,9.999812e-01_rb,9.999807e-01_rb,9.999801e-01_rb,9.999796e-01_rb,&\n        & 9.999791e-01_rb,9.999786e-01_rb,9.999781e-01_rb,9.999776e-01_rb,9.999770e-01_rb,&\n        & 9.999765e-01_rb,9.999761e-01_rb,9.999756e-01_rb,9.999751e-01_rb,9.999746e-01_rb,&\n        & 9.999741e-01_rb,9.999736e-01_rb,9.999732e-01_rb,9.999727e-01_rb,9.999722e-01_rb,&\n        & 9.999718e-01_rb,9.999713e-01_rb,9.999709e-01_rb,9.999705e-01_rb,9.999701e-01_rb,&\n        & 9.999697e-01_rb,9.999692e-01_rb,9.9997e-01_rb /)\n      ssaliq1(:, 25) = (/ &\n        & 9.999999e-01_rb,9.999998e-01_rb,9.999997e-01_rb,9.999997e-01_rb,9.999997e-01_rb,&\n        & 9.999996e-01_rb,9.999996e-01_rb,9.999995e-01_rb,9.999995e-01_rb,9.999994e-01_rb,&\n        & 9.999994e-01_rb,9.999993e-01_rb,9.999993e-01_rb,9.999992e-01_rb,9.999992e-01_rb,&\n        & 9.999991e-01_rb,9.999991e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&\n        & 9.999989e-01_rb,9.999989e-01_rb,9.999988e-01_rb,9.999988e-01_rb,9.999987e-01_rb,&\n        & 9.999987e-01_rb,9.999986e-01_rb,9.999986e-01_rb,9.999985e-01_rb,9.999985e-01_rb,&\n        & 9.999984e-01_rb,9.999984e-01_rb,9.999984e-01_rb,9.999983e-01_rb,9.999983e-01_rb,&\n        & 9.999982e-01_rb,9.999982e-01_rb,9.999982e-01_rb,9.999981e-01_rb,9.999980e-01_rb,&\n        & 9.999980e-01_rb,9.999980e-01_rb,9.999979e-01_rb,9.999979e-01_rb,9.999978e-01_rb,&\n        & 9.999978e-01_rb,9.999977e-01_rb,9.999977e-01_rb,9.999977e-01_rb,9.999976e-01_rb,&\n        & 9.999976e-01_rb,9.999975e-01_rb,9.999975e-01_rb,9.999974e-01_rb,9.999974e-01_rb,&\n        & 9.999974e-01_rb,9.999973e-01_rb,1.0000e+00_rb /)\n      ssaliq1(:, 26) = (/ &\n        & 9.999997e-01_rb,9.999995e-01_rb,9.999993e-01_rb,9.999992e-01_rb,9.999990e-01_rb,&\n        & 9.999989e-01_rb,9.999988e-01_rb,9.999987e-01_rb,9.999986e-01_rb,9.999985e-01_rb,&\n        & 9.999984e-01_rb,9.999983e-01_rb,9.999982e-01_rb,9.999981e-01_rb,9.999980e-01_rb,&\n        & 9.999978e-01_rb,9.999977e-01_rb,9.999976e-01_rb,9.999975e-01_rb,9.999974e-01_rb,&\n        & 9.999973e-01_rb,9.999972e-01_rb,9.999970e-01_rb,9.999969e-01_rb,9.999968e-01_rb,&\n        & 9.999967e-01_rb,9.999966e-01_rb,9.999965e-01_rb,9.999964e-01_rb,9.999963e-01_rb,&\n        & 9.999962e-01_rb,9.999961e-01_rb,9.999959e-01_rb,9.999958e-01_rb,9.999957e-01_rb,&\n        & 9.999956e-01_rb,9.999955e-01_rb,9.999954e-01_rb,9.999953e-01_rb,9.999952e-01_rb,&\n        & 9.999951e-01_rb,9.999949e-01_rb,9.999949e-01_rb,9.999947e-01_rb,9.999946e-01_rb,&\n        & 9.999945e-01_rb,9.999944e-01_rb,9.999943e-01_rb,9.999942e-01_rb,9.999941e-01_rb,&\n        & 9.999940e-01_rb,9.999939e-01_rb,9.999938e-01_rb,9.999937e-01_rb,9.999936e-01_rb,&\n        & 9.999935e-01_rb,9.999934e-01_rb,9.9999e-01_rb /)\n      ssaliq1(:, 27) = (/ &\n        & 9.999984e-01_rb,9.999976e-01_rb,9.999969e-01_rb,9.999962e-01_rb,9.999956e-01_rb,&\n        & 9.999950e-01_rb,9.999945e-01_rb,9.999940e-01_rb,9.999935e-01_rb,9.999931e-01_rb,&\n        & 9.999926e-01_rb,9.999920e-01_rb,9.999914e-01_rb,9.999908e-01_rb,9.999903e-01_rb,&\n        & 9.999897e-01_rb,9.999891e-01_rb,9.999886e-01_rb,9.999880e-01_rb,9.999874e-01_rb,&\n        & 9.999868e-01_rb,9.999863e-01_rb,9.999857e-01_rb,9.999851e-01_rb,9.999846e-01_rb,&\n        & 9.999840e-01_rb,9.999835e-01_rb,9.999829e-01_rb,9.999824e-01_rb,9.999818e-01_rb,&\n        & 9.999812e-01_rb,9.999806e-01_rb,9.999800e-01_rb,9.999795e-01_rb,9.999789e-01_rb,&\n        & 9.999783e-01_rb,9.999778e-01_rb,9.999773e-01_rb,9.999767e-01_rb,9.999761e-01_rb,&\n        & 9.999756e-01_rb,9.999750e-01_rb,9.999745e-01_rb,9.999739e-01_rb,9.999734e-01_rb,&\n        & 9.999729e-01_rb,9.999723e-01_rb,9.999718e-01_rb,9.999713e-01_rb,9.999708e-01_rb,&\n        & 9.999703e-01_rb,9.999697e-01_rb,9.999692e-01_rb,9.999687e-01_rb,9.999683e-01_rb,&\n        & 9.999678e-01_rb,9.999673e-01_rb,9.9997e-01_rb /)\n      ssaliq1(:, 28) = (/ &\n        & 9.999981e-01_rb,9.999973e-01_rb,9.999965e-01_rb,9.999958e-01_rb,9.999951e-01_rb,&\n        & 9.999943e-01_rb,9.999937e-01_rb,9.999930e-01_rb,9.999924e-01_rb,9.999918e-01_rb,&\n        & 9.999912e-01_rb,9.999905e-01_rb,9.999897e-01_rb,9.999890e-01_rb,9.999883e-01_rb,&\n        & 9.999876e-01_rb,9.999869e-01_rb,9.999862e-01_rb,9.999855e-01_rb,9.999847e-01_rb,&\n        & 9.999840e-01_rb,9.999834e-01_rb,9.999827e-01_rb,9.999819e-01_rb,9.999812e-01_rb,&\n        & 9.999805e-01_rb,9.999799e-01_rb,9.999791e-01_rb,9.999785e-01_rb,9.999778e-01_rb,&\n        & 9.999771e-01_rb,9.999764e-01_rb,9.999757e-01_rb,9.999750e-01_rb,9.999743e-01_rb,&\n        & 9.999736e-01_rb,9.999729e-01_rb,9.999722e-01_rb,9.999715e-01_rb,9.999709e-01_rb,&\n        & 9.999701e-01_rb,9.999695e-01_rb,9.999688e-01_rb,9.999682e-01_rb,9.999675e-01_rb,&\n        & 9.999669e-01_rb,9.999662e-01_rb,9.999655e-01_rb,9.999649e-01_rb,9.999642e-01_rb,&\n        & 9.999636e-01_rb,9.999630e-01_rb,9.999624e-01_rb,9.999618e-01_rb,9.999612e-01_rb,&\n        & 9.999606e-01_rb,9.999600e-01_rb,9.9996e-01_rb /)\n      ssaliq1(:, 29) = (/ &\n        & 8.505737e-01_rb,8.465102e-01_rb,8.394829e-01_rb,8.279508e-01_rb,8.110806e-01_rb,&\n        & 7.900397e-01_rb,7.669615e-01_rb,7.444422e-01_rb,7.253055e-01_rb,7.124831e-01_rb,&\n        & 7.016434e-01_rb,6.885485e-01_rb,6.767340e-01_rb,6.661029e-01_rb,6.565577e-01_rb,&\n        & 6.480013e-01_rb,6.403373e-01_rb,6.334697e-01_rb,6.273034e-01_rb,6.217440e-01_rb,&\n        & 6.166983e-01_rb,6.120740e-01_rb,6.077796e-01_rb,6.037249e-01_rb,5.998207e-01_rb,&\n        & 5.959788e-01_rb,5.921123e-01_rb,5.881354e-01_rb,5.891285e-01_rb,5.851143e-01_rb,&\n        & 5.814653e-01_rb,5.781606e-01_rb,5.751792e-01_rb,5.724998e-01_rb,5.701016e-01_rb,&\n        & 5.679634e-01_rb,5.660642e-01_rb,5.643829e-01_rb,5.628984e-01_rb,5.615898e-01_rb,&\n        & 5.604359e-01_rb,5.594158e-01_rb,5.585083e-01_rb,5.576924e-01_rb,5.569470e-01_rb,&\n        & 5.562512e-01_rb,5.555838e-01_rb,5.549239e-01_rb,5.542503e-01_rb,5.535420e-01_rb,&\n        & 5.527781e-01_rb,5.519374e-01_rb,5.509989e-01_rb,5.499417e-01_rb,5.487445e-01_rb,&\n        & 5.473865e-01_rb,5.458466e-01_rb,5.4410e-01_rb /)\n\n! asymmetry parameter\n      asyliq1(:, 16) = (/ &\n        & 8.133297e-01_rb,8.133528e-01_rb,8.173865e-01_rb,8.243205e-01_rb,8.333063e-01_rb,&\n        & 8.436317e-01_rb,8.546611e-01_rb,8.657934e-01_rb,8.764345e-01_rb,8.859837e-01_rb,&\n        & 8.627394e-01_rb,8.824569e-01_rb,8.976887e-01_rb,9.089541e-01_rb,9.167699e-01_rb,&\n        & 9.216517e-01_rb,9.241147e-01_rb,9.246743e-01_rb,9.238469e-01_rb,9.221504e-01_rb,&\n        & 9.201045e-01_rb,9.182299e-01_rb,9.170491e-01_rb,9.170862e-01_rb,9.188653e-01_rb,&\n        & 9.229111e-01_rb,9.297468e-01_rb,9.398950e-01_rb,9.203269e-01_rb,9.260693e-01_rb,&\n        & 9.309373e-01_rb,9.349918e-01_rb,9.382935e-01_rb,9.409030e-01_rb,9.428809e-01_rb,&\n        & 9.442881e-01_rb,9.451851e-01_rb,9.456331e-01_rb,9.456926e-01_rb,9.454247e-01_rb,&\n        & 9.448902e-01_rb,9.441503e-01_rb,9.432661e-01_rb,9.422987e-01_rb,9.413094e-01_rb,&\n        & 9.403594e-01_rb,9.395102e-01_rb,9.388230e-01_rb,9.383594e-01_rb,9.381810e-01_rb,&\n        & 9.383489e-01_rb,9.389251e-01_rb,9.399707e-01_rb,9.415475e-01_rb,9.437167e-01_rb,&\n        & 9.465399e-01_rb,9.500786e-01_rb,9.5439e-01_rb /)\n      asyliq1(:, 17) = (/ &\n        & 8.794448e-01_rb,8.819306e-01_rb,8.837667e-01_rb,8.853832e-01_rb,8.871010e-01_rb,&\n        & 8.892675e-01_rb,8.922584e-01_rb,8.964666e-01_rb,9.022940e-01_rb,9.101456e-01_rb,&\n        & 8.839999e-01_rb,9.035610e-01_rb,9.184568e-01_rb,9.292315e-01_rb,9.364282e-01_rb,&\n        & 9.405887e-01_rb,9.422554e-01_rb,9.419703e-01_rb,9.402759e-01_rb,9.377159e-01_rb,&\n        & 9.348345e-01_rb,9.321769e-01_rb,9.302888e-01_rb,9.297166e-01_rb,9.310075e-01_rb,&\n        & 9.347080e-01_rb,9.413643e-01_rb,9.515216e-01_rb,9.306286e-01_rb,9.361781e-01_rb,&\n        & 9.408374e-01_rb,9.446692e-01_rb,9.477363e-01_rb,9.501013e-01_rb,9.518268e-01_rb,&\n        & 9.529756e-01_rb,9.536105e-01_rb,9.537938e-01_rb,9.535886e-01_rb,9.530574e-01_rb,&\n        & 9.522633e-01_rb,9.512688e-01_rb,9.501370e-01_rb,9.489306e-01_rb,9.477126e-01_rb,&\n        & 9.465459e-01_rb,9.454934e-01_rb,9.446183e-01_rb,9.439833e-01_rb,9.436519e-01_rb,&\n        & 9.436866e-01_rb,9.441508e-01_rb,9.451073e-01_rb,9.466195e-01_rb,9.487501e-01_rb,&\n        & 9.515621e-01_rb,9.551185e-01_rb,9.5948e-01_rb /)\n      asyliq1(:, 18) = (/ &\n        & 8.478817e-01_rb,8.269312e-01_rb,8.161352e-01_rb,8.135960e-01_rb,8.173586e-01_rb,&\n        & 8.254167e-01_rb,8.357072e-01_rb,8.461167e-01_rb,8.544952e-01_rb,8.586776e-01_rb,&\n        & 8.335562e-01_rb,8.524273e-01_rb,8.669052e-01_rb,8.775014e-01_rb,8.847277e-01_rb,&\n        & 8.890958e-01_rb,8.911173e-01_rb,8.913038e-01_rb,8.901669e-01_rb,8.882182e-01_rb,&\n        & 8.859692e-01_rb,8.839315e-01_rb,8.826164e-01_rb,8.825356e-01_rb,8.842004e-01_rb,&\n        & 8.881223e-01_rb,8.948131e-01_rb,9.047837e-01_rb,8.855951e-01_rb,8.911796e-01_rb,&\n        & 8.959229e-01_rb,8.998837e-01_rb,9.031209e-01_rb,9.056939e-01_rb,9.076609e-01_rb,&\n        & 9.090812e-01_rb,9.100134e-01_rb,9.105167e-01_rb,9.106496e-01_rb,9.104712e-01_rb,&\n        & 9.100404e-01_rb,9.094159e-01_rb,9.086568e-01_rb,9.078218e-01_rb,9.069697e-01_rb,&\n        & 9.061595e-01_rb,9.054499e-01_rb,9.048999e-01_rb,9.045683e-01_rb,9.045142e-01_rb,&\n        & 9.047962e-01_rb,9.054730e-01_rb,9.066037e-01_rb,9.082472e-01_rb,9.104623e-01_rb,&\n        & 9.133079e-01_rb,9.168427e-01_rb,9.2113e-01_rb /)\n      asyliq1(:, 19) = (/ &\n        & 8.216697e-01_rb,7.982871e-01_rb,7.891147e-01_rb,7.909083e-01_rb,8.003833e-01_rb,&\n        & 8.142516e-01_rb,8.292290e-01_rb,8.420356e-01_rb,8.493945e-01_rb,8.480316e-01_rb,&\n        & 8.212381e-01_rb,8.394984e-01_rb,8.534095e-01_rb,8.634813e-01_rb,8.702242e-01_rb,&\n        & 8.741483e-01_rb,8.757638e-01_rb,8.755808e-01_rb,8.741095e-01_rb,8.718604e-01_rb,&\n        & 8.693433e-01_rb,8.670686e-01_rb,8.655464e-01_rb,8.652872e-01_rb,8.668006e-01_rb,&\n        & 8.705973e-01_rb,8.771874e-01_rb,8.870809e-01_rb,8.678284e-01_rb,8.732315e-01_rb,&\n        & 8.778084e-01_rb,8.816166e-01_rb,8.847146e-01_rb,8.871603e-01_rb,8.890116e-01_rb,&\n        & 8.903266e-01_rb,8.911632e-01_rb,8.915796e-01_rb,8.916337e-01_rb,8.913834e-01_rb,&\n        & 8.908869e-01_rb,8.902022e-01_rb,8.893873e-01_rb,8.885001e-01_rb,8.875986e-01_rb,&\n        & 8.867411e-01_rb,8.859852e-01_rb,8.853891e-01_rb,8.850111e-01_rb,8.849089e-01_rb,&\n        & 8.851405e-01_rb,8.857639e-01_rb,8.868372e-01_rb,8.884185e-01_rb,8.905656e-01_rb,&\n        & 8.933368e-01_rb,8.967899e-01_rb,9.0098e-01_rb /)\n      asyliq1(:, 20) = (/ &\n        & 8.063610e-01_rb,7.938147e-01_rb,7.921304e-01_rb,7.985092e-01_rb,8.101339e-01_rb,&\n        & 8.242175e-01_rb,8.379913e-01_rb,8.486920e-01_rb,8.535547e-01_rb,8.498083e-01_rb,&\n        & 8.224849e-01_rb,8.405509e-01_rb,8.542436e-01_rb,8.640770e-01_rb,8.705653e-01_rb,&\n        & 8.742227e-01_rb,8.755630e-01_rb,8.751004e-01_rb,8.733491e-01_rb,8.708231e-01_rb,&\n        & 8.680365e-01_rb,8.655035e-01_rb,8.637381e-01_rb,8.632544e-01_rb,8.645665e-01_rb,&\n        & 8.681885e-01_rb,8.746346e-01_rb,8.844188e-01_rb,8.648180e-01_rb,8.700563e-01_rb,&\n        & 8.744672e-01_rb,8.781087e-01_rb,8.810393e-01_rb,8.833174e-01_rb,8.850011e-01_rb,&\n        & 8.861485e-01_rb,8.868183e-01_rb,8.870687e-01_rb,8.869579e-01_rb,8.865441e-01_rb,&\n        & 8.858857e-01_rb,8.850412e-01_rb,8.840686e-01_rb,8.830263e-01_rb,8.819726e-01_rb,&\n        & 8.809658e-01_rb,8.800642e-01_rb,8.793260e-01_rb,8.788099e-01_rb,8.785737e-01_rb,&\n        & 8.786758e-01_rb,8.791746e-01_rb,8.801283e-01_rb,8.815955e-01_rb,8.836340e-01_rb,&\n        & 8.863024e-01_rb,8.896592e-01_rb,8.9376e-01_rb /)\n      asyliq1(:, 21) = (/ &\n        & 7.885899e-01_rb,7.937172e-01_rb,8.020658e-01_rb,8.123971e-01_rb,8.235502e-01_rb,&\n        & 8.343776e-01_rb,8.437336e-01_rb,8.504711e-01_rb,8.534421e-01_rb,8.514978e-01_rb,&\n        & 8.238888e-01_rb,8.417463e-01_rb,8.552057e-01_rb,8.647853e-01_rb,8.710038e-01_rb,&\n        & 8.743798e-01_rb,8.754319e-01_rb,8.746786e-01_rb,8.726386e-01_rb,8.698303e-01_rb,&\n        & 8.667724e-01_rb,8.639836e-01_rb,8.619823e-01_rb,8.612870e-01_rb,8.624165e-01_rb,&\n        & 8.658893e-01_rb,8.722241e-01_rb,8.819394e-01_rb,8.620216e-01_rb,8.671239e-01_rb,&\n        & 8.713983e-01_rb,8.749032e-01_rb,8.776970e-01_rb,8.798385e-01_rb,8.813860e-01_rb,&\n        & 8.823980e-01_rb,8.829332e-01_rb,8.830500e-01_rb,8.828068e-01_rb,8.822623e-01_rb,&\n        & 8.814750e-01_rb,8.805031e-01_rb,8.794056e-01_rb,8.782407e-01_rb,8.770672e-01_rb,&\n        & 8.759432e-01_rb,8.749275e-01_rb,8.740784e-01_rb,8.734547e-01_rb,8.731146e-01_rb,&\n        & 8.731170e-01_rb,8.735199e-01_rb,8.743823e-01_rb,8.757625e-01_rb,8.777191e-01_rb,&\n        & 8.803105e-01_rb,8.835953e-01_rb,8.8763e-01_rb /)\n      asyliq1(:, 22) = (/ &\n        & 7.811516e-01_rb,7.962229e-01_rb,8.096199e-01_rb,8.212996e-01_rb,8.312212e-01_rb,&\n        & 8.393430e-01_rb,8.456236e-01_rb,8.500214e-01_rb,8.524950e-01_rb,8.530031e-01_rb,&\n        & 8.251485e-01_rb,8.429043e-01_rb,8.562461e-01_rb,8.656954e-01_rb,8.717737e-01_rb,&\n        & 8.750020e-01_rb,8.759022e-01_rb,8.749953e-01_rb,8.728027e-01_rb,8.698461e-01_rb,&\n        & 8.666466e-01_rb,8.637257e-01_rb,8.616047e-01_rb,8.608051e-01_rb,8.618483e-01_rb,&\n        & 8.652557e-01_rb,8.715487e-01_rb,8.812485e-01_rb,8.611645e-01_rb,8.662052e-01_rb,&\n        & 8.704173e-01_rb,8.738594e-01_rb,8.765901e-01_rb,8.786678e-01_rb,8.801517e-01_rb,&\n        & 8.810999e-01_rb,8.815713e-01_rb,8.816246e-01_rb,8.813185e-01_rb,8.807114e-01_rb,&\n        & 8.798621e-01_rb,8.788290e-01_rb,8.776713e-01_rb,8.764470e-01_rb,8.752152e-01_rb,&\n        & 8.740343e-01_rb,8.729631e-01_rb,8.720602e-01_rb,8.713842e-01_rb,8.709936e-01_rb,&\n        & 8.709475e-01_rb,8.713041e-01_rb,8.721221e-01_rb,8.734602e-01_rb,8.753774e-01_rb,&\n        & 8.779319e-01_rb,8.811825e-01_rb,8.8519e-01_rb /)\n      asyliq1(:, 23) = (/ &\n        & 7.865744e-01_rb,8.093340e-01_rb,8.257596e-01_rb,8.369940e-01_rb,8.441574e-01_rb,&\n        & 8.483602e-01_rb,8.507096e-01_rb,8.523139e-01_rb,8.542834e-01_rb,8.577321e-01_rb,&\n        & 8.288960e-01_rb,8.465308e-01_rb,8.597175e-01_rb,8.689830e-01_rb,8.748542e-01_rb,&\n        & 8.778584e-01_rb,8.785222e-01_rb,8.773728e-01_rb,8.749370e-01_rb,8.717419e-01_rb,&\n        & 8.683145e-01_rb,8.651816e-01_rb,8.628704e-01_rb,8.619077e-01_rb,8.628205e-01_rb,&\n        & 8.661356e-01_rb,8.723803e-01_rb,8.820815e-01_rb,8.616715e-01_rb,8.666389e-01_rb,&\n        & 8.707753e-01_rb,8.741398e-01_rb,8.767912e-01_rb,8.787885e-01_rb,8.801908e-01_rb,&\n        & 8.810570e-01_rb,8.814460e-01_rb,8.814167e-01_rb,8.810283e-01_rb,8.803395e-01_rb,&\n        & 8.794095e-01_rb,8.782971e-01_rb,8.770613e-01_rb,8.757610e-01_rb,8.744553e-01_rb,&\n        & 8.732031e-01_rb,8.720634e-01_rb,8.710951e-01_rb,8.703572e-01_rb,8.699086e-01_rb,&\n        & 8.698084e-01_rb,8.701155e-01_rb,8.708887e-01_rb,8.721872e-01_rb,8.740698e-01_rb,&\n        & 8.765957e-01_rb,8.798235e-01_rb,8.8381e-01_rb /)\n      asyliq1(:, 24) = (/ &\n        & 8.069513e-01_rb,8.262939e-01_rb,8.398241e-01_rb,8.486352e-01_rb,8.538213e-01_rb,&\n        & 8.564743e-01_rb,8.576854e-01_rb,8.585455e-01_rb,8.601452e-01_rb,8.635755e-01_rb,&\n        & 8.337383e-01_rb,8.512655e-01_rb,8.643049e-01_rb,8.733896e-01_rb,8.790535e-01_rb,&\n        & 8.818295e-01_rb,8.822518e-01_rb,8.808533e-01_rb,8.781676e-01_rb,8.747284e-01_rb,&\n        & 8.710690e-01_rb,8.677229e-01_rb,8.652236e-01_rb,8.641047e-01_rb,8.648993e-01_rb,&\n        & 8.681413e-01_rb,8.743640e-01_rb,8.841007e-01_rb,8.633558e-01_rb,8.682719e-01_rb,&\n        & 8.723543e-01_rb,8.756621e-01_rb,8.782547e-01_rb,8.801915e-01_rb,8.815318e-01_rb,&\n        & 8.823347e-01_rb,8.826598e-01_rb,8.825663e-01_rb,8.821135e-01_rb,8.813608e-01_rb,&\n        & 8.803674e-01_rb,8.791928e-01_rb,8.778960e-01_rb,8.765366e-01_rb,8.751738e-01_rb,&\n        & 8.738670e-01_rb,8.726755e-01_rb,8.716585e-01_rb,8.708755e-01_rb,8.703856e-01_rb,&\n        & 8.702483e-01_rb,8.705229e-01_rb,8.712687e-01_rb,8.725448e-01_rb,8.744109e-01_rb,&\n        & 8.769260e-01_rb,8.801496e-01_rb,8.8414e-01_rb /)\n      asyliq1(:, 25) = (/ &\n        & 8.252182e-01_rb,8.379244e-01_rb,8.471709e-01_rb,8.535760e-01_rb,8.577540e-01_rb,&\n        & 8.603183e-01_rb,8.618820e-01_rb,8.630578e-01_rb,8.644587e-01_rb,8.666970e-01_rb,&\n        & 8.362159e-01_rb,8.536817e-01_rb,8.666387e-01_rb,8.756240e-01_rb,8.811746e-01_rb,&\n        & 8.838273e-01_rb,8.841191e-01_rb,8.825871e-01_rb,8.797681e-01_rb,8.761992e-01_rb,&\n        & 8.724174e-01_rb,8.689593e-01_rb,8.663623e-01_rb,8.651632e-01_rb,8.658988e-01_rb,&\n        & 8.691064e-01_rb,8.753226e-01_rb,8.850847e-01_rb,8.641620e-01_rb,8.690500e-01_rb,&\n        & 8.731026e-01_rb,8.763795e-01_rb,8.789400e-01_rb,8.808438e-01_rb,8.821503e-01_rb,&\n        & 8.829191e-01_rb,8.832095e-01_rb,8.830813e-01_rb,8.825938e-01_rb,8.818064e-01_rb,&\n        & 8.807787e-01_rb,8.795704e-01_rb,8.782408e-01_rb,8.768493e-01_rb,8.754557e-01_rb,&\n        & 8.741193e-01_rb,8.728995e-01_rb,8.718561e-01_rb,8.710484e-01_rb,8.705360e-01_rb,&\n        & 8.703782e-01_rb,8.706347e-01_rb,8.713650e-01_rb,8.726285e-01_rb,8.744849e-01_rb,&\n        & 8.769933e-01_rb,8.802136e-01_rb,8.8421e-01_rb /)\n      asyliq1(:, 26) = (/ &\n        & 8.370583e-01_rb,8.467920e-01_rb,8.537769e-01_rb,8.585136e-01_rb,8.615034e-01_rb,&\n        & 8.632474e-01_rb,8.642468e-01_rb,8.650026e-01_rb,8.660161e-01_rb,8.677882e-01_rb,&\n        & 8.369760e-01_rb,8.543821e-01_rb,8.672699e-01_rb,8.761782e-01_rb,8.816454e-01_rb,&\n        & 8.842103e-01_rb,8.844114e-01_rb,8.827872e-01_rb,8.798766e-01_rb,8.762179e-01_rb,&\n        & 8.723500e-01_rb,8.688112e-01_rb,8.661403e-01_rb,8.648758e-01_rb,8.655563e-01_rb,&\n        & 8.687206e-01_rb,8.749072e-01_rb,8.846546e-01_rb,8.636289e-01_rb,8.684849e-01_rb,&\n        & 8.725054e-01_rb,8.757501e-01_rb,8.782785e-01_rb,8.801503e-01_rb,8.814249e-01_rb,&\n        & 8.821620e-01_rb,8.824211e-01_rb,8.822620e-01_rb,8.817440e-01_rb,8.809268e-01_rb,&\n        & 8.798699e-01_rb,8.786330e-01_rb,8.772756e-01_rb,8.758572e-01_rb,8.744374e-01_rb,&\n        & 8.730760e-01_rb,8.718323e-01_rb,8.707660e-01_rb,8.699366e-01_rb,8.694039e-01_rb,&\n        & 8.692271e-01_rb,8.694661e-01_rb,8.701803e-01_rb,8.714293e-01_rb,8.732727e-01_rb,&\n        & 8.757702e-01_rb,8.789811e-01_rb,8.8297e-01_rb /)\n      asyliq1(:, 27) = (/ &\n        & 8.430819e-01_rb,8.510060e-01_rb,8.567270e-01_rb,8.606533e-01_rb,8.631934e-01_rb,&\n        & 8.647554e-01_rb,8.657471e-01_rb,8.665760e-01_rb,8.676496e-01_rb,8.693754e-01_rb,&\n        & 8.384298e-01_rb,8.557913e-01_rb,8.686214e-01_rb,8.774605e-01_rb,8.828495e-01_rb,&\n        & 8.853287e-01_rb,8.854393e-01_rb,8.837215e-01_rb,8.807161e-01_rb,8.769639e-01_rb,&\n        & 8.730053e-01_rb,8.693812e-01_rb,8.666321e-01_rb,8.652988e-01_rb,8.659219e-01_rb,&\n        & 8.690419e-01_rb,8.751999e-01_rb,8.849360e-01_rb,8.638013e-01_rb,8.686371e-01_rb,&\n        & 8.726369e-01_rb,8.758605e-01_rb,8.783674e-01_rb,8.802176e-01_rb,8.814705e-01_rb,&\n        & 8.821859e-01_rb,8.824234e-01_rb,8.822429e-01_rb,8.817038e-01_rb,8.808658e-01_rb,&\n        & 8.797887e-01_rb,8.785323e-01_rb,8.771560e-01_rb,8.757196e-01_rb,8.742828e-01_rb,&\n        & 8.729052e-01_rb,8.716467e-01_rb,8.705666e-01_rb,8.697250e-01_rb,8.691812e-01_rb,&\n        & 8.689950e-01_rb,8.692264e-01_rb,8.699346e-01_rb,8.711795e-01_rb,8.730209e-01_rb,&\n        & 8.755181e-01_rb,8.787312e-01_rb,8.8272e-01_rb /)\n      asyliq1(:, 28) = (/ &\n        & 8.452284e-01_rb,8.522700e-01_rb,8.572973e-01_rb,8.607031e-01_rb,8.628802e-01_rb,&\n        & 8.642215e-01_rb,8.651198e-01_rb,8.659679e-01_rb,8.671588e-01_rb,8.690853e-01_rb,&\n        & 8.383803e-01_rb,8.557485e-01_rb,8.685851e-01_rb,8.774303e-01_rb,8.828245e-01_rb,&\n        & 8.853077e-01_rb,8.854207e-01_rb,8.837034e-01_rb,8.806962e-01_rb,8.769398e-01_rb,&\n        & 8.729740e-01_rb,8.693393e-01_rb,8.665761e-01_rb,8.652247e-01_rb,8.658253e-01_rb,&\n        & 8.689182e-01_rb,8.750438e-01_rb,8.847424e-01_rb,8.636140e-01_rb,8.684449e-01_rb,&\n        & 8.724400e-01_rb,8.756589e-01_rb,8.781613e-01_rb,8.800072e-01_rb,8.812559e-01_rb,&\n        & 8.819671e-01_rb,8.822007e-01_rb,8.820165e-01_rb,8.814737e-01_rb,8.806322e-01_rb,&\n        & 8.795518e-01_rb,8.782923e-01_rb,8.769129e-01_rb,8.754737e-01_rb,8.740342e-01_rb,&\n        & 8.726542e-01_rb,8.713934e-01_rb,8.703111e-01_rb,8.694677e-01_rb,8.689222e-01_rb,&\n        & 8.687344e-01_rb,8.689646e-01_rb,8.696715e-01_rb,8.709156e-01_rb,8.727563e-01_rb,&\n        & 8.752531e-01_rb,8.784659e-01_rb,8.8245e-01_rb /)\n      asyliq1(:, 29) = (/ &\n        & 7.800869e-01_rb,8.091120e-01_rb,8.325369e-01_rb,8.466266e-01_rb,8.515495e-01_rb,&\n        & 8.499371e-01_rb,8.456203e-01_rb,8.430521e-01_rb,8.470286e-01_rb,8.625431e-01_rb,&\n        & 8.402261e-01_rb,8.610822e-01_rb,8.776608e-01_rb,8.904485e-01_rb,8.999294e-01_rb,&\n        & 9.065860e-01_rb,9.108995e-01_rb,9.133503e-01_rb,9.144187e-01_rb,9.145855e-01_rb,&\n        & 9.143320e-01_rb,9.141402e-01_rb,9.144933e-01_rb,9.158754e-01_rb,9.187716e-01_rb,&\n        & 9.236677e-01_rb,9.310503e-01_rb,9.414058e-01_rb,9.239108e-01_rb,9.300719e-01_rb,&\n        & 9.353612e-01_rb,9.398378e-01_rb,9.435609e-01_rb,9.465895e-01_rb,9.489829e-01_rb,&\n        & 9.508000e-01_rb,9.521002e-01_rb,9.529424e-01_rb,9.533860e-01_rb,9.534902e-01_rb,&\n        & 9.533143e-01_rb,9.529177e-01_rb,9.523596e-01_rb,9.516997e-01_rb,9.509973e-01_rb,&\n        & 9.503121e-01_rb,9.497037e-01_rb,9.492317e-01_rb,9.489558e-01_rb,9.489356e-01_rb,&\n        & 9.492311e-01_rb,9.499019e-01_rb,9.510077e-01_rb,9.526084e-01_rb,9.547636e-01_rb,&\n        & 9.575331e-01_rb,9.609766e-01_rb,9.6515e-01_rb /)\n\n! Spherical Ice Particle Parameterization\n! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]\n      extice2(:, 16) = (/ &\n! band 16\n        & 4.101824e-01_rb,2.435514e-01_rb,1.713697e-01_rb,1.314865e-01_rb,1.063406e-01_rb,&\n        & 8.910701e-02_rb,7.659480e-02_rb,6.711784e-02_rb,5.970353e-02_rb,5.375249e-02_rb,&\n        & 4.887577e-02_rb,4.481025e-02_rb,4.137171e-02_rb,3.842744e-02_rb,3.587948e-02_rb,&\n        & 3.365396e-02_rb,3.169419e-02_rb,2.995593e-02_rb,2.840419e-02_rb,2.701091e-02_rb,&\n        & 2.575336e-02_rb,2.461293e-02_rb,2.357423e-02_rb,2.262443e-02_rb,2.175276e-02_rb,&\n        & 2.095012e-02_rb,2.020875e-02_rb,1.952199e-02_rb,1.888412e-02_rb,1.829018e-02_rb,&\n        & 1.773586e-02_rb,1.721738e-02_rb,1.673144e-02_rb,1.627510e-02_rb,1.584579e-02_rb,&\n        & 1.544122e-02_rb,1.505934e-02_rb,1.469833e-02_rb,1.435654e-02_rb,1.403251e-02_rb,&\n        & 1.372492e-02_rb,1.343255e-02_rb,1.315433e-02_rb /)\n      extice2(:, 17) = (/ &\n! band 17\n        & 3.836650e-01_rb,2.304055e-01_rb,1.637265e-01_rb,1.266681e-01_rb,1.031602e-01_rb,&\n        & 8.695191e-02_rb,7.511544e-02_rb,6.610009e-02_rb,5.900909e-02_rb,5.328833e-02_rb,&\n        & 4.857728e-02_rb,4.463133e-02_rb,4.127880e-02_rb,3.839567e-02_rb,3.589013e-02_rb,&\n        & 3.369280e-02_rb,3.175027e-02_rb,3.002079e-02_rb,2.847121e-02_rb,2.707493e-02_rb,&\n        & 2.581031e-02_rb,2.465962e-02_rb,2.360815e-02_rb,2.264363e-02_rb,2.175571e-02_rb,&\n        & 2.093563e-02_rb,2.017592e-02_rb,1.947015e-02_rb,1.881278e-02_rb,1.819901e-02_rb,&\n        & 1.762463e-02_rb,1.708598e-02_rb,1.657982e-02_rb,1.610330e-02_rb,1.565390e-02_rb,&\n        & 1.522937e-02_rb,1.482768e-02_rb,1.444706e-02_rb,1.408588e-02_rb,1.374270e-02_rb,&\n        & 1.341619e-02_rb,1.310517e-02_rb,1.280857e-02_rb /)\n      extice2(:, 18) = (/ &\n! band 18\n        & 4.152673e-01_rb,2.436816e-01_rb,1.702243e-01_rb,1.299704e-01_rb,1.047528e-01_rb,&\n        & 8.756039e-02_rb,7.513327e-02_rb,6.575690e-02_rb,5.844616e-02_rb,5.259609e-02_rb,&\n        & 4.781531e-02_rb,4.383980e-02_rb,4.048517e-02_rb,3.761891e-02_rb,3.514342e-02_rb,&\n        & 3.298525e-02_rb,3.108814e-02_rb,2.940825e-02_rb,2.791096e-02_rb,2.656858e-02_rb,&\n        & 2.535869e-02_rb,2.426297e-02_rb,2.326627e-02_rb,2.235602e-02_rb,2.152164e-02_rb,&\n        & 2.075420e-02_rb,2.004613e-02_rb,1.939091e-02_rb,1.878296e-02_rb,1.821744e-02_rb,&\n        & 1.769015e-02_rb,1.719741e-02_rb,1.673600e-02_rb,1.630308e-02_rb,1.589615e-02_rb,&\n        & 1.551298e-02_rb,1.515159e-02_rb,1.481021e-02_rb,1.448726e-02_rb,1.418131e-02_rb,&\n        & 1.389109e-02_rb,1.361544e-02_rb,1.335330e-02_rb /)\n      extice2(:, 19) = (/ &\n! band 19\n        & 3.873250e-01_rb,2.331609e-01_rb,1.655002e-01_rb,1.277753e-01_rb,1.038247e-01_rb,&\n        & 8.731780e-02_rb,7.527638e-02_rb,6.611873e-02_rb,5.892850e-02_rb,5.313885e-02_rb,&\n        & 4.838068e-02_rb,4.440356e-02_rb,4.103167e-02_rb,3.813804e-02_rb,3.562870e-02_rb,&\n        & 3.343269e-02_rb,3.149539e-02_rb,2.977414e-02_rb,2.823510e-02_rb,2.685112e-02_rb,&\n        & 2.560015e-02_rb,2.446411e-02_rb,2.342805e-02_rb,2.247948e-02_rb,2.160789e-02_rb,&\n        & 2.080438e-02_rb,2.006139e-02_rb,1.937238e-02_rb,1.873177e-02_rb,1.813469e-02_rb,&\n        & 1.757689e-02_rb,1.705468e-02_rb,1.656479e-02_rb,1.610435e-02_rb,1.567081e-02_rb,&\n        & 1.526192e-02_rb,1.487565e-02_rb,1.451020e-02_rb,1.416396e-02_rb,1.383546e-02_rb,&\n        & 1.352339e-02_rb,1.322657e-02_rb,1.294392e-02_rb /)\n      extice2(:, 20) = (/ &\n! band 20\n        & 3.784280e-01_rb,2.291396e-01_rb,1.632551e-01_rb,1.263775e-01_rb,1.028944e-01_rb,&\n        & 8.666975e-02_rb,7.480952e-02_rb,6.577335e-02_rb,5.866714e-02_rb,5.293694e-02_rb,&\n        & 4.822153e-02_rb,4.427547e-02_rb,4.092626e-02_rb,3.804918e-02_rb,3.555184e-02_rb,&\n        & 3.336440e-02_rb,3.143307e-02_rb,2.971577e-02_rb,2.817912e-02_rb,2.679632e-02_rb,&\n        & 2.554558e-02_rb,2.440903e-02_rb,2.337187e-02_rb,2.242173e-02_rb,2.154821e-02_rb,&\n        & 2.074249e-02_rb,1.999706e-02_rb,1.930546e-02_rb,1.866212e-02_rb,1.806221e-02_rb,&\n        & 1.750152e-02_rb,1.697637e-02_rb,1.648352e-02_rb,1.602010e-02_rb,1.558358e-02_rb,&\n        & 1.517172e-02_rb,1.478250e-02_rb,1.441413e-02_rb,1.406498e-02_rb,1.373362e-02_rb,&\n        & 1.341872e-02_rb,1.311911e-02_rb,1.283371e-02_rb /)\n      extice2(:, 21) = (/ &\n! band 21\n        & 3.719909e-01_rb,2.259490e-01_rb,1.613144e-01_rb,1.250648e-01_rb,1.019462e-01_rb,&\n        & 8.595358e-02_rb,7.425064e-02_rb,6.532618e-02_rb,5.830218e-02_rb,5.263421e-02_rb,&\n        & 4.796697e-02_rb,4.405891e-02_rb,4.074013e-02_rb,3.788776e-02_rb,3.541071e-02_rb,&\n        & 3.324008e-02_rb,3.132280e-02_rb,2.961733e-02_rb,2.809071e-02_rb,2.671645e-02_rb,&\n        & 2.547302e-02_rb,2.434276e-02_rb,2.331102e-02_rb,2.236558e-02_rb,2.149614e-02_rb,&\n        & 2.069397e-02_rb,1.995163e-02_rb,1.926272e-02_rb,1.862174e-02_rb,1.802389e-02_rb,&\n        & 1.746500e-02_rb,1.694142e-02_rb,1.644994e-02_rb,1.598772e-02_rb,1.555225e-02_rb,&\n        & 1.514129e-02_rb,1.475286e-02_rb,1.438515e-02_rb,1.403659e-02_rb,1.370572e-02_rb,&\n        & 1.339124e-02_rb,1.309197e-02_rb,1.280685e-02_rb /)\n      extice2(:, 22) = (/ &\n! band 22\n        & 3.713158e-01_rb,2.253816e-01_rb,1.608461e-01_rb,1.246718e-01_rb,1.016109e-01_rb,&\n        & 8.566332e-02_rb,7.399666e-02_rb,6.510199e-02_rb,5.810290e-02_rb,5.245608e-02_rb,&\n        & 4.780702e-02_rb,4.391478e-02_rb,4.060989e-02_rb,3.776982e-02_rb,3.530374e-02_rb,&\n        & 3.314296e-02_rb,3.123458e-02_rb,2.953719e-02_rb,2.801794e-02_rb,2.665043e-02_rb,&\n        & 2.541321e-02_rb,2.428868e-02_rb,2.326224e-02_rb,2.232173e-02_rb,2.145688e-02_rb,&\n        & 2.065899e-02_rb,1.992067e-02_rb,1.923552e-02_rb,1.859808e-02_rb,1.800356e-02_rb,&\n        & 1.744782e-02_rb,1.692721e-02_rb,1.643855e-02_rb,1.597900e-02_rb,1.554606e-02_rb,&\n        & 1.513751e-02_rb,1.475137e-02_rb,1.438586e-02_rb,1.403938e-02_rb,1.371050e-02_rb,&\n        & 1.339793e-02_rb,1.310050e-02_rb,1.281713e-02_rb /)\n      extice2(:, 23) = (/ &\n! band 23\n        & 3.605883e-01_rb,2.204388e-01_rb,1.580431e-01_rb,1.229033e-01_rb,1.004203e-01_rb,&\n        & 8.482616e-02_rb,7.338941e-02_rb,6.465105e-02_rb,5.776176e-02_rb,5.219398e-02_rb,&\n        & 4.760288e-02_rb,4.375369e-02_rb,4.048111e-02_rb,3.766539e-02_rb,3.521771e-02_rb,&\n        & 3.307079e-02_rb,3.117277e-02_rb,2.948303e-02_rb,2.796929e-02_rb,2.660560e-02_rb,&\n        & 2.537086e-02_rb,2.424772e-02_rb,2.322182e-02_rb,2.228114e-02_rb,2.141556e-02_rb,&\n        & 2.061649e-02_rb,1.987661e-02_rb,1.918962e-02_rb,1.855009e-02_rb,1.795330e-02_rb,&\n        & 1.739514e-02_rb,1.687199e-02_rb,1.638069e-02_rb,1.591845e-02_rb,1.548276e-02_rb,&\n        & 1.507143e-02_rb,1.468249e-02_rb,1.431416e-02_rb,1.396486e-02_rb,1.363318e-02_rb,&\n        & 1.331781e-02_rb,1.301759e-02_rb,1.273147e-02_rb /)\n      extice2(:, 24) = (/ &\n! band 24\n        & 3.527890e-01_rb,2.168469e-01_rb,1.560090e-01_rb,1.216216e-01_rb,9.955787e-02_rb,&\n        & 8.421942e-02_rb,7.294827e-02_rb,6.432192e-02_rb,5.751081e-02_rb,5.199888e-02_rb,&\n        & 4.744835e-02_rb,4.362899e-02_rb,4.037847e-02_rb,3.757910e-02_rb,3.514351e-02_rb,&\n        & 3.300546e-02_rb,3.111382e-02_rb,2.942853e-02_rb,2.791775e-02_rb,2.655584e-02_rb,&\n        & 2.532195e-02_rb,2.419892e-02_rb,2.317255e-02_rb,2.223092e-02_rb,2.136402e-02_rb,&\n        & 2.056334e-02_rb,1.982160e-02_rb,1.913258e-02_rb,1.849087e-02_rb,1.789178e-02_rb,&\n        & 1.733124e-02_rb,1.680565e-02_rb,1.631187e-02_rb,1.584711e-02_rb,1.540889e-02_rb,&\n        & 1.499502e-02_rb,1.460354e-02_rb,1.423269e-02_rb,1.388088e-02_rb,1.354670e-02_rb,&\n        & 1.322887e-02_rb,1.292620e-02_rb,1.263767e-02_rb /)\n      extice2(:, 25) = (/ &\n! band 25\n        & 3.477874e-01_rb,2.143515e-01_rb,1.544887e-01_rb,1.205942e-01_rb,9.881779e-02_rb,&\n        & 8.366261e-02_rb,7.251586e-02_rb,6.397790e-02_rb,5.723183e-02_rb,5.176908e-02_rb,&\n        & 4.725658e-02_rb,4.346715e-02_rb,4.024055e-02_rb,3.746055e-02_rb,3.504080e-02_rb,&\n        & 3.291583e-02_rb,3.103507e-02_rb,2.935891e-02_rb,2.785582e-02_rb,2.650042e-02_rb,&\n        & 2.527206e-02_rb,2.415376e-02_rb,2.313142e-02_rb,2.219326e-02_rb,2.132934e-02_rb,&\n        & 2.053122e-02_rb,1.979169e-02_rb,1.910456e-02_rb,1.846448e-02_rb,1.786680e-02_rb,&\n        & 1.730745e-02_rb,1.678289e-02_rb,1.628998e-02_rb,1.582595e-02_rb,1.538835e-02_rb,&\n        & 1.497499e-02_rb,1.458393e-02_rb,1.421341e-02_rb,1.386187e-02_rb,1.352788e-02_rb,&\n        & 1.321019e-02_rb,1.290762e-02_rb,1.261913e-02_rb /)\n      extice2(:, 26) = (/ &\n! band 26\n        & 3.453721e-01_rb,2.130744e-01_rb,1.536698e-01_rb,1.200140e-01_rb,9.838078e-02_rb,&\n        & 8.331940e-02_rb,7.223803e-02_rb,6.374775e-02_rb,5.703770e-02_rb,5.160290e-02_rb,&\n        & 4.711259e-02_rb,4.334110e-02_rb,4.012923e-02_rb,3.736150e-02_rb,3.495208e-02_rb,&\n        & 3.283589e-02_rb,3.096267e-02_rb,2.929302e-02_rb,2.779560e-02_rb,2.644517e-02_rb,&\n        & 2.522119e-02_rb,2.410677e-02_rb,2.308788e-02_rb,2.215281e-02_rb,2.129165e-02_rb,&\n        & 2.049602e-02_rb,1.975874e-02_rb,1.907365e-02_rb,1.843542e-02_rb,1.783943e-02_rb,&\n        & 1.728162e-02_rb,1.675847e-02_rb,1.626685e-02_rb,1.580401e-02_rb,1.536750e-02_rb,&\n        & 1.495515e-02_rb,1.456502e-02_rb,1.419537e-02_rb,1.384463e-02_rb,1.351139e-02_rb,&\n        & 1.319438e-02_rb,1.289246e-02_rb,1.260456e-02_rb /)\n      extice2(:, 27) = (/ &\n! band 27\n        & 3.417883e-01_rb,2.113379e-01_rb,1.526395e-01_rb,1.193347e-01_rb,9.790253e-02_rb,&\n        & 8.296715e-02_rb,7.196979e-02_rb,6.353806e-02_rb,5.687024e-02_rb,5.146670e-02_rb,&\n        & 4.700001e-02_rb,4.324667e-02_rb,4.004894e-02_rb,3.729233e-02_rb,3.489172e-02_rb,&\n        & 3.278257e-02_rb,3.091499e-02_rb,2.924987e-02_rb,2.775609e-02_rb,2.640859e-02_rb,&\n        & 2.518695e-02_rb,2.407439e-02_rb,2.305697e-02_rb,2.212303e-02_rb,2.126273e-02_rb,&\n        & 2.046774e-02_rb,1.973090e-02_rb,1.904610e-02_rb,1.840801e-02_rb,1.781204e-02_rb,&\n        & 1.725417e-02_rb,1.673086e-02_rb,1.623902e-02_rb,1.577590e-02_rb,1.533906e-02_rb,&\n        & 1.492634e-02_rb,1.453580e-02_rb,1.416571e-02_rb,1.381450e-02_rb,1.348078e-02_rb,&\n        & 1.316327e-02_rb,1.286082e-02_rb,1.257240e-02_rb /)\n      extice2(:, 28) = (/ &\n! band 28\n        & 3.416111e-01_rb,2.114124e-01_rb,1.527734e-01_rb,1.194809e-01_rb,9.804612e-02_rb,&\n        & 8.310287e-02_rb,7.209595e-02_rb,6.365442e-02_rb,5.697710e-02_rb,5.156460e-02_rb,&\n        & 4.708957e-02_rb,4.332850e-02_rb,4.012361e-02_rb,3.736037e-02_rb,3.495364e-02_rb,&\n        & 3.283879e-02_rb,3.096593e-02_rb,2.929589e-02_rb,2.779751e-02_rb,2.644571e-02_rb,&\n        & 2.522004e-02_rb,2.410369e-02_rb,2.308271e-02_rb,2.214542e-02_rb,2.128195e-02_rb,&\n        & 2.048396e-02_rb,1.974429e-02_rb,1.905679e-02_rb,1.841614e-02_rb,1.781774e-02_rb,&\n        & 1.725754e-02_rb,1.673203e-02_rb,1.623807e-02_rb,1.577293e-02_rb,1.533416e-02_rb,&\n        & 1.491958e-02_rb,1.452727e-02_rb,1.415547e-02_rb,1.380262e-02_rb,1.346732e-02_rb,&\n        & 1.314830e-02_rb,1.284439e-02_rb,1.255456e-02_rb /)\n      extice2(:, 29) = (/ &\n! band 29\n        & 4.196611e-01_rb,2.493642e-01_rb,1.761261e-01_rb,1.357197e-01_rb,1.102161e-01_rb,&\n        & 9.269376e-02_rb,7.992985e-02_rb,7.022538e-02_rb,6.260168e-02_rb,5.645603e-02_rb,&\n        & 5.139732e-02_rb,4.716088e-02_rb,4.356133e-02_rb,4.046498e-02_rb,3.777303e-02_rb,&\n        & 3.541094e-02_rb,3.332137e-02_rb,3.145954e-02_rb,2.978998e-02_rb,2.828419e-02_rb,&\n        & 2.691905e-02_rb,2.567559e-02_rb,2.453811e-02_rb,2.349350e-02_rb,2.253072e-02_rb,&\n        & 2.164042e-02_rb,2.081464e-02_rb,2.004652e-02_rb,1.933015e-02_rb,1.866041e-02_rb,&\n        & 1.803283e-02_rb,1.744348e-02_rb,1.688894e-02_rb,1.636616e-02_rb,1.587244e-02_rb,&\n        & 1.540539e-02_rb,1.496287e-02_rb,1.454295e-02_rb,1.414392e-02_rb,1.376423e-02_rb,&\n        & 1.340247e-02_rb,1.305739e-02_rb,1.272784e-02_rb /)\n\n! single-scattering albedo: unitless\n      ssaice2(:, 16) = (/ &\n! band 16\n        & 6.630615e-01_rb,6.451169e-01_rb,6.333696e-01_rb,6.246927e-01_rb,6.178420e-01_rb,&\n        & 6.121976e-01_rb,6.074069e-01_rb,6.032505e-01_rb,5.995830e-01_rb,5.963030e-01_rb,&\n        & 5.933372e-01_rb,5.906311e-01_rb,5.881427e-01_rb,5.858395e-01_rb,5.836955e-01_rb,&\n        & 5.816896e-01_rb,5.798046e-01_rb,5.780264e-01_rb,5.763429e-01_rb,5.747441e-01_rb,&\n        & 5.732213e-01_rb,5.717672e-01_rb,5.703754e-01_rb,5.690403e-01_rb,5.677571e-01_rb,&\n        & 5.665215e-01_rb,5.653297e-01_rb,5.641782e-01_rb,5.630643e-01_rb,5.619850e-01_rb,&\n        & 5.609381e-01_rb,5.599214e-01_rb,5.589328e-01_rb,5.579707e-01_rb,5.570333e-01_rb,&\n        & 5.561193e-01_rb,5.552272e-01_rb,5.543558e-01_rb,5.535041e-01_rb,5.526708e-01_rb,&\n        & 5.518551e-01_rb,5.510561e-01_rb,5.502729e-01_rb /)\n      ssaice2(:, 17) = (/ &\n! band 17\n        & 7.689749e-01_rb,7.398171e-01_rb,7.205819e-01_rb,7.065690e-01_rb,6.956928e-01_rb,&\n        & 6.868989e-01_rb,6.795813e-01_rb,6.733606e-01_rb,6.679838e-01_rb,6.632742e-01_rb,&\n        & 6.591036e-01_rb,6.553766e-01_rb,6.520197e-01_rb,6.489757e-01_rb,6.461991e-01_rb,&\n        & 6.436531e-01_rb,6.413075e-01_rb,6.391375e-01_rb,6.371221e-01_rb,6.352438e-01_rb,&\n        & 6.334876e-01_rb,6.318406e-01_rb,6.302918e-01_rb,6.288315e-01_rb,6.274512e-01_rb,&\n        & 6.261436e-01_rb,6.249022e-01_rb,6.237211e-01_rb,6.225953e-01_rb,6.215201e-01_rb,&\n        & 6.204914e-01_rb,6.195055e-01_rb,6.185592e-01_rb,6.176492e-01_rb,6.167730e-01_rb,&\n        & 6.159280e-01_rb,6.151120e-01_rb,6.143228e-01_rb,6.135587e-01_rb,6.128177e-01_rb,&\n        & 6.120984e-01_rb,6.113993e-01_rb,6.107189e-01_rb /)\n      ssaice2(:, 18) = (/ &\n! band 18\n        & 9.956167e-01_rb,9.814770e-01_rb,9.716104e-01_rb,9.639746e-01_rb,9.577179e-01_rb,&\n        & 9.524010e-01_rb,9.477672e-01_rb,9.436527e-01_rb,9.399467e-01_rb,9.365708e-01_rb,&\n        & 9.334672e-01_rb,9.305921e-01_rb,9.279118e-01_rb,9.253993e-01_rb,9.230330e-01_rb,&\n        & 9.207954e-01_rb,9.186719e-01_rb,9.166501e-01_rb,9.147199e-01_rb,9.128722e-01_rb,&\n        & 9.110997e-01_rb,9.093956e-01_rb,9.077544e-01_rb,9.061708e-01_rb,9.046406e-01_rb,&\n        & 9.031598e-01_rb,9.017248e-01_rb,9.003326e-01_rb,8.989804e-01_rb,8.976655e-01_rb,&\n        & 8.963857e-01_rb,8.951389e-01_rb,8.939233e-01_rb,8.927370e-01_rb,8.915785e-01_rb,&\n        & 8.904464e-01_rb,8.893392e-01_rb,8.882559e-01_rb,8.871951e-01_rb,8.861559e-01_rb,&\n        & 8.851373e-01_rb,8.841383e-01_rb,8.831581e-01_rb /)\n      ssaice2(:, 19) = (/ &\n! band 19\n        & 9.723177e-01_rb,9.452119e-01_rb,9.267592e-01_rb,9.127393e-01_rb,9.014238e-01_rb,&\n        & 8.919334e-01_rb,8.837584e-01_rb,8.765773e-01_rb,8.701736e-01_rb,8.643950e-01_rb,&\n        & 8.591299e-01_rb,8.542942e-01_rb,8.498230e-01_rb,8.456651e-01_rb,8.417794e-01_rb,&\n        & 8.381324e-01_rb,8.346964e-01_rb,8.314484e-01_rb,8.283687e-01_rb,8.254408e-01_rb,&\n        & 8.226505e-01_rb,8.199854e-01_rb,8.174348e-01_rb,8.149891e-01_rb,8.126403e-01_rb,&\n        & 8.103808e-01_rb,8.082041e-01_rb,8.061044e-01_rb,8.040765e-01_rb,8.021156e-01_rb,&\n        & 8.002174e-01_rb,7.983781e-01_rb,7.965941e-01_rb,7.948622e-01_rb,7.931795e-01_rb,&\n        & 7.915432e-01_rb,7.899508e-01_rb,7.884002e-01_rb,7.868891e-01_rb,7.854156e-01_rb,&\n        & 7.839779e-01_rb,7.825742e-01_rb,7.812031e-01_rb /)\n      ssaice2(:, 20) = (/ &\n! band 20\n        & 9.933294e-01_rb,9.860917e-01_rb,9.811564e-01_rb,9.774008e-01_rb,9.743652e-01_rb,&\n        & 9.718155e-01_rb,9.696159e-01_rb,9.676810e-01_rb,9.659531e-01_rb,9.643915e-01_rb,&\n        & 9.629667e-01_rb,9.616561e-01_rb,9.604426e-01_rb,9.593125e-01_rb,9.582548e-01_rb,&\n        & 9.572607e-01_rb,9.563227e-01_rb,9.554347e-01_rb,9.545915e-01_rb,9.537888e-01_rb,&\n        & 9.530226e-01_rb,9.522898e-01_rb,9.515874e-01_rb,9.509130e-01_rb,9.502643e-01_rb,&\n        & 9.496394e-01_rb,9.490366e-01_rb,9.484542e-01_rb,9.478910e-01_rb,9.473456e-01_rb,&\n        & 9.468169e-01_rb,9.463039e-01_rb,9.458056e-01_rb,9.453212e-01_rb,9.448499e-01_rb,&\n        & 9.443910e-01_rb,9.439438e-01_rb,9.435077e-01_rb,9.430821e-01_rb,9.426666e-01_rb,&\n        & 9.422607e-01_rb,9.418638e-01_rb,9.414756e-01_rb /)\n      ssaice2(:, 21) = (/ &\n! band 21\n        & 9.900787e-01_rb,9.828880e-01_rb,9.779258e-01_rb,9.741173e-01_rb,9.710184e-01_rb,&\n        & 9.684012e-01_rb,9.661332e-01_rb,9.641301e-01_rb,9.623352e-01_rb,9.607083e-01_rb,&\n        & 9.592198e-01_rb,9.578474e-01_rb,9.565739e-01_rb,9.553856e-01_rb,9.542715e-01_rb,&\n        & 9.532226e-01_rb,9.522314e-01_rb,9.512919e-01_rb,9.503986e-01_rb,9.495472e-01_rb,&\n        & 9.487337e-01_rb,9.479549e-01_rb,9.472077e-01_rb,9.464897e-01_rb,9.457985e-01_rb,&\n        & 9.451322e-01_rb,9.444890e-01_rb,9.438673e-01_rb,9.432656e-01_rb,9.426826e-01_rb,&\n        & 9.421173e-01_rb,9.415684e-01_rb,9.410351e-01_rb,9.405164e-01_rb,9.400115e-01_rb,&\n        & 9.395198e-01_rb,9.390404e-01_rb,9.385728e-01_rb,9.381164e-01_rb,9.376707e-01_rb,&\n        & 9.372350e-01_rb,9.368091e-01_rb,9.363923e-01_rb /)\n      ssaice2(:, 22) = (/ &\n! band 22\n        & 9.986793e-01_rb,9.985239e-01_rb,9.983911e-01_rb,9.982715e-01_rb,9.981606e-01_rb,&\n        & 9.980562e-01_rb,9.979567e-01_rb,9.978613e-01_rb,9.977691e-01_rb,9.976798e-01_rb,&\n        & 9.975929e-01_rb,9.975081e-01_rb,9.974251e-01_rb,9.973438e-01_rb,9.972640e-01_rb,&\n        & 9.971855e-01_rb,9.971083e-01_rb,9.970322e-01_rb,9.969571e-01_rb,9.968830e-01_rb,&\n        & 9.968099e-01_rb,9.967375e-01_rb,9.966660e-01_rb,9.965951e-01_rb,9.965250e-01_rb,&\n        & 9.964555e-01_rb,9.963867e-01_rb,9.963185e-01_rb,9.962508e-01_rb,9.961836e-01_rb,&\n        & 9.961170e-01_rb,9.960508e-01_rb,9.959851e-01_rb,9.959198e-01_rb,9.958550e-01_rb,&\n        & 9.957906e-01_rb,9.957266e-01_rb,9.956629e-01_rb,9.955997e-01_rb,9.955367e-01_rb,&\n        & 9.954742e-01_rb,9.954119e-01_rb,9.953500e-01_rb /)\n      ssaice2(:, 23) = (/ &\n! band 23\n        & 9.997944e-01_rb,9.997791e-01_rb,9.997664e-01_rb,9.997547e-01_rb,9.997436e-01_rb,&\n        & 9.997327e-01_rb,9.997219e-01_rb,9.997110e-01_rb,9.996999e-01_rb,9.996886e-01_rb,&\n        & 9.996771e-01_rb,9.996653e-01_rb,9.996533e-01_rb,9.996409e-01_rb,9.996282e-01_rb,&\n        & 9.996152e-01_rb,9.996019e-01_rb,9.995883e-01_rb,9.995743e-01_rb,9.995599e-01_rb,&\n        & 9.995453e-01_rb,9.995302e-01_rb,9.995149e-01_rb,9.994992e-01_rb,9.994831e-01_rb,&\n        & 9.994667e-01_rb,9.994500e-01_rb,9.994329e-01_rb,9.994154e-01_rb,9.993976e-01_rb,&\n        & 9.993795e-01_rb,9.993610e-01_rb,9.993422e-01_rb,9.993230e-01_rb,9.993035e-01_rb,&\n        & 9.992837e-01_rb,9.992635e-01_rb,9.992429e-01_rb,9.992221e-01_rb,9.992008e-01_rb,&\n        & 9.991793e-01_rb,9.991574e-01_rb,9.991352e-01_rb /)\n      ssaice2(:, 24) = (/ &\n! band 24\n        & 9.999949e-01_rb,9.999947e-01_rb,9.999943e-01_rb,9.999939e-01_rb,9.999934e-01_rb,&\n        & 9.999927e-01_rb,9.999920e-01_rb,9.999913e-01_rb,9.999904e-01_rb,9.999895e-01_rb,&\n        & 9.999885e-01_rb,9.999874e-01_rb,9.999863e-01_rb,9.999851e-01_rb,9.999838e-01_rb,&\n        & 9.999824e-01_rb,9.999810e-01_rb,9.999795e-01_rb,9.999780e-01_rb,9.999764e-01_rb,&\n        & 9.999747e-01_rb,9.999729e-01_rb,9.999711e-01_rb,9.999692e-01_rb,9.999673e-01_rb,&\n        & 9.999653e-01_rb,9.999632e-01_rb,9.999611e-01_rb,9.999589e-01_rb,9.999566e-01_rb,&\n        & 9.999543e-01_rb,9.999519e-01_rb,9.999495e-01_rb,9.999470e-01_rb,9.999444e-01_rb,&\n        & 9.999418e-01_rb,9.999392e-01_rb,9.999364e-01_rb,9.999336e-01_rb,9.999308e-01_rb,&\n        & 9.999279e-01_rb,9.999249e-01_rb,9.999219e-01_rb /)\n      ssaice2(:, 25) = (/ &\n! band 25\n        & 9.999997e-01_rb,9.999997e-01_rb,9.999997e-01_rb,9.999996e-01_rb,9.999996e-01_rb,&\n        & 9.999995e-01_rb,9.999994e-01_rb,9.999993e-01_rb,9.999993e-01_rb,9.999992e-01_rb,&\n        & 9.999991e-01_rb,9.999989e-01_rb,9.999988e-01_rb,9.999987e-01_rb,9.999986e-01_rb,&\n        & 9.999984e-01_rb,9.999983e-01_rb,9.999981e-01_rb,9.999980e-01_rb,9.999978e-01_rb,&\n        & 9.999976e-01_rb,9.999974e-01_rb,9.999972e-01_rb,9.999971e-01_rb,9.999969e-01_rb,&\n        & 9.999966e-01_rb,9.999964e-01_rb,9.999962e-01_rb,9.999960e-01_rb,9.999957e-01_rb,&\n        & 9.999955e-01_rb,9.999953e-01_rb,9.999950e-01_rb,9.999947e-01_rb,9.999945e-01_rb,&\n        & 9.999942e-01_rb,9.999939e-01_rb,9.999936e-01_rb,9.999934e-01_rb,9.999931e-01_rb,&\n        & 9.999928e-01_rb,9.999925e-01_rb,9.999921e-01_rb /)\n      ssaice2(:, 26) = (/ &\n! band 26\n        & 9.999997e-01_rb,9.999996e-01_rb,9.999996e-01_rb,9.999995e-01_rb,9.999994e-01_rb,&\n        & 9.999993e-01_rb,9.999992e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&\n        & 9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,9.999982e-01_rb,9.999980e-01_rb,&\n        & 9.999978e-01_rb,9.999976e-01_rb,9.999974e-01_rb,9.999972e-01_rb,9.999970e-01_rb,&\n        & 9.999967e-01_rb,9.999965e-01_rb,9.999962e-01_rb,9.999959e-01_rb,9.999956e-01_rb,&\n        & 9.999954e-01_rb,9.999951e-01_rb,9.999947e-01_rb,9.999944e-01_rb,9.999941e-01_rb,&\n        & 9.999938e-01_rb,9.999934e-01_rb,9.999931e-01_rb,9.999927e-01_rb,9.999923e-01_rb,&\n        & 9.999920e-01_rb,9.999916e-01_rb,9.999912e-01_rb,9.999908e-01_rb,9.999904e-01_rb,&\n        & 9.999899e-01_rb,9.999895e-01_rb,9.999891e-01_rb /)\n      ssaice2(:, 27) = (/ &\n! band 27\n        & 9.999987e-01_rb,9.999987e-01_rb,9.999985e-01_rb,9.999984e-01_rb,9.999982e-01_rb,&\n        & 9.999980e-01_rb,9.999978e-01_rb,9.999976e-01_rb,9.999973e-01_rb,9.999970e-01_rb,&\n        & 9.999967e-01_rb,9.999964e-01_rb,9.999960e-01_rb,9.999956e-01_rb,9.999952e-01_rb,&\n        & 9.999948e-01_rb,9.999944e-01_rb,9.999939e-01_rb,9.999934e-01_rb,9.999929e-01_rb,&\n        & 9.999924e-01_rb,9.999918e-01_rb,9.999913e-01_rb,9.999907e-01_rb,9.999901e-01_rb,&\n        & 9.999894e-01_rb,9.999888e-01_rb,9.999881e-01_rb,9.999874e-01_rb,9.999867e-01_rb,&\n        & 9.999860e-01_rb,9.999853e-01_rb,9.999845e-01_rb,9.999837e-01_rb,9.999829e-01_rb,&\n        & 9.999821e-01_rb,9.999813e-01_rb,9.999804e-01_rb,9.999796e-01_rb,9.999787e-01_rb,&\n        & 9.999778e-01_rb,9.999768e-01_rb,9.999759e-01_rb /)\n      ssaice2(:, 28) = (/ &\n! band 28\n        & 9.999989e-01_rb,9.999989e-01_rb,9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,&\n        & 9.999982e-01_rb,9.999980e-01_rb,9.999978e-01_rb,9.999975e-01_rb,9.999972e-01_rb,&\n        & 9.999969e-01_rb,9.999966e-01_rb,9.999962e-01_rb,9.999958e-01_rb,9.999954e-01_rb,&\n        & 9.999950e-01_rb,9.999945e-01_rb,9.999941e-01_rb,9.999936e-01_rb,9.999931e-01_rb,&\n        & 9.999925e-01_rb,9.999920e-01_rb,9.999914e-01_rb,9.999908e-01_rb,9.999902e-01_rb,&\n        & 9.999896e-01_rb,9.999889e-01_rb,9.999883e-01_rb,9.999876e-01_rb,9.999869e-01_rb,&\n        & 9.999861e-01_rb,9.999854e-01_rb,9.999846e-01_rb,9.999838e-01_rb,9.999830e-01_rb,&\n        & 9.999822e-01_rb,9.999814e-01_rb,9.999805e-01_rb,9.999796e-01_rb,9.999787e-01_rb,&\n        & 9.999778e-01_rb,9.999769e-01_rb,9.999759e-01_rb /)\n      ssaice2(:, 29) = (/ &\n! band 29\n        & 7.042143e-01_rb,6.691161e-01_rb,6.463240e-01_rb,6.296590e-01_rb,6.166381e-01_rb,&\n        & 6.060183e-01_rb,5.970908e-01_rb,5.894144e-01_rb,5.826968e-01_rb,5.767343e-01_rb,&\n        & 5.713804e-01_rb,5.665256e-01_rb,5.620867e-01_rb,5.579987e-01_rb,5.542101e-01_rb,&\n        & 5.506794e-01_rb,5.473727e-01_rb,5.442620e-01_rb,5.413239e-01_rb,5.385389e-01_rb,&\n        & 5.358901e-01_rb,5.333633e-01_rb,5.309460e-01_rb,5.286277e-01_rb,5.263988e-01_rb,&\n        & 5.242512e-01_rb,5.221777e-01_rb,5.201719e-01_rb,5.182280e-01_rb,5.163410e-01_rb,&\n        & 5.145062e-01_rb,5.127197e-01_rb,5.109776e-01_rb,5.092766e-01_rb,5.076137e-01_rb,&\n        & 5.059860e-01_rb,5.043911e-01_rb,5.028266e-01_rb,5.012904e-01_rb,4.997805e-01_rb,&\n        & 4.982951e-01_rb,4.968326e-01_rb,4.953913e-01_rb /)\n\n! asymmetry factor: unitless\n      asyice2(:, 16) = (/ &\n! band 16\n        & 7.946655e-01_rb,8.547685e-01_rb,8.806016e-01_rb,8.949880e-01_rb,9.041676e-01_rb,&\n        & 9.105399e-01_rb,9.152249e-01_rb,9.188160e-01_rb,9.216573e-01_rb,9.239620e-01_rb,&\n        & 9.258695e-01_rb,9.274745e-01_rb,9.288441e-01_rb,9.300267e-01_rb,9.310584e-01_rb,&\n        & 9.319665e-01_rb,9.327721e-01_rb,9.334918e-01_rb,9.341387e-01_rb,9.347236e-01_rb,&\n        & 9.352551e-01_rb,9.357402e-01_rb,9.361850e-01_rb,9.365942e-01_rb,9.369722e-01_rb,&\n        & 9.373225e-01_rb,9.376481e-01_rb,9.379516e-01_rb,9.382352e-01_rb,9.385010e-01_rb,&\n        & 9.387505e-01_rb,9.389854e-01_rb,9.392070e-01_rb,9.394163e-01_rb,9.396145e-01_rb,&\n        & 9.398024e-01_rb,9.399809e-01_rb,9.401508e-01_rb,9.403126e-01_rb,9.404670e-01_rb,&\n        & 9.406144e-01_rb,9.407555e-01_rb,9.408906e-01_rb /)\n      asyice2(:, 17) = (/ &\n! band 17\n        & 9.078091e-01_rb,9.195850e-01_rb,9.267250e-01_rb,9.317083e-01_rb,9.354632e-01_rb,&\n        & 9.384323e-01_rb,9.408597e-01_rb,9.428935e-01_rb,9.446301e-01_rb,9.461351e-01_rb,&\n        & 9.474555e-01_rb,9.486259e-01_rb,9.496722e-01_rb,9.506146e-01_rb,9.514688e-01_rb,&\n        & 9.522476e-01_rb,9.529612e-01_rb,9.536181e-01_rb,9.542251e-01_rb,9.547883e-01_rb,&\n        & 9.553124e-01_rb,9.558019e-01_rb,9.562601e-01_rb,9.566904e-01_rb,9.570953e-01_rb,&\n        & 9.574773e-01_rb,9.578385e-01_rb,9.581806e-01_rb,9.585054e-01_rb,9.588142e-01_rb,&\n        & 9.591083e-01_rb,9.593888e-01_rb,9.596569e-01_rb,9.599135e-01_rb,9.601593e-01_rb,&\n        & 9.603952e-01_rb,9.606219e-01_rb,9.608399e-01_rb,9.610499e-01_rb,9.612523e-01_rb,&\n        & 9.614477e-01_rb,9.616365e-01_rb,9.618192e-01_rb /)\n      asyice2(:, 18) = (/ &\n! band 18\n        & 8.322045e-01_rb,8.528693e-01_rb,8.648167e-01_rb,8.729163e-01_rb,8.789054e-01_rb,&\n        & 8.835845e-01_rb,8.873819e-01_rb,8.905511e-01_rb,8.932532e-01_rb,8.955965e-01_rb,&\n        & 8.976567e-01_rb,8.994887e-01_rb,9.011334e-01_rb,9.026221e-01_rb,9.039791e-01_rb,&\n        & 9.052237e-01_rb,9.063715e-01_rb,9.074349e-01_rb,9.084245e-01_rb,9.093489e-01_rb,&\n        & 9.102154e-01_rb,9.110303e-01_rb,9.117987e-01_rb,9.125253e-01_rb,9.132140e-01_rb,&\n        & 9.138682e-01_rb,9.144910e-01_rb,9.150850e-01_rb,9.156524e-01_rb,9.161955e-01_rb,&\n        & 9.167160e-01_rb,9.172157e-01_rb,9.176959e-01_rb,9.181581e-01_rb,9.186034e-01_rb,&\n        & 9.190330e-01_rb,9.194478e-01_rb,9.198488e-01_rb,9.202368e-01_rb,9.206126e-01_rb,&\n        & 9.209768e-01_rb,9.213301e-01_rb,9.216731e-01_rb /)\n      asyice2(:, 19) = (/ &\n! band 19\n        & 8.116560e-01_rb,8.488278e-01_rb,8.674331e-01_rb,8.788148e-01_rb,8.865810e-01_rb,&\n        & 8.922595e-01_rb,8.966149e-01_rb,9.000747e-01_rb,9.028980e-01_rb,9.052513e-01_rb,&\n        & 9.072468e-01_rb,9.089632e-01_rb,9.104574e-01_rb,9.117713e-01_rb,9.129371e-01_rb,&\n        & 9.139793e-01_rb,9.149174e-01_rb,9.157668e-01_rb,9.165400e-01_rb,9.172473e-01_rb,&\n        & 9.178970e-01_rb,9.184962e-01_rb,9.190508e-01_rb,9.195658e-01_rb,9.200455e-01_rb,&\n        & 9.204935e-01_rb,9.209130e-01_rb,9.213067e-01_rb,9.216771e-01_rb,9.220262e-01_rb,&\n        & 9.223560e-01_rb,9.226680e-01_rb,9.229636e-01_rb,9.232443e-01_rb,9.235112e-01_rb,&\n        & 9.237652e-01_rb,9.240074e-01_rb,9.242385e-01_rb,9.244594e-01_rb,9.246708e-01_rb,&\n        & 9.248733e-01_rb,9.250674e-01_rb,9.252536e-01_rb /)\n      asyice2(:, 20) = (/ &\n! band 20\n        & 8.047113e-01_rb,8.402864e-01_rb,8.570332e-01_rb,8.668455e-01_rb,8.733206e-01_rb,&\n        & 8.779272e-01_rb,8.813796e-01_rb,8.840676e-01_rb,8.862225e-01_rb,8.879904e-01_rb,&\n        & 8.894682e-01_rb,8.907228e-01_rb,8.918019e-01_rb,8.927404e-01_rb,8.935645e-01_rb,&\n        & 8.942943e-01_rb,8.949452e-01_rb,8.955296e-01_rb,8.960574e-01_rb,8.965366e-01_rb,&\n        & 8.969736e-01_rb,8.973740e-01_rb,8.977422e-01_rb,8.980820e-01_rb,8.983966e-01_rb,&\n        & 8.986889e-01_rb,8.989611e-01_rb,8.992153e-01_rb,8.994533e-01_rb,8.996766e-01_rb,&\n        & 8.998865e-01_rb,9.000843e-01_rb,9.002709e-01_rb,9.004474e-01_rb,9.006146e-01_rb,&\n        & 9.007731e-01_rb,9.009237e-01_rb,9.010670e-01_rb,9.012034e-01_rb,9.013336e-01_rb,&\n        & 9.014579e-01_rb,9.015767e-01_rb,9.016904e-01_rb /)\n      asyice2(:, 21) = (/ &\n! band 21\n        & 8.179122e-01_rb,8.480726e-01_rb,8.621945e-01_rb,8.704354e-01_rb,8.758555e-01_rb,&\n        & 8.797007e-01_rb,8.825750e-01_rb,8.848078e-01_rb,8.865939e-01_rb,8.880564e-01_rb,&\n        & 8.892765e-01_rb,8.903105e-01_rb,8.911982e-01_rb,8.919689e-01_rb,8.926446e-01_rb,&\n        & 8.932419e-01_rb,8.937738e-01_rb,8.942506e-01_rb,8.946806e-01_rb,8.950702e-01_rb,&\n        & 8.954251e-01_rb,8.957497e-01_rb,8.960477e-01_rb,8.963223e-01_rb,8.965762e-01_rb,&\n        & 8.968116e-01_rb,8.970306e-01_rb,8.972347e-01_rb,8.974255e-01_rb,8.976042e-01_rb,&\n        & 8.977720e-01_rb,8.979298e-01_rb,8.980784e-01_rb,8.982188e-01_rb,8.983515e-01_rb,&\n        & 8.984771e-01_rb,8.985963e-01_rb,8.987095e-01_rb,8.988171e-01_rb,8.989195e-01_rb,&\n        & 8.990172e-01_rb,8.991104e-01_rb,8.991994e-01_rb /)\n      asyice2(:, 22) = (/ &\n! band 22\n        & 8.169789e-01_rb,8.455024e-01_rb,8.586925e-01_rb,8.663283e-01_rb,8.713217e-01_rb,&\n        & 8.748488e-01_rb,8.774765e-01_rb,8.795122e-01_rb,8.811370e-01_rb,8.824649e-01_rb,&\n        & 8.835711e-01_rb,8.845073e-01_rb,8.853103e-01_rb,8.860068e-01_rb,8.866170e-01_rb,&\n        & 8.871560e-01_rb,8.876358e-01_rb,8.880658e-01_rb,8.884533e-01_rb,8.888044e-01_rb,&\n        & 8.891242e-01_rb,8.894166e-01_rb,8.896851e-01_rb,8.899324e-01_rb,8.901612e-01_rb,&\n        & 8.903733e-01_rb,8.905706e-01_rb,8.907545e-01_rb,8.909265e-01_rb,8.910876e-01_rb,&\n        & 8.912388e-01_rb,8.913812e-01_rb,8.915153e-01_rb,8.916419e-01_rb,8.917617e-01_rb,&\n        & 8.918752e-01_rb,8.919829e-01_rb,8.920851e-01_rb,8.921824e-01_rb,8.922751e-01_rb,&\n        & 8.923635e-01_rb,8.924478e-01_rb,8.925284e-01_rb /)\n      asyice2(:, 23) = (/ &\n! band 23\n        & 8.387642e-01_rb,8.569979e-01_rb,8.658630e-01_rb,8.711825e-01_rb,8.747605e-01_rb,&\n        & 8.773472e-01_rb,8.793129e-01_rb,8.808621e-01_rb,8.821179e-01_rb,8.831583e-01_rb,&\n        & 8.840361e-01_rb,8.847875e-01_rb,8.854388e-01_rb,8.860094e-01_rb,8.865138e-01_rb,&\n        & 8.869634e-01_rb,8.873668e-01_rb,8.877310e-01_rb,8.880617e-01_rb,8.883635e-01_rb,&\n        & 8.886401e-01_rb,8.888947e-01_rb,8.891298e-01_rb,8.893477e-01_rb,8.895504e-01_rb,&\n        & 8.897393e-01_rb,8.899159e-01_rb,8.900815e-01_rb,8.902370e-01_rb,8.903833e-01_rb,&\n        & 8.905214e-01_rb,8.906518e-01_rb,8.907753e-01_rb,8.908924e-01_rb,8.910036e-01_rb,&\n        & 8.911094e-01_rb,8.912101e-01_rb,8.913062e-01_rb,8.913979e-01_rb,8.914856e-01_rb,&\n        & 8.915695e-01_rb,8.916498e-01_rb,8.917269e-01_rb /)\n      asyice2(:, 24) = (/ &\n! band 24\n        & 8.522208e-01_rb,8.648132e-01_rb,8.711224e-01_rb,8.749901e-01_rb,8.776354e-01_rb,&\n        & 8.795743e-01_rb,8.810649e-01_rb,8.822518e-01_rb,8.832225e-01_rb,8.840333e-01_rb,&\n        & 8.847224e-01_rb,8.853162e-01_rb,8.858342e-01_rb,8.862906e-01_rb,8.866962e-01_rb,&\n        & 8.870595e-01_rb,8.873871e-01_rb,8.876842e-01_rb,8.879551e-01_rb,8.882032e-01_rb,&\n        & 8.884316e-01_rb,8.886425e-01_rb,8.888380e-01_rb,8.890199e-01_rb,8.891895e-01_rb,&\n        & 8.893481e-01_rb,8.894968e-01_rb,8.896366e-01_rb,8.897683e-01_rb,8.898926e-01_rb,&\n        & 8.900102e-01_rb,8.901215e-01_rb,8.902272e-01_rb,8.903276e-01_rb,8.904232e-01_rb,&\n        & 8.905144e-01_rb,8.906014e-01_rb,8.906845e-01_rb,8.907640e-01_rb,8.908402e-01_rb,&\n        & 8.909132e-01_rb,8.909834e-01_rb,8.910507e-01_rb /)\n      asyice2(:, 25) = (/ &\n! band 25\n        & 8.578202e-01_rb,8.683033e-01_rb,8.735431e-01_rb,8.767488e-01_rb,8.789378e-01_rb,&\n        & 8.805399e-01_rb,8.817701e-01_rb,8.827485e-01_rb,8.835480e-01_rb,8.842152e-01_rb,&\n        & 8.847817e-01_rb,8.852696e-01_rb,8.856949e-01_rb,8.860694e-01_rb,8.864020e-01_rb,&\n        & 8.866997e-01_rb,8.869681e-01_rb,8.872113e-01_rb,8.874330e-01_rb,8.876360e-01_rb,&\n        & 8.878227e-01_rb,8.879951e-01_rb,8.881548e-01_rb,8.883033e-01_rb,8.884418e-01_rb,&\n        & 8.885712e-01_rb,8.886926e-01_rb,8.888066e-01_rb,8.889139e-01_rb,8.890152e-01_rb,&\n        & 8.891110e-01_rb,8.892017e-01_rb,8.892877e-01_rb,8.893695e-01_rb,8.894473e-01_rb,&\n        & 8.895214e-01_rb,8.895921e-01_rb,8.896597e-01_rb,8.897243e-01_rb,8.897862e-01_rb,&\n        & 8.898456e-01_rb,8.899025e-01_rb,8.899572e-01_rb /)\n      asyice2(:, 26) = (/ &\n! band 26\n        & 8.625615e-01_rb,8.713831e-01_rb,8.755799e-01_rb,8.780560e-01_rb,8.796983e-01_rb,&\n        & 8.808714e-01_rb,8.817534e-01_rb,8.824420e-01_rb,8.829953e-01_rb,8.834501e-01_rb,&\n        & 8.838310e-01_rb,8.841549e-01_rb,8.844338e-01_rb,8.846767e-01_rb,8.848902e-01_rb,&\n        & 8.850795e-01_rb,8.852484e-01_rb,8.854002e-01_rb,8.855374e-01_rb,8.856620e-01_rb,&\n        & 8.857758e-01_rb,8.858800e-01_rb,8.859759e-01_rb,8.860644e-01_rb,8.861464e-01_rb,&\n        & 8.862225e-01_rb,8.862935e-01_rb,8.863598e-01_rb,8.864218e-01_rb,8.864800e-01_rb,&\n        & 8.865347e-01_rb,8.865863e-01_rb,8.866349e-01_rb,8.866809e-01_rb,8.867245e-01_rb,&\n        & 8.867658e-01_rb,8.868050e-01_rb,8.868423e-01_rb,8.868778e-01_rb,8.869117e-01_rb,&\n        & 8.869440e-01_rb,8.869749e-01_rb,8.870044e-01_rb /)\n      asyice2(:, 27) = (/ &\n! band 27\n        & 8.587495e-01_rb,8.684764e-01_rb,8.728189e-01_rb,8.752872e-01_rb,8.768846e-01_rb,&\n        & 8.780060e-01_rb,8.788386e-01_rb,8.794824e-01_rb,8.799960e-01_rb,8.804159e-01_rb,&\n        & 8.807660e-01_rb,8.810626e-01_rb,8.813175e-01_rb,8.815390e-01_rb,8.817335e-01_rb,&\n        & 8.819057e-01_rb,8.820593e-01_rb,8.821973e-01_rb,8.823220e-01_rb,8.824353e-01_rb,&\n        & 8.825387e-01_rb,8.826336e-01_rb,8.827209e-01_rb,8.828016e-01_rb,8.828764e-01_rb,&\n        & 8.829459e-01_rb,8.830108e-01_rb,8.830715e-01_rb,8.831283e-01_rb,8.831817e-01_rb,&\n        & 8.832320e-01_rb,8.832795e-01_rb,8.833244e-01_rb,8.833668e-01_rb,8.834071e-01_rb,&\n        & 8.834454e-01_rb,8.834817e-01_rb,8.835164e-01_rb,8.835495e-01_rb,8.835811e-01_rb,&\n        & 8.836113e-01_rb,8.836402e-01_rb,8.836679e-01_rb /)\n      asyice2(:, 28) = (/ &\n! band 28\n        & 8.561110e-01_rb,8.678583e-01_rb,8.727554e-01_rb,8.753892e-01_rb,8.770154e-01_rb,&\n        & 8.781109e-01_rb,8.788949e-01_rb,8.794812e-01_rb,8.799348e-01_rb,8.802952e-01_rb,&\n        & 8.805880e-01_rb,8.808300e-01_rb,8.810331e-01_rb,8.812058e-01_rb,8.813543e-01_rb,&\n        & 8.814832e-01_rb,8.815960e-01_rb,8.816956e-01_rb,8.817839e-01_rb,8.818629e-01_rb,&\n        & 8.819339e-01_rb,8.819979e-01_rb,8.820560e-01_rb,8.821089e-01_rb,8.821573e-01_rb,&\n        & 8.822016e-01_rb,8.822425e-01_rb,8.822801e-01_rb,8.823150e-01_rb,8.823474e-01_rb,&\n        & 8.823775e-01_rb,8.824056e-01_rb,8.824318e-01_rb,8.824564e-01_rb,8.824795e-01_rb,&\n        & 8.825011e-01_rb,8.825215e-01_rb,8.825408e-01_rb,8.825589e-01_rb,8.825761e-01_rb,&\n        & 8.825924e-01_rb,8.826078e-01_rb,8.826224e-01_rb /)\n      asyice2(:, 29) = (/ &\n! band 29\n        & 8.311124e-01_rb,8.688197e-01_rb,8.900274e-01_rb,9.040696e-01_rb,9.142334e-01_rb,&\n        & 9.220181e-01_rb,9.282195e-01_rb,9.333048e-01_rb,9.375689e-01_rb,9.412085e-01_rb,&\n        & 9.443604e-01_rb,9.471230e-01_rb,9.495694e-01_rb,9.517549e-01_rb,9.537224e-01_rb,&\n        & 9.555057e-01_rb,9.571316e-01_rb,9.586222e-01_rb,9.599952e-01_rb,9.612656e-01_rb,&\n        & 9.624458e-01_rb,9.635461e-01_rb,9.645756e-01_rb,9.655418e-01_rb,9.664513e-01_rb,&\n        & 9.673098e-01_rb,9.681222e-01_rb,9.688928e-01_rb,9.696256e-01_rb,9.703237e-01_rb,&\n        & 9.709903e-01_rb,9.716280e-01_rb,9.722391e-01_rb,9.728258e-01_rb,9.733901e-01_rb,&\n        & 9.739336e-01_rb,9.744579e-01_rb,9.749645e-01_rb,9.754546e-01_rb,9.759294e-01_rb,&\n        & 9.763901e-01_rb,9.768376e-01_rb,9.772727e-01_rb /)\n\n! Hexagonal Ice Particle Parameterization\n! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]\n      extice3(:, 16) = (/ &\n! band 16\n        & 5.194013e-01_rb,3.215089e-01_rb,2.327917e-01_rb,1.824424e-01_rb,1.499977e-01_rb,&\n        & 1.273492e-01_rb,1.106421e-01_rb,9.780982e-02_rb,8.764435e-02_rb,7.939266e-02_rb,&\n        & 7.256081e-02_rb,6.681137e-02_rb,6.190600e-02_rb,5.767154e-02_rb,5.397915e-02_rb,&\n        & 5.073102e-02_rb,4.785151e-02_rb,4.528125e-02_rb,4.297296e-02_rb,4.088853e-02_rb,&\n        & 3.899690e-02_rb,3.727251e-02_rb,3.569411e-02_rb,3.424393e-02_rb,3.290694e-02_rb,&\n        & 3.167040e-02_rb,3.052340e-02_rb,2.945654e-02_rb,2.846172e-02_rb,2.753188e-02_rb,&\n        & 2.666085e-02_rb,2.584322e-02_rb,2.507423e-02_rb,2.434967e-02_rb,2.366579e-02_rb,&\n        & 2.301926e-02_rb,2.240711e-02_rb,2.182666e-02_rb,2.127551e-02_rb,2.075150e-02_rb,&\n        & 2.025267e-02_rb,1.977725e-02_rb,1.932364e-02_rb,1.889035e-02_rb,1.847607e-02_rb,&\n        & 1.807956e-02_rb /)\n      extice3(:, 17) = (/ &\n! band 17\n        & 4.901155e-01_rb,3.065286e-01_rb,2.230800e-01_rb,1.753951e-01_rb,1.445402e-01_rb,&\n        & 1.229417e-01_rb,1.069777e-01_rb,9.469760e-02_rb,8.495824e-02_rb,7.704501e-02_rb,&\n        & 7.048834e-02_rb,6.496693e-02_rb,6.025353e-02_rb,5.618286e-02_rb,5.263186e-02_rb,&\n        & 4.950698e-02_rb,4.673585e-02_rb,4.426164e-02_rb,4.203904e-02_rb,4.003153e-02_rb,&\n        & 3.820932e-02_rb,3.654790e-02_rb,3.502688e-02_rb,3.362919e-02_rb,3.234041e-02_rb,&\n        & 3.114829e-02_rb,3.004234e-02_rb,2.901356e-02_rb,2.805413e-02_rb,2.715727e-02_rb,&\n        & 2.631705e-02_rb,2.552828e-02_rb,2.478637e-02_rb,2.408725e-02_rb,2.342734e-02_rb,&\n        & 2.280343e-02_rb,2.221264e-02_rb,2.165242e-02_rb,2.112043e-02_rb,2.061461e-02_rb,&\n        & 2.013308e-02_rb,1.967411e-02_rb,1.923616e-02_rb,1.881783e-02_rb,1.841781e-02_rb,&\n        & 1.803494e-02_rb /)\n      extice3(:, 18) = (/ &\n! band 18\n        & 5.056264e-01_rb,3.160261e-01_rb,2.298442e-01_rb,1.805973e-01_rb,1.487318e-01_rb,&\n        & 1.264258e-01_rb,1.099389e-01_rb,9.725656e-02_rb,8.719819e-02_rb,7.902576e-02_rb,&\n        & 7.225433e-02_rb,6.655206e-02_rb,6.168427e-02_rb,5.748028e-02_rb,5.381296e-02_rb,&\n        & 5.058572e-02_rb,4.772383e-02_rb,4.516857e-02_rb,4.287317e-02_rb,4.079990e-02_rb,&\n        & 3.891801e-02_rb,3.720217e-02_rb,3.563133e-02_rb,3.418786e-02_rb,3.285686e-02_rb,&\n        & 3.162569e-02_rb,3.048352e-02_rb,2.942104e-02_rb,2.843018e-02_rb,2.750395e-02_rb,&\n        & 2.663621e-02_rb,2.582160e-02_rb,2.505539e-02_rb,2.433337e-02_rb,2.365185e-02_rb,&\n        & 2.300750e-02_rb,2.239736e-02_rb,2.181878e-02_rb,2.126937e-02_rb,2.074699e-02_rb,&\n        & 2.024968e-02_rb,1.977567e-02_rb,1.932338e-02_rb,1.889134e-02_rb,1.847823e-02_rb,&\n        & 1.808281e-02_rb /)\n      extice3(:, 19) = (/ &\n! band 19\n        & 4.881605e-01_rb,3.055237e-01_rb,2.225070e-01_rb,1.750688e-01_rb,1.443736e-01_rb,&\n        & 1.228869e-01_rb,1.070054e-01_rb,9.478893e-02_rb,8.509997e-02_rb,7.722769e-02_rb,&\n        & 7.070495e-02_rb,6.521211e-02_rb,6.052311e-02_rb,5.647351e-02_rb,5.294088e-02_rb,&\n        & 4.983217e-02_rb,4.707539e-02_rb,4.461398e-02_rb,4.240288e-02_rb,4.040575e-02_rb,&\n        & 3.859298e-02_rb,3.694016e-02_rb,3.542701e-02_rb,3.403655e-02_rb,3.275444e-02_rb,&\n        & 3.156849e-02_rb,3.046827e-02_rb,2.944481e-02_rb,2.849034e-02_rb,2.759812e-02_rb,&\n        & 2.676226e-02_rb,2.597757e-02_rb,2.523949e-02_rb,2.454400e-02_rb,2.388750e-02_rb,&\n        & 2.326682e-02_rb,2.267909e-02_rb,2.212176e-02_rb,2.159253e-02_rb,2.108933e-02_rb,&\n        & 2.061028e-02_rb,2.015369e-02_rb,1.971801e-02_rb,1.930184e-02_rb,1.890389e-02_rb,&\n        & 1.852300e-02_rb /)\n      extice3(:, 20) = (/ &\n! band 20\n        & 5.103703e-01_rb,3.188144e-01_rb,2.317435e-01_rb,1.819887e-01_rb,1.497944e-01_rb,&\n        & 1.272584e-01_rb,1.106013e-01_rb,9.778822e-02_rb,8.762610e-02_rb,7.936938e-02_rb,&\n        & 7.252809e-02_rb,6.676701e-02_rb,6.184901e-02_rb,5.760165e-02_rb,5.389651e-02_rb,&\n        & 5.063598e-02_rb,4.774457e-02_rb,4.516295e-02_rb,4.284387e-02_rb,4.074922e-02_rb,&\n        & 3.884792e-02_rb,3.711438e-02_rb,3.552734e-02_rb,3.406898e-02_rb,3.272425e-02_rb,&\n        & 3.148038e-02_rb,3.032643e-02_rb,2.925299e-02_rb,2.825191e-02_rb,2.731612e-02_rb,&\n        & 2.643943e-02_rb,2.561642e-02_rb,2.484230e-02_rb,2.411284e-02_rb,2.342429e-02_rb,&\n        & 2.277329e-02_rb,2.215686e-02_rb,2.157231e-02_rb,2.101724e-02_rb,2.048946e-02_rb,&\n        & 1.998702e-02_rb,1.950813e-02_rb,1.905118e-02_rb,1.861468e-02_rb,1.819730e-02_rb,&\n        & 1.779781e-02_rb /)\n      extice3(:, 21) = (/ &\n! band 21\n        & 5.031161e-01_rb,3.144511e-01_rb,2.286942e-01_rb,1.796903e-01_rb,1.479819e-01_rb,&\n        & 1.257860e-01_rb,1.093803e-01_rb,9.676059e-02_rb,8.675183e-02_rb,7.861971e-02_rb,&\n        & 7.188168e-02_rb,6.620754e-02_rb,6.136376e-02_rb,5.718050e-02_rb,5.353127e-02_rb,&\n        & 5.031995e-02_rb,4.747218e-02_rb,4.492952e-02_rb,4.264544e-02_rb,4.058240e-02_rb,&\n        & 3.870979e-02_rb,3.700242e-02_rb,3.543933e-02_rb,3.400297e-02_rb,3.267854e-02_rb,&\n        & 3.145345e-02_rb,3.031691e-02_rb,2.925967e-02_rb,2.827370e-02_rb,2.735203e-02_rb,&\n        & 2.648858e-02_rb,2.567798e-02_rb,2.491555e-02_rb,2.419710e-02_rb,2.351893e-02_rb,&\n        & 2.287776e-02_rb,2.227063e-02_rb,2.169491e-02_rb,2.114821e-02_rb,2.062840e-02_rb,&\n        & 2.013354e-02_rb,1.966188e-02_rb,1.921182e-02_rb,1.878191e-02_rb,1.837083e-02_rb,&\n        & 1.797737e-02_rb /)\n      extice3(:, 22) = (/ &\n! band 22\n        & 4.949453e-01_rb,3.095918e-01_rb,2.253402e-01_rb,1.771964e-01_rb,1.460446e-01_rb,&\n        & 1.242383e-01_rb,1.081206e-01_rb,9.572235e-02_rb,8.588928e-02_rb,7.789990e-02_rb,&\n        & 7.128013e-02_rb,6.570559e-02_rb,6.094684e-02_rb,5.683701e-02_rb,5.325183e-02_rb,&\n        & 5.009688e-02_rb,4.729909e-02_rb,4.480106e-02_rb,4.255708e-02_rb,4.053025e-02_rb,&\n        & 3.869051e-02_rb,3.701310e-02_rb,3.547745e-02_rb,3.406631e-02_rb,3.276512e-02_rb,&\n        & 3.156153e-02_rb,3.044494e-02_rb,2.940626e-02_rb,2.843759e-02_rb,2.753211e-02_rb,&\n        & 2.668381e-02_rb,2.588744e-02_rb,2.513839e-02_rb,2.443255e-02_rb,2.376629e-02_rb,&\n        & 2.313637e-02_rb,2.253990e-02_rb,2.197428e-02_rb,2.143718e-02_rb,2.092649e-02_rb,&\n        & 2.044032e-02_rb,1.997694e-02_rb,1.953478e-02_rb,1.911241e-02_rb,1.870855e-02_rb,&\n        & 1.832199e-02_rb /)\n      extice3(:, 23) = (/ &\n! band 23\n        & 5.052816e-01_rb,3.157665e-01_rb,2.296233e-01_rb,1.803986e-01_rb,1.485473e-01_rb,&\n        & 1.262514e-01_rb,1.097718e-01_rb,9.709524e-02_rb,8.704139e-02_rb,7.887264e-02_rb,&\n        & 7.210424e-02_rb,6.640454e-02_rb,6.153894e-02_rb,5.733683e-02_rb,5.367116e-02_rb,&\n        & 5.044537e-02_rb,4.758477e-02_rb,4.503066e-02_rb,4.273629e-02_rb,4.066395e-02_rb,&\n        & 3.878291e-02_rb,3.706784e-02_rb,3.549771e-02_rb,3.405488e-02_rb,3.272448e-02_rb,&\n        & 3.149387e-02_rb,3.035221e-02_rb,2.929020e-02_rb,2.829979e-02_rb,2.737397e-02_rb,&\n        & 2.650663e-02_rb,2.569238e-02_rb,2.492651e-02_rb,2.420482e-02_rb,2.352361e-02_rb,&\n        & 2.287954e-02_rb,2.226968e-02_rb,2.169136e-02_rb,2.114220e-02_rb,2.062005e-02_rb,&\n        & 2.012296e-02_rb,1.964917e-02_rb,1.919709e-02_rb,1.876524e-02_rb,1.835231e-02_rb,&\n        & 1.795707e-02_rb /)\n      extice3(:, 24) = (/ &\n! band 24\n        & 5.042067e-01_rb,3.151195e-01_rb,2.291708e-01_rb,1.800573e-01_rb,1.482779e-01_rb,&\n        & 1.260324e-01_rb,1.095900e-01_rb,9.694202e-02_rb,8.691087e-02_rb,7.876056e-02_rb,&\n        & 7.200745e-02_rb,6.632062e-02_rb,6.146600e-02_rb,5.727338e-02_rb,5.361599e-02_rb,&\n        & 5.039749e-02_rb,4.754334e-02_rb,4.499500e-02_rb,4.270580e-02_rb,4.063815e-02_rb,&\n        & 3.876135e-02_rb,3.705016e-02_rb,3.548357e-02_rb,3.404400e-02_rb,3.271661e-02_rb,&\n        & 3.148877e-02_rb,3.034969e-02_rb,2.929008e-02_rb,2.830191e-02_rb,2.737818e-02_rb,&\n        & 2.651279e-02_rb,2.570039e-02_rb,2.493624e-02_rb,2.421618e-02_rb,2.353650e-02_rb,&\n        & 2.289390e-02_rb,2.228541e-02_rb,2.170840e-02_rb,2.116048e-02_rb,2.063950e-02_rb,&\n        & 2.014354e-02_rb,1.967082e-02_rb,1.921975e-02_rb,1.878888e-02_rb,1.837688e-02_rb,&\n        & 1.798254e-02_rb /)\n      extice3(:, 25) = (/ &\n! band 25\n        & 5.022507e-01_rb,3.139246e-01_rb,2.283218e-01_rb,1.794059e-01_rb,1.477544e-01_rb,&\n        & 1.255984e-01_rb,1.092222e-01_rb,9.662516e-02_rb,8.663439e-02_rb,7.851688e-02_rb,&\n        & 7.179095e-02_rb,6.612700e-02_rb,6.129193e-02_rb,5.711618e-02_rb,5.347351e-02_rb,&\n        & 5.026796e-02_rb,4.742530e-02_rb,4.488721e-02_rb,4.260724e-02_rb,4.054790e-02_rb,&\n        & 3.867866e-02_rb,3.697435e-02_rb,3.541407e-02_rb,3.398029e-02_rb,3.265824e-02_rb,&\n        & 3.143535e-02_rb,3.030085e-02_rb,2.924551e-02_rb,2.826131e-02_rb,2.734130e-02_rb,&\n        & 2.647939e-02_rb,2.567026e-02_rb,2.490919e-02_rb,2.419203e-02_rb,2.351509e-02_rb,&\n        & 2.287507e-02_rb,2.226903e-02_rb,2.169434e-02_rb,2.114862e-02_rb,2.062975e-02_rb,&\n        & 2.013578e-02_rb,1.966496e-02_rb,1.921571e-02_rb,1.878658e-02_rb,1.837623e-02_rb,&\n        & 1.798348e-02_rb /)\n      extice3(:, 26) = (/ &\n! band 26\n        & 5.068316e-01_rb,3.166869e-01_rb,2.302576e-01_rb,1.808693e-01_rb,1.489122e-01_rb,&\n        & 1.265423e-01_rb,1.100080e-01_rb,9.728926e-02_rb,8.720201e-02_rb,7.900612e-02_rb,&\n        & 7.221524e-02_rb,6.649660e-02_rb,6.161484e-02_rb,5.739877e-02_rb,5.372093e-02_rb,&\n        & 5.048442e-02_rb,4.761431e-02_rb,4.505172e-02_rb,4.274972e-02_rb,4.067050e-02_rb,&\n        & 3.878321e-02_rb,3.706244e-02_rb,3.548710e-02_rb,3.403948e-02_rb,3.270466e-02_rb,&\n        & 3.146995e-02_rb,3.032450e-02_rb,2.925897e-02_rb,2.826527e-02_rb,2.733638e-02_rb,&\n        & 2.646615e-02_rb,2.564920e-02_rb,2.488078e-02_rb,2.415670e-02_rb,2.347322e-02_rb,&\n        & 2.282702e-02_rb,2.221513e-02_rb,2.163489e-02_rb,2.108390e-02_rb,2.056002e-02_rb,&\n        & 2.006128e-02_rb,1.958591e-02_rb,1.913232e-02_rb,1.869904e-02_rb,1.828474e-02_rb,&\n        & 1.788819e-02_rb /)\n      extice3(:, 27) = (/ &\n! band 27\n        & 5.077707e-01_rb,3.172636e-01_rb,2.306695e-01_rb,1.811871e-01_rb,1.491691e-01_rb,&\n        & 1.267565e-01_rb,1.101907e-01_rb,9.744773e-02_rb,8.734125e-02_rb,7.912973e-02_rb,&\n        & 7.232591e-02_rb,6.659637e-02_rb,6.170530e-02_rb,5.748120e-02_rb,5.379634e-02_rb,&\n        & 5.055367e-02_rb,4.767809e-02_rb,4.511061e-02_rb,4.280423e-02_rb,4.072104e-02_rb,&\n        & 3.883015e-02_rb,3.710611e-02_rb,3.552776e-02_rb,3.407738e-02_rb,3.274002e-02_rb,&\n        & 3.150296e-02_rb,3.035532e-02_rb,2.928776e-02_rb,2.829216e-02_rb,2.736150e-02_rb,&\n        & 2.648961e-02_rb,2.567111e-02_rb,2.490123e-02_rb,2.417576e-02_rb,2.349098e-02_rb,&\n        & 2.284354e-02_rb,2.223049e-02_rb,2.164914e-02_rb,2.109711e-02_rb,2.057222e-02_rb,&\n        & 2.007253e-02_rb,1.959626e-02_rb,1.914181e-02_rb,1.870770e-02_rb,1.829261e-02_rb,&\n        & 1.789531e-02_rb /)\n      extice3(:, 28) = (/ &\n! band 28\n        & 5.062281e-01_rb,3.163402e-01_rb,2.300275e-01_rb,1.807060e-01_rb,1.487921e-01_rb,&\n        & 1.264523e-01_rb,1.099403e-01_rb,9.723879e-02_rb,8.716516e-02_rb,7.898034e-02_rb,&\n        & 7.219863e-02_rb,6.648771e-02_rb,6.161254e-02_rb,5.740217e-02_rb,5.372929e-02_rb,&\n        & 5.049716e-02_rb,4.763092e-02_rb,4.507179e-02_rb,4.277290e-02_rb,4.069649e-02_rb,&\n        & 3.881175e-02_rb,3.709331e-02_rb,3.552008e-02_rb,3.407442e-02_rb,3.274141e-02_rb,&\n        & 3.150837e-02_rb,3.036447e-02_rb,2.930037e-02_rb,2.830801e-02_rb,2.738037e-02_rb,&\n        & 2.651132e-02_rb,2.569547e-02_rb,2.492810e-02_rb,2.420499e-02_rb,2.352243e-02_rb,&\n        & 2.287710e-02_rb,2.226604e-02_rb,2.168658e-02_rb,2.113634e-02_rb,2.061316e-02_rb,&\n        & 2.011510e-02_rb,1.964038e-02_rb,1.918740e-02_rb,1.875471e-02_rb,1.834096e-02_rb,&\n        & 1.794495e-02_rb /)\n      extice3(:, 29) = (/ &\n! band 29\n        & 1.338834e-01_rb,1.924912e-01_rb,1.755523e-01_rb,1.534793e-01_rb,1.343937e-01_rb,&\n        & 1.187883e-01_rb,1.060654e-01_rb,9.559106e-02_rb,8.685880e-02_rb,7.948698e-02_rb,&\n        & 7.319086e-02_rb,6.775669e-02_rb,6.302215e-02_rb,5.886236e-02_rb,5.517996e-02_rb,&\n        & 5.189810e-02_rb,4.895539e-02_rb,4.630225e-02_rb,4.389823e-02_rb,4.171002e-02_rb,&\n        & 3.970998e-02_rb,3.787493e-02_rb,3.618537e-02_rb,3.462471e-02_rb,3.317880e-02_rb,&\n        & 3.183547e-02_rb,3.058421e-02_rb,2.941590e-02_rb,2.832256e-02_rb,2.729724e-02_rb,&\n        & 2.633377e-02_rb,2.542675e-02_rb,2.457136e-02_rb,2.376332e-02_rb,2.299882e-02_rb,&\n        & 2.227443e-02_rb,2.158707e-02_rb,2.093400e-02_rb,2.031270e-02_rb,1.972091e-02_rb,&\n        & 1.915659e-02_rb,1.861787e-02_rb,1.810304e-02_rb,1.761055e-02_rb,1.713899e-02_rb,&\n        & 1.668704e-02_rb /)\n\n! single-scattering albedo: unitless\n      ssaice3(:, 16) = (/ &\n! band 16\n        & 6.749442e-01_rb,6.649947e-01_rb,6.565828e-01_rb,6.489928e-01_rb,6.420046e-01_rb,&\n        & 6.355231e-01_rb,6.294964e-01_rb,6.238901e-01_rb,6.186783e-01_rb,6.138395e-01_rb,&\n        & 6.093543e-01_rb,6.052049e-01_rb,6.013742e-01_rb,5.978457e-01_rb,5.946030e-01_rb,&\n        & 5.916302e-01_rb,5.889115e-01_rb,5.864310e-01_rb,5.841731e-01_rb,5.821221e-01_rb,&\n        & 5.802624e-01_rb,5.785785e-01_rb,5.770549e-01_rb,5.756759e-01_rb,5.744262e-01_rb,&\n        & 5.732901e-01_rb,5.722524e-01_rb,5.712974e-01_rb,5.704097e-01_rb,5.695739e-01_rb,&\n        & 5.687747e-01_rb,5.679964e-01_rb,5.672238e-01_rb,5.664415e-01_rb,5.656340e-01_rb,&\n        & 5.647860e-01_rb,5.638821e-01_rb,5.629070e-01_rb,5.618452e-01_rb,5.606815e-01_rb,&\n        & 5.594006e-01_rb,5.579870e-01_rb,5.564255e-01_rb,5.547008e-01_rb,5.527976e-01_rb,&\n        & 5.507005e-01_rb /)\n      ssaice3(:, 17) = (/ &\n! band 17\n        & 7.628550e-01_rb,7.567297e-01_rb,7.508463e-01_rb,7.451972e-01_rb,7.397745e-01_rb,&\n        & 7.345705e-01_rb,7.295775e-01_rb,7.247881e-01_rb,7.201945e-01_rb,7.157894e-01_rb,&\n        & 7.115652e-01_rb,7.075145e-01_rb,7.036300e-01_rb,6.999044e-01_rb,6.963304e-01_rb,&\n        & 6.929007e-01_rb,6.896083e-01_rb,6.864460e-01_rb,6.834067e-01_rb,6.804833e-01_rb,&\n        & 6.776690e-01_rb,6.749567e-01_rb,6.723397e-01_rb,6.698109e-01_rb,6.673637e-01_rb,&\n        & 6.649913e-01_rb,6.626870e-01_rb,6.604441e-01_rb,6.582561e-01_rb,6.561163e-01_rb,&\n        & 6.540182e-01_rb,6.519554e-01_rb,6.499215e-01_rb,6.479099e-01_rb,6.459145e-01_rb,&\n        & 6.439289e-01_rb,6.419468e-01_rb,6.399621e-01_rb,6.379686e-01_rb,6.359601e-01_rb,&\n        & 6.339306e-01_rb,6.318740e-01_rb,6.297845e-01_rb,6.276559e-01_rb,6.254825e-01_rb,&\n        & 6.232583e-01_rb /)\n      ssaice3(:, 18) = (/ &\n! band 18\n        & 9.924147e-01_rb,9.882792e-01_rb,9.842257e-01_rb,9.802522e-01_rb,9.763566e-01_rb,&\n        & 9.725367e-01_rb,9.687905e-01_rb,9.651157e-01_rb,9.615104e-01_rb,9.579725e-01_rb,&\n        & 9.544997e-01_rb,9.510901e-01_rb,9.477416e-01_rb,9.444520e-01_rb,9.412194e-01_rb,&\n        & 9.380415e-01_rb,9.349165e-01_rb,9.318421e-01_rb,9.288164e-01_rb,9.258373e-01_rb,&\n        & 9.229027e-01_rb,9.200106e-01_rb,9.171589e-01_rb,9.143457e-01_rb,9.115688e-01_rb,&\n        & 9.088263e-01_rb,9.061161e-01_rb,9.034362e-01_rb,9.007846e-01_rb,8.981592e-01_rb,&\n        & 8.955581e-01_rb,8.929792e-01_rb,8.904206e-01_rb,8.878803e-01_rb,8.853562e-01_rb,&\n        & 8.828464e-01_rb,8.803488e-01_rb,8.778616e-01_rb,8.753827e-01_rb,8.729102e-01_rb,&\n        & 8.704421e-01_rb,8.679764e-01_rb,8.655112e-01_rb,8.630445e-01_rb,8.605744e-01_rb,&\n        & 8.580989e-01_rb /)\n      ssaice3(:, 19) = (/ &\n! band 19\n        & 9.629413e-01_rb,9.517182e-01_rb,9.409209e-01_rb,9.305366e-01_rb,9.205529e-01_rb,&\n        & 9.109569e-01_rb,9.017362e-01_rb,8.928780e-01_rb,8.843699e-01_rb,8.761992e-01_rb,&\n        & 8.683536e-01_rb,8.608204e-01_rb,8.535873e-01_rb,8.466417e-01_rb,8.399712e-01_rb,&\n        & 8.335635e-01_rb,8.274062e-01_rb,8.214868e-01_rb,8.157932e-01_rb,8.103129e-01_rb,&\n        & 8.050336e-01_rb,7.999432e-01_rb,7.950294e-01_rb,7.902798e-01_rb,7.856825e-01_rb,&\n        & 7.812250e-01_rb,7.768954e-01_rb,7.726815e-01_rb,7.685711e-01_rb,7.645522e-01_rb,&\n        & 7.606126e-01_rb,7.567404e-01_rb,7.529234e-01_rb,7.491498e-01_rb,7.454074e-01_rb,&\n        & 7.416844e-01_rb,7.379688e-01_rb,7.342485e-01_rb,7.305118e-01_rb,7.267468e-01_rb,&\n        & 7.229415e-01_rb,7.190841e-01_rb,7.151628e-01_rb,7.111657e-01_rb,7.070811e-01_rb,&\n        & 7.028972e-01_rb /)\n      ssaice3(:, 20) = (/ &\n! band 20\n        & 9.942270e-01_rb,9.909206e-01_rb,9.876775e-01_rb,9.844960e-01_rb,9.813746e-01_rb,&\n        & 9.783114e-01_rb,9.753049e-01_rb,9.723535e-01_rb,9.694553e-01_rb,9.666088e-01_rb,&\n        & 9.638123e-01_rb,9.610641e-01_rb,9.583626e-01_rb,9.557060e-01_rb,9.530928e-01_rb,&\n        & 9.505211e-01_rb,9.479895e-01_rb,9.454961e-01_rb,9.430393e-01_rb,9.406174e-01_rb,&\n        & 9.382288e-01_rb,9.358717e-01_rb,9.335446e-01_rb,9.312456e-01_rb,9.289731e-01_rb,&\n        & 9.267255e-01_rb,9.245010e-01_rb,9.222980e-01_rb,9.201147e-01_rb,9.179496e-01_rb,&\n        & 9.158008e-01_rb,9.136667e-01_rb,9.115457e-01_rb,9.094359e-01_rb,9.073358e-01_rb,&\n        & 9.052436e-01_rb,9.031577e-01_rb,9.010763e-01_rb,8.989977e-01_rb,8.969203e-01_rb,&\n        & 8.948423e-01_rb,8.927620e-01_rb,8.906778e-01_rb,8.885879e-01_rb,8.864907e-01_rb,&\n        & 8.843843e-01_rb /)\n      ssaice3(:, 21) = (/ &\n! band 21\n        & 9.934014e-01_rb,9.899331e-01_rb,9.865537e-01_rb,9.832610e-01_rb,9.800523e-01_rb,&\n        & 9.769254e-01_rb,9.738777e-01_rb,9.709069e-01_rb,9.680106e-01_rb,9.651862e-01_rb,&\n        & 9.624315e-01_rb,9.597439e-01_rb,9.571212e-01_rb,9.545608e-01_rb,9.520605e-01_rb,&\n        & 9.496177e-01_rb,9.472301e-01_rb,9.448954e-01_rb,9.426111e-01_rb,9.403749e-01_rb,&\n        & 9.381843e-01_rb,9.360370e-01_rb,9.339307e-01_rb,9.318629e-01_rb,9.298313e-01_rb,&\n        & 9.278336e-01_rb,9.258673e-01_rb,9.239302e-01_rb,9.220198e-01_rb,9.201338e-01_rb,&\n        & 9.182700e-01_rb,9.164258e-01_rb,9.145991e-01_rb,9.127874e-01_rb,9.109884e-01_rb,&\n        & 9.091999e-01_rb,9.074194e-01_rb,9.056447e-01_rb,9.038735e-01_rb,9.021033e-01_rb,&\n        & 9.003320e-01_rb,8.985572e-01_rb,8.967766e-01_rb,8.949879e-01_rb,8.931888e-01_rb,&\n        & 8.913770e-01_rb /)\n      ssaice3(:, 22) = (/ &\n! band 22\n        & 9.994833e-01_rb,9.992055e-01_rb,9.989278e-01_rb,9.986500e-01_rb,9.983724e-01_rb,&\n        & 9.980947e-01_rb,9.978172e-01_rb,9.975397e-01_rb,9.972623e-01_rb,9.969849e-01_rb,&\n        & 9.967077e-01_rb,9.964305e-01_rb,9.961535e-01_rb,9.958765e-01_rb,9.955997e-01_rb,&\n        & 9.953230e-01_rb,9.950464e-01_rb,9.947699e-01_rb,9.944936e-01_rb,9.942174e-01_rb,&\n        & 9.939414e-01_rb,9.936656e-01_rb,9.933899e-01_rb,9.931144e-01_rb,9.928390e-01_rb,&\n        & 9.925639e-01_rb,9.922889e-01_rb,9.920141e-01_rb,9.917396e-01_rb,9.914652e-01_rb,&\n        & 9.911911e-01_rb,9.909171e-01_rb,9.906434e-01_rb,9.903700e-01_rb,9.900967e-01_rb,&\n        & 9.898237e-01_rb,9.895510e-01_rb,9.892784e-01_rb,9.890062e-01_rb,9.887342e-01_rb,&\n        & 9.884625e-01_rb,9.881911e-01_rb,9.879199e-01_rb,9.876490e-01_rb,9.873784e-01_rb,&\n        & 9.871081e-01_rb /)\n      ssaice3(:, 23) = (/ &\n! band 23\n        & 9.999343e-01_rb,9.998917e-01_rb,9.998492e-01_rb,9.998067e-01_rb,9.997642e-01_rb,&\n        & 9.997218e-01_rb,9.996795e-01_rb,9.996372e-01_rb,9.995949e-01_rb,9.995528e-01_rb,&\n        & 9.995106e-01_rb,9.994686e-01_rb,9.994265e-01_rb,9.993845e-01_rb,9.993426e-01_rb,&\n        & 9.993007e-01_rb,9.992589e-01_rb,9.992171e-01_rb,9.991754e-01_rb,9.991337e-01_rb,&\n        & 9.990921e-01_rb,9.990505e-01_rb,9.990089e-01_rb,9.989674e-01_rb,9.989260e-01_rb,&\n        & 9.988846e-01_rb,9.988432e-01_rb,9.988019e-01_rb,9.987606e-01_rb,9.987194e-01_rb,&\n        & 9.986782e-01_rb,9.986370e-01_rb,9.985959e-01_rb,9.985549e-01_rb,9.985139e-01_rb,&\n        & 9.984729e-01_rb,9.984319e-01_rb,9.983910e-01_rb,9.983502e-01_rb,9.983094e-01_rb,&\n        & 9.982686e-01_rb,9.982279e-01_rb,9.981872e-01_rb,9.981465e-01_rb,9.981059e-01_rb,&\n        & 9.980653e-01_rb /)\n      ssaice3(:, 24) = (/ &\n! band 24\n        & 9.999978e-01_rb,9.999965e-01_rb,9.999952e-01_rb,9.999939e-01_rb,9.999926e-01_rb,&\n        & 9.999913e-01_rb,9.999900e-01_rb,9.999887e-01_rb,9.999873e-01_rb,9.999860e-01_rb,&\n        & 9.999847e-01_rb,9.999834e-01_rb,9.999821e-01_rb,9.999808e-01_rb,9.999795e-01_rb,&\n        & 9.999782e-01_rb,9.999769e-01_rb,9.999756e-01_rb,9.999743e-01_rb,9.999730e-01_rb,&\n        & 9.999717e-01_rb,9.999704e-01_rb,9.999691e-01_rb,9.999678e-01_rb,9.999665e-01_rb,&\n        & 9.999652e-01_rb,9.999639e-01_rb,9.999626e-01_rb,9.999613e-01_rb,9.999600e-01_rb,&\n        & 9.999587e-01_rb,9.999574e-01_rb,9.999561e-01_rb,9.999548e-01_rb,9.999535e-01_rb,&\n        & 9.999522e-01_rb,9.999509e-01_rb,9.999496e-01_rb,9.999483e-01_rb,9.999470e-01_rb,&\n        & 9.999457e-01_rb,9.999444e-01_rb,9.999431e-01_rb,9.999418e-01_rb,9.999405e-01_rb,&\n        & 9.999392e-01_rb /)\n      ssaice3(:, 25) = (/ &\n! band 25\n        & 9.999994e-01_rb,9.999993e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&\n        & 9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,9.999983e-01_rb,9.999982e-01_rb,&\n        & 9.999980e-01_rb,9.999979e-01_rb,9.999977e-01_rb,9.999976e-01_rb,9.999975e-01_rb,&\n        & 9.999973e-01_rb,9.999972e-01_rb,9.999970e-01_rb,9.999969e-01_rb,9.999967e-01_rb,&\n        & 9.999966e-01_rb,9.999965e-01_rb,9.999963e-01_rb,9.999962e-01_rb,9.999960e-01_rb,&\n        & 9.999959e-01_rb,9.999957e-01_rb,9.999956e-01_rb,9.999954e-01_rb,9.999953e-01_rb,&\n        & 9.999952e-01_rb,9.999950e-01_rb,9.999949e-01_rb,9.999947e-01_rb,9.999946e-01_rb,&\n        & 9.999944e-01_rb,9.999943e-01_rb,9.999941e-01_rb,9.999940e-01_rb,9.999939e-01_rb,&\n        & 9.999937e-01_rb,9.999936e-01_rb,9.999934e-01_rb,9.999933e-01_rb,9.999931e-01_rb,&\n        & 9.999930e-01_rb /)\n      ssaice3(:, 26) = (/ &\n! band 26\n        & 9.999997e-01_rb,9.999995e-01_rb,9.999992e-01_rb,9.999990e-01_rb,9.999987e-01_rb,&\n        & 9.999985e-01_rb,9.999983e-01_rb,9.999980e-01_rb,9.999978e-01_rb,9.999976e-01_rb,&\n        & 9.999973e-01_rb,9.999971e-01_rb,9.999969e-01_rb,9.999967e-01_rb,9.999965e-01_rb,&\n        & 9.999963e-01_rb,9.999960e-01_rb,9.999958e-01_rb,9.999956e-01_rb,9.999954e-01_rb,&\n        & 9.999952e-01_rb,9.999950e-01_rb,9.999948e-01_rb,9.999946e-01_rb,9.999944e-01_rb,&\n        & 9.999942e-01_rb,9.999939e-01_rb,9.999937e-01_rb,9.999935e-01_rb,9.999933e-01_rb,&\n        & 9.999931e-01_rb,9.999929e-01_rb,9.999927e-01_rb,9.999925e-01_rb,9.999923e-01_rb,&\n        & 9.999920e-01_rb,9.999918e-01_rb,9.999916e-01_rb,9.999914e-01_rb,9.999911e-01_rb,&\n        & 9.999909e-01_rb,9.999907e-01_rb,9.999905e-01_rb,9.999902e-01_rb,9.999900e-01_rb,&\n        & 9.999897e-01_rb /)\n      ssaice3(:, 27) = (/ &\n! band 27\n        & 9.999991e-01_rb,9.999985e-01_rb,9.999980e-01_rb,9.999974e-01_rb,9.999968e-01_rb,&\n        & 9.999963e-01_rb,9.999957e-01_rb,9.999951e-01_rb,9.999946e-01_rb,9.999940e-01_rb,&\n        & 9.999934e-01_rb,9.999929e-01_rb,9.999923e-01_rb,9.999918e-01_rb,9.999912e-01_rb,&\n        & 9.999907e-01_rb,9.999901e-01_rb,9.999896e-01_rb,9.999891e-01_rb,9.999885e-01_rb,&\n        & 9.999880e-01_rb,9.999874e-01_rb,9.999869e-01_rb,9.999863e-01_rb,9.999858e-01_rb,&\n        & 9.999853e-01_rb,9.999847e-01_rb,9.999842e-01_rb,9.999836e-01_rb,9.999831e-01_rb,&\n        & 9.999826e-01_rb,9.999820e-01_rb,9.999815e-01_rb,9.999809e-01_rb,9.999804e-01_rb,&\n        & 9.999798e-01_rb,9.999793e-01_rb,9.999787e-01_rb,9.999782e-01_rb,9.999776e-01_rb,&\n        & 9.999770e-01_rb,9.999765e-01_rb,9.999759e-01_rb,9.999754e-01_rb,9.999748e-01_rb,&\n        & 9.999742e-01_rb /)\n      ssaice3(:, 28) = (/ &\n! band 28\n        & 9.999975e-01_rb,9.999961e-01_rb,9.999946e-01_rb,9.999931e-01_rb,9.999917e-01_rb,&\n        & 9.999903e-01_rb,9.999888e-01_rb,9.999874e-01_rb,9.999859e-01_rb,9.999845e-01_rb,&\n        & 9.999831e-01_rb,9.999816e-01_rb,9.999802e-01_rb,9.999788e-01_rb,9.999774e-01_rb,&\n        & 9.999759e-01_rb,9.999745e-01_rb,9.999731e-01_rb,9.999717e-01_rb,9.999702e-01_rb,&\n        & 9.999688e-01_rb,9.999674e-01_rb,9.999660e-01_rb,9.999646e-01_rb,9.999631e-01_rb,&\n        & 9.999617e-01_rb,9.999603e-01_rb,9.999589e-01_rb,9.999574e-01_rb,9.999560e-01_rb,&\n        & 9.999546e-01_rb,9.999532e-01_rb,9.999517e-01_rb,9.999503e-01_rb,9.999489e-01_rb,&\n        & 9.999474e-01_rb,9.999460e-01_rb,9.999446e-01_rb,9.999431e-01_rb,9.999417e-01_rb,&\n        & 9.999403e-01_rb,9.999388e-01_rb,9.999374e-01_rb,9.999359e-01_rb,9.999345e-01_rb,&\n        & 9.999330e-01_rb /)\n      ssaice3(:, 29) = (/ &\n! band 29\n        & 4.526500e-01_rb,5.287890e-01_rb,5.410487e-01_rb,5.459865e-01_rb,5.485149e-01_rb,&\n        & 5.498914e-01_rb,5.505895e-01_rb,5.508310e-01_rb,5.507364e-01_rb,5.503793e-01_rb,&\n        & 5.498090e-01_rb,5.490612e-01_rb,5.481637e-01_rb,5.471395e-01_rb,5.460083e-01_rb,&\n        & 5.447878e-01_rb,5.434946e-01_rb,5.421442e-01_rb,5.407514e-01_rb,5.393309e-01_rb,&\n        & 5.378970e-01_rb,5.364641e-01_rb,5.350464e-01_rb,5.336582e-01_rb,5.323140e-01_rb,&\n        & 5.310283e-01_rb,5.298158e-01_rb,5.286914e-01_rb,5.276704e-01_rb,5.267680e-01_rb,&\n        & 5.260000e-01_rb,5.253823e-01_rb,5.249311e-01_rb,5.246629e-01_rb,5.245946e-01_rb,&\n        & 5.247434e-01_rb,5.251268e-01_rb,5.257626e-01_rb,5.266693e-01_rb,5.278653e-01_rb,&\n        & 5.293698e-01_rb,5.312022e-01_rb,5.333823e-01_rb,5.359305e-01_rb,5.388676e-01_rb,&\n        & 5.422146e-01_rb /)\n\n! asymmetry factor: unitless\n      asyice3(:, 16) = (/ &\n! band 16\n        & 8.340752e-01_rb,8.435170e-01_rb,8.517487e-01_rb,8.592064e-01_rb,8.660387e-01_rb,&\n        & 8.723204e-01_rb,8.780997e-01_rb,8.834137e-01_rb,8.882934e-01_rb,8.927662e-01_rb,&\n        & 8.968577e-01_rb,9.005914e-01_rb,9.039899e-01_rb,9.070745e-01_rb,9.098659e-01_rb,&\n        & 9.123836e-01_rb,9.146466e-01_rb,9.166734e-01_rb,9.184817e-01_rb,9.200886e-01_rb,&\n        & 9.215109e-01_rb,9.227648e-01_rb,9.238661e-01_rb,9.248304e-01_rb,9.256727e-01_rb,&\n        & 9.264078e-01_rb,9.270505e-01_rb,9.276150e-01_rb,9.281156e-01_rb,9.285662e-01_rb,&\n        & 9.289806e-01_rb,9.293726e-01_rb,9.297557e-01_rb,9.301435e-01_rb,9.305491e-01_rb,&\n        & 9.309859e-01_rb,9.314671e-01_rb,9.320055e-01_rb,9.326140e-01_rb,9.333053e-01_rb,&\n        & 9.340919e-01_rb,9.349861e-01_rb,9.360000e-01_rb,9.371451e-01_rb,9.384329e-01_rb,&\n        & 9.398744e-01_rb /)\n      asyice3(:, 17) = (/ &\n! band 17\n        & 8.728160e-01_rb,8.777333e-01_rb,8.823754e-01_rb,8.867535e-01_rb,8.908785e-01_rb,&\n        & 8.947611e-01_rb,8.984118e-01_rb,9.018408e-01_rb,9.050582e-01_rb,9.080739e-01_rb,&\n        & 9.108976e-01_rb,9.135388e-01_rb,9.160068e-01_rb,9.183106e-01_rb,9.204595e-01_rb,&\n        & 9.224620e-01_rb,9.243271e-01_rb,9.260632e-01_rb,9.276788e-01_rb,9.291822e-01_rb,&\n        & 9.305817e-01_rb,9.318853e-01_rb,9.331012e-01_rb,9.342372e-01_rb,9.353013e-01_rb,&\n        & 9.363013e-01_rb,9.372450e-01_rb,9.381400e-01_rb,9.389939e-01_rb,9.398145e-01_rb,&\n        & 9.406092e-01_rb,9.413856e-01_rb,9.421511e-01_rb,9.429131e-01_rb,9.436790e-01_rb,&\n        & 9.444561e-01_rb,9.452517e-01_rb,9.460729e-01_rb,9.469270e-01_rb,9.478209e-01_rb,&\n        & 9.487617e-01_rb,9.497562e-01_rb,9.508112e-01_rb,9.519335e-01_rb,9.531294e-01_rb,&\n        & 9.544055e-01_rb /)\n      asyice3(:, 18) = (/ &\n! band 18\n        & 7.897566e-01_rb,7.948704e-01_rb,7.998041e-01_rb,8.045623e-01_rb,8.091495e-01_rb,&\n        & 8.135702e-01_rb,8.178290e-01_rb,8.219305e-01_rb,8.258790e-01_rb,8.296792e-01_rb,&\n        & 8.333355e-01_rb,8.368524e-01_rb,8.402343e-01_rb,8.434856e-01_rb,8.466108e-01_rb,&\n        & 8.496143e-01_rb,8.525004e-01_rb,8.552737e-01_rb,8.579384e-01_rb,8.604990e-01_rb,&\n        & 8.629597e-01_rb,8.653250e-01_rb,8.675992e-01_rb,8.697867e-01_rb,8.718916e-01_rb,&\n        & 8.739185e-01_rb,8.758715e-01_rb,8.777551e-01_rb,8.795734e-01_rb,8.813308e-01_rb,&\n        & 8.830315e-01_rb,8.846799e-01_rb,8.862802e-01_rb,8.878366e-01_rb,8.893534e-01_rb,&\n        & 8.908350e-01_rb,8.922854e-01_rb,8.937090e-01_rb,8.951099e-01_rb,8.964925e-01_rb,&\n        & 8.978609e-01_rb,8.992192e-01_rb,9.005718e-01_rb,9.019229e-01_rb,9.032765e-01_rb,&\n        & 9.046369e-01_rb /)\n      asyice3(:, 19) = (/ &\n! band 19\n        & 7.812615e-01_rb,7.887764e-01_rb,7.959664e-01_rb,8.028413e-01_rb,8.094109e-01_rb,&\n        & 8.156849e-01_rb,8.216730e-01_rb,8.273846e-01_rb,8.328294e-01_rb,8.380166e-01_rb,&\n        & 8.429556e-01_rb,8.476556e-01_rb,8.521258e-01_rb,8.563753e-01_rb,8.604131e-01_rb,&\n        & 8.642481e-01_rb,8.678893e-01_rb,8.713455e-01_rb,8.746254e-01_rb,8.777378e-01_rb,&\n        & 8.806914e-01_rb,8.834948e-01_rb,8.861566e-01_rb,8.886854e-01_rb,8.910897e-01_rb,&\n        & 8.933779e-01_rb,8.955586e-01_rb,8.976402e-01_rb,8.996311e-01_rb,9.015398e-01_rb,&\n        & 9.033745e-01_rb,9.051436e-01_rb,9.068555e-01_rb,9.085185e-01_rb,9.101410e-01_rb,&\n        & 9.117311e-01_rb,9.132972e-01_rb,9.148476e-01_rb,9.163905e-01_rb,9.179340e-01_rb,&\n        & 9.194864e-01_rb,9.210559e-01_rb,9.226505e-01_rb,9.242784e-01_rb,9.259476e-01_rb,&\n        & 9.276661e-01_rb /)\n      asyice3(:, 20) = (/ &\n! band 20\n        & 7.640720e-01_rb,7.691119e-01_rb,7.739941e-01_rb,7.787222e-01_rb,7.832998e-01_rb,&\n        & 7.877304e-01_rb,7.920177e-01_rb,7.961652e-01_rb,8.001765e-01_rb,8.040551e-01_rb,&\n        & 8.078044e-01_rb,8.114280e-01_rb,8.149294e-01_rb,8.183119e-01_rb,8.215791e-01_rb,&\n        & 8.247344e-01_rb,8.277812e-01_rb,8.307229e-01_rb,8.335629e-01_rb,8.363046e-01_rb,&\n        & 8.389514e-01_rb,8.415067e-01_rb,8.439738e-01_rb,8.463560e-01_rb,8.486568e-01_rb,&\n        & 8.508795e-01_rb,8.530274e-01_rb,8.551039e-01_rb,8.571122e-01_rb,8.590558e-01_rb,&\n        & 8.609378e-01_rb,8.627618e-01_rb,8.645309e-01_rb,8.662485e-01_rb,8.679178e-01_rb,&\n        & 8.695423e-01_rb,8.711251e-01_rb,8.726697e-01_rb,8.741792e-01_rb,8.756571e-01_rb,&\n        & 8.771065e-01_rb,8.785307e-01_rb,8.799331e-01_rb,8.813169e-01_rb,8.826854e-01_rb,&\n        & 8.840419e-01_rb /)\n      asyice3(:, 21) = (/ &\n! band 21\n        & 7.602598e-01_rb,7.651572e-01_rb,7.699014e-01_rb,7.744962e-01_rb,7.789452e-01_rb,&\n        & 7.832522e-01_rb,7.874205e-01_rb,7.914538e-01_rb,7.953555e-01_rb,7.991290e-01_rb,&\n        & 8.027777e-01_rb,8.063049e-01_rb,8.097140e-01_rb,8.130081e-01_rb,8.161906e-01_rb,&\n        & 8.192645e-01_rb,8.222331e-01_rb,8.250993e-01_rb,8.278664e-01_rb,8.305374e-01_rb,&\n        & 8.331153e-01_rb,8.356030e-01_rb,8.380037e-01_rb,8.403201e-01_rb,8.425553e-01_rb,&\n        & 8.447121e-01_rb,8.467935e-01_rb,8.488022e-01_rb,8.507412e-01_rb,8.526132e-01_rb,&\n        & 8.544210e-01_rb,8.561675e-01_rb,8.578554e-01_rb,8.594875e-01_rb,8.610665e-01_rb,&\n        & 8.625951e-01_rb,8.640760e-01_rb,8.655119e-01_rb,8.669055e-01_rb,8.682594e-01_rb,&\n        & 8.695763e-01_rb,8.708587e-01_rb,8.721094e-01_rb,8.733308e-01_rb,8.745255e-01_rb,&\n        & 8.756961e-01_rb /)\n      asyice3(:, 22) = (/ &\n! band 22\n        & 7.568957e-01_rb,7.606995e-01_rb,7.644072e-01_rb,7.680204e-01_rb,7.715402e-01_rb,&\n        & 7.749682e-01_rb,7.783057e-01_rb,7.815541e-01_rb,7.847148e-01_rb,7.877892e-01_rb,&\n        & 7.907786e-01_rb,7.936846e-01_rb,7.965084e-01_rb,7.992515e-01_rb,8.019153e-01_rb,&\n        & 8.045011e-01_rb,8.070103e-01_rb,8.094444e-01_rb,8.118048e-01_rb,8.140927e-01_rb,&\n        & 8.163097e-01_rb,8.184571e-01_rb,8.205364e-01_rb,8.225488e-01_rb,8.244958e-01_rb,&\n        & 8.263789e-01_rb,8.281993e-01_rb,8.299586e-01_rb,8.316580e-01_rb,8.332991e-01_rb,&\n        & 8.348831e-01_rb,8.364115e-01_rb,8.378857e-01_rb,8.393071e-01_rb,8.406770e-01_rb,&\n        & 8.419969e-01_rb,8.432682e-01_rb,8.444923e-01_rb,8.456706e-01_rb,8.468044e-01_rb,&\n        & 8.478952e-01_rb,8.489444e-01_rb,8.499533e-01_rb,8.509234e-01_rb,8.518561e-01_rb,&\n        & 8.527528e-01_rb /)\n      asyice3(:, 23) = (/ &\n! band 23\n        & 7.575066e-01_rb,7.606912e-01_rb,7.638236e-01_rb,7.669035e-01_rb,7.699306e-01_rb,&\n        & 7.729046e-01_rb,7.758254e-01_rb,7.786926e-01_rb,7.815060e-01_rb,7.842654e-01_rb,&\n        & 7.869705e-01_rb,7.896211e-01_rb,7.922168e-01_rb,7.947574e-01_rb,7.972428e-01_rb,&\n        & 7.996726e-01_rb,8.020466e-01_rb,8.043646e-01_rb,8.066262e-01_rb,8.088313e-01_rb,&\n        & 8.109796e-01_rb,8.130709e-01_rb,8.151049e-01_rb,8.170814e-01_rb,8.190001e-01_rb,&\n        & 8.208608e-01_rb,8.226632e-01_rb,8.244071e-01_rb,8.260924e-01_rb,8.277186e-01_rb,&\n        & 8.292856e-01_rb,8.307932e-01_rb,8.322411e-01_rb,8.336291e-01_rb,8.349570e-01_rb,&\n        & 8.362244e-01_rb,8.374312e-01_rb,8.385772e-01_rb,8.396621e-01_rb,8.406856e-01_rb,&\n        & 8.416476e-01_rb,8.425479e-01_rb,8.433861e-01_rb,8.441620e-01_rb,8.448755e-01_rb,&\n        & 8.455263e-01_rb /)\n      asyice3(:, 24) = (/ &\n! band 24\n        & 7.568829e-01_rb,7.597947e-01_rb,7.626745e-01_rb,7.655212e-01_rb,7.683337e-01_rb,&\n        & 7.711111e-01_rb,7.738523e-01_rb,7.765565e-01_rb,7.792225e-01_rb,7.818494e-01_rb,&\n        & 7.844362e-01_rb,7.869819e-01_rb,7.894854e-01_rb,7.919459e-01_rb,7.943623e-01_rb,&\n        & 7.967337e-01_rb,7.990590e-01_rb,8.013373e-01_rb,8.035676e-01_rb,8.057488e-01_rb,&\n        & 8.078802e-01_rb,8.099605e-01_rb,8.119890e-01_rb,8.139645e-01_rb,8.158862e-01_rb,&\n        & 8.177530e-01_rb,8.195641e-01_rb,8.213183e-01_rb,8.230149e-01_rb,8.246527e-01_rb,&\n        & 8.262308e-01_rb,8.277483e-01_rb,8.292042e-01_rb,8.305976e-01_rb,8.319275e-01_rb,&\n        & 8.331929e-01_rb,8.343929e-01_rb,8.355265e-01_rb,8.365928e-01_rb,8.375909e-01_rb,&\n        & 8.385197e-01_rb,8.393784e-01_rb,8.401659e-01_rb,8.408815e-01_rb,8.415240e-01_rb,&\n        & 8.420926e-01_rb /)\n      asyice3(:, 25) = (/ &\n! band 25\n        & 7.548616e-01_rb,7.575454e-01_rb,7.602153e-01_rb,7.628696e-01_rb,7.655067e-01_rb,&\n        & 7.681249e-01_rb,7.707225e-01_rb,7.732978e-01_rb,7.758492e-01_rb,7.783750e-01_rb,&\n        & 7.808735e-01_rb,7.833430e-01_rb,7.857819e-01_rb,7.881886e-01_rb,7.905612e-01_rb,&\n        & 7.928983e-01_rb,7.951980e-01_rb,7.974588e-01_rb,7.996789e-01_rb,8.018567e-01_rb,&\n        & 8.039905e-01_rb,8.060787e-01_rb,8.081196e-01_rb,8.101115e-01_rb,8.120527e-01_rb,&\n        & 8.139416e-01_rb,8.157764e-01_rb,8.175557e-01_rb,8.192776e-01_rb,8.209405e-01_rb,&\n        & 8.225427e-01_rb,8.240826e-01_rb,8.255585e-01_rb,8.269688e-01_rb,8.283117e-01_rb,&\n        & 8.295856e-01_rb,8.307889e-01_rb,8.319198e-01_rb,8.329767e-01_rb,8.339579e-01_rb,&\n        & 8.348619e-01_rb,8.356868e-01_rb,8.364311e-01_rb,8.370930e-01_rb,8.376710e-01_rb,&\n        & 8.381633e-01_rb /)\n      asyice3(:, 26) = (/ &\n! band 26\n        & 7.491854e-01_rb,7.518523e-01_rb,7.545089e-01_rb,7.571534e-01_rb,7.597839e-01_rb,&\n        & 7.623987e-01_rb,7.649959e-01_rb,7.675737e-01_rb,7.701303e-01_rb,7.726639e-01_rb,&\n        & 7.751727e-01_rb,7.776548e-01_rb,7.801084e-01_rb,7.825318e-01_rb,7.849230e-01_rb,&\n        & 7.872804e-01_rb,7.896020e-01_rb,7.918862e-01_rb,7.941309e-01_rb,7.963345e-01_rb,&\n        & 7.984951e-01_rb,8.006109e-01_rb,8.026802e-01_rb,8.047009e-01_rb,8.066715e-01_rb,&\n        & 8.085900e-01_rb,8.104546e-01_rb,8.122636e-01_rb,8.140150e-01_rb,8.157072e-01_rb,&\n        & 8.173382e-01_rb,8.189063e-01_rb,8.204096e-01_rb,8.218464e-01_rb,8.232148e-01_rb,&\n        & 8.245130e-01_rb,8.257391e-01_rb,8.268915e-01_rb,8.279682e-01_rb,8.289675e-01_rb,&\n        & 8.298875e-01_rb,8.307264e-01_rb,8.314824e-01_rb,8.321537e-01_rb,8.327385e-01_rb,&\n        & 8.332350e-01_rb /)\n      asyice3(:, 27) = (/ &\n! band 27\n        & 7.397086e-01_rb,7.424069e-01_rb,7.450955e-01_rb,7.477725e-01_rb,7.504362e-01_rb,&\n        & 7.530846e-01_rb,7.557159e-01_rb,7.583283e-01_rb,7.609199e-01_rb,7.634888e-01_rb,&\n        & 7.660332e-01_rb,7.685512e-01_rb,7.710411e-01_rb,7.735009e-01_rb,7.759288e-01_rb,&\n        & 7.783229e-01_rb,7.806814e-01_rb,7.830024e-01_rb,7.852841e-01_rb,7.875246e-01_rb,&\n        & 7.897221e-01_rb,7.918748e-01_rb,7.939807e-01_rb,7.960380e-01_rb,7.980449e-01_rb,&\n        & 7.999995e-01_rb,8.019000e-01_rb,8.037445e-01_rb,8.055311e-01_rb,8.072581e-01_rb,&\n        & 8.089235e-01_rb,8.105255e-01_rb,8.120623e-01_rb,8.135319e-01_rb,8.149326e-01_rb,&\n        & 8.162626e-01_rb,8.175198e-01_rb,8.187025e-01_rb,8.198089e-01_rb,8.208371e-01_rb,&\n        & 8.217852e-01_rb,8.226514e-01_rb,8.234338e-01_rb,8.241306e-01_rb,8.247399e-01_rb,&\n        & 8.252599e-01_rb /)\n      asyice3(:, 28) = (/ &\n! band 28\n        & 7.224533e-01_rb,7.251681e-01_rb,7.278728e-01_rb,7.305654e-01_rb,7.332444e-01_rb,&\n        & 7.359078e-01_rb,7.385539e-01_rb,7.411808e-01_rb,7.437869e-01_rb,7.463702e-01_rb,&\n        & 7.489291e-01_rb,7.514616e-01_rb,7.539661e-01_rb,7.564408e-01_rb,7.588837e-01_rb,&\n        & 7.612933e-01_rb,7.636676e-01_rb,7.660049e-01_rb,7.683034e-01_rb,7.705612e-01_rb,&\n        & 7.727767e-01_rb,7.749480e-01_rb,7.770733e-01_rb,7.791509e-01_rb,7.811789e-01_rb,&\n        & 7.831556e-01_rb,7.850791e-01_rb,7.869478e-01_rb,7.887597e-01_rb,7.905131e-01_rb,&\n        & 7.922062e-01_rb,7.938372e-01_rb,7.954044e-01_rb,7.969059e-01_rb,7.983399e-01_rb,&\n        & 7.997047e-01_rb,8.009985e-01_rb,8.022195e-01_rb,8.033658e-01_rb,8.044357e-01_rb,&\n        & 8.054275e-01_rb,8.063392e-01_rb,8.071692e-01_rb,8.079157e-01_rb,8.085768e-01_rb,&\n        & 8.091507e-01_rb /)\n      asyice3(:, 29) = (/ &\n! band 29\n        & 8.850026e-01_rb,9.005489e-01_rb,9.069242e-01_rb,9.121799e-01_rb,9.168987e-01_rb,&\n        & 9.212259e-01_rb,9.252176e-01_rb,9.289028e-01_rb,9.323000e-01_rb,9.354235e-01_rb,&\n        & 9.382858e-01_rb,9.408985e-01_rb,9.432734e-01_rb,9.454218e-01_rb,9.473557e-01_rb,&\n        & 9.490871e-01_rb,9.506282e-01_rb,9.519917e-01_rb,9.531904e-01_rb,9.542374e-01_rb,&\n        & 9.551461e-01_rb,9.559298e-01_rb,9.566023e-01_rb,9.571775e-01_rb,9.576692e-01_rb,&\n        & 9.580916e-01_rb,9.584589e-01_rb,9.587853e-01_rb,9.590851e-01_rb,9.593729e-01_rb,&\n        & 9.596632e-01_rb,9.599705e-01_rb,9.603096e-01_rb,9.606954e-01_rb,9.611427e-01_rb,&\n        & 9.616667e-01_rb,9.622826e-01_rb,9.630060e-01_rb,9.638524e-01_rb,9.648379e-01_rb,&\n        & 9.659788e-01_rb,9.672916e-01_rb,9.687933e-01_rb,9.705014e-01_rb,9.724337e-01_rb,&\n        & 9.746084e-01_rb /)\n\n! fdelta: unitless\n      fdlice3(:, 16) = (/ &\n! band 16\n        & 4.959277e-02_rb,4.685292e-02_rb,4.426104e-02_rb,4.181231e-02_rb,3.950191e-02_rb,&\n        & 3.732500e-02_rb,3.527675e-02_rb,3.335235e-02_rb,3.154697e-02_rb,2.985578e-02_rb,&\n        & 2.827395e-02_rb,2.679666e-02_rb,2.541909e-02_rb,2.413640e-02_rb,2.294378e-02_rb,&\n        & 2.183639e-02_rb,2.080940e-02_rb,1.985801e-02_rb,1.897736e-02_rb,1.816265e-02_rb,&\n        & 1.740905e-02_rb,1.671172e-02_rb,1.606585e-02_rb,1.546661e-02_rb,1.490917e-02_rb,&\n        & 1.438870e-02_rb,1.390038e-02_rb,1.343939e-02_rb,1.300089e-02_rb,1.258006e-02_rb,&\n        & 1.217208e-02_rb,1.177212e-02_rb,1.137536e-02_rb,1.097696e-02_rb,1.057210e-02_rb,&\n        & 1.015596e-02_rb,9.723704e-03_rb,9.270516e-03_rb,8.791565e-03_rb,8.282026e-03_rb,&\n        & 7.737072e-03_rb,7.151879e-03_rb,6.521619e-03_rb,5.841467e-03_rb,5.106597e-03_rb,&\n        & 4.312183e-03_rb /)\n      fdlice3(:, 17) = (/ &\n! band 17\n        & 5.071224e-02_rb,5.000217e-02_rb,4.933872e-02_rb,4.871992e-02_rb,4.814380e-02_rb,&\n        & 4.760839e-02_rb,4.711170e-02_rb,4.665177e-02_rb,4.622662e-02_rb,4.583426e-02_rb,&\n        & 4.547274e-02_rb,4.514007e-02_rb,4.483428e-02_rb,4.455340e-02_rb,4.429544e-02_rb,&\n        & 4.405844e-02_rb,4.384041e-02_rb,4.363939e-02_rb,4.345340e-02_rb,4.328047e-02_rb,&\n        & 4.311861e-02_rb,4.296586e-02_rb,4.282024e-02_rb,4.267977e-02_rb,4.254248e-02_rb,&\n        & 4.240640e-02_rb,4.226955e-02_rb,4.212995e-02_rb,4.198564e-02_rb,4.183462e-02_rb,&\n        & 4.167494e-02_rb,4.150462e-02_rb,4.132167e-02_rb,4.112413e-02_rb,4.091003e-02_rb,&\n        & 4.067737e-02_rb,4.042420e-02_rb,4.014854e-02_rb,3.984840e-02_rb,3.952183e-02_rb,&\n        & 3.916683e-02_rb,3.878144e-02_rb,3.836368e-02_rb,3.791158e-02_rb,3.742316e-02_rb,&\n        & 3.689645e-02_rb /)\n      fdlice3(:, 18) = (/ &\n! band 18\n        & 1.062938e-01_rb,1.065234e-01_rb,1.067822e-01_rb,1.070682e-01_rb,1.073793e-01_rb,&\n        & 1.077137e-01_rb,1.080693e-01_rb,1.084442e-01_rb,1.088364e-01_rb,1.092439e-01_rb,&\n        & 1.096647e-01_rb,1.100970e-01_rb,1.105387e-01_rb,1.109878e-01_rb,1.114423e-01_rb,&\n        & 1.119004e-01_rb,1.123599e-01_rb,1.128190e-01_rb,1.132757e-01_rb,1.137279e-01_rb,&\n        & 1.141738e-01_rb,1.146113e-01_rb,1.150385e-01_rb,1.154534e-01_rb,1.158540e-01_rb,&\n        & 1.162383e-01_rb,1.166045e-01_rb,1.169504e-01_rb,1.172741e-01_rb,1.175738e-01_rb,&\n        & 1.178472e-01_rb,1.180926e-01_rb,1.183080e-01_rb,1.184913e-01_rb,1.186405e-01_rb,&\n        & 1.187538e-01_rb,1.188291e-01_rb,1.188645e-01_rb,1.188580e-01_rb,1.188076e-01_rb,&\n        & 1.187113e-01_rb,1.185672e-01_rb,1.183733e-01_rb,1.181277e-01_rb,1.178282e-01_rb,&\n        & 1.174731e-01_rb /)\n      fdlice3(:, 19) = (/ &\n! band 19\n        & 1.076195e-01_rb,1.065195e-01_rb,1.054696e-01_rb,1.044673e-01_rb,1.035099e-01_rb,&\n        & 1.025951e-01_rb,1.017203e-01_rb,1.008831e-01_rb,1.000808e-01_rb,9.931116e-02_rb,&\n        & 9.857151e-02_rb,9.785939e-02_rb,9.717230e-02_rb,9.650774e-02_rb,9.586322e-02_rb,&\n        & 9.523623e-02_rb,9.462427e-02_rb,9.402484e-02_rb,9.343544e-02_rb,9.285358e-02_rb,&\n        & 9.227675e-02_rb,9.170245e-02_rb,9.112818e-02_rb,9.055144e-02_rb,8.996974e-02_rb,&\n        & 8.938056e-02_rb,8.878142e-02_rb,8.816981e-02_rb,8.754323e-02_rb,8.689919e-02_rb,&\n        & 8.623517e-02_rb,8.554869e-02_rb,8.483724e-02_rb,8.409832e-02_rb,8.332943e-02_rb,&\n        & 8.252807e-02_rb,8.169175e-02_rb,8.081795e-02_rb,7.990419e-02_rb,7.894796e-02_rb,&\n        & 7.794676e-02_rb,7.689809e-02_rb,7.579945e-02_rb,7.464834e-02_rb,7.344227e-02_rb,&\n        & 7.217872e-02_rb /)\n      fdlice3(:, 20) = (/ &\n! band 20\n        & 1.119014e-01_rb,1.122706e-01_rb,1.126690e-01_rb,1.130947e-01_rb,1.135456e-01_rb,&\n        & 1.140199e-01_rb,1.145154e-01_rb,1.150302e-01_rb,1.155623e-01_rb,1.161096e-01_rb,&\n        & 1.166703e-01_rb,1.172422e-01_rb,1.178233e-01_rb,1.184118e-01_rb,1.190055e-01_rb,&\n        & 1.196025e-01_rb,1.202008e-01_rb,1.207983e-01_rb,1.213931e-01_rb,1.219832e-01_rb,&\n        & 1.225665e-01_rb,1.231411e-01_rb,1.237050e-01_rb,1.242561e-01_rb,1.247926e-01_rb,&\n        & 1.253122e-01_rb,1.258132e-01_rb,1.262934e-01_rb,1.267509e-01_rb,1.271836e-01_rb,&\n        & 1.275896e-01_rb,1.279669e-01_rb,1.283134e-01_rb,1.286272e-01_rb,1.289063e-01_rb,&\n        & 1.291486e-01_rb,1.293522e-01_rb,1.295150e-01_rb,1.296351e-01_rb,1.297104e-01_rb,&\n        & 1.297390e-01_rb,1.297189e-01_rb,1.296480e-01_rb,1.295244e-01_rb,1.293460e-01_rb,&\n        & 1.291109e-01_rb /)\n      fdlice3(:, 21) = (/ &\n! band 21\n        & 1.133298e-01_rb,1.136777e-01_rb,1.140556e-01_rb,1.144615e-01_rb,1.148934e-01_rb,&\n        & 1.153492e-01_rb,1.158269e-01_rb,1.163243e-01_rb,1.168396e-01_rb,1.173706e-01_rb,&\n        & 1.179152e-01_rb,1.184715e-01_rb,1.190374e-01_rb,1.196108e-01_rb,1.201897e-01_rb,&\n        & 1.207720e-01_rb,1.213558e-01_rb,1.219389e-01_rb,1.225194e-01_rb,1.230951e-01_rb,&\n        & 1.236640e-01_rb,1.242241e-01_rb,1.247733e-01_rb,1.253096e-01_rb,1.258309e-01_rb,&\n        & 1.263352e-01_rb,1.268205e-01_rb,1.272847e-01_rb,1.277257e-01_rb,1.281415e-01_rb,&\n        & 1.285300e-01_rb,1.288893e-01_rb,1.292173e-01_rb,1.295118e-01_rb,1.297710e-01_rb,&\n        & 1.299927e-01_rb,1.301748e-01_rb,1.303154e-01_rb,1.304124e-01_rb,1.304637e-01_rb,&\n        & 1.304673e-01_rb,1.304212e-01_rb,1.303233e-01_rb,1.301715e-01_rb,1.299638e-01_rb,&\n        & 1.296983e-01_rb /)\n      fdlice3(:, 22) = (/ &\n! band 22\n        & 1.145360e-01_rb,1.153256e-01_rb,1.161453e-01_rb,1.169929e-01_rb,1.178666e-01_rb,&\n        & 1.187641e-01_rb,1.196835e-01_rb,1.206227e-01_rb,1.215796e-01_rb,1.225522e-01_rb,&\n        & 1.235383e-01_rb,1.245361e-01_rb,1.255433e-01_rb,1.265579e-01_rb,1.275779e-01_rb,&\n        & 1.286011e-01_rb,1.296257e-01_rb,1.306494e-01_rb,1.316703e-01_rb,1.326862e-01_rb,&\n        & 1.336951e-01_rb,1.346950e-01_rb,1.356838e-01_rb,1.366594e-01_rb,1.376198e-01_rb,&\n        & 1.385629e-01_rb,1.394866e-01_rb,1.403889e-01_rb,1.412678e-01_rb,1.421212e-01_rb,&\n        & 1.429469e-01_rb,1.437430e-01_rb,1.445074e-01_rb,1.452381e-01_rb,1.459329e-01_rb,&\n        & 1.465899e-01_rb,1.472069e-01_rb,1.477819e-01_rb,1.483128e-01_rb,1.487976e-01_rb,&\n        & 1.492343e-01_rb,1.496207e-01_rb,1.499548e-01_rb,1.502346e-01_rb,1.504579e-01_rb,&\n        & 1.506227e-01_rb /)\n      fdlice3(:, 23) = (/ &\n! band 23\n        & 1.153263e-01_rb,1.161445e-01_rb,1.169932e-01_rb,1.178703e-01_rb,1.187738e-01_rb,&\n        & 1.197016e-01_rb,1.206516e-01_rb,1.216217e-01_rb,1.226099e-01_rb,1.236141e-01_rb,&\n        & 1.246322e-01_rb,1.256621e-01_rb,1.267017e-01_rb,1.277491e-01_rb,1.288020e-01_rb,&\n        & 1.298584e-01_rb,1.309163e-01_rb,1.319736e-01_rb,1.330281e-01_rb,1.340778e-01_rb,&\n        & 1.351207e-01_rb,1.361546e-01_rb,1.371775e-01_rb,1.381873e-01_rb,1.391820e-01_rb,&\n        & 1.401593e-01_rb,1.411174e-01_rb,1.420540e-01_rb,1.429671e-01_rb,1.438547e-01_rb,&\n        & 1.447146e-01_rb,1.455449e-01_rb,1.463433e-01_rb,1.471078e-01_rb,1.478364e-01_rb,&\n        & 1.485270e-01_rb,1.491774e-01_rb,1.497857e-01_rb,1.503497e-01_rb,1.508674e-01_rb,&\n        & 1.513367e-01_rb,1.517554e-01_rb,1.521216e-01_rb,1.524332e-01_rb,1.526880e-01_rb,&\n        & 1.528840e-01_rb /)\n      fdlice3(:, 24) = (/ &\n! band 24\n        & 1.160842e-01_rb,1.169118e-01_rb,1.177697e-01_rb,1.186556e-01_rb,1.195676e-01_rb,&\n        & 1.205036e-01_rb,1.214616e-01_rb,1.224394e-01_rb,1.234349e-01_rb,1.244463e-01_rb,&\n        & 1.254712e-01_rb,1.265078e-01_rb,1.275539e-01_rb,1.286075e-01_rb,1.296664e-01_rb,&\n        & 1.307287e-01_rb,1.317923e-01_rb,1.328550e-01_rb,1.339149e-01_rb,1.349699e-01_rb,&\n        & 1.360179e-01_rb,1.370567e-01_rb,1.380845e-01_rb,1.390991e-01_rb,1.400984e-01_rb,&\n        & 1.410803e-01_rb,1.420429e-01_rb,1.429840e-01_rb,1.439016e-01_rb,1.447936e-01_rb,&\n        & 1.456579e-01_rb,1.464925e-01_rb,1.472953e-01_rb,1.480642e-01_rb,1.487972e-01_rb,&\n        & 1.494923e-01_rb,1.501472e-01_rb,1.507601e-01_rb,1.513287e-01_rb,1.518511e-01_rb,&\n        & 1.523252e-01_rb,1.527489e-01_rb,1.531201e-01_rb,1.534368e-01_rb,1.536969e-01_rb,&\n        & 1.538984e-01_rb /)\n      fdlice3(:, 25) = (/ &\n! band 25\n        & 1.168725e-01_rb,1.177088e-01_rb,1.185747e-01_rb,1.194680e-01_rb,1.203867e-01_rb,&\n        & 1.213288e-01_rb,1.222923e-01_rb,1.232750e-01_rb,1.242750e-01_rb,1.252903e-01_rb,&\n        & 1.263187e-01_rb,1.273583e-01_rb,1.284069e-01_rb,1.294626e-01_rb,1.305233e-01_rb,&\n        & 1.315870e-01_rb,1.326517e-01_rb,1.337152e-01_rb,1.347756e-01_rb,1.358308e-01_rb,&\n        & 1.368788e-01_rb,1.379175e-01_rb,1.389449e-01_rb,1.399590e-01_rb,1.409577e-01_rb,&\n        & 1.419389e-01_rb,1.429007e-01_rb,1.438410e-01_rb,1.447577e-01_rb,1.456488e-01_rb,&\n        & 1.465123e-01_rb,1.473461e-01_rb,1.481483e-01_rb,1.489166e-01_rb,1.496492e-01_rb,&\n        & 1.503439e-01_rb,1.509988e-01_rb,1.516118e-01_rb,1.521808e-01_rb,1.527038e-01_rb,&\n        & 1.531788e-01_rb,1.536037e-01_rb,1.539764e-01_rb,1.542951e-01_rb,1.545575e-01_rb,&\n        & 1.547617e-01_rb /)\n      fdlice3(:, 26) = (/ &\n!band 26\n        & 1.180509e-01_rb,1.189025e-01_rb,1.197820e-01_rb,1.206875e-01_rb,1.216171e-01_rb,&\n        & 1.225687e-01_rb,1.235404e-01_rb,1.245303e-01_rb,1.255363e-01_rb,1.265564e-01_rb,&\n        & 1.275888e-01_rb,1.286313e-01_rb,1.296821e-01_rb,1.307392e-01_rb,1.318006e-01_rb,&\n        & 1.328643e-01_rb,1.339284e-01_rb,1.349908e-01_rb,1.360497e-01_rb,1.371029e-01_rb,&\n        & 1.381486e-01_rb,1.391848e-01_rb,1.402095e-01_rb,1.412208e-01_rb,1.422165e-01_rb,&\n        & 1.431949e-01_rb,1.441539e-01_rb,1.450915e-01_rb,1.460058e-01_rb,1.468947e-01_rb,&\n        & 1.477564e-01_rb,1.485888e-01_rb,1.493900e-01_rb,1.501580e-01_rb,1.508907e-01_rb,&\n        & 1.515864e-01_rb,1.522428e-01_rb,1.528582e-01_rb,1.534305e-01_rb,1.539578e-01_rb,&\n        & 1.544380e-01_rb,1.548692e-01_rb,1.552494e-01_rb,1.555767e-01_rb,1.558490e-01_rb,&\n        & 1.560645e-01_rb /)\n      fdlice3(:, 27) = (/ &\n! band 27\n        & 1.200480e-01_rb,1.209267e-01_rb,1.218304e-01_rb,1.227575e-01_rb,1.237059e-01_rb,&\n        & 1.246739e-01_rb,1.256595e-01_rb,1.266610e-01_rb,1.276765e-01_rb,1.287041e-01_rb,&\n        & 1.297420e-01_rb,1.307883e-01_rb,1.318412e-01_rb,1.328988e-01_rb,1.339593e-01_rb,&\n        & 1.350207e-01_rb,1.360813e-01_rb,1.371393e-01_rb,1.381926e-01_rb,1.392396e-01_rb,&\n        & 1.402783e-01_rb,1.413069e-01_rb,1.423235e-01_rb,1.433263e-01_rb,1.443134e-01_rb,&\n        & 1.452830e-01_rb,1.462332e-01_rb,1.471622e-01_rb,1.480681e-01_rb,1.489490e-01_rb,&\n        & 1.498032e-01_rb,1.506286e-01_rb,1.514236e-01_rb,1.521863e-01_rb,1.529147e-01_rb,&\n        & 1.536070e-01_rb,1.542614e-01_rb,1.548761e-01_rb,1.554491e-01_rb,1.559787e-01_rb,&\n        & 1.564629e-01_rb,1.568999e-01_rb,1.572879e-01_rb,1.576249e-01_rb,1.579093e-01_rb,&\n        & 1.581390e-01_rb /)\n      fdlice3(:, 28) = (/ &\n! band 28\n        & 1.247813e-01_rb,1.256496e-01_rb,1.265417e-01_rb,1.274560e-01_rb,1.283905e-01_rb,&\n        & 1.293436e-01_rb,1.303135e-01_rb,1.312983e-01_rb,1.322964e-01_rb,1.333060e-01_rb,&\n        & 1.343252e-01_rb,1.353523e-01_rb,1.363855e-01_rb,1.374231e-01_rb,1.384632e-01_rb,&\n        & 1.395042e-01_rb,1.405441e-01_rb,1.415813e-01_rb,1.426140e-01_rb,1.436404e-01_rb,&\n        & 1.446587e-01_rb,1.456672e-01_rb,1.466640e-01_rb,1.476475e-01_rb,1.486157e-01_rb,&\n        & 1.495671e-01_rb,1.504997e-01_rb,1.514117e-01_rb,1.523016e-01_rb,1.531673e-01_rb,&\n        & 1.540073e-01_rb,1.548197e-01_rb,1.556026e-01_rb,1.563545e-01_rb,1.570734e-01_rb,&\n        & 1.577576e-01_rb,1.584054e-01_rb,1.590149e-01_rb,1.595843e-01_rb,1.601120e-01_rb,&\n        & 1.605962e-01_rb,1.610349e-01_rb,1.614266e-01_rb,1.617693e-01_rb,1.620614e-01_rb,&\n        & 1.623011e-01_rb /)\n      fdlice3(:, 29) = (/ &\n! band 29\n        & 1.006055e-01_rb,9.549582e-02_rb,9.063960e-02_rb,8.602900e-02_rb,8.165612e-02_rb,&\n        & 7.751308e-02_rb,7.359199e-02_rb,6.988496e-02_rb,6.638412e-02_rb,6.308156e-02_rb,&\n        & 5.996942e-02_rb,5.703979e-02_rb,5.428481e-02_rb,5.169657e-02_rb,4.926719e-02_rb,&\n        & 4.698880e-02_rb,4.485349e-02_rb,4.285339e-02_rb,4.098061e-02_rb,3.922727e-02_rb,&\n        & 3.758547e-02_rb,3.604733e-02_rb,3.460497e-02_rb,3.325051e-02_rb,3.197604e-02_rb,&\n        & 3.077369e-02_rb,2.963558e-02_rb,2.855381e-02_rb,2.752050e-02_rb,2.652776e-02_rb,&\n        & 2.556772e-02_rb,2.463247e-02_rb,2.371415e-02_rb,2.280485e-02_rb,2.189670e-02_rb,&\n        & 2.098180e-02_rb,2.005228e-02_rb,1.910024e-02_rb,1.811781e-02_rb,1.709709e-02_rb,&\n        & 1.603020e-02_rb,1.490925e-02_rb,1.372635e-02_rb,1.247363e-02_rb,1.114319e-02_rb,&\n        & 9.727157e-03_rb /)\n\n      end subroutine swcldpr\n\nend module rrtmg_sw_init\n#endif\n"
  },
  {
    "path": "APM/apm_rrtmg_sw.F90",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: rrtmg_sw_GCAPM\n!\n! !DESCRIPTION: Module rrtmg\\_sw\\_GCAPM contains variables and routines for \n!  computing RF.\n!-- Modified from AER RRTMG_SW for GEOS-Chem-APM \n!     August 2012: F. Yu, UAlbany\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE rrtmg_sw_GCAPM\n!\n! !USES:\n!\n!      IMPLICIT NONE\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!  \n      PUBLIC  :: rrtmg_sw, cldprop_swapm\n\n!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw.1col.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.8 $\n!     created:   $Date: 2009/05/22 22:22:21 $\n!\n\n      CONTAINS\n\n      subroutine rrtmg_sw(II,JJ,IFCS,icld,nlayers,juldat, zenith, &\n              pdp,pavel,tavel,pz,tz,tbound,coldry, wkl, &\n              cldfrac, ciwp, clwp, rei, rel,&\n              SALB,EXT,OMGA,G, &\n              YHTRC,YHTR,YHTRC0,YHTR0, &\n              CST,FST,CSB,FSB,CST0,FST0,CSB0,FSB0, &\n              TEXT, TOMGA, TG, TCST,TCSB,TFST,TFSB)\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n!\n! ****************************************************************************\n! *                                                                          *\n! *                             RRTMG_SW                                     *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                 a rapid radiative transfer model                         *\n! *                  for the solar spectral region                           *\n! *           for application to general circulation models                  *\n! *                                                                          *\n! *                                                                          *\n! *           Atmospheric and Environmental Research, Inc.                   *\n! *                       131 Hartwell Avenue                                *\n! *                       Lexington, MA 02421                                *\n! *                                                                          *\n! *                                                                          *\n! *                          Eli J. Mlawer                                   *\n! *                       Jennifer S. Delamere                               *\n! *                        Michael J. Iacono                                 *\n! *                        Shepard A. Clough                                 *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                      email:  miacono@aer.com                             *\n! *                      email:  emlawer@aer.com                             *\n! *                      email:  jdelamer@aer.com                            *\n! *                                                                          *\n! *       The authors wish to acknowledge the contributions of the           *\n! *       following people: Steven J. Taubman, Patrick D. Brown,             *\n! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                     *\n! *                                                                          *\n! ****************************************************************************\n\n! ------- Description -------\n\n! This program is the driver for RRTMG_SW, the AER SW radiation model for \n!  application to GCMs, that has been adapted from RRTM_SW for improved\n!  efficiency and to provide fractional cloudiness and cloud overlap\n!  capability using McICA.\n\n! This routine\n!    a) calls RRTMG_SW_INI to initialize data and to perform\n!       the g-point interval reduction from 224 to 112\n!    b) calls READPROF to read in the atmospheric profile;\n!       all layering in RRTMG is ordered from surface to toa. \n!    c) calls CLDPROP to set cloud optical depth based on input\n!       cloud properties, or CLDPRMC to set cloud optical depth\n!       for McICA\n!    d) calls SETCOEF to calculate various quantities needed for \n!       the radiative transfer algorithm\n!    e) calls SPCVRT to call the two-stream model that in turn \n!       calls TAUMOL to calculate gaseous optical depths for each \n!       of the 16 spectral bands and to perform the radiative transfer\n!       with or without McICA, the Monte-Carlo Independent Column\n!       Approximation to represent sub-grid scale cloud variability\n!    f) writes out the calculated fluxes and cooling rates\n!\n! Two modes of operation are possible:\n!     The mode is chosen by setting flag imca below.  \n!\n!    1) Standard, single forward model calculation (imca = 0); this is \n!       valid only for clear sky or fully overcast clouds\n!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., \n!       JC, 2003) method is applied to the forward model calculation (imca = 1)\n!       For single column calculations, this method also requires setting flag\n!       nmca below to the sample size of the Monte Carlo calculation; \n!       (nmca = 200 is recommended). This is method is valid for clear sky\n!       or partial cloud conditions\n!\n! Two random number generators are available for use when imca = 1\n!     This is chosen by setting flag irng below.\n!\n!    1) KISSVEC (irng = 0)\n!    2) Mersenne Twister (irng = 1); the default setting\n!\n! Two methods of cloud property input are possible:\n!     Cloud properties can be input in one of two ways (controlled by input \n!     flags inflag, iceflag and liqflag; see text file rrtmg_sw_instructions\n!     and subroutine rrtmg_sw_cldprop.f90 for further details):\n!\n!    1) Input cloud fraction and cloud optical depth directly (inflgsw = 0)\n!    2) Input cloud fraction and cloud physical properties (inflgsw = 1 or 2);  \n!       cloud optical properties are calculated by cldprop or cldprmc based\n!       on input settings of iceflgsw and liqflgsw. Ice particle size provided\n!       must be appropriately defined for the ice parameterization selected. \n!\n! Two methods of aerosol property input are possible:\n!     Aerosol properties can be input in one of two ways (controlled by input \n!     flag iaer, see text file rrtmg_sw_instructions for further details):\n!\n!    1) Input aerosol optical depth, single scattering albedo and asymmetry\n!       parameter directly by layer and spectral band (iaer=10)\n!    2) Input aerosol optical depth and 0.55 micron directly by layer and use\n!       one or more of six ECMWF aerosol types (iaer=6)\n!\n!\n! ------- Modifications -------\n!\n! This version of RRTMG_SW has been modified from RRTM_SW to use a reduced\n! set of g-point intervals and a two-stream model for application to GCMs. \n!\n!-- Original version (derived from RRTM_SW)\n!     2002: AER. Inc.\n!-- Conversion to F90 formatting; addition of 2-stream radiative transfer\n!     Feb 2003: J.-J. Morcrette, ECMWF\n!-- Additional modifications for GCM application\n!     Aug 2003: M. J. Iacono, AER Inc.\n!-- Total number of g-points reduced from 224 to 112.  Original\n!   set of 224 can be restored by exchanging code in module parrrsw.f90 \n!   and in file rrtmg_sw_init.f90.\n!     Apr 2004: M. J. Iacono, AER, Inc.\n!-- Modifications to include output for direct and diffuse \n!   downward fluxes.  There are output as \"true\" fluxes without\n!   any delta scaling applied.  Code can be commented to exclude\n!   this calculation in source file rrtmg_sw_spcvrt.f90.\n!     Jan 2005: E. J. Mlawer, M. J. Iacono, AER, Inc.\n!-- Revised to add McICA capability.\n!     Nov 2005: M. J. Iacono, AER, Inc.\n!-- Reformatted for consistency with rrtmg_lw.\n!     Feb 2007: M. J. Iacono, AER, Inc.\n!-- Modified to output direct and diffuse fluxes either with or without\n!   delta scaling based on setting of idelm flag. \n!     Dec 2008: M. J. Iacono, AER, Inc.\n\n!-- Modified for GEOS-Chem-APM\n!     August 2012: F. Yu, UAlbany\n\n! --------- Modules ---------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : mxlay, nbndsw, ngptsw, naerec, nstr, nmol, mxmol, &\n                          jpband, jpb1, jpb2\n      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya\n      use rrsw_con, only : heatfac, oneminus, pi\n      use rrsw_wvn, only : wavenum1, wavenum2\n      use rrsw_vsn\n      use mcica_subcol_gen_sw, only: mcica_subcol_sw\n      use rrtmg_sw_cldprop, only: cldprop_sw\n      use rrtmg_sw_cldprmc, only: cldprmc_sw\n      use rrtmg_sw_init, only: rrtmg_sw_ini\n      use rrtmg_sw_setcoef, only: setcoef_sw\n      use rrtmg_sw_spcvrt, only: spcvrt_sw\n      use rrtmg_sw_spcvmc, only: spcvmc_sw\n\n      implicit none\n\n! ------- Declarations\n\n! ----- Local -----\n\n! Control\n\n      integer(kind=im) :: II,JJ\n      integer(kind=im) :: nlayers             ! total number of layers\n      integer(kind=im) :: juldat             ! total number of layers\n      integer(kind=im) :: istart              ! beginning band of calculation\n      integer(kind=im) :: iend                ! ending band of calculation\n      integer(kind=im) :: icld                ! clear/cloud and cloud overlap flag\n      integer(kind=im) :: icpr                ! cldprop/cldprmc use flag\n      integer(kind=im) :: iflag               ! control flag\n      integer(kind=im) :: iout                ! output option flag\n      integer(kind=im) :: iaer                ! aerosol option flag\n      integer(kind=im) :: idelm               ! delta-m scaling flag\n                                              ! [0 = direct and diffuse fluxes are unscaled]\n                                              ! [1 = direct and diffuse fluxes are scaled]\n      integer(kind=im) :: isccos              ! instrumental cosine response flag\n      integer(kind=im) :: i                   ! layer loop index                      ! jk\n      integer(kind=im) :: ib,ib1,ib2                  ! band loop index                       ! jsw\n      integer(kind=im) :: ia, ig              ! indices\n      integer(kind=im) :: iplon               ! column loop index                     ! jl\n      integer(kind=im) :: permuteseed        \n      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]\n!      integer(kind=im) :: nmca                ! number of mcica samples (mcica mode)\n      integer(kind=im) :: irng                ! flag for random number generator\n                                              ! [0=kissvec, 1=mersenne twister (default)]\n      integer(kind=im), parameter :: ncol = 1 ! total number of columns\n\n      integer(kind=im) :: iout1, iout2        ! output control flags\n      integer(kind=im) :: indform             ! output control flag\n!Yu+\n      integer(kind=im) :: IFCS, ITYP\n      integer(kind=im) :: isolvar    \n      integer(kind=im), parameter :: NTYP = 5 \n\n      character page \n\n      real(kind=rb) :: zepsec, zepzen         ! epsilon\n      real(kind=rb) :: zdpgcp                 ! flux to heating conversion ratio\n\n\n! Atmosphere\n      real(kind=rb) :: pavel(mxlay)           ! layer pressures (mb) \n      real(kind=rb) :: tavel(mxlay)           ! layer temperatures (K)\n      real(kind=rb) :: pz(0:mxlay)            ! level (interface) pressures (hPa, mb)\n      real(kind=rb) :: tz(0:mxlay)            ! level (interface) temperatures (K)\n      real(kind=rb) :: tbound                 ! surface temperature (K)\n      real(kind=rb) :: pdp(mxlay)             ! layer pressure thickness (hPa, mb)\n      real(kind=rb) :: coldry(mxlay)          ! \n      real(kind=rb) :: wbrodl(mxlay)          !\n      real(kind=rb) :: wkl(mxmol,mxlay)       ! molecular amounts (mole/cm-2)\n\n      real(kind=rb) :: cossza, zenith         ! cosine of solar zenith angle \n!      real(kind=rb) :: earth_sun              ! function for Earth/Sun distance factor\n      real(kind=rb) :: adjflux(jpband)        ! adjustment for current Earth/Sun distance\n      real(kind=rb) :: solvar(jpband)         ! solar constant scaling factor from rrtmg_sw\n                                              !  default value of 1368.22 Wm-2 at 1 AU\n      real(kind=rb) :: SALB(nbndsw)           ! surface albedo  \n\n      real(kind=rb) :: albdir(nbndsw)         ! surface albedo, direct          ! zalbp\n      real(kind=rb) :: albdif(nbndsw)         ! surface albedo, diffuse         ! zalbd\n\n      real(kind=rb) :: EXT(mxlay,nbndsw)\n      real(kind=rb) :: OMGA(mxlay,nbndsw)\n      real(kind=rb) :: G(mxlay,nbndsw)\n\n      REAL(kind=rb)  :: YHTRC(mxlay),YHTR(mxlay)    !heating profiles\n      REAL(kind=rb)  :: YHTRC0(mxlay),YHTR0(mxlay)\n\n      real(kind=rb) :: TEXT(mxlay,nbndsw,NTYP)\n      real(kind=rb) :: TOMGA(mxlay,nbndsw,NTYP)\n      real(kind=rb) :: TG(mxlay,nbndsw,NTYP)\n\n      real(kind=rb) :: tauaer(mxlay,jpband)   ! aerosol optical depth (iaer=10 only)\n                                              ! (non-delta scaled)      \n      real(kind=rb) :: ssaaer(mxlay,jpband)   ! aerosol single scattering albedo (iaer=10 only)\n                                              ! (non-delta scaled)      \n      real(kind=rb) :: asmaer(mxlay,jpband)   ! aerosol asymmetry parameter (iaer=10 only)\n                                              ! (non-delta scaled)      \n                                              !   first moment of input phase function\n      real(kind=rb) :: ecaer(mxlay,naerec)    ! aerosol optical thickness at 0.55 micron (iaer=6 only)\n                                              ! (non-delta scaled)      \n\n! Atmosphere - setcoef\n      integer(kind=im) :: laytrop             ! tropopause layer index\n      integer(kind=im) :: layswtch            ! tropopause layer index\n      integer(kind=im) :: laylow              ! tropopause layer index\n      integer(kind=im) :: jp(mxlay)           ! \n      integer(kind=im) :: jt(mxlay)           !\n      integer(kind=im) :: jt1(mxlay)          !\n\n      real(kind=rb) :: colh2o(mxlay)          ! column amount (h2o)\n      real(kind=rb) :: colco2(mxlay)          ! column amount (co2)\n      real(kind=rb) :: colo3(mxlay)           ! column amount (o3)\n      real(kind=rb) :: coln2o(mxlay)          ! column amount (n2o)\n      real(kind=rb) :: colch4(mxlay)          ! column amount (ch4)\n      real(kind=rb) :: colo2(mxlay)           ! column amount (o2)\n      real(kind=rb) :: colmol(mxlay)          ! column amount\n      real(kind=rb) :: co2mult(mxlay)         ! column amount \n\n      integer(kind=im) :: indself(mxlay)\n      integer(kind=im) :: indfor(mxlay)\n      real(kind=rb) :: selffac(mxlay)\n      real(kind=rb) :: selffrac(mxlay)\n      real(kind=rb) :: forfac(mxlay)\n      real(kind=rb) :: forfrac(mxlay)\n\n      real(kind=rb) :: &                      !\n                         fac00(mxlay), fac01(mxlay), &\n                         fac10(mxlay), fac11(mxlay) \n\n! Atmosphere/clouds - cldprop\n      integer(kind=im) :: ncbands             ! number of cloud spectral bands\n      integer(kind=im) :: inflag              ! flag for cloud property method\n      integer(kind=im) :: iceflag             ! flag for ice cloud properties\n      integer(kind=im) :: liqflag             ! flag for liquid cloud properties\n\n      real(kind=rb) :: cldfrac(mxlay)         ! layer cloud fraction\n      real(kind=rb) :: tauc(nbndsw,mxlay)     ! in-cloud optical depth (non-delta scaled)\n      real(kind=rb) :: ssac(nbndsw,mxlay)     ! in-cloud single scattering albedo (non-delta scaled)\n      real(kind=rb) :: asmc(nbndsw,mxlay)     ! in-cloud asymmetry parameter (non-delta scaled)\n      real(kind=rb) :: fsfc(nbndsw,mxlay)     ! in-cloud forward scattering fraction (non-delta scaled)\n      real(kind=rb) :: ciwp(mxlay)            ! in-cloud ice water path\n      real(kind=rb) :: clwp(mxlay)            ! in-cloud liquid water path\n      real(kind=rb) :: rei(mxlay)             ! cloud ice particle effective size (microns)\n                                              ! specific definition of rei depends on setting of iceflag:\n                                              ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                              !              r_ec must be >= 10.0 microns\n                                              ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                              !              r_ec range is limited to 13.0 to 130.0 microns\n                                              ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                              !              r_k range is limited to 5.0 to 131.0 microns\n                                              ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                              !              dge range is limited to 5.0 to 140.0 microns\n                                              !              [dge = 1.0315 * r_ec]\n      real(kind=rb) :: rel(mxlay)             ! cloud liquid particle effective radius (microns)\n\n      real(kind=rb) :: taucloud(mxlay,jpband) ! in-cloud optical depth\n      real(kind=rb) :: taucldorig(mxlay,jpband)! in-cloud optical depth (non-delta scaled)\n      real(kind=rb) :: ssacloud(mxlay,jpband) ! in-cloud single scattering albedo\n      real(kind=rb) :: asmcloud(mxlay,jpband) ! in-cloud asymmetry parameter\n\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb) :: cldfmc(ngptsw,mxlay)   ! cloud fraction [mcica]\n      real(kind=rb) :: ciwpmc(ngptsw,mxlay)   ! in-cloud ice water path [mcica]\n      real(kind=rb) :: clwpmc(ngptsw,mxlay)   ! in-cloud liquid water path [mcica]\n      real(kind=rb) :: relqmc(mxlay)          ! liquid particle effective radius (microns)\n      real(kind=rb) :: reicmc(mxlay)          ! ice particle effective radius (microns)\n      real(kind=rb) :: taucmc(ngptsw,mxlay)   ! in-cloud optical depth [mcica]\n      real(kind=rb) :: taormc(ngptsw,mxlay)   ! unscaled in-cloud optical depth [mcica]\n      real(kind=rb) :: ssacmc(ngptsw,mxlay)   ! in-cloud single scattering albedo [mcica]\n      real(kind=rb) :: asmcmc(ngptsw,mxlay)   ! in-cloud asymmetry parameter [mcica]\n      real(kind=rb) :: fsfcmc(ngptsw,mxlay)   ! in-cloud forward scattering fraction [mcica]\n! Atmosphere/clouds/aerosol - spcvrt,spcvmc\n      real(kind=rb) :: ztauc(mxlay,nbndsw)    ! cloud optical depth\n      real(kind=rb) :: ztaucorig(mxlay,nbndsw)! unscaled cloud optical depth\n      real(kind=rb) :: zasyc(mxlay,nbndsw)    ! cloud asymmetry parameter \n                                              !  (first moment of phase function)\n      real(kind=rb) :: zomgc(mxlay,nbndsw)    ! cloud single scattering albedo\n      real(kind=rb) :: ztaua(mxlay,nbndsw)    ! total aerosol optical depth\n      real(kind=rb) :: zasya(mxlay,nbndsw)    ! total aerosol asymmetry parameter \n      real(kind=rb) :: zomga(mxlay,nbndsw)    ! total aerosol single scattering albedo\n\n      real(kind=rb) :: zcldfmc(mxlay,ngptsw)  ! cloud fraction [mcica]\n      real(kind=rb) :: ztaucmc(mxlay,ngptsw)  ! cloud optical depth [mcica]\n      real(kind=rb) :: ztaormc(mxlay,ngptsw)  ! unscaled cloud optical depth [mcica]\n      real(kind=rb) :: zasycmc(mxlay,ngptsw)  ! cloud asymmetry parameter [mcica] \n      real(kind=rb) :: zomgcmc(mxlay,ngptsw)  ! cloud single scattering albedo [mcica]\n\n      real(kind=rb) :: zbbfu(mxlay+1)         ! temporary upward shortwave flux (w/m2)\n      real(kind=rb) :: zbbfd(mxlay+1)         ! temporary downward shortwave flux (w/m2)\n      real(kind=rb) :: zbbcu(mxlay+1)         ! temporary clear sky upward shortwave flux (w/m2)\n      real(kind=rb) :: zbbcd(mxlay+1)         ! temporary clear sky downward shortwave flux (w/m2)\n      real(kind=rb) :: zbbfddir(mxlay+1)      ! temporary downward direct shortwave flux (w/m2)\n      real(kind=rb) :: zbbcddir(mxlay+1)      ! temporary clear sky downward direct shortwave flux (w/m2)\n      real(kind=rb) :: zuvfd(mxlay+1)         ! temporary UV downward shortwave flux (w/m2)\n      real(kind=rb) :: zuvcd(mxlay+1)         ! temporary clear sky UV downward shortwave flux (w/m2)\n      real(kind=rb) :: zuvfddir(mxlay+1)      ! temporary UV downward direct shortwave flux (w/m2)\n      real(kind=rb) :: zuvcddir(mxlay+1)      ! temporary clear sky UV downward direct shortwave flux (w/m2)\n      real(kind=rb) :: znifd(mxlay+1)         ! temporary near-IR downward shortwave flux (w/m2)\n      real(kind=rb) :: znicd(mxlay+1)         ! temporary clear sky near-IR downward shortwave flux (w/m2)\n      real(kind=rb) :: znifddir(mxlay+1)      ! temporary near-IR downward direct shortwave flux (w/m2)\n      real(kind=rb) :: znicddir(mxlay+1)      ! temporary clear sky near-IR downward direct shortwave flux (w/m2)\n\n! Parameters\n      real(kind=rb), parameter :: cpdair = 1.004e3_rb  ! Specific heat capacity of dry air\n                                                       ! at constant pressure at 273 K (J kg-1 K-1)\n! Output\n      real(kind=rb) :: totuflux(0:mxlay)      ! upward shortwave flux (w/m2)                  ! pfup\n      real(kind=rb) :: totdflux(0:mxlay)      ! downward shortwave flux (w/m2)                ! pfdown\n      real(kind=rb) :: fnet(0:mxlay)          ! net shortwave flux (w/m2)                     ! pfls\n      real(kind=rb) :: htr(0:mxlay)           ! shortwave heating rate (k/day)                ! pheat\n      real(kind=rb) :: totuclfl(0:mxlay)      ! clear sky upward shortwave flux (w/m2)        ! pcup \n      real(kind=rb) :: totdclfl(0:mxlay)      ! clear sky downward shortwave flux (w/m2)      ! pcdown \n      real(kind=rb) :: fnetc(0:mxlay)         ! clear sky net shortwave flux (w/m2)           ! pfcs\n      real(kind=rb) :: htrc(0:mxlay)          ! clear sky shortwave heating rate (k/day)      ! pheac\n\n      real(kind=rb) :: dirdflux(0:mxlay)      ! direct downward shortwave flux (w/m2)         ! dirdownflux\n      real(kind=rb) :: difdflux(0:mxlay)      ! diffuse downward shortwave flux (w/m2)        ! difdownflux\n      real(kind=rb) :: dflxuv(0:mxlay)        ! Total sky downward shortwave flux, UV/vis     ! pfdnuv\n      real(kind=rb) :: dflxir(0:mxlay)        ! Total sky downward shortwave flux, near-IR    ! pfdnir \n      real(kind=rb) :: dirdnuv(0:mxlay)       ! Direct downward shortwave surface flux, UV/vis\n      real(kind=rb) :: difdnuv(0:mxlay)       ! Diffuse downward shortwave surface flux, UV/vis\n      real(kind=rb) :: dirdnir(0:mxlay)       ! Direct downward shortwave surface flux, near-IR\n      real(kind=rb) :: difdnir(0:mxlay)       ! Diffuse downward shortwave surface flux, near-IR\n\n! Output - inactive\n!      real(kind=rb) :: zuvfu(mxlay+1)         ! temporary upward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zuvfd(mxlay+1)         ! temporary downward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zuvcu(mxlay+1)         ! temporary clear sky upward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zuvcd(mxlay+1)         ! temporary clear sky downward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zvsfu(mxlay+1)         ! temporary upward visible shortwave flux (w/m2)\n!      real(kind=rb) :: zvsfd(mxlay+1)         ! temporary downward visible shortwave flux (w/m2)\n!      real(kind=rb) :: zvscu(mxlay+1)         ! temporary clear sky upward visible shortwave flux (w/m2)\n!      real(kind=rb) :: zvscd(mxlay+1)         ! temporary clear sky downward visible shortwave flux (w/m2)\n!      real(kind=rb) :: znifu(mxlay+1)         ! temporary upward near-IR shortwave flux (w/m2)\n!      real(kind=rb) :: znifd(mxlay+1)         ! temporary downward near-IR shortwave flux (w/m2)\n!      real(kind=rb) :: znicu(mxlay+1)         ! temporary clear sky upward near-IR shortwave flux (w/m2)\n!      real(kind=rb) :: znicd(mxlay+1)         ! temporary clear sky downward near-IR shortwave flux (w/m2)\n\n!Yu+\n      real(kind=rb) :: xpavel(ncol,mxlay)           ! layer pressures (mb) \n      real(kind=rb) :: xcldfrac(ncol,mxlay)         ! layer cloud fraction\n      real(kind=rb) :: xciwp(ncol,mxlay)            ! in-cloud ice water path\n      real(kind=rb) :: xclwp(ncol,mxlay)            ! in-cloud liquid water path\n      real(kind=rb) :: xrei(ncol,mxlay)             ! cloud ice particle effective size (microns)\n      real(kind=rb) :: xrel(ncol,mxlay)             ! cloud liquid particle effective radius (microns)\n      real(kind=rb) :: xtauc(nbndsw,ncol,mxlay)     ! in-cloud optical depth (non-delta scaled)\n      real(kind=rb) :: xssac(nbndsw,ncol,mxlay)     ! in-cloud single scattering albedo (non-delta scaled)\n      real(kind=rb) :: xasmc(nbndsw,ncol,mxlay)     ! in-cloud asymmetry parameter (non-delta scaled)\n      real(kind=rb) :: xfsfc(nbndsw,ncol,mxlay)     ! in-cloud forward scattering fraction (non-delta scaled)\n\n      real(kind=rb) :: xcldfmc(ngptsw,ncol,mxlay)   ! cloud fraction [mcica]\n      real(kind=rb) :: xciwpmc(ngptsw,ncol,mxlay)   ! in-cloud ice water path [mcica]\n      real(kind=rb) :: xclwpmc(ngptsw,ncol,mxlay)   ! in-cloud liquid water path [mcica]\n      real(kind=rb) :: xrelqmc(ncol,mxlay)          ! liquid particle effective radius (microns)\n      real(kind=rb) :: xreicmc(ncol,mxlay)          ! ice particle effective radius (microns)\n      real(kind=rb) :: xtaucmc(ngptsw,ncol,mxlay)   ! in-cloud optical depth [mcica]\n      real(kind=rb) :: xssacmc(ngptsw,ncol,mxlay)   ! in-cloud single scattering albedo [mcica]\n      real(kind=rb) :: xasmcmc(ngptsw,ncol,mxlay)   ! in-cloud asymmetry parameter [mcica]\n      real(kind=rb) :: xfsfcmc(ngptsw,ncol,mxlay)   ! in-cloud forward scattering fraction [mcica]\n\n      real(kind=rb) :: CST,CST0,FST,FST0\n      real(kind=rb) :: CSB,CSB0,FSB,FSB0\n      real(kind=rb) :: TCST(NTYP),TCSB(NTYP),TFST(NTYP),TFSB(NTYP)\n      real(kind=rb) :: adjflux_jd\n\n      LOGICAL, SAVE    :: FIRST = .TRUE.\n!Yu+\n\n!\n\n! Initializations\n\n      zepsec = 1.e-06_rb\n      zepzen = 1.e-10_rb\n      oneminus = 1.0_rb - zepsec\n      pi = 2._rb * asin(1._rb)\n\n      icpr = 0\n      page = char(12)\n\n! Set imca to select calculation type:\n!  (read by subroutine readprof from input file INPUT_RRTM):  \n! imca = 0, use standard forward model calculation (clear and overcast only)\n! imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability\n!           (clear, overcast or partial cloud conditions)\n\n! Set irng to select random number generator for McICA (use when imca = 1)\n! irng = 0, KISSVEC\n! irng = 1, Mersenne Twister\n!      irng = 0\n      irng = 1\n\n! Set icld to select of clear or cloud calculation and cloud overlap method\n!  (read by subroutine readprof from input file INPUT_RRTM):  \n! icld = 0, clear only\n! icld = 1, with clouds using random cloud overlap (McICA only)\n! icld = 2, with clouds using maximum/random cloud overlap (McICA only)\n! icld = 3, with clouds using maximum cloud overlap (McICA only)\n\n! Call model and data initialization, compute lookup tables, perform\n! reduction of g-points from 224 to 112 for input absorption\n! coefficient data and other arrays.\n!\n! In a GCM this call should be placed in the model initialization\n! area, since this has to be called only once.  \n\n\n      IF(FIRST) THEN\n       IF(nlayers.NE.mxlay) THEN\n        WRITE(6,*)\"STOP: layers.NE.mxlay\"\n        STOP\n       ENDIF\n\n!Luo       call rrtmg_sw_ini(cpdair)\n!Luo       WRITE(6,*) \"run rrtmg_sw_ini\"\n!Luo       FIRST = .FALSE.\n      ENDIF\n      \n\n! This is the main longitude/column loop within rrtmg.\n\n!      do iplon = 1, ncol\n      iplon = 1\n\n      iout = 0\n      imca = 1\n!      icld = 2\n      iaer = 10\n      isccos = 0\n      idelm = 0\n      inflag = 2\n      iceflag = 3\n      liqflag = 1\n\n      isolvar =  0\n      solvar = 1.0\n      ib1=16\n      ib2=29\n      if (juldat .eq. 0) then\n         adjflux_jd = 1._rb\n      else\n         adjflux_jd = earth_sun (juldat)\n      endif\n\n      if (isolvar .eq. 0) then\n         do ib = ib1,ib2\n            adjflux(ib) = adjflux_jd\n         enddo\n      elseif (isolvar .eq. 1) then\n         do ib=ib1,ib2\n            adjflux(ib) = adjflux_jd * solvar(ib1)\n         enddo\n      elseif (isolvar .eq. 2) then\n         do ib=ib1,ib2\n            adjflux(ib) = adjflux_jd * solvar(ib)\n         enddo\n      else\n         print *, 'ISOLVAR = ', isolvar, ' NOT A VALID INPUT VALUE'\n         stop\n      endif\n\n      istart = jpb1                 ! jpb1 = 16\n      iend = jpb2                   ! jpb2 = 29\n      iflag = iout\n\n! Return here for multiple band output\n 1000 continue\n      if (iflag .gt. 0 .and. iflag .le. jpb2) then\n       istart = iflag\n       iend = iflag\n      endif\n\n\n! Call sub-colum cloud generator for McICA calculations.\n\n      tauc = 0.\n      ssac = 1.\n      asmc = 0.\n      fsfc = 0.       \n\n      if (imca.ne.1) then\n        WRITE(6,*)\"Need to check value of imca\"\n        STOP\n      endif\n\n      permuteseed = 1\n\n      xpavel(1,:)=pavel(:)\n      xcldfrac(1,:)=cldfrac(:)\n      xciwp(1,:)=ciwp(:)\n      xclwp(1,:)=clwp(:)\n      xrei(1,:)=rei(:)\n      xrel(1,:)=rel(:)\n      xtauc(:,1,:)=tauc(:,:)\n      xssac(:,1,:)=ssac(:,:)\n      xasmc(:,1,:)=asmc(:,:)\n      xfsfc(:,1,:)=fsfc(:,:)\n\n      call mcica_subcol_sw(iplon,ncol, nlayers, icld, permuteseed, irng, xpavel, &\n        xcldfrac, xciwp, xclwp, xrei, xrel, xtauc, xssac, xasmc, xfsfc, &\n        xcldfmc, xciwpmc, xclwpmc, xreicmc, xrelqmc, xtaucmc, &\n        xssacmc, xasmcmc, xfsfcmc)\n\n      cldfmc(:,:)= xcldfmc(:,1,:)\n      ciwpmc(:,:)=xciwpmc(:,1,:)\n      clwpmc(:,:)= xclwpmc(:,1,:)\n      reicmc(:)= xreicmc(1,:)\n      relqmc(:)= xrelqmc(1,:)\n      taucmc(:,:)=xtaucmc(:,1,:)\n      ssacmc(:,:)=xssacmc(:,1,:)\n      asmcmc(:,:)=xasmcmc(:,1,:)\n      fsfcmc(:,:)=xfsfcmc(:,1,:)\n\n\n!  For cloudy atmosphere, use cldprop to set cloud optical properties based on\n!  input cloud physical properties.  Select method based on choices described\n!  in cldprop.  Cloud fraction, water path, liquid droplet and ice particle\n!  effective radius must be passed in cldprop.  Cloud fraction and cloud\n!  optical properties are transferred to rrtmg_sw arrays in cldprop.  \n!  Note: Model will be stopped if partial cloud present without McICA.\n\n!  If McICA is requested use cloud fraction and cloud physical properties \n!  generated by sub-column cloud generator above. \n\n      call cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &\n                               ciwpmc, clwpmc, reicmc, relqmc, &\n                               taormc, taucmc, ssacmc, asmcmc, fsfcmc)\n      icpr = 1\n\n\n! Calculate coefficients for the temperature and pressure dependence of the \n! molecular absorption coefficients by interpolating data from stored\n! reference atmospheres.\n\n      call setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &\n          laytrop, layswtch, laylow, jp, jt, jt1, &\n          co2mult, colch4, colco2, colh2o, colmol, coln2o, &\n          colo2, colo3, fac00, fac01, fac10, fac11, &\n          selffac, selffrac, indself, forfac, forfrac, indfor)\n  \n\n! Cosine of the solar zenith angle \n!  Prevent using value of zero;\n\n      cossza = zenith\n      if (cossza.eq.0._rb) cossza = zepzen\n\n! Transfer albedo, cloud and aerosol properties into arrays for 2-stream radiative transfer \n  \n! Surface albedo and aerosol optical properties\n      do ib=1,nbndsw\n         albdif(ib) = SALB(ib)\n         albdir(ib) = SALB(ib)\n\n         tauaer(:,ib1-1+ib)=EXT(:,ib)\n         ssaaer(:,ib1-1+ib)=OMGA(:,ib)\n         asmaer(:,ib1-1+ib)=G(:,ib)\n      enddo\n\n! Clouds\n      if (icld.eq.0) then\n\n         ztauc(:,:) = 0._rb\n         ztaucorig(:,:) = 0._rb\n         zasyc(:,:) = 0._rb\n         zomgc(:,:) = 1._rb\n         zcldfmc(:,:) = 0._rb\n         ztaucmc(:,:) = 0._rb\n         ztaormc(:,:) = 0._rb\n         zasycmc(:,:) = 0._rb\n         zomgcmc(:,:) = 1._rb\n\n      elseif (icld.ge.1) then\n         if (imca.eq.0) then\n            do i=1,nlayers\n               do ib=1,nbndsw\n                  if (cldfrac(i) .ge. zepsec) then\n                     ztauc(i,ib) = taucloud(i,jpb1-1+ib)\n                     ztaucorig(i,ib) = taucldorig(i,jpb1-1+ib)\n                     zasyc(i,ib) = asmcloud(i,jpb1-1+ib)\n                     zomgc(i,ib) = ssacloud(i,jpb1-1+ib)\n                  endif\n               enddo\n            enddo\n         else\n            do i=1,nlayers\n               do ig=1,ngptsw\n                  zcldfmc(i,ig) = cldfmc(ig,i)\n                  ztaucmc(i,ig) = taucmc(ig,i)\n                  ztaormc(i,ig) = taormc(ig,i)\n                  zasycmc(i,ig) = asmcmc(ig,i)\n                  zomgcmc(i,ig) = ssacmc(ig,i)\n               enddo\n            enddo\n         endif   \n      endif   \n\n! Aerosol\n! IAER = 0: no aerosols\n      if (iaer.eq.0) then\n\n         ztaua(:,:) = 0._rb\n         zasya(:,:) = 0._rb\n         zomga(:,:) = 1._rb\n\n! IAER = 6: Use ECMWF six aerosol types. See rrsw_aer.f90 for details.\n! Input aerosol optical thickness at 0.55 micron for each aerosol type (ecaer)\n! or set manually here for each aerosol and layer. \n      elseif (iaer.eq.6) then\n       ! deleted -- Yu\n\n! IAER=10: Direct specification of aerosol properties from IN_AER_RRTM.\n      elseif (iaer.eq.10) then\n\n         do i = 1 ,nlayers\n            do ib = 1 ,nbndsw\n               ztaua(i,ib) = tauaer(i,jpb1-1+ib)\n               zasya(i,ib) = asmaer(i,jpb1-1+ib)\n               zomga(i,ib) = ssaaer(i,jpb1-1+ib)\n            enddo\n         enddo\n\n      endif\n\n! Call the 2-stream radiation transfer model\n! total aerosol\n\n      do i=1,nlayers+1\n         zbbcu(i) = 0._rb\n         zbbcd(i) = 0._rb\n         zbbfu(i) = 0._rb\n         zbbfd(i) = 0._rb\n         zbbcddir(i) = 0._rb\n         zbbfddir(i) = 0._rb\n         zuvcd(i) = 0._rb\n         zuvfd(i) = 0._rb\n         zuvcddir(i) = 0._rb\n         zuvfddir(i) = 0._rb\n         znicd(i) = 0._rb\n         znifd(i) = 0._rb\n         znicddir(i) = 0._rb\n         znifddir(i) = 0._rb\n      enddo\n\n      call spcvmc_sw &\n       (nlayers, istart, iend, icpr, idelm, iout, &\n        pavel, tavel, pz, tz, tbound, albdif, albdir, &\n        zcldfmc, ztaucmc, zasycmc, zomgcmc, ztaormc, &\n        ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &\t \n        laytrop, layswtch, laylow, jp, jt, jt1, &\n        co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n        fac00, fac01, fac10, fac11, &\n        selffac, selffrac, indself, forfac, forfrac, indfor, &\n        zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &\n        zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)\n\n\n! Prepare output up and down, clear and total flux output\n      do i = 1, nlayers+1\n         totuclfl(i-1) = zbbcu(i)\n         totdclfl(i-1) = zbbcd(i)\n         totuflux(i-1) = zbbfu(i)\n         totdflux(i-1) = zbbfd(i)\n! Prepare direct/diffuse flux output\n         dirdflux(i-1) = zbbfddir(i)\n         difdflux(i-1) = totdflux(i-1) - dirdflux(i-1)\n      enddo\n\n! Prepare net clear and total flux output\n      do i = 1, nlayers+1\n         fnetc(i-1) = totdclfl(i-1) - totuclfl(i-1)\n         fnet(i-1) = totdflux(i-1) - totuflux(i-1)\n      enddo\n\n! Output clear and total heating rates\n      do i = 1, nlayers\n         zdpgcp = heatfac / pdp(i)\n         htrc(i-1) = (fnetc(i) - fnetc(i-1)) * zdpgcp\n         htr(i-1) = (fnet(i) - fnet(i-1)) * zdpgcp\n      enddo\n      htr(nlayers) = 0._rb\n      htrc(nlayers) = 0._rb\n\n! Process output.\n      CST = fnetc(nlayers)\n      FST = fnet(nlayers)\n      CSB = fnetc(0)\n      FSB = fnet(0)\n      do i = 1, nlayers\n         YHTRC(i)=htrc(i-1) \n         YHTR(i)=htr(i-1) \n      enddo\n\n! No aeorsol RF\n      IF(IFCS.GE.1) THEN\n       ztaua(:,:) = 0._rb\n       zasya(:,:) = 0._rb\n       zomga(:,:) = 1._rb\n       do i=1,nlayers+1\n         zbbcu(i) = 0._rb\n         zbbcd(i) = 0._rb\n         zbbfu(i) = 0._rb\n         zbbfd(i) = 0._rb\n         zbbcddir(i) = 0._rb\n         zbbfddir(i) = 0._rb\n         zuvcd(i) = 0._rb\n         zuvfd(i) = 0._rb\n         zuvcddir(i) = 0._rb\n         zuvfddir(i) = 0._rb\n         znicd(i) = 0._rb\n         znifd(i) = 0._rb\n         znicddir(i) = 0._rb\n         znifddir(i) = 0._rb\n       enddo\n\n       call spcvmc_sw &\n             (nlayers, istart, iend, icpr, idelm, iout, &\n              pavel, tavel, pz, tz, tbound, albdif, albdir, &\n              zcldfmc, ztaucmc, zasycmc, zomgcmc, ztaormc, &\n              ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &\t \n              laytrop, layswtch, laylow, jp, jt, jt1, &\n              co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n              fac00, fac01, fac10, fac11, &\n              selffac, selffrac, indself, forfac, forfrac, indfor, &\n              zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &\n              zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)\n\n\n! Prepare output up and down, clear and total flux output\n       do i = 1, nlayers+1\n         totuclfl(i-1) = zbbcu(i)\n         totdclfl(i-1) = zbbcd(i)\n         totuflux(i-1) = zbbfu(i)\n         totdflux(i-1) = zbbfd(i)\n! Prepare direct/diffuse flux output\n         dirdflux(i-1) = zbbfddir(i)\n         difdflux(i-1) = totdflux(i-1) - dirdflux(i-1)\n       enddo\n\n! Prepare net clear and total flux output\n       do i = 1, nlayers+1\n         fnetc(i-1) = totdclfl(i-1) - totuclfl(i-1)\n         fnet(i-1) = totdflux(i-1) - totuflux(i-1)\n       enddo\n\n! Output clear and total heating rates\n       do i = 1, nlayers\n         zdpgcp = heatfac / pdp(i)\n         htrc(i-1) = (fnetc(i) - fnetc(i-1)) * zdpgcp\n         htr(i-1) = (fnet(i) - fnet(i-1)) * zdpgcp\n       enddo\n       htr(nlayers) = 0._rb\n       htrc(nlayers) = 0._rb\n\n! Process output.\n\n       CST0 = fnetc(nlayers)\n       FST0 = fnet(nlayers)\n       CSB0 = fnetc(0)\n       FSB0 = fnet(0)\n      do i = 1, nlayers\n         YHTRC0(i)=htrc(i-1) \n         YHTR0(i)=htr(i-1) \n      enddo\n\n      ENDIF\n\n\n      IF(IFCS.EQ.2) THEN\n! RF of each type\n      DO ITYP = 1,NTYP\n!       do i = 1 ,nlayers\n!        do ib = 1 ,nbndsw\n!          ztaua(i,ib) = TEXT(i,ib,ITYP)\n!          zasya(i,ib) = TOMGA(i,ib,ITYP)\n!          zomga(i,ib) = TG(i,ib,ITYP)\n!        enddo\n!       enddo\n       ztaua(:,:) = TEXT(:,:,ITYP)\n       zasya(:,:) = TG(:,:,ITYP)\n       zomga(:,:) = TOMGA(:,:,ITYP)\n\n       do i=1,nlayers+1\n         zbbcu(i) = 0._rb\n         zbbcd(i) = 0._rb\n         zbbfu(i) = 0._rb\n         zbbfd(i) = 0._rb\n         zbbcddir(i) = 0._rb\n         zbbfddir(i) = 0._rb\n         zuvcd(i) = 0._rb\n         zuvfd(i) = 0._rb\n         zuvcddir(i) = 0._rb\n         zuvfddir(i) = 0._rb\n         znicd(i) = 0._rb\n         znifd(i) = 0._rb\n         znicddir(i) = 0._rb\n         znifddir(i) = 0._rb\n       enddo\n\n       call spcvmc_sw &\n        (nlayers, istart, iend, icpr, idelm, iout, &\n        pavel, tavel, pz, tz, tbound, albdif, albdir, &\n        zcldfmc, ztaucmc, zasycmc, zomgcmc, ztaormc, &\n        ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &\t \n        laytrop, layswtch, laylow, jp, jt, jt1, &\n        co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n        fac00, fac01, fac10, fac11, &\n        selffac, selffrac, indself, forfac, forfrac, indfor, &\n        zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &\n        zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)\n\n\n! Prepare output up and down, clear and total flux output\n       do i = 1, nlayers+1\n         totuclfl(i-1) = zbbcu(i)\n         totdclfl(i-1) = zbbcd(i)\n         totuflux(i-1) = zbbfu(i)\n         totdflux(i-1) = zbbfd(i)\n! Prepare direct/diffuse flux output\n         dirdflux(i-1) = zbbfddir(i)\n         difdflux(i-1) = totdflux(i-1) - dirdflux(i-1)\n       enddo\n\n! Prepare net clear and total flux output\n       do i = 1, nlayers+1\n         fnetc(i-1) = totdclfl(i-1) - totuclfl(i-1)\n         fnet(i-1) = totdflux(i-1) - totuflux(i-1)\n       enddo\n\n! Output clear and total heating rates\n       do i = 1, nlayers\n         zdpgcp = heatfac / pdp(i)\n         htrc(i-1) = (fnetc(i) - fnetc(i-1)) * zdpgcp\n         htr(i-1) = (fnet(i) - fnet(i-1)) * zdpgcp\n       enddo\n       htr(nlayers) = 0._rb\n       htrc(nlayers) = 0._rb\n\n! Process output.\n       TCST(ITYP) = fnetc(nlayers)\n       TFST(ITYP) = fnet(nlayers)\n       TCSB(ITYP) = fnetc(0)\n       TFSB(ITYP) = fnet(0)\n      ENDDO\n      ENDIF\n             \n!       if(II.eq.60.and.JJ.eq.33) then\n!        WRITE(1003,*)'rrtmg_sw'\n!        do i = 1, nlayers\n!           WRITE(1003,106)i,EXT(i,6),OMGA(i,6),G(i,6), &\n!              TEXT(i,6,1),TOMGA(i,6,1),TG(i,6,1)\n!        enddo\n!        WRITE(1003,107)'CST,CST0,CST-CST0',CST,CST0,CST-CST0\n!        WRITE(1003,107)'FST,FST0,FST-FST0',FST,FST0,FST-FST0\n!        WRITE(1003,107)'FST-CST,FST0-CST0',FST-CST,FST0-CST0\n!        DO ITYP = 1,NTYP\n!         WRITE(1003,107)'TFST,FST0,TFST-FST0',TFST(ITYP),FST0, &\n!             TFST(ITYP)-FST0\n!         WRITE(1003,107)'TCST,CST0,TCST-CST0',TCST(ITYP),CST0, &\n!             TFST(ITYP)-FST0\n!        ENDDO\n! 106    FORMAT(I3,10(F10.4))\n! 107    FORMAT(A17,2x,10(F10.2))\n! 109    FORMAT(I4,2x,10(F10.3))\n!       endif\n\n 2000 continue\n\n      if (iout .ge. 0 .and. iout .le. jpb2) goto 3500\n      if (iflag .eq. 98) then\n         iflag = jpb1\n      elseif (iflag .gt. 0 .and. iflag .lt. jpb2) then\n         iflag = iflag + 1\n      else\n         goto 3500\n      endif\n      goto 1000\n 3500 continue\n\n! Output module version numbers\n\n 4000 continue\n\n! End longitude/column loop\n!      enddo\n\n\n 9899 format(1x,'Wavenumbers: ',f6.0,' - ',f6.0,' cm-1, ATM ',i6)\n 9900 format(1x,'LEVEL PRESSURE   UPWARD FLUX   DIFDOWN FLUX  DIRDOWN FL&\n     &UX  DOWNWARD FLUX   NET FLUX    HEATING RATE')\n 9901 format(1x,'         mb          W/m2          W/m2          W/m2&\n     &        W/m2          W/m2       degree/day')\n 9902 format(1x,i3,3x,f11.6,4x,1p,2(g12.6,2x),g13.6,3x,g16.9,0p)\n 9903 format(a)\n 9910 format('  Modules and versions used in this calculation:',/,/, &\n              7(5x,a20,2x,a18,10x,a20,2x,a18,/))\n\n      contains\n\n!*************************************************************************\n      real(kind=rb) function earth_sun(idn)\n!*************************************************************************\n!\n!  Purpose: Function to calculate the correction factor of Earth's orbit\n!  for current day of the year\n\n!  idn        : Day of the year\n!  earth_sun  : square of the ratio of mean to actual Earth-Sun distance\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrsw_con, only : pi\n\n      implicit none\n\n      integer(kind=im), intent(in) :: idn\n\n      real(kind=rb) :: gamma\n\n      gamma = 2._rb*pi*(idn-1)/365._rb\n\n! Use Iqbal's equation 1.2.1\n\n      earth_sun = 1.000110_rb + .034221_rb * cos(gamma) + .001289_rb * sin(gamma) + &\n                   .000719_rb * cos(2._rb*gamma) + .000077_rb * sin(2._rb*gamma)\n\n      end function earth_sun\n\n\n      end subroutine rrtmg_sw\n\n! ----------------------------------------------------------------------------\n      subroutine cldprop_swapm(nlayers, cldfrac, ciwporg, clwporg, rei, rel, &\n                               taucld, taucldl, taucldi, ssacldl, ssacldi)\n\n! ----------------------------------------------------------------------------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, jpband, jpb1, jpb2\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n      use rrsw_wvn, only : wavenum1, wavenum2\n      use rrsw_vsn, only : hvrcld, hnamcld\n\n      implicit none\n\n! ----------------------------------------------------------------------------\n\n! Purpose: Compute the cloud optical properties for each cloudy layer.\n! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;\n! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented.\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n\n      real(kind=rb), intent(in) :: cldfrac(:)         ! cloud fraction\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ciwporg(:)            ! cloud ice water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: clwporg(:)            ! cloud liquid water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle effective size (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of rei depends on setting of iceflag:\n                                                      ! iceflag = 0: (inactive)\n                                                      !              \n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n\n! ------- Output -------\n\n      real(kind=rb), intent(out) :: taucld(:,:)   ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: taucldl(:,:)   ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: taucldi(:,:)   ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: ssacldl(:,:)\n      real(kind=rb), intent(out) :: ssacldi(:,:)\n\n! ------- Local -------\n\n!      integer(kind=im) :: ncbands\n      integer(kind=im) :: ib, ib1, ib2, lay, istr, index, icx\n\n      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n      real(kind=rb) :: cwp                            ! total cloud water path\n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor\n      real(kind=rb) :: fint\n      real(kind=rb) :: tauctot(nlayers)               ! band integrated cloud optical depth\n\n      real(kind=rb) :: taucldorig_a, ssacloud_a, taucloud_a, ffp, ffp1, ffpssa\n      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq\n\n      real(kind=rb) :: fdelta(jpb1:jpb2)\n      real(kind=rb) :: extcoice(jpb1:jpb2), gice(jpb1:jpb2)\n      real(kind=rb) :: ssacoice(jpb1:jpb2), forwice(jpb1:jpb2)\n      real(kind=rb) :: extcoliq(jpb1:jpb2), gliq(jpb1:jpb2)\n      real(kind=rb) :: ssacoliq(jpb1:jpb2), forwliq(jpb1:jpb2)\n\n      real(kind=rb) :: tauc(nbndsw,nlayers)     ! cloud optical depth\n                                                !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb) :: ssac(nbndsw,nlayers)     ! single scattering albedo\n                                                !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb) :: asmc(nbndsw,nlayers)     ! asymmetry parameter\n                                                !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb) :: fsfc(nbndsw,nlayers)     ! forward scattering fraction\n                                                !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb) :: taucloud(nlayers,jpband) ! cloud optical depth (delta scaled)\n                                                !    Dimensions: (nlayers,jpband)\n      real(kind=rb) :: ssacloud(nlayers,jpband) ! single scattering albedo (delta scaled)\n                                                !    Dimensions: (nlayers,jpband)\n      real(kind=rb) :: asmcloud(nlayers,jpband) ! asymmetry parameter (delta scaled)\n                                                !    Dimensions: (nlayers,jpband)\n      real(kind=rb) :: ciwp(nlayers)            ! cloud ice water path\n                                                !    Dimensions: (nlayers)\n      real(kind=rb) :: clwp(nlayers)            ! cloud liquid water path\n                                                !    Dimensions: (nlayers)\n      integer(kind=im) :: inflag                ! see definitions\n      integer(kind=im) :: iceflag               ! see definitions\n      integer(kind=im) :: liqflag               ! see definitions\n! Initialize\n\n      hvrcld = '$Revision: 1.8 $'\n\n      inflag = 2\n      iceflag = 3\n      liqflag = 1\n\n      tauc = 0.\n      ssac = 1.\n      asmc = 0.\n      fsfc = 0.       \n\n!      ncbands = 29\n      !ib1 = jpb1\n      !ib2 = jpb2\n      ib1 = 23\n      ib2 = 27\n      tauctot(:) = 0._rb\n\n      do lay = 1, nlayers\n         clwp(lay) = clwporg(lay)!/cldfrac(lay)\n         ciwp(lay) = ciwporg(lay)!/cldfrac(lay)\n\n         do ib = ib1 , ib2\n            taucld(lay,ib) = 0.0_rb\n            taucldl(lay,ib) = 0.0_rb\n            taucldi(lay,ib) = 0.0_rb\n            ssacldl(lay,ib) = 1.0_rb\n            ssacldi(lay,ib) = 1.0_rb\n            taucloud(lay,ib) = 0.0_rb\n            ssacloud(lay,ib) = 1.0_rb\n            asmcloud(lay,ib) = 0.0_rb\n            tauctot(lay) = tauctot(lay) + tauc(ib-15,lay)\n         enddo\n      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n\n         cwp = ciwp(lay) + clwp(lay)\n         if (cldfrac(lay) .ge. cldmin .and. &\n            (cwp .ge. cldmin .or. tauctot(lay) .ge. cldmin)) then\n\n! (inflag=0): Cloud optical properties input directly\n! Cloud optical properties already defined in tauc, ssac, asmc are unscaled;\n! Apply delta-M scaling here\n            if (inflag .eq. 0) then\n\n               write(*,*)'Check inflag =', inflag\n               stop\n\n               do ib = ib1 , ib2\n                  taucldorig_a = tauc(ib-15,lay)\n                  ffp = fsfc(ib-15,lay)\n                  ffp1 = 1.0_rb - ffp\n                  ffpssa = 1.0_rb - ffp * ssac(ib-15,lay)\n                  ssacloud_a = ffp1 * ssac(ib-15,lay) / ffpssa\n                  taucloud_a = ffpssa * taucldorig_a\n\n                  taucld(lay,ib) = taucldorig_a\n                  taucldl(lay,ib) = taucldorig_a\n                  taucldi(lay,ib) = 0.d0\n                  ssacloud(lay,ib) = ssacloud_a\n                  ssacldl(lay,ib) = ssacloud_a\n                  ssacldi(lay,ib) = ssacloud_a\n                  taucloud(lay,ib) = taucloud_a\n                  asmcloud(lay,ib) = (asmc(ib-15,lay) - ffp) / (ffp1)\n               enddo\n\n! (inflag=2): Separate treatement of ice clouds and water clouds.\n            elseif (inflag .eq. 2) then       \n               radice = rei(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n               if (ciwp(lay) .eq. 0.0_rb) then\n                  do ib = ib1 , ib2\n                     extcoice(ib) = 0.0_rb\n                     ssacoice(ib) = 0.0_rb\n                     gice(ib)     = 0.0_rb\n                     forwice(ib)  = 0.0_rb\n                  enddo\n\n! (iceflag = 1): \n! Note: This option uses Ebert and Curry approach for all particle sizes similar to\n! CAM3 implementation, though this is somewhat ineffective for large ice particles\n               elseif (iceflag .eq. 1) then\n                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) write(103,*) &\n                     'ICE RADIUS OUT OF BOUNDS'\n                  do ib = ib1, ib2\n                     if (wavenum2(ib) .gt. 1.43e04_rb) then\n                        icx = 1\n                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then\n                        icx = 2\n                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then\n                        icx = 3\n                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then\n                        icx = 4\n                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then\n                        icx = 5\n                     endif\n                     extcoice(ib) = abari(icx) + bbari(icx)/radice\n                     ssacoice(ib) = 1._rb - cbari(icx) - dbari(icx) * radice\n                     !Luotestssacoice(ib) = min(1._rb,ssacoice(ib))\n                     gice(ib) = ebari(icx) + fbari(icx) * radice\n\n! Check to ensure upper limit of gice is within physical limits for large particles\n                     if (gice(ib) .ge. 1.0_rb) gice(ib) = 1.0_rb - eps\n                     forwice(ib) = gice(ib)*gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) write(103,*) 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) write(103,*) 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) write(103,*) 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) write(103,*) 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) write(103,*) 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n               elseif (iceflag .eq. 2) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) write(103,*) 'ICE RADIUS OUT OF BOUNDS'\n                  factor = (radice - 2._rb)/3._rb\n                  index = int(factor)\n                  if (index .eq. 43) index = 42\n                  fint = factor - float(index)\n                  do ib = ib1, ib2\n                     extcoice(ib) = extice2(index,ib) + fint * &\n                                   (extice2(index+1,ib) -  extice2(index,ib))\n                     ssacoice(ib) = ssaice2(index,ib) + fint * &\n                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))\n                     !Luotestssacoice(ib) = min(1._rb,ssacoice(ib))\n                     gice(ib) = asyice2(index,ib) + fint * &\n                                   (asyice2(index+1,ib) -  asyice2(index,ib))\n                     forwice(ib) = gice(ib)*gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) write(103,*) 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) write(103,*) 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) write(103,*) 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) write(103,*) 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) write(103,*) 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n               elseif (iceflag .eq. 3) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) write(103,*) 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                  factor = (radice - 2._rb)/3._rb\n                  index = int(factor)\n                  if (index .eq. 46) index = 45\n                  fint = factor - float(index)\n                  do ib = ib1 , ib2\n                     extcoice(ib) = extice3(index,ib) + fint * &\n                                   (extice3(index+1,ib) - extice3(index,ib))\n                     ssacoice(ib) = ssaice3(index,ib) + fint * &\n                                   (ssaice3(index+1,ib) - ssaice3(index,ib))\n                     !Luotestssacoice(ib) = min(1._rb,ssacoice(ib))\n                     gice(ib) = asyice3(index,ib) + fint * &\n                               (asyice3(index+1,ib) - asyice3(index,ib))\n                     fdelta(ib) = fdlice3(index,ib) + fint * &\n                                 (fdlice3(index+1,ib) - fdlice3(index,ib))\n                     if (fdelta(ib) .lt. 0.0_rb) write(103,*) 'FDELTA LESS THAN 0.0'\n                     if (fdelta(ib) .gt. 1.0_rb) write(103,*) 'FDELTA GT THAN 1.0'                     \n                     forwice(ib) = fdelta(ib) + 0.5_rb / ssacoice(ib)\n! See Fu 1996 p. 2067 \n                     if (forwice(ib) .gt. gice(ib)) forwice(ib) = gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) write(103,*) 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) write(103,*) 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) write(103,*) 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) write(103,*) 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) write(103,*) 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n               endif\n                  \n! Calculation of absorption coefficients due to water clouds.\n                if (clwp(lay) .eq. 0.0_rb) then\n                   do ib = ib1 , ib2\n                      extcoliq(ib) = 0.0_rb\n                      ssacoliq(ib) = 0.0_rb\n                      gliq(ib) = 0.0_rb\n                      forwliq(ib) = 0.0_rb\n                   enddo\n\n                elseif (liqflag .eq. 1) then\n                   radliq = rel(lay)\n                   if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) write(103,*) &\n                      'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'\n                   index = int(radliq - 1.5_rb)\n                   if (index .eq. 0) index = 1\n                   if (index .eq. 58) index = 57\n                   fint = radliq - 1.5_rb - float(index)\n                   do ib = ib1 , ib2\n                      extcoliq(ib) = extliq1(index,ib) + fint * &\n                                    (extliq1(index+1,ib) - extliq1(index,ib))\n                      ssacoliq(ib) = ssaliq1(index,ib) + fint * &\n                                    (ssaliq1(index+1,ib) - ssaliq1(index,ib))\n                      !Luoif(ib==25)ssacoliq(ib) = min(ssaliq1(index,ib),ssacoliq(ib))\n                      if (fint .lt. 0._rb .and. ssacoliq(ib) .gt. 1._rb) &\n                                     ssacoliq(ib) = ssaliq1(index,ib)\n                      gliq(ib) = asyliq1(index,ib) + fint * &\n                                (asyliq1(index+1,ib) - asyliq1(index,ib))\n                      forwliq(ib) = gliq(ib)*gliq(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                      if (extcoliq(ib) .lt. 0.0_rb) write(103,*) 'LIQUID EXTINCTION LESS THAN 0.0'\n                      if (ssacoliq(ib) .gt. 1.0_rb) write(103,*) 'LIQUID SSA GRTR THAN 1.0'\n                      if (ssacoliq(ib) .lt. 0.0_rb) write(103,*) 'LIQUID SSA LESS THAN 0.0'\n                      if (gliq(ib) .gt. 1.0_rb) write(103,*) 'LIQUID ASYM GRTR THAN 1.0'\n                      if (gliq(ib) .lt. 0.0_rb) write(103,*) 'LIQUID ASYM LESS THAN 0.0'\n                   enddo\n                endif\n\n                do ib = ib1 , ib2\n                   tauliqorig = clwp(lay) * extcoliq(ib)\n                   tauiceorig = ciwp(lay) * extcoice(ib)\n\n                   ssaliq = ssacoliq(ib) * (1.0_rb - forwliq(ib)) / &\n                           (1.0_rb - forwliq(ib) * ssacoliq(ib))\n                   tauliq = (1.0_rb - forwliq(ib) * ssacoliq(ib)) * tauliqorig\n                   ssaice = ssacoice(ib) * (1.0_rb - forwice(ib)) / &\n                           (1.0_rb - forwice(ib) * ssacoice(ib))\n                   tauice = (1.0_rb - forwice(ib) * ssacoice(ib)) * tauiceorig\n\n                   scatliq = ssaliq * tauliq\n                   scatice = ssaice * tauice\n\n                   taucloud(lay,ib) = tauliq + tauice\n\n! Ensure non-zero taucmc and scatice\n                   if (taucloud(lay,ib).eq.0.0_rb) taucloud(lay,ib) = cldmin\n                   if (scatice.eq.0.0_rb) scatice = cldmin\n\n                   ssacloud(lay,ib) = (scatliq + scatice) / taucloud(lay,ib)\n\n                   if (iceflag .eq. 3) then\n! In accordance with the 1996 Fu paper, equation A.3, \n! the moments for ice were calculated depending on whether using spheres\n! or hexagonal ice crystals.\n                      istr = 1\n                      asmcloud(lay,ib) = (1.0_rb/(scatliq+scatice)) * &\n                         (scatliq*(gliq(ib)**istr - forwliq(ib)) / &\n                         (1.0_rb - forwliq(ib)) + scatice * ((gice(ib)-forwice(ib)) / &\n                         (1.0_rb - forwice(ib)))**istr)\n                   else \n! This code is the standard method for delta-m scaling. \n                      istr = 1\n                      asmcloud(lay,ib) = (scatliq *  &\n                         (gliq(ib)**istr - forwliq(ib)) / &\n                         (1.0_rb - forwliq(ib)) + scatice * (gice(ib)**istr - forwice(ib)) / &\n                         (1.0_rb - forwice(ib)))/(scatliq + scatice)\n                   endif \n\n                   !taucld(lay,ib)  = (tauliqorig+tauiceorig)\n                   !taucldl(lay,ib) = tauliqorig\n                   !taucldi(lay,ib) = tauiceorig\n                   taucld(lay,ib)  = (tauliqorig+tauiceorig)*(cldfrac(lay)**1.5)\n                   taucldl(lay,ib) = tauliqorig*(cldfrac(lay)**1.5)\n                   taucldi(lay,ib) = tauiceorig*(cldfrac(lay)**1.5)\n                   ssacldl(lay,ib) = min(1.d0,ssaliq)\n                   ssacldi(lay,ib) = min(1.d0,ssaice)\n                   !ssacldl(lay,ib) = min(1.d0,ssacoliq(ib))\n                   !ssacldi(lay,ib) = min(1.d0,ssacoice(ib))\n                   !taucld(lay,ib)  = (tauliqorig+tauiceorig)*cldfrac(lay)\n                   !taucldl(lay,ib) = tauliqorig*cldfrac(lay)\n                   !taucldi(lay,ib) = tauiceorig*cldfrac(lay)\n                   !taucld(lay,ib)  = taucloud(lay,ib)*cldfrac(lay)\n                   !taucldl(lay,ib) = tauliq*cldfrac(lay)\n                   !taucldi(lay,ib) = tauice*cldfrac(lay)\n\n                enddo\n\n            endif\n\n         endif\n\n! End layer loop\n      enddo\n\n      end subroutine cldprop_swapm\n!EOC\nEND MODULE rrtmg_sw_GCAPM\n#endif\n"
  },
  {
    "path": "APM/module_data_mosaic_asect.F90",
    "content": "#ifdef APM\n!**********************************************************************************  \n! This computer software was prepared by Battelle Memorial Institute, hereinafter\n! the Contractor, under Contract No. DE-AC05-76RL0 1830 with the Department of \n! Energy (DOE). NEITHER THE GOVERNMENT NOR THE CONTRACTOR MAKES ANY WARRANTY,\n! EXPRESS OR IMPLIED, OR ASSUMES ANY LIABILITY FOR THE USE OF THIS SOFTWARE.\n!\n! MOSAIC module: see module_mosaic_driver.F for references and terms of use\n!**********************************************************************************  \n\tmodule module_data_mosaic_asect\n\n\n\timplicit none\n\n\n!-----------------------------------------------------------------------\n!\n!   The variables in this module provide a means of organizing and accessing\n!   aerosol species in the \"chem\" array by their chemical component, \n!   size bin (or mode), \"type\", and \"phase\"\n!\n!   Their purpose is to allow flexible coding of process modules, \n!   compared to \"hard-coding\" using the chem array p_xxx indices\n!   (e.g., p_so4_a01, p_so4_a02, ...; p_num_a01, ...)\n!\n!-----------------------------------------------------------------------\n!\n!   rce & sg 2004-dec-03 - added phase and type capability,\n!\twhich changed this module almost completely\n!\n!-----------------------------------------------------------------------\n!\n!   maxd_atype = maximum allowable number of aerosol types\n!   maxd_asize = maximum allowable number of aerosol size bins\n!   maxd_acomp = maximum allowable number of chemical components\n!\tin each aerosol size bin\n!   maxd_aphase = maximum allowable number of aerosol phases \n!\t(gas, cloud, ice, rain, ...)\n!\n!   ntype_aer = number of aerosol types\n!\tThe aerosol type will allow treatment of an externally mixed \n!\taerosol.  The current MOSAIC code has only 1 type, with the implicit\n!\tassumption of internal mixing.  Eventually, multiple types \n!\tcould treat fresh primary BC/OC, fresh SO4 from nucleation, \n!\taged BC/OC/SO4/... mixture, soil dust, sea salt, ... \n!\n!   nphase_aer = number of aerosol phases\n!\n!   ai_phase = phase (p) index for interstitial (unactivated) aerosol particles\n!   cw_phase = phase (p) index for aerosol particles in cloud water\n!   ci_phase = phase (p) index for aerosol particles in cloud ice\n!   rn_phase = phase (p) index for aerosol particles in rain\n!   sn_phase = phase (p) index for aerosol particles in snow\n!   gr_phase = phase (p) index for aerosol particles in graupel\n!   [Note:  the value of \"xx_phase\" will be between 1 and nphase_aer \n!\tfor phases that are active in a simulation.  The others\n!\twill have non-positive values.]\n!\n!   nsize_aer(t) = number of aerosol size bins for aerosol type t\n!\n!   ncomp_aer(t) = number of \"regular\" chemical components for aerosol type t\n!   ncomp_plustracer_aer(t) = number of \"regular\" plus \"tracer\"\n!\tchemical components for aerosol type t\n!   [Note:  only \"regular\" components are used for calculating\n!\taerosol physical (mass, volume) and chemical properties.\n!\t\"Tracer\" components are optional, and can be used to track source \n!\tregions, source mechanisms, etc.]\n!   [Note:  for aerosol type t, all phases have the same number of size\n!\tbins, and all size bins have the same number of \n!\tboth regular and tracer components.]\n!\n!   ntot_maincomp_aer = number of aerosol chemical components defined\n!\tin the \"main component list\".\n!   [Note:  each aerosol type will use some but not necessarily all\n!\tof the components in the \"main component list\".]\n!\n!   maincompptr_aer(c,t) = the position/index/i.d. in the \n!       \"main component list\" for chemical component c of aerosol type t.\n!\t(1=sulfate, others to be defined by user.)\n!\n!   massptr_aer(c,s,t,p) = the position/index in the chem array for mixing- \n!\tratio for chemical component c, size bin s, type t, and phase p.\n!\n!   lptr_so4_aer(s,t,p) = the position/index in the chem array for mixing-\n!\tratio for sulfate for aerosol size bin s, type t, and phase p\n!   (similar lptr's are defined for no3, cl, msa, co3, \n!\tnh4, na, ca, oin, oc, bc, ...)\n!   [Note:  the massptr_aer allow you to loop over all species of \n!\tan aerosol type.  The lptr_so4_aer, etc., allow you to access\n!\ta specific chemical component.]\n!\n!   waterptr_aer(s,t) = the position/index in the chem array for mixing-\n!\tratio of aerosol water content for size bin s, type t.\n!\t[Note:  water content is only carried for the interstitial aerosol\n!\tphase, so there is no p dimension.]\n!\n!   hyswptr_aer(s,t) = the position/index in the chem array for mixing-\n!\tratio of aerosol \"hysteresis water\" content for size bin s, type t.\n!\tThis is used to determine if aerosol is in the dry or wet state, when\n!\tthe ambient RH is between the crystallization and deliquescence RH.\n!\t[Note:  hysteresis water content is only carried for the \n!\tinterstitial aerosol phase, so there is no p dimension.]\n!\n!   numptr_aer(s,t,p) = the position/index in the chem array for mixing- \n!\tratio of particle number for size bin s, type t, and phase p.\n!\n!   mprognum_aer(s,t,p) - if positive, number mixing-ratio for size s, type t,\n!       and phase p will be prognosed.  Otherwise, it is diagnosed using\n!\tmass mixing-ratio add assumed/prescribed size.\n!\n!\tmixing ratio (moles-water/mole-air) for water\n!       associated with aerosol size bin s and type t\n!\n!\n!   maincompindx_so4_aer = the position/index in the \n!       \"main component list\" for sulfate.  \n!   (similar lptr's are defined for no3, cl, msa, co3, \n!\tnh4, na, ca, oin, oc, bc, ...)\n!   [Note:  the maincompindx_xxx_aer are used primarily in \n!\tinitialization routines, and generally aren't needed elsewhere.]\n!\n!-----------------------------------------------------------------------\n!\n!   dens_maincomp_aer(mc) = dry density (g/cm^3) of component mc \n!\tof the main component list.\n!   dens_aer(c,t) = dry density (g/cm^3) of aerosol chemical component \n!\tc of type t\n!   [Note:  dens_aer(c,t) == dens_maincomp_aer(maincompptr_aer(c,t))\n!\tThe dens_maincomp_aer is used in some initialization routines.\n!\tThe dens_aer is used in most other places because of convenience.]\n!\n!   mw_maincomp_aer(mc) = molecular weight (g/mole) of component mc \n!\tof the main component list.\n!   mw_aer(c,t) = molecular weight (g/mole) of aerosol chemical component \n!\tc of type t\n!   [Note:  mw_aer(c,t) == mw_maincomp_aer(maincompptr_aer(c,t)) ]\n!\n!   name_maincomp_aer(mc) = name of component mc of the \n!\tmain component list (e.g., \"sulfate\", \"nitrate\", ...).\n!   name_aer(c,t) = molecular weight (g/mole) of aerosol chemical component \n!\tc of type t\n!   [Note:  name_aer(c,t) == name_maincomp_aer(maincompptr_aer(c,t)) ]\n!\n!   hygro_maincomp_aer(mc) = bulk hygroscopicity (--) at dilute conditions\n!\t(RH near 100%) of component mc of the main component list.\n!   hygro_aer(c,t) = bulk hygroscopicity (--) at dilute conditions \n!\t(RH near 100%) of aerosol chemical component c of type t\n!   [For definition of bulk hygroscopicity, \n!\tsee Abdul-Razzak and Ghan, 2004, J Geophys Res, V105, p. 6837-6844.]\n!   [Note:  hygro_aer(c,t) == hygro_maincomp_aer(maincompptr_aer(c,t)) ]\n!\n!-----------------------------------------------------------------------\n!\n!   volumlo_sect(s,t) = 1-particle volume (cm^3) at lower boundary of section m\n!   volumhi_sect(s,t) = 1-particle volume (cm^3) at upper boundary of section m\n!   volumcen_sect(s,t)= 1-particle volume (cm^3) at \"center\" of section m\n!\n!   dlo_sect(s,t) = 1-particle diameter (cm) at lower boundary of section m\n!   dhi_sect(s,t) = 1-particle diameter (cm) at upper boundary of section m\n!   dcen_sect(s,t) = 1-particle diameter (cm) at \"center\" section m\n!\n!   [Note:  the \"center\" values are defined as follows:\n!       volumcen_sect == 0.5*(volumlo_sect + volumhi_sect)\n!                     == (pi/6) * (dcen_sect**3) ]\n!\n!-----------------------------------------------------------------------\n!\n!   msectional - if positive, each aerosol size bin is a section.\n!   if equals 10, use jacobson moving center\n!   if equals 20, use tzivion mass-number advection \n!\tif zero/negative, each size bin is a mode (aitken, accumulation, ...)\n!\n!   maerosolincw - if positive, both unactivated/interstitial and activated\n!       aerosol species are simulated.  if zero/negative, only the\n!       unactivated are simulated.  [maerosolincw>0 only when cw_phase>0]\n!\n!   maerocoag - if positive, aerosol coagulation is done.\n!\tIf zero/negative, it is skipped.\n!\t(This is not yet implemented in WRF-Chem.)\n!\n!   maerchem - if positive, aerosol gas-particle condensation/evaporation\n!\tof inorganic species is done.  If zero/negative, it is skipped.\n!\t(This is not yet implemented in WRF-Chem.)\n!\n!   maerchem_boxtest_output - if positive, \"boxtest\" output is done from\n!\tthe aerchemistry routine.  If zero/negative, it is skipped.\n!\t(This is not yet implemented in WRF-Chem.)\n!\n!   maeroptical - if positive, aerosol optical properties are calculated. \n!\tIf zero/negative, it is skipped.\n!\t(This is not yet implemented in WRF-Chem.)\n!\n!-----------------------------------------------------------------------\n\n\tinteger, parameter :: maxd_atype = 1\n\tinteger, parameter :: maxd_asize = 8\n!\tinteger, parameter :: maxd_acomp = 120 ! for additional SOA species changed by Manish Shrivastava on 01/25/10\n\tinteger, parameter :: maxd_acomp = 400 ! for additional SOA species changed by Manish Shrivastava on 01/25/10\n\tinteger, parameter :: maxd_aphase = 2\n\n\tinteger, save :: ai_phase = -999888777\n\tinteger, save :: cw_phase = -999888777\n\tinteger, save :: ci_phase = -999888777\n\tinteger, save :: rn_phase = -999888777\n\tinteger, save :: sn_phase = -999888777\n\tinteger, save :: gr_phase = -999888777\n\n\tinteger, save :: ntype_aer = 0 ! number of types\n\tinteger, save :: ntot_maincomp_aer = 0 ! number of main components\n\tinteger, save :: nphase_aer = 0 ! number of phases\n\n\tinteger, save ::   &\n      \t  nsize_aer( maxd_atype ),   & ! number of size bins\n      \t  ncomp_aer( maxd_atype ),   & ! number of chemical components\n      \t  ncomp_plustracer_aer( maxd_atype ),   &\n          maincompptr_aer(maxd_acomp, maxd_atype), &   !  maincomp index\n      \t  massptr_aer( maxd_acomp, maxd_asize, maxd_atype, maxd_aphase ), & \n\t\t! index for mixing ratio\n      \t  waterptr_aer( maxd_asize, maxd_atype ), & ! index for aerosol water\n      \t  hyswptr_aer( maxd_asize, maxd_atype ), &\n      \t  numptr_aer( maxd_asize, maxd_atype, maxd_aphase ), & \n\t\t! index for the number mixing ratio\n          mprognum_aer(maxd_asize,maxd_atype,maxd_aphase)\n\n\n!   these indices give the location in the \"maincomp list\" of\n!   the different aerosol chemical (or tracer) components\n\tinteger, save :: maincompindx_so4_aer = -999888777\n\tinteger, save :: maincompindx_no3_aer = -999888777\n\tinteger, save :: maincompindx_cl_aer  = -999888777\n\tinteger, save :: maincompindx_msa_aer = -999888777\n\tinteger, save :: maincompindx_co3_aer = -999888777\n\tinteger, save :: maincompindx_nh4_aer = -999888777\n\tinteger, save :: maincompindx_na_aer  = -999888777\n\tinteger, save :: maincompindx_ca_aer  = -999888777\n\tinteger, save :: maincompindx_oin_aer = -999888777\n\tinteger, save :: maincompindx_oc_aer  = -999888777\n\tinteger, save :: maincompindx_bc_aer  = -999888777\n        integer, save :: maincompindx_pcg1_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg2_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg3_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg4_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg5_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg6_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg7_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg8_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg9_b_c_aer = -999888777\n        integer, save :: maincompindx_pcg1_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg2_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg3_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg4_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg5_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg6_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg7_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg8_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg9_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg1_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg2_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg3_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg4_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg5_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg6_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg7_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg8_b_c_aer = -999888777\n        integer, save :: maincompindx_opcg1_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg2_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg3_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg4_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg5_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg6_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg7_b_o_aer = -999888777\n        integer, save :: maincompindx_opcg8_b_o_aer = -999888777\n        integer, save :: maincompindx_pcg1_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg2_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg3_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg4_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg5_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg6_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg7_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg8_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg9_f_c_aer = -999888777\n        integer, save :: maincompindx_pcg1_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg2_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg3_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg4_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg5_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg6_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg7_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg8_f_o_aer = -999888777\n        integer, save :: maincompindx_pcg9_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg1_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg2_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg3_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg4_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg5_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg6_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg7_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg8_f_c_aer = -999888777\n        integer, save :: maincompindx_opcg1_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg2_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg3_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg4_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg5_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg6_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg7_f_o_aer = -999888777\n        integer, save :: maincompindx_opcg8_f_o_aer = -999888777\n        integer, save :: maincompindx_smpa_aer = -999888777\n        integer, save :: maincompindx_smpbb_aer = -999888777\n\n        integer, save :: maincompindx_glysoa_r1_aer = -999888777\n        integer, save :: maincompindx_glysoa_r2_aer = -999888777\n        integer, save :: maincompindx_glysoa_oh_aer = -999888777\n        integer, save :: maincompindx_glysoa_nh4_aer = -999888777\n        integer, save :: maincompindx_glysoa_sfc_aer = -999888777\n\n        integer, save :: maincompindx_ant1_c_aer = -999888777\n        integer, save :: maincompindx_ant2_c_aer = -999888777\n        integer, save :: maincompindx_ant3_c_aer = -999888777\n        integer, save :: maincompindx_ant4_c_aer = -999888777\n        integer, save :: maincompindx_ant1_o_aer = -999888777\n        integer, save :: maincompindx_ant2_o_aer = -999888777\n        integer, save :: maincompindx_ant3_o_aer = -999888777\n        integer, save :: maincompindx_ant4_o_aer = -999888777\n        integer, save :: maincompindx_biog1_c_aer = -999888777\n        integer, save :: maincompindx_biog2_c_aer = -999888777\n        integer, save :: maincompindx_biog3_c_aer = -999888777\n        integer, save :: maincompindx_biog4_c_aer = -999888777\n        integer, save :: maincompindx_biog1_o_aer = -999888777\n        integer, save :: maincompindx_biog2_o_aer = -999888777\n        integer, save :: maincompindx_biog3_o_aer = -999888777\n        integer, save :: maincompindx_biog4_o_aer = -999888777\n\n        integer, save :: maincompindx_asoaX_aer = -999888777\n        integer, save :: maincompindx_asoa1_aer = -999888777\n        integer, save :: maincompindx_asoa2_aer = -999888777\n        integer, save :: maincompindx_asoa3_aer = -999888777\n        integer, save :: maincompindx_asoa4_aer = -999888777\n        integer, save :: maincompindx_bsoaX_aer = -999888777\n        integer, save :: maincompindx_bsoa1_aer = -999888777\n        integer, save :: maincompindx_bsoa2_aer = -999888777\n        integer, save :: maincompindx_bsoa3_aer = -999888777\n        integer, save :: maincompindx_bsoa4_aer = -999888777\n\n\treal, save ::   &\n          dens_aer( maxd_acomp, maxd_atype ),  &\n          dens_maincomp_aer( maxd_acomp ),   &\n      \t  mw_maincomp_aer( maxd_acomp ),     &\n      \t  mw_aer( maxd_acomp, maxd_atype ),    &\n      \t  hygro_maincomp_aer( maxd_acomp ),  &\n      \t  hygro_aer( maxd_acomp, maxd_atype )\n\n\treal, save ::   &\n          volumcen_sect( maxd_asize, maxd_atype ),  &\n          volumlo_sect( maxd_asize, maxd_atype ),   &\n          volumhi_sect( maxd_asize, maxd_atype ),   &\n          dcen_sect( maxd_asize, maxd_atype ),      &\n          dlo_sect( maxd_asize, maxd_atype ),       &\n          dhi_sect( maxd_asize, maxd_atype ),       &\n          sigmag_aer(maxd_asize, maxd_atype)\n\n        real, save :: aersize\n\n\tcharacter*20, save ::   &\n      \t  name_maincomp_aer( maxd_acomp ),  &\n      \t  name_aer( maxd_acomp, maxd_atype )\n\n\tinteger, save ::                     &\n      \t  lptr_so4_aer(maxd_asize, maxd_atype, maxd_aphase),      &\n      \t  lptr_msa_aer(maxd_asize, maxd_atype, maxd_aphase),      &\n      \t  lptr_no3_aer(maxd_asize, maxd_atype, maxd_aphase),      &\n      \t  lptr_cl_aer(maxd_asize, maxd_atype, maxd_aphase),       &\n          lptr_co3_aer(maxd_asize, maxd_atype, maxd_aphase),      &\n      \t  lptr_nh4_aer(maxd_asize, maxd_atype, maxd_aphase),      &\n      \t  lptr_na_aer(maxd_asize, maxd_atype, maxd_aphase),       &\n      \t  lptr_ca_aer(maxd_asize, maxd_atype, maxd_aphase),       &\n      \t  lptr_oin_aer(maxd_asize, maxd_atype, maxd_aphase),      &\n      \t  lptr_oc_aer(maxd_asize, maxd_atype, maxd_aphase),       &\n      \t  lptr_bc_aer(maxd_asize, maxd_atype, maxd_aphase),       &\n          lptr_pcg1_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg2_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg3_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg4_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg5_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg6_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg7_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg8_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg9_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg1_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg2_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg3_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg4_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg5_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg6_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg7_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg8_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg9_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg1_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg2_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg3_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg4_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg5_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg6_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg7_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg8_b_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg1_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg2_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg3_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg4_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg5_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg6_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg7_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg8_b_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg1_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg2_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg3_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg4_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg5_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg6_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg7_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg8_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg9_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg1_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg2_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg3_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg4_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg5_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg6_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg7_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg8_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_pcg9_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg1_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg2_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg3_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg4_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg5_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg6_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg7_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg8_f_c_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg1_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg2_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg3_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg4_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg5_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg6_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg7_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_opcg8_f_o_aer(maxd_asize, maxd_atype, maxd_aphase), &\n          lptr_smpa_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_smpbb_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n\n          lptr_glysoa_r1_aer(maxd_asize, maxd_atype, maxd_aphase),   &\n          lptr_glysoa_r2_aer(maxd_asize, maxd_atype, maxd_aphase),   &\n          lptr_glysoa_oh_aer(maxd_asize, maxd_atype, maxd_aphase),   &\n          lptr_glysoa_nh4_aer(maxd_asize, maxd_atype, maxd_aphase),   &\n          lptr_glysoa_sfc_aer(maxd_asize, maxd_atype, maxd_aphase),   &\n\n          lptr_ant1_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant2_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant3_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant4_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant1_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant2_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant3_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_ant4_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog1_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog2_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog3_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog4_c_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog1_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog2_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog3_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_biog4_o_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n\n          lptr_asoaX_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_asoa1_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_asoa2_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_asoa3_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_asoa4_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_bsoaX_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_bsoa1_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_bsoa2_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_bsoa3_aer(maxd_asize, maxd_atype, maxd_aphase),    &\n          lptr_bsoa4_aer(maxd_asize, maxd_atype, maxd_aphase)\n\n\n\n\n\n! rce 11-sep-2004 - eliminated all of the \"..._wrfch\" pointers\n!    so now there is only one set of pointers (\"..._amode\")\n! sg/rce nov-2004 - totally new pointer system  - \"..._aer\"\n\n\n!   molecular weights (g/mol)\n\treal, parameter :: mw_so4_aer = 96.066\n\treal, parameter :: mw_no3_aer = 62.007\n\treal, parameter :: mw_cl_aer  = 35.450\n\treal, parameter :: mw_msa_aer = 96.109\n\treal, parameter :: mw_co3_aer = 60.007\n\treal, parameter :: mw_nh4_aer = 18.042\n\treal, parameter :: mw_na_aer  = 22.990\n\treal, parameter :: mw_ca_aer  = 40.080\n\treal, parameter :: mw_oin_aer = 1.0\n\treal, parameter :: mw_oc_aer  = 250.0\n\treal, parameter :: mw_bc_aer  = 1.0\n\treal, parameter :: mw_water_aer  = 18.016\n        real, parameter :: mw_pcg1_b_c_aer = 250.0\n        real, parameter :: mw_pcg2_b_c_aer = 250.0\n        real, parameter :: mw_pcg3_b_c_aer = 250.0\n        real, parameter :: mw_pcg4_b_c_aer = 250.0\n        real, parameter :: mw_pcg5_b_c_aer = 250.0\n        real, parameter :: mw_pcg6_b_c_aer = 250.0\n        real, parameter :: mw_pcg7_b_c_aer = 250.0\n        real, parameter :: mw_pcg8_b_c_aer = 250.0\n        real, parameter :: mw_pcg9_b_c_aer = 250.0\n        real, parameter :: mw_pcg1_b_o_aer = 250.0\n        real, parameter :: mw_pcg2_b_o_aer = 250.0\n        real, parameter :: mw_pcg3_b_o_aer = 250.0\n        real, parameter :: mw_pcg4_b_o_aer = 250.0\n        real, parameter :: mw_pcg5_b_o_aer = 250.0\n        real, parameter :: mw_pcg6_b_o_aer = 250.0\n        real, parameter :: mw_pcg7_b_o_aer = 250.0\n        real, parameter :: mw_pcg8_b_o_aer = 250.0\n        real, parameter :: mw_pcg9_b_o_aer = 250.0\n        real, parameter :: mw_opcg1_b_c_aer = 250.0\n        real, parameter :: mw_opcg2_b_c_aer = 250.0\n        real, parameter :: mw_opcg3_b_c_aer = 250.0\n        real, parameter :: mw_opcg4_b_c_aer = 250.0\n        real, parameter :: mw_opcg5_b_c_aer = 250.0\n        real, parameter :: mw_opcg6_b_c_aer = 250.0\n        real, parameter :: mw_opcg7_b_c_aer = 250.0\n        real, parameter :: mw_opcg8_b_c_aer = 250.0\n        real, parameter :: mw_opcg1_b_o_aer = 250.0\n        real, parameter :: mw_opcg2_b_o_aer = 250.0\n        real, parameter :: mw_opcg3_b_o_aer = 250.0\n        real, parameter :: mw_opcg4_b_o_aer = 250.0\n        real, parameter :: mw_opcg5_b_o_aer = 250.0\n        real, parameter :: mw_opcg6_b_o_aer = 250.0\n        real, parameter :: mw_opcg7_b_o_aer = 250.0\n        real, parameter :: mw_opcg8_b_o_aer = 250.0\n        real, parameter :: mw_pcg1_f_c_aer = 250.0\n        real, parameter :: mw_pcg2_f_c_aer = 250.0\n        real, parameter :: mw_pcg3_f_c_aer = 250.0\n        real, parameter :: mw_pcg4_f_c_aer = 250.0\n        real, parameter :: mw_pcg5_f_c_aer = 250.0\n        real, parameter :: mw_pcg6_f_c_aer = 250.0\n        real, parameter :: mw_pcg7_f_c_aer = 250.0\n        real, parameter :: mw_pcg8_f_c_aer = 250.0\n        real, parameter :: mw_pcg9_f_c_aer = 250.0\n        real, parameter :: mw_pcg1_f_o_aer = 250.0\n        real, parameter :: mw_pcg2_f_o_aer = 250.0\n        real, parameter :: mw_pcg3_f_o_aer = 250.0\n        real, parameter :: mw_pcg4_f_o_aer = 250.0\n        real, parameter :: mw_pcg5_f_o_aer = 250.0\n        real, parameter :: mw_pcg6_f_o_aer = 250.0\n        real, parameter :: mw_pcg7_f_o_aer = 250.0\n        real, parameter :: mw_pcg8_f_o_aer = 250.0\n        real, parameter :: mw_pcg9_f_o_aer = 250.0\n        real, parameter :: mw_opcg1_f_c_aer = 250.0\n        real, parameter :: mw_opcg2_f_c_aer = 250.0\n        real, parameter :: mw_opcg3_f_c_aer = 250.0\n        real, parameter :: mw_opcg4_f_c_aer = 250.0\n        real, parameter :: mw_opcg5_f_c_aer = 250.0\n        real, parameter :: mw_opcg6_f_c_aer = 250.0\n        real, parameter :: mw_opcg7_f_c_aer = 250.0\n        real, parameter :: mw_opcg8_f_c_aer = 250.0\n        real, parameter :: mw_opcg1_f_o_aer = 250.0\n        real, parameter :: mw_opcg2_f_o_aer = 250.0\n        real, parameter :: mw_opcg3_f_o_aer = 250.0\n        real, parameter :: mw_opcg4_f_o_aer = 250.0\n        real, parameter :: mw_opcg5_f_o_aer = 250.0\n        real, parameter :: mw_opcg6_f_o_aer = 250.0\n        real, parameter :: mw_opcg7_f_o_aer = 250.0\n        real, parameter :: mw_opcg8_f_o_aer = 250.0\n        real, parameter :: mw_smpa_aer = 250.0\n        real, parameter :: mw_smpbb_aer = 250.0\n\n        real, parameter :: mw_glysoa_r1_aer   = 250.0\n        real, parameter :: mw_glysoa_r2_aer   = 250.0\n        real, parameter :: mw_glysoa_oh_aer   = 250.0\n        real, parameter :: mw_glysoa_nh4_aer   = 250.0\n        real, parameter :: mw_glysoa_sfc_aer   = 250.0\n\n        real, parameter :: mw_ant1_c_aer = 250.0\n        real, parameter :: mw_ant2_c_aer = 250.0\n        real, parameter :: mw_ant3_c_aer = 250.0\n        real, parameter :: mw_ant4_c_aer = 250.0\n        real, parameter :: mw_ant1_o_aer = 250.0\n        real, parameter :: mw_ant2_o_aer = 250.0\n        real, parameter :: mw_ant3_o_aer = 250.0\n        real, parameter :: mw_ant4_o_aer = 250.0\n        real, parameter :: mw_biog1_c_aer = 250.0\n        real, parameter :: mw_biog2_c_aer = 250.0\n        real, parameter :: mw_biog3_c_aer = 250.0\n        real, parameter :: mw_biog4_c_aer = 250.0\n        real, parameter :: mw_biog1_o_aer = 250.0\n        real, parameter :: mw_biog2_o_aer = 250.0\n        real, parameter :: mw_biog3_o_aer = 250.0\n        real, parameter :: mw_biog4_o_aer = 250.0\n\n        real, parameter :: mw_asoaX_aer = 250.0\n        real, parameter :: mw_asoa1_aer = 250.0\n        real, parameter :: mw_asoa2_aer = 250.0\n        real, parameter :: mw_asoa3_aer = 250.0\n        real, parameter :: mw_asoa4_aer = 250.0\n        real, parameter :: mw_bsoaX_aer = 250.0\n        real, parameter :: mw_bsoa1_aer = 250.0\n        real, parameter :: mw_bsoa2_aer = 250.0\n        real, parameter :: mw_bsoa3_aer = 250.0\n        real, parameter :: mw_bsoa4_aer = 250.0\n\n\n\t\n!   dry densities (g/cm3)\n\treal, parameter :: dens_so4_aer = 1.80\n\treal, parameter :: dens_no3_aer = 1.80\n\treal, parameter :: dens_cl_aer  = 2.20\n\treal, parameter :: dens_msa_aer = 1.80\n\treal, parameter :: dens_co3_aer = 2.60\n\treal, parameter :: dens_nh4_aer = 1.80\n\treal, parameter :: dens_na_aer  = 2.20\n\treal, parameter :: dens_ca_aer  = 2.60\n\treal, parameter :: dens_oin_aer = 2.60\n\treal, parameter :: dens_oc_aer  = 1.00\n\treal, parameter :: dens_bc_aer  = 1.70\n        real, parameter :: dens_pcg1_b_c_aer = 1.0\n        real, parameter :: dens_pcg2_b_c_aer = 1.0\n        real, parameter :: dens_pcg3_b_c_aer = 1.0\n        real, parameter :: dens_pcg4_b_c_aer = 1.0\n        real, parameter :: dens_pcg5_b_c_aer = 1.0\n        real, parameter :: dens_pcg6_b_c_aer = 1.0\n        real, parameter :: dens_pcg7_b_c_aer = 1.0\n        real, parameter :: dens_pcg8_b_c_aer = 1.0\n        real, parameter :: dens_pcg9_b_c_aer = 1.0\n        real, parameter :: dens_pcg1_b_o_aer = 1.0\n        real, parameter :: dens_pcg2_b_o_aer = 1.0\n        real, parameter :: dens_pcg3_b_o_aer = 1.0\n        real, parameter :: dens_pcg4_b_o_aer = 1.0\n        real, parameter :: dens_pcg5_b_o_aer = 1.0\n        real, parameter :: dens_pcg6_b_o_aer = 1.0\n        real, parameter :: dens_pcg7_b_o_aer = 1.0\n        real, parameter :: dens_pcg8_b_o_aer = 1.0\n        real, parameter :: dens_pcg9_b_o_aer = 1.0\n        real, parameter :: dens_opcg1_b_c_aer = 1.0\n        real, parameter :: dens_opcg2_b_c_aer = 1.0\n        real, parameter :: dens_opcg3_b_c_aer = 1.0\n        real, parameter :: dens_opcg4_b_c_aer = 1.0\n        real, parameter :: dens_opcg5_b_c_aer = 1.0\n        real, parameter :: dens_opcg6_b_c_aer = 1.0\n        real, parameter :: dens_opcg7_b_c_aer = 1.0\n        real, parameter :: dens_opcg8_b_c_aer = 1.0\n        real, parameter :: dens_opcg1_b_o_aer = 1.0\n        real, parameter :: dens_opcg2_b_o_aer = 1.0\n        real, parameter :: dens_opcg3_b_o_aer = 1.0\n        real, parameter :: dens_opcg4_b_o_aer = 1.0\n        real, parameter :: dens_opcg5_b_o_aer = 1.0\n        real, parameter :: dens_opcg6_b_o_aer = 1.0\n        real, parameter :: dens_opcg7_b_o_aer = 1.0\n        real, parameter :: dens_opcg8_b_o_aer = 1.0\n        real, parameter :: dens_pcg1_f_c_aer = 1.0\n        real, parameter :: dens_pcg2_f_c_aer = 1.0\n        real, parameter :: dens_pcg3_f_c_aer = 1.0\n        real, parameter :: dens_pcg4_f_c_aer = 1.0\n        real, parameter :: dens_pcg5_f_c_aer = 1.0\n        real, parameter :: dens_pcg6_f_c_aer = 1.0\n        real, parameter :: dens_pcg7_f_c_aer = 1.0\n        real, parameter :: dens_pcg8_f_c_aer = 1.0\n        real, parameter :: dens_pcg9_f_c_aer = 1.0\n        real, parameter :: dens_pcg1_f_o_aer = 1.0\n        real, parameter :: dens_pcg2_f_o_aer = 1.0\n        real, parameter :: dens_pcg3_f_o_aer = 1.0\n        real, parameter :: dens_pcg4_f_o_aer = 1.0\n        real, parameter :: dens_pcg5_f_o_aer = 1.0\n        real, parameter :: dens_pcg6_f_o_aer = 1.0\n        real, parameter :: dens_pcg7_f_o_aer = 1.0\n        real, parameter :: dens_pcg8_f_o_aer = 1.0\n        real, parameter :: dens_pcg9_f_o_aer = 1.0\n        real, parameter :: dens_opcg1_f_c_aer = 1.0\n        real, parameter :: dens_opcg2_f_c_aer = 1.0\n        real, parameter :: dens_opcg3_f_c_aer = 1.0\n        real, parameter :: dens_opcg4_f_c_aer = 1.0\n        real, parameter :: dens_opcg5_f_c_aer = 1.0\n        real, parameter :: dens_opcg6_f_c_aer = 1.0\n        real, parameter :: dens_opcg7_f_c_aer = 1.0\n        real, parameter :: dens_opcg8_f_c_aer = 1.0\n        real, parameter :: dens_opcg1_f_o_aer = 1.0\n        real, parameter :: dens_opcg2_f_o_aer = 1.0\n        real, parameter :: dens_opcg3_f_o_aer = 1.0\n        real, parameter :: dens_opcg4_f_o_aer = 1.0\n        real, parameter :: dens_opcg5_f_o_aer = 1.0\n        real, parameter :: dens_opcg6_f_o_aer = 1.0\n        real, parameter :: dens_opcg7_f_o_aer = 1.0\n        real, parameter :: dens_opcg8_f_o_aer = 1.0\n        real, parameter :: dens_smpa_aer = 1.0\n        real, parameter :: dens_smpbb_aer = 1.0\n\n        real, parameter :: dens_glysoa_r1_aer   = 1.0\n        real, parameter :: dens_glysoa_r2_aer   = 1.0\n        real, parameter :: dens_glysoa_oh_aer   = 1.0\n        real, parameter :: dens_glysoa_nh4_aer   = 1.0\n        real, parameter :: dens_glysoa_sfc_aer   = 1.0\n\n        real, parameter :: dens_ant1_c_aer = 1.0\n        real, parameter :: dens_ant2_c_aer = 1.0\n        real, parameter :: dens_ant3_c_aer = 1.0\n        real, parameter :: dens_ant4_c_aer = 1.0\n        real, parameter :: dens_ant1_o_aer = 1.0\n        real, parameter :: dens_ant2_o_aer = 1.0\n        real, parameter :: dens_ant3_o_aer = 1.0\n        real, parameter :: dens_ant4_o_aer = 1.0\n        real, parameter :: dens_biog1_c_aer = 1.0\n        real, parameter :: dens_biog2_c_aer = 1.0\n        real, parameter :: dens_biog3_c_aer = 1.0\n        real, parameter :: dens_biog4_c_aer = 1.0\n        real, parameter :: dens_biog1_o_aer = 1.0\n        real, parameter :: dens_biog2_o_aer = 1.0\n        real, parameter :: dens_biog3_o_aer = 1.0\n        real, parameter :: dens_biog4_o_aer = 1.0\n\n! dens based on Murphy and Pandis, ES&T, 2009\n        real, parameter :: dens_asoaX_aer = 1.5\n        real, parameter :: dens_asoa1_aer = 1.5\n        real, parameter :: dens_asoa2_aer = 1.5\n        real, parameter :: dens_asoa3_aer = 1.5\n        real, parameter :: dens_asoa4_aer = 1.5\n        real, parameter :: dens_bsoaX_aer = 1.5\n        real, parameter :: dens_bsoa1_aer = 1.5\n        real, parameter :: dens_bsoa2_aer = 1.5\n        real, parameter :: dens_bsoa3_aer = 1.5\n        real, parameter :: dens_bsoa4_aer = 1.5\n\n\n!   water density (g/cm3)\n!\treal, parameter :: dens_water_asize  = 1.0\n\treal, parameter :: dens_water_aer  = 1.0\n\n!   hygroscopicities (dimensionless)\n\treal, parameter :: hygro_so4_aer = 0.5\n\treal, parameter :: hygro_no3_aer = 0.5\n\treal, parameter :: hygro_ca_aer  = 0.1\n\treal, parameter :: hygro_co3_aer = 0.1\n\treal, parameter :: hygro_nh4_aer = 0.5\n\treal, parameter :: hygro_msa_aer = 0.58\n\treal, parameter :: hygro_cl_aer  = 1.16\n\treal, parameter :: hygro_na_aer  = 1.16\n\treal, parameter :: hygro_oin_aer = 0.14\n\treal, parameter :: hygro_oc_aer  = 0.20\n\treal, parameter :: hygro_bc_aer  = 1.e-6\n        real, parameter :: hygro_pcg1_b_c_aer = 0.04\n        real, parameter :: hygro_pcg2_b_c_aer = 0.04\n        real, parameter :: hygro_pcg3_b_c_aer = 0.04\n        real, parameter :: hygro_pcg4_b_c_aer = 0.04\n        real, parameter :: hygro_pcg5_b_c_aer = 0.04\n        real, parameter :: hygro_pcg6_b_c_aer = 0.04\n        real, parameter :: hygro_pcg7_b_c_aer = 0.04\n        real, parameter :: hygro_pcg8_b_c_aer = 0.04\n        real, parameter :: hygro_pcg9_b_c_aer = 0.04\n        real, parameter :: hygro_pcg1_b_o_aer = 0.04\n        real, parameter :: hygro_pcg2_b_o_aer = 0.04\n        real, parameter :: hygro_pcg3_b_o_aer = 0.04\n        real, parameter :: hygro_pcg4_b_o_aer = 0.04\n        real, parameter :: hygro_pcg5_b_o_aer = 0.04\n        real, parameter :: hygro_pcg6_b_o_aer = 0.04\n        real, parameter :: hygro_pcg7_b_o_aer = 0.04\n        real, parameter :: hygro_pcg8_b_o_aer = 0.04\n        real, parameter :: hygro_pcg9_b_o_aer = 0.04\n        real, parameter :: hygro_opcg1_b_c_aer = 0.10\n        real, parameter :: hygro_opcg2_b_c_aer = 0.10\n        real, parameter :: hygro_opcg3_b_c_aer = 0.10\n        real, parameter :: hygro_opcg4_b_c_aer = 0.10\n        real, parameter :: hygro_opcg5_b_c_aer = 0.10\n        real, parameter :: hygro_opcg6_b_c_aer = 0.10\n        real, parameter :: hygro_opcg7_b_c_aer = 0.10\n        real, parameter :: hygro_opcg8_b_c_aer = 0.10\n        real, parameter :: hygro_opcg1_b_o_aer = 0.10\n        real, parameter :: hygro_opcg2_b_o_aer = 0.10\n        real, parameter :: hygro_opcg3_b_o_aer = 0.10\n        real, parameter :: hygro_opcg4_b_o_aer = 0.10\n        real, parameter :: hygro_opcg5_b_o_aer = 0.10\n        real, parameter :: hygro_opcg6_b_o_aer = 0.10\n        real, parameter :: hygro_opcg7_b_o_aer = 0.10\n        real, parameter :: hygro_opcg8_b_o_aer = 0.10\n        real, parameter :: hygro_pcg1_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg2_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg3_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg4_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg5_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg6_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg7_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg8_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg9_f_c_aer = 1.0e-6\n        real, parameter :: hygro_pcg1_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg2_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg3_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg4_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg5_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg6_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg7_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg8_f_o_aer = 1.0e-6\n        real, parameter :: hygro_pcg9_f_o_aer = 1.0e-6\n        real, parameter :: hygro_opcg1_f_c_aer = 0.10\n        real, parameter :: hygro_opcg2_f_c_aer = 0.10\n        real, parameter :: hygro_opcg3_f_c_aer = 0.10\n        real, parameter :: hygro_opcg4_f_c_aer = 0.10\n        real, parameter :: hygro_opcg5_f_c_aer = 0.10\n        real, parameter :: hygro_opcg6_f_c_aer = 0.10\n        real, parameter :: hygro_opcg7_f_c_aer = 0.10\n        real, parameter :: hygro_opcg8_f_c_aer = 0.10\n        real, parameter :: hygro_opcg1_f_o_aer = 0.10\n        real, parameter :: hygro_opcg2_f_o_aer = 0.10\n        real, parameter :: hygro_opcg3_f_o_aer = 0.10\n        real, parameter :: hygro_opcg4_f_o_aer = 0.10\n        real, parameter :: hygro_opcg5_f_o_aer = 0.10\n        real, parameter :: hygro_opcg6_f_o_aer = 0.10\n        real, parameter :: hygro_opcg7_f_o_aer = 0.10\n        real, parameter :: hygro_opcg8_f_o_aer = 0.10\n        real, parameter :: hygro_smpa_aer = 0.10\n        real, parameter :: hygro_smpbb_aer = 0.140\n\n        real, parameter :: hygro_glysoa_r1_aer   = 0.14\n        real, parameter :: hygro_glysoa_r2_aer   = 0.14\n        real, parameter :: hygro_glysoa_oh_aer   = 0.14\n        real, parameter :: hygro_glysoa_nh4_aer   = 0.14\n        real, parameter :: hygro_glysoa_sfc_aer   = 0.14\n\n        real, parameter :: hygro_ant1_c_aer = 0.10\n        real, parameter :: hygro_ant2_c_aer = 0.10\n        real, parameter :: hygro_ant3_c_aer = 0.10\n        real, parameter :: hygro_ant4_c_aer = 0.10\n        real, parameter :: hygro_ant1_o_aer = 0.10\n        real, parameter :: hygro_ant2_o_aer = 0.10\n        real, parameter :: hygro_ant3_o_aer = 0.10\n        real, parameter :: hygro_ant4_o_aer = 0.10\n        real, parameter :: hygro_biog1_c_aer = 0.10\n        real, parameter :: hygro_biog2_c_aer = 0.10\n        real, parameter :: hygro_biog3_c_aer = 0.10\n        real, parameter :: hygro_biog4_c_aer = 0.10\n        real, parameter :: hygro_biog1_o_aer = 0.10\n        real, parameter :: hygro_biog2_o_aer = 0.10\n        real, parameter :: hygro_biog3_o_aer = 0.10\n        real, parameter :: hygro_biog4_o_aer = 0.10\n\n        real, parameter :: hygro_asoaX_aer = 0.14\n        real, parameter :: hygro_asoa1_aer = 0.14\n        real, parameter :: hygro_asoa2_aer = 0.14\n        real, parameter :: hygro_asoa3_aer = 0.14\n        real, parameter :: hygro_asoa4_aer = 0.14\n        real, parameter :: hygro_bsoaX_aer = 0.14\n        real, parameter :: hygro_bsoa1_aer = 0.14\n        real, parameter :: hygro_bsoa2_aer = 0.14\n        real, parameter :: hygro_bsoa3_aer = 0.14\n        real, parameter :: hygro_bsoa4_aer = 0.14\n\n\n\tinteger, save ::   &\n      \t  msectional, maerosolincw,   &\n      \t  maerocoag, maerchem, maeroptical, maerchem_boxtest_output\n\n\n!-----------------------------------------------------------------------\n!   the following arrays are used during \"column calculations\" within\n!\tmosaic modules\n!\n!   aqvoldry_sub(n,k,m) = dry-volume (cm^3-aerosol/mole-air) for mode n,\n!\t\t\tlayer k, subarea m\n!   aqmassdry_sub(n,k,m) = dry-mass (g-aerosol/mole-air) for mode n, ...\n!   adrydens_sub(n,k,m) = dry-density (g-aerosol/cm^3-aerosol) for mode n, ...\n!\t\t\t== amassdry_sub/avoldry_sub\n!   awetdens_sub(n,k,m) = wet-density (g-aerosol/cm^3-aerosol) for mode n, ...\n!\n!   admeandry_sub(n,k,m) = current mean dry-diameter (cm) \n!\tfor unactivated aerosol in mode n, layer k, subarea m.  \n!\t(Used in sectional code)\n!   admeanwet_sub(n,k,m) = current mean wet-diameter (cm) \n!\tfor unactivated aerosol in mode n, layer k, subarea m.  \n!\t(Used in sectional code)\n!\n!   awetdens_sfc(n,i,j) = wet-density for mode n and k=1.  This value is \n!\tsaved after the second pass thru subr. aerosol_wetsize \n!\tfor use in subr. bounds\n!   admeanwet_sfc(n,i,j) = mean wet-diameter for mode n and k=1.  \n!\tThis value is saved after the second pass thru \n!\tsubr. aerosol_wetsize for use in subr. bounds\n!\n!\n!   following are used in aerosol growth routine and are locally\n!   defined for the current layer (k) and subarea (m)\n!\tdrymass_pregrow(n) = dry-mass (g/mole-air) for section n\n!\t\t\tbefore the aerosol growth\n!\tdrymass_aftgrow(n) = dry-mass (g/mole-air) for section n\n!\t\t\tafter the growth but before inter-section transfer\n!\tdrydens_pregrow(n) = dry-density (g/cm3) for section n\n!\t\t\tbefore the aerosol growth\n!\tdrydens_aftgrow(n) = dry-density (g/cm3) for section n\n!\t\t\tafter the growth but before inter-section transfer\n!\n!-----------------------------------------------------------------------\n\n!\tinteger, parameter :: imaxd_asize = 78\n!\tinteger, parameter :: jmaxd_asize = 28\n\tinteger, parameter :: kmaxd_asize = 100\n\tinteger, parameter :: nsubareamaxd_asize = 5\n\n! rce 22-jul-2006 - added maxd_atype dimension to following 6 arrays\n!    and changed avoldry_sub,amassdry_sub to aqvoldry_sub,aqmassdry_sub\n\treal, save :: aqvoldry_sub( maxd_asize,maxd_atype,kmaxd_asize,nsubareamaxd_asize)\n\treal, save :: aqmassdry_sub(maxd_asize,maxd_atype,kmaxd_asize,nsubareamaxd_asize)\n\treal, save :: adrydens_sub( maxd_asize,maxd_atype,kmaxd_asize,nsubareamaxd_asize)\n\treal, save :: awetdens_sub( maxd_asize,maxd_atype,kmaxd_asize,nsubareamaxd_asize)\n\treal, save :: admeandry_sub(maxd_asize,maxd_atype,kmaxd_asize,nsubareamaxd_asize)\n\treal, save :: admeanwet_sub(maxd_asize,maxd_atype,kmaxd_asize,nsubareamaxd_asize)\n\n!\treal, save :: awetdens_sfc(maxd_asize,imaxd_asize,jmaxd_asize)\n!\treal, save :: admeanwet_sfc(maxd_asize,imaxd_asize,jmaxd_asize)\n\n\treal, save :: drymass_pregrow(maxd_asize,maxd_atype)\n\treal, save :: drydens_pregrow(maxd_asize,maxd_atype)\n\treal, save :: drymass_aftgrow(maxd_asize,maxd_atype)\n\treal, save :: drydens_aftgrow(maxd_asize,maxd_atype)\n\n! table lookup of aerosol impaction/interception\n! scavenging rates\n\treal dlndg_nimptblgrow\n\tinteger nimptblgrow_mind, nimptblgrow_maxd\n\tparameter (nimptblgrow_mind=-7, nimptblgrow_maxd=12)\n     \treal scavimptblnum(4, nimptblgrow_mind:nimptblgrow_maxd, maxd_asize, maxd_atype), &\n     \t     scavimptblvol(4, nimptblgrow_mind:nimptblgrow_maxd, maxd_asize, maxd_atype)\n\n\n\tend module module_data_mosaic_asect\n#endif\n"
  },
  {
    "path": "APM/module_data_mosaic_other.F90",
    "content": "#ifdef APM\n!**********************************************************************************  \n! This computer software was prepared by Battelle Memorial Institute, hereinafter\n! the Contractor, under Contract No. DE-AC05-76RL0 1830 with the Department of \n! Energy (DOE). NEITHER THE GOVERNMENT NOR THE CONTRACTOR MAKES ANY WARRANTY,\n! EXPRESS OR IMPLIED, OR ASSUMES ANY LIABILITY FOR THE USE OF THIS SOFTWARE.\n!\n! MOSAIC module: see module_mosaic_driver.F for references and terms of use\n!**********************************************************************************  \n!   file module_data_mosaic_other.f\n!-----------------------------------------------------------------------\n\n\tmodule module_data_mosaic_other\n\n\n! rce 11-sep-2004 changes\n!    increased lmaxd,l2maxd \n!    initialize khno3,...,ktemp,ltot,ltot2 with bogus values;\n!    added aboxtest_... variables\n!    no initialization of name()\n! rce 06-may-2005 - increased lmaxd from 184 (no cw) to 283 (cw);\n!    added rcldwtr_sub\n\n\n\tinteger, parameter :: imaxd=1, jmaxd=1, kmaxd=100\n\n\tinteger, parameter :: lmaxd=1200, l2maxd=1200 ! increased from 300 to 400 by Manish Shrivastava on 01/25/10 for additional soa gas species\n\n\tinteger, parameter :: nsubareamaxd = 1\n\n!   rce 2005-mar-09 - added k_pegbegin\n!   k_pegbegin = starting k index for pegasus arrays\n\tinteger, parameter :: k_pegbegin = 1\n\n\n\tinteger, save :: khno3   = -999888777\n\tinteger, save :: kh2so4  = -999888777\n\tinteger, save :: knh3    = -999888777\n\tinteger, save :: khcl    = -999888777\n\tinteger, save :: kn2o5   = -999888777\n\tinteger, save :: kclno2  = -999888777\n\tinteger, save :: ko3     = -999888777\n\tinteger, save :: kh2o    = -999888777\n\tinteger, save :: ktemp   = -999888777\n        integer, save :: kpcg1_b_c  = -999888777\n        integer, save :: kpcg2_b_c  = -999888777\n        integer, save :: kpcg3_b_c  = -999888777\n        integer, save :: kpcg4_b_c  = -999888777\n        integer, save :: kpcg5_b_c  = -999888777\n        integer, save :: kpcg6_b_c  = -999888777\n        integer, save :: kpcg7_b_c  = -999888777\n        integer, save :: kpcg8_b_c  = -999888777\n        integer, save :: kpcg9_b_c  = -999888777\n        integer, save :: kpcg1_b_o  = -999888777\n        integer, save :: kpcg2_b_o  = -999888777\n        integer, save :: kpcg3_b_o  = -999888777\n        integer, save :: kpcg4_b_o  = -999888777\n        integer, save :: kpcg5_b_o  = -999888777\n        integer, save :: kpcg6_b_o  = -999888777\n        integer, save :: kpcg7_b_o  = -999888777\n        integer, save :: kpcg8_b_o  = -999888777\n        integer, save :: kpcg9_b_o  = -999888777\n        integer, save :: kopcg1_b_c  = -999888777\n        integer, save :: kopcg2_b_c  = -999888777\n        integer, save :: kopcg3_b_c  = -999888777\n        integer, save :: kopcg4_b_c  = -999888777\n        integer, save :: kopcg5_b_c  = -999888777\n        integer, save :: kopcg6_b_c  = -999888777\n        integer, save :: kopcg7_b_c  = -999888777\n        integer, save :: kopcg8_b_c  = -999888777\n        integer, save :: kopcg1_b_o  = -999888777\n        integer, save :: kopcg2_b_o  = -999888777\n        integer, save :: kopcg3_b_o  = -999888777\n        integer, save :: kopcg4_b_o  = -999888777\n        integer, save :: kopcg5_b_o  = -999888777\n        integer, save :: kopcg6_b_o  = -999888777\n        integer, save :: kopcg7_b_o  = -999888777\n        integer, save :: kopcg8_b_o  = -999888777\n        integer, save :: kpcg1_f_c  = -999888777\n        integer, save :: kpcg2_f_c  = -999888777\n        integer, save :: kpcg3_f_c  = -999888777\n        integer, save :: kpcg4_f_c  = -999888777\n        integer, save :: kpcg5_f_c  = -999888777\n        integer, save :: kpcg6_f_c  = -999888777\n        integer, save :: kpcg7_f_c  = -999888777\n        integer, save :: kpcg8_f_c  = -999888777\n        integer, save :: kpcg9_f_c  = -999888777\n        integer, save :: kpcg1_f_o  = -999888777\n        integer, save :: kpcg2_f_o  = -999888777\n        integer, save :: kpcg3_f_o  = -999888777\n        integer, save :: kpcg4_f_o  = -999888777\n        integer, save :: kpcg5_f_o  = -999888777\n        integer, save :: kpcg6_f_o  = -999888777\n        integer, save :: kpcg7_f_o  = -999888777\n        integer, save :: kpcg8_f_o  = -999888777\n        integer, save :: kpcg9_f_o  = -999888777\n        integer, save :: kopcg1_f_c  = -999888777\n        integer, save :: kopcg2_f_c  = -999888777\n        integer, save :: kopcg3_f_c  = -999888777\n        integer, save :: kopcg4_f_c  = -999888777\n        integer, save :: kopcg5_f_c  = -999888777\n        integer, save :: kopcg6_f_c  = -999888777\n        integer, save :: kopcg7_f_c  = -999888777\n        integer, save :: kopcg8_f_c  = -999888777\n        integer, save :: kopcg1_f_o  = -999888777\n        integer, save :: kopcg2_f_o  = -999888777\n        integer, save :: kopcg3_f_o  = -999888777\n        integer, save :: kopcg4_f_o  = -999888777\n        integer, save :: kopcg5_f_o  = -999888777\n        integer, save :: kopcg6_f_o  = -999888777\n        integer, save :: kopcg7_f_o  = -999888777\n        integer, save :: kopcg8_f_o  = -999888777\n        integer, save :: ksmpa  = -999888777\n        integer, save :: ksmpbb  = -999888777\n        integer, save :: kant1_c  = -999888777\n        integer, save :: kant2_c  = -999888777\n        integer, save :: kant3_c  = -999888777\n        integer, save :: kant4_c  = -999888777\n        integer, save :: kant1_o  = -999888777\n        integer, save :: kant2_o  = -999888777\n        integer, save :: kant3_o  = -999888777\n        integer, save :: kant4_o  = -999888777\n        integer, save :: kbiog1_c  = -999888777\n        integer, save :: kbiog2_c  = -999888777\n        integer, save :: kbiog3_c  = -999888777\n        integer, save :: kbiog4_c  = -999888777\n        integer, save :: kbiog1_o  = -999888777\n        integer, save :: kbiog2_o  = -999888777\n        integer, save :: kbiog3_o  = -999888777\n        integer, save :: kbiog4_o  = -999888777\n        integer, save :: kasoaX = -999888777\n        integer, save :: kasoa1 = -999888777\n        integer, save :: kasoa2 = -999888777\n        integer, save :: kasoa3 = -999888777\n        integer, save :: kasoa4 = -999888777\n        integer, save :: kbsoaX = -999888777\n        integer, save :: kbsoa1 = -999888777\n        integer, save :: kbsoa2 = -999888777\n        integer, save :: kbsoa3 = -999888777\n        integer, save :: kbsoa4 = -999888777\n\n        integer, save :: kgly        = -999888777\n\n\n\n\n\n\n!   rce 2005-apr-12 - added for cldchem - kso2, kh2o2, khcho, khcooh, \n!   koh, kho2, kno3, kno, kno2, khono, kpan, kch3o2, kch3oh, kch3ooh\n\tinteger, save :: kso2    = -999888777\n\tinteger, save :: kh2o2   = -999888777\n\tinteger, save :: khcho   = -999888777\n\tinteger, save :: khcooh  = -999888777\n\tinteger, save :: koh     = -999888777\n\tinteger, save :: kho2    = -999888777\n\tinteger, save :: kno3    = -999888777\n\tinteger, save :: kno     = -999888777\n\tinteger, save :: kno2    = -999888777\n\tinteger, save :: khono   = -999888777\n\tinteger, save :: kpan    = -999888777\n\tinteger, save :: kch3o2  = -999888777\n\tinteger, save :: kch3oh  = -999888777\n\tinteger, save :: kch3ooh = -999888777\n\n!   the following values are correct for wrfchem simulations\n\tinteger, save :: lunerr=6, lunout=6\n\n\tinteger, save :: ltot=+999888777, ltot2=+999888777\n\n\tinteger, save :: itot, jtot, ktot\n\tinteger, save :: isvode, jsvode, ksvode, msvode\n\tinteger, save :: iymdcur, ihmscur\n\tinteger, save :: ncorecnt\n\tinteger, save :: nsubareas\n\n\n\treal, parameter :: pi = 3.14159265\n\n\treal, save :: afracsubarea(kmaxd,nsubareamaxd)\n\treal, save :: cairclm(kmaxd)\n\treal, save :: ptotclm(kmaxd)\n\treal, save :: rclm(kmaxd,l2maxd)\n\treal, save :: relhumclm(kmaxd)\n\treal, save :: rcldwtr_sub(kmaxd,nsubareamaxd)\n\treal, save :: rsub(l2maxd,kmaxd,nsubareamaxd)\n\treal, save :: t\n\n\n\tcharacter(len=20), save :: name(l2maxd)\n\n\n!   control variables for box-model testing\n!   the following values are correct for wrfchem simulations\n\tinteger, save :: aboxtest_testmode = 0\n\tinteger, save :: aboxtest_units_convert = 1\n\tinteger, save :: aboxtest_rh_method = 1\n\tinteger, save :: aboxtest_map_method = 1\n\tinteger, save :: aboxtest_gases_fixed = 0\n\n\treal, save :: aboxtest_min_temp = 233.0\n\treal, save :: aboxtest_min_relhum = 0.05\n\treal, save :: aboxtest_max_relhum = 0.98\n\n\n\tend module module_data_mosaic_other\n#endif\n"
  },
  {
    "path": "APM/module_data_mosaic_therm.F90",
    "content": "#ifdef APM\n!************************************************************************\n! This computer software was prepared by Battelle Memorial Institute,\n! hereinafter the Contractor, under Contract No. DE-AC05-76RL0 1830 with\n! the Department of Energy (DOE). NEITHER THE GOVERNMENT NOR THE\n! CONTRACTOR MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR ASSUMES ANY\n! LIABILITY FOR THE USE OF THIS SOFTWARE.\n!\n! MOSAIC module: see module_mosaic_driver.F for references and terms of\n! use\n!************************************************************************\n      module module_data_mosaic_therm\n\n\n\n      implicit none\n\n\n\n! mosaic.h (mosaic.22.0)\n!   30-apr-07 raz - deleted alpha_gas\n!   05-feb-07 wig - converted reals to double\n!   10-jan-07 raz - compatible with mosaic.21.0\n!   19-dec-05 raz - compatible with mosaic.16.4\n!   27-apr-05 raz - compatible with mosaic.14.3\n!   07-jan-05 raz - updated and cleaned up variable lists\n!   08-jul-03 raz - updated many variables\n!   07-aug-02 rce - this is rahul's latest version from freshair\n!   19-aug-02 raz - declared mass_soluble_a and kg as real\n!   07-oct-02 raz - declared zc and za as integer\n!   09-oct-02 raz - explicitly declared all variables\n!   29-oct-02 raz - defined naercomp as the total number of aerosol compounds\n!----------------------------------------------------------------------\n\n! nbin_a_maxd = maximum num of aerosol bins and is used to dimension arrays\n      integer, parameter :: nbin_a_maxd = 8\n! nbin_a = number of bins that are used in a run\n! (nbin_a is set at run time, and must be <= nbin_a_maxd)\n      integer, save :: nbin_a = 1\n\n! mosaic-specific parameters\n! Alma added 2 smp species - just before the traditional ant1_c \n! SOA is treated using a simplified approach for anthropogenic and biomass burning species based on Hodzic and Jimenez, GMD, 2011\n      integer ngas_ioa, ngas_soa, ngas_volatile, ngas_het,\t&\n              naer, naercomp, nelectrolyte, nsalt,\t&\n              nsoluble, ncation, nanion\n      parameter(ngas_ioa = 5)\t! inorganic volatile aerosol species that have a gaseous counterpart\n!      parameter(ngas_soa = 68+2+16)\t! volatile soa species that have a gaseous counterpart\n!      parameter(ngas_volatile = ngas_ioa + ngas_soa)\n!      parameter(ngas_het = 2)   ! gas species only involved in heterogeneous reactions ! DL - 9/9/2011\n!      parameter(naer = 11+68+2+16)\t! num of chemical species per bin (inorg + oc + bc + oin + soa)\n!      parameter(naercomp = 26+68+2+16)\t! num of electrolytes + oc, bc, oin, & soa\n! 10 new VBS species\n      parameter(ngas_soa = 68+2+16+10)\t! volatile soa species that have a gaseous counterpart\n! OH and glyoxal at the end\n      parameter(ngas_volatile = ngas_ioa + ngas_soa + 1 + 1)\n      parameter(ngas_het = 2)   ! gas species only involved in heterogeneous reactions ! DL - 9/9/2011\n! 5 glyoxal SOA species, 10 VBS species\n      parameter(naer = 11+68+2+16+5+10)\t! num of chemical species per bin (inorg + oc + bc + oin + soa) + 5*glysoa + 10*VBS\n      parameter(naercomp = 26+68+2+16+5+10)\t! num of electrolytes + oc, bc, oin, & soa + 5*glysoa + 10*VBS\n      parameter(nelectrolyte = 22) ! num of electrolytes\n      parameter(nsalt    = 15)\t! num of soluble salts\n      parameter(nsoluble = 20)\t! num of soluble electrolytes\n      parameter(ncation = 4)\t! num of cations\n      parameter(nanion  = 5)\t! num of anions\n\n      integer nrxn_aer_gl, nrxn_aer_ll, nrxn_aer_sg, nrxn_aer_sl\n      parameter(nrxn_aer_gl = 4) ! num of gas-liquid equilibria\n      parameter(nrxn_aer_ll = 3) ! num of liquid-liquid equilibria\n      parameter(nrxn_aer_sg = 2) ! num of solid-gas equilibria\n      parameter(nrxn_aer_sl = nsalt)! num of solid-liquid equilibria\n\n      integer mmodal, msection,   &\n              mon, moff, myes, mno\n      parameter(mmodal  = 1)\t! modal size distribution framework\n      parameter(msection= 2)\t! sectional size distribution framework\n      parameter(mon     = 1)\t! flag: on\n      parameter(moff    = 0)    ! flag:off\n      parameter(myes\t= mon)\t! flag: yes or true\n      parameter(mno\t= moff)\t! flag: no or false\n\n\n      integer jtotal, jsolid, jliquid\n      parameter(jsolid = 1)\n      parameter(jliquid= 2)\n      parameter(jtotal = 3)\n\n      integer jhyst_lo, jhyst_up\n      parameter(jhyst_lo = 0)\t! lower hysteresis leg\n      parameter(jhyst_up = 1) \t! upper hysteresis leg\n\n      integer no_aerosol, all_solid, all_liquid, mixed\n      parameter(no_aerosol = 0)\t! flag\n      parameter(all_solid  = 1) ! flag\n      parameter(all_liquid = 2) ! flag\n      parameter(mixed      = 3)\t! flag\n\n      integer soluble, insoluble\n      parameter(soluble   = 1)  ! flag\n      parameter(insoluble = 2)  ! flag\n\n      real(kind=8) mass_cutoff\n      parameter(mass_cutoff = 1.d-15)\t! ng/m^3\n\n\n!----------------------------------------------------------------------\n! mosaic species indices\n!\n! gas\n      integer, save ::   &\n       ih2so4_g,     ihno3_g,      ihcl_g,      inh3_g,   &\n       imsa_g, in2o5_g, iclno2_g\n\n      integer, save ::   &\n      ipcg1_b_c_g,ipcg2_b_c_g,ipcg3_b_c_g,ipcg4_b_c_g, &\n      ipcg5_b_c_g,ipcg6_b_c_g,ipcg7_b_c_g,ipcg8_b_c_g, &\n      ipcg9_b_c_g,ipcg1_b_o_g,ipcg2_b_o_g,ipcg3_b_o_g, &\n      ipcg4_b_o_g,ipcg5_b_o_g,ipcg6_b_o_g,ipcg7_b_o_g, &\n      ipcg8_b_o_g,ipcg9_b_o_g,iopcg1_b_c_g,iopcg2_b_c_g,&\n      iopcg3_b_c_g, iopcg4_b_c_g,iopcg5_b_c_g,iopcg6_b_c_g,&\n      iopcg7_b_c_g,iopcg8_b_c_g,iopcg1_b_o_g,iopcg2_b_o_g,&\n      iopcg3_b_o_g,iopcg4_b_o_g,iopcg5_b_o_g,iopcg6_b_o_g,&\n      iopcg7_b_o_g,iopcg8_b_o_g,&\n      ipcg1_f_c_g,ipcg2_f_c_g,ipcg3_f_c_g,ipcg4_f_c_g, &\n      ipcg5_f_c_g,ipcg6_f_c_g,ipcg7_f_c_g,ipcg8_f_c_g, &\n      ipcg9_f_c_g,ipcg1_f_o_g,ipcg2_f_o_g,ipcg3_f_o_g, &\n      ipcg4_f_o_g,ipcg5_f_o_g,ipcg6_f_o_g,ipcg7_f_o_g, &\n      ipcg8_f_o_g,ipcg9_f_o_g,iopcg1_f_c_g,iopcg2_f_c_g,&\n      iopcg3_f_c_g, iopcg4_f_c_g,iopcg5_f_c_g,iopcg6_f_c_g,&\n      iopcg7_f_c_g,iopcg8_f_c_g,iopcg1_f_o_g,iopcg2_f_o_g,&\n      iopcg3_f_o_g,iopcg4_f_o_g,iopcg5_f_o_g,iopcg6_f_o_g,&\n      iopcg7_f_o_g,iopcg8_f_o_g,iant1_c_g,iant2_c_g,iant3_c_g, &\n      iant4_c_g,ibiog1_c_g,ibiog2_c_g,ibiog3_c_g,ibiog4_c_g, &\n      iant1_o_g,iant2_o_g,iant3_o_g, &\n      iant4_o_g,ibiog1_o_g,ibiog2_o_g,ibiog3_o_g,ibiog4_o_g, &\n      ismpa_g,ismpbb_g, &\n      iasoaX_g, iasoa1_g, iasoa2_g, iasoa3_g, iasoa4_g, &\n      ibsoaX_g, ibsoa1_g, ibsoa2_g, ibsoa3_g, ibsoa4_g, &\n      igly, iho\n\n\n! aerosol generic\n      integer, save ::   &\n       iso4_a,     ino3_a,     icl_a,     inh4_a,     ico3_a,  &\n       imsa_a,     ina_a,      ica_a,     ioc_a,      ibc_a,   &\n       ioin_a\n\n      integer, save ::   &\n      ipcg1_b_c_a,ipcg2_b_c_a,ipcg3_b_c_a,ipcg4_b_c_a, &\n      ipcg5_b_c_a,ipcg6_b_c_a,ipcg7_b_c_a,ipcg8_b_c_a, &\n      ipcg9_b_c_a,ipcg1_b_o_a,ipcg2_b_o_a,ipcg3_b_o_a, &\n      ipcg4_b_o_a,ipcg5_b_o_a,ipcg6_b_o_a,ipcg7_b_o_a, &\n      ipcg8_b_o_a,ipcg9_b_o_a,iopcg1_b_c_a,iopcg2_b_c_a,&\n      iopcg3_b_c_a, iopcg4_b_c_a,iopcg5_b_c_a,iopcg6_b_c_a,&\n      iopcg7_b_c_a,iopcg8_b_c_a,iopcg1_b_o_a,iopcg2_b_o_a,&\n      iopcg3_b_o_a,iopcg4_b_o_a,iopcg5_b_o_a,iopcg6_b_o_a,&\n      iopcg7_b_o_a,iopcg8_b_o_a,&\n      ipcg1_f_c_a,ipcg2_f_c_a,ipcg3_f_c_a,ipcg4_f_c_a, &\n      ipcg5_f_c_a,ipcg6_f_c_a,ipcg7_f_c_a,ipcg8_f_c_a, &\n      ipcg9_f_c_a,ipcg1_f_o_a,ipcg2_f_o_a,ipcg3_f_o_a, &\n      ipcg4_f_o_a,ipcg5_f_o_a,ipcg6_f_o_a,ipcg7_f_o_a, &\n      ipcg8_f_o_a,ipcg9_f_o_a,iopcg1_f_c_a,iopcg2_f_c_a,&\n      iopcg3_f_c_a, iopcg4_f_c_a,iopcg5_f_c_a,iopcg6_f_c_a,&\n      iopcg7_f_c_a,iopcg8_f_c_a,iopcg1_f_o_a,iopcg2_f_o_a,&\n      iopcg3_f_o_a,iopcg4_f_o_a,iopcg5_f_o_a,iopcg6_f_o_a,&\n      iopcg7_f_o_a,iopcg8_f_o_a, &\n      ismpa_a,ismpbb_a, &\n      iglysoa_r1_a, iglysoa_r2_a, iglysoa_oh_a, iglysoa_sfc_a, iglysoa_nh4_a, &\n      iant1_c_a,iant2_c_a,iant3_c_a, &\n      iant4_c_a,ibiog1_c_a,ibiog2_c_a,ibiog3_c_a,ibiog4_c_a, &\n      iant1_o_a,iant2_o_a,iant3_o_a, &\n      iant4_o_a,ibiog1_o_a,ibiog2_o_a,ibiog3_o_a,ibiog4_o_a, &\n      iasoaX_a, iasoa1_a,iasoa2_a,iasoa3_a,iasoa4_a,&\n      ibsoaX_a, ibsoa1_a,ibsoa2_a,ibsoa3_a,ibsoa4_a\n\n\n! aerosol elecctrolytes/compounds\n      integer, save ::   &\n       jnh4so4,    jlvcite,    jnh4hso4,   jnh4no3,    jnh4cl,  &\n       jna2so4,    jna3hso4,   jnahso4,    jnano3,     jnacl,   &\n       jcaso4,     jcano3,     jcacl2,     jcaco3,     jh2so4,  &\n       jhno3,      jhcl,       jhhso4,                          &\n       jnh4msa,    jnamsa,     jcamsa2,    jmsa,                &\n       joc,        jbc,        join,       jh2o\n\n      integer, save ::   &\n      jpcg1_b_c,jpcg2_b_c,jpcg3_b_c,jpcg4_b_c, &\n      jpcg5_b_c,jpcg6_b_c,jpcg7_b_c,jpcg8_b_c, &\n      jpcg9_b_c,jpcg1_b_o,jpcg2_b_o,jpcg3_b_o, &\n      jpcg4_b_o,jpcg5_b_o,jpcg6_b_o,jpcg7_b_o, &\n      jpcg8_b_o,jpcg9_b_o,jopcg1_b_c,jopcg2_b_c,&\n      jopcg3_b_c, jopcg4_b_c,jopcg5_b_c,jopcg6_b_c,&\n      jopcg7_b_c,jopcg8_b_c,jopcg1_b_o,jopcg2_b_o,&\n      jopcg3_b_o,jopcg4_b_o,jopcg5_b_o,jopcg6_b_o,&\n      jopcg7_b_o,jopcg8_b_o,&\n      jpcg1_f_c,jpcg2_f_c,jpcg3_f_c,jpcg4_f_c, &\n      jpcg5_f_c,jpcg6_f_c,jpcg7_f_c,jpcg8_f_c, &\n      jpcg9_f_c,jpcg1_f_o,jpcg2_f_o,jpcg3_f_o, &\n      jpcg4_f_o,jpcg5_f_o,jpcg6_f_o,jpcg7_f_o, &\n      jpcg8_f_o,jpcg9_f_o,jopcg1_f_c,jopcg2_f_c,&\n      jopcg3_f_c, jopcg4_f_c,jopcg5_f_c,jopcg6_f_c,&\n      jopcg7_f_c,jopcg8_f_c,jopcg1_f_o,jopcg2_f_o,&\n      jopcg3_f_o,jopcg4_f_o,jopcg5_f_o,jopcg6_f_o,&\n      jopcg7_f_o,jopcg8_f_o, &\n      jsmpa,jsmpbb, &\n      jglysoa_r1, jglysoa_r2, jglysoa_oh, jglysoa_sfc, jglysoa_nh4, &\n      jant1_c,jant2_c,jant3_c, &\n      jant4_c,jbiog1_c,jbiog2_c,jbiog3_c,jbiog4_c, &\n      jant1_o,jant2_o,jant3_o, &\n      jant4_o,jbiog1_o,jbiog2_o,jbiog3_o,jbiog4_o, &\n      jasoaX,jasoa1,jasoa2,jasoa3,jasoa4,&\n      jbsoaX,jbsoa1,jbsoa2,jbsoa3,jbsoa4\n\n\n! aerosol ions\n      integer, save ::   \t\t\t&\n       jc_h,    jc_nh4, jc_na,  jc_ca,\t\t&\n       ja_hso4, ja_so4, ja_no3, ja_cl, ja_msa     ! , ja_co3\n\n\n!----------------------------------------------------------------------\n! mosaic variables\n      integer, save ::\t\t\t&\n\ticlm_aer,\t\t\t&  ! i-location\n\tjclm_aer,\t\t\t&  ! j-location\n\tkclm_aer,\t\t\t&  ! k-location\n\tkclm_aer_calcbgn,\t\t&  ! k-loc for calc. to begin\n\tkclm_aer_calcend,\t\t&  ! k-loc for calc. to end\n\tmclm_aer,\t\t\t&  ! m-subarea\n\tmgas_aer_xfer,\t\t\t&  ! flag: mon, moff\n\tmdynamic_solver,\t\t&  ! flag: masteem, masceem\n\tmsize_framework,\t\t&  ! flag: mmodal, msectional\n\tjaerosolstate(nbin_a_maxd),\t&  ! flag: no_aerosol, all_solid, all_liquid, mixed\n\tjphase(nbin_a_maxd),\t\t&  ! phase index: jtotal, jsolid, jliquid\n\tjhyst_leg(nbin_a_maxd),\t\t&  ! hysteresis leg: jhyst_up, jhyst_lo\n\tiprint_input,\t\t\t&  ! flag: mon, moff\n\tlunerr_aer,\t\t\t&  ! \n\tncorecnt_aer,       &  !\n\tn2o5_flag\t\t\t\t! flag to control N2O5 het chem (0=off, 1=no Cl pathway, 2=full)\n\n! NOTE: Some of the following informational output defaults are overridden in \n!       module_mosaic_driver.F based on the internal MOSAIC debug_level setting.\n      integer, save :: istat_mosaic_fe1       \n                       ! \"fatal error status\" for current problem (grid cell)\n                       ! negative value means a fatal error has occured\n      integer, save :: nfe1_mosaic_cur = 0\n                       ! fatal error count for current host-code time step\n      integer, save :: nfe1_mosaic_tot = 0\n                       ! fatal error count for all time steps\n      integer, save :: iprint_mosaic_fe1 = 1\n                       ! turns on/off output of fatal error diagnostics & counts\n                       !    if iprint_mosaic_fe1 >= 10, mosaic_aerchem_error_dump\n                       !    is called for each fatal error\n      integer, save :: iprint_mosaic_perform_stats = 1 \n                       ! turns on/off output of mosaic performance statistics\n      integer, save :: iprint_mosaic_diag1 = 1 \n                       ! turns on/off output of other warnings & diagnostics\n      integer, save :: iprint_mosaic_input_ok = 1 \n                       ! turns on/off output of mosaic initial values\n                       ! when a serious error occurs\n\n\n      real(kind=8), save ::\t\t&\n      \tnum_a(nbin_a_maxd),\t\t&  ! #/cc(air)\n      \tdpgn_a(nbin_a_maxd),\t\t&  ! cm\n      \tdp_dry_a(nbin_a_maxd),\t\t&  ! cm\n      \tdp_wet_a(nbin_a_maxd),\t\t&  ! cm\n      \tarea_dry_a(nbin_a_maxd),\t&  ! cm^2/cc(air)\n      \tarea_wet_a(nbin_a_maxd),\t&  ! cm^2/cc(air)\n\tmass_dry_salt(nbin_a_maxd),\t&  ! g/cc(air)\n      \tmass_dry_a(nbin_a_maxd),\t&  ! g/cc(air)\n      \tmass_wet_a(nbin_a_maxd),\t&  ! g/cc(air)\n      \tmass_soluble_a(nbin_a_maxd),\t&  ! ng/cc(air)\n      \tvol_dry_a(nbin_a_maxd),\t\t&  ! cc/cc(air)\n      \tvol_wet_a(nbin_a_maxd),\t\t&  ! cc/cc(air)\n      \tdens_dry_a(nbin_a_maxd),\t&  ! g/cc\n      \tdens_wet_a(nbin_a_maxd),\t&  ! g/cc\n      \tsigmag_a(nbin_a_maxd),\t\t&  ! -\n      \twater_a(nbin_a_maxd), \t\t&  ! kg(water)/m^3(air)\n      \twater_a_hyst(nbin_a_maxd),\t&  ! kg(water)/m^3(air) hysteresis (at 60% rh)\n      \twater_a_up(nbin_a_maxd),\t&  ! kg(water)/m^3(air) at 60% rh\n      \tph(nbin_a_maxd),\t\t&  ! ph\n        c_as(nbin_a_maxd),          & ! ammonium sulfate concentration (mol/kg water)\n        c_an(nbin_a_maxd),          & ! ammonium nitrate concentration (mol/kg water)\n        a_nh4(nbin_a_maxd),         & ! ammonium sulfate activity (mol/kg water)\n      \taer(naer,3,nbin_a_maxd),\t&  ! nmol/m^3\n\taer_sum(3,nbin_a_maxd),\t\t&  ! nmol/m^3\n      \taer_percent(naer,3,nbin_a_maxd), &  ! %\n      \tcomp_a(naercomp),\t\t&  ! g/cc(air)\n      \telectrolyte(nelectrolyte,3,nbin_a_maxd),   &  ! nmol/m^3\n      \telectrolyte_sum(nelectrolyte,nbin_a_maxd), &  ! nmol/m^3\n      \tepercent(nelectrolyte,3,nbin_a_maxd),\t   &  ! %\n      \tgas(ngas_volatile+ngas_het),\t\t&  ! nmol/m^3\n      \tah2o,\t\t\t\t&  ! -\n      \tah2o_a(nbin_a_maxd),\t\t&  ! -\n      \tdpmv(nbin_a_maxd),\t\t&  ! \n      \tvolume_a(nbin_a_maxd),\t\t&  ! \n\tvolume_bin(nbin_a_maxd),\t&  ! dry volume of one particle\n      \tkelvin(nbin_a_maxd),\t\t&  ! kelvin factor\n\tkel(ngas_volatile+ngas_het,nbin_a_maxd),\t&  ! kelvin factor for condensing species\n\tkelvin_nh4no3,\t\t\t&  ! -\n\tkelvin_nh4cl,\t\t\t&  ! - \n\ttotal_species(ngas_volatile)\t   ! \n\n\n!----------------------------------------------------------------------\n! astem variables\n      integer, save ::\t\t\t&\n\tidry_case3a(nbin_a_maxd),\t&  ! mYES, mNO\n\tieqblm_bin(nbin_a_maxd),\t&  ! myes, mno\n\tieqblm_astem,\t\t\t&  ! myes, mno\n        ieqblm_soa,                     &  ! mYES, mNO\n\tnastem_call,\t\t\t&  !\n\tnastem_fail,\t\t\t&  !\n\tisteps_astem,\t\t\t&  !\n\tnsteps_astem,\t\t\t&  !\n        isteps_SOA,                     &\n\tnsteps_astem_max,\t\t&  !\n\tnmax_ASTEM,\t\t\t&  !\n        flagsoap(ngas_soa),             &       ! Added by Manish Shrivastav on 01/11/10\n\tintegrate(ngas_volatile,3,nbin_a_maxd)  ! mYES, mNO\n\n\n      real(kind=8), save ::\t\t\t&\n\tpo_soa(ngas_volatile),\t\t\t&  ! pascal\n\tsat_soa(ngas_volatile),\t\t\t&  ! nmol/m^3(air)\n\tx_soa(naer),\t\t\t\t&  ! soa mole fraction\n\tsfc_a(ngas_volatile),\t\t\t&  ! nmol/m^3\n\tHeff(ngas_volatile,nbin_a_maxd),\t&  ! \n\tkg(ngas_volatile+ngas_het,nbin_a_maxd),\t\t&  ! 1/s\n        fraceq(ngas_volatile,nbin_a_maxd),      &  ! 1/s\n\tdf_gas_s(ngas_volatile,nbin_a_maxd),\t&  ! nmol/m^3 (g-g*) = driving force)\n\tdf_gas_l(ngas_volatile,nbin_a_maxd),\t&  ! nmol/m^3 (g-g*) = driving force)\n        df_gas_o(ngas_volatile,nbin_a_maxd),     &  ! nmol/m^3 (G-G*) = driving force)\n\tflux_s(ngas_volatile,nbin_a_maxd),\t&  ! nmol/m^3/s\n\tflux_l(ngas_volatile,nbin_a_maxd),\t&  ! nmol/m^3/s\n        flux_o(ngas_volatile,nbin_a_maxd),      &  ! nmol/m^3/s\n\tsumkg_h2so4,\t\t\t\t&  ! 1/s\n\tsumkg_msa,\t\t\t\t&  ! 1/s\n\tsumkg_nh3,\t\t\t\t&  ! 1/s\n\tsumkg_hno3,\t\t\t\t&  ! 1/s\n\tsumkg_hcl,\t\t\t\t&  ! 1/s\n\tsumkg_n2o5,\t\t\t\t&  ! 1/s\n\tdelta_nh3_max(nbin_a_maxd),\t\t&  ! nmol/m^3\n\tdelta_hno3_max(nbin_a_maxd),\t\t&  ! nmol/m^3\n\tdelta_hcl_max(nbin_a_maxd),\t\t&  ! nmol/m^3\n\tkeq_nh4no3,\t\t\t\t&  ! -\n\tkeq_nh4cl,\t\t\t\t&  ! -\n\tKeq_nh4no3_0,\t\t\t\t&  ! -\n\tKeq_nh4cl_0,\t\t\t\t&  ! -\n\tvolatile_s(ngas_volatile,nbin_a_maxd), \t&  ! nmol/m^3\n\tphi_volatile_s(ngas_volatile,nbin_a_maxd),\t&  ! relative dr. force = (g-g*)/g\n\tphi_volatile_l(ngas_volatile,nbin_a_maxd),\t&  ! relative dr. force = (g-g*)/g\n        phi_volatile_o(ngas_volatile,nbin_a_maxd),      &  ! relative dr. force = (g-g*)/g\n\tphi_nh4no3_s,\t\t\t\t&  ! relative dr. force: 0 to 1\n\tphi_nh4cl_s,\t\t\t\t&  ! relative dr. force: 0 to 1\n\tsum_vdf_s(ngas_volatile),\t\t&  ! (nmol/m^3)^2\n\tsum_vol_s(ngas_volatile),\t\t&  ! nmol/m^3\n\tsum_bin_s(ngas_volatile),\t\t&  ! number of bins that have flux_s(iv) < 0\n\tavg_df_gas_s(ngas_volatile),\t\t&  ! nmol/m^3\n\th_s_i_m(ngas_volatile,nbin_a_maxd),\t&  ! s\n\talpha_astem,\t\t\t\t&  ! 0.01 to 0.05\n\trtol_eqb_astem,\t\t\t\t&  ! 0.01 to 0.03\n\tptol_mol_astem,\t\t\t\t&  ! 0.01 to 1.0\n\tnsteps_astem_avg\t\t\t   !\n\n      integer, parameter :: glysoa_param_off     = 0, &\n                            glysoa_param_simple  = 1, &\n                            glysoa_param_complex = 2\n      integer, save      :: glysoa_param\n\n!----------------------------------------------------------------------\n! mesa variables\n      integer, save ::   \t\t&\n      \tjsalt_index(nsalt),\t\t&\n      \tjsulf_poor(211),\t\t&\n      \tjsulf_rich(71),\t\t\t&\n      \tjsalt_present(nsalt),\t\t&\n      \tnmax_mesa,\t\t\t&\n      \tnmesa_call,\t\t\t&\n      \tnmesa_fail,\t\t\t&\n\titer_mesa(nbin_a_maxd),\t\t&\n\tniter_mesa,\t\t\t&\n      \tniter_mesa_max\n\n\n      real(kind=8), save ::   \t\t&\n\teleliquid(nelectrolyte),\t&\n\tflux_sl(nsalt),\t\t\t&\n\tphi_salt(nsalt),\t\t&\n\tphi_salt_old(nsalt),\t\t&\n\tphi_bar(nsalt),\t\t\t&\n\talpha_salt(nsalt),\t\t&\n\tsat_ratio(nsalt),\t\t&\n\thsalt(nsalt),\t\t\t&\n\thsalt_max,\t\t\t&\n\tfrac_salt_liq(nsalt),\t\t&\n\tfrac_salt_solid(nsalt),\t\t&\n\tgrowth_factor(nbin_a_maxd),\t&\n\td_mdrh(63,4),\t\t\t&  ! mdrh(t) poly coeffs\n\tmdrh(nbin_a_maxd),\t\t&\n\tmdrh_t(63),\t\t\t&\n\tmolality0(nelectrolyte),\t&\n\trtol_mesa,\t\t\t&\n\tniter_mesa_avg\n\n\n!----------------------------------------------------------------------\n! mosaic physico-chemical constants\n      character(len=8), save ::\t\t&\n\tename(nelectrolyte),\t\t&  ! electrolyte names\n\taer_name(naer),\t\t\t&  ! generic aerosol species name\n\tgas_name(ngas_volatile+ngas_het)\t\t   ! gas species name\n\n      character(len=6), save ::\t\t&\n\tphasestate(4)\n\n\n      real(kind=8), save ::\t\t\t&\n\tt_k,\t\t\t\t&  ! temperature (k)\n\tp_atm,\t\t\t\t&  ! pressure (atm)\n\trh_pc,\t\t\t\t&  ! relative humidity (%)\n\tcair_mol_cc,\t\t\t&  ! air conc in mol/cc\n\tcair_mol_m3,\t\t\t&  ! air conc in mol/m^3\n\tconv1a,\t\t\t\t&\n\tconv1b,\t\t\t\t&\n\tconv2a,\t\t\t\t&\n\tconv2b,\t\t\t\t&\n\tmw_electrolyte(nelectrolyte),\t&  ! molecular wt of electrolytes\n\tmw_aer_mac(naer),\t\t&  ! molecular wt of generic species\n\tmw_comp_a(naercomp),\t\t&  ! molecular wt of compounds\n\tmw_c(ncation),\t\t\t&  ! molecular wt of cations\n\tmw_a(nanion),\t\t\t&  ! molecular wt of anions\n\tdens_electrolyte(nelectrolyte),\t&  ! g/cc\n\tdens_aer_mac(naer),\t\t&  ! g/cc\n\tdens_comp_a(naercomp),\t\t&  ! g/cc (density of compounds)\n\tpartial_molar_vol(ngas_volatile+ngas_het), & ! cc/mol\n\tsigma_water,\t\t\t&  ! water surface tension (n/m)\n\tsigma_soln(nbin_a_maxd),\t&  ! solution surface tension (n/m)\n\tkeq_gl(nrxn_aer_gl),\t\t&  ! gas-liq eqblm const\n\tkeq_ll(nrxn_aer_ll),\t\t&  ! liq-liq eqblm const\n\tkeq_sg(nrxn_aer_sg),\t\t&  ! solid-gas eqbln const\n\tkeq_sl(nrxn_aer_sl), \t\t&  ! solid-liq eqblm const\n\tkp_nh3, \t\t\t&  !\n\tkp_nh4no3, \t\t\t&  !\n\tkp_nh4no3_0, \t\t\t&  !\n\tkp_nh4cl,\t                &  !\n\tkp_nh4cl_0,\t\t\t&   !\n\tfrac_n2o5_h2o(nbin_a_maxd)\t! fraction of N2O5 which reacts with H2O after heterogeneous uptake\n\n      complex, save ::\t\t\t&\n      \t\tref_index_a(naercomp),\t&  ! refractive index of compounds\n      \t\tri_avg_a(nbin_a_maxd)\t   ! vol avg ref index of bin\n\n\n!----------------------------------------------------------------------\n! mosaic activity coefficient models parameters\n\n      real(kind=8), save ::\t\t\t&\n\tmc(ncation,nbin_a_maxd),\t\t&  ! mol/kg(water)\n\tma(nanion,nbin_a_maxd),\t\t\t&  ! mol/kg(water)\n\tmsulf,\t\t\t\t\t&  ! \n\tzc(ncation),\t\t\t\t&  ! real charge\n\tza(nanion),\t\t\t\t&  ! real charge\n\tgam(nelectrolyte,nbin_a_maxd),\t\t&\n\tgam_ratio(nbin_a_maxd),\t\t\t&\n\tlog_gamz(nelectrolyte,nelectrolyte),\t&\n\tlog_gam(nelectrolyte),\t\t\t&\n\tactivity(nelectrolyte,nbin_a_maxd),\t&\n\txeq_a(nanion),\t\t\t\t&\n\txeq_c(ncation),\t\t\t\t&\n\tna_ma(nanion),\t\t\t\t&\n\tnc_mc(ncation),\t\t\t\t&\n\ta_zsr(6,nelectrolyte),\t\t\t&  ! binary molality polynomial coeffs\n\tb_zsr(nelectrolyte),\t\t\t&  ! binary molality coeff\n\taw_min(nelectrolyte),\t\t\t&  ! minimum frh at which molality polynomial can be used\n\tb_mtem(6,nelectrolyte,nelectrolyte)\t   ! mtem poly coeffs\n\n\n!----------------------------------------------------------------------\n! mosaic massbalance variables\n      real(kind=8), save ::\t&\n\ttot_so4_in,\t&\n\ttot_no3_in,\t&\n\ttot_cl_in,\t&\n\ttot_nh4_in,\t&\n\ttot_na_in,\t&\n\ttot_ca_in,\t&\n\ttot_so4_out,\t&\n\ttot_no3_out,\t&\n\ttot_cl_out,\t&\n\ttot_nh4_out,\t&\n\ttot_na_out,\t&\n\ttot_ca_out,\t&\n\tdiff_so4,\t&\n\tdiff_no3,\t&\n\tdiff_cl,\t&\n\tdiff_nh4,\t&\n\tdiff_na,\t&\n\tdiff_ca,\t&\n\treldiff_so4,\t&\n\treldiff_no3,\t&\n\treldiff_cl,\t&\n\treldiff_nh4,\t&\n\treldiff_na,\t&\n\treldiff_ca\n!----------------------------------------------------------------------\n\n\n\n      end module module_data_mosaic_therm\n#endif\n"
  },
  {
    "path": "APM/module_mosaic_therm.F90",
    "content": "#ifdef APM\n!************************************************************************\n! This computer software was prepared by Battelle Memorial Institute,\n! hereinafter the Contractor, under Contract No. DE-AC05-76RL0 1830 with\n! the Department of Energy (DOE). NEITHER THE GOVERNMENT NOR THE\n! CONTRACTOR MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR ASSUMES ANY\n! LIABILITY FOR THE USE OF THIS SOFTWARE.\n!\n! MOSAIC module: see module_mosaic_driver.F for references and terms of\n! use\n!************************************************************************\n      module module_mosaic_therm\n\n\n\n      use module_data_mosaic_therm\n\n\n\n      implicit none\n\n      intrinsic max, min\n\n      PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n      PUBLIC :: mosaic\n      PUBLIC :: load_mosaic_parameters\n\n      contains\n\n\n\n!***********************************************************************\n! mosaic (model for simulating aerosol interactions and chemistry)\n!\n! author: rahul a. zaveri\n! update: dec 2004\n!-----------------------------------------------------------------------\n      subroutine mosaic(k, m, dtchem,vbs_nbin,&\n        t_kin, p_atmin, rh, cairclmin, gasin, aerin, yh2o, aersizein)\n\n      use module_data_mosaic_asect\n      use module_data_mosaic_other\n\n!     implicit none\n!     include 'v33com'\n!     include 'v33com3'\n!     include 'mosaic.h'\n!   subr arguments\n      integer k, m,vbs_nbin(1)\n      integer ibin\n      real t_kin,p_atmin,rh,cairclmin,gasin(4),aerin(14),yh2o,aersizein\n      real(kind=8) dtchem\n!   local variables\n      real(kind=8) dumdum\n      integer iclm_debug, jclm_debug, kclm_debug, ncnt_debug\n!     data iclm_debug /28/\n!     data jclm_debug /1/\n!     data kclm_debug /9/\n!     data ncnt_debug /6/\n      iclm_debug=28; jclm_debug=1; kclm_debug=9; ncnt_debug=6\n\n      if(iclm_aer .eq. iclm_debug .and.   &\n         jclm_aer .eq. jclm_debug .and.   &\n         kclm_aer .eq. kclm_debug  .and.   &\n         ncorecnt_aer .eq. ncnt_debug)then\n        dumdum = 0.0\n      endif\n\n      call initialize_mosaic_variables\n\n          mclm_aer = m\n          kclm_aer = k\n          istat_mosaic_fe1 = 1\n          n2o5_flag = 1\n\n!----------------------------\n          t_k = t_kin\n          p_atm = p_atmin\n          aersize=aersizein\n          sigmag_a(1) = 1.8\n\n          gas(ih2so4_g)=gasin(1)\n          gas(inh3_g)=gasin(2)\n          gas(ihno3_g)=gasin(3)\n          !gas(inh3_g)=gasin(2)+aerin(2)\n          !gas(ihno3_g)=gasin(3)+aerin(3)\n          aer(inh4_a,jtotal,1)=aerin(2)\n          aer(ino3_a,jtotal,1)=aerin(3)\n          aer(ina_a,jtotal,1)=aerin(4)\n          aer(icl_a,jtotal,1)=aerin(5)\n          gas(ihcl_g)=gasin(4)\n\n          aer(iso4_a,jtotal,1)=aerin(1)\n          aer(iso4_a,jsolid,1)=aerin(1)\n\n          ptotclm(k)      = p_atm*1.032d6! update pressure = atm\n          relhumclm(k)    = rh/100.0             ! fractional rh\n          cairclm(k)      = cairclmin              ! mol/cc\n\n          rh_pc = 100.*relhumclm(k)\t\t! rh (%)\n          ah2o = relhumclm(k)\t\t\t! fractional rh\n\n          gas=gas*cairclm(k)*1.e15\n          aer=aer*cairclm(k)*1.e15\n\n          call update_thermodynamic_constants(vbs_nbin)\t! update t and rh dependent constants\n\n          call overall_massbal_in ! save input mass over all bins\n          iprint_input = myes     ! reset to default\n\n          call mosaic_dynamic_solver( dtchem,vbs_nbin )\n          if (istat_mosaic_fe1 .lt. 0) return\n\n          call overall_massbal_out(0) ! check mass balance after integration\n          if(isteps_astem .ge. nmax_astem)then\n          yh2o = 0.\n          else\n          yh2o = aerosol_water_up(1)! kg(h2o)/m3(air)\n\n          gasin(2)=gas(inh3_g)/(cairclm(k)*1.e15)\n          gasin(3)=gas(ihno3_g)/(cairclm(k)*1.e15)\n\n          aerin(2)=aer(inh4_a,jtotal,1)/(cairclm(k)*1.e15)\n          aerin(3)=aer(ino3_a,jtotal,1)/(cairclm(k)*1.e15)\n          aerin(4)=aer(ina_a,jtotal,1)/(cairclm(k)*1.e15)\n          aerin(5)=aer(icl_a,jtotal,1)/(cairclm(k)*1.e15)\n          endif\n\n      return\n      end subroutine mosaic\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! interface to asceem and asteem dynamic gas-particle exchange solvers\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine mosaic_dynamic_solver( dtchem,vbs_nbin )\n!     implicit none\n!     include 'v33com'\n!     include 'mosaic.h'\n! subr arguments\n      real(kind=8) dtchem\n! local variables\n      integer ibin, iv, k, m,vbs_nbin(1)\n      real(kind=8) xt, dumdum\n!     real(kind=8) aerosol_water_up\t\t\t\t! mosaic func\n\n\n!      if(iclm_aer .eq. 21 .and.   &\n!         jclm_aer .eq. 17 .and.   &\n!         kclm_aer .eq. 3  .and.   &\n!         ncorecnt_aer .eq. 4)then\n!        dumdum = 0.0\n!      endif\n\n\n      do 500 ibin = 1, nbin_a\n\n        call check_aerosol_mass(ibin)\n        if(jaerosolstate(ibin) .eq. no_aerosol)goto 500\n\n        call conform_electrolytes(jtotal,ibin,xt) \t! conforms aer(jtotal) to a valid aerosol\n\n        call check_aerosol_mass(ibin) \t\t\t! check mass again after conform_electrolytes\n        if(jaerosolstate(ibin) .eq. no_aerosol)goto 500\t! ignore this bin\n\n        call conform_aerosol_number(ibin)   \t\t! adjusts number conc so that it conforms with bin mass and diameter\n\n500   continue\n\n\n\n! box\n!        call initial_aer_print_box\t! box\n\n      call save_pregrow_props\n\n      call specialoutaa( iclm_aer, jclm_aer, kclm_aer, 77,   &\n      \t\t'after_conform' )\n!\n!-------------------------------------\n! do dynamic gas-aerosol mass transfer\n\n      if(mgas_aer_xfer .eq. mon)then\n\n        call astem(dtchem,vbs_nbin)\n\n      endif\n\n!-------------------------------------\n! box\n! grows or shrinks size depending on mass increase or decrease\n!\n!      do ibin = 1, nbin_a\n!        if(jaerosolstate(ibin) .ne. no_aerosol)then\n!          call conform_particle_size(ibin)\t! box\n!        endif\n!      enddo\n\n\n\n      do 600 ibin = 1, nbin_a\n        if(jaerosolstate(ibin).eq.no_aerosol) goto 600\n\n        if(jhyst_leg(ibin) .eq. jhyst_lo)then\n          water_a_hyst(ibin) = 0.0\n        elseif(jhyst_leg(ibin) .eq. jhyst_up)then\n          water_a_up(ibin)   = aerosol_water_up(ibin)\t! at 60% rh\n          water_a_hyst(ibin) = water_a_up(ibin)\n        endif\n\n        call calc_dry_n_wet_aerosol_props(ibin)\t\t! compute final mass and density\n600   continue\n\n      return\n      end subroutine mosaic_dynamic_solver\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! intializes all the mosaic variables to zero or their default values.\n!\n! author: rahul a. zaveri\n! update: jun 2003\n!-----------------------------------------------------------------------\n      subroutine initialize_mosaic_variables\n!     implicit none\n!     include 'mosaic.h'\n! local variables\n      integer iaer, ibin, iv, ja, jc, je\n\n\n\n\n      do iv = 1, ngas_ioa\n          gas(iv)           = 0.0\n      enddo\n\n! initialize to zero\n      do ibin = 1, nbin_a\n\n        num_a(ibin)          = 0.0\n        mass_dry_a(ibin)     = 0.0\n        mass_soluble_a(ibin) = 0.0\n\n        do iaer = 1, naer\n          aer(iaer,jtotal,ibin)  = 0.0\n          aer(iaer,jsolid,ibin)  = 0.0\n          aer(iaer,jliquid,ibin) = 0.0\n        enddo\n\n        do je = 1, nelectrolyte\n          electrolyte(je,jtotal,ibin)  = 0.0\n          electrolyte(je,jsolid,ibin)  = 0.0\n          electrolyte(je,jliquid,ibin) = 0.0\n          epercent(je,jtotal,ibin)     = 0.0\t! raz update 11/13/2008\n          epercent(je,jsolid,ibin)     = 0.0\t! raz update 11/13/2008\n          epercent(je,jliquid,ibin)    = 0.0\t! raz update 11/13/2008\n          activity(je,ibin)            = 0.0\n          gam(je,ibin)                 = 0.0\n        enddo\n\n          gam_ratio(ibin)   = 0.0\n\n        do iv = 1, ngas_ioa\n          flux_s(iv,ibin)   = 0.0\n          flux_l(iv,ibin)   = 0.0\n          kg(iv,ibin)       = 0.0\n!          fraceq(iv,ibin)   =0.0\n          phi_volatile_s(iv,ibin) = 0.0\n          phi_volatile_l(iv,ibin) = 0.0\n          df_gas_s(iv,ibin)   = 0.0\n          df_gas_l(iv,ibin)   = 0.0\n          volatile_s(iv,ibin) = 0.0\n        enddo\n\n\n        jaerosolstate(ibin) = -1\t! initialize to default value\n        jphase(ibin) = 0\n\n        do jc = 1, ncation\n          mc(jc,ibin) = 0.0\n        enddo\n\n        do ja = 1, nanion\n          ma(ja,ibin) = 0.0\n        enddo\n\n      enddo\t! ibin\n\n\n      return\n      end subroutine initialize_mosaic_variables\n\n\n\n\n\n\n      subroutine isize_itype_from_ibin( ibin, isize, itype )\n!\n! inside of mosaic, the '2d' (isize,itype) indexing is replaced\n!     by '1d' (ibin) indexing\n! this routine gives (isize,itype) corresponding to (ibin)\n!\n      use module_data_mosaic_asect\n      use module_data_mosaic_other, only:  lunerr\n!     implicit none\n\n! subr arguments\n      integer ibin, isize, itype\n! local variables\n      integer jdum_bin, jdum_size, jdum_type\n      character*80 msg\n\n      isize = -999888777\n      itype = -999888777\n\n      jdum_bin = 0\n      do jdum_type = 1, ntype_aer\n      do jdum_size = 1, nsize_aer(jdum_type)\n          jdum_bin = jdum_bin + 1\n          if (ibin .eq. jdum_bin) then\n              isize = jdum_size\n              itype = jdum_type\n          end if\n      end do\n      end do\n\n      if (isize .le. 0) then\n         isize = 1\n         itype = 1\n      end if\n\n      return\n      end subroutine isize_itype_from_ibin\n\n\n\n\n      subroutine overall_massbal_in\n\n      use module_data_mosaic_asect\n      use module_data_mosaic_other\n\n!     implicit none\n!     include 'mosaic.h'\n      integer ibin\n\n      tot_so4_in = gas(ih2so4_g)\n      tot_no3_in = gas(ihno3_g)\n      tot_cl_in  = gas(ihcl_g)\n      tot_nh4_in = gas(inh3_g)\n      tot_na_in  = 0.0\n      tot_ca_in  = 0.0\n\n\n      do ibin = 1, nbin_a\n        tot_so4_in = tot_so4_in + aer(iso4_a,jtotal,ibin)\n\ttot_no3_in = tot_no3_in + aer(ino3_a,jtotal,ibin)\n        tot_cl_in  = tot_cl_in  + aer(icl_a, jtotal,ibin)\n        tot_nh4_in = tot_nh4_in + aer(inh4_a,jtotal,ibin)\n        tot_na_in  = tot_na_in  + aer(ina_a,jtotal,ibin)\n        tot_ca_in  = tot_ca_in  + aer(ica_a,jtotal,ibin)\n      enddo\n\n\n        total_species(inh3_g) = tot_nh4_in\n        total_species(ihno3_g)= tot_no3_in\n        total_species(ihcl_g) = tot_cl_in\n\n\n      return\n      end subroutine overall_massbal_in\n\n\n\n      subroutine overall_massbal_out(mbin)\n!     implicit none\n!      include 'v33com'\n!      include 'v33com3'\n!      include 'v33com9a'\n!      include 'v33com9b'\n!     include 'mosaic.h'\n\n! subr. agrument\n      integer mbin\n! local variables\n      integer ibin\n\n\n\n        tot_so4_out = gas(ih2so4_g)\n\ttot_no3_out = gas(ihno3_g)\n        tot_cl_out  = gas(ihcl_g)\n        tot_nh4_out = gas(inh3_g)\n        tot_na_out  = 0.0\n        tot_ca_out  = 0.0\n\n\tdo ibin = 1, nbin_a\n          tot_so4_out = tot_so4_out + aer(iso4_a,jtotal,ibin)\n\t  tot_no3_out = tot_no3_out + aer(ino3_a,jtotal,ibin)\n          tot_cl_out  = tot_cl_out  + aer(icl_a,jtotal,ibin)\n          tot_nh4_out = tot_nh4_out + aer(inh4_a,jtotal,ibin)\n          tot_na_out  = tot_na_out  + aer(ina_a,jtotal,ibin)\n          tot_ca_out  = tot_ca_out  + aer(ica_a,jtotal,ibin)\n\tenddo\n\n        diff_so4 = tot_so4_out - tot_so4_in\n\tdiff_no3 = tot_no3_out - tot_no3_in\n        diff_cl  = tot_cl_out  - tot_cl_in\n        diff_nh4 = tot_nh4_out - tot_nh4_in\n        diff_na  = tot_na_out  - tot_na_in\n        diff_ca  = tot_ca_out  - tot_ca_in\n\n\n        reldiff_so4 = 0.0\n\tif(tot_so4_in .gt. 1.e-25 .or. tot_so4_out .gt. 1.e-25)then\n\t  reldiff_so4 = diff_so4/max(tot_so4_in, tot_so4_out)\n\tendif\n\n        reldiff_no3 = 0.0\n\tif(tot_no3_in .gt. 1.e-25 .or. tot_no3_out .gt. 1.e-25)then\n\t  reldiff_no3 = diff_no3/max(tot_no3_in, tot_no3_out)\n\tendif\n\n        reldiff_cl = 0.0\n\tif(tot_cl_in .gt. 1.e-25 .or. tot_cl_out .gt. 1.e-25)then\n\t  reldiff_cl = diff_cl/max(tot_cl_in, tot_cl_out)\n\tendif\n\n        reldiff_nh4 = 0.0\n\tif(tot_nh4_in .gt. 1.e-25 .or. tot_nh4_out .gt. 1.e-25)then\n\t  reldiff_nh4 = diff_nh4/max(tot_nh4_in, tot_nh4_out)\n\tendif\n\n        reldiff_na = 0.0\n\tif(tot_na_in .gt. 1.e-25 .or. tot_na_out .gt. 1.e-25)then\n\t  reldiff_na = diff_na/max(tot_na_in, tot_na_out)\n\tendif\n\n        reldiff_ca = 0.0\n\tif(tot_ca_in .gt. 1.e-25 .or. tot_ca_out .gt. 1.e-25)then\n\t  reldiff_ca = diff_ca/max(tot_ca_in, tot_ca_out)\n\tendif\n\n\n\n      if(  abs(reldiff_so4) .gt. 1.e-4 .or.   &\n           abs(reldiff_no3) .gt. 1.e-4 .or.   &\n           abs(reldiff_cl)  .gt. 1.e-4 .or.   &\n           abs(reldiff_nh4) .gt. 1.e-4 .or.   &\n           abs(reldiff_na)  .gt. 1.e-4 .or.   &\n           abs(reldiff_ca)  .gt. 1.e-4)then\n\n\n        if (iprint_mosaic_diag1 .gt. 0) then\n          if (iprint_input .eq. myes) then\n            write(67,*)'*** mbin = ', mbin, '  isteps = ', isteps_ASTEM\n            write(67,*)'reldiff_so4 = ', reldiff_so4\n            write(67,*)'reldiff_no3 = ', reldiff_no3\n            write(67,*)'reldiff_cl  = ', reldiff_cl\n            write(67,*)'reldiff_nh4 = ', reldiff_nh4\n            write(67,*)'reldiff_na  = ', reldiff_na\n            write(67,*)'reldiff_ca  = ', reldiff_ca\n            call print_input\n            iprint_input = mno\n          endif\n        endif\n\n      endif\n\n\n      return\n      end subroutine overall_massbal_out\n\n\n\n\n\n\n\n      subroutine print_input\n\n      use module_data_mosaic_asect\n      use module_data_mosaic_other\n\n!     implicit none\n!     include 'v33com'\n!     include 'v33com3'\n!     include 'v33com9a'\n!     include 'v33com9b'\n!     include 'mosaic.h'\n! subr arguments\n      integer k, m\n! local variables\n      integer ibin, iphase, isize, itype\n      integer ipasstmp, luntmp\n\n\n! check for print_input allowed and not already done\n        if (iprint_mosaic_input_ok .le. 0) return\n        if (iprint_input .ne. myes) return\n        iprint_input = mno\n\n        k = kclm_aer\n        m = mclm_aer\n\n\n        tot_so4_out = gas(ih2so4_g)\n        tot_no3_out = gas(ihno3_g)\n        tot_cl_out  = gas(ihcl_g)\n        tot_nh4_out = gas(inh3_g)\n        tot_na_out  = 0.0\n        tot_ca_out  = 0.0\n\n\tdo ibin = 1, nbin_a\n          tot_so4_out = tot_so4_out + aer(iso4_a,jtotal,ibin)\n          tot_no3_out = tot_no3_out + aer(ino3_a,jtotal,ibin)\n          tot_cl_out  = tot_cl_out  + aer(icl_a,jtotal,ibin)\n          tot_nh4_out = tot_nh4_out + aer(inh4_a,jtotal,ibin)\n          tot_na_out  = tot_na_out  + aer(ina_a,jtotal,ibin)\n          tot_ca_out  = tot_ca_out  + aer(ica_a,jtotal,ibin)\n\tenddo\n\n        diff_so4 = tot_so4_out - tot_so4_in\n\tdiff_no3 = tot_no3_out - tot_no3_in\n        diff_cl  = tot_cl_out  - tot_cl_in\n        diff_nh4 = tot_nh4_out - tot_nh4_in\n        diff_na  = tot_na_out  - tot_na_in\n        diff_ca  = tot_ca_out  - tot_ca_in\n\n\n        reldiff_so4 = 0.0\n\tif(tot_so4_in .gt. 1.e-25 .or. tot_so4_out .gt. 1.e-25)then\n\t  reldiff_so4 = diff_so4/max(tot_so4_in, tot_so4_out)\n\tendif\n\n        reldiff_no3 = 0.0\n\tif(tot_no3_in .gt. 1.e-25 .or. tot_no3_out .gt. 1.e-25)then\n\t  reldiff_no3 = diff_no3/max(tot_no3_in, tot_no3_out)\n\tendif\n\n        reldiff_cl = 0.0\n\tif(tot_cl_in .gt. 1.e-25 .or. tot_cl_out .gt. 1.e-25)then\n\t  reldiff_cl = diff_cl/max(tot_cl_in, tot_cl_out)\n\tendif\n\n        reldiff_nh4 = 0.0\n\tif(tot_nh4_in .gt. 1.e-25 .or. tot_nh4_out .gt. 1.e-25)then\n\t  reldiff_nh4 = diff_nh4/max(tot_nh4_in, tot_nh4_out)\n\tendif\n\n        reldiff_na = 0.0\n\tif(tot_na_in .gt. 1.e-25 .or. tot_na_out .gt. 1.e-25)then\n\t  reldiff_na = diff_na/max(tot_na_in, tot_na_out)\n\tendif\n\n        reldiff_ca = 0.0\n\tif(tot_ca_in .gt. 1.e-25 .or. tot_ca_out .gt. 1.e-25)then\n\t  reldiff_ca = diff_ca/max(tot_ca_in, tot_ca_out)\n\tendif\n\n\n        do 2900 ipasstmp = 2, 2\n\n        if (ipasstmp .eq. 1) then\n           luntmp = 6     ! write to standard output\n        else\n           luntmp = 67    ! write to fort.67\n!           goto 2900      ! skip this\n        endif\n\n! write to monitor screen\n          write(luntmp,*)'+++++++++++++++++++++++++++++++++++++++++'\n          write(luntmp,*)'Check', iprint_mosaic_input_ok, iprint_input, &\n                                  ncorecnt_aer\n          write(luntmp,*)'relative so4 mass bal = ', reldiff_so4\n\t  write(luntmp,*)'relative no3 mass bal = ', reldiff_no3\n          write(luntmp,*)'relative cl  mass bal = ', reldiff_cl\n          write(luntmp,*)'relative nh4 mass bal = ', reldiff_nh4\n          write(luntmp,*)'relative na  mass bal = ', reldiff_na\n          write(luntmp,*)'relative ca  mass bal = ', reldiff_ca\n          write(luntmp,*)'inputs:'\n          write(luntmp,*)'t (k), p (atm), rh (%), cair (mol/cc) = '\n          write(luntmp,44) t_k, p_atm, rh_pc, cairclm(k)\n\t  write(luntmp,*)'gas h2so4, hno3, hcl, nh3 (mol/mol)'\n          write(luntmp,*)gas(inh3_g),gas(ihno3_g),&\n                         aer(iso4_a,jtotal,1),&\n                         aer(inh4_a,jtotal,1),aer(ino3_a,jtotal,1)\n\n          write(luntmp,*)'+++++++++++++++++++++++++++++++++++++++++'\n\n2900    continue\n\n\n44      format(14e20.10)\n\n!c      stop\n\n      return\n      end subroutine print_input\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! checks if aerosol mass is too low to be of any significance\n! and determine jaerosolstate\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine check_aerosol_mass(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iaer\n      real(kind=8) drymass, aer_H\n\n      mass_dry_a(ibin) = 0.0\n\n      aer_H = (2.*aer(iso4_a,jtotal,ibin) +  &\n                  aer(ino3_a,jtotal,ibin) +  &\n                  aer(icl_a,jtotal,ibin)  +  &\n                  aer(imsa_a,jtotal,ibin) +  &\n               2.*aer(ico3_a,jtotal,ibin))-  &\n              (2.*aer(ica_a,jtotal,ibin)  +  &\n                  aer(ina_a,jtotal,ibin)  +  &\n                  aer(inh4_a,jtotal,ibin))\n\n\n      do iaer = 1, naer\n        mass_dry_a(ibin) = mass_dry_a(ibin) +   &\n                           aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)\t! ng/m^3(air)\n      enddo\n      mass_dry_a(ibin) = mass_dry_a(ibin) + aer_H\n\n      drymass = mass_dry_a(ibin)\t\t\t! ng/m^3(air)\n      mass_dry_a(ibin) = mass_dry_a(ibin)*1.e-15\t! g/cc(air)\n\n      if(drymass .lt. mass_cutoff)then\t\t\t! bin mass is too small\n        jaerosolstate(ibin) = no_aerosol\n        jphase(ibin) = 0\n        if(drymass .eq. 0.)num_a(ibin) = 0.0\n      endif\n\n      return\n      end subroutine check_aerosol_mass\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! checks and conforms number according to the mass and bin size range\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine conform_aerosol_number(ibin)\n\n      use module_data_mosaic_asect\n\n!     implicit none\n!     include 'v33com'\n!     include 'v33com3'\n!     include 'v33com9a'\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer je, l, iaer, isize, itype\n      real(kind=8) num_at_dlo, num_at_dhi, numold\n      real(kind=8) aer_H\n\n      vol_dry_a(ibin)  = 0.0\t\t! initialize to 0.0\n\n      if(jaerosolstate(ibin) .eq. no_aerosol) return\n\n      aer_H = (2.*aer(iso4_a,jtotal,ibin) +  &\n                  aer(ino3_a,jtotal,ibin) +  &\n                  aer(icl_a,jtotal,ibin)  +  &\n                  aer(imsa_a,jtotal,ibin) +  &\n               2.*aer(ico3_a,jtotal,ibin))-  &\n              (2.*aer(ica_a,jtotal,ibin)  +  &\n                  aer(ina_a,jtotal,ibin)  +  &\n                  aer(inh4_a,jtotal,ibin))\n\n      do iaer = 1, naer\n        vol_dry_a(ibin) = vol_dry_a(ibin) +   &\n        aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)/dens_aer_mac(iaer)  ! ng/m^3(air)\n      enddo\n      vol_dry_a(ibin) = vol_dry_a(ibin) + aer_H\n\n      vol_dry_a(ibin) = vol_dry_a(ibin)*1.e-15\t! cc(aer)/cc(air)\n\n! conform number\n      call isize_itype_from_ibin( ibin, isize, itype )\n      !Luo need update aerosol size\n      volumlo_sect(isize,itype)=4.*3.1415926/3.*(aersize*aersize*aersize)*1.e6\n      volumhi_sect(isize,itype)=4.*3.1415926/3.*(aersize*aersize*aersize)*1.e6\n\n      num_at_dlo = vol_dry_a(ibin)/volumlo_sect(isize,itype)\n      num_at_dhi = vol_dry_a(ibin)/volumhi_sect(isize,itype)\n\n      numold = num_a(ibin)\n      num_a(ibin) = min(num_a(ibin), num_at_dlo) ! #/cc(air)\n      num_a(ibin) = max(num_a(ibin), num_at_dhi) ! #/cc(air)\n\n!     if (numold .ne. num_a(ibin)) then\n!       write(*,*) 'conform number - i, vol, mass, numold/new', ibin,\n!     &       vol_dry_a(ibin), mass_dry_temp, numold, num_a(ibin)\n!       write(*,*) 'conform i,j,k', iclm_aer, jclm_aer, kclm_aer\n!       if (nsubareas .gt. 0) then\n!       write(*,'(a,1pe14.4)') (name(l), rsub(l,kclm_aer,1), l=1,ltot2)\n!       else\n!       write(*,'(a,1pe14.4)') (name(l), rclm(kclm_aer,l), l=1,ltot2)\n!       end if\n!      stop\n!      end if\n\n      return\n      end subroutine conform_aerosol_number\n\n\n\n\n\n!***********************************************************************\n! determines phase state of an aerosol bin. includes kelvin effect.\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine aerosol_phase_state(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer js, je, iaer, iv, iter_kelvin\n      real(kind=8) ah2o_a_new, rel_err\n!     real(kind=8) aerosol_water_up, bin_molality\t\t! mosaic func\n      real(kind=8) kelvin_toler, term\n      real(kind=8) aer_H\n\n\n      ah2o = rh_pc*0.01\n      ah2o_a(ibin) = ah2o\n      kelvin(ibin) = 1.0\n      do iv = 1, ngas_volatile+ngas_het\n        kel(iv,ibin) = 1.0\n      enddo\n\n      if(rh_pc .le. 99)then\n        kelvin_toler = 1.e-2\n      else\n        kelvin_toler = 1.e-6\n      endif\n\n! calculate dry mass and dry volume of a bin\n      mass_dry_a(ibin) = 0.0\t\t! initialize to 0.0\n      vol_dry_a(ibin)  = 0.0\t\t! initialize to 0.0\n\n      aer_H = (2.*aer(iso4_a,jtotal,ibin) +  &\n                  aer(ino3_a,jtotal,ibin) +  &\n                  aer(icl_a,jtotal,ibin)  +  &\n                  aer(imsa_a,jtotal,ibin) +  &\n               2.*aer(ico3_a,jtotal,ibin))-  &\n              (2.*aer(ica_a,jtotal,ibin)  +  &\n                  aer(ina_a,jtotal,ibin)  +  &\n                  aer(inh4_a,jtotal,ibin))\n\n      do iaer = 1, naer\n        mass_dry_a(ibin) = mass_dry_a(ibin) +   &\n                           aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)\t! ng/m^3(air)\n        vol_dry_a(ibin)  = vol_dry_a(ibin) +   &\n        aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)/dens_aer_mac(iaer)  \t! ncc/m^3(air)\n      enddo\n      mass_dry_a(ibin) = mass_dry_a(ibin) + aer_H\n      vol_dry_a(ibin) = vol_dry_a(ibin) + aer_H\n\n      mass_dry_a(ibin) = mass_dry_a(ibin)*1.e-15\t\t\t! g/cc(air)\n      vol_dry_a(ibin)  = vol_dry_a(ibin)*1.e-15\t\t\t\t! cc(aer)/cc(air) or m^3/m^3(air)\n\n! wet mass and wet volume\n      mass_wet_a(ibin) = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t\t! g/cc(air)\n      vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t\t! cc(aer)/cc(air) or m^3/m^3(air)\n\n\n      water_a_up(ibin) = aerosol_water_up(ibin)\t! for hysteresis curve determination\n\n      iter_kelvin = 0\n\n10    iter_kelvin = iter_kelvin + 1\n      do je = 1, nelectrolyte\n        molality0(je) = bin_molality(je,ibin)\t! compute ah2o dependent binary molalities\n      enddo\n\n      call mesa(ibin)\n      if(jaerosolstate(ibin) .eq. all_solid)then\n        return\n      endif\n      if (istat_mosaic_fe1 .lt. 0) return\n\n! new wet mass and wet volume\n      mass_wet_a(ibin) = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t\t! g/cc(air)\n      vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t\t! cc(aer)/cc(air) or m^3/m^3(air)\n\n      call calculate_kelvin(ibin)\n\n      ah2o_a_new = rh_pc*0.01/kelvin(ibin)\n\n      rel_err = abs( (ah2o_a_new - ah2o_a(ibin))/ah2o_a(ibin))\n\n      if(rel_err .gt. kelvin_toler .and. iter_kelvin.le.10)then\n        ah2o_a(ibin) = ah2o_a_new\n        goto 10\n      endif\n\n      if(jaerosolstate(ibin) .eq. all_liquid)jhyst_leg(ibin) = jhyst_up\n\n! now compute kelvin effect terms for condensing species (nh3, hno3, and hcl)\n      do iv = 1,  ngas_volatile+ngas_het\n        term = 4.*sigma_soln(ibin)*partial_molar_vol(iv)/  &\n                       (8.3144e7*T_K*DpmV(ibin))\n        kel(iv,ibin) = 1. + term*(1. + 0.5*term*(1. + term/3.))\n      enddo\n\n\n      return\n      end subroutine aerosol_phase_state\n\n\n\n\n\n\n!***********************************************************************\n! computes kelvin effect term (kelvin => 1.0)\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine calculate_kelvin(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) term\n\n\n\n      volume_a(ibin) = vol_wet_a(ibin) \t\t\t\t\t! [cc/cc(air)]\n      dpmv(ibin)=(6.*volume_a(ibin)/(num_a(ibin)*3.1415926))**(1./3.)\t! [cm]\n      sigma_soln(ibin) = sigma_water + 49.0*(1. - ah2o_a(ibin)) \t! [dyn/cm]\n      term = 72.*sigma_soln(ibin)/(8.3144e7*t_k*dpmv(ibin))\t\t! [-]\n!      kelvin(ibin) = exp(term)\n      kelvin(ibin) = 1. + term*(1. + 0.5*term*(1. + term/3.))\n\n\n      return\n      end subroutine calculate_kelvin\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! mesa: multicomponent equilibrium solver for aerosols.\n! computes equilibrum solid and liquid phases by integrating\n! pseudo-transient dissolution and precipitation reactions\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine mesa(ibin)\t! touch\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n\n! local variables\n      integer idissolved, j_index, jdum, js, je\t\t! raz update 11/13/2008\n      real(kind=8) crh, solids, sum_soluble, sum_insoluble, xt\n!     real(kind=8) aerosol_water\t\t\t\t! mosaic func\n!     real(kind=8) drh_mutual\t\t\t\t\t! mosaic func\n      real(kind=8) h_ion, sum_dum\t\t\t\t! raz update 11/13/2008\n\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do je = 1, nelectrolyte\n        sum_dum = sum_dum + electrolyte(je,jtotal,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      do je = 1, nelectrolyte\n        epercent(je,jtotal,ibin) = 100.*electrolyte(je,jtotal,ibin)/sum_dum\n      enddo\n\n\n      call calculate_xt(ibin,jtotal,xt)\n\n      crh = 0.35  ! raz-30apr07\n\n! step 1: check if ah2o is below crh (crystallization or efflorescence point)\n      if( (ah2o_a(ibin) .lt. crh)   .and. &\n          (xt.gt.1.0 .or. xt.lt.0.) .and. &\n          (epercent(jcano3,jtotal,ibin) .le. ptol_mol_astem) .and. &\n          (epercent(jcacl2,jtotal,ibin) .le. ptol_mol_astem) )then     ! raz-30apr07\n        jaerosolstate(ibin) = all_solid\n        jphase(ibin)    = jsolid\n        jhyst_leg(ibin) = jhyst_lo\n        call adjust_solid_aerosol(ibin)\n        return\n      endif\n\n\n! step 2: check for supersaturation/metastable state\n      if(water_a_hyst(ibin) .gt. 0.5*water_a_up(ibin))then\n\n        call do_full_deliquescence(ibin)\n\n        sum_soluble = 0.0\n        do js = 1, nsoluble\n          sum_soluble = sum_soluble + electrolyte(js,jtotal,ibin)\n        enddo\n\n        solids = electrolyte(jcaso4,jtotal,ibin) +   &\n                 electrolyte(jcaco3,jtotal,ibin) +   &\n                 aer(ioin_a ,jtotal,ibin)\n\n\n        if(sum_soluble .lt. 1.e-15 .and. solids .gt. 0.0)then\n\n          jaerosolstate(ibin) = all_solid ! no soluble material present\n          jphase(ibin) = jsolid\n          call adjust_solid_aerosol(ibin)\n\n! new wet mass and wet volume\n          mass_wet_a(ibin) = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t! g/cc(air)\n          vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t! cc(aer)/cc(air) or m^3/m^3(air)\n          growth_factor(ibin) = mass_wet_a(ibin)/mass_dry_a(ibin)\t! mass growth factor\n\n          return\n\n        elseif(sum_soluble .gt. 0.0 .and. solids .eq. 0.0)then\n\n          jaerosolstate(ibin) = all_liquid\n          jhyst_leg(ibin) = jhyst_up\n          jphase(ibin) = jliquid\n          water_a(ibin) = aerosol_water(jtotal,ibin)\n\n          if(water_a(ibin) .lt. 0.0)then\n            jaerosolstate(ibin) = all_solid ! no soluble material present\n            jphase(ibin)    = jsolid\n            jhyst_leg(ibin) = jhyst_lo\n            call adjust_solid_aerosol(ibin)\n          else\n            call adjust_liquid_aerosol(ibin)\n            call compute_activities(ibin)\n          endif\n\n! new wet mass and wet volume\n          mass_wet_a(ibin) = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t! g/cc(air)\n          vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t! cc(aer)/cc(air) or m^3/m^3(air)\n          growth_factor(ibin) = mass_wet_a(ibin)/mass_dry_a(ibin)\t! mass growth factor\n\n          return\n\n        endif\n\n      endif\n\n\n\n\n! step 3: diagnose mdrh\n      if(xt .lt. 1. .and. xt .gt. 0. )goto 10\t! excess sulfate domain - no mdrh exists\n\n      jdum = 0\n      do js = 1, nsalt\n        jsalt_present(js) = 0\t\t\t! default value - salt absent\n\n        if(epercent(js,jtotal,ibin) .gt. ptol_mol_astem)then\n          jsalt_present(js) = 1\t\t\t! salt present\n          jdum = jdum + jsalt_index(js)\n        endif\n      enddo\n\n      if(jdum .eq. 0)then\n        jaerosolstate(ibin) = all_solid ! no significant soluble material present\n        jphase(ibin) = jsolid\n        call adjust_solid_aerosol(ibin)\n        return\n      endif\n\n      if(xt .ge. 2.0 .or. xt .lt. 0.0)then\n        j_index = jsulf_poor(jdum)\n      else\n        j_index = jsulf_rich(jdum)\n      endif\n\n      mdrh(ibin) = mdrh_t(j_index)\n\n      if(ah2o_a(ibin)*100. .lt. mdrh(ibin)) then\n        jaerosolstate(ibin) = all_solid\n        jphase(ibin) = jsolid\n        jhyst_leg(ibin) = jhyst_lo\n        call adjust_solid_aerosol(ibin)\n        return\n      endif\n\n\n! step 4: none of the above means it must be sub-saturated or mixed-phase\n10    call do_full_deliquescence(ibin)\n      call mesa_ptc(ibin)\t! determines jaerosolstate(ibin)\n      if (istat_mosaic_fe1 .lt. 0) return\n\n\n\n      return\n      end subroutine mesa\n\n\n\n\n\n\n\n\n!***********************************************************************\n! this subroutine completely deliquesces an aerosol and partitions\n! all the soluble electrolytes into the liquid phase and insoluble\n! ones into the solid phase. it also calculates the corresponding\n! aer(js,jliquid,ibin) and aer(js,jsolid,ibin) generic species\n! concentrations\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine do_full_deliquescence(ibin)\t! touch\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer js\n\n\n\n\n! partition all electrolytes into liquid phase\n      do js = 1, nelectrolyte\n       electrolyte(js,jsolid,ibin)  = 0.0\n       electrolyte(js,jliquid,ibin) = electrolyte(js,jtotal,ibin)\n      enddo\n!\n! except these electrolytes, which always remain in the solid phase\n      electrolyte(jcaco3,jsolid,ibin) = electrolyte(jcaco3,jtotal,ibin)\n      electrolyte(jcaso4,jsolid,ibin) = electrolyte(jcaso4,jtotal,ibin)\n      electrolyte(jcaco3,jliquid,ibin)= 0.0\n      electrolyte(jcaso4,jliquid,ibin)= 0.0\n\n\n! partition all the generic aer species into solid and liquid phases\n! solid phase\n      aer(iso4_a,jsolid,ibin) = electrolyte(jcaso4,jsolid,ibin)\n      aer(ino3_a,jsolid,ibin) = 0.0\n      aer(icl_a, jsolid,ibin) = 0.0\n      aer(inh4_a,jsolid,ibin) = 0.0\n      aer(ioc_a, jsolid,ibin) = aer(ioc_a,jtotal,ibin)\n      aer(imsa_a,jsolid,ibin) = 0.0\n      aer(ico3_a,jsolid,ibin) = aer(ico3_a,jtotal,ibin)\n      aer(ina_a, jsolid,ibin) = 0.0\n      aer(ica_a, jsolid,ibin) = electrolyte(jcaco3,jsolid,ibin) +   &\n                                electrolyte(jcaso4,jsolid,ibin)\n      aer(ibc_a, jsolid,ibin) = aer(ibc_a,jtotal,ibin)\n      aer(ioin_a,jsolid,ibin) = aer(ioin_a,jtotal,ibin)\n      aer(ipcg1_b_c_a,jsolid,ibin)= aer(ipcg1_b_c_a,jtotal,ibin)\n      aer(ipcg2_b_c_a,jsolid,ibin)= aer(ipcg2_b_c_a,jtotal,ibin)\n      aer(ipcg3_b_c_a,jsolid,ibin)= aer(ipcg3_b_c_a,jtotal,ibin)\n      aer(ipcg4_b_c_a,jsolid,ibin)= aer(ipcg4_b_c_a,jtotal,ibin)\n      aer(ipcg5_b_c_a,jsolid,ibin)= aer(ipcg5_b_c_a,jtotal,ibin)\n      aer(ipcg6_b_c_a,jsolid,ibin)= aer(ipcg6_b_c_a,jtotal,ibin)\n      aer(ipcg7_b_c_a,jsolid,ibin)= aer(ipcg7_b_c_a,jtotal,ibin)\n      aer(ipcg8_b_c_a,jsolid,ibin)= aer(ipcg8_b_c_a,jtotal,ibin)\n      aer(ipcg9_b_c_a,jsolid,ibin)= aer(ipcg9_b_c_a,jtotal,ibin)\n      aer(ipcg1_b_o_a,jsolid,ibin)= aer(ipcg1_b_o_a,jtotal,ibin)\n      aer(ipcg2_b_o_a,jsolid,ibin)= aer(ipcg2_b_o_a,jtotal,ibin)\n      aer(ipcg3_b_o_a,jsolid,ibin)= aer(ipcg3_b_o_a,jtotal,ibin)\n      aer(ipcg4_b_o_a,jsolid,ibin)= aer(ipcg4_b_o_a,jtotal,ibin)\n      aer(ipcg5_b_o_a,jsolid,ibin)= aer(ipcg5_b_o_a,jtotal,ibin)\n      aer(ipcg6_b_o_a,jsolid,ibin)= aer(ipcg6_b_o_a,jtotal,ibin)\n      aer(ipcg7_b_o_a,jsolid,ibin)= aer(ipcg7_b_o_a,jtotal,ibin)\n      aer(ipcg8_b_o_a,jsolid,ibin)= aer(ipcg8_b_o_a,jtotal,ibin)\n      aer(ipcg9_b_o_a,jsolid,ibin)= aer(ipcg9_b_o_a,jtotal,ibin)\n      aer(iopcg1_b_c_a,jsolid,ibin)= aer(iopcg1_b_c_a,jtotal,ibin)\n      aer(iopcg2_b_c_a,jsolid,ibin)= aer(iopcg2_b_c_a,jtotal,ibin)\n      aer(iopcg3_b_c_a,jsolid,ibin)= aer(iopcg3_b_c_a,jtotal,ibin)\n      aer(iopcg4_b_c_a,jsolid,ibin)= aer(iopcg4_b_c_a,jtotal,ibin)\n      aer(iopcg5_b_c_a,jsolid,ibin)= aer(iopcg5_b_c_a,jtotal,ibin)\n      aer(iopcg6_b_c_a,jsolid,ibin)= aer(iopcg6_b_c_a,jtotal,ibin)\n      aer(iopcg7_b_c_a,jsolid,ibin)= aer(iopcg7_b_c_a,jtotal,ibin)\n      aer(iopcg8_b_c_a,jsolid,ibin)= aer(iopcg8_b_c_a,jtotal,ibin)\n      aer(iopcg1_b_o_a,jsolid,ibin)= aer(iopcg1_b_o_a,jtotal,ibin)\n      aer(iopcg2_b_o_a,jsolid,ibin)= aer(iopcg2_b_o_a,jtotal,ibin)\n      aer(iopcg3_b_o_a,jsolid,ibin)= aer(iopcg3_b_o_a,jtotal,ibin)\n      aer(iopcg4_b_o_a,jsolid,ibin)= aer(iopcg4_b_o_a,jtotal,ibin)\n      aer(iopcg5_b_o_a,jsolid,ibin)= aer(iopcg5_b_o_a,jtotal,ibin)\n      aer(iopcg6_b_o_a,jsolid,ibin)= aer(iopcg6_b_o_a,jtotal,ibin)\n      aer(iopcg7_b_o_a,jsolid,ibin)= aer(iopcg7_b_o_a,jtotal,ibin)\n      aer(iopcg8_b_o_a,jsolid,ibin)= aer(iopcg8_b_o_a,jtotal,ibin)\n      aer(ipcg1_f_c_a,jsolid,ibin)= aer(ipcg1_f_c_a,jtotal,ibin)\n      aer(ipcg2_f_c_a,jsolid,ibin)= aer(ipcg2_f_c_a,jtotal,ibin)\n      aer(ipcg3_f_c_a,jsolid,ibin)= aer(ipcg3_f_c_a,jtotal,ibin)\n      aer(ipcg4_f_c_a,jsolid,ibin)= aer(ipcg4_f_c_a,jtotal,ibin)\n      aer(ipcg5_f_c_a,jsolid,ibin)= aer(ipcg5_f_c_a,jtotal,ibin)\n      aer(ipcg6_f_c_a,jsolid,ibin)= aer(ipcg6_f_c_a,jtotal,ibin)\n      aer(ipcg7_f_c_a,jsolid,ibin)= aer(ipcg7_f_c_a,jtotal,ibin)\n      aer(ipcg8_f_c_a,jsolid,ibin)= aer(ipcg8_f_c_a,jtotal,ibin)\n      aer(ipcg9_f_c_a,jsolid,ibin)= aer(ipcg9_f_c_a,jtotal,ibin)\n      aer(ipcg1_f_o_a,jsolid,ibin)= aer(ipcg1_f_o_a,jtotal,ibin)\n      aer(ipcg2_f_o_a,jsolid,ibin)= aer(ipcg2_f_o_a,jtotal,ibin)\n      aer(ipcg3_f_o_a,jsolid,ibin)= aer(ipcg3_f_o_a,jtotal,ibin)\n      aer(ipcg4_f_o_a,jsolid,ibin)= aer(ipcg4_f_o_a,jtotal,ibin)\n      aer(ipcg5_f_o_a,jsolid,ibin)= aer(ipcg5_f_o_a,jtotal,ibin)\n      aer(ipcg6_f_o_a,jsolid,ibin)= aer(ipcg6_f_o_a,jtotal,ibin)\n      aer(ipcg7_f_o_a,jsolid,ibin)= aer(ipcg7_f_o_a,jtotal,ibin)\n      aer(ipcg8_f_o_a,jsolid,ibin)= aer(ipcg8_f_o_a,jtotal,ibin)\n      aer(ipcg9_f_o_a,jsolid,ibin)= aer(ipcg9_f_o_a,jtotal,ibin)\n      aer(iopcg1_f_c_a,jsolid,ibin)= aer(iopcg1_f_c_a,jtotal,ibin)\n      aer(iopcg2_f_c_a,jsolid,ibin)= aer(iopcg2_f_c_a,jtotal,ibin)\n      aer(iopcg3_f_c_a,jsolid,ibin)= aer(iopcg3_f_c_a,jtotal,ibin)\n      aer(iopcg4_f_c_a,jsolid,ibin)= aer(iopcg4_f_c_a,jtotal,ibin)\n      aer(iopcg5_f_c_a,jsolid,ibin)= aer(iopcg5_f_c_a,jtotal,ibin)\n      aer(iopcg6_f_c_a,jsolid,ibin)= aer(iopcg6_f_c_a,jtotal,ibin)\n      aer(iopcg7_f_c_a,jsolid,ibin)= aer(iopcg7_f_c_a,jtotal,ibin)\n      aer(iopcg8_f_c_a,jsolid,ibin)= aer(iopcg8_f_c_a,jtotal,ibin)\n      aer(iopcg1_f_o_a,jsolid,ibin)= aer(iopcg1_f_o_a,jtotal,ibin)\n      aer(iopcg2_f_o_a,jsolid,ibin)= aer(iopcg2_f_o_a,jtotal,ibin)\n      aer(iopcg3_f_o_a,jsolid,ibin)= aer(iopcg3_f_o_a,jtotal,ibin)\n      aer(iopcg4_f_o_a,jsolid,ibin)= aer(iopcg4_f_o_a,jtotal,ibin)\n      aer(iopcg5_f_o_a,jsolid,ibin)= aer(iopcg5_f_o_a,jtotal,ibin)\n      aer(iopcg6_f_o_a,jsolid,ibin)= aer(iopcg6_f_o_a,jtotal,ibin)\n      aer(iopcg7_f_o_a,jsolid,ibin)= aer(iopcg7_f_o_a,jtotal,ibin)\n      aer(iopcg8_f_o_a,jsolid,ibin)= aer(iopcg8_f_o_a,jtotal,ibin)\n      aer(ismpa_a,jsolid,ibin)= aer(ismpa_a,jtotal,ibin)\n      aer(ismpbb_a,jsolid,ibin)= aer(ismpbb_a,jtotal,ibin)\n      aer(iglysoa_r1_a,jsolid,ibin)= aer(iglysoa_r1_a,jtotal,ibin)\n      aer(iglysoa_r2_a,jsolid,ibin)= aer(iglysoa_r2_a,jtotal,ibin)\n      aer(iglysoa_sfc_a,jsolid,ibin)= aer(iglysoa_sfc_a,jtotal,ibin)\n      aer(iglysoa_nh4_a,jsolid,ibin)= aer(iglysoa_nh4_a,jtotal,ibin)\n      aer(iglysoa_oh_a,jsolid,ibin)= aer(iglysoa_oh_a,jtotal,ibin)\n      aer(iant1_c_a,jsolid,ibin)= aer(iant1_c_a,jtotal,ibin)\n      aer(iant2_c_a,jsolid,ibin)= aer(iant2_c_a,jtotal,ibin)\n      aer(iant3_c_a,jsolid,ibin)= aer(iant3_c_a,jtotal,ibin)\n      aer(iant4_c_a,jsolid,ibin)= aer(iant4_c_a,jtotal,ibin)\n      aer(iant1_o_a,jsolid,ibin)= aer(iant1_o_a,jtotal,ibin)\n      aer(iant2_o_a,jsolid,ibin)= aer(iant2_o_a,jtotal,ibin)\n      aer(iant3_o_a,jsolid,ibin)= aer(iant3_o_a,jtotal,ibin)\n      aer(iant4_o_a,jsolid,ibin)= aer(iant4_o_a,jtotal,ibin)\n      aer(ibiog1_c_a,jsolid,ibin)= aer(ibiog1_c_a,jtotal,ibin)\n      aer(ibiog2_c_a,jsolid,ibin)= aer(ibiog2_c_a,jtotal,ibin)\n      aer(ibiog3_c_a,jsolid,ibin)= aer(ibiog3_c_a,jtotal,ibin)\n      aer(ibiog4_c_a,jsolid,ibin)= aer(ibiog4_c_a,jtotal,ibin)\n      aer(ibiog1_o_a,jsolid,ibin)= aer(ibiog1_o_a,jtotal,ibin)\n      aer(ibiog2_o_a,jsolid,ibin)= aer(ibiog2_o_a,jtotal,ibin)\n      aer(ibiog3_o_a,jsolid,ibin)= aer(ibiog3_o_a,jtotal,ibin)\n      aer(ibiog4_o_a,jsolid,ibin)= aer(ibiog4_o_a,jtotal,ibin)\n      aer(iasoaX_a,jsolid,ibin)= aer(iasoaX_a,jtotal,ibin)\n      aer(iasoa1_a,jsolid,ibin)= aer(iasoa1_a,jtotal,ibin)\n      aer(iasoa2_a,jsolid,ibin)= aer(iasoa2_a,jtotal,ibin)\n      aer(iasoa3_a,jsolid,ibin)= aer(iasoa3_a,jtotal,ibin)\n      aer(iasoa4_a,jsolid,ibin)= aer(iasoa4_a,jtotal,ibin)\n      aer(ibsoaX_a,jsolid,ibin)= aer(ibsoaX_a,jtotal,ibin)\n      aer(ibsoa1_a,jsolid,ibin)= aer(ibsoa1_a,jtotal,ibin)\n      aer(ibsoa2_a,jsolid,ibin)= aer(ibsoa2_a,jtotal,ibin)\n      aer(ibsoa3_a,jsolid,ibin)= aer(ibsoa3_a,jtotal,ibin)\n      aer(ibsoa4_a,jsolid,ibin)= aer(ibsoa4_a,jtotal,ibin)\n\n! liquid-phase\n      aer(iso4_a,jliquid,ibin) = aer(iso4_a,jtotal,ibin) -   &\n                                 electrolyte(jcaso4,jsolid,ibin)\n      aer(ino3_a,jliquid,ibin) = aer(ino3_a,jtotal,ibin)\n      aer(icl_a, jliquid,ibin) = aer(icl_a,jtotal,ibin)\n      aer(inh4_a,jliquid,ibin) = aer(inh4_a,jtotal,ibin)\n      aer(ioc_a, jliquid,ibin) = 0.0\n      aer(imsa_a,jliquid,ibin) = aer(imsa_a,jtotal,ibin)\n      aer(ico3_a,jliquid,ibin) = 0.0\n      aer(ina_a, jliquid,ibin) = aer(ina_a,jtotal,ibin)\n      aer(ica_a, jliquid,ibin) = electrolyte(jcano3,jtotal,ibin) +   &\n                                 electrolyte(jcacl2,jtotal,ibin)\n      aer(ibc_a, jliquid,ibin) = 0.0\n      aer(ioin_a,jliquid,ibin) = 0.0\n      aer(ipcg1_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg2_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg3_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg4_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg5_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg6_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg7_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg8_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg9_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg1_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg2_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg3_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg4_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg5_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg6_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg7_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg8_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg9_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg1_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg2_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg3_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg4_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg5_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg6_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg7_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg8_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg1_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg2_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg3_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg4_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg5_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg6_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg7_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg8_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg1_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg2_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg3_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg4_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg5_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg6_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg7_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg8_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg9_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg1_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg2_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg3_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg4_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg5_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg6_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg7_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg8_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg9_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg1_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg2_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg3_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg4_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg5_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg6_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg7_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg8_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg1_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg2_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg3_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg4_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg5_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg6_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg7_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg8_f_o_a,jliquid,ibin)= 0.0\n      aer(ismpa_a,jliquid,ibin)= 0.0\n      aer(ismpbb_a,jliquid,ibin)= 0.0\n      aer(iglysoa_r1_a,jliquid,ibin)= 0.0\n      aer(iglysoa_r2_a,jliquid,ibin)= 0.0\n      aer(iglysoa_sfc_a,jliquid,ibin)= 0.0\n      aer(iglysoa_nh4_a,jliquid,ibin)= 0.0\n      aer(iglysoa_oh_a,jliquid,ibin)= 0.0\n      aer(iant1_c_a,jliquid,ibin)= 0.0\n      aer(iant2_c_a,jliquid,ibin)= 0.0\n      aer(iant3_c_a,jliquid,ibin)= 0.0\n      aer(iant4_c_a,jliquid,ibin)= 0.0\n      aer(iant1_o_a,jliquid,ibin)= 0.0\n      aer(iant2_o_a,jliquid,ibin)= 0.0\n      aer(iant3_o_a,jliquid,ibin)= 0.0\n      aer(iant4_o_a,jliquid,ibin)= 0.0\n      aer(ibiog1_c_a,jliquid,ibin)= 0.0\n      aer(ibiog2_c_a,jliquid,ibin)= 0.0\n      aer(ibiog3_c_a,jliquid,ibin)= 0.0\n      aer(ibiog4_c_a,jliquid,ibin)= 0.0\n      aer(ibiog1_o_a,jliquid,ibin)= 0.0\n      aer(ibiog2_o_a,jliquid,ibin)= 0.0\n      aer(ibiog3_o_a,jliquid,ibin)= 0.0\n      aer(ibiog4_o_a,jliquid,ibin)= 0.0\n      aer(iasoaX_a,jliquid,ibin)= 0.0\n      aer(iasoa1_a,jliquid,ibin)= 0.0\n      aer(iasoa2_a,jliquid,ibin)= 0.0\n      aer(iasoa3_a,jliquid,ibin)= 0.0\n      aer(iasoa4_a,jliquid,ibin)= 0.0\n      aer(ibsoaX_a,jliquid,ibin)= 0.0\n      aer(ibsoa1_a,jliquid,ibin)= 0.0\n      aer(ibsoa2_a,jliquid,ibin)= 0.0\n      aer(ibsoa3_a,jliquid,ibin)= 0.0\n      aer(ibsoa4_a,jliquid,ibin)= 0.0\n\n\n\n\n\n      return\n      end subroutine do_full_deliquescence\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! mesa: multicomponent equilibrium solver for aerosol-phase\n! computes equilibrum solid and liquid phases by integrating\n! pseudo-transient dissolution and precipitation reactions\n!\n! author: rahul a. zaveri\n! update: jan 2005\n! reference: zaveri r.a., r.c. easter, and l.k. peters, jgr, 2005b\n!-----------------------------------------------------------------------\n      subroutine mesa_ptc(ibin)\t\t! touch\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iaer, iconverge, iconverge_flux, iconverge_mass,   &\n           idissolved, itdum, js, je, jp\t\t\t! raz update 11/13/2008\n      real(kind=8) tau_p(nsalt), tau_d(nsalt)\n      real(kind=8) hsalt_min\n      real(kind=8) phi_prod, alpha_fac, sum_dum\t\t! raz update 11/13/2008\n      real(kind=8) aer_H\n! function\n!     real(kind=8) aerosol_water\n\n\n\n! initialize\n      itdum = 0\t\t! initialize time\n      hsalt_max = 1.e25\n\n\n\n      do js = 1, nsalt\n        hsalt(js)     = 0.0\n        sat_ratio(js) = 0.0\n        phi_salt(js)  = 0.0\n        flux_sl(js)   = 0.0\n      enddo\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do je = 1, nelectrolyte\n        sum_dum = sum_dum + electrolyte(je,jtotal,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      do je = 1, nelectrolyte\n        epercent(je,jtotal,ibin) = 100.*electrolyte(je,jtotal,ibin)/sum_dum\n      enddo\n\n\n\n      do js = 1, nsalt\n        jsalt_present(js) = 0\t\t\t! default value - salt absent\n        if(epercent(js,jtotal,ibin) .gt. 1.0)then\n          jsalt_present(js) = 1\t\t\t! salt present\n        endif\n      enddo\n\n\n      mass_dry_a(ibin) = 0.0\n\n      aer_H = (2.*aer(iso4_a,jtotal,ibin) +  &\n                  aer(ino3_a,jtotal,ibin) +  &\n                  aer(icl_a,jtotal,ibin)  +  &\n                  aer(imsa_a,jtotal,ibin) +  &\n               2.*aer(ico3_a,jtotal,ibin))-  &\n              (2.*aer(ica_a,jtotal,ibin)  +  &\n                  aer(ina_a,jtotal,ibin)  +  &\n                  aer(inh4_a,jtotal,ibin))\n      aer_H = max(aer_H, 0.0d0)\t\t! raz update 11/13/2008\n\n      do iaer = 1, naer\n       mass_dry_a(ibin) = mass_dry_a(ibin) +  &\n          aer(iaer,jtotal,ibin)*mw_aer_mac(iaer) \t! [ng/m^3(air)]\n        vol_dry_a(ibin)  = vol_dry_a(ibin) +  &\n          aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)/dens_aer_mac(iaer)  \t! ncc/m^3(air)\n      enddo\n      mass_dry_a(ibin) = mass_dry_a(ibin) + aer_H\n      vol_dry_a(ibin) = vol_dry_a(ibin) + aer_H\n\n      mass_dry_a(ibin) = mass_dry_a(ibin)*1.e-15\t\t\t! [g/cc(air)]\n      vol_dry_a(ibin) = vol_dry_a(ibin)*1.e-15\t\t\t\t! [cc(aer)/cc(air)]\n\n      mass_dry_salt(ibin) = 0.0\t\t! soluble salts only\n      do je = 1, nsalt\n        mass_dry_salt(ibin) = mass_dry_salt(ibin) +  &\n              electrolyte(je,jtotal,ibin)*mw_electrolyte(je)*1.e-15\t! g/cc(air)\n      enddo\n\n      nmesa_call = nmesa_call + 1\n\n!----begin pseudo time continuation loop-------------------------------\n\n      do 500 itdum = 1, nmax_mesa\n\n\n! compute new salt fluxes\n      call mesa_flux_salt(ibin)\n      if (istat_mosaic_fe1 .lt. 0) return\n\n\n! check convergence\n      call mesa_convergence_criterion(ibin,      &\n                                      iconverge_mass,   &\n                                      iconverge_flux,   &\n                                      idissolved)\n\n      if(iconverge_mass .eq. myes)then\n        iter_mesa(ibin) = iter_mesa(ibin) + itdum\n        niter_mesa = niter_mesa + itdum\n        niter_mesa_max = max(niter_mesa_max, itdum)\n        jaerosolstate(ibin) = all_solid\n        call adjust_solid_aerosol(ibin)\n        jhyst_leg(ibin) = jhyst_lo\n        growth_factor(ibin) = 1.0\n        return\n      elseif(iconverge_flux .eq. myes)then\n        iter_mesa(ibin) = iter_mesa(ibin)+ itdum\n        niter_mesa = niter_mesa + itdum\n        niter_mesa_max = max(niter_mesa_max, itdum)\n        mass_wet_a(ibin)    = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t! g/cc(air)\n        vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t\t! cc(aer)/cc(air) or m^3/m^3(air)\n        growth_factor(ibin) = mass_wet_a(ibin)/mass_dry_a(ibin)\t\t! mass growth factor\n\n        if(idissolved .eq. myes)then\n          jaerosolstate(ibin) = all_liquid\n!          jhyst_leg(ibin) = jhyst_up  ! do this later (to avoid tripping kelvin iterations)\n        else\n          jaerosolstate(ibin) = mixed\n          jhyst_leg(ibin) = jhyst_lo\n        endif\n\n! calculate epercent(jsolid) composition in mixed-phase aerosol\n        sum_dum = 0.0\n        jp = jsolid\n        do je = 1, nelectrolyte\n          electrolyte(je,jp,ibin) = max(0.D0,electrolyte(je,jp,ibin)) ! remove -ve\n          sum_dum = sum_dum + electrolyte(je,jp,ibin)\n        enddo\n        electrolyte_sum(jp,ibin) = sum_dum\n        if(sum_dum .eq. 0.)sum_dum = 1.0\n        do je = 1, nelectrolyte\n          epercent(je,jp,ibin) = 100.*electrolyte(je,jp,ibin)/sum_dum\n        enddo\n\n        return\n      endif\n\n\n! calculate hsalt(js)\t! time step\n      hsalt_min = 1.e25\n      do js = 1, nsalt\n\n        phi_prod = phi_salt(js) * phi_salt_old(js)\n\n        if(itdum .gt. 1 .and. phi_prod .gt. 0.0)then\n          phi_bar(js) = (abs(phi_salt(js))-abs(phi_salt_old(js)))/   &\n                                    alpha_salt(js)\n        else\n          phi_bar(js) = 0.0\t\t\t! oscillating, or phi_salt and/or phi_salt_old may be zero\n        endif\n\n        if(phi_bar(js) .lt. 0.0)then\t\t! good. phi getting lower. maybe able to take bigger alphas\n          phi_bar(js) = max(phi_bar(js), -10.0D0)\n          alpha_fac = 3.0*exp(phi_bar(js))\n          alpha_salt(js) = min(alpha_fac*abs(phi_salt(js)), 0.9D0)\n        elseif(phi_bar(js) .gt. 0.0)then\t! bad - phi is getting bigger. so be conservative with alpha\n           alpha_salt(js) = min(abs(phi_salt(js)), 0.5D0)\n        else\t\t\t\t\t! very bad - phi is oscillating. be very conservative\n           alpha_salt(js) = min(abs(phi_salt(js))/3.0, 0.5D0)\n        endif\n\n!        alpha_salt(js) = max(alpha_salt(js), 0.01D0)\n\n        phi_salt_old(js) = phi_salt(js)\t\t! update old array\n\n\n        if(flux_sl(js) .gt. 0.)then\n\n          tau_p(js) = eleliquid(js)/flux_sl(js)\t! precipitation time scale\n          if(tau_p(js) .eq. 0.0)then\n            hsalt(js) = 1.e25\n            flux_sl(js) = 0.0\n            phi_salt(js)= 0.0\n          else\n            hsalt(js) = alpha_salt(js)*tau_p(js)\n          endif\n\n        elseif(flux_sl(js) .lt. 0.)then\n\n          tau_p(js) = -eleliquid(js)/flux_sl(js)\t! precipitation time scale\n          tau_d(js) = -electrolyte(js,jsolid,ibin)/flux_sl(js) ! dissolution time scale\n          if(tau_p(js) .eq. 0.0)then\n            hsalt(js) = alpha_salt(js)*tau_d(js)\n          else\n            hsalt(js) = alpha_salt(js)*min(tau_p(js),tau_d(js))\n          endif\n\n        else\n\n          hsalt(js) = 1.e25\n\n        endif\n\n          hsalt_min = min(hsalt(js), hsalt_min)\n\n      enddo\n\n!---------------------------------\n\n! integrate electrolyte(solid)\n      do js = 1, nsalt\n        electrolyte(js,jsolid,ibin) =    &\n                         electrolyte(js,jsolid,ibin)  +   &\n                         hsalt(js) * flux_sl(js)\n      enddo\n\n\n! compute aer(solid) from electrolyte(solid)\n      call electrolytes_to_ions(jsolid,ibin)\n\n\n! compute new electrolyte(liquid) from mass balance\n      do iaer = 1, naer\n        aer(iaer,jliquid,ibin) = aer(iaer,jtotal,ibin) -   &\n                                       aer(iaer,jsolid,ibin)\n      enddo\n\n!---------------------------------\n\n\n\n500   continue\t! end time continuation loop\n!--------------------------------------------------------------------\n      nmesa_fail = nmesa_fail + 1\n      iter_mesa(ibin) = iter_mesa(ibin) + itdum\n      niter_mesa = niter_mesa + itdum\n      jaerosolstate(ibin) = mixed\n      jhyst_leg(ibin) = jhyst_lo\n      mass_wet_a(ibin)    = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t! g/cc(air)\n      vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t\t! cc(aer)/cc(air) or m^3/m^3(air)\n      growth_factor(ibin) = mass_wet_a(ibin)/mass_dry_a(ibin)\t\t! mass growth factor\n\n      return\n      end subroutine mesa_ptc\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of mesa: calculates solid-liquid fluxes of soluble salts\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine mesa_flux_salt(ibin)\t! touch\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer js, je\t\t\t\t\t\t! raz update 11/13/2008\n      real(kind=8) xt, calcium, sum_salt, sum_dum\t! raz update 11/13/2008\n\n\n! compute activities and water content\n      call ions_to_electrolytes(jliquid,ibin,xt)\n      if (istat_mosaic_fe1 .lt. 0) return\n      call compute_activities(ibin)\n      activity(jna3hso4,ibin)   = 0.0\n\n      if(water_a(ibin) .le. 0.0)then\n        do js = 1, nsalt\n         flux_sl(js) = 0.0\n        enddo\n        return\n      endif\n\n\n      call mesa_estimate_eleliquid(ibin,xt)\n\n      calcium = aer(ica_a,jliquid,ibin)\n\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do je = 1, nelectrolyte\n        sum_dum = sum_dum + electrolyte(je,jliquid,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      do je = 1, nelectrolyte\n        epercent(je,jliquid,ibin) = 100.*electrolyte(je,jliquid,ibin)/sum_dum\n      enddo\n\n\n\n! calculate % electrolyte composition in the solid and liquid phases\n      sum_salt = 0.0\n      do js = 1, nsalt\n        sum_salt = sum_salt + electrolyte(js,jsolid,ibin)\n      enddo\n      electrolyte_sum(jsolid,ibin) = sum_salt\n      if(sum_salt .eq. 0.0)sum_salt = 1.0\n      do js = 1, nsalt\n        frac_salt_solid(js) = electrolyte(js,jsolid,ibin)/sum_salt\n        frac_salt_liq(js)   = epercent(js,jliquid,ibin)/100.\n      enddo\n\n\n\n! compute salt fluxes\n      do js = 1, nsalt\t\t! soluble solid salts\n\n! compute new saturation ratio\n        sat_ratio(js) = activity(js,ibin)/keq_sl(js)\n! compute relative driving force\n        phi_salt(js)  = (sat_ratio(js) - 1.0)/max(sat_ratio(js),1.0D0)\n\n! check if too little solid-phase salt is trying to dissolve\n        if(sat_ratio(js)       .lt. 1.00 .and.   &\n           frac_salt_solid(js) .lt. 0.01 .and.   &\n           frac_salt_solid(js) .gt. 0.0)then\n          call mesa_dissolve_small_salt(ibin,js)\n          call mesa_estimate_eleliquid(ibin,xt)\n          sat_ratio(js) = activity(js,ibin)/keq_sl(js)\n        endif\n\n! compute flux\n        flux_sl(js) = sat_ratio(js) - 1.0\n\n! apply heaviside function\n        if( (sat_ratio(js)               .lt. 1.0 .and.   &\n             electrolyte(js,jsolid,ibin) .eq. 0.0) .or.   &\n            (calcium .gt. 0.0 .and. frac_salt_liq(js).lt.0.01).or.   &\n            (calcium .gt. 0.0 .and. jsalt_present(js).eq.0) )then\n          flux_sl(js) = 0.0\n          phi_salt(js)= 0.0\n        endif\n\n      enddo\n\n\n! force cacl2 and cano3 fluxes to zero\n      sat_ratio(jcano3) = 1.0\n      phi_salt(jcano3)  = 0.0\n      flux_sl(jcano3)   = 0.0\n\n      sat_ratio(jcacl2) = 1.0\n      phi_salt(jcacl2)  = 0.0\n      flux_sl(jcacl2)   = 0.0\n\n\n      return\n      end subroutine mesa_flux_salt\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of mesa: calculates liquid electrolytes from ions\n!\n! notes:\n!  - this subroutine is to be used for liquid-phase or total-phase only\n!  - this sub transfers caso4 and caco3 from liquid to solid phase\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine mesa_estimate_eleliquid(ibin,xt)\t! touch\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, jp\n      real(kind=8) xt\n! local variables\n      integer iaer, je, jc, ja, icase\n      real(kind=8) store(naer), sum_dum, sum_naza, sum_nczc, sum_na_nh4,   &\n           f_nh4, f_na, xh, xb, xl, xs, xt_d, xna_d, xnh4_d,   &\n           xdum, dum, cat_net\n      real(kind=8) nc(ncation), na(nanion)\n      real(kind=8) dum_ca, dum_no3, dum_cl, cano3, cacl2\n\n\n\n! remove negative concentrations, if any\n      do iaer =  1, naer\n      aer(iaer,jliquid,ibin) = max(0.0D0, aer(iaer,jliquid,ibin))\n      enddo\n\n\n! calculate sulfate ratio\n      call calculate_xt(ibin,jliquid,xt)\n\n      if(xt .ge. 2.0 .or. xt.lt.0.)then\n       icase = 1\t! near neutral (acidity is caused by hcl and/or hno3)\n      else\n       icase = 2\t! acidic (acidity is caused by excess so4)\n      endif\n\n\n! initialize to zero\n      do je = 1, nelectrolyte\n        eleliquid(je) = 0.0\n      enddo\n!\n!---------------------------------------------------------\n! initialize moles of ions depending on the sulfate domain\n\n      jp = jliquid\n\n      if(icase.eq.1)then ! xt >= 2 : sulfate poor domain\n\n        dum_ca  = aer(ica_a,jp,ibin)\n        dum_no3 = aer(ino3_a,jp,ibin)\n        dum_cl  = aer(icl_a,jp,ibin)\n\n        cano3   = min(dum_ca, 0.5*dum_no3)\n        dum_ca  = max(0.D0, dum_ca - cano3)\n        dum_no3 = max(0.D0, dum_no3 - 2.*cano3)\n\n        cacl2   = min(dum_ca, 0.5*dum_cl)\n        dum_ca  = max(0.D0, dum_ca - cacl2)\n        dum_cl  = max(0.D0, dum_cl - 2.*cacl2)\n\n        na(ja_hso4)= 0.0\n        na(ja_so4) = aer(iso4_a,jp,ibin)\n        na(ja_no3) = aer(ino3_a,jp,ibin)\n        na(ja_cl)  = aer(icl_a, jp,ibin)\n        na(ja_msa) = aer(imsa_a,jp,ibin)\n\n        nc(jc_ca)  = aer(ica_a, jp,ibin)\n        nc(jc_na)  = aer(ina_a, jp,ibin)\n        nc(jc_nh4) = aer(inh4_a,jp,ibin)\n\n        cat_net =     &\n            ( 2.d0*na(ja_so4)+na(ja_no3)+na(ja_cl)+na(ja_msa) ) -  &\n            ( nc(jc_h)+2.d0*nc(jc_ca) +nc(jc_nh4)+nc(jc_na) )\n\n        if(cat_net .lt. 0.0)then\n\n          nc(jc_h) = 0.0\n\n        else  ! cat_net must be 0.0 or positive\n\n          nc(jc_h) = cat_net\n\n        endif\n\n\n! now compute equivalent fractions\n      sum_naza = 0.0\n      do ja = 1, nanion\n        sum_naza = sum_naza + na(ja)*za(ja)\n      enddo\n\n      sum_nczc = 0.0\n      do jc = 1, ncation\n        sum_nczc = sum_nczc + nc(jc)*zc(jc)\n      enddo\n\n      if(sum_naza .eq. 0. .or. sum_nczc .eq. 0.)then\n        if (iprint_mosaic_diag1 .gt. 0) then\n          write(6,*)'subroutine mesa_estimate_eleliquid'\n          write(6,*)'ionic concentrations are zero'\n          write(6,*)'sum_naza = ', sum_naza\n          write(6,*)'sum_nczc = ', sum_nczc\n        endif\n        return\n      endif\n\n      do ja = 1, nanion\n        xeq_a(ja) = na(ja)*za(ja)/sum_naza\n      enddo\n\n      do jc = 1, ncation\n        xeq_c(jc) = nc(jc)*zc(jc)/sum_nczc\n      enddo\n\n      na_ma(ja_so4) = na(ja_so4) *mw_a(ja_so4)\n      na_ma(ja_no3) = na(ja_no3) *mw_a(ja_no3)\n      na_ma(ja_cl)  = na(ja_cl)  *mw_a(ja_cl)\n      na_ma(ja_hso4)= na(ja_hso4)*mw_a(ja_hso4)\n      na_Ma(ja_msa) = na(ja_msa) *MW_a(ja_msa)\n\n      nc_mc(jc_ca)  = nc(jc_ca) *mw_c(jc_ca)\n      nc_mc(jc_na)  = nc(jc_na) *mw_c(jc_na)\n      nc_mc(jc_nh4) = nc(jc_nh4)*mw_c(jc_nh4)\n      nc_mc(jc_h)   = nc(jc_h)  *mw_c(jc_h)\n\n\n! now compute electrolyte moles\n      eleliquid(jna2so4) = (xeq_c(jc_na) *na_ma(ja_so4) +  &\n                            xeq_a(ja_so4)*nc_mc(jc_na))/   &\n                             mw_electrolyte(jna2so4)\n\n      eleliquid(jnahso4) = (xeq_c(jc_na) *na_ma(ja_hso4) +  &\n                            xeq_a(ja_hso4)*nc_mc(jc_na))/   &\n                             mw_electrolyte(jnahso4)\n\n      eleliquid(jnamsa)  = (xeq_c(jc_na) *na_ma(ja_msa) + &\n                            xeq_a(ja_msa)*nc_mc(jc_na))/  &\n                             mw_electrolyte(jnamsa)\n\n      eleliquid(jnano3)  = (xeq_c(jc_na) *na_ma(ja_no3) +  &\n                            xeq_a(ja_no3)*nc_mc(jc_na))/   &\n                             mw_electrolyte(jnano3)\n\n      eleliquid(jnacl)   = (xeq_c(jc_na) *na_ma(ja_cl) +   &\n                            xeq_a(ja_cl) *nc_mc(jc_na))/   &\n                             mw_electrolyte(jnacl)\n\n      eleliquid(jnh4so4) = (xeq_c(jc_nh4)*na_ma(ja_so4) +   &\n                            xeq_a(ja_so4)*nc_mc(jc_nh4))/   &\n                             mw_electrolyte(jnh4so4)\n\n      eleliquid(jnh4hso4)= (xeq_c(jc_nh4)*na_ma(ja_hso4) +   &\n                            xeq_a(ja_hso4)*nc_mc(jc_nh4))/   &\n                             mw_electrolyte(jnh4hso4)\n\n      eleliquid(jnh4msa) = (xeq_c(jc_nh4) *na_ma(ja_msa) +  &\n                            xeq_a(ja_msa)*nc_mc(jc_nh4))/   &\n                             mw_electrolyte(jnh4msa)\n\n      eleliquid(jnh4no3) = (xeq_c(jc_nh4)*na_ma(ja_no3) +   &\n                            xeq_a(ja_no3)*nc_mc(jc_nh4))/   &\n                             mw_electrolyte(jnh4no3)\n\n      eleliquid(jnh4cl)  = (xeq_c(jc_nh4)*na_ma(ja_cl) +   &\n                            xeq_a(ja_cl) *nc_mc(jc_nh4))/  &\n                             mw_electrolyte(jnh4cl)\n\n      eleliquid(jcano3)  = (xeq_c(jc_ca) *na_ma(ja_no3) +  &\n                            xeq_a(ja_no3)*nc_mc(jc_ca))/   &\n                             mw_electrolyte(jcano3)\n\n      eleliquid(jcamsa2) = (xeq_c(jc_ca) *na_ma(ja_msa) +  &\n                            xeq_a(ja_msa)*nc_mc(jc_ca))/   &\n                             mw_electrolyte(jcamsa2)\n\n      eleliquid(jcacl2)  = (xeq_c(jc_ca) *na_ma(ja_cl) +   &\n                            xeq_a(ja_cl) *nc_mc(jc_ca))/   &\n                             mw_electrolyte(jcacl2)\n\n      eleliquid(jh2so4)  = (xeq_c(jc_h)  *na_ma(ja_hso4) + &\n                            xeq_a(ja_hso4)*nc_mc(jc_h))/   &\n                             mw_electrolyte(jh2so4)\n\n      eleliquid(jhno3)   = (xeq_c(jc_h)  *na_ma(ja_no3) +  &\n                            xeq_a(ja_no3)*nc_mc(jc_h))/    &\n                             mw_electrolyte(jhno3)\n\n      eleliquid(jhcl)    = (xeq_c(jc_h) *na_ma(ja_cl) +   &\n                            xeq_a(ja_cl)*nc_mc(jc_h))/    &\n                             mw_electrolyte(jhcl)\n\n      eleliquid(jmsa)    = (xeq_c(jc_h)  *na_ma(ja_msa) + &\n                            xeq_a(ja_msa)*nc_mc(jc_h))/   &\n                             mw_electrolyte(jmsa)\n\n!--------------------------------------------------------------------\n\n      elseif(icase.eq.2)then ! xt < 2 : sulfate rich domain\n\n        jp = jliquid\n\n        store(iso4_a) = aer(iso4_a,jp,ibin)\n        store(imsa_a) = aer(imsa_a,jp,ibin)\n        store(inh4_a) = aer(inh4_a,jp,ibin)\n        store(ina_a)  = aer(ina_a, jp,ibin)\n        store(ica_a)  = aer(ica_a, jp,ibin)\n\n        call form_camsa2(store,jp,ibin)\n\n        sum_na_nh4 = store(ina_a) + store(inh4_a)\n        if(sum_na_nh4 .gt. 0.0)then\n          f_nh4 = store(inh4_a)/sum_na_nh4\n          f_na  = store(ina_a)/sum_na_nh4\n        else\n          f_nh4 = 0.0\n          f_na  = 0.0\n        endif\n\n! first form msa electrolytes\n        if(sum_na_nh4 .gt. store(imsa_a))then\n          eleliquid(jnh4msa) = f_nh4*store(imsa_a)\n          eleliquid(jnamsa)  = f_na *store(imsa_a)\n          store(inh4_a)= store(inh4_a)-eleliquid(jnh4msa) ! remaining nh4\n          store(ina_a) = store(ina_a) -eleliquid(jnamsa)  ! remaining na\n        else\n          eleliquid(jnh4msa) = store(inh4_a)\n          eleliquid(jnamsa)  = store(ina_a)\n          eleliquid(jmsa)    = store(imsa_a) - sum_na_nh4\n          store(inh4_a)= 0.0  ! remaining nh4\n          store(ina_a) = 0.0  ! remaining na\n        endif\n\n        if(store(iso4_a).eq.0.0)goto 10\n\n        xt_d  = xt\n        xna_d = 1. + 0.5*aer(ina_a,jp,ibin)/aer(iso4_a,jp,ibin)\n        xdum = aer(iso4_a,jp,ibin) - aer(inh4_a,jp,ibin)\n\n        dum = 2.d0*aer(iso4_a,jp,ibin) - aer(ina_a,jp,ibin)\n        if(aer(inh4_a,jp,ibin) .gt. 0.0 .and. dum .gt. 0.0)then\n          xnh4_d = 2.*aer(inh4_a,jp,ibin)/   &\n                  (2.*aer(iso4_a,jp,ibin) - aer(ina_a,jp,ibin))\n        else\n          xnh4_d = 0.0\n        endif\n\n\n        if(aer(inh4_a,jp,ibin) .gt. 0.0)then\n\n\n        if(xt_d .ge. xna_d)then\n          eleliquid(jna2so4) = 0.5*aer(ina_a,jp,ibin)\n\n          if(xnh4_d .ge. 5./3.)then\n            eleliquid(jnh4so4) = 1.5*aer(ina_a,jp,ibin)   &\n                               - 3.*xdum - aer(inh4_a,jp,ibin)\n            eleliquid(jlvcite) = 2.*xdum + aer(inh4_a,jp,ibin)   &\n                               - aer(ina_a,jp,ibin)\n          elseif(xnh4_d .ge. 1.5)then\n            eleliquid(jnh4so4) = aer(inh4_a,jp,ibin)/5.\n            eleliquid(jlvcite) = aer(inh4_a,jp,ibin)/5.\n          elseif(xnh4_d .ge. 1.0)then\n            eleliquid(jnh4so4) = aer(inh4_a,jp,ibin)/6.\n            eleliquid(jlvcite) = aer(inh4_a,jp,ibin)/6.\n            eleliquid(jnh4hso4)= aer(inh4_a,jp,ibin)/6.\n          endif\n\n        elseif(xt_d .gt. 1.0)then\n          eleliquid(jnh4so4)  = aer(inh4_a,jp,ibin)/6.\n          eleliquid(jlvcite)  = aer(inh4_a,jp,ibin)/6.\n          eleliquid(jnh4hso4) = aer(inh4_a,jp,ibin)/6.\n          eleliquid(jna2so4)  = aer(ina_a,jp,ibin)/3.\n          eleliquid(jnahso4)  = aer(ina_a,jp,ibin)/3.\n        elseif(xt_d .le. 1.0)then\n          eleliquid(jna2so4)  = aer(ina_a,jp,ibin)/4.\n          eleliquid(jnahso4)  = aer(ina_a,jp,ibin)/2.\n          eleliquid(jlvcite)  = aer(inh4_a,jp,ibin)/6.\n          eleliquid(jnh4hso4) = aer(inh4_a,jp,ibin)/2.\n        endif\n\n        else\n\n        if(xt_d .gt. 1.0)then\n          eleliquid(jna2so4) = aer(ina_a,jp,ibin) - aer(iso4_a,jp,ibin)\n          eleliquid(jnahso4) = 2.*aer(iso4_a,jp,ibin) -   &\n                                  aer(ina_a,jp,ibin)\n        else\n          eleliquid(jna2so4) = aer(ina_a,jp,ibin)/4.\n          eleliquid(jnahso4) = aer(ina_a,jp,ibin)/2.\n        endif\n\n\n        endif\n\n\n\n      endif\n!---------------------------------------------------------\n\n10    return\n      end subroutine mesa_estimate_eleliquid\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of mesa: completely dissolves small amounts of soluble salts\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine mesa_dissolve_small_salt(ibin,js)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, js, jp\n\n      jp = jsolid\n\n\n      if(js .eq. jnh4so4)then\n        aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) +   &\n                           2.*electrolyte(js,jsolid,ibin)\n        aer(iso4_a,jliquid,ibin) = aer(iso4_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(inh4_a,jp,ibin) = electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                         2.*electrolyte(jnh4so4,jp,ibin) +   &\n                         3.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jnh4msa,jp,ibin)\n\n        aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jlvcite)then\n        aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) +   &\n                           3.*electrolyte(js,jsolid,ibin)\n        aer(iso4_a,jliquid,ibin) = aer(iso4_a,jliquid,ibin) +   &\n                           2.*electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(inh4_a,jp,ibin) = electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                         2.*electrolyte(jnh4so4,jp,ibin) +   &\n                         3.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jnh4msa,jp,ibin)\n\n        aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jnh4hso4)then\n        aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(iso4_a,jliquid,ibin) = aer(iso4_a,jliquid,ibin) +   &\n                             electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(inh4_a,jp,ibin) = electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                         2.*electrolyte(jnh4so4,jp,ibin) +   &\n                         3.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jnh4msa,jp,ibin)\n\n        aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jna2so4)then\n        aer(ina_a,jliquid,ibin)  = aer(ina_a,jliquid,ibin) +   &\n                           2.*electrolyte(js,jsolid,ibin)\n        aer(iso4_a,jliquid,ibin) = aer(iso4_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ina_a,jp,ibin)  = electrolyte(jnano3,jp,ibin)  +   &\n                            electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jna2so4,jp,ibin) +   &\n                         3.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)\n\n        aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jna3hso4)then\n        aer(ina_a,jliquid,ibin)  = aer(ina_a,jliquid,ibin) +   &\n                           3.*electrolyte(js,jsolid,ibin)\n        aer(iso4_a,jliquid,ibin) = aer(iso4_a,jliquid,ibin) +   &\n                           2.*electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ina_a,jp,ibin)  = electrolyte(jnano3,jp,ibin)  +   &\n                            electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jna2so4,jp,ibin) +   &\n                         3.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)\n\n        aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jnahso4)then\n        aer(ina_a,jliquid,ibin)  = aer(ina_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(iso4_a,jliquid,ibin) = aer(iso4_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ina_a,jp,ibin)  = electrolyte(jnano3,jp,ibin)  +   &\n                            electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jna2so4,jp,ibin) +   &\n                         3.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)\n\n        aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jnh4no3)then\n        aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(inh4_a,jp,ibin) = electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                         2.*electrolyte(jnh4so4,jp,ibin) +   &\n                         3.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jnh4msa,jp,ibin)\n\n        aer(ino3_a,jp,ibin) = electrolyte(jnano3,jp,ibin)  +   &\n                         2.*electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jhno3,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jnh4cl)then\n        aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(icl_a,jliquid,ibin)  = aer(icl_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(inh4_a,jp,ibin) = electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                         2.*electrolyte(jnh4so4,jp,ibin) +   &\n                         3.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jnh4msa,jp,ibin)\n\n        aer(icl_a,jp,ibin)  = electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                            electrolyte(jhcl,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jnano3)then\n        aer(ina_a,jliquid,ibin)  = aer(ina_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ina_a,jp,ibin)  = electrolyte(jnano3,jp,ibin)  +   &\n                            electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jna2so4,jp,ibin) +   &\n                         3.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)\n\n        aer(ino3_a,jp,ibin) = electrolyte(jnano3,jp,ibin)  +   &\n                         2.*electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jhno3,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jnacl)then\n        aer(ina_a,jliquid,ibin)  = aer(ina_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(icl_a,jliquid,ibin)  = aer(icl_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ina_a,jp,ibin)  = electrolyte(jnano3,jp,ibin)  +   &\n                            electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jna2so4,jp,ibin) +   &\n                         3.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)\n\n        aer(icl_a,jp,ibin)  = electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                            electrolyte(jhcl,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jcano3)then\n        aer(ica_a,jliquid,ibin)  = aer(ica_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) +   &\n                            2.*electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ica_a,jp,ibin)  = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jcaco3,jp,ibin)  +   &\n                            electrolyte(jcamsa2,jp,ibin)\n\n        aer(ino3_a,jp,ibin) = electrolyte(jnano3,jp,ibin)  +   &\n                         2.*electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jhno3,jp,ibin)\n        return\n      endif\n\n\n      if(js .eq. jcacl2)then\n        aer(ica_a,jliquid,ibin) = aer(ica_a,jliquid,ibin) +   &\n                              electrolyte(js,jsolid,ibin)\n        aer(icl_a,jliquid,ibin) = aer(icl_a,jliquid,ibin) +   &\n                            2.*electrolyte(js,jsolid,ibin)\n\n        electrolyte(js,jsolid,ibin) = 0.0\n\n        aer(ica_a,jp,ibin)  = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jcaco3,jp,ibin)  +   &\n                            electrolyte(jcamsa2,jp,ibin)\n\n        aer(icl_a,jp,ibin)  = electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                            electrolyte(jhcl,jp,ibin)\n        return\n      endif\n\n\n\n      return\n      end subroutine mesa_dissolve_small_salt\n\n\n\n\n\n\n!***********************************************************************\n! part of mesa: checks mesa convergence\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!         Oct 2009: William.Gustafson@pnl.gov - zero salt bug fixed\n!-----------------------------------------------------------------------\n      subroutine mesa_convergence_criterion(ibin,  &  ! touch\n                                       iconverge_mass,    &\n                                       iconverge_flux,    &\n                                       idissolved)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, iconverge_mass, iconverge_flux, idissolved\n! local variables\n      integer je, js, iaer\n      real(kind=8) mass_solid, mass_solid_salt, frac_solid, xt, h_ion, &\n           crustal_solids, sumflux\n\n\n      idissolved = mno\t\t! default = not completely dissolved\n\n! check mass convergence\n      iconverge_mass = mno\t! default value = no convergence\n\n!      call electrolytes_to_ions(jsolid,ibin)\n!      mass_solid = 0.0\n!      do iaer = 1, naer\n!        mass_solid = mass_solid +   &\n!                     aer(iaer,jsolid,ibin)*mw_aer_mac(iaer)*1.e-15\t! g/cc(air)\n!      enddo\n\n      mass_solid_salt = 0.0\n      do je = 1, nsalt\n        mass_solid_salt = mass_solid_salt + &\n             electrolyte(je,jsolid,ibin)*mw_electrolyte(je)*1.e-15\t! g/cc(air)\n      enddo\n\n\n\n!      frac_solid = mass_solid/mass_dry_a(ibin)\n\n!!$      frac_solid = mass_solid_salt/mass_dry_salt(ibin)\n!!$\n!!$      if(frac_solid .ge. 0.98)then\n!!$        iconverge_mass = myes\n!!$        return\n!!$      endif\n!beg: Modified above logic to handle zero salts, wig 28-Oct-2009\n! If mass of salts is zero, then this will force jaerosolstate to solid\n! in mesa_ptc.\n      if( mass_dry_salt(ibin) < 1e-30 ) then\n         iconverge_mass = myes\n         return\n      else\n         frac_solid = mass_solid_salt/mass_dry_salt(ibin)         \n         if(frac_solid .ge. 0.98)then\n            iconverge_mass = myes\n            return\n         endif\n      end if\n!end wig\n\n! check relative driving force convergence\n      iconverge_flux = myes\n      do js = 1, nsalt\n        if(abs(phi_salt(js)).gt. rtol_mesa)then\n          iconverge_flux = mno\n          return\n        endif\n      enddo\n\n\n\n! check if all the fluxes are zero\n\n      sumflux = 0.0\n      do js = 1, nsalt\n        sumflux = sumflux + abs(flux_sl(js))\n      enddo\n\n      crustal_solids = electrolyte(jcaco3,jsolid,ibin) +  &\n                       electrolyte(jcaso4,jsolid,ibin) +  &\n                       aer(ioin_a,jsolid,ibin)\n\n      if(sumflux .eq. 0.0 .and. crustal_solids .eq. 0.0)then\n        idissolved = myes\n      endif\n\n\n\n      return\n      end subroutine mesa_convergence_criterion\n\n\n\n\n\n\n\n\n!***********************************************************************\n! called when aerosol bin is completely solid.\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine adjust_solid_aerosol(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iaer, je\n\n\n      jphase(ibin)    = jsolid\n      jhyst_leg(ibin) = jhyst_lo\t! lower curve\n      water_a(ibin)   = 0.0\n\n! transfer aer(jtotal) to aer(jsolid)\n      do iaer = 1, naer\n        aer(iaer, jsolid, ibin) = aer(iaer,jtotal,ibin)\n        aer(iaer, jliquid,ibin) = 0.0\n      enddo\n\n! transfer electrolyte(jtotal) to electrolyte(jsolid)\n      do je = 1, nelectrolyte\n        electrolyte(je,jliquid,ibin) = 0.0\n        epercent(je,jliquid,ibin)    = 0.0\n        electrolyte(je,jsolid,ibin)  = electrolyte(je,jtotal,ibin)\n        epercent(je,jsolid,ibin)     = epercent(je,jtotal,ibin)\n      enddo\n\n! update aer(jtotal) that may have been affected above\n      aer(inh4_a,jtotal,ibin) = aer(inh4_a,jsolid,ibin)\n      aer(ino3_a,jtotal,ibin) = aer(ino3_a,jsolid,ibin)\n      aer(icl_a,jtotal,ibin)  = aer(icl_a,jsolid,ibin)\n\n! update electrolyte(jtotal)\n      do je = 1, nelectrolyte\n        electrolyte(je,jtotal,ibin) = electrolyte(je,jsolid,ibin)\n        epercent(je,jtotal,ibin)    = epercent(je,jsolid,ibin)\n      enddo\n\n      return\n      end subroutine adjust_solid_aerosol\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! called when aerosol bin is completely liquid.\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine adjust_liquid_aerosol(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer je\n\n\n\n\n      jphase(ibin)    = jliquid\n      jhyst_leg(ibin) = jhyst_up\t! upper curve\n\n! partition all electrolytes into liquid phase\n      do je = 1, nelectrolyte\n        electrolyte(je,jsolid,ibin)  = 0.0\n        epercent(je,jsolid,ibin)     = 0.0\n        electrolyte(je,jliquid,ibin) = electrolyte(je,jtotal,ibin)\n        epercent(je,jliquid,ibin)    = epercent(je,jtotal,ibin)\n      enddo\n! except these electrolytes, which always remain in the solid phase\n      electrolyte(jcaco3,jsolid,ibin) = electrolyte(jcaco3,jtotal,ibin)\n      electrolyte(jcaso4,jsolid,ibin) = electrolyte(jcaso4,jtotal,ibin)\n      epercent(jcaco3,jsolid,ibin)    = epercent(jcaco3,jtotal,ibin)\n      epercent(jcaso4,jsolid,ibin)    = epercent(jcaso4,jtotal,ibin)\n      electrolyte(jcaco3,jliquid,ibin)= 0.0\n      electrolyte(jcaso4,jliquid,ibin)= 0.0\n      epercent(jcaco3,jliquid,ibin)   = 0.0\n      epercent(jcaso4,jliquid,ibin)   = 0.0\n\n\n! partition all the aer species into\n! solid phase\n      aer(iso4_a,jsolid,ibin) = electrolyte(jcaso4,jsolid,ibin)\n      aer(ino3_a,jsolid,ibin) = 0.0\n      aer(icl_a,jsolid,ibin)  = 0.0\n      aer(inh4_a,jsolid,ibin) = 0.0\n      aer(ioc_a,jsolid,ibin)  = aer(ioc_a,jtotal,ibin)\n      aer(imsa_a,jsolid,ibin) = 0.0\n      aer(ico3_a,jsolid,ibin) = aer(ico3_a,jtotal,ibin)\n      aer(ina_a,jsolid,ibin)  = 0.0\n      aer(ica_a,jsolid,ibin)  = electrolyte(jcaco3,jsolid,ibin) + &\n                                electrolyte(jcaso4,jsolid,ibin)\n      aer(ibc_a,jsolid,ibin)  = aer(ibc_a,jtotal,ibin)\n      aer(ioin_a,jsolid,ibin) = aer(ioin_a,jtotal,ibin)\n      aer(ipcg1_b_c_a,jsolid,ibin)= aer(ipcg1_b_c_a,jtotal,ibin)\n      aer(ipcg2_b_c_a,jsolid,ibin)= aer(ipcg2_b_c_a,jtotal,ibin)\n      aer(ipcg3_b_c_a,jsolid,ibin)= aer(ipcg3_b_c_a,jtotal,ibin)\n      aer(ipcg4_b_c_a,jsolid,ibin)= aer(ipcg4_b_c_a,jtotal,ibin)\n      aer(ipcg5_b_c_a,jsolid,ibin)= aer(ipcg5_b_c_a,jtotal,ibin)\n      aer(ipcg6_b_c_a,jsolid,ibin)= aer(ipcg6_b_c_a,jtotal,ibin)\n      aer(ipcg7_b_c_a,jsolid,ibin)= aer(ipcg7_b_c_a,jtotal,ibin)\n      aer(ipcg8_b_c_a,jsolid,ibin)= aer(ipcg8_b_c_a,jtotal,ibin)\n      aer(ipcg9_b_c_a,jsolid,ibin)= aer(ipcg9_b_c_a,jtotal,ibin)\n      aer(ipcg1_b_o_a,jsolid,ibin)= aer(ipcg1_b_o_a,jtotal,ibin)\n      aer(ipcg2_b_o_a,jsolid,ibin)= aer(ipcg2_b_o_a,jtotal,ibin)\n      aer(ipcg3_b_o_a,jsolid,ibin)= aer(ipcg3_b_o_a,jtotal,ibin)\n      aer(ipcg4_b_o_a,jsolid,ibin)= aer(ipcg4_b_o_a,jtotal,ibin)\n      aer(ipcg5_b_o_a,jsolid,ibin)= aer(ipcg5_b_o_a,jtotal,ibin)\n      aer(ipcg6_b_o_a,jsolid,ibin)= aer(ipcg6_b_o_a,jtotal,ibin)\n      aer(ipcg7_b_o_a,jsolid,ibin)= aer(ipcg7_b_o_a,jtotal,ibin)\n      aer(ipcg8_b_o_a,jsolid,ibin)= aer(ipcg8_b_o_a,jtotal,ibin)\n      aer(ipcg9_b_o_a,jsolid,ibin)= aer(ipcg9_b_o_a,jtotal,ibin)\n      aer(iopcg1_b_c_a,jsolid,ibin)= aer(iopcg1_b_c_a,jtotal,ibin)\n      aer(iopcg2_b_c_a,jsolid,ibin)= aer(iopcg2_b_c_a,jtotal,ibin)\n      aer(iopcg3_b_c_a,jsolid,ibin)= aer(iopcg3_b_c_a,jtotal,ibin)\n      aer(iopcg4_b_c_a,jsolid,ibin)= aer(iopcg4_b_c_a,jtotal,ibin)\n      aer(iopcg5_b_c_a,jsolid,ibin)= aer(iopcg5_b_c_a,jtotal,ibin)\n      aer(iopcg6_b_c_a,jsolid,ibin)= aer(iopcg6_b_c_a,jtotal,ibin)\n      aer(iopcg7_b_c_a,jsolid,ibin)= aer(iopcg7_b_c_a,jtotal,ibin)\n      aer(iopcg8_b_c_a,jsolid,ibin)= aer(iopcg8_b_c_a,jtotal,ibin)\n      aer(iopcg1_b_o_a,jsolid,ibin)= aer(iopcg1_b_o_a,jtotal,ibin)\n      aer(iopcg2_b_o_a,jsolid,ibin)= aer(iopcg2_b_o_a,jtotal,ibin)\n      aer(iopcg3_b_o_a,jsolid,ibin)= aer(iopcg3_b_o_a,jtotal,ibin)\n      aer(iopcg4_b_o_a,jsolid,ibin)= aer(iopcg4_b_o_a,jtotal,ibin)\n      aer(iopcg5_b_o_a,jsolid,ibin)= aer(iopcg5_b_o_a,jtotal,ibin)\n      aer(iopcg6_b_o_a,jsolid,ibin)= aer(iopcg6_b_o_a,jtotal,ibin)\n      aer(iopcg7_b_o_a,jsolid,ibin)= aer(iopcg7_b_o_a,jtotal,ibin)\n      aer(iopcg8_b_o_a,jsolid,ibin)= aer(iopcg8_b_o_a,jtotal,ibin)\n      aer(ipcg1_f_c_a,jsolid,ibin)= aer(ipcg1_f_c_a,jtotal,ibin)\n      aer(ipcg2_f_c_a,jsolid,ibin)= aer(ipcg2_f_c_a,jtotal,ibin)\n      aer(ipcg3_f_c_a,jsolid,ibin)= aer(ipcg3_f_c_a,jtotal,ibin)\n      aer(ipcg4_f_c_a,jsolid,ibin)= aer(ipcg4_f_c_a,jtotal,ibin)\n      aer(ipcg5_f_c_a,jsolid,ibin)= aer(ipcg5_f_c_a,jtotal,ibin)\n      aer(ipcg6_f_c_a,jsolid,ibin)= aer(ipcg6_f_c_a,jtotal,ibin)\n      aer(ipcg7_f_c_a,jsolid,ibin)= aer(ipcg7_f_c_a,jtotal,ibin)\n      aer(ipcg8_f_c_a,jsolid,ibin)= aer(ipcg8_f_c_a,jtotal,ibin)\n      aer(ipcg9_f_c_a,jsolid,ibin)= aer(ipcg9_f_c_a,jtotal,ibin)\n      aer(ipcg1_f_o_a,jsolid,ibin)= aer(ipcg1_f_o_a,jtotal,ibin)\n      aer(ipcg2_f_o_a,jsolid,ibin)= aer(ipcg2_f_o_a,jtotal,ibin)\n      aer(ipcg3_f_o_a,jsolid,ibin)= aer(ipcg3_f_o_a,jtotal,ibin)\n      aer(ipcg4_f_o_a,jsolid,ibin)= aer(ipcg4_f_o_a,jtotal,ibin)\n      aer(ipcg5_f_o_a,jsolid,ibin)= aer(ipcg5_f_o_a,jtotal,ibin)\n      aer(ipcg6_f_o_a,jsolid,ibin)= aer(ipcg6_f_o_a,jtotal,ibin)\n      aer(ipcg7_f_o_a,jsolid,ibin)= aer(ipcg7_f_o_a,jtotal,ibin)\n      aer(ipcg8_f_o_a,jsolid,ibin)= aer(ipcg8_f_o_a,jtotal,ibin)\n      aer(ipcg9_f_o_a,jsolid,ibin)= aer(ipcg9_f_o_a,jtotal,ibin)\n      aer(iopcg1_f_c_a,jsolid,ibin)= aer(iopcg1_f_c_a,jtotal,ibin)\n      aer(iopcg2_f_c_a,jsolid,ibin)= aer(iopcg2_f_c_a,jtotal,ibin)\n      aer(iopcg3_f_c_a,jsolid,ibin)= aer(iopcg3_f_c_a,jtotal,ibin)\n      aer(iopcg4_f_c_a,jsolid,ibin)= aer(iopcg4_f_c_a,jtotal,ibin)\n      aer(iopcg5_f_c_a,jsolid,ibin)= aer(iopcg5_f_c_a,jtotal,ibin)\n      aer(iopcg6_f_c_a,jsolid,ibin)= aer(iopcg6_f_c_a,jtotal,ibin)\n      aer(iopcg7_f_c_a,jsolid,ibin)= aer(iopcg7_f_c_a,jtotal,ibin)\n      aer(iopcg8_f_c_a,jsolid,ibin)= aer(iopcg8_f_c_a,jtotal,ibin)\n      aer(iopcg1_f_o_a,jsolid,ibin)= aer(iopcg1_f_o_a,jtotal,ibin)\n      aer(iopcg2_f_o_a,jsolid,ibin)= aer(iopcg2_f_o_a,jtotal,ibin)\n      aer(iopcg3_f_o_a,jsolid,ibin)= aer(iopcg3_f_o_a,jtotal,ibin)\n      aer(iopcg4_f_o_a,jsolid,ibin)= aer(iopcg4_f_o_a,jtotal,ibin)\n      aer(iopcg5_f_o_a,jsolid,ibin)= aer(iopcg5_f_o_a,jtotal,ibin)\n      aer(iopcg6_f_o_a,jsolid,ibin)= aer(iopcg6_f_o_a,jtotal,ibin)\n      aer(iopcg7_f_o_a,jsolid,ibin)= aer(iopcg7_f_o_a,jtotal,ibin)\n      aer(iopcg8_f_o_a,jsolid,ibin)= aer(iopcg8_f_o_a,jtotal,ibin)\n      aer(ismpa_a,jsolid,ibin)= aer(ismpa_a,jtotal,ibin)\n      aer(ismpbb_a,jsolid,ibin)= aer(ismpbb_a,jtotal,ibin)\n      aer(iglysoa_r1_a,jsolid,ibin)= aer(iglysoa_r1_a,jtotal,ibin)\n      aer(iglysoa_r2_a,jsolid,ibin)= aer(iglysoa_r2_a,jtotal,ibin)\n      aer(iglysoa_sfc_a,jsolid,ibin)= aer(iglysoa_sfc_a,jtotal,ibin)\n      aer(iglysoa_nh4_a,jsolid,ibin)= aer(iglysoa_nh4_a,jtotal,ibin)\n      aer(iglysoa_oh_a,jsolid,ibin)= aer(iglysoa_oh_a,jtotal,ibin)\n      aer(iant1_c_a,jsolid,ibin)= aer(iant1_c_a,jtotal,ibin)\n      aer(iant2_c_a,jsolid,ibin)= aer(iant2_c_a,jtotal,ibin)\n      aer(iant3_c_a,jsolid,ibin)= aer(iant3_c_a,jtotal,ibin)\n      aer(iant4_c_a,jsolid,ibin)= aer(iant4_c_a,jtotal,ibin)\n      aer(iant1_o_a,jsolid,ibin)= aer(iant1_o_a,jtotal,ibin)\n      aer(iant2_o_a,jsolid,ibin)= aer(iant2_o_a,jtotal,ibin)\n      aer(iant3_o_a,jsolid,ibin)= aer(iant3_o_a,jtotal,ibin)\n      aer(iant4_o_a,jsolid,ibin)= aer(iant4_o_a,jtotal,ibin)\n      aer(ibiog1_c_a,jsolid,ibin)= aer(ibiog1_c_a,jtotal,ibin)\n      aer(ibiog2_c_a,jsolid,ibin)= aer(ibiog2_c_a,jtotal,ibin)\n      aer(ibiog3_c_a,jsolid,ibin)= aer(ibiog3_c_a,jtotal,ibin)\n      aer(ibiog4_c_a,jsolid,ibin)= aer(ibiog4_c_a,jtotal,ibin)\n      aer(ibiog1_o_a,jsolid,ibin)= aer(ibiog1_o_a,jtotal,ibin)\n      aer(ibiog2_o_a,jsolid,ibin)= aer(ibiog2_o_a,jtotal,ibin)\n      aer(ibiog3_o_a,jsolid,ibin)= aer(ibiog3_o_a,jtotal,ibin)\n      aer(ibiog4_o_a,jsolid,ibin)= aer(ibiog4_o_a,jtotal,ibin)\n      aer(iasoaX_a,jsolid,ibin)= aer(iasoaX_a,jtotal,ibin)\n      aer(iasoa1_a,jsolid,ibin)= aer(iasoa1_a,jtotal,ibin)\n      aer(iasoa2_a,jsolid,ibin)= aer(iasoa2_a,jtotal,ibin)\n      aer(iasoa3_a,jsolid,ibin)= aer(iasoa3_a,jtotal,ibin)\n      aer(iasoa4_a,jsolid,ibin)= aer(iasoa4_a,jtotal,ibin)\n      aer(ibsoaX_a,jsolid,ibin)= aer(ibsoaX_a,jtotal,ibin)\n      aer(ibsoa1_a,jsolid,ibin)= aer(ibsoa1_a,jtotal,ibin)\n      aer(ibsoa2_a,jsolid,ibin)= aer(ibsoa2_a,jtotal,ibin)\n      aer(ibsoa3_a,jsolid,ibin)= aer(ibsoa3_a,jtotal,ibin)\n      aer(ibsoa4_a,jsolid,ibin)= aer(ibsoa4_a,jtotal,ibin)\n\n\n\n\n! liquid-phase\n      aer(iso4_a,jliquid,ibin) = aer(iso4_a,jtotal,ibin) - &\n                                 aer(iso4_a,jsolid,ibin)\n      aer(iso4_a,jliquid,ibin) = max(0.D0, aer(iso4_a,jliquid,ibin))\n      aer(ino3_a,jliquid,ibin) = aer(ino3_a,jtotal,ibin)\n      aer(icl_a,jliquid,ibin)  = aer(icl_a,jtotal,ibin)\n      aer(inh4_a,jliquid,ibin) = aer(inh4_a,jtotal,ibin)\n      aer(ioc_a,jliquid,ibin)  = 0.0\n      aer(imsa_a,jliquid,ibin) = aer(imsa_a,jtotal,ibin)\n      aer(ico3_a,jliquid,ibin) = 0.0\n      aer(ina_a,jliquid,ibin)  = aer(ina_a,jtotal,ibin)\n      aer(ica_a,jliquid,ibin)  = aer(ica_a,jtotal,ibin) - &\n                                 aer(ica_a,jsolid,ibin)\n      aer(ica_a,jliquid,ibin)  = max(0.D0, aer(ica_a,jliquid,ibin))\n      aer(ibc_a,jliquid,ibin)  = 0.0\n      aer(ioin_a,jliquid,ibin) = 0.0\n      aer(ipcg1_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg2_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg3_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg4_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg5_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg6_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg7_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg8_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg9_b_c_a,jliquid,ibin)= 0.0\n      aer(ipcg1_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg2_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg3_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg4_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg5_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg6_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg7_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg8_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg9_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg1_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg2_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg3_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg4_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg5_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg6_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg7_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg8_b_c_a,jliquid,ibin)= 0.0\n      aer(iopcg1_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg2_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg3_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg4_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg5_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg6_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg7_b_o_a,jliquid,ibin)= 0.0\n      aer(iopcg8_b_o_a,jliquid,ibin)= 0.0\n      aer(ipcg1_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg2_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg3_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg4_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg5_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg6_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg7_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg8_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg9_f_c_a,jliquid,ibin)= 0.0\n      aer(ipcg1_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg2_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg3_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg4_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg5_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg6_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg7_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg8_f_o_a,jliquid,ibin)= 0.0\n      aer(ipcg9_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg1_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg2_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg3_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg4_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg5_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg6_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg7_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg8_f_c_a,jliquid,ibin)= 0.0\n      aer(iopcg1_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg2_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg3_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg4_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg5_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg6_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg7_f_o_a,jliquid,ibin)= 0.0\n      aer(iopcg8_f_o_a,jliquid,ibin)= 0.0\n      aer(ismpa_a,jliquid,ibin)= 0.0\n      aer(ismpbb_a,jliquid,ibin)= 0.0\n      aer(iglysoa_r1_a,jliquid,ibin)= 0.0\n      aer(iglysoa_r2_a,jliquid,ibin)= 0.0\n      aer(iglysoa_sfc_a,jliquid,ibin)= 0.0\n      aer(iglysoa_nh4_a,jliquid,ibin)= 0.0\n      aer(iglysoa_oh_a,jliquid,ibin)= 0.0\n      aer(iant1_c_a,jliquid,ibin)= 0.0\n      aer(iant2_c_a,jliquid,ibin)= 0.0\n      aer(iant3_c_a,jliquid,ibin)= 0.0\n      aer(iant4_c_a,jliquid,ibin)= 0.0\n      aer(iant1_o_a,jliquid,ibin)= 0.0\n      aer(iant2_o_a,jliquid,ibin)= 0.0\n      aer(iant3_o_a,jliquid,ibin)= 0.0\n      aer(iant4_o_a,jliquid,ibin)= 0.0\n      aer(ibiog1_c_a,jliquid,ibin)= 0.0\n      aer(ibiog2_c_a,jliquid,ibin)= 0.0\n      aer(ibiog3_c_a,jliquid,ibin)= 0.0\n      aer(ibiog4_c_a,jliquid,ibin)= 0.0\n      aer(ibiog1_o_a,jliquid,ibin)= 0.0\n      aer(ibiog2_o_a,jliquid,ibin)= 0.0\n      aer(ibiog3_o_a,jliquid,ibin)= 0.0\n      aer(ibiog4_o_a,jliquid,ibin)= 0.0\n      aer(iasoaX_a,jliquid,ibin)= 0.0\n      aer(iasoa1_a,jliquid,ibin)= 0.0\n      aer(iasoa2_a,jliquid,ibin)= 0.0\n      aer(iasoa3_a,jliquid,ibin)= 0.0\n      aer(iasoa4_a,jliquid,ibin)= 0.0\n      aer(ibsoaX_a,jliquid,ibin)= 0.0\n      aer(ibsoa1_a,jliquid,ibin)= 0.0\n      aer(ibsoa2_a,jliquid,ibin)= 0.0\n      aer(ibsoa3_a,jliquid,ibin)= 0.0\n      aer(ibsoa4_a,jliquid,ibin)= 0.0\n\n\n\n\n\n      return\n      end subroutine adjust_liquid_aerosol\n\n\n\n\n\n\n\n! end of mesa package\n!=======================================================================\n\n\n\n\n\n\n\n\n!***********************************************************************\n! ASTEM: Adaptive Step Time-Split Euler Method\n!\n! author: Rahul A. Zaveri\n! update: jan 2007\n!-----------------------------------------------------------------------\n      subroutine ASTEM(dtchem,vbs_nbin)\n\n      !LuoUSE module_mosaic_gly, only : glysoa_complex, glysoa_simple\n\n!      implicit none\n!      include 'chemistry.com'\n!      include 'mosaic.h'\n! subr arguments\n      real(kind=8) dtchem\n! local variables\n      integer ibin\n      real(kind=8) dumdum\n      integer vbs_nbin(1)\n      integer start_svoc, Nsoa\n!      logical first\n!      save first\n!      data first/.true./\n      \n      integer, save :: iclm_debug, jclm_debug, kclm_debug, ncnt_debug\n      data iclm_debug /25/\n      data jclm_debug /1/\n      data kclm_debug /9/\n      data ncnt_debug /2/\n\n\n\n      if(iclm_aer .eq. iclm_debug .and.   &\n         jclm_aer .eq. jclm_debug .and.   &\n         kclm_aer .eq. kclm_debug  .and.   &\n         ncorecnt_aer .eq. ncnt_debug)then\n        dumdum = 0.0\n      endif\n\n\n\n! update ASTEM call counter\n      nASTEM_call  = nASTEM_call + 1\n\n! reset input print flag\n      iprint_input = mYES\n\n\n\n\n! compute aerosol phase state before starting integration\n      do ibin = 1, nbin_a\n        if(jaerosolstate(ibin) .ne. no_aerosol)then\n          call aerosol_phase_state(ibin)\n          if (istat_mosaic_fe1 .lt. 0) return\n          call calc_dry_n_wet_aerosol_props(ibin)\n        endif\n!      endif ! added by Manish Shrivastav 12/7/09\n      enddo\n\n\n!      if(first)then\n!        first=.false.\n!        call print_aer(0)\t\t! BOX\n!      endif\n\n\n! compute new gas-aerosol mass transfer coefficients\n      call aerosolmtc(vbs_nbin)\n      if (istat_mosaic_fe1 .lt. 0) return\n\n! condense h2so4, msa, and nh3 only\n      call ASTEM_non_volatiles(dtchem)\t! analytical solution\n      if (istat_mosaic_fe1 .lt. 0) return\n\n! DL - 20/11/2012 - recalculate the mass balance to take account of \n!                   NO3- and Cl- changes from N2O5 het reactions\n\t  call overall_massbal_in ! save input mass over all bins\n\n\n! condense inorganic semi-volatile gases hno3, hcl, nh3, and co2\n      call ASTEM_semi_volatiles(dtchem)\t! semi-implicit + explicit euler\n      if (istat_mosaic_fe1 .lt. 0) return\n\n      !Luoif (glysoa_param == glysoa_param_simple)  call glysoa_simple(dtchem)\n      !Luoif (glysoa_param == glysoa_param_complex) call glysoa_complex(dtchem)\n\n! condense secondary organic gases (8 sorgam species)\n      !Luoif (istat_mosaic_fe1 .lt. 0) return\n\n      !Luostart_svoc = 1\n      !LuoNsoa       = 0\n      ! simple version, Hodzic and Jimenez, GMD, 2011\n      !Luoif (vbs_nbin(1).eq.0) then\n      !Luo  start_svoc = ismpa_g\n      ! 4-bin version, Knote et al., ACPD, 2014\n      !Luoelse if (vbs_nbin(1).eq.4) then\n      !Luo  start_svoc = iasoaX_g\n      ! 9-bin version\n      !Luoelse\n      !Luo  start_svoc = ipcg1_b_c_g\n!        Nsoa = ngas_volatile-start_svoc\n      !Luoend if\n      !LuoNsoa       = ngas_ioa + ngas_soa - start_svoc + 1\n\n      !Luocall equilibrium(start_svoc,Nsoa)\n\n!!BSINGH (PNNL)- Following 3 lines are commented due to array out of bound error in equilibrium_smp\n!      !if (vbs_nbin.eq.0) then\n!      !call equilibrium_smp\n!      !else\n!      call equilibrium\n!      !Bend if\n!\n\n! template for error status checking\n!        if (iprint_mosaic_fe1 .gt. 0) then\n!          write(6,*)'error in computing dtmax for soa'\n!          write(6,*)'mosaic fatal error in astem_soa_dtmax'\n!       stop\n!       endif\n!        istat_mosaic_fe1 = -1800\n!        return\n!      endif\n\n      return\n      end subroutine astem\n\n\n\n\n\n\n\n\n\n      subroutine print_mosaic_stats( iflag1 )\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer iflag1\n! local variables\n      integer ibin\n      real(kind=8) p_mesa_fails, p_astem_fails, dumcnt\n\n\n      if (iflag1 .le. 0) goto 2000\n\n! print mesa and astem statistics\n\n      dumcnt = float(max(nmesa_call,1))\n      p_mesa_fails  = 100.*float(nmesa_fail)/dumcnt\n      niter_mesa_avg = float(niter_mesa)/dumcnt\n\n      dumcnt = float(max(nastem_call,1))\n      p_astem_fails = 100.*float(nastem_fail)/dumcnt\n      nsteps_astem_avg = float(nsteps_astem)/dumcnt\n\n\n      if (iprint_mosaic_perform_stats .gt. 0) then\n        write(6,*)'------------------------------------------------'\n        write(6,*)'     astem performance statistics'\n        write(6,*)'number of astem calls=', nastem_call\n        write(6,*)'percent astem fails  =', nastem_fail\n        write(6,*)'avg steps per dtchem =', nsteps_astem_avg\n        write(6,*)'max steps per dtchem =', nsteps_astem_max\n        write(6,*)'  '\n        write(6,*)'     mesa performance statistics'\n        write(6,*)'number of mesa calls =', nmesa_call\n        write(6,*)'total mesa fails     =', nmesa_fail\n        write(6,*)'percent mesa fails   =', p_mesa_fails\n        write(6,*)'avg iterations/call  =', niter_mesa_avg\n        write(6,*)'max iterations/call  =', niter_mesa_max\n        write(6,*)'  '\n      endif\n\n      if (iprint_mosaic_fe1 .gt. 0) then\n         if ((nfe1_mosaic_cur .gt. 0) .or.   &\n             (iprint_mosaic_fe1 .ge. 100)) then\n            write(6,*)'-----------------------------------------'\n            write(6,*)'mosaic failure count (current step) =',   &\n               nfe1_mosaic_cur\n            write(6,*)'mosaic failure count (all step tot) =',   &\n               nfe1_mosaic_tot\n            write(6,*)'  '\n         endif\n      endif\n\n      if (nfe1_mosaic_tot .gt. 9999) then\n         write(6,'(a)') \"MOSAIC FAILURE COUNT > 9999 -- SOMETHING IS SERIOUSLY WRONG !!!\"\n      endif\n\n2000  continue\n\n! reset counters\n      nfe1_mosaic_cur = 0\n\n      nmesa_call   = 0\n      nmesa_fail   = 0\n      niter_mesa   = 0.0\n      niter_mesa_max = 0\n\n      nastem_call = 0\n      nastem_fail = 0\n\n      nsteps_astem = 0.0\n      nsteps_astem_max = 0.0\n\n\n      return\n      end subroutine print_mosaic_stats\n\n\n\n\n\n! Calculates the equilibrium gas-particle partitioning for SOA species\n        subroutine  equilibrium(start_ind,N)\n!        subroutine  equilibrium\n! This routine was implemented by Manish Shrivastava on 12/24/2009 to do gas-particle partitioning of SOA assuming thermodynamic equilibrium.\n! Modified by Alma Hodzic 12/2012 to implement the partitioning for mozart-mosaic species (based on the initial code implemented by Manish Shrivastava and originated from CAMx) \n! This would give MOSAIC cpabilities of running both dynamic and equilibrium gas-particle partitioning\n! Calls the subroutine soap. Subroutine soap calls subroutine spfcn\n!        use module_data_mosaic_main\n!        use module_data_mosaic_aero\n\n        implicit none\n        real(kind=8), parameter :: tinys=1.0d-15\n        integer, intent(in) :: start_ind, N\n!        integer, parameter :: N=ngas_soa !Total number of soa species\n        integer, parameter :: itermax=2000\n        integer idxfresh(N),idxaged(N)   !counter for fresh and aged soa species\n        real(kind=8) :: dq,frqfresh(nbin_a),frqaged(nbin_a)\n        real(kind=8) :: frqtotfresh,frqtotaged,frt\n        real(kind=8) :: xsumfresh(nbin_a),xsumaged(nbin_a)\n        real(kind=8) :: mnkfresh,mxkfresh,mnkaged,mxkaged\n        real betak\n!        integer :: flagsoap(N) ! flagsoap determines if the species 'i' is fresh (flagsoap(i)=2) or aged(flagsoap(i)=1\n        real(kind=8) ::  Csatfresh(N), Ctotfresh(N)\n        real(kind=8) ::  Cgasfresh(N),Caerfresh(N) ! Csat: Saturation conc., Ctot: Total organic mass\n!       in gas+aerosol phase, Cgas:gas phase, Caer: Particle\n        real(kind=8) ::    Csataged(N), Ctotaged(N)\n        real(kind=8) ::  Cgasaged(N),Caeraged(N)\n        integer nsolfresh,nsolaged,ntrack,icontfresh,icontaged ! counters corresponding to fresh and aged species for mapping\n        real(kind=8) :: cpxfresh,cpxaged !Moles of pre-existing fresh and aged particle phase organic mass\n        integer ibin,iter ! Bin nos.\n! local variables\n        integer iv, jp\n         real(kind=8) :: dum, sum_dum, sum_soa, small_oc\n\n!        real, parameter :: tolmin = 1.E-12^M\n!        real, parameter :: conmin = 1.E-20^M\n!        real totOA,minitw !total OA in particle phase^M\n        real(kind=8) :: cpx !pre-existing OA umol/m3^M\n        real(kind=8) :: Ctot(N),Caer(N),Cgas(N),Csat(N)\n        real(kind=8) :: Paer(ngas_volatile)\n        integer :: i\n!       LOGICAL check\n        jp=jtotal\n        iter=0\n         cpxaged=0.0\n        cpxfresh=0.0 ! Assume no pres-existing OA forms a solution\n        nsolfresh=0\n         nsolaged=0\n         icontfresh=0\n         icontaged=0\n         dq=0.0\n! Paer holds the organic aerosol values in each volatility bin (sum of all size bins)\n          do iv=1,ngas_volatile\n           Paer(iv)=0.0\n          enddo\n! Initialize flagsoap\n          do i=1,N\n             flagsoap(i)=1\n             Ctot(i) = 0.0\n             Ctotaged(i) = 0.0\n             Ctotfresh(i) = 0.0\n             Caer(i) = 0.0\n             Caeraged(i) = 0.0\n             Caerfresh(i) = 0.0\n             Cgas(i) = 0.0\n             Cgasaged(i) = 0.0\n             Cgasfresh(i) = 0.0\n             Csat(i) = 0.0\n             Csataged(i) = 0.0\n             Csatfresh(i) = 0.0\n          enddo\n! Calculate Ctot and Paer\n!              do iv = ipcg1_b_c_g, ngas_volatile\n!              do iv = start_ind, ngas_ioa + ngas_soa\n              do iv = start_ind, (start_ind + N - 1)\n        total_species(iv) = gas(iv)\n        do ibin = 1, nbin_a\n          total_species(iv) = total_species(iv) + aer(iv,jtotal,ibin)\n           Paer(iv)=Paer(iv)+aer(iv,jtotal,ibin)\n        enddo\n      enddo\n! Calculate pre-existing moles of OA (cpx) as sum of all size bins\n        do ibin=1,nbin_a\n        cpxaged= cpxaged+aer(ioc_a,jp,ibin)\n         enddo\n\n!  Maps arrays starting from start_ind or ipcg1_b_c_g on to corresponding arrays starting from 1 for just soa species\n        do i=1,N\n           Ctot(i)=total_species(start_ind+i-1)\n           Caer(i)=Paer(start_ind+i-1)\n           Csat(i)=sat_soa(start_ind+i-1)\n           Cgas(i)=gas(start_ind+i-1)\n         enddo\n\n! Initialize mapping array indices\n          do i=1,N\n            idxfresh(i)=0\n            idxaged(i)=0\n          enddo\n!     Seperate the fresh and aged species and treat them as 2 different solutions. Note this approach differes from PMCAMx\n!     In PMCAMx if flagsoap(i) was set to zero those species were not considered solution forming.\n\n         do i=1,N\n            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n         enddo\n\n\n!         do i=1,9\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!         do i=10,18\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!        do i=19,26\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!        do i=27,34\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!        do i=35,43\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!         do i=44,52\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!        do i=53,60\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!      do i=61,68\n!            flagsoap(i)=1 ! Biomass burning(carbon and oxygen species) +traditional soa species\n!          enddo\n!        do i=69,84\n!            flagsoap(i)=1 !Oxidized fossil oxygen\n!        enddo\n\n      do i=1,N\n         if (flagsoap(i).eq.2) then ! fresh primary species forming 1 solution\n           icontfresh=icontfresh+1  ! count the number of fresh species\n            idxfresh(icontfresh) = i  !Map the species\n            Csatfresh(icontfresh)=Csat(i)\n            Ctotfresh(icontfresh)=Ctot(i)\n            Caerfresh(icontfresh)=Caer(i)\n            Cgasfresh(icontfresh)=Cgas(i)\n            nsolfresh=nsolfresh+1\n         elseif (flagsoap(i).eq.1) then                       ! Aged SOA species forming another solution\n            icontaged=icontaged+1\n            idxaged(icontaged) = i\n            Csataged(icontaged)=Csat(i)\n            Ctotaged(icontaged)=Ctot(i)\n            Caeraged(icontaged)=Caer(i)\n            Cgasaged(icontaged)=Cgas(i)\n            nsolaged=nsolaged+1\n         endif\n      enddo\n\n!      Caluclate the initial equilibrium partitioning by the bisection method (CMU PMCAMx approach)\n!       If all fresh abd aged species form a solution\n!         call soap(ngas_soa,Ctot,Csat,Caer,Cgas,cpx)\n\n!       if fresh and aged species form seperate solutions\n      if (nsolfresh.gt.0)  call soap(nsolfresh,Ctotfresh, &\n                    Csatfresh,Caerfresh,Cgasfresh,cpxfresh)\n      if (nsolaged.gt.0)  call soap(nsolaged,Ctotaged, &\n                  Csataged,Caeraged,Cgasaged,cpxaged)\n\n!     Map the fresh and aged species back into original arrays\n!     Now assign the equilibrium gas-particle partitioning arrays\n        ntrack=0\n       do i=1,N ! Map the fresh and aged species back into array from 1 to N after calculating equilibrium\n         if (idxfresh(i).gt.0) then\n         Caer(idxfresh(i))= Caerfresh(i)\n         Cgas(idxfresh(i))= Cgasfresh(i)\n         Ctot(idxfresh(i))= Ctotfresh(i)\n         ntrack=ntrack+1\n         endif\n         if (idxaged(i).gt.0) then\n         Caer(idxaged(i))= Caeraged(i)\n         Cgas(idxaged(i))= Cgasaged(i)\n         Ctot(idxaged(i))= Ctotaged(i)\n         ntrack=ntrack+1\n         endif\n       enddo\n!       Check for total number of species\n        if (ntrack.ne.N) then\n        print *, 'Error in mapping fresh and primary species arrays'\n        stop\n        endif\n! From here on distribute the organic aerosol in size bins following Koo et al. 2003 \" Integrated approaches to modeling\n! the organic and inorganic atmospheric aerosol components\"\n! The original code from PMCAMx was modified to include 2 solutions for fresh and primary species\n! by Manish Shrivastava on 01/11/2010\n! Calculate total organic aerosol OA(in nmoles/m3) in each bin for either of fresh and aged aerosols\n\n         do ibin=1,nbin_a\n           xsumfresh(ibin)=0.0\n           xsumaged(ibin)=0.0\n              xsumaged(ibin)= xsumaged(ibin)+aer(ioc_a,jp,ibin)!Caluclate pre-existing primary in each bin for aged aerosol\n!         do iv = start_ind, ngas_ioa + ngas_soa\n         do iv = start_ind, (start_ind + N - 1)\n           if (flagsoap(iv-start_ind+1).eq.2) then\n               xsumfresh(ibin)= xsumfresh(ibin)+aer(iv,jtotal,ibin)\n           elseif (flagsoap(iv-start_ind+1).eq.1) then\n              xsumaged(ibin)= xsumaged(ibin)+aer(iv,jtotal,ibin)\n                elseif (flagsoap(iv-start_ind+1).eq.0) then\n                 print *, 'Error in mapping flagsoap to start_ind'\n           endif\n         enddo\n!         do iv = ipcg1_b_c_g, ngas_volatile\n!           if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n!               xsumfresh(ibin)= xsumfresh(ibin)+aer(iv,jtotal,ibin)\n!           elseif (flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n!              xsumaged(ibin)= xsumaged(ibin)+aer(iv,jtotal,ibin)\n!                elseif (flagsoap(iv-ipcg1_b_c_g+1).eq.0) then\n!                 print *, 'Error in mapping flagsoap to ipcg1_b_c_g'\n!           endif\n!         enddo\n\n! Give a small non-zero value to xsum if it is zero in the section\n          if (xsumfresh(ibin).eq.0.0) xsumfresh(ibin)=tinys\n          if (xsumaged(ibin).eq.0.0) xsumaged(ibin)=tinys\n        enddo\n\n\n! Calculate dq as (gas concentration) G(t)-G(t+h):\n! Caluclate driving force at previous time step (Cgas,i-XiCsati) for both fresh and aged solutions\n!          do iv = start_ind, ngas_ioa + ngas_soa\n          do iv = start_ind, (start_ind + N - 1)\n           if (Ctot(iv-start_ind+1).lt.1d-10) goto 120 ! If a given species concentration is too low skip\n            dq=gas(iv)-Cgas(iv-start_ind+1) !Since both fresh and aged species have been remapped to an array going from 1 to N\n!          do iv = ipcg1_b_c_g, ngas_volatile\n!           if (Ctot(iv-ipcg1_b_c_g+1).lt.1d-10) goto 120 ! If a given species concentration is too low skip\n!            dq=gas(iv)-Cgas(iv-ipcg1_b_c_g+1) !Since both fresh and aged species have been remapped to an array going from 1 to N\n           frqtotfresh=0.0d0\n           frqtotaged=0.0d0\n           mnkfresh=0.0d0\n           mnkaged=0.0d0\n           mxkfresh=0.0d0\n           mxkaged=0.0d0\n             do ibin=1,nbin_a\n! fraceq(iv,ibin) is calculated as the rate of mass transfer\n! The weighting fractions frqfresh(ibin) amd frqaged(ibin) are caluclated assuming mole fractions from previous time step\n! This assumtion could be relaxed by iterativetely solving this equation\n           if (flagsoap(iv-start_ind+1).eq.2) then\n              frqfresh(ibin)= kg(iv,ibin)*(gas(iv) & ! replaced fraceq(iv,ibin) by kg(iv,ibin) on 01/19/10\n              -(aer(iv,jtotal,ibin))/xsumfresh(ibin) &\n              *Csat(iv-start_ind+1))\n          endif\n\n           if (flagsoap(iv-start_ind+1).eq.1) then\n              frqaged(ibin)= kg(iv,ibin)*(gas(iv) & ! replaced fraceq(iv,ibin) by kg(iv,ibin) on 01/19/10\n             -(aer(iv,jtotal,ibin))/xsumaged(ibin) &\n              *Csat(iv-start_ind+1))\n          endif\n\n!           if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n!              frqfresh(ibin)= kg(iv,ibin)*(gas(iv) & ! replaced fraceq(iv,ibin) by kg(iv,ibin) on 01/19/10\n!              -(aer(iv,jtotal,ibin))/xsumfresh(ibin) &\n!              *Csat(iv-ipcg1_b_c_g+1))\n!          endif\n!\n!           if (flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n!              frqaged(ibin)= kg(iv,ibin)*(gas(iv) & ! replaced fraceq(iv,ibin) by kg(iv,ibin) on 01/19/10\n!             -(aer(iv,jtotal,ibin))/xsumaged(ibin) &\n!              *Csat(iv-ipcg1_b_c_g+1))\n!          endif\n            mnkfresh=min(mnkfresh,frqfresh(ibin))\n            mnkaged=min(mnkaged,frqaged(ibin))\n\n            mxkfresh=max(mxkfresh,frqfresh(ibin))\n            mxkaged=max(mxkaged,frqaged(ibin))\n          enddo ! for ibin\n!          Repeat code from this point on for aged aerosol species\n            if (flagsoap(iv-start_ind+1).eq.2) then\n!            if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n! Condensation is favored in the next time step in this bin\n          if(dq.gt.0.and.mnkfresh.lt.0.and.mxkfresh.gt.0) then\n             do ibin=1,nbin_a\n               frqfresh(ibin)=max(frqfresh(ibin)-mnkfresh,0.0d0)\n              enddo\n! evaporation is favored in the next time step in this bin\n          elseif(dq.lt.0.and.mxkfresh.gt.0.and.mnkfresh.lt.0) then\n              do ibin=1,nbin_a\n              frqfresh(ibin)=min(frqfresh(ibin)-mxkfresh,0.0d0)\n              enddo\n           endif\n           do ibin=1,nbin_a\n            frqtotfresh=frqtotfresh+frqfresh(ibin)\n           enddo\n! Re-normalize frqfresh(ibin)\n! Additional code to check for frqtotfresh and frqtotaged\n! Added by Manish Shrivastava on 02/19/2010\n\n          do ibin=1,nbin_a\n           frqfresh(ibin)=frqfresh(ibin)/frqtotfresh\n           enddo\n \n            elseif(flagsoap(iv-start_ind+1).eq.1) then\n!            elseif(flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n          if(dq.gt.0.and.mnkaged.lt.0.and.mxkaged.gt.0) then\n             do ibin=1,nbin_a\n               frqaged(ibin)=max(frqaged(ibin)-mnkaged,0.0d0)\n              enddo\n          elseif(dq.lt.0.and.mxkaged.gt.0.and.mnkaged.lt.0) then\n              do ibin=1,nbin_a\n              frqaged(ibin)=min(frqaged(ibin)-mxkaged,0.0d0)\n              enddo\n           endif\n\n           do ibin=1,nbin_a\n            frqtotaged=frqtotaged+frqaged(ibin)\n           enddo\n\n           do ibin=1,nbin_a\n           frqaged(ibin)=frqaged(ibin)/frqtotaged\n           enddo\n\n           endif ! for flagsoap\n!     Condense all condensing species\n           if(dq.gt.0.0d0) then\n\n            !  Map the species back into the original MOSAIC arrays\n             do ibin=1,nbin_a\n                 if (flagsoap(iv-start_ind+1).eq.2) then\n                 aer(iv,jtotal,ibin)= aer(iv,jtotal,ibin)+dq*frqfresh(ibin)\n                 endif\n                if (flagsoap(iv-start_ind+1).eq.1) then\n                aer(iv,jtotal,ibin)= aer(iv,jtotal,ibin)+dq*frqaged(ibin)\n                endif\n             enddo\n! Set the gas phase species to equilibrium value\n                gas(iv)=Cgas(iv-start_ind+1)\n\n!             do ibin=1,nbin_a\n!                 if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n!                 aer(iv,jtotal,ibin)= aer(iv,jtotal,ibin)+dq*frqfresh(ibin)\n!                 endif\n!                if (flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n!                aer(iv,jtotal,ibin)= aer(iv,jtotal,ibin)+dq*frqaged(ibin)\n!                endif\n!             enddo\n!! Set the gas phase species to equilibrium value\n!                gas(iv)=Cgas(iv-ipcg1_b_c_g+1)\n\n!     Evaporate all evaporating species\n         elseif(dq.lt.0.0d0) then\n            iter=0\n100         frt=1.0d0\n               do ibin=1,nbin_a\n                   if (flagsoap(iv-start_ind+1).eq.2) then\n!                   if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n! Cannot evaporate more than whats in the bin ie ratio (aer(iv,jtotal,ibin)/dq*frqfresh(ibin)) should be less than equal to 1\n                 if(frqfresh(ibin).gt.0.0d0) &\n         frt=MAX(MIN(aer(iv,jtotal,ibin)/abs(-dq*frqfresh(ibin)),frt),0.0d0)\n!                  elseif(flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n                  elseif(flagsoap(iv-start_ind+1).eq.1) then\n               if(frqaged(ibin).gt.0.0d0) &\n         frt=MAX(MIN(aer(iv,jtotal,ibin)/abs(-dq*frqaged(ibin)),frt),0.0d0)\n                  endif ! for flagsoap\n               enddo ! for ibin\n\n\n\n         frqtotfresh=0.0d0\n         frqtotaged=0.0d0\n\n             do ibin=1,nbin_a\n        if (flagsoap(iv-start_ind+1).eq.2) then\n!        if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n               aer(iv,jtotal,ibin)= &\n! Since dq is negative this is evaporating aerosols\n               MAX(aer(iv,jtotal,ibin)+frt*dq*frqfresh(ibin),0.0d0)\n         if(aer(iv,jtotal,ibin).lt.tinys) frqfresh(ibin)=0.0d0\n              frqtotfresh=frqtotfresh+frqfresh(ibin)\n!        elseif (flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n        elseif (flagsoap(iv-start_ind+1).eq.1) then\n               aer(iv,jtotal,ibin)= &\n               MAX(aer(iv,jtotal,ibin)+frt*dq*frqaged(ibin),0.0d0)\n         if(aer(iv,jtotal,ibin).lt.tinys) frqaged(ibin)=0.0d0\n              frqtotaged=frqtotaged+frqaged(ibin)\n         endif ! for flagsoap\n             enddo ! for ibin\n\n! Check if we should evaporate more\n          dq=(1.0d0-frt)*dq\n!         if (flagsoap(iv-ipcg1_b_c_g+1).eq.2) then\n         if (flagsoap(iv-start_ind+1).eq.2) then\n           if(dq.lt.-1.d-8) then ! check if d-8 is better\n             if(frqtotfresh.gt.tinys) then ! we have sections which are not empty\n              if(iter.le.itermax) then ! check infinite loop\n                iter = iter + 1\n                do ibin = 1,nbin_a\n                  frqfresh(ibin) = frqfresh(ibin) / frqtotfresh\n                enddo ! for ibin\n             goto 100\n            endif ! for iter\n          endif ! frqtotfresh.gt.tinys\n           endif ! dq.lt.-1.d-7\n!          elseif (flagsoap(iv-ipcg1_b_c_g+1).eq.1) then\n          elseif (flagsoap(iv-start_ind+1).eq.1) then\n           if(dq.lt.-1.d-8) then\n             if(frqtotaged.gt.tinys) then ! we have sections which are not empty\n              if(iter.le.itermax) then ! check infinite loop\n                iter = iter + 1\n                do ibin = 1,nbin_a\n                  frqaged(ibin) = frqaged(ibin) / frqtotaged\n                enddo\n               goto 100\n          endif\n            endif\n            endif\n\n            ! we need to evaporate more to achieve equilibrium\n            ! but we completely evaporated the species in all sections\n            ! or exceeded itermax\n           endif ! for flagsoap\n\n! now set the gas species concentration conservatively\n!           gas(iv)=Ctot(iv-ipcg1_b_c_g+1)\n           gas(iv)=Ctot(iv-start_ind+1)\n             do ibin=1,nbin_a\n               gas(iv)=gas(iv)-aer(iv,jtotal,ibin)\n             enddo\n        endif ! if dq.gt.0\n\n120       continue\n           enddo ! for iv=start_ind\n\n       end subroutine equilibrium\n\n\n!---------------------------------\n! Calculates the equilibrium gas-particle partitioning for SOA species when MOZART_MOSAIC_4BIN_KPP is used\n! This routine was modified by Alma Hodzic based on the initial code implemented by Manish Shrivastava and originated from CAMx \n\n!++ alma - removed the subroutine  equilibrium_smp\n!        subroutine  equilibrium_smp\n!..\n!       end subroutine equilibrium_smp\n!--\n\n!    This subroutine spfcn calculates the objective function fval to solve gas-particle partitioning of SOA\n!    Subroutine spfcn is called from within the subroutine soap\n        subroutine spfcn(N,Ctot,Csat,Ca,cpx,tom,fval)\n!        use module_data_mosaic_main\n!        use module_data_mosaic_aero\n      implicit none\n       real(kind=8):: Ctot(N),Csat(N),Ca(N),tom,fval,cpx\n\n         integer i,N\n        fval=0.0\n         do i=1, N\n         Ca(i)=Ctot(i)*tom/(tom+Csat(i)/1)! Replace the divisor 1 by Molecular Weights if the units for Csat(i) are ug/m3 or ng/m3\n        fval=fval+Ca(i)/1 ! The divisor is set to 1 as the species are in nmol/m3\n        enddo\n          fval=fval+cpx-tom\n        return\n\n       end subroutine spfcn\n\n\n        subroutine soap(N,Ctot,Csat,Ca,Cgas,cpx)\n! SOAP calculates the gas-partitioning of SOA. Adapted from PMCAMx and uses the bisection approach.\n! SOAP calls subroutine spfcn which calculates the objective function for solving gas-particle partitioning\n!        use module_data_mosaic_main\n!        use module_data_mosaic_aero\n\n        real(kind=8),  parameter :: xtol = 5.0e-5\n          real(kind=8):: Ctot(N),Csat(N),cpx,Ca(N),Cgas(N)\n          real(kind=8):: xend,dx,xmid,fend,fmid,sun\n         integer i,N,znum\n        \n         sun=0.0\n          do i=1,N\n            if (Csat(i).gt.0) then\n            sun=sun+Ctot(i)/Csat(i) !If a species does not exist its Csat is zero\n           else\n           endif\n          enddo\n         if(cpx.lt.1e-9.and.sun.le.1.0) then !if ctots for all species are less than corr. csats and cpre is negligible\n           do i=1,N\n             Cgas(i)=Ctot(i)\n             Ca(i)=0.0\n           enddo\n         goto 900\n        endif\n\n       xend=0.0\n       do i=1, N\n         xend=xend+Ctot(i)/1 ! Replace the divisor 1 by molecular weight if the units of Ctot(i) are in ng/m3 or ug/m3\n         enddo\n        xend=xend+cpx ! total number of moles\n       if (xend.gt.1e-10) then \n           call spfcn(N,Ctot,Csat,Ca,cpx,xend,fend) ! Calculates the objective function\n        else\n!          write (2,*) \"Total no of moles less than 1e-10 bypassing soap\" \n              goto 100\n      endif\n          if(abs(fend).le.xtol*xend) goto 99 ! Check for tolerance\n          if (fend.gt.0.0) then ! The objective function is supposed to be less than equal to zero\n         write (2,*) \"Error in SOAP\"\n         goto 50\n        endif\n           dx=xend-cpx\n        do znum=1,200\n        dx=0.5*dx\n         xmid=xend-dx ! Find the midpoint following the bisection approach\n           call spfcn (N,Ctot,Csat,Ca,cpx,xmid,fmid) ! Re-calculate the objective function\n          if(abs(fmid).le.xtol*xmid.or.dx.le.xtol*xmid) goto 100 ! converged\n           if (fmid.lt.0.0) xend=xmid\n         enddo\n        write (2,*) \"Error in SOAP\"\n        write (2,*) \"Error: max number of iterations reached\"\n50      stop\n\n99     xmid=xend\n100    continue\n        do i=1, N\n        Ca(i)=min(Ctot(i), Ca(i))\n        Cgas(i)=Ctot(i)-Ca(i)\n       enddo\n900   continue\n        \n\n!     write(2,*) xmid\n     return\n\n       end subroutine soap\n\n\n\n!***********************************************************************\n! part of ASTEM: integrates semi-volatile inorganic gases\n!\n! author: Rahul A. Zaveri\n! update: jan 2007\n!-----------------------------------------------------------------------\n      subroutine ASTEM_semi_volatiles(dtchem)\n!      implicit none\n!      include 'chemistry.com'\n!      include 'mosaic.h'\n! subr arguments\n      real(kind=8) dtchem\n! local variables\n      integer ibin, iv, jp\n      real(kind=8) dtmax, t_new, t_old, t_out, xt\n      real(kind=8) sum1, sum2, sum3, sum4, sum4a, sum4b, h_flux_s\n\n\n! initialize time\n      t_old = 0.0\n      t_out = dtchem\n\n! reset ASTEM time steps and MESA iterations counters to zero\n      isteps_ASTEM = 0\n      do ibin = 1, nbin_a\n        iter_MESA(ibin) = 0\n      enddo\n\n!--------------------------------\n! overall integration loop begins over dtchem seconds\n\n10    isteps_ASTEM = isteps_ASTEM + 1\n\n! compute new fluxes\n      phi_nh4no3_s = 0.0\n      phi_nh4cl_s  = 0.0\n      ieqblm_ASTEM = mYES\t\t\t! reset to default\n\n      do 501 ibin = 1, nbin_a\n\n        idry_case3a(ibin) = mNO\t\t\t! reset to default\n! default fluxes and other stuff\n        do iv = 1, ngas_ioa\n          sfc_a(iv)                  = gas(iv)\n          df_gas_s(iv,ibin)          = 0.0\n          df_gas_l(iv,ibin)          = 0.0\n          flux_s(iv,ibin)            = 0.0\n          flux_l(iv,ibin)            = 0.0\n          Heff(iv,ibin)              = 0.0\n          volatile_s(iv,ibin)        = 0.0\n          phi_volatile_s(iv,ibin)    = 0.0\n          phi_volatile_l(iv,ibin)    = 0.0\n          integrate(iv,jsolid,ibin)  = mNO\t! reset to default\n          integrate(iv,jliquid,ibin) = mNO\t! reset to default\n        enddo\n\n\n        if(jaerosolstate(ibin) .eq. all_solid)then\n          jphase(ibin) = jsolid\n          call ASTEM_flux_dry(ibin)\n        elseif(jaerosolstate(ibin) .eq. all_liquid)then\n          jphase(ibin) = jliquid\n          call ASTEM_flux_wet(ibin)\n        elseif(jaerosolstate(ibin) .eq. mixed)then\n\n          if( electrolyte(jnh4no3,jsolid,ibin).gt. 0.0 .or. &\n              electrolyte(jnh4cl, jsolid,ibin).gt. 0.0 )then\n            call ASTEM_flux_mix(ibin)\t! jphase(ibin) will be determined in this subr.\n          else\n            jphase(ibin) = jliquid\n            call ASTEM_flux_wet(ibin)\n          endif\n\n        endif\n\n501   continue\n\n      if(ieqblm_ASTEM .eq. mYES)goto 30\t! all bins have reached eqblm, so quit.\n\n!-------------------------\n\n\n! calculate maximum possible internal time-step\n11    call ASTEM_calculate_dtmax(dtchem, dtmax)     \n      t_new = t_old + dtmax\t! update time\n      if(t_new .gt. t_out)then\t! check if the new time step is too large\n        dtmax = t_out - t_old\n        t_new = t_out*1.01\n      endif\n\n\n!------------------------------------------\n! do internal time-step (dtmax) integration\n\n      do 20 iv = 2, 4\n\n        sum1 = 0.0\n        sum2 = 0.0\n        sum3 = 0.0\n        sum4 = 0.0\n        sum4a= 0.0\n        sum4b= 0.0\n\n        do 21 ibin = 1, nbin_a\n          if(jaerosolstate(ibin) .eq. no_aerosol)goto 21\n\n          jp = jliquid\n          sum1 = sum1 + aer(iv,jp,ibin)/ &\n          (1. + dtmax*kg(iv,ibin)*Heff(iv,ibin)*integrate(iv,jp,ibin))\n\n          sum2 = sum2 + kg(iv,ibin)*integrate(iv,jp,ibin)/ &\n          (1. + dtmax*kg(iv,ibin)*Heff(iv,ibin)*integrate(iv,jp,ibin))\n\n          jp = jsolid\n          sum3 = sum3 + aer(iv,jp,ibin)\n\n          if(flux_s(iv,ibin) .gt. 0.)then\n            h_flux_s = dtmax*flux_s(iv,ibin)\n            sum4a = sum4a + h_flux_s\n            aer(iv,jp,ibin) = aer(iv,jp,ibin) + h_flux_s\n          elseif(flux_s(iv,ibin) .lt. 0.)then\n            h_flux_s = min(h_s_i_m(iv,ibin),dtmax)*flux_s(iv,ibin)\n            sum4b = sum4b + h_flux_s\n            aer(iv,jp,ibin) = aer(iv,jp,ibin) + h_flux_s\n            aer(iv,jp,ibin) = max(aer(iv,jp,ibin), 0.0D0)\n          endif\n          \n21      continue\n\n        sum4 = sum4a + sum4b\n\n\n! first update gas concentration\n        gas(iv) = (total_species(iv) - (sum1 + sum3 + sum4) )/ &\n                              (1. + dtmax*sum2)\n        gas(iv) = max(gas(iv), 0.0D0)\n\n!        if(gas(iv) .lt. 0.)write(6,*) gas(iv)\n        \n! now update aer concentration in the liquid phase\n        do 22 ibin = 1, nbin_a\n\n          if(integrate(iv,jliquid,ibin) .eq. mYES)then\n            aer(iv,jliquid,ibin) =  &\n             (aer(iv,jliquid,ibin) + dtmax*kg(iv,ibin)*gas(iv))/ &\n                  (1. + dtmax*kg(iv,ibin)*Heff(iv,ibin))\n\n          endif\n\n22      continue\n\n\n20    continue\n!------------------------------------------\n! sub-step integration done\n\n\n!------------------------------------------\n! now update aer(jtotal) and update internal phase equilibrium\n! also do integration of species by mass balance if necessary\n\n      do 40 ibin = 1, nbin_a\n        if(jaerosolstate(ibin) .eq. no_aerosol)goto 40\n\n        if(jphase(ibin) .eq. jsolid)then\n          call form_electrolytes(jsolid,ibin,XT)  ! degas excess nh3 (if present)\n        elseif(jphase(ibin) .eq. jliquid)then\n          call form_electrolytes(jliquid,ibin,XT) ! degas excess nh3 (if present)\n        elseif(jphase(ibin) .eq. jtotal)then\n          call form_electrolytes(jsolid,ibin,XT)  ! degas excess nh3 (if present)\n          call form_electrolytes(jliquid,ibin,XT) ! degas excess nh3 (if present)\n        endif\n\n!========================\n! now update jtotal\n        do iv = 2, ngas_ioa\n          aer(iv,jtotal,ibin)=aer(iv,jsolid,ibin)+aer(iv,jliquid,ibin)\n        enddo\n!========================\n\n\n        call form_electrolytes(jtotal,ibin,XT)\t! for MDRH diagnosis\n\n\n\n! update internal phase equilibrium\n        if(jhyst_leg(ibin) .eq. jhyst_lo)then\n          call ASTEM_update_phase_eqblm(ibin)\n        else\n          call do_full_deliquescence(ibin)\t\t! simply do liquid <-- total\n        endif\n      \n\n40    continue\n!------------------------------------------\n\n! update time\n      t_old = t_new\n    \n\n      if(isteps_astem .ge. nmax_astem)then\n        nastem_fail = nastem_fail + 1\n        !Luodebugwrite(6,*)'ASTEM internal steps exceeded', nmax_astem\n        if(iprint_input .eq. mYES)then\n          !write(67,*)'ASTEM internal steps exceeded', nmax_astem\n          !call print_input\n          iprint_input = mNO\n        endif\n        goto 30\n      elseif(t_new .lt. t_out)then\n        goto 10\n      endif\n\n\n! check if end of dtchem reached\n      if(t_new .lt. 0.9999*t_out) goto 10\n\n30    nsteps_astem = nsteps_astem + isteps_astem\t\t! cumulative steps\n      nsteps_astem_max = max(nsteps_astem_max, isteps_astem)\t! max steps in a dtchem time-step\n\n!================================================\n! end of overall integration loop over dtchem seconds\n\n\n\n! call subs to calculate fluxes over mixed-phase particles to update H+ ions, \n! which were wiped off during update_phase_eqblm\n!      do ibin = 1, nbin_a\n!\n!        if(jaerosolstate(ibin) .eq. mixed)then\n!          if( electrolyte(jnh4no3,jsolid,ibin).gt. 0.0 .or. &\n!              electrolyte(jnh4cl, jsolid,ibin).gt. 0.0 )then\n!            call ASTEM_flux_mix(ibin)\t\t! jphase(ibin) will be determined in this subr.\n!          else\n!            jphase(ibin) = jliquid\n!            call ASTEM_flux_wet(ibin)\n!          endif\n!        endif\n!\n!      enddo\n\n\n\n      return\n      end subroutine ASTEM_semi_volatiles\n     \n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of ASTEM: computes max time step for gas-aerosol integration\n!\n! author: Rahul A. Zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine ASTEM_calculate_dtmax(dtchem, dtmax)\n       use module_data_mosaic_other, only:  lunerr\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      real(kind=8) dtchem, dtmax\n! local variables\n      integer ibin, iv   \n      real(kind=8) alpha, h_gas, h_sub_max,  &\n           h_gas_i(ngas_ioa), h_gas_l, h_gas_s,  &\n           sum_kg_phi, sumflux_s\n\n\n      h_sub_max = 100.0\t! sec  raz update 4/30/2007\n\n\n! gas-side\n\n! solid-phase\n! calculate h_gas_i and h_gas_l\n\n      h_gas_s = 2.e16\n\n      do 5 iv = 2, ngas_ioa  \n        h_gas_i(iv) = 1.e16\n        sumflux_s = 0.0\n        do ibin = 1, nbin_a\n          if(flux_s(iv,ibin) .gt. 0.0)then\n            sumflux_s = sumflux_s + flux_s(iv,ibin)\n          endif        \n        enddo\n        \n        if(sumflux_s .gt. 0.0)then\n          h_gas_i(iv) = 0.1*gas(iv)/sumflux_s     ! raz-30apr07\n          h_gas_s     = min(h_gas_s, h_gas_i(iv))\n        endif\n\n5     continue\n      \n\n! liquid-phase\n! calculate h_gas_s and h_gas_l\n\n      h_gas_l = 2.e16\n\n      do 6 iv = 2, ngas_ioa  \n        h_gas_i(iv) = 1.e16\n        sum_kg_phi = 0.0\n        do ibin = 1, nbin_a\n          if(integrate(iv,jliquid,ibin) .eq. mYES)then\n          sum_kg_phi = sum_kg_phi +  &\n                       abs(phi_volatile_l(iv,ibin))*kg(iv,ibin)\n          endif        \n        enddo\n        \n        if(sum_kg_phi .gt. 0.0)then\n          h_gas_i(iv) = alpha_astem/sum_kg_phi\n          h_gas_l     = min(h_gas_l, h_gas_i(iv))\n        endif\n\n6     continue\n\n      h_gas = min(h_gas_s, h_gas_l)\n      h_gas = min(h_gas, h_sub_max)\n\n\n\n\n! aerosol-side: solid-phase\n\n! first load volatile_solid array\n      do ibin = 1, nbin_a\n\n        volatile_s(ino3_a,ibin) = electrolyte(jnh4no3,jsolid,ibin)\n        volatile_s(inh4_a,ibin) = electrolyte(jnh4cl,jsolid,ibin) +  &\n                                  electrolyte(jnh4no3,jsolid,ibin)\n\n        if(idry_case3a(ibin) .eq. mYES)then\n          volatile_s(icl_a,ibin)  = aer(icl_a,jsolid,ibin)\n        else\n          volatile_s(icl_a,ibin)  = electrolyte(jnh4cl,jsolid,ibin)\n        endif\n\n      enddo\n\n\n! next calculate weighted avg_df_gas_s\n      do iv = 2, ngas_ioa\n\n        sum_bin_s(iv) = 0.0\n        sum_vdf_s(iv) = 0.0\n        sum_vol_s(iv) = 0.0\n\n        do ibin = 1, nbin_a\n          if(flux_s(iv,ibin) .lt. 0.)then\t! aer -> gas\n            sum_bin_s(iv) = sum_bin_s(iv) + 1.0\n            sum_vdf_s(iv) = sum_vdf_s(iv) +  &\n                            volatile_s(iv,ibin)*df_gas_s(iv,ibin)\n            sum_vol_s(iv) = sum_vol_s(iv) + volatile_s(iv,ibin)\n          endif\n        enddo\n\n        if(sum_vol_s(iv) .gt. 0.0)then\n          avg_df_gas_s(iv) = sum_vdf_s(iv)/sum_vol_s(iv)\n        else\n          avg_df_gas_s(iv) = 1.0 ! never used, but set to 1.0 just to be safe\n        endif\n\n      enddo\n\n\n! calculate h_s_i_m\n\n\n      do 20 ibin = 1, nbin_a\n        \n        if(jaerosolstate(ibin) .eq. no_aerosol) goto 20        \n        \n        do 10 iv = 2, ngas_ioa\n\n          if(flux_s(iv,ibin) .lt. 0.)then\t\t\t\t! aer -> gas\n\n            alpha = abs(avg_df_gas_s(iv))/  &\n                   (volatile_s(iv,ibin)*sum_bin_s(iv))\n            alpha = min(alpha, 1.0D0)\n\n            if(idry_case3a(ibin) .eq. mYES)alpha = 1.0D0\n\n            h_s_i_m(iv,ibin) =  &\n                 -alpha*volatile_s(iv,ibin)/flux_s(iv,ibin)\n\n          endif\n\n10      continue\n        \n\n20    continue\n      \n\n      dtmax = min(dtchem, h_gas)\n\n\n      if(dtmax .eq. 0.0)then\n        write(6,*)' dtmax = ', dtmax\n        write(67,*)' dtmax = ', dtmax\n        call print_input\n        iprint_input = mNO\n      endif\n\n      return\n      end subroutine astem_calculate_dtmax\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of ASTEM: updates solid-liquid partitioning after each gas-aerosol\n! mass transfer step\n!\n! author: Rahul A. Zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine ASTEM_update_phase_eqblm(ibin)\t! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer jdum, js, j_index, je\t! raz update 11/13/2008\n      real(kind=8) XT, sum_dum\t! raz update 11/13/2008\n      \n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do je = 1, nelectrolyte\n        sum_dum = sum_dum + electrolyte(je,jtotal,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      do je = 1, nelectrolyte\n        epercent(je,jtotal,ibin) = 100.*electrolyte(je,jtotal,ibin)/sum_dum\n      enddo\n\n\n! calculate overall sulfate ratio      \n      call calculate_XT(ibin,jtotal,XT)\t\t! calc updated XT\n      \n! now diagnose MDRH\n      if(XT .lt. 1. .and. XT .gt. 0. )goto 10\t! excess sulfate domain - no MDRH exists\n      \n      jdum = 0\n      do js = 1, nsalt\n        jsalt_present(js) = 0\t\t\t! default value - salt absent\n        \n        if(epercent(js,jtotal,ibin) .gt. ptol_mol_astem)then\n          jsalt_present(js) = 1\t\t\t! salt present\n          jdum = jdum + jsalt_index(js)\n        endif\n      enddo\n      \n      if(jdum .eq. 0)then\n        jaerosolstate(ibin) = all_solid ! no significant soluble material present\n        jphase(ibin) = jsolid\n        call adjust_solid_aerosol(ibin)      \n        return\n      endif\n      \n      if(XT .ge. 2.0 .or. XT .lt. 0.0)then\n        j_index = jsulf_poor(jdum)\n      else\n        j_index = jsulf_rich(jdum)\n      endif\n      \n      MDRH(ibin) = MDRH_T(j_index)\n      \n      if(aH2O*100. .lt. MDRH(ibin)) then\n        jaerosolstate(ibin) = all_solid\n        jphase(ibin) = jsolid\n        call adjust_solid_aerosol(ibin)\n        return\n      endif\n\n\n! none of the above means it must be sub-saturated or mixed-phase\n10    if(jphase(ibin) .eq. jsolid)then\n        call do_full_deliquescence(ibin)\n        call MESA_PTC(ibin)\n      else\n        call MESA_PTC(ibin)\n      endif\n\n\n\n      return\n      end subroutine ASTEM_update_phase_eqblm\n\n\n\n\n\n\n\n\n\n\n\n\n!==================================================================\n!\n! LIQUID PARTICLES\n!\n!***********************************************************************\n! part of ASTEM: computes fluxes over wet aerosols\n!\n! author: Rahul A. Zaveri\n! update: Jan 2007\n!-----------------------------------------------------------------------\n      subroutine ASTEM_flux_wet(ibin)\n      use module_data_mosaic_other, only:  lunerr\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iv, iadjust, iadjust_intermed\n      real(kind=8) xt, g_nh3_hno3, g_nh3_hcl, a_nh4_no3, a_nh4_cl\n\n\n\n      call ions_to_electrolytes(jliquid,ibin,XT)  \t! for water content calculation\n      call compute_activities(ibin)\n\n      if(water_a(ibin) .eq. 0.0)then\n\twrite(6,*)'Water is zero in liquid phase'\n      endif\n\n!-------------------------------------------------------------------\n! CASE 1: caco3 > 0 absorb acids (and indirectly degas co2)\n\n      if(electrolyte(jcaco3,jsolid,ibin) .gt. 0.0)then\n        call ASTEM_flux_wet_case1(ibin)\n        return\n      endif\n\n!-------------------------------------------------------------------\n! CASE 2: Sulfate-Rich Domain\n\n      if(XT.lt.1.9999 .and. XT.ge.0.)then\n        call ASTEM_flux_wet_case2(ibin)\n        return\n      endif\n\n!-------------------------------------------------------------------\n\n      if( (gas(inh3_g)+aer(inh4_a,jliquid,ibin)) .lt. 1.e-25)goto 10  ! no ammonia in the system\n\n!-------------------------------------------------------------------\n! CASE 3: nh4no3 and/or nh4cl maybe active\n! do some small adjustments (if needed) before deciding case 3\n\n      iadjust = mNO\t\t! default\n      iadjust_intermed = mNO\t! default\n\n! nh4no3\n      g_nh3_hno3 = gas(inh3_g)*gas(ihno3_g)\n      a_nh4_no3  = aer(inh4_a,jliquid,ibin)*aer(ino3_a,jliquid,ibin)\n\n      if(g_nh3_hno3 .gt. 0. .and. a_nh4_no3 .eq. 0.)then\n        call absorb_tiny_nh4no3(ibin)\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n        iadjust_intermed = mNO\t! reset\n      endif\n\n! nh4cl\n      g_nh3_hcl = gas(inh3_g)*gas(ihcl_g)\n      a_nh4_cl  = aer(inh4_a,jliquid,ibin)*aer(icl_a,jliquid,ibin)\n\n      if(g_nh3_hcl .gt. 0. .and. a_nh4_cl .eq. 0.)then\n        call absorb_tiny_nh4cl(ibin)\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n      endif\n    \n      if(iadjust .eq. mYES)then\n        call compute_activities(ibin)\t\t\t! update after adjustments\n      endif\n\n\n! all adjustments done...\n\n!--------\n      kelvin_nh4no3 = kel(inh3_g,ibin)*kel(ihno3_g,ibin)\n      Keq_nh4no3 = kelvin_nh4no3*activity(jnh4no3,ibin)*Kp_nh4no3\t! = [NH3]s * [HNO3]s\n\n      kelvin_nh4cl = kel(inh3_g,ibin)*kel(ihcl_g,ibin)\n      Keq_nh4cl = kelvin_nh4cl*activity(jnh4cl,ibin)*Kp_nh4cl\t! = [NH3]s * [HCl]s\n\n      call ASTEM_flux_wet_case3(ibin)\n\n      return\n\n\n!-------------------------------------------------------------------\n! CASE 4: ammonia = 0. hno3 and hcl exchange may happen here\n! do small adjustments (if needed) before deciding case 4\n\n10    iadjust = mNO\t\t! default\n      iadjust_intermed = mNO\t! default\n\n! hno3\n      if(gas(ihno3_g).gt.0. .and. aer(ino3_a,jliquid,ibin).eq.0. .and. &\n         aer(icl_a,jliquid,ibin) .gt. 0.0)then\n        call absorb_tiny_hno3(ibin)\t! and degas tiny hcl\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n        iadjust_intermed = mNO\t! reset\n      endif\n\n! hcl\n      if(gas(ihcl_g).gt.0. .and. aer(icl_a,jliquid,ibin).eq.0. .and. &\n         aer(ino3_a,jliquid,ibin) .gt. 0.0)then\n        call absorb_tiny_hcl(ibin)\t! and degas tiny hno3\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n      endif\n\n      if(iadjust .eq. mYES)then\n        call compute_activities(ibin)\t\t\t! update after adjustments\n      endif\n      \n! all adjustments done...\n\n      call ASTEM_flux_wet_case4(ibin)\n\n\n      return\n      end subroutine ASTEM_flux_wet\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of ASTEM: subroutines for flux_wet cases\n!\n! author: Rahul A. Zaveri\n! update: Jan 2007\n!-----------------------------------------------------------------------\n\n! CASE 1: CaCO3 > 0 absorb all acids (and indirectly degas co2)\n\n      subroutine ASTEM_flux_wet_case1(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iv\n      \n      mc(jc_h,ibin) = sqrt(Keq_ll(3))\n\n! same as dry case1\n      if(gas(ihno3_g) .gt. 1.e-5)then\n        sfc_a(ihno3_g) = 0.0\n        df_gas_s(ihno3_g,ibin) = gas(ihno3_g)\n        phi_volatile_s(ihno3_g,ibin) = 1.0\n        flux_s(ihno3_g,ibin) = kg(ihno3_g,ibin)*df_gas_s(ihno3_g,ibin)\n        integrate(ihno3_g,jsolid,ibin) = mYES\n        jphase(ibin) = jsolid\n        ieqblm_ASTEM = mNO\n      endif\n\n      if(gas(ihcl_g) .gt. 1.e-5)then\n        sfc_a(ihcl_g)  = 0.0\n        df_gas_s(ihcl_g,ibin) = gas(ihcl_g)\n        phi_volatile_s(ihcl_g,ibin) = 1.0\n        flux_s(ihcl_g,ibin) = kg(ihcl_g,ibin)*df_gas_s(ihcl_g,ibin)\n        integrate(ihcl_g,jsolid,ibin)  = mYES\n        jphase(ibin) = jsolid\n        ieqblm_ASTEM = mNO\n      endif\n\n      return\n      end subroutine ASTEM_flux_wet_case1\n\n\n\n!--------------------------------------------------------------------\n! CASE 2: Sulfate-Rich Domain\n\n      subroutine ASTEM_flux_wet_case2(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) dum_hno3, dum_hcl, dum_nh3\n\n\n      sfc_a(inh3_g)  = kel(inh3_g,ibin)* &\n                       gam_ratio(ibin)*mc(jc_nh4,ibin)*Keq_ll(3)/ &\n                        (mc(jc_h,ibin)*Keq_ll(2)*Keq_gl(2))\n\n      sfc_a(ihno3_g) = kel(ihno3_g,ibin)* &\n                   mc(jc_h,ibin)*ma(ja_no3,ibin)*gam(jhno3,ibin)**2/ &\n                   Keq_gl(3)\n\n      sfc_a(ihcl_g)  = kel(ihcl_g,ibin)* &\n                   mc(jc_h,ibin)*ma(ja_cl,ibin)*gam(jhcl,ibin)**2/ &\n                   Keq_gl(4)\n\n      dum_hno3 = max(sfc_a(ihno3_g), gas(ihno3_g))\n      dum_hcl  = max(sfc_a(ihcl_g), gas(ihcl_g))\n      dum_nh3  = max(sfc_a(inh3_g), gas(inh3_g))\n\n\n! compute relative driving forces\n      if(dum_hno3 .gt. 0.0)then\n        df_gas_l(ihno3_g,ibin) = gas(ihno3_g) - sfc_a(ihno3_g)\n        phi_volatile_l(ihno3_g,ibin)= df_gas_l(ihno3_g,ibin)/dum_hno3\n      else\n        phi_volatile_l(ihno3_g,ibin)= 0.0\n      endif\n\n      if(dum_hcl .gt. 0.0)then\n        df_gas_l(ihcl_g,ibin)  = gas(ihcl_g)  - sfc_a(ihcl_g)\n        phi_volatile_l(ihcl_g,ibin) = df_gas_l(ihcl_g,ibin)/dum_hcl\n      else\n        phi_volatile_l(ihcl_g,ibin) = 0.0\n      endif\n\n      if(dum_nh3 .gt. 0.0)then\n        df_gas_l(inh3_g,ibin)  = gas(inh3_g)  - sfc_a(inh3_g)\n        phi_volatile_l(inh3_g,ibin) = df_gas_l(inh3_g,ibin)/dum_nh3\n      else\n        phi_volatile_l(inh3_g,ibin) = 0.0\n      endif\n\n\n      if(phi_volatile_l(ihno3_g,ibin) .le. rtol_eqb_astem .and. &\n         phi_volatile_l(ihcl_g,ibin)  .le. rtol_eqb_astem .and. &\n         phi_volatile_l(inh3_g,ibin)  .le. rtol_eqb_astem)then\n\n        return\n\n      endif\n\n\n! compute Heff\n      if(dum_hno3 .gt. 0.0)then\n        Heff(ihno3_g,ibin)=  &\n          kel(ihno3_g,ibin)*gam(jhno3,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(3))\n        integrate(ihno3_g,jliquid,ibin)= mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n      if(dum_hcl .gt. 0.0)then\n        Heff(ihcl_g,ibin)=  &\n          kel(ihcl_g,ibin)*gam(jhcl,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(4))\n        integrate(ihcl_g,jliquid,ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n      if(dum_nh3 .gt. 0.0)then\n        Heff(inh3_g,ibin) =  &\n             kel(inh3_g,ibin)*gam_ratio(ibin)*1.e-9*Keq_ll(3)/ &\n             (water_a(ibin)*mc(jc_h,ibin)*Keq_ll(2)*Keq_gl(2))\n        integrate(inh3_g,jliquid,ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n\n      return\n      end subroutine ASTEM_flux_wet_case2\n\n\n\n\n\n\n\n\n!---------------------------------------------------------------------\n! CASE 3: nh4no3 and/or nh4cl may be active\n\n      subroutine ASTEM_flux_wet_case3(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, b, c, dum_hno3, dum_hcl, dum_nh3\n! function\n!      real(kind=8) quadratic\n\n      a =   kg(inh3_g,ibin)\n      b = - kg(inh3_g,ibin)*gas(inh3_g)  &\n          + kg(ihno3_g,ibin)*gas(ihno3_g)  &\n          + kg(ihcl_g,ibin)*gas(ihcl_g)\n      c = -(kg(ihno3_g,ibin)*Keq_nh4no3 + kg(ihcl_g,ibin)*Keq_nh4cl)\n\n      sfc_a(inh3_g)  = quadratic(a,b,c)\n      sfc_a(ihno3_g) = Keq_nh4no3/max(sfc_a(inh3_g),1.D-20)\n      sfc_a(ihcl_g)  = Keq_nh4cl/max(sfc_a(inh3_g),1.D-20)\n\n\n! diagnose mH+\n      if(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n        mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n        (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n      elseif(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n        mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n        (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n      else\n        call equilibrate_acids(ibin)\t! hno3 and/or hcl may be > 0 in the gas phase\n        mc(jc_h,ibin)  = max(mc(jc_h,ibin), sqrt(Keq_ll(3)))\n\n        sfc_a(inh3_g)  = kel(inh3_g,ibin)* &\n                         gam_ratio(ibin)*mc(jc_nh4,ibin)*Keq_ll(3)/ &\n                        (mc(jc_h,ibin)*Keq_ll(2)*Keq_gl(2))\n\n        sfc_a(ihno3_g) = kel(ihno3_g,ibin)* &\n                   mc(jc_h,ibin)*ma(ja_no3,ibin)*gam(jhno3,ibin)**2/ &\n                   Keq_gl(3)\n        sfc_a(ihcl_g)  = kel(ihcl_g,ibin)* &\n                   mc(jc_h,ibin)*ma(ja_cl,ibin)*gam(jhcl,ibin)**2/ &\n                   Keq_gl(4)\n      endif\n\n\n\n      dum_hno3 = max(sfc_a(ihno3_g), gas(ihno3_g))\n      dum_hcl  = max(sfc_a(ihcl_g), gas(ihcl_g))\n      dum_nh3  = max(sfc_a(inh3_g), gas(inh3_g))\n\n! compute relative driving forces\n      if(dum_hno3 .gt. 0.0)then\n        df_gas_l(ihno3_g,ibin) = gas(ihno3_g) - sfc_a(ihno3_g)\n        phi_volatile_l(ihno3_g,ibin)= df_gas_l(ihno3_g,ibin)/dum_hno3\n      else\n        phi_volatile_l(ihno3_g,ibin)= 0.0\n      endif\n\n      if(dum_hcl .gt. 0.0)then\n        df_gas_l(ihcl_g,ibin)  = gas(ihcl_g)  - sfc_a(ihcl_g)\n        phi_volatile_l(ihcl_g,ibin) = df_gas_l(ihcl_g,ibin)/dum_hcl\n      else\n        phi_volatile_l(ihcl_g,ibin) = 0.0\n      endif\n\n      if(dum_nh3 .gt. 0.0)then\n        df_gas_l(inh3_g,ibin)  = gas(inh3_g)  - sfc_a(inh3_g)\n        phi_volatile_l(inh3_g,ibin) = df_gas_l(inh3_g,ibin)/dum_nh3\n      else\n        phi_volatile_l(inh3_g,ibin) = 0.0\n      endif\n\n\n\n      if(phi_volatile_l(ihno3_g,ibin) .le. rtol_eqb_astem .and. &\n         phi_volatile_l(ihcl_g,ibin)  .le. rtol_eqb_astem .and. &\n         phi_volatile_l(inh3_g,ibin)  .le. rtol_eqb_astem)then\n\n        return\n\n      endif\n\n\n! compute Heff\n      if(dum_hno3 .gt. 0.0)then\n        Heff(ihno3_g,ibin)=  &\n          kel(ihno3_g,ibin)*gam(jhno3,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(3))\n        integrate(ihno3_g,jliquid,ibin)= mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n      if(dum_hcl .gt. 0.0)then\n        Heff(ihcl_g,ibin)=  &\n          kel(ihcl_g,ibin)*gam(jhcl,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(4))\n        integrate(ihcl_g,jliquid,ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n      if(dum_nh3 .gt. 0.0)then\n        Heff(inh3_g,ibin) =  &\n             kel(inh3_g,ibin)*gam_ratio(ibin)*1.e-9*Keq_ll(3)/ &\n             (water_a(ibin)*mc(jc_h,ibin)*Keq_ll(2)*Keq_gl(2))\n        integrate(inh3_g,jliquid,ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n\n\n      return\n      end subroutine ASTEM_flux_wet_case3\n\n\n\n\n\n\n\n\n\n!--------------------------------------------------------------------\n! CASE 3a: only NH4NO3 (aq) active\n\n      subroutine ASTEM_flux_wet_case3a(ibin)\t! NH4NO3 (aq)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, b, c, dum_hno3, dum_nh3\n! function\n!      real(kind=8) quadratic\n\n\n      a =   kg(inh3_g,ibin)\n      b = - kg(inh3_g,ibin)*gas(inh3_g) &\n          + kg(ihno3_g,ibin)*gas(ihno3_g) \n      c = -(kg(ihno3_g,ibin)*Keq_nh4no3)\n\n      sfc_a(inh3_g)  = quadratic(a,b,c)\n      sfc_a(ihno3_g) = Keq_nh4no3/sfc_a(inh3_g)\n\n\n! diagnose mH+\n      if(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n        mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n          (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n      else\n        mc(jc_h,ibin) = sqrt(Keq_ll(3))\n      endif\n\n\n! compute Heff\n      dum_hno3 = max(sfc_a(ihno3_g), gas(ihno3_g))\n      dum_nh3  = max(sfc_a(inh3_g), gas(inh3_g))\n\n! compute relative driving forces\n      if(dum_hno3 .gt. 0.0)then\n        df_gas_l(ihno3_g,ibin) = gas(ihno3_g) - sfc_a(ihno3_g)\n        phi_volatile_l(ihno3_g,ibin)= df_gas_l(ihno3_g,ibin)/dum_hno3\n      else\n        phi_volatile_l(ihno3_g,ibin)= 0.0\n      endif\n\n      if(dum_nh3 .gt. 0.0)then\n        df_gas_l(inh3_g,ibin)  = gas(inh3_g)  - sfc_a(inh3_g)\n        phi_volatile_l(inh3_g,ibin) = df_gas_l(inh3_g,ibin)/dum_nh3\n      else\n        phi_volatile_l(inh3_g,ibin) = 0.0\n      endif\n\n\n      if(phi_volatile_l(ihno3_g,ibin) .le. rtol_eqb_astem .and. &\n         phi_volatile_l(inh3_g,ibin)  .le. rtol_eqb_astem)then\n\n        return\n\n      endif\n\n\n! compute Heff\n      Heff(ihno3_g,ibin)=  &\n        kel(ihno3_g,ibin)*gam(jhno3,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                     (water_a(ibin)*Keq_gl(3))\n      integrate(ihno3_g,jliquid,ibin)= mYES\n\n\n      Heff(inh3_g,ibin) =  &\n           kel(inh3_g,ibin)*gam_ratio(ibin)*1.e-9*Keq_ll(3)/ &\n           (water_a(ibin)*mc(jc_h,ibin)*Keq_ll(2)*Keq_gl(2))\n      integrate(inh3_g,jliquid,ibin) = mYES\n\n\n      ieqblm_ASTEM = mNO\n\n\n      return\n      end subroutine ASTEM_flux_wet_case3a\n\n\n\n\n\n\n\n\n\n!--------------------------------------------------------------------\n! CASE 3b: only NH4Cl (aq) active\n\n      subroutine ASTEM_flux_wet_case3b(ibin)\t! NH4Cl (aq)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, b, c, dum_hcl, dum_nh3\n! function\n!      real(kind=8) quadratic\n\n      \n      a =   kg(inh3_g,ibin)\n      b = - kg(inh3_g,ibin)*gas(inh3_g) &\n          + kg(ihcl_g,ibin)*gas(ihcl_g)  \n      c = -(kg(ihcl_g,ibin)*Keq_nh4cl)\n        \n      sfc_a(inh3_g)  = quadratic(a,b,c)\n      sfc_a(ihcl_g)  = Keq_nh4cl /sfc_a(inh3_g)\n\n\n! diagnose mH+\n      if(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n        mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n          (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n      else\n        mc(jc_h,ibin) = sqrt(Keq_ll(3))\n      endif\n\n\n! compute Heff\n      dum_hcl  = max(sfc_a(ihcl_g), gas(ihcl_g))\n      dum_nh3  = max(sfc_a(inh3_g), gas(inh3_g))\n\n\n! compute relative driving forces\n      if(dum_hcl .gt. 0.0)then\n        df_gas_l(ihcl_g,ibin)  = gas(ihcl_g)  - sfc_a(ihcl_g)\n        phi_volatile_l(ihcl_g,ibin) = df_gas_l(ihcl_g,ibin)/dum_hcl\n      else\n        phi_volatile_l(ihcl_g,ibin) = 0.0\n      endif\n\n      if(dum_nh3 .gt. 0.0)then\n        df_gas_l(inh3_g,ibin)  = gas(inh3_g)  - sfc_a(inh3_g)\n        phi_volatile_l(inh3_g,ibin) = df_gas_l(inh3_g,ibin)/dum_nh3\n      else\n        phi_volatile_l(inh3_g,ibin) = 0.0\n      endif\n\n\n\n      if(phi_volatile_l(ihcl_g,ibin)  .le. rtol_eqb_astem .and. &\n         phi_volatile_l(inh3_g,ibin)  .le. rtol_eqb_astem)then\n\n        return\n\n      endif\n\n\n\n! compute Heff\n      Heff(ihcl_g,ibin)=  &\n          kel(ihcl_g,ibin)*gam(jhcl,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(4))\n      integrate(ihcl_g,jliquid,ibin) = mYES\n\n\n      Heff(inh3_g,ibin) =  &\n             kel(inh3_g,ibin)*gam_ratio(ibin)*1.e-9*Keq_ll(3)/ &\n             (water_a(ibin)*mc(jc_h,ibin)*Keq_ll(2)*Keq_gl(2))\n      integrate(inh3_g,jliquid,ibin) = mYES\n\n\n      ieqblm_ASTEM = mNO\n\n\n\n      return\n      end subroutine ASTEM_flux_wet_case3b\n\n\n\n\n\n\n\n\n\n!-----------------------------------------------------------------------\n! CASE 4: NH3 = 0 (in gas and aerosol). hno3 and hcl exchange may happen here\n\n      subroutine ASTEM_flux_wet_case4(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) dum_numer, dum_denom, gas_eqb_ratio, dum_hno3, dum_hcl\n      \n\n      dum_numer = kel(ihno3_g,ibin)*Keq_gl(4)*ma(ja_no3,ibin)* &\n                  gam(jhno3,ibin)**2\n      dum_denom = kel(ihcl_g,ibin)*Keq_gl(3)*ma(ja_cl ,ibin)* &\n                  gam(jhcl,ibin)**2\n\n\n      if(dum_denom .eq. 0.0 .or. dum_numer .eq. 0.0)then\n        mc(jc_h,ibin) = sqrt(Keq_ll(3))\n        return\n      endif\n\n      gas_eqb_ratio = dum_numer/dum_denom\t! Ce,hno3/Ce,hcl\n     \n\n! compute equilibrium surface concentrations\n      sfc_a(ihcl_g) =  &\n       ( kg(ihno3_g,ibin)*gas(ihno3_g)+kg(ihcl_g,ibin)*gas(ihcl_g) )/ &\n           ( kg(ihcl_g,ibin) + gas_eqb_ratio*kg(ihno3_g,ibin) )\n      sfc_a(ihno3_g)= gas_eqb_ratio*sfc_a(ihcl_g)\n\n\n! diagnose mH+\n      if(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n        mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n        (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n      elseif(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n        mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n        (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n      else\n        mc(jc_h,ibin) = sqrt(Keq_ll(3))\n      endif\n\n\n! compute Heff\n      dum_hno3 = max(sfc_a(ihno3_g), gas(ihno3_g)) ! raz-30apr07\n      dum_hcl  = max(sfc_a(ihcl_g), gas(ihcl_g))   ! raz-30apr07\n\n! compute relative driving forces\n      if(dum_hno3 .gt. 0.0)then\n        df_gas_l(ihno3_g,ibin) = gas(ihno3_g) - sfc_a(ihno3_g)\n        phi_volatile_l(ihno3_g,ibin)= df_gas_l(ihno3_g,ibin)/dum_hno3\n      else\n        phi_volatile_l(ihno3_g,ibin)= 0.0\n      endif\n\n      if(dum_hcl .gt. 0.0)then\n        df_gas_l(ihcl_g,ibin)  = gas(ihcl_g)  - sfc_a(ihcl_g)\n        phi_volatile_l(ihcl_g,ibin)= df_gas_l(ihcl_g,ibin)/dum_hcl\n      else\n        phi_volatile_l(ihcl_g,ibin)= 0.0\n      endif\n\n\n      if(phi_volatile_l(ihno3_g,ibin) .le. rtol_eqb_astem .and. &\n         phi_volatile_l(ihcl_g,ibin)  .le. rtol_eqb_astem)then\n\n        return\n\n      endif\n\n\n\n! compute Heff\n      Heff(ihno3_g,ibin)=  &\n          kel(ihno3_g,ibin)*gam(jhno3,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(3))\n      integrate(ihno3_g,jliquid,ibin)= mYES\n\n\n      Heff(ihcl_g,ibin)=  &\n          kel(ihcl_g,ibin)*gam(jhcl,ibin)**2*mc(jc_h,ibin)*1.e-9/ &\n                       (water_a(ibin)*Keq_gl(4))\n      integrate(ihcl_g,jliquid,ibin) = mYES\n\n\n      ieqblm_ASTEM = mNO\n\n\n\n      return\n      end subroutine ASTEM_flux_wet_case4\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!===========================================================\n!\n! DRY PARTICLES\n!\n!===========================================================\n!***********************************************************************\n! part of ASTEM: computes gas-aerosol fluxes over dry aerosols\n!\n! author: Rahul A. Zaveri\n! update: dec 2006\n!-----------------------------------------------------------------------\n      subroutine ASTEM_flux_dry(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iv\n      real(kind=8) XT, prod_nh4no3, prod_nh4cl, volatile_cl\n     \n     \n     \n      \n      call calculate_XT(ibin,jsolid,XT)\n      \n!-----------------------------------------------------------------\n! CASE 1:  caco3 > 0 absorb all acids (and indirectly degas co2)\n\n      if(electrolyte(jcaco3,jsolid,ibin) .gt. 0.0)then\n        \n        call ASTEM_flux_dry_case1(ibin)\n      \n        return\n      endif\n\n!-----------------------------------------------------------------\n! CASE 2: Sulfate-Rich Domain\n\n      if(XT.lt.1.9999 .and. XT.ge.0.)then\t! excess sulfate (acidic)\n\n\tcall ASTEM_flux_dry_case2(ibin)\n     \n        return\n      endif\n\n!-------------------------------------------------------------------\n! CASE 3: hno3 and hcl exchange may happen here and nh4cl may form/evaporate\n\n      volatile_cl  = electrolyte(jnacl,jsolid,ibin) + &\n                     electrolyte(jcacl2,jsolid,ibin)\n      \n\n      if(volatile_cl .gt. 0.0 .and. gas(ihno3_g).gt. 0.0 )then\n     \n        call ASTEM_flux_dry_case3a(ibin)\n\n        Keq_nh4cl_0  = min(Kp_nh4cl_0,  Keq_sg(2))\t! raz update 6/25/2008\n\n        prod_nh4cl = max( (gas(inh3_g)*gas(ihcl_g)-Keq_nh4cl_0), 0.0d0) +   &\n                     electrolyte(jnh4cl, jsolid,ibin)\t! raz update 6/25/2008\n\n        if(prod_nh4cl .gt. 0.0)then\n          call ASTEM_flux_dry_case3b(ibin)\n        endif\n\n        return\n      endif\n\n!-----------------------------------------------------------------\n! CASE 4: nh4no3 or nh4cl or both may be active\n\n      Keq_nh4no3_0 = min(Kp_nh4no3_0, Keq_sg(1))\t! raz update 6/25/2008\n      Keq_nh4cl_0  = min(Kp_nh4cl_0,  Keq_sg(2))\t! raz update 6/25/2008\n\n      prod_nh4no3 = max( (gas(inh3_g)*gas(ihno3_g)-Keq_nh4no3_0), 0.0d0) +   &\n                    electrolyte(jnh4no3,jsolid,ibin)\t! raz update 6/25/2008\n      prod_nh4cl  = max( (gas(inh3_g)*gas(ihcl_g) -Keq_nh4cl_0), 0.0d0) +   &\n                    electrolyte(jnh4cl, jsolid,ibin)\t! raz update 6/25/2008\n\n      if(prod_nh4no3 .gt. 0.0 .or. prod_nh4cl .gt. 0.0)then\n        call ASTEM_flux_dry_case4(ibin)\n        return\n      endif\n      \n!-----------------------------------------------------------------\n\n      return                                  \n      end subroutine ASTEM_flux_dry\n      \n!----------------------------------------------------------------------\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of ASTEM: subroutines for flux_dry cases\n!\n! author: Rahul A. Zaveri\n! update: dec 2006\n!-----------------------------------------------------------------------\n\n! CASE 1:  caco3 > 0 absorb all acids (and indirectly degas co2)\n\n      subroutine ASTEM_flux_dry_case1(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n\n\n      if(gas(ihno3_g) .gt. 1.e-5)then\n        sfc_a(ihno3_g) = 0.0\n        df_gas_s(ihno3_g,ibin) = gas(ihno3_g)\n        phi_volatile_s(ihno3_g,ibin) = 1.0\n        flux_s(ihno3_g,ibin) = kg(ihno3_g,ibin)*df_gas_s(ihno3_g,ibin)\n        integrate(ihno3_g,jsolid,ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n      if(gas(ihcl_g) .gt. 1.e-5)then\n        sfc_a(ihcl_g)  = 0.0\n        df_gas_s(ihcl_g,ibin) = gas(ihcl_g)\n        phi_volatile_s(ihcl_g,ibin) = 1.0\n        flux_s(ihcl_g,ibin)  = kg(ihcl_g,ibin)*df_gas_s(ihcl_g,ibin)\n        integrate(ihcl_g,jsolid,ibin)  = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n\n      return\n      end subroutine ASTEM_flux_dry_case1\n\n\n\n!---------------------------------------------------------------------\n! CASE 2: Sulfate-Rich Domain\n\n      subroutine ASTEM_flux_dry_case2(ibin) ! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n      \n\n      if(gas(inh3_g).gt.1.e-5)then\n        sfc_a(inh3_g) = 0.0\n        df_gas_s(inh3_g,ibin) = gas(inh3_g)\n        phi_volatile_s(inh3_g,ibin)  = 1.0\n        flux_s(inh3_g,ibin) = kg(inh3_g,ibin)*gas(inh3_g)\n        integrate(inh3_g,jsolid,ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n      \n\n      return\n      end subroutine ASTEM_flux_dry_case2\n\n\n\n\n!---------------------------------------------------------------------\n! CASE 3a: degas hcl from nacl or cacl2 by flux_s balance with hno3\n\n      subroutine ASTEM_flux_dry_case3a(ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n      \n\n      if(gas(ihno3_g) .gt. 1.e-5)then\n        sfc_a(ihno3_g) = 0.0\n        sfc_a(ihcl_g)  = gas(ihcl_g) + aer(icl_a,jsolid,ibin)\n\n        df_gas_s(ihno3_g,ibin) = gas(ihno3_g)\n        df_gas_s(ihcl_g,ibin)  = -aer(icl_a,jsolid,ibin)\n    \n        flux_s(ihno3_g,ibin) = kg(ihno3_g,ibin)*gas(ihno3_g)\n        flux_s(ihcl_g,ibin)  = -flux_s(ihno3_g,ibin)\n\n        phi_volatile_s(ihno3_g,ibin) = 1.0\n        phi_volatile_s(ihcl_g,ibin)=df_gas_s(ihcl_g,ibin)/sfc_a(ihcl_g)\n\n        integrate(ihno3_g,jsolid,ibin) = mYES\n        integrate(ihcl_g,jsolid,ibin)  = mYES\n\n        idry_case3a(ibin) = mYES\n        ieqblm_ASTEM = mNO\n      endif\n\n      return\n      end subroutine ASTEM_flux_dry_case3a\n\n\n\n\n!---------------------------------------------------------------------\n! CASE 3b: nh4cl may form/evaporate here\n\n      subroutine ASTEM_flux_dry_case3b(ibin)\t! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iactive_nh4cl, js\t! raz update 11/13/2008\n      real(kind=8) a, b, c, sum_dum\t! raz update 11/13/2008\n! function\n!      real(kind=8) quadratic\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do js = 1, nsalt\n        sum_dum = sum_dum + electrolyte(js,jsolid,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      epercent(jnh4cl,jsolid,ibin) = 100.*electrolyte(jnh4cl,jsolid,ibin)/sum_dum\n\n\n\n\n!-------------------\n! set default values for flags\n      iactive_nh4cl  = 1\n\n\n! compute relative driving force\n      phi_nh4cl_s = (gas(inh3_g)*gas(ihcl_g) - Keq_sg(2))/ &\n                    max(gas(inh3_g)*gas(ihcl_g),Keq_sg(2))\n\n\n!-------------------\n! now determine if nh4cl is active or significant\n! nh4cl\n      if( abs(phi_nh4cl_s) .lt. rtol_eqb_ASTEM )then\n        iactive_nh4cl = 0\n      elseif(gas(inh3_g)*gas(ihcl_g) .lt. Keq_sg(2) .and. &\n             epercent(jnh4cl, jsolid,ibin) .le. ptol_mol_ASTEM)then\n        iactive_nh4cl = 0\n        if(epercent(jnh4cl, jsolid,ibin) .gt. 0.0)then\n          call degas_solid_nh4cl(ibin)\n        endif\n      endif\n\n\n! check the outcome\n      if(iactive_nh4cl .eq. 0)return\n\n            \n!-----------------\n! nh4cl is active\n\n      \n      a =   kg(inh3_g,ibin)\n      b = - kg(inh3_g,ibin)*gas(inh3_g) &\n          + kg(ihcl_g,ibin)*gas(ihcl_g)  \n      c = -(kg(ihcl_g,ibin)*Keq_sg(2))\n        \n      sfc_a(inh3_g) = quadratic(a,b,c)\n      sfc_a(ihcl_g) = Keq_sg(2)/sfc_a(inh3_g)\n\n      df_gas_s(ihcl_g,ibin) = gas(ihcl_g) - sfc_a(ihcl_g)\n      df_gas_s(inh3_g,ibin) = gas(inh3_g) - sfc_a(inh3_g)\n      \n      flux_s(inh3_g,ibin) = kg(inh3_g,ibin)*df_gas_s(inh3_g,ibin)\n      flux_s(ihcl_g,ibin) = flux_s(ihcl_g,ibin) + flux_s(inh3_g,ibin)\n\n      phi_volatile_s(inh3_g,ibin) = phi_nh4cl_s\n\n      if(flux_s(ihcl_g,ibin) .gt. 0.0)then\n        df_gas_s(ihcl_g,ibin) = flux_s(ihcl_g,ibin)/kg(ihcl_g,ibin)\t! recompute df_gas\n        phi_volatile_s(ihcl_g,ibin) = phi_nh4cl_s\n      else\n        sfc_a(ihcl_g)  = gas(ihcl_g) + aer(icl_a,jsolid,ibin)\n        df_gas_s(ihcl_g,ibin) = -aer(icl_a,jsolid,ibin)\n        phi_volatile_s(ihcl_g,ibin)=df_gas_s(ihcl_g,ibin)/sfc_a(ihcl_g)  ! not to be used\n      endif\n\n      integrate(inh3_g,jsolid,ibin) = mYES\n      integrate(ihcl_g,jsolid,ibin) = mYES\t! integrate HCl with explicit euler\n            \n      ieqblm_ASTEM = mNO\n\n      return\n      end subroutine ASTEM_flux_dry_case3b\n\n\n\n\n!---------------------------------------------------------------------\n! Case 4: NH4NO3 and/or NH4Cl may be active\n\n      subroutine ASTEM_flux_dry_case4(ibin)\t! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iactive_nh4no3, iactive_nh4cl, iactive, js\t! raz update 11/13/2008\n      real(kind=8) a, b, c, sum_dum\t\t\t\t\t! raz update 11/13/2008\n! function\n!      real(kind=8) quadratic\n\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do js = 1, nsalt\n        sum_dum = sum_dum + electrolyte(js,jsolid,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      epercent(jnh4no3,jsolid,ibin) = 100.*electrolyte(jnh4no3,jsolid,ibin)/sum_dum\n      epercent(jnh4cl, jsolid,ibin) = 100.*electrolyte(jnh4cl, jsolid,ibin)/sum_dum\n\n\n\n!-------------------\n! set default values for flags\n      iactive_nh4no3 = 1\n      iactive_nh4cl  = 2\n\n\n! compute diagnostic products and ratios\n      phi_nh4no3_s = (gas(inh3_g)*gas(ihno3_g) - Keq_sg(1))/ &\n                     max(gas(inh3_g)*gas(ihno3_g),Keq_sg(1))\n      phi_nh4cl_s  = (gas(inh3_g)*gas(ihcl_g) - Keq_sg(2))/ &\n                     max(gas(inh3_g)*gas(ihcl_g),Keq_sg(2))\n\n\n!-------------------\n! now determine if nh4no3 and/or nh4cl are active or significant\n\n! nh4no3\n      if( abs(phi_nh4no3_s) .lt. rtol_eqb_ASTEM )then\n        iactive_nh4no3 = 0\n      elseif(gas(inh3_g)*gas(ihno3_g) .lt. Keq_sg(1) .and. &\n             epercent(jnh4no3,jsolid,ibin) .le. ptol_mol_ASTEM)then\n        iactive_nh4no3 = 0\n        if(epercent(jnh4no3,jsolid,ibin) .gt. 0.0)then\n          call degas_solid_nh4no3(ibin)\n        endif\n      endif\n\n! nh4cl\n      if( abs(phi_nh4cl_s) .lt. rtol_eqb_ASTEM )then\n        iactive_nh4cl = 0\n      elseif(gas(inh3_g)*gas(ihcl_g) .lt. Keq_sg(2) .and. &\n             epercent(jnh4cl, jsolid,ibin) .le. ptol_mol_ASTEM)then\n        iactive_nh4cl = 0\n        if(epercent(jnh4cl, jsolid,ibin) .gt. 0.0)then\n          call degas_solid_nh4cl(ibin)\n        endif\n      endif\n\n              \n      iactive = iactive_nh4no3 + iactive_nh4cl\n\n! check the outcome\n      if(iactive .eq. 0)return\n\n\n      goto (1,2,3),iactive\n\n!---------------------------------\n! only nh4no3 solid is active\n1     call ASTEM_flux_dry_case4a(ibin)\n\n      return\n      \n            \n!-----------------\n! only nh4cl solid is active\n2     call ASTEM_flux_dry_case4b(ibin)\n            \n      return\n\n      \n!-----------------\n! both nh4no3 and nh4cl are active\n3     call ASTEM_flux_dry_case4ab(ibin)\n\n\n\n\n      return\n      end subroutine ASTEM_flux_dry_case4\n\n\n\n\n\n\n\n!---------------------------------------------------------------------\n! Case 4a\n\n      subroutine ASTEM_flux_dry_case4a(ibin) ! NH4NO3 solid\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, b, c\n! function\n!      real(kind=8) quadratic\n\n\n\n      a =   kg(inh3_g,ibin)\n      b = - kg(inh3_g,ibin)*gas(inh3_g)  &\n          + kg(ihno3_g,ibin)*gas(ihno3_g) \n      c = -(kg(ihno3_g,ibin)*Keq_nh4no3_0)\t! raz update 6/25/2008\n\n      sfc_a(inh3_g)  = quadratic(a,b,c)\n      sfc_a(ihno3_g) = Keq_nh4no3_0/sfc_a(inh3_g) ! raz update 6/25/2008\n\n      integrate(ihno3_g,jsolid,ibin) = mYES\n      integrate(inh3_g,jsolid,ibin)  = mYES\n\n      df_gas_s(ihno3_g,ibin)=gas(ihno3_g)-sfc_a(ihno3_g)\n      df_gas_s(inh3_g,ibin) =gas(inh3_g) -sfc_a(inh3_g)\n      \n      phi_volatile_s(ihno3_g,ibin)= phi_nh4no3_s\n      phi_volatile_s(inh3_g,ibin) = phi_nh4no3_s\n\n      flux_s(ihno3_g,ibin) = kg(ihno3_g,ibin)*df_gas_s(ihno3_g,ibin)\n      flux_s(inh3_g,ibin)  = flux_s(ihno3_g,ibin)\n\n      ieqblm_ASTEM = mNO\n\n      return\n      end subroutine ASTEM_flux_dry_case4a\n\n\n\n\n!---------------------------------------------------------\n! Case 4b\n\n      subroutine ASTEM_flux_dry_case4b(ibin) ! NH4Cl solid\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, b, c\n! function\n!      real(kind=8) quadratic\n\n\n      a =   kg(inh3_g,ibin)\n      b = - kg(inh3_g,ibin)*gas(inh3_g) &\n          + kg(ihcl_g,ibin)*gas(ihcl_g)  \n      c = -(kg(ihcl_g,ibin)*Keq_nh4cl_0)\t! raz update 6/25/2008\n        \n      sfc_a(inh3_g) = quadratic(a,b,c)\n      sfc_a(ihcl_g) = Keq_nh4cl_0 /sfc_a(inh3_g)\t! raz update 6/25/2008\n\n      integrate(ihcl_g,jsolid,ibin) = mYES\n      integrate(inh3_g,jsolid,ibin) = mYES\n\n      df_gas_s(ihcl_g,ibin) = gas(ihcl_g)-sfc_a(ihcl_g)\n      df_gas_s(inh3_g,ibin) = gas(inh3_g)-sfc_a(inh3_g)\n\n      phi_volatile_s(ihcl_g,ibin) = phi_nh4cl_s\n      phi_volatile_s(inh3_g,ibin) = phi_nh4cl_s\n\n      flux_s(ihcl_g,ibin) = kg(ihcl_g,ibin)*df_gas_s(ihcl_g,ibin)\n      flux_s(inh3_g,ibin) = flux_s(ihcl_g,ibin)\n\n      ieqblm_ASTEM = mNO\n\n      return\n      end subroutine ASTEM_flux_dry_case4b\n\n\n\n\n!-------------------------------------------------------------------\n! Case 4ab\n\n      subroutine ASTEM_flux_dry_case4ab(ibin)\t! NH4NO3 + NH4Cl (solid)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, b, c, &\n           flux_nh3_est, flux_nh3_max, ratio_flux\n! function\n!      real(kind=8) quadratic\n\n      call ASTEM_flux_dry_case4a(ibin)\n      call ASTEM_flux_dry_case4b(ibin)\n\n\n! estimate nh3 flux and adjust hno3 and/or hcl if necessary\n\n      flux_nh3_est = flux_s(ihno3_g,ibin)+flux_s(ihcl_g,ibin)\n      flux_nh3_max = kg(inh3_g,ibin)*gas(inh3_g)\n\n\n      if(flux_nh3_est .le. flux_nh3_max)then\n\n        flux_s(inh3_g,ibin) = flux_nh3_est\t\t\t! all ok - no adjustments needed\n        sfc_a(inh3_g)       = gas(inh3_g) -  &\t\t\t! recompute sfc_a(ihno3_g)\n                              flux_s(inh3_g,ibin)/kg(inh3_g,ibin)\n        phi_volatile_s(inh3_g,ibin) = max(abs(phi_nh4no3_s), &\n                                          abs(phi_nh4cl_s))\n\n      else\t\t\t! reduce hno3 and hcl flux_ses as necessary so that nh3 flux_s = flux_s_nh3_max\n     \n        ratio_flux          = flux_nh3_max/flux_nh3_est\n        flux_s(inh3_g,ibin) = flux_nh3_max\n        flux_s(ihno3_g,ibin)= flux_s(ihno3_g,ibin)*ratio_flux\n        flux_s(ihcl_g,ibin) = flux_s(ihcl_g,ibin) *ratio_flux\n\n        sfc_a(inh3_g) = 0.0\n        sfc_a(ihno3_g)= gas(ihno3_g) -  &\t! recompute sfc_a(ihno3_g)\n                        flux_s(ihno3_g,ibin)/kg(ihno3_g,ibin)\n        sfc_a(ihcl_g) = gas(ihcl_g) -   &\t! recompute sfc_a(ihcl_g)\n                        flux_s(ihcl_g,ibin)/kg(ihcl_g,ibin)\n\n        df_gas_s(inh3_g,ibin) =gas(inh3_g) -sfc_a(inh3_g)\n        df_gas_s(ihno3_g,ibin)=gas(ihno3_g)-sfc_a(ihno3_g)\n        df_gas_s(ihcl_g,ibin) =gas(ihcl_g) -sfc_a(ihcl_g)\n\n        phi_volatile_s(inh3_g,ibin) = max(abs(phi_nh4no3_s), &\n                                          abs(phi_nh4cl_s))\n\n      endif\n\n      ieqblm_ASTEM = mNO\n\n      return\n      end subroutine ASTEM_flux_dry_case4ab\n\n\n\n\n\n\n\n\n\n\n\n!=======================================================================\n!\n! MIXED-PHASE PARTICLES\n!\n!***********************************************************************\n! part of ASTEM: computes gas-aerosol fluxes over mixed-phase aerosols\n!\n! author: Rahul A. Zaveri\n! update: apr 2006\n!-----------------------------------------------------------------------\n\n      subroutine ASTEM_flux_mix(ibin)\n      use module_data_mosaic_other, only:  lunerr\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iv, iadjust, iadjust_intermed, js\t\t! raz update 11/13/2008\n      real(kind=8) XT, g_nh3_hno3, g_nh3_hcl, &\n           a_nh4_no3, a_nh4_cl, a_no3, a_cl, &\n           prod_nh4no3, prod_nh4cl\n      real(kind=8) volatile_cl, sum_dum\t\t\t! raz update 11/13/2008\n     \n\n      call ions_to_electrolytes(jliquid,ibin,XT)  \t! for water content calculation\n      call compute_activities(ibin)\n\n      if(water_a(ibin) .eq. 0.0)then\n\twrite(6,*)'Water is zero in liquid phase'\n      endif\n      \n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do js = 1, nsalt\n        sum_dum = sum_dum + electrolyte(js,jsolid,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      epercent(jcaco3,jsolid,ibin) = 100.*electrolyte(jcaco3,jsolid,ibin)/sum_dum\n\n\n! reset\n\tKeq_nh4no3_0 = Keq_sg(1)\t! raz update 6/25/2008\n\tKeq_nh4cl_0  = Keq_sg(2)\t! raz update 6/25/2008\n\n!-----------------------------------------------------------------\n! MIXED CASE 1:  caco3 > 0 absorb all acids (and indirectly degas co2)\n\n      if(epercent(jcaco3,jsolid,ibin) .gt. 0.0)then\n        jphase(ibin) = jliquid\n        call ASTEM_flux_wet_case1(ibin)\n        return\n      endif\n\n!-----------------------------------------------------------------\n! MIXED CASE 2: Sulfate-Rich Domain\n\n      if(XT.lt.1.9999 .and. XT.ge.0.)then\t! excess sulfate (acidic)\n        jphase(ibin) = jliquid\n\tcall ASTEM_flux_wet_case2(ibin)\n        return\n      endif\n\n!-------------------------------------------------------------------\n! MIXED CASE 3: hno3 and hcl exchange may happen here and nh4cl may form/evaporate\n\n      volatile_cl  = electrolyte(jnacl,jsolid,ibin) +   &\n                     electrolyte(jcacl2,jsolid,ibin)\n\n\n      if(volatile_cl .gt. 0.0 .and. gas(ihno3_g).gt. 0.0 )then\n\n        call ASTEM_flux_dry_case3a(ibin)\n\n        prod_nh4cl = max( (gas(inh3_g)*gas(ihcl_g)-Keq_sg(2)), 0.0d0) +   &\n                     electrolyte(jnh4cl, jsolid,ibin)\n\n        if(prod_nh4cl .gt. 0.0)then\n          call ASTEM_flux_dry_case3b(ibin)\n        endif\n\n        jphase(ibin) = jsolid\n\n        return\n      endif\n\n!-------------------------------------------------------------------\n! MIXED CASE 4: nh4no3 or nh4cl or both may be active\n\n      if( electrolyte(jnh4no3,jsolid,ibin).gt.0. .and. &\n          electrolyte(jnh4cl,jsolid,ibin) .gt.0. )then\n        jphase(ibin) = jsolid\n        call ASTEM_flux_dry_case4(ibin)\n\n        if(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n          (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n        elseif(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n          (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n        else\n          mc(jc_h,ibin) = sqrt(Keq_ll(3))\n        endif\n\n        return\n\n      elseif( electrolyte(jnh4no3,jsolid,ibin).gt.0. )then\n! do small adjustments for nh4cl aq\n        g_nh3_hcl= gas(inh3_g)*gas(ihcl_g)\n        a_nh4_cl = aer(inh4_a,jliquid,ibin)*aer(icl_a,jliquid,ibin)\n\n        iadjust = mNO\t\t! initialize\n        if(g_nh3_hcl .gt. 0.0 .and. a_nh4_cl .eq. 0.0)then\n          call absorb_tiny_nh4cl(ibin)\n          iadjust = mYES\n        elseif(g_nh3_hcl .eq. 0.0 .and. a_nh4_cl .gt. 0.0)then\n          call degas_tiny_nh4cl(ibin)\n          iadjust = mYES\n        endif\n    \n        if(iadjust .eq. mYES)then\n          call ions_to_electrolytes(jliquid,ibin,XT)  ! update after adjustments\n          call compute_activities(ibin)\t\t\t! update after adjustments\n        endif\n\n        call ASTEM_flux_mix_case4a(ibin)\t! nh4no3 solid + nh4cl aq\n        jphase(ibin) = jtotal\n        return\n\n      elseif( electrolyte(jnh4cl,jsolid,ibin).gt.0.)then\n! do small adjustments for nh4no3 aq\n        g_nh3_hno3= gas(inh3_g)*gas(ihno3_g)\n        a_nh4_no3 = aer(inh4_a,jliquid,ibin)*aer(ino3_a,jliquid,ibin)\n\n        iadjust = mNO\t\t! initialize\n        if(g_nh3_hno3 .gt. 0.0 .and. a_nh4_no3 .eq. 0.0)then\n          call absorb_tiny_nh4no3(ibin)\n          iadjust = mYES\n        elseif(g_nh3_hno3 .eq. 0.0 .and. a_nh4_no3 .gt. 0.0)then\n          call degas_tiny_nh4no3(ibin)\n          iadjust = mYES\n        endif\n\n        if(iadjust .eq. mYES)then\n          call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n          call compute_activities(ibin)\t\t\t! update after adjustments\n        endif\n\n        kelvin_nh4no3 = kel(inh3_g,ibin)*kel(ihno3_g,ibin)\n        Keq_nh4no3 = kelvin_nh4no3*activity(jnh4no3,ibin)*Kp_nh4no3\t! = [NH3]s * [HNO3]s\n\n        call ASTEM_flux_mix_case4b(ibin)\t! nh4cl solid + nh4no3 aq\n        jphase(ibin) = jtotal\n        return\n      endif\n\n\n!-------------------------------------------------------------------\n\n      if( (gas(inh3_g)+aer(inh4_a,jliquid,ibin)) .lt. 1.e-25)goto 10  ! no ammonia in the system\n\n!-------------------------------------------------------------------\n! MIXED CASE 5: liquid nh4no3 and/or nh4cl maybe active\n! do some small adjustments (if needed) before deciding case 3\n\n      iadjust = mNO\t\t! default\n      iadjust_intermed = mNO\t! default\n\n! nh4no3\n      g_nh3_hno3 = gas(inh3_g)*gas(ihno3_g)\n      a_nh4_no3  = aer(inh4_a,jliquid,ibin)*aer(ino3_a,jliquid,ibin)\n\n      if(g_nh3_hno3 .gt. 0. .and. a_nh4_no3 .eq. 0.)then\n        call absorb_tiny_nh4no3(ibin)\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n        iadjust_intermed = mNO\t! reset\n      endif\n\n! nh4cl\n      g_nh3_hcl = gas(inh3_g)*gas(ihcl_g)\n      a_nh4_cl  = aer(inh4_a,jliquid,ibin)*aer(icl_a,jliquid,ibin)\n\n      if(g_nh3_hcl .gt. 0. .and. a_nh4_cl .eq. 0.)then\n        call absorb_tiny_nh4cl(ibin)\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n      endif\n\n      if(iadjust .eq. mYES)then\n        call compute_activities(ibin)\t\t\t! update after adjustments\n      endif\n\n\n! all adjustments done...\n\n!--------\n      kelvin_nh4no3 = kel(inh3_g,ibin)*kel(ihno3_g,ibin)\n      Keq_nh4no3 = kelvin_nh4no3*activity(jnh4no3,ibin)*Kp_nh4no3\t! = [NH3]s * [HNO3]s\n\n      kelvin_nh4cl = kel(inh3_g,ibin)*kel(ihcl_g,ibin)\n      Keq_nh4cl = kelvin_nh4cl*activity(jnh4cl,ibin)*Kp_nh4cl\t! = [NH3]s * [HCl]s\n\n      call ASTEM_flux_wet_case3(ibin)\n      jphase(ibin) = jliquid\n\n      return\n\n\n!-------------------------------------------------------------------\n! MIXED CASE 6: ammonia = 0. liquid hno3 and hcl exchange may happen here\n! do small adjustments (if needed) before deciding case 4\n\n10    iadjust = mNO\t\t! default\n      iadjust_intermed = mNO\t! default\n\n! hno3\n      if(gas(ihno3_g).gt.0. .and. aer(ino3_a,jliquid,ibin).eq.0. .and.   &\n         aer(icl_a,jliquid,ibin) .gt. 0.0)then\n        call absorb_tiny_hno3(ibin)\t! and degas tiny hcl\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n        iadjust_intermed = mNO\t! reset\n      endif\n\n! hcl\n      if(gas(ihcl_g).gt.0. .and. aer(icl_a,jliquid,ibin) .eq. 0. .and.   &\n         aer(ino3_a,jliquid,ibin) .gt. 0.0)then\n        call absorb_tiny_hcl(ibin)\t\t\t! and degas tiny hno3\n        iadjust = mYES\n        iadjust_intermed = mYES\n      endif\n\n      if(iadjust_intermed .eq. mYES)then\n        call ions_to_electrolytes(jliquid,ibin,XT)  \t! update after adjustments\n      endif\n\n      if(iadjust .eq. mYES)then\n        call compute_activities(ibin)\t\t\t! update after adjustments\n      endif\n\n! all adjustments done...\n\n      call ASTEM_flux_wet_case4(ibin)\n      jphase(ibin) = jliquid\n\n     \n\n      return\n      end subroutine ASTEM_flux_mix\n      \n!----------------------------------------------------------------------\n\n\n\n\n\n\n\n\n!------------------------------------------------------------------\n! Mix Case 4a: NH4NO3 solid maybe active. NH4Cl aq maybe active\n\n      subroutine ASTEM_flux_mix_case4a(ibin)\t! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iactive_nh4no3, iactive_nh4cl, js\t! raz update 11/13/2008\n      real(kind=8) sum_dum\t\t\t\t! raz update 11/13/2008\n\n\n! set default values for flags\n      iactive_nh4no3 = mYES\n      iactive_nh4cl  = mYES\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do js = 1, nsalt\n        sum_dum = sum_dum + electrolyte(js,jsolid,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      epercent(jnh4no3,jsolid,ibin) = 100.*electrolyte(jnh4no3,jsolid,ibin)/sum_dum\n\n\n\n! nh4no3 (solid)\n      phi_nh4no3_s = (gas(inh3_g)*gas(ihno3_g) - Keq_sg(1))/ &\n                     max(gas(inh3_g)*gas(ihno3_g),Keq_sg(1))\n\n! nh4cl (liquid)\n      kelvin_nh4cl = kel(inh3_g,ibin)*kel(ihcl_g,ibin)\n      Keq_nh4cl = kelvin_nh4cl*activity(jnh4cl,ibin)*Kp_nh4cl\t! = [NH3]s * [HCl]s\n\n\n!-------------------\n! now determine if nh4no3 and/or nh4cl are active or significant\n! nh4no3 solid\n      if( abs(phi_nh4no3_s) .le. rtol_eqb_ASTEM )then\n        iactive_nh4no3 = mNO\n      elseif(gas(inh3_g)*gas(ihno3_g) .lt. Keq_sg(1) .and. &\n             epercent(jnh4no3,jsolid,ibin) .le. ptol_mol_ASTEM)then\n        iactive_nh4no3 = mNO\n        if(epercent(jnh4no3,jsolid,ibin) .gt. 0.0)then\n          call degas_solid_nh4no3(ibin)\n        endif\n      endif\n\n! nh4cl aq\n      if( gas(inh3_g)*gas(ihcl_g).eq.0. .or. Keq_nh4cl.eq.0. )then\n        iactive_nh4cl = mNO\n      endif\n              \n\n!---------------------------------\n      if(iactive_nh4no3 .eq. mYES)then\n\n        jphase(ibin) = jsolid\n        call ASTEM_flux_dry_case4a(ibin)\t! NH4NO3 (solid)\n\n        if(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n          (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n        elseif(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n          (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n        else\n          mc(jc_h,ibin) = sqrt(Keq_ll(3))\n        endif\n\n      endif \n\n\n      if(iactive_nh4cl .eq. mYES)then\n\n        jphase(ibin) = jliquid\n        call ASTEM_flux_wet_case3b(ibin)\t! NH4Cl (liquid)\n\n        if(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n          (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n        else\n          mc(jc_h,ibin) = sqrt(Keq_ll(3))\n        endif\n\n      endif\n\n\n      if(iactive_nh4cl .eq. mYES .and. iactive_nh4no3 .eq. mYES)then\n        jphase(ibin) = jtotal\n      endif\n\n\n            \n      return\n      end subroutine ASTEM_flux_mix_case4a\n\n\n\n\n\n\n\n\n!------------------------------------------------------------------\n! Mix Case 4b: NH4Cl solid maybe active. NH4NO3 aq may or maybe active\n\n      subroutine ASTEM_flux_mix_case4b(ibin)\t! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer iactive_nh4no3, iactive_nh4cl, js\t! raz update 11/13/2008\n\treal(kind=8) sum_dum\t\t\t\t! raz update 11/13/2008\n\n\n! set default values for flags\n      iactive_nh4cl  = mYES\n      iactive_nh4no3 = mYES\n\n\n! calculate percent composition\t! raz update 11/13/2008\n      sum_dum = 0.0\n      do js = 1, nsalt\n        sum_dum = sum_dum + electrolyte(js,jsolid,ibin)\n      enddo\n\n      if(sum_dum .eq. 0.)sum_dum = 1.0\n\n      epercent(jnh4cl,jsolid,ibin) = 100.*electrolyte(jnh4cl,jsolid,ibin)/sum_dum\n\n\n\n! nh4cl (solid)\n      phi_nh4cl_s  = (gas(inh3_g)*gas(ihcl_g) - Keq_sg(2))/ &\n                     max(gas(inh3_g)*gas(ihcl_g),Keq_sg(2))\n\n! nh4no3 (liquid)\n      kelvin_nh4no3 = kel(inh3_g,ibin)*kel(ihno3_g,ibin)\n      Keq_nh4no3 = kelvin_nh4no3*activity(jnh4no3,ibin)*Kp_nh4no3\t! = [NH3]s * [HNO3]s\n\n\n!-------------------\n! now determine if nh4no3 and/or nh4cl are active or significant\n! nh4cl (solid)\n      if( abs(phi_nh4cl_s) .le. rtol_eqb_ASTEM )then\n        iactive_nh4cl = mNO\n      elseif(gas(inh3_g)*gas(ihcl_g) .lt. Keq_sg(2) .and. &\n             epercent(jnh4cl,jsolid,ibin) .le. ptol_mol_ASTEM)then\n        iactive_nh4cl = mNO\n        if(epercent(jnh4cl,jsolid,ibin) .gt. 0.0)then\n          call degas_solid_nh4cl(ibin)\n        endif\n      endif\n\n! nh4no3 (liquid)\n      if( gas(inh3_g)*gas(ihno3_g).eq.0. .or. Keq_nh4no3.eq.0. )then\n        iactive_nh4no3 = mNO\n      endif\n\n\n!---------------------------------\n      if(iactive_nh4cl .eq. mYES)then\n      \n        jphase(ibin) = jsolid\n        call ASTEM_flux_dry_case4b(ibin)\t! NH4Cl (solid)\n\n        if(sfc_a(ihcl_g).gt.0.0 .and. ma(ja_cl,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(4)*sfc_a(ihcl_g)/ &\n          (kel(ihcl_g,ibin)*gam(jhcl,ibin)**2 * ma(ja_cl,ibin))\n        elseif(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n          (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n        else\n          mc(jc_h,ibin) = sqrt(Keq_ll(3))\n        endif\n\n      endif\n\n\n      if(iactive_nh4no3 .eq. mYES)then\n\n        jphase(ibin) = jliquid\n        call ASTEM_flux_wet_case3a(ibin)\t! NH4NO3 (liquid)\n\n        if(sfc_a(ihno3_g).gt.0.0 .and. ma(ja_no3,ibin).gt.0.0)then\n          mc(jc_h,ibin) = Keq_gl(3)*sfc_a(ihno3_g)/ &\n          (kel(ihno3_g,ibin)*gam(jhno3,ibin)**2 * ma(ja_no3,ibin))\n        else\n          mc(jc_h,ibin) = sqrt(Keq_ll(3))\n        endif\n\n      endif\n\n\n      if(iactive_nh4cl .eq. mYES .and. iactive_nh4no3 .eq. mYES)then\n        jphase(ibin) = jtotal\n      endif\n\n                 \n\n      return\n      end subroutine ASTEM_flux_mix_case4b\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! part of ASTEM: condenses h2so4, msa, and nh3 analytically over dtchem [s]\n!\n! author: Rahul A. Zaveri\n! update: jan 2007\n!-----------------------------------------------------------------------\n\n      subroutine ASTEM_non_volatiles(dtchem) ! TOUCH\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      real(kind=8) dtchem\n! local variables\n      integer ibin, iupdate_phase_state\n      real(kind=8) decay_h2so4, decay_msa,   &\n           delta_h2so4, delta_tmsa, delta_nh3, delta_hno3, delta_hcl, &\n           delta_so4(nbin_a), delta_msa(nbin_a), &\n           delta_nh4(nbin_a)\n\t\t! DL (10/7/2012) - move N2O5 het uptake into non-volatile subroutine, so that \n\t\t! \t\t\tNH3 uptake to balance acid uptake takes place too \n      real(kind=8) :: decay_n2o5,   &\n           delta_n2o5, delta_clno2, &\n           delta_no3_rct1(nbin_a), delta_no3_rct2(nbin_a)\n      real(kind=8) XT\n    \n\n\n\n      sumkg_h2so4 = 0.0\n      sumkg_msa   = 0.0\n      sumkg_nh3   = 0.0\n      sumkg_hno3  = 0.0\n      sumkg_hcl   = 0.0\n      do ibin = 1, nbin_a\n        sumkg_h2so4 = sumkg_h2so4 + kg(ih2so4_g,ibin)\n        sumkg_msa   = sumkg_msa   + kg(imsa_g,ibin)\n        sumkg_nh3   = sumkg_nh3   + kg(inh3_g,ibin)\n        sumkg_hno3  = sumkg_hno3  + kg(ihno3_g,ibin)\n        sumkg_hcl   = sumkg_hcl   + kg(ihcl_g,ibin)\n      enddo\n\t\t! DL (10/7/2012)\n      sumkg_n2o5  = 0.0\n      do ibin = 1, nbin_a\n        sumkg_n2o5 = sumkg_n2o5 + kg(in2o5_g,ibin)\n      enddo\n\n\n\n!--------------------------------------\n! H2SO4\n      if(gas(ih2so4_g) .gt. 1.e-14)then\n\n! integrate h2so4 condensation analytically\n        decay_h2so4   = exp(-sumkg_h2so4*dtchem)\n        delta_h2so4   = gas(ih2so4_g)*(1.0 - decay_h2so4)\n        gas(ih2so4_g) = gas(ih2so4_g)*decay_h2so4\n\n\n! now distribute delta_h2so4 to each bin and conform the particle (may degas by massbal)\n        do ibin = 1, nbin_a\n          if(jaerosolstate(ibin) .ne. no_aerosol)then\n            delta_so4(ibin) = delta_h2so4*kg(ih2so4_g,ibin)/sumkg_h2so4\n            aer(iso4_a,jtotal,ibin) = aer(iso4_a,jtotal,ibin) + &\n                                      delta_so4(ibin)\n          endif\n        enddo\n\n      else\n\n        delta_h2so4 = 0.0\n        do ibin = 1, nbin_a\n            delta_so4(ibin) = 0.0\n        enddo\n\n      endif\n! h2so4 condensation is now complete\n!--------------------------------------\n\n\n\n! MSA\n      if(gas(imsa_g) .gt. 1.e-14)then\n\n! integrate msa condensation analytically\n        decay_msa   = exp(-sumkg_msa*dtchem)\n        delta_tmsa  = gas(imsa_g)*(1.0 - decay_msa)\n        gas(imsa_g) = gas(imsa_g)*decay_msa\n\n! now distribute delta_msa to each bin and conform the particle (may degas by massbal)\n        do ibin = 1, nbin_a\n          if(jaerosolstate(ibin) .ne. no_aerosol)then\n            delta_msa(ibin) = delta_tmsa*kg(imsa_g,ibin)/sumkg_msa\n            aer(imsa_a,jtotal,ibin) = aer(imsa_a,jtotal,ibin) + &\n                                      delta_msa(ibin)\n          endif\n        enddo\n\n      else\n\n        delta_tmsa = 0.0\n        do ibin = 1, nbin_a\n            delta_msa(ibin) = 0.0\n        enddo\n\n      endif\n! msa condensation is now complete\n!-------------------------------------\n\n\n\n\tif(n2o5_flag .gt. 0) then\n\t\t! DL (10/7/2012) moved from separate subroutine into involatile subroutine\n\t\t!--------------------------------------\n\t\t! N2O5 uptake, if there is enough gas, and uptake is non-zero\n\t\t!  (currently we only calculate uptake for aqueous particles,\n\t\t!    so in some circumstances we could have aerosol but no reaction)\n\t\tif(gas(in2o5_g) .gt. 1.e-14 .and. sumkg_n2o5 .gt. 0.0)then\n\n\t\t\t! integrate n2o5 condensation analytically\n\t\t\tdecay_n2o5   = exp(-sumkg_n2o5*dtchem)\n\t\t\tdelta_n2o5   = gas(in2o5_g)*(1.0 - decay_n2o5)\n\t\t\tgas(in2o5_g) = gas(in2o5_g)*decay_n2o5\n\n\n\t\t\t! now distribute delta_n2o5 to each bin and conform the particle (may degas by massbal)\n\t\t\tdo ibin = 1, nbin_a\n\t\t\t\tif(jaerosolstate(ibin) .ne. no_aerosol)then\n\t\t\t\t\tdelta_no3_rct1(ibin) = delta_n2o5*frac_n2o5_h2o(ibin)*kg(in2o5_g,ibin)/sumkg_n2o5\n\t\t\t\t\tdelta_no3_rct2(ibin) = delta_n2o5*(1.0-frac_n2o5_h2o(ibin))*kg(in2o5_g,ibin)/sumkg_n2o5\n\n\t\t\t\t\taer(ino3_a,jtotal,ibin) = aer(ino3_a,jtotal,ibin) + &\n\t\t\t\t\t\t\t\t\t\t  (2.0*delta_no3_rct1(ibin)+delta_no3_rct2(ibin))\n\t\t\t\t\t! check to ensure we don't get negative Cl- concentrations\n\t\t\t\t\t! - if this will occur then branch the remaining N2O5 to reaction 1\n\t\t\t\t\tif(aer(icl_a,jtotal,ibin).ge.delta_no3_rct2(ibin))then\n\t\t\t\t\t\taer(icl_a,jtotal,ibin)  = aer(icl_a,jtotal,ibin) - &\n\t\t\t\t\t\t\t\t\t\t\t\t  delta_no3_rct2(ibin)\n\t\t\t\t\t\tgas(iclno2_g)           = gas(iclno2_g) + &\n\t\t\t\t\t\t\t\t\t\t\t\t  delta_no3_rct2(ibin)\n\t\t\t\t\telse\n\t\t\t\t\t\taer(ino3_a,jtotal,ibin) = aer(ino3_a,jtotal,ibin) + &\n\t\t\t\t\t\t\t\t\t\t\t\t  (delta_no3_rct2(ibin)-aer(icl_a,jtotal,ibin))\n\t\t\t\t\t\tgas(iclno2_g)           = gas(iclno2_g) + &\n\t\t\t\t\t\t\t\t\t\t\t\t  aer(icl_a,jtotal,ibin)\n\n\t\t\t\t\t\t! record the amount of remaining N2O5 which branches to reaction 1 (this is\n\t\t\t\t\t\t! for the purposes of determining NH3 uptake later)\n\t\t\t\t\t\tdelta_no3_rct1(ibin) = delta_no3_rct1(ibin) + (delta_no3_rct2(ibin)-aer(icl_a,jtotal,ibin))\n\t\t\t\t\t\tdelta_no3_rct2(ibin) = aer(icl_a,jtotal,ibin)\n\n\t\t\t\t\t\taer(icl_a,jtotal,ibin)  = 0.0\n\t\t\t\t\tendif\n\t\t\t\tendif\n\t\t\tenddo\n\n\t\telse\n\n\t\t\tdelta_n2o5 = 0.0\n\t\t\tdo ibin = 1, nbin_a\n\t\t\t\tdelta_no3_rct1(ibin) = 0.0\n\t\t\t\tdelta_no3_rct2(ibin) = 0.0\n\t\t\tenddo\n\n\t\tendif\n\telse\n\t\tdelta_n2o5 = 0.0\t! if we're not using the N2O5 het scheme then set these to zero for ion balance calculations below\n\t\tdo ibin = 1, nbin_a\n\t\t\tdelta_no3_rct1(ibin) = 0.0\n\t\t\tdelta_no3_rct2(ibin) = 0.0\n\t\tenddo\n\tendif\n\n\n\n\n! compute max allowable nh3, hno3, and hcl condensation\n      delta_nh3 = gas(inh3_g) *(1.0 - exp(-sumkg_nh3*dtchem))\n      delta_hno3= gas(ihno3_g)*(1.0 - exp(-sumkg_hno3*dtchem))\n      delta_hcl = gas(ihcl_g) *(1.0 - exp(-sumkg_hcl*dtchem))\n      \n! compute max possible nh4 condensation for each bin\n      do ibin = 1, nbin_a\n        if(jaerosolstate(ibin) .ne. no_aerosol)then\n          delta_nh3_max(ibin) = delta_nh3*kg(inh3_g,ibin)/sumkg_nh3\n          delta_hno3_max(ibin)= delta_hno3*kg(ihno3_g,ibin)/sumkg_hno3\n          delta_hcl_max(ibin) = delta_hcl*kg(ihcl_g,ibin)/sumkg_hcl\n        endif\n      enddo\n\n\n      if(delta_h2so4 .eq. 0.0 .and. delta_tmsa .eq. 0.0 .and. delta_n2o5 .eq. 0.0)then\n        iupdate_phase_state = mNO\n        goto 100\n      endif\n\n\n! now condense appropriate amounts of nh3 to each bin\n      do ibin = 1, nbin_a\n\n        if(epercent(jnacl,jtotal,ibin)  .eq. 0.0 .and. &\n           epercent(jcacl2,jtotal,ibin) .eq. 0.0 .and. &\n           epercent(jnano3,jtotal,ibin) .eq. 0.0 .and. &\n           epercent(jcano3,jtotal,ibin) .eq. 0.0 .and. &\n           epercent(jcaco3,jtotal,ibin) .eq. 0.0 .and. &\n           jaerosolstate(ibin) .ne. no_aerosol)then\n        \n          delta_nh4(ibin)=min( (2.*delta_so4(ibin)+delta_msa(ibin)+2.*delta_no3_rct1(ibin)+delta_no3_rct2(ibin)), &\n                                delta_nh3_max(ibin) )\n     \n          aer(inh4_a,jtotal,ibin) = aer(inh4_a,jtotal,ibin) +        &\t! update aer-phase\n                                    delta_nh4(ibin)\n\n          gas(inh3_g) = gas(inh3_g) - delta_nh4(ibin)\t\t! update gas-phase\n\n        else\n\n          delta_nh4(ibin) = 0.0\n\n        endif\n\n      enddo\n\n      iupdate_phase_state = mYES\n\n\n! recompute phase equilibrium\n100   if(iupdate_phase_state .eq. mYES)then\n        do ibin = 1, nbin_a\n          if(jaerosolstate(ibin) .ne. no_aerosol)then\n            call conform_electrolytes(jtotal,ibin,XT)\n            call aerosol_phase_state(ibin)\n          endif\n        enddo\n      endif\n\n      return\n      end subroutine ASTEM_non_volatiles\n\n\n\n\n\n\n\n!***********************************************************************\n! computes mass transfer coefficients for each condensing species for\n! all the aerosol bins\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine aerosolmtc(vbs_nbin)\n\n      use module_data_mosaic_asect\n\n!     implicit none\n!     include 'v33com9a'\n!     include 'mosaic.h'\n! local variables\n      integer nghq,vbs_nbin(1)\n      integer start_ind\n      parameter (nghq = 2)\t\t! gauss-hermite quadrature order\n      integer ibin, iq, iv\n      real(kind=8) tworootpi, root2, beta\n      parameter (tworootpi = 3.5449077, root2 = 1.4142135, beta = 2.0)\n      real(kind=8) cdum, dp, dp_avg, fkn, kn, lnsg, lndpgn, lndp, speed,   &\n           sumghq\n      real(kind=8) xghq(nghq), wghq(nghq)\t\t\t! quadrature abscissae and weights\n      real(kind=8) mw_vol(ngas_volatile+ngas_het), v_molar(ngas_volatile+ngas_het), \t\t     &  ! mw and molar vols of volatile species\n           freepath(ngas_volatile+ngas_het), accom(ngas_volatile+ngas_het),   &\n           dg(ngas_volatile+ngas_het) \t\t\t\t! keep local\n!     real(kind=8) fuchs_sutugin\t\t\t\t! mosaic func\n!     real(kind=8) gas_diffusivity\t\t\t\t! mosaic func\n!     real(kind=8) mean_molecular_speed\t\t\t\t! mosaic func\n\n\n\n\n\n! molecular weights\n      mw_vol(ih2so4_g) = 98.0\n      mw_vol(ihno3_g)  = 63.0\n      mw_vol(ihcl_g)   = 36.5\n      mw_vol(inh3_g)   = 17.0\n      mw_vol(in2o5_g)  = 108.0\n      mw_vol(iclno2_g) = 81.5\n      mw_vol(imsa_g)   = 96.0\n      mw_vol(ipcg1_b_c_g) =250.0\n      mw_vol(ipcg2_b_c_g) =250.0\n      mw_vol(ipcg3_b_c_g)=250.0\n      mw_vol(ipcg4_b_c_g)=250.0\n      mw_vol(ipcg5_b_c_g)=250.0\n      mw_vol(ipcg6_b_c_g)=250.0\n      mw_vol(ipcg7_b_c_g)=250.0\n      mw_vol(ipcg8_b_c_g)=250.0\n      mw_vol(ipcg9_b_c_g)=250.0\n      mw_vol(iopcg1_b_c_g)=250.0\n      mw_vol(iopcg2_b_c_g)=250.0\n      mw_vol(iopcg3_b_c_g)=250.0\n      mw_vol(iopcg4_b_c_g)=250.0\n      mw_vol(iopcg5_b_c_g)=250.0\n      mw_vol(iopcg6_b_c_g)=250.0\n      mw_vol(iopcg7_b_c_g)=250.0\n      mw_vol(iopcg8_b_c_g)=250.0\n      mw_vol(ipcg1_b_o_g)=250.0\n      mw_vol(ipcg2_b_o_g)=250.0\n      mw_vol(ipcg3_b_o_g)=250.0\n      mw_vol(ipcg4_b_o_g)=250.0\n      mw_vol(ipcg5_b_o_g)=250.0\n      mw_vol(ipcg6_b_o_g)=250.0\n      mw_vol(ipcg7_b_o_g)=250.0\n      mw_vol(ipcg8_b_o_g)=250.0\n      mw_vol(ipcg9_b_o_g)=250.0\n      mw_vol(iopcg1_b_o_g)=250.0\n      mw_vol(iopcg2_b_o_g)=250.0\n      mw_vol(iopcg3_b_o_g)=250.0\n      mw_vol(iopcg4_b_o_g)=250.0\n      mw_vol(iopcg5_b_o_g)=250.0\n      mw_vol(iopcg6_b_o_g)=250.0\n      mw_vol(iopcg7_b_o_g)=250.0\n      mw_vol(iopcg8_b_o_g)=250.0\n      mw_vol(ipcg1_f_c_g) =250.0\n      mw_vol(ipcg2_f_c_g) =250.0\n      mw_vol(ipcg3_f_c_g)=250.0\n      mw_vol(ipcg4_f_c_g)=250.0\n      mw_vol(ipcg5_f_c_g)=250.0\n      mw_vol(ipcg6_f_c_g)=250.0\n      mw_vol(ipcg7_f_c_g)=250.0\n      mw_vol(ipcg8_f_c_g)=250.0\n      mw_vol(ipcg9_f_c_g)=250.0\n      mw_vol(iopcg1_f_c_g)=250.0\n      mw_vol(iopcg2_f_c_g)=250.0\n      mw_vol(iopcg3_f_c_g)=250.0\n      mw_vol(iopcg4_f_c_g)=250.0\n      mw_vol(iopcg5_f_c_g)=250.0\n      mw_vol(iopcg6_f_c_g)=250.0\n      mw_vol(iopcg7_f_c_g)=250.0\n      mw_vol(iopcg8_f_c_g)=250.0\n      mw_vol(ipcg1_f_o_g)=250.0\n      mw_vol(ipcg2_f_o_g)=250.0\n      mw_vol(ipcg3_f_o_g)=250.0\n      mw_vol(ipcg4_f_o_g)=250.0\n      mw_vol(ipcg5_f_o_g)=250.0\n      mw_vol(ipcg6_f_o_g)=250.0\n      mw_vol(ipcg7_f_o_g)=250.0\n      mw_vol(ipcg8_f_o_g)=250.0\n      mw_vol(ipcg9_f_o_g)=250.0\n      mw_vol(iopcg1_f_o_g)=250.0\n      mw_vol(iopcg2_f_o_g)=250.0\n      mw_vol(iopcg3_f_o_g)=250.0\n      mw_vol(iopcg4_f_o_g)=250.0\n      mw_vol(iopcg5_f_o_g)=250.0\n      mw_vol(iopcg6_f_o_g)=250.0\n      mw_vol(iopcg7_f_o_g)=250.0\n      mw_vol(iopcg8_f_o_g)=250.0\n      mw_vol(ismpa_g)=250.0\n      mw_vol(ismpbb_g)=250.0\n      mw_vol(igly)=58.0\n      mw_vol(iho)=17.0\n      mw_vol(iant1_c_g)=250.0\n      mw_vol(iant2_c_g)=250.0\n      mw_vol(iant3_c_g)=250.0\n      mw_vol(iant4_c_g)=250.0\n      mw_vol(iant1_o_g)=250.0\n      mw_vol(iant2_o_g)=250.0\n      mw_vol(iant3_o_g)=250.0\n      mw_vol(iant4_o_g)=250.0\n      mw_vol(ibiog1_c_g)=250.0\n      mw_vol(ibiog2_c_g)=250.0\n      mw_vol(ibiog3_c_g)=250.0\n      mw_vol(ibiog4_c_g)=250.0\n      mw_vol(ibiog1_o_g)=250.0\n      mw_vol(ibiog2_o_g)=250.0\n      mw_vol(ibiog3_o_g)=250.0\n      mw_vol(ibiog4_o_g)=250.0\n      mw_vol(iasoaX_g)=250.0\n      mw_vol(iasoa1_g)=250.0\n      mw_vol(iasoa2_g)=250.0\n      mw_vol(iasoa3_g)=250.0\n      mw_vol(iasoa4_g)=250.0\n      mw_vol(ibsoaX_g)=250.0\n      mw_vol(ibsoa1_g)=250.0\n      mw_vol(ibsoa2_g)=250.0\n      mw_vol(ibsoa3_g)=250.0\n      mw_vol(ibsoa4_g)=250.0\n\n\n\n\n\n      v_molar(ih2so4_g)= 42.88\n      v_molar(ihno3_g) = 24.11\n      v_molar(ihcl_g)  = 21.48\n      v_molar(inh3_g)  = 14.90\n      v_molar(imsa_g)  = 58.00\n      v_molar(in2o5_g) = 60.40\n      v_molar(iclno2_g)= 52.70\n\n! mass accommodation coefficients\n      accom(ih2so4_g)  = 0.1\n      accom(ihno3_g)   = 0.1\n      accom(ihcl_g)    = 0.1\n      accom(inh3_g)    = 0.1\n      accom(in2o5_g)   = 0.1  ! dummy variable - will recalc later..\n      accom(iclno2_g)  = 0.1  ! dummy - for convenience of calcs\n      accom(imsa_g)    = 0.1\n      accom(ipcg1_b_c_g) =0.1\n      accom(ipcg2_b_c_g) =0.1\n      accom(ipcg3_b_c_g)=0.1\n      accom(ipcg4_b_c_g)=0.1\n      accom(ipcg5_b_c_g)=0.1\n      accom(ipcg6_b_c_g)=0.1\n      accom(ipcg7_b_c_g)=0.1\n      accom(ipcg8_b_c_g)=0.1\n      accom(ipcg9_b_c_g)=0.1\n      accom(iopcg1_b_c_g)=0.1\n      accom(iopcg2_b_c_g)=0.1\n      accom(iopcg3_b_c_g)=0.1\n      accom(iopcg4_b_c_g)=0.1\n      accom(iopcg5_b_c_g)=0.1\n      accom(iopcg6_b_c_g)=0.1\n      accom(iopcg7_b_c_g)=0.1\n      accom(iopcg8_b_c_g)=0.1\n      accom(ipcg1_b_o_g)=0.1\n      accom(ipcg2_b_o_g)=0.1\n      accom(ipcg3_b_o_g)=0.1\n      accom(ipcg4_b_o_g)=0.1\n      accom(ipcg5_b_o_g)=0.1\n      accom(ipcg6_b_o_g)=0.1\n      accom(ipcg7_b_o_g)=0.1\n      accom(ipcg8_b_o_g)=0.1\n      accom(ipcg9_b_o_g)=0.1\n      accom(iopcg1_b_o_g)=0.1\n      accom(iopcg2_b_o_g)=0.1\n      accom(iopcg3_b_o_g)=0.1\n      accom(iopcg4_b_o_g)=0.1\n      accom(iopcg5_b_o_g)=0.1\n      accom(iopcg6_b_o_g)=0.1\n      accom(iopcg7_b_o_g)=0.1\n      accom(iopcg8_b_o_g)=0.1\n      accom(ipcg1_f_c_g) =0.1\n      accom(ipcg2_f_c_g) =0.1\n      accom(ipcg3_f_c_g)=0.1\n      accom(ipcg4_f_c_g)=0.1\n      accom(ipcg5_f_c_g)=0.1\n      accom(ipcg6_f_c_g)=0.1\n      accom(ipcg7_f_c_g)=0.1\n      accom(ipcg8_f_c_g)=0.1\n      accom(ipcg9_f_c_g)=0.1\n      accom(iopcg1_f_c_g)=0.1\n      accom(iopcg2_f_c_g)=0.1\n      accom(iopcg3_f_c_g)=0.1\n      accom(iopcg4_f_c_g)=0.1\n      accom(iopcg5_f_c_g)=0.1\n      accom(iopcg6_f_c_g)=0.1\n      accom(iopcg7_f_c_g)=0.1\n      accom(iopcg8_f_c_g)=0.1\n      accom(ipcg1_f_o_g)=0.1\n      accom(ipcg2_f_o_g)=0.1\n      accom(ipcg3_f_o_g)=0.1\n      accom(ipcg4_f_o_g)=0.1\n      accom(ipcg5_f_o_g)=0.1\n      accom(ipcg6_f_o_g)=0.1\n      accom(ipcg7_f_o_g)=0.1\n      accom(ipcg8_f_o_g)=0.1\n      accom(ipcg9_f_o_g)=0.1\n      accom(iopcg1_f_o_g)=0.1\n      accom(iopcg2_f_o_g)=0.1\n      accom(iopcg3_f_o_g)=0.1\n      accom(iopcg4_f_o_g)=0.1\n      accom(iopcg5_f_o_g)=0.1\n      accom(iopcg6_f_o_g)=0.1\n      accom(iopcg7_f_o_g)=0.1\n      accom(iopcg8_f_o_g)=0.1\n      accom(ismpa_g)=0.1\n      accom(ismpbb_g)=0.1\n      ! added glyoxal, but only for completeness - is hopefully never used\n      accom(igly)=0.1\n      accom(iho)=0.1\n      accom(iant1_c_g)=0.1\n      accom(iant2_c_g)=0.1\n      accom(iant3_c_g)=0.1\n      accom(iant4_c_g)=0.1\n      accom(iant1_o_g)=0.1\n      accom(iant2_o_g)=0.1\n      accom(iant3_o_g)=0.1\n      accom(iant4_o_g)=0.1\n      accom(ibiog1_c_g)=0.1\n      accom(ibiog2_c_g)=0.1\n      accom(ibiog3_c_g)=0.1\n      accom(ibiog4_c_g)=0.1\n      accom(ibiog1_o_g)=0.1\n      accom(ibiog2_o_g)=0.1\n      accom(ibiog3_o_g)=0.1\n      accom(ibiog4_o_g)=0.1\n      accom(iasoaX_g)=0.1\n      accom(iasoa1_g)=0.1\n      accom(iasoa2_g)=0.1\n      accom(iasoa3_g)=0.1\n      accom(iasoa4_g)=0.1\n      accom(ibsoaX_g)=0.1\n      accom(ibsoa1_g)=0.1\n      accom(ibsoa2_g)=0.1\n      accom(ibsoa3_g)=0.1\n      accom(ibsoa4_g)=0.1\n\n\n\n\n! quadrature weights\n      xghq(1) =  0.70710678\n      xghq(2) = -0.70710678\n      wghq(1) =  0.88622693\n      wghq(2) =  0.88622693\n\n\n\n! calculate gas diffusivity and mean free path for condensing gases\n! ioa\n      do iv = 1, ngas_ioa\n        speed  = mean_molecular_speed(t_k,mw_vol(iv))\t! cm/s\n        dg(iv) = gas_diffusivity(t_k,p_atm,mw_vol(iv),v_molar(iv)) ! cm^2/s\n        freepath(iv) = 3.*dg(iv)/speed\t\t\t! cm\n      enddo\n\n! soa\n      start_ind = 1\n      if(vbs_nbin(1) .eq. 0) then\n        start_ind = ismpa_g\n      else if (vbs_nbin(1) .eq. 4) then\n        start_ind = iasoaX_g\n      else\n        start_ind = ipcg1_b_c_g\n      end if\n      !BSINGH(03/10/2015): Added 2 in the following do-loop to accomodate oh and gly species.\n      ! *IMPORTANT*:This is a TEMPORARY fix, we need a better fix for this problem.\n      do iv = start_ind, ngas_ioa + ngas_soa+2\n        speed = mean_molecular_speed(t_k,mw_vol(iv))    ! cm/s\n        dg(iv) = 0.1                                    ! cm^2/s (increased from 0.2 to 0.035 by Manish Shrivastava)\n        freepath(iv) = 3.*dg(iv)/speed\n      enddo\n\n! het-rct gases   ! DL 9/9/2011\n      do iv = (ngas_volatile+1), (ngas_volatile+ngas_het)\n        speed = mean_molecular_speed(t_k,mw_vol(iv))\t! cm/s\n\t\tdg(iv) = gas_diffusivity(t_k,p_atm,mw_vol(iv),v_molar(iv)) ! cm^2/s\n\t\tfreepath(iv) = 3.*dg(iv)/speed\t\t\t! cm\n      enddo\n\n\n! calc mass transfer coefficients for gases over various aerosol bins\n\n      if (msize_framework .eq. mmodal) then\n\n! for modal approach\n      do 10 ibin = 1, nbin_a\n\n        if(jaerosolstate(ibin) .eq. no_aerosol)goto 10\n        call calc_dry_n_wet_aerosol_props(ibin)\n\n        dpgn_a(ibin) = dp_wet_a(ibin)\t! cm\n\n        lnsg   = log(sigmag_a(ibin))\n        lndpgn = log(dpgn_a(ibin))\n        cdum   = tworootpi*num_a(ibin)*   &\n                 exp(beta*lndpgn + 0.5*(beta*lnsg)**2)\n\n        do 20 iv = 1, ngas_volatile + ngas_het\n\n\t\t  if(iv.eq.in2o5_g)then\t! recalculate accom coeff for N2O5\n\t\t  \t\t\t\t\t\t! for each different aerosol composition\n\t\t  \t\t\t\t\t\t! (use total aerosol composition for now)\n\t\t  \tif(n2o5_flag.gt.0)then\n\t\t  \t\taccom(iv) = acc_n2o5_bert_thorn(water_a(ibin),&\n\t\t  \t\t\t\t\t\t\taer(ino3_a,jtotal,ibin),&\n\t\t  \t\t\t\t\t\t\taer(icl_a,jtotal,ibin),&\n\t\t  \t\t\t\t\t\t\tvol_wet_a(ibin))\n\t\t  \telse\n\t\t  \t\taccom(iv) = 0.0\n\t\t  \tendif\n\t\t  end if\n\n          sumghq = 0.0\n          do 30 iq = 1, nghq\t! sum over gauss-hermite quadrature points\n            lndp = lndpgn + beta*lnsg**2 + root2*lnsg*xghq(iq)\n            dp = exp(lndp)\n            kn = 2.*freepath(iv)/dp\n            !Luofkn = fuchs_sutugin(kn,accom(iv))\n            fkn = fuchs_sutugin(kn,0.1d0)\n            sumghq = sumghq + wghq(iq)*dp*fkn/(dp**beta)\n30        continue\n\n        kg(iv,ibin) = cdum*dg(iv)*sumghq\t\t! 1/s\n20      continue\n\t\t\n\t\tif(n2o5_flag.gt.0)then\n\t\t\t! calculate the reaction path splitting for\n\t  \t\t! heterogeneous N2O5 reactions\n\t  \t\tfrac_n2o5_h2o(ibin) = split_n2o5_bert_thorn(water_a(ibin),&\n\t\t  \t\t\t\t\t\t\taer(icl_a,jtotal,ibin),&\n\t\t  \t\t\t\t\t\t\tvol_wet_a(ibin))\n\t\telse\n\t\t\tfrac_n2o5_h2o(ibin) = 0.0\n\t\tendif\n\t\t\t\n10    continue\n\n      elseif(msize_framework .eq. msection)then\n\n! for sectional approach\n      do 11 ibin = 1, nbin_a\n\n        if(jaerosolstate(ibin) .eq. no_aerosol)goto 11\n\n        call calc_dry_n_wet_aerosol_props(ibin)\n\n        dp_avg = dp_wet_a(ibin)\n        cdum  = 6.283185*dp_avg*num_a(ibin)\n\n        do 21 iv = 1, ngas_volatile+ngas_het\n\t\t  if(iv.eq.in2o5_g)then\t! recalculate accom coeff for N2O5\n\t\t  \t\t\t\t\t\t! for each different aerosol composition\n\t\t  \t\t\t\t\t\t! (use total aerosol composition for now)\n\t\t  \tif(n2o5_flag.gt.0)then\n\t\t  \t\taccom(iv) = acc_n2o5_bert_thorn(water_a(ibin),&\n\t\t  \t\t\t\t\t\t\taer(ino3_a,jtotal,ibin),&\n\t\t  \t\t\t\t\t\t\taer(icl_a,jtotal,ibin),&\n\t\t  \t\t\t\t\t\t\tvol_wet_a(ibin))\n\t\t  \telse\n\t\t  \t\taccom(iv) = 0.0\n\t\t  \tend if\n\t\t  end if\n          kn = 2.*freepath(iv)/dp_avg\n          !Luofkn = fuchs_sutugin(kn,accom(iv))\n          fkn = fuchs_sutugin(kn,0.1d0)\n          kg(iv,ibin) = cdum*dg(iv)*fkn\t\t! 1/s!Increased by a factor of 10000 by Manish Shrivastava to force to equilibrium\n!           fraceq(iv,ibin)=num_a(ibin)*dp_wet_a(ibin)/(kn/accom(iv)+1)\n21      continue\n\t\tif(n2o5_flag.gt.0)then\n\t\t\t! calculate the reaction path splitting for\n\t  \t\t! heterogeneous N2O5 reactions\n\t  \t\tfrac_n2o5_h2o(ibin) = split_n2o5_bert_thorn(water_a(ibin),&\n\t\t  \t\t\t\t\t\t\taer(icl_a,jtotal,ibin),&\n\t\t  \t\t\t\t\t\t\tvol_wet_a(ibin))\t\n\t\telse\n\t\t\tfrac_n2o5_h2o(ibin) = 0.0\n\t\tend if\n\t\t\n11    continue\n\n      else\n\n        if (iprint_mosaic_fe1 .gt. 0) then\n          write(6,*)'error in the choice of msize_framework'\n          write(6,*)'mosaic fatal error in subr. aerosolmtc'\n        endif\n!       stop\n        istat_mosaic_fe1 = -1900\n        return\n\n      endif\n\n\n      return\n      end subroutine aerosolmtc\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! calculates dry and wet aerosol properties: density, refractive indices\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine calc_dry_n_wet_aerosol_props(ibin)\n\n      use module_data_mosaic_asect\n\n!     implicit none\n!     include 'v33com9a'\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer jc, je, iaer, isize, itype\n      real(kind=8) aer_H\n      complex(kind=8) ri_dum\n\n\n! calculate dry mass and dry volume of a bin\n      mass_dry_a(ibin) = 0.0\t\t! initialize to 0.0\n      vol_dry_a(ibin)  = 0.0\t\t! initialize to 0.0\n      area_dry_a(ibin) = 0.0\t\t! initialize to 0.0\n\n      if(jaerosolstate(ibin) .ne. no_aerosol)then\n\n        aer_H = (2.*aer(iso4_a,jtotal,ibin) +  &\n                    aer(ino3_a,jtotal,ibin) +  &\n                    aer(icl_a,jtotal,ibin)  +  &\n                    aer(imsa_a,jtotal,ibin) +  &\n                 2.*aer(ico3_a,jtotal,ibin))-  &\n                (2.*aer(ica_a,jtotal,ibin)  +  &\n                    aer(ina_a,jtotal,ibin)  +  &\n                    aer(inh4_a,jtotal,ibin))\n\n      do iaer = 1, naer\n        mass_dry_a(ibin) = mass_dry_a(ibin) +   &\n                           aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)\t! ng/m^3(air)\n        vol_dry_a(ibin) = vol_dry_a(ibin) +   &\n        aer(iaer,jtotal,ibin)*mw_aer_mac(iaer)/dens_aer_mac(iaer)  \t! ncc/m^3(air)\n      enddo\n        mass_dry_a(ibin) = mass_dry_a(ibin) + aer_H\n        vol_dry_a(ibin) = vol_dry_a(ibin) + aer_H\n\n      mass_dry_a(ibin) = mass_dry_a(ibin)*1.e-15\t\t\t! g/cc(air)\n      vol_dry_a(ibin) = vol_dry_a(ibin)*1.e-15\t\t\t\t! cc(aer)/cc(air)\n\n! wet mass and wet volume\n        mass_wet_a(ibin) = mass_dry_a(ibin) + water_a(ibin)*1.e-3\t! g/cc(air)\n        vol_wet_a(ibin)  = vol_dry_a(ibin) + water_a(ibin)*1.e-3\t! cc(aer)/cc(air)\n\n! calculate mean dry and wet particle densities\n        dens_dry_a(ibin) = mass_dry_a(ibin)/vol_dry_a(ibin) ! g/cc(aerosol)\n        dens_wet_a(ibin) = mass_wet_a(ibin)/vol_wet_a(ibin) ! g/cc(aerosol)\n\n! calculate mean dry and wet particle surface areas\n        area_dry_a(ibin)= 0.785398*num_a(ibin)*Dp_dry_a(ibin)**2\t! cm^2/cc(air)\n        area_wet_a(ibin)= 0.785398*num_a(ibin)*Dp_wet_a(ibin)**2\t! cm^2/cc(air)\n\n! calculate mean dry and wet particle diameters\n        dp_dry_a(ibin)=(1.90985*vol_dry_a(ibin)/num_a(ibin))**0.3333333\t! cm\n        dp_wet_a(ibin)=(1.90985*vol_wet_a(ibin)/num_a(ibin))**0.3333333 ! cm\n\n! calculate volume average refractive index\n!   load comp_a array\n        do je = 1, nelectrolyte\n          comp_a(je)=electrolyte(je,jtotal,ibin)*mw_comp_a(je)*1.e-15\t! g/cc(air)\n        enddo\n        comp_a(joc)  = aer(ioc_a,jtotal,ibin)*mw_comp_a(je)*1.e-15\t! g/cc(air)\n        comp_a(jbc)  = aer(ibc_a,jtotal,ibin)*mw_comp_a(je)*1.e-15\t! g/cc(air)\n        comp_a(join) = aer(ioin_a,jtotal,ibin)*mw_comp_a(je)*1.e-15\t! g/cc(air)\n         comp_a(jpcg1_b_c)= aer(ipcg1_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg2_b_c)= aer(ipcg2_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg3_b_c)= aer(ipcg3_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg4_b_c)= aer(ipcg4_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg5_b_c)= aer(ipcg5_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg6_b_c)= aer(ipcg6_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg7_b_c)= aer(ipcg7_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg8_b_c)= aer(ipcg8_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg9_b_c)= aer(ipcg9_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg1_b_c)= aer(iopcg1_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg2_b_c)= aer(iopcg2_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg3_b_c)= aer(iopcg3_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg4_b_c)= aer(iopcg4_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg5_b_c)= aer(iopcg5_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg6_b_c)= aer(iopcg6_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg7_b_c)= aer(iopcg7_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg8_b_c)= aer(iopcg8_b_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg1_b_o)= aer(ipcg1_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg2_b_o)= aer(ipcg2_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg3_b_o)= aer(ipcg3_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg4_b_o)= aer(ipcg4_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg5_b_o)= aer(ipcg5_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg6_b_o)= aer(ipcg6_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg7_b_o)= aer(ipcg7_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg8_b_o)= aer(ipcg8_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg9_b_o)= aer(ipcg9_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg1_b_o)= aer(iopcg1_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg2_b_o)= aer(iopcg2_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg3_b_o)= aer(iopcg3_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg4_b_o)= aer(iopcg4_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg5_b_o)= aer(iopcg5_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg6_b_o)= aer(iopcg6_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg7_b_o)= aer(iopcg7_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg8_b_o)= aer(iopcg8_b_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg1_f_c)= aer(ipcg1_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg2_f_c)= aer(ipcg2_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg3_f_c)= aer(ipcg3_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg4_f_c)= aer(ipcg4_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg5_f_c)= aer(ipcg5_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg6_f_c)= aer(ipcg6_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg7_f_c)= aer(ipcg7_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg8_f_c)= aer(ipcg8_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg9_f_c)= aer(ipcg9_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg1_f_c)= aer(iopcg1_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg2_f_c)= aer(iopcg2_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg3_f_c)= aer(iopcg3_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg4_f_c)= aer(iopcg4_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg5_f_c)= aer(iopcg5_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg6_f_c)= aer(iopcg6_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg7_f_c)= aer(iopcg7_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg8_f_c)= aer(iopcg8_f_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg1_f_o)= aer(ipcg1_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg2_f_o)= aer(ipcg2_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg3_f_o)= aer(ipcg3_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg4_f_o)= aer(ipcg4_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg5_f_o)= aer(ipcg5_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg6_f_o)= aer(ipcg6_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg7_f_o)= aer(ipcg7_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg8_f_o)= aer(ipcg8_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jpcg9_f_o)= aer(ipcg9_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg1_f_o)= aer(iopcg1_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg2_f_o)= aer(iopcg2_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg3_f_o)= aer(iopcg3_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg4_f_o)= aer(iopcg4_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg5_f_o)= aer(iopcg5_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg6_f_o)= aer(iopcg6_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg7_f_o)= aer(iopcg7_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jopcg8_f_o)= aer(iopcg8_f_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jsmpa)= aer(ismpa_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jsmpbb)= aer(ismpbb_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jglysoa_r1)= aer(iglysoa_r1_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jglysoa_r2)= aer(iglysoa_r2_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jglysoa_sfc)= aer(iglysoa_sfc_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jglysoa_nh4)= aer(iglysoa_nh4_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jglysoa_oh)= aer(iglysoa_oh_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant1_c)= aer(iant1_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant2_c)= aer(iant2_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant3_c)= aer(iant3_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant4_c)= aer(iant4_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant1_o)= aer(iant1_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant2_o)= aer(iant2_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant3_o)= aer(iant3_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jant4_o)= aer(iant4_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog1_c)= aer(ibiog1_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog2_c)= aer(ibiog2_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog3_c)= aer(ibiog3_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog4_c)= aer(ibiog4_c_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog1_o)= aer(ibiog1_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog2_o)= aer(ibiog2_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog3_o)= aer(ibiog3_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbiog4_o)= aer(ibiog4_o_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jasoaX)= aer(iasoaX_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jasoa1)= aer(iasoa1_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jasoa2)= aer(iasoa2_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jasoa3)= aer(iasoa3_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jasoa4)= aer(iasoa4_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbsoaX)= aer(ibsoaX_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbsoa1)= aer(ibsoa1_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbsoa2)= aer(ibsoa2_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbsoa3)= aer(ibsoa3_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n         comp_a(jbsoa4)= aer(ibsoa4_a,jtotal,ibin)*mw_comp_a(je)*1.e-15 ! g/cc(air)\n\n\n\n        comp_a(jh2o) = water_a(ibin)*1.e-3\t\t\t\t! g/cc(air)\n\n        ri_dum = (0.0,0.0)\n        do jc = 1, naercomp\n          if (dens_comp_a(jc).gt.0) then\n          ri_dum = ri_dum + ref_index_a(jc)*comp_a(jc)/dens_comp_a(jc)\n          endif\n        enddo\n\n        ri_avg_a(ibin) = ri_dum/vol_wet_a(ibin)\n\n      else\t! use defaults\n\n        dens_dry_a(ibin) = 1.0\t ! g/cc(aerosol)\n        dens_wet_a(ibin) = 1.0\t ! g/cc(aerosol)\n\n        call isize_itype_from_ibin( ibin, isize, itype )\n        dp_dry_a(ibin) = dcen_sect(isize,itype)\t! cm\n        dp_wet_a(ibin) = dcen_sect(isize,itype)\t! cm\n\n        ri_avg_a(ibin) = (1.5,0.0)\n      endif\n\n\n      return\n      end subroutine calc_dry_n_wet_aerosol_props\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! computes activities\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine compute_activities(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer jp, ja\n      real(kind=8) xt, xmol(nelectrolyte), sum_elec, dumK, c_bal, a_c\n      real(kind=8) quad, aq, bq, cq, xq, dum\n! function\n!     real(kind=8) aerosol_water\n\n\n      water_a(ibin) = aerosol_water(jliquid,ibin)\t! kg/m^3(air)\n      if(water_a(ibin) .eq. 0.0)return\n\n\n      call calculate_xt(ibin,jliquid,xt)\n\n      if(xt.gt.2.0 .or. xt.lt.0.)then\n! sulfate poor: fully dissociated electrolytes\n\n\n! anion molalities (mol/kg water)\n      ma(ja_so4,ibin)  = 1.e-9*aer(iso4_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_hso4,ibin) = 0.0\n      ma(ja_no3,ibin)  = 1.e-9*aer(ino3_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_cl,ibin)   = 1.e-9*aer(icl_a, jliquid,ibin)/water_a(ibin)\n      ma(ja_msa,ibin)  = 1.e-9*aer(imsa_a,jliquid,ibin)/water_a(ibin)\n\n! cation molalities (mol/kg water)\n      mc(jc_ca,ibin)   = 1.e-9*aer(ica_a, jliquid,ibin)/water_a(ibin)\n      mc(jc_nh4,ibin)  = 1.e-9*aer(inh4_a,jliquid,ibin)/water_a(ibin)\n      mc(jc_na,ibin)   = 1.e-9*aer(ina_a, jliquid,ibin)/water_a(ibin)\n      a_c              = ( 2.d0*ma(ja_so4,ibin)+  &\n                                ma(ja_no3,ibin)+  &\n                                ma(ja_cl,ibin) +  &\n                                ma(ja_msa,ibin) ) - &\n                         ( 2.d0*mc(jc_ca,ibin) +  &\n                                mc(jc_nh4,ibin)+  &\n                                mc(jc_na,ibin) )\n      mc(jc_h,ibin) = 0.5*a_c + sqrt(a_c**2 + 4.*Keq_ll(3))\n\n      if(mc(jc_h,ibin) .eq. 0.0)then\n        mc(jc_h,ibin) = sqrt(Keq_ll(3))\n      endif\n\n\n      jp = jliquid\n      \n      \n      sum_elec = 2.*electrolyte(jnh4no3,jp,ibin) +  &\n                 2.*electrolyte(jnh4cl,jp,ibin)  +  &\n                 3.*electrolyte(jnh4so4,jp,ibin) +  &\n                 3.*electrolyte(jna2so4,jp,ibin) +  &\n                 2.*electrolyte(jnano3,jp,ibin)  +  &\n                 2.*electrolyte(jnacl,jp,ibin)   +  &\n                 3.*electrolyte(jcano3,jp,ibin)  +  &\n                 3.*electrolyte(jcacl2,jp,ibin)  +  &\n                 2.*electrolyte(jhno3,jp,ibin)   +  &\n                 2.*electrolyte(jhcl,jp,ibin)\n\n      if(sum_elec .eq. 0.0)then\n        do ja = 1, nelectrolyte\n          gam(ja,ibin) = 1.0\n        enddo\n        goto 10\n      endif\n     \n     \n! ionic mole fractions\n      xmol(jnh4no3) = 2.*electrolyte(jnh4no3,jp,ibin)/sum_elec\n      xmol(jnh4cl)  = 2.*electrolyte(jnh4cl,jp,ibin) /sum_elec\n      xmol(jnh4so4) = 3.*electrolyte(jnh4so4,jp,ibin)/sum_elec\n      xmol(jna2so4) = 3.*electrolyte(jna2so4,jp,ibin)/sum_elec\n      xmol(jnano3)  = 2.*electrolyte(jnano3,jp,ibin) /sum_elec\n      xmol(jnacl)   = 2.*electrolyte(jnacl,jp,ibin)  /sum_elec\n      xmol(jcano3)  = 3.*electrolyte(jcano3,jp,ibin) /sum_elec\n      xmol(jcacl2)  = 3.*electrolyte(jcacl2,jp,ibin) /sum_elec\n      xmol(jhno3)   = 2.*electrolyte(jhno3,jp,ibin)  /sum_elec\n      xmol(jhcl)    = 2.*electrolyte(jhcl,jp,ibin)   /sum_elec\n\n\n      ja = jnh4so4\n      if(xmol(ja).gt.0.0)then\n      log_gam(ja) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jnh4so4,ibin) = mc(jc_nh4,ibin)**2*ma(ja_so4,ibin)* &\n                               gam(jnh4so4,ibin)**3\n      endif\n\n\n\n      jA = jnh4no3\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jnh4no3,ibin) = mc(jc_nh4,ibin)*ma(ja_no3,ibin)* &\n                               gam(jnh4no3,ibin)**2\n      endif\n\n\n      jA = jnh4cl\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jnh4cl,ibin)  = mc(jc_nh4,ibin)*ma(ja_cl,ibin)* &\n                               gam(jnh4cl,ibin)**2\n      endif\n      \n     \n      jA = jna2so4\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jna2so4,ibin) = mc(jc_na,ibin)**2*ma(ja_so4,ibin)* &\n                               gam(jna2so4,ibin)**3\n      endif\n\n\n      jA = jnano3\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jnano3,ibin)  = mc(jc_na,ibin)*ma(ja_no3,ibin)* &\n                               gam(jnano3,ibin)**2\n      endif\n\n\n\n      jA = jnacl\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jnacl,ibin)   = mc(jc_na,ibin)*ma(ja_cl,ibin)* &\n                               gam(jnacl,ibin)**2\n      endif\n\n\n\n!      jA = jcano3\n!      if(xmol(jA).gt.0.0)then\n!      gam(jA,ibin) = 1.0\n!      activity(jcano3,ibin)  = 1.0\n!      endif\n\n\n     \n!      jA = jcacl2\n!      if(xmol(jA).gt.0.0)then\n!      gam(jA,ibin) = 1.0\n!      activity(jcacl2,ibin)  = 1.0\n!      endif\n\n      jA = jcano3\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jcano3,ibin)  = mc(jc_ca,ibin)*ma(ja_no3,ibin)**2* &\n                               gam(jcano3,ibin)**3\n      endif\n\n\n     \n      jA = jcacl2\n      if(xmol(jA).gt.0.0)then\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jcacl2,ibin)  = mc(jc_ca,ibin)*ma(ja_cl,ibin)**2* &\n                               gam(jcacl2,ibin)**3\n      endif\n\n     \n      jA = jhno3\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jhno3,ibin)   = mc(jc_h,ibin)*ma(ja_no3,ibin)* &\n                               gam(jhno3,ibin)**2\n\n\n      jA = jhcl\n      log_gam(jA) = xmol(jnh4no3)*log_gamZ(jA,jnh4no3) +  &\n                    xmol(jnh4cl) *log_gamZ(jA,jnh4cl)  +  &\n                    xmol(jnh4so4)*log_gamZ(jA,jnh4so4) +  &\n                    xmol(jna2so4)*log_gamZ(jA,jna2so4) +  &\n                    xmol(jnano3) *log_gamZ(jA,jnano3)  +  &\n                    xmol(jnacl)  *log_gamZ(jA,jnacl)   +  &\n                    xmol(jcano3) *log_gamZ(jA,jcano3)  +  &\n                    xmol(jcacl2) *log_gamZ(jA,jcacl2)  +  &\n                    xmol(jhno3)  *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)   *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      activity(jhcl,ibin)    = mc(jc_h,ibin)*ma(ja_cl,ibin)* &\n                               gam(jhcl,ibin)**2\n\n!----\n10    gam(jlvcite,ibin) = 1.0\n     \n      gam(jnh4hso4,ibin)= 1.0\n\n      gam(jnh4msa,ibin) = 1.0\n\n      gam(jna3hso4,ibin) = 1.0\n     \n      gam(jnahso4,ibin) = 1.0\n\n      gam(jnamsa,ibin)  = 1.0\n\n      gam(jcamsa2,ibin) = 1.0  ! raz-30apr07\n\n      activity(jlvcite,ibin) = 0.0\n\n      activity(jnh4hso4,ibin)= 0.0\n\n      activity(jnh4msa,ibin) = mc(jc_nh4,ibin)*ma(ja_msa,ibin)* &\n                               gam(jnh4msa,ibin)**2\n     \n      activity(jna3hso4,ibin)= 0.0\n\n      activity(jnahso4,ibin) = 0.0\n\n      activity(jnamsa,ibin) = mc(jc_na,ibin)*ma(ja_msa,ibin)* &  ! raz-30apr07\n                               gam(jnamsa,ibin)**2\n      \n      activity(jcamsa2,ibin) = mc(jc_ca,ibin) * ma(ja_msa,ibin)**2 * &  ! raz-30apr07\n                               gam(jcamsa2,ibin)**3\n\n      gam_ratio(ibin) = gam(jnh4no3,ibin)**2/gam(jhno3,ibin)**2\n\n\n      else\n!  SULFATE-RICH: solve for SO4= and HSO4- ions\n\n      jp = jliquid\n            \n      sum_elec = 3.*electrolyte(jh2so4,jp,ibin)    +  &\n                 2.*electrolyte(jnh4hso4,jp,ibin)  +  &\n                 5.*electrolyte(jlvcite,jp,ibin)   +  &\n                 3.*electrolyte(jnh4so4,jp,ibin)   +  &\n                 2.*electrolyte(jnahso4,jp,ibin)   +  &\n                 5.*electrolyte(jna3hso4,jp,ibin)  +  &\n                 3.*electrolyte(jna2so4,jp,ibin)   +  &\n                 2.*electrolyte(jhno3,jp,ibin)     +  &\n                 2.*electrolyte(jhcl,jp,ibin)\n     \n\n      if(sum_elec .eq. 0.0)then\n        do jA = 1, nelectrolyte\n          gam(jA,ibin) = 1.0\n        enddo\n        goto 20\n      endif\n      \n\n      xmol(jh2so4)  = 3.*electrolyte(jh2so4,jp,ibin)/sum_elec\n      xmol(jnh4hso4)= 2.*electrolyte(jnh4hso4,jp,ibin)/sum_elec\n      xmol(jlvcite) = 5.*electrolyte(jlvcite,jp,ibin)/sum_elec\n      xmol(jnh4so4) = 3.*electrolyte(jnh4so4,jp,ibin)/sum_elec\n      xmol(jnahso4) = 2.*electrolyte(jnahso4,jp,ibin)/sum_elec\n      xmol(jna3hso4)= 5.*electrolyte(jna3hso4,jp,ibin)/sum_elec\n      xmol(jna2so4) = 3.*electrolyte(jna2so4,jp,ibin)/sum_elec\n      xmol(jhno3)   = 2.*electrolyte(jhno3,jp,ibin)/sum_elec\n      xmol(jhcl)    = 2.*electrolyte(jhcl,jp,ibin)/sum_elec\n            \n      \n! 2H.SO4\n      jA = jh2so4\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n\n      \n! H.HSO4\n      jA = jhhso4\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      \n      \n! NH4HSO4\n      jA = jnh4hso4\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      \n      \n! LETOVICITE\n      jA = jlvcite\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      \n      \n! (NH4)2SO4\n      jA = jnh4so4\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      \n      \n! NaHSO4\n      jA = jnahso4\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      \n\n! Na3H(SO4)2\n      jA = jna3hso4\n!      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n!                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n!                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n!                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n!                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n!                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n!                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n!                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n!                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n!      gam(jA,ibin) = 10.**log_gam(jA)\n      gam(jA,ibin) = 1.0\n\n\n! Na2SO4\n      jA = jna2so4\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n\n\n! HNO3\n      jA = jhno3\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n      \n      \n! HCl\n      jA = jhcl\n      log_gam(jA) = xmol(jh2so4)  *log_gamZ(jA,jh2so4)  +  &\n                    xmol(jnh4hso4)*log_gamZ(jA,jnh4hso4)+  &\n                    xmol(jlvcite) *log_gamZ(jA,jlvcite) +  &\n                    xmol(jnh4so4) *log_gamZ(jA,jnh4so4) +  &\n                    xmol(jnahso4) *log_gamZ(jA,jnahso4) +  &\n                    xmol(jna3hso4)*log_gamZ(jA,jna3hso4)+  &\n                    xmol(jna2so4) *log_gamZ(jA,jna2so4) +  &\n                    xmol(jhno3)   *log_gamZ(jA,jhno3)   +  &\n                    xmol(jhcl)    *log_gamZ(jA,jhcl)\n      gam(jA,ibin) = 10.**log_gam(jA)\n\n\n20    gam(jnh4no3,ibin) = 1.0\n      gam(jnh4cl,ibin)  = 1.0\n      gam(jnano3,ibin)  = 1.0\n      gam(jnacl,ibin)   = 1.0\n      gam(jcano3,ibin)  = 1.0\n      gam(jcacl2,ibin)  = 1.0\n\n      gam(jnh4msa,ibin) = 1.0\n      gam(jnamsa,ibin)  = 1.0\n      gam(jcamsa2,ibin) = 1.0  ! raz-30apr07\n\n\n! compute equilibrium pH\n! cation molalities (mol/kg water)\n      mc(jc_ca,ibin)   = 0.0\t! aqueous ca never exists in sulfate rich cases\n      mc(jc_nh4,ibin)  = 1.e-9*aer(inh4_a,jliquid,ibin)/water_a(ibin)\n      mc(jc_na,ibin)   = 1.e-9*aer(ina_a, jliquid,ibin)/water_a(ibin)\n\n! anion molalities (mol/kg water)\n      mSULF            = 1.e-9*aer(iso4_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_hso4,ibin) = 0.0\n      ma(ja_so4,ibin)  = 0.0\n      ma(ja_no3,ibin)  = 1.e-9*aer(ino3_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_cl,ibin)   = 1.e-9*aer(icl_a, jliquid,ibin)/water_a(ibin)\n      ma(ja_msa,ibin)  = 1.e-9*aer(imsa_a,jliquid,ibin)/water_a(ibin)\n\n      gam_ratio(ibin)  = gam(jnh4hso4,ibin)**2/gam(jhhso4,ibin)**2\n      dumK = Keq_ll(1)*gam(jhhso4,ibin)**2/gam(jh2so4,ibin)**3\n      \n      c_bal =  mc(jc_nh4,ibin) + mc(jc_na,ibin) + 2.*mc(jc_ca,ibin) & ! raz-30apr07\n         - ma(ja_no3,ibin) - ma(ja_cl,ibin) - mSULF - ma(ja_msa,ibin)\n      \n      aq = 1.0\n      bq = dumK + c_bal\n      cq = dumK*(c_bal - mSULF)\n\n\n!--quadratic solution      \n        if(bq .ne. 0.0)then\n        xq = 4.*(1./bq)*(cq/bq)\n        else\n        xq = 1.e+6\n        endif\n                \n        if(abs(xq) .lt. 1.e-6)then\n          dum = xq*(0.5 + xq*(0.125 + xq*0.0625))\n          quad = (-0.5*bq/aq)*dum\n          if(quad .lt. 0.)then\n            quad = -bq/aq - quad\n          endif\n        else\n          quad = 0.5*(-bq+sqrt(bq*bq - 4.*cq))\n        endif      \n!--end of quadratic solution       \n\n      mc(jc_h,ibin) = max(quad, 1.D-7)\n      ma(ja_so4,ibin) = mSULF*dumK/(mc(jc_h,ibin) + dumK)\n      ma(ja_hso4,ibin)= mSULF - ma(ja_so4,ibin)\n\n\n      activity(jcamsa2,ibin) = mc(jc_ca,ibin) * ma(ja_msa,ibin)**2 * & ! raz-30apr07\n                               gam(jcamsa2,ibin)**3\n\n      activity(jnh4so4,ibin) = mc(jc_nh4,ibin)**2*ma(ja_so4,ibin)* &\n                               gam(jnh4so4,ibin)**3\n     \n      activity(jlvcite,ibin) = mc(jc_nh4,ibin)**3*ma(ja_hso4,ibin)* &\n                               ma(ja_so4,ibin) * gam(jlvcite,ibin)**5\n\n      activity(jnh4hso4,ibin)= mc(jc_nh4,ibin)*ma(ja_hso4,ibin)* & \n                               gam(jnh4hso4,ibin)**2\n\n      activity(jnh4msa,ibin) = mc(jc_nh4,ibin)*ma(ja_msa,ibin)* &\n                               gam(jnh4msa,ibin)**2\n     \n      activity(jna2so4,ibin) = mc(jc_na,ibin)**2*ma(ja_so4,ibin)* &\n                               gam(jna2so4,ibin)**3\n\n      activity(jnahso4,ibin) = mc(jc_na,ibin)*ma(ja_hso4,ibin)* & \n                               gam(jnahso4,ibin)**2\n\n      activity(jnamsa,ibin)  = mc(jc_na,ibin)*ma(ja_msa,ibin)* &\n                               gam(jnamsa,ibin)**2\n     \n!      activity(jna3hso4,ibin)= mc(jc_na,ibin)**3*ma(ja_hso4,ibin)* &\n!                               ma(ja_so4,ibin)*gam(jna3hso4,ibin)**5\n\n      activity(jna3hso4,ibin)= 0.0\n     \n      activity(jhno3,ibin)   = mc(jc_h,ibin)*ma(ja_no3,ibin)* &\n                               gam(jhno3,ibin)**2\n      \n      activity(jhcl,ibin)    = mc(jc_h,ibin)*ma(ja_cl,ibin)* &\n                               gam(jhcl,ibin)**2\n\n      activity(jmsa,ibin)    = mc(jc_h,ibin)*ma(ja_msa,ibin)* &\n                               gam(jmsa,ibin)**2\n      \n\n! sulfate-poor species\n      activity(jnh4no3,ibin) = 0.0\n     \n      activity(jnh4cl,ibin)  = 0.0\n\n      activity(jnano3,ibin)  = 0.0\n      \n      activity(jnacl,ibin)   = 0.0\n     \n      activity(jcano3,ibin)  = 0.0\n      \n      activity(jcacl2,ibin)  = 0.0\n\n\n      endif\n\n\n\n\n      return\n      end subroutine compute_activities\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! computes mtem ternary parameters only once per transport time-step\n! for a given ah2o (= rh)\n!\n! author: rahul a. zaveri\n! update: jan 2005\n! reference: zaveri, r.a., r.c. easter, and a.s. wexler,\n! a new method for multicomponent activity coefficients of electrolytes\n! in aqueous atmospheric aerosols, j. geophys. res., 2005.\n!-----------------------------------------------------------------------\n      subroutine mtem_compute_log_gamz\n!     implicit none\n!     include 'mosaic.h'\n! local variables\n      integer ja\n! functions\n!     real(kind=8) fnlog_gamz, bin_molality\n\n\n! sulfate-poor species\n      ja = jhno3\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n\n\n      ja = jhcl\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n\n\n      ja = jnh4so4\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n\n\n      ja = jnh4no3\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jnh4cl\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jna2so4\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n\n\n      ja = jnano3\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jnacl\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jcano3\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jcacl2\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnh4no3) = fnlog_gamz(ja,jnh4no3)\n      log_gamz(ja,jnh4cl)  = fnlog_gamz(ja,jnh4cl)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jnano3)  = fnlog_gamz(ja,jnano3)\n      log_gamz(ja,jnacl)   = fnlog_gamz(ja,jnacl)\n      log_gamz(ja,jcano3)  = fnlog_gamz(ja,jcano3)\n      log_gamz(ja,jcacl2)  = fnlog_gamz(ja,jcacl2)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n! sulfate-rich species\n      ja = jh2so4\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jhhso4\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jnh4hso4\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jlvcite\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jnahso4\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n\n      ja = jna3hso4\n      log_gamz(ja,jh2so4)  = fnlog_gamz(ja,jh2so4)\n      log_gamz(ja,jnh4hso4)= fnlog_gamz(ja,jnh4hso4)\n      log_gamz(ja,jlvcite) = fnlog_gamz(ja,jlvcite)\n      log_gamz(ja,jnh4so4) = fnlog_gamz(ja,jnh4so4)\n      log_gamz(ja,jnahso4) = fnlog_gamz(ja,jnahso4)\n      log_gamz(ja,jna3hso4)= fnlog_gamz(ja,jna3hso4)\n      log_gamz(ja,jna2so4) = fnlog_gamz(ja,jna2so4)\n      log_gamz(ja,jhno3)   = fnlog_gamz(ja,jhno3)\n      log_gamz(ja,jhcl)    = fnlog_gamz(ja,jhcl)\n\n      return\n      end subroutine mtem_compute_log_gamz\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! computes sulfate ratio\n!\n! author: rahul a. zaveri\n! update: dec 1999\n!-----------------------------------------------------------------------\n      subroutine calculate_xt(ibin,jp,xt)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, jp\n      real(kind=8) xt\n\n\n      if( (aer(iso4_a,jp,ibin)+aer(imsa_a,jp,ibin)) .gt.0.0)then\n        xt   = ( aer(inh4_a,jp,ibin) +   &\n     &           aer(ina_a,jp,ibin)  +   &\n     &        2.*aer(ica_a,jp,ibin) )/   &\n     &         (aer(iso4_a,jp,ibin)+0.5*aer(imsa_a,jp,ibin))\n      else\n        xt   = -1.0\n      endif\n\n\n      return\n      end subroutine calculate_xt\n\n\n\n\n\n!***********************************************************************\n! computes ions from electrolytes\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine electrolytes_to_ions(jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n\n\n      aer(iso4_a,jp,ibin) = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jna2so4,jp,ibin) +   &\n                         2.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnh4so4,jp,ibin) +   &\n                         2.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jh2so4,jp,ibin)\n\n      aer(ino3_a,jp,ibin) = electrolyte(jnano3,jp,ibin)  +   &\n                         2.*electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jhno3,jp,ibin)\n\n      aer(icl_a,jp,ibin)  = electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                            electrolyte(jhcl,jp,ibin)\n\n      aer(imsa_a,jp,ibin) = electrolyte(jnh4msa,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)  +   &\n                         2.*electrolyte(jcamsa2,jp,ibin) +   &\n                            electrolyte(jmsa,jp,ibin)\n\n      aer(ico3_a,jp,ibin) = electrolyte(jcaco3,jp,ibin)\n\n      aer(ica_a,jp,ibin)  = electrolyte(jcaso4,jp,ibin)  +   &\n                            electrolyte(jcano3,jp,ibin)  +   &\n                            electrolyte(jcacl2,jp,ibin)  +   &\n                            electrolyte(jcaco3,jp,ibin)  +   &\n                            electrolyte(jcamsa2,jp,ibin)\n\n      aer(ina_a,jp,ibin)  = electrolyte(jnano3,jp,ibin)  +   &\n                            electrolyte(jnacl,jp,ibin)   +   &\n                         2.*electrolyte(jna2so4,jp,ibin) +   &\n                         3.*electrolyte(jna3hso4,jp,ibin)+   &\n                            electrolyte(jnahso4,jp,ibin) +   &\n                            electrolyte(jnamsa,jp,ibin)\n\n      aer(inh4_a,jp,ibin) = electrolyte(jnh4no3,jp,ibin) +   &\n                            electrolyte(jnh4cl,jp,ibin)  +   &\n                         2.*electrolyte(jnh4so4,jp,ibin) +   &\n                         3.*electrolyte(jlvcite,jp,ibin) +   &\n                            electrolyte(jnh4hso4,jp,ibin)+   &\n                            electrolyte(jnh4msa,jp,ibin)\n\n\n      return\n      end subroutine electrolytes_to_ions\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! combinatorial method for computing electrolytes from ions\n!\n! notes:\n!  - to be used for liquid-phase or total-phase only\n!  - transfers caso4 and caco3 from liquid to solid phase\n!\n! author: rahul a. zaveri (based on code provided by a.s. wexler\n! update: apr 2005\n!-----------------------------------------------------------------------\n      subroutine ions_to_electrolytes(jp,ibin,xt)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, jp\n      real(kind=8) xt\n! local variables\n      integer iaer, je, jc, ja, icase\n      real(kind=8) store(naer), sum_dum, sum_naza, sum_nczc, sum_na_nh4,   &\n           f_nh4, f_na, xh, xb, xl, xs, cat_net, rem_nh4, rem_na\n      real(kind=8) nc(ncation), na(nanion)\n\n\n\n\n      if(jp .ne. jliquid)then\n        if (iprint_mosaic_fe1 .gt. 0) then\n          write(6,*)' jp must be jliquid'\n          write(6,*)' in ions_to_electrolytes sub'\n          write(6,*)' wrong jp = ', jp\n          write(6,*)' mosaic fatal error in ions_to_electrolytes'\n        endif\n!       stop\n        istat_mosaic_fe1 = -2000\n        return\n      endif\n\n! remove negative concentrations, if any\n      do iaer = 1, naer\n      aer(iaer,jp,ibin) = max(0.0D0, aer(iaer,jp,ibin))\n      enddo\n\n\n! first transfer caso4 from liquid to solid phase (caco3 should not be present here)\n      store(ica_a)  = aer(ica_a, jp,ibin)\n      store(iso4_a) = aer(iso4_a,jp,ibin)\n\n      call form_caso4(store,jp,ibin)\n\n      if(jp .eq. jliquid)then ! transfer caso4 from liquid to solid phase\n        aer(ica_a,jliquid,ibin) = aer(ica_a,jliquid,ibin) -   &\n                                  electrolyte(jcaso4,jliquid,ibin)\n\n        aer(iso4_a,jliquid,ibin)= aer(iso4_a,jliquid,ibin)-   &\n                                  electrolyte(jcaso4,jliquid,ibin)\n\n        aer(ica_a,jsolid,ibin)  = aer(ica_a,jsolid,ibin) +   &\n                                  electrolyte(jcaso4,jliquid,ibin)\n\n        aer(iso4_a,jsolid,ibin) = aer(iso4_a,jsolid,ibin) +   &\n                                  electrolyte(jcaso4,jliquid,ibin)\n\n        electrolyte(jcaso4,jsolid,ibin)=electrolyte(jcaso4,jsolid,ibin) &\n                                       +electrolyte(jcaso4,jliquid,ibin)\n        electrolyte(jcaso4,jliquid,ibin)= 0.0\n      endif\n\n\n! calculate sulfate ratio\n      call calculate_xt(ibin,jp,xt)\n\n      if(xt .ge. 1.9999 .or. xt.lt.0.)then\n       icase = 1\t! near neutral (acidity is caused by hcl and/or hno3)\n      else\n       icase = 2\t! acidic (acidity is caused by excess so4)\n      endif\n\n\n! initialize to zero\n      do je = 1, nelectrolyte\n        electrolyte(je,jp,ibin) = 0.0\n      enddo\n!\n!---------------------------------------------------------\n! initialize moles of ions depending on the sulfate domain\n\n      if(icase.eq.1)then ! xt >= 2 : sulfate poor domain\n\n        na(ja_hso4)= 0.0\n        na(ja_so4) = aer(iso4_a,jp,ibin)\n        na(ja_no3) = aer(ino3_a,jp,ibin)\n        na(ja_cl)  = aer(icl_a, jp,ibin)\n        na(ja_msa) = aer(imsa_a,jp,ibin)\n\n        nc(jc_ca)  = aer(ica_a, jp,ibin)\n        nc(jc_na)  = aer(ina_a, jp,ibin)\n        nc(jc_nh4) = aer(inh4_a,jp,ibin)\n\n        cat_net =&\n                 ( 2.*na(ja_so4)+na(ja_no3)+na(ja_cl)+na(ja_msa) )- &\n                 ( 2.*nc(jc_ca) +nc(jc_nh4)+nc(jc_na) )\n\n        if(cat_net .lt. 0.0)then\n\n          nc(jc_h) = 0.0\n\n        else  ! cat_net must be 0.0 or positive\n\n          nc(jc_h) = cat_net\n\n        endif\n\n\n! now compute equivalent fractions\n      sum_naza = 0.0\n      do ja = 1, nanion\n        sum_naza = sum_naza + na(ja)*za(ja)\n      enddo\n\n      sum_nczc = 0.0\n      do jc = 1, ncation\n        sum_nczc = sum_nczc + nc(jc)*zc(jc)\n      enddo\n\n      if(sum_naza .eq. 0. .or. sum_nczc .eq. 0.)then\n        if (iprint_mosaic_diag1 .gt. 0) then\n          write(6,*)'mosaic ions_to_electrolytes'\n          write(6,*)'ionic concentrations are zero'\n          write(6,*)'sum_naza = ', sum_naza\n          write(6,*)'sum_nczc = ', sum_nczc\n        endif\n        return\n      endif\n\n      do ja = 1, nanion\n        xeq_a(ja) = na(ja)*za(ja)/sum_naza\n      enddo\n\n      do jc = 1, ncation\n        xeq_c(jc) = nc(jc)*zc(jc)/sum_nczc\n      enddo\n\n      na_ma(ja_so4) = na(ja_so4) *mw_a(ja_so4)\n      na_ma(ja_no3) = na(ja_no3) *mw_a(ja_no3)\n      na_ma(ja_cl)  = na(ja_cl)  *mw_a(ja_cl)\n      na_ma(ja_msa) = na(ja_msa) *mw_a(ja_msa)\n      na_ma(ja_hso4)= na(ja_hso4)*mw_a(ja_hso4)\n\n      nc_mc(jc_ca)  = nc(jc_ca) *mw_c(jc_ca)\n      nc_mc(jc_na)  = nc(jc_na) *mw_c(jc_na)\n      nc_mc(jc_nh4) = nc(jc_nh4)*mw_c(jc_nh4)\n      nc_mc(jc_h)   = nc(jc_h)  *mw_c(jc_h)\n\n\n! now compute electrolyte moles\n      if(xeq_c(jc_na) .gt. 0. .and. xeq_a(ja_so4) .gt. 0.)then\n        electrolyte(jna2so4,jp,ibin) = (xeq_c(jc_na) *na_ma(ja_so4) + &\n                                        xeq_a(ja_so4)*nc_mc(jc_na))/  &\n                                         mw_electrolyte(jna2so4)\n      endif\n\n      electrolyte(jnahso4,jp,ibin) = 0.0\n\n      if(xeq_c(jc_na) .gt. 0. .and. xeq_a(ja_msa) .gt. 0.)then\n        electrolyte(jnamsa,jp,ibin)  = (xeq_c(jc_na) *na_Ma(ja_msa) + &\n                                        xeq_a(ja_msa)*nc_Mc(jc_na))/  &\n                                         mw_electrolyte(jnamsa)\n      endif\n\n      if(xeq_c(jc_na) .gt. 0. .and. xeq_a(ja_no3) .gt. 0.)then\n        electrolyte(jnano3, jp,ibin) = (xeq_c(jc_na) *na_ma(ja_no3) + &\n                                        xeq_a(ja_no3)*nc_mc(jc_na))/  &\n                                         mw_electrolyte(jnano3)\n      endif\n\n      if(xeq_c(jc_na) .gt. 0. .and. xeq_a(ja_cl) .gt. 0.)then\n        electrolyte(jnacl,  jp,ibin) = (xeq_c(jc_na) *na_ma(ja_cl) +  &\n                                        xeq_a(ja_cl) *nc_mc(jc_na))/  &\n                                         mw_electrolyte(jnacl)\n      endif\n\n      if(xeq_c(jc_nh4) .gt. 0. .and. xeq_a(ja_so4) .gt. 0.)then\n        electrolyte(jnh4so4,jp,ibin) = (xeq_c(jc_nh4)*na_ma(ja_so4) + &\n                                        xeq_a(ja_so4)*nc_mc(jc_nh4))/ &\n                                         mw_electrolyte(jnh4so4)\n      endif\n\n      electrolyte(jnh4hso4,jp,ibin)= 0.0\n\n      if(xeq_c(jc_nh4) .gt. 0. .and. xeq_a(ja_msa) .gt. 0.)then\n        electrolyte(jnh4msa,jp,ibin) = (xeq_c(jc_nh4)*na_Ma(ja_msa) + &\n                                        xeq_a(ja_msa)*nc_Mc(jc_nh4))/ &\n                                         mw_electrolyte(jnh4msa)\n      endif\n\n      if(xeq_c(jc_nh4) .gt. 0. .and. xeq_a(ja_no3) .gt. 0.)then\n        electrolyte(jnh4no3,jp,ibin) = (xeq_c(jc_nh4)*na_ma(ja_no3) + &\n                                        xeq_a(ja_no3)*nc_mc(jc_nh4))/ &\n                                         mw_electrolyte(jnh4no3)\n      endif\n\n      if(xeq_c(jc_nh4) .gt. 0. .and. xeq_a(ja_cl) .gt. 0.)then\n        electrolyte(jnh4cl, jp,ibin) = (xeq_c(jc_nh4)*na_ma(ja_cl) +  &\n                                        xeq_a(ja_cl) *nc_mc(jc_nh4))/ &\n                                         mw_electrolyte(jnh4cl)\n      endif\n\n      if(xeq_c(jc_ca) .gt. 0. .and. xeq_a(ja_no3) .gt. 0.0)then\n        electrolyte(jcano3, jp,ibin) = (xeq_c(jc_ca) *na_ma(ja_no3) + &\n                                        xeq_a(ja_no3)*nc_mc(jc_ca))/  &\n                                         mw_electrolyte(jcano3)\n      endif\n\n      if(xeq_c(jc_ca) .gt. 0. .and. xeq_a(ja_cl) .gt. 0.)then\n        electrolyte(jcacl2, jp,ibin) = (xeq_c(jc_ca) *na_ma(ja_cl) +  &\n                                        xeq_a(ja_cl) *nc_mc(jc_ca))/  &\n                                         mw_electrolyte(jcacl2)\n      endif\n\n      if(xeq_c(jc_ca) .gt. 0. .and. xeq_a(ja_msa) .gt. 0.)then\n        electrolyte(jcamsa2,jp,ibin) = (xeq_c(jc_ca) *na_Ma(ja_msa) + &\n                                        xeq_a(ja_msa) *nc_Mc(jc_ca))/ &\n                                         mw_electrolyte(jcamsa2)\n      endif\n\n      electrolyte(jh2so4, jp,ibin) = 0.0\n\n      if(xeq_c(jc_h) .gt. 0. .and. xeq_a(ja_no3) .gt. 0.)then\n      electrolyte(jhno3,  jp,ibin) = (xeq_c(jc_h)  *na_ma(ja_no3) +   &\n                                      xeq_a(ja_no3)*nc_mc(jc_h))/     &\n                                       mw_electrolyte(jhno3)\n      endif\n\n      if(xeq_c(jc_h) .gt. 0. .and. xeq_a(ja_cl) .gt. 0.)then\n        electrolyte(jhcl,   jp,ibin) = (xeq_c(jc_h) *na_ma(ja_cl) +   &\n                                        xeq_a(ja_cl)*nc_mc(jc_h))/    &\n                                         mw_electrolyte(jhcl)\n      endif\n\n      if(xeq_c(jc_h) .gt. 0. .and. xeq_a(ja_msa) .gt. 0.)then\n        electrolyte(jmsa,jp,ibin)    = (xeq_c(jc_h) *na_ma(ja_msa) +  &\n                                        xeq_a(ja_msa)*nc_mc(jc_h))/   &\n                                         mw_electrolyte(jmsa)\n      endif\n\n!--------------------------------------------------------------------\n\n      elseif(icase.eq.2)then ! xt < 2 : sulfate rich domain\n\n        store(imsa_a) = aer(imsa_a,jp,ibin)\n        store(ica_a)  = aer(ica_a, jp,ibin)\n        \n        call form_camsa2(store,jp,ibin)\n\n        sum_na_nh4 = aer(ina_a,jp,ibin) + aer(inh4_a,jp,ibin)\n\n        if(sum_na_nh4 .gt. 0.0)then\n          f_nh4 = aer(inh4_a,jp,ibin)/sum_na_nh4\n          f_na  = aer(ina_a,jp,ibin)/sum_na_nh4\n        else\n          f_nh4 = 0.0\n          f_na  = 0.0\n        endif\n\n! first form msa electrolytes\n        if(sum_na_nh4 .gt. store(imsa_a))then\n          electrolyte(jnamsa,jp,ibin)  = f_na *store(imsa_a)\n          electrolyte(jnh4msa,jp,ibin) = f_nh4*store(imsa_a)\n          rem_na = aer(ina_a,jp,ibin) - electrolyte(jnamsa,jp,ibin)  ! remaining na\n          rem_nh4= aer(inh4_a,jp,ibin)- electrolyte(jnh4msa,jp,ibin) ! remaining nh4\n        else\n          electrolyte(jnamsa,jp,ibin)  = aer(ina_a,jp,ibin)\n          electrolyte(jnh4msa,jp,ibin) = aer(inh4_a,jp,ibin)\n          electrolyte(jmsa,jp,ibin)    = store(imsa_a) - sum_na_nh4\n          rem_nh4 = 0.0  ! remaining nh4\n          rem_na  = 0.0  ! remaining na\n        endif\n\n\n! recompute xt\n        if(aer(iso4_a,jp,ibin).gt.0.0)then\n          xt = (rem_nh4 + rem_na)/aer(iso4_a,jp,ibin)\n        else\n          goto 10\n        endif\n\n        if(xt .le. 1.0)then\t! h2so4 + bisulfate\n          xh = (1.0 - xt)\n          xb = xt\n          electrolyte(jh2so4,jp,ibin)   = xh*aer(iso4_a,jp,ibin)\n          electrolyte(jnh4hso4,jp,ibin) = xb*f_nh4*aer(iso4_a,jp,ibin)\n          electrolyte(jnahso4,jp,ibin)  = xb*f_na *aer(iso4_a,jp,ibin)\n        elseif(xt .le. 1.5)then\t! bisulfate + letovicite\n          xb = 3.0 - 2.0*xt\n          xl = xt - 1.0\n          electrolyte(jnh4hso4,jp,ibin) = xb*f_nh4*aer(iso4_a,jp,ibin)\n          electrolyte(jnahso4,jp,ibin)  = xb*f_na *aer(iso4_a,jp,ibin)\n          electrolyte(jlvcite,jp,ibin)  = xl*f_nh4*aer(iso4_a,jp,ibin)\n          electrolyte(jna3hso4,jp,ibin) = xl*f_na *aer(iso4_a,jp,ibin)\n        else\t\t\t! letovicite + sulfate\n          xl = 2.0 - xt\n          xs = 2.0*xt - 3.0\n          electrolyte(jlvcite,jp,ibin)  = xl*f_nh4*aer(iso4_a,jp,ibin)\n          electrolyte(jna3hso4,jp,ibin) = xl*f_na *aer(iso4_a,jp,ibin)\n          electrolyte(jnh4so4,jp,ibin)  = xs*f_nh4*aer(iso4_a,jp,ibin)\n          electrolyte(jna2so4,jp,ibin)  = xs*f_na *aer(iso4_a,jp,ibin)\n        endif\n\n        electrolyte(jhno3,jp,ibin) = aer(ino3_a,jp,ibin)\n        electrolyte(jhcl,jp,ibin)  = aer(icl_a,jp,ibin)\n\n      endif\n!---------------------------------------------------------\n!\n! calculate % composition\n!! 10    sum_dum = 0.0\n!!      do je = 1, nelectrolyte\n!!        sum_dum = sum_dum + electrolyte(je,jp,ibin)\n!!      enddo\n!!\n!!      if(sum_dum .eq. 0.)sum_dum = 1.0\n!!      electrolyte_sum(jp,ibin) = sum_dum\n!!\n!!      do je = 1, nelectrolyte\n!!        epercent(je,jp,ibin) = 100.*electrolyte(je,jp,ibin)/sum_dum\n!!      enddo\n\n10    return\n      end subroutine ions_to_electrolytes\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! conforms aerosol generic species to a valid electrolyte composition\n!\n! author: rahul a. zaveri\n! update: june 2000\n!-----------------------------------------------------------------------\n      subroutine conform_electrolytes(jp,ibin,xt)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, jp\n      real(kind=8) xt\n! local variables\n      integer i, ixt_case, je\n      real(kind=8) sum_dum, xna_prime, xnh4_prime, xt_prime\n      real(kind=8) store(naer)\n\n! remove negative concentrations, if any\n      do i=1,naer\n      aer(i,jp,ibin) = max(0.0D0, aer(i,jp,ibin))\n      enddo\n\n\n      call calculate_xt(ibin,jp,xt)\n\n      if(xt .ge. 1.9999 .or. xt.lt.0.)then\n       ixt_case = 1\t! near neutral (acidity is caused by hcl and/or hno3)\n      else\n       ixt_case = 2\t! acidic (acidity is caused by excess so4)\n      endif\n\n! initialize\n!\n! put total aer(*) into store(*)\n      store(iso4_a) = aer(iso4_a,jp,ibin)\n      store(ino3_a) = aer(ino3_a,jp,ibin)\n      store(icl_a)  = aer(icl_a, jp,ibin)\n      store(imsa_a) = aer(imsa_a,jp,ibin)\n      store(ico3_a) = aer(ico3_a,jp,ibin)\n      store(inh4_a) = aer(inh4_a,jp,ibin)\n      store(ina_a)  = aer(ina_a, jp,ibin)\n      store(ica_a)  = aer(ica_a, jp,ibin)\n\n      do je=1,nelectrolyte\n      electrolyte(je,jp,ibin) = 0.0\n      enddo\n!\n!---------------------------------------------------------\n!\n      if(ixt_case.eq.1)then\n\n! xt >= 2   : sulfate deficient\n\n        call form_caso4(store,jp,ibin)\n        call form_camsa2(store,jp,ibin)\n        call form_na2so4(store,jp,ibin)\n        call form_namsa(store,jp,ibin)\n        call form_cano3(store,jp,ibin)\n        call form_nano3(store,jp,ibin)\n        call form_nacl(store,jp,ibin)\n        call form_cacl2(store,jp,ibin)\n        call form_caco3(store,jp,ibin)\n        call form_nh4so4(store,jp,ibin)\n        call form_nh4msa(store,jp,ibin)\n        call form_nh4no3(store,jp,ibin)\n        call form_nh4cl(store,jp,ibin)\n        call form_msa(store,jp,ibin)\n        call degas_hno3(store,jp,ibin)\n        call degas_hcl(store,jp,ibin)\n        call degas_nh3(store,jp,ibin)\n\n      elseif(ixt_case.eq.2)then\n\n! xt < 2   : sulfate enough or sulfate excess\n\n        call form_caso4(store,jp,ibin)\n        call form_camsa2(store,jp,ibin)\n        call form_namsa(store,jp,ibin)\n        call form_nh4msa(store,jp,ibin)\n        call form_msa(store,jp,ibin)\n\n        if(store(iso4_a).eq.0.0)goto 10\n\n\n        xt_prime =(store(ina_a)+store(inh4_a))/   &\n                        store(iso4_a)\n        xna_prime=0.5*store(ina_a)/store(iso4_a) + 1.\n\n        if(xt_prime.ge.xna_prime)then\n          call form_na2so4(store,jp,ibin)\n          xnh4_prime = 0.0\n          if(store(iso4_a).gt.1.e-15)then\n            xnh4_prime = store(inh4_a)/store(iso4_a)\n          endif\n\n          if(xnh4_prime .ge. 1.5)then\n            call form_nh4so4_lvcite(store,jp,ibin)\n          else\n            call form_lvcite_nh4hso4(store,jp,ibin)\n          endif\n\n        elseif(xt_prime.ge.1.)then\n          call form_nh4hso4(store,jp,ibin)\n          call form_na2so4_nahso4(store,jp,ibin)\n        elseif(xt_prime.lt.1.)then\n          call form_nahso4(store,jp,ibin)\n          call form_nh4hso4(store,jp,ibin)\n          call form_h2so4(store,jp,ibin)\n        endif\n\n10    call degas_hno3(store,jp,ibin)\n      call degas_hcl(store,jp,ibin)\n      call degas_nh3(store,jp,ibin)\n\n      endif ! case 1, 2\n\n\n! re-calculate ions to eliminate round-off errors\n      call electrolytes_to_ions(jp, ibin)\n!---------------------------------------------------------\n!\n! calculate % composition\n!!      sum_dum = 0.0\n!!      do je = 1, nelectrolyte\n!!        electrolyte(je,jp,ibin) = max(0.D0,electrolyte(je,jp,ibin)) ! remove -ve\n!!        sum_dum = sum_dum + electrolyte(je,jp,ibin)\n!!      enddo\n\n!!      if(sum_dum .eq. 0.)sum_dum = 1.0\n!!      electrolyte_sum(jp,ibin) = sum_dum\n\n!!      do je = 1, nelectrolyte\n!!        epercent(je,jp,ibin) = 100.*electrolyte(je,jp,ibin)/sum_dum\n!!      enddo\n\n      return\n      end subroutine conform_electrolytes\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! forms electrolytes from ions\n!\n! author: rahul a. zaveri\n! update: june 2000\n!-----------------------------------------------------------------------\n      subroutine form_electrolytes(jp,ibin,xt)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin, jp\n      real(kind=8) xt\n! local variables\n      integer i, ixt_case, j, je\n      real(kind=8) sum_dum, xna_prime, xnh4_prime, xt_prime\n      real(kind=8) store(naer)\n\n! remove negative concentrations, if any\n      do i=1,naer\n      aer(i,jp,ibin) = max(0.0D0, aer(i,jp,ibin))\n      enddo\n\n\n      call calculate_xt(ibin,jp,xt)\n\n      if(xt .ge. 1.9999 .or. xt.lt.0.)then\n       ixt_case = 1\t! near neutral (acidity is caused by hcl and/or hno3)\n      else\n       ixt_case = 2\t! acidic (acidity is caused by excess so4)\n      endif\n\n! initialize\n!\n! put total aer(*) into store(*)\n      store(iso4_a) = aer(iso4_a,jp,ibin)\n      store(ino3_a) = aer(ino3_a,jp,ibin)\n      store(icl_a)  = aer(icl_a, jp,ibin)\n      store(imsa_a) = aer(imsa_a,jp,ibin)\n      store(ico3_a) = aer(ico3_a,jp,ibin)\n      store(inh4_a) = aer(inh4_a,jp,ibin)\n      store(ina_a)  = aer(ina_a, jp,ibin)\n      store(ica_a)  = aer(ica_a, jp,ibin)\n!\n      do j=1,nelectrolyte\n      electrolyte(j,jp,ibin) = 0.0\n      enddo\n!\n!---------------------------------------------------------\n!\n      if(ixt_case.eq.1)then\n\n! xt >= 2   : sulfate deficient\n        call form_caso4(store,jp,ibin)\n        call form_camsa2(store,jp,ibin)\n        call form_na2so4(store,jp,ibin)\n        call form_namsa(store,jp,ibin)\n        call form_cano3(store,jp,ibin)\n        call form_nano3(store,jp,ibin)\n        call form_nacl(store,jp,ibin)\n        call form_cacl2(store,jp,ibin)\n        call form_caco3(store,jp,ibin)\n        call form_nh4so4(store,jp,ibin)\n        call form_nh4msa(store,jp,ibin)\n        call form_nh4no3(store,jp,ibin)\n        call form_nh4cl(store,jp,ibin)\n        call form_msa(store,jp,ibin)\n\n        if(jp .eq. jsolid)then\n          call degas_hno3(store,jp,ibin)\n          call degas_hcl(store,jp,ibin)\n          call degas_nh3(store,jp,ibin)\n        else\n          call form_hno3(store,jp,ibin)\n          call form_hcl(store,jp,ibin)\n          call degas_nh3(store,jp,ibin)\n        endif\n\n\n\n      elseif(ixt_case.eq.2)then\n\n! xt < 2   : sulfate enough or sulfate excess\n\n        call form_caso4(store,jp,ibin)\n        call form_camsa2(store,jp,ibin)\n        call form_namsa(store,jp,ibin)\n        call form_nh4msa(store,jp,ibin)\n        call form_msa(store,jp,ibin)\n\n        if(store(iso4_a).eq.0.0)goto 10\n\n\n        xt_prime =(store(ina_a)+store(inh4_a))/   &\n                        store(iso4_a)\n        xna_prime=0.5*store(ina_a)/store(iso4_a) + 1.\n\n        if(xt_prime.ge.xna_prime)then\n          call form_na2so4(store,jp,ibin)\n          xnh4_prime = 0.0\n          if(store(iso4_a).gt.1.e-15)then\n            xnh4_prime = store(inh4_a)/store(iso4_a)\n          endif\n\n          if(xnh4_prime .ge. 1.5)then\n            call form_nh4so4_lvcite(store,jp,ibin)\n          else\n            call form_lvcite_nh4hso4(store,jp,ibin)\n          endif\n\n        elseif(xt_prime.ge.1.)then\n          call form_nh4hso4(store,jp,ibin)\n          call form_na2so4_nahso4(store,jp,ibin)\n        elseif(xt_prime.lt.1.)then\n          call form_nahso4(store,jp,ibin)\n          call form_nh4hso4(store,jp,ibin)\n          call form_h2so4(store,jp,ibin)\n        endif\n\n10      if(jp .eq. jsolid)then\n          call degas_hno3(store,jp,ibin)\n          call degas_hcl(store,jp,ibin)\n          call degas_nh3(store,jp,ibin)\n        else\n          call form_hno3(store,jp,ibin)\n          call form_hcl(store,jp,ibin)\n          call degas_nh3(store,jp,ibin)\n        endif\n\n      endif ! case 1, 2\n\n\n! re-calculate ions to eliminate round-off errors\n      call electrolytes_to_ions(jp, ibin)\n!---------------------------------------------------------\n!\n! calculate % composition\n!!      sum_dum = 0.0\n!!      do je = 1, nelectrolyte\n!!        electrolyte(je,jp,ibin) = max(0.D0,electrolyte(je,jp,ibin)) ! remove -ve\n!!        sum_dum = sum_dum + electrolyte(je,jp,ibin)\n!!      enddo\n!!\n!!      if(sum_dum .eq. 0.)sum_dum = 1.0\n!!      electrolyte_sum(jp,ibin) = sum_dum\n!!\n!!      do je = 1, nelectrolyte\n!!        epercent(je,jp,ibin) = 100.*electrolyte(je,jp,ibin)/sum_dum\n!!      enddo\n\n      return\n      end subroutine form_electrolytes\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! electrolyte formation subroutines\n!\n! author: rahul a. zaveri\n! update: june 2000\n!-----------------------------------------------------------------------\n      subroutine form_caso4(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jcaso4,jp,ibin) = min(store(ica_a),store(iso4_a))\n      store(ica_a)  = store(ica_a) - electrolyte(jcaso4,jp,ibin)\n      store(iso4_a) = store(iso4_a) - electrolyte(jcaso4,jp,ibin)\n      store(ica_a)  = max(0.D0, store(ica_a))\n      store(iso4_a) = max(0.D0, store(iso4_a))\n\n      return\n      end subroutine form_caso4\n\n\n\n      subroutine form_camsa2(store,jp,ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n      \n      electrolyte(jcamsa2,jp,ibin) = min(store(ica_a),0.5*store(imsa_a))\n      store(ica_a)  = store(ica_a) - electrolyte(jcamsa2,jp,ibin)\n      store(imsa_a) = store(imsa_a) - 2.d0*electrolyte(jcamsa2,jp,ibin)\n      store(ica_a)  = max(0.D0, store(ica_a))\n      store(imsa_a) = max(0.D0, store(imsa_a))\n\n      return\n      end subroutine form_camsa2\n\n\n\n      subroutine form_cano3(store,jp,ibin)\t! ca(no3)2\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jcano3,jp,ibin) = min(store(ica_a),0.5*store(ino3_a))\n\n      store(ica_a)  = store(ica_a) - electrolyte(jcano3,jp,ibin)\n      store(ino3_a) = store(ino3_a) - 2.*electrolyte(jcano3,jp,ibin)\n      store(ica_a)  = max(0.D0, store(ica_a))\n      store(ino3_a) = max(0.D0, store(ino3_a))\n\n      return\n      end subroutine form_cano3\n\n\n      subroutine form_cacl2(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jcacl2,jp,ibin) = min(store(ica_a),0.5*store(icl_a))\n\n      store(ica_a)  = store(ica_a) - electrolyte(jcacl2,jp,ibin)\n      store(icl_a)  = store(icl_a) - 2.*electrolyte(jcacl2,jp,ibin)\n      store(ica_a)  = max(0.D0, store(ica_a))\n      store(icl_a)  = max(0.D0, store(icl_a))\n\n      return\n      end subroutine form_cacl2\n\n\n      subroutine form_caco3(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      if(jp.eq.jtotal .or. jp.eq.jsolid)then\n      electrolyte(jcaco3,jp,ibin) = store(ica_a)\n\n      aer(ico3_a,jp,ibin)= electrolyte(jcaco3,jp,ibin)\t! force co3 = caco3\n\n      store(ica_a) = 0.0\n      store(ico3_a)= 0.0\n      endif\n\n      return\n      end subroutine form_caco3\n\n\n      subroutine form_na2so4(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jna2so4,jp,ibin) = min(.5*store(ina_a),   &\n                                            store(iso4_a))\n      store(ina_a) = store(ina_a) - 2.*electrolyte(jna2so4,jp,ibin)\n      store(iso4_a)= store(iso4_a) - electrolyte(jna2so4,jp,ibin)\n      store(ina_a) = max(0.D0, store(ina_a))\n      store(iso4_a)= max(0.D0, store(iso4_a))\n\n      return\n      end subroutine form_na2so4\n\n\n\n      subroutine form_nahso4(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnahso4,jp,ibin) = min(store(ina_a),   &\n                                         store(iso4_a))\n      store(ina_a)  = store(ina_a) - electrolyte(jnahso4,jp,ibin)\n      store(iso4_a) = store(iso4_a) - electrolyte(jnahso4,jp,ibin)\n      store(ina_a)  = max(0.D0, store(ina_a))\n      store(iso4_a) = max(0.D0, store(iso4_a))\n\n      return\n      end subroutine form_nahso4\n\n\n\n      subroutine form_namsa(store,jp,ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnamsa,jp,ibin) = min(store(ina_a), &\n                                        store(imsa_a))\n      store(ina_a)  = store(ina_a) - electrolyte(jnamsa,jp,ibin)\n      store(imsa_a) = store(imsa_a) - electrolyte(jnamsa,jp,ibin)\n      store(ina_a)  = max(0.D0, store(ina_a))\n      store(imsa_a) = max(0.D0, store(imsa_a))\n\n      return\n      end subroutine form_namsa\n\n\n\n      subroutine form_nano3(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnano3,jp,ibin)=min(store(ina_a),store(ino3_a))\n      store(ina_a)  = store(ina_a) - electrolyte(jnano3,jp,ibin)\n      store(ino3_a) = store(ino3_a) - electrolyte(jnano3,jp,ibin)\n      store(ina_a)  = max(0.D0, store(ina_a))\n      store(ino3_a) = max(0.D0, store(ino3_a))\n\n      return\n      end subroutine form_nano3\n\n\n\n      subroutine form_nacl(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnacl,jp,ibin) = store(ina_a)\n\n      store(ina_a) = 0.0\n      store(icl_a) = store(icl_a) - electrolyte(jnacl,jp,ibin)\n     \n      if(store(icl_a) .lt. 0.)then \t\t\t\t! cl deficit in aerosol. take some from gas\n        aer(icl_a,jp,ibin)= aer(icl_a,jp,ibin)- store(icl_a)\t! update aer(icl_a) \n\n        if(jp .ne. jtotal)then\n          aer(icl_a,jtotal,ibin)= aer(icl_a,jliquid,ibin)+ &\t\t! update for jtotal\n                                  aer(icl_a,jsolid,ibin) \n        endif\n\n        gas(ihcl_g) = gas(ihcl_g) + store(icl_a)\t\t\t! update gas(ihcl_g)\n\n        if(gas(ihcl_g) .lt. 0.0)then\n          total_species(ihcl_g) = total_species(ihcl_g) - gas(ihcl_g)\t! update total_species\n          tot_cl_in = tot_cl_in - gas(ihcl_g)\t\t\t\t! update tot_cl_in\n        endif\n\n        gas(ihcl_g) = max(0.D0, gas(ihcl_g))\t\t\t\t! restrict gas(ihcl_g) to >= 0.\n        store(icl_a) = 0.        \t\t\t\t! force store(icl_a) to 0.\n\n      endif\n     \n      store(icl_a) = max(0.D0, store(icl_a))\n\n      return\n      end subroutine form_nacl\n\n\n\n      subroutine form_nh4so4(store,jp,ibin)\t! (nh4)2so4\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnh4so4,jp,ibin)= min(.5*store(inh4_a),   &\n                                           store(iso4_a))\n      store(inh4_a)= store(inh4_a) - 2.*electrolyte(jnh4so4,jp,ibin)\n      store(iso4_a)= store(iso4_a) - electrolyte(jnh4so4,jp,ibin)\n      store(inh4_a) = max(0.D0, store(inh4_a))\n      store(iso4_a) = max(0.D0, store(iso4_a))\n\n      return\n      end subroutine form_nh4so4\n\n\n\n      subroutine form_nh4hso4(store,jp,ibin)\t! nh4hso4\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnh4hso4,jp,ibin) = min(store(inh4_a),   &\n                                          store(iso4_a))\n      store(inh4_a)= store(inh4_a) - electrolyte(jnh4hso4,jp,ibin)\n      store(iso4_a)= store(iso4_a) - electrolyte(jnh4hso4,jp,ibin)\n      store(inh4_a) = max(0.D0, store(inh4_a))\n      store(iso4_a) = max(0.D0, store(iso4_a))\n\n      return\n      end subroutine form_nh4hso4\n\n\n\n      subroutine form_nh4msa(store,jp,ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnh4msa,jp,ibin) = min(store(inh4_a), &\n                                         store(imsa_a))\n      store(inh4_a) = store(inh4_a) - electrolyte(jnh4msa,jp,ibin)\n      store(imsa_a) = store(imsa_a) - electrolyte(jnh4msa,jp,ibin)\n      store(inh4_a) = max(0.D0, store(inh4_a))\n      store(imsa_a) = max(0.D0, store(imsa_a))\n\n      return\n      end subroutine form_nh4msa\n\n\n\n      subroutine form_nh4cl(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnh4cl,jp,ibin) = min(store(inh4_a),   &\n                                        store(icl_a))\n      store(inh4_a) = store(inh4_a) - electrolyte(jnh4cl,jp,ibin)\n      store(icl_a)  = store(icl_a) - electrolyte(jnh4cl,jp,ibin)\n      store(inh4_a) = max(0.D0, store(inh4_a))\n      store(icl_a)  = max(0.D0, store(icl_a))\n\n      return\n      end subroutine form_nh4cl\n\n\n\n      subroutine form_nh4no3(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnh4no3,jp,ibin) = min(store(inh4_a),   &\n                                         store(ino3_a))\n      store(inh4_a) = store(inh4_a) - electrolyte(jnh4no3,jp,ibin)\n      store(ino3_a) = store(ino3_a) - electrolyte(jnh4no3,jp,ibin)\n      store(inh4_a) = max(0.D0, store(inh4_a))\n      store(ino3_a) = max(0.D0, store(ino3_a))\n\n      return\n      end subroutine form_nh4no3\n\n\n\n      subroutine form_nh4so4_lvcite(store,jp,ibin) ! (nh4)2so4 + (nh4)3h(so4)2\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jnh4so4,jp,ibin)= 2.*store(inh4_a) - 3.*store(iso4_a)\n      electrolyte(jlvcite,jp,ibin)= 2.*store(iso4_a) - store(inh4_a)\n      electrolyte(jnh4so4,jp,ibin)= max(0.D0,   &\n                                    electrolyte(jnh4so4,jp,ibin))\n      electrolyte(jlvcite,jp,ibin)= max(0.D0,   &\n                                    electrolyte(jlvcite,jp,ibin))\n      store(inh4_a) = 0.\n      store(iso4_a) = 0.\n\n      return\n      end subroutine form_nh4so4_lvcite\n\n\n\n      subroutine form_lvcite_nh4hso4(store,jp,ibin) ! (nh4)3h(so4)2 + nh4hso4\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jlvcite,jp,ibin) = store(inh4_a) - store(iso4_a)\n      electrolyte(jnh4hso4,jp,ibin)= 3.*store(iso4_a) - 2.*store(inh4_a)\n      electrolyte(jlvcite,jp,ibin) = max(0.D0,   &\n                                      electrolyte(jlvcite,jp,ibin))\n      electrolyte(jnh4hso4,jp,ibin)= max(0.D0,   &\n                                      electrolyte(jnh4hso4,jp,ibin))\n      store(inh4_a) = 0.\n      store(iso4_a) = 0.\n\n      return\n      end subroutine form_lvcite_nh4hso4\n\n\n\n      subroutine form_na2so4_nahso4(store,jp,ibin) ! na2so4 + nahso4\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jna2so4,jp,ibin)= store(ina_a) - store(iso4_a)\n      electrolyte(jnahso4,jp,ibin)= 2.*store(iso4_a) - store(ina_a)\n      electrolyte(jna2so4,jp,ibin)= max(0.D0,   &\n                                    electrolyte(jna2so4,jp,ibin))\n      electrolyte(jnahso4,jp,ibin)= max(0.D0,   &\n                                    electrolyte(jnahso4,jp,ibin))\n      store(ina_a)  = 0.\n      store(iso4_a) = 0.\n\n!\twrite(6,*)'na2so4 + nahso4'\n\n      return\n      end subroutine form_na2so4_nahso4\n\n\n\n\n      subroutine form_h2so4(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jh2so4,jp,ibin) = max(0.0D0, store(iso4_a))\n      store(iso4_a) = 0.0\n\n      return\n      end subroutine form_h2so4\n\n\n\n\n      subroutine form_msa(store,jp,ibin)\n!      implicit none\n!      include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jmsa,jp,ibin) = max(0.0D0, store(imsa_a))\n      store(imsa_a) = 0.0\n\n      return\n      end subroutine form_msa\n\n\n\n      subroutine form_hno3(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jhno3,jp,ibin) = max(0.0D0, store(ino3_a))\n      store(ino3_a) = 0.0\n\n      return\n      end subroutine form_hno3\n\n\n\n\n      subroutine form_hcl(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      electrolyte(jhcl,jp,ibin) = max(0.0D0, store(icl_a))\n      store(icl_a) = 0.0\n\n      return\n      end subroutine form_hcl\n\n\n\n\n      subroutine degas_hno3(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      store(ino3_a) = max(0.0D0, store(ino3_a))\n      gas(ihno3_g) = gas(ihno3_g) + store(ino3_a)\n      aer(ino3_a,jp,ibin) = aer(ino3_a,jp,ibin) - store(ino3_a)\n      aer(ino3_a,jp,ibin) = max(0.0D0,aer(ino3_a,jp,ibin))\n\n! also do it for jtotal\n      if(jp .ne. jtotal)then\n        aer(ino3_a,jtotal,ibin) = aer(ino3_a,jsolid, ibin) +   &\n                                  aer(ino3_a,jliquid,ibin)\n      endif\n\n      electrolyte(jhno3,jp,ibin) = 0.0\n      store(ino3_a) = 0.0\n\n      return\n      end subroutine degas_hno3\n\n\n\n      subroutine degas_hcl(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      store(icl_a) = max(0.0D0, store(icl_a))\n      gas(ihcl_g) = gas(ihcl_g) + store(icl_a)\n      aer(icl_a,jp,ibin) = aer(icl_a,jp,ibin) - store(icl_a)\n      aer(icl_a,jp,ibin) = max(0.0D0,aer(icl_a,jp,ibin))\n\n! also do it for jtotal\n      if(jp .ne. jtotal)then\n        aer(icl_a,jtotal,ibin) = aer(icl_a,jsolid, ibin) +   &\n                                 aer(icl_a,jliquid,ibin)\n      endif\n\n      electrolyte(jhcl,jp,ibin) = 0.0\n      store(icl_a) = 0.0\n\n      return\n      end subroutine degas_hcl\n\n\n\n      subroutine degas_nh3(store,jp,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) store(naer)\n\n      store(inh4_a) = max(0.0D0, store(inh4_a))\n      gas(inh3_g) = gas(inh3_g) + store(inh4_a)\n      aer(inh4_a,jp,ibin) = aer(inh4_a,jp,ibin) - store(inh4_a)\n      aer(inh4_a,jp,ibin) = max(0.0D0,aer(inh4_a,jp,ibin))\n\n! also do it for jtotal\n      if(jp .ne. jtotal)then\n        aer(inh4_a,jtotal,ibin)= aer(inh4_a,jsolid, ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      endif\n\n      store(inh4_a) = 0.0\n\n      return\n      end subroutine degas_nh3\n\n\n\n\n\n\n\n\n\n      subroutine degas_acids(jp,ibin,xt)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer jp, ibin\n      real(kind=8) xt\n! local variables\n      real(kind=8) ehno3, ehcl\n\n\n\n      if(jp .ne. jliquid)then\n        if (iprint_mosaic_diag1 .gt. 0) then\n          write(6,*)'mosaic - error in degas_acids'\n          write(6,*)'wrong jp'\n        endif\n      endif\n\n      ehno3 = electrolyte(jhno3,jp,ibin)\n      ehcl  = electrolyte(jhcl,jp,ibin)\n\n! add to gas\n      gas(ihno3_g) = gas(ihno3_g) + ehno3\n      gas(ihcl_g)  = gas(ihcl_g)  + ehcl\n\n! remove from aer\n      aer(ino3_a,jp,ibin) = aer(ino3_a,jp,ibin) - ehno3\n      aer(icl_a, jp,ibin) = aer(icl_a, jp,ibin) - ehcl\n\n! update jtotal\n      aer(ino3_a,jtotal,ibin) = aer(ino3_a,jliquid,ibin) +   &\n                                aer(ino3_a,jsolid, ibin)\n\n      aer(icl_a,jtotal,ibin)  = aer(icl_a,jliquid,ibin) +   &\n                                aer(icl_a,jsolid, ibin)\n\n      electrolyte(jhno3,jp,ibin) = 0.0\n      electrolyte(jhcl,jp,ibin)  = 0.0\n\n      return\n      end subroutine degas_acids\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! subroutines to evaporate solid volatile species\n!\n! author: rahul a. zaveri\n! update: sep 2004\n!-----------------------------------------------------------------------\n!\n! nh4no3 (solid)\n      subroutine degas_solid_nh4no3(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer jp\n      real(kind=8) a, b, c, xgas, xt\n!     real(kind=8) quadratic\t\t\t\t\t! mosaic func\n\n\n      jp = jsolid\n\n      a = 1.0\n      b = gas(inh3_g) + gas(ihno3_g)\n      c = gas(inh3_g)*gas(ihno3_g) - keq_sg(1)\n      xgas = quadratic(a,b,c)\n\n      if(xgas .ge. electrolyte(jnh4no3,jp,ibin))then ! degas all nh4no3\n\n          gas(inh3_g) = gas(inh3_g)  + electrolyte(jnh4no3,jp,ibin)\n          gas(ihno3_g)= gas(ihno3_g) + electrolyte(jnh4no3,jp,ibin)\n          aer(inh4_a,jp,ibin) = aer(inh4_a,jp,ibin) -   &\n                                electrolyte(jnh4no3,jp,ibin)\n          aer(ino3_a,jp,ibin) = aer(ino3_a,jp,ibin) -   &\n                                electrolyte(jnh4no3,jp,ibin)\n\n      else\t! degas only xgas amount of nh4no3\n\n          gas(inh3_g) = gas(inh3_g)  + xgas\n          gas(ihno3_g)= gas(ihno3_g) + xgas\n          aer(inh4_a,jp,ibin) = aer(inh4_a,jp,ibin) - xgas\n          aer(ino3_a,jp,ibin) = aer(ino3_a,jp,ibin) - xgas\n      endif\n\n\n! update jtotal\n      aer(inh4_a,jtotal,ibin)  = aer(inh4_a,jsolid,ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      aer(ino3_a,jtotal,ibin)  = aer(ino3_a,jsolid,ibin) +   &\n                                 aer(ino3_a,jliquid,ibin)\n\n      return\n      end subroutine degas_solid_nh4no3\n\n\n\n\n\n\n\n\n\n! nh4cl (solid)\n      subroutine degas_solid_nh4cl(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      integer jp\n      real(kind=8) a, b, c, xgas, xt\n!     real(kind=8) quadratic\t\t\t\t\t! mosaic func\n\n\n      jp = jsolid\n\n      a = 1.0\n      b = gas(inh3_g) + gas(ihcl_g)\n      c = gas(inh3_g)*gas(ihcl_g) - keq_sg(2)\n      xgas = quadratic(a,b,c)\n\n      if(xgas .ge. electrolyte(jnh4cl,jp,ibin))then ! degas all nh4cl\n\n          gas(inh3_g) = gas(inh3_g) + electrolyte(jnh4cl,jp,ibin)\n          gas(ihcl_g) = gas(ihcl_g) + electrolyte(jnh4cl,jp,ibin)\n          aer(inh4_a,jp,ibin) = aer(inh4_a,jp,ibin) -   &\n                                electrolyte(jnh4cl,jp,ibin)\n          aer(icl_a,jp,ibin)  = aer(icl_a,jp,ibin) -   &\n                                electrolyte(jnh4cl,jp,ibin)\n\n      else\t! degas only xgas amount of nh4cl\n\n          gas(inh3_g) = gas(inh3_g) + xgas\n          gas(ihcl_g) = gas(ihcl_g) + xgas\n          aer(inh4_a,jp,ibin) = aer(inh4_a,jp,ibin) - xgas\n          aer(icl_a,jp,ibin)  = aer(icl_a,jp,ibin)  - xgas\n\n      endif\n\n\n! update jtotal\n      aer(inh4_a,jtotal,ibin)  = aer(inh4_a,jsolid,ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      aer(icl_a,jtotal,ibin)   = aer(icl_a,jsolid,ibin)  +   &\n                                 aer(icl_a,jliquid,ibin)\n\n      return\n      end subroutine degas_solid_nh4cl\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! subroutines to absorb and degas small amounts of volatile species\n!\n! author: rahul a. zaveri\n! update: jun 2002\n!-----------------------------------------------------------------------\n!\n! nh4no3 (liquid)\n      subroutine absorb_tiny_nh4no3(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) small_aer, small_gas, small_amt\n      integer je\t\t\t\t\t! raz update 11/13/2008\n\n\n\n      electrolyte_sum(jtotal,ibin) = 0.0\t! raz update 11/13/2008\n      do je = 1, nelectrolyte\n        electrolyte_sum(jtotal,ibin) = electrolyte_sum(jtotal,ibin) + &\n                                       electrolyte(je,jtotal,ibin)\n      enddo\n\n\n      small_gas = 0.01 * min(gas(inh3_g), gas(ihno3_g))\n      small_aer = 0.01 * electrolyte_sum(jtotal,ibin)\n      if(small_aer .eq. 0.0)small_aer = small_gas\n\n      small_amt = min(small_gas, small_aer)\n\n      aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) + small_amt\n      aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) + small_amt\n\n! update jtotal\n      aer(inh4_a,jtotal,ibin)  = aer(inh4_a,jsolid,ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      aer(ino3_a,jtotal,ibin)  = aer(ino3_a,jsolid,ibin) +   &\n                                 aer(ino3_a,jliquid,ibin)\n\n! update gas\n      gas(inh3_g)    = gas(inh3_g) - small_amt\n      gas(ihno3_g)   = gas(ihno3_g) - small_amt\n\n      return\n      end subroutine absorb_tiny_nh4no3\n\n\n\n\n\n\n!--------------------------------------------------------------------\n! nh4cl (liquid)\n      subroutine absorb_tiny_nh4cl(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) small_aer, small_gas, small_amt\n\tinteger je\t\t\t\t\t! raz update 11/13/2008\n\n\n\n      electrolyte_sum(jtotal,ibin) = 0.0\t! raz update 11/13/2008\n      do je = 1, nelectrolyte\n        electrolyte_sum(jtotal,ibin) = electrolyte_sum(jtotal,ibin) + &\n                                       electrolyte(je,jtotal,ibin)\n      enddo\n\n\n      small_gas = 0.01 * min(gas(inh3_g), gas(ihcl_g))\n      small_aer = 0.01 * electrolyte_sum(jtotal,ibin)\n      if(small_aer .eq. 0.0)small_aer = small_gas\n\n      small_amt = min(small_gas, small_aer)\n\n      aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) + small_amt\n      aer(icl_a,jliquid,ibin)  = aer(icl_a,jliquid,ibin)  + small_amt\n\n! update jtotal\n      aer(inh4_a,jtotal,ibin)  = aer(inh4_a,jsolid,ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      aer(icl_a,jtotal,ibin)   = aer(icl_a,jsolid,ibin)  +   &\n                                 aer(icl_a,jliquid,ibin)\n\n! update gas\n      gas(inh3_g)   = gas(inh3_g) - small_amt\n      gas(ihcl_g)   = gas(ihcl_g) - small_amt\n\n      return\n      end subroutine absorb_tiny_nh4cl\n\n\n\n\n\n\n\n\n\n\n\n\n\n!--------------------------------------------------------------\n! nh4no3 (liquid)\n      subroutine degas_tiny_nh4no3(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) small_amt\n\n      small_amt = 0.01 * electrolyte(jnh4no3,jliquid,ibin)\n\n      aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) - small_amt\n      aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) - small_amt\n\n! update jtotal\n      aer(inh4_a,jtotal,ibin)  = aer(inh4_a,jsolid,ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      aer(ino3_a,jtotal,ibin)  = aer(ino3_a,jsolid,ibin) +   &\n                                 aer(ino3_a,jliquid,ibin)\n\n! update gas\n      gas(inh3_g)  = gas(inh3_g)  + small_amt\n      gas(ihno3_g) = gas(ihno3_g) + small_amt\n\n      return\n      end subroutine degas_tiny_nh4no3\n\n\n\n\n!--------------------------------------------------------------------\n! liquid nh4cl (liquid)\n      subroutine degas_tiny_nh4cl(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) small_amt\n\n\n      small_amt = 0.01 * electrolyte(jnh4cl,jliquid,ibin)\n\n      aer(inh4_a,jliquid,ibin) = aer(inh4_a,jliquid,ibin) - small_amt\n      aer(icl_a,jliquid,ibin)  = aer(icl_a,jliquid,ibin) - small_amt\n\n! update jtotal\n      aer(inh4_a,jtotal,ibin)  = aer(inh4_a,jsolid,ibin) +   &\n                                 aer(inh4_a,jliquid,ibin)\n      aer(icl_a,jtotal,ibin)   = aer(icl_a,jsolid,ibin)  +   &\n                                 aer(icl_a,jliquid,ibin)\n\n! update gas\n      gas(inh3_g) = gas(inh3_g) + small_amt\n      gas(ihcl_g) = gas(ihcl_g) + small_amt\n\n      return\n      end subroutine degas_tiny_nh4cl\n\n\n\n\n\n\n\n!--------------------------------------------------------------------\n! hcl (liquid)\n      subroutine absorb_tiny_hcl(ibin)\t! and degas tiny hno3\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) small_aer, small_amt, small_gas\n\n      small_gas = 0.01 * gas(ihcl_g)\n      small_aer = 0.01 * aer(ino3_a,jliquid,ibin)\n\n      small_amt = min(small_gas, small_aer)\n\n! absorb tiny hcl\n      aer(icl_a,jliquid,ibin)= aer(icl_a,jliquid,ibin) + small_amt\n      aer(icl_a,jtotal,ibin) = aer(icl_a,jsolid,ibin) +   &\n                               aer(icl_a,jliquid,ibin)\n      gas(ihcl_g) = gas(ihcl_g) - small_amt\n\n! degas tiny hno3\n      aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) - small_amt\n      aer(ino3_a,jtotal,ibin)  = aer(ino3_a,jsolid,ibin) +   &\n                                 aer(ino3_a,jliquid,ibin)\n\n! update gas\n      gas(ihno3_g) = gas(ihno3_g) + small_amt\n\n      return\n      end subroutine absorb_tiny_hcl\n\n\n\n!--------------------------------------------------------------------\n! hno3 (liquid)\n      subroutine absorb_tiny_hno3(ibin)\t! and degas tiny hcl\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) small_aer, small_amt, small_gas\n\n      small_gas = 0.01 * gas(ihno3_g)\n      small_aer = 0.01 * aer(icl_a,jliquid,ibin)\n\n      small_amt = min(small_gas, small_aer)\n\n! absorb tiny hno3\n      aer(ino3_a,jliquid,ibin) = aer(ino3_a,jliquid,ibin) + small_amt\n      aer(ino3_a,jtotal,ibin)  = aer(ino3_a,jsolid,ibin) +   &\n                                 aer(ino3_a,jliquid,ibin)\n      gas(ihno3_g) = gas(ihno3_g) - small_amt\n\n! degas tiny hcl\n      aer(icl_a,jliquid,ibin)  = aer(icl_a,jliquid,ibin) - small_amt\n      aer(icl_a,jtotal,ibin)   = aer(icl_a,jsolid,ibin) +   &\n                                 aer(icl_a,jliquid,ibin)\n\n! update gas\n      gas(ihcl_g) = gas(ihcl_g) + small_amt\n\n      return\n      end subroutine absorb_tiny_hno3\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! subroutines to equilibrate volatile acids\n!\n! author: rahul a. zaveri\n! update: may 2002\n!-----------------------------------------------------------------------\n      subroutine equilibrate_acids(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n\n\n\n      if(gas(ihcl_g)*gas(ihno3_g) .gt. 0.)then\n        call equilibrate_hcl_and_hno3(ibin)\n      elseif(gas(ihcl_g) .gt. 0.)then\n        call equilibrate_hcl(ibin)\n      elseif(gas(ihno3_g) .gt. 0.)then\n        call equilibrate_hno3(ibin)\n      endif\n\n\n      return\n      end subroutine equilibrate_acids\n\n\n\n\n\n\n\n\n! only hcl\n      subroutine equilibrate_hcl(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, aerh, aerhso4, aerso4, b, c, dum, kdash_hcl, mh, tcl,   &\n        w, xt, z\n!     real(kind=8) quadratic\t\t\t\t\t! mosaic func\n\n      aerso4 = ma(ja_so4,ibin)*water_a(ibin)*1.e+9\n      aerhso4= ma(ja_hso4,ibin)*water_a(ibin)*1.e+9\n\n      tcl = aer(icl_a,jliquid,ibin) + gas(ihcl_g)\t\t! nmol/m^3(air)\n      kdash_hcl = keq_gl(4)*1.e+18/gam(jhcl,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n      z = (   aer(ina_a, jliquid,ibin) + \t\t   &  ! nmol/m^3(air)\n              aer(inh4_a,jliquid,ibin) +   &\n           2.*aer(ica_a, jliquid,ibin) ) -   &\n          (2.*aerso4  +   &\n              aerhso4 +   &\n              aer(ino3_a,jliquid,ibin) )\n\n\n      w     = water_a(ibin)\t\t\t\t! kg/m^3(air)\n\n      kdash_hcl = keq_gl(4)*1.e+18/gam(jhcl,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n      a = 1.0\n      b = (kdash_hcl*w + z/w)*1.e-9\n      c = kdash_hcl*(z - tcl)*1.e-18\n\n\n      dum = b*b - 4.*a*c\n      if (dum .lt. 0.) return\t\t! no real root\n\n\n      if(c .lt. 0.)then\n        mh = quadratic(a,b,c)\t! mol/kg(water)\n        aerh = mh*w*1.e+9\n        aer(icl_a,jliquid,ibin) = aerh + z\n      else\n        mh = sqrt(keq_ll(3))\n      endif\n\n      call form_electrolytes(jliquid,ibin,xt)\n\n! update gas phase concentration\n      gas(ihcl_g) = tcl - aer(icl_a,jliquid,ibin)\n\n\n! update the following molalities\n      ma(ja_so4,ibin)  = 1.e-9*aerso4/water_a(ibin)\n      ma(ja_hso4,ibin) = 1.e-9*aerhso4/water_a(ibin)\n      ma(ja_no3,ibin)  = 1.e-9*aer(ino3_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_cl,ibin)   = 1.e-9*aer(icl_a, jliquid,ibin)/water_a(ibin)\n\n      mc(jc_h,ibin)    = mh\n      mc(jc_ca,ibin)   = 1.e-9*aer(ica_a, jliquid,ibin)/water_a(ibin)\n      mc(jc_nh4,ibin)  = 1.e-9*aer(inh4_a,jliquid,ibin)/water_a(ibin)\n      mc(jc_na,ibin)   = 1.e-9*aer(ina_a, jliquid,ibin)/water_a(ibin)\n\n\n! update the following activities\n      activity(jhcl,ibin)    = mc(jc_h,ibin)  *ma(ja_cl,ibin)  *   &\n                               gam(jhcl,ibin)**2\n\n      activity(jhno3,ibin)   = mc(jc_h,ibin)  *ma(ja_no3,ibin) *   &\n                               gam(jhno3,ibin)**2\n\n      activity(jnh4cl,ibin)  = mc(jc_nh4,ibin)*ma(ja_cl,ibin) *   &\n                               gam(jnh4cl,ibin)**2\n\n\n! also update xyz(jtotal)\n      aer(icl_a,jtotal,ibin) = aer(icl_a,jliquid,ibin) +   &\n                               aer(icl_a,jsolid,ibin)\n\n      electrolyte(jhcl,jtotal,ibin) = electrolyte(jhcl,jliquid,ibin)\n\n      return\n      end subroutine equilibrate_hcl\n\n\n\n\n! only hno3\n      subroutine equilibrate_hno3(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) a, aerh, aerhso4, aerso4, b, c, dum, kdash_hno3, mh,   &\n        tno3, w, xt, z\n!     real(kind=8) quadratic\t\t\t\t\t! mosaic func\n\n      aerso4 = ma(ja_so4,ibin)*water_a(ibin)*1.e+9\n      aerhso4= ma(ja_hso4,ibin)*water_a(ibin)*1.e+9\n\n      tno3 = aer(ino3_a,jliquid,ibin) + gas(ihno3_g)\t! nmol/m^3(air)\n      kdash_hno3 = keq_gl(3)*1.e+18/gam(jhno3,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n      z = (   aer(ina_a, jliquid,ibin) + \t\t   &  ! nmol/m^3(air)\n              aer(inh4_a,jliquid,ibin) +   &\n           2.*aer(ica_a, jliquid,ibin) ) -   &\n          (2.*aerso4  +   &\n              aerhso4 +   &\n              aer(icl_a,jliquid,ibin) )\n\n\n      w     = water_a(ibin)\t\t\t\t! kg/m^3(air)\n\n      kdash_hno3 = keq_gl(3)*1.e+18/gam(jhno3,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n      a = 1.0\n      b = (kdash_hno3*w + z/w)*1.e-9\n      c = kdash_hno3*(z - tno3)*1.e-18\n\n      dum = b*b - 4.*a*c\n      if (dum .lt. 0.) return\t\t! no real root\n\n\n\n      if(c .lt. 0.)then\n        mh = quadratic(a,b,c)\t! mol/kg(water)\n        aerh = mh*w*1.e+9\n        aer(ino3_a,jliquid,ibin) = aerh + z\n      else\n        mh = sqrt(keq_ll(3))\n      endif\n\n      call form_electrolytes(jliquid,ibin,xt)\n\n! update gas phase concentration\n      gas(ihno3_g)= tno3 - aer(ino3_a,jliquid,ibin)\n\n\n! update the following molalities\n      ma(ja_so4,ibin)  = 1.e-9*aerso4/water_a(ibin)\n      ma(ja_hso4,ibin) = 1.e-9*aerhso4/water_a(ibin)\n      ma(ja_no3,ibin)  = 1.e-9*aer(ino3_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_cl,ibin)   = 1.e-9*aer(icl_a, jliquid,ibin)/water_a(ibin)\n\n      mc(jc_h,ibin)    = mh\n      mc(jc_ca,ibin)   = 1.e-9*aer(ica_a, jliquid,ibin)/water_a(ibin)\n      mc(jc_nh4,ibin)  = 1.e-9*aer(inh4_a,jliquid,ibin)/water_a(ibin)\n      mc(jc_na,ibin)   = 1.e-9*aer(ina_a, jliquid,ibin)/water_a(ibin)\n\n\n! update the following activities\n      activity(jhcl,ibin)    = mc(jc_h,ibin)  *ma(ja_cl,ibin)  *   &\n                               gam(jhcl,ibin)**2\n\n      activity(jhno3,ibin)   = mc(jc_h,ibin)  *ma(ja_no3,ibin) *   &\n                               gam(jhno3,ibin)**2\n\n      activity(jnh4no3,ibin) = mc(jc_nh4,ibin)*ma(ja_no3,ibin) *   &\n                               gam(jnh4no3,ibin)**2\n\n\n! also update xyz(jtotal)\n      aer(ino3_a,jtotal,ibin) = aer(ino3_a,jliquid,ibin) +   &\n                                aer(ino3_a,jsolid,ibin)\n\n      electrolyte(jhno3,jtotal,ibin) = electrolyte(jhno3,jliquid,ibin)\n\n      return\n      end subroutine equilibrate_hno3\n\n\n\n\n\n\n\n\n\n\n! both hcl and hno3\n      subroutine equilibrate_hcl_and_hno3(ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr arguments\n      integer ibin\n! local variables\n      real(kind=8) aerh, aerhso4, aerso4, kdash_hcl, kdash_hno3,   &\n        mh, p, q, r, tcl, tno3, w, xt, z\n!     real(kind=8) cubic\t\t\t\t\t! mosaic func\n\n\n      aerso4 = ma(ja_so4,ibin)*water_a(ibin)*1.e+9\n      aerhso4= ma(ja_hso4,ibin)*water_a(ibin)*1.e+9\n\n      tcl  = aer(icl_a,jliquid,ibin)  + gas(ihcl_g)\t! nmol/m^3(air)\n      tno3 = aer(ino3_a,jliquid,ibin) + gas(ihno3_g)\t! nmol/m^3(air)\n\n      kdash_hcl  = keq_gl(4)*1.e+18/gam(jhcl,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n      kdash_hno3 = keq_gl(3)*1.e+18/gam(jhno3,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n\n      z = (   aer(ina_a, jliquid,ibin) + \t\t   &  ! nmol/m^3(air)\n              aer(inh4_a,jliquid,ibin) +   &\n           2.*aer(ica_a, jliquid,ibin) ) -   &\n          (2.*aerso4 + aerhso4 )\n\n\n      w = water_a(ibin)\n\n      kdash_hcl  = keq_gl(4)*1.e+18/gam(jhcl,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n      kdash_hno3 = keq_gl(3)*1.e+18/gam(jhno3,ibin)**2\t! (nmol^2/kg^2)/(nmol/m^3(air))\n\n      p = (z/w + w*(kdash_hcl + kdash_hno3))*1.e-9\n\n      q = 1.e-18*kdash_hcl*kdash_hno3*w**2  +   &\n          1.e-18*z*(kdash_hcl + kdash_hno3) -   &\n          1.e-18*kdash_hcl*tcl -   &\n          1.e-18*kdash_hno3*tno3\n\n      r = 1.e-18*kdash_hcl*kdash_hno3*w*(z - tcl - tno3)*1.e-9\n\n      mh = cubic(p,q,r)\n\n      if(mh .gt. 0.0)then\n        aerh = mh*w*1.e+9\n        aer(ino3_a,jliquid,ibin) = kdash_hno3*w*w*tno3/   &\n                                  (aerh + kdash_hno3*w*w)\n        aer(icl_a, jliquid,ibin) = kdash_hcl*w*w*tcl/   &\n                                  (aerh + kdash_hcl*w*w)\n      else\n        mh = sqrt(keq_ll(3))\n      endif\n\n      call form_electrolytes(jliquid,ibin,xt)\n\n! update gas phase concentration\n      gas(ihno3_g)= tno3 - aer(ino3_a,jliquid,ibin)\n      gas(ihcl_g) = tcl  - aer(icl_a,jliquid,ibin)\n\n\n! update the following molalities\n      ma(ja_so4,ibin)  = 1.e-9*aerso4/water_a(ibin)\n      ma(ja_hso4,ibin) = 1.e-9*aerhso4/water_a(ibin)\n      ma(ja_no3,ibin)  = 1.e-9*aer(ino3_a,jliquid,ibin)/water_a(ibin)\n      ma(ja_cl,ibin)   = 1.e-9*aer(icl_a, jliquid,ibin)/water_a(ibin)\n\n      mc(jc_h,ibin)    = mh\n      mc(jc_ca,ibin)   = 1.e-9*aer(ica_a, jliquid,ibin)/water_a(ibin)\n      mc(jc_nh4,ibin)  = 1.e-9*aer(inh4_a,jliquid,ibin)/water_a(ibin)\n      mc(jc_na,ibin)   = 1.e-9*aer(ina_a, jliquid,ibin)/water_a(ibin)\n\n\n! update the following activities\n      activity(jhcl,ibin)    = mc(jc_h,ibin)*ma(ja_cl,ibin)   *   &\n                               gam(jhcl,ibin)**2\n\n      activity(jhno3,ibin)   = mc(jc_h,ibin)*ma(ja_no3,ibin)  *   &\n                               gam(jhno3,ibin)**2\n\n      activity(jnh4no3,ibin) = mc(jc_nh4,ibin)*ma(ja_no3,ibin)*   &\n                               gam(jnh4no3,ibin)**2\n\n      activity(jnh4cl,ibin)  = mc(jc_nh4,ibin)*ma(ja_cl,ibin) *   &\n                               gam(jnh4cl,ibin)**2\n\n\n! also update xyz(jtotal)\n      aer(icl_a,jtotal,ibin)  = aer(icl_a,jliquid,ibin) +   &\n                                aer(icl_a,jsolid,ibin)\n\n      aer(ino3_a,jtotal,ibin) = aer(ino3_a,jliquid,ibin) +   &\n                                aer(ino3_a,jsolid,ibin)\n\n      electrolyte(jhno3,jtotal,ibin) = electrolyte(jhno3,jliquid,ibin)\n      electrolyte(jhcl, jtotal,ibin) = electrolyte(jhcl, jliquid,ibin)\n\n      return\n      end subroutine equilibrate_hcl_and_hno3\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! called only once per entire simulation to load gas and aerosol\n! indices, parameters, physico-chemical constants, polynomial coeffs, etc.\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine load_mosaic_parameters\n!     implicit none\n!     include 'v33com2'\n!     include 'mosaic.h'\n! local variables\n      integer iaer, je, ja, j_index, ibin\n!     logical first\n!     save first\n!     data first/.true./\n      logical, save :: first = .true.\n\n\n\n      if(first)then\n        first=.false.\n\n!----------------------------------------------------------------\n! control settings\n      !msize_framework = msection\t! mmodal or msection\n      msize_framework = mmodal          ! mmodal or msection\n      mgas_aer_xfer   = myes\t\t! myes, mno\n\n! astem parameters\n      nmax_astem      = 100\t\t! max number of time steps in astem\n      alpha_astem     = 0.05\t\t! choose a value between 0.01 and 1.0\n! Changed alpha_astem from 0.5 to 0.05 by Manish Shrivastava on 01/08/2010\n      rtol_eqb_astem  = 0.01\t\t! equilibrium tolerance in astem\n      ptol_mol_astem  = 0.01\t\t! mol percent tolerance in astem\n\n! mesa parameters\n      nmax_mesa       = 80\t\t! max number of iterations in mesa_ptc\n      rtol_mesa       = 0.01\t\t! mesa equilibrium tolerance\n!----------------------------------------------------------------\n!\n! set gas and aerosol indices\n!\n! gas (local)\n\n\n      ih2so4_g\t= 1\t! ioa (inorganic aerosol)\n      ihno3_g\t= 2\t! ioa\n      ihcl_g\t= 3\t! ioa\n      inh3_g\t= 4\t! ioa\n      imsa_g\t= 5\t! ioa\n      ipcg1_b_c_g =6\n      ipcg2_b_c_g =7\n      ipcg3_b_c_g =8\n      ipcg4_b_c_g =9\n      ipcg5_b_c_g =10\n      ipcg6_b_c_g =11\n      ipcg7_b_c_g =12\n      ipcg8_b_c_g =13\n      ipcg9_b_c_g =14\n      ipcg1_b_o_g =15\n      ipcg2_b_o_g =16\n      ipcg3_b_o_g =17\n      ipcg4_b_o_g =18\n      ipcg5_b_o_g =19\n      ipcg6_b_o_g =20\n      ipcg7_b_o_g =21\n      ipcg8_b_o_g =22\n      ipcg9_b_o_g =23\n      iopcg1_b_c_g =24\n      iopcg2_b_c_g = 25\n      iopcg3_b_c_g =26\n      iopcg4_b_c_g =27\n      iopcg5_b_c_g =28\n      iopcg6_b_c_g =29\n      iopcg7_b_c_g =30\n      iopcg8_b_c_g =31\n      iopcg1_b_o_g =32\n      iopcg2_b_o_g =33\n      iopcg3_b_o_g =34\n      iopcg4_b_o_g =35\n      iopcg5_b_o_g =36\n      iopcg6_b_o_g =37\n      iopcg7_b_o_g =38\n      iopcg8_b_o_g =39\n      ipcg1_f_c_g =40\n      ipcg2_f_c_g =41\n      ipcg3_f_c_g =42\n      ipcg4_f_c_g =43\n      ipcg5_f_c_g =44\n      ipcg6_f_c_g =45\n      ipcg7_f_c_g =46\n      ipcg8_f_c_g =47\n      ipcg9_f_c_g =48\n      ipcg1_f_o_g =49\n      ipcg2_f_o_g =50\n      ipcg3_f_o_g =51\n      ipcg4_f_o_g =52\n      ipcg5_f_o_g =53\n      ipcg6_f_o_g =54\n      ipcg7_f_o_g =55\n      ipcg8_f_o_g =56\n      ipcg9_f_o_g =57\n      iopcg1_f_c_g =58\n      iopcg2_f_c_g =59\n      iopcg3_f_c_g =60\n      iopcg4_f_c_g =61\n      iopcg5_f_c_g =62\n      iopcg6_f_c_g =63\n      iopcg7_f_c_g =64\n      iopcg8_f_c_g =65\n      iopcg1_f_o_g =66\n      iopcg2_f_o_g =67\n      iopcg3_f_o_g =68\n      iopcg4_f_o_g =69\n      iopcg5_f_o_g =70\n      iopcg6_f_o_g =71\n      iopcg7_f_o_g =72\n      iopcg8_f_o_g =73\n      ismpa_g =74\n      ismpbb_g =75\n      iant1_c_g =76\n      iant2_c_g =77\n      iant3_c_g =78\n      iant4_c_g =79\n      iant1_o_g =80\n      iant2_o_g =81\n      iant3_o_g =82\n      iant4_o_g =83\n      ibiog1_c_g =84\n      ibiog2_c_g =85\n      ibiog3_c_g =86\n      ibiog4_c_g =87\n      ibiog1_o_g =88\n      ibiog2_o_g =89\n      ibiog3_o_g =90\n      ibiog4_o_g =91\n!      in2o5_g    =92  ! ioa --> NO3-\n!      iclno2_g   =93  ! ioa N2O5+Cl- -->\n!     the order of species is ngas_ioa, then ngas_soa, then the rest...\n!     for the \"equilibrium\" routine i*_a and i*_g species\n!     have to have the same index.\n      iasoaX_g=92\n      iasoa1_g=93\n      iasoa2_g=94\n      iasoa3_g=95\n      iasoa4_g=96\n      ibsoaX_g=97\n      ibsoa1_g=98\n      ibsoa2_g=99\n      ibsoa3_g=100\n      ibsoa4_g=101\n!      in2o5_g    =102  ! ioa --> NO3-\n!      iclno2_g   =103  ! ioa N2O5+Cl- -->\n\n!      igly       =104\n!      iho        =105\n\n       igly       =102\n       iho        =103\n\n       in2o5_g    =104  ! ioa --> NO3-\n       iclno2_g   =105  ! ioa N2O5+Cl- -->\n\n!      ico2_g\t= 14\t! currently not used\n!\n! aerosol (local): used for total species\n      iso4_a\t=  1\t! <-> ih2so4_g\n      ino3_a\t=  2\t! <-> ihno3_g\n      icl_a\t=  3\t! <-> ihcl_g\n      inh4_a\t=  4\t! <-> inh3_g\n      imsa_a\t=  5\t! <-> imsa_g\n      ipcg1_b_c_a =6\n      ipcg2_b_c_a =7\n      ipcg3_b_c_a =8\n      ipcg4_b_c_a =9\n      ipcg5_b_c_a =10\n      ipcg6_b_c_a =11\n      ipcg7_b_c_a =12\n      ipcg8_b_c_a =13\n      ipcg9_b_c_a =14\n      ipcg1_b_o_a =15\n      ipcg2_b_o_a =16\n      ipcg3_b_o_a =17\n      ipcg4_b_o_a =18\n      ipcg5_b_o_a =19\n      ipcg6_b_o_a =20\n      ipcg7_b_o_a =21\n      ipcg8_b_o_a =22\n      ipcg9_b_o_a =23\n      iopcg1_b_c_a =24\n      iopcg2_b_c_a = 25\n      iopcg3_b_c_a =26\n      iopcg4_b_c_a =27\n      iopcg5_b_c_a =28\n      iopcg6_b_c_a =29\n      iopcg7_b_c_a =30\n      iopcg8_b_c_a =31\n      iopcg1_b_o_a =32\n      iopcg2_b_o_a = 33\n      iopcg3_b_o_a =34\n      iopcg4_b_o_a =35\n      iopcg5_b_o_a =36\n      iopcg6_b_o_a =37\n      iopcg7_b_o_a =38\n      iopcg8_b_o_a =39\n      ipcg1_f_c_a =40\n      ipcg2_f_c_a =41\n      ipcg3_f_c_a =42\n      ipcg4_f_c_a =43\n      ipcg5_f_c_a =44\n      ipcg6_f_c_a =45\n      ipcg7_f_c_a =46\n      ipcg8_f_c_a =47\n      ipcg9_f_c_a =48\n      ipcg1_f_o_a =49\n      ipcg2_f_o_a =50\n      ipcg3_f_o_a =51\n      ipcg4_f_o_a =52\n      ipcg5_f_o_a =53\n      ipcg6_f_o_a =54\n      ipcg7_f_o_a =55\n      ipcg8_f_o_a =56\n      ipcg9_f_o_a =57\n      iopcg1_f_c_a =58\n      iopcg2_f_c_a =59\n      iopcg3_f_c_a =60\n      iopcg4_f_c_a =61\n      iopcg5_f_c_a =62\n      iopcg6_f_c_a =63\n      iopcg7_f_c_a =64\n      iopcg8_f_c_a =65\n      iopcg1_f_o_a =66\n      iopcg2_f_o_a =67\n      iopcg3_f_o_a =68\n      iopcg4_f_o_a =69\n      iopcg5_f_o_a =70\n      iopcg6_f_o_a =71\n      iopcg7_f_o_a =72\n      iopcg8_f_o_a =73\n      ismpa_a =74\n      ismpbb_a =75\n      iant1_c_a =76\n      iant2_c_a =77\n      iant3_c_a =78\n      iant4_c_a =79\n      iant1_o_a =80\n      iant2_o_a =81\n      iant3_o_a =82\n      iant4_o_a =83\n      ibiog1_c_a =84\n      ibiog2_c_a =85\n      ibiog3_c_a =86\n      ibiog4_c_a =87\n      ibiog1_o_a =88\n      ibiog2_o_a =89\n      ibiog3_o_a =90\n      ibiog4_o_a =91\n! for the \"equilibrium\" routine, \n! i*_g and i*_a species have to have the same index...\n!      ico3_a    = 92    ! <-> ico2_g ! ico3_a was 14 earlier, changed to 82 by Manish Shrivastava\n!      ina_a     = 93\n!      ica_a     = 94\n!      ioin_a    = 95\n!      ioc_a     = 96\n!      ibc_a     = 97\n      iasoaX_a=92\n      iasoa1_a=93\n      iasoa2_a=94\n      iasoa3_a=95\n      iasoa4_a=96\n      ibsoaX_a=97\n      ibsoa1_a=98\n      ibsoa2_a=99\n      ibsoa3_a=100\n      ibsoa4_a=101\n      iglysoa_r1_a = 102\n      iglysoa_r2_a = 103\n      iglysoa_sfc_a = 104\n      iglysoa_nh4_a = 105\n      iglysoa_oh_a = 106\n\n      ico3_a    = 107    ! <-> ico2_g ! ico3_a was 14 earlier, changed to 82 by Manish Shrivastava\n      ina_a     = 108\n      ica_a     = 109\n      ioin_a    = 110\n      ioc_a     = 111\n      ibc_a     = 112\n\n! electrolyte indices (used for water content calculations)\n! these indices are order sensitive\n      \n      jnh4so4\t=  1\t! soluble\n      jlvcite\t=  2\t! soluble\n      jnh4hso4\t=  3\t! soluble\n      jnh4msa\t=  4\t! soluble new\n      jnh4no3\t=  5\t! soluble\n      jnh4cl\t=  6\t! soluble\n      jna2so4\t=  7\t! soluble\n      jna3hso4\t=  8\t! soluble\n      jnahso4\t=  9\t! soluble\n      jnamsa\t= 10\t! soluble new\n      jnano3\t= 11\t! soluble\n      jnacl\t= 12\t! soluble\n      jcano3\t= 13\t! soluble\n      jcacl2\t= 14\t! soluble\n      jcamsa2\t= 15\t! soluble new     nsalt\n      jh2so4\t= 16\t! soluble\n      jmsa\t= 17\t! soluble new\n      jhno3\t= 18\t! soluble\n      jhcl\t= 19\t! soluble\n      jhhso4\t= 20\t! soluble\n      jcaso4\t= 21\t! insoluble\n      jcaco3\t= 22\t! insoluble\n      joc\t= 23\t! insoluble - part of naercomp\n      jbc\t= 24\t! insoluble - part of naercomp\n      join\t= 25\t! insoluble - part of naercomp\n      jpcg1_b_c =26\n      jpcg2_b_c =27\n      jpcg3_b_c =28\n      jpcg4_b_c =29\n      jpcg5_b_c =30\n      jpcg6_b_c =31\n      jpcg7_b_c =32\n      jpcg8_b_c =33\n      jpcg9_b_c =34\n      jpcg1_b_o =35\n      jpcg2_b_o =36\n      jpcg3_b_o =37\n      jpcg4_b_o =38\n      jpcg5_b_o =39\n      jpcg6_b_o =40\n      jpcg7_b_o =41\n      jpcg8_b_o =42\n      jpcg9_b_o =43\n      jopcg1_b_c =44\n      jopcg2_b_c =45\n      jopcg3_b_c =46\n      jopcg4_b_c =47\n      jopcg5_b_c =48\n      jopcg6_b_c =49\n      jopcg7_b_c =50\n      jopcg8_b_c =51\n      jopcg1_b_o =52\n      jopcg2_b_o =53\n      jopcg3_b_o =54\n      jopcg4_b_o =55\n      jopcg5_b_o =56\n      jopcg6_b_o =57\n      jopcg7_b_o =58\n      jopcg8_b_o =59\n      jpcg1_f_c =60\n      jpcg2_f_c =61\n      jpcg3_f_c =62\n      jpcg4_f_c =63\n      jpcg5_f_c =64\n      jpcg6_f_c =65\n      jpcg7_f_c =66\n      jpcg8_f_c =67\n      jpcg9_f_c =68\n      jpcg1_f_o =69\n      jpcg2_f_o =70\n      jpcg3_f_o =71\n      jpcg4_f_o =72\n      jpcg5_f_o =73\n      jpcg6_f_o =74\n      jpcg7_f_o =75\n      jpcg8_f_o =76\n      jpcg9_f_o =77\n      jopcg1_f_c =78\n      jopcg2_f_c =79\n      jopcg3_f_c =80\n      jopcg4_f_c =81\n      jopcg5_f_c =82\n      jopcg6_f_c =83\n      jopcg7_f_c =84\n      jopcg8_f_c =85\n      jopcg1_f_o =86\n      jopcg2_f_o =87\n      jopcg3_f_o =88\n      jopcg4_f_o =89\n      jopcg5_f_o =90\n      jopcg6_f_o =91\n      jopcg7_f_o =92\n      jopcg8_f_o =93\n      jsmpa =94\n      jsmpbb =95\n      jant1_c =96\n      jant2_c =97\n      jant3_c =98\n      jant4_c =99\n      jant1_o =100\n      jant2_o =101\n      jant3_o =102\n      jant4_o =103\n      jbiog1_c =104\n      jbiog2_c =105\n      jbiog3_c =106\n      jbiog4_c =107\n      jbiog1_o =108\n      jbiog2_o =109\n      jbiog3_o =110\n      jbiog4_o =111\n!      jh2o\t= 112\t! water - part of naercomp\n      jasoaX=112\n      jasoa1=113\n      jasoa2=114\n      jasoa3=115\n      jasoa4=116\n      jbsoaX=117\n      jbsoa1=118\n      jbsoa2=119\n      jbsoa3=120\n      jbsoa4=121\n      jglysoa_r1  = 122\n      jglysoa_r2  = 123\n      jglysoa_sfc = 124\n      jglysoa_nh4 = 125\n      jglysoa_oh  = 126\n      jh2o  = 127 ! water - part of naercomp\n\n! local aerosol ions\n! cations\n      jc_h\t=  1\n      jc_nh4\t=  2\n      jc_na\t=  3\n      jc_ca\t=  4\n!\n! anions\n      ja_hso4\t=  1\n      ja_so4  \t=  2\n      ja_no3  \t=  3\n      ja_cl   \t=  4\n      ja_msa\t=  5\n!     ja_co3\t=  6\n\n!--------------------------------------------------------------------\n! phase state names\n!      phasestate(no_aerosol) = \"NOAERO\"\n!      phasestate(all_solid)  = \"SOLID \"\n!      phasestate(all_liquid) = \"LIQUID\"\n!      phasestate(mixed)      = \"MIXED \"\n\n! names of aer species\n      aer_name(iso4_a) = 'so4'\n      aer_name(ino3_a) = 'no3'\n      aer_name(icl_a)  = 'cl '\n      aer_name(inh4_a) = 'nh4'\n      aer_name(ioc_a)  = 'oc '\n      aer_name(imsa_a) = 'msa'\n      aer_name(ico3_a) = 'co3'\n      aer_name(ina_a)  = 'na '\n      aer_name(ica_a)  = 'ca '\n      aer_name(ibc_a)  = 'bc '\n      aer_name(ioin_a) = 'oin'\n      aer_name(ipcg1_b_c_a)=\"pcg1_b_c\"\n      aer_name(ipcg2_b_c_a)=\"pcg2_b_c\"\n      aer_name(ipcg3_b_c_a)=\"pcg3_b_c\"\n      aer_name(ipcg4_b_c_a)=\"pcg4_b_c\"\n      aer_name(ipcg5_b_c_a)=\"pcg5_b_c\"\n      aer_name(ipcg6_b_c_a)=\"pcg6_b_c\"\n      aer_name(ipcg7_b_c_a)=\"pcg7_b_c\"\n      aer_name(ipcg8_b_c_a)=\"pcg8_b_c\"\n      aer_name(ipcg9_b_c_a)=\"pcg9_b_c\"\n      aer_name(iopcg1_b_c_a)=\"opcg1_b_c\"\n      aer_name(iopcg2_b_c_a)=\"opcg2_b_c\"\n      aer_name(iopcg3_b_c_a)=\"opcg3_b_c\"\n      aer_name(iopcg4_b_c_a)=\"opcg4_b_c\"\n      aer_name(iopcg5_b_c_a)=\"opcg5_b_c\"\n      aer_name(iopcg6_b_c_a)=\"opcg6_b_c\"\n      aer_name(iopcg7_b_c_a)=\"opcg7_b_c\"\n      aer_name(iopcg8_b_c_a)=\"opcg8_b_c\"\n      aer_name(ipcg1_b_o_a)=\"pcg1_b_o\"\n      aer_name(ipcg2_b_o_a)=\"pcg2_b_o\"\n      aer_name(ipcg3_b_o_a)=\"pcg3_b_o\"\n      aer_name(ipcg4_b_o_a)=\"pcg4_b_o\"\n      aer_name(ipcg5_b_o_a)=\"pcg5_b_o\"\n      aer_name(ipcg6_b_o_a)=\"pcg6_b_o\"\n      aer_name(ipcg7_b_o_a)=\"pcg7_b_o\"\n      aer_name(ipcg8_b_o_a)=\"pcg8_b_o\"\n      aer_name(ipcg9_b_o_a)=\"pcg9_b_o\"\n      aer_name(iopcg1_b_o_a)=\"opcg1_b_o\"\n      aer_name(iopcg2_b_o_a)=\"opcg2_b_o\"\n      aer_name(iopcg3_b_o_a)=\"opcg3_b_o\"\n      aer_name(iopcg4_b_o_a)=\"opcg4_b_o\"\n      aer_name(iopcg5_b_o_a)=\"opcg5_b_o\"\n      aer_name(iopcg6_b_o_a)=\"opcg6_b_o\"\n      aer_name(iopcg7_b_o_a)=\"opcg7_b_o\"\n      aer_name(iopcg8_b_o_a)=\"opcg8_b_o\"\n      aer_name(ipcg1_f_c_a)=\"pcg1_f_c\"\n      aer_name(ipcg2_f_c_a)=\"pcg2_f_c\"\n      aer_name(ipcg3_f_c_a)=\"pcg3_f_c\"\n      aer_name(ipcg4_f_c_a)=\"pcg4_f_c\"\n      aer_name(ipcg5_f_c_a)=\"pcg5_f_c\"\n      aer_name(ipcg6_f_c_a)=\"pcg6_f_c\"\n      aer_name(ipcg7_f_c_a)=\"pcg7_f_c\"\n      aer_name(ipcg8_f_c_a)=\"pcg8_f_c\"\n      aer_name(ipcg9_f_c_a)=\"pcg9_f_c\"\n      aer_name(iopcg1_f_c_a)=\"opcg1_f_c\"\n      aer_name(iopcg2_f_c_a)=\"opcg2_f_c\"\n      aer_name(iopcg3_f_c_a)=\"opcg3_f_c\"\n      aer_name(iopcg4_f_c_a)=\"opcg4_f_c\"\n      aer_name(iopcg5_f_c_a)=\"opcg5_f_c\"\n      aer_name(iopcg6_f_c_a)=\"opcg6_f_c\"\n      aer_name(iopcg7_f_c_a)=\"opcg7_f_c\"\n      aer_name(iopcg8_f_c_a)=\"opcg8_f_c\"\n      aer_name(ipcg1_f_o_a)=\"pcg1_f_o\"\n      aer_name(ipcg2_f_o_a)=\"pcg2_f_o\"\n      aer_name(ipcg3_f_o_a)=\"pcg3_f_o\"\n      aer_name(ipcg4_f_o_a)=\"pcg4_f_o\"\n      aer_name(ipcg5_f_o_a)=\"pcg5_f_o\"\n      aer_name(ipcg6_f_o_a)=\"pcg6_f_o\"\n      aer_name(ipcg7_f_o_a)=\"pcg7_f_o\"\n      aer_name(ipcg8_f_o_a)=\"pcg8_f_o\"\n      aer_name(ipcg9_f_o_a)=\"pcg9_f_o\"\n      aer_name(iopcg1_f_o_a)=\"opcg1_f_o\"\n      aer_name(iopcg2_f_o_a)=\"opcg2_f_o\"\n      aer_name(iopcg3_f_o_a)=\"opcg3_f_o\"\n      aer_name(iopcg4_f_o_a)=\"opcg4_f_o\"\n      aer_name(iopcg5_f_o_a)=\"opcg5_f_o\"\n      aer_name(iopcg6_f_o_a)=\"opcg6_f_o\"\n      aer_name(iopcg7_f_o_a)=\"opcg7_f_o\"\n      aer_name(iopcg8_f_o_a)=\"opcg8_f_o\"\n      aer_name(ismpa_a)=\"smpa\"\n      aer_name(ismpbb_a)=\"smpbb\"\n      aer_name(iglysoa_r1_a)=\"glysoa_r1\"\n      aer_name(iglysoa_r2_a)=\"glysoa_r2\"\n      aer_name(iglysoa_sfc_a)=\"glysoa_sfc\"\n      aer_name(iglysoa_nh4_a)=\"glysoa_nh4\"\n      aer_name(iglysoa_oh_a)=\"glysoa_oh\"\n      aer_name(iant1_c_a)=\"ant1_c\"\n      aer_name(iant2_c_a)=\"ant2_c\"\n      aer_name(iant3_c_a)=\"ant3_c\"\n      aer_name(iant4_c_a)=\"ant4_c\"\n      aer_name(iant1_o_a)=\"ant1_o\"\n      aer_name(iant2_o_a)=\"ant2_o\"\n      aer_name(iant3_o_a)=\"ant3_o\"\n      aer_name(iant4_o_a)=\"ant4_o\"\n      aer_name(ibiog1_c_a)=\"biog1_c\"\n      aer_name(ibiog2_c_a)=\"biog2_c\"\n      aer_name(ibiog3_c_a)=\"biog3_c\"\n      aer_name(ibiog4_c_a)=\"biog4_c\"\n      aer_name(ibiog1_o_a)=\"biog1_o\"\n      aer_name(ibiog2_o_a)=\"biog2_o\"\n      aer_name(ibiog3_o_a)=\"biog3_o\"\n      aer_name(ibiog4_o_a)=\"biog4_o\"\n      aer_name(iasoaX_a)=\"asoaX\"\n      aer_name(iasoa1_a)=\"asoa1\"\n      aer_name(iasoa2_a)=\"asoa2\"\n      aer_name(iasoa3_a)=\"asoa3\"\n      aer_name(iasoa4_a)=\"asoa4\"\n      aer_name(ibsoaX_a)=\"bsoaX\"\n      aer_name(ibsoa1_a)=\"bsoa1\"\n      aer_name(ibsoa2_a)=\"bsoa2\"\n      aer_name(ibsoa3_a)=\"bsoa3\"\n      aer_name(ibsoa4_a)=\"bsoa4\"\n\n! names of gas species\n      gas_name(ih2so4_g) = 'h2so4'\n      gas_name(ihno3_g)  = 'hno3 '\n      gas_name(ihcl_g)   = 'hcl  '\n      gas_name(inh3_g)   = 'nh3  '\n      gas_name(imsa_g)   = \"msa  \"\n      gas_name(ipcg1_b_c_g)=\"pcg1_b_c\"\n      gas_name(ipcg2_b_c_g)=\"pcg2_b_c\"\n      gas_name(ipcg3_b_c_g)=\"pcg3_b_c\"\n      gas_name(ipcg4_b_c_g)=\"pcg4_b_c\"\n      gas_name(ipcg5_b_c_g)=\"pcg5_b_c\"\n      gas_name(ipcg6_b_c_g)=\"pcg6_b_c\"\n      gas_name(ipcg7_b_c_g)=\"pcg7_b_c\"\n      gas_name(ipcg8_b_c_g)=\"pcg8_b_c\"\n      gas_name(ipcg9_b_c_g)=\"pcg9_b_c\"\n      gas_name(iopcg1_b_c_g)=\"opcg1_b_c\"\n      gas_name(iopcg2_b_c_g)=\"opcg2_b_c\"\n      gas_name(iopcg3_b_c_g)=\"opcg3_b_c\"\n      gas_name(iopcg4_b_c_g)=\"opcg4_b_c\"\n      gas_name(iopcg5_b_c_g)=\"opcg5_b_c\"\n      gas_name(iopcg6_b_c_g)=\"opcg6_b_c\"\n      gas_name(iopcg7_b_c_g)=\"opcg7_b_c\"\n      gas_name(iopcg8_b_c_g)=\"opcg8_b_c\"\n      gas_name(ipcg1_b_o_g)=\"pcg1_b_o\"\n      gas_name(ipcg2_b_o_g)=\"pcg2_b_o\"\n      gas_name(ipcg3_b_o_g)=\"pcg3_b_o\"\n      gas_name(ipcg4_b_o_g)=\"pcg4_b_o\"\n      gas_name(ipcg5_b_o_g)=\"pcg5_b_o\"\n      gas_name(ipcg6_b_o_g)=\"pcg6_b_o\"\n      gas_name(ipcg7_b_o_g)=\"pcg7_b_o\"\n      gas_name(ipcg8_b_o_g)=\"pcg8_b_o\"\n      gas_name(ipcg9_b_o_g)=\"pcg9_b_o\"\n      gas_name(iopcg1_b_o_g)=\"opcg1_b_o\"\n      gas_name(iopcg2_b_o_g)=\"opcg2_b_o\"\n      gas_name(iopcg3_b_o_g)=\"opcg3_b_o\"\n      gas_name(iopcg4_b_o_g)=\"opcg4_b_o\"\n      gas_name(iopcg5_b_o_g)=\"opcg5_b_o\"\n      gas_name(iopcg6_b_o_g)=\"opcg6_b_o\"\n      gas_name(iopcg7_b_o_g)=\"opcg7_b_o\"\n      gas_name(iopcg8_b_o_g)=\"opcg8_b_o\"\n      gas_name(ipcg1_f_c_g)=\"pcg1_f_c\"\n      gas_name(ipcg2_f_c_g)=\"pcg2_f_c\"\n      gas_name(ipcg3_f_c_g)=\"pcg3_f_c\"\n      gas_name(ipcg4_f_c_g)=\"pcg4_f_c\"\n      gas_name(ipcg5_f_c_g)=\"pcg5_f_c\"\n      gas_name(ipcg6_f_c_g)=\"pcg6_f_c\"\n      gas_name(ipcg7_f_c_g)=\"pcg7_f_c\"\n      gas_name(ipcg8_f_c_g)=\"pcg8_f_c\"\n      gas_name(ipcg9_f_c_g)=\"pcg9_f_c\"\n      gas_name(iopcg1_f_c_g)=\"opcg1_f_c\"\n      gas_name(iopcg2_f_c_g)=\"opcg2_f_c\"\n      gas_name(iopcg3_f_c_g)=\"opcg3_f_c\"\n      gas_name(iopcg4_f_c_g)=\"opcg4_f_c\"\n      gas_name(iopcg5_f_c_g)=\"opcg5_f_c\"\n      gas_name(iopcg6_f_c_g)=\"opcg6_f_c\"\n      gas_name(iopcg7_f_c_g)=\"opcg7_f_c\"\n      gas_name(iopcg8_f_c_g)=\"opcg8_f_c\"\n      gas_name(ipcg1_f_o_g)=\"pcg1_f_o\"\n      gas_name(ipcg2_f_o_g)=\"pcg2_f_o\"\n      gas_name(ipcg3_f_o_g)=\"pcg3_f_o\"\n      gas_name(ipcg4_f_o_g)=\"pcg4_f_o\"\n      gas_name(ipcg5_f_o_g)=\"pcg5_f_o\"\n      gas_name(ipcg6_f_o_g)=\"pcg6_f_o\"\n      gas_name(ipcg7_f_o_g)=\"pcg7_f_o\"\n      gas_name(ipcg8_f_o_g)=\"pcg8_f_o\"\n      gas_name(ipcg9_f_o_g)=\"pcg9_f_o\"\n      gas_name(iopcg1_f_o_g)=\"opcg1_f_o\"\n      gas_name(iopcg2_f_o_g)=\"opcg2_f_o\"\n      gas_name(iopcg3_f_o_g)=\"opcg3_f_o\"\n      gas_name(iopcg4_f_o_g)=\"opcg4_f_o\"\n      gas_name(iopcg5_f_o_g)=\"opcg5_f_o\"\n      gas_name(iopcg6_f_o_g)=\"opcg6_f_o\"\n      gas_name(iopcg7_f_o_g)=\"opcg7_f_o\"\n      gas_name(iopcg8_f_o_g)=\"opcg8_f_o\"\n      gas_name(ismpa_g)=\"smpa\"\n      gas_name(ismpbb_g)=\"smpbb\"\n      gas_name(iant1_c_g)=\"ant1_c\"\n      gas_name(iant2_c_g)=\"ant2_c\"\n      gas_name(iant3_c_g)=\"ant3_c\"\n      gas_name(iant4_c_g)=\"ant4_c\"\n      gas_name(iant1_o_g)=\"ant1_o\"\n      gas_name(iant2_o_g)=\"ant2_o\"\n      gas_name(iant3_o_g)=\"ant3_o\"\n      gas_name(iant4_o_g)=\"ant4_o\"\n      gas_name(ibiog1_c_g)=\"biog1_c\"\n      gas_name(ibiog2_c_g)=\"biog2_c\"\n      gas_name(ibiog3_c_g)=\"biog3_c\"\n      gas_name(ibiog4_c_g)=\"biog4_c\"\n      gas_name(ibiog1_o_g)=\"biog1_o\"\n      gas_name(ibiog2_o_g)=\"biog2_o\"\n      gas_name(ibiog3_o_g)=\"biog3_o\"\n      gas_name(ibiog4_o_g)=\"biog4_o\"\n      gas_name(in2o5_g) = \"n2o5 \"\n      gas_name(iclno2_g)= \"clno2\"\n      gas_name(iasoaX_g)=\"asoaX\"\n      gas_name(iasoa1_g)=\"asoa1\"\n      gas_name(iasoa2_g)=\"asoa2\"\n      gas_name(iasoa3_g)=\"asoa3\"\n      gas_name(iasoa4_g)=\"asoa4\"\n      gas_name(ibsoaX_g)=\"bsoaX\"\n      gas_name(ibsoa1_g)=\"bsoa1\"\n      gas_name(ibsoa2_g)=\"bsoa2\"\n      gas_name(ibsoa3_g)=\"bsoa3\"\n      gas_name(ibsoa4_g)=\"bsoa4\"\n      gas_name(igly)=\"gly\"\n      gas_name(iho)=\"ho\" \n      \n! names of electrolytes\n      ename(jnh4so4) = 'amso4'\n      ename(jlvcite) = '(nh4)3h(so4)2'\n      ename(jnh4hso4)= 'nh4hso4'\n      ename(jnh4msa) = \"ch3so3nh4\"\n      ename(jnh4no3) = 'nh4no3'\n      ename(jnh4cl)  = 'nh4cl'\n      ename(jnacl)   = 'nacl'\n      ename(jnano3)  = 'nano3'\n      ename(jna2so4) = 'na2so4'\n      ename(jna3hso4)= 'na3h(so4)2'\n      ename(jnamsa)  = \"ch3so3na\"\n      ename(jnahso4) = 'nahso4'\n      ename(jcaso4)  = 'caso4'\n      ename(jcamsa2) = \"(ch3so3)2ca\"\n      ename(jcano3)  = 'ca(no3)2'\n      ename(jcacl2)  = 'cacl2'\n      ename(jcaco3)  = 'caco3'\n      ename(jh2so4)  = 'h2so4'\n      ename(jhhso4)  = 'hhso4'\n      ename(jhno3)   = 'hno3'\n      ename(jhcl)    = 'hcl'\n      ename(jmsa)    = \"ch3so3h\"\n\n! molecular weights of electrolytes\n      mw_electrolyte(jnh4so4) = 132.0\n      mw_electrolyte(jlvcite) = 247.0\n      mw_electrolyte(jnh4hso4)= 115.0\n      mw_electrolyte(jnh4msa) = 113.0\n      mw_electrolyte(jnh4no3) = 80.0\n      mw_electrolyte(jnh4cl)  = 53.5\n      mw_electrolyte(jnacl)   = 58.5\n      mw_electrolyte(jnano3)  = 85.0\n      mw_electrolyte(jna2so4) = 142.0\n      mw_electrolyte(jna3hso4)= 262.0\n      mw_electrolyte(jnahso4) = 120.0\n      mw_electrolyte(jnamsa)  = 118.0\n      mw_electrolyte(jcaso4)  = 136.0\n      mw_electrolyte(jcamsa2) = 230.0\n      mw_electrolyte(jcano3)  = 164.0\n      mw_electrolyte(jcacl2)  = 111.0\n      mw_electrolyte(jcaco3)  = 100.0\n      mw_electrolyte(jh2so4)  = 98.0\n      mw_electrolyte(jhno3)   = 63.0\n      mw_electrolyte(jhcl)    = 36.5\n      mw_electrolyte(jmsa)    = 96.0\n\n\n! molecular weights of ions [g/mol]\n      mw_c(jc_h)  =  1.0\n      mw_c(jc_nh4)= 18.0\n      mw_c(jc_na) = 23.0\n      mw_c(jc_ca) = 40.0\n\n      mw_a(ja_so4) = 96.0\n      mw_a(ja_hso4)= 97.0\n      mw_a(ja_no3) = 62.0\n      mw_a(ja_cl)  = 35.5\n      MW_a(ja_msa) = 95.0\n\n\n! magnitude of the charges on ions\n      zc(jc_h)   = 1\n      zc(jc_nh4) = 1\n      zc(jc_na)  = 1\n      zc(jc_ca)  = 2\n\n      za(ja_hso4)= 1\n      za(ja_so4) = 2\n      za(ja_no3) = 1\n      za(ja_cl)  = 1\n      za(ja_msa) = 1\n\n\n! densities of pure electrolytes in g/cc\n      dens_electrolyte(jnh4so4)  = 1.8\n      dens_electrolyte(jlvcite)  = 1.8\n      dens_electrolyte(jnh4hso4) = 1.8\n      dens_electrolyte(jnh4msa)  = 1.8 ! assumed same as nh4hso4\n      dens_electrolyte(jnh4no3)  = 1.8\n      dens_electrolyte(jnh4cl)   = 1.8\n      dens_electrolyte(jnacl)    = 2.2\n      dens_electrolyte(jnano3)   = 2.2\n      dens_electrolyte(jna2so4)  = 2.2\n      dens_electrolyte(jna3hso4) = 2.2\n      dens_electrolyte(jnahso4)  = 2.2\n      dens_electrolyte(jnamsa)   = 2.2 ! assumed same as nahso4\n      dens_electrolyte(jcaso4)   = 2.6\n      dens_electrolyte(jcamsa2)  = 2.6\t! assumed same as caso4\n      dens_electrolyte(jcano3)   = 2.6\n      dens_electrolyte(jcacl2)   = 2.6\n      dens_electrolyte(jcaco3)   = 2.6\n      dens_electrolyte(jh2so4)   = 1.8\n      dens_electrolyte(jhhso4)   = 1.8\n      dens_electrolyte(jhno3)    = 1.8\n      dens_electrolyte(jhcl)     = 1.8\n      dens_electrolyte(jmsa)     = 1.8 ! assumed same as h2so4\n\n\n! densities of compounds in g/cc\n      dens_comp_a(jnh4so4)  = 1.8\n      dens_comp_a(jlvcite)  = 1.8\n      dens_comp_a(jnh4hso4) = 1.8\n      dens_comp_a(jnh4msa)  = 1.8\t! assumed same as nh4hso4\n      dens_comp_a(jnh4no3)  = 1.7\n      dens_comp_a(jnh4cl)   = 1.5\n      dens_comp_a(jnacl)    = 2.2\n      dens_comp_a(jnano3)   = 2.2\n      dens_comp_a(jna2so4)  = 2.2\n      dens_comp_a(jna3hso4) = 2.2\n      dens_comp_a(jnahso4)  = 2.2\n      dens_comp_a(jnamsa)   = 2.2\t! assumed same as nahso4\n      dens_comp_a(jcaso4)   = 2.6\n      dens_comp_a(jcamsa2)  = 2.6\t! assumed same as caso4\n      dens_comp_a(jcano3)   = 2.6\n      dens_comp_a(jcacl2)   = 2.6\n      dens_comp_a(jcaco3)   = 2.6\n      dens_comp_a(jh2so4)   = 1.8\n      dens_comp_a(jhhso4)   = 1.8\n      dens_comp_a(jhno3)    = 1.8\n      dens_comp_a(jhcl)     = 1.8\n      dens_comp_a(jmsa)     = 1.8\t! assumed same as h2so4\n      dens_comp_a(joc)      = 1.0\n      dens_comp_a(jbc)      = 1.8\n      dens_comp_a(join)     = 2.6\n      dens_comp_a(jh2o)     = 1.0\n      dens_comp_a(ipcg1_b_c_a) =1.0\n      dens_comp_a(ipcg2_b_c_a) =1.0\n      dens_comp_a(ipcg3_b_c_a)=1.0\n      dens_comp_a(ipcg4_b_c_a)=1.0\n      dens_comp_a(ipcg5_b_c_a)=1.0\n      dens_comp_a(ipcg6_b_c_a)=1.0\n      dens_comp_a(ipcg7_b_c_a)=1.0\n      dens_comp_a(ipcg8_b_c_a)=1.0\n      dens_comp_a(ipcg9_b_c_a)=1.0\n      dens_comp_a(iopcg1_b_c_a)=1.0\n      dens_comp_a(iopcg2_b_c_a)=1.0\n      dens_comp_a(iopcg3_b_c_a)=1.0\n      dens_comp_a(iopcg4_b_c_a)=1.0\n      dens_comp_a(iopcg5_b_c_a)=1.0\n      dens_comp_a(iopcg6_b_c_a)=1.0\n      dens_comp_a(iopcg7_b_c_a)=1.0\n      dens_comp_a(iopcg8_b_c_a)=1.0\n      dens_comp_a(ipcg1_b_o_a)=1.0\n      dens_comp_a(ipcg2_b_o_a)=1.0\n      dens_comp_a(ipcg3_b_o_a)=1.0\n      dens_comp_a(ipcg4_b_o_a)=1.0\n      dens_comp_a(ipcg5_b_o_a)=1.0\n      dens_comp_a(ipcg6_b_o_a)=1.0\n      dens_comp_a(ipcg7_b_o_a)=1.0\n      dens_comp_a(ipcg8_b_o_a)=1.0\n      dens_comp_a(ipcg9_b_o_a)=1.0\n      dens_comp_a(iopcg1_b_o_a)=1.0\n      dens_comp_a(iopcg2_b_o_a)=1.0\n      dens_comp_a(iopcg3_b_o_a)=1.0\n      dens_comp_a(iopcg4_b_o_a)=1.0\n      dens_comp_a(iopcg5_b_o_a)=1.0\n      dens_comp_a(iopcg6_b_o_a)=1.0\n      dens_comp_a(iopcg7_b_o_a)=1.0\n      dens_comp_a(iopcg8_b_o_a)=1.0\n      dens_comp_a(ipcg1_f_c_a) =1.0\n      dens_comp_a(ipcg2_f_c_a) =1.0\n      dens_comp_a(ipcg3_f_c_a)=1.0\n      dens_comp_a(ipcg4_f_c_a)=1.0\n      dens_comp_a(ipcg5_f_c_a)=1.0\n      dens_comp_a(ipcg6_f_c_a)=1.0\n      dens_comp_a(ipcg7_f_c_a)=1.0\n      dens_comp_a(ipcg8_f_c_a)=1.0\n      dens_comp_a(ipcg9_f_c_a)=1.0\n      dens_comp_a(iopcg1_f_c_a)=1.0\n      dens_comp_a(iopcg2_f_c_a)=1.0\n      dens_comp_a(iopcg3_f_c_a)=1.0\n      dens_comp_a(iopcg4_f_c_a)=1.0\n      dens_comp_a(iopcg5_f_c_a)=1.0\n      dens_comp_a(iopcg6_f_c_a)=1.0\n      dens_comp_a(iopcg7_f_c_a)=1.0\n      dens_comp_a(iopcg8_f_c_a)=1.0\n      dens_comp_a(ipcg1_f_o_a)=1.0\n      dens_comp_a(ipcg2_f_o_a)=1.0\n      dens_comp_a(ipcg3_f_o_a)=1.0\n      dens_comp_a(ipcg4_f_o_a)=1.0\n      dens_comp_a(ipcg5_f_o_a)=1.0\n      dens_comp_a(ipcg6_f_o_a)=1.0\n      dens_comp_a(ipcg7_f_o_a)=1.0\n      dens_comp_a(ipcg8_f_o_a)=1.0\n      dens_comp_a(ipcg9_f_o_a)=1.0\n      dens_comp_a(iopcg1_f_o_a)=1.0\n      dens_comp_a(iopcg2_f_o_a)=1.0\n      dens_comp_a(iopcg3_f_o_a)=1.0\n      dens_comp_a(iopcg4_f_o_a)=1.0\n      dens_comp_a(iopcg5_f_o_a)=1.0\n      dens_comp_a(iopcg6_f_o_a)=1.0\n      dens_comp_a(iopcg7_f_o_a)=1.0\n      dens_comp_a(iopcg8_f_o_a)=1.0\n      dens_comp_a(ismpa_a)=1.0\n      dens_comp_a(ismpbb_a)=1.0\n      dens_comp_a(iglysoa_r1_a)=1.0\n      dens_comp_a(iglysoa_r2_a)=1.0\n      dens_comp_a(iglysoa_sfc_a)=1.0\n      dens_comp_a(iglysoa_nh4_a)=1.0\n      dens_comp_a(iglysoa_oh_a)=1.0\n      dens_comp_a(iant1_c_a)=1.0\n      dens_comp_a(iant2_c_a)=1.0\n      dens_comp_a(iant3_c_a)=1.0\n      dens_comp_a(iant4_c_a)=1.0\n      dens_comp_a(iant1_o_a)=1.0\n      dens_comp_a(iant2_o_a)=1.0\n      dens_comp_a(iant3_o_a)=1.0\n      dens_comp_a(iant4_o_a)=1.0\n      dens_comp_a(ibiog1_c_a)=1.0\n      dens_comp_a(ibiog2_c_a)=1.0\n      dens_comp_a(ibiog3_c_a)=1.0\n      dens_comp_a(ibiog4_c_a)=1.0\n      dens_comp_a(ibiog1_o_a)=1.0\n      dens_comp_a(ibiog2_o_a)=1.0\n      dens_comp_a(ibiog3_o_a)=1.0\n      dens_comp_a(ibiog4_o_a)=1.0\n      dens_comp_a(iasoaX_a)=1.5\n      dens_comp_a(iasoa1_a)=1.5\n      dens_comp_a(iasoa2_a)=1.5\n      dens_comp_a(iasoa3_a)=1.5\n      dens_comp_a(iasoa4_a)=1.5\n      dens_comp_a(ibsoaX_a)=1.5\n      dens_comp_a(ibsoa1_a)=1.5\n      dens_comp_a(ibsoa2_a)=1.5\n      dens_comp_a(ibsoa3_a)=1.5\n      dens_comp_a(ibsoa4_a)=1.5\n\n! molecular weights of generic aerosol species\n      mw_aer_mac(iso4_a) = 96.0\n      mw_aer_mac(ino3_a) = 62.0\n      mw_aer_mac(icl_a)  = 35.5\n      mw_aer_mac(imsa_a) = 95.0 ! ch3so3\n      mw_aer_mac(ico3_a) = 60.0\n      mw_aer_mac(inh4_a) = 18.0\n      mw_aer_mac(ina_a)  = 23.0\n      mw_aer_mac(ica_a)  = 40.0\n      mw_aer_mac(ioin_a) = 1.0          ! not used\n      mw_aer_mac(ibc_a)  = 1.0          ! not used\n      mw_aer_mac(ioc_a)  = 250.0  ! 200 assumed for primary organics\n      mw_aer_mac(ipcg1_b_c_a) =250.0\n      mw_aer_mac(ipcg2_b_c_a) =250.0\n      mw_aer_mac(ipcg3_b_c_a)=250.0\n      mw_aer_mac(ipcg4_b_c_a)=250.0\n      mw_aer_mac(ipcg5_b_c_a)=250.0\n      mw_aer_mac(ipcg6_b_c_a)=250.0\n      mw_aer_mac(ipcg7_b_c_a)=250.0\n      mw_aer_mac(ipcg8_b_c_a)=250.0\n      mw_aer_mac(ipcg9_b_c_a)=250.0\n      mw_aer_mac(iopcg1_b_c_a)=250.0\n      mw_aer_mac(iopcg2_b_c_a)=250.0\n      mw_aer_mac(iopcg3_b_c_a)=250.0\n      mw_aer_mac(iopcg4_b_c_a)=250.0\n      mw_aer_mac(iopcg5_b_c_a)=250.0\n      mw_aer_mac(iopcg6_b_c_a)=250.0\n      mw_aer_mac(iopcg7_b_c_a)=250.0\n      mw_aer_mac(iopcg8_b_c_a)=250.0\n      mw_aer_mac(ipcg1_b_o_a)=250.0\n      mw_aer_mac(ipcg2_b_o_a)=250.0\n      mw_aer_mac(ipcg3_b_o_a)=250.0\n      mw_aer_mac(ipcg4_b_o_a)=250.0\n      mw_aer_mac(ipcg5_b_o_a)=250.0\n      mw_aer_mac(ipcg6_b_o_a)=250.0\n      mw_aer_mac(ipcg7_b_o_a)=250.0\n      mw_aer_mac(ipcg8_b_o_a)=250.0\n      mw_aer_mac(ipcg9_b_o_a)=250.0\n      mw_aer_mac(iopcg1_b_o_a)=250.0\n      mw_aer_mac(iopcg2_b_o_a)=250.0\n      mw_aer_mac(iopcg3_b_o_a)=250.0\n      mw_aer_mac(iopcg4_b_o_a)=250.0\n      mw_aer_mac(iopcg5_b_o_a)=250.0\n      mw_aer_mac(iopcg6_b_o_a)=250.0\n      mw_aer_mac(iopcg7_b_o_a)=250.0\n      mw_aer_mac(iopcg8_b_o_a)=250.0\n      mw_aer_mac(ipcg1_f_c_a) =250.0\n      mw_aer_mac(ipcg2_f_c_a) =250.0\n      mw_aer_mac(ipcg3_f_c_a)=250.0\n      mw_aer_mac(ipcg4_f_c_a)=250.0\n      mw_aer_mac(ipcg5_f_c_a)=250.0\n      mw_aer_mac(ipcg6_f_c_a)=250.0\n      mw_aer_mac(ipcg7_f_c_a)=250.0\n      mw_aer_mac(ipcg8_f_c_a)=250.0\n      mw_aer_mac(ipcg9_f_c_a)=250.0\n      mw_aer_mac(iopcg1_f_c_a)=250.0\n      mw_aer_mac(iopcg2_f_c_a)=250.0\n      mw_aer_mac(iopcg3_f_c_a)=250.0\n      mw_aer_mac(iopcg4_f_c_a)=250.0\n      mw_aer_mac(iopcg5_f_c_a)=250.0\n      mw_aer_mac(iopcg6_f_c_a)=250.0\n      mw_aer_mac(iopcg7_f_c_a)=250.0\n      mw_aer_mac(iopcg8_f_c_a)=250.0\n      mw_aer_mac(ipcg1_f_o_a)=250.0\n      mw_aer_mac(ipcg2_f_o_a)=250.0\n      mw_aer_mac(ipcg3_f_o_a)=250.0\n      mw_aer_mac(ipcg4_f_o_a)=250.0\n      mw_aer_mac(ipcg5_f_o_a)=250.0\n      mw_aer_mac(ipcg6_f_o_a)=250.0\n      mw_aer_mac(ipcg7_f_o_a)=250.0\n      mw_aer_mac(ipcg8_f_o_a)=250.0\n      mw_aer_mac(ipcg9_f_o_a)=250.0\n      mw_aer_mac(iopcg1_f_o_a)=250.0\n      mw_aer_mac(iopcg2_f_o_a)=250.0\n      mw_aer_mac(iopcg3_f_o_a)=250.0\n      mw_aer_mac(iopcg4_f_o_a)=250.0\n      mw_aer_mac(iopcg5_f_o_a)=250.0\n      mw_aer_mac(iopcg6_f_o_a)=250.0\n      mw_aer_mac(iopcg7_f_o_a)=250.0\n      mw_aer_mac(iopcg8_f_o_a)=250.0\n      mw_aer_mac(ismpa_a) = 250.0\n      mw_aer_mac(ismpbb_a) = 250.0\n      mw_aer_mac(iglysoa_r1_a) = 250.0\n      mw_aer_mac(iglysoa_r2_a) = 250.0\n      mw_aer_mac(iglysoa_sfc_a) = 250.0\n      mw_aer_mac(iglysoa_nh4_a) = 250.0\n      mw_aer_mac(iglysoa_oh_a) = 250.0\n      mw_aer_mac(iant1_c_a) = 250.0\n      mw_aer_mac(iant2_c_a) = 250.0\n      mw_aer_mac(iant3_c_a) = 250.0\n      mw_aer_mac(iant4_c_a) = 250.0\n      mw_aer_mac(iant1_o_a) = 250.0\n      mw_aer_mac(iant2_o_a) = 250.0\n      mw_aer_mac(iant3_o_a) = 250.0\n      mw_aer_mac(iant4_o_a) = 250.0\n      mw_aer_mac(ibiog1_c_a) = 250.0\n      mw_aer_mac(ibiog2_c_a) = 250.0\n      mw_aer_mac(ibiog3_c_a) = 250.0\n      mw_aer_mac(ibiog4_c_a) = 250.0\n      mw_aer_mac(ibiog1_o_a) = 250.0\n      mw_aer_mac(ibiog2_o_a) = 250.0\n      mw_aer_mac(ibiog3_o_a) = 250.0\n      mw_aer_mac(ibiog4_o_a) = 250.0\n      mw_aer_mac(iasoaX_a) = 250.0\n      mw_aer_mac(iasoa1_a) = 250.0\n      mw_aer_mac(iasoa2_a) = 250.0\n      mw_aer_mac(iasoa3_a) = 250.0\n      mw_aer_mac(iasoa4_a) = 250.0\n      mw_aer_mac(ibsoaX_a) = 250.0\n      mw_aer_mac(ibsoa1_a) = 250.0\n      mw_aer_mac(ibsoa2_a) = 250.0\n      mw_aer_mac(ibsoa3_a) = 250.0\n      mw_aer_mac(ibsoa4_a) = 250.0\n\n\n! molecular weights of compounds\n      mw_comp_a(jnh4so4) = 132.0\n      mw_comp_a(jlvcite) = 247.0\n      mw_comp_a(jnh4hso4)= 115.0\n      mw_comp_a(jnh4msa) = 113.0\n      mw_comp_a(jnh4no3) = 80.0\n      mw_comp_a(jnh4cl)  = 53.5\n      mw_comp_a(jnacl)   = 58.5\n      mw_comp_a(jnano3)  = 85.0\n      mw_comp_a(jna2so4) = 142.0\n      mw_comp_a(jna3hso4)= 262.0\n      mw_comp_a(jnahso4) = 120.0\n      mw_comp_a(jnamsa)  = 118.0\n      mw_comp_a(jcaso4)  = 136.0\n      mw_comp_a(jcamsa2) = 230.0\n      mw_comp_a(jcano3)  = 164.0\n      mw_comp_a(jcacl2)  = 111.0\n      mw_comp_a(jcaco3)  = 100.0\n      mw_comp_a(jh2so4)  = 98.0\n      mw_comp_a(jhhso4)  = 98.0\n      mw_comp_a(jhno3)   = 63.0\n      mw_comp_a(jhcl)    = 36.5\n      mw_comp_a(jmsa)    = 96.0\n      mw_comp_a(joc)\t = 250.0\n      mw_comp_a(jbc)\t = 1.0\n      mw_comp_a(join)    = 1.0\n      mw_comp_a(jh2o)    = 18.0\n      mw_comp_a(jpcg1_b_c) =250.0\n      mw_comp_a(jpcg2_b_c) =250.0\n      mw_comp_a(jpcg3_b_c)=250.0\n      mw_comp_a(jpcg4_b_c)=250.0\n      mw_comp_a(jpcg5_b_c)=250.0\n      mw_comp_a(jpcg6_b_c)=250.0\n      mw_comp_a(jpcg7_b_c)=250.0\n      mw_comp_a(jpcg8_b_c)=250.0\n      mw_comp_a(jpcg9_b_c)=250.0\n      mw_comp_a(jopcg1_b_c)=250.0\n      mw_comp_a(jopcg2_b_c)=250.0\n      mw_comp_a(jopcg3_b_c)=250.0\n      mw_comp_a(jopcg4_b_c)=250.0\n      mw_comp_a(jopcg5_b_c)=250.0\n      mw_comp_a(jopcg6_b_c)=250.0\n      mw_comp_a(jopcg7_b_c)=250.0\n      mw_comp_a(jopcg8_b_c)=250.0\n      mw_comp_a(jpcg1_b_o)=250.0\n      mw_comp_a(jpcg2_b_o)=250.0\n      mw_comp_a(jpcg3_b_o)=250.0\n      mw_comp_a(jpcg4_b_o)=250.0\n      mw_comp_a(jpcg5_b_o)=250.0\n      mw_comp_a(jpcg6_b_o)=250.0\n      mw_comp_a(jpcg7_b_o)=250.0\n      mw_comp_a(jpcg8_b_o)=250.0\n      mw_comp_a(jpcg9_b_o)=250.0\n      mw_comp_a(jopcg1_b_o)=250.0\n      mw_comp_a(jopcg2_b_o)=250.0\n      mw_comp_a(jopcg3_b_o)=250.0\n      mw_comp_a(jopcg4_b_o)=250.0\n      mw_comp_a(jopcg5_b_o)=250.0\n      mw_comp_a(jopcg6_b_o)=250.0\n      mw_comp_a(jopcg7_b_o)=250.0\n      mw_comp_a(jopcg8_b_o)=250.0\n      mw_comp_a(jpcg1_f_c) =250.0\n      mw_comp_a(jpcg2_f_c) =250.0\n      mw_comp_a(jpcg3_f_c)=250.0\n      mw_comp_a(jpcg4_f_c)=250.0\n      mw_comp_a(jpcg5_f_c)=250.0\n      mw_comp_a(jpcg6_f_c)=250.0\n      mw_comp_a(jpcg7_f_c)=250.0\n      mw_comp_a(jpcg8_f_c)=250.0\n      mw_comp_a(jpcg9_f_c)=250.0\n      mw_comp_a(jopcg1_f_c)=250.0\n      mw_comp_a(jopcg2_f_c)=250.0\n      mw_comp_a(jopcg3_f_c)=250.0\n      mw_comp_a(jopcg4_f_c)=250.0\n      mw_comp_a(jopcg5_f_c)=250.0\n      mw_comp_a(jopcg6_f_c)=250.0\n      mw_comp_a(jopcg7_f_c)=250.0\n      mw_comp_a(jopcg8_f_c)=250.0\n      mw_comp_a(jpcg1_f_o)=250.0\n      mw_comp_a(jpcg2_f_o)=250.0\n      mw_comp_a(jpcg3_f_o)=250.0\n      mw_comp_a(jpcg4_f_o)=250.0\n      mw_comp_a(jpcg5_f_o)=250.0\n      mw_comp_a(jpcg6_f_o)=250.0\n      mw_comp_a(jpcg7_f_o)=250.0\n      mw_comp_a(jpcg8_f_o)=250.0\n      mw_comp_a(jpcg9_f_o)=250.0\n      mw_comp_a(jopcg1_f_o)=250.0\n      mw_comp_a(jopcg2_f_o)=250.0\n      mw_comp_a(jopcg3_f_o)=250.0\n      mw_comp_a(jopcg4_f_o)=250.0\n      mw_comp_a(jopcg5_f_o)=250.0\n      mw_comp_a(jopcg6_f_o)=250.0\n      mw_comp_a(jopcg7_f_o)=250.0\n      mw_comp_a(jopcg8_f_o)=250.0\n      mw_comp_a(jsmpa)=250.0\n      mw_comp_a(jsmpbb)=250.0\n      mw_comp_a(jglysoa_r1)=250.0\n      mw_comp_a(jglysoa_r2)=250.0\n      mw_comp_a(jglysoa_sfc)=250.0\n      mw_comp_a(jglysoa_nh4)=250.0\n      mw_comp_a(jglysoa_oh)=250.0\n      mw_comp_a(jant1_c)=250.0\n      mw_comp_a(jant2_c)=250.0\n      mw_comp_a(jant3_c)=250.0\n      mw_comp_a(jant4_c)=250.0\n      mw_comp_a(jant1_o)=250.0\n      mw_comp_a(jant2_o)=250.0\n      mw_comp_a(jant3_o)=250.0\n      mw_comp_a(jant4_o)=250.0\n      mw_comp_a(jbiog1_c)=250.0\n      mw_comp_a(jbiog2_c)=250.0\n      mw_comp_a(jbiog3_c)=250.0\n      mw_comp_a(jbiog4_c)=250.0\n      mw_comp_a(jbiog1_o)=250.0\n      mw_comp_a(jbiog2_o)=250.0\n      mw_comp_a(jbiog3_o)=250.0\n      mw_comp_a(jbiog4_o)=250.0\n      mw_comp_a(jasoaX)=250.0\n      mw_comp_a(jasoa1)=250.0\n      mw_comp_a(jasoa2)=250.0\n      mw_comp_a(jasoa3)=250.0\n      mw_comp_a(jasoa4)=250.0\n      mw_comp_a(jbsoaX)=250.0\n      mw_comp_a(jbsoa1)=250.0\n      mw_comp_a(jbsoa2)=250.0\n      mw_comp_a(jbsoa3)=250.0\n      mw_comp_a(jbsoa4)=250.0\n\n! densities of generic aerosol species\n      dens_aer_mac(iso4_a) = 1.8\t! used\n      dens_aer_mac(ino3_a) = 1.8\t! used\n      dens_aer_mac(icl_a)  = 2.2\t! used\n      dens_aer_mac(imsa_a) = 1.8\t! used\n      dens_aer_mac(ico3_a) = 2.6\t! used\n      dens_aer_mac(inh4_a) = 1.8\t! used\n      dens_aer_mac(ina_a)  = 2.2\t! used\n      dens_aer_mac(ica_a)  = 2.6\t! used\n      dens_aer_mac(ioin_a) = 2.6\t! used\n      dens_aer_mac(ioc_a)  = 1.0\t! used\n      dens_aer_mac(ibc_a)  = 1.7\t! used\n      dens_aer_mac(ipcg1_b_c_a) =1.0\n      dens_aer_mac(ipcg2_b_c_a) =1.0\n      dens_aer_mac(ipcg3_b_c_a)=1.0\n      dens_aer_mac(ipcg4_b_c_a)=1.0\n      dens_aer_mac(ipcg5_b_c_a)=1.0\n      dens_aer_mac(ipcg6_b_c_a)=1.0\n      dens_aer_mac(ipcg7_b_c_a)=1.0\n      dens_aer_mac(ipcg8_b_c_a)=1.0\n      dens_aer_mac(ipcg9_b_c_a)=1.0\n      dens_aer_mac(iopcg1_b_c_a)=1.0\n      dens_aer_mac(iopcg2_b_c_a)=1.0\n      dens_aer_mac(iopcg3_b_c_a)=1.0\n      dens_aer_mac(iopcg4_b_c_a)=1.0\n      dens_aer_mac(iopcg5_b_c_a)=1.0\n      dens_aer_mac(iopcg6_b_c_a)=1.0\n      dens_aer_mac(iopcg7_b_c_a)=1.0\n      dens_aer_mac(iopcg8_b_c_a)=1.0\n      dens_aer_mac(ipcg1_b_o_a)=1.0\n      dens_aer_mac(ipcg2_b_o_a)=1.0\n      dens_aer_mac(ipcg3_b_o_a)=1.0\n      dens_aer_mac(ipcg4_b_o_a)=1.0\n      dens_aer_mac(ipcg5_b_o_a)=1.0\n      dens_aer_mac(ipcg6_b_o_a)=1.0\n      dens_aer_mac(ipcg7_b_o_a)=1.0\n      dens_aer_mac(ipcg8_b_o_a)=1.0\n      dens_aer_mac(ipcg9_b_o_a)=1.0\n      dens_aer_mac(iopcg1_b_o_a)=1.0\n      dens_aer_mac(iopcg2_b_o_a)=1.0\n      dens_aer_mac(iopcg3_b_o_a)=1.0\n      dens_aer_mac(iopcg4_b_o_a)=1.0\n      dens_aer_mac(iopcg5_b_o_a)=1.0\n      dens_aer_mac(iopcg6_b_o_a)=1.0\n      dens_aer_mac(iopcg7_b_o_a)=1.0\n      dens_aer_mac(iopcg8_b_o_a)=1.0\n      dens_aer_mac(ipcg1_f_c_a) =1.0\n      dens_aer_mac(ipcg2_f_c_a) =1.0\n      dens_aer_mac(ipcg3_f_c_a)=1.0\n      dens_aer_mac(ipcg4_f_c_a)=1.0\n      dens_aer_mac(ipcg5_f_c_a)=1.0\n      dens_aer_mac(ipcg6_f_c_a)=1.0\n      dens_aer_mac(ipcg7_f_c_a)=1.0\n      dens_aer_mac(ipcg8_f_c_a)=1.0\n      dens_aer_mac(ipcg9_f_c_a)=1.0\n      dens_aer_mac(iopcg1_f_c_a)=1.0\n      dens_aer_mac(iopcg2_f_c_a)=1.0\n      dens_aer_mac(iopcg3_f_c_a)=1.0\n      dens_aer_mac(iopcg4_f_c_a)=1.0\n      dens_aer_mac(iopcg5_f_c_a)=1.0\n      dens_aer_mac(iopcg6_f_c_a)=1.0\n      dens_aer_mac(iopcg7_f_c_a)=1.0\n      dens_aer_mac(iopcg8_f_c_a)=1.0\n      dens_aer_mac(ipcg1_f_o_a)=1.0\n      dens_aer_mac(ipcg2_f_o_a)=1.0\n      dens_aer_mac(ipcg3_f_o_a)=1.0\n      dens_aer_mac(ipcg4_f_o_a)=1.0\n      dens_aer_mac(ipcg5_f_o_a)=1.0\n      dens_aer_mac(ipcg6_f_o_a)=1.0\n      dens_aer_mac(ipcg7_f_o_a)=1.0\n      dens_aer_mac(ipcg8_f_o_a)=1.0\n      dens_aer_mac(ipcg9_f_o_a)=1.0\n      dens_aer_mac(iopcg1_f_o_a)=1.0\n      dens_aer_mac(iopcg2_f_o_a)=1.0\n      dens_aer_mac(iopcg3_f_o_a)=1.0\n      dens_aer_mac(iopcg4_f_o_a)=1.0\n      dens_aer_mac(iopcg5_f_o_a)=1.0\n      dens_aer_mac(iopcg6_f_o_a)=1.0\n      dens_aer_mac(iopcg7_f_o_a)=1.0\n      dens_aer_mac(iopcg8_f_o_a)=1.0\n      dens_aer_mac(ismpa_a)=1.0\n      dens_aer_mac(ismpbb_a)=1.0\n      dens_aer_mac(iglysoa_r1_a)=1.0\n      dens_aer_mac(iglysoa_r2_a)=1.0\n      dens_aer_mac(iglysoa_sfc_a)=1.0\n      dens_aer_mac(iglysoa_nh4_a)=1.0\n      dens_aer_mac(iglysoa_oh_a)=1.0\n      dens_aer_mac(iant1_c_a)=1.0\n      dens_aer_mac(iant2_c_a)=1.0\n      dens_aer_mac(iant3_c_a)=1.0\n      dens_aer_mac(iant4_c_a)=1.0\n      dens_aer_mac(iant1_o_a)=1.0\n      dens_aer_mac(iant2_o_a)=1.0\n      dens_aer_mac(iant3_o_a)=1.0\n      dens_aer_mac(iant4_o_a)=1.0\n      dens_aer_mac(ibiog1_c_a)=1.0\n      dens_aer_mac(ibiog2_c_a)=1.0\n      dens_aer_mac(ibiog3_c_a)=1.0\n      dens_aer_mac(ibiog4_c_a)=1.0\n      dens_aer_mac(ibiog1_o_a)=1.0\n      dens_aer_mac(ibiog2_o_a)=1.0\n      dens_aer_mac(ibiog3_o_a)=1.0\n      dens_aer_mac(ibiog4_o_a)=1.0\n      dens_aer_mac(iasoaX_a)=1.5\n      dens_aer_mac(iasoa1_a)=1.5\n      dens_aer_mac(iasoa2_a)=1.5\n      dens_aer_mac(iasoa3_a)=1.5\n      dens_aer_mac(iasoa4_a)=1.5\n      dens_aer_mac(ibsoaX_a)=1.5\n      dens_aer_mac(ibsoa1_a)=1.5\n      dens_aer_mac(ibsoa2_a)=1.5\n      dens_aer_mac(ibsoa3_a)=1.5\n      dens_aer_mac(ibsoa4_a)=1.5\n\n! partial molar volumes of condensing species\n      partial_molar_vol(ih2so4_g) = 51.83\n      partial_molar_vol(ihno3_g)  = 31.45\n      partial_molar_vol(ihcl_g)   = 20.96\n      partial_molar_vol(inh3_g)   = 24.03\n      partial_molar_vol(imsa_g)   = 53.33\n      partial_molar_vol(ipcg1_b_c_g) =250.0\n      partial_molar_vol(ipcg2_b_c_g) =250.0\n      partial_molar_vol(ipcg3_b_c_g)=250.0\n      partial_molar_vol(ipcg4_b_c_g)=250.0\n      partial_molar_vol(ipcg5_b_c_g)=250.0\n      partial_molar_vol(ipcg6_b_c_g)=250.0\n      partial_molar_vol(ipcg7_b_c_g)=250.0\n      partial_molar_vol(ipcg8_b_c_g)=250.0\n      partial_molar_vol(ipcg9_b_c_g)=250.0\n      partial_molar_vol(iopcg1_b_c_g)=250.0\n      partial_molar_vol(iopcg2_b_c_g)=250.0\n      partial_molar_vol(iopcg3_b_c_g)=250.0\n      partial_molar_vol(iopcg4_b_c_g)=250.0\n      partial_molar_vol(iopcg5_b_c_g)=250.0\n      partial_molar_vol(iopcg6_b_c_g)=250.0\n      partial_molar_vol(iopcg7_b_c_g)=250.0\n      partial_molar_vol(iopcg8_b_c_g)=250.0\n      partial_molar_vol(ipcg1_b_o_g)=250.0\n      partial_molar_vol(ipcg2_b_o_g)=250.0\n      partial_molar_vol(ipcg3_b_o_g)=250.0\n      partial_molar_vol(ipcg4_b_o_g)=250.0\n      partial_molar_vol(ipcg5_b_o_g)=250.0\n      partial_molar_vol(ipcg6_b_o_g)=250.0\n      partial_molar_vol(ipcg7_b_o_g)=250.0\n      partial_molar_vol(ipcg8_b_o_g)=250.0\n      partial_molar_vol(ipcg9_b_o_g)=250.0\n      partial_molar_vol(iopcg1_b_o_g)=250.0\n      partial_molar_vol(iopcg2_b_o_g)=250.0\n      partial_molar_vol(iopcg3_b_o_g)=250.0\n      partial_molar_vol(iopcg4_b_o_g)=250.0\n      partial_molar_vol(iopcg5_b_o_g)=250.0\n      partial_molar_vol(iopcg6_b_o_g)=250.0\n      partial_molar_vol(iopcg7_b_o_g)=250.0\n      partial_molar_vol(iopcg8_b_o_g)=250.0\n      partial_molar_vol(ipcg1_f_c_g) =250.0\n      partial_molar_vol(ipcg2_f_c_g) =250.0\n      partial_molar_vol(ipcg3_f_c_g)=250.0\n      partial_molar_vol(ipcg4_f_c_g)=250.0\n      partial_molar_vol(ipcg5_f_c_g)=250.0\n      partial_molar_vol(ipcg6_f_c_g)=250.0\n      partial_molar_vol(ipcg7_f_c_g)=250.0\n      partial_molar_vol(ipcg8_f_c_g)=250.0\n      partial_molar_vol(ipcg9_f_c_g)=250.0\n      partial_molar_vol(iopcg1_f_c_g)=250.0\n      partial_molar_vol(iopcg2_f_c_g)=250.0\n      partial_molar_vol(iopcg3_f_c_g)=250.0\n      partial_molar_vol(iopcg4_f_c_g)=250.0\n      partial_molar_vol(iopcg5_f_c_g)=250.0\n      partial_molar_vol(iopcg6_f_c_g)=250.0\n      partial_molar_vol(iopcg7_f_c_g)=250.0\n      partial_molar_vol(iopcg8_f_c_g)=250.0\n      partial_molar_vol(ipcg1_f_o_g)=250.0\n      partial_molar_vol(ipcg2_f_o_g)=250.0\n      partial_molar_vol(ipcg3_f_o_g)=250.0\n      partial_molar_vol(ipcg4_f_o_g)=250.0\n      partial_molar_vol(ipcg5_f_o_g)=250.0\n      partial_molar_vol(ipcg6_f_o_g)=250.0\n      partial_molar_vol(ipcg7_f_o_g)=250.0\n      partial_molar_vol(ipcg8_f_o_g)=250.0\n      partial_molar_vol(ipcg9_f_o_g)=250.0\n      partial_molar_vol(iopcg1_f_o_g)=250.0\n      partial_molar_vol(iopcg2_f_o_g)=250.0\n      partial_molar_vol(iopcg3_f_o_g)=250.0\n      partial_molar_vol(iopcg4_f_o_g)=250.0\n      partial_molar_vol(iopcg5_f_o_g)=250.0\n      partial_molar_vol(iopcg6_f_o_g)=250.0\n      partial_molar_vol(iopcg7_f_o_g)=250.0\n      partial_molar_vol(iopcg8_f_o_g)=250.0\n      partial_molar_vol(ismpa_g)=250.0\n      partial_molar_vol(ismpbb_g)=250.0\n      partial_molar_vol(iant1_c_g)=250.0\n      partial_molar_vol(iant2_c_g)=250.0\n      partial_molar_vol(iant3_c_g)=250.0\n      partial_molar_vol(iant4_c_g)=250.0\n      partial_molar_vol(iant1_o_g)=250.0\n      partial_molar_vol(iant2_o_g)=250.0\n      partial_molar_vol(iant3_o_g)=250.0\n      partial_molar_vol(iant4_o_g)=250.0\n      partial_molar_vol(ibiog1_c_g)=250.0\n      partial_molar_vol(ibiog2_c_g)=250.0\n      partial_molar_vol(ibiog3_c_g)=250.0\n      partial_molar_vol(ibiog4_c_g)=250.0\n      partial_molar_vol(ibiog1_o_g)=250.0\n      partial_molar_vol(ibiog2_o_g)=250.0\n      partial_molar_vol(ibiog3_o_g)=250.0\n      partial_molar_vol(ibiog4_o_g)=250.0\n      partial_molar_vol(in2o5_g)  = 200.0\t! assumed...\n      partial_molar_vol(iclno2_g) = 200.0\t! assumed...\n      partial_molar_vol(iasoaX_g)=250.0\n      partial_molar_vol(iasoa1_g)=250.0\n      partial_molar_vol(iasoa2_g)=250.0\n      partial_molar_vol(iasoa3_g)=250.0\n      partial_molar_vol(iasoa4_g)=250.0\n      partial_molar_vol(ibsoaX_g)=250.0\n      partial_molar_vol(ibsoa1_g)=250.0\n      partial_molar_vol(ibsoa2_g)=250.0\n      partial_molar_vol(ibsoa3_g)=250.0\n      partial_molar_vol(ibsoa4_g)=250.0\n      partial_molar_vol(igly)=58.0\n      partial_molar_vol(iho)=17.0\n\n! refractive index\n      ref_index_a(jnh4so4) = cmplx(1.52,0.)\n      ref_index_a(jlvcite) = cmplx(1.50,0.)\n      ref_index_a(jnh4hso4)= cmplx(1.47,0.)\n      ref_index_a(jnh4msa) = cmplx(1.50,0.)\t! assumed\n      ref_index_a(jnh4no3) = cmplx(1.50,0.)\n      ref_index_a(jnh4cl)  = cmplx(1.50,0.)\n      ref_index_a(jnacl)   = cmplx(1.45,0.)\n      ref_index_a(jnano3)  = cmplx(1.50,0.)\n      ref_index_a(jna2so4) = cmplx(1.50,0.)\n      ref_index_a(jna3hso4)= cmplx(1.50,0.)\n      ref_index_a(jnahso4) = cmplx(1.50,0.)\n      ref_index_a(jnamsa)  = cmplx(1.50,0.)\t! assumed\n      ref_index_a(jcaso4)  = cmplx(1.56,0.006)\n      ref_index_a(jcamsa2) = cmplx(1.56,0.006)\t! assumed\n      ref_index_a(jcano3)  = cmplx(1.56,0.006)\n      ref_index_a(jcacl2)  = cmplx(1.52,0.006)\n      ref_index_a(jcaco3)  = cmplx(1.68,0.006)\n      ref_index_a(jh2so4)  = cmplx(1.43,0.)\n      ref_index_a(jhhso4)  = cmplx(1.43,0.)\n      ref_index_a(jhno3)   = cmplx(1.50,0.)\n      ref_index_a(jhcl)    = cmplx(1.50,0.)\n      ref_index_a(jmsa)    = cmplx(1.43,0.)\t! assumed\n      ref_index_a(joc)\t   = cmplx(1.45,0.)\n      ref_index_a(jbc)\t   = cmplx(1.82,0.74)\n      ref_index_a(join)    = cmplx(1.55,0.006)\n      ref_index_a(jh2o)    = cmplx(1.33,0.)\n\n! jsalt_index\n      jsalt_index(jnh4so4) = 5\t\t! as\n      jsalt_index(jlvcite) = 2\t\t! lv\n      jsalt_index(jnh4hso4)= 1\t\t! ab\n      jsalt_index(jnh4no3) = 2\t\t! an\n      jsalt_index(jnh4cl)  = 1\t\t! ac\n      jsalt_index(jna2so4) = 60\t\t! ss\n      jsalt_index(jnahso4) = 10\t\t! sb\n      jsalt_index(jnano3)  = 40\t\t! sn\n      jsalt_index(jnacl)   = 10\t\t! sc\n      jsalt_index(jcano3)  = 120\t! cn\n      jsalt_index(jcacl2)  = 80\t\t! cc\n      jsalt_index(jnh4msa) = 0\t\t! AM\tzero for now\n      jsalt_index(jnamsa)  = 0\t\t! SM\tzero for now\n      jsalt_index(jcamsa2) = 0\t\t! CM\tzero for now\n\n\n! aerosol indices\n!  ac = 1, an = 2, as = 5, sc = 10, sn = 40, ss = 60, cc = 80, cn = 120,\n!  ab = 1, lv = 2, sb = 10\n!\n! sulfate-poor domain\n      jsulf_poor(1)   = \t1\t! \tac\n      jsulf_poor(2)   = \t2\t! \tan\n      jsulf_poor(5)   = \t3\t! \tas\n      jsulf_poor(10)  = \t4\t! \tsc\n      jsulf_poor(40)  = \t5\t! \tsn\n      jsulf_poor(60)  = \t6\t! \tss\n      jsulf_poor(80)  = \t7\t! \tcc\n      jsulf_poor(120) = \t8\t! \tcn\n      jsulf_poor(3)   = \t9\t! \tan + ac\n      jsulf_poor(6)   = \t10\t! \tas + ac\n      jsulf_poor(7)   = \t11\t! \tas + an\n      jsulf_poor(8)   =  \t12\t! \tas + an + ac\n      jsulf_poor(11)  = \t13\t! \tsc + ac\n      jsulf_poor(41)  = \t14\t! \tsn + ac\n      jsulf_poor(42)  = \t15\t! \tsn + an\n      jsulf_poor(43)  = \t16\t! \tsn + an + ac\n      jsulf_poor(50)  = \t17\t! \tsn + sc\n      jsulf_poor(51)  = \t18\t! \tsn + sc + ac\n      jsulf_poor(61)  = \t19\t! \tss + ac\n      jsulf_poor(62)  = \t20\t! \tss + an\n      jsulf_poor(63)  = \t21\t! \tss + an + ac\n      jsulf_poor(65)  = \t22\t! \tss + as\n      jsulf_poor(66)  = \t23\t! \tss + as + ac\n      jsulf_poor(67)  = \t24\t! \tss + as + an\n      jsulf_poor(68)  = \t25\t! \tss + as + an + ac\n      jsulf_poor(70)  = \t26\t! \tss + sc\n      jsulf_poor(71)  = \t27\t! \tss + sc + ac\n      jsulf_poor(100) = \t28\t! \tss + sn\n      jsulf_poor(101) = \t29\t! \tss + sn + ac\n      jsulf_poor(102) = \t30\t! \tss + sn + an\n      jsulf_poor(103) = \t31\t! \tss + sn + an + ac\n      jsulf_poor(110) = \t32\t! \tss + sn + sc\n      jsulf_poor(111) = \t33\t! \tss + sn + sc + ac\n      jsulf_poor(81)  = \t34\t! \tcc + ac\n      jsulf_poor(90)  = \t35\t! \tcc + sc\n      jsulf_poor(91)  = \t36\t! \tcc + sc + ac\n      jsulf_poor(121) = \t37\t! \tcn + ac\n      jsulf_poor(122) = \t38\t! \tcn + an\n      jsulf_poor(123) = \t39\t! \tcn + an + ac\n      jsulf_poor(130) = \t40\t! \tcn + sc\n      jsulf_poor(131) = \t41\t! \tcn + sc + ac\n      jsulf_poor(160) = \t42\t! \tcn + sn\n      jsulf_poor(161) = \t43\t! \tcn + sn + ac\n      jsulf_poor(162) = \t44\t! \tcn + sn + an\n      jsulf_poor(163) = \t45\t! \tcn + sn + an + ac\n      jsulf_poor(170) = \t46\t! \tcn + sn + sc\n      jsulf_poor(171) = \t47\t! \tcn + sn + sc + ac\n      jsulf_poor(200) = \t48\t! \tcn + cc\n      jsulf_poor(201) = \t49\t! \tcn + cc + ac\n      jsulf_poor(210) = \t50\t! \tcn + cc + sc\n      jsulf_poor(211) = \t51\t! \tcn + cc + sc + ac\n!\n! sulfate-rich domain\n      jsulf_rich(1)   = \t52\t! \tab\n      jsulf_rich(2)   = \t53\t! \tlv\n      jsulf_rich(10)  = \t54\t! \tsb\n      jsulf_rich(3)   = \t55\t! \tab + lv\n      jsulf_rich(7)   = \t56\t! \tas + lv\n      jsulf_rich(70)  = \t57\t! \tss + sb\n      jsulf_rich(62)  = \t58\t! \tss + lv\n      jsulf_rich(67)  = \t59\t! \tss + as + lv\n      jsulf_rich(61)  = \t60\t! \tss + ab\n      jsulf_rich(63)  = \t61\t! \tss + lv + ab\n      jsulf_rich(11)  = \t62\t! \tsb + ab\n      jsulf_rich(71)  = \t63\t! \tss + sb + ab\n      jsulf_rich(5)   = \t3\t!\tas\n      jsulf_rich(60)  = \t6\t! \tss\n      jsulf_rich(65)  = \t22\t! \tss + as\n\n\n\n!\n! polynomial coefficients for binary molality (used in zsr equation)\n!\n!\n! a_zsr for aw < 0.97\n!\n! (nh4)2so4\n      je = jnh4so4\n      a_zsr(1,je)  =  1.30894\n      a_zsr(2,je)  = -7.09922\n      a_zsr(3,je)  =  20.62831\n      a_zsr(4,je)  = -32.19965\n      a_zsr(5,je)  =  25.17026\n      a_zsr(6,je)  = -7.81632\n      aw_min(je)   = 0.1\n!\n! (nh4)3h(so4)2\n      je = jlvcite\n      a_zsr(1,je)  =  1.10725\n      a_zsr(2,je)  = -5.17978\n      a_zsr(3,je)  =  12.29534\n      a_zsr(4,je)  = -16.32545\n      a_zsr(5,je)  =  11.29274\n      a_zsr(6,je)  = -3.19164\n      aw_min(je)   = 0.1\n!\n! nh4hso4\n      je = jnh4hso4\n      a_zsr(1,je)  =  1.15510\n      a_zsr(2,je)  = -3.20815\n      a_zsr(3,je)  =  2.71141\n      a_zsr(4,je)  =  2.01155\n      a_zsr(5,je)  = -4.71014\n      a_zsr(6,je)  =  2.04616\n      aw_min(je)   = 0.1\n!\n! nh4msa (assumed same as nh4hso4)\n      je = jnh4msa\n      a_zsr(1,je)  =  1.15510\n      a_zsr(2,je)  = -3.20815\n      a_zsr(3,je)  =  2.71141\n      a_zsr(4,je)  =  2.01155\n      a_zsr(5,je)  = -4.71014\n      a_zsr(6,je)  =  2.04616\n      aw_min(je)   = 0.1\n!\n! nh4no3\n      je = jnh4no3\n      a_zsr(1,je)  =  0.43507\n      a_zsr(2,je)  =  6.38220\n      a_zsr(3,je)  = -30.19797\n      a_zsr(4,je)  =  53.36470\n      a_zsr(5,je)  = -43.44203\n      a_zsr(6,je)  =  13.46158\n      aw_min(je)   = 0.1\n!\n! nh4cl: revised on nov 13, 2003. based on chan and ha (1999) jgr.\n      je = jnh4cl\n      a_zsr(1,je)  =  0.45309\n      a_zsr(2,je)  =  2.65606\n      a_zsr(3,je)  = -14.7730\n      a_zsr(4,je)  =  26.2936\n      a_zsr(5,je)  = -20.5735\n      a_zsr(6,je)  =  5.94255\n      aw_min(je)   = 0.1\n!\n! nacl\n      je = jnacl\n      a_zsr(1,je)  =  0.42922\n      a_zsr(2,je)  = -1.17718\n      a_zsr(3,je)  =  2.80208\n      a_zsr(4,je)  = -4.51097\n      a_zsr(5,je)  =  3.76963\n      a_zsr(6,je)  = -1.31359\n      aw_min(je)   = 0.1\n!\n! nano3\n      je = jnano3\n      a_zsr(1,je)  =  1.34966\n      a_zsr(2,je)  = -5.20116\n      a_zsr(3,je)  =  11.49011\n      a_zsr(4,je)  = -14.41380\n      a_zsr(5,je)  =  9.07037\n      a_zsr(6,je)  = -2.29769\n      aw_min(je)   = 0.1\n!\n! na2so4\n      je = jna2so4\n      a_zsr(1,je)  =  0.39888\n      a_zsr(2,je)  = -1.27150\n      a_zsr(3,je)  =  3.42792\n      a_zsr(4,je)  = -5.92632\n      a_zsr(5,je)  =  5.33351\n      a_zsr(6,je)  = -1.96541\n      aw_min(je)   = 0.1\n!\n! na3h(so4)2  added on 1/14/2004\n      je = jna3hso4\n      a_zsr(1,je)  =  0.31480\n      a_zsr(2,je)  = -1.01087\n      a_zsr(3,je)  =  2.44029\n      a_zsr(4,je)  = -3.66095\n      a_zsr(5,je)  =  2.77632\n      a_zsr(6,je)  = -0.86058\n      aw_min(je)   = 0.1\n!\n! nahso4\n      je = jnahso4\n      a_zsr(1,je)  =  0.62764\n      a_zsr(2,je)  = -1.63520\n      a_zsr(3,je)  =  4.62531\n      a_zsr(4,je)  = -10.06925\n      a_zsr(5,je)  =  10.33547\n      a_zsr(6,je)  = -3.88729\n      aw_min(je)   = 0.1\n!\n! namsa (assumed same as nahso4)\n      je = jnamsa\n      a_zsr(1,je)  =  0.62764\n      a_zsr(2,je)  = -1.63520\n      a_zsr(3,je)  =  4.62531\n      a_zsr(4,je)  = -10.06925\n      a_zsr(5,je)  =  10.33547\n      a_zsr(6,je)  = -3.88729\n      aw_min(je)   = 0.1\n!\n! ca(no3)2\n      je = jcano3\n      a_zsr(1,je)  =  0.38895\n      a_zsr(2,je)  = -1.16013\n      a_zsr(3,je)  =  2.16819\n      a_zsr(4,je)  = -2.23079\n      a_zsr(5,je)  =  1.00268\n      a_zsr(6,je)  = -0.16923\n      aw_min(je)   = 0.1\n!\n! cacl2: kim and seinfeld\n      je = jcacl2\n      a_zsr(1,je)  =  0.29891\n      a_zsr(2,je)  = -1.31104\n      a_zsr(3,je)  =  3.68759\n      a_zsr(4,je)  = -5.81708\n      a_zsr(5,je)  =  4.67520\n      a_zsr(6,je)  = -1.53223\n      aw_min(je)   = 0.1\n!\n! h2so4\n      je = jh2so4\n      a_zsr(1,je) =  0.32751\n      a_zsr(2,je) = -1.00692\n      a_zsr(3,je) =  2.59750\n      a_zsr(4,je) = -4.40014\n      a_zsr(5,je) =  3.88212\n      a_zsr(6,je) = -1.39916\n      aw_min(je)  = 0.1\n!\n! msa (assumed same as h2so4)\n      je = jmsa\n      a_zsr(1,je) =  0.32751\n      a_zsr(2,je) = -1.00692\n      a_zsr(3,je) =  2.59750\n      a_zsr(4,je) = -4.40014\n      a_zsr(5,je) =  3.88212\n      a_zsr(6,je) = -1.39916\n      aw_min(je)  = 0.1\n!\n! hhso4\n      je = jhhso4\n      a_zsr(1,je) =  0.32751\n      a_zsr(2,je) = -1.00692\n      a_zsr(3,je) =  2.59750\n      a_zsr(4,je) = -4.40014\n      a_zsr(5,je) =  3.88212\n      a_zsr(6,je) = -1.39916\n      aw_min(je)  = 1.0\n!\n! hno3\n      je = jhno3\n      a_zsr(1,je) =  0.75876\n      a_zsr(2,je) = -3.31529\n      a_zsr(3,je) =  9.26392\n      a_zsr(4,je) = -14.89799\n      a_zsr(5,je) =  12.08781\n      a_zsr(6,je) = -3.89958\n      aw_min(je)  = 0.1\n!\n! hcl\n      je = jhcl\n      a_zsr(1,je) =  0.31133\n      a_zsr(2,je) = -0.79688\n      a_zsr(3,je) =  1.93995\n      a_zsr(4,je) = -3.31582\n      a_zsr(5,je) =  2.93513\n      a_zsr(6,je) = -1.07268\n      aw_min(je)  = 0.1\n!\n! caso4\n      je = jcaso4\n      a_zsr(1,je)  =  0.0\n      a_zsr(2,je)  =  0.0\n      a_zsr(3,je)  =  0.0\n      a_zsr(4,je)  =  0.0\n      a_zsr(5,je)  =  0.0\n      a_zsr(6,je)  =  0.0\n      aw_min(je)   = 1.0\n!\n! ca(msa)2 (assumed same as ca(no3)2)\n      je = jcamsa2\n      a_zsr(1,je)  =  0.38895\n      a_zsr(2,je)  = -1.16013\n      a_zsr(3,je)  =  2.16819\n      a_zsr(4,je)  = -2.23079\n      a_zsr(5,je)  =  1.00268\n      a_zsr(6,je)  = -0.16923\n      aw_min(je)   = 0.1\n!\n! caco3\n      je = jcaco3\n      a_zsr(1,je)  =  0.0\n      a_zsr(2,je)  =  0.0\n      a_zsr(3,je)  =  0.0\n      a_zsr(4,je)  =  0.0\n      a_zsr(5,je)  =  0.0\n      a_zsr(6,je)  =  0.0\n      aw_min(je)   = 1.0\n\n\n\n!-------------------------------------------\n! b_zsr for aw => 0.97 to 0.99999\n!\n! (nh4)2so4\n      b_zsr(jnh4so4)  = 28.0811\n!\n! (nh4)3h(so4)2\n      b_zsr(jlvcite)  = 14.7178\n!\n! nh4hso4\n      b_zsr(jnh4hso4) = 29.4779\n!\n! nh4msa\n      b_zsr(jnh4msa)  = 29.4779 ! assumed same as nh4hso4\n!\n! nh4no3\n      b_zsr(jnh4no3)  = 33.4049\n!\n! nh4cl\n      b_zsr(jnh4cl)   = 30.8888\n!\n! nacl\n      b_zsr(jnacl)    = 29.8375\n!\n! nano3\n      b_zsr(jnano3)   = 32.2756\n!\n! na2so4\n      b_zsr(jna2so4)  = 27.6889\n!\n! na3h(so4)2\n      b_zsr(jna3hso4) = 14.2184\n!\n! nahso4\n      b_zsr(jnahso4)  = 28.3367\n!\n! namsa\n      b_zsr(jnamsa)   = 28.3367 ! assumed same as nahso4\n!\n! ca(no3)2\n      b_zsr(jcano3)   = 18.3661\n!\n! cacl2\n      b_zsr(jcacl2)   = 20.8792\n!\n! h2so4\n      b_zsr(jh2so4)   = 26.7347\n!\n! hhso4\n      b_zsr(jhhso4)   = 26.7347\n!\n! hno3\n      b_zsr(jhno3)    = 28.8257\n!\n! hcl\n      b_zsr(jhcl)     = 27.7108\n!\n! msa\n      b_zsr(jmsa)     = 26.7347 ! assumed same as h2so4\n!\n! caso4\n      b_zsr(jcaso4)   = 0.0\n!\n! ca(msa)2\n      b_zsr(jcamsa2)  = 18.3661 ! assumed same as Ca(NO3)2\n!\n! caco3\n      b_zsr(jcaco3)   = 0.0\n\n\n\n\n\n\n\n!----------------------------------------------------------------\n! parameters for mtem mixing rule (zaveri, easter, and wexler, 2005)\n! log_gamz(ja,je)   a in e\n!----------------------------------------------------------------\n!\n! (nh4)2so4 in e\n      ja = jnh4so4\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -2.94685\n      b_mtem(2,ja,je) = 17.3328\n      b_mtem(3,ja,je) = -64.8441\n      b_mtem(4,ja,je) = 122.7070\n      b_mtem(5,ja,je) = -114.4373\n      b_mtem(6,ja,je) = 41.6811\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -2.7503\n      b_mtem(2,ja,je) = 4.3806\n      b_mtem(3,ja,je) = -1.1110\n      b_mtem(4,ja,je) = -1.7005\n      b_mtem(5,ja,je) = -4.4207\n      b_mtem(6,ja,je) = 5.1990\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -2.06952\n      b_mtem(2,ja,je) = 7.1240\n      b_mtem(3,ja,je) = -24.4274\n      b_mtem(4,ja,je) = 51.1458\n      b_mtem(5,ja,je) = -54.2056\n      b_mtem(6,ja,je) = 22.0606\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -2.17361\n      b_mtem(2,ja,je) = 15.9919\n      b_mtem(3,ja,je) = -69.0952\n      b_mtem(4,ja,je) = 139.8860\n      b_mtem(5,ja,je) = -134.9890\n      b_mtem(6,ja,je) = 49.8877\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -4.4370\n      b_mtem(2,ja,je) = 24.0243\n      b_mtem(3,ja,je) = -76.2437\n      b_mtem(4,ja,je) = 128.6660\n      b_mtem(5,ja,je) = -110.0900\n      b_mtem(6,ja,je) = 37.7414\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = -1.5394\n      b_mtem(2,ja,je) = 5.8671\n      b_mtem(3,ja,je) = -22.7726\n      b_mtem(4,ja,je) = 47.0547\n      b_mtem(5,ja,je) = -47.8266\n      b_mtem(6,ja,je) = 18.8489\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = -0.35750\n      b_mtem(2,ja,je) = -3.82466\n      b_mtem(3,ja,je) = 4.55462\n      b_mtem(4,ja,je) = 5.05402\n      b_mtem(5,ja,je) = -14.7476\n      b_mtem(6,ja,je) = 8.8009\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = -2.15146\n      b_mtem(2,ja,je) = 5.50205\n      b_mtem(3,ja,je) = -19.1476\n      b_mtem(4,ja,je) = 39.1880\n      b_mtem(5,ja,je) = -39.9460\n      b_mtem(6,ja,je) = 16.0700\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = -2.52604\n      b_mtem(2,ja,je) = 9.76022\n      b_mtem(3,ja,je) = -35.2540\n      b_mtem(4,ja,je) = 71.2981\n      b_mtem(5,ja,je) = -71.8207\n      b_mtem(6,ja,je) = 28.0758\n\n!\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -4.13219\n      b_mtem(2,ja,je) = 13.8863\n      b_mtem(3,ja,je) = -34.5387\n      b_mtem(4,ja,je) = 56.5012\n      b_mtem(5,ja,je) = -51.8702\n      b_mtem(6,ja,je) = 19.6232\n\n!\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -2.53482\n      b_mtem(2,ja,je) = 12.3333\n      b_mtem(3,ja,je) = -46.1020\n      b_mtem(4,ja,je) = 90.4775\n      b_mtem(5,ja,je) = -88.1254\n      b_mtem(6,ja,je) = 33.4715\n\n!\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = -3.23425\n      b_mtem(2,ja,je) = 18.7842\n      b_mtem(3,ja,je) = -78.7807\n      b_mtem(4,ja,je) = 161.517\n      b_mtem(5,ja,je) = -154.940\n      b_mtem(6,ja,je) = 56.2252\n\n!\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = -1.25316\n      b_mtem(2,ja,je) = 7.40960\n      b_mtem(3,ja,je) = -34.8929\n      b_mtem(4,ja,je) = 72.8853\n      b_mtem(5,ja,je) = -72.4503\n      b_mtem(6,ja,je) = 27.7706\n\n\n!-----------------\n! nh4no3 in e\n      ja = jnh4no3\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -3.5201\n      b_mtem(2,ja,je) = 21.6584\n      b_mtem(3,ja,je) = -72.1499\n      b_mtem(4,ja,je) = 126.7000\n      b_mtem(5,ja,je) = -111.4550\n      b_mtem(6,ja,je) = 38.5677\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -2.2630\n      b_mtem(2,ja,je) = -0.1518\n      b_mtem(3,ja,je) = 17.0898\n      b_mtem(4,ja,je) = -36.7832\n      b_mtem(5,ja,je) = 29.8407\n      b_mtem(6,ja,je) = -7.9314\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -1.3851\n      b_mtem(2,ja,je) = -0.4462\n      b_mtem(3,ja,je) = 8.4567\n      b_mtem(4,ja,je) = -11.5988\n      b_mtem(5,ja,je) = 2.9802\n      b_mtem(6,ja,je) = 1.8132\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -1.7602\n      b_mtem(2,ja,je) = 10.4044\n      b_mtem(3,ja,je) = -35.5894\n      b_mtem(4,ja,je) = 64.3584\n      b_mtem(5,ja,je) = -57.8931\n      b_mtem(6,ja,je) = 20.2141\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -3.24346\n      b_mtem(2,ja,je) = 16.2794\n      b_mtem(3,ja,je) = -48.7601\n      b_mtem(4,ja,je) = 79.2246\n      b_mtem(5,ja,je) = -65.8169\n      b_mtem(6,ja,je) = 22.1500\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = -1.75658\n      b_mtem(2,ja,je) = 7.71384\n      b_mtem(3,ja,je) = -22.7984\n      b_mtem(4,ja,je) = 39.1532\n      b_mtem(5,ja,je) = -34.6165\n      b_mtem(6,ja,je) = 12.1283\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = -0.97178\n      b_mtem(2,ja,je) = 6.61964\n      b_mtem(3,ja,je) = -26.2353\n      b_mtem(4,ja,je) = 50.5259\n      b_mtem(5,ja,je) = -47.6586\n      b_mtem(6,ja,je) = 17.5074\n\n! in cacl2 added on 12/22/2003\n      je = jcacl2\n      b_mtem(1,ja,je) = -0.41515\n      b_mtem(2,ja,je) = 6.44101\n      b_mtem(3,ja,je) = -26.4473\n      b_mtem(4,ja,je) = 49.0718\n      b_mtem(5,ja,je) = -44.2631\n      b_mtem(6,ja,je) = 15.3771\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = -1.20644\n      b_mtem(2,ja,je) = 5.70117\n      b_mtem(3,ja,je) = -18.2783\n      b_mtem(4,ja,je) = 31.7199\n      b_mtem(5,ja,je) = -27.8703\n      b_mtem(6,ja,je) = 9.7299\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = -0.680862\n      b_mtem(2,ja,je) = 3.59456\n      b_mtem(3,ja,je) = -10.7969\n      b_mtem(4,ja,je) = 17.8434\n      b_mtem(5,ja,je) = -15.3165\n      b_mtem(6,ja,je) = 5.17123\n\n\n!----------\n! nh4cl in e\n      ja = jnh4cl\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -2.8850\n      b_mtem(2,ja,je) = 20.6970\n      b_mtem(3,ja,je) = -70.6810\n      b_mtem(4,ja,je) = 124.3690\n      b_mtem(5,ja,je) = -109.2880\n      b_mtem(6,ja,je) = 37.5831\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -1.9386\n      b_mtem(2,ja,je) = 1.3238\n      b_mtem(3,ja,je) = 11.8500\n      b_mtem(4,ja,je) = -28.1168\n      b_mtem(5,ja,je) = 21.8543\n      b_mtem(6,ja,je) = -5.1671\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -0.9559\n      b_mtem(2,ja,je) = 0.8121\n      b_mtem(3,ja,je) = 4.3644\n      b_mtem(4,ja,je) = -8.9258\n      b_mtem(5,ja,je) = 4.2362\n      b_mtem(6,ja,je) = 0.2891\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 0.0377\n      b_mtem(2,ja,je) = 6.0752\n      b_mtem(3,ja,je) = -30.8641\n      b_mtem(4,ja,je) = 63.3095\n      b_mtem(5,ja,je) = -61.0070\n      b_mtem(6,ja,je) = 22.1734\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -1.8336\n      b_mtem(2,ja,je) = 12.8160\n      b_mtem(3,ja,je) = -42.3388\n      b_mtem(4,ja,je) = 71.1816\n      b_mtem(5,ja,je) = -60.5708\n      b_mtem(6,ja,je) = 20.5853\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = -0.1429\n      b_mtem(2,ja,je) = 2.3561\n      b_mtem(3,ja,je) = -10.4425\n      b_mtem(4,ja,je) = 20.8951\n      b_mtem(5,ja,je) = -20.7739\n      b_mtem(6,ja,je) = 7.9355\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = 0.76235\n      b_mtem(2,ja,je) = 3.08323\n      b_mtem(3,ja,je) = -23.6772\n      b_mtem(4,ja,je) = 53.7415\n      b_mtem(5,ja,je) = -55.4043\n      b_mtem(6,ja,je) = 21.2944\n\n! in cacl2 (revised on 11/27/2003)\n      je = jcacl2\n      b_mtem(1,ja,je) = 1.13864\n      b_mtem(2,ja,je) = -0.340539\n      b_mtem(3,ja,je) = -8.67025\n      b_mtem(4,ja,je) = 22.8008\n      b_mtem(5,ja,je) = -24.5181\n      b_mtem(6,ja,je) = 9.3663\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 2.42532\n      b_mtem(2,ja,je) = -14.1755\n      b_mtem(3,ja,je) = 38.804\n      b_mtem(4,ja,je) = -58.2437\n      b_mtem(5,ja,je) = 43.5431\n      b_mtem(6,ja,je) = -12.5824\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 0.330337\n      b_mtem(2,ja,je) = 0.0778934\n      b_mtem(3,ja,je) = -2.30492\n      b_mtem(4,ja,je) = 4.73003\n      b_mtem(5,ja,je) = -4.80849\n      b_mtem(6,ja,je) = 1.78866\n\n\n!----------\n! na2so4 in e\n      ja = jna2so4\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -2.6982\n      b_mtem(2,ja,je) = 22.9875\n      b_mtem(3,ja,je) = -98.9840\n      b_mtem(4,ja,je) = 198.0180\n      b_mtem(5,ja,je) = -188.7270\n      b_mtem(6,ja,je) = 69.0548\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -2.4844\n      b_mtem(2,ja,je) = 6.5420\n      b_mtem(3,ja,je) = -9.8998\n      b_mtem(4,ja,je) = 11.3884\n      b_mtem(5,ja,je) = -13.6842\n      b_mtem(6,ja,je) = 7.7411\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -1.3325\n      b_mtem(2,ja,je) = 13.0406\n      b_mtem(3,ja,je) = -56.1935\n      b_mtem(4,ja,je) = 107.1170\n      b_mtem(5,ja,je) = -97.3721\n      b_mtem(6,ja,je) = 34.3763\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -1.2832\n      b_mtem(2,ja,je) = 12.8526\n      b_mtem(3,ja,je) = -62.2087\n      b_mtem(4,ja,je) = 130.3876\n      b_mtem(5,ja,je) = -128.2627\n      b_mtem(6,ja,je) = 48.0340\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -3.5384\n      b_mtem(2,ja,je) = 21.3758\n      b_mtem(3,ja,je) = -70.7638\n      b_mtem(4,ja,je) = 121.1580\n      b_mtem(5,ja,je) = -104.6230\n      b_mtem(6,ja,je) = 36.0557\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = 0.2175\n      b_mtem(2,ja,je) = -0.5648\n      b_mtem(3,ja,je) = -8.0288\n      b_mtem(4,ja,je) = 25.9734\n      b_mtem(5,ja,je) = -32.3577\n      b_mtem(6,ja,je) = 14.3924\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = -0.309617\n      b_mtem(2,ja,je) = -1.82899\n      b_mtem(3,ja,je) = -1.5505\n      b_mtem(4,ja,je) = 13.3847\n      b_mtem(5,ja,je) = -20.1284\n      b_mtem(6,ja,je) = 9.93163\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = -0.259455\n      b_mtem(2,ja,je) = -0.819366\n      b_mtem(3,ja,je) = -4.28964\n      b_mtem(4,ja,je) = 16.4305\n      b_mtem(5,ja,je) = -21.8546\n      b_mtem(6,ja,je) = 10.3044\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = -1.84257\n      b_mtem(2,ja,je) = 7.85788\n      b_mtem(3,ja,je) = -29.9275\n      b_mtem(4,ja,je) = 61.7515\n      b_mtem(5,ja,je) = -63.2308\n      b_mtem(6,ja,je) = 24.9542\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -1.05891\n      b_mtem(2,ja,je) = 2.84831\n      b_mtem(3,ja,je) = -21.1827\n      b_mtem(4,ja,je) = 57.5175\n      b_mtem(5,ja,je) = -64.8120\n      b_mtem(6,ja,je) = 26.1986\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -1.16584\n      b_mtem(2,ja,je) = 8.50075\n      b_mtem(3,ja,je) = -44.3420\n      b_mtem(4,ja,je) = 97.3974\n      b_mtem(5,ja,je) = -98.4549\n      b_mtem(6,ja,je) = 37.6104\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = -1.95805\n      b_mtem(2,ja,je) = 6.62417\n      b_mtem(3,ja,je) = -31.8072\n      b_mtem(4,ja,je) = 77.8603\n      b_mtem(5,ja,je) = -84.6458\n      b_mtem(6,ja,je) = 33.4963\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = -0.36045\n      b_mtem(2,ja,je) = 3.55223\n      b_mtem(3,ja,je) = -24.0327\n      b_mtem(4,ja,je) = 54.4879\n      b_mtem(5,ja,je) = -56.6531\n      b_mtem(6,ja,je) = 22.4956\n\n\n!----------\n! nano3 in e\n      ja = jnano3\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -2.5888\n      b_mtem(2,ja,je) = 17.6192\n      b_mtem(3,ja,je) = -63.2183\n      b_mtem(4,ja,je) = 115.3520\n      b_mtem(5,ja,je) = -104.0860\n      b_mtem(6,ja,je) = 36.7390\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -2.0669\n      b_mtem(2,ja,je) = 1.4792\n      b_mtem(3,ja,je) = 10.5261\n      b_mtem(4,ja,je) = -27.0987\n      b_mtem(5,ja,je) = 23.0591\n      b_mtem(6,ja,je) = -6.0938\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -0.8325\n      b_mtem(2,ja,je) = 3.9933\n      b_mtem(3,ja,je) = -15.3789\n      b_mtem(4,ja,je) = 30.4050\n      b_mtem(5,ja,je) = -29.4204\n      b_mtem(6,ja,je) = 11.0597\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -1.1233\n      b_mtem(2,ja,je) = 8.3998\n      b_mtem(3,ja,je) = -31.9002\n      b_mtem(4,ja,je) = 60.1450\n      b_mtem(5,ja,je) = -55.5503\n      b_mtem(6,ja,je) = 19.7757\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -2.5386\n      b_mtem(2,ja,je) = 13.9039\n      b_mtem(3,ja,je) = -42.8467\n      b_mtem(4,ja,je) = 69.7442\n      b_mtem(5,ja,je) = -57.8988\n      b_mtem(6,ja,je) = 19.4635\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = -0.4351\n      b_mtem(2,ja,je) = 2.8311\n      b_mtem(3,ja,je) = -11.4485\n      b_mtem(4,ja,je) = 22.7201\n      b_mtem(5,ja,je) = -22.4228\n      b_mtem(6,ja,je) = 8.5792\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = -0.72060\n      b_mtem(2,ja,je) = 5.64915\n      b_mtem(3,ja,je) = -23.5020\n      b_mtem(4,ja,je) = 46.0078\n      b_mtem(5,ja,je) = -43.8075\n      b_mtem(6,ja,je) = 16.1652\n\n! in cacl2\n      je = jcacl2\n      b_mtem(1,ja,je) = 0.003928\n      b_mtem(2,ja,je) = 3.54724\n      b_mtem(3,ja,je) = -18.6057\n      b_mtem(4,ja,je) = 38.1445\n      b_mtem(5,ja,je) = -36.7745\n      b_mtem(6,ja,je) = 13.4529\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = -1.1712\n      b_mtem(2,ja,je) = 7.20907\n      b_mtem(3,ja,je) = -22.9215\n      b_mtem(4,ja,je) = 38.1257\n      b_mtem(5,ja,je) = -32.0759\n      b_mtem(6,ja,je) = 10.6443\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 0.738022\n      b_mtem(2,ja,je) = -1.14313\n      b_mtem(3,ja,je) = 0.32251\n      b_mtem(4,ja,je) = 0.838679\n      b_mtem(5,ja,je) = -1.81747\n      b_mtem(6,ja,je) = 0.873986\n\n\n!----------\n! nacl in e\n      ja = jnacl\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -1.9525\n      b_mtem(2,ja,je) = 16.6433\n      b_mtem(3,ja,je) = -61.7090\n      b_mtem(4,ja,je) = 112.9910\n      b_mtem(5,ja,je) = -101.9370\n      b_mtem(6,ja,je) = 35.7760\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -1.7525\n      b_mtem(2,ja,je) = 3.0713\n      b_mtem(3,ja,je) = 4.8063\n      b_mtem(4,ja,je) = -17.5334\n      b_mtem(5,ja,je) = 14.2872\n      b_mtem(6,ja,je) = -3.0690\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -0.4021\n      b_mtem(2,ja,je) = 5.2399\n      b_mtem(3,ja,je) = -19.4278\n      b_mtem(4,ja,je) = 33.0027\n      b_mtem(5,ja,je) = -28.1020\n      b_mtem(6,ja,je) = 9.5159\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 0.6692\n      b_mtem(2,ja,je) = 4.1207\n      b_mtem(3,ja,je) = -27.3314\n      b_mtem(4,ja,je) = 59.3112\n      b_mtem(5,ja,je) = -58.7998\n      b_mtem(6,ja,je) = 21.7674\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -1.17444\n      b_mtem(2,ja,je) = 10.9927\n      b_mtem(3,ja,je) = -38.9013\n      b_mtem(4,ja,je) = 66.8521\n      b_mtem(5,ja,je) = -57.6564\n      b_mtem(6,ja,je) = 19.7296\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = 1.17679\n      b_mtem(2,ja,je) = -2.5061\n      b_mtem(3,ja,je) = 0.8508\n      b_mtem(4,ja,je) = 4.4802\n      b_mtem(5,ja,je) = -8.4945\n      b_mtem(6,ja,je) = 4.3182\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = 1.01450\n      b_mtem(2,ja,je) = 2.10260\n      b_mtem(3,ja,je) = -20.9036\n      b_mtem(4,ja,je) = 49.1481\n      b_mtem(5,ja,je) = -51.4867\n      b_mtem(6,ja,je) = 19.9301\n\n! in cacl2 (psc92: revised on 11/27/2003)\n      je = jcacl2\n      b_mtem(1,ja,je) = 1.55463\n      b_mtem(2,ja,je) = -3.20122\n      b_mtem(3,ja,je) = -0.957075\n      b_mtem(4,ja,je) = 12.103\n      b_mtem(5,ja,je) = -17.221\n      b_mtem(6,ja,je) = 7.50264\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 2.46187\n      b_mtem(2,ja,je) = -12.6845\n      b_mtem(3,ja,je) = 34.2383\n      b_mtem(4,ja,je) = -51.9992\n      b_mtem(5,ja,je) = 39.4934\n      b_mtem(6,ja,je) = -11.7247\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 1.74915\n      b_mtem(2,ja,je) = -4.65768\n      b_mtem(3,ja,je) = 8.80287\n      b_mtem(4,ja,je) = -12.2503\n      b_mtem(5,ja,je) = 8.668751\n      b_mtem(6,ja,je) = -2.50158\n\n\n!----------\n! ca(no3)2 in e\n      ja = jcano3\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -1.86260\n      b_mtem(2,ja,je) = 11.6178\n      b_mtem(3,ja,je) = -30.9069\n      b_mtem(4,ja,je) = 41.7578\n      b_mtem(5,ja,je) = -33.7338\n      b_mtem(6,ja,je) = 12.7541\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -1.1798\n      b_mtem(2,ja,je) = 25.9608\n      b_mtem(3,ja,je) = -98.9373\n      b_mtem(4,ja,je) = 160.2300\n      b_mtem(5,ja,je) = -125.9540\n      b_mtem(6,ja,je) = 39.5130\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -1.44384\n      b_mtem(2,ja,je) = 13.6044\n      b_mtem(3,ja,je) = -54.4300\n      b_mtem(4,ja,je) = 100.582\n      b_mtem(5,ja,je) = -91.2364\n      b_mtem(6,ja,je) = 32.5970\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = -0.099114\n      b_mtem(2,ja,je) = 2.84091\n      b_mtem(3,ja,je) = -16.9229\n      b_mtem(4,ja,je) = 37.4839\n      b_mtem(5,ja,je) = -39.5132\n      b_mtem(6,ja,je) = 15.8564\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = 0.055116\n      b_mtem(2,ja,je) = 4.58610\n      b_mtem(3,ja,je) = -27.6629\n      b_mtem(4,ja,je) = 60.8288\n      b_mtem(5,ja,je) = -61.4988\n      b_mtem(6,ja,je) = 23.3136\n\n! in cacl2 (psc92: revised on 11/27/2003)\n      je = jcacl2\n      b_mtem(1,ja,je) = 1.57155\n      b_mtem(2,ja,je) = -3.18486\n      b_mtem(3,ja,je) = -3.35758\n      b_mtem(4,ja,je) = 18.7501\n      b_mtem(5,ja,je) = -24.5604\n      b_mtem(6,ja,je) = 10.3798\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 1.04446\n      b_mtem(2,ja,je) = -3.19066\n      b_mtem(3,ja,je) = 2.44714\n      b_mtem(4,ja,je) = 2.07218\n      b_mtem(5,ja,je) = -6.43949\n      b_mtem(6,ja,je) = 3.66471\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 1.05723\n      b_mtem(2,ja,je) = -1.46826\n      b_mtem(3,ja,je) = -1.0713\n      b_mtem(4,ja,je) = 4.64439\n      b_mtem(5,ja,je) = -6.32402\n      b_mtem(6,ja,je) = 2.78202\n\n\n!----------\n! cacl2 in e\n      ja = jcacl2\n\n! in nh4no3 (psc92: revised on 12/22/2003)\n      je = jnh4no3\n      b_mtem(1,ja,je) = -1.43626\n      b_mtem(2,ja,je) = 13.6598\n      b_mtem(3,ja,je) = -38.2068\n      b_mtem(4,ja,je) = 53.9057\n      b_mtem(5,ja,je) = -44.9018\n      b_mtem(6,ja,je) = 16.6120\n\n! in nh4cl (psc92: revised on 11/27/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -0.603965\n      b_mtem(2,ja,je) = 27.6027\n      b_mtem(3,ja,je) = -104.258\n      b_mtem(4,ja,je) = 163.553\n      b_mtem(5,ja,je) = -124.076\n      b_mtem(6,ja,je) = 37.4153\n\n! in nano3 (psc92: revised on 12/22/2003)\n      je = jnano3\n      b_mtem(1,ja,je) = 0.44648\n      b_mtem(2,ja,je) = 8.8850\n      b_mtem(3,ja,je) = -45.5232\n      b_mtem(4,ja,je) = 89.3263\n      b_mtem(5,ja,je) = -83.8604\n      b_mtem(6,ja,je) = 30.4069\n\n! in nacl (psc92: revised on 11/27/2003)\n      je = jnacl\n      b_mtem(1,ja,je) = 1.61927\n      b_mtem(2,ja,je) = 0.247547\n      b_mtem(3,ja,je) = -18.1252\n      b_mtem(4,ja,je) = 45.2479\n      b_mtem(5,ja,je) = -48.6072\n      b_mtem(6,ja,je) = 19.2784\n\n! in ca(no3)2 (psc92: revised on 11/27/2003)\n      je = jcano3\n      b_mtem(1,ja,je) = 2.36667\n      b_mtem(2,ja,je) = -0.123309\n      b_mtem(3,ja,je) = -24.2723\n      b_mtem(4,ja,je) = 65.1486\n      b_mtem(5,ja,je) = -71.8504\n      b_mtem(6,ja,je) = 28.3696\n\n! in cacl2 (psc92: revised on 11/27/2003)\n      je = jcacl2\n      b_mtem(1,ja,je) = 3.64023\n      b_mtem(2,ja,je) = -12.1926\n      b_mtem(3,ja,je) = 20.2028\n      b_mtem(4,ja,je) = -16.0056\n      b_mtem(5,ja,je) = 1.52355\n      b_mtem(6,ja,je) = 2.44709\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 5.88794\n      b_mtem(2,ja,je) = -29.7083\n      b_mtem(3,ja,je) = 78.6309\n      b_mtem(4,ja,je) = -118.037\n      b_mtem(5,ja,je) = 88.932\n      b_mtem(6,ja,je) = -26.1407\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 2.40628\n      b_mtem(2,ja,je) = -6.16566\n      b_mtem(3,ja,je) = 10.2851\n      b_mtem(4,ja,je) = -12.9035\n      b_mtem(5,ja,je) = 7.7441\n      b_mtem(6,ja,je) = -1.74821\n\n\n!----------\n! hno3 in e\n      ja = jhno3\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -3.57598\n      b_mtem(2,ja,je) = 21.5469\n      b_mtem(3,ja,je) = -77.4111\n      b_mtem(4,ja,je) = 144.136\n      b_mtem(5,ja,je) = -132.849\n      b_mtem(6,ja,je) = 47.9412\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -2.00209\n      b_mtem(2,ja,je) = -3.48399\n      b_mtem(3,ja,je) = 34.9906\n      b_mtem(4,ja,je) = -68.6653\n      b_mtem(5,ja,je) = 54.0992\n      b_mtem(6,ja,je) = -15.1343\n\n! in nh4cl revised on 12/22/2003\n      je = jnh4cl\n      b_mtem(1,ja,je) = -0.63790\n      b_mtem(2,ja,je) = -1.67730\n      b_mtem(3,ja,je) = 10.1727\n      b_mtem(4,ja,je) = -14.9097\n      b_mtem(5,ja,je) = 7.67410\n      b_mtem(6,ja,je) = -0.79586\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = 1.3446\n      b_mtem(2,ja,je) = -2.5578\n      b_mtem(3,ja,je) = 1.3464\n      b_mtem(4,ja,je) = 2.90537\n      b_mtem(5,ja,je) = -6.53014\n      b_mtem(6,ja,je) = 3.31339\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = -0.546636\n      b_mtem(2,ja,je) = 10.3127\n      b_mtem(3,ja,je) = -39.9603\n      b_mtem(4,ja,je) = 71.4609\n      b_mtem(5,ja,je) = -63.4958\n      b_mtem(6,ja,je) = 22.0679\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 1.35059\n      b_mtem(2,ja,je) = 4.34557\n      b_mtem(3,ja,je) = -35.8425\n      b_mtem(4,ja,je) = 80.9868\n      b_mtem(5,ja,je) = -81.6544\n      b_mtem(6,ja,je) = 30.4841\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = 0.869414\n      b_mtem(2,ja,je) = 2.98486\n      b_mtem(3,ja,je) = -22.255\n      b_mtem(4,ja,je) = 50.1863\n      b_mtem(5,ja,je) = -51.214\n      b_mtem(6,ja,je) = 19.2235\n\n! in cacl2 (km) revised on 12/22/2003\n      je = jcacl2\n      b_mtem(1,ja,je) = 1.42800\n      b_mtem(2,ja,je) = -1.78959\n      b_mtem(3,ja,je) = -2.49075\n      b_mtem(4,ja,je) = 10.1877\n      b_mtem(5,ja,je) = -12.1948\n      b_mtem(6,ja,je) = 4.64475\n\n! in hno3 (added on 12/06/2004)\n      je = jhno3\n      b_mtem(1,ja,je) = 0.22035\n      b_mtem(2,ja,je) = 2.94973\n      b_mtem(3,ja,je) = -12.1469\n      b_mtem(4,ja,je) = 20.4905\n      b_mtem(5,ja,je) = -17.3966\n      b_mtem(6,ja,je) = 5.70779\n\n! in hcl (added on 12/06/2004)\n      je = jhcl\n      b_mtem(1,ja,je) = 1.55503\n      b_mtem(2,ja,je) = -3.61226\n      b_mtem(3,ja,je) = 6.28265\n      b_mtem(4,ja,je) = -8.69575\n      b_mtem(5,ja,je) = 6.09372\n      b_mtem(6,ja,je) = -1.80898\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = 1.10783\n      b_mtem(2,ja,je) = -1.3363\n      b_mtem(3,ja,je) = -1.83525\n      b_mtem(4,ja,je) = 7.47373\n      b_mtem(5,ja,je) = -9.72954\n      b_mtem(6,ja,je) = 4.12248\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -0.851026\n      b_mtem(2,ja,je) = 12.2515\n      b_mtem(3,ja,je) = -49.788\n      b_mtem(4,ja,je) = 91.6215\n      b_mtem(5,ja,je) = -81.4877\n      b_mtem(6,ja,je) = 28.0002\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -3.09464\n      b_mtem(2,ja,je) = 14.9303\n      b_mtem(3,ja,je) = -43.0454\n      b_mtem(4,ja,je) = 72.6695\n      b_mtem(5,ja,je) = -65.2140\n      b_mtem(6,ja,je) = 23.4814\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = 1.22973\n      b_mtem(2,ja,je) = 2.82702\n      b_mtem(3,ja,je) = -17.5869\n      b_mtem(4,ja,je) = 28.9564\n      b_mtem(5,ja,je) = -23.5814\n      b_mtem(6,ja,je) = 7.91153\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = 1.64773\n      b_mtem(2,ja,je) = 0.94188\n      b_mtem(3,ja,je) = -19.1242\n      b_mtem(4,ja,je) = 46.9887\n      b_mtem(5,ja,je) = -50.9494\n      b_mtem(6,ja,je) = 20.2169\n\n\n!----------\n! hcl in e\n      ja = jhcl\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -2.93783\n      b_mtem(2,ja,je) = 20.5546\n      b_mtem(3,ja,je) = -75.8548\n      b_mtem(4,ja,je) = 141.729\n      b_mtem(5,ja,je) = -130.697\n      b_mtem(6,ja,je) = 46.9905\n\n! in nh4no3\n      je = jnh4no3\n      b_mtem(1,ja,je) = -1.69063\n      b_mtem(2,ja,je) = -1.85303\n      b_mtem(3,ja,je) = 29.0927\n      b_mtem(4,ja,je) = -58.7401\n      b_mtem(5,ja,je) = 44.999\n      b_mtem(6,ja,je) = -11.9988\n\n! in nh4cl (revised on 11/15/2003)\n      je = jnh4cl\n      b_mtem(1,ja,je) = -0.2073\n      b_mtem(2,ja,je) = -0.4322\n      b_mtem(3,ja,je) = 6.1271\n      b_mtem(4,ja,je) = -12.3146\n      b_mtem(5,ja,je) = 8.9919\n      b_mtem(6,ja,je) = -2.3388\n\n! in nacl\n      je = jnacl\n      b_mtem(1,ja,je) = 2.95913\n      b_mtem(2,ja,je) = -7.92254\n      b_mtem(3,ja,je) = 13.736\n      b_mtem(4,ja,je) = -15.433\n      b_mtem(5,ja,je) = 7.40386\n      b_mtem(6,ja,je) = -0.918641\n\n! in nano3\n      je = jnano3\n      b_mtem(1,ja,je) = 0.893272\n      b_mtem(2,ja,je) = 6.53768\n      b_mtem(3,ja,je) = -32.3458\n      b_mtem(4,ja,je) = 61.2834\n      b_mtem(5,ja,je) = -56.4446\n      b_mtem(6,ja,je) = 19.9202\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 3.14484\n      b_mtem(2,ja,je) = 0.077019\n      b_mtem(3,ja,je) = -31.4199\n      b_mtem(4,ja,je) = 80.5865\n      b_mtem(5,ja,je) = -85.392\n      b_mtem(6,ja,je) = 32.6644\n\n! in ca(no3)2\n      je = jcano3\n      b_mtem(1,ja,je) = 2.60432\n      b_mtem(2,ja,je) = -0.55909\n      b_mtem(3,ja,je) = -19.6671\n      b_mtem(4,ja,je) = 53.3446\n      b_mtem(5,ja,je) = -58.9076\n      b_mtem(6,ja,je) = 22.9927\n\n! in cacl2 (km) revised on 3/13/2003 and again on 11/27/2003\n      je = jcacl2\n      b_mtem(1,ja,je) = 2.98036\n      b_mtem(2,ja,je) = -8.55365\n      b_mtem(3,ja,je) = 15.2108\n      b_mtem(4,ja,je) = -15.9359\n      b_mtem(5,ja,je) = 7.41772\n      b_mtem(6,ja,je) = -1.32143\n\n! in hno3 (added on 12/06/2004)\n      je = jhno3\n      b_mtem(1,ja,je) = 3.8533\n      b_mtem(2,ja,je) = -16.9427\n      b_mtem(3,ja,je) = 45.0056\n      b_mtem(4,ja,je) = -69.6145\n      b_mtem(5,ja,je) = 54.1491\n      b_mtem(6,ja,je) = -16.6513\n\n! in hcl (added on 12/06/2004)\n      je = jhcl\n      b_mtem(1,ja,je) = 2.56665\n      b_mtem(2,ja,je) = -7.13585\n      b_mtem(3,ja,je) = 14.8103\n      b_mtem(4,ja,je) = -21.8881\n      b_mtem(5,ja,je) = 16.6808\n      b_mtem(6,ja,je) = -5.22091\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = 2.50179\n      b_mtem(2,ja,je) = -6.69364\n      b_mtem(3,ja,je) = 11.6551\n      b_mtem(4,ja,je) = -13.6897\n      b_mtem(5,ja,je) = 7.36796\n      b_mtem(6,ja,je) = -1.33245\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = 0.149955\n      b_mtem(2,ja,je) = 11.8213\n      b_mtem(3,ja,je) = -53.9164\n      b_mtem(4,ja,je) = 101.574\n      b_mtem(5,ja,je) = -91.4123\n      b_mtem(6,ja,je) = 31.5487\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -2.36927\n      b_mtem(2,ja,je) = 14.8359\n      b_mtem(3,ja,je) = -44.3443\n      b_mtem(4,ja,je) = 73.6229\n      b_mtem(5,ja,je) = -65.3366\n      b_mtem(6,ja,je) = 23.3250\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = 2.72993\n      b_mtem(2,ja,je) = -0.23406\n      b_mtem(3,ja,je) = -10.4103\n      b_mtem(4,ja,je) = 13.1586\n      b_mtem(5,ja,je) = -7.79925\n      b_mtem(6,ja,je) = 2.30843\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = 3.51258\n      b_mtem(2,ja,je) = -3.95107\n      b_mtem(3,ja,je) = -11.0175\n      b_mtem(4,ja,je) = 38.8617\n      b_mtem(5,ja,je) = -48.1575\n      b_mtem(6,ja,je) = 20.4717\n\n\n!----------\n! 2h.so4 in e\n      ja = jh2so4\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = 0.76734\n      b_mtem(2,ja,je) = -1.12263\n      b_mtem(3,ja,je) = -9.08728\n      b_mtem(4,ja,je) = 30.3836\n      b_mtem(5,ja,je) = -38.4133\n      b_mtem(6,ja,je) = 17.0106\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -2.03879\n      b_mtem(2,ja,je) = 15.7033\n      b_mtem(3,ja,je) = -58.7363\n      b_mtem(4,ja,je) = 109.242\n      b_mtem(5,ja,je) = -102.237\n      b_mtem(6,ja,je) = 37.5350\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -3.10228\n      b_mtem(2,ja,je) = 16.6920\n      b_mtem(3,ja,je) = -59.1522\n      b_mtem(4,ja,je) = 113.487\n      b_mtem(5,ja,je) = -110.890\n      b_mtem(6,ja,je) = 42.4578\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -3.43885\n      b_mtem(2,ja,je) = 21.0372\n      b_mtem(3,ja,je) = -84.7026\n      b_mtem(4,ja,je) = 165.324\n      b_mtem(5,ja,je) = -156.101\n      b_mtem(6,ja,je) = 57.3101\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = 0.33164\n      b_mtem(2,ja,je) = 6.55864\n      b_mtem(3,ja,je) = -33.5876\n      b_mtem(4,ja,je) = 65.1798\n      b_mtem(5,ja,je) = -63.2046\n      b_mtem(6,ja,je) = 24.1783\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = 3.06830\n      b_mtem(2,ja,je) = -3.18408\n      b_mtem(3,ja,je) = -19.6332\n      b_mtem(4,ja,je) = 61.3657\n      b_mtem(5,ja,je) = -73.4438\n      b_mtem(6,ja,je) = 31.2334\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 2.58649\n      b_mtem(2,ja,je) = 0.87921\n      b_mtem(3,ja,je) = -39.3023\n      b_mtem(4,ja,je) = 101.603\n      b_mtem(5,ja,je) = -109.469\n      b_mtem(6,ja,je) = 43.0188\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 1.54587\n      b_mtem(2,ja,je) = -7.50976\n      b_mtem(3,ja,je) = 12.8237\n      b_mtem(4,ja,je) = -10.1452\n      b_mtem(5,ja,je) = -0.541956\n      b_mtem(6,ja,je) = 3.34536\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 0.829757\n      b_mtem(2,ja,je) = -4.11316\n      b_mtem(3,ja,je) = 3.67111\n      b_mtem(4,ja,je) = 3.6833\n      b_mtem(5,ja,je) = -11.2711\n      b_mtem(6,ja,je) = 6.71421\n\n\n!----------\n! h.hso4 in e\n      ja = jhhso4\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = 2.63953\n      b_mtem(2,ja,je) = -6.01532\n      b_mtem(3,ja,je) = 10.0204\n      b_mtem(4,ja,je) = -12.4840\n      b_mtem(5,ja,je) = 7.78853\n      b_mtem(6,ja,je) = -2.12638\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -0.77412\n      b_mtem(2,ja,je) = 14.1656\n      b_mtem(3,ja,je) = -53.4087\n      b_mtem(4,ja,je) = 93.2013\n      b_mtem(5,ja,je) = -80.5723\n      b_mtem(6,ja,je) = 27.1577\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -2.98882\n      b_mtem(2,ja,je) = 14.4436\n      b_mtem(3,ja,je) = -40.1774\n      b_mtem(4,ja,je) = 67.5937\n      b_mtem(5,ja,je) = -61.5040\n      b_mtem(6,ja,je) = 22.3695\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -1.15502\n      b_mtem(2,ja,je) = 8.12309\n      b_mtem(3,ja,je) = -38.4726\n      b_mtem(4,ja,je) = 80.8861\n      b_mtem(5,ja,je) = -80.1644\n      b_mtem(6,ja,je) = 30.4717\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = 1.99641\n      b_mtem(2,ja,je) = -2.96061\n      b_mtem(3,ja,je) = 5.54778\n      b_mtem(4,ja,je) = -14.5488\n      b_mtem(5,ja,je) = 14.8492\n      b_mtem(6,ja,je) = -5.1389\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = 2.23816\n      b_mtem(2,ja,je) = -3.20847\n      b_mtem(3,ja,je) = -4.82853\n      b_mtem(4,ja,je) = 20.9192\n      b_mtem(5,ja,je) = -27.2819\n      b_mtem(6,ja,je) = 11.8655\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 2.56907\n      b_mtem(2,ja,je) = 1.13444\n      b_mtem(3,ja,je) = -34.6853\n      b_mtem(4,ja,je) = 87.9775\n      b_mtem(5,ja,je) = -93.2330\n      b_mtem(6,ja,je) = 35.9260\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 2.00024\n      b_mtem(2,ja,je) = -4.80868\n      b_mtem(3,ja,je) = 8.29222\n      b_mtem(4,ja,je) = -11.0849\n      b_mtem(5,ja,je) = 7.51262\n      b_mtem(6,ja,je) = -2.07654\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 2.8009\n      b_mtem(2,ja,je) = -6.98416\n      b_mtem(3,ja,je) = 14.3146\n      b_mtem(4,ja,je) = -22.0068\n      b_mtem(5,ja,je) = 17.5557\n      b_mtem(6,ja,je) = -5.84917\n\n\n!----------\n! nh4hso4 in e\n      ja = jnh4hso4\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = 0.169160\n      b_mtem(2,ja,je) = 2.15094\n      b_mtem(3,ja,je) = -9.62904\n      b_mtem(4,ja,je) = 18.2631\n      b_mtem(5,ja,je) = -17.3333\n      b_mtem(6,ja,je) = 6.19835\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -2.34457\n      b_mtem(2,ja,je) = 12.8035\n      b_mtem(3,ja,je) = -35.2513\n      b_mtem(4,ja,je) = 53.6153\n      b_mtem(5,ja,je) = -42.7655\n      b_mtem(6,ja,je) = 13.7129\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -2.56109\n      b_mtem(2,ja,je) = 11.1414\n      b_mtem(3,ja,je) = -30.2361\n      b_mtem(4,ja,je) = 50.0320\n      b_mtem(5,ja,je) = -44.1586\n      b_mtem(6,ja,je) = 15.5393\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -0.97315\n      b_mtem(2,ja,je) = 7.06295\n      b_mtem(3,ja,je) = -29.3032\n      b_mtem(4,ja,je) = 57.6101\n      b_mtem(5,ja,je) = -54.9020\n      b_mtem(6,ja,je) = 20.2222\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = -0.44450\n      b_mtem(2,ja,je) = 3.33451\n      b_mtem(3,ja,je) = -15.2791\n      b_mtem(4,ja,je) = 30.1413\n      b_mtem(5,ja,je) = -26.7710\n      b_mtem(6,ja,je) = 8.78462\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = -0.99780\n      b_mtem(2,ja,je) = 4.69200\n      b_mtem(3,ja,je) = -16.1219\n      b_mtem(4,ja,je) = 29.3100\n      b_mtem(5,ja,je) = -26.3383\n      b_mtem(6,ja,je) = 9.20695\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -0.52694\n      b_mtem(2,ja,je) = 7.02684\n      b_mtem(3,ja,je) = -33.7508\n      b_mtem(4,ja,je) = 70.0565\n      b_mtem(5,ja,je) = -68.3226\n      b_mtem(6,ja,je) = 25.2692\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 0.572926\n      b_mtem(2,ja,je) = -2.04791\n      b_mtem(3,ja,je) = 2.1134\n      b_mtem(4,ja,je) = 0.246654\n      b_mtem(5,ja,je) = -3.06019\n      b_mtem(6,ja,je) = 1.98126\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 0.56514\n      b_mtem(2,ja,je) = 0.22287\n      b_mtem(3,ja,je) = -2.76973\n      b_mtem(4,ja,je) = 4.54444\n      b_mtem(5,ja,je) = -3.86549\n      b_mtem(6,ja,je) = 1.13441\n\n\n!----------\n! (nh4)3h(so4)2 in e\n      ja = jlvcite\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = -1.44811\n      b_mtem(2,ja,je) = 6.71815\n      b_mtem(3,ja,je) = -25.0141\n      b_mtem(4,ja,je) = 50.1109\n      b_mtem(5,ja,je) = -50.0561\n      b_mtem(6,ja,je) = 19.3370\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -3.41707\n      b_mtem(2,ja,je) = 13.4496\n      b_mtem(3,ja,je) = -34.8018\n      b_mtem(4,ja,je) = 55.2987\n      b_mtem(5,ja,je) = -48.1839\n      b_mtem(6,ja,je) = 17.2444\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -2.54479\n      b_mtem(2,ja,je) = 11.8501\n      b_mtem(3,ja,je) = -39.7286\n      b_mtem(4,ja,je) = 74.2479\n      b_mtem(5,ja,je) = -70.4934\n      b_mtem(6,ja,je) = 26.2836\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -2.30561\n      b_mtem(2,ja,je) = 14.5806\n      b_mtem(3,ja,je) = -55.1238\n      b_mtem(4,ja,je) = 103.451\n      b_mtem(5,ja,je) = -95.2571\n      b_mtem(6,ja,je) = 34.2218\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = -2.20809\n      b_mtem(2,ja,je) = 13.6391\n      b_mtem(3,ja,je) = -57.8246\n      b_mtem(4,ja,je) = 117.907\n      b_mtem(5,ja,je) = -112.154\n      b_mtem(6,ja,je) = 40.3058\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = -1.15099\n      b_mtem(2,ja,je) = 6.32269\n      b_mtem(3,ja,je) = -27.3860\n      b_mtem(4,ja,je) = 55.4592\n      b_mtem(5,ja,je) = -54.0100\n      b_mtem(6,ja,je) = 20.3469\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -1.15678\n      b_mtem(2,ja,je) = 8.28718\n      b_mtem(3,ja,je) = -37.3231\n      b_mtem(4,ja,je) = 76.6124\n      b_mtem(5,ja,je) = -74.9307\n      b_mtem(6,ja,je) = 28.0559\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 0.01502\n      b_mtem(2,ja,je) = -3.1197\n      b_mtem(3,ja,je) = 3.61104\n      b_mtem(4,ja,je) = 3.05196\n      b_mtem(5,ja,je) = -9.98957\n      b_mtem(6,ja,je) = 6.04155\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = -1.06477\n      b_mtem(2,ja,je) = 3.38801\n      b_mtem(3,ja,je) = -12.5784\n      b_mtem(4,ja,je) = 25.2823\n      b_mtem(5,ja,je) = -25.4611\n      b_mtem(6,ja,je) = 10.0754\n\n\n!----------\n! nahso4 in e\n      ja = jnahso4\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = 0.68259\n      b_mtem(2,ja,je) = 0.71468\n      b_mtem(3,ja,je) = -5.59003\n      b_mtem(4,ja,je) = 11.0089\n      b_mtem(5,ja,je) = -10.7983\n      b_mtem(6,ja,je) = 3.82335\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -0.03956\n      b_mtem(2,ja,je) = 4.52828\n      b_mtem(3,ja,je) = -25.2557\n      b_mtem(4,ja,je) = 54.4225\n      b_mtem(5,ja,je) = -52.5105\n      b_mtem(6,ja,je) = 18.6562\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -1.53503\n      b_mtem(2,ja,je) = 8.27608\n      b_mtem(3,ja,je) = -28.9539\n      b_mtem(4,ja,je) = 55.2876\n      b_mtem(5,ja,je) = -51.9563\n      b_mtem(6,ja,je) = 18.6576\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -0.38793\n      b_mtem(2,ja,je) = 7.14680\n      b_mtem(3,ja,je) = -38.7201\n      b_mtem(4,ja,je) = 84.3965\n      b_mtem(5,ja,je) = -84.7453\n      b_mtem(6,ja,je) = 32.1283\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = -0.41982\n      b_mtem(2,ja,je) = 4.26491\n      b_mtem(3,ja,je) = -20.2351\n      b_mtem(4,ja,je) = 42.6764\n      b_mtem(5,ja,je) = -40.7503\n      b_mtem(6,ja,je) = 14.2868\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = -0.32912\n      b_mtem(2,ja,je) = 1.80808\n      b_mtem(3,ja,je) = -8.01286\n      b_mtem(4,ja,je) = 15.5791\n      b_mtem(5,ja,je) = -14.5494\n      b_mtem(6,ja,je) = 5.27052\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = 0.10271\n      b_mtem(2,ja,je) = 5.09559\n      b_mtem(3,ja,je) = -30.3295\n      b_mtem(4,ja,je) = 66.2975\n      b_mtem(5,ja,je) = -66.3458\n      b_mtem(6,ja,je) = 24.9443\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 0.608309\n      b_mtem(2,ja,je) = -0.541905\n      b_mtem(3,ja,je) = -2.52084\n      b_mtem(4,ja,je) = 6.63297\n      b_mtem(5,ja,je) = -7.24599\n      b_mtem(6,ja,je) = 2.88811\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 1.98399\n      b_mtem(2,ja,je) = -4.51562\n      b_mtem(3,ja,je) = 8.36059\n      b_mtem(4,ja,je) = -12.4948\n      b_mtem(5,ja,je) = 9.67514\n      b_mtem(6,ja,je) = -3.18004\n\n\n!----------\n! na3h(so4)2 in e\n      ja = jna3hso4\n\n! in h2so4\n      je = jh2so4\n      b_mtem(1,ja,je) = -0.83214\n      b_mtem(2,ja,je) = 4.99572\n      b_mtem(3,ja,je) = -20.1697\n      b_mtem(4,ja,je) = 41.4066\n      b_mtem(5,ja,je) = -42.2119\n      b_mtem(6,ja,je) = 16.4855\n\n! in nh4hso4\n      je = jnh4hso4\n      b_mtem(1,ja,je) = -0.65139\n      b_mtem(2,ja,je) = 3.52300\n      b_mtem(3,ja,je) = -22.8220\n      b_mtem(4,ja,je) = 56.2956\n      b_mtem(5,ja,je) = -59.9028\n      b_mtem(6,ja,je) = 23.1844\n\n! in (nh4)3h(so4)2\n      je = jlvcite\n      b_mtem(1,ja,je) = -1.31331\n      b_mtem(2,ja,je) = 8.40835\n      b_mtem(3,ja,je) = -38.1757\n      b_mtem(4,ja,je) = 80.5312\n      b_mtem(5,ja,je) = -79.8346\n      b_mtem(6,ja,je) = 30.0219\n\n! in (nh4)2so4\n      je = jnh4so4\n      b_mtem(1,ja,je) = -1.03054\n      b_mtem(2,ja,je) = 8.08155\n      b_mtem(3,ja,je) = -38.1046\n      b_mtem(4,ja,je) = 78.7168\n      b_mtem(5,ja,je) = -77.2263\n      b_mtem(6,ja,je) = 29.1521\n\n! in nahso4\n      je = jnahso4\n      b_mtem(1,ja,je) = -1.90695\n      b_mtem(2,ja,je) = 11.6241\n      b_mtem(3,ja,je) = -50.3175\n      b_mtem(4,ja,je) = 105.884\n      b_mtem(5,ja,je) = -103.258\n      b_mtem(6,ja,je) = 37.6588\n\n! in na3h(so4)2\n      je = jna3hso4\n      b_mtem(1,ja,je) = -0.34780\n      b_mtem(2,ja,je) = 2.85363\n      b_mtem(3,ja,je) = -17.6224\n      b_mtem(4,ja,je) = 38.9220\n      b_mtem(5,ja,je) = -39.8106\n      b_mtem(6,ja,je) = 15.6055\n\n! in na2so4\n      je = jna2so4\n      b_mtem(1,ja,je) = -0.75230\n      b_mtem(2,ja,je) = 10.0140\n      b_mtem(3,ja,je) = -50.5677\n      b_mtem(4,ja,je) = 106.941\n      b_mtem(5,ja,je) = -105.534\n      b_mtem(6,ja,je) = 39.5196\n\n! in hno3\n      je = jhno3\n      b_mtem(1,ja,je) = 0.057456\n      b_mtem(2,ja,je) = -1.31264\n      b_mtem(3,ja,je) = -1.94662\n      b_mtem(4,ja,je) = 10.7024\n      b_mtem(5,ja,je) = -14.9946\n      b_mtem(6,ja,je) = 7.12161\n\n! in hcl\n      je = jhcl\n      b_mtem(1,ja,je) = 0.637894\n      b_mtem(2,ja,je) = -2.29719\n      b_mtem(3,ja,je) = 0.765361\n      b_mtem(4,ja,je) = 4.8748\n      b_mtem(5,ja,je) = -9.25978\n      b_mtem(6,ja,je) = 4.91773\n!\n!\n!\n!----------------------------------------------------------\n! coefficients for %mdrh(t) = d1 + d2*t + d3*t^2 + d4*t^3    (t in kelvin)\n! valid temperature range: 240 - 320 k\n!----------------------------------------------------------\n!\n! sulfate-poor systems\n! ac\n      j_index = 1\n      d_mdrh(j_index,1) = -58.00268351\n      d_mdrh(j_index,2) = 2.031077573\n      d_mdrh(j_index,3) = -0.008281218\n      d_mdrh(j_index,4) = 1.00447e-05\n\n! an\n      j_index = 2\n      d_mdrh(j_index,1) = 1039.137773\n      d_mdrh(j_index,2) = -11.47847095\n      d_mdrh(j_index,3) = 0.047702786\n      d_mdrh(j_index,4) = -6.77675e-05\n\n! as\n      j_index = 3\n      d_mdrh(j_index,1) = 115.8366357\n      d_mdrh(j_index,2) = 0.491881663\n      d_mdrh(j_index,3) = -0.00422807\n      d_mdrh(j_index,4) = 7.29274e-06\n\n! sc\n      j_index = 4\n      d_mdrh(j_index,1) = 253.2424151\n      d_mdrh(j_index,2) = -1.429957864\n      d_mdrh(j_index,3) = 0.003727554\n      d_mdrh(j_index,4) = -3.13037e-06\n\n! sn\n      j_index = 5\n      d_mdrh(j_index,1) = -372.4306506\n      d_mdrh(j_index,2) = 5.3955633\n      d_mdrh(j_index,3) = -0.019804438\n      d_mdrh(j_index,4) = 2.25662e-05\n\n! ss\n      j_index = 6\n      d_mdrh(j_index,1) = 286.1271416\n      d_mdrh(j_index,2) = -1.670787758\n      d_mdrh(j_index,3) = 0.004431373\n      d_mdrh(j_index,4) = -3.57757e-06\n\n! cc\n      j_index = 7\n      d_mdrh(j_index,1) = -1124.07059\n      d_mdrh(j_index,2) = 14.26364209\n      d_mdrh(j_index,3) = -0.054816822\n      d_mdrh(j_index,4) = 6.70107e-05\n\n! cn\n      j_index = 8\n      d_mdrh(j_index,1) = 1855.413934\n      d_mdrh(j_index,2) = -20.29219473\n      d_mdrh(j_index,3) = 0.07807482\n      d_mdrh(j_index,4) = -1.017887858e-4\n\n! an + ac\n      j_index = 9\n      d_mdrh(j_index,1) = 1761.176886\n      d_mdrh(j_index,2) = -19.29811062\n      d_mdrh(j_index,3) = 0.075676987\n      d_mdrh(j_index,4) = -1.0116959e-4\n\n! as + ac\n      j_index = 10\n      d_mdrh(j_index,1) = 122.1074303\n      d_mdrh(j_index,2) = 0.429692122\n      d_mdrh(j_index,3) = -0.003928277\n      d_mdrh(j_index,4) = 6.43275e-06\n\n! as + an\n      j_index = 11\n      d_mdrh(j_index,1) = 2424.634678\n      d_mdrh(j_index,2) = -26.54031307\n      d_mdrh(j_index,3) = 0.101625387\n      d_mdrh(j_index,4) = -1.31544547798e-4\n\n! as + an + ac\n      j_index = 12\n      d_mdrh(j_index,1) = 2912.082599\n      d_mdrh(j_index,2) = -31.8894185\n      d_mdrh(j_index,3) = 0.121185849\n      d_mdrh(j_index,4) = -1.556534623e-4\n\n! sc + ac\n      j_index = 13\n      d_mdrh(j_index,1) = 172.2596493\n      d_mdrh(j_index,2) = -0.511006195\n      d_mdrh(j_index,3) = 4.27244597e-4\n      d_mdrh(j_index,4) = 4.12797e-07\n\n! sn + ac\n      j_index = 14\n      d_mdrh(j_index,1) = 1596.184935\n      d_mdrh(j_index,2) = -16.37945565\n      d_mdrh(j_index,3) = 0.060281218\n      d_mdrh(j_index,4) = -7.6161e-05\n\n! sn + an\n      j_index = 15\n      d_mdrh(j_index,1) = 1916.072988\n      d_mdrh(j_index,2) = -20.85594868\n      d_mdrh(j_index,3) = 0.081140141\n      d_mdrh(j_index,4) = -1.07954274796e-4\n\n! sn + an + ac\n      j_index = 16\n      d_mdrh(j_index,1) = 1467.165935\n      d_mdrh(j_index,2) = -16.01166196\n      d_mdrh(j_index,3) = 0.063505582\n      d_mdrh(j_index,4) = -8.66722e-05\n\n! sn + sc\n      j_index = 17\n      d_mdrh(j_index,1) = 158.447059\n      d_mdrh(j_index,2) = -0.628167358\n      d_mdrh(j_index,3) = 0.002014448\n      d_mdrh(j_index,4) = -3.13037e-06\n\n! sn + sc + ac\n      j_index = 18\n      d_mdrh(j_index,1) = 1115.892468\n      d_mdrh(j_index,2) = -11.76936534\n      d_mdrh(j_index,3) = 0.045577399\n      d_mdrh(j_index,4) = -6.05779e-05\n\n! ss + ac\n      j_index = 19\n      d_mdrh(j_index,1) = 269.5432407\n      d_mdrh(j_index,2) = -1.319963885\n      d_mdrh(j_index,3) = 0.002592363\n      d_mdrh(j_index,4) = -1.44479e-06\n\n! ss + an\n      j_index = 20\n      d_mdrh(j_index,1) = 2841.334784\n      d_mdrh(j_index,2) = -31.1889487\n      d_mdrh(j_index,3) = 0.118809274\n      d_mdrh(j_index,4) = -1.53007e-4\n\n! ss + an + ac\n      j_index = 21\n      d_mdrh(j_index,1) = 2199.36914\n      d_mdrh(j_index,2) = -24.11926569\n      d_mdrh(j_index,3) = 0.092932361\n      d_mdrh(j_index,4) = -1.21774e-4\n\n! ss + as\n      j_index = 22\n      d_mdrh(j_index,1) = 395.0051604\n      d_mdrh(j_index,2) = -2.521101657\n      d_mdrh(j_index,3) = 0.006139319\n      d_mdrh(j_index,4) = -4.43756e-06\n\n! ss + as + ac\n      j_index = 23\n      d_mdrh(j_index,1) = 386.5150675\n      d_mdrh(j_index,2) = -2.4632138\n      d_mdrh(j_index,3) = 0.006139319\n      d_mdrh(j_index,4) = -4.98796e-06\n\n! ss + as + an\n      j_index = 24\n      d_mdrh(j_index,1) = 3101.538491\n      d_mdrh(j_index,2) = -34.19978105\n      d_mdrh(j_index,3) = 0.130118605\n      d_mdrh(j_index,4) = -1.66873e-4\n\n! ss + as + an + ac\n      j_index = 25\n      d_mdrh(j_index,1) = 2307.579403\n      d_mdrh(j_index,2) = -25.43136774\n      d_mdrh(j_index,3) = 0.098064728\n      d_mdrh(j_index,4) = -1.28301e-4\n\n! ss + sc\n      j_index = 26\n      d_mdrh(j_index,1) = 291.8309602\n      d_mdrh(j_index,2) = -1.828912974\n      d_mdrh(j_index,3) = 0.005053148\n      d_mdrh(j_index,4) = -4.57516e-06\n\n! ss + sc + ac\n      j_index = 27\n      d_mdrh(j_index,1) = 188.3914345\n      d_mdrh(j_index,2) = -0.631345031\n      d_mdrh(j_index,3) = 0.000622807\n      d_mdrh(j_index,4) = 4.47196e-07\n\n! ss + sn\n      j_index = 28\n      d_mdrh(j_index,1) = -167.1252839\n      d_mdrh(j_index,2) = 2.969828002\n      d_mdrh(j_index,3) = -0.010637255\n      d_mdrh(j_index,4) = 1.13175e-05\n\n! ss + sn + ac\n      j_index = 29\n      d_mdrh(j_index,1) = 1516.782768\n      d_mdrh(j_index,2) = -15.7922661\n      d_mdrh(j_index,3) = 0.058942209\n      d_mdrh(j_index,4) = -7.5301e-05\n\n! ss + sn + an\n      j_index = 30\n      d_mdrh(j_index,1) = 1739.963163\n      d_mdrh(j_index,2) = -19.06576022\n      d_mdrh(j_index,3) = 0.07454963\n      d_mdrh(j_index,4) = -9.94302e-05\n\n! ss + sn + an + ac\n      j_index = 31\n      d_mdrh(j_index,1) = 2152.104877\n      d_mdrh(j_index,2) = -23.74998008\n      d_mdrh(j_index,3) = 0.092256654\n      d_mdrh(j_index,4) = -1.21953e-4\n\n! ss + sn + sc\n      j_index = 32\n      d_mdrh(j_index,1) = 221.9976265\n      d_mdrh(j_index,2) = -1.311331272\n      d_mdrh(j_index,3) = 0.004406089\n      d_mdrh(j_index,4) = -5.88235e-06\n\n! ss + sn + sc + ac\n      j_index = 33\n      d_mdrh(j_index,1) = 1205.645615\n      d_mdrh(j_index,2) = -12.71353459\n      d_mdrh(j_index,3) = 0.048803922\n      d_mdrh(j_index,4) = -6.41899e-05\n\n! cc + ac\n      j_index = 34\n      d_mdrh(j_index,1) = 506.6737879\n      d_mdrh(j_index,2) = -3.723520818\n      d_mdrh(j_index,3) = 0.010814242\n      d_mdrh(j_index,4) = -1.21087e-05\n\n! cc + sc\n      j_index = 35\n      d_mdrh(j_index,1) = -1123.523841\n      d_mdrh(j_index,2) = 14.08345977\n      d_mdrh(j_index,3) = -0.053687823\n      d_mdrh(j_index,4) = 6.52219e-05\n\n! cc + sc + ac\n      j_index = 36\n      d_mdrh(j_index,1) = -1159.98607\n      d_mdrh(j_index,2) = 14.44309169\n      d_mdrh(j_index,3) = -0.054841073\n      d_mdrh(j_index,4) = 6.64259e-05\n\n! cn + ac\n      j_index = 37\n      d_mdrh(j_index,1) = 756.0747916\n      d_mdrh(j_index,2) = -8.546826257\n      d_mdrh(j_index,3) = 0.035798677\n      d_mdrh(j_index,4) = -5.06629e-05\n\n! cn + an\n      j_index = 38\n      d_mdrh(j_index,1) = 338.668191\n      d_mdrh(j_index,2) = -2.971223403\n      d_mdrh(j_index,3) = 0.012294866\n      d_mdrh(j_index,4) = -1.87558e-05\n\n! cn + an + ac\n      j_index = 39\n      d_mdrh(j_index,1) = -53.18033508\n      d_mdrh(j_index,2) = 0.663911748\n      d_mdrh(j_index,3) = 9.16326e-4\n      d_mdrh(j_index,4) = -6.70354e-06\n\n! cn + sc\n      j_index = 40\n      d_mdrh(j_index,1) = 3623.831129\n      d_mdrh(j_index,2) = -39.27226457\n      d_mdrh(j_index,3) = 0.144559515\n      d_mdrh(j_index,4) = -1.78159e-4\n\n! cn + sc + ac\n      j_index = 41\n      d_mdrh(j_index,1) = 3436.656743\n      d_mdrh(j_index,2) = -37.16192684\n      d_mdrh(j_index,3) = 0.136641377\n      d_mdrh(j_index,4) = -1.68262e-4\n\n! cn + sn\n      j_index = 42\n      d_mdrh(j_index,1) = 768.608476\n      d_mdrh(j_index,2) = -8.051517149\n      d_mdrh(j_index,3) = 0.032342332\n      d_mdrh(j_index,4) = -4.52224e-05\n\n! cn + sn + ac\n      j_index = 43\n      d_mdrh(j_index,1) = 33.58027951\n      d_mdrh(j_index,2) = -0.308772182\n      d_mdrh(j_index,3) = 0.004713639\n      d_mdrh(j_index,4) = -1.19658e-05\n\n! cn + sn + an\n      j_index = 44\n      d_mdrh(j_index,1) = 57.80183041\n      d_mdrh(j_index,2) = 0.215264604\n      d_mdrh(j_index,3) = 4.11406e-4\n      d_mdrh(j_index,4) = -4.30702e-06\n\n! cn + sn + an + ac\n      j_index = 45\n      d_mdrh(j_index,1) = -234.368984\n      d_mdrh(j_index,2) = 2.721045204\n      d_mdrh(j_index,3) = -0.006688341\n      d_mdrh(j_index,4) = 2.31729e-06\n\n! cn + sn + sc\n      j_index = 46\n      d_mdrh(j_index,1) = 3879.080557\n      d_mdrh(j_index,2) = -42.13562874\n      d_mdrh(j_index,3) = 0.155235005\n      d_mdrh(j_index,4) = -1.91387e-4\n\n! cn + sn + sc + ac\n      j_index = 47\n      d_mdrh(j_index,1) = 3600.576985\n      d_mdrh(j_index,2) = -39.0283489\n      d_mdrh(j_index,3) = 0.143710316\n      d_mdrh(j_index,4) = -1.77167e-4\n\n! cn + cc\n      j_index = 48\n      d_mdrh(j_index,1) = -1009.729826\n      d_mdrh(j_index,2) = 12.9145339\n      d_mdrh(j_index,3) = -0.049811146\n      d_mdrh(j_index,4) = 6.09563e-05\n\n! cn + cc + ac\n      j_index = 49\n      d_mdrh(j_index,1) = -577.0919514\n      d_mdrh(j_index,2) = 8.020324227\n      d_mdrh(j_index,3) = -0.031469556\n      d_mdrh(j_index,4) = 3.82181e-05\n\n! cn + cc + sc\n      j_index = 50\n      d_mdrh(j_index,1) = -728.9983499\n      d_mdrh(j_index,2) = 9.849458215\n      d_mdrh(j_index,3) = -0.03879257\n      d_mdrh(j_index,4) = 4.78844e-05\n\n! cn + cc + sc + ac\n      j_index = 51\n      d_mdrh(j_index,1) = -803.7026845\n      d_mdrh(j_index,2) = 10.61881494\n      d_mdrh(j_index,3) = -0.041402993\n      d_mdrh(j_index,4) = 5.08084e-05\n\n!\n! sulfate-rich systems\n! ab\n      j_index = 52\n      d_mdrh(j_index,1) = -493.6190458\n      d_mdrh(j_index,2) = 6.747053851\n      d_mdrh(j_index,3) = -0.026955267\n      d_mdrh(j_index,4) = 3.45118e-05\n\n! lv\n      j_index = 53\n      d_mdrh(j_index,1) = 53.37874093\n      d_mdrh(j_index,2) = 1.01368249\n      d_mdrh(j_index,3) = -0.005887513\n      d_mdrh(j_index,4) = 8.94393e-06\n\n! sb\n      j_index = 54\n      d_mdrh(j_index,1) = 206.619047\n      d_mdrh(j_index,2) = -1.342735684\n      d_mdrh(j_index,3) = 0.003197691\n      d_mdrh(j_index,4) = -1.93603e-06\n\n! ab + lv\n      j_index = 55\n      d_mdrh(j_index,1) = -493.6190458\n      d_mdrh(j_index,2) = 6.747053851\n      d_mdrh(j_index,3) = -0.026955267\n      d_mdrh(j_index,4) = 3.45118e-05\n\n! as + lv\n      j_index = 56\n      d_mdrh(j_index,1) = 53.37874093\n      d_mdrh(j_index,2) = 1.01368249\n      d_mdrh(j_index,3) = -0.005887513\n      d_mdrh(j_index,4) = 8.94393e-06\n\n! ss + sb\n      j_index = 57\n      d_mdrh(j_index,1) = 206.619047\n      d_mdrh(j_index,2) = -1.342735684\n      d_mdrh(j_index,3) = 0.003197691\n      d_mdrh(j_index,4) = -1.93603e-06\n\n! ss + lv\n      j_index = 58\n      d_mdrh(j_index,1) = 41.7619047\n      d_mdrh(j_index,2) = 1.303872053\n      d_mdrh(j_index,3) = -0.007647908\n      d_mdrh(j_index,4) = 1.17845e-05\n\n! ss + as + lv\n      j_index = 59\n      d_mdrh(j_index,1) = 41.7619047\n      d_mdrh(j_index,2) = 1.303872053\n      d_mdrh(j_index,3) = -0.007647908\n      d_mdrh(j_index,4) = 1.17845e-05\n\n! ss + ab\n      j_index = 60\n      d_mdrh(j_index,1) = -369.7142842\n      d_mdrh(j_index,2) = 5.512878771\n      d_mdrh(j_index,3) = -0.02301948\n      d_mdrh(j_index,4) = 3.0303e-05\n\n! ss + lv + ab\n      j_index = 61\n      d_mdrh(j_index,1) = -369.7142842\n      d_mdrh(j_index,2) = 5.512878771\n      d_mdrh(j_index,3) = -0.02301948\n      d_mdrh(j_index,4) = 3.0303e-05\n\n! sb + ab\n      j_index = 62\n      d_mdrh(j_index,1) = -162.8095232\n      d_mdrh(j_index,2) = 2.399326592\n      d_mdrh(j_index,3) = -0.009336219\n      d_mdrh(j_index,4) = 1.17845e-05\n\n! ss + sb + ab\n      j_index = 63\n      d_mdrh(j_index,1) = -735.4285689\n      d_mdrh(j_index,2) = 8.885521857\n      d_mdrh(j_index,3) = -0.033488456\n      d_mdrh(j_index,4) = 4.12458e-05\n\n\n      endif ! first\n\n      return\n      end subroutine load_mosaic_parameters\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n! updates all temperature dependent thermodynamic parameters\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n      subroutine update_thermodynamic_constants(vbs_nbin)\n!     implicit none\n!     include 'mosaic.h'\n! local variables\n      integer iv, j_index, ibin, je,vbs_nbin(1)\n      integer start_ind\n      real(kind=8) :: tr, rt, term\n      real(kind=8) :: gam_nh4no3_0, gam_nh4cl_0, m_nh4no3_0, m_nh4cl_0  ! raz update 6/25/2008\n! function\n!     real(kind=8) :: fn_keq, fn_po, drh_mutual, bin_molality, molality_0\n\n\n      tr = 298.15\t\t\t! reference temperature\n      rt = 82.056*t_k/(1.e9*1.e6)\t! [m^3 atm/nmol]\n\n! gas-liquid\n      keq_gl(1)= 1.0\t\t\t\t         ! kelvin effect (default)\n      keq_gl(2)= fn_keq(57.64d0 , 13.79d0, -5.39d0,t_k)*rt     ! nh3(g)  <=> nh3(l)\n      keq_gl(3)= fn_keq(2.63d6, 29.17d0, 16.83d0,t_k)*rt     ! hno3(g) <=> no3- + h+\n      keq_gl(4)= fn_keq(2.00d6, 30.20d0, 19.91d0,t_k)*rt     ! hcl(g)  <=> cl- + h+\n\n! liquid-liquid\n      keq_ll(1)= fn_keq(1.0502d-2, 8.85d0, 25.14d0,t_k)      ! hso4- <=> so4= + h+\n      keq_ll(2)= fn_keq(1.805d-5, -1.50d0, 26.92d0,t_k)      ! nh3(l) + h2o = nh4+ + oh-\n      keq_ll(3)= fn_keq(1.01d-14,-22.52d0, 26.92d0,t_k)      ! h2o(l) <=> h+ + oh-\n\n\n      kp_nh3   = keq_ll(3)/(keq_ll(2)*keq_gl(2))\n      kp_nh4no3= kp_nh3/keq_gl(3)\n      kp_nh4cl = kp_nh3/keq_gl(4)\n\n\n! solid-gas\n      keq_sg(1)= fn_keq(4.72d-17,-74.38d0,6.12d0,t_k)/rt**2  ! nh4no3<=>nh3(g)+hno3(g)\n      keq_sg(2)= fn_keq(8.43d-17,-71.00d0,2.40d0,t_k)/rt**2  ! nh4cl <=>nh3(g)+hcl(g)\n\n\n! solid-liquid\n      keq_sl(jnh4so4) = fn_keq(1.040d0,-2.65d0, 38.57d0, t_k)  ! amso4(s) = 2nh4+ + so4=\n      keq_sl(jlvcite) = fn_keq(11.8d0, -5.19d0, 54.40d0, t_k)  ! lvcite(s)= 3nh4+ + hso4- + so4=\n      keq_sl(jnh4hso4)= fn_keq(117.0d0,-2.87d0, 15.83d0, t_k)  ! amhso4(s)= nh4+ + hso4-\n      keq_sl(jnh4msa) = 1.e15\t\t\t\t ! NH4MSA(s)= NH4+ + MSA-\n      keq_sl(jnh4no3) = fn_keq(12.21d0,-10.4d0, 17.56d0, t_k)  ! nh4no3(s)= nh4+ + no3-\n      keq_sl(jnh4cl)  = fn_keq(17.37d0,-6.03d0, 16.92d0, t_k)  ! nh4cl(s) = nh4+ + cl-\n      keq_sl(jna2so4) = fn_keq(0.491d0, 0.98d0, 39.75d0, t_k)  ! na2so4(s)= 2na+ + so4=\n      keq_sl(jnahso4) = fn_keq(313.0d0, 0.8d0,  14.79d0, t_k)  ! nahso4(s)= na+ + hso4-\n      keq_sl(jna3hso4)= 1.e15\t\t \t         ! na3h(so4)2(s) = 2na+ + hso4- + so4=\n      keq_sl(jnamsa)  = 1.e15\t\t\t\t ! NaMSA(s) = Na+ + MSA-\n      keq_sl(jnano3)  = fn_keq(11.95d0,-8.22d0, 16.01d0, t_k)  ! nano3(s) = na+ + no3-\n      keq_sl(jnacl)   = fn_keq(38.28d0,-1.52d0, 16.89d0, t_k)  ! nacl(s)  = na+ + cl-\n      keq_sl(jcacl2)  = fn_keq(8.0d11,32.84d0,44.79d0, t_k)*1.e5  ! cacl2(s) = ca++ + 2cl-\n      keq_sl(jcano3)  = fn_keq(4.31d5, 7.83d0,42.01d0, t_k)*1.e5  ! ca(no3)2(s) = ca++ + 2no3-\n      keq_sl(jcamsa2) = 1.e15\t\t\t\t ! CaMSA2(s)= Ca+ + 2MSA-\n\n      start_ind = 1\n      if (vbs_nbin(1).eq.0) then\n        start_ind = ismpa_g\n      else if (vbs_nbin(1) .eq. 4) then\n        start_ind = iasoaX_g\n      else\n        start_ind = ipcg1_b_c_g\n      endif\n      \n      do iv = start_ind, ngas_ioa + ngas_soa\n        sat_soa(iv) = 0.0       ! [nmol/m^3(air)]\n      enddo\n\n       if (vbs_nbin(1).eq.9) then\n! vapor pressures of soa species\n      po_soa(ipcg1_b_c_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_b_c_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(ipcg3_b_c_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(ipcg4_b_c_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(ipcg5_b_c_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(ipcg6_b_c_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(ipcg7_b_c_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(ipcg8_b_c_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg9_b_c_g) = fn_po(9.91d0, 64.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_b_c_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(iopcg2_b_c_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(iopcg3_b_c_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(iopcg4_b_c_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(iopcg5_b_c_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(iopcg6_b_c_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(iopcg7_b_c_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(iopcg8_b_c_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg1_b_o_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_b_o_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(ipcg3_b_o_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(ipcg4_b_o_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(ipcg5_b_o_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(ipcg6_b_o_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(ipcg7_b_o_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(ipcg8_b_o_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg9_b_o_g) = fn_po(9.91d0, 64.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_b_o_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(iopcg2_b_o_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(iopcg3_b_o_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(iopcg4_b_o_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(iopcg5_b_o_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(iopcg6_b_o_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(iopcg7_b_o_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(iopcg8_b_o_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg1_f_c_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_f_c_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(ipcg3_f_c_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(ipcg4_f_c_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(ipcg5_f_c_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(ipcg6_f_c_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(ipcg7_f_c_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(ipcg8_f_c_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg9_f_c_g) = fn_po(9.91d0, 64.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_f_c_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(iopcg2_f_c_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(iopcg3_f_c_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(iopcg4_f_c_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(iopcg5_f_c_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(iopcg6_f_c_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(iopcg7_f_c_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(iopcg8_f_c_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg1_f_o_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_f_o_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(ipcg3_f_o_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(ipcg4_f_o_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(ipcg5_f_o_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(ipcg6_f_o_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(ipcg7_f_o_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(ipcg8_f_o_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n      po_soa(ipcg9_f_o_g) = fn_po(9.91d0, 64.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_f_o_g) = fn_po(9.91d-8, 112.0d0, T_K) ! [Pascal]\n      po_soa(iopcg2_f_o_g) = fn_po(9.91d-7, 106.0d0, T_K) ! [Pascal]\n      po_soa(iopcg3_f_o_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(iopcg4_f_o_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(iopcg5_f_o_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(iopcg6_f_o_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(iopcg7_f_o_g) = fn_po(9.91d-2, 76.0d0, T_K) ! [Pascal]\n      po_soa(iopcg8_f_o_g) = fn_po(9.91d-1, 70.0d0, T_K) ! [Pascal]\n\n      po_soa(iant1_c_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(iant2_c_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(iant3_c_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(iant4_c_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(iant1_o_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(iant2_o_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(iant3_o_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(iant4_o_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(ibiog1_c_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(ibiog2_c_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(ibiog3_c_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(ibiog4_c_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      po_soa(ibiog1_o_g) = fn_po(9.91d-6, 100.0d0, T_K) ! [Pascal]\n      po_soa(ibiog2_o_g) = fn_po(9.91d-5, 94.0d0, T_K) ! [Pascal]\n      po_soa(ibiog3_o_g) = fn_po(9.91d-4, 88.0d0, T_K) ! [Pascal]\n      po_soa(ibiog4_o_g) = fn_po(9.91d-3, 82.0d0, T_K) ! [Pascal]\n      endif\n\n      if (vbs_nbin(1).eq.4) then\n        po_soa(iasoaX_g) = fn_po(9.91d-10, 40.0d0, T_K) ! [Pascal]\n        po_soa(iasoa1_g) = fn_po(9.91d-6, dhr_approx(0.0d0), T_K) ! [Pascal]\n        po_soa(iasoa2_g) = fn_po(9.91d-5, dhr_approx(1.0d0), T_K) ! [Pascal]\n        po_soa(iasoa3_g) = fn_po(9.91d-4, dhr_approx(2.0d0), T_K) ! [Pascal]\n        po_soa(iasoa4_g) = fn_po(9.91d-3, dhr_approx(3.0d0), T_K) ! [Pascal]\n        po_soa(ibsoaX_g) = fn_po(9.91d-10, 40.0d0, T_K) ! [Pascal]\n        po_soa(ibsoa1_g) = fn_po(9.91d-6, dhr_approx(0.0d0), T_K) ! [Pascal]\n        po_soa(ibsoa2_g) = fn_po(9.91d-5, dhr_approx(1.0d0), T_K) ! [Pascal]\n        po_soa(ibsoa3_g) = fn_po(9.91d-4, dhr_approx(2.0d0), T_K) ! [Pascal]\n        po_soa(ibsoa4_g) = fn_po(9.91d-3, dhr_approx(3.0d0), T_K) ! [Pascal]\n      endif\n\n      if (vbs_nbin(1).eq.2) then\n      po_soa(ipcg1_b_c_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_b_c_g) = fn_po(9.91d-1, 83.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_b_c_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg1_b_o_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_b_o_g) = fn_po(9.91d-1, 83.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_b_o_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg1_f_c_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_f_c_g) = fn_po(9.91d-1, 83.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_f_c_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg1_f_o_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(ipcg2_f_o_g) = fn_po(9.91d-1, 83.0d0, T_K) ! [Pascal]\n      po_soa(iopcg1_f_o_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n      po_soa(iant1_c_g) = fn_po(9.91d-6, 83.0d0, T_K) ! [Pascal]\n      po_soa(iant1_o_g) = fn_po(9.91d-6, 83.0d0, T_K) ! [Pascal]\n      po_soa(ibiog1_c_g) = fn_po(9.91d-6, 83.0d0, T_K) ! [Pascal]\n      po_soa(ibiog1_o_g) = fn_po(9.91d-6, 83.0d0, T_K) ! [Pascal]\n      endif\n      if (vbs_nbin(1).eq.0) then\n        po_soa(ismpa_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n        po_soa(ismpbb_g) = fn_po(9.91d-8, 83.0d0, T_K) ! [Pascal]\n        po_soa(ibiog1_c_g) = fn_po(9.91d-6, 83.0d0, T_K) ! [Pascal]\n        po_soa(ibiog1_o_g) = fn_po(9.91d-6, 83.0d0, T_K) ! [Pascal]\n      endif\n\n      start_ind = 1\n      if (vbs_nbin(1).eq.0) then\n        start_ind = ismpa_g\n      else if (vbs_nbin(1).eq.4) then\n        start_ind = iasoaX_g\n      else\n        start_ind = ipcg1_b_c_g\n      end if\n\n      do iv = start_ind, ngas_ioa + ngas_soa\n        sat_soa(iv) = 1.e9*po_soa(iv)/(8.314*t_k)\t! [nmol/m^3(air)]\n      enddo\n\n! water surface tension\n      term = (647.15 - t_k)/647.15\n      sigma_water = 0.2358*term**1.256 * (1. - 0.625*term) ! surface tension of pure water in n/m\n\n! mdrh(t)\n      do j_index = 1, 63\n        mdrh_t(j_index) = drh_mutual(j_index)\n      enddo\n\n\n\n! rh dependent parameters\n      do ibin = 1, nbin_a\n        ah2o_a(ibin) = ah2o\t\t\t! initialize\n      enddo\n\n      call mtem_compute_log_gamz\t\t! function of ah2o and t\n\n! raz update 6/25/2008 - start\n      gam_nh4no3_0 = 10.**log_gamZ(jnh4no3,jnh4no3)\n      gam_nh4cl_0  = 10.**log_gamZ(jnh4cl,jnh4cl)\n\n      m_nh4no3_0   = molality_0(jnh4no3)\n      m_nh4cl_0    = molality_0(jnh4cl)\n\n      Kp_nh4no3_0  = Kp_nh4no3*(m_nh4no3_0*gam_nh4no3_0)**2\n      Kp_nh4cl_0   = Kp_nh4cl *(m_nh4cl_0 *gam_nh4cl_0 )**2\n! raz update 6/25/2008 - end\n\n\n\n      return\n      end subroutine update_thermodynamic_constants\n\n      ! Function to approximate enthalpy of vaporization for\n      ! semi-volatile organic aerosols as a function of volatility\n      ! from Epstein et al., ES&T, 2010 \n      ! http://pubs.acs.org/doi/abs/10.1021/es902497z\n      real(kind=8) function dhr_approx(log10_Csat_298)\n\n        real(kind=8), intent(in) :: log10_Csat_298\n\n        dhr_approx = -11.0 * log10_Csat_298 + 131.0 ! kJ/mol\n\n      end function dhr_approx\n\n\n\n!***********************************************************************\n! functions used in mosaic\n!\n! author: rahul a. zaveri\n! update: jan 2005\n!-----------------------------------------------------------------------\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function fn_keq(keq_298, a, b, t)\n!     implicit none\n! subr. arguments\n      real(kind=8) keq_298, a, b, t\n! local variables\n      real(kind=8) tt\n\n\n        tt = 298.15/t\n        fn_keq = keq_298*exp(a*(tt-1.)+b*(1.+log(tt)-tt))\n\n      return\n      end function fn_keq\n!----------------------------------------------------------\n\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function fn_po(po_298, dh, t)\t! touch\n!     implicit none\n! subr. arguments\n      real(kind=8) po_298, dh, t\n! local variables\n\n        fn_po = po_298*exp(-(dh/8.314e-3)*(1./t - 3.354016435e-3))\n\n      return\n      end function fn_po\n!----------------------------------------------------------\n\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function drh_mutual(j_index)\n!     implicit none\n!     include 'mosaic.h'\n! subr. arguments\n      integer j_index\n! local variables\n      integer j\n\n\n      j = j_index\n\n      if(j_index .eq. 7 .or. j_index .eq. 8 .or.   &\n        (j_index.ge. 34 .and. j_index .le. 51))then\n\n        drh_mutual = 10.0  ! cano3 or cacl2 containing mixtures\n\n      else\n\n        drh_mutual =  d_mdrh(j,1) + t_k*   &\n                     (d_mdrh(j,2) + t_k*   &\n                     (d_mdrh(j,3) + t_k*   &\n                      d_mdrh(j,4) )) + 1.0\n\n      endif\n\n\n      return\n      end function drh_mutual\n!----------------------------------------------------------\n\n\n\n\n\n\n!----------------------------------------------------------\n! zsr method at 60% rh\n!\n      real(kind=8) function aerosol_water_up(ibin) ! kg (water)/m^3 (air)\n!     implicit none\n!     include 'mosaic.h'\n! subr. arguments\n      integer ibin\n! local variables\n      integer jp, je\n      real(kind=8) dum\n! function\n!     real(kind=8) bin_molality_60\n\n\n      jp = jtotal\n      dum = 0.0\n\n      do je = 1, (nsalt+4)\t! include hno3 and hcl in water calculation\n        dum = dum + 1.e-9*electrolyte(je,jp,ibin)/bin_molality_60(je)\n      enddo\n\n      aerosol_water_up = dum\n\n      return\n      end function aerosol_water_up\n!----------------------------------------------------------\n\n\n\n\n\n\n!----------------------------------------------------------\n! zsr method\n      real(kind=8) function aerosol_water(jp,ibin) ! kg (water)/m^3 (air)\n!     implicit none\n!     include 'mosaic.h'\n! subr. arguments\n      integer jp, ibin\n! local variables\n      integer je\n      real(kind=8) dum\n! function\n!     real(kind=8) bin_molality\n\n\n\n      dum = 0.0\n      do je = 1, (nsalt+4)\t! include hno3 and hcl in water calculation\n        dum = dum + 1.e-9*electrolyte(je,jp,ibin)/bin_molality(je,ibin)\n      enddo\n\n      aerosol_water = dum\n\n      if(aerosol_water .le. 0.0)then\n        if (iprint_mosaic_diag1 .gt. 0) then\n          write(6,*)'mosaic aerosol_water - water .le. 0'\n          write(6,*)'iclm  jclm  ibin  jp = ',   &\n                     iclm_aer, jclm_aer, ibin, jp\n          write(6,*)'ah2o, water = ', ah2o, aerosol_water\n          write(6,*)'dry mass = ', mass_dry_a(ibin)\n          write(6,*)'soluble mass = ', mass_soluble_a(ibin)\n          write(6,*)'number = ', num_a(ibin)\n          do je = 1, nsoluble\n            write(6,44)ename(je), electrolyte(je,jp,ibin)\n          enddo\n          write(6,*)'error in water calculation'\n          write(6,*)'ibin = ', ibin\n          write(6,*)'water content cannot be negative or zero'\n          write(6,*)'setting jaerosolstate to all_solid'\n          stop\n        endif\n\n        call print_input\n\n        jaerosolstate(ibin) = all_solid\n        jphase(ibin)    = jsolid\n        jhyst_leg(ibin) = jhyst_lo\n\n!c        write(6,*)'stopping execution in function aerosol_water'\n!c        stop\n      endif\n\n44    format(a7, 2x, e11.3)\n\n\n      return\n      end function aerosol_water\n!----------------------------------------------------------\n\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function bin_molality(je,ibin)\n!     implicit none\n!     include 'mosaic.h'\n! subr. arguments\n      integer je, ibin\n! local variables\n      real(kind=8) aw, xm\n\n\n      aw = max(ah2o_a(ibin), aw_min(je))\n      aw = min(aw, 0.999999D0)\n\n\n      if(aw .lt. 0.97)then\n\n        xm =     a_zsr(1,je) +   &\n             aw*(a_zsr(2,je) +   &\n             aw*(a_zsr(3,je) +   &\n             aw*(a_zsr(4,je) +   &\n             aw*(a_zsr(5,je) +   &\n             aw* a_zsr(6,je) ))))\n\n        bin_molality = 55.509*xm/(1. - xm)\n\n      else\n\n        bin_molality = -b_zsr(je)*log(aw)\n\n      endif\n\n\n      return\n      end function bin_molality\n!----------------------------------------------------------\n\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function bin_molality_60(je)\n!     implicit none\n!     include 'mosaic.h'\n! subr. arguments\n      integer je\n! local variables\n      real(kind=8) aw, xm\n\n\n      aw = 0.6\n\n        xm =  a_zsr(1,je) + aw*   &\n             (a_zsr(2,je) + aw*   &\n             (a_zsr(3,je) + aw*   &\n             (a_zsr(4,je) + aw*   &\n             (a_zsr(5,je) + aw*   &\n              a_zsr(6,je) ))))\n\n      bin_molality_60 = 55.509*xm/(1. - xm)\n\n      return\n      end function bin_molality_60\n!----------------------------------------------------------\n\n\n!----------------------------------------------------------\n! raz update 6/25/2008 - start\n      real(kind=8) function molality_0(je)\n!      implicit none\n! subr. arguments\n      integer je\n! local variables\n      real(kind=8) :: aw, xm\n\n\n      aw = max(ah2o, aw_min(je))\n      aw = min(aw, 0.999999d0)\n\n\n      if(aw .lt. 0.97)then\n\n        xm =     a_zsr(1,je) +   &\n             aw*(a_zsr(2,je) +   &\n             aw*(a_zsr(3,je) +   &\n             aw*(a_zsr(4,je) +   &\n             aw*(a_zsr(5,je) +   &\n             aw* a_zsr(6,je) ))))\n\n        molality_0 = 55.509*xm/(1. - xm)\n\n      else\n\n        molality_0 = -b_zsr(je)*log(aw)\n\n      endif\n\n\n      return\n      end function molality_0\n! raz update 6/25/2008 - end\n!----------------------------------------------------------\n\n\n!----------------------------------------------------------\n      real(kind=8) function fnlog_gamz(ja,je)\t! ja in je\n!     implicit none\n!     include 'mosaic.h'\n! subr. arguments\n      integer ja, je\n! local variables\n      real(kind=8) aw\n\n\n      aw = max(ah2o, aw_min(je))\n\n      fnlog_gamz = b_mtem(1,ja,je) + aw*   &\n                  (b_mtem(2,ja,je) + aw*   &\n                  (b_mtem(3,ja,je) + aw*   &\n                  (b_mtem(4,ja,je) + aw*   &\n                  (b_mtem(5,ja,je) + aw*   &\n                   b_mtem(6,ja,je) ))))\n\n      return\n      end function fnlog_gamz\n!----------------------------------------------------------\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function mean_molecular_speed(t, mw)\t! in cm/s\n!     implicit none\n! subr. arguments\n      real(kind=8) t, mw\t! t(k)\n\n        mean_molecular_speed = 1.455e4 * sqrt(t/mw)\n\n      return\n      end function mean_molecular_speed\n!----------------------------------------------------------\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function gas_diffusivity(t, p, mw, vm)\t! in cm^2/s\n!     implicit none\n! subr. arguments\n      real(kind=8) mw, vm, t, p\t! t(k), p(atm)\n\n\n      gas_diffusivity = (1.0e-3 * t**1.75 * sqrt(1./mw + 0.035))/   &\n                             (p * (vm**0.333333 + 2.7189)**2)\n\n\n      return\n      end function gas_diffusivity\n!----------------------------------------------------------\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function fuchs_sutugin(rkn,a)\n!     implicit none\n! subr. arguments\n      real(kind=8) rkn, a\n! local variables\n      real(kind=8) rnum, denom\n\n\n      rnum  = 0.75*a*(1. + rkn)\n      denom = rkn**2 + rkn + 0.283*rkn*a + 0.75*a\n      fuchs_sutugin = rnum/denom\n\n      return\n      end function fuchs_sutugin\n!----------------------------------------------------------\n\n\n\n!----------------------------------------------------------\n    real(kind=8) function acc_n2o5_bert_thorn(mass_h2o,mol_no3,mol_cl,vol)\n\t! Composition dependent mass accommodation coefficient. \n\t! After Bertram and Thornton, ACP, 2009\n\t!\n\t! acc_N2O5 = A*(b-b*exp(-d*[H2O(l)]))\n\t!\t\t\t* (1-1/(1+(k3'*[H2O(l)]/[NO3-])+(k4'*[Cl-]/[NO3-])))\n\t! where:\n\t! acc_N2O5 = accommodation coefficient of N2O5 on the aerosol\n\t! A = factor for experimental conditions = 3.2e-8 s\n\t! b = 1.15e6 s^-1\n\t! d = 1.3e-1 M^-1\n\t! [H2O(l)] = H2O Molarity\n\t! k3' (=k3/k2b) = 6.0e-2\n\t! k4' (=k4/k2b) = 29e0\n\t! [Cl-] = Cl- Molarity\n\t! [NO3-] = NO3- Molarity\n\n\t! define set factors for scheme\n\treal(kind=8), parameter :: A_bt  = 3.2e-8\n\treal(kind=8), parameter :: b_bt  = 1.15e6\n\treal(kind=8), parameter :: d_bt  = 1.3e-1\n\treal(kind=8), parameter :: k3_bt = 6.0e-2\n\treal(kind=8), parameter :: k4_bt = 29e0\n\n\t! internal conversion factors\n\treal(kind=8), parameter :: nmol_mol = 1e-9\t! convert nmol->mol\n\treal(kind=8), parameter :: m3_litre = 1e3\t! convert m3->litre\n\treal(kind=8), parameter :: mm_h2o   = 18e-3\t! molar mass (kg/mol)\n\n\t! input variables\n\treal(kind=8) :: mass_h2o\t! kg(water)/m^3(air)\n\treal(kind=8) :: mol_no3\t\t! nmol/m^3(air?)\n\treal(kind=8) :: mol_cl\t\t! nmol/m^3(air?)\n\treal(kind=8) :: vol\t\t\t! cc/cc(air) - wet volume\n\n\t! internal variables\n\treal(kind=8) :: part_step\n\treal(kind=8) :: aer_h2o, aer_no3, aer_cl\t! molarity - mol/litre(solution)\n\n\n\t! extract and convert aerosol data from inputs to Moles/litre(solution)\n\taer_h2o = mass_h2o / (mm_h2o*vol*m3_litre) \n\taer_no3 = mol_no3*nmol_mol / (vol*m3_litre)\n\taer_cl  = mol_cl*nmol_mol / (vol*m3_litre)\n\t\n\tif(n2o5_flag.eq.1)then ! switch off Cl pathway\n\t\taer_cl = 0.0\n\tend if\n\t\n\tif(aer_h2o .ne. 0.0)then\n\t\tpart_step =  b_bt - b_bt * exp(-d_bt*aer_h2o)\n\t\tif(aer_no3 .ne. 0.0)then\n\t\t\tacc_n2o5_bert_thorn = A_bt * part_step *  &\t\t\n\t\t\t\t\t(1.0 - 1.0 / (                    &\n\t\t\t\t\t\t1.0 +                         &\n\t\t\t\t\t\t(k3_bt*aer_h2o/aer_no3) +     &\n\t\t\t\t\t\t(k4_bt*aer_cl/aer_no3)        &\n\t\t\t\t\t))\n\t\telse\n\t\t\tacc_n2o5_bert_thorn = A_bt * part_step\n\t\tendif\n\telse ! if no aerosol water then don't take up N2O5\n\t\tacc_n2o5_bert_thorn = 0.0\n\tendif\n\n\treturn\n\tend function acc_n2o5_bert_thorn\n!-------------------------------------------------------------\n\n\n!-------------------------------------------------------------\n\treal(kind=8) function split_n2o5_bert_thorn(mass_h2o,mol_cl,vol)\n\t! Hetereogeneous reaction of N2O5 with H2O(l) and Cl-(aq)\n\t! after Bertram and Thornton, ACP, 2009\n\t! Subroutine for splitting reaction pathways\n\t!\n\t! R3f = 1 / (1+(k4'[Cl-])/(k3'[H2O(l)])) (H2O pathway)\n\t! R4f = 1 / (1+(k3'[H2O(l)])/(k4'[Cl-])) (Cl- pathway)\n\t! where:\n\t! R3f = fraction of N2O5 that reacts with H2O\n\t! R4f = fraction of N2O5 that reacts with Cl-\n\t! [H2O(l)] = H2O Molarity\n\t! [Cl-] = Cl- Molarity\n\t! k3' (=k3/k2b) = 6.0e-2\n\t! k4' (=k4/k2b) = 29e0\n\t!\n\t! This function outputs the fraction of N2O5 which reacts\n\t! with H2O\n\n\t! define parameters for the scheme\n\treal(kind=8), parameter :: k3_bt = 6.0e-2\n\treal(kind=8), parameter :: k4_bt = 29e0\n\n\t! internal conversion factors\n\treal(kind=8), parameter :: nmol_mol = 1e-9\t! convert nmol->mol\n\treal(kind=8), parameter :: m3_litre = 1e3\t! convert m3->litre\n\treal(kind=8), parameter :: mm_h2o   = 18e-3\t! molar mass (kg/mol)\n\n\t! input variables\n\treal(kind=8) :: mass_h2o\t! kg(water)/m^3(air)\n\treal(kind=8) :: mol_cl\t\t! nmol/m^3(air?)\n\treal(kind=8) :: vol\t\t\t! cc/cc(air) - wet volume\n\n\t! internal variables\n\treal(kind=8) :: part_step\n\treal(kind=8) :: aer_h2o, aer_cl\t! molarity - mol/litre(solution)\n\n\n\t! extract and convert aerosol data from inputs to Moles/litre(solution)\n\taer_h2o = mass_h2o / (mm_h2o*vol*m3_litre) \n\taer_cl  = mol_cl*nmol_mol / (vol*m3_litre)\n\n\tif(n2o5_flag.eq.1)then ! switch off Cl pathway\n\t\taer_cl = 0.0\n\tend if\n\n\tif(aer_h2o .ne. 0.0)then\n\t\tsplit_n2o5_bert_thorn = 1e0 / &\n\t\t\t\t\t( 1e0 + (k4_bt*aer_cl)/(k3_bt*aer_h2o) )\t\n\telse\n\t\tsplit_n2o5_bert_thorn = 0.0\n\tendif\n\n\n\n\treturn\n\tend function split_n2o5_bert_thorn\n!-------------------------------------------------------------\n\n\n\n\n\n\n!----------------------------------------------------------\n! solution to x^3 + px^2 + qx + r = 0\n!\n      real(kind=8) function cubic( p, q, r )\n!     implicit none\n! subr arguments\n      real(kind=8), intent(in) :: p, q, r\n! local variables\n      real(kind=8) a, b, d, m, n, third, y\n      real(kind=8) k, phi, thesign, x(3), duma\n      integer icase, kk\n\n      third = 1.d0/3.d0\n\n      a = (1.d0/3.d0)*((3.d0*q) - (p*p))\n      b = (1.d0/27.d0)*((2.d0*p*p*p) - (9.d0*p*q) + (27.d0*r))\n\n      d = ( ((a*a*a)/27.d0) + ((b*b)/4.d0) )\n\n      if(d .gt. 0.)then\t!\t=> 1 real and 2 complex roots\n        icase = 1\n      elseif(d .eq. 0.)then !\t=> 3 real roots, atleast 2 identical\n        icase = 2\n      else\t! d < 0\t\t=> 3 distinct real roots\n        icase = 3\n      endif\n\n\n      goto (1,2,3), icase\n\n! case 1: d > 0\n1     thesign = 1.\n      if(b .gt. 0.)then\n        b = -b\n        thesign = -1.\n      endif\n\n      m = thesign*((-b/2.d0) + (sqrt(d)))**(third)\n      n = thesign*((-b/2.d0) - (sqrt(d)))**(third)\n\n      cubic = real( (m) + (n) - (p/3.d0) )\n      return\n\n! case 2: d = 0\n2     thesign = 1.\n      if(b .gt. 0.)then\n        b = -b\n        thesign = -1.\n      endif\n\n      m = thesign*(-b/2.d0)**third\n      n = m\n\n      x(1) = real( (m) + (n) - (p/3.d0) )\n      x(2) = real( (-m/2.d0) + (-n/2.d0) - (p/3.d0) )\n      x(2) = real( (-m/2.d0) + (-n/2.d0) - (p/3.d0) )\n\n      cubic = 0.\n      do kk = 1, 3\n        if(x(kk).gt.cubic) cubic = x(kk)\n      enddo\n      return\n\n! case 3: d < 0\n3     if(b.gt.0.)then\n        thesign = -1.\n      elseif(b.lt.0.)then\n        thesign = 1.\n      endif\n\n! rce 18-nov-2004 -- make sure that acos argument is between +/-1.0\n!     phi = acos(thesign*sqrt( (b*b/4.d0)/(-a*a*a/27.d0) ))\t! radians\n      duma = thesign*sqrt( (b*b/4.d0)/(-a*a*a/27.d0) )\n      duma = min( duma, +1.0D0 )\n      duma = max( duma, -1.0D0 )\n      phi  = acos( duma )\t! radians\n\n\n      cubic = 0.\n      do kk = 1, 3\n        k = kk-1\n        y = 2.*sqrt(-a/3.)*cos(phi + 120.*k*0.017453293)\n        x(kk) = real((y) - (p/3.d0))\n        if(x(kk).gt.cubic) cubic = x(kk)\n      enddo\n      return\n\n      end function cubic\n!----------------------------------------------------------\n\n\n\n\n!----------------------------------------------------------\n      real(kind=8) function quadratic(a,b,c)\n!     implicit none\n! subr. arguments\n      real(kind=8) a, b, c\n! local variables\n      real(kind=8) x, dum, quad1, quad2\n\n\n        if(b .ne. 0.0)then\n        x = 4.*(a/b)*(c/b)\n        else\n        x = 1.e+6\n        endif\n\n        if(abs(x) .lt. 1.e-6)then\n          dum = (0.5*x) +   &\n                (0.125*x**2) +   &\n                (0.0625*x**3)\n\n          quadratic = (-0.5*b/a)*dum\n\n          if(quadratic .lt. 0.)then\n            quadratic = -b/a - quadratic\n          endif\n\n        else\n          quad1 = (-b+sqrt(b*b-4.*a*c))/(2.*a)\n          quad2 = (-b-sqrt(b*b-4.*a*c))/(2.*a)\n\n          quadratic = max(quad1, quad2)\n        endif\n\n      return\n      end function quadratic\n!----------------------------------------------------------\n\n\n\n!----------------------------------------------------------\n! currently not used\n\n! two roots of a quadratic equation\n \n      subroutine quadratix(a,b,c, qx1,qx2)\n!      implicit none\n! subr. arguments\n      real(kind=8) a, b, c, qx1, qx2\n! local variables\n      real(kind=8) x, dum\n\n\n      if(b .ne. 0.0)then\n        x = 4.*(a/b)*(c/b)\n        else\n        x = 1.e+6\n      endif\n\n      if(abs(x) .lt. 1.e-6)then\n        dum = (0.5*x) +   &\n              (0.125*x**2) +   &\n              (0.0625*x**3)\n\n        qx1 = (-0.5*b/a)*dum\n        qx2 = -b/a - qx1\n\n      else\n\n        qx1 = (-b+sqrt(b*b - 4.*a*c))/(2.*a)\n        qx2 = (-b-sqrt(b*b - 4.*a*c))/(2.*a)\n\n      endif\n\n      return\n      end subroutine quadratix\n\n\n!=====================================================================\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n!***********************************************************************\n!  save aerosol drymass and drydens before aerosol mass transfer is\n!  calculated this subr is called from within subr mosaic_dynamic_solver,\n!  after the initial calls to check_aerosol_mass, conform_electrolytes,\n!  conform_aerosol_number, and aerosol_phase_state, but before the mass\n!  transfer is calculated\n!\n! author: richard c. easter\n!-----------------------------------------------------------------------\n      subroutine save_pregrow_props\n\n      use module_data_mosaic_asect\n      use module_data_mosaic_other\n\n!     implicit none\n!     include 'v33com'\n!     include 'v33com9a'\n!     include 'v33com9b'\n!     include 'mosaic.h'\n\n!   subr arguments (none)\n\n!   local variables\n      integer ibin, isize, itype\n\n\n! air conc in mol/cm^3\n      cair_mol_cc = cairclm(kclm_aer)\n\n! compute then save drymass and drydens for each bin\n      do ibin = 1, nbin_a\n\n      call calc_dry_n_wet_aerosol_props( ibin )\n\n      call isize_itype_from_ibin( ibin, isize, itype )\n      drymass_pregrow(isize,itype) = mass_dry_a(ibin)/cair_mol_cc\t! g/mol(air)\n      if(jaerosolstate(ibin) .eq. no_aerosol) then\n          drydens_pregrow(isize,itype) = -1.\n      else\n          drydens_pregrow(isize,itype) = dens_dry_a(ibin)\t\t! g/cc\n      end if\n\n      end do\n\n      return\n      end subroutine save_pregrow_props\n\n\n\n\n\n\n\n!***********************************************************************\n! special output\n!\n! author: richard c. easter\n!-----------------------------------------------------------------------\n\tsubroutine specialoutaa( iclm, jclm, kclm, msub, fromwhere )\n\n!\timplicit none\n\n\tinteger iclm, jclm, kclm, msub\n\tcharacter*(*) fromwhere\n\n\treturn\n\tend subroutine specialoutaa\n\n\n\n\n!***********************************************************************\n! box model test output\n!\n! author: richard c. easter\n!-----------------------------------------------------------------------\n\tsubroutine aerchem_boxtest_output(   &\n      \t\tiflag, iclm, jclm, kclm, msub, dtchem )\n\n\tuse module_data_mosaic_asect\n\tuse module_data_mosaic_other\n!\timplicit none\n\n!\tinclude 'v33com'\n!\tinclude 'v33com2'\n!\tinclude 'v33com9a'\n\n\tinteger iflag, iclm, jclm, kclm, msub\n\treal(kind=8) dtchem\n\n!   local variables\n\tinteger lun\n\tparameter (lun=83)\n\tinteger, save :: ientryno = -13579\n\tinteger icomp, iphase, isize, itype, k, l, m, n\n\n\treal(kind=8) dtchem_sv1\n\tsave dtchem_sv1\n\treal(kind=8) rsub_sv1(l2maxd,kmaxd,nsubareamaxd)\n\n\n!   bypass unless maerchem_boxtest_output > 0\n\tif (maerchem_boxtest_output .le. 0) return\n\n\n\n!\n! *** currently this only works for ntype_aer = 1\n!\n\titype = 1\n\tiphase = ai_phase\n\n!   do initial output\n\tif (ientryno .ne. -13579) goto 1000\n\n\tientryno = +1\n\n\twrite(lun) ltot, ltot2, itot, jtot, ktot\n\twrite(lun) (name(l), l=1,ltot2)\n\n\twrite(lun) maerocoag, maerchem, maeroptical\n\twrite(lun) msectional, maerosolincw\n\n\twrite(lun) nsize_aer(itype), ntot_maincomp_aer\n\n\tdo icomp = 1, ntot_maincomp_aer\n\t    write(lun)   &\n      \t\tname_maincomp_aer(icomp)\n\t    write(lun)   &\n      \t\tdens_maincomp_aer(icomp),     mw_maincomp_aer(icomp)\n\tend do\n\n\tdo isize = 1, nsize_aer(itype)\n\t    write(lun)   &\n      \t\tncomp_plustracer_aer(itype),   &\n\t\tncomp_aer(itype),   &\n      \t\twaterptr_aer(isize,itype),   &\n\t\tnumptr_aer(isize,itype,iphase),   &\n      \t\tmprognum_aer(isize,itype,iphase)\n\t    write(lun)   &\n      \t      ( maincompptr_aer(l,itype),   &\n\t\tmassptr_aer(l,isize,itype,iphase),   &\n      \t\tl=1,ncomp_plustracer_aer(itype) )\n\t    write(lun)   &\n      \t\tvolumcen_sect(isize,itype),   &\n\t\tvolumlo_sect(isize,itype),   &\n      \t\tvolumhi_sect(isize,itype),   &\n\t\tdcen_sect(isize,itype),   &\n      \t\tdlo_sect(isize,itype),   &\n\t\tdhi_sect(isize,itype)\n\t    write(lun)   &\n      \t\tlptr_so4_aer(isize,itype,iphase),   &\n      \t\tlptr_msa_aer(isize,itype,iphase),   &\n      \t\tlptr_no3_aer(isize,itype,iphase),   &\n      \t\tlptr_cl_aer(isize,itype,iphase),   &\n      \t\tlptr_co3_aer(isize,itype,iphase),   &\n      \t\tlptr_nh4_aer(isize,itype,iphase),   &\n      \t\tlptr_na_aer(isize,itype,iphase),   &\n      \t\tlptr_ca_aer(isize,itype,iphase),   &\n      \t\tlptr_oin_aer(isize,itype,iphase),   &\n      \t\tlptr_oc_aer(isize,itype,iphase),   &\n      \t\tlptr_bc_aer(isize,itype,iphase),   &\n      \t\thyswptr_aer(isize,itype)\n\tend do\n\n!\n!   test iflag\n!\n1000\tcontinue\n\tif (iflag .eq. 1) goto 1010\n\tif (iflag .eq. 2) goto 2000\n\tif (iflag .eq. 3) goto 3000\n\treturn\n\n!\n!   iflag=1 -- save initial values\n!\n1010\tcontinue\n\tdtchem_sv1 = dtchem\n\n\treturn\n\n!\n!   iflag=2 -- save intermediate values before doing move_sections\n!   (this is deactivated for now)\n!\n2000\tcontinue\n\treturn\n\n\n!\n!   iflag=3 -- do output\n!\n3000\tcontinue\n\tdo m = 1, nsubareas\n\tdo k = 1, ktot\n\n\twrite(lun) iymdcur, ihmscur, iclm, jclm, k, m, nsubareas\n\twrite(lun) t, dtchem_sv1, cairclm(k), relhumclm(k),   &\n      \t\tptotclm(k), afracsubarea(k,m)\n\n\tend do\n\tend do\n\n\n\treturn\n\tend subroutine aerchem_boxtest_output\n\n\n\n!***********************************************************************\n! 'debugging' output when mosaic encounters 'fatal error' situation\n!\n! author: richard c. easter\n!-----------------------------------------------------------------------\n\tsubroutine mosaic_aerchem_error_dump( istop, ibin, luna, msga )\n!\n!   dumps current column information when a fatal computational error occurs\n!   when istop>0, the simulation is halted\n!\n\tuse module_data_mosaic_asect\n\tuse module_data_mosaic_other\n!\timplicit none\n\n!   arguments\n\tinteger istop, ibin, luna\n\tcharacter*(*) msga\n\n!   local variables\n\tinteger icomp, iphase, isize, itype, k, l, lunb, m, n\n\treal(kind=8) dtchem_sv1\n\n\n!\n! *** currently this only works for ntype_aer = 1\n!\n\titype = 1\n\n\n\tlunb = luna\n\tif (lunb .le. 0) lunb = 6\n\n9000\tformat( a )\n9010\tformat( 7i10 )\n9020\tformat( 3(1pe19.11) )\n\n\twrite(lunb,9000)\n\twrite(lunb,9000) 'begin mosaic_aerchem_error_dump - msga ='\n\twrite(lunb,9000) msga\n\n\treturn\n\tend subroutine mosaic_aerchem_error_dump\n!-----------------------------------------------------------------------\n\n      end module module_mosaic_therm\n#endif\n"
  },
  {
    "path": "AUTHORS.txt",
    "content": "List of Developers for GEOS-Chem, HEMCO, and Related Software\n(08 Apr 2026)\n===============================================================================\n\nADAMS, Peter\nAKINJOLE, Samuel\nALEXANDER, Becky\nALVARADO, Matthew\nAMOS, Helen\nANGOT, Helene\nAUSMEEL, Stina\nAUVRAY, Marion\nBALASUS, Nicholas\nBARAY, Sabour\nBARKLEY, Michael\nBARRET, Steven\nBARRET, Brice\nBATES, Kelvin\nBERTOLACCI, Michael\nBEY, Isabelle\nBINDLE, Liam\nBOERSMA, Folkert\nBOJJAGANI, Sreekanth\nBONILLA, Eimy\nBOVY, Benoit\nBOWMAN, Kevin\nBOYS, Brian\nBRANFORD, Simon\nBRATTICH, Erika\nBREIDER, Tom\nBREWER, Jared\nBROWNE, Ellie\nBROWN-STEINER, Benjamin\nBUKOSA, Beata\nBUTENHOFF, Christopher\nCADY-PEREIRA, Karen\nCAMERON-SMITH, Philip\nCAMPBELL, Patrick\nCAO, Guofeng\nCAO, Hansen\nCAO, Liangzhong\nCAO, Yi\nCAPPS, Shannon\nCAROUGE, Claire\nCARTER, Therese (Tess)\nCAZORLA, Maria\nCHALIYAKUNNEL, Sreelekha\nCHAN, Yuk Chun\nCHAN MILLER, Christopher\nCHEN, Han\nCHEN, Jing\nCHEN, Long\nCHEN, Qi\nCHEN, Qianjie\nCHEN, Xin\nCHEN, Yang\nCHOI, Yunsoo\nCHEN, Zichong\nCHRISTIAN, Kenneth\nCLARIZIO, Tessa\nCLUNE, Tom\nCOOPER, Matt\nCORBITT, Bess\nCROFT, Betty\nCRUZ, Xochitl\nCURCI, Gabriele\nDACHS, Jordi\nDAVILA, Yanko\nDELWICHE, Kyle\nDENG, Feng\nDESOUZA, Priyanka\nDESSERVETTAZ, Max\nDEUTSCHER, Nicholas\nDI PIERRO, Maurizio\nDLAMINI, Thandolwethu \nDOMMERGUE, Aurelien\nDOWNS, Will\nDRURY, Easan\nDUNCAN, Bryan\nEASTHAM, Sebastian\nELLIS, Raluca\nENBERG, Joseph\nESTRADA, Lucas\nEVANS, Mathew\nFAIRLIE, T. Duncan\nFARINA, Sal\nFAYE, Vivian\nFEINBERG, Ari\nFIELD, Brendan\nFIORE, Arlene\nFISCHER, Emily\nFISHER, Jenny\nFITE, Charley\nFLEMING, Eric\nFLO GAYA, Judit\nFORD, Bonne\nFRANCIS, Timmy\nFREESE, Lyssa\nFRIEDMAN, Carey\nFRITZ, Thibaud\nFU, Tzung-May\nFU, Joshua\nGANTT, Brett\nGE, Cui\nGEDDES, Jeffrey\nGEYMAN, Benjamin\nGIANG, Amanda\nGIANNAKOPOULOS, Christos\nGOUNIA, Harriet\nGRAEF, Edward\nGREENSLADE, Jesse\nGRIFFITHS, Alan\nGU, Xiaoguang\nHAMMER, Melanie\nHANCOCK, Sarah\nHASKINS, Jessica\nHE, Cenlin\nHE, Jourdan\nHEALD, Colette\nHENDERSON, Barron\nHENZE, Daven\nHO, Wai-Lo\nHORDIICHUK, Myroslav\nHOLMES, Christopher\nHORNER, Rebekah (Bex)\nHOROWITZ, Hannah\nHOSSENI, Zahra\nHOUGH, Ian\nHU, Lu\nHUANG, Jianping\nHUANG, Jiayue\nIKEDA, Kohei\nJACOB, Daniel\nJACOBSON, Andy\nJACOBSON, Marc\nJAEGLE, Lyatt\nJANSEN, Ruud\nJIANG, Weiyuan\nJIANG, Zhe\nJIN, Lixu\nJISKRA, Martin\nJOHNSON, Matthew\nJONES, Dylan\nJUNG, Jaegun\nKASIBHATLA, Prasad\nHUDMAN KAY, Rynda\nKELLER, Christoph\nKELP, Makoto\nKIKUCHI, Tetsuro\nKIM, Hyeonmin\nKIM, Sungshik\nKITWIROON, Nutthida\nKODROS, Jack\nKOO, Jamin\nKOPACZ, Monika\nKOPLITZ, Shannon\nKOUATCHOU, Jules\nKREMSER, Stefanie\nLACEY, Forrest\nLAMENCUSA, Carmen\nLAMSAL, Lok\nLAPINA, Kateryna\nLARSON, Kelsey\nLARY, David\nLATIMER, Robyn\nLE SAGER, Philippe\nLEE, Chulkyu\nLEE, Colin\nLEE, Meemong\nLEE, Tabitha\nLEHMANN, Ralph\nLEIBENSPERGER, Eric\nLERICHE, Maud\nLEUNG, Fok-Yan\nLI, Bengang\nLI, Chi\nLI, Ke\nLI, Qinbin\nLI, Xianglan\nLI, Yanshun\nLIAO, K.J.\nLIANG, Qing\nLIAO, Hong\nLIN, Haipeng\nLIN, Jintai\nLIN, Shian-Jiann\nLINFORD, John\nLIU, Hongyu\nLIU, Jane\nLIU, Junhua\nLIU, Pengfei\nLIU, Tina\nLIU, Yang\nLIU, Ying\nLOGAN, Jennifer\nLOMAN, Matthew\nLONG, Mike\nLU, Xiao\nLUNDGREN, Lizzie\nLUO, Gan\nMAASAKKERS, J. D. (Bram)\nMACFARLANE, Stephen\nMACINTYRE, Helen\nMACKENZIE, Dave\nMAHIEU, Emmanuel\nMAO, Jingqiu\nMARAIS, Eloise\nMARKS, Marguerite\nMARKUS, Arjen\nMARTIN, Randall\nMARVIN, Maggie\nMAYHEW, Alfred\nMCDUFFIE, Erin\nMCGUFFIN, Dana\nMCLINDEN, Chris\nMENG, Hongjian\nMENG, Jun\nMESKHIDZE, Nicholas\nMIATSELSKAYA, Natallia\nMICKLEY, Loretta\nMILLET, Dylan\nMING, Kai\nMOCH, Jonathan\nMOORE, Neil\nMOORING, Todd\nMORENA, Jessica\nMORIN, Gabriel\nMORRIS, Eleanor\nMU, Mingquan\nMURPHY, Killian\nMURRAY, Lee\nNAM, Jun\nNASSAR, Ray\nNASSAU, Racine\nNATHAN, Brian\nNENES, Athanasios\nNESSER, Hannah\nNEVISON, Cynthia\nNIELSEN, Eric\nNOTHOLT, Justus\nO'DELL, Kate\nOKAMOTO, Sachiko\nPAGE, Neil\nPAI, Sidhant\nPALMER, Paul\nPARAZOO, Nick\nPARELLA, Justin\nPARK, Rokjin\nPARRINGTON, Mark\nPAULOT, Fabien\nPHILIP, Sajeev\nPICKETT-HEAPS, Christopher\nPIERCE, Jeff\nPORTER, Will\nPOUND, Ryan\nPRATHER, Michael\nPROTONATARIOU, Anna\nPUTMAN, Bill\nPYE, Havala\nQURESHI, Asif\nRAMNARINE, Emily\nRANDERSON, James\nRANDLES, Cynthia\nRAVETTA, Francois\nREINHART, Wes\nRIDLEY, David\nRIZZA, Umberto\nROTHENBERG, Daniel\nROY, Eric\nSAFIEDDINE, Sarah\nSANDU, Adrian\nSANTILLANA, Mauricio\nSAUVAGE, Bastien\nSCARPELLI, Tia\nSCHIFERL, Luke\nSCHMIDT, Johan\nSCHULTZ, Martin\nSCHWANTES, Rebecca\nSEBASTIANELLI, Paolo\nSELIN, Noelle\nSEYMOUR, Michael\nSHAH, Viral\nSHAO, Jingyuan\nSHEN, Lu\nSHERWEN, Tomas\nSHUTTER, Joshua\nSILVA, Sam\nSINGH, Inderjeet\nSMITH-DOWNEY, Nicole\nSOERENSEN, Anne Laerke\nSOFEN, Eric\nSONG, Shaojie\nSONG, Yu\nSPRACKLEN, Dominick\nSTANEVICH, Ilya\nSTEENROD, Stephen\nSTERN, Rebecca\nSTEVENS, Robin\nSTREETS, David\nSTRODE, Sarah\nSTURM, Obin\nSU, Flora\nSULPRIZIO, Melissa\nSUN, Jordan\nSUN, Minmin\nSUNDERLAND, Elsie\nSUNTHARALINGAM, Parvada\nSURL, Luke\nSUSELJ, Kay\nSUTHERLAND, Bethany\nSUTO, Kimito\nSZELAG, Monika\nTAI, Amos\nTANG, Yidan\nTANIMOTO, Hiroshi\nTANNAHILL, John\nTAO, Shu\nTHACKRAY, Colin\nTHOMPSON, Matt\nTHONAT, Thibaud\nTIAN, Rong\nTOMBROU, Maria\nTRAVIS, Katherine\nTRAYANOV, Atanas \nTRIVITAYANURAK, Win\nTRUJILLO, Corey\nTUCCELLA, Paolo\nTURNER, Alexander\nTURQUETY, Solene\nTZOMPA-SOSA, Zitely\nUNGER, Nadine\nVAL MARTIN, Maria\nVAN DONKELAAR, Aaron \nVAROTSOS, Kostas\nVINKEN, Geert\nVITT, Francis\nVOHRA, Karn\nWAGSTROM, Kristina\nWALKER, Thomas\nWALLWORK, Joe\nWANG, Daisy\nWANG, James\nWANG, Jun\nWANG, Qiaoqiao\nWANG, Xiaoli\nWANG, Xiaolin\nWANG, Xuan\nWANG, Yi\nWANG, Yuhang\nWANG, Yuting\nWANG, Yuxuan\nWANG, Zifa\nWECHT, Kevin\nWEIDNER, Richard\nWEISENSTEIN, Debra\nWELLS, Kelley\nWENG, Hongjian\nWESTERVELT, Dan\nWHALEY, Cynthia\nWIEDINMYER, Christine\nWILD, Oliver\nWOHLTMANN, Ingo\nWU, Shiliang\nXIAO, Yaping\nXU, Junwei\nYAN, Yingying\nYANG, Laura\nYANNETTI, Matt\nYANTOSCA, Bob\nYATTEAU, Jack\nYUMIMOTO, Keiya\nYU, Karen\nYU, Fangqun\nYU, Xingpei\nYUE, Xu\nYUE, Xuyan\nZATKO, Maria\nZHAI, Shixian\nZHAI, Shuting\nZHANG, Bingqing\nZHANG, Bo\nZHANG, Chi\nZHANG, Dandan\nZHANG, Hongliang\nZHANG, Jiawei\nZHANG, Li\nZHANG, Lin\nZHANG, Qiang\nZHANG, Yanxu\nZHANG, Yuanjian\nZHU, Haihui\nZHU, Lei\nZHU, Liye\nZHUANG, Jiawei\nZHUANG, Quanlai\nZOOGMAN, Peter\n"
  },
  {
    "path": "CHANGELOG.md",
    "content": "# Changelog\n\nThis file documents all notable changes to the GEOS-Chem repository starting in version 14.0.0, including all GEOS-Chem Classic and GCHP run directory updates.\n\nThe format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).\n\n## [14.7.1] - 2026-04-08\n### Added\n- Added `HTAP_SHIP` toggle in `HEMCO_Config.rc.carbon` templates for GC-Classic and GCHP\n- Added routines `Lookup_Grid` and `Register_State_Grid` to `Headers/state_grid_mod.F90`\n- Added `State_Grid` as an argument to History routines `History_Init`, `History_AddItemToCollection`,`History_NetCdf_Define`, `History_Write`, and `IndexVarList_Create`\n- Added routine `History_InitCoordVars` to `history_mod.F90`\n- Added cloud fraction and cloud top pressure to the SatDiagn diagnostic collection\n- Added new field `Input_Opt%CloudJ_Verbose`\n- Added `cloud-j:verbose` YAML tag (with default setting `false`) to  `geoschem_config.yml` templates for GC-Classic, GCHP, GEOS, CESM, and WRF\n- Added routine `Print_Species_Global_Mass_From_VVDry` in `GeosUtil/print_mod.F90`\n- Added build setting `MPI_LOAD_BALANCE` to enable MPI load balancing in chemistry to speed up GCHP runs\n- Added carbon Jacobian tracer simulation using KPP as a build-time option for use with the Integrated Methane Inversion\n- Added script within new folder KPP/carbon/util to expand carbon.eqn to include any number of CH4 Jacobian tracers\n- Added error traps to prevent integration tests and parallel tests from running if a conda environment with netCDF is active\n- Added GCHP run option in setCommonRunSettings.sh to use ExtData2G\n- Added ExtData2G yaml configuration file for GCHP transport tracer simulation\n- Added `${RUNDIR_READ_RESTART_AS_REAL8}` to GEOS-Chem Classic  `geoschem_config.yml` template files\n- Added error trap to routine `Get_GC_Restart` to halt simulations that use `read_restart_as_real8: true` with a reduced vertical grid\n- Added `State_Met%MaxChemLev` and `State_Met%MaxStratLev` integer fields\n- Added `Init_MaxChemLev` routine in `GeosUtil/pressure_mod.F90`, called from routine `Init_Pressure`\n- Added `State_Met` argument to routines `Init_Photolysis`, `Set_Clim_Profiles`, `GC_Init_Extra`, `Init_Pressure`, `Init_Mercury`, `Init_Sulfate`\n\n### Changed\n- Update termite CH4 emissions to the CAMS-GLOB-TERM_v1.1 product\n- Updated routine `SAFETY` (in `GeosCore/wetscav_mod.F90`) to reset small or negative values to zero\n- Moved coordinate variables for GC-Classic History netCDF files from `GeosUtil/grid_registry_mod.F90` to the `State_Grid` object\n- Changed several `State_Grid` fields from `fp` to `f8` precision. (In practice both are `REAL*8` but this makes it more explicit.)\n- Moved the population of coordinate variables for History netCDF  output from `grid_registry_mod.F90` to `history_mod.F90` (in routine `History_InitCoordVars`)\n- Updated `run/GCHP/setCommonRunSettings.template` to disable the HEMCO PARANOx extension for C360 or C720 grids\n- Updated `createRunDir.sh` scripts for GC-Classic and GCHP to turn on offline bulk seasalt emissions and bulk dust emissions in TOMAS simulations\n- Updated `Interfaces/GCClassic/main.F90` to call`Print_Species_Global_Mass_from_VVDry` (instead of`Print_Species_Global_Mass`) in order to avoid numerical differences when verbose printout is on\n- Renamed `Carbon` collection to `ProdLoss` collection in GCClassic and GCHP `HISTORY.rc.carbon` templates\n- Updated GitHub Action `stale@v5` to `stale@v10` in order to avoid deprecation warnings\n- Moved logic to determine whether we read the restart file as `REAL*8` from `run/shared/setupConfigFiles.sh` to `run/GCClassic/createRunDir.sh`\n- Simplified the logic where `isGMAO` and `State_Grid%NativeNZ` are computed in `GeosUtil/gc_grid_mod.F90`\n- Changed definition of `State_Grid%MaxChemLev` and `State_Grid%MaxStratLev` to be the 1 hPa level\n- Moved `MaxChemLev` and `MaxStratLev` fields from `State_Grid` to `State_Met`\n- Removed `State_Grid%MaxTropLev` field\n\n### Fixed\n- Fixed incorrect unit conversion from v/v -> molec/cm3 in `planeflight_mod.F90`\n- Fixed typo in the call to `Finalize` for the `State_Diag%ProdOCPIfromOCPO` diagnostic array\n- Fixed a syntax error in mass flux scaling calculation\n- Fixed an I/O error that caused an infinite loop reading when extra newlines are present at the end of `HISTORY.rc` (GC-Classic only)\n- Fixed timestep mismatch between GCHP C180 and GCC 0.5x0.625\n- Fixed incorrect dust species names in `run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem.onlineE` \n- Fixed incorrect extension number for `InvDustL23M` entries in `run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem`\n\n### Removed\n- Removed `ARCTAS_SHIP`, `CORBETT_SHIP`, `ICOADS_SHIP` from `HEMCO_Config.rc` template files\n- Retired Fung termite and soil absorption emission options from carbon simulation\n- Removed `GeosUtil/grid_registry_mod.F90`.\n- Removed `OHconcAfterChem` from GCClassic and GCHP `HISTORY.rc.carbon` templates, as OH is fixed during the simulation\n- Removed `State_Grid` argument from `Set_Prof_FJX` routine\n\n## [14.7.0] - 2026-02-05\n### Added\n- Added entries for FINNv25 biomass burning emissions to template HEMCO configuration files\n- Added comments to `HEMCO_Diagn.rc` template files instructing users on which ExtNr/Cat/Hier to use for online vs. offline biomass burning emissions\n- Added subroutine `Print_Species_Global_Mass` to print_mod for use by GC-Classic\n- Added log print of species global mass at start of each timestep if verbose is true\n- Added print of global mass computed from restart file values if delta pressure present in restart file\n- Added operational run scripts for WashU Compute2\n- Added the option for LPJ_MERRA2 wetland CH4 emissions in CH4 and carbon simulations\n- Added GC-Classic config file option to read restart file as `REAL*8` via GEOS-Chem rather than HEMCO\n- Added new GCHP run-time option in GCHP.rc to print species mass proxy (Species 1 only) to log file from FV3\n- Added GEOS-Chem export in GCHP to send restart file (internal state) delta pressures to FV3 for mixing ratio scaling upon start-up\n- Added chemistry budget diagnostics to GCHP carbon HISTORY.rc\n- Added IUPAC names for Hg species in `run/shared/species_database.yml`\n- Added `gc_4x5_merra2_carbon_ch4_straddle_00utc` integraton test which runs across a UTC date boundary\n- Added statement to zero the `State_Diag%DryDepChm` array in routine `Zero_Diagnostics_StartOfTimestep`\n- Added clarifying comments in `flexgrid_read_met_mod.F90` for `TS` and `T2M` met fields\n- Added `&DSTbinproperties` and `&METALSproperties` YAML anchors in `run/shared/species_database.yml`\n- Added `DustL23M` as HEMCO extension 125 in `HEMCO_Config.rc.aerosol` and `HEMCO_Config.rc.fullchem` templates\n\n### Changed\n- Replaced comments in template HEMCO configuration files directing users to obsolete wiki documentation with comments directing users to `hemco.readthedocs.io`\n- Updated `EmisOCS_Bioburn` to `EmisOCS_BiomassBurn` in both GCHP `HEMCO_Diagn.rc.carbon` and `HISTORY.rc.carbon` template files\n- Updated the ESMF version from 8.4.2 to 8.6.1 in sample environment file `gchp.gcc12_openmpi4_cannon_rocky.env`\n- Changed call to `Accept_External_Date_Time` to also pass the seconds value, in order to prevent a WRF-GC bug\n- Removed convective washout for default scheme but keep it for LUO_WETDEP\n- Adapted Luo2023 WetDep for GF convection\n- Updated timestep scaling for convective precipitation areal fraction\n- Wrapped tests for infinity/NaN in `#ifdef DEBUG` blocks in `DO_GF_CLOUD_CONVECTION`\n- Changed optional argument `Update_Mixing_Ratio` in subroutine `Airqnt` to False by default\n- Change GC-Classic call to `Airqnt` to only update mixing ratios if advection is turned off\n- Updated mass flux and courant number import scaling in GCHP for compatibility with horizontal flux regridding in MAPL 2.59\n- Updated operational run script sample for WashU Compute1\n- Update GCHP AWS EFA operational run script examples to avoid crashes over large core counts\n- Updated GFEIv3 files to correct issue in original version\n- Updated `download_data.py` for compatibility with 0.125 x 0.15625 grids plus all pre-defined nested-grids\n- Restructured `download_data.py` to avoid several instances of repeated code\n- Changed `read_restart_as_real8` from `false` to `true` in `geoschem_config.yml` for GC-Classic benchmark simulations\n- Changed the default setting of `read_restart_as_real8` from `false` to `true` in template file `geoschem_config.yml.TransportTracers`\n- Disable PARANOX extension when using GEOS-Chem Classic 0.25x0.3125 or 0.125x0.15625 grids\n- Commented out met-fields `PEDGEDRY`, `PFICU`, `PFILSAN`, `PFLCU`, and `PFLLSAN` by default in GC-Classic and GCHP carbon HISTORY.rc, and GC-Classic CH4 HISTORY.rc\n- Turned on Carbon collection in `HISTORY.rc` for carbon simulations by default\n- Consolidated Hg species metdata from `run/shared/species_database_hg.yml` into `run/shared/species_database.yml`\n- Updated `run/shared/download_data.yml` so that aerosol and fullchem simulations will get the restart file from `GEOSCHEM_RESTARTS/GC_14.7.0`\n- Updated `DST1/DST1/DST3/DST4` to `TDST/DSTbin1/DSTbin2/.../DSTbin7` in `geoschem_config.yml`, `HEMCO_Config.rc`, and `HEMCO_Diagn.rc` template files for aerosol & fullchem simulations\n- Updated routine `ExtState_SetFields` in `hco_interface_gc_mod.F90` for readability and clarity\n- Assigned `ExtState%TSKIN` from `State_Met%TS` and `ExtState%T2M` from `State_Met%T2M` in routine `ExtState_SetFields`\n- Updated dust mass tuning factors for the `DustL23M` extension in `run/GCClassic/createRunDir.sh` and `run/GCHP/setCommonRunSettings.sh.template`\n- Replaced `id_DST{1..4}` with `id_DSTbin{1..7}` in the `APMidtype` derived type and `APMIDS` object\n- Replace hardwired values with constant parameters in routine `Aerosol_Conc` (in `GeosCore/aerosol_mod.F90`\n- Updated species database so that dust species use the anchor `&DSTbin properties` and metals species use `&METALSproperties`\n- Updated call to `ExtData_Set` in `hco_gc_interface_mod.F90` to accept `ExtState%SNOMAS`\n- Upated sample carbon simulation restart file to output generated from 10-year simulation\n\n### Fixed\n- Restored entries for TMB emissions in `HEMCO_Config.rc.fullchem` template files for GCClassic and GCHP\n- Moved `EmisOCS_Total` to the head of the `EmisOCS` diagnostic entries in the GCHP `HISTORY.rc.carbon` template file\n- Fixed OM/OC ratio for OCPO in SimpleSOA to be 1.4 instead of 2.1\n- Fixed precipitation formation rate unit in Luo2023 convective washout\n- Fixed bug where species mass in restart file was not conserved in first timestep if run-time meteorology different from restart file meteorology\n- Fixed parallel errors in `convection_mod.F90` by setting `AER = . TRUE.` and `KIN = .TRUE.` before calling `WASHOUT`\n- Fixed Hg directional ocean flux diagnostics in the Hg simulation so that they equal net flux\n- Fixed error where `//` were not being changed to `/` in `download_data.py`\n- Change precision of area import from GCHP advection from `REAL*4` to native `REAL*8`\n- Fixed time-range and units for CH4 emission inventories to be consistent with the corresponding netCDF files in ExtData directory for `HEMCO_Config.rc` and `ExtData.rc`\n- Updated scaling factor ID at 3000 to avoid conflicts with CEDS_01x01 scaling factor enabled in carbon simulation for IMI analytical inversion\n- Fixed typos in `ind_` variable names in `KPP/carbon/carbon_Funcs.F90`\n- Fixed typo in GCHP operational run script for Harvard Cannon to properly retrieve the run duration string\n- Fixed bug in ObsPack to include instantaneously-sampled data whose timestamps are within 1/2 of a model timestep of the end of the day\n- Fixed out-of-bounds error in `carbon_gases_mod.F90` that is caused by refernencing `OHdiurnalFac` array when it is not defined\n- Updated routines `Init_State_Chm`, `Init_Mapping_Vectors`, and `MapProdLossSpecies`to accept `TaggedDiag_List` as an argument\n- Updated routine `MapProdLossSpecies` to test if prod/loss family species or wildcards are scheduled for diagnostic archival before populating mapping arrays\n- Fixed indexing error in routine `Grav_Settling` (in module `GeosCore/sulfate_mod.F90`), which caused incorrect dry deposition diagnostics for some species\n- Fixed incorrect met vertical flipping in GCHP for cases where advection and non-advection met are from different sources, e.g. raw versus processed\n- Fixed several inconsistencies in `species_database.yml`\n- Fixed typo in GEOS-FP settings file used in GCClassic run directory creation\n\n### Removed\n- Removed entries for FINN v1.5 biomass burning emissions from template HEMCO configuration files\n- Removed `Is_Advected` tags from `run/shared/species_database*.yml` template files\n- Removed GCHP initialization of `State_Met` fields `TropLev`, `BxHeight`, and `DELP_DRY` from restart file values since over-written with values of current meteorology\n- Removed `OH_PosteriorSF` entry in carbon and CH4 HEMCO_Config.rc since never used\n- Retired the CO2, CH4, and tagCO simulations. These are now replaced by the carbon simulation, which can be used in joint or single-species mode.\n- Deleted `co2_mod.F90`, `global_ch4_mod.F90`, and `tagged_co_mod.F90`\n- Removed commented-out code for tagged Hg species in `state_diag_mod.F90`\n- Removed extraneous division by `TS_EMIS` in routine `Chem_H2O2` (located in `GeosCore/sulfate_mod.F90`)\n- Removed `run/shared/species_database_hg.yml`\n- Removed obsolete metadata for tagged Hg species from `run/shared/species_database.yml`\n- Removed code to zero `State_DiagDryDepMix` in `Compute_SFlx_For_Vdiff`; these are zeroed previously in `Zero_Diagnostics_StartOfTimestep`\n- Removed entries for `DustGinoux` and `DustDead` extensions from `HEMCO_Config.rc.aerosol` and `HEMCO_Config.rc.fullchem` templates\n- Removed `&DST{1,2,3,4}properties` in `run/shared/species_database.yml`\n- Removed references to `DustDead` and `DustGinoux` HEMCO extensios in template configuration files\n\n## [14.6.3] - 2025-07-28\n### Added\n- Added error check to exclude sampling ObsPack observations located outside of a nested-grid domain\n- Added Grell-Freitas convection subroutine for post-GEOS-5.22 (GEOS-IT and GEOS-FP after June 2020)\n- Added GEOS-IT simulations to use offline emissions generated with GEOS-IT\n- Added meteorology-specific `OFFLINE_EMISSION_DIR` entries in shared directory for future use and backward compatibility\n- Added operational run script sample for AWS with EFA-enabled\n- Added operational run scripts for Harvard Cannon with Intel VTune commands\n- Added sample environment file for Harvard Cannon with GNU 14.2.0 compilers\n- Converted `F` in `DO_CONVECTION` from a variable to a pointer, for computational speedup\n- Changed OpenMP loop scheduling from `DYNAMIC` to `GUIDED` in routine `DO_CONVECTION`\n- Added `Diagn_APM` routine in `GeosCore/hcoi_gc_diagn_mod.F90` to restore HEMCO manual diagnostics for use w/ APM\n- Added hidden option to read GC-Classic restart file as real8 locally rather than real4 through HEMCO\n\n### Changed\n- Updated logic to include ObsPack observations that span UTC date boundaries\n- Assigned ObsPack averaging interval end times (instead of start times) to the `aveEnd` variable in routine `ObsPack_Write_Output`\n- Optimized parallel loops in `AIRQNT` routine in `GeosCore/calc_met_mod.F90`\n- Optimized parallel loops in `VDIFF` routine in `GeosCore/vdiff_mod.F90`\n- Placed error checks for infinity or NaN in `DO_CONVECTION` in `#ifdef DEBUG` preprocessor blocks\n- Collapsed several parallel DO loops in `GeosCore/carbon_mod.F90`\n- Changed met guidance in run directory creation to remove beta for GEOS-IT, make GCHP mass fluxes beta, and improve GEOS-FP warning\n- Changed path to carbon, CH4, CO2 simulation restart files to `ExtData/GEOSCHEM_RESTARTS/v2025-07` in `download_data.yml` and the GCHP `createRunDir.sh` script\n\n### Fixed\n- Added missing 3rd element in assigment of `Item%NcChunkSizes` in `History/histitem_mod.F90`\n- Removed extra unit conversion to mol/mol on 0th hour boundary conditions in `History/history_mod.F90`\n- Reordered code in `aerosol_mod.F90` and `gc_environment_mod.F90` so that aerosol optics file paths will be printed to the dry-run log file\n- Fixed wrong mass flux and Courant number import scaling for GCHP runs that read these fields from offline files\n- Corrected GCHP carbon HISTORY.rc entries for KPPdiags, RxnRates, and RxnConst collections\n\n### Removed\n- Removed `#ifndef TOMAS` block at the start of the parallel loop in `DO_CONVECTION`\n- Removed redundant `IF/ELSE` statement in the 2nd parallel loop in routine `AIRQNT`\n- Removed redundant `ELSE` blocks in `DO_CONVECTION`\n- Removed redundant `units` variable in routine `AIRQNT`\n\n## [14.6.2] - 2025-06-11\n### Added\n- Added MCHgMAP geogenic emissions (2010-2020) from Dastoor et al. (2025)\n- Added MCHgMAP biomass emissions (2010-2020, GFED and FINN) from Dastoor et al. (2025)\n- Added NCAR Derecho operational example environment file `geoschem.intel24.env`\n\n### Changed\n- Modified `ObsPack/obspack_mod.F90` to use GEOS-Chem surface geopotential height (`PHIS`) for selecting model layer for comparison to obspack.\n- Updated NCAR Derecho run script to source the `geoschem.intel24.env` environment file\n\n### Fixed\n- Restored unit convertion for boundary conditions from mol/mol to kg/kg dry air\n\n### Fixed\n- Assigned ObsPack averaging interval end times (instead of start times) to the `aveEnd` variable in routine `ObsPack_Write_Output`\n- Fixed logic in `Obspack_Sample` to include observations whose averaging windows span a UTC date boundary\n\n## [14.6.1] - 2025-05-27\n### Added\n- Added `#InvCEDSshipALK6`, `#InvCEDS_TMB`, and `#InvCEDSship_TMB` (commented out by default) to `HEMCO_Diagn*` and GCHP `HISTORY.rc.fullchem` files\n- Added `EmisOCs*` diagnostics to `run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.carbon` (these were missing)\n- Added entry for GFAS methanol for ExtData\n- Added `RxnConst` and `RxnRates` History collections to `HISTORY.rc.carbon` and `HISTORY.rc.Hg` template files\n- Added routine `Hg_UpdateKppDiags` to update the `KppDiags` history diagnostic arrays in `mercury_mod.F90`\n- Added `rrtmg_radiative_transfer_model:aod_wavelength_in_nm` to the GCClassic `geoschem_config.yml.aerosol` template file\n- Added an error trap in routine `Init_Aerosol` to make sure at least 1 AOD wavelength is selected for fullchem or aerosol-only simulations\n- Added operational example run script for GEOS-Chem Classic on NCAR Derecho cluster\n- Added options to run GCHP using C720 mass fluxes or derived winds with 0.25x0.3125 processed files for other meteorology\n\n### Changed\n- Updated GCHP template files `HEMCO_Diagn.rc.fullchem` and `HISTORY.rc.fullchem` so that the same emission diagnostics are requested in both\n- Changed `ALD2_PLANTDECAY` emissions category (for GEOS-Chem in NASA-GEOS ESM only) from 3 to 99 to not conflict with the anthropogenic transport sector\n- Abstracted diagnostic code out of `Chem_Carbon_Gases` and into PRIVATE subroutines in `GeosCore/carbon_gases_mod.F90`\n- Abstracted diagnostic code out of `ChemMercury` and into PRIVATE subroutines in `GeosCore/mercury_mod.F90`\n- Modified logic in `Init_State_Diag` so `KppDiags` diagnostic fields can be registered when using fullchem, Hg, or carbon mechanisms\n- Modified logic in `Init_State_Diag` so that `JValues` and `UVFlux` diagnostic fields can be registered when using fullchem or Hg simulations\n- Modified `Obspack_Read_Input` routine to look for `middle of the averaging interval` and `midpoint of the averaging interval` in the `time:comment` string\n- Wrapped several TOMAS print statements in `IF ( Input_Opt%Verbose )` blocks to avoid excessive printout when using GCHP-TOMAS\n- Changed GCHP recommended GEOS-IT options for meteorology from mass fluxes with raw C180 fields to 3hr winds with processed C180 fields.\n\n### Fixed\n- Restored the `UVFlux` diagnostic collection to the GCHP `fullchem_alldiags` integration test\n- Fixed outdated path for GFED4 daily fraction\n- Fixed entries for GEOS-IT preprocessed cubed-sphere wind in GCHP\n- Fixed the `KppTime` diagnostic in `Chem_Carbon_Gases`; it was not being updated properly\n\n### Removed\n- Removed unused run directory creation files for GCHP grid resolutions c24 and c48\n- Fixed index-based access of hydrophobic and hydrophilic carbon species in TOMAS.\n- Fixed the `KppTime` diagnostic in `Chem_Carbon_Gases`; it was not being updated properly\n- Fixed a bug in GCClassic and GCHP integration test scripts that caused `KppTime` not to be commented out in `fullchem_alldiags` tests\n- Removed most entries under the `photolysis` section in `geoschem_config.yml.aerosol` template file, as the aerosol-only simulation doesn't call Cloud-J\n- Removed setting `DELP_DRY` to zero in `hco_utilities_gc_mod.F90` when not found in the restart file to avoid negative concentrations\n\n## [14.6.0] - 2025-04-18\n### Added\n- Added CEDS 0.1 x 0.1 degree emissions (in `HEMCO/CEDS/v2024-06`)\n- Added met-field dependent dust tuning factors for GCHP C24 resolution in `setCommonRunSettings.sh`.  Others to be added later.\n- Added placeholder values for dust mass tuning factors in `HEMCO_Config.rc.GEOS`\n- Added dust scale factors for MERRA-2, GEOS-IT, and GEOS-FP when using USTAR for Dust DEAD extension\n- Added utility subroutine `Print_Species_Min_Max_Sum` to `print_mod.F90`\n- Added routine `Set_DryDepVel_Diagnostics` to `hco_interface_gc_mod.F90`\n- Added dry-run integration tests for selected simulations\n- Added `State_Diag%SatDiagnPMid` and `State_Diag%Archive_SatDiagnPMid` to save pressure at level midpoints to the `SatDiagn` collection\n- Added option to run GCClassic nested-grid simulations at 0.125x0.15625 resolution using GEOS-FP derived winds fields generated from c720 mass fluxes archived by GMAO\n- Added option for South America (SA), Africa (AF), Middle East (ME), Oceania (OC), and Russia (RU) regions to nested-grid simulations in GCClassic's createRunDir.sh\n- Added updates for compatibility with the Beijing Climate Centre Earth System Model\n- Added `run/shared/rtd_species_by_simulation.py` script to generate tables of species for each simulation for ReadtheDocs\n\n### Changed\n- Updated default CEDS from CEDSv2 (0.5 deg x 0.5 de) to new CEDS (0.1 deg x 0.1 deg)\n- Added the `KPP_INTEGRATOR_AUTOREDUCE` C-preprocessor switch integrator-specific handling\n- Added code to `KPP/*/CMakeLists.txt` to read the integrator name from the `*.kpp` file\n- Replaced `GOTO` statements with `IF/THEN/ELSE` blocks in `GeosCore/drydep_mod.F90`\n- Changed several diagnostic subroutines to expect species concentrations in mol/mol rather than kg/kg\n- Added precision when registering `State_Met` and `State_Chm` arrays to change output file precision to match precision in the model\n- Changed GEOS-Chem Classic restart file precision of species concentrations (`State_Chm%SpcRestart`) from `REAL*4` to `REAL*8` to match precision in the model\n- Moved GEOS-Chem Classic retrieval of restart variable DELPDRY from HEMCO to `GC_Get_Restart` for consistency with handling of all other restart variables\n- Moved dry dep velocity diagnostic outputs for sea flux and satellite diagnostic species into the `DryDep` collection\n- Moved computation of the `DryDepVelForAlt1` diagnostic into routine `Set_DryDepVel_Diagnostics` \n- Updated `run/shared/download_data.yml` to use `--no-sign-request` for S3 downloads via anonymous login\n- Changed `KPP/CMakeLists.txt` to not call `add_directory(standalone)` unless we have configured with `-DKPPSA=y`\n- Moved Cloud-J and Fast-JX input directories to Cloud-J and new Fast-JX menus respectively in `geoschem_config.yml`\n- Updated photolysis and aerosol optics input directories to use new mineral dust values in `FJX_scat-aer.dat` and `dust.dat` based on spheroidal shapes\n- Set `State_Diag%Archive_SatDiagn` to true if `State_Diag%Archive_SatDiagnPMID` is true\n- Updated `RxnRates` and `RxnConst` diagnostic fields to use 4-digit reaction numbers.\n- Rebuilt `fullchem`, `Hg`, `carbon` chemical mechanisms with KPP 3.2.0\n- Changed the minimum KPP version to 3.2.0\n- Disabled the `KppTime` diagnostic output in the `fullchem_alldiags` integration tests; this will vary from run to run causing difference tests to fail\n- Updated the `KPP-Standalone` for compatibility with KPP 3.2.0 and to write the proper number of header lines to skip before data begins\n- Set `use_archived_PCO_from_CH4` and `use_archived_PCO2_from_CO2` to true by default for carbon simulations\n- Updated CH4 global oil, gas, and coal emissions from GFEIv2 to GFEIv3\n- Changed GCHPctmEnv and DYNAMICS diagnostic names in GCHP to include suffix '_R4'\n\n### Fixed\n- Fixed PDOWN definition to lower rather than upper edge\n- Moved where prescribed CH4 is applied in GEOS-Chem Classic to after emissions application so that updated PBL heights are used\n- Moved species concentration unit conversions between mol/mol and kg/kg to start and end of every timestep in GEOS-Chem Classic to remove differences introduced when reading and writing restart files\n- Fixed bug in restart file entry for `ORVCSESQ` in GEOS-Chem Classic fullchem HEMCO_Config.rc that resulted in initializing to all zeros\n- Fixed parallelization issue when computing `State_Chm%DryDepNitrogren` used in HEMCO soil NOx extension\n- Fixed bugs in column mass array affecting budget diagnostics for fixed level and PBL\n- Updated `SatDiagnColEmis` and `SatDiagnSurfFlux` arrays in `hco_interface_gc_mod.F90`, with `(I,J,S)` instead of `(:,:,S)`\n- Fixed incorrect description metadata for `FluxHg0FromAirToOcean` and `FluxHg0FromOceanToAir` diagnostics\n- Placed call to `Convert_Spc_Units` in `main.F90` within an `IF ( notDryrun )` block to avoid executing unit conversions in dryrun simulations\n- Modified CH4 reservoir timestamps in HEMCO_Config.rc to use months 1-12 to ensure HEMCO recalculates those fields monthly and properly applies the seasonal mask\n- Fixed path error `download_data.py` when downloading from `geoschem+http` or `nested+http` portals\n- Retrieve UV flux arrays from Cloud-J used to set UV flux diagnostics\n- Fixed issue in `download_data.py` that was adding an extra `ExtData` to file paths\n- Restored `UVFlux` diagnostic output in the `fullchem_alldiags` integration test\n- Restored convection and ConvertBox unit conversion parallelization to how it was prior to 14.4.0 to fix slowness in TOMAS simulations\n- Modified the carbon mechanism in KPP to separate tropospheric CH4 loss by OH from CO production by CH4 to remove dependency of CH4 and CO on each other and eliminate differences between CH4/tagCO simulations and the carbon simulation\n- Renamed several dummy species in the carbon mechanism for clarity\n- Fixed precision calculations within `co2_mod.F90` and `tagged_co_mod.F90` to eliminate differences with the carbon simulation\n- Fixed simulation date information printed by metrics.py for GCHP\n\n### Removed\n- Removed `CEDSv2`, `CEDS_GBDMAPS`, `CEDS_GBDMAPSbyFuelType` emissions entries from HEMCO and ExtData template files\n- Removed re-evaporation requirement for washout\n- Removed unused level argument passed to `SOIL_DRYDEP` and `SOIL_WETDEP`\n- Removed Fast-JX input directory from geoschem_config.yml files except for Hg simulation\n- Removed `History` attribute from ObsPack output netCDF files; the date info was causing difference tests to fail\n- Removed unused diagnostics: `Tomas_H2SO4`, `Tomas_COAG`, `Tomas_NUCL`, `Tomas_AQOX`, `Tomas_MNFIX`, `Tomas_SOA`\n- Removed diurnal cycle factor applied to OH in `KPP/carbon/carbon_Funcs.F90` to eliminate differences between CH4 and carbon simulations.\n- Removed diurbal cycle factor applied to OH in tagCO simulation for consistency with other carbon species\n- Removed unused functions from `carbon_get_CO2fromOH_flux` and `carbon_get_FixedOH_Flux` from `KPP/carbon/carbon_Funcs.F90`\n\n## [14.5.3] - 2025-03-04\n### Changed\n- Changed CESM `HEMCO_Config.rc` to read 3D AEIC emissions every timestep to avoid differences upon restart\n\n## [14.5.2] - 2025-02-12\n### Added\n- Implemented the Global Rice Patty Inventory (GRPI) for CH4 and carbon simulations to replace EDGAR rice emissions\n- Added run directory creation for processed cubed-sphere GEOS-IT meteorology\n- Added GC-Classic and GCHP environment files, build scripts, and run scripts for MSU Orion cluster\n\n### Changed\n- Updated GC-Classic and GCHP environment files, build scripts, and run scripts for NASA discover cluster\n- Updated rundir scripts to ask for confirmation before building the KPP-Standalone executable\n- Updated rundir scripts to print a reminder to compile with `-DKPPSA=y` to build the KPP-Standalone executable\n- Updated `integrationTestCreate.sh` and `parallelTestCreate.sh` scripts to decline building the KPP-Standalone.\n\n### Fixed\n- Fixed GCHP refresh time for `CO2_WEEKLY` scale factors so updated daily\n- Fixed bug in GCHP GEOS-IT run directory using raw lat-lon fields on NASA discover cluster\n\n## [14.5.1] - 2025-01-10\n### Added\n- Added allocate guards for arrays in `pressure_mod`\n- Added `State_Diag%SatDiagnEdgeCount` counter for the `SatDiagnEdge` collection\n- Added `State_Diag%Archive_SatDiagnEdgeCount` field\n- Added `State_Diag%Archive_SatDiagnEdge` field\n- Added routine `SatDiagn_or_SatDiagnEdge` in `History/history_utils_mod.F90`\n- Added error trap in `History/history_mod.F90` to ensure that collection duration is always shorter than frequency\n- Added KPP standalone interface (archives model state to selected locations)\n- Added `https://github/geoschem/KPP-Standalone` as a Git submodule\n- Added comments in `./run/sharedcleanRunDir.sh` describing the `--force` option (i.e. remove files w/o user confirmation)\n- Specified meteorology source in GCHP geoschem_config.yml\n- Added Input_Opt logical for whether to reconstruct convective precipitation fluxes rather than use met-fields\n- Added to run directory creation a warning about convection discontinuity and bug if GEOS-FP meteorology is chosen\n- Added surface precipitation flux fields as inputs to GCHP\n- Added Australian Hg emissions for 2000-2019 from MacFarlane et. al. [2022], plus corresponding mask file\n- Added comments in GEOS-Chem Classic `HISTORY.rc` template files advising users not to change the `BoundaryConditions.frequency` setting\n- Added `.zenodo.json` for auto-DOI generation upon version releases\n\n### Changed\n- Renamed `Emiss_Carbon_Gases` to `CO2_Production` in `carbon_gases_mod.F90`\n- Updated start date and restart file for CO2 and tagCO simulations for consistency with carbon simulations\n- Allocated `State_Diag%SatDiagnPEDGE` ffield with vertical dimension `State_Grid%NZ+1`\n- Modified `run/GCClassic/cleanRunDir.sh` to skip removing bpch files, as well as now removing `fort.*` and `OutputDir/*.txt` files\n- Edited `run/shared/kpp_standalone_interface.yml` to include additional entries under `active cells` and `locations`\n- Changed doing Linoz and Linearized chemistry messages to print only if verbose\n- Updated HEMCO subroutine calls for error and log handling changes in HEMCO 3.9.1\n- Updated configuration files for using GEOS-Chem 14.5 in CESM\n- Modified tagCO simulation to use GFED4 biomass burning emissions and GEOS-Chem v5 OH fields for consistency with carbon simulation\n- Changed integration tests to use Harvard Cannon GNU 12 environment files by default\n\n### Fixed\n- Added a fix to skip the call to KPP when only CO2 is defined in the carbon simulation\n- Added fix to turn on ship emissions for CO2 in the carbon simulation\n- Updated `HEMCO_Config.rc` for carbon simulation to read data based on carbon species used\n- Fixed entries for CO2 emissions in `ExtData.rc.carbon`\n- Fixed metals simulation name in config file template comments\n- Fixed bug in `download_data.py` which caused script to fail if log filename contained uppercase characters.\n- Fixed the satellite diagnostics counters from being inadvertently being reset\n- Fixed segmentation fault in qfyaml when running with certain compilers without debug flags on\n- Fixed errors in adjoint-only code preventing successful adjoint build\n- Fixed zero convective precipitation and high cloud base in runs using GEOS-FP (>=01Jun2020) or GEOS-IT\n- Updated GEOS-only code and configuration files for compatibility with GEOS-Chem 14.5\n- Fixed missing Is_Advected for TMB in species_database.yml\n- Fixed typos in `HEMCO_Config.rc` for CH4 simulations causing mobile combustion emissions to be double counted\n- Fixed handling of FIRST flag in carbon_gases_mod.F to limit log prints to first timestep only\n- Removed extraneous pressure correction in GCHP carbon simulations by adding 'activate: true' to geoschem_config.yml\n- Fixed bug in GC-Classic OCS emissions where unit conversion of km2 to m2 occurred twice\n- Changed dimension of EmisOCS_Total from 3D to 2D since all emissions for all sectors are 2D\n- Added fixes to only apply archived PCO_CH4 field for carbon simulations with CO only\n- Reverted CH4 livestock emissions to EDGAR v7 to avoid hotspots and to apply seasonality\n\n### Removed\n- Removed duplicate `WD_RetFactor` tag for HgClHO2 in `species_database.yml`\n- Removed error messages in HEMCO interface pointing users to HEMCO log\n- Removed unused RUNDIR settings for GCHP pressure units and scaling\n\n## [14.5.0] - 2024-11-07\n### Added\n- Added vectors `State_Chm%KPP_AbsTol` and `State_Chm%KPP_RelTol`\n- Added setting `KPP_AbsTol` to 1e5 for dummy species in `species_database.yml` and `species_database_hg.yml`\n- Implemented PPN photolysis from Horner et al (2024)\n- Added four new species ALK4N1, ALK4N2, ALK4O2, and ALK4P to address issues in ALK4 and R4N2 chemistry following Brewer et al. (2023, JGR)\n- Added new species ALK4N1 and ALK4N2 to Ox family in KPP\n- Added Cloud-J input parameters to geoschem_config.yml in new photolysis sub-menu called cloud-j\n- Added computation of water concentration to use in photolysis for application of UV absorption by water in Cloud-J v8\n- Added ACO3, ACR, ACRO2, ALK4N{1,2,O}2, ALK4P, ALK6, APAN, APINN, APINO2, APINP, AROCMCHO, AROMCO3, AROMPN, BPINN, BPINO2, BPINON, BPINOO2, BPINOOH, BPINP, BUTN, BUTO2, C4H6, C96N, C96O2, C9602H, EBZ, GCO3, HACTA, LIMAL, LIMKB, LIMKET, LIMKO2, LIMN, LIMNB, LIMO2H, LIMO3, LIMO3H, LIMPAN, MEKCO3, MEKPN, MYRCO, PHAN, PIN, PINAL, PINO3, PINONIC, PINPAN, R7N{1,2}, R7O2, R7P, RNO3, STYR, TLFUO2, TLFUONE, TMB, ZRO2 to `species_database.yml` following Travis et  al. 2024\n- Added TSOIL1 field to `State_Met` for use in HEMCO soil NOx extension. This should only be read in when the `UseSoilTemperature` option is true in HEMCO config\n\n### Changed\n- Copied values from `State_Chm%KPP_AbsTol` to `ATOL` and `State_Chm%KPP_RelTol` to `RTOL` for fullchem and Hg simulations\n- Introduced seasalt Ca, K, Mg back to aerosol thermodynamics via HETP.\n- Updated `HEMCO_Config.rc.fullchem` (GCClassic + GCHP) and `ExtData.rc` to add emissons of new species from Travis et al 2023\n- Activated the `DryDep` collection for GCClassic & GCHP fullchem benchmarks\n- Reduced the GCHP `DryDep` collection to only the necessary species for benchmarks\n- Removed unused `VDIFFAR` routine from `vdiff_mod.F90`\n- Updated MW for CH4 and OH in `global_ch4_mod.F90`\n- Added fix to not convert from kg/kg to mol/mol before passing State_Chm to PBL mixing in `vdiff_mod.F90`\n- Updated GC-Classic and GCHP run scripts and environment files for NASA discover cluster\n- Updated `GFED4_Climatology` entries to point to the climatology file for 2010-2023\n- Moved aerosol optical properties files to a new data directory specified in geoschem_config.yml rather than specifying in photolysis input files\n- Moved calls to `RD_AOD` and `CALC_AOD` from `Init_Aerosol` rather than `Init_Photolysis`\n- Updated ResME CH4 reservoir emissions to apply seasonality via mask file\n- Changed fullchem restart file folder from `GC_14.3.0` to `GC_14.5.0`\n- Excluded HEMCO interface and ExtState fields from `MODEL_CESM` in `hco_interface_gc_mod.F90` for compatibility with CESM, which runs HEMCO separately\n\n### Fixed\n- Simplified SOA representations and fixed related AOD and TotalOA/OC calculations in benchmark\n- Changed mass conservation adjustment in `vdiff_mod.F90` to use a mass tendency with units of `kg species/kg dry air`\n- Converted the top pressure edge from hPa to Pa in `vdiff_mod.F90`\n- Updated `Jval_` entries in `run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem`\n- Updated species database Is_Photolysis entries to remove J-value diagnostics with all zeros in full chemistry simulation\n- Removed EDGAR8_CH4_AWB emissions from CH4 and carbon simulations to avoid double counting with GFED\n- Fixed formatting error in `.github/workflows/stale.yml` that caused the Mark Stale Issues action not to run\n- Fixed emissions in GCHP carbon ExtData.rc so that data in molecules/cm2/s are converted to kg/m2/s\n\n### Removed\n- Removed dry-run checks for files that are no longer needed for Cloud-J v8 from `cldj_interface_mod.F90`\n\n## [14.4.3] - 2024-08-13\n### Added\n- Added tropopause pressure field in the satellite diagnostic (by @eamarais)\n- Added ModelEe.2 (GCAP 2.0) simulation to integration tests for GCClassic\n- Added simulation with all diagnostics on in HISTORY.rc to integration tests for GCClassic (including Planeflight + ObsPack) and GCHP\n- Added descriptive error message in `Interfaces/GCHP/gchp_historyexportsmod.F90`\n- Auto-update GCHP HEMCO_Diagn.rc settings at run-time to ensure seasalt, dust, soil NOx, and biogenic emissions match settings in HEMCO_Config.rc\n\n### Fixed\n- Added brackets around `exempt-issue-labels` list in `.github/workflows/stale.yml`\n\n### Removed\n- Removed `XNUMOL_H2O2 / CM3PERM3` in routine `Chem_H2O2`, which removes an unnecessary unit conversion for the aerosol-only simulation\n\n## [14.4.2] - 2024-07-24\n### Added\n- Added number of levels with clouds for photolysis to geoschem_config.yml and Input_Opt to pass to Cloud-J\n- Added `State_Grid%CPU_Subdomain_ID` and `State_Grid%CPU_Subdomain_FirstID` as \"identifier numbers\" for multiple instances of GEOS-Chem on one core in WRF and CESM\n- Added transport tracer run directory option for global half-degree GC-Classic run with GEOS-IT 0.5x0.625 fields\n\n### Changed\n- Now reset `State_Diag%SatDiagnCount` to zero in routine`History_Write` (instead of in `History_Netcdf_Write`)\n- Update rundir creation scripts to turn off the MEGAN extension for \"standard\" fullchem simulations\n- Updated emissions used in CESM to match standard emissions used in the 14.4 offline model\n- Disable support For FAST-JX for all simulations except Hg\n- Only read photolysis data in `Init_Photolysis` in first instance of GEOS-Chem on each PET in CESM as PIO requires it\n- Replace calls to `GEOS_CHEM_STOP` with calls to `GC_Error` in `planeflight_mod.F90`\n- Script `test/integration/GCHP/integrationTestExecute.sh` now resets `cap_restart` time to `000000`, to facilitate manual restart\n\n### Fixed\n- In `Headers/roundoff_mod.F90`, first cast and then only round off if `places > 0`\n- Typo in `setCommonRunSettings.sh` that made GCHP always choose mass fluxes for meteorology\n- Fixed bug in # levels with cloud used in photolysis when using GCAP met or CESM\n- Fixed typos for `SatDiagnEdge` collection in `HISTORY.rc` templates\n- The `SatDiagnOH` diagnostic now works for the carbon simulation\n- Restored missing fields for `UVFlux` collection in `run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem`\n- Comment out `UVFlux` diagnostic in the \"alldiags\" integration test, there is a floating point error.  Look at this later.\n- Now use SO4 instead of O3 in the GCHP fullchem budget diagnostic (SO4 is soluble, O3 is not)\n- Convert `UVFlux_Tag_Names` to uppercase in the comparison in `Get_UVFlux_Bin`(located in`Headers/state_diag_mod.F90`)\n- Fixed typo (missing `_` character) in GCHP `DryDep` collection diagnostic entries\n- Commented out with `###` emissions diagnostics in the GCHP `HISTORY.rc.fullchem` template that are not present in the corresponding `HEMCO_DIAGN.rc` template\n\n### Removed\n- Entry `SatDiagnPEDGE` from the `SatDiagn` collection; This needs to go into the `SatDiagnEdge` collection.\n\n## [14.4.1] - 2024-06-28\n### Added\n- Added initialization of PHOTDELTA in `ucx_h2so4phot` to avoid run-time error in CESM\n- Added Cloud-J status output and error handling for it\n\n### Changed\n- Alphabetically sort Complex SOA species into `geoschem_config.yml` in run directory creation\n- Use hard-coded years for met fields and BC files in `HEMCO_Config.rc` so they are not read hourly\n- Updated `run/CESM` with alphabetical sorting of species in `geoschem_config.yml`\n- Added clarifying comments in GCHP configuration files for several settings, particularly related to domain decomposition, mass fluxes, and stretched grid\n- Added pre-run GCHP configuration checks to `setCommonRunSettings.sh` related to domain decomposition, mass fluxes, and stretched grid.\n- Changed search criteria for GCHP auto-update of met-field refresh frequency to not rely on presence of `MetDir` symlink in `ExtData.rc` file path\n\n### Fixed\n- Fixed formatting error in `.github/workflows/stale.yml` that caused the Mark Stale Issues action not to run\n- Fixed typo `$GCAPVERTRESL` -> `$GCAPVERTRES` in `HEMCO_Config.rc.fullchem` template file\n- Fixed GCHP `ExtData.rc` entry for lightning climatology files\n\n### Removed\n- Removed `BudgetWetDep*` entries from simulations with no soluble species in `HISTORY.rc` templates\n- Disabled `run/CESM` ParaNOx extension by default in `HEMCO_Config.rc`\n- Removed MPI broadcasts in CESM-only UCX code; MPI broadcast done at coupler level\n- Remove enabling O-server in GCHP for high core counts\n\n### Fixed\n- In `Headers/roundoff_mod.F90`, first cast and then only round off if `places > 0`\n\n## [14.4.0] - 2024-05-30\n### Added\n- Added `SpcConc%Units` for species-specific unit conversion\n- Diel and day-of-week scale factors for CEDS global base emissions\n- `Input_Opt%Satellite_CH4_Columns` logical flag; Set this to true if any of AIRS, GOSAT, TCCON observational operators are selected\n- Add explicit handling of gravitational settling and hygroscopic growth in dry deposition\n- Added CO2, CO, and OCS single-tracer carbon simulations to the integration tests\n- Added missing entry in `HEMCO_Config.rc` for natural gas postmeter CH4 emissions in GHGIv2 Express Extension\n- Added tagged species capability and PM25nit and PM25nh4 diagnostics for GEOS runs\n- Added `real*4` diagnostics for State_Met logical masks IsWater, IsLand, IsIce, and IsSnow\n- New parameterization for effective radius of SNA/OM aersols (see PR #2236)\n- New `CHEM_INPUTS/FAST_JX/v2024-05` and `CHEM_INPUTS/FAST_JX/v2024-05-Hg` folders with updated `org.dat` and `so4.dat` files\n- Added global continental chlorine (pCl and HCl) emissions\n- Extended GFED4 emissions through the end of 2023\n- Added a parameterization for dry aerosol size (Rg) for SNA and OM aerosols. Updated AOD calculation reflecting varying aerosol size.\n\n### Changed\n- Updated routines in `GeosUtil/unitconv_mod.F90` for species-specific unit conversion\n- Halt timers during calls to `Convert_Spc_Units` so as to time unit conversions separately\n- Streamline `IF` statements for CH4 observational operators in `Interfaces/GCClassic/main.F90`\n- Disable parallel loop in `Do_Convection` when using TOMAS; it causes unit conversion issues.  Revisit later.\n- Add explicit handling of gravitational settling and hygroscopic growth in dry deposition\n- Added CO2, CO, and OCS single-tracer carbon simulations to the integration tests\n- GitHub Action config file `.github/workflows/stale.yml`, which replaces StaleBot\n- Switch from fixed to monthly timezones, which account for daylight savings time more accurately when computing emissions\n- Updated NOAA GMD surface CH4 boundary conditions through 2022\n- Rename `NITs_Jscale_JHNO3` to `NITs_Jscale` and `NIT_Jscale_JHNO2` to `NIT_Jscale` in `geoschem_config.yml` templates\n- Updated volcano emissions from GMAO v202005 product to v202401 which extends to the end of 2024\n- Use local scale height and level thickness to determine the PBL to determine the PBL top level and PBL pressure thickness\n- Update drydep mean diameters of aerosols to account for size distribution\n- Corrected the formula for 1st order heterogeneous chemical loss on stratospheric aerosol for NO2, NO3, and VOC.\n- Fixed incorrect time refresh entries and other errors in `run/GCHP/ExtData.rc.templates/ExtData.rc.carbon`\n- Changed time range entries in HEMCO_Config.rc for met, restart, and BC files to use year, month, and day tokens instead of hardcoded range\n- Renamed `State_Met%FRSNO` and `State_Met%FRLANDIC` to `State_Met%FRSNOW` and `State_Met%FRLANDICE`\n- Renamed isorropiaII_mod.F90 to aerosol_thermodynamics_mod.F90\n- Changed aerosol thermodynamics scheme from ISORROPIA II to HETP for fullchem and APM\n- Changed input data paths in `run/GEOS` directory to match location change on NASA discover cluster\n- Use new mask files at 0.1 x 0.1 degree resoluiton for CH4/tagCH4/carbon simulations to avoid I/O bottlenecks\n- Update config files for CH4/carbon simulations to avoid reading the same variable multiple times\n- Converted Github issue templates to issue forms using YAML definition files\n\n### Fixed\n- Corrected the formula for 1st order heterogeneous chemical loss on stratospheric aerosol for NO2, NO3, and VOC.\n- Use rate-law function `GCARR_ac` for rxns that have Arrhenius `B` parameters that are zero\n- Now use correct index `WEAEROSOL(I,J,L,2+NDUST)` in routine `Settle_Strat_Aer` of `GeosCore/ucx_mod.F90`\n- Now get density of BCPI species from the species database in `ucx_mod.F90`\n- Fix issues that prevented single-species carbon simulations from running in GCHP\n- Update `HEMCO_Config.rc.carbon` and `ExtData.rc.carbon` templates for consistency\n- Updated several emissions files for CO and CH4 for COARDS and MAPL compliance\n- Fixed several issues in GCHP single-species carbon simulation setup scripts\n- Corrected the formula for 1st order heterogeneous chemical loss on stratospheric aerosol for NO2, NO3, and VOC.\n- Corrected the formula for 1st order heterogeneous chemical loss on stratospheric aerosol for NO2, NO3, and VOC.\n- Change restart file time cycle flag from `EFYO` to `CYS` for TOMAS simulations to avoid missing species error.\n- Now define `REEVAPSO2` in wetscav_mod when units are kg species; this avoids floating-point errors.\n- Fixed `State_Met%FRSNO` to be fraction of grid box with snow rather than fraction of land with snow\n- Fixed variable definitions in the `DryDep` collection of `run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem`\n\n### Removed\n- Legacy binary punch diagnostic code contained within `#ifdef BPCH_DIAG` blocks\n- `IU_BPCH` logical file unit (in `GeosUtil/file_mod.F90`)\n- Removed tagged CH4 and CO species handling from `carbon_gases_mod.F90`\n- GitHub config files `.github/stale.yml` and `.github/no-response.yml`\n- Unused CO2 and carbon simulation options from `geoschem_config.yml` (and from related code in co2_mod.F90).\n- Removed ISORROPIA\n- Removed `Begin` array in do_fullchem (declared but not used)\n- Removed tagCH4 simulation as option\n- Removed `--request-payer requester` from `run/shared/download_data.py`; the `s3://gcgrid` data is open-source\n\n## [14.3.1] - 2024-04-02\n### Added\n- Added operational run scripts for the Imperial College London (ICL) cluster\n- Added new vertical region option to budget diagnostic for fixed bottom and top levels\n- Added GEOS-IT processed lat-lon fields as a valid option when creating GCHP run directories\n- Functions `charArr2str` and `str2CharArr` in `Headers/charpak_mod.F90`\n- Field `State_Diag%Obspack_CharArray` as a 2-D character array\n- Added util folder in run/CESM to include .cdl file used to generate CESM NetCDF input file for deposition\n- Add GCClassic operational example environment files for Harvard Cannon\n- Added new GCHP history collections for advection diagnostics\n- Added slash in front of names of LUT files read into `photolysis_mod.F90` to avoid needing it in path\n\n### Changed\n- Updated Harvard Cannon operational run scripts to use `huce_cascade` instead of `huce_intel`; also added `sapphire`\n- Changed exponent 'e' to 'd' for one entry in KPP to prevent precision error in external models\n- Changed GCHP sample run scripts to not print script execution commands to log\n- Changed offline emissions grid resolution templates in config files to be more descriptive\n- Read `obspack_id` from netCDF files into a character array, then convert to string\n- Add `#SBATCH -c 1` to GCHP integration test scripts and sample run scripts for Harvard Cannon\n- In GCC/GCHP integration tests, passing `-s none` will run compile-only tests.  Query user to proceed or to exit.\n- GCC/GCHP integration tests will exit immediately if `scheduler` is omitted.\n- Now use `raw` instead of `native` in GCHP run directory scripts & templates\n- Rename env var `RUNDIR_METLIGHTNING_DIR_NATIVE` to `RUNDIR_METLIGHTNING_DIR`\n- Rename env var `RUNDIR_METLIGHTNING_NATIVE_RES` to `RUNDIR_METLIGHTNING_RES`\n- Updated config files used in CESM from GEOS-Chem 14.1 to 14.3\n- Don't create run directories for integration/parallel tests if invoked with `-t compile`\n- Refactor integration and parallel test scripts to reduce the number of input arguments\n- Copy utility scripts that allow you to resubmit failed to integration and parallel test root directories\n- Update GCHP operational example environment files for Harvard Cannon\n- Do not run GCClassic integration test compile jobs in the background\n- Updated integration tests to pass quick option to compile scripts\n- Removed emissions handling from `global_ch4_mod.F90` and `carbon_gases_mod.F90` and instead apply scale factors to emissions directly in `HEMCO_Config.rc`\n- Loop over advected species CH4 chemistry routines to allow for multiple CH4 tracers within analytical inversion framework\n- Updated CH4 global anthropogenic emission inventory from EDGARv7 to EDGARv8\n\n### Fixed\n- Fixed unit conversions in GEOS-only code\n- Fixed GEOS-IT native lat-lon filenames used for clusters other than discover\n- Fixed offline emission paths set when using GEOS-IT meteorology\n- Fixed format issue in input_mod RRTMG print statement caught by some compilers\n- Fixed GEOS-IT SLP and TROPP scaling in pre-processed files used in GCHP\n- Fixed reading of NEI emissions through HEMCO\n- Fixed incorrect units metadata for `State_Met%PHIS`\n- Fixed bug in transport tracer ST80 mask criteria which prevented mask from ever being zero\n\n### Removed\n- Removed MPI broadcasts in CESM-only photolysis code; will read on all cores\n- Removed `State_Chm%CH4_EMIS`\n\n## [14.3.0] - 2024-02-07\n### Added\n- Added capability for TOMAS simulations in GCHP\n- Added State_Chm%nTomasBins to replace hardcoded bins in TOMAS diagnostics\n- Added interface to Cloud-J package for computing photolysis rates\n- Added compile-time option FASTJX to use legacy Fast-JX photolysis instead of Cloud-J\n- Added new diagnostics OD600 and TCOD600 for 600 nm optical depths (per-level and total column) used for computing J-values in either Fast-JX or Cloud-J\n- Added GEOS-IT as meteorology option and labeled as beta during run directory creation until full inventory and offline emissions are available.\n- Added support for running GEOS-Chem on the NASA discover cluster\n- Added inclusion of c30 restart file in GCHP run directories since c24 and c48 not supported when using GEOS-IT meteorology\n- Added automatic updating of GCHP lightning climatology in ExtData.rc based on settings in HEMCO_Config.rc\n- Added two new diagnostics to track number of negative concentrations after first and last KPP integration\n- Added capability of running GEOS-Chem transport tracer simulation within the GEOS model\n- Added radiative forcing contributions due to trop-only ozone, CFCs, water vapor, N2O, CO2 and changes in stratosphere to RRTMG\n- Added computation of radiative forcing at the tropopause to RRTMG\n- Added option to compute stratospherically-adjusted radiative forcing at the tropopause using RK4 time marching integration with fixed dynamical heating approximation (FDH)\n- Added experimental option to apply seasonally-evolving fixed dyanmical heating approximation in RRTMG\n\n### Changed\n- Updated fullchem mechanism following JPL/IUPAC. See `KPP/fullchem/CHANGELOG_fullchem.md` for details.\n- Reorganized GCHP run directory creation prompts for GEOS-FP native meteorology input\n- Converted TOMAS bpch diagnostics to netCDF\n- Now read the Hg restart file from `ExtData/GEOSCHEM_RESTARTS/v2023-12`\n- Increse requested time limits in GCHP integration tests (compile 2h30m, run 5h)\n- Changed CO2 concentration used in RRTMG to be modifiable in geoschem_config.yml\n- Changed water vapor used in RRTMG to match to tracer field at all altitudes\n- Updated restart file path for GCHP TOMAS simulations\n- Look for fullchem restarts in the `GEOSCHEM_RESTARTS/GC_14.3.0` folder\n- Look for fullchem/aerosol boundary conditions in the `HEMCO/SAMPLE_BCs/GC_14.3.0/fullchem` folder\n\n### Fixed\n- Fixed bug in stratospheric aerosols optical depths passed to Fast-JX\n- Restored consideration of both isSnow and isIce in dry deposition\n- Fixed calculation of `FRLAND_NOSNO_NOICE` in `calc_met_mod.F90`\n- Added missing units in comments of `KPP/fullchem/commonIncludeVars.H`\n- Use run directory (not absolute path) to determine the executable file name in integration & parallel tests.\n- Fixed memory leaks in `State_Chm%AerMass` and `State_Chm%Phot` containers\n- Fixed incorrect time-avaging in RRTMG diagnostics wheres zeros included prior to first RRTMG call\n- Added fix for runaway HMS chemistry. See `KPP/fullchem/CHANGELOG_fullchem.md` for details.\n\n### Removed\n- Removed references to unused met-fields RADLWG and LWGNT\n- Removed inclusion of c360 restart file in GCHP run directories\n- Reduced timers saved out to essential list used for benchmarking model performance\n- Removed `State_Chm%Spc_Units`; this is now superseded by `State_Chm%Species(:)%Units`\n\n## [14.2.3] - 2023-12-01\n### Added\n- GEOS-Chem Classic rundir script `run/GCClassic/setupForRestarts.sh`\n\n### Changed\n- Added the `-n` aka `--no-bootstrap` option to integration tests to disable bootstrapping missing species in restart files\n- Use integer parameters for species units instead of strings (for computational efficiency)\n- Update error message for missing surface CH4 emissions with instructions on how to resolve the problem\n- Change GCHP grid resolution threshold for lowering timesteps from C180 inclusive to C180 exclusive\n- Read GEOS-Chem Classic restart file paths from the relevant `download_data.yml` file\n- Moved aerosol_mod module variables to new State_Chm container called AerMass\n\n### Fixed\n- Prevent `POAEMISS` from being assigned a value if not allocated (in `carbon_mod.F90`)\n- Changed incorrect comment about static H2O option in `GeosCore/input_mod.F90`\n- Fixed typos (`GCClassic` -> `GCHP`) written to GCHP integration test log files\n- Add fix to properly read GHGI v2 express extension emissions in CH4 and carbon simulations\n- Move OH perturbation scale factor to outside EMISSIONS logical bracket in HEMCO_Config.rc files for CH4 and carbon simulations\n\n### Removed\n- Remove definition of METDIR from primary `HEMCO_Config.rc` files to ensure use of the definition in the `HEMCO_Config.rc.*_metfields` files\n- Removed `State_Chm%Spc_Units`\n\n## [14.2.2] - 2023-10-23\n### Changed\n- Updated sample restart files for fullchem and TransportTracers simulations to files saved out from the 14.2.0 1-year benchmarks\n\n## [14.2.1] - 2023-10-10\n### Added\n- Script `test/difference/diffTest.sh`, checks 2 different integration tests for differences\n- Added GCHP environment file and export/unset env variables in run script for NASA Pleiades cluster\n`SatDiagnEdge` collection to all GEOS-Chem Classic `HISTORY.rc` templates\n- Added new GCHP config file ESMF.rc for configuring ESMF logging\n- Added several new run directory files for use with GEOS-Chem in GEOS\n- GCClassic integration tests now display proper commit info in `results.compile.log`\n- Stopped OCEAN_CONC from needlessly being pushed through vertical regridding for Hg simulations\n- Added warning in GCHP HISTORY.rc about outputting area-dependent variables on custom grids\n- Added option to use a single advected species in the carbon simulation\n- Added option to perturb CH4 boundary conditions in CH4 simulation\n- Added option to perturb OH in CH4 simulation using scale factor in HEMCO_Config.rc\n\n### Changed\n- Update `DiagnFreq` in GCClassic integration tests to ensure HEMCO diagnostic output\n- Rename restart files in GCHP integration tests (as we do in non-test runs)\n- Request 6 hours of execution time for GEOS-Chem Classic integration tests\n- Invert directory structure where integration and parallel test scripts are stored\n- Error check to stop run if any `MW_g` values are undefined\n- Explicitly define tagCH4 simulations in `Input_Opt` rather than basing off of number of advected species\n- The `fullchem` mechanism must now be built with KPP 3.0.0 or later\n- Changed the AEIC 2019 monthly climatology specification format in ExtData.rc to match standard convention for climatology\n- Changed default ESMF logging in GCHP to be ESMF_LOGKIND_NONE (no log)\n- NetCDF utilities in `NcdfUtil` folder now use the netCDF-F90 API\n- GEOS-only updates for running GEOS-Chem in GEOS\n- Boundary conditions for nested-grid simulations are now imposed at every time step instead of 3-hourly\n- Update `GeosCore/carbon_gases_mod.F90` for consistency with config file updates in PR #1916\n- Update MPI usage in CESM-only code to match new conventions in CAM\n- Updated GEPA inventory to GHGI v2 for CH4 and carbon simulations\n- Updated integration tests scripts to run on the WashU Compute1 cluster\n\n### Fixed\n- Add missing mol wt for HgBrO in `run/shared/species_database_hg.yml`\n- Moved the `EDGAR REF_TRF CH4` emissions to the Oil emissions category so it is superseded by GFEIv2 for carbon simulations.\n- Prevent `State_Diag%SatDiagnCount` from not being allocated\n- For satellite diagnostics, do not test for `id_OH` if OH is not a species\n- Fixed parallelization in Luo wetdep simulations caused by uninitialized variable\n- Fixed parallelization for Hg0 species in `GeosCore/drydep_mod.F90`\n- Fixed incorrect time-slice when reading nested-grid boundary conditions\n- Fixed initialization of advected species missing in GCHP restart file\n- Fixed comments in `GeosUtil/unitconv_mod.F90` to reflect code implementation\n- Fixed compilation issues for `KPP/custom`; updated equations in `custom.eqn`\n- Prevent users from creating GCClassic rundirs at 0.25 x 0.3125 resolution for MERRA-2 met\n- Added fix to set `RUNDIR_GRID_HALF_POLAR` option for global grids at 0.25x0.3125 or 0.5x0.625 resolutions\n- Moved `OCEAN_MASK` out of `ExtData.rc.TransportTracers` and into the\n  meteorology template files\n- Update `ExtData.rc.CO2` to get meteorology entries from template files\n- Added fix for CH4 analytical inversions to convert the state vector value read from file to the nearest integer before comparing to the `Input_Opt%StateVectorElement` read from geoschem_config.yml\n\n### Removed\n- Remove references to the obsolete tagged Hg simulation\n\n## [14.2.0] - 2023-10-05\n### Added\n- Added a printout of GEOS-Chem species and indices\n- Added `NcdfUtil/README.md` file directing users to look for netCDF utility scripts at https://github.com/geoschem/netcdf-scripts\n- Restored sink reactions for HOI, IONO, IONO2 (fullchem, custom mechanisms)\n- S(IV) + HOBr and S(IV) + HOCl reactions to `KPP/fullchem/fullchem.eqn`\n- Added setting in GCHP setCommonRunSettings.sh to require species in restarts\n- Added setting in GCHP HISTORY.rc to control whether output can be overwritten\n- Activated nitrate photolysis\n- Added `LightingClimatology` option to HEMCO_Config.rc\n- Added run configuration files for WRF-GC\n- Added new files `photolysis_mod.F90`, `phot_container_mod.F90`, and `fjx_interface_mod.F90`\n- Added photolysis toggle in `geoschem_config.yml` and `Input_Opt` variable Do_Photolysis\n- Added speed of light and Planck's constant to PhysConstants module\n- Added `GFED4_CLIMATOLOGY` option to HEMCO_Config.rc\n- Added CH4 emissions from hydroelectric reservoirs to CH4, Carbon, and tagCH4 simulations\n- Added RxnConst diagnostic for archiving reaction rate constants\n- Added GCHP run-time option in GCHP.rc to choose dry or total pressure in GCHP advection\n- Added GCHP run-time option in GCHP.rc to correct native mass fluxes for humidity\n- Added new tracer_mod.F90 containing subroutines for applying sources and sinks for the TransportTracer simulation\n- Added new species to the TransportTracer simulation: aoa (replaces CLOCK), aoa_bl, aoa_nh, st80_25\n- Added GEOS-IT and GEOSIT as allowable meteorology source options in geoschem_config.yml\n\n### Changed\n- Most printout has been converted to debug printout (toggled by `debug_printout: true` in `geoschem_config.yml`\n- `HEMCO_Config.rc` template files now use `Verbose: true` to toggle debug printout\n- Turn on sea salt debromination via switches in `HEMCO_config.rc`\n- If KPP integration fails, reset to prior concentrations and set `RSTATE(3) = 0` before retrying\n- Suppress integration errors after 20 errors have been printed to stdout\n- Simplified and added comments for bimolecular reactions in clouds in function CloudHet2R\n- `HEMCO_Config.rc` and `ExtData.rc` templates now point `HEMCO/GFED4/v2023-03`\n- Updated GCHP carbon simulation Global Cl and P(CO) inputs to use 14.0.0 files\n- Write GCHP restart files directory to Restarts subdirectory\n- Rename GCHP mid-run checkpoint files to standard GEOS-Chem restart format\n- Rules for species in restarts files are now the same in GCHP as in GC-Classic\n- Moved parts of `CMN_FJX_Mod.F90` not used in original Fast-JX to new container State_Chm%Phot\n- Restructured photolysis to create generic photolysis module, interface with Fast-JX, and module containing original Fast-JX analogous to Cloud-J\n- Moved UVFlux diagnostics out of JValues collection and into new collection called UVFlux\n- In the user registration process:\n  - Now ask for both first and last names of the user\n  - Now state that user registration is needed for GEOS-Chem support\n- Updated `HEMCO_Config.rc` templates to read HEMCO restarts from the `Restarts` rundir folder\n- In fullchem simulations, set CO2 to 421 ppm (avg global conc in 2022) everywhere\n- Updated CH4 simulation to use CH4 loss frequencies from GCClassic 14.0.0 10-year benchmarks instead of GMI\n- Updated CH4 global anthropogenic emission inventory from EDGARv6 to EDGARv7\n- Updated `AUTHORS.txt` for version 14.2.0\n- Updated links in `README.md` to point to `http://geos-chem.org`\n- Changed GCHP default settings to use dry pressure rather than total pressure in advection and correct native mass fluxes for humidity\n- Updated partitions requested in Harvard run script examples\n- Change RTOL value from 0.5e-3 back to 0.5e-2 to address model slowdown\n- Allow the use of OFFLINE_SEASALT for seasalt alkalinity, Cl, and Br in GEOS-Chem within CESM\n- Renamed TransportTracer species for consistency with GMAO's TR_GridComp\n- See `KPP/fullchem/CHANGELOG_fullchem.md` for fullchem-mechanism\n  changes\n- Update template `HEMCO_Config.rc.carbon` files to allow running the carbon simulation with only a single species.\n\n### Fixed\n- Fixed typo in `GCClassic/createRunDir.sh` preventing benchmark run script from being copied to the run directory\n- Fixed divide by zero bug in sulfur chemistry introduced in 14.1.0\n- Updates for 0.5 x 0.625 degree GCClassic integration & parallel tests\n  - Use `CYS` in `HEMCO_Config.rc` so that missing species in `GC_BCs` will not stop simulations\n  - Tests now run for 20 model minutes instead of an hour\n- Fixed divide by zero bug in sulfur chemistry introduced in 14.1.0\n- Fixed GCHP `HISTORY.rc` issue preventing running with over 3000 cores\n- Fixed GCHP `ExtData.rc` error in tagged ozone simulation\n- Fixed GCHP `HISTORY.rc` issue preventing diagnostic file overwrite\n- Update GCHP interactive run script to fix error handling silent bugs\n- Rewrote subroutine calls in `carbon_mod.F90` and `seasalt_mod.F90` to prevent array temporaries.\n- Prevent repeated printing of KPP integrate errors to the stdout stream.\n- Fixed selection of troposphere-stratosphere boundary in `global_ch4_mod.F90`\n- Removed operator splitting in CH4 simulation that was biasing diagnostics\n- Fixed GCHP start and elapsed times in time_mod.F90 to use cap_restart value\n- Disabled SpeciesConcMND output for benchmark simulations\n- Exit `Init_Photolysis` before calling `Calc_AOD` when doing dry-run simulations\n- Make sure `State_Het%f_Alk_SSA` and `State_Het%f_Alk_SSC` are in the range 0..1\n- Restore seasalt alkalinity to heterogeneous acid-catalyzed reactions of halogens on seasalt aerosols\n\n### Removed\n- `Warnings: 1` is now removed from `HEMCO_Config.rc.*` template files\n- Removed the `NcdfUtil/perl` folder\n- Removed `X-HRS` output from log file\n- IONO2 recycling (fullchem, custom mechanisms)\n- Deleted unused file set_prof_o3.F90\n\n### Fixed\n- Fixed entries for CH4 emissions in `HEMCO_Config.rc.carbon`\n\n## [14.1.2] - 2023-10-20\n### Added\n- CESM-only update: Added option for correctConvUTLS for correcting buildup of soluble tracers in the UT/LS to match CAM-chem behavior\n\n### Changed\n- CESM-only update: extend existing KppError, KppStop to CESM for model stability\n- CESM-only update: Removed mpi_bcast in ucx_mod NOXCOEFF_INIT to be handled at coupler level to support spectral-element dynamical core\n\n## [14.1.1] - 2023-03-03\n### Added\n  - New integration test functions in `test/GCClassic/integration` and `test/GCHP/integration`\n  - New parallelization test functions in `test/GCClassic/parallel`\n  - Added `README.md` files for integration and parallelization tests in the `test` folder structure\n  - Added GCHP integration test for the tagO3 simulation\n  - Added GCHP and GCClassic integration tests for the carbon simulation\n  - Integration and parallelization test folders have been separated into subdirectories to minimize clutter.\n  - GEOS-only updates\n  - Add `about` to GitHub issue templates (ensures they will be displayed)\n  - Added `.github/ISSUE_TEMPLATE/config.yml` file w/ Github issue options\n\n### Changed\n  - GCClassic integration tests now use a single set of scripts\n  - GCHP integration tests now use a single set of scripts\n  - Integration test run directories are created with the default names assigned by `createRunDir.sh`\n  - Several bash functions in `test/shared/commonFunctionsForTests.sh` have been combined so that they will work for both GCClassic and GCHP integration tests\n  - `./cleanRunDir.sh` functions now take an argument for non-interactive execution (facilitates integration & parallelization tests)\n  - Moved several module variables from `GeosCore/ucx_mod.F90` to `Headers/state_chm_mod.F90`.  This facilitates using GEOS-Chem in CESM.\n  - Time cycle flags EFYO are changed to CYS for all GCClassic integration/parallel tests, and for GCClassic fullchem_benchmarksimulations.\n- Ask users for the name of their research institution at registration\n- Ask users for the name of their PI at registration\n- Do not compile GCHP for tagO3 integration tests; use the default build instead\n- Moved GC-Classic sample run scripts to operational_examples/harvard_cannon\n- The GitHub PR template is now named `./github/PULL_REQUEST_TEMPLATE.md`\n\n### Fixed\n- Fixed bug in where writing species metadata yaml file write was always attempted\n- Prevent a warning from being generated when compiling `gckpp_Jacobian.F90`\n- Fixed a bug in routine GET_IJ where X and Y were swapped in an IF comparison.\n- Fixed bug in GFAS pFe by applying work-around in config files\n\n### Removed\n- Removed `intTest*_slurm.sh`, `intTest_*lsf.sh`, and `intTest*_interactive.sh` integration test scripts\n- Removed State_Met%LWI and input meteorology LWI from carbon simulation run config files\n- Removed function `CLEANUP_UCX`; deallocations are now done in `state_chm_mod.F90`\n\n## [14.1.0] - 2023-02-01\n### Added\n- Added dry deposition updates to Hg0 from Feinberg22 ESPI publication + AMAP emissions\n- Added MO2 + NO3 = NO2 + CH2O + HO2 reaction\n- Added capability to write species metadata to YAML file\n- Added satellite diagnostic (SatDiagn) collection, to archive several fields within a user-defined local-time interval. CAVEAT: For now, only one local-time interval is permitted.\n- Added adaptive solver (`rosenbrock_autoreduce`) option for fullchem mechanism\n- Added entries for BALD, BENZP, BZCO3H, NPHEN to JValues collection in HISTORY.rc for GCHP\n- Added GCHP run script and environment files for MIT clusters Hex and Svante\n- Added operational GCHP and GCClassic environment and run scripts for the University of York cluster, Viking\n- Added tagO3 run directory for GCHP\n- Added upwards mass flux diagnostic to GCHP History collection LevelEdgeDiags\n- Added timestep menu to GCHP `geoschem_config.yml` template files\n- Added HTAPv3 inventory as a global emissions option (off by default)\n- Added carbon simulation and KPP mechanism for CO-CO2-CH4-OCS\n- Added GCHP run script and environment file for UCI Australia cluster Gadi\n- Added GFAS entries in GCHP config file ExtData.rc\n\n### Changed\n- Moved in-module variables in global_ch4_mod.F90 to State_Chm\n- Moved in-module variables in hco_interface_gc_mod.F90 to State_Met and State_Chm\n- Modified SpeciesConc diagnostic to include option to output units in v/v or molec/cm3\n- Rebuilt fullchem and Hg mechanisms with KPP 3.0.0\n- Changed HEMCO timecycle flag for QFED and offline emissions from EF to EFY\n- Updated the time refresh settings for `O3_PROD` and `O3_LOSS` in `ExtData.rc.tagO3` to read data on the first of each month.\n\n### Fixed\n- Fixed sign of Arrhenius \"A\" coefficient in reaction ETO = HO2 + 2CH2O\n- Fixed products in HOBr + SO2 and HOCl + SO2 reactions\n- Changed MW_g value of CH4 from 16.05 to 16.04\n- Added \"WD_CoarseAer:true\" for SO4s and NITs in species_database.yml\n- Fixed bug in computing State_Met surface type logicals (IsLand, IsWater, etc)\n- Fixed bug where State_Met%FRSNO (fraction snow) was all zeros in GCHP\n- Fixed HCFC141b and HCFC142b names in GCHP HISTORY.rc\n- Fixed list of complex SOA species checked in input_mod.F90\n- Now use a string array for reading the list of ObsPack diagnostic species (in `GeosCore/input_mod.F90`)\n- Fixed bug in logic that caused restart files not to be linked to the Restarts/ folder of the GCHP tagO3 run directory\n- Fixed timestamp for GCClassic History diagnostic so time-averaged collections match the reference time\n- Fixed double-titration of seasalt alkalinity\n- Fixed bug in GFAS pFe by applying work-around in config files\n\n### Removed\n- Removed LRED_JNO2 and AERO_HG2_PARTITON switches from HEMCO_Config.rc (and related code)\n\n## [14.0.2] - 2022-11-29\n### Fixed\n- Added fix for writing dry-run header to log file\n- Updated KPP diagnostics archive flags\n- Rewrote code to avoid memory leaks (identified by the code sanitizer)\n- Updated EDGAR v6 CH4 emission files to correct timestamp issue\n- Updated CH4 Lakes emission files to correct time unit issue\n- Added fix for CH4_RICE emissions from EDGAR v6\n- Fixed indentation error in the `legacy_bpch` section of `geoschem_config.yml` template files\n- Removed \"dry air\" from the metadata of fields `State_Met%AIRVOL` and `State_Met%BXHEIGHT`\n- Applied fixes for CESM runs: Turned off sea salt emissions; Modified time cycle flag for YUAN_MODIS_LAI\n\n### Changed\n- Updated CESM HISTORY.rc to work with new CESM-GC diagnostics interface\n- Updated sample fullchem restart files copied to run directories to 14.0.0 10-year benchmark output\n\n\n### Changed\n- Use met-field surface type fractions instead of input land-water-ice (LWI) index\n\n### Removed\n- Removed State_Met%LWI and LWI as a met-field input\n\n## [14.0.1] - 2022-10-31\n### Fixed\n- Corrected units in metadata for State_Met%AirNumDen and State_Met%PHIS\n- Fixed file path for AEIC2019_DAILY emissions for aerosol-only simulations\n- Fixed GCHP bug to populate non-species data in mid-run restart files\n- Fixed typo preventing ND51 satellite diagnostic from turning on\n\n### Changed\n- Documented and cleaned up GCHP run script operational examples\n- Updated README.md and AUTHORS.txt\n- Set species concentration arrays as pointers to internal state in GCHP\n- Updated Restart collection in HISTORY.rc to save out BXHEIGHT and TROPLEV for all simulations\n\n\n## [14.0.0] - 2022-10-25\n### Added\n- Added user registration with dynamodb database during run directory creation\n- Added Hg simulation with KPP\n- Added yaml-format config file geoschem_config.yml which replaces input.geos\n- Added native GEOS-FP and mass fluxes options to GCHP run directory creation\n- Added cap_restart file to GCHP run directories to set simulation start time\n- Added updates for compatibility with CESM, GEOS, and WRF-GC\n\n### Fixed\n- Fixed missing output boundary conditions on first timestep of run\n- Added missing entries for POG1, POG2, and pFe to HEMCO_Config.rc\n- Reverted GC-Classic pressure fixer to v13.3 to fix bug in v13.4\n- Fixed dry deposition of methanol over oceans\n- Fixed issues in creating run directory for GCAP2\n- Removed duplicate species for SO4 in aciduptake.eqn\n- Fixed CEDS_CO2_SHP emissions in HEMCO_Config.rc file for CO2 simulation\n- Fixed Volcano_Table entry in HEMCO config template for GCHP\n- Fixed transport tracers simulation in GCHP\n- Applied fix to avoid divide-by-zero in routine MMR_Compute_FLux\n- Fixed HEMCO diagnostic counter zero warnings in full chemistry simulation\n- Fixed bug in totalOC diagnostic\n- Fixed bugs causing differences when splitting up GC-Classic and GCHP simulations in time\n- Fixed bug setting GEOS-FP meteorology in GCHP run directories\n\n### Changed\n- Updated KPP to version 2.5.0\n- Updated GCHP run scripts to easily segment runs in time\n- Changed GCHP restart filename convention to exclude seconds\n- Updated offline biogenic VOC and soil NOx emissions\n- Reduced root logging level for MAPL from INFO to WARNING\n- Changed 4D State_Chm%Species array to vector of 3D concentration arrays\n- Renamed GCHP config file runConfig.sh to setCommonRunSettings.sh\n- Moved restart file location in run directory to Restarts subdirectory\n- Updated sample restart files copied to run directories to 14.0.0 1-year benchmark output\n\n### Removed\n- Removed TMPU1, SPHU1, PS1_WET, and PS1_DRY from GC-Classic restart file\n- Removed input.geos; replaced with geoschem_config.yml\n- Removed HEMCO.log output file; HEMCO log info now sent to main GEOS-Chem log\n"
  },
  {
    "path": "CMakeLists.txt",
    "content": "# GEOS-Chem repository CMakeLists.txt\n\ncmake_minimum_required(VERSION 3.5)\n\n#-----------------------------------------------------------------------------\n# Set policies\n#-----------------------------------------------------------------------------\ncmake_policy(SET CMP0054 NEW)\ncmake_policy(SET CMP0057 NEW)\nif(POLICY CMP0074)\n    cmake_policy(SET CMP0074 NEW)\nendif()\nif(POLICY CMP0079)\n    cmake_policy(SET CMP0079 NEW)\nendif()\n\n# Add GEOS-Chem CMake helpers to MODULE_PATH\nlist(INSERT CMAKE_MODULE_PATH 0 ${CMAKE_CURRENT_SOURCE_DIR}/CMakeScripts)\ninclude(GC-Helpers)\n#-----------------------------------------------------------------------------\n# Print header\n#-----------------------------------------------------------------------------\nget_repo_version(GC_REPO_VERSION ${CMAKE_CURRENT_SOURCE_DIR})\nmessage(\"=================================================================\")\nmessage(\"GEOS-Chem ${PROJECT_VERSION} (science codebase)\")\nmessage(\"Current status: ${GC_REPO_VERSION}\")\nmessage(\"=================================================================\")\n\n#-----------------------------------------------------------------------------\n# Declare the GEOSChemBuildProperties library\n#\n# All GEOS-Chem targets depend on this. This is used to control the compiler\n# options and definitions for GEOS-Chem targets (via inheritance).\n#\n# Optionally, super project can define and configure this target.\n#-----------------------------------------------------------------------------\nif(NOT TARGET GEOSChemBuildProperties)\n    add_library(GEOSChemBuildProperties INTERFACE)\nendif()\n\n#-----------------------------------------------------------------------------\n# Add all the subdirectories.\n# Each subdirectory specifies how it should be built.\n#-----------------------------------------------------------------------------\nadd_subdirectory(KPP)\nadd_subdirectory(Headers)\nadd_subdirectory(GeosUtil)\nadd_subdirectory(NcdfUtil)\nadd_subdirectory(History)\nadd_subdirectory(ObsPack)\nadd_subdirectory(APM)\nadd_subdirectory(GeosRad)\nadd_subdirectory(GTMM)\nadd_subdirectory(GeosCore)\n\n#-----------------------------------------------------------------------------\n# Build GEOS-Chem Classic driver program (if MODEL_CLASSIC=T)\n#-----------------------------------------------------------------------------\nif(MODEL_CLASSIC)\n  add_subdirectory(Interfaces/GCClassic)\nendif()\n\n#-----------------------------------------------------------------------------\n# Build GCHPctm driver program (if MODEL_GCHPCTM=T)\n#-----------------------------------------------------------------------------\nif(MODEL_GCHPCTM)\n  add_subdirectory(Interfaces/GCHP)\nendif()\n"
  },
  {
    "path": "CMakeScripts/GC-Helpers.cmake",
    "content": "\n#[[ stringify_list\n\nStringify a list of strings.\n\nUsage:\n    stringify_list(<list>\n        [PRINT]\n        [LINE_LENGTH <length>]\n        [HIGHLIGHT <keyword> ...]\n        [JOIN <token> ...]\n        [AFTER]\n    )\n\nOptions:\n    PRINT           Print the stringified list to console. Highlighted text\n                    will also be colorized.\n\n    LINE_LENGTH     When JOINing a list of string, the resulting lines will\n                    be limited to <length> characters. The resulting <list>\n                    will be a list of lines that can then be JOINed with\n                    newlines.\n\n    HIGHLIGHT       A list of keywords to highlight.\n\n    JOIN            A list of tokens that will be used sequentially to join\n                    list items. The last token will be used to join all\n                    remaining items.\n\n    AFTER           Place the JOIN tokens after the item, rather than before.\n\n]]\nfunction(stringify_list LIST)\n    cmake_parse_arguments(BETTER\n        \"PRINT;AFTER\"\n        \"LINE_LENGTH\"\n        \"HIGHLIGHT;JOIN\"\n        ${ARGN}\n    )\n\n    if(NOT DEFINED BETTER_LINE_LENGTH)\n        set(BETTER_LINE_LENGTH 1000) # Arbitrary big number\n    endif()\n\n    set(STR ${${LIST}})\n\n    # Limit joined line length\n    if(DEFINED BETTER_JOIN)\n        set(TEMP \"\")\n        set(CUR_LEN \"0\")\n\n        set(JOIN_IDX \"0 - 1\")\n        list(LENGTH BETTER_JOIN JOIN_LEN)\n\n        foreach(ITEM ${STR})\n            # Get the join token\n            math(EXPR JOIN_IDX \"${JOIN_IDX} + 1\")\n            if(${JOIN_IDX} LESS ${JOIN_LEN})\n                list(GET BETTER_JOIN \"${JOIN_IDX}\" JOIN_TOKEN)\n            endif()\n            string(LENGTH \"${JOIN_TOKEN}\" SEP_LEN)\n\n            # If a line length was\n            string(LENGTH \"${ITEM}\" WORD_LEN)\n            math(EXPR POST_LEN \"${WORD_LEN} + ${CUR_LEN} + ${SEP_LEN}\")\n            if(\"${POST_LEN}\" LESS \"${BETTER_LINE_LENGTH}\")\n                if(${BETTER_AFTER})\n                    set(TEMP \"${TEMP}${ITEM}${JOIN_TOKEN}\")\n                else()\n                    set(TEMP \"${TEMP}${JOIN_TOKEN}${ITEM}\")\n                endif()\n                set(CUR_LEN \"${POST_LEN}\")\n            else()\n                if(${BETTER_AFTER})\n                    set(TEMP \"${TEMP};${ITEM}${JOIN_TOKEN}\")\n                else()\n                    set(TEMP \"${TEMP};${JOIN_TOKEN}${ITEM}\")\n                endif()\n                set(CUR_LEN \"0\")\n                math(EXPR CUR_LEN \"${SEP_LEN} + ${WORD_LEN}\")\n            endif()\n        endforeach()\n\n        set(STR \"${TEMP}\")\n    endif()\n\n    # Highlight selected words\n    if(DEFINED BETTER_HIGHLIGHT)\n        foreach(KEYWORD ${BETTER_HIGHLIGHT})\n            string(REPLACE \"${KEYWORD}\" \"[${KEYWORD}]\" STR \"${STR}\")\n        endforeach()\n    endif()\n\n    if(${BETTER_PRINT})\n        string(ASCII 27 Esc)\n        if(${CMAKE_COLOR_MAKEFILE})\n            string(REGEX REPLACE \"\\\\[([a-zA-Z0-9_\\\\.]+)\\\\]\" \"${Esc}[32m\\\\1${Esc}[m\" COLORIZED \"${STR}\")\n        else()\n            set(COLORIZED \"${STR}\")\n        endif()\n\tstring(REGEX REPLACE \"\\n$\" \"\" COLORIZED \"${COLORIZED}\")\n        message(\"${COLORIZED}\")\n    endif()\n\n\n    # Export the new string\n    set(${LIST} \"${STR}\" PARENT_SCOPE)\nendfunction()\n\n#[[ get_repo_version\n\nVariable with name ${VARNAME} gets set to first 7 characters of the hash\nof the last commit to the repo at ${DIR}.\n\nUsage:\n    get_repo_version(VARNAME DIR)\n\n]]\nmacro(get_repo_version VARNAME DIR)\n    execute_process(\n        COMMAND git describe --tags --dirty=.dirty\n        WORKING_DIRECTORY ${DIR}\n        OUTPUT_VARIABLE ${VARNAME}\n        OUTPUT_STRIP_TRAILING_WHITESPACE\n    )\nendmacro()\n\nfunction(gc_pretty_print)\n    cmake_parse_arguments(ARGS\n        \"IS_BOOLEAN\"\n        \"VARIABLE;SECTION\"\n        \"OPTIONS\"\n        ${ARGN}\n    )\n\n    if(DEFINED ARGS_VARIABLE)\n        if(ARGS_IS_BOOLEAN)\n            set(LOGLINE \"ON\" \"OFF\")\n            # Split list with \"  \"\n            stringify_list(LOGLINE\n                JOIN \"  \"\n                LINE_LENGTH 60\n            )\n            # Wrap lines\n            stringify_list(LOGLINE\n                JOIN \"  * ${ARGS_VARIABLE}:\\t\" \"\\n  ...       \\t\"\n            )\n            if(\"${${ARGS_VARIABLE}}\")\n                stringify_list(LOGLINE PRINT HIGHLIGHT \"ON\")\n            else()\n                stringify_list(LOGLINE PRINT HIGHLIGHT \"OFF\")\n            endif()\n        elseif(DEFINED ARGS_OPTIONS)\n            set(LOGLINE ${ARGS_OPTIONS})\n            # Split list with \"  \"\n            stringify_list(LOGLINE\n                JOIN \"  \"\n                LINE_LENGTH 60\n            )\n            # Wrap lines\n            stringify_list(LOGLINE\n                JOIN \"  * ${ARGS_VARIABLE}:\\t\" \"\\n  ...       \\t\"\n            )\n            stringify_list(LOGLINE PRINT HIGHLIGHT ${${ARGS_VARIABLE}})\n        else()\n            if(NOT DEFINED ${ARGS_VARIABLE})\n                set(LOGLINE \" \") # special case for empty variable\n            else()\n                set(LOGLINE ${${ARGS_VARIABLE}})\n            endif()\n            # Split list with \"  \"\n            stringify_list(LOGLINE\n                JOIN \"  \"\n                LINE_LENGTH 60\n            )\n            # Wrap lines\n            stringify_list(LOGLINE\n                JOIN \"  + ${ARGS_VARIABLE}:\\t\" \"\\n  ...       \\t\"\n            )\n            stringify_list(LOGLINE PRINT)\n        endif()\n    elseif(DEFINED ARGS_SECTION)\n        message(STATUS \"${ARGS_SECTION}:\")\n    endif()\nendfunction()"
  },
  {
    "path": "GTMM/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngtmm\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*"
  },
  {
    "path": "GTMM/CMakeLists.txt",
    "content": "add_library(Hg STATIC EXCLUDE_FROM_ALL\r\n    assignAgeClassToRunningPool.F90 \r\n    assignRanPoolToAgeClass.F90\r\n    CasaRegridModule.F90\r\n    CleanupCASAarrays.F90\r\n    defineArrays.F90\r\n    defineConstants.F90\r\n    doFPARandLAI.F90\r\n    doHerbCarbon.F90\r\n    doHerbCarbonHg.F90\r\n    doHerbivory.F90\r\n    doHgDeposition.F90\r\n    doLatitude.F90\r\n    doLeafRootShedding.F90\r\n    doMaxHg.F90\r\n    doNPP.F90\r\n    doOptimumTemperature.F90\r\n    doPET.F90\r\n    dorestart_mod.F90\r\n    doSoilMoisture.F90\r\n    doTreeCarbon.F90\r\n    doTreeCarbonHg.F90\r\n    getAgeClassBF.F90\r\n    getFireParams.F90\r\n    getFuelWood.F90\r\n    getSoilMoistParams.F90\r\n    getSoilParams.F90\r\n    GTMM_coupled.F90\r\n    HgOutForGEOS.F90\r\n    input_gtmm_mod.F90\r\n    loadCASAinput.F90\r\n    load_GC_data.F90\r\n    loadHgDeposition.F90\r\n    organizeAgeClasses.F90\r\n    processData.F90\r\n    sort_pick_veg.F90\r\n)\r\ntarget_link_libraries(Hg\r\n    PUBLIC\r\n        Headers\r\n)\r\n\r\n\r\nif(${GTMM})\r\n    add_executable(gtmm\r\n        GTMM.F90\r\n    )\r\n    target_link_libraries(gtmm\r\n        PUBLIC Hg\r\n    )\r\n    install(TARGETS gtmm\r\n\t\tRUNTIME DESTINATION ${RUNDIR}\r\n\t)\r\nendif()\r\n"
  },
  {
    "path": "GTMM/CasaRegridModule.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: CasaRegridModule\n!\n! !DESCRIPTION: Module CasaRegridModule contains arrays and variables used to \n!  regrid the GEOS-5 data from 1 x 1 Generic to 2 x 2.5, and 4 x 5 geos grids.\n!\\\\\n!\\\\\n! !INTERFACE: \n!\nMODULE CasaRegridModule\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: regrid1x1to4x5\n  PUBLIC :: regrid4x5to1x1\n  PUBLIC :: regrid1x1to2x25\n  PUBLIC :: regrid2x25to1x1\n  PUBLIC :: CasaRegridInit\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC :: I1x1,      J1x1,      L1x1    \n  PUBLIC :: I2x25,     J2x25,     L2x25   \n  PUBLIC :: I4x5,      J4x5,      L4x5    \n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER, PARAMETER  :: I1x1     = 360,  J1x1     = 180,  L1x1     = 72    \n  INTEGER, PARAMETER  :: I2x25    = 144,  J2x25    = 91,   L2x25    = 72\n  INTEGER, PARAMETER  :: I4x5     = 72,   J4x5     = 46,   L4x5     = 72\n!\n! !PRIVATE TYPES:\n!\n  ! Degrees to Radians\n  REAL(fp),  PARAMETER  :: D2R = 3.141592658979323e+0_fp / 180e+0_fp\n\n  !---------------------\n  ! 1 x 1 grid\n  !---------------------\n\n  ! Lon edges\n  REAL(fp) :: xedge_1x1( I1x1 + 1 ) \n\n  ! Lat edges\n  REAL(fp) :: yedge_1x1( J1x1 + 1 )\n\n  ! Sine of latitude\n  REAL(fp) :: sine_1x1( J1x1 + 1 )\n\n  !---------------------\n  ! 2 x 2.5 grid\n  !---------------------\n\n  ! Longitude edges\n  REAL(fp) :: xedge_2x25( I2x25 + 1 ) \n\n  ! Latitude edges\n  REAL(fp) :: yedge_2x25( J2x25 + 1 )\n\n  ! Latitude edges\n  REAL(fp) :: sine_2x25( J2x25 + 1 )\n\n  !---------------------\n  ! 4 x 5 grid\n  !---------------------\n\n  ! Longitude edges\n  REAL(fp) :: xedge_4x5( I4x5 + 1 )\n\n  ! Latitude edges\n  REAL(fp) :: yedge_4x5( J4x5 + 1 )\n\n  ! Latitude edges\n  REAL(fp) :: sine_4x5( J4x5 + 1 )\n!\n! !REMARKS:\n!  CasaRegridModule uses the regridding software \"MAP_A2A\" from S-J Lin.  \n!  This is area-preserving mapping.  For example, if you have a quantity \n!  such as kg/m2/s or W/m2, MAP_A2A will multiply by the area on the\n!  input grid, then regrid, and divide by the area on the output grid,\n!  such that the total quantity is preserved.  \n!\n! !REVISION HISTORY:\n!  14 Jan 2008 - R. Yantosca - Initial version\n!  (1 ) Modify regriddGeos5To* routines so that if all values are zero,\n!        then we just fill the output data array with zeros and return.\n!        This ought to speed up program execution. (bmy, 11/14/06)\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: regrid4x5to1x1\n!\n! !DESCRIPTION: Subroutine regrid4x5to1x1 is a wrapper for MAP\\_A2A, which is \n!  called to regrid from the GEOS-5 4x5 grid to the GENERIC 1x1 grid. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE regrid4x5to1x1( iv, q1, q2 )\n!\n! !INPUT PARAMETERS: \n!\n    INTEGER, INTENT(IN)  :: iv\n    REAL(fp),  INTENT(IN)  :: q1( I4x5, J4x5 )\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2( I1x1, J1x1 )\n!\n! !REVISION HISTORY: \n!  08 Nov 2006 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !---------------------------------\n    ! regridGeos5to1x1 begins here!\n    !---------------------------------\n\n    ! If all elements of q1 are zero, then set q2=0 and return\n    IF ( ALL( q1 == 0e+0_fp ) ) THEN\n       q2 = 0e+0_fp\n       RETURN\n    ENDIF\n\n    ! Call MAP_A2A to do the horizontal regridding\n    CALL map_a2a( I4x5, J4x5, xedge_4x5, sine_4x5, q1, &\n                  I1x1, J1x1, xedge_1x1, sine_1x1, q2, 0, iv )\n\n  END SUBROUTINE regrid4x5to1x1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: regrid1x1to4x5\n!\n! !DESCRIPTION: Subroutine regrid1x1to4x5 is a wrapper for MAP\\_A2A, which is \n!  called to regrid from the GENERIC 1x1 grid to the GEOS-5 4x5 grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE regrid1x1to4x5( iv, q1, q2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: iv\n    REAL(fp),  INTENT(IN)  :: q1( I1x1, J1x1 )\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2( I4x5, J4x5 )\n!\n! !REVISION HISTORY:\n!  08 Nov 2006 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !---------------------------------\n    ! regridGeos5to1x1 begins here!\n    !---------------------------------\n\n    ! If all elements of q1 are zero, then set q2=0 and return\n    IF ( ALL( q1 == 0e+0_fp ) ) THEN\n       q2 = 0e+0_fp\n       RETURN\n    ENDIF\n\n    ! Call MAP_A2A to do the horizontal regridding\n    CALL map_a2a( I1x1, J1x1, xedge_1x1, sine_1x1, q1, &\n                  I4x5, J4x5, xedge_4x5, sine_4x5, q2, 0, iv )\n\n  END SUBROUTINE regrid1x1to4x5\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: regrid2x25to1x1\n!\n! !DESCRIPTION: Subroutine regrid2x25to1x1 is a wrapper for MAP\\_A2A, which is \n!  called to regrid from the GENERIC 1x1 grid to the GEOS 2 x 2.5 grid.\n!  (bmy, 11/8/06)\n!\\\\\n!\\\\\n! !INTERFACE\n!\n  SUBROUTINE regrid2x25to1x1( iv, q1, q2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: iv\n    REAL(fp),  INTENT(IN)  :: q1( I2x25, J2x25 )\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2( I1x1,  J1x1  )\n!\n! !REVISION HISTORY:\n!  08 Nov 2006 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !---------------------------------\n    ! regridGeos5to1x125 begins here!\n    !---------------------------------\n\n    ! If all elements of q1 are zero, then set q2=0 and return\n    IF ( ALL( q1 == 0e+0_fp ) ) THEN\n       q2 = 0e+0_fp\n       RETURN\n    ENDIF\n\n    ! Call MAP_A2A to do the horizontal regridding\n    CALL map_a2a( I2x25, J2x25, xedge_2x25, sine_2x25, q1, &\n                  I1x1,  J1x1,  xedge_1x1,  sine_1x1,  q2, 0, iv )\n\n  END SUBROUTINE regrid2x25to1x1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: regrid1x1to2x25\n!\n! !DESCRIPTION: Subroutine regridGeos5to2x25 is a wrapper for MAP\\_A2A, which \n!  regrids from the GEOS-5 1x1 grid to the GEOS 2 x 2.5 grid.  \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE regrid1x1to2x25( iv, q1, q2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: iv\n    REAL(fp),  INTENT(IN)  :: q1( I1x1,  J1x1  )\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2( I2x25, J2x25 )\n!\n! !REVISION HISTORY:\n!  08 Nov 2006 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !---------------------------------\n    ! regridGeos5to2x25 begins here!\n    !---------------------------------\n\n    ! If all elements of q1 are zero, then set q2=0 and return\n    IF ( ALL( q1 == 0e+0_fp ) ) THEN\n       q2 = 0e+0_fp\n       RETURN\n    ENDIF\n\n    ! Call MAP_A2A to do the horizontal regridding\n    CALL map_a2a( I1x1,  J1x1,  xedge_1x1,  sine_1x1,  q1, &\n                  I2x25, J2x25, xedge_2x25, sine_2x25, q2, 0, iv )\n\n  END SUBROUTINE regrid1x1to2x25\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: map_a2a\n!\n! !DESCRIPTION: Subroutine MAP\\_A2A is a orizontal arbitrary grid to arbitrary \n!  grid conservative high-order mapping regridding routine by S-J Lin.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE map_a2a( im, jm, lon1, sin1, q1, &\n                      in, jn, lon2, sin2, q2, ig, iv)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: im, jm, in, jn, ig, iv\n    REAL(fp),  INTENT(IN)  :: lon1(im+1), lon2(in+1)\n    REAL(fp),  INTENT(IN)  :: sin1(jm+1), sin2(jn+1)\n    REAL(fp),  INTENT(IN)  :: q1(im,jm)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2(in,jn)\n!\n!  !REVISION HISTORY:\n!  (1) Original subroutine by S-J Lin.  Converted to F90 freeform format\n!      and inserted into \"Geos3RegridModule\" by Bob Yantosca (9/21/00)\n!  (2) Added F90 type declarations to be consistent w/ TypeModule.f90.\n!      Also updated comments. (bmy, 9/21/00)\n!  21 Sep 2000 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i,j,k\n    REAL(fp)               :: qtmp(in,jm)\n\n    !===================================================================\n    ! MAP_A2A begins here!\n    !\n    ! Mapping in the E-W direction\n    ! If both grids have the same longitude dimension, don't call XMAP\n    !===================================================================    \n    IF ( im .eq. in ) THEN\n       DO j=1,jm-ig\n       DO i=1,im\n          qtmp(i,j+ig) = q1(i,j+ig)\n       ENDDO\n       ENDDO\n    ELSE\n       CALL xmap(im, jm-ig, lon1, q1(1,1+ig),in, lon2, qtmp(1,1+ig) )\n    ENDIF\n    \n    !===================================================================\n    ! Mapping in the N-S direction\n    ! If both grids have the same latitude dimension, don't call YMAP \n    !===================================================================    \n    IF ( jm .eq. jn ) THEN\n       DO j=1,jm-ig\n       DO i=1,in\n          q2(i,j+ig) = qtmp(i,j+ig)\n       ENDDO\n       ENDDO\n    ELSE\n       CALL ymap(in, jm, sin1, qtmp(1,1+ig), jn, sin2, q2(1,1+ig), ig, iv)\n    ENDIF\n\n  END SUBROUTINE map_a2a\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ymap\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in N-S from an \n!  arbitrary resolution to another.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ymap(im, jm, sin1, q1, jn, sin2, q2, ig, iv)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: im            ! original E-W dimension\n    INTEGER, INTENT(IN)  :: jm            ! original N-S dimension\n    INTEGER, INTENT(IN)  :: jn            ! Target N-S dimension\n    INTEGER, INTENT(IN)  :: ig            ! ig=0: scalars from SP to NP\n                                          ! D-grid v-wind is also ig 0\n                                          ! ig=1: D-grid u-wind\n    INTEGER, INTENT(IN)  :: iv            ! iv=0 scalar; iv=1: vector\n    REAL(fp),  INTENT(IN)  :: sin1(jm+1-ig) ! original southern edge of \n                                          !  the cell sin(lat1)  \n    REAL(fp),  INTENT(IN)  :: q1(im,jm)     ! original data at center of \n                                          !  the cell\n    REAL(fp),  INTENT(IN)  :: sin2(jn+1-ig) ! Target cell's southern edge\n                                          !  sin(lat2)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2(im,jn)     ! Mapped data at the \n                                          !  target resolution\n!\n! !REMARKS:\n!  sin1 (1) = -1 must be south pole; sin1(jm+1)=1 must be N pole.\n!                                                                             .\n!  sin1(1) < sin1(2) < sin1(3) < ... < sin1(jm) < sin1(jm+1)\n!  sin2(1) < sin2(2) < sin2(3) < ... < sin2(jn) < sin2(jn+1)\n!\n! !AUTHOR:\n!  S.-J. Lin\n!  First version: piece-wise constant mapping\n!  Apr 1, 2000\n!  Last modified:\n!\n! !REVISION HISTORY:\n!  21 Sep 2000 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i, j0, m, mm, j\n    REAL(fp)               :: al(im,jm), ar(im,jm), a6(im,jm), dy1(jm)\n    REAL(fp),  PARAMETER   :: r3 = 1./3., r23 = 2./3. \n    REAL(fp)               :: pl, pr, qsum, esl, dy, sum\n    \n    ! YMAP begins here!\n    do j=1,jm-ig\n       dy1(j) = sin1(j+1) - sin1(j)\n    enddo\n\n    !===============================================================\n    ! Area preserving mapping\n    !===============================================================\n\n    ! Construct subgrid PP distribution\n    call ppm_lat(im, jm, ig, q1, al, ar, a6, 3, iv)\n    \n    do 1000 i=1,im\n       j0 = 1\n       do 555 j=1,jn-ig\n       do 100 m=j0,jm-ig\n\n          !=========================================================\n          ! locate the southern edge: sin2(i)\n          !=========================================================\n          if(sin2(j) .ge. sin1(m) .and. sin2(j) .le. sin1(m+1)) then\n             pl = (sin2(j)-sin1(m)) / dy1(m)\n             \n             if(sin2(j+1) .le. sin1(m+1)) then\n                \n                ! entire new cell is within the original cell\n                pr = (sin2(j+1)-sin1(m)) / dy1(m)\n                q2(i,j) = al(i,m) + 0.5e+0_fp*(a6(i,m)+ar(i,m)-al(i,m)) &\n               &                    *(pr+pl)-a6(i,m)*r3*(pr*(pr+pl)+pl**2)\n                j0 = m\n                goto 555\n             else\n\n                ! South most fractional area\n                qsum = (sin1(m+1)-sin2(j))*(al(i,m)+0.5e+0_fp*(a6(i,m)+ &\n                &              ar(i,m)-al(i,m))*(1.+pl)-a6(i,m)*  &\n                &               (r3*(1.+pl*(1.+pl))))\n\n                do mm=m+1,jm-ig\n\n                   ! locate the eastern edge: sin2(j+1)\n                   if(sin2(j+1) .gt. sin1(mm+1) ) then\n\n                      ! Whole layer\n                      qsum = qsum + dy1(mm)*q1(i,mm)\n                   else\n\n                      ! North most fractional area\n                      dy = sin2(j+1)-sin1(mm)\n                      esl = dy / dy1(mm)\n                      qsum = qsum + dy*(al(i,mm)+0.5e+0_fp*esl* &\n                     &       (ar(i,mm)-al(i,mm)+a6(i,mm)*(1.-r23*esl)))\n                      j0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    q2(i,j) = qsum / ( sin2(j+1) - sin2(j) )\n555    continue\n1000 continue\n\n    !===================================================================\n    ! Final processing for poles\n    !===================================================================\n    if ( ig .eq. 0 .and. iv .eq. 0 ) then\n        \n       ! South pole\n       sum = 0.\n       do i=1,im\n          sum = sum + q2(i,1)\n       enddo\n        \n       sum = sum / float(im)\n       do i=1,im\n          q2(i,1) = sum\n       enddo\n        \n       ! North pole:\n       sum = 0.\n       do i=1,im\n          sum = sum + q2(i,jn)\n       enddo\n        \n       sum = sum / float(im)\n       do i=1,im\n          q2(i,jn) = sum\n       enddo\n\n    endif\n\n  END SUBROUTINE YMAP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ppm_lat\n!\n! !DESCRIPTION: Subroutine PPM\\_LAT is called by YMAP.  Written by S-J Lin, and\n!  converted to F90 freeform format by Bob Yantosca.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ppm_lat(im, jm, ig, q, al, ar, a6, jord, iv)\n!\n! INPUT PARAMETERS:\n!\n    INTEGER           :: im, jm          !  Dimensions\n    INTEGER           :: ig\n    INTEGER           :: jord\n    INTEGER           :: iv              ! iv=0 scalar\n                                         ! iv=1 vector\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp)            :: q(im,jm-ig)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)            :: al(im,jm-ig)\n    REAL(fp)            :: ar(im,jm-ig)\n    REAL(fp)            :: a6(im,jm-ig)\n!\n! !REVISION HISTORY:\n!  21 Sep 2000 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)            :: dm(im,jm-ig)\n    REAL(fp), PARAMETER :: r3 = 1./3. \n    INTEGER           :: i, j, im2, iop, jm1\n    REAL(fp)            :: tmp, qmax, qmin, qop\n    \n    ! PPM_LAT begins here\n    ! Compute dm: linear slope\n    do j=2,jm-1-ig\n       do i=1,im\n          dm(i,j) = 0.25e+0_fp*(q(i,j+1) - q(i,j-1))\n          qmax = max(q(i,j-1),q(i,j),q(i,j+1)) - q(i,j)\n          qmin = q(i,j) - min(q(i,j-1),q(i,j),q(i,j+1))\n          dm(i,j) = sign(min(abs(dm(i,j)),qmin,qmax),dm(i,j))\n       enddo\n    enddo\n\n    im2 = im/2\n    jm1 = jm - 1\n\n    ! Poles:\n    if (iv .eq. 1 ) then\n\n       !===============================================================\n       ! u-wind (ig=1)\n       ! v-wind (ig=0)\n       !===============================================================\n\n       ! SP\n       do i=1,im\n          if( i .le. im2) then\n             qop = -q(i+im2,2-ig)\n          else\n             qop = -q(i-im2,2-ig)\n          endif\n          tmp = 0.25e+0_fp*(q(i,2) - qop)\n          qmax = max(q(i,2),q(i,1), qop) - q(i,1)\n          qmin = q(i,1) - min(q(i,2),q(i,1), qop)\n          dm(i,1) = sign(min(abs(tmp),qmax,qmin),tmp)\n       enddo\n       \n       ! NP\n       do i=1,im\n          if( i .le. im2) then\n             qop = -q(i+im2,jm1)\n          else\n             qop = -q(i-im2,jm1)\n          endif\n          tmp = 0.25e+0_fp*(qop - q(i,jm1-ig))\n          qmax = max(qop,q(i,jm-ig), q(i,jm1-ig)) - q(i,jm-ig)\n          qmin = q(i,jm-ig) - min(qop,q(i,jm-ig), q(i,jm1-ig))\n          dm(i,jm-ig) = sign(min(abs(tmp),qmax,qmin),tmp)\n       enddo\n    else\n        \n       !===============================================================\n       ! Scalar:\n       ! This code segment currently works only if ig=0\n       !===============================================================\n\n       ! SP\n       do i=1,im2\n          tmp = 0.25e+0_fp*(q(i,2)-q(i+im2,2))\n          qmax = max(q(i,2),q(i,1), q(i+im2,2)) - q(i,1)\n          qmin = q(i,1) - min(q(i,2),q(i,1), q(i+im2,2))\n          dm(i,1) = sign(min(abs(tmp),qmax,qmin),tmp)\n       enddo\n        \n       do i=im2+1,im\n          dm(i, 1) =  - dm(i-im2, 1)\n       enddo\n\n       ! NP\n       do i=1,im2\n          tmp = 0.25e+0_fp*(q(i+im2,jm1)-q(i,jm1))\n          qmax = max(q(i+im2,jm1),q(i,jm), q(i,jm1)) - q(i,jm)\n          qmin = q(i,jm) - min(q(i+im2,jm1),q(i,jm), q(i,jm1))\n          dm(i,jm) = sign(min(abs(tmp),qmax,qmin),tmp)\n       enddo\n\n       do i=im2+1,im\n          dm(i,jm) =  - dm(i-im2,jm)\n       enddo\n     endif\n      \n     do j=2,jm-ig\n        do i=1,im\n           al(i,j) = 0.5e+0_fp*(q(i,j-1)+q(i,j)) + r3*(dm(i,j-1) - dm(i,j))\n        enddo\n     enddo\n      \n     do j=1,jm-1-ig\n        do i=1,im\n           ar(i,j) = al(i,j+1)\n        enddo\n     enddo\n     \n     if ( iv .eq. 1 ) then\n        \n        if ( ig .eq. 0 ) then\n\n           !============================================================\n           ! Vector: ig=0\n           !============================================================\n           do i=1,im2\n              al(i,    1) = -al(i+im2,2)\n              al(i+im2,1) = -al(i,    2)\n           enddo\n           \n           do i=1,im2\n              ar(i,    jm) = -ar(i+im2,jm1)\n              ar(i+im2,jm) = -ar(i,    jm1)\n           enddo\n        else\n\n           !============================================================\n           ! ig=1 : SP\n           !============================================================\n           do i=1,im\n              if( i .le. im2) then\n                 iop = i+im2\n              else\n                 iop = i-im2\n              endif\n              al(i,1) = 0.5e+0_fp*(q(i,1)-q(iop,1)) - r3*(dm(iop,1) + dm(i,1))\n           enddo\n\n           !============================================================\n           ! NP\n           !============================================================\n           do i=1,im\n              if( i .le. im2) then\n                 iop = i+im2\n              else\n                 iop = i-im2\n              endif\n              ar(i,jm1) = 0.5e+0_fp*(q(i,jm1)-q(iop,jm1)) - &\n             &                 r3*(dm(iop,jm1) + dm(i,jm1))\n            enddo\n        endif\n     else\n\n        ! Scalar (works for ig=0 only):\n        do i=1,im2\n           al(i,    1) = al(i+im2,2)\n           al(i+im2,1) = al(i,    2)\n        enddo\n        \n        do i=1,im2\n           ar(i,    jm) = ar(i+im2,jm1)\n           ar(i+im2,jm) = ar(i,    jm1)\n        enddo\n     endif\n      \n     do j=1,jm-ig\n        do i=1,im\n           a6(i,j) = 3e+0_fp*(q(i,j)+q(i,j) - (al(i,j)+ar(i,j)))\n        enddo\n        call lmppm(dm(1,j), a6(1,j), ar(1,j), al(1,j),  q(1,j), im, jord-3)\n     enddo\n\n  END SUBROUTINE ppm_lat\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: xmap\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in E-W from an \n!  arbitrary resolution to another.\n!  Periodic domain will be assumed, i.e., the eastern wall bounding cell\n!  im is lon1(im+1) = lon1(1); Note the equal sign is true geographysically.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE xmap(im, jm, lon1, q1, in, lon2, q2)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: im           ! original E-W dimension\n    INTEGER, INTENT(IN)  :: in           ! Target E-W dimension\n    INTEGER, INTENT(IN)  :: jm           ! original N-S dimension\n    REAL(fp),  INTENT(IN)  :: lon1(im+1)   ! original western edge of \n                                         !  the cell\n    REAL(fp),  INTENT(IN)  :: q1(im,jm)    ! original data at center of \n                                         !  the cell\n    REAL(fp),  INTENT(IN)  :: lon2(in+1)   ! Target cell's western edge\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: q2(in,jm)    ! Mapped data at the \n                                         !  target resolution\n!\n! !REVISION HISTORY:\n!  21 Sep 2000 - R. Yantosca - Initial version\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i1, i2, i, i0, m, mm, j\n\n    REAL(fp)               :: qtmp(-im:im+im)\n    REAL(fp)               :: al(-im:im+im)\n    REAL(fp)               :: ar(-im:im+im)\n    REAL(fp)               :: a6(-im:im+im)\n    REAL(fp)               :: x1(-im:im+im+1)\n    REAL(fp)               :: dx1(-im:im+im)\n    REAL(fp),  PARAMETER   :: r3 = 1./3., r23 = 2./3. \n    REAL(fp)               :: pl, pr, qsum, esl, dx\n    INTEGER              :: iord = 3\n    LOGICAL              :: found\n\n    ! XMAP begins here!\n    do i=1,im+1\n       x1(i) = lon1(i)\n    enddo\n\n    do i=1,im\n       dx1(i) = x1(i+1) - x1(i)\n    enddo\n    \n    !===================================================================\n    ! check to see if ghosting is necessary\n    ! Western edge:\n    !===================================================================\n    found = .false.\n    i1 = 1\n    do while ( .not. found )\n       if( lon2(1) .ge. x1(i1) ) then\n          found = .true.\n       else\n          i1 = i1 - 1\n          if (i1 .lt. -im) then\n             write(6,*) 'failed in xmap'\n             stop\n          else\n             x1(i1) = x1(i1+1) - dx1(im+i1)\n             dx1(i1) = dx1(im+i1)\n          endif\n       endif\n    enddo\n    \n    !===================================================================\n    ! Eastern edge:\n    !===================================================================\n    found = .false.\n    i2 = im+1\n    do while ( .not. found )\n       if( lon2(in+1) .le. x1(i2) ) then\n          found = .true.\n       else\n          i2 = i2 + 1\n          if (i2 .gt. 2*im) then\n             write(6,*) 'failed in xmap'\n             stop\n          else\n             dx1(i2-1) = dx1(i2-1-im)\n             x1(i2) = x1(i2-1) + dx1(i2-1)\n          endif\n       endif\n    enddo\n    \n    !write(6,*) 'i1,i2=',i1,i2\n\n    do 1000 j=1,jm\n\n       !=================================================================\n       ! Area preserving mapping\n       !================================================================\n\n       ! Construct subgrid PP distribution\n       call ppm_cycle(im, q1(1,j), al(1), ar(1), a6(1), qtmp(0), iord)\n       \n       ! check to see if ghosting is necessary\n       ! Western edge\n       if ( i1 .le. 0 ) then\n          do i=i1,0\n             qtmp(i) = qtmp(im+i)\n             al(i) = al(im+i)\n             ar(i) = ar(im+i)\n             a6(i) = a6(im+i)\n          enddo\n       endif\n       \n       ! Eastern edge:\n       if ( i2 .gt. im+1 ) then\n          do i=im+1,i2-1\n             qtmp(i) = qtmp(i-im)\n             al(i) =   al(i-im)\n             ar(i) =   ar(i-im)\n             a6(i) =   a6(i-im)\n          enddo\n       endif\n        \n       i0 = i1\n        \n       do 555 i=1,in\n       do 100 m=i0,i2-1\n\n          !=============================================================  \n          ! locate the western edge: lon2(i)\n          !=============================================================  \n          if(lon2(i) .ge. x1(m) .and. lon2(i) .le. x1(m+1)) then\n             pl = (lon2(i)-x1(m)) / dx1(m)\n             \n             if(lon2(i+1) .le. x1(m+1)) then\n                \n                ! entire new grid is within the original grid\n                pr = (lon2(i+1)-x1(m)) / dx1(m)\n                q2(i,j) = al(m) + 0.5e+0_fp*(a6(m)+ar(m)-al(m)) &\n               &                  *(pr+pl)-a6(m)*r3*(pr*(pr+pl)+pl**2)\n                i0 = m\n                goto 555\n             else\n\n                ! Left most fractional area\n                qsum = (x1(m+1)-lon2(i))*(al(m)+0.5e+0_fp*(a6(m)+ &\n               &              ar(m)-al(m))*(1.+pl)-a6(m)*   &\n               &               (r3*(1.+pl*(1.+pl))))\n\n                do mm=m+1,i2-1\n\n                   ! locate the eastern edge: lon2(i+1)\n                   if(lon2(i+1) .gt. x1(mm+1) ) then\n\n                      ! Whole layer\n                      qsum = qsum + dx1(mm)*qtmp(mm)\n\n                   else\n                      ! Right most fractional area\n                      dx = lon2(i+1)-x1(mm)\n                      esl = dx / dx1(mm)\n                      qsum = qsum + dx*(al(mm)+0.5e+0_fp*esl* &\n                     &              (ar(mm)-al(mm)+a6(mm)*(1.-r23*esl)))\n                      i0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100       continue\n123       q2(i,j) = qsum / ( lon2(i+1) - lon2(i) )\n555    continue\n1000 continue\n\n   END SUBROUTINE xmap\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ppm_cycle\n!\n! !DESCRIPTION: PPM\\_CYCLE is called by XMAP\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n   subroutine ppm_cycle(im, q, al, ar, a6, p, iord)\n!\n! !INPUT PARAMETERS:\n! \n     INTEGER, INTENT(IN)  :: im, iord\n     REAL(fp),  INTENT(IN)  :: q(1)\n! \n! !OUTPUT PARAMETERS:\n!\n     REAL(fp),  INTENT(OUT) :: al(1), ar(1), a6(1), p(0:im+1)\n!\n! !REVISION HISTORY:\n!  21 Sep 2000 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n     REAL(fp)               :: dm(0:im), tmp, qmax, qmin\n     INTEGER              :: i, lmt\n     REAL(fp),  PARAMETER   :: r3 = 1./3. \n\n     ! PPM_CYCLE begins here!\n     p(0) = q(im)\n     do i=1,im\n        p(i) = q(i)\n     enddo\n     p(im+1) = q(1)\n\n     ! 2nd order slope\n     do i=1,im\n        tmp = 0.25e+0_fp*(p(i+1) - p(i-1))\n        qmax = max(p(i-1), p(i), p(i+1)) - p(i)\n        qmin = p(i) - min(p(i-1), p(i), p(i+1))\n        dm(i) = sign(min(abs(tmp),qmax,qmin), tmp)\n     enddo\n     dm(0) = dm(im)\n\n     do i=1,im\n        al(i) = 0.5e+0_fp*(p(i-1)+p(i)) + (dm(i-1) - dm(i))*r3\n     enddo\n\n     do i=1,im-1\n        ar(i) = al(i+1)\n     enddo\n     ar(im) = al(1)\n\n     if(iord .le. 6) then\n        do i=1,im\n           a6(i) = 3e+0_fp*(p(i)+p(i)  - (al(i)+ar(i)))\n        enddo\n        lmt = iord - 3\n        if(lmt.le.2) call lmppm(dm(1),a6(1),ar(1),al(1),p(1),im,lmt)\n     else\n        call huynh(im, ar(1), al(1), p(1), a6(1), dm(1))\n     endif\n\n   END SUBROUTINE ppm_cycle\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: lmppm\n!\n! !DESCRIPTION: Subroutine LMPPM is called by PPM\\_CYCLE.\n!\\\\\n!\\\\ \n! !INTERFACE:\n!\n   SUBROUTINE lmppm(dm, a6, ar, al, p, im, lmt)\n!\n! !INPUT PARAMETERS:\n!\n     INTEGER           :: im, lmt\n     REAL(fp)            :: p(im),dm(im)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n     REAL(fp)            :: a6(im),ar(im),al(im)\n!\n! !REMARKS:\n!  LMT = 0: full monotonicity\n!  LMT = 1: semi-monotonic constraint (no undershoot)\n!  LMT = 2: positive-definite constraint\n!\n! !REVISION HISTORY:\n!  21 Sep 2000 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n     INTEGER           :: i\n\n     REAL(fp)            :: da1, da2, fmin, a6da\n     REAL(fp), PARAMETER :: r12 = 1.e+0_fp/12.e+0_fp \n\n     ! LMPPM begins here!\n     if(lmt.eq.0) then\n\n        ! Full constraint\n        do 100 i=1,im\n           if(dm(i) .eq. 0.) then\n              ar(i) = p(i)\n              al(i) = p(i)\n              a6(i) = 0.\n           else\n              da1  = ar(i) - al(i)\n              da2  = da1**2\n              a6da = a6(i)*da1\n              if(a6da .lt. -da2) then\n                 a6(i) = 3e+0_fp*(al(i)-p(i))\n                 ar(i) = al(i) - a6(i)\n              elseif(a6da .gt. da2) then\n                 a6(i) = 3e+0_fp*(ar(i)-p(i))\n                 al(i) = ar(i) - a6(i)\n              endif\n           endif\n100     continue\n\n     elseif(lmt.eq.1) then\n\n        ! Semi-monotonic constraint\n        do 150 i=1,im\n           if(abs(ar(i)-al(i)) .ge. -a6(i)) go to 150\n           if(p(i).lt.ar(i) .and. p(i).lt.al(i)) then\n              ar(i) = p(i)\n              al(i) = p(i)\n              a6(i) = 0e+0_fp\n           elseif(ar(i) .gt. al(i)) then\n              a6(i) = 3e+0_fp*(al(i)-p(i))\n              ar(i) = al(i) - a6(i)\n           else\n              a6(i) = 3e+0_fp*(ar(i)-p(i))\n              al(i) = ar(i) - a6(i)\n           endif\n150     continue\n           \n     elseif(lmt.eq.2) then\n\n        ! Positive definite constraint\n        do 250 i=1,im\n           if(abs(ar(i)-al(i)) .ge. -a6(i)) go to 250\n           fmin = p(i) + 0.25e+0_fp*(ar(i)-al(i))**2/a6(i) + a6(i)*r12\n           if(fmin.ge.0e+0_fp) go to 250\n           if(p(i).lt.ar(i) .and. p(i).lt.al(i)) then\n              ar(i) = p(i)\n              al(i) = p(i)\n              a6(i) = 0e+0_fp\n           elseif(ar(i) .gt. al(i)) then\n              a6(i) = 3e+0_fp*(al(i)-p(i))\n              ar(i) = al(i) - a6(i)\n           else\n              a6(i) = 3e+0_fp*(ar(i)-p(i))\n              al(i) = ar(i) - a6(i)\n           endif\n250     continue\n     endif\n\n   END SUBROUTINE lmppm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: huynh\n!\n! !DESCRIPTION: Subroutine HUYNH enforces Huynh's 2nd constraint in 1D \n!  periodic domain\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE huynh(im, ar, al, p, d2, d1)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER :: im\n    REAL(fp)  :: p(im)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp)  :: ar(im), al(im), d2(im), d1(im)\n!\n! !REVISION HISTORY:\n!  21 Sep 2000 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i\n    REAL(fp)  :: pmp, lac, pmin, pmax\n\n    !===================================================================\n    ! HUYNH begins here!\n    ! Compute d1 and d2\n    !===================================================================\n    d1(1) = p(1) - p(im)\n    do i=2,im\n       d1(i) = p(i) - p(i-1)\n    enddo\n    \n    do i=1,im-1\n       d2(i) = d1(i+1) - d1(i)\n    enddo\n    d2(im) = d1(1) - d1(im)\n\n    !===================================================================\n    ! Constraint for AR\n    ! i = 1\n    !===================================================================\n    pmp   = p(1) + 2.0e+0_fp * d1(1)\n    lac   = p(1) + 0.5e+0_fp * (d1(1)+d2(im)) + d2(im) \n    pmin  = min(p(1), pmp, lac)\n    pmax  = max(p(1), pmp, lac)\n    ar(1) = min(pmax, max(ar(1), pmin))\n    \n    do i=2, im\n       pmp   = p(i) + 2.0e+0_fp*d1(i)\n       lac   = p(i) + 0.5e+0_fp*(d1(i)+d2(i-1)) + d2(i-1)\n       pmin  = min(p(i), pmp, lac)\n       pmax  = max(p(i), pmp, lac)\n       ar(i) = min(pmax, max(ar(i), pmin))\n    enddo\n     \n    !==================================================================\n    ! Constraint for AL\n    !==================================================================\n    do i=1, im-1\n       pmp   = p(i) - 2.0e+0_fp*d1(i+1)\n       lac   = p(i) + 0.5e+0_fp*(d2(i+1)-d1(i+1)) + d2(i+1)\n       pmin  = min(p(i), pmp, lac)\n       pmax  = max(p(i), pmp, lac)\n       al(i) = min(pmax, max(al(i), pmin))\n    enddo\n\n    !==================================================================\n    ! i=im\n    !==================================================================\n    i = im\n    pmp    = p(im) - 2.0e+0_fp*d1(1)\n    lac    = p(im) + 0.5e+0_fp*(d2(1)-d1(1)) + d2(1)\n    pmin   = min(p(im), pmp, lac)\n    pmax   = max(p(im), pmp, lac)\n    al(im) = min(pmax, max(al(im), pmin))\n\n    !==================================================================\n    ! compute A6 (d2)\n    !==================================================================\n    do i=1, im\n       d2(i) = 3e+0_fp*(p(i)+p(i)  - (al(i)+ar(i)))\n    enddo\n\n  END SUBROUTINE huynh\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CasaRegridInit\n!\n! !DESCRIPTION: Subroutine CasaRegridInit initializes the longitude and \n!  latitude edge arrays for 0.5 x 0.666, 1 x 1.25, 2 x 2.5, and 4 x 5 grids.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CasaRegridInit\n!\n! !REMARKS:\n!  Computation is done in REAL(fp) and then casted to REAL*4 in order\n!  to get correct values for the high-resolution grids. \n!\n! !REVISION HISTORY:\n!  09 Nov 2006- R. Yantosca - Initial version\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I, J\n    REAL(fp)  :: DI, DJ\n\n    !-----------------------\n    ! 1 x 1 GENERIC GRID\n    ! edged on -180, -90\n    !-----------------------\n\n    ! Size of box\n    DI = 1.00e+0_fp\n    DJ = 1.00e+0_fp\n\n    ! Lon edges\n    DO I = 0, I1x1\n       xedge_1x1(I+1) = -180e+0_fp + ( DI * I )\n    ENDDO\n\n    ! Lat edges\n    DO J = 0, J1x1\n       yedge_1x1(J+1) =  -90e+0_fp + ( DJ * J )\n    ENDDO\n\n    ! Reset poles\n    yedge_1x1(1)      = -90e+0_fp\n    yedge_1x1(J1x1+1) = +90e+0_fp\n\n    ! Sine of latitude edges\n    DO J = 1, J1x1+1\n       sine_1x1(J)  = SIN( yedge_1x1(J) * D2R )\n    ENDDO\n\n    !-----------------------\n    ! 2 x 2.5 GEOS Grid\n    ! centered on -180\n    !-----------------------\n\n    ! Size of box\n    DI = 2.5e+0_fp\n    DJ = 2.0e+0_fp\n\n    ! Lon edges\n    DO I = 0, I2x25\n       xedge_2x25(I+1)    = -180e+0_fp - DI/2e+0_fp + ( DI * I )\n    ENDDO\n\n    ! Lat edges\n    DO J = 0, J2x25\n       yedge_2x25(J+1)    =  -90e+0_fp - DJ/2e+0_fp + ( DJ * J )\n    ENDDO\n\n    ! Reset poles\n    yedge_2x25(1)         = -90e+0_fp\n    yedge_2x25(J2x25+1)   = +90e+0_fp\n\n    ! Sine of latitude edges\n    DO J = 1, J2x25+1\n       sine_2x25(J)  = SIN( yedge_2x25(J) * D2R )\n    ENDDO\n\n    !-----------------------\n    ! 4 x 5 GEOS Grid\n    ! centerd on -180\n    !-----------------------\n\n    ! Size of box\n    DI = 5e+0_fp\n    DJ = 4e+0_fp\n\n    ! Lon edges\n    DO I = 0, I4x5\n       xedge_4x5(I+1) = -180e+0_fp - DI/2e+0_fp + ( DI * I )\n    ENDDO\n\n    ! Lat edges and sine\n    DO J = 0, J4x5\n       yedge_4x5(J+1) =  -90e+0_fp - DJ/2e+0_fp + ( DJ * J )\n    ENDDO\n\n    ! Reset poles\n    yedge_4x5(1)      = -90e+0_fp\n    yedge_4x5(J4x5+1) = +90e+0_fp\n\n    ! Sine of latitude edges\n    DO J = 1, J4x5+1\n       sine_4x5(J)  = SIN( yedge_4x5(J) * D2R )\n    ENDDO\n\n  END SUBROUTINE CasaRegridInit\n!EOC\nEND MODULE CasaRegridModule\n\n"
  },
  {
    "path": "GTMM/CleanupCASAarrays.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CleanupCASAarrays\n!\n! !DESCRIPTION: Subroutine CleanupCASAarrays deallocate all allocated arrays\n!  used for GTMM\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE CleanupCASAarrays\n!\n! !USES\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n  IF (ALLOCATED(clay                  )) DEALLOCATE(clay)\n  IF (ALLOCATED(silt                  )) DEALLOCATE(silt)\n  IF (ALLOCATED(sand                  )) DEALLOCATE(sand)\n  IF (ALLOCATED(litcn                 )) DEALLOCATE(litcn)\n  IF (ALLOCATED(lignin                )) DEALLOCATE(lignin)\n  IF (ALLOCATED(lrage                 )) DEALLOCATE(lrage)\n  IF (ALLOCATED(woodage               )) DEALLOCATE(woodage)\n  IF (ALLOCATED(SMparams              )) DEALLOCATE(SMparams)\n  IF (ALLOCATED(last_soilm            )) DEALLOCATE(last_soilm)\n  IF (ALLOCATED(PET                   )) DEALLOCATE(PET)\n  IF (ALLOCATED(AHI                   )) DEALLOCATE(AHI)\n  IF (ALLOCATED(last_pack             )) DEALLOCATE(last_pack)\n  IF (ALLOCATED(spack                 )) DEALLOCATE (spack)\n  IF (ALLOCATED(bgmoist               )) DEALLOCATE(bgmoist)\n  IF (ALLOCATED(NPPmoist              )) DEALLOCATE(NPPmoist)\n  IF (ALLOCATED(EET                   )) DEALLOCATE(EET)\n  IF (ALLOCATED(NPPmoist_temp         )) DEALLOCATE(NPPmoist_temp)\n  IF (ALLOCATED(bgmoist_temp          )) DEALLOCATE(bgmoist_temp)\n  IF (ALLOCATED(bgmoistpret           )) DEALLOCATE(bgmoistpret)\n  IF (ALLOCATED(NPPmoistpret          )) DEALLOCATE(NPPmoistpret)\n  IF (ALLOCATED(soilm                 )) DEALLOCATE(soilm)\n  IF (ALLOCATED(rdr                   )) DEALLOCATE(rdr)\n  IF (ALLOCATED(current_ppt           )) DEALLOCATE(current_ppt)\n  IF (ALLOCATED(eeta                  )) DEALLOCATE(eeta)\n  IF (ALLOCATED(eetb                  )) DEALLOCATE(eetb)\n  IF (ALLOCATED(this_soilm            )) DEALLOCATE(this_soilm)\n  IF (ALLOCATED(bgratio               )) DEALLOCATE(bgratio)\n  IF (ALLOCATED(srmax                 )) DEALLOCATE(srmax)\n  IF (ALLOCATED(LAImax                )) DEALLOCATE(LAImax)\n  IF (ALLOCATED(LAI_temp              )) DEALLOCATE(LAI_temp)\n  IF (ALLOCATED(FPAR                  )) DEALLOCATE(FPAR)\n  IF (ALLOCATED(LAI                   )) DEALLOCATE(LAI)\n  IF (ALLOCATED(sr                    )) DEALLOCATE(sr)\n  IF (ALLOCATED(topt                  )) DEALLOCATE(topt)\n  IF (ALLOCATED(maxlai                )) DEALLOCATE(maxlai)\n  IF (ALLOCATED(lais                  )) DEALLOCATE(lais)\n  \n  IF (ALLOCATED(LTCON                 )) DEALLOCATE(LTCON)\n  IF (ALLOCATED(LTVAR                 )) DEALLOCATE(LTVAR)\n  IF (ALLOCATED(abovewoodpool         )) DEALLOCATE(abovewoodpool)\n  IF (ALLOCATED(belowwoodpool         )) DEALLOCATE(belowwoodpool)\n  IF (ALLOCATED(leafpool              )) DEALLOCATE(leafpool)\n  IF (ALLOCATED(frootpool             )) DEALLOCATE(frootpool)\n  IF (ALLOCATED(cwdpool               )) DEALLOCATE(cwdpool)\n  IF (ALLOCATED(surfstrpool           )) DEALLOCATE(surfstrpool)\n  IF (ALLOCATED(surfmetpool           )) DEALLOCATE(surfmetpool)\n  IF (ALLOCATED(surfmicpool           )) DEALLOCATE(surfmicpool)\n  IF (ALLOCATED(soilstrpool           )) DEALLOCATE(soilstrpool)\n  IF (ALLOCATED(soilmetpool           )) DEALLOCATE(soilmetpool)\n  IF (ALLOCATED(soilmicpool           )) DEALLOCATE(soilmicpool)\n  IF (ALLOCATED(slowpool              )) DEALLOCATE(slowpool)\n  IF (ALLOCATED(armoredpool           )) DEALLOCATE(armoredpool)\n  IF (ALLOCATED(hleafpool             )) DEALLOCATE(hleafpool)\n  IF (ALLOCATED(hfrootpool            )) DEALLOCATE(hfrootpool)\n  IF (ALLOCATED(hsurfstrpool          )) DEALLOCATE(hsurfstrpool)\n  IF (ALLOCATED(hsurfmetpool          )) DEALLOCATE(hsurfmetpool)\n  IF (ALLOCATED(hsurfmicpool          )) DEALLOCATE(hsurfmicpool)\n  IF (ALLOCATED(hsoilstrpool          )) DEALLOCATE(hsoilstrpool)\n  IF (ALLOCATED(hsoilmetpool          )) DEALLOCATE(hsoilmetpool)\n  IF (ALLOCATED(hsoilmicpool          )) DEALLOCATE(hsoilmicpool)\n  IF (ALLOCATED(hslowpool             )) DEALLOCATE(hslowpool)\n  IF (ALLOCATED(harmoredpool          )) DEALLOCATE(harmoredpool)\n  IF (ALLOCATED(max_hg_leaf           )) DEALLOCATE(max_hg_leaf)\n  IF (ALLOCATED(max_hg_surfstr        )) DEALLOCATE(max_hg_surfstr)\n  IF (ALLOCATED(max_hg_surfmet        )) DEALLOCATE(max_hg_surfmet)\n  IF (ALLOCATED(max_hg_surfmic        )) DEALLOCATE(max_hg_surfmic)\n  IF (ALLOCATED(max_hg_soilstr        )) DEALLOCATE(max_hg_soilstr)\n  IF (ALLOCATED(max_hg_soilmet        )) DEALLOCATE(max_hg_soilmet)\n  IF (ALLOCATED(max_hg_soilmic        )) DEALLOCATE(max_hg_soilmic)\n  IF (ALLOCATED(max_hg_slow           )) DEALLOCATE(max_hg_slow)\n  IF (ALLOCATED(max_hg_armored        )) DEALLOCATE(max_hg_armored)\n  IF (ALLOCATED(max_hg_hleaf          )) DEALLOCATE(max_hg_hleaf)\n  IF (ALLOCATED(max_hg_hsurfstr       )) DEALLOCATE(max_hg_hsurfstr)\n  IF (ALLOCATED(max_hg_hsurfmet       )) DEALLOCATE(max_hg_hsurfmet)\n  IF (ALLOCATED(max_hg_hsurfmic       )) DEALLOCATE(max_hg_hsurfmic)\n  IF (ALLOCATED(max_hg_hsoilstr       )) DEALLOCATE(max_hg_hsoilstr)\n  IF (ALLOCATED(max_hg_hsoilmet       )) DEALLOCATE(max_hg_hsoilmet)\n  IF (ALLOCATED(max_hg_hsoilmic       )) DEALLOCATE(max_hg_hsoilmic)\n  IF (ALLOCATED(max_hg_hslow          )) DEALLOCATE(max_hg_hslow)\n  IF (ALLOCATED(max_hg_harmored       )) DEALLOCATE(max_hg_harmored)\n                                      \n  IF (ALLOCATED(abovewoodpools        )) DEALLOCATE(abovewoodpools)\n  IF (ALLOCATED(belowwoodpools        )) DEALLOCATE(belowwoodpools)\n  IF (ALLOCATED(leafpools             )) DEALLOCATE(leafpools)\n  IF (ALLOCATED(frootpools            )) DEALLOCATE(frootpools)\n  IF (ALLOCATED(cwdpools              )) DEALLOCATE(cwdpools)\n  IF (ALLOCATED(surfstrpools          )) DEALLOCATE(surfstrpools)\n  IF (ALLOCATED(surfmetpools          )) DEALLOCATE(surfmetpools)\n  IF (ALLOCATED(surfmicpools          )) DEALLOCATE(surfmicpools)\n  IF (ALLOCATED(soilstrpools          )) DEALLOCATE(soilstrpools)\n  IF (ALLOCATED(soilmetpools          )) DEALLOCATE(soilmetpools)\n  IF (ALLOCATED(soilmicpools          )) DEALLOCATE(soilmicpools)\n  IF (ALLOCATED(slowpools             )) DEALLOCATE(slowpools)\n  IF (ALLOCATED(armoredpools          )) DEALLOCATE(armoredpools)\n                                      \n  IF (ALLOCATED(hleafpools            )) DEALLOCATE(hleafpools)\n  IF (ALLOCATED(hfrootpools           )) DEALLOCATE(hfrootpools)\n  IF (ALLOCATED(hsurfstrpools         )) DEALLOCATE(hsurfstrpools)\n  IF (ALLOCATED(hsurfmetpools         )) DEALLOCATE(hsurfmetpools)\n  IF (ALLOCATED(hsurfmicpools         )) DEALLOCATE(hsurfmicpools)\n  IF (ALLOCATED(hsoilstrpools         )) DEALLOCATE(hsoilstrpools)\n  IF (ALLOCATED(hsoilmetpools         )) DEALLOCATE(hsoilmetpools)\n  IF (ALLOCATED(hsoilmicpools         )) DEALLOCATE(hsoilmicpools)\n  IF (ALLOCATED(hslowpools            )) DEALLOCATE(hslowpools)\n  IF (ALLOCATED(harmoredpools         )) DEALLOCATE(harmoredpools)\n                                   \n  IF (ALLOCATED(fuelshortage          )) DEALLOCATE(fuelshortage)     \n                                      \n  IF (ALLOCATED(LtN                   )) DEALLOCATE(LtN)\n  IF (ALLOCATED(annK_leaf             )) DEALLOCATE(annK_leaf)\n  IF (ALLOCATED(annK_leaf_hg          )) DEALLOCATE(annK_leaf_hg)\n  IF (ALLOCATED(annK_wood             )) DEALLOCATE(annK_wood)\n  IF (ALLOCATED(annK_froot            )) DEALLOCATE(annK_froot)\n  IF (ALLOCATED(K_wood                )) DEALLOCATE(K_wood)\n  IF (ALLOCATED(K_froot               )) DEALLOCATE(K_froot)\n  IF (ALLOCATED(K_leaf                )) DEALLOCATE(K_leaf)\n  IF (ALLOCATED(K_hleaf               )) DEALLOCATE(K_hleaf)\n  IF (ALLOCATED(K_hfroot              )) DEALLOCATE(K_hfroot)\n  IF (ALLOCATED(K_surfmet             )) DEALLOCATE(K_surfmet)\n  IF (ALLOCATED(K_surfstr             )) DEALLOCATE(K_surfstr)\n  IF (ALLOCATED(K_soilmet             )) DEALLOCATE(K_soilmet)\n  IF (ALLOCATED(K_soilstr             )) DEALLOCATE(K_soilstr)\n  IF (ALLOCATED(K_cwd                 )) DEALLOCATE(K_cwd)\n  IF (ALLOCATED(K_surfmic             )) DEALLOCATE(K_surfmic)\n  IF (ALLOCATED(K_soilmic             )) DEALLOCATE(K_soilmic)\n  IF (ALLOCATED(K_slow                )) DEALLOCATE(K_slow)\n  IF (ALLOCATED(K_armored             )) DEALLOCATE(K_armored)\n  IF (ALLOCATED(slitscalar            )) DEALLOCATE(slitscalar)\n  IF (ALLOCATED(shlitscalar           )) DEALLOCATE(shlitscalar)\n  IF (ALLOCATED(srootlitscalar        )) DEALLOCATE(srootlitscalar)\n  IF (ALLOCATED(sabiotic              )) DEALLOCATE(sabiotic)\n  IF (ALLOCATED(sabiotsmc             )) DEALLOCATE(sabiotsmc)\n  IF (ALLOCATED(sabiotlign            )) DEALLOCATE(sabiotlign)\n  IF (ALLOCATED(metabfract            )) DEALLOCATE(metabfract)\n  IF (ALLOCATED(structuralLignin      )) DEALLOCATE(structuralLignin)\n  IF (ALLOCATED(lignineffect          )) DEALLOCATE(lignineffect)\n  IF (ALLOCATED(soilmicDecayFactor    )) DEALLOCATE(soilmicDecayFactor)\n  IF (ALLOCATED(slowDecayFactor       )) DEALLOCATE(slowDecayFactor)\n  IF (ALLOCATED(armoredDecayFactor    )) DEALLOCATE(armoredDecayFactor)\n  IF (ALLOCATED(fid                   )) DEALLOCATE(fid)\n  IF (ALLOCATED(decayClayFactor       )) DEALLOCATE(decayClayFactor)\n  IF (ALLOCATED(eff_soilmic2slow      )) DEALLOCATE(eff_soilmic2slow)\n  IF (ALLOCATED(latitude              )) DEALLOCATE(latitude)\n  IF (ALLOCATED(latitude1             )) DEALLOCATE(latitude1)\n  IF (ALLOCATED(fuelwooddemand        )) DEALLOCATE(fuelwooddemand)\n  \n  IF (ALLOCATED(T1                    )) DEALLOCATE(T1)\n  IF (ALLOCATED(T2low                 )) DEALLOCATE(T2low)\n  IF (ALLOCATED(T2high                )) DEALLOCATE(T2high)\n  IF (ALLOCATED(NPPtemp               )) DEALLOCATE(NPPtemp)\n  IF (ALLOCATED(IPAR                  )) DEALLOCATE(IPAR)\n  IF (ALLOCATED(NPP                   )) DEALLOCATE(NPP)\n  IF (ALLOCATED(epsilona              )) DEALLOCATE(epsilona)\n  IF (ALLOCATED(bgtemp                )) DEALLOCATE(bgtemp)\n  IF (ALLOCATED(abiotic               )) DEALLOCATE(abiotic)\n  IF (ALLOCATED(grass_herbivory       )) DEALLOCATE(grass_herbivory)\n  IF (ALLOCATED(trees_herbivory       )) DEALLOCATE(trees_herbivory)\n  IF (ALLOCATED(herb_seasonality      )) DEALLOCATE(herb_seasonality)\n  IF (ALLOCATED(MINLAI                )) DEALLOCATE(MINLAI)\n  IF (ALLOCATED(SUMLAI                )) DEALLOCATE(SUMLAI)\n  IF (ALLOCATED(AVELAI                )) DEALLOCATE(AVELAI)\n  IF (ALLOCATED(LTVARSUM              )) DEALLOCATE(LTVARSUM)\n  IF (ALLOCATED(SUMLAInew             )) DEALLOCATE(SUMLAInew)\n  IF (ALLOCATED(litterscalar          )) DEALLOCATE(litterscalar)\n  IF (ALLOCATED(hlitterscalar         )) DEALLOCATE(hlitterscalar)\n  IF (ALLOCATED(rootlitscalar         )) DEALLOCATE(rootlitscalar)\n                                      \n  IF (ALLOCATED(ccWood                )) DEALLOCATE(ccWood)\n  IF (ALLOCATED(ccLeaf                )) DEALLOCATE(ccLeaf)\n  IF (ALLOCATED(PET_current           )) DEALLOCATE(PET_current)\n  IF (ALLOCATED(CCratio_current       )) DEALLOCATE(CCratio_current)\n  IF (ALLOCATED(ccFineLitter          )) DEALLOCATE(ccFineLitter)\n  IF (ALLOCATED(ccCWD                 )) DEALLOCATE(ccCWD)\n  IF (ALLOCATED(CCratio_previous      )) DEALLOCATE(CCratio_previous)\n  IF (ALLOCATED(mortality_tree        )) DEALLOCATE(mortality_tree)\n  IF (ALLOCATED(mortality_hfroot      )) DEALLOCATE(mortality_hfroot)\n                                      \n  IF (ALLOCATED(leafinput             )) DEALLOCATE(leafinput)\n  IF (ALLOCATED(woodinput             )) DEALLOCATE(woodinput)\n  IF (ALLOCATED(frootinput            )) DEALLOCATE(frootinput)\n  IF (ALLOCATED(herbivory             )) DEALLOCATE(herbivory)\n  IF (ALLOCATED(carbonout_leaf        )) DEALLOCATE(carbonout_leaf)\n  IF (ALLOCATED(carbonout_abovewood   )) DEALLOCATE(carbonout_abovewood)\n  IF (ALLOCATED(carbonout_belowwood   )) DEALLOCATE(carbonout_belowwood)\n  IF (ALLOCATED(carbonout_froot       )) DEALLOCATE(carbonout_froot)\n  IF (ALLOCATED(carbonout_cwd         )) DEALLOCATE(carbonout_cwd)\n  IF (ALLOCATED(carbonout_surfmet     )) DEALLOCATE(carbonout_surfmet)\n  IF (ALLOCATED(carbonout_surfstr     )) DEALLOCATE(carbonout_surfstr)\n  IF (ALLOCATED(carbonout_soilmet     )) DEALLOCATE(carbonout_soilmet)\n  IF (ALLOCATED(carbonout_soilstr     )) DEALLOCATE(carbonout_soilstr)\n  IF (ALLOCATED(carbonout_surfmic     )) DEALLOCATE(carbonout_surfmic)\n  IF (ALLOCATED(carbonout_soilmic     )) DEALLOCATE(carbonout_soilmic)\n  IF (ALLOCATED(carbonout_slow        )) DEALLOCATE(carbonout_slow)\n  IF (ALLOCATED(carbonout_armored     )) DEALLOCATE(carbonout_armored)\n  IF (ALLOCATED(resppool_surfstr      )) DEALLOCATE(resppool_surfstr)\n  IF (ALLOCATED(resppool_surfmet      )) DEALLOCATE(resppool_surfmet)\n  IF (ALLOCATED(resppool_surfmic      )) DEALLOCATE(resppool_surfmic)\n  IF (ALLOCATED(resppool_soilstr      )) DEALLOCATE(resppool_soilstr)\n  IF (ALLOCATED(resppool_soilmet      )) DEALLOCATE(resppool_soilmet)\n  IF (ALLOCATED(resppool_soilmic      )) DEALLOCATE(resppool_soilmic)\n  IF (ALLOCATED(resppool_slow         )) DEALLOCATE(resppool_slow)\n  IF (ALLOCATED(resppool_armored      )) DEALLOCATE(resppool_armored)\n  IF (ALLOCATED(resp_surfstr          )) DEALLOCATE(resp_surfstr)\n  IF (ALLOCATED(resp_surfmet          )) DEALLOCATE(resp_surfmet)\n  IF (ALLOCATED(resp_surfmic          )) DEALLOCATE(resp_surfmic)\n  IF (ALLOCATED(resp_soilstr          )) DEALLOCATE(resp_soilstr)\n  IF (ALLOCATED(resp_soilmet          )) DEALLOCATE(resp_soilmet)\n  IF (ALLOCATED(resp_soilmic          )) DEALLOCATE(resp_soilmic)\n  IF (ALLOCATED(resp_slow             )) DEALLOCATE(resp_slow)\n  IF (ALLOCATED(resp_armored          )) DEALLOCATE(resp_armored)\n  IF (ALLOCATED(temp                  )) DEALLOCATE(temp)\n  IF (ALLOCATED(combusted_leaf        )) DEALLOCATE(combusted_leaf)\n  IF (ALLOCATED(combusted_abovewood   )) DEALLOCATE(combusted_abovewood)\n  IF (ALLOCATED(combusted_cwd         )) DEALLOCATE(combusted_cwd)\n  IF (ALLOCATED(combusted_surfstr     )) DEALLOCATE(combusted_surfstr)\n  IF (ALLOCATED(combusted_surfmet     )) DEALLOCATE(combusted_surfmet)\n  IF (ALLOCATED(combusted_surfmic     )) DEALLOCATE(combusted_surfmic)\n  IF (ALLOCATED(combusted_soilstr     )) DEALLOCATE(combusted_soilstr)\n  IF (ALLOCATED(combusted_soilmet     )) DEALLOCATE(combusted_soilmet)\n  IF (ALLOCATED(combusted_soilmic     )) DEALLOCATE(combusted_soilmic)\n  IF (ALLOCATED(combusted_slow        )) DEALLOCATE(combusted_slow)\n  IF (ALLOCATED(combusted_armored     )) DEALLOCATE(combusted_armored)\n  IF (ALLOCATED(combusted_surfmic     )) DEALLOCATE(combusted_surfmic)\n  IF (ALLOCATED(nonCombusted_leaf     )) DEALLOCATE(nonCombusted_leaf)\n  \n  IF (ALLOCATED(nonCombusted_abovewood)) DEALLOCATE(nonCombusted_abovewood)\n  IF (ALLOCATED(nonCombusted_belowwood)) DEALLOCATE(nonCombusted_belowwood)\n  IF (ALLOCATED(nonCombusted_froot    )) DEALLOCATE(nonCombusted_froot)\n  IF (ALLOCATED(fuelwoodout           )) DEALLOCATE(fuelwoodout)\n  IF (ALLOCATED(wresp                 )) DEALLOCATE(wresp)\n  IF (ALLOCATED(wcomb                 )) DEALLOCATE(wcomb)\n  IF (ALLOCATED(wherb                 )) DEALLOCATE(wherb)\n  IF (ALLOCATED(wbiof                 )) DEALLOCATE(wbiof)\n  IF (ALLOCATED(hresp                 )) DEALLOCATE(hresp)\n  IF (ALLOCATED(hcomb                 )) DEALLOCATE(hcomb)\n  IF (ALLOCATED(hherb                 )) DEALLOCATE(hherb)\n  \n  IF (ALLOCATED(ageClassIndex         )) DEALLOCATE(ageClassIndex)\n  IF (ALLOCATED(BFallClasses          )) DEALLOCATE(BFallClasses)\n  IF (ALLOCATED(BFleftCurrentMonth    )) DEALLOCATE(BFleftCurrentMonth)\n  IF (ALLOCATED(BFtemp                )) DEALLOCATE(BFtemp)\n  IF (ALLOCATED(ageCurrentClass       )) DEALLOCATE(ageCurrentClass)\n  IF (ALLOCATED(ageClassSorted        )) DEALLOCATE(ageClassSorted)\n  IF (ALLOCATED(ageClassSortedInd     )) DEALLOCATE(ageClassSortedInd)\n  IF (ALLOCATED(tempAge               )) DEALLOCATE(tempAge)\n  IF (ALLOCATED(NPPmonthly            )) DEALLOCATE(NPPmonthly)\n  IF (ALLOCATED(respmonthly           )) DEALLOCATE(respmonthly)\n  IF (ALLOCATED(combmonthly           )) DEALLOCATE(combmonthly)\n  IF (ALLOCATED(herbmonthly           )) DEALLOCATE(herbmonthly)\n  IF (ALLOCATED(biofmonthly           )) DEALLOCATE(biofmonthly)\n  IF (ALLOCATED(respEQ                )) DEALLOCATE(respEQ)\n  IF (ALLOCATED(combEQ                )) DEALLOCATE(combEQ)\n  IF (ALLOCATED(herbEQ                )) DEALLOCATE(herbEQ)\n  IF (ALLOCATED(biofEQ                )) DEALLOCATE(biofEQ)\n\n  IF (ALLOCATED(veg                   )) DEALLOCATE(veg)\n  IF (ALLOCATED(soiltext              )) DEALLOCATE(soiltext)\n  IF (ALLOCATED(fuelneed              )) DEALLOCATE(fuelneed)\n  IF (ALLOCATED(popdens               )) DEALLOCATE(popdens)\n  IF (ALLOCATED(perc_tree             )) DEALLOCATE(perc_tree)\n  IF (ALLOCATED(perc_herb             )) DEALLOCATE(perc_herb)\n  IF (ALLOCATED(airt                  )) DEALLOCATE(airt)\n  IF (ALLOCATED(ppt                   )) DEALLOCATE(ppt)\n  IF (ALLOCATED(solrad                )) DEALLOCATE(solrad)\n  IF (ALLOCATED(NDVI                  )) DEALLOCATE(NDVI)\n  IF (ALLOCATED(BF                    )) DEALLOCATE(BF)\n  \n  \n  IF (ALLOCATED(veg1                  )) DEALLOCATE(veg1)\n  IF (ALLOCATED(soiltext1             )) DEALLOCATE(soiltext1)\n  IF (ALLOCATED(fuelneed1             )) DEALLOCATE(fuelneed1)\n  IF (ALLOCATED(popdens1              )) DEALLOCATE(popdens1)\n  IF (ALLOCATED(perc_tree1            )) DEALLOCATE(perc_tree1)\n  IF (ALLOCATED(perc_herb1            )) DEALLOCATE(perc_herb1)\n  IF (ALLOCATED(frac_tree             )) DEALLOCATE(frac_tree)\n  IF (ALLOCATED(frac_herb             )) DEALLOCATE(frac_herb)\n  IF (ALLOCATED(frac_veg              )) DEALLOCATE(frac_veg)\n  IF (ALLOCATED(airt1                 )) DEALLOCATE(airt1)\n  IF (ALLOCATED(ppt1                  )) DEALLOCATE(ppt1)\n  IF (ALLOCATED(ppt_mo                )) DEALLOCATE(ppt_mo)\n  IF (ALLOCATED(solrad1               )) DEALLOCATE(solrad1)\n  IF (ALLOCATED(NDVI1                 )) DEALLOCATE(NDVI1)\n  IF (ALLOCATED(BF1                   )) DEALLOCATE(BF1)\n  IF (ALLOCATED(gridAreaa             )) DEALLOCATE(gridAreaa)\n  IF (ALLOCATED(gridAreab             )) DEALLOCATE(gridAreab)\n  IF (ALLOCATED(mask2                 )) DEALLOCATE(mask2)\n  IF (ALLOCATED(Hg0dry                )) DEALLOCATE(Hg0dry)\n  IF (ALLOCATED(HgIIdry               )) DEALLOCATE(HgIIdry)\n  IF (ALLOCATED(HgIIwet               )) DEALLOCATE(HgIIwet)\n  IF (ALLOCATED(Hg0dry_mo             )) DEALLOCATE(Hg0dry_mo)\n  IF (ALLOCATED(HgIIdry_mo            )) DEALLOCATE(HgIIdry_mo)\n  IF (ALLOCATED(HgIIwet_mo            )) DEALLOCATE(HgIIwet_mo)\n  IF (ALLOCATED(HgP                   )) DEALLOCATE(HgP)\n  IF (ALLOCATED(HgAq                  )) DEALLOCATE(HgAq)\n  IF (ALLOCATED(hHgAq                 )) DEALLOCATE(hHgAq)\n  IF (ALLOCATED(Hg0_surf_leaf         )) DEALLOCATE(Hg0_surf_leaf)\n  IF (ALLOCATED(Hg0_surf_soil         )) DEALLOCATE(Hg0_surf_soil)\n  IF (ALLOCATED(HgII_surf_leaf        )) DEALLOCATE(HgII_surf_leaf)\n  IF (ALLOCATED(HgII_surf_soil        )) DEALLOCATE(HgII_surf_soil)\n  IF (ALLOCATED(maxallLAI             )) DEALLOCATE(maxallLAI)\n  IF (ALLOCATED(fstom                 )) DEALLOCATE(fstom)\n  IF (ALLOCATED(fleaf                 )) DEALLOCATE(fleaf)\n  IF (ALLOCATED(fsoil                 )) DEALLOCATE(fsoil)\n  IF (ALLOCATED(fsum                  )) DEALLOCATE(fsum)\n  IF (ALLOCATED(freemitted            )) DEALLOCATE(freemitted)\n  IF (ALLOCATED(reemitted             )) DEALLOCATE(reemitted)\n  IF (ALLOCATED(temp_hg               )) DEALLOCATE(temp_hg)\n  IF (ALLOCATED(photoreduced          )) DEALLOCATE(photoreduced)\n  IF (ALLOCATED(maxt                  )) DEALLOCATE(maxt) \n  IF (ALLOCATED(abovewoodpool_Hg      )) DEALLOCATE(abovewoodpool_Hg)\n  IF (ALLOCATED(belowwoodpool_Hg      )) DEALLOCATE(belowwoodpool_Hg)\n  IF (ALLOCATED(leafpool_Hg           )) DEALLOCATE(leafpool_Hg)\n  IF (ALLOCATED(frootpool_Hg          )) DEALLOCATE(frootpool_Hg)\n  IF (ALLOCATED(cwdpool_Hg            )) DEALLOCATE(cwdpool_Hg)\n  IF (ALLOCATED(surfstrpool_Hg        )) DEALLOCATE(surfstrpool_Hg)\n  IF (ALLOCATED(surfmetpool_Hg        )) DEALLOCATE(surfmetpool_Hg)\n  IF (ALLOCATED(surfmicpool_Hg        )) DEALLOCATE(surfmicpool_Hg)\n  IF (ALLOCATED(soilstrpool_Hg        )) DEALLOCATE(soilstrpool_Hg)\n  IF (ALLOCATED(soilmetpool_Hg        )) DEALLOCATE(soilmetpool_Hg)\n  IF (ALLOCATED(soilmicpool_Hg        )) DEALLOCATE(soilmicpool_Hg)\n  IF (ALLOCATED(slowpool_Hg           )) DEALLOCATE(slowpool_Hg)\n  IF (ALLOCATED(armoredpool_Hg        )) DEALLOCATE(armoredpool_Hg)\n  IF (ALLOCATED(hleafpool_Hg          )) DEALLOCATE(hleafpool_Hg)\n  IF (ALLOCATED(hfrootpool_Hg         )) DEALLOCATE(hfrootpool_Hg)\n  IF (ALLOCATED(hsurfstrpool_Hg       )) DEALLOCATE(hsurfstrpool_Hg)\n  IF (ALLOCATED(hsurfmetpool_Hg       )) DEALLOCATE(hsurfmetpool_Hg)\n  IF (ALLOCATED(hsurfmicpool_Hg       )) DEALLOCATE(hsurfmicpool_Hg)\n  IF (ALLOCATED(hsoilstrpool_Hg       )) DEALLOCATE(hsoilstrpool_Hg)\n  IF (ALLOCATED(hsoilmetpool_Hg       )) DEALLOCATE(hsoilmetpool_Hg)\n  IF (ALLOCATED(hsoilmicpool_Hg       )) DEALLOCATE(hsoilmicpool_Hg)\n  IF (ALLOCATED(hslowpool_Hg          )) DEALLOCATE(hslowpool_Hg)\n  IF (ALLOCATED(harmoredpool_Hg       )) DEALLOCATE(harmoredpool_Hg)\n  IF (ALLOCATED(hgout_surfmet         )) DEALLOCATE(hgout_surfmet)\n  IF (ALLOCATED(hgout_surfstr         )) DEALLOCATE(hgout_surfstr)\n  IF (ALLOCATED(hgout_leaf            )) DEALLOCATE(hgout_leaf)\n  IF (ALLOCATED(hgout_soilstr         )) DEALLOCATE(hgout_soilstr)\n  IF (ALLOCATED(hgout_surfmic         )) DEALLOCATE(hgout_surfmic)\n  IF (ALLOCATED(hgout_soilmic         )) DEALLOCATE(hgout_soilmic)\n  IF (ALLOCATED(hgout_soilmet         )) DEALLOCATE(hgout_soilmet)\n  IF (ALLOCATED(hgout_slow            )) DEALLOCATE(hgout_slow)\n  IF (ALLOCATED(hgout_armored         )) DEALLOCATE(hgout_armored)\n  IF (ALLOCATED(resppool_surfmet_hg   )) DEALLOCATE(resppool_surfmet_hg)\n  IF (ALLOCATED(resppool_surfmic_hg   )) DEALLOCATE(resppool_surfmic_hg)\n  IF (ALLOCATED(resppool_soilstr_hg   )) DEALLOCATE(resppool_soilstr_hg)\n  IF (ALLOCATED(resppool_surfstr_hg   )) DEALLOCATE(resppool_surfstr_hg)\n  IF (ALLOCATED(resppool_soilmic_hg   )) DEALLOCATE(resppool_soilmic_hg)\n  IF (ALLOCATED(resppool_soilmet_hg   )) DEALLOCATE(resppool_soilmet_hg)\n  IF (ALLOCATED(resppool_slow_hg      )) DEALLOCATE(resppool_slow_hg)\n  IF (ALLOCATED(resppool_armored_hg   )) DEALLOCATE(resppool_armored_hg)\n  IF (ALLOCATED(resp_surfmet_hg       )) DEALLOCATE(resp_surfmet_hg)\n  IF (ALLOCATED(resp_surfmic_hg       )) DEALLOCATE(resp_surfmic_hg)\n  IF (ALLOCATED(resp_soilstr_hg       )) DEALLOCATE(resp_soilstr_hg)\n  IF (ALLOCATED(resp_surfstr_hg       )) DEALLOCATE(resp_surfstr_hg)\n  IF (ALLOCATED(resp_soilmic_hg       )) DEALLOCATE(resp_soilmic_hg)\n  IF (ALLOCATED(resp_soilmet_hg       )) DEALLOCATE(resp_soilmet_hg)\n  IF (ALLOCATED(resp_slow_hg          )) DEALLOCATE(resp_slow_hg)\n  IF (ALLOCATED(resp_armored_hg       )) DEALLOCATE(resp_armored_hg)\n  IF (ALLOCATED(combusted_leaf_hg     )) DEALLOCATE(combusted_leaf_hg)\n  IF (ALLOCATED(combusted_surfstr_hg  )) DEALLOCATE(combusted_surfstr_hg)\n  IF (ALLOCATED(combusted_surfmet_hg  )) DEALLOCATE(combusted_surfmet_hg)\n  IF (ALLOCATED(combusted_surfmic_hg  )) DEALLOCATE(combusted_surfmic_hg)\n  IF (ALLOCATED(combusted_soilstr_hg  )) DEALLOCATE(combusted_soilstr_hg)\n  IF (ALLOCATED(combusted_soilmet_hg  )) DEALLOCATE(combusted_soilmet_hg)\n  IF (ALLOCATED(combusted_soilmic_hg  )) DEALLOCATE(combusted_soilmic_hg)\n  IF (ALLOCATED(combusted_slow_hg     )) DEALLOCATE(combusted_slow_hg)\n  IF (ALLOCATED(combusted_armored_hg  )) DEALLOCATE(combusted_armored_hg)\n  IF (ALLOCATED(combusted_surfmic_hg  )) DEALLOCATE(combusted_surfmic_hg)\n  IF (ALLOCATED(nonCombusted_leaf_hg  )) DEALLOCATE(nonCombusted_leaf_hg)\n  IF (ALLOCATED(fuelwoodout_hg        )) DEALLOCATE(fuelwoodout_hg)\n  IF (ALLOCATED(wresp_hg              )) DEALLOCATE(wresp_hg)\n  IF (ALLOCATED(wcomb_hg              )) DEALLOCATE(wcomb_hg)\n  IF (ALLOCATED(wherb_hg              )) DEALLOCATE(wherb_hg)\n  IF (ALLOCATED(wbiof_hg              )) DEALLOCATE(wbiof_hg)\n  IF (ALLOCATED(hresp_hg              )) DEALLOCATE(hresp_hg)\n  IF (ALLOCATED(hcomb_hg              )) DEALLOCATE(hcomb_hg)\n  IF (ALLOCATED(hherb_hg              )) DEALLOCATE(hherb_hg)\n  IF (ALLOCATED(veg_burn              )) DEALLOCATE(veg_burn)\n  IF (ALLOCATED(NPPmonthly_hg         )) DEALLOCATE(NPPmonthly_hg)\n  IF (ALLOCATED(respmonthly_hg        )) DEALLOCATE(respmonthly_hg)\n  IF (ALLOCATED(combmonthly_hg        )) DEALLOCATE(combmonthly_hg)\n  IF (ALLOCATED(herbmonthly_hg        )) DEALLOCATE(herbmonthly_hg)\n  IF (ALLOCATED(biofmonthly_hg        )) DEALLOCATE(biofmonthly_hg)\n  IF (ALLOCATED(respEQ_hg             )) DEALLOCATE(respEQ_hg)\n  IF (ALLOCATED(combEQ_hg             )) DEALLOCATE(combEQ_hg)\n  IF (ALLOCATED(herbEQ_hg             )) DEALLOCATE(herbEQ_hg)\n  IF (ALLOCATED(biofEQ_hg             )) DEALLOCATE(biofEQ_hg)\n  IF (ALLOCATED(evapEQ_hg             )) DEALLOCATE(evapEQ_hg)\n  IF (ALLOCATED(reemitEQ_hg           )) DEALLOCATE(reemitEQ_hg)\n  IF (ALLOCATED(photoEQ_hg            )) DEALLOCATE(photoEQ_hg)\n  IF (ALLOCATED(leafpoolEQ_hg         )) DEALLOCATE(leafpoolEQ_hg)\n  IF (ALLOCATED(Hg0out                )) DEALLOCATE(Hg0out) \n  IF (ALLOCATED(slowpoolEQ_hg         )) DEALLOCATE(slowpoolEQ_hg)\n  IF (ALLOCATED(armoredpoolEQ_hg      )) DEALLOCATE(armoredpoolEQ_hg)\n  IF (ALLOCATED(surfstrpoolEQ_hg      )) DEALLOCATE(surfstrpoolEQ_hg)\n  IF (ALLOCATED(soilstrpoolEQ_hg      )) DEALLOCATE(soilstrpoolEQ_hg)\n  IF (ALLOCATED(surfmetpoolEQ_hg      )) DEALLOCATE(surfmetpoolEQ_hg)\n  IF (ALLOCATED(soilmetpoolEQ_hg      )) DEALLOCATE(soilmetpoolEQ_hg)\n  IF (ALLOCATED(surfmicpoolEQ_hg      )) DEALLOCATE(surfmicpoolEQ_hg)\n  IF (ALLOCATED(soilmicpoolEQ_hg      )) DEALLOCATE(soilmicpoolEQ_hg)\n  IF (ALLOCATED(HgAqEQ_hg             )) DEALLOCATE(HgAqEQ_hg)\n  IF (ALLOCATED(reemmonthly_hg        )) DEALLOCATE(reemmonthly_hg)\n  IF (ALLOCATED(photmonthly_hg        )) DEALLOCATE(photmonthly_hg)\n  IF (ALLOCATED(slowmonthly           )) DEALLOCATE(slowmonthly)\n  IF (ALLOCATED(armoredmonthly        )) DEALLOCATE(armoredmonthly)\n  IF (ALLOCATED(surfstrmonthly        )) DEALLOCATE(surfstrmonthly)\n  IF (ALLOCATED(surfmetmonthly        )) DEALLOCATE(surfmetmonthly)\n  IF (ALLOCATED(surfmicmonthly        )) DEALLOCATE(surfmicmonthly)\n  IF (ALLOCATED(soilstrmonthly        )) DEALLOCATE(soilstrmonthly)\n  IF (ALLOCATED(soilmetmonthly        )) DEALLOCATE(soilmetmonthly)\n  IF (ALLOCATED(soilmicmonthly        )) DEALLOCATE(soilmicmonthly)\n  IF (ALLOCATED(leafmonthly           )) DEALLOCATE(leafmonthly)\n  IF (ALLOCATED(slowmonthly_hg        )) DEALLOCATE(slowmonthly_hg)\n  IF (ALLOCATED(armoredmonthly_hg     )) DEALLOCATE(armoredmonthly_hg)\n  IF (ALLOCATED(surfstrmonthly_hg     )) DEALLOCATE(surfstrmonthly_hg)\n  IF (ALLOCATED(surfmetmonthly_hg     )) DEALLOCATE(surfmetmonthly_hg)\n  IF (ALLOCATED(surfmicmonthly_hg     )) DEALLOCATE(surfmicmonthly_hg)\n  IF (ALLOCATED(soilstrmonthly_hg     )) DEALLOCATE(soilstrmonthly_hg)\n  IF (ALLOCATED(soilmetmonthly_hg     )) DEALLOCATE(soilmetmonthly_hg)\n  IF (ALLOCATED(soilmicmonthly_hg     )) DEALLOCATE(soilmicmonthly_hg)\n  IF (ALLOCATED(leafmonthly_hg        )) DEALLOCATE(leafmonthly_hg)\n  IF (ALLOCATED(leafpoolEQ            )) DEALLOCATE(leafpoolEQ)\n  IF (ALLOCATED(slowpoolEQ            )) DEALLOCATE(slowpoolEQ)\n  IF (ALLOCATED(armoredpoolEQ         )) DEALLOCATE(armoredpoolEQ)\n  IF (ALLOCATED(surfstrpoolEQ         )) DEALLOCATE(surfstrpoolEQ)\n  IF (ALLOCATED(soilstrpoolEQ         )) DEALLOCATE(soilstrpoolEQ)\n  IF (ALLOCATED(surfmetpoolEQ         )) DEALLOCATE(surfmetpoolEQ)\n  IF (ALLOCATED(soilmetpoolEQ         )) DEALLOCATE(soilmetpoolEQ)\n  IF (ALLOCATED(surfmicpoolEQ         )) DEALLOCATE(surfmicpoolEQ)\n  IF (ALLOCATED(soilmicpoolEQ         )) DEALLOCATE(soilmicpoolEQ)\n  IF (ALLOCATED(HgAqmonthly           )) DEALLOCATE(HgAqmonthly)\n  IF (ALLOCATED(biomeAnnual_Hg        )) DEALLOCATE(biomeAnnual_Hg)\n  IF (ALLOCATED(total_tree_hg         )) DEALLOCATE(total_tree_hg)\n  IF (ALLOCATED(total_herb_hg         )) DEALLOCATE(total_herb_hg)\n  \n  IF (ALLOCATED(Hg_pool_fluxes1       )) DEALLOCATE(Hg_pool_fluxes1)\n  IF (ALLOCATED(Hg_pool_fluxes2       )) DEALLOCATE(Hg_pool_fluxes2)\n  IF (ALLOCATED(Hg_pool_fluxes3       )) DEALLOCATE(Hg_pool_fluxes3)\n  IF (ALLOCATED(Hg_pool_fluxes4       )) DEALLOCATE(Hg_pool_fluxes4)\n  IF (ALLOCATED(Hg_pool_fluxes5       )) DEALLOCATE(Hg_pool_fluxes5)\n  IF (ALLOCATED(Hg_pool_fluxes6       )) DEALLOCATE(Hg_pool_fluxes6)\n  \n  IF (ALLOCATED(Hg_hpool_fluxes1      )) DEALLOCATE(Hg_hpool_fluxes1)\n  IF (ALLOCATED(Hg_hpool_fluxes2      )) DEALLOCATE(Hg_hpool_fluxes2)\n  IF (ALLOCATED(Hg_hpool_fluxes3      )) DEALLOCATE(Hg_hpool_fluxes3)\n  IF (ALLOCATED(Hg_hpool_fluxes4      )) DEALLOCATE(Hg_hpool_fluxes4)\n  IF (ALLOCATED(Hg_hpool_fluxes5      )) DEALLOCATE(Hg_hpool_fluxes5)\n  IF (ALLOCATED(Hg_hpool_fluxes6      )) DEALLOCATE(Hg_hpool_fluxes6)\n  \n  IF (ALLOCATED(f_carbonout_surfmet   )) DEALLOCATE(f_carbonout_surfmet)\n  IF (ALLOCATED(f_carbonout_surfstr   )) DEALLOCATE(f_carbonout_surfstr)\n  IF (ALLOCATED(f_carbonout_leaf      )) DEALLOCATE(f_carbonout_leaf)\n  IF (ALLOCATED(f_carbonout_soilstr   )) DEALLOCATE(f_carbonout_soilstr)\n  IF (ALLOCATED(f_carbonout_surfmic   )) DEALLOCATE(f_carbonout_surfmic)\n  IF (ALLOCATED(f_carbonout_soilmic   )) DEALLOCATE(f_carbonout_soilmic)\n  IF (ALLOCATED(f_carbonout_slow      )) DEALLOCATE(f_carbonout_slow)\n  IF (ALLOCATED(f_carbonout_armored   )) DEALLOCATE(f_carbonout_armored)\n  IF (ALLOCATED(f_carbonout_soilmet   )) DEALLOCATE(f_carbonout_soilmet)\n  \n  \nEND SUBROUTINE CleanupCASAarrays\n!EOC\n"
  },
  {
    "path": "GTMM/GTMM.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !PROGRAM: GTMM\n!\n! !DESCRIPTION: Based on the CASA (Carnegie, Ames, Stanford Approach) \n!  terrestrial biogeochemical model designed to simulate the terrestrial\n!  carbon cycle using satellite data\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nPROGRAM GTMM\n!\n! !USES:\n!\n  USE      defineConstants ! modify defineConstants.f90 to choose\n                         ! parameters for your run \n\n  USE      loadCASAinput\n  \n  USE      defineArrays\n\n  USE      DORESTART_MOD ! New module to save/read Hg data and \n                         ! CASA data for continuation runs and GEOS-CHEM. \n                         ! (ccc, 11/3/09)\n\n  USE      INPUT_GTMM_MOD\n\n  USE      PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !AUTHOR:\n!\n!GTMM (Global Terrestrial Mercury Model) Developed by \n!Nicole Smith-Downey (nicolevdowney@gmail.com) 2006-2009\n!See Smith-Downey, Sunderland and Jacob, JGR Biogeosciences, 2009\n!\n!Based on the CASA (Carnegie, Ames, Stanford Approach) terrestrial\n!biogeochemical model designed to simulate the terrestrial\n!carbon cycle using satellite data\n!\n!Original program written by Potter and Randerson\n!See: Potter, C.S., J.T. Randerson, C.B. Field, P.A. Matson, \n!     P.M.Vitousek, H.A. Mooney, and S.A. Klooster, 1993.  \n!     Terrestrial ecosystem production: A process model\n!     based on satellite and surface data.  Global \n!     Biogeochemical Cycles (7) 811-841.\n!\n! !REVISION HISTORY:\n!\n! ( 1) Translated into Matlab and accounted for fires by Guido van \n!      der Werf.  \n!See:  van der Werf, G.R., J.T. Randerson, G.J. Collatz and L. \n!      Giglio, 2003.  Carbon emissions from fires in tropical\n!      and subtropical ecosystems.  Global Change Biology 9\n!      (4) 547-562.\n!\n! ( 2) Translated into Fortran90 and added Mercury simulation by \n!      Nicole Smith Downey - 2006\n!\n! ( 3) Main program for offline simulations. Added coupling to GEOS-Chem\n!      (see GTMM_coupled.f90) (ccc, 7/9/10)\n! ( 4) Added capacity to restart runs. (ccc, 7/9/10)\n! 25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  REAL(fp), DIMENSION(72, 46)  :: Hg0reemit    ! Dummy array. Used for coupling\n                                             ! with GC only\n  INTEGER :: year, month, ageClass\n  LOGICAL :: LCPLE=.FALSE.                   ! Logical to define if we run\n                                             ! coupled to GEOS-Chem or not\n                                             ! Leave LCPLE to .FALSE. for the \n                                             ! stand-alone model. (ccc, 11/2/09)\n\n  LOGICAL :: FIRST=.TRUE.\n\n  !----------------------------------------------------------------------------\n  ! GTMM begins here !\n  !----------------------------------------------------------------------------\n\n  CALL makeCASAarrays               !subroutine in defineArrays\n\n  CALL readCASAparam\n\n  CALL initialize\n!\n  CALL READ_GTMM_INPUT_FILE         !read data from input.gtmm (ccc)\n!\n\n  IF ( LRESTART ) FIRST=.FALSE.\n\n!<<<<<VERIFY CONSTANTS>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n\n  print '(a)', ''\n  print '(a)', 'STARTING GTMM...'\n  print '(a)', ''\n  print '(a)', 'Your outputpath is: ', outputpath\n  print '(a)', '   '\n  print '(a)', 'You have chosen: ' \n  print '(a, i4, a, i4, a)', '   ', rows, ' rows and '&\n       &, columns, ' columns'\n  print '(a, i6, a)', '   ', NPPequilibriumYear, ' years to&\n       & equilibrate Carbon Pools'\n  print '(a, i6, a)', '   ', HgPoolsequilibriumYear, ' years to&\n       & equilibrate carbon/Hg pools'\n  print '(a, i6, a)', '   ', n_age_classes, ' age classes'\n  print '(a,f3.1,a)', '   ', Q10, ' = Q10'\n  print '(a,f3.1,a)', '   ', EMAX, ' = EMAX'\n  print '(a,f3.1,a)', '   ', aboveWoodFraction, ' = aboveWoodFraction'\n  print '(a,f3.1,a)', '   ', herbivoreEff, ' = herbivore efficiency'\n  print '(a,f5.3,a)', '   ', decompHgEff, ' = fraction Hg released during &\n       &decomposition'\n  print '(a)', '   '\n!<<<<<END VERIFY CONSTANTS>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n\n  CALL load_data(LCPLE)    !subroutine in loadCASAinput.f90\n  CALL CONV_TO_1D\n\n  IF (.NOT.LRESTART) THEN   ! NPP equilibrium only done for the first run\n     h=1\n     print *, 'starting spinup to npp equilibirum'\n     \n     ! run NPP to equilibrium\n     DO year=1,NPPequilibriumYear\n        print *, yr\n        DO month=1,12\n!        CALL load_data(year, month, LCPLE)    !subroutine in loadCASAinput.f90\n           CALL doLatitude\n           CALL getSoilParams\n           CALL getSoilMoistParams\n           CALL getFuelWood\n           \n           CALL doPET\n           CALL doSoilMoisture\n           CALL doFPARandLAI(FIRST)\n           CALL doOptimumTemperature\n           CALL doNPP\n           CALL doHerbivory\n           CALL doLeafRootShedding\n           CALL getFireParams\n           IF (n_age_classes == 1) THEN\n              CALL doTreeCarbon\n              CALL doHerbCarbon\n           ELSE\n              DO ageClass=1,n_age_classes\n                 CALL getAgeClassBF\n                 CALL assignAgeClassToRunningPool\n                 CALL doTreeCarbon\n                 CALL doHerbCarbon\n                 CALL assignRanPoolToAgeClass\n                 age_class=age_class+1\n              END DO\n              CALL organizeAgeClasses\n           ENDIF\n           !CALL processData\n           age_class=1\n           mo=mo+1\n        END DO\n        mo=1\n        yr=yr+1\n        h=h+1\n        IF (h > 25) THEN\n           h=1\n        ENDIF\n        FIRST=.FALSE.\n     END DO\n     \n     ! Save values to restart file\n     CALL doSaveCASAforRestart\n     \n     \n  ENDIF\n  \n  IF ( LRESTART ) THEN     ! Need to load data from previous run\n     CALL doReadCASAfromRestart   \n     \n     ! Read Hg data saved from previous run. (ccc, 11/3/09)\n     CALL doReadHgforGC\n  ENDIF\n  \n  \n  ! run terrestrial mercury\n  age_class=1\n  mo = 1\n  DO year=(NPPequilibriumYear+1),(HgPoolsequilibriumYear)\n     print *, yr\n     DO month=1,12\n!        CALL load_data(year, month, LCPLE)    !subroutine in loadCASAinput.f90\n        CALL getSoilParams\n        CALL getSoilMoistParams\n        CALL doLatitude\n        CALL getFuelWood\n        \n        CALL doMaxHg\n        CALL loadHgDeposition(LCPLE)\n        CALL doHgDeposition(LCPLE)\n        IF (n_age_classes == 1) THEN\n           CALL doTreeCarbonHg(LCPLE)\n           CALL doHerbCarbonHg(LCPLE)\n        ELSE\n           DO ageClass=1, n_age_classes\n              CALL getAgeClassBF\n              CALL assignAgeClassToRunningPool\n              CALL doTreeCarbonHg(LCPLE)\n              CALL doHerbCarbonHg(LCPLE)\n              CALL assignRanPoolToAgeClass\n              age_class=age_class+1\n           END DO\n           CALL organizeAgeClasses\n        ENDIF\n        IF (yr == indYear) THEN\n           CALL HgOutForGEOS(LCPLE, Hg0reemit) \n        ENDIF\n        !CALL processData\n        age_class=1\n        mo=mo+1\n     END DO\n     mo=1\n     yr=yr+1\n     h=h+1\n     IF (h > 25) THEN\n        h=1\n     ENDIF\n  END DO\n  \n  ! Save Hg data at equilibrium to use in GEOS-Chem. (ccc, 11/3/09)\n  CALL doSaveHgforGC\n  \n  ! END OF RUN -- DEALLOCATE ALL\n  print *, 'deallocating all arrays'\n  CALL CleanupCASAarrays\nEND PROGRAM GTMM\n!EOC\n"
  },
  {
    "path": "GTMM/GTMM_coupled.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GTMM_coupled\n!\n! !DESCRIPTION: Main subroutine for GTMM when coupled to GEOS-Chem. Replace\n!  GTMM.f90.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE GTMM_coupled(year, month,  DD_Hg0, DD_HgII, WD_HgII, &\n                        TS,   PREACC, RADSWG, Hg0reemit  )\n!\n! !USES:\n!\n  USE      defineConstants ! modify defineConstants.f90 to choose\n                         ! parameters for your run \n\n  USE      loadCASAinput\n  \n  USE      defineArrays\n\n  USE      DORESTART_MOD     ! New module to save/read Hg data for \n                             ! GEOS-CHEM. (ccc, 11/3/09)   \n\n  USE      INPUT_GTMM_MOD\n  \n  USE      PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!  \n  REAL(fp), INTENT(IN)           :: DD_Hg0(72, 46), DD_HgII(72, 46), &\n                                  WD_HgII(72, 46)    ! Hg deposition info.\n\n  REAL(fp), INTENT(IN),  DIMENSION(72, 46)  :: TS, PREACC, RADSWG !Met field info\n!\n! !INPUT/OUTPUT PARAMETERS:\n!  \n  INTEGER, INTENT(INOUT)       :: year, month\n!\n! !OUTPUT PARAMETERS:\n!  \n  REAL(fp), INTENT(OUT), DIMENSION(72, 46)  :: Hg0reemit  ! Reemitted flux, \n                                                        ! output to GEOS-Chem\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - First version. Adapted from GTMM.f90\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n  INTEGER :: ageClass\n\n  ! Define if we run CASA for carbon equilibre or not.\n  LOGICAL, SAVE     :: LEQUIL = .TRUE.\n\n  LOGICAL           :: LCPLE\n\n  ! Give value to LCPLE \n  LCPLE=.TRUE.\n\n  CALL readCASAparam\n  CALL makeCASAarrays               !subroutine in defineArrays\n\n  CALL initialize\n\n!\n  CALL READ_GTMM_INPUT_FILE         !read data from input.gtmm (ccc)\n!\n!<<<<<VERIFY CONSTANTS>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n\n  print '(a)', ''\n  print '(a)', 'STARTING GTMM...'\n  print '(a)', ''\n  print '(a)', 'Your outputpath is: ', outputpath\n  print '(a)', '   '\n  print '(a)', 'You have chosen: ' \n  print '(a, i4, a, i4, a)', '   ', rows, ' rows and '&\n       &, columns, ' columns'\n  print '(a, i6, a)', '   ', NPPequilibriumYear, ' years to&\n       & equilibrate Carbon Pools'\n  print '(a, i6, a)', '   ', HgPoolsequilibriumYear, ' years to&\n       & equilibrate carbon/Hg pools'\n  print '(a, i6, a)', '   ', n_age_classes, ' age classes'\n  print '(a,f3.1,a)', '   ', Q10, ' = Q10'\n  print '(a,f3.1,a)', '   ', EMAX, ' = EMAX'\n  print '(a,f3.1,a)', '   ', aboveWoodFraction, ' = aboveWoodFraction'\n  print '(a,f3.1,a)', '   ', herbivoreEff, ' = herbivore efficiency'\n  print '(a,f5.3,a)', '   ', decompHgEff, ' = fraction Hg released during decomposition'\n  print '(a)', '   '\n!<<<<<END VERIFY CONSTANTS>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n\n  CALL doReadCASAfromRestart   \n\n  h=1\n     \n  ! run terrestrial mercury for the current month only\n  age_class=1\n     \n  yr = year\n  mo = month\n  \n  print *, year\n!  CALL load_data(year, month, LCPLE, TS, PREACC, RADSWG) !in loadCASAinput.f90\n  CALL load_data(LCPLE) !in loadCASAinput.f90\n  CALL load_GC_data(month, TS, PREACC, RADSWG)\n  CALL CONV_TO_1D\n\n  CALL getSoilParams\n  CALL getSoilMoistParams\n  CALL doLatitude\n  CALL getFuelWood\n  \n  ! Read Hg data saved from equilibrium run. (ccc, 11/3/09)\n  CALL doReadHgforGC\n\n  CALL doMaxHg\n  ! We need to pass deposition arrays read by GEOS-Chem (ccc, 9/17/09)\n  CALL loadHgDeposition(LCPLE, DD_Hg0, DD_HgII, WD_HgII)   \n  CALL doHgDeposition(LCPLE)\n  IF (n_age_classes .eq. 1) THEN\n     CALL doTreeCarbonHg(LCPLE)\n     CALL doHerbCarbonHg(LCPLE)\n  ELSE\n     DO ageClass=1, n_age_classes\n        CALL getAgeClassBF\n        CALL assignAgeClassToRunningPool\n        CALL doTreeCarbonHg(LCPLE)\n        CALL doHerbCarbonHg(LCPLE)\n        CALL assignRanPoolToAgeClass\n        age_class=age_class+1\n     END DO\n     CALL organizeAgeClasses\n  ENDIF\n  CALL HgOutForGEOS(LCPLE, Hg0reemit) \n  \n  \n  ! END OF RUN -- DEALLOCATE ALL\n  print *, 'deallocating all arrays'\n  CALL CleanupCASAarrays\n\nEND SUBROUTINE GTMM_coupled\n!EOC\n"
  },
  {
    "path": "GTMM/HgOutForGEOS.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HgOutForGEOS\n!\n! !DESCRIPTION: Subroutine HgOutForGEOS converts the (n\\_veg,1) data to 1x1, \n!  then to 4x5 grid then writes out the file for use by GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE HgOutForGEOS(LCPLE, Hg0reemit)\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE CasaRegridModule\n  USE PRECISION_MOD       ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n  LOGICAL, INTENT(IN) :: LCPLE\n!\n! !OUTPUT PARAMETERS:\n!\n  REAL(fp), INTENT(OUT) :: Hg0reemit(72, 46)\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Modified to couple with GEOS-Chem\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  REAL(fp) ::                 Hg0outGEOS(72,46)\n  REAL(fp) ::                 Hg0out1x1(360,180)\n  REAL(fp) ::                 Hg0CombGEOS(72,46)\n  REAL(fp) ::                 Hg0Comb1x1(360,180)\n  REAL(fp) ::                 HgPCombGEOS(72,46)\n  REAL(fp) ::                 HgPComb1x1(360,180)\n  REAL(fp) ::                 Hg0PhotGEOS(72,46)\n  REAL(fp) ::                 Hg0Phot1x1(360,180)\n  REAL(fp) ::                 Hg0VoltGEOS(72,46)\n  REAL(fp) ::                 Hg0Volt1x1(360,180)\n  REAL(fp) ::                 Hg0RespGEOS(72,46)\n  REAL(fp) ::                 Hg0Resp1x1(360,180) \n  REAL(fp) ::                 LAT_LONG(3,n_veg)\n  REAL(fp) ::                 pi=3.14159265e+0_fp\n  REAL(fp) ::                 radius=6378140.00e+0_fp\n  REAL(fp) ::                 g, a, apixel\n  REAL(fp), dimension(360,180) ::                 gridAreaf\n  REAL(fp), dimension(72,46)   ::                 gridAreag \n  CHARACTER(LEN=f_len+6) :: filename1\n  CHARACTER(LEN=f_len_output+9) :: filename2 \n  CHARACTER(3), DIMENSION(12) :: months \n  INTEGER ::                j,i, v, w\n  \n  filename1(1:f_len)=filepath\n  filename1(f_len+1:f_len+6)='months'\n  OPEN(UNIT=3, FILE=filename1, FORM='FORMATTED')\n  READ(3,*) months\n  CLOSE(3) \n  filename1(f_len+1:f_len+6)='geosm2'\n  OPEN(UNIT=3, FILE=filename1, FORM='FORMATTED')\n  READ(3,*) gridareag\n  CLOSE(3)\n  \n  \n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)  \n!$OMP WORKSHARE\n  Hg0out(:,1)=0.0e+0_fp\n  Hg0out(:,1)=(wresp_hg(:,1)*frac_tree(:,1))+  &\n       (hresp_hg(:,1)*frac_herb(:,1))+        &\n       reemitted(:,1)+photoreduced(:,1)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL      \n\n  filename1(f_len+1:f_len+6)='latlon'\n  OPEN(UNIT=5, FILE=filename1, FORM='FORMATTED')\n  READ(5,*) LAT_LONG\n  CLOSE(5)\n  \n\n  ! Initialize arrays to 0. (ccc, 10/21/09)\n  Hg0out1x1   = 0e+0_fp\n  Hg0Phot1x1  = 0e+0_fp\n  Hg0Volt1x1  = 0e+0_fp\n  Hg0Resp1x1  = 0e+0_fp\n  Hg0outGEOS  = 0e+0_fp\n  Hg0PhotGEOS = 0e+0_fp\n  Hg0VoltGEOS = 0e+0_fp\n  Hg0RespGEOS = 0e+0_fp\n\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i, v, w)  \n  DO i=1, n_veg\n     v=lat_long(1,i)\n     w=lat_long(2,i)\n     Hg0out1x1(v,w)=Hg0out(i,1)\n     Hg0Phot1x1(v,w)=photoreduced(i,1)\n     Hg0Volt1x1(v,w)=reemitted(i,1)\n     Hg0Resp1x1(v,w)=(wresp_hg(i,1)*frac_tree(i,1))+(hresp_hg(i,1)*frac_herb(i,1)) \n  END DO\n!$OMP END PARALLEL DO    \n      \n  CALL CasaRegridInit\n  CALL regrid1x1to4x5(1, Hg0out1x1, Hg0outGEOS)\n  CALL regrid1x1to4x5(1, Hg0Phot1x1, Hg0PhotGEOS)\n  CALL regrid1x1to4x5(1, Hg0Volt1x1, Hg0VoltGEOS)\n  CALL regrid1x1to4x5(1, Hg0Resp1x1, Hg0RespGEOS)\n\n\n  !!CONVERT from g/m2/mo --> kg/s\n\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i, j)  \n  DO j=1, 46\n     DO i=1, 72 \n        Hg0outGEOS(i,j)=Hg0outGEOS(i,j)*gridAreag(i,j)*(1e+0_fp/1000e+0_fp)*   &\n             (1e+0_fp/2629743.8e+0_fp)\n        Hg0PhotGEOS(i,j)=Hg0PhotGEOS(i,j)*gridAreag(i,j)*(1e+0_fp/1000e+0_fp)* &\n             (1e+0_fp/2629743.8e+0_fp)\n        Hg0VoltGEOS(i,j)=Hg0VoltGEOS(i,j)*gridAreag(i,j)*(1e+0_fp/1000e+0_fp)* &\n             (1e+0_fp/2629743.8e+0_fp)\n        Hg0RespGEOS(i,j)=Hg0RespGEOS(i,j)*gridAreag(i,j)*(1e+0_fp/1000e+0_fp)* &\n             (1e+0_fp/2629743.8e+0_fp)\n     END DO\n  END DO\n!$OMP END PARALLEL DO    \n\n  filename2(1:f_len_output)=outputpath\n  filename2(f_len_output+1:f_len_output+6)='Hg0out'\n  filename2(f_len_output+7:f_len_output+9)=months(mo)\n \n  ! Output the total Hg0 re-emitted to GEOS-Chem. \n  Hg0reemit=Hg0outGEOS\n  \n  IF ( .NOT. LCPLE ) THEN\n     OPEN(UNIT=5, FILE=filename2)\n     WRITE(5,*) Hg0outGEOS\n     CLOSE(5)\n     \n     filename2(f_len_output+1:f_len_output+6)='Hg0Pht'\n     OPEN(UNIT=5, FILE=filename2)\n     WRITE(5,*) Hg0PhotGEOS\n     CLOSE(5)\n     \n     filename2(f_len_output+1:f_len_output+6)='Hg0Vot'\n     OPEN(UNIT=5, FILE=filename2)\n     WRITE(5,*) Hg0VoltGEOS\n     CLOSE(5)\n     \n     filename2(f_len_output+1:f_len_output+6)='Hg0Res'\n     OPEN(UNIT=5, FILE=filename2)\n     WRITE(5,*) Hg0RespGEOS\n     CLOSE(5)\n     \n  ENDIF\n\n  !ok, now data has been written out for geoschem\n  \nEND SUBROUTINE HgOutForGEOS\n!EOC\n"
  },
  {
    "path": "GTMM/assignAgeClassToRunningPool.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: assignAgeClassToRunningPool\n!\n! !DESCRIPTION: This subroutine ...\n!  running pool.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE assignAgeClassToRunningPool\n!\n! !USES:\n!  \n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 July 2010 - C. Carouge  - Add parallelization.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!  \n\n!$OMP PARALLEL &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n  abovewoodpool(:,1)=abovewoodpools(:,age_class)\n  belowwoodpool(:,1)=belowwoodpools(:,age_class)\n  leafpool(:,1)=leafpools(:,age_class)\n  frootpool(:,1)=frootpools(:,age_class)\n  cwdpool(:,1)=cwdpools(:,age_class)\n  surfstrpool(:,1)=surfstrpools(:,age_class)\n  surfmetpool(:,1)=surfmetpools(:,age_class)\n  surfmicpool(:,1)=surfmicpools(:,age_class)\n  soilstrpool(:,1)=soilstrpools(:,age_class)\n  soilmetpool(:,1)=soilmetpools(:,age_class)\n  soilmicpool(:,1)=soilmicpools(:,age_class)\n  slowpool(:,1)=slowpools(:,age_class)\n  armoredpool(:,1)=armoredpools(:,age_class)\n  \n  hleafpool(:,1)=hleafpools(:,age_class)\n  hfrootpool(:,1)=hfrootpools(:,age_class)\n  hsurfstrpool(:,1)=hsurfstrpools(:,age_class)\n  hsurfmetpool(:,1)=hsurfmetpools(:,age_class)\n  hsurfmicpool(:,1)=hsurfmicpools(:,age_class)\n  hsoilstrpool(:,1)=hsoilstrpools(:,age_class)\n  hsoilmetpool(:,1)=hsoilmetpools(:,age_class)\n  hsoilmicpool(:,1)=hsoilmicpools(:,age_class)\n  hslowpool(:,1)=hslowpools(:,age_class)\n  harmoredpool(:,1)=harmoredpools(:,age_class)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\nEND SUBROUTINE assignAgeClassToRunningPool\n!EOC\n"
  },
  {
    "path": "GTMM/assignRanPoolToAgeClass.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: assignRanPoolToAgeClass\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE assignRanPoolToAgeClass\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 July 2010 - C. Carouge  - Add parallelization.\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n\n!$OMP PARALLEL        &\n!$OMP DEFAULT(SHARED) \n!$OMP WORKSHARE\n  abovewoodpools(:,age_class)=abovewoodpool(:,1)\n  belowwoodpools(:,age_class)=belowwoodpool(:,1)\n  leafpools(:,age_class)=leafpool(:,1)\n  frootpools(:,age_class)=frootpool(:,1)\n  cwdpools(:,age_class)=cwdpool(:,1)\n  surfstrpools(:,age_class)=surfstrpool(:,1)\n  surfmetpools(:,age_class)=surfmetpool(:,1)\n  surfmicpools(:,age_class)=surfmicpool(:,1)\n  soilstrpools(:,age_class)=soilstrpool(:,1)\n  soilmetpools(:,age_class)=soilmetpool(:,1)\n  soilmicpools(:,age_class)=soilmicpool(:,1)\n  slowpools(:,age_class)=slowpool(:,1)\n  armoredpools(:,age_class)=armoredpool(:,1)\n  \n  hleafpools(:,age_class)=hleafpool(:,1)\n  hfrootpools(:,age_class)=hfrootpool(:,1)\n  hsurfstrpools(:,age_class)=hsurfstrpool(:,1)\n  hsurfmetpools(:,age_class)=hsurfmetpool(:,1)\n  hsurfmicpools(:,age_class)=hsurfmicpool(:,1)\n  hsoilstrpools(:,age_class)=hsoilstrpool(:,1)\n  hsoilmetpools(:,age_class)=hsoilmetpool(:,1)\n  hsoilmicpools(:,age_class)=hsoilmicpool(:,1)\n  hslowpools(:,age_class)=hslowpool(:,1)\n  harmoredpools(:,age_class)=harmoredpool(:,1)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\nEND SUBROUTINE assignRanPoolToAgeClass\n!EOC\n\n"
  },
  {
    "path": "GTMM/defineArrays.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: defineArrays\n!\n! !DESCRIPTION: Module defineArrays defines all allocatable arrays for GTMM\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE defineArrays\n!\n! !USES:\n!  \n  USE defineConstants\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !PUBLIC DATA MEMBERS:\n!  \n  ! in getSoilParams\n  CHARACTER(5), dimension(20000) :: years \n  REAL(fp), ALLOCATABLE :: clay(:,:)\n  REAL(fp), ALLOCATABLE :: silt(:,:)\n  REAL(fp), ALLOCATABLE :: sand(:,:)\n  REAL(fp), ALLOCATABLE :: litcn(:,:)\n  REAL(fp), ALLOCATABLE :: lignin(:,:)\n  REAL(fp), ALLOCATABLE :: lrage(:,:)\n  REAL(fp), ALLOCATABLE :: woodage(:,:)\n  \n  !in getSoilMoistureParams\n  REAL(fp), ALLOCATABLE :: SMparams(:,:)\n  REAL(fp), ALLOCATABLE :: last_soilm(:,:)\n  \n  ! in doPET\n  REAL(fp), ALLOCATABLE :: PET(:,:)\n  REAL(fp), ALLOCATABLE :: AHI(:,:)\n  REAL(fp)              :: coef(4,12)\n  \n  ! in doSoilMoisture\n  REAL(fp), ALLOCATABLE :: last_pack(:,:)\n  REAL(fp), ALLOCATABLE :: spack(:,:)\n  REAL(fp), ALLOCATABLE :: bgmoist(:,:)\n  REAL(fp), ALLOCATABLE :: NPPmoist(:,:)\n  REAL(fp), ALLOCATABLE :: EET(:,:)\n  REAL(fp), ALLOCATABLE :: NPPmoist_temp(:,:)\n  REAL(fp), ALLOCATABLE :: bgmoist_temp(:,:)\n  REAL(fp), ALLOCATABLE :: bgmoistpret(:,:)\n  REAL(fp), ALLOCATABLE :: NPPmoistpret(:,:)\n  REAL(fp), ALLOCATABLE :: soilm(:,:)\n  REAL(fp), ALLOCATABLE :: rdr(:,:)\n  REAL(fp), ALLOCATABLE :: current_ppt(:,:)\n  REAL(fp), ALLOCATABLE :: eeta(:,:)\n  REAL(fp), ALLOCATABLE :: eetb(:,:)\n  REAL(fp), ALLOCATABLE :: this_soilm(:,:)\n  REAL(fp), ALLOCATABLE :: bgratio(:,:)\n  \n  ! in doFPARandLAI\n  !constraints used to determine the simple ratio for each\n  !grid cell from code written by Sietse Los in Jan 93\n  REAL(fp)              :: SRMAX1  = 4.2448e+0_fp\n  REAL(fp)              :: SRMAX2  = 4.5970e+0_fp\n  REAL(fp)              :: SRMAX3  = 4.5970e+0_fp\n  REAL(fp)              :: SRMAX4  = 4.5970e+0_fp\n  REAL(fp)              :: SRMAX5  = 4.5970e+0_fp\n  REAL(fp)              :: SRMAX6  = 4.2448e+0_fp\n  REAL(fp)              :: SRMAX7  = 3.8387e+0_fp\n  REAL(fp)              :: SRMAX8  = 4.5970e+0_fp\n  REAL(fp)              :: SRMAX9  = 3.8387e+0_fp\n  REAL(fp)              :: SRMAX10 = 3.8387e+0_fp\n  REAL(fp)              :: SRMAX11 = 3.8387e+0_fp\n  REAL(fp)              :: SRMAX12 = 3.8387e+0_fp\n  REAL(fp)              :: SRMIN   = 1.0e+0_fp    ! for unvegetated land\n  \n  !maximum and minimum possible FPAR\n  REAL(fp)              :: FPARMAX=0.9500e+0_fp\n  REAL(fp)              :: FPARMIN=0.0000e+0_fp ! changed from original\n  ! code, was 0.0010\n  \n  !maximum possible LAI for each biome\n  REAL(fp)              :: LAIMAX1  = 7.0000e+0_fp\n  REAL(fp)              :: LAIMAX2  = 7.0000e+0_fp\n  REAL(fp)              :: LAIMAX3  = 7.5000e+0_fp\n  REAL(fp)              :: LAIMAX4  = 8.0000e+0_fp\n  REAL(fp)              :: LAIMAX5  = 8.0000e+0_fp\n  REAL(fp)              :: LAIMAX6  = 5.0000e+0_fp\n  REAL(fp)              :: LAIMAX7  = 5.0000e+0_fp\n  REAL(fp)              :: LAIMAX8  = 5.0000e+0_fp\n  REAL(fp)              :: LAIMAX9  = 5.0000e+0_fp\n  REAL(fp)              :: LAIMAX10 = 5.0000e+0_fp\n  REAL(fp)              :: LAIMAX11 = 5.0000e+0_fp\n  REAL(fp)              :: LAIMAX12 = 6.0000e+0_fp\n  \n  REAL(fp)              :: Ae\n  \n  !arrays for later use\n  REAL(fp), ALLOCATABLE :: srmax(:,:)\n  REAL(fp), ALLOCATABLE :: LAImax(:,:)\n  REAL(fp), ALLOCATABLE :: LAI_temp(:,:)\n  REAL(fp), ALLOCATABLE :: FPAR(:,:)\n  REAL(fp), ALLOCATABLE :: LAI(:,:)\n  REAL(fp), ALLOCATABLE :: sr(:,:)\n  !in doOptimumTemperature\n  REAL(fp), ALLOCATABLE :: topt(:,:)\n  REAL(fp), ALLOCATABLE :: maxlai(:,:)\n  REAL(fp), ALLOCATABLE :: lais(:,:)\n  \n  !in doLeafRootShedding\n  REAL(fp), ALLOCATABLE :: LTCON(:,:)\n  REAL(fp), ALLOCATABLE :: LTVAR(:,:)\n  \n  !in doTreeCarbon and doHerbCarbon\n  INTEGER             :: n_wood_pools=13\n  INTEGER             :: n_herb_pools=10\n  \n  !woody pools \n  REAL(fp), ALLOCATABLE :: abovewoodpool(:,:)\n  REAL(fp), ALLOCATABLE :: belowwoodpool(:,:)\n  REAL(fp), ALLOCATABLE :: leafpool(:,:)\n  REAL(fp), ALLOCATABLE :: frootpool(:,:)\n  REAL(fp), ALLOCATABLE :: cwdpool(:,:)\n  REAL(fp), ALLOCATABLE :: surfstrpool(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetpool(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicpool(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrpool(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetpool(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicpool(:,:)\n  REAL(fp), ALLOCATABLE :: slowpool(:,:)\n  REAL(fp), ALLOCATABLE :: armoredpool(:,:)\n  \n  !woody pools Hg \n  REAL(fp), ALLOCATABLE :: abovewoodpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: belowwoodpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: leafpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: frootpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: cwdpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfstrpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: slowpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: armoredpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: total_tree_hg(:,:)\n  \n  !herb pools\n  REAL(fp), ALLOCATABLE :: hleafpool(:,:)\n  REAL(fp), ALLOCATABLE :: hfrootpool(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfstrpool(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfmetpool(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfmicpool(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilstrpool(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilmetpool(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilmicpool(:,:)\n  REAL(fp), ALLOCATABLE :: hslowpool(:,:)\n  REAL(fp), ALLOCATABLE :: harmoredpool(:,:)\n  \n  !herb pools Hg\n  REAL(fp), ALLOCATABLE :: hleafpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hfrootpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfstrpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfmetpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfmicpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilstrpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilmetpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilmicpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: hslowpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: harmoredpool_Hg(:,:)\n  REAL(fp), ALLOCATABLE :: total_herb_hg(:,:)\n  \n  !max hg woody pool\n  REAL(fp), ALLOCATABLE :: max_hg_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_soilmet(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_slow(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_armored(:,:)\n  \n  !max hg herb pools\n  REAL(fp), ALLOCATABLE :: max_hg_hleaf(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hsurfstr(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hsurfmet(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hsurfmic(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hsoilstr(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hsoilmet(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hsoilmic(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_hslow(:,:)\n  REAL(fp), ALLOCATABLE :: max_hg_harmored(:,:)\n  \n  !woody pools \n  REAL(fp), ALLOCATABLE :: abovewoodpools(:,:)\n  REAL(fp), ALLOCATABLE :: belowwoodpools(:,:)\n  REAL(fp), ALLOCATABLE :: leafpools(:,:)\n  REAL(fp), ALLOCATABLE :: frootpools(:,:)\n  REAL(fp), ALLOCATABLE :: cwdpools(:,:)\n  REAL(fp), ALLOCATABLE :: surfstrpools(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetpools(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicpools(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrpools(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetpools(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicpools(:,:)\n  REAL(fp), ALLOCATABLE :: slowpools(:,:)\n  REAL(fp), ALLOCATABLE :: armoredpools(:,:)\n  \n  !herb poolss\n  REAL(fp), ALLOCATABLE :: hleafpools(:,:)\n  REAL(fp), ALLOCATABLE :: hfrootpools(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfstrpools(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfmetpools(:,:)\n  REAL(fp), ALLOCATABLE :: hsurfmicpools(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilstrpools(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilmetpools(:,:)\n  REAL(fp), ALLOCATABLE :: hsoilmicpools(:,:)\n  REAL(fp), ALLOCATABLE :: hslowpools(:,:)\n  REAL(fp), ALLOCATABLE :: harmoredpools(:,:)\n  \n  REAL(fp), ALLOCATABLE :: fuelshortage(:,:)\n  \n  REAL(fp), ALLOCATABLE :: LtN(:,:)\n  REAL(fp), ALLOCATABLE :: annK_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: annK_leaf_hg(:,:)\n  REAL(fp), ALLOCATABLE :: annK_wood(:,:)\n  REAL(fp), ALLOCATABLE :: annK_froot(:,:)\n  REAL(fp), ALLOCATABLE :: K_wood(:,:)\n  REAL(fp), ALLOCATABLE :: K_froot(:,:)\n  REAL(fp), ALLOCATABLE :: K_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: K_hleaf(:,:)\n  REAL(fp), ALLOCATABLE :: K_hfroot(:,:)\n  REAL(fp), ALLOCATABLE :: K_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: K_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: K_soilmet(:,:) \n  REAL(fp), ALLOCATABLE :: K_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: K_cwd(:,:)\n  REAL(fp), ALLOCATABLE :: K_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: K_soilmic(:,:) \n  REAL(fp), ALLOCATABLE :: K_slow(:,:)\n  REAL(fp), ALLOCATABLE :: K_armored(:,:)\n  REAL(fp), ALLOCATABLE :: slitscalar(:,:) \n  REAL(fp), ALLOCATABLE :: shlitscalar(:,:) \n  REAL(fp), ALLOCATABLE :: srootlitscalar(:,:)\n  REAL(fp), ALLOCATABLE :: sabiotic(:,:)\n  REAL(fp), ALLOCATABLE :: sabiotsmc(:,:)\n  REAL(fp), ALLOCATABLE :: sabiotlign(:,:)\n  REAL(fp), ALLOCATABLE :: metabfract(:,:)\n  REAL(fp), ALLOCATABLE :: structuralLignin(:,:)\n  REAL(fp), ALLOCATABLE :: lignineffect(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicDecayFactor(:,:)\n  REAL(fp), ALLOCATABLE :: slowDecayFactor(:,:)\n  REAL(fp), ALLOCATABLE :: armoredDecayFactor(:,:)\n  REAL(fp), ALLOCATABLE :: fid(:,:)\n  REAL(fp), ALLOCATABLE :: decayClayFactor(:,:)\n  REAL(fp), ALLOCATABLE :: eff_soilmic2slow(:,:)\n  \n  ! rate constants for pools\n  \n  REAL(fp) :: annK_hleaf=2.000e+0_fp   !turnover time for grass leaves \n  REAL(fp) :: annK_hfroot=2.000e+0_fp  !turnover time for grass roots\n  REAL(fp) :: annK_surfmet=14.800e+0_fp\n  REAL(fp) :: annK_surfstr=3.900e+0_fp\n  REAL(fp) :: annK_soilmet=18.500e+0_fp\n  REAL(fp) :: annK_soilstr=4.800e+0_fp\n  REAL(fp) :: annK_cwd=0.2500e+0_fp\n  REAL(fp) :: annK_surfmic=6.000e+0_fp\n  REAL(fp) :: annK_soilmic=7.300e+0_fp\n  REAL(fp) :: annK_slow=0.200e+0_fp\n  REAL(fp) :: annK_armored=0.0045e+0_fp\n  REAL(fp) :: annK_hleaf_hg=2.000e+0_fp   !turnover time for grass leaves \n  REAL(fp) :: annK_surfmet_hg=14.800e+0_fp\n  REAL(fp) :: annK_surfstr_hg=3.900e+0_fp\n  REAL(fp) :: annK_soilmet_hg=18.500e+0_fp\n  REAL(fp) :: annK_soilstr_hg=4.800e+0_fp\n  REAL(fp) :: annK_surfmic_hg=6.000e+0_fp\n  REAL(fp) :: annK_soilmic_hg=7.300e+0_fp\n  REAL(fp) :: annK_slow_hg=0.200e+0_fp\n  REAL(fp) :: annK_armored_hg=0.0045e+0_fp\n  \n  \n  REAL(fp) :: eff_surfstr2slow=0.700e+0_fp\n  REAL(fp) :: eff_surfstr2surfmic=0.400e+0_fp\n  REAL(fp) :: eff_soilstr2slow=0.700e+0_fp\n  REAL(fp) :: eff_soilstr2soilmic=0.4500e+0_fp\n  REAL(fp) :: eff_cwd2slow=0.700e+0_fp\n  REAL(fp) :: eff_surfmic2slow=0.400e+0_fp\n  REAL(fp) :: eff_surfmet2surfmic=0.400e+0_fp\n  REAL(fp) :: eff_soilmet2soilmic=0.4500e+0_fp\n  REAL(fp) :: eff_slow2soilmic=0.4500e+0_fp\n  REAL(fp) :: eff_armored2soilmic=0.4500e+0_fp\n  REAL(fp) :: woodligninfract=0.400e+0_fp !estimate that lignin content of\n  !wood is 40%\n  \n  REAL(fp), ALLOCATABLE :: latitude(:,:)\n  REAL(fp), ALLOCATABLE :: latitude1(:,:)\n  \n  REAL(fp), ALLOCATABLE :: fuelwooddemand(:,:)\n  \n  !in doNPP\n  REAL(fp), ALLOCATABLE :: T1(:,:)\n  REAL(fp), ALLOCATABLE :: T2low(:,:)\n  REAL(fp), ALLOCATABLE :: T2high(:,:)\n  REAL(fp), ALLOCATABLE :: NPPtemp(:,:)\n  REAL(fp), ALLOCATABLE :: IPAR(:,:)\n  REAL(fp), ALLOCATABLE :: NPP(:,:)\n  REAL(fp), ALLOCATABLE :: epsilona(:,:)\n  REAL(fp), ALLOCATABLE :: bgtemp(:,:)\n  REAL(fp), ALLOCATABLE :: abiotic(:,:)\n  \n  !in doHerbivory\n  REAL(fp), ALLOCATABLE :: grass_herbivory(:,:)\n  REAL(fp), ALLOCATABLE :: trees_herbivory(:,:)\n  REAL(fp), ALLOCATABLE :: herb_seasonality(:,:)\n  \n  !in doLeafRootShedding\n  REAL(fp), ALLOCATABLE :: MINLAI(:,:)\n  REAL(fp), ALLOCATABLE :: SUMLAI(:,:)\n  REAL(fp), ALLOCATABLE :: AVELAI(:,:)\n  REAL(fp), ALLOCATABLE :: LTVARSUM(:,:)\n  REAL(fp), ALLOCATABLE :: SUMLAInew(:,:)\n  REAL(fp), ALLOCATABLE :: litterscalar(:,:)\n  REAL(fp), ALLOCATABLE :: hlitterscalar(:,:)\n  REAL(fp), ALLOCATABLE :: rootlitscalar(:,:)\n  \n  !in getFireParams\n  REAL(fp)              :: CC(4,2)\n  REAL(fp), ALLOCATABLE :: ccWood(:,:)\n  REAL(fp), ALLOCATABLE :: ccLeaf(:,:)\n  REAL(fp), ALLOCATABLE :: PET_current(:,:)\n  REAL(fp), ALLOCATABLE :: CCratio_current(:,:)\n  REAL(fp), ALLOCATABLE :: ccFineLitter(:,:)\n  REAL(fp), ALLOCATABLE :: ccCWD(:,:)\n  REAL(fp), ALLOCATABLE :: CCratio_previous(:,:)\n  REAL(fp), ALLOCATABLE :: mortality_tree(:,:)\n  REAL(fp), ALLOCATABLE :: mortality_hfroot(:,:)\n  \n  !in doTreeCarbon and doHerbCarbon\n  REAL(fp), ALLOCATABLE :: leafinput(:,:)\n  REAL(fp), ALLOCATABLE :: woodinput(:,:)\n  REAL(fp), ALLOCATABLE :: frootinput(:,:)\n  REAL(fp), ALLOCATABLE :: herbivory(:,:) \n  REAL(fp), ALLOCATABLE :: carbonout_leaf(:,:) \n  REAL(fp), ALLOCATABLE :: carbonout_abovewood(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_belowwood(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_froot(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_cwd(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_soilmet(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_slow(:,:)\n  REAL(fp), ALLOCATABLE :: carbonout_armored(:,:)\n  \n  REAL(fp), ALLOCATABLE :: hgout_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_slow(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_armored(:,:)\n  REAL(fp), ALLOCATABLE :: hgout_soilmet(:,:)\n  \n  REAL(fp), ALLOCATABLE :: Hg_pool_fluxes1(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_pool_fluxes2(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_pool_fluxes3(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_pool_fluxes4(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_pool_fluxes5(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_pool_fluxes6(:,:)\n  \n  REAL(fp), ALLOCATABLE :: Hg_hpool_fluxes1(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_hpool_fluxes2(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_hpool_fluxes3(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_hpool_fluxes4(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_hpool_fluxes5(:,:)\n  REAL(fp), ALLOCATABLE :: Hg_hpool_fluxes6(:,:)\n  \n  REAL(fp), ALLOCATABLE :: resppool_surfstr_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_surfmet_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_surfmic_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_soilstr_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_soilmic_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_soilmet_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_slow_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_armored_hg(:,:)\n  \n  REAL(fp), ALLOCATABLE :: resp_surfstr_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_surfmet_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_surfmic_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_soilstr_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_soilmic_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_soilmet_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_slow_hg(:,:)\n  REAL(fp), ALLOCATABLE :: resp_armored_hg(:,:)\n  \n  REAL(fp), ALLOCATABLE :: combusted_leaf_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_surfstr_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_surfmet_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_surfmic_hg(:,:)\n  REAL(fp), ALLOCATABLE :: nonCombusted_leaf_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_soilstr_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_soilmet_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_soilmic_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_slow_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_armored_hg(:,:)\n  REAL(fp), ALLOCATABLE :: fuelwoodout_hg(:,:)\n  REAL(fp), ALLOCATABLE :: wresp_hg(:,:)\n  REAL(fp), ALLOCATABLE :: wcomb_hg(:,:)\n  REAL(fp), ALLOCATABLE :: wherb_hg(:,:)\n  REAL(fp), ALLOCATABLE :: wbiof_hg(:,:)\n  REAL(fp), ALLOCATABLE :: hresp_hg(:,:)\n  REAL(fp), ALLOCATABLE :: hcomb_hg(:,:)\n  REAL(fp), ALLOCATABLE :: hherb_hg(:,:)\n  REAL(fp), ALLOCATABLE :: veg_burn(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_soilmet(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_slow(:,:)\n  REAL(fp), ALLOCATABLE :: f_carbonout_armored(:,:) \n  REAL(fp), ALLOCATABLE :: resppool_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_soilmet(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_slow(:,:)\n  REAL(fp), ALLOCATABLE :: resppool_armored(:,:)\n  REAL(fp), ALLOCATABLE :: resp_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: resp_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: resp_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: resp_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: resp_soilmet(:,:)\n  REAL(fp), ALLOCATABLE :: resp_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: resp_slow(:,:)\n  REAL(fp), ALLOCATABLE :: resp_armored(:,:)\n  REAL(fp), ALLOCATABLE :: temp(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_abovewood(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_cwd(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_surfstr(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_surfmet(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_surfmic(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_soilstr(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_soilmet(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_soilmic(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_slow(:,:)\n  REAL(fp), ALLOCATABLE :: combusted_armored(:,:)\n  REAL(fp), ALLOCATABLE :: nonCombusted_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: nonCombusted_abovewood(:,:)\n  REAL(fp), ALLOCATABLE :: nonCombusted_belowwood(:,:)\n  REAL(fp), ALLOCATABLE :: nonCombusted_froot(:,:)\n  REAL(fp), ALLOCATABLE :: fuelwoodout(:,:)\n  REAL(fp), ALLOCATABLE :: wresp(:,:)\n  REAL(fp), ALLOCATABLE :: wcomb(:,:)\n  REAL(fp), ALLOCATABLE :: wherb(:,:)\n  REAL(fp), ALLOCATABLE :: wbiof(:,:)\n  REAL(fp), ALLOCATABLE :: hresp(:,:)\n  REAL(fp), ALLOCATABLE :: hcomb(:,:)\n  REAL(fp), ALLOCATABLE :: hherb(:,:)\n  \n  !in getAgeClassBF\n  REAL(fp), ALLOCATABLE :: ageClassIndex(:,:)\n  REAL(fp), ALLOCATABLE :: BFallClasses(:,:)\n  REAL(fp), ALLOCATABLE :: BFleftCurrentMonth(:,:)\n  REAL(fp), ALLOCATABLE :: BFtemp(:,:)\n  REAL(fp), ALLOCATABLE :: ageCurrentClass(:,:)\n  \n  !in organizeAgeClasses\n  REAL(fp), ALLOCATABLE :: ageClassSorted(:,:)\n  REAL(fp), ALLOCATABLE :: ageClassSortedInd(:,:)\n  REAL(fp), ALLOCATABLE :: tempAge(:,:)\n  \n  !in processData\n  REAL(fp), ALLOCATABLE :: NPPmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: respmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: combmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: herbmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: biofmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: respEQ(:,:)\n  REAL(fp), ALLOCATABLE :: combEQ(:,:)\n  REAL(fp), ALLOCATABLE :: herbEQ(:,:)\n  REAL(fp), ALLOCATABLE :: biofEQ(:,:)\n  REAL(fp), ALLOCATABLE :: NPPmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: respmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: herbmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: biofmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: respEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: combEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: herbEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: biofEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: evapEQ_hg(:,:)  \n  REAL(fp), ALLOCATABLE :: reemitEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: photoEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: leafpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: slowpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: armoredpoolEQ_hg(:,:) \n  REAL(fp), ALLOCATABLE :: surfstrpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicpoolEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: HgAqEQ_hg(:,:)\n  REAL(fp), ALLOCATABLE :: reemmonthly_hg(:,:) \n  REAL(fp), ALLOCATABLE :: photmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: slowmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: armoredmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: surfstrmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: leafmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: slowmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: armoredmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfstrmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: leafmonthly_hg(:,:)\n  REAL(fp), ALLOCATABLE :: HgAqmonthly(:,:)\n  REAL(fp), ALLOCATABLE :: leafpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: slowpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: armoredpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: surfstrpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: soilstrpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: surfmetpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: soilmetpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: surfmicpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: soilmicpoolEQ(:,:)\n  REAL(fp), ALLOCATABLE :: biomeAnnual_Hg(:,:)\n  !in doHgDeposition\n  REAL(fp), ALLOCATABLE :: Hg0dry(:,:)\n  REAL(fp), ALLOCATABLE :: HgIIdry(:,:) \n  REAL(fp), ALLOCATABLE :: HgIIwet(:,:)\n  REAL(fp), ALLOCATABLE :: Hg0dry_mo(:,:,:)\n  REAL(fp), ALLOCATABLE :: HgIIdry_mo(:,:,:) \n  REAL(fp), ALLOCATABLE :: HgIIwet_mo(:,:,:)\n  REAL(fp), ALLOCATABLE :: HgP(:,:)\n  REAL(fp), ALLOCATABLE :: HgAq(:,:)\n  REAL(fp), ALLOCATABLE :: hHgAq(:,:)\n  REAL(fp), ALLOCATABLE :: Hg0_surf_leaf(:,:) \n  REAL(fp), ALLOCATABLE :: Hg0_surf_soil(:,:)\n  REAL(fp), ALLOCATABLE :: HgII_surf_leaf(:,:)\n  REAL(fp), ALLOCATABLE :: HgII_surf_soil(:,:)\n  REAL(fp), ALLOCATABLE :: maxallLAI(:)\n  REAL(fp), ALLOCATABLE :: fstom(:,:)\n  REAL(fp), ALLOCATABLE :: fleaf(:,:)\n  REAL(fp), ALLOCATABLE :: fsoil(:,:)\n  REAL(fp), ALLOCATABLE :: fsum(:,:)\n  REAL(fp), ALLOCATABLE :: freemitted(:,:)\n  REAL(fp), ALLOCATABLE :: reemitted(:,:)\n  REAL(fp), ALLOCATABLE :: temp_hg(:,:)\n  REAL(fp), ALLOCATABLE :: photoreduced(:,:)\n  REAL(fp), ALLOCATABLE :: Hg0out(:,:) \n!\n! !REVISION HISTORY:\n!\n! 9 July 2010 - C. Carouge  - Adapted for coupling with GEOS-Chem and restart\n!                             offline simulations.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: readCASAparam\n!\n! !DESCRIPTION: Subroutine readCASAparam reads some input for CASA\n!\n! !INTERFACE:\n!\n  SUBROUTINE readCASAparam\n!\n! !USES:\n!\n    USE defineConstants\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n    CHARACTER(len=f_len+8) :: filename\n    integer                 :: ios\n\n    !Set array sizes\n    Ae=5.1*(10e+0_fp**14.0e+0_fp)\n    \n    filename(1:f_len)=filepath\n    filename(f_len+1:f_len+8)='coef.csv'\n    open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n    IF (IOS .ne. 0) THEN\n       print '(a)', 'there was an error reading the coef &\n            &file...aborting run'\n       stop\n    ELSE\n       read(2,*) coef\n       close(2)\n    END IF\n    \n    filename(f_len+1:f_len+8)='year.csv'\n    open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n    IF (IOS .ne. 0) THEN\n       print '(a)', 'error reading the years' \n       stop\n    ELSE\n       read(2,*) years\n       close(2)\n    ENDIF\n    \n  END SUBROUTINE READCASAPARAM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: makeCASAarrays\n!\n! !DESCRIPTION: Subroutine makeCASAarrays allocate all allocatable arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE makeCASAarrays\n!\n! !USES:\n!    \n    USE defineConstants\n!\n! !REVISION HISTORY:\n!    \n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ALLOCATE(clay(n_veg, 1))\n    ALLOCATE(silt(n_veg, 1))\n    ALLOCATE(sand(n_veg, 1))\n    ALLOCATE(litcn(n_veg, 1))\n    ALLOCATE(lignin(n_veg, 1))\n    ALLOCATE(lrage(n_veg, 1))\n    ALLOCATE(woodage(n_veg, 1))\n    \n    ALLOCATE(SMparams(n_veg, 5))\n    ALLOCATE(last_soilm(n_veg,1))\n    \n    ALLOCATE(PET(n_veg, 1))\n    ALLOCATE(AHI(n_veg, 1))\n    \n    ALLOCATE(last_pack(n_veg, 1))\n    ALLOCATE(spack(n_veg, 1))\n    ALLOCATE(bgmoist(n_veg,12))\n    ALLOCATE(NPPmoist(n_veg,12))\n    ALLOCATE(EET(n_veg,1))\n    ALLOCATE(NPPmoist_temp(n_veg,1))\n    ALLOCATE(bgmoist_temp(n_veg, 1))\n    ALLOCATE(bgmoistpret(n_veg,1))\n    ALLOCATE(NPPmoistpret(n_veg,1))\n    ALLOCATE(soilm(n_veg, 1))\n    ALLOCATE(rdr(n_veg, 1))\n    ALLOCATE(current_ppt(n_veg, 1))\n    ALLOCATE(eeta(n_veg, 1))\n    ALLOCATE(eetb(n_veg, 1))\n    ALLOCATE(this_soilm(n_veg, 1))\n    ALLOCATE(bgratio(n_veg, 1))\n    \n    ALLOCATE(srmax(n_veg, 1))\n    ALLOCATE(LAImax(n_veg, 1))\n    ALLOCATE(LAI_temp(n_veg, 1))\n    ALLOCATE(FPAR(n_veg, 12))\n    ALLOCATE(LAI(n_veg, 12))\n    ALLOCATE(sr(n_veg, 1))\n    \n    ALLOCATE(topt(n_veg, 1))\n    ALLOCATE(maxlai(n_veg, 1))\n    ALLOCATE(lais(n_veg, 13))\n    \n    ALLOCATE(LTCON(n_veg, 1))\n    ALLOCATE(LTVAR(n_veg, 1))\n    \n    ALLOCATE(abovewoodpool(n_veg, 1))\n    ALLOCATE(belowwoodpool(n_veg, 1))\n    ALLOCATE(leafpool(n_veg, 1))\n    ALLOCATE(frootpool(n_veg, 1))\n    ALLOCATE(cwdpool(n_veg, 1))\n    ALLOCATE(surfstrpool(n_veg, 1))\n    ALLOCATE(surfmetpool(n_veg, 1))\n    ALLOCATE(surfmicpool(n_veg, 1))\n    ALLOCATE(soilstrpool(n_veg, 1))\n    ALLOCATE(soilmetpool(n_veg, 1))\n    ALLOCATE(soilmicpool(n_veg, 1))\n    ALLOCATE(slowpool(n_veg, 1))\n    ALLOCATE(armoredpool(n_veg, 1))\n    \n    !woody pools Hg \n    ALLOCATE(abovewoodpool_Hg(n_veg, 1))\n    ALLOCATE(belowwoodpool_Hg(n_veg, 1))\n    ALLOCATE(leafpool_Hg(n_veg, 1))\n    ALLOCATE(frootpool_Hg(n_veg, 1))\n    ALLOCATE(cwdpool_Hg(n_veg, 1))\n    ALLOCATE(surfstrpool_Hg(n_veg, 1))\n    ALLOCATE(surfmetpool_Hg(n_veg, 1))\n    ALLOCATE(surfmicpool_Hg(n_veg, 1))\n    ALLOCATE(soilstrpool_Hg(n_veg, 1))\n    ALLOCATE(soilmetpool_Hg(n_veg, 1))\n    ALLOCATE(soilmicpool_Hg(n_veg, 1))\n    ALLOCATE(slowpool_Hg(n_veg, 1))\n    ALLOCATE(armoredpool_Hg(n_veg, 1))\n    ALLOCATE(total_tree_hg(n_veg, 1))\n    \n    ALLOCATE(hleafpool(n_veg, 1))\n    ALLOCATE(hfrootpool(n_veg, 1))\n    ALLOCATE(hsurfstrpool(n_veg, 1))\n    ALLOCATE(hsurfmetpool(n_veg, 1))\n    ALLOCATE(hsurfmicpool(n_veg, 1))\n    ALLOCATE(hsoilstrpool(n_veg, 1))\n    ALLOCATE(hsoilmetpool(n_veg, 1))\n    ALLOCATE(hsoilmicpool(n_veg, 1))\n    ALLOCATE(hslowpool(n_veg, 1))\n    ALLOCATE(harmoredpool(n_veg, 1))\n    \n    !herb pools Hg\n    ALLOCATE(hleafpool_Hg(n_veg, 1))\n    ALLOCATE(hfrootpool_Hg(n_veg, 1))\n    ALLOCATE(hsurfstrpool_Hg(n_veg, 1))\n    ALLOCATE(hsurfmetpool_Hg(n_veg, 1))\n    ALLOCATE(hsurfmicpool_Hg(n_veg, 1))\n    ALLOCATE(hsoilstrpool_Hg(n_veg, 1))\n    ALLOCATE(hsoilmetpool_Hg(n_veg, 1))\n    ALLOCATE(hsoilmicpool_Hg(n_veg, 1))\n    ALLOCATE(hslowpool_Hg(n_veg, 1))\n    ALLOCATE(harmoredpool_Hg(n_veg, 1)) \n    ALLOCATE(total_herb_hg(n_veg, 1))\n    \n    !max hg woody pool\n    ALLOCATE(max_hg_leaf(n_veg, 1))\n    ALLOCATE(max_hg_surfstr(n_veg, 1))\n    ALLOCATE(max_hg_surfmet(n_veg, 1))\n    ALLOCATE(max_hg_surfmic(n_veg, 1))\n    ALLOCATE(max_hg_soilstr(n_veg, 1))\n    ALLOCATE(max_hg_soilmet(n_veg, 1))\n    ALLOCATE(max_hg_soilmic(n_veg, 1))\n    ALLOCATE(max_hg_slow(n_veg, 1))\n    ALLOCATE(max_hg_armored(n_veg, 1))\n    \n    !max hg herb pools\n    ALLOCATE(max_hg_hleaf(n_veg, 1))\n    ALLOCATE(max_hg_hsurfstr(n_veg, 1))\n    ALLOCATE(max_hg_hsurfmet(n_veg, 1))\n    ALLOCATE(max_hg_hsurfmic(n_veg, 1))\n    ALLOCATE(max_hg_hsoilstr(n_veg, 1))\n    ALLOCATE(max_hg_hsoilmet(n_veg, 1))\n    ALLOCATE(max_hg_hsoilmic(n_veg, 1))\n    ALLOCATE(max_hg_hslow(n_veg, 1))\n    ALLOCATE(max_hg_harmored(n_veg, 1))\n    \n    ALLOCATE(abovewoodpools(n_veg, n_age_classes))\n    ALLOCATE(belowwoodpools(n_veg, n_age_classes))\n    ALLOCATE(leafpools(n_veg, n_age_classes))\n    ALLOCATE(frootpools(n_veg, n_age_classes))\n    ALLOCATE(cwdpools(n_veg, n_age_classes))\n    ALLOCATE(surfstrpools(n_veg, n_age_classes))\n    ALLOCATE(surfmetpools(n_veg, n_age_classes))\n    ALLOCATE(surfmicpools(n_veg, n_age_classes))\n    ALLOCATE(soilstrpools(n_veg, n_age_classes))\n    ALLOCATE(soilmetpools(n_veg, n_age_classes))\n    ALLOCATE(soilmicpools(n_veg, n_age_classes))\n    ALLOCATE(slowpools(n_veg, n_age_classes))\n    ALLOCATE(armoredpools(n_veg, n_age_classes))\n    \n    ALLOCATE(hleafpools(n_veg, n_age_classes))\n    ALLOCATE(hfrootpools(n_veg, n_age_classes))\n    ALLOCATE(hsurfstrpools(n_veg, n_age_classes))\n    ALLOCATE(hsurfmetpools(n_veg, n_age_classes))\n    ALLOCATE(hsurfmicpools(n_veg, n_age_classes))\n    ALLOCATE(hsoilstrpools(n_veg, n_age_classes))\n    ALLOCATE(hsoilmetpools(n_veg, n_age_classes))\n    ALLOCATE(hsoilmicpools(n_veg, n_age_classes))\n    ALLOCATE(hslowpools(n_veg, n_age_classes))\n    ALLOCATE(harmoredpools(n_veg, n_age_classes))\n    \n    ALLOCATE(fuelshortage(n_veg, n_age_classes))     \n    \n    ALLOCATE(LtN(n_veg, 1))\n    ALLOCATE(annK_leaf(n_veg, 1))\n    ALLOCATE(annK_leaf_hg(n_veg, 1))\n    ALLOCATE(annK_wood(n_veg, 1))\n    ALLOCATE(annK_froot(n_veg, 1))\n    ALLOCATE(K_wood(n_veg, 1))\n    ALLOCATE(K_froot(n_veg, 1))\n    ALLOCATE(K_leaf(n_veg,1))\n    ALLOCATE(K_hleaf(n_veg, 1))\n    ALLOCATE(K_hfroot(n_veg, 1))\n    ALLOCATE(K_surfmet(n_veg, 1))\n    ALLOCATE(K_surfstr(n_veg, 1))\n    ALLOCATE(K_soilmet(n_veg, 1)) \n    ALLOCATE(K_soilstr(n_veg, 1))\n    ALLOCATE(K_cwd(n_veg, 1))\n    ALLOCATE(K_surfmic(n_veg, 1))\n    ALLOCATE(K_soilmic(n_veg, 1)) \n    ALLOCATE(K_slow(n_veg, 1))\n    ALLOCATE(K_armored(n_veg, 1))\n    ALLOCATE(slitscalar(n_veg, 1)) \n    ALLOCATE(shlitscalar(n_veg, 1)) \n    ALLOCATE(srootlitscalar(n_veg, 1))\n    ALLOCATE(sabiotic(n_veg, 1))\n    ALLOCATE(sabiotsmc(n_veg, 1))\n    ALLOCATE(sabiotlign(n_veg, 1))\n    ALLOCATE(metabfract(n_veg, 1))\n    ALLOCATE(structuralLignin(n_veg, 1))\n    ALLOCATE(lignineffect(n_veg, 1))\n    ALLOCATE(soilmicDecayFactor(n_veg, 1))\n    ALLOCATE(slowDecayFactor(n_veg, 1))\n    ALLOCATE(armoredDecayFactor(n_veg, 1))\n    ALLOCATE(fid(n_veg, 1))\n    ALLOCATE(decayClayFactor(n_veg, 1))\n    ALLOCATE(eff_soilmic2slow(n_veg, 1))\n    ALLOCATE(latitude(columns, rows))\n    ALLOCATE(latitude1(n_veg, 1))\n    ALLOCATE(fuelwooddemand(n_veg, 1))\n    \n    !in doNPP\n    ALLOCATE(T1(n_veg, 1))\n    ALLOCATE(T2low(n_veg,1))\n    ALLOCATE(T2high(n_veg, 1))\n    ALLOCATE(NPPtemp(n_veg, 1))\n    ALLOCATE(IPAR(n_veg, 1))\n    ALLOCATE(NPP(n_veg, 12))\n    ALLOCATE(epsilona(n_veg, 1))\n    ALLOCATE(bgtemp(n_veg, 12))\n    ALLOCATE(abiotic(n_veg, 12))\n    \n    !in doHerbivory\n    ALLOCATE(grass_herbivory(n_veg, 1))\n    ALLOCATE(trees_herbivory(n_veg, 1))\n    ALLOCATE(herb_seasonality(n_veg, 12))\n    \n    !in doLeafRootShedding\n    ALLOCATE(MINLAI(n_veg, 1))\n    ALLOCATE(SUMLAI(n_veg, 1))\n    ALLOCATE(AVELAI(n_veg, 1))\n    ALLOCATE(LTVARSUM(n_veg, 1))\n    ALLOCATE(SUMLAInew(n_veg, 12))\n    ALLOCATE(litterscalar(n_veg, 12))\n    ALLOCATE(hlitterscalar(n_veg, 12))\n    ALLOCATE(rootlitscalar(n_veg, 12))\n    \n    !in getFireParams\n    ALLOCATE(ccWood(n_veg, 12))\n    ALLOCATE(ccLeaf(n_veg, 12))\n    ALLOCATE(PET_current(n_veg, 1))\n    ALLOCATE(CCratio_current(n_veg, 1))\n    ALLOCATE(ccFineLitter(n_veg, 12))\n    ALLOCATE(ccCWD(n_veg, 12))\n    ALLOCATE(CCratio_previous(n_veg, 1))\n    ALLOCATE(mortality_tree(n_veg, 1))\n    ALLOCATE(mortality_hfroot(n_veg, 1))\n    \n    CC(1,:)=(/0.200e+0_fp, 0.300e+0_fp/)\n    CC(2,:)=(/0.800e+0_fp, 1.000e+0_fp/)\n    CC(3,:)=(/0.900e+0_fp, 1.000e+0_fp/)\n    CC(4,:)=(/0.200e+0_fp, 0.400e+0_fp/)\n    \n    !in doTreeCarbon\n    ALLOCATE(leafinput(n_veg, 1))\n    ALLOCATE(woodinput(n_veg, 1))\n    ALLOCATE(frootinput(n_veg, 1))\n    ALLOCATE(herbivory(n_veg, 1)) \n    ALLOCATE(carbonout_leaf(n_veg, 1)) \n    ALLOCATE(carbonout_abovewood(n_veg, 1))\n    ALLOCATE(carbonout_belowwood(n_veg, 1))\n    ALLOCATE(carbonout_froot(n_veg, 1))\n    ALLOCATE(carbonout_cwd(n_veg, 1))\n    ALLOCATE(carbonout_surfmet(n_veg, 1))\n    ALLOCATE(carbonout_surfstr(n_veg, 1))\n    ALLOCATE(carbonout_soilmet(n_veg, 1))\n    ALLOCATE(carbonout_soilstr(n_veg, 1))\n    ALLOCATE(carbonout_surfmic(n_veg, 1))\n    ALLOCATE(carbonout_soilmic(n_veg, 1))\n    ALLOCATE(carbonout_slow(n_veg, 1))\n    ALLOCATE(carbonout_armored(n_veg, 1))\n    ALLOCATE(hgout_surfmet(n_veg, 1))\n    ALLOCATE(hgout_surfstr(n_veg, 1))\n    ALLOCATE(hgout_leaf(n_veg, 1))\n    ALLOCATE(hgout_soilstr(n_veg, 1))\n    ALLOCATE(hgout_surfmic(n_veg, 1))\n    ALLOCATE(hgout_soilmic(n_veg, 1))\n    ALLOCATE(hgout_slow(n_veg, 1))\n    ALLOCATE(hgout_armored(n_veg, 1))\n    ALLOCATE(hgout_soilmet(n_veg, 1))\n    \n    ALLOCATE(Hg_pool_fluxes1(n_veg, 12))\n    ALLOCATE(Hg_pool_fluxes2(n_veg, 12))\n    ALLOCATE(Hg_pool_fluxes3(n_veg, 12))\n    ALLOCATE(Hg_pool_fluxes4(n_veg, 12))\n    ALLOCATE(Hg_pool_fluxes5(n_veg, 12))\n    ALLOCATE(Hg_pool_fluxes6(n_veg, 12))\n    \n    ALLOCATE(Hg_hpool_fluxes1(n_veg, 12))\n    ALLOCATE(Hg_hpool_fluxes2(n_veg, 12))\n    ALLOCATE(Hg_hpool_fluxes3(n_veg, 12))\n    ALLOCATE(Hg_hpool_fluxes4(n_veg, 12))\n    ALLOCATE(Hg_hpool_fluxes5(n_veg, 12))\n    ALLOCATE(Hg_hpool_fluxes6(n_veg, 12))\n    \n    ALLOCATE(f_carbonout_surfmet(n_veg, 1))\n    ALLOCATE(f_carbonout_surfstr(n_veg, 1))\n    ALLOCATE(f_carbonout_leaf(n_veg, 1))\n    ALLOCATE(f_carbonout_soilstr(n_veg, 1))\n    ALLOCATE(f_carbonout_surfmic(n_veg, 1))\n    ALLOCATE(f_carbonout_soilmic(n_veg, 1))\n    ALLOCATE(f_carbonout_slow(n_veg, 1))\n    ALLOCATE(f_carbonout_armored(n_veg, 1))\n    ALLOCATE(f_carbonout_soilmet(n_veg, 1))\n    \n    ALLOCATE(resppool_surfstr_hg(n_veg, 1))\n    ALLOCATE(resppool_surfmet_hg(n_veg, 1))\n    ALLOCATE(resppool_surfmic_hg(n_veg, 1))\n    ALLOCATE(resppool_soilstr_hg(n_veg, 1))\n    ALLOCATE(resppool_soilmic_hg(n_veg, 1))\n    ALLOCATE(resppool_soilmet_hg(n_veg, 1))\n    ALLOCATE(resppool_slow_hg(n_veg, 1))\n    ALLOCATE(resppool_armored_hg(n_veg, 1))\n    ALLOCATE(resp_surfstr_hg(n_veg, 12))\n    ALLOCATE(resp_surfmet_hg(n_veg, 12))\n    ALLOCATE(resp_surfmic_hg(n_veg, 12))\n    ALLOCATE(resp_soilstr_hg(n_veg, 12))\n    ALLOCATE(resp_soilmic_hg(n_veg, 12))\n    ALLOCATE(resp_soilmet_hg(n_veg, 12))\n    ALLOCATE(resp_slow_hg(n_veg, 12))\n    ALLOCATE(resp_armored_hg(n_veg, 12))\n    \n    ALLOCATE(combusted_leaf_hg(n_veg, 1))\n    ALLOCATE(combusted_surfstr_hg(n_veg, 1))\n    ALLOCATE(combusted_surfmet_hg(n_veg, 1))\n    ALLOCATE(combusted_surfmic_hg(n_veg, 1))\n    ALLOCATE(combusted_soilstr_hg(n_veg, 1))\n    ALLOCATE(combusted_soilmet_hg(n_veg, 1))\n    ALLOCATE(combusted_soilmic_hg(n_veg, 1))\n    ALLOCATE(combusted_slow_hg(n_veg, 1))\n    ALLOCATE(combusted_armored_hg(n_veg, 1))\n    ALLOCATE(nonCombusted_leaf_hg(n_veg, 1))\n    ALLOCATE(fuelwoodout_hg(n_veg, 1))\n    ALLOCATE(wresp_hg(n_veg, 1))\n    ALLOCATE(wcomb_hg(n_veg, 1))\n    ALLOCATE(wherb_hg(n_veg, 1))\n    ALLOCATE(wbiof_hg(n_veg, 1))\n    ALLOCATE(hresp_hg(n_veg, 1))\n    ALLOCATE(hcomb_hg(n_veg, 1))\n    ALLOCATE(hherb_hg(n_veg, 1))\n    ALLOCATE(resppool_surfstr(n_veg, 1))\n    ALLOCATE(resppool_surfmet(n_veg, 1))\n    ALLOCATE(resppool_surfmic(n_veg, 1))\n    ALLOCATE(resppool_soilstr(n_veg, 1))\n    ALLOCATE(resppool_soilmet(n_veg, 1))\n    ALLOCATE(resppool_soilmic(n_veg, 1))\n    ALLOCATE(resppool_slow(n_veg, 1))\n    ALLOCATE(resppool_armored(n_veg, 1))\n    ALLOCATE(resp_surfstr(n_veg, 12))\n    ALLOCATE(resp_surfmet(n_veg, 12))\n    ALLOCATE(resp_surfmic(n_veg, 12))\n    ALLOCATE(resp_soilstr(n_veg, 12))\n    ALLOCATE(resp_soilmet(n_veg, 12))\n    ALLOCATE(resp_soilmic(n_veg, 12))\n    ALLOCATE(resp_slow(n_veg, 12))\n    ALLOCATE(resp_armored(n_veg, 12))\n    ALLOCATE(temp(n_veg, n_age_classes))\n    ALLOCATE(combusted_leaf(n_veg, 1))\n    ALLOCATE(combusted_abovewood(n_veg, 1))\n    ALLOCATE(combusted_cwd(n_veg, 1))\n    ALLOCATE(combusted_surfstr(n_veg, 1))\n    ALLOCATE(combusted_surfmet(n_veg, 1))\n    ALLOCATE(combusted_surfmic(n_veg, 1))\n    ALLOCATE(combusted_soilstr(n_veg, 1))\n    ALLOCATE(combusted_soilmet(n_veg, 1))\n    ALLOCATE(combusted_soilmic(n_veg, 1))\n    ALLOCATE(combusted_slow(n_veg, 1))\n    ALLOCATE(combusted_armored(n_veg, 1))\n    ALLOCATE(nonCombusted_leaf(n_veg, 1))\n    ALLOCATE(nonCombusted_abovewood(n_veg, 1))\n    ALLOCATE(nonCombusted_belowwood(n_veg, 1))\n    ALLOCATE(nonCombusted_froot(n_veg, 1))\n    ALLOCATE(fuelwoodout(n_veg, n_age_classes))\n    ALLOCATE(wresp(n_veg, 1))\n    ALLOCATE(wcomb(n_veg, 1))\n    ALLOCATE(wherb(n_veg, 1))\n    ALLOCATE(wbiof(n_veg, 1))\n    ALLOCATE(hresp(n_veg, 1))\n    ALLOCATE(hcomb(n_veg, 1))\n    ALLOCATE(hherb(n_veg, 1))\n    ALLOCATE(veg_burn(n_veg, 1)) \n    !in getAgeClassBF\n    \n    ALLOCATE(ageClassIndex(n_veg, n_age_classes))\n    ALLOCATE(BFallClasses(n_veg, 12))\n    ALLOCATE(BFleftCurrentMonth(n_veg, 1))\n    ALLOCATE(BFtemp(n_veg, 1))\n    ALLOCATE(ageCurrentClass(n_veg, 1))\n    \n    !in organizeAgeClasses\n    ALLOCATE(ageClassSorted(n_veg, n_age_classes))\n    ALLOCATE(ageClassSortedInd(n_veg, n_age_classes))\n    ALLOCATE(tempAge(1, n_age_classes))\n    \n    !in processData\n    ALLOCATE(NPPmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(respmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(combmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(herbmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(biofmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(respEQ(n_veg, 12))\n    ALLOCATE(combEQ(n_veg, 12))\n    ALLOCATE(herbEQ(n_veg, 12))\n    ALLOCATE(biofEQ(n_veg, 12))\n    ALLOCATE(NPPmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(respmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(combmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(herbmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(biofmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(respEQ_hg(n_veg, 12))\n    ALLOCATE(combEQ_hg(n_veg, 12))\n    ALLOCATE(herbEQ_hg(n_veg, 12))\n    ALLOCATE(biofEQ_hg(n_veg, 12))    \n    ALLOCATE(evapEQ_hg(n_veg, 12))\n    ALLOCATE(reemitEQ_hg(n_veg, 12))\n    ALLOCATE(photoEQ_hg(n_veg, 12))\n    ALLOCATE(leafpoolEQ_hg(n_veg, 12))\n    ALLOCATE(slowpoolEQ_hg(n_veg, 12))\n    ALLOCATE(armoredpoolEQ_hg(n_veg, 12))\n    ALLOCATE(surfstrpoolEQ_hg(n_veg, 12))\n    ALLOCATE(soilstrpoolEQ_hg(n_veg, 12))\n    ALLOCATE(surfmetpoolEQ_hg(n_veg, 12))\n    ALLOCATE(soilmetpoolEQ_hg(n_veg, 12))\n    ALLOCATE(surfmicpoolEQ_hg(n_veg, 12))\n    ALLOCATE(soilmicpoolEQ_hg(n_veg, 12))\n    ALLOCATE(HgAqEQ_hg(n_veg, 12))\n    ALLOCATE(biomeAnnual_Hg(HgPOOLSequilibriumYear, 5))\n    \n    !in doHgDeposition\n    ALLOCATE(Hg0dry(n_veg, 1))\n    ALLOCATE(HgIIdry(n_veg, 1)) \n    ALLOCATE(HgIIwet(n_veg, 1))\n    ALLOCATE(Hg0dry_mo(n_veg, 1, 12))\n    ALLOCATE(HgIIdry_mo(n_veg, 1, 12)) \n    ALLOCATE(HgIIwet_mo(n_veg, 1, 12))\n    ALLOCATE(HgP(n_veg, 1))\n    ALLOCATE(HgAq(n_veg, 1))\n    ALLOCATE(hHgAq(n_veg, 1))\n    ALLOCATE(Hg0_surf_leaf(n_veg, 1) )\n    ALLOCATE(Hg0_surf_soil(n_veg, 1))\n    ALLOCATE(HgII_surf_leaf(n_veg, 1))\n    ALLOCATE(HgII_surf_soil(n_veg, 1))\n    ALLOCATE(maxallLAI(1))\n    ALLOCATE(fstom(n_veg, 1))\n    ALLOCATE(fleaf(n_veg, 1))\n    ALLOCATE(fsoil(n_veg, 1))\n    ALLOCATE(fsum(n_veg, 1))\n    ALLOCATE(freemitted(n_veg, 1))\n    ALLOCATE(reemitted(n_veg, 1))\n    ALLOCATE(temp_hg(n_veg, 1))\n    ALLOCATE(photoreduced(n_veg, 1))\n    ALLOCATE(Hg0out(n_veg,1)) \n    \n    ALLOCATE(reemmonthly_hg(HgPOOLSequilibriumYear, 12)) \n    ALLOCATE(photmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(slowmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(armoredmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(surfstrmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(surfmetmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(surfmicmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(soilstrmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(soilmetmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(soilmicmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(leafmonthly(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(slowmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(armoredmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(surfstrmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(surfmetmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(surfmicmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(soilstrmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(soilmetmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(soilmicmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(leafmonthly_hg(HgPOOLSequilibriumYear, 12))\n    ALLOCATE(leafpoolEQ(n_veg, 12))\n    ALLOCATE(slowpoolEQ(n_veg, 12))\n    ALLOCATE(armoredpoolEQ(n_veg, 12))\n    ALLOCATE(surfstrpoolEQ(n_veg, 12))\n    ALLOCATE(soilstrpoolEQ(n_veg, 12))\n    ALLOCATE(surfmetpoolEQ(n_veg, 12))\n    ALLOCATE(soilmetpoolEQ(n_veg, 12))\n    ALLOCATE(surfmicpoolEQ(n_veg, 12))\n    ALLOCATE(soilmicpoolEQ(n_veg, 12))\n    ALLOCATE(HgAqmonthly(HgPOOLSequilibriumYear,12))\n\n  END SUBROUTINE makeCASAarrays\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: initialize\n!\n! !DESCRIPTION: Subroutine initialize initialize all allocatable arrays to 0\n!\\\\\n!\\\\\n! !INTERFACE:\n!   \n  SUBROUTINE initialize\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Initialize all arrays to 0.\n\n    clay = 0.e+0_fp\n    silt = 0.e+0_fp\n    sand = 0.e+0_fp\n    litcn = 0.e+0_fp\n    lignin = 0.e+0_fp\n    lrage = 0.e+0_fp\n    woodage = 0.e+0_fp\n    \n    SMparams = 0.e+0_fp\n    last_soilm = 0.e+0_fp\n    \n    PET = 0.e+0_fp\n    AHI = 0.e+0_fp\n    \n    last_pack = 0.e+0_fp\n    spack = 0.e+0_fp\n    bgmoist = 0.e+0_fp\n    NPPmoist = 0.e+0_fp\n    EET = 0.e+0_fp\n    NPPmoist_temp = 0.e+0_fp\n    bgmoist_temp = 0.e+0_fp\n    bgmoistpret = 0.e+0_fp\n    NPPmoistpret = 0.e+0_fp\n    soilm = 0.e+0_fp\n    rdr = 0.e+0_fp\n    current_ppt = 0.e+0_fp\n    eeta = 0.e+0_fp\n    eetb = 0.e+0_fp\n    this_soilm = 0.e+0_fp\n    bgratio = 0.e+0_fp\n    \n    srmax = 0.e+0_fp\n    LAImax = 0.e+0_fp\n    LAI_temp = 0.e+0_fp\n    FPAR = 0.e+0_fp\n    LAI = 0.e+0_fp\n    sr = 0.e+0_fp\n    \n    topt = 0.e+0_fp\n    maxlai = 0.e+0_fp\n    lais = 0.e+0_fp\n    \n    LTCON = 0.e+0_fp\n    LTVAR = 0.e+0_fp\n    \n    abovewoodpool = 0.e+0_fp\n    belowwoodpool = 0.e+0_fp\n    leafpool = 0.e+0_fp\n    frootpool = 0.e+0_fp\n    cwdpool = 0.e+0_fp\n    surfstrpool = 0.e+0_fp\n    surfmetpool = 0.e+0_fp\n    surfmicpool = 0.e+0_fp\n    soilstrpool = 0.e+0_fp\n    soilmetpool = 0.e+0_fp\n    soilmicpool = 0.e+0_fp\n    slowpool = 0.e+0_fp\n    armoredpool = 0.e+0_fp\n    \n    !woody pools Hg \n    abovewoodpool_Hg = 0.e+0_fp\n    belowwoodpool_Hg = 0.e+0_fp\n    leafpool_Hg = 0.e+0_fp\n    frootpool_Hg = 0.e+0_fp\n    cwdpool_Hg = 0.e+0_fp\n    surfstrpool_Hg = 0.e+0_fp\n    surfmetpool_Hg = 0.e+0_fp\n    surfmicpool_Hg = 0.e+0_fp\n    soilstrpool_Hg = 0.e+0_fp\n    soilmetpool_Hg = 0.e+0_fp\n    soilmicpool_Hg = 0.e+0_fp\n    slowpool_Hg = 0.e+0_fp\n    armoredpool_Hg = 0.e+0_fp\n    total_tree_hg = 0.e+0_fp\n    \n    hleafpool = 0.e+0_fp\n    hfrootpool = 0.e+0_fp\n    hsurfstrpool = 0.e+0_fp\n    hsurfmetpool = 0.e+0_fp\n    hsurfmicpool = 0.e+0_fp\n    hsoilstrpool = 0.e+0_fp\n    hsoilmetpool = 0.e+0_fp\n    hsoilmicpool = 0.e+0_fp\n    hslowpool = 0.e+0_fp\n    harmoredpool = 0.e+0_fp\n    \n    !herb pools Hg\n    hleafpool_Hg = 0.e+0_fp\n    hfrootpool_Hg = 0.e+0_fp\n    hsurfstrpool_Hg = 0.e+0_fp\n    hsurfmetpool_Hg = 0.e+0_fp\n    hsurfmicpool_Hg = 0.e+0_fp\n    hsoilstrpool_Hg = 0.e+0_fp\n    hsoilmetpool_Hg = 0.e+0_fp\n    hsoilmicpool_Hg = 0.e+0_fp\n    hslowpool_Hg = 0.e+0_fp\n    harmoredpool_Hg = 0.e+0_fp\n    total_herb_hg = 0.e+0_fp\n    \n    !max hg woody pool\n    max_hg_leaf = 0.e+0_fp\n    max_hg_surfstr = 0.e+0_fp\n    max_hg_surfmet = 0.e+0_fp\n    max_hg_surfmic = 0.e+0_fp\n    max_hg_soilstr = 0.e+0_fp\n    max_hg_soilmet = 0.e+0_fp\n    max_hg_soilmic = 0.e+0_fp\n    max_hg_slow = 0.e+0_fp\n    max_hg_armored = 0.e+0_fp\n    \n    !max hg herb pools\n    max_hg_hleaf = 0.e+0_fp\n    max_hg_hsurfstr = 0.e+0_fp\n    max_hg_hsurfmet = 0.e+0_fp\n    max_hg_hsurfmic = 0.e+0_fp\n    max_hg_hsoilstr = 0.e+0_fp\n    max_hg_hsoilmet = 0.e+0_fp\n    max_hg_hsoilmic = 0.e+0_fp\n    max_hg_hslow = 0.e+0_fp\n    max_hg_harmored = 0.e+0_fp\n    \n    abovewoodpools = 0.e+0_fp\n    belowwoodpools = 0.e+0_fp\n    leafpools = 0.e+0_fp\n    frootpools = 0.e+0_fp\n    cwdpools = 0.e+0_fp\n    surfstrpools = 0.e+0_fp\n    surfmetpools = 0.e+0_fp\n    surfmicpools = 0.e+0_fp\n    soilstrpools = 0.e+0_fp\n    soilmetpools = 0.e+0_fp\n    soilmicpools = 0.e+0_fp\n    slowpools = 0.e+0_fp\n    armoredpools = 0.e+0_fp\n    \n    hleafpools = 0.e+0_fp\n    hfrootpools = 0.e+0_fp\n    hsurfstrpools = 0.e+0_fp\n    hsurfmetpools = 0.e+0_fp\n    hsurfmicpools = 0.e+0_fp\n    hsoilstrpools = 0.e+0_fp\n    hsoilmetpools = 0.e+0_fp\n    hsoilmicpools = 0.e+0_fp\n    hslowpools = 0.e+0_fp\n    harmoredpools = 0.e+0_fp\n    \n    fuelshortage = 0.e+0_fp     \n    \n    LtN = 0.e+0_fp\n    annK_leaf = 0.e+0_fp\n    annK_leaf_hg = 0.e+0_fp\n    annK_wood = 0.e+0_fp\n    annK_froot = 0.e+0_fp\n    K_wood = 0.e+0_fp\n    K_froot = 0.e+0_fp\n    K_leaf = 0.e+0_fp\n    K_hleaf = 0.e+0_fp\n    K_hfroot = 0.e+0_fp\n    K_surfmet = 0.e+0_fp\n    K_surfstr = 0.e+0_fp\n    K_soilmet = 0.e+0_fp \n    K_soilstr = 0.e+0_fp\n    K_cwd = 0.e+0_fp\n    K_surfmic = 0.e+0_fp\n    K_soilmic = 0.e+0_fp \n    K_slow = 0.e+0_fp\n    K_armored = 0.e+0_fp\n    slitscalar = 0.e+0_fp \n    shlitscalar = 0.e+0_fp \n    srootlitscalar = 0.e+0_fp\n    sabiotic = 0.e+0_fp\n    sabiotsmc = 0.e+0_fp\n    sabiotlign = 0.e+0_fp\n    metabfract = 0.e+0_fp\n    structuralLignin = 0.e+0_fp\n    lignineffect = 0.e+0_fp\n    soilmicDecayFactor = 0.e+0_fp\n    slowDecayFactor = 0.e+0_fp\n    armoredDecayFactor = 0.e+0_fp\n    fid = 0.e+0_fp\n    decayClayFactor = 0.e+0_fp\n    eff_soilmic2slow = 0.e+0_fp\n    latitude = 0.e+0_fp\n    latitude1 = 0.e+0_fp\n    fuelwooddemand = 0.e+0_fp\n    \n    !in doNPP\n    T1 = 0.e+0_fp\n    T2low = 0.e+0_fp\n    T2high = 0.e+0_fp\n    NPPtemp = 0.e+0_fp\n    IPAR = 0.e+0_fp\n    NPP = 0.e+0_fp\n    epsilona = 0.e+0_fp\n    bgtemp = 0.e+0_fp\n    abiotic = 0.e+0_fp\n    \n    !in doHerbivory\n    grass_herbivory = 0.e+0_fp\n    trees_herbivory = 0.e+0_fp\n    herb_seasonality = 0.e+0_fp\n    \n    !in doLeafRootShedding\n    MINLAI = 0.e+0_fp\n    SUMLAI = 0.e+0_fp\n    AVELAI = 0.e+0_fp\n    LTVARSUM = 0.e+0_fp\n    SUMLAInew = 0.e+0_fp\n    litterscalar = 0.e+0_fp\n    hlitterscalar = 0.e+0_fp\n    rootlitscalar = 0.e+0_fp\n    \n    !in getFireParams\n    ccWood = 0.e+0_fp\n    ccLeaf = 0.e+0_fp\n    PET_current = 0.e+0_fp\n    CCratio_current = 0.e+0_fp\n    ccFineLitter = 0.e+0_fp\n    ccCWD = 0.e+0_fp\n    CCratio_previous = 0.e+0_fp\n    mortality_tree = 0.e+0_fp\n    mortality_hfroot = 0.e+0_fp\n    \n    !in doTreeCarbon\n    leafinput = 0.e+0_fp\n    woodinput = 0.e+0_fp\n    frootinput = 0.e+0_fp\n    herbivory = 0.e+0_fp\n    carbonout_leaf = 0.e+0_fp\n    carbonout_abovewood = 0.e+0_fp\n    carbonout_belowwood = 0.e+0_fp\n    carbonout_froot = 0.e+0_fp\n    carbonout_cwd = 0.e+0_fp\n    carbonout_surfmet = 0.e+0_fp\n    carbonout_surfstr = 0.e+0_fp\n    carbonout_soilmet = 0.e+0_fp\n    carbonout_soilstr = 0.e+0_fp\n    carbonout_surfmic = 0.e+0_fp\n    carbonout_soilmic = 0.e+0_fp\n    carbonout_slow = 0.e+0_fp\n    carbonout_armored = 0.e+0_fp\n    hgout_surfmet = 0.e+0_fp\n    hgout_surfstr = 0.e+0_fp\n    hgout_leaf = 0.e+0_fp\n    hgout_soilstr = 0.e+0_fp\n    hgout_surfmic = 0.e+0_fp\n    hgout_soilmic = 0.e+0_fp\n    hgout_slow = 0.e+0_fp\n    hgout_armored = 0.e+0_fp\n    hgout_soilmet = 0.e+0_fp\n    \n    Hg_pool_fluxes1 = 0.e+0_fp\n    Hg_pool_fluxes2 = 0.e+0_fp\n    Hg_pool_fluxes3 = 0.e+0_fp\n    Hg_pool_fluxes4 = 0.e+0_fp\n    Hg_pool_fluxes5 = 0.e+0_fp\n    Hg_pool_fluxes6 = 0.e+0_fp\n    \n    Hg_hpool_fluxes1 = 0.e+0_fp\n    Hg_hpool_fluxes2 = 0.e+0_fp\n    Hg_hpool_fluxes3 = 0.e+0_fp\n    Hg_hpool_fluxes4 = 0.e+0_fp\n    Hg_hpool_fluxes5 = 0.e+0_fp\n    Hg_hpool_fluxes6 = 0.e+0_fp\n    \n    f_carbonout_surfmet = 0.e+0_fp\n    f_carbonout_surfstr = 0.e+0_fp\n    f_carbonout_leaf = 0.e+0_fp\n    f_carbonout_soilstr = 0.e+0_fp\n    f_carbonout_surfmic = 0.e+0_fp\n    f_carbonout_soilmic = 0.e+0_fp\n    f_carbonout_slow = 0.e+0_fp\n    f_carbonout_armored = 0.e+0_fp\n    f_carbonout_soilmet = 0.e+0_fp\n    \n    resppool_surfstr_hg = 0.e+0_fp\n    resppool_surfmet_hg = 0.e+0_fp\n    resppool_surfmic_hg = 0.e+0_fp\n    resppool_soilstr_hg = 0.e+0_fp\n    resppool_soilmic_hg = 0.e+0_fp\n    resppool_soilmet_hg = 0.e+0_fp\n    resppool_slow_hg = 0.e+0_fp\n    resppool_armored_hg = 0.e+0_fp\n    resp_surfstr_hg = 0.e+0_fp\n    resp_surfmet_hg = 0.e+0_fp\n    resp_surfmic_hg = 0.e+0_fp\n    resp_soilstr_hg = 0.e+0_fp\n    resp_soilmic_hg = 0.e+0_fp\n    resp_soilmet_hg = 0.e+0_fp\n    resp_slow_hg = 0.e+0_fp\n    resp_armored_hg = 0.e+0_fp\n    \n    combusted_leaf_hg = 0.e+0_fp\n    combusted_surfstr_hg = 0.e+0_fp\n    combusted_surfmet_hg = 0.e+0_fp\n    combusted_surfmic_hg = 0.e+0_fp\n    combusted_soilstr_hg = 0.e+0_fp\n    combusted_soilmet_hg = 0.e+0_fp\n    combusted_soilmic_hg = 0.e+0_fp\n    combusted_slow_hg = 0.e+0_fp\n    combusted_armored_hg = 0.e+0_fp\n    nonCombusted_leaf_hg = 0.e+0_fp\n    fuelwoodout_hg = 0.e+0_fp\n    wresp_hg = 0.e+0_fp\n    wcomb_hg = 0.e+0_fp\n    wherb_hg = 0.e+0_fp\n    wbiof_hg = 0.e+0_fp\n    hresp_hg = 0.e+0_fp\n    hcomb_hg = 0.e+0_fp\n    hherb_hg = 0.e+0_fp\n    resppool_surfstr = 0.e+0_fp\n    resppool_surfmet = 0.e+0_fp\n    resppool_surfmic = 0.e+0_fp\n    resppool_soilstr = 0.e+0_fp\n    resppool_soilmet = 0.e+0_fp\n    resppool_soilmic = 0.e+0_fp\n    resppool_slow = 0.e+0_fp\n    resppool_armored = 0.e+0_fp\n    resp_surfstr = 0.e+0_fp\n    resp_surfmet = 0.e+0_fp\n    resp_surfmic = 0.e+0_fp\n    resp_soilstr = 0.e+0_fp\n    resp_soilmet = 0.e+0_fp\n    resp_soilmic = 0.e+0_fp\n    resp_slow = 0.e+0_fp\n    resp_armored = 0.e+0_fp\n    temp = 0.e+0_fp\n    combusted_leaf = 0.e+0_fp\n    combusted_abovewood = 0.e+0_fp\n    combusted_cwd = 0.e+0_fp\n    combusted_surfstr = 0.e+0_fp\n    combusted_surfmet = 0.e+0_fp\n    combusted_surfmic = 0.e+0_fp\n    combusted_soilstr = 0.e+0_fp\n    combusted_soilmet = 0.e+0_fp\n    combusted_soilmic = 0.e+0_fp\n    combusted_slow = 0.e+0_fp\n    combusted_armored = 0.e+0_fp\n    nonCombusted_leaf = 0.e+0_fp\n    nonCombusted_abovewood = 0.e+0_fp\n    nonCombusted_belowwood = 0.e+0_fp\n    nonCombusted_froot = 0.e+0_fp\n    fuelwoodout = 0.e+0_fp\n    wresp = 0.e+0_fp\n    wcomb = 0.e+0_fp\n    wherb = 0.e+0_fp\n    wbiof = 0.e+0_fp\n    hresp = 0.e+0_fp\n    hcomb = 0.e+0_fp\n    hherb = 0.e+0_fp\n    veg_burn = 0.e+0_fp \n    !in getAgeClassBF\n    \n    ageClassIndex = 0.e+0_fp\n    BFallClasses = 0.e+0_fp\n    BFleftCurrentMonth = 0.e+0_fp\n    BFtemp = 0.e+0_fp\n    ageCurrentClass = 0.e+0_fp\n    \n    !in organizeAgeClasses\n    ageClassSorted = 0.e+0_fp\n    ageClassSortedInd = 0.e+0_fp\n    tempAge = 0.e+0_fp\n    \n    !in processData\n    NPPmonthly = 0.e+0_fp\n    respmonthly = 0.e+0_fp\n    combmonthly = 0.e+0_fp\n    herbmonthly = 0.e+0_fp\n    biofmonthly = 0.e+0_fp\n    respEQ = 0.e+0_fp\n    combEQ = 0.e+0_fp\n    herbEQ = 0.e+0_fp\n    biofEQ = 0.e+0_fp\n    NPPmonthly_hg = 0.e+0_fp\n    respmonthly_hg = 0.e+0_fp\n    combmonthly_hg = 0.e+0_fp\n    herbmonthly_hg = 0.e+0_fp\n    biofmonthly_hg = 0.e+0_fp\n    respEQ_hg = 0.e+0_fp\n    combEQ_hg = 0.e+0_fp\n    herbEQ_hg = 0.e+0_fp\n    biofEQ_hg = 0.e+0_fp    \n    evapEQ_hg = 0.e+0_fp\n    reemitEQ_hg = 0.e+0_fp\n    photoEQ_hg = 0.e+0_fp\n    leafpoolEQ_hg = 0.e+0_fp\n    slowpoolEQ_hg = 0.e+0_fp\n    armoredpoolEQ_hg = 0.e+0_fp\n    surfstrpoolEQ_hg = 0.e+0_fp\n    soilstrpoolEQ_hg = 0.e+0_fp\n    surfmetpoolEQ_hg = 0.e+0_fp\n    soilmetpoolEQ_hg = 0.e+0_fp\n    surfmicpoolEQ_hg = 0.e+0_fp\n    soilmicpoolEQ_hg = 0.e+0_fp\n    HgAqEQ_hg = 0.e+0_fp\n    biomeAnnual_Hg = 0.e+0_fp\n    \n    !in doHgDeposition\n    Hg0dry = 0.e+0_fp\n    HgIIdry = 0.e+0_fp \n    HgIIwet = 0.e+0_fp\n    HgP = 0.e+0_fp\n    HgAq = 0.e+0_fp\n    hHgAq = 0.e+0_fp\n    Hg0_surf_leaf = 0.e+0_fp\n    Hg0_surf_soil = 0.e+0_fp\n    HgII_surf_leaf = 0.e+0_fp\n    HgII_surf_soil = 0.e+0_fp\n    maxallLAI = 0.e+0_fp\n    fstom = 0.e+0_fp\n    fleaf = 0.e+0_fp\n    fsoil = 0.e+0_fp\n    fsum = 0.e+0_fp\n    freemitted = 0.e+0_fp\n    reemitted = 0.e+0_fp\n    temp_hg = 0.e+0_fp\n    photoreduced = 0.e+0_fp\n    Hg0out = 0.e+0_fp \n    \n    reemmonthly_hg = 0.e+0_fp \n    photmonthly_hg = 0.e+0_fp\n    slowmonthly = 0.e+0_fp\n    armoredmonthly = 0.e+0_fp\n    surfstrmonthly = 0.e+0_fp\n    surfmetmonthly = 0.e+0_fp\n    surfmicmonthly = 0.e+0_fp\n    soilstrmonthly = 0.e+0_fp\n    soilmetmonthly = 0.e+0_fp\n    soilmicmonthly = 0.e+0_fp\n    leafmonthly = 0.e+0_fp\n    slowmonthly_hg = 0.e+0_fp\n    armoredmonthly_hg = 0.e+0_fp\n    surfstrmonthly_hg = 0.e+0_fp\n    surfmetmonthly_hg = 0.e+0_fp\n    surfmicmonthly_hg = 0.e+0_fp\n    soilstrmonthly_hg = 0.e+0_fp\n    soilmetmonthly_hg = 0.e+0_fp\n    soilmicmonthly_hg = 0.e+0_fp\n    leafmonthly_hg = 0.e+0_fp\n    leafpoolEQ = 0.e+0_fp\n    slowpoolEQ = 0.e+0_fp\n    armoredpoolEQ = 0.e+0_fp\n    surfstrpoolEQ = 0.e+0_fp\n    soilstrpoolEQ = 0.e+0_fp\n    surfmetpoolEQ = 0.e+0_fp\n    soilmetpoolEQ = 0.e+0_fp\n    surfmicpoolEQ = 0.e+0_fp\n    soilmicpoolEQ = 0.e+0_fp\n    HgAqmonthly = 0.e+0_fp\n  END SUBROUTINE initialize\n  \nEND MODULE defineArrays\n!EOC\n!------------------------------------------------------------------------------\n"
  },
  {
    "path": "GTMM/defineConstants.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: defineConstants\n!\n! !DESCRIPTION: Define some constants for the run, including input and output\n!  directories.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE defineConstants\n!\n! !USES:\n!\n  USE PRECISION_MOD ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Adapted to restart simulations.\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n  integer             ::  rows=180 ! for 1x1 degree\n  \n  integer             ::  columns=360 ! for 1x1 degree\n  \n  integer             ::  NPPequilibriumYear  !# of iteration years\n                                              ! necessary to get soil \n                                              ! moisture (and thus NPP and \n                                              ! the decay scalars) in\n                                              ! equilibrium.  3 is ok\n  \n  integer             ::  HgPoolsequilibriumYear !# of iteration\n                                                 ! years necessary to get Hg \n                                                 ! pools in equilibrium.  \n                                                 ! ~30000 years with an \n                                                 ! f_decomp = 0.16, +161 to go\n                                                 ! from preind -> ind\n  integer             ::  preindYear !last preindustrial year of simulation\n  integer             ::  indYear  ! last industrial year of simulation\n                                   ! 161 years covering 1840 to 2000\n  \n  integer             ::  n_age_classes=1  !# of age classes, set to 1\n                                           ! GTMM DOES NOT FULLY SUPPORT \n                                           ! AGE CLASSES\n                                           ! SO LEAVE = 1\n  \n  real(fp)                ::  number_age_classes=1.000e+0_fp ! real of above\n  \n  real(fp)                ::  Q10=1.500e+0_fp !effect of temperature on soil fluxes\n  \n  real(fp)                ::  EMAX=0.700e+0_fp !maximum light use efficiency\n  \n  real(fp)                ::  aboveWoodFraction=0.7500e+0_fp ! fraction of wood that\n                                                       ! is above ground\n  \n  real(fp)                ::  herbivoreEff=0.500e+0_fp ! efficiency of herbivory\n                                                 ! (part autotrophic \n                                                 ! respiration, part to\n                                                 ! surface litter pools)\n  \n  real(fp)                ::  decompHgEff=0.163e+0_fp ! fraction of organic bound\n                                                ! Hg that is reduced and \n                                                ! re-emitted\n  \n  integer             ::  f_len=24 !length of filepath - CHANGE THIS\n  \n  character(len=24)   ::  filepath='/home/ccarouge/GTM/data/'\n                        ! filepath for data used by GTMM model\n                        ! if you modify this path, be sure to \n                        ! change the length in the character \n                        ! declaration \n  \n  integer             ::  f_len_output=35 !length of the outputpath\n  \n  character(len=35)   ::  outputpath=&\n       '/home/ccarouge/GTM/output/ifort/v2/'\n  \n  integer             ::  n_veg=14268 !number of vegetated pixels (non-ice)\n  integer             ::  h=1\n  integer             ::  yr=1\n  integer             ::  mo=1\n  integer             ::  age_class=1\n\n  ! Add restart variable to know if a stand-alone run is a continuation run\n  ! (restart=.true.) or a run starting from beginning (restart=.false.).\n  LOGICAL             :: LRESTART\n  \n  CHARACTER(len=255)  :: restartfile\n  \nEND MODULE defineConstants\n!EOC\n"
  },
  {
    "path": "GTMM/doFPARandLAI.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doFPARandLAI\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doFPARandLAI(FIRST)\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  implicit none\n!\n! !INPUT PARAMETERS\n!\n  LOGICAL, INTENT(IN) :: FIRST\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Adapted to restart simulations. Parallelization\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD \n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!  \n  INTEGER :: i \n  character(len=f_len_output+4) :: filename3\n  \n  filename3(1:f_len_output)=outputpath\n\n!--- Previous to (ccc, 11/4/09)      \n!      IF (yr .eq. 1 .and. mo .eq. 1) THEN\n  IF ( FIRST ) THEN\n     maxallLAI=0.0e+0_fp\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i)\n     DO i=1,n_veg\n        IF (veg1(i,1) .eq. 1) THEN\n           srmax(i,1)=SRMAX1\n           LAImax(i,1)=LAIMAX1\n        ENDIF\n        IF (veg1(i,1) .eq. 2) THEN\n           srmax(i,1)=SRMAX2\n           LAImax(i,1)=LAIMAX2\n        ENDIF\n        IF (veg1(i,1) .eq. 3) THEN\n           srmax(i,1)=SRMAX3\n           LAImax(i,1)=LAIMAX3\n        ENDIF\n        IF (veg1(i,1) .eq. 4) THEN\n           srmax(i,1)=SRMAX4\n           LAImax(i,1)=LAIMAX4\n        ENDIF\n        IF (veg1(i,1) .eq. 5) THEN\n           srmax(i,1)=SRMAX5\n           LAImax(i,1)=LAIMAX5\n        ENDIF\n        IF (veg1(i,1) .eq. 6) THEN\n           srmax(i,1)=SRMAX6\n           LAImax(i,1)=LAIMAX6\n        ENDIF\n        IF (veg1(i,1) .eq. 7) THEN\n           srmax(i,1)=SRMAX7\n           LAImax(i,1)=LAIMAX7\n        ENDIF\n        IF (veg1(i,1) .eq. 8) THEN\n           srmax(i,1)=SRMAX8\n           LAImax(i,1)=LAIMAX8\n        ENDIF\n        IF (veg1(i,1) .eq. 9) THEN\n           srmax(i,1)=SRMAX9\n           LAImax(i,1)=LAIMAX9\n        ENDIF\n        IF (veg1(i,1) .eq. 10) THEN\n           srmax(i,1)=SRMAX10\n           LAImax(i,1)=LAIMAX10\n        ENDIF\n        IF (veg1(i,1) .eq. 11) THEN\n           srmax(i,1)=SRMAX11\n           LAImax(i,1)=LAIMAX11\n        ENDIF\n        IF (veg1(i,1) .eq. 12) THEN\n           srmax(i,1)=SRMAX12\n           LAImax(i,1)=LAIMAX12\n        ENDIF\n     END DO\n!$OMP END PARALLEL DO\n  END IF\n      \n  !begin to calculate FPAR\n      \n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n  sr(:,1)=(1.000e+0_fp+NDVI1(:,mo))/(1.000e+0_fp-NDVI1(:,mo))\n\n\n  FPAR(:,mo)=(((sr(:,1)-SRMIN)/(srmax(:,1)-SRMIN))*(FPARMAX-FPARMIN))+  &\n             FPARMIN\n!$OMP END WORKSHARE\n\n!!$OMP PARALLEL         &\n!!$OMP DEFAULT(SHARED)\n!$OMP DO PRIVATE(i)\n  DO i=1,n_veg\n     IF (FPAR(i,mo) .gt. FPARMAX) THEN\n        FPAR(i,mo)=FPARMAX\n     ENDIF\n     IF (FPAR(i,mo) .lt. FPARMIN) THEN\n        FPAR(i,mo)=FPARMIN\n     ENDIF\n  END DO\n!$OMP END DO\n\n  ! Begin to calculate LAI\n  !clustered canopies (veg = 4, 5, 9)\n\n!$OMP DO PRIVATE(i)\n  DO i=1, n_veg\n     IF (veg1(i,1) .eq. 4 .or. veg1(i,1) .eq. 5 .or. veg1(i,1) .eq.9) THEN\n        LAI_temp(i,1)=LAImax(i,1)*(FPAR(i,mo)/FPARMAX)\n     END IF\n         \n     !mix of clustered and homogeneous canopy\n     \n     IF (veg1(i,1) .eq. 3) THEN\n        LAI_temp(i,1)=(LAImax(i,1)*(log(1e+0_fp-FPAR(i,mo))/ &\n                      log(1e+0_fp-FPARMAX)+ &\n                      FPAR(i,mo)/FPARMAX))/2e+0_fp\n     ENDIF\n\n     !homogeneous canopy\n     \n     IF (veg1(i,1) .ne. 3 .and.      &\n         veg1(i,1) .ne. 4 .and.      &\n         veg1(i,1) .ne. 5 .and.      &\n         veg1(i,1) .ne. 9) THEN\n        LAI_temp(i,1)=LAImax(i,1)*(log(1e+0_fp-FPAR(i,mo))/ &\n                      log(1e+0_fp-FPARMAX))\n     ENDIF\n         \n  END DO\n!$OMP END DO\n\n!$OMP DO PRIVATE(i)      \n  DO i=1, n_veg\n     IF (LAI_temp(i,1) .lt. 0) THEN\n        LAI_temp(i,1)=0.0e+0_fp\n     ENDIF\n  END DO\n!$OMP END DO\n!$OMP END PARALLEL\n\n  maxallLAI=8.0e+0_fp\n  LAI(:,mo)=LAI_temp(:,1)\n  filename3(f_len_output+1:f_len_output+4)='flai'\n  IF (mo .eq. 12 .and. yr .eq. NPPequilibriumYear ) THEN\n     OPEN(UNIT=4, file=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4,FMT=\"(12F9.2)\") LAI\n     CLOSE(4)\n     \n  ENDIF\n  \nEND SUBROUTINE doFPARandLAI\n!EOC\n                 \n              \n"
  },
  {
    "path": "GTMM/doHerbCarbon.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doHerbCarbon\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doHerbCarbon\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelized\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n  ! herbaceous vegetation carbon fluxes\n  \n  ! NPP: calculate inputs from NPP to living pools\n  leafinput(:,1)=NPP(:,mo)*0.40e+0_fp    ! 40% of NPP is aboveground\n  frootinput(:,1)=NPP(:,mo)*0.60e+0_fp   ! 60% of NPP is belowground\n\n!$OMP PARALLEL        &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n  !NPP: transfer NPP into living biomass pools\n  hleafpool(:,1)=hleafpool(:,1)+leafinput(:,1)\n  hfrootpool(:,1)=hfrootpool(:,1)+frootinput(:,1)\n  \n  !HERBIVORY\n  herbivory(:,1)=grass_herbivory(:,1)*herb_seasonality(:,mo)\n                !yearly herbivory * seasonality scalar\n\n\n  !in case herbivory exceeds leaf, lower herbivory\n  WHERE (herbivory(:,1) > hleafpool(:,1))\n     herbivory(:,1)=hleafpool(:,1)\n  END WHERE\n\n  !deduct herbivory from the leaf pool\n  hleafpool(:,1)=hleafpool(:,1)-herbivory(:,1)\n  \n  carbonout_leaf(:,1)=herbivory(:,1)*(1.00-herbivoreEff)\n  !part of the consumed leaf will be returned as litter\n  herbivory(:,1)=herbivory(:,1)-herbivory(:,1)*(1.00e+0_fp-herbivoreEff)\n  !part of the consumed leaf for maintenance\n  \n  hsurfstrpool(:,1)=hsurfstrpool(:,1)+carbonout_leaf(:,1)*                  &\n                    (1.00e+0_fp-metabfract(:,1))\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)+carbonout_leaf(:,1)*metabfract(:,1)\n\n  !DECAY of biomass and litter, each of thes following equations\n  !have the following basic form:\n  !carbon pool size * rate constan * abiotic effect\n  !some may have more terms but all are first order\n\n  carbonout_leaf(:,1)=hleafpool(:,1)*K_hleaf(:,1)*hlitterscalar(:,mo)\n  carbonout_froot(:,1)=hfrootpool(:,1)*K_hfroot(:,1)*hlitterscalar(:,mo)\n  carbonout_surfmet(:,1)=hsurfmetpool(:,1)*K_surfmet(:,1)*abiotic(:,mo)\n  carbonout_surfstr(:,1)=hsurfstrpool(:,1)*K_surfstr(:,1)*abiotic(:,mo)*    &\n                         lignineffect(:,1)\n  carbonout_soilmet(:,1)=hsoilmetpool(:,1)*K_soilmet(:,1)*abiotic(:,mo)\n  carbonout_soilstr(:,1)=hsoilstrpool(:,1)*K_soilstr(:,1)*abiotic(:,mo)*    &\n                         lignineffect(:,1)\n  carbonout_surfmic(:,1)=hsurfmicpool(:,1)*K_surfmic(:,1)*abiotic(:,mo)\n  carbonout_soilmic(:,1)=hsurfmicpool(:,1)*K_soilmic(:,1)*abiotic(:,mo)*    &\n                         soilmicDecayFactor(:,1)\n  carbonout_slow(:,1)=hslowpool(:,1)*K_slow(:,1)*abiotic(:,mo)\n  carbonout_armored(:,1)=harmoredpool(:,1)*K_armored(:,1)*abiotic(:,mo)\n\n  !determine inputs into structural and metabolic pools from \n  !decaying living pools\n  hsurfstrpool(:,1)=hsurfstrpool(:,1)+carbonout_leaf(:,1)*                  &\n                    (1.00e+0_fp-metabfract(:,1))\n  hsoilstrpool(:,1)=hsoilstrpool(:,1)+carbonout_froot(:,1)*                 &\n                    (1.00e+0_fp-metabfract(:,1))\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)+carbonout_leaf(:,1)*metabfract(:,1)\n  hsoilmetpool(:,1)=hsoilmetpool(:,1)+carbonout_froot(:,1)*metabfract(:,1)\n  \n  hleafpool(:,1)=hleafpool(:,1)-carbonout_leaf(:,1)\n  hfrootpool(:,1)=hfrootpool(:,1)-carbonout_froot(:,1)\n  hsurfstrpool(:,1)=hsurfstrpool(:,1)-carbonout_surfstr(:,1)\n\n  !empty respiration pools in beginning of month\n  resppool_surfstr(:,1)=resppool_surfstr(:,1)*0.0e+0_fp\n  resppool_surfmet(:,1)=resppool_surfmet(:,1)*0.0e+0_fp\n  resppool_surfmic(:,1)=resppool_surfmic(:,1)*0.0e+0_fp\n  resppool_soilstr(:,1)=resppool_soilstr(:,1)*0.0e+0_fp\n  resppool_soilmet(:,1)=resppool_soilmet(:,1)*0.0e+0_fp\n  resppool_soilmic(:,1)=resppool_soilmic(:,1)*0.0e+0_fp\n  resppool_slow(:,1)=resppool_slow(:,1)*0.0e+0_fp\n  resppool_armored(:,1)=resppool_armored(:,1)*0.0e+0_fp\n\n  ! respiratory fluxes from every pool\n  temp(:,1)=(carbonout_surfstr(:,1)*structuralLignin(:,1))*eff_surfstr2slow\n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  resppool_surfstr(:,1)=resppool_surfstr(:,1)+(temp(:,1)/eff_surfstr2slow)* &\n                        (1.00e+0_fp-eff_surfstr2slow)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=(carbonout_surfstr(:,1)*(1e+0_fp-structuralLignin(:,1)))*           &\n            eff_surfstr2surfmic\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  resppool_surfstr(:,1)=resppool_surfstr(:,1)+(temp(:,1)/                   &\n             eff_surfstr2surfmic)*(1.000e+0_fp-eff_surfstr2surfmic)\n  hsoilstrpool(:,1)=hsoilstrpool(:,1)-carbonout_soilstr(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilstr(:,1)*structuralLignin(:,1)*eff_soilstr2slow\n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  resppool_soilstr(:,1)=resppool_soilstr(:,1)+(temp(:,1)/eff_soilstr2slow)* &\n                        (1.000e+0_fp-eff_soilstr2slow)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilstr(:,1)*(1-structuralLignin(:,1))*               &\n            eff_soilstr2soilmic\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  resppool_soilstr(:,1)=resppool_soilstr(:,1)+(temp(:,1)/                   &\n                eff_soilstr2soilmic)*(1.000e+0_fp-eff_soilstr2soilmic)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_surfmet(:,1)*eff_surfmet2surfmic\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)-carbonout_surfmet(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  resppool_surfmet(:,1)=(temp(:,1)/eff_surfmet2surfmic)* &\n          (1.000e+0_fp-eff_surfmet2surfmic)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilmet(:,1)*eff_soilmet2soilmic\n  hsoilmetpool(:,1)=hsoilmetpool(:,1)-carbonout_soilmet(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  resppool_soilmet(:,1)=(temp(:,1)/eff_soilmet2soilmic)* &\n          (1.000e+0_fp-eff_soilmet2soilmic)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_surfmic(:,1)*eff_surfmic2slow\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)-carbonout_surfmic(:,1)\n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  resppool_surfmic(:,1)=(temp(:,1)/eff_surfmic2slow)* &\n          (1.000e+0_fp-eff_surfmic2slow)\n  \n  resppool_soilmic(:,1)=eff_soilmic2slow(:,1)*carbonout_soilmic(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)-carbonout_soilmic(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilmic(:,1)*(0.003e+0_fp+(0.032e+0_fp*clay(:,1)))\n  harmoredpool(:,1)=harmoredpool(:,1)+temp(:,1)\n  \n  temp(:,1)=carbonout_soilmic(:,1)-temp(:,1)-resppool_soilmic(:,1)\n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  \n  resppool_slow(:,1)=carbonout_slow(:,1)*(1.000e+0_fp-eff_slow2soilmic)\n  hslowpool(:,1)=hslowpool(:,1)-carbonout_slow(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_slow(:,1)*eff_slow2soilmic*decayClayFactor(:,1)\n  harmoredpool(:,1)=harmoredpool(:,1)+temp(:,1)\n  \n  temp(:,1)=carbonout_slow(:,1)-resppool_slow(:,1)-temp(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_armored(:,1)*eff_armored2soilmic\n  harmoredpool(:,1)=harmoredpool(:,1)-carbonout_armored(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  \n  resppool_armored(:,1)=(temp(:,1)/eff_armored2soilmic)* &\n             (1.000e+0_fp-eff_armored2soilmic)\n  \n  !FIRES consume part of the pools depending on burned fraction\n  !BF, combustion completeness CC, and tree mortality rate\n  \n  combusted_leaf(:,1)=hleafpool(:,1)*BF1(:,mo)*ccLeaf(:,mo)\n  combusted_surfstr(:,1)=hsurfstrpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_surfmet(:,1)=hsurfmetpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_surfmic(:,1)=hsurfmicpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  \n  !adding soil comb\n  combusted_soilstr(:,1)=hsoilstrpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_soilmet(:,1)=hsoilmetpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_soilmic(:,1)=hsoilmicpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_slow(:,1)=hslowpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_armored(:,1)=harmoredpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  !FIRE: The non-combusted parts\n  \n  nonCombusted_leaf(:,1)=hleafpool(:,1)*BF1(:,mo)*(1.00e+0_fp-ccLeaf(:,mo)) & \n       *mortality_tree(:,1)\n  nonCombusted_froot(:,1)=hfrootpool(:,1)*BF1(:,mo)*mortality_hfroot(:,1)\n  \n  !FIRE flux from non combusted parts to other pools\n  hsurfstrpool(:,1)=hsurfstrpool(:,1)+nonCombusted_leaf(:,1)* &\n       (1.00e+0_fp-metabfract(:,1))\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)+nonCombusted_leaf(:,1)*metabfract(:,1)\n  hsoilstrpool(:,1)=hsoilstrpool(:,1)+nonCombusted_froot(:,1)* &\n       (1.00e+0_fp-metabfract(:,1))\n  hsoilmetpool(:,1)=hsoilmetpool(:,1)+nonCombusted_froot(:,1)*metabfract(:,1)\n  \n  !FIRE\n  hleafpool(:,1)=hleafpool(:,1)-combusted_leaf(:,1)-nonCombusted_leaf(:,1)\n  hfrootpool(:,1)=hfrootpool(:,1)-nonCombusted_froot(:,1)\n  hsurfstrpool(:,1)=hsurfstrpool(:,1)-combusted_surfstr(:,1)\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)-combusted_surfmet(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)-combusted_surfmic(:,1)\n  !new soil burning\n  hsoilstrpool(:,1)=hsoilstrpool(:,1)-combusted_soilstr(:,1)\n  hsoilmetpool(:,1)=hsoilmetpool(:,1)-combusted_soilmet(:,1)\n  hsoilmicpool(:,1)=hsoilmicpool(:,1)-combusted_soilmic(:,1)\n  hslowpool(:,1)=hslowpool(:,1)-combusted_slow(:,1)\n  harmoredpool(:,1)=harmoredpool(:,1)-combusted_armored(:,1)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\n  !calculate fluxes\n  IF (age_class .eq. 1) THEN\n     hresp(:,1)=0.0e+0_fp\n     hcomb(:,1)=0.0e+0_fp\n     hherb(:,1)=0.0e+0_fp\n  ENDIF\n  \n  IF (n_age_classes .eq. 1) THEN\n     hresp(:,1)=resppool_surfstr(:,1)+resppool_surfmet(:,1)&\n          +resppool_surfmic(:,1)+resppool_soilstr(:,1) &\n          +resppool_soilmet(:,1)+resppool_soilmic(:,1) &\n          +resppool_slow(:,1)+resppool_armored(:,1)\n     \n     hcomb(:,1)=combusted_leaf(:,1)+combusted_surfstr(:,1) &\n          +combusted_surfmet(:,1)+combusted_surfmic(:,1) &\n          +combusted_soilstr(:,1)+combusted_soilmet(:,1) &\n          +combusted_soilmic(:,1)+combusted_slow(:,1) &\n          +combusted_armored(:,1)\n     \n     \n     hherb(:,1)=herbivory(:,1)\n  ELSE\n     IF (age_class .eq. 1) THEN\n        hresp(:,1)=0.0e+0_fp\n        hcomb(:,1)=0.0e+0_fp\n        hherb(:,1)=0.0e+0_fp\n     ENDIF\n     \n     hresp(:,1)=hresp(:,1)+(resppool_surfstr(:,1)  &\n          + resppool_surfmet(:,1)+resppool_surfmic(:,1) &\n          + resppool_soilstr(:,1)+resppool_soilmet(:,1) &\n          + resppool_soilmic(:,1)+resppool_slow(:,1)    &\n          + resppool_armored(:,1))/number_age_classes\n     \n     hcomb(:,1)=hcomb(:,1)+(combusted_leaf(:,1)+   &\n          +combusted_surfstr(:,1)+combusted_surfmet(:,1)&\n          +combusted_surfmic(:,1))/number_age_classes\n     \n     hherb(:,1)=hherb(:,1)+(herbivory(:,1)/number_age_classes)\n  ENDIF\nEND SUBROUTINE doHerbCarbon\n!EOC\n\n      \n"
  },
  {
    "path": "GTMM/doHerbCarbonHg.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doHerbCarbonHg\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doHerbCarbonHg\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !REVISION HISTORY\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i\n  character(len=51) :: filename3\n  real(fp) :: tempb(n_veg, 1)\n  real(fp) :: tempa(n_veg, 1)\n  real(fp) :: f_temp(n_veg, 1)\n  real(fp) :: resid\n  real(fp) :: allowed, max_test\n  real(fp) :: f_surf_str(n_veg, 1)\n  real(fp) :: f_soil_str(n_veg, 1)\n  real(fp) :: f_surf_met(n_veg, 1)\n  real(fp) :: f_soil_met(n_veg, 1)\n  real(fp) :: f_surf_mic(n_veg, 1)\n  real(fp) :: f_soil_mic(n_veg, 1)\n  real(fp) :: f_armd(n_veg, 1)\n  real(fp) :: f_slow(n_veg, 1)\n  real(fp) :: TotalC(n_veg, 1)\n  real(fp) :: f_hg_emit(n_veg, 1)\n  real(fp) :: surf_str_input(n_veg, 1)\n  real(fp) :: soil_str_input(n_veg, 1)\n  real(fp) :: surf_met_input(n_veg, 1)\n  real(fp) :: soil_met_input(n_veg, 1)\n  real(fp) :: surf_mic_input(n_veg, 1)\n  real(fp) :: soil_mic_input(n_veg, 1)\n  real(fp) :: slow_input(n_veg, 1)\n  real(fp) :: armd_input(n_veg, 1)     \n  real(fp) :: max_pools(n_veg,4)\n  real(fp) :: excess(n_veg, 1)\n  \n  filename3(1:47)=outputpath\n  \n  !herbaceous vegetation carbon fluxes\n  \n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n     \n  !NPP: calculate inputs from NPP into living pools\n  leafinput(:,1)=0.0e+0_fp\n  \n  frootinput(:,1)=0.0e+0_fp\n  resid=0.0e+0_fp\n  \n  f_hg_emit(:,1)=decompHgEff\n  \n  leafinput(:,1)=NPP(:,mo)*0.40e+0_fp   !40% NPP aboveground\n  frootinput(:,1)=NPP(:,mo)*0.60e+0_fp  !60% NPP belowground\n  \n  \n  !NPP: transfer NPP into living biomass pools\n  \n  hleafpool(:,1)=hleafpool(:,1)+leafinput(:,1)\n  hfrootpool(:,1)=hfrootpool(:,1)+frootinput(:,1)\n  \n!!!!!  Transfer wet deposition to carbon pools\n!!!!!  based on relative wt of carbon in each pool\n  TotalC(:,1)=hsoilstrpool(:,1)+hsurfstrpool(:,1)\n  TotalC(:,1)=totalC(:,1)+hslowpool(:,1)+harmoredpool(:,1)\n  f_surf_str(:,1)=0.0e+0_fp\n  f_soil_str(:,1)=0.0e+0_fp\n  f_slow(:,1)=0.0e+0_fp\n  f_armd(:,1)=0.0e+0_fp\n     \n  WHERE (TotalC(:,1) /= 0)\n     f_surf_str(:,1)=hsurfstrpool(:,1) / TotalC(:,1)\n     f_soil_str(:,1)=hsoilstrpool(:,1) / TotalC(:,1)\n     f_slow(:,1)=hslowpool(:,1)    / TotalC(:,1)\n     f_armd(:,1)=harmoredpool(:,1) / TotalC(:,1)\n  END WHERE\n  \n  ! assume that Hg binds with equal affinity to all structural carbon\n  ! pools\n  \n  surf_str_input(:,1)=HgIIwet(:,1)*f_surf_str(:,1)!*frac_herb(:,1)\n  soil_str_input(:,1)=HgIIwet(:,1)*f_soil_str(:,1)!*frac_herb(:,1)\n  slow_input(:,1)=HgIIwet(:,1)*f_slow(:,1)!*frac_herb(:,1)\n  armd_input(:,1)=HgIIwet(:,1)*f_armd(:,1)!*frac_herb(:,1)\n  \n  hsurfstrpool_hg(:,1)=hsurfstrpool_Hg(:,1)+surf_str_input(:,1)\n  hsoilstrpool_Hg(:,1)=hsoilstrpool_Hg(:,1)+soil_str_input(:,1)\n  hslowpool_Hg(:,1)   =hslowpool_Hg(:,1)   +slow_input(:,1)\n  harmoredpool_Hg(:,1)=harmoredpool_Hg(:,1)+armd_input(:,1)\n  \n  !now, if any of the pools exceeds the maximum allowed\n  !pool size, transfer the remainder to other pools\n  !and if all are full, transfer to HgAq pool\n  \n  f_surf_str(:,1)=0.0e+0_fp\n  f_surf_met(:,1)=0.0e+0_fp\n  f_surf_mic(:,1)=0.0e+0_fp\n  f_soil_str(:,1)=0.0e+0_fp\n  f_soil_met(:,1)=0.0e+0_fp\n  f_soil_mic(:,1)=0.0e+0_fp\n  f_slow(:,1)=0.0e+0_fp\n  f_armd(:,1)=0.0e+0_fp\n  surf_str_input(:,1)=0.0e+0_fp\n  soil_str_input(:,1)=0.0e+0_fp\n  surf_met_input(:,1)=0.0e+0_fp\n  soil_met_input(:,1)=0.0e+0_fp\n  surf_mic_input(:,1)=0.0e+0_fp\n  soil_mic_input(:,1)=0.0e+0_fp\n  slow_input(:,1)=0.0e+0_fp\n  armd_input(:,1)=0.00e+0_fp\n  max_pools(:,:)=1.0e+0_fp \n  excess(:,1)=0.0e+0_fp\n  \n  surf_str_input(:,1)=max_hg_hsurfstr(:,1)-hsurfstrpool_Hg(:,1)\n  soil_str_input(:,1)=max_hg_hsoilstr(:,1)-hsoilstrpool_Hg(:,1)\n  slow_input(:,1)=max_hg_hslow(:,1)   -hslowpool_Hg(:,1)\n  armd_input(:,1)=max_hg_harmored(:,1)-harmoredpool_Hg(:,1)\n!$OMP END WORKSHARE\n      \n!$OMP DO           &\n!$OMP PRIVATE(i, max_test)\n  DO i=1, n_veg\n     IF (surf_str_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+surf_str_input(i,1)\n        max_pools(i,1)=0e+0_fp\n     ENDIF\n     IF (soil_str_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+soil_str_input(i,1)\n        max_pools(i,2)=0e+0_fp\n     ENDIF\n     IF (slow_input(i,1) .lt. 0.0e+0_fp) THEN\n        excess(i,1)=excess(i,1)+slow_input(i,1)\n        max_pools(i,3)=0e+0_fp\n     ENDIF\n     IF (armd_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+armd_input(i,1)\n        max_pools(i,4)=0e+0_fp\n     ENDIF\n     max_test=sum(max_pools(i,:))\n     IF (excess(i,1) .lt. 0.0e+0_fp .and. max_test .eq. 0e+0_fp) THEN \n        hsurfstrpool_Hg(i,1)=max_hg_hsurfstr(i,1)\n        hsoilstrpool_Hg(i,1)=max_hg_hsoilstr(i,1)\n        hslowpool_Hg(i,1)=max_hg_hslow(i,1)\n        harmoredpool_Hg(i,1)=max_hg_harmored(i,1)\n        hHgAq(i,1)=hHgAq(i,1)+excess(i,1)*(-1.0e+0_fp)\n        excess(i,1)=0.0e+0_fp\n     ELSE IF (excess(i,1) .lt. 0.0e+0_fp .and. max_test .gt. 0e+0_fp) THEN \n        totalC(i,1)=(hsoilstrpool(i,1)*max_pools(i,2))+(hsurfstrpool(i,1)*max_pools(i,1))\n        totalC(i,1)=totalC(i,1)+(hslowpool(i,1)*max_pools(i,3))+(harmoredpool(i,1)*max_pools(i,4))\n        \n        IF (totalC(i,1) .ne. 0e+0_fp) THEN\n           f_surf_str(i,1)=(hsurfstrpool(i,1)*max_pools(i,1)) / totalC(i,1)\n           f_soil_str(i,1)=(hsoilstrpool(i,1)*max_pools(i,2)) / totalC(i,1)\n           f_slow(i,1)=(hslowpool(i,1)*max_pools(i,3))    / totalC(i,1)\n           f_armd(i,1)=(harmoredpool(i,1)*max_pools(i,4)) / totalC(i,1)\n        ELSE !if there is no carbon transfer everything to HgAq\n           hHgAq(i,1)=hHgAq(i,1)+excess(i,1)*(-1.0e+0_fp)\n           excess(i,1)=0.0e+0_fp \n        END IF\n        \n        hsurfstrpool_Hg(i,1)=hsurfstrpool_Hg(i,1)+f_surf_str(i,1)*(-1.0e+0_fp)*excess(i,1)\n        hsoilstrpool_Hg(i,1)=hsoilstrpool_Hg(i,1)+f_soil_str(i,1)*(-1.0e+0_fp)*excess(i,1)\n        hslowpool_Hg(i,1)=hslowpool_Hg(i,1)+f_slow(i,1)*(-1.0e+0_fp)*excess(i,1)\n        harmoredpool_Hg(i,1)=harmoredpool_Hg(i,1)+f_armd(i,1)*(-1.0e+0_fp)*excess(i,1)\n        excess(i,1)=0.0e+0_fp\n     ENDIF\n\t\t\n  END DO\n!$OMP END DO              \n\n!$OMP WORKSHARE\n  !herbivory\n  herbivory(:,1)=grass_herbivory(:,1)*herb_seasonality(:,mo)\n  !yearly herbivory*seasonality scalar\n\n  WHERE ( herbivory(:,1) > hleafpool(:,1) )\n     herbivory(:,1)=hleafpool(:,1)\n  END WHERE\n\n\n  WHERE( hleafpool(:,1) /= 0e+0_fp )\n     f_carbonout_leaf(:,1)=herbivory(:,1)/hleafpool(:,1)\n  ELSEWHERE\n     f_carbonout_leaf(:,1)=0.0e+0_fp\n  END WHERE\n  \n  !deduct herbivory from leafpool\n  hleafpool(:,1)=hleafpool(:,1)-herbivory(:,1)\n  \n  !part of the consumed leaf will be returned as litter\n  carbonout_leaf(:,1)=herbivory(:,1)*(1.000-herbivoreEff)\n  \n  !part of the consumed leaf for maintenance\n  herbivory(:,1)=herbivory(:,1)-herbivory(:,1)*(1.000e+0_fp-herbivoreEff)\n  \n  hsurfstrpool(:,1)=hsurfstrpool(:,1)+carbonout_leaf(:,1)*(1.000e+0_fp-metabfract(:,1))\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)+carbonout_leaf(:,1)*metabfract(:,1)\n  \n  !all of the consumed Hg returned as litter\n  hgout_leaf(:,1)=hleafpool_hg(:,1)*f_carbonout_leaf(:,1)!*f_hg_emit(:,1)\n  hleafpool_hg(:,1)=hleafpool_hg(:,1)-hgout_leaf(:,1)\n  hsurfstrpool_Hg(:,1)=hsurfstrpool_Hg(:,1)+hgout_leaf(:,1)\n  \n  \n  !DECAY of biomass and litter, each of the following eqns\n  !have the following basic form:\n  !carbon pool size*rate constant *abiotic effect\n  !some may have more terms, but all are first order\n  carbonout_leaf(:,1)=hleafpool(:,1)*K_hleaf(:,1)*hlitterscalar(:,mo)\n  carbonout_froot(:,1)=hfrootpool(:,1)*K_hfroot(:,1)*hlitterscalar(:,mo)\n  carbonout_surfmet(:,1)=hsurfmetpool(:,1)*K_surfmet(:,1)*abiotic(:,mo)\n  carbonout_surfstr(:,1)=hsurfstrpool(:,1)*K_surfstr(:,1)*abiotic(:,mo)*lignineffect(:,1)\n  carbonout_soilmet(:,1)=hsoilmetpool(:,1)*K_soilmet(:,1)*abiotic(:,mo)\n  carbonout_soilstr(:,1)=hsoilstrpool(:,1)*K_soilstr(:,1)*abiotic(:,mo)*lignineffect(:,1)\n  carbonout_surfmic(:,1)=hsurfmicpool(:,1)*K_surfmic(:,1)*abiotic(:,mo)\n  carbonout_soilmic(:,1)=hsoilmicpool(:,1)*K_soilmic(:,1)*abiotic(:,mo)*soilmicDecayFactor(:,1)\n  carbonout_slow(:,1)=hslowpool(:,1)*K_slow(:,1)*abiotic(:,mo)\n  carbonout_armored(:,1)=harmoredpool(:,1)*K_armored(:,1)*abiotic(:,mo)\n  \n  hgout_leaf(:,1)=hleafpool_hg(:,1)*K_hleaf(:,1)*hlitterscalar(:,mo)!*f_hg_emit(:,1)!!\n  hgout_surfmet(:,1)=hsurfmetpool_hg(:,1)*K_surfmet(:,1)*f_hg_emit(:,1)*abiotic(:,mo)\n  hgout_surfmic(:,1)=hsurfmicpool_hg(:,1)*K_surfmic(:,1)*f_hg_emit(:,1)*abiotic(:,mo)\n  hgout_surfstr(:,1)=hsurfstrpool_hg(:,1)*K_surfstr(:,1)*f_hg_emit(:,1)*abiotic(:,mo)*lignineffect(:,1)\n  hgout_soilmet(:,1)=hsoilmetpool_hg(:,1)*K_soilmet(:,1)*f_hg_emit(:,1)*abiotic(:,mo)\n  hgout_soilmic(:,1)=hsoilmicpool_hg(:,1)*K_soilmic(:,1)*f_hg_emit(:,1)*abiotic(:,mo)*soilmicDecayFactor(:,1)\n  hgout_soilstr(:,1)=hsoilstrpool_hg(:,1)*K_soilstr(:,1)*f_hg_emit(:,1)*abiotic(:,mo)*lignineffect(:,1)\n  hgout_slow(:,1)   =hslowpool_hg(:,1)   *K_slow(:,1)*f_hg_emit(:,1)*abiotic(:,mo)\n  hgout_armored(:,1)=harmoredpool_hg(:,1)*K_armored(:,1)*f_hg_emit(:,1)*abiotic(:,mo)\n  \n  \n  !determine inputs into structural and metabolic pools from\n  !decaying living pools\n  \n  hsurfstrpool(:,1)=hsurfstrpool(:,1)+(carbonout_leaf(:,1))*(1.00-metabfract(:,1))\n  hsurfstrpool_hg(:,1)=hsurfstrpool_hg(:,1)+(hgout_leaf(:,1)*(1.00-metabfract(:,1)))\n  \n  hsoilstrpool(:,1)=hsoilstrpool(:,1)+(carbonout_froot(:,1))*(1.00-metabfract(:,1))\n  \n  hsurfmetpool(:,1)=hsurfmetpool(:,1)+(carbonout_leaf(:,1))*metabfract(:,1)\n  hsurfmetpool_hg(:,1)=hsurfmetpool_hg(:,1)+(hgout_leaf(:,1)*metabfract(:,1))\n  \n  hsoilmetpool(:,1)=hsoilmetpool(:,1)+(carbonout_froot(:,1))*metabfract(:,1)\n  \n  \n  hleafpool(:,1)=hleafpool(:,1)-carbonout_leaf(:,1)\n  hleafpool_hg(:,1)=hleafpool_hg(:,1)-hgout_leaf(:,1)\n  hfrootpool(:,1)=hfrootpool(:,1)-carbonout_froot(:,1)\n  hsurfstrpool(:,1)=hsurfstrpool(:,1)-carbonout_surfstr(:,1)\n  hsurfstrpool_hg(:,1)=hsurfstrpool_hg(:,1)-hgout_surfstr(:,1)\n  \n  !empty respiration pools at the beginning of the month\n  resppool_surfstr(:,1)=0.000e+0_fp\n  resppool_surfmet(:,1)=0.000e+0_fp\n  resppool_surfmic(:,1)=0.000e+0_fp\n  resppool_soilstr(:,1)=0.000e+0_fp\n  resppool_soilmet(:,1)=0.000e+0_fp\n  resppool_soilmic(:,1)=0.000e+0_fp\n  resppool_slow(:,1)=0.000e+0_fp\n  resppool_armored(:,1)=0.000e+0_fp\n  \n  resppool_surfstr_hg(:,1)=0.0e+0_fp\n  resppool_surfmet_hg(:,1)=0.0e+0_fp\n  resppool_surfmic_hg(:,1)=0.0e+0_fp\n  resppool_soilstr_hg(:,1)=0.0e+0_fp\n  resppool_soilmet_hg(:,1)=0.0e+0_fp\n  resppool_soilmic_hg(:,1)=0.0e+0_fp\n  resppool_slow_hg(:,1)=0.0e+0_fp\n  resppool_armored_hg(:,1)=0.0e+0_fp\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  tempb(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  !respiratory fluxes from every pool - temp\n  temp(:,1)=(carbonout_surfstr(:,1)*structuralLignin(:,1))&\n       *eff_surfstr2slow\n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  resppool_surfstr(:,1)=resppool_surfstr(:,1)+&\n       (temp(:,1)/eff_surfstr2slow)*(1.00e+0_fp-eff_surfstr2slow)\n  \n  WHERE (carbonout_surfstr(:,1) /= 0.0e+0_fp) \n     f_temp(:,1)=temp(:,1)/carbonout_surfstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  hslowpool_hg(:,1)=hslowpool_hg(:,1)+(hgout_surfstr(:,1)*f_temp(:,1))\n  \n  Hg_pool_fluxes1(:,mo)=Hg_pool_fluxes1(:,mo)+(hgout_surfstr(:,1)*f_temp(:,1)*frac_herb(:,1))\n  \n  tempa(:,1)=(temp(:,1)/eff_surfstr2slow)*(1-eff_surfstr2slow)\n  f_temp(:,1)=0.0e+0_fp\n\n  WHERE (carbonout_surfstr(:,1) /= 0.0e+0_fp) \n     f_temp(:,1)=tempa(:,1)/carbonout_surfstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  \n  resppool_surfstr_hg(:,1)=resppool_surfstr_hg(:,1)+(hgout_surfstr(:,1)*f_temp(:,1))\n  \n  temp(:,1)=0.000e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=(carbonout_surfstr(:,1)*(1.00e+0_fp-structuralLignin(:,1)))*eff_surfstr2surfmic\n\n  WHERE (carbonout_surfstr(:,1) /= 0.0e+0_fp) \n     f_temp(:,1)=temp(:,1)/carbonout_surfstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n         \n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  hsurfmicpool_hg(:,1)=hsurfmicpool_hg(:,1)+(hgout_surfstr(:,1)*f_temp(:,1))\n      \n  resppool_surfstr(:,1)=resppool_surfstr(:,1)+(temp(:,1)/eff_surfstr2surfmic)*(1.00-eff_surfstr2surfmic)\n  tempa(:,1)=(temp(:,1)/eff_surfstr2surfmic)*(1-eff_surfstr2surfmic)\n  \n  WHERE (carbonout_surfstr(:,1) /= 0.0e+0_fp) \n     f_temp(:,1)=tempa(:,1)/carbonout_surfstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_surfstr_hg(:,1)=resppool_surfstr_hg(:,1)+(f_temp(:,1)*hgout_surfstr(:,1))\n  \n  hsoilstrpool(:,1)=hsoilstrpool(:,1)-carbonout_soilstr(:,1)\n  hsoilstrpool_hg(:,1)=hsoilstrpool_hg(:,1)-hgout_soilstr(:,1)\n  \n  temp(:,1)=0.000e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_soilstr(:,1)*structuralLignin(:,1)*eff_soilstr2slow\n\n  WHERE (carbonout_soilstr(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=temp(:,1)/carbonout_soilstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  hslowpool_hg(:,1)=hslowpool_hg(:,1)+(hgout_soilstr(:,1)*f_temp(:,1))\n  \n  Hg_pool_fluxes3(:,mo)=Hg_pool_fluxes3(:,mo)+(hgout_soilstr(:,1)*f_temp(:,1)*frac_herb(:,1))\n  \n  resppool_soilstr(:,1)=resppool_soilstr(:,1)+(temp(:,1)/eff_soilstr2slow)*(1.00-eff_soilstr2slow)\n  tempa(:,1)=(temp(:,1)/eff_soilstr2slow)*(1.0e+0_fp-eff_soilstr2slow)\n  f_temp(:,1)=0.0e+0_fp\n\n  WHERE (carbonout_soilstr(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=tempa(:,1)/carbonout_soilstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_soilstr_hg(:,1)=resppool_soilstr_hg(:,1)+(f_temp(:,1)*hgout_soilstr(:,1))\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_soilstr(:,1)*(1.00e+0_fp-structuralLignin(:,1))*eff_soilstr2soilmic\n  \n  WHERE (carbonout_soilstr(:,1) /= 0.0e+0_fp) \n     f_temp(:,1)=temp(:,1)/carbonout_soilstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  hsoilmicpool(:,1)=hsoilmicpool(:,1)+temp(:,1)\n  hsoilmicpool_hg(:,1)=hsoilmicpool_hg(:,1)+(hgout_soilstr(:,1)*f_temp(:,1))\n  \n  resppool_soilstr(:,1)=resppool_soilstr(:,1)+(temp(:,1)/eff_soilstr2soilmic)*(1.000-eff_soilstr2soilmic)\n  tempa(:,1)=(temp(:,1)/eff_soilstr2soilmic)*(1.00e+0_fp-eff_soilstr2soilmic)\n  \n\n  WHERE (carbonout_soilstr(:,1) /= 0.0e+0_fp) \n     f_temp(:,1)=tempa(:,1)/carbonout_soilstr(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_soilstr_hg(:,1)=resppool_soilstr_hg(:,1)+(f_temp(:,1)*hgout_soilstr(:,1))\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_surfmet(:,1)*eff_surfmet2surfmic\n\n  WHERE (carbonout_surfmet(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=temp(:,1)/carbonout_surfmet(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  hsurfmetpool(:,1)=hsurfmetpool(:,1)-carbonout_surfmet(:,1)\n  hsurfmetpool_hg(:,1)=hsurfmetpool_hg(:,1)-hgout_surfmet(:,1)\n  \n  hsurfmicpool(:,1)=hsurfmicpool(:,1)+temp(:,1)\n  hsurfmicpool_hg(:,1)=hsurfmicpool_hg(:,1)+(f_temp(:,1)*hgout_surfmet(:,1))\n  \n  resppool_surfmet(:,1)=(temp(:,1)/eff_surfmet2surfmic)*(1.00e+0_fp-eff_surfmet2surfmic)\n  \n  tempa(:,1)=(temp(:,1)/eff_surfmet2surfmic)*(1.00e+0_fp-eff_surfmet2surfmic)\n\n  WHERE (carbonout_surfmet(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=tempa(:,1)/carbonout_surfmet(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  ENDWHERE\n  \n  resppool_surfmet_hg(:,1)=f_temp(:,1)*hgout_surfmet(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_soilmet(:,1)*eff_soilmet2soilmic\n\n  WHERE (carbonout_soilmet(:,1) /= 0.0e+0_fp)  \n     f_temp(:,1)=temp(:,1)/carbonout_soilmet(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  hsoilmetpool(:,1)=hsoilmetpool(:,1)-carbonout_soilmet(:,1)\n  hsoilmetpool_hg(:,1)=hsoilmetpool_hg(:,1)-hgout_soilmet(:,1)\n  \n  hsoilmicpool(:,1)=hsoilmicpool(:,1)+temp(:,1)\n  hsoilmicpool_hg(:,1)=hsoilmicpool_hg(:,1)+(f_temp(:,1)*hgout_soilmet(:,1))\n  \n  resppool_soilmet(:,1)=(temp(:,1)/eff_soilmet2soilmic)*(1.00e+0_fp-eff_soilmet2soilmic)\n  tempa(:,1)=(temp(:,1)/eff_surfmic2slow)*(1.0e+0_fp-eff_surfmic2slow)\n\n  WHERE (carbonout_soilmet(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=temp(:,1)/carbonout_soilmet(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_soilmet_hg(:,1)=hgout_soilmet(:,1)*f_temp(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_surfmic(:,1)*eff_surfmic2slow\n\n  WHERE (carbonout_surfmic(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=temp(:,1)/carbonout_surfmic(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  hsurfmicpool(:,1)=hsurfmicpool(:,1)-carbonout_surfmic(:,1)\n  hsurfmicpool_hg(:,1)=hsurfmicpool_hg(:,1)-hgout_surfmic(:,1)\n  \n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  hslowpool_hg(:,1)=hslowpool_hg(:,1)+(f_temp(:,1)*hgout_surfmic(:,1))\n  \n  Hg_pool_fluxes1(:,mo)=Hg_pool_fluxes1(:,mo)+(f_temp(:,1)*hgout_surfmic(:,1)*frac_herb(:,1))\n  \n  resppool_surfmic(:,1)=(temp(:,1)/eff_surfmic2slow)*(1.00e+0_fp-eff_surfmic2slow)\n  tempa(:,1)=(temp(:,1)/eff_surfmic2slow)*(1.00e+0_fp-eff_surfmic2slow)\n\n  WHERE (carbonout_surfmic(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=tempa(:,1)/carbonout_surfmic(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_surfmic_hg(:,1)=hgout_surfmic(:,1)*f_temp(:,1)\n  \n  resppool_soilmic(:,1)=eff_soilmic2slow(:,1)*carbonout_soilmic(:,1)\n\n  WHERE (carbonout_soilmic(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=resppool_soilmic(:,1)/carbonout_soilmic(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_soilmic_hg(:,1)=hgout_soilmic(:,1)*f_temp(:,1)\n  \n  hsoilmicpool(:,1)=hsoilmicpool(:,1)-carbonout_soilmic(:,1)\n  hsoilmicpool_hg(:,1)=hsoilmicpool_hg(:,1)-hgout_soilmic(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilmic(:,1)*(0.003e+0_fp+(0.032e+0_fp*clay(:,1)))\n  harmoredpool(:,1)=harmoredpool(:,1)+temp(:,1)\n  \n  tempb(:,1)=hgout_soilmic(:,1)*(0.003e+0_fp+(0.032e+0_fp*clay(:,1)))\n  harmoredpool_hg(:,1)=harmoredpool_hg(:,1)+tempb(:,1)\n  \n  Hg_pool_fluxes2(:,mo)=Hg_pool_fluxes2(:,mo)+(tempb(:,1)*frac_herb(:,1))\n  \n  tempa(:,1)=temp(:,1)\n  temp(:,1)=carbonout_soilmic(:,1)-tempa(:,1)-resppool_soilmic(:,1)\n  \n  hslowpool(:,1)=hslowpool(:,1)+temp(:,1)\n  \n  tempa(:,1)=tempb(:,1)\n  temp(:,1)=hgout_soilmic(:,1)-tempa(:,1)-resppool_soilmic_hg(:,1)\n  \n  hslowpool_hg(:,1)=hslowpool_hg(:,1)+temp(:,1)\n  \n  Hg_pool_fluxes3(:,mo)=Hg_pool_fluxes3(:,mo)+(temp(:,1)*frac_herb(:,1))\n  \n  resppool_slow(:,1)=carbonout_slow(:,1)*(1.00e+0_fp-eff_slow2soilmic)\n  \n  WHERE (carbonout_slow(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=resppool_slow(:,1)/carbonout_slow(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  resppool_slow_hg(:,1)=hgout_slow(:,1)*f_temp(:,1)\n  \n  hslowpool(:,1)=hslowpool(:,1)-carbonout_slow(:,1)\n  hslowpool_hg(:,1)=hslowpool_hg(:,1)-hgout_slow(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_slow(:,1)*eff_slow2soilmic*decayClayFactor(:,1)\n\n  WHERE (carbonout_slow(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=temp(:,1)/carbonout_slow(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  harmoredpool(:,1)=harmoredpool(:,1)+temp(:,1)\n  harmoredpool_hg(:,1)=harmoredpool_hg(:,1)+(f_temp(:,1)*hgout_slow(:,1))\n  \n  Hg_pool_fluxes4(:,mo)=Hg_pool_fluxes4(:,mo)+(f_temp(:,1)*hgout_slow(:,1)*frac_herb(:,1))\n  \n  tempa(:,1)=temp(:,1)\n  temp(:,1)=carbonout_slow(:,1)-resppool_slow(:,1)-tempa(:,1)\n  \n  hsoilmicpool(:,1)=hsoilmicpool(:,1)+temp(:,1)\n  \n  tempb(:,1)=f_temp(:,1)*hgout_slow(:,1)\n  temp(:,1)=hgout_slow(:,1)-resppool_slow_hg(:,1)-tempb(:,1)\n  \n  hsoilmicpool_hg(:,1)=hsoilmicpool_hg(:,1)+temp(:,1)\n  \n  Hg_pool_fluxes6(:,mo)=Hg_pool_fluxes6(:,mo)+(temp(:,1)*frac_herb(:,1))\n  \n  temp(:,1)=0.0e+0_fp\n  tempa(:,1)=0.0e+0_fp\n  tempb(:,1)=0.0e+0_fp\n  f_temp(:,1)=0.0e+0_fp\n  \n  temp(:,1)=carbonout_armored(:,1)*eff_armored2soilmic\n\n  WHERE (carbonout_armored(:,1) /= 0.0e+0_fp)\n     f_temp(:,1)=temp(:,1)/carbonout_armored(:,1)\n  ELSEWHERE\n     f_temp(:,1)=0.0e+0_fp\n  END WHERE\n  \n  harmoredpool(:,1)=harmoredpool(:,1)-carbonout_armored(:,1)\n  harmoredpool_hg(:,1)=harmoredpool_hg(:,1)-hgout_armored(:,1)\n  \n  hsoilmicpool(:,1)=hsoilmicpool(:,1)+temp(:,1)\n  hsoilmicpool_hg(:,1)=hsoilmicpool_hg(:,1)+(f_temp(:,1)*hgout_armored(:,1))\n  \n  Hg_pool_fluxes5(:,mo)=Hg_pool_fluxes5(:,mo)+(f_temp(:,1)*hgout_armored(:,1)*frac_herb(:,1))\n  \n  resppool_armored(:,1)=(temp(:,1)/eff_armored2soilmic)*(1.00e+0_fp-eff_armored2soilmic)\n  resppool_armored_hg(:,1)=hgout_armored(:,1)*(1.0e+0_fp-eff_armored2soilmic)\n  \n  !FIRES consume part of the pools depending on burn fraction \n  !(BF), combustion completeness (CC) and tree mortality rate\n  \n  combusted_leaf(:,1)=hleafpool(:,1)*BF1(:,mo)*ccLeaf(:,mo)\n  combusted_surfstr(:,1)=hsurfstrpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_surfmet(:,1)=hsurfmetpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_surfmic(:,1)=hsurfmicpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_soilstr(:,1)=hsoilstrpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_soilmet(:,1)=hsoilmetpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_soilmic(:,1)=hsoilmicpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_slow(:,1)=hslowpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_armored(:,1)=harmoredpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  \n  !FIRE: the non combusted parts\n  temp(:,1)=1.00e+0_fp\n  nonCombusted_leaf(:,1)=hleafpool(:,1)*BF1(:,mo)*(temp(:,1)-ccLeaf(:,mo))\n  nonCombusted_froot(:,1)=hfrootpool(:,1)*BF1(:,mo)*mortality_hfroot(:,1)\n  nonCombusted_leaf_hg(:,1)=0e+0_fp!hleafpool_hg(:,1)*BF1(:,mo)*(temp(:,1)-ccLeaf(:,mo))\n  \n  !FIRE flux from non combusted parts to other pools\n  \n  hsurfstrpool(:,1)=hsurfstrpool(:,1)+nonCombusted_leaf(:,1)*(1.00e+0_fp-metabfract(:,1))\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)+nonCombusted_leaf(:,1)*metabfract(:,1)\n  hsoilstrpool(:,1)=hsoilstrpool(:,1)+nonCombusted_froot(:,1)*(1.00e+0_fp-metabfract(:,1))\n  hsoilmetpool(:,1)=hsoilmetpool(:,1)+(nonCombusted_froot(:,1))*metabfract(:,1)\n  \n  \n  \n  !FIRE !!\n  hleafpool(:,1)=hleafpool(:,1)-combusted_leaf(:,1)-nonCombusted_leaf(:,1)\n  hfrootpool(:,1)=hfrootpool(:,1)-nonCombusted_froot(:,1)\n  hsurfstrpool(:,1)=hsurfstrpool(:,1)-combusted_surfstr(:,1)\n  hsurfmetpool(:,1)=hsurfmetpool(:,1)-combusted_surfmet(:,1)\n  hsurfmicpool(:,1)=hsurfmicpool(:,1)-combusted_surfmic(:,1)\n  !adding in soil pools\n  hsoilstrpool(:,1)=hsoilstrpool(:,1)-combusted_soilstr(:,1)\n  hsoilmetpool(:,1)=hsoilmetpool(:,1)-combusted_soilmet(:,1)\n  hsoilmicpool(:,1)=hsoilmicpool(:,1)-combusted_soilmic(:,1)\n  hslowpool(:,1)=hslowpool(:,1)-combusted_slow(:,1)\n  harmoredpool(:,1)=harmoredpool(:,1)-combusted_armored(:,1)\n  \n  resid=0.0e+0_fp\n  allowed=0.0e+0_fp\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\n  !Calculate Fluxes\n  IF (age_class .eq. 1) THEN\n     hresp(:,1)=0.0e+0_fp\n     hcomb(:,1)=0.0e+0_fp\n     hherb(:,1)=0.0e+0_fp\n     hresp_hg(:,1)=0.0e+0_fp\n     hcomb_hg(:,1)=0.0e+0_fp      \n  ENDIF\n  \n  IF (n_age_classes .eq. 1) THEN\n!$OMP PARALLEL       &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n     hresp(:,1)=resppool_surfstr(:,1)+resppool_surfmet(:,1)&\n          +resppool_surfmic(:,1)+resppool_soilstr(:,1) &     \n          +resppool_soilmet(:,1)+resppool_soilmic(:,1) &\n          +resppool_slow(:,1)+resppool_armored(:,1)\n     \n     resp_surfstr(:,mo)=resp_surfstr(:,mo)+resppool_surfstr(:,1)*frac_herb(:,1)\n     resp_surfmet(:,mo)=resp_surfmet(:,mo)+resppool_surfmet(:,1)*frac_herb(:,1)\n     resp_surfmic(:,mo)=resp_surfmic(:,mo)+resppool_surfmic(:,1)*frac_herb(:,1)\n     resp_soilstr(:,mo)=resp_soilstr(:,mo)+resppool_soilstr(:,1)*frac_herb(:,1)\n     resp_soilmet(:,mo)=resp_soilmet(:,mo)+resppool_soilmet(:,1)*frac_herb(:,1)\n     resp_soilmic(:,mo)=resp_soilmic(:,mo)+resppool_soilmic(:,1)*frac_herb(:,1)\n     resp_slow(:,mo)=resp_slow(:,mo)+resppool_slow(:,1)*frac_herb(:,1)\n     resp_armored(:,mo)=resp_armored(:,mo)+resppool_armored(:,1)*frac_herb(:,1)\n     \n     hresp_hg(:,1)=resppool_surfstr_hg(:,1)+resppool_surfmet_hg(:,1)&\n          +resppool_surfmic_hg(:,1)+resppool_soilstr_hg(:,1) &     \n          +resppool_soilmet_hg(:,1)+resppool_soilmic_hg(:,1) &\n          +resppool_slow_hg(:,1)+resppool_armored_hg(:,1)\n     \n     resp_surfstr_hg(:,mo)=resp_surfstr_hg(:,mo)+resppool_surfstr_hg(:,1)*frac_herb(:,1)\n     resp_surfmet_hg(:,mo)=resp_surfmet_hg(:,mo)+resppool_surfmet_hg(:,1)*frac_herb(:,1)\n     resp_surfmic_hg(:,mo)=resp_surfmic_hg(:,mo)+resppool_surfmic_hg(:,1)*frac_herb(:,1)\n     resp_soilstr_hg(:,mo)=resp_soilstr_hg(:,mo)+resppool_soilstr_hg(:,1)*frac_herb(:,1)\n     resp_soilmet_hg(:,mo)=resp_soilmet_hg(:,mo)+resppool_soilmet_hg(:,1)*frac_herb(:,1)\n     resp_soilmic_hg(:,mo)=resp_soilmic_hg(:,mo)+resppool_soilmic_hg(:,1)*frac_herb(:,1)\n     resp_slow_hg(:,mo)=resp_slow_hg(:,mo)+resppool_slow_hg(:,1)*frac_herb(:,1)\n     resp_armored_hg(:,mo)=resp_armored_hg(:,mo)+resppool_armored_hg(:,1)*frac_herb(:,1)\n     \n     hcomb(:,1)=combusted_leaf(:,1)+combusted_surfstr(:,1) &\n          +combusted_surfmet(:,1)+combusted_surfmic(:,1) &\n          +combusted_soilstr(:,1)+combusted_soilmet(:,1) &\n          +combusted_soilmic(:,1)+combusted_slow(:,1) &\n          +combusted_armored(:,1)\n     \n     hherb(:,1)=herbivory(:,1)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL \n  ELSE\n     IF (age_class .eq. 1) THEN\n        hresp(:,1)=0.0e+0_fp\n        hcomb(:,1)=0.0e+0_fp\n        hherb(:,1)=0.0e+0_fp\n     ENDIF\n!$OMP PARALLEL       &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n     hresp(:,1)=hresp(:,1)+(resppool_surfstr(:,1) & \n          +resppool_surfmet(:,1)+resppool_surfmic(:,1) &\n          +resppool_soilstr(:,1)+resppool_soilmet(:,1) &\n          +resppool_soilmic(:,1)+resppool_slow(:,1)    & \n          +resppool_armored(:,1))/number_age_classes\n     \n     hcomb(:,1)=hcomb(:,1)+(combusted_leaf(:,1)   &\n          +combusted_surfstr(:,1)+combusted_surfmet(:,1)&\n          +combusted_surfmic(:,1))/number_age_classes\n     \n     hherb(:,1)=hherb(:,1)+(herbivory(:,1)/number_age_classes)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL \n  \n  ENDIF\nEND SUBROUTINE doHerbCarbonHg\n!EOC\n!------------------------------------------------------------------------------\n\n"
  },
  {
    "path": "GTMM/doHerbivory.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doHerbivory\n!\n! !DESCRIPTION: Subroutine doHerbivory calculate herbivory analog to \n!  McNaughton (Science, 1989) as fraction of foliage NPP.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doHerbivory\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !REMARKS:\n!  Herbivory analog to McNaughton is computed as:\n!                                                                             .\n!     log C = 2.04*(log NFP)-4.8   -->  C = NFP^2.04*10^(-4.8)\n!                                                                             .\n!  where C= consumption, NFP = Net foliage production (NPP\n!  delivered to leaves)  units kJ/m2/yr\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization.\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n  INTEGER :: i\n  REAL(fp)  :: herb(n_veg, 1)\n  character(len=f_len_output+4) :: filename3\n  \n  filename3(1:f_len_output)=outputpath\n      \n  !converting kJ/m2/yr to gC/m2/yr\n  !\n  !NPP(j/m2/yr)=NPP(gC/m2/yr)*energy content/carbon content\n  !where energy content = 1.6*10^4\n  !and carbon content = 0.45\n  !\n  !so 1 gC/m2/yr = 35.5 kJ/m2/yr\n  !! 1/35.5 = 0.028\n  !\n\n  herb(:,1)=0.0e+0_fp\n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n  DO i=1, n_veg\n     herb(i,1)=0.028e+0_fp*(35.5e+0_fp*sum(NPP(i,1:12))/ &\n         2e+0_fp)**2.04e+0_fp\n     herb(i,1)=herb(i,1)*(10e+0_fp**(-4.8e+0_fp))\n     grass_herbivory(i,1)=herb(i,1)\n     herb(i,1)=0.0e+0_fp\n     herb(i,1)=0.028e+0_fp*(35.5e+0_fp*sum(NPP(i,1:12))/ &\n         3e+0_fp)**2.04e+0_fp\n     herb(i,1)=herb(i,1)*(10.00e+0_fp**(-4.8e+0_fp))\n     trees_herbivory(i,1)=herb(i,1)\n  END DO\n!$OMP END PARALLEL DO\n\n  !Seasonality in herbivory is calculated as in Randerson et al\n  !(GBC 1996) scaling linearly with npp (66%) with a non zero\n  !intercept (33%) representing a minimum consumption limit\n  !outside the growing season - scalar is equal for C3 and C4\n  !NPP\n  herb(1,:)=0.0e+0_fp\n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n  DO i=1, n_veg\n     IF (sum(NPP(i,1:12)) .eq. 0e+0_fp) THEN\n        herb(i,1)=(0.08333333333e+0_fp)\n     ELSE\n        herb(i,1)=0.666667e+0_fp*(NPP(i,mo)/sum(NPP(i,1:12)))+ &\n             0.33333e+0_fp*0.08333e+0_fp\n     END IF\n  END DO\n!$OMP END PARALLEL DO\n  herb_seasonality(:,mo)=herb(:,1)\n  \n  \n  IF (yr .eq. NPPequilibriumYear .and. mo .eq. 12) THEN\n     filename3(f_len_output+1:f_len_output+4)='fhsn'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) herb_seasonality\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='fgrh'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) grass_herbivory\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='ftrh'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) trees_herbivory\n     CLOSE(4)\n  ENDIF\nEND SUBROUTINE doHerbivory\n!EOC\n"
  },
  {
    "path": "GTMM/doHgDeposition.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doHgDeposition\n!\n! !DESCRIPTION: This subrouitine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doHgDeposition\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  25 Nov 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  REAL(fp)     :: photo_frac(n_veg, 1)\n      \n!!!!!   Hg0dry\n  !! 1 - deposited to leaf and soil surfaces\n  !! 2 - directly incorporated into leaf tissue via stomates\n  !! 3 - volatilized as a fxn of temperature\n\n!$OMP PARALLEL       &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n  fstom(:,1)=(LAI(:,mo)/5)  ! chosen to match Rea et al seasonal cycle\n\n  WHERE (fstom(:,1) > 1.0e+0_fp) \n     fstom(:,1)=1.0e+0_fp\n  END WHERE\n\n  fstom(:,1)=fstom(:,1)\n  fsoil(:,1)=1.00e+0_fp-fstom(:,1)\n  Hg0_surf_soil(:,1)=Hg0_surf_soil(:,1)+(Hg0dry(:,1)*fsoil(:,1))\n  leafpool_hg(:,1)=leafpool_hg(:,1)+(Hg0dry(:,1)*fstom(:,1))\n  hleafpool_hg(:,1)=hleafpool_hg(:,1)+(Hg0dry(:,1)*fstom(:,1))\n  !all elemental hg sitting in surface pools is volatilized each\n  !month\n  freemitted(:,1)=1.0e+0_fp\n  reemitted(:,1)=(freemitted(:,1)*Hg0_surf_soil(:,1))\n  \n  Hg0_surf_soil(:,1)=Hg0_surf_soil(:,1)-reemitted(:,1)\n!!! HgII dry\n  !! 1 - deposited to leaf and soil surfaces\n  !! 2 - directly incorporated into leaf tissue via stomates\n  !! 3 - photoreduced as fxn of T and light\n  !! 4 - washed off leaf and soil surfaces and added to HgIIwet\n  \n  ! for 1 same fleaf, fsoil and fstom as for Hg0dry\n  HgII_surf_soil(:,1)=HgII_surf_soil(:,1)+(HgIIdry(:,1)*fsoil(:,1))\n  leafpool_hg(:,1)=leafpool_hg(:,1)+(HgIIdry(:,1)*fstom(:,1))\n  hleafpool_hg(:,1)=hleafpool_hg(:,1)+(HgIIdry(:,1)*fstom(:,1))\n  \n  photo_frac(:,1)=0.667577e+0_fp*(1.0e+0_fp- &\n           exp(solrad1(:,mo)*(-1e+0_fp)*(0.01603e+0_fp)))\n  !photo_frac equation is fit to curve in Rolfhus and Fitzgerald \n  \n  WHERE (photo_frac(:,1) <= 0.0e+0_fp) \n     photo_frac(:,1)=0.0e+0_fp\n  END WHERE\n\n  photoreduced(:,1)=photo_frac(:,1)*(HgII_surf_soil(:,1))\n  \n  HgII_surf_soil(:,1)=HgII_surf_soil(:,1)-photoreduced(:,1)\n  \n  !photoreduce some wet deposition\n  temp_hg(:,1)=HgIIwet(:,1)*photo_frac(:,1)\n  photoreduced(:,1)=photoreduced(:,1)+temp_hg(:,1)\n  HgIIwet(:,1)=HgIIwet(:,1)-temp_hg(:,1)\n\n  WHERE (HgIIwet(:,1) < 0e+0_fp)\n     HgIIwet(:,1)=0.0e+0_fp\n  END WHERE\n\n  !if there is rain - wash off HgII and add to HgII wet pool  \n  WHERE (ppt1(:,mo) > 0e+0_fp .AND. airt1(:,mo) > 0e+0_fp)\n     HgIIwet(:,1)=HgIIwet(:,1)+HgII_surf_soil(:,1)\n     HgII_surf_soil(:,1)=0.0e+0_fp\n  END WHERE\n\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\nEND SUBROUTINE doHgDeposition\n!EOC\n"
  },
  {
    "path": "GTMM/doLatitude.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doLatitude\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doLatitude\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n!\n! !REVISION HISTORY:\n!\n! 01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i, j\n  REAL(fp)  :: startLatitude \n  \n  startLatitude=90.000e+0_fp-(180.000e+0_fp/rows)/2.000e+0_fp\n  \n  DO i=1,rows\n     latitude(:,i)=startLatitude\n     startLatitude=startLatitude-180.000e+0_fp/rows\n  END DO\n\n  !all latitudes north of 50N become 50, all south of 50S\n  !become -50\n  \n  DO i=1,rows\n     IF (latitude(1,i) .gt. 50e+0_fp) THEN \n        latitude(1:columns, i)=50e+0_fp\n     ELSE IF (latitude(i,1) .lt. -50e+0_fp) THEN\n        latitude(1:columns, i)=-50e+0_fp\n     ENDIF\n  END DO\n\n  latitude1=maskfile(latitude, mask2)\n  \nEND SUBROUTINE doLatitude\n!EOC\n"
  },
  {
    "path": "GTMM/doLeafRootShedding.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doLeafRootShedding\n!\n! !DESCRIPTION: \\subsection*{Overview}\n!  Subroutine doLeafRootShedding define the scalars that predict \n!  the seasonality of leaf shedding and root decay based on changes in LAI\n!  This needs improvement.\n!\n!\\subsection*{References}\n! Randerson, Thompson, Malmstrom, Field and Fung 1996, GBC 10(4) p585\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doLeafRootShedding\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i,j\n  character(len=f_len_output+4) :: filename3\n\n  filename3(1:f_len_output)=outputpath\n  \n  \n  MINLAI(:,1)=12.000e+0_fp\n\n  SUMLAI(:,1)=sum(lais(:,2:13),2)\n  \n  SUMLAInew(:,mo)=SUMLAI(:,1)\n  LTVARSUM(:,1)=0.0e+0_fp\n\n  DO i=13,2,-1\n!$OMP PARALLEL DO        &\n!$OMP DEFAULT(SHARED)    &\n!$OMP PRIVATE(j)\n     DO j=1, n_veg\n        IF (lais(j,i) .gt. lais(j,i-1)) THEN\n           LTVARSUM(j,1)=LTVARSUM(j,1)+(lais(j,i)-lais(j,i-1))\n        ENDIF\n        IF (lais(j,i) .gt. MAXLAI(j,1)) THEN\n           MAXLAI(j,1)=lais(j,i)\n        ENDIF\n        IF (lais(j,i) .lt. MINLAI(j,1)) THEN\n           MINLAI(j,1)=lais(j,i)\n        ENDIF\n     END DO\n!$OMP END PARALLEL DO\n  END DO\n      \n  AVELAI(:,1)=SUMLAI(:,1)/12.00000e+0_fp\n\n!$OMP PARALLEL DO        &\n!$OMP DEFAULT(SHARED)    &\n!$OMP PRIVATE(i)\n  DO i=1, n_veg\n     IF (AVELAI(i,1) .gt. 0e+0_fp) THEN\n        LTCON(i,1)=MINLAI(i,1)/AVELAI(i,1)\n     ELSE\n        LTCON(i,1)=0.0e+0_fp\n     ENDIF\n\n     IF (lais(i,2)-lais(i,1) .gt. 0e+0_fp) THEN\n        LTVAR(i,1)=(lais(i,2)-lais(i,1))\n     ELSE\n        LTVAR(i,1)=0.000e+0_fp\n     ENDIF\n\n     IF (LTVARSUM(i,1) .gt. 0e+0_fp) THEN\n        litterscalar(i,mo)=(LTCON(i,1)/12.000e+0_fp)+(1.000e+0_fp-LTCON(i,1))*(LTVAR(i,1)/LTVARSUM(i,1))\n     ELSE\n        litterscalar(i,mo)=0.000e+0_fp\n     ENDIF\n\n     IF(SUMLAI(i,1) .gt. 0e+0_fp) THEN\n        rootlitscalar(i,mo)=0.7e+0_fp*((litterscalar(i,mo)+LAI(i,mo)/SUMLAI(i,1))/2.000e+0_fp)+(0.3e+0_fp/12.000e+0_fp)\n     ELSE\n        rootlitscalar(i,mo)=0.000e+0_fp\n     ENDIF\n\n     hlitterscalar(i,mo)=0.500e+0_fp+(0.500e+0_fp-abiotic(i,mo)/2.00e+0_fp)\n  END DO\n!$OMP END PARALLEL DO\n  \n  IF (yr .eq. NPPequilibriumYear .and. mo .eq. 12) THEN\n     filename3(f_len_output+1:f_len_output+4)='fltc'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) LTCON\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='flvr'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) LTVARSUM\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='fl_i'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") LAI\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='frls'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") rootlitscalar\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='f_ls'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") litterscalar\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='fhls'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") hlitterscalar\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='fali'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) AVELAI\n     CLOSE(4)\n  ENDIF\n  \nEND SUBROUTINE doLeafRootShedding\n!EOC\n"
  },
  {
    "path": "GTMM/doMaxHg.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doMAXHg\n!\n! !DESCRIPTION: Calculates the maximum mercury storage (gHg/m2) for each soil\n!  pool\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doMAXHg\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n      \n!$OMP PARALLEL       &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n  max_hg_leaf(:,1)=0.0248e+0_fp*leafpool(:,1)\n  max_hg_surfstr(:,1)=0.0248e+0_fp*surfstrpool(:,1)\n  max_hg_surfmet(:,1)=0.0248e+0_fp*surfmetpool(:,1)\n  max_hg_surfmic(:,1)=0.0248e+0_fp*surfmicpool(:,1)\n  max_hg_soilstr(:,1)=0.0248e+0_fp*soilstrpool(:,1)\n  max_hg_soilmet(:,1)=0.0248e+0_fp*soilmetpool(:,1)\n  max_hg_soilmic(:,1)=0.0248e+0_fp*soilmicpool(:,1)\n  max_hg_slow(:,1)=0.0248e+0_fp*slowpool(:,1)\n  max_hg_armored(:,1)=0.0248e+0_fp*armoredpool(:,1)\n  \n  max_hg_hleaf(:,1)=0.0248e+0_fp*hleafpool(:,1)\n  max_hg_hsurfstr(:,1)=0.0248e+0_fp*hsurfstrpool(:,1)\n  max_hg_hsurfmet(:,1)=0.0248e+0_fp*hsurfmetpool(:,1)\n  max_hg_hsurfmic(:,1)=0.0248e+0_fp*hsurfmicpool(:,1)\n  max_hg_hsoilstr(:,1)=0.0248e+0_fp*hsoilstrpool(:,1)\n  max_hg_hsoilmet(:,1)=0.0248e+0_fp*hsoilmetpool(:,1)\n  max_hg_hsoilmic(:,1)=0.0248e+0_fp*hsoilmicpool(:,1)\n  max_hg_hslow(:,1)=0.0248e+0_fp*hslowpool(:,1)\n  max_hg_harmored(:,1)=0.0248e+0_fp*harmoredpool(:,1)\n!$OMP END WORKSHARE\n!$OMP END PARALLEL      \n      \nEND SUBROUTINE doMAXHg\n!EOC\n\n\n      \n"
  },
  {
    "path": "GTMM/doNPP.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doNPP\n!\n! !DESCRIPTION: Subroutin doNPP calculate net primary production (NPP)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doNPP\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i\n  character(len=f_len_output+4) :: filename3\n  \n  filename3(1:f_len_output)=outputpath\n  \n  !T1 is the temperature effect relating for each site the \n  !optimal temperature for highest NDVI (TOPT) to the temp\n  !considered to be generally the most optimal for \n  !photosynthesis, 20C.  T2 is the effect of variable air\n  !temperature throughout the year around TOPT\n\n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)  \n!$OMP DO PRIVATE(i)\n  DO i=1, n_veg\n     T1(i,1)=0.800e+0_fp+(0.0200e+0_fp*topt(i,1))-(0.0005e+0_fp &\n        *(topt(i,1)**2.000e+0_fp))\n     T2low(i,1)=1.00e+0_fp/(1.00e+0_fp+exp(0.200e+0_fp*(topt(i,1) &\n        -10.000e+0_fp-airt1(i,mo))))\n     T2high(i,1)=1.00e+0_fp/(1.00e+0_fp+exp(0.300e+0_fp*(airt1(i,mo) &\n        -10.000e+0_fp-topt(i,1))))\n     NPPtemp(i,1)=T1(i,1)*(1.1919e+0_fp*T2low(i,1)*T2high(i,1))\n     IF (T1(i,1)     .lt. 0e+0_fp .or.                                          &\n         T2low(i,1)  .lt. 0e+0_fp .or.                                          &\n         T2high(i,1) .lt. 0e+0_fp) THEN \n        NPPtemp(i,1)=0.00e+0_fp\n     ELSE IF (airt1(i,mo) .lt. -10e+0_fp) THEN\n        NPPtemp(i,1)=0.00e+0_fp\n     END IF\n\n     epsilona(i,1)=EMAX*NPPtemp(i,1)*NPPmoist(i,mo)\n     IPAR(i,1)=FPAR(i,mo)*solrad1(i,mo)*1.3148333e+0_fp !solarconversion\n     NPP(i,mo)=epsilona(i,1)*IPAR(i,1)\n  END DO\n!$OMP END DO\n\n!$OMP WORKSHARE\n  !derive abiotic effect for each timestep in the cycle\n  bgtemp(:,mo)=Q10**((airt1(:,mo)-30.000e+0_fp)/10.000e+0_fp)\n  abiotic(:,mo)=bgmoist(:,mo)*bgtemp(:,mo)\n  \n  WHERE (abiotic(:,mo) > 1e+0_fp)\n     abiotic(:,mo)=1.0e+0_fp\n  END WHERE\n\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\n\n  IF ( yr == NPPequilibriumYear .AND. mo == 12 ) THEN\n     filename3 = outputpath // 'NPP'\n     OPEN(UNIT=4, FILE=filename3, FORM=\"FORMATTED\", STATUS=\"NEW\")\n     WRITE(4,*) NPP\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4) = 'ABIO'\n     OPEN(UNIT=4, FILE=filename3, FORM=\"FORMATTED\", STATUS=\"NEW\")\n     WRITE(4,*) abiotic\n     CLOSE(4)\n     \n  ENDIF\n  \n  IF (yr .eq. 1 .and. mo .eq. 12) THEN\n     filename3(f_len_output+1:f_len_output+4)='bgtp'\n     OPEN(UNIT=4, FILE=filename3, FORM=\"FORMATTED\",&\n          STATUS=\"NEW\")\n     WRITE(4,*) bgtemp\n     CLOSE(4)\n  ENDIF\nEND SUBROUTINE doNPP\n!EOC\n"
  },
  {
    "path": "GTMM/doOptimumTemperature.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doOptimumTemperature\n!\n! !DESCRIPTION: Defines the optimum temperature; this is the air temperature\n!  in the month when the LAI is highest\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doOptimumTemperature\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i,j\n  character(len=f_len_output+4) :: filename3\n  \n  \n  filename3(1:f_len_output)=outputpath\n\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i)\n  DO i=1, n_veg\n     IF (LAI(i,mo) .ge. maxlai(i,1)) THEN\n        maxlai(i,1)=LAI(i,mo)\n        topt(i,1)=airt1(i,mo)\n     ENDIF\n     IF (topt(i,1) .lt. 0e+0_fp) THEN \n        topt(i,1)=0.00e+0_fp\n     ENDIF\n\n     IF (yr .eq. 1 .and. mo .eq. 1) THEN\n        DO j=1,13\n           lais(i,j)=LAI(i,mo)\n        END DO\n     ELSE \n        DO j=13,2,-1\n           lais(i,j)=lais(i,j-1)\n        END DO\n     END IF\n  END DO\n!$OMP END PARALLEL DO\n\n  lais(:,1)=LAI(:,mo)\n  \n  IF (yr .eq. NPPequilibriumYear .and. mo .eq. 12) THEN\n     filename3(f_len_output+1:f_len_output+4)='flis'\n     OPEN(UNIT=4, file=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4,FMT=\"(13F9.2)\") lais\n     CLOSE(4)\n     \n     filename3(f_len_output+1:f_len_output+4)='ftop'\n     OPEN(UNIT=4, file=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4,*) topt\n     CLOSE(4)\n  ENDIF\n  \nEND SUBROUTINE doOptimumTemperature\n!EOC\n"
  },
  {
    "path": "GTMM/doPET.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doPET\n!\n! !DESCRIPTION: Calculate potential evapotranspiration (PET) and the annual\n!  heat index (AHI)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doPET\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  REAL(fp)  :: YVAL=1.514\n  REAL(fp)  :: exps(n_veg, 1)\n  REAL(fp)  :: flambda(n_veg, 1)\n  INTEGER :: i\n      \n  IF (yr == 1) THEN\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i)\n     DO i=1,n_veg\n        fid(i,1)=0.000e+0_fp\n        fid(i,1)=airt1(i,mo)\n        IF (fid(i,1) .gt. 0e+0_fp) THEN\n           AHI(i,1)=AHI(i,1)+(fid(i,1)/5.000e+0_fp)**YVAL\n        END IF\n     END DO\n!$OMP END PARALLEL DO\n  END IF\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i)\n  DO i=1,n_veg\n     !calculates PET from air t, Flabbda and AHI\n     !taken from quantative hydrogeology by Ghislain De Marsily\n     !p 403\n     exps(i,1)=0.0e+0_fp\n     \n     exps(i,1)=6.75e-7_fp * (AHI(i,1)**3.00e+0_fp)\n     exps(i,1)=exps(i,1)-(7.71e-5_fp * (AHI(i,1)**2.00e+0_fp))\n     exps(i,1)=exps(i,1)+(1.79e-2_fp * (AHI(i,1)))\n     exps(i,1)=exps(i,1)+0.49239e+0_fp\n\n     !this equation predicts from the month of the year and \n     !the latitude what flambda shoudl be.  The coeffs above\n     !are from a cubic spline\n     flambda(i,1)=0.0e+0_fp\n     \n     flambda(i,1)=coef(1,mo)\n     flambda(i,1)=flambda(i,1)+(coef(2,mo)*latitude1(i,1))\n     flambda(i,1)=flambda(i,1)+(coef(3,mo)*latitude1(i,1)**2.00e+0_fp)\n     flambda(i,1)=flambda(i,1)+(coef(4,mo)*latitude1(i,1)**3.00e+0_fp)\n\n     fid(i,1)=0.0e+0_fp\n     IF (AHI(i,1).gt. 0e+0_fp .and. airt1(i,mo) .gt. 0e+0_fp) THEN\n        fid(i,1)=16.000e+0_fp*flambda(i,1)\n        fid(i,1)=fid(i,1)*(10.00e+0_fp*airt1(i,mo)/AHI(i,1))**exps(i,1)\n     ELSE\n        fid(i,1)=0e+0_fp\n     END IF\n\n     PET(i,1)=0.000e+0_fp\n     PET(i,1)=fid(i,1)\n     fid(i,1)=0.000e+0_fp\n\n  END DO\n!$OMP END PARALLEL DO\n  \nEND SUBROUTINE doPET\n!EOC\n"
  },
  {
    "path": "GTMM/doSoilMoisture.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doSoilMoisture\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doSoilMoisture\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n\n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i\n  CHARACTER(LEN=f_len_output+4) :: filename3\n  \n\n  filename3(1:f_len_output)=outputpath\n  !PLAN to have different moisture scalars for grass and trees\n      \n!$OMP PARALLEL        &\n!$OMP DEFAULT(SHARED) \n!$OMP DO PRIVATE(i)\n  !relative drying rate (rdr) algorithm\n  DO i=1,n_veg\n     rdr(i,1)=(1+SMparams(i,4))/((1+(SMparams(i,4)*(last_soilm(i,1)&\n          /SMparams(i,2))**SMparams(i,5))))\n     IF (ppt1(i,mo) .gt. PET(i,1)) THEN\n        rdr(i,1)=1.00e+0_fp ! rdr is 1 if PPT>PET\n     END IF\n  END DO\n!$OMP END DO\n!$OMP END PARALLEL\n      \n  IF (mo .eq. 1 .and. yr .eq. 1) THEN\n     last_pack(:,1)=0.000e+0_fp\n  ENDIF\n\n!$OMP PARALLEL    &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE \n  current_ppt(:,1)=ppt1(:,mo)\n  fid(:,1)=0.0e+0_fp\n  fid(:,1)=last_pack(:,1)+ppt1(:,mo) ! add this month's ppt to last\n                               !month's snowpack\n  WHERE (airt1(:,mo) < 0e+0_fp) \n     spack(:,1)=fid(:,1)  !snowpack gets last\n                          !month's snowpack and current ppt\n     current_ppt(:,1)=0.000e+0_fp !current ppt not avail to plants\n  END WHERE\n\n  fid(:,1)=current_ppt(:,1)+last_pack(:,1)  !add last month's snowpack to this\n                                            ! months ppt\n\n  WHERE (airt1(:,mo) >= 0e+0_fp)\n     current_ppt(:,1)=fid(:,1) ! current ppt increases\n     spack(:,1)=0.00e+0_fp            ! snowpack is melted \n  END WHERE\n      \n  !begin estimating evapotranspiration and calc new soil moist\n\n  !if pet exceeds ppt, eet is limited\n  eeta(:,1)=current_ppt(:,1)+((PET(:,1)-current_ppt(:,1))*rdr(:,1))\n  eetb(:,1)=current_ppt(:,1)+last_soilm(:,1)-SMparams(:,1)\n\n  !eet is the smallest of eeta and eetb\n  WHERE (eeta(:,1) > eetb(:,1))\n     EET(:,1)=eetb(:,1)\n  ELSEWHERE\n     EET(:,1)=eeta(:,1)\n  END WHERE\n\n  !if ppt exceeds pet, eet is not limited\n\n  WHERE (current_ppt(:,1) >= PET(:,1))\n     EET(:,1)=PET(:,1)\n  END WHERE\n\n  this_soilm(:,1)=last_soilm(:,1)+current_ppt(:,1)-EET(:,1)\n\n  WHERE (this_soilm(:,1) > SMparams(:,2)) ! soil m > runoff\n     this_soilm(:,1)=SMparams(:,2)\n  END WHERE\n      \n  \n  soilm(:,1)=this_soilm(:,1)\n      \n  fid(:,1)=fid(:,1)*0.0e+0_fp\n!  fid(:,1)=0.500e+0_fp+(0.500e+0_fp*(EET(:,1)/PET(:,1)))\n      \n  WHERE (PET(:,1) > 0e+0_fp)\n     fid(:,1)=0.500e+0_fp+(0.500e+0_fp*(EET(:,1)/PET(:,1)))\n     NPPmoist_temp(:,1)=fid(:,1)\n  END WHERE\n  bgratio(:,1)=(last_soilm(:,1)-SMparams(:,1))\n  bgratio(:,1)=bgratio(:,1)+current_ppt(:,1)\n  bgratio(:,1)=bgratio(:,1)/PET(:,1)\n\n  \n  fid(:,1)=fid(:,1)*0.0e+0_fp\n!$OMP END WORKSHARE\n\n!$OMP DO PRIVATE(i)      \n  DO i=1, n_veg\n     IF (bgratio(i,1) .ge. 0e+0_fp .and. bgratio(i,1) .lt. 1e+0_fp) & \n      THEN\n        fid(i,1)=0.10e+0_fp+(0.90e+0_fp*bgratio(i,1))\n        bgmoist_temp(i,1)=fid(i,1)\n     ELSE IF (bgratio(i,1) .ge. 1e+0_fp .and. bgratio(i,1) .le. 2e+0_fp) &\n      THEN\n        bgmoist_temp(i,1)=1.000e+0_fp\n     ELSE IF (bgratio(i,1) .gt. 2e+0_fp .and. bgratio(i,1) .lt. 30e+0_fp) &\n      THEN\n        fid(i,1)=(1+1/28.000e+0_fp)-((0.5e+0_fp/28.000e+0_fp)*bgratio(i,1))\n        bgmoist_temp(i,1)=fid(i,1)\n     ELSE IF (bgratio(i,1) .gt. 30e+0_fp) THEN\n        bgmoist_temp(i,1)=0.500e+0_fp\n     ENDIF\n\n     !set up moisture factors for NPP calculation and BG run \n     !in case PET is zero\n     IF (PET(i,1) .le. 0e+0_fp) THEN\n        NPPmoist_temp(i,1)=NPPmoistpret(i,1)\n        bgmoist_temp(i,1)=bgmoistpret(i,1)\n     ENDIF\n     NPPmoist(i,mo)=NPPmoist_temp(i,1)\n     bgmoist(i,mo)=bgmoist_temp(i,1)\n\n     !set snow pack, soil moisture, bgmoistpret, NPPmoistpret\n     !for next step\n  \n     last_pack(i,1)=spack(i,1)\n     last_soilm(i,1)=soilm(i,1)\n     bgmoistpret(i,1)=bgmoist(i,mo)\n     NPPmoistpret(i,1)=NPPmoist(i,mo)\n  END DO\n!$OMP END DO\n!$OMP END PARALLEL\n\nEND SUBROUTINE doSoilMoisture\n!EOC\n"
  },
  {
    "path": "GTMM/doTreeCarbon.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doTreeCarbon\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doTreeCarbon\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i\n  character(len=f_len_output+4) :: filename3\n  real(fp) :: tempa(n_veg, 1)\n  \n  filename3(1:f_len_output)=outputpath\n  \n!$OMP PARALLEL WORKSHARE   &\n!$OMP DEFAULT(SHARED)\n  !Woody vegetation carbon fluxes\n  !NPP: calculate inputs from NPP into living pools\n  leafinput(:,1)=0.0e+0_fp\n  woodinput(:,1)=0.0e+0_fp\n  frootinput(:,1)=0.0e+0_fp\n  \n  \n  leafinput(:,1)=NPP(:,mo)/3.000e+0_fp\n  woodinput(:,1)=NPP(:,mo)/3.000e+0_fp\n  frootinput(:,1)=NPP(:,mo)/3.000e+0_fp\n  \n  !NPP: transfer NPP into living biomass pools\n\n  leafpool(:,1)=leafpool(:,1)+leafinput(:,1)\n  abovewoodpool(:,1)=abovewoodpool(:,1)+woodinput(:,1)*aboveWoodFraction\n  belowwoodpool(:,1)=belowwoodpool(:,1)+woodinput(:,1)*(1.00e+0_fp-aboveWoodFraction)\n  frootpool(:,1)=frootpool(:,1)+frootinput(:,1)\n  \n  !herbivory\n  herbivory(:,1)=trees_herbivory(:,1)*herb_seasonality(:,mo)\n                !yearly herbivory*seasonality scalar\n\n  !in case herbivory exceeds leaf, lower herbivory\n  WHERE (herbivory(:,1) > leafpool(:,1))\n     herbivory(:,1)=leafpool(:,1)\n  END WHERE\n  \n  !deduct herbivory from leafpool\n  leafpool(:,1)=leafpool(:,1)-herbivory(:,1)\n  \n  !part of the consumed leaf will be returned as litter\n  carbonout_leaf(:,1)=herbivory(:,1)*(1.000e+0_fp-herbivoreEff)\n  \n  !part of the consumed leaf for maintenance\n  herbivory(:,1)=herbivory(:,1)-herbivory(:,1)*(1.000e+0_fp-herbivoreEff)\n  \n  surfstrpool(:,1)=surfstrpool(:,1)+carbonout_leaf(:,1)*(1.000e+0_fp-metabfract(:,1))\n  surfmetpool(:,1)=surfmetpool(:,1)+carbonout_leaf(:,1)*metabfract(:,1)\n  \n  \n  !DECAY of biomass and litter, each of the following eqns\n  !have the following basic form:\n  !carbon pool size*rate constant *abiotic effect\n  !some may have more terms, but all are first order\n  carbonout_leaf(:,1)=leafpool(:,1)*annK_leaf(:,1)*litterscalar(:,mo)\n  carbonout_abovewood(:,1)=abovewoodpool(:,1)*K_wood(:,1)\n  carbonout_belowwood(:,1)=belowwoodpool(:,1)*K_wood(:,1)\n  carbonout_froot(:,1)=frootpool(:,1)*annK_froot(:,1)*rootlitscalar(:,mo)\n  carbonout_cwd(:,1)=cwdpool(:,1)*K_cwd(:,1)*abiotic(:,mo)\n  carbonout_surfmet(:,1)=surfmetpool(:,1)*K_surfmet(:,1)*abiotic(:,mo)\n  carbonout_surfstr(:,1)=surfstrpool(:,1)*K_surfstr(:,1)*abiotic(:,mo)*lignineffect(:,1)\n  carbonout_soilmet(:,1)=soilmetpool(:,1)*K_soilmet(:,1)*abiotic(:,mo)\n  carbonout_soilstr(:,1)=soilstrpool(:,1)*K_soilstr(:,1)*abiotic(:,mo)*lignineffect(:,1)\n  carbonout_surfmic(:,1)=surfmicpool(:,1)*K_surfmic(:,1)*abiotic(:,mo)\n  carbonout_soilmic(:,1)=soilmicpool(:,1)*K_soilmic(:,1)*abiotic(:,mo)*soilmicDecayFactor(:,1)\n  carbonout_slow(:,1)=slowpool(:,1)*K_slow(:,1)*abiotic(:,mo)\n  carbonout_armored(:,1)=armoredpool(:,1)*K_armored(:,1)*abiotic(:,mo)\n  \n  !determine inputs into structural and metabolic pools from\n  !decaying living pools\n  \n  surfstrpool(:,1)=surfstrpool(:,1)+(carbonout_leaf(:,1)+& \n       carbonout_cwd(:,1))*(1.00e+0_fp-metabfract(:,1))\n  soilstrpool(:,1)=soilstrpool(:,1)+(carbonout_froot(:,1)+&\n       carbonout_belowwood(:,1))*(1.00e+0_fp-metabfract(:,1))\n  surfmetpool(:,1)=surfmetpool(:,1)+(carbonout_leaf(:,1)+&\n       carbonout_cwd(:,1))*metabfract(:,1)\n  soilmetpool(:,1)=soilmetpool(:,1)+(carbonout_froot(:,1)+&  \n       carbonout_belowwood(:,1))*metabfract(:,1)\n  cwdpool(:,1)=cwdpool(:,1)+carbonout_abovewood(:,1)\n  \n  leafpool(:,1)=leafpool(:,1)-carbonout_leaf(:,1)\n  abovewoodpool(:,1)=abovewoodpool(:,1)-carbonout_abovewood(:,1)\n  belowwoodpool(:,1)=belowwoodpool(:,1)-carbonout_belowwood(:,1)\n  frootpool(:,1)=frootpool(:,1)-carbonout_froot(:,1)\n  cwdpool(:,1)=cwdpool(:,1)-carbonout_cwd(:,1)\n  surfstrpool(:,1)=surfstrpool(:,1)-carbonout_surfstr(:,1)\n  \n  !empty respiration pools at the beginning of the month\n  resppool_surfstr(:,1)=0.000e+0_fp\n  resppool_surfmet(:,1)=0.000e+0_fp\n  resppool_surfmic(:,1)=0.000e+0_fp\n  resppool_soilstr(:,1)=0.000e+0_fp\n  resppool_soilmet(:,1)=0.000e+0_fp\n  resppool_soilmic(:,1)=0.000e+0_fp\n  resppool_slow(:,1)=0.000e+0_fp\n  resppool_armored(:,1)=0.000e+0_fp\n  \n  !respiratory fluxes from every pool - temp\n  temp(:,1)=(carbonout_surfstr(:,1)*structuralLignin(:,1))&\n       *eff_surfstr2slow\n  slowpool(:,1)=slowpool(:,1)+temp(:,1)\n  resppool_surfstr(:,1)=resppool_surfstr(:,1)+&\n       (temp(:,1)/eff_surfstr2slow)*(1.00e+0_fp-eff_surfstr2slow)\n  \n  temp(:,1)=0.000e+0_fp\n  temp(:,1)=(carbonout_surfstr(:,1)*(1.00e+0_fp-structuralLignin(:,1)))*eff_surfstr2surfmic\n  surfmicpool(:,1)=surfmicpool(:,1)+temp(:,1)\n  resppool_surfstr(:,1)=resppool_surfstr(:,1)+(temp(:,1)/eff_surfstr2surfmic)*(1.00e+0_fp-eff_surfstr2surfmic)\n  soilstrpool(:,1)=soilstrpool(:,1)-carbonout_soilstr(:,1)\n  \n  temp(:,1)=0.000e+0_fp\n  temp(:,1)=carbonout_soilstr(:,1)*structuralLignin(:,1)*eff_soilstr2slow\n  slowpool(:,1)=slowpool(:,1)+temp(:,1)\n  resppool_soilstr(:,1)=resppool_soilstr(:,1)+(temp(:,1)/eff_soilstr2slow)*(1.00-eff_soilstr2slow)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilstr(:,1)*(1.00e+0_fp-structuralLignin(:,1))*eff_soilstr2soilmic\n  soilmicpool(:,1)=soilmicpool(:,1)+temp(:,1)\n  resppool_soilstr(:,1)=resppool_soilstr(:,1)+(temp(:,1)/eff_soilstr2soilmic)*(1.000e+0_fp-eff_soilstr2soilmic)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_surfmet(:,1)*eff_surfmet2surfmic\n  surfmetpool(:,1)=surfmetpool(:,1)-carbonout_surfmet(:,1)\n  surfmicpool(:,1)=surfmicpool(:,1)+temp(:,1)\n  resppool_surfmet(:,1)=(temp(:,1)/eff_surfmet2surfmic)*(1.00e+0_fp-eff_surfmet2surfmic)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilmet(:,1)*eff_soilmet2soilmic\n  soilmetpool(:,1)=soilmetpool(:,1)-carbonout_soilmet(:,1)\n  soilmicpool(:,1)=soilmicpool(:,1)+temp(:,1)\n  resppool_soilmet(:,1)=(temp(:,1)/eff_soilmet2soilmic)*(1.00e+0_fp-eff_soilmet2soilmic)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_surfmic(:,1)*eff_surfmic2slow\n  surfmicpool(:,1)=surfmicpool(:,1)-carbonout_surfmic(:,1)\n  slowpool(:,1)=slowpool(:,1)+temp(:,1)\n  resppool_surfmic(:,1)=(temp(:,1)/eff_surfmic2slow)*(1.00e+0_fp-eff_surfmic2slow)\n\n  resppool_soilmic(:,1)=eff_soilmic2slow(:,1)*carbonout_soilmic(:,1)\n  soilmicpool(:,1)=soilmicpool(:,1)-carbonout_soilmic(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_soilmic(:,1)*(0.003e+0_fp+(0.032e+0_fp*clay(:,1)))\n  armoredpool(:,1)=armoredpool(:,1)+temp(:,1)\n  tempa(:,1)=temp(:,1)\n  temp(:,1)=carbonout_soilmic(:,1)-tempa(:,1)-resppool_soilmic(:,1)\n  \n  slowpool(:,1)=slowpool(:,1)+temp(:,1)\n  \n  resppool_slow(:,1)=carbonout_slow(:,1)*(1.00e+0_fp-eff_slow2soilmic)\n  slowpool(:,1)=slowpool(:,1)-carbonout_slow(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_slow(:,1)*eff_slow2soilmic*decayClayFactor(:,1)\n  armoredpool(:,1)=armoredpool(:,1)+temp(:,1)\n  \n  tempa(:,1)=temp(:,1)\n  temp(:,1)=carbonout_slow(:,1)-resppool_slow(:,1)-tempa(:,1)\n  soilmicpool(:,1)=soilmicpool(:,1)+temp(:,1)\n  \n  temp(:,1)=0.0e+0_fp\n  temp(:,1)=carbonout_armored(:,1)*eff_armored2soilmic\n  armoredpool(:,1)=armoredpool(:,1)-carbonout_armored(:,1)\n  soilmicpool(:,1)=soilmicpool(:,1)+temp(:,1)\n  \n  resppool_armored(:,1)=(temp(:,1)/eff_armored2soilmic)*(1.00e+0_fp-eff_armored2soilmic)\n\n  !FIRES consume part of the pools depending on burn fraction \n  !(BF), combustion completeness (CC) and tree mortality rate\n  \n  combusted_leaf(:,1)=leafpool(:,1)*BF1(:,mo)*ccLeaf(:,mo)*mortality_tree(:,1)\n  combusted_abovewood(:,1)=abovewoodpool(:,1)*BF1(:,mo)*ccWood(:,mo)*mortality_tree(:,1)\n  combusted_cwd(:,1)=cwdpool(:,1)*BF1(:,mo)*ccCWD(:,mo)\n  combusted_surfstr(:,1)=surfstrpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_surfmet(:,1)=surfmetpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n  combusted_surfmic(:,1)=surfmicpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)\n      \n  !adding in soil pools\n  combusted_soilstr(:,1)=soilstrpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_soilmet(:,1)=soilmetpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_soilmic(:,1)=soilmicpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_slow(:,1)=slowpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  combusted_armored(:,1)=armoredpool(:,1)*BF1(:,mo)*ccFineLitter(:,mo)*veg_burn(:,1)\n  \n  !FIRE: the non combusted parts\n  temp(:,1)=1.00e+0_fp\n  nonCombusted_leaf(:,1)=leafpool(:,1)*BF1(:,mo)*(temp(:,1)-ccLeaf(:,mo))*mortality_tree(:,1)\n  nonCombusted_abovewood(:,1)=abovewoodpool(:,1)*BF1(:,mo)*(temp(:,1)-ccWood(:,mo))*mortality_tree(:,1)\n  nonCombusted_belowwood(:,1)=belowwoodpool(:,1)*BF1(:,mo)*mortality_tree(:,1)\n  nonCombusted_froot(:,1)=frootpool(:,1)*BF1(:,mo)*mortality_tree(:,1)\n  \n  !FIRE flux from non combusted parts to other pools\n  \n  surfstrpool(:,1)=surfstrpool(:,1)+nonCombusted_leaf(:,1)*(1.00e+0_fp-metabfract(:,1))\n  surfmetpool(:,1)=surfmetpool(:,1)+nonCombusted_leaf(:,1)*metabfract(:,1)\n  soilstrpool(:,1)=soilstrpool(:,1)+(nonCombusted_froot(:,1)+nonCombusted_belowwood(:,1))*(1.00e+0_fp-metabfract(:,1))\n  soilmetpool(:,1)=soilmetpool(:,1)+(nonCombusted_froot(:,1)+nonCombusted_belowwood(:,1))*metabfract(:,1)\n  cwdpool(:,1)=cwdpool(:,1)+nonCombusted_abovewood(:,1)\n  \n  !FIRE !!\n  leafpool(:,1)=leafpool(:,1)-combusted_leaf(:,1)-nonCombusted_leaf(:,1)\n  abovewoodpool(:,1)=abovewoodpool(:,1)-combusted_abovewood(:,1)-nonCombusted_abovewood(:,1)\n  belowwoodpool(:,1)=belowwoodpool(:,1)-nonCombusted_belowwood(:,1)\n  frootpool(:,1)=frootpool(:,1)-nonCombusted_froot(:,1)\n  cwdpool(:,1)=cwdpool(:,1)-combusted_cwd(:,1)\n  surfstrpool(:,1)=surfstrpool(:,1)-combusted_surfstr(:,1)\n  surfmetpool(:,1)=surfmetpool(:,1)-combusted_surfmet(:,1)\n  surfmicpool(:,1)=surfmicpool(:,1)-combusted_surfmic(:,1)\n  soilstrpool(:,1)=soilstrpool(:,1)-combusted_soilstr(:,1)\n  soilmetpool(:,1)=soilmetpool(:,1)-combusted_soilmet(:,1)\n  soilmicpool(:,1)=soilmicpool(:,1)-combusted_soilmic(:,1)\n  slowpool(:,1)=slowpool(:,1)-combusted_slow(:,1)\n  armoredpool(:,1)=armoredpool(:,1)-combusted_armored(:,1)\n!$OMP END PARALLEL WORKSHARE\n      \n  !FUELWOOD COLLECTION      \n  IF (n_age_classes .eq. 1) THEN\n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n     DO i=1, n_veg\n        !fuelwood demand\n        fuelwoodout(i,1)=fuelwooddemand(i,1)+fuelshortage(i,1)\n        !in case demand exceeds availability\n        IF (fuelwoodout(i,1) .gt. cwdpool(i,1)) THEN\n           fuelwoodout(i,1)=cwdpool(i,1) !demand = avail\n           fuelshortage(i,1)=fuelshortage(i,1)-fuelwoodout(i,1)+cwdpool(i,1) \n           ! and shortage increases\n        END IF\n        !in case availability exceeds demand\n        IF (fuelwoodout(i,1) .lt. cwdpool(i,1)) THEN\n           !shortage decreases\n           fuelshortage(i,1)=fuelshortage(i,1)-cwdpool(i,1)+fuelwoodout(i,1)\n        END IF\n        IF (fuelshortage(i,1) .lt. 0e+0_fp) THEN\n           fuelshortage(i,1)=0.000e+0_fp\n        END IF\n\n        !fuelwood taken out of cwd pool\n        cwdpool(i,1)=cwdpool(i,1)-fuelwoodout(i,1) \n     END DO\n!$OMP END PARALLEL DO\n  ELSE\n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n     DO i=1, n_veg\n        fuelwoodout(i,1)=fuelwooddemand(i,1)\n        \n        IF (fuelwooddemand(i,1) .gt. cwdpool(i,1)) THEN\n           fuelwoodout(i,1)=cwdpool(i,1)\n        END IF\n        \n        cwdpool(i,1)=cwdpool(i,1)-fuelwoodout(i,1)\n     END DO\n!$OMP END PARALLEL DO\n  END IF\n\n  !Calculate Fluxes\n  IF (n_age_classes .eq. 1) THEN\n!$OMP PARALLEL WORKSHARE  &\n!$OMP DEFAULT(SHARED)\n     wresp(:,1)=resppool_surfstr(:,1)+resppool_surfmet(:,1)&\n          +resppool_surfmic(:,1)+resppool_soilstr(:,1) &     \n          +resppool_soilmet(:,1)+resppool_soilmic(:,1) &\n          +resppool_slow(:,1)+resppool_armored(:,1)\n     \n     wcomb(:,1)=combusted_leaf(:,1)+combusted_abovewood(:,1)&\n          +combusted_cwd(:,1)+combusted_surfstr(:,1) &\n          +combusted_surfmet(:,1)+combusted_surfmic(:,1) &\n          +combusted_soilstr(:,1)+combusted_soilmet(:,1) &\n          +combusted_soilmic(:,1)+combusted_slow(:,1) &\n          +combusted_armored(:,1)\n     \n     wherb(:,1)=herbivory(:,1)\n     wbiof(:,1)=fuelwoodout(:,1)\n!$OMP END PARALLEL WORKSHARE\n  ELSE\n     IF (age_class .eq. 1) THEN\n        wresp(:,1)=0.0e+0_fp\n        wcomb(:,1)=0.0e+0_fp\n        wherb(:,1)=0.0e+0_fp\n        wbiof(:,1)=0.0e+0_fp\n     ENDIF\n!$OMP PARALLEL WORKSHARE  &\n!$OMP DEFAULT(SHARED)\n     wresp(:,1)=wresp(:,1)+(resppool_surfstr(:,1) & \n          +resppool_surfmet(:,1)+resppool_surfmic(:,1) &\n          +resppool_soilstr(:,1)+resppool_soilmet(:,1) &\n          +resppool_soilmic(:,1)+resppool_slow(:,1)    & \n          +resppool_armored(:,1))/number_age_classes\n     \n     wcomb(:,1)=wcomb(:,1)+(combusted_leaf(:,1)   &\n          +combusted_abovewood(:,1)+combusted_cwd(:,1) &\n          +combusted_surfstr(:,1)+combusted_surfmet(:,1)&\n          +combusted_surfmic(:,1))/number_age_classes\n     \n     wherb(:,1)=wherb(:,1)+(herbivory(:,1)/number_age_classes)\n     wbiof(:,1)=wbiof(:,1)+(fuelwoodout(:,1)/number_age_classes)\n!$OMP END PARALLEL WORKSHARE      \n  ENDIF\nEND SUBROUTINE doTreeCarbon\n!EOC\n"
  },
  {
    "path": "GTMM/doTreeCarbonHg.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doTreeCarbonHg\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE doTreeCarbonHg\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Adapted for restarting simulations. \n!                              Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i\n  character(len=f_len_output+4) :: filename3\n  real(fp) :: tempb(n_veg, 1)\n  real(fp) :: tempa(n_veg, 1)\n  real(fp) :: f_temp(n_veg, 1)\n  real(fp) :: resid\n  real(fp) :: allowed, max_test\n  real(fp) :: f_surf_str(n_veg, 1)\n  real(fp) :: f_soil_str(n_veg, 1)\n  real(fp) :: f_surf_met(n_veg, 1)\n  real(fp) :: f_soil_met(n_veg, 1)\n  real(fp) :: f_surf_mic(n_veg, 1)\n  real(fp) :: f_soil_mic(n_veg, 1)\n  real(fp) :: f_armd(n_veg, 1)\n  real(fp) :: f_slow(n_veg, 1)\n  real(fp) :: TotalC(n_veg, 1)\n  real(fp) :: f_hg_emit(n_veg, 1)\n  real(fp) :: surf_str_input(n_veg, 1)\n  real(fp) :: soil_str_input(n_veg, 1)\n  real(fp) :: surf_met_input(n_veg, 1)\n  real(fp) :: soil_met_input(n_veg, 1)\n  real(fp) :: surf_mic_input(n_veg, 1)\n  real(fp) :: soil_mic_input(n_veg, 1)\n  real(fp) :: slow_input(n_veg, 1)\n  real(fp) :: armd_input(n_veg, 1)\n  real(fp) :: max_pools(n_veg,4)\n  real(fp) :: excess(n_veg, 1)\n  \n  filename3(1:f_len_output)=outputpath\n\n  !Woody vegetation carbon fluxes\n  !NPP: calculate inputs from NPP into living pools\n!$OMP PARALLEL WORKSHARE  &\n!$OMP DEFAULT(SHARED)\n  leafinput(:,1)=0.0e+0_fp\n  woodinput(:,1)=0.0e+0_fp\n  frootinput(:,1)=0.0e+0_fp\n  resid=0.0e+0_fp\n  f_hg_emit(:,1)=decompHgEff\n  \n  leafinput(:,1)=NPP(:,mo)*0.33e+0_fp\n  woodinput(:,1)=NPP(:,mo)*0.33e+0_fp\n  frootinput(:,1)=NPP(:,mo)*0.33e+0_fp\n!$OMP END PARALLEL WORKSHARE\n\n  \n  IF (mo .eq. 1) THEN\n!$OMP PARALLEL WORKSHARE   &\n!$OMP DEFAULT(SHARED)\n     Hg_pool_fluxes1(:,:)=0.0e+0_fp\n     Hg_pool_fluxes2(:,:)=0.0e+0_fp\n     Hg_pool_fluxes3(:,:)=0.0e+0_fp\n     Hg_pool_fluxes4(:,:)=0.0e+0_fp\n     Hg_pool_fluxes5(:,:)=0.0e+0_fp\n     Hg_pool_fluxes6(:,:)=0.0e+0_fp\n!$OMP END PARALLEL WORKSHARE    \n  ENDIF\n\t      \n  !NPP: transfer NPP into living biomass pools\n      \n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i)\n  DO i=1,n_veg\n     leafpool(i,1)=leafpool(i,1)+leafinput(i,1)\n     abovewoodpool(i,1)=abovewoodpool(i,1)+woodinput(i,1)*aboveWoodFraction\n     belowwoodpool(i,1)=belowwoodpool(i,1)+woodinput(i,1)*(1.00e+0_fp-aboveWoodFraction)\n     frootpool(i,1)=frootpool(i,1)+frootinput(i,1)\n\n!!!!!  Transfer wet deposition to carbon pools\n!!!!!  based on relative wt of carbon in each pool\n     f_surf_str(i,1)=0.0e+0_fp\n     f_surf_met(i,1)=0.0e+0_fp\n     f_surf_mic(i,1)=0.0e+0_fp\n     f_soil_str(i,1)=0.0e+0_fp\n     f_soil_met(i,1)=0.0e+0_fp\n     f_soil_mic(i,1)=0.0e+0_fp\n     f_slow(i,1)=0.0e+0_fp\n     f_armd(i,1)=0.0e+0_fp\n     totalC(i,1)=soilstrpool(i,1)+surfstrpool(i,1)\n     totalC(i,1)=totalC(i,1)+slowpool(i,1)+armoredpool(i,1)\n\n     IF (totalC(i,1) .ne. 0e+0_fp) THEN\n        f_surf_str(i,1)=surfstrpool(i,1) / totalC(i,1)\n        f_soil_str(i,1)=soilstrpool(i,1) / totalC(i,1)\n        f_slow(i,1)=slowpool(i,1)    / totalC(i,1)\n        f_armd(i,1)=armoredpool(i,1) / totalC(i,1)\n     ENDIF\n     \n     !Here I am assuming that Hg binds with equal affinity to\n     !all structural carbon pools\n     \n     surf_str_input(i,1)=HgIIwet(i,1)*f_surf_str(i,1)\n     soil_str_input(i,1)=HgIIwet(i,1)*f_soil_str(i,1)\n     slow_input(i,1)=HgIIwet(i,1)*f_slow(i,1)\n     armd_input(i,1)=HgIIwet(i,1)*f_armd(i,1)\n     \n     surfstrpool_Hg(i,1)=surfstrpool_Hg(i,1)+surf_str_input(i,1)\n     soilstrpool_Hg(i,1)=soilstrpool_Hg(i,1)+soil_str_input(i,1)\n     slowpool_Hg(i,1)  =slowpool_Hg(i,1)    +slow_input(i,1)\n     armoredpool_Hg(i,1)=armoredpool_Hg(i,1)+armd_input(i,1) \n     \n     !now, if any of the pools exceeds the maximum allowed\n     !pool size, transfer the remainder to other pools\n     !and if all are full, transfer to HgAq pool\n     \n     f_surf_str(i,1)=0.0e+0_fp\n     f_surf_met(i,1)=0.0e+0_fp\n     f_surf_mic(i,1)=0.0e+0_fp\n     f_soil_str(i,1)=0.0e+0_fp\n     f_soil_met(i,1)=0.0e+0_fp\n     f_soil_mic(i,1)=0.0e+0_fp\n     f_slow(i,1)=0.0e+0_fp\n     f_armd(i,1)=0.0e+0_fp\n     surf_str_input(i,1)=0.0e+0_fp\n     soil_str_input(i,1)=0.0e+0_fp\n     surf_met_input(i,1)=0.0e+0_fp\n     soil_met_input(i,1)=0.0e+0_fp\n     surf_mic_input(i,1)=0.0e+0_fp\n     soil_mic_input(i,1)=0.0e+0_fp\n     slow_input(i,1)=0.0e+0_fp\n     armd_input(i,1)=0.00e+0_fp\n     excess(i,1)=0.0e+0_fp\n     \n     surf_str_input(i,1)=max_hg_surfstr(i,1)-surfstrpool_Hg(i,1)\n     soil_str_input(i,1)=max_hg_soilstr(i,1)-soilstrpool_Hg(i,1)\n     slow_input(i,1)=max_hg_slow(i,1)   -slowpool_Hg(i,1)\n     armd_input(i,1)=max_hg_armored(i,1)-armoredpool_Hg(i,1)\n  ENDDO\n!$OMP END PARALLEL DO\n\n!$OMP PARALLEL DO      &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i, max_test)      \n  DO i=1, n_veg\n     max_pools(i,:)=1.0e+0_fp \n     IF (surf_str_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+surf_str_input(i,1)\n        max_pools(i,1)=0e+0_fp\n     ENDIF\n     IF (soil_str_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+soil_str_input(i,1)\n        max_pools(i,2)=0e+0_fp\n     ENDIF\n     IF (slow_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+slow_input(i,1)\n        max_pools(i,3)=0e+0_fp\n     ENDIF\n     IF (armd_input(i,1) .lt. 0.0e+0_fp) THEN \n        excess(i,1)=excess(i,1)+armd_input(i,1)\n        max_pools(i,4)=0e+0_fp\n     ENDIF\n     max_test=sum(max_pools(i,:))\n     IF (excess(i,1) .lt. 0.0e+0_fp .and. max_test .eq. 0e+0_fp) THEN \n        surfstrpool_Hg(i,1)=max_hg_surfstr(i,1)\n        soilstrpool_Hg(i,1)=max_hg_soilstr(i,1)\n        slowpool_Hg(i,1)=max_hg_slow(i,1)\n        armoredpool_Hg(i,1)=max_hg_armored(i,1)\n        HgAq(i,1)=HgAq(i,1)+excess(i,1)*(-1.0e+0_fp)\n        excess(i,1)=0.0e+0_fp\n     ELSE IF (excess(i,1) .lt. 0.0e+0_fp .and. max_test .gt. 0e+0_fp) THEN \n        totalC(i,1)=(soilstrpool(i,1)*max_pools(i,2))+(surfstrpool(i,1)*max_pools(i,1))\n        totalC(i,1)=totalC(i,1)+(slowpool(i,1)*max_pools(i,3))+(armoredpool(i,1)*max_pools(i,4))\n        \n        IF (totalC(i,1) .ne. 0e+0_fp) THEN\n           f_surf_str(i,1)=(surfstrpool(i,1)*max_pools(i,1)) / totalC(i,1)\n           f_soil_str(i,1)=(soilstrpool(i,1)*max_pools(i,2)) / totalC(i,1)\n           f_slow(i,1)=(slowpool(i,1)*max_pools(i,3))    / totalC(i,1)\n           f_armd(i,1)=(armoredpool(i,1)*max_pools(i,4)) / totalC(i,1)\n        ELSE !if there is no carbon transfer everything to HgAq\n           HgAq(i,1)=HgAq(i,1)+excess(i,1)*(-1.0e+0_fp)\n           excess(i,1)=0.0e+0_fp \n        END IF\n        \n        surfstrpool_Hg(i,1)=surfstrpool_Hg(i,1)+f_surf_str(i,1)*(-1.0e+0_fp)*excess(i,1)\n        soilstrpool_Hg(i,1)=soilstrpool_Hg(i,1)+f_soil_str(i,1)*(-1.0e+0_fp)*excess(i,1)\n        slowpool_Hg(i,1)=slowpool_Hg(i,1)+f_slow(i,1)*(-1.0e+0_fp)*excess(i,1)\n        armoredpool_Hg(i,1)=armoredpool_Hg(i,1)+f_armd(i,1)*(-1.0e+0_fp)*excess(i,1)\n        excess(i,1)=0.0e+0_fp\n     ENDIF\n\t\t\n     !herbivory\n     herbivory(i,1)=trees_herbivory(i,1)*herb_seasonality(i,mo)\n     !yearly herbivory*seasonality scalar\n     !in case herbivory exceeds leaf, lower herbivory\n     IF (herbivory(i,1) .gt. leafpool(i,1)) THEN\n        herbivory(i,1)=leafpool(i,1)\n     ENDIF\n\n     !in case herbivory exceeds leaf, lower herbivory\n     IF (leafpool(i,1) .ne. 0.0e+0_fp) THEN\n        f_carbonout_leaf(i,1)=herbivory(i,1)/leafpool(i,1)\n     ELSE\n        f_carbonout_leaf(i,1)=0.0e+0_fp\n     ENDIF\n\n     !deduct herbivory from leafpool\n     leafpool(i,1)=leafpool(i,1)-herbivory(i,1)\n     \n     !part of the consumed leaf will be returned as litter\n     carbonout_leaf(i,1)=herbivory(i,1)*(1.000e+0_fp-herbivoreEff)\n     \n     !part of the consumed leaf for maintenance\n     herbivory(i,1)=herbivory(i,1)-herbivory(i,1)*(1.000e+0_fp-herbivoreEff)\n     \n     surfstrpool(i,1)=surfstrpool(i,1)+carbonout_leaf(i,1)*(1.000e+0_fp-metabfract(i,1))\n     surfmetpool(i,1)=surfmetpool(i,1)+carbonout_leaf(i,1)*metabfract(i,1)\n     \n     !all of the Herbivory consumed Hg returned as litter\n     hgout_leaf(i,1)=leafpool_hg(i,1)*f_carbonout_leaf(i,1)!*f_hg_emit(i,1)\n     leafpool_hg(i,1)=leafpool_hg(i,1)-hgout_leaf(i,1)\n     surfstrpool_Hg(i,1)=surfstrpool_Hg(i,1)+hgout_leaf(i,1)\n      \n\n     !DECAY of biomass and litter, each of the following eqns\n     !have the following basic formi\n     !carbon pool size*rate constant *abiotic effect\n     !some may have more terms, but all are first order\n     carbonout_leaf(i,1)=leafpool(i,1)*annK_leaf(i,1)*litterscalar(i,mo)\n     carbonout_abovewood(i,1)=abovewoodpool(i,1)*K_wood(i,1)\n     carbonout_belowwood(i,1)=belowwoodpool(i,1)*K_wood(i,1)\n     carbonout_froot(i,1)=frootpool(i,1)*annK_froot(i,1)*rootlitscalar(i,mo)\n     carbonout_cwd(i,1)=cwdpool(i,1)*K_cwd(i,1)*abiotic(i,mo)\n     carbonout_surfmet(i,1)=surfmetpool(i,1)*K_surfmet(i,1)*abiotic(i,mo)\n     carbonout_surfstr(i,1)=surfstrpool(i,1)*K_surfstr(i,1)*abiotic(i,mo)*lignineffect(i,1)\n     carbonout_soilmet(i,1)=soilmetpool(i,1)*K_soilmet(i,1)*abiotic(i,mo)\n     carbonout_soilstr(i,1)=soilstrpool(i,1)*K_soilstr(i,1)*abiotic(i,mo)*lignineffect(i,1)\n     carbonout_surfmic(i,1)=surfmicpool(i,1)*K_surfmic(i,1)*abiotic(i,mo)\n     carbonout_soilmic(i,1)=soilmicpool(i,1)*K_soilmic(i,1)*abiotic(i,mo)*soilmicDecayFactor(i,1)\n     carbonout_slow(i,1)=slowpool(i,1)*K_slow(i,1)*abiotic(i,mo)\n     carbonout_armored(i,1)=armoredpool(i,1)*K_armored(i,1)*abiotic(i,mo)\n     \n     hgout_leaf(i,1)=leafpool_hg(i,1)*annK_leaf(i,1)*litterscalar(i,mo)!*f_hg_emit(i,1)\n     hgout_surfmet(i,1)=surfmetpool_hg(i,1)*K_surfmet(i,1)*f_hg_emit(i,1)*abiotic(i,mo)\n     hgout_surfstr(i,1)=surfstrpool_hg(i,1)*K_surfstr(i,1)*f_hg_emit(i,1)*abiotic(i,mo)*lignineffect(i,1)\n     hgout_soilmet(i,1)=soilmetpool_hg(i,1)*K_soilmet(i,1)*f_hg_emit(i,1)*abiotic(i,mo)\n     hgout_soilstr(i,1)=soilstrpool_hg(i,1)*K_soilstr(i,1)*f_hg_emit(i,1)*abiotic(i,mo)*lignineffect(i,1)\n     hgout_surfmic(i,1)=surfmicpool_hg(i,1)*K_surfmic(i,1)*f_hg_emit(i,1)*abiotic(i,mo)\n     hgout_soilmic(i,1)=soilmicpool_hg(i,1)*K_soilmic(i,1)*f_hg_emit(i,1)*abiotic(i,mo)*soilmicDecayFactor(i,1)\n     hgout_slow(i,1)=slowpool_hg(i,1)*K_slow(i,1)*f_hg_emit(i,1)*abiotic(i,mo)\n     hgout_armored(i,1)=armoredpool_hg(i,1)*K_armored(i,1)*f_hg_emit(i,1)*abiotic(i,mo)\n\n \n     !determine inputs into structural and metabolic pools from\n     !decaying living pools\n     \n     surfstrpool(i,1)=surfstrpool(i,1)+(carbonout_leaf(i,1)+& \n          carbonout_cwd(i,1))*(1.00e+0_fp-metabfract(i,1))\n     surfstrpool_hg(i,1)=surfstrpool_hg(i,1)+(hgout_leaf(i,1)*&\n          (1.00e+0_fp-metabfract(i,1)))\n     \n     soilstrpool(i,1)=soilstrpool(i,1)+(carbonout_froot(i,1)+&\n          carbonout_belowwood(i,1))*(1.00e+0_fp-metabfract(i,1))\n     \n     surfmetpool(i,1)=surfmetpool(i,1)+(carbonout_leaf(i,1)+&\n          carbonout_cwd(i,1))*metabfract(i,1)\n     surfmetpool_hg(i,1)=surfmetpool_hg(i,1)+(hgout_leaf(i,1)*metabfract(i,1))\n     \n     soilmetpool(i,1)=soilmetpool(i,1)+(carbonout_froot(i,1)+&  \n          carbonout_belowwood(i,1))*metabfract(i,1)\n           \n     cwdpool(i,1)=cwdpool(i,1)+carbonout_abovewood(i,1)\n     \n     leafpool(i,1)=leafpool(i,1)-carbonout_leaf(i,1)\n     leafpool_hg(i,1)=leafpool_hg(i,1)-hgout_leaf(i,1)\n     abovewoodpool(i,1)=abovewoodpool(i,1)-carbonout_abovewood(i,1)\n     belowwoodpool(i,1)=belowwoodpool(i,1)-carbonout_belowwood(i,1)\n     frootpool(i,1)=frootpool(i,1)-carbonout_froot(i,1)\n     cwdpool(i,1)=cwdpool(i,1)-carbonout_cwd(i,1)\n     surfstrpool(i,1)=surfstrpool(i,1)-carbonout_surfstr(i,1)\n     surfstrpool_hg(i,1)=surfstrpool_hg(i,1)-hgout_surfstr(i,1)\n     soilstrpool(i,1)=soilstrpool(i,1)-carbonout_soilstr(i,1)\n     soilstrpool_hg(i,1)=soilstrpool_hg(i,1)-hgout_soilstr(i,1)\n     surfmetpool(i,1)=surfmetpool(i,1)-carbonout_surfmet(i,1)\n     surfmetpool_hg(i,1)=surfmetpool_hg(i,1)-hgout_surfmet(i,1)\n     soilmetpool(i,1)=soilmetpool(i,1)-carbonout_soilmet(i,1)\n     soilmetpool_hg(i,1)=soilmetpool_hg(i,1)-hgout_soilmet(i,1)\n     surfmicpool(i,1)=surfmicpool(i,1)-carbonout_surfmic(i,1)\n     surfmicpool_hg(i,1)=surfmicpool_hg(i,1)-hgout_surfmic(i,1)\n     soilmicpool(i,1)=soilmicpool(i,1)-carbonout_soilmic(i,1)\n     soilmicpool_hg(i,1)=soilmicpool_hg(i,1)-hgout_soilmic(i,1)\n     slowpool(i,1)=slowpool(i,1)-carbonout_slow(i,1)\n     slowpool_hg(i,1)=slowpool_hg(i,1)-hgout_slow(i,1)\n     armoredpool(i,1)=armoredpool(i,1)-carbonout_armored(i,1)\n     armoredpool_hg(i,1)=armoredpool_hg(i,1)-hgout_armored(i,1)\n     \n     \n     !empty respiration pools at the beginning of the month\n     resppool_surfstr(i,1)=0.000e+0_fp\n     resppool_surfmet(i,1)=0.000e+0_fp\n     resppool_surfmic(i,1)=0.000e+0_fp\n     resppool_soilstr(i,1)=0.000e+0_fp\n     resppool_soilmet(i,1)=0.000e+0_fp\n     resppool_soilmic(i,1)=0.000e+0_fp\n     resppool_slow(i,1)=0.000e+0_fp\n     resppool_armored(i,1)=0.000e+0_fp\n     \n     resppool_surfstr_hg(i,1)=0.0e+0_fp\n     resppool_surfmet_hg(i,1)=0.0e+0_fp\n     resppool_surfmic_hg(i,1)=0.0e+0_fp\n     resppool_soilstr_hg(i,1)=0.0e+0_fp\n     resppool_soilmet_hg(i,1)=0.0e+0_fp\n     resppool_soilmic_hg(i,1)=0.0e+0_fp\n     resppool_slow_hg(i,1)=0.0e+0_fp\n     resppool_armored_hg(i,1)=0.0e+0_fp\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     tempb(i,1)=0.0e+0_fp\n     f_temp(i,1)=0.0e+0_fp\n     \n     !respiratory fluxes from every pool - temp\n     temp(i,1)=(carbonout_surfstr(i,1)*structuralLignin(i,1))&\n          *eff_surfstr2slow\n     slowpool(i,1)=slowpool(i,1)+temp(i,1)\n     resppool_surfstr(i,1)=resppool_surfstr(i,1)+&\n          (temp(i,1)/eff_surfstr2slow)*(1.00e+0_fp-eff_surfstr2slow)\n     \n     tempa(i,1)=(hgout_surfstr(i,1)*structuralLignin(i,1))*eff_surfstr2slow\n     slowpool_hg(i,1)=slowpool_hg(i,1)+tempa(i,1)\n     resppool_surfstr_hg(i,1)=resppool_surfstr_hg(i,1)+(tempa(i,1)/eff_surfstr2slow)*(1e+0_fp-eff_surfstr2slow)\n     Hg_pool_fluxes1(i,mo)=Hg_pool_fluxes1(i,mo)+(tempa(i,1)*frac_tree(i,1))\n     \n     temp(i,1)=0.000e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=1.0e+0_fp\n     \n     temp(i,1)=(carbonout_surfstr(i,1)*(f_temp(i,1)-structuralLignin(i,1)))*eff_surfstr2surfmic\n     surfmicpool(i,1)=surfmicpool(i,1)+temp(i,1)\n     resppool_surfstr(i,1)=resppool_surfstr(i,1)+(temp(i,1)/eff_surfstr2surfmic)*(1.00e+0_fp-eff_surfstr2surfmic)\n     \n     tempa(i,1)=(hgout_surfstr(i,1)*(f_temp(i,1)-structuralLignin(i,1)))*eff_surfstr2surfmic\n     surfmicpool_hg(i,1)=surfmicpool_hg(i,1)+tempa(i,1)\n     resppool_surfstr_hg(i,1)=resppool_surfstr_hg(i,1)+(tempa(i,1)/eff_surfstr2surfmic)*(1.0e+0_fp-eff_surfstr2surfmic)\n     \n     \n     temp(i,1)=0.000e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=1.0e+0_fp\n     \n     temp(i,1)=carbonout_soilstr(i,1)*structuralLignin(i,1)*eff_soilstr2slow\n     slowpool(i,1)=slowpool(i,1)+temp(i,1)\n     resppool_soilstr(i,1)=resppool_soilstr(i,1)+(temp(i,1)/eff_soilstr2slow)*(1.00e+0_fp-eff_soilstr2slow)\n     \n     tempa(i,1)=hgout_soilstr(i,1)*structuralLignin(i,1)*eff_soilstr2slow\n     slowpool_hg(i,1)=slowpool_hg(i,1)+tempa(i,1)\n     resppool_soilstr_hg(i,1)=resppool_soilstr_hg(i,1)+(tempa(i,1)/eff_soilstr2slow)*(1.00e+0_fp-eff_soilstr2slow)\n     \n     Hg_pool_fluxes3(i,mo)=Hg_pool_fluxes3(i,mo)+(tempa(i,1)*frac_tree(i,1))\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=1.0e+0_fp\n     \n     temp(i,1)=carbonout_soilstr(i,1)*(f_temp(i,1)-structuralLignin(i,1))*eff_soilstr2soilmic\n     soilmicpool(i,1)=soilmicpool(i,1)+temp(i,1)\n     resppool_soilstr(i,1)=resppool_soilstr(i,1)+(temp(i,1)/eff_soilstr2soilmic)*(1.000e+0_fp-eff_soilstr2soilmic)\n     \n     tempa(i,1)=hgout_soilstr(i,1)*(f_temp(i,1)-structuralLignin(i,1))*eff_soilstr2soilmic\n     soilmicpool_hg(i,1)=soilmicpool_hg(i,1)+tempa(i,1)\n     resppool_soilstr_hg(i,1)=resppool_soilstr_hg(i,1)+(tempa(i,1)/eff_soilstr2soilmic)*(1.0e+0_fp-eff_soilstr2soilmic)\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=1.0e+0_fp\n     \n     temp(i,1)=carbonout_surfmet(i,1)*eff_surfmet2surfmic\n     surfmicpool(i,1)=surfmicpool(i,1)+temp(i,1)\n     resppool_surfmet(i,1)=resppool_surfmet(i,1)+(temp(i,1)/eff_surfmet2surfmic)*(1.00e+0_fp-eff_surfmet2surfmic)\n     \n     tempa(i,1)=hgout_surfmet(i,1)*eff_surfmet2surfmic\n     surfmicpool_hg(i,1)=surfmicpool_hg(i,1)+tempa(i,1)\n     resppool_surfmet_hg(i,1)=resppool_surfmet_hg(i,1)+(tempa(i,1)/eff_surfmet2surfmic)*(1.0e+0_fp-eff_surfmet2surfmic)\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=1.0e+0_fp\n     \n     temp(i,1)=carbonout_soilmet(i,1)*eff_soilmet2soilmic\n     soilmicpool(i,1)=soilmicpool(i,1)+temp(i,1)\n     resppool_soilmet(i,1)=resppool_soilmet(i,1)+(temp(i,1)/eff_soilmet2soilmic)*(1.00e+0_fp-eff_soilmet2soilmic)\n     \n     tempa(i,1)=hgout_soilmet(i,1)*eff_soilmet2soilmic\n     soilmicpool_hg(i,1)=soilmicpool_hg(i,1)+tempa(i,1)\n     resppool_soilmet_hg(i,1)=resppool_soilmet_hg(i,1)+(tempa(i,1)/eff_soilmet2soilmic)*(1.00e+0_fp-eff_soilmet2soilmic)\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=1.0e+0_fp\n     \n     temp(i,1)=carbonout_surfmic(i,1)*eff_surfmic2slow\n     slowpool(i,1)=slowpool(i,1)+temp(i,1)\n     resppool_surfmic(i,1)=resppool_surfmic(i,1)+(temp(i,1)/eff_surfmic2slow)*(1.00e+0_fp-eff_surfmic2slow)\n     \n     tempa(i,1)=hgout_surfmic(i,1)*eff_surfmic2slow\n     slowpool_hg(i,1)=slowpool_hg(i,1)+tempa(i,1)\n     resppool_surfmic_hg(i,1)=resppool_surfmic_hg(i,1)+(tempa(i,1)/eff_surfmic2slow)*(1.0e+0_fp-eff_surfmic2slow)\n     \n     \n     resppool_soilmic(i,1)=resppool_soilmic(i,1)+eff_soilmic2slow(i,1)*carbonout_soilmic(i,1)\n     resppool_soilmic_hg(i,1)=resppool_soilmic_hg(i,1)+eff_soilmic2slow(i,1)*hgout_soilmic(i,1)\n     \n     Hg_pool_fluxes1(i,mo)=Hg_pool_fluxes1(i,mo)+(tempa(i,1)*frac_tree(i,1))      \n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     tempb(i,1)=0.0e+0_fp\n     \n     temp(i,1)=carbonout_soilmic(i,1)*(0.003e+0_fp+(0.032e+0_fp*clay(i,1)))\n     armoredpool(i,1)=armoredpool(i,1)+temp(i,1)\n     \n     tempb(i,1)=hgout_soilmic(i,1)*(0.003e+0_fp+(0.032e+0_fp*clay(i,1)))\n     armoredpool_hg(i,1)=armoredpool_hg(i,1)+tempb(i,1)\n     \n     Hg_pool_fluxes2(i,mo)=Hg_pool_fluxes2(i,mo)+(tempb(i,1)*frac_tree(i,1))     \n     \n     tempa(i,1)=temp(i,1)\n     temp(i,1)=carbonout_soilmic(i,1)-tempa(i,1)-resppool_soilmic(i,1)\n     \n     slowpool(i,1)=slowpool(i,1)+temp(i,1)\n     \n     tempa(i,1)=tempb(i,1)\n     tempb(i,1)=hgout_soilmic(i,1)-tempa(i,1)-resppool_soilmic_hg(i,1)\n     \n     slowpool_hg(i,1)=slowpool_hg(i,1)+tempb(i,1)\n     \n     Hg_pool_fluxes3(i,mo)=Hg_pool_fluxes3(i,mo)+(tempb(i,1)*frac_tree(i,1))\n     \n     resppool_slow(i,1)=carbonout_slow(i,1)*(1.00e+0_fp-eff_slow2soilmic)\n     resppool_slow_hg(i,1)=hgout_slow(i,1)*(1.00e+0_fp-eff_slow2soilmic)\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     f_temp(i,1)=0.0e+0_fp\n     \n     temp(i,1)=carbonout_slow(i,1)*eff_slow2soilmic*decayClayFactor(i,1)\n     armoredpool(i,1)=armoredpool(i,1)+temp(i,1)\n     tempa(i,1)=temp(i,1)\n     temp(i,1)=carbonout_slow(i,1)-resppool_slow(i,1)-tempa(i,1)\n     soilmicpool(i,1)=soilmicpool(i,1)+temp(i,1)\n     \n     temp(i,1)=hgout_slow(i,1)*eff_slow2soilmic*decayClayFactor(i,1)\n     armoredpool_hg(i,1)=armoredpool_hg(i,1)+temp(i,1)\n     \n     Hg_pool_fluxes4(i,mo)=Hg_pool_fluxes4(i,mo)+(temp(i,1)*frac_tree(i,1))\n     \n     tempa(i,1)=temp(i,1)\n     temp(i,1)=hgout_slow(i,1)-resppool_slow_hg(i,1)-tempa(i,1)\n     soilmicpool_hg(i,1)=soilmicpool_hg(i,1)+temp(i,1)\n     \n     Hg_pool_fluxes6(i,mo)=Hg_pool_fluxes6(i,mo)+(temp(i,1)*frac_tree(i,1))\n     \n     temp(i,1)=0.0e+0_fp\n     tempa(i,1)=0.0e+0_fp\n     tempb(i,1)=0.0e+0_fp\n     f_temp(i,1)=0.0e+0_fp\n     \n     temp(i,1)=carbonout_armored(i,1)*eff_armored2soilmic\n     soilmicpool(i,1)=soilmicpool(i,1)+temp(i,1)\n     resppool_armored(i,1)=(temp(i,1)/eff_armored2soilmic)*(1.00e+0_fp-eff_armored2soilmic)\n     \n     tempa(i,1)=hgout_armored(i,1)*eff_armored2soilmic\n     soilmicpool_hg(i,1)=soilmicpool_hg(i,1)+tempa(i,1)\n     resppool_armored_hg(i,1)=(tempa(i,1)/eff_armored2soilmic)*(1.00e+0_fp-eff_armored2soilmic)\n     \n     Hg_pool_fluxes5(i,mo)=Hg_pool_fluxes5(i,mo)+(tempa(i,1)*frac_tree(i,1))\n     !FIRES consume part of the pools depending on burn fraction \n     !(BF), combustion completeness (CC) and tree mortality rate\n     \n     combusted_leaf(i,1)=leafpool(i,1)*BF1(i,mo)*ccLeaf(i,mo)*mortality_tree(i,1)\n     combusted_abovewood(i,1)=abovewoodpool(i,1)*BF1(i,mo)*ccWood(i,mo)*mortality_tree(i,1)\n     combusted_cwd(i,1)=cwdpool(i,1)*BF1(i,mo)*ccCWD(i,mo)\n     combusted_surfstr(i,1)=surfstrpool(i,1)*BF1(i,mo)*ccFineLitter(i,mo)\n     combusted_surfmet(i,1)=surfmetpool(i,1)*BF1(i,mo)*ccFineLitter(i,mo)\n     combusted_surfmic(i,1)=surfmicpool(i,1)*BF1(i,mo)*ccFineLitter(i,mo)\n     \n     !FIREi the non combusted parts\n     temp(i,1)=1.00e+0_fp\n     nonCombusted_leaf(i,1)=leafpool(i,1)*BF1(i,mo)*(temp(i,1)-ccLeaf(i,mo))*mortality_tree(i,1)\n     nonCombusted_abovewood(i,1)=abovewoodpool(i,1)*BF1(i,mo)*(temp(i,1)-ccWood(i,mo))*mortality_tree(i,1)\n     nonCombusted_belowwood(i,1)=belowwoodpool(i,1)*BF1(i,mo)*mortality_tree(i,1)\n     nonCombusted_froot(i,1)=frootpool(i,1)*BF1(i,mo)*mortality_tree(i,1)\n     \n     !FIRE flux from non combusted parts to other pools\n     \n     surfstrpool(i,1)=surfstrpool(i,1)+nonCombusted_leaf(i,1)*(1.00e+0_fp-metabfract(i,1))\n     surfmetpool(i,1)=surfmetpool(i,1)+nonCombusted_leaf(i,1)*metabfract(i,1)\n     soilstrpool(i,1)=soilstrpool(i,1)+(nonCombusted_froot(i,1)+nonCombusted_belowwood(i,1))*(1.00e+0_fp-metabfract(i,1))\n     soilmetpool(i,1)=soilmetpool(i,1)+(nonCombusted_froot(i,1)+nonCombusted_belowwood(i,1))*metabfract(i,1)\n     cwdpool(i,1)=cwdpool(i,1)+nonCombusted_abovewood(i,1)\n     \n     \n     !FIRE !!\n     leafpool(i,1)=leafpool(i,1)-combusted_leaf(i,1)-nonCombusted_leaf(i,1)\n     abovewoodpool(i,1)=abovewoodpool(i,1)-combusted_abovewood(i,1)-nonCombusted_abovewood(i,1)\n     belowwoodpool(i,1)=belowwoodpool(i,1)-nonCombusted_belowwood(i,1)\n     frootpool(i,1)=frootpool(i,1)-nonCombusted_froot(i,1)\n     cwdpool(i,1)=cwdpool(i,1)-combusted_cwd(i,1)\n     surfstrpool(i,1)=surfstrpool(i,1)-combusted_surfstr(i,1)\n     surfmetpool(i,1)=surfmetpool(i,1)-combusted_surfmet(i,1)\n     surfmicpool(i,1)=surfmicpool(i,1)-combusted_surfmic(i,1)\n     !adding in soil pools\n     soilstrpool(i,1)=soilstrpool(i,1)-combusted_soilstr(i,1)\n     soilmetpool(i,1)=soilmetpool(i,1)-combusted_soilmet(i,1)\n     soilmicpool(i,1)=soilmicpool(i,1)-combusted_soilmic(i,1)\n     slowpool(i,1)=slowpool(i,1)-combusted_slow(i,1)\n     armoredpool(i,1)=armoredpool(i,1)-combusted_armored(i,1)  \n  ENDDO\n!$OMP END PARALLEL DO\n\n  !FUELWOOD COLLECTION      \n  IF (n_age_classes .eq. 1) THEN\n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n     DO i=1, n_veg\n        !fuelwood demand\n        fuelwoodout(i,1)=fuelwooddemand(i,1)+fuelshortage(i,1)\n        !in case demand exceeds availability\n        IF (fuelwoodout(i,1) .gt. cwdpool(i,1)) THEN\n           fuelwoodout(i,1)=cwdpool(i,1) !demand = avail\n           fuelshortage(i,1)=fuelshortage(i,1)-fuelwoodout(i,1)+cwdpool(i,1) \n           ! and shortage increases\n        END IF\n        !in case availability exceeds demand\n        IF (fuelwoodout(i,1) .lt. cwdpool(i,1)) THEN\n           !shortage decreases\n           fuelshortage(i,1)=fuelshortage(i,1)-cwdpool(i,1)+fuelwoodout(i,1)\n        END IF\n        IF (fuelshortage(i,1) .lt. 0e+0_fp) THEN\n           fuelshortage(i,1)=0.000e+0_fp\n        END IF\n        !fuelwood taken out of cwd pool\n        cwdpool(i,1)=cwdpool(i,1)-fuelwoodout(i,1) \n     END DO\n!$OMP END PARALLEL DO\n\n  ELSE\n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n     DO i=1, n_veg\n        fuelwoodout(i,1)=fuelwooddemand(i,1)\n        IF (fuelwooddemand(i,1) .gt. cwdpool(i,1)) THEN\n           fuelwoodout(i,1)=cwdpool(i,1)\n        END IF\n        cwdpool(i,1)=cwdpool(i,1)-fuelwoodout(i,1)\n     END DO\n!$OMP END PARALLEL DO\n  END IF\n  \n  resid=0.0e+0_fp\n  allowed=0.0e+0_fp\n  !Calculate Fluxes\n  IF (n_age_classes .eq. 1) THEN\n     \n     IF (mo .eq. 1) THEN\n!$OMP PARALLEL WORKSHARE  &\n!$OMP DEFAULT(SHARED)\n        resp_surfstr(:,:)=0.0e+0_fp\n        resp_surfmet(:,:)=0.0e+0_fp\n        resp_surfmic(:,:)=0.0e+0_fp\n        resp_soilstr(:,:)=0.0e+0_fp\n        resp_soilmet(:,:)=0.0e+0_fp\n        resp_soilmic(:,:)=0.0e+0_fp\n        resp_slow(:,:)=0.0e+0_fp\n        resp_armored(:,:)=0.0e+0_fp\n        resp_surfstr_hg(:,:)=0.0e+0_fp\n        resp_surfmet_hg(:,:)=0.0e+0_fp\n        resp_surfmic_hg(:,:)=0.0e+0_fp\n        resp_soilstr_hg(:,:)=0.0e+0_fp\n        resp_soilmet_hg(:,:)=0.0e+0_fp\n        resp_soilmic_hg(:,:)=0.0e+0_fp\n        resp_slow_hg(:,:)=0.0e+0_fp\n        resp_armored_hg(:,:)=0.0e+0_fp\n!$OMP END PARALLEL WORKSHARE\n     ENDIF\n\n!$OMP PARALLEL DO  &\n!$OMP DEFAULT(SHARED)  &\n!$OMP PRIVATE(i)\n     DO i=1,n_veg\n        wresp(i,1)=0.0e+0_fp\n        wcomb(i,1)=0.0e+0_fp\n        wherb(i,1)=0.0e+0_fp\n        wbiof(i,1)=0.0e+0_fp\n        wresp_hg(i,1)=0.0e+0_fp\n        \n        wresp(i,1)=resppool_surfstr(i,1)+resppool_surfmet(i,1)&\n             +resppool_surfmic(i,1)+resppool_soilstr(i,1) &     \n             +resppool_soilmet(i,1)+resppool_soilmic(i,1) &\n             +resppool_slow(i,1)+resppool_armored(i,1)\n        \n        resp_surfstr(i,mo)=resp_surfstr(i,mo)+resppool_surfstr(i,1)*frac_tree(i,1)\n        resp_surfmet(i,mo)=resp_surfmet(i,mo)+resppool_surfmet(i,1)*frac_tree(i,1)\n        resp_surfmic(i,mo)=resp_surfmic(i,mo)+resppool_surfmic(i,1)*frac_tree(i,1)\n        resp_soilstr(i,mo)=resp_soilstr(i,mo)+resppool_soilstr(i,1)*frac_tree(i,1)\n        resp_soilmet(i,mo)=resp_soilmet(i,mo)+resppool_soilmet(i,1)*frac_tree(i,1)\n        resp_soilmic(i,mo)=resp_soilmic(i,mo)+resppool_soilmic(i,1)*frac_tree(i,1)\n        resp_slow(i,mo)=resp_slow(i,mo)+resppool_slow(i,1)*frac_tree(i,1)\n        resp_armored(i,mo)=resp_armored(i,mo)+resppool_armored(i,1)*frac_tree(i,1)\n        \n        wresp_hg(i,1)=resppool_surfstr_hg(i,1)+resppool_surfmet_hg(i,1)&\n             +resppool_surfmic_hg(i,1)+resppool_soilstr_hg(i,1) &     \n             +resppool_soilmet_hg(i,1)+resppool_soilmic_hg(i,1) &\n             +resppool_slow_hg(i,1)+resppool_armored_hg(i,1)\n        \n        resp_surfstr_hg(i,mo)=resp_surfstr_hg(i,mo)+resppool_surfstr_hg(i,1)*frac_tree(i,1)\n        resp_surfmet_hg(i,mo)=resp_surfmet_hg(i,mo)+resppool_surfmet_hg(i,1)*frac_tree(i,1)\n        resp_surfmic_hg(i,mo)=resp_surfmic_hg(i,mo)+resppool_surfmic_hg(i,1)*frac_tree(i,1)\n        resp_soilstr_hg(i,mo)=resp_soilstr_hg(i,mo)+resppool_soilstr_hg(i,1)*frac_tree(i,1)\n        resp_soilmet_hg(i,mo)=resp_soilmet_hg(i,mo)+resppool_soilmet_hg(i,1)*frac_tree(i,1)\n        resp_soilmic_hg(i,mo)=resp_soilmic_hg(i,mo)+resppool_soilmic_hg(i,1)*frac_tree(i,1)\n        resp_slow_hg(i,mo)=resp_slow_hg(i,mo)+resppool_slow_hg(i,1)*frac_tree(i,1)\n        resp_armored_hg(i,mo)=resp_armored_hg(i,mo)+resppool_armored_hg(i,1)*frac_tree(i,1)\n        \n        wcomb(i,1)=combusted_leaf(i,1)+combusted_abovewood(i,1)&\n             +combusted_cwd(i,1)+combusted_surfstr(i,1) &\n             +combusted_surfmet(i,1)+combusted_surfmic(i,1) &\n             +combusted_soilstr(i,1)+combusted_soilmet(i,1) &\n             +combusted_soilmic(i,1)+combusted_slow(i,1)    &\n             +combusted_armored(i,1)\n        \n        wherb(i,1)=herbivory(i,1)\n        wbiof(i,1)=fuelwoodout(i,1)\n     ENDDO\n!$OMP END PARALLEL DO\n  ELSE\n     IF (age_class .eq. 1) THEN\n        wresp(:,1)=0.0e+0_fp\n        wcomb(:,1)=0.0e+0_fp\n        wherb(:,1)=0.0e+0_fp\n        wbiof(:,1)=0.0e+0_fp\n     ENDIF\n!$OMP PARALLEL WORKSHARE  &\n!$OMP DEFAULT(SHARED)\n     wresp(:,1)=wresp(:,1)+(resppool_surfstr(:,1) & \n          +resppool_surfmet(:,1)+resppool_surfmic(:,1) &\n          +resppool_soilstr(:,1)+resppool_soilmet(:,1) &\n          +resppool_soilmic(:,1)+resppool_slow(:,1)    & \n          +resppool_armored(:,1))/number_age_classes\n     \n     wcomb(:,1)=wcomb(:,1)+(combusted_leaf(:,1)   &\n          +combusted_abovewood(:,1)+combusted_cwd(:,1) &\n          +combusted_surfstr(:,1)+combusted_surfmet(:,1)&\n          +combusted_surfmic(:,1))/number_age_classes\n     \n     wherb(:,1)=wherb(:,1)+(herbivory(:,1)/number_age_classes)\n     wbiof(:,1)=wbiof(:,1)+(fuelwoodout(:,1)/number_age_classes)\n!$OMP END PARALLEL WORKSHARE\n      \n  ENDIF\nEND SUBROUTINE doTreeCarbonHg\n!EOC    \n"
  },
  {
    "path": "GTMM/dorestart_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: dorestart_mod\n!\n! !DESCRIPTION: Module DORESTART\\_MOD contains subroutines to save and read \n!  data created by GTMM and used to restart a stand-alone run or a coupled\n!  run with GEOS-Chem.\n!\n! !INTERFACE:\n!\nMODULE DORESTART_MOD\n!\n! !USES:\n!\n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  16 Dec 2009 - C. Carouge   - Initial version\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\n  CONTAINS\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: doSaveHgforGC\n!\n! !DESCRIPTION: Subroutine doSaveHgforGC saves Hg pools at equilibrium to be\n! used when GTMM is coupled to GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE doSaveHgforGC\n!\n! !USES:\n!\n    USE defineConstants\n    USE defineArrays\n!\n! !REVISION HISTORY:\n!  03 Nov 2009 - C. Carouge   - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    CHARACTER(len=250) :: FILENAME\n\n    ! Open binary file to write data\n    FILENAME = OUTPUTPATH // 'HgPools'\n    OPEN(UNIT=20, file=FILENAME, STATUS=\"NEW\", FORM=\"UNFORMATTED\")\n\n    ! Write data to FILENAME\n    WRITE(20) hsurfstrpool_Hg\n    WRITE(20) hsurfmetpool_Hg\n    WRITE(20) hsurfmicpool_Hg\n    WRITE(20) hsoilstrpool_Hg\n    WRITE(20) hsoilmetpool_Hg\n    WRITE(20) hsoilmicpool_Hg\n    WRITE(20) hslowpool_Hg\n    WRITE(20) harmoredpool_Hg\n\n    WRITE(20) surfstrpool_Hg\n    WRITE(20) surfmetpool_Hg\n    WRITE(20) surfmicpool_Hg\n    WRITE(20) soilstrpool_Hg\n    WRITE(20) soilmetpool_Hg\n    WRITE(20) soilmicpool_Hg\n    WRITE(20) slowpool_Hg\n    WRITE(20) armoredpool_Hg\n              \n    WRITE(20) Hg0_surf_soil\n    WRITE(20) HgII_surf_soil\n    WRITE(20) hleafpool_Hg\n    WRITE(20) leafpool_Hg\n    \n    WRITE(20) leafpool\n    WRITE(20) cwdpool\n    WRITE(20) abovewoodpool\n    WRITE(20) belowwoodpool\n    WRITE(20) frootpool\n    WRITE(20) surfstrpool\n    WRITE(20) surfmetpool\n    WRITE(20) surfmicpool\n    WRITE(20) soilstrpool\n    WRITE(20) soilmetpool\n    WRITE(20) soilmicpool\n    WRITE(20) slowpool\n    WRITE(20) armoredpool\n\n    WRITE(20) hleafpool\n    WRITE(20) hfrootpool\n    WRITE(20) hsurfstrpool\n    WRITE(20) hsurfmetpool\n    WRITE(20) hsurfmicpool\n    WRITE(20) hsoilstrpool\n    WRITE(20) hsoilmetpool\n    WRITE(20) hsoilmicpool\n    WRITE(20) hslowpool\n    WRITE(20) harmoredpool\n\n    ! Close file\n    CLOSE(20)\n\n  END SUBROUTINE doSaveHgforGC\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: doReadHgforGC\n!\n! !DESCRIPTION: Subroutine doReadHgforGC reads Hg pools at equilibrium to\n! use them in GTMM when coupled to GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE doReadHgforGC\n!\n! !USES:\n!\n    USE defineConstants\n    USE defineArrays\n!\n! !REVISION HISTORY:\n!  03 Nov 2009 - C. Carouge   - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    OPEN(UNIT=20, file=RESTARTFILE, STATUS=\"OLD\", FORM=\"UNFORMATTED\")\n\n    ! Read data to FILENAME\n    READ(20) hsurfstrpool_Hg\n    READ(20) hsurfmetpool_Hg\n    READ(20) hsurfmicpool_Hg\n    READ(20) hsoilstrpool_Hg\n    READ(20) hsoilmetpool_Hg\n    READ(20) hsoilmicpool_Hg\n    READ(20) hslowpool_Hg\n    READ(20) harmoredpool_Hg\n  \n    READ(20) surfstrpool_Hg\n    READ(20) surfmetpool_Hg\n    READ(20) surfmicpool_Hg\n    READ(20) soilstrpool_Hg\n    READ(20) soilmetpool_Hg\n    READ(20) soilmicpool_Hg\n    READ(20) slowpool_Hg\n    READ(20) armoredpool_Hg\n         \n    READ(20) Hg0_surf_soil\n    READ(20) HgII_surf_soil\n    READ(20) hleafpool_Hg\n    READ(20) leafpool_Hg\n    \n    READ(20) leafpool\n    READ(20) cwdpool\n    READ(20) abovewoodpool\n    READ(20) belowwoodpool\n    READ(20) frootpool\n    READ(20) surfstrpool\n    READ(20) surfmetpool\n    READ(20) surfmicpool\n    READ(20) soilstrpool\n    READ(20) soilmetpool\n    READ(20) soilmicpool\n    READ(20) slowpool\n    READ(20) armoredpool\n\n    READ(20) hleafpool\n    READ(20) hfrootpool\n    READ(20) hsurfstrpool\n    READ(20) hsurfmetpool\n    READ(20) hsurfmicpool\n    READ(20) hsoilstrpool\n    READ(20) hsoilmetpool\n    READ(20) hsoilmicpool\n    READ(20) hslowpool\n    READ(20) harmoredpool\n\n    ! Close file\n    CLOSE(20)\n\n  END SUBROUTINE doReadHgforGC\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: doSaveCASAforRestart\n!\n! !DESCRIPTION: Subroutine doSaveCASAforRestart saves CASA values at \n!  equilibrium to be used when an equilibrium run for GTMM is continued. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE doSaveCASAforRestart\n!\n! !USES:\n!\n    USE defineConstants\n    USE defineArrays\n!\n! !REVISION HISTORY:\n!  16 Dec 2009 - C. Carouge   - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    CHARACTER(len=250) :: FILENAME\n\n    ! Open binary file to write data\n    FILENAME = OUTPUTPATH // 'restart'\n    OPEN(UNIT=20, file=FILENAME, STATUS=\"NEW\", FORM=\"UNFORMATTED\")\n\n    ! Write data to FILENAME\n    WRITE(20) LAI\n    WRITE(20) herb_seasonality\n    WRITE(20) grass_herbivory\n    WRITE(20) trees_herbivory\n    WRITE(20) rootlitscalar\n    WRITE(20) litterscalar\n    WRITE(20) hlitterscalar\n    WRITE(20) NPP\n    WRITE(20) abiotic\n    WRITE(20) lais\n    WRITE(20) ccWood\n    WRITE(20) ccLeaf\n    WRITE(20) ccFineLitter\n    WRITE(20) ccCwd\n    WRITE(20) PET\n    WRITE(20) CCratio_previous\n\n    ! Only used if restart the run from the carbon equilibrium year. \n    ! If the mercury equilibrium run is started, use data saved in HgPools\n    WRITE(20) leafpool\n    WRITE(20) surfstrpool\n    WRITE(20) surfmetpool\n    WRITE(20) surfmicpool\n    WRITE(20) soilstrpool\n    WRITE(20) soilmetpool\n    WRITE(20) soilmicpool\n    WRITE(20) slowpool\n    WRITE(20) armoredpool\n    WRITE(20) hleafpool\n    WRITE(20) hsurfstrpool\n    WRITE(20) hsurfmetpool\n    WRITE(20) hsurfmicpool\n    WRITE(20) hsoilstrpool\n    WRITE(20) hsoilmetpool\n    WRITE(20) hsoilmicpool\n    WRITE(20) hslowpool\n    WRITE(20) harmoredpool\n    WRITE(20) abovewoodpool\n    WRITE(20) belowwoodpool\n    WRITE(20) frootpool\n\n    ! Close file\n    CLOSE(20)\n\n  END SUBROUTINE doSaveCASAforRestart\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: doReadCASAfromRestart\n!\n! !DESCRIPTION: Subroutine doReadCASAfromRestart reads CASA values at \n!  equilibrium to be used when an equilibrium run for GTMM is continued. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE doReadCASAfromRestart\n!\n! !USES:\n!\n    USE defineConstants\n    USE defineArrays\n!\n! !REVISION HISTORY:\n!  16 Dec 2009 - C. Carouge   - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    CHARACTER(len=250) :: FILENAME\n\n    ! Open binary file to read data\n    FILENAME = OUTPUTPATH // 'restart'\n    OPEN(UNIT=20, file=FILENAME, STATUS=\"OLD\", FORM=\"UNFORMATTED\")\n\n    ! Read data to FILENAME\n    READ(20) LAI\n    READ(20) herb_seasonality\n    READ(20) grass_herbivory\n    READ(20) trees_herbivory\n!    READ(20) LTCON\n!    READ(20) LTVARSUM\n    READ(20) rootlitscalar\n    READ(20) litterscalar\n    READ(20) hlitterscalar\n!    READ(20) AVELAI\n    READ(20) NPP\n    READ(20) abiotic\n    READ(20) lais\n!    READ(20) topt\n    READ(20) ccWood\n    READ(20) ccLeaf\n    READ(20) ccFineLitter\n    READ(20) ccCwd\n!    READ(20) mortality_tree\n    WRITE(20) PET\n    WRITE(20) CCratio_previous\n! Only used if restart from the carbon equilibrium year. Else use the data\n! saved in HgPools\n    WRITE(20) leafpool\n    WRITE(20) surfstrpool\n    WRITE(20) surfmetpool\n    WRITE(20) surfmicpool\n    WRITE(20) soilstrpool\n    WRITE(20) soilmetpool\n    WRITE(20) soilmicpool\n    WRITE(20) slowpool\n    WRITE(20) armoredpool\n    WRITE(20) hleafpool\n    WRITE(20) hsurfstrpool\n    WRITE(20) hsurfmetpool\n    WRITE(20) hsurfmicpool\n    WRITE(20) hsoilstrpool\n    WRITE(20) hsoilmetpool\n    WRITE(20) hsoilmicpool\n    WRITE(20) hslowpool\n    WRITE(20) harmoredpool\n    WRITE(20) abovewoodpool\n    WRITE(20) belowwoodpool\n    WRITE(20) frootpool\n\n    ! Close file\n    CLOSE(20)\n\n  END SUBROUTINE doReadCASAfromRestart\n!EOC\nEND MODULE DORESTART_MOD\n\n"
  },
  {
    "path": "GTMM/getAgeClassBF.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getAgeClassBF\n!\n! !DESCRIPTION: Get the burned fraction for the running age class\n!  The idea is that the oldest part of the gridcell burns first, because \n!  these parts contain the highest fuel loads\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE getAgeClassBF\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n  \n  IF (yr .eq. 1 .and. mo .eq. 1 .and. age_class .eq. 1) THEN\n     BFallClasses=BF1\n  ENDIF\n  \n  IF (age_class .eq. 1) THEN\n     BFleftCurrentMonth(:,1)=BFallClasses(:,mo)\n     !for the first (oldest age class) assign the total\n     !burned area\n  ENDIF\n\n!$OMP PARALLEL WORKSHARE    &\n!$OMP DEFAULT(SHARED)\n  BFtemp(:,1)=BFleftCurrentMonth(:,1) !assign current BF\n      \n  WHERE (BFtemp(:,1) > 1e+0_fp/number_age_classes)\n     !check where burned fraction exceeds class size\n     BFtemp(:,1)=1e+0_fp/number_age_classes\n  END WHERE\n  \n  BFleftCurrentMonth(:,1)=BFleftCurrentMonth(:,1)-BFtemp(:,1)\n  !set BF for next age class\n  \n  BFtemp(:,1)=BFtemp(:,1)*number_age_classes\n  !correct for class size\n  \n  ageCurrentClass(:,1)=ageClassIndex(:,age_class)\n  ageCurrentClass(:,1)=ageCurrentClass(:,1)+1\n  !add age [months]\n\n  WHERE (BFtemp(:,1) > 0e+0_fp) !check in which gridcells \n     !there was fire\n     ageCurrentClass(:,1)=1.00e+0_fp-BFtemp(:,1)\n     !reset age to 0 (completely burned) or a value\n     !between 0 and 1 (partly burned)\n  END WHERE\n  \n  ageClassIndex(:,age_class)=ageCurrentClass(:,1)\n  \n  BF1(:,mo)=BFtemp(:,1)\n!$OMP END PARALLEL WORKSHARE\nEND SUBROUTINE getAgeClassBF\n!EOC\n"
  },
  {
    "path": "GTMM/getFireParams.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getFireParams\n!\n! !DESCRIPTION: Calculates combustion completeness (CC, aka combustion\n!  factor or combustion efficiency.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE getFireParams\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  \n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  implicit none\n!\n! !REMARKS:\n!  Fuel is split into live wood, live leaves (inc grass), fine\n!  litter and coarse litter (cwd)\n!                                                                             .\n!       min CC   max CC   fuel type\n!  CC= [0.2      0.3      live wood\n!       0.8      1.0      live leaves\n!       0.9      1.0      fine litter\n!       0.2,     0.4]     coarse litter\n!                                                                             .\n!  Scaling is as follows: for live material the CC is scaled\n!  linearly with NPP moisture scalar, dead material is scaled\n!  using the PPT over PET ratio, with a running mean to \n!  include some memory, which is greater for CWD\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  integer :: i\n  character(len=f_len_output+4) :: filename3\n  \n  filename3(1:f_len_output)=outputpath\n  \n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)  \n!$OMP DO PRIVATE(i)\n  DO i=1, n_veg\n\n     !biomassCC\n     fid(i,1)=0.0e+0_fp\n     fid(i,1)=2.000e+0_fp*NPPmoist(i,mo)-1.00e+0_fp !NPP moisture scalar runs from \n     !0.5 to 1, corrected to 0-1\n\n     fid(i,1)=1.000e+0_fp-fid(i,1)\n\n     ccWood(i,mo)=CC(1,1)+(CC(1,2)-CC(1,1))*fid(i,1)\n     ccLeaf(i,mo)=CC(2,1)+(CC(2,2)-CC(2,1))*fid(i,1)\n  END DO\n!$OMP END DO\n      \n!$OMP WORKSHARE\n  !litter CC\n  PET_current=PET\n\n  WHERE (PET_current(:,1) == 0e+0_fp) \n     PET_current(:,1)=0.1000e+0_fp !prevents dividing by 0\n  END WHERE\n  \n  CCratio_current(:,1)=ppt1(:,mo)/PET_current(:,1)\n\n  WHERE (CCratio_current(:,1) > 1e+0_fp) \n     CCratio_current(:,1)=1.000e+0_fp\n  END WHERE\n  CCratio_current(:,1)=1.000e+0_fp-CCratio_current(:,1)\n  \n  ccFineLitter(:,mo)=0.100e+0_fp*(CC(3,1)+(CC(3,2)-CC(3,1))*CCratio_previous(:,1))\n  ccFineLitter(:,mo)=ccFineLitter(:,mo)+0.900e+0_fp*(CC(3,1)+(CC(3,2)-CC(3,1))*CCratio_current(:,1))\n  ccCWD(:,mo)=0.400e+0_fp*(CC(4,1)+(CC(4,2)-CC(4,1))*CCratio_previous(:,1))\n  ccCWD(:,mo)=ccCWD(:,mo)+0.600e+0_fp*(CC(4,1)+(CC(4,2)-CC(4,1))*CCratio_current(:,1))\n  \n  CCratio_previous=CCratio_current ! set current PET for next\n                                   !months run\n  veg_burn(:,1)=0.0e+0_fp\n  !Fire induced mortality rates; in general the mortality rate\n  !in tropical forests is high, esp at the second or third\n  !fire (50-80%) while tree mortality in savannas is very\n  !low as a thin bark and low flames protects trees\n  !(set to 1% in our scheme below)\n  !live wood and tree leaves\n  mortality_tree(:,1)=0.01e+0_fp+(0.59e+0_fp/(1.00e+0_fp+ &\n        exp((60.00e+0_fp-100.00e+0_fp*perc_tree1(:,1))*0.25e+0_fp)))\n  !belowbround herb roots usually survive and dieo only when \n  !the fire is extremely hot\n  mortality_hfroot(:,1)=0.100e+0_fp\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\n  IF (yr .eq. NPPequilibriumYear .and. mo .eq. 12) THEN\n     filename3(f_len_output+1:f_len_output+4)='fccw'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") ccWood\n     CLOSE(4)\n     filename3(f_len_output+1:f_len_output+4)='fccl'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") ccLeaf\n     CLOSE(4)\n     filename3(f_len_output+1:f_len_output+4)='fcfl'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") ccFineLitter\n     CLOSE(4)\n     filename3(f_len_output+1:f_len_output+4)='fcwd'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, FMT=\"(12F9.2)\") ccCwd\n     CLOSE(4)\n     filename3(f_len_output+1:f_len_output+4)='fmor'\n     OPEN(UNIT=4, FILE=filename3, STATUS=\"NEW\", &\n          FORM=\"FORMATTED\")\n     WRITE(4, *) mortality_tree\n     CLOSE(4)\n     \n     \n  ENDIF\n  \nEND SUBROUTINE getFireParams\n!EOC      \n"
  },
  {
    "path": "GTMM/getFuelWood.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getFuelWood\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE getFuelWood\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  implicit none\n!\n! !REVISION HISTORY:\n!  09 July 2010 - C. Carouge  - Parallelization\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n  REAL(fp)  :: perc_treea(n_veg, 1)\n\n!$OMP PARALLEL WORKSHARE  &\n!$OMP DEFAULT(SHARED)\n  perc_treea(:,1)=perc_tree1(:,1)\n      \n  WHERE (perc_tree1(:,1) == 0e+0_fp)\n     perc_treea(:,1)=1.000e+0_fp\n  END WHERE\n  \n  fuelwooddemand(:,1)=(1e+0_fp/perc_treea(:,1))\n  fuelwooddemand(:,1)=fuelwooddemand(:,1)*popdens1(:,1)*&\n                      fuelneed1(:,1)/12.000e+0_fp\n\n  WHERE (perc_tree1(:,1) == 0e+0_fp)\n     fuelwooddemand(:,1)=0e+0_fp\n  END WHERE\n!$OMP END PARALLEL WORKSHARE\n\nEND SUBROUTINE getFuelWood\n!EOC\n"
  },
  {
    "path": "GTMM/getSoilMoistParams.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getSoilMoistParams\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE getSoilMoistParams\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP  \n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n  REAL(fp) :: wp(n_veg, 1)\n  REAL(fp) :: fc(n_veg, 1)\n  REAL(fp) :: ssc(n_veg, 1)\n  REAL(fp) :: alpha(n_veg, 1)\n  REAL(fp) :: beta(n_veg, 1)\n  REAL(fp) :: text(n_veg, 1)\n  INTEGER :: i, j\n  \n  text=soiltext1\n  \n!$OMP PARALLEL DO     &\n!$OMP DEFAULT(SHARED) &\n!$OMP PRIVATE(i)\n  DO i=1,n_veg\n     IF (soiltext1(i,1) .eq. 7) THEN\n        text(i,1)=6\n     ENDIF\n     !for grassland biomes (7, 10, 12)\n     IF (veg1(i,1) == 7 .or. veg1(i,1) == 10 .or. veg1(i,1) == 12) THEN\n        IF (text(i,1) == 1) THEN\n           wp(i,1)=129.000e+0_fp\n           fc(i,1)=232.000e+0_fp\n           ssc(i,1)=455.000e+0_fp\n           alpha(i,1)=0.0020e+0_fp\n           beta(i,1)=-6.540e+0_fp\n        ELSE IF (text(i,1) == 2) THEN\n           wp(i,1)=81.000e+0_fp\n           fc(i,1)=202.000e+0_fp\n           ssc(i,1)=394.000e+0_fp\n           alpha(i,1)=0.002e+0_fp\n           beta(i,1)=-5.480e+0_fp\n        ELSE IF (text(i,1) == 3) THEN\n           wp(i,1)=129.000e+0_fp\n           fc(i,1)=232.000e+0_fp\n           ssc(i,1)=455.000e+0_fp\n           alpha(i,1)=0.002e+0_fp\n           beta(i,1)=-6.540e+0_fp\n        ELSE IF (text(i,1) == 4) THEN\n           wp(i,1)=220.000e+0_fp\n           fc(i,1)=393.000e+0_fp\n           ssc(i,1)=642.000e+0_fp\n           alpha(i,1)=0.013e+0_fp\n           beta(i,1)=-6.570e+0_fp\n        ELSE IF (text(i,1) == 5) THEN\n           wp(i,1)=270.000e+0_fp\n           fc(i,1)=405.000e+0_fp\n           ssc(i,1)=527.000e+0_fp\n           alpha(i,1)=0.006e+0_fp\n           beta(i,1)=-9.470e+0_fp\n        ELSE IF (text(i,1) == 6) THEN\n           wp(i,1)=275.000e+0_fp\n           fc(i,1)=363.000e+0_fp\n           ssc(i,1)=387.000e+0_fp\n           alpha(i,1)=0.004e+0_fp\n           beta(i,1)=-13.800e+0_fp\n        END IF\n     ELSE !tree biomes\n        IF (text(i,1) == 1) THEN\n           wp(i,1)=258.000e+0_fp\n           fc(i,1)=463.000e+0_fp\n           ssc(i,1)=909.000e+0_fp\n           alpha(i,1)=0.002e+0_fp\n           beta(i,1)=-6.540e+0_fp\n        ELSE IF (text(i,1) == 2) THEN\n           wp(i,1)=203.000e+0_fp\n           fc(i,1)=506.000e+0_fp\n           ssc(i,1)=984.000e+0_fp\n           alpha(i,1)=0.002e+0_fp\n           beta(i,1)=-5.480e+0_fp\n        ELSE IF (text(i,1) == 3) THEN\n           wp(i,1)=258.000e+0_fp\n           fc(i,1)=463.000e+0_fp\n           ssc(i,1)=909.000e+0_fp\n           alpha(i,1)=0.002e+0_fp\n           beta(i,1)=-6.540e+0_fp\n        ELSE IF (text(i,1) == 4) THEN\n           wp(i,1)=338.000e+0_fp\n           fc(i,1)=604.000e+0_fp\n           ssc(i,1)=987.000e+0_fp\n           alpha(i,1)=0.013e+0_fp\n           beta(i,1)=-6.570e+0_fp\n        ELSE IF (text(i,1) == 5) THEN\n           wp(i,1)=433.000e+0_fp\n           fc(i,1)=647.000e+0_fp\n           ssc(i,1)=843.000e+0_fp\n           alpha(i,1)=0.006e+0_fp\n           beta(i,1)=-9.470e+0_fp\n        ELSE IF (text(i,1) == 6) THEN\n           wp(i,1)=472.000e+0_fp\n           fc(i,1)=622.000e+0_fp\n           ssc(i,1)=663.000e+0_fp\n           alpha(i,1)=0.004e+0_fp\n           beta(i,1)=-13.800e+0_fp\n        END IF\n     END IF\n     SMparams(i,1)=wp(i,1)\n     SMparams(i,2)=fc(i,1)\n     SMparams(i,3)=ssc(i,1)\n     SMparams(i,4)=alpha(i,1)\n     SMparams(i,5)=beta(i,1)\n     last_soilm(i,1)=wp(i,1) !begin soilmoisture set at wilting point\n      \n  END DO\n!$OMP END PARALLEL DO\n\nEND SUBROUTINE getSoilMoistParams\n!EOC\n"
  },
  {
    "path": "GTMM/getSoilParams.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getSoilParams\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE getSoilParams\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER           :: i, j\n  character(len=f_len_output+5) :: filename2 \n  character(len=f_len_output+4) :: filename3\n  \n  filename3(1:f_len_output)=outputpath\n  !soil texture parameters, litter characteristic parameters\n  !  turnover times\n\n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)\n!$OMP DO PRIVATE(i)      \n  DO i=1,n_veg\n     IF (soiltext1(i,1) .eq. 1) THEN\n        clay(i,1)=0.200e+0_fp\n        silt(i,1)=0.200e+0_fp\n        sand(i,1)=0.600e+0_fp\n     ELSE IF (soiltext1(i,1) .eq. 2) THEN\n        clay(i,1)=0.090e+0_fp\n        silt(i,1)=0.080e+0_fp\n        sand(i,1)=0.830e+0_fp\n     ELSE IF (soiltext1(i,1) .eq. 3) THEN\n        clay(i,1)=0.200e+0_fp\n        silt(i,1)=0.200e+0_fp\n        sand(i,1)=0.600e+0_fp\n     ELSE IF (soiltext1(i,1) .eq. 4) THEN\n        clay(i,1)=0.300e+0_fp\n        silt(i,1)=0.330e+0_fp\n        sand(i,1)=0.370e+0_fp\n     ELSE IF (soiltext1(i,1) .eq. 5) THEN\n        clay(i,1)=0.480e+0_fp\n        silt(i,1)=0.250e+0_fp\n        sand(i,1)=0.270e+0_fp\n     ELSE IF (soiltext1(i,1) .eq. 6) THEN\n        clay(i,1)=0.670e+0_fp\n        silt(i,1)=0.170e+0_fp\n        sand(i,1)=0.170e+0_fp\n     ELSE IF (soiltext1(i,1) .eq. 7) THEN\n        clay(i,1)=0.200e+0_fp\n        silt(i,1)=0.200e+0_fp\n        sand(i,1)=0.600e+0_fp\n     END IF\n     \n     IF (veg1(i,1) .eq. 1) THEN \n        litcn(i,1) =40.000e+0_fp\n        lignin(i,1)=0.200e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=75.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 2) THEN\n        litcn(i,1) =50.000e+0_fp\n        lignin(i,1)=0.200e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=75.00e+0_fp\n     ELSE IF (veg1(i,1) .eq. 3) THEN\n        litcn(i,1) =65.000e+0_fp\n        lignin(i,1)=0.220e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=75.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 4) THEN\n        litcn(i,1) =80.000e+0_fp\n        lignin(i,1)=0.250e+0_fp\n        lrage(i,1)=3.800e+0_fp\n        woodage(i,1)=75.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 5) THEN\n        litcn(i,1) =50.000e+0_fp\n        lignin(i,1)=0.200e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=75.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 6) THEN\n        litcn(i,1) =50.000e+0_fp\n        lignin(i,1)=0.150e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=50.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 7) THEN\n        litcn(i,1) =50.000e+0_fp\n        lignin(i,1)=0.100e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=50.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 8) THEN! these are made up\n        litcn(i,1) =50.000e+0_fp      ! there is no def in    \n        lignin(i,1)=0.200e+0_fp        ! guido's orig. code\n        lrage(i,1)=1.000e+0_fp         ! for veg=8\n        woodage(i,1)=75.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 9) THEN\n        litcn(i,1) =65.000e+0_fp\n        lignin(i,1)=0.200e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=50.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 10) THEN\n        litcn(i,1) =50.000e+0_fp\n        lignin(i,1)=0.150e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=50.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 11) THEN\n        litcn(i,1) =50.000e+0_fp\n        lignin(i,1)=0.150e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=50.000e+0_fp\n     ELSE IF (veg1(i,1) .eq. 12) THEN\n        litcn(i,1) =40.000e+0_fp\n        lignin(i,1)=0.100e+0_fp\n        lrage(i,1)=1.000e+0_fp\n        woodage(i,1)=50.000e+0_fp\n     END IF\n  END DO\n!$OMP END DO\n\n  ! some of these numbers have CHANGED from the \n  ! original CASA according to an extensive \n  ! study done for BIOME-BGC (White, Thornton\n  ! Running and Nemani 2000 Earth Interactions\n  ! 4(3) 1-85.  See Guido's original matlab code\n  ! for the original numbers\n  \n!$OMP WORKSHARE\n  ! calculate lignin to nitrogen ratio\n  LtN(:,1)=(litcn(:,1) * lignin(:,1))/0.45000e+0_fp\n  \n  ! calculate rate constants for each pool\n  annK_leaf(:,1)=1.000e+0_fp/lrage(:,1)\n  annK_wood(:,1)=1.000e+0_fp/woodage(:,1)\n  annK_froot(:,1)=1.000e+0_fp/lrage(:,1)\n  \n  !Scale rate constants to monthly values\n  K_wood(:,1)=    1.000e+0_fp-((exp(-annK_wood(:,1)))**(.08333333e+0_fp))\n  K_froot(:,1)=   1.000e+0_fp-((exp(-annK_froot(:,1)))**(.08333333e+0_fp))\n  K_leaf(:,1)=    1.000e+0_fp-((exp(-annK_leaf(:,1)))**(.08333333e+0_fp))\n  K_hleaf=   1.000e+0_fp-((exp(-annK_hleaf))**(.08333333e+0_fp))\n  K_hfroot=  1.000e+0_fp-((exp(-annK_hfroot))**(.08333333e+0_fp))\n  K_surfmet= 1.000e+0_fp-((exp(-annK_surfmet))**(.08333333e+0_fp))\n  K_surfstr= 1.000e+0_fp-((exp(-annK_surfstr))**(.08333333e+0_fp))\n  K_soilmet= 1.000e+0_fp-((exp(-annK_soilmet))**(.08333333e+0_fp))\n  K_soilstr= 1.000e+0_fp-((exp(-annK_soilstr))**(.08333333e+0_fp))\n  K_cwd=     1.000e+0_fp-((exp(-annK_cwd))**(.08333333e+0_fp))\n  K_surfmic= 1.000e+0_fp-((exp(-annK_surfmic))**(.08333333e+0_fp))\n  K_soilmic= 1.000e+0_fp-((exp(-annK_soilmic))**(.08333333e+0_fp))\n  K_slow=    1.000e+0_fp-((exp(-annK_slow))**(.08333333e+0_fp))\n  K_armored= 1.000e+0_fp-((exp(-annK_armored))**(.08333333e+0_fp))\n  \n  !microbial efficiency for arrays (others defined in defineArrays)\n  eff_soilmic2slow(:,1)=0.85e+0_fp-(0.68e+0_fp*(silt(:,1)+clay(:,1)))\n  !determine what fraction of litter will be metabolic\n  metabfract(:,1)=0.85e+0_fp-(0.018e+0_fp*LtN(:,1))\n\n  WHERE (metabfract(:,1) < 0e+0_fp)\n     metabfract(:,1) = 0.00e+0_fp\n  END WHERE\n\n  !get the fraction of carbon in the structural litter pools that \n  !will be from lignin\n  structuralLignin(:,1)=((lignin(:,1)*0.650e+0_fp)/0.450e+0_fp)\n  structuralLignin(:,1)=structuralLignin(:,1)/(1e+0_fp-metabfract(:,1))\n  \n  lignineffect(:,1)=exp(-3.00e+0_fp*structuralLignin(:,1))\n  \n  !calculate veg. dependent factors used in belowground model\n  soilmicDecayFactor(:,1)=(1e+0_fp-(0.750e+0_fp*(silt(:,1)+clay(:,1))))\n  slowDecayFactor(:,1)=1.00e+0_fp\n  armoredDecayFactor(:,1)=1.00e+0_fp\n\n  !decay is faster in agricultural gridcells\n  WHERE (veg1(:,1) == 12)\n     soilmicDecayFactor(:,1)=soilmicDecayFactor(:,1)*1.25e+0_fp\n     slowDecayFactor(:,1)=slowDecayFactor(:,1)*1.5e+0_fp\n     armoredDecayFactor(:,1)=armoredDecayFactor(:,1)*1.5e+0_fp\n  END WHERE\n\n  fid(:,1)=0.003e+0_fp-(0.009e+0_fp*clay(:,1))\n  decayClayFactor(:,1)=fid(:,1)\n\n  WHERE (fid(:,1) < 0e+0_fp)\n     decayClayFactor(:,1)=0.000e+0_fp\n  END WHERE\n  WHERE (soilmicDecayFactor(:,1) > 1.0e+0_fp)\n     soilmicDecayFactor(:,1)=1.0e+0_fp\n  END WHERE\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\nEND SUBROUTINE getSoilParams\n!EOC\n"
  },
  {
    "path": "GTMM/input_gtmm_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: input_gtmm_mod\n!\n! !DESCRIPTION: Module INPUT\\_GTMM\\_MOD contains subroutines to read \n!  input file for GTMM.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE INPUT_GTMM_MOD\n!\n! !USES:\n!\n  USE defineConstants\n  USE defineArrays\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PRIVATE DATA MEMBERS:\n! \n  INTEGER, PARAMETER :: FIRSTCOL = 38\n  INTEGER, PARAMETER :: HEADER   = 8\n  CHARACTER(LEN=255) :: FILENAME = 'input.gtmm'\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: READ_GTMM_INPUT_FILE\n!\n! !REVISION HISTORY:\n!  17 Dec 2009 - C. Carouge   - Initial version\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\n  CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_gtmm_input_file \n!\n! !DESCRIPTION: Subroutine READ\\_GTMM\\_INPUT\\_FILE reads the input.gtmm file. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_GTMM_INPUT_FILE\n!\n! !REVISION HISTORY:\n!  17 Dec 2009 - C. Carouge  -- Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    LOGICAL            :: EOF\n    INTEGER            :: IOS, I, IU_GTMM\n    CHARACTER(LEN=255) :: LINE\n\n    IU_GTMM=20\n    ! Open file\n    OPEN( IU_GTMM, FILE=TRIM( FILENAME ), STATUS='OLD', IOSTAT=IOS )\n    IF ( IOS /= 0 ) THEN\n       print*, 'Problem opening the input file for GTMM'\n       stop\n    ENDIF\n\n    !Read header\n    DO i=1,HEADER\n       READ(IU_GTMM, '(a)') LINE\n    ENDDO\n\n    !Read data\n    !Read a line from the file, exit if EOF\n    READ(IU_GTMM,'(a)') LINE\n       \n    !Keep only the data part of the line\n    LINE=LINE(FIRSTCOL:)\n\n    READ(LINE,*) NPPequilibriumYear\n       \n    !Read a line from the file, exit if EOF\n    READ(IU_GTMM,'(a)') LINE\n       \n    !Keep only the data part of the line\n    LINE=LINE(FIRSTCOL:)\n\n    READ(LINE,*) HgPoolsequilibriumYear\n\n    !Initialize indYear too.\n    indYear = HgPoolsequilibriumYear\n       \n    !Read a line from the file, exit if EOF\n    READ(IU_GTMM,'(a)') LINE\n       \n    !Keep only the data part of the line\n    LINE=LINE(FIRSTCOL:)\n\n    READ(LINE,*) preindYear\n    \n    !Read a line from the file, exit if EOF\n    READ(IU_GTMM,'(a)') LINE\n       \n    !Keep only the data part of the line\n    LINE=LINE(FIRSTCOL:)\n\n    READ(LINE,*) LRESTART\n    \n    !Read a line from the file, exit if EOF\n    READ(IU_GTMM,'(a)') LINE\n       \n    !Keep only the data part of the line\n    LINE=LINE(FIRSTCOL:)\n\n    READ(LINE,*) restartfile\n    \n    CLOSE(IU_GTMM)\n  END SUBROUTINE READ_GTMM_INPUT_FILE\n!EOC\nEND MODULE INPUT_GTMM_MOD\n"
  },
  {
    "path": "GTMM/loadCASAinput.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: loadCASAinput\n!\n! !DESCRIPTION: Loads input files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE loadCASAinput\n!\n! !USES:\n!\n  USE defineConstants\n  USE CasaRegridModule\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !PUBLIC DATA MEMBERS:\n!\n!CONTINUOUS FIELD MAPS\n  REAL(fp), ALLOCATABLE :: perc_tree(:,:)\n  REAL(fp), ALLOCATABLE :: perc_herb(:,:) \n  \n!RESIZED CONTINUOUS FIELD MAPS\n  REAL(fp), ALLOCATABLE :: perc_tree1(:,:)\n  REAL(fp), ALLOCATABLE :: perc_herb1(:,:)\n  REAL(fp), ALLOCATABLE :: frac_tree(:,:)\n  REAL(fp), ALLOCATABLE :: frac_herb(:,:)\n  REAL(fp), ALLOCATABLE :: frac_veg(:,:)\n\n!CLIMATE FILES\n  REAL(fp), ALLOCATABLE :: airt(:,:,:)   !monthly air temperature\n  REAL(fp), ALLOCATABLE :: ppt(:,:,:)    !monthly precipitation\n  REAL(fp), ALLOCATABLE :: solrad(:,:,:) !monthly solar radiation, \n                                       !Taken from Bishop and Rossow\n                                       !average 83-99 from Jim Collatz\n\n  REAL(fp), ALLOCATABLE :: NDVI(:,:,:)   !monthly fraction PAR\n  REAL(fp), ALLOCATABLE :: BF(:,:,:)     !fraction gridcell tha burns\n  REAL(fp), ALLOCATABLE :: ppt_mo(:,:)   !sum of all precip in each mo\n   \n!RESIZED CLIMATE FILES\n  REAL(fp), ALLOCATABLE :: airt1(:,:)\n  REAL(fp), ALLOCATABLE :: ppt1(:,:)\n  REAL(fp), ALLOCATABLE :: solrad1(:,:)\n  REAL(fp), ALLOCATABLE :: NDVI1(:,:)\n  REAL(fp), ALLOCATABLE :: BF1(:,:)\n  REAL(fp), ALLOCATABLE :: maxt(:,:)\n  REAL(fp), ALLOCATABLE :: mint(:,:)\n \n!OTHER FILES\n  REAL(fp), ALLOCATABLE :: soiltext(:,:)  ! soil type\n  REAL(fp), ALLOCATABLE :: veg(:,:)       ! vegetation map\n  REAL(fp), ALLOCATABLE :: fuelneed(:,:)  ! fuelwood needed \n                                        !   per capita\n  REAL(fp), ALLOCATABLE :: popdens(:,:)   ! population density (/m2)\n  REAL(fp), ALLOCATABLE :: gridAreaa(:,:)\n  REAL(fp), ALLOCATABLE :: gridAreab(:,:)\n   \n!RESIZED OTHER FILES\n  REAL(fp), ALLOCATABLE :: soiltext1(:,:)\n  REAL(fp), ALLOCATABLE :: veg1(:,:)\n  REAL(fp), ALLOCATABLE :: fuelneed1(:,:)\n  REAL(fp), ALLOCATABLE :: popdens1(:,:)\n\n   \n  REAL(fp), ALLOCATABLE :: mask2(:,:)\n!\n! !REMARKS: For global studies, these files should be given \n!  as 180 by 360 matrix for 1x1 degree, 360 by 720 for half by half \n!  etc.  This routine will construct a 'mask' with vegetated gridcells\n!  and will reshape them into an X by 1 matrix, where X is the total\n!  number of vegetated grid cells.  \n!  The files which contain monthly varying parameters (i.e. precip)\n!  should be given as (for 1x1) 180x360x12, and will be reshaped to\n!  an X by 12 matrix, one column for each month\n!\n! !REVISION HISTORY:\n! 9 July 2010 - C. Carouge  - Modified for coupled simulations with GEOS-Chem\n!                             or to restart offline simulations. \n! 01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  CONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: load_data\n!\n! !DESCRIPTION: Reads input data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE load_data(LCPLE)\n!    \n! !USES:\n!\n    USE defineConstants\n!\n! !INPUT PARAMETERS:\n!\n   LOGICAL, INTENT(IN)  :: LCPLE\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   integer   ::   i, j, k, l, m, n, b, c, ios\n   character(len=f_len+8)                :: filename\n   real(fp), dimension(72,46)              ::   geos\n   real(fp), dimension(columns, rows)      ::   geos1x1\n   character(3), dimension(12)           ::   months     ! Months names\n   \n   !<<<<<<<< ALLOCATE ARRAYS >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n   \n\n   IF (.NOT. ALLOCATED(perc_tree) ) &\n        ALLOCATE (perc_tree(columns, rows), stat=ios)\n   \n   IF (.NOT. ALLOCATED(perc_herb) ) &\n        ALLOCATE (perc_herb(columns, rows), stat=ios)\n   \n   IF (.NOT. ALLOCATED(airt) ) &\n        ALLOCATE (airt(columns, rows,12), stat=ios)\n   \n   IF (.NOT. ALLOCATED(ppt) ) &\n        ALLOCATE (ppt(columns, rows,12), stat=ios)\n   \n   IF (.NOT. ALLOCATED(ppt_mo) ) &\n        ALLOCATE (ppt_mo(1,12))\n   \n   IF (.NOT. ALLOCATED(solrad) ) &\n        ALLOCATE (solrad(columns, rows,12), stat=ios)\n   \n   IF (.NOT. ALLOCATED(NDVI) ) &\n        ALLOCATE (NDVI(columns, rows,12), stat=ios)\n   \n   IF (.NOT. ALLOCATED(BF) ) &\n        ALLOCATE (BF(columns, rows,12), stat=ios)\n\n   IF (.NOT. ALLOCATED(soiltext) ) &\n        ALLOCATE (soiltext(columns, rows), stat=ios)\n   \n   IF (.NOT. ALLOCATED(veg) ) &\n        ALLOCATE (veg(columns, rows), stat=ios)\n   \n   IF (.NOT. ALLOCATED(fuelneed) ) &\n        ALLOCATE (fuelneed(columns, rows), stat=ios)\n   \n   IF (.NOT. ALLOCATED(popdens) ) &\n        ALLOCATE (popdens(columns, rows), stat=ios)\n   \n\n   !<<<<<<<<READ IN DATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n\n   print*, 'Reading in data arrays'\n   filename(1:f_len)=filepath\n   filename(f_len+1:f_len+8)='mon_.csv'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   read(2,*) months\n   close(2)\n\n   filename(1:f_len)=filepath\n   filename(f_len+1:f_len+8)='perc_tre'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   IF (IOS .ne. 0) THEN\n      print '(a)', 'There was an error reading the percent treecover file...&\n                    &aborting run'\n      stop\n   ELSE\n      read(2, *) perc_tree\n      close(2)\n   END IF\n\n   filename(f_len+1:f_len+8)='perc_her'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   IF (IOS /= 0) THEN\n      print '(a)', 'There was an error reading the percent herbaceous file...&\n                    &aborting run'\n      stop\n   ELSE\n      read(2, *) perc_herb\n      close(2)\n   END IF\n\n   CALL CasaRegridInit\n   IF ( .NOT. (LCPLE) ) THEN\n      DO i=1,12\n         filename(f_len+1:f_len+5)='airtg'\n         filename(f_len+6:f_len+8)=months(i)\n         open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n         IF (IOS /= 0) THEN\n            print '(a)', 'There was an error reading the air temp file... &\n                 &aborting run'\n            stop\n         ENDIF\n      \n         read(2,*) geos\n         close(2)\n      \n         CALL regrid4x5to1x1(1, geos, geos1x1)\n         airt(:,:,i)=geos1x1\n\n         geos(:,:)=0.0e+0_fp\n         geos1x1(:,:)=0.0e+0_fp\n\n         airt(:,:,i)=airt(:,:,i)-273.15\n      \n         filename(f_len+1:f_len+5)='pptg_'\n         filename(f_len+6:f_len+8)=months(i)\n         open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n         IF (IOS /= 0) THEN\n            print '(a)', 'There was an error reading the precipitation file...&\n                 &aborting run'\n            stop\n         ENDIF\n         \n         read(2,*) geos\n         close(2)\n         \n         CALL regrid4x5to1x1(1, geos, geos1x1)\n         ppt(:,:,i)=geos1x1\n         geos(:,:)=0.0e+0_fp\n         geos1x1(:,:)=0.0e+0_fp\n   \n         ppt_mo(1,i)=sum(ppt(:,:,i))\n\n         filename(f_len+1:f_len+5)='radg_'\n         filename(f_len+6:f_len+8)=months(i)\n         open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n         IF (IOS /= 0) THEN\n            print '(a)', 'There was an error reading the solar radiation file&\n                 &...aborting run'\n            stop\n         ENDIF\n\n         read(2,*) geos\n         close(2)\n\n         CALL regrid4x5to1x1(1, geos, geos1x1)\n         solrad(:,:,i)=geos1x1\n         geos(:,:)=0.0e+0_fp\n         geos1x1(:,:)=0.0e+0_fp\n      END DO\n   ENDIF\n\n   DO i=1,12\n      filename(f_len+1:f_len+5)='NDVI_'\n      filename(f_len+6:f_len+8)=months(i)\n      open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n      IF (IOS /= 0) THEN\n         print '(a)', 'There was an error reading the NDVI file...&\n                       &aborting run'\n         stop\n      ELSE\n         read(2,*) NDVI(:,:,i)\n         close(2)\n      END IF\n   END DO\n \n   DO i=1,12\n      filename(f_len+1:f_len+5)='burn_'\n      filename(f_len+6:f_len+8)=months(i)\n      open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n      IF (IOS /= 0) THEN\n         print '(a)', 'There was an error reading the fraction burned file&\n                        &...aborting run'\n         stop\n      ELSE\n         read(2,*) BF(:,:,i)\n         close(2)\n      END IF\n   END DO\n\n   filename(f_len+1:f_len+8)='soiltext'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   IF (IOS /= 0) THEN\n      print '(a)', 'There was an error reading the soil texture file...&\n                    &aborting run'\n      stop\n   ELSE\n      read(2,*) soiltext\n      close(2)\n   END IF\n   \n   filename(f_len+1:f_len+8)='vegetati'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   IF (IOS /= 0) THEN\n      print '(a)', 'There was an error reading the vegetation file...&\n                    &aborting run'\n      stop\n   ELSE\n      read(2,*) veg\n      close(2)\n   END IF\n\n   filename(f_len+1:f_len+8)='fuelneed'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   IF (IOS /= 0) THEN\n      print '(a)', 'There was an error reading the needed fuel file...&\n                    &aborting run'\n      stop\n   ELSE\n      read(2,*) fuelneed\n      close(2)\n   END IF\n   \n   filename(f_len+1:f_len+8)='popdenst'\n   open(unit=2, file=filename, form='FORMATTED', iostat=ios)\n   IF (IOS /= 0) THEN\n      print '(a)', 'There was an error reading the population density file...&\n                    &aborting run'\n      stop\n   ELSE\n      read(2,*) popdens\n      close(2)\n   END IF\n   print *, 'Finished reading in data...now resizing arrays'\n   print *, ''\n\n END SUBROUTINE load_data\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: conv_to_1d\n!\n! !DESCRIPTION: Convert maps into one column with only vegetated grid cells\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CONV_TO_1D\n!\n! !USES:\n!\n   USE defineConstants\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   integer :: i\n   character(len=f_len+8)                :: filename\n   \n   real(fp), dimension(columns, rows)      ::   mask1, dummy\n\n   real(fp)  :: radius=6378140.000e+0_fp !m at equator\n   real(fp)  :: pi=3.14159265e+0_fp\n   real(fp)  :: g, a, apixel\n   real(fp), dimension(columns, rows)  :: gridAreac\n   real(fp)  :: testa(180)\n\n   IF (.NOT. ALLOCATED(mask2) ) ALLOCATE(mask2(columns, rows))\n   mask1=(perc_tree+perc_herb)\n   mask2=(mask1*veg)\n!<<<<<<<<<<<<REGRID DATA >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n\n\n   IF (.NOT. ALLOCATED(veg1      ) ) ALLOCATE(veg1(n_veg,1))\n   IF (.NOT. ALLOCATED(soiltext1 ) ) ALLOCATE(soiltext1(n_veg,1))\n   IF (.NOT. ALLOCATED(fuelneed1 ) ) ALLOCATE(fuelneed1(n_veg,1))\n   IF (.NOT. ALLOCATED(popdens1  ) ) ALLOCATE(popdens1(n_veg,1))\n   IF (.NOT. ALLOCATED(perc_tree1) ) ALLOCATE(perc_tree1(n_veg,1))\n   IF (.NOT. ALLOCATED(perc_herb1) ) ALLOCATE(perc_herb1(n_veg,1))\n   IF (.NOT. ALLOCATED(frac_tree ) ) ALLOCATE(frac_tree(n_veg, 1))\n   IF (.NOT. ALLOCATED(frac_herb ) ) ALLOCATE(frac_herb(n_veg, 1))\n   IF (.NOT. ALLOCATED(frac_veg  ) ) ALLOCATE(frac_veg(n_veg, 1))\n   IF (.NOT. ALLOCATED(airt1     ) ) ALLOCATE(airt1(n_veg, 12))\n   IF (.NOT. ALLOCATED(ppt1      ) ) ALLOCATE(ppt1(n_veg, 12))\n   IF (.NOT. ALLOCATED(solrad1   ) ) ALLOCATE(solrad1(n_veg, 12))\n   IF (.NOT. ALLOCATED(NDVI1     ) ) ALLOCATE(NDVI1(n_veg, 12))\n   IF (.NOT. ALLOCATED(BF1       ) ) ALLOCATE(BF1(n_veg, 12))\n   IF (.NOT. ALLOCATED(gridAreaa ) ) ALLOCATE(gridAreaa(columns, rows))\n   IF (.NOT. ALLOCATED(gridAreab ) ) ALLOCATE(gridAreab(n_veg,1))\n   IF (.NOT. ALLOCATED(maxt      ) ) ALLOCATE(maxt(n_veg, 1))\n   IF (.NOT. ALLOCATED(mint      ) ) ALLOCATE(mint(n_veg, 1))\n\n   veg1            =maskfile(veg, mask2)\n   soiltext1       =maskfile(soiltext, mask2)\n   fuelneed1       =maskfile(fuelneed, mask2)\n   popdens1        =maskfile(popdens, mask2)\n   perc_tree1      =maskfile(perc_tree, mask2)\n   perc_herb1      =maskfile(perc_herb, mask2)\n   airt1           =mask12file(airt, mask2)\n   ppt1            =mask12file(ppt, mask2)\n   solrad1         =mask12file(solrad, mask2)\n   NDVI1           =mask12file(NDVI, mask2)\n   BF1             =mask12file(BF, mask2)\n   !BF1             =BF1*1.10\n   frac_veg(:,1)=perc_tree1(:,1)+perc_herb1(:,1)\n   \n   DO i=1, n_veg\n      IF (frac_veg(i,1) .gt. 0e+0_fp) THEN\n         frac_tree(i,1)=perc_tree1(i,1)/frac_veg(i,1)\n         frac_herb(i,1)=perc_herb1(i,1)/frac_veg(i,1)\n      ELSE\n         frac_tree(i,1)=0.0e+0_fp\n         frac_herb(i,1)=0.0e+0_fp\n      ENDIF\n   END DO\n   \n   DO i=1, n_veg\n      maxt(i,1)=maxval(airt1(i,:))\n      mint(i,1)=minval(airt1(i,:))\n      !  DO j=1, 12\n      !  IF (BF1(i,j) .gt. 1.0) THEN\n      !      BF1(i,j)=1.0\n      !  ENDIF\n      !  END DO\n   END DO\n   !makes a grid area map depending on the resolution \n   \n   g=0.0e+0_fp\n   a=90.0e+0_fp\n   DO i=1,rows\n      apixel=2.00e+0_fp*pi*radius\n      apixel=apixel/columns\n      apixel=apixel*apixel\n      g=a*0.0174532925e+0_fp\n      testa(i)=cos(g)\n      gridAreac(:,i)=apixel*abs(testa(i))\n      a=a-1!(180.0/rows)\n   END DO\n   print *, sum(gridAreac)\n   gridAreab       =maskfile(gridAreac, mask2)\n   gridAreaa       =gridAreac\n   \n   \n   filename(1:f_len)=filepath\n   filename(f_len+1:f_len+8)='grida1x1'\n   OPEN(UNIT=4, file=filename, FORM='FORMATTED')\n   WRITE(4,FMT=\"(360E12.5)\") gridAreaa\n   CLOSE(4)\n   \n   filename(f_len+1:f_len+8)='gridarea'\n   OPEN(UNIT=4, file=filename, FORM='FORMATTED')\n   WRITE(4,FMT=\"(1E12.5)\") gridAreab\n   CLOSE(4)\n\n   filename(f_len+1:f_len+8)='mask_veg'\n   OPEN(UNIT=4, file=filename, FORM='FORMATTED')\n   WRITE(4,FMT=\"(1E12.5)\") mask2\n   CLOSE(4)\n   \n END SUBROUTINE CONV_TO_1D\n!EOC \n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: maskfile\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n function maskfile(dummy,mask3) result (masked_file)\n!\n! !USES:\n!\n   USE defineConstants\n\n   implicit none\n!\n! !INPUT PARAMETERS:\n!\n   real(fp), dimension(columns, rows) :: dummy, mask3\n!\n! !RETURN VALUE:\n!\n   real(fp), dimension(n_veg,1)  :: masked_file\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   integer                 :: a,b,c,g,i,j\n   character(len=f_len_output+3)       :: filename3\n   real(fp), dimension(3,n_veg)           :: key\n   \n   filename3(1:f_len_output)=outputpath\n   filename3(f_len_output+1:f_len_output+3)='key'\n   \n   g=1\n   DO i=1,columns\n      DO j=1,rows\n         IF (mask3(i,j) > 0) THEN\n            masked_file(g,1)=dummy(i,j)\n            key(1,g)=i\n            key(2,g)=j\n            key(3,g)=veg(i,j)\n            g=g+1\n         END IF\n      END DO\n   END DO\n   \n   OPEN(UNIT=4, file=filename3, FORM='FORMATTED')\n   WRITE(4,FMT=\"(3F9.2)\") key\n   CLOSE(4)\n end function maskfile\n!EOC \n!----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: mask12file\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n function mask12file(dummy12, mask3) result (masked_12file)\n!\n! !USES:\n!\n   USE defineConstants\n\n   implicit none\n!\n! !INPUT PARAMETERS:\n!\n   real(fp), dimension(columns, rows, 12)  ::  dummy12\n   real(fp), dimension(columns, rows)      ::  mask3\n!\n! !RETURN VALUE:\n!\n   real(fp), dimension(n_veg, 12)              ::  masked_12file\n!\n! !REVISION HISTORY:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   integer                               ::  a, g, i, j, k\n\n   g=1\n   DO i=1,columns\n      DO j=1, rows\n         IF (mask3(i,j) .gt. 0e+0_fp) THEN\n            DO k=1,12  ! months\n               masked_12file(g,k)=dummy12(i,j,k)\n            END DO\n            g=g+1\n         END IF\n      END DO\n   END DO\n   \n end function mask12file\n!EOC\nEND MODULE loadCASAinput\n\n\n"
  },
  {
    "path": "GTMM/loadHgDeposition.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: loadHgDeposition\n!\n! !DESCRIPTION: This code reads in output from geos chem 4x5 degree, \n!  converts it to 1x1 degree, then converts it to (n\\_veg,1) for CASA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE loadHgDeposition(LCPLE, DD_Hg0, DD_HgII, WD_HgII)\n!\n! !USES:\n!      \n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE CasaRegridModule\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n    \n  IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n  LOGICAL, INTENT(IN)           :: LCPLE\n  \n  REAL(fp), INTENT(IN), OPTIONAL  :: DD_Hg0(72, 46), DD_HgII(72, 46)\n  REAL(fp), INTENT(IN), OPTIONAL  :: WD_HgII(72, 46)\n!\n! !REVISION HISTORY:\n! 15 Dec 2009 - C. Carouge  - Add arguments for coupling with GEOS-Chem\n  !                         - Change format of emission years file to \n!                             facilitate restart.\n! 01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!-----------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  REAL(fp) ::                 Hg0dryGEOS(72,46)\n  REAL(fp) ::                 HgIIdryGEOS(72,46)\n  REAL(fp) ::                 HgIIwetGEOS(72,46)\n  REAL(fp) ::                 area_pix(72,46)\n  REAL(fp) ::                 Hg0dry1x1(360,180)\n  REAL(fp) ::                 HgIIdry1x1(360,180)\n  REAL(fp) ::                 HgIIwet1x1(360,180)\n  REAL(fp) ::                 LAT_LONG(3,n_veg)\n  INTEGER ::                i, j, ios, v,w, k\n  CHARACTER(LEN=f_len+14) :: filename1\n  CHARACTER(LEN=f_len+6) :: filename2\n  CHARACTER(3), DIMENSION(12) :: months\n  INTEGER, DIMENSION(2):: em_years\n  INTEGER              :: year\n\n  CHARACTER(4)   :: read_year\n\n  LOGICAL, SAVE :: FIRST=.TRUE.  ! Indicate if we read the data for the first\n                                 ! time. GTMM offline only.\n\n  !=====================================================================\n  ! loadHgDepostion begins here !\n  !=====================================================================\n\n  filename2(1:f_len)=filepath\n  filename2(f_len+1:f_len+6)='geosm2'\n  OPEN(UNIT=3, FILE=filename2, FORM='FORMATTED',IOSTAT=ios)\n  READ(3,*) area_pix\n  CLOSE(3)\n  \n  filename2(f_len+1:f_len+6)='months'\n  OPEN(UNIT=3, FILE=filename2, FORM='FORMATTED', IOSTAT=ios)\n  READ(3,*) months\n  CLOSE(3)\n  \n  filename2(f_len+1:f_len+6)='emyear'\n  OPEN(UNIT=3, FILE=filename2, FORM='FORMATTED', IOSTAT=ios)\n  READ(3,*) em_years\n  CLOSE(3)\n\n  IF ( LCPLE ) THEN\n     IF (.NOT.( PRESENT( DD_Hg0  ) )) THEN\n        stop 'Dry deposition of Hg0 is missing'\n\n     ELSE\n        ! Use deposition from GEOS-Chem\n        Hg0dryGEOS = DD_Hg0\n        \n     ENDIF\n     \n     IF (.NOT.( PRESENT( DD_HgII  ) )) THEN\n        stop 'Dry deposition of HgII is missing'\n        \n     ELSE\n        ! Use deposition from GEOS-Chem\n        HgIIdryGEOS = DD_HgII\n        \n     ENDIF\n     \n     IF (.NOT.( PRESENT( WD_HgII  ) )) THEN\n        stop 'Wet deposition of HgII is missing'\n        \n     ELSE\n        ! Use deposition from GEOS-Chem\n        HgIIwetGEOS = WD_HgII\n     ENDIF\n     \n100  FORMAT('Warning: Read deposition from archive for: ',a)\n     \n     !convert units\n     !wet dep is in units of kg/s\n!$OMP PARALLEL DO    &\n!$OMP PRIVATE(i, j)\n     DO i=1,46\n     DO j=1,72\n        HgIIwetGEOS(j,i)=HgIIwetGEOS(j,i)/area_pix(j,i)\n        \n        HgIIwetGEOS(j,i)=HgIIwetGEOS(j,i)*1000.0e+0_fp*2629743.83e+0_fp\n        !now in units of g/m2/mo\n        \n        !dry dep is in unitls of molec/cm2/s\n        HgIIdryGEOS(j,i)=(HgIIdryGEOS(j,i)*(10000.0e+0_fp*2629743.83e+0_fp* &\n                200.59e+0_fp))/(6.022e+23_fp)\n        Hg0dryGEOS(j,i)=(Hg0dryGEOS(j,i)*(10000.0e+0_fp*2629743.83e+0_fp* &\n                200.59e+0_fp))/(6.022e+23_fp)\n        !now in units of g/m2/mo\n     END DO\n     END DO\n!$OMP END PARALLEL DO  \n\n!!!!First step - regrid geos chem 4x5 to 1x1\n     CALL CasaRegridInit\n     CALL regrid4x5to1x1(1, Hg0dryGEOS, Hg0dry1x1)\n     CALL regrid4x5to1x1(1, HgIIdryGEOS, HgIIdry1x1)\n     CALL regrid4x5to1x1(1, HgIIwetGEOS, HgIIwet1x1)\n  \n!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n!!!!Now convert 1x1 to n_veg x1 for use by CASA\n     Hg0dry(:,:)=0.0e+0_fp\n     HgIIdry(:,:)=0.0e+0_fp\n     HgIIwet(:,:)=0.0e+0_fp\n     Hg0dry(:,:) = maskfile(Hg0dry1x1, mask2)\n     HgIIdry(:,:) = maskfile(HgIIdry1x1, mask2)\n     HgIIwet(:,:) = maskfile(HgIIwet1x1, mask2)\n\n  ELSE\n     \n     ! Find the year for the emissions. (ccc, 12/15/09)\n     IF ( yr <= preindYear ) THEN\n!        read_year=em_years(1)\n        write(read_year,'(i4)') em_years(1)\n     ELSE\n        year=em_years(1)+yr-preindYear      ! Number of years in \n                                            ! industrialization period\n        year=MIN(year,em_years(2))\n        write(read_year,'(i4)'), year\n\n        IF ( mo == 1 ) FIRST = .TRUE.\n     ENDIF\n\n     IF ( FIRST ) THEN  ! Read the full year at once.\n\n        filename2(1:f_len)=filepath\n        filename2(f_len+1:f_len+6)='latlon'\n        OPEN(UNIT=3, FILE=filename2, FORM='FORMATTED', IOSTAT=ios)\n        READ(3,FMT=\"(3F9.2)\") LAT_LONG\n        CLOSE(3)\n\n        DO k=1,12 \n\n           filename1(1:f_len)=filepath\n           filename1(f_len+1:f_len+6)='Hg0dry'\n           filename1(f_len+7:f_len+9)=months(k)\n!--- Previous to (ccc, 12/15/09)\n!     filename1(f_len+10:f_len+14)=em_years(yr)\n           filename1(f_len+10:f_len+14)=read_year\n     \n           OPEN(UNIT=3, FILE=filename1, IOSTAT=ios, FORM=\"FORMATTED\")\n           READ(3,FMT=\"(72E12.5)\") Hg0dryGEOS\n           CLOSE(3)\n     \n           filename1(f_len+1:f_len+6)='Hg2dry'\n           OPEN(UNIT=3, FILE=filename1, IOSTAT=ios, FORM=\"FORMATTED\")\n           READ(3,FMT=\"(72E12.5)\") HgIIdryGEOS\n           CLOSE(3)\n     !------------------------------------------------------------------------------\n\n           filename1(f_len+1:f_len+6)='Hg2wet'\n           OPEN(UNIT=3, FILE=filename1, IOSTAT=ios, FORM=\"FORMATTED\")\n           READ(3,FMT=\"(72E12.5)\") HgIIwetGEOS\n           CLOSE(3)\n     \n           !convert units\n           !wet dep is in units of kg/s\n!$OMP PARALLEL DO    &\n!$OMP PRIVATE(i, j)\n           DO i=1,46\n           DO j=1,72\n              HgIIwetGEOS(j,i)=HgIIwetGEOS(j,i)/area_pix(j,i)\n              \n              HgIIwetGEOS(j,i)=HgIIwetGEOS(j,i)*1000.0e+0_fp*2629743.83e+0_fp\n              !now in units of g/m2/mo\n              \n              !dry dep is in unitls of molec/cm2/s\n              HgIIdryGEOS(j,i)=(HgIIdryGEOS(j,i)*(10000.0e+0_fp*2629743.83e+0_fp &\n                *200.59e+0_fp))/(6.022e+23_fp)\n              Hg0dryGEOS(j,i)=(Hg0dryGEOS(j,i)*(10000.0e+0_fp*2629743.83e+0_fp &\n                *200.59e+0_fp))/(6.022e+23_fp)\n              !now in units of g/m2/mo\n           END DO\n           END DO\n!$OMP END PARALLEL DO  \n\n!!!!First step - regrid geos chem 4x5 to 1x1\n           CALL CasaRegridInit\n           CALL regrid4x5to1x1(1, Hg0dryGEOS, Hg0dry1x1)\n           CALL regrid4x5to1x1(1, HgIIdryGEOS, HgIIdry1x1)\n           CALL regrid4x5to1x1(1, HgIIwetGEOS, HgIIwet1x1)\n  \n!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n  \n!!!!Now convert 1x1 to n_veg x1 for use by CASA\n           Hg0dry_mo(:,:,k)=0.0e+0_fp\n           HgIIdry_mo(:,:,k)=0.0e+0_fp\n           HgIIwet_mo(:,:,k)=0.0e+0_fp\n           Hg0dry_mo(:,:,k) = maskfile(Hg0dry1x1, mask2)\n           HgIIdry_mo(:,:,k) = maskfile(HgIIdry1x1, mask2)\n           HgIIwet_mo(:,:,k) = maskfile(HgIIwet1x1, mask2)\n        ENDDO\n        FIRST = .FALSE.\n     ENDIF\n\n     ! Store the data for the current month\n     Hg0dry = Hg0dry_mo(:,:,mo)\n     HgIIdry = HgIIdry_mo(:,:,mo)\n     HgIIwet = HgIIwet_mo(:,:,mo)\n\n  ENDIF\n  \nEND SUBROUTINE loadHgDeposition\n!EOC\n"
  },
  {
    "path": "GTMM/load_GC_data.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: load_GC_data\n!\n! !DESCRIPTION: Subroutine load\\_GC\\_data is only used with GTMM coupled to\n!  GEOS-Chem. The subroutine regrid the temperature, precipation and\n!  radiation fields to 1x1. The met fields are read in GTMM\\_DR in GEOS\\_Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE load_GC_data(month, TS, PREACC, RADSWG)\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE CasaRegridModule\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  implicit none\n!\n! !INPUT PARAMETERS:\n!\n  INTEGER, INTENT(IN) :: month\n  REAL(fp), INTENT(IN), DIMENSION(I4x5, J4x5)  :: TS, &\n       PREACC, RADSWG\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Initial version\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  real(fp), dimension(columns, rows)      ::   geos1x1\n  \n\n  CALL regrid4x5to1x1(1, TS, geos1x1)\n  airt(:,:,month)=geos1x1\n  airt(:,:,month)=airt(:,:,month)-273.15e+0_fp\n  \n\n  CALL regrid4x5to1x1(1, PREACC, geos1x1)\n  ppt(:,:,month)=geos1x1\n  ppt_mo(1,month)=sum(ppt(:,:,month))\n  \n\n  CALL regrid4x5to1x1(1, RADSWG, geos1x1)\n  solrad(:,:,month)=geos1x1\n  \nEND SUBROUTINE load_GC_data\n!EOC\n"
  },
  {
    "path": "GTMM/organizeAgeClasses.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: organizeAgeClasses\n!\n! !DESCRIPTION: This routine reorganizes the pools according to the age \n!  classes so that the oldest comes first (and will run and burn first)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE organizeAgeClasses\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  \n  IMPLICIT NONE\n! \n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge  - Parallelization\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER :: i, j, k, l\n  REAL(fp)  :: g\n      \n  !\n  !this routine should only be run if the model is run\n  !with ageClasses.  When not interested in fires, don't\n  !run the ageclasses\n  \n  ageClassSorted(:,:)=ageClassIndex(:,:)\n  g=1.0e+0_fp\n  DO i=1,n_age_classes\n     ageClassSortedInd(:,i)=g\n     g=g+1\n  END DO\n  \n  CALL sort_pick_veg(ageClassSorted, ageClassSortedInd)\n\n!$OMP PARALLEL DO DEFAULT(SHARED)  &\n!$OMP PRIVATE(i, j, l)\n  DO i=1, n_veg\n     IF (BFallClasses(i,mo) .gt. 0e+0_fp) THEN !things only change if\n        ! there was a fire\n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=ageClassIndex(i,l)\n        END DO\n        \n        ageClassIndex(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        !organize woodpools\n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=abovewoodpools(i,l)\n        END DO\n        \n        abovewoodpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=belowwoodpools(i,l)\n        END DO\n        \n        belowwoodpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=leafpools(i,l)\n        END DO\n        \n        leafpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=frootpools(i,l)\n        END DO\n        \n        frootpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=cwdpools(i,l)\n        END DO\n        \n        cwdpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=surfstrpools(i,l)\n        END DO\n        \n        surfstrpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=surfmetpools(i,l)\n        END DO\n        \n        surfmetpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=surfmicpools(i,l)\n        END DO\n        \n        surfmicpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=soilstrpools(i,l)\n        END DO\n        \n        soilstrpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=soilmetpools(i,l)\n        END DO\n\n        soilmetpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=soilmicpools(i,l)\n        END DO\n        \n        soilmicpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=slowpools(i,l)\n        END DO\n        \n        slowpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=armoredpools(i,l)\n        END DO\n        \n        armoredpools(i,:)=tempAge(1,:)\n        \n        !organize herbaceous pools\n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hleafpools(i,l)\n        END DO\n        \n        hleafpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1,n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hfrootpools(i,l)\n        END DO\n        \n        hfrootpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hsurfstrpools(i,l)\n        END DO\n        \n        hsurfstrpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hsurfmetpools(i,l)\n        END DO\n        \n        hsurfmetpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hsurfmicpools(i,l)\n        END DO\n        \n        hsurfmicpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hsoilstrpools(i,l)\n        END DO\n        \n        hsoilstrpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hsoilmetpools(i,l)\n        END DO\n        \n        hsoilmetpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hsoilmicpools(i,l)\n        END DO\n        \n        hsoilmicpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=hslowpools(i,l)\n        END DO\n        \n        hslowpools(i,:)=tempAge(1,:)\n        \n        tempAge=tempAge*0.0e+0_fp\n        \n        DO j=1, n_age_classes\n           l=int(ageClassSortedInd(i,j))\n           tempAge(1,j)=harmoredpools(i,l)\n        END DO\n        \n        harmoredpools(i,:)=tempAge(1,:)\n        \n     ENDIF\n  END DO\n!$OMP END PARALLEL DO\nEND SUBROUTINE organizeAgeClasses\n!EOC\n"
  },
  {
    "path": "GTMM/processData.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: processData\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE processData\n!\n! !USES:\n!\n  USE defineConstants\n  USE loadCASAinput\n  USE defineArrays\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  \n  IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Caroauge - Initial version\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  integer   :: i\n  integer, dimension(26)    :: st\n  character(len=f_len_output+14) :: filename1\n\n  st(:)=0.0e+0_fp\n!!!!!monthly sum of total fluxes for all veg. pixels\n!!!!! UNITS = g\n  NPPmonthly(yr,mo)    = SUM(gridAreab(:,1)*(frac_tree(:,1)+frac_herb(:,1))*NPP(:,mo))\n  respmonthly(yr,mo)   = SUM(gridAreab(:,1)*((frac_tree(:,1)*wresp(:,1))+(frac_herb(:,1)*hresp(:,1))))\n  combmonthly(yr,mo)   = SUM(gridAreab(:,1)*((frac_tree(:,1)*wcomb(:,1))+(frac_herb(:,1)*hresp(:,1))))\n  herbmonthly(yr,mo)   = SUM(gridAreab(:,1)*((frac_tree(:,1)*wherb(:,1))+(frac_herb(:,1)*hherb(:,1))))\n  biofmonthly(yr,mo)   = SUM(gridAreab(:,1)*wbiof(:,1)*frac_tree(:,1))\n  \n  \n  respmonthly_hg(yr,mo)= SUM(gridAreab(:,1)*((frac_tree(:,1)*wresp_hg(:,1))+(frac_herb(:,1)*hresp_hg(:,1))))\n  combmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*((frac_tree(:,1)*wcomb_hg(:,1))+(frac_herb(:,1)*hcomb_hg(:,1))))\n  reemmonthly_hg(yr,mo)= SUM(gridAreab(:,1)*reemitted(:,1))\n  photmonthly_hg(yr,mo)= SUM(gridAreab(:,1)*photoreduced(:,1))\n!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n!!!!monthly fluxes of respiration by each soil class\n      ! these have already been weighted by f_tree and f_herb (see doTreeCarbonHg and doHerbCarbonHg)\n  resp_surfstr(:,mo)=resp_surfstr(:,mo)*gridAreab(:,1) !units = g\n  resp_surfmet(:,mo)=resp_surfmet(:,mo)*gridAreab(:,1)\n  resp_surfmic(:,mo)=resp_surfmic(:,mo)*gridAreab(:,1)\n  resp_soilstr(:,mo)=resp_soilstr(:,mo)*gridAreab(:,1)\n  resp_soilmet(:,mo)=resp_soilmet(:,mo)*gridAreab(:,1)\n  resp_soilmic(:,mo)=resp_soilmic(:,mo)*gridAreab(:,1)\n  resp_slow(:,mo)=resp_slow(:,mo)*gridAreab(:,1)\n  resp_armored(:,mo)=resp_armored(:,mo)*gridAreab(:,1)\n  \n  resp_surfstr_hg(:,mo)=resp_surfstr_hg(:,mo)*gridAreab(:,1) !units = g\n  resp_surfmet_hg(:,mo)=resp_surfmet_hg(:,mo)*gridAreab(:,1)\n  resp_surfmic_hg(:,mo)=resp_surfmic_hg(:,mo)*gridAreab(:,1)\n  resp_soilstr_hg(:,mo)=resp_soilstr_hg(:,mo)*gridAreab(:,1)\n  resp_soilmet_hg(:,mo)=resp_soilmet_hg(:,mo)*gridAreab(:,1)\n  resp_soilmic_hg(:,mo)=resp_soilmic_hg(:,mo)*gridAreab(:,1)\n  resp_slow_hg(:,mo)=resp_slow_hg(:,mo)*gridAreab(:,1)\n  resp_armored_hg(:,mo)=resp_armored_hg(:,mo)*gridAreab(:,1)\n  \n  Hg_pool_fluxes1(:,mo)=Hg_pool_fluxes1(:,mo)*gridAreab(:,1) !units = g\n  Hg_pool_fluxes2(:,mo)=Hg_pool_fluxes2(:,mo)*gridAreab(:,1) !units = g\n  Hg_pool_fluxes3(:,mo)=Hg_pool_fluxes3(:,mo)*gridAreab(:,1) !units = g\n  Hg_pool_fluxes4(:,mo)=Hg_pool_fluxes4(:,mo)*gridAreab(:,1) !units = g\n  Hg_pool_fluxes5(:,mo)=Hg_pool_fluxes5(:,mo)*gridAreab(:,1) !units = g\n  Hg_pool_fluxes6(:,mo)=Hg_pool_fluxes6(:,mo)*gridAreab(:,1) !units = g\n  \n  \n!!!!!!!!!!Monthly size of pools, units=g\n  slowmonthly(yr,mo)   = SUM(gridAreab(:,1)*(frac_tree(:,1)*slowpool(:,1)+frac_herb(:,1)*hslowpool(:,1)))\n  armoredmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*armoredpool(:,1)+frac_herb(:,1)*harmoredpool(:,1)))\n  surfstrmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*surfstrpool(:,1)+frac_herb(:,1)*hsurfstrpool(:,1)))\n  surfmetmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*surfmetpool(:,1)+frac_herb(:,1)*hsurfmetpool(:,1)))\n  surfmicmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*surfmicpool(:,1)+frac_herb(:,1)*hsurfmicpool(:,1)))\n  soilstrmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*soilstrpool(:,1)+frac_herb(:,1)*hsoilstrpool(:,1)))\n  soilmetmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*soilmetpool(:,1)+frac_herb(:,1)*hsoilmetpool(:,1)))\n  soilmicmonthly(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*soilmicpool(:,1)+frac_herb(:,1)*hsoilmicpool(:,1)))\n  leafmonthly(yr,mo)   = SUM(gridAreab(:,1)*(frac_tree(:,1)*leafpool(:,1)+frac_herb(:,1)*hleafpool(:,1)))   \n!!!!!!!Monthly size of Hg pools, units=g\n  slowmonthly_hg(yr,mo)   =SUM(gridAreab(:,1)*(frac_tree(:,1)*slowpool_hg(:,1)&\n       & +frac_herb(:,1)*hslowpool_hg(:,1)))\n  armoredmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*(frac_tree(:,1)*armoredpool_hg(:,1)&\n       & +frac_herb(:,1)*harmoredpool_hg(:,1)))\n  surfstrmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*(frac_tree(:,1)*surfstrpool_hg(:,1)&\n       & +frac_herb(:,1)*hsurfstrpool_hg(:,1)))\n  surfmetmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*(frac_tree(:,1)*surfmetpool_hg(:,1)&\n       & +frac_herb(:,1)*hsurfmetpool_hg(:,1)))\n  surfmicmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*(frac_tree(:,1)*surfmicpool_hg(:,1)&\n       & +frac_herb(:,1)*hsurfmicpool_hg(:,1)))\n  soilstrmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*(frac_tree(:,1)*soilstrpool_hg(:,1)&\n       & +frac_herb(:,1)*hsoilstrpool_hg(:,1)))\n  soilmetmonthly_hg(yr,mo)=SUM(gridAreab(:,1)*(frac_tree(:,1)*soilmetpool_hg(:,1)&\n       & +frac_herb(:,1)*hsoilmetpool_hg(:,1)))\n  soilmicmonthly_hg(yr,mo)= SUM(gridAreab(:,1)*(frac_tree(:,1)*soilmicpool_hg(:,1)&\n       & +frac_herb(:,1)*hsoilmicpool_hg(:,1)))\n  leafmonthly_hg(yr,mo)   = SUM(gridAreab(:,1)*(frac_tree(:,1)*leafpool_hg(:,1)&\n       & +frac_herb(:,1)*hleafpool_hg(:,1)))   \n  HgAqmonthly(yr,mo)      = SUM(gridAreab(:,1)*(frac_tree(:,1)*HgAq(:,1)&\n       & +frac_herb(:,1)*hHgAq(:,1)))\n  total_tree_hg(:,1)=slowpool_hg(:,1)+armoredpool_hg(:,1)+surfstrpool_hg(:,1)&\n       &+surfmetpool_hg(:,1)+surfmicpool_hg(:,1)+soilstrpool_hg(:,1)+soilmetpool_hg(:,1)&\n       &+soilmicpool_hg(:,1)\n  total_herb_hg(:,1)=hslowpool_hg(:,1)+harmoredpool_hg(:,1)+hsurfstrpool_hg(:,1)&\n       &+hsurfmetpool_hg(:,1)+hsurfmicpool_hg(:,1)+hsoilstrpool_hg(:,1)+hsoilmetpool_hg(:,1)&\n       &+hsoilmicpool_hg(:,1)\n  \n  IF (mo .eq. 12) THEN\n     DO i=1, n_veg\n        IF (veg1(i,1) .eq. 1) THEN\n           biomeAnnual_Hg(yr,1)=biomeAnnual_Hg(yr,1)&\n                &+(((frac_tree(i,1)*total_tree_hg(i,1))+(frac_herb(i,1)*total_herb_hg(i,1)))*gridAreab(i,1))\n        ENDIF\n        IF (veg1(i,1) .eq. 3) THEN\n           biomeAnnual_Hg(yr,2)=biomeAnnual_Hg(yr,2)&\n                &+(((frac_tree(i,1)*total_tree_hg(i,1))+(frac_herb(i,1)*total_herb_hg(i,1)))*gridAreab(i,1))\n        ENDIF\n        IF (veg1(i,1) .eq. 4) THEN\n           biomeAnnual_Hg(yr,3)=biomeAnnual_Hg(yr,3)&\n                &+(((frac_tree(i,1)*total_tree_hg(i,1))+(frac_herb(i,1)*total_herb_hg(i,1)))*gridAreab(i,1))\n        ENDIF\n        IF (veg1(i,1) .eq. 6) THEN\n           biomeAnnual_Hg(yr,4)=biomeAnnual_Hg(yr,4)&\n                &+(((frac_tree(i,1)*total_tree_hg(i,1))+(frac_herb(i,1)*total_herb_hg(i,1)))*gridAreab(i,1))\n        ENDIF\n        IF (veg1(i,1) .eq. 10) THEN\n           biomeAnnual_Hg(yr,5)=biomeAnnual_Hg(yr,5)&\n                &+(((frac_tree(i,1)*total_tree_hg(i,1))+(frac_herb(i,1)*total_herb_hg(i,1)))*gridAreab(i,1))\n        ENDIF\n     END DO\n  ENDIF\n  \n  IF ((yr .eq. HgPOOLSequilibriumYear) .or. (yr .eq. preindYear) .or. (yr .eq. indYear))THEN\n!$OMP PARALLEL         &\n!$OMP DEFAULT(SHARED)\n!$OMP WORKSHARE\n     respEQ(:,mo)=(frac_tree(:,1)*wresp(:,1)+frac_herb(:,1)*hresp(:,1))\n     combEQ(:,mo)=(frac_tree(:,1)*wcomb(:,1)+frac_herb(:,1)*hcomb(:,1))\n     herbEQ(:,mo)=(frac_tree(:,1)*wherb(:,1)+frac_herb(:,1)*hherb(:,1))\n     biofEQ(:,mo)=wbiof(:,1)!*frac_tree(:,1)\n     \n     respEQ_hg(:,mo)=(frac_tree(:,1)*wresp_hg(:,1))+(frac_herb(:,1)*hresp_hg(:,1))\n     combEQ_hg(:,mo)=(frac_tree(:,1)*wcomb_hg(:,1))+(frac_herb(:,1)*hcomb_hg(:,1))\n     reemitEQ_hg(:,mo)=reemitted(:,1)\n     photoEQ_hg(:,mo)=photoreduced(:,1)\n     leafpoolEQ(:,mo)   =(frac_tree(:,1)*leafpool(:,1))    + (frac_herb(:,1)*hleafpool(:,1))\n     slowpoolEQ(:,mo)   =(frac_tree(:,1)*slowpool(:,1))    + (frac_herb(:,1)*hslowpool(:,1))\n     armoredpoolEQ(:,mo)=(frac_tree(:,1)*armoredpool(:,1)) + (frac_herb(:,1)*harmoredpool(:,1))\n     surfstrpoolEQ(:,mo)=(frac_tree(:,1)*surfstrpool(:,1)) + (frac_herb(:,1)*hsurfstrpool(:,1))\n     soilstrpoolEQ(:,mo)=(frac_tree(:,1)*soilstrpool(:,1)) + (frac_herb(:,1)*hsoilstrpool(:,1))\n     surfmetpoolEQ(:,mo)=(frac_tree(:,1)*surfmetpool(:,1)) + (frac_herb(:,1)*hsurfmetpool(:,1))\n     soilmetpoolEQ(:,mo)=(frac_tree(:,1)*soilmetpool(:,1)) + (frac_herb(:,1)*hsoilmetpool(:,1))\n     surfmicpoolEQ(:,mo)=(frac_tree(:,1)*surfmicpool(:,1)) + (frac_herb(:,1)*hsurfmicpool(:,1))\n     soilmicpoolEQ(:,mo)=(frac_tree(:,1)*soilmicpool(:,1)) + (frac_herb(:,1)*hsoilmicpool(:,1))\n     \n     leafpoolEQ_hg(:,mo)   =(frac_tree(:,1)*leafpool_Hg(:,1))    + (frac_herb(:,1)*hleafpool_Hg(:,1))\n     slowpoolEQ_hg(:,mo)   =(frac_tree(:,1)*slowpool_Hg(:,1))    + (frac_herb(:,1)*hslowpool_Hg(:,1))\n     armoredpoolEQ_hg(:,mo)=(frac_tree(:,1)*armoredpool_Hg(:,1)) + (frac_herb(:,1)*harmoredpool_Hg(:,1))\n     surfstrpoolEQ_hg(:,mo)=(frac_tree(:,1)*surfstrpool_Hg(:,1)) + (frac_herb(:,1)*hsurfstrpool_Hg(:,1))\n     soilstrpoolEQ_hg(:,mo)=(frac_tree(:,1)*soilstrpool_Hg(:,1)) + (frac_herb(:,1)*hsoilstrpool_Hg(:,1))\n     surfmetpoolEQ_hg(:,mo)=(frac_tree(:,1)*surfmetpool_Hg(:,1)) + (frac_herb(:,1)*hsurfmetpool_Hg(:,1))\n     soilmetpoolEQ_hg(:,mo)=(frac_tree(:,1)*soilmetpool_Hg(:,1)) + (frac_herb(:,1)*hsoilmetpool_Hg(:,1))\n     surfmicpoolEQ_hg(:,mo)=(frac_tree(:,1)*surfmicpool_Hg(:,1)) + (frac_herb(:,1)*hsurfmicpool_Hg(:,1))\n     soilmicpoolEQ_hg(:,mo)=(frac_tree(:,1)*soilmicpool_Hg(:,1)) + (frac_herb(:,1)*hsoilmicpool_Hg(:,1))\n     HgAqEQ_hg(:,mo)          =(frac_tree(:,1)*HgAq(:,1))           + (frac_herb(:,1)*hHgAq(:,1))\n!$OMP END WORKSHARE\n!$OMP END PARALLEL\n\n     IF (mo .eq. 12) THEN\n        ! write data to files\n        filename1(1:f_len_output)=outputpath\n        filename1(f_len_output+1:f_len_output+10)='gridareaea'\n        IF (yr .eq. preindYear) THEN\n           filename1(f_len_output+11:f_len_output+14)='_pre'\n        ENDIF\n        IF (yr .eq. HgPoolsequilibriumYear) THEN\n           filename1(f_len_output+11:f_len_output+14)='_pst'\n        ENDIF\n        IF (yr .eq. indYear) THEN\n           filename1(f_len_output+11:f_len_output+14)='_ind'\n        ENDIF\n        OPEN(UNIT=5, file=filename1)\n        WRITE(5,*) gridareab\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='leafpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) leafpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='heafpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hleafpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='slowpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) slowpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hlowpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hslowpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='armdpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) armoredpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hrmdpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) harmoredpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tUSTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfstrpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hUSTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hsurfstrpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tOSTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilstrpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hOSTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hsoilstrpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tUMTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmetpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hUMTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hsurfmetpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tOMTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmetpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hOMTpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hsoilmetpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tUMIpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmicpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hUMIpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hsurfmicpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tOMIpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmicpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hOMIpoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hsoilmicpool_Hg\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='tHgApoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) HgAq\n        CLOSE(5) \n        filename1(f_len_output+1:f_len_output+10)='hHgApoolHg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) hHgAq\n        CLOSE(5) \n        \n        filename1(f_len_output+1:f_len_output+10)='NPPmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) NPPmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='RESmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) respmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='COMmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) combmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='HERmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) herbmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='BIFmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) biofmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='RES_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) respmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='COM_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) combmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='REM_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) reemmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='PHT_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) photmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='SLWmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) slowmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='ARMmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) armoredmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='USTmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfstrmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMEmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmetmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMImonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmicmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OSTmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilstrmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMEmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmetmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMImonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmicmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='LEAmonthly'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) leafmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='SLW_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) slowmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='ARM_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) armoredmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UST_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfstrmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UME_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmetmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMI_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmicmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OST_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilstrmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OME_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmetmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMI_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmicmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='LEA_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) leafmonthly_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='HgA_Hg_mon'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) HgAqmonthly\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UST_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_surfstr_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UME_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_surfmet_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMI_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_surfmic_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OST_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_soilstr_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OME_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_soilmet_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMI_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_soilmic_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='SLW_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_slow_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='ARM_Hg_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_armored_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UST_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_surfstr\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UME_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_surfmet\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMI_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_surfmic\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OST_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_soilstr\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OME_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_soilmet\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMI_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_soilmic\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='SLW_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_slow\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='ARM_CC_res'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) resp_armored\n        CLOSE(5)\n        \n        filename1(f_len_output+1:f_len_output+10)='RESP_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) respEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='COMB_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) combEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='HERB_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) herbEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='BIOF_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) biofEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='RESP_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) respEQ_Hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='COMB_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) combEQ_Hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='REEM_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) reemitEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='PHOT_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) photoEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='LEAF_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) leafpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='SLOW_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) slowpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='ARMD_EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) armoredpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UST__EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfstrpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OST__EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilstrpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UME__EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmetpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OME__EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmetpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMI__EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmicpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMI__EQ_CC'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmicpoolEQ\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='LEAF_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) leafpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='SLOW_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) slowpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='ARMD_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) armoredpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UST__EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfstrpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OST__EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilstrpoolEQ_Hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UME__EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmetpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OME__EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmetpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='UMI__EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) surfmicpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='OMI__EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) soilmicpoolEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='HgAq_EQ_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) HgAqEQ_hg\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='Pool1_flux'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) Hg_pool_fluxes1\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='Pool2_flux'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) Hg_pool_fluxes2\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='Pool3_flux'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) Hg_pool_fluxes3\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='Pool4_flux'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) Hg_pool_fluxes4\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='Pool5_flux'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) Hg_pool_fluxes5\n        CLOSE(5)\n        filename1(f_len_output+1:f_len_output+10)='Pool6_flux'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) Hg_pool_fluxes6\n        CLOSE(5)\n        \n        filename1(f_len_output+1:f_len_output+10)='biome_an_Hg'\n        OPEN(UNIT=5, file=filename1, STATUS=\"NEW\")\n        WRITE(5,*) biomeAnnual_Hg\n        CLOSE(5)\n        \n     ENDIF\n  ENDIF\nEND SUBROUTINE processData\n!EOC\n"
  },
  {
    "path": "GTMM/sort_pick_veg.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: sort_pick_veg\n!\n! !DESCRIPTION: This subroutine ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE sort_pick_veg(arr, ind)\n!\n! !USES:\n!\n  USE defineConstants\n\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n      \n  implicit none\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n  REAL(fp), dimension(n_veg, n_age_classes), intent(INOUT) :: ind\n  REAL(fp), dimension(n_veg, n_age_classes), intent(INOUT) :: arr\n!\n! !REVISION HISTORY:\n!  09 Jul 2010 - C. Carouge - Initial version\n!  01 Dec 2014 - M. Yannetti - Added PRECISION_MOD\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  INTEGER  :: i, j, n, k\n  REAL :: a, b\n  \n  n=size(arr)\n  \n  DO k=1,n_veg\n     DO j=2,n/n_veg\n        a=arr(k,j)\n        b=ind(k,j)\n        DO i=j-1, 1, -1\n           IF (arr(k,i) >=a) exit\n           arr(k,i+1)=arr(k,i)\n           ind(k,i+1)=ind(k,i)\n        END DO\n        ind(k,i+1)=b\n        arr(k,i+1)=a\n     END DO\n  END DO\n  \nEND SUBROUTINE sort_pick_veg\n!EOC\n"
  },
  {
    "path": "GeosCore/.cvsignore",
    "content": "*.a\n*.mod\n*.o\n*.pdf\n*.ps\n*.tex\nH\nS\na.out\ngeos\n"
  },
  {
    "path": "GeosCore/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "GeosCore/CMakeLists.txt",
    "content": "# GeosCore/CMakeLists.txt\n\n# Add a compilation flag to force REAL to REAL*8 if necessary\n# only for file tpcore_window_mod.F90\nif(${USE_REAL8})\n  if(\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"Intel\")\n    set_source_files_properties(tpcore_window_mod.F90\n      PROPERTIES COMPILE_FLAGS \"-r8\")\n  elseif(\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"GNU\")\n    set_source_files_properties(tpcore_window_mod.F90\n      PROPERTIES COMPILE_FLAGS \"-fdefault-real-8 -fdefault-double-8\")\n  endif()\nendif()\n\n#-----------------------------------------------------------------------------\n# Define libGeosCore.a\n#-----------------------------------------------------------------------------\nadd_library(GeosCore\n  STATIC EXCLUDE_FROM_ALL\n  aero_drydep.F90\n  aerosol_mod.F90\n  aerosol_thermodynamics_mod.F90\n  airs_ch4_mod.F90\n  calc_met_mod.F90\n  carbon_mod.F90\n  carbon_gases_mod.F90\n  chemistry_mod.F90\n  cldice_HBrHOBr_rxn.F90\n  cldj_interface_mod.F90\n  cleanup.F90\n  convection_mod.F90\n  depo_mercury_mod.F90\n  diagnostics_mod.F90\n  drydep_mod.F90\n  dust_mod.F90\n  emissions_mod.F90\n  fast_jx_mod.F90\n  fjx_interface_mod.F90\n  fullchem_mod.F90\n  gc_environment_mod.F90\n  get_ndep_mod.F90\n  global_br_mod.F90\n  gosat_ch4_mod.F90\n  hcoi_gc_diagn_mod.F90\n  hco_state_gc_mod.F90\n  hco_interface_gc_mod.F90\n  hco_utilities_gc_mod.F90\n  input_mod.F90\n  kppsa_interface_mod.F90\n  land_mercury_mod.F90\n  linear_chem_mod.F90\n  linoz_mod.F90\n  mapping_mod.F90\n  mercury_mod.F90\n  mixing_mod.F90\n  modis_lai_mod.F90\n  ocean_mercury_mod.F90\n  olson_landmap_mod.F90\n  pbl_mix_mod.F90\n  photolysis_mod.F90\n  pjc_pfix_mod.F90\n  pjc_pfix_window_mod.F90\n  planeflight_mod.F90\n  pops_mod.F90\n  RnPbBe_mod.F90\n  rpmares_mod.F90\n  seasalt_mod.F90\n  set_global_ch4_mod.F90\n  sfcvmr_mod.F90\n  sulfate_mod.F90\n  tagged_o3_mod.F90\n  tccon_ch4_mod.F90\n  toms_mod.F90\n  tpcore_fvdas_mod.F90\n  tpcore_window_mod.F90\n  tracer_mod.F90\n  transport_mod.F90\n  ucx_mod.F90\n  uvalbedo_mod.F90\n  vdiff_mod.F90\n  wetscav_mod.F90\n  YuIMN_Code.F90\n\n  # Files only included for special cases\n  $<$<BOOL:${MODEL_CLASSIC}>:flexgrid_read_mod.F90 get_met_mod.F90 set_boundary_conditions_mod.F90>\n  $<$<BOOL:${RRTMG}>:rrtmg_rad_transfer_mod.F90>\n  $<$<BOOL:${TOMAS}>:tomas_mod.F90>\n  $<$<BOOL:${APM}>:apm_driv_mod.F90>\n  # exchange_mod : TODO\n)\n\n# Fixes #64: If GCC>=8.0.0 then ocean_mercury_mod.F90 \n# should be compiled with -O1\nif((\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"GNU\") AND NOT (CMAKE_Fortran_COMPILER_VERSION VERSION_LESS \"8.0.0\") AND NOT(\"${CMAKE_BUILD_TYPE}\" STREQUAL \"Debug\"))\n  set_source_files_properties(ocean_mercury_mod.F90\n    PROPERTIES COMPILE_FLAGS -O1\n  )\nendif()\n\n# Define dependencies for libGeosCore.a\ntarget_link_libraries(GeosCore PUBLIC\n  ObsPack \n  History\n  KPP\n  HETP_core\n  $<LINK_ONLY:HCOI_Shared>    # link only to avoid gathering the rest of the TURs\n  $<$<BOOL:${APM}>:APM>       # depends on APM iff APM is true\n  $<$<BOOL:${RRTMG}>:GeosRad> # depends on GeosRad iff RRTMG is true\n  $<$<BOOL:${GTMM}>:Hg>       # depends on Hg iff GTMM is true\n\n)\n"
  },
  {
    "path": "GeosCore/RnPbBe_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: RnPbBe_mod.F90\n!\n! !DESCRIPTION: Module RnPbBe\\_MOD contains variables and routines used\n!  for the Rn222-Pb210-Be7 simulation. (hyl, swu, bmy, 6/14/01, 8/4/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE RnPbBe_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CHEMRnPbBe\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Liu,H., D.Jacob, I.Bey, and R.M.Yantosca, Constraints from 210Pb\n!        and 7Be on wet deposition and transport in a global three-dimensional\n!        chemical tracer model driven by assimilated meteorological fields,\n!        JGR, 106, D11, 12,109-12,128, 2001.\n!  (2 ) Jacob et al.,Evaluation and intercomparison of global atmospheric\n!        transport models using Rn-222 and other short-lived tracers,\n!        JGR, 1997 (102):5953-5970\n!  (3 ) Dorothy Koch, JGR 101, D13, 18651, 1996.\n!  (4 ) Lal, D., and B. Peters, Cosmic ray produced radioactivity on the\n!        Earth. Handbuch der Physik, 46/2, 551-612, edited by K. Sitte,\n!        Springer-Verlag, New York, 1967.\n!  (5)  GMI tracer suite, https://gmi.gsfc.nasa.gov/uploads/files/gmi_tracersuite.pdf\n!  (6 ) Koch and Rind, Beryllium 10/beryllium 7 as a tracer of stratospheric\n!        transport, JGR, 103, D4, 3907-3917, 1998.\n!\n! !REVISION HISTORY:\n!  14 Jun 2001 - H. Liu - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  ! Species ID flags\n  INTEGER  :: id_Rn222\n  INTEGER  :: id_Pb210, id_Pb210s\n  INTEGER  :: id_Be7,   id_Be7s\n  INTEGER  :: id_Be10,  id_Be10s\n\n  ! Exponential terms\n  REAL(fp) :: EXP_Rn, EXP_Pb210, EXP_Be7, EXP_Be10\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chemRnPbBe\n!\n! !DESCRIPTION: Subroutine CHEMRnPbBe performs loss chemistry on Rn222,\n!  Pb210, Be7, and Be10.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEMRnPbBe( Input_Opt,  State_Chm, State_Diag, &\n                         State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  31 Oct 1999 - H. Liu - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I, J, L, S\n    REAL(fp)            :: ADD_Pb210\n    REAL(fp)            :: Decay\n    REAL(fp)            :: DTCHEM\n    REAL(fp)            :: Pb210_LOST,   Pb210s_LOST\n    REAL(fp)            :: Be7_LOST,  Be7s_LOST\n    REAL(fp)            :: Be10_LOST, Be10s_LOST\n\n    ! SAVEd scalars\n    LOGICAL, SAVE       :: FIRSTCHEM = .TRUE.\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ErrMsg\n    CHARACTER(LEN=255)  :: ThisLoc\n\n    ! Arrays\n    REAL(fp)            :: Rn_LOST(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n!\n! !DEFINED PARAMETERS\n!\n    ! Ratio of molecular weights of Pb210/Rn222\n    REAL(fp), PARAMETER :: Pb_Rn_RATIO = 210e+0_fp / 222e+0_fp\n\n    ! Ln 2\n    REAL(fp), PARAMETER :: ln2         = 0.693147181E+00_fp\n\n    ! Half-life in days\n    REAL(fp), PARAMETER :: RnTau       = 3.83E+00_fp ! Liu et al. (2001)\n    REAL(fp), PARAMETER :: Pb210Tau    = 8.25E+03_fp ! Liu et al. (2001)\n    REAL(fp), PARAMETER :: Be7Tau      = 53.3E+00_fp ! Liu et al. (2001)\n    REAL(fp), PARAMETER :: Be10Tau     = 5.84E+08_fp ! GMI \"tracer\" mechanism\n\n    !=================================================================\n    ! CHEMRnPbBe begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at ChemRnPbBe (in module GeosCore/RnPbBe_mod.F90)'\n\n    ! Chemistry timestep [s]\n    DTCHEM  =  GET_TS_CHEM()\n\n    ! Point to the species array\n    Spc => State_Chm%Species\n\n    !-----------------------------------------------------------------\n    ! Pre-compute exponential terms and do other first-time setup\n    !-----------------------------------------------------------------\n    IF ( FIRSTCHEM ) THEN\n\n       ! Fraction of Rn222 left after radioactive decay\n       Decay     = ln2 / ( RnTau * 24.E+00_fp * 3600.E+00_fp )\n       EXP_Rn    = EXP( -DTCHEM * Decay        )\n\n       ! Fraction of Pb210 left after radioactive decay\n       !Decay    = ln2 / ( PbTau * 24.E+00_fp * 3600.E+00_fp )\n       EXP_Pb210 = EXP( -DTCHEM * 9.725E-10_fp )\n\n       ! Fraction of Be7 left after radioactive decay\n       !Decay    = ln2 / ( Be7Tau * 24.E+00_fp * 3600.E+00_fp )\n       EXP_Be7   = EXP( -DTCHEM * 1.506E-7_fp  )\n\n       ! Fraction of Be10 left after radioactive decay\n       Decay     = ln2 / ( Be10Tau * 24.E+00_fp * 3600.E+00_fp )\n       EXP_Be10  = EXP( -DTCHEM * Decay        )\n\n       ! Species ID flags\n       id_Rn222  = Ind_('Rn222'  )\n       id_Pb210  = Ind_('Pb210'  )\n       id_Pb210s = Ind_('Pb210s' )\n       id_Be7    = Ind_('Be7'    )\n       id_Be7s   = Ind_('Be7s'   )\n       id_Be10   = Ind_('Be10'   )\n       id_Be10s  = Ind_('Be10s'  )\n\n       ! Reset FIRSTCHEM flag\n       FIRSTCHEM = .FALSE.\n\n       ! testing only\n       IF ( Input_Opt%amIRoot ) THEN\n          write(*,*) ''\n          write(*,*) '### GEOS-Chem Radon simulation ###'\n          write(*,*) '    Timestep (secs)   : ', DTCHEM\n          write(*,*) '    Rn lifetime (days): ', RnTau\n          write(*,*) '    Rn decadence      : ', EXP_Rn\n          write(*,*) ''\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Radioactive decay of Rn222\n    !=================================================================\n\n    ! Make sure Rn222 is a defined species\n    IF ( id_Rn222 > 0 ) THEN\n       !$OMP PARALLEL DO           &\n       !$OMP DEFAULT( SHARED     ) &\n       !$OMP PRIVATE( I, J, L, S )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Rn_LOST = amount of Rn222 lost to decay [kg]\n          Rn_LOST(I,J,L) = Spc(id_Rn222)%Conc(I,J,L) * ( 1.0_fp - EXP_Rn )\n\n          !-----------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Rn222 lost to radioactive decay\n          !-----------------------------------------------------------\n\n          ! Units: [kg/s], but consider eventually changing to [kg/m2/s]\n          IF ( State_Diag%Archive_RadDecay ) THEN\n             S = State_Diag%Map_RadDecay%id2slot(id_Rn222)\n             IF ( S > 0 ) THEN\n                State_Diag%RadDecay(I,J,L,S) = Rn_LOST(I,J,L) / DTCHEM\n             ENDIF\n          ENDIF\n\n          ! Subtract Rn_LOST from Spc [kg]\n          Spc(id_Rn222)%Conc(I,J,L) = Spc(id_Rn222)%Conc(I,J,L) - Rn_LOST(I,J,L)\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !=================================================================\n    ! Radioactive decay of Pb210\n    !=================================================================\n\n    ! Make sure Pb210 is a defined species\n    IF ( id_Pb210 > 0 .or. id_Pb210s > 0 ) THEN\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, ADD_Pb210, Pb210_LOST, Pb210s_LOST, S )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! ADD_Pb = Amount of Pb210 gained by decay from Rn222 [kg]\n          ADD_Pb210 = Rn_LOST(I,J,L) * Pb_Rn_RATIO\n\n          !-----------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Pb210 emission from Rn222 decay\n          !-----------------------------------------------------------\n\n          ! Units: [kg/s], but consider eventually changing to [kg/m2/s]\n          IF ( State_Diag%Archive_PbFromRnDecay ) THEN\n             State_Diag%PbFromRnDecay(I,J,L) = ( ADD_Pb210 / DTCHEM )\n          ENDIF\n\n          ! Add Pb210 gained by decay from Rn222 into Spc [kg]\n          Spc(id_Pb210)%Conc(I,J,L) = Spc(id_Pb210)%Conc(I,J,L) + ADD_Pb210\n\n          ! Update stratospheric Pb210 [kg]\n          IF ( State_Met%InStratosphere(I,J,L) .and. id_Pb210s > 0 ) THEN\n             Spc(id_Pb210s)%Conc(I,J,L) = Spc(id_Pb210s)%Conc(I,J,L) + ADD_Pb210\n          ENDIF\n\n          ! Amount of Pb210 lost to radioactive decay [kg]\n          ! NOTE: we've already added in the Pb210 gained from Rn222\n          Pb210_LOST = Spc(id_Pb210)%Conc(I,J,L) * ( 1.0_fp - EXP_Pb210 )\n          IF ( id_Pb210s > 0 ) THEN\n             Pb210s_LOST = Spc(id_Pb210s)%Conc(I,J,L) * ( 1.0_fp - EXP_Pb210)\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Pb210 lost to radioactive decay [kg/s]\n          !-----------------------------------------------------------\n          IF ( State_Diag%Archive_RadDecay ) THEN\n\n             ! Loss of Pb210, full column [kg/s]\n             IF ( id_Pb210 > 0 ) THEN\n                S = State_Diag%Map_RadDecay%id2slot(id_Pb210)\n                IF ( S > 0 ) THEN\n                   State_Diag%RadDecay(I,J,L,S) = ( Pb210_LOST / DTCHEM )\n                ENDIF\n             ENDIF\n\n             ! Loss of Pb210 produced in stratosphere [kg/s]\n             IF ( id_Pb210s > 0 ) THEN\n                S = State_Diag%Map_RadDecay%id2slot(id_Pb210s)\n                IF ( S > 0 ) THEN\n                   State_Diag%RadDecay(I,J,L,S) = ( Pb210s_LOST / DTCHEM )\n                ENDIF\n             ENDIF\n          ENDIF\n\n          ! Subtract Pb210 lost to decay from Spc [kg]\n          Spc(id_Pb210)%Conc(I,J,L) = Spc(id_Pb210)%Conc(I,J,L) - Pb210_LOST\n\n          ! Update stratospheric Pb210 [kg]\n          IF ( id_Pb210s > 0 ) THEN\n             Spc(id_Pb210s)%Conc(I,J,L) = Spc(id_Pb210s)%Conc(I,J,L) - Pb210s_LOST\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !=================================================================\n    ! Radioactive decay of Be7\n    !=================================================================\n\n    ! Make sure Be7 is a defined species\n    IF ( id_Be7 > 0 .or. id_Be7s > 0 ) THEN\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, Be7_LOST, Be7s_LOST, S )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Amount of Be7 lost to decay [kg]\n          Be7_LOST = Spc(id_Be7)%Conc(I,J,L) * ( 1d0 - EXP_Be7 )\n          IF ( id_Be7s > 0 ) THEN\n             Be7s_LOST = Spc(id_Be7s)%Conc(I,J,L) * ( 1d0 - EXP_Be7 )\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Be7 lost to radioactive decay [kg/s]\n          !-----------------------------------------------------------\n          IF ( State_Diag%Archive_RadDecay ) THEN\n\n             ! Be7 loss [kg/s]\n             IF ( id_Be7 > 0 ) THEN\n                S = State_Diag%Map_RadDecay%id2slot(id_Be7)\n                IF ( S > 0 ) THEN\n                   State_Diag%RadDecay(I,J,L,S) = ( Be7_LOST / DTCHEM )\n                ENDIF\n             ENDIF\n             \n             ! Loss of Be7 produced in stratosphere [kg/s]\n             IF ( id_Be7s > 0 ) THEN\n                S = State_Diag%Map_RadDecay%id2slot(id_Be7s)\n                IF ( S > 0 ) THEN\n                   State_Diag%RadDecay(I,J,L,S) = ( Be7s_LOST / DTCHEM )\n                ENDIF\n             ENDIF\n          ENDIF\n\n          ! Subtract amount of Be7 lost to decay from Spc [kg]\n          Spc(id_Be7)%Conc(I,J,L) = Spc(id_Be7)%Conc(I,J,L) - Be7_LOST\n\n          ! Update stratospheric Be7 [kg]\n          IF ( id_Be7s > 0 ) THEN\n             Spc(id_Be7s)%Conc(I,J,L) = Spc(id_Be7s)%Conc(I,J,L) - Be7s_LOST\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !=================================================================\n    ! Radioactive decay of Be10\n    !=================================================================\n\n    ! Make sure Be10 is a defined species\n    IF ( id_Be10 > 0 .or. id_Be10s > 0 ) THEN\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, Be10_LOST, Be10s_LOST, S )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Amount of Be10 lost to decay [kg]\n          Be10_LOST = Spc(id_Be10)%Conc(I,J,L) * ( 1d0 - EXP_Be10 )\n          IF ( id_Be10s > 0 ) THEN\n             Be10s_LOST = Spc(id_Be10s)%Conc(I,J,L) * ( 1d0 - EXP_Be10 )\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Be10 lost to radioactive decay [kg/s]\n          !-----------------------------------------------------------\n          IF ( State_Diag%Archive_RadDecay ) THEN\n\n             ! Loss of Be10, whole atmosphere [kg/s]\n             IF ( id_Be10 > 0 ) THEN\n                S = State_Diag%Map_RadDecay%id2slot(id_Be10)\n                IF ( S > 0 ) THEN\n                   State_Diag%RadDecay(I,J,L,S) = ( Be10_LOST / DTCHEM )\n                ENDIF\n             ENDIF\n\n             ! Loss of Be10 produced in stratosphere [kg/s]\n             IF ( id_Be10s > 0 ) THEN\n                S = State_Diag%Map_RadDecay%id2slot(id_Be10s)\n                IF ( S > 0 ) THEN\n                   State_Diag%RadDecay(I,J,L,S) = ( Be10s_LOST / DTCHEM)\n                ENDIF\n             ENDIF\n          ENDIF\n\n          ! Subtract amount of Be10 lost to decay from Spc [kg]\n          Spc(id_Be10)%Conc(I,J,L) = Spc(id_Be10)%Conc(I,J,L) - Be10_LOST\n\n          ! Update stratospheric Be10 [kg]\n          IF ( id_Be10s > 0 ) THEN\n             Spc(id_Be10s)%Conc(I,J,L) = Spc(id_Be10s)%Conc(I,J,L) - Be10s_LOST\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHEMRnPbBe\n!EOC\nEND MODULE RnPbBe_MOD\n"
  },
  {
    "path": "GeosCore/YuIMN_Code.F90",
    "content": "#if   defined ( TOMAS )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: yuimn.F90\n!\n! !DESCRIPTION: This subroutine is to calculate rates and critical cluster\n!  properties of ion-mediated nucleation (IMN) from lookup tables\n!  using multiple-variable interpolation scheme\n!   WRITTEN by Fangqun Yu, SUNY-Albany, 2006; UPDATED 06/2009\n!   Email: yfq@asrc.cestm.albany.edu\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE YUJIMN(X0,Y0,Z0,U0,V0,XJ0,XI0,XR0,XAMOLF0)\n!\n! !INPUT PARAMETERS:\n!\n  ! X0 = [H2SO4] in #/cm3 (5E5-5E8)\n  ! Y0 = RH in % (0.5-99.5)\n  ! Z0 = T (in K) (190-302)\n  ! U0 = Q = ionization rate (ion-pairs/cm3s) (0, 1.5-60)\n  ! S0 = S = surface area (um2/cm3) (1-1000)\n  REAL*8 X0,Y0,Z0,U0,V0\n\n!\n! !OUTPUT PARAMETERS:\n!\n  ! XJ0: Nucleation rate (#/cm3s)\n  ! XI0: Number of H2SO4 molecules in critical cluster\n  ! XR0: Radius of critical cluster (nm)\n  ! XAMOLF0: Critical cluster H2SO4 mole fraction\n  REAL*8 XJ0,XI0,XR0,XAMOLF0\n!       \n! !REMARKS:\n!  References:\n!  1. Yu, F., Ion-mediated nucleation in the atmosphere: Key controlling\n!       parameters, implications, and look-up table, J. Geophy. Res.,\n!       ###, 2009.\n!  2. Yu, F., From molecular clusters to nanoparticles: Second-generation\n!       ion-mediated nucleation model, Atmos. Chem. Phys., 6, 5193-5211, 2006.\n!  3. Yu, F., and R. P. Turco, Ultrafine aerosol formation via ion-mediated\n!       nucleation, Geophys. Res. Lett., 27, 883-886, 2000.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  PARAMETER (MC=31, MRH=51,MT=57, MQ=9, MS=7)\n  COMMON /YYJIMNHT/C(MC),RH(MRH),T(MT),Q(MQ),S(MS), &\n                   XJIMN(MC,MRH,MT,MQ,MS), &\n                   XISTAR(MC,MRH,MT),XRSTAR(MC,MRH,MT), &\n                   XAMOLFSTAR(MC,MRH,MT)\n\n  ! to avoid the input values to be changed due to out of the range reset\n  X = X0\n  Y = Y0\n  Z = Z0\n  U = U0\n  V = V0\n\n  ! The lookup table should cover almost all possible conditions in\n  ! ambient troposphere. For the extreme conditions that are out of\n  ! the ranges of the lookup table, we either reset the inputed\n  ! parameters in a way that may underestimate the JIMN values or\n  ! set the nucleation rate to 1.E-20 cm-3s-1.\n\n  IF(X.LT.C(1)) THEN\n     !WRITE(6,10) X, C(1)\n     XJ0 = 1.E-20\n     XI0 = 100.\n     XR0 = 1.5\n     XAMOLF0 = 0.5\n     RETURN\n  ELSEIF(X.GT.C(MC)) THEN\n     !WRITE(6,11) X, C(MC), C(MC)\n     X =C(MC)\n  ENDIF\n  IF(Y.LT.RH(1)) THEN\n     !WRITE(6,12) Y, RH(1)\n     XJ0 = 1.E-20\n     XI0 = 100.\n     XR0 = 1.5\n     XAMOLF0 = 0.5\n     RETURN\n  ELSEIF(Y.GT.RH(MRH)) THEN\n     !WRITE(6,13) Y, RH(MRH), RH(MRH)\n     Y =RH(MRH)\n  ENDIF\n  IF(Z.LT.T(1)) THEN\n     !WRITE(6,14) Z, T(1), T(1)\n     Z =T(1)\n  ELSEIF(Z.GT.T(MT)) THEN\n     !WRITE(6,15) Z, T(MT)\n     XJ0 = 1.E-20\n     XI0 = 100.\n     XR0 = 1.5\n     XAMOLF0 = 0.5\n     RETURN\n  ENDIF\n  IF(U.LT.Q(1)) THEN\n     !WRITE(6,16) U, Q(1)\n     XJ0 = 1.E-20\n     XI0 = 100.\n     XR0 = 1.5\n     XAMOLF0 = 0.5\n     RETURN\n  ELSEIF(U.GT.Q(MQ)) THEN\n     !WRITE(6,17) U, Q(MQ), Q(MQ)\n     U =Q(MQ)\n  ENDIF\n  IF(V.LT.S(1)) THEN\n     !WRITE(6,18) V, S(1), S(1)\n     V =S(1)\n  ELSEIF(V.GT.S(MS)) THEN\n     !WRITE(6,19) V, S(MS)\n     XJ0 = 1.E-20\n     XI0 = 100.\n     XR0 = 1.5\n     XAMOLF0 = 0.5\n     RETURN\n  ENDIF\n10 FORMAT(\"IMN WARNING: INPUTED [H2SO4]=\",E9.2,\"<\",E9.2, &\n          \", set JIMN to 1.E-20 cm-3s-1\")\n11 FORMAT(\"IMN WARNING: INPUTED [H2SO4]=\",E9.2,\">\",E9.2, &\n          \" set it to \",E9.2)\n12 FORMAT(\"IMN WARNING: INPUTED RH =\",F5.1,\"% <\",F5.1, &\n          \"%, set JIMN to 1.E-20 cm-3s-1\")\n13 FORMAT(\"IMN WARNING: INPUTED RH =\",F5.1,\"% >\",F5.1, &\n          \"% set it to \",F5.1,\"%\")\n14 FORMAT(\"IMN WARNING: INPUTED T =\",F6.1,\"K <\",F6.1, &\n          \"K set it to \",F6.1,\"K\")\n15 FORMAT(\"IMN WARNING: INPUTED T =\",F6.1,\"K >\",F6.1, &\n          \"K, set JIMN to 1.E-20 cm-3s-1\")\n16 FORMAT(\"IMN WARNING: INPUTED Q =\",F6.1,\" <\",F6.1, &\n          \" ion-pair/cm3s , set JIMN to 1.E-20 cm-3s-1\")\n17 FORMAT(\"IMN WARNING: INPUTED Q =\",F6.1,\" >\",F6.1, &\n          \" ion-pair/cm3s set it to \",F6.1)\n18 FORMAT(\"IMN WARNING: INPUTED S =\",F6.1,\" <\",F6.1, &\n          \" um2/cm3 set it to \",F6.1)\n19 FORMAT(\"IMN WARNING: INPUTED S =\",F6.1,\" >\",F6.1, &\n          \"um2/cm3, set JIMN to 1.E-20 cm-3s-1\")\n  IC1 =MAX0(INT(1.+10.*ALOG10(X/C(1))),1)\n  IC2 = MIN0(IC1 + 1,MC)\n  IF(IC2.EQ.MC) IC1=MC-1\n  IF(Y.LT.RH(2)) THEN\n     JRH1 = 1.\n  ELSE\n     JRH1 = MAX0(INT((Y-RH(2))/2.+2.),2)\n  ENDIF\n  JRH2 = MIN0(JRH1 + 1,MRH)\n  IF(JRH2.EQ.MRH) JRH1=MRH-1\n  KT1 = MAX0(INT(Z/2.-94.0),1)\n  KT2 = MIN0(KT1 + 1,MT)\n  IF(KT2.EQ.MT) KT1=MT-1\n\n  IQ1 = MAX0(INT(1.+5.*ALOG10(U/Q(1))),1)\n  IQ2 = MIN0(IQ1 + 1,MQ)\n  IF(IQ2.EQ.MQ) IQ1=MQ-1\n\n  IF(V.LT.10.0) THEN\n     IS1 =1.\n  ELSE\n     IS1 = MAX0(INT(2.+2.5*ALOG10(V/10.)),2)\n  ENDIF\n  IS2 = MIN0(IS1 + 1,MS)\n  IF(IS2.EQ.MS) IS1=MS-1\n\n  dx1 =  ALOG10(X/C(IC1))    ! logJ log[H2SO4] interpolation\n  dx2 =  ALOG10(C(IC2)/X)\n  dy1 =  ALOG10(Y/RH(JRH1))\n  dy2 =  ALOG10(RH(JRH2)/Y)\n  dz1 =  Z-T(KT1)\n  dz2 =  T(KT2)-Z\n  du1 =  U - Q(IQ1)\n  du2 =  Q(IQ2) - U\n  dv1 =  V- S(IS1)\n  dv2 =  S(IS2) - V\n\n  XJ0 = 0.\n  XI0 = 0.\n  XR0 = 0.\n  XAMOLF0 = 0.\n\n  VOL = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)*(du1+du2)*(dv1+dv2)\n  VOL3 = (dx1+dx2)*(dy1+dy2)*(dz1+dz2)\n  DO KT = KT1,KT2\n     IF(KT.EQ.KT1) THEN\n        dz = dz2\n     ELSE\n        dz = dz1\n     ENDIF\n     DO JRH = JRH1,JRH2\n        IF(JRH.EQ.JRH1) THEN\n           dy = dy2\n        ELSE\n           dy = dy1\n        ENDIF\n        DO IC = IC1,IC2\n           IF(IC.EQ.IC1) THEN\n              dx = dx2\n           ELSE\n              dx = dx1\n           ENDIF\n           FRACT3 = dx*dy*dz/VOL3\n           XI0 = XI0 + FRACT3*XISTAR(IC,JRH,KT)\n           XR0 = XR0 + FRACT3*XRSTAR(IC,JRH,KT)\n           XAMOLF0 = XAMOLF0 + FRACT3*XAMOLFSTAR(IC,JRH,KT)\n           DO IS =IS1, IS2\n              IF(IS.EQ.IS1) THEN\n                 dv = dv2\n              ELSE\n                 dv = dv1\n              ENDIF\n              DO IQ =IQ1, IQ2\n                 IF(IQ.EQ.IQ1) THEN\n                    du = du2\n                 ELSE\n                    du = du1\n                 ENDIF\n                 FRACT = dx*dy*dz*du*dv/VOL\n                 XJ0 = XJ0 + FRACT*XJIMN(IC,JRH,KT,IQ,IS)\n              ENDDO\n           ENDDO\n        ENDDO\n     ENDDO\n  ENDDO\n\n  !Log10J -->J\n  XJ0 = 10.**XJ0\n\n30 FORMAT(I3, I3, I3, I3, I3, 10(1PE10.3))\n20 FORMAT(10(1PE10.3))\n  RETURN\nEND SUBROUTINE YUJIMN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: readjimn5d\n!\n! !DESCRIPTION:  WRITTEN by Fangqun Yu, SUNY-Albany, 2006 (Updated, 6/2009)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE READJIMN5D( Input_Opt, RC )\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n  TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n  INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  ! Parameters\n  ! (1 ) MC   : NUMBER OF POINTS IN H2SO4 CONCENTRATION DIMENSION\n  ! (2 ) MT   : NUMBER OF POINTS IN TEMPERATURE DIMENSION\n  ! (3 ) MRH  : NUMBER OF POINTS IN RELATIVE HUMIDITY DIMENSION\n  ! (4 ) MQ   : NUMBER OF POINTS IN IONIZATION RATE DIMENSION\n  ! (5 ) MS   : NUMBER OF POINTS IN SURFACE AREA DIMENSION\n  ! Arrays\n  ! (6 ) C    : VALUES AT POINTS IN H2SO4 CONCENTRATION DIMENSION\n  ! (7 ) T    : VALUES AT POINTS IN TEMPERATURE DIMENSION\n  ! (8 ) RH   : VALUES AT POINTS IN RELATIVE HUMIDITY DIMENSION\n  ! (9 ) Q    : VALUES AT POINTS IN IONIZATION RATE DIMENSION\n  ! (10) S    : VALUES AT POINTS IN SURFACE AREA DIMENSION\n  PARAMETER (MC=31, MRH=51,MT=57, MQ=9, MS=7)\n  COMMON /YYJIMNHT/C(MC),RH(MRH),T(MT),Q(MQ),S(MS), &\n                   XJIMN(MC,MRH,MT,MQ,MS), &\n                   XISTAR(MC,MRH,MT),XRSTAR(MC,MRH,MT), &\n                   XAMOLFSTAR(MC,MRH,MT)\n!\n! !LOCAL VARIABLES:\n!\n  CHARACTER(LEN=255) :: DATA_DIR\n  CHARACTER(LEN=255) :: FNAME\n\n  ! Assume success\n  RC       = GC_SUCCESS\n\n  ! Data directory path in shared disk space where files live\n  DATA_DIR = TRIM( Input_Opt%DATA_DIR ) // 'CHEM_INPUTS/TOMAS_201402/'\n\n  WRITE(6,*) \"Read IMN look-up tables\"\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_J5D.txt'\n  open(31, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_Istar3D.txt'\n  open(32, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_Rstar3D.txt'\n  open(33, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_AMOLF3D.txt'\n  open(34, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_1H2SO4.txt'\n  open(41, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_2RH.txt'\n  open(42, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_3T.txt'\n  open(43, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_4Q.txt'\n  open(44, file=TRIM( FNAME ), form='formatted')\n\n  FNAME = TRIM( DATA_DIR ) // 'YuIMN_5S.txt'\n  open(45, file=TRIM( FNAME ), form='formatted')\n\n  READ(41,101)(C(I),I=1,MC)\n  WRITE(6,*)\"[H2SO4](I), I=1, \", MC, \":\"\n  WRITE(6,100)(C(I),I=1,MC)\n\n  READ(42,102)(RH(J),J=1,MRH)\n  WRITE(6,*)\"RH(I), I=1, \", MRH, \":\"\n  WRITE(6,100)(RH(J),J=1,MRH)\n\n  READ(43,103)(T(IT),IT=1,MT)\n  WRITE(6,*)\"T(I), I=1, \", MT, \":\"\n  WRITE(6,100)(T(IT),IT=1,MT)\n\n  READ(44,104)(Q(IQ),IQ=1,MQ)\n  WRITE(6,*)\"Q(I), I=1, \", MQ, \":\"\n  WRITE(6,100)(Q(IQ),IQ=1,MQ)\n\n  READ(45,105)(S(IS),IS=1,MS)\n  WRITE(6,*)\"S(I), I=1, \", MS, \":\"\n  WRITE(6,100)(S(IS),IS=1,MS)\n\n  ! Use the formula to calculate C and Q to get values with more digits,\n  ! otherwise may cause problem when input C and Q are very close to C(IC),Q(IQ)\n  ! as IC and IQ are decided with formula\n\n  C(1) = 5.0E5\n  DO IC = 2, MC\n     C11 = C(IC)\n     RATIO = 10.**(0.1)\n     C(IC) = C(IC-1)*RATIO\n     IF(abs(1.-C11/C(IC)).GT.0.02) THEN\n        write(6,*)\"need check JIMN look-up table inputs C\"\n        stop\n     ENDIF\n  ENDDO\n  DO IQ = 1, MQ\n     Q11 = Q(IQ)\n     Q(IQ) = 1.5*10.**(0.2*float(IQ-1))\n     IF(abs(1.-Q11/Q(IQ)).GT.0.02) THEN\n        write(6,*)\"need check JIMN look-up table inputs Q\"\n        stop\n     ENDIF\n  ENDDO\n  DO IS = 1, MS\n     S11 = S(IS)\n     IF(IS.EQ.1) THEN\n        S(1) =1.0\n     ELSE\n        S(IS) = 10.*100.**(0.2*float(IS-2))\n     ENDIF\n     IF(abs(1.-S11/S(IS)).GT.0.02) THEN\n        write(6,*)\"need check JIMN look-up table inputs S\"\n        stop\n     ENDIF\n  ENDDO\n\n  ! Formatted 5-D Table\n  DO IS =1, MS\n     DO KT = 1,MT\n        DO JRH = 1,MRH\n           DO IQ =1, MQ\n              READ(31,101)(XJIMN(IC,JRH,KT,IQ,IS),IC = 1,MC)\n              DO IC=1, MC\n                 !IF(XJIMN(IC,JRH,KT,IQ,IS).LT.1.E-20) &\n                 !     XJIMN(IC,JRH,KT,IQ,IS)=1.E-20\n                 ! Due to high sensitivity of J to key parameters, use logJ\n                 ! to interpolate\n                 XJIMN(IC,JRH,KT,IQ,IS)=ALOG10(XJIMN(IC,JRH,KT,IQ,IS))\n              ENDDO\n           ENDDO\n        ENDDO\n     ENDDO\n  ENDDO\n  ! Critical cluster properties depend on T, RH, [H2SO4] only\n  DO IT = 1,MT\n     DO IRH = 1, MRH\n        READ(32,202)(XISTAR(IC,IRH,IT), IC=1,MC)\n        READ(33,203)(XRSTAR(IC,IRH,IT), IC=1,MC)\n        READ(34,204)(XAMOLFSTAR(IC,IRH,IT), IC=1,MC)\n     ENDDO ! RH\n  ENDDO   !T\n  CLOSE(31)\n  CLOSE(32)\n  CLOSE(33)\n  CLOSE(34)\n  CLOSE(41)\n  CLOSE(42)\n  CLOSE(43)\n  CLOSE(44)\n  CLOSE(45)\n\n100 FORMAT(100E9.2)\n101 FORMAT(31E9.2) ! H2SO4\n102 FORMAT(51E9.2) ! RH\n103 FORMAT(57E9.2) ! T\n104 FORMAT(9E9.2)  ! Q\n105 FORMAT(7E9.2)  ! S\n!100 FORMAT(100(1PE9.2))\n!101 FORMAT(31(1PE9.2)) ! H2SO4\n!102 FORMAT(51(1PE9.2)) ! RH\n!103 FORMAT(57(1PE9.2)) ! T\n!104 FORMAT(9(1PE9.2))  ! Q\n!105 FORMAT(7(1PE9.2))  ! S\n202 FORMAT(31F5.1) ! Istar\n203 FORMAT(31F5.2) ! Rstar\n204 FORMAT(31F6.3) ! AMOLF\n\n  print*,'read Yu inputs'\n  print*,C\n\n  RETURN\n\nEND SUBROUTINE READJIMN5D\n!EOC\n#endif\n"
  },
  {
    "path": "GeosCore/aero_drydep.F90",
    "content": "#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: aero_drydep\n!\n! !DESCRIPTION: Subroutine AERO\\_DRYDEP removes size-resolved aerosol number\n!  and mass by dry deposition.  The deposition velocities are calcualted from\n!  drydep_mod.f and only aerosol number NK01-NK30 are really treated as dry\n!  depositing species while each of the mass species are depositing accordingly\n!  with number.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AERO_DRYDEP( Input_Opt,  State_Chm, State_Diag, &\n                          State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE DUST_MOD,           ONLY : SETTLEDUST\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants,      ONLY : g0\n    USE PhysConstants,      ONLY : AVO\n    USE PRECISION_MOD\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE TOMAS_MOD\n    USE UnitConv_Mod\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  22 Jul 2007 - Win T. - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL,  SAVE     :: DOSETTLING = .TRUE.\n    LOGICAL,  SAVE     :: FIRST      = .TRUE.\n    INTEGER,  SAVE     :: H2SO4ID\n    INTEGER,  SAVE     :: id_H2SO4\n    INTEGER,  SAVE     :: id_NK01\n\n    ! Scalars\n    INTEGER            :: nDryDep, IBINS\n    INTEGER            :: I,      J,        L,     AS\n    INTEGER            :: N,      JC,       BIN,   ID\n    REAL(fp)           :: DTCHEM, AREA_CM2, FLUX,  X,    Y\n    REAL(fp)           :: Y0,     RKT,      DEN,   DP,   PDP\n    REAL(fp)           :: TEMP,   P,        CONST, SLIP, VISC\n    REAL(fp)           :: DELZ,   DELZ1,    TOT1,  TOT2\n\n    ! Strings\n    CHARACTER(LEN=255) :: LOC, MSG\n\n    ! Arrays\n    REAL(fp)           :: TC(State_Grid%NZ)\n    REAL(fp)           :: TC0(State_Grid%NZ)\n    REAL(fp)           :: VTS(State_Grid%NZ) ! Settling V [m/s]\n    REAL(fp)           :: NU0(State_Grid%NX,State_Grid%NY,State_Grid%NZ,State_Chm%nTomasBins)\n    REAL(fp)           :: DU0(State_Grid%NX,State_Grid%NY,State_Grid%NZ,State_Chm%nTomasBins)\n    REAL(fp)           :: SIZ_DIA(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n    REAL(fp)           :: SIZ_DEN(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n    REAL(fp)           :: X0(State_Chm%nTomasBins,ICOMP-IDIAG+1    )\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc     (:      )\n    REAL(fp),      POINTER  :: BXHEIGHT(:,:,:  )\n    REAL(fp),      POINTER  :: T       (:,:,:  )\n    REAL(fp),      POINTER  :: DepFreq (:,:,:  )  ! IM, JM, nDryDep\n\n    ! SAVEd arrays\n    INTEGER, SAVE, ALLOCATABLE :: DRYD(:)\n\n    ! Debug\n    !integer   :: ii, jj , ix, jx, bb, ll\n    !data ii,jj, ix, jx, bb, ll /55, 29, 55, 29, 1, 1 /\n\n    !=================================================================\n    ! AERO_DRYDEP begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Number of dry-deposited species\n    nDryDep   = State_Chm%nDryDep\n\n    ! Number of bins\n    IBINS     = State_Chm%nTomasBins\n\n    ! Check that species units are in [kg] (ewl, 8/13/15)\n    IF ( .not. Check_Units( State_Chm,                                       &\n                            KG_SPECIES,                                      &\n                            mapping=State_Chm%Map_Advect ) ) THEN\n       MSG = 'Not all advected species have units of \"kg\"!'\n       LOC = 'Routine AERO_DRYDEP in GeosCore/aero_drydep.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n    ! DTCHEM is the chemistry timestep in seconds\n    DTCHEM    = GET_TS_CHEM()\n\n    ! Initialize pointers\n    Spc      => State_Chm%Species\n    BXHEIGHT => State_Met%BXHEIGHT\n    T        => State_Met%T\n    DepFreq  => State_Chm%DryDepFreq\n\n    ! First-time setup\n    IF ( FIRST ) THEN\n\n       ! Define species ID flags\n       id_H2SO4 = Ind_('H2SO4')\n       id_NK01  = Ind_('NK01'  )\n\n       ! Make sure species are defined\n       IF ( id_H2SO4 < 0 ) THEN\n          MSG = 'H2SO4 is not a defined species!'\n          LOC = 'Routine AERO_DRYDEP in aero_drydep.F'\n          CALL ERROR_STOP( MSG, LOC )\n       ENDIF\n       IF ( id_NK01 < 0 ) THEN\n          MSG = 'NK01 is not a defined species!'\n          LOC = 'Routine AERO_DRYDEP in aero_drydep.F'\n          CALL ERROR_STOP( MSG, LOC )\n       ENDIF\n\n       ALLOCATE( DRYD( State_Chm%nTomasBins ), STAT=AS )\n       IF ( AS /= 0 ) CALL ALLOC_ERR( 'DRYD (aero_drydep.F90)' )\n       DRYD = 0\n\n       ! First identify if the size-resolved aerosol species have their\n       ! deposition velocity calculated.\n       ! dryd is an array that keeps the drydep species ID.  So if the\n       ! aerosol component has dryd = 0, that means it was not included\n       ! as a dry depositting species.\n       DO BIN = 1, IBINS\n          DO N   = 1, nDryDep\n             !just want to match only once (win, 5/24/06)\n             IF ( BIN == 1 .and. &\n                  State_Chm%Map_DryDep(N)==id_H2SO4 ) THEN\n                H2SO4ID = N\n                ! Debug\n                !print *, 'DRYDEP Species:',N\n             ENDIF\n             IF ( State_Chm%Map_DryDep(N) == ( id_NK01-1+BIN ) )THEN\n                ! Debug\n                !print *,'Match species:',IDTNK01-1+bin,'Bin',bin\n                DRYD( BIN ) = N\n                GOTO 100\n             ENDIF\n          ENDDO\n100       CONTINUE\n       ENDDO\n\n       ! Reset first-time falg\n       FIRST = .FALSE.\n\n    ENDIF\n\n    ! Debug\n    !print *,'dryd(30)'\n    !print *, dryd(:)\n\n    !---------- GRAVITATIONAL SETTLING -------------\n    !\n    ! First calculate vertical movement and removal by\n    ! gravitational settling\n    !\n    ! Clarify units:\n    !\n    !      v_settling = rho   * Dp**2  *  g    *  C\n    !                  -----------------------------\n    !                   18    *  visc\n    ! [units]\n    !         m/s    = kg/m^3 *  m^2   * m/s^2  * -\n    !                  -----------------------------\n    !                    -    * kg/m/s\n    !\n    ! NOTES:\n    ! (1 ) Pa s = kg/m/s\n    ! (2 ) Slip correction factor is unitless, however, the\n    !      equation from Hinds' Aerosol Technology that is\n    !      a function of P and Dp needs the correct units\n    !      P [=] kPa and Dp [=] um\n    IF ( DOSETTLING ) THEN\n\n       ! SIZ_DIA [=] m  and SIZ_DEN [=] kg/m3\n       CALL AERO_DIADEN( 1, Input_Opt, State_Chm, State_Grid, State_Met, &\n                         State_Diag, SIZ_DIA, SIZ_DEN, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL ERROR_STOP('CALL AERO_DIADEN', 'AERO_DRYDEP in aero_drydep.F')\n       ENDIF\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( BIN, I, J, DP, DEN, CONST, L, P, TEMP )   &\n       !$OMP PRIVATE( PDP, SLIP, VISC, VTS, JC, ID, TC0, TC )   &\n       !$OMP PRIVATE( DELZ, DELZ1, AREA_CM2, TOT1, TOT2, FLUX ) &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO I = 1, State_Grid%NX\n       DO J = 1, State_Grid%NY\n       DO BIN = 1, IBINS\n\n          DP    = SIZ_DIA(I,J,BIN) * 1.d6 ![=] um\n          DEN   = SIZ_DEN(I,J,BIN)        ![=] kg/m3\n          CONST = DEN *  (DP*1.d-6)**2.d0 * g0 / 18.d0\n\n          ! Debug\n          !IF (i==ix .and. j==jx .and. bin==bb) THRN\n          !   print *, 'L, P, Dp, DEN, SLIP, VISC, VTS(L)'\n          !ENDIF\n\n          DO L = 1, State_Grid%NZ\n\n             ! Get P [kPa], T [K], and P*DP\n             ! Use moist pressure for mean free path (ewl, 3/2/2015)\n             P    = State_Met%PMID(I,J,L) * 0.1d0  ![=] kPa\n             TEMP = T(I,J,L)          ![=] K\n             PDP  = P * DP\n\n             !=====================================================\n             ! # air molecule number density\n             ! num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n             !\n             ! # gas mean free path\n             ! lamda = 1.d6 /\n             !     &   ( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n             !\n             ! # Slip correction\n             ! Slip = 1. + 2. * lamda * (1.257 + 0.4 *\n             !      &  exp( -1.1 * Dp / (2. * lamda))) / Dp\n             !=====================================================\n             ! NOTE, Slip correction factor calculations following\n             !       Seinfeld, pp464 which is thought to be more\n             !       accurate but more computation required.\n             !=====================================================\n\n             ! Slip correction factor as function of (P*dp)\n             SLIP = 1d0 + ( 15.60d0 + 7.0d0 * EXP(-0.059d0*PDP) ) / PDP\n\n             !=====================================================\n             ! NOTE, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n             ! which produce slip correction factor with small\n             ! error compared to the above with less computation.\n             !=====================================================\n\n             ! Viscosity [Pa s] of air as a function of temp (K)\n             ! Sutherland eqn. (ref. pp 25 in Hinds (Aerosol Technology)\n             VISC = 1.458d-6 * (TEMP)**(1.5d0) / ( TEMP + 110.4d0 )\n\n             ! Settling velocity [m/s]\n             VTS(L) = CONST * SLIP / VISC\n\n             ! Debug\n             !IF (i==ix .and. j==jx .and. bin==bb ) THEN\n             !   print *, L,P, Dp, DEN, SLIP, VISC, VTS(L)\n             !ENDIF\n\n          ENDDO  ! L-loop\n\n          DO JC = 1, ICOMP-IDIAG+1\n             ID = id_NK01 - 1 + BIN + ( IBINS * (JC-1) )\n\n             ! Debug\n             !IF (i==ix .and. j==jx .and. l==ll) THEN\n             !   write(200,*)'BIN , TC0,  TC, , VTS(L), JC=',JC\n             !ENDIF\n\n             ! Method is to solve bidiagonal matrix\n             ! which is implicit and first order accurate in Z\n             DO L = 1, State_Grid%NZ\n                TC0(L) = Spc(ID)%Conc(I,J,L)\n                TC(L)  = TC0(L)\n             ENDDO\n\n             ! We know the boundary condition at the model top\n             L     = State_Met%MaxChemLev\n             DELZ  = BXHEIGHT(I,J,L)           ![=] meter\n             TC(L) = TC(L) / ( 1.d0 + DTCHEM * VTS(L) / DELZ )\n\n             DO L = State_Met%MaxChemLev-1, 1, -1\n                DELZ  = BXHEIGHT(I,J,L)\n                DELZ1 = BXHEIGHT(I,J,L+1)\n                TC(L) = 1.d0 / &\n                      ( 1.d0   + DTCHEM * VTS(L)   / DELZ ) * &\n                      ( TC(L)  + DTCHEM * VTS(L+1) / DELZ1  *  TC(L+1) )\n             ENDDO\n\n             DO L = 1, State_Grid%NZ\n                Spc(ID)%Conc(I,J,L) = TC(L)\n\n                ! Debug\n                !IF (i==ix .and. j==jx .and. l==ll ) &\n                !     print *, BIN, TC0(L), TC(L), VTS(L)\n             ENDDO\n\n          ENDDO ! JC-loop\n\n       ENDDO  ! I-loop\n       ENDDO  ! J-loop\n       ENDDO  ! Bin-loop\n       !$OMP END PARALLEL DO\n\n    ENDIF  ! DOSETTLING\n\n    ! Dust gravitational settling\n    IF ( .not. DOSETTLING ) THEN\n       CALL SETTLEDUST( Input_Opt,  State_Chm, State_Diag, &\n                        State_Grid, State_Met, RC )\n    ENDIF\n\n    !---------- DRY DEPOSITION ----------\n    ! Initialize array\n    X = 0d0\n    X0(:,:) = 0d0\n\n    ! Loop over chemically-active grid boxes\n    ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! %%% TEMPORARY FIX: REVERSE ORDER OF LOOPS IN ORDER TO PASS UNIT TESTS  %%%\n    ! %%%                                                                    %%%\n    ! %%% Sal Farina wrote: Change the loop order from LJI to IJL or JIL.    %%%\n    ! %%% This will make the MP code add up the diagnostic in the same order %%%\n    ! %%% as SP mode (only the outermost loop gets parallelized). Yes looping%%%\n    ! %%% over LJI should be faster than IJL, but (and correct me if i'm     %%%\n    ! %%% wrong) if we are looping over species inside that loop all benefits%%%\n    ! %%% are totally lost anyway. The way Spc / STT is defined, tracerid    %%%\n    ! %%% should always be the outermost loop...                             %%%\n    ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !$OMP PARALLEL DO                                      &\n    !$OMP PRIVATE( L, J, I, AREA_CM2, RKT, flux, JC, BIN ) &\n    !$OMP PRIVATE( ID, X0, X, Y0, Y )                      &\n    !$OMP DEFAULT( SHARED )                                &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO I = 1, State_Grid%NX\n    DO J = 1, State_Grid%NY\n    DO L = 1, State_Met%MaxChemLev\n\n       ! Initialize for safety's sake\n       AREA_CM2 = 0d0\n       RKT      = 0d0\n       flux     = 0d0\n\n       ! Skip non-chemsitry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       ! Save the initial 30-bin number and icomp-1 mass component\n       DO JC = 1, ICOMP-IDIAG+1\n          DO BIN = 1, IBINS\n             ID = id_NK01 - 1 + BIN + ( IBINS * (JC-1) )\n             X0(BIN,JC) = Spc(ID)%Conc(I,J,L)\n          ENDDO\n       ENDDO\n       ! Debug\n       !IF (i==ii .and. j==jj .and. L==1) &\n       !   print *,'L    Spc(',bb,')%Conc(',I,J,'L)   DIF    ', &\n       !    'FLUX  AD44'\n       !IF (i==ix .and. j==jx .and. L==1) &\n       !   print *,'L    Spc(',bb,')%Conc(',I,J,'L)   DIF    ', &\n       !    'FLUX  AD44'\n       !ENDIF\n       ! Dry deposit 1 aerosol component at a time, start looping from\n       ! number and then the icomp-1 mass.\n       DO JC = 1, ICOMP-IDIAG+1\n       DO BIN = 1, IBINS\n          X = 0d0\n          ID = id_NK01 - 1 + BIN + (( JC-1 )* IBINS)\n\n          ! *******************************************************************\n          ! NOTE: I'm not sure if this is now covered by dry-deposition in\n          ! mixing_mod.F90 (ckeller, 3/5/15)\n          ! *******************************************************************\n          ! RKT is drydep frequency [1/s] -- PBLFRAC accounts for the\n          ! fraction of each vertical level that is located below the PBL top\n          RKT = DepFreq(I,J,DRYD(BIN)) * State_Met%F_UNDER_PBLTOP(I,J,L)\n          !IF (i==ii .and. j==jj .and. L==1) &\n          !   print *,'JC=',JC,'BIN=',BIN,'ID=',ID,'RKT',RKT\n          IF (RKT > 0d0) THEN\n             RKT = RKT * DTCHEM\n             ! Remaining amount after drydep\n             X  = X0(BIN,JC)* EXP(-RKT)\n          ELSE\n             X = X0(BIN,JC)\n          ENDIF\n\n          ! Swap X back into Spc array\n          Spc(ID)%Conc(I,J,L) = X\n\n       ENDDO\n       ENDDO\n\n       ! ***********************************************************************\n       ! NOTE: I'm not sure if this is now covered by dry-deposition in\n       ! mixing_mod.F90 (ckeller, 3/5/15)\n       ! ***********************************************************************\n       ! Dry deposit H2SO4 gas (win, 5/24/06)\n       Y0 = Spc(id_H2SO4)%Conc(I,J,L)\n       RKT = DepFreq(I,J,H2SO4ID) * State_Met%F_UNDER_PBLTOP(I,J,L)\n       Y = Y0 * EXP(-RKT)\n\n       !Swap final H2SO4 back into Spc array\n       Spc(id_H2SO4)%Conc(I,J,L) = Y\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    IF ( Input_Opt%Verbose ) PRINT *,'### Finish AERO_DRYDEP'\n\n    ! Free pointers\n    Spc      => NULL()\n    BXHEIGHT => NULL()\n    T        => NULL()\n    DepFreq  => NULL()\n\n    ! Check that species units are still in [kg] (ewl, 8/13/15)\n    IF ( .not. Check_Units( State_Chm,                                       &\n                            KG_SPECIES,                                      &\n                            mapping=State_Chm%Map_Advect ) ) THEN\n       MSG = 'Not all advected species have units \"kg\"!'\n       LOC = 'Routine AERO_DRYDEP in GeosCore/aero_drydep.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n  END SUBROUTINE AERO_DRYDEP\n!EOC\n#endif\n"
  },
  {
    "path": "GeosCore/aerosol_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: aerosol_mod.F90\n!\n! !DESCRIPTION: Module AEROSOL\\_MOD contains variables and routines for\n!  computing optical properties for aerosols which are needed for both the\n!  FAST-J photolysis and ND21 optical depth diagnostics. (bmy, 7/20/04,\n!  2/10/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE AEROSOL_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: INIT_AEROSOL\n  PUBLIC :: AEROSOL_CONC\n  PUBLIC :: RDAER\n  PUBLIC :: RD_AOD   ! Public for use in legacy FAST-JX initialization\n  PUBLIC :: CALC_AOD ! needed for Hg simulation\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! Growth factors\n  REAL(fp), PUBLIC  :: SIA_GROWTH\n  REAL(fp), PUBLIC  :: ORG_GROWTH\n  REAL(fp), PUBLIC  :: SSA_GROWTH\n\n  ! Logical flags\n  LOGICAL,  PUBLIC  :: IS_OCPI\n  LOGICAL,  PUBLIC  :: IS_OCPO\n  LOGICAL,  PUBLIC  :: IS_BC\n  LOGICAL,  PUBLIC  :: IS_SO4\n  LOGICAL,  PUBLIC  :: IS_HMS\n  LOGICAL,  PUBLIC  :: IS_NH4\n  LOGICAL,  PUBLIC  :: IS_NIT\n  LOGICAL,  PUBLIC  :: IS_DST\n  LOGICAL,  PUBLIC  :: IS_SAL\n  LOGICAL,  PUBLIC  :: IS_POA\n  LOGICAL,  PUBLIC  :: IS_OPOA\n  LOGICAL,  PUBLIC  :: IS_TSOA\n  LOGICAL,  PUBLIC  :: IS_ASOA\n  LOGICAL,  PUBLIC  :: IS_SOAGX\n  LOGICAL,  PUBLIC  :: IS_SimpleSOA\n  LOGICAL,  PUBLIC  :: IS_ComplexSOA\n!\n! !DEFINED PARAMETERS:\n!\n  ! For SOAGX, assume the total aerosol mass/glyoxal mass = 1.d0\n  ! for now (tmf, 1/7/09)\n  REAL(fp), PARAMETER,   PUBLIC :: OCFG = 1.e+0_fp\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Pye, H.O.T., and J.H. Seinfeld, \"A global perspective on aerosol from\n!        low-volatility organic compounds\", Atmos. Chem. & Phys., Vol 10, pp\n!        4377-4401, 2010.\n!  (2 ) Philip, S., R.V. Martin, J.R. Pierce, J.L. Jimenez, Q. Zhang, M.R.\n!       Canagaratna, D.V. Spracklen, C.R. Nowlan, L.N. Lamsal, M.J. Cooper, and\n!       N.A. Krotkov, \"Spatially and seasonally resolved estimate of the ratio\n!       of global organic mass to organic carbon\", Atmospheric Environment, 87,\n!       34-40, doi:10.1016/j.atmosenv.2013.11.065, 2014\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Add tracer ID flags as module variables (bmy, 6/16/16)\n  INTEGER :: id_BCPI,    id_BCPO,    id_NH4,     id_NIT\n  INTEGER :: id_DSTbin1, id_DSTbin2, id_DSTbin3, id_DSTbin4\n  INTEGER :: id_DSTbin5, id_DSTbin6, id_DSTbin7, id_OCPO\n  INTEGER :: id_OCPI,    id_SALA,    id_SALC,    id_SO4\n  INTEGER :: id_SO4s,    id_NITs,    id_NH4s,    id_POA1\n  INTEGER :: id_POA2,    id_OPOA1,   id_OPOA2,   id_TSOA1\n  INTEGER :: id_TSOA2,   id_TSOA3,   id_TSOA0,   id_ASOAN\n  INTEGER :: id_ASOA1,   id_ASOA2,   id_ASOA3,   id_DUST01\n  INTEGER :: id_SOAS,    id_SALACL,  id_HMS,     id_SOAGX\n  INTEGER :: id_SOAIE,   id_INDIOL,  id_LVOCOA\n\n  ! Index to map between NRHAER and species database hygroscopic species\n  ! NOTE: Increasing value of NRHAER in CMN_SIZE_Mod.F90 (e.g. if there is\n  ! a new hygroscopic species) requires manual update of this mapping\n  ! (ewl, 1/23/17)\n  INTEGER :: Map_NRHAER(5)\n\n  \nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aerosol_conc\n!\n! !DESCRIPTION: Subroutine AEROSOL\\_CONC computes aerosol concentrations in\n!  kg/m3 from the tracer mass in kg in the Species array.  These are needed to\n!  compute optical properties for photolysis, for the optical depth diagnostics,\n!  and for the SOA concentration diagnostics. (bmy, 7/20/04, 2/10/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AEROSOL_CONC( Input_Opt,  State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n\n#if !defined( MODEL_CESM ) && !defined( MODEL_BCC )\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n#endif\n\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE Species_Mod,       ONLY : SpcConc\n    USE State_Chm_Mod,     ONLY : ChmState\n    USE State_Diag_Mod,    ONLY : DgnState\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE State_Met_Mod,     ONLY : MetState\n    USE UnitConv_Mod\n    USE TIME_MOD,          ONLY : GET_MONTH\n    USE Timers_Mod,        ONLY : Timer_End, Timer_Start\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd variables\n    LOGICAL,  SAVE      :: FIRST = .TRUE.\n\n    ! Non-SAVEd variables\n    INTEGER             :: I, J, L, N, NA, ND, K, IBINS\n    INTEGER             :: k_SO4\n    INTEGER             :: k_ORG\n    INTEGER             :: k_SSA\n    REAL(fp)            :: Rad_wet, Rad_dry\n    REAL(fp)            :: Rho_wet, Rho_dry\n    REAL(fp)            :: REFF\n\n    ! Logical flags\n    LOGICAL             :: LCARB\n    LOGICAL             :: LDUST\n    LOGICAL             :: LSSALT\n    LOGICAL             :: LSULF\n\n    ! Pointers\n    TYPE(SpcConc), POINTER   :: Spc(:)\n    REAL*8,        POINTER   :: REAA(:,:,:)\n    REAL(fp),      POINTER   :: AIRVOL(:,:,:)\n    REAL(fp),      POINTER   :: PMID(:,:,:)\n    REAL(fp),      POINTER   :: T(:,:,:)\n    REAL(fp),      POINTER   :: SOILDUST(:,:,:,:)\n    REAL(fp),      POINTER   :: KG_STRAT_AER(:,:,:,:)\n\n    ! Other variables\n    INTEGER             :: previous_units\n\n\n    ! For spatially and seasonally varying OM/OC\n    CHARACTER(LEN=255)  :: FIELDNAME\n    INTEGER             :: MONTH\n    LOGICAL             :: FND\n\n    ! For errors\n    CHARACTER(LEN=255)  :: ThisLoc\n    CHARACTER(LEN=1023) :: ErrMsg\n!\n! !DEFINED_PARAMETERS\n!\n    REAL(fp), PARAMETER :: P_SFC_STP = 1013.25_fp  ! hPa\n    REAL(fp), PARAMETER :: T_298_K   = 298.0_fp    ! K\n\n    !=================================================================\n    ! AEROSOL_CONC begins here!\n    !=================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at AEROSOL_CONC (in module GeosCore/aerosol_mod.F90)'\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    LCARB   = Input_Opt%LCARB\n    LDUST   = Input_Opt%LDUST\n    LSSALT  = Input_Opt%LSSALT\n    LSULF   = Input_Opt%LSULF\n\n#ifdef TOMAS\n    ! Number of size bins for TOMAS microphysics\n    IBINS   = State_Chm%nTomasBins\n#endif\n    ! Set pointers\n    REAA => State_Chm%Phot%REAA\n\n    ! Stop aerosol chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Aerosol chem\", RC )\n    ENDIF\n\n    ! Convert species to [kg] for this routine\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         mapping        = State_Chm%Map_Advect,                              &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error at start of AEROSOL_CONC!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start aerosol chem timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Aerosol chem\", RC )\n    ENDIF\n\n    ! Initialize pointers\n    Spc      => State_Chm%Species\n    AIRVOL   => State_Met%AIRVOL\n    PMID     => State_Met%PMID\n    T        => State_Met%T\n    SOILDUST => State_Chm%SoilDust\n    KG_STRAT_AER => State_Chm%KG_AER\n\n    !=================================================================\n    ! OM/OC ratio\n    !\n    ! Get spatial and seasonally varying OM/OC from Philip et al. (2014)\n    ! or use default global mean values recommended by Aerosols WG\n    !=================================================================\n\n    ! Get data for OM/OC for current month from HEMCO\n    MONTH = GET_MONTH()\n    IF      ( MONTH == 12 .or. MONTH == 1  .or. MONTH == 2  ) THEN\n       FieldName = 'OMOC_DJF'\n    ELSE IF ( MONTH == 3  .or. MONTH == 4  .or. MONTH == 5  ) THEN\n       FieldName = 'OMOC_MAM'\n    ELSE IF ( MONTH == 6  .or. MONTH == 7  .or. MONTH == 8  ) THEN\n       FieldName = 'OMOC_JJA'\n    ELSE IF ( MONTH == 9  .or. MONTH == 10 .or. MONTH == 11 ) THEN\n       FieldName = 'OMOC_SON'\n    ENDIF\n\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n#if !defined( MODEL_CESM )  && !defined( MODEL_BCC )\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, Trim(FieldName), State_Chm%OMOC, RC, FOUND=FND )\n#else\n    FND = .True.\n    RC  = GC_SUCCESS\n#endif\n\n\n    IF ( RC == GC_SUCCESS .AND. FND ) THEN\n\n       ! Set OM/OC using spatially and seasonally varying data from\n       ! Philip et al. (2014)\n       State_Chm%AerMass%OCFPOA(:,:)  = State_Chm%OMOC(:,:) ! OM/OC for POA and OCPO\n       State_chm%AerMass%OCFOPOA(:,:) = State_Chm%OMOC(:,:) ! OM/OC for OPOA and OCPI\n\n    ELSE\n\n       ! Use default global mean OM/OC recommended by the Aerosols WG\n       State_Chm%AerMass%OCFPOA(:,:)  = 1.4e+0_fp ! OM/OC for POA and OCPO\n       State_chm%AerMass%OCFOPOA(:,:) = 2.1e+0_fp ! OM/OC for OPOA and OCPI\n\n    ENDIF\n\n    ! Save OM/OC\n    State_Chm%OMOC_POA(:,:) = State_Chm%AerMass%OCFPOA(:,:)\n    State_Chm%OMOC_OPOA(:,:) = State_chm%AerMass%OCFOPOA(:,:)\n\n    !=================================================================\n    ! Compute growth factors at 35% RH\n    !\n    ! GF = 1 + [ ( r_wet / r_dry )^3 -1 ] * [ rho_wet / rho_dry ]\n    !\n    ! and use rho_wet = 1000 kg/m3\n    !=================================================================\n    IF ( FIRST ) THEN\n\n       ! Species index of REAA from RD_AOD (in fast_jx_mod.F90)\n       k_SO4      = 1\n       k_ORG      = 3\n       k_SSA      = 4\n\n       ! Density of H2O [kg/m3]\n       Rho_wet    = 1000e+0_fp\n\n       ! Growth factor for SO4 + NIT + NH4\n       Rad_dry    = REAA(1,k_SO4,State_Chm%Phot%DRg) ! DRg = 6. choice of dry size doesn't affect volume growth ratio (hzhu)\n       Rad_wet    = REAA(1,k_SO4,State_Chm%Phot%DRg) + 35e+0_fp * &\n                  ( REAA(2,k_SO4,State_Chm%Phot%DRg) - REAA(1,k_SO4,State_Chm%Phot%DRg) ) / 50e+0_fp\n       Rho_dry    = State_Chm%SpcData(id_SO4)%Info%Density\n       SIA_GROWTH = 1 + ( ( ( Rad_wet / Rad_dry ) ** 3 - 1 ) * &\n                            ( Rho_wet / Rho_dry ) )\n\n       ! Force SIA growth to 1.1 to treat as partially crystalline\n       SIA_GROWTH = 1.1_fp\n\n       ! Growth factor for OCPI + SOA\n       Rad_dry    = REAA(1,k_ORG,State_Chm%Phot%DRg)\n       Rad_wet    = REAA(1,k_ORG,State_Chm%Phot%DRg) + 35e+0_fp * &\n                  ( REAA(2,k_ORG,State_Chm%Phot%DRg) - REAA(1,k_ORG,State_Chm%Phot%DRg) ) / 50e+0_fp\n       IF ( IS_POA ) THEN\n          Rho_dry    = State_Chm%SpcData(id_POA1)%Info%Density\n       ELSE IF ( IS_OCPI ) THEN\n          Rho_dry    = State_Chm%SpcData(id_OCPI)%Info%Density\n       ENDIF\n       ORG_GROWTH = 1 + ( ( ( Rad_wet / Rad_dry ) ** 3 - 1 ) * &\n                            ( Rho_wet / Rho_dry ) )\n\n       ! Growth factor for SALA\n       Rad_dry    = REAA(1,k_SSA,State_Chm%Phot%DRg)\n       Rad_wet    = REAA(1,k_SSA,State_Chm%Phot%DRg) + 35e+0_fp * &\n                  ( REAA(2,k_SSA,State_Chm%Phot%DRg) - REAA(1,k_SSA,State_Chm%Phot%DRg) ) / 50e+0_fp\n       Rho_dry    = State_Chm%SpcData(id_SALA)%Info%Density\n       SSA_GROWTH = 1 + ( ( ( Rad_wet / Rad_dry ) ** 3 - 1 ) * &\n                            ( Rho_wet / Rho_dry ) )\n\n       ! Print values to log file\n       IF ( Input_Opt%Verbose ) THEN\n          WRITE( 6,'(a)') 'Growth factors at 35% RH:'\n          WRITE( 6, 100 ) SIA_GROWTH, ' for SO4, NIT, and NH4'\n          WRITE( 6, 100 ) ORG_GROWTH, ' for OCPI and SOA'\n          WRITE( 6, 100 ) SSA_GROWTH, ' for SALA'\n100       FORMAT(F5.2,A)\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n\n    ENDIF\n\n    !$OMP PARALLEL DO               &\n    !$OMP DEFAULT( SHARED )         &\n    !$OMP PRIVATE( I, J, L, N, K )  &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !==============================================================\n       ! S U L F A T E   A E R O S O L S\n       !\n       ! Dump hydrophilic aerosols into one array that will be passed\n       ! to RDAER and then used for heterogeneous chemistry as well\n       ! as photolysis rate calculations interatively.\n       !\n       ! For the full-chemistry run, If LSULF=F, then we read these\n       ! aerosol data from Mian's simulation.  If LSULF=T then we use\n       ! the online tracers.\n       !\n       ! Now assume that all sulfate, ammonium, and nitrate are\n       ! hydrophilic but sooner or later we can pass only hydrophilic\n       ! aerosols from the thermodynamic calculations for this\n       ! purpose.  This dumping should be done before calling INITGAS,\n       ! which converts the unit of Spc from kg/box to molec/cm3.\n       !\n       ! Units of SO4_NH4_NIT are [kg/m3].  (rjp, bmy, 3/23/03)\n       !==============================================================\n       IF ( LSULF ) THEN\n\n          ! If we are using the full stratospheric chemistry mechanism,\n          ! stratospheric NH4 is ignored, stratospheric NIT is taken\n          ! as available for NAT formation and stratospheric SO4 is\n          ! taken as sulfuric acid\n          IF ( State_Met%InTroposphere(I,J,L) ) THEN\n\n             ! Tropospheric - keep as normal\n             ! now including sulfate and nitrate associated with sea-salt\n             ! NOTE: these should be treated as having a sea-salt size\n             ! distribution but are currently simply treated in the same\n             ! way (size and optics) as all other sulfate aerosol (DAR\n             ! 2013)\n\n             IF ( IS_HMS ) THEN\n\n                !%%%%% Fullchem simulations: add contribution from HMS\n                State_Chm%AerMass%SO4_NH4_NIT(I,J,L) = ( Spc(id_SO4)%Conc(I,J,L)     &\n                                   +   Spc(id_HMS)%Conc(I,J,L)     &\n                                   +   Spc(id_NH4)%Conc(I,J,L)     &\n                                   +   Spc(id_NIT)%Conc(I,J,L) )   &\n                                   / AIRVOL(I,J,L)\n\n                State_Chm%AerMass%HMS(I,J,L) = Spc(id_HMS)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ELSE\n\n                !%%%%% Aerosol-only simulations: Skip contribution from HMS\n                State_Chm%AerMass%SO4_NH4_NIT(I,J,L) = ( Spc(id_SO4)%Conc(I,J,L)   &\n                                   +   Spc(id_NH4)%Conc(I,J,L)   &\n                                   +   Spc(id_NIT)%Conc(I,J,L) ) &\n                                   / AIRVOL(I,J,L)\n\n                State_Chm%AerMass%HMS(I,J,L) = 0.0_fp\n             ENDIF\n\n             State_Chm%AerMass%SO4(I,J,L) = Spc(id_SO4)%Conc(I,J,L) / AIRVOL(I,J,L)\n             State_Chm%AerMass%NH4(I,J,L) = Spc(id_NH4)%Conc(I,J,L) / AIRVOL(I,J,L)\n             State_Chm%AerMass%NIT(I,J,L) = Spc(id_NIT)%Conc(I,J,L) / AIRVOL(I,J,L)\n             State_Chm%AerMass%SLA(I,J,L) = 0.0_fp\n             State_Chm%AerMass%SPA(I,J,L) = 0.0_fp\n\n\n          ELSE\n\n             ! Tropospheric sulfate is zero in stratosphere\n             State_Chm%AerMass%SO4_NH4_NIT(I,J,L) = 0.0_fp\n             State_Chm%AerMass%SO4(I,J,L) = 0.0_fp\n             State_Chm%AerMass%HMS(I,J,L) = 0.0_fp ! (jmm, 06/30/18)\n             State_Chm%AerMass%NH4(I,J,L) = 0.0_fp\n             State_Chm%AerMass%NIT(I,J,L) = 0.0_fp\n             State_Chm%AerMass%SLA(I,J,L) = KG_STRAT_AER(I,J,L,1) / AIRVOL(I,J,L)\n             State_Chm%AerMass%SPA(I,J,L) = KG_STRAT_AER(I,J,L,2) / AIRVOL(I,J,L)\n          ENDIF\n\n          ! Add error check for safe division (bmy, 4/7/15)\n          IF ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) > 0e+0_fp ) THEN\n\n             ! Save these fractions for partitioning of optics\n             ! until later when these may be treated independently\n             ! Only use HMS if it is defined (for fullchem sims)\n             IF ( IS_HMS ) THEN\n                State_Chm%AerMass%FRAC_SNA(I,J,L,1) = ( ( Spc(id_SO4)%Conc(I,J,L) +         &\n                                        Spc(id_HMS)%Conc(I,J,L) )         &\n                                  /   AIRVOL(I,J,L)              )        &\n                                  / State_Chm%AerMass%SO4_NH4_NIT(I,J,L)\n             ELSE\n                State_Chm%AerMass%FRAC_SNA(I,J,L,1) = ( Spc(id_SO4)%Conc(I,J,L) / AIRVOL(I,J,L) )&\n                                    / State_Chm%AerMass%SO4_NH4_NIT(I,J,L)\n             ENDIF\n\n\n             State_Chm%AerMass%FRAC_SNA(I,J,L,2) = ( Spc(id_NIT)%Conc(I,J,L) / AIRVOL(I,J,L) ) &\n                               / State_Chm%AerMass%SO4_NH4_NIT(I,J,L)\n\n             State_Chm%AerMass%FRAC_SNA(I,J,L,3) = ( Spc(id_NH4)%Conc(I,J,L) / AIRVOL(I,J,L) ) &\n                               / State_Chm%AerMass%SO4_NH4_NIT(I,J,L)\n\n          ELSE\n\n             ! If SO4_NH4_NIT(I,J,L) is zero, then avoid a div-by-zero\n             ! error.  Set all of these to zero because the division\n             ! cannot be done.\n             State_Chm%AerMass%FRAC_SNA(I,J,L,1) = 0e+0_fp\n             State_Chm%AerMass%FRAC_SNA(I,J,L,2) = 0e+0_fp\n             State_Chm%AerMass%FRAC_SNA(I,J,L,3) = 0e+0_fp\n\n          ENDIF\n\n       ENDIF\n\n       !==============================================================\n       ! C A R B O N  &  2 n d A R Y   O R G A N I C   A E R O S O L S\n       !\n       ! Compute hydrophilic and hydrophobic BC and OC in [kg/m3]\n       ! Also add online 2ndary organics if necessary\n       !==============================================================\n       IF ( LCARB ) THEN\n\n          ! Hydrophilic BC [kg/m3]\n          State_Chm%AerMass%BCPI(I,J,L) = Spc(id_BCPI)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n          ! Hydrophobic BC [kg/m3]\n          State_Chm%AerMass%BCPO(I,J,L) = Spc(id_BCPO)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n          ! Hydrophobic OC [kg/m3]\n          ! Based on censensus from Aerosol WG, OM/OC ratio  is\n          ! 1.4 for POA1/2 in ComplexSOA_SVPOA and OCPO in SimpleSOA\n          ! 2.1 for OPOA1/2 in ComplexSOA_SVPOA and OCPI in SimpleSOA\n          IF ( IS_POA ) THEN\n             State_Chm%AerMass%OCPO(I,J,L) = ( Spc(id_POA1)%Conc(I,J,L)     &\n                             + Spc(id_POA2)%Conc(I,J,L) ) &\n                           * State_Chm%AerMass%OCFPOA(I,J) / AIRVOL(I,J,L)\n          ELSE IF ( IS_OCPO ) THEN\n             State_Chm%AerMass%OCPO(I,J,L) = Spc(id_OCPO)%Conc(I,J,L) &\n                           * State_chm%AerMass%OCFPOA(I,J) / AIRVOL(I,J,L)\n          ENDIF\n\n          ! Hydrophilic OC [kg/m3]\n          IF ( IS_OCPI ) THEN\n             State_Chm%AerMass%OCPI(I,J,L) = Spc(id_OCPI)%Conc(I,J,L) &\n                           * State_chm%AerMass%OCFOPOA(I,J) / AIRVOL(I,J,L)\n          ENDIF\n\n          ! Now avoid division by zero (bmy, 4/20/04)\n          State_Chm%AerMass%BCPI(I,J,L)    = MAX( State_Chm%AerMass%BCPI(I,J,L), 1e-35_fp )\n          State_Chm%AerMass%OCPI(I,J,L)    = MAX( State_Chm%AerMass%OCPI(I,J,L), 1e-35_fp )\n          State_Chm%AerMass%BCPO(I,J,L)    = MAX( State_Chm%AerMass%BCPO(I,J,L), 1e-35_fp )\n          State_Chm%AerMass%OCPO(I,J,L)    = MAX( State_Chm%AerMass%OCPO(I,J,L), 1e-35_fp )\n\n       ENDIF ! LCARB\n\n       !===========================================================\n       ! M I N E R A L   D U S T   A E R O S O L S\n       !\n       ! NOTE: We can do better than this! Currently we carry 4\n       ! dust tracers...but het. chem and fast-j use 7 dust bins\n       ! hardwired from Ginoux.\n       !\n       ! Now, I apportion the first dust tracer into four smallest\n       ! dust bins equally in mass for het. chem and fast-j.\n       !\n       ! Maybe we need to think about chaning our fast-j and het.\n       ! chem to use just four dust bins or more flexible\n       ! calculations depending on the number of dust bins.\n       ! (rjp, 03/27/04)\n       !\n       ! Now splitting mass into bins in fractions derived from\n       ! Highwood et al. (2003).  Data is from log-normal fit of\n       ! PCASP measurements of Saharan dust (Solid line in Fig.4b)\n       ! (dar, 04/25/10) [see Ridley et al., 2012, JGR]\n       !\n       ! Updated for TOMAS (Jeffrey Pierce, 6/17/14)\n       !\n       ! Now get dust radius from species database (bmy, 3/16/17)\n       !===========================================================\n#ifdef TOMAS\n\n       !-----------------------------------------------------------\n       ! TOMAS simulations only\n       !-----------------------------------------------------------\n       IF ( LDUST ) THEN\n\n          ! Zero SOILDUST\n          SOILDUST(I,J,L,:) = 0.e0_fp\n\n          ! Loop over the # of TOMAS dust bins\n          DO K = 1, State_Chm%nTomasBins\n\n             ! Get the overall species index for species K\n             N    = id_DUST01 + K - 1\n\n             ! Effective aerosol radius [m]\n             REFF = State_Chm%SpcData(N)%Info%Radius\n\n             ! Bin #1\n             IF ( REFF < 0.2e-6_fp ) THEN\n                SOILDUST(I,J,L,1) = SOILDUST(I,J,L,1) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ! Bin #2\n             ELSE IF ( REFF < 0.325e-6_fp ) THEN\n                SOILDUST(I,J,L,2) = SOILDUST(I,J,L,2) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ! Bin #3\n             ELSE IF ( REFF < 0.6e-6_fp ) THEN\n                SOILDUST(I,J,L,3) = SOILDUST(I,J,L,3) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ! Bin #4\n             ELSE IF ( REFF < 1.15e-6_fp ) THEN\n                SOILDUST(I,J,L,4) = SOILDUST(I,J,L,4) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ! Bin #5\n             ELSE IF ( REFF < 2.0e-6_fp ) THEN\n                SOILDUST(I,J,L,5) = SOILDUST(I,J,L,5) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ! Bin #6\n             ELSE IF ( REFF < 3.25e-6_fp ) THEN\n                SOILDUST(I,J,L,6) = SOILDUST(I,J,L,6) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ! Bin #7\n             ELSE\n                SOILDUST(I,J,L,7) = SOILDUST(I,J,L,7) &\n                                    + Spc(N)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n             ENDIF\n          ENDDO\n\n       ENDIF\n#else\n\n       !-----------------------------------------------------------\n       ! Preserve original code for non-TOMAS simulations\n       !-----------------------------------------------------------\n       IF ( LDUST ) THEN\n          SOILDUST(I,J,L,1) = Spc(id_DSTbin1)%Conc(I,J,L) / AIRVOL(I,J,L)\n          SOILDUST(I,J,L,2) = Spc(id_DSTbin2)%Conc(I,J,L) / AIRVOL(I,J,L)\n          SOILDUST(I,J,L,3) = Spc(id_DSTbin3)%Conc(I,J,L) / AIRVOL(I,J,L)\n          SOILDUST(I,J,L,4) = Spc(id_DSTbin4)%Conc(I,J,L) / AIRVOL(I,J,L)\n          SOILDUST(I,J,L,5) = Spc(id_DSTbin5)%Conc(I,J,L) / AIRVOL(I,J,L)\n          SOILDUST(I,J,L,6) = Spc(id_DSTbin6)%Conc(I,J,L) / AIRVOL(I,J,L)\n          SOILDUST(I,J,L,7) = Spc(id_DSTbin7)%Conc(I,J,L) / AIRVOL(I,J,L)\n       ENDIF\n\n#endif\n\n       !===========================================================\n       ! S E A S A L T   A E R O S O L S\n       !\n       ! Compute accumulation & coarse mode concentration [kg/m3]\n       !===========================================================\n       IF ( LSSALT ) THEN\n\n          ! Accumulation mode seasalt aerosol [kg/m3]\n          State_Chm%AerMass%SALA(I,J,L) = Spc(id_SALA)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n          ! Coarse mode seasalt aerosol [kg/m3]\n          State_Chm%AerMass%SALC(I,J,L) = Spc(id_SALC)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n          ! Fine mode Cl-/sulfate interal mixed [kg/m3]\n          State_Chm%AerMass%ACL(I,J,L) = ( Spc(id_SALACL)%Conc(I,J,L) + &\n                         Spc(id_SALA)%Conc(I,J,L)*0.45e0_fp)/AIRVOL(I,J,L)\n\n          ! Avoid division by zero\n          State_Chm%AerMass%SALA(I,J,L) = MAX( State_Chm%AerMass%SALA(I,J,L), 1e-35_fp )\n          State_Chm%AerMass%SALC(I,J,L) = MAX( State_Chm%AerMass%SALC(I,J,L), 1e-35_fp )\n          State_Chm%AerMass%ACL(I,J,L) = MAX( State_Chm%AerMass%ACL(I,J,L), 1e-35_fp )\n\n       ENDIF\n\n       !===========================================================\n       ! S E C O N D A R Y   O R G A N I C   A E R O S O L S\n       !\n       ! Compute SOA concentration [kg/m3]\n       !===========================================================\n\n       !--------------------------------------------------------\n       ! Simple SOA scheme\n       !--------------------------------------------------------\n       IF ( Is_SimpleSOA ) THEN\n\n          ! Simple SOA [kg/m3]\n          State_Chm%AerMass%SOAS(I,J,L) = Spc(id_SOAS)%Conc(I,J,L) / AIRVOL(I,J,L)\n\n       ENDIF\n\n       !--------------------------------------------------------\n       ! Complex SOA scheme\n       !--------------------------------------------------------\n       IF ( Is_ComplexSOA ) THEN\n\n          ! TSOA (terpene SOA) [kg/m3]\n          IF ( IS_TSOA ) THEN\n             State_Chm%AerMass%TSOA(I,J,L) = ( Spc(id_TSOA1)%Conc(I,J,L)    &\n                           + Spc(id_TSOA2)%Conc(I,J,L)    &\n                           + Spc(id_TSOA3)%Conc(I,J,L)    &\n                           + Spc(id_TSOA0)%Conc(I,J,L) )  &\n                           / AIRVOL(I,J,L)\n          ENDIF\n\n          ! ASOA (benz, tolu, xyle, + NAP/IVOC SOA) [kg/m3]\n          IF ( IS_ASOA ) THEN\n             State_Chm%AerMass%ASOA(I,J,L) = ( Spc(id_ASOAN)%Conc(I,J,L)   &\n                           + Spc(id_ASOA1)%Conc(I,J,L)   &\n                           + Spc(id_ASOA2)%Conc(I,J,L)   &\n                           + Spc(id_ASOA3)%Conc(I,J,L) ) &\n                           / AIRVOL(I,J,L)\n          ENDIF\n\n          ! OPOA [kg/m3]\n          IF ( IS_OPOA ) THEN\n             State_Chm%AerMass%OPOA(I,J,L) = ( Spc(id_OPOA1)%Conc(I,J,L)    &\n                           + Spc(id_OPOA2)%Conc(I,J,L) )  &\n                           * State_chm%AerMass%OCFOPOA(I,J) / AIRVOL(I,J,L)\n          ENDIF\n       ENDIF\n\n       !-------------------------------------------------------\n       ! Mass loading of isoprene SOA (ISOAAQ) [kg/m3]\n       !-------------------------------------------------------\n\n       ! Glyoxal\n       IF ( id_SOAGX > 0 ) THEN\n          State_Chm%AerMass%ISOAAQ(I,J,L) = Spc(id_SOAGX)%Conc(I,J,L) / AIRVOL(I,J,L)\n       ENDIF\n\n       ! IEPOX\n       IF ( id_SOAIE > 0 ) THEN\n          State_Chm%AerMass%ISOAAQ(I,J,L) = State_Chm%AerMass%ISOAAQ(I,J,L) &\n                          + Spc(id_SOAIE)%Conc(I,J,L) / AIRVOL(I,J,L)\n       ENDIF\n\n       !-----------------------------------------------------------------------\n       ! Exclude INDIOL from AOD and aerosol mass calculations. This results in\n       ! lost mass. As noted in Fisher et al. (2016, ACP), this is a source of\n       ! uncertainty and would benefit from an update when more information\n       ! about this process becomes available. (eam, jaf, mps, 3/5/18)\n       !! SOA from alkyl nitrates (some contribution\n       !! from non-isoprene sources)\n       !IF ( id_INDIOL > 0 ) THEN\n       !   State_Chm%AerMass%ISOAAQ(I,J,L) = State_Chm%AerMass%ISOAAQ(I,J,L) + Spc(id_INDIOL)%Conc(I,J,L) / AIRVOL(I,J,L)\n       !ENDIF\n       !-----------------------------------------------------------------------\n\n       ! SOA from ISOPOOH oxidation product\n       IF ( id_LVOCOA > 0 ) THEN\n          State_Chm%AerMass%ISOAAQ(I,J,L) = State_Chm%AerMass%ISOAAQ(I,J,L) &\n                          + Spc(id_LVOCOA)%Conc(I,J,L) / AIRVOL(I,J,L)\n       ENDIF\n\n       !-------------------------------------------------------\n       ! Hydrophilic primary OC plus SOA [kg/m3].\n       !\n       ! We need to multiply by OCF to account for the mass of\n       ! other components which are attached to the OC aerosol.\n       ! (rjp, bmy, 7/15/04)\n       !\n       ! SOAupdate: use 2.1 (OCFOPOA) (hotp 7/21/10)\n       !\n       ! sfarina - add SOA-Simplified to primary OC.\n       !         - IDTSOAS is already mass basis, so only apply\n       !           OCFOPOA to IDTOCPI\n       !\n       ! SOAupdate: Update traditional SOA (hotp 7/21/10)\n       ! for new mtp + isop + lumparomivoc (hotp 5/20/10)\n       !\n       ! %%% IMPORTANT %%%\n       ! Note that if complex SOA is used then PM2.5 includes all\n       ! the SOA formed in both the Marais et al. and Pye et al.\n       ! schemes and may include some double-counting of isoprene SOA.\n       ! (Aerosol WG)\n       !-------------------------------------------------------\n\n       ! Use simple SOA by default over complex SOA in calculations\n       IF ( Is_SimpleSOA ) THEN\n          State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPI(I,J,L) + &\n                                             State_Chm%AerMass%SOAS(I,J,L)\n\n       ELSEIF ( Is_ComplexSOA ) THEN\n\n          State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%TSOA(I,J,L) + &\n                                             State_Chm%AerMass%ASOA(I,J,L)\n\n          IF ( IS_OCPI ) THEN  ! hotp 7/28/10\n             State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + &\n                                                State_Chm%AerMass%OCPI(I,J,L)\n          ENDIF\n\n          IF ( IS_OPOA ) THEN ! hotp 7/28/10\n             State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + &\n                                                State_Chm%AerMass%OPOA(I,J,L)\n          ENDIF\n\n          ! Add mechanistic isoprene OA (eam, 08/2015)\n          ! Skip adding this for Simple SOA (jaf, clh, bmy, 5/17/18)\n          ! benchmark OCPISOA follows simpleSOA and\n          ! should exculde ISOAAQ to avoid double-counting\n          ! (yuanjianz, 8 Jun 2024)\n          State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + State_Chm%AerMass%ISOAAQ(I,J,L)\n\n       ENDIF\n\n       ! Now avoid division by zero (bmy, 4/20/04)\n       State_Chm%AerMass%OCPISOA(I,J,L) = MAX( State_Chm%AerMass%OCPISOA(I,J,L), 1e-35_fp )\n\n       !===========================================================\n       ! SOAGX [kg/m3]\n       !===========================================================\n       IF ( IS_SOAGX ) THEN\n          State_Chm%AerMass%SOAGX(I,J,L) = Spc(id_SOAGX)%Conc(I,J,L) * OCFG / AIRVOL(I,J,L)\n       ENDIF\n\n       !=====================================================================\n       ! P A R T I C U L A T E   M A T T E R\n       !\n       ! See this documentation for the most up-to-date\n       ! definitions of PM2.5 and PM10 used in GEOS-Chem:\n       !\n       ! https://geos-chem.readthedocs.io/en/latest/geos-chem-shared-docs/supplemental-guides/pm25-pm10-guide.html\n       !=====================================================================\n\n       !---------------------------------------------------------------------\n       ! Particulate matter < 2.5um [kg/m3]\n       !\n       ! Contribution of primary aerosols\n       !\n       ! NOTE: The surface PM2.5 dust concentrations are calculated as\n       ! as DSTbin1 + DSTbin2 + DSTbin3 + 0.546 DSTbin4 as described in\n       ! Section 2.5 of https://doi.org/10.5194/gmd-18-6767-2025.\n       !---------------------------------------------------------------------\n       State_Chm%AerMass%PM25(I,J,L)                          =              &\n          State_Chm%AerMass%NH4(I,J,L)       * SIA_GROWTH     +              &\n          State_Chm%AerMass%NIT(I,J,L)       * SIA_GROWTH     +              &\n          State_Chm%AerMass%SO4(I,J,L)       * SIA_GROWTH     +              &\n          State_Chm%AerMass%HMS(I,J,L)       * SIA_GROWTH     +              &\n          State_Chm%AerMass%BCPI(I,J,L)                       +              &\n          State_Chm%AerMass%BCPO(I,J,L)                       +              &\n          State_Chm%AerMass%OCPO(I,J,L)                       +              &\n          State_Chm%AerMass%SALA(I,J,L)      * SSA_GROWTH     +              &\n          SOILDUST(I,J,L,1)                                   +              &\n          SOILDUST(I,J,L,2)                                   +              &\n          SOILDUST(I,J,L,3)                                   +              &\n          SOILDUST(I,J,L,4)                  * 0.546_fp\n\n       ! Only add OCPI to PM2.5 if it's a defined species\n       IF ( Is_OCPI ) THEN\n          State_Chm%AerMass%PM25(I,J,L)                       =              &\n             State_Chm%AerMass%PM25(I,J,L)                    +              &\n             State_Chm%AerMass%OCPI(I,J,L)   * ORG_GROWTH\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Particulate matter < 2.5um [kg/m3]\n       !\n       ! Contribution of secondary organic aerosols\n       !\n       ! Include either simple SOA (default) or Complex SOA in PM2.5\n       ! calculation.  In simulations where both Simple SOA and Complex SOA\n       ! species are carried (i.e. \"benchmark\"), then only the Simple SOA\n       ! will be added to PM2.5 and PM10, in order to avoid double-counting.\n       !---------------------------------------------------------------------\n       IF ( Is_SimpleSOA ) THEN\n          State_Chm%AerMass%PM25(I,J,L)                       =              &\n             State_Chm%AerMass%PM25(I,J,L)                    +              &\n             ( State_Chm%AerMass%SOAS(I,J,L) * ORG_GROWTH )\n\n       ELSE IF ( Is_ComplexSOA ) THEN\n          State_Chm%AerMass%PM25(I,J,L)                       =              &\n             State_Chm%AerMass%PM25(I,J,L)                    +              &\n             State_Chm%AerMass%TSOA(I,J,L)   * ORG_GROWTH     +              &\n             State_Chm%AerMass%ASOA(I,J,L)   * ORG_GROWTH     +              &\n             State_Chm%AerMass%ISOAAQ(I,J,L) * ORG_GROWTH     ! Includes SOAGX\n\n          ! Need to add OPOA to PM2.5 for complexSOA_SVPOA simulations\n          ! -- Maggie Marvin (15 Jul 2020)\n          IF ( Is_OPOA ) THEN\n             State_Chm%AerMass%PM25(I,J,L)                    =              &\n                State_Chm%AerMass%PM25(I,J,L)                 +              &\n                ( State_Chm%AerMass%OPOA(I,J,L) * ORG_GROWTH )\n          ENDIF\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Particulate matter < 10um [kg/m3]\n       !\n       ! PM10 = PM2.5 + contribution of coarse dust and seasalt aerosols\n       !\n       ! Include the remaining 45.4% of DSTbin4 (that is not already added\n       ! to PM2.5) into PM10.  Also include only 15.6% of DSTbin7 in PM10,\n       ! which is the fraction of the (Kok) particle size distribution that\n       ! has an aerodynamic diameter of 10 um or less.\n       ! See https://doi.org/10.5194/gmd-18-6767-2025 for details.\n       !---------------------------------------------------------------------\n       State_Chm%AerMass%PM10(I,J,L)                          =              &\n          State_Chm%AerMass%PM25(I,J,L)                       +              &\n          SOILDUST(I,J,L,4)                  * 0.454_fp       +              &\n          SOILDUST(I,J,L,5)                                   +              &\n          SOILDUST(I,J,L,6)                                   +              &\n          SOILDUST(I,J,L,7)                  * 0.156_fp       +              &\n          State_Chm%AerMass%SALC(I,J,L)      * SSA_GROWTH\n\n       !---------------------------------------------------------------------\n       ! Apply STP correction factor based on ideal gas law\n       !---------------------------------------------------------------------\n       State_Chm%AerMass%PM25(I,J,L)                          =              &\n          State_Chm%AerMass%PM25(I,J,L)                       *              &\n          ( P_SFC_STP / PMID(I,J,L) )                         *              &\n          ( T(I,J,L)  / T_298_K     )\n\n       State_Chm%AerMass%PM10(I,J,L)                          =              &\n          State_Chm%AerMass%PM10(I,J,L)                       *              &\n          ( P_SFC_STP / PMID(I,J,L) )                         *              &\n          ( T(I,J,L)  / T_298_K     )\n\n      !===========================================================\n      ! PDER [um] ! (hzhu, 04/05/2024)\n      ! Parameterized dry effective radius for SNA and OM\n      !===========================================================\n      IF ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) > 0e+0_fp ) THEN\n         ! dry SNA and OM mass, in unit of ug/m3\n         State_Chm%AerMass%SNAOM(I,J,L) = ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) + &\n                                            State_Chm%AerMass%OCPO(I,J,L) + &\n                                            State_Chm%AerMass%OCPISOA(I,J,L) ) * 1.0e+9_fp\n\n         ! ratio between OM and SNA, unitless\n         State_Chm%AerMass%R_OMSNA(I,J,L) = ( State_Chm%AerMass%OCPO(I,J,L) + &\n                                              State_Chm%AerMass%OCPISOA(I,J,L) ) / &\n                                              State_Chm%AerMass%SO4_NH4_NIT(I,J,L)\n\n         ! Parameterized dry effective radius, in unit of um\n         State_Chm%AerMass%PDER(I,J,L) = (exp( 4.36_fp + 0.20_fp*log(State_Chm%AerMass%SNAOM(I,J,L)) + 0.065_fp*log(State_Chm%AerMass%R_OMSNA(I,J,L)) ) *0.001_fp )/0.9_fp ;  \n         \n         IF (State_Chm%AerMass%PDER(I,J,L) == 0.0_fp) THEN\n            State_Chm%AerMass%PDER(I,J,L) = 0.005_fp ! give it a small value to avoid divided by 0\n         ENDIF\n\n      ELSE\n         State_Chm%AerMass%SNAOM(I,J,L) = 0.0_fp;\n         State_Chm%AerMass%R_OMSNA(I,J,L) = 0.0_fp;\n         State_Chm%AerMass%PDER(I,J,L) = 0.005_fp;\n         \n      ENDIF\n      !===========================================================\n\n\n#ifdef MODEL_GEOS\n       ! PM2.5 sulfates\n       IF ( State_Diag%Archive_PM25su ) THEN\n          State_Diag%PM25su(I,J,L)                                           &\n               = ( State_Chm%AerMass%SO4(I,J,L)    * SIA_GROWTH  )           &\n               * ( P_SFC_STP                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 nitrates\n       IF ( State_Diag%Archive_PM25ni ) THEN\n          State_Diag%PM25ni(I,J,L)                                           &\n               = ( State_Chm%AerMass%NH4(I,J,L)    * SIA_GROWTH              &\n               +   State_Chm%AerMass%NIT(I,J,L)    * SIA_GROWTH  )           &\n               * ( P_SFC_STP                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 BC\n       IF ( State_Diag%Archive_PM25bc  ) THEN\n          State_Diag%PM25bc(I,J,L)                                           &\n               = ( State_Chm%AerMass%BCPI(I,J,L)                             &\n               +  State_Chm%AerMass%BCPO(I,J,L)                  )           &\n               * ( P_SFC_STP                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 OC\n       IF ( State_Diag%Archive_PM25oc  ) THEN\n          State_Diag%PM25oc(I,J,L)                                           &\n               = ( State_Chm%AerMass%OCPO(I,J,L)                             &\n               +   State_Chm%AerMass%OCPI(I,J,L)   * ORG_GROWTH  )           &\n               * ( P_SFC_STD                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 dust\n       IF ( State_Diag%Archive_PM25du  ) THEN\n          State_Diag%PM25du(I,J,L)                                           &\n               = ( SOILDUST(I,J,L,1)                                         &\n               +   SOILDUST(I,J,L,2)                                         &\n               +   SOILDUST(I,J,L,3)                                         &\n               +   SOILDUST(I,J,L,4)               * 0.546       )           & \n               * ( P_SFC_STD                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n              * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 sea salt\n       IF ( State_Diag%Archive_PM25ss  ) THEN\n          State_Diag%PM25ss(I,J,L)                                           &\n               = ( State_Chm%AerMass%SALA(I,J,L)   * SSA_GROWTH  )           &\n               * ( P_SFC_STD                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 SOA\n       IF ( State_Diag%Archive_PM25soa ) THEN\n          State_Diag%PM25soa(I,J,L) &\n               = ( State_Chm%AerMass%TSOA(I,J,L)   * ORG_GROWTH              &\n               +   State_Chm%AerMass%ASOA(I,J,L)   * ORG_GROWTH              &\n               +   State_Chm%AerMass%SOAS(I,J,L)   * ORG_GROWTH              &\n               +   State_Chm%AerMass%ISOAAQ(I,J,L) * ORG_GROWTH  )           &\n               * ( P_SFC_STD                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 nitrate \n       IF ( State_Diag%Archive_PM25nit ) THEN\n          State_Diag%PM25nit(I,J,L)                                          &\n               = ( State_Chm%AerMass%NIT(I,J,L)    * SIA_GROWTH   )          &\n               * ( P_SFC_STD                       / PMID(I,J,L)  )          &\n               * ( T(I,J,L)                        / T_298_K      )          &\n               * 1.0e+9_fp\n       ENDIF\n\n       ! PM2.5 ammonium \n       IF ( State_Diag%Archive_PM25nh4 ) THEN\n          State_Diag%PM25nh4(I,J,L)                                          &\n               = ( State_Chm%AerMass%NH4(I,J,L)    * SIA_GROWTH  )           &\n               * ( P_SFC_STD                       / PMID(I,J,L) )           &\n               * ( T(I,J,L)                        / T_298_K     )           &\n               * 1.0e+9_fp\n       ENDIF\n#endif\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Stop aerosol chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Aerosol chem\", RC )\n    ENDIF\n\n    ! Convert species back to original unit\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'End of AEROSOL_CONC in aerosol_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Start aerosol chem timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Aerosol chem\", RC )\n    ENDIF\n\n    ! Free pointers\n    Spc      => NULL()\n    REAA     => NULL()\n    AIRVOL   => NULL()\n    PMID     => NULL()\n    T        => NULL()\n    SOILDUST => NULL()\n\n  END SUBROUTINE AEROSOL_CONC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rdaer\n!\n! !DESCRIPTION: Subroutine RDAER reads global aerosol concentrations as\n!  determined by Mian Chin.  Calculates optical depth at each level for\n!  \"set\\_prof\". Also calculates surface area for heterogeneous chemistry. It\n!  uses aerosol parameters in FAST-J input file \"jv\\_spec.dat\" for these\n!  calculations. (rvm, rjp, tdf, bmy, 11/04/01, 7/20/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RDAER( Input_Opt, State_Chm, State_Diag, State_Grid, State_Met, &\n                    RC,        MONTH,     YEAR,       ODSWITCH )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : NAER, NRH, NDUST, NRHAER, NSTRATAER\n    USE ErrCode_Mod\n    USE ERROR_MOD,      ONLY : ERROR_STOP, Safe_Div\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : CONSVAP\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : ITS_A_NEW_MONTH\n    USE TIME_MOD,       ONLY : SYSTEM_TIMESTAMP\n    USE UCX_MOD,        ONLY : GET_STRAT_OPT\n    USE Species_Mod,    ONLY : Species\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        OPTIONAL      :: MONTH       ! # of current month\n    INTEGER,        OPTIONAL      :: YEAR        ! 4-digit year\n    INTEGER,        OPTIONAL      :: ODSWITCH    ! Logical indicator\n                                                 !  = 0: AOD computed\n                                                 !       at 999 nm\n                                                 !  = 1: AOD computed\n                                                 !       at wavelength set\n                                                 !       in Radiation Menu\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL             :: FIRST = .TRUE.\n    LOGICAL             :: LINTERP\n    CHARACTER(LEN=16)   :: STAMP\n    INTEGER             :: I, J, L, N, R, IRH, W, IRHN, NA, SpcID, g\n    INTEGER             :: AA, IWV, IIWV, NWVS, IR, NRT, S\n    REAL*4              :: TEMP( State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp)            :: TEMP2(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp)            :: MSDENS(NAER), DRYAREA, VDRY, VH2O\n    REAL(f8)            :: XTAU\n    REAL*8              :: BCSCAT_AE  !(xnw, 8/24/15)\n\n    ! Variables for speed diagnostics\n    INTEGER             :: ITIMEVALS(8)\n    REAL*8              :: OLDSECS, NEWSECS\n    REAL*8              :: OLDSECST, NEWSECST\n\n    ! Effective radius at RH bins read in from \"FJX_spec.dat\"\n    REAL(fp)            :: RW(NRH)\n\n    ! Effective radius at RH after interpolation\n    REAL(fp)            :: REFF\n\n    ! Q at different RH bins read in from \"FJX_spec.dat\"\n    REAL(fp)            :: AW(NRH)\n    REAL(fp)            :: QW(NRH)\n    REAL(fp)            :: SSW(NRH)\n    REAL(fp)            :: ASYW(NRH)\n    REAL(fp)            :: AW0\n    REAL(fp)            :: QW0\n    REAL(fp)            :: SSW0\n    REAL(fp)            :: ASYW0\n    REAL(fp)            :: DENOM,NUMER\n\n    ! Used to interpolate between sizes\n    REAL(fp)            :: FRAC\n\n    ! Change in Q (extinction efficiency)\n    REAL(fp)            :: SCALEQ\n\n    ! Change in Radius with RH\n    REAL(fp)            :: SCALER\n\n    ! Change in SSA with RH\n    REAL(fp)            :: SCALESSA\n\n    ! Change in asym parameter with RH\n    REAL(fp)            :: SCALEASY\n\n    ! Change in Optical properties vs RH\n    REAL(fp)            :: SCALEA\n    REAL(fp)            :: SCALEOD\n\n    ! Change in Vol vs RH\n    REAL(fp)            :: SCALEVOL\n\n    ! Convert AbsHum to RelHum\n    REAL(fp)            :: TK,CONSEXP,VPRESH2O,RELHUM\n\n    ! Relative Humidities\n    REAL(fp),  SAVE     :: RH(NRH)   = (/0e+0_fp,0.5e+0_fp, &\n                                         0.7e+0_fp,0.8e+0_fp,0.9e+0_fp/)\n\n    ! Temporary variables\n    REAL(fp)            :: RAER, SADSTRAT, RHOSTRAT, XSASTRAT\n    INTEGER             :: ISTRAT\n\n    ! Aqueous aerosol volume (cm3/cm3):\n    REAL(fp)            :: TAERVOL\n\n    ! Local variables for quantities from Input_Opt\n    LOGICAL             :: LCARB\n    LOGICAL             :: LSSALT\n    LOGICAL             :: LSULF\n    LOGICAL             :: LSTRATOD\n    LOGICAL             :: LRAD\n    LOGICAL             :: LBCAE  ! (xnw, 8/24/15)\n    REAL(fp)            :: GF_RH\n    REAL(fp)            :: BCAE_1, BCAE_2\n\n    ! Pointers to State_Chm%Phot\n    INTEGER,  POINTER   :: IWVREQUIRED(:)\n    INTEGER,  POINTER   :: IWVSELECT  (:,:)\n    INTEGER,  POINTER   :: IRHARR     (:,:,:)\n    REAL*8,   POINTER   :: ACOEF_WV (:)\n    REAL*8,   POINTER   :: BCOEF_WV (:)\n    REAL*8,   POINTER   :: REAA     (:,:,:)\n    REAL*8,   POINTER   :: QQAA     (:,:,:,:)\n    REAL*8,   POINTER   :: ALPHAA   (:,:,:,:)\n    REAL*8,   POINTER   :: SSAA     (:,:,:,:)\n    REAL*8,   POINTER   :: ASYMAA   (:,:,:,:)\n    REAL*8,   POINTER   :: ISOPOD   (:,:,:,:)\n    REAL*8,   POINTER   :: ODAER    (:,:,:,:,:)\n#ifdef RRTMG\n    REAL*8,   POINTER   :: RTODAER  (:,:,:,:,:)\n    REAL*8,   POINTER   :: RTSSAER  (:,:,:,:,:)\n    REAL*8,   POINTER   :: RTASYMAER(:,:,:,:,:)\n#endif\n\n    ! Other pointers\n    REAL(fp), POINTER   :: BXHEIGHT (:,:,:)\n    REAL(fp), POINTER   :: ERADIUS  (:,:,:,:)\n    REAL(fp), POINTER   :: TAREA    (:,:,:,:)\n    REAL(fp), POINTER   :: WERADIUS (:,:,:,:)\n    REAL(fp), POINTER   :: WTAREA   (:,:,:,:)\n    REAL(fp), POINTER   :: ACLRADIUS(:,:,:)\n    REAL(fp), POINTER   :: ACLAREA  (:,:,:)\n\n    ! For diagnostics\n    LOGICAL                :: IsWL1\n    LOGICAL                :: IsWL2\n    LOGICAL                :: IsWL3\n    LOGICAL                :: IsSLA\n    LOGICAL                :: IsPSC\n    CHARACTER(LEN=255)     :: ErrMsg\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! RDAER begins here!\n    !=================================================================\n\n    ! speed diagnostic\n    !CALL DATE_AND_TIME( VALUES=ITIMEVALS )\n    !OLDSECS=real(ITIMEVALS(5))*3600.0+real(ITIMEVALS(6))*60.0+ &\n    !        real(ITIMEVALS(7))+real(ITIMEVALS(8))/1000.0\n\n    ! Assume success\n    RC                   = GC_SUCCESS\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    LCARB                = Input_Opt%LCARB\n    LSSALT               = Input_Opt%LSSALT\n    LSULF                = Input_Opt%LSULF\n    LSTRATOD             = Input_Opt%LSTRATOD\n    LRAD                 = Input_Opt%LRAD\n    LBCAE                = Input_Opt%LBCAE !(xnw, 8/24/15)\n    BCAE_1               = Input_Opt%BCAE_1\n    BCAE_2               = Input_Opt%BCAE_2\n\n    ! Initialize pointers\n    IWVREQUIRED => State_Chm%Phot%IWVREQUIRED ! WL indexes for interpolation\n    IWVSELECT   => State_Chm%Phot%IWVSELECT   ! Indexes of requested WLs\n    IRHARR      => State_Chm%Phot%IRHARR      ! Relative humidity indexes\n    ACOEF_WV    => State_Chm%Phot%ACOEF_WV    ! Coeffs for WL interpolation\n    BCOEF_WV    => State_Chm%Phot%BCOEF_WV    ! Coeffs for WL interpolation\n    REAA        => State_Chm%Phot%REAA\n    QQAA        => State_Chm%Phot%QQAA\n    ALPHAA      => State_Chm%Phot%ALPHAA\n    SSAA        => State_Chm%Phot%SSAA\n    ASYMAA      => State_Chm%Phot%ASYMAA\n    ISOPOD      => State_Chm%Phot%ISOPOD      ! Isoprene optical depth\n    ODAER       => State_Chm%Phot%ODAER       ! Aerosol optical depth\n#ifdef RRTMG\n    RTODAER     => State_Chm%Phot%RTODAER     ! Optical dust\n    RTSSAER     => State_Chm%Phot%RTSSAER\n    RTASYMAER   => State_Chm%Phot%RTASYMAER\n#endif\n    BXHEIGHT    => State_Met%BXHEIGHT    ! Grid box height [m]\n    ERADIUS     => State_Chm%AeroRadi    ! Aerosol Radius [cm]\n    TAREA       => State_Chm%AeroArea    ! Aerosol Area [cm2/cm3]\n    WERADIUS    => State_Chm%WetAeroRadi ! Wet Aerosol Radius [cm]\n    WTAREA      => State_Chm%WetAeroArea ! Wet Aerosol Area [cm2/cm3]\n    ACLRADIUS   => State_Chm%AClRadi     ! Fine Cl- Radius [cm]\n    ACLAREA     => State_Chm%AClArea     ! Fine Cl- Area [cm2/cm3]\n\n    !=================================================================\n    ! S U L F A T E   A E R O S O L S\n    !\n    ! If LSULF = TRUE, then take the lumped SO4, NH4, NIT\n    ! concentrations [kg/m3] computed by AEROSOL_CONC, and save\n    ! into WAERSL(:,:,:,1) for use w/ FAST-J and hetchem.  This is\n    ! updated every timestep.  (For fullchem and offline runs)\n    !\n    ! If LSULF = FALSE, then read monthly mean offline sulfate aerosol\n    ! concentrations [kg/m3] from disk at the start of each month.\n    ! (For fullchem simulations only)\n    !=================================================================\n    IF ( LSULF ) THEN\n\n       !-----------------------------------\n       ! Use online aerosol concentrations\n       !-----------------------------------\n       IF ( FIRST ) THEN\n          IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) WRITE( 6, 100 )\n100       FORMAT( '     - RDAER: Using online SO4 NH4 NIT!' )\n       ENDIF\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          State_Chm%AerMass%WAERSL(I,J,L,1) = State_Chm%AerMass%SO4_NH4_NIT(I,J,L)\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    !=================================================================\n    ! C A R B O N  &  2 n d A R Y   O R G A N I C   A E R O S O L S\n    !\n    ! If LCARB = TRUE, then take Hydrophilic OC, Hydrophobic OC,\n    ! Hydropilic BC, and Hydrophobic BC, and 2ndary organic aerosol\n    ! concentrations [kg/m3] that have been computed by AEROSOL_CONC.\n    ! Save these into DAERSL and WAERSL for use w/ FAST-J and hetchem.\n    ! These fields are updated every chemistry timestep.\n    ! (For both fullchem and offline simulations)\n    !\n    ! If LCARB = FALSE, then read monthly mean carbon aerosol\n    ! concentrations [kg/m3] from disk at the start of each month.\n    ! (For full chemistry simulations only)\n    !=================================================================\n    IF ( LCARB ) THEN\n\n       !-----------------------------------\n       ! Use online aerosol concentrations\n       !-----------------------------------\n       IF ( FIRST ) THEN\n          IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) WRITE( 6, 110 )\n110       FORMAT( '     - RDAER: Using online BCPI OCPI BCPO OCPO!' )\n       ENDIF\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Hydrophilic BC (a.k.a EC) [kg/m3]\n          State_Chm%AerMass%WAERSL(I,J,L,2) = State_Chm%AerMass%BCPI(I,J,L)\n\n          ! Hydrophilic OC [kg/m3]\n          State_Chm%AerMass%WAERSL(I,J,L,3) = State_Chm%AerMass%OCPISOA(I,J,L)\n\n          ! Hydrophobic BC (a.k.a EC) [kg/m3]\n          State_Chm%AerMass%DAERSL(I,J,L,1) = State_Chm%AerMass%BCPO(I,J,L)\n\n          ! Hydrophobic OC [kg/m3]\n          State_Chm%AerMass%DAERSL(I,J,L,2) = State_Chm%AerMass%OCPO(I,J,L)\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    !=================================================================\n    ! S E A S A L T   A E R O S O L S\n    !\n    ! If LSSALT = TRUE, then take accumulation and coarse mode\n    ! seasalt aerosol concentrations [kg/m3] that are passed from\n    ! KPP.  Save these into WAERSL for use w/ FAST-J and\n    ! hetchem.  These fields are updated every chemistry timestep.\n    ! (For both fullchem and offline simulations)\n    !\n    ! If LSSALT = FALSE, then read monthly-mean coarse sea-salt\n    ! aerosol concentrations [kg/m3] from the binary punch file.\n    ! Also merge the coarse sea salt aerosols into a combined bin\n    ! rather than carrying them separately.\n    ! (For fullchem simulations only)\n    !=================================================================\n    IF ( LSSALT ) THEN\n\n       !-----------------------------------\n       ! Use online aerosol concentrations\n       !-----------------------------------\n       IF ( FIRST ) THEN\n          IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n             WRITE( 6, 120 )\n120          FORMAT( '     - RDAER: Using online SALA SALC' )\n          ENDIF\n       ENDIF\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Accumulation mode seasalt aerosol [kg/m3]\n          State_Chm%AerMass%WAERSL(I,J,L,4) = State_Chm%AerMass%SALA(I,J,L)\n\n          ! Coarse mode seasalt aerosol [kg/m3]\n          State_Chm%AerMass%WAERSL(I,J,L,5) = State_Chm%AerMass%SALC(I,J,L)\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    ! Transfer stratospheric aerosol data\n    ! SDE 04/17/13\n    State_Chm%AerMass%WAERSL(:,:,:,NRHAER+1) = State_Chm%AerMass%SLA\n    State_Chm%AerMass%WAERSL(:,:,:,NRHAER+2) = State_Chm%AerMass%SPA\n\n    !=================================================================\n    ! Calculate optical depth and surface area at each timestep\n    ! to account for the change in relative humidity\n    !\n    ! For the optical depth calculation, this involves carrying the\n    ! optical depth at each RH as separate aerosols since OPMIE\n    ! treats the phase functions and single scattering albedos\n    ! separately. (An alternative would be to rewrite OPMIE)\n    !\n    ! Scaling is sufficient for the surface area calculation\n    !=================================================================\n    ! Representative aerosol densities (kg/m3):\n    MSDENS(1) = State_Chm%SpcData(id_SO4)%Info%Density\n    MSDENS(2) = State_Chm%SpcData(id_BCPI)%Info%Density\n    IF ( IS_POA ) THEN\n       MSDENS(3) = State_Chm%SpcData(id_POA1)%Info%Density\n    ELSE IF ( IS_OCPI ) THEN\n       MSDENS(3) = State_Chm%SpcData(id_OCPI)%Info%Density\n    ENDIF\n    MSDENS(4) = State_Chm%SpcData(id_SALA)%Info%Density\n    MSDENS(5) = State_Chm%SpcData(id_SALC)%Info%Density\n\n    ! These default values unused (actively retrieved from ucx_mod)\n    MSDENS(NRHAER+1) = 1700.0d0 ! SSA/STS\n    MSDENS(NRHAER+2) = 1000.0d0 ! NAT/ice PSC\n\n    !set default values for RH index array\n    IRHARR(:,:,:)=1\n\n    ! Empty ODAER before refilling. This is required to make sure that\n    ! all gridboxes outside the chemistry grid are zero and do not carry\n    ! over values from previous time steps. (ckeller, 10/15/15)\n    ODAER(:,:,:,:,:) = 0.0d0\n\n    ! DAR 09/2013\n    ! There are two ways RDAER can be called:\n    ! (1) When Fast-J requires aerosol optics at 1000nm (ODSWITCH=0)\n    ! (2) Before diags are accumulated, from RECOMPUTE_AOD (ODSWITCH=1)\n    ! for (1) we just need the optics stored at a single wavelength\n    !     not for all user specified wavelengths, hence NWVS=1, IWV=IWV1000\n    ! for (2) we need to determine if RRTMG is switched on\n    !     if LRAD=true, calculation is over total minus standard wavelengths\n    !     in optics dat files (NWVAA-NWVAA0)\n    !     if LRAD=false, calculation is for the wavelengths required for\n    !     user-requested wavelength output. These are determined in CALC_AOD\n    !     within RD_AOD and stored in IWVREQUIRED. The coefficients to\n    !     interpolate from the LUT wavelengths to the user-requested\n    !     waveelenths (in CALC_AOD) are used here.\n\n    ! Select number of wavelengths required to loop over\n    IF (ODSWITCH .EQ. 0) THEN !this is the call for Fast_JX at 1000nm\n       NWVS   = 1\n    ELSE\n       IF ( LRAD ) THEN\n          !Loop over all RT wavelengths (30)\n          ! plus any required for calculating the AOD\n          NWVS = State_Chm%Phot%NWVAA - State_Chm%Phot%NWVAA0 + &\n                 State_Chm%Phot%NWVREQUIRED\n       ELSE\n          !Loop over wavelengths needed for\n          !interpolation to those requested in geoschem_config.yml\n          !(determined in RD_AOD)\n          NWVS = State_Chm%Phot%NWVREQUIRED\n       ENDIF\n    ENDIF\n\n    DO IIWV = 1, NWVS\n       !now select the correct LUT wavelength\n       IF (ODSWITCH .EQ. 0) THEN\n          ! only doing for 1000nm (IWV1000 is set in RD_AOD)\n          ! N.B. NWVS is fixed to 1 above - only one wavelength\n          IWV=State_Chm%Phot%IWV1000\n       ELSE\n          IF ( LRAD ) THEN\n             ! RRTMG wavelengths begin after NWVAA0 standard wavelengths\n             ! but add on any others required\n             IF (IIWV.LE.30) THEN\n                !index of RRTMG wavelengths starts after the standard NWVAA0\n                !(currently NWVAA0=11, hard-coded in phot_container_mod based\n                ! on the .dat LUT)\n                IWV = IIWV + State_Chm%Phot%NWVAA0\n             ELSE\n                !now we calculate at wvs for the requested AOD\n                IWV = IWVREQUIRED(IIWV-30)\n             ENDIF\n          ELSE\n             ! IWVREQUIRED lists the index of requires standard wavelengths\n             IWV = IWVREQUIRED(IIWV)\n          ENDIF\n       ENDIF\n\n       ! Loop over types of aerosol with hygroscopic growth\n       DO NA = 1, NAER\n\n          ! Get ID following ordering of aerosol densities in RD_AOD\n          IF ( NA <= NRHAER) THEN\n             N = Map_NRHAER(NA)\n          ELSE\n             N = NA\n          ENDIF\n\n          !index for strat aerosol (only >0 for strat aero)\n          ISTRAT=N-NRHAER\n\n          ! NRT is subscript for RT arrays that contain SNA separately\n          ! so their optics can be treated separately in future\n          IF (N.GT.1) THEN\n             NRT=N+2\n          ELSE\n             NRT=N\n          ENDIF\n\n          !==============================================================\n          ! Determine aerosol growth rates from the relative\n          ! humidity in each box\n          !\n          ! The optical depth scales with the radius and Q alone\n          ! since SCALEDENS cancels as follows\n          !\n          !    SCALER \t= RW / RDRY\n          !    SCALEDENS = DENSWET / DENSDRY\n          !    SCALEM \t= SCALEDENS * SCALER**3\n          !    SCALEOD \t= (SCALEQ * SCALEM) / (SCALEDENS * SCALER)\n          !          \t= SCALEQ * SCALER**2\n          !\n          ! Cap aerosol values at 90% relative humidity since\n          ! aerosol growth at that point becomes highly nonlinear and\n          ! relative humidities above this value essentially mean\n          ! there is a cloud in that grid box\n          !\n          ! Q is the extinction efficiency\n          !\n          ! Each grid box (I,J,L) will fall into one of the RH bins,\n          ! since each grid box will have a different RH value.  So,\n          ! for SCALEOD(I,J,L,:), only one of the IRH bins will contain\n          ! nonzero data, while the other IRH bins will all be zero.\n          !==============================================================\n          ! We loop over all selected wavelengths, referenced by IWV\n          ! if FAST_J is calling then IWV will be for 1000nm only\n          ! if RRTMG is on then IWV will be 30 wavelengths + AOD wavs,\n          ! otherwise IWV will be at user input specified wavelengths\n\n          ! Loop over grid boxes\n          !$OMP PARALLEL DO                                                 &\n          !$OMP PRIVATE( I,        J,       L,        R,        IRH       ) &\n          !$OMP PRIVATE( RW,       QW,      AW,       SSW,      ASYW      ) &\n          !$OMP PRIVATE( AW0,      QW0,     SSW0,     ASYW0,    REFF      ) &\n          !$OMP PRIVATE( SCALEA,   SCALEQ,  SCALESSA, SCALEASY, FRAC      ) &\n          !$OMP PRIVATE( SCALER,   SCALEOD, SCALEVOL, DRYAREA,  TAERVOL   ) &\n          !$OMP PRIVATE( TK,       CONSEXP, VPRESH2O, RELHUM,   BCSCAT_AE ) &\n#ifdef RRTMG\n          !$OMP PRIVATE( IR                                               ) &\n#endif\n          !$OMP PRIVATE( RHOSTRAT, RAER,    SADSTRAT, XSASTRAT            ) &\n          !$OMP PRIVATE( VDRY,     VH2O,    S,        g                   ) &\n          !$OMP SCHEDULE( DYNAMIC, 8                                      ) &\n          !$OMP COLLAPSE( 3                                               )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Zero private loop variables\n             g         = 0\n             IRH       = 0\n             S         = 0\n             RW        = 0.0_fp\n             QW        = 0.0_fp\n             AW        = 0.0_fp\n             SSW       = 0.0_fp\n             ASYW      = 0.0_fp \n             FRAC      = 0.0_fp\n             AW0       = 0.0_fp\n             QW0       = 0.0_fp\n             SSW0      = 0.0_fp\n             ASYW0     = 0.0_fp\n             REFF      = 0.0_fp\n             SCALEA    = 0.0_fp\n             SCALEQ    = 0.0_fp\n             SCALESSA  = 0.0_fp\n             SCALEASY  = 0.0_fp\n             FRAC      = 0.0_fp\n             SCALER    = 0.0_fp\n             SCALEOD   = 0.0_fp\n             SCALEVOL  = 0.0_fp\n             DRYAREA   = 0.0_fp\n             TAERVOL   = 0.0_fp\n             TK        = 0.0_fp\n             CONSEXP   = 0.0_fp\n             VPRESH2O  = 0.0_fp\n             RELHUM    = 0.0_fp\n             RHOSTRAT  = 0.0_fp\n             RAER      = 0.0_fp\n             SADSTRAT  = 0.0_fp\n             XSASTRAT  = 0.0_fp\n             VDRY      = 0.0_fp\n             VH2O      = 0.0_fp\n             BCSCAT_AE = 0.0_fp\n\n             ! Loop over relative humidity bins\n             IF (N == 1 .or. N == 3) THEN ! (hzhu, 08/2023)\n                ! For SNA or Organics\n                g = 1\n                DO WHILE ( State_Chm%AerMass%PDER(I,J,L) > REAA(1,N,g) .and. &\n                           g < State_Chm%Phot%NDRg )\n                   ! REAA(1,N,g) is the upper limit of REFF\n                   g = g + 1\n                END DO\n\n                IF (g == 1) THEN\n                   DO R = 1, NRH\n                      ! Wet radius in aerosol LUT files\n                      RW(R) = REAA(R,N,g)\n\n                      ! Extinction efficiency for Q for each RH bin\n                      QW(R)   = QQAA(IWV,R,N,g)\n                      AW(R)   = ALPHAA(IWV,R,N,g)\n                      SSW(R)  = SSAA(IWV,R,N,g)\n                      ASYW(R) = ASYMAA(IWV,R,N,g)\n                   ENDDO\n\n                ELSE\n                   FRAC = (State_Chm%AerMass%PDER(I,J,L) - REAA(1,N,g-1))/  &\n                          (REAA(1,N,g) - REAA(1,N,g-1))\n                   IF ( FRAC > 1.0d0 ) FRAC = 1.0d0\n                   DO R = 1, NRH\n                      RW(R)  = FRAC*REAA(R,N,g) + (1.d0-FRAC)*REAA(R,N,g-1)\n\n                      QW(R)  = FRAC*QQAA(IWV,R,N,g) + &\n                              (1.d0-FRAC)*QQAA(IWV,R,N,g-1)\n\n                      AW(R)  = FRAC*ALPHAA(IWV,R,N,g)+ &\n                               (1.d0-FRAC)*ALPHAA(IWV,R,N,g-1)\n\n                      SSW(R) = FRAC*SSAA(IWV,R,N,g) + &\n                               (1.d0-FRAC)*SSAA(IWV,R,N,g-1)\n                        \n                      ASYW(R)= FRAC*ASYMAA(IWV,R,N,g)+ &\n                               (1.d0-FRAC)*ASYMAA(IWV,R,N,g-1)\n                   END DO\n                END IF\n\n             ELSE\n               ! For other species\n               DO R = 1, NRH\n                  ! Wet radius in aerosol LUT files\n                  RW(R) = REAA(R,N,State_Chm%Phot%DRg)\n\n                  ! Extinction efficiency for Q for each RH bin\n                  QW(R)   = QQAA(IWV,R,N,State_Chm%Phot%DRg)\n                  AW(R)   = ALPHAA(IWV,R,N,State_Chm%Phot%DRg)\n                  SSW(R)  = SSAA(IWV,R,N,State_Chm%Phot%DRg)\n                  ASYW(R) = ASYMAA(IWV,R,N,State_Chm%Phot%DRg)\n               ENDDO\n\n            ENDIF\n\n             ! Skip non-chemistry boxes\n             IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n             ! Calculate RH. Not clear why the result of this calc is\n             ! slightly different than State_Met%RH\n             RELHUM   = State_Met%AVGW(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n             TK       = State_Met%T(I,J,L)\n             CONSEXP  = 17.2693882e+0_fp * (TK - 273.16e+0_fp) / &\n                        (TK - 35.86e+0_fp)\n             VPRESH2O = CONSVAP * EXP(CONSEXP) / TK\n             RELHUM   = RELHUM / VPRESH2O\n\n             ! Sort into relative humidity bins\n             ! Currently uses the 0, 50, 70, 80, 90% RH bins\n             ! (95 and 99% also stored in data files but not used)\n             IF (      RELHUM <= RH(2) ) THEN\n                IRH = 1\n             ELSE IF ( RELHUM <= RH(3) ) THEN\n                IRH = 2\n             ELSE IF ( RELHUM <= RH(4) ) THEN\n                IRH = 3\n             ELSE IF ( RELHUM <= RH(5) ) THEN\n                IRH = 4\n             ELSE\n                IRH = 5\n             ENDIF\n\n             ! save the index of the relative humidity into array that is\n             ! used by the photolysis to pull the right optics\n             ! information from the FJX_spec.dat\n             ! Previously the ODAER was organized by aerosol species and\n             ! each RH bin, but this leaves a lot of the array redundant\n             ! because only one RH bin is used at once\n             ! This becomes a waste of memory with multiple wavelengths\n             IRHARR(I,J,L) = IRH\n\n             ! For the NRHth bin, we don't have to interpolate\n             ! For the other bins, we have to interpolate\n             ! Sometimes values can be zero, don't want to divide by 0...\n             IF (AW(1).EQ.0.0) THEN\n                AW0=1.0\n             ELSE\n                AW0=AW(1)\n             ENDIF\n             IF (QW(1).EQ.0.0) THEN\n                QW0=1.0\n             ELSE\n                QW0=QW(1)\n             ENDIF\n             IF (SSW(1).EQ.0.0) THEN\n                SSW0=1.0\n             ELSE\n                SSW0=SSW(1)\n             ENDIF\n             IF (ASYW(1).EQ.0.0) THEN\n                ASYW0=1.0\n             ELSE\n                ASYW0=ASYW(1)\n             ENDIF\n\n             IF ( IRH == NRH ) THEN\n                REFF     = RW(NRH)\n                SCALEA   = AW(NRH)   / AW0  !QW(1) is dry extinction eff.\n                SCALEQ   = QW(NRH)   / QW0\n                SCALESSA = SSW(NRH)  / SSW0\n                SCALEASY = ASYW(NRH) / ASYW0\n             ELSE\n                ! Interpolate between different RH\n                FRAC = (RELHUM-RH(IRH)) / (RH(IRH+1)-RH(IRH))\n                IF ( FRAC > 1.0d0 ) FRAC = 1.0d0\n                REFF    = FRAC*RW(IRH+1)  + (1.d0-FRAC)*RW(IRH)\n                SCALEA  =(FRAC*AW(IRH+1)  + (1.d0-FRAC)*AW(IRH))/AW0\n                SCALEQ  =(FRAC*QW(IRH+1)  + (1.d0-FRAC)*QW(IRH))/QW0\n                SCALESSA=(FRAC*SSW(IRH+1) + (1.d0-FRAC)*SSW(IRH))/SSW0\n                SCALEASY=(FRAC*ASYW(IRH+1)+ (1.d0-FRAC)*ASYW(IRH))/ASYW0\n             ENDIF\n\n             SCALER  = REFF / RW(1)\n             SCALEOD = SCALEQ * SCALER * SCALER\n\n\n             IF ( N.LE.NRHAER ) THEN\n\n                !--------------------------------------------------------\n                ! %%%%%%% Aerosols undergoing hygroscopic growth %%%%%%%\n                !--------------------------------------------------------\n\n                !calculate optics for hyrdophillic aerosol here\n                !However MDENS in LUT was in g/cm3 not kg/m3 so x1e3\n                ODAER(I,J,L,IWV,N) = SCALEOD * BXHEIGHT(I,J,L) * 0.75d0 * &\n                                     State_Chm%AerMass%WAERSL(I,J,L,N) * QW(1)   / &\n                                     ( MSDENS(N) * RW(1) * 1.0D-6 )\n\n                !Include BC absorption enhancement (xnw, 8/24/15)\n                IF (N.eq.2) THEN\n\n                   IF (LBCAE) THEN\n                      BCSCAT_AE = ODAER(I,J,L,IWV,N)*SCALESSA*SSAA(IWV,1,N,State_Chm%Phot%DRg)\n                      ODAER(I,J,L,IWV,N) = ODAER(I,J,L,IWV,N) * &\n                                ( BCAE_1 + SCALESSA*SSAA(IWV,1,N,State_Chm%Phot%DRg) - &\n                                  SCALESSA*SSAA(IWV,1,N,State_Chm%Phot%DRg)*BCAE_1 )\n\n                      !now combine with hydrophilic OD as before\n                      BCSCAT_AE = BCSCAT_AE + SSAA(IWV,1,N,State_Chm%Phot%DRg) * &\n                                  0.75d0 * BXHEIGHT(I,J,L) * &\n                                  State_Chm%AerMass%DAERSL(I,J,L,N-1) * QW(1)   / &\n                                  ( MSDENS(N) * REAA(1,N,State_Chm%Phot%DRg) * 1.0D-6 )\n                      ODAER(I,J,L,IWV,N)= ODAER(I,J,L,IWV,N) + &\n                           (BCAE_2+SSAA(IWV,1,N,State_Chm%Phot%DRg) - SSAA(IWV,1,N,State_Chm%Phot%DRg)*BCAE_2) * &\n                                  0.75d0 * BXHEIGHT(I,J,L) * &\n                                  State_Chm%AerMass%DAERSL(I,J,L,N-1) * QW(1)   / &\n                                  ( MSDENS(N) * REAA(1,N,State_Chm%Phot%DRg) * 1.0D-6 )\n\n                   ELSE\n                      !now combine with hydrophilic OD as before\n                      ODAER(I,J,L,IWV,N)= ODAER(I,J,L,IWV,N) + &\n                                  0.75d0 * BXHEIGHT(I,J,L) * &\n                                  State_Chm%AerMass%DAERSL(I,J,L,N-1) * QW(1)   / &\n                                  ( MSDENS(N) * REAA(1,N,State_Chm%Phot%DRg) * 1.0D-6 )\n                   ENDIF\n\n                ENDIF\n\n                IF (N.eq.3) THEN\n                   !now combine with hydrophilic OD as before\n                   ODAER(I,J,L,IWV,N)= ODAER(I,J,L,IWV,N) + &\n                                   0.75d0 * BXHEIGHT(I,J,L) * &\n                                   State_Chm%AerMass%DAERSL(I,J,L,N-1) * QW(1)  / &\n                                   ( MSDENS(N) * State_Chm%AerMass%PDER(I,J,L) * 1.0D-6 )\n                ENDIF\n\n                ! Get the AOD contribution from isoprene SOA only (eam, 2014)\n                IF ( N == 3 .and. Is_ComplexSOA ) THEN\n                   ISOPOD(I,J,L,IWV) = SCALEOD*BXHEIGHT(I,J,L)*0.75d0 &\n                                   * State_Chm%AerMass%ISOAAQ(I,J,L) * QW(1)  / &\n                                   ( MSDENS(N) * State_Chm%AerMass%PDER(I,J,L) * 1.0D-6 )\n                ENDIF\n\n             ELSE\n\n                !--------------------------------------------------------\n                !        %%%%%%% Stratospheric aerosols %%%%%%%\n                !--------------------------------------------------------\n\n                ! Get aerosol effective radius\n                CALL GET_STRAT_OPT(State_Chm, I, J, L, ISTRAT, RAER, REFF, &\n                                   SADSTRAT, XSASTRAT)\n\n                ! SDE 2014-02-04\n                ! The calculation used for the aerosols above\n                ! is essentially a roundabout way of deriving\n                ! the cross-sectional area. For log-normally\n                ! distributed aerosols, this is much easier,\n                ! and a direct query prevents the possibility\n                ! of dividing a small mass by a small calculated\n                ! radius and blowing up\n\n                ! Aerosol optical depth\n                ODAER(I,J,L,IWV,N) = BXHEIGHT(I,J,L) * XSASTRAT * QW(1) \n\n             ENDIF\n\n#ifdef RRTMG\n             !SNA currently treated as one with optics but considered\n             !separately for RT, so we split them by mass here\n             IF (N.EQ.1) THEN\n                DO IR=1,3\n                   RTODAER(I,J,L,IWV,N+IR-1)= ODAER(I,J,L,IWV,N)* &\n                                              State_Chm%AerMass%FRAC_SNA(I,J,L,IR)\n                   RTSSAER(I,J,L,IWV,N+IR-1)   = SCALESSA*SSAA(IWV,1,N,State_Chm%Phot%DRg)\n                   RTASYMAER(I,J,L,IWV,N+IR-1) = SCALEASY*ASYMAA(IWV,1,N,State_Chm%Phot%DRg)\n                ENDDO\n             ELSE\n                !RT arrays now offset from NAER by 2 (NRT=N+2 for N>1)\n                !This will automatically be added after the standard aerosol\n                !(NRHAER+1,2) but before dust\n                RTODAER(I,J,L,IWV,NRT)     = ODAER(I,J,L,IWV,N)\n                RTSSAER(I,J,L,IWV,NRT)     = SCALESSA*SSAA(IWV,1,N,State_Chm%Phot%DRg)\n                !for BC SSA with absorption enhancement (xnw 8/24/15)\n                IF ((N .EQ. 2) .AND. (LBCAE)) THEN\n                   RTSSAER(I,J,L,IWV,NRT)  = BCSCAT_AE / &\n                                             ODAER(I,J,L,IWV,N)\n                ENDIF\n                RTASYMAER(I,J,L,IWV,NRT)   = SCALEASY*ASYMAA(IWV,1,N,State_Chm%Phot%DRg)\n             ENDIF\n#endif\n\n             ! Only need to do hyg once, not for each wavelength\n             ! Skip stratospheric aerosols\n             IF ((IIWV.EQ.1).and.(ISTRAT.le.0)) THEN\n\n                !----------------------------------------------------\n                ! Netcdf diagnostics computed here:\n                !  Hygroscopic growth of SO4                [unitless]\n                !  Hygroscopic growth of Black Carbon       [unitless]\n                !  Hygroscopic growth of Organic Carbon     [unitless]\n                !  Hygroscopic growth of Sea Salt (accum)   [unitless]\n                !  Hygroscopic growth of Sea Salt (coarse)  [unitless]\n                IF ( State_Diag%Archive_AerHygGrowth .AND. &\n                     L <= State_Met%MaxChemLev       .AND. &\n                     ODSWITCH.EQ.1 ) THEN\n                   S = State_Diag%Map_AerHygGrowth%id2slot(NA)\n                   IF ( S > 0 ) THEN\n                      State_Diag%AerHygGrowth(I,J,L,S) = SCALEOD\n                   ENDIF\n                ENDIF\n\n                !=======================================================\n                !now calulate the surface areas\n                !==============================================================\n                !  Calculate Aerosol Surface Area\n                !\n                !  Units ==> AERSL    [ kg aerosol m^-3 air ]\n                !            MSDENS   [ kg aerosol m^-3 aerosol ]\n                !            ERADIUS  [ cm      ]\n                !            TAREA    [ cm^2 dry aerosol/cm^3 air ]\n                !\n                !  Note: first find volume of aerosol (cm^3 arsl/cm^3 air), then\n                !        multiply by 3/radius to convert to surface area in cm^2\n                !\n                !  Wet Volume = AERSL * SCALER**3 / MSDENS\n                !  Wet Surface Area = 3 * (Wet Volume) / ERADIUS\n                !\n                !  Effective radius for surface area and optical depths\n                !  are identical.\n                !==============================================================\n                !========================================================\n                ! NOTES:\n                !    WAERSL   [ kg dry mass of wet aerosol m^-3 air ]\n                !    ERADIUS  [ cm wet aerosol radius ]\n                !    MSDENS   [ kg dry mass of aerosol m^-3 dry volume of aer]\n                !    TAREA    [ cm^2 wet sfc area of aerosol cm^-3 air ]\n                !    WTAREA   : same as TAREA, but excludes dry dust, BCPO, OCPO\n                !               use same units as TAREA    (tmf, 4/18/07)\n                !    WERADIUS : same as ERADIUS, but excludes dry dust,BCPO,OCPO\n                !               use same units as ERADIUS  (tmf, 4/18/07)\n                ! Wet dust WTAREA and WERADIUS are archived in dust_mod.F90.\n                !========================================================\n\n                !get scaling for R and VOL\n                SCALER                 = REFF / RW(1)\n                SCALEVOL               = SCALER**3\n                ERADIUS(I,J,L,N+NDUST) = 1.0D-4 * REFF\n\n                ! Store aerosol surface areas in TAREA, and be sure\n                ! to list them following the dust surface areas\n                TAREA(I,J,L,N+NDUST)   = 3.D0 * State_Chm%AerMass%WAERSL(I,J,L,N) * SCALEVOL / &\n                                         ( ERADIUS(I,J,L,N+NDUST) * MSDENS(N) )\n\n                WTAREA(I,J,L,N+NDUST)   = TAREA(I,J,L,N+NDUST)\n                WERADIUS(I,J,L,N+NDUST) = ERADIUS(I,J,L,N+NDUST)\n                ! For SO4-NIT-NH4-fine sea salt aerosol, re-calculate the wet\n                ! effective\n                ! radius using the water content from ISORROPIA/HETP.\n                ! This new effective radius will be used for surface area\n                ! used in heterogeneous chemistry. We don't use this\n                ! effective radius in the optics above (OD, scattering,\n                ! absorption) because the index of refraction, phase\n                ! function, and Q must all be consistent with the radius and\n                ! composition.\n                ! (cdholmes, 5/17/2019, with update by XW, 5/28/2020)\n                IF (N == 1) THEN\n\n                   ! Volume of water, m3(H2O)/m3(air)\n                   ! AeroH2O has units g/m3\n                   VH2O = State_Chm%AeroH2O(I,J,L,NDUST+1) / 1e6\n                   ! Volume of dry aerosol, m3(aerosol)/m3(air)\n                   VDry = State_Chm%AerMass%WAERSL(I,J,L,1)/MSDENS(1) + State_Chm%AerMass%WAERSL(I,J,L,4)/MSDENS(4)\n\n                   ! Notes on REFF derivation\n                   ! Volume of wet aerosol: VWet = VDry + VH2O [note:\n                   ! this is incorrect but has the correct limits for\n                   ! VH2O/VDry << 1 and VH2O/VDry >> 1. It would be\n                   ! better to use an empirical function for density.]\n                   ! Volume of one dry particle v1dry = 4/3*pi*RDry**3\n                   ! [note: RW(1) = RDry]\n                   ! Number of aerosol particles: n = VDry / v1dry\n                   ! Volume of wet aerosol is also: VWet = 4/3*pi * RWet**3 * n\n                   ! So RWet = ( 3*VWet / (4 pi n) )**(1/3)\n                   ! RWet = RDry * ( 1 + VH2O/Vdry )**(1/3)\n\n                   ! Wet effective radius, um\n                   ! Here assume the dry radius of the mixture = SNA\n                   REFF = RW(1) * min( 3d0, &\n                          ( 1d0 + safe_div( VH2O, VDry, 0d0 ) )**(1d0/3d0))\n\n                   ACLRADIUS(I,J,L) = 1.0D-4 * REFF\n                   ACLAREA(I,J,L) = 3.D0*(VH2O + VDry) / ACLRADIUS(I,J,L)\n                ENDIF\n\n                ! Save aerosol water content. Assume that the increase in volume\n                ! equals the volume of pure water added, m3(H2O)/m3(air),\n                ! then convert to g/m3\n                ! Don't update SNA, keep ISORROPIA/HETP values\n                IF (N.ne.1) THEN\n                   State_Chm%AeroH2O(I,J,L,N+NDUST) = 1e+6_fp * &\n                       State_Chm%AerMass%WAERSL(I,J,L,N) / MSDENS(N) * (ScaleVol - 1d0)\n                ENDIF\n\n                !include hydrophobic BC and OC\n                !stored separate to hydrophillic in RT variables\n                IF ((N.eq.2).or.(N.eq.3)) THEN\n\n                   ! Dry surface area\n                   ! SDE 2015-10-27: RW is in um, but everything\n                   ! else is in terms of cm. Correct with 10^-4 factor\n                   DRYAREA = 3.D0 * State_Chm%AerMass%DAERSL(I,J,L,N-1) / ( RW(1) * &\n                             1.0D-4 * MSDENS(N) )\n\n                   ! Add surface area to TAREA array\n                   TAREA(I,J,L,N+NDUST) = WTAREA(I,J,L,N+NDUST) + DRYAREA\n\n                   ! Define a new effective radius that accounts\n                   ! for the hydrophobic aerosol\n                   ERADIUS(I,J,L,NDUST+N) = ( WERADIUS(I,J,L,NDUST+N) *   &\n                                              WTAREA(I,J,L,N+NDUST)   +   &\n                                              RW(1) * 1.0D-4 * DRYAREA )/ &\n                                            ( WTAREA(I,J,L,N+NDUST)   +   &\n                                              DRYAREA )\n                ENDIF !Hydrophobic aerosol surface area\n\n                !----------------------------------------------------\n                ! Netcdf diagnostics computed here:\n                !  Aqueous aerosol volume\n                IF ( State_Diag%Archive_AerAqVol .AND. N.EQ.1 ) THEN\n                   State_Diag%AerAqVol(I,J,L) = &\n                      ( ERADIUS(I,J,L,NDUST+N) * TAREA(I,J,L, N+NDUST) ) / 3.D0\n\n                ENDIF\n\n             ENDIF !Surface area calcs (1st wavelength only, non-strat)\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDDO !Loop over NAER\n    ENDDO !End loop over NWVS\n\n    !==============================================================\n    ! Account for stratospheric aerosols (SDE 04/17/13)\n    !==============================================================\n    ! Loop over stratospheric aerosols\n    DO ISTRAT = 1,NSTRATAER\n\n       ! Index for combination of aerosol type and RH\n       N = NRHAER + ISTRAT\n\n       ! Assume ISTRAT == 1 is strat liquid aerosol and\n       ! ISTRAT == 2 is polar strat cloud\n       IsSLA = .FALSE.\n       IsPSC = .FALSE.\n       SELECT CASE ( ISTRAT )\n       CASE ( 1 )\n          IsSLA = .TRUE.\n       CASE ( 2 )\n          IsPSC = .TRUE.\n       CASE DEFAULT\n          WRITE( 6,'(a)') \"WARNING: aerosol diagnostics not defined \" // &\n               \"for NSTRATAER greater than 2!\"\n       END SELECT\n\n       !$OMP PARALLEL DO                    &\n       !$OMP DEFAULT( SHARED )              &\n       !$OMP PRIVATE( I, J, L, RAER, REFF ) &\n       !$OMP PRIVATE( SADSTRAT, XSASTRAT )  &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Get aerosol effective radius\n          CALL GET_STRAT_OPT(State_Chm, I,J,L,ISTRAT,RAER,REFF,SADSTRAT,XSASTRAT)\n\n          ! Moved this from a separate loop for clarity\n          IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n             ! Add surface area to TAREA array\n             TAREA(I,J,L,NDUST+N)  = SADSTRAT\n             WTAREA(I,J,L,NDUST+N) = SADSTRAT\n\n             ! Store radius\n             ERADIUS(I,J,L,NDUST+N)  = RAER\n             WERADIUS(I,J,L,NDUST+N) = RAER\n          ENDIF\n\n          !----------------------------------------------------\n          ! Netcdf diagnostics computed here:\n          !  Strat aerosol liquid surface area\n          !  Polar strat cloud surface area\n          IF ( State_Diag%Archive_AerSurfAreaSLA .AND. ISTRAT==1 ) THEN\n             State_Diag%AerSurfAreaSLA(I,J,L) = SADSTRAT\n          ENDIF\n          IF ( State_Diag%Archive_AerSurfAreaPSC .AND. ISTRAT==2 ) THEN\n             State_Diag%AerSurfAreaPSC(I,J,L) = SADSTRAT\n          ENDIF\n\n          !----------------------------------------------------\n          ! Netcdf diagnostics computed here:\n          !  Strat. liquid aerosol optical depth     [unitless]\n          !  Strat. liquid aerosol number density    [#/cm3   ]\n          !  Strat. particulate aerosol opt. depth   [unitless]\n          !  Strat. particulate aerosol num. density [#/cm3   ]\n          ! NOTE: Diagnostic output for each wavelength\n          IF ( State_Diag%Archive_AODStrat .and. ODSWITCH .EQ. 1 ) THEN\n             IF ( IsSLA ) THEN\n                IF ( State_Diag%Archive_AerNumDenSLA ) THEN\n                   State_Diag%AerNumDenSLA(I,J,L) = &\n                        State_Chm%NDENS_AER(I,J,L,ISTRAT)*1.d-6\n                ENDIF\n                IF ( State_Diag%Archive_AODSLAWL1 ) THEN\n                   State_Diag%AODSLAWL1(I,J,L) = &\n                        ODAER(I,J,L,IWVSELECT(1,1),N)\n                ENDIF\n                IF ( State_Diag%Archive_AODSLAWL2 ) THEN\n                   State_Diag%AODSLAWL2(I,J,L) = &\n                        ODAER(I,J,L,IWVSELECT(1,2),N)\n                ENDIF\n                IF ( State_Diag%Archive_AODSLAWL3 ) THEN\n                   State_Diag%AODSLAWL3(I,J,L) = &\n                        ODAER(I,J,L,IWVSELECT(1,3),N)\n                ENDIF\n             ELSEIF ( IsPSC ) THEN\n                IF ( State_Diag%Archive_AerNumDenPSC ) THEN\n                   State_Diag%AerNumDenPSC(I,J,L) = &\n                        State_Chm%NDENS_AER(I,J,L,ISTRAT)*1.d-6\n                ENDIF\n                IF ( State_Diag%Archive_AODPSCWL1 ) THEN\n                   State_Diag%AODPSCWL1(I,J,L) = &\n                        ODAER(I,J,L,IWVSELECT(1,1),N)\n                ENDIF\n                IF ( State_Diag%Archive_AODPSCWL2 ) THEN\n                   State_Diag%AODPSCWL2(I,J,L) = &\n                        ODAER(I,J,L,IWVSELECT(1,2),N)\n                ENDIF\n                IF ( State_Diag%Archive_AODPSCWL3 ) THEN\n                   State_Diag%AODPSCWL3(I,J,L) = &\n                        ODAER(I,J,L,IWVSELECT(1,3),N)\n                ENDIF\n             ENDIF\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDDO ! end loop over stratospheric aerosols\n\n    !==============================================================\n    ! Non-stratospheric cloud diagnostics\n    ! NOTE: The cloud optical depths are actually recorded at\n    !       1000 nm, but vary little with wavelength.\n    !==============================================================\n    IF ( State_Diag%Archive_AOD .and. ODSWITCH .EQ. 1 ) THEN\n\n       ! Loop over aerosol types (dust handled in dust_mod.F90)\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                               ) &\n       !$OMP PRIVATE( I, J, L, N, W, LINTERP, IsWL1, IsWL2, IsWL3, S       ) &\n       !$OMP SCHEDULE( DYNAMIC                                             )\n       ! Loop over hydroscopic aerosols\n       DO NA = 1, NRHAER\n\n          ! Get ID following ordering of aerosol densities in RD_AOD\n          N = Map_NRHAER(NA)\n\n          ! Loop over wavelengths set in geoschem_config.yml\n          DO W = 1, Input_Opt%NWVSELECT\n\n             ! Set wavelength logical\n             IsWL1 = .FALSE.\n             IsWL2 = .FALSE.\n             IsWL3 = .FALSE.\n             SELECT CASE ( W )\n             CASE ( 1 )\n                IsWL1 = .TRUE.\n             CASE ( 2 )\n                IsWL2 = .TRUE.\n             CASE ( 3 )\n                IsWL3 = .TRUE.\n             END SELECT\n\n             ! no interpolation required if these are the same\n             IF (IWVSELECT(1,W).EQ.IWVSELECT(2,W)) THEN\n                LINTERP=.FALSE.\n             ELSE\n                LINTERP=.TRUE.\n             ENDIF\n\n             ! Loop over grid boxes\n             DO L = 1, State_Grid%NZ\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n\n                !----------------------------------------------------\n                ! Netcdf diagnostics computed here:\n                !  Sulfate Optical Depth (lambda1,2,3 nm)       [.]\n                !  Black Carbon Optical Depth (lambda1,2,3 nm)  [.]\n                !  Organic Carbon Optical Depth (lambda1,2,3 nm)[.]\n                !  Sea Salt (accum) Opt Depth (lambda1,2,3 nm)  [.]\n                !  Sea Salt (coarse) Opt Depth(lambda1,2,3 nm)  [.]\n                IF ( .not. LINTERP ) THEN\n                   IF ( State_Diag%Archive_AODHygWL1 .AND. IsWL1 ) THEN\n                      S = State_Diag%Map_AODHygWL1%id2slot(NA)\n                      IF ( S > 0 ) THEN\n                         State_Diag%AODHygWL1(I,J,L,S) = &\n                              ODAER(I,J,L,IWVSELECT(1,W),N)\n                      ENDIF\n\n                   ELSE IF ( State_Diag%Archive_AODHygWL2 .AND. IsWL2 ) THEN\n                      S = State_Diag%Map_AODHygWL2%id2slot(NA)\n                      IF ( S > 0 ) THEN\n                         State_Diag%AODHygWL2(I,J,L,S) = &\n                              ODAER(I,J,L,IWVSELECT(1,W),N)\n                      ENDIF\n\n                   ELSE IF ( State_Diag%Archive_AODHygWL3 .AND. IsWL3 ) THEN\n                      S = State_Diag%Map_AODHygWL3%id2slot(NA)\n                      IF ( S > 0 ) THEN\n                         State_Diag%AODHygWL3(I,J,L,S) = &\n                           ODAER(I,J,L,IWVSELECT(1,W),N)\n                      ENDIF\n                   ENDIF\n                ELSE\n                   ! Interpolated using angstrom exponent between\n                   ! Closest available wavelengths\n                   ! (coefs pre-calculated in CALC_AOD (RD_AOD)\n                   !catch any zero values before interpolation\n                   IF ((ODAER(I,J,L,IWVSELECT(2,W),N).GT.0).AND. &\n                       (ODAER(I,J,L,IWVSELECT(1,W),N).GT.0)) THEN\n                      IF ( State_Diag%Archive_AODHygWL1 .AND. IsWL1 ) THEN\n                         S = State_Diag%Map_AODHygWL1%id2slot(NA)\n                         IF ( S > 0 ) THEN\n                            State_Diag%AODHygWL1(I,J,L,S) =                  &\n                              ODAER(I,J,L,IWVSELECT(2,W),N)*ACOEF_WV(W)**    &\n                              (BCOEF_WV(W)*LOG(ODAER(I,J,L,IWVSELECT(1,W),N)/&\n                              ODAER(I,J,L,IWVSELECT(2,W),N)))\n                         ENDIF\n\n                      ELSE IF ( State_Diag%Archive_AODHygWL2 .AND. IsWL2 ) THEN\n                         S = State_Diag%Map_AODHygWL2%id2slot(NA)\n                         IF ( S > 0 ) THEN\n                            State_Diag%AODHygWL2(I,J,L,S) =                  &\n                              ODAER(I,J,L,IWVSELECT(2,W),N)*ACOEF_WV(W)**    &\n                              (BCOEF_WV(W)*LOG(ODAER(I,J,L,IWVSELECT(1,W),N)/&\n                              ODAER(I,J,L,IWVSELECT(2,W),N)))\n                         ENDIF\n                      ELSE IF ( State_Diag%Archive_AODHygWL3 .AND. IsWL3 ) THEN\n                         S = State_Diag%Map_AODHygWL3%id2slot(NA)\n                         IF ( S > 0 ) THEN\n                            State_Diag%AODHygWL3(I,J,L,S) =                  &\n                              ODAER(I,J,L,IWVSELECT(2,W),N)*ACOEF_WV(W)**    &\n                              (BCOEF_WV(W)*LOG(ODAER(I,J,L,IWVSELECT(1,W),N)/&\n                              ODAER(I,J,L,IWVSELECT(2,W),N)))\n                         ENDIF\n                      ENDIF\n                   ENDIF\n                ENDIF\n\n                !----------------------------------------------------\n                ! Netcdf diagnostics computed here:\n                !  AOD for SOA from aq isoprene (lambda1,2,3 nm) [unitless]\n                IF ( ( N == 3 ) .and. Is_ComplexSOA ) THEN\n                   IF ( State_Diag%Archive_AODSOAfromAqIsopWL1 .AND. &\n                        IsWL1 ) THEN\n                      State_Diag%AODSOAfromAqIsopWL1(I,J,L) = &\n                           ISOPOD(I,J,L,IWVSELECT(1,W))\n                   ENDIF\n                   IF ( State_Diag%Archive_AODSOAfromAqIsopWL2 .AND. &\n                        IsWL2 ) THEN\n                      State_Diag%AODSOAfromAqIsopWL2(I,J,L) = &\n                           ISOPOD(I,J,L,IWVSELECT(1,W))\n                   ENDIF\n                   IF ( State_Diag%Archive_AODSOAfromAqIsopWL3 .AND. &\n                        IsWL3 ) THEN\n                      State_Diag%AODSOAfromAqIsopWL3(I,J,L) = &\n                           ISOPOD(I,J,L,IWVSELECT(1,W))\n                   ENDIF\n                ENDIF\n\n             ENDDO\n             ENDDO\n             ENDDO\n\n          ENDDO ! end loop over wavelengths\n       ENDDO ! end of loop over hygroscopic aerosols\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    !------------------------------------\n    ! Aerosol Surface Areas\n    !------------------------------------\n    IF ( State_Diag%Archive_AerSurfAreaHyg .AND. ODSWITCH .EQ. 1) THEN\n\n       !$OMP PARALLEL DO              &\n       !$OMP DEFAULT( SHARED        ) &\n       !$OMP PRIVATE( I, J, L, N, S ) &\n       !$OMP SCHEDULE( DYNAMIC      )\n       ! Loop over hydroscopic aerosols\n       DO NA = 1, NRHAER\n\n          ! Get ID following ordering of aerosol densities in RD_AOD\n          N = Map_NRHAER(NA)\n\n          !----------------------------------------------------\n          ! Netcdf diagnostics computed here:\n          !  Sulfate Surface Area                       [cm2/cm3]\n          !  Black Carbon (hydrophilic) Surface Area    [cm2/cm3]\n          !  Organic Carbon (hydrophilic) Surface Area  [cm2/cm3]\n          !  Sea Salt (accum) Surface Area              [cm2/cm3]\n          !  Sea Salt (coarse) Surface Area             [cm2/cm3]\n          !----------------------------------------------------\n          S = State_Diag%Map_AerSurfAreaHyg%id2slot(NA)\n          IF ( S > 0 ) THEN\n             DO L = 1, State_Grid%NZ\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n                State_Diag%AerSurfAreaHyg(I,J,L,S) = &\n                     TAREA(I,J,L,N+NDUST)\n             ENDDO\n             ENDDO\n             ENDDO\n          ENDIF\n\n       ENDDO ! end of loop over hygroscopic aerosols\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    ! Turn off radiative effects of stratospheric aerosols?\n    IF ( .not. LSTRATOD ) THEN\n       ODAER(:,:,:,:,NRH+1) = 0.d0\n       ODAER(:,:,:,:,NRH+2) = 0.d0\n    ENDIF\n\n    !=================================================================\n    ! To turn off the radiative effects of different aerososl\n    ! uncomment the following lines\n    !=================================================================\n    !DO R = 1,NRH\n    !  ODAER(:,:,:,R)       = 0.d0  !sulfate\n    !  ODAER(:,:,:,R+NRH)   = 0.d0  !BC\n    !  ODAER(:,:,:,R+2*NRH) = 0.d0  !OC\n    !  ODAER(:,:,:,R+3*NRH) = 0.d0  !SS(accum)\n    !  ODAER(:,:,:,R+4*NRH) = 0.d0  !SS(coarse)\n    !ENDDO\n    !ODAER(:,:,:,NRHAER*NRH+1) = 0.d0   !SLA\n    !ODAER(:,:,:,NRHAER*NRH+2) = 0.d0   !SPA\n\n    !=================================================================\n    ! To turn off heterogeneous chemistry on different aerosols\n    ! uncomment the following lines\n    !=================================================================\n    !TAREA(:,NDUST+1) = 0.d0\t!Sulfate\n    !TAREA(:,NDUST+2) = 0.d0\t!BC\n    !TAREA(:,NDUST+3) = 0.d0\t!OC\n    !TAREA(:,NDUST+4) = 0.d0\t!SS (accum)\n    !TAREA(:,NDUST+5) = 0.d0\t!SS (coarse)\n    !TAREA(:,NDUST+NRHAER+1) = 0.d0 !SLA\n    !TAREA(:,NDUST+NRHAER+2) = 0.d0 !SPA\n\n    ! Free pointers\n    IWVREQUIRED => NULL()\n    IWVSELECT   => NULL()\n    IRHARR      => NULL()\n    ACOEF_WV    => NULL()\n    BCOEF_WV    => NULL()\n    REAA        => NULL()\n    QQAA        => NULL()\n    ALPHAA      => NULL()\n    SSAA        => NULL()\n    ASYMAA      => NULL()\n    ISOPOD      => NULL()\n    ODAER       => NULL()\n#ifdef RRTMG\n    RTODAER     => NULL()\n    RTSSAER     => NULL()\n    RTASYMAER   => NULL()\n#endif\n    BXHEIGHT    => NULL()\n    ERADIUS     => NULL()\n    TAREA       => NULL()\n    WERADIUS    => NULL()\n    WTAREA      => NULL()\n    ACLRADIUS   => NULL()\n    ACLAREA     => NULL()\n\n    ! Reset first-time flag\n    FIRST = .FALSE.\n\n  END SUBROUTINE RDAER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_aerosol\n!\n! !DESCRIPTION: Subroutine INIT\\_AEROSOL initializes module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Aerosol( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_MOD,   ONLY : NAER, NDUST, NRHAER\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                :: N, SpcID\n    CHARACTER(LEN=255)     :: ThisLoc\n    CHARACTER(LEN=512)     :: ErrMsg\n\n    TYPE(Species), POINTER :: SpcInfo\n    \n    !========================================================================\n    ! INIT_AEROSOL begins here!\n    !========================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Init_Aerosol (in module GeosCore/aerosol_mod.F90)'\n\n    !========================================================================\n    ! First-time initialization for various items (skip if dry-run)\n    !========================================================================\n    IF ( .not. Input_Opt%DryRun ) THEN\n\n       ! Add tracer ID flags as module variables (bmy, 6/16/16)\n       id_BCPI       = Ind_( 'BCPI'    )\n       id_BCPO       = Ind_( 'BCPO'    )\n       id_DSTbin1    = Ind_( 'DSTbin1' )\n       id_DSTbin2    = Ind_( 'DSTbin2' )\n       id_DSTbin3    = Ind_( 'DSTbin3' )\n       id_DSTbin4    = Ind_( 'DSTbin4' )\n       id_DSTbin5    = Ind_( 'DSTbin5' )\n       id_DSTbin6    = Ind_( 'DSTbin6' )\n       id_DSTbin7    = Ind_( 'DSTbin7' )\n       id_DUST01     = Ind_( 'DUST01'  )\n       id_NH4        = Ind_( 'NH4'     )\n       id_NIT        = Ind_( 'NIT'     )\n       id_OCPO       = Ind_( 'OCPO'    )\n       id_OCPI       = Ind_( 'OCPI'    )\n       id_SOAS       = Ind_( 'SOAS'    )\n       id_SALA       = Ind_( 'SALA'    )\n       id_SALC       = Ind_( 'SALC'    )\n       id_SALACL     = Ind_( 'SALACL'  )\n       id_SO4        = Ind_( 'SO4'     )\n       id_SO4s       = Ind_( 'SO4s'    )\n       id_HMS        = Ind_( 'HMS'     )\n       id_NITs       = Ind_( 'NITs'    )\n       id_POA1       = Ind_( 'POA1'    )\n       id_POA2       = Ind_( 'POA2'    )\n       id_OPOA1      = Ind_( 'OPOA1'   )\n       id_OPOA2      = Ind_( 'OPOA2'   )\n       id_TSOA1      = Ind_( 'TSOA1'   )\n       id_TSOA2      = Ind_( 'TSOA2'   )\n       id_TSOA3      = Ind_( 'TSOA3'   )\n       id_TSOA0      = Ind_( 'TSOA0'   )\n       id_ASOAN      = Ind_( 'ASOAN'   )\n       id_ASOA1      = Ind_( 'ASOA1'   )\n       id_ASOA2      = Ind_( 'ASOA2'   )\n       id_ASOA3      = Ind_( 'ASOA3'   )\n       id_SOAGX      = Ind_( 'SOAGX'   )\n       id_SOAIE      = Ind_( 'SOAIE'   )\n       id_INDIOL     = Ind_( 'INDIOL'  )\n       id_LVOCOA     = Ind_( 'LVOCOA'  )\n       \n       ! Define logical flags\n       IS_OCPI       = ( id_OCPI     > 0                                    )\n       IS_OCPO       = ( id_OCPO     > 0                                    )\n       IS_BC         = ( id_BCPI     > 0 .and. id_BCPO    > 0               )\n       IS_SO4        = ( id_SO4      > 0                                    )\n       IS_HMS        = ( id_HMS      > 0                                    )\n       IS_NH4        = ( id_NH4      > 0                                    )\n       IS_NIT        = ( id_NIT      > 0                                    )\n       IS_DST        = ( id_DSTbin1  > 0 .and. id_DSTbin2 > 0 .and.          &\n                         id_DSTbin3  > 0 .and. id_DSTbin4 > 0               )\n       IS_SAL        = ( id_SALA     > 0 .and. id_SALC    > 0               )\n       IS_POA        = ( id_POA1     > 0 .and. id_POA2    > 0               )\n       IS_OPOA       = ( id_OPOA1    > 0 .and. id_OPOA2   > 0               )\n       IS_TSOA       = ( id_TSOA1    > 0 .and. id_TSOA2   > 0 .and.          &\n                         id_TSOA3    > 0 .and. id_TSOA0   > 0               )\n       IS_ASOA       = ( id_ASOAN    > 0 .and. id_ASOA1   > 0 .and.          &\n                         id_ASOA2    > 0 .and. id_ASOA3 > 0                 )\n       IS_SOAGX      = ( id_SOAGX    > 0                                    )\n       Is_SimpleSOA  = ( id_SOAS     > 0                                    )\n       Is_ComplexSOA = Input_Opt%LSOA\n\n       !---------------------------------------------------------------------\n       ! Initialize the mapping between hygroscopic species in the\n       ! species database and the species order in NRHAER\n       !---------------------------------------------------------------------\n       DO N = 1, NRHAER\n\n          ! Get the species database index from the species database\n          ! mapping array for hygroscopic growth species\n          SpcID = State_Chm%Map_HygGrth(N)\n\n          ! Point to the Species Database entry for species N\n          SpcInfo => State_Chm%SpcData(SpcID)%Info\n\n          ! Set the mapping to the ordering of aerosol densities in RD_AOD\n          SELECT CASE ( TRIM(SpcInfo%Name) )\n             CASE ( 'SO4' )\n                Map_NRHAER(N) = 1\n             CASE ( 'BCPI' )\n                Map_NRHAER(N) = 2\n             CASE ( 'OCPI', 'POA1' )\n                Map_NRHAER(N) = 3\n             CASE ( 'SALA' )\n                Map_NRHAER(N) = 4\n             CASE ( 'SALC' )\n                Map_NRHAER(N) = 5\n             CASE DEFAULT\n                ErrMsg = 'WARNING: aerosol diagnostics not defined' // &\n                         ' for NRHAER greater than 5!'\n                CALL GC_ERROR( ErrMsg, RC, 'Init_Aerosol in aerosol_mod.F90' )\n                SpcInfo => NULL()\n                RETURN\n          END SELECT\n\n          ! Free pointer\n          SpcInfo => NULL()\n\n       ENDDO\n    ENDIF\n\n    !========================================================================\n    ! The fullchem and aerosol simulations need at least one AOD wavelength\n    ! to be selected.  Return with an error if this is not the case.\n    !========================================================================\n    IF ( Input_Opt%NWVSELECT == 0 ) THEN\n       ErrMsg = 'For fullchem and aerosol-only simulations, you must '    // &\n                'specify the wavelength at which the AOD will be '        // &\n                'calculated.  (For fullchem simulations using RRTMG, '    // &\n                'you may specify up to 3 wavelengths.)  Check the '       // &\n                '\"aod_wavelength_in_nm\" tag (under the '                  // &\n                '\"rrtmg_radiative_transfer_model\" section) in your '      // &\n                '\"geoschem_config.yml\" file.'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Read aerosol optics data\n    !========================================================================\n    CALL RD_AOD( Input_Opt, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"RD_AOD\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Print a message if RD_AOD succeeded (skip if dry-run)\n    IF ( Input_Opt%amIRoot .and. .not. Input_Opt%DryRun ) THEN\n       WRITE( 6, '(a)' ) 'Wavelength optics read successfully'\n    ENDIF\n\n    !========================================================================\n    ! Compute the required wavelengths in the lookup table to\n    ! calculate the requested AOD (skip for dry-run simulations)\n    !========================================================================\n    IF ( .not. Input_Opt%DryRun ) THEN\n       CALL CALC_AOD( Input_Opt, State_Chm, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in routine \"CALC_AOD\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE INIT_AEROSOL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rd_aod\n!\n! !DESCRIPTION: Subroutine RD\\_AOD reads aerosol phase functions that are\n!  used to scale diagnostic output to an arbitrary wavelengh.  This\n!  facilitates comparing with satellite observations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RD_AOD( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE InquireMod,    ONLY : FindFreeLUN\n    USE State_Chm_Mod, ONLY : ChmState\n#if defined( MODEL_CESM )\n    USE UNITS,         ONLY : freeUnit\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  The .dat files for each species contain the optical properties\n!  at multiple wavelengths to be used in the online calculation of the aerosol\n!  optical depth diagnostics.\n!  These properties have been calculated using the same size and optical\n!  properties as the FJX_spec.dat file used for the FAST-J photolysis\n!  calculations (which is now redundant for aerosols, the values in the .dat\n!  files here are now used). The file currently contains 11 wavelengths\n!  for Fast-J and other commonly used wavelengths for satellite and\n!  AERONET retrievals. 30 wavelengths follow that map onto RRTMG\n!  wavebands for radiaitive flux calculations (not used if RRTMG is off).\n!  A complete set of optical properties from 250-2000 nm for aerosols is\n!  available at:\n!  ftp://ftp.as.harvard.edu/geos-chem/data/aerosol_optics/hi_spectral_res\n!                                                                             .\n!     -- Colette L. Heald, 05/10/10)\n!     -- David A. Ridley, 05/10/13 (update for new optics files)\n!\n! !REVISION HISTORY:\n!  10 May 2010 - C. Heald      - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    ! Scalars\n    INTEGER            :: I, J, K, N, g\n    INTEGER            :: IOS, NJ1\n    LOGICAL            :: LBRC, FileExists\n\n    ! Strings\n    CHARACTER(LEN=78 ) :: TITLE0\n    CHARACTER(LEN=255) :: DATA_DIR\n    CHARACTER(LEN=255) :: THISFILE\n    CHARACTER(LEN=255) :: FileMsg\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    ! String arrays\n    CHARACTER(LEN=30)  :: SPECFIL(8)\n\n    ! Pointers\n    REAL*8, POINTER :: WVAA  (:,:)\n    REAL*8, POINTER :: RHAA  (:,:)\n    REAL*8, POINTER :: RDAA  (:,:,:)\n    REAL*8, POINTER :: RWAA  (:,:,:)\n    REAL*8, POINTER :: SGAA  (:,:)\n    REAL*8, POINTER :: REAA  (:,:,:)\n    REAL*8, POINTER :: NCMAA (:,:,:)\n    REAL*8, POINTER :: NRLAA (:,:,:)\n    REAL*8, POINTER :: QQAA  (:,:,:,:)\n    REAL*8, POINTER :: ALPHAA(:,:,:,:)\n    REAL*8, POINTER :: SSAA  (:,:,:,:)\n    REAL*8, POINTER :: ASYMAA(:,:,:,:)\n    REAL*8, POINTER :: PHAA  (:,:,:,:,:)\n\n    !================================================================\n    ! RD_AOD begins here!\n    !================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at RD_AOD (in module GeosCore/photolysis_mod.F90)'\n    LBRC     = Input_Opt%LBRC\n    DATA_DIR = TRIM( Input_Opt%AER_OPTICS_DIR )\n\n    ! Set Pointers\n    WVAA   => State_Chm%Phot%WVAA\n    RHAA   => State_Chm%Phot%RHAA\n    RDAA   => State_Chm%Phot%RDAA\n    RWAA   => State_Chm%Phot%RWAA\n    SGAA   => State_Chm%Phot%SGAA\n    REAA   => State_Chm%Phot%REAA\n    NRLAA  => State_Chm%Phot%NRLAA\n    NCMAA  => State_Chm%Phot%NCMAA\n    QQAA   => State_Chm%Phot%QQAA\n    ALPHAA => State_Chm%Phot%ALPHAA\n    SSAA   => State_Chm%Phot%SSAA\n    ASYMAA => State_Chm%Phot%ASYMAA\n    PHAA   => State_Chm%Phot%PHAA\n\n    ! Get a free LUN\n    NJ1 = findFreeLUN()\n\n    ! IMPORTANT: aerosol_mod.F and dust_mod.F expect aerosols in this order\n    !\n    ! Treating strat sulfate with GADS data but modified to match\n    ! the old Fast-J values size (r=0.09um, sg=0.6) - I think there's\n    ! evidence that this is too smale and narrow e.g. Deshler et al. 2003\n    ! NAT should really be associated with something like cirrus cloud\n    ! but for now we are just treating the NAT like the sulfate... limited\n    ! info but ref index is similar e.g. Scarchilli et al. (2005)\n    !(DAR 05/2015)\n    SPECFIL = (/ \"so4.dat  \", \"soot.dat \", \"org.dat  \", \"ssa.dat  \",         &\n                 \"ssc.dat  \", \"h2so4.dat\", \"h2so4.dat\", \"dust.dat \"        /)\n\n    ! Loop over the array of filenames\n    DO k = 1, State_Chm%Phot%NSPAA\n\n       ! Choose different set of input files for standard (trop+strat chenm)\n       ! and tropchem (trop-only chem) simulations\n       THISFILE = TRIM( DATA_DIR ) // '/' // TRIM( SPECFIL(k) )\n\n       !--------------------------------------------------------------\n       ! In dry-run mode, print file path to dryrun log and cycle.\n       ! Otherwise, print file path to stdout and continue.\n       !--------------------------------------------------------------\n\n       ! Test if the file exists\n       INQUIRE( FILE=TRIM( ThisFile ), EXIST=FileExists )\n\n       ! Test if the file exists and define an output string\n       IF ( FileExists ) THEN\n          FileMsg = 'PHOTOLYSIS (RD_AOD): Opening'\n       ELSE\n          FileMsg = 'PHOTOLYSIS (RD_AOD): REQUIRED FILE NOT FOUND'\n       ENDIF\n\n       ! Write to stdout for both regular and dry-run simulations\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( ThisFile )\n300       FORMAT( a, ' ', a )\n       ENDIF\n\n       ! For dry-run simulations, skip ahead to next file.\n       IF ( Input_Opt%DryRun ) CYCLE\n\n       !--------------------------------------------------------------\n       ! If not a dry-run, read data from each species file\n       !--------------------------------------------------------------\n\n       ! Throw an error if we can't find the file\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( ThisFile )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Open file\n       OPEN( NJ1, FILE=TRIM( THISFILE ), STATUS='OLD', IOSTAT=RC )\n\n       ! Error check\n       IF ( RC /= 0 ) THEN\n          ErrMsg = 'Error opening file: ' // TRIM( ThisFile )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Read header lines\n       READ(  NJ1, '(A)' ) TITLE0\n       IF ( Input_Opt%amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0\n\n       ! Second header line added for more info\n       READ(  NJ1, '(A)' ) TITLE0\n       IF ( Input_Opt%amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0\n\n       READ(  NJ1, '(A)' ) TITLE0\n110    FORMAT( 3x, a20 )\n\n       IF (k == 1 .OR. k == 3) THEN\n       ! for SO4 and ORGANICS, dry aerosol size varies, therefore all\n       ! opt properties vary.\n       DO g = 1, State_Chm%Phot%NDRg\n       DO i = 1, State_Chm%Phot%NRAA\n       DO j = 1, State_Chm%Phot%NWVAA\n\n          READ(NJ1,*) WVAA(j,k),RHAA(i,k),NRLAA(j,i,k),NCMAA(j,i,k), &\n                      RDAA(i,k,g),RWAA(i,k,g),SGAA(i,k),QQAA(j,i,k,g),   &\n                      ALPHAA(j,i,k,g),REAA(i,k,g),SSAA(j,i,k,g),         &\n                      ASYMAA(j,i,k,g),(PHAA(j,i,k,n,g),n=1,8)\n\n          ! make note of where 1000nm is for FAST-J calcs\n          IF (WVAA(j,k).EQ.1000.0) State_Chm%Phot%IWV1000=J\n\n       ENDDO\n       ENDDO\n       ENDDO\n\n       ELSE\n       ! For other species, keep g = default Rg (DRg)\n       g = State_Chm%Phot%DRg\n       DO i = 1, State_Chm%Phot%NRAA\n       DO j = 1, State_Chm%Phot%NWVAA\n\n          READ(NJ1,*) WVAA(j,k),RHAA(i,k),NRLAA(j,i,k),NCMAA(j,i,k), &\n                      RDAA(i,k,g),RWAA(i,k,g),SGAA(i,k),QQAA(j,i,k,g),   &\n                      ALPHAA(j,i,k,g),REAA(i,k,g),SSAA(j,i,k,g),         &\n                      ASYMAA(j,i,k,g),(PHAA(j,i,k,n,g),n=1,8)\n\n          ! make note of where 1000nm is for FAST-J calcs\n          IF (WVAA(j,k).EQ.1000.0) State_Chm%Phot%IWV1000=J\n\n       ENDDO\n       ENDDO\n\n       ENDIF\n\n       ! Close file\n       CLOSE( NJ1 )\n\n    ENDDO\n\n#if defined( MODEL_CESM )\n   CALL freeUnit(NJ1)\n#endif\n\n    ! Free pointers\n    WVAA   => NULL()\n    RHAA   => NULL()\n    RDAA   => NULL()\n    RWAA   => NULL()\n    SGAA   => NULL()\n    REAA   => NULL()\n    NCMAA  => NULL()\n    NRLAA  => NULL()\n    QQAA   => NULL()\n    ALPHAA => NULL()\n    SSAA   => NULL()\n    ASYMAA => NULL()\n    PHAA   => NULL()\n\n  END SUBROUTINE RD_AOD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_aod\n!\n! !DESCRIPTION: Subroutine CALC\\_AOD works out the closest tie points\n! in the optics LUT wavelengths and the coefficients required to\n! calculate the angstrom exponent for interpolating optics to the requested\n! wavelength. If the wavelength requested matches a standard wavelength\n! in the LUT then we skip the interpolation (DAR 09/2013)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_AOD( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n#ifdef RRTMG\n    USE PARRRTM,       ONLY : NBNDLW\n#endif\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: RC\n!\n! !REMARKS:\n!  Now the user is able to select any 3 wavelengths for optics\n!  output in the geoschem_config.yml file we need to be able to interpolate\n!  to those wavelengths based on what is available in the optics\n!  look-up table.\n!                                                                             .\n!  The standard lookup table currently has values for\n!  11 common wavelengths followed by 30 that are required by RRTMG.\n!  Only those required to interpolate to user requested\n!  wavelengths are selected from the standard wavelengths. RRTMG\n!  wavelengths are not used in the interpolation for AOD output\n!  (DAR 10/2013)\n!                                                                             .\n!   UPDATE: because the RT optics output doesnt have access to the\n!   standard wavelengths we now calculate two sets of values: one\n!   for the ND21 and diag3 outputs that use the standard wavelengths\n!   and one for RRTMG diagnostics that interpolate the optics from RRTMG\n!   wavelengths. Perhaps a switch needs adding to switch off the RT\n!   optics output (and interpolation) if this ends up costing too\n!   much and is not used, but it is ideal to have an optics output\n!   that matches exactly what RRTMG uses to calculate the fluxes\n!\n! !REVISION HISTORY:\n!  18 Jun 2013 - D. Ridley   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER             :: MINWV, MAXWV, N, N0, N1, W, NSTEP\n    INTEGER             :: NWVAA, NWVAA0, NWVREQUIRED, NRTWVREQUIRED\n    REAL(fp)            :: WVDIF\n\n    ! Pointers\n    INTEGER, POINTER :: IWVREQUIRED  (:)\n    INTEGER, POINTER :: IRTWVREQUIRED(:)\n    INTEGER, POINTER :: IWVSELECT    (:,:)\n    INTEGER, POINTER :: IRTWVSELECT  (:,:)\n    REAL*8,  POINTER :: ACOEF_WV     (:)\n    REAL*8,  POINTER :: BCOEF_WV     (:)\n    REAL*8,  POINTER :: CCOEF_WV     (:)\n    REAL*8,  POINTER :: ACOEF_RTWV   (:)\n    REAL*8,  POINTER :: BCOEF_RTWV   (:)\n    REAL*8,  POINTER :: CCOEF_RTWV   (:)\n    REAL*8,  POINTER :: WVAA         (:,:)\n\n    !================================================================\n    ! CALC_AOD begins here!\n    !================================================================\n\n    ! Constants State_Chm%Phot\n    NWVAA         = State_Chm%Phot%NWVAA\n    NWVAA0        = State_Chm%Phot%NWVAA0\n\n    ! Scalars in State_Chm%Phot that will be set in this subroutine\n    NWVREQUIRED   = State_Chm%Phot%NWVREQUIRED\n    NRTWVREQUIRED = State_Chm%Phot%NRTWVREQUIRED\n\n    ! Set pointers\n    IWVREQUIRED   => State_Chm%Phot%IWVREQUIRED\n    IRTWVREQUIRED => State_Chm%Phot%IRTWVREQUIRED\n    IWVSELECT     => State_Chm%Phot%IWVSELECT\n    IRTWVSELECT   => State_Chm%Phot%IRTWVSELECT\n    ACOEF_WV      => State_Chm%Phot%ACOEF_WV\n    BCOEF_WV      => State_Chm%Phot%BCOEF_WV\n    CCOEF_WV      => State_Chm%Phot%CCOEF_WV\n    ACOEF_RTWV    => State_Chm%Phot%ACOEF_RTWV\n    BCOEF_RTWV    => State_Chm%Phot%BCOEF_RTWV\n    CCOEF_RTWV    => State_Chm%Phot%CCOEF_RTWV\n    WVAA          => State_Chm%Phot%WVAA\n\n    !cycle over standard wavelengths\n    N0=1\n    N1=NWVAA0\n    NSTEP=1\n    NWVREQUIRED=0\n    DO W=1,Input_Opt%NWVSELECT\n       MINWV     = -999\n       MAXWV     =  999\n       DO N=N0,N1,NSTEP ! 1 to 11\n          WVDIF = WVAA(N,1)-Input_Opt%WVSELECT(W)\n          IF ((WVDIF.LE.0).AND.(WVDIF.GT.MINWV)) THEN\n             MINWV = WVDIF\n             IWVSELECT(1,W)=N\n          ENDIF\n          IF ((WVDIF.GE.0).AND.(WVDIF.LT.MAXWV)) THEN\n             MAXWV = WVDIF\n             IWVSELECT(2,W)=N\n          ENDIF\n       ENDDO\n       IF (IWVSELECT(2,W).EQ.IWVSELECT(1,W)) THEN\n          !we have a match!\n          MINWV=0\n          MAXWV=0\n          !add this wavelength to those for output\n          NWVREQUIRED=NWVREQUIRED+1\n          IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W)\n       ELSE\n          !we are going to have to interpolate to the requested wavelength\n          NWVREQUIRED=NWVREQUIRED+1\n          IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W)\n          NWVREQUIRED=NWVREQUIRED+1\n          IWVREQUIRED(NWVREQUIRED)=IWVSELECT(2,W)\n       ENDIF\n\n       !Error check - ensure we have a match or requested wavelength\n       !falls within two LUT tie points\n       IF (MINWV.EQ.-999) THEN\n          ! requested wavelength is shorter than min wv in LUT\n          ! set to min\n          write(6,*) 'ERROR requested wavelength is too short!!'\n          write(6,*) 'Defaulting to LUT min: ',WVAA(1,1)\n          IWVSELECT(1,W)=1\n          IWVSELECT(2,W)=1 !300nm\n          NWVREQUIRED=NWVREQUIRED-1\n          IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W)\n       ENDIF\n       IF (MAXWV.EQ.999) THEN\n          ! requested wavelength is longer than min wv in LUT\n          ! set to max\n          write(6,*) 'ERROR requested wavelength is too long!!'\n          write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA0,1)\n          IWVSELECT(1,W)=NWVAA0\n          IWVSELECT(2,W)=NWVAA0 !1020nm\n          NWVREQUIRED=NWVREQUIRED-1\n          IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W)\n       ENDIF\n\n       !now calcualte the angstrom exponent coefs for interpolation -\n       !this is done here to save time and repetition in aerosol_mod.F\n       IF (IWVSELECT(1,W).NE.IWVSELECT(2,W)) THEN\n          ACOEF_WV(W) = WVAA(IWVSELECT(2,W),1)/Input_Opt%WVSELECT(W)\n          BCOEF_WV(W) =1.0d0/(LOG(WVAA(IWVSELECT(2,W),1)/ &\n                                  WVAA(IWVSELECT(1,W),1)))\n          !relative location of selected wavelength between tie points\n          !for interpolating SSA and ASYM for output in aerosol_mod.F and\n          !dust_mod.F\n          CCOEF_WV(W) =(Input_Opt%WVSELECT(W)-WVAA(IWVSELECT(1,W),1))/ &\n                      (WVAA(IWVSELECT(2,W),1)-WVAA(IWVSELECT(1,W),1))\n       ENDIF\n       IF ( Input_Opt%amIRoot ) THEN\n          write(6,*) 'N WAVELENGTHS: ',Input_Opt%NWVSELECT\n          write(6,*) 'WAVELENGTH REQUESTED:',Input_Opt%WVSELECT(W)\n          write(6,*) 'WAVELENGTH REQUIRED:', NWVREQUIRED\n          !write(6,*) IWVSELECT(1,W),WVAA(IWVSELECT(1,W),1)\n          !write(6,*) IWVSELECT(2,W),WVAA(IWVSELECT(2,W),1)\n          !write(6,*) ACOEF_WV(W),BCOEF_WV(W),CCOEF_WV(W)\n          write(6,*) '*********************************'\n       ENDIF\n    ENDDO !Input_Opt%NWVSELECT\n#ifdef RRTMG\n    !repeat for RRTMG wavelengths to get the closest wavelength\n    !indices and the interpolation coefficients\n    !Indices are relative to all wavelengths in the LUT i.e. the RRTMG\n    !wavelengths start at NWVAA0+1\n    N0=NWVAA0+1\n    N1=NWVAA\n    NSTEP=1\n    NRTWVREQUIRED=0\n    DO W=1,Input_Opt%NWVSELECT\n       MINWV     = -999\n       MAXWV     =  999\n       DO N=N0,N1,NSTEP\n          WVDIF = WVAA(N,1)-Input_Opt%WVSELECT(W)\n          IF ((WVDIF.LE.0).AND.(WVDIF.GT.MINWV)) THEN\n             MINWV = WVDIF\n             IRTWVSELECT(1,W)=N\n          ENDIF\n          IF ((WVDIF.GE.0).AND.(WVDIF.LT.MAXWV)) THEN\n             MAXWV = WVDIF\n             IRTWVSELECT(2,W)=N\n          ENDIF\n       ENDDO\n       IF (IRTWVSELECT(2,W).EQ.IRTWVSELECT(1,W)) THEN\n          !we have a match!\n          MINWV=0\n          MAXWV=0\n          !add this wavelength to those for output\n          NRTWVREQUIRED=NRTWVREQUIRED+1\n          IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W)\n       ELSE\n          !we are going to have to interpolate to the requested\n          !wavelength\n          NRTWVREQUIRED=NRTWVREQUIRED+1\n          IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W)\n          NRTWVREQUIRED=NRTWVREQUIRED+1\n          IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(2,W)\n       ENDIF\n\n       !Error check - ensure we have a match or requested wavelength\n       !falls within two LUT tie points\n       IF (MINWV.EQ.-999) THEN\n          ! requested wavelength is shorter than min wv in LUT\n          ! set to min\n          write(6,*) 'ERROR requested wavelength is too short!!'\n          write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA-1,1)\n          IRTWVSELECT(1,W)=NWVAA-1\n          IRTWVSELECT(2,W)=NWVAA-1\n          NRTWVREQUIRED=NRTWVREQUIRED-1\n          IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W)\n       ENDIF\n       IF (MAXWV.EQ.999) THEN\n          ! requested wavelength is longer than min wv in LUT\n          ! set to max\n          write(6,*) 'ERROR requested wavelength is too long!!'\n          write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA0+1,1)\n          IRTWVSELECT(1,W)=NWVAA0+1\n          IRTWVSELECT(2,W)=NWVAA0+1\n          NRTWVREQUIRED=NRTWVREQUIRED-1\n          IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W)\n       ENDIF\n\n       !now calcualte the angstrom exponent coefs for interpolation -\n       !this is done here to save time and repetition in aerosol_mod.F\n       IF (IRTWVSELECT(1,W).NE.IRTWVSELECT(2,W)) THEN\n          ACOEF_RTWV(W) = WVAA(IRTWVSELECT(2,W),1)/Input_Opt%WVSELECT(W)\n          BCOEF_RTWV(W) =1.0d0/(LOG(WVAA(IRTWVSELECT(2,W),1)/ &\n                                    WVAA(IRTWVSELECT(1,W),1)))\n          !relative location of selected wavelength between tie points\n          !for interpolating SSA and ASYM for output in aerosol_mod.F and\n          !dust_mod.F\n          CCOEF_RTWV(W) =(Input_Opt%WVSELECT(W)-WVAA(IRTWVSELECT(1,W),1))/ &\n                      (WVAA(IRTWVSELECT(2,W),1)-WVAA(IRTWVSELECT(1,W),1))\n       ENDIF\n       !convert wavelength index to that required by rrtmg_rad_transfer\n       !i.e. without the standard and LW wavelengths\n       IRTWVSELECT(1,W) = IRTWVSELECT(1,W) - NWVAA0 - NBNDLW\n       IRTWVSELECT(2,W) = IRTWVSELECT(2,W) - NWVAA0 - NBNDLW\n       IF ( Input_Opt%amIRoot ) THEN\n          write(6,*) 'N RT WAVELENGTHS: ',Input_Opt%NWVSELECT\n          write(6,*) 'RT WAVELENGTH REQUESTED:',Input_Opt%WVSELECT(W)\n          write(6,*) 'RT WAVELENGTH REQUIRED:', NRTWVREQUIRED\n          write(6,*) IRTWVSELECT(1,W),WVAA(IRTWVSELECT(1,W)+NWVAA0+NBNDLW,1)\n          write(6,*) IRTWVSELECT(2,W),WVAA(IRTWVSELECT(2,W)+NWVAA0+NBNDLW,1)\n          write(6,*) ACOEF_WV(W),BCOEF_WV(W),CCOEF_WV(W)\n          write(6,*) '*********************************'\n       ENDIF\n    ENDDO !Input_Opt%NWVSELECT\n#endif\n\n    ! Copy values back into State_Chm\n    State_Chm%Phot%NWVREQUIRED   = NWVREQUIRED\n    State_Chm%Phot%NRTWVREQUIRED = NRTWVREQUIRED\n\n    ! Free pointers\n    IWVREQUIRED   => NULL()\n    IRTWVREQUIRED => NULL()\n    IWVSELECT     => NULL()\n    IRTWVSELECT   => NULL()\n    ACOEF_WV      => NULL()\n    BCOEF_WV      => NULL()\n    CCOEF_WV      => NULL()\n    ACOEF_RTWV    => NULL()\n    BCOEF_RTWV    => NULL()\n    CCOEF_RTWV    => NULL()\n    WVAA          => NULL()\n\n  END SUBROUTINE CALC_AOD\n!EOC\nEND MODULE AEROSOL_MOD\n"
  },
  {
    "path": "GeosCore/aerosol_thermodynamics_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: aerosol_thermodynamics_mod.F90\n!\n! !DESCRIPTION: Module AEROSOL\\_THERMODYNAMICS\\_MOD contains the routines that provide\n!  the interface between HETP (formerly ISORROPIA II) and GEOS-Chem.\n!\\\\\n!\\\\\n!  The actual HETP code which performs Na-SO4-NH3-NO3-Cl-(Ca-K-Mg) aerosol\n!  thermodynamic equilibrium is in \\textt{hetp_mod.F90}, which is located\n!  in the HETerogeneous-vectorized-or-Parallel code repository alongside GEOS-Chem.\n!  See https://github.com/geoschem/HETerogeneous-vectorized-or-Parallel.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE AEROSOL_THERMODYNAMICS_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CLEANUP_ATE\n  PUBLIC  :: DO_ATE\n  PUBLIC  :: GET_GNO3\n#if defined( MODEL_CESM )\n  PUBLIC  :: INIT_ATE\n#else\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: INIT_ATE\n#endif\n  PRIVATE :: SAFELOG10\n  PRIVATE :: SET_HNO3\n!\n! !REMARKS:\n!  Original Author:\n!  *** COPYRIGHT 1996-2006, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY,\n!  *** GEORGIA INSTITUTE OF TECHNOLOGY\n!  *** WRITTEN BY ATHANASIOS NENES\n!  *** UPDATED BY CHRISTOS FOUNTOUKIS\n!                                                                             .\n!  Original v1.3 isorropia implementation into GEOS-Chem by\n!  Becky Alexander and Bob Yantosca (bec, bmy, 4/12/05, 11/2/05)\n!                                                                             .\n!  For Ca,K,Mg = 0, ISORROPIA II performs exactly like ISORROPIAv1.7\n!  Ca, K, Mg, Na from dust is not currently considered\n!                                                                             .\n!  ISORROPIA II implementation notes by Havala O.T. Pye:\n!  (1) The original isorropia code from T.Nenes is left as unmodified as\n!       possible. Original isorropia code can be found in isorropiaIIcode.f\n!       and common blocks can be found in isrpia.inc. For future upgrades\n!       to isorropia, replace isrpia.inc and isorropiaIIcode.f with the new\n!       version of isorropia and modify the call to ISORROPIA in this module.\n!       Please let the original author know of any changes made to ISORROPIA.\n!  (2) As of Nov 2007, routines using non-zero Ca, K, and Mg do not always\n!       conserve mass. Ca, K, and Mg are set to zero.\n!                                                                             .\n!  HETP is an adaptation of ISORROPIA II for modern Fortran. It replaces\n!  ISORROPIA II starting in April 2024. (Miller et al.)\n!\n!  NOTE: ISORROPIA is Greek for \"equilibrium\", in case you were wondering.\n!\n! !REVISION HISTORY:\n!  06 Jul 2007 - H. O. T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  ! Array for offline HNO3 (for relaxation of M.M.)\n  REAL(fp), ALLOCATABLE :: HNO3_sav(:,:,:)\n\n  ! Array for offline use in sulfate_mod (SEASALT_CHEM)\n  REAL(fp), ALLOCATABLE :: GAS_HNO3(:,:,:)\n\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!%%% Add a C-preprocessor switch to skip calling HETP if the pressure\n!%%% and/or temperature lie outside of the range that will produce a stable\n!%%% solution.  This will eliminate the random noise observed in the\n!%%% HETP output.\n!%%%\n!%%% Leaving this feature deactivated will replicate the prior behavior in\n!%%% v11-01 and earlier GEOS-Chem versions.  This will become the default\n!%%% setting in a future version, but give the user the choice to activate\n!%%% or deactivate this for now.\n!%%%\n!%%%  -- Seb Eastham and Bob Yantosca (1/25/17)\n!%%%\n!#define SKIP_IF_P_AND_T_ARE_OUT_OF_RANGE 1\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_ate\n!\n! !DESCRIPTION: Subroutine DO\\_ATE is the interface between the GEOS-Chem\n!  model and the aerosol thermodynamical equilibrium routines in HETP.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_ATE( Input_Opt,  State_Chm, State_Diag, &\n                     State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,         ONLY : NDUST\n    USE ErrCode_Mod\n    USE ERROR_MOD,            ONLY : DEBUG_MSG\n    USE ERROR_MOD,            ONLY : ERROR_STOP\n    USE ERROR_MOD,            ONLY : SAFE_DIV\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE PhysConstants,        ONLY : AIRMW, PI\n    USE PhysConstants,        ONLY : PI\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE TIME_MOD,             ONLY : GET_MONTH\n    USE TIME_MOD,             ONLY : ITS_A_NEW_MONTH\n    USE TIME_MOD,             ONLY : GET_ELAPSED_SEC\n    USE HETP_mod,             ONLY : mach_hetp_main_15cases\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Original isorropia v1.3 implmentation: (rjp, bec, bmy, 12/17/01, 8/22/05)\n!  HETPv1.0 replaces ISORROPIA II starting in GEOS-Chem 14.4.0\n!\n! !REVISION HISTORY:\n!  24 Aug 2007 - H. O. T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Array dimensions\n    INTEGER, PARAMETER       :: NOTHERA  =  9\n    INTEGER, PARAMETER       :: NCTRLA   =  2\n    INTEGER, PARAMETER       :: NCOMPA   =  8\n    INTEGER, PARAMETER       :: NIONSA   = 10\n    INTEGER, PARAMETER       :: NGASAQA  =  3\n    INTEGER, PARAMETER       :: NSLDSA   = 19\n\n    ! Concentration lower limit [mole/m3]\n    REAL(fp),  PARAMETER       :: CONMIN = 1.0e-30_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE            :: FIRST = .TRUE.\n    LOGICAL, SAVE            :: IS_HMS = .FALSE.\n    INTEGER, SAVE            :: id_HNO3, id_NH3,  id_NH4\n    INTEGER, SAVE            :: id_NIT,  id_SALA, id_SO4\n    INTEGER, SAVE            :: id_HMS ! jmm 12/5/18\n    INTEGER, SAVE            :: id_SALACL, id_HCL, id_SALCCL\n    INTEGER, SAVE            :: id_SO4s, id_NITs, id_SALC\n    INTEGER, SAVE            :: id_SALAAL, id_SALCAL\n\n    ! Scalars\n    INTEGER                  :: I,    J,    L,    N,  NM\n    REAL(fp)                 :: ANO3, GNO3, ACL, GCL\n    REAL(f8)                 :: RHI,  TEMPI, P_Pa\n    REAL(fp)                 :: TCA,  TMG,  TK,   HNO3_DEN\n    REAL(fp)                 :: TNA,  TCL,  TNH3, TNH4\n    REAL(fp)                 :: TNIT, TNO3, TSO4, VOL\n    REAL(fp)                 :: HNO3_UGM3\n    REAL(f8)                 :: AERLIQ(NIONSA+NGASAQA+2)\n    REAL(f8)                 :: GAS(NGASAQA)\n    REAL(f8)                 :: OTHER(NOTHERA)\n    REAL(f8)                 :: WI(NCOMPA)\n    REAL(f8)                 :: WT(NCOMPA)\n    REAL(f8)                 :: AlkR !Alkalinity % depleted\n    REAL(f8)                 :: Qk, PHCl, F_HCl, F_HNO3\n    REAL(f8)                 :: Hplus !H+ in SALC,mol/m3\n    REAL(f8)                 :: Dcs !SALC diameter, m\n    REAL(f8)                 :: n_air !air density, molec/cm3\n    REAL(f8)                 :: n_ssc !SALC number concentration, molec/m3\n    REAL(f8)                 :: HETP_SO4,   HETP_HSO4, HETP_CaSO4, HETP_NH4  \n    REAL(f8)                 :: HETP_NH3,   HETP_NO3,  HETP_HNO3,  HETP_Cl\n    REAL(f8)                 :: HETP_HCl,   HETP_Na,   HETP_Ca,    HETP_K\n    REAL(f8)                 :: HETP_Mg,    HETP_H,    HETP_OH,    HETP_LWC\n    REAL(f8)                 :: HETP_frNa,  HETP_frCa, HETP_frK,   HETP_frMg\n    REAL(f8)                 :: HETP_frSO4, HETP_num\n\n    ! Strings\n    CHARACTER(LEN=15)        :: SCASI\n    CHARACTER(LEN=255)       :: ErrMsg\n    CHARACTER(LEN=255)       :: ThisLoc\n    CHARACTER(LEN=255)       :: X\n    !Temporary variables to check if division is safe\n    REAL(fp)                 :: NUM_SAV, DEN_SAV\n\n    ! AEROPH: Temporary variable for pH (hotp 8/11/09)\n    REAL(fp)                 :: HPLUSTEMP\n    ! Temporary variable for SO4--\n    REAL(fp)                 :: SULFTEMP\n    ! Temporary variable for HSO4-\n    REAL(fp)                 :: BISULTEMP\n    ! Temporary variable for NO3-\n    REAL(fp)                 :: NITRTEMP\n    ! Temporary variable for Cl-\n    REAL(fp)                 :: CLTEMP\n\n    ! debug variables\n    INTEGER                  :: Itemp, Jtemp, Ltemp\n    LOGICAL, SAVE            :: FIRSTCHECK = .TRUE.\n\n    LOGICAL                  :: IT_IS_AN_AEROSOL_SIM\n    LOGICAL                  :: IT_IS_A_FULLCHEM_SIM\n    LOGICAL, SAVE            :: USE_HNO3_FROM_HEMCO = .FALSE.\n    LOGICAL, SAVE            :: USE_HCl_FROM_HEMCO  = .FALSE.\n\n    ! Pointers\n    TYPE(SpcConc), POINTER   :: Spc(:)\n\n    ! Are we out of the range of valid inputs?\n    Logical                  :: OutOfBounds\n\n    ! Local array for HNO3, HCl from HEMCO\n    REAL(fp) :: OFFLINE_HNO3(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp) :: OFFLINE_HCl (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    !=================================================================\n    ! DO_ATE begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at DO_ATE (in module GeosCore/aerosol_thermodynamics_mod.F90)'\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    IT_IS_AN_AEROSOL_SIM = Input_Opt%ITS_AN_AEROSOL_SIM\n    IT_IS_A_FULLCHEM_SIM = Input_Opt%ITS_A_FULLCHEM_SIM\n\n    ! Zero State_Chm arrays to avoid leftover values from hanging\n    ! around between calls -- especially up near the tropopause\n    State_Chm%IsorropAeropH    = 0.0_fp\n    State_Chm%IsorropHplus     = 0.0_fp\n    State_Chm%IsorropAeroH2O   = 0.0_fp\n    State_Chm%IsorropSulfate   = 0.0_fp\n    State_Chm%IsorropNitrate   = 0.0_fp\n    State_Chm%IsorropBisulfate = 0.0_fp\n    State_Chm%IsorropChloride  = 0.0_fp\n\n    ! First-time initialization\n    IF ( FIRST ) THEN\n\n       ! Make sure certain tracers are defined\n       id_HNO3   = Ind_('HNO3'  )\n       id_NH3    = Ind_('NH3'   )\n       id_NH4    = Ind_('NH4'   )\n       id_NIT    = Ind_('NIT'   )\n       id_SALA   = Ind_('SALA'  )\n       id_SO4    = Ind_('SO4'   )\n       id_HMS    = Ind_('HMS'   )\n       id_SALACL = Ind_('SALACL')\n       id_HCL    = Ind_('HCl'   )\n       id_SALC   = Ind_('SALC'  )\n       id_SALCCL = Ind_('SALCCL')\n       !id_NH4s  = Ind_('NH4s'  )\n       id_NITs   = Ind_('NITs'  )\n       id_SO4s   = Ind_('SO4s'  )\n       id_SALAAL = Ind_('SALAAL')\n       id_SALCAL = Ind_('SALCAL')\n\n       ! Set a flag if HMS is defined\n       IS_HMS    = ( id_HMS > 0 )\n\n       ! Make sure certain tracers are defined\n       IF ( id_SO4 <= 0 ) THEN\n          ErrMsg = 'SO4 is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_HMS <= 0 .and. Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n          ErrMsg = 'HMS is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_NH3 <= 0 ) THEN\n          ErrMsg = 'NH3 is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_NH4 <= 0 ) THEN\n          ErrMsg = 'NH4 is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_NIT <= 0 ) THEN\n          ErrMsg = 'NIT is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SALA <= 0 ) THEN\n          ErrMsg = 'SALA is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SALACL <= 0 ) THEN\n          ErrMsg = 'SALACL is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SALC <= 0 ) THEN\n          ErrMsg = 'SALC is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SALCCL <= 0 ) THEN\n          ErrMsg = 'SALCCL is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       !IF ( id_NH4s <= 0 ) THEN\n       !   ErrMsg = 'NH4s is an undefined species!'\n       !   CALL GC_Error( ErrMsg, RC, ThisLoc )\n       !   RETURN\n       !ENDIF\n       IF ( id_NITs <= 0 ) THEN\n          ErrMsg = 'NITs is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SO4s <= 0 ) THEN\n          ErrMsg = 'SO4s is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SALAAL <= 0 ) THEN\n          ErrMsg = 'SALACL is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( id_SALCAL <= 0 ) THEN\n          ErrMsg = 'SALCAL is an undefined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n#if !defined( MODEL_CESM )\n       ! Initialize arrays\n       CALL INIT_ATE( State_Grid )\n#endif\n\n       ! Check to see if we need to get HNO3 from HEMCO\n       IF ( id_HNO3 <= 0 ) THEN\n\n          IF ( IT_IS_A_FULLCHEM_SIM ) THEN\n\n             ! Coupled simulation: stop w/ error since we need HNO3\n             ErrMsg = 'HNO3 is an undefined species!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n\n          ELSE IF ( IT_IS_AN_AEROSOL_SIM ) THEN\n\n             ! Offline simulation: get HNO3 from HEMCO (mps, 9/23/14)\n             USE_HNO3_FROM_HEMCO = .TRUE.\n\n          ELSE\n\n             ! HETP is only valid for full-chem or aerosol-only sims\n             ErrMsg = 'Invalid simulation type!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n\n          ENDIF\n       ENDIF\n\n       ! Check to see if we need to get HCl from HEMCO\n       IF ( id_HCL <= 0 ) THEN\n\n          IF ( IT_IS_A_FULLCHEM_SIM ) THEN\n\n             ! Coupled simulation: stop w/ error since we need HCl\n             ErrMsg = 'HCl is an undefined species!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n\n          ELSE IF ( IT_IS_AN_AEROSOL_SIM ) THEN\n\n             ! Offline simulation: get HCl from HEMCO (mps, 6/11/2020)\n             USE_HCl_FROM_HEMCO = .TRUE.\n\n          ELSE\n\n             ! HETP is only valid for full-chem or aerosol-only sims\n             ErrMsg = 'Invalid simulation type!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n\n          ENDIF\n       ENDIF\n\n       ! Print out only when debug output is on (bmy, 05 Dec 2022)\n       IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n          WRITE( 6, 100 ) REPEAT( '=', 79 )\n          WRITE( 6, 110 )\n          WRITE( 6, 100 ) REPEAT( '=', 79 )\n       ENDIF\n\n100    FORMAT( a                                            )\n110    FORMAT( 'Successfully initialized aerosol thermo.  ' )\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    ! Initialize for each timestep (bec, bmy, 4/15/05)\n    IF ( IT_IS_AN_AEROSOL_SIM ) THEN\n       GAS_HNO3 = 0.0_fp\n    ENDIF\n\n    ! Evaluate offline global HNO3 from HEMCO is using. Doing this every\n    ! timestep allows usage of HEMCO's scaling and masking functionality\n    IF ( USE_HNO3_FROM_HEMCO ) THEN\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_HNO3', OFFLINE_HNO3, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'GLOBAL_HNO3 not found in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Evaluate offline global HCl from HEMCO is using. Doing this every\n    ! timestep allows usage of HEMCO's scaling and masking functionality\n    IF ( USE_HCl_FROM_HEMCO ) THEN\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_HCl', OFFLINE_HCl, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'GLOBAL_HCl not found in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    !========================================================================\n    ! Loop over grid boxes and call HETP (see comments in the\n    ! HETP routine hetp_mod.F90 which describes the input/output args)\n    !========================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                  ) &\n    !$OMP PRIVATE( I,        J,         L,           N,         WI         ) &\n    !$OMP PRIVATE( WT,       GAS,       TEMPI,       RHI,       VOL        ) &\n    !$OMP PRIVATE( TSO4,     TNH3,      TNA,         TCL,       ANO3       ) &\n    !$OMP PRIVATE( GNO3,     TCA,       TMG,         TK                    ) &\n    !$OMP PRIVATE( SCASI,    P_Pa,      TNO3,        AERLIQ                ) &\n    !$OMP PRIVATE( OTHER,    TNH4,      TNIT,        HPLUSTEMP, NUM_SAV    ) &\n    !$OMP PRIVATE( GCL,      ACL,       AlkR,        NM,        PHCl       ) &\n    !$OMP PRIVATE( Qk,       n_air,     n_ssc,       Hplus,     Dcs        ) &\n    !$OMP PRIVATE( DEN_SAV,  HNO3_DEN,  OutOfBounds, F_HCL,     F_HNO3     ) &\n    !$OMP PRIVATE( SULFTEMP, BISULTEMP, NITRTEMP,    HNO3_UGM3, CLTEMP     ) &\n    !$OMP PRIVATE( HETP_SO4,   HETP_HSO4, HETP_CaSO4, HETP_NH4             ) &\n    !$OMP PRIVATE( HETP_NH3,   HETP_NO3,  HETP_HNO3,  HETP_Cl              ) &\n    !$OMP PRIVATE( HETP_HCl,   HETP_Na,   HETP_Ca,    HETP_K               ) &\n    !$OMP PRIVATE( HETP_Mg,    HETP_H,    HETP_OH,    HETP_LWC             ) &\n    !$OMP PRIVATE( HETP_frNa,  HETP_frCa, HETP_frK,   HETP_frMg            ) &\n    !$OMP PRIVATE( HETP_frSO4, HETP_num                                    ) &\n    !$OMP COLLAPSE( 3                                                      ) &\n    !$OMP SCHEDULE( DYNAMIC, 8                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Only applying HETP in troposphere\n       IF ( State_Met%InStratMeso(I,J,L) ) CYCLE\n\n       ! Zero PRIVATE variables\n       Dcs   = 0.0_fp\n       HPlus = 0.0_fp\n       n_air = 0.0_fp\n       n_ssc = 0.0_fp\n       PHCl  = 0.0_fp\n\n       ! Initialize PRIVATE meteorological variables\n       TEMPI = State_Met%T(I,J,L)                    ! Temperature [K]\n       P_Pa  = State_Met%PMid(I,J,L)*100.0e+0_f8     ! Pressure [Pa]\n       RHI   = State_Met%RH(I,J,L) * 1.e-2_fp        ! Rel Humidity [1]\n       RHI   = MAX( 0.01e+0_fp, RHI )                !  force into range\n       RHI   = MIN( 0.98e+0_fp, RHI )                !  0.01 < RH <= 0.98\n       VOL   = State_Met%AIRVOL(I,J,L)               ! Grid box volume [m3]\n\n       !-----------------------------------------------------------\n       ! Now include full themodynamics for SSA, xnw 11/20/17\n       ! Assume coarse SSA is externally mixed with fine aerosols,\n       ! fine mode aerosols first reach equilibrium then coarse SSA\n       !-----------------------------------------------------------\n\n       ! This is for saving PHCl\n       IF ( id_HCl > 0 ) THEN\n          PHCl = Spc(id_HCl)%Conc(I,J,L) !initial HCl, kg\n       ENDIF\n\n       ! Only do coarse mode cacluation when SALC exists\n       ! SET NM = 1 to skip coarse SSA thermodynamic\n       IF (Spc(id_SALC)%Conc(I,J,L) .GT. 1.e-20) THEN\n          NM = 2\n          ! Calculate parameters for mass transfer\n          Dcs = State_Chm%AeroRadi(I,J,L,12) * 2.0e-2_fp !(cm->m)\n          n_air = State_Met%AIRNUMDEN(I,J,L) !(molec/cm3)\n          n_ssc = Spc(id_SALC)%Conc(I,J,L) / 2.2e+3_fp / &\n                  ((1.0_fp/6.0_fp) * Pi * Dcs**3 ) / VOL !(kg->#/m3)\n       ELSE\n          NM = 1\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! 1 for fine, 2 for coarse\n       ! The coarse SSA thermodynamic does not work for offline simulation\n       !---------------------------------------------------------------------\n       DO N = 1, NM\n\n          ! Zero PRIVATE variables that get assigned in this loop over NM.\n          ! This will prevent values from prior iterations hanging around.\n          ACl       = 0.0_fp\n          AERLIQ    = 0.0_f8\n          AlkR      = 0.0_fp\n          ANO3      = 0.0_fp\n          F_HNO3    = 0.0_fp\n          F_HCl     = 0.0_fp\n          GAS       = 0.0_fp\n          GCl       = 0.0_fp\n          GNO3      = 0.0_fp\n          HNO3_UGM3 = 0.0_fp\n          OTHER     = 0.0_f8\n          Qk        = 0.0_f8\n          SCASI     = ''\n          TCa       = 0.0_fp\n          TCl       = 0.0_fp\n          TK        = 0.0_fp\n          TMg       = 0.0_fp\n          TNa       = 0.0_fp\n          TNH3      = 0.0_fp\n          TNH4      = 0.0_fp\n          TNIT      = 0.0_fp\n          TNO3      = 0.0_fp\n          TSO4      = 0.0_fp\n          WI        = 0.0_fp\n          WT        = 0.0_fp\n\n          !-----------------------------------------------\n          ! Compute Alkalinity % consumed in the grid box\n          !-----------------------------------------------\n\n          IF (N == 1) THEN\n!             IF (Spc(id_SALAAL)%Conc(I,J,L) .GT. CONMIN) THEN !bc 08/01/24 for floating point exception\n             IF (Spc(id_SALAAL)%Conc(I,J,L) .GT. CONMIN .and. &\n                   Spc(id_SALA)%Conc(I,J,L) .GT. CONMIN) THEN\n                AlkR = Spc(id_SALAAL)%Conc(I,J,L) / Spc(id_SALA)%Conc(I,J,L)\n                AlkR = MAX( (1.0_fp-AlkR), CONMIN)\n             ELSE\n                AlkR = 1.0_fp\n             ENDIF\n          ELSE\n!             IF (Spc(id_SALCAL)%Conc(I,J,L) .GT. CONMIN) THEN !bc 08/01/24 for floating point exception\n             IF (Spc(id_SALCAL)%Conc(I,J,L) .GT. CONMIN .and. &\n                   Spc(id_SALC)%Conc(I,J,L) .GT. CONMIN) THEN\n                AlkR = Spc(id_SALCAL)%Conc(I,J,L) / Spc(id_SALC)%Conc(I,J,L)\n                AlkR = MAX( (1.0_fp-AlkR), CONMIN)\n             ELSE\n                AlkR = 1.0_fp\n             ENDIF\n          ENDIF\n\n          !--------------------------------\n          ! Compute quantities for HETP\n          !---------------------------------\n\n          IF ( N == 1 ) THEN\n\n             ! Total SO4 [mole/m3], also consider SO4s in SALA\n             IF ( IS_HMS ) THEN\n                TSO4 = (Spc(id_SO4)%Conc(I,J,L)+Spc(id_SALA)%Conc(I,J,L)*0.08_fp*AlkR) * &\n                     1.e+3_fp / ( 96.0_fp * VOL)                             &\n                     + Spc(id_HMS)%Conc(I,J,L) * 0.5e+3_fp / ( 111.0_fp * VOL )\n             ELSE\n                TSO4 = (Spc(id_SO4)%Conc(I,J,L)+Spc(id_SALA)%Conc(I,J,L)*0.08_fp*AlkR) * &\n                     1.e+3_fp / ( 96.0_fp * VOL)\n             ENDIF\n\n\n             ! Total NH3 [mole/m3]\n             TNH3 = Spc(id_NH4)%Conc(I,J,L) * 1.0e+3_fp / (18.0_fp * VOL) + &\n                    Spc(id_NH3)%Conc(I,J,L) * 1.0e+3_fp / (17.0_fp * VOL)\n\n          ELSE\n\n             ! Total SO4 [mole/m3], also consider SO4s in SALC\n             TSO4 = Spc(id_SO4s)%Conc(I,J,L) *                               &\n                    1.e+3_fp * AlkR / (31.4_fp * VOL) +                      &\n                    Spc(id_SALC)%Conc(I,J,L) * 0.08_fp *                     &\n                    1.e+3_fp * AlkR / (96.0_fp * VOL)\n\n             ! Total NH3 [mole/m3]\n             !TNH3 = Spc(id_NH4s)%Conc(I,J,L)*1.e+3_fp*AlkR/(31.4e+0_fp*VOL)+ &\n             !       Spc(id_NH3)%Conc(I,J,L) * 1.e+3_fp / (17.e+0_fp * VOL)\n             TNH3  = 0.0_fp\n\n          ENDIF\n\n          IF (N == 1) THEN\n             ! Total Na+ (30.61% by weight of seasalt) [mole/m3]\n             !TNA = Spc(id_SALA)%Conc(I,J,L) * 0.3061e+0_fp * 1.e+3_fp / &\n             !      ( 22.99e+0_fp  * VOL  )\n\n             ! Total Na+ (30.61% by weight of seasalt) [mole/m3]\n             ! increase to account for all cations, xnw 11/26/17\n             ! Reverted Na:SS ratio from 0.397 to 0.3061 since\n             ! cations are no longer excluded (Ca, Mg, K), 9/19/24\n             TNA = Spc(id_SALA)%Conc(I,J,L) * 0.3061_fp * 1.0e+3_fp           &\n                   * AlkR / ( 23.0_fp  * VOL  )\n\n             ! Total Cl- (55.04% by weight of seasalt) [mole/m3]\n             !TCL = Spc(id_SALA)%Conc(I,J,L) * 0.5504e+0_fp * 1.e+3_fp / &\n             !      ( 35.45e+0_fp  * VOL  )\n\n             ! track chloride in sea salt correctly, xnw 10/12/17\n             ! Aerosol phase Cl-, [mole/m3]\n             ACL = Spc(id_SALACL)%Conc(I,J,L) * 1.0e+3_fp * AlkR /           &\n                   ( 35.45_fp  * VOL  )\n          ELSE\n\n             ! Changed 0.378 to 0.3061 (dry mass fraction of seasalt)\n             TNA = Spc(id_SALC)%Conc(I,J,L) * 0.3061_fp * 1.0e+3_fp           &\n                   * AlkR / ( 23.0_fp  * VOL  )\n             ACL = Spc(id_SALCCL)%Conc(I,J,L) * 1.0e+3_fp * AlkR /           &\n                   ( 35.45_fp  * VOL  )\n\n          ENDIF\n\n          ! Gas phase Cl-, [mole/m3]\n          IF ( id_HCl > 0 ) THEN\n             GCL = Spc(id_HCL)%Conc(I,J,L) * 1.0e+3_fp /(36.45_fp * VOL)\n          ELSE\n             ! HCl is in v/v (from HEMCO)\n             GCL = OFFLINE_HCl(I,J,L) / VOL\n          ENDIF\n\n          ! Total Cl- [mole/m3]\n          TCL = ACL + GCL\n\n          ! Assume all Ca2+, K+, and Mg+ originate from seasalt aerosols\n          IF (N == 1) THEN\n\n             ! Total Ca2+ (1.16% by weight of fine-mode seasalt) [mole/m3]\n             TCA      = Spc(id_SALA)%Conc(I,J,L) * 0.0116e+0_fp * 1.0e+3_fp * AlkR / &\n                        ( 40.08e+0_fp  * VOL  )\n\n             ! Total K+   (1.1% by weight of fine-mode seasalt)  [mole/m3]\n             TK       = Spc(id_SALA)%Conc(I,J,L) * 0.0110e+0_fp * 1.0e+3_fp * AlkR / &\n                        ( 39.102e+0_fp * VOL  )\n\n             ! Total Mg+  (3.69% by weight of fine-mode seasalt) [mole/m3]\n             TMG      = Spc(id_SALA)%Conc(I,J,L) * 0.0369e+0_fp * 1.0e+3_fp * AlkR / &\n                        ( 24.312e+0_fp * VOL  )\n          ELSE\n\n             ! Total Ca2+ (1.16% by weight of coarse-mode seasalt) [mole/m3]\n             TCA      = Spc(id_SALC)%Conc(I,J,L) * 0.0116e+0_fp * 1.0e+3_fp * AlkR / &\n                        ( 40.08e+0_fp  * VOL  )\n\n             ! Total K+   (1.1% by weight of coarse-mode seasalt)  [mole/m3]\n             TK       = Spc(id_SALC)%Conc(I,J,L) * 0.0110e+0_fp * 1.0e+3_fp * AlkR / &\n                        ( 39.102e+0_fp * VOL  )\n\n             ! Total Mg+  (3.69% by weight of coarse-mode seasalt) [mole/m3]\n             TMG      = Spc(id_SALC)%Conc(I,J,L) * 0.0369e+0_fp * 1.0e+3_fp * AlkR / &\n                        ( 24.312e+0_fp * VOL  )\n\n          ENDIF\n\n          ! Compute gas-phase NO3\n          IF ( id_HNO3 > 0 ) THEN\n\n             !---------------------\n             ! COUPLED SIMULATION\n             !---------------------\n\n             ! Compute gas-phase HNO3 [mole/m3] from HNO3 tracer\n             GNO3 = Spc(id_HNO3)%Conc(I,J,L)\n             GNO3 = MAX( GNO3 * 1.e+3_fp / ( 63.0_fp * VOL ), CONMIN )\n\n             ! Aerosol-phase NO3 [mole/m3]\n             IF (N == 1) THEN\n                ANO3 = Spc(id_NIT)%Conc(I,J,L) * 1.e+3_fp / (62.0_fp * VOL)\n             ELSE\n                ANO3 = Spc(id_NITs)%Conc(I,J,L) * 1.e+3_fp * AlkR / (31.4_fp * VOL)\n             ENDIF\n\n             ! Total NO3 [mole/m3]\n             TNO3    = GNO3 + ANO3\n\n          ELSE\n\n             !---------------------\n             ! OFFLINE SIMULATION\n             !---------------------\n\n             ! Relax to monthly mean HNO3 concentrations every 3 hours\n             ! Otherwise just use the concentration in HNO3_sav\n             IF ( MOD( GET_ELAPSED_SEC(), 10800 ) == 0 ) THEN\n                ! HNO3 is in v/v (from HEMCO), convert to ug/m3\n                HNO3_UGM3 = OFFLINE_HNO3(I,J,L) * State_Met%AIRDEN(I,J,L) &\n                            * 1.e+9_fp / ( AIRMW / 63.0_fp )\n             ELSE\n                HNO3_UGM3 = HNO3_sav(I,J,L)\n             ENDIF\n\n             ! Convert total inorganic NO3 from [ug/m3] to [mole/m3].\n             TNO3  = HNO3_UGM3 * 1.e-6_fp / 63.0_fp\n\n             ANO3 = 0.0_fp\n             GNO3 = TNO3\n\n          ENDIF\n\n          ! Insert concentrations [mole/m3] into WI & prevent underflow\n          WI(1)    = MAX( TNA,  CONMIN )\n          WI(2)    = MAX( TSO4, CONMIN )\n          WI(3)    = MAX( TNH3, CONMIN )\n          WI(4)    = MAX( TNO3, CONMIN )\n          WI(5)    = MAX( TCL,  CONMIN )\n          WI(6)    = MAX( TCA,  CONMIN )\n          WI(7)    = MAX( TK,   CONMIN )\n          WI(8)    = MAX( TMG,  CONMIN )\n\n#if defined( SKIP_IF_P_AND_T_ARE_OUT_OF_RANGE )\n\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          !%%% If the C-preprocessor switch is activated then check if\n          !%%% pressure and temperature are in the range that will result\n          !%%% in a stable solution.  If not, then we will skip calling\n          !%%% ISORROPIA/HETP to avoid random noise in the output.\n          !%%%\n          !%%% NOTE: Turning this feature on will result in differences\n          !%%% with respect to prior GEOS-Chem versions.  So we'll give\n          !%%% the user the option to activate it or not.  At some point\n          !%%% in the future this will become the default setting.\n          !%%%\n          !%%%  -- Seb Eastham and Bob Yantosca (1/25/17)\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n          ! SDE 2017-01-18: Recommendation from Shannon Capps\n          ! Skip equilibrium if T < 250 K or P < 200 hPa\n          OutOfBounds = ((P_Pa.lt.200.0_f8).or.(TEMPI.lt.250.0e+0_f8))\n\n#else\n\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          !%%% Always call ISORROPIA/HETP, regardless of the values of pressure\n          !%%% and temperature.  This will match the prior behavior of\n          !%%% when comparing to v11-01 and earlier versions.\n          !%%%\n          !%%%  -- Seb Eastham and Bob Yantosca (1/25/17)\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n          ! Never skip calling ISORROPIA/HETP\n          OutOfBounds = .FALSE.\n\n#endif\n\n          IF ( OutOfBounds ) THEN\n\n             ! %%% Skip equilibrium %%%\n             ! Just keep things the way they are\n             ! and spoof the other outputs\n             WT     = WI\n             AERLIQ = 0.0_f8\n             GAS    = 0.0_f8\n             OTHER  = 0.0_f8\n\n             IF (N == 1) THEN\n                ANO3 = Spc(id_NIT)%Conc(I,J,L)  * 1.e+3_fp  / (62.0_fp * VOL)\n             ELSE\n                ANO3 = Spc(id_NITs)%Conc(I,J,L) * 1.e+3_fp * AlkR / (31.4_fp * VOL)\n             ENDIF\n\n          ELSE\n\n             ! %%% Perform aerosol thermodynamic equilibrium %%%\n             ! For safety\n             GAS = 0.0d0\n             AERLIQ = 0.0d0\n             Call MACH_HETP_Main_15Cases( WI(2), WI(3), WI(4), WI(1), WI(5),            &\n                                          WI(6), WI(7), WI(8), TEMPI, RHI,              &\n                                          HETP_SO4,   HETP_HSO4, HETP_CaSO4, HETP_NH4,  &\n                                          HETP_NH3,   HETP_NO3,  HETP_HNO3,  HETP_Cl,   &\n                                          HETP_HCl,   HETP_Na,   HETP_Ca,    HETP_K,    &\n                                          HETP_Mg,    HETP_H,    HETP_OH,    HETP_LWC,  &\n                                          HETP_frNa,  HETP_frCa, HETP_frK,   HETP_frMg, &\n                                          HETP_frSO4, HETP_num                          )\n             ! Spoof ISORROPIA outputs which are still used\n             GAS(1) = HETP_NH3\n             GAS(2) = HETP_HNO3\n             GAS(3) = HETP_HCl\n             ! Mostly used for diagnostics\n             AERLIQ( 1) = HETP_H\n             AERLIQ( 2) = HETP_Na\n             AERLIQ( 3) = HETP_NH4\n             AERLIQ( 4) = HETP_Cl\n             AERLIQ( 5) = HETP_SO4\n             AERLIQ( 6) = HETP_HSO4\n             AERLIQ( 7) = HETP_NO3\n             AERLIQ( 8) = HETP_LWC\n             ! WT is used below but is identical to WI for a forward case\n             WT(:) = WI(:)\n\n             ! Consider mass transfer and acid limitation for coarse\n             ! mode calculation\n             IF ( N == 2 ) THEN\n                !Hplus = AERLIQ(1) !H+ in aerosol, mol/m3\n                Hplus = 1.e-5_fp*18.e-3_fp*AERLIQ(8)\n                CALL GET_QK(GNO3, GCL, GAS(2), GAS(3), Hplus, Dcs, TEMPI, &\n                            n_air, n_ssc, Qk, F_HNO3, F_HCl)\n                GAS(2) = GAS(2) * Qk\n                GAS(3) = GAS(3) * Qk\n                GAS(2) = GNO3 - (GNO3 - GAS(2)) * (1.e0_fp - exp(-F_HNO3))\n                GAS(3) = GCL  - (GCL  - GAS(3)) * (1.e0_fp - exp(-F_HCl ))\n             ENDIF\n\n             ! Retrieve concentrations in mol/m3\n             TSO4 = WT(2)\n             TNH3 = GAS(1)\n             TNH4 = WT(3) - GAS(1)\n             GNO3 = GAS(2)\n             TNO3 = WT(4)\n             ANO3 = TNO3 - GNO3\n             GCL  = GAS(3)\n             TCL  = WT(5)\n             ACL  = TCL - GCL\n\n          ENDIF\n\n          !---------------------------------\n          ! Save back into tracer array\n          !---------------------------------\n          ! Convert HETP output from [mole/m3] to [kg]\n          IF ( N == 1 ) THEN\n             TSO4 = MAX( 96.e-3_fp   * VOL * TSO4, CONMIN )\n             TNH4 = MAX( 18.e-3_fp   * VOL * TNH4, CONMIN )\n             TNIT = MAX( 62.e-3_fp   * VOL * ANO3, CONMIN )\n             ACL  = MAX( 35.45e-3_fp * VOL * ACL,  CONMIN )\n             TNH3 = MAX( 17.e-3_fp   * VOL * TNH3, CONMIN )\n          ELSE\n             TSO4 = MAX( 31.4e-3_fp  * VOL * TSO4, CONMIN )\n            !TNH4 = MAX( 31.4e-3_fp  * VOL * TNH4, CONMIN )\n             TNIT = MAX( 31.4e-3_fp  * VOL * ANO3, CONMIN )\n             ACL  = MAX( 35.45e-3_fp * VOL * ACL,  CONMIN )\n          ENDIF\n          !TNH3 = MAX( 17.e-3_fp * VOL * TNH3, CONMIN )\n          GCL  = MAX( 36.45e-3_fp * VOL * GCL, CONMIN )\n\n          ! Save tracers back into Spc array [kg]\n          ! no longer save TSO4 back into Spc. SO4 is all aerosol phase\n          ! (hotp 11/7/07)\n          ! Spc(id_SO4)%Conc(I,J,L) = TSO4\n          !Spc(id_NH3)%Conc(I,J,L) = TNH3\n          IF ( id_HCl > 0 ) THEN\n             Spc(id_HCL)%Conc(I,J,L) = GCL\n          ENDIF\n\n          IF (N == 1) THEN\n             Spc(id_NH3   )%Conc(I,J,L) = TNH3\n             Spc(id_NH4   )%Conc(I,J,L) = TNH4\n             Spc(id_NIT   )%Conc(I,J,L) = TNIT\n             Spc(id_SALACL)%Conc(I,J,L) = &\n                            Spc(id_SALACL)%Conc(I,J,L)*(1.0_fp-AlkR) + ACL\n          ELSE\n            !Spc(id_NH4s  )%Conc(I,J,L) = &\n            !               Spc(id_NH4s  )%Conc(I,J,L) * (1.0_fp-AlkR) + TNH4\n             Spc(id_NITs  )%Conc(I,J,L) = &\n                            Spc(id_NITs  )%Conc(I,J,L) * (1.0_fp-AlkR) + TNIT\n             Spc(id_SALCCL)%Conc(I,J,L) = &\n                            Spc(id_SALCCL)%Conc(I,J,L) * (1.0_fp-AlkR) + ACL\n          ENDIF\n\n          ! Special handling for HNO3 [kg]\n          IF ( id_HNO3 > 0 ) THEN\n\n             !---------------------\n             ! COUPLED SIMULATION\n             !---------------------\n\n             ! HNO3 [mole/m3] is in GAS(2); convert & store in Spc [kg]\n             Spc(id_HNO3)%Conc(I,J,L) = MAX( 63.0e-3_fp * VOL * GNO3, CONMIN )\n\n             ! Save for use in DEN_SAV expression below (sofen, 4/21/10)\n             HNO3_DEN = Spc(id_HNO3)%Conc(I,J,L)\n\n          ELSE\n\n             !---------------------\n             ! OFFLINE SIMULATION:\n             !---------------------\n\n             ! Convert total inorganic nitrate from [mole/m3] to [ug/m3]\n             ! and save for next time\n             ! WT(4) is in [mole/m3] -- unit conv is necessary!\n             CALL SET_HNO3( I, J, L, 63.0e+6_f8 * TNO3 )\n\n             ! Save for use in sulfate_mod (SEASALT_CHEM) for offline\n             ! aerosol simulations (bec, 4/15/05)\n             GAS_HNO3(I,J,L) = GNO3\n\n             ! Save for use in DEN_SAV expression below (sofen, 4/21/10)\n             HNO3_DEN        = GNO3 * VOL * 63.0e-3_fp\n\n          ENDIF\n\n          !-------------------------\n          ! DIAGNOSTICS\n          !-------------------------\n\n          ! AEROPH: get pH related info to SAV arrays (hotp 8/11/09)\n          ! HPLUSTEMP is H+ in mol/L water, AERLIQ1 is H, AERLIQ8 is H2O\n          ! in mol/m3 air --> convert to mol/L water\n          IF ( AERLIQ(8) < 1e-18_fp ) THEN\n             ! Aerosol is dry so HPLUSTEMP and PH_SAV are undefined\n             ! We force HPLUSTEMP to 1d20 (hotp, ccc, 12/18/09)\n             ! Force IsorropAeropH to 20e0 (X. Wang, 6/27/19)\n             !HPLUSTEMP       = 1e+20_fp\n             HPLUSTEMP       = 1.0e-30_fp\n             SULFTEMP        = 1.0e-30_fp\n             BISULTEMP       = 1.0e-30_fp\n             NITRTEMP        = 1.0e-30_fp\n             CLTEMP          = 1.0e-30_fp\n             !State_Chm%IsorropAeropH(I,J,L,N) = -999e+0_fp\n             State_Chm%IsorropAeropH(I,J,L,N) = 20.0_fp\n          ELSE\n             HPLUSTEMP    = AERLIQ(1) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp\n             SULFTEMP     = AERLIQ(5) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp\n             BISULTEMP    = AERLIQ(6) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp\n             NITRTEMP     = AERLIQ(7) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp\n             CLTEMP       = AERLIQ(4) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp\n\n             ! Use SAFELOG10 to prevent NAN\n             State_Chm%IsorropAeropH(I,J,L,N)=-1.0_fp*SAFELOG10(HPLUSTEMP)\n          ENDIF\n\n          ! Additional Info\n          State_Chm%IsorropHplus(I,J,L,N)   = MAX(HPLUSTEMP, 1e-30_fp)\n          State_Chm%IsorropAeroH2O(I,J,L,N) = MAX((AERLIQ(8)*18e+6_fp),1e-30_fp) ! mol/m3 -> ug/m3\n          State_Chm%IsorropNitrate(I,J,L,N) = MAX(NITRTEMP, 1e-30_fp)\n          State_Chm%IsorropChloride(I,J,L,N)= MAX(CLTEMP, 1e-30_fp)\n          IF (N==1) THEN\n             State_Chm%IsorropSulfate(I,J,L)  = MAX(SULFTEMP, 1e-30_fp)\n             State_Chm%IsorropBisulfate(I,J,L)= MAX(BISULTEMP, 1e-30_fp)\n             State_Chm%AeroH2O(I,J,L,1+NDUST) = AERLIQ(8) * 18e+0_fp ! mol/m3 -> g/m3\n\n             NUM_SAV = ( Spc(id_NH3 )%Conc(I,J,L)  / 17.0_fp                 &\n                     +   Spc(id_NH4 )%Conc(I,J,L)  / 18.0_fp                 &\n                     +   Spc(id_SALA)%Conc(I,J,L) * 0.3061_fp / 23.0_fp     )\n\n             ! HMS is only defined for fullchem is simulations,\n             ! so skip it if it is not a defined species\n             IF ( IS_HMS ) THEN\n                DEN_SAV = ( Spc(id_SO4)%Conc(I,J,L)  / 96.0_fp   * 2.0_fp    &\n                        +   Spc(id_HMS)%Conc(I,J,L)  / 111.0_fp              &\n                        +   Spc(id_NIT)%Conc(I,J,L)  / 62.0_fp               &\n                        +   HNO3_DEN           / 63.0_fp                     &\n                        +   Spc(id_SALA)%Conc(I,J,L) * 0.55_fp   / 35.45_fp )\n             ELSE\n                DEN_SAV = ( Spc(id_SO4)%Conc(I,J,L)  / 96.0_fp   * 2.0_fp    &\n                        +   Spc(id_NIT)%Conc(I,J,L)  / 62.0_fp               &\n                        +   HNO3_DEN           / 63.0_fp                     &\n                        +   Spc(id_SALA)%Conc(I,J,L) * 0.55_fp   / 35.45_fp )\n             ENDIF\n\n          ENDIF\n       ENDDO\n\n       IF ( id_HCl > 0 ) THEN\n          PHCl = ( Spc(id_HCL)%Conc(I,J,L) - PHCl ) * 35.45_fp / 36.45_fp\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### AEROSOL_THERMODYNAMICS: a DO_ATE' )\n    ENDIF\n\n  END SUBROUTINE DO_ATE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: safelog10\n!\n! !DESCRIPTION: Calculates the LOG (base 10) of a number X.  Returns a minimum\n!  value if X is too small, in order to avoid NaN or Infinity problems.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SAFELOG10( X ) RESULT ( SAFLOG )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X        ! Argument for LOG10 function\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: SAFLOG   ! LOG10 output --\n!\n! !REVISION HISTORY:\n!  11 Aug 2009 - H. O. T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( X <= 1e-20_fp ) THEN\n       SAFLOG = -1e+0_fp*20e+0_fp   ! if X<0, make pH 20\n    ELSE\n       SAFLOG = LOG10(X)\n    ENDIF\n\n  END FUNCTION SAFELOG10\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_hno3\n!\n! !DESCRIPTION: Subroutine SET\\_HNO3 stores the modified HNO3 value back\n!  into the HNO3\\_sav array for the next timestep.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_HNO3( I, J, L, HNO3_UGM3 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I           ! GEOS-Chem longitude index\n    INTEGER,  INTENT(IN) :: J           ! GEOS-Chem longitude index\n    INTEGER,  INTENT(IN) :: L           ! GEOS-Chem longitude index\n    REAL(f8), INTENT(IN) :: HNO3_UGM3   ! HNO3 concentration [ug/m3]\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n#if !defined( USE_REAL_8 )\n    HNO3_sav(I,J,L) = SNGL(HNO3_UGM3) ! if we are not using real*8\n#else\n    HNO3_sav(I,J,L) = HNO3_UGM3       ! if we are using real*8\n#endif\n\n  END SUBROUTINE SET_HNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_gno3\n!\n! !DESCRIPTION: Function GET\\_GNO3 returns the gas-phase HNO3 [v/v] for\n!  calculation of sea-salt chemistry in sulfate\\_mod (SEASALT\\_CHEM).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_GNO3( I, J, L, HNO3_kg, State_Met )\n!\n! !USES:\n!\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I          ! GEOS-Chem longitude index\n    INTEGER,        INTENT(IN)    :: J          ! GEOS-Chem latitude index\n    INTEGER,        INTENT(IN)    :: L          ! GEOS-Chem level index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),          INTENT(OUT)  :: HNO3_kg    ! Gas-phase HNO3 [kg]\n!\n! !REVISION HISTORY:\n!  15 Apr 2005 - B. Alexander - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Zero variables\n    HNO3_kg  = 0.e+0_fp\n\n    ! convert from [mole/m3] to [kg]\n    HNO3_kg = GAS_HNO3(I,J,L) * 63.e-3_fp * State_Met%AIRVOL(I,J,L)\n\n  END SUBROUTINE GET_GNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GET_Qk\n!\n! !DESCRIPTION: Function GET\\_Qk returns the mass transfer correction\n!  factor Qk for the thermodynamic equilibrium of coarse SSA. A dynamic\n!  method of Pillinis et al. (2000) is used here.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      Subroutine GET_QK(GNO3, GCL, GNO3eq, GCLeq, Hplus, d, temp, &\n           denair, n_x, Qk, F_HNO3, F_HCl )\n\n      USE PhysConstants,      ONLY : pi\n      USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n      ! Gas concentration (mole m-3) before equilibrium\n      REAL(fp),  INTENT(IN) :: GNO3, GCL\n      ! Gas concentration (mole m-3) after HETP equilibrium\n      REAL(fp),  INTENT(IN) :: GNO3eq, GCLeq\n      ! Aerosol H+ concentration (mole m-3)\n      REAL(fp),  INTENT(IN) :: Hplus\n      ! Aerosol (coarse seas salt) diameter (m)\n      REAL(fp),  INTENT(IN) :: d\n      ! Temprature (K)\n      REAL(fp),  INTENT(IN) :: temp\n      ! Air density (molec cm-3)\n      REAL(fp),  INTENT(IN) :: denair\n      ! Aerosol (coarse sea salt) number density (m-3)\n      REAL(fp),  INTENT(IN) :: n_x\n!\n! !Return value:\n!\n      REAL(fp),  INTENT(OUT)  :: Qk, F_HNO3, F_HCl\n!\n! !REVISION HISTORY:\n!  14 Feb 2018 - X. Wang - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n!  !LOCAL VARIABLES:\n      REAL(fp) :: aa1, aa2, bb1, bb2, bb3\n      REAL(fp) :: D_g, f, Kn, H_flux_NO3, H_flux_Cl\n      REAL(fp) :: alpha, Hlim, ab\n\n\n      ! Initialize\n      aa1        = 0.0_fp\n      aa2        = 0.0_fp\n      bb1        = 0.0_fp\n      bb2        = 0.0_fp\n      bb3        = 0.0_fp\n      D_g        = 0.0_fp\n      f          = 0.0_fp\n      Kn         = 0.0_fp\n      H_flux_NO3 = 0.0_fp\n      H_flux_Cl  = 0.0_fp\n      Hlim       = 0.0_fp\n      alpha      = 0.0_fp\n      ab         = 0.0_fp\n\n      ! Based on (Pilinis et al.AST,2000), for  HNO3+HCl case,\n      ! Qx = -bb / aa, first calculate bb:\n      ! bb = -D_g*f*C(HNO3) - D_g*f*C(HCl) + alpha/(2*pi*d*N)\n      ! aa = D_g*f*Ceq(HNO3) + D_g*f*Ceq(HCl)\n\n      ! In the 1st term for HNO3, D_g is the gas diffusion coefficient (m2 s-1)\n      D_g = 9.45E+17_fp/denair * SQRT(temp) * 1.e-4_fp * &\n            SQRT(3.472E-2_fp + 1.E+0_fp/63.e+0_fp)\n      ! f is the the correction for noncontinuum effects and imperfect\n      ! accommodation, based on Kn number and accommodation coefficient\n      Kn = 0.068e-6_fp / (d / 2.)\n      ! Use S&P eq12.42 (Dahneke 1983) to calculate f\n      ab = 7.5e-5 * exp(2.1e3 / temp)\n      f = (1+Kn) / (1 + 2.*Kn*(1+Kn)/ab)\n      ! C is the gas concentration before equilibrium (mol m-3)\n      bb1 = -D_g * f * GNO3 !(mole m-1 s-1)\n      ! Also calulate availabe H+ flux for later calculation (mol m-3 s-1)\n      H_flux_NO3 = 2*pi*D_g*d*n_x*f*(GNO3-GNO3eq)\n      F_HNO3 = 2*pi*D_g*d*n_x*f * GET_TS_CHEM()! * 60e+0_fp !save for flux calc\n      aa1 = D_g*f*GNO3eq !(mole m-1 s-1)\n\n      ! Do similar for the 2nd term, for HCl\n      D_g = 9.45E+17_fp/denair * SQRT(temp) * 1.e-4_fp * &\n            SQRT(3.472E-2_fp + 1.E+0_fp/36.45e+0_fp)\n      ab = 4.4e-6 * exp(2.898e3 / temp)\n      f = (1+Kn) / (1 + 2.*Kn*(1+Kn)/ab)\n      bb2 = -D_g * f * GCL !(mole m-1 s-1)\n      H_flux_Cl = 2*pi*D_g*d*n_x*f*(GCL-GCLeq)\n      F_HCl = 2*pi*D_g*d*n_x*f * GET_TS_CHEM()! * 60e+0_fp !save for flux calc\n      aa2 = D_g*f*GCLeq !(mole m-1 s-1)\n\n      ! In the third term, alpha is the limited changes in the acidity\n      ! of the particle. The limitation is set to 0.1s-1 following Pilinis, 2000\n      alpha = H_flux_Cl+H_flux_NO3 !(mole m-3 s-1)\n      Hlim = 1.e-1_fp * Hplus !(mole m-3 s-1)\n      IF (abs(alpha) .GT. Hlim) THEN\n         alpha = sign(Hlim, alpha) !(mole m-3 s-1)\n         bb3 = alpha/(2*pi*d*n_x) !(mole m-1 s-1)\n         IF ((aa1+aa2) .LE. 0) THEN\n            Qk = 1e+0_fp\n         ELSEIF ((bb1 + bb2 + bb3) .GE. 0 ) THEN\n            Qk = 1e+0_fp\n         ELSE\n            Qk = - (bb1 + bb2 + bb3) / (aa1 + aa2)\n         ENDIF\n      ELSE\n         Qk = 1e+0_fp\n      ENDIF\n\n      END SUBROUTINE GET_Qk\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_ate\n!\n! !DESCRIPTION: Subroutine INIT\\_ATE initializes all module arrays for the\n!  aerosols thermodynamics module.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_ATE( State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ALLOC_ERR\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !REVISION HISTORY:\n!  06 Jul 2007 - H. O. T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: AS\n\n    !=================================================================\n    ! INIT_ATE begins here!\n    !=================================================================\n\n    ALLOCATE( HNO3_sav( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'HNO3_sav' )\n    HNO3_sav = 0e+0_fp\n\n    ALLOCATE( GAS_HNO3( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'GAS_HNO3' )\n    GAS_HNO3 = 0e+0_fp\n\n  END SUBROUTINE INIT_ATE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_ate\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_ATE deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_ATE\n!\n! !REVISION HISTORY:\n!  06 Jul 2007 - H. O. T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( HNO3_sav    ) ) DEALLOCATE( HNO3_sav )\n    IF ( ALLOCATED( GAS_HNO3    ) ) DEALLOCATE( GAS_HNO3 )\n\n  END SUBROUTINE CLEANUP_ATE\n!EOC\nEND MODULE AEROSOL_THERMODYNAMICS_MOD\n"
  },
  {
    "path": "GeosCore/airs_ch4_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: airs_ch4_mod.F90\n!\n! !DESCRIPTION: Module AIRS\\_CH4\\_MOD\n!\\\\\n!\\\\\n! !INTERFACE: \n!\nMODULE AIRS_CH4_MOD\n!\n! !USES:\n!\n#if !defined( MODEL_CESM )\n  USE m_netcdf_io_open       ! netCDF open\n  USE m_netcdf_io_get_dimlen ! netCDF dimension queries\n  USE m_netcdf_io_read       ! netCDF data reads\n  USE m_netcdf_io_close      ! netCDF close\n#endif\n  USE PRECISION_MOD          ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE \n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CALC_AIRS_CH4_FORCE\n!\n! !REVISION HISTORY:\n!  20 Sept 2018 - Yuzhong Zhang - Initial version based on GOSAT_CH4_MOD.F\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER,  PARAMETER  :: MAXLEV = 26\n  INTEGER,  PARAMETER  :: MAXOBS = 200000\n  LOGICAL,  PARAMETER  :: LDCH4SAT    = .TRUE.\n!\n! !MODULE VARIABLES\n!\n  ! Record to store data from each AIRS obs\n  TYPE AIRS_CH4_OBS \n     INTEGER           :: LAIRS(1)\n     REAL(fp)          :: LAT(1)\n     REAL(fp)          :: LON(1)\n     INTEGER           :: YEAR(1)\n     INTEGER           :: MONTH(1)\n     INTEGER           :: DAY(1)\n     INTEGER           :: HOUR(1)\n     INTEGER           :: MINUTE(1)\n     INTEGER           :: SECOND(1)\n     REAL(fp)          :: CH4(1)   ! column v/v\n     REAL(fp)          :: CH4_ERROR(1) ! column v/v\n     REAL(fp)          :: PRES(MAXLEV)  ! hPa\n     REAL(fp)          :: PRIOR(MAXLEV) ! v/v\n     REAL(fp)          :: AVG_KERNEL(MAXLEV) ! column vmr/vmr \n     REAL(fp)          :: P_WEIGHT(MAXLEV) ! pressure weight \n     REAL(fp)          :: DOF(1) !trace of avg_kernel\n  ENDTYPE AIRS_CH4_OBS\n\n  TYPE(AIRS_CH4_OBS)    :: AIRS(MAXOBS)\n\nCONTAINS\n!EOC\n#if !defined( MODEL_CESM )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_airs_ch4_obs\n!\n! !DESCRIPTION: Subroutine READ\\_AIRS\\_CH4\\_OBS reads the file and passes back\n!  info contained therein. (dkh, 10/12/10) \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_AIRS_CH4_OBS( YYYYMMDD, NAIRS )\n!\n! !USES:\n!\n!\n    USE TIME_MOD,             ONLY : EXPAND_DATE\n    USE ERROR_MOD,            ONLY : ALLOC_ERR\n    USE ERROR_MOD,            ONLY : GEOS_CHEM_STOP\n    USE TIME_MOD,             ONLY : GET_YEAR, YMD_EXTRACT\n \n#     include \"netcdf.inc\"\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)      :: YYYYMMDD   ! Date\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)     :: NAIRS      ! Number of AIRS retrievals\n!     \n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                        :: NLEV\n    INTEGER                        :: NTIME\n    ! For reading netCDF file\n    INTEGER            :: fId                ! netCDF file ID\n    INTEGER            :: Status             ! 0 means variable in file\n    INTEGER            :: X, Y, Z, T         ! netCDF file dimensions\n    INTEGER            :: time_index         ! Read this slice of data\n    INTEGER            :: st1d(1), ct1d(1)   ! Start + count for 1D arrays\n    INTEGER            :: st2d(2), ct2d(2)   ! Start + count for 2D arrays\n    INTEGER            :: RC                 ! 0 means dimension exists\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: dir                ! Data directory path\n    CHARACTER(LEN=255) :: nc_file            ! netCDF file name\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n    CHARACTER(LEN=4)   :: CYEAR              ! Year in character format\n    CHARACTER(LEN=255) :: DimName1, DimName2 ! netCDF dimension names\n    CHARACTER(LEN=255) :: DimName3           ! netCDF dimension names\n\n    INTEGER                :: LAIRS\n    LOGICAL                :: EXIST_VAR\n    REAL(fp), ALLOCATABLE  :: lat(:)\n    REAL(fp), ALLOCATABLE  :: lon(:)\n    REAL(fp), ALLOCATABLE  :: ch4(:)\n    REAL(fp), ALLOCATABLE  :: ch4_error(:)\n    REAL(fp), ALLOCATABLE  :: pres(:,:)\n    REAL(fp), ALLOCATABLE  :: prior(:,:)\n    REAL(fp), ALLOCATABLE  :: time(:,:)\n    REAL(fp), ALLOCATABLE  :: ak(:,:)\n    REAL(fp), ALLOCATABLE  :: pres_w(:,:)\n\n    INTEGER                :: I, L, AS, N\n    REAL(fp)               :: REF_DATE, TIME_JD\n\n    !=================================================================\n    ! READ_AIRS_CH4_OBS begins here!\n    !=================================================================\n\n    caller = 'READ_AIRS_CH4_OBS in GeosCore/airs_ch4_mod.F90'\n\n    ! Get current year\n    WRITE( CYEAR, '(i4)' ) GET_YEAR()\n\n    ! Filename\n    nc_file = 'TROPESS_AIRS_v1.6_CH4_YYYYMM.nc'\n    CALL EXPAND_DATE( nc_file, YYYYMMDD, 9999 ) \n\n    ! Construct complete file path\n    dir = '/n/seasasfs02/epenn/AIRS/'\n    nc_file = TRIM( dir ) // TRIM( nc_file )\n    WRITE( 6, 10 ) TRIM( nc_file )\n10  FORMAT( '     - Reading ', a)\n\n    ! Make sure the file exists (ajt, 03/31/2013)\n    INQUIRE( FILE=TRIM( nc_file ), EXIST=EXIST_VAR )\n    IF ( .NOT. EXIST_VAR ) THEN\n       NAIRS = -1\n       RETURN\n    ENDIF\n\n    ! Open netCDF file\n    CALL NcOp_Rd( fId, TRIM( nc_file ) )\n\n    ! Get name of dimension 1 (Observation)\n    RC = NF_Inq_DimName( fId, 1, DimName1 )\n    IF ( RC /= 0 ) THEN\n       PRINT*, 'Could not find name for dimension 1...'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! Get name of dimension 2 (Level)\n    RC = NF_Inq_DimName( fId, 2, DimName2 )\n    IF ( RC /= 0 ) THEN\n       PRINT*, 'Could not find name for dimension 2...'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! Get name of dimension 3 (UTC\\ Date)\n    RC = NF_Inq_DimName( fId, 3, DimName3 )\n    IF ( RC /= 0 ) THEN\n       PRINT*, 'Could not find name for dimension 3...'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! Get length of dimensions\n    CALL NcGet_DimLen( fId, DimName1,   NLEV )\n    CALL NcGet_DimLen( fId, DimName2,   NAIRS )\n    CALL NcGet_DimLen( fId, DimName3,   NTIME )\n\n    print*,'DimName3: ',DimName3\n    print*,'length: ',NTIME\n\n    IF ( NLEV > MAXLEV ) THEN\n       print*,' # Levels this day = ', NLEV\n       print*, 'WARNING: NLEV > MAXLEV. Need to increase'\n       print*, ' MAXLEV in airs_ch4_mod.f.'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    IF ( NAIRS > MAXOBS ) THEN\n       print*,' # of observation in this month = ', NAIRS\n       print*, 'WARNING: NAIRS > MAXOBS. Need to increase'\n       print*, ' MAXOBS in airs_ch4_mod.f.'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    print*,' # AIRS Observations this month = ', NAIRS\n    print*, 'levels', NLEV\n\n    !--------------------------------\n    ! Allocate arrays for data to be read in\n    !--------------------------------\n\n    ALLOCATE( lat(         NAIRS ), STAT=AS )\n    ALLOCATE( lon(         NAIRS ), STAT=AS )\n    ALLOCATE( ch4(         NAIRS),  STAT=AS )\n    ALLOCATE( ch4_error(   NAIRS ), STAT=AS )\n\n    ALLOCATE( prior(     NLEV,  NAIRS ), STAT=AS )\n    ALLOCATE( pres(      NLEV,  NAIRS ), STAT=AS )\n    ALLOCATE( ak(        NLEV,  NAIRS ), STAT=AS )\n    ALLOCATE( pres_w(    NLEV,  NAIRS ), STAT=AS )\n    ALLOCATE( time(      NTIME, NAIRS ), STAT=AS )\n\n    !--------------------------------\n    ! Read 1-D Data\n    !--------------------------------\n\n    ! Latitude\n    v_name = 'latitude'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NAIRS /)\n    CALL NcRd( lat, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Longitude\n    v_name = 'longitude'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NAIRS /)\n    CALL NcRd( lon, fId, TRIM(v_name), st1d, ct1d )\n\n    ! CH4 (ppb)\n    v_name = 'xcol_ft'\n    st1d   = (/ 1   /)\n    ct1d   = (/ NAIRS /)\n    CALL NcRd( ch4, fId, TRIM(v_name), st1d, ct1d )\n\n    ! ch4 column error\n    v_name = 'xcol_err_ft'\n    st1d   = (/ 1   /)\n    ct1d   = (/ NAIRS /)\n    CALL NcRd( ch4_error, fId, TRIM(v_name), st1d, ct1d )\n\n    !-------------------------------- \n    ! Read 2D Data\n    !-------------------------------- \n\n    ! APRIORI (ppb)\n    v_name = 'xa_ch4'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NAIRS /)\n    CALL NcRd( prior, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Pressure (hPa)\n    v_name = 'pressure'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NAIRS /)\n    CALL NcRd( pres, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Averaging Kernel (linearized & multiplied with pres_w)\n    v_name = 'ak_col_ft'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NAIRS /)\n    CALL NcRd( ak, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Pressure Weight \n    v_name = 'col_ft'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NAIRS /)\n    CALL NcRd( pres_w, fId, TRIM(v_name), st2d, ct2d )\n\n    ! UTC date and time \n    v_name = 'UTC'\n    st2d   = (/ 1,   1    /)\n    ct2d   = (/ NTIME, NAIRS /)\n    CALL NcRd( time, fId, TRIM(v_name), st2d, ct2d )\n\n    !-------------------------------- \n    ! Place data into AIRS structure\n    !-------------------------------- \n    DO N = 1, NAIRS\n\n       ! 1-D data\n       AIRS(N)%LAIRS(1)        = NLEV\n       AIRS(N)%LAT(1)          = lat(N)\n       AIRS(N)%LON(1)          = lon(N)\n       AIRS(N)%CH4(1)          = ch4(N)\n       AIRS(N)%CH4_ERROR(1)    = ch4_error(N)\n         \n       ! 2-D data\n       LAIRS = NLEV\n       AIRS(N)%PRIOR(1:LAIRS)      = prior(1:LAIRS, N)\n       AIRS(N)%PRES(1:LAIRS)       = pres(1:LAIRS, N)\n       AIRS(N)%AVG_KERNEL(1:LAIRS) = ak(1:LAIRS, N)\n       AIRS(N)%P_WEIGHT(1:LAIRS)   = pres_w(1:LAIRS, N)\n         \n       ! derived date var\n       ! time array is length 7 with format (mm, dd, YYYY, HH, MM, SS, 0)\n       ! split these into separate variables and convert \n       ! from floats to integers (erp, 07/02/2020)\n       AIRS(N)%MONTH(1)  = NINT(time(1,N))\n       AIRS(N)%DAY(1)    = NINT(time(2,N))\n       AIRS(N)%YEAR(1)   = NINT(time(3,N))\n       AIRS(N)%HOUR(1)   = NINT(time(4,N))\n       AIRS(N)%MINUTE(1) = NINT(time(5,N))\n       AIRS(N)%SECOND(1) = NINT(time(6,N))\n \n    ENDDO\n\n    !-------------------------------- \n    ! Close netCDF file\n    !-------------------------------- \n\n    ! Echo info\n    WRITE( 6, 20 ) YYYYMMDD\n20  FORMAT( '     - Finished reading AIRS CH4 observations for ', i8)\n\n    ! Close netCDF file\n    CALL NcCl( fId )\n\n  END SUBROUTINE READ_AIRS_CH4_OBS\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_airs_ch4_force\n!\n! !DESCRIPTION: Subroutine CALC\\_AIRS\\_CH4\\_FORCE calculates the adjoint forcing\n!  from the GOSAT CH4 observations and updates the cost function.\n!  (dkh, 10/12/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_AIRS_CH4_FORCE( Input_Opt, State_Chm, State_Grid, &\n                                  State_Met )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GC_GRID_MOD,        ONLY : GET_IJ\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE TIME_MOD\n    USE PhysConstants,      ONLY : XNUMOLAIR, AIRMW\n    USE State_Chm_Mod,      ONLY : ChmState, Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Timers_Mod,         ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod,       ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - M. Sulprizio- Initial version based on GOSAT CH4 observation\n!                              operator from GC Adjoint v35j with updates from\n!                              M. Sulprizio, J.D. Maasakkers, A. Turner, and\n!                              K. Wecht\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: id_CH4\n    INTEGER,  SAVE     :: NAIRS\n    INTEGER            :: IIJJ(2), I,      J,  NT\n    INTEGER            :: L,       LL\n    INTEGER            :: NOBS,   IND\n    INTEGER            :: L0, L1\n    LOGICAL            :: IFVALID\n    INTEGER            :: INDS(MAXOBS)\n    INTEGER            :: YYYYMMDD\n    REAL(fp)           :: GC_PRES(State_Grid%NZ)\n    REAL(fp)           :: GC_PEDGE(State_Grid%NZ+1)\n    REAL(fp)           :: DRY_AIR(State_Grid%NZ)\n    REAL(fp)           :: WATER_VAPOR(State_Grid%NZ)\n    REAL(fp)           :: GC_CH4_NATIVE(State_Grid%NZ)\n    REAL(fp)           :: GC_CH4(MAXLEV)\n    REAL(fp)           :: GC_CH4_ORIG(MAXLEV)\n    REAL(fp)           :: GC_PSURF\n    REAL(fp)           :: MAP(State_Grid%NZ,MAXLEV)\n    REAL(fp)           :: p(MAXLEV)\n    REAL(fp)           :: h(MAXLEV)\n    REAL(fp)           :: ch4\n    REAL(fp)           :: ak1(MAXLEV), ak2(MAXLEV)\n    REAL(fp)           :: pres_w(MAXLEV)\n    REAL(fp)           :: prior(MAXLEV)\n    REAL(fp)           :: TropP !tropopause pressure (hPa)\n    INTEGER            :: LTrop !tropopause layer in GOSAT levels\n    REAL(fp)           :: WT_LTrop\n    REAL(fp)           :: GC_XCH4, GC_XCH4_ORIG, GC_XCH4_ORIG_oldpw\n    REAL(fp)           :: GC_XCH4_prior, GC_XCH4_trop, GC_XCH4_strat\n\n    ! For miscellaneous\n    LOGICAL, SAVE      :: FIRST = .TRUE. \n    INTEGER            :: IOS\n    INTEGER, SAVE      :: TotalObs = 0\n    CHARACTER(LEN=255) :: FILENAME\n    INTEGER            :: previous_units\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n    INTEGER            :: RC\n    REAL(fp)           :: foo ! throwaway output\n\n    !=================================================================\n    ! CALC_AIRS_CH4_FORCE begins here!\n    !=================================================================\n\n    print*, '     - CALC_AIRS_CH4_FORCE '\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at CALC_AIRS_CH4_FORCE (in GeosCore/airs_ch4_mod.F90)'\n\n    ! Initialize species ID flag\n    id_CH4     = Ind_('CH4'       )\n\n    ! Open files for diagnostic output\n    IF ( FIRST ) THEN\n       IF ( FIRST ) FIRST = .FALSE.\n\n       FILENAME = 'sat_obs.airs.00.m'\n       FILENAME = TRIM( Input_Opt%RUN_DIR ) //  TRIM( FILENAME )\n       OPEN( 118,      FILE=TRIM( FILENAME   ), STATUS='UNKNOWN', &\n            IOSTAT=IOS, FORM='FORMATTED',    ACCESS='SEQUENTIAL' )\n\n       ! Write header of sat_obs.NN.m\n       WRITE( 118, 281 ) '       NNN', &\n                         '   I', '   J', '     LON','     LAT','YYYY', &\n                         'MM', 'DD', 'hh', 'mm', 'ss',                 &\n                         '         TAU', '        AIRS',               &\n                         '       S_OBS',  '       model',              &\n                         '  model_orig',  'model_oldpw',               & !erp\n                         '       TropP', ' model_prior',               & !zyz\n                         '  model_trop', ' model_strat'                  !zyz\n281    FORMAT( A10,2x,A4,2x,A4,2x,A8,2x,A8,2x,A4,2x,A2,2x,A2,2x,A2,2x, &\n               A2,2x,A2,2x,A12,2x,A12,2x,A12,2x,A12,2x, A12,2x,        &\n               A12,2x, A12,2x, A12, 2x, A12, 2x, A12, 2x)\n\n       ! Set Total Observations = 0\n       TotalObs = 0\n\n    ENDIF ! FIRST\n\n    ! Read Observations at first call and at end of the day\n    IF ( FIRST .OR. ITS_A_NEW_DAY() ) THEN\n \n       ! Read the AIRS CH4 file for this month\n       YYYYMMDD = 1d4*GET_YEAR() + 1d2*GET_MONTH() + GET_DAY()\n       CALL READ_AIRS_CH4_OBS( YYYYMMDD, NAIRS )\n\n       ! Make sure there are observations on this day\n       IF ( NAIRS .EQ. -1 ) RETURN\n\n    ENDIF\n\n    ! Get indices of AIRS observations in the current hour\n    !   At the start of each hour, assimilate observations that \n    !   were made in the previous 60 minutes.\n    !   For example, at time 18:00, assimilate observations \n    !   made from 18:00 - 18:59\n    INDS(:) = 0\n    NOBS    = 0\n    !print*,'Looking for observations at MONTH, DAY, HOUR = ', &\n    !        GET_MONTH(), GET_DAY(), GET_HOUR()\n\n    DO NT = 1, NAIRS\n       IF ( AIRS(NT)%MONTH(1) .EQ. GET_MONTH() .AND. &\n            AIRS(NT)%DAY(1)   .EQ. GET_DAY()   .AND. &\n            AIRS(NT)%HOUR(1)  .EQ. GET_HOUR()  ) THEN\n          NOBS = NOBS + 1\n          INDS(NOBS) = NT\n          !print*,'Found a good observation! NT = ', NT\n       ENDIF\n    ENDDO\n\n    IF ( NOBS == 0 ) THEN\n       print*, ' No matching AIRS CH4 obs for this hour'\n       RETURN\n    ENDIF\n    print*, ' for day ',GET_YEAR(), GET_MONTH(), GET_DAY()\n    print*, ' for hour range: ', GET_HOUR(), GET_HOUR()+1\n    print*, ' found # AIRS observations: ', NOBS\n\n    ! Verify that incoming State_Chm%Species units are mol/mol dry air.\n    IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"mol/mol dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !! need to update this in order to do i/o with this loop parallel \n    !!      ! Now do a parallel loop for analyzing data \n    !!$OMP PARALLEL DO\n    !!$OMP+DEFAULT( PRIVATE )\n    !!!$OMP+PRIVATE( IND, NT, MAP, LGOS, IIJJ,  I, J,  L,   LL, JLOOP )\n    !!!$OMP+PRIVATE( GC_CH4, FORCE, CH4_PRIOR, GC_PRES, FILENAME      )\n    !!!$OMP+PRIVATE( GC_PEDGE, GC_PSURF, GC_CH4_NATIVE, GOS_XCH4      )\n    !!!$OMP+PRIVATE( GOS_XCH4_ERROR, S_OBS, h, p, XCH4a, XCH4m        )\n    !!!$OMP+PRIVATE( GC_XCH4, DIFF, DIFF_ADJ, GC_XCH4_ADJ             )\n    !!!$OMP+PRIVATE( GC_CH4_NATIVE_ADJ, GC_CH4_ADJ, TotalObs          )\n    DO IND = 1, NOBS\n\n       NT = INDS(IND)\n\n       ! Check for layers with valid retrieved value in data\n       CALL GET_VALID_LAYERS (NT, L0, L1, IFVALID)\n       IF ( .NOT. IFVALID ) THEN\n          print*, 'This retrieval appears to be invalid', NT\n          CYCLE\n       ENDIF\n\n       ! Skip Observations outside the domain\n       IF ( AIRS(NT)%LAT(1) < State_Grid%YMin .OR. &\n            AIRS(NT)%LAT(1) > State_Grid%YMax .OR. &\n            AIRS(NT)%LON(1) < State_Grid%XMin .OR. &\n            AIRS(NT)%LON(1) > State_Grid%XMax ) THEN\n          print*, ' Outside nested domain, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       ! Get grid box of current record\n       IIJJ = GET_IJ( REAL(AIRS(NT)%LON(1),4), &\n                      REAL(AIRS(NT)%LAT(1),4), &\n                      State_Grid )\n       I    = IIJJ(1)\n       J    = IIJJ(2)\n\n       ! skip observations where the AIRS surface  is much\n       ! lower than the model\n       IF ( (AIRS(NT)%PRES(L0) - State_Met%PEDGE(I,J,1)) > 50e0 ) THEN\n          print*, ' Psurf threshold not met, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       !------------------------------\n       ! Begin good observations\n       !------------------------------\n       print*,' Begin assimilating good observation. NT = ', NT\n\n       ! Get GC pressure levels (mbar) \n       DO L = 1, State_Grid%NZ\n          GC_PRES(L) = State_Met%PMID(I,J,L)\n       ENDDO\n\n       ! Get GC pressure edges (mbar) \n       DO L = 1, State_Grid%NZ+1\n          GC_PEDGE(L) = State_Met%PEDGE(I,J,L)\n       ENDDO\n\n       ! Get GC surface pressure (mbar) \n       GC_PSURF = State_Met%PEDGE(I,J,1) \n         \n       ! Get CH4 values at native model resolution [v/v]\n       GC_CH4_NATIVE(:) = 0.0_fp \n       GC_CH4_NATIVE(:) = State_Chm%Species(id_CH4)%Conc(I,J,:)\n\n       ! Get # mols of dry air in each gridbox\n       DRY_AIR(:) = 0.0_fp\n       DRY_AIR(:) =  State_Met%AIRDEN(I,J,:) * XNUMOLAIR * &\n                     1e-6_fp * State_Met%BXHEIGHT(I,J,:)*1e2_fp\n\n       WATER_VAPOR(:) = 0.0_fp\n       WATER_VAPOR(:) = State_Met%AVGW(I,J,:) \n\n       ! Use short names for clarity\n       p(:)      = AIRS(NT)%PRES(:)\n       ak1(:)    = AIRS(NT)%AVG_KERNEL(:)\n       prior(:)  = AIRS(NT)%PRIOR(:)\n       pres_w(:) = AIRS(NT)%P_WEIGHT(:)\n\n       ! Compute the AIRS layer that encloses tropopause\n       TropP = State_Met%TROPP(I,J)\n       CALL GET_TROP_LAYER(TropP, p, L0, L1, LTrop, WT_LTrop)\n\n       ! Convert from AIRS AK format to GOSAT AK format\n       CALL CONVERT_COL_AK(ak1, pres_w, L0, L1, ak2)\n\n       ! *****************************\n       !  SIMPLE LINEAR INTERPOLATION\n       ! *****************************\n       !   simple interpolation does not consider mass or dry air\n       !   it may result in loss of information if satellite grid \n       !   is lower resolution than model (see Rodgers 2000, and \n       !   Keppens et al. 2019)\n       !   this is what JDM, ZYZ, and AJT use \n       ! Calculate the interpolation weight matrix \n       MAP(:,:) = 0.0_fp\n       CALL GET_INTMAP_OLD( State_Grid, GC_PRES, GC_PSURF, &\n                            AIRS(NT)%PRES, L0, L1, MAP )\n\n       ! Interpolate GC CH4 column to AIRS grid\n       GC_CH4_ORIG(:) = 0.0_fp\n       DO LL = L0, L1\n          GC_CH4_ORIG(LL) = 0.0_fp\n          DO L = 1, State_Grid%NZ \n             GC_CH4_ORIG(LL) = GC_CH4_ORIG(LL) &\n                             + MAP(L,LL) * GC_CH4_NATIVE(L) \n          ENDDO\n       ENDDO\n\n       ! Compute the GEOS-Chem XCH4 corresponding to the observation\n       ! With AIRS pressure weighting\n       CALL CALC_GC_XCH4 (GC_CH4_ORIG, ak2, pres_w, prior, L0, L1, &\n                          LTROP, WT_LTROP, &\n                          GC_XCH4_ORIG, foo, & \n                          foo, foo)\n         \n       ! Calculate AJT and JDM pressure weighting\n       h = 0.0_fp\n       CALL CALC_PRES_WEIGHT_AJT (p, L0, L1, h)\n\n       ! Compute the GEOS-Chem XCH4 corresponding to the observation\n       ! Using AJT & JDM's pressure weighting\n       CALL CALC_GC_XCH4 (GC_CH4_ORIG, ak2, h, prior, L0, L1, &\n                          LTROP, WT_LTROP, &\n                          GC_XCH4_ORIG_oldpw, foo, & \n                          foo, foo)\n\n       ! **************************\n       !  MASS-BASED INTERPOLATION\n       ! **************************\n       !   Interpolate using new (mass-based) interp \n       !   that gets concentration on pressure **edges** \n       !   Function based on Keppens et al. 2019\n       !   erp, Oct 6, 2020\n\n       CALL MASS_INTERP( GC_PEDGE, AIRS(NT)%PRES, GC_CH4_NATIVE, &\n                         L0, State_Grid%NZ, AIRS(NT)%LAIRS(1),   &\n                         GC_CH4 )\n\n       ! Separate the impact prior, troposphere, and stratosphere\n       CALL CALC_GC_XCH4 (GC_CH4, ak2, pres_w, prior, L0, L1, &\n                          LTROP, WT_LTROP, &\n                          GC_XCH4, GC_XCH4_prior, &\n                          GC_XCH4_trop, GC_XCH4_strat)\n\n       TotalObs = TotalObs + 1\n       ! Record information for satellite diagnostics\n       IF ( LDCH4SAT ) THEN \n          WRITE( 118, 283 ) TotalObs, I, J, AIRS(NT)%LON(1), &\n             AIRS(NT)%LAT(1),AIRS(NT)%YEAR(1), &\n             AIRS(NT)%MONTH(1), AIRS(NT)%DAY(1), AIRS(NT)%HOUR(1), &\n             AIRS(NT)%MINUTE(1), AIRS(NT)%SECOND(1), GET_TAU(), &\n             AIRS(NT)%CH4(1), AIRS(NT)%CH4_ERROR(1), GC_XCH4, &\n             GC_XCH4_ORIG, GC_XCH4_ORIG_oldpw, TROPP, &\n             GC_XCH4_prior, GC_XCH4_trop, GC_XCH4_strat\n       ENDIF\n\n    ENDDO  ! NT\n    !!$OMP END PARALLEL DO\n\n283 FORMAT( I10,2x,I4,2x,I4,2x,F8.3,2x,F8.4,2x,I4,2x,I2,2x,I2,2x,I2, &\n            2x,I2,2x,I2,2x,F12.3,2x,E12.6,2x,E12.6,2x,E12.6, &\n            2x, E12.6,2x, E12.6,2x,  F12.3, 2x,E12.6, 2x, E12.6, 2x, &\n            E12.6,2x ) \n    print*, ' Number of observations this hour = ', NOBS\n    print*, ' Number of observations total     = ', TotalObs \n\n\n  END SUBROUTINE CALC_AIRS_CH4_FORCE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_intmap\n!\n! !DESCRIPTION: Function GET\\_INTMAP linearly interpolates column quatities\n!   based upon the centered (average) pressue levels.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_INTMAP_OLD( State_Grid, GCPCEN, GCPSURF, AIRSPEDGE, &\n                              L0, L1, INTMAP )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n    REAL(fp),       INTENT(IN)  :: GCPCEN(State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: GCPSURF\n    REAL(fp),       INTENT(IN)  :: AIRSPEDGE(MAXLEV) \n    INTEGER,        INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: INTMAP(State_Grid%NZ,MAXLEV)\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - M. Sulprizio- Initial version based on GOSAT CH4 observation\n!                              operator from GC Adjoint v35j\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: LGC, LTM\n    REAL(fp) :: DIFF, DELTA_SURFP\n    REAL(fp) :: LOW, HI\n\n    !=================================================================\n    ! GET_INTMAP begins here!\n    !=================================================================\n\n    ! Initialize\n    INTMAP(:,:) = 0e+0_fp\n\n    ! Loop over each pressure level of AIRS grid\n    DO LTM = L0, L1\n\n       ! Find the levels from GC that bracket level LTM\n       DO LGC = 1, State_Grid%NZ-1\n\n          LOW = GCPCEN(LGC+1)\n          HI  = GCPCEN(LGC)\n\n          ! Match GEOS-Chem level to AIRS level\n          IF ( AIRSPEDGE(LTM) <= HI .and. &\n               AIRSPEDGE(LTM)  > LOW) THEN \n\n             DIFF             = HI - LOW  \n             INTMAP(LGC+1,LTM) = ( HI - AIRSPEDGE(LTM)  ) / DIFF\n             INTMAP(LGC  ,LTM) = ( AIRSPEDGE(LTM) - LOW ) / DIFF\n\n          ENDIF\n\n       ENDDO\n\n    ENDDO\n\n    ! zyz- Need to check what this means?\n    ! Correct for case where AIRS pressure is higher than the\n    ! highest GC pressure center.  In this case, just 1:1 map. \n    DO LTM = L0, L1\n       IF ( AIRSPEDGE(LTM) > GCPCEN(1) ) THEN\n          INTMAP(:,LTM) = 0e+0_fp\n          INTMAP(1,LTM) = 1e+0_fp\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE GET_INTMAP_OLD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: get_trop_layer\n!\n! !DESCRIPTION: Find the AIRS layer that encloses tropopause and compute\n!  the fraction of this layer in the tropospher\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE GET_TROP_LAYER(TROPP, AIRSP, L0, L1, LTROP, WT_LTROP)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: TROPP\n    REAL(fp), INTENT(IN)  :: AIRSP(MAXLEV) \n    INTEGER,  INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,  INTENT(OUT) :: LTROP     !Layer encloses tropopause\n    REAL(fp), INTENT(OUT) :: WT_LTROP  !Fraction in troposphere\n!     \n! !REVISION HISTORY:\n!  21 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: L\n    REAL(fp)              :: AIRSP_HF(MAXLEV+1)\n\n    !Estimate the edge of AIRS layers\n    AIRSP_HF(L0) = AIRSP(L0) + (AIRSP(L0)-AIRSP(L0+1))/2.0_fp\n    DO L = L0, L1-1\n       AIRSP_HF(L+1) = (AIRSP(L)+AIRSP(L+1))/2e+0_fp\n    ENDDO\n    AIRSP_HF(L1+1) = AIRSP(L1) - (AIRSP(L1-1)-AIRSP(L1))/2.0_fp\n\n    !Find the layer that enclose the tropopause\n    !Estimate the WT_LTROP as the fraction of pressure\n    !difference in that layer\n    IF (TROPP.GE.AIRSP_HF(L0)) THEN\n       LTROP = L0 - 1\n       WT_LTROP = 1.0_fp\n    ELSE IF (TROPP.LT.AIRSP(L1+1)) THEN\n       LTROP = L1 + 1\n       WT_LTROP = 0.0_fp\n    ELSE\n       LTROP = L0\n       DO L = L0, L1\n          IF (TROPP < AIRSP_HF(L) .and. TROPP>= AIRSP_HF(L+1)) THEN\n             LTROP=L\n             WT_LTROP= (AIRSP_HF(L)-TROPP)/(AIRSP_HF(L)-AIRSP_HF(L+1))\n             EXIT\n          ENDIF\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE GET_TROP_LAYER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: get_valid_layers\n!\n! !DESCRIPTION: First check if the AIRS profile is valid; Second find the\n!  lowest and highest layer with valid number\n!\\\\\n!\\\\\n! !INTERFACE: \n! \n  SUBROUTINE GET_VALID_LAYERS (NT, L0, L1, IFVALID)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: NT\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: L0\n    INTEGER, INTENT(OUT) :: L1\n    LOGICAL, INTENT(OUT) :: IFVALID\n!     \n! !REVISION HISTORY:\n!  21 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: L\n\n    L0 = 0\n    L1 = 0\n    IFVALID = .TRUE.\n\n    ! check if CH4 column is missing\n    IF (AIRS(NT)%CH4(1) .LT. 0d0) THEN\n       IFVALID=.FALSE.\n    ENDIF\n\n    ! find the first nonmissing level\n    DO L = 1, AIRS(NT)%LAIRS(1) \n       IF( AIRS(NT)%PRIOR(L) .GT. 0d0 .AND. &\n           AIRS(NT)%PRES(L)  .GT. 0d0 .AND. &\n           AIRS(NT)%P_WEIGHT(L) .GT. 0d0 ) THEN\n          L0 = L\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! if there are no levels, obs. is invalid\n    IF (L0 .EQ. 0) THEN\n       IFVALID=.FALSE.\n       RETURN\n    ENDIF\n     \n    ! find the last nonmissing level\n    DO L = AIRS(NT)%LAIRS(1), 1, -1\n       IF( AIRS(NT)%PRIOR(L) .GT. 0d0 .AND. &\n           AIRS(NT)%PRES(L) .GT. 0d0 .AND. &\n           AIRS(NT)%P_WEIGHT(L) .GT. 0d0 ) THEN\n          L1 = L\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! if there are 3 or less levels, obs. is invalid\n    IF ((L1-L0).LE.3) THEN\n       IFVALID = .FALSE.\n       RETURN\n    ENDIF\n\n    ! if there are missing levels in the middle, \n    ! (not adjacent to the top/bottom), then obs. is invalid\n    DO L = L0, L1\n       IF( AIRS(NT)%PRIOR(L) .LE. 0d0 .AND. &\n           AIRS(NT)%PRES(L) .LE. 0d0 .AND. &\n           AIRS(NT)%AVG_KERNEL(L) .LT. -998d0 ) THEN\n          IFVALID=.FALSE.\n          EXIT\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE GET_VALID_LAYERS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: ak_log_to_linear\n!\n! !DESCRIPTION: Convert averaging kernel to linear\n!  See Zhang, L., Intercomparison methods for satellite measurements of\n!  atmospheric composition: application to tropospheric ozone from\n!  AIRS and OMI, Atmos. Chem. Phys. 10, 4,725-4,739, 2010\n!  AK0 in d ln(vmr)/d ln(vmr)\n!  AK1 in d vmr/ d vmr\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE AK_LOG_TO_LINEAR (AK0, PRIOR, L0, L1, AK1)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: AK0(MAXLEV, MAXLEV)\n    REAL(fp), INTENT(IN) :: PRIOR(MAXLEV)\n    INTEGER,  INTENT(IN) :: L0\n    INTEGER,  INTENT(IN) :: L1\n!\n! !OUTPUT PARAMETERS:\n!  \n    REAL(fp), INTENT(OUT) :: AK1(MAXLEV, MAXLEV)\n!     \n! !REVISION HISTORY:\n!  21 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: IL, JL\n\n    AK1(:,:) = -999d0\n    DO IL = L0, L1\n       DO JL = L0, L1\n          AK1(IL,JL) = AK0(IL,JL)*PRIOR(IL)/PRIOR(JL)\n       ENDDO\n    ENDDO\n\n  END SUBROUTINE AK_LOG_TO_LINEAR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_pres_weight_zyz\n!\n! !DESCRIPTION: Caluate the prssure weight for each AIRS layer\n!\\\\\n!\\\\\n! !INTERFACE: \n! \n  SUBROUTINE CALC_PRES_WEIGHT_ZYZ (PRES, L0, L1, PRES_WT)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: PRES(MAXLEV)\n    INTEGER,  INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: PRES_WT(MAXLEV)\n!     \n! !REVISION HISTORY:\n!  21 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: LL\n    REAL(fp) :: TOTWT\n\n    PRES_WT(:) = 0.0_fp\n    PRES_WT(L0) = PRES(L0)-PRES(L0+1)\n\n    DO LL = L0+1, L1-1\n       PRES_WT(LL) = (PRES(LL-1)-PRES(LL+1))/2.0_fp\n    ENDDO\n\n    PRES_WT(L1) = PRES(L1-1)-PRES(L1)\n    TOTWT = SUM(PRES_WT)\n    PRES_WT(:) = PRES_WT(:) / TOTWT\n\n  END SUBROUTINE CALC_PRES_WEIGHT_ZYZ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_pres_wright_ajt\n!\n! !DESCRIPTION: Compute GC_XCH4 with the h operator used in AJT and JDM's work\n!  This method seems to have two problems:\n!  1. It ignores the impact of  vertical variation in specific humidity\n!     on the weighting function\n!  2. The layer boundary here is at the altidue midpoint\n!     The paper that the UL-GOSAT paper cites uses pressure midpoint\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE CALC_PRES_WEIGHT_AJT (PRES, L0, L1, PRES_WT)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: PRES(MAXLEV)\n    INTEGER,  INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: PRES_WT(MAXLEV)\n!     \n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: p(MAXLEV), h(MAXLEV)\n    INTEGER  :: L\n\n    PRES_WT(:) = 0.0_fp\n    h = 0.0_fp\n    p = 0.0_fp\n    ! Need to integrate from the toa to surface \n    !    so flip order of layers (ajt, 05/21/13)\n    p(L0:L1) = PRES(L0:L1)\n    IF (L1 .GT. 1) THEN\n       IF(PRES(L0+1) .LT. PRES(L0)) THEN\n          p(1:L1) = p(L1:1:-1)\n       ENDIF\n    ENDIF\n\n    ! assign weight to TOA\n    L = 1\n    h(L) = 1./PRES(L0) * &\n           ABS(( -1e0*p(L) + ( (p(L+1)-p(L))/(LOG(p(L+1)/p(L))) ) ) )\n      \n    ! assign weight to surface\n    L = L1 - L0 + 1\n    h(L) = 1./PRES(L0) * &\n           ABS((  p(L) - ( (p(L)-p(L-1))/(LOG(p(L)/p(L-1))) ) ) )\n      \n    ! assign weights to middle layers\n    DO L=2,L1-L0\n       h(L) = 1./PRES(L0) * ABS( &\n              ( -1e0*p(L) + ( (p(L+1)-p(L))/(LOG(p(L+1)/p(L))) ) ) + &\n              (      p(L) - ( (p(L)-p(L-1))/(LOG(p(L)/p(L-1))) ) )   )\n    ENDDO\n\n    ! Now return to the orientation of the other variables\n    IF (L1 .GT. 1) THEN\n       ! erp includes bugfix 09/23/2019\n       IF(PRES(L0+1) .LT. PRES(L0)) THEN\n          h(L0:L1) = h(L1-L0+1:1:-1)\n          p(L0:L1) = p(L1-L0+1:1:-1)\n       ENDIF\n    ENDIF\n\n    PRES_WT(L0:L1) = h(L0:L1)\n\n  ENDSUBROUTINE CALC_PRES_WEIGHT_AJT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_col_ak\n!\n! !DESCRIPTION: Calcuate the column averaging kernel\n!  Aj = (h'A)j / hj\n!  See Worden et al, 2015 AMT, Quantifying lower tropospheric \n!  methane concentrations using GOSAT near-IR and AIRS thermal\n!  TIR measurements\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE CALC_COL_AK (AK1, PRES_WT, L0, L1, AK2)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: AK1(MAXLEV, MAXLEV)\n    REAL(fp), INTENT(IN)  :: PRES_WT(MAXLEV)\n    INTEGER,  INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: AK2(MAXLEV)\n!     \n! !REVISION HISTORY:\n!  21 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: I, J\n\n    AK2(:) = 0.0_fp\n    DO J = L0, L1\n       AK2(J) = SUM(AK1(L0:L1,J) * PRES_WT(L0:L1))\n    ENDDO\n    AK2(L0:L1) = AK2(L0:L1) / PRES_WT(L0:L1)\n\n  ENDSUBROUTINE CALC_COL_AK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: convert_col_ak\n!\n! !DESCRIPTION: Convert column averaging kernel - erp, July 15, 2020\n!  The GOSAT column averaging kenel is defined as:\n!  Aj = (h'A)j / hj\n!  But AIRS column averaging kernel is defined as:\n!  Aj = (h'A)j\n!  So we need to convert to the GOSAT format to use the default\n!  functions. \n!  See Worden et al, 2015 AMT, Quantifying lower tropospheric \n!  methane concentrations using GOSAT near-IR and AIRS thermal\n!  TIR measurements\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE CONVERT_COL_AK (AK1, PRES_WT, L0, L1, AK2)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: AK1(MAXLEV)\n    REAL(fp), INTENT(IN)  :: PRES_WT(MAXLEV)\n    INTEGER,  INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: AK2(MAXLEV)\n!     \n! !REVISION HISTORY:\n!  13 Sept 2019 - E. Penn - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: L\n      \n    AK2(:) = 0.0_fp\n    DO L = L0, L1\n       ! prevent dividing by zero \n       IF (PRES_WT(L) .LE. 0d0) THEN \n          AK2(L) = 0.0_fp\n       ELSE\n          AK2(L) = AK1(L) / PRES_WT(L)\n       ENDIF\n    ENDDO\n\n  ENDSUBROUTINE CONVERT_COL_AK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_airs_bias_correction\n!\n! !DESCRIPTION: Correct bias in the AIRS ORIGINAL_SPECIES variable. \n!  From email from J Worden, September 2018. \n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE CALC_AIRS_BIAS_CORRECTION(CH4, AK, PRES, L0, L1, CH4_CORRECTED)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: CH4(MAXLEV)\n    REAL(fp), INTENT(IN)  :: AK(MAXLEV, MAXLEV)\n    REAL(fp), INTENT(IN)  :: PRES(MAXLEV)\n    INTEGER,  INTENT(IN)  :: L0, L1\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: CH4_CORRECTED(MAXLEV)\n!     \n! !REVISION HISTORY:\n!  13 Sept 2019 - E. Penn - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I, NTROPINDS\n    INTEGER  :: TROPINDS(MAXLEV)\n    REAL(fp) :: BIAS(MAXLEV), DELTA(MAXLEV)\n      \n    ! Find indicies of pres > 150 (~trop)\n    TROPINDS(:) = 0\n    NTROPINDS = 1\n    DO I = L0,L1\n       IF ( PRES(I) > 150.0_fp ) THEN\n          TROPINDS(NTROPINDS) = I\n          NTROPINDS = NTROPINDS+1\n       ENDIF\n    ENDDO\n     \n    BIAS(:) = 0.0_fp\n    BIAS(TROPINDS(1:NTROPINDS)) = -0.038_fp - 0.006_fp\n    ! perform matrix multiplication AK * BIAS\n    DO I = L0,L1\n       DELTA(I) = SUM(AK(I,L0:L1) * BIAS(L0:L1))\n    ENDDO\n    CH4_CORRECTED(L0:L1) = CH4(L0:L1) + DELTA(L0:L1) * CH4(L0:L1)\n      \n  ENDSUBROUTINE CALC_AIRS_BIAS_CORRECTION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_airs_xch4\n!\n! !DESCRIPTION: Calcuate the XCH4 as observed by AIRS\n!  Average CH4 mixing ratio weighted by pressure layer thickness\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE CALC_AIRS_XCH4 (CH4, PRES_WT, L0, L1, XCH4)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: CH4(MAXLEV)\n    REAL(fp), INTENT(IN) :: PRES_WT(MAXLEV)\n    INTEGER,  INTENT(IN) :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: XCH4\n!     \n! !REVISION HISTORY:\n!  21 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    XCH4 = SUM( CH4(L0:L1) * PRES_WT(L0:L1))\n      \n  ENDSUBROUTINE CALC_AIRS_XCH4\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_gc_xch4\n!\n! !DESCRIPTION: Add computation to record separate tropospheric contribution\n!  to XCH4, zyz, Sept 19, 2018\n!  We can record XCH4_prior, XCH4_trop, XCH4_strat, \n!  so startospheric bias correction can be done offline\n!  XCH4m = XCH4a + XCH4c \n!        = SUM(l) (wl*pl) + SUM(l) (wl*al*(ml-pl))\n!        = SUM(l) ((1-al)*wl*pl) + SUM(l) (al*wl*ml)\n!        = SUM(l) ((1-al)*wl*pl) +       ===> XCH4m_prior\n!          SUM(l<=LTROP) (al*wl*ml) +    ===> XCH4m_trop\n!          SUM(l>LTROP) (al*wl*ml)       ===> XCH4m_strat\n!  .\n!  wl: weight for layer l\n!  pl: prior mixing ratio at layer l\n!  ml: model mixing ratio at layer l\n!  al: column averaging kernel at layer l\n!  LTROP: layer of tropopause\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE CALC_GC_XCH4( GC_CH4, AK2, PRES_WT, PRIOR, L0, L1, &\n                           LTROP, WT_LTROP, &\n                           XCH4, XCH4_prior, XCH4_trop, XCH4_strat)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: GC_CH4(MAXLEV), AK2(MAXLEV) \n    REAL(fp), INTENT(IN)  :: PRIOR(MAXLEV), PRES_WT(MAXLEV)\n    INTEGER,  INTENT(IN)  :: L0, L1, LTROP\n    REAL(fp), INTENT(IN)  :: WT_LTROP\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: XCH4, XCH4_prior, XCH4_trop, XCH4_strat\n!     \n! !REVISION HISTORY:\n!  19 Sept 2018 - Yuzhong Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: L\n\n    ! Calculate XCH4_prior\n    XCH4_PRIOR = 0.0_fp\n    DO L = L0, L1\n       XCH4_PRIOR = XCH4_PRIOR + (1.0_fp - AK2(L)) * PRES_WT(L) * PRIOR(L)\n    ENDDO\n\n    ! Calculate XCH4_trop\n    XCH4_trop = 0.0_fp\n    DO L = L0, LTROP\n       XCH4_trop = XCH4_trop + AK2(L) * PRES_WT(L) * GC_CH4(L)\n    ENDDO\n    IF (LTROP .ge. L0) THEN\n       XCH4_trop = XCH4_trop - (1.0_fp - WT_LTROP) * &\n                   AK2(LTROP) * PRES_WT(LTROP) * GC_CH4(LTROP)\n    ENDIF\n\n    ! Calculate XCH4_strat\n    XCH4_strat = 0.0_fp\n    DO L = LTROP, L1\n       XCH4_strat = XCH4_strat + AK2(L) * PRES_WT(L) * GC_CH4(L)\n    ENDDO\n    IF (LTROP .le. L1) THEN\n       XCH4_strat = XCH4_strat - WT_LTROP * &\n                    AK2(LTROP) * PRES_WT(LTROP) * GC_CH4(LTROP)\n    ENDIF\n \n    ! Calculate total column\n    XCH4 = XCH4_PRIOR + XCH4_trop + XCH4_strat\n\n  END SUBROUTINE CALC_GC_XCH4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: h_to_hprime\n!\n! !DESCRIPTION: Calculate HPRIME pressure edges from equation 11 of Keppens 2019\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE H_TO_HPRIME( OBS_PEDGE, L0, nlev_obs, HPRIME )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: nlev_obs, L0\n    REAL(fp), INTENT(IN)  :: OBS_PEDGE(nlev_obs)\n!         \n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: HPRIME(nlev_obs+1)\n      !     \n! !REVISION HISTORY:\n!  06 Oct 2020 - E. Penn - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: L\n\n    ! Initialize\n    HPRIME(:) = -9999.0_fp  ! this is your missing value\n         \n    HPRIME(L0) = OBS_PEDGE(L0)\n    HPRIME(nlev_obs+1) = OBS_PEDGE(nlev_obs)\n    ! Loop over each pressure level of observation grid\n    DO L = L0+1, nlev_obs\n       HPRIME(L) = 0.5_fp*OBS_PEDGE(L) + 0.5_fp*OBS_PEDGE(L-1)\n    ENDDO\n       \n  END SUBROUTINE H_TO_HPRIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: extend_gc\n!\n! !DESCRIPTION: Extend GEOS-Chem pressure leveys so they cover the full\n! vertical range of the observations\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXTEND_GC( GC_PEDGE, OBS_PEDGE, L0, &\n                        nlev_gc, nlev_obs, GC_PEDGE_EXT )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: nlev_obs, nlev_gc, L0\n    REAL(fp), INTENT(IN) :: GC_PEDGE(nlev_gc+1)\n    REAL(fp), INTENT(IN) :: OBS_PEDGE(nlev_obs)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: GC_PEDGE_EXT(nlev_gc+1)\n!     \n! !REVISION HISTORY:\n!  13 Sept 2019 - E. Penn - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Initialize\n    GC_PEDGE_EXT(:) = 0.0_fp\n    GC_PEDGE_EXT(:) = GC_PEDGE(:)\n         \n    ! if observation surf pres. is higher than model, then\n    ! extend the surface model layer down to the obs. surface\n    IF ( OBS_PEDGE(L0) > GC_PEDGE(1) ) THEN\n       GC_PEDGE_EXT(1) = OBS_PEDGE(L0)\n    ENDIF\n         \n    ! if observation TOA pres. is lower than model, then \n    ! extend the top model layer up to the obs. TOA\n    IF ( OBS_PEDGE(nlev_obs) < GC_PEDGE(nlev_gc+1) ) THEN\n       GC_PEDGE_EXT(nlev_gc+1) = OBS_PEDGE(nlev_obs)\n    ENDIF\n       \n  END SUBROUTINE EXTEND_GC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: get_overlap_map\n!\n! !DESCRIPTION: OVERLAP_MAP is W in eq 13 of Keppens 2019\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_OVERLAP_MAP( GC_PEDGE, OBS_PEDGE, &\n                              L0, nlev_gc, nlev_obs, OVERLAP_MAP)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: nlev_gc\n    INTEGER,  INTENT(IN)  :: nlev_obs\n    REAL(fp), INTENT(IN)  :: GC_PEDGE(nlev_gc)\n    REAL(fp), INTENT(IN)  :: OBS_PEDGE(nlev_obs)\n    INTEGER,  INTENT(IN)  :: L0 ! lowest valid observation level \n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: OVERLAP_MAP(nlev_obs-1,nlev_gc-1)\n!\n! !REVISION HISTORY:\n!  23 Sep 2020 - Elise Penn - get map of layer overlaps based on interpolation\n!                             in Langerock et a. 2015 and used in equation 13 of\n!                             Keppens et al. 2019. \n!                             See description of \"mass-conserved regridding\" in\n!                             Keppens et al. 2019: \n!                             https://doi.org/10.5194/amt-12-4379-2019\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: LGC, LTM\n    REAL(fp) :: DIFF\n    REAL(fp) :: LOW_GC, HI_GC\n    REAL(fp) :: LOW_OBS, HI_OBS\n\n    !=================================================================\n    ! GET_OVERLAP_MAP begins here!\n    !=================================================================\n\n    ! Initialize\n    OVERLAP_MAP(:,:) = 0e+0_fp\n         \n    ! Loop over each pressure level of observation retrieval grid\n    DO LTM = L0, nlev_obs-1\n\n       LOW_OBS = OBS_PEDGE(LTM+1)\n       HI_OBS  = OBS_PEDGE(LTM)\n                 \n       ! Find the levels from GC that bracket level LTM\n       DO LGC = 1, nlev_gc-1\n\n          LOW_GC = GC_PEDGE(LGC+1)\n          HI_GC  = GC_PEDGE(LGC)\n\n          ! Match GEOS-Chem level to observation level\n          IF ( ( HI_OBS  <= HI_GC .and.    &\n                 HI_OBS  >  LOW_GC ) .or.  &\n               ( LOW_OBS <= HI_GC .and.    &\n                 LOW_OBS >  LOW_GC ) .or.  &\n               ( HI_GC   <= HI_OBS .and.   &\n                 HI_GC   >  LOW_OBS ) .or. &\n               ( LOW_GC  <= HI_OBS .and.   &\n                 LOW_GC  >  LOW_OBS ) ) THEN\n\n             DIFF             = HI_GC- LOW_GC\n             OVERLAP_MAP(LTM,LGC) = ( MIN(HI_OBS,HI_GC) - &\n                                      MAX(LOW_OBS,LOW_GC) ) / DIFF\n             \n          ENDIF\n\n       ENDDO\n\n    ENDDO\n         \n  END SUBROUTINE GET_OVERLAP_MAP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: mass_interp\n!\n! !DESCRIPTION: Perform interpolation from model levels to the levels of your\n!  observation, erp, Oct 6, 2020\n!  The interpolation redistributes mass between model and \n!  observation layers, then returns it to the edges of \n!  the layers for application of the AK and pressure weights.   \n!  Based on equation 13 of Keppens 2019\n!\\\\\n!\\\\\n! !INTERFACE: \n!\n  SUBROUTINE MASS_INTERP( GC_PEDGE, OBS_PEDGE, GC_CH4_NATIVE, L0, &\n                          nlev_gc, nlev_obs, CH4_INTERP_EDGES )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: nlev_obs, nlev_gc, L0\n    REAL(fp), INTENT(IN) :: GC_PEDGE(nlev_gc+1)\n    REAL(fp), INTENT(IN) :: GC_CH4_NATIVE(nlev_gc)\n    REAL(fp), INTENT(IN) :: OBS_PEDGE(nlev_obs)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: CH4_INTERP_EDGES(nlev_obs)\n!     \n! !REVISION HISTORY:\n!  06 Oct 2020 - E. Penn - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: GC_PEDGE_EXT(nlev_gc+1), OBS_HPRIME(nlev_obs+1)\n    REAL(fp) :: OVERLAP_MAP(nlev_obs,nlev_gc)\n    REAL(fp) :: M_obs(nlev_obs), M_gc(nlev_gc)\n    REAL(fp) :: CH4_INTERP_INTEGRATED(nlev_obs)\n    REAL(fp) :: CH4_MODEL_INTEGRATED(nlev_gc)\n\n    INTEGER  :: LGC, LOBS\n         \n    ! Initialize\n    CH4_INTERP_EDGES(:) = 0.0_fp ! note your missing value is 0\n         \n    ! extend GEOS-Chem so it covers the full vertical range \n    !   of the observations\n    CALL EXTEND_GC( GC_PEDGE, OBS_PEDGE, L0, nlev_gc+1, nlev_obs, &\n                    GC_PEDGE_EXT )\n\n    ! calculate HPRIME pressure edges from equation 11\n    CALL H_TO_HPRIME( OBS_PEDGE, L0, nlev_obs, OBS_HPRIME )\n\n    ! OVERLAP_MAP is W in eq 13\n    CALL GET_OVERLAP_MAP( GC_PEDGE_EXT, OBS_HPRIME, L0, nlev_gc+1, &\n                          nlev_obs+1, OVERLAP_MAP )\n         \n    ! M_gc and M_obs are M_in and M_out from eq 14\n    ! They are diagonal matrices, so we can use a vector\n    M_gc(:) = 0.0_fp\n    DO LGC = 1, nlev_gc\n       M_gc(LGC) = GC_PEDGE_EXT(LGC) - GC_PEDGE_EXT(LGC+1)\n    ENDDO\n    M_obs(:) = 0.0_fp\n    DO LOBS = L0, nlev_obs\n       M_obs(LOBS) = OBS_HPRIME(LOBS) - OBS_HPRIME(LOBS+1)\n    ENDDO\n         \n    ! Intermediate steps for eq 14:\n    ! 1) M_in * x\n    CH4_MODEL_INTEGRATED(:) = 0.0_fp\n    DO LGC = 1, nlev_gc\n       CH4_MODEL_INTEGRATED(LGC) = M_gc(LGC) * GC_CH4_NATIVE(LGC)\n    ENDDO\n\n    ! 2) W * M_in * x (matrix multiply W and M_in*x)\n    CH4_INTERP_INTEGRATED(:) = 0.0_fp\n    DO LGC = 1, nlev_gc\n       DO LOBS = L0, nlev_obs\n          CH4_INTERP_INTEGRATED(LOBS) = CH4_INTERP_INTEGRATED(LOBS) + &\n               OVERLAP_MAP(LOBS,LGC) * CH4_MODEL_INTEGRATED(LGC)\n       ENDDO\n    ENDDO\n\n    ! 3) inv(M_out) * W * M_in * x\n    DO LOBS = L0, nlev_obs\n       ! inv(M_out) = 1/M_out because it is diagonal\n       CH4_INTERP_EDGES(LOBS) = 1.0_fp/M_obs(LOBS) * CH4_INTERP_INTEGRATED(LOBS)\n    ENDDO\n         \n  END SUBROUTINE MASS_INTERP\n!EOC\nEND MODULE AIRS_CH4_MOD\n"
  },
  {
    "path": "GeosCore/apm_driv_mod.F90",
    "content": "#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: apm_driv_mod\n!\n! !DESCRIPTION: Module APM\\_DRIV\\_MOD contains variables and routines to drive\n!  the Advanced Particle Microphysics (APM) model.  It serves as the\n!  interface between APM module and the 3D model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE APM_DRIV_MOD\n\n  USE PRECISION_MOD\n  USE PhysConstants\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER, PARAMETER,   PUBLIC :: NTEMPOUT1 = 82\n!\n! !PUBLIC DATA MEMBERS:\n!\n  INTEGER,              PUBLIC :: NPOUTSTEPS\n  INTEGER,              PUBLIC :: NTEMPOUT\n  LOGICAL,              PUBLIC :: IFTEMPOUT\n\n  REAL*4,  ALLOCATABLE, PUBLIC :: T3DAPM(:,:,:,:,:)\n  REAL*4,  ALLOCATABLE, PUBLIC :: RH3DAPM(:,:,:,:,:)\n  REAL*4,  ALLOCATABLE, PUBLIC :: PBLH2DAPM(:,:,:,:)\n\n  REAL*8,  ALLOCATABLE, PUBLIC :: EMITNH3(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: EMITSO2(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: DRYDEP(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: WETDEP(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: CONDEP(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: UPTAKE(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: OXIDAT(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: FCLOUD(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: GFTOT3D(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: DENWET3D(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: MWSIZE3D(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: SO2toSO4(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: PLVSOG(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: BCLIFE(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: OCLIFE(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: TEMPOUT(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: SPGF(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: TAONH3(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: YCOD3D(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: TCOD3D(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: YHTRC3D(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: YHTR3D(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: YHTRC03D(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: YHTR03D(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: YUV(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: AERAREA(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: AERDRYR(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: GAMMAPM(:,:,:,:)\n\n  ! Bin index for cloud act diameters taking into account uptake of\n  ! NIT, NH4, SOA\n  INTEGER, ALLOCATABLE, PUBLIC :: IACT1(:,:,:)\n  INTEGER, ALLOCATABLE, PUBLIC :: IACT2(:,:,:)\n  INTEGER, ALLOCATABLE, PUBLIC :: IACT3(:,:,:)\n\n  ! H2SO4 gas production rate\n  REAL*8,  ALLOCATABLE, PUBLIC :: PSO4GAS(:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: XO3(:,:,:)\n\n  !Yu+ seasalt SST correction\n  REAL*8,  ALLOCATABLE, PUBLIC :: FSST(:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: XBEXT1k3D(:,:,:,:)\n\n  !GanLuo+ add satellite local time\n  INTEGER, ALLOCATABLE :: GOOD(:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: CODOUT(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC :: CODOUTNUM(:,:,:)\n\n  REAL*8,  ALLOCATABLE :: MODISOUT(:,:,:)\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: APM_DRIV\n  PUBLIC  :: AERONUM\n  PUBLIC  :: INIT_APM3D\n  PUBLIC  :: CLEANUP_APM3D\n  PUBLIC  :: APM_RADFOUT\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: APM_RADFDRIV\n  PRIVATE :: APM3DQGEOS\n  PRIVATE :: GET_OH\n!\n! !REMARKS:\n!  The APM model was designed and developed for implementation into GEOS-Chem\n!  by Fangqun Yu and Gan Luo at State University of New York (SUNY) at Albany.\n!  (Emails: yfq@asrc.cestm.albany.edu; ganluo@asrc.cestm.albany.edu)\n!                                                                             .\n!  Fangqun focused on overall strategy, aerosol structure (bins, compositions,\n!  types, mixing states) design, computationally efficient schemes, particle\n!  microphysics (nucleation, growth, coagulation), model evaluation and\n!  improvement, and model application.\n!  Gan focused on overall strategy, integration of APM with GEOS-Chem, model\n!  input, emission, transport, size-resolved dry deposition and wet scavenging,\n!  output visualization, and model application.\n!                                                                             .\n!  The major reference of the APM model implemented in GEOS-Chem is:\n!                                                                             .\n!  1. Yu, F., and G. Luo, Simulation of particle size distribution with a\n!        global aerosol model: Contribution of nucleation to aerosol and CCN\n!        number concentrations, Atmos. Chem. Phys., 9, 7691-7710, 2009.\n!                                                                             .\n!  The APM model is an advanced multi-type, multi-component, size-resolved\n!  microphysics model developed for a wide range of applications. The current\n!  APM model is the result of the past developments and validation efforts\n!  aimed at explaining atmospheric particle observations, reported in a\n!  number of previous publications including:\n!                                                                             .\n!  2. Turco, R. P., Hamill, P., Toon, O. B., Whitten, R. C., and Kiang, C. S.:\n!        A one-dimensional model describing aerosol formation and evolution in\n!        the stratosphere, Part I, Physical processes and mathematical analogs,\n!        J. Atmos. Sci., 36, 699-717, 1979.\n!  3. Toon, O. B., Turco, R. P., Westphal, D., Malone, R., and Liu, M. S.: A\n!        multidimensional model for aerosols: Description of computational\n!        analogs, J. Atmos. Sci., 45, 2123-2143, 1988.\n!  4. Jacobson, M., Turco, R., Jensen, E. and Toon O.: Modeling coagulation\n!        among particles of different composition and size, Atmos. Environ.,\n!        28, 1327-1338, 1994.\n!  5. Jacobson, M. Z., and Turco, R. P.: Simulating condensational growth,\n!        evaporation and coagulation of aerosols using a combined moving and\n!        stationary size grid, Aerosol Sci. Tech., 22, 73-92, 1995.\n!  6. Yu, F., and R. P. Turco: The role of ions in the formation and evolution\n!        of particles in aircraft plumes, Geophys. Res. Lett., 24, 1927-1930,\n!        1997.\n!  7. Yu, F.: A Study of the Formation and Evolution of Aerosols and Contrails\n!        in Aircraft Wakes: Development, Validation and Application of an\n!        Advanced Particle Microphysics (APM) Model, Doctoral Dissertation,\n!        UCLA, 1998.\n!  8. Yu, F., From molecular clusters to nanoparticles: Second-generation\n!        ion-mediated nucleation model, Atmos. Chem. Phys.,6, 5193-5211, 2006.\n!  9. Yu, F., and R. P. Turco, Case studies of particle formation events\n!        observed in boreal forests: Implications for nucleation mechanisms,\n!        Atmos. Chem. Phys., 8, 6085-6102, 2008.\n!                                                                             .\n!  While the core components of the present APM model implemented in GEOS-Chem\n!  was written from scratch using fortran 95, some algorithms and ideas were\n!  inherited from the above mentioned references.\n!                                                                             .\n!  For more information and updates, please check the APM aerosol microphysics\n!  wiki page\n!  http://wiki.seas.harvard.edu/geos-chem/index.php/APM_aerosol_microphysics.\n!\n! !REVISION HISTORY:\n!  8/2008 - 10/2010 - F. Yu & G. Luo  - Initial versions\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  REAL*8,        ALLOCATABLE :: XN4D(:,:,:,:)\n  REAL*8,  SAVE, ALLOCATABLE :: XQ3D(:,:,:)\n  INTEGER,       ALLOCATABLE :: NCOAG3D(:,:,:,:)\n  INTEGER,       ALLOCATABLE :: IFOUTIJ(:,:)\n  INTEGER,       ALLOCATABLE :: SITEID(:,:)\n\n  REAL*8,        ALLOCATABLE :: RCLDL3D(:,:,:)\n  REAL*8,        ALLOCATABLE :: CDN3D(:,:,:)\n  REAL*8,        ALLOCATABLE :: RCLDI3D(:,:,:)\n  REAL,          ALLOCATABLE :: RCLDI2D(:,:)\n  REAL*8,        ALLOCATABLE :: IN3D(:,:,:)\n\n  REAL*8,        ALLOCATABLE :: MASSISRP(:,:,:,:)\n  REAL*8,        ALLOCATABLE :: MASSMESA(:,:,:,:)\n\n  !INTEGER, PARAMETER :: MWL=5   ! 0.3, 0.55, 0.94, 1.785, 3.19 um\n  INTEGER, PARAMETER :: MWL=16   !\n  !DATA YWLS/0.23,0.30,0.39,0.50,0.53,0.55,0.70,1.01, &\n  !          1.27,1.46,1.78,2.05,2.33,2.79,3.46,8.02/\n  INTEGER, PARAMETER :: KOUT1 = 3   !390 nm\n  !INTEGER, PARAMETER :: KOUT2 = 6   !550 nm\n  !INTEGER, PARAMETER :: KOUT2 = 4   !500 nm\n  INTEGER, PARAMETER :: KOUT2 = 5   !530 nm\n  INTEGER, PARAMETER :: KOUT3 = 7   !700 nm\n\n  REAL*8,  PARAMETER   :: MAIR         = 28.966d-3           ! kg/mol\n\n  REAL*8  :: YWLS(MWL)\n  INTEGER :: IWL,ITYP\n  REAL*8  :: ZBEXT(MWL),ZW(MWL),ZG(MWL)\n\n  REAL*8,        ALLOCATABLE :: ZBEXT3D(:,:,:,:)\n  REAL*8,        ALLOCATABLE :: ZW3D(:,:,:,:)\n  REAL*8,        ALLOCATABLE :: ZG3D(:,:,:,:)\n\n  !OPT each aerosol species\n  INTEGER, PARAMETER :: NTYP = 5\n  REAL*8  :: YBEXT(NTYP,MWL),YW(NTYP,MWL),YG(NTYP,MWL)\n  REAL*8  :: XBEXT1k(40,5)\n\n  REAL*8,        ALLOCATABLE :: YBEXT3D(:,:,:,:,:)\n  REAL*8,        ALLOCATABLE :: YW3D(:,:,:,:,:)\n  REAL*8,        ALLOCATABLE :: YG3D(:,:,:,:,:)\n\n  ! mxy +longwave\n  INTEGER, PARAMETER :: NWL=9   ! 4.3,5.,6.,8.1,9.6,11.6,15.8,24.0,35. um\n  REAL*8  :: ZBABS(NWL)\n\n  REAL*8,        ALLOCATABLE :: ZBABS3D(:,:,:,:)\n\n  ! for output\n  !INTEGER, PARAMETER :: NBS = 4   !CCCMa\n  INTEGER, PARAMETER    :: NBS = 14   !rrtmg\n  INTEGER, PARAMETER    :: NBL = 9\n  INTEGER               :: NWLS(NBS)\n  REAL,    ALLOCATABLE  :: ALBDRR(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTCST(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTCSB(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTFST(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTFSB(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTFSA(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTCLT(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTCLB(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTFUL(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTFDL(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTFLA(:,:,:)\n  REAL,    ALLOCATABLE  :: ZTAOD(:,:,:)\n  REAL,    ALLOCATABLE  :: ZCLDF(:,:)\n  REAL,    ALLOCATABLE  :: ZALB(:,:)\n  REAL,    ALLOCATABLE  :: ZMALB(:,:,:)\n  REAL,    ALLOCATABLE  :: ZCST(:,:)\n  REAL,    ALLOCATABLE  :: ZCSB(:,:)\n  REAL,    ALLOCATABLE  :: ZFST(:,:)\n  REAL,    ALLOCATABLE  :: ZCLD(:,:)\n  REAL,    ALLOCATABLE  :: ZCLD0(:,:)\n  REAL,    ALLOCATABLE  :: ZFSB(:,:)\n  REAL,    ALLOCATABLE  :: ZFSA(:,:)\n  REAL,    ALLOCATABLE  :: ZCLT(:,:)\n  REAL,    ALLOCATABLE  :: ZCLB(:,:)\n  REAL,    ALLOCATABLE  :: ZFUL(:,:)\n  REAL,    ALLOCATABLE  :: ZFDL(:,:)\n  REAL,    ALLOCATABLE  :: ZFLA(:,:)\n  REAL,    ALLOCATABLE  :: ZAOD(:,:)\n  REAL,    ALLOCATABLE  :: ZCOD(:,:)\n  REAL,    ALLOCATABLE  :: ZCODGC(:,:)\n  REAL,    ALLOCATABLE  :: ZAODOUT1(:,:)\n  REAL,    ALLOCATABLE  :: ZAODOUT3(:,:)\n  REAL,    ALLOCATABLE  :: ZAOD25(:,:)\n  REAL,    ALLOCATABLE  :: ZAOD50(:,:)\n  REAL,    ALLOCATABLE  :: ZAOD75(:,:)\n  INTEGER, ALLOCATABLE  :: NAOD25(:,:)\n  INTEGER, ALLOCATABLE  :: NAOD50(:,:)\n  INTEGER, ALLOCATABLE  :: NAOD75(:,:)\n  REAL,    ALLOCATABLE  :: ZVIS(:,:)\n  REAL,    ALLOCATABLE  :: THAZ(:,:)\n  REAL,    ALLOCATABLE  :: TFOG(:,:)\n  REAL,    ALLOCATABLE  :: ZAAOD(:,:)\n  REAL,    ALLOCATABLE  :: ZAAODOUT1(:,:)\n  REAL,    ALLOCATABLE  :: ZAAODOUT3(:,:)\n  REAL,    ALLOCATABLE  :: ZABS(:,:)\n  REAL,    ALLOCATABLE  :: ZWCL(:,:)\n  REAL,    ALLOCATABLE  :: ZWCI(:,:)\n  REAL,    ALLOCATABLE  :: AOD(:,:)\n  REAL,    ALLOCATABLE  ::  AAOD(:,:)\n  REAL,    ALLOCATABLE  :: AODOUT1(:,:)\n  REAL,    ALLOCATABLE  :: AAODOUT1(:,:)\n  REAL,    ALLOCATABLE  :: AODOUT3(:,:)\n  REAL,    ALLOCATABLE  :: AAODOUT3(:,:)\n  REAL,    ALLOCATABLE  :: CODGC(:,:)\n  REAL,    ALLOCATABLE  :: TAOD(:,:,:)\n\n  !DATA YWLS/ 0.34,0.38,0.443,0.469,0.5,0.554,0.645,0.675, &\n  !           0.865,0.94,1.02,1.24,1.64,1.785,2.13,3.19/ ! um\n  DATA YWLS/0.23,0.30,0.39,0.50,0.53,0.55,0.70,1.01, &\n            1.27,1.46,1.78,2.05,2.33,2.79,3.46,8.02/\n\n  DATA NWLS/15,14,13,12,11,10,9,8,7,5,3,2,1,16/  !position of RRTMG WL in LT\n\n  REAL(fp),  ALLOCATABLE :: TCOSZ(:,:)\n  REAL(fp),  ALLOCATABLE :: TTDAY(:,:)\n  REAL(fp),  ALLOCATABLE :: COSZM(:,:)\n\n  REAL(fp),  PARAMETER   :: XNUMOL_OH   = 6.022e+23_fp / 17e-3_fp\n  REAL(fp),  PARAMETER   :: CM3PERM3    = 1.e6_fp\n\n  !Yu for output\n  REAL(f4),  POINTER     :: OH(:,:,:)  => NULL()\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_driv\n!\n! !DESCRIPTION: Subroutine APM\\_DRIV is the interface between APM and\n!  the GEOS-Chem model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE APM_DRIV( Input_Opt,  State_Chm, State_Diag, &\n                       State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE TIME_MOD,     ONLY : GET_TS_CHEM, ITS_A_NEW_MONTH\n    USE PRESSURE_MOD, ONLY : GET_PCENTER\n    USE PRESSURE_MOD, ONLY : GET_PEDGE            !\n    USE APM_INIT_MOD, ONLY : NGCOND,NSO4,NSEA,NDSTB\n    USE APM_INIT_MOD, ONLY : NCTSO4,NCTBC,NCTOC,NCTDST,NCTSEA,NBCOC\n    USE APM_INIT_MOD, ONLY : IFNOBCOCFF\n    USE APM_INIT_MOD, ONLY : IY\n    USE APM_INIT_MOD, ONLY : AGAMA\n\n    USE TIME_MOD,     ONLY : GET_YEAR, GET_MONTH\n    USE TIME_MOD,     ONLY : GET_DAY,GET_HOUR,GET_MINUTE\n\n    USE APM_PHYS_MOD, ONLY : APM_PHYS\n    USE APM_INIT_MOD, ONLY : IFNUCL,IFAG,IFCOATBC,NUCLAMINE,IFATHN\n    USE APM_INIT_MOD, ONLY : IFOPT  !Yu + OPT switch\n    USE APM_INIT_MOD, ONLY : IFRADF  !Yu + RADF switch\n    USE APM_INIT_MOD, ONLY : IFDOISRP\n    USE APM_INIT_MOD, ONLY : XMACID,XMLVSOG,M1ACID,M1LVSOG\n    USE APM_INIT_MOD, ONLY : RDRY,RSALT,RDST\n    USE APM_COAG_MOD, ONLY : READCK6DTABLE\n    USE APM_INIT_MOD, ONLY : MAXSITE,MSITE,ISITES,JSITES,LOUT\n    USE APM_INIT_MOD, ONLY : SITEOUT2D\n    USE APM_INIT_MOD, ONLY : IFSITE,IFSITEOUT,IFQANN,IFATOM\n    USE APM_INIT_MOD, ONLY : ATOMMONS,ATOMDAYS,ATOMMONE,ATOMDAYE\n    USE APM_ICEN_MOD, ONLY : nucleati\n    USE APM_INIT_MOD, ONLY : APMIDS\n\n    use rrtmg_sw_init, only: rrtmg_sw_ini\n    use rrtmg_sw_GCAPM, only : cldprop_swapm\n\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE TIME_MOD,       ONLY : GET_LOCALTIME\n\n    use parkind,        only : im => kind_im, rb => kind_rb\n\n    USE HETP_mod,             ONLY : mach_hetp_main_15cases\n    use module_mosaic_therm, only: mosaic\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  8/2008 - 10/2010 - F. Yu & G. Luo  - Initial versions\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    real(kind=8), parameter :: cpdair = 1.004e3  ! Specific heat capacity\n                                                 ! of dry air at constant\n                                                 ! pressure at 273 K\n                                                 ! (J kg-1 K-1)\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I,J,L,N,M,SIZENUM,MDAY\n\n    REAL*8  :: PRESS,TK,RHIN,XQ,CACID,PACID,DT,DTAPM\n    REAL*8  :: MSO4,MSO4BULK,MNIT,MNH4,MMSA,SOAT\n    REAL*8  :: MBCS, MOCS   ! mass of sulfate attached to BC, OC\n    REAL*8  :: MDSTS, MSALTS   ! mass of sulfate attached to dust,sea salt\n    REAL*8  :: MSULFT   ! total sulfate\n    REAL*8  :: MBC(NBCOC),MOC(NBCOC)\n    REAL*8  :: XM1D(NSO4+NSEA),XN1D(NSO4),XNOLD,TEMPOUT1(NTEMPOUT1)\n    REAL*8  :: ATOM4N(4)\n    REAL*8  :: XMDST(NDSTB)\n\n    REAL*8  :: MASS1, MASS2\n\n    REAL*8  :: VOL, CLVSOG, PLVSOG01,PLVSOG1\n    REAL*8  :: MSULFLV,MBCLV,MOCLV,MDSTLV,MSALTLV\n\n    REAL*8  :: XOH,XSINK,XU,XV\n    INTEGER :: KYEAR,KMON,KDAY,KHOUR,KMIN,ISITE,JSITE,NSITE\n    REAL*8  :: TOP, TOPP\n    INTEGER :: KKOUT\n    REAL*8  :: XLAT, XLON\n\n    REAL*8  :: CSO2,CNH3,XN0,CAMINE(3),CAMINEEMIT(3),YAMINEEMIT(3)\n    REAL*8  :: NH3EMIT\n    REAL*8  :: CSOG(14),CSOA(14)\n    REAL*8  :: GFTOT1,GFTOT2,DENWET1,DENWET2\n    INTEGER :: IACT10, IACT20, IACT30   ! bin index for cloud act\n                                          ! diameters corresponding to RDRY\n    INTEGER :: RACT1, RACT2, RACT3\n    REAL*8  :: FCLOUD1(NSO4+4)\n    REAL*8  :: AERAREA1(NSO4+NSEA+NDSTB+4)\n    REAL*8  :: AERDRYR1(NSO4+NSEA+NDSTB+4)\n    REAL*8  :: GAMMAPM1(NTYP)\n    INTEGER :: NCOAG1,NCOAG2\n    INTEGER, PARAMETER :: IFSITEADD = 1\n\n    !REAL*8  :: SITEOUT(MAXSITE,LOUT,35),YTOP(MAXSITE,2)\n    REAL*8  :: SITEOUT(MAXSITE,LOUT,59),YTOP(MAXSITE,2)\n    REAL*8  :: SITEOUT1(MAXSITE,LOUT,NSO4+NSEA+NDSTB+NBCOC+NBCOC)\n    REAL*8  :: SITEOUT2(MAXSITE,LOUT,NTEMPOUT1+6)\n    REAL*8  :: SITEOUT3(MAXSITE,LOUT,11)\n    REAL*8  :: AEROCOMOUT(MAXSITE,50,27),AEROCOMOUT1D(27)\n\n    REAL*8  :: CCO, CNO,CNO2,CNO3,CHNO3,CISOP,CMTPA\n\n    REAL*8  :: YSPGF,XBCLIFE,XOCLIFE  !Yu+   6/2/11\n    REAL*8  :: YCCN,YCDN,YCDNSP,YCLDF,YCLDLIQ,YCLDICE,YRCLDL,VZ,YF,YC\n    REAL*8  :: XCDN,XCDNSP\n    REAL*8  :: wbar,relhum,yqc,yna(3),YB,YREI,YK\n    !REAL*8  :: nuci, onihf, oniimm, onidep, onimey\n    REAL*8  :: PRESS0, YSIGMA\n    REAL*8  :: ACS,XAMINE,SCOS,LOCALTIME\n    REAL*8  :: dumc, dumnc, pgam, lamc\n    REAL(kind=8)  :: CCLD(State_Grid%NZ)      !!! CLOUD COVER\n    REAL(kind=8)  :: CLDLIQ(State_Grid%NZ)    !!! CLOUD LIQUID WATER CONTENT\n    REAL(kind=8)  :: CLDICE(State_Grid%NZ)    !!! CLOUD ICE WATER CONTENT\n    REAL(kind=8)  :: REL(State_Grid%NZ)\n    REAL(kind=8)  :: REI(State_Grid%NZ)\n    REAL(kind=8)  :: taucloud(State_Grid%NZ,29)\n    REAL(kind=8)  :: taucloudl(State_Grid%NZ,29)\n    REAL(kind=8)  :: taucloudi(State_Grid%NZ,29)\n    REAL(kind=8)  :: ssacloudl(State_Grid%NZ,29)\n    REAL(kind=8)  :: ssacloudi(State_Grid%NZ,29)\n\n    REAL*8  :: ERATIO(3)      ! ratio of NH3 emission to amine emission\n    REAL*8  :: MWAMINE(3)\n    REAL*8  :: OXRATE(3), XX0, XX1,DXX,XAREA,XCSNH3\n\n    LOGICAL, SAVE    :: FIRST = .TRUE.\n    LOGICAL, SAVE    :: FIRST1 = .TRUE. !mxy+\n    LOGICAL, SAVE    :: FIRSTICE = .TRUE.\n    LOGICAL, SAVE    :: FIRSTCOD = .TRUE.\n    CHARACTER(LEN=4) :: YEAROUT='2000'\n    CHARACTER(LEN=2) :: MONOUT='01'\n\n    ! Make a pointer to the tracer array\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    INTEGER :: vbs_nbin(1)=0\n    REAL :: p_atm,cairclmdum,gas(4),aer(14),aerh2o,XM,VRATIO\n    REAL :: gasold(4),aerold(14)\n    REAL :: t_k4,rh4,dtchem,aersize\n    REAL :: SO4_bin_sum, SEA_bin_sum, DST_bin_sum\n\n    ! Array dimensions\n    INTEGER, PARAMETER       :: NOTHERA  =  9\n    INTEGER, PARAMETER       :: NCTRLA   =  2\n    INTEGER, PARAMETER       :: NCOMPA   =  8\n    INTEGER, PARAMETER       :: NIONSA   = 10\n    INTEGER, PARAMETER       :: NGASAQA  =  3\n    INTEGER, PARAMETER       :: NSLDSA   = 19\n\n    ! Concentration lower limit [mole/m3]\n    REAL(fp),  PARAMETER       :: CONMIN = 1.0e-30_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)                   :: ANO3, GNO3\n    REAL(f8)                   :: RHI, TEMPI\n    REAL(fp)                   :: TCA,  TMG\n    REAL(fp)                   :: TNA,  TCL,  TNH3, TNH4\n    REAL(fp)                   :: TNIT, TNO3, TSO4\n    REAL(f8)                   :: AERLIQ(NIONSA+NGASAQA+2)\n    REAL(f8)                   :: GAS1(NGASAQA)\n    REAL(f8)                   :: OTHER(NOTHERA)\n    REAL(f8)                   :: WI(NCOMPA)\n    REAL(f8)                   :: WT(NCOMPA)\n    CHARACTER(LEN=255)       :: X\n    CHARACTER(LEN=15)        :: SCASI\n    REAL*8                   :: TSO4COAT,DNH3MAX\n    REAL*8                   :: TH2O,TINORG   !Yu+ 6/1/11\n    REAL*8                   :: HETP_SO4,   HETP_HSO4, HETP_CaSO4, HETP_NH4\n    REAL*8                   :: HETP_NH3,   HETP_NO3,  HETP_HNO3,  HETP_Cl\n    REAL*8                   :: HETP_HCl,   HETP_Na,   HETP_Ca,    HETP_K\n    REAL*8                   :: HETP_Mg,    HETP_H,    HETP_OH,    HETP_LWC\n    REAL*8                   :: HETP_frNa,  HETP_frCa, HETP_frK,   HETP_frMg\n    REAL*8                   :: HETP_frSO4, HETP_num\n\n    !--------------------------------------------------------------------------\n    ! These do not appear to be used anymore (bmy, 6/18/19)\n    !REAL,SAVE                :: SEABIRDEM(State_Grid%NX,State_Grid%NY,2)\n    !REAL                     :: BIRDNH3(State_Grid%NX,State_Grid%NY)\n    !--------------------------------------------------------------------------\n\n    ! NOTE: We have removed GRID2x25, GRID4x5 switches (bmy, 6/18/19)\n    INTEGER,SAVE :: ATOMGRID(2,400),GRIDNUM\n    INTEGER :: RECID,ATOMGRIDIN(2),fileinfo\n    CHARACTER(LEN=12) :: ATOMDATE\n\n    WRITE(6,*)'    - APM calculation '\n\n    !GanLuo+ local time satellite outputs\n    CALL GET_LOCAL_TIME( State_Grid )\n\n    ! Point to Spc\n    Spc => State_Chm%Species\n\n    ! Chemistry timestep [s]\n    DT = GET_TS_CHEM()\n    DTAPM = DT  !s\n\n    ! Compute diurnal scaling for OH\n    CALL OHNO3TIME( State_Grid )\n\n    ! Calculate 3-D ionization rate\n    IF(IFQANN.EQ.1) THEN\n       IF(FIRST) THEN   ! only calculate Q once\n          WRITE(6,*)\"CALCULATE 3-D ANNUAL MEAN IONIZATION RATES\"\n          CALL APM3DQGEOS( Input_Opt, State_Grid, State_Met, IY)\n          FIRST = .FALSE.\n       ENDIF\n    ELSE\n       ! APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n       IF(FIRST.or.ITS_A_NEW_MONTH()) THEN   ! only calculate Q once a month\n          !IY = 1    ! Solar min, max Q\n          !IY = -1   ! Solar max, min Q\n          WRITE(6,*)\"CALCULATE 3-D IONIZATION RATES\", IY\n          CALL APM3DQ( IY, Input_Opt, State_Grid, State_Met )\n          FIRST = .FALSE.\n       ENDIF\n       ! APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n    ENDIF\n\n    ! TEMPOUT\n    IF(FIRST1)THEN\n       IF(IFATOM>0.5)THEN\n\n          IF ( State_Grid%NX == 144 .and. State_Grid%NY == 91 ) THEN\n             ATOMGRID=-999\n             GRIDNUM=0\n             CLOSE(100)\n             OPEN(100,FILE='flightAtom-geos225.txt')\n             DO\n                READ(100,*,IOSTAT=fileinfo)(ATOMGRIDIN(I),I=1,2)\n                if(fileinfo<0)exit\n                GRIDNUM=GRIDNUM+1\n                ATOMGRID(:,GRIDNUM)=ATOMGRIDIN\n             ENDDO\n             write(*,*)'ATOM2x2.5 outputs=',GRIDNUM\n\n          ELSE IF ( State_Grid%NX == 72 .and. State_Grid%NY == 41 ) THEN\n             ATOMGRID=-999\n             GRIDNUM=0\n             CLOSE(100)\n             OPEN(100,FILE='flightAtom-geos45.txt')\n             DO\n                READ(100,*,IOSTAT=fileinfo)(ATOMGRIDIN(I),I=1,2)\n                if(fileinfo<0)exit\n                GRIDNUM=GRIDNUM+1\n                ATOMGRID(:,GRIDNUM)=ATOMGRIDIN\n             ENDDO\n             write(*,*)'ATOM4x5 outputs=',GRIDNUM\n          ELSE\n             WRITE(*,*)'Can only run ATom with 2x2.5 or 4x5'\n             STOP\n          ENDIF\n       ENDIF\n\n       CALL  READCK6DTABLE\n\n       ! Intitialize for first step useage\n       GFTOT3D = 1.0\n       DENWET3D = 2.0\n       MWSIZE3D = 0.D0\n\n       ! init FCLOUD\n       FCLOUD=0.D0\n       DO N=26,NSO4\n       DO L=1,State_Grid%NZ\n       DO J=1,State_Grid%NY\n       DO I=1,State_Grid%NX\n          FCLOUD(I,J,L,N)=1/15.D0\n       ENDDO\n       ENDDO\n       ENDDO\n       ENDDO\n\n       ! APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n       ! Get  (I, J) of selected sites\n       IF(IFSITE.EQ.1) THEN\n          CALL YSITESIJ_GL( State_Grid )             ! global sites\n       ELSEIF(IFSITE.EQ.7.or.IFSITE.EQ.73) THEN\n          CALL YSITESIJ_GL1( State_Grid )            ! global sites 1\n       ELSEIF(IFSITE.EQ.9) THEN\n          CALL YSITESIJ_BACCHUS( State_Grid )        ! for CCN intercomparison\n       ELSEIF(IFSITE.EQ.2) THEN\n          CALL YSITESIJ_EU( State_Grid )             ! nest EU sites\n       ELSEIF(IFSITE.EQ.3) THEN\n          CALL YSITESIJ_AC( State_Grid )             ! global AEROCOM sites\n       ELSEIF(IFSITE.EQ.4) THEN\n          CALL YSITESIJ_CH( State_Grid )             ! nest CH east asia sites\n       ELSEIF(IFSITE.EQ.41) THEN\n          CALL YSITESIJ_CH1( State_Grid )            ! nest CH east asia sites\n       ELSEIF(IFSITE.EQ.5) THEN\n          CALL YSITESIJ_NA( State_Grid )             ! nest NA sites\n       ELSEIF(IFSITE.EQ.6) THEN\n          CALL YSITESIJ_AOD_CN( State_Grid )         ! AOD_CN sites\n       ENDIF\n       ! APM2++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n       !define the variables you want to output\n       IFTEMPOUT=.TRUE.\n       IF(IFTEMPOUT)THEN\n          NTEMPOUT=NTEMPOUT1 !number of species you want to output\n          ALLOCATE( TEMPOUT( State_Grid%NX, State_Grid%NY, &\n                             State_Grid%NZ, NTEMPOUT       ) )\n          TEMPOUT = 0d0\n          NPOUTSTEPS = 0\n          FIRST1=.FALSE.\n       ENDIF\n\n    ENDIF\n\n    MWAMINE(1) = 31  !  MA  -- CH3NH2 -- 31 g/mol\n    MWAMINE(2) = 45. !  DMA -- (CH3)2NH -- 45 g/mol\n    MWAMINE(3) = 59. !  TMA -- (CH3)3N -- 59 g/mol\n\n    ERATIO(1) = 83./50000.\n    ERATIO(2) = 33./50000.\n    ERATIO(3) = 169./50000.\n\n    SITEOUT   = 0.\n    SITEOUT1  = 0.\n    SITEOUT2  = 0.\n\n    ZBEXT3D   = 0.\n    ZW3D      = 1.\n    ZG3D      = 0.\n    YBEXT3D   = 0.\n    XBEXT1k3D = 0.\n    YW3D      = 1.\n    YG3D      = 0.\n\n    IF(FIRSTICE.or.ITS_A_NEW_MONTH()) THEN   ! only calculate Q once a month\n       KYEAR = GET_YEAR()\n       KMON = GET_MONTH()\n       WRITE(YEAROUT,'(I4.4)')MIN(2015,MAX(2004,KYEAR))\n       WRITE(MONOUT,'(I2.2)')KMON\n\n       !Luo CLOSE(121)\n       !Luo#if defined( GRID4x5 )\n       !Luo OPEN(121,FILE='geosdata/GEOS_4x5/MODISIER/'//       &\n       !Luo               'MODG45IER'//YEAROUT//MONOUT//'.bin', &\n       !Luo               ACCESS='DIRECT',FORM='UNFORMATTED',   &\n       !Luo               RECL=State_Grid%NX*State_Grid%NY)\n       !Luo READ(121,REC=1)RCLDI2D\n       !Luo#endif\n       !Luo#if defined( GRID2x25 )\n       !Luo OPEN(121,FILE='geosdata/GEOS_2x2.5/MODISIER/'//     &\n       !Luo               'MODG45IER'//YEAROUT//MONOUT//'.bin', &\n       !Luo               ACCESS='DIRECT',FORM='UNFORMATTED',   &\n       !Luo               RECL=State_Grid%NX*State_Grid%NY)\n       !Luo READ(121,REC=1)RCLDI2D\n       !Luo#endif\n\n       FIRSTICE=.FALSE.\n    ENDIF\n\n    IF(FIRSTCOD)THEN\n       call rrtmg_sw_ini(cpdair)\n       WRITE(6,*) \"run rrtmg_sw_ini\"\n       FIRSTCOD = .FALSE.\n    ENDIF\n\n    !Doing MESA\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED )  &\n    !$OMP PRIVATE( I, J, L ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       UPTAKE(I,J,L,1)=Spc(APMIDS%id_NH3)%Conc(I,J,L)\n       SPGF(I,J,L) = 1.d0\n       MASSISRP(I,J,L,1)=Spc(APMIDS%id_NH3)%Conc(I,J,L)\n       MASSISRP(I,J,L,2)=Spc(APMIDS%id_NH4)%Conc(I,J,L)\n       MASSISRP(I,J,L,3)=Spc(APMIDS%id_HNO3)%Conc(I,J,L)\n       MASSISRP(I,J,L,4)=Spc(APMIDS%id_NIT)%Conc(I,J,L)\n\n       MASSMESA(I,J,L,1)=Spc(APMIDS%id_NH3)%Conc(I,J,L)\n       MASSMESA(I,J,L,2)=Spc(APMIDS%id_NH4)%Conc(I,J,L)\n       MASSMESA(I,J,L,3)=Spc(APMIDS%id_HNO3)%Conc(I,J,L)\n       MASSMESA(I,J,L,4)=Spc(APMIDS%id_NIT)%Conc(I,J,L)\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    if(IFDOISRP==1.or.IFDOISRP==2.or.IFDOISRP==3.or.IFDOISRP==4)then\n       !******* DO ISORROPIA *******\n       !$OMP PARALLEL DO                                                      &\n       !$OMP DEFAULT( SHARED )                                                &\n       !$OMP PRIVATE( I,    J,      L,       N,      WI,   WT,  GAS1,  TEMPI )&\n       !$OMP PRIVATE( RHI,  VOL,    TSO4,    TNH3,   TNA,  TCL, ANO3, GNO3  ) &\n       !$OMP PRIVATE( TCA,  TMG,    TK,      SCASI                          ) &\n       !$OMP PRIVATE( TNO3, AERLIQ, OTHER,   TNH4,   TNIT                   ) &\n       !$OMP PRIVATE( TSO4COAT ,DNH3MAX            )                          &\n       !$OMP PRIVATE( TH2O, XM,VRATIO)                                        &\n       !$OMP PRIVATE( SO4_bin_sum, SEA_bin_sum)                               &\n       !$OMP PRIVATE( HETP_SO4,   HETP_HSO4, HETP_CaSO4, HETP_NH4             ) &\n       !$OMP PRIVATE( HETP_NH3,   HETP_NO3,  HETP_HNO3,  HETP_Cl              ) &\n       !$OMP PRIVATE( HETP_HCl,   HETP_Na,   HETP_Ca,    HETP_K               ) &\n       !$OMP PRIVATE( HETP_Mg,    HETP_H,    HETP_OH,    HETP_LWC             ) &\n       !$OMP PRIVATE( HETP_frNa,  HETP_frCa, HETP_frK,   HETP_frMg            ) &\n       !$OMP PRIVATE( HETP_frSO4, HETP_num                                    ) &\n       !$OMP COLLAPSE( 3                                                      ) &\n       !$OMP SCHEDULE( DYNAMIC, 8                                             )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Temperature [K]\n          TEMPI = MAX(235.D0,State_Met%T(I,J,L))\n\n          if((Spc(APMIDS%id_NH3)%Conc(I,J,L)  + &\n              Spc(APMIDS%id_NH4)%Conc(I,J,L)  + &\n              Spc(APMIDS%id_HNO3)%Conc(I,J,L) + &\n              Spc(APMIDS%id_NIT)%Conc(I,J,L)) > 1.d-12)then\n\n             ! Initialize WI, WT\n             DO N = 1, NCOMPA\n                WI(N) = 0e+0_fp\n                WT(N) = 0e+0_fp\n             ENDDO\n\n             ! Initialize GAS\n             DO N = 1, NGASAQA\n                GAS1(N) = 0e+0_fp\n             ENDDO\n\n             ! Relative humidity [unitless]\n             RHI      = State_Met%RH(I,J,L) * 1.e-2_fp\n\n             ! Force RH in the range 0.01 - 0.98\n             RHI      = MAX( 0.01e+0_fp, RHI )\n             RHI      = MIN( 0.98e+0_fp, RHI )\n\n             ! Volume of grid box [m3]\n             VOL      = State_Met%AIRVOL(I,J,L)\n\n             !GanLuo+ Deduce SULFLO form TSO4,\n             ! Add those sulfate coated on primary particles\n             SO4_bin_sum = 0.d8\n             DO M = APMIDS%id_SO4BIN1, APMIDS%id_SO4BIN1+NSO4-1\n                SO4_bin_sum = SO4_bin_sum + Spc(M)%Conc(I,J,L)\n             ENDDO\n\n             !GanLuo mv LVSOG     TSO4 = SO4_bin_sum*1.e+3_fp/(96.e+0_fp*VOL)\n\n             TSO4 = ( SO4_bin_sum - Spc(APMIDS%id_CTSO4)%Conc(I,J,L) ) &\n                    * 1.e+3_fp / ( 96.e+0_fp * VOL )\n\n             TSO4COAT = (Spc(APMIDS%id_CTBC)%Conc(I,J,L) + &\n                         Spc(APMIDS%id_CTOC)%Conc(I,J,L) + &\n                         Spc(APMIDS%id_CTDST)%Conc(I,J,L)+ &\n                         Spc(APMIDS%id_CTSEA)%Conc(I,J,L)) * &\n                         1.e+3_fp / ( 96.e+0_fp * VOL )\n             TSO4 = TSO4 + TSO4COAT\n\n             ! Total NH3 [mole/m3]\n             IF(IFDOISRP==4)THEN\n                DNH3MAX = Spc(APMIDS%id_NH3)%Conc(I,J,L)\n             ELSE\n                DNH3MAX = Spc(APMIDS%id_NH3)%Conc(I,J,L) * (1.-exp(-DT/TAONH3(I,J,L)))\n             ENDIF\n\n             TNH3 = Spc(APMIDS%id_NH4)%Conc(I,J,L) * 1.e+3_fp / &\n                    ( 18.e+0_fp * VOL ) + &\n                    DNH3MAX * 1.e+3_fp / ( 17.e+0_fp * VOL )\n             MASSISRP(I,J,L,1) = Spc(APMIDS%id_NH3)%Conc(I,J,L)-DNH3MAX !remaining NH3\n\n             !sea_bin_sum=0.d8\n             !DO M = APMIDS%id_SEABIN1, APMIDS%id_SEABIN1+NSEA-1\n             !   sea_bin_sum = sea_bin_sum + Spc(M)%Conc(I,J,L)\n             !ENDDO\n\n             ! Total Na+ (30.61% by weight of seasalt) [mole/m3]\n             !TNA = SEA_BIN_SUM * 0.3061e+0_fp * 1.e+3_fp /( 22.99e+0_fp * VOL )\n\n             ! Total Cl- (55.04% by weight of seasalt) [mole/m3]\n             !TCL = SEA_BIN_SUM * 0.5504e+0_fp * 1.e+3_fp /( 22.99e+0_fp * VOL )\n\n             !GLuo: Sea salt in ISORROPIA needs to be updated.\n             TNA      = 0e+0_fp\n             TCL      = 0e+0_fp\n\n             TCA      = 0e+0_fp\n             TK       = 0e+0_fp\n             TMG      = 0e+0_fp\n\n             !---------------------\n             ! COUPLED SIMULATION\n             !---------------------\n\n             ! Compute gas-phase HNO3 [mole/m3] from HNO3 tracer\n             GNO3  = Spc(APMIDS%id_HNO3)%Conc(I,J,L)\n             GNO3  = MAX( GNO3 * 1.e+3_fp / ( 63.e+0_fp * VOL ), CONMIN )\n\n             ! Aerosol-phase NO3 [mole/m3]\n             ANO3  = Spc(APMIDS%id_NIT)%Conc(I,J,L) * 1.e+3_fp / ( 62.e+0_fp * VOL )\n\n             ! Total NO3 [mole/m3]\n             TNO3    = GNO3 + ANO3\n\n             !---------------------------------\n             ! Call ISORROPIA\n             !---------------------------------\n\n             ! Insert concentrations [mole/m3] into WI & prevent underflow\n             WI(1)    = MAX( TNA,  CONMIN )\n             WI(2)    = MAX( TSO4, CONMIN )\n             WI(3)    = MAX( TNH3, CONMIN )\n             WI(4)    = MAX( TNO3, CONMIN )\n             WI(5)    = MAX( TCL,  CONMIN )\n             WI(6)    = MAX( TCA,  CONMIN )\n             WI(7)    = MAX( TK,   CONMIN )\n             WI(8)    = MAX( TMG,  CONMIN )\n\n             ! Perform aerosol thermodynamic equilibrium\n             ! For safety\n             GAS = 0.0d0\n             AERLIQ = 0.0d0\n             Call MACH_HETP_Main_15Cases( WI(2), WI(3), WI(4), WI(1), WI(5),            &\n                                          WI(6), WI(7), WI(8), TEMPI, RHI,              &\n                                          HETP_SO4,   HETP_HSO4, HETP_CaSO4, HETP_NH4,  &\n                                          HETP_NH3,   HETP_NO3,  HETP_HNO3,  HETP_Cl,   &\n                                          HETP_HCl,   HETP_Na,   HETP_Ca,    HETP_K,    &\n                                          HETP_Mg,    HETP_H,    HETP_OH,    HETP_LWC,  &\n                                          HETP_frNa,  HETP_frCa, HETP_frK,   HETP_frMg, &\n                                          HETP_frSO4, HETP_num                          )\n             ! Spoof ISORROPIA outputs which are still used\n             GAS1(1) = HETP_NH3\n             GAS1(2) = HETP_HNO3\n             GAS1(3) = HETP_HCl\n             ! Mostly used for diagnostics\n             AERLIQ( 1) = HETP_H\n             AERLIQ( 2) = HETP_Na\n             AERLIQ( 3) = HETP_NH4\n             AERLIQ( 4) = HETP_Cl\n             AERLIQ( 5) = HETP_SO4\n             AERLIQ( 6) = HETP_HSO4\n             AERLIQ( 7) = HETP_NO3\n             AERLIQ( 8) = HETP_LWC\n             ! WT is used below but is identical to WI for a forward case\n             WT(:) = WI(:)\n\n             IF(IFDOISRP==1.or.IFDOISRP==3.or.IFDOISRP==4)THEN\n                TH2O = AERLIQ(8)  ! aerosol water  (mole/m3)\n\n                XM = WT(2)*96. + (WT(3)-GAS1(1))*18. +(WT(4)-GAS1(2))*62. &\n                   + TNA*23. + TCL*35.45 !SO4, NH4,NIT,NACL (g/m3)\n                XM = MAX(XM,CONMIN)\n                VRATIO = 1. + (TH2O*(18.*1.0))/(XM/1.8) ! assume salt has density of 1.8 g/cm3\n\n                SPGF(I,J,L) = VRATIO**(1./3.0)\n             ENDIF\n\n             TNH3 = MAX( 17.e-3_fp * VOL *   GAS1(1),           CONMIN )\n             TNH4 = MAX( 18.e-3_fp * VOL * ( WT(3) - GAS1(1) ), CONMIN )\n             TNIT = MAX( 62.e-3_fp * VOL * ( WT(4) - GAS1(2) ), CONMIN )\n\n             ! Save tracers back into Spc array [kg]\n             ! no longer save TSO4 back into Spc. SO4 is all aerosol phase\n             ! (hotp 11/7/07)\n             ! Spc(APMIDS%id_SO4)%Conc(I,J,L) = TSO4\n             MASSISRP(I,J,L,1) = MASSISRP(I,J,L,1) + TNH3\n             MASSISRP(I,J,L,2) = TNH4\n             MASSISRP(I,J,L,3) = MAX( 63.e-3_fp * VOL * GAS1(2), CONMIN )\n             MASSISRP(I,J,L,4) = TNIT\n             UPTAKE(I,J,L,1)=MASSISRP(I,J,L,1)-UPTAKE(I,J,L,1)  ! in kg\n\n          endif\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    endif\n\n    !******* MESA *******\n    if(IFDOISRP==0.or.IFDOISRP==2.or.IFDOISRP==3)then\n\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          if( (   Spc(APMIDS%id_NH3 )%Conc(I,J,L)    &\n                + Spc(APMIDS%id_NH4 )%Conc(I,J,L)  &\n                + Spc(APMIDS%id_HNO3)%Conc(I,J,L)  &\n                + Spc(APMIDS%id_NIT )%Conc(I,J,L) ) > 1.d-16)then\n\n             aersize=0.d0\n\n             SO4_bin_sum = 0.d0\n             DO M = APMIDS%id_SO4BIN1, APMIDS%id_SO4BIN1+NSO4-1\n                SO4_bin_sum = SO4_bin_sum + Spc(M)%Conc(I,J,L)\n             ENDDO\n\n             SEA_bin_sum = 0.d0\n             DO M = APMIDS%id_SEABIN1, APMIDS%id_SEABIN1+NSEA-1\n                SEA_bin_sum = SEA_bin_sum + Spc(M)%Conc(I,J,L)\n             ENDDO\n\n             IF( ( SO4_bin_sum + SEA_bin_sum ) > 1.d-30 )THEN\n                DO N=1,NSO4\n                   SIZENUM=APMIDS%id_SO4BIN1+N-1\n                   aersize=aersize+Spc(SIZENUM)%Conc(I,J,L)*RDRY(N)*GFTOT3D(I,J,L,1)\n                ENDDO\n                DO N=1,NSEA\n                   SIZENUM=APMIDS%id_SEABIN1+N-1\n                   aersize=aersize+Spc(SIZENUM)%Conc(I,J,L)*RSALT(N)*GFTOT3D(I,J,L,2)\n                ENDDO\n                aersize=aersize / ( SO4_bin_sum + SEA_bin_sum )\n             ELSE\n                aersize=50.D-9\n             ENDIF\n\n             t_k4  = max(235.D0,real(State_Met%T(I,J,L))) ! Temperature [K]\n             PRESS = GET_PCENTER(I,J,L) * 1.d2 ! P at level center [Pa]\n             p_atm = real(PRESS/101325.0)\n             VOL   = State_Met%AIRVOL(I,J,L) ! Volume of grid box [m3]\n             RHIN  = MIN( 98.d0, State_Met%RH(I,J,L) ) ! Cap RH at 99%\n             RHIN  = MAX( 1.d0, RHIN ) ! Safety check\n             cairclmdum=real(State_Met%AIRDEN(I,J,L)*1.e-6/MAIR)\n             gas=0.\n             aer=0.\n\n             gas(2) = real(Spc(APMIDS%id_NH3)%Conc(I,J,L)*MAIR/ &\n                          (State_Met%AD(I,J,L)*17.0e-3))!NH3 mol/mol air\n             gas(3) = real(Spc(APMIDS%id_HNO3)%Conc(I,J,L)*MAIR/ &\n                          (State_Met%AD(I,J,L)*63.0e-3))!HNO3\n              \n             aer(1) = real(((MAX(1.e-30, (SO4_bin_sum - Spc(APMIDS%id_CTSO4)%Conc(I,J,L)) )) &\n                   +Spc(APMIDS%id_CTBC)%Conc(I,J,L)    &\n                   +Spc(APMIDS%id_CTOC)%Conc(I,J,L)    &\n                   +Spc(APMIDS%id_CTDST)%Conc(I,J,L)   &\n                   +Spc(APMIDS%id_CTSEA)%Conc(I,J,L) )*MAIR&\n                   /(State_Met%AD(I,J,L)*96.0e-3)) !SO4\n             aer(2) = real(Spc(APMIDS%id_NH4)%Conc(I,J,L)*MAIR/ &\n                          (State_Met%AD(I,J,L)*18.0e-3))!NH4\n             aer(3) = real(Spc(APMIDS%id_NIT)%Conc(I,J,L)*MAIR/ &\n                          (State_Met%AD(I,J,L)*62.0e-3))!NIT\n\n             aer(4) = real(sea_bin_sum*MAIR*0.3061/(State_Met%AD(I,J,L)*22.99e-3))!NA\n             aer(5) = real(sea_bin_sum*MAIR*0.5504/(State_Met%AD(I,J,L)*35.45e-3))!CL\n\n             gasold=gas\n             aerold=aer\n\n             rh4=real(RHIN)\n\n             aerh2o=0.D0\n             TEMPOUT1(NTEMPOUT1-22)=aersize\n\n             CALL mosaic( 1, 1, DTAPM, vbs_nbin, &\n                          t_k4, p_atm, rh4, cairclmdum, &\n                          gas, aer, aerh2o, aersize )\n\n             MASSMESA(I,J,L,1)=MIN((Spc(APMIDS%id_NH3)%Conc(I,J,L)+ &\n                                    Spc(APMIDS%id_NH4)%Conc(I,J,L)), &\n                                    (gas(2)*(State_Met%AD(I,J,L)*17.0d-3)/MAIR))\n             MASSMESA(I,J,L,2)=Spc(APMIDS%id_NH3)%Conc(I,J,L)+ &\n                               Spc(APMIDS%id_NH4)%Conc(I,J,L)-MASSMESA(I,J,L,1)\n             MASSMESA(I,J,L,3)=MIN((Spc(APMIDS%id_HNO3)%Conc(I,J,L)+ &\n                                    Spc(APMIDS%id_NIT)%Conc(I,J,L)), &\n                                   (gas(3)*(State_Met%AD(I,J,L)*63.0d-3)/MAIR))\n             MASSMESA(I,J,L,4)=Spc(APMIDS%id_HNO3)%Conc(I,J,L)+ &\n                               Spc(APMIDS%id_NIT)%Conc(I,J,L)-MASSMESA(I,J,L,3)\n\n             !MASSMESA(I,J,L,1)=gas(2)*(State_Met%AD(I,J,L)*17.0e-3)/MAIR\n             !MASSMESA(I,J,L,2)=aer(2)*(State_Met%AD(I,J,L)*18.0e-3)/MAIR\n             !MASSMESA(I,J,L,3)=gas(3)*(State_Met%AD(I,J,L)*63.0e-3)/MAIR\n             !MASSMESA(I,J,L,4)=aer(3)*(State_Met%AD(I,J,L)*62.0e-3)/MAIR\n\n             IF(IFDOISRP==0.or.IFDOISRP==2)THEN\n                XM = aer(1)*(State_Met%AD(I,J,L)*96.0)/MAIR/VOL &\n                     + MASSMESA(I,J,L,2)*1.d3/VOL &\n                     + MASSMESA(I,J,L,4)*1.d3/VOL !g/m3\n                XM = MAX(XM,1.d-30)\n                VRATIO = 1. + (aerh2o*1.d3)/(XM/1.8)   ! assume salt has density of 1.8 g/cm3\n\n                SPGF(I,J,L) = VRATIO**(1./3.0)\n             ENDIF\n\n          endif\n       ENDDO\n       ENDDO\n       ENDDO\n    endif\n\n    IF(IFDOISRP==1.or.IFDOISRP==4.or.IFDOISRP==5)THEN\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L) &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          Spc(APMIDS%id_NH3)%Conc(I,J,L) = MASSISRP(I,J,L,1)\n          Spc(APMIDS%id_NH4)%Conc(I,J,L) = MASSISRP(I,J,L,2)\n          Spc(APMIDS%id_HNO3)%Conc(I,J,L)= MASSISRP(I,J,L,3)\n          Spc(APMIDS%id_NIT)%Conc(I,J,L) = MASSISRP(I,J,L,4)\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    if(IFDOISRP==0.or.IFDOISRP==2.or.IFDOISRP==3)then\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L) &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          Spc(APMIDS%id_NH3)%Conc(I,J,L) = MASSMESA(I,J,L,1)\n          Spc(APMIDS%id_NH4)%Conc(I,J,L) = MASSMESA(I,J,L,2)\n          Spc(APMIDS%id_HNO3)%Conc(I,J,L)= MASSMESA(I,J,L,3)\n          Spc(APMIDS%id_NIT)%Conc(I,J,L) = MASSMESA(I,J,L,4)\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n! Disable this parallel loop, which causes differences in output\n! for the time being. -- Bob Yantosca (24 May 2023)\n!    !$OMP PARALLEL DO                                                       &\n!    !$OMP DEFAULT( SHARED )                                                 &\n!    !$OMP PRIVATE( I, J, L, N )                                             &\n!    !$OMP PRIVATE( SIZENUM, PRESS, TK, RHIN )                               &\n!    !$OMP PRIVATE( CACID,PACID )                                            &\n!    !$OMP PRIVATE( MSO4,MSO4BULK,MNIT,MNH4,SOAT)                            &\n!    !$OMP PRIVATE( MBCS, MOCS, MSULFT,MDSTS,MSALTS)                         &\n!    !$OMP PRIVATE( MBC, MOC, MMSA)                                          &\n!    !$OMP PRIVATE( XMDST)                                                   &\n!    !$OMP PRIVATE( MASS1, MASS2)                                            &\n!    !$OMP PRIVATE( CSO2,CNH3,XN0,CAMINE,CAMINEEMIT,YAMINEEMIT)              &\n!    !$OMP PRIVATE( CCO,CNO,CNO2,CNO3,CHNO3,CISOP,CMTPA)                     &\n!    !$OMP PRIVATE( NH3EMIT)                                                 &\n!    !$OMP PRIVATE( CSOG)                                                    &\n!    !$OMP PRIVATE( CSOA)                                                    &\n!    !$OMP PRIVATE( VOL)                                                     &\n!    !$OMP PRIVATE( CLVSOG,MSULFLV,MBCLV,MOCLV,MDSTLV,MSALTLV)               &\n!    !$OMP PRIVATE( XM1D,XN1D,XNOLD,TEMPOUT1,ATOM4N,AEROCOMOUT1D)            &\n!    !$OMP PRIVATE( XQ,PLVSOG01,PLVSOG1,GFTOT1,GFTOT2,DENWET1,DENWET2)       &\n!    !$OMP PRIVATE( IACT10,IACT20,IACT30,FCLOUD1,AERAREA1,AERDRYR1,GAMMAPM1) &\n!    !$OMP PRIVATE( RACT1,RACT2,RACT3)                                       &\n!    !$OMP PRIVATE( NCOAG1,NCOAG2)                                           &\n!    !$OMP PRIVATE( YSPGF,XBCLIFE,XOCLIFE,XCSNH3)                            &!Yu+\n!    !$OMP PRIVATE( XOH, XSINK,XAREA,XX0,XX1,DXX,ACS,XLAT, XLON,XAMINE)      &\n!    !$OMP PRIVATE( KYEAR,KMON,KDAY,KHOUR,KMIN,ISITE,JSITE,NSITE)            &\n!    !$OMP PRIVATE( XU,XV,TOP, TOPP)                                         &\n!    !$OMP PRIVATE( KKOUT)                                                   &\n!    !$OMP PRIVATE( ZBEXT,ZW,ZG)                                             &!OPT+\n!    !$OMP PRIVATE( ZBABS)                                                   &!OPT+\n!    !$OMP PRIVATE( YBEXT,XBEXT1k,YW,YG)                                     &!OPT+\n!    !$OMP PRIVATE( IWL)                                                     &!OPT+\n!    !$OMP PRIVATE( ITYP)                                                    &!mxy+\n!    !$OMP PRIVATE( YCCN,YCDN,YCDNSP,YCLDF,YCLDLIQ,YCLDICE,YRCLDL,VZ)        &!Yu+ 7/2012\n!    !$OMP PRIVATE( XCDN,XCDNSP )                                            &\n!    !$OMP PRIVATE( YF,YC,SCOS,LOCALTIME )                                   &\n!    !$OMP PRIVATE( PRESS0, YSIGMA )                                         &\n!    !$OMP PRIVATE( wbar,relhum,yqc,yna,YB,YREI,YK)                          &\n!    !$OMP PRIVATE( dumc, dumnc, pgam, lamc)                                 &\n!    !$OMP PRIVATE( CCLD,CLDLIQ,CLDICE )                                     &\n!    !$OMP PRIVATE( REL,REI)                                                 &\n!    !$OMP PRIVATE( taucloud, taucloudl, taucloudi, ssacloudl, ssacloudi )   &\n!    !!$OMP PRIVATE( nuci, onihf, oniimm, onidep, onimey)                    &\n!    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       YF = 0.\n       YC = 1.\n       PRESS0 = GET_PEDGE(I,J,1) * 1.d2    ! surafce P in Pa\n\n       ! Local time: 0-23.999\n       LOCALTIME = GET_LOCALTIME( I, J, 1, State_Grid )\n\n       SCOS   = COS((LOCALTIME/12.-1.)*3.1415926)\n\n       DO L = 1, State_Grid%NZ\n          PRESS = GET_PCENTER(I,J,L) * 1.d2           ! P at level center [Pa]\n          YSIGMA= PRESS/PRESS0\n          TK    = State_Met%T(I,J,L)                  ! Temperature [K]\n          VOL   = State_Met%AIRVOL(I,J,L)             ! Volume of grid box [m3]\n          XAREA = 1.d-6*VOL/State_Met%BXHEIGHT(I,J,L) ! Area of grid box [km2]\n          RHIN  = MIN( 99.d0, State_Met%RH(I,J,L) )   ! Cap RH at 99%\n          RHIN  = MAX( 0.d0, RHIN )                   ! Safety check\n\n          YSPGF = SPGF(I,J,L)  !SP GF from ISOROPIA/MESA\n\n          XOH = GET_OH( I, J, L, APMIDS%id_OH, Input_Opt, State_Chm, State_Met )\n\n          !IF(IFNUCL.EQ.1.or.IFNUCL.EQ.6) THEN\n          XQ = XQ3D(I,J,L)\n          !ELSE\n          !   XQ = 1.d-20   !ion-pairs/cm3s\n          !ENDIF\n\n          !kg/(box*timestep) to #/(cm3*s)\n          PACID = XMACID/96.* PSO4GAS(I,J,L)/(VOL*M1ACID*DT)*1.d-6\n\n          !kg/box to #/cm3\n          CACID = Spc(APMIDS%id_SO4G)%Conc(I,J,L)/(VOL*M1ACID)*1.d-6\n\n          XN0 = 1.d-6*PRESS/(1.3807d-23*TK)   !#/cm3\n          CNH3=Spc(APMIDS%id_NH3)%Conc(I,J,L) &\n               /(VOL*State_Chm%SpcData(APMIDS%id_NH3)%Info%MW_g &\n               *1.d-3)*6.02d17   ! #/cm3\n          CNH3=CNH3*1.d12/XN0   ! CNH3 now in ppt\n          CSO2=Spc(APMIDS%id_SO2)%Conc(I,J,L) &\n               /(VOL*State_Chm%SpcData(APMIDS%id_SO2)%Info%MW_g &\n               *1.d-3)*6.02d17   ! #/cm3\n          CSO2=CSO2*1.d12/XN0   ! CSO2 now in ppt\n\n          CCO=Spc(APMIDS%id_CO)%Conc(I,J,L) &\n              /(VOL*State_Chm%SpcData(APMIDS%id_CO)%Info%MW_g &\n              *1.d-3)*6.02d17   ! #/cm3\n          CCO=CCO*1.d6/XN0   ! CCO now in ppm\n\n          CNO=Spc(APMIDS%id_NO)%Conc(I,J,L) &\n              /(VOL*State_Chm%SpcData(APMIDS%id_NO)%Info%MW_g &\n              *1.d-3)*6.02d17   ! #/cm3\n          CNO=CNO*1.d9/XN0   ! CNO now in ppb\n          CNO2=Spc(APMIDS%id_NO2)%Conc(I,J,L) &\n               /(VOL*State_Chm%SpcData(APMIDS%id_NO2)%Info%MW_g &\n               *1.d-3)*6.02d17   ! #/cm3\n          CNO2=CNO2*1.d9/XN0   ! CNO2 now in ppb\n          CNO3=Spc(APMIDS%id_NO3)%Conc(I,J,L) &\n               /(VOL*State_Chm%SpcData(APMIDS%id_NO3)%Info%MW_g &\n               *1.d-3)*6.02d17   ! #/cm3\n          CNO3=CNO3*1.d9/XN0   ! CNO3 now in ppb\n          CHNO3=Spc(APMIDS%id_HNO3)%Conc(I,J,L) &\n                /(VOL*State_Chm%SpcData(APMIDS%id_HNO3)%Info%MW_g &\n                *1.d-3)*6.02d17   ! #/cm3\n          CHNO3=CHNO3*1.d9/XN0   ! CHNO3 now in ppb\n\n          CISOP=Spc(APMIDS%id_ISOP)%Conc(I,J,L) &\n                /(VOL*State_Chm%SpcData(APMIDS%id_ISOP)%Info%MW_g &\n                *1.d-3)*6.02d17   ! #/cm3\n          CISOP=CISOP*1.d9/XN0   ! CISOP now in ppb\n          CMTPA=Spc(APMIDS%id_MTPA)%Conc(I,J,L) &\n                /(VOL*State_Chm%SpcData(APMIDS%id_MTPA)%Info%MW_g &\n                *1.d-3)*6.02d17   ! #/cm3\n          CMTPA=CMTPA*1.d9/XN0   ! CMTPA now in ppb\n\n          NH3EMIT = MAX(0.d0,EMITNH3(I,J,L))*14./17.  ! kg N/box-sec  (NH3 emission)\n\n          ! Consider diurnal variation in emissions\n          NH3EMIT = NH3EMIT * (1.+0.7*SCOS)\n\n          IF(IFATHN>0)THEN\n             DO ITYP = 1, 3\n                CAMINE(ITYP)=Spc(APMIDS%id_AMINE-1+ITYP)%Conc(I,J,L)/(VOL* &\n                   State_Chm%SpcData(APMIDS%id_NH3)%Info%MW_g*1.d-3* &\n                   MWAMINE(ITYP)/17.)*6.02d17   ! #/cm3\n                CAMINE(ITYP)=CAMINE(ITYP)*1.d12/XN0   ! CAMINE now in ppt\n\n                YAMINEEMIT(ITYP) = MWAMINE(ITYP)/14.*NH3EMIT*ERATIO(ITYP) ! convert to kg-amine/box-sec\n                CAMINEEMIT(ITYP) = YAMINEEMIT(ITYP)/(VOL* &\n                   State_Chm%SpcData(APMIDS%id_NH3)%Info%MW_g*1.d-3* &\n                   MWAMINE(ITYP)/17.)*6.02d17   ! # cm-3s-1\n             ENDDO\n\n             IF(NUCLAMINE.EQ.1) THEN\n                XAMINE = CAMINE(1)\n             ELSEIF(NUCLAMINE.EQ.2) THEN\n                XAMINE = CAMINE(2)\n             ELSEIF(NUCLAMINE.EQ.3) THEN\n                XAMINE = CAMINE(3)\n             ELSEIF(NUCLAMINE.EQ.4) THEN\n                XAMINE = CAMINE(1)+CAMINE(2)+CAMINE(3)\n             ELSE\n                !XAMINE = 0.\n                XAMINE = CAMINE(2)  !JATHN calculated anyway, switch in phy to include or not\n             ENDIF\n          ENDIF\n\n          IF(IFAG.EQ.1) THEN\n             PLVSOG1 = sum(PLVSOG(I,J,L,1:5))/(M1LVSOG*1.d+15)  !#/cm3s, PLVSOG in ug/m3s, M1LVSOG in kg\n             PLVSOG01 = PLVSOG(I,J,L,1)/(M1LVSOG*1.d+15)  !#/cm3s, PLVSOG in ug/m3s, M1LVSOG in kg\n             CLVSOG  = MAX(1.D-30,Spc(APMIDS%id_SO4G+1)%Conc(I,J,L)/ &\n                           (VOL*M1LVSOG)*1.d-6)\n             ! coatd LV-SOA\n             MSULFLV = Spc(APMIDS%id_CTSO4  )%Conc(I,J,L)/VOL !kg/m3\n             MBCLV   = Spc(APMIDS%id_CTBC +1)%Conc(I,J,L)/VOL !kg/m3\n             MOCLV   = Spc(APMIDS%id_CTOC +1)%Conc(I,J,L)/VOL !kg/m3\n             MDSTLV  = Spc(APMIDS%id_CTDST+1)%Conc(I,J,L)/VOL !kg/m3\n             MSALTLV = Spc(APMIDS%id_CTSEA+1)%Conc(I,J,L)/VOL !kg/m3\n          ELSE\n             PLVSOG1 = 0.\n             PLVSOG01= 0.\n             CLVSOG  = 0.\n             MSULFLV = 0.\n             MBCLV   = 0.\n             MOCLV   = 0.\n             MDSTLV  = 0.\n             MSALTLV = 0.\n          ENDIF\n\n          IF(IFAG.EQ.1) THEN\n             CSOG(1)=Spc(APMIDS%id_TSOG0)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOG0)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(2)=Spc(APMIDS%id_TSOG1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOG1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(3)=Spc(APMIDS%id_TSOG2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOG2)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(4)=Spc(APMIDS%id_TSOG3)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOG3)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             ! Isoprene SOA from Pye et al. (2010) has been removed;\n             ! the mechanistic isoprene SOA from Marais et al. is used instead.\n             ! Set to low value to avoid breaking APM. (mps, 7/15/19)\n             CSOG(5) = 1.0e-30\n             CSOG(6) = 1.0e-30\n             CSOG(7) = 1.0e-30\n\n             CSOG(8) =Spc(APMIDS%id_ASOG1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_ASOG1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(9) =Spc(APMIDS%id_ASOG2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_ASOG2)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(10)=Spc(APMIDS%id_ASOG3)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_ASOG3)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             CSOG(11)=Spc(APMIDS%id_POG1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_POG1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(12)=Spc(APMIDS%id_POG2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_POG2)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             CSOG(13)=Spc(APMIDS%id_OPOG1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_OPOG1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOG(14)=Spc(APMIDS%id_OPOG2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_OPOG2)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             CSOA(1)=Spc(APMIDS%id_TSOA0)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOA0)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(2)=Spc(APMIDS%id_TSOA1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOA1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(3)=Spc(APMIDS%id_TSOA2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOA2)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(4)=Spc(APMIDS%id_TSOA3)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_TSOA3)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             ! Isoprene SOA from Pye et al. (2010) has been removed;\n             ! the mechanistic isoprene SOA from Marais et al. is used instead.\n             ! Set to low value to avoid breaking APM. (mps, 7/15/19)\n             CSOA(5) = 1.0e-30\n             CSOA(6) = 1.0e-30\n             CSOA(7) = 1.0e-30\n\n             CSOA(8) =Spc(APMIDS%id_ASOA1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_ASOA1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(9) =Spc(APMIDS%id_ASOA2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_ASOA2)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(10)=Spc(APMIDS%id_ASOA3)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_ASOA3)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             CSOA(11)=Spc(APMIDS%id_POA1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_POA1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(12)=Spc(APMIDS%id_POA2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_POA2)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n             CSOA(13)=Spc(APMIDS%id_OPOA1)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_OPOA1)%Info%MW_g* &\n                1.d-3)*6.02d17\n             CSOA(14)=Spc(APMIDS%id_OPOA2)%Conc(I,J,L)/ &\n                (VOL*State_Chm%SpcData(APMIDS%id_OPOA2)%Info%MW_g* &\n                1.d-3)*6.02d17\n\n\n             SOAT= (Spc(APMIDS%id_TSOA1)%Conc(I,J,L)+Spc(APMIDS%id_TSOA2)%Conc(I,J,L)+  &\n                    Spc(APMIDS%id_TSOA3)%Conc(I,J,L)+Spc(APMIDS%id_TSOA0)%Conc(I,J,L)+  &\n                    Spc(APMIDS%id_ASOA1)%Conc(I,J,L)+                       &\n                    Spc(APMIDS%id_ASOA2)%Conc(I,J,L)+Spc(APMIDS%id_ASOA3)%Conc(I,J,L)+  &\n                    Spc(APMIDS%id_POA1)%Conc(I,J,L) +Spc(APMIDS%id_POA2)%Conc(I,J,L) +  &\n                    Spc(APMIDS%id_OPOA1)%Conc(I,J,L)+Spc(APMIDS%id_OPOA2)%Conc(I,J,L))/ &\n                    VOL ! Total SV-&MV-SOA\n          ELSE\n             SOAT= 1.d-30\n          ENDIF\n\n          MSO4 = 0.d0\n          DO N=1,NSO4\n             SIZENUM=APMIDS%id_SO4BIN1+N-1\n             XM1D(N)=Spc(SIZENUM)%Conc(I,J,L)/VOL  !kg/m3\n             MSO4 = MSO4 + XM1D(N)   ! total bin sulfate mass\n             XN1D(N)=XN4D(I,J,L,N)\n          ENDDO\n\n          DO N=1,NSEA        ! sea salt\n             SIZENUM=APMIDS%id_SEABIN1+N-1\n             XM1D(NSO4+N)=Spc(SIZENUM)%Conc(I,J,L)/VOL  !kg/m3\n          ENDDO\n\n          DO N=1,NDSTB      ! dust\n             XMDST(N) = Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L)/VOL   !kg/m3\n             IF(XMDST(N).LT.1.d-20) THEN   !debug force\n                XMDST(N) = 1.d-20\n                Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) = XMDST(N) * VOL\n             ENDIF\n             MWSIZE3D(I,J,L,3)=MWSIZE3D(I,J,L,3)+ &\n                               Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L)*RDST(N)\n          ENDDO\n\n          DO N= 1, NBCOC\n             SIZENUM=APMIDS%id_BCBIN1+N-1\n             MBC(N)=Spc(SIZENUM)%Conc(I,J,L)/VOL  !kg/m3\n             SIZENUM=APMIDS%id_OCBIN1+N-1\n             MOC(N)=Spc(SIZENUM)%Conc(I,J,L)/VOL  !kg/m3\n          ENDDO\n\n          MSO4BULK= Spc(APMIDS%id_SO4)%Conc(I,J,L)/VOL   !kg/m3\n          MNIT    = Spc(APMIDS%id_NIT)%Conc(I,J,L)/VOL   !kg/m3\n          MNH4    = Spc(APMIDS%id_NH4)%Conc(I,J,L)/VOL   !kg/m3\n          MMSA    = Spc(APMIDS%id_MSA)%Conc(I,J,L)/VOL   !kg/m3\n\n          ! coated sulfate\n          MBCS   = Spc(APMIDS%id_CTBC)%Conc(I,J,L)/VOL ! SULF on BC kg/m3\n          MOCS   = Spc(APMIDS%id_CTOC)%Conc(I,J,L)/VOL ! SULF on OC kg/m3\n          MDSTS  = Spc(APMIDS%id_CTDST)%Conc(I,J,L)/VOL ! SULF on DUST kg/m3\n          MSALTS = Spc(APMIDS%id_CTSEA)%Conc(I,J,L)/VOL ! SULF on SEA-SALT kg/m3\n\n          IF(IFCOATBC.EQ.0)  MBCS = 1.d-30\n\n          NCOAG1 = NCOAG3D(I,J,L,1)\n          NCOAG2 = NCOAG3D(I,J,L,2)\n\n          YCLDLIQ=  State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1E3  ! Cloud liquid water content [g/m3]\n\n          VZ = -(State_Met%OMEGA(I,J,L))/(State_Met%AIRDEN(I,J,L)*9.8)  ! vertical velocity in m/s\n          !VZ = 3.d0 ! vertical velocity in m/s\n\n          CALL APM_PHYS(I,J,L, &\n                 NCOAG1,NCOAG2,IACT10,IACT20,IACT30, &\n                 RACT1,RACT2,RACT3,NTEMPOUT1, &\n                 State_Met%AIRDEN(I,J,L), &\n                 PRESS,YSIGMA,TK,RHIN,XQ,PLVSOG01,PLVSOG1,CACID,PACID,CNH3, &\n                 DTAPM,MMSA,MNIT,MNH4,MBCS,MOCS,MDSTS,MSALTS,MBC,MOC, &\n                 SOAT,CLVSOG,MSULFLV,MBCLV,MOCLV,MDSTLV,MSALTLV, &\n                 GFTOT1,GFTOT2,DENWET1,DENWET2, &\n                 YSPGF, XBCLIFE,XOCLIFE, &\n!OPT+         &       XM1D,XN1D,TEMPOUT1,XMDST,FCLOUD1)\n                 VZ,YCLDLIQ, XCDN,XCDNSP, &\n                 XM1D,XN1D,TEMPOUT1,XMDST,FCLOUD1, &\n                 ZBEXT,ZW,ZG,ZBABS,XBEXT1k, &       !LW absorption for dust only\n                 YBEXT,YW,YG,ACS,XAMINE,AERAREA1,AERDRYR1, &\n                 GAMMAPM1,AEROCOMOUT1D,IFOUTIJ(I,J), &\n                 ATOM4N)\n\n          TEMPOUT1(56)=TEMPOUT1(56)+ &\n                       (Spc(APMIDS%id_TSOA1)%Conc(I,J,L)+Spc(APMIDS%id_TSOA2)%Conc(I,J,L)+ &\n                        Spc(APMIDS%id_TSOA3)%Conc(I,J,L)+Spc(APMIDS%id_TSOA0)%Conc(I,J,L)+ &\n                        +Spc(APMIDS%id_ASOA1)%Conc(I,J,L)+ &\n                        Spc(APMIDS%id_ASOA2)%Conc(I,J,L)+Spc(APMIDS%id_ASOA3)%Conc(I,J,L)) &\n                       *60.d9/(92.d0*VOL)\n          IF(IFAG.EQ.1) THEN\n             TEMPOUT1(56)=TEMPOUT1(56)+ &\n               (Spc(APMIDS%id_POA1)%Conc(I,J,L)+Spc(APMIDS%id_POA2)%Conc(I,J,L)+ &\n                Spc(APMIDS%id_OPOA1)%Conc(I,J,L)+Spc(APMIDS%id_OPOA2)%Conc(I,J,L))*1.d9/VOL\n          ENDIF\n\n          TEMPOUT1(59)=State_Met%PHIS(I,J)+SUM(State_Met%BXHEIGHT(I,J,1:L))\n\n          IF(IFOUTIJ(I,J).EQ.1)THEN\n             AEROCOMOUT1D(23:27)=TEMPOUT1(54:58)\n             AEROCOMOUT1D(3)=TEMPOUT1(59)\n          ENDIF\n\n          XBEXT1k3D(I,J,L,1)=SUM(XBEXT1k(1:2,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,2)=(XBEXT1k(3,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,3)=(XBEXT1k(4,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,4)=SUM(XBEXT1k(5:6,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,5)=(XBEXT1k(7,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,6)=SUM(XBEXT1k(8:9,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,7)=SUM(XBEXT1k(10:13,3))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,8)=SUM(XBEXT1k(:,1))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,9)=SUM(XBEXT1k(:,4))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,10)=SUM(XBEXT1k(:,5))*State_Met%BXHEIGHT(I,J,L)*100.\n\n          XBEXT1k3D(I,J,L,11)=SUM(XBEXT1k(1:13,2))*State_Met%BXHEIGHT(I,J,L)*100.\n          XBEXT1k3D(I,J,L,12)=SUM(XBEXT1k(14:18,2))*State_Met%BXHEIGHT(I,J,L)*100.\n\n          !  CS is effective uptake CS from apm_phys,  oxidation rate from Carl and Crowley, 1998.\n          !XSINK =  ACS + XOH*6.49d-11     ! oxid rate for DMA\n\n          OXRATE(1) = 1.73d-11\n          OXRATE(2) = 6.49d-11\n          OXRATE(3) = 3.58d-11\n\n          IF(IFATHN>0)THEN\n             DO ITYP = 1, 3\n                XSINK =  ACS + XOH*OXRATE(ITYP)     ! oxid rate for DMA\n\n                IF(XSINK==0.D0)THEN\n                   Spc(APMIDS%id_AMINE+ITYP-1)%Conc(I,J,L)= &\n                      Spc(APMIDS%id_AMINE+ITYP-1)%Conc(I,J,L) &\n                     +YAMINEEMIT(ITYP)*DTAPM\n                   UPTAKE(I,J,L,1+ITYP) = 0.\n                   OXIDAT(I,J,L,1+ITYP) = 0.\n                ELSE\n                   XX0 = Spc(APMIDS%id_AMINE+ITYP-1)%Conc(I,J,L)+YAMINEEMIT(ITYP)*DTAPM\n                   Spc(APMIDS%id_AMINE+ITYP-1)%Conc(I,J,L)=YAMINEEMIT(ITYP)/XSINK- &\n                    (YAMINEEMIT(ITYP)-XSINK*Spc(APMIDS%id_AMINE+ITYP-1)%Conc(I,J,L))*&\n                    EXP(-XSINK*DTAPM)/XSINK\n\n                   DXX = (Spc(APMIDS%id_AMINE+ITYP-1)%Conc(I,J,L)-XX0)*14./ &\n                         MWAMINE(ITYP)   !kgN/box-step\n                   DXX = DXX*8.64d4/DTAPM   !kgN/box-day\n                   UPTAKE(I,J,L,1+ITYP) = DXX * ACS/XSINK\n                   OXIDAT(I,J,L,1+ITYP) = DXX * (1.-ACS/XSINK)\n                ENDIF\n\n                ! DRYDEP from sulfate_mod.f in v/v-step  --> kgN/box-day\n                DRYDEP(I,J,L,1+ITYP)=DRYDEP(I,J,L,1+ITYP)*14.d-3 &\n                         *State_Met%AD(I,J,L) &   !AD -- kg dry air/box\n                         *8.64d4/(MAIR*DT)\n\n                ! CONDEP from sulfate_mod.f in v/v-step  --> kgN/box-day\n                CONDEP(I,J,L,1+ITYP)=CONDEP(I,J,L,1+ITYP)*14.d-3 &\n                         *State_Met%AD(I,J,L) &   !AD -- kg dry air/box\n                         *8.64d4/(MAIR*DT)\n\n                ! WETDEP from main.f in kg/box-step  --> kgN/box-day\n                WETDEP(I,J,L,1+ITYP)=WETDEP(I,J,L,1+ITYP)*14./MWAMINE(ITYP) &\n                         *8.64d4/DT\n\n             ENDDO\n          ENDIF\n\n          ! DRYDEP and WETDEP for NH3\n          DRYDEP(I,J,L,1)=DRYDEP(I,J,L,1)*14.d-3*State_Met%AD(I,J,L) &  !AD -- kg dry air/box\n               *8.64d4/(MAIR*DT)\n          CONDEP(I,J,L,1)=CONDEP(I,J,L,1)*14.d-3*State_Met%AD(I,J,L) &  !AD -- kg dry air/box\n               *8.64d4/(MAIR*DT)\n          WETDEP(I,J,L,1)=WETDEP(I,J,L,1)*14./17*8.64d4/DT\n\n          ! NH3 oxidation\n          XSINK =   XOH*1.6d-13     ! oxid rate for NH3 1.6d-13 (Atkinson, 1997)\n          XX0 = Spc(APMIDS%id_NH3)%Conc(I,J,L)\n          Spc(APMIDS%id_NH3)%Conc(I,J,L)=Spc(APMIDS%id_NH3)%Conc(I,J,L)*EXP(-XSINK*DTAPM)\n          DXX = (Spc(APMIDS%id_NH3)%Conc(I,J,L)-XX0)*14./17.   !kgN/box-step\n          DXX = DXX*8.64d4/DTAPM   !kgN/box-day\n          OXIDAT(I,J,L,1) = DXX\n\n          ! NH3 uptake lifetime\n          XX1 = exp((9.02 - TK*0.0359)/(8.3144*1.d-3*TK/4.186))\n          XCSNH3=XX1/(1.+XX1)*ACS/AGAMA*SQRT(98./17.)\n          TAONH3(I,J,L)=1./XCSNH3    ! in s\n\n          ! NH3 uptake from ISOROPIA\n          UPTAKE(I,J,L,1) = UPTAKE(I,J,L,1)*14./17.*8.64d4/DT   !from kg NH3/box-step to kgN/box-day\n\n          IF(IFOPT.EQ.1) THEN\n             DO IWL = 1, MWL\n                ZBEXT3D(I,J,L,IWL) = ZBEXT(IWL)\n                ZW3D(I,J,L,IWL) = ZW(IWL)\n                ZG3D(I,J,L,IWL) = ZG(IWL)\n                DO ITYP = 1,NTYP\n                   YBEXT3D(I,J,L,ITYP,IWL) = YBEXT(ITYP,IWL)\n                   YW3D(I,J,L,ITYP,IWL) = YW(ITYP,IWL)\n                   YG3D(I,J,L,ITYP,IWL) = YG(ITYP,IWL)\n                ENDDO\n             ENDDO\n\n             DO IWL = 1, NWL\n                ZBABS3D(I,J,L,IWL) = ZBABS(IWL)\n             ENDDO\n          ENDIF\n\n          GFTOT3D(I,J,L,1) = GFTOT1\n          GFTOT3D(I,J,L,2) = GFTOT2\n\n          XNOLD=XN1D(1)\n          DO N=2,NSO4\n             IF(XN1D(N)>XNOLD )THEN\n                GFTOT3D(I,J,L,3) = N*1.D0\n                XNOLD=XN1D(N)\n             ENDIF\n          ENDDO\n\n          DENWET3D(I,J,L,1) = DENWET1\n          DENWET3D(I,J,L,2) = DENWET2\n          IACT1(I,J,L) = RACT1-1\n          IACT2(I,J,L) = RACT2-1\n          IACT3(I,J,L) = RACT3-1\n          DO N=1,NSO4+4\n             FCLOUD(I,J,L,N) = FCLOUD1(N)\n          ENDDO\n          AERAREA(I,J,L,:) = AERAREA1(:)\n          AERDRYR(I,J,L,:) = AERDRYR1(:)\n          GAMMAPM(I,J,L,:) = GAMMAPM1(:)\n          NCOAG3D(I,J,L,1)=NCOAG1 ! count step that coag is not call in the grid\n          NCOAG3D(I,J,L,2)=NCOAG2 ! count step that coag is not call in the grid\n\n          Spc(APMIDS%id_SO4G)%Conc(I,J,L)=  CACID*VOL*M1ACID*1.d6\n\n          DO N=1,NSO4\n             SIZENUM=APMIDS%id_SO4BIN1+N-1\n             Spc(SIZENUM)%Conc(I,J,L)=XM1D(N)*VOL\n             MWSIZE3D(I,J,L,1)=MWSIZE3D(I,J,L,1)+ &\n                               Spc(SIZENUM)%Conc(I,J,L)*RDRY(N)*GFTOT1\n          ENDDO\n          Spc(APMIDS%id_CTBC)%Conc(I,J,L) = MBCS * VOL\n          Spc(APMIDS%id_CTOC)%Conc(I,J,L) = MOCS * VOL\n          Spc(APMIDS%id_CTDST)%Conc(I,J,L) = MDSTS * VOL\n          Spc(APMIDS%id_CTSEA)%Conc(I,J,L) = MSALTS * VOL\n\n          IF(IFAG.EQ.1) THEN\n             Spc(APMIDS%id_SO4G+1)%Conc(I,J,L)=  CLVSOG*VOL*M1LVSOG*1.d6\n             Spc(APMIDS%id_CTSO4)%Conc(I,J,L)= MSULFLV * VOL   !kg\n             Spc(APMIDS%id_CTBC+1)%Conc(I,J,L) = MBCLV * VOL   !kg\n             Spc(APMIDS%id_CTOC+1)%Conc(I,J,L) = MOCLV * VOL   !kg\n             Spc(APMIDS%id_CTDST+1)%Conc(I,J,L) = MDSTLV * VOL   !kg\n             Spc(APMIDS%id_CTSEA+1)%Conc(I,J,L) = MSALTLV * VOL   !kg\n          ENDIF\n\n          DO N=1,NSEA        ! sea salt\n             SIZENUM=APMIDS%id_SEABIN1+N-1\n             Spc(SIZENUM)%Conc(I,J,L)=XM1D(NSO4+N)*VOL  !kg\n             MWSIZE3D(I,J,L,2)=MWSIZE3D(I,J,L,2)+ &\n                               Spc(SIZENUM)%Conc(I,J,L)*RSALT(N)*GFTOT2\n          ENDDO\n\n          ! no update for dust needed for now because of no coag yet (need update if coag)\n\n          !BCLIFE(I,J,L) = TEMPOUT1(47)\n          !OCLIFE(I,J,L) = TEMPOUT1(48)\n          BCLIFE(I,J,L) = XBCLIFE\n          OCLIFE(I,J,L) = XOCLIFE\n\n          DO N= 1, NBCOC\n             SIZENUM=APMIDS%id_BCBIN1+N-1\n             Spc(SIZENUM)%Conc(I,J,L)=MBC(N)*VOL  !kg/m3\n             SIZENUM=APMIDS%id_OCBIN1+N-1\n             Spc(SIZENUM)%Conc(I,J,L)=MOC(N)*VOL  !kg/m3\n          ENDDO\n\n          ! Yu++ aerosol-cloud interaction\n          ! CCN0.4\n\n          !YCCN = TEMPOUT1(11)+TEMPOUT1(12) &\n          ! +TEMPOUT1(13)+TEMPOUT1(14)+TEMPOUT1(15)\n          !YCCN = TEMPOUT1(6)                  ! mxy+ YCCN here for CN3\n          !YCDN=3.75D8 * (1.-exp(-2.5D-9*YCCN*1.d6))  ! YCCN in #/cm3, YCDN in #/m3\n\n          YCDN = XCDN*1.D6     ! XCDN calculated based on S at a given updraft v\n          YCDNSP = XCDNSP*1.D6 ! XCDN calculated based on S at a given updraft v\n          ! test\n          !YCDN = 2.*XCDN*1.D6  ! XCDN calculated based on S at a given updraft v\n\n          !YCDN= MAX(YCDN, 1.d0)\n          !YCDN= MAX(YCDN, 10.d0)\n          !Luo YCDN= MAX(YCDN, 10.d6)\n          CDN3D(I,J,L) = YCDN\n\n          !Luo IF(L.GE.2) THEN\n          !       YF = MIN(1.d0,State_Met%CMFMC(I,J,L)/1.d-2)\n          !Luo    YF = MIN(1.d0,State_Met%CMFMC(I,J,L)/5.d-3)\n          !Luo    YC = State_Met%AIRDEN(I,J,L)/State_Met%AIRDEN(I,J,L-1)\n          !Luo    YCDN = CDN3D(I,J,L)*(1.-YF)+CDN3D(I,J,L-1)*YF*YC\n          !Luo    CDN3D(I,J,L) = YCDN\n          !Luo ENDIF\n\n          YCLDF = State_Met%CLDF(I,J,L)\n\n          IF(YCLDF.GT.1.D-3)THEN\n             !! convert water content from kg/kg to g/m3\n             YCLDLIQ= State_Met%QL(I,J,L)* &\n                State_Met%AIRDEN(I,J,L)*1D3/YCLDF  ! Cloud liquid water content [g/m3]\n             YCLDICE= State_Met%QI(I,J,L)* &\n                State_Met%AIRDEN(I,J,L)*1D3/YCLDF  ! Cloud ice water content [g/m3]\n\n             !IF(YCLDF.GT.1.d-5) THEN   ! RADF code use CUT=0.001\n             ! IF(PRESS.GT.7.d4) THEN    !effect limit to cloud below 700 mb\n             !Luo YRCLDL=(3.*YCLDLIQ/(4.*3.14*1.d6* YCDN))**(1./3.)*1.d6  ! in um\n             !    YRCLDL = 1.12*YRCLDL   ! 1.12 to take into account relation between rvol and reff (Chen and Penner, ACP, 2005)\n             !    YRCLDL = 1.2*YRCLDL   !test\n\n             dumc = State_Met%QL(I,J,L)/YCLDF\n\n             if(dumc>1.d-15)then\n                dumnc = YCDN/State_Met%AIRDEN(I,J,L)\n\n                call size_dist_param_liq(dumc, dumnc, &\n                   0.d0, State_Met%AIRDEN(I,J,L), .true., &\n                   pgam, lamc)\n\n                YRCLDL = 0.7*gamma(pgam+4.)/gamma(pgam+3.)/ &\n                   lamc*1.e6\n\n             else\n                !YRCLDL=(3.*YCLDLIQ/(4.*3.14*1.d6* YCDN))**(1./3.)*1.d6\n                YRCLDL=55.d0\n             endif\n\n             !ELSE\n             ! YRCLDL = 5.0\n             !ENDIF\n\n          ELSE\n             YCLDLIQ=0.d0\n             YCLDICE=0.d0\n             YCLDF=1.d-3\n             YRCLDL= 55.0\n          ENDIF\n\n          RCLDL3D(I,J,L)= MAX(2.5d0,YRCLDL)   !  ice particle radius\n          RCLDL3D(I,J,L)= MIN(55.d0,YRCLDL)   !  ice particle radius\n\n          YRCLDL = RCLDL3D(I,J,L)\n\n          ! Ice Nuclei\n\n          !YNA(1) = TEMPOUT1(16)  !SP in #/cm3\n          !YNA(1) = TEMPOUT1(16)/3.  !SP in #/cm3\n          YNA(1) = TEMPOUT1(11)  !SP in #/cm3\n          YNA(2) = TEMPOUT1(13)  !dust\n          !YNA(3) = 0.0  !soot  -- no soot IN for now\n          !YNA(3) = TEMPOUT1(14)/100.  ! assume soot a factor 100 less effective compared to dust\n          YNA(3) = TEMPOUT1(14)\n\n          !IF(YCLDICE.GT.1.d-10.and.YCLDF.GT.1.d-5) THEN\n          !\n          !   wbar = 0.25\n          !   relhum = RHIN/100.  ! (RH: 0-1)\n          !   yqc   = State_Met%QL(I,J,L)   !kg/kg\n          !\n          !   call nucleati(wbar, TK, relhum, YCLDF, yqc, &\n          !        YNA, nuci, onihf, oniimm, onidep, onimey)\n          !\n          !   IN3D(I,J,L) = nuci   !#/cm3\n          !   IF(nuci.GT.1.d-4) THEN\n          !    YREI=(3.*YCLDICE/(YCLDF*4.*3.14*0.92d6*nuci*1.d6)) &\n          !                                   **(1./3.)*1.d6  ! in um\n          !   ELSE\n          !    YREI= 30.0\n          !   ENDIF\n          !\n          !   IF(TK.LE.240.) THEN\n          !     YB = -0.03387\n          !   ELSE\n          !     YB = 0.\n          !   ENDIF\n          !   IF(YCLDICE.LE.1.) THEN\n          !     YC = -0.014738\n          !   ELSE\n          !     YC = 0.\n          !   ENDIF\n          !   YK = exp(-3.15393+YB*(TK-240.)+YC*log(YCLDICE))\n          !\n          !   YREI = YREI * (1./YK)**(1./3.)  ! relation between rvol and reff -- Liu et al., 2007\n          !ELSE\n          !  onihf = 0.\n          !  oniimm = 0.\n          !  onidep = 0.\n          !  onimey = 0.\n          !  IN3D(I,J,L) = 0.0\n          !  YREI= 0.0\n          !  YK = 1.\n          !ENDIF\n          !! RCLDI3D(I,J,L) =  YREI\n          !! RCLDI3D(I,J,L) =  YREI/2.0            ! mxy+ increase cloud rf and palb\n          !RCLDI3D(I,J,L) =  50.            ! test with fixed REI (in um)\n          !RCLDI3D(I,J,L) =  100.*SQRT(YCLDICE/1.d-2)             ! test with fixed REI (in um), YCLDICE in g/m3\n          !RCLDI3D(I,J,L) =  50.*YCLDICE/1.d-2             ! test with fixed REI (in um), YCLDICE in g/m3\n          !RCLDI3D(I,J,L) =  30.*YCLDICE/1.d-2             ! test with fixed REI (in um), YCLDICE in g/m3\n          !RCLDI3D(I,J,L) = 0.5*53.005*YCLDICE**0.06*EXP((TK-273.15)*0.013)! para based on Boudala et al., 2002\n          !RCLDI3D(I,J,L) = 1.12*RCLDI3D(I,J,L)   ! 1.12 to take into account relation between rvol and reff (Chen and Penner, ACP, 2005)\n          !RCLDI3D(I,J,L) = 1.2*RCLDI3D(I,J,L)   ! use 1.2 for now\n          !RCLDI3D(I,J,L) = 1.25*RCLDI3D(I,J,L)   ! use 1.2 for now\n          !Luo RCLDI3D(I,J,L) =  0.5*53.005*YCLDICE**0.06*EXP((TK-273.15)*0.013)   ! para based on Boudala et al., 2002\n          !Luo RCLDI3D(I,J,L) = 2.0*RCLDI3D(I,J,L)   ! use 1.2 for now\n\n          !Readin MODIS RCLDI\n          IF(YCLDICE>0.D0)THEN\n             !Luo RCLDI3D(I,J,L) = RCLDI2D(I,J)*1.d0\n             YC = 0.124*exp(min(0.,max(-35.,(TK-273.15)))*0.038)\n             YB = 0.114*exp(min(0.,max(-30.,(TK-273.15)))*0.054)\n\n             YK = YC/(YB+YC)\n\n             RCLDI3D(I,J,L) = 0.7* &\n                (   YK *53.005*(max(0.01,(YCLDICE*YK))**(0.06))* &\n                       EXP(min(0.,max(-35.,(TK-273.15)))*0.013) + &\n                (1.-YK)*57.133*(max(0.01,(YCLDICE*(1.-YK)))**(-0.0313))* &\n                       EXP(min(0.,max(-30.,(TK-273.15)))*0.011) )\n          ELSE\n             RCLDI3D(I,J,L) = 120.d0\n          ENDIF\n\n          ! set to RRTMG limit\n          RCLDI3D(I,J,L)= MAX(5.0d0,RCLDI3D(I,J,L))   !  ice particle radius\n          RCLDI3D(I,J,L)= MIN(140.d0,RCLDI3D(I,J,L))   !  ice particle radius\n\n          YREI = RCLDI3D(I,J,L)\n\n          !IF((MOD(I,10).EQ.1).and.(MOD(J,10).EQ.1).and.(MOD(L,5).EQ.1) &\n          !   .and.L.LT.28)    THEN\n          ! WRITE(111,108)I,J,L, PRESS, TK, &\n          ! YCLDF,YCLDLIQ,YCCN,YCDN,YRCLDL, &\n          ! (1./YK)**(1./3.), &\n          ! YCLDICE,YNA(1),YNA(2),YNA(3),IN3D(I,J,L), &\n          ! onihf,oniimm,onidep,onimey,YREI\n          !ENDIF\n          ! 108   FORMAT(I3,I3,I3,50(1PE9.2))\n          !\n          ! Temporally put OH in TEMPOUT1(4)\n          !TEMPOUT1(4)=XOH\n          !TEMPOUT1(4)=XSINK\n          ! Temporally used the last four tempout1 to save CLDF,CLDLIQ,CDN,and RCLDL for output\n          !TEMPOUT1(NTEMPOUT1-7)=YCLDLIQ\n          !TEMPOUT1(NTEMPOUT1-6)=YCLDICE\n          !TEMPOUT1(NTEMPOUT1-4)=YCLDF\n          !TEMPOUT1(NTEMPOUT1-3)=YCDN*YCLDLIQ  !cloud liq weighted CDN\n          !TEMPOUT1(NTEMPOUT1-2)=YRCLDL*YCLDLIQ   !cloud liq weighted RCLDL\n          !TEMPOUT1(NTEMPOUT1-1)=IN3D(I,J,L)*YCLDICE  !cloud ice weighted CDN\n          !TEMPOUT1(NTEMPOUT1)=YREI*YCLDICE   !cloud ice weighted RCLDL\n          !\n          !TEMPOUT1(19) = YUV(I,J,L,7)  !UV flux (289-320 nm)\n          !TEMPOUT1(20) = YUV(I,J,L,8)  !UV flux (320-412 nm)\n          !TEMPOUT1(21) = XO3(I,J,L)*1.d9  ! ppb\n          !\n          !TEMPOUT1(42) = YUV(I,J,L,1)  !NO2 phtolysis rate\n          !TEMPOUT1(43) = YUV(I,J,L,2)  !HNO3 phtolysis rate\n          !TEMPOUT1(44) = YUV(I,J,L,3)  !H2O2 phtolysis rate\n          !TEMPOUT1(45) = YUV(I,J,L,4)  !CH2O phtolysis rate\n          !TEMPOUT1(46) = YUV(I,J,L,5)  !O3 phtolysis rate\n          !TEMPOUT1(47) = YUV(I,J,L,6)  !POH\n          !! Heating profiles\n          !!TEMPOUT1(57) = YHTRC03D(I,J,L)\n          !!TEMPOUT1(58) = YHTRC3D(I,J,L)\n          !!!TEMPOUT1(59) = YHTR03D(I,J,L)\n          !!TEMPOUT1(60) = YHTR3D(I,J,L)\n          !\n          !TEMPOUT1(NTEMPOUT1-21)=YCDN*YCLDLIQ*YCLDF*YCLDF\n          !TEMPOUT1(NTEMPOUT1-20)=YRCLDL*YCLDLIQ*YCLDF*YCLDF\n          !IF(TK>233.D0)THEN\n          !  TEMPOUT1(NTEMPOUT1-19)=State_Met%OPTDEP(I,J,L)\n          !  TEMPOUT1(NTEMPOUT1-18)=0.D0\n          !ELSE\n          !  TEMPOUT1(NTEMPOUT1-19)=0.D0\n          !  TEMPOUT1(NTEMPOUT1-18)=State_Met%OPTDEP(I,J,L)\n          !ENDIF\n          !\n          !IF(TCOD3D(I,J,L,9)>1.D-3)THEN\n          !  TEMPOUT1(NTEMPOUT1-17)=TCOD3D(I,J,L,4)/(TCOD3D(I,J,L,9)**1.5)\n          !  TEMPOUT1(NTEMPOUT1-16)=TCOD3D(I,J,L,8)/(TCOD3D(I,J,L,9)**1.5)\n          !ELSE\n          !  TEMPOUT1(NTEMPOUT1-17)=0.D0\n          !  TEMPOUT1(NTEMPOUT1-16)=0.D0\n          !ENDIF\n          !\n          !IF(TK>233.D0)THEN\n          !  TEMPOUT1(NTEMPOUT1-15)=State_Met%OPTDEP(I,J,L)*(YCLDF**1.5)\n          !  TEMPOUT1(NTEMPOUT1-14)=0.D0\n          !ELSE\n          !  TEMPOUT1(NTEMPOUT1-15)=0.D0\n          !  TEMPOUT1(NTEMPOUT1-14)=State_Met%OPTDEP(I,J,L)*(YCLDF**1.5)\n          !ENDIF\n          !TEMPOUT1(NTEMPOUT1-13)=TCOD3D(I,J,L,4)\n          !TEMPOUT1(NTEMPOUT1-12)=TCOD3D(I,J,L,8)\n\n          TEMPOUT1(NTEMPOUT1-21)=YCLDLIQ*YCLDF\n          TEMPOUT1(NTEMPOUT1-20)=YCLDICE*YCLDF\n          TEMPOUT1(NTEMPOUT1-19)=YCLDF\n          TEMPOUT1(NTEMPOUT1-18)=YCDN*YCLDLIQ*YCLDF    !cloud liq weighted CDN\n          TEMPOUT1(NTEMPOUT1-13)=YCDNSP*YCLDLIQ*YCLDF  !cloud liq weighted CDN\n          TEMPOUT1(NTEMPOUT1-17)=YRCLDL*YCLDLIQ*YCLDF  !cloud liq weighted RCLDL\n          TEMPOUT1(NTEMPOUT1-16)=IN3D(I,J,L)*YCLDICE*YCLDF !cloud ice weighted CDN\n          TEMPOUT1(NTEMPOUT1-15)=YREI*YCLDICE*YCLDF    !cloud ice weighted RCLDL\n\n          IF(YCLDF>0.8)THEN\n             IF(State_Met%T(I,J,L)>268.)THEN\n                IF(YCLDLIQ>1.D-20)THEN\n                   MODISOUT(I,J,1)=MODISOUT(I,J,1)+YCDN\n                   MODISOUT(I,J,2)=MODISOUT(I,J,2)+YRCLDL\n\n                   MODISOUT(I,J,3)=MODISOUT(I,J,3)+YCDN*YCLDLIQ*YCLDF &\n                                   *State_Met%BXHEIGHT(I,J,L)\n                   MODISOUT(I,J,4)=MODISOUT(I,J,4)+YRCLDL*YCLDLIQ*YCLDF &\n                                   *State_Met%BXHEIGHT(I,J,L)\n\n                   MODISOUT(I,J,5)=MODISOUT(I,J,5)+1.\n                   MODISOUT(I,J,6)=MODISOUT(I,J,6)+YCLDLIQ*YCLDF &\n                        *State_Met%BXHEIGHT(I,J,L)\n                ENDIF\n             ENDIF\n          ENDIF\n\n          TEMPOUT1(NTEMPOUT1-14)=YUV(I,J,L,7)\n          !TEMPOUT1(NTEMPOUT1-13)=YUV(I,J,L,8)\n          !TEMPOUT1(NTEMPOUT1-12)=YUV(I,J,L,9)\n          !TEMPOUT1(NTEMPOUT1-13)=XQ\n          TEMPOUT1(NTEMPOUT1-12)=RHIN\n\n          !TEMPOUT1(NTEMPOUT1-11)=YCLDLIQ*YCLDF*State_Met%BXHEIGHT(I,J,L)\n          !TEMPOUT1(NTEMPOUT1-10)=YCLDICE*YCLDF*State_Met%BXHEIGHT(I,J,L)\n          TEMPOUT1(NTEMPOUT1-11)=YSPGF\n          TEMPOUT1(NTEMPOUT1-10)=0.D0   !reserved for later use?\n          !TEMPOUT1(NTEMPOUT1-9)=State_Met%CLDF(I,J,L)\n          !TEMPOUT1(NTEMPOUT1-9)=YSPGF\n          TEMPOUT1(NTEMPOUT1-9)=EMITSO2(I,J,L)*32./64. &\n              *8.64d4/XAREA ! SO2 emission -- kg S/km2-day\n\n          !TEMPOUT1(NTEMPOUT1-8)=CACID\n          !TEMPOUT1(NTEMPOUT1-7)=CLVSOG\n          TEMPOUT1(NTEMPOUT1-8)=PACID\n          TEMPOUT1(NTEMPOUT1-7)=PLVSOG1\n          TEMPOUT1(NTEMPOUT1-6)=PLVSOG01\n          TEMPOUT1(NTEMPOUT1-5)=XOH\n\n          !TEMPOUT1(NTEMPOUT1-5)=YAMINEEMIT(2)*14./MWAMINE(2)!kg-N/box-sec (DMA)\n          !TEMPOUT1(NTEMPOUT1-4)=CAMINEEMIT(2)   ! # cm-3s-1\n          !TEMPOUT1(NTEMPOUT1-4)=EMITNH3(I,J,L)*14./17.\n          TEMPOUT1(NTEMPOUT1-4)=NH3EMIT &\n              *8.64d4/XAREA ! NH3 emission -- kg N/km2-day\n\n!-------------------------------------------------------------------------------\n! Prior to 6/28/19:\n! Comment out problematic code.  Gan Luo says that we can set all of these\n! to zero, because we do not simulate amines at this point.\n! (bmy, 6/28/19)\n!          TEMPOUT1(NTEMPOUT1-3)=YAMINEEMIT(2)*14./MWAMINE(2)   !kg-N/box-sec (DMA)\n!          !TEMPOUT1(NTEMPOUT1-3)=CNH3\n!          TEMPOUT1(NTEMPOUT1-2)=CAMINE(1)\n!          TEMPOUT1(NTEMPOUT1-1)=CAMINE(2)\n!          TEMPOUT1(NTEMPOUT1)  =CAMINE(3)\n!------------------------------------------------------------------------------\n          TEMPOUT1(NTEMPOUT1-3)=0.0d0\n          !TEMPOUT1(NTEMPOUT1-3)=CNH3\n          TEMPOUT1(NTEMPOUT1-2)=0.0d0\n          TEMPOUT1(NTEMPOUT1-1)=0.0d0\n          TEMPOUT1(NTEMPOUT1)  =0.0d0\n\n          !TEMPOUT1(NTEMPOUT1-5) = YCDN*YCLDLIQ*YCLDF !cloud liq weighted CDN\n          !TEMPOUT1(NTEMPOUT1-4) = YRCLDL*YCLDLIQ*YCLDF !cloud liq weighted RCLDL\n\n          !TEMPOUT1(NTEMPOUT1-5) = State_Met%OPTDEP(I,J,L)\n          !TEMPOUT1(NTEMPOUT1-4) = YCOD3D(I,J,L)/(TCOD3D(I,J,L,9)**1.5)\n          !\n          !TEMPOUT1(NTEMPOUT1-3) = State_Met%OPTDEP(I,J,L) * YCLDF\n          !TEMPOUT1(NTEMPOUT1-2) = YCOD3D(I,J,L) &\n          !                      * TCOD3D(I,J,L,9)/(TCOD3D(I,J,L,9)**1.5)\n          !TEMPOUT1(NTEMPOUT1-1) = State_Met%OPTDEP(I,J,L) &\n          !                      *(YCLDF**1.5)\n          !TEMPOUT1(NTEMPOUT1)   = YCOD3D(I,J,L)\n\n          !TEMPOUT1(NTEMPOUT1-24)=EMITNH3(I,J,L) ! kg NH3/box-sec\n          !TEMPOUT1(NTEMPOUT1-24)=EMITNH3(I,J,L)*14./17.\n          !TEMPOUT1(48)=EMITNH3(I,J,L)*14./17.\n          !    *8.64d4/XAREA ! NH3 emission -- kg N/km2-day\n\n          !Gan Luo+ Satellite output\n          !CODOUT(I,J,L,1)=CODOUT(I,J,L,1)+GOOD(I)*YCLDF\n          !\n          !CODOUT(I,J,L,2)=CODOUT(I,J,L,2)+GOOD(I)*State_Met%OPTDEP(I,J,L)\n          !\n          !CODOUT(I,J,L,3)=CODOUT(I,J,L,3)+GOOD(I)* &\n          !  YCOD3D(I,J,L)/(TCOD3D(I,J,L,9)**1.5)\n          !CODOUT(I,J,L,4)=CODOUT(I,J,L,4)+GOOD(I)* &\n          !  TCOD3D(I,J,L,4)/(TCOD3D(I,J,L,9)**1.5)\n          !CODOUT(I,J,L,5)=CODOUT(I,J,L,5)+GOOD(I)* &\n          !  TCOD3D(I,J,L,8)/(TCOD3D(I,J,L,9)**1.5)\n          !\n          !CODOUT(I,J,L,6)=CODOUT(I,J,L,6)+GOOD(I)*YCLDLIQ\n          !CODOUT(I,J,L,7)=CODOUT(I,J,L,7)+GOOD(I)*YCLDICE\n          !\n          !CODOUT(I,J,L,8)=CODOUT(I,J,L,8)+GOOD(I)*YRCLDL*YCLDLIQ\n          !CODOUT(I,J,L,9)=CODOUT(I,J,L,9)+GOOD(I)*YREI*YCLDICE\n          !\n          !CODOUT(I,J,L,10)=CODOUT(I,J,L,10)+GOOD(I)*YCDN*YCLDLIQ\n          !\n          !CODOUTNUM(I,J,L)=CODOUTNUM(I,J,L)+GOOD(I)*1.D0\n\n          !TEMPOUT1(NTEMPOUT1-22)= &\n          !  MASSISRP(I,J,L,1)*1.d9/(State_Met%AD(I,J,L)) !ppb\n          !TEMPOUT1(NTEMPOUT1-21)= &\n          !  MASSISRP(I,J,L,2)*1.d9/VOL !ug/m3\n          !TEMPOUT1(NTEMPOUT1-20)= &\n          !  MASSISRP(I,J,L,3)*1.d9/(State_Met%AD(I,J,L)) !ppb\n          !TEMPOUT1(NTEMPOUT1-19)= &\n          !  MASSISRP(I,J,L,4)*1.d9/VOL !ug/m3\n          !\n          !TEMPOUT1(NTEMPOUT1-18)= &\n          !  MASSMESA(I,J,L,1)*1.d9/(State_Met%AD(I,J,L)) !ppb\n          !TEMPOUT1(NTEMPOUT1-17)= &\n          !  MASSMESA(I,J,L,2)*1.d9/VOL !ug/m3\n          !TEMPOUT1(NTEMPOUT1-16)= &\n          !  MASSMESA(I,J,L,3)*1.d9/(State_Met%AD(I,J,L)) !ppb\n          !TEMPOUT1(NTEMPOUT1-15)= &\n          !  MASSMESA(I,J,L,4)*1.d9/VOL !ug/m3\n\n          !luogan temp output\n          IF(IFTEMPOUT)THEN\n             IF(IFATOM>0.5)THEN\n                DO N=1,46\n                   TEMPOUT(I,J,L,N)=TEMPOUT1(N)\n                ENDDO\n                TEMPOUT(I,J,L,47) =YUV(I,J,L,6)    !POH\n                TEMPOUT(I,J,L,48) =XO3(I,J,L)*1.d9 ! ppb\n                TEMPOUT(I,J,L,49) =CNO    ! ppb\n                TEMPOUT(I,J,L,50) =CNO2   ! ppb\n                TEMPOUT(I,J,L,51) =CNO3   ! ppb\n                TEMPOUT(I,J,L,52) =CHNO3  ! ppb\n                TEMPOUT(I,J,L,53) =CISOP  ! ppb\n                TEMPOUT(I,J,L,54) =CMTPA  ! ppb\n                TEMPOUT(I,J,L,55) =XX1/(1.+XX1)\n                TEMPOUT(I,J,L,56) =TAONH3(I,J,L)\n                TEMPOUT(I,J,L,57) =CCO    ! ppm\n                TEMPOUT(I,J,L,58) =CSO2   ! ppb\n                TEMPOUT(I,J,L,59) =XOH\n                TEMPOUT(I,J,L,60) =PLVSOG1\n                TEMPOUT(I,J,L,61) =CLVSOG\n                TEMPOUT(I,J,L,62) =PACID\n                TEMPOUT(I,J,L,63) =CACID\n                TEMPOUT(I,J,L,64) =MBCS\n                TEMPOUT(I,J,L,65) =MOCS\n                TEMPOUT(I,J,L,66) =MSALTS\n                TEMPOUT(I,J,L,67) =MDSTS\n                TEMPOUT(I,J,L,68) =MSO4\n                TEMPOUT(I,J,L,69) =MMSA\n                TEMPOUT(I,J,L,70) =MNIT\n                TEMPOUT(I,J,L,71) =MNH4\n                TEMPOUT(I,J,L,72) =MSULFLV\n                IF(IFATOM<0.5)THEN\n                   TEMPOUT(I,J,L,73) =MBCLV\n                   TEMPOUT(I,J,L,74) =MOCLV\n                   TEMPOUT(I,J,L,75) =MDSTLV\n                   TEMPOUT(I,J,L,76) =MSALTLV\n                ELSE\n                   TEMPOUT(I,J,L,73) =ATOM4N(1)\n                   TEMPOUT(I,J,L,74) =ATOM4N(2)\n                   TEMPOUT(I,J,L,75) =ATOM4N(3)\n                   TEMPOUT(I,J,L,76) =ATOM4N(4)\n                ENDIF\n                TEMPOUT(I,J,L,77) =SOAT\n             ELSE\n                DO N=1,NTEMPOUT1\n                   TEMPOUT(I,J,L,N)=TEMPOUT(I,J,L,N)+ TEMPOUT1(N)\n                ENDDO\n             ENDIF\n          ENDIF\n\n          !\n          !APM2+IFSITE+++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n          ! output at selected sites\n          IF(IFSITE.GT.0) THEN\n             IF(IFOUTIJ(I,J).EQ.1.and.L.LE.LOUT) THEN\n                NSITE = SITEID(I,J)\n\n                AEROCOMOUT(NSITE,L,1:27)=AEROCOMOUT1D(1:27)\n\n                DO N=1, NTEMPOUT1\n                   SITEOUT2(NSITE,L,N)=TEMPOUT1(N)\n                ENDDO\n                !SITEOUT2(NSITE,L,NTEMPOUT1+1) = TK\n                !SITEOUT2(NSITE,L,NTEMPOUT1+2) = RHIN\n                !SITEOUT2(NSITE,L,NTEMPOUT1+3) = CACID\n                !SITEOUT2(NSITE,L,NTEMPOUT1+4) = CLVSOG\n                !SITEOUT2(NSITE,L,NTEMPOUT1+5) = State_Met%CLDF(I,J,L)\n                !SITEOUT2(NSITE,L,NTEMPOUT1+6) = SPGF(I,J,L)\n\n                SITEOUT3(NSITE,L,1)  = YUV(I,J,L,6)    !POH\n                SITEOUT3(NSITE,L,2)  = XO3(I,J,L)*1.d9 ! ppb\n                SITEOUT3(NSITE,L,3)  = CNO    ! ppb\n                SITEOUT3(NSITE,L,4)  = CNO2   ! ppb\n                SITEOUT3(NSITE,L,5)  = CNO3   ! ppb\n                SITEOUT3(NSITE,L,6)  = CHNO3  ! ppb\n                SITEOUT3(NSITE,L,7)  = CISOP  ! ppb\n                SITEOUT3(NSITE,L,8)  = CMTPA  ! ppb\n                SITEOUT3(NSITE,L,9)  = XX1/(1.+XX1)\n                SITEOUT3(NSITE,L,10) = TAONH3(I,J,L)\n                SITEOUT3(NSITE,L,11) = CCO    ! ppm\n\n                IF(IFSITEADD.EQ.1) THEN   ! additional output for size dis and others\n                   XU = State_Met%U(I,J,L)\n                   XV = State_Met%V(I,J,L)\n\n                   TOPP = State_Met%PBL_TOP_M(I,J) ! PBL top pressure (hpa)\n                   TOP  = State_Met%PBL_TOP_L(I,J) ! PBL top model levels\n                   YTOP(NSITE,1) = TOP\n                   YTOP(NSITE,2) = TOPP\n                   SITEOUT(NSITE,L,1)=PRESS/100.\n                   SITEOUT(NSITE,L,2)=XU\n                   SITEOUT(NSITE,L,3)=XV\n                   SITEOUT(NSITE,L,4)=TK\n                   SITEOUT(NSITE,L,5)=RHIN\n                   SITEOUT(NSITE,L,6)=CSO2   ! ppb\n                   SITEOUT(NSITE,L,7)=XOH\n                   SITEOUT(NSITE,L,8)=PLVSOG1\n                   SITEOUT(NSITE,L,9)=CLVSOG\n                   SITEOUT(NSITE,L,10)=PACID\n                   SITEOUT(NSITE,L,11)=CACID\n                   SITEOUT(NSITE,L,12)=MBCS\n                   SITEOUT(NSITE,L,13)=MOCS\n                   SITEOUT(NSITE,L,14)=MSALTS\n                   SITEOUT(NSITE,L,15)=MDSTS\n                   SITEOUT(NSITE,L,16)=MSO4\n                   SITEOUT(NSITE,L,17)=MMSA\n                   SITEOUT(NSITE,L,18)=MNIT\n                   SITEOUT(NSITE,L,19)=MNH4\n                   SITEOUT(NSITE,L,20)=MSULFLV\n                   SITEOUT(NSITE,L,21)=MBCLV\n                   SITEOUT(NSITE,L,22)=MOCLV\n                   SITEOUT(NSITE,L,23)=MDSTLV\n                   SITEOUT(NSITE,L,24)=MSALTLV\n                   SITEOUT(NSITE,L,25)=SOAT\n                   DO N=1,14\n                      SITEOUT(NSITE,L,25+N)=CSOA(N)\n                      SITEOUT(NSITE,L,39+N)=CSOG(N)\n                   ENDDO\n                   SITEOUT(NSITE,L,54)=PLVSOG(I,J,L,1)/(M1LVSOG*1.d+15)  !#/cm3s\n                   SITEOUT(NSITE,L,55)=PLVSOG(I,J,L,2)/(M1LVSOG*1.d+15)  !#/cm3s\n                   SITEOUT(NSITE,L,56)=PLVSOG(I,J,L,3)/(M1LVSOG*1.d+15)  !#/cm3s\n                   SITEOUT(NSITE,L,57)=PLVSOG(I,J,L,4)/(M1LVSOG*1.d+15)  !#/cm3s\n                   SITEOUT(NSITE,L,58)=PLVSOG(I,J,L,5)/(M1LVSOG*1.d+15)  !#/cm3s\n                   SITEOUT(NSITE,L,59)=MSO4BULK\n\n                   !SITEOUT(NSITE,L,20)=CNH3/1000.   ! ppb\n                   !SITEOUT(NSITE,L,35)=CNH3/1000.   ! ppb\n\n                   DO N=1, NSO4+NSEA\n                      SITEOUT1(NSITE,L,N)=XM1D(N)\n                   ENDDO\n                   DO N=1,NDSTB\n                      SITEOUT1(NSITE,L,NSO4+NSEA+N)=XMDST(N)\n                   ENDDO\n                   DO N=1,NBCOC\n                      SITEOUT1(NSITE,L,NSO4+NSEA+NDSTB+N)=MBC(N)\n                      SITEOUT1(NSITE,L,NSO4+NSEA+NDSTB+NBCOC+N)=MOC(N)\n                   ENDDO\n\n                ENDIF\n\n                !SITEOUT2(NSITE,L,1) = State_Met%UWND(I,J,L)\n                !SITEOUT2(NSITE,L,1) = State_Met%UWND(I,J,L)\n                !SITEOUT2(NSITE,L,2) = State_Met%VWND(I,J,L)\n                !SITEOUT2(NSITE,L,1) = TK\n                !SITEOUT2(NSITE,L,1) = State_Met%CMFMC(I,J,L+1)\n                !SITEOUT2(NSITE,L,2) = VZ\n                !SITEOUT2(NSITE,L,3) = TEMPOUT1(25) !SP ext\n                !SITEOUT2(NSITE,L,4) = TEMPOUT1(26) !salt ext\n                !SITEOUT2(NSITE,L,5) = TEMPOUT1(27) !dst ext\n                !SITEOUT2(NSITE,L,6) = TEMPOUT1(29) !BC ext\n                !SITEOUT2(NSITE,L,7) = TEMPOUT1(31) !POC ext\n                !SITEOUT2(NSITE,L,8) = TEMPOUT1(6)  !CN3\n                !SITEOUT2(NSITE,L,9) = TEMPOUT1(7)  !CN10_SP\n                !SITEOUT2(NSITE,L,10) = TEMPOUT1(8)  !CN10_PP\n                !SITEOUT2(NSITE,L,11) = TEMPOUT1(11)  !CC0.4_SP\n                !SITEOUT2(NSITE,L,12) = SUM(TEMPOUT1(12:15))  !CC0.4_PP\n                !SITEOUT2(NSITE,L,13) = RHIN\n                !!SITEOUT2(NSITE,L,14)= SPGF(I,J,L)\n                !SITEOUT2(NSITE,L,14) = State_Met%CLDF(I,J,L)\n                !SITEOUT2(NSITE,L,15) = YCLDLIQ\n                !SITEOUT2(NSITE,L,16)= YCLDICE\n                !IF(State_Met%CLDF(I,J,L).GT.0.) THEN\n                !   SITEOUT2(NSITE,L,17)=TEMPOUT1(NTEMPOUT1-1)/State_Met%CLDF(I,J,L)*1.d-6   !CDN in #/cm3\n                !   SITEOUT2(NSITE,L,18) = TEMPOUT1(NTEMPOUT1)/State_Met%CLDF(I,J,L)         !RCLDL in um\n                !ELSE\n                !   SITEOUT2(NSITE,L,17)=0.\n                !   SITEOUT2(NSITE,L,18)=0.\n                !ENDIF\n                !SITEOUT2(NSITE,L,19)= TEMPOUT1(NTEMPOUT1-2)\n             ENDIF\n          ENDIF\n          !APM2+ENDIFSITE++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n          CCLD(L)= MAX(1.d-3,State_Met%CLDF(I,J,L)) ! Cloud cover [Unitless]\n\n          ! convert water content from kg/kg to g/m3 and then to g/m2\n          CLDLIQ(L)=State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1.d3* &\n                    State_Met%BXHEIGHT(I,J,L)/CCLD(L)\n          !test GEOS5 CLDLIQ appears to be too small, increase 50% to enhance Cloud Forcing\n          !CLDLIQ(L)=1.5*State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1.d3*State_Met%BXHEIGHT(I,J,L)\n          CLDICE(L)=State_Met%QI(I,J,L)*State_Met%AIRDEN(I,J,L)*1.d3* &\n                    State_Met%BXHEIGHT(I,J,L)/CCLD(L)\n\n          REL(L) = RCLDL3D(I,J,L)   ! in um (RRTMG limit 2.5 - 60)\n          REL(L)= MAX(2.5d0,REL(L)) !  liquid particle radius\n          REL(L)= MIN(55.d0,REL(L)) !  liquid particle radius\n          !REI(L) = 15.0            ! fixed to this size (um) for now\n          !REI(L) = 20.0            ! fixed to this size (um) for now\n          !REI(L) = 30.0            ! fixed to this size (um) for now\n          REI(L) = RCLDI3D(I,J,L)\n          ! set to RRTMG limit\n          REI(L)= MAX(5.0d0,REI(L))    !  ice particle radius\n          REI(L)= MIN(140.d0,REI(L))   !  ice particle radius\n\n       ENDDO\n\n       call cldprop_swapm(State_Grid%NZ, CCLD, CLDICE, CLDLIQ, REI, REL, &\n                          taucloud, taucloudl, taucloudi, &\n                          ssacloudl, ssacloudi)\n\n       YCOD3D(I,J,:) = taucloud(:,23)\n       TCOD3D(I,J,:,1) = ssacloudl(:,23)\n       TCOD3D(I,J,:,2) = taucloudl(:,23)+taucloudi(:,23)\n       TCOD3D(I,J,:,3) = taucloudl(:,24)\n       TCOD3D(I,J,:,4) = taucloudl(:,23)\n       TCOD3D(I,J,:,5) = ssacloudi(:,23)\n       TCOD3D(I,J,:,6) = ssacloudl(:,23)+ssacloudi(:,23)\n       TCOD3D(I,J,:,7) = taucloudi(:,24)\n       TCOD3D(I,J,:,8) = taucloudi(:,23)\n       TCOD3D(I,J,:,9) = CCLD\n       ZCOD(I,J)= ZCOD(I,J)+ SUM(taucloud(:,23))\n\n    ENDDO\n    ENDDO\n! Disable this parallel loop, which causes differences in output.\n!  -- Bob Yantosca (24 May 2023)\n!    !$OMP END PARALLEL DO\n\n    write(*,*)'LuoSSA',sum(TCOD3D(:,:,:,1))/size(TCOD3D(:,:,:,1)), &\n                       sum(TCOD3D(:,:,:,5))/size(TCOD3D(:,:,:,5))\n\n    !\n    ! radf calculation\n    IF(IFRADF.EQ.1) THEN\n       CALL APM_RADFDRIV( Input_Opt,  State_Chm, State_Diag, &\n                          State_Grid, State_Met, RC )\n    ENDIF\n\n    !APM2+IFSITE+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n    IF(IFSITE.GT.0) THEN\n       KYEAR = GET_YEAR()\n       KMON = GET_MONTH()\n       KDAY = GET_DAY()\n       KHOUR = GET_HOUR()\n       KMIN = GET_MINUTE()\n       DO NSITE=1,MSITE\n          IF(IFSITEOUT(NSITE).EQ.1) THEN\n             KKOUT = 100*NSITE\n             WRITE(KKOUT+70,105)KYEAR,KMON,KDAY,KHOUR,KMIN, &\n                  (SITEOUT2D(NSITE,N),N=1,33)\n             DO L=1,LOUT\n                !WRITE(KKOUT+70,104)L,(SITEOUT2(NSITE,L,N),N=1,NTEMPOUT1+6),\n                WRITE(KKOUT+70,104)L,(SITEOUT2(NSITE,L,N),N=1,NTEMPOUT1), &\n                     (SITEOUT3(NSITE,L,N),N=1,11)\n             ENDDO\n             !WRITE(KKOUT+30,104)1,(SITEOUT2(NSITE,1,N), &\n             !      N=NTEMPOUT1-22,NTEMPOUT1-15)\n\n             IF(IFSITEADD.EQ.1) THEN ! additional output for size dis and others\n                WRITE(KKOUT+10,105)KYEAR,KMON,KDAY,KHOUR,KMIN, &\n                      YTOP(NSITE,1),YTOP(NSITE,2)\n                WRITE(KKOUT+40,105)KYEAR,KMON,KDAY,KHOUR,KMIN\n                !WRITE(KKOUT+50,105)KYEAR,KMON,KDAY,KHOUR,KMIN\n                DO L=1,LOUT\n                   !WRITE(KKOUT+10,104)L,(SITEOUT(NSITE,L,N),N=1,35)\n                   WRITE(KKOUT+10,104)L,(SITEOUT(NSITE,L,N),N=1,59)\n                   WRITE(KKOUT+40,104)L, &\n                        (SITEOUT1(NSITE,L,N),N=1,NSO4+NSEA+NDSTB+NBCOC+NBCOC)\n                   !WRITE(KKOUT+50,104)L,(AEROCOMOUT(NSITE,L,N),N=1,27)\n                ENDDO\n             ENDIF\n          ENDIF\n\n       ENDDO\n    ENDIF\n104 FORMAT(I9,500(1PE9.2))\n105 FORMAT(I4,I3,I3,I3,I3,500(1PE10.2))\n\n    ! Global budget\n    KYEAR = GET_YEAR()\n    KMON  = GET_MONTH()\n    KDAY  = GET_DAY()\n    KHOUR = GET_HOUR()\n    KMIN  = GET_MINUTE()\n\n    XX0 = SUM(EMITNH3(:,:,:))*14./17.*8.64d4 ! NH3 emission -- kg N/day\n\n    CONDEP = 0.\n    OXIDAT = 0.\n    UPTAKE = 0.\n    DRYDEP = 0.\n    WETDEP = 0.\n\n    !APM2+ENDIFSITE++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED )  &\n    !$OMP PRIVATE( I, J )    &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       IF(MODISOUT(I,J,5)>0.D0)THEN\n          TEMPOUT(I,J,1,NTEMPOUT1-10)=TEMPOUT(I,J,1,NTEMPOUT1-10) &\n                                     +MODISOUT(I,J,1)/MODISOUT(I,J,5)\n\n          TEMPOUT(I,J,2,NTEMPOUT1-10)=TEMPOUT(I,J,2,NTEMPOUT1-10) &\n                                     +MODISOUT(I,J,2)/MODISOUT(I,J,5)\n\n          TEMPOUT(I,J,3,NTEMPOUT1-10)=TEMPOUT(I,J,3,NTEMPOUT1-10) &\n                                     +MODISOUT(I,J,5)\n       ENDIF\n\n       IF(MODISOUT(I,J,6)>0.D0)THEN\n          TEMPOUT(I,J,4,NTEMPOUT1-10)=TEMPOUT(I,J,4,NTEMPOUT1-10) &\n                                     +MODISOUT(I,J,3)/MODISOUT(I,J,6)\n\n          TEMPOUT(I,J,5,NTEMPOUT1-10)=TEMPOUT(I,J,5,NTEMPOUT1-10) &\n                                     +MODISOUT(I,J,4)/MODISOUT(I,J,6)\n\n          TEMPOUT(I,J,6,NTEMPOUT1-10)=TEMPOUT(I,J,6,NTEMPOUT1-10) &\n                                     +MODISOUT(I,J,6)\n       ENDIF\n       MODISOUT(I,J,:)=0.D0\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    NPOUTSTEPS = NPOUTSTEPS + 1\n    ! reset YUV to 0\n    YUV = 0.\n\n    !DO N=APMIDS%id_SO4G,(APMIDS%id_AMINE+2)\n    !   WRITE(110,*)N,MAXVAL(Spc(N)%Conc(:,:,:)), &\n    !               SUM(Spc(N)%Conc(:,:,:))/SIZE(Spc(N)%Conc(:,:,:))\n    !   FLUSH(110)\n    !ENDDO\n\n    IF(IFATOM>0.5)THEN\n\n       KYEAR = GET_YEAR()\n       KMON  = GET_MONTH()\n       KDAY  = GET_DAY()\n       KHOUR = GET_HOUR()\n       KMIN  = GET_MINUTE()\n\n       IF((KMON==ATOMMONS.AND.KDAY>ATOMDAYS) .OR. &\n          (KMON>ATOMMONS.AND.KMON<ATOMMONE)  .OR. &\n          (KMON==ATOMMONE.AND.KDAY<ATOMDAYE))THEN\n          WRITE(ATOMDATE(1:4),'(I4.4)')KYEAR\n          WRITE(ATOMDATE(5:6),'(I2.2)')KMON\n          WRITE(ATOMDATE(7:8),'(I2.2)')KDAY\n          WRITE(ATOMDATE(9:10),'(I2.2)')KHOUR\n          WRITE(ATOMDATE(11:12),'(I2.2)')KMIN\n          CLOSE(100)\n          OPEN(100,FILE='ATOM/ATOM'//ATOMDATE//'.bin', &\n               ACCESS='DIRECT',FORM='UNFORMATTED',     &\n               RECL=(95+APMIDS%id_AMINE+4-APMIDS%id_SO4G))\n\n          RECID=1\n          DO J=1,GRIDNUM\n             DO L=1,40\n                PRESS=GET_PCENTER(ATOMGRID(1,J),ATOMGRID(2,J),L)\n                WRITE(100,REC=RECID) &\n                      REAL(ATOMGRID(1,J)),REAL(ATOMGRID(2,J)),REAL(L),        &\n                      REAL(PRESS),                                            &\n                      REAL(State_Met%T(ATOMGRID(1,J),ATOMGRID(2,J),L)),       &\n                      REAL(State_Met%RH(ATOMGRID(1,J),ATOMGRID(2,J),L)),      &\n                      REAL(State_Met%CLDF(ATOMGRID(1,J),ATOMGRID(2,J),L)),    &\n                      REAL(State_Met%AIRVOL(ATOMGRID(1,J),ATOMGRID(2,J),L)),  &\n                      REAL(State_Met%AIRDEN(ATOMGRID(1,J),ATOMGRID(2,J),L)),  &\n                      REAL(State_Met%AD(ATOMGRID(1,J),ATOMGRID(2,J),L)),      &\n                      REAL(State_Met%BXHEIGHT(ATOMGRID(1,J),ATOMGRID(2,J),L)),&\n                      REAL(State_Met%U(ATOMGRID(1,J),ATOMGRID(2,J),L)),       &\n                      REAL(State_Met%V(ATOMGRID(1,J),ATOMGRID(2,J),L)),       &\n                     (REAL(TEMPOUT(ATOMGRID(1,J),ATOMGRID(2,J),L,N)),N=1,77), &\n                     (REAL(Spc(M)%Conc(ATOMGRID(1,J),ATOMGRID(2,J),L)),       &\n                           M=APMIDS%id_SO4G,(APMIDS%id_AMINE+2)),             &\n                      REAL(Spc(APMIDS%id_SO2 )%Conc(ATOMGRID(1,J),ATOMGRID(2,J),L)), &\n                      REAL(Spc(APMIDS%id_NH3 )%Conc(ATOMGRID(1,J),ATOMGRID(2,J),L)), &\n                      REAL(Spc(APMIDS%id_NH4 )%Conc(ATOMGRID(1,J),ATOMGRID(2,J),L)), &\n                      REAL(Spc(APMIDS%id_HNO3)%Conc(ATOMGRID(1,J),ATOMGRID(2,J),L)), &\n                      REAL(Spc(APMIDS%ID_NIT )%Conc(ATOMGRID(1,J),ATOMGRID(2,J),L))\n                      RECID=RECID+1\n             ENDDO\n          ENDDO\n          CLOSE(100)\n       ENDIF\n    ENDIF\n\n    !$OMP PARALLEL DO                                       &\n    !$OMP DEFAULT( SHARED )                                 &\n    !$OMP PRIVATE( I, J, L, M )                             &\n    !$OMP PRIVATE( SO4_bin_sum, SEA_bin_sum, DST_bin_sum )  &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, STATE_GRID%NZ\n    DO J = 1, STATE_GRID%NY\n    DO I = 1, STATE_GRID%NX\n\n       SO4_bin_sum = 0.d0\n       DO M = 1, NSO4\n          SO4_bin_sum = SO4_bin_sum + Spc(APMIDS%id_SO4BIN1+M-1)%Conc(I,J,L)\n       ENDDO\n       IF( SO4_bin_sum > 1.d-30 )THEN\n          MWSIZE3D(I,J,L,1) = MWSIZE3D(I,J,L,1) / SO4_bin_sum\n       ELSE\n          MWSIZE3D(I,J,L,1) = RDRY(39) * GFTOT3D(I,J,L,1)\n       ENDIF\n\n       SEA_bin_sum = 0.d0\n       DO M = 1, NSEA\n          SEA_bin_sum = SEA_bin_sum + Spc(APMIDS%id_SEABIN1+M-1)%Conc(I,J,L)\n       ENDDO\n       IF( SEA_bin_sum > 1.d-30 ) THEN\n          MWSIZE3D(I,J,L,2) = MWSIZE3D(I,J,L,2) / SEA_bin_sum\n       ELSE\n          MWSIZE3D(I,J,L,2) = RSALT(19) * GFTOT3D(I,J,L,2)\n       ENDIF\n\n       DST_bin_sum = 0.d0\n       DO M = 1, NDSTB\n          DST_bin_sum = DST_bin_sum + Spc(APMIDS%id_DSTBIN1+M-1)%Conc(I,J,L)\n       ENDDO\n       IF( DST_bin_sum > 1.d-30 )THEN\n          MWSIZE3D(I,J,L,3) = MWSIZE3D(I,J,L,3) / DST_bin_sum\n       ELSE\n          MWSIZE3D(I,J,L,3) = RDRY(14)\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE APM_DRIV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_radfdriv\n!\n! !DESCRIPTION: Subroutine APM\\_RADFDRIV is the interface between GEOS-Chem/APM\n!  and 1-column radiative forcing module\n!\n!  Originally written for CCCMa RF module by X. Ma & F. Yu, SUNY-Albany. 2011\n!\n!  Modified to drive RRTMG by F. Yu, 08/2012\n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE APM_RADFDRIV( Input_Opt,  State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE APM_INIT_MOD, ONLY : IFSITE,SITEOUT2D\n    USE APM_INIT_MOD, ONLY : IFALBMODIS\n    USE TIME_MOD,     ONLY : GET_DAY_OF_YEAR\n    USE TIME_MOD,     ONLY : GET_YEAR, GET_MONTH\n    USE TIME_MOD,     ONLY : GET_DAY,GET_HOUR,GET_MINUTE\n    USE TIME_MOD,     ONLY : GET_NHMS\n    USE TIME_MOD,     ONLY : GET_LOCALTIME\n    USE APM_ALB_MOD,  ONLY : APM_ALB         ! get surface albedo from MODIS\n    USE APM_RADF_MOD, ONLY : APM_RADF        ! radiation\n    USE PRESSURE_MOD, ONLY : GET_PEDGE       !\n    USE PRESSURE_MOD, ONLY : GET_PCENTER\n\n    use rrtmg_sw_GCAPM, only : rrtmg_sw\n    use parkind, only : im => kind_im, rb => kind_rb\n\n    USE ErrCode_Mod\n    Use Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    Use State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  2-6/2011 - X. Ma & F. Yu, SUNY-Albany\n!  8/2012 - F. Yu, SUNY-Albany\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I,J,L,N\n\n    INTEGER :: KYEAR,KMON,KDAY,KHOUR,KMIN,NSITE\n\n    LOGICAL, SAVE    :: FIRST = .TRUE.\n    LOGICAL, SAVE    :: FIRST1 = .TRUE.\n\n    INTEGER :: DAY_YR\n    INTEGER :: MINIMUM,DDAY,DAY_READ\n    INTEGER, SAVE :: AFLAG(366)\n\n    INTEGER :: K, LL, IJLOOP\n    INTEGER :: NDAY\n    INTEGER :: LEV\n\n    INTEGER, PARAMETER :: KWL=7         !! mxy MODIS spectral bands\n    INTEGER, PARAMETER :: IAE2 = 2\n    INTEGER, PARAMETER :: IAE1 = 1\n    INTEGER, PARAMETER :: IAE0 = 0\n\n    INTEGER, PARAMETER :: icld = 2   ! for RRTMG\n    INTEGER, PARAMETER :: mxmol = 7   ! for RRTMG\n\n    REAL           :: MAS             !!! AIR MASS OF BOX\n    REAL(kind=rb)  :: SCOS            !!! COSINE OF SOLAR ZENITH ANGLE\n    !REAL          :: CLDT            !!! COLUMN CLOUD COVER\n    REAL(kind=rb)  :: PSURF, TSURF\n\n    REAL(kind=rb)  :: AIRD(State_Grid%NZ)\n    REAL(kind=rb)  :: P1D (State_Grid%NZ)\n    REAL(kind=rb)  :: PE1D (0:State_Grid%NZ)\n    REAL(kind=rb)  :: PDP (State_Grid%NZ)\n    REAL(kind=rb)  :: T1D (State_Grid%NZ)\n    REAL(kind=rb)  :: TE1D (0:State_Grid%NZ)\n    REAL(kind=rb)  :: WKL (mxmol,State_Grid%NZ)\n    REAL(kind=rb)  :: COLDRY(State_Grid%NZ) !!! dry air column density (mol/cm2)\n    REAL(kind=rb)  :: CCLD(State_Grid%NZ)   !!! CLOUD COVER\n    REAL(kind=rb)  :: CLDLIQ(State_Grid%NZ) !!! CLOUD LIQUID WATER CONTENT\n    REAL(kind=rb)  :: CLDICE(State_Grid%NZ) !!! CLOUD ICE WATER CONTENT\n    REAL(kind=rb)  :: REL(State_Grid%NZ)\n    REAL(kind=rb)  :: REI(State_Grid%NZ)\n\n    REAL           :: YCOD(State_Grid%NZ)\n\n    REAL           :: MALB(State_Grid%NX,State_Grid%NY,KWL)\n\n    REAL(kind=rb)  :: TEXT  (State_Grid%NZ,NBS,NTYP)\n    REAL(kind=rb)  :: TOMGA (State_Grid%NZ,NBS,NTYP)\n    REAL(kind=rb)  :: TG    (State_Grid%NZ,NBS,NTYP)\n    REAL(kind=rb)  :: TABS  (State_Grid%NZ,NBL,NTYP)\n\n    REAL(kind=rb)  :: EXT  (State_Grid%NZ,NBS)\n    REAL(kind=rb)  :: OMGA (State_Grid%NZ,NBS)\n    REAL(kind=rb)  :: G    (State_Grid%NZ,NBS)\n    REAL(kind=rb)  :: ABSA (State_Grid%NZ,NBL)\n\n    REAL(kind=rb)  :: YHTRC(State_Grid%NZ),YHTR(State_Grid%NZ)    !heating profiles\n    REAL(kind=rb)  :: YHTRC0(State_Grid%NZ),YHTR0(State_Grid%NZ)\n\n    REAL(kind=rb)  :: SALB(NBS)\n\n    REAL(kind=rb)  :: TCST(NTYP),TCSB(NTYP),TFST(NTYP),TFSB(NTYP)\n    REAL(kind=rb)  :: TFSA(NTYP)\n    REAL(kind=rb)  :: CST,CSB,FST,FSB,FSA\n    REAL(kind=rb)  :: CST0,CSB0,FST0,FSB0,FSA0\n\n    REAL  :: THRS(State_Grid%NZ,NTYP),THRL(State_Grid%NZ,NTYP)\n    REAL  :: TCLT(NTYP),TCLB(NTYP),TFUL(NTYP),TFDL(NTYP),TFLA(NTYP)\n\n    REAL  :: HRS  (State_Grid%NZ),HRL  (State_Grid%NZ)\n    REAL  :: HRS0 (State_Grid%NZ),HRL0 (State_Grid%NZ)\n    REAL  :: CLT,CLB,FUL,FDL,FLA\n    REAL  :: CLT0,CLB0,FUL0,FDL0,FLA0\n    REAL  :: WCL, WCI\n    REAL  :: YYAOD,BEXTL13,YVIS,RHL1\n    REAL  :: YYAOD1,YYAOD3, YYAODT\n\n    REAL*8,  PARAMETER   :: MAIR         = 28.966d-3           ! kg/mol\n    REAL*8,  PARAMETER   :: XNUMOL_AIR   = 6.022d23 / MAIR    ! molec/kg\n\n    ! For RRTMG\n    REAL*8,  PARAMETER   :: YCO2  = 3.55d-4        ! mol/mol\n    REAL*8,  PARAMETER   :: YN2O  = 3.20d-7        ! mol/mol\n    REAL*8,  PARAMETER   :: YCH4  = 1.65d-6        ! mol/mol\n    REAL*8,  PARAMETER   :: YO2   = 2.09d-1        ! mol/mol\n\n    INTEGER :: IDO3                 !\n    INTEGER :: id_O3                ! O3 in g.mol ??\n    INTEGER :: id_CO                !\n\n    RC = GC_SUCCESS\n\n    LEV = State_Grid%NZ+1\n\n    WRITE(6,*)'    - APM RADF_DRIV  '\n\n    IF(FIRST)THEN\n\n       WRITE(6,*)\"KOUT1=\",KOUT1, YWLS(KOUT1)\n       WRITE(6,*)\"KOUT2=\",KOUT2, YWLS(KOUT2)\n       WRITE(6,*)\"KOUT3=\",KOUT3, YWLS(KOUT3)\n\n       ! Need to pass state objects here (bmy, 6/18/19)\n       CALL APM_RADFOUT( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n       AFLAG=0\n       DO i=1,366\n          IF(MOD(i,8).eq.1) AFLAG(i)=1\n       ENDDO\n180    format(366i1)\n\n       FIRST = .FALSE.\n    ENDIF\n\n    ! mxy+ read in MODIS surface albedo for restart\n    DAY_YR = GET_DAY_OF_YEAR()\n    print*,'DAY_OF_YR',DAY_YR\n\n    KYEAR = GET_YEAR()\n    KMON = GET_MONTH()\n    KDAY = GET_DAY()\n    KHOUR = GET_HOUR()\n\n    print*,'KYEAR',KYEAR\n    print*,'KHOUR',KHOUR\n\n    print*,'FIRST1',FIRST1\n    print*,'AFLAG',AFLAG(DAY_YR)\n    IF(FIRST1) THEN   ! read data when restart\n       IF(IFALBMODIS.EQ.1) THEN\n          WRITE(6,*)\"NEED TO READ SURFACE ALBEDO DATA WHEN RESTART\"\n          IF(AFLAG(DAY_YR) == 1 .and. KHOUR == 0) THEN\n             CALL APM_ALB(DAY_YR,KYEAR,State_Grid%NX,State_Grid%NY,KWL,MALB)\n             CALL GETALBDRR(State_Grid%NX,State_Grid%NY,MALB,State_Met)\n          ENDIF\n          IF(AFLAG(DAY_YR) == 0) THEN\n             MINIMUM = 366\n             DO I = 1,366\n                IF(AFLAG(I) == 1) THEN\n                   DDAY=ABS(DAY_YR-I)\n                   IF(DDAY.LT.MINIMUM) THEN\n                      MINIMUM = DDAY\n                      DAY_READ = I\n                   ENDIF\n                ENDIF\n             ENDDO\n             print*,'READ DATA FROM THIS DAY',DAY_READ\n             IF( KHOUR == 0) THEN\n                CALL APM_ALB(DAY_READ,KYEAR,State_Grid%NX,State_Grid%NY,KWL,MALB)\n                CALL GETALBDRR(State_Grid%NX,State_Grid%NY,MALB,State_Met)\n             ENDIF\n          ENDIF\n       ENDIF\n       FIRST1 = .FALSE.\n    ENDIF\n\n    IF(IFALBMODIS.EQ.1) THEN\n       ! read data every 8 days\n       IF(AFLAG(DAY_YR) == 1 .and. KHOUR == 0) THEN\n          CALL APM_ALB(DAY_YR,KYEAR,State_Grid%NX,State_Grid%NY,KWL,MALB)\n          CALL GETALBDRR(State_Grid%NX,State_Grid%NY,MALB,State_Met)\n       ENDIF\n    ELSE\n       DO IWL=1,NBS\n          ALBDRR(:,:,IWL) = State_Met%ALBD(:,:)\n       ENDDO\n    ENDIF\n\n    !$OMP PARALLEL DO                                   &\n    !$OMP DEFAULT( SHARED )                             &\n    !$OMP PRIVATE( I, J, L, LL, IJLOOP,IWL,ITYP,NSITE)  &\n    !$OMP PRIVATE( TEXT, TOMGA,TG,TABS )                &\n    !$OMP PRIVATE( EXT, OMGA,G,ABSA )                   &\n    !$OMP PRIVATE( YHTRC,YHTR,YHTRC0,YHTR0)             &\n    !$OMP PRIVATE( TCST, TCSB, TFST, TFSB, TFSA, THRS ) &\n    !$OMP PRIVATE( TCLT, TCLB, TFUL, TFDL, TFLA, THRL ) &\n    !$OMP PRIVATE( CST, CSB, FST, FSB, FSA, HRS )       &\n    !$OMP PRIVATE( CST0, CSB0, FST0, FSB0, FSA0, HRS0 ) &\n    !$OMP PRIVATE( CLT , CLB , FUL, FDL, FLA, HRL  )    &\n    !$OMP PRIVATE( CLT0, CLB0, FUL0, FDL0, FLA0, HRL0 ) &\n    !$OMP PRIVATE( WCL, WCI )                           &\n    !$OMP PRIVATE( SALB )                               &\n    !$OMP PRIVATE( YYAOD,BEXTL13,YVIS,RHL1 )            &\n    !$OMP PRIVATE( YYAOD1 )                             &\n    !$OMP PRIVATE( YYAODT )                             &\n    !$OMP PRIVATE( PSURF,TSURF,SCOS )                   &\n    !$OMP PRIVATE( AIRD,P1D,PE1D,PDP,T1D,TE1D)          &\n    !$OMP PRIVATE( COLDRY,WKL)                          &\n    !$OMP PRIVATE( CCLD,CLDLIQ,CLDICE )                 &\n    !$OMP PRIVATE( REL,REI)                             &\n    !$OMP PRIVATE( YCOD )                               &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize parameters for 1-column rad calculation\n       AOD(I,J)      =1.d-20\n       TAOD(I,J,:)   =1.d-20\n\n       AAOD(I,J)     =1.d-20\n       AODOUT1(I,J)  =1.d-20\n       AAODOUT1(I,J) =1.d-20\n       AODOUT3(I,J)  =1.d-20\n       AAODOUT3(I,J) =1.d-20\n\n       ! Optical properties: RRTMG need AOD instead of ext, now EXT is layer AOD\n       DO L = 1, State_Grid%NZ\n          DO IWL = 1, NBS\n             EXT(L,IWL) = ZBEXT3D(I,J,L,NWLS(IWL))* &\n                          State_Met%BXHEIGHT(I,J,L)*100.\n             OMGA(L,IWL)= ZW3D(I,J,L,NWLS(IWL))\n             G(L,IWL)   = ZG3D(I,J,L,NWLS(IWL))\n          ENDDO\n          DO ITYP = 1,NTYP\n             DO IWL = 1, NBS\n                TEXT(L,IWL,ITYP) = YBEXT3D(I,J,L,ITYP,NWLS(IWL))* &\n                                   State_Met%BXHEIGHT(I,J,L)*100.\n                TOMGA(L,IWL,ITYP)= YW3D(I,J,L,ITYP,NWLS(IWL))\n                TG(L,IWL,ITYP)   = YG3D(I,J,L,ITYP,NWLS(IWL))\n             ENDDO\n          ENDDO\n          ! LW\n          DO IWL=1,NWL\n             ABSA(L,IWL)=ZBABS3D(I,J,L,IWL)\n          ENDDO\n\n          DO ITYP = 1,NTYP\n             IF(ITYP.EQ.3)THEN !dust\n                DO IWL=1,NBL\n                   TABS(L,IWL,ITYP)=ZBABS3D(I,J,L,IWL)\n                ENDDO\n             ELSE\n                DO IWL=1,NBL\n                   TABS(L,IWL,ITYP)=0.\n                ENDDO\n             ENDIF\n          ENDDO\n\n          ! instantanous AOD\n          YYAOD = State_Met%BXHEIGHT(I,J,L)*100.*ZBEXT3D(I,J,L,KOUT2)  !WL(KOUT2) nm\n\n          AOD(I,J) =  AOD(I,J)+ YYAOD\n          AAOD(I,J)= AAOD(I,J)+ YYAOD*(1.-ZW3D(I,J,L,KOUT2))  !WL(KOUT2) nm\n\n          YYAOD1       = State_Met%BXHEIGHT(I,J,L)*100.*ZBEXT3D(I,J,L,KOUT1)  !\n          AODOUT1(I,J) =  AODOUT1(I,J)+ YYAOD1\n          AAODOUT1(I,J)= AAODOUT1(I,J)+ YYAOD1*(1.-ZW3D(I,J,L,KOUT1))  !\n\n          YYAOD3       = State_Met%BXHEIGHT(I,J,L)*100.*ZBEXT3D(I,J,L,KOUT3)  !\n          AODOUT3(I,J) =  AODOUT3(I,J)+ YYAOD3\n          AAODOUT3(I,J)= AAODOUT3(I,J)+ YYAOD3*(1.-ZW3D(I,J,L,KOUT3))  !\n\n          ! AOD\n          DO ITYP = 1,NTYP\n             YYAODT = State_Met%BXHEIGHT(I,J,L)*100.* &\n                      YBEXT3D(I,J,L,ITYP,KOUT2)      !WL(KOUT2) nm\n             TAOD(I,J,ITYP) = TAOD(I,J,ITYP)+ &\n                              State_Met%BXHEIGHT(I,J,L)*100.* &\n                              YBEXT3D(I,J,L,ITYP,KOUT2)      !WL(KOUT2) nm\n             ZTAOD(I,J,ITYP) = ZTAOD(I,J,ITYP)+ &\n                               State_Met%BXHEIGHT(I,J,L)*100.* &\n                               YBEXT3D(I,J,L,ITYP,KOUT2)      !WL(KOUT2) nm\n          ENDDO\n          !cumulative AOD for average\n          ZAOD(I,J)= ZAOD(I,J)+ YYAOD\n          CODGC(I,J) = CODGC(I,J) + &\n                       (State_Met%TAUCLW(I,J,L)+State_Met%TAUCLI(I,J,L)) &\n                       *State_Met%CLDF(I,J,L)\n          ZCODGC(I,J)= ZCODGC(I,J) + &\n                       (State_Met%TAUCLW(I,J,L)+State_Met%TAUCLI(I,J,L)) &\n                       *State_Met%CLDF(I,J,L)\n\n          ZAODOUT1(I,J)= ZAODOUT1(I,J)+ YYAOD1  !380 nm\n          ZAODOUT3(I,J)= ZAODOUT3(I,J)+ YYAOD3  !870 nm\n\n          IF(State_Met%CLDFRC(I,J).LE.0.25) THEN\n             ZAOD25(I,J)=ZAOD25(I,J) + YYAOD\n             IF(L.EQ.1) NAOD25(I,J)=NAOD25(I,J) + 1\n          ENDIF\n          IF(State_Met%CLDFRC(I,J).LE.0.50) THEN\n             ZAOD50(I,J)=ZAOD50(I,J) + YYAOD\n             IF(L.EQ.1) NAOD50(I,J)=NAOD50(I,J) + 1\n          ENDIF\n          IF(State_Met%CLDFRC(I,J).LE.0.75) THEN\n             ZAOD75(I,J)=ZAOD75(I,J) + YYAOD\n             IF(L.EQ.1) NAOD75(I,J)=NAOD75(I,J) + 1\n          ENDIF\n\n          ZAAOD(I,J)= ZAAOD(I,J)+ State_Met%BXHEIGHT(I,J,L)*100.* &\n                      ZBEXT3D(I,J,L,KOUT2)*(1.-ZW3D(I,J,L,KOUT2))  !WL(KOUT2) nm\n\n          ZAAODOUT1(I,J)= ZAAODOUT1(I,J)+ State_Met%BXHEIGHT(I,J,L)*100.* &\n                          ZBEXT3D(I,J,L,KOUT1)*(1.-ZW3D(I,J,L,KOUT1))  !380 nm\n\n          ZAAODOUT3(I,J)= ZAAODOUT3(I,J)+ State_Met%BXHEIGHT(I,J,L)*100.* &\n                          ZBEXT3D(I,J,L,KOUT3)*(1.-ZW3D(I,J,L,KOUT3))  !870 nm\n\n          ZABS(I,J)= ZABS(I,J)+ State_Met%BXHEIGHT(I,J,L)*100.* &\n                     ZBABS3D(I,J,L,6)  !LW, 1150 nm\n\n       ENDDO   ! L=1,State_Grid%NZ\n\n       ! visibility\n       ! mean bext L1_L3 (H<387 m)\n       BEXTL13 = (ZBEXT3D(I,J,1,6)*State_Met%BXHEIGHT(I,J,1) + &   ! 550 nm\n                  ZBEXT3D(I,J,2,6)*State_Met%BXHEIGHT(I,J,2) + &\n                  ZBEXT3D(I,J,3,6)*State_Met%BXHEIGHT(I,J,3))/ &\n         (State_Met%BXHEIGHT(I,J,1)+State_Met%BXHEIGHT(I,J,2)+ &\n          State_Met%BXHEIGHT(I,J,3))   ! in cm-1\n\n       YVIS = 3.912/(3.9d-2 + BEXTL13*1.d5)  ! in km\n\n       ZVIS(I,J) = ZVIS(I,J) + YVIS   ! accumulated for average\n\n       RHL1 = State_Met%RH(I,J,1)/100. ! RH at surface layer\n       IF(RHL1.LT.0.95.and.YVIS.LE.5.0) THEN\n          THAZ(I,J)=THAZ(I,J) + 1.0\n       ENDIF\n       IF(RHL1.GT.0.95.and.YVIS.LE.2.0) THEN\n          TFOG(I,J)=TFOG(I,J) + 1.0\n       ENDIF\n\n       ! Profiles for RF\n       IJLOOP = ( (J-1) * State_Grid%NX ) + I\n       SCOS   = State_Met%SUNCOS(I,J)\n\n       PE1D(0) = GET_PEDGE(I,J,1)        ! P surface   [MB]\n       TE1D(0) = State_Met%TSKIN(I,J)              ! T surface (K)\n       TSURF   = TE1D(0)\n\n       DO IWL = 1, NBS\n          SALB(IWL) = ALBDRR(I,J,IWL)       ! Albedo surface\n       ENDDO\n\n       !IF(I.EQ.60.and.J.EQ.33) THEN\n       !   WRITE(1002,99)DAY_YR,KHOUR,State_Grid%NZ,SCOS, &\n       !      AOD(I,J),State_Met%CLDFRC(I,J),(SALB(IWL),IWL=1,NBS)\n       !99 FORMAT(I4,I3,I3,F9.3,100(1PE9.2))\n       !ENDIF\n\n       DO L=1, State_Grid%NZ\n          AIRD(L)= State_Met%AIRDEN(I,J,L)*XNUMOL_AIR* &\n                   State_Met%BXHEIGHT(I,J,L)*1.d-4 !box column air mole #/cm2\n                                                   ! AIRDEN unit: kg/m3\n          P1D(L) = GET_PCENTER(I,J,L)      ! Pressure center    [MB]\n          PE1D(L)= GET_PEDGE(I,J,L+1)     ! Pressure upper edge   [MB]\n\n          PDP(L) = PE1D(L-1)-PE1D(L)\n\n          T1D(L)= State_Met%T(I,J,L)     ! Temperature center [K]\n          IF(L.EQ.State_Grid%NZ) THEN\n             TE1D(L) = State_Met%T(I,J,L) + &\n                       0.5*(State_Met%T(I,J,L)-State_Met%T(I,J,L-1))\n          ELSE\n             TE1D(L) = 0.5*(State_Met%T(I,J,L) + State_Met%T(I,J,L+1))\n          ENDIF\n\n          ! Gases:  in #/cm2 layer column density\n          ! (CO2, N2O, CH4, and O2 use fixed mixing ratio for now)\n          ! H2O  convert specific humidity from g/kg to g/g and then to volume\n          ! mixing ratio and then to #/cm2\n          WKL(1,L) = State_Met%SPHU(I,J,L)*1.d-3*MAIR/18.0d-3 * AIRD(L)\n\n          WKL(2,L)=  YCO2 * AIRD(L)\n\n          ! convert O3 and CO from kg/box to g/g and then to volume mixing ratio\n          ! and then to #/cm2\n          WKL(3,L)= State_Chm%Species(id_O3)%Conc(I,J,L)/State_Met%AD(I,J,L) &\n                    *MAIR/48.0d-3 * AIRD(L)\n\n          WKL(4,L)= YN2O * AIRD(L)\n          ! CO\n          WKL(5,L)= State_Chm%Species(id_CO)%Conc(I,J,L)/State_Met%AD(I,J,L) &\n                    *MAIR/28.0d-3 * AIRD(L)\n\n          WKL(6,L)= YCH4 * AIRD(L)\n\n          WKL(7,L)= YO2  * AIRD(L)\n\n          ! dry air column density (mol/cm2)\n          COLDRY(L) = AIRD(L)- WKL(1,L)\n\n          CCLD(L)= MAX(1.d-3,State_Met%CLDF(I,J,L))  ! Cloud cover [Unitless]\n\n          ! convert water content from kg/kg to g/m3 and then to g/m2\n          CLDLIQ(L)=State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1.d3* &\n                    State_Met%BXHEIGHT(I,J,L)/CCLD(L)\n          !test GEOS5 CLDLIQ appears to be too small, increase 50% to enhance Cloud Forcing\n          !CLDLIQ(L)=1.5*State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1.d3*State_Met%BXHEIGHT(I,J,L)\n          CLDICE(L)=State_Met%QI(I,J,L)*State_Met%AIRDEN(I,J,L)*1.d3* &\n                    State_Met%BXHEIGHT(I,J,L)/CCLD(L)\n\n          REL(L) = RCLDL3D(I,J,L)   ! in um (RRTMG limit 2.5 - 60)\n          REL(L)= MAX(2.5d0,REL(L)) !  liquid particle radius\n          REL(L)= MIN(55.d0,REL(L)) !  liquid particle radius\n          !REI(L) = 15.0         ! fixed to this size (um) for now\n          !REI(L) = 20.0         ! fixed to this size (um) for now\n          !REI(L) = 30.0         ! fixed to this size (um) for now\n          REI(L) = RCLDI3D(I,J,L)\n          ! set to RRTMG limit\n          REI(L)= MAX(5.0d0,REI(L))   !  ice particle radius\n          REI(L)= MIN(140.d0,REI(L))  !  ice particle radius\n       ENDDO\n\n       !IF(I.EQ.60.and.J.EQ.33) THEN\n       !   WRITE(1002,101) (P1D(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (PE1D(L),L=0,State_Grid%NZ)\n       !   WRITE(1002,101) (PDP(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (T1D(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (TE1D(L),L=0,State_Grid%NZ)\n       !\n       !   DO N = 1, mxmol\n       !      WRITE(1002,101) (WKL(N,L),L=1,State_Grid%NZ)\n       !   ENDDO\n       !   WRITE(1002,101) (COLDRY(L),L=1,State_Grid%NZ)\n       !\n       !   WRITE(1002,101) (CCLD(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (CLDLIQ(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (CLDICE(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (REL(L),L=1,State_Grid%NZ)\n       !   WRITE(1002,101) (REI(L),L=1,State_Grid%NZ)\n       !\n       !   DO IWL=1,NBS\n       !      WRITE(1002,101) (EXT(L,IWL),L=1,State_Grid%NZ)   !layer AOD\n       !      WRITE(1002,101) (OMGA(L,IWL),L=1,State_Grid%NZ)\n       !      WRITE(1002,101) (G(L,IWL),L=1,State_Grid%NZ)\n       !   ENDDO\n       !ENDIF\n101    FORMAT(100(1PE9.2))\n104    FORMAT(I3,100(1PE9.2))\n\n       IF(SCOS.GT.0.) THEN\n          CALL rrtmg_sw(I,J,2,icld,State_Grid%NZ,DAY_YR, SCOS,   &\n                        PDP,P1D,T1D,PE1D,TE1D,TSURF,COLDRY, WKL, &\n                        CCLD, CLDICE, CLDLIQ, REI, REL,          &\n                        SALB,EXT, OMGA, G,                       &\n                        YHTRC,YHTR,YHTRC0,YHTR0,                 &\n                        CST,FST,CSB,FSB,CST0,FST0,CSB0,FSB0,     &\n                        TEXT, TOMGA, TG, TCST,TCSB,TFST,TFSB)\n       ELSE\n          CST    = 0.\n          FST    = 0.\n          CSB    = 0.\n          FSB    = 0.\n          CST0   = 0.\n          FST0   = 0.\n          CSB0   = 0.\n          FSB0   = 0.\n\n          TCST   = 0.\n          TFST   = 0.\n          TCSB   = 0.\n          TFSB   = 0.\n\n          YHTRC  = 0.\n          YHTR   = 0.\n          YHTRC0 = 0.\n          YHTR0  = 0.\n       ENDIF\n\n       FUL  = 0.\n       FDL  = 0.\n       FLA  = 0.\n       HRL  = 0.\n       FUL0 = 0.\n       FDL0 = 0.\n       FLA0 = 0.\n       HRL0 = 0.\n\n       FSA  = FST - FSB\n       FSA0 = FST0 - FSB0\n\n       TFSA(:) = TFST(:) - TFSB(:)\n\n       ! Each aerosol type\n       !DO ITYP = 1,NTYP\n       !   CALL APM_RADF(J,I,State_Grid%NZ,LEV,NBS,NBL,                 &\n       !              IAE2,TEXT(:,:,ITYP),TOMGA(:,:,ITYP),TG(:,:,ITYP), &\n       !              TABS(:,:,ITYP),                                   &\n       !              GT,SALB,SCOS,T1D,H2O,O3,P1D,AIRD,                 &\n       !              CCLD,CLDLIQ,CLDICE,RCLDL,YCOD,                    &\n       !              WCL,WCI,                                          &\n       !              TCST(ITYP),TCSB(ITYP),TFST(ITYP),TFSB(ITYP),      &\n       !              TFSA(ITYP),THRS(:,ITYP),                          &\n       !              TCLT(ITYP),TCLB(ITYP),TFUL(ITYP),TFDL(ITYP),      &\n       !              TFLA(ITYP),THRL(:,ITYP) )\n       !ENDDO\n\n       THRS = 0.\n       TCLT = 0.\n       TCLB = 0.\n       TFUL = 0.\n       TFDL = 0.\n       TFLA = 0.\n       THRL = 0.\n\n       ! Total\n       !CALL APM_RADF(J,I,State_Grid%NZ,LEV,NBS,NBL,                    &\n       !              IAE1,EXT,OMGA,G,ABSA,                             &\n       !              GT,SALB,SCOS,T1D,H2O,O3,P1D,AIRD,                 &\n       !              CCLD,CLDLIQ,CLDICE,RCLDL,YCOD,                    &\n       !              WCL, WCI,                                         &\n       !              CST,CSB,FST,FSB,FSA,HRS,                          &\n       !              CLT,CLB,FUL,FDL,FLA,HRL)\n       !\n       !print*,'ALBEDO,GT',IAE0,I,J,ALBEDO,GT,SCOS\n\n       ! No aerosol\n       !CALL APM_RADF(J,I,State_Grid%NZ,LEV,NBS,NBL,                    &\n       !              IAE0,EXT0,OMGA0,G0,ABSA0,                         &\n       !              GT,SALB,SCOS,T1D,H2O,O3,P1D,AIRD,                 &\n       !              CCLD,CLDLIQ,CLDICE,RCLDL,YCOD,                    &\n       !              WCL, WCI,                                         &\n       !              CST0,CSB0,FST0,FSB0,FSA0,HRS0,                    &\n       !              CLT0,CLB0,FUL0,FDL0,FLA0,HRL0)\n\n       YHTRC3D(I,J,:) =YHTRC(:)    ! clear sky, with aerosol\n       YHTR3D(I,J,:)  =YHTR(:)     ! all sky, with aerosol\n       YHTRC03D(I,J,:)=YHTRC0(:)   ! clear sky, no aerosol\n       YHTR03D(I,J,:) =YHTR0(:)    ! all sky, no aerosol\n\n       DO ITYP = 1,NTYP\n          ZTCST(I,J,ITYP)=ZTCST(I,J,ITYP) + (TCST(ITYP)-CST0)\n          ZTCSB(I,J,ITYP)=ZTCSB(I,J,ITYP) + (TCSB(ITYP)-CSB0)\n          ZTFST(I,J,ITYP)=ZTFST(I,J,ITYP) + (TFST(ITYP)-FST0)\n          ZTFSB(I,J,ITYP)=ZTFSB(I,J,ITYP) + (TFSB(ITYP)-FSB0)\n          ZTFSA(I,J,ITYP)=ZTFSA(I,J,ITYP) + (TFSA(ITYP)-FSA0)\n       ENDDO\n\n       ZCLDF(I,J)=ZCLDF(I,J) + State_Met%CLDFRC(I,J)\n       ZALB(I,J)=ZALB(I,J) + ALBDRR(I,J,10)\n\n       DO IWL = 1,NBS\n          ZMALB(I,J,IWL)=ZMALB(I,J,IWL) + SALB(IWL)\n       ENDDO\n\n       ZCST(I,J) = ZCST(I,J) + (CST-CST0 )\n       ZCSB(I,J) = ZCSB(I,J) + (CSB-CSB0 )\n       ZFST(I,J) = ZFST(I,J) + (FST-FST0 )\n       ZCLD(I,J) = ZCLD(I,J) + (FST-CST  )\n       ZCLD0(I,J)= ZCLD0(I,J)+ (FST0-CST0)\n       ZFSB(I,J) = ZFSB(I,J) + (FSB-FSB0 )\n       ZFSA(I,J) = ZFSA(I,J) + (FSA-FSA0 )\n\n       !if(i.eq.36.and.j.eq.25) then\n       !   print*,'CST,CST0,CST-CST0',CST,CST0,CST-CST0\n       !   print*,'FST,FST0,FST-FST0',FST,FST0,FST-FST0\n       !   print*,'FSA,FSA0,FSA-FSA0',FSA,FSA0,FSA-FSA0\n       !   print*,'FST-CST,FST0-CST0',FST-CST,FST0-CST0\n       !endif\n       if(i.eq.60.and.j.eq.33) then\n          WRITE(1003,109) DAY_YR, AOD(I,J),State_Met%CLDFRC(I,J)\n          WRITE(1003,107)'CST,CST0,CST-CST0',CST,CST0,CST-CST0\n          WRITE(1003,107)'FST,FST0,FST-FST0',FST,FST0,FST-FST0\n          WRITE(1003,107)'FSA,FSA0,FSA-FSA0',FSA,FSA0,FSA-FSA0\n          WRITE(1003,107)'FST-CST,FST0-CST0',FST-CST,FST0-CST0\n          DO ITYP = 1,NTYP\n             WRITE(1003,107)'TCST-CST0,TFST-FST0', &\n                             TCST(ITYP)-CST0,TFST(ITYP)-FST0\n          ENDDO\n109       FORMAT(I4,2x,10(F10.3))\n107       FORMAT(A19,2x,10(F10.2))\n       endif\n\n       !ZCLT(I,J)=ZCLT(I,J) + (CLT-CLT0 )\n       !ZCLB(I,J)=ZCLB(I,J) + (CLB-CLB0 )\n       !ZFUL(I,J)=ZFUL(I,J) + (FUL0-FUL )\n       !ZFDL(I,J)=ZFDL(I,J) + (FDL-FDL0 )\n       !ZFLA(I,J)=ZFLA(I,J) + (FLA-FLA0 )\n\n       ZWCL(I,J)=ZWCL(I,J) + WCL\n       ZWCI(I,J)=ZWCI(I,J) + WCI\n\n       IF((FST-FST0).gt.1000.0.or.(FST-FST0).lt.-2000.0) THEN\n          write(1001,*) i,j\n          !DO ITYP=1,NTYP\n          ! write(1001,*) ITYP,TCST(ITYP),CST0\n          ! DO L=1,State_Grid%NZ\n          !  write(1001,*) L,TEXT(L,1,ITYP),TOMGA(L,1,ITYP),TG(L,1,ITYP)\n          ! write(1001,*) L,TEXT(L,2,ITYP),TOMGA(L,2,ITYP),TG(L,2,ITYP)\n          !  write(1001,*) L,TEXT(L,3,ITYP),TOMGA(L,3,ITYP),TG(L,3,ITYP)\n          !  write(1001,*) L,TEXT(L,4,ITYP),TOMGA(L,4,ITYP),TG(L,4,ITYP)\n          ! ENDDO\n          !ENDDO\n\n          write(1001,*) \"EXT\",EXT\n          write(1001,*) \"OMGA\",OMGA\n          write(1001,*) \"G\",G\n          WRITE(1001,*) 'rf, claer sky toa'\n          WRITE(1001,103)CST,CST0,CST-CST0\n          WRITE(1001,*) '    clear sky surface'\n          WRITE(1001,103)CSB,CSB0,CSB-CSB0\n          WRITE(1001,*) '    all sky toa'\n          WRITE(1001,103)FST,FST0,FST-FST0\n          WRITE(1001,*) '    absorption'\n          WRITE(1001,103)FSA,FSA0,FSA-FSA0\n       ENDIF\n\n102    FORMAT(100(1PE9.2))\n103    FORMAT(3F9.4)\n\n       !APM2+IFSITE++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n       ! output at selected sites\n       IF(IFSITE.GT.0) THEN\n          IF(IFOUTIJ(I,J).EQ.1) THEN\n             NSITE = SITEID(I,J)\n             SITEOUT2D(NSITE,1) = AODOUT1(I,J)\n             SITEOUT2D(NSITE,2) = AOD(I,J)   !WL(KOUT2) AOD\n             SITEOUT2D(NSITE,3) = AODOUT3(I,J)\n             SITEOUT2D(NSITE,4) = -LOG10(AOD(I,J)/AODOUT1(I,J)) &\n                                  /LOG10(YWLS(KOUT2)/YWLS(KOUT1))            !WL(KOUT1)_WL(KOUT2) Angstrom Exponent\n             SITEOUT2D(NSITE,5) = -LOG10(AOD(I,J)/AODOUT3(I,J)) &\n                                  /LOG10(YWLS(KOUT2)/YWLS(KOUT3))            !WL(KOUT2)_WL(KOUT3) Angstrom Exponent\n             SITEOUT2D(NSITE,6) = AAODOUT1(I,J)\n             SITEOUT2D(NSITE,7) = AAOD(I,J)  !WL(KOUT2) nm AAOD\n             SITEOUT2D(NSITE,8) = AAODOUT3(I,J)\n             SITEOUT2D(NSITE,9) = -LOG10(AAOD(I,J)/AAODOUT1(I,J)) &\n                                  /LOG10(YWLS(KOUT2)/YWLS(KOUT1))            !WL(KOUT1)_WL(KOUT2) Angstrom Exponent\n             SITEOUT2D(NSITE,10) = -LOG10(AAOD(I,J)/AAODOUT3(I,J)) &\n                                   /LOG10(YWLS(KOUT2)/YWLS(KOUT3))           !WL(KOUT1)_WL(KOUT2) Angstrom Exponent\n\n             SITEOUT2D(NSITE,11) = State_Met%CLDFRC(I,J)\n             SITEOUT2D(NSITE,12) = CST-CST0  !clear sky aerosol forcing\n             SITEOUT2D(NSITE,13) = FST-FST0  !full sky aerosol forcing\n             DO ITYP=1,NTYP\n                SITEOUT2D(NSITE,13+ITYP) = TFST(ITYP)-FST0   !full sky 5 type aerosol forcing\n             ENDDO\n             !SITEOUT2D(NSITE,13+NTYP+1)=YVIS\n             !SITEOUT2D(NSITE,13+NTYP+2)=State_Met%PREACC(I,J)\n             !SITEOUT2D(NSITE,19) = SUM(YCOD)   !cloud OD\n             SITEOUT2D(NSITE,19) = CODGC(I,J)\n             SITEOUT2D(NSITE,20) = FST-CST   !cloud forcing with aerosol\n             SITEOUT2D(NSITE,22) = FST0-CST0   !cloud forcing without aerosol\n\n             SITEOUT2D(NSITE,22)=State_Met%PRECTOT(I,J)\n             SITEOUT2D(NSITE,23)=State_Met%PRECCON(I,J)\n             SITEOUT2D(NSITE,24)=YVIS\n             DO ITYP=1,NTYP\n                SITEOUT2D(NSITE,24+ITYP)=TAOD(I,J,ITYP)\n             ENDDO\n             SITEOUT2D(NSITE,30)=FSB\n             SITEOUT2D(NSITE,31)=FSB0\n             SITEOUT2D(NSITE,32)=CSB\n             SITEOUT2D(NSITE,33)=CSB0\n          ENDIF\n       ENDIF\n       !APM2+ENDIFSITE+++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    FLUSH(890)\n    FLUSH(891)\n    FLUSH(1001)\n\n  END SUBROUTINE APM_RADFDRIV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm_radfout\n!\n! !DESCRIPTION: Subroutine APM\\_RADFOUT is the for radf output\n!\n!  Written by X. Ma & F. Yu, SUNY-Albany\n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE APM_RADFOUT( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE TIME_MOD,       ONLY : GET_YEAR, GET_MONTH\n    USE TIME_MOD,       ONLY : GET_DAY,  GET_HOUR,  GET_MINUTE\n    USE ErrCode_Mod\n    Use Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  2-6/2011 - X. Ma & F. Yu, SUNY-Albany\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER          :: I,J,ITYP,IWL,RECID\n\n    INTEGER          :: KYEAR,KMON,KDAY,KHOUR,KMIN\n\n    LOGICAL, SAVE    :: FIRST = .TRUE.\n\n    REAL*8           :: XCOUNT\n    REAL*8           :: ZFSTAVE,ZCSTAVE,TAREA,YAREA\n    REAL*8           :: ZCLDAVE,ZCLD0AVE\n    REAL*8           :: ZFULAVE     ! longwave TOA\n    REAL*8           :: ZFSAAVE, ZTFSTAVE(NTYP)\n    ! fraction of time w/ CLDFR<25%, 50%, 75%\n    REAL             :: FAOD25(State_Grid%NX,State_Grid%NY)\n    REAL             :: FAOD50(State_Grid%NX,State_Grid%NY)\n    REAL             :: FAOD75(State_Grid%NX,State_Grid%NY)\n    REAL             :: ZAEEXT(State_Grid%NX,State_Grid%NY)\n    REAL             :: ZAEABS(State_Grid%NX,State_Grid%NY)\n    REAL             :: ZAEEXTOUT3(State_Grid%NX,State_Grid%NY)\n    REAL             :: ZAEABSOUT3(State_Grid%NX,State_Grid%NY)\n    CHARACTER(LEN=6) :: YYYYMM='200001'\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    WRITE(6,*)'    - APM RADFOUT  '\n\n    IF(FIRST)THEN\n       ZTCST = 0.\n       ZTCSB = 0.\n       ZTFST = 0.\n       ZTFSB = 0.\n       ZTFSA = 0.\n       ZTCLT = 0.\n       ZTCLB = 0.\n       ZTFUL = 0.\n       ZTFDL = 0.\n       ZTFLA = 0.\n\n       ZTAOD = 0.\n\n       ZMALB = 0.\n       ZCLDF = 0.\n       ZALB  = 0.\n\n       ZCST  = 0.\n       ZCSB  = 0.\n       ZFST  = 0.\n       ZCLD  = 0.\n       ZCLD0 = 0.\n       ZFSB  = 0.\n       ZFSA  = 0.\n       !ZCLT = 0.\n       !ZCLB = 0.\n       !ZFUL = 0.\n       !ZFDL = 0.\n       !ZFLA = 0.\n\n       ZWCL  = 0.\n       ZWCI  = 0.\n\n       ZAOD  = 0.\n       ZCOD  = 0.\n       ZCODGC= 0.\n       ZAAOD = 0.\n       ZABS  = 0.\n\n       ZAODOUT1  = 0.\n       ZAAODOUT1 = 0.\n\n       ZAOD25 = 0.\n       ZAOD50 = 0.\n       ZAOD75 = 0.\n\n       ZVIS = 0.\n       THAZ = 0.\n       TFOG = 0.\n\n       FIRST = .FALSE.\n       RETURN\n    ENDIF\n\n    KYEAR = GET_YEAR()\n    KMON  = GET_MONTH()\n    KDAY  = GET_DAY()\n    KHOUR = GET_HOUR()\n    KMIN  = GET_MINUTE()\n\n    WRITE(YYYYMM(1:4),'(I4.4)')KYEAR\n    WRITE(YYYYMM(5:6),'(I2.2)')KMON\n\n    CLOSE(686)\n    CLOSE(687)\n    CLOSE(688)\n    CLOSE(689)\n    CLOSE(690)\n\n    CLOSE(785)\n\n    CLOSE(786)\n    CLOSE(787)\n    CLOSE(788)\n    CLOSE(789)\n    CLOSE(790)\n\n    CLOSE(811)\n    CLOSE(812)\n    CLOSE(813)\n    CLOSE(814)\n    CLOSE(815)\n    CLOSE(816)\n\n    CLOSE(821)\n    CLOSE(822)\n    CLOSE(823)\n\n    CLOSE(883)\n    CLOSE(884)\n    CLOSE(885)\n\n    CLOSE(886)\n    CLOSE(887)\n    CLOSE(888)\n    CLOSE(588)\n    CLOSE(589)\n    CLOSE(889)\n    CLOSE(890)\n    CLOSE(590)\n    CLOSE(591)\n    CLOSE(891)\n    CLOSE(892)\n    CLOSE(893)\n    CLOSE(894)\n    CLOSE(895)\n\n    OPEN(686,FILE='radf/radf'//YYYYMM//'CLT.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(687,FILE='radf/radf'//YYYYMM//'CLB.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(688,FILE='radf/radf'//YYYYMM//'FUL.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(689,FILE='radf/radf'//YYYYMM//'FDL.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(690,FILE='radf/radf'//YYYYMM//'FLA.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n\n    OPEN(785,FILE='radf/radf'//YYYYMM//'TAOD.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(786,FILE='radf/radf'//YYYYMM//'TCST.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(787,FILE='radf/radf'//YYYYMM//'TCSB.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(788,FILE='radf/radf'//YYYYMM//'TFST.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(789,FILE='radf/radf'//YYYYMM//'TFSA.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(790,FILE='radf/radf'//YYYYMM//'TFSB.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n\n    OPEN(883,FILE='radf/radf'//YYYYMM//'CLDF.out',ACCESS='DIRECT',   & ! cloud cover\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(884,FILE='radf/radf'//YYYYMM//'MALB.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(885,FILE='radf/radf'//YYYYMM//'ALB.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(886,FILE='radf/radf'//YYYYMM//'CST.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(887,FILE='radf/radf'//YYYYMM//'CSB.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(888,FILE='radf/radf'//YYYYMM//'FST.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(588,FILE='radf/radf'//YYYYMM//'CLD.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(589,FILE='radf/radf'//YYYYMM//'CLD0.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(889,FILE='radf/radf'//YYYYMM//'FSA.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(890,FILE='radf/radf'//YYYYMM//'AOD.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(590,FILE='radf/radf'//YYYYMM//'COD.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(591,FILE='radf/radf'//YYYYMM//'CODGC.out',ACCESS='DIRECT',  &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(891,FILE='radf/radf'//YYYYMM//'AAOD.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(892,FILE='radf/radf'//YYYYMM//'ABS.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(893,FILE='radf/radf'//YYYYMM//'FSB.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(894,FILE='radf/radf'//YYYYMM//'WCL.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(895,FILE='radf/radf'//YYYYMM//'WCI.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n\n    OPEN(896,FILE='radf/radf'//YYYYMM//'AODOUT1.out',                &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(897,FILE='radf/radf'//YYYYMM//'AAODOUT1.out',               &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(898,FILE='radf/radf'//YYYYMM//'AEextOUT1.out',              &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(899,FILE='radf/radf'//YYYYMM//'AEabsOUT1.out',              &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n\n    OPEN(796,FILE='radf/radf'//YYYYMM//'AODOUT3.out',                &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(797,FILE='radf/radf'//YYYYMM//'AAODOUT3.out',               &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(798,FILE='radf/radf'//YYYYMM//'AEextOUT3.out',              &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(799,FILE='radf/radf'//YYYYMM//'AEabsOUT3.out',              &\n         ACCESS='DIRECT',FORM='UNFORMATTED',                         &\n         RECL=State_Grid%NX*State_Grid%NY)\n\n    OPEN(811,FILE='radf/radf'//YYYYMM//'AOD25.out',ACCESS='DIRECT',  &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(812,FILE='radf/radf'//YYYYMM//'AOD50.out',ACCESS='DIRECT',  &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(813,FILE='radf/radf'//YYYYMM//'AOD75.out',ACCESS='DIRECT',  &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(814,FILE='radf/radf'//YYYYMM//'FAOD25.out',ACCESS='DIRECT', &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(815,FILE='radf/radf'//YYYYMM//'FAOD50.out',ACCESS='DIRECT', &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(816,FILE='radf/radf'//YYYYMM//'FAOD75.out',ACCESS='DIRECT', &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n\n    OPEN(821,FILE='radf/radf'//YYYYMM//'VIS.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(822,FILE='radf/radf'//YYYYMM//'HAZE.out',ACCESS='DIRECT',   &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n    OPEN(823,FILE='radf/radf'//YYYYMM//'FOG.out',ACCESS='DIRECT',    &\n         FORM='UNFORMATTED', RECL=State_Grid%NX*State_Grid%NY)\n\n    !WRITE(1000,105) KYEAR,KMON,KDAY,KHOUR,KMIN\n    WRITE(1001,105) KYEAR,KMON,KDAY,KHOUR,KMIN\n    WRITE(1001,105) NPOUTSTEPS\n    XCOUNT = float(NPOUTSTEPS)\n105 FORMAT(I4,I3,I3,I3,I3,500(1PE10.2))\n\n    !IF(NPOUTSTEPS.EQ.0.and.NPOUTSTEPS0.NE.0) THEN\n    WRITE(985,*)KYEAR, KMON-1\n    WRITE(987,*)KYEAR, KMON-1\n    WRITE(988,*)KYEAR, KMON-1\n    WRITE(989,*)KYEAR, KMON-1\n    WRITE(992,*)KYEAR, KMON-1\n    WRITE(991,*)KYEAR, KMON-1\n    WRITE(993,*)KYEAR, KMON-1\n    WRITE(994,*)KYEAR, KMON-1\n    WRITE(995,*)KYEAR, KMON-1\n    DO I = 1, State_Grid%NX\n       WRITE(985,981)(ZCST(I,J)/XCOUNT,J=1,State_Grid%NY)\n       !WRITE(987,981)(ZCSB(I,J)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(987,981)(ZCLD(I,J)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(988,981)(ZFST(I,J)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(989,981)(ZAOD(I,J)/XCOUNT,J=1,State_Grid%NY)\n       !WRITE(992,981)(ZABS(I,J)/XCOUNT,J=1,State_Grid%NY)\n       !WRITE(991,981)(ZFUL(I,J)/XCOUNT,J=1,State_Grid%NY)\n       !WRITE(993,981)(ZFDL(I,J)/XCOUNT,J=1,State_Grid%NY)\n       !WRITE(994,981)(ZCLT(I,J)/XCOUNT,J=1,State_Grid%NY)\n       !WRITE(995,981)(ZCLB(I,J)/XCOUNT,J=1,State_Grid%NY)\n\n       DO J=1,State_Grid%NY\n          FAOD25(I,J)= float(NAOD25(I,J))/XCOUNT\n          FAOD50(I,J)= float(NAOD50(I,J))/XCOUNT\n          FAOD75(I,J)= float(NAOD75(I,J))/XCOUNT\n\n          ZAOD25(I,J) = ZAOD25(I,J)/(1.d-20+float(NAOD25(I,J)))\n          ZAOD50(I,J) = ZAOD50(I,J)/(1.d-20+float(NAOD50(I,J)))\n          ZAOD75(I,J) = ZAOD75(I,J)/(1.d-20+float(NAOD75(I,J)))\n       ENDDO\n    ENDDO\n\n    ZCLDF(:,:)=ZCLDF(:,:)/XCOUNT\n    ZALB(:,:)=ZALB(:,:)/XCOUNT\n\n    ZCST(:,:)=ZCST(:,:)/XCOUNT\n    ZCSB(:,:)=ZCSB(:,:)/XCOUNT\n    ZFST(:,:)=ZFST(:,:)/XCOUNT\n    ZCLD(:,:)=ZCLD(:,:)/XCOUNT\n    ZCLD0(:,:)=ZCLD0(:,:)/XCOUNT\n    ZFSB(:,:)=ZFSB(:,:)/XCOUNT\n    ZFSA(:,:)=ZFSA(:,:)/XCOUNT\n    ZAOD(:,:)=ZAOD(:,:)/XCOUNT\n    ZCOD(:,:)=ZCOD(:,:)/XCOUNT\n    ZCODGC(:,:)=ZCODGC(:,:)/XCOUNT\n    ZAODOUT1(:,:)=ZAODOUT1(:,:)/XCOUNT\n    ZAODOUT3(:,:)=ZAODOUT3(:,:)/XCOUNT\n\n    ZVIS(:,:)=ZVIS(:,:)/XCOUNT\n    THAZ(:,:)=THAZ(:,:)/XCOUNT  ! fraction of time with haze\n    TFOG(:,:)=TFOG(:,:)/XCOUNT  ! fraction of time with fog\n\n    ZAAOD(:,:)=ZAAOD(:,:)/XCOUNT\n    ZAAODOUT1(:,:)=ZAAODOUT1(:,:)/XCOUNT\n    ZAAODOUT3(:,:)=ZAAODOUT3(:,:)/XCOUNT\n    ZABS(:,:)=ZABS(:,:)/XCOUNT\n\n    !ZCLT(:,:)=ZCLT(:,:)/XCOUNT\n    !ZCLB(:,:)=ZCLB(:,:)/XCOUNT\n    !ZFUL(:,:)=ZFUL(:,:)/XCOUNT\n    !ZFDL(:,:)=ZFDL(:,:)/XCOUNT\n    !ZFLA(:,:)=ZFLA(:,:)/XCOUNT\n\n    ZWCL(:,:)=ZWCL(:,:)/XCOUNT\n    ZWCI(:,:)=ZWCI(:,:)/XCOUNT\n\n    ZMALB(:,:,:)=ZMALB(:,:,:)/XCOUNT\n\n    DO I = 1, State_Grid%NX\n       WRITE(991,981)(ZAOD25(I,J),J=1,State_Grid%NY)\n       WRITE(992,981)(ZAOD75(I,J),J=1,State_Grid%NY)\n       WRITE(993,981)(ZVIS(I,J),J=1,State_Grid%NY)\n       WRITE(994,981)(THAZ(I,J),J=1,State_Grid%NY)\n       WRITE(995,981)(TFOG(I,J),J=1,State_Grid%NY)\n\n       DO J=1,State_Grid%NY\n          ZAEEXT(I,J)=-LOG10(ZAOD(I,J)/ZAODOUT1(I,J)) &\n                      /LOG10(YWLS(KOUT2)/YWLS(KOUT1))            !WL(KOUT1)_WL(KOUT2) Angstrom Exponent\n          ZAEABS(I,J)=-LOG10(ZAAOD(I,J)/ZAAODOUT1(I,J)) &\n                      /LOG10(YWLS(KOUT2)/YWLS(KOUT1))            !WL(KOUT1)_WL(KOUT2) Angstrom Exponent\n          ZAEEXTOUT3(I,J)=-LOG10(ZAOD(I,J)/ZAODOUT3(I,J)) &\n                          /LOG10(YWLS(KOUT2)/YWLS(KOUT3))            !WL(KOUT3)_WL(KOUT2) Angstrom Exponent\n          ZAEABSOUT3(I,J)=-LOG10(ZAAOD(I,J)/ZAAODOUT3(I,J)) &\n                          /LOG10(YWLS(KOUT2)/YWLS(KOUT3))            !WL(KOUT3)_WL(KOUT2) Angstrom Exponent\n       ENDDO\n       WRITE(996,981)(ZAODOUT1(I,J),J=1,State_Grid%NY)\n       WRITE(997,981)(ZAAODOUT1(I,J),J=1,State_Grid%NY)\n       WRITE(998,981)(ZAEEXT(I,J),J=1,State_Grid%NY)\n       WRITE(999,981)(ZAEABS(I,J),J=1,State_Grid%NY)\n    ENDDO\n\n    !WRITE(686,REC=1)ZCLT\n    !WRITE(687,REC=1)ZCLB\n    !WRITE(688,REC=1)ZFUL\n    !WRITE(689,REC=1)ZFDL\n    !WRITE(690,REC=1)ZFLA\n\n    WRITE(811,REC=1)ZAOD25\n    WRITE(812,REC=1)ZAOD50\n    WRITE(813,REC=1)ZAOD75\n\n    WRITE(814,REC=1)FAOD25\n    WRITE(815,REC=1)FAOD50\n    WRITE(816,REC=1)FAOD75\n\n    WRITE(821,REC=1)ZVIS\n    WRITE(822,REC=1)THAZ\n    WRITE(823,REC=1)TFOG\n\n    WRITE(883,REC=1)ZCLDF\n    WRITE(885,REC=1)ZALB\n\n    WRITE(886,REC=1)ZCST\n    WRITE(887,REC=1)ZCSB\n    WRITE(888,REC=1)ZFST\n    WRITE(588,REC=1)ZCLD\n    WRITE(589,REC=1)ZCLD0\n    WRITE(889,REC=1)ZFSA\n    WRITE(890,REC=1)ZAOD\n    WRITE(590,REC=1)ZCOD\n    WRITE(591,REC=1)ZCODGC\n    WRITE(891,REC=1)ZAAOD\n    WRITE(892,REC=1)ZABS\n    WRITE(893,REC=1)ZFSB\n\n    WRITE(894,REC=1)ZWCL\n    WRITE(895,REC=1)ZWCI\n\n    WRITE(896,REC=1)ZAODOUT1\n    WRITE(897,REC=1)ZAAODOUT1\n    WRITE(898,REC=1)ZAEEXT\n    WRITE(899,REC=1)ZAEABS\n\n    WRITE(796,REC=1)ZAODOUT3\n    WRITE(797,REC=1)ZAAODOUT3\n    WRITE(798,REC=1)ZAEEXTOUT3\n    WRITE(799,REC=1)ZAEABSOUT3\n\n    RECID=0\n    DO IWL=1,NBS\n       RECID=RECID+1\n       WRITE(884,REC=RECID) (ZMALB(:,:,IWL))\n    ENDDO\n\n    WRITE(1081,*)KYEAR, KMON-1\n    WRITE(1082,*)KYEAR, KMON-1\n    WRITE(1083,*)KYEAR, KMON-1\n    WRITE(1084,*)KYEAR, KMON-1\n    WRITE(1085,*)KYEAR, KMON-1\n\n    DO I = 1, State_Grid%NX\n       WRITE(1081,981)(ZTCST(I,J,1)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(1082,981)(ZTCST(I,J,2)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(1083,981)(ZTCST(I,J,3)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(1084,981)(ZTCST(I,J,4)/XCOUNT,J=1,State_Grid%NY)\n       WRITE(1085,981)(ZTCST(I,J,5)/XCOUNT,J=1,State_Grid%NY)\n    ENDDO\n\n    ZTAOD(:,:,:)=ZTAOD(:,:,:)/XCOUNT\n\n    ZTCST(:,:,:)=ZTCST(:,:,:)/XCOUNT\n    ZTCSB(:,:,:)=ZTCSB(:,:,:)/XCOUNT\n    ZTFST(:,:,:)=ZTFST(:,:,:)/XCOUNT\n    ZTFSB(:,:,:)=ZTFSB(:,:,:)/XCOUNT\n    ZTFSA(:,:,:)=ZTFSA(:,:,:)/XCOUNT\n\n    RECID=0\n    DO ITYP=1,NTYP\n       RECID=RECID+1\n       WRITE(785,REC=RECID) (ZTAOD(:,:,ITYP))\n\n       WRITE(786,REC=RECID) (ZTCST(:,:,ITYP))\n       WRITE(787,REC=RECID) (ZTCSB(:,:,ITYP))\n       WRITE(788,REC=RECID) (ZTFST(:,:,ITYP))\n       WRITE(789,REC=RECID) (ZTFSA(:,:,ITYP))\n       WRITE(790,REC=RECID) (ZTFSB(:,:,ITYP))\n    ENDDO\n\n    ! AREA weighted average\n    ZFSTAVE  = 0.\n    ZCSTAVE  = 0.\n    ZCLDAVE  = 0.\n    ZCLD0AVE = 0.\n    ZFSAAVE  = 0.\n    !ZFULAVE = 0.     ! longwave\n\n    ZTFSTAVE = 0.\n    TAREA    = 0.\n    DO J = 1, State_Grid%NY\n       YAREA = State_Grid%AREA_M2(1,J)\n       DO I = 1, State_Grid%NX\n          ZFSTAVE = ZFSTAVE + ZFST(I,J)*YAREA\n          ZCSTAVE = ZCSTAVE + ZCST(I,J)*YAREA\n          ZCLDAVE = ZCLDAVE + ZCLD(I,J)*YAREA\n          ZCLD0AVE = ZCLD0AVE + ZCLD0(I,J)*YAREA\n\n          ZFSAAVE = ZFSAAVE + ZFSA(I,J)*YAREA\n          !ZFULAVE = ZFULAVE + ZFUL(I,J)*YAREA\n          TAREA = TAREA + YAREA\n          DO ITYP=1,NTYP\n             ZTFSTAVE(ITYP)=ZTFSTAVE(ITYP)+ZTFST(I,J,ITYP)*YAREA\n          ENDDO\n       ENDDO\n    ENDDO\n    ZFSTAVE = ZFSTAVE/TAREA\n    ZCSTAVE = ZCSTAVE/TAREA\n    ZCLDAVE = ZCLDAVE/TAREA\n    ZCLD0AVE = ZCLD0AVE/TAREA\n\n    ZFSAAVE = ZFSAAVE/TAREA\n    !ZFULAVE = ZFULAVE/TAREA\n    DO ITYP=1,NTYP\n       ZTFSTAVE(ITYP)=ZTFSTAVE(ITYP)/TAREA\n    ENDDO\n\n    WRITE(990,106)KYEAR, KMON, KDAY, ZCLDAVE,ZCLD0AVE, &\n          ZFSTAVE,ZCSTAVE, ZFSAAVE, &\n          (ZTFSTAVE(ITYP),ITYP=1,NTYP)\n106 FORMAT(I4,I3,I3,2(1PE11.3),20(1PE10.2))\n    flush(990)\n    !flush(1002)\n\n    ZCLDF  = 0.\n    ZALB   = 0.\n\n    ZCST   = 0.\n    ZCSB   = 0.\n    ZFST   = 0.\n    ZCLD   = 0.\n    ZCLD0  = 0.\n    ZFSB   = 0.\n    ZFSA   = 0.\n    ZAOD   = 0.\n    ZCOD   = 0.\n    ZCODGC = 0.\n    ZAOD25 = 0.\n    ZAOD50 = 0.\n    ZAOD75 = 0.\n\n    NAOD25 = 0\n    NAOD50 = 0\n    NAOD75 = 0\n\n    ZVIS   = 0.\n    THAZ   = 0.\n    TFOG   = 0.\n\n    ZAAOD  = 0.\n    ZABS   = 0.\n    !ZCLT  = 0.\n    !ZCLB  = 0.\n    !ZFUL  = 0.\n    !ZFDL  = 0.\n    !ZFLA  = 0.\n\n    ZWCL   = 0.\n    ZWCI   = 0.\n\n    ZTAOD  = 0.\n\n    ZTCST  = 0.\n    ZTCSB  = 0.\n    ZTFST  = 0.\n    ZTFSB  = 0.\n    ZTFSA  = 0.\n\n981 FORMAT(200(1PE9.1))\n\n    FLUSH(890)\n    FLUSH(891)\n    FLUSH(1001)\n\n  END SUBROUTINE APM_RADFOUT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aeronum\n!\n! !DESCRIPTION: Subroutine AERONUM calculates aerosol number concentration\n!  based on the mass.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AERONUM( Input_Opt,  State_Chm, State_Diag, &\n                      State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : APMIDS\n    USE APM_INIT_MOD,   ONLY : NGCOND\n    USE APM_INIT_MOD,   ONLY : NSO4\n    USE APM_INIT_MOD,   ONLY : VDRY\n    USE APM_INIT_MOD,   ONLY : DENSULF\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  28 Aug 2008 - F. Yu - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I,J,L,N,SIZENUM\n    REAL*8  :: XMATEMP\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    XN4D = 0.D0\n\n    !$OMP PARALLEL DO                             &\n    !$OMP DEFAULT( SHARED                       ) &\n    !$OMP SCHEDULE( DYNAMIC                     ) &\n    !$OMP PRIVATE( I, J, L, N, SIZENUM, XMATEMP )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Should we put the N loop on the outside?\n       DO N = 1, NSO4\n          SIZENUM =APMIDS%id_SO4BIN1+N-1 !Luodebug\n          XMATEMP=State_Chm%Species(SIZENUM)%Conc(I,J,L) / State_Met%AIRVOL(I,J,L)\n          XMATEMP= MAX( 1.d-40, XMATEMP)\n          XN4D(I,J,L,N)=XMATEMP/(DENSULF*VDRY(N))*1.E-9 !XN4D in #/cm3, VDRY in m3\n       ENDDO\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE AERONUM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm3dqgeos\n!\n! !DESCRIPTION: Subroutine APM3DQGEOS ...\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE APM3DQGEOS( Input_Opt, State_Grid, State_Met, IY )\n!\n! !USES:\n!\n    USE PRESSURE_MOD,   ONLY : GET_PCENTER\n    USE PRESSURE_MOD,   ONLY : GET_PEDGE\n    USE APM_NUCL_MOD,   ONLY : IONRATE0\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  17 Mar 2010 - F. Yu       - Initial version\n!  08 Nov 2010 - R. Yantosca - Added ProTeX headers\n!  01 Mar 2012 - R. Yantosca - Now use GET_AREA_CM2(I,J,L) from grid_mod.F90\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: IY\n    INTEGER :: ISURF, I, J, L\n    REAL*8  :: XLON,XLAT,YPR,YQ,YPSURF\n\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       YPSURF = GET_PEDGE(I,J,1) !surface P in mb\n       IF( State_Met%IsWater(I,J) .or. State_Met%IsIce(I,J) ) THEN\n          ISURF = 0\n       ELSE\n          ISURF = 1\n       ENDIF\n       DO L = 1, State_Grid%NZ\n          XLON = State_Grid%XMid( I, J ) ! Grid box longitude [degrees]\n          XLAT = State_Grid%YMid( I, J ) ! Grid box latitude center [degree]\n          YPR =  GET_PCENTER(I,J,L)      ! in mb\n          CALL IONRATE0(Input_Opt%CHEM_INPUTS_DIR, &\n                        IY,ISURF,YPSURF,XLON,XLAT,YPR,YQ)\n          XQ3D(I,J,L)= YQ\n       ENDDO\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE APM3DQGEOS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apm3dq\n!\n! !DESCRIPTION: Function APM3DQ\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine APM3DQ( IY, Input_Opt, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE PRESSURE_MOD,   ONLY : GET_PCENTER\n    USE TIME_MOD,       ONLY : GET_YEAR,   GET_MONTH\n    USE APM_NUCL_MOD,   ONLY : IONRATE\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE Input_Opt_Mod,  ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: ISURF, I, J, L, IY, IYEAR, IMONTH\n    REAL*8    :: XLON,XLAT,YPR,YQ\n\n    IMONTH = GET_MONTH()\n    IYEAR = GET_YEAR()   ! IY = 0, current modeling year\n    IF(IY.EQ.1) IYEAR = 1997 ! solar min, max Q\n    IF(IY.EQ.-1) IYEAR = 1990 ! solar max, min Q\n\n    write(6,*)\"GCR IONIZATION: YEAR =\", IYEAR, \"Month = \",IMONTH\n\n    DO J = 1, State_Grid%NY\n       XLAT = State_Grid%YMID(1,J) ! Grid box latitude center [degree]\n       DO I = 1, State_Grid%NX\n          XLON = State_Grid%XMID(I,J) !Grid box longitude [degrees]\n          IF( State_Met%IsWater(I,J) .or. State_Met%IsIce(I,J) ) THEN\n             ISURF = 0\n          ELSE\n             ISURF = 1\n          ENDIF\n          DO L = 1, State_Grid%NZ\n             YPR =  GET_PCENTER(I,J,L) ! in mb\n             CALL IONRATE(Input_Opt%CHEM_INPUTS_DIR, &\n                          ISURF,XLON,XLAT,YPR,IYEAR,IMONTH,YQ)\n             XQ3D(I,J,L)= YQ\n          ENDDO\n       ENDDO\n    ENDDO\n\n  end subroutine APM3DQ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_gl\n!\n! !DESCRIPTION: Function YSITESIJ_GL\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine YSITESIJ_GL( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 47\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    !  CN10LT.dat\n    !  71.32   -156.6  231     !site1   Point Barrow\n    !  67.97   24.12   802     !site2   Pallas\n    !  67.77   29.58   823     !site3   Varri\n    !  61.85   24.28   2016    !site4   Hyytiala\n    !  59.78   21.38   2921    !site5   Uto\n    !  58.77   17.4    2567    !site6   Aspvreten\n    !  53.33   -9.9    1907    !site7   Mace Head\n    !  51.5    12.9    4664    !site8   Melpitz\n    !  43.9    -60     869     !site9   Stable Island\n    !  43.11   -70.95  7039    !site10  Thomson Farm\n    !  41.05   -124.15 918     !site11  Trinidad Head\n    !  40.1    -88.3   5038    !site12  Bondville\n    !  36.8    -97.5   5064    !site13  SGP\n    !  -14.24  -170.57 270     !site14  American Samoa\n    !  -25.54  25.75   2340    !site15  Botsalano, South Africa\n    !  -35.66  148.15  1800    !site16  Bago State forest, Australia\n    !  -40.682 144.688 1203.00 !site17  Cape Grim\n    !  -70.65  -8.25   324     !site18  Neumayer\n    !  -89.98  -24.8   156     !site19  South Pole\n    !  29.44   79.62   2730    !site20  Mukteshwar, India\n    !  36.28   100.9   2030    !site21  Mount Waliguan, China\n    !\n    !  CN10MT.dat\n    !  47.6    8       803     !site22  Jungfraujoch\n    !  27.96   86.82   900     !site23  Pyramid\n    !  19.54   -155.58 363     !site24  Mauna Loa\n    !\n    !  Asian cities\n    !  Urumqi        China  43.83   87.62  !site25\n    !  Shenyang      China  41.81  123.43  !site26\n    !  Beijing       China  39.91  116.41  !site27\n    !  Taiyuan       China  37.87  112.55  !site28\n    !  Seoul         Korea  37.57  126.98  !site29\n    !  Anmyeon-do    Korea  36.37  126.32  !site30\n    !  Lanzhou       China  36.06  103.83  !site31\n    !  Tokoyo        Japan  35.69  139.69  !site32\n    !  Shirahama     Japan  33.66  135.38  !site33\n    !  Shanghai      China  31.23  121.47  !site34\n    !  Chengdu       China  30.66  104.07  !site35\n    !  Wuhan         China  30.59  114.31  !site36\n    !  Lhasa         China  29.65   91.14  !site37\n    !  New Delhi     India  28.64   77.22  !site38\n    !  Taipei        China  25.09  121.56  !site39\n    !  Kunming       China  25.04  102.72  !site40\n    !  Guangzhou     China  23.13  113.26  !site41\n    !\n    !  AERONET -- Amazon\n    !  Alta_Floresta        -9.87  -56.10  !site42\n    !  Ji_Parana_SE        -10.93  -61.85  !site43\n    !  CUIABA-MIRANDA      -15.73  -56.02  !site44\n    !  Campo_Grande_SONDA  -20.43  -54.53  !site45\n    !  Sao_Paulo           -23.56  -46.73  !site46\n    !  !Cordoba-CETT       -31.52  -64.45  !site47  --> 3., 93.0 for IRF output\n\n    DATA ZLAT/71.32, 67.97,67.77,61.85,  59.78, 58.77, 53.33,51.5,          &\n              43.9, 43.11, 41.05, 40.1, 36.8, -14.24,-25.54,-35.66,         &\n              -40.68,-70.65,-89.98,29.44,36.28,47.6,27.96,19.54,            &\n              43.83,41.81,39.91,37.87,37.57,36.37,36.06,35.69,              &\n              33.66,31.23,30.66,30.59,29.65,28.64,25.09,25.04,23.13,        &\n              -9.87,-10.93,-15.73,-20.43,-23.56,3.0/\n\n    DATA ZLON/-156.6,24.12,29.58,24.28,21.38,17.40, -9.9,12.9,              &\n              -60.0,-70.95,-124.15,-88.3,-97.5,-170.57, 25.75,148.15,       &\n              144.69, -8.25, -24.80,79.62,100.9,8.0,86.82,-155.58,          &\n              87.62,123.43,116.41,112.55,126.98,126.32,103.83,139.69,       &\n              135.38,121.47,104.07,114.31,91.14,77.22,121.56,102.72,113.26, &\n              -56.10,-61.85,-56.02,-54.53,-46.73,93.0/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       IF(NSITE.EQ.4.or.NSITE.EQ.13.or.NSITE.EQ.27) THEN !Hyytiala,SGP,Beijing\n          !IF(NSITE.GE.45) THEN !No sites\n          !IF(NSITE.EQ.1.or.NSITE.EQ.2.or.NSITE.EQ.4.or.    &\n          !   NSITE.EQ.7.or.NSITE.EQ.8.or.NSITE.EQ.13.or.   &\n          !   NSITE.EQ.15.or.NSITE.EQ.16.or.NSITE.EQ.18.or. &\n          !   NSITE.EQ.20.or.NSITE.EQ.21.or.NSITE.EQ.27.or. &\n          !   NSITE.EQ.34.or.NSITE.EQ.35.or.NSITE.EQ.36.or. &\n          !   NSITE.GE.41) THEN\n          !IF(NSITE.GE.2.and.NSITE.LE.8) THEN\n          IFSITEOUT(NSITE) = 1\n          ISITE = ISITES(NSITE)\n          JSITE = JSITES(NSITE)\n          IFOUTIJ(ISITE,JSITE)=1\n          SITEID(ISITE,JSITE)=NSITE\n       ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n            ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_GL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_gl1\n!\n! !DESCRIPTION: Function YSITESIJ_GL1\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_GL1( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 58\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    ! For size distributions\n    ! site1 Point Barrow            (71.32, -156.6 )  231 m asl\n    ! site2 Neumayer                (-70.65,  -8.25)\n    ! site3 Troll                   (-72.02,   2.53)\n    ! site4 Hyytiala                (61.85,   24.28)\n    !\n    ! EPA sopersites\n    !site5 New York                 (40.7144,-74.01)\n    !site6 Atlanta, Georgia         (33.75,  -84.39)\n    !site7 Baltimore, Maryland      (39.29,  -76.61)\n    !site8 Pittsburgh, Pennsylvania (40.44,  -80.0 )\n    !!site9 Houston, Texas          (29.76,  -95.38)\n    !\n    ! Other sites\n    !site9  APP, NC                 (36.213, -81.692)\n    !site10 EGB, Canada             (44.23,  -79.783)\n    !site11 DukeForest              (36.0,   -79.08 )\n    !site12 Kent, Ohio              (41.15,  -81.36 )\n    !site13 SGP                     (36.8    -97.5)\n    !site14 Pinnacle State Park     (42.10,  -77.21)\n    !site15 Whiteface Mtn           (44.4,   -73.9)\n    !Site16 SPL                     (40.46 , -106.744 ) 3210 m asl\n    !!site17  Boulder               (40.02,  -105.27)\n    !site17  MMSF,Indiana           (39.32,  -86.42)\n    !site18  Rochester              (43.16,  -77.61)\n    !\n    !site19 Manacapara, Brazil      (-3.21,  -60.60)\n    !site20 CUIABA-MIRANDA          -15.73   -56.02\n    !site21 Sao_Paulo               -23.56   -46.73\n    !site22 Melpitz                 (51.5     12.9 )\n    !site23 MexicoCity              (19.43,  -99.13)\n    !site24 Shanghai China           31.23   121.47\n    !site25 Wuhan China              30.59   114.31\n    !site26 Chongqing China          29.57   106.52\n    !site27 Zhengzhou China          34.77   113.62\n    !site28 Beijing China            39.91   116.41\n    !site28 Wuqing                  (39.39,  117.01) (same grid box as Beijing)\n    !site29 UMBS                    (45.56N,  84.72W)\n    !site30 NAAMES1                 (35N,     40W)\n    !!site30 JINAN                  (36.67N, 116.95E)\n    !site31 NAAMES2                 (46N,     40W)\n    !site32 NAAMES3                 (57N,     40W)\n    !!site32 Huangshan              (30.17N, 118.15E)\n    !site33 LLN                     (23.47,  120.87 )\n    !!site34 Chacaltaya            (-16.35,  -68.13 )\n    !site34 Chacaltaya             (-16.20,  -68.10 )\n    !site35 Puy de Dome             (45.767N,  2.966E,1465m)\n    !\n    !site36 Trinidad Head           (41.05, -124.15)\n    !site37 Sacramento, CA          (38.645,-121.34)\n    !site38 Los Angeles, California (34.05, -118.24)\n    !site39 Bondville               (40.1,   -88.3 )\n    !site40 Ozarks forest site      (38.74,  -92.2 )\n    !site41 Brent,AL                (32.94,  -87.16)\n    !\n    !site42 CPR (Cape San Juan), PR (18.48,  -66.13)\n    !site43 Aboa                   (-73.05,  -13.41)\n    !Site44 Port-aux-Français      (-49.35,   70.219),French Southern and Antarctic Lands\n    !Site45 Gual Pahari, India      (28.43 ,  77.15)\n    !SIte46 Nepal Cli Obs           (27.96,   86.81)\n    !site47 GuangzhouChina          (23.13,  113.26)\n    !Site48 Taipei                  (25.09,  121.56)\n    !Site49 Anmyeon-do, South Korea (36.54,  126.33)\n    !Site50 DEM_Athens              (37.99,   23.82)\n    !Site51 Izana                   (28.31,  -16.50)\n    !Site52 Zeppelin mountain       (78.91,   11.89)\n    !\n    !Site53 Ascension Island        (-7.97,  -14.35)\n    !Site54 GRW Graciosa Island, Azores, Portugal (39.09, -28.025)\n    !Site55 SMO American Samoa     (-14.24, -170.57)\n    !Site56 CGO Cape Grim          (-40.682, 144.688)\n    !Site57 Chuuk, FSM               (7.44,  151.86)\n    !site58  Albany, NY             (42.65,  -73.76)\n\n    ! CPT?\n    ! MLO\n    ! ALT\n\n    DATA ZLAT/71.32,-70.65,-72.02,61.85,40.71,33.75,39.29,40.44,            &\n              !29.76,34.05,36.0,41.15,36.8,42.10,44.4,40.46,                &\n              36.213,44.23,36.0,41.15,36.8,42.10,44.4,40.46,                &\n              39.32,43.16,-3.21,-15.73,-23.56,51.5,19.43,31.23,             &\n              !30.59,29.57,34.77,39.91,23.13/                               &\n              30.59,29.57,34.77,39.91,45.56,35.,46.,57.,                    &\n              !30.59,29.57,34.77,39.91,45.56,36.67,46.,30.17,               &\n              23.47,-16.20,45.767,41.05,38.645,34.05,40.1,                  &\n              38.74,32.94,18.48,-73.05,-49.35,28.43,27.96,                  &\n              23.13,25.09,36.54,37.99,28.31,78.91,                          &\n              -7.97,39.09,-14.24,-40.682,7.44,42.65/\n\n    DATA ZLON/-156.6,-8.25,2.53,24.28,-74.01,-84.39,-76.61,-80.0,           &\n              !-95.38,-118.24,-79.08,-81.36,-97.5,-77.21,-73.9,-106.744,    &\n              -81.692,-79.783,-79.08,-81.36,-97.5,-77.21,-73.9,-106.744,    &\n              -86.42,-77.61, -60.6,-56.02,-46.73,12.9,-99.13,121.47,        &\n              !114.31,106.52,113.62,116.41,113.26/                          &\n              114.31,106.52,113.62,116.41,-84.72,-40.,-40.,-40.,            &\n              !114.31,106.52,113.62,116.41,-84.72,116.95,-40.,118.15,       &\n              120.87,-68.10,2.966,-124.15,-121.34,-118.24,-88.3,-92.2,      &\n              -87.16,-66.13,-13.41,70.219,77.15,86.81,113.26,121.56,        &\n              126.33,23.82,-16.50,11.89,                                    &\n              -14.35,-28.025,-170.57,144.688,151.86,-73.76/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ   = 0\n    SITEID    = 0\n    DO NSITE=1,MSITE\n       IF(IFSITE.EQ.73) THEN ! only output 3 sites\n          IF(NSITE.EQ.4.or.NSITE.EQ.13.or.NSITE.EQ.27) THEN !Hyytiala,SGP, BJ\n             IFSITEOUT(NSITE) = 1\n             ISITE = ISITES(NSITE)\n             JSITE = JSITES(NSITE)\n             IFOUTIJ(ISITE,JSITE)=1\n             SITEID(ISITE,JSITE)=NSITE\n          ENDIF\n       !ELSE  ! all sites\n       ELSEIF((NSITE.GE.1.and.NSITE.LE.5).or.NSITE.EQ.7.or.NSITE.EQ.9 &\n          .or.(NSITE.GE.12.and.NSITE.LE.22).or.NSITE.EQ.24            &\n          .or. NSITE.EQ.28.or.(NSITE.GE.30.and.NSITE.LE.38)           &\n          .or.(NSITE.GE.41.and.NSITE.LE.58)) THEN\n          IFSITEOUT(NSITE) = 1\n          ISITE = ISITES(NSITE)\n          JSITE = JSITES(NSITE)\n          IFOUTIJ(ISITE,JSITE)=1\n          SITEID(ISITE,JSITE)=NSITE\n       ENDIF\n    ENDDO\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_GL1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_ac\n!\n! !DESCRIPTION: Function YSITESIJ_AC\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_AC( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 47\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    ! From AEROCOM_diagnostics_091024.xls\n    !STATIONID\tStation Name\tLat\tLon\tHeight asl\tSampling Height\tMean Pressure\tCountry\n    !1\tAlert\t82.450\t-62.517\t210.0\t10.0\t988.3\tUS\n    !2\tAspvreten\t58.800\t17.380\t20.0\t-999.9\t1010.9\tSE\n    !3\tAuchencorth\t55.800\t-3.283\t255.0\t10.0\t-999.9\tUK\n    !4\tBarrow\t71.323\t-156.612\t11.0\t10.0\t1012.3\tUS\n    !5\tBirkenes\t58.383\t8.250\t190.0\t5.0\t990.7\tNO\n    !6\tBondville\t40.050\t-88.367\t213.0\t10.0\t987.9\tUS\n    !7\tCabauw\t51.971\t4.927\t60.0\t-999.9\t1013.0\tNL\n    !8\tCape Grim\t-40.682\t144.688\t94.0\t10.0\t1002.0\tAS\n    !9\tCape Point\t-34.353\t18.490\t230.0\t3.0\t988.4\tSA\n    !10\tElandsfontein\t-25.533\t25.750\t1424.0\t10.0\t-999.9\tSA\n    !11\tFinokalia\t35.333\t25.670\t250.0\t2.0\t990.7\tGR\n    !\tGual Pahari\t\t\t\t\t\tIN\n    !12\tHarwell\t51.608\t-1.288\t60.0\t-999.9\t1003.7\tUK\n    !13\tHohenpeissenberg\t47.800\t11.017\t985.0\t10.0\t900.4\tDE\n    !14\tHyytiä\t61.850\t24.283\t181.0\t2.0\t991.7\tFI\n    !15\tIspra\t45.803\t8.627\t209.0\t3.5\t988.4\tIT\n    !16\tIzana\t28.309\t-16.499\t2373.0\t8.0\t759.4\tES\n    !17\tJungfraujoch\t46.548\t7.987\t3580.0\t1.8\t650.9\tCH\n    !18\tKosetice\t49.583\t15.083\t534.0\t-999.9\t950.7\tCR\n    !19\tK-Puszta\t49.967\t19.583\t125.0\t-999.9\t998.3\tHU\n    !20\tMace Head\t53.326\t-9.899\t5.0\t10.0\t1012.7\tIR\n    !21\tManaus\t-2.583\t60.200\t100.0\t40.0\t-999.9\tBR\n    !22\tMauna Loa\t19.539\t-155.578\t3397.0\t12.2\t666.4\tUS\n    !23\tMelpitz\t51.533\t12.900\t87.0\t-999.9\t1002.9\tDE\n    !24\tMonte Cimone\t44.167\t10.683\t2165.0\t5.0\t778.8\tIT\n    !25\tMount Waliguan\t36.283\t100.900\t3810.0\t-999.9\t631.8\tPRC\n    !26\tNeumayer\t-70.650\t-8.250\t42.0\t7.5\t1008.2\tAQ\n    !27\tPallas\t67.974\t24.116\t560.0\t7.0\t948.0\tFI\n    !28\tPayerne\t46.817\t6.950\t490.0\t-999.9\t955.8\tCH\n    !29\tPreila\t55.210\t21.040\t5.0\t-999.9\t1012.9\tLI\n    !30\tPuy de Dome\t45.767\t2.966\t1465.0\t12.0\t849.2\tFR\n    !31\tSable Island\t43.933\t-60.017\t4.0\t10.0\t1012.8\tCA\n    !32\tSamoa\t-14.232\t-170.563\t77.0\t15.5\t1008.2\tUS\n    !33\tShang Dianzi\t40.390\t117.070\t294.0\t-999.9\t978.4\tPRC\n    !34\tSonnblick\t47.054\t12.959\t3106.0\t-999.9\t691.7\tAU\n    !35\tSouth Pole\t-89.997\t-24.800\t2841.0\t13.3\t715.4\tAQ\n    !36\tSouthern Great Plains\t36.617\t-97.500\t320.0\t10.0\t975.4\tUS\n    !37\tSummit\t72.580\t-38.480\t3238.0\t-999.9\t680.1\tDK\n    !38\tTahkuse\t58.520\t24.940\t23.0\t-999.9\t1010.5\tET\n    !39\tTrinidad Head\t41.050\t-124.150\t107.0\t10.0\t1000.5\tUS\n    !40\tVavihill\t56.017\t13.150\t172.0\t5.0\t992.8\tSE\n    !41\tZeppelin\t78.908\t11.881\t474.0\t7.0\t947.8\tNO\n    !42\tZugspitze\t47.417\t10.983\t2650.0\t1.5\t704.7\tDE\n    !43\tIllmitz\t47.767\t16.767\t117.0\t\t\tAustra\n    !44\tLille Valby\t55.683\t12.117\t20.0\t\t\tDenmark\n    !45\tMontseny\t41.767\t2.350\t700.0\t\t\tSpain\n    !46\tBackgarden\t23.540\t113.060\t\t\t\tChina\n    !47\tCape San Juan\t18.381\t-65.618\t65.0\t\t\tUSA\n\n    DATA ZLAT/82.450, 58.800, 55.800, 71.323, 58.383, 40.050,           &\n              51.971, -40.682, -34.353, -25.533, 35.333, 51.608,        &\n              47.800, 61.850, 45.803, 28.309, 46.548, 49.583,           &\n              49.967, 53.326, -2.583, 19.539, 51.533, 44.167,           &\n              36.283, -70.650, 67.974, 46.817, 55.210, 45.767,          &\n              43.933, -14.232, 40.390, 47.054, -89.997, 36.617,         &\n              72.580, 58.520, 41.050, 56.017, 78.908, 47.417,           &\n              47.767, 55.683, 41.767, 23.540, 18.381/\n\n\n    DATA ZLON/-62.517, 17.380, -3.283, -156.612, 8.250, -88.367,        &\n              4.927, 144.688, 18.490, 25.750, 25.670, -1.288,           &\n              11.017, 24.283, 8.627, -16.499, 7.987, 15.083,            &\n              19.583, -9.899, 60.200, -155.578, 12.900, 10.683,         &\n              100.900, -8.250, 24.116, 6.950, 21.040, 2.966,            &\n              -60.017, -170.563, 117.070, 12.959, -24.800, -97.500,     &\n              -38.480, 24.940, -124.150, 13.150, 11.881, 10.983,        &\n              16.767, 12.117, 2.350, 113.060, -65.618/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       IFSITEOUT(NSITE) = 1\n       ISITE = ISITES(NSITE)\n       JSITE = JSITES(NSITE)\n       IFOUTIJ(ISITE,JSITE)=1\n       SITEID(ISITE,JSITE)=NSITE\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_AC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_bacchus\n!\n! !DESCRIPTION: Function YSITESIJ_BACCHUS\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_BACCHUS( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !INTEGER, PARAMETER  :: MS   = 25\n    INTEGER, PARAMETER :: MS   = 18\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    ! BACCHUS sites\n    !51.95   4.93     !site1 Cabauw\n    !35.33   25.67    !site2 Finokalia\n    !46.53   7.98     !site3 Jungfraujoch\n    !53.33   -9.9     !site4 Mace Head\n    !51.54   12.93    !site5 Melpitz\n    !37.75   137.60   !site6 NotoPeninsula\n    !45.7    3.22     !site7 Puy de Dome\n    !61.85   24.28    !site8 Hyytiala\n    !56.02   13.15    !site9 Vavihill\n    !\n    ! Other sites\n    !site10 Bondville (40.050, -88.367\t213.0\t10.0\t987.9\tUS)\n    !site11 SGP (36.8    -97.5)\n    !site12 Shanghai China\t31.23\t121.47\n    !site13 Beijing China\t39.91\t116.41\n    !site14 Pinnacle State Park (42.10, -77.21)\n    !site15 Chacaltaya  (-16.35, -68.13 )\n    !Site16 SPL    (40.46 , -106.744 ) 3210 m asl\n    !site17 LLN       (23.47,  120.87 )\n    !site18 Rochester (43.16,  -77.61)\n\n    DATA ZLAT/51.95,35.33,46.53,53.33,51.54,37.75,   &\n              45.70,61.85,56.02,40.05,36.80,31.23,   &\n              39.91,42.10,-16.35,40.46,23.47,43.16/\n\n    DATA ZLON/4.93,25.67,7.98,-9.9,12.93,137.60,     &\n              3.22,24.28,13.15,-88.367,-97.5,121.47, &\n              116.41,-77.21,-68.13,-106.744,120.87,-77.61/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       !IF(NSITE.GT.MS) THEN !No sites\n       IF(NSITE.LE.MS) THEN !All sites\n       !IF(NSITE.EQ.1.or.NSITE.EQ.4.or.NSITE.EQ.8. &\n       !   or.NSITE.EQ.10.or.NSITE.EQ.12.\n       !   or.NSITE.EQ.23.or.NSITE.EQ.24) THEN !Selected sites\n          IFSITEOUT(NSITE) = 1\n          ISITE = ISITES(NSITE)\n          JSITE = JSITES(NSITE)\n          IFOUTIJ(ISITE,JSITE)=1\n          SITEID(ISITE,JSITE)=NSITE\n       ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_BACCHUS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_eu\n!\n! !DESCRIPTION: Function YSITESIJ_EU\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_EU( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !INTEGER, PARAMETER  :: MS   = 25\n    INTEGER, PARAMETER  :: MS   = 24\n    REAL*8         :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER        :: NSITE, ISITE, JSITE\n\n    ! EUCAARI sites\n    !\n    !Measurement site Site Geographic Altitude Site classification Surroundings\n    !acronym coordinates (m a.s.l.)\n    !Pallas, Finland PAL 67580 N, 24070 E 560 high-elevation, remote continental boreal forest, tundra\n    !Hyyti¨al¨a, Finland HTL 61500 N, 24180 E 182 rural continental, background homogeneous boreal forest\n    !Vavihill, Sweden VHL 56010 N, 139090 E 172 rural background, continental deciduous forest, field\n    !Mace Head, Ireland MHD 53190 N, 09530W 5 marine background, coastal Atlantic ocean, bare land\n    !Cabauw, Netherlands CBW 51570 N, 04530 E 0 clean marine, rural polluted ocean, field, urban\n    !Melpitz, Germany MPZ 51320 N, 12540 E 87 rural polluted, continental pasture, suburban\n    !Hohenpeissenberg, Germany HPB 47480 N, 11000 E 980 high-elevation, backgorund forest, meadows\n    !K-Puszta, Hungary KPO 4664580 N, 1907350 E 125 rural continental, background field, deciduous forest\n    !Jungfraujoch, Switzerland JFJ 4664320 N, 07570 E 3580 high altitude, background mountain\n    !Puy de Dome, France PDD 45420 N, 03130 E 1465 high-elevation, background forest, mountain\n    !San Pietro Capofiume, Italy SPC 44370 N, 11400 E 11 rural polluted, continental field, suburban\n    !Finokalia, Greece FKL 35200 N, 2567400 E 250 marine background, coastal Mediterranean sea, dust\n\n    ! Additional sites for GUAN\n    !Bosel           rural lowland station                   53.00° N, 7.97° E\n    !Waldhof         rural lowland station                   52.80° N 10.76° E\n    !Melpitz         rural lowland station                   51.54° N 12.93° E (this is actually your site 8)\n    !Schauinsland    rural mid-level mountain station        47.91° N  7.91° E\n    !Hohenpeissenberg rural mid-level mountain station        47.80° N 11.00° E (this is actually your site 5)\n    !Zugspitze        Alpine mountain station                 47.42° N 10.98° E\n    !Kosetice         rural station in the Czech Republic     49° 35''N 15° 05''E (sorry, degrees here only!)\n\n    !67.97   24.12    !site1 Pallas\n    !56.02   13.15    !site2 Vavihill\n    !51.95   4.88     !site3 Cabauw\n    !61.85   24.28    !site4 Hyytiala\n    !47.8    11.0     !site5 Hohenpeissenberg\n    !46.97   19.60    !site6 K-Puszta\n    !53.33   -9.9     !site7 Mace Head\n    !51.54   12.93     !site8 Melpitz\n    !46.53   7.95     !site9 Jungfraujoch\n    !45.7    3.22     !site10 Puy de Dome\n    !44.62   11.67    !site11 San Pietro Capofiume,\n    !35.33   25.67    !site12 Finokalia\n    !\n    ! GUAN\n    !50.0    7.97     !site13 Bosel\n    !52.8    10.76    !site14 Waldhof\n    !47.91   7.91     !site15 Schauinsland\n    !47.42   10.98    !site16 Zugspitze\n    !49.58   15.08    !site17 Kosetice\n\n    ! EUSAAR\n    !58.8, 17.38    !site 18 Aspvreten\n    !58.38,8.25     !site 19 Birkenes\n    !55.35,21.07    !site20 Preila\n    !51.58,-1.32    !site21 Harwell\n    !45.8, 8.63     !site 22 Ispra\n    !44.18,10.7     !site23 Mt Cimone\n    !42.17,23.58    !site24 BEO Moussala\n\n    !52.80,10.76    !site21 Langenbrugge  !repeat 14\n\n    DATA ZLAT/67.97,56.02,51.95,61.85,47.8,46.97,    &\n              53.33,51.54,46.53,45.7,44.62,35.33,    &\n              50.0,52.8,47.91,47.42,49.58,           &\n              58.8,58.38,55.35,51.58,45.8,44.18,42.17/\n\n    DATA ZLON/24.12,13.15,4.88,24.28,11.0,19.60,     &\n              -9.9,12.93,7.95,3.22,11.67,25.67,      &\n              7.97,10.76,7.91,10.98,15.08,           &\n              17.38,8.25,21.07,-1.32,8.63,10.7,23.58/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       !IF(NSITE.GT.MS) THEN !No sites\n       !IF(NSITE.LE.MS) THEN !All sites\n       IF(NSITE.EQ.1.or.NSITE.EQ.4.or.NSITE.EQ.8. &\n          .or.NSITE.EQ.10.or.NSITE.EQ.12. &\n          .or.NSITE.EQ.23.or.NSITE.EQ.24) THEN !Selected sites\n          IFSITEOUT(NSITE) = 1\n          ISITE = ISITES(NSITE)\n          JSITE = JSITES(NSITE)\n          IFOUTIJ(ISITE,JSITE)=1\n          SITEID(ISITE,JSITE)=NSITE\n       ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_EU\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_ch\n!\n! !DESCRIPTION: Function YSITESIJ_CH\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_CH( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 32\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    !Lat     Lon    Altitude\n    !CN10LT.dat\n    !36.28   100.9     !Mount Waliguan, China   !site1\n    !29.44   79.62     !Mukteshwar, India       !site2\n    !27.96   86.82   5079  !Pyramid, Himalayan Nepal !site3\n    !Other sites\n    !40.65  117.12        !Shang dian Zi of Beijing !site4\n    !32.56  116.78   22.7 !DOE AMF Deployment, Shouxian, China !site5\n    !28.43 77.156    243  !Gual Pahari, India (EUSSAR) !site6\n    !28.6629,79.2563 2000 !Nainital, India (DOE AMF 2011) !site7\n\n    ! Asia cities\n    !Urumqi\t China\t43.83\t87.62  !site8\n    !Shenyang China\t41.81\t123.43  !site9\n    !Beijing China\t39.91\t116.41  !site10\n    !TaiyuanChina\t37.87\t112.55  !site11\n    !Seoul\t Korean\t37.57\t126.98  !site12\n    !Anmyeon-doKorea36.37\t126.32  !site13\n    !Lanzhou China\t36.06\t103.83  !site14\n    !Tokoyo\tJapan\t35.69\t139.69  !site15\n    !ShirahamaJapan\t33.66\t135.38  !site16\n    !Shanghai China\t31.23\t121.47  !site17\n    !Chengdu China\t30.66\t104.07  !site18\n    !Wuhan\t  China\t30.59\t114.31  !site19\n    !Lhasa\t China\t29.65\t91.14  !site20\n    !(New DelhiIndia\t28.64\t77.22  !site21 -- same as site 6)\n    !Taipei\t China\t25.09\t121.56  !site21\n    !Kunming China\t25.04\t102.72  !site22\n    !GuangzhouChina\t23.13\t113.26  !site23\n    !\n    !Wuqing         39.39,  117.01   !site24\n    !Nanjing        32.06,  118.80  !site25\n    !Hongzhou       30.27,  120.16  !site26\n    !Hefei          31.82,  117.23 !site27\n    !Xian           34.34, 108.94  !site28\n    !Jinan          36.65, 117.12  !site29\n    !Shijiazhuang   38.04, 114.51   !site30\n    !Changsha       28.23, 112.94   !site31\n    !LLN            23.47,  120.87  !site32\n    !\n\n    DATA ZLAT/36.28,29.44,27.96,40.65,32.56,28.43,28.663,            &\n              43.83,41.81,39.91,37.87,37.57,36.37,36.06,35.69,       &\n              !33.66,31.23,30.66,30.59,29.65,28.64,25.09,25.04,23.13/\n              33.66,31.23,30.66,30.59,29.65,25.09,25.04,23.13,       &\n              39.39,32.06,30.27,31.82,34.34,36.65,38.04,28.23,23.47/\n\n    DATA ZLON/100.9,79.62,86.82,117.12,116.78,77.156,79.256,                &\n              87.62,123.43,116.41,112.55,126.98,126.32,103.83,139.69,       &\n              !135.38,121.47,104.07,114.31,91.14,77.22,121.56,102.72,113.26/\n              135.38,121.47,104.07,114.31,91.14,121.56,102.72,113.26,       &\n              117.01,118.80,120.16,117.23,108.94,117.12,114.51,112.94,120.87/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       !IF(NSITE.EQ.4.or.NSITE.EQ.13) THEN !Hyytiala,SGP\n       !IF(NSITE.GE.45) THEN !No sites\n       !IF(NSITE.EQ.1.or.NSITE.EQ.2.or.NSITE.EQ.4.or.  &\n       ! NSITE.EQ.7.or.NSITE.EQ.8.or.NSITE.EQ.13.or.   &\n       ! NSITE.EQ.15.or.NSITE.EQ.16.or.NSITE.EQ.18.or. &\n       ! NSITE.EQ.20.or.NSITE.EQ.21.or.NSITE.EQ.27.or. &\n       ! NSITE.EQ.34.or.NSITE.EQ.35.or.NSITE.EQ.36.or. &\n       ! NSITE.EQ.41) THEN\n       IF(NSITE.GE.1.and.NSITE.LE.MS) THEN\n          IFSITEOUT(NSITE) = 1\n          ISITE = ISITES(NSITE)\n          JSITE = JSITES(NSITE)\n          IFOUTIJ(ISITE,JSITE)=1\n          SITEID(ISITE,JSITE)=NSITE\n       ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_CH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_ch1\n!\n! !DESCRIPTION: Function YSITESIJ_CH1\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_CH1( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 38\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    !Lat     Lon    Altitude\n    !CN10LT.dat\n    !36.28   100.9     !Mount Waliguan, China   !site1\n    !29.44   79.62     !Mukteshwar, India       !site2\n    !27.96   86.82   5079  !Pyramid, Himalayan Nepal !site3\n    !Other sites\n    !40.65  117.12        !Shang dian Zi of Beijing !site4\n    !32.56  116.78   22.7 !DOE AMF Deployment, Shouxian, China !site5\n    !28.43 77.156    243  !Gual Pahari, India (EUSSAR) !site6\n    !28.6629,79.2563 2000 !Nainital, India (DOE AMF 2011) !site7\n\n    ! Asia cities\n    !Urumqi\t China\t43.83\t87.62  !site8\n    !Shenyang China\t41.81\t123.43  !site9\n    !Beijing China\t39.91\t116.41  !site10\n    !TaiyuanChina\t37.87\t112.55  !site11\n    !Seoul\t Korean\t37.57\t126.98  !site12\n    !Anmyeon-doKorea36.37\t126.32  !site13\n    !Lanzhou China\t36.06\t103.83  !site14\n    !Tokoyo\tJapan\t35.69\t139.69  !site15\n    !ShirahamaJapan\t33.66\t135.38  !site16\n    !Shanghai China\t31.23\t121.47  !site17\n    !Chengdu China\t30.66\t104.07  !site18\n    !Wuhan\t  China\t30.59\t114.31  !site19\n    !Lhasa\t China\t29.65\t91.14  !site20\n    !(New DelhiIndia\t28.64\t77.22  !site21 -- same as site 6)\n    !!Taipei\t25.09\t121.56  !site21 -- same as site 35\n    !Wufenshan\t25.07\t121.77  !site21\n    !Kunming China\t25.04\t102.72  !site22\n    !GuangzhouChina\t23.13\t113.26  !site23\n    !\n    !Wuqing         39.39,  117.01   !site24\n    !Nanjing        32.06,  118.80  !site25\n    !Hongzhou       30.27,  120.16  !site26\n    !Hefei          31.82,  117.23 !site27\n    !Xian           34.34, 108.94  !site28\n    !Jinan          36.65, 117.12  !site29\n    !Shijiazhuang   38.04, 114.51   !site30\n    !Changsha       28.23, 112.94   !site31\n    !LLN            23.47,  120.87  !site32\n    !Pengchyu       25.63,  122.07  !site33\n    !Fuguei Cape    25.30,  121.54   !site34\n    !NCU            24.97,  121.19  !site35\n    !HengChung      22.00,  120.71  !site36\n    !Donshan        20.71,  116.73  !site37\n    !Mt.Fuji(3776mASL) (35.36,138.73) !site38\n\n    DATA ZLAT/36.28,29.44,27.96,40.65,32.56,28.43,28.663,            &\n              43.83,41.81,39.91,37.87,37.57,36.37,36.06,35.69,       &\n              !33.66,31.23,30.66,30.59,29.65,28.64,25.09,25.04,23.13/\n              !33.66,31.23,30.66,30.59,29.65,25.09,25.04,23.13,      &\n              33.66,31.23,30.66,30.59,29.65,25.07,25.04,23.13,       &\n              39.39,32.06,30.27,31.82,34.34,36.65,38.04,28.23,23.47, &\n              25.63, 25.30, 24.97, 22.00,20.71,35.36/\n\n    DATA ZLON/100.9,79.62,86.82,117.12,116.78,77.156,79.256,                  &\n              87.62,123.43,116.41,112.55,126.98,126.32,103.83,139.69,         &\n              !135.38,121.47,104.07,114.31,91.14,77.22,121.56,102.72,113.26/\n              !135.38,121.47,104.07,114.31,91.14,121.56,102.72,113.26,        &\n              135.38,121.47,104.07,114.31,91.14,121.77,102.72,113.26,         &\n              117.01,118.80,120.16,117.23,108.94,117.12,114.51,112.94,120.87, &\n              122.07,121.54,121.19,120.71,116.73,138.73/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       !IF(NSITE.EQ.4.or.NSITE.EQ.13) THEN !Hyytiala,SGP\n       !IF(NSITE.GE.45) THEN !No sites\n       !IF(NSITE.EQ.1.or.NSITE.EQ.2.or.NSITE.EQ.4.or.  &\n       ! NSITE.EQ.7.or.NSITE.EQ.8.or.NSITE.EQ.13.or.   &\n       ! NSITE.EQ.15.or.NSITE.EQ.16.or.NSITE.EQ.18.or. &\n       ! NSITE.EQ.20.or.NSITE.EQ.21.or.NSITE.EQ.27.or. &\n       ! NSITE.EQ.34.or.NSITE.EQ.35.or.NSITE.EQ.36.or. &\n       ! NSITE.GE.32) THEN\n       IF(NSITE.GE.1.and.NSITE.LE.MS) THEN\n          IFSITEOUT(NSITE) = 1\n          ISITE = ISITES(NSITE)\n          JSITE = JSITES(NSITE)\n          IFOUTIJ(ISITE,JSITE)=1\n          SITEID(ISITE,JSITE)=NSITE\n       ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_CH1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_na\n!\n! !DESCRIPTION: Function YSITESIJ_NA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_NA( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 31\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    ! For size distributions\n    !site1 Bondville (40.1, -88.3  )\n    !site2 Trinidad Head (41.05,-124.15  )\n    !site3 WHI (Whistler), Canada (50.01, -122.95) 2182 masl\n    !site4 ETL (East Trout Lake), Canada\t(54.35, -104.99) 540 masl\n\n    ! EPA sopersites\n    !!site5 New York (40.7144,  -74.01 )\n    !site5 Queens College, New York (40.74,  -73.82 )\n    !site6 Atlanta, Georgia (33.75, -84.39)\n    !!site7 Baltimore, Maryland (39.29,  -76.61)\n    !site7 HUBC, Baltimore, Maryland (39.05,  -76.87)\n    !site8 Pittsburgh, Pennsylvania (40.44,  -80.0 )\n    !site9 APP, NC (36.213,  -81.692)\n    !site10 EGB, Canada  (44.23,  -79.783)\n\n    ! Other sites\n    !site11 DukeForest (36.0, -79.08)\n    !site12 Kent, Ohio (41.15, -81.36 )\n    !site13 SGP (36.8    -97.5)\n    !site14 Pinnacle State Park (42.10, -77.21)\n    !site15 Whiteface Mtn  (44.4, -73.9)\n    !Site16 SPL    (40.46 , -106.744 ) 3210 m asl\n    !site17  MMSF,Indiana (39.32,  -86.42)\n    !site18  Rochester (43.16,  -77.61)\n\n    !site19 UMBS (45.56, -84.72)\n    !site20  Boulder (40.02,  -105.27)\n    !site21  Albany, NY (42.65, -73.76)\n\n    !site22  Sweet Briar College (37.56,-79.08)\n    !site23 Brent,AL (32.94,  -87.16)\n    !site24 Houston, Texas (29.76,  -95.38)\n    !site25 Los Angeles, California  (34.05,  -118.24)\n    !site26 MexicoCity (19.43,  -99.13)\n    !site27 Cool, CA (38.89, -120.97)\n    !site28 Sacramento, CA (38.645, -121.34)\n    !site29 Ozarks forest site (38.74, -92.2 )\n    !site30 Brooklaven, NY (40.87, -72.89 )\n    !site31 CPR (Cape San Juan), PR (18.48, -66.13)\n\n    DATA ZLAT/40.1,41.05,50.01,54.35,40.74,33.75,39.05,   &\n              40.44,36.213,44.23,36.0,41.15,36.8,42.10,   &\n              44.4, 40.46,39.32,43.16,45.56,40.02,42.65,  &\n              37.56,32.94,29.76,34.05,19.43,38.89,38.645, &\n              38.74,40.87,18.48/\n\n    DATA ZLON/-88.3,-124.15,-122.95,-104.99,-73.82,-84.39,-76.87,  &\n              -80.0,-81.692,-79.783,-79.08,-81.36,-97.5,-77.21,    &\n              -73.9,-106.744,-86.42,-77.61,-84.72,-105.27,-73.76,  &\n              -79.08,-87.16,-95.38,-118.24,-99.13,-120.97,-121.34, &\n              -92.2,-72.89,-66.13/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       !IF(NSITE.EQ.4.or.NSITE.EQ.13.or.NSITE.EQ.27) THEN !\n       IFSITEOUT(NSITE) = 1\n       ISITE = ISITES(NSITE)\n       JSITE = JSITES(NSITE)\n       IFOUTIJ(ISITE,JSITE)=1\n       SITEID(ISITE,JSITE)=NSITE\n       !ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_NA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ysitesij_aod_cn\n!\n! !DESCRIPTION: Function YSITESIJ_AOD_CN\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine  YSITESIJ_AOD_CN( State_Grid )\n!\n! !USES:\n!\n    USE APM_INIT_MOD,   ONLY : MAXSITE,MSITE,ISITES,JSITES,IFSITEOUT\n    USE APM_INIT_MOD,   ONLY : IFSITE\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: MS   = 100\n    REAL*8             :: ZLAT(MS),ZLON(MS), YLAT, XLON\n    INTEGER            :: NSITE, ISITE, JSITE\n\n    ! Site info see C:\\Users\\yfq\\Desktop\\MyDocuments_Syn\\Research\\Data\\AERONET\\AOD_CN10_SITES.xls\n\n    DATA ZLON/ -156.60, 24.28, 59.55, 37.51, 27.60, 20.79, 12.90,        &\n               -104.70, 2.21, 28.82, -116.99, 12.51, -122.22, -79.75,    &\n               4.88, 104.42, -70.95, 76.98, 12.65, 123.43, -88.37,       &\n               -105.01, 116.38, -76.84, -7.91, -115.96, 54.27, -119.77,  &\n               -97.49, 34.26, 3.22, 104.14, 25.28, 113.62, 69.22,        &\n               -106.89, 58.68, 62.22, 135.36, 73.10, 44.23, -111.97,     &\n               13.16, 37.13, 66.90, 120.22, -7.88, 46.08, 34.78,         &\n               104.07, 114.31, 31.41, 47.52, 58.40, 79.52, -16.32,       &\n               83.97, 86.81, 64.10, 75.81, 80.23, 84.13, 51.32,          &\n               46.40, 67.03, 54.55, 58.28, 113.26, 72.63, 62.00,         &\n               5.53, 39.77, -10.00, -155.58, -99.18, 73.81, -67.05,      &\n               54.02, 47.10, -22.94, 15.00, -16.96, 2.66, -5.93,         &\n               74.88, -1.40, 49.18, 4.34, -14.41, -56.10, 132.89,        &\n               -170.57, 23.15, -70.31, -46.73, 31.59, 139.35, -58.50,    &\n               144.69, -8.25/\n\n    DATA ZLAT/ 71.32, 61.85, 57.04, 55.70, 53.92, 51.84, 51.50,          &\n               50.28, 48.70, 47.00, 46.49, 45.31, 44.24, 44.23,          &\n               43.93, 43.58, 43.11, 42.62, 41.84, 41.81, 40.05,          &\n               40.05, 39.98, 38.99, 38.57, 38.50, 36.85, 36.79,          &\n               36.61, 36.57, 36.32, 35.95, 35.33, 34.73, 34.55,          &\n               34.35, 34.35, 34.22, 33.69, 33.62, 33.25, 33.07,          &\n               32.67, 32.20, 32.10, 31.42, 31.21, 30.95, 30.86,          &\n               30.66, 30.59, 30.12, 29.33, 29.10, 29.05, 28.48,          &\n               28.15, 27.96, 26.97, 26.91, 26.51, 25.87, 25.20,          &\n               24.91, 24.87, 24.25, 23.58, 23.13, 23.07, 23.00,          &\n               22.79, 21.43, 20.00, 19.54, 19.33, 18.54, 17.97,          &\n               17.67, 17.47, 16.73, 15.00, 14.39, 13.54, 13.28,          &\n               12.92, 12.20, 11.28, 8.32, -7.98, -9.87, -12.66,          &\n               -14.24, -15.25, -18.47, -23.56, -24.99, -25.90, -34.57,   &\n               -40.68, -70.65/\n\n    MSITE = MS\n    IF(MSITE.GT.MAXSITE) THEN\n       WRITE(6,*)\"MSITE>MAXSITE; NEED TO CHECK\",MSITE,MAXSITE\n       STOP\n    ENDIF\n    ISITES = 0\n    JSITES = 0\n    DO NSITE = 1, MSITE\n       YLAT = ZLAT(NSITE)\n       XLON = ZLON(NSITE)\n       CALL SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n       ISITES(NSITE) = ISITE\n       JSITES(NSITE) = JSITE\n    ENDDO\n\n    ! output at selected sites\n    IFSITEOUT = 0\n    IFOUTIJ = 0\n    SITEID  = 0\n    DO NSITE=1,MSITE\n       !IF(NSITE.EQ.1) THEN  !SGP only\n       IFSITEOUT(NSITE) = 1\n       ISITE = ISITES(NSITE)\n       JSITE = JSITES(NSITE)\n       IFOUTIJ(ISITE,JSITE)=1\n       SITEID(ISITE,JSITE)=NSITE\n       !ENDIF\n    ENDDO\n\n    WRITE(6,*)\"SITE LOCATION AND ID\"\n    DO NSITE = 1, MSITE\n       WRITE(6,25)NSITE,ZLAT(NSITE),ZLON(NSITE), &\n                  ISITES(NSITE),JSITES(NSITE),IFSITEOUT(NSITE)\n    ENDDO\n25  FORMAT(I3,F8.2,F8.2,I4,I4,I2)\n\n  end subroutine YSITESIJ_AOD_CN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: siteij\n!\n! !DESCRIPTION: Function SITEIJ finds I, J index for specific site (F. YU, 05/2009)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine SITEIJ(NSITE,XLON, YLAT,ISITE,JSITE,State_Grid)\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: NSITE\n    REAL*8,         INTENT(IN)  :: YLAT, XLON\n    TYPE(GrdState), INTENT(IN)  :: State_Grid\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: ISITE, JSITE\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER :: I, J, IX, JY, L\n    REAL*8  :: XEDGE1, XEDGE2, DLON1, YEDGE1, YEDGE2, DLAT1\n\n    XEDGE1 = State_Grid%XEDGE(2,1)\n    XEDGE2 = State_Grid%XEDGE(3,1)\n    DLON1  = State_Grid%DX\n    YEDGE1 = State_Grid%YEDGE(1,2)\n    YEDGE2 = State_Grid%YEDGE(1,3)\n    DLAT1  = State_Grid%DY\n\n    ISITE = INT((XLON-XEDGE1)/DLON1)+2\n    JSITE = INT((YLAT-YEDGE1)/DLAT1)+2\n    IF(ISITE.LT.1.or.ISITE.GT.State_Grid%NX.or.JSITE.LT.1 &\n       .or.JSITE.GT.State_Grid%NY) THEN\n       WRITE(6,*)\"SITE location out of nested boundary\"\n       IF(ISITE.LT.1) ISITE = 1\n       IF(ISITE.GT.State_Grid%NX) ISITE = State_Grid%NX\n       IF(JSITE.LT.1) JSITE = 1\n       IF(JSITE.GT.State_Grid%NY) JSITE = State_Grid%NY\n    ENDIF\n    !WRITE(900+NSITE,520)ISITE, JSITE, XLON, YLAT,\n    WRITE(6,520)ISITE, JSITE, XLON, YLAT,       &\n                State_Grid%XEDGE(ISITE, JSITE), &\n                State_Grid%XMID (ISITE, JSITE), &\n                State_Grid%YEDGE(ISITE, JSITE), &\n                State_Grid%YMID (ISITE, JSITE)\n520 format(I4,I4,6F9.3, 10(1PE9.2))\n\n  END SUBROUTINE SITEIJ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_local_time\n!\n! !DESCRIPTION: Function GET\\_LOCAL\\_TIME computes the local time and returns\n!  an array of points where the local time is between two user-defined limits.\n!  (bmy, 11/29/00, 12/10/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_LOCAL_TIME( State_Grid )\n!\n! !USES:\n!\n    USE TIME_MOD,       ONLY : GET_LOCALTIME\n    USE TIME_MOD,       ONLY : GET_TS_DYN\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! ! INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!\n! !REVISION HISTORY:\n!  29 Nov 2000 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I\n    REAL*8  :: LT, TS_DYN\n\n    !=================================================================\n    ! GET_LOCAL_TIME begins here!\n    !=================================================================\n    TS_DYN = GET_TS_DYN()\n    TS_DYN = TS_DYN / 60e+0_fp\n\n    GOOD = 0\n    DO I = 1, State_Grid%NX\n\n       ! Get local time\n       LT = GET_LOCALTIME( I, 1, 1, State_Grid ) - TS_DYN\n       IF ( LT < 0  ) LT = LT + 24e+0_fp\n\n       ! GOOD indicates which boxes have local times between HR1 and HR2\n       IF ( LT >= 13.d0 .and. LT <= 14.d0 ) THEN\n          GOOD(I) = 1\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE GET_LOCAL_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_oh\n!\n! !DESCRIPTION: Function GET\\_OH returns OH from State\\_Chm%Species%Conc\n!  (for coupled runs) or monthly mean OH (for offline runs).  Imposes a diurnal\n!  variation on OH for offline simulations. (bmy, 12/16/02, 7/20/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_OH( I, J, L, id_OH, Input_Opt, State_Chm, State_Met ) &\n       RESULT( OH_MOLEC_CM3 )\n!\n! !USES:\n!\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: I, J, L     ! Lon, lat, level indices\n    INTEGER,        INTENT(IN) :: id_OH\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)            :: OH_MOLEC_CM3\n\n    !=================================================================\n    ! GET_OH begins here!\n    !=================================================================\n\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n       !---------------------\n       ! Coupled simulation\n       !---------------------\n\n       ! Take OH from State_Chm%Species%Conc [molec/cm3]\n       ! OH is defined only in the chemistry grid\n       IF ( State_Met%InChemGrid(I,J,L) ) THEN\n          OH_MOLEC_CM3 = State_Chm%Species(id_OH)%Conc(I,J,L)\n       ELSE\n          OH_MOLEC_CM3 = 0e+0_fp\n       ENDIF\n\n    ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       !---------------------\n       ! Offline simulation\n       !---------------------\n\n       ! Test for sunlight...\n       IF ( State_Met%SUNCOS(I,J) > 0e+0_fp .and. TCOSZ(I,J) > 0e+0_fp ) THEN\n\n          ! Impose a diurnal variation on OH during the day\n          OH_MOLEC_CM3 = OH(I,J,L)                              * &\n                         ( State_Met%SUNCOS(I,J) / TCOSZ(I,J) ) * &\n                         ( 86400e+0_fp           / GET_TS_CHEM() )\n\n          ! OH is in kg/m3 (from HEMCO), convert to molec/cm3 (mps, 9/18/14)\n          OH_MOLEC_CM3 = OH_MOLEC_CM3 * XNUMOL_OH / CM3PERM3\n\n          ! Make sure OH is not negative\n          OH_MOLEC_CM3 = MAX( OH_MOLEC_CM3, 0e+0_fp )\n\n       ELSE\n\n          ! At night, OH goes to zero\n          OH_MOLEC_CM3 = 0e+0_fp\n\n       ENDIF\n\n    ELSE\n\n       !---------------------\n       ! Invalid simulation\n       !---------------------\n       CALL ERROR_STOP( 'Invalid simulation!', 'GET_OH (apm_driv_mod.F90)')\n\n    ENDIF\n\n  END FUNCTION GET_OH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ohno3time\n!\n! !DESCRIPTION: Subroutine OHNO3TIME computes the sum of cosine of the solar\n!  zenith angle over a 24 hour day, as well as the total length of daylight.\n!  This is needed to scale the offline OH and NO3 concentrations.\n!  (rjp, bmy, 12/16/02, 3/30/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OHNO3TIME( State_Grid )\n!\n! !USES:\n!\n    USE TIME_MOD,       ONLY : GET_NHMSb,   GET_ELAPSED_SEC\n    USE TIME_MOD,       ONLY : GET_TS_CHEM, GET_DAY_OF_YEAR, GET_GMT\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE       :: FIRST = .TRUE.\n    INTEGER             :: I, J, L, N, NT, NDYSTEP\n    REAL(fp)            :: A0, A1, A2, A3, B1, B2, B3\n    REAL(fp)            :: LHR0, R, AHR, DEC, TIMLOC, YMID_R\n    REAL(fp)            :: SUNTMP(State_Grid%NX,State_Grid%NY)\n\n    !=================================================================\n    ! OHNO3TIME begins here!\n    !=================================================================\n\n    !  Solar declination angle (low precision formula, good enough for us):\n    A0 = 0.006918\n    A1 = 0.399912\n    A2 = 0.006758\n    A3 = 0.002697\n    B1 = 0.070257\n    B2 = 0.000907\n    B3 = 0.000148\n    R  = 2.* PI * float( GET_DAY_OF_YEAR() - 1 ) / 365.\n\n    DEC = A0 - A1*cos(  R) + B1*sin(  R) &\n             - A2*cos(2*R) + B2*sin(2*R) &\n             - A3*cos(3*R) + B3*sin(3*R)\n\n    LHR0 = int(float( GET_NHMSb() )/10000.)\n\n    ! Only do the following at the start of a new day\n    IF ( FIRST .or. GET_GMT() < 1e-5 ) THEN\n\n       ! Zero arrays\n       TTDAY(:,:) = 0e+0_fp\n       TCOSZ(:,:) = 0e+0_fp\n       COSZM(:,:) = 0e+0_fp\n\n       ! NDYSTEP is # of chemistry time steps in this day\n       NDYSTEP = ( 24 - INT( GET_GMT() ) ) * 3600 / GET_TS_CHEM()\n\n       ! NT is the elapsed time [s] since the beginning of the run\n       NT = GET_ELAPSED_SEC()\n\n       ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n       DO N = 1, NDYSTEP\n\n          ! Zero SUNTMP array\n          SUNTMP = 0e+0_fp\n\n          ! Loop over surface grid boxes\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Grid box latitude center [radians]\n             YMID_R = State_Grid%YMID_R(I,J)\n\n             TIMLOC = real(LHR0) + real(NT)/3600.0 + State_Grid%XMID(I,J)/15.0\n\n             DO WHILE (TIMLOC .lt. 0)\n                TIMLOC = TIMLOC + 24.0\n             ENDDO\n\n             DO WHILE (TIMLOC .gt. 24.0)\n                TIMLOC = TIMLOC - 24.0\n             ENDDO\n\n             AHR = abs(TIMLOC - 12.) * 15.0 * PI_180\n\n             !===========================================================\n             ! The cosine of the solar zenith angle (SZA) is given by:\n             !\n             !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n             !\n             ! where LAT = the latitude angle,\n             !       DEC = the solar declination angle,\n             !       AHR = the hour angle, all in radians.\n             !\n             ! If SUNCOS < 0, then the sun is below the horizon, and\n             ! therefore does not contribute to any solar heating.\n             !===========================================================\n\n             ! Compute Cos(SZA)\n             SUNTMP(I,J) = sin(YMID_R) * sin(DEC) + &\n                           cos(YMID_R) * cos(DEC) * cos(AHR)\n\n             ! TCOSZ is the sum of SUNTMP at location (I,J)\n             ! Do not include negative values of SUNTMP\n             TCOSZ(I,J) = TCOSZ(I,J) + MAX( SUNTMP(I,J), 0e+0_fp )\n\n             ! COSZM is the peak value of SUMTMP during a day at (I,J)\n             ! (rjp, bmy, 3/30/04)\n             COSZM(I,J) = MAX( COSZM(I,J), SUNTMP(I,J) )\n\n             ! TTDAY is the total daylight time at location (I,J)\n             IF ( SUNTMP(I,J) > 0e+0_fp ) THEN\n                TTDAY(I,J) = TTDAY(I,J) + DBLE( GET_TS_CHEM() )\n             ENDIF\n          ENDDO\n          ENDDO\n\n          !### Debug\n          !PRINT*, '### IN OHNO3TIME'\n          !PRINT*, '### N       : ', N\n          !PRINT*, '### NDYSTEP : ', NDYSTEP\n          !PRINT*, '### NT      : ', NT\n          !PRINT*, '### JDAY    : ', JDAY\n          !PRINT*, '### RLAT    : ', RLAT\n          !PRINT*, '### XMID    : ', XMID\n          !PRINT*, '### SUNTMP  : ', SUNTMP\n          !PRINT*, '### TCOSZ   : ', MINVAL( TCOSZ ), MAXVAL( TCOSZ )\n          !PRINT*, '### TTDAY   : ', MINVAL( TCOSZ ), MAXVAL( TCOSZ )\n\n          ! Increment elapsed time [sec]\n          NT = NT + GET_TS_CHEM()\n       ENDDO\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE OHNO3TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:getalbdrr\n!\n! !DESCRIPTION: Function GETALBDDR interpolates or extrapolates to get albedo\n!  at RRTMG wavelength from MODIS 7 bands albedo (F. YU, 08/2012)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine GETALBDRR(II,JJ,MALB,State_Met)\n!\n! !USES:\n!\n    USE State_Met_Mod, ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !REMARKS:\n! RRTMG WL(1-14): 3.46,2.79,2.33,2.05,1.78,1.46,1.27,\n!                 1.01,0.70,0.53,0.39,0.30,0.23,8.02\n!\n! MODIS WL (1-7): 0.645, 0.859, 0.469, 0.550, 1.24, 1.64, 2.13\n!\n! !REVISION HISTORY:\n!  Aug 2012 - F. Yu - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER :: KWL=7         !! mxy MODIS spectral bands\n    INTEGER, INTENT(IN)    :: II,JJ\n    REAL :: MALB(II,JJ,KWL)\n\n    INTEGER :: I,J,IWL\n\n    DO IWL=1,NBS\n       ALBDRR(:,:,IWL) = State_Met%ALBD(:,:)\n    ENDDO\n\n    DO I=1,II\n       DO J=1,JJ\n          ! no extrapolation for now, should not have much effect\n          IF(MALB(I,J,1).GT.0.0.and.MALB(I,J,2).GT.0.0) THEN\n             ALBDRR(I,J,9)=MALB(I,J,1)+(MALB(I,J,2)-MALB(I,J,1))*0.055/0.214\n          ENDIF\n\n          IF(MALB(I,J,2).GT.0.0.and.MALB(I,J,5).GT.0.0) THEN\n             ALBDRR(I,J,8)=MALB(I,J,2)+(MALB(I,J,5)-MALB(I,J,2))*0.142/0.381\n          ENDIF\n\n          IF(MALB(I,J,3).GT.0.) THEN\n             ALBDRR(I,J,11) = MALB(I,J,3)\n             ALBDRR(I,J,12) = MALB(I,J,3)\n             ALBDRR(I,J,13) = MALB(I,J,3)\n          ENDIF\n          IF(MALB(I,J,4).GT.0.) ALBDRR(I,J,10)=MALB(I,J,4)\n\n          IF(MALB(I,J,5).GT.0.) ALBDRR(I,J,7)=MALB(I,J,5)\n\n          IF(MALB(I,J,5).GT.0.0.and.MALB(I,J,6).GT.0.0) THEN\n             ALBDRR(I,J,6)=MALB(I,J,5)+(MALB(I,J,6)-MALB(I,J,5))*0.22/0.4\n          ENDIF\n\n          IF(MALB(I,J,6).GT.0.0.and.MALB(I,J,7).GT.0.0) THEN\n             ALBDRR(I,J,5)=MALB(I,J,6)+(MALB(I,J,7)-MALB(I,J,6))*0.14/0.49\n             ALBDRR(I,J,4)=MALB(I,J,6)+(MALB(I,J,7)-MALB(I,J,6))*0.41/0.49\n          ENDIF\n          IF(MALB(I,J,7).GT.0.) THEN\n             ALBDRR(I,J,1) = MALB(I,J,7)\n             ALBDRR(I,J,2) = MALB(I,J,7)\n             ALBDRR(I,J,3) = MALB(I,J,7)\n             ALBDRR(I,J,14) = MALB(I,J,7)\n          ENDIF\n          DO IWL=1,NBS\n             IF(ALBDRR(I,J,IWL).LT.0.or.ALBDRR(I,J,IWL).GT.1.0) THEN\n                WRITE(6,*)\"STOP AT GETALBDRR: Need check\"\n                STOP\n             ENDIF\n          ENDDO\n          !IF(MOD(I,5).EQ.1.and.MOD(J,5).EQ.1) THEN\n          ! WRITE(1004,99) I,J,(ALBDRR(I,J,IWL),IWL=1,NBS)\n          !ENDIF\n          !99 FORMAT(I4,I4,30(F11.4))\n\n       ENDDO\n    ENDDO\n    !flush(1004)\n\n  end subroutine GETALBDRR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_apm3d\n!\n! !DESCRIPTION: Subroutine INIT_APM3D allocates and zeroes module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_APM3D( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,       ONLY : OptInput\n    USE State_Grid_Mod,      ONLY : GrdState\n    USE APM_Init_Mod,        ONLY : NSO4, NSEA, NDSTB\n    USE Module_Mosaic_Therm, ONLY : Load_Mosaic_Parameters\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt    ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid   ! Grid State objectg\n!\n! ! OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Aug 2008 - F. Yu       - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: NX, NY, NZ\n\n    !=================================================================\n    ! INIT_AEROSOL begins here!\n    !=================================================================\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n    NZ = State_Grid%NZ\n\n    ALLOCATE( T3DAPM(NX,NY,20,24,6), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%T3DAPM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    T3DAPM = 0e0\n\n    ALLOCATE( RH3DAPM(NX,NY,20,24,6), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%RH3DAPM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    RH3DAPM = 0e0\n\n    ALLOCATE( PBLH2DAPM(NX,NY,24,6), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%PBLH2DAPM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PBLH2DAPM = 0e0\n\n    ALLOCATE( EMITNH3(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%EMITNH3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EMITNH3 = 0d0\n\n    ALLOCATE( EMITSO2(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%EMITSO2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EMITSO2 = 0d0\n\n    ALLOCATE( DRYDEP(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%DRYDEP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    DRYDEP = 0d0\n\n    ALLOCATE( WETDEP(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%WETDEP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    WETDEP = 0d0\n\n    ALLOCATE( CONDEP(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%CONDEP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    CONDEP = 0d0\n\n    ALLOCATE( UPTAKE(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%UPTAKE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    UPTAKE = 0d0\n\n    ALLOCATE( OXIDAT(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%OXIDAT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    OXIDAT = 0d0\n\n    ALLOCATE( FCLOUD(NX,NY,NZ,NSO4+4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%FCLOUD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    FCLOUD = 0d0\n\n    ALLOCATE( AERAREA(NX,NY,NZ,NSO4+NSEA+NDSTB+4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AERAREA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AERAREA = 0d0\n\n    ALLOCATE( AERDRYR(NX,NY,NZ,NSO4+NSEA+NDSTB+4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AERDRYR', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AERDRYR = 0d0\n\n    ALLOCATE( GAMMAPM(NX,NY,NZ,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%GAMMAPM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    GAMMAPM = 0d0\n\n    ALLOCATE( XN4D(NX,NY,NZ,NSO4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%XN4D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    XN4D = 0d0\n\n    ALLOCATE( XQ3D(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%XQ3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    XQ3D = 0d0\n\n    ALLOCATE( RCLDL3D(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%RCLDL3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    RCLDL3D = 0d0\n\n    ALLOCATE( CDN3D(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%CDN3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    CDN3D = 0d0\n\n    ALLOCATE( RCLDI3D(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%RCLDI3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    RCLDI3D = 0d0\n\n    ALLOCATE( RCLDI2D(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%RCLDL2D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    RCLDI2D = 0d0\n\n    ALLOCATE( IN3D(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%CDN3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    IN3D = 0d0\n\n    ALLOCATE( MASSISRP(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%MASSISRP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    MASSISRP = 0d0\n\n    ALLOCATE( MASSMESA(NX,NY,NZ,4), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%MASSMESA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    MASSMESA = 0d0\n\n    ALLOCATE( GFTOT3D(NX,NY,NZ,3), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%GFTOT3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    GFTOT3D = 1d0\n\n    ALLOCATE( DENWET3D(NX,NY,NZ,2), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%DENWET3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    DENWET3D = 2d0\n\n    ALLOCATE( MWSIZE3D(NX,NY,NZ,3), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%MWSIZE3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    MWSIZE3D = 1.D-6\n\n    ALLOCATE( SO2toSO4( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%SO2toSO4', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SO2toSO4 = 0d0\n\n    ALLOCATE( NCOAG3D(NX,NY,NZ,2), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%NCOAG3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    NCOAG3D = 0d0\n\n    ALLOCATE( IACT1(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%IACT1', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    IACT1 = 15\n\n    ALLOCATE( IACT2(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%IACT2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    IACT2 = 15\n\n    ALLOCATE( IACT3(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%IACT3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    IACT3 = 15\n\n    ALLOCATE( PSO4GAS( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%PSO4GAS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4GAS = 0.d0\n\n    ALLOCATE( XO3( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%XO3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    XO3 = 0.d0\n\n    ALLOCATE( PLVSOG( NX, NY, NZ, 5 ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%PLVSOG', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PLVSOG = 0d0\n\n    ALLOCATE( BCLIFE( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%BCLIFE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PLVSOG = 0d0\n\n    ALLOCATE( OCLIFE( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%OCLIFE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PLVSOG = 0d0\n\n    ALLOCATE( IFOUTIJ( NX, NY ) )\n    CALL GC_CheckVar( 'apm_driv_mod.F%IFOUTIJ', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    IFOUTIJ = 0\n\n    ALLOCATE( SITEID( NX, NY) )\n    CALL GC_CheckVar( 'apm_driv_mod.F%SITEID', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SITEID = 0\n\n    !Yu+ seasalt SST correction 10/15/2011\n    ALLOCATE( FSST( NX, NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%FSST', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    FSST = 1.d0\n\n    !Yu+ 6/1/11\n    ALLOCATE( SPGF( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%SPGF', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SPGF = 1.d0\n\n    ALLOCATE( TAONH3( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%TAONH3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TAONH3 = 1.d0\n\n    ALLOCATE( YCOD3D( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YCOD3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YCOD3D = 0.d0\n\n    ALLOCATE( TCOD3D( NX, NY, NZ, 9 ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%TCOD3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TCOD3D = 0.d0\n    TCOD3D(:,:,:,9) = 1.d-3\n\n    ALLOCATE( YHTRC3D( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YHTRC3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YHTRC3D = 0.d0\n\n    ALLOCATE( YHTR3D( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YHTR3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YHTR3D = 0.d0\n\n    ALLOCATE( YHTRC03D( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YHTRC03D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YHTRC03D = 0.d0\n\n    ALLOCATE( YHTR03D( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YHTR03D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YHTR03D = 0.d0\n\n    ALLOCATE( ZBEXT3D(NX,NY,NZ,MWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZBEXT3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZBEXT3D = 0.d0\n\n    ALLOCATE( ZW3D(NX,NY,NZ,MWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZW3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZW3D= 0.d0\n\n    ALLOCATE( ZG3D(NX,NY,NZ,MWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZG3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZG3D= 1.d0\n\n    ALLOCATE( YBEXT3D(NX,NY,NZ,NTYP,MWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YBEXT3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YBEXT3D= 0.d0\n\n    ALLOCATE( XBEXT1k3D(NX,NY,NZ,12), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%XBEXT1K3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    XBEXT1k3D= 0.d0\n\n    ALLOCATE( YW3D(NX,NY,NZ,NTYP,MWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YW3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YW3D= 0.d0\n\n    ALLOCATE( YG3D(NX,NY,NZ,NTYP,MWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YG3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YG3D= 1.d0\n\n    ALLOCATE( ZBABS3D(NX,NY,NZ,NWL), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZBABS3D', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZBABS3D= 0.d0\n\n    ALLOCATE( YUV(NX,NY,NZ,9), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%YUV', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    YUV= 0.d0\n\n    ! Array denoting where LT is between HR1 and HR2\n    ALLOCATE( GOOD( NX ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%GOOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    GOOD = 0\n\n    ALLOCATE( CODOUT(NX,NY,NZ,10), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%CODOUT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    CODOUT= 0.d0\n\n    ALLOCATE( CODOUTNUM(NX,NY,NZ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%CODOUTNUM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    CODOUTNUM= 0.d0\n\n    ALLOCATE( MODISOUT(NX,NY,6), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%MODISOUT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    MODISOUT= 0.d0\n\n    ALLOCATE( TCOSZ( NX, NY ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%TCOSZ', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TCOSZ = 0e+0_fp\n\n    ALLOCATE( TTDAY( NX, NY ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%TTDAY', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TTDAY = 0e+0_fp\n\n    ALLOCATE( COSZM( NX, NY ), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%COSZM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    COSZM = 0e+0_fp\n\n    ALLOCATE( ALBDRR(NX,NY,NBS), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ALBDRR', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ALBDRR = 0.0D0\n\n    ALLOCATE( ZTCST(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTCST', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTCST = 0.0D0\n\n    ALLOCATE( ZTCSB(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTCSB', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTCSB = 0.0D0\n\n    ALLOCATE( ZTFST(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTFST', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTFST = 0.0D0\n\n    !ALLOCATE( YG3D, STAT=RC )\n    !CALL GC_CheckVar( 'apm_driv_mod.F%YG3D', 0, RC )\n    !IF ( RC /= GC_SUCCESS ) RETURN\n    !YG3D = 0.0D0\n\n    ALLOCATE( ZTFSA(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTFSA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTFSA = 0.0D0\n\n    ALLOCATE( ZTCLT(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTCLT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTCLT = 0.0D0\n\n    ALLOCATE( ZTCLB(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTCLB', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTCLB = 0.0D0\n\n    ALLOCATE( ZTFUL(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ALBDRR = 0.0D0\n\n    ALLOCATE( ZTFDL(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ALBDRR = 0.0D0\n\n    ALLOCATE( ZTFLA(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTFLA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTFLA = 0.0D0\n\n    ALLOCATE( ZTAOD(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZTAOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZTAOD = 0.0D0\n\n    ALLOCATE( ZCLDF(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCLDF', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCLDF = 0.0D0\n\n    ALLOCATE( ZALB(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZALB', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZALB = 0.0D0\n\n    ALLOCATE( ZMALB(NX,NY,NBS), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZMALB', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZMALB = 0.0D0\n\n    ALLOCATE( ZCST(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCST', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCST = 0.0D0\n\n    ALLOCATE( ZCSB(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCSB', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCSB = 0.0D0\n\n    ALLOCATE( ZFST(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZFST', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZFST = 0.0D0\n\n    ALLOCATE( ZCLD(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCLD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCLD = 0.0D0\n\n    ALLOCATE( ZCLD0(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCLD0', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCLD0 = 0.0D0\n\n    ALLOCATE( ZFSB(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZFSB', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZFSB = 0.0D0\n\n    ALLOCATE( ZFSA(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZFSA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZFSA = 0.0D0\n\n    !ALLOCATE( ZCLT(NX,NY), STAT=RC )\n    !CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    !IF ( RC /= GC_SUCCESS ) RETURN\n    !ALBDRR = 0.0D0\n\n    !ALLOCATE( ZCLB(NX,NY), STAT=RC )\n    !CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    !IF ( RC /= GC_SUCCESS ) RETURN\n    !ALBDRR = 0.0D0\n\n    !ALLOCATE( ZFUL(NX,NY), STAT=RC )\n    !CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    !IF ( RC /= GC_SUCCESS ) RETURN\n    !ALBDRR = 0.0D0\n\n    !ALLOCATE( ZFDL(NX,NY), STAT=RC )\n    !CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    !IF ( RC /= GC_SUCCESS ) RETURN\n    !ALBDRR = 0.0D0\n\n    !ALLOCATE( ZFLA(NX,NY), STAT=RC )\n    !CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    !IF ( RC /= GC_SUCCESS ) RETURN\n    !ALBDRR = 0.0D0\n\n    ALLOCATE( ZAOD(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAOD = 0.0D0\n\n    ALLOCATE( ZCOD(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCOD = 0.0D0\n\n    ALLOCATE( ZCODGC(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZCODGC', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZCODGC = 0.0D0\n\n    ALLOCATE( ZAODOUT1(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZADOUT1', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAODOUT1 = 0.0D0\n\n    ALLOCATE( ZAODOUT3(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAODOUT3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAODOUT3 = 0.0D0\n\n    ALLOCATE( ZAOD25(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD25', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAOD25 = 0.0D0\n\n    ALLOCATE( ZAOD50(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD50', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAOD50 = 0.0D0\n\n    ALLOCATE( ZAOD75(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD75', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAOD75 = 0.0D0\n\n    ALLOCATE( NAOD25(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%NAOD25', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    NAOD25 = 0.0D0\n\n    ALLOCATE( NAOD50(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%NAOD50', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    NAOD50 = 0.0D0\n\n    ALLOCATE( NAOD75(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%NAOD75', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    NAOD75 = 0.0D0\n\n    ALLOCATE( ZVIS(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZVIS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZVIS = 0.0D0\n\n    ALLOCATE( THAZ(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%THAZ', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    THAZ = 0.0D0\n\n    ALLOCATE( TFOG(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%TFOG', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TFOG = 0.0D0\n\n    ALLOCATE( ZAAOD(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAAOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAAOD = 0.0D0\n\n    ALLOCATE( ZAAODOUT1(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAAODOUT1', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAAODOUT1 = 0.0D0\n\n    ALLOCATE( ZAAODOUT3(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZAAODOUT3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZAAODOUT3 = 0.0D0\n\n    ALLOCATE( ZABS(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZABS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZABS = 0.0D0\n\n    ALLOCATE( ZWCL(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZWCL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZWCL = 0.0D0\n\n    ALLOCATE( ZWCI(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%ZWCI', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZWCI = 0.0D0\n\n    ALLOCATE( AOD(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AOD = 0.0D0\n\n    ALLOCATE( AAOD(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AAOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AAOD = 0.0D0\n\n    ALLOCATE( AODOUT1(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AODOUT1', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AODOUT1 = 0.0D0\n\n    ALLOCATE( AAODOUT1(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AAODOUT1', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AAODOUT1 = 0.0D0\n\n    ALLOCATE( AODOUT3(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ALBDRR = 0.0D0\n\n    ALLOCATE( AAODOUT3(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%AAODOUT3', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AAODOUT3 = 0.0D0\n\n    ALLOCATE( CODGC(NX,NY), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%CODGC', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    CODGC = 0.0D0\n\n    ALLOCATE( TAOD(NX,NY,NTYP), STAT=RC )\n    CALL GC_CheckVar( 'apm_driv_mod.F%TAOD', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TAOD = 0.0D0\n\n    ! sets up indices and other stuff once per simulation\n    CALL load_mosaic_parameters()\n\n  END SUBROUTINE INIT_APM3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_apm3d\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_APM3D deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_APM3D( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt    ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Aug 2008 - F. Yu       - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! CLEANUP_APM3D begins here!\n    !=================================================================\n    IF ( ALLOCATED( T3DAPM ) ) THEN\n       DEALLOCATE( T3DAPM, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%T3DAPM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( RH3DAPM ) ) THEN\n       DEALLOCATE( RH3DAPM, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%RH3DAPM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( PBLH2DAPM ) ) THEN\n       DEALLOCATE( PBLH2DAPM, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%PBLH2DAPM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( EMITNH3 ) ) THEN\n       DEALLOCATE( EMITNH3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%EMITNH3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( EMITSO2 ) ) THEN\n       DEALLOCATE( EMITSO2, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%EMITSO2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( DRYDEP ) ) THEN\n       DEALLOCATE( DRYDEP, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%DRYDEP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( WETDEP ) ) THEN\n       DEALLOCATE( WETDEP, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%WETDEP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( CONDEP ) ) THEN\n       DEALLOCATE( CONDEP, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%CONDEP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( UPTAKE ) ) THEN\n       DEALLOCATE( UPTAKE, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%UPTAKE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( OXIDAT ) )  THEN\n       DEALLOCATE( OXIDAT, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%OXIDAT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( FCLOUD ) ) THEN\n       DEALLOCATE( FCLOUD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%FCLOUD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AERAREA ) ) THEN\n       DEALLOCATE( AERAREA, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AERAREA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AERDRYR) ) THEN\n       DEALLOCATE( AERDRYR, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AERDRYR', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( GAMMAPM ) ) THEN\n       DEALLOCATE( GAMMAPM, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%GAMMAPM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( XN4D ) ) THEN\n       DEALLOCATE( XN4D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%XN4D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( XQ3D ) ) THEN\n       DEALLOCATE( XQ3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%XQ3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( RCLDL3D) ) THEN\n       DEALLOCATE( RCLDL3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%RCLDL3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( CDN3D) ) THEN\n       DEALLOCATE( CDN3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%CDN3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( RCLDI3D ) ) THEN\n       DEALLOCATE( RCLDI3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%RCLDI3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( RCLDI2D ) ) THEN\n       DEALLOCATE( RCLDI2D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%RCLDL2D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( IN3D ) ) THEN\n       DEALLOCATE( IN3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%CDN3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( MASSISRP ) ) THEN\n       DEALLOCATE( MASSISRP, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%MASSISRP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( MASSMESA ) ) THEN\n       DEALLOCATE( MASSMESA, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%MASSMESA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( GFTOT3D ) ) THEN\n       DEALLOCATE( GFTOT3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%GFTOT3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( DENWET3D ) ) THEN\n       DEALLOCATE( DENWET3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%DENWET3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( MWSIZE3D ) ) THEN\n       DEALLOCATE( MWSIZE3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%MWSIZE3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( SO2toSO4 ) ) THEN\n       DEALLOCATE( SO2toSO4, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%SO2toSO4', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( NCOAG3D ) ) THEN\n       DEALLOCATE( NCOAG3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%NCOAG3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( IACT1 ) ) THEN\n       DEALLOCATE( IACT1, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%IACT1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( IACT2 ) ) THEN\n       DEALLOCATE( IACT2, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%IACT2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( IACT3 ) ) THEN\n       DEALLOCATE( IACT3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%IACT3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( PSO4GAS) ) THEN\n       DEALLOCATE( PSO4GAS, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%PSO4GAS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( XO3 ) ) THEN\n       DEALLOCATE( XO3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%XO3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( PLVSOG) ) THEN\n       DEALLOCATE( PLVSOG, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%PLVSOG', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( BCLIFE ) ) THEN\n       DEALLOCATE( BCLIFE, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%BCLIFE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( OCLIFE ) ) THEN\n       DEALLOCATE( OCLIFE, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%OCLIFE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( IFOUTIJ ) ) THEN\n       DEALLOCATE( IFOUTIJ, STAT=Rc )\n       CALL GC_CheckVar( 'apm_driv_mod.F%IFOUTIJ', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( SITEID ) ) THEN\n       DEALLOCATE( SITEID, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%SITEID', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( FSST ) ) THEN\n       DEALLOCATE( FSST, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%FSST', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( SPGF ) ) THEN\n       DEALLOCATE( SPGF, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%SPGF', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TAONH3 ) ) THEN\n       DEALLOCATE( TAONH3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%TAONH3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YCOD3D ) ) THEN\n       DEALLOCATE( YCOD3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YCOD3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TCOD3D ) ) THEN\n       DEALLOCATE( TCOD3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%TCOD3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YHTRC3D ) ) THEN\n       DEALLOCATE( YHTRC3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YHTRC3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YHTR3D ) ) THEN\n       DEALLOCATE( YHTR3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YHTR3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YHTRC03D ) ) THEN\n       DEALLOCATE( YHTRC03D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YHTRC03D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YHTR03D ) ) THEN\n       DEALLOCATE( YHTR03D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YHTR03D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZBEXT3D ) ) THEN\n       DEALLOCATE( ZBEXT3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZBEXT3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZW3D ) ) THEN\n       DEALLOCATE( ZW3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZW3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZG3D ) ) THEN\n       DEALLOCATE( ZG3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZG3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YBEXT3D ) ) THEN\n       DEALLOCATE( YBEXT3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YBEXT3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( XBEXT1k3D ) ) THEN\n       DEALLOCATE( XBEXT1k3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%XBEXT1K3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YW3D ) ) THEN\n       DEALLOCATE( YW3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YW3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YG3D ) ) THEN\n       DEALLOCATE( YG3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YG3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZBABS3D ) ) THEN\n       DEALLOCATE( ZBABS3D, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZBABS3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( YUV ) ) THEN\n       DEALLOCATE( YUV, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YUV', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( GOOD ) ) THEN\n       DEALLOCATE( GOOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%GOOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( CODOUT ) )  THEN\n       DEALLOCATE( CODOUT, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%CODOUT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( CODOUTNUM ) ) THEN\n       DEALLOCATE( CODOUTNUM, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%CODOUTNUM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( MODISOUT) ) THEN\n       DEALLOCATE( MODISOUT, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%MODISOUT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TCOSZ) ) THEN\n       DEALLOCATE( TCOSZ, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%TCOSZ', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TTDAY) ) THEN\n       DEALLOCATE( TTDAY, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%TTDAY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( COSZM) ) THEN\n       DEALLOCATE( COSZM, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%COSZM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ALBDRR ) ) THEN\n       DEALLOCATE( ALBDRR, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ALBDRR', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTCST ) ) THEN\n       DEALLOCATE( ZTCST, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTCST', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTCSB ) ) THEN\n       DEALLOCATE( ZTCSB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTCSB', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTFST ) ) THEN\n       DEALLOCATE( ZTFST, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTFST', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTFSB ) ) THEN\n       DEALLOCATE( ZTFSB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%YG3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTFSA ) ) THEN\n       DEALLOCATE( ZTFSA, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTFSA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTCLT ) ) THEN\n       DEALLOCATE( ZTCLT, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTCLT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTCLB ) ) THEN\n       DEALLOCATE( ZTCLB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTCLB', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTFUL ) ) THEN\n       DEALLOCATE( ZTFUL, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTFUL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTFDL  ) ) THEN\n       DEALLOCATE( ZTFDL, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTFDL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTFLA ) ) THEN\n       DEALLOCATE( ZTFLA, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTFLA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZTAOD ) ) THEN\n       DEALLOCATE( ZTAOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZTAOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCLDF ) ) THEN\n       DEALLOCATE( ZCLDF, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCLDF', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZALB ) ) THEN\n       DEALLOCATE( ZALB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZALB', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZMALB ) ) THEN\n       DEALLOCATE( ZMALB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZMALB', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCST ) ) THEN\n       DEALLOCATE( ZCST, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCST', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCSB ) ) THEN\n       DEALLOCATE( ZCSB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCSB', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZFST ) ) THEN\n       DEALLOCATE( ZFST, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZFST', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCLD ) ) THEN\n       DEALLOCATE( ZCLD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCLD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCLD0) ) THEN\n       DEALLOCATE( ZCLD0, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCLD0', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZFSB ) ) THEN\n       DEALLOCATE( ZFSB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZFSB', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZFSA ) ) THEN\n       DEALLOCATE( ZFSA, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZFSA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCLT ) ) THEN\n       DEALLOCATE( ZCLT, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCLB) ) THEN\n       DEALLOCATE( ZCLB, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZFUL ) ) THEN\n       DEALLOCATE( ZFUL, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZFDL ) ) THEN\n       DEALLOCATE( ZFDL, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZFLA ) ) THEN\n       DEALLOCATE( ZFLA, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAOD) ) THEN\n       DEALLOCATE( ZAOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCOD ) ) THEN\n       DEALLOCATE( ZCOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZCODGC ) ) THEN\n       DEALLOCATE( ZCODGC, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZCODGC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAODOUT1 ) ) THEN\n       DEALLOCATE( ZAODOUT1, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZADOUT1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAODOUT3 ) ) THEN\n       DEALLOCATE( ZAODOUT3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAODOUT3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAOD25 ) ) THEN\n       DEALLOCATE( ZAOD25, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD25', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAOD50 ) ) THEN\n       DEALLOCATE( ZAOD50, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD50', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAOD75 ) ) THEN\n       DEALLOCATE( ZAOD75, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAOD75', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( NAOD25 ) ) THEN\n       DEALLOCATE( NAOD25, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%NAOD25', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( NAOD50 ) ) THEN\n       DEALLOCATE( NAOD50, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%NAOD50', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( NAOD75 ) ) THEN\n       DEALLOCATE( NAOD75, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%NAOD75', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZVIS) ) THEN\n       DEALLOCATE( ZVIS, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZVIS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( THAZ ) ) THEN\n       DEALLOCATE( THAZ, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%THAZ', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TFOG ) ) THEN\n       DEALLOCATE( TFOG, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%TFOG', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAAOD ) ) THEN\n       DEALLOCATE( ZAAOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAAOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAAODOUT1 ) ) THEN\n       DEALLOCATE( ZAAODOUT1, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAAODOUT1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZAAODOUT3 ) ) THEN\n       DEALLOCATE( ZAAODOUT3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZAAODOUT3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZABS ) ) THEN\n       DEALLOCATE( ZABS, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZABS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZWCL ) ) THEN\n       DEALLOCATE( ZWCL, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZWCL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZWCI ) ) THEN\n       DEALLOCATE( ZWCI, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%ZWCI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AOD ) ) THEN\n       DEALLOCATE( AOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AAOD ) ) THEN\n       DEALLOCATE( AAOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AAOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AODOUT1 ) ) THEN\n       DEALLOCATE( AODOUT1, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AODOUT1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AAODOUT1 ) ) THEN\n       DEALLOCATE( AAODOUT1, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AAODOUT1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AODOUT3 ) ) THEN\n       DEALLOCATE( AODOUT3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( AAODOUT3 ) ) THEN\n       DEALLOCATE( AAODOUT3, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%AAODOUT3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( CODGC ) ) THEN\n       DEALLOCATE( CODGC, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%CODGC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TAOD) ) THEN\n       DEALLOCATE( TAOD, STAT=RC )\n       CALL GC_CheckVar( 'apm_driv_mod.F%TAOD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE CLEANUP_APM3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aeronum\n!\n! !DESCRIPTION: Subroutine SIZE\\_DIST\\_PARAM\\_LIQ gets cloud droplet size\n!  distribution parameters\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine size_dist_param_liq(qcic, ncic, cdnl, rho, nadjflag, pgam, lamc)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    real*8, intent(in)    :: qcic\n    real*8, intent(inout) :: ncic\n    real*8, intent(in)    :: cdnl\n    real*8, intent(in)    :: rho\n    logical, intent(in)   :: nadjflag ! Whether to adjust number concentration to fall\n                                      ! within certain bounds\n\n    real*8, intent(out)   :: pgam\n    real*8, intent(out)   :: lamc\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real, parameter     :: pi=3.1415926, rhow=1000.\n    real*8 :: dumgam1\n    real*8 :: dumgam2\n    real*8 :: lammin\n    real*8 :: lammax\n\n    if (qcic > 1.e-18) then\n\n       if (nadjflag) then\n          ! add upper limit to in-cloud number concentration to prevent numerical error\n          ncic=min(ncic,qcic*1.e20)\n          ! add lower limit to in-cloud number concentration\n          ncic=max(ncic,cdnl/rho) ! sghan minimum in #/cm\n       end if\n\n       ! get pgam from fit to observations of martin et al. 1994\n       pgam=0.0005714*(ncic/1.e6*rho)+0.2714\n       pgam=1./(pgam**2)-1.\n       pgam=max(pgam,2.d0)\n       pgam=min(pgam,50.d0)\n\n       ! calculate lamc\n       dumgam1 = gamma(pgam+1.)\n       dumgam2 = gamma(pgam+4.)\n\n       lamc = (pi/6.*rhow*ncic*dumgam2/ &\n              (qcic*dumgam1))**(1./3.)\n\n       ! lammin, 50 micron diameter max mean size\n\n       lammin = (pgam+1.)/50.e-6\n       lammax = (pgam+1.)/2.e-6\n\n       if (lamc < lammin) then\n          lamc = lammin\n\n          if (nadjflag) then\n             ncic = 6. * lamc**3 * qcic * dumgam1/ &\n                    (pi * rhow * dumgam2)\n          end if\n       else if (lamc > lammax) then\n          lamc = lammax\n\n          if (nadjflag) then\n             ncic = 6. * lamc**3 * qcic * dumgam1/ &\n                    (pi * rhow * dumgam2)\n          end if\n       end if\n\n    else\n       ! pgam not calculated in this case, so set it to a value likely to cause an error\n       ! if it is accidentally used\n       ! (gamma function undefined for negative integers)\n       pgam = -100.\n       lamc = 0.\n    end if\n\n  end subroutine size_dist_param_liq\n!EOC\n! ----------------------------------------------------------------------------\n! function GAMMA\n! ----------------------------------------------------------------------------\n!BOC\n  function gamma(x)\n    implicit none\n!\n! Purpose:\n!   Returns the gamma function\n!\n! Input:\n!   [x]   value to compute gamma function of\n!\n! Returns:\n!   gamma(x)\n!\n! Coded:\n!   02/02/06  John Haynes (haynes@atmos.colostate.edu)\n!   (original code of unknown origin)\n\n! ----- INPUTS -----\n    real*8, intent(in) :: x\n\n! ----- OUTPUTS -----\n    real*8 :: gamma\n\n! ----- INTERNAL -----\n    real*8 :: pi,ga,z,r,gr\n    real*8 :: g(26)\n    integer :: k,m1,m\n\n    pi = acos(-1.)\n    if (x ==int(x)) then\n       if (x > 0.0) then\n          ga=1.0\n          m1=x-1\n          do k=2,m1\n             ga=ga*k\n          enddo\n       else\n          ga=1.0+300\n       endif\n    else\n       if (abs(x) > 1.0) then\n          z=abs(x)\n          m=int(z)\n          r=1.0\n          do k=1,m\n             r=r*(z-k)\n          enddo\n          z=z-m\n       else\n          z=x\n       endif\n       data g/1.0,0.5772156649015329, &\n              -0.6558780715202538, -0.420026350340952d-1, &\n              0.1665386113822915,-.421977345555443d-1, &\n              -.96219715278770d-2, .72189432466630d-2, &\n              -.11651675918591d-2, -.2152416741149d-3, &\n              .1280502823882d-3, -.201348547807d-4, &\n              -.12504934821d-5, .11330272320d-5, &\n              -.2056338417d-6, .61160950d-8, &\n              .50020075d-8, -.11812746d-8, &\n              .1043427d-9, .77823d-11, &\n              -.36968d-11, .51d-12, &\n              -.206d-13, -.54d-14, .14d-14, .1d-15/\n       gr=g(26)\n       do k=25,1,-1\n          gr=gr*z+g(k)\n       enddo\n       ga=1.0/(gr*z)\n       if (abs(x) > 1.0) then\n          ga=ga*r\n          if (x < 0.0) ga=-pi/(x*ga*sin(pi*x))\n       endif\n    endif\n    gamma = ga\n    return\n\n  end function gamma\n!EOC\nEND MODULE APM_DRIV_MOD\n#endif\n"
  },
  {
    "path": "GeosCore/calc_met_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: calc_met_mod.F90\n!\n! !DESCRIPTION: Module CALC\\_MET\\_MOD (formerly DAO\\_MOD) contains\n!  subroutines that compute, interpolate, or otherwise process met field data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE CALC_MET_MOD\n!\n! !USES:\n!\n  USE PhysConstants          ! Physical constants\n  USE PRECISION_MOD          ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: AVGPOLE\n  PUBLIC  :: AIRQNT\n  PUBLIC  :: GET_COSINE_SZA\n  PUBLIC  :: GET_OBK\n  PUBLIC  :: INTERP\n  PUBLIC  :: SET_DRY_SURFACE_PRESSURE\n  PUBLIC  :: Set_Clock_Tracer\n#if defined( ESMF_ ) || defined( EXTERNAL_GRID )\n  PUBLIC  :: GCHP_Cap_Tropopause_Prs\n#endif\n!\n! !REVISION HISTORY:\n!  26 Jun 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: avgpole\n!\n! !DESCRIPTION: Subroutine AVGPOLE computes average quantity near polar caps,\n!  defined by (J = 1, 2) and (J = State\\_Grid%NY-1, State\\_Grid%NY).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AVGPOLE( State_Grid, Z )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Quantity to be averaged over the pole (usually PS)\n    REAL(fp), INTENT(INOUT) :: Z(State_Grid%NX,State_Grid%NY)\n!\n! !REVISION HISTORY:\n!  30 Jan 1998 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I, J\n    REAL(fp)  :: TOTAL_Z1, TOTAL_Z2, TOTAL_Z3, TOTAL_Z4\n    REAL(fp)  :: TOTAL_A1, TOTAL_A2, TOTAL_A3, TOTAL_A4\n\n    !=================================================================\n    ! AVGPOLE begins here!\n    !=================================================================\n\n    IF ( State_Grid%NestedGrid ) THEN\n       ! Nested grids typically do not extend to poles. Add better check\n       ! here is users wish to define custom nested grids near the poles.\n       RETURN\n    ENDIF\n\n    TOTAL_Z1 = 0.\n    TOTAL_Z2 = 0.\n    TOTAL_Z3 = 0.\n    TOTAL_Z4 = 0.\n    TOTAL_A1 = 0.\n    TOTAL_A2 = 0.\n    TOTAL_A3 = 0.\n    TOTAL_A4 = 0.\n\n    DO I = 1, State_Grid%NX\n       TOTAL_Z1 = TOTAL_Z1 + State_Grid%Area_M2(I,1) * Z(I,1)\n\n       TOTAL_Z2 = TOTAL_Z2 + State_Grid%Area_M2(I,2) * Z(I,2)\n\n       TOTAL_Z3 = TOTAL_Z3 + State_Grid%Area_M2(I,State_Grid%NY-1) &\n                  * Z(I,State_Grid%NY-1)\n\n       TOTAL_Z4 = TOTAL_Z4 + State_Grid%Area_M2(I,State_Grid%NY) &\n                  * Z(I,State_Grid%NY)\n\n       TOTAL_A1 = TOTAL_A1 + State_Grid%Area_M2(I,1)\n       TOTAL_A2 = TOTAL_A2 + State_Grid%Area_M2(I,2)\n       TOTAL_A3 = TOTAL_A3 + State_Grid%Area_M2(I,State_Grid%NY-1)\n       TOTAL_A4 = TOTAL_A4 + State_Grid%Area_M2(I,State_Grid%NY)\n    ENDDO\n\n    DO I = 1, State_Grid%NX\n       Z(I,1) = (TOTAL_Z1 + TOTAL_Z2) / (TOTAL_A1 + TOTAL_A2)\n       Z(I,2) = Z(I,1)\n       Z(I,State_Grid%NY-1) = (TOTAL_Z3 + TOTAL_Z4) / (TOTAL_A3 + TOTAL_A4)\n       Z(I,State_Grid%NY  ) = Z(I,State_Grid%NY-1)\n    ENDDO\n\n  END SUBROUTINE AVGPOLE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: airqnt\n!\n! !DESCRIPTION: Subroutine AIRQNT sets several members of State\\_Met, the\n!  meteorology object of derived type MetState, and optionally updates\n!  the tracer concentrations to conserve tracer mass when air quantities\n!  change.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AIRQNT( Input_Opt, State_Chm, State_Grid, State_Met, &\n                     RC, Update_Mixing_Ratio )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE PhysConstants,  ONLY : AIRMW, AVO\n    USE Pressure_Mod\n    USE Time_Mod,       ONLY : Get_LocalTime\n    USE Time_Mod,       ONLY : Get_LocalTime_In_Sec\n    USE Time_Mod,       ONLY : Get_Ts_Dyn\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)           :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)           :: State_Grid ! Grid State object\n    LOGICAL,        INTENT(IN), OPTIONAL :: Update_Mixing_Ratio ! Default is yes\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT)        :: State_Met ! Meteorology State obj\n    TYPE(ChmState), INTENT(INOUT)        :: State_Chm ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)          :: RC        ! Success or failure?\n!\n! !REMARKS:\n!  Met fields updated by AIRQNT:\n!  ========================================================================\n!  (1)  PEDGE     (REAL(fp)) : Moist air pressure at grid box bottom      [hPa]\n!  (2)  PEDGE_DRY (REAL(fp)) : Dry air partial pressure at box bottom     [hPa]\n!  (3)  PMID      (REAL(fp)) : Moist air pressure at grid box centroid    [hPa]\n!  (4)  PMID_DRY  (REAL(fp)) : Dry air partial pressure at box centroid   [hPa]\n!                              (Note that PMID_DRY and PEDGE_DRY represent local partial pressure of dry air \n!                               (total pressure minus water vapor pressure), which is different\n!                               from the pressure that would occur in a dry hydrostatic atmosphere with the same\n!                               dry air mass distribution. The latter is needed for transport calculations\n!                               for which we have DELP_DRY. Despite similar names, DELP_DRY is fundamentally \n!                               different from PEDGE_DRY. cdholmes 10/29/2020)\n!  (7)  DELP      (REAL(fp)) : Moist air Delta-P extent of grid box       [hPa]\n!                              (DELP is proportional to grid box moist air mass)\n!       DELP_DRY  (REAL(fp)) : Dry air Delta-P                     \n!                              (DELP_DRY is treated as proportional to grid box dry air mass,\n!                               but it is computed from dry surface pressure and Hybrid A's and B's.\n!                               This is for consistency with the assumptions about the vertical coordinate\n!                               in transport (TPCORE_FVDAS and the pressure fixer) to conserve mass. \n!                               As a result, however, DELP_DRY is not consistent with the dry air mass \n!                               computed from moist air mass and specific humidity, nor is it consistent\n!                               with the differences between consecutive PEDGE_DRY values. cdholmes 10/29/2020)\n!  (8)  AIRDEN    (REAL(fp)) : Mean grid box dry air density            [kg/m^3]\n!                              (defined as total dry air mass/box vol, computed from DELP_DRY (see note above))\n!  (9)  MAIRDEN   (REAL(fp)) : Mean grid box moist air density          [kg/m^3]\n!                              (defined as total moist air mass/box vol)\n!  (10) AD        (REAL(fp)) : Total dry air mass in grid box             [kg]\n!  (11) ADMOIST   (REAL(fp)) : Total moist air mass in grid box           [kg]\n!  (12) BXHEIGHT  (REAL(fp)) : Vertical height of grid box                [m]\n!  (13) AIRVOL    (REAL(fp)) : Volume of grid box                         [m^3]\n!  (14) MOISTMW   (REAL(fp)) : Molecular weight of moist air in box     [g/mol]\n!\n! !REVISION HISTORY:\n!  30 Jan 1998 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL             :: t1,        t2\n    INTEGER             :: Dt_Sec\n    INTEGER             :: I,         J,          L\n    INTEGER             :: L_CG,      L_TP,       N\n    REAL(fp)            :: PEdge_Top, Esat \n    REAL(fp)            :: EsatA,     EsatB,      EsatC,     EsatD\n    REAL(fp)            :: SPHU_kgkg, AVGW_moist, H,         FRAC\n    REAL(fp)            :: Pb,        Pt,         XH2O,      ADmoist\n    LOGICAL             :: UpdtMR\n    REAL(fp)            :: FRLAND_NOSNOW_NOICE, FRWATER, FRICE, FRSNOW\n\n    ! Arrays\n    LOGICAL             :: IsLocNoon (State_Grid%NX,State_Grid%NY)\n    REAL(f8)            :: LocTime   (State_Grid%NX,State_Grid%NY)\n    INTEGER             :: LocTimeSec(State_Grid%NX,State_Grid%NY)\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ErrMsg, ThisLoc\n!\n! DEFINED PARAMETERS:\n!\n    ! Conversion factors\n    REAL(fp), PARAMETER :: TOFFSET = -2.7315e+2_fp   ! K   -> deg C\n    REAL(fp), PARAMETER :: PCONV   = 1.00e+2_fp      ! hPa -> Pa\n    REAL(fp), PARAMETER :: RHCONV  = 1.00e-2_fp      ! %   -> fraction\n    REAL(fp), PARAMETER :: MCONV   = 1.00e-3_fp      ! g   -> kg\n\n    ! Empirical parameters for water vapor saturation pressure\n    ! (Source: Nordquist, 1973. \"Numerical Approximiations of\n    !  Selected Meteorological Parameters Related to Cloud Physics\"\n    !  Text quality clarifications from Stipanuk, 1973. \"Algorithms\n    !  for Generating a Skew-T, Log P Diagram and Computing Selected\n    !  Meteorological Quantities\")\n    REAL(fp), PARAMETER :: ESATP1  =  2.3832241e+1_fp\n    REAL(fp), PARAMETER :: ESATP2  = -5.02808e+0_fp\n    REAL(fp), PARAMETER :: ESATP3  =  8.1328e-3_fp\n    REAL(fp), PARAMETER :: ESATP4  =  3.49149e+0_fp\n    REAL(fp), PARAMETER :: ESATP5  = -1.3028844e+3_fp\n    REAL(fp), PARAMETER :: ESATP6  = -1.3816e-7_fp\n    REAL(fp), PARAMETER :: ESATP7  =  1.1344e+1_fp\n    REAL(fp), PARAMETER :: ESATP8  = -3.03998e-2_fp\n    REAL(fp), PARAMETER :: ESATP9  = -2.949076e+3_fp\n\n    !=================================================================\n    ! AIRQNT begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at AIRQNT (in module GeosCore/dao_mod.F)'\n    Dt_Sec   = Get_Ts_Dyn()\n\n    ! Shadow variable for mixing ratio update. Default is false.\n    UpdtMR = .FALSE.\n    IF ( PRESENT(update_mixing_ratio) ) UpdtMR = update_mixing_ratio\n\n    ! Pre-compute local solar time = UTC + Lon/15\n    !$OMP PARALLEL DO                                                       &\n    !$OMP DEFAULT( SHARED                                                  )&\n    !$OMP PRIVATE( I, J, FRLAND_NOSNOW_NOICE, FRWATER, FRICE, FRSNOW       )&\n    !$OMP COLLAPSE( 2                                                      )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Local time only depends on longitude, but longitude is a\n       ! function of (I,J) for cubed-sphere grids.  Therefore, use\n       ! (I,J) in the call to GET_LOCALTIME.  Obtain the local time\n       ! both in hours and in seconds (bmy, 4/18/19)\n       LocTime   (I,J) = Get_LocalTime       ( I, J, 1, State_Grid )\n       LocTimeSec(I,J) = Get_LocalTime_In_Sec( I, J, 1, State_Grid )\n\n       ! Pick the boxes that are closest to local noon (12hr = 43200 s).\n       ! Use local time in seconds, which avoids roundoff issues.\n       IsLocNoon(I,J) = ( LocTimeSec(I,J)          <= 43200  .and. &\n                          LocTimeSec(I,J) + Dt_Sec >= 43200 )\n\n       ! Snow\n       FRSNOW = State_Met%FRSNOW(I,J)\n\n       ! Land without snow or ice. Note that import FRLAND is defined as land\n       ! without ice. Land with ice is in import FRLANDIC. To get land without\n       ! snow or ice we thus only subtract time-varying FRSNOW.\n       FRLAND_NOSNOW_NOICE = State_Met%FRLAND(I,J) - State_Met%FRSNOW(I,J)\n\n       ! Water without sea ice\n       FRWATER = State_Met%FRLAKE(I,J) + State_Met%FROCEAN(I,J) -            &\n                 State_Met%FRSEAICE(I,J)\n      \n       ! Land ice and sea ice\n       FRICE = State_Met%FRLANDICE(I,J) + State_Met%FRSEAICE(I,J)\n\n       ! Set IsLand, IsWater, IsIce, IsSnow based on max fractional area\n       State_Met%IsLand(I,J)  =                                              &\n            ( FRLAND_NOSNOW_NOICE > MAX( FRWATER, FRICE, FRSNOW ) )\n\n       State_Met%IsWater(I,J) =                                              &\n            ( FRWATER > MAX( FRLAND_NOSNOW_NOICE, FRICE, FRSNOW ) )\n\n       State_Met%IsIce(I,J)   =                                              &\n            ( FRICE > MAX( FRLAND_NOSNOW_NOICE, FRWATER, FRSNOW ) )\n\n       State_Met%IsSnow(I,J)  =                                              &\n            ( FRSNOW > MAX( FRLAND_NOSNOW_NOICE, FRWATER, FRICE ) )\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=============================================================\n    ! Update air quantities\n    !=============================================================\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,       J,         L,       Pedge_Top                   )&\n    !$OMP PRIVATE( EsatA,   EsatB,     EsatC,   EsatD                       )&\n    !$OMP PRIVATE( Esat,    SPHU_kgkg, XH2O,    ADmoist                     )&\n    !$OMP COLLAPSE( 3                                                       )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !=============================================================\n       ! Set wet air pressures [hPa]\n       ! (lower edge, delta, centroid, and spatially-weighted mean)\n       !=============================================================\n#ifdef MODEL_BCC\n       PEdge_Top=State_Met%PEDGE(I,J,L+1)\n#else\n       ! Pressure at bottom edge of grid box [hPa]\n       State_Met%PEDGE(I,J,L) = GET_PEDGE(I,J,L)\n\n       ! Pressure at top edge of grid box [hPa]\n       PEdge_Top = GET_PEDGE(I,J,L+1)\n#endif\n\n       ! Pressure at bottom edge of grid box [hPa](level State_Grid%NZ+1 only)\n       IF ( L == State_Grid%NZ ) THEN\n          State_Met%PEDGE(I,J,L+1) = PEdge_Top\n       ENDIF\n\n       ! Pressure difference between top & bottom edges [hPa]\n       State_Met%DELP(I,J,L) = State_Met%PEDGE(I,J,L) - PEdge_Top\n\n       ! Arithmetic average pressure in grid box [hPa] defined as\n       ! ( PEDGE(L) + PEDGE(L+1) ) / 2. This represents the grid box\n       ! mass centroid pressure. Use in the ideal gas law yields\n       ! a local air density at the centroid.\n#if !defined (MODEL_BCC) \n       State_Met%PMID(I,J,L) = GET_PCENTER( I, J, L )\n#endif\n\n       !=============================================================\n       ! Calculate water vapor saturation pressure [hPa]\n       ! from temperature\n       !=============================================================\n\n       ! Prepare the intermediate terms\n       EsatA = ESATP1 + ESATP2 * log10( State_Met%T(I,J,L) )\n       EsatB = ESATP3 * 10**( ESATP4 + ESATP5 / State_Met%T(I,J,L) )\n       EsatC = ESATP6 * 10**( ESATP7 + ESATP8 * State_Met%T(I,J,L) )\n       EsatD = ESATP9 / State_Met%T(I,J,L)\n\n       ! Saturation water vapor pressure [hPa]\n       Esat  = 10**( EsatA + EsatB + EsatC + EsatD )\n\n       !=============================================================\n       ! Set AVGW, the water vapor volume mixing ratio from\n       ! specific humidity [mol H2O / mol dry air]\n       !=============================================================\n       !\n       ! vol H2O       dry air    H2O         kg H2O      kg wet air\n       ! ----------  = molec wt / molec wt * ---------- * ---------\n       ! vol dry air   [g/mol]    [g/mol]    kg wet air   kg dry air\n       !\n       !      thus AVGW = AIRMW * SPHU_kgkg / ( H2OMW * (1-SPHU_kgkg) )\n       !\n       ! where,\n       !        SPHU_kgkg = specific humidity in [kg/kg]\n       !\n\n       ! Convert specific humidity from [g/kg] to [kg/kg]\n       SPHU_kgkg = State_Met%SPHU(I,J,L) * MCONV\n\n       ! Water vapor volume mixing ratio [v/v dry air]\n       State_Met%AVGW(I,J,L) = AIRMW * SPHU_kgkg / &\n                               ( H2OMW * (1.0e+0_fp - SPHU_kgkg ) )\n\n       ! Water vapor mole fraction [mol (H2O) / mol (moist air)]\n       XH2O = State_Met%AVGW(I,J,L) / ( 1.0e+0_fp + State_Met%AVGW(I,J,L) )\n\n       !=============================================================\n       ! Set grid box height [m]\n       !=============================================================\n       !\n       ! BXHEIGHT is the height (Delta-Z) of grid box (I,J,L)\n       ! in meters. It is calculated using the hypsometric equation.\n       ! A virtual temperature is calculated to enable use of\n       ! of moist air pressure with dry air molecular weight.\n       !\n       !              Gas constant   virtual\n       !              for dry air  * grid box\n       !              [J/K/mol]      temp [K]       bottom edge P\n       ! height [m] = ----------------------- * ln(---------------)\n       !                     g [m/s2]                top edge P\n       !\n       !  where,\n       !\n       !                         Grid box temperature [K]\n       !    Virtual  = -------------------------------------------\n       !    Temp [K]       H20 partial pressure          MW_H2O\n       !               1 - -------------------- * ( 1 - --------- )\n       !                    moist air  pressure         MW_dryair\n       !\n       ! Source: Wallace and Hobbes \"Atmospheric Science: An\n       !         Introductory Survey\"\n       !\n       ! Assume constant temperature and moisture across grid box.\n       !\n\n       ! Grid box potential temperature [K] at reference pressure 1000 hPa\n       State_Met%THETA(I,J,L)  = State_Met%T(I,J,L) * &\n                                 ( 1000.0_fp / State_Met%PMID(I,J,L) )**0.286\n\n       ! Grid box virtual temperature [K]\n       State_Met%TV(I,J,L) = State_Met%T(I,J,L) / (1 - XH2O * &\n                             ( 1 - H2OMW / AIRMW ) )\n\n       ! Grid box box height [m]\n       State_Met%BXHEIGHT(I,J,L) = Rdg0 * State_Met%TV(I,J,L) * &\n                                   LOG( State_Met%PEDGE(I,J,L) / PEdge_Top )\n\n       !==============================================================\n       ! Set grid box volume [m3]\n       !==============================================================\n       !\n       ! AIRVOL is the volume of grid box (I,J,L) in meters^3\n       !\n       ! AREA_M2 is the Delta-X * Delta-Y surface area of grid\n       ! boxes (I,J,L=1), that is, at the earth's surface.\n       !\n       ! Since the thickness of the atmosphere is much smaller\n       ! than the radius of the earth, we can make the \"thin\n       ! atmosphere\" approximation, namely:\n       !\n       !               (Rearth + h) ~ Rearth\n       !\n       ! Therefore, the Delta-X * Delta-Y surface area of grid\n       ! boxes that are above the earth's surface will be\n       ! approx. the same as AREA_M2.  Thus we are justified\n       ! in using AREA_M2 for grid boxes (I, J, L > 1)\n       !\n       State_Met%AIRVOL(I,J,L) = State_Met%BXHEIGHT(I,J,L) * &\n                                 State_Grid%AREA_M2(I,J)\n\n       !==============================================================\n       ! Set grid box dry air partial pressures at grid box edges\n       ! and at grid box centroid (arithmetic mean pressure level)\n       ! [hPa]. Assume constant humidity across grid box.\n       !==============================================================\n\n       ! Partial pressure of dry air at lower edge of grid box [hPa]\n       State_Met%PEDGE_DRY(I,J,L) = State_Met%PEDGE(I,J,L) * ( 1.e+0_fp - XH2O )\n\n       ! Set dry air partial pressure for level State_Grid%NZ+1 lower edge\n       IF ( L == State_Grid%NZ ) THEN\n          State_Met%PEDGE_DRY(I,J,L+1) = Pedge_Top * ( 1.e+0_fp - XH2O )\n       ENDIF\n\n       ! Partial pressure of dry air at box centroid [hPa]\n       State_Met%PMID_DRY(I,J,L) = State_Met%PMID(I,J,L) * ( 1.e+0_fp - XH2O )\n\n       ! Set previous dry P difference to current dry P difference\n       ! prior to updating with new met values\n       State_Met%DP_DRY_PREV(I,J,L) = State_Met%DELP_DRY(I,J,L)\n\n       ! Update dry pressure difference as calculated from the\n       ! dry surface pressure\n#if !defined (MODEL_BCC) \n       State_Met%DELP_DRY(I,J,L) = GET_DELP_DRY(I,J,L)\n#endif\n       !==============================================================\n       ! Set mass of dry air in grid box [kg]\n       !==============================================================\n\n       ! AD = mass of dry air in grid box (I,J,L)\n       !\n       ! given by:\n       !\n       !        Dry air pressure   Grid box   100 [Pa]   1 [s2]\n       ! Mass = difference       * surface  * -------- * -----\n       !        across grid        area       1 [hPa]    g [m]\n       !        box [hPa]          [m2]\n       !\n       ! NOTES:\n       ! Dry air pressure difference across grid box is calculate\n       ! from the surface dry pressure and GMAO A and B parameters\n       ! (see GeosUtil/pressure_mod.F). The dry surface pressure\n       ! that is used is calculated from the GMAO wet surface pressure\n       ! (or time-interpolated value) and the A and B parameters\n       ! (see SET_DRY_SURFACE_PRESSURE). It is not derived from the\n       ! wet edge pressures. This distinction is important for\n       ! mass conservation.\n       State_Met%AD(I,J,L) = ( State_Met%DELP_DRY(I,J,L) * G0_100 ) * &\n                             State_Grid%AREA_M2(I,J)\n\n       ! Mass of moist air [kg]\n       ADmoist             = ( State_Met%DELP(I,J,L) * G0_100 ) * &\n                             State_Grid%AREA_M2(I,J)\n\n       !==============================================================\n       ! Set grid box densities\n       !==============================================================\n\n       ! Set grid box dry air density [kg/m3]\n       !\n       ! NOTE: Air density is derived from dry surface pressure\n       ! following implementation of the moisture fix, and therefore\n       ! its equation must be dry air mass divided by volume.\n       ! This is because the level pressures derived from the dry\n       ! surface pressure may be used for extracting mass per level,\n       ! but not a representative pressure for that level. The ideal\n       ! gas law requires a representative level pressure. Eventually\n       ! a representative pressure must be derived that, when used in\n       ! the ideal gas law, will replicate the air density defined as\n       ! mass/volume. Moving to use of the ideal gas law is necessary\n       ! for grid-independence (ewl, 9/16/16)\n       State_Met%AIRDEN(I,J,L) = State_Met%AD(I,J,L) / State_Met%AIRVOL(I,J,L)\n\n       ! Set grid box dry air number density [molec/cm3]\n       State_Met%AIRNUMDEN(I,J,L) = State_Met%AIRDEN(I,J,L) * 1e-3_fp * &\n                                    AVO / AIRMW\n\n       ! Set grid box moist air density [kg/m3] \n       ! Use moist air mass and volume                           \n       State_Met%MAIRDEN(I,J,L) = ADmoist / State_Met%AIRVOL(I,J,L)\n\n       !==============================================================\n       ! Define the various query fields of State_Met\n       !\n       ! NOTE: For convenience, we set State_Met%InPbl in routine\n       ! COMPUTE_PBL_HEIGHT (in module GeosCore/pbl_mix_mod.F).\n       !\n       ! NOTE: For certain queries we test against level numbers,\n       ! (e.g. LLSTRAT, LLCHEM), but should really test level\n       ! pressure edges, so that this algorithm will be robust if\n       ! we switch to different met fields or interface with\n       ! different ESMs.  Add this at a later time. (bmy, 1/8/18)\n       !==============================================================\n\n       ! Is this grid box within the troposphere?\n       State_Met%InTroposphere(I,J,L) = &\n            ( State_Met%PEDGE(I,J,L) > State_Met%TROPP(I,J) )\n\n       ! Is this grid box within the stratosphere or mesosphere?\n       State_Met%InStratMeso(I,J,L) = &\n            ( .not. State_Met%InTroposphere(I,J,L) )\n\n       ! Is this grid box within the stratosphere (but not mesosphere)?\n       State_Met%InStratosphere(I,J,L) = &\n            ( L <= State_Met%MaxStratLev .and. State_Met%InStratMeso(I,J,L) )\n\n       ! Is grid box (I,J,L) within the chemistry grid?\n       State_Met%InChemGrid(I,J,L) = ( L <= State_Met%MaxChemLev )\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=================================================================\n    ! Compute more tropopause and chemistry grid quantities.  This\n    ! has to be done after the State_Met%InChemGrid etc. fields have\n    ! been totally initialized.\n    !\n    ! Also compute if it is near local noon in a grid box.\n    ! This will be used for the J-value diagnostics.\n    !=================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L_CG, L_TP, H, Pb, Pt, FRAC                        )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !--------------------------------------------------------------\n       ! Local solar time and box that is nearest to local noon\n       !--------------------------------------------------------------\n       State_Met%LocalSolarTime(I,J) = LocTime(I,J)\n       State_Met%IsLocalNoon(I,J)    = IsLocNoon(I,J)\n\n       !--------------------------------------------------------------\n       ! Compute highest level of chemistry grid and the troposphere\n       !\n       ! NOTE: The COUNT intrinsic function returns the number of\n       ! locations where the column State_Met%InChemGrid(I,J,:) is\n       ! TRUE.  This is also equivalent to the maximum level of the\n       ! chemistry grid.  Ditto for State_Met%InTroposphere.\n       !--------------------------------------------------------------\n\n       ! Highest level in the column at (I,J)\n       ! that is fully within the chemistry grid\n       L_CG  = COUNT( State_Met%InChemGrid(I,J,:) )\n\n       ! Highest level in the column at (I,J)\n       ! that is fully within the tropopause\n       L_TP  = COUNT( State_Met%InTroposphere(I,J,:) )\n\n       !--------------------------------------------------------------\n       ! Compute tropopause height\n       !--------------------------------------------------------------\n\n       ! Get height (from surface to top edge) of all boxes that lie\n       ! totally w/in the troposphere.  NOTE: Grid box (I,J,L_TP-1)\n       ! is the highest purely tropospheric grid box in the column.\n       !\n       ! BMY COMMENT: L_TP may be the highest purely tropospheric\n       ! grid box in the column, not L_TP-1. That might have been\n       ! due to historical baggage.  In any case, this is only used\n       ! to compute State_Met%TropHt which is a purely diagnostic\n       ! output, so it won't make a big difference even if it is\n       ! incorrect.  Check into this later on. (bmy, 1/17/18)\n       H = SUM( State_Met%BXHEIGHT(I,J,1:L_TP-1) )\n\n       ! Get the pressures [hPa] at the bottom and top edges\n       ! of the grid box in which the tropopause occurs\n       Pb = State_Met%PEDGE(I,J,L_TP  )\n       Pt = State_Met%PEDGE(I,J,L_TP+1)\n\n       ! FRAC is the fraction of the grid box (I,J,L_TP)\n       ! that lies totally within the troposphere\n       FRAC = ( Pb - State_Met%TROPP(I,J) ) / ( Pb - Pt )\n\n       ! Add to H the height [m] of the purely tropospheric\n       ! fraction of grid box (I,J,L_TP)\n       H = H + ( FRAC * State_Met%BXHEIGHT(I,J,L_TP) )\n\n       !--------------------------------------------------------------\n       ! Save in the relevant fields of State_Met\n       !--------------------------------------------------------------\n       State_Met%ChemGridLev(I,J) = L_CG           ! Max chemgrid level\n       State_Met%TropLev    (I,J) = L_TP           ! Max tropopause level\n       State_Met%TropHt     (I,J) = H / 1000.0_fp  ! Troposphere ht [km]\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=================================================================\n    ! Update species concentrations with updated air quantities\n    ! if update mixing ratio flag indicates to do so\n    !=================================================================\n\n    ! Update the mixing ratio with new air quantities such that species\n    ! mass is conserved if (1) update_mixing_ratio flag is not passed,\n    ! or (2) update_mixing_ratio flag is passed as true.\n    ! NOTE: The only places where mixing ratio is not currently updated\n    ! following air quantity change is during GEOS-Chem initialization and\n    ! in transport after the pressure fixer is applied\n    IF ( UpdtMR .AND.                                  &\n         ( ABS( SUM(State_Met%DP_DRY_PREV )            &\n                - SUM(State_Met%DELP_DRY  ) ) < 1d-14 ) ) THEN\n       ! The concentration update formula works only for dry mixing ratios\n       ! (kg/kg or v/v) so check if units are correct\n       IF ( .not. allSpeciesInDryMixingRatio( State_Chm ) ) THEN\n          ErrMsg = 'All species must be in dry mixing ratio when '      // &\n                   'update_mixing_ratio=.TRUE.!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( I, J, L, N                                            )\n       DO N = 1, State_Chm%nSpecies\n\n          ! Tell OpenMP to vectorize this loop\n          !$OMP SIMD\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             State_Chm%Species(N)%Conc(I,J,L) =                              &\n             State_Chm%Species(N)%Conc(I,J,L) * State_Met%DP_DRY_PREV(I,J,L) &\n                                              / State_Met%DELP_DRY(I,J,L)\n          ENDDO\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n  END SUBROUTINE AIRQNT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: interp\n!\n! !DESCRIPTION: Subroutine INTERP linearly interpolates GEOS-Chem I6 and I3\n!  fields (winds, surface pressure, temperature, surface albedo, specific\n!  humidity etc.) to the current dynamic timestep.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INTERP( NTIME0, NTIME1, NTDT, Input_Opt, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: NTIME0     ! Elapsed time [s] at\n                                                !  start of outer time step\n    INTEGER,        INTENT(IN)    :: NTIME1     ! Elapsed time [s] at\n                                                !  current time\n    INTEGER,        INTENT(IN)    :: NTDT       ! Dynamic timestep [s]\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! State Grid object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REMARKS:\n!  Different met fields are archived at I6 (instantaneous 6-hr) and\n!  I3 (instantaneous 3-hr) time resolution depending on the specific product.\n!\n! !REVISION HISTORY:\n!  30 Jan 1998 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: I,        J,        L\n    REAL(fp)  :: D_NTIME0, D_NTIME1, D_NDT\n    REAL(fp)  :: D_NTDT,   TM,       TC2\n    REAL(fp)  :: YSOUTH,   YNORTH\n\n    !=================================================================\n    ! Initialization\n    !=================================================================\n\n    ! Convert time variables from FLOAT to DBLE\n    D_NTIME0 = DBLE( NTIME0 )\n    D_NTIME1 = DBLE( NTIME1 )\n    D_NTDT   = DBLE( NTDT   )\n\n    D_NDT    = 10800e+0_fp ! For 3-hr instantaneous fields\n\n    ! Fraction of timestep elapsed at mid point of this dyn timestep\n    TM  = ( D_NTIME1 + D_NTDT/2e+0_fp - D_NTIME0 ) / D_NDT\n\n    ! Fraction of timestep elapsed at the end of this dyn timestep\n    TC2 = ( D_NTIME1 + D_NTDT - D_NTIME0 ) / D_NDT\n\n    ! For I3 fields, need to reset fraction after 3 hours (ewl, 5/12/2015)\n    IF ( TM > 1.0e+0_fp ) THEN\n       TM  = TM  - 1.0e+0_fp\n       TC2 = TC2 - 1.0e+0_fp\n    ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, YSOUTH, YNORTH )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !----------------------------------------------------\n       ! Interpolate 2D variables\n       !----------------------------------------------------\n       IF ( L == 1 ) THEN\n\n          ! North & south edges of box\n          YSOUTH = State_Grid%YEdge(I,J  )\n          YNORTH = State_Grid%YEdge(I,J+1)\n\n          ! Interpolate wet pressure [hPa] to the end of the dynamic timestep\n          State_Met%PSC2_WET(I,J)  = State_Met%PS1_WET(I,J) + &\n                                   ( State_Met%PS2_WET(I,J) - &\n                                     State_Met%PS1_WET(I,J) ) * TC2\n\n          ! Do the same for dry pressure [hPa] (ewl, 5/4/16)\n          State_Met%PSC2_DRY(I,J)  = State_Met%PS1_DRY(I,J) + &\n                                   ( State_Met%PS2_DRY(I,J) - &\n                                     State_Met%PS1_DRY(I,J) ) * TC2\n\n          ! Even though TROPP is a 3-hour average field, we\n          ! we still need to make sure to cap TROPP in the\n          ! polar regions (if the entire box is outside 60S-60N)\n          ! so that we don't do chemistry at an abnormally high\n          ! altitude.  Set TROPP in the polar regions to 200 hPa.\n          ! (jal, phs, bmy, 9/18/07)\n          IF ( YSOUTH >= 60.0_fp .OR. YNORTH <= -60.0_fp ) THEN\n             State_Met%TROPP(I,J) = MAX( State_Met%TROPP(I,J), 200e+0_fp )\n          ENDIF\n       ENDIF\n\n       !----------------------------------------------------\n       ! Interpolate 3D variables\n       !----------------------------------------------------\n\n       ! Interpolate temperature\n       State_Met%T(I,J,L) = State_Met%TMPU1(I,J,L) + &\n            ( State_Met%TMPU2(I,J,L) - State_Met%TMPU1(I,J,L) ) * TM\n\n       ! Interpolate specific humidity\n       State_Met%SPHU(I,J,L) = State_Met%SPHU1(I,J,L) + &\n            ( State_Met%SPHU2(I,J,L) - State_Met%SPHU1(I,J,L) ) * TM\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE INTERP\n!EOC\n#if defined( ESMF_ ) || defined( EXTERNAL_GRID )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gchp_cap_tropopause_prs\n!\n! !DESCRIPTION: Subroutine GCHP\\_CAP\\_TROPOPAUSE\\_PRS caps the tropopause\n!  pressure in polar latitudes to 200 hPa, so that we don't end up doing\n!  troposheric chemistry too high over the poles.  This is done in the\n!  standalone GEOS-Chem, and we also need to apply this when running\n!  GEOS-Chem within the GEOS-5 GCM.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GCHP_Cap_Tropopause_Prs( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt     ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid    ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met     ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC            ! Success or failure\n!\n! !REMARKS:\n!  Jennifer Logan (see correspondence below) suggested that we should cap the\n!  variable tropopause at 200hPa in near-polar regions (90-60S and 60-90N),\n!  to avoid the problem with anomalously high tropopause heights at high\n!  latitudes. This fix was standardized in GEOS-Chem v7-04-13.\n!                                                                             .\n!  Jennifer Logan wrote:\n!     I think we should restrict the tropopause at latitudes > 60 deg. to\n!     pressures greater than 200 mb (about 11 km). From Fig. 3 in Seidel and\n!     Randel, there are tropopause (TP) heights as high as 13.5 km in the\n!     Antarctic (median height is ~9.8 km, 250 mb), but I don't think we want\n!     to be doing trop. chem there. The median TP pressure at ~80 N is ~300 mb,\n!     compared to ~250 mb at 70-85 S. The extratropical TP heights are higher\n!     (lower pressure) in the SH than in the NH according to Fig. 3.\n!     This approach is also very easy to explain in a paper.\n!\n! !REVISION HISTORY:\n!  14 Mar 2013 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I,       J\n    REAL*8  :: YSOUTH,  YNORTH\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Return if option not set\n#ifdef MODEL_GEOS\n    IF ( .NOT. Input_Opt%LCAPTROP ) RETURN\n#endif\n\n    ! Loop over grid boxes on this PET\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! North & south edges of box\n       YSOUTH = State_Grid%YEdge(I,J  )\n       YNORTH = State_Grid%YEdge(I,J+1)\n\n       ! Cap tropopause height at 200 hPa polewards of 60N and 60S\n       IF ( YSOUTH >= 60d0 .or. YNORTH <= -60d0 ) THEN\n          State_Met%TROPP(I,J) = MAX( State_Met%TROPP(I,J), 200d0 )\n       ENDIF\n\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE GCHP_Cap_Tropopause_Prs\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_dry_surface_pressure\n!\n! !DESCRIPTION: Subroutine SET\\_DRY\\_SURFACE\\_PRESSURE sets the dry\n!  surface pressures PS1\\_DRY or PS2\\_DRY by removing the water vapor from\n!  the column constructed with MET pressure fields PS1\\_WET or PS2\\_WET.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_DRY_SURFACE_PRESSURE( State_Grid, State_Met, PS_ID)\n!\n! !USES:\n!\n    USE ERROR_MOD,            ONLY : CHECK_VALUE\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE PRESSURE_MOD,         ONLY : GET_AP, GET_BP\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)     :: PS_ID       ! 1 = PS1, 2 = PS2\n    TYPE(GrdState), INTENT(IN)     :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT)  :: State_Met   ! Meteorology State object\n!\n! !REMARKS:\n!  This subroutine is an adaptation of the GEOS-Chem moisture fix\n!  implemented by Meemong Lee (JPL) in the adjoint model. Like PS1_WET\n!  and PS2_WET, from which PS1_DRY and PS2_DRY are derived, these values\n!  are interpolated within routine INTERP to derive instantaneous PSC2_DRY.\n!  Note that PSC2_WET and PSC2_DRY are not used to fetch pressures and\n!  calculate air quantities until after advection. Also note that the\n!  dry surface pressure calculated in this routine may be used to\n!  calculate delta dry pressures across a level by utilitizing GMAO\n!  parameters Ap and Bp but should not be used to extract dry pressure\n!  edge values as a height proxy.\n!\n! !REVISION HISTORY:\n!  03 May 2002 - E. Lundgren - Initial version (M. Lee, JPL)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: I, J, L\n    REAL(fp)           :: PEDGE_BOT, PEDGE_TOP\n\n    ! Pointers\n    REAL(fp), POINTER  :: PS_WET(:,:) => NULL()\n    REAL(fp), POINTER  :: PS_DRY(:,:) => NULL()\n    REAL(fp), POINTER  :: SPHU(:,:,:) => NULL()\n\n    !=================================================================\n    ! SET_DRY_SURFACE_PRESSURE begins here!\n    !=================================================================\n\n    ! Set pointer to the appropriate humidity\n    IF ( PS_ID == 1 ) THEN\n       SPHU   => State_Met%SPHU1\n    ELSE IF ( PS_ID == 2 ) THEN\n       SPHU   => State_Met%SPHU2\n    ENDIF\n\n    ! Set pointers to State_Met pressure fields.\n    IF ( PS_ID == 1 ) THEN\n       PS_WET => State_Met%PS1_WET\n       PS_DRY => State_Met%PS1_DRY\n    ELSE IF ( PS_ID == 2 ) THEN\n       PS_WET => State_Met%PS2_WET\n       PS_DRY => State_Met%PS2_DRY\n    ELSE\n       ! Throw an error (to be added)\n    ENDIF\n\n    ! Reset dry surface pressure to TOA value\n    PS_DRY = GET_AP(State_Grid%NZ+1)\n\n    ! Calculate dry surface pressure from GMAO wet pressure as the\n    ! column sum of wet delta pressures with humidity removed\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, PEDGE_BOT, PEDGE_TOP )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n    DO L = 1, State_Grid%NZ\n       PEDGE_BOT   = GET_AP(L) + GET_BP(L) * PS_WET(I,J)\n       PEDGE_TOP   = GET_AP(L+1) + GET_BP(L+1) * PS_WET(I,J)\n       PS_DRY(I,J) = PS_DRY(I,J) + ( PEDGE_BOT - PEDGE_TOP ) * &\n                     ( 1.e+0_fp - SPHU(I,J,L) * 1.0e-3_fp )\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! If dry pressure is negative, set equal to moist pressure\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       IF ( PS_DRY(I,J) < 0.e+0_fp) THEN\n          PS_DRY(I,J) = PS_WET(I,J)\n       ENDIF\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Nullify pointers\n    PS_WET  => NULL()\n    PS_DRY  => NULL()\n    SPHU    => NULL()\n\n  END SUBROUTINE SET_DRY_SURFACE_PRESSURE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_obk\n!\n! !DESCRIPTION: Function GET\\_OBK returns the Monin-Obhukov length at a grid\n!  box (I,J).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_OBK( I, J, State_Met ) RESULT( OBK )\n!\n! !USES:\n!\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,         INTENT(IN) :: I           ! Longitude index\n    INTEGER,         INTENT(IN) :: J           ! Latitude  index\n    TYPE(MetState),  INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                    :: OBK         ! Monin-Obhukhov length\n!\n! !REMARKS:\n!\n!\n! !REVISION HISTORY:\n!  25 May 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! For all GEOS met fields:\n    !\n    ! The direct computation of the Monin-Obhukov length is:\n    !\n    !            - Air density * Cp * T(surface air) * Ustar^3\n    !    OBK =  -----------------------------------------------\n    !              Kappa       * g  * Sensible Heat flux\n    !\n    ! Cp    = 1000 J / kg / K = specific heat of air at constant P\n    ! Kappa = 0.4             = Von Karman's constant\n    !\n    !\n    !  Also test the denominator in order to prevent div by zero.\n    !=================================================================\n\n    ! Local variables\n    REAL(fp)            :: NUM, DEN\n\n    ! Parameters\n    REAL(fp), PARAMETER :: KAPPA = 0.4e+0_fp\n    REAL(fp), PARAMETER :: CP    = 1000.0e+0_fp\n\n    ! Numerator\n    NUM = - State_Met%AIRDEN(I,J,1) * CP                   * &\n            State_Met%TS(I,J)       * State_Met%USTAR(I,J) * &\n            State_Met%USTAR(I,J)    * State_Met%USTAR(I,J)\n\n    ! Denominator\n    DEN =  KAPPA * g0 * State_Met%HFLUX(I,J)\n\n    ! Prevent div by zero\n    IF ( ABS( DEN ) > 0e+0_fp ) THEN\n       OBK = NUM / DEN\n    ELSE\n       OBK = 1.0e+5_fp\n    ENDIF\n\n  END FUNCTION GET_OBK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_cosine_sza\n!\n! !DESCRIPTION: Routine GET\\_COSINE\\_SZA is a driver for calling the COSSZA\n!  routine from dao\\_mod.F.  This routine calls COSSZA twice.  The first call\n!  computes the sun angles at the current time and midpoint of the current\n!  chemistry time step.  The second call computes the sun angles 5 hours\n!  prior to the current time (for the PARANOX ship emissions plume model).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_COSINE_SZA( Input_Opt, State_Grid, State_Met, RC  )\n!\n! USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE JULDAY_MOD,         ONLY : JULDAY\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_DAY_OF_YEAR\n    USE TIME_MOD,           ONLY : GET_DAY\n    USE TIME_MOD,           ONLY : GET_GMT\n    USE TIME_MOD,           ONLY : GET_HOUR\n    USE TIME_MOD,           ONLY : GET_MINUTE\n    USE TIME_MOD,           ONLY : GET_SECOND\n    USE TIME_MOD,           ONLY : GET_MONTH\n    USE TIME_MOD,           ONLY : GET_YEAR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  07 Feb 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete histor\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARAIBLES\n!\n    ! Scalars\n    INTEGER :: DOY, YEAR, MONTH, DAY, HOUR, MINUTE, SECOND\n    REAL*8  :: DDAY, JD,  GMT\n\n    !=================================================================\n    ! Get cosine(SZA) at the current time (SUNCOS) and at the\n    ! midpoint of the chemistry timestep (SUNCOS_MID)\n    !=================================================================\n\n    ! Assume success\n    RC     = GC_SUCCESS\n\n    ! Current time\n    DOY    = GET_DAY_OF_YEAR()                       ! Current day of year\n    YEAR   = GET_YEAR()                              ! Current year\n    MONTH  = GET_MONTH()                             ! Current month\n    DAY    = GET_DAY()                               ! Current day of month\n    HOUR   = GET_HOUR()                              ! Current GMT hour\n    MINUTE = GET_MINUTE()                            ! Current GMT minutes\n    SECOND = GET_SECOND()                            ! Current GMT seconds\n    GMT    = GET_GMT()                               ! Current GMT\n    DDAY   = DAY + ( HOUR/24d0 ) + &                 ! Current decimal day\n             ( MINUTE/1440d0 ) + ( SECOND/3600d0 )\n    JD     = JULDAY( YEAR, MONTH, DDAY )             ! Current Julian date\n\n    ! Compute cosine(SZA) quantities for the current time\n    CALL COSSZA( DOY, HOUR, State_Grid, State_Met )\n\n    ! Compute sum of COSSZA for HEMCO\n    CALL Calc_SumCosZa ( State_Grid, State_Met )\n\n  END SUBROUTINE GET_COSINE_SZA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cossza\n!\n! !DESCRIPTION: COSSZA computes the cosine of the solar zenith angle, given\n!  the day of the year and GMT hour.  The cosine of the solar zenith\n!  angle is returned at both the current time and at the midpoint of the\n!  chemistry timestep (i.e. for the centralized chemistry timestep option).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE COSSZA( DOY, GMT_HOUR, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_MINUTE, GET_SECOND\n    USE TIME_MOD,           ONLY : GET_LOCALTIME\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: DOY          ! Day of the year\n    INTEGER,        INTENT(IN)    :: GMT_HOUR     ! Hour of day\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met    ! Meteorology State\n!\n! !REMARKS:\n!  Hour angle (AHR) is a function of longitude.  AHR is zero at solar noon,\n!  and increases by 15 deg for every hour before or after solar noon.  Hour\n!  angle can be thought of as the time in hours since the sun last passed\n!  the meridian (i.e. the time since the last local noon).\n!                                                                             .\n!  The cosine of the solar zenith angle (SZA) is given by:\n!                                                                             .\n!     cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n!                                                                             .\n!  where LAT = the latitude angle,\n!        DEC = the solar declination angle,\n!        AHR = the hour angle, all in radians.\n!                                                                             .\n!  If SUNCOS < 0, then the sun is below the horizon, and therefore does not\n!  contribute to any solar heating.\n!\n! !REVISION HISTORY:\n!  21 Jan 1998 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: I,        J\n    INTEGER              :: SECOND,   MINUTE,   TS_SUN,   FACTOR\n    REAL(fp)             :: TIMLOC,   DEC,      C_DEC\n    REAL(fp)             :: S_DEC,    R,        YMID_R\n    REAL(fp)             :: C_YMID_R, S_YMID_R\n    REAL(fp)             :: AHR,      SUNCOS,   SUNCOS_MID\n    REAL(f8)             :: GMT_CUR,  GMT_MID\n!\n! !DEFINED PARAMETERS:\n!\n    ! Coefficients for solar declination angle\n    REAL(fp),  PARAMETER :: A0 = 0.006918e+0_fp\n    REAL(fp),  PARAMETER :: A1 = 0.399912e+0_fp\n    REAL(fp),  PARAMETER :: A2 = 0.006758e+0_fp\n    REAL(fp),  PARAMETER :: A3 = 0.002697e+0_fp\n    REAL(fp),  PARAMETER :: B1 = 0.070257e+0_fp\n    REAL(fp),  PARAMETER :: B2 = 0.000907e+0_fp\n    REAL(fp),  PARAMETER :: B3 = 0.000148e+0_fp\n\n    !=================================================================\n    ! Initialization\n    !=================================================================\n\n    ! Quantities for central chemistry timestep\n    TS_SUN   = GET_TS_CHEM()                         ! Chemistry interval\n    SECOND   = GET_SECOND()                          ! Current seconds\n    MINUTE   = GET_MINUTE()                          ! Current minutes\n    FACTOR   = ( MINUTE * 60 + SECOND ) / TS_SUN     ! Multiplying factor\n\n    ! GMT at the current time\n    GMT_CUR  = DBLE( GMT_HOUR          ) &\n             + ( DBLE( TS_SUN * FACTOR ) / 3600e+0_fp )\n\n    ! GMT at the midpoint of the chemistry time interval\n    GMT_MID  = ( DBLE( GMT_HOUR        )        ) &\n             + ( DBLE( TS_SUN * FACTOR ) / 3600e+0_fp ) &\n             + ( DBLE( TS_SUN / 2      ) / 3600e+0_fp )\n\n    ! Path length of earth's orbit traversed since Jan 1 [radians]\n    R        = ( 2e+0_fp * PI / 365e+0_fp ) * DBLE( DOY - 1 )\n\n    ! Solar declination angle (low precision formula) [radians]\n    DEC      = A0 - A1*COS(         R ) + B1*SIN(         R ) &\n                  - A2*COS( 2e+0_fp*R ) + B2*SIN( 2e+0_fp*R ) &\n                  - A3*COS( 3e+0_fp*R ) + B3*SIN( 3e+0_fp*R )\n\n    ! Pre-compute sin & cos of DEC outside of DO loops (for efficiency)\n    S_DEC    = SIN( DEC )\n    C_DEC    = COS( DEC )\n\n    !=================================================================\n    ! Compute cosine of solar zenith angle\n    !=================================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,      J,   YMID_R, S_YMID_R,  C_YMID_R ) &\n    !$OMP PRIVATE( TIMLOC, AHR, SUNCOS, SUNCOS_MID          )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Latitude of grid box [radians]\n       YMID_R     = State_Grid%YMid_R(I,J)\n\n       ! Pre-compute sin & cos of DEC outside of I loop (for efficiency)\n       S_YMID_R   = SIN( YMID_R )\n       C_YMID_R   = COS( YMID_R )\n\n       !==============================================================\n       ! Compute cosine of SZA at the current GMT time\n       !==============================================================\n\n       ! Local time at box (I,J) [hours]\n       TIMLOC     = GET_LOCALTIME( I, J, 1, State_Grid, GMT=GMT_CUR )\n\n       ! Hour angle at box (I,J) [radians]\n       AHR        = ABS( TIMLOC - 12e+0_fp ) * 15e+0_fp * PI_180\n\n       ! Cosine of solar zenith angle at box (I,J) [unitless]\n       SUNCOS     = ( S_YMID_R * S_DEC              ) &\n                  + ( C_YMID_R * C_DEC * COS( AHR ) )\n\n       !==============================================================\n       ! Compute cosine of SZA at the midpoint of the chem timestep\n       ! Required for photolysis, chemistry, emissions, drydep\n       !==============================================================\n\n       ! Local time [hours] at box (I,J) at the midpt of the chem timestep\n       TIMLOC     = GET_LOCALTIME( I, J, 1, State_Grid, GMT=GMT_MID )\n\n       ! Hour angle at box (I,J) [radians]\n       AHR        = ABS( TIMLOC - 12e+0_fp ) * 15e+0_fp * PI_180\n\n       ! Corresponding cosine( SZA ) at box (I,J) [unitless]\n       SUNCOS_MID = ( S_YMID_R * S_DEC              ) &\n                  + ( C_YMID_R * C_DEC * COS( AHR ) )\n\n       !==============================================================\n       ! Copy data into fields of the Meteorology State object\n       !==============================================================\n\n       ! COS(SZA) at the current time\n       State_Met%SUNCOS    (I,J) = SUNCOS\n\n       ! COS(SZA) @ the midpoint of the current chemistry timestep\n       State_Met%SUNCOSmid (I,J) = SUNCOS_MID\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE COSSZA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_sumcosza\n!\n! !DESCRIPTION:\n!  Subroutine CALC\\_SUMCOSZA computes the sum of cosine of the solar zenith\n!  angle over a 24 hour day, as well as the total length of daylight.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_SumCosZa( State_Grid, State_Met )\n!\n! !USES:\n!\n    USE PhysConstants\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : GET_NHMSb,   GET_ELAPSED_SEC\n    USE TIME_MOD,       ONLY : GET_TS_CHEM, GET_DAY_OF_YEAR, GET_GMT\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, SAVE :: SAVEDOY = -1\n    INTEGER       :: I, J, L, N, NT, NDYSTEP\n    REAL(fp)      :: A0, A1, A2, A3, B1, B2, B3\n    REAL(fp)      :: LHR0, R, AHR, DEC, TIMLOC, YMID_R\n    REAL(fp)      :: SUNTMP(State_Grid%NX,State_Grid%NY)\n\n    !=======================================================================\n    ! CALC_SUMCOSZA begins here!\n    !=======================================================================\n\n    !  Solar declination angle (low precision formula, good enough for us):\n    A0 = 0.006918\n    A1 = 0.399912\n    A2 = 0.006758\n    A3 = 0.002697\n    B1 = 0.070257\n    B2 = 0.000907\n    B3 = 0.000148\n    R  = 2.* PI * float( GET_DAY_OF_YEAR() - 1 ) / 365.\n\n    DEC = A0 - A1*cos(  R) + B1*sin(  R) &\n             - A2*cos(2*R) + B2*sin(2*R) &\n             - A3*cos(3*R) + B3*sin(3*R)\n\n    LHR0 = int(float( GET_NHMSb() )/10000.)\n\n    ! Only do the following at the start of a new day\n    IF ( SAVEDOY /= GET_DAY_OF_YEAR() ) THEN\n\n       ! Zero arrays\n       State_Met%SUNCOSsum(:,:) = 0e+0_fp\n\n       ! NDYSTEP is # of chemistry time steps in this day\n       NDYSTEP = ( 24 - INT( GET_GMT() ) ) * 3600 / GET_TS_CHEM()\n\n       ! NT is the elapsed time [s] since the beginning of the run\n       NT = GET_ELAPSED_SEC()\n\n       ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n       DO N = 1, NDYSTEP\n\n          ! Zero SUNTMP array\n          SUNTMP = 0e+0_fp\n\n          ! Loop over surface grid boxes\n!!$OMP PARALLEL DO\n!!$OMP DEFAULT( SHARED )\n!!$OMP PRIVATE( I, J, YMID_R, TIMLOC, AHR )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Grid box latitude center [radians]\n             YMID_R = State_Grid%YMid_R(I,J)\n\n             TIMLOC = real(LHR0) + real(NT)/3600.0 + &\n                      State_Grid%XMid(I,J) / 15.0\n\n             DO WHILE (TIMLOC .lt. 0)\n                TIMLOC = TIMLOC + 24.0\n             ENDDO\n\n             DO WHILE (TIMLOC .gt. 24.0)\n                TIMLOC = TIMLOC - 24.0\n             ENDDO\n\n             AHR = abs(TIMLOC - 12.) * 15.0 * PI_180\n\n             !===========================================================\n             ! The cosine of the solar zenith angle (SZA) is given by:\n             !\n             !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n             !\n             ! where LAT = the latitude angle,\n             !       DEC = the solar declination angle,\n             !       AHR = the hour angle, all in radians.\n             !\n             ! If SUNCOS < 0, then the sun is below the horizon, and\n             ! therefore does not contribute to any solar heating.\n             !===========================================================\n\n             ! Compute Cos(SZA)\n             SUNTMP(I,J) = sin(YMID_R) * sin(DEC) +          &\n                           cos(YMID_R) * cos(DEC) * cos(AHR)\n\n             ! SUMCOSZA is the sum of SUNTMP at location (I,J)\n             ! Do not include negative values of SUNTMP\n             State_Met%SUNCOSsum(I,J) = State_Met%SUNCOSsum(I,J) + &\n                             MAX(SUNTMP(I,J),0e+0_fp)\n\n          ENDDO\n          ENDDO\n!!$OMP END PARALLEL DO\n\n          ! Increment elapsed time [sec]\n          NT = NT + GET_TS_CHEM()\n       ENDDO\n\n       ! Set saved day of year to current day of year\n       SAVEDOY = GET_DAY_OF_YEAR()\n\n    ENDIF\n\n  END SUBROUTINE Calc_SumCosZa\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_clock_tracer\n!\n! !DESCRIPTION: Subroutine Set\\_Clock_Tracer adds the time step (in seconds)\n!  to every grid box every time step with a total sink at the surface every\n!  time step to reproduce GMI tracer mechanism.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Clock_Tracer( State_Chm, State_Grid )\n!\n! !USES:\n!\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TIME_MOD,           ONLY : GET_TS_DYN\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  21 Dec 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL,  SAVE :: FIRST = .TRUE.\n    INTEGER        :: I, J, L\n    INTEGER,  SAVE :: id_CLOCK\n    REAL(fp), SAVE :: TimeStep\n\n    !=================================================================\n    ! SET_CLOCK_TRACER begins here!\n    !=================================================================\n\n    IF ( FIRST ) THEN\n       ! Define species ID's  on the first call\n       id_CLOCK  = Ind_( 'CLOCK' )\n\n       ! Get timestep [s]\n       TimeStep = GET_TS_DYN()\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L )\n    DO L=1,State_Grid%NZ\n    DO J=1,State_Grid%NY\n    DO I=1,State_Grid%NX\n\n       IF ( L == 1 ) THEN\n          ! Set the surface to a sink\n          State_Chm%Species(id_CLOCK)%Conc(I,J,L) = 0.0_fp\n       ELSE\n          ! Otherwise add time step [s]\n          State_Chm%Species(id_CLOCK)%Conc(I,J,L) = &\n                      State_Chm%Species(id_CLOCK)%Conc(I,J,L) + TimeStep\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE Set_Clock_Tracer\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: allSpeciesinDryMixingRatio\n!\n! !DESCRIPTION: Returns a logical value to indicate if all species are\n!  in dry \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION allSpeciesInDryMixingRatio( State_Chm ) RESULT( isDryMixRatio )\n!\n! !USES:\n!\n    USE State_Chm_Mod, ONLY : ChmState\n    USE UnitConv_Mod,  ONLY : KG_SPECIES_PER_KG_DRY_AIR \n    USE UnitConv_Mod,  ONLY : MOLES_SPECIES_PER_MOLES_DRY_AIR\n!\n! !INPUT PARAMETERS: \n!\n    TYPE(ChmState), INTENT(IN) :: State_Chm      ! Chemistry state object\n!\n! !RETURN VALUE:\n!\n    LOGICAL                    :: isDryMixRatio  ! All species are in dry MR\n!\n! !REVISION HISTORY:\n!  21 Feb 2024 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! allSpeciesInDryMixingRatio begins here!\n    !=================================================================\n    isDryMixRatio = (                                                        &\n       ALL( State_Chm%Species(:)%Units == KG_SPECIES_PER_KG_DRY_AIR         )&\n       .or.                                                                  &\n       ALL( State_Chm%Species(:)%Units == MOLES_SPECIES_PER_MOLES_DRY_AIR   )&\n    )\n\n  END FUNCTION allSpeciesInDryMixingRatio\n!EOC\nEND MODULE CALC_MET_MOD\n"
  },
  {
    "path": "GeosCore/carbon_gases_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: carbon_gases_mod.F90\n!\n! !DESCRIPTION: Module CARBON_GASES_MOD contains variables and routines\n! for simulating CH4, CO, CO2, and OCS with an online calculation of the\n! chemistry between them using KPP. It was adapted directly from code\n! provided by Beata Bukosa.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Carbon_Gases_Mod\n!\n! !USES:\n!\n  USE Error_Mod,     ONLY : Safe_Div\n  USE Hco_Error_Mod, ONLY : HCO_SUCCESS, HCO_FAIL, HCO_WARNING, hp\n  USE PhysConstants\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: CO2_Production\n  PUBLIC :: Chem_Carbon_Gases\n  PUBLIC :: Init_Carbon_Gases\n  PUBLIC :: Cleanup_Carbon_Gases\n!\n! !REVISION HISTORY:\n!  04 Apr 2022 - M.S. Long   - Initial version, based on work by B. Bukosa\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n\n  ! Scalars\n  LOGICAL               :: useGlobOHbmk10yr\n  LOGICAL               :: useGlobOHv5\n  INTEGER               :: id_CH4,     id_CH4_adv, id_CO,      id_CO_adv\n  INTEGER               :: id_CO2,     id_CO2_adv, id_OCS,     id_OCS_adv\n  INTEGER               :: id_OH\n  REAL(fp)              :: xnumol_CH4, xnumol_CO,  xnumol_CO2, xnumol_OH\n\n  ! Arrays\n  REAL(fp), ALLOCATABLE :: sumOfCosSza(:,:)\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER,  PARAMETER   :: N_CH4_DIAGS = 16\n  REAL(fp), PARAMETER   :: CM2perM2    = 1.0e+4_fp\n  REAL(fp), PARAMETER   :: CM3perM3    = 1.0e+6_fp\n  REAL(fp), PARAMETER   :: toMolecCm3  = ( AVO / AIRMW ) * 1.0e-3_fp\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: co2_production\n!\n! !DESCRIPTION: Places CO2 production from CO oxidation into the chemical\n!  species array.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CO2_Production( Input_Opt,  State_Chm, State_Diag,            &\n                             State_Grid, State_Met, RC                    )\n!\n! !USES:\n!\n    USE HCO_State_Mod,        ONLY : Hco_GetHcoId\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetDiagn\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: FIRST = .TRUE.\n\n    ! Scalars\n    LOGICAL                :: prtDebug\n    INTEGER                :: I,        J\n    INTEGER                :: L,        N\n    REAL(fp)               :: dtSrce,   P_CO2\n\n    ! Strings\n    CHARACTER(LEN=255)     :: thisLoc\n    CHARACTER(LEN=512)     :: errMsg\n\n    ! Arrays\n    REAL(hp)               :: CH4scale(N_CH4_DIAGS)\n    REAL(fp)               :: PCO2_fr_CO(                                    &\n                               State_Grid%NX,                                &\n                               State_Grid%NY,                                &\n                               State_Grid%NZ)\n\n    ! String arrays\n    CHARACTER(LEN=15)      :: CH4diag(N_CH4_DIAGS)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(f4),      POINTER :: Ptr2D(:,:)\n!\n! !DEFINED PARAMETERS:\n!\n    ! Molecules C per kg C\n    REAL(fp),    PARAMETER :: xnumol_C = AVO / 12.0e-3_fp\n\n    !========================================================================\n    ! CO2_Production begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    Ptr2D    => NULL()\n    Spc      => NULL()\n    errMsg   =  ''\n    thisLoc  =  &\n     ' -> at CO2_production (in module GeosCore/carbon_gases_mod.F90)'\n\n    ! Exit with error if we can't find the HEMCO state object\n    IF ( .NOT. ASSOCIATED( HcoState ) ) THEN\n       errMsg = 'The HcoState object is undefined!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Emission timestep\n    dtSrce = HcoState%TS_EMIS\n\n    !========================================================================\n    ! CO2 production from CO oxidation\n    !========================================================================\n\n    ! Use CO2_COPROD field instead of computing CO2 production in KPP\n    ! (the latter slows down the CO2 chemistry and produced differences\n    !  that need to be evaluated by the Carbon Gases Working Group)\n    IF ( id_CO2_adv > 0 ) THEN\n\n       IF ( Input_Opt%amIRoot .and. FIRST ) THEN\n          WRITE( 6, 100 )\n100       FORMAT( 'Carbon_Gases: Applying production of CO2 from CO from file')\n       ENDIF\n\n       ! Point to chemical species array [kg/kg dry air]\n       Spc => State_Chm%Species\n\n       ! Evalulate the CO2 production from HEMCO\n       CALL HCO_GC_EvalFld( Input_Opt,  State_Grid, 'CO2_COPROD',            &\n                            PCO2_fr_CO, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'CO_COPROD not found in HEMCO data list!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Loop over all grid boxes\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( I, J, L, P_CO2, N                                     )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Production is in [kg C/m3], convert to [molec/cm2/s]\n          P_CO2 = PCO2_fr_CO(I,J,L)                       & ! kg/m3\n                  / CM3perM3                              & ! => kg/cm3\n                  * xnumol_C                              & ! => molec/cm3\n                  / dtSrce                                & ! => molec/cm3/s\n                  * State_Met%BXHEIGHT(I,J,L) * 100.0_fp    ! => molec/cm2/s\n\n          !------------------------------------------------------------------\n          ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n          !\n          ! Save production of CO2 from CO oxidation [kg/m2/s]\n          !------------------------------------------------------------------\n          IF ( State_Diag%Archive_ProdCO2fromCO ) THEN\n             State_Diag%ProdCO2fromCO(I,J,L) = P_CO2       & ! molec/cm2/s\n                                             / xnumol_CO2  & ! => kg/cm2/s\n                                             * CM2perM2      ! => kg/m2/s\n\n          ENDIF\n\n          ! Convert emissions from [molec/cm2/s] to [kg/kg dry air]\n          ! (ewl, 9/11/15)\n          P_CO2  =  P_CO2 * DTSRCE * CM2perM2 /                              &\n                    ( XNUMOL_CO2 * State_Met%DELP(I,J,L)                     &\n                    * G0_100 * ( 1.0e+0_fp                                   &\n                    - State_Met%SPHU(I,J,L) * 1.0e-3_fp )                   )\n\n          ! Total CO2 [kg/kg dry air]\n          Spc(id_CO2)%Conc(I,J,L) = Spc(id_CO2)%Conc(I,J,L) + P_CO2\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       Spc => NULL()\n    ENDIF\n\n    ! Reset first-time flag\n    FIRST = .FALSE.\n\n    ! Free pointers for safety's sake\n    Spc   => NULL()\n    Ptr2D => NULL()\n\n  END SUBROUTINE CO2_Production\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_carbon_gases\n!\n! !DESCRIPTION: Computes the chemical loss of carbon species (sources - sinks)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Chem_Carbon_Gases( Input_Opt,  State_Met,  State_Chm,            &\n                                State_Grid, State_Diag, RC                   )\n!\n! !USES:\n!\n    USE carbon_Funcs\n    USE gckpp_Global\n    USE gckpp_Integrator,     ONLY : Integrate\n    USE gckpp_Parameters\n    USE gckpp_Precision\n    USE gckpp_Rates,          ONLY : Update_Rconst\n    USE ErrCode_Mod\n    USE HCO_State_Mod,        ONLY : Hco_GetHcoId\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_HcoStateOK\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE rateLawUtilFuncs,     ONLY : SafeDiv\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Met_Mod,        ONLY : MetState\n    USE Time_Mod,             ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    !\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: first = .TRUE.\n\n    ! Scalars\n    LOGICAL                :: failed\n    INTEGER                :: HcoID,     I\n    INTEGER                :: J,         L\n    INTEGER                :: NA,        N\n    INTEGER                :: IERR,      S\n    REAL(fp)               :: dtChem,    facDiurnal\n    REAL(fp)               :: tsPerDay\n    REAL(f4)               :: timeAfter, timeBefore\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Arrays\n    INTEGER                :: ICNTRL(20)\n    INTEGER                :: ISTATUS(20)\n    REAL(dp)               :: RCNTRL(20)\n    REAL(dp)               :: RSTATE(20)\n    REAL(fp)               :: OHdiurnalFac(State_Grid%NX, State_Grid%NY)\n\n    ! Arrays for data read in via HEMCO\n    REAL(fp) :: Global_OH(     State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n    REAL(fp) :: Global_Cl(     State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n    REAL(fp) :: LCH4_in_Strat( State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n    REAL(fp) :: LCO_in_Strat(  State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n    REAL(fp) :: PCO_in_Strat(  State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n    REAL(fp) :: PCO_fr_CH4  (  State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n    REAL(fp) :: PCO_fr_NMVOC(  State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n\n    !========================================================================\n    ! Chem_Carbon_Gases begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    dtChem   =  Get_Ts_Chem()\n    tsPerDay =  86400.0_fp / dtChem\n    Spc      => State_Chm%Species\n    errMsg   = ''\n    thisLoc  = &\n     ' -> at Chem_Carbon_Gases (in module GeosCore/carbon_gases_mod.F90)'\n\n    !========================================================================\n    ! First-time only safety checks\n    !========================================================================\n    IF ( first ) THEN\n\n       ! Exit if the HEMCO state object has not yet been initialized\n       IF ( .not. HCO_GC_HcoStateOK() ) THEN\n          errMsg = 'HcoState object is not associated!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Determine which OH oxidant field we are using\n       ! OH is only needed when CH4 or CO are included in the carbon species\n       IF ( id_CH4_adv > 0 .or. id_CO_adv > 0 ) THEN\n          CALL InquireGlobalOHversion( Input_Opt, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"InquireGlobalOHversion\"!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       ! Reset first-time flag\n       first = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Zero diagnostic arrays so that we don't have leftover values\n    ! from previous timesteps hanging around at the top of the chemgrid\n    !========================================================================\n    CALL carbon_ZeroDiagArrays( State_Diag )\n\n    !========================================================================\n    ! Read chemical inputs (oxidant fields, concentrations) via HEMCO\n    !========================================================================\n    CALL ReadChemInputFields(                                                &\n         Input_Opt     = Input_Opt,                                          &\n         State_Grid    = State_Grid,                                         &\n         State_Met     = State_Met,                                          &\n         Global_OH     = Global_OH,                                          &\n         Global_Cl     = Global_Cl,                                          &\n         LCH4_in_Strat = LCH4_in_Strat,                                      &\n         LCO_in_Strat  = LCO_in_Strat,                                       &\n         PCO_in_Strat  = PCO_in_Strat,                                       &\n         PCO_fr_CH4    = PCO_fr_CH4,                                         &\n         PCO_fr_NMVOC  = PCO_fr_NMVOC,                                       &\n         RC            = RC                                                  )\n\n    !========================================================================\n    ! Compute OH diurnal cycle scaling factor\n    ! (this scales OH by the position of the sun, and zeroes it at night)\n    !\n    ! OH is only needed when CH4 or CO are included in the carbon species\n    !========================================================================\n    IF ( id_CH4_adv > 0 .or. id_CO_adv > 0 ) THEN\n       CALL Calc_Diurnal(                                                    &\n            State_Grid   = State_Grid,                                       &\n            State_Met    = State_Met,                                        &\n            OHdiurnalFac = OHdiurnalFac                                     )\n\n       !========================================================================\n       ! HISTORY: Diagnostic archival of OH [molec/cm3]\n       !========================================================================\n       IF ( State_Diag%Archive_OHconcAfterChem ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Archive OH if we are in the chemistry grid [molec/cm3]\n             IF ( State_Met%InChemGrid(I,J,L) ) THEN\n                IF ( State_Diag%Archive_OHconcAfterChem ) THEN\n                   State_Diag%OHconcAfterChem(I,J,L) = Global_OH(I,J,L)         &\n                                                     * OHdiurnalFac(I,J)\n                ENDIF\n             ENDIF\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n       ENDIF\n    ENDIF\n\n    ! Do not call KPP if neither CH4 or CO are advected species\n    IF ( id_CH4_adv > 0 .or. id_CO_adv > 0 ) THEN\n\n       !=====================================================================\n       ! Main chemistry loop -- call KPP to integrate the mechanism forward\n       !=====================================================================\n\n       ! KPP forward-Euler integrator settings\n       ICNTRL     =  0\n       ICNTRL(1)  =  1   ! Verbose error output\n       ICNTRL(2)  =  0   ! Stop model on negative values\n       ICNTRL(15) = -1   ! Do not call Update_SUN, Update_RCONST w/in integrator\n\n       ! Set a flag to denote if the chemistry failed\n       failed     = .FALSE.\n\n       ! Loop over grid boxes\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( I, J, L, N, timeBefore, timeAfter                     )&\n       !$OMP COLLAPSE( 3                                                    )&\n       !$OMP SCHEDULE( DYNAMIC, 24                                          )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Initialize PRIVATE and THREADPRIVATE loop variables\n          C              = 0.0_dp                    ! Species conc. [molec/cm3]\n          CFACTOR        = 1.0_dp                    ! Not used, set = 1\n          k_Strat        = 0.0_dp                    ! Rate in stratosphere[1/s]\n          k_Trop         = 0.0_dp                    ! Rate in troposphere [1/s]\n          NUMDEN         = State_Met%AIRNUMDEN(I,J,L)! Air density [molec/cm3]\n          TROP           = 0.0_dp                    ! Toggle for reaction\n          TEMP           = State_Met%T(I,J,L)        ! Temperature [K]\n          INV_TEMP       = 1.0_dp / TEMP             ! 1/T  term for equations\n          TEMP_OVER_K300 = TEMP / 300.0_dp           ! T/300 term for equations\n          K300_OVER_TEMP = 300.0_dp / TEMP           ! 300/T term for equations\n          SUNCOS         = State_Met%SUNCOSmid(I,J)  ! Cos(SZA) ) [1]\n          timeBefore     = 0.0_fp\n          timeAfter      = 0.0_fp\n\n          !==================================================================\n          ! Convert species to molec/cm3 for the KPP solver\n          !==================================================================\n          CALL carbon_ConvertKgtoMolecCm3(                                   &\n               I          = I,                                               &\n               J          = J,                                               &\n               L          = L,                                               &\n               State_Met  = State_Met,                                       &\n               State_Chm  = State_Chm                                       )\n\n          !==================================================================\n          ! Update reaction rates\n          !==================================================================\n\n          ! Start measuring KPP-related routine timing for this grid box\n          IF ( State_Diag%Archive_KppTime ) THEN\n             CALL CPU_Time( timeBefore )\n          ENDIF\n\n          ! Compute the rate constants that will be used\n          CALL carbon_ComputeRateConstants(                                  &\n               I                = I,                                         &\n               J                = J,                                         &\n               L                = L,                                         &\n               dtChem           = dtChem,                                    &\n               ConcClMnd        = Global_Cl(I,J,L),                          &\n               ConcOHmnd        = Global_OH(I,J,L),                          &\n               LCH4_in_Strat    = LCH4_in_Strat(I,J,L),                      &\n               LCO_in_Strat     = LCO_in_Strat(I,J,L),                       &\n               OHdiurnalFac     = OHdiurnalFac(I,J),                         &\n               PCO_in_Strat     = PCO_in_Strat(I,J,L),                       &\n               PCO_fr_CH4_use   = Input_Opt%LPCO_CH4,                        &\n               PCO_fr_CH4       = PCO_fr_CH4(I,J,L),                         &\n               PCO_fr_NMVOC_use = Input_Opt%LPCO_NMVOC,                      &\n               PCO_fr_NMVOC     = PCO_fr_NMVOC(I,J,L),                       &\n               State_Met        = State_Met,                                 &\n               State_Chm        = State_Chm                                 )\n\n          ! Update the array of rate constants for the KPP solver\n          CALL Update_RCONST()\n\n          !==================================================================\n          ! Call the KPP integrator\n          !==================================================================\n\n          ! Integrate the mechanism forward in time\n          CALL Integrate(                                                    &\n               TIN      = 0.0_dp,                                            &\n               TOUT     = dtChem,                                            &\n               ICNTRL_U = ICNTRL,                                            &\n               IERR_U   = IERR                                              )\n\n          ! Trap potential errors\n          IF ( IERR /= 1 ) failed = .TRUE.\n\n          ! Start measuring KPP-related routine timing for this grid box\n          IF ( State_Diag%Archive_KppTime ) THEN\n             CALL CPU_Time( timeAfter )\n          ENDIF\n\n          !==================================================================\n          ! HISTORY: Update diags for KPP statistics + reaction rates\n          !==================================================================\n          CALL carbon_UpdateKppDiags(                                        &\n               I          = I,                                               &\n               J          = J,                                               &\n               L          = L,                                               &\n               ISTATUS    = ISTATUS,                                         &\n               timeBefore = timeBefore,                                      &\n               timeAfter  = timeAfter,                                       &\n               State_Diag = State_Diag                                      )\n\n          !==================================================================\n          ! Convert species back to kg\n          !==================================================================\n          CALL carbon_ConvertMolecCm3ToKg(                                   &\n               I            = I,                                             &\n               J            = J,                                             &\n               L            = L,                                             &\n               State_Chm    = State_Chm,                                     &\n               State_Met    = State_Met                                     )\n\n          !==================================================================\n          ! HISTORY: Production and loss of CO\n          !\n          ! NOTE: Call functions in KPP/carbon/carbon_Funcs.F90 so\n          ! that we avoid bringing in KPP species indices into this module.\n          ! This avoids compile-time dependency errors.\n          !==================================================================\n      \n          ! Production of CO from CH4\n          IF ( State_Diag%Archive_ProdCOfromCH4 ) THEN\n             State_Diag%ProdCOfromCH4(I,J,L) =                               &\n                  carbon_Get_COfromCH4_Flux( dtChem )\n          ENDIF\n\n          ! Units: [kg/s] Production of CO from NMVOCs\n          IF ( State_Diag%Archive_ProdCOfromNMVOC ) THEN\n             State_Diag%ProdCOfromNMVOC(I,J,L) =                             &\n                  carbon_Get_COfromNMVOC_Flux( dtChem )\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       !=====================================================================\n       ! Exit with error if the integration failed\n       ! (we cannot do this from within the parallel loop)\n       !=====================================================================\n       IF ( failed ) THEN\n          errMsg = 'KPP integration failed!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    ! Free pointers for safety's sake\n    Spc => NULL()\n\n  END SUBROUTINE Chem_Carbon_Gases\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ReadChemInputFields\n!\n! !DESCRIPTION: Calls HCO_EvalFld to read the various oxidant and other\n!  non-emissions fields needed for the carbon simulation\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ReadChemInputFields( Input_Opt,    State_Grid,   State_Met,     &\n                                  Global_OH,    Global_Cl,    LCH4_in_Strat, &\n                                  LCO_in_Strat, PCO_in_Strat, PCO_fr_CH4,    &\n                                  PCO_fr_NMVOC, RC                          )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt        ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid       ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met        ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: Global_OH(                                &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! OH conc\n    REAL(fp),       INTENT(OUT) :: Global_Cl(                                &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! Cl conc\n    REAL(fp),       INTENT(OUT) :: LCH4_in_Strat(                            &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! L(CH4) in strat\n    REAL(fp),       INTENT(OUT) :: LCO_in_Strat(                             &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! L(CO) in strat\n    REAL(fp),       INTENT(OUT) :: PCO_in_Strat(                             &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! P(CO) in strat\n    REAL(fp),       INTENT(OUT) :: PCO_fr_CH4(                               &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! P(CO) from CH4\n    REAL(fp),       INTENT(OUT) :: PCO_fr_NMVOC(                             &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Grid%NZ)  ! P(CO) from NMVOC\n    INTEGER,        INTENT(OUT) :: RC               ! Success/failure\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found\n\n    ! Strings\n    CHARACTER(LEN=63)  :: dgnName\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    !  ReadChemInputFields begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    found   = .FALSE.\n    dgnName = ''\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ReadInputChemFields (in module GeosCore/carbon_gases_mod.F90)'\n\n    ! Initialize fields to zero\n    Global_OH     = 0.0_fp\n    Global_Cl     = 0.0_fp\n    LCH4_in_Strat = 0.0_fp\n    LCO_in_Strat  = 0.0_fp\n    PCO_in_Strat  = 0.0_fp\n    PCO_fr_CH4    = 0.0_fp\n    PCO_fr_NMVOC  = 0.0_fp\n\n    ! Fields only needed if CH4 is an advected species\n    IF ( id_CH4_adv > 0 ) THEN\n\n       !------------------------------------------------------------------------\n       ! Loss frequencies of CH4\n       ! Input via HEMCO (\"CH4_LOSS\" container) as [1/s]\n       !------------------------------------------------------------------------\n       DgnName = 'CH4_LOSS'\n       CALL HCO_GC_EvalFld( Input_Opt,     State_Grid, DgnName,              &\n                            LCH4_in_Strat, RC,         found=found          )\n       IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n          errMsg = 'Cannot get pointer to HEMCO field ' // TRIM( DgnName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !------------------------------------------------------------------------\n       ! Cl concentration:\n       ! Input via HEMCO (\"SpeciesConc\" collection) as [mol/mol dry]\n       ! Convert to [molec/cm3] below\n       !------------------------------------------------------------------------\n\n       DgnName = 'GLOBAL_Cl'\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, DgnName,                  &\n                            Global_Cl, RC,         found=found              )\n       IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n          errMsg = 'Cannot get pointer to HEMCO field ' // TRIM( DgnName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Convert orignal units [mol/mol dry air] to [molec/cm3]\n       Global_Cl = ( Global_Cl * State_Met%AirDen ) * toMolecCm3\n\n    ENDIF\n\n    ! Fields only needed if CH4 or CO are advected species\n    IF ( id_CH4_adv > 0 .or. id_CO_adv > 0 ) THEN\n\n       !------------------------------------------------------------------------\n       ! OH concentration: from GEOS-Chem v5 or GEOS-Chem 10yr benchmark\n       !------------------------------------------------------------------------\n\n       IF ( useGlobOHv5 .or. useGlobOHbmk10yr ) THEN\n\n          ! NOTE: Container name is GLOBAL_OH for both data sets!\n          DgnName = 'GLOBAL_OH'\n          CALL HCO_GC_EvalFld( Input_Opt, State_Grid, DgnName,               &\n                               Global_OH, RC,         found=found           )\n          IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n             errMsg = 'Cannot get pointer to HEMCO field ' // TRIM( DgnName )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       ! If we are using OH from recent a 10-year benchmark (\"SpeciesConc\")\n       ! then convert OH [mol/mol dry air] to [molec/cm3].\n       IF ( useGlobOHbmk10yr ) THEN\n          Global_OH = ( Global_OH * State_Met%AirDen ) * toMolecCm3\n       ENDIF\n\n       ! If we are using Global_OH from GEOS-Chem v5 (e.g. for the IMI or\n       ! methane simulations) then convert OH from [kg/m3] to [molec/cm3].\n       IF ( useGlobOHv5 ) THEN\n          Global_OH = Global_OH * xnumol_OH / CM3perM3\n       ENDIF\n\n    ENDIF\n\n    ! Fields only needed if CO is an advected species\n    IF ( id_CO_adv > 0 ) THEN\n\n       !---------------------------------------------------------------------\n       ! P(CO) from GMI:\n       ! Input via HEMCO (\"GMI_PROD_CO\" field) as [v/v/s]\n       ! Units will be converted in carbon_ComputeRateConstants\n       !---------------------------------------------------------------------\n       DgnName = 'GMI_PROD_CO'\n       CALL HCO_GC_EvalFld( Input_Opt,    State_Grid, DgnName,               &\n                            PCO_in_Strat, RC,         found=found           )\n       IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n          errMsg = 'Cannot get pointer to ' // TRIM( DgnName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! L(CO) from GMI\n       ! Input via HEMCO (\"GMI_LOSS_CO\" field) as [1/s]\n       !---------------------------------------------------------------------\n       DgnName = 'GMI_LOSS_CO'\n       CALL HCO_GC_EvalFld( Input_Opt,    State_Grid, DgnName,               &\n                            LCO_in_Strat, RC,         found=found           )\n       IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n          errMsg = 'Cannot get pointer to HEMCO field ' // TRIM( DgnName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! P(CO) from CH4\n       ! Input via HEMCO (\"ProdCOfromCH4 field\") as [molec/cm3/s]\n       !---------------------------------------------------------------------\n       IF ( Input_Opt%LPCO_CH4 ) THEN\n          DgnName = 'PCO_CH4'\n          CALL HCO_GC_EvalFld( Input_Opt,  State_Grid, DgnName,              &\n                               PCO_fr_CH4, RC,         found=found          )\n          IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n             errMsg = 'Cannot get pointer to HEMCO field ' // TRIM( DgnName )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! P(CO) from NMVOC\n       ! Input via HEMCO (\"ProdCOfromNMVOC\" field) as [molec/cm3/s]\n       !---------------------------------------------------------------------\n       IF ( Input_Opt%LPCO_NMVOC ) THEN\n          DgnName = 'PCO_NMVOC'\n          CALL HCO_GC_EvalFld( Input_Opt,    State_Grid, DgnName,            &\n                               PCO_fr_NMVOC, RC,         found=found        )\n          IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n             errMsg = 'Cannot get pointer to HEMCO field ' // TRIM( DgnName )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE ReadChemInputFields\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_carbon_gases\n!\n! !DESCRIPTION: Allocates and zeroes module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Carbon_Gases( Input_Opt,  State_Chm, State_Diag,             &\n                                State_Grid, RC                                )\n!\n! !USES:\n!\n    USE carbon_Funcs,   ONLY : carbon_InitCarbonKPPFuncs\n    USE gckpp_Global,   ONLY : SR_MW, HENRY_CR, HENRY_K0\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState, Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine is called from GC_INIT_EXTRA (in GeosCore/input_mod.f)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: KppId,  N\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg\n    CHARACTER(LEN=255) :: thisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC         = GC_SUCCESS\n    xnumol_CH4 = 1.0_fp\n    xnumol_CO  = 1.0_fp\n    xnumol_CO2 = 1.0_fp\n    xnumol_OH  = 1.0_fp\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_Carbon_Gases (in module GeosCore/carbon_gases_mod.F90)'\n\n    !========================================================================\n    ! Define GEOS-Chem species indices\n    !\n    ! Also denote which species are advected to facilitate single-tracer runs\n    !========================================================================\n    id_CH4        = Ind_( 'CH4'        )\n    id_CH4_adv    = Ind_( 'CH4',   'A' )\n    id_CO         = Ind_( 'CO'         )\n    id_CO_adv     = Ind_( 'CO',    'A' )\n    id_CO2        = Ind_( 'CO2'        )\n    id_CO2_adv    = Ind_( 'CO2',   'A' )\n    id_OCS        = Ind_( 'OCS'        )\n    id_OCS_adv    = Ind_( 'OCS',   'A' )\n    id_OH         = Ind_( 'FixedOH'    )\n\n    ! Define xnumol factors = molec/kg ratios\n    ! These are useful in unit conversions\n    IF ( id_CH4 > 0 ) &\n       xnumol_CH4 = AVO / ( State_Chm%SpcData(id_CH4)%Info%MW_g * 1.0e-3_fp )\n    IF ( id_CO  > 0 ) &\n       xnumol_CO  = AVO / ( State_Chm%SpcData(id_CO )%Info%MW_g * 1.0e-3_fp )\n    IF ( id_CO2 > 0 ) &\n       xnumol_CO2 = AVO / ( State_Chm%SpcData(id_CO2)%Info%MW_g * 1.0e-3_fp )\n    IF ( id_OH  > 0 ) &\n       xnumol_OH  = AVO / ( State_Chm%SpcData(id_OH )%Info%MW_g * 1.0e-3_fp )\n\n    !========================================================================\n    ! Initialize module variables in carbon_Funcs (in KPP)\n    !========================================================================\n    IF ( (id_CH4 > 0) .OR. (id_CO > 0) ) THEN\n       CALL carbon_InitCarbonKPPFuncs( xnumol_CH4, xnumol_CO, xnumol_CO2, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Cannot initialize module variables in carbon_InitCarbonChem'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Initialize variables for COchemistry\n    !========================================================================\n    ALLOCATE( sumOfCosSza( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'carbon_gases_mod.F90:sumOfCosSza', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    sumOfCosSza = 0.0_fp\n\n  END SUBROUTINE Init_Carbon_Gases\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_carbon_gases\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_GLOBAL\\_CH4 deallocates module arrays.\n!  (bmy, 1/16/01)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Carbon_Gases( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE carbon_Funcs,   ONLY : carbon_CleanupCarbonKPPFuncs\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !=================================================================\n    ! Cleanup_Carbon_Gases begins here!\n    !=================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    IF ( ALLOCATED( sumOfCosSza ) ) THEN\n       DEALLOCATE( sumOfCosSza, STAT=RC )\n       CALL GC_CheckVar( 'carbon_gases_mod.F90:sumOfCosSza', 2, RC )\n    ENDIF\n\n    CALL carbon_CleanupCarbonKPPFuncs( RC )\n\n  END SUBROUTINE Cleanup_Carbon_Gases\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_diurnal\n!\n! !DESCRIPTION: Subroutine CALC\\_DIRUNAL computes the sume of the cosine\n!  of the solar zenith angle over a 24 hour day as well as the total\n!  length of daylight to scale the offline OH concentrations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Diurnal( State_Grid, State_Met, OHdiurnalFac )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : ITS_A_NEW_DAY\n    USE TIME_MOD,       ONLY : GET_MINUTE,    GET_SECOND,      GET_HOUR\n    USE TIME_MOD,       ONLY : GET_TS_CHEM,   GET_DAY_OF_YEAR, GET_LOCALTIME\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid        ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met         ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: OHdiurnalFac(                             &\n                                    State_Grid%NX,                           &\n                                    State_Grid%NY)   ! OH diurnal scaling [1]\n!\n! !REVISION HISTORY:\n!  12 Mar 2014 - J. Fisher - Initial version, Copied from OHNO3TIME in\n!                            carbon_mod and COSSZA in dao_mod\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n\n    ! Scalars\n    INTEGER            :: I, J, N, NDYSTEP\n    INTEGER            :: SECOND,  MINUTE, TS_SUN\n    REAL*8             :: GMT_MID, TIMLOC, FACTOR\n    REAL*8             :: R,       AHR,    DEC\n    REAL*8             :: YMID_R,  SUNTMP_MID\n    REAL*8             :: dtChem,  timestepsPerDay\n!\n! !DEFINED PARAMETERS:\n!\n    ! Coefficients for solar declination angle\n    REAL*8,  PARAMETER :: A0 = 0.006918d0\n    REAL*8,  PARAMETER :: A1 = 0.399912d0\n    REAL*8,  PARAMETER :: A2 = 0.006758d0\n    REAL*8,  PARAMETER :: A3 = 0.002697d0\n    REAL*8,  PARAMETER :: B1 = 0.070257d0\n    REAL*8,  PARAMETER :: B2 = 0.000907d0\n    REAL*8,  PARAMETER :: B3 = 0.000148d0\n\n    !=================================================================\n    ! CALC_DIURNAL begins here!\n    !=================================================================\n\n    ! Only do at the start of a new day\n    IF ( FIRST .or. ITS_A_NEW_DAY() ) THEN\n\n       ! Zero array\n       sumOfCosSza = 0d0\n\n       ! Get time for central chemistry timestep\n       TS_SUN = GET_TS_CHEM()                     ! Chemistry interval\n       SECOND = GET_SECOND()                      ! Current seconds\n       MINUTE = GET_MINUTE()                      ! Current minutes\n       FACTOR = ( MINUTE * 60 + SECOND ) / TS_SUN ! Multiplying factor\n\n       ! GMT at the midpoint of the chemistry time interval for first\n       ! timestep of the day\n       GMT_MID  = ( DBLE( GET_HOUR()        )        ) &\n                + ( DBLE( TS_SUN * FACTOR ) / 3600d0 ) &\n                + ( DBLE( TS_SUN / 2      ) / 3600d0 )\n\n       ! Solar declination angle (low precision formula):\n       ! Path length of earth's orbit traversed since Jan 1 [radians]\n       R = ( 2d0 * PI / 365d0 ) * FLOAT( GET_DAY_OF_YEAR() - 1 )\n       DEC = A0 - A1*COS(    R) + B1*SIN(    R) &\n                - A2*COS(2d0*R) + B2*SIN(2d0*R) &\n                - A3*COS(3d0*R) + B3*SIN(3d0*R)\n\n       ! NDYSTEP is # of chemistry time steps\n       NDYSTEP = INT( 24d0 * 3600d0 / GET_TS_CHEM() )\n\n       ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n       DO N = 1, NDYSTEP\n\n          ! Increment GMT (hours) to midpoint of next timestep\n          IF ( N > 1 ) GMT_MID = GMT_MID + TS_SUN / 3600d0\n\n          ! Loop over surface grid boxes\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, YMID_R, TIMLOC, AHR, SUNTMP_MID              )&\n          !$OMP COLLAPSE( 2                                                 )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Zero SUNTMP_MID\n             SUNTMP_MID = 0d0\n\n             ! Grid box latitude center [radians]\n             YMID_R = State_Grid%YMid_R(I,J)\n\n             ! Local time at box (I,J) [hours]\n             TIMLOC = GET_LOCALTIME( I, J, 1, State_Grid, GMT=GMT_MID)\n\n             ! Hour angle at box (I,J) [radians]\n             AHR = ABS( TIMLOC - 12d0 ) * 15d00 * PI_180\n\n             !===========================================================\n             ! The cosine of the solar zenith angle (SZA) is given by:\n             !\n             !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n             !\n             ! where LAT = the latitude angle,\n             !       DEC = the solar declination angle,\n             !       AHR = the hour angle, all in radians.\n             !\n             ! If SUNCOS < 0, then the sun is below the horizon, and\n             ! therefore does not contribute to any solar heating.\n             !===========================================================\n\n             ! Compute Cos(SZA)\n             SUNTMP_MID = sin(YMID_R) * sin(DEC) + &\n                          cos(YMID_R) * cos(DEC) * cos(AHR)\n\n             ! sumOfCosSza is the sum of SUNTMP_MID at location (I,J)\n             ! Do not include negative values of SUNTMP_MID\n             sumOfCosSza(I,J) = sumOfCosSza(I,J) + MAX( SUNTMP_MID, 0d0 )\n\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n       ENDDO\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Calculate the OH diurnal scaling factor\n    !========================================================================\n\n    ! Chemistry timestep [s] and timesteps per day\n    dtChem          = GET_TS_CHEM()\n    timestepsPerDay = 86400.0_fp / dtChem\n\n    ! Loop over surface grid boxes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J                                                     )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize loop variables\n       OHdiurnalFac(I,J) = 0.0_fp\n\n       ! Scaling factor for OH diurnal cycles - zero at night\n       IF ( State_Met%SUNCOSmid(I,J) > 0.0_fp  .and.                         &\n            sumOfCosSza(I,J)         > 0.0_fp ) THEN\n          OHdiurnalFac(I,J) = State_Met%SUNCOSmid(I,J)                       &\n                            / sumOfCosSza(I,J)                               &\n                            * timestepsPerDay\n       ENDIF\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE Calc_Diurnal\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: InquireGlobalOHversion\n!\n! !DESCRIPTION: Determines if we are using global OH from a GEOS-Chem 10-year\n!  benchmark, or from GEOS-Chem v5 (needed for IMI & methane simulations).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE InquireGlobalOHversion( Input_Opt, RC )\n!\n! !USES:\n!\n    USE CharPak_Mod,          ONLY : To_UpperCase\n    USE ErrCode_Mod\n    USE Hco_Utilities_Gc_Mod, ONLY : HCO_GC_GetOption\n    USE Input_Opt_Mod,        ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC   ! Success or failure\n!\n! !REMARKS:\n!  This has to be called on the first chemistry timestep, because the HEMCO\n!  Configuration file (HEMCO_Config.rc) will not have been read when\n!  Init_Carbon_Gases is called.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: isOHon, isOHv5on\n\n    ! Strings\n    CHARACTER(LEN=255) :: optVal\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! InquireGlobalOHversion begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    errMsg   = ''\n    thisLoc  = &\n     ' -> at InquireGlobalOHversion (in module GeosCore/carbon_gases_mod.F90)'\n\n    ! Test if any Global OH option is on\n    ! NOTE: Update the option name with each major version!!!\n    optVal   = HCO_GC_GetOption( \"GLOBAL_OH_GC14\", extNr=0 )\n    isOHon   = ( To_UpperCase( TRIM( optVal ) ) == 'TRUE' )\n\n    ! Test for GEOS-Chem v5 OH\n    ! =T\n    optVal   = HCO_GC_GetOption( \"GLOBAL_OH_GCv5\", extNr=0 )\n    isOHv5On = ( To_UpperCase( TRIM( optVal ) ) == 'TRUE' )\n\n    ! Set a global variable to determine which OH to use\n    useGlobOHbmk10yr = isOHon\n    useGlobOHv5      = isOHv5on\n\n    IF ( Input_Opt%amIRoot ) THEN\n       IF ( useGlobOHv5 .or. useGlobOHbmk10yr ) THEN\n          IF ( useGlobOHbmk10yr ) WRITE( 6, 100 ) 'GLOBAL_OH_GC14'\n          IF ( useGlobOHv5      ) WRITE( 6, 100 ) 'GLOBAL_OH_GCv5'\n 100      FORMAT( 'Carbon_Gases: Using global OH oxidant field option: ', a )\n       ELSE\n          WRITE( 6, 110 )\n 110      FORMAT( 'Carbon_Gases: Global OH is set to zero!' )\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE InquireGlobalOHversion\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_ZeroDiagArrays\n!\n! !DESCRIPTION: Zeroes diagnostic archival arrays to make sure that we\n!  don't have any leftover values from the last timestep near the top of\n!  the chemistry grid.  This was abstracted out of Chem_Carbon_Gases\n!  in order to reduce clutter.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_ZeroDiagArrays( State_Diag )\n!\n! !USES:\n!\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostic State object\n!\n! !REVISION HISTORY:\n!  06 May 2025 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !========================================================================\n    ! carbon_ZeroDiagArrays begins here!\n    !========================================================================\n\n    IF ( State_Diag%Archive_OHconcAfterChem ) THEN\n       State_Diag%OHconcAfterChem = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_Loss ) THEN\n       State_Diag%Loss = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdCOfromCH4 ) THEN\n       State_Diag%ProdCOfromCH4 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdCOfromNMVOC ) THEN\n       State_Diag%ProdCOfromNMVOC = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_RxnRate ) THEN\n       State_Diag%RxnRate = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_RxnConst ) THEN\n       State_Diag%RxnConst = 0.0_f4\n    ENDIF\n\n\n  END SUBROUTINE carbon_ZeroDiagArrays\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_UpdateKppDiags\n!\n! !DESCRIPTION: Updates History diagnostic arrays for KPP reaction rates,\n!  rate constants, and solver statistics.  This was abstracted out of\n!  routine Chem_Carbon_gases to reduce clutter.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_UpdateKppDiags( I,         J,          L,                &\n                                    ISTATUS,   timeBefore, timeAfter,        &\n                                    State_Diag                              )\n!\n! !USES:\n!\n    USE gckpp_Global,     ONLY : C,      RCONST\n    USE gckpp_Function,   ONLY : Fun\n    USE gckpp_Parameters, ONLY : NREACT, NSPEC,  NVAR\n    USE gckpp_Precision\n    USE State_Diag_Mod,   ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box indices\n    INTEGER,        INTENT(IN)    :: ISTATUS(20)  ! KPP input options\n    REAL(f4),       INTENT(IN)    :: timeBefore   ! Time before rates + integ\n    REAL(f4),       INTENT(IN)    :: timeAfter    ! Time after  rates + integ\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostic State object\n!\n! !REVISION HISTORY:\n!  06 May 2025 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n\n    ! Scalars\n    INTEGER  :: N, S\n\n    ! Arrays\n    REAL(dp) :: Aout(NREACT)\n    REAL(dp) :: Vloc(NVAR)\n\n    !========================================================================\n    ! HISTORY: Archive KPP solver diagnostics\n    !\n    ! NOTE: If using the default Forward Euler (feuler) integrator, many of\n    ! these diagnostics will not have much variation as there is no internal\n    ! timestepping loop. But  But we will leave this here to facilitate\n    ! testing of other integrators, if so desired.\n    !========================================================================\n    IF ( State_Diag%Archive_KppDiags ) THEN\n\n       ! # of integrator calls\n       IF ( State_Diag%Archive_KppIntCounts ) THEN\n          State_Diag%KppIntCounts(I,J,L) = ISTATUS(1)\n       ENDIF\n\n       ! # of times Jacobian was constructed\n       IF ( State_Diag%Archive_KppJacCounts ) THEN\n          State_Diag%KppJacCounts(I,J,L) = ISTATUS(2)\n       ENDIF\n\n       ! # of internal timesteps\n       IF ( State_Diag%Archive_KppTotSteps ) THEN\n          State_Diag%KppTotSteps(I,J,L) = ISTATUS(3)\n       ENDIF\n\n       ! # of accepted internal timesteps\n       IF ( State_Diag%Archive_KppAccSteps ) THEN\n          State_Diag%KppAccSteps(I,J,L) = ISTATUS(4)\n       ENDIF\n\n       ! # of rejected internal timesteps\n       IF ( State_Diag%Archive_KppRejSteps ) THEN\n          State_Diag%KppRejSteps(I,J,L) = ISTATUS(5)\n       ENDIF\n\n       ! # of LU-decompositions\n       IF ( State_Diag%Archive_KppLuDecomps ) THEN\n          State_Diag%KppLuDecomps(I,J,L) = ISTATUS(6)\n       ENDIF\n\n       ! # of forward and backwards substitutions\n       IF ( State_Diag%Archive_KppSubsts ) THEN\n          State_Diag%KppSubsts(I,J,L) = ISTATUS(7)\n       ENDIF\n\n       ! # of singular-matrix decompositions\n       IF ( State_Diag%Archive_KppSmDecomps ) THEN\n          State_Diag%KppSmDecomps(I,J,L) = ISTATUS(8)\n       ENDIF\n\n       ! # of singular-matrix decompositions\n       IF ( State_Diag%Archive_KppTime ) THEN\n          State_Diag%KppTime(I,J,L) = timeAfter - timeBefore\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! HISTORY: Archive KPP reaction rates [molec cm-3 s-1]\n    !\n    ! See gckpp_Monitor.F90 for a list of chemical reactions\n    !========================================================================\n    IF ( State_Diag%Archive_RxnRate                                     .or. &\n         State_Diag%Archive_SatDiagnRxnRate                           ) THEN\n\n       ! Get equation rates (Aout)\n       CALL Fun( V    = C(1:NVAR),                                           &\n                 F    = C(NVAR+1:NSPEC),                                     &\n                 RCT  = RCONST,                                              &\n                 Vdot = Vloc,                                                &\n                 Aout = Aout                                                )\n\n       ! Archive the RxnRate diagnostic collection\n       IF ( State_Diag%Archive_RxnRate ) THEN\n          DO S = 1, State_Diag%Map_RxnRate%nSlots\n             N = State_Diag%Map_RxnRate%slot2Id(S)\n             State_Diag%RxnRate(I,J,L,S) = Aout(N)\n          ENDDO\n       ENDIF\n\n       ! Archive the SatDiagnRxnRate diagnostic collection\n       IF ( State_Diag%Archive_SatDiagnRxnRate ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnRxnRate%nSlots\n             N = State_Diag%Map_SatDiagnRxnRate%slot2Id(S)\n             State_Diag%SatDiagnRxnRate(I,J,L,S) = Aout(N)\n          ENDDO\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! HISTORY: Archive KPP reaction rate constants (RCONST).\n    !\n    ! The units vary.  They are already updated in Update_RCONST,\n    ! and do not require a call of Fun(). (hplin, 3/28/23)\n    !\n    ! See gckpp_Monitor.F90 for a list of chemical reactions\n    !========================================================================\n    IF ( State_Diag%Archive_RxnConst ) THEN\n       DO S = 1, State_Diag%Map_RxnConst%nSlots\n          N = State_Diag%Map_RxnConst%slot2Id(S)\n          State_Diag%RxnConst(I,J,L,S) = RCONST(N)\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE carbon_UpdateKppDiags\n!EOC\nEND MODULE Carbon_Gases_Mod\n"
  },
  {
    "path": "GeosCore/carbon_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: carbon_mod.F90\n!\n! !DESCRIPTION: Module CARBON\\_MOD contains arrays and routines for performing\n!  a carbonaceous aerosol simulation.  Original code taken from Mian Chin's\n!  GOCART model and modified accordingly. (rjp, bmy, 4/2/04, 6/30/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE CARBON_MOD\n!\n! !USES:\n!\n  USE PhysConstants     ! Physical constants\n  USE PRECISION_MOD     ! For GEOS-Chem Precisions\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CHEMCARBON\n  PUBLIC  :: EMISSCARBON\n  PUBLIC  :: CLEANUP_CARBON\n  PUBLIC  :: INIT_CARBON\n#ifdef TOMAS\n  PUBLIC  :: EMISSCARBONTOMAS\n#endif\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! SOAupdate: for branching ratio diagnostic (hotp 5/24/10)\n  PUBLIC :: BETANOSAVE\n!\n! !REMARKS:\n!  4 Aerosol species : Organic and Black carbon\n!                    : hydrophilic (soluble) and hydrophobic of each\n!                                                                             .\n!  For secondary organic aerosol (SOA) simulation orginal code developed\n!  by Chung and Seinfeld [2002] and Hong Liao from John Seinfeld's group\n!  at Caltech was taken and further modified accordingly (rjp, bmy, 7/15/04)\n!                                                                             .\n!  SOAupdate: Traditional SOA simulation updated by hotp 7/2010\n!    New code treats semivolatile or nonvolatile POA, aerosol from IVOCs,\n!      and has updated biogenic SOA\n!    For more details on the updated SOA/POA simulation, see comments\n!      in SOA_CHEMISTRY, Pye and Seinfeld ACP 2010, Pye et al. in prep\n!      for ACP 2010\n!    Note that modifications were made throughout the code for SOAupdate\n!                                                                             .\n!  References:\n!  ============================================================================\n!  (1 ) Bond, T.C., E. Bhardwaj, R. Dong, R. Jogani, S. Jung, C. Roden, D.G.\n!        Streets, and N.M. Trautmann, \"Historical emissions of black and\n!        organic carbon aerosol from energy-related combustion, 1850-2000\",\n!        Global Biogeochem. Cycles, 21, GB2018, doi:10.1029/2006GB002840, 2007.\n!  (2 ) Chan, A.W.H., K.E. Kautzman, P.S. Chhabra, J.D. Surratt, M.N. Chan,\n!        J.D. Crounse, A. Kurten, P.O. Wennberg, R.C. Flagan, and J.H.\n!        Seinfeld, \"Secondary orgainc aerosol formation from photooxidation of\n!        naphthlene and alkylnaphthalenes: implications for oxidation of\n!        intermediate volatility orgainc compounds (IVOCs)\", Atmos. Chem. Phys,\n!        Vol 9, 3049-3060, doi:10.5194/acp-9-3049-2009, 2009.\n!  (3 ) Chung, S.H., and J.H. Seinfeld. \"Global distribution and climate\n!        forcing of carbonaceous aerosols\", J. Geophys. Res., Vol 107(D19),\n!        4407, doi:10.1029/2001JD001397, 2002.\n!  (4 ) Grieshop, A.P., J.M. Logue, N.M. Donahue, and A.L. Robinson,\n!        \"Laboratory investigation of photochemical oxidation of organic\n!        aerosol deom wood fires 1: Measurement and simulation of organic\n!        aerosol evolution\", Atmos. Chem. Phys., Vol 9, 1263-1277,\n!        doi:10.5194/acp-9-1263-2009, 2009.\n!  (5 ) Griffin, R.J., D.R. Cocker, R.C. Flagan, and J.H. Seinfeld, \"Orgainc\n!        aerosol formation from the oxidation of biogenic hydrocarbons\", J.\n!        Geophys. Res., 104(D3), 3555-3567, 1999.\n!  (6 ) Henze, D.K., and J.H. Seinfeld, \"Global secondary organic aerosol from\n!        isoprene oxidation\", Geophys. Res. Lett., Vol 33, L09812,\n!        doi:10.1029/2006GL025976, 2006.\n!  (7 ) Henze, D.K., J.H. Seinfeld, N.L. Ng, J.H. Kroll, T.-M. Fu, D.J. Jacob,\n!        and C.L. Heald, \"Global modeling of secondary orgainc aerosol\n!        formation from aromatic hydrocarbons: high vs. low-yield pathways\",\n!        Atmos. Chem. Phys., Vol 8, 2405-2420, doi:10.5194/acp-8-2405-2008,\n!        2008.\n!  (8 ) Kroll, J.H., N.L. Ng, S.M. Murphy, R.C. Flagan, and J.H. Seinfeld,\n!        \"Secondary orgainc aerosol formation from isoprene photooxidation\",\n!        Environ. Sci. Technol, Vol 40, 1869-1877, doi:10.1021/Es0524301, 2006.\n!  (9 ) Liao, H., D.K. Henze, J.H. Seinfeld, S.L Wu, and L.J. Mickley,\n!        \"Biogenic secondary aerosol over the United States: Comparison of\n!        climatological simulations with observations, J. Geophys. Res. Vol\n!        112, D06201, doi:10.1029/2006JD007813, 2007.\n!  (10) Ng, N.L., P.S. Chhabra, A.W.H. Chan, J.D. Surratt, J.H. Kroll, A.J.\n!        Kwan, D.C. McCabe, P.O. Wennberg, A. Sorooshian, S.M. Murphy, N.F.\n!        Dalleska, R.C. Flagan, and J.H. Seinfeld, \"Effect of NOx level on\n!        secondary orgainc aerosol (SOA) formation from the photooxidation of\n!        terpenes\", Atmos. Chem. Phys., Vol 7, 5159-5174,\n!        doi:10.5194/acp-7-5195-2007, 2007a.\n!  (11) Ng, N.L., J.H. Kroll, A.W.H. Chan, P.S. Chhabra, R.C. Flagan, and J.H.\n!        Seinfeld, \"Secondary orgainc aerosol formation from m-xylene, toluele,\n!        and benzene\", Atmos. Chem. Phys., Vol 7, 3909-3922,\n!        doi:10.5194/acp-7-3909-2007, 2007b.\n!  (12) Ng, N.L., A.J. Kwan, J.D. Surratt, A.W.H. Chan, P.S. Chhabra, A.\n!        Sorooshian, H.O.T. Pye, J.D. Crounse, P.O. Wennberg, R.C. Flagan, and\n!        J.H. Seinfeld, \"Secondary organic aerosol (SOA) formation from\n!        reaction of isoprene with nitrate radicals (NO3)\", Atmos. Chem. Phys.,\n!        Vol 8, 4117-4140, doi:10.5194/acp-8-4117-2008, 2008.\n!  (13) Pye, H.O.T., and J.H. Seinfeld, \"A global perspective on aesorol from\n!        low-volatility orgnaic compounds\", Atmos. Chem. Phys., Vol 10, 4377-\n!        4401, doi:10.5194/acp-10-4377-2010, 2010.\n!  (14) Pye. H.O.T., A.W.H Chan, M.P. Barkley, and J.H. Seinfeld, \"Global\n!        modeling of organic aerosol: The importance of reactive nitrogen (NOx\n!        and NO3)\", Atmos. Chem. Phys., Vol 10, 11261-11276,\n!        doi:10.5194/acp-10-11261-2010, 2010.spc(\n!  (15) Shilling, J.E., Q. Chen, S.M. King, T. Rosenoern, J.H. Kroll, D.R.\n!        Worsnop, K.A. McKinney, S.T., Martin, \"Particle mass yield in\n!        secondary orgainc aerosol formed by the dark ozonolysis of a-pinene\",\n!        Atmos Chem Phys, Vol 8, 2073-2088, doi: 10.5194/acp-8-2073-2008, 2008.\n!  (16) Shrivastava, M.K., E.M. Lipsky, C.O. Stanier, A.L. Robinson, \"Modeling\n!       semivolatile organic mass emissions from combustion systems\", Environ.\n!       Sci. Technol., Vol 40, 2671-2677, doi:10.1021/ES0522231, 2006.\n!  (17) Zhang, J.Y., K.E.H. Hartz, S.N. Pandis, N.M. Donahue, \"Secondary\n!        organic aerosol formation from limonene ozonolysis: Homogeneous and\n!        heterogeneous influences as a function of NOx\", J. Phys. Chem. A, Vol\n!        110, 11053-11063, doi:10.1021/Jp06286f, 2006.\n!                                                                             .\n!      Base Year is 2000. More at http://www.hiwater.org\n!\n! !REVISION HISTORY:\n!  01 Apr 1994 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  REAL(fp), PARAMETER   :: CM3PERM3   = 1.e+6_fp\n\n  ! SOAupdate:(hotp 5/20/10) new mtp\n  ! one parent HC removed (only 3 instead of 4 monoterps)\n  ! all monoterp and sesquiterp SOA lumped together\n  ! NOX: now used to indicate high NOx (1),\n  !      low NOx(2), and +NO3 (3) so MNOX is 3\n  ! PROD: indicates # of volatilities/products\n  INTEGER,  PARAMETER   :: MHC        = 11 ! max # HCs\n  INTEGER,  PARAMETER   :: MSV        = 5  ! max # lumped semivols\n  INTEGER,  PARAMETER   :: MPROD      = 4  ! max # volatility products\n  INTEGER,  PARAMETER   :: MNOX       = 3  ! max # NOx levels/oxidants\n\n  REAL(fp), PARAMETER   :: SMALLNUM   = 1e-20_fp\n\n  ! Indicate number of parent HC based on simulation species\n  ! (hotp 8/24/09)\n  !INTEGER, SAVE        :: MAXSIMHC\n  ! Now loop over number of semivolatiles (hotp 5/13/10)\n  INTEGER,  SAVE        :: MAXSIMSV\n\n  ! Identify parent hydrocarbon by numbers (hotp 5/12/10)\n  INTEGER,  PARAMETER   :: PARENTMTPA = 1  ! bicyclic monoterpenes\n  INTEGER,  PARAMETER   :: PARENTLIMO = 2  ! limonene\n  INTEGER,  PARAMETER   :: PARENTMTPO = 3  ! other monoterpenes\n  INTEGER,  PARAMETER   :: PARENTSESQ = 4  ! sesquiterpenes\n  INTEGER,  PARAMETER   :: PARENTISOP = 5  ! isoprene\n  INTEGER,  PARAMETER   :: PARENTBENZ = 6  ! aromatic benzene\n  INTEGER,  PARAMETER   :: PARENTTOLU = 7  ! aromatic toluene\n  INTEGER,  PARAMETER   :: PARENTXYLE = 8  ! aromatic xylene\n  INTEGER,  PARAMETER   :: PARENTPOA  = 9  ! SVOCs (primary SVOCs)\n  INTEGER,  PARAMETER   :: PARENTOPOA = 10 ! oxidized SVOCs (secondary SVOCs)\n  INTEGER,  PARAMETER   :: PARENTNAP  = 11 ! IVOC surrogate (naphthalene)\n  ! if NAP isn't last, check CHEM_NVOC\n\n  ! NOx levels (oxidants) examined (hotp 5/13/10)\n  INTEGER,  PARAMETER   :: NHIGHNOX   = 1  ! R + OH, RO2 + NO\n  INTEGER,  PARAMETER   :: NLOWNOX    = 2  ! R + OH, RO2 + HO2\n  INTEGER,  PARAMETER   :: NNO3RXN    = 3  ! R + NO3\n  INTEGER,  PARAMETER   :: NONLYNOX   = 1  ! R + any oxidant\n!\n! !LOCAL VARIABLES:\n!\n  ! Scalars\n  ! Rate constant for RO2+NO and RO2+HO2\n  ! k=Aexp(B/T) like globchem.dat (hotp 5/7/10)\n  REAL(fp)              :: AARO2NO,  BBRO2NO\n  REAL(fp)              :: AARO2HO2, BBRO2HO2\n\n  ! Arrays\n  INTEGER               :: NPROD(MSV) !hotp 5/13/10 now MSV not MHC\n  INTEGER               :: NNOX(MSV)  !hotp 5/13/10\n  ! now only 4 offline oxidations (hotp 5/20/10)\n  REAL(fp)              :: KO3_REF(4), KOH_REF(4), KNO3_REF(4)\n  ! KOM_REF now has dims of MPROD, MSV (hotp 5/22/10)\n  REAL(fp)              :: KOM_REF(MPROD,MSV)\n  REAL(fp)              :: ALPHA(MNOX,MPROD,MHC)\n\n  ! Array for mapping parent HC to semivolatiles (SV) (hotp 5/14/10)\n  INTEGER               :: IDSV(MHC)\n\n  ! Diagnostic that tracks how much parent HC reacts\n  ! with each allowed reactant (hotp 5/24/10)\n  REAL(fp)              :: DELTAHCSAVE(MNOX,MHC)\n\n  REAL(fp), ALLOCATABLE :: BCCONV(:,:,:)\n  REAL(fp), ALLOCATABLE :: OCCONV(:,:,:)\n  REAL(fp), ALLOCATABLE :: TCOSZ(:,:)\n  REAL(fp), ALLOCATABLE :: GLOB_DARO2(:,:,:,:,:) ! Diagnostic (dkh, 11/10/06)\n\n#ifdef TOMAS\n  REAL(fp), ALLOCATABLE, TARGET :: BCFF(:,:,:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCFF(:,:,:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: BCBF(:,:,:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCBF(:,:,:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: BCBB(:,:,:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCBB(:,:,:,:)\n\n  REAL(fp), ALLOCATABLE, TARGET :: BCPI_ANTH_BULK(:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: BCPO_ANTH_BULK(:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCPI_ANTH_BULK(:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCPO_ANTH_BULK(:,:)\n\n  REAL(fp), ALLOCATABLE, TARGET :: BCPI_BIOB_BULK(:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: BCPO_BIOB_BULK(:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCPI_BIOB_BULK(:,:)\n  REAL(fp), ALLOCATABLE, TARGET :: OCPO_BIOB_BULK(:,:)\n\n  REAL(fp), ALLOCATABLE :: TERP_ORGC(:,:)\n  REAL(fp), ALLOCATABLE :: CO_ANTH(:,:)\n#endif\n\n  ! Diagnostic that tracks how much SOA is formed/evaporated\n  ! (hotp 6/5/10)\n  REAL(fp), ALLOCATABLE :: SPECSOAPROD(:,:,:,:,:)\n  REAL(fp), ALLOCATABLE :: SPECSOAEVAP(:,:,:,:,:)\n\n  ! semivolpoa4: diagnostic to keep track of POG reacted (hotp 3/27/09)\n  REAL(fp), SAVE, ALLOCATABLE :: GLOB_POGRXN(:,:,:,:)\n\n  ! diagnostic added for RO2 branching ratio (hotp 5/24/10)\n  REAL(fp), SAVE, ALLOCATABLE :: BETANOSAVE(:,:,:)\n\n  ! semivolpoa2: array for POA emissions (hotp 2/27/09)\n  REAL(fp), SAVE, ALLOCATABLE :: POAEMISS(:,:,:,:)\n\n  ! Array for initial OA+OG (hotp 5/17/10)\n  ! Diagnostic only, dims: I,J,L,MPROD,MSV (hotp 5/22/10)\n  REAL(fp), SAVE, ALLOCATABLE :: OAGINITSAVE(:,:,:,:,:)\n\n  ! Array for change in SOG (diagnostic) (hotp 5/17/10)\n  ! dims: I,J,L,MNOX,MHC\n  REAL(fp), SAVE, ALLOCATABLE :: DELTASOGSAVE(:,:,:,:,:)\n\n  ! Days per month (based on 1998)\n  INTEGER :: NDAYS(12) = (/ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 /)\n\n  ! Offline fields contained in the HEMCO data structure\n  REAL(fp), ALLOCATABLE :: OFFLINE_O3(:,:,:)\n  REAL(fp), ALLOCATABLE :: OFFLINE_OH(:,:,:)\n  REAL(fp), ALLOCATABLE :: OFFLINE_NO3(:,:,:)\n\n  ! Species ID flags\n  INTEGER :: id_ASOG1,   id_ASOG2,  id_ASOG3,  id_ASOA1,  id_ASOA2\n  INTEGER :: id_ASOA3,   id_ASOAN,  id_AW01,   id_BCPI,   id_BCPO\n  INTEGER :: id_BENZ,    id_ECIL01, id_ECOB01, id_HO2\n  INTEGER :: id_ISOP,    id_LIMO,   id_MTPA\n  INTEGER :: id_MTPO,    id_NAP,    id_NK01,   id_NH4,    id_NO\n  INTEGER :: id_NO3,     id_OCIL01, id_OCOB01, id_O3,     id_OH\n  INTEGER :: id_OCPO,    id_OCPI,   id_OPOA1,  id_OPOG1,  id_OPOA2\n  INTEGER :: id_OPOG2,   id_POA1,   id_POA2,   id_POG1,   id_POG2\n  INTEGER :: id_TOLU,    id_TSOA0,  id_TSOA1\n  INTEGER :: id_TSOA2,   id_TSOA3,  id_TSOG0,  id_TSOG1,  id_TSOG2\n  INTEGER :: id_TSOG3,   id_XYLE,   id_LBRO2N, id_LBRO2H, id_LTRO2N\n  INTEGER :: id_LTRO2H,  id_LXRO2N, id_LXRO2H, id_LNRO2N, id_LNRO2H\n  INTEGER :: id_LISOPOH, id_LISOPNO3\n  INTEGER :: id_SOAS,    id_SOAP\n\n#ifdef APM\n  REAL(fp), ALLOCATABLE :: BCCONVNEW(:,:,:)\n  REAL(fp), ALLOCATABLE :: OCCONVNEW(:,:,:)\n#endif\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chemcarbon\n!\n! !DESCRIPTION: Subroutine CHEMCARBON is the interface between the GEOS-Chem\n!  main program and the carbon aerosol chemistry routines that calculates dry\n!  deposition, chemical conversion between hydrophilic and hydrophobic, and\n!  SOA production.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEMCARBON( Input_Opt,  State_Chm, State_Diag, &\n                         State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : DEBUG_MSG\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE HCO_State_GC_Mod,   ONLY : HcoState                      ! APM: for HEMCO diags\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : ITS_A_NEW_MONTH\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n#ifdef APM\n    USE APM_INIT_MOD,         ONLY : APMIDS\n    USE APM_INIT_MOD,         ONLY : NBCOC,CEMITBCOC1\n    USE HCO_DIAGN_MOD\n    USE HCO_TYPES_MOD,        ONLY : DiagnCont\n    USE HCO_STATE_MOD,        ONLY : HCO_GetHcoID\n#endif\n#ifdef TOMAS\n    USE TOMAS_MOD,            ONLY : SOACOND\n    USE TOMAS_MOD,            ONLY : CHECKMN\n    USE PRESSURE_MOD,         ONLY : GET_PCENTER\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  01 Apr 1994 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVED scalars\n    LOGICAL, SAVE      :: FIRSTCHEM = .TRUE.\n\n    ! Scalars\n    LOGICAL            :: IT_IS_AN_AEROSOL_SIM\n    LOGICAL            :: LSOA\n    LOGICAL            :: LEMIS\n    LOGICAL            :: FND\n    REAL(fp)           :: NEWSOA\n    REAL(fp)           :: DTCHEM, SOAP_LIFETIME  ! [=] seconds\n    REAL(fp)           :: CONC_SUM\n    INTEGER            :: L\n\n#ifdef TOMAS\n    INTEGER            :: I, J\n    REAL*4             :: BOXVOL, TEMPTMS, PRES, BOXMASS\n#endif\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n\n    ! For getting fields from HEMCO\n    CHARACTER(LEN=255) :: LOC = 'CHEMCARBON (carbon_mod.F90)'\n    CHARACTER(LEN=255) :: ErrMsg\n\n#ifdef APM\n    TYPE(DiagnCont), POINTER :: DiagnCnt\n    INTEGER            :: FLAG,I,J,N,IDCARBON\n    REAL(fp)           :: A_M2, E_CARBON, DTSRCE\n    REAL(fp)           :: EMITRATE(State_Grid%NX,State_Grid%NY)\n#endif\n\n    !=================================================================\n    ! CHEMCARBON begins here!\n    !=================================================================\n\n    ! Assume success\n    RC                   = GC_SUCCESS\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    LSOA                 = Input_Opt%LSOA\n    LEMIS                = Input_Opt%DoEmissions\n    IT_IS_AN_AEROSOL_SIM = Input_Opt%ITS_AN_AEROSOL_SIM\n\n    DTCHEM               = GET_TS_CHEM()\n    !                      ( days )*(hrs/day)*(mins/hr)*(sec/min)\n    SOAP_LIFETIME        = 1.00_fp * 24.0_fp * 60.0_fp * 60.0_fp\n\n    ! Point to chemical species vector containing concentrations\n    Spc                  => State_Chm%Species\n\n    ! First-time initialization\n    IF ( FIRSTCHEM ) THEN\n\n       ! Zero SOG4 and SOA4 (SOA from ISOP in gas & aerosol form)\n       ! for offline aerosol simulations.  Eventually we should have\n       ! archived isoprene oxidation fields available for offline\n       ! simulations but for now we just set them to zero.\n       ! (dkh, bmy, 6/1/06)\n       IF ( IT_IS_AN_AEROSOL_SIM ) THEN\n\n          ! lumped arom/IVOC (hotp 5/17/10)\n          ! LUMPAROMIVOC: lump arom/IVOC not supported for offline sims\n          IF ( id_ASOAN > 0 ) Spc(id_ASOAN)%Conc(:,:,:) = 0.0_fp\n          IF ( id_ASOA1 > 0 ) Spc(id_ASOA1)%Conc(:,:,:) = 0.0_fp\n          IF ( id_ASOA2 > 0 ) Spc(id_ASOA2)%Conc(:,:,:) = 0.0_fp\n          IF ( id_ASOA3 > 0 ) Spc(id_ASOA3)%Conc(:,:,:) = 0.0_fp\n          IF ( id_ASOG1 > 0 ) Spc(id_ASOG1)%Conc(:,:,:) = 0.0_fp\n          IF ( id_ASOG2 > 0 ) Spc(id_ASOG2)%Conc(:,:,:) = 0.0_fp\n          IF ( id_ASOG3 > 0 ) Spc(id_ASOG3)%Conc(:,:,:) = 0.0_fp\n\n\n          ! initialize SOA Precursor and SOA for simplified SOA sims\n          IF ( id_SOAP > 0 ) THEN\n             Spc(id_SOAP)%Conc(:,:,:) = 0e+0_fp\n             Spc(id_SOAS)%Conc(:,:,:) = 0e+0_fp\n          ENDIF\n\n       ENDIF\n\n       ! Determine number of semivolatile parent HC (hotp 8/24/09)\n       !MAXSIMHC = 0 ! for non-volatile sim\n       ! Now use SV instead of HC (hotp 5/13/10)\n       MAXSIMSV = 0\n       IF ( LSOA ) THEN\n          ! updated (hotp 5/20/10) new mtp\n          MAXSIMSV = 3  ! mono+sesq (1) + isop (2) + aromatics (3)\n          IF ( id_POA1  > 0 ) MAXSIMSV = MAXSIMSV + 1\n          IF ( id_OPOA1 > 0 ) MAXSIMSV = MAXSIMSV + 1\n          IF ( MAXSIMSV > MSV ) THEN\n             CALL ERROR_STOP('YOUVE GOT A PROBLEM W/ SEMIVOLATILES', &\n                             'carbon_mod.F90')\n          ENDIF\n\n          ! Print to log for record\n          IF ( Input_Opt%Verbose ) THEN\n             print*,'Number of SOA semivols (MAXSIMSV): ', MAXSIMSV\n             print*,'This number should be 5 for semivol POA' ! hotp 5/20/10\n          ENDIF\n       ENDIF\n\n       ! Reset first-time flag\n       FIRSTCHEM = .FALSE.\n\n    ENDIF\n\n    ! Evaluate offline fields from HEMCO every timestep to allow\n    ! optional use of scaling or masking in HEMCO configuration file\n    IF ( IT_IS_AN_AEROSOL_SIM .AND. LSOA ) THEN\n\n       ! Evaluate offline oxidant fields from HEMCO: global OH\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_OH', OFFLINE_OH, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find offline GLOBAL_OH in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, LOC )\n          RETURN\n       ENDIF\n\n       ! Evaluate offline oxidant fields from HEMCO: global O3\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_O3', OFFLINE_O3, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find offline GLOBAL_O3 in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, LOC )\n          RETURN\n       ENDIF\n\n       ! Evaluate offline oxidant fields from HEMCO: global NO3\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_NO3', OFFLINE_NO3, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find offline GLOBAL_NO3 in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, LOC )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !=================================================================\n    ! Do chemistry for carbon aerosol species\n    !=================================================================\n\n    ! Chemistry for hydrophobic BC\n    IF ( id_BCPO > 0 ) THEN\n       CALL CHEM_BCPO( Input_Opt  = Input_Opt,                               &\n                       State_Chm  = State_Chm,                               &\n                       State_Diag = State_Diag,                              &\n                       State_Grid = State_Grid,                              &\n                       spcId      = id_BCPO,                                 &\n                       RC         = RC                                      )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMCARBON: a CHEM_BCPO' )\n       ENDIF\n    ENDIF\n\n    ! Chemistry for hydrophilic BC\n    IF ( id_BCPI > 0 ) THEN\n       CALL CHEM_BCPI( Input_Opt  = Input_Opt,                               &\n                       State_Chm  = State_Chm,                               &\n                       State_Diag = State_Diag,                              &\n                       State_Grid = State_Grid,                              &\n                       spcId      = id_BCPI,                                 &\n                       RC         = RC                                      )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMCARBON: a CHEM_BCPI' )\n       ENDIF\n    ENDIF\n\n    ! Chemistry for hydrophobic OC (traditional POA only)\n    IF ( id_OCPO > 0 ) THEN\n       CALL CHEM_OCPO( Input_Opt  = Input_Opt,                               &\n                       State_Chm  = State_Chm,                               &\n                       State_Diag = State_Diag,                              &\n                       State_Grid = State_Grid,                              &\n                       spcId      = id_OCPO,                                 &\n                       RC         = RC                                      )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMCARBON: a CHEM_OCPO' )\n       ENDIF\n    ENDIF\n\n    ! Chemistry for hydrophilic OC (traditional POA only)\n    IF ( id_OCPI > 0 ) THEN\n       CALL CHEM_OCPI( Input_Opt  = Input_Opt,                               &\n                       State_Chm  = State_Chm,                               &\n                       State_Diag = State_Diag,                              &\n                       State_Grid = State_Grid,                              &\n                       spcId      = id_OCPI,                                 &\n                       RC         = RC                                      )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMCARBON: a CHEM_OCPI' )\n       ENDIF\n    ENDIF\n\n#ifdef APM\n    !=====================================================================\n    ! APM Microphysics\n    !=====================================================================\n    CALL BCDRY_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n\n    CALL OCDRY_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n\n    IF ( ( id_BCPO+id_BCPI ) > 2 )THEN\n\n       ! Get biomass BCPO diagnostics from HEMCO\n       DiagnCnt => NULL()\n       CALL Diagn_Get( HcoState, .FALSE., DiagnCnt, &\n                       FLAG,  RC, cName='BIOMASS_BCPO',        &\n                       AutoFill=1,                             &\n                       COL=HcoState%Diagn%HcoDiagnIDManual )\n\n       ! Add into EMITRATE array (or set to zero if not found)\n       IF ( FLAG == GC_SUCCESS ) THEN\n          EMITRATE = DiagnCnt%Arr2D%Val\n       ELSE\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( 6, ' (a)' )'APM not found BIOMASS_BCPO'\n          ENDIF\n          EMITRATE = 0.0e+0_fp\n       ENDIF\n\n       ! Get anthropogenic BCPO diagnostics from HEMCO\n       DiagnCnt => NULL()\n       CALL Diagn_Get( HcoState, .FALSE., DiagnCnt, &\n                       FLAG,  RC, cName='ANTHROPOGENIC_BCPO',  &\n                       AutoFill=1,                             &\n                       COL=HcoState%Diagn%HcoDiagnIDManual )\n\n       IF ( FLAG==GC_SUCCESS ) THEN\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( J, I                                               )&\n          !$OMP COLLAPSE( 2                                                 )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             EMITRATE(I,J) = EMITRATE(I,J) + &\n                             SUM(DiagnCnt%Arr3D%Val(I,J,1:State_Grid%NZ))\n\n             IF( EMITRATE(I,J) > 0.0e+0_fp ) THEN\n                EMITRATE(I,J) = 1.0e+0_fp - &\n                                SUM(DiagnCnt%Arr3D%Val(I,J,:))/EMITRATE(I,J)\n             ELSE\n                EMITRATE(I,J) = 0.0e+0_fp\n             ENDIF\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n       ELSE\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( 6, '(a)' ) 'APM not found ANTHROPOGENIC_BCPO'\n          ENDIF\n          EMITRATE = 0.0e+0_fp\n       ENDIF\n\n       ! Emission timestep\n       DTSRCE = HcoState%TS_EMIS\n\n       IDCARBON   = HCO_GetHcoID( 'BCPO',   HcoState )\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( L, J, I, A_M2, E_CARBON, N                            )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Grid box surface area [m2]\n          A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n          ! Get emissions [kg/m2/s] and convert to [kg/box]\n          E_CARBON = HcoState%Spc(IDCARBON)%Emis%Val(I,J,L) * A_M2 * DTSRCE\n\n          ! Tell OpenMP to vectorize this loop\n          !$OMP SIMD\n          DO N = 1, NBCOC\n             Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) = &\n                Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L)+ &\n                E_CARBON*( &\n                (1.0e+0_fp-EMITRATE(I,J))*CEMITBCOC1(N,1)+ &\n                EMITRATE(I,J)*CEMITBCOC1(N,2))\n          ENDDO\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       IDCARBON   = HCO_GetHcoID( 'BCPI',   HcoState )\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( L, J, I, A_M2, E_CARBON, N                            )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Grid box surface area [m2]\n          A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n          ! Get emissions [kg/m2/s] and convert to [kg/box]\n          E_CARBON = HcoState%Spc(IDCARBON)%Emis%Val(I,J,L) * A_M2 * DTSRCE\n\n          ! Tell OpenMP to vectorize this loop\n          !$OMP SIMD\n          DO N = 1, NBCOC\n             Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L)= &\n                Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L)+ &\n                E_CARBON*( &\n                (1.0e+0_fp-EMITRATE(I,J))*CEMITBCOC1(N,1)+ &\n                EMITRATE(I,J)*CEMITBCOC1(N,2))\n          ENDDO\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !GanLuo add OCs\n    IF ( ( id_OCPO + id_OCPI ) > 2 ) THEN\n       ! Get diagnostics from HEMCO\n       DiagnCnt => NULL()\n       CALL Diagn_Get( HcoState, .FALSE., DiagnCnt, &\n                       FLAG,  RC, cName='BIOMASS_OCPO',        &\n                       AutoFill=1,                             &\n                       COL=HcoState%Diagn%HcoDiagnIDManual )\n\n       ! Add biomass OCPO diagnostic to EMITRATE (if it's found)\n       IF ( FLAG==GC_SUCCESS ) THEN\n          EMITRATE = DiagnCnt%Arr2D%Val\n       ELSE\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( 6, '(a)' )'APM not found BIOMASS_OCPO'\n          ENDIF\n          EMITRATE = 0.0e+0_fp\n       ENDIF\n\n       DiagnCnt => NULL()\n       CALL Diagn_Get( HcoState, .FALSE., DiagnCnt, &\n                       FLAG,  RC, cName='ANTHROPOGENIC_OCPO',  &\n                       AutoFill=1,                             &\n                       COL=HcoState%Diagn%HcoDiagnIDManual )\n\n       ! Add anthropogenic OCPO diagnostic to EMITRATE (if it's found)\n       IF(FLAG==GC_SUCCESS)THEN\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( J, I                                               )&\n          !$OMP COLLAPSE( 2                                                 )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             EMITRATE(I,J) = EMITRATE(I,J) + &\n                             SUM(DiagnCnt%Arr3D%Val(I,J,1:State_Grid%NZ))\n             IF(EMITRATE(I,J) > 0.0e+0_fp )THEN\n               EMITRATE(I,J) = 1.0e+0_fp- &\n                               SUM(DiagnCnt%Arr3D%Val(I,J,:))/EMITRATE(I,J)\n            ELSE\n               EMITRATE(I,J) = 0.0e+0_fp\n            ENDIF\n         ENDDO\n         ENDDO\n         !$OMP END PARALLEL DO\n      ELSE\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, '(a)' )'APM not found ANTHROPOGENIC_OCPO'\n         ENDIF\n         EMITRATE = 0.0e+0_fp\n      ENDIF\n\n      ! Emission timestep\n      DTSRCE = HcoState%TS_EMIS\n\n      IDCARBON   = HCO_GetHcoID( 'OCPO',   HcoState )\n      !$OMP PARALLEL DO                                                      &\n      !$OMP DEFAULT( SHARED                                                 )&\n      !$OMP PRIVATE( L, J, I, A_M2, E_CARBON, N                             )&\n      !$OMP COLLAPSE( 3                                                     )\n      DO L = 1, State_Grid%NZ\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n\n         ! Grid box surface area [m2]\n         A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n         ! Get emissions [kg/m2/s] and convert to [kg/box]\n         E_CARBON = HcoState%Spc(IDCARBON)%Emis%Val(I,J,L) * A_M2 * DTSRCE\n\n         ! Tell OpenMP to vectorize this loop\n         !$OMP SIMD\n         DO N=1,NBCOC\n            Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)= &\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)+ &\n               E_CARBON*( &\n               (1.0e+0_fp-EMITRATE(I,J))*CEMITBCOC1(N,1)+ &\n               EMITRATE(I,J)*CEMITBCOC1(N,2))\n         ENDDO\n      ENDDO\n      ENDDO\n      ENDDO\n      !$OMP END PARALLEL DO\n\n      IDCARBON   = HCO_GetHcoID( 'OCPI',   HcoState )\n      !$OMP PARALLEL DO                                                      &\n      !$OMP DEFAULT( SHARED                                                 )&\n      !$OMP PRIVATE( L, J, I, A_M2, E_CARBON, N                             )&\n      !$OMP COLLAPSE( 3                                                     )\n      DO L = 1, State_Grid%NZ\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n\n         ! Grid box surface area [m2]\n         A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n         ! Get emissions [kg/m2/s] and convert to [kg/box]\n         E_CARBON = HcoState%Spc(IDCARBON)%Emis%Val(I,J,L) * A_M2 * DTSRCE\n\n         ! Tell OpenMP to vectorize this loop\n         !$OMP SIMD\n         DO N=1,NBCOC\n            Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)= &\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)+ &\n               E_CARBON*( &\n               (1.D0-EMITRATE(I,J))*CEMITBCOC1(N,1)+ &\n               EMITRATE(I,J)*CEMITBCOC1(N,2))\n         ENDDO\n      ENDDO\n      ENDDO\n      ENDDO\n      !$OMP END PARALLEL DO\n   ENDIF\n\n   !do N= 1, 14\n   !   conc_sum = conc_sum + Spc(APMIDS%id_BCBIN1+N-1)%Conc(:,:,1)\n   !enddo\n   !write(*,'(a4,10e15.7)')'Luo1', &\n   ! (sum(Spc(id_BCPO)%conc(:,:,1))+sum(Spc(id_BCPI)%Conc(:,:,1))), conc_sum\n\n   IF( ( id_POG1 + id_POA1 ) > 2 )THEN\n      !$OMP PARALLEL DO                                                      &\n      !$OMP DEFAULT( SHARED                                                 )&\n      !$OMP PRIVATE( L, J, I, N                                             )&\n      !$OMP COLLAPSE( 3                                                     )\n      DO L = 1, State_Grid%NZ\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n\n         ! Tell OpenMP to vectorize this looop\n         !$OMP SIMD\n         DO N=1,NBCOC\n            Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)= &\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)+ &\n               POAEMISS(I,J,L,1)*0.9d0*CEMITBCOC1(N,1)\n         ENDDO\n      ENDDO\n      ENDDO\n      ENDDO\n      !$OMP END PARALLEL DO\n   ENDIF\n#endif\n\n#ifdef TOMAS\n   CALL CHECKMN( 0, 0, 0, Input_Opt, State_Chm, State_Grid, &\n                 State_Met, State_Diag,'CHECKMN from chemcarbon', RC)\n   ! Chemistry (aging) for size-resolved EC and OC (win, 1/25/10)\n   IF ( id_ECIL01 > 0 .and. id_ECOB01 > 0 ) THEN\n      CALL AGING_CARB( id_ECIL01, id_ECOB01, State_Grid, State_Chm )\n      IF ( Input_Opt%Verbose ) THEN\n         CALL DEBUG_MSG( '### CHEMCARBO: AGING_CARB EC' )\n      ENDIF\n   ENDIF\n   IF ( id_OCIL01 > 0 .and. id_OCOB01 > 0 ) THEN\n      CALL AGING_CARB( id_OCIL01, id_OCOB01, State_Grid, State_Chm )\n      IF ( Input_Opt%Verbose ) THEN\n         CALL DEBUG_MSG( '### CHEMCARBO: AGING_CARB OC' )\n      ENDIF\n   ENDIF\n#endif\n\n   IF ( id_SOAP > 0 ) THEN\n      ! AGE SOAP -> SOA\n\n#ifdef TOMAS\n      CALL CHECKMN( 0, 0, 0, Input_Opt, State_Chm, State_Grid, &\n                 State_Met, State_Diag,'CHECKMN from chemcarbon', RC)\n\n      !$OMP PARALLEL DO                                                      &\n      !$OMP DEFAULT( SHARED                                                 )&\n      !$OMP PRIVATE( I, J, L, NEWSOA, BOXVOL, TEMPTMS, PRES, BOXMASS        )&\n      !$OMP COLLAPSE( 3                                                     )\n      DO L = 1, State_Grid%NZ\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n         NEWSOA  = Spc(id_SOAP)%Conc(I,J,L) * (1.e+0_fp - DEXP(-DTCHEM/SOAP_LIFETIME))\n         BOXVOL  = State_Met%AIRVOL(I,J,L) * 1.e6 !convert from m3 -> cm3\n         BOXMASS  = State_Met%AD(I,J,L)  !kg\n         TEMPTMS = State_Met%T(I,J,L)\n         PRES    = GET_PCENTER(I,j,L)*100.0 ! in Pa\n         IF ( NEWSOA > 0.0e+0_fp ) THEN\n            !sfarina16: SOAP -> size Resolved TOMAS SOA\n            CALL SOACOND( NEWSOA, I, J, L, BOXVOL, TEMPTMS, PRES, BOXMASS, &\n                          State_Chm, State_Grid, State_Diag, RC)\n         ENDIF\n         Spc(id_SOAS)%Conc(I,J,L) = Spc(id_SOAS)%Conc(I,J,L) + NEWSOA\n         Spc(id_SOAP)%Conc(I,J,L) = Spc(id_SOAP)%Conc(I,J,L) - NEWSOA\n      ENDDO\n      ENDDO\n      ENDDO\n      !$OMP END PARALLEL DO\n#else\n      !$OMP PARALLEL DO                                                      &\n      !$OMP DEFAULT( SHARED                                                 )&\n      !$OMP PRIVATE( L, NEWSOA                                              )\n      DO L = 1, State_Grid%NZ\n         !NEWSOA used in a different context than above.\n         !above is absolute mass, here is a relative decay factor\n         NEWSOA = DEXP(-DTCHEM/SOAP_LIFETIME)\n         Spc(id_SOAS)%Conc(:,:,L) = Spc(id_SOAS)%Conc(:,:,L) + &\n                              Spc(id_SOAP)%Conc(:,:,L) * (1.0_fp - NEWSOA)\n         Spc(id_SOAP)%Conc(:,:,L) = Spc(id_SOAP)%Conc(:,:,L) * NEWSOA\n      ENDDO\n      !$OMP END PARALLEL DO\n#endif\n\n      IF ( Input_Opt%Verbose ) THEN\n         CALL DEBUG_MSG( '### CHEMCARBO: SIMPLIFIED SOA')\n      ENDIF\n   ENDIF\n\n   ! Free pointer\n   Spc => NULL()\n\n   !=================================================================\n   ! Do chemistry for secondary organic aerosols\n   !\n   ! %%% NOTE: We are not planning on using the SOA mechanism   %%%\n   ! %%% with the ESMF interface at this point. (bmy, 11/14/12) %%%\n   !=================================================================\n   IF ( LSOA ) THEN\n\n      IF ( IT_IS_AN_AEROSOL_SIM ) THEN\n\n         ! Compute time scaling arrays for offline OH, NO3\n         ! but only if it hasn't been done in EMISSCARBON\n         IF ( LSOA .and. ( .not. LEMIS ) ) THEN\n            CALL OHNO3TIME( State_Grid )\n            IF ( Input_Opt%Verbose ) THEN\n               CALL DEBUG_MSG( '### CHEMCARB: a OHNO3TIME' )\n            ENDIF\n         ENDIF\n\n      ENDIF\n\n      ! Compute SOA chemistry\n      ! NOTE: This is SOA production from the reversible mechanism only\n      ! (tmf, 12/07/07)\n      CALL SOA_CHEMISTRY( Input_Opt,  State_Chm, State_Diag, &\n                          State_Grid, State_Met, RC )\n\n      IF ( Input_Opt%Verbose ) THEN\n         CALL DEBUG_MSG( '### CHEMCARBON: a SOA_CHEM' )\n      ENDIF\n\n   ENDIF\n\n END SUBROUTINE CHEMCARBON\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_bcpo\n!\n! !DESCRIPTION: Subroutine CHEM\\_BCPO converts hydrophobic BC to hydrophilic\n!  BC and calculates the dry deposition of hydrophobic BC.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_BCPO( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, spcId,     RC                            )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n   INTEGER,        INTENT(IN)    :: spcId        ! BCPO species Id\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry state object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REMARKS:\n!  Drydep is now applied in mixing_mod.F90.\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER             :: I,      J,   L\n   REAL(fp)            :: DTCHEM, KBC, FREQ, TC0, CNEW, RKT\n\n   ! Pointers\n   REAL(fp), POINTER   :: TC(:,:,:)\n!\n! !DEFINED PARAMETERS:\n!\n   REAL(fp), PARAMETER :: BC_LIFE = 1.15e+0_fp\n\n   !=================================================================\n   ! CHEM_BCPO begins here!\n   !=================================================================\n\n   ! Assume success\n   RC        =  GC_SUCCESS\n\n   ! Initialize\n   KBC       =  1.e+0_fp / ( 86400e+0_fp * BC_LIFE )\n   DTCHEM    =  GET_TS_CHEM()\n   BCCONV    =  0e+0_fp\n   TC        => State_Chm%Species(spcId)%Conc\n\n   !=================================================================\n   ! For species with dry deposition, the loss rate of dry dep is\n   ! combined in chem loss term.\n   !\n   ! Conversion from hydrophobic to hydrophilic:\n   ! e-folding time 1.15 days\n   ! ----------------------------------------\n   ! Use an e-folding time of 1.15 days or a convertion rate\n   ! of 1.0e-5 /sec.\n   !\n   ! Hydrophobic(2) --> Hydrophilic(1) ,  k  = 1.0e-5\n   ! Both aerosols are dry-deposited,     kd = Dvel/DELZ (sec-1)\n   !=================================================================\n   !$OMP PARALLEL DO                                                         &\n   !$OMP DEFAULT( SHARED                                                    )&\n   !$OMP PRIVATE( I, J, L, TC0, FREQ, RKT, CNEW                             )&\n   !$OMP COLLAPSE( 3                                                        )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial BC mass [kg]\n      TC0  = TC(I,J,L)\n\n      ! Zero drydep freq\n      ! ### NOTE: Remove this later, but need to make\n      ! ### sure we don't incur numerical diffs (bmy, 6/12/15)\n      FREQ = 0e+0_fp\n\n      ! Amount of BCPO left after chemistry and drydep [kg]\n      RKT  = ( KBC + FREQ ) * DTCHEM\n      CNEW = TC0 * EXP( -RKT )\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Amount of BCPO converted to BCPI [kg/timestep]\n      BCCONV(I,J,L) = ( TC0 - CNEW ) * KBC / ( KBC + FREQ )\n\n      !==============================================================\n      ! HISTORY (aka netCDF diagnostics)\n      !\n      ! Archive production of hydrophilic black carbon (BCPI) from\n      ! hydrophobic black carbon (BCPO) [kg]\n      !\n      ! NOTE: Consider converting to area-independent units kg/m2/s.\n      !==============================================================\n      IF ( State_Diag%Archive_ProdBCPIfromBCPO ) THEN\n         State_Diag%ProdBCPIfromBCPO(I,J,L) = BcConv(I,J,L)\n      ENDIF\n\n      ! Store new concentration back into species array\n      TC(I,J,L) = CNEW\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Free pointer\n   TC => NULL()\n\n END SUBROUTINE CHEM_BCPO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_bcpi\n!\n! !DESCRIPTION: Subroutine CHEM\\_BCPI calculates dry deposition of\n!  hydrophilic BC.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_BCPI( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, spcId,     RC                            )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n   INTEGER,        INTENT(IN)    :: spcId        ! BCPI species Id\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry state object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REMARKS:\n!  Drydep is now applied in mixing_mod.F90.\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER  :: I,      J,      L\n   REAL(fp) :: L_FRAC, TC0, CNEW, CCV\n\n   ! Pointers\n   REAL(fp), POINTER :: TC(:,:,:)\n\n   !=================================================================\n   ! CHEM_BCPI begins here!\n   !=================================================================\n\n   ! Assume success\n   RC =  GC_SUCCESS\n   TC => State_Chm%Species(spcId)%Conc\n\n   !$OMP PARALLEL DO                                                         &\n   !$OMP DEFAULT( SHARED                                                    )&\n   !$OMP PRIVATE( I, J, L, TC0, CCV, CNEW                                   )&\n   !$OMP COLLAPSE( 3                                                        ) \n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial H-philic BC [kg]\n      TC0 = TC(I,J,L)\n\n      ! H-philic BC that used to be H-phobic BC [kg]\n      CCV = BCCONV(I,J,L)\n\n      ! Add the amount of converted BCPO to BCPI\n      CNEW = TC0 + CCV\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Save new concentration of H-philic IC in species array\n      TC(I,J,L) = CNEW\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   !=================================================================\n   ! Zero out the BCCONV array for the next iteration\n   !=================================================================\n   BCCONV = 0e+0_fp\n\n   TC => NULL()\n\n END SUBROUTINE CHEM_BCPI\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_ocpo\n!\n! !DESCRIPTION: Subroutine CHEM\\_OCPO converts hydrophobic OC to hydrophilic\n!  OC and calculates the dry deposition of hydrophobic OC.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_OCPO( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, spcId,     RC                            )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n   INTEGER,        INTENT(IN)    :: spcId        ! OCPO species Id\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry state object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER              :: I,      J,   L\n   REAL(fp)             :: DTCHEM, KOC, TC0, CNEW, RKT, FREQ\n\n   REAL(fp),  POINTER   :: TC(:,:,:)\n!\n! !DEFINED PARAMETERS:\n!\n   REAL(fp),  PARAMETER :: OC_LIFE = 1.15e+0_fp\n\n   !=================================================================\n   ! CHEM_OCPO begins here!\n   !=================================================================\n\n   ! Assume success\n   RC        =  GC_SUCCESS\n\n   ! Initialize\n   KOC       =  1.e+0_fp / ( 86400e+0_fp * OC_LIFE )\n   DTCHEM    =  GET_TS_CHEM()\n   OCCONV    =  0e+0_fp\n   TC        => State_Chm%Species(spcId)%Conc\n\n   !=================================================================\n   ! For species with dry deposition, the loss rate of dry dep is\n   ! combined in chem loss term.\n   !\n   ! Conversion from hydrophobic to hydrophilic:\n   ! e-folding time 1.15 days\n   ! ----------------------------------------\n   ! Use an e-folding time of 1.15 days or a convertion rate\n   ! of 1.0e-5 /sec.\n   !    Hydrophobic --> Hydrophilic,  k  = 1.0e-5\n   !    Aerosols are dry-deposited,   kd = dry dep freq (sec-1)\n   !=================================================================\n   !$OMP PARALLEL DO                                                         &\n   !$OMP DEFAULT( SHARED                                                    )&\n   !$OMP PRIVATE( I, J, L, TC0, FREQ, RKT, CNEW                             )&\n   !$OMP COLLAPSE( 3                                                        )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial OC [kg]\n      TC0  = TC(I,J,L)\n\n      ! Zero drydep freq\n      ! ### NOTE: Remove this later, but need to make\n      ! ### sure we don't incur numerical diffs (bmy, 6/12/15)\n      FREQ = 0e+0_fp\n\n      ! Amount of OCPO left after chemistry and drydep [kg]\n      RKT  = ( KOC + FREQ ) * DTCHEM\n      CNEW = TC0 * EXP( -RKT )\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Amount of OCPO converted to OCPI [kg/timestep]\n      OCCONV(I,J,L) = ( TC0 - CNEW ) * KOC / ( KOC + FREQ )\n\n      !=================================================================\n      ! HISTORY (aka netCDF diagnostics)\n      !\n      ! Archive production of hydrophilic organic carbon (OCPI) from\n      ! hydrophobic organic carbon (OCPO) [kg]\n      !\n      ! NOTE: Consider converting to area-independent units kg/m2/s.\n      !=================================================================\n      IF ( State_Diag%Archive_ProdOCPIfromOCPO ) THEN\n         State_Diag%ProdOCPIfromOCPO(I,J,L) = OcConv(I,J,L)\n      ENDIF\n\n      ! Store modified OC concentration back in species array\n      TC(I,J,L) = CNEW\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   TC => NULL()\n\n END SUBROUTINE CHEM_OCPO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_ocpi\n!\n! !DESCRIPTION: Subroutine CHEM\\_BCPI calculates dry deposition of\n!  hydrophilic OC.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_OCPI( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, spcId,     RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n   INTEGER,        INTENT(IN)    :: spcId        ! OCPO species Id\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry state object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER  :: I,   J,     L\n   REAL(fp) :: TC0, CNEW, CCV\n   \n   ! Pointers\n   REAL(fp), POINTER :: TC(:,:,:)\n\n   !=================================================================\n   ! CHEM_OCPI begins here!\n   !=================================================================\n\n   ! Assume success\n   RC =  GC_SUCCESS\n   TC => State_Chm%Species(spcId)%Conc\n\n   !$OMP PARALLEL DO                                                         &\n   !$OMP DEFAULT( SHARED                                                    )&\n   !$OMP PRIVATE( I, J, L, TC0, CCV, CNEW                                   )&\n   !$OMP COLLAPSE( 3                                                        )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial H-philic OC [kg]\n      TC0 = TC(I,J,L)\n\n      ! H-philic OC that used to be H-phobic OC [kg]\n      CCV = OCCONV(I,J,L)\n\n      ! Add the amount of converted OCPO to OCPI\n      CNEW = TC0 + CCV\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Store modified concentration back in species array [kg]\n      TC(I,J,L) = CNEW\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   !=================================================================\n   ! Zero OCCONV array for next timestep\n   !=================================================================\n   OCCONV = 0e+0_fp\n\n   TC => NULL()\n\n END SUBROUTINE CHEM_OCPI\n!EOC\n#ifdef TOMAS\n!-------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aging_carb\n!\n! !DESCRIPTION: Subroutine AGING\\_CARB converts the size-resolved hydrophobic\n!  EC or OC to hydrophilic EC or OC with an assumed e-folding time.\n!  (win, 9/11/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE AGING_CARB( id_MIL, id_MOB, State_Grid, State_Chm )\n!\n! !USES:\n!\n   USE Species_Mod,    ONLY : SpcConc\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TIME_MOD,       ONLY : GET_TS_CHEM    ! [=] second\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN) :: id_MIL\n   INTEGER,        INTENT(IN) :: id_MOB\n   TYPE(GrdState), INTENT(IN) :: State_Grid\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !REMARKS:\n!  11 Sep 2007 - W. Trivitayanurak - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER                :: I, J, L, N\n   REAL(fp)               :: DTCHEM\n   REAL(fp),  PARAMETER   :: TAU_HYDRO = 1.15e+0_fp  ! [=]day\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! AGING_CARB begins here!\n   !=================================================================\n\n   Spc => State_Chm%Species\n\n   DTCHEM = GET_TS_CHEM() / 3600e+0_fp / 24e+0_fp    ![=] day\n\n   DO N = 1, State_Chm%nTomasBins\n      Spc(id_MIL+N-1)%Conc(:,:,:) = Spc(id_MIL+N-1)%Conc(:,:,:)   &\n                                    + Spc(id_MOB+N-1)%Conc(:,:,:) &\n                                    * (1.e+0_fp - DEXP(-DTCHEM/TAU_HYDRO))\n      Spc(id_MOB+N-1)%Conc(:,:,:) = Spc(id_MOB+N-1)%Conc(:,:,:)   &\n                                    * (DEXP(-DTCHEM/TAU_HYDRO))\n   ENDDO\n\n   NULLIFY(Spc)\n\n END SUBROUTINE AGING_CARB\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soa_chemistry\n!\n! !DESCRIPTION: Subroutine SOA\\_CHEMISTRY performs SOA formation. This code is\n!  from the Caltech group (Hong Liao, Serena Chung, et al) and was modified for\n!  GEOS-CHEM. (rjp, bmy, 7/8/04, 12/21/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE SOA_CHEMISTRY( Input_Opt,  State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE ERROR_MOD,      ONLY : DEBUG_MSG\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE Species_Mod,    ONLY : SpcConc\n   USE State_Met_Mod,  ONLY : MetState\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Grid_Mod, ONLY : GrdState\n#ifdef APM\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE APM_INIT_MOD,   ONLY : NGCOND,NSO4,NSEA,NBCOC\n   USE APM_INIT_MOD,   ONLY : NCTSO4,NCTBC,NCTOC,NCTDST,NCTSEA\n#endif\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Procedure:\n!  ============================================================================\n!  (1 ) Read in NO3, O3, OH in CHEM_SOA\n!  (2 ) Scales these fields using OHNO3TIME in sulfate_mod.f (see GET_OH)\n!  (3 ) Calculate reaction rates (Serena's OCHEMPARAETER)\n!  (4 ) CALCULATE DELHC\n!  (5 ) get T0M gas products\n!  (6 ) equilibrium calculation\n!                                                                             .\n!  As of 5/20/10: Havala's New formulation\n!                                                                             .\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!  % FOR SEMIVOLATILE POA and IVOC (aka SOA_SVPOA) simulations:      %\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!  GEOS-Chem treats formation of aerosol from 11 parent hydrocarbons\n!  and oxidation by OH, O3, and NO3:\n!                                                                             .\n!  The parent hydrocarbons are lumped into 5 semivolatile systems:\n!  TSOA/G: the lumped semivolatile oxidation products of\n!          monoterpene and sesquiterpene oxidation\n!  ISOA/G: the lumped semivolatile oxidation products of isoprene ox\n!           (REMOVED IN GEOS-Chem 12.6.0, July 2019)\n!  ASOA/G: the lumped semivolatile (and nonvolatile) products of\n!          benzene, toluene, xylene, and naphthalene (IVOC surrogate)\n!          oxidation\n!  POA/G : the lumped primary semivolatile emissions\n!  OPOA/G: the lumped products of primary semivolatile oxidation\n!                                                                             .\n!  Parent HC      Oxidized by       Products\n!  =============  ================  ==================================\n!  MTPA           OH, O3, NO3       TSOA/G0-3\n!  LIMO           OH, O3, NO3       TSOA/G1-3\n!  MTPO           OH, O3, NO3       TSOA/G0-3\n!  SESQ           OH, O3, NO3       TSOA/G1-3\n!  ISOP           OH, NO3           ISOA/G1-3 (REMOVED IN 12.6.0, Jul 2019)\n!  BENZ           OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!  TOLU           OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!  XYLE           OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!  SVOC/POA       OH                POA/G1-2\n!  O-SVOC/OPOA    OH                OPOA/G1-2\n!  NAP            OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!                                                                             .\n!  Species that must be defined in geoschem_config.yml (in addition to standard\n!  full chem species) (34 additional):\n!  TSOA1      TSOG1      ASOA1      ASOG1\n!  TSOA2      TSOG2      ASOA2      ASOG2\n!  TSOA3      TSOG3      ASOA3      ASOG3\n!  ASOAN      TSOA0      TSOG0\n!  BENZ       TOLU       XYLE       MTPA       LIMO       MTPO\n!  NAP\n!  POA1       POG1       POA2       POG2\n!  OPOA1      OPOG1      OPOA2      OPOG2\n!                                                                             .\n!  The following should NOT be defined for semivol POA: OCPI, OCPO\n!                                                                             .\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!  % FOR NON-VOLATILE TRADITIONAL POA (aka SOA) simulations:         %\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!  GEOS-Chem treats formation of aerosol from 8 parent hydrocarbons\n!  and oxidation by OH, O3, and NO3:\n!                                                                             .\n!  Two non-volatile,traditional primary OC species exist:\n!  OCPO: hydrophobic POA\n!  OCPI: hydrophillic POA\n!                                                                             .\n!  The parent hydrocarbons are lumped into 3 semivolatile systems:\n!  TSOA/G: the lumped semivolatile oxidation products of\n!          monoterpene and sesquiterpene oxidation\n!  ISOA/G: the lumped semivolatile oxidation products of isoprene ox\n!           (REMOVED IN GEOS-Chem 12.6.0, July 2019)\n!  ASOA/G: the lumped semivolatile (and nonvolatile) products of\n!          benzene, toluene, and xylene oxidation\n!                                                                             .\n!  Parent HC      Oxidized by       Products\n!  =============  ================  ==================================\n!  MTPA           OH, O3, NO3       TSOA/G0-3\n!  LIMO           OH, O3, NO3       TSOA/G1-3\n!  MTPO           OH, O3, NO3       TSOA/G0-3\n!  SESQ           OH, O3, NO3       TSOA/G1-3\n!  ISOP           OH, NO3           ISOA/G1-3 (REMOVED IN 12.6.0, Jul 2019)\n!  BENZ           OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!  TOLU           OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!  XYLE           OH, (+NO,HO2)     ASOAN, ASOA/G1-3\n!                                                                             .\n!  Species that must be defined in geoschem_config.yml (in addition to standard\n!  full chem species) (25 additional):\n!  TSOA1      TSOG1      ASOA1      ASOG1\n!  TSOA2      TSOG2      ASOA2      ASOG2\n!  TSOA3      TSOG3      ASOA3      ASOG3\n!  ASOAN      TSOA0      TSOG0\n!  BENZ       TOLU       XYLE       MTPA       LIMO       MTPO\n!                                                                             .\n!  The following should NOT be defined for traditional POA:\n!     NAP, POA/G OPOA/G\n!                                                                             .\n!  References (see above for full citations):\n!  ===========================================================================\n!  Monoterpenes and sesquiterpenes:\n!    Experimental Data:\n!      Griffin et al. 1999 JGR      (sesquiterps low NOx)\n!      Shilling et al. 2008 ACP     (a-pinene ozonolysis for MTPO/MTPA)\n!      Zhang et al. 2006 JPhysChemA (limonene ozonolysis)\n!      Ng et al. 2007 ACP           (data for NOx effect on sesq aerosol)\n!    Modeling:\n!      Chung and Seinfeld 2002 JGR  (original formulation in GEOS-Chem)\n!      Liao et al. 2007 JGR         (comparison to measurements)\n!      Pye et al. in prep 2010      (new lumping scheme, NOx effect)\n!  Isoprene\n!      Kroll et al. 2006 ES&T       (low NOx experiments)\n!      Ng et al. 2008 ACP           (isoprene + NO3 experiments)\n!      Henze et al. 2006 GRL        (low NOx isoprene modeling in GEOS-Chem)\n!      Pye et al. in prep 2010      (new lumping scheme and isop+no3 modeling)\n!  Aromatics: benz, tolu, xyle\n!      Ng et al. 2007 ACP           (experiments)\n!      Henze et al. 2008 ACP        (global modeling)\n!  POA/OPOA\n!      Shrivastava et al. 2006 ES&T (POA experiments)\n!      Grieshop et al. 2009 ACP     (POA/SVOC oxidation experiments)\n!      Pye and Seinfeld 2010 ACP    (global modeling)\n!  IVOC/Naphthalene\n!      Chan et al. 2009 ACP         (experiments)\n!      Pye and Seinfeld 2010 ACP    (global modeling)\n!\n! !REVISION HISTORY:\n!  08 Jul 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   LOGICAL, SAVE   :: FIRST = .TRUE.\n   INTEGER         :: I,        J,        L,        N\n   ! no more NOx (hotp 5/22/10)\n   INTEGER         :: JHC,      IPR!,      NOX ! (dkh, 10/30/06)\n   INTEGER         :: JSV ! (hotp 5/13/10)\n   INTEGER         :: JSVPOA, JSVOPOA ! for diag (hotp 5/17/10)\n   REAL(fp)        :: RTEMP,    VOL,      FAC,      MPOC\n   REAL(fp)        :: MNEW,     MSOA_OLD, MPRODUCT, CAIR\n   REAL(fp)        :: LOWER,    UPPER,    TOL,      VALUE\n   REAL(fp)        :: KO3(MHC), KOH(MHC), KNO3(MHC)\n   REAL(fp)        :: KOM(MPROD,MSV)\n   REAL(fp)        :: GM0(MPROD,MSV), AM0(MPROD,MSV)\n   REAL(fp)        :: ORG_AER(MPROD,MSV)\n   REAL(fp)        :: ORG_GAS(MPROD,MSV)\n\n   ! Parent HC reacted diag for arom/IVOC (hotp 5/17/10)\n   REAL(fp)        :: DARO2_TOT_0(8)             ! added NAP (hotp 7/22/09)\n   REAL(fp), SAVE  :: DARO2_TOT(8) = 0e+0_fp     ! added NAP (hotp 7/22/09)\n\n   ! Rate constant for RO2+HO2, RO2+NO rxns (hotp 5/7/10)\n   REAL(fp)          :: KRO2NO, KRO2HO2\n\n   ! semivolpoa2: add diagnostic info for POA (hotp 3/11/09)\n   ! semivolpoa4: add dimension for OPOA (hotp 3/27/09)\n   REAL(fp)        :: GLOB_AM0_POA(State_Grid%NX,State_Grid%NY,State_Grid%NZ, &\n                                   MNOX,MPROD,2)\n   REAL(fp)        :: GLOB_AM0_POA_0(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                     MNOX,MPROD,2)\n   REAL(fp), SAVE  :: GLOB_POA_PROD\n   REAL(fp), SAVE  :: GLOB_OPOA_PROD\n\n   ! Update IEPOX aerosol-phase species concentrations:\n   INTEGER         :: SPIND\n   REAL(fp)        :: fORGS,   fORGN\n   REAL(fp)        :: DELDIOL, DELORGS, DELORGN\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   ! Debug\n   Integer           :: IIDebug, JJDebug\n\n#ifdef APM\n   INTEGER           :: IFINORG\n   INTEGER           :: NTEMP\n   REAL(fp)          :: OCBIN_SUM\n#endif\n\n   !=================================================================\n   ! SOA_CHEMISTRY begins here!\n   !=================================================================\n\n   ! Point to chemical species array [kg]\n   Spc          => State_Chm%Species\n\n   ! Zero some diagnostics (hotp 5/17/10)\n   GLOB_POGRXN  = 0e+0_fp\n   OAGINITSAVE  = 0e+0_fp\n   DELTASOGSAVE = 0e+0_fp\n\n   ! Save initial OA+OG for diagnostic (hotp 5/17/10)\n   IF ( Input_Opt%Verbose ) THEN\n      CALL SAVE_OAGINIT( State_Chm, State_Grid, State_Met )\n   ENDIF\n\n   !this section is need to initialize the equalibirum constants and\n   !yield parameters, (jje 06/22/10)\n   IF ( FIRST ) THEN\n\n      ! initialize alphas, Koms and rxn rate constants\n      CALL SOA_PARA_INIT( Input_Opt )\n\n      ! Diagnostic/debug info (hotp 5/22/10)\n      IF ( Input_Opt%Verbose ) THEN\n         WRITE(*,*) 'HC and SV IDs'\n         print*, 'Monoterpenes and sesquiterpenes'\n         print*, 'MTPA ', PARENTMTPA, IDSV(PARENTMTPA)\n         print*, 'LIMO ', PARENTLIMO, IDSV(PARENTLIMO)\n         print*, 'MTPO ', PARENTMTPO, IDSV(PARENTMTPO)\n         print*, 'SESQ ', PARENTSESQ, IDSV(PARENTSESQ)\n         print*, 'Isoprene'\n         print*, 'ISOP ', PARENTISOP, IDSV(PARENTISOP)\n         print*, 'Arom/IVOC'\n         print*, 'BENZ ', PARENTBENZ, IDSV(PARENTBENZ)\n         print*, 'TOLU ', PARENTTOLU, IDSV(PARENTTOLU)\n         print*, 'XYLE ', PARENTXYLE, IDSV(PARENTXYLE)\n         print*, 'NAP  ', PARENTNAP,  IDSV(PARENTNAP )\n         print*, 'POA and OPOA'\n         print*, 'POA  ', PARENTPOA,  IDSV(PARENTPOA)\n         print*, 'OPOA ', PARENTOPOA, IDSV(PARENTOPOA)\n         print*,'NPROD and NNOX for SV groups'\n         DO JSV = 1, MSV\n            print*, (JSV),NPROD(JSV),NNOX(JSV)\n         ENDDO\n      ENDIF\n\n      ! Zero diagnostic (hotp 5/24/10)\n      GLOB_POA_PROD  = 0e+0_fp\n      GLOB_OPOA_PROD = 0e+0_fp\n      DELTAHCSAVE    = 0e+0_fp\n      SPECSOAPROD    = 0e+0_fp\n      SPECSOAEVAP    = 0e+0_fp\n\n      FIRST = .FALSE.\n   ENDIF\n\n   IF ( Input_Opt%Verbose ) THEN\n      print*, ' MAX DARO2 = ', MAXLOC(GLOB_DARO2(:,:,:,1,1)), &\n                               MAXVAL(GLOB_DARO2(:,:,:,1,1))\n   ENDIF\n\n   ! semivolpoa2: diagnostic info (hotp 3/11/09)\n   GLOB_AM0_POA   = 0.e+0_fp\n   GLOB_AM0_POA_0 = 0.e+0_fp\n\n   ! added debug (hotp 8/24/09)\n   IF ( Input_Opt%Verbose ) THEN\n      IIDebug = Min(State_Grid%NX,20)\n      JJDebug = Min(State_Grid%NY,33)\n      print*, 'START SOA_CHEMISTRY'\n      print*, 'species   ','global sum   ', &\n              'box ',IIDEBUG,',',JJDEBUG,',2     ', &\n              'box ',IIDEBUG,',',JJDEBUG,',10    '\n\n      IF ( Input_Opt%LSVPOA ) THEN\n         print*,'POA1', SUM(Spc(id_POA1)%Conc(:,:,:))\n         print*,'POA2', SUM(Spc(id_POA2)%Conc(:,:,:))\n         print*,'POG1', SUM(Spc(id_POG1)%Conc(:,:,:))\n         print*,'POG2', SUM(Spc(id_POG2)%Conc(:,:,:))\n         print*,'OPOA1',SUM(Spc(id_OPOA1)%Conc(:,:,:))\n         print*,'OPOA2',SUM(Spc(id_OPOA2)%Conc(:,:,:))\n         print*,'OPOG1',SUM(Spc(id_OPOG1)%Conc(:,:,:))\n         print*,'OPOG2',SUM(Spc(id_OPOG2)%Conc(:,:,:))\n      ENDIF\n\n      ! semivolpoa3: debug POAEMISS\n      print*, 'POAEMISS,1,POG1', &\n               SUM(POAEMISS(:,:,:,1)),POAEMISS(IIDEBUG,JJDEBUG,2,1), &\n                   POAEMISS(IIDEBUG,JJDEBUG,10,1)\n      print*, 'POAEMISS,2,POG2', &\n               SUM(POAEMISS(:,:,:,2)),POAEMISS(IIDEBUG,JJDEBUG,2,2), &\n                   POAEMISS(IIDEBUG,JJDEBUG,10,2)\n\n      ! 10/12/09 debug\n      IF ( Input_Opt%LSVPOA ) THEN\n         print*,'POAG tot', SUM(Spc(id_POA1)%Conc(:,:,:))+ &\n                            SUM(Spc(id_POA2)%Conc(:,:,:))+ &\n                            SUM(Spc(id_POG1)%Conc(:,:,:))+ &\n                            SUM(Spc(id_POG2)%Conc(:,:,:))\n      ENDIF\n   ENDIF\n\n   ! Locate POA and OPOA in AM0 (hotp 5/17/10)\n   JSVPOA  = IDSV(PARENTPOA)\n   JSVOPOA = IDSV(PARENTOPOA)\n\n   ! For parallel do:\n   ! add KRO2XXX to private (hotp 5/7/10)\n   ! add JSV to private (hotp 5/13/10)\n   ! remove NOX (hotp 5/22/10)\n   !$OMP PARALLEL DO                                                         &\n   !$OMP DEFAULT( SHARED                                                    )&\n#ifdef APM\n   !$OMP PRIVATE( IFINORG,  OCBIN_SUM, N,     NTEMP                         )&\n#endif\n   !$OMP PRIVATE( I,        J,         L,      JHC,   IPR,   GM0,  AM0      )&\n   !$OMP PRIVATE( VOL,      FAC,       RTEMP,  KO3,   KOH,   KNO3, CAIR     )&\n   !$OMP PRIVATE( VALUE,    UPPER,     LOWER,  MNEW,  TOL                   )&\n   !$OMP PRIVATE( ORG_AER,  ORG_GAS,   KOM,    MPOC                         )&\n   !$OMP PRIVATE( KRO2NO,   KRO2HO2,   JSV                                  )\n   DO L = 1, State_Met%MaxChemLev\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Zero important variables at top of loop\n      AM0     = 0.0_fp\n      GM0     = 0.0_fp\n      KO3     = 0.0_fp\n      KOH     = 0.0_fp\n      KNO3    = 0.0_fp\n      KRO2NO  = 0.0_fp\n      KRO2HO2 = 0.0_fp\n      LOWER   = 0.0_fp\n      MNEW    = 0.0_fp\n      MPOC    = 0.0_fp\n      TOL     = 0.0_fp\n      UPPER   = 0.0_fp\n      VALUE   = 0.0_fp\n\n      ! Skip non-chemistry boxes\n      IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n      ! Volume of grid box [m3]\n      VOL    = State_Met%AIRVOL(I,J,L)\n\n      ! conversion factor from kg to ug/m3\n      FAC    = 1.0e+9_fp / VOL\n\n      ! air conc. in kg/m3\n      CAIR   = State_Met%AD(I,J,L) / VOL\n\n      ! Temperature [K]\n      RTEMP  = State_Met%T(I,J,L)\n\n      ! Get SOA yield parameters\n      ! ALPHA is a module variable now. (ccc, 2/2/10)\n      ! add arguments for RO2+NO, RO2+HO2 rates (hotp 5/7/10)\n      CALL SOA_PARA( RTEMP, KO3, KOH, KNO3,   KOM, &\n                     I,     J,   L,   KRO2NO, KRO2HO2, State_Met )\n\n      ! Partition mass of gas & aerosol species\n      ! according to 5 VOC classes & 3 oxidants\n      CALL SOA_PARTITION( I, J, L, GM0, AM0, State_Chm )\n\n      ! hotp diagnostic (3/11/09)\n      GLOB_AM0_POA_0(I,J,L,1,:,:) = AM0(:,JSVPOA:JSVOPOA)\n\n      ! Compute oxidation of hydrocarbons by O3, OH, NO3\n      ! ALPHA is a module variable now (ccc, 2/2/10)\n      ! semivolpoa2: emit POA into semivolatiles here (hotp 2/27/09)\n      ! add RO2+NO,HO2 rate constants (hotp 5/7/10)\n      CALL CHEM_NVOC( I,          J,         L,          &\n                      KO3,        KOH,       KNO3,       &\n                      GM0,        KRO2NO,    KRO2HO2,    &\n                      Input_Opt,  State_Chm, State_Diag, &\n                      State_Grid, State_Met, RC          )\n\n      !==============================================================\n      ! Equilibrium calculation between GAS (SOG) and Aerosol (SOA)\n      !==============================================================\n\n      ! Initialize other arrays to be safe  (dkh, 11/10/06)\n      ! update dims (hotp 5/22/10)\n      ORG_AER = 0.0_fp\n      ORG_GAS = 0.0_fp\n\n      ! Individual SOA's: convert from [kg] to [ug/m3] or [kgC] to [ugC/m3]\n      DO JSV = 1, MAXSIMSV\n      DO IPR = 1, NPROD(JSV)\n         ORG_GAS(IPR,JSV) = GM0(IPR,JSV) * FAC\n         ORG_AER(IPR,JSV) = AM0(IPR,JSV) * FAC\n      ENDDO\n      ENDDO\n\n      ! semivolpoa2: include OA mass with POA (hotp 3/2/09)\n      ! Check to make sure POA is defined (hotp 8/24/09)\n      ! Convert from [ugC/m3] to [ug/m3]\n      IF ( id_POA1 > 0 ) THEN\n         JHC = PARENTPOA\n         JSV = IDSV(JHC)\n         DO IPR = 1, NPROD(JSV)\n            ORG_GAS(IPR,JSV) = ORG_GAS(IPR,JSV) * State_Chm%AerMass%OCFPOA(I,J)\n            ORG_AER(IPR,JSV) = ORG_AER(IPR,JSV) * State_Chm%AerMass%OCFPOA(I,J)\n         ENDDO\n      ENDIF\n\n      ! semivolpoa4opoa: add OPOA mass (hotp 3/18/09)\n      ! Check to make sure OPOA is defined (hotp 8/24/09)\n      ! Convert from [ugC/m3] to [ug/m3]\n      IF ( id_OPOA1 > 0 ) THEN\n         JHC = PARENTOPOA\n         JSV = IDSV(JHC)\n         DO IPR = 1, NPROD(JSV)\n            ORG_GAS(IPR,JSV) = ORG_GAS(IPR,JSV) * State_Chm%AerMass%OCFOPOA(I,J)\n            ORG_AER(IPR,JSV) = ORG_AER(IPR,JSV) * State_Chm%AerMass%OCFOPOA(I,J)\n         ENDDO\n      ENDIF\n\n      !-----------------------------------------------------------\n      ! Compute SOG condensation onto OC aerosol\n      !\n      ! Primary organic aerosol concentrations [ug/m3]\n      ! We carry carbon mass only in the Spc array and here\n      ! multiply by 2.1 to account for non-carbon mass in the SOA.\n      !\n      ! Partitioning theory (Pankow, 1994) describes organic\n      ! phase partitioning assuming absorption into pre-existing\n      ! organic mass.  There is currently no theoretical or\n      ! laboratory support for absorption of organics into\n      ! inorganics.\n      !\n      ! Note that previous versions of the standard code\n      ! (v7-04-07 through v8-02-04) did include absorption into\n      ! inorganics.\n      !\n      ! (Colette Heald, 12/3/09)\n      !-----------------------------------------------------------\n#ifdef APM\n      OCBIN_SUM = 0.0_fp\n      DO N = 1, NBCOC\n         OCBIN_SUM = OCBIN_SUM + SUM( Spc(APMIDS%id_OCBIN1+N-1)%Conc )\n      ENDDO\n      MPOC = FAC  * OCBIN_SUM\n      MPOC = MPOC * 2.1d0\n\n      IFINORG = 2\n!#############################################################################\n! NOTE: IFINORG is always 2 so the other IF branches never get done.\n! Comment these out for now for better numerical efficiency\n!  -- Bob Yantosca (23 May 2023)\n!      IF(IFINORG.EQ.1) THEN !Yu+  consider inorg in the SOA partition\n!\n!         IF ( APMIDS%id_SO4 > 0 .and. &\n!              APMIDS%id_NH4 > 0 .and. &\n!              APMIDS%id_NIT > 0 ) THEN\n!            ! Then compute SOG condensation onto SO4, NH4, NIT aerosols\n!            MPOC = MPOC + ( Spc(APMIDS%id_NH4)%Conc(I,J,L) + &\n!                            Spc(APMIDS%id_NIT)%Conc(I,J,L) ) * FAC\n!\n!            IF(NSO4>=1)THEN\n!               NTEMP=APMIDS%id_SO4BIN1-1\n!               DO N=(NTEMP+1),(NTEMP+NSO4)\n!                  MPOC = MPOC + Spc(N)%Conc(I,J,L) * FAC\n!               ENDDO\n!            ENDIF\n!\n!            IF(NCTSO4>=1)THEN\n!               NTEMP=APMIDS%id_CTSO4-1\n!               DO N=(NTEMP+1),(NTEMP+NCTSO4)\n!                  MPOC = MPOC + Spc(N)%Conc(I,J,L) * FAC\n!               ENDDO\n!            ENDIF\n!\n!            IF(NCTBC>=1)THEN\n!               NTEMP=APMIDS%id_CTBC-1\n!               DO N=(NTEMP+1),(NTEMP+NCTBC)\n!                  MPOC = MPOC + Spc(N)%Conc(I,J,L) * FAC\n!               ENDDO\n!            ENDIF\n!\n!            IF(NCTOC>=1)THEN\n!               NTEMP=APMIDS%id_CTOC-1\n!               DO N=(NTEMP+1),(NTEMP+NCTOC)\n!                  MPOC = MPOC + Spc(N)%Conc(I,J,L) * FAC\n!               ENDDO\n!            ENDIF\n!\n!            IF(NCTSEA>=1)THEN\n!               NTEMP=APMIDS%id_CTSEA-1\n!               DO N=(NTEMP+1),(NTEMP+NCTSEA)\n!                  MPOC = MPOC + Spc(N)%Conc(I,J,L) * FAC\n!               ENDDO\n!            ENDIF\n!\n!            IF(NSEA>=1)THEN\n!               NTEMP=APMIDS%id_SEABIN1-1\n!               DO N=(NTEMP+1),(NTEMP+16) ! SALTbin16 = 1 um\n!                  MPOC = MPOC + Spc(N)%Conc(I,J,L) * FAC\n!               ENDDO\n!            ENDIF\n!\n!            !Add MSA\n!            MPOC = MPOC + Spc(APMIDS%id_MSA)%Conc(I,J,L) * FAC\n!\n!         ENDIF\n!\n!      ELSEIF(IFINORG.EQ.2) THEN !Consider SV SOA partition on LV SOA\n!#############################################################################\n\n         MPOC = MPOC + FAC * (Spc(APMIDS%id_CTSO4  )%Conc(I,J,L) + & !MSULFLV\n                              Spc(APMIDS%id_CTBC +1)%Conc(I,J,L) + & !MBCLV\n                              Spc(APMIDS%id_CTOC +1)%Conc(I,J,L) + & !MOCLV\n                              Spc(APMIDS%id_CTDST+1)%Conc(I,J,L) + & !MDSTLV\n                              Spc(APMIDS%id_CTSEA+1)%Conc(I,J,L))    !MSALTLV\n\n!#############################################################################\n! NOTE: IFINORG is always 2 so the other IF branches never get done.\n! Comment these out for now for better numerical efficiency\n!  -- Bob Yantosca (23 May 2023)\n!      ELSE\n!\n!         ! Compute SOG condensation onto OC aerosol\n!         MPOC = ( Spc(id_OCPI)%Conc(I,J,L) + Spc(id_OCPO)%Conc(I,J,L) ) * FAC\n!         MPOC = MPOC * 2.1d0\n!\n!      ENDIF\n!#############################################################################\n#else\n      ! Now treat either traditional POA or semivolatile POA (hotp 7/25/10)\n      IF ( id_OCPI > 0 .and. id_OCPO > 0 ) THEN\n         MPOC = ( Spc(id_OCPI)%Conc(I,J,L) + Spc(id_OCPO)%Conc(I,J,L) ) * FAC\n         MPOC = MPOC * State_Chm%AerMass%OCFOPOA(I,J)\n      ELSE\n         ! semivolpoa2: MPOC is zero now (hotp 2/27/09)\n         MPOC = 1e-30_fp\n      ENDIF\n#endif\n\n      !==============================================================\n      ! Solve for MNEW by solving for SOA=0\n      !==============================================================\n      IF ( ( MPOC / ( CAIR*1.e+9_fp ) ) <= 2.1e-18_fp ) THEN\n         VALUE = 0.e+0_fp\n         UPPER = 0.e+0_fp\n\n         ! Now use SV (hotp 5/13/10)\n         ! update dims (hotp 5/22/10)\n         DO JSV = 1, MAXSIMSV\n         DO IPR = 1, NPROD(JSV)\n            VALUE = VALUE + KOM(IPR,JSV) * (ORG_GAS(IPR,JSV) + ORG_AER(IPR,JSV))\n            UPPER = UPPER + ORG_GAS(IPR,JSV) + ORG_AER(IPR,JSV)\n         ENDDO\n         ENDDO\n\n         IF ( VALUE <= 1.e+0_fp ) THEN\n            MNEW  = 0.e+0_fp\n         ELSE\n            LOWER = 1.e-18_fp * ( CAIR * 1.e+9_fp )\n            TOL   = 1.e-18_fp\n            MNEW  = ZEROIN(LOWER,UPPER,TOL,MPOC,ORG_AER,ORG_GAS,KOM)\n         ENDIF\n\n      ELSE\n\n         UPPER = MPOC\n\n         ! Now use SV (hotp 5/13/10)\n         ! update dims (hotp 5/22/10)\n         DO JSV = 1, MAXSIMSV\n         DO IPR = 1, NPROD(JSV)\n            UPPER = UPPER + ORG_GAS(IPR,JSV) + ORG_AER(IPR,JSV)\n         ENDDO\n         ENDDO\n\n         LOWER = MPOC\n         TOL   = 1.e-9_fp*MPOC\n         MNEW  = ZEROIN(LOWER,UPPER,TOL,MPOC,ORG_AER,ORG_GAS,KOM)\n\n      ENDIF\n\n      !==============================================================\n      ! Equilibrium partitioning into new gas and aerosol\n      ! concentrations for individual contributions of SOA\n      !==============================================================\n      IF ( MNEW > 0.e+0_fp ) THEN\n\n         ! Use actual number of HC (hotp 8/24/09)\n         ! Now use SV (hotp 5/13/10)\n         ! updated dims (hotp 7/28/1)\n         DO JSV = 1, MAXSIMSV\n         DO IPR = 1, NPROD(JSV)\n            ORG_AER(IPR,JSV) = KOM(IPR,JSV)*MNEW / &\n                               (1.e+0_fp + KOM(IPR,JSV) * MNEW ) * &\n                               (ORG_AER(IPR,JSV) + ORG_GAS(IPR,JSV))\n\n            IF ( KOM(IPR,JSV).NE.0e+0_fp ) THEN\n               ORG_GAS(IPR,JSV) = ORG_AER(IPR,JSV) * 1.e+8_fp / &\n                                  ( KOM(IPR,JSV) * MNEW * 1.e+8_fp)\n            ELSE\n               ORG_GAS(IPR,JSV) = 0.e+0_fp\n            ENDIF\n\n         ENDDO\n         ENDDO\n\n         ! semivolpoa2: remove OA mass from POA (hotp 3/2/09)\n         ! Check if POA defined (hotp 8/24/09)\n         IF ( id_POA1 > 0 ) THEN\n            JHC = PARENTPOA\n            JSV = IDSV(JHC)\n            DO IPR = 1, NPROD(JSV)\n               ORG_GAS(IPR,JSV) = ORG_GAS(IPR,JSV) / State_Chm%AerMass%OCFPOA(I,J)\n               ORG_AER(IPR,JSV) = ORG_AER(IPR,JSV) / State_Chm%AerMass%OCFPOA(I,J)\n            ENDDO\n         ENDIF\n\n         ! semivolpoa4opoa: remove OA mass from OPOA (hotp 3/18/09)\n         ! Check if OPOA defined (hotp 8/24/09)\n         IF ( id_OPOA1 > 0 ) THEN\n            JHC = PARENTOPOA\n            JSV = IDSV(JHC)\n            DO IPR = 1, NPROD(JSV)\n               ORG_GAS(IPR,JSV) = ORG_GAS(IPR,JSV) / State_Chm%AerMass%OCFOPOA(I,J)\n               ORG_AER(IPR,JSV) = ORG_AER(IPR,JSV) / State_Chm%AerMass%OCFOPOA(I,J)\n            ENDDO\n         ENDIF\n\n         ! STORE PRODUCT INTO T0M\n         ! Use actual number of HC for sim (hotp 8/24/09)\n         ! change to SV (hotp 5/13/10)\n         ! update dims (hotp 5/22/10)\n         DO JSV = 1, MAXSIMSV\n         DO IPR = 1, NPROD(JSV)\n            GM0(IPR,JSV) = ORG_GAS(IPR,JSV) / FAC\n            AM0(IPR,JSV) = ORG_AER(IPR,JSV) / FAC\n         ENDDO\n         ENDDO\n\n      !==============================================================\n      ! Mnew=0.e+0_fp, all SOA evaporates to the gas-phase\n      !==============================================================\n      ELSE\n\n         ! Use actual number of HC for sim (hotp 8/24/09)\n         ! Change to SV (hotp 5/13/10)\n         DO JSV = 1, MAXSIMSV\n         DO IPR = 1, NPROD(JSV)\n            GM0(IPR,JSV) = GM0(IPR,JSV) + AM0(IPR,JSV)\n            !AM0(IPR,JSV) = 1.D-18 * State_Met%AD(I,J,L)\n            ! try this to fix MB problem (hotp 5/25/10)\n            AM0(IPR,JSV) = 1.e-20_fp\n         ENDDO\n         ENDDO\n\n      ENDIF\n\n      ! enforce direct yield for low nox aromatics\n      ! no longer loop (hotp 7/28/10)\n      JHC = PARENTBENZ\n      JSV = IDSV(JHC)\n      !DO IPR = 1, NPROD(JSV)\n      IPR = 4 ! HARDWIRED!!!!!!!!!\n      AM0(IPR,JSV) = AM0(IPR,JSV) + GM0(IPR,JSV)\n      GM0(IPR,JSV) = 0e+0_fp\n\n      ! Lump SOA\n      CALL SOA_LUMP( I, J, L, GM0, AM0, State_Chm, State_Diag )\n\n      ! hotp diagnostic (3/11/09)\n      GLOB_AM0_POA(I,J,L,1,:,:) = AM0(:,JSVPOA:JSVOPOA)\n\n      !--------------------------------------------------------------------\n      ! Comment out for now.  This produces a lot of excess debug output.\n      ! (bmy, 5/5/20)\n      !! Check equilibrium (hotp 5/18/10)\n      !IF ( Input_Opt%Verbose ) THEN\n      !   ! IDSV for lumped arom/IVOC is hardwired (=3) (hotp 5/20/10)\n      !   ! Low NOX (non-volatile) aromatic product is IPR=4\n      !   CALL CHECK_EQLB( I, J, L, KOM, FAC, MNEW, LOWER, TOL, &\n      !                    ORG_GAS(4,3), ORG_AER(4,3), MPOC, State_Chm )\n      !ENDIF\n      !--------------------------------------------------------------------\n\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Debug: check mass balance (hotp 5/18/10)\n   IF ( Input_Opt%Verbose ) THEN\n      CALL CHECK_MB( Input_Opt,State_Chm, State_Grid, State_Met )\n   ENDIF\n\n   !------------------------------------------------------------------------\n   !### Now only print when ND70 is turned on (bmy, 4/21/10)\n   IF ( Input_Opt%Verbose ) THEN\n\n      IF ( Input_Opt%LSVPOA ) THEN\n         ! 10/12/09 debug\n         print*,'POAG tot', SUM(Spc(id_POA1)%Conc(:,:,:))+ &\n                            SUM(Spc(id_POA2)%Conc(:,:,:))+ &\n                            SUM(Spc(id_POG1)%Conc(:,:,:))+ &\n                            SUM(Spc(id_POG2)%Conc(:,:,:))\n      ENDIF\n\n      ! dkh print some diagnostics\n      ! Parent hydrocarbon reacted diagnostic (hotp 5/17/10)\n      DARO2_TOT_0(:)    = DARO2_TOT(:)\n\n      print*, ' MAX DARO2 = ', MAXLOC(GLOB_DARO2(:,:,:,1,1)), &\n                               MAXVAL(GLOB_DARO2(:,:,:,1,1))\n\n      DARO2_TOT(1) = DARO2_TOT(1) + SUM(GLOB_DARO2(:,:,:,1,1)) / 1d9\n      DARO2_TOT(2) = DARO2_TOT(2) + SUM(GLOB_DARO2(:,:,:,2,1)) / 1d9\n      DARO2_TOT(3) = DARO2_TOT(3) + SUM(GLOB_DARO2(:,:,:,1,2)) / 1d9\n      DARO2_TOT(4) = DARO2_TOT(4) + SUM(GLOB_DARO2(:,:,:,2,2)) / 1d9\n      DARO2_TOT(5) = DARO2_TOT(5) + SUM(GLOB_DARO2(:,:,:,1,3)) / 1d9\n      DARO2_TOT(6) = DARO2_TOT(6) + SUM(GLOB_DARO2(:,:,:,2,3)) / 1d9\n      ! added NAP diagnostic info (hotp 7/22/09)\n      ! amount of RO2 reacted in high and low NOx pathways\n      DARO2_TOT(7) = DARO2_TOT(7) + SUM(GLOB_DARO2(:,:,:,1,4)) / 1d9\n      DARO2_TOT(8) = DARO2_TOT(8) + SUM(GLOB_DARO2(:,:,:,2,4)) / 1d9\n\n      ! DARO2 is not mass of parent HC, not RO2 (hotp 5/14/10)\n      print*,'Accumulated parent HC reacted to RO2H,N products in Tg'\n      print*,'Units are Tg of parent'\n      print*, 'GLOB_DBRO2 NOX =', DARO2_TOT(1), (DARO2_TOT(1) - DARO2_TOT_0(1))\n      print*, 'GLOB_DBRO2 HO2 =', DARO2_TOT(2), (DARO2_TOT(2) - DARO2_TOT_0(2))\n      print*, 'GLOB_DTRO2 NOX =', DARO2_TOT(3), (DARO2_TOT(3) - DARO2_TOT_0(3))\n      print*, 'GLOB_DTRO2 HO2 =', DARO2_TOT(4), (DARO2_TOT(4) - DARO2_TOT_0(4))\n      print*, 'GLOB_DXRO2 NOX =', DARO2_TOT(5), (DARO2_TOT(5) - DARO2_TOT_0(5))\n      print*, 'GLOB_DXRO2 HO2 =', DARO2_TOT(6), (DARO2_TOT(6) - DARO2_TOT_0(6))\n      print*, 'GL_DAR NOX NAP =', DARO2_TOT(7), (DARO2_TOT(7) - DARO2_TOT_0(7))\n      print*, 'GL_DAR HO2 NAP =', DARO2_TOT(8), (DARO2_TOT(8) - DARO2_TOT_0(8))\n      ! end arom parent HC reacted diag (hotp 5/17/10)\n\n      ! semivolpoa2: diagnostic info (hotp 3/11/09)\n      ! initial info\n      print*, 'AFTER SOA_CHEMISTRY'\n      print*, 'species   ','global sum   ', &\n              'box ',IIDEBUG,',',JJDEBUG,',2     ', &\n              'box ',IIDEBUG,',',JJDEBUG,',10    '\n\n      IF ( Input_Opt%LSVPOA ) THEN\n         print*,'POA1 ', SUM(Spc(id_POA1)%Conc(:,:,:))\n         print*,'POA2 ', SUM(Spc(id_POA2)%Conc(:,:,:))\n         print*,'POG1 ', SUM(Spc(id_POG1)%Conc(:,:,:))\n         print*,'POG2 ', SUM(Spc(id_POG2)%Conc(:,:,:))\n         print*,'OPOA1', SUM(Spc(id_OPOA1)%Conc(:,:,:))\n         print*,'OPOA2', SUM(Spc(id_OPOA2)%Conc(:,:,:))\n         print*,'OPOG1', SUM(Spc(id_OPOG1)%Conc(:,:,:))\n         print*,'OPOG2', SUM(Spc(id_OPOG2)%Conc(:,:,:))\n      ENDIF\n\n      ! semivolpoa4: diag for POG reacted (hotp 3/27/09)\n      print*, 'POGRXN ', SUM(GLOB_POGRXN(:,:,:,:)), &\n                         SUM( GLOB_POGRXN(IIDEBUG,JJDEBUG,2,:)), &\n                         SUM(GLOB_POGRXN(IIDEBUG,JJDEBUG,10,:))\n      ! POGRXN (hotp 10/11/09)\n      print*, 'POGRXN p1', SUM(GLOB_POGRXN(:,:,:,1))\n      print*, 'POGRXN p2', SUM(GLOB_POGRXN(:,:,:,2))\n\n      ! semivolpoa3: POG1 + POG2\n      print*, 'POAEMISS tot', SUM(POAEMISS(:,:,:,:)), &\n               POAEMISS(IIDEBUG,JJDEBUG,2,1)+POAEMISS(IIDEBUG,JJDEBUG,2,2), &\n               POAEMISS(IIDEBUG,JJDEBUG,10,1)+POAEMISS(IIDEBUG,JJDEBUG,10,2)\n\n      ! semivolpoa4opoa: add OPOA (hotp 3/27/09)\n      IF ( id_OPOA1 > 0 ) THEN ! hotp 8/24/09 ! hotp 10/11/09\n         GLOB_POA_PROD  = GLOB_POA_PROD + &\n                          SUM(GLOB_AM0_POA(:,:,:,:,:,1)) - &\n                          SUM(GLOB_AM0_POA_0(:,:,:,:,:,1))\n         GLOB_OPOA_PROD = GLOB_OPOA_PROD + &\n                          SUM(GLOB_AM0_POA(:,:,:,:,:,2)) - &\n                          SUM(GLOB_AM0_POA_0(:,:,:,:,:,2))\n\n         ! semivolpoa4opoa: diagnostic info (hotp 3/27/09)\n         print*, 'POA produced (cumulative tp date) ', GLOB_POA_PROD\n         print*, 'POA P1',  SUM(GLOB_AM0_POA(:,:,:,1,1,1)) - &\n                            SUM(GLOB_AM0_POA_0(:,:,:,1,1,1))\n         print*, 'POA P2',  SUM(GLOB_AM0_POA(:,:,:,1,2,1)) - &\n                            SUM(GLOB_AM0_POA_0(:,:,:,1,2,1))\n         print*, 'OPOA P1', SUM(GLOB_AM0_POA(:,:,:,1,1,2)) - &\n                            SUM(GLOB_AM0_POA_0(:,:,:,1,1,2))\n         print*, 'OPOA P2', SUM(GLOB_AM0_POA(:,:,:,1,2,2)) - &\n                            SUM(GLOB_AM0_POA_0(:,:,:,1,2,2))\n\n         print*, 'OPOA produced (cumulative to date) ',GLOB_OPOA_PROD\n         print*, 'POA products '\n         print*, 'product 1', SUM(GLOB_AM0_POA(:,:,:,1,1,1)), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,2,1,1,1), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,10,1,1,1)\n         print*, 'product 2', SUM(GLOB_AM0_POA(:,:,:,1,2,1)), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,2,1,2,1), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,10,1,2,1)\n         print*, 'OPOA products'\n         print*, 'product 1', SUM(GLOB_AM0_POA(:,:,:,1,1,2)), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,2,1,1,2), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,10,1,1,2)\n         print*, 'product 2', SUM(GLOB_AM0_POA(:,:,:,1,2,2)), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,2,1,2,2), &\n                              GLOB_AM0_POA(IIDEBUG,JJDEBUG,10,1,2,2)\n\n         print*, 'POA to trop', SUM(Spc(id_POA1)%Conc(:,:,1:State_Met%MaxChemLev))+ &\n                                SUM(Spc(id_POA2)%Conc(:,:,1:State_Met%MaxChemLev))\n      ENDIF ! OPOA (hotp 8/24/09)\n\n   ENDIF\n   !------------------------------------------------------------------------\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE SOA_CHEMISTRY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soa_equil\n!\n! !DESCRIPTION: Function SOA\\_EQUIL solves SOAeqn=0 to determine Mnew (= mass)\n!  See Eqn (27) on page 70 of notes.  Originally written by Serena Chung at\n!  Caltech, and modified for inclusion into GEOS-CHEM. (rjp, bmy, 7/8/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION SOA_EQUIL( MASS, MPOC, AEROSOL, GAS, KOM ) &\n      RESULT( SOA_MASS )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   REAL(fp), INTENT(IN) :: MASS                ! Pre-existing aer mass [ug/m3]\n   REAL(fp), INTENT(IN) :: MPOC                ! POA Mass [ug/m3]\n   REAL(fp), INTENT(IN) :: AEROSOL(MPROD,MSV)  ! Aerosol concentration [ug/m3]\n   REAL(fp), INTENT(IN) :: GAS(MPROD,MSV)      ! Gas-phase conc [ug/m3]\n   REAL(fp), INTENT(IN) :: KOM(MPROD,MSV)      ! Equilibrium gas-aerosol\n                                               !  partition coeff. [m3/ug]\n!\n! !RETURN VALUE:\n!\n   REAL(fp)             :: SOA_MASS\n!\n! !REMARKS:\n!  This version does NOT assume that the gas and aerosol phases are in\n!  equilibrium before chemistry; therefore, gas phase concentrations are\n!  needed explicitly.  The gas and aerosol phases are assumed to be in\n!  equilibrium after chemistry.\n!                                                                             .\n!  Note: Unlike FUNCTION SOA, this function assumes no reactions.  It only\n!  considers the partitioning of existing products of VOC oxidation.\n!                                                                             .\n!  HC_JHC + OXID_IOXID - >\n!    alpha(1,IOXID,JHC) [SOAprod_gas(1,IOXID,JHC)+SOAprod(1,IOXID,JHC)]+\n!    alpha(2,IOXID,JHC) [SOAprod_gas(2,IOXID,JHC)+SOAprod(2,IOXID,JHC)]\n!                                                                             .\n!  SOAprod_gas(IPR,IOXID,JHC) <--> SOAprod(IPR,IOXID,JHC)\n!                                           (aerosol phase)\n!                                                                             .\n!  w/ equilibrium partitioning:\n!                                                                             .\n!                                   SOAprod(IPR,IOXID,JHC)\n!    SOAprod_gas(IPR,IOXID,JHC) = ------------------------\n!                                     Kom(IPR,IOXID,JHC)\n!\n!  NOTES:\n!  08 Jul 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER  :: JHC,   IPR!,     NOX (hotp 5/22/10)\n   INTEGER  :: JSV ! hotp 5/13/10\n   REAL(fp) :: VALUE\n\n   !=================================================================\n   ! SOA_EQUIL begins here!\n   !=================================================================\n\n   ! Equation (39) on page 139 of notes:\n   VALUE = 0.e+0_fp\n\n   ! Use SV not HC (hotp 5/13/10)\n   ! update dims (remove NOX) (hotp 5/22/10)\n   DO JSV = 1, MAXSIMSV\n   DO IPR = 1, NPROD(JSV)\n      VALUE = VALUE + KOM(IPR,JSV)                        / &\n                      ( 1.e+0_fp + KOM(IPR,JSV) * MASS  ) * &\n                      ( GAS(IPR,JSV) + AEROSOL(IPR,JSV) )\n   ENDDO\n   ENDDO\n\n   ! Compute SOA mass\n   SOA_MASS = VALUE + ( 1.e+5_fp * MPOC ) / ( 1.e+5_fp * MASS ) - 1.0e+0_fp\n\n END FUNCTION SOA_EQUIL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: zeroin\n!\n! !DESCRIPTION: Function ZEROIN computes a zero of the function f(x) in the\n!  interval ax,bx.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION ZEROIN(AX,BX,TOL,MPOC,AEROSOL,GAS,KOM) &\n      RESULT( MNEW )\n!\n! !INPUT PARAMETERS:\n!\n   REAL(fp), INTENT(IN) :: ax\n   REAL(fp), INTENT(IN) :: bx\n   REAL(fp), INTENT(IN) :: tol\n   REAL(fp), INTENT(IN) :: Mpoc\n   REAL(fp), INTENT(IN) :: Aerosol(MPROD,MSV)\n   REAL(fp), INTENT(IN) :: Gas(MPROD,MSV)\n   REAL(fp), INTENT(IN) :: Kom(MPROD,MSV)\n!\n! !RETURN VALUE:\n!\n   REAL(fp)             :: MNEW\n!\n! !REMARKS:\n! NOTE: This function may be problematic -- it uses GOTO's, which are not\n! good for parallelization. (bmy, 7/8/04)\n!                                                                             .\n! shc I got this code from http://www.netlib.org\n!                                                                             .\n!      a zero of the function  f(x)  is computed in the interval ax,bx .\n!                                                                             .\n!  input..\n!                                                                             .\n!  ax     left endpoint of initial interval\n!  bx     right endpoint of initial interval\n!  f      function subprogram which evaluates f(x) for any x in\n!         the interval  ax,bx\n!  tol    desired length of the interval of uncertainty of the\n!         final result ( .ge. 0.0e+0_fp)\n!                                                                             .\n!  output..\n!                                                                             .\n!  zeroin abcissa approximating a zero of  f  in the interval ax,bx\n!                                                                             .\n!      it is assumed  that   f(ax)   and   f(bx)   have  opposite  signs\n!  without  a  check.  zeroin  returns a zero  x  in the given interval\n!  ax,bx  to within a tolerance  4*macheps*abs(x) + tol, where macheps\n!  is the relative machine precision.\n!      this function subprogram is a slightly  modified  translation  of\n!  the algol 60 procedure  zero  given in  richard brent, algorithms for\n!  minimization without derivatives, prentice - hall, inc. (1973).\n!\n! !REVISION HISTORY:\n!  08 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp)             :: a,b,c,d,e,eps,fa,fb,fc,tol1,xm,p,q,r,s\n!\n!  compute eps, the relative machine precision\n!\n   eps = 1.0e+0_fp\n10 eps = eps/2.0e+0_fp\n   tol1 = 1.0e+0_fp + eps\n   if (tol1 .gt. 1.0e+0_fp) go to 10\n!\n! initialization\n!\n   a  = ax\n   b  = bx\n   fa = SOA_equil( A, MPOC, Aerosol, GAS, Kom )\n   fb = SOA_equil( B, MPOC, Aerosol, GAS, Kom )\n!\n! begin step\n!\n20 c = a\n   fc = fa\n   d = b - a\n   e = d\n\n30 if (ABS(fc) .ge. ABS(fb)) go to 40\n   a = b\n   b = c\n   c = a\n   fa = fb\n   fb = fc\n   fc = fa\n!\n! convergence test\n!\n40 tol1 = 2.0e+0_fp*eps*ABS(b) + 0.5e+0_fp*tol\n   xm = 0.5e+0_fp*(c - b)\n   if (ABS(xm) .le. tol1) go to 90\n   if (fb .eq. 0.0e+0_fp) go to 90\n!\n! is bisection necessary\n!\n   if (ABS(e) .lt. tol1) go to 70\n   if (ABS(fa) .le. ABS(fb)) go to 70\n!\n! is quadratic interpolation possible\n!\n   if (a .ne. c) go to 50\n!\n! linear interpolation\n!\n   s = fb/fa\n   p = 2.0e+0_fp*xm*s\n   q = 1.0e+0_fp - s\n   go to 60\n!\n! inverse quadratic interpolation\n!\n50 q = fa/fc\n   r = fb/fc\n   s = fb/fa\n   p = s*(2.0e+0_fp*xm*q*(q - r) - (b - a)*(r - 1.0e+0_fp))\n   q = (q - 1.0e+0_fp)*(r - 1.0e+0_fp)*(s - 1.0e+0_fp)\n!\n! adjust signs\n!\n60 if (p .gt. 0.0e+0_fp) q = -q\n   p = ABS(p)\n!\n! is interpolation acceptable\n!\n   if ((2.0e+0_fp*p) .ge. (3.0e+0_fp*xm*q - ABS(tol1*q))) go to 70\n   if (p .ge. ABS(0.5e+0_fp*e*q)) go to 70\n\n   e = d\n   d = p/q\n   go to 80\n!\n! bisection\n!\n70 d = xm\n   e = d\n!\n! complete step\n!\n   80 a = b\n   fa = fb\n   if (ABS(d) .gt. tol1) b = b + d\n   if (ABS(d) .le. tol1) b = b + SIGN(tol1, xm)\n\n   fb = SOA_equil( B, MPOC, Aerosol, GAS, Kom )\n   if ((fb*(fc/ABS(fc))) .gt. 0.0e+0_fp) go to 20\n   go to 30\n!\n! done\n!\n90 MNEW = b\n\n END FUNCTION ZEROIN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rtbis\n!\n! !DESCRIPTION: Function RTBIS finds the root of the function SOA\\_EQUIL via\n!  the bisection method.  Original algorithm from \"Numerical Recipes\" by Press\n!  et al, Cambridge UP, 1986.  Modified for inclusion into GEOS-CHEM.\n!  (bmy, 7/8/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION RTBIS( X1, X2, XACC, MPOC, AEROSOL, GAS, KOM ) &\n      RESULT( ROOT )\n!\n! !USES:\n!\n   USE ERROR_MOD, ONLY : ERROR_STOP\n!\n! !INPUT PARAMETERS:\n!\n   REAL(fp), INTENT(IN) :: X1                 ! Endpoint #1\n   REAL(fp), INTENT(IN) :: X2                 ! Endpoint #2\n   REAL(fp), INTENT(IN) :: XACC               ! Desired accuracy of solution\n   REAL(fp), INTENT(IN) :: MPOC               ! POA mass [ug/m3]\n   REAL(fp), INTENT(IN) :: AEROSOL(MPROD,MSV) ! Aerosol concentration [ug/m3]\n   REAL(fp), INTENT(IN) :: GAS(MPROD,MSV)     ! Gas-phase concentration [ug/m3]\n   REAL(fp), INTENT(IN) :: KOM(MPROD,MSV)     ! Equilibrium gas-aerosol\n                                              !  partition coeff. [m3/ug]\n!\n! !RETURN VALUE:\n!\n   REAL(fp)             :: ROOT\n!\n! !REVISION HISTORY:\n!  08 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n   INTEGER, PARAMETER :: JMAX = 100\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER            :: J\n   REAL(fp)           :: DX, F, FMID, XMID\n\n   !=================================================================\n   ! RTBIS begins here!\n   !=================================================================\n\n   ! Compute value of function SOA_EQUIL at endpoints\n   FMID = SOA_EQUIL( X2, MPOC, AEROSOL, GAS, KOM )\n   F    = SOA_EQUIL( X1, MPOC, AEROSOL, GAS, KOM )\n\n   ! Test if we are bracketing a root\n   IF ( F * FMID >= 0e+0_fp ) THEN\n      CALL ERROR_STOP( 'Root must be bracketed!', 'RTBIS (\"carbon_mod.F90\")' )\n   ENDIF\n\n   ! Set initial root and interval\n   IF ( F < 0e+0_fp ) THEN\n      ROOT = X1\n      DX   = X2 - X1\n   ELSE\n      ROOT = X2\n      DX   = X1 - X2\n   ENDIF\n\n   ! Loop until max iteration count\n   DO J = 1, JMAX\n\n      ! Halve the existing interval\n      DX   = DX * 0.5e+0_fp\n\n      ! Compute midpoint of new interval\n      XMID = ROOT + DX\n\n      ! Compute value of function SOA_EQUIL at new midpoint\n      FMID = SOA_EQUIL( XMID, MPOC, AEROSOL, GAS, KOM )\n\n      ! We have found the root!\n      IF ( FMID <= 0e+0_fp ) ROOT = XMID\n\n      ! We have reached the tolerance, so return\n      IF ( ABS( DX ) < XACC .OR. FMID == 0.e+0_fp ) RETURN\n   ENDDO\n\n   ! Stop with error condition\n   CALL ERROR_STOP( 'Too many bisections!', 'RTBIS (\"carbon_mod.F90\")' )\n\n END FUNCTION RTBIS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soa_para\n!\n! !DESCRIPTION: Subroutine SOA\\_PARA gves mass-based stoichiometric\n!  coefficients for semi-volatile products from the oxidation of hydrocarbons.\n!  It calculates secondary organic aerosol yield parameters.  Temperature\n!  effects are included.  Original code from the CALTECH group and modified for\n!  inclusion to GEOS-CHEM. (rjp, bmy, 7/8/04, 6/30/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE SOA_PARA( TEMP, KO3, KOH, KNO3, KOM, II, JJ, LL, &\n                      KRO2NO, KRO2HO2, State_Met )\n!\n! !USES:\n!\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: II              ! Longitude index\n   INTEGER,        INTENT(IN)  :: JJ              ! Latitude index\n   INTEGER,        INTENT(IN)  :: LL              ! Altitude index\n   REAL(fp),       INTENT(IN)  :: TEMP            ! Temperature [k]\n   TYPE(MetState), INTENT(IN)  :: State_Met       ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n   REAL(fp),       INTENT(OUT) :: KO3(MHC)        ! Rxn rate for HC oxidation\n                                                  !  by O3 [cm3/molec/s]\n   REAL(fp),       INTENT(OUT) :: KOH(MHC)        ! Rxn rate for HC oxidation\n                                                  !  by OH [cm3/molec/s]\n   REAL(fp),       INTENT(OUT) :: KNO3(MHC)       ! Rxn rate for HC oxidation\n                                                  !  by NO3 [cm3/molec/s]\n   REAL(fp),       INTENT(OUT) :: KOM(MPROD,MSV)  ! Equilibrium gas-aerosol\n                                                  !  partition coeff [m3/ug]\n\n   ! RO2+NO,HO2 rate constants (hotp 5/7/10)\n   REAL(fp),       INTENT(OUT) :: KRO2NO          ! RO2+NO  rate constant\n   REAL(fp),       INTENT(OUT) :: KRO2HO2         ! RO2+HO2 rate constant\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  PHOTO-OXIDATION RATE CONSTANTS OF ORGANICS come from:\n!  (1 ) Atkinson, el al., Int. J. Chem.Kinet., 27: 941-955 (1995)\n!  (2 ) Shu and Atkinson, JGR 100: 7275-7281 (1995)\n!  (3 ) Atkinson, J. Phys. Chem. Ref. Data 26: 215-290 (1997)\n!  (4 ) Some are reproduced in Table 1 of Griffin, et al., JGR 104: 3555-3567\n!  (5 ) Chung and Seinfeld (2002)\n!                                                                             .\n!  ACTIVATION ENERGIES come from:\n!  (6 ) Atkinson, R. (1994) Gas-Phase Tropospheric Chemistry of Organic\n!        Compounds.  J. Phys. Chem. Ref. Data, Monograph No.2, 1-216.\n!  (7 ) They are also reproduced in Tables B.9 and B.10 of Seinfeld and\n!        Pandis (1988).\n!                                                                             .\n!  PARAMETERS FOR ISOPRENE:\n!  (8 ) Kroll et al., GRL, 109, L18808 (2005)\n!  (9 ) Kroll et al., Environ Sci Tech, in press (2006)\n!  (10) Henze and Seinfeld, GRL, submitted (2006)\n!\n! !REVISION HISTORY:\n!  08 Jul 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n   ! Activation Energy/R [K] for O3, OH, NO3 (see Refs #6-7)\n   REAL(fp), PARAMETER :: ACT_O3     =  732.0e+0_fp\n   REAL(fp), PARAMETER :: ACT_OH     = -400.0e+0_fp\n   REAL(fp), PARAMETER :: ACT_NO3    = -490.0e+0_fp\n\n   ! Heat of vaporization (from CRC Handbook of Chemistry & Physics)\n   REAL(fp), PARAMETER :: HEAT_VAPOR = 5.e+3_fp\n\n   ! Reciprocal reference temperatures at 298K and 310K\n   !REAL(fp), PARAMETER :: REF295     = 1e+0_fp / 295e+0_fp !hotp 5/21/10\n   REAL(fp), PARAMETER :: REF298     = 1e+0_fp / 298e+0_fp\n   !REAL(fp), PARAMETER :: REF310     = 1e+0_fp / 310e+0_fp !hotp 5/21/10\n   ! semivolpoa2: reference T for POA (hotp 2/27/09)\n   REAL(fp), PARAMETER :: REF300     = 1e+0_fp / 300e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER             :: IPR,  JHC\n   INTEGER             :: JSV ! (hotp 5/13/10)\n   REAL(fp)            :: TMP1, TMP2, TMP3, OVER\n\n   !=================================================================\n   ! SOA_PARA begins here!\n   !=================================================================\n\n   ! move to SOA_PARA_INIT (dkh, 11/12/06)\n   !! Photo-oxidation rates of O3 [cm3/molec/s] (See Refs #1-4)\n   !KO3(1) = 56.15d-18\n   !KO3(2) = 200.d-18\n   !KO3(3) = 7707.d-18\n   !KO3(4) = 422.5d-18\n   !KO3(5) = ( 11600.D0 + 11700.e+0_fp ) / 2.e+0_fp * 1.D-18\n   !\n   !! Photo-oxidation rates of OH [cm3/molec/s] (See Refs #1-4)\n   !KOH(1) = 84.4d-12\n   !KOH(2) = 171.d-12\n   !KOH(3) = 255.d-12\n   !KOH(4) = 199.d-12\n   !KOH(5) = ( 197.e+0_fp + 293.e+0_fp ) / 2.e+0_fp * 1.d-12\n   !\n   !! Photo-oxidation rate of NO3 [cm3/molec/s] (See Refs #1-4)\n   !KNO3(1) = 6.95d-12\n   !KNO3(2) = 12.2d-12\n   !KNO3(3) = 88.7d-12\n   !KNO3(4) = 14.7d-12\n   !KNO3(5) = ( 19.e+0_fp + 35.e+0_fp ) / 2.e+0_fp * 1.d-12\n\n   !=================================================================\n   ! Temperature Adjustments of KO3, KOH, KNO3\n   !=================================================================\n\n   ! Initialize to zero (hotp 5/21/10)\n   KO3  = 0e+0_fp\n   KOH  = 0e+0_fp\n   KNO3 = 0e+0_fp\n\n   ! Reciprocal temperature [1/K]\n   OVER = 1.0e+0_fp / TEMP\n\n   ! Compute the exponentials once outside the DO loop\n   TMP1 = EXP( ACT_O3  * ( REF298 - OVER ) )\n   TMP2 = EXP( ACT_OH  * ( REF298 - OVER ) )\n   TMP3 = EXP( ACT_NO3 * ( REF298 - OVER ) )\n\n   ! Multiply photo-oxidation rates by exponential of temperature\n   !(dkh, 10/08/05)\n   !DO JHC = 1, 5\n   DO JHC = 1, 4 ! now 4 (hotp 5/21/10)\n      !KO3(JHC)  = KO3(JHC)  * TMP1\n      !KOH(JHC)  = KOH(JHC)  * TMP2\n      !KNO3(JHC) = KNO3(JHC) * TMP3\n      KO3(JHC)  = KO3_REF(JHC)  * TMP1\n      KOH(JHC)  = KOH_REF(JHC)  * TMP2\n      KNO3(JHC) = KNO3_REF(JHC) * TMP3\n   ENDDO\n\n   !=================================================================\n   ! Calculate KRO2NO, KRO2HO2 at TEMPERATURE (hotp 5/7/10)\n   !=================================================================\n   KRO2NO  = AARO2NO  * EXP( BBRO2NO  * OVER )\n   KRO2HO2 = AARO2HO2 * EXP( BBRO2HO2 * OVER )\n\n   !!=================================================================\n   !! SOA YIELD PARAMETERS\n   !!\n   !! Aerosol yield parameters for photooxidation of biogenic organics\n   !! The data (except for C7-C10 n-carbonyls, aromatics, and higher\n   !! ketones are from:\n   !!\n   !! (7) Tables 1 and 2 of Griffin, et al., Geophys. Res. Lett.\n   !!      26: (17)2721-2724 (1999)\n   !!\n   !! These parameters neglect contributions of the photooxidation\n   !! by NO3.\n   !!\n   !! For the aromatics, the data are from\n   !! (8) Odum, et al., Science 276: 96-99 (1997).\n   !!\n   !! Isoprene (dkh, bmy, 5/22/06)\n   !! Unlike the other species, we consider oxidation by purely OH.\n   !! CHEM_NVOC has been adjusted accordingly. There's probably\n   !! significant SOA formed from NO3 oxidation, but we don't know\n   !! enough to include that yet.  Data for the high NOX and low NOX\n   !! parameters are given in Kroll 05 and Kroll 06, respectively.\n   !! The paramters for low NOX are given in Table 1 of Henze 06.\n   !!=================================================================\n   !\n   !! Average of ALPHA-PINENE, BETA-PINENE, SABINENE, D3-CARENE\n   !RALPHA(1,1) = 0.067e+0_fp\n   !RALPHA(2,1) = 0.35425e+0_fp\n   !\n   !! LIMONENE\n   !RALPHA(1,2) = 0.239e+0_fp\n   !RALPHA(2,2) = 0.363e+0_fp\n   !\n   !! Average of TERPINENES and TERPINOLENE\n   !RALPHA(1,3) = 0.0685e+0_fp\n   !RALPHA(2,3) = 0.2005e+0_fp\n   !\n   !! Average of MYRCENE, LINALOOL, TERPINENE-4-OL, OCIMENE\n   !RALPHA(1,4) = 0.06675e+0_fp\n   !RALPHA(2,4) = 0.135e+0_fp\n   !\n   !! Average of BETA-CARYOPHYLLENE and and ALPHA-HUMULENE\n   !RALPHA(1,5) = 1.0e+0_fp\n   !RALPHA(2,5) = 0.0e+0_fp\n   !\n   !! Using BETA-PINENE for all species for NO3 oxidation\n   !! Data from Table 4 of Griffin, et al., JGR 104 (D3): 3555-3567 (1999)\n   !RALPHA(3,:) = 1.e+0_fp\n   !\n   !! Here we define some alphas for isoprene (dkh, bmy, 5/22/06)\n   !\n   !! high NOX  [Kroll et al, 2005]\n   !!RALPHA(1,6) = 0.264e+0_fp\n   !!RALPHA(2,6) = 0.0173e+0_fp\n   !!RALPHA(3,6) = 0e+0_fp\n   !\n   !! low NOX   [Kroll et al, 2006; Henze and Seinfeld, 2006]\n   !RALPHA(1,6) = 0.232e+0_fp\n   !RALPHA(2,6) = 0.0288e+0_fp\n   !RALPHA(3,6) = 0e+0_fp\n   !\n   !!=================================================================\n   !! Equilibrium gas-particle partition coefficients of\n   !! semi-volatile compounds [ug-1 m**3]\n   !!=================================================================\n   !\n   !! Average of ALPHA-PINENE, BETA-PINENE, SABINENE, D3-CARENE\n   !KOM(1,1) = 0.1835e+0_fp\n   !KOM(2,1) = 0.004275e+0_fp\n   !\n   !! LIMONENE\n   !KOM(1,2) = 0.055e+0_fp\n   !KOM(2,2) = 0.0053e+0_fp\n   !\n   !! Average of TERPINENES and TERPINOLENE\n   !KOM(1,3) = 0.133e+0_fp\n   !KOM(2,3) = 0.0035e+0_fp\n   !\n   !! Average of MYRCENE, LINALOOL, TERPINENE-4-OL, OCIMENE\n   !KOM(1,4) = 0.22375e+0_fp\n   !KOM(2,4) = 0.0082e+0_fp\n   !\n   !! Average of BETA-CARYOPHYLLENE and and ALPHA-HUMULENE\n   !KOM(1,5) = ( 0.04160e+0_fp + 0.0501e+0_fp ) / 2.e+0_fp\n   !KOM(2,5) = 0.0e+0_fp\n   !\n   !! NOT APPLICABLE -- using BETA-PINENE for all species\n   !! Data from Table 4 of Griffin, et al., JGR 104 (D3): 3555-3567 (1999)\n   !KOM(3,:) = 0.0163e+0_fp\n   !\n   !! Again, for isoprene we only consider two products,\n   !! both from OH oxidation. (dkh, bmy, 5/22/06)\n   !\n   !! High NOX\n   !!KOM(1,6) = 0.00115e+0_fp\n   !!KOM(2,6) = 1.52e+0_fp\n   !!KOM(3,6) = 0e+0_fp\n   !\n   !! Low NOX\n   !KOM(1,6) = 0.00862e+0_fp\n   !KOM(2,6) = 1.62e+0_fp\n   !KOM(3,6) = 0e+0_fp\n\n   !=================================================================\n   ! Temperature Adjustments of KOM\n   !=================================================================\n\n   !--------------------------------------------------------\n   ! Lumped semivolatiles 1-3 (hotp 5/21/10)\n   !--------------------------------------------------------\n   ! First 3 semivolatile systems are at Tref = 298K\n   ! SV 1: MTPA,LIMO,MTPO,SESQ\n   ! SV 2: ISOP\n   ! SV 3: BENZ,TOLU,XYLE,(NAP)\n\n   ! Reciprocal temperature [1/K]\n   OVER = 1.0e+0_fp / TEMP\n\n   !! Divide TEMP by 310K outside the DO loop\n   !TMP1 = ( TEMP / 310.e+0_fp )\n   ! Divide TEMP by 298K outside the DO loop\n   TMP1 = ( TEMP / 298.e+0_fp )\n\n   ! Compute the heat-of-vaporization exponential term outside the DO loop\n   !TMP2 = EXP( HEAT_VAPOR * ( OVER - REF310 ) )\n   TMP2 = EXP( HEAT_VAPOR * ( OVER - REF298 ) )\n\n   ! Multiply KOM by the temperature and heat-of-vaporization terms\n   ! now use JSV (hotp 5/21/10)\n   ! update dims (hotp 5/22/10)\n   DO JSV = 1, 3\n   DO IPR = 1, NPROD(JSV)\n      KOM(IPR,JSV) = KOM_REF(IPR,JSV) * TMP1 * TMP2\n   ENDDO\n   ENDDO\n\n   !--------------------------------------------------------\n   ! POA (primary semivolatiles) (hotp 5/13/10)\n   !--------------------------------------------------------\n   ! semivolpoa2: reference for POA is 300 K (hotp 2/27/09)\n   ! Divide TEMP by 300K outside the DO loop\n   TMP1 = ( TEMP / 300.e+0_fp )\n\n   ! Compute the heat-of-vaporization exponential term outside the DO loop\n   TMP2 = EXP( HEAT_VAPOR * ( OVER - REF300 ) )\n\n   ! Multiply KOM by the temperature and heat-of-vaporization terms\n   ! Adjust POA from reference of 300K\n   JHC = PARENTPOA\n   JSV = IDSV(JHC)\n   DO IPR = 1, NPROD(JSV)\n      KOM(IPR,JSV) = KOM_REF(IPR,JSV) * TMP1 * TMP2\n   ENDDO\n\n   !--------------------------------------------------------\n   ! OPOA (oxidized semivolatiles) (hotp 5/13/10)\n   !--------------------------------------------------------\n   ! Divide TEMP by 300K outside the DO loop\n   TMP1 = ( TEMP / 300.e+0_fp )\n\n   ! Compute the heat-of-vaporization exponential term outside the DO loop\n   TMP2 = EXP( HEAT_VAPOR * ( OVER - REF300 ) )\n\n   ! Adjust OPOA KOM\n   JHC = PARENTOPOA\n   JSV = IDSV(JHC)\n   DO IPR = 1, NPROD(JSV)\n      KOM(IPR,JSV) = KOM_REF(IPR,JSV) * TMP1 * TMP2\n   ENDDO\n\n END SUBROUTINE SOA_PARA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soa_para_init\n!\n! !DESCRIPTION: Subroutine SOA\\_PARA\\_INIT initializes the ALPHAS and KOMS, the\n!  latter at their reference temperature. It is faster to define these\n!  seperately as it only needs to be done once. (dkh, 11/12/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE SOA_PARA_INIT( Input_Opt )\n!\n! !USES:\n!\n   USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !REMARKS:\n!  NOTE: REFT for KOM_REF depends on hydrocarbon.\n!\n! !REVISION HISTORY:\n!  12 Nov 2006 - D. Henze - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! for debug purposes (hotp 7/22/09)\n   INTEGER :: ai,bj,cl\n\n   INTEGER :: NOX ! (hotp 5/21/10)\n\n   !=================================================================\n   ! SOA_PARA_INIT begins here!\n   !=================================================================\n\n   ! update reaction rates\n   ! Still based on same underlying data (as summarized by\n   ! Griffin 1999 and Chung 2002) but lumped by contribution of HC to\n   ! global emissions for that category (hotp 5/21/10)\n   ! K(MTPA) = K_REF(1) =\n   !      0.53*K(A-PINE) + 0.25*K(B-PINE) + 0.12*K(SABI) + 0.10*K(CAR)\n   ! K(LIMO) = K_REF(2)\n   ! K(MTPO) = K_REF(3) =\n   !      0.11*K(TERPINENE) + 0.11*K(TERPINOLENE) + 0.11*K(MYRCENE) +\n   !      0.11*K(LINALOOL) + 0.11*K(terpinene-4-ol) + 0.45*K(OCIMENE)\n   ! K(SESQ) = K_REF(4) = 0.5*K(B-CARYOPHYLLENE) + 0.5*K(A-HUMULENE)\n\n   ! Photo-oxidation rates of O3 [cm3/molec/s] (See Refs #1-4)\n   KO3_REF(1) =    63.668e-18_fp\n   KO3_REF(2) =   200.000e-18_fp\n   KO3_REF(3) =  1744.500e-18_fp\n   KO3_REF(4) = 11650.000e-18_fp\n\n   ! Photo-oxidation rates of OH [cm3/molec/s] (See Refs #1-4)\n   KOH_REF(1) =    71.026e-12_fp\n   KOH_REF(2) =   171.000e-12_fp\n   KOH_REF(3) =   227.690e-12_fp\n   KOH_REF(4) =   245.000e-12_fp\n\n   ! Photo-oxidation rate of NO3 [cm3/molec/s] (See Refs #1-4)\n   KNO3_REF(1) =    6.021e-12_fp\n   KNO3_REF(2) =   12.200e-12_fp\n   KNO3_REF(3) =   33.913e-12_fp\n   KNO3_REF(4) =   27.000e-12_fp\n\n   ! Rate constants for branching ratio (hotp 5/7/10)\n   ! k=A*exp(B/T)\n   ! Reference: Henze et al., 2008 ACP\n   ! RO2+NO\n   AARO2NO = 2.6e-12_fp\n   BBRO2NO = 350.e+0_fp\n   ! RO2+HO2\n   AARO2HO2 = 1.4e-12_fp\n   BBRO2HO2 = 700.e+0_fp\n\n   !=================================================================\n   ! SOA YIELD PARAMETERS\n   !\n   ! Aerosol yield parameters for photooxidation of biogenic organics\n   ! The data (except for C7-C10 n-carbonyls, aromatics, and higher\n   ! ketones are from:\n   !\n   ! (7) Tables 1 and 2 of Griffin, et al., Geophys. Res. Lett.\n   !      26: (17)2721-2724 (1999)\n   !\n   ! These parameters neglect contributions of the photooxidation\n   ! by NO3.\n   !\n   ! For the aromatics, the data are from\n   ! (8) Odum, et al., Science 276: 96-99 (1997).\n   !\n   ! Isoprene (dkh, bmy, 5/22/06)\n   ! Unlike the other species, we consider oxidation by purely OH.\n   ! CHEM_NVOC has been adjusted accordingly. There's probably\n   ! significant SOA formed from NO3 oxidation, but we don't know\n   ! enough to include that yet.  Data for the high NOX and low NOX\n   ! parameters are given in Kroll 05 and Kroll 06, respectively.\n   ! The paramters for low NOX are given in Table 1 of Henze 06.\n   !=================================================================\n\n   ! SOAupdate: new yield parameterizations\n   ! Initialize all ALPHAs to zero (hotp 5/12/10)\n   ! ALPHAs are indexed by PARENT HYDROCARBON\n   ! all monoterpenes use b-pinene + NO3 for NO3 yields\n   ALPHA = 0e+0_fp\n\n   !----------------------------\n   ! MTPA\n   !----------------------------\n   ! MTPA based on Shilling 2008 a-pinene ozonolysis\n   ! updated 6/12/10 (hotp)\n   ! Product 4 has C*=0.1\n   NOX = NHIGHNOX\n   ALPHA(NOX,1,PARENTMTPA) = 0.0095e+0_fp\n   ALPHA(NOX,2,PARENTMTPA) = 0.0900e+0_fp\n   ALPHA(NOX,3,PARENTMTPA) = 0.0150e+0_fp\n   ALPHA(NOX,4,PARENTMTPA) = 0.0400e+0_fp\n   NOX = NLOWNOX\n   ALPHA(NOX,1,PARENTMTPA) = 0.019e+0_fp\n   ALPHA(NOX,2,PARENTMTPA) = 0.180e+0_fp\n   ALPHA(NOX,3,PARENTMTPA) = 0.030e+0_fp\n   ALPHA(NOX,4,PARENTMTPA) = 0.080e+0_fp\n   NOX = NNO3RXN\n   ALPHA(NOX,1,PARENTMTPA) = 0.0000e+0_fp\n   ALPHA(NOX,2,PARENTMTPA) = 0.3207e+0_fp\n   ALPHA(NOX,3,PARENTMTPA) = 1.0830e+0_fp\n\n   !----------------------------\n   ! LIMO\n   !----------------------------\n   ! Use higher LIMO yields of Zhang 2006\n   ! Assumed density of 1.3 g/cm3 (hotp 6/12/10)\n   NOX = NHIGHNOX\n   ALPHA(NOX,1,PARENTLIMO) = 0.4743e+0_fp\n   ALPHA(NOX,2,PARENTLIMO) = 0.1174e+0_fp\n   ALPHA(NOX,3,PARENTLIMO) = 1.4190e+0_fp\n   NOX = NLOWNOX\n   ALPHA(NOX,1,PARENTLIMO) = 0.3661e+0_fp\n   ALPHA(NOX,2,PARENTLIMO) = 0.3214e+0_fp\n   ALPHA(NOX,3,PARENTLIMO) = 0.8168e+0_fp\n   NOX = NNO3RXN\n   ALPHA(NOX,1,PARENTLIMO) = 0.0000e+0_fp\n   ALPHA(NOX,2,PARENTLIMO) = 0.3207e+0_fp\n   ALPHA(NOX,3,PARENTLIMO) = 1.0830e+0_fp\n\n   !----------------------------\n   ! MTPO\n   !----------------------------\n   ! MTPO based on Shilling 2008 a-pinene ozonolysis\n   ! updated 6/12/10 (hotp)\n   ! Product 4 has C*=0.1\n   NOX = NHIGHNOX\n   ALPHA(NOX,1,PARENTMTPO) = 0.0095e+0_fp\n   ALPHA(NOX,2,PARENTMTPO) = 0.0900e+0_fp\n   ALPHA(NOX,3,PARENTMTPO) = 0.0150e+0_fp\n   ALPHA(NOX,4,PARENTMTPO) = 0.040e+0_fp\n   NOX = NLOWNOX\n   ALPHA(NOX,1,PARENTMTPO) = 0.019e+0_fp\n   ALPHA(NOX,2,PARENTMTPO) = 0.180e+0_fp\n   ALPHA(NOX,3,PARENTMTPO) = 0.030e+0_fp\n   ALPHA(NOX,4,PARENTMTPO) = 0.080e+0_fp\n   NOX = NNO3RXN\n   ALPHA(NOX,1,PARENTMTPO) = 0.0000e+0_fp\n   ALPHA(NOX,2,PARENTMTPO) = 0.3207e+0_fp\n   ALPHA(NOX,3,PARENTMTPO) = 1.0830e+0_fp\n\n   !----------------------------\n   ! SESQ\n   !----------------------------\n   ! update high and low NOx (hotp 6/4/2010)\n   ! Griffin1999 VOC/NO>3ppbC/ppb is low NOx\n   ! high NOx is double the Y for a given Mo\n   NOX = NHIGHNOX\n   ALPHA(NOX,1,PARENTSESQ) = 0.0005e+0_fp\n   ALPHA(NOX,2,PARENTSESQ) = 1.1463e+0_fp\n   ALPHA(NOX,3,PARENTSESQ) = 2.9807e+0_fp\n   NOX = NLOWNOX\n   ALPHA(NOX,1,PARENTSESQ) = 0.0000e+0_fp\n   ALPHA(NOX,2,PARENTSESQ) = 0.5738e+0_fp\n   ALPHA(NOX,3,PARENTSESQ) = 1.4893e+0_fp\n   NOX = NNO3RXN\n   ALPHA(NOX,1,PARENTSESQ) = 0.0000e+0_fp\n   ALPHA(NOX,2,PARENTSESQ) = 0.3207e+0_fp\n   ALPHA(NOX,3,PARENTSESQ) = 1.0830e+0_fp\n\n   !----------------------------\n   ! ISOP\n   !----------------------------\n   NOX = 1 ! low NOx/all OH rxn\n   ALPHA(NOX,1,PARENTISOP) = 0.0306e+0_fp\n   ALPHA(NOX,2,PARENTISOP) = 0.0000e+0_fp\n   ALPHA(NOX,3,PARENTISOP) = 0.0945e+0_fp\n   NOX = 2 ! NO3 rxn\n   ALPHA(NOX,1,PARENTISOP) = 0.0000e+0_fp\n   ALPHA(NOX,2,PARENTISOP) = 0.2171e+0_fp\n   ALPHA(NOX,3,PARENTISOP) = 0.0919e+0_fp\n\n   !----------------------------\n   ! BENZ, TOLU, XYLE\n   !----------------------------\n   ! Replace Daven's numbers for BENZ, TOLU, XYLE with new numbers\n   ! Numbers based on a 3 product fit to Ng 2007 data\n   ! These numbers are for parent HC (no adjustment for ARO2)\n   ! and correspond to C* of 1, 10, 100 in HIGH NOx case (hotp 5/12)\n\n   ! HIGH NOX BENZ\n   ALPHA(1,1,PARENTBENZ) = 0.0778e+0_fp\n   ALPHA(1,2,PARENTBENZ) = 0.0000e+0_fp\n   ALPHA(1,3,PARENTBENZ) = 0.7932e+0_fp\n   ! LOW NOX BENZ (non-volatile)\n   ALPHA(2,4,PARENTBENZ) = 0.37e+0_fp\n\n   ! HIGH NOX TOLU\n   ALPHA(1,1,PARENTTOLU) = 0.0315e+0_fp\n   ALPHA(1,2,PARENTTOLU) = 0.0944e+0_fp\n   ALPHA(1,3,PARENTTOLU) = 0.0800e+0_fp\n   ! LOW NOX TOLU\n   ALPHA(2,4,PARENTTOLU) = 0.30e+0_fp\n\n   ! HIGH NOX XYLE\n   ALPHA(1,1,PARENTXYLE) = 0.0250e+0_fp\n   ALPHA(1,2,PARENTXYLE) = 0.0360e+0_fp\n   ALPHA(1,3,PARENTXYLE) = 0.0899e+0_fp\n   ! LOW NOX XYLE\n   ALPHA(2,4,PARENTXYLE) = 0.36e+0_fp\n\n   !----------------------------\n   ! POA\n   !----------------------------\n   ! semivolpoa2: alphas for POA (hotp 2/27/09)\n   ! based on Shrivastava et al. 2006 ES&T\n   ! Only 2 products (wood smoke)\n   ALPHA(1,1,PARENTPOA) = 0.49e+0_fp\n   ALPHA(1,2,PARENTPOA) = 0.51e+0_fp\n   ! No high NOx parameters\n   ! semivolpoa3: add diesel/anthropogenic POA (hotp 3/13/09)\n   !ALPHA(2:MNOX,1:MPROD,10) = 0e+0_fp\n\n   !----------------------------\n   ! OPOA\n   !----------------------------\n   ! semivolpoa4opoa: alphas for OPOA (hotp 3/18/09)\n   ! remove semivolpoa3 changes (hotp 3/27/09)\n   ! biomass burning\n   ! (note that this is the carbon yield)\n   ALPHA(1,1,PARENTOPOA) = 1.e+0_fp\n   ALPHA(1,2,PARENTOPOA) = 1.e+0_fp\n   ! anthropogenic\n   !ALPHA(2:MNOX,1:MPROD,11) = 0e+0_fp\n\n   !----------------------------\n   ! SOA from oxidation of IVOCs\n   !----------------------------\n   ! NAPSOA: SOA from oxidation of IVOCs (hotp 7/22/09)\n   ! Values from Chan et al. 2009 ACP (refit)\n   ! ALPHAs are set up for the aromatic (NAP) as the parent HC\n   ! ALPHAs must be consistent with GET_DARO2 units!\n   ! HIGH NOX\n   ! Ox = NO\n   ALPHA(1,1,PARENTNAP) = 0.0387e+0_fp\n   ALPHA(1,2,PARENTNAP) = 0.2956e+0_fp\n   ALPHA(1,3,PARENTNAP) = 0.2349e+0_fp\n   ! LOW NOX\n   ! Ox = HO2\n   ALPHA(2,4,PARENTNAP) = 0.73e+0_fp\n\n   !=================================================================\n   ! Equilibrium gas-particle partition coefficients of\n   ! semi-volatile compounds [ug-1 m**3]\n   !=================================================================\n\n   ! SOAupdate: KOM for semivolatile systems\n   ! Initialize to zero (hotp 5/12/10)\n   ! KOM_REF are indexed by SEMIVOLATILE SPECIES (hotp 5/13/10)\n   KOM_REF = 0e+0_fp\n\n   !---------------------------------------\n   ! SEMIVOLATILE 1: MTPA, LIMO, MTPO, SESQ\n   ! (hotp 5/21/10)\n   !---------------------------------------\n   KOM_REF(1,IDSV(PARENTMTPA)) = 1.0e+0_fp/1.0e+0_fp\n   KOM_REF(2,IDSV(PARENTMTPA)) = 1.0e+0_fp/10.0e+0_fp\n   KOM_REF(3,IDSV(PARENTMTPA)) = 1.0e+0_fp/100.0e+0_fp\n   KOM_REF(4,IDSV(PARENTMTPA)) = 1.0e+0_fp/0.1e+0_fp ! C*=0.1 hotp 6/12/10\n\n   !---------------------------------------\n   ! SEMIVOLATILE 2: ISOP\n   ! (hotp 5/21/10)\n   !---------------------------------------\n   KOM_REF(1,IDSV(PARENTISOP)) = 1.0e+0_fp/1.0e+0_fp\n   KOM_REF(2,IDSV(PARENTISOP)) = 1.0e+0_fp/10.0e+0_fp\n   KOM_REF(3,IDSV(PARENTISOP)) = 1.0e+0_fp/100.0e+0_fp\n\n   !---------------------------------------\n   ! SEMIVOLATILE 3: BENZ, TOLU, XYLE, NAP\n   !---------------------------------------\n   ! Update aromatics to new fits (hotp 5/12/10)\n   ! BENZ, TOLU, XYLE, NAP/IVOC all lumped together\n   KOM_REF(1,IDSV(PARENTBENZ)) = 1.0e+0_fp/1.0e+0_fp\n   KOM_REF(2,IDSV(PARENTBENZ)) = 1.0e+0_fp/10.0e+0_fp\n   KOM_REF(3,IDSV(PARENTBENZ)) = 1.0e+0_fp/100.0e+0_fp\n   ! Low NOX (HO2) non-volatile\n   !KOM_REF(4,IDSV(PARENTBENZ)) = 1.d6\n   KOM_REF(4,IDSV(PARENTBENZ)) = 1.e+10_fp ! more non-vol (hotp 5/28/10)\n\n   !---------------------------------------\n   ! SEMIVOLATILE 4: POA/SVOCs\n   !---------------------------------------\n   ! semivolpoa2: KOM for POA (hotp 2/27/09)\n   ! based on Shrivastava et al. 2006 ES&T\n   ! Only 2 products (wood smoke)\n   ! Tref is 27 C = 300 K\n   KOM_REF(1,IDSV(PARENTPOA)) = 1e+0_fp/1646e+0_fp\n   KOM_REF(2,IDSV(PARENTPOA)) = 1e+0_fp/20e+0_fp\n   ! No high NOx parameters\n   ! remove semivolpoa3 changes (hotp 3/27/09)\n   ! semivolpoa3: add diesel/anthropogenic POA (hotp 3/13/09)\n   !KOM_REF(2:MNOX,1:MPROD,10) = 0e+0_fp\n\n   !---------------------------------------\n   ! SEMIVOLATILE 5: OPOA/O-SVOCs\n   !---------------------------------------\n   ! semivolpoa4opoa: OPOA parameters (hotp 3/18/09)\n   ! parameters are a factor of 100 more than POA param\n   KOM_REF(1,IDSV(PARENTOPOA)) = KOM_REF(1,IDSV(PARENTPOA)) * 100e+0_fp\n   KOM_REF(2,IDSV(PARENTOPOA)) = KOM_REF(2,IDSV(PARENTPOA)) * 100e+0_fp\n\n   ! debug print checks (hotp 7/22/09)\n   IF ( Input_Opt%Verbose ) THEN\n      print*, 'Semivolatile POA settings:---------------'\n      print*, ' ALPHA:   ', ALPHA(1,1,9), ALPHA(1,2,9)\n      ! OCFPOA and OCFOPOA are now 2D arrays\n      !print*, ' POA OA/OC ratio:    ', State_Chm%AerMass%OCFPOA(I,J)\n      !print*, ' OPOA OA/OC ratio:   ', State_Chm%AerMass%OCFOPOA(I,J)\n      print*, ' LSVPOA is set to:   ', Input_Opt%LSVPOA\n\n      print*, 'CHECK MHC, NOX, PR', MHC, MNOX, MPROD\n      print*, 'CHECK MSV', MSV\n      print*, '      NOX, PROD, HC/SV'\n\n      DO ai = 1, MHC\n      DO bj = 1, MNOX\n      DO cl = 1, MPROD\n         print*,'Alpha', bj,cl,ai\n         print*, ALPHA(bj,cl,ai)\n      ENDDO\n      ENDDO\n      ENDDO\n\n      ! Check KOM_REF (hotp 5/13/10)\n      DO ai = 1, MSV\n      DO cl = 1, MPROD\n         print*,'KOM_REF', cl,ai\n         print*, KOM_REF(cl,ai)\n      ENDDO\n      ENDDO\n   ENDIF\n\n END SUBROUTINE SOA_PARA_INIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_nvoc\n!\n! !DESCRIPTION: Subroutine CHEM\\_NVOC computes the oxidation of Hydrocarbon by\n!  O3, OH, and NO3.  This comes from the Caltech group (Hong Liao, Serena\n!  Chung, et al) and was incorporated into GEOS-CHEM. (rjp, bmy, 7/6/04,6/1/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_NVOC( I, J, L, KO3, KOH, KNO3, GM0, KNO, KHO2, &\n                       Input_Opt,  State_Chm, State_Diag,       &\n                       State_Grid, State_Met, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Diag_Mod,     ONLY : DgnState\n   USE State_Grid_Mod,     ONLY : GrdState\n   USE State_Met_Mod,      ONLY : MetState\n   USE TIME_MOD,           ONLY : GET_TS_CHEM, GET_MONTH\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)    :: I             ! Longitude index\n   INTEGER,        INTENT(IN)    :: J             ! Latitude index\n   INTEGER,        INTENT(IN)    :: L             ! Altitude index\n   REAL(fp),       INTENT(IN)    :: KO3(MHC)      ! Rxn rate for HC oxidation\n                                                  !  by O3 [cm3/molec/s]\n   REAL(fp),       INTENT(IN)    :: KOH(MHC)      ! Rxn rate for HC oxidation\n                                                  !  by OH [cm3/molec/s]\n   REAL(fp),       INTENT(IN)    :: KNO3(MHC)     ! Rxn rate for HC oxidation\n                                                  !  by NO3 [cm3/molec/s]\n   ! RO2+NO, RO2+HO2 rate constants (hotp 5/7/10)\n   REAL(fp),       INTENT(IN)    :: KNO           ! RO2+NO  rate constant\n   REAL(fp),       INTENT(IN)    :: KHO2          ! RO2+HO2 rate constant\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt     ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid    ! Grid State object\n   TYPE(MetState), INTENT(IN)    :: State_Met     ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   REAL(fp),       INTENT(INOUT) :: GM0(MPROD,MSV)! Gas mass for HCs and\n                                                  !  oxidation products [kg]\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm     ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag    ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REMARKS:\n!  SVOCs should immediately partition upon emission\n!  SVOCs also react in the gas-phase\n!  If SVOCs were emitted before reactions, we wouldn't know how\n!  much to put in each phase\n!  H.O.T. Pye decided to emit them after the existing SVOCs\n!  react in the gas-phase. Thus the order of operations is:\n!    SVOC + OH in gas-phase\n!    SVOC emission (added to gas-phase GM0)\n!    partitioning\n!    dry dep\n!    wet dep\n!    etc\n!\n! !REVISION HISTORY:\n!  06 Jul 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER  :: JHC, IPR, NOX, JSV !(hotp 5/14/10)\n   INTEGER  :: MAXLOOP ! (hotp 6/7/10)\n   REAL(fp) :: CHANGE(MHC), NMVOC(MHC), DELHC(MNOX)\n   REAL(fp) :: OHMC, TTNO3, TTO3, DTCHEM, RK\n   REAL(fp) :: OVER, DO3, DOH, DNO3\n\n   ! for RO2+NO, RO2+HO2 branching ratio (hotp 5/7/10)\n   REAL(fp) :: NOTEMP, HO2TEMP, BETANO\n\n   ! for debug (hotp 5/10/10)\n   REAL(fp) :: TEMPHC\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! CHEM_NVOC begins here!\n   !=================================================================\n\n   ! Assume success\n   RC      = GC_SUCCESS\n\n   ! Point to chemical species array [kg]\n   Spc     => State_Chm%Species\n\n   ! Chemistry timestep [s]\n   DTCHEM  = GET_TS_CHEM()\n\n   ! Get offline OH, NO3, O3 concentrations [molec/cm3]\n   OHMC    = GET_OH(  I, J, L, Input_Opt, State_Chm, State_Met )\n   TTNO3   = GET_NO3( I, J, L, Input_Opt, State_Chm, State_Met )\n   TTO3    = GET_O3(  I, J, L, Input_Opt, State_Chm, State_Grid, State_Met )\n\n   ! Get RO2+NO, RO2+HO2 branching ratio (hotp 5/7/10)\n   NOTEMP  = GET_NO(  I, J, L, Input_Opt, State_Chm, State_Met )\n   HO2TEMP = GET_HO2( I, J, L, Input_Opt, State_Chm, State_Met )\n\n   IF ( NOTEMP .GT. 0.0 ) THEN\n      BETANO  = ( KNO * NOTEMP ) / ( KNO * NOTEMP + KHO2 * HO2TEMP )\n   ELSEIF ( HO2TEMP .GT. 0.0 ) THEN\n      BETANO = 0.e+0_fp\n   ELSE\n      ! default value if no State_Chm%Species value\n      BETANO = 0.5e+0_fp\n   ENDIF\n\n   ! save for diagnostic purposes (hotp 5/24/10)\n   BETANOSAVE(I,J,L) = BETANO\n\n   ! Save to State_Diag for output as netcdf diagnostic (ewl, 8/28/18)\n   IF ( State_Diag%Archive_BetaNO ) THEN\n      State_Diag%BetaNO(I,J,L) = BETANO\n   ENDIF\n\n   ! update for new mtp lumping (hotp 5/22/10)\n   NMVOC(1) = Spc(id_MTPA)%Conc(I,J,L)\n   NMVOC(2) = Spc(id_LIMO)%Conc(I,J,L)\n   NMVOC(3) = Spc(id_MTPO)%Conc(I,J,L)\n   NMVOC(4) = State_Chm%ORVCsesq(I,J,L)\n\n   ! Initialize DELHC so that the values from the previous\n   ! time step are not carried over.\n   DELHC(:) = 0.e+0_fp\n\n   !=================================================================\n   ! Change in NVOC concentration due to photooxidation [kg]\n   !=================================================================\n\n   ! semivolpoa2: update for POA (hotp 2/27/09)\n   ! add POA emissions to GMO here (not to Spc in EMITHIGH)\n\n   ! Only loop over parent hydrocarbons defined for a given simulation\n   ! Max should be 11 for semivolatile POA/IVOC (PARENTNAP =11)\n   ! Max should be 8  for nonvolatile POA/ traditional simulation\n   IF ( id_POA1 > 0 ) THEN\n      MAXLOOP = PARENTNAP   !11\n   ELSE\n      MAXLOOP = PARENTXYLE  ! 8\n   ENDIF\n\n   DO JHC = 1, MAXLOOP\n\n      ! Initialize again for safety (hotp 5/22/10)\n      DELHC = 0e+0_fp\n\n      ! Get JSV (hotp 5/14/10)\n      JSV = IDSV(JHC)\n\n      ! update for new mtp (hotp 5/22/10)\n      IF ( JHC == PARENTMTPA .or. JHC == PARENTLIMO .or. &\n           JHC == PARENTMTPO .or. JHC == PARENTSESQ      ) THEN\n\n         !------------------------------------------\n         ! Oxidize parent hydrocarbon by OH, O3, NO3\n         ! (unmodified from original implemenation)\n         !------------------------------------------\n         RK          = KO3(JHC)*TTO3 + KOH(JHC)*OHMC + KNO3(JHC)*TTNO3\n         CHANGE(JHC) = NMVOC(JHC) * ( 1.e+0_fp - &\n                       EXP( -RK * DTCHEM ) ) !changed to EXP (myan, 12/14)\n\n         ! In case that the biogenic hydrocarbon is the limiting reactant\n         IF ( CHANGE(JHC) >= NMVOC(JHC) ) CHANGE(JHC) = NMVOC(JHC)\n\n         ! NMVOC concentration after oxidation reactions\n         NMVOC(JHC) = NMVOC(JHC) - CHANGE(JHC)\n\n         IF( CHANGE(JHC) > 1.e-16_fp ) THEN\n            OVER  = 1.e+0_fp / RK\n            DO3   = CHANGE(JHC) * KO3(JHC)  * TTO3  * OVER ![kg]\n            DOH   = CHANGE(JHC) * KOH(JHC)  * OHMC  * OVER ![kg]\n            DNO3  = CHANGE(JHC) * KNO3(JHC) * TTNO3 * OVER ![kg]\n         ELSE\n            DO3   = 0.e+0_fp\n            DOH   = 0.e+0_fp\n            DNO3  = 0.e+0_fp\n         ENDIF\n\n         !------------------------------------------\n         ! Determine DELTAHC that corresponds to the alphas\n         !------------------------------------------\n         ! For HC 1-4 (hotp 5/22/10)\n         NOX = NHIGHNOX ! NOX=1, high NOx photooxidation\n         DELHC(NOX) = ( DO3 + DOH ) * BETANO\n         NOX = NLOWNOX  ! NOX=2, low NOx photooxidation\n         DELHC(NOX) = ( DO3 + DOH ) * ( 1e+0_fp - BETANO )\n         NOX = NNO3RXN  ! NOX=3, NO3 oxidation\n         DELHC(NOX) = ( DNO3 )\n\n         ! debug check (updated hotp 5/26/10)\n         !IF ( CHANGE(JHC) .GT. 1d-16 ) THEN\n         !TEMPHC = ABS(SUM(DELHC(:))-CHANGE(JHC))\n         !TEMPHC = ABS(TEMPHC/CHANGE(JHC))\n         !IF ( (TEMPHC) .GE. 1d-14 ) THEN\n         !   print*,'DELHC Problem in CHEM_NVOC',I,J,L,JHC\n         !   print*,DELHC,CHANGE(JHC),TEMPHC\n         !ENDIF\n         !ENDIF\n\n         ! Save diagnostic info for bug check (hotp 5/22/10)\n         DELTASOGSAVE(I,J,L,:,JHC) = DELHC(:)\n\n         !------------------------------------------\n         ! Compute amount of semivolatile formed\n         ! and add to initial SOG\n         !------------------------------------------\n         ! update dims and switch order (hotp 5/22/10)\n         DO NOX = 1, NNOX(JSV)\n         DO IPR = 1, NPROD(JSV)\n\n            GM0(IPR,JSV) = GM0(IPR,JSV) + ALPHA(NOX,IPR,JHC) * DELHC(NOX)\n\n         ENDDO\n         ENDDO\n\n      ELSEIF ( JHC == PARENTISOP ) THEN\n\n         !-------------------------------\n         ! SOA from ISOPRENE: Parent is oxidized in\n         ! gas-phase chemsitry\n         !-------------------------------\n\n         ! Get ISOP lost to rxn with OH [kg]\n         !DOH = GET_DOH( I, J, L, Input_Opt )\n         ! Save as DELHC (hotp 5/22/10)\n         DELHC(1) = GET_DOH( I, J, L, Input_Opt, State_Chm, State_Met )\n\n         ! Get ISOP lost to rxn with NO3 [kgC]\n         ! No longer need this for isoprene SOA simulation (eam, 02/2015):\n         !DELHC(2) = GET_ISOPNO3( I, J, L, Input_Opt, State_Chm, State_Met )\n\n         ! Save diagnostic info for bug check (hotp 5/22/10)\n         ! convert from kgC to kg\n         DELTASOGSAVE(I,J,L,:,JHC) = DELHC(:) * 68e+0_fp/60e+0_fp\n\n         !------------------------------------------\n         ! Compute amount of semivolatile formed\n         ! and add to initial SOG (hotp 7/28/10)\n         !------------------------------------------\n         ! update dims (hotp 5/22/10)\n         DO NOX = 1, NNOX(JSV)\n         DO IPR = 1, NPROD(JSV)\n            GM0(IPR,JSV) = GM0(IPR,JSV) + ALPHA(NOX,IPR,JHC) * DELHC(NOX) &\n                           * 68e+0_fp / 60e+0_fp ! (dkh, 11/04/05)\n         ENDDO\n         ENDDO\n\n      ! Add NAP/IVOC here (hotp 5/22/10)\n      ELSEIF ( JHC == PARENTBENZ .or. JHC == PARENTTOLU .or. &\n               JHC == PARENTXYLE .or. JHC == PARENTNAP  ) THEN\n\n         !-------------------------------\n         ! SOA from AROMATICS\n         !-------------------------------\n\n         ! Locate IDSV (hotp 5/14/10)\n         JSV = IDSV(JHC)\n\n         ! Determine parent hydrocarbon reacted\n         ! For an online calculation, GET_DARO2 can be called\n         ! with 1 for high NOx, 2 for low NOx\n         ! Here, we add the two pathways together and use an\n         ! offline branching ratio (BETANO) (hotp 5/22/10)\n         NOX = NHIGHNOX ! NOX=1\n         DELHC(NOX) = ( GET_DARO2(I,J,L,1,JHC,Input_Opt,State_Chm,State_Met) + &\n                        GET_DARO2(I,J,L,2,JHC,Input_Opt,State_Chm,State_Met) ) &\n                      * BETANO\n         NOX = NLOWNOX  ! NOX=2\n         DELHC(NOX) = ( GET_DARO2(I,J,L,1,JHC,Input_Opt,State_Chm,State_Met) + &\n                        GET_DARO2(I,J,L,2,JHC,Input_Opt,State_Chm,State_Met) ) &\n                      * (1e+0_fp-BETANO)\n\n         ! Determine SOG yield and add to GM0 (hotp 5/22/10)\n         DO NOX = 1, NNOX(JSV)\n         DO IPR = 1, NPROD(JSV)\n            GM0(IPR,JSV) = GM0(IPR,JSV) + ALPHA(NOX,IPR,JHC) * DELHC(NOX)\n         ENDDO\n         ENDDO\n\n         ! Diagnostic/debug info (hotp 5/22/10)\n         IF ( JHC == PARENTBENZ .or. JHC == PARENTTOLU .or. &\n              JHC == PARENTXYLE ) THEN\n            GLOB_DARO2(I,J,L,1:2,JHC-5) = DELHC(1:2)\n         ELSE ! NAP\n            GLOB_DARO2(I,J,L,1:2,4) = DELHC(1:2)\n         ENDIF\n\n         ! Total SOG production diagnostic (hotp 5/18/10)\n         DELTASOGSAVE(I,J,L,:,JHC)=DELHC(:)\n\n      ! semivolpoa2: emit POA into 2 semivolatiles here (hotp 2/27/09)\n      ELSEIF ( JHC == PARENTPOA ) THEN\n\n         ! semivolpoa4opoa: DO NOTHING NOW\n         !\n         ! SVOCs should immediately partition upon emission\n         ! SVOCs also react in the gas-phase\n         ! If SVOCs were emitted here, how would you know how\n         ! much to put in each phase?\n         ! hotp decided to emit them after the existing SVOCs\n         ! react in the gas-phase. Thus the order of operations\n         ! is:\n         ! SVOC + OH in gas-phase\n         ! SVOC emission (added to gas-phase GM0)\n         ! partitioning\n         ! dry dep\n         ! wet dep\n         ! etc\n         !\n         ! DO IPR = 1, NPROD(JHC)\n         ! DO NOX =1, NNOX(JHC)\n         !    ! DELHC is now emission of POA\n         !    DELHC(IPR) = POAEMISS(I,J,L) ! DELHC not a function of IPR\n         !    DELHC(IPR) = POAEMISS(I,J,L,NOX)\n         !    GM0(NOX,IPR,JHC) = GM0(NOX,IPR,JHC)\n         ! &                     + ALPHA(NOX,IPR,JHC)*DELHC(IPR)\n         ! ENDDO\n         ! ENDDO\n\n      ! semivolpoa4opoa: perform OPOA production (hotp 3/18/09)\n      ELSEIF ( JHC == PARENTOPOA ) THEN\n\n         ! here we oxidize gas phase POA (POG) to OPOG by reaction with OH\n         ! use constant KOH = 2e-11 for now (hotp 3/18/09)\n         OHMC = GET_OH( I, J, L, Input_Opt, State_Chm, State_Met )\n         RK   = 2.e-11_fp * OHMC\n\n         ! Identify IDSV (hotp 5/14/10)\n         JSV = IDSV(JHC)\n\n         DO IPR = 1, NPROD(JSV)\n         DO NOX = 1, NNOX(JSV)\n            ! compute loss of POG due to conversion to OPOG\n            DOH = GM0(IPR,IDSV(PARENTPOA)) * (1.e+0_fp - EXP( -RK * DTCHEM) )\n            DOH = MAX( DOH, 1.e-32_fp )\n\n            ! add OPOG mass and update GM0 (ALPHA=1)\n            GM0(IPR,JSV) = GM0(IPR,JSV) + ALPHA(NOX,IPR,JHC) * DOH\n\n            ! update POG mass\n            GM0(IPR,IDSV(PARENTPOA)) = GM0(IPR,IDSV(PARENTPOA)) - DOH\n\n            ! check (hotp 10/11/09)\n            GM0(IPR,IDSV(PARENTPOA)) = MAX( GM0(IPR,IDSV(PARENTPOA)), 1e-32_fp)\n\n            ! diagnostic information (hotp 3/28/09)\n            GLOB_POGRXN(I,J,L,IPR) = DOH\n\n            ! Total SOG production diagnostic (hotp 5/18/10)\n            ! Caution: the 4th index is actually NOX, but we use\n            ! IPR here\n            DELTASOGSAVE(I,J,L,IPR,JHC) = DOH\n\n         ENDDO\n         ENDDO\n      ENDIF\n   ENDDO  ! JHC\n\n   ! semivolpoa4opoa: emit POA last (after OPOA formation) (hotp 3/18/09)\n   ! SVOC emissions are added to gas-phase GM0\n   IF ( id_POA1 > 0 ) THEN\n      JHC = PARENTPOA\n\n      ! Use IDSV (hotp 5/14/10)\n      JSV = IDSV(JHC)\n\n      DO IPR = 1, NPROD(JSV)\n      DO NOX = 1, NNOX(JSV)   ! update dims (hotp 5/22/10)\n         ! DELHC is now emission of SVOC (POG1 + POG2)\n         DELHC(IPR)   = POAEMISS(I,J,L,1) + POAEMISS(I,J,L,2)\n         GM0(IPR,JSV) = GM0(IPR,JSV) + ALPHA(NOX,IPR,JHC)*DELHC(IPR)\n\n         ! Total SOG production diagnostic (hotp 5/18/10)\n         ! Caution: the 4th index is actually NOX, but we use\n         ! IPR here\n         DELTASOGSAVE(I,J,L,IPR,JHC) = DELHC(IPR)\n\n      ENDDO\n      ENDDO\n   ENDIF\n\n   !=================================================================\n   ! Store Hydrocarbon remaining after oxidation rxn back into Spc\n   !=================================================================\n   ! Nothing to do for isoprene or aromatics here,  as their oxidation\n   ! is treated online.\n   ! The same now applies to MTPA and LIMO. As of v11-02c, their\n   ! oxidation is treated online (mps, 9/7/17)\n   !Spc(id_MTPA)%Conc(I,J,L) = MAX( NMVOC(1), 1.e-32_fp )\n   !Spc(id_LIMO)%Conc(I,J,L) = MAX( NMVOC(2), 1.e-32_fp )\n   Spc(id_MTPO)%Conc(I,J,L) = MAX( NMVOC(3), 1.e-32_fp )\n   State_Chm%ORVCsesq(I,J,L) = MAX( NMVOC(4), 1.e-32_fp )\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE CHEM_NVOC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soa_partition\n!\n! !DESCRIPTION: Subroutine SOA\\_PARTITION partitions the mass of gas and\n!  aerosol species according to five Hydrocarbon species and three oxidants.\n!  (rjp, bmy, 7/7/04, 5/22/06)\n!\\\\\n!\\\\\n!  Revised purpose: SOA\\_PARTITION assigns the mass in the chemical\n!  species array to the GM0 and AM0 arrays (hotp 5/13/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE SOA_PARTITION( I, J, L, GM0, AM0, State_Chm )\n!\n! !USES:\n!\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,  INTENT(IN)  :: I              ! Longitude index\n   INTEGER,  INTENT(IN)  :: J              ! Latitude index\n   INTEGER,  INTENT(IN)  :: L              ! Altitude index\n!\n! !OUTPUT PARAMETERS:\n!\n   REAL(fp), INTENT(OUT) :: GM0(MPROD,MSV) ! Gas mass for HCs and\n                                           !  oxidation products [kg]\n   REAL(fp), INTENT(OUT) :: AM0(MPROD,MSV) ! Aer mass for HCs and\n                                           !  oxidation products [kg]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n!\n! !REMARKS:\n!  NOTE: GPROD and APROD are mass ratios of individual oxidation\n!        products of gas/aerosol to the sum of all.\n!\n! !REVISION HISTORY:\n!  13 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER           :: JHC, IPR, NOX, JSV\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! SOA_PARTITION begins here!\n   !=================================================================\n\n   ! Point to the chemical species array [kg]\n   Spc => State_Chm%Species\n\n   ! Initialize everything to zero (hotp 5/17/10)\n   GM0 = 0e+0_fp\n   AM0 = 0e+0_fp\n\n   !---------------------------------------\n   ! SEMIVOLATILE 1: MTPA, LIMO, MTPO, SESQ\n   ! hotp 5/21/10\n   !---------------------------------------\n   JHC = PARENTMTPA\n   JSV = IDSV(JHC)\n   ! gas phase\n   GM0(1,JSV)=Spc(id_TSOG1)%Conc(I,J,L) ! C* =   1\n   GM0(2,JSV)=Spc(id_TSOG2)%Conc(I,J,L) ! C* =  10\n   GM0(3,JSV)=Spc(id_TSOG3)%Conc(I,J,L) ! C* = 100\n   GM0(4,JSV)=Spc(id_TSOG0)%Conc(I,J,L) ! C* =   0.1\n   ! aerosol phase\n   AM0(1,JSV)=Spc(id_TSOA1)%Conc(I,J,L)\n   AM0(2,JSV)=Spc(id_TSOA2)%Conc(I,J,L)\n   AM0(3,JSV)=Spc(id_TSOA3)%Conc(I,J,L)\n   AM0(4,JSV)=Spc(id_TSOA0)%Conc(I,J,L)\n\n   !---------------------------------------------------------------------------\n   ! Prior to 7/15/19:\n   ! Remove isoprene from VBS (mps, 7/15/19)\n   !!---------------------------------------\n   !! SEMIVOLATILE 2: ISOP\n   !!---------------------------------------\n   !JHC = PARENTISOP\n   !JSV = IDSV(JHC)\n   !! gas phase\n   !GM0(1,JSV)=Spc(id_ISOG1)%Conc(I,J,L)\n   !GM0(2,JSV)=Spc(id_ISOG2)%Conc(I,J,L)\n   !GM0(3,JSV)=Spc(id_ISOG3)%Conc(I,J,L)\n   !! aerosol phase\n   !AM0(1,JSV)=Spc(id_ISOA1)%Conc(I,J,L)\n   !AM0(2,JSV)=Spc(id_ISOA2)%Conc(I,J,L)\n   !AM0(3,JSV)=Spc(id_ISOA3)%Conc(I,J,L)\n   !---------------------------------------------------------------------------\n\n   !---------------------------------------\n   ! SEMIVOLATILE 3: BENZ, TOLU, XYLE, NAP\n   !---------------------------------------\n   ! Lumped arom/IVOC/NAP semivolatiles (hotp 5/13/10)\n   JHC = PARENTBENZ ! IDSV(B)=IDSV(T)=IDSV(X)=IDSV(N)\n   JSV = IDSV(JHC)\n   ! gas phase\n   GM0(1,JSV)=Spc(id_ASOG1)%Conc(I,J,L)\n   GM0(2,JSV)=Spc(id_ASOG2)%Conc(I,J,L)\n   GM0(3,JSV)=Spc(id_ASOG3)%Conc(I,J,L)\n   ! aerosol phase\n   AM0(1,JSV)=Spc(id_ASOA1)%Conc(I,J,L)\n   AM0(2,JSV)=Spc(id_ASOA2)%Conc(I,J,L)\n   AM0(3,JSV)=Spc(id_ASOA3)%Conc(I,J,L)\n   AM0(4,JSV)=Spc(id_ASOAN)%Conc(I,J,L)\n\n   !---------------------------------------\n   ! SEMIVOLATILE 4: POA/SVOCs\n   !---------------------------------------\n   ! POA-Primary SVOCs (hotp 5/13/10)\n   JHC = PARENTPOA\n   JSV = IDSV(JHC)\n   IF ( id_POA1 > 0 .and. id_POA2 > 0 .and. &\n        id_POG1 > 0 .and. id_POG2 > 0 ) THEN\n      ! gas phase\n      GM0(1,JSV) = Spc(id_POG1)%Conc(I,J,L)\n      GM0(2,JSV) = Spc(id_POG2)%Conc(I,J,L)\n      ! aerosol phase\n      AM0(1,JSV) = Spc(id_POA1)%Conc(I,J,L)\n      AM0(2,JSV) = Spc(id_POA2)%Conc(I,J,L)\n   ENDIF\n\n   !---------------------------------------\n   ! SEMIVOLATILE 5: OPOA/O-SVOCs\n   !---------------------------------------\n   ! OPOA-Oxidized SVOCs (hotp 5/13/10)\n   JHC = PARENTOPOA\n   JSV = IDSV(JHC)\n   IF ( id_OPOA1 > 0 .and. id_OPOA2 > 0 .and. &\n        id_OPOG1 > 0 .and. id_OPOG2 > 0 ) THEN\n      ! gas phase\n      GM0(1,JSV) = Spc(id_OPOG1)%Conc(I,J,L)\n      GM0(2,JSV) = Spc(id_OPOG2)%Conc(I,J,L)\n      ! aerosol phase\n      AM0(1,JSV) = Spc(id_OPOA1)%Conc(I,J,L)\n      AM0(2,JSV) = Spc(id_OPOA2)%Conc(I,J,L)\n   ENDIF\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE SOA_PARTITION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soa_lump\n!\n! !DESCRIPTION: Subroutine SOA\\_LUMP returns the organic gas and aerosol back\n!  to the STT array.  (rjp, bmy, 7/7/04, 2/6/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE SOA_LUMP( I, J, L, GM0, AM0, State_Chm, State_Diag )\n!\n! !USES:\n!\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Diag_Mod,     ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)    :: I              ! Longitude index\n   INTEGER,        INTENT(IN)    :: J              ! Latitude index\n   INTEGER,        INTENT(IN)    :: L              ! Altitude index\n   REAL(fp),       INTENT(IN)    :: GM0(MPROD,MSV) ! Gas mass for HCs and\n                                                   !  oxidation products [kg]\n   REAL(fp),       INTENT(IN)    :: AM0(MPROD,MSV) ! Aer mass for HCs and\n                                                   !  oxidation products [kg]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm      ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag     ! Diagnostics State obj\n!\n! !REVISION HISTORY:\n!  07 Jul 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER           :: JHC, IPR, NOX, JSV ! JSV (hotp 5/13/10)\n   REAL(fp)          :: GASMASS, AERMASS\n   INTEGER           :: id_SPECIES ! hotp 6/5/10\n   REAL(fp)          :: AERCHANGE  ! hotp 6/5/10\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! SOA_LUMP begins here!\n   !=================================================================\n\n   ! Point to the chemical species array [kg]\n   Spc => State_Chm%Species\n\n   !=================================================================\n   ! Semivolatile Group 1: monoterpenes and sesquiterpenes (hotp 5/22/10)\n   !=================================================================\n\n   ! Initialize\n   GASMASS = 0e+0_fp\n   AERMASS = 0e+0_fp\n   JHC     = PARENTMTPA\n   JSV     = IDSV(JHC)\n\n   ! Save diagnostic info\n   DO IPR = 1, NPROD(JSV) ! change JHC to JSV\n      GASMASS = GASMASS + GM0(IPR,JSV)\n      AERMASS = AERMASS + AM0(IPR,JSV)\n   ENDDO\n\n   !-----------------------------\n   ! Transient mass bal prod/evap\n   ! (hotp 6/5/10)\n   !-----------------------------\n   id_SPECIES = id_TSOA1\n   IPR = 1\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   id_SPECIES = id_TSOA2\n   IPR = 2\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   id_SPECIES = id_TSOA3\n   IPR = 3\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   ! Add C*=0.1 product (hotp 6/12/10)\n   id_SPECIES = id_TSOA0\n   IPR = 4\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   !-----------------------------\n   ! Update species [kg]\n   !-----------------------------\n   ! gas phase\n   Spc(id_TSOG1)%Conc(I,J,L) = MAX( GM0(1,JSV), 1e-32_fp )\n   Spc(id_TSOG2)%Conc(I,J,L) = MAX( GM0(2,JSV), 1e-32_fp )\n   Spc(id_TSOG3)%Conc(I,J,L) = MAX( GM0(3,JSV), 1e-32_fp )\n   Spc(id_TSOG0)%Conc(I,J,L) = MAX( GM0(4,JSV), 1e-32_fp )\n   ! aerosol phase\n   Spc(id_TSOA1)%Conc(I,J,L) = MAX( AM0(1,JSV), 1e-32_fp )\n   Spc(id_TSOA2)%Conc(I,J,L) = MAX( AM0(2,JSV), 1e-32_fp )\n   Spc(id_TSOA3)%Conc(I,J,L) = MAX( AM0(3,JSV), 1e-32_fp )\n   Spc(id_TSOA0)%Conc(I,J,L) = MAX( AM0(4,JSV), 1e-32_fp )\n\n   !=================================================================\n   ! Semivolatile Group 2: isoprene (hotp 5/22/10)\n   !=================================================================\n\n   ! Initialize\n   GASMASS = 0e+0_fp\n   AERMASS = 0e+0_fp\n   JHC = PARENTISOP\n   JSV = IDSV(JHC)\n\n   ! Save diagnostic info\n   DO IPR = 1, NPROD(JSV) ! change JHC to JSV\n      GASMASS = GASMASS + GM0(IPR,JSV)\n      AERMASS = AERMASS + AM0(IPR,JSV)\n   ENDDO\n\n   !---------------------------------------------------------------------------\n   ! Prior to 7/15/19:\n   ! Remove isoprene from VBS (mps, 7/15/19)\n   !!-----------------------------\n   !! Transient mass bal prod/evap\n   !! (hotp 6/5/10)\n   !!-----------------------------\n   !id_SPECIES = id_ISOA1\n   !IPR = 1\n   !AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   !IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n   !   SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   !ELSE\n   !   SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   !ENDIF\n   !\n   !id_SPECIES = id_ISOA2\n   !IPR = 2\n   !AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   !IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n   !   SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   !ELSE\n   !   SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   !ENDIF\n   !\n   !id_SPECIES = id_ISOA3\n   !IPR = 3\n   !AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   !IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n   !   SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   !ELSE\n   !   SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   !ENDIF\n   !\n   !!-----------------------------\n   !! Update species [kg]\n   !!-----------------------------\n   !! gas phase\n   !Spc(id_ISOG1)%Conc(I,J,L) = MAX( GM0(1,JSV), 1e-32_fp )\n   !Spc(id_ISOG2)%Conc(I,J,L) = MAX( GM0(2,JSV), 1e-32_fp )\n   !Spc(id_ISOG3)%Conc(I,J,L) = MAX( GM0(3,JSV), 1e-32_fp )\n   !! aerosol phase\n   !Spc(id_ISOA1)%Conc(I,J,L) = MAX( AM0(1,JSV), 1e-32_fp )\n   !Spc(id_ISOA2)%Conc(I,J,L) = MAX( AM0(2,JSV), 1e-32_fp )\n   !Spc(id_ISOA3)%Conc(I,J,L) = MAX( AM0(3,JSV), 1e-32_fp )\n   !---------------------------------------------------------------------------\n\n   !=================================================================\n   ! Semivolatile Group 3: benzene, toluene, xylene, naphthalene/IVOC\n   ! Lump of products of 7-9 Hydrocarbon class (aromatics) (dkh, 11/11/06)\n   ! Lumped aromatic/IVOC (hotp 5/13/10\n   !=================================================================\n\n   ! Initialize\n   GASMASS = 0e+0_fp\n   AERMASS = 0e+0_fp\n   JHC = PARENTBENZ\n   JSV = IDSV(JHC)\n\n   ! Save diagnostic info\n   ! This is a lumped species (hotp 5/13/10)\n   DO IPR = 1, NPROD(JSV) ! change JHC to JSV\n      GASMASS = GASMASS + GM0(IPR,JSV)\n      AERMASS = AERMASS + AM0(IPR,JSV)\n   ENDDO\n\n   !-----------------------------\n   ! Transient mass bal prod/evap\n   ! (hotp 6/5/10)\n   !-----------------------------\n   id_SPECIES = id_ASOA1\n   IPR = 1\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   id_SPECIES = id_ASOA2\n   IPR = 2\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   id_SPECIES = id_ASOA3\n   IPR = 3\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   id_SPECIES = id_ASOAN\n   IPR = 4\n   AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n   IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n      SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n   ELSE\n      SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n   ENDIF\n\n   !-----------------------------\n   ! Update species [kg]\n   !-----------------------------\n   ! APROD and GPROD are no longer used, but GM0 and AM0\n   ! need to be saved to species arrays (hotp 5/13/10)\n   ! HIGH NOX  ! update dims (hotp 5/22/10)\n   !NOX = NHIGHNOX\n   ! gas phase\n   Spc(id_ASOG1)%Conc(I,J,L) = MAX( GM0(1,JSV), 1e-32_fp )\n   Spc(id_ASOG2)%Conc(I,J,L) = MAX( GM0(2,JSV), 1e-32_fp )\n   Spc(id_ASOG3)%Conc(I,J,L) = MAX( GM0(3,JSV), 1e-32_fp )\n   ! aerosol phase\n   Spc(id_ASOA1)%Conc(I,J,L) = MAX( AM0(1,JSV), 1e-32_fp )\n   Spc(id_ASOA2)%Conc(I,J,L) = MAX( AM0(2,JSV), 1e-32_fp )\n   Spc(id_ASOA3)%Conc(I,J,L) = MAX( AM0(3,JSV), 1e-32_fp )\n   ! LOW NOX (only 1 aerosol phase)\n   !NOX = NLOWNOX ! store in spot 4 (hotp 5/22/10)\n   Spc(id_ASOAN)%Conc(I,J,L) = MAX( AM0(4,JSV), 1e-32_fp )\n\n   !=================================================================\n   ! Semivolatile 4: POA/primary SVOCs\n   ! Lump of products of 10th Hydrocarbon class (POA)\n   ! semivolpoa2: lump POA (hotp 2/27/09)\n   !=================================================================\n   IF ( id_POA1 > 0 .and. id_POA2 > 0 .and. &\n        id_POG1 > 0 .and. id_POG2 > 0 ) THEN\n\n      ! Initialize\n      !JHC     = 10\n      GASMASS = 0e+0_fp\n      AERMASS = 0e+0_fp\n      JHC     = PARENTPOA\n      JSV     = IDSV(JHC)\n\n      ! Replace JHC with JSV (hotp 5/13/10)\n      DO IPR = 1, NPROD(JSV)\n         GASMASS = GASMASS + GM0(IPR,JSV)\n         AERMASS = AERMASS + AM0(IPR,JSV)\n      ENDDO\n\n      !---------------------------\n      ! Transient SOA PROD/EVAP\n      ! (hotp 6/5/10)\n      !---------------------------\n      id_SPECIES = id_POA1\n      IPR = 1\n      AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n      IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n         SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n      ELSE\n         SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n      ENDIF\n\n      id_SPECIES = id_POA2\n      IPR = 2\n      AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n      IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n         SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n      ELSE\n         SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n      ENDIF\n\n      !---------------------------\n      ! Update species [kg]\n      !---------------------------\n      ! gas phase\n      Spc(id_POG1)%Conc(I,J,L) = MAX( GM0(1,JSV), 1.e-32_fp )\n      Spc(id_POG2)%Conc(I,J,L) = MAX( GM0(2,JSV), 1.e-32_fp )\n      ! aerosol phase\n      Spc(id_POA1)%Conc(I,J,L) = MAX( AM0(1,JSV), 1.e-32_fp )\n      Spc(id_POA2)%Conc(I,J,L) = MAX( AM0(2,JSV), 1.e-32_fp )\n\n   ENDIF ! POA\n\n   !=================================================================\n   ! Semivolatile 5: OPOA/oxidized primary SVOCs\n   ! Lump of products of 11th Hydrocarbon class (OPOA)\n   ! semivolpoa4opoa: lump OPOA (hotp 2/27/09)\n   !=================================================================\n   IF ( id_OPOA1 > 0 .and. id_OPOA2 > 0 .and. &\n        id_OPOG1 > 0 .and. id_OPOG2 > 0 ) THEN\n\n      ! Initialize\n      GASMASS = 0e+0_fp\n      AERMASS = 0e+0_fp\n      JHC     = PARENTOPOA\n      JSV     = IDSV(JHC)\n\n      ! Save diagnostic info\n      DO IPR = 1, NPROD(JSV)\n         GASMASS = GASMASS + GM0(IPR,JSV)\n         AERMASS = AERMASS + AM0(IPR,JSV)\n      ENDDO\n\n      !---------------------------\n      ! Transient SOA PROD/EVAP\n      ! (hotp 6/5/10)\n      !---------------------------\n      id_SPECIES = id_OPOA1\n      IPR = 1\n      AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n      IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n         SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n      ELSE\n         SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n      ENDIF\n\n      id_SPECIES = id_OPOA2\n      IPR = 2\n      AERCHANGE = AM0(IPR,JSV) - Spc(id_SPECIES)%Conc(I,J,L)\n      IF ( AERCHANGE .GT. 0e+0_fp ) THEN\n         SPECSOAPROD(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAPROD(I,J,L,IPR,JSV)\n      ELSE\n         SPECSOAEVAP(I,J,L,IPR,JSV) = AERCHANGE + SPECSOAEVAP(I,J,L,IPR,JSV)\n      ENDIF\n\n      !---------------------------\n      ! Update species [kg]\n      !---------------------------\n      ! gas phase\n      Spc(id_OPOG1)%Conc(I,J,L) = MAX( GM0(1,JSV), 1.e-32_fp )\n      Spc(id_OPOG2)%Conc(I,J,L) = MAX( GM0(2,JSV), 1.e-32_fp )\n      ! aerosol phase\n      Spc(id_OPOA1)%Conc(I,J,L) = MAX( AM0(1,JSV), 1.e-32_fp )\n      Spc(id_OPOA2)%Conc(I,J,L) = MAX( AM0(2,JSV), 1.e-32_fp )\n\n   ENDIF ! OPOA\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE SOA_LUMP\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n!! !IROUTINE: emitsgc\n!\n! !DESCRIPTION: Subroutine EMITSGC calculates sub-grid coagulation for the size\n!  distribution of emission. (win, 10/6/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE EMITSGC( Input_Opt, State_Chm, State_Grid, State_Met, &\n                     EMISMASS,  CTYPE )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : IT_IS_NAN\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Grid_Mod,     ONLY : GrdState\n   USE State_Met_Mod,      ONLY : MetState\n   USE TOMAS_MOD,          ONLY : AVGMASS,  ICOMP,   IDIAG\n   USE TOMAS_MOD,          ONLY : SRTECIL,  SRTECOB,  SRTOCIL\n   USE TOMAS_MOD,          ONLY : SRTOCOB,  SRTSO4,   SRTNH4\n   USE TOMAS_MOD,          ONLY : SRTH2O,   MNFIX\n   USE TOMAS_MOD,          ONLY : SUBGRIDCOAG\n   USE TOMAS_MOD,          ONLY : SGCTSCALE\n   USE TOMAS_MOD,          ONLY : NH4BULKTOBIN\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN) :: CTYPE       ! 1 = EC and 2 = OC\n   TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n   TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n   REAL(fp),       INTENT(IN) :: EMISMASS(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n!\n! !REVISION HISTORY:\n!  06 Oct 2007 - W. Trivitayanurak - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp)  :: NDISTINIT(State_Chm%nTomasBins)\n   REAL(fp)  :: NDISTFINAL(State_Chm%nTomasBins)\n   REAL(fp)  :: MADDFINAL(State_Chm%nTomasBins)\n   REAL(fp)  :: NDIST(State_Chm%nTomasBins)\n   REAL(fp)  :: MDIST(State_Chm%nTomasBins,ICOMP)\n   REAL(fp)  :: NDIST2(State_Chm%nTomasBins)\n   REAL(fp)  :: MDIST2(State_Chm%nTomasBins,ICOMP)\n   REAL*4    :: BOXVOL, TEMP, PRES, BOXMASS\n   INTEGER   :: I, J, L, K, C, N, PBL_MAX, IBINS\n   REAL(fp)  :: F_OF_PBL\n   LOGICAL   :: ERRORSWITCH, PDBUG\n   REAL*4    :: N0(State_Grid%NZ,State_Chm%nTomasBins)\n   REAL*4    :: N1(State_Grid%NZ,State_Chm%nTomasBins)\n   REAL*4    :: MIL0(State_Grid%NZ,State_Chm%nTomasBins)\n   REAL*4    :: MIL1(State_Grid%NZ,State_Chm%nTomasBins)\n   REAL*4    :: MOB0(State_Grid%NZ,State_Chm%nTomasBins)\n   REAL*4    :: MOB1(State_Grid%NZ,State_Chm%nTomasBins)\n   INTEGER   :: ii, jj, ll\n   LOGICAL   :: dbg = .false.\n   DATA ii, jj, ll /53, 29, 8 /\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! EMITSGC begins here!\n   !=================================================================\n\n   IF ( Input_Opt%LNLPBL ) THEN\n      print *,'Currently subroutine EMITSGC does not support ', &\n              'the new non-local PBL scheme!'\n      stop\n   ENDIF\n\n   ! Point to the chemical species array [kg]\n   Spc => State_Chm%Species\n\n   ! Maximum extent of PBL [model levels]\n   PBL_MAX = State_Met%PBL_MAX_L\n\n   ! Number of bins\n   IBINS = State_Chm%nTomasBins\n\n   !temp debug      if( sum(emismass(ii,jj,:)) > 0e+0_fp) dbg = .true.\n   if( dbg) then\n      print *,'===== Entering EMITSGC ===== at',ii,jj,ll\n      print *,'Nk'\n      do N = 1, ibins\n         print *,Spc(id_NK01+N-1)%conc(ii,jj,ll)\n      enddo\n      print *,'Mk'\n      do k=1,icomp-idiag\n         print *,'comp',k\n         do N = 1, IBINS\n            print *,Spc(id_NK01+k*IBINS+N-1)%Conc(ii,jj,ll)\n         enddo\n      enddo\n      print *,'EMISSION'\n      print *,emismass(ii,jj,:)\n   endif\n   !temp debug --------\n\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n      IF ( SUM( EMISMASS(I,J,:) ) == 0.e+0_fp ) GOTO 100\n\n      DO L = 1, PBL_MAX\n         ! Fraction of PBL spanned by grid box (I,J,L) [unitless]\n         F_OF_PBL = State_Met%F_OF_PBL(I,J,L)\n\n         DO K = 1, IBINS\n            NDISTINIT(K) = EMISMASS(I,J,K) * F_OF_PBL / AVGMASS(K)\n            NDIST(K) = Spc(id_NK01+K-1)%Conc(I,J,L)\n            DO C = 1, ICOMP-IDIAG\n               MDIST(K,C) = Spc(id_NK01+IBINS*C+K-1)%Conc(I,J,L)\n               IF( IT_IS_NAN( MDIST(K,C) ) ) THEN\n                  PRINT *,'+++++++ Found NaN in EMITSGC ++++++++'\n                  PRINT *,'Location (I,J,L):',I,J,L,'Bin',K,'comp',C\n               ENDIF\n            ENDDO\n            MDIST(K,SRTH2O) = Spc(id_AW01-1+K)%Conc(I,J,L)\n            NDISTFINAL(K) = 0e+0_fp\n            MADDFINAL(K) = 0e+0_fp\n         ENDDO\n\n         IF ( SRTNH4 > 0 ) THEN\n            CALL NH4BULKTOBIN( MDIST(:,SRTSO4),   &\n                               Spc(id_NH4)%Conc(I,J,L), &\n                               MDIST(:,SRTNH4) )\n         ENDIF\n\n         ! Save initial info for diagnostic\n         N0(L,:) = NDIST(:)\n         IF(CTYPE == 1) THEN\n            MIL0(L,:) = MDIST(:,SRTECIL)\n            MOB0(L,:) = MDIST(:,SRTECOB)\n         ELSE\n            MIL0(L,:) = MDIST(:,SRTOCIL)\n            MOB0(L,:) = MDIST(:,SRTOCOB)\n         ENDIF\n\n         BOXVOL  = State_Met%AIRVOL(I,J,L) * 1.e6 !convert from m3 -> cm3\n         BOXMASS  = State_Met%AD(I,J,L) !kg\n         TEMP    = State_Met%T(I,J,L)\n         PRES    = State_Met%PMID(i,j,l)*100.0 ! in Pa\n\n         PDBUG = .FALSE.\n         !temp debug\n         if( dbg .and. i==ii .and. j==jj .and. l==ll ) then\n            print *,'===== NDISTINIT ===== at',ii,jj,ll\n            print *, NDISTINIT(:)\n         endif\n         !temp debug  if( dbg .and. i==ii .and. j==jj .and. l==ll ) PDBUG = .TRUE.\n\n         CALL SUBGRIDCOAG( NDISTINIT, NDIST, MDIST, BOXVOL,TEMP, &\n                           PRES, SGCTSCALE, NDISTFINAL, MADDFINAL,pdbug)\n         IF ( PDBUG ) THEN\n            PRINT *,'Found error in SUBGRIDCOAG at', I,J,L\n            do k=N,ibins\n               PRINT *,'Nk',Spc(id_NK01+N-1)%Conc(I,J,L)\n            enddo\n            do k=1,8\n               print *,'Mk comp',k\n               do N=1,IBINS\n                  print *,Spc(id_NK01+N-1)%Conc(I,J,L)\n               enddo\n            enddo\n         ENDIF\n\n         DO K = 1, IBINS\n            NDIST(K) = NDIST(K) + NDISTFINAL(K)\n            IF( CTYPE == 1 ) THEN\n               MDIST(K,SRTECIL) = MDIST(K,SRTECIL) + &\n                                  NDISTFINAL(K) * AVGMASS(K) * 0.2e+0_fp + &\n                                  MADDFINAL(K) * 0.2e+0_fp\n               MDIST(K,SRTECOB) = MDIST(K,SRTECOB) + &\n                                  NDISTFINAL(K) * AVGMASS(K) * 0.8e+0_fp + &\n                                  MADDFINAL(K) * 0.8e+0_fp\n            ELSE\n               MDIST(K,SRTOCIL) = MDIST(K,SRTOCIL) + &\n                                  NDISTFINAL(K) * AVGMASS(K) * 0.5e+0_fp + &\n                                  MADDFINAL(K) * 0.5e+0_fp\n               MDIST(K,SRTOCOB) = MDIST(K,SRTOCOB) + &\n                                  NDISTFINAL(K) * AVGMASS(K) * 0.5e+0_fp + &\n                                  MADDFINAL(K) * 0.5e+0_fp\n            ENDIF\n         ENDDO\n         !temp debug\n         if( dbg .and. i==ii .and. j==jj .and. l==ll ) then\n            print *,'===== After SUBGRIDCOAG ===== at',ii,jj,ll\n            print *,'Nk'\n            print *, NDIST(:)\n            print *,'xxx___NDISTFINAL__xxx'\n            print *, NDISTFINAL(:)\n\n            print *,'Mk'\n            do k=1,icomp\n               print *,'comp',k\n               print *,MDIST(:,k)\n            enddo\n         endif\n         !temp debug --------\n\n         ! Fix any inconsistencies in size dist\n         DO K= 1, IBINS\n            NDIST2(K) = NDIST(K)\n            DO C = 1, ICOMP\n               MDIST2(K,C) = MDIST(K,C)\n            ENDDO\n         ENDDO\n\n         ERRORSWITCH = .FALSE.\n\n         CALL MNFIX( NDIST2, MDIST2, ERRORSWITCH )\n\n         IF( ERRORSWITCH ) PRINT *,'EMITSGC: MNFIX found error ', &\n                                   'after SUBGRIDCOAG at ',I,J,L\n\n         DO K = 1, IBINS\n            Spc(id_NK01-1+K)%Conc(I,J,L) = NDIST2(K)\n            DO C = 1, ICOMP-IDIAG\n               Spc(id_NK01+K-1+C*IBINS)%Conc(I,J,L) = MDIST2(K,C)\n            ENDDO\n            Spc(id_AW01-1+K)%Conc(I,J,L)  = MDIST2(K,SRTH2O)\n         ENDDO\n\n         ! Save final info for diagnostic\n         N1(L,:) = NDIST2(:)\n         IF(CTYPE == 1) THEN\n            MIL1(L,:) = MDIST2(:,SRTECIL)\n            MOB1(L,:) = MDIST2(:,SRTECOB)\n         ELSE\n            MIL1(L,:) = MDIST2(:,SRTOCIL)\n            MOB1(L,:) = MDIST2(:,SRTOCOB)\n         ENDIF\n\n      ENDDO ! L loop\n\n100   CONTINUE\n\n   ENDDO ! I loop\n   ENDDO ! J loop\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE EMITSGC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: scalecarb\n!\n! !DESCRIPTION: Function SCALECARB split the carbonaceous emission from each\n!  source into the TOMAS aerosol size bins using different mass distribution\n!  for fossil fuel and biomass burning.  The mass size distributions\n! are different for EC and OC. (win, 9/4/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION SCALECARB( State_Chm, State_Grid, BULKEMIS, STYPE, CTYPE ) &\n      RESULT( tomasdist )\n!\n! !USES:\n!\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TOMAS_MOD,      ONLY : OCSCALE30,  ECSCALE30\n   USE TOMAS_MOD,      ONLY : OCSCALE100, ECSCALE100\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(IN) :: State_Chm  ! Chemistry State object\n   TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n   REAL(fp),       INTENT(IN) :: BULKEMIS(State_Grid%NX,State_Grid%NY)\n   INTEGER,        INTENT(IN) :: STYPE\n   INTEGER,        INTENT(IN) :: CTYPE\n!\n! !RETURN VALUE:\n!\n   REAL(fp) :: tomasdist(State_Grid%NX, State_Grid%NY, State_Chm%nTomasBins)\n!\n! !REMARKS:\n!    STYPE (source type): 1 = Fossil fuel\n!                         3 = Biomass burning\n!    CTYPE (carbon type): 1 = EC\n!                         2 = OC\n!                                                                              .\n!  Array ECSCALE30 and OCSCALE100 specify how mass is distributed into bins\n!  for a 30 nm number peak and a 100 nm peak.  Similary for OC size split.\n!                                                                              .\n!  This function is adapted from emisOCbond.f and emisBCbond.f by Jeff Pierce\n!  (Jan, 2007) used in GISS GCM-II'.  Introduced to GEOS-Chem by Win T.(9/4/07)\n!\n!\n! !REVISION HISTORY:\n!  04 Sep 2007 - W. Trivitayanurak - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER               :: I, J, K\n   REAL(fp)              :: scalefactor(State_Chm%nTomasBins)\n\n   scalefactor = 0.0d0\n\n   SELECT CASE (CTYPE)\n   CASE (1)\n      SELECT CASE (STYPE)\n      CASE (1)\n         scalefactor(:) = ECSCALE30(:)\n      CASE (2)\n         scalefactor(:) = ECSCALE100(:)\n      CASE (3)\n         scalefactor(:) = ECSCALE100(:)\n      END SELECT\n   CASE (2)\n      SELECT CASE (STYPE)\n      CASE (1)\n         scalefactor(:) = OCSCALE30(:)\n      CASE (2)\n         scalefactor(:) = OCSCALE100(:)\n      CASE (3)\n         scalefactor(:) = OCSCALE100(:)\n      END SELECT\n   END SELECT\n\n   DO I = 1, State_Grid%NX\n   DO J = 1, State_Grid%NY\n      tomasdist(I,J,:) = BULKEMIS(I,J)*scalefactor(:)\n   ENDDO\n   ENDDO\n\n END FUNCTION SCALECARB\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emisscarbon\n!\n! !DESCRIPTION: Subroutine EMISSCARBON is the emissions routine for the carbon\n! module. All carbon emissions, incl. SESQ and SVOC, are calculated through\n! HEMCO and this module simply makes sure that the SESQ and SVOC emissions (if\n! defined) are properly passed to the internal arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE EMISSCARBON( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE HCO_Error_Mod\n   USE HCO_State_Mod,         ONLY : HCO_GetHcoID\n   USE HCO_State_GC_Mod,      ONLY : HcoState\n   USE HCO_Utilities_GC_Mod,  ONLY : GetHcoValEmis, LoadHcoValEmis\n   USE Input_Opt_Mod,         ONLY : OptInput\n   USE State_Chm_Mod,         ONLY : ChmState\n   USE State_Grid_Mod,        ONLY : GrdState\n   USE State_Met_Mod,         ONLY : MetState\n   USE TIME_MOD,              ONLY : GET_TS_EMIS\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput),  INTENT(IN   )  :: Input_Opt   ! Input Options object\n   TYPE(ChmState),  INTENT(IN   )  :: State_Chm   ! Chemistry State object\n   TYPE(GrdState),  INTENT(IN   )  :: State_Grid  ! Grid State object\n   TYPE(MetState),  INTENT(IN   )  :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   INTEGER,         INTENT(INOUT)  :: RC          ! Failure?\n!\n! !REMARKS:\n! SVOC emissions are expected to be fully calculated by HEMCO, i.e. its\n! emissions need be specified in the HEMCO configuration file. In the original\n! code, the emissions were calculated by scaling anthropogenic and\n! biomass burning OC emissions. The same behavior can be achieved in HEMCO\n! by assigning the desired SVOC species name to the given source type, e.g.:\n!\n! 0 BOND\\_ANTH\\_POG1 Bond\\_fossil.nc OC 2000/1-12/1/0 C xy kg/m2/s POG1 74 1 1\n!\n! All POG1 emissions (anthropogenic + biomass burning) will go into\n! POAEMISS(:,:,:,1) and all POG2 emissions will go into POAEMISS(:,:,:,2). SVOC\n! emissions are assigned to POG1 and POG2 in HEMCO using a ratio of 0.49:0.51.\n! We no longer separate anthropogenic from biomass burning since\n! this appears to have been done only for debugging purposes. Routine CHEM_NVOC\n! handles passing POAEMISS to the two gas-phase semivolatile species in the\n! GM0 array.\n!\n! IMPORTANT: The SVOC emissions scale factor should be applied through HEMCO.\n! In the example above, scale factor 74 represents the scale factor POGSCAL.\n! The SCALING_POG1 scale factor is applied to the GFED biomass burning\n! extensions. The two scale factors should be set to the same value in the\n! HEMCO configuration file. The recommended value is 1.27.\n!\n! !REVISION HISTORY:\n!  11 Nov 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER                  :: I, J, L, PBL_MAX\n   INTEGER                  :: HCOPOG1, HCOPOG2\n   REAL(fp)                 :: EMIS, TMPFLX\n   REAL(fp)                 :: F_OF_PBL\n   LOGICAL                  :: FOUND\n   INTEGER, SAVE            :: SESQID = -999\n\n   !=================================================================\n   ! EMISSCARBON begins here!\n   !=================================================================\n\n   ! Assume success\n   RC = GC_SUCCESS\n\n   ! Check if using complex SOA scheme\n   IF ( Input_Opt%LSOA ) THEN\n\n      ! Get HEMCO ID of species SESQ\n      IF ( SESQID == -999 ) THEN\n         SESQID = HCO_GetHcoID( 'SESQ', HcoState )\n      ENDIF\n      IF ( SESQID > 0 ) THEN\n         IF ( .NOT. ASSOCIATED(HcoState%Spc(SESQID)%Emis%Val) ) THEN\n            SESQID = -1\n         ENDIF\n      ENDIF\n\n      ! Get HEMCO ID of species POG1 and POG2\n      HCOPOG1 = id_POG1\n      IF ( HCOPOG1 > 0 ) THEN\n         IF ( .NOT. ASSOCIATED(HcoState%Spc(HCOPOG1)%Emis%Val) ) THEN\n            HCOPOG1 = -1\n         ENDIF\n      ENDIF\n      HCOPOG2 = id_POG2\n      IF ( HCOPOG2 > 0 ) THEN\n         IF ( .NOT. ASSOCIATED(HcoState%Spc(HCOPOG2)%Emis%Val) ) THEN\n            HCOPOG2 = -1\n         ENDIF\n      ENDIF\n\n   ELSE\n\n      ! Do not get emissions of SESQ, POG1, POG2 if complex SOA is off\n      SESQID  = -1\n      HCOPOG1 = -1\n      HCOPOG2 = -1\n\n   ENDIF\n\n   ! Nothing to do if none of the species are defined\n   IF ( SESQID <= 0 .AND. HCOPOG1 <= 0 .AND. HCOPOG2 <=0 ) RETURN\n\n   ! Initialize\n   POAEMISS =  0.0_fp\n\n   ! Maximum extent of PBL [model levels]\n   PBL_MAX = State_Met%PBL_MAX_L\n\n   ! First load SESQID into emissions buffer if available\n   IF ( SESQID > 0 ) THEN\n       CALL LoadHcoValEmis ( Input_Opt, State_Grid, SESQID )\n   ENDIF\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, F_OF_PBL, TMPFLX, Emis, FOUND )\n   DO L = 1, PBL_MAX\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Fraction of PBL spanned by grid box (I,J,L) [unitless]\n      F_OF_PBL = State_Met%F_OF_PBL(I,J,L)\n\n      ! Add sesquiterpene emissions from HEMCO to ORVCSESQ array.\n      ! We assume all SESQ emissions are placed in surface level.\n      IF ( SESQID > 0 ) THEN\n         CALL GetHcoValEmis ( Input_Opt, State_Grid, SESQID, I, J, 1, FOUND, EMIS )\n         IF ( FOUND ) THEN\n            ! Units from HEMCO are kgC/m2/s. Convert to kgC/box here.\n            TMPFLX = Emis * GET_TS_EMIS() * State_Grid%Area_M2(I,J)\n            State_Chm%ORVCsesq(I,J,L) = &\n                  State_Chm%ORVCsesq(I,J,L) + ( F_OF_PBL * TMPFLX )\n         ENDIF\n      ENDIF\n\n      ! Add SVOC emissions from HEMCO to POAEMISS array.\n      ! Mix entire column emissions evenly in the PBL.\n      !\n      ! All SVOC emissions are now assigned to the POG1 and POG2 species in\n      ! HEMCO to reflect that these emissions are added to the gas-phase\n      ! species. The assignment of SVOC emissions to the two gas-phase\n      ! species is actually performed in routine CHEM_NVOC. We also no\n      ! longer separate anthropogenic from BF and BB emissions because\n      ! this appears to have been done only for debugging purposes.\n      ! (mps, 1/14/16)\n      IF ( HCOPOG1 > 0 ) THEN\n         ! Units from HEMCO are kgC/m2/s. Convert to kgC/box here.\n         TMPFLX = SUM(HcoState%Spc(HCOPOG1)%Emis%Val(I,J,:)) &\n                  * GET_TS_EMIS() * State_Grid%Area_M2(I,J)\n         POAEMISS(I,J,L,1) = F_OF_PBL * TMPFLX\n      ENDIF\n      IF ( HCOPOG2 > 0 ) THEN\n         ! Units from HEMCO are kgC/m2/s. Convert to kgC/box here.\n         TMPFLX = SUM(HcoState%Spc(HCOPOG2)%Emis%Val(I,J,:)) &\n                  * GET_TS_EMIS() * State_Grid%Area_M2(I,J)\n         POAEMISS(I,J,L,2) = F_OF_PBL * TMPFLX\n      ENDIF\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Reset SVOC emissions to zero to make sure that they are\n   ! not double-counted (when doing PBL mixing)\n   IF ( HCOPOG1>0) HcoState%Spc(HCOPOG1)%Emis%Val = 0.0d0\n\n END SUBROUTINE EMISSCARBON\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emisscarbontomas\n!\n! !DESCRIPTION: Subroutine emisscarbontomas scales BULK HEMCO emissions into\n! TOMAS arrays. Only use for TOMAS simulations. This is essential a re-write of\n! the TOMAS portions of the v9 emisscarbon (JKodros 6/2/15)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE EMISSCARBONTOMAS( Input_Opt, State_Chm, State_Grid, State_Met, &\n                               State_Diag, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE ERROR_MOD\n   USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n   USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetDiagn\n   USE HCO_State_GC_Mod,     ONLY : HcoState, ExtState\n   USE HCO_EMISLIST_MOD,     ONLY : HCO_GetPtr !(ramnarine 12/27/2018)\n   USE Input_Opt_Mod,        ONLY : OptInput\n   USE State_Chm_Mod,        ONLY : ChmState\n   USE State_Diag_Mod,       ONLY : DgnState\n   USE State_Grid_Mod,       ONLY : GrdState\n   USE State_Met_Mod,        ONLY : MetState\n   USE UnitConv_Mod\n   USE PRESSURE_MOD,         ONLY : GET_PCENTER\n   USE Timers_Mod,           ONLY : Timer_End, Timer_Start\n   USE TOMAS_MOD,            ONLY : AVGMASS, SOACOND\n   USE TOMAS_MOD,            ONLY : ICOMP,     IDIAG\n   USE TOMAS_MOD,            ONLY : CHECKMN\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  12 Jun 2015 - J. Kodros   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER                  :: I, I0, IREF, J, J0, JREF, N\n   INTEGER                  :: FLAG, ERR\n   REAL(fp)                 :: DTSRCE, AREA_M2\n   REAL(fp)                 :: CO_ANTH_TOTAL\n   REAL*4                   :: BOXVOL  ! calculated from State_Met\n   REAL*4                   :: BOXMASS  ! calculated from State_Met\n   REAL*4                   :: TEMPTMS ! calculated from State_Met\n   REAL*4                   :: PRES    ! calculated from State_Met\n   REAL(fp)                 :: OC2OM = 1.8d0\n   LOGICAL                  :: SGCOAG = .FALSE. ! bc,jrp turn off subgrid coag 18/12/23\n   INTEGER                  :: L, K, EMTYPE\n   INTEGER                  :: ii=53, jj=29\n   INTEGER                  :: previous_units\n   LOGICAL, SAVE            :: FIRST = .TRUE. !(ramnarine 12/27/2018)\n   LOGICAL, SAVE            :: USE_FIRE_NUM = .FALSE.\n   LOGICAL                  :: FND !(ramnarine 1/2/2019)\n\n   ! Arrays\n   REAL(fp)                 :: XTRA_ORG_A(State_Grid%NX,State_Grid%NY)\n   REAL(fp)                 :: BCSRC(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2)\n   REAL(fp)                 :: OCSRC(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2)\n   REAL(fp)                 :: NUMBSRC(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n   REAL(fp)                 :: AREA(State_Grid%NX, State_Grid%NY)\n   REAL(fp)                 :: TMP_MASS(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n   REAL(fp)                 :: SIZE_DIST(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,4) !(ramnarine 12/27/2018)\n   REAL(fp)                 :: FIRE_NUM(State_Grid%NX,State_Grid%NY)\n\n   ! Strings\n   CHARACTER(LEN= 63)       :: DgnName\n   CHARACTER(LEN=255)       :: MSG, ErrMsg\n   CHARACTER(LEN=255)       :: LOC='EMISSCARBONTOMAS (carbon_mod.F90)'\n\n   ! Pointers\n   REAL(fp),        POINTER :: emis2D(:,:)\n   REAL(f4),        POINTER :: Ptr2D(:,:)\n   REAL(f4),        POINTER :: Ptr3D(:,:,:)\n\n   !=================================================================\n   ! EMISSCARBONTOMAS begins here!\n   !=================================================================\n\n   ! Assume success\n   RC                  = GC_SUCCESS\n\n   ! Get nested-grid offsets\n   I0                  = State_Grid%XMinOffset\n   J0                  = State_Grid%YMinOffset\n\n   ! Initialize pointers\n   emis2d              => NULL()\n   Ptr2D               => NULL()\n   Ptr3D               => NULL()\n\n   ! Import emissions from HEMCO (through HEMCO state)\n   IF ( .NOT. ASSOCIATED(HcoState) ) THEN\n      CALL ERROR_STOP ( 'HcoState not defined!', LOC )\n   ENDIF\n\n   IF ( .NOT. (id_NK01 > 0   .AND. id_ECIL01 > 0 .AND. &\n               id_ECOB01 > 0 .AND. id_OCIL01 > 0 .AND. &\n               id_OCOB01 > 1 ) ) THEN\n      CALL ERROR_STOP ( 'TOMAS Species not defined!', LOC )\n   ENDIF\n\n   ! Emission timestep [seconds]\n   DTSRCE = HcoState%TS_EMIS\n\n   ! Grid box aarea\n   AREA = HcoState%Grid%AREA_M2%Val(:,:)\n\n   ! Halt HEMCO timer (so that unit conv can be timed separately)\n   IF ( Input_Opt%useTimers ) THEN\n      CALL Timer_End( \"HEMCO\", RC )\n   ENDIF\n\n   ! NOTE: For TOMAS, convert all species units, in order not to\n   ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n   CALL Convert_Spc_Units(                                                   &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n   ! Trap errors\n   IF ( RC /= GC_SUCCESS ) THEN\n      CALL GC_Error( 'Unit conversion error', RC, &\n                     'Start of EMISSCARBONTOMAS in carbon_mod.F90' )\n      RETURN\n   ENDIF\n\n   ! Start HEMCO timer again\n   IF ( Input_Opt%useTimers ) THEN\n      CALL Timer_Start( \"HEMCO\", RC )\n   ENDIF\n\n   ! ---------FOSSIL FUEL EMISSIONS IN 3d---------------------------\n   DO EMTYPE = 1,4\n      SELECT CASE (EMTYPE)\n      CASE (1)\n         DgnName = 'BCPI_ANTH'\n         emis2d  => BCPI_ANTH_BULK\n      CASE (2)\n         DgnName = 'OCPI_ANTH'\n         emis2d  => OCPI_ANTH_BULK\n      CASE (3)\n         DgnName = 'BCPO_ANTH'\n         emis2d  => BCPO_ANTH_BULK\n      CASE (4)\n         DgnName = 'OCPO_ANTH'\n         emis2d  => OCPO_ANTH_BULK\n      END SELECT\n\n      CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, &\n                            .FALSE., ERR, Ptr3D=Ptr3D )\n      IF ( .NOT. ASSOCIATED(Ptr3D) ) THEN\n         CALL GC_WARNING( 'HEMCO diagnostic not found: '//TRIM(DgnName), &\n                           ERR, THISLOC=LOC )\n      ELSE\n         emis2d(:,:) = 0.0d0\n\n         !flatten emissions into a 2d array for now\n         !they get distributed over the pbl by emithigh or subgridcoag\n         DO L = 1, State_Grid%NZ\n            emis2d(:,:) = emis2d(:,:) + Ptr3D(:,:,L)\n         ENDDO\n         ! [kg/box/time step]\n         emis2d(:,:) = emis2d(:,:) * AREA(:,:) * DTSRCE\n      ENDIF\n      emis2d => NULL()\n      Ptr3D  => NULL()\n   ENDDO\n\n   ! ---- SCALE INTO TOMAS BINS ---------------------------\n   BCFF(:,:,:,1) = SCALECARB( State_Chm, State_Grid, BCPI_ANTH_BULK(:,:), 1, 1 )\n   BCFF(:,:,:,2) = SCALECARB( State_Chm, State_Grid, BCPO_ANTH_BULK(:,:), 1, 1 )\n   OCFF(:,:,:,1) = SCALECARB( State_Chm, State_Grid, OCPI_ANTH_BULK(:,:), 1, 2 ) * OC2OM\n   OCFF(:,:,:,2) = SCALECARB( State_Chm, State_Grid, OCPO_ANTH_BULK(:,:), 1, 2 ) * OC2OM\n\n   !end 3d emis\n\n   DgnName = 'BCPI_BB'\n   CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, &\n                         StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n   IF ( .NOT. ASSOCIATED(Ptr2D) ) THEN\n      CALL GC_WARNING('HEMCO diagnostic not found: '//TRIM(DgnName), &\n                       ERR, THISLOC=LOC)\n   ELSE\n      BCPI_BIOB_BULK = Ptr2D(:,:)\n   ENDIF\n   Ptr2D => NULL()\n\n   DgnName = 'BCPO_BB'\n   CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, &\n                         StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n   IF ( .NOT. ASSOCIATED(Ptr2D) ) THEN\n      CALL GC_WARNING('HEMCO diagnostic not found: '//TRIM(DgnName), &\n                       ERR, THISLOC=LOC)\n   ELSE\n      BCPO_BIOB_BULK = Ptr2D(:,:)\n   ENDIF\n   Ptr2D => NULL()\n\n   DgnName = 'OCPI_BB'\n   CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, &\n                         StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n   IF ( .NOT. ASSOCIATED(Ptr2D) ) THEN\n      CALL GC_WARNING('HEMCO diagnostic not found: '//TRIM(DgnName), &\n                       ERR, THISLOC=LOC)\n   ELSE\n      OCPI_BIOB_BULK = Ptr2D(:,:)\n   ENDIF\n   Ptr2D => NULL()\n\n   DgnName = 'OCPO_BB'\n   CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, &\n                         StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n   IF ( .NOT. ASSOCIATED(Ptr2D) ) THEN\n      CALL GC_WARNING('HEMCO diagnostic not found: '//TRIM(DgnName), &\n                      ERR, THISLOC=LOC)\n   ELSE\n      OCPO_BIOB_BULK = Ptr2D(:,:)\n   ENDIF\n   Ptr2D => NULL()\n\n   ! ---- Fire Number -------------------------------------\n   ! (ramnarine 12/27/2018)\n   IF ( FIRST ) THEN\n\n      ! Check if fire number is available in HEMCO, and use it if it is\n      CALL HCO_GetPtr( HcoState, 'FINN_DAILY_NUMBER', Ptr2D, RC, FOUND=FND )\n      IF ( RC /= GC_SUCCESS ) THEN\n         ErrMsg = 'Error getting pointer to FINN_DAILY_NUMBER in HEMCO!'\n         CALL GC_Error( ErrMsg, RC, 'carbon_mod.F90: EMISSCARBONTOMAS' )\n         RETURN\n      ELSEIF ( FND ) THEN\n         USE_FIRE_NUM = .TRUE.\n      ENDIF\n      Ptr2D => NULL()\n\n      !if biomass burning subgrid coagulation is in use,\n      !FIRE_NUM will not be found and USE_FIRE_NUM will be false\n\n      !reset first time flag\n      FIRST = .FALSE.\n   ENDIF\n\n   IF ( USE_FIRE_NUM ) THEN\n\n      ! Number of BB fires for parameterization (ramnarine 12/27/2018)\n      ! Evalulate the fire number from HEMCO every timestep to apply masks\n      ! and scaling configured in HEMCO config\n      CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'FINN_DAILY_NUMBER', FIRE_NUM, RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         ErrMsg = 'Error evaluating FINN_DAILY_NUMBER in HEMCO data list!'\n         CALL GC_Error( ErrMsg, RC, 'carbon_mod.F90: EMISSCARBONTOMAS' )\n         RETURN\n      ENDIF\n\n      ! ---- Calling BB subgrid coag parameterization --------\n      ! (ramnarine 12/27/2018)\n      SIZE_DIST = SAKAMOTO_SIZE( State_Chm, State_Grid, State_Met, FIRE_NUM, &\n                                 OCPI_BIOB_BULK, BCPI_BIOB_BULK, &\n                                 OCPO_BIOB_BULK, BCPO_BIOB_BULK, &\n                                 AREA )\n   ENDIF\n\n   !2d emis\n   BCPI_BIOB_BULK = BCPI_BIOB_BULK(:,:) * AREA(:,:) * DTSRCE\n   BCPO_BIOB_BULK = BCPO_BIOB_BULK(:,:) * AREA(:,:) * DTSRCE\n   OCPI_BIOB_BULK = OCPI_BIOB_BULK(:,:) * AREA(:,:) * DTSRCE\n   OCPO_BIOB_BULK = OCPO_BIOB_BULK(:,:) * AREA(:,:) * DTSRCE\n\n   !2d bioburn\n   IF ( USE_FIRE_NUM ) THEN\n      DO K = 1, State_Chm%nTomasBins        !ramnarine 12/27/2018\n         BCBB(:,:,K,1) = SIZE_DIST(:,:,K,1) * AREA(:, :) * DTSRCE\n         BCBB(:,:,K,2) = SIZE_DIST(:,:,K,2) * AREA(:, :) * DTSRCE\n         OCBB(:,:,K,1) = SIZE_DIST(:,:,K,3) * AREA(:, :) * DTSRCE * OC2OM\n         OCBB(:,:,K,2) = SIZE_DIST(:,:,K,4) * AREA(:, :) * DTSRCE * OC2OM\n      ENDDO\n   ELSE\n      BCBB(:,:,:,1) = SCALECARB(State_Chm, State_Grid, BCPI_BIOB_BULK(:,:), 3,1)\n      BCBB(:,:,:,2) = SCALECARB(State_Chm, State_Grid, BCPO_BIOB_BULK(:,:), 3,1)\n      OCBB(:,:,:,1) = SCALECARB(State_Chm, State_Grid, OCPI_BIOB_BULK(:,:), 3,2) * OC2OM\n      OCBB(:,:,:,2) = SCALECARB(State_Chm, State_Grid, OCPO_BIOB_BULK(:,:), 3,2) * OC2OM\n   ENDIF\n\n   ! Add into BCSRC and OCSRC\n   BCSRC(:,:,:,1) = BCFF(:,:,:,1) + BCBF(:,:,:,1) + BCBB(:,:,:,1)\n   BCSRC(:,:,:,2) = BCFF(:,:,:,2) + BCBF(:,:,:,2) + BCBB(:,:,:,2)\n   OCSRC(:,:,:,1) = OCFF(:,:,:,1) + OCBF(:,:,:,1) + OCBB(:,:,:,1)\n   OCSRC(:,:,:,2) = OCFF(:,:,:,2) + OCBF(:,:,:,2) + OCBB(:,:,:,2)\n\n   IF ( SGCOAG ) THEN\n      !emitsgc uses total OC or EC mass\n      ! SUM mass terms into TEMP_MASS and pass to EMITSFC\n      TMP_MASS = BCSRC(:,:,:,1) + BCSRC(:,:,:,2)\n      CALL EMITSGC( Input_Opt, State_Chm, State_Grid, State_Met, TMP_MASS,  1 )\n\n      TMP_MASS = OCSRC(:,:,:,1) + OCSRC(:,:,:,2)\n      CALL EMITSGC( Input_Opt, State_Chm, State_Grid, State_Met, TMP_MASS,  2 )\n   ELSE\n      !-----------------------------------------\n      ! Add emission w/o sub-grid coagulation\n      !-----------------------------------------\n\n      ! Convert the total mass emission to number emisison [No.]\n      DO K = 1, State_Chm%nTomasBins\n         NUMBSRC(:,:,K) = ( BCSRC(:,:,K,1) + BCSRC(:,:,K,2) + &\n                            OCSRC(:,:,K,1) + OCSRC(:,:,K,2) )/ AVGMASS(K)\n      ENDDO\n\n      CALL EMITHIGH2( Input_Opt, State_Chm, State_Grid, State_Met, &\n                      BCSRC,     OCSRC,     NUMBSRC )\n   ENDIF  !sgcoag\n\n   !end anthro emissions\n\n   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n   !%%%% NOTE: BIOGENIC_SOAS is defined in hcoi_gc_diagn_mod.F90,   %%%%\n   !%%%% (bmy, 8/7/18)                                              %%%%\n   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n   ! READ IN directly emitted SOAS (sfarina / jkodros)\n   Ptr2D => NULL()\n   DgnName = 'BIOGENIC_SOAS'\n   CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, &\n                         StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n   IF ( .NOT. ASSOCIATED(Ptr2D) ) THEN\n      CALL GC_Error('Not found: '//TRIM(DgnName), RC, THISLOC=LOC)\n      RETURN\n   ENDIF\n   TERP_ORGC = Ptr2D(:,:)\n   TERP_ORGC = TERP_ORGC(:,:) * AREA(:,:) * DTSRCE\n   Ptr2D => NULL()\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, BOXVOL, TEMPTMS, PRES, BOXMASS )\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n      CALL CHECKMN( I, J, 1, Input_Opt, State_Chm, State_Grid, &\n         State_Met, State_Diag,'CHECKMN from emisscarbontomas', RC)\n      IF ( TERP_ORGC(I,J) > 0.d0 ) THEN\n         BOXVOL  = State_Met%AIRVOL(I,J,1) * 1.e6 !convert from m3 -> cm3\n         BOXMASS  = State_Met%AD(I,J,1)  ! kg\n         TEMPTMS = State_Met%T(I,J,1)\n         PRES    = GET_PCENTER(I,J,1)*100.0 ! in Pa\n         CALL SOACOND( TERP_ORGC(I,J), I, J, 1, BOXVOL, TEMPTMS, PRES, BOXMASS,&\n                       State_Chm, State_Grid, State_Diag, RC )\n      END IF\n   END DO\n   END DO\n   !$OMP END PARALLEL DO\n\n   IF ( Input_Opt%Verbose ) CALL DEBUG_MSG( '### EMISCARB: after SOACOND (BIOG) ' )\n\n   ! Halt HEMCO timer (so that unit conv can be timed separately)\n   IF ( Input_Opt%useTimers ) THEN\n      CALL Timer_End( \"HEMCO\", RC )\n   ENDIF\n\n   ! NOTE: For TOMAS, convert all species units, in order not to\n   ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n   CALL Convert_Spc_Units(                                                   &\n        Input_Opt  = Input_Opt,                                              &\n        State_Chm  = State_Chm,                                              &\n        State_Grid = State_Grid,                                             &\n        State_Met  = State_Met,                                              &\n        new_units  = previous_units,                                         &\n        RC         = RC                                                     )\n\n   ! Trap errors\n   IF ( RC /= GC_SUCCESS ) THEN\n      CALL GC_Error('Unit conversion error', RC, &\n                    'End of EMISSCARBONTOMAS in carbon_mod.F90')\n      RETURN\n   ENDIF\n\n   ! Start HEMCO timer again\n   IF ( Input_Opt%useTimers ) THEN\n      CALL Timer_Start( \"HEMCO\", RC )\n   ENDIF\n\n END SUBROUTINE EMISSCARBONTOMAS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emithigh2\n!\n! !DESCRIPTION: Subroutine EMITHIGH2 mixes species completely from the surface\n!  to the PBL top. This is a copy of subroutine EMITHIGH modified to work with\n!  30-bin EC and OC mass and also aerosol number.  (win, 9/4/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE EMITHIGH2( Input_Opt, State_Chm, State_Grid, State_Met, &\n                       BCSRC,     OCSRC,     NUMBSRC )\n!\n! !USES:\n!\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Grid_Mod,     ONLY : GrdState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt               ! Input Options\n   TYPE(GrdState), INTENT(IN)  :: State_Grid              ! Grid State\n   TYPE(MetState), INTENT(IN)  :: State_Met               ! Meteorology State\n   REAL(fp),       INTENT(IN)  :: BCSRC(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2) ! Total BC [kg]\n   REAL(fp),       INTENT(IN)  :: OCSRC(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2) ! Total OC [kg]\n   REAL(fp),       INTENT(IN)  :: NUMBSRC(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n!\n! !REVISION HISTORY:\n!  04 Sep 2007 - W. Trivitayanurak - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER           :: I, J, L, PBL_MAX, K\n   REAL(fp)          :: F_OF_PBL\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! EMITHIGH2 begins here!\n   !=================================================================\n\n   ! Point to chemical species vector containing concentrations\n   Spc => State_Chm%Species\n\n   ! Maximum extent of PBL [model levels]\n   PBL_MAX = State_Met%PBL_MAX_L\n\n   !=================================================================\n   ! Partition emissions throughout the boundary layer\n   !=================================================================\n   IF ( Input_Opt%LNLPBL ) THEN\n      print *,'Currently subroutine EMITHIGH2 does not support ', &\n              'the new non-local PBL scheme!'\n      stop\n   ENDIF\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, K, F_OF_PBL )\n   DO L = 1, PBL_MAX\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n   DO K = 1, State_Chm%nTomasBins\n\n      ! Fraction of PBL spanned by grid box (I,J,L) [unitless]\n      F_OF_PBL = State_Met%F_OF_PBL(I,J,L)\n\n      ! Hydrophilic ELEMENTAL CARBON\n      Spc(id_ECIL01-1+K)%Conc(I,J,L) = Spc(id_ECIL01-1+K)%Conc(I,J,L) + &\n                                ( F_OF_PBL * BCSRC(I,J,K,1) )\n\n      ! Hydrophobic ELEMENTAL CARBON\n      Spc(id_ECOB01-1+K)%Conc(I,J,L) = Spc(id_ECOB01-1+K)%Conc(I,J,L) + &\n                                ( F_OF_PBL * BCSRC(I,J,K,2) )\n\n      ! Hydrophilic ORGANIC CARBON\n      Spc(id_OCIL01-1+K)%Conc(I,J,L) = Spc(id_OCIL01-1+K)%Conc(I,J,L) + &\n                                ( F_OF_PBL * OCSRC(I,J,K,1) )\n\n      ! Hydrophobic ORGANIC CARBON\n      Spc(id_OCOB01-1+K)%Conc(I,J,L) = Spc(id_OCOB01-1+K)%Conc(I,J,L) + &\n                                ( F_OF_PBL * OCSRC(I,J,K,2) )\n\n      ! Number corresponding to EC + OC [No.]\n      Spc(id_NK01-1+K)%Conc(I,J,L)   = Spc(id_NK01-1+K)%Conc(I,J,L) + &\n                                ( F_OF_PBL * NUMBSRC(I,J,K) )\n\n   ENDDO\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Free pointer\n   NULLIFY( Spc )\n\n END SUBROUTINE EMITHIGH2\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ohno3time\n!\n! !DESCRIPTION: Subroutine OHNO3TIME computes the sum of cosine of the solar\n!  zenith angle over a 24 hour day, as well as the total length of daylight.\n!  This is needed to scale the offline OH and NO3 concentrations.\n!  (rjp, bmy, 12/16/02, 1/18/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE OHNO3TIME( State_Grid )\n!\n! !USES:\n!\n   USE State_Grid_Mod, ONLY : GrdState\n   USE TIME_MOD,       ONLY : GET_NHMSb,   GET_ELAPSED_SEC\n   USE TIME_MOD,       ONLY : GET_TS_CHEM, GET_DAY_OF_YEAR, GET_GMT\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(GrdState), INTENT(IN) :: State_Grid\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   LOGICAL, SAVE  :: FIRST = .TRUE.\n   INTEGER        :: I, J, L, N, NT, NDYSTEP\n   REAL(fp)       :: A0, A1, A2, A3, B1, B2, B3\n   REAL(fp)       :: LHR0, R, AHR, DEC, TIMLOC, YMID_R\n   REAL(fp)       :: SUNTMP(State_Grid%NX,State_Grid%NY)\n\n   !=================================================================\n   ! OHNO3TIME begins here!\n   !=================================================================\n\n   !  Solar declination angle (low precision formula, good enough for us):\n   A0 = 0.006918\n   A1 = 0.399912\n   A2 = 0.006758\n   A3 = 0.002697\n   B1 = 0.070257\n   B2 = 0.000907\n   B3 = 0.000148\n   R  = 2.* PI * float( GET_DAY_OF_YEAR() - 1 ) / 365.\n\n   DEC = A0 - A1*cos(  R) + B1*sin(  R)  &\n             - A2*cos(2*R) + B2*sin(2*R) &\n             - A3*cos(3*R) + B3*sin(3*R)\n\n   LHR0 = int(float( GET_NHMSb() )/10000.)\n\n   ! Only do the following at the start of a new day\n   IF ( FIRST .or. GET_GMT() < 1e-5 ) THEN\n\n      ! Zero arrays\n      TCOSZ(:,:) = 0e+0_fp\n\n      ! NDYSTEP is # of chemistry time steps in this day\n      NDYSTEP = ( 24 - INT( GET_GMT() ) ) * 3600 / GET_TS_CHEM()\n\n      ! NT is the elapsed time [s] since the beginning of the run\n      NT = GET_ELAPSED_SEC()\n\n      ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n      DO N = 1, NDYSTEP\n\n         ! Zero SUNTMP array\n         SUNTMP = 0e+0_fp\n\n         ! Loop over surface grid boxes\n         !$OMP PARALLEL DO       &\n         !$OMP DEFAULT( SHARED ) &\n         !$OMP PRIVATE( I, J, YMID_R, TIMLOC, AHR )\n         DO J = 1, State_Grid%NY\n         DO I = 1, State_Grid%NX\n\n            ! Grid box latitude center [radians]\n            YMID_R = State_Grid%YMid_R(I,J)\n\n            TIMLOC = real(LHR0) + real(NT)/3600.0 + State_Grid%XMid(I,J) / 15.0\n\n            DO WHILE (TIMLOC .lt. 0)\n               TIMLOC = TIMLOC + 24.0\n            ENDDO\n\n            DO WHILE (TIMLOC .gt. 24.0)\n               TIMLOC = TIMLOC - 24.0\n            ENDDO\n\n            AHR = abs(TIMLOC - 12.) * 15.0 * PI_180\n\n            !===========================================================\n            ! The cosine of the solar zenith angle (SZA) is given by:\n            !\n            !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n            !\n            ! where LAT = the latitude angle,\n            !       DEC = the solar declination angle,\n            !       AHR = the hour angle, all in radians.\n            !\n            ! If SUNCOS < 0, then the sun is below the horizon, and\n            ! therefore does not contribute to any solar heating.\n            !===========================================================\n\n            ! Compute Cos(SZA)\n            SUNTMP(I,J) = sin(YMID_R) * sin(DEC) + &\n                          cos(YMID_R) * cos(DEC) * cos(AHR)\n\n            ! TCOSZ is the sum of SUNTMP at location (I,J)\n            ! Do not include negative values of SUNTMP\n            TCOSZ(I,J) = TCOSZ(I,J) + MAX( SUNTMP(I,J), 0e+0_fp )\n\n         ENDDO\n         ENDDO\n         !$OMP END PARALLEL DO\n\n         ! Increment elapsed time [sec]\n         NT = NT + GET_TS_CHEM()\n      ENDDO\n\n      ! Reset first-time flag\n      FIRST = .FALSE.\n   ENDIF\n\n END SUBROUTINE OHNO3TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_oh\n!\n! !DESCRIPTION: Function GET\\_OH returns OH from State\\_Chm%Species%Conc (for\n!  coupled runs) or monthly mean OH (for offline runs).  Imposes a diurnal\n!  variation on OH for offline simulations. (bmy, 7/9/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_OH( I, J, L, Input_Opt, State_Chm, State_Met ) &\n      RESULT( OH_MOLEC_CM3 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n   USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: I           ! Longitude index\n   INTEGER,        INTENT(IN)  :: J           ! Latitude index\n   INTEGER,        INTENT(IN)  :: L           ! Altitude index\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n   REAL(fp)                    :: OH_MOLEC_CM3\n!\n! !REVISION HISTORY:\n!  09 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp) :: OH_MW_kg   ! kg OH / mol\n\n   !=================================================================\n   ! GET_OH begins here!\n   !=================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !---------------------\n      ! Coupled simulation\n      !---------------------\n\n      ! OH is defined only in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get OH from State_Chm%Species%Conc [kg] and convert to [molec/cm3]\n         OH_MW_kg = State_Chm%SpcData(id_OH)%Info%MW_g * 1.e-3_fp\n\n         OH_MOLEC_CM3 = State_Chm%Species(id_OH)%Conc(I,J,L) &\n                        * ( AVO / OH_MW_kg ) &\n                        / ( State_Met%AIRVOL(I,J,L) * 1e+6_fp )\n\n      ELSE\n\n         OH_MOLEC_CM3 = 0e+0_fp\n\n      ENDIF\n\n   ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !---------------------\n      ! Offline simulation\n      !---------------------\n\n      ! Test for sunlight...\n      IF ( State_Met%SUNCOS(I,J) > 0e+0_fp .and. TCOSZ(I,J) > 0e+0_fp ) THEN\n\n         ! OH from HEMCO is in mol/mol, convert to molec/cm3\n         OH_MOLEC_CM3 = OFFLINE_OH(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n\n         ! Impose a diurnal variation on OH during the day\n         OH_MOLEC_CM3 = OH_MOLEC_CM3 * &\n                        ( State_Met%SUNCOS(I,J) / TCOSZ(I,J) )   * &\n                        ( 86400e+0_fp / GET_TS_CHEM() )\n\n         ! Make sure OH is not negative\n         OH_MOLEC_CM3 = MAX( OH_MOLEC_CM3, 0e+0_fp )\n\n      ELSE\n\n         ! At night, OH goes to zero\n         OH_MOLEC_CM3 = 0e+0_fp\n\n      ENDIF\n\n   ELSE\n\n      !---------------------\n      ! Invalid sim type!\n      !---------------------\n      CALL ERROR_STOP( 'Invalid Simulation Type!', &\n                       'GET_OH (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_OH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_no3\n!\n! !DESCRIPTION: Function GET\\_NO3 returns NO3 from State\\_Chm%Species%Conc\n!  (for coupled runs) or monthly mean OH (for offline runs).  For offline runs,\n!  the concentration of NO3 is set to zero during the day. (rjp, bmy, 12/16/02,\n!  7/20/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_NO3( I, J, L, Input_Opt, State_Chm, State_Met ) &\n      RESULT( NO3_MOLEC_CM3 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: I           ! Longitude index\n   INTEGER,        INTENT(IN)  :: J           ! Latitude index\n   INTEGER,        INTENT(IN)  :: L           ! Altitude index\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n   REAL(fp)                    :: NO3_MOLEC_CM3\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp)             :: NO3_MW_kg  ! kg NO3 / mol\n\n   !=================================================================\n   ! GET_NO3 begins here!\n   !=================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !----------------------\n      ! Coupled simulation\n      !----------------------\n\n      ! NO3 is defined only in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get NO3 from State_Chm%Species%Conc [kg]; convert to [molec/cm3]\n         NO3_MW_kg   = State_Chm%SpcData(id_NO3)%Info%MW_g * 1.e-3_fp\n\n         NO3_MOLEC_CM3 = State_Chm%Species(id_NO3)%Conc(I,J,L) &\n                         * ( AVO / NO3_MW_kg ) &\n                         / ( State_Met%AIRVOL(I,J,L) * 1e+6_fp  )\n\n      ELSE\n\n         NO3_MOLEC_CM3 = 0e+0_fp\n\n      ENDIF\n\n   ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !---------------------\n      ! Offline simulation\n      !---------------------\n\n      ! Test if daylight\n      IF ( State_Met%SUNCOS(I,J) > 0e+0_fp ) THEN\n\n         ! NO3 goes to zero during the day\n         NO3_MOLEC_CM3 = 0e+0_fp\n\n      ELSE\n\n         ! NO3 from HEMCO is in mol/mol, convert to molec/cm3\n         NO3_MOLEC_CM3 = OFFLINE_NO3(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n\n      ENDIF\n\n      ! Make sure NO3 is not negative\n      NO3_MOLEC_CM3  = MAX( NO3_MOLEC_CM3, 0e+0_fp )\n\n   ELSE\n\n      !----------------------\n      ! Invalid sim type!\n      !----------------------\n      CALL ERROR_STOP( 'Invalid Simulation Type!', &\n                       'GET_NO3 (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_NO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_o3\n!\n! !DESCRIPTION: Function GET\\_O3 returns monthly mean O3 for offline sulfate\n!  aerosol simulations. (bmy, 12/16/02, 7/20/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_O3( I, J, L, Input_Opt, State_Chm, State_Grid, State_Met ) &\n      RESULT( O3_MOLEC_CM3 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Grid_Mod,     ONLY : GrdState\n   USE State_Met_Mod,      ONLY : MetState\n   USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: I           ! Longitude index\n   INTEGER,        INTENT(IN)  :: J           ! Latitude index\n   INTEGER,        INTENT(IN)  :: L           ! Altitude index\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n   REAL(fp)                    :: O3_MOLEC_CM3\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp)             :: O3_MW_kg   ! kg O3 / mol\n\n   !=================================================================\n   ! GET_O3 begins here!\n   !=================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !--------------------\n      ! Coupled simulation\n      !--------------------\n\n      ! O3 is defined only in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get O3 from State_Chm%Species%Conc [kg] and convert to [molec/cm3]\n         O3_MW_kg   = State_Chm%SpcData(id_O3)%Info%MW_g * 1.e-3_fp\n\n         O3_MOLEC_CM3 = State_Chm%Species(id_O3)%Conc(I,J,L) &\n                        * ( AVO / O3_MW_kg ) &\n                        / ( State_Met%AIRVOL(I,J,L) * 1e+6_fp )\n\n      ELSE\n\n         O3_MOLEC_CM3 = 0e+0_fp\n\n      ENDIF\n\n   ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !--------------------\n      ! Offline simulation\n      !--------------------\n\n      ! Get O3 [v/v] for this gridbox & month\n      ! O3 is defined only in the chemistry grid\n      IF ( L <= State_Met%MaxChemLev ) THEN\n\n         ! O3 from HEMCO is in mol/mol, convert to molec/cm3\n         O3_MOLEC_CM3 = OFFLINE_O3(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n\n      ELSE\n         O3_MOLEC_CM3 = 0e+0_fp\n      ENDIF\n\n      ! Test for sunlight...\n      IF ( State_Met%SUNCOS(I,J) > 0e+0_fp .and. TCOSZ(I,J) > 0e+0_fp ) THEN\n\n         ! Impose a diurnal variation on OH during the day\n         O3_MOLEC_CM3 = O3_MOLEC_CM3                             * &\n                        ( State_Met%SUNCOS(I,J) / TCOSZ(I,J) )   * &\n                        ( 86400e+0_fp / GET_TS_CHEM() )\n\n         ! Make sure OH is not negative\n         O3_MOLEC_CM3 = MAX( O3_MOLEC_CM3, 0e+0_fp )\n\n      ELSE\n         O3_MOLEC_CM3 = 0e+0_fp\n      ENDIF\n\n   ELSE\n\n      !--------------------\n      ! Invalid sim type!\n      !--------------------\n      CALL ERROR_STOP( 'Invalid Simulation Type!', &\n                       'GET_O3 (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_O3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_daro2\n!\n! !DESCRIPTION: Function GET\\_DARO2 returns the amount of aromatic peroxy\n!  radical that reacted with HO2 or NO during the last chemistry timestep.\n!  (dkh, 11/10/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_DARO2( I, J, L, NOX, JHC, Input_Opt, State_Chm, State_Met ) &\n      RESULT( DARO2 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE PhysConstants,      ONLY : AVO\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: I           ! Longitude index\n   INTEGER,        INTENT(IN)  :: J           ! Latitude index\n   INTEGER,        INTENT(IN)  :: L           ! Altitude index\n   INTEGER,        INTENT(IN)  :: NOX\n   INTEGER,        INTENT(IN)  :: JHC\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n   REAL(fp)                    :: DARO2\n!\n! !REVISION HISTORY:\n!  10 Nov 2006 - D. Henze - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER  :: id_LARO2      ! Species ID for AROM lost to HO2 or NO\n   INTEGER  :: id_AROM       ! Species ID of the parent aromatic\n   REAL(fp) :: ARO2CARB      ! kg C of ARO2 / kg ARO2\n   REAL(fp) :: AROM_MW_kg    ! g C of AROM  / mol C\n   REAL(fp) :: LARO2_MW_kg   ! g C of LARO2 / mol C\n\n   !=================================================================\n   ! GET_DARO2 begins here!\n   !=================================================================\n\n   ! Initialize\n   DARO2 = 0e+0_fp\n\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !--------------------\n      ! Coupled simulation\n      !--------------------\n\n      ! Test if we are in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get information on the\n         ! specified type of aromatic peroxy radical\n         ! Benzene\n         IF    ( JHC == PARENTBENZ ) THEN\n\n            ! Loss due to NO2 corresponds to high NOX experiments\n            ! (NOX = 1) while loss due to HO2 corresponds to\n            ! low NOX experiments (NOX = 2).\n            IF ( NOX == 1 ) THEN\n               id_LARO2 = id_LBRO2N\n            ELSEIF ( NOX == 2 ) THEN\n               id_LARO2 = id_LBRO2H\n            ELSE\n               CALL ERROR_STOP('Bad NOX', 'GET_DARO2')\n            ENDIF\n\n            ! kg C of ARO2 / kg ARO2\n            ! dkh ARMv4 (hotp 7/31/2008)\n            !ARO2CARB = 0.5669e+0_fp ! = 6*12/(6*12+3*16+7)\n            !ARO2CARB = 0.4528e+0_fp ! = 6*12/(6*12+5*16+7)\n            ! Now use parent HC instead of RO2 (hotp 5/13/10)\n            ! C6H6\n            ARO2CARB = 6e+0_fp * 12e+0_fp / ( 6e+0_fp * 12e+0_fp + 6e+0_fp )\n\n            ! Species index of the parent aromatic\n            id_AROM = id_BENZ\n\n         ! Toluene\n         ELSEIF ( JHC == PARENTTOLU ) THEN\n\n            IF ( NOX == 1 ) THEN\n               id_LARO2 = id_LTRO2N\n            ELSEIF ( NOX == 2 ) THEN\n               id_LARO2 = id_LTRO2H\n            ELSE\n               CALL ERROR_STOP('Bad NOX', 'GET_DARO2')\n            ENDIF\n\n            ! kg C of ARO2 / kg ARO2\n            ! dkh ARMv4 (hotp 7/31/2008)\n            !ARO2CARB = 0.5874 ! = 7*12/(7*12+3*16+11)  ! This was wrong for 2 reasons\n            !ARO2CARB = 0.5957e+0_fp ! = 7*12/(7*12+3*16+9) ! <-- just change 11 to 9\n            !ARO2CARB = 0.48e+0_fp ! = 7*12/(7*12+5*16+11)  ! <-- just change 3*16 to 5*16\n            !ARO2CARB = 0.4855e+0_fp ! = 7*12/(7*12+5*16+9)  ! <-- change both\n            ! Now use parent HC instead of RO2 (hotp 5/13/10)\n            ! C7H8\n            ARO2CARB = 7e+0_fp * 12e+0_fp / ( 7e+0_fp * 12e+0_fp + 8e+0_fp )\n\n            ! Species index of the parent aromatic\n            id_AROM = id_TOLU\n\n         ! XYLENE\n         ELSEIF ( JHC == PARENTXYLE ) THEN\n\n            IF ( NOX == 1 ) THEN\n               id_LARO2 = id_LXRO2N\n            ELSEIF ( NOX == 2 ) THEN\n               id_LARO2 = id_LXRO2H\n            ELSE\n               CALL ERROR_STOP('Bad NOX', 'GET_DARO2')\n            ENDIF\n\n            ! kg C of ARO2 / kg ARO2\n            ! dkh ARMv4 (hotp 7/31/2008)\n            !ARO2CARB = 0.6194e+0_fp ! = 8*12/(8*12+3*16+11)\n            !ARO2CARB = 0.5134e+0_fp ! = 8*12/(8*12+3*16+11)\n            ! comments on above are bad (hotp 7/22/09)\n            ! ARO2CARB for XYL is = 8*12/(8*12+5*16+11) (hotp 7/22/09)\n            ! Now use parent HC instead of RO2 (hotp 5/13/10)\n            ! old value based on RO2: 0.5134e+0_fp\n            ! C8H10\n            ARO2CARB = 8e+0_fp * 12e+0_fp / ( 8e+0_fp * 12e+0_fp + 10e+0_fp )\n\n            ! Species index of the parent aromatic\n            id_AROM = id_XYLE\n\n         ! NAPHTHALENE (IVOC surrogate) (hotp 7/22/09)\n         ELSEIF ( JHC == PARENTNAP ) THEN\n\n            IF ( NOX == 1 ) THEN\n               id_LARO2 = id_LNRO2N\n            ELSEIF ( NOX == 2 ) THEN\n               id_LARO2 = id_LNRO2H\n            ELSE\n               CALL ERROR_STOP('Bad NOX', 'GET_DARO2')\n            ENDIF\n\n            ! kg C of ARO2 / kg ARO2\n            ! NOTE: for NAP, GET_DARO2 is the kg of NAP reacted,\n            ! not the kg of ARO2\n            ! ALPHAs are set up for this\n            ARO2CARB = 12e+0_fp * 10e+0_fp / ( 12e+0_fp * 10e+0_fp + 8e+0_fp )\n\n            ! Species index of the parent aromatic\n            id_AROM = id_NAP\n\n         ELSE\n\n            CALL ERROR_STOP('Bad JHC', 'GET_DAR2')\n\n         ENDIF\n\n         ! Get LARO2 (AROM lost to HO2 or NO) from State_Chm%Species%Conc\n         ! [kg LARO2] and convert to [kg AROM]\n         AROM_MW_kg  = State_Chm%SpcData(id_AROM)%Info%MW_g * 1.e-3_fp\n         LARO2_MW_kg = State_Chm%SpcData(id_LARO2)%Info%MW_g * 1.e-3_fp\n\n         DARO2 = State_Chm%Species(id_LARO2)%Conc(I,J,L) &\n                 * ( AVO / LARO2_MW_kg ) &\n                 / ( AVO / AROM_MW_kg  ) * ARO2CARB\n\n      ELSE\n\n         ! Otherwise set DOH=0\n         DARO2 = 0e+0_fp\n\n      ENDIF\n\n   ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !--------------------\n      ! Offline simulation\n      !--------------------\n\n      ! Not supported yet for\n      ! offline aerosol simulations, set DOH=0\n      DARO2 = 0e+0_fp\n\n   ELSE\n\n      !--------------------\n      ! Invalid sim type!\n      !--------------------\n      CALL ERROR_STOP( 'Invalid simulation type!', &\n                       'GET_DARO2 (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_DARO2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_doh\n!\n! !DESCRIPTION: Function GET\\_DOH returns the amount of isoprene [kg] that has\n!  reacted with OH during the last chemistry time step. (dkh, bmy, 6/01/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_DOH( I, J, L, Input_Opt, State_Chm, State_Met ) &\n      RESULT( DOH )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE PhysConstants,      ONLY : AVO\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: I           ! Longitude index\n   INTEGER,        INTENT(IN)  :: J           ! Latitude index\n   INTEGER,        INTENT(IN)  :: L           ! Altitude index\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n   REAL(fp)                    :: DOH\n!\n! !REVISION HISTORY:\n!  01 Jun 2006 - D. Henze - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp) :: ISOP_MW_kg    ! kg C ISOP    / mol C\n   REAL(fp) :: LISOPOH_MW_kg ! kg C LISOPOH / mol C\n\n   !=================================================================\n   ! GET_DOH begins here!\n   !=================================================================\n\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !--------------------\n      ! Coupled simulation\n      !--------------------\n\n      ! Test if we are in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get LISOPOH (ISOP lost to OH) from State_Chm%Species%Conc\n         ! [kg LISOPOH] and convert to [kg C ISOP]\n         ISOP_MW_kg    = State_Chm%SpcData(id_ISOP)%Info%MW_g * 1.e-3_fp\n         LISOPOH_MW_kg = State_Chm%SpcData(id_LISOPOH)%Info%MW_g * 1.e-3_fp\n\n         DOH = State_Chm%Species(id_LISOPOH)%Conc(I,J,L) &\n               * ( AVO / LISOPOH_MW_kg ) &\n               / ( AVO / ISOP_MW_kg )\n\n      ELSE\n\n         ! Otherwise set DOH=0\n         DOH = 0e+0_fp\n\n      ENDIF\n\n   ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !--------------------\n      ! Offline simulation\n      !--------------------\n\n      ! ISOP from OH not is yet supported for\n      ! offline aerosol simulations, set DOH=0\n      DOH = 0e+0_fp\n\n   ELSE\n\n      !--------------------\n      ! Invalid sim type!\n      !--------------------\n      CALL ERROR_STOP( 'Invalid simulation type!', &\n                       'GET_DOH (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_DOH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: check_eqlb\n!\n! !DESCRIPTION: Subroutine CHECK\\_EQLB makes sure aerosols are at equilibrium\n!  (checks SOA=SOG*KOM*Mo). Called inside SOA\\_SVPOA\\_CHEMISTRY I, J, L loop\n!  after SOA\\_SVPOA\\_LUMP. Created by Havala Pye (5/18/10).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHECK_EQLB( I,   J,   L, KOMIJL, CONVFAC, MSOACHEM, &\n                        LOW, TOL, ASOANGAS, ASOANAER, OCPIOCPO, State_Chm )\n!\n! !USES:\n!\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN)  :: I           ! Longitude index\n   INTEGER,        INTENT(IN)  :: J           ! Latitude index\n   INTEGER,        INTENT(IN)  :: L           ! Altitude index\n   REAL(fp),       INTENT(IN)  :: KOMIJL(MPROD,MSV) ! KOM at grid box (adj T)\n   REAL(fp),       INTENT(IN)  :: CONVFAC     ! Conversion factor kg to ug/m3\n   REAL(fp),       INTENT(IN)  :: OCPIOCPO    ! POA mass [ug/m3]\n\n   ! Arguments for debugging\n   REAL(fp),       INTENT(IN)  :: MSOACHEM    ! MNEW from calling prog\n   REAL(fp),       INTENT(IN)  :: LOW         ! Lower bound on soln\n   REAL(fp),       INTENT(IN)  :: TOL         ! Tolerance on soln\n   REAL(fp),       INTENT(IN)  :: ASOANGAS    ! Gas phase ASOAN (should =0)\n   REAL(fp),       INTENT(IN)  :: ASOANAER    ! Aer phase ASOAN [ug/m3]\n\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n!\n! !REMARKS:\n!  Note: There are some deviations from equilibrium due to the fact\n!  that ASOAN is supposed to be nonvolatile, but is modeled with a KOM of\n!  10^6. An adjustment is made in SOA_CHEMISTRY to force all ASOAN to\n!  the aerosol phase. This was found to lead to error up to 1e-5 ug/m3\n!  in Mo. This error is small, but the effects can be investigated\n!  here if you're interested!\n!                                                                             .\n!  As of 6/2010, KOM for ASOAN was increased and the error in Mo reduced.\n!\n! !REVISION HISTORY:\n!  18 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n   !REAL(fp), PARAMETER   :: ACCEPTERRORUG = 1d-6 ! error in ug/m3\n   ! KOM_REF for non-vol is larger, so error smaller (hotp 5/28/10)\n   !REAL(fp), PARAMETER   :: ACCEPTERRORUG = 1d-10 ! error in ug/m3\n   ! relax error tolerance (KOM_REF for ASOAN still not perfect)\n   ! hotp 6/11/10\n   REAL(fp), PARAMETER :: ACCEPTERRORUG = 1e-8_fp ! error in ug/m3\n!\n! !LOCAL VARIABLES:}\n!\n   INTEGER             :: NOX, IPR, JHC, JSV\n   REAL(fp)            :: MOTEMP, OATEMP, EQLBDIFF\n\n   ! Pointers\n   TYPE(SpcConc), POINTER   :: Spc(:)\n\n   !=================================================================\n   ! CHECK_EQLB starts here\n   !=================================================================\n\n   ! Point to chemical species vector containing concentrations\n   Spc => State_Chm%Species\n\n   ! Calculate mass of absorbing organic medium\n   MOTEMP = Spc(id_ASOAN)%Conc(I,J,L) + &\n            Spc(id_ASOA1)%Conc(I,J,L) + &\n            Spc(id_ASOA2)%Conc(I,J,L) + &\n            Spc(id_ASOA3)%Conc(I,J,L) + &\n            Spc(id_TSOA1)%Conc(I,J,L) + &\n            Spc(id_TSOA2)%Conc(I,J,L) + &\n            Spc(id_TSOA3)%Conc(I,J,L) + &\n            Spc(id_TSOA0)%Conc(I,J,L)\n\n   ! Add primary material as appropriate\n   IF ( id_POA1 > 0 ) THEN\n      MOTEMP = MOTEMP              + &\n               Spc(id_POA1 )%Conc(I,J,L) * State_Chm%AerMass%OCFPOA(I,J)  + &\n               Spc(id_POA2 )%Conc(I,J,L) * State_Chm%AerMass%OCFPOA(I,J)  + &\n               Spc(id_OPOA1)%Conc(I,J,L) * State_Chm%AerMass%OCFOPOA(I,J) + &\n               Spc(id_OPOA2)%Conc(I,J,L) * State_Chm%AerMass%OCFOPOA(I,J)\n   ELSEIF ( id_OCPI > 0 ) THEN\n      MOTEMP = MOTEMP + &\n               ( Spc(id_OCPI)%Conc(I,J,L) + Spc(id_OCPO)%Conc(I,J,L) ) * 2.1e+0_fp\n   ENDIF\n\n   ! Convert Mo from [kg] to [ug/m3]\n   MOTEMP = MOTEMP * CONVFAC\n\n   ! Check Mo calculation\n   ! Forcing ASOAN to aerosol phase causes errors in MO that will\n   ! manifest themselves here\n   ! Require MO to be accurate within 1d-8 ug/m3\n   EQLBDIFF = ABS( MOTEMP - MSOACHEM )\n   !IF ( EQLBDIFF > 1d-4 ) print*, 'CHECK_EQLB ERROR: MO disagree',\n   ! KOM_REF for non-vol is larger, so tighten here (hotp 5/28/10)\n   IF ( EQLBDIFF > 1e-8_fp ) print*, 'CHECK_EQLB ERROR: MO disagree', &\n                                     I,J,L,MSOACHEM,MOTEMP,LOW,TOL,   &\n                                     ASOANGAS, ASOANAER, OCPIOCPO\n\n   ! quick check\n   !MOTEMP = MSOACHEM\n\n   !----------------------------------------------------\n   ! Semivolatile 1: monoterpene + sesquiterpene SOA\n   !----------------------------------------------------\n   JHC = PARENTMTPA\n   JSV = IDSV(JHC)\n\n   ! Product 1\n   IPR = 1\n   ! Compute OA in kg\n   OATEMP = Spc(id_TSOG1)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_TSOA1)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV',  IPR, JSV, ' in box ', I, J, L\n   ENDIF\n\n   ! Product 2\n   IPR = 2\n   ! Compute OA in kg\n   OATEMP = Spc(id_TSOG2)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_TSOA2)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L, &\n                  MSOACHEM,MOTEMP,LOW,TOL, &\n                  ASOANGAS, ASOANAER, OCPIOCPO, &\n                  Spc(id_TSOA2)%Conc(I,J,L),Spc(id_TSOG2)%Conc(I,J,L)\n      WRITE(*,*) 'KOM',KOMIJL(IPR,JSV),OATEMP,CONVFAC\n   ENDIF\n\n   ! Product 3\n   IPR = 3\n   ! Compute OA in kg\n   OATEMP = Spc(id_TSOG3)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_TSOA3)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L\n   ENDIF\n\n   ! Product 4, C*=0.1\n   IPR = 4\n   ! Compute OA in kg\n   OATEMP = Spc(id_TSOG0)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_TSOA0)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L, &\n                  MSOACHEM,MOTEMP,LOW,TOL, &\n                  ASOANGAS, ASOANAER, OCPIOCPO, &\n                  Spc(id_TSOA0)%Conc(I,J,L),Spc(id_TSOG0)%Conc(I,J,L)\n      WRITE(*,*) 'KOM',KOMIJL(IPR,JSV),OATEMP,CONVFAC\n   ENDIF\n\n   !---------------------------------------------------------------------------\n   ! Prior to 7/15/19:\n   ! Remove isoprene from VBS (mps, 7/15/19)\n   !!----------------------------------------------------\n   !! Semivolatile 2: isoprene SOA\n   !!----------------------------------------------------\n   !JHC = PARENTISOP\n   !JSV = IDSV(JHC)\n   !\n   !! Product 1\n   !IPR = 1\n   !! Compute OA in kg\n   !OATEMP = Spc(id_ISOG1)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   !! Compute difference in ug/m3\n   !EQLBDIFF = ABS( OATEMP - Spc(id_ISOA1)%Conc(I,J,L) )* CONVFAC\n   !! Assess error\n   !IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n   !   WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L\n   !ENDIF\n   !\n   !! Product 2\n   !IPR = 2\n   !! Compute OA in kg\n   !OATEMP = Spc(id_ISOG2)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   !! Compute difference in ug/m3\n   !EQLBDIFF = ABS( OATEMP - Spc(id_ISOA2)%Conc(I,J,L) )* CONVFAC\n   !! Assess error\n   !IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n   !   WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV,' in box ', I, J, L\n   !ENDIF\n   !\n   !! Product 3\n   !IPR = 3\n   !! Compute OA in kg\n   !OATEMP = Spc(id_ISOG3)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   !! Compute difference in ug/m3\n   !EQLBDIFF = ABS( OATEMP - Spc(id_ISOA3)%Conc(I,J,L) )* CONVFAC\n   !! Assess error\n   !IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n   !   WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L\n   !ENDIF\n   !---------------------------------------------------------------------------\n\n   !----------------------------------------------------\n   ! Semivolatile 3: lumped arom/IVOC: total SOA+SOG in kg\n   !----------------------------------------------------\n   JHC = PARENTBENZ\n   JSV = IDSV(JHC)\n\n   ! High NOx, Product 1\n   !NOX = NHIGHNOX\n   IPR = 1\n   ! Compute OA in kg\n   OATEMP = Spc(id_ASOG1)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_ASOA1)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L\n   ENDIF\n\n   ! High NOx, Product 2\n   !NOX = NHIGHNOX\n   IPR = 2\n   ! Compute OA in kg\n   OATEMP = Spc(id_ASOG2)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_ASOA2)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L\n   ENDIF\n\n   ! High NOx, Product 3\n   !NOX = NHIGHNOX\n   IPR = 3\n   ! Compute OA in kg\n   OATEMP = Spc(id_ASOG3)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n   ! Compute difference in ug/m3\n   EQLBDIFF = ABS( OATEMP - Spc(id_ASOA3)%Conc(I,J,L) )* CONVFAC\n   ! Assess error\n   IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n      WRITE(*,*) 'EQLB Problem PR, JSV', IPR, JSV, ' in box ', I, J, L\n   ENDIF\n\n   ! LOW NOx, Product 1\n   ! nonvolatile so don't need to check partitioning\n\n   !----------------------------------------------------\n   ! POA: total POA+POG in kgC\n   !----------------------------------------------------\n   IF ( id_POA1 > 0 ) THEN\n      JHC = PARENTPOA\n      JSV = IDSV(JHC)\n      NOX = NONLYNOX\n\n      ! Product 1\n      NOX = NONLYNOX\n      IPR = 1\n      ! Compute OA in kg\n      OATEMP = Spc(id_POG1)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n      ! Compute difference in ug/m3\n      EQLBDIFF = ABS( OATEMP - Spc(id_POA1)%Conc(I,J,L) )* CONVFAC\n      ! Assess error\n      IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n         WRITE(*,*) 'EQLB Problem NOX, PR, JSV', NOX, IPR, JSV, &\n                    ' in box ', I, J, L\n      ENDIF\n\n      ! Product 2\n      NOX = NONLYNOX\n      IPR = 2\n      ! Compute OA in kg\n      OATEMP = Spc(id_POG2)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n      ! Compute difference in ug/m3\n      EQLBDIFF = ABS( OATEMP - Spc(id_POA2)%Conc(I,J,L) )* CONVFAC\n      ! Assess error\n      IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n         WRITE(*,*) 'EQLB Problem NOX, PR, JSV', NOX, IPR, JSV, &\n                    ' in box ', I, J, L\n      ENDIF\n\n   ENDIF ! POA\n\n   !----------------------------------------------------\n   ! OPOA: total SOA+SOG in kgC\n   !----------------------------------------------------\n   IF ( id_OPOA1 > 0 ) THEN\n      JHC = PARENTOPOA\n      JSV = IDSV(JHC)\n      NOX = NONLYNOX\n\n      ! Product 1\n      NOX = NONLYNOX\n      IPR = 1\n      ! Compute OA in kg\n      OATEMP = Spc(id_OPOG1)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n      ! Compute difference in ug/m3\n      EQLBDIFF = ABS( OATEMP - Spc(id_OPOA1)%Conc(I,J,L) )* CONVFAC\n      ! Assess error\n      IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n         WRITE(*,*) 'EQLB Problem NOX, PR, JSV', NOX, IPR, JSV, &\n                    ' in box ', I, J, L\n      ENDIF\n\n      ! Product 2\n      NOX = NONLYNOX\n      IPR = 2\n      ! Compute OA in kg\n      OATEMP = Spc(id_OPOG2)%Conc(I,J,L) * KOMIJL(IPR,JSV) * MOTEMP\n      ! Compute difference in ug/m3\n      EQLBDIFF = ABS( OATEMP - Spc(id_OPOA2)%Conc(I,J,L) )* CONVFAC\n      ! Assess error\n      IF ( EQLBDIFF > ACCEPTERRORUG ) THEN\n         WRITE(*,*) 'EQLB Problem NOX, PR, JSV', NOX, IPR, JSV, &\n                    ' in box ', I, J, L\n      ENDIF\n\n   ENDIF ! OPOA\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE CHECK_EQLB\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: save_oaginit\n!\n! !DESCRIPTION: Subroutine SAVE\\_OAGINIT saves total SOA+SOG before\n!  partitioning for diagnostic purposes. Units are the same as the STT array\n!  ([kg] or [kgC per box]).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE SAVE_OAGINIT( State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Grid_Mod,     ONLY : GrdState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  17 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER           :: I, J, L, NOX, JHC, JSV\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! SAVE_OAGINIT starts here\n   !=================================================================\n\n   ! Point to chemical species vector containing concentrations\n   Spc => State_Chm%Species\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( NOX, JHC, JSV, I, J, L )\n   DO L = 1, State_Met%MaxChemLev\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n      !----------------------------------------------------\n      ! Semivolatile 1: monoterpene and sesquiterpene SOA+SOG in kg\n      !----------------------------------------------------\n      JHC = PARENTMTPA\n      JSV = IDSV(JHC)\n      OAGINITSAVE(I,J,L,1,JSV) = Spc(id_TSOA1)%Conc(I,J,L) + Spc(id_TSOG1)%Conc(I,J,L)\n      OAGINITSAVE(I,J,L,2,JSV) = Spc(id_TSOA2)%Conc(I,J,L) + Spc(id_TSOG2)%Conc(I,J,L)\n      OAGINITSAVE(I,J,L,3,JSV) = Spc(id_TSOA3)%Conc(I,J,L) + Spc(id_TSOG3)%Conc(I,J,L)\n      OAGINITSAVE(I,J,L,4,JSV) = Spc(id_TSOA0)%Conc(I,J,L) + Spc(id_TSOG0)%Conc(I,J,L)\n\n      !------------------------------------------------------------------------\n      ! Prior to 7/15/19:\n      ! Remove isoprene from VBS (mps, 7/15/19\n      !!----------------------------------------------------\n      !! Semivolatile 2: isoprene SOA+SOG in kg\n      !!----------------------------------------------------\n      !JHC = PARENTISOP\n      !JSV = IDSV(JHC)\n      !OAGINITSAVE(I,J,L,1,JSV) = Spc(id_ISOA1)%Conc(I,J,L) + Spc(id_ISOG1)%Conc(I,J,L)\n      !OAGINITSAVE(I,J,L,2,JSV) = Spc(id_ISOA2)%Conc(I,J,L) + Spc(id_ISOG2)%Conc(I,J,L)\n      !OAGINITSAVE(I,J,L,3,JSV) = Spc(id_ISOA3)%Conc(I,J,L) + Spc(id_ISOG3)%Conc(I,J,L)\n      !------------------------------------------------------------------------\n\n      !----------------------------------------------------\n      ! Semivolatile 3: lumped arom/IVOC: total SOA+SOG in kg\n      !----------------------------------------------------\n      JHC = PARENTBENZ\n      JSV = IDSV(JHC)\n      ! High NOx\n      OAGINITSAVE(I,J,L,1,JSV) = Spc(id_ASOA1)%Conc(I,J,L) + Spc(id_ASOG1)%Conc(I,J,L)\n      OAGINITSAVE(I,J,L,2,JSV) = Spc(id_ASOA2)%Conc(I,J,L) + Spc(id_ASOG2)%Conc(I,J,L)\n      OAGINITSAVE(I,J,L,3,JSV) = Spc(id_ASOA3)%Conc(I,J,L) + Spc(id_ASOG3)%Conc(I,J,L)\n      ! Low NOx\n      OAGINITSAVE(I,J,L,4,JSV) = Spc(id_ASOAN)%Conc(I,J,L)\n\n      !----------------------------------------------------\n      ! POA: total POA+POG in kgC (if semivol simulation)\n      !----------------------------------------------------\n      IF ( id_POA1 > 0 ) THEN\n         JHC = PARENTPOA\n         JSV = IDSV(JHC)\n         OAGINITSAVE(I,J,L,1,JSV) = Spc(id_POA1)%Conc(I,J,L) + Spc(id_POG1)%Conc(I,J,L)\n         OAGINITSAVE(I,J,L,2,JSV) = Spc(id_POA2)%Conc(I,J,L) + Spc(id_POG2)%Conc(I,J,L)\n      ENDIF\n\n      !----------------------------------------------------\n      ! OPOA: total SOA+SOG in kgC (if semivol simulation)\n      !----------------------------------------------------\n      IF ( id_OPOA1 > 0 ) THEN\n         JHC = PARENTOPOA\n         JSV = IDSV(JHC)\n         OAGINITSAVE(I,J,L,1,JSV) = Spc(id_OPOA1)%Conc(I,J,L) + Spc(id_OPOG1)%Conc(I,J,L)\n         OAGINITSAVE(I,J,L,2,JSV) = Spc(id_OPOA2)%Conc(I,J,L) + Spc(id_OPOG2)%Conc(I,J,L)\n      ENDIF\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Free pointer\n   Spc => NULL()\n\n END SUBROUTINE SAVE_OAGINIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: check_mb\n!\n! !DESCRIPTION: Subroutine CHECK\\_MB checks total SOA+SOG mass balance for\n!  diagnostic/debugging purposes. Units are the same as the STT array ([kg] or\n!  [kgC per box]). Routine also prints helpful budget info. Created by Havala\n!  Pye (5/18/10).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHECK_MB( Input_Opt, State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE Species_Mod,        ONLY : SpcConc\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Grid_Mod,     ONLY : GrdState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n   TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  18 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n   ! [kg/kg] of acceptable error, 1e-12_fp = 1e-10_fp %\n   !REAL(fp), PARAMETER  :: ACCEPTERROR = 1e-12_fp\n   ! more strict (hotp 5/26/10): 1e-12_fp %\n   REAL(fp), PARAMETER :: ACCEPTERROR = 1e-14_fp\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER              :: I, J, L, NOX, JHC, JSV, IPR\n   REAL(fp)             :: TEMPDELTA(MNOX,MPROD)\n   REAL(fp)             :: TEMPSOAG\n   REAL(fp)             :: MBDIFF\n\n   ! Pointers\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! CHECK_MB starts here\n   !=================================================================\n\n   ! Point to chemical species vector containing concentrations\n   Spc => State_Chm%Species\n\n   ! run in serial now (hotp 6/5/10)\n   ! Make parallel again (mpayer, 9/14/11)\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( NOX,         JHC,        JSV,    IPR ) &\n   !$OMP PRIVATE( TEMPDELTA,   TEMPSOAG,   MBDIFF      ) &\n   !$OMP PRIVATE( I, J, L                              )\n   DO L = 1, State_Met%MaxChemLev\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n      !----------------------------------------------------\n      ! Semivolatile 1: terpene SOA+SOG in kg\n      !----------------------------------------------------\n      ! LIMO-MTPO bug/typo fix (hotp 5/26/10)\n      TEMPDELTA = 0e+0_fp\n      JHC = PARENTMTPA\n      JSV = IDSV(JHC)\n      DO IPR = 1, NPROD(JSV)\n      DO NOX = 1, NNOX(JSV)\n         TEMPDELTA(NOX,IPR) = &\n            DELTASOGSAVE(I,J,L,NOX,PARENTMTPA)*ALPHA(NOX,IPR,PARENTMTPA) &\n          + DELTASOGSAVE(I,J,L,NOX,PARENTLIMO)*ALPHA(NOX,IPR,PARENTLIMO) &\n          + DELTASOGSAVE(I,J,L,NOX,PARENTMTPO)*ALPHA(NOX,IPR,PARENTMTPO) &\n          + DELTASOGSAVE(I,J,L,NOX,PARENTSESQ)*ALPHA(NOX,IPR,PARENTSESQ)\n      ENDDO\n      ENDDO\n\n      ! Product 1, C* = 1 ug/m3\n      IPR      = 1\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_TSOA1)%Conc(I,J,L) + Spc(id_TSOG1)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      ! Product 2, C* = 10 ug/m3\n      IPR      = 2\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_TSOA2)%Conc(I,J,L) +  Spc(id_TSOG2)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      ! Product 3, C* = 100 ug/m3\n      IPR      = 3\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_TSOA3)%Conc(I,J,L) + Spc(id_TSOG3)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      ! Product 4, C* = 0.1 ug/m3\n      IPR      = 4\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_TSOA0)%Conc(I,J,L) + Spc(id_TSOG0)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      !------------------------------------------------------------------------\n      ! Prior to 7/15/19:\n      ! Remove isoprene from VBS (mps, 7/15/19)\n      !!----------------------------------------------------\n      !! Semivolatile 2: isoprene SOA+SOG in kg\n      !!----------------------------------------------------\n      !TEMPDELTA = 0e+0_fp\n      !JHC = PARENTISOP\n      !JSV = IDSV(JHC)\n      !DO IPR = 1, NPROD(JSV)\n      !DO NOX = 1, NNOX(JSV)\n      !   TEMPDELTA(NOX,IPR) =\n      !   DELTASOGSAVE(I,J,L,NOX,PARENTISOP)*ALPHA(NOX,IPR,PARENTISOP)\n      !ENDDO\n      !ENDDO\n      !\n      !! Product 1, C* = 1 ug/m3\n      !IPR      = 1\n      !TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      !MBDIFF   = ABS( TEMPSOAG - ( Spc(id_ISOA1)%Conc(I,J,L) + Spc(id_ISOG1)%Conc(I,J,L) ))\n      !MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      !IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n      !   WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n      !              'in box ', I, J, L\n      !   print*,'CK_MB ',NOX,IPR,JSV, &\n      !          TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n      !          TEMPDELTA(:,IPR)\n      !   print*,'DELSOGSAVE NOx=1',DELTASOGSAVE(I,J,L,1,5)\n      !   print*,'DELSOGSAVE NOx=2',DELTASOGSAVE(I,J,L,2,5)\n      !   print*,'DELSOGSAVE NOx=3',DELTASOGSAVE(I,J,L,3,5)\n      !   print*,'Spc',Spc(id_ISOA1)%Conc(I,J,L),Spc(id_ISOG1)%Conc(I,J,L)\n      !   print*,'NNOX',NNOX(JSV)\n      !   print*,'strat?',State_Met%InStratosphere(I,J,L)\n      !ENDIF\n      !\n      !! Product 2, C* = 10 ug/m3\n      !IPR      = 2\n      !TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      !MBDIFF   = ABS( TEMPSOAG - ( Spc(id_ISOA2)%Conc(I,J,L) + Spc(id_ISOG2)%Conc(I,J,L) ))\n      !MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      !IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n      !   WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n      !              'in box ', I, J, L\n      !   print*,'CK_MB ',NOX,IPR,JSV, &\n      !          TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n      !          TEMPDELTA(:,IPR)\n      !   print*,'DELSOGSAVE NOx=1',DELTASOGSAVE(I,J,L,1,5)\n      !   print*,'DELSOGSAVE NOx=2',DELTASOGSAVE(I,J,L,2,5)\n      !   print*,'DELSOGSAVE NOx=3',DELTASOGSAVE(I,J,L,3,5)\n      !   print*,'Spc',Spc(id_ISOA2)%Conc(I,J,L),Spc(id_ISOG2)%Conc(I,J,L)\n      !   print*,'NNOX',NNOX(JSV)\n      !   print*,'strat?',State_Met%InStratosphere(I,J,L)\n      !\n      !ENDIF\n      !\n      !! Product 3, C* = 100 ug/m3\n      !IPR      = 3\n      !TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + SUM(TEMPDELTA(:,IPR))\n      !MBDIFF   = ABS( TEMPSOAG - ( Spc(id_ISOA3)%Conc(I,J,L) + Spc(id_ISOG3)%Conc(I,J,L) ))\n      !MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      !IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n      !   WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n      !              'in box ', I, J, L\n      !   print*,'CK_MB ',NOX,IPR,JSV, &\n      !          TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n      !          TEMPDELTA(:,IPR)\n      !   print*,'DELSOGSAVE NOx=1',DELTASOGSAVE(I,J,L,1,5)\n      !   print*,'DELSOGSAVE NOx=2',DELTASOGSAVE(I,J,L,2,5)\n      !   print*,'DELSOGSAVE NOx=3',DELTASOGSAVE(I,J,L,3,5)\n      !   print*,'Spc',Spc(id_ISOA3)%Conc(I,J,L),Spc(id_ISOG3)%Conc(I,J,L)\n      !   print*,'NNOX',NNOX(JSV)\n      !   print*,'strat?',State_Met%InStratosphere(I,J,L)\n      !ENDIF\n      !------------------------------------------------------------------------\n\n      !----------------------------------------------------\n      ! Semivolatile 3: lumped arom/IVOC: total SOA+SOG in kg\n      !----------------------------------------------------\n      TEMPDELTA = 0e+0_fp\n      JHC = PARENTBENZ\n      JSV = IDSV(JHC)\n      DO IPR = 1, NPROD(JSV)\n      DO NOX = 1, NNOX(JSV)\n         TEMPDELTA(NOX,IPR) = &\n           DELTASOGSAVE(I,J,L,NOX,PARENTBENZ)*ALPHA(NOX,IPR,PARENTBENZ) &\n         + DELTASOGSAVE(I,J,L,NOX,PARENTTOLU)*ALPHA(NOX,IPR,PARENTTOLU) &\n         + DELTASOGSAVE(I,J,L,NOX,PARENTXYLE)*ALPHA(NOX,IPR,PARENTXYLE) &\n         + DELTASOGSAVE(I,J,L,NOX,PARENTNAP )*ALPHA(NOX,IPR,PARENTNAP )\n      ENDDO\n      ENDDO\n\n      ! Low NOx\n      NOX      = NLOWNOX\n      IPR      = 4\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n      MBDIFF   = ABS( TEMPSOAG - Spc(id_ASOAN)%Conc(I,J,L) )\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n         !print*,'DELSOGSAVE NOx=2',DELTASOGSAVE(I,J,L,2,6:8)\n         !print*,'DELSOGSAVE NOx=2',DELTASOGSAVE(I,J,L,2,11)\n         !print*,'Spc',Spc(id_ASOAN)%Conc(I,J,L)\n         !print*,'NNOX',NNOX(JSV)\n         !print*,'strat?',State_Met%InStratosphere(I,J,L)\n      ENDIF\n\n      ! Debug print to screen\n      !IF ( Input_Opt%Verbose ) THEN\n      !   IF ( I == 37 .AND. J == 25 .AND. L == 4 ) THEN\n      !      print*,'CK_MB ',NOX,IPR,JSV, &\n      !             TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,NOX,IPR,JSV)\n      !       print*,'strat?',State_Met%InStratosphere(I,J,L)\n      !   ENDIF\n      !ENDIF\n\n      ! HIGH NOx, Product 1\n      NOX      = NHIGHNOX\n      IPR      = 1\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_ASOA1)%Conc(I,J,L) + Spc(id_ASOG1)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      ! HIGH NOx, Product 2\n      NOX      = NHIGHNOX\n      IPR      = 2\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_ASOA2)%Conc(I,J,L) + Spc(id_ASOG2)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      ! HIGH NOx, Product 3\n      NOX      = NHIGHNOX\n      IPR      = 3\n      TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n      MBDIFF   = ABS( TEMPSOAG - ( Spc(id_ASOA3)%Conc(I,J,L) + Spc(id_ASOG3)%Conc(I,J,L) ))\n      MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n      IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n         WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, JSV, &\n                    'in box ', I, J, L\n         print*,'CK_MB ',NOX,IPR,JSV, &\n                TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                TEMPDELTA(:,IPR)\n      ENDIF\n\n      !----------------------------------------------------\n      ! POA: total POA+POG in kgC\n      !----------------------------------------------------\n      ! Note that POA+G is both increased (due to emission)\n      ! and decreased (due to conversion to OPOG)\n      IF ( id_POA1 > 0 ) THEN\n         TEMPDELTA = 0e+0_fp\n         JHC = PARENTPOA\n         JSV = IDSV(JHC)\n         NOX = NONLYNOX\n         DO IPR = 1, NPROD(JSV)\n            TEMPDELTA(NOX,IPR) = DELTASOGSAVE(I,J,L,IPR,PARENTPOA ) * &\n                                 ALPHA(NOX,IPR,PARENTPOA ) - &\n                                 DELTASOGSAVE(I,J,L,IPR,PARENTOPOA) * &\n                                 ALPHA(NOX,IPR,PARENTOPOA)\n         ENDDO\n\n         ! Only NOx, Product 1\n         IPR      = 1\n         TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n         MBDIFF   = ABS( TEMPSOAG - ( Spc(id_POA1)%Conc(I,J,L) + Spc(id_POG1)%Conc(I,J,L) ))\n         MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n         IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n            WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, &\n                       JSV, 'in box ', I, J, L\n            print*,'CK_MB ',NOX,IPR,JSV, &\n                   TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                   TEMPDELTA(:,IPR)\n         ENDIF\n\n         ! Only NOx, Product 2\n         IPR      = 2\n         TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n         MBDIFF   = ABS( TEMPSOAG - ( Spc(id_POA2)%Conc(I,J,L) + Spc(id_POG2)%Conc(I,J,L) ))\n         MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n         IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n            WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, &\n                       JSV, 'in box ', I, J, L\n            print*,'CK_MB ',NOX,IPR,JSV, &\n                   TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                   TEMPDELTA(:,IPR)\n         ENDIF\n      ENDIF ! POA1\n\n      !----------------------------------------------------\n      ! OPOA: total SOA+SOG in kgC\n      !----------------------------------------------------\n      IF ( id_OPOA1 > 0 ) THEN\n         TEMPDELTA = 0e+0_fp\n         JHC = PARENTOPOA\n         JSV = IDSV(JHC)\n         NOX = NONLYNOX\n         DO IPR = 1, NPROD(JSV)\n            TEMPDELTA(NOX,IPR) = DELTASOGSAVE(I,J,L,IPR,PARENTOPOA) * &\n                                 ALPHA(NOX,IPR,PARENTOPOA)\n         ENDDO\n\n         ! Only NOx, Product 1\n         IPR      = 1\n         TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n         MBDIFF   = ABS( TEMPSOAG - ( Spc(id_OPOA1)%Conc(I,J,L) + Spc(id_OPOG1)%Conc(I,J,L) ))\n         MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n         IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n            WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, &\n                       JSV, 'in box ', I, J, L\n            print*,'CK_MB ',NOX,IPR,JSV, &\n                   TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                   TEMPDELTA(:,IPR)\n         ENDIF\n\n         ! Only NOx, Product 2\n         IPR      = 2\n         TEMPSOAG = OAGINITSAVE(I,J,L,IPR,JSV) + TEMPDELTA(NOX,IPR)\n         MBDIFF   = ABS( TEMPSOAG - ( Spc(id_OPOA2)%Conc(I,J,L) + Spc(id_OPOG2)%Conc(I,J,L) ))\n         MBDIFF   = MBDIFF/TEMPSOAG ! convert to fractional error\n         IF ( Input_Opt%Verbose .and. MBDIFF > ACCEPTERROR ) THEN\n            WRITE(*,*) 'MB Problem with NOX, IPR, JSV:', NOX, IPR, &\n                       JSV, 'in box ', I, J, L\n            print*,'CK_MB ',NOX,IPR,JSV, &\n                   TEMPSOAG,MBDIFF,OAGINITSAVE(I,J,L,IPR,JSV), &\n                   TEMPDELTA(:,IPR)\n         ENDIF\n      ENDIF ! OPOA1\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Save information in [Tg]\n   DO JHC = 1, MHC\n   DO NOX = 1, MNOX\n      DELTAHCSAVE(NOX,JHC) = DELTAHCSAVE(NOX,JHC) + &\n                             1e-9_fp * SUM(DELTASOGSAVE(:,:,:,NOX,JHC))\n   ENDDO\n   ENDDO\n\n   ! Print diagnostic information to screen\n   IF ( Input_Opt%Verbose ) THEN\n      print*,'Global cumulative amount reacted in gas phase [Tg]'\n      JHC = 1\n      print*,'MTPA High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'MTPA Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      print*,'MTPA NO3      Rxn : ', DELTAHCSAVE(3,JHC)\n      JHC = 2\n      print*,'LIMO High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'LIMO Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      print*,'LIMO NO3      Rxn : ', DELTAHCSAVE(3,JHC)\n      JHC = 3\n      print*,'MTPO High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'MTPO Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      print*,'MTPO NO3      Rxn : ', DELTAHCSAVE(3,JHC)\n      JHC = 4\n      print*,'SESQ High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'SESQ Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      print*,'SESQ NO3      Rxn : ', DELTAHCSAVE(3,JHC)\n      JHC = 5\n      print*,'ISOP OH       Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'ISOP NO3      Rxn : ', DELTAHCSAVE(2,JHC)\n      JHC = 6\n      print*,'BENZ High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'BENZ Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      JHC = 7\n      print*,'TOLU High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'TOLU Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      JHC = 8\n      print*,'XYLE High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'XYLE Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      JHC = 11\n      print*,'NAP  High NOx Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'NAP  Low  NOx Rxn : ', DELTAHCSAVE(2,JHC)\n      JHC = 10\n      print*,'POG1 OH       Rxn : ', DELTAHCSAVE(1,JHC)\n      print*,'POG2 OH       Rxn : ', DELTAHCSAVE(2,JHC)\n\n      ! Print diagnostic info about SOA production\n      print*,'Aerosol production and evaporation (cumulative kg)'\n      JSV = 1\n      IPR = 1\n      print*,'TSOA1 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 2\n      print*,'TSOA2 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 3\n      print*,'TSOA3 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 4\n      print*,'TSOA0 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n\n      !------------------------------------------------------------------------\n      ! Prior to 7/15/19:\n      ! Remove isoprene from VBS (mps, 7/15/19)\n      !JSV = 2\n      !IPR = 1\n      !print*,'ISOA1 prod and evap: ', &\n      !   SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      !IPR = 2\n      !print*,'ISOA2 prod and evap: ', &\n      !   SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      !IPR = 3\n      !print*,'ISOA3 prod and evap: ', &\n      !   SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      !------------------------------------------------------------------------\n\n      JSV = 3\n      IPR = 1\n      print*,'ASOA1 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 2\n      print*,'ASOA2 prod and evap: ', &\n        SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 3\n      print*,'ASOA3 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 4\n      print*,'ASOAN prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n\n      JSV = 4\n      IPR = 1\n      print*,'POA1  prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 2\n      print*,'POA2  prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n\n      JSV = 5\n      IPR = 1\n      print*,'OPOA1 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n      IPR = 2\n      print*,'OPOA2 prod and evap: ', &\n         SUM(SPECSOAPROD(:,:,:,IPR,JSV)),SUM(SPECSOAEVAP(:,:,:,IPR,JSV))\n\n   ENDIF\n\n   ! Free pointer\n   Spc => NULL()\n   \n END SUBROUTINE CHECK_MB\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_no\n!\n! !DESCRIPTION: Function GET\\_NO returns NO from State\\_Chm%Species%Conc\n! (for coupled runs). (hotp 5/7/2010)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_NO( I, J, L, Input_Opt, State_Chm, State_Met ) &\n      RESULT( NO_MOLEC_CM3 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN) :: I              ! Longitude index\n   INTEGER,        INTENT(IN) :: J              ! Latitude index\n   INTEGER,        INTENT(IN) :: L              ! Altitude index\n   TYPE(OptInput), INTENT(IN) :: Input_Opt      ! Input Options object\n   TYPE(ChmState), INTENT(IN) :: State_Chm      ! Chemistry State object\n   TYPE(MetState), INTENT(IN) :: State_Met      ! Meteorology State object\n!\n! !RETURN VALUE\n!\n   REAL(fp)                   :: NO_MOLEC_CM3   ! NO conc [molec/cm3]\n!\n! !REVISION HISTORY:\n!  07 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp) :: NO_MW_kg   ! kg NO / mol\n\n   !=================================================================\n   ! GET_NO begins here!\n   !=================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !---------------------\n      ! Coupled simulation\n      !---------------------\n\n      ! NO is defined only in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get NO from State_Chm%Species%Conc [kg] and convert to [molec/cm3]\n         NO_MW_kg   = State_Chm%SpcData(id_NO)%Info%MW_g * 1.e-3_fp\n\n         NO_MOLEC_CM3 = State_Chm%Species(id_NO)%Conc(I,J,L) &\n                        * ( AVO / NO_MW_kg ) &\n                        / ( State_Met%AIRVOL(I,J,L) * 1e+6_fp )\n\n      ELSE\n\n         NO_MOLEC_CM3 = 0e+0_fp\n\n      ENDIF\n\n   ELSE\n\n      !---------------------\n      ! Invalid sim type!\n      !---------------------\n      CALL ERROR_STOP( 'Invalid Simulation Type!', &\n                       'GET_NO (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_NO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_ho2\n!\n! !DESCRIPTION: Function GET\\_HO2 returns HO2 from State\\_Chm%Species%Conc\n! (for coupled runs). Created by Havala Pye (5/7/2010).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_HO2( I, J, L, Input_Opt, State_Chm, State_Met ) &\n      RESULT( HO2_MOLEC_CM3 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN) :: I               ! Longitude index\n   INTEGER,        INTENT(IN) :: J               ! Latitude index\n   INTEGER,        INTENT(IN) :: L               ! Altitude index\n   TYPE(OptInput), INTENT(IN) :: Input_Opt       ! Input Options object\n   TYPE(ChmState), INTENT(IN) :: State_Chm       ! Chemistry State object\n   TYPE(MetState), INTENT(IN) :: State_Met       ! Meteorology State object\n!\n! !RETURN VALUE\n!\n   REAL(fp)                   :: HO2_MOLEC_CM3   ! HO2 conc [molec/cm3]\n!\n! !REVISION HISTORY:\n!  13 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp) :: HO2_MW_kg  ! kg HO2 / mol\n\n   !=================================================================\n   ! GET_HO2 begins here!\n   !=================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !---------------------\n      ! Coupled simulation\n      !---------------------\n\n      ! HO2 is defined only in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get HO2 from State_Chm%Species%Conc [kg]; convert to [molec/cm3]\n         HO2_MW_kg  = State_Chm%SpcData(id_HO2)%Info%MW_g*1.e-3_fp\n\n         HO2_MOLEC_CM3 = State_Chm%Species(id_HO2)%Conc(I,J,L) &\n                         * ( AVO / HO2_MW_kg ) &\n                         / ( State_Met%AIRVOL(I,J,L) * 1e+6_fp )\n\n      ELSE\n\n         HO2_MOLEC_CM3 = 0e+0_fp\n\n      ENDIF\n\n   ELSE\n\n      !---------------------\n      ! Invalid sim type!\n      !---------------------\n      CALL ERROR_STOP( 'Invalid Simulation Type!', &\n                       'GET_HO2 (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_HO2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_isopno3\n!\n! !DESCRIPTION: Modification of GET\\_DOH that returns the amount of isoprene\n!  [kgC] that has reacted with NO3 during the last chemistry time step.\n!  (hotp 5/22/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION GET_ISOPNO3( I, J, L, Input_Opt, State_Chm, State_Met ) &\n      RESULT( ISOPNO3 )\n!\n! !USES:\n!\n   USE ERROR_MOD,          ONLY : ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE PhysConstants,      ONLY : AVO\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n   INTEGER,        INTENT(IN) :: I           ! Longitude index\n   INTEGER,        INTENT(IN) :: J           ! Latitude index\n   INTEGER,        INTENT(IN) :: L           ! Altitude index\n   TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n   TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n   TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !RETURN VALUE\n!\n   REAL(fp)                   :: ISOPNO3     ! ISOP replaced w/ NO3 [kg C]\n!\n! !REVISION HISTORY:\n!  22 May 2010 - H.O.T. Pye - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   REAL(fp) :: ISOP_MW_kg     ! kg C ISOP      / mol C\n   REAL(fp) :: LISOPNO3_MW_kg ! kg C LISOPONO3 / mol Ckg\n      \n   !=================================================================\n   ! GET_ISOPNO3 begins here!\n   !=================================================================\n\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !--------------------\n      ! Coupled simulation\n      !--------------------\n\n      ! Test if we are in the chemistry grid\n      IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n         ! Get ISOPNO3 (ISOP list to NO3) from State_Chm%Species%Conc\n         ! [kg ISOPNO3] and convert to [kg C ISOP]\n         ISOP_MW_kg     = State_Chm%SpcData(id_ISOP)%Info%MW_g * 1.e-3_fp\n         LISOPNO3_MW_kg = State_Chm%SpcData(id_LISOPNO3)%Info%MW_g * 1.e-3_fp\n\n         ISOPNO3 = State_Chm%Species(id_LISOPNO3)%Conc(I,J,L) &\n                   * ( AVO / LISOPNO3_MW_kg ) &\n                   / ( AVO / ISOP_MW_kg     )\n\n      ELSE\n\n         ! Otherwise set ISOPNO3=0\n         ISOPNO3 = 0e+0_fp\n         \n      ENDIF\n\n   ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !--------------------\n      ! Offline simulation\n      !--------------------\n\n      ! ISOP from NO3 not is yet supported for\n      ! offline aerosol simulations, set DOH=0\n      ISOPNO3 = 0e+0_fp\n\n   ELSE\n\n      !--------------------\n      ! Invalid sim type!\n      !--------------------\n      CALL ERROR_STOP( 'Invalid simulation type!', &\n                       'GET_ISOPNO3 (\"carbon_mod.F90\")' )\n\n   ENDIF\n\n END FUNCTION GET_ISOPNO3\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: sakamoto_size\n!\n! !DESCRIPTION: Function SAKAMOTO\\_SIZE finds the peak and standard\n! deviation of a lognormal distribution parameterized to fit the number\n! size distribution of the fires in the gridbox 24 hours downwind\n! of the current fires using K. M. Sakamoto's parameterization from her\n! 2016 paper. Then uses these parameters to seperate the size distributions\n! into lognormal bins.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n FUNCTION SAKAMOTO_SIZE( State_Chm, State_Grid, State_Met, FIRE_NUM,  &\n                         OCPIBULKEMIS, BCPIBULKEMIS,       &\n                         OCPOBULKEMIS, BCPOBULKEMIS, AREA) &\n      RESULT ( VALUE )\n!\n! !USES:\n!\n   USE TOMAS_MOD,      ONLY : Xk\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE State_Met_Mod,  ONLY : MetState\n   USE TOMAS_MOD,      ONLY : AVGMASS\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(ChmState),  INTENT(IN)  :: State_Chm  ! Chemistry State object\n   TYPE(GrdState),  INTENT(IN)  :: State_Grid ! Grid State object\n   TYPE(MetState),  INTENT(IN)  :: State_Met  ! Meteorology State object\n   REAL(fp),        INTENT(IN)  :: FIRE_NUM(State_Grid%NX,State_Grid%NY)\n   REAL(fp),        INTENT(IN)  :: OCPIBULKEMIS(State_Grid%NX,State_Grid%NY) ![kgm-2s-1]\n   REAL(fp),        INTENT(IN)  :: BCPIBULKEMIS(State_Grid%NX,State_Grid%NY) ![kgm-2s-1]\n   REAL(fp),        INTENT(IN)  :: OCPOBULKEMIS(State_Grid%NX,State_Grid%NY) ![kgm-2s-1]\n   REAL(fp),        INTENT(IN)  :: BCPOBULKEMIS(State_Grid%NX,State_Grid%NY) ![kgm-2s-1]\n   REAL(fp),        INTENT(IN)  :: AREA(State_Grid%NX,State_Grid%NY) ![m2]\n!\n! !RETURN VALUES:\n!\n   REAL(fp)                     :: VALUE(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,4)\n!\n! !REVISION HISTORY:\n!  01 Jan 2017 - E. Ramnarine - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER             :: I, J, K\n   REAL(fp)            :: EMIS\n   REAL(fp)            :: W10M, PBLH\n   REAL(fp)            :: dM_dxdz\n   REAL(fp)            :: Dpm, sig\n   REAL(fp)            :: Dl, Dh, Dk\n   REAL(fp)            :: NUM_FRAC(State_Chm%nTomasBins)\n   REAL(fp)            :: MASS(State_Chm%nTomasBins)\n   REAL(fp)            :: MASS_FRAC(State_Chm%nTomasBins)\n   REAL(fp), PARAMETER :: pi=3.14159\n\n   ! conditions\n   REAL(fp), PARAMETER            :: D_0=100.0 ![nm] doing 100, 150 with sig_0=2.0\n   REAL(fp), PARAMETER            :: sig_0=2.0 !doing 1.6, 2.0 with D_0=100.0\n   REAL(fp), PARAMETER            :: time= 720.0 !1440.0 ![min] !720 is for a time sensitivity\n\n   ! constants from paper\n   REAL(fp), PARAMETER            :: A_d=84.58\n   REAL(fp), PARAMETER            :: b_d=0.4191\n   REAL(fp), PARAMETER            :: c_d=0.4870\n\n   REAL(fp), PARAMETER            :: A_sig=0.2390\n   REAL(fp), PARAMETER            :: b_sig=0.1889\n   REAL(fp), PARAMETER            :: c_sig=0.3540\n\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Kim's parameterization\n      EMIS = (1.8 * (OCPIBULKEMIS(I,J) + OCPOBULKEMIS(I,J)) + &\n              BCPIBULKEMIS(I,J) + BCPOBULKEMIS(I,J)) !total emissions [kgm-2s-1]\n\n      IF ( EMIS == 0.0 ) THEN\n         DO K = 1, State_Chm%nTomasBins\n            VALUE(I,J,K,1) = 0.0\n            VALUE(I,J,K,2) = 0.0\n            VALUE(I,J,K,3) = 0.0\n            VALUE(I,J,K,4) = 0.0\n         ENDDO\n      ELSE\n         W10M = SQRT( State_Met%U10M(I,J)**2 &\n              +       State_Met%V10M(I,J)**2 ) * 60.0 ![m/min]\n         PBLH = State_Met%PBLH(I,J) ![m]\n         !avg emission per fire [kg/min] (note 320 is from regridding 0.25x0.25 to 4x5)\n         EMIS = ( EMIS * AREA(I,J) * 60.0 ) / &\n                ( max(1.0, FIRE_NUM(I,J) * 320.0) ) !no plume mixing case\n         !EMIS = EMIS * AREA(I,J) * 60.0 !complete plume mixing case (no longer in use)\n         dM_dxdz = EMIS / ( max(W10M, 2.0) * max(PBLH, 10.0) ) ![kgm-2]\n\n         Dpm = D_0 + (A_D * (dM_dxdz)**b_D * (time)**c_D)\n         sig = sig_0 +(A_sig * dM_dxdz**b_sig * time**c_sig * (1.2-sig_0))\n         sig = max(sig, 1.2)\n\n         !Dpm = D_0 ! no coag case\n         !sig = sig_0 !no coag case\n\n         DO K = 1, State_Chm%nTomasBins\n            ! splitting into size bins (seinfeld and pandis eq 8.54)\n            !Calculate diameter of this size bin\n            Dl=1.0e+9*((6.0*Xk(K))/(1400.0*3.14))**0.3333\n            Dh=1.0e+9*((6.0*Xk(K+1))/(1400.0*3.14))**0.3333\n            Dk=sqrt(Dl*Dh)\n\n            !Calculate number fraction\n            NUM_FRAC(K) = 1.0 / ( sqrt(2.0*pi)*Dk*log(sig) ) * &\n                          exp( -( (log(Dk/Dpm))**2.0 / &\n                          (2.0 * (log(sig))**2.0) )) &\n                          * (Dh - Dl)\n            MASS(K) = NUM_FRAC(K) * AVGMASS(K)\n         ENDDO\n\n         DO K = 1, State_Chm%nTomasBins\n            !Calculate mass fraction\n            MASS_FRAC(K) = MASS(K) / SUM( MASS(:) )\n\n            VALUE(I,J,K,1) = BCPIBULKEMIS(I,J) * MASS_FRAC(K)\n            VALUE(I,J,K,2) = BCPOBULKEMIS(I,J) * MASS_FRAC(K)\n            VALUE(I,J,K,3) = 1.8 * OCPIBULKEMIS(I,J) * MASS_FRAC(K)\n            VALUE(I,J,K,4) = 1.8 * OCPOBULKEMIS(I,J) * MASS_FRAC(K)\n\n         ENDDO\n\n      ENDIF\n\n   ENDDO\n   ENDDO\n\n END FUNCTION SAKAMOTO_SIZE\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_carbon\n!\n! !DESCRIPTION: Subroutine INIT\\_CARBON initializes all module arrays.\n!  (rjp, bmy, 4/1/04, 12/19/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE INIT_CARBON( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE ERROR_MOD,          ONLY : ALLOC_ERR, ERROR_STOP\n   USE Input_Opt_Mod,      ONLY : OptInput\n   USE State_Chm_Mod,      ONLY : Ind_\n   USE State_Chm_Mod,      ONLY : ChmState\n   USE State_Diag_Mod,     ONLY : DgnState\n   USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER  :: AS, INDICES(4), YYYYMMDD, HHMMSS, N\n   REAL(fp) :: COORDS(4), TAU\n\n   !=================================================================\n   ! INIT_CARBON begins here!\n   !=================================================================\n\n   ! Assume success\n   RC = GC_SUCCESS\n\n   ! Exit immediately if this is a dry-run\n   IF ( Input_Opt%DryRun ) RETURN\n\n   ! Define species IDs\n   id_ASOG1    = IND_('ASOG1'   )\n   id_ASOG2    = IND_('ASOG2'   )\n   id_ASOG3    = IND_('ASOG3'   )\n   id_ASOA1    = IND_('ASOA1'   )\n   id_ASOA2    = IND_('ASOA2'   )\n   id_ASOA3    = IND_('ASOA3'   )\n   id_ASOAN    = IND_('ASOAN'   )\n   id_AW01     = IND_('AW01'    )\n   id_BCPI     = IND_('BCPI'    )\n   id_BCPO     = IND_('BCPO'    )\n   id_BENZ     = IND_('BENZ'    )\n   id_ECIL01   = IND_('ECIL01'  )\n   id_ECOB01   = IND_('ECOB01'  )\n   id_HO2      = IND_('HO2'     )\n   id_ISOP     = IND_('ISOP'    )\n   id_LIMO     = IND_('LIMO'    )\n   id_MTPA     = IND_('MTPA'    )\n   id_MTPO     = IND_('MTPO'    )\n   id_NAP      = IND_('NAP'     )\n   id_NK01     = IND_('NK01'    )\n   id_NH4      = IND_('NH4'     )\n   id_NO       = IND_('NO'      )\n   id_NO3      = IND_('NO3'     )\n   id_OCIL01   = IND_('OCIL01'  )\n   id_OCOB01   = IND_('OCOB01'  )\n   id_O3       = IND_('O3'      )\n   id_OH       = IND_('OH'      )\n   id_OCPO     = IND_('OCPO'    )\n   id_OCPI     = IND_('OCPI'    )\n   id_OPOA1    = IND_('OPOA1'   )\n   id_OPOG1    = IND_('OPOG1'   )\n   id_OPOA2    = IND_('OPOA2'   )\n   id_OPOG2    = IND_('OPOG2'   )\n   id_POA1     = IND_('POA1'    )\n   id_POA2     = IND_('POA2'    )\n   id_POG1     = IND_('POG1'    )\n   id_POG2     = IND_('POG2'    )\n   id_SOAP     = IND_('SOAP'    )\n   id_SOAS     = IND_('SOAS'    )\n   id_TOLU     = IND_('TOLU'    )\n   id_TSOA0    = IND_('TSOA0'   )\n   id_TSOA1    = IND_('TSOA1'   )\n   id_TSOA2    = IND_('TSOA2'   )\n   id_TSOA3    = IND_('TSOA3'   )\n   id_TSOG0    = IND_('TSOG0'   )\n   id_TSOG1    = IND_('TSOG1'   )\n   id_TSOG2    = IND_('TSOG2'   )\n   id_TSOG3    = IND_('TSOG3'   )\n   id_XYLE     = IND_('XYLE '   )\n   id_LBRO2N   = IND_('LBRO2N'  )\n   id_LBRO2H   = IND_('LBRO2H'  )\n   id_LTRO2N   = IND_('LTRO2N'  )\n   id_LTRO2H   = IND_('LTRO2H'  )\n   id_LXRO2N   = IND_('LXRO2N'  )\n   id_LXRO2H   = IND_('LXRO2H'  )\n   id_LNRO2N   = IND_('LNRO2N'  )\n   id_LNRO2H   = IND_('LNRO2H'  )\n   id_LISOPOH  = IND_('LISOPOH' )\n   id_LISOPNO3 = IND_('LISOPNO3')\n\n   ! Some parent hydrocarbons are lumped together into 1 or more\n   ! semivolatiles. Map the parent HC to lumped semivolatiles here\n   ! (hotp 5/13/10)\n   ! mono + sesq\n   IDSV(PARENTMTPA) = 1\n   IDSV(PARENTLIMO) = 1\n   IDSV(PARENTMTPO) = 1\n   IDSV(PARENTSESQ) = 1\n   ! isoprene\n   IDSV(PARENTISOP) = 2\n   ! Lumped arom/IVOC\n   IDSV(PARENTBENZ) = 3\n   IDSV(PARENTTOLU) = 3\n   IDSV(PARENTXYLE) = 3\n   IDSV(PARENTNAP ) = 3\n   ! More individuals\n   IDSV(PARENTPOA ) = 4\n   IDSV(PARENTOPOA) = 5\n\n   ! Define number of products per semivolatile (hotp 5/14/10)\n   NPROD(IDSV(PARENTMTPA)) = 4 ! 3 add C*=0.1 product (hotp 6/12/10)\n   NPROD(IDSV(PARENTISOP)) = 3\n   NPROD(IDSV(PARENTBENZ)) = 4\n   NPROD(IDSV(PARENTPOA )) = 2\n   NPROD(IDSV(PARENTOPOA)) = 2\n   ! Check to make sure NPROD doesn't exceed max\n   IF ( MAXVAL(NPROD(:)) > MPROD ) THEN\n      CALL ERROR_STOP('Too many PRODs per SV','carbon_mod.F90')\n   ENDIF\n\n   ! Define number of NOx/Ox conditions per semivolatile\n   ! (hotp 5/14/10)\n   NNOX(IDSV(PARENTMTPA)) = 3 ! high NOx, low NOx, NO3\n   NNOX(IDSV(PARENTISOP)) = 2 ! low  NOx, NO3\n   NNOX(IDSV(PARENTBENZ)) = 2 ! high NOx, low NOx\n   NNOX(IDSV(PARENTPOA )) = 1 ! just OH\n   NNOX(IDSV(PARENTOPOA)) = 1 ! just OH\n   ! Check to make sure NNOx doesn't exceed max\n   IF ( MAXVAL(NNOX(:)) > MNOX ) THEN\n      CALL ERROR_STOP('Too many NOx levels','carbon_mod.F90')\n   ENDIF\n\n   ALLOCATE( BCCONV(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCCONV' )\n   BCCONV = 0e+0_fp\n\n   ALLOCATE( OCCONV(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCCONV' )\n   OCCONV = 0e+0_fp\n\n   ! semivolpoa2: for POA emissions (hotp 2/27/09)\n   ! Store POG1 and POG2 separately (mps, 1/14/16)\n   ALLOCATE( POAEMISS(State_Grid%NX,State_Grid%NY,State_Grid%NZ,2),STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'POAEMISS' )\n   POAEMISS = 0e+0_fp\n\n#ifdef APM\n   ALLOCATE( BCCONVNEW(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCCONVNEW' )\n   BCCONVNEW = 0e+0_fp\n   ALLOCATE( OCCONVNEW(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCCONVNEW' )\n   OCCONVNEW = 0e+0_fp\n#endif\n\n   ! JKODROS\n#ifdef TOMAS\n   !SFARINA the next six are introduced with the idea that\n   ! emisscarbontomas needs to be restructured and these\n   ! data structures eliminated\n   ALLOCATE( BCFF(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCFF' )\n   BCFF = 0e+0_fp\n\n   ALLOCATE( OCFF(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCFF' )\n   OCFF = 0e+0_fp\n\n   ALLOCATE( BCBF(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCBF' )\n   BCBF = 0e+0_fp\n\n   ALLOCATE( OCBF(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCBF' )\n   OCBF = 0e+0_fp\n\n   ALLOCATE( BCBB(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCBB' )\n   BCBB = 0e+0_fp\n\n   ALLOCATE( OCBB(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins,2), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCBB' )\n   OCBB = 0e+0_fp\n\n   ! BC\n   ALLOCATE( BCPI_ANTH_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCPI_ANTH_BULK' )\n   BCPI_ANTH_BULK = 0e+0_fp\n\n   ALLOCATE( BCPO_ANTH_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCPO_ANTH_BULK' )\n   BCPO_ANTH_BULK = 0e+0_fp\n\n   ALLOCATE( BCPI_BIOB_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCPI_BIOB_BULK' )\n   BCPI_BIOB_BULK = 0e+0_fp\n\n   ALLOCATE( BCPO_BIOB_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'BCPO_BIOB_BULK' )\n   BCPO_BIOB_BULK = 0e+0_fp\n\n   ! OC ----------------\n   ALLOCATE( OCPI_ANTH_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCPI_ANTH_BULK' )\n   OCPI_ANTH_BULK = 0e+0_fp\n\n   ALLOCATE( OCPO_ANTH_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCPO_ANTH_BULK' )\n   OCPO_ANTH_BULK = 0e+0_fp\n\n   ALLOCATE( OCPI_BIOB_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCPI_BIOB_BULK' )\n   OCPI_BIOB_BULK = 0e+0_fp\n\n   ALLOCATE( OCPO_BIOB_BULK(State_Grid%NX,State_Grid%NY), STAT=AS)\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCPO_BIOB_BULK' )\n   OCPO_BIOB_BULK = 0e+0_fp\n\n   !biogenic\n   ALLOCATE( TERP_ORGC(State_Grid%NX,State_Grid%NY), STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'TERP_ORGC' )\n   TERP_ORGC = 0e+0_fp\n\n   ! CO anth for scaling xtraSOA\n   ALLOCATE( CO_ANTH(State_Grid%NX,State_Grid%NY), STAT=AS )\n   IF ( AS /= 0 ) CALL ALLOC_ERR( 'CO_ANTH' )\n   CO_ANTH = 0e+0_fp\n#endif\n\n   !=================================================================\n   ! SOA arrays only have to be allocated if LSOA = T\n   !=================================================================\n   IF ( Input_Opt%LSOA ) THEN\n\n      ALLOCATE( TCOSZ(State_Grid%NX,State_Grid%NY), STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'TCOSZ' )\n      TCOSZ = 0e+0_fp\n\n      ! diagnostic  (dkh, 11/11/06)\n      ! increase last dimension by 1 to add NAP (hotp 7/22/09)\n      ALLOCATE( GLOB_DARO2(State_Grid%NX,State_Grid%NY,State_Grid%NZ,2,4), &\n                STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'GLOB_DARO2' )\n      GLOB_DARO2 = 0e+0_fp\n\n      ! semivolpoa4: diagnostic (hotp 3/27/09)\n      ALLOCATE( GLOB_POGRXN(State_Grid%NX,State_Grid%NY,State_Grid%NZ,2 ), &\n                STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'GLOB_POGRXN' )\n      GLOB_POGRXN = 0e+0_fp\n\n      ! Initial OA+OG diagnostic (hotp 5/17/10)\n      ALLOCATE( OAGINITSAVE(State_Grid%NX,State_Grid%NY,State_Grid%NZ,MPROD,MSV), &\n                STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'OAGINITSAVE' )\n      OAGINITSAVE = 0e+0_fp\n\n      ! Change in OA+OG diagnostic (hotp 5/17/10)\n      ALLOCATE( DELTASOGSAVE(State_Grid%NX,State_Grid%NY,State_Grid%NZ,MNOX,MHC), &\n                STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'DELTASOGSAVE' )\n      DELTASOGSAVE = 0e+0_fp\n\n      ! Diagnostic for NO branching ratio (hotp 5/24/10)\n      ALLOCATE( BETANOSAVE(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'BETANOSAVE' )\n      BETANOSAVE = 0e+0_fp\n\n      ! Diagnostic (hotp 6/5/10)\n      ALLOCATE( SPECSOAPROD(State_Grid%NX,State_Grid%NY,State_Grid%NZ,MPROD,MSV), &\n                STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'SPECSOAPROD' )\n      SPECSOAPROD = 0e+0_fp\n\n      ! Diagnostic (hotp 6/5/10)\n      ALLOCATE( SPECSOAEVAP(State_Grid%NX,State_Grid%NY,State_Grid%NZ,MPROD,MSV), &\n                STAT=AS )\n      IF ( AS /= 0 ) CALL ALLOC_ERR( 'SPECSOAEVAP' )\n      SPECSOAEVAP = 0e+0_fp\n\n\n      IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n         ! Offline global OH\n         ALLOCATE( OFFLINE_OH(State_Grid%NX,State_Grid%NY,State_Grid%NZ), &\n                   STAT=AS)\n         IF ( AS /= 0 ) CALL ALLOC_ERR( 'OFFLINE_OH' )\n         OFFLINE_OH = 0e+0_fp\n         \n         ! Offline global O3\n         ALLOCATE( OFFLINE_O3(State_Grid%NX,State_Grid%NY,State_Grid%NZ), &\n                   STAT=AS)\n         IF ( AS /= 0 ) CALL ALLOC_ERR( 'OFFLINE_O3' )\n         OFFLINE_O3 = 0e+0_fp\n         \n         ! Offline global NO3\n         ALLOCATE( OFFLINE_NO3(State_Grid%NX,State_Grid%NY,State_Grid%NZ), &\n                   STAT=AS)\n         IF ( AS /= 0 ) CALL ALLOC_ERR( 'OFFLINE_NO3' )\n         OFFLINE_NO3 = 0e+0_fp\n      ENDIF\n\n   ENDIF\n\n END SUBROUTINE INIT_CARBON\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_carbon\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_CARBON deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CLEANUP_CARBON()\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n   !=================================================================\n   ! CLEANUP_CARBON begins here!\n   !=================================================================\n   IF ( ALLOCATED( BCCONV        ) ) DEALLOCATE( BCCONV        )\n   IF ( ALLOCATED( OCCONV        ) ) DEALLOCATE( OCCONV        )\n   IF ( ALLOCATED( TCOSZ         ) ) DEALLOCATE( TCOSZ         )\n   IF ( ALLOCATED( GLOB_DARO2    ) ) DEALLOCATE( GLOB_DARO2    )\n   IF ( ALLOCATED( POAEMISS      ) ) DEALLOCATE( POAEMISS      )\n   IF ( ALLOCATED( GLOB_POGRXN   ) ) DEALLOCATE( GLOB_POGRXN   )\n   IF ( ALLOCATED( OAGINITSAVE   ) ) DEALLOCATE( OAGINITSAVE   )\n   IF ( ALLOCATED( DELTASOGSAVE  ) ) DEALLOCATE( DELTASOGSAVE  )\n   IF ( ALLOCATED( BETANOSAVE    ) ) DEALLOCATE( BETANOSAVE    )\n   IF ( ALLOCATED( SPECSOAPROD   ) ) DEALLOCATE( SPECSOAPROD   )\n   IF ( ALLOCATED( SPECSOAEVAP   ) ) DEALLOCATE( SPECSOAEVAP   )\n   IF ( ALLOCATED( OFFLINE_OH    ) ) DEALLOCATE( OFFLINE_OH    )\n   IF ( ALLOCATED( OFFLINE_O3    ) ) DEALLOCATE( OFFLINE_O3    )\n   IF ( ALLOCATED( OFFLINE_NO3   ) ) DEALLOCATE( OFFLINE_NO3   )\n#ifdef APM\n   IF ( ALLOCATED( BCCONVNEW     ) ) DEALLOCATE( BCCONVNEW     )\n   IF ( ALLOCATED( OCCONVNEW     ) ) DEALLOCATE( OCCONVNEW     )\n#endif\n#ifdef TOMAS\n   IF ( ALLOCATED( BCFF           )) DEALLOCATE( BCFF          )\n   IF ( ALLOCATED( OCFF           )) DEALLOCATE( OCFF          )\n   IF ( ALLOCATED( BCBF           )) DEALLOCATE( BCBF          )\n   IF ( ALLOCATED( OCBF           )) DEALLOCATE( OCBF          )\n   IF ( ALLOCATED( BCBB           )) DEALLOCATE( BCBB          )\n   IF ( ALLOCATED( OCBB           )) DEALLOCATE( OCBB          )\n   IF ( ALLOCATED( BCPI_ANTH_BULK )) DEALLOCATE( BCPI_ANTH_BULK)\n   IF ( ALLOCATED( BCPO_ANTH_BULK )) DEALLOCATE( BCPO_ANTH_BULK)\n   IF ( ALLOCATED( BCPI_BIOB_BULK )) DEALLOCATE( BCPI_BIOB_BULK)\n   IF ( ALLOCATED( BCPO_BIOB_BULK )) DEALLOCATE( BCPO_BIOB_BULK)\n   IF ( ALLOCATED( OCPI_ANTH_BULK )) DEALLOCATE( OCPI_ANTH_BULK)\n   IF ( ALLOCATED( OCPO_ANTH_BULK )) DEALLOCATE( OCPO_ANTH_BULK)\n   IF ( ALLOCATED( OCPI_BIOB_BULK )) DEALLOCATE( OCPI_BIOB_BULK)\n   IF ( ALLOCATED( OCPO_BIOB_BULK )) DEALLOCATE( OCPO_BIOB_BULK)\n   IF ( ALLOCATED( TERP_ORGC      )) DEALLOCATE( TERP_ORGC     )\n   IF ( ALLOCATED( CO_ANTH        )) DEALLOCATE( CO_ANTH       )\n#endif\n\n END SUBROUTINE CLEANUP_CARBON\n!EOC\n#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_bcponew\n!\n! !DESCRIPTION: Subroutine CHEM\\_BCPONEW converts hydrophobic BC to hydrophilic\n!  BC and calculates the dry deposition of hydrophobic BC. Modified for\n!  APM simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_BCPONEW( Input_Opt, State_Grid, TC, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Grid_Mod, ONLY : GrdState\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt          ! Input Options\n   TYPE(GrdState), INTENT(IN)    :: State_grid         ! Grid State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   ! H-phobic BC [kg]\n   REAL(fp),       INTENT(INOUT) :: TC(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC                 ! Success?\n!\n! !REVISION HISTORY:\n!  16 Feb 2011 - R. Yantosca - Initial version, from G. Luo\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   LOGICAL             :: LNLPBL\n   INTEGER             :: I,       J,   L,   N_TRACERS\n   REAL(fp)            :: DTCHEM, KBC,  FREQ\n   REAL(fp)            :: TC0,    CNEW, RKT, BL_FRAC\n!\n! !DEFINED PARAMETERS:\n!\n   REAL(fp), PARAMETER :: BC_LIFE = 1.15D0\n\n   !=================================================================\n   ! CHEM_BCPONEW begins here!\n   !=================================================================\n\n   ! Return if BCPO isn't defined\n   IF ( id_BCPO == 0 ) RETURN\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Initialize\n   KBC       = 1.0e+0_fp / ( 86400e+0_fp * BC_LIFE )\n   DTCHEM    = GET_TS_CHEM()\n\n   ! Zero BCPO -> BCPI conversion array\n   BCCONVNEW  = 0e+0_fp\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, TC0, FREQ, BL_FRAC, RKT, CNEW ) &\n   !$OMP SCHEDULE( DYNAMIC )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial BC mass [kg]\n      TC0  = TC(I,J,L)\n\n      ! Zero drydep freq\n      FREQ = 0e+0_fp\n\n      ! Amount of BCPO left after chemistry and drydep [kg]\n      RKT  = ( KBC + FREQ ) * DTCHEM\n      CNEW = TC0 * EXP( -RKT )\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Amount of BCPO converted to BCPI [kg/timestep]\n      BCCONVNEW(I,J,L) = ( TC0 - CNEW ) * KBC / ( KBC + FREQ )\n\n      ! Store new concentration back into tracer array\n      TC(I,J,L) = CNEW\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n END SUBROUTINE CHEM_BCPONEW\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_bcpinew\n!\n! !DESCRIPTION: Subroutine CHEM\\_BCPINEW calculates dry deposition of\n!  hydrophilic BC. Modified for APM simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_BCPINEW( Input_Opt, State_Grid, TC, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Grid_Mod, ONLY : GrdState\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt         ! Input Options\n   TYPE(GrdState), INTENT(IN)    :: State_Grid        ! Grid State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   ! H-philic BC [kg]\n   REAL(fp),       INTENT(INOUT) :: TC(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC               ! Success?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  16 Feb 2011 - R. Yantosca - Initial version, from G. Luo\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   LOGICAL  :: LNLPBL\n   INTEGER  :: I,      J,      L,       N_TRACERS\n   REAL(fp) :: DTCHEM, BL_FRAC\n   REAL(fp) :: TC0,    CNEW,   CCV,     FREQ\n\n   !=================================================================\n   ! CHEM_BCPINEW begins here!\n   !=================================================================\n\n   ! Return if BCPI isn't defined\n   IF ( id_BCPI == 0 ) RETURN\n\n   ! Assume success\n   RC     = GC_SUCCESS\n\n   ! Chemistry timestep [s]\n   DTCHEM = GET_TS_CHEM()\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, TC0, CCV, FREQ, BL_FRAC, CNEW ) &\n   !$OMP SCHEDULE( DYNAMIC )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial H-philic BC [kg]\n      TC0 = TC(I,J,L)\n\n      ! H-philic BC that used to be H-phobic BC [kg]\n      CCV = BCCONVNEW(I,J,L)\n\n      ! Otherwise, omit the exponential to save on clock cycles\n      CNEW = TC0 + CCV\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Save new concentration of H-philic IC in tracer array\n      TC(I,J,L) = CNEW\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Zero BCPO -> BCPI conversion array\n   BCCONVNEW = 0e+0_fp\n\n END SUBROUTINE CHEM_BCPINEW\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_ocponew\n!\n! !DESCRIPTION: Subroutine CHEM\\_OCPONEW converts hydrophobic OC to hydrophilic\n!  OC and calculates the dry deposition of hydrophobic OC. Modified for APM\n!  simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_OCPONEW( Input_Opt, State_Grid, TC, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Grid_Mod, ONLY : GrdState\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt          ! Input Options\n   TYPE(GrdState), INTENT(IN)    :: State_Grid         ! Grid State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   ! H-phobic OC [kg]\n   REAL(fp),       INTENT(INOUT) :: TC(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC                 ! Success?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  16 Feb 2011 - R. Yantosca - Initial version, from G. Luo\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   LOGICAL             :: LNLPBL\n   INTEGER             :: I,      J,    L,      N_TRACERS\n   REAL(fp)            :: DTCHEM, KOC,  BL_FRAC\n   REAL(fp)            :: TC0,    FREQ, CNEW,   RKT\n!\n! !DEFINED PARAMETERS:\n!\n   REAL(fp), PARAMETER :: OC_LIFE = 1.15e+0_fp\n\n   !=================================================================\n   ! CHEM_OCPONEW begins here!\n   !=================================================================\n\n   ! Return if OCPO isn't defined\n   IF ( MAX(id_OCPO,id_POA1) == 0 ) RETURN\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Initialize\n   KOC       = 1.0e+0_fp / ( 86400e+0_fp * OC_LIFE )\n   DTCHEM    = GET_TS_CHEM()\n\n   ! Zero OCPO -> OCPI conversion array\n   OCCONVNEW = 0e+0_fp\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, TC0, FREQ, BL_FRAC, RKT, CNEW ) &\n   !$OMP SCHEDULE( DYNAMIC )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial OC [kg]\n      TC0  = TC(I,J,L)\n\n      ! Zero drydep freq\n      FREQ = 0e+0_fp\n\n      ! Amount of OCPO left after chemistry and drydep [kg]\n      RKT  = ( KOC + FREQ ) * DTCHEM\n      CNEW = TC0 * EXP( -RKT )\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Amount of OCPO converted to OCPI [kg/timestep]\n      OCCONVNEW(I,J,L) = ( TC0 - CNEW ) * KOC / ( KOC + FREQ )\n\n      ! Store modified OC concentration back in tracer array\n      TC(I,J,L) = CNEW\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n END SUBROUTINE CHEM_OCPONEW\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_ocpinew\n!\n! !DESCRIPTION: Subroutine CHEM\\_OCPINEW calculates dry deposition of\n!  hydrophilic OC. Modified for APM simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE CHEM_OCPINEW( Input_Opt, State_Grid, TC, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Grid_Mod, ONLY : GrdState\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt          ! Input Options\n   TYPE(GrdState), INTENT(IN)    :: State_Grid         ! Grid State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   ! H-philic OC [kg]\n   REAL(fp),       INTENT(INOUT) :: TC(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC                 ! Success?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  16 Feb 2011 - R. Yantosca - Initial version, from G. Luo\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   LOGICAL  :: LNLPBL\n   INTEGER  :: I,      J,      L,   N_TRACERS\n   REAL(fp) :: DTCHEM, BL_FRAC\n   REAL(fp) :: TC0,    CNEW,   CCV, FREQ\n\n   !=================================================================\n   ! CHEM_OCPINEW begins here!\n   !=================================================================\n\n   ! Return if OCPI isn't defined\n   IF ( MAX(id_OCPI,id_POA1) == 0 ) RETURN\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Chemistry timestep [s]\n   DTCHEM = GET_TS_CHEM()\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, TC0, CCV, BL_FRAC, FREQ, CNEW ) &\n   !$OMP SCHEDULE( DYNAMIC )\n   DO L = 1, State_Grid%NZ\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Initial H-philic OC [kg]\n      TC0 = TC(I,J,L)\n\n      ! H-philic OC that used to be H-phobic OC [kg]\n      CCV = OCCONVNEW(I,J,L)\n\n      CNEW = TC0 + CCV\n\n      ! Prevent underflow condition\n      IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n      ! Store modified concentration back in tracer array [kg]\n      TC(I,J,L) = CNEW\n\n   ENDDO\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Zero OCPO -> OCPI conversion array\n   OCCONVNEW = 0e+0_fp\n\n END SUBROUTINE CHEM_OCPINEW\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: bcdry_settlingbin\n!\n! !DESCRIPTION: Subroutine DRY\\_SETTLINGBIN computes the dry settling of\n!  aerosol tracers. Modified for APM simulation. (G. Luo)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE BCDRY_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                               State_Grid, State_Met, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE Species_Mod,    ONLY : SpcConc\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Met_Mod,  ONLY : MetState\n   USE PRESSURE_MOD,   ONLY : GET_PCENTER\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE APM_INIT_MOD,   ONLY : NCTBC,NBCOC\n   USE APM_INIT_MOD,   ONLY : RBCOC, DENBC\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  16 Feb 2011 - R. Yantosca - Initial version, from G. Luo\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Local variables\n   INTEGER           :: I, J, L, N, K\n   INTEGER           :: IDTEMP\n   REAL(fp)          :: DT_SETTL, DELZ,  DELZ1\n   REAL(fp)          :: REFF,     DEN,   CONST\n   REAL(fp)          :: NUM,      LAMDA, FLUX\n   REAL(fp)          :: AREA_CM2, TC0(State_Grid%NZ)\n   REAL(fp)          :: TOT1,     TOT2\n\n   ! Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n   REAL(fp)          :: P\n\n   ! Diameter of aerosol [um]\n   REAL(fp)          :: Dp\n   \n   ! Pressure * DP\n   REAL(fp)          :: PDp\n\n   ! Temperature (K)\n   REAL(fp)          :: TEMP\n\n   ! Slip correction factor\n   REAL(fp)          :: Slip\n\n   ! Viscosity of air (Pa s)\n   REAL(fp)          :: Visc\n\n   ! Settling velocity of particle (m/s)\n   REAL(fp)          :: VTS(State_Grid%NZ)\n   REAL(fp)          :: MASS(State_Grid%NZ)\n   REAL(fp)          :: OLD(State_Grid%NZ,NCTBC)\n\n   ! Make a pointer to the tracer array\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! DRY_SETTLINGBIN begins here!\n   !=================================================================\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Point to chemical species vector containing concentrations\n   Spc => State_Chm%species\n\n   ! Aerosol settling timestep [s]\n   DT_SETTL = GET_TS_CHEM()\n\n   IDTEMP = APMIDS%id_BCBIN1+NBCOC-1\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, N, K, DEN, REFF, DP )       &\n   !$OMP PRIVATE( CONST, VTS, TEMP, P, PDP, SLIP )     &\n   !$OMP PRIVATE( MASS, OLD, VISC, TC0, DELZ, DELZ1  ) &\n   !$OMP SCHEDULE( DYNAMIC )\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Zero private loop variables\n      CONST = 0.0_fp\n      DELZ  = 0.0_fp\n      DELZ1 = 0.0_fp\n      DEN   = 0.0_fp\n      DP    = 0.0_fp\n      MASS  = 0.0_fp\n      OLD   = 0.0_fp\n      P     = 0.0_fp\n      PDP   = 0.0_fp\n      REFF  = 0.0_fp\n      SLIP  = 0.0_fp\n      TEMP  = 0.0_fp\n      TC0   = 0.0_fp\n      VISC  = 0.0_fp\n      VTS   = 0.0_fp\n\n      DO L = 1, State_Grid%NZ\n         DO N = APMIDS%id_BCBIN1, IDTEMP\n            MASS(L) = Spc(N)%Conc(I,J,L)\n         ENDDO\n         DO K = 1, NCTBC\n            OLD(L,K) = Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L)\n            Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L) = 0.e+0_fp\n         ENDDO\n      ENDDO\n\n      ! Loop over aerosol bins\n      DO N = 1, NBCOC\n\n         DO L = 1, State_Grid%NZ\n\n            TC0(L) = Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L)\n\n            IF(TC0(L)>1.e-30_fp)THEN\n               ! Initialize\n               DEN   = DENBC\n               REFF  = RBCOC(N)\n               DP    = 2e+0_fp * REFF * 1.e+6_fp ! Dp [um] = particle diameter\n               CONST = 2e+0_fp * DEN * REFF**2 * G0 / 9e+0_fp\n\n               ! Get P [kPa], T [K], and P*DP\n               P    = GET_PCENTER(I,J,L) * 0.1e+0_fp\n               TEMP = State_Met%T(I,J,L)\n               PDP  = P * DP\n\n               ! Slip correction factor as function of (P*dp)\n               SLIP = 1e+0_fp + ( 15.60e0 + 7.0e0 * EXP(-0.059e0*PDP) ) / PDP\n\n               ! Viscosity [Pa s] of air as a function of temp (K)\n               VISC = 1.458e-6 * (TEMP)**(1.5e0) / ( TEMP + 110.4e0 )\n\n               ! Settling velocity [m/s]\n               VTS(L) = CONST * SLIP / VISC\n            ELSE\n               VTS(L) = 0.e+0_fp\n            ENDIF\n\n         ENDDO\n\n         ! Method is to solve bidiagonal matrix\n         ! which is implicit and first order accurate in Z\n         L    = State_Grid%NZ\n         IF(MASS(L)>1.e-30)THEN\n            DELZ = State_Met%BXHEIGHT(I,J,L)\n\n            Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) = &\n               Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) / &\n               ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n\n            DO K = 1, NCTBC\n               Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L) = &\n                  Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L)+ &\n                  OLD(L,K)*TC0(L)/MASS(L) / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n            ENDDO\n         ENDIF\n\n         DO L = State_Grid%NZ-1, 1, -1\n            IF((MASS(L)*MASS(L+1))>1.e-30)THEN\n               DELZ  = State_Met%BXHEIGHT(I,J,L)\n               DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n               Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                  * (Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) &\n                  + DT_SETTL * VTS(L+1) / DELZ1 &\n                  * TC0(L+1) )\n\n               DO K = 1, NCTBC\n                  Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L)+ &\n                     1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * (OLD(L,K)*TC0(L)/MASS(L) &\n                     + DT_SETTL * VTS(L+1) / DELZ1 &\n                     * OLD(L+1,K)*TC0(L+1)/MASS(L+1) )\n               ENDDO\n\n            ELSE IF(MASS(L)>1.e-30)THEN\n               DELZ  = State_Met%BXHEIGHT(I,J,L)\n               DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n               Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                  * (Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) &\n                  + DT_SETTL * VTS(L+1) / DELZ1 &\n                  * TC0(L+1) )\n\n               DO K = 1, NCTBC\n                  Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L)+ &\n                     1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * OLD(L,K)*TC0(L)/MASS(L)\n               ENDDO\n\n            ELSE IF(MASS(L+1)>1.e-30)THEN\n               DELZ  = State_Met%BXHEIGHT(I,J,L)\n               DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n               Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                  * (Spc(APMIDS%id_BCBIN1+N-1)%Conc(I,J,L) &\n                  + DT_SETTL * VTS(L+1) / DELZ1 &\n                  * TC0(L+1) )\n\n               DO K = 1, NCTBC\n                  Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L)+ &\n                     1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * DT_SETTL * VTS(L+1) / DELZ1 &\n                     * OLD(L+1,K)*TC0(L+1)/MASS(L+1)\n               ENDDO\n            ENDIF\n\n         ENDDO\n\n      ENDDO\n\n      DO L = 1, State_Grid%NZ\n         DO K = 1, NCTBC\n            Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L) = &\n               MAX(1.d-30,Spc(APMIDS%id_CTBC+K-1)%Conc(I,J,L))\n         ENDDO\n      ENDDO\n\n   ENDDO\n   ENDDO\n   !$OMP END PARALLEL DO\n\n   ! Clear the pointer\n   NULLIFY( Spc )\n\n END SUBROUTINE BCDRY_SETTLINGBIN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ocdry_settlingbin\n!\n! !DESCRIPTION: Subroutine DRY\\_SETTLINGBIN computes the dry settling of\n!  aerosol tracers. Modified for APM simulation. (G. Luo)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE OCDRY_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                               State_Grid, State_Met, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE Species_Mod,    ONLY : SpcConc\n   USE State_Chm_Mod,  ONLY : ChmState\n   USE State_Grid_Mod, ONLY : GrdState\n   USE State_Diag_Mod, ONLY : DgnState\n   USE State_Met_Mod,  ONLY : MetState\n   USE PRESSURE_MOD,   ONLY : GET_PCENTER\n   USE TIME_MOD,       ONLY : GET_TS_CHEM\n   USE APM_INIT_MOD,   ONLY : APMIDS\n   USE APM_INIT_MOD,   ONLY : NCTOC,NBCOC\n   USE APM_INIT_MOD,   ONLY : RBCOC, DENOC\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n   TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n   TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  16 Feb 2011 - R. Yantosca - Initial version, from G. Luo\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Local variables\n   INTEGER           :: I, J, L, N, K\n   INTEGER           :: IDTEMP\n   REAL(fp)          :: DT_SETTL, DELZ,  DELZ1\n   REAL(fp)          :: REFF,     DEN,   CONST\n   REAL(fp)          :: NUM,      LAMDA, FLUX\n   REAL(fp)          :: AREA_CM2, TC0(State_Grid%NZ)\n   REAL(fp)          :: TOT1,     TOT2\n\n   ! Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n   REAL(fp)          :: P\n\n   ! Diameter of aerosol [um]\n   REAL(fp)          :: Dp\n\n   ! Pressure * DP\n   REAL(fp)          :: PDp\n\n   ! Temperature (K)\n   REAL(fp)          :: TEMP\n\n   ! Slip correction factor\n   REAL(fp)          :: Slip\n\n   ! Viscosity of air (Pa s)\n   REAL(fp)          :: Visc\n\n   ! Settling velocity of particle (m/s)\n   REAL(fp)          :: VTS(State_Grid%NZ)\n   REAL(fp)          :: MASS(State_Grid%NZ)\n   REAL(fp)          :: OLD(State_Grid%NZ,NCTOC)\n\n   ! Make a pointer to the tracer array\n   TYPE(SpcConc), POINTER :: Spc(:)\n\n   !=================================================================\n   ! DRY_SETTLINGBIN begins here!\n   !=================================================================\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Point to chemical species vector containing concentrations\n   Spc => State_Chm%Species\n\n   ! Aerosol settling timestep [s]\n   DT_SETTL = GET_TS_CHEM()\n\n   IDTEMP = APMIDS%id_OCBIN1+NBCOC-1\n\n   !$OMP PARALLEL DO       &\n   !$OMP DEFAULT( SHARED ) &\n   !$OMP PRIVATE( I, J, L, N, K, DEN, REFF, DP )       &\n   !$OMP PRIVATE( CONST, VTS, TEMP, P, PDP, SLIP )     &\n   !$OMP PRIVATE( MASS, OLD, VISC, TC0, DELZ, DELZ1  ) &\n   !$OMP SCHEDULE( DYNAMIC )\n   DO J = 1, State_Grid%NY\n   DO I = 1, State_Grid%NX\n\n      ! Zero private loop variables\n      CONST = 0.0_fp\n      DELZ  = 0.0_fp\n      DELZ1 = 0.0_fp\n      DEN   = 0.0_fp\n      DP    = 0.0_fp\n      MASS  = 0.0_fp\n      OLD   = 0.0_fp\n      P     = 0.0_fp\n      PDP   = 0.0_fp\n      REFF  = 0.0_fp\n      SLIP  = 0.0_fp\n      TEMP  = 0.0_fp\n      TC0   = 0.0_fp\n      VISC  = 0.0_fp\n      VTS   = 0.0_fp\n\n      DO L = 1, State_Grid%NZ\n         DO N = APMIDS%id_OCBIN1, IDTEMP\n            MASS(L) = MASS(L) + Spc(N)%Conc(I,J,L)\n         ENDDO\n         DO K = 1, NCTOC\n            OLD(L,K) = Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L)\n            Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L) = 0.e+0_fp\n         ENDDO\n      ENDDO\n\n      ! Loop over aerosol bins\n      DO N = 1, NBCOC\n\n         DO L = 1, State_Grid%NZ\n\n            TC0(L) = Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L)\n\n            IF(TC0(L)>1.e-30)THEN\n               ! Initialize\n               DEN   = DENOC\n               REFF  = RBCOC(N)\n               DP    = 2e+0_fp * REFF * 1.e+6_fp ! Dp [um] = particle diameter\n               CONST = 2e+0_fp * DEN * REFF**2 * G0 / 9e+0_fp\n\n               ! Get P [kPa], T [K], and P*DP\n               P    = GET_PCENTER(I,J,L) * 0.1e+0_fp\n               TEMP = State_Met%T(I,J,L)\n               PDP  = P * DP\n\n               ! Slip correction factor as function of (P*dp)\n               SLIP = 1e+0_fp + ( 15.60e0 + 7.0e0 * EXP(-0.059e0*PDP) ) / PDP\n\n               ! Viscosity [Pa s] of air as a function of temp (K)\n               VISC = 1.458e-6 * (TEMP)**(1.5e0) / ( TEMP + 110.4e0 )\n\n               ! Settling velocity [m/s]\n               VTS(L) = CONST * SLIP / VISC\n            ELSE\n               VTS(L) = 0.e+0_fp\n            ENDIF\n\n         ENDDO ! L\n\n         ! Method is to solve bidiagonal matrix\n         ! which is implicit and first order accurate in Z\n         L    = State_Grid%NZ\n         IF(MASS(L)>1.e-30)THEN\n            DELZ = State_Met%BXHEIGHT(I,J,L)\n\n            Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) = &\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) / &\n               ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n\n            DO K = 1, NCTOC\n               Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L) = &\n                  Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L)+ &\n                  OLD(L,K)*TC0(L)/MASS(L) / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n            ENDDO\n         ENDIF\n\n         DO L = State_Grid%NZ-1, 1, -1\n            IF((MASS(L)*MASS(L+1))>1.e-30)THEN\n               DELZ  = State_Met%BXHEIGHT(I,J,L)\n               DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                  * (Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) &\n                  + DT_SETTL * VTS(L+1) / DELZ1 &\n                  * TC0(L+1) )\n\n               DO K = 1, NCTOC\n                  Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L)+ &\n                     1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * (OLD(L,K)*TC0(L)/MASS(L) &\n                     + DT_SETTL * VTS(L+1) / DELZ1 &\n                     * OLD(L+1,K)*TC0(L+1)/MASS(L+1) )\n               ENDDO\n\n            ELSE IF(MASS(L)>1.e-30)THEN\n               DELZ  = State_Met%BXHEIGHT(I,J,L)\n               DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                  * (Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) &\n                  + DT_SETTL * VTS(L+1) / DELZ1 &\n                  * TC0(L+1) )\n\n               DO K = 1, NCTOC\n                  Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L)+ &\n                     1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * OLD(L,K)*TC0(L)/MASS(L)\n               ENDDO\n\n            ELSE IF(MASS(L+1)>1.e-30)THEN\n               DELZ  = State_Met%BXHEIGHT(I,J,L)\n               DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n               Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                  * (Spc(APMIDS%id_OCBIN1+N-1)%Conc(I,J,L) &\n                  + DT_SETTL * VTS(L+1) / DELZ1 &\n                  * TC0(L+1) )\n\n               DO K = 1, NCTOC\n                  Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L)+ &\n                     1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * DT_SETTL * VTS(L+1) / DELZ1 &\n                     * OLD(L+1,K)*TC0(L+1)/MASS(L+1)\n               ENDDO\n            ENDIF\n\n         ENDDO ! L\n\n      ENDDO ! N\n\n      DO L = 1, State_Grid%NZ\n         DO K = 1, NCTOC\n            Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L) = &\n               MAX(1.d-30,Spc(APMIDS%id_CTOC+K-1)%Conc(I,J,L))\n         ENDDO\n      ENDDO\n\n   ENDDO ! I\n   ENDDO ! J\n   !$OMP END PARALLEL DO\n\n   ! Clear the pointer\n   NULLIFY( Spc )\n\n END SUBROUTINE OCDRY_SETTLINGBIN\n#endif\n!EOC\nEND MODULE CARBON_MOD\n"
  },
  {
    "path": "GeosCore/chemistry_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: chemistry_mod.F90\n!\n! !DESCRIPTION: Module CHEMISTRY\\_MOD is used to call the proper chemistry\n!  subroutine for the various GEOS-Chem simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Chemistry_Mod\n!\n! !USES:\n!\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp)\n  USE Timers_Mod       ! For GEOS-Chem timers (optional)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Do_Chemistry\n  PUBLIC  :: Recompute_OD\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_chemistry\n!\n! !DESCRIPTION: Subroutine DO\\_CHEMISTRY is the driver routine which calls\n!  the appropriate chemistry subroutine for the various GEOS-Chem simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Chemistry( Input_Opt,  State_Chm, State_Diag,                &\n                           State_Grid, State_Met, RC                        )\n!\n! !USES:\n!\n    USE AEROSOL_MOD,      ONLY : AEROSOL_CONC\n    USE AEROSOL_MOD,      ONLY : RDAER\n    USE CARBON_MOD,       ONLY : CHEMCARBON\n    USE Carbon_Gases_Mod, ONLY : Chem_Carbon_Gases\n    USE Diagnostics_Mod,  ONLY : Compute_Budget_Diagnostics\n    USE DUST_MOD,         ONLY : CHEMDUST\n    USE DUST_MOD,         ONLY : RDUST_ONLINE\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE FullChem_Mod,     ONLY : Do_FullChem\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE AEROSOL_THERMODYNAMICS_MOD,  ONLY : DO_ATE\n    USE LINEAR_CHEM_MOD,  ONLY : DO_LINEAR_CHEM\n    USE MERCURY_MOD,      ONLY : CHEMMERCURY\n    USE POPS_MOD,         ONLY : CHEMPOPS\n    USE RnPbBe_MOD,       ONLY : CHEMRnPbBe\n    USE RPMARES_MOD,      ONLY : DO_RPMARES\n    USE SEASALT_MOD,      ONLY : CHEMSEASALT\n    USE SULFATE_MOD,      ONLY : CHEMSULFATE\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Chm_Mod,    ONLY : Ind_\n    USE State_Diag_Mod,   ONLY : DgnState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE TAGGED_O3_MOD,    ONLY : CHEM_TAGGED_O3\n    USE TIME_MOD,         ONLY : GET_TS_CHEM\n    USE Tracer_Mod,       ONLY : Tracer_Sink_Phase\n    USE UCX_MOD,          ONLY : CALC_STRAT_AER\n    USE UnitConv_Mod\n#ifdef APM\n    USE APM_INIT_MOD,     ONLY : APMIDS\n    USE APM_DRIV_MOD,     ONLY : PSO4GAS\n    USE APM_DRIV_MOD,     ONLY : AERONUM\n    USE APM_DRIV_MOD,     ONLY : APM_DRIV\n#endif\n#ifdef TOMAS\n    USE TOMAS_MOD,        ONLY : DO_TOMAS  !(win, 7/14/09)\n#endif\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    INTEGER, SAVE      :: id_DSTbin1, id_NK01, id_CO2   ! Species ID flags\n\n    ! Scalars\n    INTEGER            :: N_TROP, N\n    INTEGER            :: MONTH\n    INTEGER            :: YEAR\n    INTEGER            :: WAVELENGTH\n    INTEGER            :: TS_Chem\n    REAL(f8)           :: DT_Chem, sDTFC, fDTFC\n#ifdef APM\n    INTEGER            :: I,J,L\n    REAL*8             :: CONCTMPSO4(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n#endif\n\n    ! SAVEd scalars\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n\n    ! Strings\n    INTEGER            :: previous_units\n    CHARACTER(LEN=255) :: ErrMsg,  ThisLoc\n\n    !=======================================================================\n    ! DO_CHEMISTRY begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Do_Chemistry  (in module GeosCore/chemistry_mod.F90)'\n\n    ! Save species ID\"s on first call\n    IF ( FIRST ) THEN\n       id_DSTbin1 = Ind_('DSTbin1')\n       id_NK01 = Ind_('NK01')\n       id_CO2  = Ind_('CO2' )\n    ENDIF\n\n    !========================================================================\n    ! Chemistry budget diagnostics - Part 1 of 2\n    !========================================================================\n    IF ( State_Diag%Archive_BudgetChemistry ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetChemistryFull,            &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetChemistryFull,                &\n            isTrop      = State_Diag%Archive_BudgetChemistryTrop,            &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetChemistryTrop,                &\n            isPBL       = State_Diag%Archive_BudgetChemistryPBL,             &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetChemistryPBL,                 &\n            isLevs      = State_Diag%Archive_BudgetChemistryLevs,            &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetChemistryLevs,                &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Chemistry budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Convert species units to [kg] for chemistry (ewl, 8/12/15)\n    !========================================================================\n\n    ! Here, units are still in mol/mol dry.   For fullchem-simulation only,\n    ! set CO2 to 421 ppm (or 421e-6 mol/mol dry) since this is the global\n    ! average value. This is necessary to reduce the error norm in KPP.\n    ! See https://github.com/geoschem/geos-chem/issues/1529.\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       State_Chm%Species(id_CO2)%Conc = 421.0e-6_fp\n    ENDIF\n\n    ! Halt \"All chemistry\" timer (so that diags can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"All chemistry\", RC )\n    ENDIF\n\n    ! Convert units from mol/mol dry to kg\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error (kg/kg dry -> kg)'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start \"All chemistry\" timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"All chemistry\", RC )\n    ENDIF\n\n    !========================================================================\n    ! If Input_Opt%LCHEM=T then call the chemistry subroutines\n    !========================================================================\n    IF ( Input_Opt%LCHEM ) THEN\n\n       !=====================================================================\n       ! Full-chemistry simulations:\n       !\n       ! (1) Benchmark; (2) Standard; (3) SimpleSOA; (4) complexSOA,\n       ! (5) complexSOA-SVPOA; (6) aciduptake; (7) marinePOA\n       !=====================================================================\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start  ( \"=> Aerosol chem\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Dry-run sulfate chem to get cloud pH\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSULF ) THEN\n\n             ! Calculate stratospheric aerosol properties\n             CALL Calc_Strat_Aer( Input_Opt  = Input_Opt,                    &\n                                  State_Chm  = State_Chm,                    &\n                                  State_Grid = State_Grid,                   &\n                                  State_Met  = State_Met,                    &\n                                  RC         = RC                           )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Calc_Strat_Aer\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             ! Compute aerosol concentrations (needed for AOD computations)\n             CALL Aerosol_Conc( Input_Opt  = Input_Opt,                      &\n                                State_Chm  = State_Chm,                      &\n                                State_Diag = State_Diag,                     &\n                                State_Grid = State_Grid,                     &\n                                State_Met  = State_Met,                      &\n                                RC         = RC                             )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"AEROSOL_CONC\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Call RDAER\n          !------------------------------------------------------------------\n          waveLength = 0\n          CALL RdAer( Input_Opt  = Input_Opt,                                &\n                      State_Chm  = State_Chm,                                &\n                      State_Diag = State_Diag,                               &\n                      State_Grid = State_Grid,                               &\n                      State_Met  = State_Met,                                &\n                      month      = month,                                    &\n                      year       = year,                                     &\n                      odSwitch   = waveLength,                               &\n                      RC         = RC                                       )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"RDAER\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !==================================================================\n          ! If LDUST is turned on, then we have online dust aerosol in\n          ! GEOS-CHEM.\n          ! If LDUST is turned off, then we do not have online dust aerosol\n          ! in GEOS-CHEM...so read monthly-mean dust files from disk.\n          ! (rjp, tdf, bmy, 4/1/04)\n          !==================================================================\n          IF ( Input_Opt%LDUST ) THEN\n             CALL RDust_Online( Input_Opt  = Input_Opt,                      &\n                                State_Chm  = State_Chm,                      &\n                                State_Diag = State_Diag,                     &\n                                State_Grid = State_Grid,                     &\n                                State_Met  = State_Met,                      &\n                                odSwitch   = waveLength,                     &\n                                RC         = RC                             )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"RDUST_ONLINE\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Dry-run sulfate chem to get cloud pH\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSULF ) THEN\n\n             ! Dry run only\n             CALL ChemSulfate( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Diag = State_Diag,                      &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               FullRun    = .FALSE.,                         &\n                               RC         = RC                              )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemSulfate\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             !---------------------------------------------------------------\n             ! Do aerosol thermodynamic equilibrium\n             !---------------------------------------------------------------\n             IF ( Input_Opt%LSSALT ) THEN\n\n#ifndef APM\n                ! ISORROPIA/HETP take Na+, Cl- into account\n                CALL Do_ATE( Input_Opt  = Input_Opt,                 &\n                             State_Chm  = State_Chm,                 &\n                             State_Diag = State_Diag,                &\n                             State_Grid = State_Grid,                &\n                             State_Met  = State_Met,                 &\n                             RC         = RC                        )\n\n                ! Trap potential errors\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error encountered in \"Do_ATE\"!'\n                   CALL GC_Error( ErrMsg, RC, ThisLoc )\n                   RETURN\n                ENDIF\n#endif\n\n             ELSE\n\n#ifdef APM\n                ! Exit with error if RPMARES + APM is selected\n                ErrMsg = 'Warning: APM does not want to use DO_RPMARES'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n#endif\n\n                ! RPMARES does not take Na+, Cl- into account\n                CALL Do_RPMARES( Input_Opt  = Input_Opt,                     &\n                                 State_Chm  = State_Chm,                     &\n                                 State_Grid = State_Grid,                    &\n                                 State_Met  = State_Met,                     &\n                                 RC         = RC                            )\n             ENDIF\n\n          ENDIF\n\n#ifdef APM\n          ! Save SO4 concentration before chemistry\n          N          = APMIDS%id_SO4\n          CONCTMPSO4 = State_Chm%Species(N)%Conc\n\n          CALL AERONUM( Input_Opt  = Input_Opt,                              &\n                        State_Chm  = State_Chm,                              &\n                        State_Diag = State_Diag,                             &\n                        State_Grid = State_Grid,                             &\n                        State_Met  = State_Met,                              &\n                        RC         = RC                                     )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"AERONUM\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n#endif\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Aerosol chem\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Call gas-phase chemistry\n          !------------------------------------------------------------------\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Gas-phase chem\", RC )\n          ENDIF\n\n          ! Solve the KPP-generated mechanism\n          CALL Do_FullChem( Input_Opt  = Input_Opt,                          &\n                            State_Chm  = State_Chm,                          &\n                            State_Diag = State_Diag,                         &\n                            State_Grid = State_Grid,                         &\n                            State_Met  = State_Met,                          &\n                            RC         = RC                                 )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Do_FullChem\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Gas-phase chem\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Linearized chemistry above chemistry grid\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LINEAR_CHEM ) THEN\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_Start( \"=> Linearized chem\", RC )\n             ENDIF\n\n             ! Do linearized chemistry for the mesosphere\n             CALL Do_Linear_Chem( Input_Opt  = Input_Opt,                    &\n                                  State_Chm  = State_Chm,                    &\n                                  State_Grid = State_Grid,                   &\n                                  State_Met  = State_Met,                    &\n                                  errCode    = RC                           )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountred in \"Do_LinearChem\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             ! Make sure all units are still in kg\n             IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n                ErrMsg = 'Incorrect species after calling \"Do_Linear_Chem\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_End( \"=> Linearized chem\", RC )\n             ENDIF\n\n          ENDIF\n\n#ifdef APM\n          ! Obtain SO4 production after chemistry\n          N = APMIDS%id_SO4\n          !$OMP PARALLEL DO         &\n          !$OMP DEFAULT( SHARED   ) &\n          !$OMP PRIVATE( I, J, L  ) &\n          !$OMP SCHEDULE( DYNAMIC )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             IF ( State_Chm%Species(N)%Conc(I,J,L) > CONCTMPSO4(I,J,L) ) THEN\n                PSO4GAS(I,J,L) = State_Chm%Species(N)%Conc(I,J,L)                  &\n                               - CONCTMPSO4(I,J,L)\n             ELSE\n                PSO4GAS(I,J,L) = 0.D0\n             ENDIF\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n#endif\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Aerosol chem\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Do seasalt aerosol chemistry\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSSALT ) THEN\n             CALL ChemSeaSalt( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Diag = State_Diag,                      &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               RC         = RC                              )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemSeaSalt\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Recalculate PSC properties\n          !------------------------------------------------------------------\n          CALL Calc_Strat_Aer( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               RC         = RC                              )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Calc_Strat_Aer\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Also do sulfate chemistry\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSULF ) THEN\n\n             ! Do sulfate chemistry\n             CALL ChemSulfate( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Diag = State_Diag,                      &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               FullRun    = .TRUE.,                          &\n                               RC         = RC                              )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered after calling \"ChemSulfate\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             ! Make sure all units are still in kg\n             IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n                ErrMsg = 'Incorrect species after calling \"ChemSulfate\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Do carbonaceous aerosol chemistry\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LCARB ) THEN\n             CALL ChemCarbon( Input_Opt  = Input_Opt,                        &\n                              State_Chm  = State_Chm,                        &\n                              State_Diag = State_Diag,                       &\n                              State_Grid = State_Grid,                       &\n                              State_Met  = State_Met,                        &\n                              RC         = RC                               )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemCarbon\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Do dust aerosol chemistry/removal\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LDUST .AND. id_DSTbin1 > 0 ) THEN\n             CALL ChemDust( Input_Opt  = Input_Opt,                          &\n                            State_Chm  = State_Chm,                          &\n                            State_Diag = State_Diag,                         &\n                            State_Grid = State_Grid,                         &\n                            State_Met  = State_Met,                          &\n                            RC         = RC                                 )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemDust\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n#ifdef APM\n          !------------------------------------------------------------------\n          ! Do APM aerosol microphysics\n          !------------------------------------------------------------------\n          CALL APM_Driv( Input_Opt  = Input_Opt,                             &\n                         State_Chm  = State_Chm,                             &\n                         State_Diag = State_Diag,                            &\n                         State_Grid = State_Grid,                            &\n                         State_Met  = State_Met,                             &\n                         RC         = RC                                    )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in routine \"APM_DRIV\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n#endif\n\n#ifdef TOMAS\n          !------------------------------------------------------------------\n          ! Do TOMAS aerosol microphysics and dry dep\n          !------------------------------------------------------------------\n          IF ( id_NK01 > 0 ) THEN\n             CALL Do_TOMAS( Input_Opt  = Input_Opt,                          &\n                            State_Chm  = State_Chm,                          &\n                            State_Diag = State_Diag,                         &\n                            State_Grid = State_Grid,                         &\n                            State_Met  = State_Met,                          &\n                            RC         = RC                                 )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_TOMAS\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             ! Check units (ewl, 10/5/15)\n             IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n                ErrMsg = 'Not all species have units \"kg\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n             ENDIF\n          ENDIF\n#endif\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Aerosol chem\", RC )\n          ENDIF\n\n       !=====================================================================\n       ! Aerosol-only simulation\n       !=====================================================================\n       ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Aerosol chem\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Compute aerosol & dust concentrations [kg/m3]\n          ! (NOTE: SOILDUST in \"aerosol_mod.F90\" is computed here)\n          !------------------------------------------------------------------\n          CALL Aerosol_Conc( Input_Opt  = Input_Opt,                         &\n                             State_Chm  = State_Chm,                         &\n                             State_Diag = State_Diag,                        &\n                             State_Grid = State_Grid,                        &\n                             State_Met  = State_Met,                         &\n                             RC         = RC                                )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Aerosol_Conc\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Compute AOD's and surface areas at 999 nm\n          !------------------------------------------------------------------\n          month      = 0\n          year       = 0\n          waveLength = 0\n          CALL RdAer( Input_Opt  = Input_Opt,                                &\n                      State_Chm  = State_Chm,                                &\n                      State_Diag = State_Diag,                               &\n                      State_Grid = State_Grid,                               &\n                      State_Met  = State_Met,                                &\n                      month      = month,                                    &\n                      year       = year,                                     &\n                      ODswitch   = Wavelength,                               &\n                      RC         = RC                                       )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"RdAer\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Aerosol Thermodynamic Equilibrium\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSULF ) THEN\n             IF ( Input_Opt%LSSALT ) THEN\n\n#ifndef APM\n                ! ISORROPIA/HETP take Na+, Cl- into account\n                CALL Do_ATE( Input_Opt  = Input_Opt,                 &\n                             State_Chm  = State_Chm,                 &\n                             State_Diag = State_Diag,                &\n                             State_Grid = State_Grid,                &\n                             State_Met  = State_Met,                 &\n                             RC         = RC                        )\n#endif\n\n                ! Trap potential errors\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error encountered in \"Do_ATE\"!'\n                   CALL GC_Error( ErrMsg, RC, ThisLoc )\n                   RETURN\n                ENDIF\n\n             ELSE\n\n#ifdef APM\n                ! Exit with error if RPMARES + APM is selected\n                ErrMsg = 'Warning: APM does not want to use DO_RPMARES'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n#endif\n\n                ! RPMARES does not take Na+, Cl- into account\n                ! (skip for crystalline & aqueous offline run)\n                CALL Do_RPMARES( Input_Opt  = Input_Opt,                     &\n                                 State_Chm  = State_Chm,                     &\n                                 State_Grid = State_Grid,                    &\n                                 State_Met  = State_Met,                     &\n                                 RC         = RC                            )\n\n                ! Trap potential errors\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error encountered in \"Do_RPMARES\"!'\n                   CALL GC_Error( ErrMsg, RC, ThisLoc )\n                   RETURN\n                ENDIF\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Seasalt Aerosols\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSSALT ) THEN\n             CALL ChemSeaSalt( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Diag = State_Diag,                      &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               RC         = RC                              )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemSeaSalt\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Sulfate aerosols\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSULF ) THEN\n\n             ! Do sulfate chemistry\n             CALL ChemSulfate( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Diag = State_Diag,                      &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               FullRun    = .TRUE.,                          &\n                               RC         = RC                              )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemSulfate\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Carbon and Secondary Organic Aerosols\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LCARB ) THEN\n             CALL ChemCarbon( Input_Opt  = Input_Opt,                        &\n                              State_Chm  = State_Chm,                        &\n                              State_Diag = State_Diag,                       &\n                              State_Grid = State_Grid,                       &\n                              State_Met  = State_Met,                        &\n                              RC         = RC                               )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Mineral Dust Aerosols\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LDUST ) THEN\n\n             ! Do dust aerosol chemistry\n             CALL ChemDust( Input_Opt  = Input_Opt,                          &\n                            State_Chm  = State_Chm,                          &\n                            State_Diag = State_Diag,                         &\n                            State_Grid = State_Grid,                         &\n                            State_Met  = State_Met,                          &\n                            RC         = RC                                 )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"ChemDust\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             ! Compute dust OD's & surface areas\n             WAVELENGTH = 0\n             CALL Rdust_Online( Input_Opt  = Input_Opt,                   &\n                                State_Chm  = State_Chm,                   &\n                                State_Diag = State_Diag,                  &\n                                State_Grid = State_Grid,                  &\n                                State_Met  = State_Met,                   &\n                                ODswitch   = waveLength,                  &\n                                RC         = RC                          )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Rdust_Online\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Aerosol chem\", RC )\n          ENDIF\n\n       !=====================================================================\n       ! Transport Tracers\n       !=====================================================================\n       ELSE IF ( Input_Opt%ITS_A_TRACER_SIM ) THEN\n\n          ! Do Rn-Pb-Be chemistry\n          CALL ChemRnPbBe( Input_Opt  = Input_Opt,                           &\n                           State_Chm  = State_Chm,                           &\n                           State_Diag = State_Diag,                          &\n                           State_Grid = State_Grid,                          &\n                           State_Met  = State_Met,                           &\n                           RC         = RC                                  )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"ChemRnPbBe\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Apply sinks for transport tracers\n          CALL Tracer_Sink_Phase( Input_Opt  = Input_Opt,                 &\n                                  State_Chm  = State_Chm,                 &\n                                  State_Grid = State_Grid,                &\n                                  State_Met  = State_Met,                 &\n                                  RC         = RC                        )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Tracer_Sink_Phase\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       !=====================================================================\n       ! Tagged O3\n       !=====================================================================\n       ELSE IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n\n          !------------------------------------------------------------------\n          ! Do Tagged O3 chemistry\n          !------------------------------------------------------------------\n          CALL Chem_Tagged_O3( Input_Opt  = Input_Opt,                       &\n                               State_Chm  = State_Chm,                       &\n                               State_Diag = State_Diag,                      &\n                               State_Grid = State_Grid,                      &\n                               State_Met  = State_Met,                       &\n                               RC         = RC                              )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Chem_Tagged_O3\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Linearized chemistry\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LINEAR_CHEM ) THEN\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_Start( \"=> Linearized chem\", RC )\n             ENDIF\n\n             ! Do LINOZ for Ozone\n             CALL Do_Linear_Chem( Input_Opt  = Input_Opt,                    &\n                                  State_Chm  = State_Chm,                    &\n                                  State_Grid = State_Grid,                   &\n                                  State_Met  = State_Met,                    &\n                                  errCode    = RC                           )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_Linear_Chem\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_End( \"=> Linearized chem\", RC )\n             ENDIF\n\n          ENDIF\n\n       !=====================================================================\n       ! Carbon gases (configure with -DMECH=carbon)\n       !=====================================================================\n       ELSE IF ( Input_Opt%ITS_A_CARBON_SIM ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Gas-phase chem\", RC )\n          ENDIF\n\n          ! Do carbon chemistry\n          CALL Chem_Carbon_Gases( Input_Opt  = Input_Opt,                    &\n                                  State_Met  = State_Met,                    &\n                                  State_Chm  = State_Chm,                    &\n                                  State_Grid = State_Grid,                   &\n                                  State_Diag = State_Diag,                   &\n                                  RC         = RC                           )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Chem_Carbon_Gases\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Gas-phase chem\", RC )\n          ENDIF\n\n       !====================================================================\n       ! Mercury (configure with -DMECH=Hg)\n       !=====================================================================\n       ELSE IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Gas-phase chem\", RC )\n          ENDIF\n\n          ! Do Hg chemistry\n          CALL ChemMercury( Input_Opt  = Input_Opt,                          &\n                            State_Chm  = State_Chm,                          &\n                            State_Diag = State_Diag,                         &\n                            State_Grid = State_Grid,                         &\n                            State_Met  = State_Met,                          &\n                            RC         = RC                                 )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"ChemMercury\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Gas-phase chem\", RC )\n          ENDIF\n\n       !=====================================================================\n       ! POPs\n       !=====================================================================\n       ELSE IF ( Input_Opt%ITS_A_POPS_SIM ) THEN\n\n          ! Do POPS chemistry\n          CALL ChemPOPs( Input_Opt  = Input_Opt,                             &\n                         State_Chm  = State_Chm,                             &\n                         State_Diag = State_Diag,                            &\n                         State_Grid = State_Grid,                            &\n                         State_Met  = State_Met,                             &\n                         RC         = RC                                    )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"ChemPOPs\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDIF\n\n       !### Debug\n       IF ( Input_Opt%Verbose ) THEN\n          CALL Debug_Msg( '### MAIN: a CHEMISTRY' )\n       ENDIF\n\n    ENDIF\n\n    !========================================================================\n    ! Convert species units back to original unit (ewl, 8/12/15)\n    !========================================================================\n\n    ! Halt \"All chemistry\" timer (so unitconv+diags can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"All chemistry\", RC )\n    ENDIF\n\n    ! Convert units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start \"All chemistry\" timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"All chemistry\", RC )\n    ENDIF\n\n    !========================================================================\n    ! Chemistry budget diagnostics - Part 2 of 2\n    !========================================================================\n    IF ( State_Diag%Archive_BudgetChemistry ) THEN\n\n       ! Chemistry timestep [s]\n       TS_Chem = Get_Ts_Chem()\n       DT_Chem = DBLE( Ts_Chem )\n\n       ! Compute change in column masses (after chemistry - before chemistry)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetChemistryFull,            &\n            diagFull    = State_Diag%BudgetChemistryFull,                    &\n            mapDataFull = State_Diag%Map_BudgetChemistryFull,                &\n            isTrop      = State_Diag%Archive_BudgetChemistryTrop,            &\n            diagTrop    = State_Diag%BudgetChemistryTrop,                    &\n            mapDataTrop = State_Diag%Map_BudgetChemistryTrop,                &\n            isPBL       = State_Diag%Archive_BudgetChemistryPBL,             &\n            diagPBL     = State_Diag%BudgetChemistryPBL,                     &\n            mapDataPBL  = State_Diag%Map_BudgetChemistryPBL,                 &\n            isLevs      = State_Diag%Archive_BudgetChemistryLevs,            &\n            diagLevs    = State_Diag%BudgetChemistryLevs,                    &\n            mapDataLevs = State_Diag%Map_BudgetChemistryLevs,                &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Chem,                                           &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Chemistry budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Do_Chemistry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: recompute_od\n!\n! !DESCRIPTION: Subroutine RECOMPUTE\\_OD will update the optical depth values\n!  before accumulating or writing the diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RECOMPUTE_OD( Input_Opt,  State_Chm, State_Diag,                &\n                           State_Grid, State_Met, RC                        )\n!\n! !USES:\n!\n    USE AEROSOL_MOD,    ONLY : AEROSOL_CONC\n    USE AEROSOL_MOD,    ONLY : RDAER\n    USE DUST_MOD,       ONLY : RDUST_ONLINE\n    USE ErrCode_Mod\n    USE ERROR_MOD,      ONLY : Debug_Msg\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : GET_MONTH\n    USE TIME_MOD,       ONLY : GET_YEAR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  03 Fev 2011 - Adapted from chemdr.f by skim\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: IT_IS_A_FULLCHEM_SIM\n    LOGICAL            :: IT_IS_AN_AEROSOL_SIM\n    LOGICAL            :: LCARB, LCHEM,  LDUST\n    LOGICAL            :: LSSALT, LSULF, LSOA\n    INTEGER            :: MONTH, YEAR,   WAVELENGTH\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! RECOMPUTE_OD begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    MONTH    = GET_MONTH()\n    YEAR     = GET_YEAR()\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Recompute_OD  (in module GeosCore/chemistry_mod.F90)'\n\n    ! Get month and year\n\n    ! First make sure chemistry is turned on\n    IF ( Input_Opt%LCHEM ) THEN\n\n       ! Then make sure that the simulations use aerosol species\n       IF (  Input_Opt%ITS_A_FULLCHEM_SIM   .or.                             &\n             Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n          ! And then make sure that the aersol species are defined\n          IF ( Input_Opt%LSULF .or. Input_Opt%LCARB    .or.                  &\n               Input_Opt%LDUST .or. Input_Opt%LSSALT ) THEN\n\n             ! Skip this section if all of these are turned off\n             CALL AEROSOL_CONC( Input_Opt,  State_Chm, State_Diag, &\n                                State_Grid, State_Met, RC )\n\n             !===============================================================\n             ! Call RDAER -- computes aerosol optical depths\n             !===============================================================\n\n             ! Calculate the AOD at the wavelength specified in jv_spec_aod\n             WAVELENGTH = 1\n             CALL RDAER( Input_Opt  = Input_Opt,                             &\n                         State_Chm  = State_Chm,                             &\n                         State_Diag = State_Diag,                            &\n                         State_Grid = State_Grid,                            &\n                         State_Met  = State_Met,                             &\n                         month      = month,                                 &\n                         year       = year,                                  &\n                         ODswitch   = waveLength,                            &\n                         RC         = RC                                    )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"RdAer\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             !### Debug\n             IF ( Input_Opt%Verbose ) THEN\n                CALL Debug_Msg( '### RECOMPUTE_OD: after RDAER' )\n             ENDIF\n\n             !===============================================================\n             ! If LDUST is turned on, then we have online dust aerosol in\n             ! GEOS-CHEM.\n             ! If LDUST is turned off, then we don't have online dust\n             ! aerosol in GEOS-CHEM...so read monthly-mean dust files\n             ! from disk. (rjp, tdf, bmy, 4/1/04)\n             !===============================================================\n             IF ( Input_Opt%LDUST ) THEN\n                CALL Rdust_Online( Input_Opt  = Input_Opt,                   &\n                                   State_Chm  = State_Chm,                   &\n                                   State_Diag = State_Diag,                  &\n                                   State_Grid = State_Grid,                  &\n                                   State_Met  = State_Met,                   &\n                                   ODswitch   = waveLength,                  &\n                                   RC         = RC                          )\n\n                ! Trap potential errors\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error encountered in \"Rdust_Online\"!'\n                   CALL GC_Error( ErrMsg, RC, ThisLoc )\n                   RETURN\n                ENDIF\n             ENDIF\n\n             !### Debug\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### RECOMPUTE_OD: after RDUST' )\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE RECOMPUTE_OD\n!EOC\nEND MODULE Chemistry_Mod\n"
  },
  {
    "path": "GeosCore/cldice_HBrHOBr_rxn.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: cldice_hbrhobr_rxn.F90\n!\n! !DESCRIPTION: Subroutine CLDICE\\_HBrHOBr\\_RXN calculates the rate constants\n! for HBr and HOBr pseudo-reactions with ice.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE CLDICE_HBrHOBr_RXN( I, J, L, DENAIR, QI, hbr, hobr, &\n                               k_hbr,  k_hobr, AREA, State_Met )\n!\n! !USES:\n!\n  USE ERROR_MOD,          ONLY : IS_SAFE_DIV, IT_IS_NAN\n  USE ERROR_MOD,          ONLY : GEOS_CHEM_STOP\n  USE PRECISION_MOD            ! For GEOS-Chem Precision (fp)\n  USE State_Met_Mod,      ONLY : MetState\n\n  IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n  INTEGER,        INTENT(IN)  :: I         ! Longitude index\n  INTEGER,        INTENT(IN)  :: J         ! Latitude  index\n  INTEGER,        INTENT(IN)  :: L         ! Altitude  index\n  REAL(fp),       INTENT(IN)  :: DENAIR    ! Density of air         [#/cm3]\n  REAL(fp),       INTENT(IN)  :: QI        ! Cloud ice mixing ratio [kg/kg]\n  REAL(fp),       INTENT(IN)  :: hbr       ! Concentration of HBr   [#/cm3]\n  REAL(fp),       INTENT(IN)  :: hobr      ! Concentration of HOBr  [#/cm3]\n  TYPE(MetState), INTENT(IN)  :: State_Met ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n  REAL(fp),       INTENT(OUT) :: k_hbr     ! Rate constant for HBr  + ice\n                                           !   pseudo-rxn [cm3/s]\n  REAL(fp),       INTENT(OUT) :: k_hobr    ! Rate constant for HOBr + ice\n                                           !   pseudo-rxn [cm3/s]\n  REAL(fp),       INTENT(OUT) :: AREA      ! Surface area [cm2/cm3]\n!\n! !REMARKS:\n!  The rate constant is calculated assuming:\n!                                                                             .\n!    1. A sticking coefficient of 0.1 [JPL 2006], Abbatt [1994],\n!       Chai et al. [2000]\n!    2. An effective radius is assumed as a function of (i) temperature and\n!       ice water content (IWC). This relationship is taken from Wyser [1998].\n!                                                                             .\n!  ** Calculations of a 1st order rate constent are borrowed from the\n!     subroutine arsl1k.F. Below are comments from that code:\n!                                                                             .\n!       The 1st-order loss rate on wet aerosol (Dentener's Thesis, p. 14)\n!       is computed as:\n!                                                                             .\n!         ARSL1K [1/s] = area / [ radius/dfkg + 4./(stkcf * nu) ]\n!                                                                             .\n!       where nu   = Mean molecular speed [cm/s] = sqrt(8R*TK/pi/M) for Maxwell\n!             DFKG = Gas phase diffusion coeff [cm2/s] (order of 0.1)\n!\n! !REVISION HISTORY:\n!  16 Jun 2011 - J. Parrella - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  REAL(f8), PARAMETER :: dens_ice = 0.9167e-3_f8                ! [kg/cm3]\n  REAL(f8), PARAMETER :: mw_hbr   = 0.081                       ! [kg/mol]\n  REAL(f8), PARAMETER :: mw_hobr  = 0.097                       ! [kg/mol]\n!\n! !LOCAL VARIABLES:\n!\n  REAL(f8)            :: MW_spec  ! Molecular weight of species\n  REAL(f8)            :: RADIUS   ! Radius of ice particles        [cm]\n  REAL(f8)            :: STK      ! Square root of the temperature [K]\n  REAL(f8)            :: DFKG     ! Gas diffusion coefficient      [cm2/s]\n  REAL(f8)            :: SQM_hbr  ! Square root of molec. weight   [g/mol]\n  REAL(f8)            :: SQM_hobr ! Square root of molec. weight   [g/mol]\n  REAL(f8)            :: b_param\n  REAL(f8)            :: iwc\n  REAL(f8)            :: gamma\n  REAL(f8)            :: gamma_hobr, gamma_hbr\n  REAL(f8)            :: hbr_rtemp,  hobr_rtemp\n  REAL(f8)            :: cld1k_hbr,  cld1k_hobr\n  REAL(f8)            :: numerator,  denominator\n  LOGICAL             :: yn_div_safe\n  LOGICAL             :: yn_nan\n  LOGICAL             :: yn_stop\n\n  ! Pointers\n  REAL(fp), POINTER   :: AIRDEN(:,:,:)\n  REAL(fp), POINTER   :: CLDF(:,:,:)\n  REAL(fp), POINTER   :: T(:,:,:)\n\n  !=================================================================\n  ! CLDICE_HBrHOBr_RXN begins here!\n  !=================================================================\n\n  ! Initialize pointers\n  AIRDEN => State_Met%AIRDEN\n  CLDF   => State_Met%CLDF\n  T      => State_Met%T\n\n  ! ----------------------------------------------\n  ! 1.\n  !   Calculate the ice water content (IWC) for\n  !   the box. Will be used to calculate the\n  !   ice effective radius by parameterization.\n  !\n  !   For parameterization, we want IWC in [g/m3].\n  !   Using QI which is in [kg_ice/kg_air]\n  ! ----------------------------------------------\n\n  ! IWC in [g/cm3]\n  iwc = CLDF(I,J,L) * QI * AIRDEN(I,J,L)\n  iwc = iwc / 1.e+3_f8\n\n  !%%% ERROR CHECK!  Do not let IWC<=0 because it will cause the\n  !%%% LOG10 statement in the upcoming section (bmy, 10/23/12)\n  IF ( .not. ( IWC > 0e+0_f8 ) ) THEN\n     gamma  = 0.e+0_f8\n     k_hbr  = 0.e+0_f8\n     k_hobr = 0.e+0_f8\n     RETURN\n  ENDIF\n\n  ! ----------------------------------------------\n  ! calculate the temperature dependent reactive\n  ! uptake coefficient for HBr + HOBr + ice.\n  !  - uses Chaix et al. [2000] for 180K < T < 205 K\n  !                                 0.44 > g > 0.15\n  !\n  !  - uses Abbatt [1994] for T = 228 K (pure ice)\n  !                           g = 0.12\n  !\n  !  ** using g = 0.1 for cold and mixed clouds\n  ! ----------------------------------------------\n  IF ( ( T(I,J,L) >= 180.e+0_f8) .and. ( T(I,J,L) <= 268.e+0_f8) ) THEN\n     gamma = 0.1e+0_f8\n  ELSE\n     ! if temperature moves above 228K, then\n     ! turn off the reaction and do nothing\n     gamma  = 0.e+0_f8\n     k_hbr  = 0.e+0_f8\n     k_hobr = 0.e+0_f8\n     RETURN\n  ENDIF\n\n  ! set the sticking coefficients for HBr and\n  ! HOBr independently, following JPL [2011]\n  ! ** this is only used for when we treat the\n  !    ice uptake of HOBr and HBr as a loss\n  !    instead of recycling.\n  gamma_hobr = 0.003e+0_f8\n  gamma_hbr  = 0.03e+0_f8\n  ! ----------------------------------------------\n  ! 2.\n  !   calculate the surface area of cloud droplets\n  !   in the given grid box, assuming 1 of 2\n  !   conditions:\n  !     a. marine warm cloud\n  !       or\n  !     b. continental warm cloud\n  !\n  !\n  !   * Calculation for area is derived follows,\n  !     assuming that RADIUS is constant:\n  !\n  !                         4/3 (pi) (RADIUS)**3\n  !  1) FC = Vc / Vb = N  -------------------------\n  !                                  Vb\n  !\n  !\n  !       where N      = number of ice particles in cloud\n  !             RADIUS = radius of ice particles\n  !             Vc     = volumn of ice in cloud\n  !             Vb     = volumn of the box = AIRVOL (in GEOS-Chem)\n  !\n  !\n  !                     Vb\n  !  2) N = FC --------------------\n  !            4/3 (pi) (RADIUS)**3\n  !\n  !\n  !  So the surface area [m2] is calculated as\n  !\n  !  3) total surface A = N * 4 * (pi) * (RADIUS)**2\n  !\n  !                  3*Vb\n  !          = FC ----------\n  !                 RADIUS\n  !\n  !  4) for this routine though we want\n  !     AREA in [cm2/cm3], surface area to volume air:\n  !\n  !                   3\n  !     AREA = FC ---------\n  !                RADIUS (in cm)\n  !\n  !\n  !    or\n  !                   3 x Vc\n  !     AREA =  -----------------\n  !              AIRVOL x RADIUS      (in cm)\n  ! ----------------------------------------------\n\n  ! calculate the effective radius of ice in\n  ! this cloud given (a) the temperature, and\n  ! (b) the ice water content of the box.\n  ! This parameterization is taken from\n  ! Wyser [1998]. (jpp, 6/15/2011)\n\n  ! a. B = equation 14 in Wyser [1998]\n  ! CDH: The Wyser formula assumes iwc in g/m3, but g/cm3 is used here,\n  ! so the log10 term is incorrect.\n  b_param = -2.e+0_f8 + 1.e-3_f8 * (273.e+0_f8 - T(I,J,L))** &\n            (1.5e0_f8) * log10(iwc/50.e+0_f8)\n\n  ! radius is parameterized in [um]\n  RADIUS  = 377.4e+0_f8 + 203.3e+0_f8 * b_param + &\n            37.91e+0_f8  * b_param**2.0 + &\n            2.3696e+0_f8 * b_param**3.0\n\n  ! now convert radius to [cm]\n  RADIUS = RADIUS * 1.e-4_f8\n\n  !----------------------------------------------------------------------------\n  !! make sure there's enough ice in the box we're\n  !! looking at to do chemistry:\n  !IF ( (iwc == 0.0) .or. (QI == 0.0) .or. &\n  !     (it_is_nan( log10(iwc/50.0))) .or. &\n  !     (CLDF == 0.0) .or. (RADIUS <= 0.0) ) THEN\n  !   gamma  = 0.d0\n  !   k_hbr  = 0.d0\n  !   k_hobr = 0.d0\n  !   RETURN\n  !ENDIF\n  !----------------------------------------------------------------------------\n  !%%% ERROR CHECK!  Do not let RADIUS=0 because it will cause the\n  !%%% LOG10 statement in the upcoming section (bmy, 10/23/12)\n  IF ( (              RADIUS        < 0     )   .or. &\n       ( .not. ( ABS( RADIUS      ) > 0e+0_f8 ) )   .or. &\n       ( .not. ( ABS( CLDF(I,J,L) ) > 0e+0_f8 ) ) ) THEN\n     gamma  = 0.e+0_f8\n     k_hbr  = 0.e+0_f8\n     k_hobr = 0.e+0_f8\n     RETURN\n  ENDIF\n\n  !! Doesn't matter, Vc is not used. jpt\n  !Vc = CLDF(I,J,L) * QI * AD(I,J,L) / dens_ice\n  !! now calculate the cloud ice surface area [cm2_ice/ cm3_air]\n  !XAIRCM3 = AIRVOL(I,J,L) * (100.e+0_f8)**3 ! volume of air [cm3]\n  !AREA    = 3.d0 * (Vc/XAIRCM3) / (RADIUS) ! keep Radius in [cm]\n\n  ! Convert cross-sectional area to surface area, making assumption\n  ! given in Lawrence and Crutzen [1998]\n  ! iwc must be in g/m3, not g/cm3 for Lawrence param.\n  AREA    = 1.e-4_f8 * (iwc * (100.e+0_f8)**3)**(0.9e+0_f8)\n  AREA    = 2.e+0_f8 * AREA ! in [cm2/cm3]\n\n  !### Debug\n  !IF ( AREA > 1.0d-4 ) THEN\n  !   print *, 'jpp: debugging cloud ice area'\n  !   print *, 'AREA = ', AREA, ' cm2/cm3'\n  !   print *, 'IWC  = ', iwc\n  !ENDIF\n\n  ! ----------------------------------------------------\n  ! 3.\n  !   Now finish calculating the 1st order rate\n  !   constant, first for HBr, and then for HOBr\n  !   to get rate constants for both pseudo-reactions.\n  !\n  !   (a) calculate the gas phase diffusion coefficient;\n  !\n  !   (b) calculate the hydrolysis rxn rate.\n  ! ----------------------------------------------------\n  SQM_hbr  = sqrt(mw_hbr  * 1.e+3_f8)      ! square root of molar mass [g/mole]\n  SQM_hobr = sqrt(mw_hobr * 1.e+3_f8)      ! square root of molar mass [g/mole]\n  STK      = sqrt(T(I,J,L)      )      ! square root of temperature [K]\n\n  ! ----------------------\n  ! i.) Deal with HBr\n  ! ----------------------\n  ! DFKG = Gas phase diffusion coeff [cm2/s] (order of 0.1)\n  DFKG  = 9.45e+17_f8/DENAIR * STK * SQRT(3.472e-2_f8 + &\n          1.e+0_f8/(SQM_hbr*SQM_hbr))\n\n  ! Compute ARSL1K according to the formula listed above\n  cld1k_hbr = AREA / ( RADIUS/DFKG + 2.749064E-4 &\n              * SQM_hbr/(gamma*STK) )\n  !jp_loss    * SQM_hbr/(gamma_hbr*STK) )\n\n  ! ----------------------\n  ! ii.) Deal with HOBr\n  ! ----------------------\n  ! DFKG = Gas phase diffusion coeff [cm2/s] (order of 0.1)\n  DFKG  = 9.45e+17_f8/DENAIR * STK * SQRT(3.472e-2_f8 + &\n          1.e+0_f8/(SQM_hobr*SQM_hobr))\n\n  ! Compute ARSL1K according to the formula listed above\n  cld1k_hobr = AREA / ( RADIUS/DFKG + 2.749064E-4 &\n               * SQM_hobr/(gamma*STK) )\n  !jp_loss     * SQM_hobr/(gamma_hobr*STK) )\n  \n  ! ----------------------------------------------------\n  ! 4.\n  !   Now test which loss rate (HOBr or HBr) is\n  !   limiting.\n  ! ----------------------------------------------------\n  ! initial loss rates\n  hbr_rtemp  = cld1k_hbr  * hbr\n  hobr_rtemp = cld1k_hobr * hobr\n\n  ! ---------------------------------------------\n  ! kludging the rates to be equal to one another\n  ! to avoid having to keep setting equality in\n  ! SMVGEAR solver. (jpp, 5/10/2011)\n  ! ---------------------------------------------\n  IF ( hbr_rtemp > hobr_rtemp ) THEN\n\n     ! 1. is it safe to divide?\n     numerator   = DBLE( cld1k_hobr * hobr )\n     denominator = DBLE( hbr               )\n     yn_div_safe = is_safe_div( numerator, denominator )\n     IF (yn_div_safe) THEN\n        ! 2. if it is safe, then go ahead\n        cld1k_hbr = hobr_rtemp / hbr\n     ELSE\n        !    if not, then set rates really small...\n        !    b/c the largest contributor is very small.\n        cld1k_hobr = TINY(1.e+0_f8)\n        cld1k_hbr  = TINY(1.e+0_f8)\n     ENDIF\n\n  ELSE ! if HOBr rate is larger than HBr rate\n     ! 1. is it safe to divide?\n     numerator   = DBLE( cld1k_hbr * hbr )\n     denominator = DBLE( hobr            )\n     yn_div_safe = is_safe_div( numerator, denominator )\n     IF (yn_div_safe) THEN\n        ! 2. if it is safe, then go ahead\n        cld1k_hobr = hbr_rtemp / hobr\n     ELSE\n        !    if not, then set rates really small...\n        !    b/c the largest contributor is very small.\n        cld1k_hobr = TINY(1.e+0_f8)\n        cld1k_hbr  = TINY(1.e+0_f8)\n     ENDIF\n\n  ENDIF\n\n  ! store the rate constants\n  k_hbr  = cld1k_hbr\n  k_hobr = cld1k_hobr\n\n  ! test if they're are NaN's calculated\n  yn_stop = .FALSE.\n  yn_nan = it_is_nan( k_hbr  )\n  IF ( yn_nan ) yn_stop = .TRUE.\n\n  yn_nan = it_is_nan( k_hobr )\n  IF ( yn_nan ) yn_stop = .TRUE.\n\n  IF (yn_stop) THEN\n     print*, 'stopping inside of cldice_hbrhobr_rxn().'\n     print*, 'Calculated NaN rate constants for ice chem.'\n     print*, 'debugging values:'\n     print*, 'k_hobr =', k_hobr\n     print*, 'k_hbr =', k_hbr\n     print*, 'hobr =', hobr\n     print*, 'hbr  =', hbr\n     print*, 'radius =', radius\n     print*, 'area   =', area\n     print*, 'b_param =', b_param\n     print*, 'iwc =', iwc\n     !read(*,*) yn_stop\n     CALL GEOS_CHEM_STOP\n  ENDIF\n\n  ! Free pointers\n  NULLIFY( AIRDEN )\n  NULLIFY( CLDF   )\n  NULLIFY( T      )\n\n  RETURN\n!EOC\nEND SUBROUTINE CLDICE_HBrHOBr_RXN\n"
  },
  {
    "path": "GeosCore/cldj_interface_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: cldj_interface_mod.F90\n!\n! !DESCRIPTION: Module CLDJ\\_INTERFACE\\_MOD contains routines and variables\n!  for interfacing with the Cloud-J scheme (Prather et al) that calculates\n!  photolysis rates.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE CLDJ_INTERFACE_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD\n\n  IMPLICIT NONE\n\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_CloudJ\n  PUBLIC  :: Run_CloudJ\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Set_Clim_Profiles\n  PRIVATE :: Get_RH_Index\n  PRIVATE :: CloudJ_DryRun_Check\n  PRIVATE :: Check_File_for_DryRun\n!\n! !REVISION HISTORY:\n!  14 Dec 2022 - E. Lundgren - initial version, adapted from fast_jx_mod\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: int_cloudj\n!\n! !DESCRIPTION: Subroutine INIT\\_CLOUDJ initializes Cloud-J variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_CLOUDJ( Input_Opt, State_Grid, State_Diag,                 &\n                          State_Chm, RC                                     )\n!\n! !USES:\n!\n\n! ewl: Use, inputs/outputs, and local vars could be slimmed down\n    ! ewl: if these are in cloud-j, why do I need to pass them???\n    USE Cldj_Cmn_Mod,   ONLY : JVN_, NRatJ, W_\n    USE Cldj_Init_Mod,  ONLY : Init_CldJ\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)     :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)     :: State_Grid  ! Grid State object\n    TYPE(DgnState), INTENT(IN)     :: State_Diag  ! Diagnostics State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT)  :: State_Chm   ! Chemistry State object\n\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)    :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  14 Dec 2022 - E. Lundgren - initial version, adapted from fast_jx_mod\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: notDryRun\n    INTEGER            :: NJXX\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n    CHARACTER(LEN=6)   :: TITLEJXX(JVN_)\n\n    !=================================================================\n    ! INIT_CLOUDJ begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Init_CloudJ (in module GeosCore/cldj_interface_mod.F90)'\n\n    ! If we are running a dry-run simulation, print out a list of \n    ! Cloud-J configuration files that are found or missing, then exit.\n    IF ( Input_Opt%DryRun ) THEN\n       CALL CloudJ_DryRun_Check( Input_Opt )\n       RETURN\n    ENDIF\n\n    ! Print info\n    IF ( Input_Opt%amIRoot ) THEN\n       write(6,*) ' Initializing Cloud-J'\n\n       ! ewl: can this be put into the initialization???\n       if (W_.ne.8 .and. W_.ne.12 .and. W_.ne.18) then\n          ErrMsg =  ' INIT_CLOUDJ: invalid no. wavelengths'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       endif\n    ENDIF\n\n    ! Initialize Cloud-J. Includes reading input data files\n    ! FJX_spec.dat (RD_XXX), FJX_scat-aer.dat (RD_MIE), and \n    ! FJX_j2j.dat (RD_JS_JX)\n    CALL Init_CldJ(Input_Opt%amIRoot,            &\n                   Input_Opt%CloudJ_Dir,         &\n                   State_Grid%NZ,                &\n                   Input_Opt%Nlevs_Phot_Cloud,   &\n                   TITLEJXX,                     &\n                   JVN_,                         &\n                   Input_Opt%OD_Increase_Factor, &\n                   Input_Opt%Min_Cloud_OD,       &\n                   Input_Opt%Num_WV_Bins,        &\n                   Input_Opt%Cloud_Flag,         &\n                   Input_Opt%Cloud_Corr,         &\n                   Input_Opt%Num_Max_Overlap,    &\n                   Input_Opt%Sphere_Correction,  &\n                   Input_Opt%Use_H2O_UV_Abs,     &\n                   NJXX,                         &\n                   RC)\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in subroutine Init_Cldj within Cloud-J photolysis'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Store # of photolysis reactions in State_Chm object\n    State_Chm%Phot%nPhotRxns = NRatJ\n\n  END SUBROUTINE INIT_CLOUDJ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: run_cloudj\n!\n! !DESCRIPTION: Subroutine RUN\\_CLOUDJ loops over horizontal grid boxes to call\n!  Cloud-J subroutine CLOUD\\_JX for computation of J-Values for each column.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Run_CloudJ( Input_Opt,  State_Chm, State_Diag,                  &\n                         State_Grid, State_Met, RC                          )\n!\n! !USES:\n!\n    USE Cldj_Cmn_Mod,   ONLY : L_, L1_, W_, S_, LWEPAR\n    USE Cldj_Cmn_Mod,   ONLY : JVN_, AN_, NQD_, W_r\n    USE Cldj_Cmn_Mod,   ONLY : JIND, JFACTA, FL, QAA, RAA, SAA\n    USE Cldj_Sub_Mod,   ONLY : Cloud_JX\n    USE Cmn_Size_Mod,   ONLY : NRHAER, NRH, NDUST\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : AVO, H2OMW, G0_100, PI, PI_180\n    USE State_Chm_Mod,  ONLY : ChmState, Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Time_Mod,       ONLY : GET_MONTH, GET_DAY, GET_DAY_OF_YEAR\n!ewl    USE TOMS_MOD,       ONLY : GET_OVERHEAD_O3\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt     ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm     ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid    ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met     ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag    ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  14 Dec 2022 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n    INTEGER            :: A, I, J, L, K, N, S, MaxLev, RH_ind\n    INTEGER            :: SO4_ind, BC_ind, OC_ind, SALA_ind, SALC_ind\n    INTEGER            :: S_rh0, S_rhx, K_rh0, K_rhx, ind_1000\n    REAL(8)            :: MW_g, BoxHt, Delta_P, IWC, LWC\n    REAL(8)            :: FRAC, RAA_eff, QAA_eff, SAA_eff\n    REAL(8)            :: dry_to_wet_factor\n    REAL(8)            :: R_interp_factor, Q_interp_factor\n    REAL(fp)           :: RH_lut(NRH)\n    LOGICAL, SAVE      :: FIRST = .true.\n\n    !------------------------------------------------------------------------\n    ! Solar_JX inputs\n    !------------------------------------------------------------------------\n    INTEGER  :: DAY_OF_YEAR               ! simulation day of year\n    REAL(fp) :: U0                        ! cosine of SZA\n\n    !------------------------------------------------------------------------\n    ! Set_Clim_Profiles inputs\n    !------------------------------------------------------------------------\n    INTEGER  :: MONTH, DAY                ! simulation month and day\n    REAL(fp) :: T_CTM   (State_Grid%NZ+1) ! temperature profile [K]\n    REAL(fp) :: P_CTM   (State_Grid%NZ+2) ! pressure profile (edges) [hPa]\n    REAL(fp) :: O3_CTM  (State_Grid%NZ+1) ! ozone profile [molec/cm3]\n\n    !------------------------------------------------------------------------\n    ! Cloud_JX inputs\n    !------------------------------------------------------------------------\n\n    ! Scalars\n    LOGICAL  :: LPRTJ   ! Debug prints\n    INTEGER  :: IRAN\n    REAL(fp) :: SZA             ! Computed in Solar_JX. Should this be real8?\n    REAL(fp) :: SOLF            ! Computed in Solar_JX. Should this be real8?\n    REAL(8)  :: CLDCOR\n\n    ! 1D arrays\n    INTEGER  :: CLDIW   (L1_  )\n    REAL(fp) :: T_CLIM  (L1_  ) ! Computed in Set_Prof_CloudJ, should be real8?\n    REAL(fp) :: O3_CLIM (L1_  ) ! Computed in Set_Prof_CloudJ, should be real8?\n    REAL(fp) :: AIR_CLIM(L1_  ) ! Computed in Set_Prof_CloudJ, should be real8?\n    REAL(fp) :: Z_CLIM  (L1_+1) ! Computed in Set_Prof_CloudJ, should be real8?\n    REAL(8)  :: HHH     (L1_  )\n    REAL(8)  :: RRR     (L1_  )\n    REAL(8)  :: CCC     (L1_  )\n    REAL(8)  :: LWP     (L1_  )\n    REAL(8)  :: IWP     (L1_  )\n    REAL(8)  :: REFFL   (L1_  )\n    REAL(8)  :: REFFI   (L1_  )\n    REAL(8)  :: CLDF    (L1_  )\n\n    ! 2D arrays\n    INTEGER  :: NDXAER (L1_, AN_   )\n    REAL(8)  :: AERSP  (L1_, AN_   )\n    REAL(8)  :: RFL    (5  , W_+W_r)\n\n    !------------------------------------------------------------------------\n    ! Cloud_JX outputs\n    !------------------------------------------------------------------------\n\n    ! Scalars\n    LOGICAL  :: LDARK\n    INTEGER  :: NICA\n    INTEGER  :: JCOUNT\n\n    ! 1D arrays\n    REAL(8)  :: SWMSQ (6   )\n    REAL(8)  :: OD18  (L1_ )\n    REAL(8)  :: WTQCA (NQD_)\n\n    ! 2D arrays\n    REAL(8)  :: SKPERD(S_+2, L1_)\n\n    ! Which of the below is correct???\n    REAL(8)  :: VALJXX(L_,JVN_)\n\n    !------------------------------------------------------------------------\n    ! Other local variables\n    !------------------------------------------------------------------------\n\n    ! To be retrieved from Cloud-J\n    REAL(fp) :: DiffSfcFlux(W_+W_r)\n    REAL(fp) :: DirSfcFlux(W_+W_r)\n    REAL(fp) :: DepFlux(L1_,W_+W_r)\n    REAL(fp) :: DiffTopFlux(L1_,W_+W_r)\n\n    ! For UVFlux* diagnostics\n    REAL(fp) :: FDIRECT (L1_)\n    REAL(fp) :: FDIFFUSE(L1_)\n    REAL(fp) :: UVX_CONST\n\n    ! For computing water concentration from specific humidity\n    REAL(fp) :: SPHU_kgkg\n    REAL(fp) :: H2O_kgkgdry\n    REAL(fp) :: MW_kg\n\n    ! Species ids\n    INTEGER, SAVE :: id_H2O\n    INTEGER, SAVE :: id_O3\n    INTEGER, SAVE :: id_SO4\n\n    ! Index for Cloud-J prints if GEOS-Chem verbose is on\n    INTEGER :: I_PRT, J_PRT\n\n    ! Debugging logicals to turn optical depth sources on/off\n    LOGICAL :: use_liqcld\n    LOGICAL :: use_icecld\n    LOGICAL :: use_dust\n    LOGICAL :: use_so4\n    LOGICAL :: use_bc\n    LOGICAL :: use_oc\n    LOGICAL :: use_sala\n    LOGICAL :: use_salc\n    LOGICAL :: use_stratso4\n    LOGICAL :: use_psc\n\n    !=================================================================\n    ! Run_CloudJ begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Run_CloudJ (in module GeosCore/cldj_interface_mod.F90)'\n\n    ! Set debugging logicals to turn optical depth sources on/off. If using,\n    ! uncomment where they are appear later in this file. They are commented out by\n    ! default to avoid unnecessary slow-down.\n    use_liqcld   = .true.\n    use_icecld   = .true.\n    use_dust     = .true.\n    use_so4      = .true.\n    use_bc       = .true.\n    use_oc       = .true.\n    use_sala     = .true.\n    use_salc     = .true.\n    use_stratso4 = .true.\n    use_psc      = .true.\n\n    ! Aerosol indexes (must match mapping set in RD_AOD)\n    SO4_ind  = 1\n    BC_ind   = 2\n    OC_ind   = 3\n    SALA_ind = 4\n    SALC_ind = 5\n\n    ! Relative humidities in FJX_spec-aer.dat\n    RH_lut(1) = 0.d0\n    RH_lut(2) = 50.d0\n    RH_lut(3) = 70.d0\n    RH_lut(4) = 80.d0\n    RH_lut(5) = 90.d0\n\n    ! Index for wavelength 1000 in optical property LUT\n    ind_1000 = 5\n\n    ! Diagnostic initialization\n    IF ( State_Diag%Archive_UVFluxDiffuse ) State_Diag%UVFluxDiffuse = 0.0_f4\n    IF ( State_Diag%Archive_UVFluxDirect  ) State_Diag%UVFluxDirect  = 0.0_f4\n    IF ( State_Diag%Archive_UVFluxNet     ) State_Diag%UVFluxNet     = 0.0_f4\n    IF ( State_Diag%Archive_OD600         ) State_Diag%OD600         = 0.0_f4\n    IF ( State_Diag%Archive_TCOD600       ) State_Diag%TCOD600       = 0.0_f4\n#if defined( MODEL_GEOS )\n    ! TODO: implement these\n    IF ( State_Diag%Archive_EXTRALNLEVS ) State_Diag%EXTRALNLEVS = 0.0\n    IF ( State_Diag%Archive_EXTRALNITER ) State_Diag%EXTRALNITER = 0.0\n#endif\n\n    ! Set species ids for use in diagnostics\n    IF ( FIRST ) THEN\n       id_H2O  = Ind_('H2O')\n       id_O3   = Ind_('O3')\n       id_SO4  = Ind_('SO4')\n       IF ( id_O3 <= 0 ) THEN\n          ErrMsg = 'O3 is not a defined species but is required for Cloud-J photolysis!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n \n    ! Constant values across grid boxes\n    MONTH       = GET_MONTH()\n    DAY         = GET_DAY()\n    DAY_OF_YEAR = GET_DAY_OF_YEAR()\n\n\n    ! ewl: set NDXAER to MIEDX duplicated for all levels. If this works\n    ! will want to store this elsewhere. Don't want to do this computation\n    ! every timestep.\n    ! Why isn't this integer???\n    ! Should change MIEDX to be NDXAER for cloud-j?\n    NDXAER(:,:) = 0.d0\n    DO N = 1, AN_\n    DO L = 1, L1_\n       NDXAER(L,N) = State_Chm%Phot%MIEDX(N)\n    ENDDO\n    ENDDO\n\n    !=================================================================\n    ! For each column compute Cloud-J inputs and call Cloud_JX to compute J-values\n    !=================================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( A, I, J, L, K, N, S, MW_g, BoxHt, RH_ind                    ) &\n    !$OMP PRIVATE( S_rh0, S_rhx, K_rh0, K_rhx, FRAC, RAA_eff, QAA_eff, SAA_eff ) &\n    !$OMP PRIVATE( dry_to_wet_factor, SPHU_kgkg, H2O_kgkgdry, MW_kg            ) &\n    !$OMP PRIVATE( R_interp_factor, Q_interp_factor                            ) &\n    !$OMP PRIVATE( U0, SZA, SOLF, T_CTM, P_CTM,  O3_CTM                        ) &\n    !$OMP PRIVATE( T_CLIM, O3_CLIM, AIR_CLIM, Z_CLIM                           ) &\n    !$OMP PRIVATE( CLDIW, CLDF, IWP, LWP, REFFI, REFFL, IWC, LWC, DELTA_P      ) &\n    !$OMP PRIVATE( AERSP, RFL, RRR, LPRTJ, IRAN, CLDCOR, HHH, CCC              ) &\n    !$OMP PRIVATE( LDARK, NICA, JCOUNT, SWMSQ, OD18, WTQCA, SKPERD, VALJXX     ) &\n    !$OMP PRIVATE( DiffSfcFlux, DirSfcFlux, DepFlux, DiffTopFlux               ) &\n    !$OMP PRIVATE( FDIRECT, FDIFFUSE, UVX_CONST                                ) &\n    !$OMP SCHEDULE( DYNAMIC )\n\n    ! Loop over all latitudes and all longitudes\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Debug prints in Cloud-J. Limit to one grid cell so not excessive.\n       ! Use this for debugging purposes only.\n       LPRTJ = .false.\n       I_PRT = 20\n       J_PRT = 20\n       IF ( Input_Opt%CloudJ_Verbose ) THEN\n          IF ( I == I_PRT .and. J == J_PRT ) THEN\n             print*, &\n               \"cldj_interface_mod.F90: Cloud-J prints on for lat, lon: \", &\n               State_Grid%GlobalYMid(I,J), State_Grid%GlobalXMid(I,J)\n             LPRTJ = .true.\n          ENDIF\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Solar zenith angle\n       !-----------------------------------------------------------------\n\n       ! Cosine of solar zenith angle [unitless]\n       U0 = State_Met%SUNCOSmid(I,J)\n\n       ! Solar zenith angle\n       SZA = ACOS( MIN( MAX( U0, -1._fp ), 1._fp ) ) / PI_180\n\n       ! Skip if dark conditions SZA > 98.0 deg => tan ht = 63 km\n       if (SZA .gt. 98.e+0_fp) cycle\n\n       ! Offset used for GEOS-Chem with fast-jx is 186; 172 in Cloud-J\n       SOLF  = 1.e+0_fp - ( 0.034e+0_fp   &\n               * cos( dble( DAY_OF_YEAR - 172 ) * 2.e+0_fp * PI / 365.e+0_fp ) )\n\n       !-----------------------------------------------------------------\n       ! Vertical climatology profiles\n       !-----------------------------------------------------------------\n       ! Cloud-J requires climatology vertical profiles for:\n       !    Temperature               [K]\n       !    Ozone                     [# O3 molec/cm2]\n       !    Edge altitude             [cm]\n       !    Path density (air column) [# molec/cm2]\n       ! We compute these from CTM values per timestep\n\n       ! Temperature profile [K]\n       T_CTM(1:State_Grid%NZ) = State_Met%T(I,J,1:State_Grid%NZ)\n       T_CTM(State_Grid%NZ+1) = T_CTM(State_Grid%NZ)\n\n       ! Pressure profile [hPa]\n       P_CTM(1:State_Grid%NZ+1) = State_Met%PEDGE(I,J,1:State_Grid%NZ+1)\n       P_CTM(State_Grid%NZ+2) = State_Met%PEDGE(I,J,State_Grid%NZ+1) / 10.d0\n\n       ! Ozone profile [molec/cm3]\n       MaxLev = State_Met%ChemGridLev(I,J)\n       O3_CTM = 0e+0_fp\n       O3_CTM(1:MaxLev) = State_Chm%Species(id_O3)%Conc(I,J,1:MaxLev)\n\n       ! Compute climatology. This subroutine is analogous to Cloud-J ACLIM_FJX.\n       CALL Set_Clim_Profiles( I,          J,         MONTH,                 &\n                               DAY,        T_CTM,     P_CTM,                 &\n                               O3_CTM,     T_CLIM,    O3_CLIM,               &\n                               Z_CLIM,     AIR_CLIM,  Input_Opt,             &\n                               State_Grid, State_Chm, State_Met             )\n\n       !-----------------------------------------------------------------\n       ! Clouds and humidity\n       !-----------------------------------------------------------------\n\n       CLDIW(:) = 0     ! Cloud type flag [0=none, 1=water, 2=ice, 3=both]\n       CLDF(:)  = 0.d0  ! Cloud fraction [unitless]\n       IWP(:)   = 0.d0  ! Ice cloud mass   [g/m2]\n       LWP(:)   = 0.d0  ! Water cloud mass [g/m2]\n       REFFI(:) = 0.d0  ! Ice cloud effective radius   [microns]\n       REFFL(:) = 0.d0  ! Water cloud effective radius [microns]\n\n       ! Set cloud fraction from input meteorology field\n       CLDF(1:State_Grid%NZ) = State_Met%CLDF(I,J,1:State_Grid%NZ)\n       CLDF(State_Grid%NZ+1) = CLDF(State_Grid%NZ)\n\n       ! Set relative humidity from input meteorology field and convert\n       ! from percent to fraction\n       RRR(1:State_Grid%NZ) = State_Met%RH(I,J,1:State_Grid%NZ) / 100.d0\n\n       ! Set top of atmosphere relative humidity to 10% of layer below\n       RRR(State_Grid%NZ+1) = RRR(State_Grid%NZ) * 1.d-1\n\n       ! Loop over # layers in cloud-j (layers with clouds)\n       DO L = 1, LWEPAR\n\n          ! Get in-cloud liquid and ice water content from met-fields [kg/kg]\n          LWC = State_Met%QL(I,J,L)\n          IWC = State_Met%QI(I,J,L)\n\n          ! Compute cloud type flag and reset cloud fraction if below threshold\n          IF ( CLDF(L) .GT. 0.005d0 ) THEN\n             IF ( LWC .GT. 1.d-11 ) CLDIW(L) = 1\n             IF ( IWC .GT. 1.d-11 ) CLDIW(L) = CLDIW(L) + 2\n          ELSE\n             CLDF(L) = 0.d0\n          ENDIF\n\n          ! NOTES ON EFFECTIVE RADIUS FROM M. PRATHER:\n          ! Compute effective radius [microns] of liquid water cloud and liquid ice cloud\n          ! based on met-fields for in-cloud water content and in-cloud optical depth.\n          !\n          ! Note: The approach used here is consistent with the cloud optical depth\n          ! calculation within Cloud-J but makes an assumption of extinction efficiency\n          ! Q = 2.06. This works because all cloud Reffs are much bigger\n          ! (2*pi*Reff >> 500 nm) so that Q (extinction efficiency = optical cross\n          ! section / pi*r*r) is nearly constant at 2.06 (see the cloud scattering\n          ! tables in Cloud-J).\n\n          ! Compute liquid water path [g/m2] and effective radius [microns]\n          DELTA_P = P_CTM(L) - P_CTM(L+1)\n          IF ( State_Met%TAUCLW(I,J,L) .GT. 0.d0 ) THEN\n             LWP(L) = 1000.d0 * LWC * DELTA_P * g0_100\n             REFFL(L) = LWP(L) * 0.75d0 * 2.06d0 / ( State_Met%TAUCLW(I,J,L) * 1.d0 )\n          ENDIF\n\n          ! Compute ice water path [g/m2] and effective radius [microns]\n          IF ( State_Met%TAUCLI(I,J,L) .GT. 0.d0 ) THEN\n             IWP(L) = 1000.d0 * IWC * DELTA_P * g0_100\n             REFFI(L) = IWP(L) * 0.75d0 * 2.06d0 / ( State_Met%TAUCLI(I,J,L) * 0.917d0 )\n          ENDIF\n\n       ENDDO\n\n       !-----------------------------------------------------------------\n       ! Water concentration [molecules/cm2] for UV absorption by H2O\n       !-----------------------------------------------------------------\n       IF ( id_H2O > 0 ) THEN\n\n          ! Set water concentration from species concentration currently in [molecules/cm3]\n          DO L= 1, State_Grid%NZ\n             HHH(L) = State_Chm%Species(id_H2O)%Conc(I,J,L) * State_Met%BXHEIGHT(I,J,L) * 1.0e+2_fp\n          ENDDO\n\n       ELSE\n\n          DO L= 1, State_Grid%NZ\n\n             ! Convert specific humidity from [g H2O/kg total air] to [kg H2O/kg total air]\n             SPHU_kgkg = State_Met%SPHU(I,J,L) * 1.e-3_fp\n\n             ! Compute H2O concentration as [kg/kg dry air]\n             H2O_kgkgdry = SPHU_kgkg / ( 1.0e+0_fp - SPHU_kgkg )\n\n             ! Compute H2O molecular weight as [kg/mol]\n             MW_kg = H2OMW * 1.e-3_fp\n\n             ! Convert [kg/kg dry] to [molecules/cm2]\n             HHH(L) = H2O_kgkgdry * State_Met%AIRDEN(I,J,L) * State_Met%BXHEIGHT(I,J,L) &\n                  * 1.0e-4_fp * AVO / MW_kg\n\n       ENDDO\n       ENDIF\n       HHH(State_Grid%NZ+1) = HHH(State_Grid%NZ)\n\n       !-----------------------------------------------------------------\n       ! Compute aerosol concentrations [g/m2]\n       !-----------------------------------------------------------------\n       ! AERSP is column concentration in g/m2 for each aerosol. The array currently\n       ! includes entries for clouds but these are not used in Cloud-J and can be\n       ! left as zero. Clouds are handled separately using water path and effective\n       ! radius computed above.\n       !\n       ! AERSP size is (L1_, AN_) where,\n       !    AN_ is # of separate aerosols per layer (=37 for GEOS-Chem)\n       !    L1_ is # of layer of edges (=73)\n\n       ! Initialize conentration array to zero\n       AERSP(:,:) = 0.d0\n\n       ! Only populate aerosol concentration array if using fullchem or aerosol\n       ! simulation. Mercury simulation does not carry dust/aerosols as species.\n\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM .OR. Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n          ! Set values in loop over levels\n          DO L= 1, State_Grid%NZ\n\n             ! Layer height [m]\n             BoxHt = State_Met%BXHEIGHT(I,J,L)\n\n             !---------------------------------------\n             !  Non-aerosols in array\n             !--------------------------------------\n             ! Leave AERSP(L,1:3) as zero since non-aerosols (black carbon\n             ! absorber, water cloud, and irregular ice cloud)\n\n             !---------------------------------------\n             !  Mineral dust [kg/m3] -> [g/m2]\n             !--------------------------------------\n             DO K = 4, 10\n                AERSP(L,K) = State_Chm%SOILDUST(I,J,L,K-3) * BoxHt * 1.d3\n             ENDDO\n\n             !---------------------------------------\n             ! Aerosols undergoing hydroscopic growth\n             !--------------------------------------\n             IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n                ! For aerosols undergoing hygroscopic growth we need to pass the\n                ! concentration that will be used in Cloud-J with humidity-dependent\n                ! parameters. This means we need to convert from dry to wet concentration\n                ! depending on this grid cell's humidity. We do this by computing an\n                ! effective radius by linearly interpolating between LUT radius values\n                ! for each aerosol given the current relative humidity and then applying\n                ! a wet to dry conversion factor of ( Reff / Rdry )^^3 to the dry\n                ! concentration. This is only done for the hydrophilic concentrations.\n                ! Hydrophobic black and organic carbon are not converted to wet.\n                !\n                ! In addition to this we apply two conversion factors to take into account\n                ! that Cloud-J does not interpolate extinction and effective radius between\n                ! relative humidity entries in FJX_spec-aer.dat when computing optical\n                ! depth. A conversion factor based on linear interpolation of the parameters\n                ! is computed and applied to the concentration passed into Cloud-J. This\n                ! effectively scales the extinction and radius within the optical depth\n                ! calculation within Cloud-J. For consistency with Fast-JX previously\n                ! implemented in GEOS-Chem we use values at 1000 nm for extinction interpolation.\n                !\n                ! We also separate the concentration array into 5 different arrays,\n                ! one for each relative humidity entry in FJX_spec-aer.dat. Values are\n                ! zero in each array except where current relative humidity falls within the\n                ! pre-defined relative humidity range for each entry. For example,\n                ! AERSP(L,11-15) are 5 values of sulfate for the same grid box. If RH is\n                ! between 0 and 50 then only AERSP(L,11) is non-zero. AERSP(L,12:15) are\n                ! all zero values.\n\n                ! Humidity bin for aerosols (1:<=50, 2:<=70, 3:<=80; 4:<=90, else 5)\n                RH_ind = Get_RH_Index( State_Met%RH(I,J,L) )\n\n                !----------------------------------------------------\n                ! Sulfate [dry molec/cm3] -> [wet g/m2] (troposphere only)\n                !----------------------------------------------------\n\n                IF ( Input_Opt%LSULF .AND. State_Met%InTroposphere(I,J,L) ) THEN\n\n                   ! Get indexes to optical property LUT\n                   S_rh0 = 3 + NDUST + NRHAER*(SO4_ind-1) + 1  ! SO4 index for RH=0 in NDXAER\n                   S_rhx = S_rh0 + RH_ind - 1  ! Sulfate index for this RH\n                   K_rh0 = NDXAER(L,S_rh0)     ! index for RH=0 in FJX_spec-aer.dat\n                   K_rhx = NDXAER(L,S_rhx)     ! index for this RH in FJX_spec-aer.dat\n\n                   ! Get interpolated effective radius and extinction for RH in this grid box\n                   IF ( RH_ind == NRH ) THEN\n                      RAA_eff = RAA(K_rhx)\n                      QAA_eff = QAA(ind_1000,K_rhx)\n                   ELSE\n                      FRAC = ( State_Met%RH(I,J,L) - RH_lut(RH_ind) ) &\n                           / ( RH_lut(RH_ind+1) - RH_lut(RH_ind) )\n                      RAA_eff = RAA(K_rhx) + FRAC * ( RAA(K_rhx+1) - RAA(K_rhx) )\n                      QAA_eff = QAA(ind_1000,K_rhx) &\n                           + FRAC * ( QAA(ind_1000,K_rhx+1) - QAA(ind_1000,K_rhx) )\n                   ENDIF\n                   dry_to_wet_factor = ( RAA_eff / RAA(K_rh0) )**3\n                   R_interp_factor = RAA_eff / RAA(K_rhx)\n                   Q_interp_factor = QAA_eff / QAA(ind_1000,K_rhx)\n\n                   ! Set concentration, converting [dry kg/m3] -> [wet g/m2]\n                   AERSP(L,S_rhx) = State_Chm%AerMass%SO4_NH4_NIT(I,J,L) * BoxHt * 1.d3 * dry_to_wet_factor &\n                        * Q_interp_factor / R_interp_factor\n\n                ENDIF\n\n                !----------------------------------------------------\n                ! Carbon\n                !----------------------------------------------------\n                IF ( Input_Opt%LCARB ) THEN\n\n                   !----------------------------------------------------\n                   ! Black carbon\n                   !----------------------------------------------------\n\n                   ! Get indexes to optical property LUT\n                   S_rh0 = 3 + NDUST + NRHAER*(BC_ind-1) + 1  ! BC index for RH=0 in NDXAER\n                   S_rhx = S_rh0 + RH_ind - 1  ! BC index for this RH\n                   K_rh0 = NDXAER(L,S_rh0)     ! index for RH=0 in FJX_spec-aer.dat\n                   K_rhx = NDXAER(L,S_rhx)     ! index for this RH in FJX_spec-aer.dat\n\n                   ! Get interpolated effective radius and extinction for RH in this grid box\n                   IF ( RH_ind == NRH ) THEN\n                      RAA_eff = RAA(K_rhx)          ! effective radius\n                      QAA_eff = QAA(ind_1000,K_rhx) ! scattering phase function\n                      SAA_eff = SAA(ind_1000,K_rhx) ! single scattering albedo\n                   ELSE\n                      FRAC = ( State_Met%RH(I,J,L) - RH_lut(RH_ind) ) &\n                           / ( RH_lut(RH_ind+1) - RH_lut(RH_ind) )\n                      RAA_eff = RAA(K_rhx) + FRAC * ( RAA(K_rhx+1) - RAA(K_rhx) )\n                      QAA_eff = QAA(ind_1000,K_rhx) + FRAC * ( QAA(ind_1000,K_rhx+1) - QAA(ind_1000,K_rhx) )\n                      SAA_eff = SAA(ind_1000,K_rhx) + FRAC * ( SAA(ind_1000,K_rhx+1) - SAA(ind_1000,K_rhx) )\n                   ENDIF\n                   dry_to_wet_factor = ( RAA_eff / RAA(K_rh0) )**3\n                   R_interp_factor = RAA_eff / RAA(K_rhx)\n                   Q_interp_factor = QAA_eff / QAA(ind_1000,K_rhx)\n\n                   ! Set concentration\n                   IF ( Input_Opt%LBCAE ) THEN\n\n                      ! Apply BC absorption enhancement (if using) first for hydrophilic BC\n                      AERSP(L,S_rhx) = State_Chm%AerMass%BCPI(I,J,L)                    &\n                           * ( Input_Opt%BCAE_1 + SAA_eff * (1.d0 - Input_Opt%BCAE_1) ) &\n                           * dry_to_wet_factor * Q_interp_factor / R_interp_factor\n\n                      ! Now apply hydrophobic using single scattering albedo for zero humidity\n                      AERSP(L,S_rhx) = AERSP(L,S_rhx) + State_Chm%AerMass%BCPO(I,J,L) &\n                           * ( Input_Opt%BCAE_2 + SAA(ind_1000,K_rh0) * (1.d0 - Input_Opt%BCAE_2) )\n                   ELSE\n\n                      ! No BC absorption enhancement\n                      AERSP(L,S_rhx) = State_Chm%AerMass%BCPO(I,J,L) &\n                           + State_Chm%AerMass%BCPI(I,J,L)           &\n                           * dry_to_wet_factor * Q_interp_factor / R_interp_factor\n\n                   ENDIF\n\n                   ! Convert to [dry kg/m3] -> [wet g/m2]\n                   AERSP(L,S_rhx) = AERSP(L,S_rhx) * 1.d3 * BoxHt\n\n                   !----------------------------------------------------\n                   ! Organic carbon\n                   !----------------------------------------------------\n\n                   ! Get indexes to optical property LUT\n                   S_rh0 = 3 + NDUST + NRHAER*(OC_ind-1) + 1  ! OC index for RH=0 in NDXAER\n                   S_rhx = S_rh0 + RH_ind - 1  ! OC index for this RH\n                   K_rh0 = NDXAER(L,S_rh0)     ! index for RH=0 in FJX_spec-aer.dat\n                   K_rhx = NDXAER(L,S_rhx)     ! index for this RH in FJX_spec-aer.dat\n\n                   ! Get interpolated effective radius and extinction for RH in this grid box\n                   IF ( RH_ind == NRH ) THEN\n                      RAA_eff = RAA(K_rhx)\n                      QAA_eff = QAA(ind_1000,K_rhx)\n                   ELSE\n                      FRAC = ( State_Met%RH(I,J,L) - RH_lut(RH_ind) ) &\n                           / ( RH_lut(RH_ind+1) - RH_lut(RH_ind) )\n                      RAA_eff = RAA(K_rhx) + FRAC * ( RAA(K_rhx+1) - RAA(K_rhx) )\n                      QAA_eff = QAA(ind_1000,K_rhx) + FRAC * ( QAA(ind_1000,K_rhx+1) - QAA(ind_1000,K_rhx) )\n                   ENDIF\n                   dry_to_wet_factor = ( RAA_eff / RAA(K_rh0) )**3\n                   R_interp_factor = RAA_eff / RAA(K_rhx)\n                   Q_interp_factor = QAA_eff / QAA(ind_1000,K_rhx)\n\n                   ! Set concentration, converting [dry kg/m3] -> [wet g/m2]\n                   AERSP(L,S_rhx) = ( State_Chm%AerMass%OCPO(I,J,L)                 &\n                        + ( State_Chm%AerMass%OCPISOA(I,J,L)                        &\n                        * dry_to_wet_factor * Q_interp_factor / R_interp_factor ) ) &\n                        * 1.d3 * BoxHt\n\n                ENDIF\n\n                !----------------------------------------------------\n                ! Seasalt [dry molec/cm3] -> [wet g/m2]\n                !----------------------------------------------------\n\n                IF ( Input_Opt%LSSALT ) THEN\n\n                   !----------------------------------------------------\n                   ! Accumulation mode seasalt\n                   !----------------------------------------------------\n\n                   ! Get indexes to optical property LUT\n                   S_rh0 = 3 + NDUST + NRHAER*(SALA_ind-1) + 1  ! SALA index for RH=0 in NDXAER\n                   S_rhx = S_rh0 + RH_ind - 1  ! SALA index for this RH\n                   K_rh0 = NDXAER(L,S_rh0)     ! index for RH=0 in FJX_spec-aer.dat\n                   K_rhx = NDXAER(L,S_rhx)     ! index for this RH in FJX_spec-aer.dat\n\n                   ! Get interpolated effective radius and extinction for RH in this grid box\n                   IF ( RH_ind == NRH ) THEN\n                      RAA_eff = RAA(K_rhx)\n                      QAA_eff = QAA(ind_1000,K_rhx)\n                   ELSE\n                      FRAC = ( State_Met%RH(I,J,L) - RH_lut(RH_ind) ) &\n                           / ( RH_lut(RH_ind+1) - RH_lut(RH_ind) )\n                      RAA_eff = RAA(K_rhx) + FRAC * ( RAA(K_rhx+1) - RAA(K_rhx) )\n                      QAA_eff = QAA(ind_1000,K_rhx) + FRAC * ( QAA(ind_1000,K_rhx+1) - QAA(ind_1000,K_rhx) )\n                   ENDIF\n                   dry_to_wet_factor = ( RAA_eff / RAA(K_rh0) )**3\n                   R_interp_factor = RAA_eff / RAA(K_rhx)\n                   Q_interp_factor = QAA_eff / QAA(ind_1000,K_rhx)\n\n                   ! Set concentration, converting [dry kg/m3] -> [wet g/m2]\n                   AERSP(L,S_rhx) = State_Chm%AerMass%SALA(I,J,L) * BoxHt * 1.d3 * dry_to_wet_factor &\n                        * Q_interp_factor / R_interp_factor\n\n                   !----------------------------------------------------\n                   ! Coarse seasalt\n                   !----------------------------------------------------\n\n                   ! Get indexes to optical property LUT\n                   S_rh0 = 3 + NDUST + NRHAER*(SALC_ind-1) + 1  ! SALC index for RH=0 in NDXAER\n                   S_rhx = S_rh0 + RH_ind - 1  ! SALC index for this RH\n                   K_rh0 = NDXAER(L,S_rh0)     ! index for RH=0 in FJX_spec-aer.dat\n                   K_rhx = NDXAER(L,S_rhx)     ! index for this RH in FJX_spec-aer.dat\n\n                   ! Get interpolated effective radius and extinction for RH in this grid box\n                   IF ( RH_ind == NRH ) THEN\n                      RAA_eff = RAA(K_rhx)\n                      QAA_eff = QAA(ind_1000,K_rhx)\n                   ELSE\n                      FRAC = ( State_Met%RH(I,J,L) - RH_lut(RH_ind) ) &\n                           / ( RH_lut(RH_ind+1) - RH_lut(RH_ind) )\n                      RAA_eff = RAA(K_rhx) + FRAC * ( RAA(K_rhx+1) - RAA(K_rhx) )\n                      QAA_eff = QAA(ind_1000,K_rhx) + FRAC * ( QAA(ind_1000,K_rhx+1) - QAA(ind_1000,K_rhx) )\n                   ENDIF\n                   dry_to_wet_factor = ( RAA_eff / RAA(K_rh0) )**3\n                   R_interp_factor = RAA_eff / RAA(K_rhx)\n                   Q_interp_factor = QAA_eff / QAA(ind_1000,K_rhx)\n\n                   ! Set concentration, converting [dry molec/cm3] -> [wet g/m2]\n                   AERSP(L,S_rhx) = State_Chm%AerMass%SALC(I,J,L) * BoxHt  * 1.d3 * dry_to_wet_factor &\n                        * Q_interp_factor / R_interp_factor\n\n                ENDIF\n\n             ENDIF\n\n             !------------------------\n             ! Stratospheric aerosols\n             !------------------------\n\n             MW_g = State_Chm%SpcData(id_SO4)%Info%MW_g\n\n             ! Use sulfate concentration for stratospheric aerosols. Only set if the optical\n             ! depth computed in GEOS-Chem is non-zero.\n\n             !  SSA/LBS/STS\n             IF ( State_Chm%Phot%ODAER(I,J,L,State_Chm%Phot%IWV1000,6) > 0._fp ) THEN\n                AERSP(L,36) = State_Chm%Species(id_SO4)%Conc(I,J,L) &\n                     * MW_g / AVO * BoxHt * 1e+6_fp\n             ENDIF\n\n             !  NAT/ice PSCs\n             IF ( State_Chm%Phot%ODAER(I,J,L,State_Chm%Phot%IWV1000,7) > 0._fp ) THEN\n                AERSP(L,37) = State_Chm%Species(id_SO4)%Conc(I,J,L) &\n                     * MW_g / AVO * BoxHt * 1e+6_fp\n             ENDIF\n\n          ENDDO ! levels\n\n       ENDIF ! fullchem/aerosol simulation only\n          \n       ! Set TOA equal to concentration in top level\n       AERSP(State_Grid%NZ+1,:) = AERSP(State_Grid%NZ,:)\n\n       ! Debugging option to set contributions from different sources to zero.\n       ! Uncomment if using.\n       !IF ( .NOT. use_liqcld   ) LWP(:)         = 0.d0\n       !IF ( .NOT. use_icecld   ) IWP(:)         = 0.d0\n       !IF ( .NOT. use_dust     ) AERSP(:,4:10)  = 0.d0\n       !IF ( .NOT. use_so4      ) AERSP(:,11:15) = 0.d0\n       !IF ( .NOT. use_bc       ) AERSP(:,16:20) = 0.d0\n       !IF ( .NOT. use_oc       ) AERSP(:,21:25) = 0.d0\n       !IF ( .NOT. use_sala     ) AERSP(:,26:30) = 0.d0\n       !IF ( .NOT. use_salc     ) AERSP(:,31:35) = 0.d0\n       !IF ( .NOT. use_stratso4 ) AERSP(:,36)    = 0.d0\n       !IF ( .NOT. use_psc      ) AERSP(:,37)    = 0.d0\n\n       !-----------------------------------------------------------------\n       ! Set remaining inputs needed for Cloud_JX\n       !-----------------------------------------------------------------\n\n       ! UV surface albedo [unitless]\n       ! Use same value for all levels and wavelengths\n       RFL(1:5,:) = State_Met%UVALBEDO(I,J)\n\n       ! Cloud correlation coefficient\n       CLDCOR = 0.33\n\n       ! Only used for CLDFLAG = 5\n       IRAN = 1\n\n       ! Required variables that are not used\n       CCC = 0.d0\n\n       !-----------------------------------------------------------------\n       ! Call Cloud_JX\n       !-----------------------------------------------------------------\n       \n       ! Cloud_JX output list for easy reference:\n       ! SKPERD, SWMSQ, OD18, NICA, JCOUNT, LDARK, WTQCA\n\n       ! ewl debug\n       IF ( LPRTJ ) THEN\n          print *, \"Calling Cloud_JX with the following inputs: \"\n          print *, \" -> U0       : \", U0\n          print *, \" -> SZA      : \", SZA\n          print *, \" -> RFL      : \", RFL\n          print *, \" -> SOLF     : \", SOLF\n          print *, \" -> P_CTM    : \", P_CTM\n          print *, \" -> Z_CLIM   : \", Z_CLIM\n          print *, \" -> T_CLIM   : \", T_CLIM\n          print *, \" -> HHH      : \", HHH\n          print *, \" -> AIR_CLIM : \", AIR_CLIM\n          print *, \" -> RRR      : \", RRR\n          print *, \" -> O3_CLIM  : \", O3_CLIM\n          print *, \" -> CCC      : \", CCC\n          print *, \" -> LWP      : \", LWP\n          print *, \" -> IWP      : \", IWP\n          print *, \" -> REFFL    : \", REFFL\n          print *, \" -> REFFI    : \", REFFI\n          print *, \" -> CLDF     : \", CLDF\n          print *, \" -> CLDCOR   : \", CLDCOR\n          print *, \" -> CLDIW    : \", CLDIW\n          print *, \" -> AERSP    : \", AERSP\n          print *, \" -> IRAN     : \", IRAN\n       ENDIF\n\n       CALL Cloud_JX( U0,       SZA,      RFL,      SOLF,     LPRTJ,       &\n                      P_CTM,    Z_CLIM,   T_CLIM,   HHH,      AIR_CLIM,    &\n                      RRR,      O3_CLIM,  CCC,      LWP,      IWP,         &\n                      REFFL,    REFFI,    CLDF,     CLDCOR,   CLDIW,       &\n                      AERSP,    NDXAER,   L1_,      AN_,      JVN_,        &\n                      VALJXX,   SKPERD,   SWMSQ,    OD18,     IRAN,        &\n                      NICA,     JCOUNT,   LDARK,    WTQCA,    RC,          &\n                      DirSfcFlux=DirSfcFlux, DiffSfcFlux=DiffSfcFlux,      &\n                      DepFlux=DepFlux,       DiffTopFlux=DiffTopFlux      )\n\n       !-----------------------------------------------------------------\n       ! Fill GEOS-Chem array ZPJ with J-values\n       !-----------------------------------------------------------------\n       DO L=1,State_Met%MaxChemLev\n          DO K=1,State_Chm%Phot%nPhotRxns\n             IF (JIND(K).gt.0) THEN\n                State_Chm%Phot%ZPJ(L,K,I,J) = VALJXX(L,JIND(K))*JFACTA(K)\n             ELSE\n                State_Chm%Phot%ZPJ(L,K,I,J) = 0.e+0_fp\n             ENDIF\n          ENDDO\n       ENDDO\n\n       ! Set J-rates outside the chemgrid to zero\n       IF (State_Met%MaxChemLev.lt.L_) THEN\n          DO L=State_Met%MaxChemLev+1,L_\n             DO K=1,State_Chm%Phot%nPhotRxns\n                State_Chm%Phot%ZPJ(L,K,I,J) = 0.e+0_fp\n             ENDDO\n          ENDDO\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Diagnostics for 600 nm optical depth computed in Cloud-J\n       !-----------------------------------------------------------------\n       IF ( State_Diag%Archive_OD600 ) THEN\n          State_Diag%OD600(I,J,1:State_Grid%NZ) = OD18(1:State_Grid%NZ)\n       ENDIF\n       IF ( State_Diag%Archive_TCOD600 ) THEN\n          State_Diag%TCOD600(I,J) = SUM(OD18(:))\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! UV radiative flux diagnostics (direct, diffuse, net) [W/m2]\n       ! Convention: negative is downwards\n       !-----------------------------------------------------------------\n       IF ( State_Diag%Archive_UVFluxDiffuse .or. &\n            State_Diag%Archive_UVFluxDirect .or. &\n            State_Diag%Archive_UVFluxNet ) THEN\n       \n          ! Loop over wavelength bins\n          DO K = 1, W_\n       \n             ! Initialize\n             FDIRECT  = 0.0_fp\n             FDIFFUSE = 0.0_fp\n       \n             ! Direct & diffuse fluxes at each level\n             FDIRECT(1)  = DirSfcFlux(K)                    ! surface\n             FDIFFUSE(1) = DiffSfcFlux(K)                   ! surface\n             DO L = 2, State_Grid%NZ\n                FDIRECT(L) = FDIRECT(L-1) + DepFlux(L-1,K)\n                FDIFFUSE(L) = DiffTopFlux(L-1,K)\n             ENDDO\n       \n             ! Constant to multiply UV fluxes at each wavelength bin\n             UVX_CONST = SOLF * FL(K) * State_Chm%Phot%UVXFACTOR(K)\n       \n             ! Archive into diagnostic arrays\n             DO L = 1, State_Grid%NZ\n       \n                IF ( State_Diag%Archive_UVFluxNet ) THEN\n                   S = State_Diag%Map_UvFluxNet%id2slot(K)\n                   IF ( S > 0 ) THEN\n                      State_Diag%UVFluxNet(I,J,L,S) =  &\n                      State_Diag%UVFluxNet(I,J,L,S) +  &\n                           ( ( FDIRECT(L) + FDIFFUSE(L) ) * UVX_CONST )\n                   ENDIF\n                ENDIF\n       \n                IF ( State_Diag%Archive_UVFluxDirect ) THEN\n                   S = State_Diag%Map_UvFluxDirect%id2slot(K)\n                   IF ( S > 0 ) THEN\n                      State_Diag%UVFluxDirect(I,J,L,S) =  &\n                      State_Diag%UVFluxDirect(I,J,L,S) +  &\n                           ( FDIRECT(L) * UVX_CONST )\n                   ENDIF\n                ENDIF\n       \n                IF ( State_Diag%Archive_UVFluxDiffuse ) THEN\n                   S = State_Diag%Map_UvFluxDiffuse%id2slot(K)\n                   IF ( S > 0 ) THEN\n                      State_Diag%UVFluxDiffuse(I,J,L,S) =  &\n                      State_Diag%UVFluxDiffuse(I,J,L,S) +  &\n                           ( FDIFFUSE(L) * UVX_CONST )\n                   ENDIF\n                ENDIF\n             ENDDO\n          ENDDO\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in subroutine Cloud_JX within Cloud-J photolysis'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Reset first-time flag\n    FIRST=.FALSE.\n\n  END SUBROUTINE Run_CloudJ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_clim_profiles\n!\n! !DESCRIPTION: Subroutine SET\\_CLIM_\\PROFILES sets vertical climatology profiles\n!  for a given latitude and longitude.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Clim_Profiles( ILON,       ILAT,       MONTH,               &\n                                DAY,        T_CTM,      P_CTM,               &\n                                O3_CTM,     T_CLIM,     O3_CLIM,             &\n                                Z_CLIM,     AIR_CLIM,   Input_Opt,           &\n                                State_Grid, State_Chm,  State_Met           )\n!\n! !USES:\n!\n    USE Cldj_Cmn_Mod,    ONLY : L_, L1_, ZZHT\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE PhysConstants,   ONLY : AIRMW, AVO, g0, BOLTZ\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Met_Mod,   ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: ILON            ! Longitude index\n    INTEGER,        INTENT(IN) :: ILAT            ! Latitude index\n    INTEGER,        INTENT(IN) :: MONTH           ! Month\n    INTEGER,        INTENT(IN) :: DAY             ! Day *of month*\n    REAL(fp),       INTENT(IN) :: T_CTM(L1_)      ! CTM temperatures (K)\n    REAL(fp),       INTENT(IN) :: P_CTM(L1_+1)    ! CTM edge pressures (hPa)\n    REAL(fp),       INTENT(IN) :: O3_CTM(L1_)     ! CTM ozone (molec/cm3)\n    TYPE(OptInput), INTENT(IN) :: Input_Opt       ! Input Options object\n    TYPE(GrdState), INTENT(IN) :: State_Grid      ! Grid State object\n    TYPE(ChmState), INTENT(IN) :: State_Chm       ! Chemistry State object\n    TYPE(MetState), INTENT(IN) :: State_Met       ! Meteorology State object\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT)      :: T_CLIM(L1_)     ! Clim. temperatures (K)\n    REAL(fp), INTENT(OUT)      :: Z_CLIM(L1_+1)   ! Edge altitudes (cm)\n    REAL(fp), INTENT(OUT)      :: O3_CLIM(L1_)    ! O3 column depth (#/cm2)\n    REAL(fp), INTENT(OUT)      :: AIR_CLIM(L1_)   ! O3 column depth (#/cm2)\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  14 Dec 2022 - E. Lundgren - Adapted from Set_Prof_FastJX for use with Cloud-J\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: J, K, L, M\n    REAL(fp) :: DLOGP,F0,T0,PB,PC,XC,MASFAC,SCALEH\n    REAL(fp) :: PSTD(52),OREF2(51),TREF2(51)\n    REAL(fp) :: PROFCOL\n\n    !=================================================================\n    ! Set_Clim_Profiles begins here!\n    !=================================================================\n\n    !=================================================================\n    ! Set up pressure levels for O3/T climatology - assume that value\n    ! given for each 2 km z* level applies from 1 km below to 1 km\n    ! above, so select pressures at these boundaries. Surface level\n    ! values at 1000 mb are assumed to extend down to the actual\n    ! surface pressure for this lat/lon.\n    !=================================================================\n    PSTD(1)  = MAX(P_CTM(1),1000.e+0_fp)\n    PSTD(2)  = 1000.e+0_fp * 10.e+0_fp ** (-1.e+0_fp/16.e+0_fp)\n    DLOGP    = 10.e+0_fp**(-2.e+0_fp/16.e+0_fp)\n    DO K=3,51\n       PSTD(K) = PSTD(K-1) * DLOGP\n    ENDDO\n    PSTD(52) = 0.e+0_fp\n\n    ! Mass factor - delta-Pressure [hPa] to delta-Column [molec/cm2]\n    MASFAC = 100.e+0_fp * AVO / ( AIRMW * g0 * 10.e+0_fp )\n\n    ! Select appropriate monthly and latitudinal profiles\n    ! Now use State_Grid%YMid instead of Oliver's YDGRD(NSLAT)\n    M = MAX( 1, MIN( 12, MONTH ) )\n    J = MAX( 1, MIN( 18, ( INT(State_Grid%YMid(ILON,ILAT)) + 99 ) / 10 ) )\n\n    ! Temporary arrays for climatology data\n    DO K = 1, 51\n       OREF2(K) = State_Chm%Phot%OREF(K,J,M)\n       TREF2(K) = State_Chm%Phot%TREF(K,J,M)\n    ENDDO\n\n    ! Apportion O3 and T on supplied climatology z* levels onto CTM levels\n    ! with mass (pressure) weighting, assuming constant mixing ratio and\n    ! temperature half a layer on either side of the point supplied.\n    DO L = 1, L1_\n       F0 = 0.e+0_fp\n       T0 = 0.e+0_fp\n       DO K = 1, 51\n          PC = MIN( P_CTM(L),   PSTD(K)   )\n          PB = MAX( P_CTM(L+1), PSTD(K+1) )\n          IF ( PC .GT. PB ) THEN\n             XC = ( PC - PB ) / ( P_CTM(L) - P_CTM(L+1) )\n             F0 = F0 + OREF2(K)*XC\n             T0 = T0 + TREF2(K)*XC\n          ENDIF\n       ENDDO\n       T_CLIM(L)  = T0\n       O3_CLIM(L) = F0 * 1.e-6_fp\n    ENDDO\n\n    !=================================================================\n    ! Calculate effective altitudes using scale height at each level\n    !=================================================================\n    Z_CLIM(1) = 0.e+0_fp\n    DO L = 1, L_\n       SCALEH = BOLTZ * 1.e+4_fp * MASFAC * T_CLIM(L)\n       Z_CLIM(L+1) = Z_CLIM(L) - ( LOG( P_CTM(L+1) / P_CTM(L) ) * SCALEH )\n    ENDDO\n    Z_CLIM(L1_+1)=Z_CLIM(L1_) + ZZHT\n\n    !=================================================================\n    ! Calculate column quantities for Cloud-J\n    !=================================================================\n    PROFCOL = 0e+0_fp\n\n    DO L = 1, L1_\n\n       ! Monthly mean air Column [molec/cm2]\n       AIR_CLIM(L)  = ( P_CTM(L) - P_CTM(L+1) ) * MASFAC\n\n       ! Monthly mean O3 column [molec/cm2]\n       O3_CLIM(L) = O3_CLIM(L) * AIR_CLIM(L)\n\n       ! Monthly mean O3 column [DU]\n       PROFCOL = PROFCOL + ( O3_CLIM(L) / 2.69e+16_fp )\n    ENDDO\n\n!ewl: is this needed?\n    !! Top values are special (do not exist in CTM data)\n    !AIR_CLIM(L1_)     = P_CTM(L1_) * MASFAC\n    !O3_CLIM(L1_) = O3_CLIM(L1_) * AIR_CLIM(L1_)\n\n    ! Scale monthly O3 profile to the daily O3 profile (if available)\n    DO L = 1, L1_\n\n       ! Use online O3 values in the chemistry grid if selected; otherwise use\n       ! O3 values from the met fields or TOMS/SBUV\n       IF ( ( Input_opt%Use_Online_O3 )             &\n            .AND. ( L <= State_Met%MaxChemLev )    &\n            .AND. ( O3_CTM(L) > 0e+0_fp ) ) THEN\n\n          ! Convert from molec/cm3 to molec/cm2\n          O3_CLIM(L) = O3_CTM(L) * (Z_CLIM(L+1)-Z_CLIM(L))\n\n       ELSEIF (State_Chm%TO3_Daily(ILON,ILAT) > 0e+0_fp) THEN\n\n          ! NOTE: replaced O3_TOMS with State_Chm%TO3_Daily since is the equivalent\n          O3_CLIM(L) = O3_CLIM(L) * ( State_Chm%TO3_Daily(ILON,ILAT) / PROFCOL )\n\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE Set_Clim_Profiles\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_RH_Index\n!\n! !DESCRIPTION: Function GET\\_RH_\\Index gets index corresponding to relative\n!  humidity bin used in Cloud-J tables (1-5).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Get_RH_Index( RH ) RESULT( index )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: RH  ! Relative humidity [%]\n!\n! !RETURN VALUE:\n!\n    INTEGER :: index\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  29 Nov 2023 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( RH <= 50 ) THEN\n       index = 1\n       RETURN\n    ENDIF\n\n    IF ( RH <= 70 ) THEN\n       index = 2\n       RETURN\n    ENDIF\n\n    IF ( RH <= 80 ) THEN\n       index = 3\n       RETURN\n    ENDIF\n\n    IF ( RH <= 90 ) THEN\n       index = 4\n       RETURN\n    ENDIF\n\n    index = 5\n\n  END FUNCTION Get_RH_Index\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CldJ_Dryrun_Check\n!\n! !DESCRIPTION: Checks if the CLOUD-J configuration files are present\n!  on disk or if they need to be downloaded by dry-run.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CloudJ_DryRun_Check( Input_Opt )\n!\n! USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  19 Dec 2023 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Scalars\n    LOGICAL            :: amIRoot\n\n    ! Strings\n    CHARACTER(LEN=255) :: filePath\n\n    !========================================================================\n    ! CloudJ_DryRun_Check begins here!\n    !========================================================================\n    amIRoot = Input_Opt%amIRoot\n\n    filePath = TRIM( Input_Opt%CloudJ_Dir ) // 'FJX_spec.dat'\n    CALL Check_File_For_DryRun( filePath, amIRoot )\n\n    filePath = TRIM( Input_Opt%CloudJ_Dir ) // 'FJX_scat-aer.dat'\n    CALL Check_File_For_DryRun( filePath, amIRoot )\n\n    filePath = TRIM( Input_Opt%CloudJ_Dir ) // 'FJX_scat-cld.dat'\n    CALL Check_File_For_DryRun( filePath, amIRoot )\n\n    filePath = TRIM( Input_Opt%CloudJ_Dir ) // 'FJX_scat-ssa.dat'\n    CALL Check_File_For_DryRun( filePath, amIRoot )\n\n    filePath = TRIM( Input_Opt%CloudJ_Dir ) // 'FJX_j2j.dat'\n    CALL Check_File_For_DryRun( filePath, amIRoot )\n\n  END SUBROUTINE CloudJ_DryRun_Check\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check_File_For_DryRun\n!\n! !DESCRIPTION: Checks the status of a single file in dry-run simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE Check_File_for_DryRun( filePath, amIRoot )\n!\n! USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: filePath   ! Abs path of file to check\n    LOGICAL,          INTENT(IN) :: amIRoot    ! Are we on the root core?\n!\n! !REVISION HISTORY:\n!  19 Dec 2023 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    \n    ! Scalars\n    LOGICAL            :: fileExists\n\n    ! Strings\n    CHARACTER(LEN=512) :: fileMsg\n\n    !========================================================================\n    ! Check_File_for_DryRun begins here!\n    !========================================================================\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( filePath ), EXIST=fileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( fileExists ) THEN\n       fileMsg = 'PHOTOLYSIS (dry-run): Opening'\n    ELSE\n       fileMsg = 'PHOTOLYSIS (dry-run): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write to stdout for both regular and dry-run simulations\n    IF ( amIRoot ) THEN\n       WRITE( 6, 10 ) TRIM( fileMsg ), TRIM( filePath )\n 10    FORMAT( a, ' ', a )\n    ENDIF\n\n  END SUBROUTINE Check_File_For_DryRun\n!EOC\nEND MODULE CLDJ_INTERFACE_MOD\n"
  },
  {
    "path": "GeosCore/cleanup.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: cleanup.F90\n!\n! !DESCRIPTION: Subroutine CLEANUP deallocates the memory assigned to\n!  dynamically allocatable arrays just before exiting a GEOS-Chem simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE CLEANUP( Input_Opt, State_Grid, ERROR, RC )\n!\n! !USES:\n!\n  USE CARBON_MOD,              ONLY : CLEANUP_CARBON\n  USE Carbon_Gases_Mod,        ONLY : Cleanup_Carbon_Gases\n  USE DEPO_MERCURY_MOD,        ONLY : CLEANUP_DEPO_MERCURY\n  USE DRYDEP_MOD,              ONLY : CLEANUP_DRYDEP\n  USE DUST_MOD,                ONLY : CLEANUP_DUST\n  USE ErrCode_Mod\n  USE ERROR_MOD,               ONLY : DEBUG_MSG\n  USE FullChem_MOD,            ONLY : Cleanup_FullChem\n  USE GLOBAL_Br_MOD,           ONLY : CLEANUP_GLOBAL_Br\n  USE History_Mod,             ONLY : History_Cleanup\n  USE Input_Opt_Mod,           ONLY : OptInput\n  USE AEROSOL_THERMODYNAMICS_MOD, ONLY : CLEANUP_ATE\n  USE LAND_MERCURY_MOD,        ONLY : CLEANUP_LAND_MERCURY\n  USE LINEAR_CHEM_MOD,         ONLY : CLEANUP_LINEAR_CHEM\n  USE MERCURY_MOD,             ONLY : CLEANUP_MERCURY\n  USE ObsPack_Mod,             ONLY : ObsPack_SpeciesMap_Cleanup\n  USE OCEAN_MERCURY_MOD,       ONLY : CLEANUP_OCEAN_MERCURY\n  USE PJC_PFIX_MOD,            ONLY : CLEANUP_PJC_PFIX\n  USE PLANEFLIGHT_MOD,         ONLY : CLEANUP_PLANEFLIGHT\n  USE POPs_Mod,                ONLY : Cleanup_POPs\n  USE PRESSURE_MOD,            ONLY : CLEANUP_PRESSURE\n  USE SEASALT_MOD,             ONLY : CLEANUP_SEASALT\n  USE SULFATE_MOD,             ONLY : CLEANUP_SULFATE\n  USE State_Grid_Mod,          ONLY : GrdState\n  USE EMISSIONS_MOD,           ONLY : EMISSIONS_FINAL\n  USE SFCVMR_MOD,              ONLY : FixSfcVmr_Final\n  USE VDiff_Mod,               ONLY : Cleanup_Vdiff\n#ifdef TOMAS\n  USE TOMAS_MOD,               ONLY : CLEANUP_TOMAS  !sfarina, 1/16/13\n#endif\n#ifdef MODEL_CLASSIC\n  USE TPCORE_FVDAS_MOD,        ONLY : EXIT_TPCORE\n  USE TPCORE_WINDOW_MOD,       ONLY : EXIT_TPCORE_WINDOW\n  USE TRANSPORT_MOD,           ONLY : CLEANUP_TRANSPORT\n#endif\n#ifdef RRTMG\n  USE RRTMG_RAD_TRANSFER_MOD,  ONLY : Cleanup_RRTMG_Rad_Transfer\n#endif\n\n  IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n  TYPE(OptInput), INTENT(IN)  :: Input_Opt    ! Input options\n  TYPE(GrdState), INTENT(IN)  :: State_Grid   ! Grid state object\n  LOGICAL,        INTENT(IN)  :: ERROR        ! Cleanup after error?\n!\n! !OUTPUT PARAMETERS:\n!\n  INTEGER,        INTENT(OUT) :: RC           ! Success or failure\n!\n! !REVISION HISTORY:\n!  29 Nov 1999 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  ! Strings\n  CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n  !=================================================================\n  ! CLEANUP begins here!\n  !=================================================================\n\n  ! Initialize\n  RC      = GC_SUCCESS\n  ErrMsg  = ''\n  ThisLoc = ' -> at CLEANUP (in module GeosCore/cleanup.F)'\n\n  ! Echo info\n  IF ( Input_Opt%amIRoot ) THEN\n     WRITE( 6, 100 )\n  ENDIF\n100 FORMAT( '     - CLEANUP: deallocating arrays now...' )\n\n  !=================================================================\n  !         ***** H I S T O R Y   C L E A N U P *****\n  !\n  ! Finalize the History Component.\n  ! Also closes all netCDF files that may still be open.\n  !=================================================================\n\n  ! Finalize the history component\n  CALL History_Cleanup( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"History_Cleanup\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n\n  !=================================================================\n  ! Cleanup HEMCO\n  !=================================================================\n  CALL EMISSIONS_FINAL( ERROR, RC )\n\n  ! Cleanup surface mixing concentration module\n  CALL FixSfcVmr_Final( RC )\n\n  !=================================================================\n  ! Call cleanup routines from individual F90 modules\n  !=================================================================\n  CALL CLEANUP_CARBON()\n  CALL CLEANUP_DRYDEP()\n  CALL CLEANUP_DUST()\n  CALL CLEANUP_ATE()\n  CALL CLEANUP_PJC_PFIX()\n  CALL CLEANUP_PRESSURE()\n  CALL CLEANUP_SEASALT()\n  CALL CLEANUP_SULFATE()\n  CALL CLEANUP_LINEAR_CHEM()\n\n  CALL Cleanup_FullChem( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_FlexChem\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n\n  CALL Cleanup_Carbon_Gases( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_Carbon_Gases\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n\n#if defined( MODEL_CLASSIC )\n  IF ( State_Grid%NestedGrid ) THEN\n     CALL EXIT_TPCORE_WINDOW()\n  ELSE\n     CALL EXIT_TPCORE()\n  ENDIF\n#endif\n\n\n  CALL CLEANUP_MERCURY()\n  CALL CLEANUP_OCEAN_MERCURY()\n  CALL CLEANUP_DEPO_MERCURY()\n  CALL CLEANUP_LAND_MERCURY()\n  CALL CLEANUP_PLANEFLIGHT()\n\n  CALL Cleanup_Global_Br( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_Global_Br\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n\n  CALL Cleanup_POPs( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_POPs\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n\n  CALL CleanUp_Vdiff( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_Vdiff\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n\n#ifdef RRTMG\n  CALL Cleanup_RRTMG_Rad_Transfer( RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_RRTMG_Rad_Transfer\"!'\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n     RETURN\n  ENDIF\n#endif\n\n#ifdef TOMAS\n  CALL CLEANUP_TOMAS()\n#endif\n\n#if defined( MODEL_CLASSIC )\n  CALL CLEANUP_TRANSPORT()\n#endif\n\nEND SUBROUTINE CLEANUP\n!EOC\n"
  },
  {
    "path": "GeosCore/convection_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: convection_mod.F90\n!\n! !DESCRIPTION: Module CONVECTION\\_MOD contains routines which select the\n!  proper convection code for different met field data sets.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE CONVECTION_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: DO_CONVECTION\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: DO_RAS_CLOUD_CONVECTION\n  PRIVATE :: DO_GF_CLOUD_CONVECTION\n!\n! !REVISION HISTORY:\n!  27 Jan 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_convection\n!\n! !DESCRIPTION: Subroutine DO\\_CONVECTION calls the appropriate convection q\n!  driver program for different met field data sets.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_CONVECTION( Input_Opt,  State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Diagnostics_Mod, ONLY : Compute_Budget_Diagnostics\n    USE ErrCode_Mod\n    USE ERROR_MOD,       ONLY : GEOS_CHEM_STOP\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE PhysConstants\n    USE Species_Mod,     ONLY : Species\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE TIME_MOD,        ONLY : GET_TS_DYN\n    USE TIME_MOD,        ONLY : GET_TS_CONV\n    USE UnitConv_Mod\n    USE WETSCAV_MOD,     ONLY : COMPUTE_F\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  25 May 2005 - S. Wu - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N, NA, nAdvect, NW, EC, ISOL, S\n    INTEGER            :: I, J, L, NN, TS_DYN\n    REAL(fp)           :: AREA_M2, DT\n    LOGICAL            :: DO_ND14, DoConvFlux\n    LOGICAL            :: DO_ND38, DoWetLoss\n    INTEGER            :: TS_Conv\n    REAL(f8)           :: DT_Conv\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Arrays\n    REAL(fp)           :: PEDGE (State_Grid%NZ+1)\n    REAL(fp)           :: DIAG14(State_Grid%NZ,State_Chm%nAdvect)\n    REAL(fp)           :: DIAG38(State_Grid%NZ,State_Chm%nWetDep)\n    REAL(fp), TARGET   :: FSOL  (State_Grid%NX,State_Grid%NY,&\n                                 State_Grid%NZ,State_Chm%nAdvect)\n\n    ! Pointers\n    REAL(fp), POINTER  :: F(:,:)\n    REAL(fp), POINTER  :: p_FSOL(:,:,:)\n\n    !========================================================================\n    ! DO_CONVECT begins here!\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! Initialize\n    !------------------------------------------------------------------------\n    RC      = GC_SUCCESS\n    F       => NULL()\n    p_FSOL  => NULL()\n    ErrMsg  = ''\n    ThisLoc = ' -> at Do_Convection (in module GeosCore/convection_mod.F)'\n\n    !------------------------------------------------------------------------\n    ! Convection budget diagnostics - Part 1 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetConvection ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetConvectionFull,           &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetConvectionFull,               &\n            isTrop      = State_Diag%Archive_BudgetConvectionTrop,           &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetConvectionTrop,               &\n            isPBL       = State_Diag%Archive_BudgetConvectionPBL,            &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetConvectionPBL,                &\n            isLevs      = State_Diag%Archive_BudgetConvectionLevs,           &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetConvectionLevs,               &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Convection budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! More initializations\n    !------------------------------------------------------------------------\n    TS_DYN     = GET_TS_DYN()                           ! Dyn timestep [sec]\n    DT         = DBLE( TS_DYN )                         ! Dyn timestep [sec]\n    FSOL       = 0e+0_fp                                ! Zero the FSOL array\n    DoConvFlux = State_Diag%Archive_CloudConvFlux       ! Save mass flux?\n    DoWetLoss  = ( State_Diag%Archive_WetLossConv                       .or. &\n                   State_Diag%Archive_SatDiagnWetLossConv )\n\n    ! Number of advected species\n    nAdvect = State_Chm%nAdvect\n\n    !========================================================================\n    ! Compute fraction of soluble species lost in conv. updrafts\n    !========================================================================\n\n    ! Loop over advected species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( NA, N, p_FSOL, EC, ISOL, S                               )\n    DO NA = 1, nAdvect\n\n       ! Species ID\n       N = State_Chm%Map_Advect(NA)\n\n       ! Now point to a 3D slice of the FSOL array\n       p_FSOL => FSOL(:,:,:,NA)\n\n       ! Fraction of soluble species\n       CALL COMPUTE_F( N, p_FSOL, ISOL, Input_Opt, State_Chm, &\n                       State_Grid, State_Met, RC=EC )\n\n       ! Trap potential errors (we can't exit an OpenMP loop)\n       IF ( EC /= GC_SUCCESS ) THEN\n          RC = EC\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Fraction of soluble species lost in convective updrafts\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_WetLossConvFrac .and. ISOL > 0 ) THEN\n          S = State_Diag%Map_WetLossConvFrac%id2Slot(ISOL)\n          IF ( S > 0 ) THEN\n             State_Diag%WetLossConvFrac(:,:,:,S) = p_FSOL\n          ENDIF\n       ENDIF\n\n       ! Free pointer memory\n       p_FSOL => NULL()\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Return if COMPUTE_F returned an error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Compute_F\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Do convection column by column\n    !\n    ! NOTE: Later on, consider moving the I,J loops within the call\n    ! to DO_CLOUD_CONVECTION, to gain computational efficiency\n    !=======================================================================\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( J, I, EC, AREA_M2, F, DIAG14, DIAG38, S, N, L, NW        )&\n    !$OMP SCHEDULE( GUIDED, 8                                               )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! PRIVATE error trapping variable\n       EC = GC_SUCCESS\n\n       ! Skip buffer zone for nested grids (lzh, 4/1/15)\n       IF ( State_Grid%NestedGrid ) THEN\n          IF ( J <=                 State_Grid%SouthBuffer ) CYCLE\n          IF ( J >  State_Grid%NY - State_Grid%NorthBuffer ) CYCLE\n          IF ( I <=                 State_Grid%WestBuffer  ) CYCLE\n          IF ( I >  State_Grid%NX - State_Grid%EastBuffer  ) CYCLE\n       ENDIF\n\n       ! Grid box surface area [m2]\n       AREA_M2 =  State_Grid%Area_M2(I,J)\n       \n       ! Soluble fraction\n       F       => FSOL(I,J,:,:)\n\n       !--------------------------\n       ! Do the cloud convection\n       !--------------------------\n       IF ( .NOT. Input_Opt%Grell_Freitas_Convection ) THEN\n          CALL DO_RAS_CLOUD_CONVECTION( Input_Opt  = Input_Opt,              &\n                                        State_Chm  = State_Chm,              &\n                                        State_Diag = State_Diag,             &\n                                        State_Grid = State_Grid,             &\n                                        State_Met  = State_Met,              &\n                                        I          = I,                      &\n                                        J          = J,                      &\n                                        AREA_M2    = AREA_M2,                &\n                                        F          = F,                      &\n                                        TS_DYN     = DT,                     &\n                                        USE_DIAG14 = DoConvFlux,             &\n                                        DIAG14     = DIAG14,                 &\n                                        USE_DIAG38 = DoWetLoss,              &\n                                        DIAG38     = DIAG38,                 &\n                                        RC         = EC                     )\n       ELSE\n          CALL DO_GF_CLOUD_CONVECTION( Input_Opt  = Input_Opt,               &\n                                       State_Chm  = State_Chm,               &\n                                       State_Diag = State_Diag,              &\n                                       State_Grid = State_Grid,              &\n                                       State_Met  = State_Met,               &\n                                       I          = I,                       &\n                                       J          = J,                       &\n                                       AREA_M2    = AREA_M2,                 &\n                                       F          = F,                       &\n                                       TS_DYN     = DT,                      &\n                                       USE_DIAG14 = DoConvFlux,              &\n                                       DIAG14     = DIAG14,                  &\n                                       USE_DIAG38 = DoWetLoss,               &\n                                       DIAG38     = DIAG38,                  &\n                                       RC         = EC                      )\n       ENDIF\n\n       ! Trap potential errors (we can't exit an OpenMP loop)\n       IF ( EC /= GC_SUCCESS ) THEN\n          RC = EC\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Convective mass flux [kg/s]\n       ! NOTE: May be replaced soon with better flux diagnostics\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_CloudConvFlux ) THEN\n          DO S = 1, State_Diag%Map_CloudConvFlux%nSlots\n             N = State_Diag%Map_CloudConvFlux%slot2id(S)\n             DO L = 1, State_Grid%NZ\n                State_Diag%CloudConvFlux(I,J,L,S) = Diag14(L,N)\n             ENDDO\n          ENDDO\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Loss of soluble species in convective mass flux [kg/s]\n       ! NOTE: May be replaced soon with better flux diagnostics\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_WetLossConv ) THEN\n          DO S = 1, State_Diag%Map_WetLossConv%nSlots\n             NW = State_Diag%Map_WetLossConv%slot2id(S)\n             DO L = 1, State_Grid%NZ\n#ifdef MODEL_GEOS\n                State_Diag%WetLossConv(I,J,L,S) = Diag38(L,NW) / AREA_M2\n#else\n                State_Diag%WetLossConv(I,J,L,S) = Diag38(L,NW)\n#endif\n             ENDDO\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic\n       ! Loss of soluble species in convective updrafts [kg/s]\n       IF ( State_Diag%Archive_SatDiagnWetLossConv ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnWetLossConv%nSlots\n             NW = State_Diag%Map_SatDiagnWetLossConv%slot2id(S)\n             DO L = 1, State_Grid%NZ\n                State_Diag%SatDiagnWetLossConv(I,J,L,S) = Diag38(L,NW)\n             ENDDO\n          ENDDO\n       ENDIF\n\n       ! Free pointers\n       F => NULL()\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Return if Do_Cloud_Convection returned an error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Do_Cloud_Convection\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !----------------------------------------------------------\n    ! Convection budget diagnostics - Part 2 of 2\n    !----------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetConvection ) THEN\n\n       ! Convection timestep [s]\n       TS_Conv = Get_Ts_Conv()\n       DT_Conv = DBLE( TS_Conv )\n\n       ! Compute change in column masses (after conv - before conv)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetConvectionFull,           &\n            diagFull    = State_Diag%BudgetConvectionFull,                   &\n            mapDataFull = State_Diag%Map_BudgetConvectionFull,               &\n            isTrop      = State_Diag%Archive_BudgetConvectionTrop,           &\n            diagTrop    = State_Diag%BudgetConvectionTrop,                   &\n            mapDataTrop = State_Diag%Map_BudgetConvectionTrop,               &\n            isPBL       = State_Diag%Archive_BudgetConvectionPBL,            &\n            diagPBL     = State_Diag%BudgetConvectionPBL,                    &\n            mapDataPBL  = State_Diag%Map_BudgetConvectionPBL,                &\n            isLevs      = State_Diag%Archive_BudgetConvectionLevs,           &\n            diagLevs    = State_Diag%BudgetConvectionLevs,                   &\n            mapDataLevs = State_Diag%Map_BudgetConvectionLevs,               &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Conv,                                           &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Convection budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE DO_CONVECTION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_ras_cloud_convection\n!\n! !DESCRIPTION: Subroutine DO\\_CLOUD\\_CONVECTION (formerly called NFCLDMX)\n!  is S-J Lin's cumulus transport module for 3D GSFC-CTM, modified for the \n!  GEOS-Chem model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_RAS_CLOUD_CONVECTION( Input_Opt,  &\n                                      State_Chm,  &\n                                      State_Diag, &\n                                      State_Grid, &\n                                      State_Met,  &\n                                      I,          &\n                                      J,          &\n                                      AREA_M2,    &\n                                      F,          &\n                                      TS_DYN,     &\n                                      USE_DIAG14, &\n                                      DIAG14,     &\n                                      USE_DIAG38, &\n                                      DIAG38,     &\n                                      RC          )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : IT_IS_NAN\n    USE ERROR_MOD,          ONLY : IT_IS_FINITE\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Species_Mod,        ONLY : Species, SpcConc\n    USE WETSCAV_MOD,        ONLY : WASHOUT\n    USE WETSCAV_MOD,        ONLY : LS_K_RAIN\n    USE WETSCAV_MOD,        ONLY : LS_F_PRIME\n    USE WETSCAV_MOD,        ONLY : CONV_F_PRIME\n    USE DEPO_MERCURY_MOD,   ONLY : ADD_Hg2_SNOWPACK\n    USE DEPO_MERCURY_MOD,   ONLY : ADD_Hg2_WD\n    USE DEPO_MERCURY_MOD,   ONLY : ADD_HgP_WD\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: I, J        ! Lon & lat indices\n    REAL(fp),       INTENT(IN)    :: AREA_M2     ! Surface area [m2]\n    REAL(fp),       INTENT(IN)    :: F(:,:)      ! Fraction of soluble species\n                                                 !  for updraft scavenging\n                                                 !  [unitless].  Computed by\n                                                 !  routine  COMPUTE_F.\n    REAL(fp),       INTENT(IN)    :: TS_DYN      ! Dynamic timestep [sec]\n    LOGICAL,        INTENT(IN)    :: USE_DIAG14  ! Archive DIAG14?\n    LOGICAL,        INTENT(IN)    :: USE_DIAG38  ! Archive DIAG38?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: DIAG14(:,:) ! Array for ND14 diagnostic\n    REAL(fp),       INTENT(OUT)   :: DIAG38(:,:) ! Array for ND38 diagnostic\n    INTEGER,        INTENT(OUT)   :: RC          ! Return code\n!\n! !REMARKS:\n!  Reference:\n!  ============================================================================\n!  Lin, SJ.  \"Description of the parameterization of cumulus transport\n!     in the 3D Goddard Chemistry Transport Model, NASA/GSFC, 1996.\n!                                                                             .\n!  Unit conversion for BMASS:\n!\n!      Ps - Pt (mb)| P2 - P1 | 100 Pa |  s^2  | 1  |  1 kg        kg\n!     -------------+---------+--------+-------+----+--------  =  -----\n!                  | Ps - Pt |   mb   | 9.8 m | Pa | m^2 s^2      m^2\n!\n!                                                                             .\n!  NOTE: We are passing I & J down to this routine so that it can call the\n!  proper code from \"mercury_mod.f\".  Normally, we wouldn't pass I & J as\n!  arguments to columnized code.  This prevents rewriting the mercury_mod.f\n!  routines ADD_Hg2_\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER    :: TINYNUM = 1e-14_fp\n#ifdef LUO_WETDEP\n    REAL(fp), PARAMETER    :: pHRain = 5.6_fp\n#endif\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: AER,         IS_Hg\n    INTEGER                :: IC,          ISTEP,     K\n    INTEGER                :: KTOP,        NC,        NDT\n    INTEGER                :: NLAY,        NS,        CLDBASE\n    INTEGER                :: Hg_Cat,      NA,        nAdvect, NW\n    REAL(fp)               :: CMFMC_BELOW, ALPHA,     ALPHA2\n    REAL(fp)               :: CMOUT,       DELQ,      DQ\n    REAL(fp)               :: DNS,         ENTRN,     QC\n    REAL(fp)               :: QC_PRES,     QC_SCAV,   SDT\n    REAL(fp)               :: T0,          T0_SUM,    T1\n    REAL(fp)               :: T2,          T3,        T4\n    REAL(fp)               :: TSUM,        LOST,      GAINED\n    REAL(fp)               :: WETLOSS,     MASS_WASH, MASS_NOWASH\n    REAL(fp)               :: QDOWN,       DT,        F_WASHOUT\n    REAL(fp)               :: K_RAIN,      WASHFRAC,  WET_Hg2\n    REAL(fp)               :: WET_HgP,     MB,        QB\n    REAL(fp)               :: QB_NUM,      DELP_DRY_NUM\n#ifdef LUO_WETDEP\n    REAL(fp)               :: DECAY_CONST, LOCAL_F_WASHOUT\n    REAL(fp)               :: F_RAIN\n#endif\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg, ThisLoc\n\n    ! Arrays\n    REAL(fp)               :: BMASS    (State_Grid%NZ)\n    REAL(fp)               :: PDOWN    (State_Grid%NZ)\n\n    ! Pointers\n    REAL(fp),      POINTER :: BXHEIGHT     (:)\n    REAL(fp),      POINTER :: CMFMC        (:)\n    REAL(fp),      POINTER :: DTRAIN       (:)\n    REAL(fp),      POINTER :: DQRCU        (:)\n    REAL(fp),      POINTER :: PFICU        (:)\n    REAL(fp),      POINTER :: PFLCU        (:)\n    REAL(fp),      POINTER :: REEVAPCN     (:)\n    REAL(fp),      POINTER :: DELP_DRY     (:)\n    REAL(fp),      POINTER :: T            (:)\n    REAL(fp),      POINTER :: H2O2s        (:)\n    REAL(fp),      POINTER :: SO2s         (:)\n    REAL(fp),      POINTER :: Q            (:)\n    TYPE(SpcConc), POINTER :: Spc          (:)\n    TYPE(Species), POINTER :: SpcInfo\n\n    !========================================================================\n    ! (0)  I n i t i a l i z a t i o n\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Do_RAS_Cloud_Convection (in convection_mod.F90)'\n\n    ! Point to columns of derived-type object fields\n    BXHEIGHT     => State_Met%BXHEIGHT(I,J,:        ) ! Box height [m]\n    CMFMC        => State_Met%CMFMC   (I,J,2:State_Grid%NZ+1) ! Cloud mass flux\n                                                              ! [kg/m2/s] [upper edge]\n    DQRCU        => State_Met%DQRCU   (I,J,:        ) ! Precip production rate:\n    DTRAIN       => State_Met%DTRAIN  (I,J,:        ) ! Detrainment flux [kg/m2/s]\n    REEVAPCN     => State_Met%REEVAPCN(I,J,:        ) ! Evap of precip'ing conv.\n    DELP_DRY     => State_Met%DELP_DRY(I,J,:        ) ! Edge dry P diff [hPa]\n    T            => State_Met%T       (I,J,:        ) ! Air temperature [K]\n    H2O2s        => State_Chm%H2O2AfterChem(I,J,:   ) ! H2O2s from sulfate_mod\n    SO2s         => State_Chm%SO2AfterChem (I,J,:   ) ! SO2s from sulfate_mod\n    Spc          => State_Chm%Species              ! Chemical species vector\n    SpcInfo      => NULL()                            ! Species database entry\n\n    ! PFICU and PFLCU are on level edges\n    PFICU    => State_Met%PFICU   (I,J,1:State_Grid%NZ) ! Dwnwd flx of conv\n                                                          !  ice precip\n                                                          !  [kg/m2/s] [down edge]\n    PFLCU    => State_Met%PFLCU   (I,J,1:State_Grid%NZ) ! Dwnwd flux of conv\n                                                          !  liquid precip\n                                                          !  [kg/m2/s] [down edge]\n\n    ! # of levels and # of species\n    NLAY     = State_Grid%NZ\n    NC       = State_Chm%nAdvect\n\n    ! Top level for convection\n    KTOP     = NLAY - 1\n\n    ! Convection timestep [s]\n    NDT      = TS_DYN\n\n    ! Is this a Hg simulation?\n    IS_Hg = Input_Opt%ITS_A_MERCURY_SIM\n\n    IF ( State_Grid%NZ > 72 .or. &\n         Input_Opt%MetField == \"MODELE2.1\" ) THEN \n       ! Higher vertical resolution runs need shorter convective timestep\n       NS       = NDT / 60\n    ELSE\n       ! Internal time step for convective mixing is 300 sec.\n       ! Doug Rotman (LLNL) says that 450 sec works just as well.\n       NS       = NDT / 300                ! Num internal timesteps (int)\n    ENDIF\n    NS       = MAX( NS, 1 )             ! Set lower bound to 1\n    DNS      = DBLE( NS )               ! Num internal timesteps (real)\n    SDT      = DBLE( NDT ) / DBLE( NS ) ! seconds in internal timestep\n\n    !-----------------------------------------------------------------\n    ! Determine location of the cloud base, which is the level where\n    ! we start to have non-zero convective precipitation formation\n    !-----------------------------------------------------------------\n\n    ! Minimum value of cloud base is the surface level\n    CLDBASE = 1\n\n    ! Find the cloud base\n    DO K = 1, NLAY\n       IF ( DQRCU(K) > 0e+0_fp ) THEN\n          CLDBASE = K\n          EXIT\n       ENDIF\n    ENDDO\n\n    !-----------------------------------------------------------------\n    ! Compute PDOWN and BMASS\n    !-----------------------------------------------------------------\n    ! PDOWN is the convective precipitation leaving each\n    ! box [cm3 H2O/cm2 air/s]. This accounts for the\n    ! contribution from both liquid & ice precip.\n    ! PFLCU and PFICU are converted from kg/m2/s to m3/m2/s\n    ! using water and ice densities, respectively.\n    ! m3/m2/s becomes cm3/cm2/s using a factor of 100.\n    PDOWN(:) = ( ( PFLCU(:) / 1000e+0_fp ) &\n             +   ( PFICU(:) /  917e+0_fp ) ) * 100e+0_fp\n\n    ! BMASS is the dry air mass per unit area for the grid box\n    ! bounded by level K and K+1 [kg/m2]\n    ! BMASS is equivalent to deltaP (dry) * 100 / g\n    ! This is done to keep BMASS in the same units as CMFMC * SDT\n    BMASS(:) = DELP_DRY(:) * G0_100\n\n    !-----------------------------------------------------------------\n    ! Compute MB, the mass per unit area of dry air below the cloud\n    ! base [kg/m2]. Calculate MB by looping over levels below the\n    ! cloud base.\n    !-----------------------------------------------------------------\n    MB = 0e+0_fp\n    DO K = 1, CLDBASE-1\n       MB = MB + BMASS(K)\n    ENDDO\n\n    ! Initialize QDOWN & F_WASHOUT\n    QDOWN       = 0e+0_fp\n    F_WASHOUT   = 0e+0_fp\n\n#ifdef LUO_WETDEP\n    F_WASHOUT = 0e+0_fp\n    LOCAL_F_WASHOUT = 0e+0_fp\n    K_RAIN = 1.5e-3_fp\n    DECAY_CONST = 1.0_fp - EXP( -K_RAIN * SDT )\n    DO K = KTOP, CLDBASE, -1\n       IF ( PDOWN(K) > 1.D-20 ) THEN\n          IF ( DQRCU(K) > 1.D-20 ) THEN\n            F_RAIN = CONV_F_PRIME( DQRCU(K) * State_Met%MAIRDEN(I,J,K) / &\n                                  1000.0_fp, K_RAIN, 1.08e4_fp )\n            LOCAL_F_WASHOUT = ( 1.0_fp - ( 1.0_fp - F_RAIN * DECAY_CONST ) ** &\n                              ( 1800e+0_fp / 1.08e4_fp ) ) / DECAY_CONST\n            F_WASHOUT = MAX( F_WASHOUT, LOCAL_F_WASHOUT )\n          ENDIF\n       ELSE\n         F_WASHOUT = 0e+0_fp\n       ENDIF\n    ENDDO\n#endif\n\n    !========================================================================\n    ! (1)  A d v e c t e d   S p e c i e s   L o o p\n    !========================================================================\n\n    ! Loop over only the advected species\n    DO NA = 1, NC\n\n       ! Get the species ID (modelID) from the advected species ID\n       IC       =  State_Chm%Map_Advect(NA)\n\n       ! Point to the species concentrations array\n       Q => Spc(IC)%Conc(I,J,:) ! Chemical species [mol/mol dry air]\n\n       ! Look up the corresponding entry in the species database\n       SpcInfo  => State_Chm%SpcData(IC)%Info\n\n       ! Also get the corresponding wetdep ID\n       NW       =  SpcInfo%WetDepId\n\n       ! Zero the DIAG14 diagnostic array\n       DIAG14(:,NA) = 0.0_fp\n\n       ! Zero the DIAG38 diagnostic array\n       IF ( NW > 0 ) THEN\n          DIAG38(:,NW) = 0.0_fp\n       ENDIF\n\n       !=====================================================================\n       ! (2)  I n t e r n a l   T i m e   S t e p   L o o p\n       !=====================================================================\n       DO ISTEP = 1, NS\n\n          ! Initialize\n          QC     = 0e+0_fp    ! [kg species/kg dry air]\n          T0_SUM = 0e+0_fp    ! [kg species/m2/timestep]\n\n          !----------------------------------------------------------\n          ! B e l o w   C l o u d   B a s e   (K < CLDBASE)\n          !\n          ! QB is the \"weighted avg\" mixing ratio below the cloud\n          ! base [kg/kg dry air].\n          ! QC is the mixing ratio of the air that moved in cumulus\n          ! transport up to the next level [kg/kg dry air].\n          ! MB is the dry mass of air below the cloud base per\n          ! unit area [kg/m2] (see calculation before loop).\n          !-----------------------------------------------------------\n\n          ! If the cloud base happens at level 1 (or if CMFMC is\n          ! negligible, then just set QC to the species concentration\n          ! at the surface level [kg/kg]\n          QC = Q(CLDBASE)\n\n          ! We need to make this a nested IF statement so that we don't\n          ! get an out-of-bounds error when CLDBASE=1 (bmy, 11/18/10)\n          IF ( CLDBASE > 1 ) THEN\n\n             IF ( CMFMC(CLDBASE-1) > TINYNUM ) THEN\n\n                !-----------------------------------------------------\n                ! %%% Non-negligible Cloud mass flux %%%\n                !-----------------------------------------------------\n\n                ! Calculate QB_NUM, the numerator for QB. QB is the\n                ! weighted average mixing ratio below the cloud base.\n                ! QB_NUM is equal to the grid box species concentrations \n                ! [kg/kg dry air] weighted by the adjacent level pressure \n                ! differences and summed over all levels up to just\n                ! below the cloud base (ewl, 6/22/15)\n                QB_NUM  = 0e+0_fp\n                DELP_DRY_NUM = 0e+0_fp\n\n                DO K  = 1, CLDBASE-1\n                   QB_NUM = QB_NUM + Q(K) * DELP_DRY(K)\n                   DELP_DRY_NUM = DELP_DRY_NUM + DELP_DRY(K)\n                ENDDO\n\n                ! Compute QB, the weighted avg mixing ratio below\n                ! the cloud base [kg/kg dry air]\n                QB = QB_NUM / DELP_DRY_NUM\n\n                ! Compute QC, the mixing ratio of the air that moved\n                ! in cumulus transport up to the next level [kg/kg]\n                !\n                !        Dry mass of species below cloud base  +\n                !        Subsidence into cloud base from above\n                ! QC =  --------------------------------------------\n                !            Dry air mass below cloud base\n                !\n                QC = ( MB*QB + CMFMC(CLDBASE-1) * Q(CLDBASE) * SDT  ) / &\n                     ( MB    + CMFMC(CLDBASE-1) * SDT  )\n\n                ! Copy QC to all levels of the species array Q\n                ! that are below the cloud base level [kg/kg]\n                Q(1:CLDBASE-1) = QC\n             ENDIF\n          ENDIF\n\n          !==================================================================\n          ! (3)  A b o v e   C l o u d   B a s e\n          !==================================================================\n          DO K = CLDBASE, KTOP\n\n             ! Initialize\n             ALPHA   = 0.0_fp\n             ALPHA2  = 0.0_fp\n             CMOUT   = 0.0_fp\n             ENTRN   = 0.0_fp\n             QC_PRES = 0.0_fp\n             QC_SCAV = 0.0_fp\n             T0      = 0.0_fp\n             T1      = 0.0_fp\n             T2      = 0.0_fp\n             T3      = 0.0_fp\n             T4      = 0.0_fp\n             TSUM    = 0.0_fp\n             DELQ    = 0.0_fp\n\n             ! CMFMC_BELOW is the air mass [kg/m2/s] coming into the\n             ! grid box (K) from the box immediately below (K-1).\n             CMFMC_BELOW = 0.0_fp\n             IF ( K > 1 ) CMFMC_BELOW = CMFMC(K-1)\n\n             ! If we have a nonzero air mass flux coming from\n             ! grid box (K-1) into (K) ...\n             IF ( CMFMC_BELOW > TINYNUM ) THEN\n\n                !------------------------------------------------------------\n                ! (3.1)  M a s s   B a l a n c e   i n   C l o u d\n                !\n                ! F(K,NA) = fraction of species IC in level K that is\n                !           available for wet-scavenging by cloud updrafts.  \n                !\n                ! If ENTRN > 0 then compute the new value of QC:\n                !\n                !      species mass from below      (i.e. level K-1) +\n                !      species mass from this level (i.e. level K)\n                !  = -----------------------------------------------------\n                !             dry mass coming into cloud\n                !\n                ! Otherwise, preserve the previous value of QC.  This will\n                ! ensure that TERM1 - TERM2 is not a negative quantity (see\n                ! below).\n                !\n                ! Entrainment must be >= 0 (since we cannot have a negative \n                ! flux of air into the cloud).  This condition is strong \n                ! enough to ensure that CMOUT > 0 and will prevent floating-\n                ! point exception.\n                !------------------------------------------------------------\n\n                ! Air mass flowing out of cloud at grid box (K) [kg/m2/s]\n                CMOUT   = CMFMC(K) + DTRAIN(K)\n\n                ! Air mass flowing into cloud at grid box (K) [kg/m2/s]\n                ENTRN   = CMOUT - CMFMC_BELOW\n\n                ! Amount of QC preserved against scavenging [kg/kg]\n                !QC_PRES = QC * ( 1e+0_fp - F(K,IC) )\n                QC_PRES = QC * ( 1e+0_fp - F(K,NA) )\n\n                ! Amount of QC lost to scavenging [kg/kg]\n                ! QC_SCAV = 0 for non-soluble species\n                !QC_SCAV = QC * F(K,IC)\n                QC_SCAV = QC * F(K,NA)\n\n                ! - - - - - - - - FOR SOLUBLE SPECIES ONLY - - - - - - - - - \n                IF ( QC_SCAV > 0e+0_fp ) THEN\n\n                   ! The fraction ALPHA is the fraction of raindrops that\n                   ! will re-evaporate soluble species while falling from\n                   ! grid box K+1 down to grid box K.  Avoid div-by-zero.\n\n                   ! Initialize\n                   ALPHA = 0e+0_fp\n\n                   IF ( PDOWN(K+1)  > TINYNUM ) THEN\n\n                      ! %%%% CASE 1 %%%%\n                      ! Partial re-evaporation. Less precip is leaving\n                      ! the grid box then entered from above.\n                      IF ( PDOWN(K+1) > PDOWN(K) .AND. &\n                           PDOWN(K)   > TINYNUM        ) THEN\n\n                         ! Define ALPHA, the fraction of raindrops that\n                         ! re-evaporate when falling from grid box\n                         ! (I,J,L+1) to (I,J,L):\n                         ! NOTE:\n                         !   REEVAPCN is in units of [kg/kg/s]\n                         !   Now use BMASS [kg/m2] instead of AD/area to\n                         !   remove area dependency\n                         !   PDOWN is in units of [cm3/cm2/s]\n                         !   Factor of 10 in denom for unit conversion\n                         !     1000 kg/m3 * 0.01 m/cm = 10 kg/m2/cm\n                         ALPHA = REEVAPCN(K) * BMASS(K) &\n                                 / ( PDOWN(K+1)  * 10e+0_fp )\n\n                         ! Restrict ALPHA to be less than 1\n                         ! (>1 is unphysical)  (hma, 24-Dec-2010)\n                         IF ( ALPHA > 1e+0_fp ) THEN\n                            ALPHA = 1e+0_fp\n                         ENDIF\n\n                         ! We assume that 1/2 of the soluble species w/in\n                         ! the raindrops actually gets resuspended into\n                         ! the atmosphere\n                         ALPHA2   = ALPHA * 0.5e+0_fp\n\n                      ENDIF\n\n                      ! %%%% CASE 2 %%%%\n                      ! Total re-evaporation. Precip entered from above,\n                      ! but no precip is leaving grid box (ALPHA = 2 so\n                      ! that  ALPHA2 = 1)\n                      IF ( PDOWN(K) < TINYNUM ) THEN\n                         ALPHA2 = 1e+0_fp\n                      ENDIF\n\n                   ENDIF\n\n                   ! The resuspension takes 1/2 the amount of the scavenged\n                   ! aerosol (QC_SCAV) and adds that back to QC_PRES\n                   QC_PRES  = QC_PRES + ( ALPHA2 * QC_SCAV )\n\n                   ! ... then we decrement QC_SCAV accordingly\n                   QC_SCAV  = QC_SCAV * ( 1e+0_fp    - ALPHA2     )\n\n                ENDIF\n                !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n                ! Update QC taking entrainment into account [kg/kg]\n                ! Prevent div by zero condition\n                IF ( ENTRN >= 0e+0_fp .and. CMOUT > 0e+0_fp ) THEN\n                   QC   = ( CMFMC_BELOW * QC_PRES   + &\n                            ENTRN       * Q(K)    ) / CMOUT\n                ENDIF\n\n                !------------------------------------------------------------\n                ! (3.2)  M a s s   B a l a n c e   i n   L e v e l  ==> Q\n                !\n                ! Terminology:\n                !\n                !  C_k-1   = cloud air mass flux from level k-1 to level k\n                !  C_k     = cloud air mass flux from level k   to level k+1\n                !  QC_k-1  = mixing ratio of species INSIDE CLOUD at level k-1\n                !  QC_k    = mixing ratio of species INSIDE CLOUD at level k\n                !  Q_k     = mixing ratio of species in level k\n                !  Q_k+1   = mixing ratio of species in level k+1\n                !\n                ! For convenience we denote:\n                !\n                !  QC_SCAV = Amount of species wet-scavenged in updrafts\n                !          = QC_k-1 * F(k,IC)    [kg/kg]\n                !\n                !  QC_PRES = Amount of species preserved against\n                !            wet-scavenging in updrafts [kg/kg]\n                !          = QC_k-1 * ( 1 - F(k,IC) )\n                !\n                ! Where F(k,IC) is the fraction of species IC in level k\n                ! that is available for wet-scavenging by cloud updrafts.\n                ! F(k,IC) is computed by routine COMPUTE_UPDRAFT_FSOL\n                ! and passed to this routine as an argument.\n                !\n                ! The cumulus transport above the cloud base is done as\n                ! follows:\n                !\n                !                 ||///////////////////||\n                !                 ||//// C L O U D ////||\n                !                 ||                   ||\n                !   k+1     ^     ||         ^         ||3)   C_k * Q_k+1\n                !           |     ||         |         ||         |\n                !   --------|-----++---------|---------++---------|--------\n                !           |     ||         |         ||         |\n                !   k      C_k    ||2)   C_k * QC_k    ||         V\n                !                 ||                   ||\n                !                 ||                   ||\n                !           ^     ||         ^         ||4)   C_k-1 * Q_k\n                !           |     ||         |         ||         |\n                !   --------|-----++---------|---------++---------|--------\n                !           |     ||         |         ||         |\n                !   k-1   C_k-1   ||1) C_k-1 * QC_k-1  ||         V\n                !                 ||         * (1 - F) ||\n                !                 ||                   ||\n                !                 ||//// C L O U D ////||\n                !                 ||///////////////////||\n                !\n                ! There are 4 terms that contribute to mass flow in\n                ! and out of level k:\n                !\n                ! 1) C_k-1 * QC_PRES = species convected from k-1 to k\n                ! 2) C_k   * QC_k    = species convected from k   to k+1\n                ! 3) C_k   * Q_k+1   = species subsiding from k+1 to k\n                ! 4) C_k-1 * Q_k     = species subsiding from k   to k-1\n                !\n                ! Therefore the change in species concentration is given by\n                !\n                !    DELQ = (Term 1) - (Term 2) + (Term 3) - (Term 4)\n                !\n                ! and Q(K) = Q(K) + DELQ.\n                !\n                ! The term T0 is the amount of species that is scavenged\n                ! out of the box.\n                !\n                ! Units of T0, T1, T2, T3, T4, and TSUM are\n                ! [kg/m2/s * kg species / kg dry air]\n                !------------------------------------------------------------\n                T0      =  CMFMC_BELOW * QC_SCAV\n                T1      =  CMFMC_BELOW * QC_PRES\n                T2      = -CMFMC(K  )  * QC\n                T3      =  CMFMC(K  )  * Q(K+1)\n                T4      = -CMFMC_BELOW * Q(K)\n\n                TSUM    = T1 + T2 + T3 + T4\n\n                DELQ    = ( SDT / BMASS(K) ) * TSUM    ! change in [kg/kg]\n\n                ! If DELQ > Q then do not make Q negative!!!\n                IF ( Q(K) + DELQ < 0 ) THEN\n                   DELQ = -Q(K)\n                ENDIF\n\n                ! Increment the species array [kg/kg]\n                Q(K) = Q(K) + DELQ\n\n#ifdef DEBUG\n                ! Return if we encounter Inf\n                IF ( .not. IT_IS_FINITE( Q(K) ) ) THEN\n                   WRITE( 6, 200 )\n200                FORMAT( 'Infinity in DO_RAS_CLOUD_CONVECTION!' )\n                   WRITE( 6, 255 ) K, IC, Q(K), TRIM(SpcInfo%Name)\n                   WRITE(*,*) T0,T1,T2,T3,T4,DELQ,SDT,TSUM\n                   RC = GC_FAILURE\n                   RETURN\n                ENDIF\n\n                ! Return if we encounter NaN\n                IF ( IT_IS_NAN( Q(K) ) ) THEN\n                   WRITE( 6, 250 )\n                   WRITE( 6, 255 ) K, IC, Q(K), TRIM(SpcInfo%Name)\n250                FORMAT( 'NaN encountered in DO_RAS_CLOUD_CONVECTION!' )\n255                FORMAT( 'K, IC, Q(K): ', 2i4, 1x, es13.6, 1x, a10 )\n                   RC = GC_FAILURE\n                   RETURN\n                ENDIF\n#endif\n                ! Pass T0_SUM in units of [kg species/m2/timestep].\n                ! Converting kg dry air to kg species requires use\n                ! of the molecular weight of air including moisture\n                ! (ewl, 6/5/15)\n                T0_SUM = T0_SUM + T0 * SDT\n\n                !------------------------------------------------------------\n                ! (3.3)  N D 1 4   D i a g n o s t i c\n                !\n                ! Archive upward mass flux due to wet convection\n                ! [kg/sec] in the box (I,J), for the species IC going out \n                ! of the top of the layer K to the layer above (K+1)\n                ! (bey, 11/10/99). We must divide by DNS, the # of internal \n                ! timesteps so that the sum represents the average loss rate \n                ! across all internal timesteps.\n                !------------------------------------------------------------\n                IF ( USE_DIAG14 ) THEN\n                   DIAG14(K,NA) = DIAG14(K,NA) + ( -T2-T3 ) * AREA_M2 / DNS\n                ENDIF\n\n                !------------------------------------------------------------\n                ! (3.4)  N D 3 8   D i a g n o s t i c\n                !\n                ! Archive the loss of soluble species to wet scavenging in\n                ! cloud updrafts [kg/s].  We must divide by DNS, the # of\n                ! internal timesteps so that the sum represents the\n                ! average loss rate across all internal timesteps.\n                !------------------------------------------------------------\n                IF ( USE_DIAG38 .and. NW > 0 ) THEN\n                   DIAG38(K,NW) = DIAG38(K,NW) + ( T0 * AREA_M2 / DNS )\n\n#ifdef DEBUG\n                   ! check for infinity (added by hma, 20101117)\n                   IF ( .not. IT_IS_FINITE( DIAG38(K,NW) ) ) THEN\n                      WRITE( ErrMsg, 300 ) K\n300                   FORMAT( 'DIAG38 is infinity (K,NW)= ', i6,' #1')\n                      CALL GC_Error( ErrMsg, RC, ThisLoc )\n                      RETURN\n                   ENDIF\n#endif\n                ENDIF\n             ELSE\n\n                !------------------------------------------------------------\n                ! (3.5)  N o   C l o u d   M a s s   F l u x   B e l o w\n                !------------------------------------------------------------\n\n                ! If there is no cloud mass flux coming from below, set\n                ! QC to the species concentration at this level [kg/kg]\n                QC = Q(K)\n\n                ! Bug fix for the cloud base layer, which is not necessarily\n                ! in the boundary layer, and there could be\n                ! \"secondary convection\" plumes - one in the PBL and another \n                ! one not.  NOTE: T2 and T3 are the same terms as described \n                ! in the above section.  (swu, 08/13/2007)\n                IF ( CMFMC(K) > TINYNUM ) THEN\n\n                   ! Species convected from K -> K+1\n                   ! [kg/m2/s * kg species/kg dry air]\n                   T2   = -CMFMC(K) * QC\n\n                   ! Species subsiding from K+1 -> K [kg/m2/s]\n                   ! [kg/m2/s * kg species/kg dry air]\n                   T3   =  CMFMC(K) * Q(K+1)\n\n                   ! Change in species concentration [kg/kg]\n                   DELQ = ( SDT / BMASS(K) ) * (T2 + T3)\n\n                   ! If DELQ > Q then do not make Q negative!!!\n                   IF ( Q(K) + DELQ < 0.0e+0_fp ) THEN\n                      DELQ = -Q(K)\n                   ENDIF\n\n                   ! Add change in species to Q array [kg/kg]\n                   Q(K) = Q(K) + DELQ\n\n                ENDIF\n             ENDIF\n          ENDDO     ! End of loop over levels above cloud base\n\n          !==================================================================\n          ! (4)  B e l o w   C l o u d   B a s e\n          !==================================================================\n\n          ! Only for wet deposition species\n          IF ( NW > 0 ) THEN\n\n             DO K = CLDBASE-1, 1, -1\n\n                ! Initialize\n                WASHFRAC    = 0e+0_fp\n                ALPHA       = 0e+0_fp\n                ALPHA2      = 0e+0_fp\n                GAINED      = 0e+0_fp\n                WETLOSS     = 0e+0_fp\n                LOST        = 0e+0_fp\n                MASS_WASH   = 0e+0_fp\n                MASS_NOWASH = 0e+0_fp\n                AER         = .TRUE.\n\n                ! Check if...\n                ! there is precip coming into box (I,J,K) from (I,J,K+1)\n                IF ( PDOWN(K+1)  > 0) THEN\n\n! Only do convective washout for LUO_WETDEP\n#ifdef LUO_WETDEP\n                   IF ( F_WASHOUT > 0 ) THEN\n                      QDOWN = PDOWN(K+1)\n\n                      ! Call WASHOUT to compute the fraction of species lost\n                      ! to washout in grid box (I,J,K)\n                      !\n                      ! For TOMAS, indicate that we are not calling WASHOUT\n                      ! from wet deposition, so that the proper unit conversions\n                      ! will be applied. -- Bob Yantosca (11 Apr 2024)\n                      CALL WASHOUT(                                             &\n                           ! --- Input ---\n                           I          = I,                                      &\n                           J          = J,                                      &\n                           L          = K,                                      &\n                           N          = IC,                                     &\n                           BXHEIGHT   = BXHEIGHT(K),                            &\n                           TK         = T(K),                                   &\n                           PP         = QDOWN,                                  &\n                           DT         = SDT,                                    &\n                           F          = F_WASHOUT,                              &\n                           Input_Opt  = Input_Opt,                              &\n                           State_Grid = State_Grid,                             &\n                           State_Met  = State_Met,                              &\n                           pHRain     = pHRain,                                 &\n#ifdef TOMAS    \n                           fromWetDep = .FALSE.,                                &\n#endif\n                           ! --- Input/Output ---\n                           State_Chm  = State_Chm,                              &\n                           H2O2s      = H2O2s(K),                               &\n                           SO2s       = SO2s(K),                                &\n                           ! --- Output ---\n                           WASHFRAC   = WASHFRAC,                               &\n                           KIN        = AER,                                    &\n                           RC         = RC                                     )\n\n                      ! Trap potential errors\n                      IF ( RC /= GC_SUCCESS ) THEN\n                         ErrMsg = 'Error encountered in \"Washout\"!'\n                         CALL GC_Error( ErrMsg, RC, ThisLoc )\n                         RETURN\n                      ENDIF\n                   ENDIF\n#endif\n                   ! Check if the species is an aerosol or not\n                   IF ( AER ) THEN\n\n                      !---------------------------------------------------------\n                      ! Washout of aerosol species\n                      ! This is modeled as a kinetic process\n                      !---------------------------------------------------------\n\n                      ! Define ALPHA, the fraction of raindrops that\n                      ! re-evaporate when falling from (I,J,L+1) to (I,J,L)\n                      ! NOTE:\n                      !   REEVAPCN is in units of [kg/kg/s]\n                      !   Now use BMASS [kg/m2] instead of AD/area to\n                      !   remove area dependency\n                      !   PDOWN is in units of [cm3/cm2/s]\n                      !   Factor of 10 in denom for unit conversion\n                      !     1000 kg/m3 * 0.01 m/cm = 10 kg/m2/cm\n\n                      ! %%%% CASE 1 %%%%\n                      ! Partial re-evaporation. Less precip is leaving\n                      ! the grid box then entered from above (V. Shah, 9/14/15)\n                      IF ( PDOWN(K+1) > PDOWN(K) .AND. &\n                           PDOWN(K)   > TINYNUM        ) THEN\n\n                         ! Define ALPHA, the fraction of raindrops that\n                         ! re-evaporate when falling from grid box\n                         ! (I,J,L+1) to (I,J,L)\n                         ALPHA = REEVAPCN(K) * BMASS(K) &\n                                 / ( PDOWN(K+1) * 10e+0_fp  )\n\n                         ! For safety\n                         ALPHA = MIN( ALPHA, 1e+0_fp )\n\n                         ! ALPHA2 is the fraction of the rained-out aerosols\n                         ! that gets resuspended in grid box (I,J,L)\n                         ALPHA2  = 0.5e+0_fp * ALPHA\n\n                      ENDIF\n\n                      ! %%%% CASE 2 %%%%\n                      ! Total re-evaporation. Precip entered from above,\n                      ! but no precip is leaving grid box (ALPHA = 2 so\n                      ! that  ALPHA2 = 1) (V. Shah, 9/14/15)\n                      IF ( PDOWN(K) < TINYNUM ) THEN\n                         ALPHA2 = 1e+0_fp\n                      ENDIF\n\n                      ! GAINED is the rained out aerosol coming down from\n                      ! grid box (I,J,L+1) that will evaporate and re-enter\n                      ! the atmosphere in the gas phase in grid box (I,J,L)\n                      ! [kg species/m2/timestep]\n                      GAINED  = T0_SUM * ALPHA2\n\n                      ! Amount of aerosol lost to washout in grid box [kg/m2]\n                      ! (V. Shah, 9/14/15)\n                      WETLOSS = ( Q(K) * BMASS(K) + GAINED ) * &\n                                WASHFRAC - GAINED\n\n                      ! LOST is the rained out aerosol coming down from\n                      ! grid box (I,J,L+1) that will remain in the liquid\n                      ! phase in grid box (I,J,L) and will NOT re-evaporate\n                      ! [kg/m2/timestep]\n                      LOST    = T0_SUM - GAINED\n\n                      ! Update species concentration (V. Shah, mps, 5/20/15)\n                      ! [kg/kg]\n                      Q(K) = Q(K) - WETLOSS / BMASS(K)\n\n                      ! Update T0_SUM, the total amount of scavenged\n                      ! species that will be passed to the grid box below\n                      ! [kg/m2/timestep]\n                      T0_SUM = T0_SUM + WETLOSS\n\n                   ELSE\n\n                      !---------------------------------------------------------\n                      ! Washout of non-aerosol species\n                      ! This is modeled as an equilibrium process\n                      !---------------------------------------------------------\n\n                      ! MASS_NOWASH is the amount of non-aerosol species in\n                      ! grid box (I,J,L) that is NOT available for washout.\n                      ! Calculate in units of [kg/kg]\n                      MASS_NOWASH = ( 1e+0_fp - F_WASHOUT ) * Q(K)\n\n                      ! MASS_WASH is the total amount of non-aerosol species\n                      ! that is available for washout in grid box (I,J,L).\n                      ! It consists of the mass in the precipitating\n                      ! part of box (I,J,L), plus the previously rained-out\n                      ! species coming down from grid box (I,J,L+1).\n                      ! (Eq. 15, Jacob et al, 2000)\n                      ! Units are [kg species/m2/timestep]\n                      MASS_WASH = ( F_WASHOUT * Q(K) ) * BMASS(K) + T0_SUM\n\n                      ! WETLOSS is the amount of species mass in\n                      ! grid box (I,J,L) that is lost to washout.\n                      ! (Eq. 16, Jacob et al, 2000)\n                      ! [kg species/m2/timestep]\n                      WETLOSS     = MASS_WASH * WASHFRAC - T0_SUM\n\n                      ! The species left in grid box (I,J,L) is what was\n                      ! originally in the non-precipitating fraction\n                      ! of the box, plus MASS_WASH, less WETLOSS.\n                      ! [kg/kg]\n                      Q(K) = Q(K) - WETLOSS / BMASS(K)\n\n                      ! Update T0_SUM, the total scavenged species\n                      ! that will be passed to the grid box below\n                      ! [kg species/m2/timestep]\n                      T0_SUM      = T0_SUM + WETLOSS\n\n                   ENDIF\n\n                   !------------------------------------------------------------\n                   ! N D 1 4   D i a g n o s t i c\n                   !\n                   ! Archive upward mass flux due to wet convection.\n                   ! [kg/sec] in the box (I,J), for the species IC going\n                   ! out of the top of the layer K to the layer above (K+1)  \n                   ! (bey, 11/10/99). We must divide by DNS, the # of internal \n                   ! timesteps so that the sum represents the average loss \n                   ! rate across all internal timesteps.\n                   !------------------------------------------------------------\n                   IF ( USE_DIAG14 ) THEN\n                      DIAG14(K,NA) = DIAG14(K,NA) + ( -T2-T3 ) * AREA_M2 / DNS\n                   ENDIF\n\n                   !------------------------------------------------------------\n                   !  N D 3 8   D i a g n o s t i c\n                   !\n                   ! Archive the loss of soluble species to wet scavenging in\n                   ! cloud updrafts [kg/s].  We must divide by NDT, the # of\n                   ! seconds in the convective timestep, equal to DNS * SDT,\n                   ! in order to make diag38 represent the average loss rate\n                   ! across all internal timesteps. Note that the units of\n                   ! WETLOSS are [kg/m2/timestep].\n                   !------------------------------------------------------------\n                   !%%% NOTE: SHOULD TEST FOR NW > 0 BUT IF WE DO THAT WE\n                   !%%% NO LONGER GET IDENTICAL RESULTS WITH THE REF CODE.\n                   !%%% LOOK INTO THIS LATER.  (bmy, 7/7/16)\n                   IF ( USE_DIAG38 .and. F(K,NA) > 0.0_fp ) THEN\n                      DIAG38(K,NW) = DIAG38(K,NW) + ( WETLOSS * AREA_M2 / NDT )\n                   ENDIF\n\n#ifdef DEBUG   \n                   ! check for infinity (added by hma, 20101117)\n                   IF ( USE_DIAG38 .and. NW > 0 ) THEN\n                      IF ( .not. IT_IS_FINITE( DIAG38(K,NW) ) ) THEN\n                         WRITE( ErrMsg, 310 ) K, NW\n310                      FORMAT( 'DIAG38 is infinity (K,NW)= ', 2i6, ' #3' )\n                         CALL GC_Error( ErrMsg, RC, ThisLoc )\n                         RETURN\n                      ENDIF\n                   ENDIF\n#endif\n                ENDIF\n             ENDDO     ! End of loop over levels below cloud base\n          ENDIF        ! End if for NW > 0\n\n          !==================================================================\n          ! (5)  M e r c u r y   O c e a n   M o d e l   A r c h i v a l\n          !\n          ! Pass the amount of Hg2 and HgP lost in wet  scavenging [kg] to \n          ! \"ocean_mercury_mod.f\" via ADD_Hg2_WET and ADD_HgP_WET.   We must \n          ! also divide  by DNS, the # of internal timesteps.\n          ! (sas, bmy, eck, eds, 1/19/05, 1/6/06, 7/30/08)\n          !\n          ! NOTE: Reorder\n          !==================================================================\n          IF ( Is_Hg ) THEN\n\n             !--------------------------------------\n             ! Hg2\n             !--------------------------------------\n             IF ( SpcInfo%IS_Hg2 ) THEN\n\n                ! Wet scavenged Hg(II) in [kg]\n                WET_Hg2 = ( T0_SUM * AREA_M2 )\n\n                ! Pass to \"ocean_mercury_mod.f\"\n                CALL ADD_Hg2_WD      ( I, J, WET_Hg2  )\n                CALL ADD_Hg2_SNOWPACK( I, J, WET_Hg2, &\n                                       State_Met, State_Chm, State_Diag )\n             ENDIF\n\n             !--------------------------------------\n             ! HgP\n             !--------------------------------------\n             IF ( SpcInfo%Is_HgP ) THEN\n\n                ! Wet scavenged Hg(P) in [kg]\n                WET_HgP = ( T0_SUM * AREA_M2 )\n\n                ! Pass to \"ocean_mercury_mod.f\"\n                CALL ADD_HgP_WD      ( I, J, WET_HgP  )\n                CALL ADD_Hg2_SNOWPACK( I, J, WET_HgP, &\n                                       State_Met, State_Chm, State_Diag )\n             ENDIF\n          ENDIF\n       ENDDO               ! End internal timestep loop\n\n       ! Free pointers\n       Q       => NULL()\n       SpcInfo => NULL()\n    ENDDO                  ! End loop over advected species\n\n    !================================================================\n    ! Succesful return!\n    !================================================================\n\n    ! Nullify pointers\n    NULLIFY( BXHEIGHT     )\n    NULLIFY( CMFMC        )\n    NULLIFY( DQRCU        )\n    NULLIFY( DTRAIN       )\n    NULLIFY( PFICU        )\n    NULLIFY( PFLCU        )\n    NULLIFY( REEVAPCN     )\n    NULLIFY( DELP_DRY     )\n    NULLIFY( T            )\n    NULLIFY( H2O2s        )\n    NULLIFY( SO2s         )\n    NULLIFY( Spc          )\n\n    ! Set error code to success\n    RC                      = GC_SUCCESS\n\n  END SUBROUTINE DO_RAS_CLOUD_CONVECTION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_gf_cloud_convection\n!\n! !DESCRIPTION: Subroutine DO\\_CLOUD\\_CONVECTION (formerly called NFCLDMX)\n!  is S-J Lin's cumulus transport module for 3D GSFC-CTM, modified for the \n!  GEOS-Chem model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_GF_CLOUD_CONVECTION( Input_Opt,  &\n                                     State_Chm,  &\n                                     State_Diag, &\n                                     State_Grid, &\n                                     State_Met,  &\n                                     I,          &\n                                     J,          &\n                                     AREA_M2,    &\n                                     F,          &\n                                     TS_DYN,     &\n                                     USE_DIAG14, &\n                                     DIAG14,     &\n                                     USE_DIAG38, &\n                                     DIAG38,     &\n                                     RC          )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : IT_IS_NAN\n    USE ERROR_MOD,          ONLY : IT_IS_FINITE\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Species_Mod,        ONLY : Species, SpcConc\n    USE WETSCAV_MOD,        ONLY : WASHOUT\n    USE WETSCAV_MOD,        ONLY : LS_K_RAIN\n    USE WETSCAV_MOD,        ONLY : LS_F_PRIME\n    USE WETSCAV_MOD,        ONLY : CONV_F_PRIME\n    USE DEPO_MERCURY_MOD,   ONLY : ADD_Hg2_SNOWPACK\n    USE DEPO_MERCURY_MOD,   ONLY : ADD_Hg2_WD\n    USE DEPO_MERCURY_MOD,   ONLY : ADD_HgP_WD\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: I, J        ! Lon & lat indices\n    REAL(fp),       INTENT(IN)    :: AREA_M2     ! Surface area [m2]\n    REAL(fp),       INTENT(IN)    :: F(:,:)      ! Fraction of soluble species\n                                                 !  for updraft scavenging\n                                                 !  [unitless].  Computed by\n                                                 !  routine  COMPUTE_F.\n    REAL(fp),       INTENT(IN)    :: TS_DYN      ! Dynamic timestep [sec]\n    LOGICAL,        INTENT(IN)    :: USE_DIAG14  ! Archive DIAG14?\n    LOGICAL,        INTENT(IN)    :: USE_DIAG38  ! Archive DIAG38?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: DIAG14(:,:) ! Array for ND14 diagnostic\n    REAL(fp),       INTENT(OUT)   :: DIAG38(:,:) ! Array for ND38 diagnostic\n    INTEGER,        INTENT(OUT)   :: RC          ! Return code\n!\n! !REMARKS:\n!  Reference:\n!  ============================================================================\n!  Lin, SJ.  \"Description of the parameterization of cumulus transport\n!     in the 3D Goddard Chemistry Transport Model, NASA/GSFC, 1996.\n!                                                                             .\n!  Unit conversion for BMASS:\n!\n!      Ps - Pt (mb)| P2 - P1 | 100 Pa |  s^2  | 1  |  1 kg        kg\n!     -------------+---------+--------+-------+----+--------  =  -----\n!                  | Ps - Pt |   mb   | 9.8 m | Pa | m^2 s^2      m^2\n!\n!                                                                             .\n!  NOTE: We are passing I & J down to this routine so that it can call the\n!  proper code from \"mercury_mod.f\".  Normally, we wouldn't pass I & J as\n!  arguments to columnized code.  This prevents rewriting the mercury_mod.f\n!  routines ADD_Hg2_\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER    :: TINYNUM = 1e-14_fp\n#ifdef LUO_WETDEP\n    REAL(fp), PARAMETER    :: pHRain = 5.6_fp\n#endif\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: KIN,         IS_Hg\n    INTEGER                :: IC,          ISTEP,     K\n    INTEGER                :: KTOP,        NC,        NDT\n    INTEGER                :: NLAY,        NS,        CLDBASE\n    INTEGER                :: Hg_Cat,      NA,        nAdvect, NW\n    REAL(fp)               :: CMFMC_BELOW, ALPHA,     ALPHA2\n    REAL(fp)               :: CMOUT,       DELQ,      DQ\n    REAL(fp)               :: DNS,         ENTRN,     QC\n    REAL(fp)               :: QC_PRES,     QC_SCAV,   SDT\n    REAL(fp)               :: T0,          T0_SUM,    T1\n    REAL(fp)               :: T2,          T3,        T4\n    REAL(fp)               :: TSUM,        GAINED\n    REAL(fp)               :: WETLOSS,     MASS_WASH\n    REAL(fp)               :: QDOWN,       DT,        F_WASHOUT\n    REAL(fp)               :: K_RAIN,      WASHFRAC,  WET_Hg2\n    REAL(fp)               :: WET_HgP\n#ifdef LUO_WETDEP\n    REAL(fp)               :: DECAY_CONST, LOCAL_F_WASHOUT\n    REAL(fp)               :: F_RAIN\n#endif\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg, ThisLoc\n\n    ! Arrays\n    REAL(fp)               :: BMASS    (State_Grid%NZ)\n    REAL(fp)               :: PDOWN    (State_Grid%NZ)\n    REAL(fp)               :: REEVAPCN (State_Grid%NZ)\n\n    ! Pointers\n    REAL(fp),      POINTER :: BXHEIGHT     (:)\n    REAL(fp),      POINTER :: CMFMC        (:)\n    REAL(fp),      POINTER :: DTRAIN       (:)\n    REAL(fp),      POINTER :: DQRCU        (:)\n    REAL(fp),      POINTER :: REEVAPCN_CUM (:)\n    REAL(fp),      POINTER :: DELP_DRY     (:)\n    REAL(fp),      POINTER :: DELP         (:)\n    REAL(fp),      POINTER :: T            (:)\n    REAL(fp),      POINTER :: H2O2s        (:)\n    REAL(fp),      POINTER :: SO2s         (:)\n    REAL(fp),      POINTER :: Q            (:)\n    TYPE(SpcConc), POINTER :: Spc          (:)\n    TYPE(Species), POINTER :: SpcInfo\n\n    !========================================================================\n    ! (0)  I n i t i a l i z a t i o n\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Do_GF_Cloud_Convection (in convection_mod.F90)'\n\n    ! Point to columns of derived-type object fields\n    BXHEIGHT     => State_Met%BXHEIGHT(I,J,:        ) ! Box height [m]\n    CMFMC        => State_Met%CMFMC   (I,J,2:State_Grid%NZ+1) ! Cloud mass flux\n                                                              ! [kg/m2/s] [upper edge]\n    DQRCU        => State_Met%DQRCU   (I,J,:        ) ! Precip production rate:\n    DTRAIN       => State_Met%DTRAIN  (I,J,:        ) ! Detrainment flux [kg/m2/s]\n    REEVAPCN_CUM => State_Met%REEVAPCN(I,J,:        ) ! Cumulative evap of precip'ing conv.\n    DELP_DRY     => State_Met%DELP_DRY(I,J,:        ) ! Edge dry P diff [hPa]\n    DELP         => State_Met%DELP    (I,J,:        ) ! Edge P diff [hPa]\n    T            => State_Met%T       (I,J,:        ) ! Air temperature [K]\n    H2O2s        => State_Chm%H2O2AfterChem(I,J,:   ) ! H2O2s from sulfate_mod\n    SO2s         => State_Chm%SO2AfterChem (I,J,:   ) ! SO2s from sulfate_mod\n    Spc          => State_Chm%Species                 ! Chemical species vector\n    SpcInfo      => NULL()                            ! Species database entry\n\n    ! # of levels and # of species\n    NLAY     = State_Grid%NZ\n    NC       = State_Chm%nAdvect\n\n    ! Top level for convection\n    KTOP     = NLAY - 1\n\n    ! Convection timestep [s]\n    NDT      = TS_DYN\n\n    ! Is this a Hg simulation?\n    IS_Hg = Input_Opt%ITS_A_MERCURY_SIM\n\n    IF ( State_Grid%NZ > 72 .or. &\n         Input_Opt%MetField == \"MODELE2.1\" ) THEN \n       ! Higher vertical resolution runs need shorter convective timestep\n       NS       = NDT / 60\n    ELSE\n       ! Internal time step for convective mixing is 300 sec.\n       ! Doug Rotman (LLNL) says that 450 sec works just as well.\n       NS       = NDT / 300                ! Num internal timesteps (int)\n    ENDIF\n    NS       = MAX( NS, 1 )             ! Set lower bound to 1\n    DNS      = DBLE( NS )               ! Num internal timesteps (real)\n    SDT      = DBLE( NDT ) / DBLE( NS ) ! seconds in internal timestep\n\n\n    ! GF scheme\n    ! REEVAPCN_CUM is cumulative re-evaporation\n    ! DQRCU is net precipitation formation\n    REEVAPCN(NLAY) = REEVAPCN_CUM(NLAY)\n    DO K = 1, NLAY-1\n       ! REEVAPCN (kg/kg/s) to REEVAPCN_FLUX (kg/m2/s)\n       ! subtraction between fluxes instead\n       REEVAPCN(K) = (REEVAPCN_CUM(K) * DELP(K) &\n                   - REEVAPCN_CUM(K+1) * DELP(K+1) ) &\n                   / DELP(K)\n       REEVAPCN(K) = MAX( REEVAPCN(K), 0.0_fp )\n    ENDDO\n\n    !-----------------------------------------------------------------\n    ! Determine location of the cloud base, which is the level where\n    ! we start to have non-zero convective precipitation formation\n    !-----------------------------------------------------------------\n\n    ! Minimum value of cloud base is the surface level\n    CLDBASE = 1\n\n    ! Find the cloud base\n    DO K = 1, NLAY\n       IF ( DQRCU(K) > 0e+0_fp ) THEN\n          CLDBASE = K\n          EXIT\n       ENDIF\n    ENDDO\n\n    !-----------------------------------------------------------------\n    ! Compute PDOWN and BMASS\n    !-----------------------------------------------------------------\n    ! PDOWN is the convective precipitation leaving each\n    ! box [cm3 H2O/cm2 air/s]. This accounts for the\n    ! contribution from both liquid & ice precip.\n    ! PFLCU and PFICU are converted from kg/m2/s to m3/m2/s\n    ! using water and ice densities, respectively.\n    ! m3/m2/s becomes cm3/cm2/s using a factor of 100.\n\n    PDOWN(NLAY) = DQRCU(NLAY) * DELP(NLAY) * G0_100 / 1000e+0_fp * 100e+0_fp\n    DO K = NLAY-1, 1, -1\n       PDOWN(K) = PDOWN(K+1) + DQRCU(K) & \n                 * DELP(K) * G0_100 / 1000e+0_fp * 100e+0_fp\n                 ! kg/kg wet air/s to kg/m2/s then to cm3 H20/cm2 air/s\n                 ! since we no longer have water phase information, assume all liquid water\n                 ! use liquid water density 1000e+0_fp\n       PDOWN(K) = MAX( PDOWN(K), 0.0_fp )\n    ENDDO\n\n    ! BMASS is the dry air mass per unit area for the grid box\n    ! bounded by level K and K+1 [kg/m2]\n    ! BMASS is equivalent to deltaP (dry) * 100 / g\n    ! This is done to keep BMASS in the same units as CMFMC * SDT\n    BMASS(:) = DELP_DRY(:) * G0_100\n\n    ! Initialize QDOWN & F_WASHOUT\n    QDOWN       = 0e+0_fp\n    F_WASHOUT   = 0e+0_fp\n\n#ifdef LUO_WETDEP\n    LOCAL_F_WASHOUT = 0e+0_fp\n    K_RAIN = 1.5e-3_fp\n    DECAY_CONST = 1.0_fp - EXP( -K_RAIN * SDT )\n    DO K = KTOP, CLDBASE, -1\n       IF ( PDOWN(K) > 1.D-20 ) THEN\n          IF ( DQRCU(K) > 1.D-20 ) THEN\n            F_RAIN = CONV_F_PRIME( ( DQRCU(K) + REEVAPCN(K) ) * &\n                                  State_Met%MAIRDEN(I,J,K) / &\n                                  1000.0_fp, K_RAIN, 1.08e4_fp )\n            LOCAL_F_WASHOUT = ( 1.0_fp - ( 1.0_fp - F_RAIN * DECAY_CONST ) ** &\n                              ( 1800e+0_fp / 1.08e4_fp ) ) / DECAY_CONST\n            F_WASHOUT = MAX( F_WASHOUT, LOCAL_F_WASHOUT )\n          ENDIF\n       ELSE\n         F_WASHOUT = 0e+0_fp\n       ENDIF\n    ENDDO\n#endif\n\n    !========================================================================\n    ! (1)  A d v e c t e d   S p e c i e s   L o o p\n    !========================================================================\n\n    ! Loop over only the advected species\n    DO NA = 1, NC\n\n       ! Get the species ID (modelID) from the advected species ID\n       IC       =  State_Chm%Map_Advect(NA)\n\n       ! Point to the species concentrations array\n       Q => Spc(IC)%Conc(I,J,:) ! Chemical species [mol/mol dry air]\n\n       ! Look up the corresponding entry in the species database\n       SpcInfo  => State_Chm%SpcData(IC)%Info\n\n       ! Also get the corresponding wetdep ID\n       NW       =  SpcInfo%WetDepId\n\n       ! Zero the DIAG14 diagnostic array\n       DIAG14(:,NA) = 0.0_fp\n\n       ! Zero the DIAG38 diagnostic array\n       IF ( NW > 0 ) THEN\n          DIAG38(:,NW) = 0.0_fp\n       ENDIF\n\n       !=====================================================================\n       ! (2)  I n t e r n a l   T i m e   S t e p   L o o p\n       !=====================================================================\n       DO ISTEP = 1, NS\n\n          ! Initialize\n          QC     = 0e+0_fp    ! [kg species/kg dry air]\n          T0_SUM = 0e+0_fp    ! [kg species/m2/timestep]\n\n          !==================================================================\n          ! (3)  C o n v e c t i v e T r a n s p o r t   L o o p\n          !      (Only do cloud updraft scavenging above cloud base)\n          !==================================================================\n          DO K = 1, KTOP\n\n             ! Initialize\n             CMOUT   = 0.0_fp\n             ENTRN   = 0.0_fp\n             QC_PRES = 0.0_fp\n             QC_SCAV = 0.0_fp\n             T0      = 0.0_fp\n             T1      = 0.0_fp\n             T2      = 0.0_fp\n             T3      = 0.0_fp\n             T4      = 0.0_fp\n             TSUM    = 0.0_fp\n             DELQ    = 0.0_fp\n\n             ! CMFMC_BELOW is the air mass [kg/m2/s] coming into the\n             ! grid box (K) from the box immediately below (K-1).\n             IF ( K == 1 ) THEN\n                CMFMC_BELOW = 0e+0_fp\n             ELSE\n                CMFMC_BELOW = CMFMC(K-1)\n             ENDIF\n\n             ! If we have a nonzero air mass flux coming from\n             ! grid box (K-1) into (K) ...\n             IF ( CMFMC_BELOW > TINYNUM ) THEN\n\n                !------------------------------------------------------------\n                ! (3.1)  M a s s   B a l a n c e   i n   C l o u d\n                !\n                ! F(K,NA) = fraction of species IC in level K that is\n                !           available for wet-scavenging by cloud updrafts.  \n                !\n                ! If ENTRN > 0 then compute the new value of QC:\n                !\n                !      species mass from below      (i.e. level K-1) +\n                !      species mass from this level (i.e. level K)\n                !  = -----------------------------------------------------\n                !             dry mass coming into cloud\n                !\n                ! Otherwise, preserve the previous value of QC.  This will\n                ! ensure that TERM1 - TERM2 is not a negative quantity (see\n                ! below).\n                !\n                ! Entrainment must be >= 0 (since we cannot have a negative \n                ! flux of air into the cloud).  This condition is strong \n                ! enough to ensure that CMOUT > 0 and will prevent floating-\n                ! point exception.\n                !------------------------------------------------------------\n\n                ! Air mass flowing out of cloud at grid box (K) [kg/m2/s]\n                CMOUT   = CMFMC(K) + DTRAIN(K)\n\n                ! Air mass flowing into cloud at grid box (K) [kg/m2/s]\n                ENTRN   = CMOUT - CMFMC_BELOW\n\n                ! Only do the scavenging above the cloud base\n                IF ( K > CLDBASE ) THEN\n                   QC_PRES = QC * ( 1e+0_fp - F(K,NA) )\n                   QC_SCAV = QC * F(K,NA)\n                ELSE\n                   QC_PRES = QC\n                   QC_SCAV = 0e+0_fp\n                ENDIF\n\n                !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n                ! Update QC taking entrainment into account [kg/kg]\n                ! Prevent div by zero condition\n                IF ( ENTRN >= 0e+0_fp .and. CMOUT > 0e+0_fp ) THEN\n                   QC   = ( CMFMC_BELOW * QC_PRES   + &\n                          ENTRN       * Q(K) ) / CMOUT\n                ENDIF\n\n                !------------------------------------------------------------\n                ! (3.2)  M a s s   B a l a n c e   i n   L e v e l  ==> Q\n                !\n                ! Terminology:\n                !\n                !  C_k-1   = cloud air mass flux from level k-1 to level k\n                !  C_k     = cloud air mass flux from level k   to level k+1\n                !  QC_k-1  = mixing ratio of species INSIDE CLOUD at level k-1\n                !  QC_k    = mixing ratio of species INSIDE CLOUD at level k\n                !  Q_k     = mixing ratio of species in level k\n                !  Q_k+1   = mixing ratio of species in level k+1\n                !\n                ! For convenience we denote:\n                !\n                !  QC_SCAV = Amount of species wet-scavenged in updrafts\n                !          = QC_k-1 * F(k,IC)    [kg/kg]\n                !\n                !  QC_PRES = Amount of species preserved against\n                !            wet-scavenging in updrafts [kg/kg]\n                !          = QC_k-1 * ( 1 - F(k,IC) )\n                !\n                ! Where F(k,IC) is the fraction of species IC in level k\n                ! that is available for wet-scavenging by cloud updrafts.\n                ! F(k,IC) is computed by routine COMPUTE_UPDRAFT_FSOL\n                ! and passed to this routine as an argument.\n                !\n                ! The cumulus transport above the cloud base is done as\n                ! follows:\n                !\n                !                 ||///////////////////||\n                !                 ||//// C L O U D ////||\n                !                 ||                   ||\n                !   k+1     ^     ||         ^         ||3)   C_k * Q_k+1\n                !           |     ||         |         ||         |\n                !   --------|-----++---------|---------++---------|--------\n                !           |     ||         |         ||         |\n                !   k      C_k    ||2)   C_k * QC_k    ||         V\n                !                 ||                   ||\n                !                 ||                   ||\n                !           ^     ||         ^         ||4)   C_k-1 * Q_k\n                !           |     ||         |         ||         |\n                !   --------|-----++---------|---------++---------|--------\n                !           |     ||         |         ||         |\n                !   k-1   C_k-1   ||1) C_k-1 * QC_k-1  ||         V\n                !                 ||         * (1 - F) ||\n                !                 ||                   ||\n                !                 ||//// C L O U D ////||\n                !                 ||///////////////////||\n                !\n                ! There are 4 terms that contribute to mass flow in\n                ! and out of level k:\n                !\n                ! 1) C_k-1 * QC_PRES = species convected from k-1 to k\n                ! 2) C_k   * QC_k    = species convected from k   to k+1\n                ! 3) C_k   * Q_k+1   = species subsiding from k+1 to k\n                ! 4) C_k-1 * Q_k     = species subsiding from k   to k-1\n                !\n                ! Therefore the change in species concentration is given by\n                !\n                !    DELQ = (Term 1) - (Term 2) + (Term 3) - (Term 4)\n                !\n                ! and Q(K) = Q(K) + DELQ.\n                !\n                ! The term T0 is the amount of species that is scavenged\n                ! out of the box.\n                !\n                ! Units of T0, T1, T2, T3, T4, and TSUM are\n                ! [kg/m2/s * kg species / kg dry air]\n                !------------------------------------------------------------\n                T0      =  CMFMC_BELOW * QC_SCAV\n                T1      =  CMFMC_BELOW * QC_PRES\n                T2      = -CMFMC(K  )  * QC\n                T3      =  CMFMC(K  )  * Q(K+1)\n                T4      = -CMFMC_BELOW * Q(K)\n\n                TSUM    = T1 + T2 + T3 + T4\n\n                DELQ    = ( SDT / BMASS(K) ) * TSUM    ! change in [kg/kg]\n\n                ! If DELQ > Q then do not make Q negative!!!\n                IF ( Q(K) + DELQ < 0 ) THEN\n                   DELQ = -Q(K)\n                ENDIF\n\n                ! Increment the species array [kg/kg]\n                Q(K) = Q(K) + DELQ\n\n#ifdef DEBUG\n                ! Return if we encounter NInf\n                IF ( .not. IT_IS_FINITE( Q(K) ) ) THEN\n                   WRITE( 6, 200 )\n200                FORMAT( 'Infinity in DO_GF_CLOUD_CONVECTION!' )\n                   WRITE( 6, 255 ) K, IC, Q(K), TRIM(SpcInfo%Name)\n                   WRITE(*,*) T0,T1,T2,T3,T4,DELQ,SDT,TSUM\n                   RC = GC_FAILURE\n                   RETURN\n                ENDIF\n\n                ! Return if we encounter NaN\n                IF ( IT_IS_NAN( Q(K) ) ) THEN\n                   WRITE( 6, 250 )\n                   WRITE( 6, 255 ) K, IC, Q(K), TRIM(SpcInfo%Name)\n250                FORMAT( 'NaN encountered in DO_GF_CLOUD_CONVECTION!' )\n255                FORMAT( 'K, IC, Q(K): ', 2i4, 1x, es13.6, 1x, a10 )\n                   RC = GC_FAILURE\n                   RETURN\n                ENDIF\n#endif\n\n                ! Pass T0_SUM in units of [kg species/m2/timestep].\n                ! Converting kg dry air to kg species requires use\n                ! of the molecular weight of air including moisture\n                ! (ewl, 6/5/15)\n                T0_SUM = T0_SUM + T0 * SDT\n\n                !------------------------------------------------------------\n                ! N D 1 4   D i a g n o s t i c\n                !\n                ! Archive upward mass flux due to wet convection\n                ! [kg/sec] in the box (I,J), for the species IC going out \n                ! of the top of the layer K to the layer above (K+1)\n                ! (bey, 11/10/99). We must divide by DNS, the # of internal \n                ! timesteps so that the sum represents the average loss rate \n                ! across all internal timesteps.\n                !------------------------------------------------------------\n                IF ( USE_DIAG14 ) THEN\n                   DIAG14(K,NA) = DIAG14(K,NA) + ( -T2-T3 ) * AREA_M2 / DNS\n                ENDIF\n\n                !------------------------------------------------------------\n                ! N D 3 8   D i a g n o s t i c\n                !\n                ! Archive the loss of soluble species to wet scavenging in\n                ! cloud updrafts [kg/s].  We must divide by DNS, the # of\n                ! internal timesteps so that the sum represents the\n                ! average loss rate across all internal timesteps.\n                !------------------------------------------------------------\n                IF ( USE_DIAG38 .and. NW > 0 ) THEN\n                   DIAG38(K,NW) = DIAG38(K,NW) + ( T0 * AREA_M2 / DNS )\n\n#ifdef DEBUG\n                   ! check for infinity (added by hma, 20101117)\n                   IF ( .not. IT_IS_FINITE( DIAG38(K,NW) ) ) THEN\n                      WRITE( ErrMsg, 300 ) K\n300                   FORMAT( 'DIAG38 is infinity (K,NW)= ', i6,' #1')\n                      CALL GC_Error( ErrMsg, RC, ThisLoc )\n                      RETURN\n                   ENDIF\n#endif\n                ENDIF\n\n             ELSE\n\n                !------------------------------------------------------------\n                ! (3.3)  N o   C l o u d   M a s s   F l u x   B e l o w\n                !------------------------------------------------------------\n\n                ! If there is no cloud mass flux coming from below, set\n                ! QC to the species concentration at this level [kg/kg]\n                QC = Q(K)\n\n                ! Bug fix for the cloud base layer, which is not necessarily\n                ! in the boundary layer, and there could be\n                ! \"secondary convection\" plumes - one in the PBL and another \n                ! one not.  NOTE: T2 and T3 are the same terms as described \n                ! in the above section.  (swu, 08/13/2007)\n                IF ( CMFMC(K) > TINYNUM ) THEN\n\n                   ! Species convected from K -> K+1\n                   ! [kg/m2/s * kg species/kg dry air]\n                   T2   = -CMFMC(K) * QC\n\n                   ! Species subsiding from K+1 -> K [kg/m2/s]\n                   ! [kg/m2/s * kg species/kg dry air]\n                   T3   =  CMFMC(K) * Q(K+1)\n\n                   ! Change in species concentration [kg/kg]\n                   DELQ = ( SDT / BMASS(K) ) * (T2 + T3)\n\n                   ! If DELQ > Q then do not make Q negative!!!\n                   IF ( Q(K) + DELQ < 0.0e+0_fp ) THEN\n                      DELQ = -Q(K)\n                   ENDIF\n\n                   ! Add change in species to Q array [kg/kg]\n                   Q(K) = Q(K) + DELQ\n\n                   !------------------------------------------------------------\n                   ! N D 1 4   D i a g n o s t i c\n                   !\n                   ! Archive upward mass flux due to wet convection\n                   ! [kg/sec] in the box (I,J), for the species IC going out \n                   ! of the top of the layer K to the layer above (K+1)\n                   ! (bey, 11/10/99). We must divide by DNS, the # of internal \n                   ! timesteps so that the sum represents the average loss rate \n                   ! across all internal timesteps.\n                   !------------------------------------------------------------\n                   IF ( USE_DIAG14 ) THEN\n                     DIAG14(K,NA) = DIAG14(K,NA) + ( -T2-T3 ) * AREA_M2 / DNS\n                   ENDIF\n\n                ENDIF\n             ENDIF\n          ENDDO     ! End of loop for convective transport\n\n          !==================================================================\n          ! (4)  B e l o w   C l o u d   W a s h o u t   &   R e e v a p\n          ! ( only serves for wet deposition species NW > 0 )\n          !==================================================================\n\n          ! Only for wet deposition species\n          IF ( NW > 0 ) THEN\n\n             ! Begin loop for below cloud\n             DO K = CLDBASE-1, 1, -1\n\n                ! Initialize\n                WASHFRAC    = 0e+0_fp\n                ALPHA       = 0e+0_fp\n                ALPHA2      = 0e+0_fp\n                GAINED      = 0e+0_fp\n                WETLOSS     = 0e+0_fp\n                MASS_WASH   = 0e+0_fp\n                KIN         = .TRUE.\n\n                ! Precipitation from upper edge is essential for both\n                ! washout and reevaporation\n                IF ( PDOWN(K+1)  > 0 ) THEN\n\n! Only do convective washout for LUO_WETDEP\n#ifdef LUO_WETDEP\n                   IF ( F_WASHOUT > 0 ) THEN\n                      !======================================================\n                      ! (4.1)  W a s h o u t\n                      !======================================================\n                      QDOWN = PDOWN(K+1)\n\n                      ! Call WASHOUT to compute the fraction of species lost\n                      ! to washout in grid box (I,J,K)\n                      !\n                      ! For TOMAS, indicate that we are not calling WASHOUT\n                      ! from wet deposition, so that the proper unit conversions\n                      ! will be applied. -- Bob Yantosca (11 Apr 2024)\n                      CALL WASHOUT(                                          &\n                           ! --- Input ---\n                           I          = I,                                   &\n                           J          = J,                                   &\n                           L          = K,                                   &\n                           N          = IC,                                  &\n                           BXHEIGHT   = BXHEIGHT(K),                         &\n                           TK         = T(K),                                &\n                           PP         = QDOWN,                               &\n                           DT         = SDT,                                 &\n                           F          = F_WASHOUT,                           &\n                           Input_Opt  = Input_Opt,                           &\n                           State_Grid = State_Grid,                          &\n                           State_Met  = State_Met,                           &\n                           pHRain     = pHRain,                              &\n#ifdef TOMAS\n                           fromWetDep = .FALSE.,                             &\n#endif\n                           ! --- Input/Output ---\n                           State_Chm  = State_Chm,                           &\n                           H2O2s      = H2O2s(K),                            &\n                           SO2s       = SO2s(K),                             &\n                           ! --- Output ---\n                           WASHFRAC   = WASHFRAC,                            &\n                           KIN        = KIN,                                 &\n                           RC         = RC                                  )\n\n                      ! Trap potential errors\n                      IF ( RC /= GC_SUCCESS ) THEN\n                         ErrMsg = 'Error encountered in \"Convective Washout\"!'\n                         CALL GC_Error( ErrMsg, RC, ThisLoc )\n                         RETURN\n                      ENDIF\n                   ENDIF\n#endif\n                   !=========================================================\n                   ! (4.2)  R e e v a p o r a t i o n\n                   ! Reevaporation differ between kinetic species (Aerosol\n                   ! and HNO3) and equilibrium species (Gases), cf Jacob 2000\n                   !=========================================================\n                   IF ( KIN ) THEN\n\n                      !------------------------------------------------------\n                      ! This is modeled as a kinetic process\n                      !------------------------------------------------------\n\n                      ! Define ALPHA, the fraction of raindrops that\n                      ! re-evaporate when falling from (I,J,L+1) to (I,J,L)\n\n                      ! Criteria for reevaporation\n                      ! More precipitation is entering the upper edge \n                      ! than leaving through the lower edge\n                      !------------------------------------------------------\n                      ! This is already expected in GF's DQRCU-based PDOWN\n                      !------------------------------------------------------\n                      IF ( PDOWN(K+1) > PDOWN(K) ) THEN\n\n                         ! %%%% CASE 1 %%%%\n                         ! Partial re-evaporation. Less precip is leaving\n                         ! the grid box then entered from above\n                         ! (V. Shah, 9/14/15)\n                         IF( PDOWN(K) > TINYNUM ) THEN\n\n                            ! NOTE:\n                            ! REEVAPCN is in units of [kg/kg/s]\n                            ! (1) Now use DELP(K) * G0_100 to since\n                            ! the mass ratio is relative to wet mass\n                            ! (2) PDOWN is in units of [cm3/cm2/s]\n                            ! Factor of 10 in denom for unit conversion\n                            ! 1000 kg/m3 * 0.01 m/cm = 10 kg/m2/cm\n                            ALPHA = REEVAPCN(K) * DELP(K) * G0_100 &\n                                    / ( PDOWN(K+1) * 10e+0_fp )\n\n                            ! For safety\n                            ALPHA = MIN( ALPHA, 1e+0_fp )\n\n                            ! ALPHA2 is the fraction of the rained-out aerosols\n                            ! that gets resuspended in grid box (I,J,L)\n                            ALPHA2  = 0.5e+0_fp * ALPHA\n\n                         ! %%%% CASE 2 %%%%\n                         ! Total re-evaporation. Precip entered from above,\n                         ! but no precip is leaving grid box (ALPHA = 2 so\n                         ! that  ALPHA2 = 1) (V. Shah, 9/14/15)\n                         ELSE\n                            ALPHA2 = 1e+0_fp\n                         ENDIF\n\n                      ENDIF\n\n                      ! GAINED is the rained out aerosol coming down from\n                      ! grid box (I,J,L+1) that will evaporate and re-enter\n                      ! the atmosphere in the gas phase in grid box (I,J,L)\n                      ! [kg species/m2/timestep]\n                      GAINED  = T0_SUM * ALPHA2\n\n                      ! Amount of aerosol lost to washout in grid box [kg/m2]\n                      ! (V. Shah, 9/14/15)\n                      WETLOSS = ( Q(K) * BMASS(K) + GAINED ) * &\n                                WASHFRAC - GAINED\n\n                   ELSE\n\n                      !------------------------------------------------------\n                      ! Washout of non-aerosol species\n                      ! This is modeled as an equilibrium process\n                      !------------------------------------------------------\n\n                      ! MASS_WASH is the total amount of non-aerosol species\n                      ! that is available for washout in grid box (I,J,L).\n                      ! It consists of the mass in the precipitating\n                      ! part of box (I,J,L), plus the previously rained-out\n                      ! species coming down from grid box (I,J,L+1).\n                      ! (Eq. 15, Jacob et al, 2000)\n                      ! Units are [kg species/m2/timestep]\n                      MASS_WASH = ( F_WASHOUT * Q(K) ) * BMASS(K) + T0_SUM\n\n                      ! WETLOSS is the amount of species mass in\n                      ! grid box (I,J,L) that is lost to washout.\n                      ! (Eq. 16, Jacob et al, 2000)\n                      ! [kg species/m2/timestep]\n                      WETLOSS     = MASS_WASH * WASHFRAC - T0_SUM\n\n                   ENDIF ! End if for determing kinetic/equalibrium species\n\n                   ! The species left in grid box (I,J,L) is what was\n                   ! originally in the non-precipitating fraction\n                   ! of the box, plus MASS_WASH, less WETLOSS.\n                   ! [kg/kg]\n                   Q(K) = Q(K) - WETLOSS / BMASS(K)\n\n                   ! Update T0_SUM, the total scavenged species\n                   ! that will be passed to the grid box below\n                   ! [kg species/m2/timestep]\n                   T0_SUM = T0_SUM + WETLOSS\n\n                   !---------------------------------------------------------\n                   !  N D 3 8   D i a g n o s t i c\n                   !\n                   ! Archive the loss of soluble species to wet scavenging in\n                   ! cloud updrafts [kg/s].  We must divide by NDT, the # of\n                   ! seconds in the convective timestep, equal to DNS * SDT,\n                   ! in order to make diag38 represent the average loss rate\n                   ! across all internal timesteps. Note that the units of\n                   ! WETLOSS are [kg/m2/timestep].\n                   !----------------------------------------------------------\n                   IF ( USE_DIAG38 ) THEN\n                      DIAG38(K,NW) = DIAG38(K,NW) + ( WETLOSS * AREA_M2 / NDT )\n                   ENDIF\n\n                   ! check for infinity (added by hma, 20101117)\n                   IF ( .not. IT_IS_FINITE( DIAG38(K,NW) ) ) THEN\n                      WRITE( ErrMsg, 310 ) K, NW\n310                   FORMAT( 'DIAG38 is infinity (K,NW)= ', 2i6, ' #3' )\n                      CALL GC_Error( ErrMsg, RC, ThisLoc )\n                      RETURN\n                   ENDIF\n\n                ENDIF   ! End if for PDOWN(K+1) > 0\n\n             ENDDO   ! End of loop over levels below cloud base\n          ENDIF     ! End if for NW > 0\n\n          !==================================================================\n          ! (5)  M e r c u r y   O c e a n   M o d e l   A r c h i v a l\n          !\n          ! Pass the amount of Hg2 and HgP lost in wet  scavenging [kg] to \n          ! \"ocean_mercury_mod.f\" via ADD_Hg2_WET and ADD_HgP_WET.   We must \n          ! also divide  by DNS, the # of internal timesteps.\n          ! (sas, bmy, eck, eds, 1/19/05, 1/6/06, 7/30/08)\n          !\n          ! NOTE: Reorder\n          !==================================================================\n          IF ( Is_Hg ) THEN\n\n             !--------------------------------------\n             ! Hg2\n             !--------------------------------------\n             IF ( SpcInfo%IS_Hg2 ) THEN\n\n                ! Wet scavenged Hg(II) in [kg]\n                WET_Hg2 = ( T0_SUM * AREA_M2 )\n\n                ! Pass to \"ocean_mercury_mod.f\"\n                CALL ADD_Hg2_WD      ( I, J, WET_Hg2  )\n                CALL ADD_Hg2_SNOWPACK( I, J, WET_Hg2, &\n                                       State_Met, State_Chm, State_Diag )\n             ENDIF\n\n             !--------------------------------------\n             ! HgP\n             !--------------------------------------\n             IF ( SpcInfo%Is_HgP ) THEN\n\n                ! Wet scavenged Hg(P) in [kg]\n                WET_HgP = ( T0_SUM * AREA_M2 )\n\n                ! Pass to \"ocean_mercury_mod.f\"\n                CALL ADD_HgP_WD      ( I, J, WET_HgP  )\n                CALL ADD_Hg2_SNOWPACK( I, J, WET_HgP, &\n                                       State_Met, State_Chm, State_Diag )\n             ENDIF\n          ENDIF\n       ENDDO               ! End internal timestep loop\n\n       ! Free pointers\n       Q       => NULL()\n       SpcInfo => NULL()\n    ENDDO                  ! End loop over advected species\n\n    !================================================================\n    ! Succesful return!\n    !================================================================\n\n    ! Nullify pointers\n    NULLIFY( BXHEIGHT     )\n    NULLIFY( CMFMC        )\n    NULLIFY( DQRCU        )\n    NULLIFY( DTRAIN       )\n    NULLIFY( REEVAPCN_CUM )\n    NULLIFY( DELP_DRY     )\n    NULLIFY( DELP         )\n    NULLIFY( T            )\n    NULLIFY( H2O2s        )\n    NULLIFY( SO2s         )\n    NULLIFY( Spc          )\n\n    ! Set error code to success\n    RC                      = GC_SUCCESS\n\n  END SUBROUTINE DO_GF_CLOUD_CONVECTION\n!EOC\nEND MODULE CONVECTION_MOD\n"
  },
  {
    "path": "GeosCore/depo_mercury_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: depo_mercury_mod.F90\n!\n! !DESCRIPTION: Module DEPO\\_MERCURY\\_MOD contains routines to handle\n!  deposition fluxes for mercury.\n!\n! !INTERFACE:\n!\nMODULE DEPO_MERCURY_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD   ! For Geos-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: ADD_Hg2_DD\n  PUBLIC :: ADD_Hg2_WD\n  PUBLIC :: ADD_HgP_DD\n  PUBLIC :: ADD_HgP_WD\n  PUBLIC :: ADD_HG2_SNOWPACK\n  PUBLIC :: RESET_HG_DEP_ARRAYS\n  PUBLIC :: CHECK_DIMENSIONS\n  PUBLIC :: INIT_DEPO_MERCURY\n  PUBLIC :: CLEANUP_DEPO_MERCURY\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC :: DD_HG2, DD_HGP, WD_HG2, WD_HGP\n  PUBLIC :: HG2mth_wd, HG0mth_dd, HG2mth_dd\n  PUBLIC :: LHGSNOW\n\n  REAL(fp),  ALLOCATABLE :: DD_Hg2(:,:)\n  REAL(fp),  ALLOCATABLE :: DD_HgP(:,:)\n  REAL(fp),  ALLOCATABLE :: WD_Hg2(:,:)\n  REAL(fp),  ALLOCATABLE :: WD_HgP(:,:)\n  REAL(fp),  ALLOCATABLE :: HG0mth_dd(:,:)\n  REAL(fp),  ALLOCATABLE :: HG2mth_dd(:,:)\n  REAL(fp),  ALLOCATABLE :: HG2mth_wd(:,:)\n  REAL(fp),  ALLOCATABLE :: Hg0dryGEOS(:,:)\n  REAL(fp),  ALLOCATABLE :: HgIIdryGEOS(:,:)\n  REAL(fp),  ALLOCATABLE :: HgIIwetGEOS(:,:)\n!\n! !PRIVATE DATA MEMBERS:\n!\n  CHARACTER(LEN=255)     :: GTMM_RST_FILE\n  LOGICAL                :: LHGSNOW\n!\n! !REVISION HISTORY:\n!  23 Apr 2010 - C. Carouge  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Scalars for Hg indexing\n  INTEGER :: id_Hg0\n  INTEGER :: id_Hg2\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: add_Hg2_dd\n!\n! !DESCRIPTION: Subroutine ADD\\_Hg2\\_DD computes the amount of Hg(II) dry\n!  deposited out of the atmosphere into the column array DD\\_Hg2.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ADD_Hg2_DD( I, J, DRY_Hg2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I, J      ! Grid box lon & lat indices\n    REAL(fp), INTENT(IN) :: DRY_Hg2   ! Hg(II) dry deposited out of the\n                                      !  atmosphere [kg]\n!\n! !REVISION HISTORY:\n!  19 Jan 2005 - S. Strode, C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Store dry deposited Hg(II) into DD_Hg2 array\n    DD_Hg2(I,J) = DD_Hg2(I,J) + DRY_Hg2\n\n  END SUBROUTINE ADD_Hg2_DD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: add_Hg2_wd\n!\n! !DESCRIPTION: Subroutine ADD\\_Hg2\\_WD computes the amount of Hg(II) wet\n!  scavenged out of the atmosphere into the column array WD\\_Hg2.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ADD_Hg2_WD( I, J, WET_Hg2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,   INTENT(IN) :: I, J      ! Grid box lon & lat indices\n    REAL(fp),  INTENT(IN) :: WET_Hg2   ! Hg(II) scavenged out of the\n                                       !  atmosphere [kg]\n!\n! !REVISION HISTORY:\n!  19 Jan 2005 - S. Strode, C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Store wet deposited Hg(II) into WD_Hg2 array\n    WD_Hg2(I,J) = WD_Hg2(I,J) + WET_Hg2\n\n  END SUBROUTINE ADD_Hg2_WD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: add_HgP_dd\n!\n! !DESCRIPTION: Subroutine ADD\\_HgP\\_DD computes the amount of HgP dry\n!  deposited out of the atmosphere into the column array DD\\_HgP.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ADD_HgP_DD( I, J, DRY_HgP )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I, J      ! Grid box lon & lat indices\n    REAL(fp), INTENT(IN) :: DRY_HgP   ! HgP dry deposited out of the\n                                      !  atmosphere [kg]\n!\n! !REVISION HISTORY:\n!  19 Jan 2005 - S. Strode, C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Store dry deposited Hg(II) into DD_Hg2 array\n    DD_HgP(I,J) = DD_HgP(I,J) + DRY_HgP\n\n  END SUBROUTINE ADD_HgP_DD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: add_HgP_wd\n!\n! !DESCRIPTION: Subroutine ADD\\_HgP\\_WD computes the amount of HgP wet\n!  scavenged out of the atmosphere into the column array WD\\_HgP.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ADD_HgP_WD( I, J, WET_HgP )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I, J      ! Grid box lon & lat indices\n    REAL(fp), INTENT(IN) :: WET_HgP   ! HgP scavenged out of the\n                                      !  atmosphere [kg]\n!\n! !REVISION HISTORY:\n!  19 Jan 2005 - S. Strode, C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Store wet deposited HgP into WD_HgP array\n    WD_HgP(I,J) = WD_HgP(I,J) + WET_HgP\n\n  END SUBROUTINE ADD_HgP_WD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: add_hg2_snowpack\n!\n! !DESCRIPTION: Subroutine ADD\\_Hg2\\_SNOWPACKS adds Hg2 deposition to snowpack.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ADD_HG2_SNOWPACK( I, J, DEP_Hg2, State_Met, State_Chm, State_Diag )\n!\n! !USES:\n!\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Time_Mod,           ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J        ! Grid box lon & lat indices\n    REAL(fp),       INTENT(IN)    :: Dep_Hg2     ! Hg2 (or HgP) deposited\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry   State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !REVISION HISTORY:\n!  02 Sep 2008 - C. Holmes   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL  :: IS_SNOW_OR_ICE\n    REAL(fp) :: FRAC_SNOW_OR_ICE\n    REAL(fp) :: FRAC_O\n    REAL(fp) :: DT\n\n    ! Pointers\n    REAL(fp), POINTER :: SNOW_HG_OC(:,:)\n    REAL(fp), POINTER :: SNOW_HG_LN(:,:)\n    REAL(fp), POINTER :: SNOW_HG_STORED_OC(:,:)\n    REAL(fp), POINTER :: SNOW_HG_STORED_LN(:,:)\n\n    !=================================================================\n    ! ADD_HG2_SNOWPACK begins here!\n    !=================================================================\n\n    ! Point to fields in State_Chm\n    SNOW_HG_OC        => State_Chm%SnowHgOcean\n    SNOW_HG_LN        => State_Chm%SnowHgLand\n    SNOW_HG_STORED_OC => State_Chm%SnowHgOceanStored\n    SNOW_HG_STORED_LN => State_Chm%SnowHgLandStored\n\n    ! Return if snowpack model is disabled\n    IF ( .NOT. LHGSNOW ) RETURN\n\n    ! Chemistry timestep [s]\n    DT = GET_TS_CHEM()\n\n    ! Don't let fraction be greater than 1\n    FRAC_SNOW_OR_ICE = MIN( State_Met%FRSNOW(I,J)     + &\n                            State_Met%FRSEAICE(I,J)  + &\n                            State_Met%FRLANDICE(I,J), 1e+0_fp)\n    IS_SNOW_OR_ICE   = ( FRAC_SNOW_OR_ICE > 0e+0_fp )\n\n    ! Ocean fraction (vs land)\n    FRAC_O = State_Met%FROCEAN(I,J)\n\n    ! Check if there is snow on the ground, or if this is sea ice\n    IF ( IS_SNOW_OR_ICE ) THEN\n\n       ! Add 60% of deposition to surface (i.e. assume 40% accumulates\n       ! in surface) multiplied by the fraction of the box that is\n       ! snow or ice (i.e. 1 for all met fields but MERRA and GEOS-5.7.x)\n       SNOW_HG_OC(I,J) = SNOW_HG_OC(I,J) + &\n                         FRAC_O * FRAC_SNOW_OR_ICE * &\n                         MAX( 0.6e+0_fp*DEP_HG2, 0e+0_fp )\n\n       ! Add remaining deposited Hg to reservoir for delivery to ocean\n       ! when snow melts later (jaf, 6/17/11)\n       ! This is Hg in snowpack over ocean that CANNOT be\n       ! re-emitted to atmosphere\n       SNOW_HG_STORED_OC(I,J) = SNOW_HG_STORED_OC(I,J) + &\n                                FRAC_O * FRAC_SNOW_OR_ICE * &\n                                MAX( 0.4e+0_fp*DEP_HG2, 0e+0_fp )\n\n       ! This is Hg in snowpack over land that can potentially be\n       ! re-emitted to atmosphere\n       SNOW_HG_LN(I,J) = SNOW_HG_LN(I,J) + &\n                         (1e+0_fp - FRAC_O) * FRAC_SNOW_OR_ICE * &\n                         MAX( 0.6e+0_fp*DEP_HG2, 0e+0_fp )\n\n       ! This is Hg in snowpack over land that CANNOT be\n       ! re-emitted to atmosphere\n       SNOW_HG_STORED_LN(I,J) = SNOW_HG_STORED_LN(I,J) + &\n                                   ( 1e+0_fp - FRAC_O ) * &\n                                   FRAC_SNOW_OR_ICE &\n                                   * MAX( 0.4e+0_fp*DEP_HG2, 0e+0_fp )\n\n       !--------------------------------------------------------------\n       ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n       !\n       ! Store diagnostic of TOTAL HgII/HgP deposition to snow/ice\n       ! NOTE: Units are now kg/s\n       !--------------------------------------------------------------\n       IF ( State_Diag%Archive_FluxHg2HgPfromAirToSnow ) THEN\n          State_Diag%FluxHg2HgPfromAirToSnow(I,J) = &\n             State_Diag%FluxHg2HgPfromAirToSnow(I,J) + &\n             ( FRAC_SNOW_OR_ICE * MAX( DEP_HG2, 0e+0_fp ) ) !/ DT\n       ENDIF\n\n    ENDIF\n\n    ! Free pointers\n    SNOW_HG_OC        => NULL()\n    SNOW_HG_LN        => NULL()\n    SNOW_HG_STORED_OC => NULL()\n    SNOW_HG_STORED_LN => NULL()\n\n  END SUBROUTINE ADD_HG2_SNOWPACK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: reset_hg_dep_arrays\n!\n! !DESCRIPTION: Subroutine RESET\\_Hg\\_DEP\\_ARRAYS resets the wet and dry\n!  deposition arrays for Hg(II) and Hg(p) to zero. This allows us to call\n!  OCEAN\\_MERCURY\\_FLUX and LAND\\_MERCURY\\_FLUX in any order in MERCURY\\_MOD.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RESET_HG_DEP_ARRAYS\n!\n! !REVISION HISTORY:\n!  02 Sep 2008 - C. Holmes   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Reset deposition arrays.\n    DD_Hg2 = 0e+0_fp\n    WD_Hg2 = 0e+0_fp\n    DD_HgP = 0e+0_fp\n    WD_HgP = 0e+0_fp\n\n  END SUBROUTINE RESET_HG_DEP_ARRAYS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: check_dimensions\n!\n! !DESCRIPTION: Subroutine CHECK\\_DIMENSIONS makes sure that the dimensions of\n!  the Hg restart file extend to cover the entire grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHECK_DIMENSIONS( NI, NJ, NL, State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : GEOS_CHEM_STOP\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: NI, NJ, NL\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !REVISION HISTORY:\n!  30 Aug 2010 - S. Strode, C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !=================================================================\n    ! CHECK_DIMENSIONS begins here!\n    !=================================================================\n\n    ! Error check longitude dimension: NI must equal State_Grid%NX\n    IF ( NI /= State_Grid%NX ) THEN\n       WRITE( 6, 100 )\n100    FORMAT( 'ERROR reading in Hg restart file', / &\n               'Wrong number of longitudes encountered', / &\n               'STOP in CHECK_DIMENSIONS (\"depo_mercury_mod.F90\")' )\n       PRINT*, \"NI: \", NI\n       PRINT*, \"State_Grid%NX: \", State_Grid%NX\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! Error check latitude dimension: NJ must equal State_Grid%NY\n    IF ( NJ /= State_Grid%NY ) THEN\n       WRITE( 6, 110 )\n110    FORMAT( 'ERROR reading in Hg restart file', / &\n               'Wrong number of latitudes encountered', / &\n               'STOP in CHECK_DIMENSIONS (\"depo_mercury_mod.F90\")' )\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! Error check vertical dimension: NL must equal State_Grid%NZ\n    IF ( NL /= 1 ) THEN\n       WRITE( 6, 120 )\n120    FORMAT( 'ERROR reading in Hg restart file', / &\n               'Wrong number of vertical encountered', / &\n               'STOP in CHECK_DIMENSIONS (\"depo_mercury_mod.F90\")' )\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n  END SUBROUTINE CHECK_DIMENSIONS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_depo_mercury\n!\n! !DESCRIPTION: Subroutine INIT\\_DEPO\\_MERCURY initialize deposition arrays\n!  for mercury.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_DEPO_MERCURY( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  23 Apr 2010 - C. Carouge  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N, C\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! INIT_DEPO_MERCURY begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Exit if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !================================================================\n    ! Allocate arrays\n    !================================================================\n    ALLOCATE( DD_Hg2( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'DD_Hg2' )\n    DD_Hg2 = 0e+0_fp\n\n    ALLOCATE( DD_HgP( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'DD_HgP' )\n    DD_HgP = 0e+0_fp\n\n    ALLOCATE( WD_Hg2( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'WD_Hg2' )\n    WD_Hg2 = 0e+0_fp\n\n    ALLOCATE( WD_HgP( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'WD_HgP' )\n    WD_HgP = 0e+0_fp\n\n    IF ( Input_Opt%LGTMM ) THEN\n\n       ! GTMM restart file name\n       GTMM_RST_FILE = Input_Opt%GTMM_RST_FILE\n\n       ALLOCATE( HG0mth_dd( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       IF ( RC /= 0 ) CALL ALLOC_ERR( 'HG0mth_dd' )\n       HG0mth_dd = 0e+0_fp\n\n       ALLOCATE( HG2mth_dd( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       IF ( RC /= 0 ) CALL ALLOC_ERR( 'HG2mth_dd' )\n       HG2mth_dd = 0e+0_fp\n\n       ALLOCATE( HG2mth_wd( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       IF ( RC /= 0 ) CALL ALLOC_ERR( 'HG2mth_wd' )\n       HG2mth_wd = 0e+0_fp\n    ENDIF\n\n  END SUBROUTINE INIT_DEPO_MERCURY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_depo_mercury\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_DEPO\\_MERCURY deallocate all arrays\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_DEPO_MERCURY\n!\n! !REVISION HISTORY:\n!  23 Apr 2010 - C. Carouge - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    IF ( ALLOCATED( DD_Hg2      ) ) DEALLOCATE( DD_Hg2      )\n    IF ( ALLOCATED( DD_HgP      ) ) DEALLOCATE( DD_HgP      )\n    IF ( ALLOCATED( WD_Hg2      ) ) DEALLOCATE( WD_Hg2      )\n    IF ( ALLOCATED( WD_HgP      ) ) DEALLOCATE( WD_HgP      )\n    IF ( ALLOCATED( HG0mth_dd   ) ) DEALLOCATE( HG0mth_dd   )\n    IF ( ALLOCATED( HG2mth_dd   ) ) DEALLOCATE( HG2mth_dd   )\n    IF ( ALLOCATED( HG2mth_wd   ) ) DEALLOCATE( HG2mth_wd   )\n\n  END SUBROUTINE CLEANUP_DEPO_MERCURY\n!EOC\nEND MODULE DEPO_MERCURY_MOD\n"
  },
  {
    "path": "GeosCore/diagnostics_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: diagnostics_mod.F90\n!\n! !DESCRIPTION: Module diagnostics\\_mod.F90 contains subroutines for\n!  setting State_Diag diagnostics arrays for the purposes of outputting\n!  in netcdf format. Source code for setting diagnostics arrays for output\n!  in binary format are not included in this module.\n!\n! !INTERFACE:\n!\nMODULE Diagnostics_mod\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Set_AerMass_Diagnostic\n  PUBLIC :: Set_Diagnostics_EndofTimestep\n  PUBLIC :: Set_SpcConc_Diags_VVDry\n  PUBLIC :: Zero_Diagnostics_StartofTimestep\n  PUBLIC :: Compute_Budget_Diagnostics\n#ifdef ADJOINT\n  PUBLIC :: Set_SpcAdj_Diagnostic\n#endif\n!\n! !PRIVATE MEMBER FUNCTIONS\n!\n  PRIVATE :: Set_SpcConc_Diags_MND\n!\n! !REVISION HISTORY:\n!  01 Feb 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Diagnostics_EndofTimestep\n!\n! !DESCRIPTION: Updates various diagnostics for History output at the end\n!  of the GEOS-Chem \"heartbeat\" timestep.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Diagnostics_EndofTimestep( Input_Opt,  State_Chm,           &\n                                            State_Diag, State_Grid,          &\n                                            State_Met,  RC )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Met_Mod,    ONLY : MetState\n    USE State_Chm_Mod,    ONLY : ChmState, Ind_\n    USE State_Diag_Mod,   ONLY : DgnState, DgnMap\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE PhysConstants,    ONLY : AIRMW,  AVO\n    USE TIME_MOD,         ONLY : GET_LOCALTIME\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt      ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid     ! Grid state object\n    TYPE(MetState),   INTENT(IN)    :: State_Met      ! Meteorology state object\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm      ! Chemistry state obj\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag     ! Diagnostics state obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,              INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  01 Feb 2018 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                 :: I, J, L, N, S\n    REAL(fp)                :: ToPptv, LT\n\n    ! SAVEd scalars\n    INTEGER, SAVE           :: id_Hg2 = -1\n    INTEGER, SAVE           :: id_HgP = -1\n    LOGICAL, SAVE           :: FIRST_Hg  = .TRUE.\n\n    ! Strings\n    CHARACTER(LEN=255)      :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(DgnMap), POINTER   :: mapData\n\n    !========================================================================\n    ! Set_Diagnostics_EndofTimestep begins here\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at Set_Diagnostics_EndofTimestep (in GeosCore/diagnostics_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Set species concentration for diagnostics in units of\n    ! molec/cm3 (hplin, 11/21/21)\n    !-----------------------------------------------------------------------\n    CALL Set_SpcConc_Diags_MND  ( Input_Opt,  State_Chm, State_Diag,         &\n                                  State_Grid, State_Met, RC                 )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered setting SpeciesConcMND diagnostic'\n       CALL GC_ERROR( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n#ifdef ADJOINT\n    !-----------------------------------------------------------------------\n    ! Set species concentration diagnostic in units specified in state_diag_mod\n    !-----------------------------------------------------------------------\n    IF ( State_Diag%Archive_SpeciesAdj ) THEN\n       CALL Set_SpcAdj_Diagnostic( Input_Opt,  State_Chm, State_Diag,         &\n                                   State_Grid, State_Met, RC                 )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered setting SpeciesAdj diagnostic'\n          CALL GC_ERROR( ErrMsg, RC, ThisLoc )\n       ENDIF\n    ENDIF\n#endif\n\n    !------------------------------------------------------------------------\n    ! Set total dry deposition flux\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_DryDep ) THEN\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( I, J, S                                               )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO S = 1, State_Diag%Map_DryDep%nSlots\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          State_Diag%DryDep(I,J,S) = State_Diag%DryDepChm(I,J,S)             &\n                                   + State_Diag%DryDepMix(I,J,S)\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Set total dry deposition flux\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_SatDiagnDryDep ) THEN\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( I, J, S                                               )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO S = 1, State_Diag%Map_SatDiagnDryDep%nSlots\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          State_Diag%SatDiagnDryDep(I,J,S) = State_Diag%DryDepChm(I,J,S)  &\n                                           + State_Diag%DryDepMix(I,J,S)\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Compute fraction of time each grid box spent in the troposphere\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_FracOfTimeInTrop ) THEN\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP SCHEDULE( DYNAMIC, 8                                           )&\n       !$OMP PRIVATE( I, J, L                                               )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          IF ( State_Met%InTroposphere(I,J,L) ) THEN\n             State_Diag%FracOfTimeInTrop(I,J,L) = 1.0_f4\n          ELSE\n             State_Diag%FracOfTimeInTrop(I,J,L) = 0.0_f4\n          ENDIF\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Diagnostics for the mercury and tagged mercury simulations\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       ! Get species indices for Hg2 and HgP\n       IF ( FIRST_Hg ) THEN\n          id_Hg2 = Ind_('Hg2')\n          id_HgP = Ind_('HgP')\n          FIRST_Hg  = .FALSE.\n       ENDIF\n\n       !--------------------------------------------\n       ! Ractive gaseous mercury (RGM) [pptv]\n       !--------------------------------------------\n       IF ( id_Hg2 > 0 .and. State_Diag%Archive_ReactiveGaseousHg ) THEN\n\n          ! Conversion factor to pptv\n          ToPptv = ( AIRMW                                  /                &\n                     State_Chm%SpcData(id_Hg2)%Info%MW_g  *                  &\n                     1.0e+12_fp                               )\n\n          ! Save into State_diag\n          State_Diag%ReactiveGaseousHg = &\n                     State_Chm%Species(id_Hg2)%Conc(:,:,:) * ToPptv\n       ENDIF\n\n       !--------------------------------------------\n       ! Ractive particulate mercury (RGM) [pptv]\n       !--------------------------------------------\n       IF ( id_HgP > 0 .and. State_Diag%Archive_ParticulateBoundHg ) THEN\n\n          ! Conversion factor to pptv\n          ToPptv = ( AIRMW                                  /                &\n                     State_Chm%SpcData(id_HgP)%Info%MW_g  *                  &\n                     1.0e+12_fp                               )\n\n          ! Save into State_Diag\n          State_Diag%ParticulateBoundHg = &\n                     State_Chm%Species(id_HgP)%Conc(:,:,:) * ToPptv\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Archive quantities for satellite diagnostics (if requested)\n    !========================================================================\n    IF ( State_Diag%Archive_SatDiagn ) THEN\n       CALL Do_Archive_SatDiagn( Input_Opt,  State_Chm,  State_Diag,         &\n                                 State_Grid, State_Met,  RC                 )\n    ENDIF\n\n\n    ! Error handling\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error converting species units for archiving diagnostics #2'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    IF ( State_Diag%Archive_SfcType ) THEN\n       State_Diag%IsWater = 0.0_fp\n       State_Diag%IsLand  = 0.0_fp\n       State_Diag%IsIce   = 0.0_fp\n       State_Diag%IsSnow  = 0.0_fp\n       !$OMP PARALLEL DO        &\n       !$OMP DEFAULT( SHARED  ) &\n       !$OMP PRIVATE( I, J    )\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          IF ( State_Met%IsWater(I,J) ) State_Diag%IsWater(I,J) = 1.0_fp\n          IF ( State_Met%IsLand(I,J)  ) State_Diag%IsLand(I,J)  = 1.0_fp\n          IF ( State_Met%IsIce(I,J)   ) State_Diag%IsIce(I,J)   = 1.0_fp\n          IF ( State_Met%IsSnow(I,J)  ) State_Diag%IsSnow(I,J)  = 1.0_fp\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n  END SUBROUTINE Set_Diagnostics_EndofTimestep\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Zero_Diagnostics_StartofTimestep\n!\n! !DESCRIPTION: This routine sets certain diagnostic arrays to zero. This\n!  is intended for diagnostics that must be reset to zero each timestep but\n!  that do not have a clear place in the source code execution for doing this,\n!  generally because they are set in multiple places.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Zero_Diagnostics_StartofTimestep( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Diag_Mod, ONLY : DgnState\n    USE Time_Mod,       ONLY : Its_Time_for_Chem\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt    ! Input Options object\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag     ! Diagnostics state obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  01 Feb 2018 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, thisLoc\n\n    !=======================================================================\n    ! Zero_Diagnostics_StartofTimestep begins here\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n    ' -> at Zero_Diagnostics_StartofTimestep (in GeosCore/diagnostics_mod.F90)'\n\n    !---------------------\n    ! Mercury simulation\n    !---------------------\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       IF ( Its_Time_For_Chem() ) THEN\n          IF ( State_Diag%Archive_DryDepChm   .or.                           &\n               State_Diag%Archive_DryDep    ) THEN\n             State_Diag%DryDepChm = 0.0_f4\n          ENDIF\n       ENDIF\n\n       IF ( State_Diag%Archive_EmisHg2rivers ) THEN\n          State_Diag%EmisHg2rivers = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_EmisHg2snowToOcean ) THEN\n          State_Diag%EmisHg2snowToOcean = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_FluxOCtoDeepOcean ) THEN\n          State_Diag%FluxOCtoDeepOcean = 0.0_f4\n       ENDIF\n\n    ENDIF\n\n    !---------------------\n    ! Dry deposition\n    !---------------------\n    IF ( Input_Opt%LDRYD ) THEN\n\n       ! Initialize the DryDepMix and DryDepChm diagnostic arrays for the\n       ! History diagnostics.  This will prevent leftover values from being\n       ! carried over to this timestep. (For example, if on the last\n       ! iteration, the PBL height was higher than it is now, then we will\n       ! have stored drydep fluxes up to that height, so we need to zero\n       ! these out.)\n       IF ( Its_Time_For_Chem() )THEN\n          IF ( State_Diag%Archive_DryDepChm   .or.                           &\n               State_Diag%Archive_DryDep    ) THEN\n             State_Diag%DryDepChm = 0.0_f4\n          ENDIF\n       ENDIF\n       IF ( State_Diag%Archive_DryDepMix .or. State_Diag%Archive_DryDep ) THEN\n          State_Diag%DryDepMix = 0.0_f4\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Zero_Diagnostics_StartofTimestep\n!EOC\n#ifdef ADJOINT\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_SpcAdj_Diagnostic\n!\n! !DESCRIPTION: Subroutine Set_SpcAdj\\_Diagnostic sets the passed species\n!  adjoint diagnostic array stored in State_Diag to the instantaneous\n!  State_Chm%SpeciesAdj values converted to the diagnostic unit stored in\n!  the State_Diag metadata.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_SpcAdj_Diagnostic( Input_Opt, State_Chm, State_Diag,    &\n                                    State_Grid, State_Met, RC           )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnMap\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE UnitConv_Mod,   ONLY : Check_Units, KG_SPECIES_PER_KG_DRY_AIR\n    USE TIME_MOD,       ONLY : GET_LOCALTIME\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt      ! Input Options object\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid     ! Grid state object\n    TYPE(MetState),   INTENT(IN)  :: State_Met      ! Meteorology state object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC      ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  15 Dec 2019 - C. Lee - Initial version\n!  17 Dec 2020 - C. Lee - Updated to account for changes to Set_SpcConcs\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL               :: Found\n    INTEGER               :: N, S, I\n    REAL(fp)              :: LT,  GOOD\n\n    ! Strings\n    CHARACTER(LEN=255)    :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(DgnMap), POINTER :: mapData\n\n\n   ! Arrays \n    REAL(fp)   :: TmpSpcArr(State_Grid%NX,State_Grid%NY, &\n                           State_Grid%NZ,State_Chm%nSpecies)\n\n\n    !====================================================================\n    ! Set_SpcAdj_Diagnostic begins here!\n    !====================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n    ThisLoc = ' -> Set_SpcAdj_Diagnostic (in GeosCore/diagnostics_mod.F90)'\n\n    ! Make sure all units are in kg/kg dry\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES_PER_KG_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"kg/kg dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SpeciesAdj (concentrations diagnostic) [v/v dry]\n    !=======================================================================\n    IF ( Input_Opt%Is_Adjoint ) THEN\n\n       ! Point to mapping obj specific to SpeciesAdj diagnostic collection\n       mapData => State_Diag%Map_SpeciesAdj\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( N, S   )\n       DO S = 1, mapData%nSlots\n          N = mapData%slot2id(S)\n          State_Diag%SpeciesAdj(:,:,:,S) = State_Chm%SpeciesAdj(:,:,:,N)\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       mapData => NULL()\n\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SatDiagn (satellite diagnostic output) [v/v dry]\n    !=======================================================================\n    IF ( State_Diag%Archive_SatDiagnConc ) THEN\n\n       ! Point to mapping obj specific to species boundary conditions\n       mapData => State_Diag%Map_SatDiagnConc\n\n       ! Loop over the number of advected species that we wish\n       ! to save at a user-specified local time range\n       ! Loop over longitudes:\n       DO I = 1, State_Grid%NX\n\n          ! Get local time in hours:\n          LT = GET_LOCALTIME(I, 1, 1, State_Grid)\n          IF ( LT < 0  ) LT = LT + 24e+0_fp\n          ! Check if local time is during satellite overpass time:\n          IF ( LT >= State_Diag%SatDiagn_StartHr .and. &\n               LT <= State_Diag%SatDiagn_EndHr ) THEN\n\n             ! GOOD = 1 if during local time range, 0 otherwise:\n             GOOD = 1e+0_fp\n\n          ELSE\n\n             GOOD = 0e+0_fp\n\n          ENDIF\n\n          !$OMP PARALLEL DO       &\n          !$OMP DEFAULT( SHARED ) &\n          !$OMP PRIVATE( N, S   )\n          DO S = 1, mapData%nSlots\n             N = mapData%slot2id(S)\n     ! TmpSpcArr is not defined    \n             State_Diag%SatDiagnConc(I,:,:,S) = TmpSpcArr(I,:,:,N) * GOOD\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDDO\n\n       ! Free pointer\n       mapData => NULL()\n\n    ENDIF\n\n  END SUBROUTINE Set_SpcAdj_Diagnostic\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_SpcConc_Diags_VVDry\n!\n! !DESCRIPTION: Subroutine Set_SpcConc\\_DiagVVDry sets several species\n!  concentration diagnostic arrays stored in State_Diag to the instantaneous\n!  State_Chm%Species values (in units of \"v/v, dry air\").\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt,  State_Chm, State_Diag,     &\n                                      State_Grid, State_Met, RC            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnMap\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE Time_Mod,       ONLY : Get_LocalTime\n    USE UnitConv_Mod,   ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met    ! Meteorology State obj\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag   ! Diagnsotics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  08 Jul 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER               :: D, I, J, L, N, S\n    REAL(fp)              :: TmpVal, Conv, LT, GOOD\n\n    ! Strings\n    CHARACTER(LEN=255)    :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(DgnMap), POINTER :: mapData\n\n    !====================================================================\n    ! Set_SpcConc_Diags_VVDry begins here!\n    !====================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n    ThisLoc = &\n         ' -> at Set_SpcConc_Diags_VVDry (in GeosCore/diagnostics_mod.F90)'\n\n    ! Verify that incoming State_Chm%Species units are mol/mol dry air.\n    IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"mol/mol dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SpeciesConc (concentrations diagnostic) [v/v dry]\n    !=======================================================================\n    IF ( State_Diag%Archive_SpeciesConcVV ) THEN\n\n       ! Point to mapping obj specific to SpeciesConcVV diagnostic collection\n       mapData => State_Diag%Map_SpeciesConcVV\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( N, S   )\n       DO S = 1, mapData%nSlots\n          N = mapData%slot2id(S)\n          State_Diag%SpeciesConcVV(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:)\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       mapData => NULL()\n\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SatDiagn (satellite diagnostic output) [v/v dry]\n    !=======================================================================\n    IF ( State_Diag%Archive_SatDiagnConc ) THEN\n\n       ! Loop over longitudes\n       !$OMP PARALLEL DO                                                    &\n       !$OMP DEFAULT( SHARED                                               )&\n       !$OMP PRIVATE( I, LT, GOOD, S, N                                    )\n       DO I = 1, State_Grid%NX\n\n          ! Get local time in hours\n          LT = Get_LocalTime( I, 1, 1, State_Grid )\n          IF ( LT < 0  ) LT = LT + 24.0_fp\n\n          ! Check if local time is during satellite overpass time:\n          ! GOOD = 1 if during local time range, 0 otherwise\n          GOOD = 0e+0_fp\n          IF ( LT >= State_Diag%SatDiagn_StartHr .and.                      &\n               LT <= State_Diag%SatDiagn_EndHr ) GOOD = 1e+0_fp\n\n          ! Archie into SatDiagnConc diagnostic array\n          DO S = 1, State_Diag%Map_SatDiagnConc%nSlots\n             N = State_Diag%Map_SatDiagnConc%slot2id(S)\n             State_Diag%SatDiagnConc(I,:,:,S) =      &\n                  State_Chm%Species(N)%Conc(I,:,:) * GOOD\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SpeciesBC (transport boundary conditions) [v/v dry]\n    !=======================================================================\n    IF ( State_Diag%Archive_SpeciesBC ) THEN\n\n       ! Point to mapping obj specific to species boundary conditions\n       mapData => State_Diag%Map_SpeciesBC\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( N, S   )\n       DO S = 1, mapData%nSlots\n          N = mapData%slot2id(S)\n          State_Diag%SpeciesBC(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:)\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       mapData => NULL()\n\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SpeciesRst (restart file output) [v/v dry]\n    !=======================================================================\n    IF ( State_Diag%Archive_SpeciesRst ) THEN\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( N      )\n       DO N = 1, State_Chm%nSpecies\n          State_Diag%SpeciesRst(:,:,:,N) = State_Chm%Species(N)%Conc(:,:,:)\n       ENDDO\n       !$OMP END PARALLEL DO\n   ENDIF\n\n    !=======================================================================\n    ! Diagnostic for correcting species concentrations from the height\n    ! of the lowest model level to the surface.\n    !\n    ! Use this diagnostic to correct species concentration values from\n    ! (typically for O3 or HNO3) from the lowest model layer, ~60m,\n    ! to the surface.\n    !\n    !    C(Zc) = [ 1 - Ra(Z1,Zc) * Vd(Z1) ] * C(Z1)\n    !\n    ! where\n    !    Ra(Z1,ZC) is the aerodynamic resistance between Z1 and ZC,\n    !\n    !    Vd(Z1) is the ozone deposition velocity at Z1, and\n    !\n    !    C(Z1) is the ozone concentration at Z1.\n    !\n    ! Ra(Z1,Zc) is calculated to the lowest model level in drydep_mod.F90.\n    ! We recalculate Ra using Z1 using a value specified in geoschem_config.yml;\n    ! usually 10m, which is the height of the CASTNET measurement for O3.\n    ! This new Ra is stored in State_Diag%DryDepRaALT1.\n    !\n    ! References:\n    ! (1) Travis, K.R., et al, \"Resolving vertical ozone vertical gradients\n    !      in air quality models, Atmos. Chem. Phys. Disc., 2017.\n    ! (2) Zhang, L.,et al, \"Nitrogen deposition to the United States:\n    !      distribution, sources, and processes\" Atmos. Chem. Phys.,\n    !      12, 4,539-4,4554, 2012.\n    !=======================================================================\n    IF ( State_Diag%Archive_ConcAboveSfc ) THEN\n\n       ! Loop over the number of drydep species that we wish\n       ! to save at a user-specified altitude above the surface\n       !$OMP PARALLEL DO                 &\n       !$OMP DEFAULT( SHARED           ) &\n       !$OMP PRIVATE( D, N, I, J, Conv )\n       DO D = 1, State_Chm%nDryAlt\n\n          ! Get the corresponding species index and drydep index\n          N = State_Chm%Map_DryAlt(D)\n\n          ! Loop over surface locations\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Conversion factor used to translate from\n             ! lowest model layer (~60m) to the surface\n             Conv = ( 1.0_fp                                              &\n                  -   ( State_Diag%DryDepRaALT1(I,J) / 100.0_fp )         &\n                  *   State_Diag%DryDepVelForALT1(I,J,D)                 )\n\n             ! Do not let CONV go negative\n             IF ( Conv < 0.0_fp ) Conv = 1.0_fp\n\n             ! Save concentration at the user-defined altitude\n             ! as defined in geoschem_config.yml (usually 10m).\n             State_Diag%SpeciesConcALT1(I,J,D) =            &\n                  State_Chm%Species(N)%Conc(I,J,1) * Conv\n\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n  END SUBROUTINE Set_SpcConc_Diags_VVDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_SpcConc_Diags_MND\n!\n! !DESCRIPTION: Subroutine Set_SpcConc\\_Diags\\_MND sets several species\n!  concentration diagnostic arrays stored in State_Diag to the instantaneous\n!  State_Chm%Species values (in units of \"molecules/cm3 air\").\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_SpcConc_Diags_MND  ( Input_Opt,  State_Chm, State_Diag,     &\n                                      State_Grid, State_Met, RC            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : AVO\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnMap\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE UnitConv_Mod,   ONLY : Check_Units, KG_SPECIES_PER_KG_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met    ! Meteorology State obj\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag   ! Diagnsotics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Nov 2021 - H.P. Lin    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER               :: N, S\n    REAL(fp)              :: MW_kg\n\n    ! Strings\n    CHARACTER(LEN=255)    :: ErrMsg, ThisLoc, OrigUnit\n\n    ! Objects\n    TYPE(DgnMap), POINTER :: mapData\n\n    !====================================================================\n    ! Set_SpcConc_Diags_MND begins here!\n    !====================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n    ThisLoc = &\n         ' -> at Set_SpcConc_Diags_MND (in GeosCore/diagnostics_mod.F90)'\n\n    ! Verify that incoming State_Chm%Species units are kg/kg dry air.\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES_PER_KG_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"kg/kg dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Copy species to SpeciesConcMND (concentrations diagnostic) [molec/cm3]\n    !=======================================================================\n    IF ( State_Diag%Archive_SpeciesConcMND ) THEN\n\n       ! Point to mapping obj specific to SpeciesConcMND diagnostic collection\n       mapData => State_Diag%Map_SpeciesConcMND\n\n       !$OMP PARALLEL DO            &\n       !$OMP DEFAULT( SHARED      ) &\n       !$OMP PRIVATE( N, S, MW_kg )\n       DO S = 1, mapData%nSlots\n          N = mapData%slot2id(S)\n\n          ! Molecular weight for the species [kg]\n          MW_kg = State_Chm%SpcData(N)%Info%MW_g * 1.e-3_fp\n\n          State_Diag%SpeciesConcMND(:,:,:,S) =                      &\n               State_Chm%Species(N)%Conc(:,:,:) *                   &\n               State_Met%AIRDEN(:,:,:) * ( AVO / MW_kg ) / 1e+6_fp\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       mapData => NULL()\n\n    ENDIF\n\n  END SUBROUTINE Set_SpcConc_Diags_MND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_Column_Mass\n!\n! !DESCRIPTION: Subroutine Compute\\_Budget\\_Diagnostics calculates the\n!  budget diagnostics for a given component by taking the difference of the\n!  final and initial kg per grid cell and dividing by the timestep in seconds\n!  to get kg/s.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Budget_Diagnostics( Input_Opt,  State_Chm, State_Diag,  &\n                                         State_Grid, State_Met,              &\n                                         isFull,     diagFull, mapDataFull,  &\n                                         isTrop,     diagTrop, mapDataTrop,  &\n                                         isPBL,      diagPBL,  mapDataPBL,   &\n                                         isLevs,     diagLevs, mapDataLevs,  &\n                                         colMass,    RC,       timeStep,     &\n                                         isWetDep,   before_op              )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  Only : OptInput\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnMap\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE UnitConv_Mod,   ONLY : Check_Units, KG_SPECIES_PER_KG_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt        ! Input options object\n    TYPE(DgnState), INTENT(IN)    :: State_Diag       ! Diagnostic state object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid       ! Grid state object\n    TYPE(MetState), INTENT(IN)    :: State_Met        ! Meteorology state obj\n    LOGICAL,        INTENT(IN)    :: isFull           ! T if full col diag on\n    TYPE(DgnMap),   POINTER       :: mapDataFull      ! Map to species indexes\n    LOGICAL,        INTENT(IN)    :: isTrop           ! T if trop col diag on\n    TYPE(DgnMap),   POINTER       :: mapDataTrop      ! Map to species indexes\n    LOGICAL,        INTENT(IN)    :: isPBL            ! T if PBL col diag on\n    TYPE(DgnMap),   POINTER       :: mapDataPBL       ! Map to species indexes\n    LOGICAL,        INTENT(IN)    :: isLevs           ! T if fixed levels diag on\n    TYPE(DgnMap),   POINTER       :: mapDataLevs      ! Map to species indexes\n    LOGICAL,        OPTIONAL      :: isWetDep         ! T = wetdep budgets\n    LOGICAL,        OPTIONAL      :: before_op        ! T = before operation\n    REAL(f8),       OPTIONAL      :: timestep         ! F = after operation\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm        ! Chemistry state obj\n    REAL(f8),       POINTER       :: diagFull(:,:,:)  ! ptr to full col diag\n    REAL(f8),       POINTER       :: diagTrop(:,:,:)  ! ptr to trop col diag\n    REAL(f8),       POINTER       :: diagPBL(:,:,:)   ! ptr to pbl col diag\n    REAL(f8),       POINTER       :: diagLevs(:,:,:)  ! ptr to levs col diag\n    REAL(f8),       POINTER       :: colMass(:,:,:,:) ! Initial column mass\n                                                      ! (I,J,spc,col region)\n                                                      ! 1:full, 2:trop, 3:pbl\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC               ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Aug 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: after,  before, wetDep\n    INTEGER            :: I,      J,      L,       N,      S\n    INTEGER            :: numSpc, region, topLev,  botLev\n    REAL(f8)           :: colSum, dt\n\n    ! Arrays\n    REAL(f8)           :: spcMass(State_Grid%NZ)\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !====================================================================\n    ! Compute_Budget_Diagnostics begins here!\n    !====================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    errMsg  = ''\n    ThisLoc = ' -> at Compute_Column_Mass (in GeosCore/diagnostics_mod.F90)'\n    colSum  = 0.0_f8\n    spcMass = 0.0_f8\n\n    ! Verify that incoming State_Chm%Species units are kg/kg dry air.\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES_PER_KG_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"kg/kg dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Set logicals to denote if we are calling this routine\n    ! before the operation or after the operation\n    IF ( PRESENT( before_op ) ) THEN\n       before = before_op\n    ELSE\n       before = .FALSE.\n    ENDIF\n    after = ( .not. before )\n\n    ! Test if the budgets are for wetdep species\n    IF ( PRESENT( isWetDep ) ) THEN\n       wetDep = isWetDep\n    ELSE\n       wetDep = .FALSE.\n    ENDIF\n\n    ! Make sure the timeStep argument is passed (if after operation)\n    IF ( after .and. ( .not. PRESENT( timeStep ) ) ) THEN\n       errMsg = 'The timeStep argument was not passed!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Make sure mapDataFull and diagFull are not undefined\n    IF ( isFull ) THEN\n       IF ( .not. ASSOCIATED( mapDataFull ) ) THEN\n          errMsg = 'The mapDataFull object is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       IF ( after .and. ( .not. ASSOCIATED( diagFull ) ) ) THEN\n          errMsg = 'The diagFull array is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Make sure mapDataTrop and diagTrop are not undefined\n    IF ( isTrop ) THEN\n       IF ( .not. ASSOCIATED( mapDataTrop ) ) THEN\n          errMsg = 'The mapDataTrop object is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       IF ( after .and. ( .not. ASSOCIATED( diagTrop ) ) ) THEN\n          errMsg = 'The diagTrop array is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Make sure mapDataPBL and diagPBL are not undefined\n    IF ( isPBL ) THEN\n       IF ( .not. ASSOCIATED( mapDataPBL ) ) THEN\n          errMsg = 'The mapDataPBL object is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       IF ( after .and. ( .not. ASSOCIATED( diagPBL ) ) ) THEN\n          errMsg = 'The diagPBL array is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Make sure mapDataLevs and diagLevs are not undefined\n    IF ( isLevs ) THEN\n       IF ( .not. ASSOCIATED( mapDataLevs ) ) THEN\n          errMsg = 'The mapDataLevs object is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       IF ( after .and. ( .not. ASSOCIATED( diagLevs ) ) ) THEN\n          errMsg = 'The diagLevs array is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Make sure the colMass array is not undefined\n    IF ( .not. ASSOCIATED( colMass ) ) THEN\n       errMsg = 'The colMass array is undefined!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !====================================================================\n    ! Before operation: Compute column masses (full, trop, PBL, levs)\n    !\n    ! After operation:  Compute column differences (final-initial)\n    !                   and them update diagnostic arrays\n    !====================================================================\n\n    ! Zero out the column mass array if we are calling this routine\n    ! before the desired operation.  This will let us compute initial mass.\n    IF ( before ) THEN\n       colMass = 0.0_f8\n    ENDIF\n\n    ! Loop over NX and NY dimensions\n    !$OMP PARALLEL DO                               &\n    !$OMP DEFAULT( SHARED                          )&\n    !$OMP PRIVATE( I, J, S, N, L                   )&\n    !$OMP PRIVATE( colSum, spcMass, topLev, botLev )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero column-specific variables\n       colSum  = 0.0_f8\n       spcMass = 0.0_f8\n       topLev  = 0\n\n       !--------------------------------------------------------------------\n       ! Full-column budget for requested species\n       !--------------------------------------------------------------------\n       IF ( isFull ) THEN\n\n          ! Loop over # of diagnostic slots\n          DO S = 1, mapDataFull%nSlots\n\n             ! Initialize column-specfic variables\n             colSum  = 0.0_f8\n             spcMass = 0.0_f8\n\n             ! For wetdep budgets, translate wetdep ID to modelId\n             ! Otherwise, get the modelId from the slotId\n             IF ( wetDep ) THEN\n                N = State_Chm%Map_WetDep(mapDataFull%slot2Id(S))\n             ELSE\n                N = mapDataFull%slot2Id(S)\n             ENDIF\n\n             ! Compute mass at each grid box in the column [kg]\n             DO L = 1, State_Grid%NZ\n                spcMass(L) = State_Chm%Species(N)%Conc(I,J,L) * &\n                             State_Met%AD(I,J,L)\n             ENDDO\n\n             ! Compute the full-atmosphere column mass [kg]\n             colSum = SUM( spcMass(1:State_Grid%NZ)  )\n\n             ! Before operation: Compute initial full-atm column mass\n             ! After operation: Compute change in column mass (final-initial),\n             ! convert to [kg/s], and store in the diagFull array.\n             IF ( before ) THEN\n                colMass(I,J,N,1) = colSum\n             ELSE\n#ifdef MODEL_GEOS\n                diagFull(I,J,S) = ( colSum - colMass(I,J,N,1) ) / timeStep &\n                                / State_Grid%AREA_M2(I,J)\n#else\n                diagFull(I,J,S) = ( colSum - colMass(I,J,N,1) ) / timeStep\n#endif\n             ENDIF\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Troposphere-only budget for each requested species\n       !---------------------------------------------------------------------\n       IF ( isTrop ) THEN\n\n          ! Top level in the column\n          topLev = State_Met%TropLev(I,J)\n\n          ! Loop over # of diagnostic slots\n          DO S = 1, mapDataTrop%nSlots\n\n             ! Initialize column-specfic variables\n             colSum  = 0.0_f8\n             spcMass = 0.0_f8\n\n             ! For wetdep budgets, translate wetdep ID to modelId\n             ! Otherwise, get the modelId from the slotId\n             IF ( wetDep ) THEN\n                N = State_Chm%Map_WetDep(mapDataTrop%slot2Id(S))\n             ELSE\n                N = mapDataTrop%slot2Id(S)\n             ENDIF\n\n             ! Compute mass at each grid box in the troposphere [kg]\n             DO L = 1, topLev\n                spcMass(L) = State_Chm%Species(N)%Conc(I,J,L) * &\n                             State_Met%AD(I,J,L)\n             ENDDO\n\n             ! Compute the trop-column mass [kg]\n             colSum = SUM( spcMass(1:topLev) )\n\n             ! Before operation: Compute initial trop-column mass\n             ! After operation: Compute change in column mass (final-initial),\n             ! convert to [kg/s], and store in the diagTrop array.\n             IF ( before ) THEN\n                colMass(I,J,N,2) = colSum\n             ELSE\n#ifdef MODEL_GEOS\n                diagTrop(I,J,S) = ( colSum - colMass(I,J,N,2) ) / timeStep &\n                                / State_Grid%AREA_M2(I,J)\n#else\n                diagTrop(I,J,S) = ( colSum - colMass(I,J,N,2) ) / timeStep\n#endif\n             ENDIF\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! PBL-only budget for each requested species\n       !---------------------------------------------------------------------\n       IF ( isPBL ) THEN\n\n          ! Top level of column is where PBL top occurs\n          topLev = MAX( 1, FLOOR( State_Met%PBL_TOP_L(I,J) ) )\n\n          ! Loop over # of diagnostic slots\n          DO S = 1, mapDataPBL%nSlots\n\n             ! Initialize column-specfic variables\n             colSum  = 0.0_f8\n             spcMass = 0.0_f8\n\n             ! For wetdep budgets, translate wetdep ID to modelId\n             ! Otherwise, get the modelId from the slotId\n             IF ( wetDep ) THEN\n                N = State_Chm%Map_WetDep(mapDataPBL%slot2Id(S))\n             ELSE\n                N = mapDataPBL%slot2Id(S)\n             ENDIF\n\n             ! Compute mass at each grid box in the column [kg]\n             DO L = 1, topLev\n                spcMass(L) = State_Chm%Species(N)%Conc(I,J,L) * &\n                             State_Met%AD(I,J,L)\n             ENDDO\n\n             ! Compute column mass in PBL region [kg]\n             colSum = SUM( spcMass(1:topLev) )\n\n             ! Before operation: Compute initial PBL-column mass\n             ! After operation: Compute change in column mass (final-initial),\n             ! convert to [kg/s], and store in the diagPBL array.\n             IF ( before ) THEN\n                colMass(I,J,N,3) = colSum\n             ELSE\n#ifdef MODEL_GEOS\n                diagPBL(I,J,S) = ( colSum - colMass(I,J,N,3) ) / timeStep &\n                               / State_Grid%AREA_M2(I,J)\n#else\n                diagPBL(I,J,S) = ( colSum - colMass(I,J,N,3) ) / timeStep\n#endif\n             ENDIF\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Levs-only budget for each requested species\n       !---------------------------------------------------------------------\n       IF ( isLevs ) THEN\n         \n          ! Top and bottom levels of column\n          topLev = State_Diag%BudgetTopLev_int\n          botLev = State_Diag%BudgetBotLev_int\n\n          ! Loop over # of diagnostic slots\n          DO S = 1, mapDataLevs%nSlots\n\n             ! Initialize column-specfic variables\n             colSum  = 0.0_f8\n             spcMass = 0.0_f8\n\n             ! For wetdep budgets, translate wetdep ID to modelId\n             ! Otherwise, get the modelId from the slotId\n             IF ( wetDep ) THEN\n                N = State_Chm%Map_WetDep(mapDataLevs%slot2Id(S))\n             ELSE\n                N = mapDataLevs%slot2Id(S)\n             ENDIF\n\n             ! Compute mass at each grid box in the column [kg]\n             DO L = botLev, topLev\n                spcMass(L) = State_Chm%Species(N)%Conc(I,J,L) * &\n                             State_Met%AD(I,J,L)\n             ENDDO\n\n             ! Compute column mass in Levs region [kg]\n             colSum = SUM( spcMass(botLev:topLev) )\n\n             ! Before operation: Compute initial Levs-column mass\n             ! After operation: Compute change in column mass (final-initial),\n             ! convert to [kg/s], and store in the diagLevs array.\n             IF ( before ) THEN\n                colMass(I,J,N,4) = colSum\n             ELSE\n#ifdef MODEL_GEOS\n                diagLevs(I,J,S) = ( colSum - colMass(I,J,N,4) ) / timeStep &\n                               / State_Grid%AREA_M2(I,J)\n#else\n                diagLevs(I,J,S) = ( colSum - colMass(I,J,N,4) ) / timeStep\n#endif\n             ENDIF\n          ENDDO\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE Compute_Budget_Diagnostics\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Archive_SatDiagn\n!\n! !DESCRIPTION: Masks satellite diagnostic fields by the requested local\n!  time window.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Archive_SatDiagn( Input_Opt,  State_Chm,  State_Diag,        &\n                                  State_Grid, State_Met,  RC                )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : AVO\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState, Ind_\n    USE State_Diag_Mod, ONLY : DgnState, DgnMap\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Time_Mod,       ONLY : Get_LocalTime\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm    ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostic State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: first = .TRUE.\n    INTEGER, SAVE          :: id_OH = -1\n\n    ! Scalars\n    INTEGER                :: I,    N,      S,   J\n    REAL(fp)               :: good, locTime\n\n    ! Strings\n    CHARACTER(LEN=255)     :: thisLoc\n    CHARACTER(LEN=512)     :: errMsg\n\n    ! Pointers & Objects\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=======================================================================\n    ! Do_Archive_SatDiagn begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    good    =  0.0_fp\n    locTime =  0.0_fp\n    Spc     => State_Chm%Species\n    errMsg  = ''\n    thisLoc = &\n     ' -> at Do_Archive_SatDiagn (in module GeosCore/diagnostics_mod.F90)'\n\n    ! Get the species ID for OH if this is the first call\n    IF ( first ) THEN\n       IF ( Input_Opt%ITS_A_CARBON_SIM     .or.                              &\n            Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n          id_OH  = Ind_('OH')\n          IF ( id_OH < 0 ) THEN\n             id_OH = Ind_('FixedOH')\n             IF ( id_OH < 0 ) THEN\n                errMsg = 'OH is not a defined species in this simulation!!!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n       first= .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Archive satellite diagnostics\n    !========================================================================\n\n    ! Loop over longitudes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, locTime, good, S, N                                )\n    DO I = 1, State_Grid%NX\n\n       !---------------------------------------------------------------------\n       ! Local time\n       !---------------------------------------------------------------------\n\n       ! Get local time (and make sure it isn't negative)\n       locTime = Get_LocalTime( I, 1, 1, State_Grid )\n       IF ( locTime < 0 ) locTime = locTime + 24.0_fp\n\n       ! Determine whether during satellite overpass time window:\n       ! good = 1 if during local time range, 0 otherwise:\n       !\n       !%%% TODO This should be a property of the HISTORY container\n       !%%% rather than SatDiagn.  This will prevent multiple SatDiagn\n       !%%% collections from being run at once.  Fix this later.\n       !%%%   -- Bob Yantosca (01 Nov 2022)\n       good = 0.0_fp\n       IF ( locTime >= State_Diag%SatDiagn_StartHr  .and.                    &\n            locTime <= State_Diag%SatDiagn_EndHr   ) good = 1.0_fp\n\n       !---------------------------------------------------------------------\n       ! SatDiagnCount and SatDiagnEdgeCount: Count number of local times\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnCount ) THEN\n          State_Diag%SatDiagnCount(I,:,:) = &\n          State_Diag%SatDiagnCount(I,:,:) + good\n       ENDIF\n\n       IF ( State_Diag%Archive_SatDiagnEdgeCount ) THEN\n          State_Diag%SatDiagnEdgeCount(I,:,:) = &\n          State_Diag%SatDiagnEdgeCount(I,:,:) + good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagnOH: OH concentration [molec/cm3]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnOH ) THEN\n          State_Diag%SatDiagnOH(I,:,1:State_Met%MaxChemLev) =               &\n               ( Spc(id_OH)%Conc(I,:,1:State_Met%MaxChemLev) * good  *      &\n               State_Met%AIRDEN(I,:,1:State_Met%MaxChemLev)  * AVO ) /      &\n               ( State_Chm%SpcData(id_OH)%Info%MW_g ) / 1.0e+3_fp\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagnRH: Relative humidity [%]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnRH ) THEN\n          State_Diag%SatDiagnRH(I,:,:) = State_Met%RH(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagnAirDen: Air density [molec/cm3]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnAirDen ) THEN\n          State_Diag%SatDiagnAirDen(I,:,:) =                                 &\n               State_Met%AirNumDen(I,:,:)  * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Grid box height [m]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnBoxHeight ) THEN\n          State_Diag%SatDiagnBoxHeight(I,:,:) =                              &\n               State_Met%BXHEIGHT(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Pressure edges [hPa]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPEdge ) THEN\n          State_Diag%SatDiagnPEdge(I,:,:) = State_Met%PEDGE(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Pressure at level midpoints [hPa]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPMid ) THEN\n          State_Diag%SatDiagnPMid(I,:,:) = State_Met%PMid(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Tropopause pressure [hPa]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnTROPP ) THEN\n          State_Diag%SatDiagnTROPP(I,:) = State_Met%TROPP(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Tropopause level [unitless]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnTropLev ) THEN\n          State_Diag%SatDiagnTropLev(I,:) = State_Met%TropLev(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! PBL Height [m]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPBLHeight ) THEN\n          State_Diag%SatDiagnPBLHeight(I,:) = State_Met%PBLH(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! PBL Top [m]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPBLTop ) THEN\n          State_Diag%SatDiagnPBLTop(I,:) = State_Met%PBL_TOP_m(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Air temperature [K]: Temperature Interpolated to Current Time\n       ! This temperture is interpolated from 3 h Met Field (TMPU1 and TMPU2)\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnTAir ) THEN\n          State_Diag%SatDiagnTAir(I,:,:) = State_Met%T(I,:,:) * good\n       ENDIF\n\n       ! --------------------------------------------\n       ! 3D cloud fractions [unitless]\n       ! --------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnCldFrac ) THEN          \n          State_Diag%SatDiagnCldFrac(I,:,:) = State_Met%CLDF(I,:,:) * GOOD      \n       ENDIF\n\n       ! --------------------------------------------\n       ! Cloud top height pressure [hPa]\n       ! --------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnCldTopP ) THEN\n\n          ! Loop over latitudes:\n          DO J = 1, State_Grid%NY\n             State_Diag%SatDiagnCldTopP(I,J) = &\n                  State_Met%PEDGE(I,J,State_MET%CLDTOPS(I,J)) * GOOD\n          ENDDO\n          \n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Root Zone Soil Moisture (or Wetness) [fraction]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnGWETROOT ) THEN\n          State_Diag%SatDiagnGWETROOT(I,:) = State_Met%GWETROOT(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Topsoil Moisture (or Wetness) [fraction]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnGWETTOP ) THEN\n          State_Diag%SatDiagnGWETTOP(I,:) = State_Met%GWETTOP(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Direct Photosynthetically Active Radiation [W/m2]:\n       ! Aka Surface downward PAR beam flux\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPARDR ) THEN\n          State_Diag%SatDiagnPARDR(I,:) = State_Met%PARDR(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Diffuse Photosynthetically Active Radiation [W/m2]:\n       ! Aka Surface downward PAR diffuse flux\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPARDF ) THEN\n          State_Diag%SatDiagnPARDF(I,:) = State_Met%PARDF(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Total Precipitation (at surface) [mm/day]:\n       ! Documentation says this variable is converted from original\n       ! units of kg/m2/s\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPRECTOT ) THEN\n          State_Diag%SatDiagnPRECTOT(I,:) = State_Met%PRECTOT(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Sea Level Pressure [hPa]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnSLP ) THEN\n          State_Diag%SatDiagnSLP(I,:) = State_Met%SLP(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Specific Humidity Interpolated to Current Time [g H2O/kg air]:\n       ! Linearly interpolated from 3 h met field (SPHU1 and SPHU2)\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnSPHU ) THEN\n          State_Diag%SatDiagnSPHU(I,:,:) = State_Met%SPHU(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Surface Temperature at 2m [K]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnTS ) THEN\n          State_Diag%SatDiagnTS(I,:) = State_Met%TS(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! PBL Top Height [Levels]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnPBLTOPL ) THEN\n          State_Diag%SatDiagnPBLTOPL(I,:) = State_Met%PBL_TOP_L(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! MODIS Daily LAI [m2/m2]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnMODISLAI ) THEN\n          State_Diag%SatDiagnMODISLAI(I,:) = State_Met%MODISLAI(I,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for WetLossLS [units of kg/s as per WetLossLS]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnWetLossLS ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnWetLossLS%nSlots\n             State_Diag%SatDiagnWetLossLS(I,:,:,S) =                         &\n             State_Diag%SatDiagnWetLossLS(I,:,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for WetLossConv [units of kg/s as per WetLossConv]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnWetLossConv ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnWetLossConv%nSlots\n             State_Diag%SatDiagnWetLossConv(I,:,:,S) =                       &\n             State_Diag%SatDiagnWetLossConv(I,:,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for Jval [units of s-1 as per Jval]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnJval ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnJval%nSlots\n             State_Diag%SatDiagnJval(I,:,:,S) =                              &\n             State_Diag%SatDiagnJval(I,:,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for JvalO3O1D [units of s-1 as per JvalO3O1D]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnJvalO3O1D ) THEN\n          State_Diag%SatDiagnJvalO3O1D(I,:,:) =                              &\n          State_Diag%SatDiagnJvalO3O1D(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for JvalO3O3P [units of s-1 as per JvalO3O3P]:\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnJvalO3O3P ) THEN\n          State_Diag%SatDiagnJvalO3O3P(I,:,:) =                              &\n          State_Diag%SatDiagnJvalO3O3P(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for DryDep [units of molec cm-2 s-1 as per DryDep]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnDryDep ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnDryDep%nSlots\n             State_Diag%SatDiagnDryDep(I,:,S) =                              &\n             State_Diag%SatDiagnDryDep(I,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for DryDepVel [units of cm s-1 as per DryDepVel]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnDryDepVel ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnDryDepVel%nSlots\n             State_Diag%SatDiagnDryDepVel(I,:,S) =                           &\n             State_Diag%SatDiagnDryDepVel(I,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for OH Reactivity [units of s-1]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnOHreactivity ) THEN\n          State_Diag%SatDiagnOHreactivity(I,:,:) =                           &\n          State_Diag%SatDiagnOHreactivity(I,:,:) * good\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for Column Emissions (ColEmis) [units of kg/m2/s]:\n       ! From surface to maximum vertical level for advected species\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnColEmis ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnColEmis%nSlots\n             State_Diag%SatDiagnColEmis(I,:,S) =                             &\n             State_Diag%SatDiagnColEmis(I,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for Total Surface Fluxes [units of kg/m2/s]:\n       ! From surface to top of the PBL for Advected Species\n       ! (eflx (emis) - dflx(drydep)))\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnSurfFlux ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnSurfFlux%nSlots\n             State_Diag%SatDiagnSurfFlux(I,:,:) =                            &\n             State_Diag%SatDiagnSurfFlux(I,:,:) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for Chemical Loss\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnLoss ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnLoss%nSlots\n             State_Diag%SatDiagnLoss(I,:,:,S) =                              &\n             State_Diag%SatDiagnLoss(I,:,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for Chemical Production\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnProd ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnProd%nSlots\n             State_Diag%SatDiagnProd(I,:,:,S) =                              &\n             State_Diag%SatDiagnProd(I,:,:,S) * good\n          ENDDO\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SatDiagn Diagnostic for Reaction Rates\n       ! SatDiagnRxnRate was previously defined in fullchem_mod.F90\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_SatDiagnRxnRate ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnRxnRate%nSlots\n             State_Diag%SatDiagnRxnRate(I,:,:,S) =                           &\n             State_Diag%SatDiagnRxnRate(I,:,:,S) * good\n          ENDDO\n       ENDIF\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers for safety's sake\n    Spc => NULL()\n\n  END SUBROUTINE Do_Archive_SatDiagn\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_aermass_diagnostic\n!\n! !DESCRIPTION: Computes the aerosol mass diagnostic.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_AerMass_Diagnostic( Input_Opt,  State_Chm, State_Diag, &\n                                     State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Aerosol_Mod,    ONLY : Is_POA, Is_OPOA, Is_OCPO, Is_OCPI\n    USE Aerosol_Mod,    ONLY : Is_ComplexSOA, Is_SimpleSOA\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species, SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE PhysConstants,  ONLY : MwCarb\n    USE UnitConv_Mod,   ONLY : KG_SPECIES_PER_KG_DRY_AIR, UNIT_STR\n    USE UnitConv_Mod,   ONLY : Check_Units\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag  ! Diagnostic State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  05 Feb 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL                  :: First = .TRUE.\n\n    ! Scalars\n    INTEGER                  :: I, J, L\n\n    ! Strings\n    CHARACTER(LEN=255)       :: ThisLoc\n    CHARACTER(LEN=512)       :: ErrMsg\n\n    ! Pointers\n    REAL(fp),      POINTER :: AirDen(:,:,:  )\n    TYPE(SpcConc), POINTER :: Spc   (:      )\n    TYPE(Species), POINTER :: SpcInfo\n    REAL(fp),      POINTER :: OCFPOA      (:,:)\n    REAL(fp),      POINTER :: OCFOPOA     (:,:)\n    REAL(fp),      POINTER :: BCPI        (:,:,:)\n    REAL(fp),      POINTER :: BCPO        (:,:,:)\n    REAL(fp),      POINTER :: OCPI        (:,:,:)\n    REAL(fp),      POINTER :: OCPO        (:,:,:)\n    REAL(fp),      POINTER :: OCPISOA     (:,:,:)\n    REAL(fp),      POINTER :: SALA        (:,:,:)\n    REAL(fp),      POINTER :: ACL         (:,:,:)\n    REAL(fp),      POINTER :: SALC        (:,:,:)\n    REAL(fp),      POINTER :: SO4_NH4_NIT (:,:,:)\n    REAL(fp),      POINTER :: SO4         (:,:,:)\n    REAL(fp),      POINTER :: HMS         (:,:,:)\n    REAL(fp),      POINTER :: NH4         (:,:,:)\n    REAL(fp),      POINTER :: NIT         (:,:,:)\n    REAL(fp),      POINTER :: SLA         (:,:,:)\n    REAL(fp),      POINTER :: SPA         (:,:,:)\n    REAL(fp),      POINTER :: TSOA        (:,:,:)\n    REAL(fp),      POINTER :: ASOA        (:,:,:)\n    REAL(fp),      POINTER :: OPOA        (:,:,:)\n    REAL(fp),      POINTER :: SOAGX       (:,:,:)\n    REAL(fp),      POINTER :: PM25        (:,:,:)\n    REAL(fp),      POINTER :: PM10        (:,:,:)\n    REAL(fp),      POINTER :: PDER        (:,:,:) ! H. Zhu\n    REAL(fp),      POINTER :: ISOAAQ      (:,:,:)\n    REAL(fp),      POINTER :: SOAS        (:,:,:)\n    REAL(fp),      POINTER :: FRAC_SNA    (:,:,:,:)\n    REAL(fp),      POINTER :: DAERSL      (:,:,:,:)\n    REAL(fp),      POINTER :: WAERSL      (:,:,:,:)\n\n    ! Conversionf factors to ugC/m3 for Total Organic Carbon diagnostic\n    REAL(fp), SAVE :: Fac_INDIOL\n    REAL(fp), SAVE :: Fac_LVOCOA\n    REAL(fp), SAVE :: Fac_SOAGX\n    REAL(fp), SAVE :: Fac_SOAIE\n\n    ! Species ids\n    INTEGER,  SAVE :: id_INDIOL\n    INTEGER,  SAVE :: id_LVOCOA\n    INTEGER,  SAVE :: id_SOAGX\n    INTEGER,  SAVE :: id_SOAIE\n!\n! !DEFINED PARAMETERS:\n!\n    ! Convert [kg/m3] to [ug/m3]\n    REAL(fp),      PARAMETER :: kgm3_to_ugm3 = 1.0e+9_fp\n\n    ! Define number of carbon atoms in each irreversible isoprene\n    ! SOA tracer species. Named according to the parent HC (same\n    ! number of carbons):\n    REAL(fp),      PARAMETER :: NCIMAE   = 4e+0_fp\n    REAL(fp),      PARAMETER :: NCIEPOX  = 5e+0_fp\n    REAL(fp),      PARAMETER :: NCINDIOL = NCIEPOX\n    REAL(fp),      PARAMETER :: NCGLYX   = 2e+0_fp\n    REAL(fp),      PARAMETER :: NCGLYC   = NCGLYX\n    REAL(fp),      PARAMETER :: NCMGLY   = 3e+0_fp\n    REAL(fp),      PARAMETER :: NCLVOC   = NCIEPOX\n    REAL(fp),      PARAMETER :: NCISN1   = NCIEPOX\n\n    !=======================================================================\n    ! Set_AerMass_Diagnostic begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Set_AerMass_Diagnostic (in module GeosCore/aerosol_mod.F90)'\n\n    ! Set pointers\n    OCFPOA      => State_Chm%AerMass%OCFPOA\n    OCFOPOA     => State_Chm%AerMass%OCFOPOA\n    BCPI        => State_Chm%AerMass%BCPI\n    BCPO        => State_Chm%AerMass%BCPO\n    OCPI        => State_Chm%AerMass%OCPI\n    OCPO        => State_Chm%AerMass%OCPO\n    OCPISOA     => State_Chm%AerMass%OCPISOA\n    SALA        => State_Chm%AerMass%SALA\n    ACL         => State_Chm%AerMass%ACL\n    SALC        => State_Chm%AerMass%SALC\n    SO4_NH4_NIT => State_Chm%AerMass%SO4_NH4_NIT\n    SO4         => State_Chm%AerMass%SO4\n    HMS         => State_Chm%AerMass%HMS\n    NH4         => State_Chm%AerMass%NH4\n    NIT         => State_Chm%AerMass%NIT\n    SLA         => State_Chm%AerMass%SLA\n    SPA         => State_Chm%AerMass%SPA\n    TSOA        => State_Chm%AerMass%TSOA\n    ASOA        => State_Chm%AerMass%ASOA\n    OPOA        => State_Chm%AerMass%OPOA\n    SOAGX       => State_Chm%AerMass%SOAGX\n    PM25        => State_Chm%AerMass%PM25\n    PM10        => State_Chm%AerMass%PM10\n    PDER        => State_Chm%AerMass%PDER\n    ISOAAQ      => State_Chm%AerMass%ISOAAQ\n    SOAS        => State_Chm%AerMass%SOAS\n    FRAC_SNA    => State_Chm%AerMass%FRAC_SNA\n    DAERSL      => State_Chm%AerMass%DAERSL\n    WAERSL      => State_Chm%AerMass%WAERSL\n\n    ! Verify that incoming State_Chm%Species units are kg/kg dry air.\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES_PER_KG_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"kg/kg dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Define species ID flags for the aerosol mass diagnostics\n    IF ( First ) THEN\n\n       ! Initialize conversion factors for total OC diagnostic\n       Fac_INDIOL = 0.0_fp\n       Fac_LVOCOA = 0.0_fp\n       Fac_SOAGX  = 0.0_fp\n       Fac_SOAIE  = 0.0_fp\n\n       ! Initialize species ids\n       id_INDIOL = Ind_('INDIOL')\n       id_LVOCOA = Ind_('LVOCOA')\n       id_SOAGX  = Ind_('SOAGX')\n       id_SOAIE  = Ind_('SOAIE')\n\n       !--------------------------------------------------------------------\n       ! Set conversion factors for certain isoprene SOA species,\n       ! or, if they aren't present, disable their diagnostics\n       !--------------------------------------------------------------------\n       IF ( id_INDIOL > 0 ) THEN\n          IF ( State_Diag%Archive_TotalOC ) THEN\n             SpcInfo    => State_Chm%SpcData(id_INDIOL)%Info\n             Fac_INDIOL =  ( NCINDIOL  * MwCarb / ( SpcInfo%Mw_g * 1e-3_fp ) )\n             SpcInfo    => NULL()\n          ENDIF\n       ELSE\n          IF ( State_Diag%Archive_AerMassINDIOL ) THEN\n             State_Diag%Archive_AerMassINDIOL = .FALSE.\n             ErrMsg = 'Disabling AerMassINDIOL diagnostic. ' // &\n                      'INDIOL is not a defined species for this simulation.'\n             CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          ENDIF\n       ENDIF\n\n       IF ( id_LVOCOA > 0  ) THEN\n          IF ( State_Diag%Archive_TotalOC ) THEN\n             SpcInfo    => State_Chm%SpcData(id_LVOCOA)%Info\n             Fac_LVOCOA = ( NCLVOC * MwCarb / ( SpcInfo%Mw_G * 1e-3_fp ) )\n             SpcInfo    => NULL()\n          ENDIF\n       ELSE\n          IF ( State_Diag%Archive_AerMassLVOCOA ) THEN\n             State_Diag%Archive_AerMassLVOCOA = .FALSE.\n             ErrMsg = 'Disabling AerMassLVOCOA diagnostic. ' // &\n                      'LVOCOA is not a defined species for this simulation.'\n             CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          ENDIF\n       ENDIF\n\n       IF ( id_SOAGX > 0 ) THEN\n          IF ( State_Diag%Archive_TotalOC ) THEN\n             SpcInfo    => State_Chm%SpcData(id_SOAGX)%Info\n             Fac_SOAGX  = ( NCGLYX * MwCarb / ( SpcInfo%Mw_g * 1e-3_fp ) )\n             SpcInfo    => NULL()\n          ENDIF\n       ELSE\n          IF ( State_Diag%Archive_AerMassSOAGX ) THEN\n             State_Diag%Archive_AerMassSOAGX = .FALSE.\n             ErrMsg = 'Disabling AerMassSOAGX diagnostic.' // &\n                      'SOAGX is not a defined species for this simulation.'\n             CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          ENDIF\n       ENDIF\n\n       IF ( id_SOAIE > 0 ) THEN\n          IF ( State_Diag%Archive_TotalOC ) THEN\n             SpcInfo    => State_Chm%SpcData(id_SOAIE)%Info\n             Fac_SOAIE  =  ( NCIEPOX * MwCarb / ( SpcInfo%Mw_g * 1e-3_fp ) )\n             SpcInfo    => NULL()\n          ENDIF\n       ELSE\n          IF ( State_Diag%Archive_AerMassSOAIE ) THEN\n             State_Diag%Archive_AerMassSOAIE = .FALSE.\n             ErrMsg = 'Disabling AerMassSOAIE diagnostic. ' // &\n                      'SOAIE is not a defined species for this simulation.'\n             CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          ENDIF\n       ENDIF\n\n       ! Reset first-time flag\n       First = .FALSE.\n    ENDIF\n\n    !=======================================================================\n    ! Compute Aerosol mass and PM2.5 diagnostics using concentrations\n    ! from the end of the chemistry timestep.\n    !=======================================================================\n\n    ! Point to fields of State_Chm and State_Met\n    Spc    => State_Chm%Species\n    AirDen => State_Met%AIRDEN\n\n    ! Zero out the totalOC diagnostic\n    IF ( State_Diag%Archive_TotalOC ) THEN\n       State_Diag%TotalOC = 0.0_fp\n    ENDIF\n\n    !$OMP PARALLEL DO         &\n    !$OMP DEFAULT( SHARED   ) &\n    !$OMP PRIVATE( I, J, L  )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !--------------------------------------\n       ! AerMassASOA [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassASOA ) THEN\n          State_Diag%AerMassASOA(I,J,L) = ASOA(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassBC [ug C/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassBC ) THEN\n          State_Diag%AerMassBC(I,J,L) = ( BCPI(I,J,L) + BCPO(I,J,L) ) * &\n                                          kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassINDIOL [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassINDIOL ) THEN\n          State_Diag%AerMassINDIOL(I,J,L) = Spc(id_INDIOL)%Conc(I,J,L) * &\n                                            kgm3_to_ugm3 * AirDen(I,J,L)\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassLVOCOA [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassLVOCOA ) THEN\n          State_Diag%AerMassLVOCOA(I,J,L) = Spc(id_LVOCOA)%Conc(I,J,L) * &\n                                            kgm3_to_ugm3 * AirDen(I,J,L)\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassNH4 [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassNH4 ) THEN\n          State_Diag%AerMassNH4(I,J,L) = NH4(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassNIT [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassNIT ) THEN\n          State_Diag%AerMassNIT(I,J,L) = NIT(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassOPOA [ug/m3], OA:OC=2.1\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassOPOA ) THEN\n          State_Diag%AerMassOPOA(I,J,L) = OPOA(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassPOA [ug/m3], OA:OC=2.1\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassPOA ) THEN\n          IF ( Is_POA ) THEN\n             State_Diag%AerMassPOA(I,J,L) = OCPO(I,J,L) * kgm3_to_ugm3\n          ELSEIF ( Is_OCPO ) THEN\n             State_Diag%AerMassPOA(I,J,L) = ( OCPI(I,J,L) + OCPO(I,J,L) ) * &\n                                              kgm3_to_ugm3\n          ENDIF\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassSAL [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassSAL ) THEN\n          State_Diag%AerMassSAL(I,J,L) = ( SALA(I,J,L) + SALC(I,J,L) ) * &\n                                           kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassSO4 [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassSO4 ) THEN\n          State_Diag%AerMassSO4(I,J,L) = SO4(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassHMS [ug/m3]\n       ! jmm 3/6/19\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassHMS ) THEN\n          State_Diag%AerMassHMS(I,J,L) = HMS(I,J,L) * &\n               kgm3_to_ugm3\n       ENDIF\n\n\n       !--------------------------------------\n       ! AerMassSOAGX [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassSOAGX ) THEN\n          State_Diag%AerMassSOAGX(I,J,L) = SOAGX(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassSOAIE [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassSOAIE ) THEN\n          State_Diag%AerMassSOAIE(I,J,L) = Spc(id_SOAIE)%Conc(I,J,L) * &\n                                           kgm3_to_ugm3 * AirDen(I,J,L)\n       ENDIF\n\n       !--------------------------------------\n       ! AerMassTSOA [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_AerMassTSOA ) THEN\n          State_Diag%AerMassTSOA(I,J,L) = TSOA(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! PM25 [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_PM25 ) THEN\n          State_Diag%PM25(I,J,L) = PM25(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! PM10 [ug/m3]\n       !--------------------------------------\n       IF ( State_Diag%Archive_PM10 ) THEN\n          State_Diag%PM10(I,J,L) = PM10(I,J,L) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! PDER [nm]\n       !--------------------------------------\n       IF ( State_Diag%Archive_PDER ) THEN\n          State_Diag%PDER(I,J,L) = PDER(I,J,L)\n       ENDIF\n\n       !--------------------------------------\n       ! Sum of all biogenic organic aerosol\n       !--------------------------------------\n       ! ComplexSOA only\n       IF ( State_Diag%Archive_TotalBiogenicOA ) THEN\n          State_Diag%TotalBiogenicOA(I,J,L) = ( TSOA(I,J,L) + ISOAAQ(I,J,L) ) &\n                                                * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! Sum of all organic aerosol [ug/m3]\n       !--------------------------------------\n       ! Now TotalOA also works for simpleSOA\n       IF ( State_Diag%Archive_TotalOA ) THEN\n          State_Diag%TotalOA(I,J,L) = ( OCPO(I,J,L) + &\n                                        OCPISOA(I,J,L) ) * kgm3_to_ugm3\n       ENDIF\n\n       !--------------------------------------\n       ! Sum of all organic carbon [ug/m3]\n       !--------------------------------------\n       ! ComplexSOA only\n       ! since OM/OC ratio is not available for SOAS\n       ! consistent with aerosol_mod.F90\n       IF ( State_Diag%Archive_TotalOC ) THEN\n\n         ! Hydrophobic OC\n          IF ( Is_POA ) THEN\n             State_Diag%TotalOC(I,J,L) = &\n                  ( ( TSOA(I,J,L) + ASOA(I,J,L) ) / OCFOPOA(I,J) &\n                    + OCPO(I,J,L) / OCFPOA(I,J) ) * kgm3_to_ugm3\n          ELSE IF ( Is_OCPO ) THEN\n             State_Diag%TotalOC(I,J,L) = &\n                  ( ( TSOA(I,J,L) + ASOA(I,J,L) &\n                    + OCPO(I,J,L) ) / OCFOPOA(I,J) ) * kgm3_to_ugm3\n          ENDIF\n\n          ! Hydrophilic OC\n          IF (Is_OCPI) THEN\n             State_Diag%TotalOC(I,J,L) = State_Diag%TotalOC(I,J,L) + &\n                                         ( OCPI(I,J,L) / OCFOPOA(I,J) * &\n                                         kgm3_to_ugm3 )\n          ENDIF\n\n          ! OPOA OC\n          IF (Is_OPOA) THEN\n            State_Diag%TotalOC(I,J,L) = State_Diag%TotalOC(I,J,L) + &\n                                        ( OPOA(I,J,L) / OCFOPOA(I,J) * &\n                                        kgm3_to_ugm3 )\n          ENDIF\n\n          ! Isoprene SOA OC\n          IF ( Is_ComplexSOA ) THEN\n             State_Diag%TotalOC(I,J,L) =  State_Diag%TotalOC(I,J,L) + &\n                  ( ( Spc(id_SOAIE )%Conc(I,J,L) * Fac_SOAIE  ) + &\n                    ( Spc(id_INDIOL)%Conc(I,J,L) * Fac_INDIOL ) + &\n                    ( Spc(id_SOAGX )%Conc(I,J,L) * Fac_SOAGX  ) + &\n                    ( Spc(id_LVOCOA)%Conc(I,J,L) * Fac_LVOCOA ) ) &\n                    * AirDen(I,J,L) * kgm3_to_ugm3\n          ENDIF\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    Spc         => NULL()\n    AirDen      => NULL()\n    OCFPOA      => NULL()\n    OCFOPOA     => NULL()\n    BCPI        => NULL()\n    BCPO        => NULL()\n    OCPI        => NULL()\n    OCPO        => NULL()\n    OCPISOA     => NULL()\n    SALA        => NULL()\n    ACL         => NULL()\n    SALC        => NULL()\n    SO4_NH4_NIT => NULL()\n    SO4         => NULL()\n    HMS         => NULL()\n    NH4         => NULL()\n    NIT         => NULL()\n    SLA         => NULL()\n    SPA         => NULL()\n    TSOA        => NULL()\n    ASOA        => NULL()\n    OPOA        => NULL()\n    SOAGX       => NULL()\n    PM25        => NULL()\n    PM10        => NULL()\n    PDER        => NULL()\n    ISOAAQ      => NULL()\n    SOAS        => NULL()\n    FRAC_SNA    => NULL()\n    DAERSL      => NULL()\n    WAERSL      => NULL()\n\n  END SUBROUTINE Set_AerMass_Diagnostic\n!EOC  \nEND MODULE Diagnostics_mod\n"
  },
  {
    "path": "GeosCore/drydep_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: drydep_mod.F90\n!\n! !DESCRIPTION: Module DRYDEP\\_MOD contains variables and routines for the\n!  GEOS-Chem dry deposition scheme.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE DRYDEP_MOD\n!\n! !USES:\n!\n  USE CMN_SIZE_Mod,     ONLY : NPOLY, NSURFTYPE\n  USE ERROR_MOD              ! Error handling routines\n#ifdef TOMAS\n  USE TOMAS_MOD              ! For TOMAS microphysics\n#endif\n  USE PhysConstants          ! Physical constants\n  USE PRECISION_MOD          ! For GEOS-Chem Precision (fp)\n  USE TIME_MOD\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: CLEANUP_DRYDEP\n  PUBLIC :: DO_DRYDEP\n  PUBLIC :: INIT_DRYDEP\n  PUBLIC :: INIT_WEIGHTSS\n#if defined( MODEL_CESM )\n  PUBLIC :: UPDATE_DRYDEPFREQ\n#else\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: UPDATE_DRYDEPFREQ\n#endif\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC :: DEPNAME\n  PUBLIC :: NUMDEP\n  PUBLIC :: NTRAIND\n  PUBLIC :: IDEP,   IRGSS,  IRAC, IRCLS\n  PUBLIC :: IRGSO,  IRLU,   IRI,  IRCLO, DRYCOEFF\n#if defined( MODEL_CESM )\n  PUBLIC :: NDVZIND\n#endif\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Baldocchi, D.D., B.B. Hicks, and P. Camara, \"A canopy stomatal\n!        resistance model for gaseous deposition to vegetated surfaces\",\n!        Atmos. Environ. 21, 91-101, 1987.\n!  (2 ) Brutsaert, W., \"Evaporation into the Atmosphere\", Reidel, 1982.\n!  (3 ) Businger, J.A., et al., \"Flux-profile relationships in the atmospheric\n!        surface layer\", J. Atmos. Sci., 28, 181-189, 1971.\n!  (4 ) Dwight, H.B., \"Tables of integrals and other mathematical data\",\n!        MacMillan, 1957.\n!  (5 ) Guenther, A., and 15 others, A global model of natural volatile\n!         organic compound emissions, J. Geophys. Res., 100, 8873-8892, 1995.\n!  (6 ) Hicks, B.B., and P.S. Liss, \"Transfer of SO2 and other reactive\n!        gases across the air-sea interface\", Tellus, 28, 348-354, 1976.\n!  (7 ) Jacob, D.J., and S.C. Wofsy, \"Budgets of reactive nitrogen,\n!        hydrocarbons, and ozone over the Amazon forest during the wet season\",\n!        J.  Geophys. Res., 95, 16737-16754, 1990.\n!  (8 ) Jacob, D.J., et al, \"Deposition of ozone to tundra\", J. Geophys. Res.,\n!        97, 16473-16479, 1992.\n!  (9 ) Levine, I.N., \"Physical Chemistry, 3rd ed.\", McGraw-Hill,\n!        New York, 1988.\n!  (10) Munger, J.W., et al, \"Atmospheric deposition of reactive nitrogen\n!        oxides and ozone in a temperate deciduous forest and a sub-arctic\n!        woodland\", J. Geophys. Res., in press, 1996.\n!  (11) Walcek, C.J., R.A. Brost, J.S. Chang, and M.L. Wesely, \"SO2, sulfate,\n!        and HNO3 deposition velocities computed using regional landuse and\n!        meteorological data\", Atmos. Environ., 20, 949-964, 1986.\n!  (12) Wang, Y.H., paper in preparation, 1996.\n!  (13) Wesely, M.L, \"Improved parameterizations for surface resistance to\n!        gaseous dry deposition in regional-scale numerical models\",\n!        Environmental Protection Agency Report EPA/600/3-88/025,\n!        Research Triangle Park (NC), 1988.\n!  (14) Wesely, M. L., Parameterization of surface resistance to gaseous dry\n!        deposition in regional-scale numerical models.  Atmos. Environ., 23\n!        1293-1304, 1989.\n!  (15) Price, H., L. Jaeglé, A. Rice, P. Quay, P.C. Novelli, R. Gammon,\n!        Global Budget of Molecular Hydrogen and its Deuterium Content:\n!        Constraints from Ground Station, Cruise, and Aircraft Observations,\n!        submitted to J. Geophys. Res., 2007.\n!  (16) Karl, T., Harley, P., Emmons, L., Thornton, B., Guenther, A., Basu, C.,\n!        Turnipseed, A., and Jardine, K.: Efficient Atmospheric Cleansing of\n!        Oxidized Organic Trace Gases by Vegetation, Science, 330, 816-819,\n!        10.1126/science.1192534, 2010.\n!  (17) Jaeglé, L., Shah, V.,et al (2018). Nitrogen oxides emissions, chemistry,\n!        deposition,and export over the Northeast United States during the\n!        WINTER aircraft campaign. J Geophys Res: Atmospheres, 123.\n!        https://doi.org/10.1029/2018JD029133\n!\n! !REVISION HISTORY:\n!  27 Jan 2003 - R. Yantosca - Moved standalone routines into this module\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER,  PARAMETER :: NR_MAX      = 200   ! # of seasalt bins\n  INTEGER,  PARAMETER :: NDRYDTYPE   = 11    ! # of drydep land types\n  REAL(f8), PARAMETER :: TWO_THIRDS  = 2.0_fp / 3.0_fp\n!\n! PRIVATE TYPES:\n!\n  !========================================================================\n  !  MODULE VARIABLES:\n  !\n  !  DRYDHNO3  : Internal flag for location of HNO3 in DEPVEL\n  !  DRYDNO2   : Internal flag for location of NO2  in DEPVEL\n  !  DRYDPAN   : Internal flag for location of PAN  in DEPVEL\n  !  NUMDEP    : Actual number of drydep species\n  !  NWATER    : Number of Olson's surface types that are water\n  !  AEROSOL   : Array flags to denote aerosol drydep species\n  !  IDEP      : ID #'s for dry deposition surface types\n  !  IRAC      : in-canopy aerodynamic resistance\n  !  IRCLO     : Used to calculate lower canopy vegetative resistance\n  !  IRCLS     : Input to calculate lower canopy vegetative resistance\n  !  IRGSO     : Input used to calculate ground resistance\n  !  IRGSS     : Input to calculate ground resistance\n  !  IRI       : Internal  resistance for drydep land types\n  !  IRLU      : Input to calculate upper canopy vegetative resistance\n  !  IVSMAX    : Max deposition velocity (NOT USED; CODE COMMENTED OUT)\n  !  IWATER    : ID #'s for Olson surface types that are water\n  !  IZO       : Roughness heights for each Olson surface type\n  !  NDVZIND   : Index array for ordering drydep species in DEPVEL\n  !  NTRAIND   : Stores species numbers of drydep species\n  !  PBLFRAC   : Array for multiplicative factor for drydep freq\n  !  DRYCOEFF  : Polynomial coefficients for dry deposition\n  !  HSTAR     : Henry's law constant\n  !  F0        : Reactivity factor for biological oxidation\n  !  XMW       : Molecular weight of drydep species [kg]\n  !  A_RADI    : Radius of aerosol for size-resolved drydep [um]\n  !  A_DEN     : Density of aerosol for size-res'd drydep [kg/m3]\n  !  DEPNAME   : Names of dry deposition species\n  !\n  !  NOTE: these variables are defined in CMN_SIZE_mod.F\n  !    NTYPE     : Max # of landtypes / grid box\n  !    NPOLY     : Number of drydep polynomial coefficients\n  !    NSURFTYPE : Number of Olson land types\n  !========================================================================\n\n  ! Scalars\n  INTEGER                        :: NUMDEP,     NWATER\n  INTEGER                        :: DRYHg0,     DRYHg2,     DryHgP\n  INTEGER                        :: id_ACET,    id_ALD2,    id_O3\n  INTEGER                        :: id_MENO3,   id_ETNO3,   id_MOH\n  INTEGER                        :: id_NK01,    id_Hg0\n  INTEGER                        :: id_HNO3,    id_PAN,     id_IHN1\n  INTEGER                        :: id_H2O2,    id_SO2,     id_NH3\n  INTEGER                        :: idd_BCPO,   idd_BCPI,   idd_BrSALC\n  INTEGER                        :: idd_BrSALA\n  INTEGER                        :: idd_ISALA,  idd_ISALC,  idd_NH4\n  INTEGER                        :: idd_NIT,    idd_NITs\n  INTEGER                        :: idd_SALA,   idd_SALC,   idd_SO4\n  INTEGER                        :: idd_SO4s\n\n  ! Arrays for Baldocchi drydep polynomial coefficients\n  REAL(fp), TARGET               :: DRYCOEFF(NPOLY    ) = 0.0_fp\n\n  ! Arrays that hold information for each of the 74 Olson land types\n  INTEGER                        :: INDOLSON(NSURFTYPE )\n  INTEGER                        :: IDEP    (NSURFTYPE )\n  INTEGER                        :: IZO     (NSURFTYPE )\n  INTEGER                        :: IWATER  (NSURFTYPE )\n\n  ! Arrays that hold information for each of the 11 drydep land types\n  INTEGER                        :: IDRYDEP (NDRYDTYPE)\n  INTEGER                        :: IRAC    (NDRYDTYPE)\n  INTEGER                        :: IRCLO   (NDRYDTYPE)\n  INTEGER                        :: IRCLS   (NDRYDTYPE)\n  INTEGER                        :: IRGSS   (NDRYDTYPE)\n  INTEGER                        :: IRGSO   (NDRYDTYPE)\n  INTEGER                        :: IRI     (NDRYDTYPE)\n  INTEGER                        :: IRLU    (NDRYDTYPE)\n  INTEGER                        :: IVSMAX  (NDRYDTYPE)\n\n  ! Arrays that hold information about the dry-depositing species\n  LOGICAL,           ALLOCATABLE :: AEROSOL (:    ) ! Is Aerosol? (T/F)\n  INTEGER,           ALLOCATABLE :: NDVZIND (:    ) ! Drydep index\n  INTEGER,           ALLOCATABLE :: FLAG    (:    ) ! Drydep scaling flag\n  INTEGER,           ALLOCATABLE :: NTRAIND (:    ) ! Species index\n  REAL(f8),          ALLOCATABLE :: HSTAR   (:    ) ! Henry's K0 [M/atm]\n  REAL(f8),          ALLOCATABLE :: KOA     (:    ) ! POP's KOA\n  REAL(f8),          ALLOCATABLE :: F0      (:    ) ! Reactivity factor [1]\n  REAL(f8),          ALLOCATABLE :: XMW     (:    ) ! Mol wt. [kg/mol]\n  REAL(f8),          ALLOCATABLE :: A_RADI  (:    ) ! Aer radius [m]\n  REAL(f8),          ALLOCATABLE :: A_DEN   (:    ) ! Aer density [kg/m3]\n  CHARACTER(LEN=14), ALLOCATABLE :: DEPNAME (:    ) ! Species name\n\n  ! Allocatable arrays\n  REAL(f8),          ALLOCATABLE :: DMID    (:    )\n  REAL(f8),          ALLOCATABLE :: SALT_V  (:    )\n\n  !=================================================================\n  ! MODULE ROUTINES -- follow below the \"CONTAINS\" statement\n  !=================================================================\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_drydep\n!\n! !DESCRIPTION: Subroutine DO\\_DRYDEP is the driver for the GEOS-CHEM dry\n!  deposition scheme. DO\\_DRYDEP calls DEPVEL to compute deposition velocities\n!  [m/s], which are then converted to [cm/s].  Drydep frequencies are also\n!  computed. (lwh, gmg, djj, 1989, 1994; bmy, 2/11/03, 5/25/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_DRYDEP( Input_Opt,  State_Chm, State_Diag, &\n                        State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n\n\n\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Time_Mod,           ONLY : Get_Ts_Chem\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  NOTE: Modeled aerosol dry deposition velocities over snow and ice surfaces\n!  in the Arctic are much higher than estimated from measured values (e.g.,\n!  Ibrahim et al. [1983]; Duan et al. [1988]; Nilsson and Rannik [2001]).\n!  We will impose a dry deposition velocity of 0.03 cm/s for all aerosols\n!  over snow and ice surfaces. (Jenny Fisher, 01 Aug 2011)\n!\n!  References (see full citations above):\n!  ============================================================================\n!  (1 ) Wesely, M. L., 1989\n!  (2 ) Jacob, D.J., and S.C. Wofsy, 1990\n!\n! !REVISION HISTORY:\n!  19 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I,   J,   L,   D,   N,  NDVZ,  A,  S\n    REAL(f8)           :: DVZ, THIK\n    CHARACTER(LEN=255) :: ErrMsg,  ThisLoc\n\n    ! Arrays\n    REAL(f8) :: CZ1   (State_Grid%NX,State_Grid%NY) ! Midpt ht of 1st level [m]\n    REAL(f8) :: TC0   (State_Grid%NX,State_Grid%NY) ! Grid box sfc temp [K]\n    REAL(f8) :: ZH    (State_Grid%NX,State_Grid%NY) ! PBL height [m]\n    REAL(f8) :: OBK   (State_Grid%NX,State_Grid%NY) ! Monin-Obhukov Length [m]\n    REAL(f8) :: CFRAC (State_Grid%NX,State_Grid%NY) ! Column cld frac [unitless]\n    REAL(f8) :: RADIAT(State_Grid%NX,State_Grid%NY) ! Solar radiation [W/m2]\n    REAL(f8) :: USTAR (State_Grid%NX,State_Grid%NY) ! Gridbox friction vel [m/s]\n    REAL(f8) :: RHB   (State_Grid%NX,State_Grid%NY) ! Rel. humidity [unitless]\n    REAL(f8) :: PRESSU(State_Grid%NX,State_Grid%NY) ! Local sfc pressure [Pa]\n    REAL(f8) :: W10   (State_Grid%NX,State_Grid%NY) ! 10m windspeed [m/s]\n    REAL(f8) :: AZO   (State_Grid%NX,State_Grid%NY) ! Z0, per (I,J) square\n    REAL(f8) :: SUNCOS_MID(State_Grid%NX,State_Grid%NY) ! COS(SZA) @ midt of\n                                                        ! current chem timestep\n    !=================================================================\n    ! DO_DRYDEP begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Initialize\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Do_DryDep  (in module GeosCore/drydep_mod.F90)'\n\n    ! Call METERO to obtain meteorological fields (all 1-D arrays)\n    ! Added sfc pressure as PRESSU and 10m windspeed as W10\n    !  (jaegle 5/11/11, mpayer 1/10/12)\n    CALL METERO( State_Grid, State_Met, CZ1,     TC0, OBK,  CFRAC, &\n                 RADIAT,     AZO,       USTAR,   ZH,        RHB,   &\n                 PRESSU,    W10,     SUNCOS_MID                   )\n\n    ! Call DEPVEL to compute dry deposition velocities [m/s]\n    CALL DEPVEL( Input_Opt, State_Chm,  State_Diag, State_Grid, &\n                 State_Met, RADIAT,     TC0,        SUNCOS_MID, &\n                 F0,        HSTAR,      XMW,        AEROSOL,    &\n                 USTAR,     CZ1,        OBK,        CFRAC,      &\n                 ZH,        AZO,        RHB,        PRESSU,     &\n                 W10,        RC                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in call to \"DEPVEL!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n#if !defined( MODEL_CESM )\n    ! Call UPDATE_DRYDEPFREQ to update dry deposition frequencies [s-1]\n    ! from dry deposition velocities [m/s].\n    CALL UPDATE_DRYDEPFREQ( Input_Opt,  State_Chm, State_Diag,               &\n                            State_Grid, State_Met, RC                       )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in call to \"UPDATE_DRYDEPFREQ!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### DO_DRYDEP: after dry dep' )\n    ENDIF\n\n  END SUBROUTINE DO_DRYDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: update_DryDepFreq\n!\n! !DESCRIPTION: Subroutine UPDATE\\_DRYDEPFREQ updates dry deposition\n! frequencies from dry deposition velocities\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE UPDATE_DRYDEPFREQ( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                               State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n!\n! !REMARKS:\n!  02 Mar 2020 - T. M. Fritz - Separate DO_DRYDEP into two calls. The first\n!                              call updates dry deposition velocities. The\n!                              second call computes dry deposition frequencies.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I,   J,   L,   D,   N,  NDVZ,  A, S\n    REAL(f8)           :: DVZ, THIK\n    CHARACTER(LEN=255) :: ErrMsg,  ThisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! UPDATE_DRYDEPFREQ begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Initialize\n    SpcInfo => NULL()\n\n    !=================================================================\n    ! Compute dry deposition frequencies; archive diagnostics\n    !=================================================================\n    !$OMP PARALLEL DO                                           &\n    !$OMP DEFAULT( SHARED                                     ) &\n    !$OMP PRIVATE( I, J, THIK, D, N, NDVZ, DVZ, SpcInfo )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! THIK = thickness of surface layer [m]\n       THIK   = State_Met%BXHEIGHT(I,J,1)\n\n       ! Now we calculate drydep throughout the entire PBL.\n       ! Make sure that the PBL depth is greater than or equal\n       ! to the thickness of the 1st layer (rjp, bmy, 7/21/03)\n       ! Add option for non-local PBL mixing scheme: THIK must\n       ! be the first box height. (Lin, 03/31/09)\n       ! Now use PBL_DRYDEP instead of LNLPBL (ckeller, 3/5/15).\n       IF (Input_Opt%PBL_DRYDEP) THIK = MAX( State_Met%PBL_TOP_m(I,J), THIK )\n\n       ! Loop over drydep species\n       DO D = 1, State_Chm%nDryDep\n\n          ! GEOS-CHEM species number\n          N = State_Chm%Map_DryDep(D)\n\n          ! Get info about this species from the database\n          SpcInfo => State_Chm%SpcData(N)%Info\n\n          ! Index of drydep species in the State_Chm%DryDepVel array\n          ! as passed back from subroutine DEPVEL\n          NDVZ = NDVZIND(D)\n\n          ! Dry deposition velocity [cm/s]\n          DVZ = State_Chm%DryDepVel(I,J,NDVZ) * 100.e+0_f8\n\n          ! Scale relative to specified species (krt, 3/1/15)\n          IF ( FLAG(D) .eq. 1 )  THEN\n\n             ! Scale species to HNO3\n             DVZ = DVZ * sqrt(State_Chm%SpcData(id_HNO3)%Info%MW_g) &\n                       / sqrt(SpcInfo%MW_g)\n\n          ELSE IF ( FLAG(D) .eq. 2 ) THEN\n\n             ! Scale species to PAN\n             DVZ = DVZ * sqrt(State_Chm%SpcData(id_PAN)%Info%MW_g) &\n                       / sqrt(SpcInfo%MW_g)\n\n          ELSE IF ( FLAG(D) .eq. 3 ) THEN\n\n             ! Scale species to ISOPN\n             DVZ = DVZ * sqrt(State_Chm%SpcData(id_IHN1)%Info%MW_g) &\n                       / sqrt(SpcInfo%MW_g)\n\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Special treatment for snow and ice\n          !-----------------------------------------------------------\n          IF ( (State_Met%isSnow(I,J)) .OR. (State_Met%isIce(I,J))) THEN\n\n             !-------------------------------------\n             ! %%% SURFACE IS SNOW OR ICE %%%\n             !-------------------------------------\n             IF ( SpcInfo%DD_DvzAerSnow > 0.0_fp ) THEN\n\n                ! For most aerosol species (basically everything\n                ! except sea salt and dust species), we just set\n                ! the deposition velocity over snow to a fixed value.\n                ! (Modification by Jenny Fisher, dated 8/1/11)\n                DVZ = DBLE( SpcInfo%DD_DvzAerSnow )\n\n             ELSE\n\n                ! Otherwise, enforce a minimum drydep velocity over snow\n                ! (cf. the GOCART model).  NOTE: In practice this will\n                ! only apply to the species SO2, SO4, MSA, NH3, NH4, NIT.\n                DVZ = MAX( DVZ, DBLE( SpcInfo%DD_DvzMinVal(1) ) )\n#ifdef LUO_WETDEP\n                IF ( DBLE( SpcInfo%DD_DvzMinVal(1) ) > 0.0_fp ) THEN\n                   IF ( State_Met%TS(I,J) < 253.0_fp ) THEN\n                      DVZ = DBLE( SpcInfo%DD_DvzMinVal(1) )\n                   ENDIF\n                ENDIF\n#endif\n\n             ENDIF\n\n          ELSE\n\n             !-------------------------------------\n             ! %%% SURFACE IS NOT SNOW OR ICE %%%\n             !-------------------------------------\n\n             ! Enforce a minimum drydep velocity over land (cf. the\n             ! GOCART model).  NOTE: In practice this will only apply\n             ! to the species SO2, SO4, MSA, NH3, NH4, NIT.\n             DVZ = MAX( DVZ, DBLE( SpcInfo%DD_DvzMinVal(2) ) )\n\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Special treatment for ACETONE\n          !-----------------------------------------------------------\n\n          ! For ACET, we need to only do drydep over the land\n          ! and not over the oceans.\n          IF ( N == id_ACET ) THEN\n             IF ( State_Met%IsLand(I,J) ) THEN\n                DVZ = 0.1e+0_f8\n             ELSE\n                DVZ = 0e+0_f8\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Special treatment for ALD2\n          !-----------------------------------------------------------\n\n          ! For ALD2, we need to only do drydep over the land\n          ! and not over the oceans.\n          IF ( N == id_ALD2 ) THEN\n             IF ( .not. State_Met%IsLand(I,J) ) THEN\n                DVZ = 0e+0_f8\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Special treatment for MENO3\n          !-----------------------------------------------------------\n\n          ! For MENO3, we need to only do drydep over the land\n          ! and not over the oceans.\n          IF ( N == id_MENO3 ) THEN\n             IF ( .not. State_Met%IsLand(I,J) ) THEN\n                DVZ = 0e+0_f8\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Special treatment for ETNO3\n          !-----------------------------------------------------------\n\n          ! For ETNO3, we need to only do drydep over the land\n          ! and not over the oceans.\n          IF ( N == id_ETNO3 ) THEN\n             IF ( .not. State_Met%IsLand(I,J) ) THEN\n                DVZ = 0e+0_f8\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Special treatment for MOH\n          !-----------------------------------------------------------\n\n          ! For MOH, we need to only do drydep over the land\n          ! and not over the oceans.\n          IF ( N == id_MOH ) THEN\n             IF ( .not. State_Met%IsLand(I,J) ) THEN\n                DVZ = 0e+0_f8\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Compute drydep velocity and frequency\n          !-----------------------------------------------------------\n\n          ! Dry deposition velocities [m/s]\n          State_Chm%DryDepVel(I,J,NDVZ) = DVZ / 100.e+0_f8\n\n          ! Dry deposition frequency [1/s]\n          State_Chm%DryDepFreq(I,J,D) = State_Chm%DryDepVel(I,J,NDVZ) / THIK\n\n          ! Free pointer\n          SpcInfo => NULL()\n       ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE UPDATE_DRYDEPFREQ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: OceanO3\n!\n! !DESCRIPTION: Function OCEANO3 calculates the dry deposition velocity of O3\n!     to the ocean using method described in Pound et.al (2019)\n!     currently under discussion in ACPD.\n!     Accounts for the turbulence of the ocean surface,Iodide concentration\n!     and surface temperature effects on the dry deposition velocity of\n!     ozone to the ocean.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OCEANO3( TEMPK, USTAR, IODIDE_IN, I, J, DEPV )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)         :: TEMPK ! Temperature [K]\n    REAL(f8), INTENT(IN)         :: USTAR ! Fictional Velocity [m/s]\n    REAL(fp), INTENT(IN)         :: IODIDE_IN ! Surface iodide concentration [nM]\n    INTEGER,  INTENT(IN)         :: I,J\n    REAL(f8), INTENT(OUT)        :: DEPV  ! the new deposition vel [cm/s]\n!\n! !REVISION HISTORY:\n!  21 Aug 2018 - R. Pound - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8) :: a,D,DelM,b,PSI,LAM,EP,USTARWater,K0,K1,Iodide\n\n    !=================================================================\n    ! OCEANO3 begins here!\n    !=================================================================\n\n    USTARWater = 0.0345_f8*USTAR !waterside friction velocity\n\n    Iodide = IODIDE_IN*1.0E-9_f8 ! Convert from nM to M\n\n    a = Iodide*EXP((-8772.2/TEMPK)+51.5) !chemical reactivity\n\n    D = 1.1E-6*EXP(-1896.0/TEMPK) ! diffusivity\n\n    DelM = SQRT(D/a) ! reaction-diffusion length\n\n    b = 2.0_f8/(0.4_f8*USTARWater)\n\n    LAM = DelM*SQRT(a/D) ! this cancels to 1 but here for completeness\n                         ! of equations\n\n    EP = SQRT(2.0_f8*a*b*(DelM+(b*D/2.0_f8)))\n\n    PSI = EP/SQRT(a*b**2*D)\n\n    CALL K0K1_APROX(EP,K0,K1)\n\n    DEPV = SQRT(a*D)*((PSI*K1*COSH(LAM)+K0*SINH(LAM))/(PSI*K1* &\n           SINH(LAM)+K0*COSH(LAM)))\n\n  END SUBROUTINE OCEANO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: K0K1_APROX\n!\n! !DESCRIPTION:  Function to estimate the modified Bessel functions of\n!     the second kind order zero and one (K0,K1). Approach initially based on\n!     that described in Numerical Recipes in Fortran 90 second edition\n!     (1996). This implementation is designed to be specific to the use\n!     case required for calculating oceanic deposition velocity. Uses a\n!     polynomial fit of each type of modified bessel function to\n!     estimate the value of the function for each input.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE K0K1_APROX( input_arg, K0, K1 )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)  :: input_arg !the value we want the soln for\n    REAL(f8), INTENT(OUT) :: K0,K1 !the values of the modified bessel fncs\n!\n! !REVISION HISTORY:\n!  21 Aug 2018 - R. Pound - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8), DIMENSION(7) :: coeff !coefficients for polynomial fit\n                                    ! of each bessel function\n    REAL(f8)               :: I0,I1 !modified bessel functions of\n                                    ! first kind order 0 and 1\n\n    ! determine which fit method is best for the bessel functions\n    IF (input_arg <= 2.0_f8) THEN\n       ! begin the calculation of k0 by estimating i0\n       coeff = (/1.0,3.5156229,3.0899424,1.2067492,0.2659732, &\n                 0.360768e-1,0.45813e-2/)\n       I0 = poly_fit((input_arg/3.75_f8)**2,coeff)\n       !now we can use this estimate of i0 to calculate k0\n       coeff = (/-0.57721566,0.42278420,0.23069756,0.3488590e-1, &\n                  0.262698e-2,0.10750e-3,0.74e-5/)\n       K0 = (-LOG(0.5_f8*input_arg)*I0)+ &\n             poly_fit(0.25_f8*input_arg**2,coeff)\n\n       !begin the calculation of k0 by estimating i1\n       coeff = (/0.5,0.87890594,0.51498869,0.15084934,0.2658733e-1, &\n                 0.301532e-2,0.32411e-3/)\n       I1 = input_arg*poly_fit((input_arg/3.75_f8)**2,coeff)\n       ! now we can use this to estimate to get a value for k1\n       coeff = (/1.0,0.15443144,-0.67278579,-0.18156897, &\n                -0.1919402e-1,-0.110404e-2,-0.4686e-4/)\n       K1 = (LOG(0.5_f8*input_arg)*I1)+(1.0_f8/input_arg)* &\n             poly_fit(0.25_f8*input_arg**2,coeff)\n    ELSE !use a different approximation that doesn't need I0/I1\n       coeff = (/1.25331414,-0.7832358e-1,0.2189568e-1,-0.1062446e-1, &\n                 0.587872e-2,-0.251540e-2,0.53208e-3/)\n       K0 = (EXP(-input_arg)/SQRT(input_arg))* &\n             poly_fit((2.0_f8/input_arg),coeff)\n       coeff = (/1.25331414,0.23498619,-0.3655620e-1,0.1504268e-1, &\n                -0.780353e-2,0.325614e-2,-0.68245e-3/)\n       K1 = (EXP(-input_arg)/SQRT(input_arg))* &\n             poly_fit((2.0_f8/input_arg),coeff)\n    ENDIF\n\n  END SUBROUTINE K0K1_APROX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: poly_fit\n!\n! !DESCRIPTION: Function to calculate the value of a polynomial fit,\n! used in the K0K1_APPROX function in estimating the values of a\n! modified bessel function.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION poly_fit ( input, coeffs )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)               :: input\n    REAL(f8), DIMENSION(:), INTENT(IN) :: coeffs\n!\n! !REVISION HISTORY:\n!  21 Aug 2018 - R. Pound - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8)                           :: poly_fit\n    INTEGER                            :: i\n\n    poly_fit = 0\n\n    DO i = 1,7,1\n       poly_fit = poly_fit+coeffs(i)*input**i\n    ENDDO\n\n  END FUNCTION poly_fit\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: metero\n!\n! !DESCRIPTION: Subroutine METERO calculates meteorological constants needed\n!  for the dry deposition velocity module. (lwh, gmg, djj, 1989, 1994; bmy,\n!  10/3/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE METERO( State_Grid, State_Met, CZ1,  TC0, OBK, CFRAC, &\n                     RADIAT,     AZO,       USTR, ZH,  RHB,        &\n                     PRESSU,    W10,  SUNCOS_MID                  )\n!\n! !USES:\n!\n    USE Calc_Met_Mod,       ONLY : GET_OBK\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: CZ1   (State_Grid%NX,State_Grid%NY)  ! Midpt ht of 1st model lev [m]\n    REAL(f8), INTENT(OUT) :: TC0   (State_Grid%NX,State_Grid%NY)  ! Grid box sfc temp [K]\n    REAL(f8), INTENT(OUT) :: OBK   (State_Grid%NX,State_Grid%NY)  ! Monin-Obhukov length [m]\n    REAL(f8), INTENT(OUT) :: CFRAC (State_Grid%NX,State_Grid%NY)  ! Column cloud fraction [unitless]\n    REAL(f8), INTENT(OUT) :: RADIAT(State_Grid%NX,State_Grid%NY)  ! Solar radiation @ ground [W/m2]\n    REAL(f8), INTENT(OUT) :: RHB   (State_Grid%NX,State_Grid%NY)  ! Rel humidity at sfc [unitless]\n    REAL(f8), INTENT(OUT) :: USTR  (State_Grid%NX,State_Grid%NY)  ! Friction velocity [m/s]\n    REAL(f8), INTENT(OUT) :: ZH    (State_Grid%NX,State_Grid%NY)  ! PBL height [m]\n    REAL(f8), INTENT(OUT) :: PRESSU(State_Grid%NX,State_Grid%NY)  ! Local surface press [Pa]\n    REAL(f8), INTENT(OUT) :: W10   (State_Grid%NX,State_Grid%NY)  ! 10 meter windspeed [m/s]\n    REAL(f8), INTENT(OUT) :: SUNCOS_MID(State_Grid%NX,State_Grid%NY) ! COS(SZA) @ midpt of current chem timestep\n    REAL(f8), INTENT(OUT) :: AZO(State_Grid%NX,State_Grid%NY) ! Roughness heights, by grid box\n!\n! !REMARKS:\n!                                                                             .\n!  References (see full citations above):\n!  ============================================================================\n!  (1 ) Wesely, M. L., 1989.\n!  (2 ) Jacob, D.J., and S.C. Wofsy, 1990\n!\n! !REVISION HISTORY:\n!  20 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I,  J\n    REAL(f8) :: THIK\n    REAL(f8) :: SP\n    REAL(f8) :: SFCWINDSQR\n\n    !========================================================================\n    ! METERO begins here!\n    !========================================================================\n\n    ! Loop over surface grid boxes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, THIK, SP, SFCWINDSQR                               )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! THIK = thickness of layer 1 [m]\n       THIK        = State_Met%BXHEIGHT(I,J,1)\n\n       ! Midpoint height of first model level [m]\n       CZ1(I,J)    = THIK / 2.0e+0_f8\n\n       ! Local surface pressure [hPa] (mpayer, 1/10/12)\n       ! Use moist air pressure for mean free path  (ewl, 3/2/15)\n       SP          = State_Met%PEDGE(I,J,1)\n\n       ! Convert from hPa to Pa for SFCPRESS\n       PRESSU(I,J) = SP * 1.e+2_f8\n\n       !==============================================================\n       ! Return meterological quantities for DEPVEL\n       !==============================================================\n\n       ! Roughness height [m]\n       AZO(I,J)    = State_Met%Z0(I,J)\n\n       ! Column cloud fraction [unitless]\n       CFRAC(I,J)  = State_Met%CLDFRC(I,J)\n\n       ! Monin-Obhukov length [m]\n       OBK(I,J)    = GET_OBK( I, J, State_Met )\n\n       ! Solar insolation @ ground [W/m2]\n       RADIAT(I,J) = State_Met%SWGDN(I,J)\n\n       ! Surface temperature [K]\n       TC0(I,J)    = State_Met%TS(I,J)\n\n       ! Friction velocity [m/s]\n       USTR(I,J)   = State_Met%USTAR(I,J)\n\n       ! Mixed layer depth [m]\n       ZH(I,J)     = State_Met%PBL_TOP_m(I,J)\n\n       ! Relative humidity @ surface [unitless] (bec, bmy, 4/13/05)\n       !RHB(I,J)    = MIN( 0.99e+0_f8, RH(I,J,1) * 1.d-2 )\n       !  changed to 98% due to vapor pressure lowering above sea water\n       !  (Lewis & Schwartz, 2004)\n       !  jaegle (5/11/11)\n       RHB(I,J)    = MIN( 0.98_f8, State_Met%RH(I,J,1) * 1.0e-2_f8 )\n\n       ! 10m windspeed [m/s] (jaegle 5/11/11)\n       SFCWINDSQR  = State_Met%U10M(I,J)**2 + State_Met%V10M(I,J)**2\n       W10(I,J)    = SQRT( SFCWINDSQR )\n\n       ! Cosine of solar zenith angle at midpoint\n       ! of the current chemistry timestep.\n       SUNCOS_MID(I,J) = State_Met%SUNCOSmid(I,J)\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE METERO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: depvel\n!\n! !DESCRIPTION: Subroutine DEPVEL computes the dry deposition velocities using\n!  a resistance-in-series model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DEPVEL( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                     State_Met, RADIAT,    TEMP,       SUNCOS,     &\n                     F0,        HSTAR,     XMW,        AEROSOL,    &\n                     USTAR,     CZ1,       OBK,        CFRAC,      &\n                     ZH,        ZO,        RHB,        PRESSU,     &\n                     W10,       RC                                )\n!\n! !USES:\n!\n    USE CMN_SIZE_MOD,         ONLY : NTYPE\n    USE Drydep_Toolbox_Mod,   ONLY : BioFit\n    USE ErrCode_Mod\n    USE ERROR_MOD\n#if !defined( MODEL_CESM )\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_Calc_Mod,       ONLY : HCO_EvalFld\n#endif\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n#ifdef APM\n    USE APM_INIT_MOD,         ONLY : APMIDS\n    USE APM_INIT_MOD,         ONLY : RDRY, RSALT, RDST, DENDST\n    USE APM_DRIV_MOD,         ONLY : GFTOT3D, DENWET3D, MWSIZE3D\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt      ! Input Options object\n    TYPE(GrdState), INTENT(IN) :: State_Grid     ! Grid state object\n    TYPE(MetState), INTENT(IN) :: State_Met      ! Meteorology state object\n\n    REAL(f8), INTENT(IN) :: RADIAT (State_Grid%NX,State_Grid%NY) ! Solar radiation [W/m2]\n    REAL(f8), INTENT(IN) :: TEMP   (State_Grid%NX,State_Grid%NY) ! Temperature [K]\n    REAL(f8), INTENT(IN) :: SUNCOS (State_Grid%NX,State_Grid%NY) ! Cos of solar zenith angle\n    LOGICAL,  INTENT(IN) :: AEROSOL(NUMDEP)      ! =T denotes aerosol species\n    REAL(f8), INTENT(INOUT) :: F0     (NUMDEP)      ! React. factor for oxidation\n                                                 !  of biological substances\n    REAL(f8), INTENT(IN) :: HSTAR  (NUMDEP)      ! Henry's law constant\n    REAL(f8), INTENT(IN) :: XMW    (NUMDEP)      ! Molecular weight [kg/mol]\n    REAL(f8), INTENT(IN) :: USTAR  (State_Grid%NX,State_Grid%NY) ! Friction velocity [m/s]\n    REAL(f8), INTENT(IN) :: CZ1    (State_Grid%NX,State_Grid%NY) ! Alt @ which Vd is compute [m]\n    REAL(f8), INTENT(IN) :: OBK    (State_Grid%NX,State_Grid%NY) ! Monin-Obhukov length [m]\n    REAL(f8), INTENT(IN) :: CFRAC  (State_Grid%NX,State_Grid%NY) ! Surface cloud fraction\n    REAL(f8), INTENT(IN) :: ZH     (State_Grid%NX,State_Grid%NY) ! Roughness height [m]\n    REAL(f8), INTENT(IN) :: RHB    (State_Grid%NX,State_Grid%NY) ! Relative humidity [%]\n    REAL(f8), INTENT(IN) :: PRESSU (State_Grid%NX,State_Grid%NY) ! Surface pressure [hPa]\n    REAL(f8), INTENT(IN) :: W10    (State_Grid%NX,State_Grid%NY) ! Wind speed @ 10m altitude [m/s]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,  INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REMARKS:\n!  Need as landtype input for each grid square (I,J); see CMN_DEP_mod.F\n!     IREG(I,J)       - # of landtypes in grid square\n!     ILAND(I,J,LDT)  - Land type ID for element LDT =1, IREG(I,J)\n!                        (could be from any source - mapped to deposition\n!                        surface ID in input unit 65)\n!     IJUSE(I,J,LDT) - Fraction ((per mil) of gridbox area occupied by\n!                       land type element LDT\n!                                                                             .\n!  Need as leaf area index; see CMN_DEP_mod.F\n!     XLAI(I,J,LDT)  - Leaf Area Index of land type element LDT\n!                                                                             .\n!  Need as meteorological input for each grid square(I,J) (passed):\n!     RADIAT(I,J)    - Solar radiation in W m-2\n!     TEMP(I,J)      - Surface air temperature in K\n!     SUNCOS(I,J)    - Cosine of solar zenith angle\n!     LSNOW(I,J)     - Logical for snow and sea ice\n!     RHB(I,J)       - Relative humidity at the surface\n!     PRESSU(I,J)    - Local surface pressure\n!     W10(I,J)       - 10m wind speed\n!                                                                             .\n!  Need as input for each species K (passed):\n!     F0(K)          - reactivity factor for oxidation of biological substances\n!     HSTAR(K)       - Henry's Law constant\n!     XMW(K)         - Molecular weight (kg/mole) of species K\n!                      (used to calculate molecular diffusivities)\n!     AEROSOL(K)     - LOGICAL flag (T = aerosol species;\n!                                    F = gas-phase species)\n!                                                                             .\n!  Also need to call the following subroutines to read drydep input data:\n!     READ_DRYDEP_INPUTS    - (in this module) Reads in Olson land type\n!                             indices, dry deposition land type indices,\n!                             default roughness heights, and polynomial\n!                             coefficients.  (This supersedes MODIN, RDDRYCF)\n!     COMPUTE_OLSON_LANDMAP - (in olson_landmap_mod.F90).  Reads in the\n!                             Olson land types at native resolution and re-bins\n!                             them on-the-fly to the GEOS-Chem grid resolution.\n!                             (This supersedes RDLAND)\n!     \"rdlai.f\"             - reads Leaf Area Indices from files \"lai**.global\"\n!                                                                             .\n!  Some variables used in the subroutine (passed):\n!     LRGERA(I,J)    T -> stable atmosphere; a high aerodynamic resistance\n!                        (RA=1.E4 m s-1) is imposed; else RA is calculated\n!     USTAR(I,J)     - Friction velocity (m s-1)\n!     CZ1(I,J)       - Altitude (m) at which deposition velocity is computed\n!     OBK(I,J)       - Monin-Obukhov length (m): set to 1.E5 m under neutral\n!                      conditions\n!     CFRAC(I,J)     - Fractional cloud cover\n!     ZH(I,J)        - Mixing depth (m)\n!                                                                             .\n!  Some variables used in the subroutine:\n!     MAXDEP         - the maximum number of species for which the dry\n!                      deposition calculation is done\n!     ZO(LDT)        - Roughness height (m) for specific surface type indexed\n!                      by LDT\n!     RSURFC(K,LDT)  - Bulk surface resistance (s m-1) for species K to\n!                      surface LDT\n!     C1X(K)         - Total resistance to deposition (s m-1) for species K\n!                                                                             .\n!  References:\n!  ============================================================================\n!     Baldocchi, D.D., B.B. Hicks, and P. Camara, A canopy stomatal\n!       resistance model for gaseous deposition to vegetated surfaces,\n!       Atmos. Environ. 21, 91-101, 1987.\n!     Brutsaert, W., Evaporation into the Atmosphere, Reidel, 1982.\n!     Businger, J.A., et al., Flux-profile relationships in the atmospheric\n!       surface layer, J. Atmos. Sci., 28, 181-189, 1971.\n!     Dwight, H.B., Tables of integrals and other mathematical data,\n!       MacMillan, 1957.\n!     Guenther, A., and 15 others, A global model of natural volatile\n!       organic compound emissions, J. Geophys. Res., 100, 8873-8892, 1995.\n!     Hicks, B.B., and P.S. Liss, Transfer of SO2 and other reactive\n!       gases across the air-sea interface, Tellus, 28, 348-354, 1976.\n!     Jacob, D.J., and S.C. Wofsy, Budgets of reactive nitrogen,\n!       hydrocarbons, and ozone over the Amazon forest during the wet season,\n!       J.  Geophys. Res., 95, 16737-16754, 1990.\n!     Jacob, D.J., and 9 others, Deposition of ozone to tundra,\n!       J. Geophys. Res., 97, 16473-16479, 1992.\n!     Levine, I.N., Physical Chemistry, 3rd ed., McGraw-Hill, New York, 1988.\n!     Munger, J.W., and 8 others, Atmospheric deposition of reactive\n!       nitrogen oxides and ozone in a temperate deciduous forest and a\n!       sub-arctic woodland, J. Geophys. Res., in press, 1996.\n!     Walcek, C.J., R.A. Brost, J.S. Chang, and M.L. Wesely, SO2, sulfate, and\n!       HNO3 deposition velocities computed using regional landuse and\n!       meteorological data, Atmos. Environ., 20, 949-964, 1986.\n!     Wang, Y.H., paper in preparation, 1996.\n!     Wesely, M.L, Improved parameterizations for surface resistance to\n!       gaseous dry deposition in regional-scale numerical models,\n!       Environmental Protection Agency Report EPA/600/3-88/025,\n!       Research Triangle Park (NC), 1988.\n!     Wesely, M.L., same title, Atmos. Environ., 23, 1293-1304, 1989.\n!\n! !REVISION HISTORY:\n!  Circa 1990 - D.J. Jacob - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8) :: RI(NTYPE),RLU(NTYPE),RAC(NTYPE),RGSS(NTYPE)\n    REAL(f8) :: RGSO(NTYPE),RCLS(NTYPE),RCLO(NTYPE)\n    REAL(f8) :: RSURFC(NUMDEP,NTYPE)\n    REAL(f8) :: C1X(NUMDEP),VD(NUMDEP),VK(NUMDEP)\n    REAL(f8) :: ZO(State_Grid%NX,State_Grid%NY)\n\n    LOGICAL  :: LDEP(NUMDEP)\n    LOGICAL  :: LRGERA(State_Grid%NX,State_Grid%NY)\n\n    REAL(f8) :: VDS\n    REAL(f8) :: CZ,C1,RT,XNU,RAD0,RIX,GFACT,GFACI\n    REAL(f8) :: RDC,RLUXX,RGSX,RCL,DTMP1,DTMP2,DTMP3,DTMP4\n    REAL(f8) :: CZH,CKUSTR,REYNO,CORR1,CORR2,Z0OBK\n    REAL(f8) :: RA,RB,DUMMY1,DUMMY2,DUMMY3,DUMMY4\n    REAL(f8) :: XMWH2O,DAIR,TEMPK,TEMPC,F0_K\n    INTEGER  :: IOLSON,II,IW\n    INTEGER  :: K,LDT\n    REAL(f8) :: RCLX,RIXX    !,BIOFIT\n\n    ! for corr O3, krt,11/2017\n    REAL(f8) :: RA_Alt, DUMMY2_Alt, DUMMY4_Alt, Z0OBK_Alt\n\n#ifdef LUO_WETDEP\n    REAL(f8) :: HSTAR3D(State_Grid%NX,State_Grid%NY,NUMDEP)\n#endif\n\n#ifdef TOMAS\n    ! For TOMAS aerosol (win, 7/15/09)\n    INTEGER  :: BIN\n    REAL(f8) :: SIZ_DIA(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n    REAL(f8) :: SIZ_DEN(State_Grid%NX,State_Grid%NY,State_Chm%nTomasBins)\n#endif\n\n    ! Loop indices (bmy, 3/29/12)\n    INTEGER  :: I, J\n\n    ! Integer for the GEOS-CHEM species number\n    INTEGER  :: N_SPC\n    REAL(f8) :: alpha\n    REAL(f8) :: DEPVw\n\n    ! Size of DRYCOEFF (ckeller, 05/19/14)\n    INTEGER  :: NN\n\n    ! Added these to pass particle density & number to DUST_SFCRSII\n    ! so as to avoid parallelization errors with TOMAS (bmy, 1/31/14)\n    REAL(f8) :: DIAM, DEN\n\n    ! Logical switch for POPS in order to use octanol-air partitioning instead\n    ! of Henry's Law for scaling of cuticular resitances (clf, 1/3/2011)\n    LOGICAL  :: IS_POPS\n\n    ! Pointers to fields in State_Met\n    INTEGER,  POINTER :: IREG(:,:)\n    INTEGER,  POINTER :: ILAND(:,:,:)\n    INTEGER,  POINTER :: IUSE(:,:,:)\n    REAL(fp), POINTER :: XLAI(:,:,:)\n\n    ! For making sure that all inputs to BIOFIT are of the same type\n    REAL(fp)          :: XLAI_FP\n    REAL(fp)          :: SUNCOS_FP\n    REAL(fp)          :: CFRAC_FP\n\n    ! For the species database\n    INTEGER                :: SpcId\n    TYPE(Species), POINTER :: SpcInfo\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ThisLoc\n    CHARACTER(LEN=512)  :: ErrMsg\n!\n! !DEFINED PARAMETERS:\n!\n    ! Small number\n    REAL(fp), PARAMETER :: SMALL = 1.0e-10_f8\n\n    ! Gravitational Settling velocity (yli, 3/28/2024)\n    REAL(f8)  :: VTSoutput ! Used in AERO_SFCRSII, ADUST_SFCRSII and DUST_SFCRSII for a specific aerosol species and a specific land type\n    REAL(f8)  :: VTSoutput_ (NUMDEP,NTYPE) ! For all deposited aerosol species and all land types\n\n    !=================================================================\n    ! DEPVEL begins here!\n    !=================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at DEPVEL (in module GeosCore/drydep_mod.F)'\n\n    ! Error check: PBL_DRYDEP must not be used together with non-local\n    ! PBL mixing.\n    IF ( Input_Opt%LNLPBL .AND. Input_Opt%PBL_DRYDEP ) THEN\n       ErrMsg = 'PBL_DRYDEP must be disabled if LNLPBL=T!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize pointers\n    IREG    => State_Met%IREG\n    ILAND   => State_Met%ILAND\n    IUSE    => State_Met%IUSE\n    XLAI    => State_Met%XLAI\n    SpcInfo => NULL()\n\n    ! Is this a POPs simmulation?\n    IS_POPS = Input_Opt%ITS_A_POPS_SIM  ! clf, 1/3/2011\n\n    ! Size of drycoeff (ckeller, 05/19/14)\n    NN = SIZE(DRYCOEFF)\n\n#if !defined( MODEL_CESM )\n    ! Evaluate iodide and salinity from HEMCO for O3 oceanic dry deposition\n    IF ( id_O3 > 0 ) THEN\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'surf_iodide', State_Chm%Iodide, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find surf_iodide in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, 'drydep_mod.F90' )\n          RETURN\n       ENDIF\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'surf_salinity', State_Chm%Salinity, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find surf_salinity in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, 'drydep_mod.F90' )\n          RETURN\n       ENDIF\n    ENDIF\n#endif\n\n    ! Initialize State_Chm%DryDepVel\n    State_Chm%DryDepVel = 0.0e+0_f8\n\n    !***********************************************************************\n    !\n    ! If LDEP(K)=F, species does not deposit.\n    ! Deposition is applied only to species with LDEP=T.\n    DO K = 1,NUMDEP\n\n       ! Better test for depositing species K: We need both HSTAR and XMW\n       ! to be nonzero, OR the value of AEROSOL to be true.  This should\n       ! avoid any futher floating point invalid issues caused by putting\n       ! a zero value in a denominator. (bmy, 8/29/13)\n       ! (bmy, 8/29/13)\n       IF ( ( HSTAR(K) > 0e+0_f8   .and. &\n              XMW  (K) > 0e+0_f8 ) .or.  AEROSOL(K) ) THEN\n          LDEP(K) = .TRUE.\n       ELSE\n          LDEP(K) = .FALSE.\n       ENDIF\n    ENDDO\n\n#ifdef LUO_WETDEP\n    ! Get the Henry's law constant as a function of lon, lat, and species\n    CALL Luo_Get_HStar3d( Input_Opt, State_Grid, State_Met, HStar3d, RC )\n#endif\n\n    !***********************************************************************\n    !\n    ! Begin section for computing deposition velocities\n    !\n#ifdef TOMAS\n    !=================================================================\n    ! FOR TOMAS MICROPHYSICS:\n    !\n    ! Calculate 30-bin aerosol size and diameter at each grid box\n    ! This is done differently than 2-bin seasalt and 4-bin dust\n    ! because at each box the aerosol size&density is different\n    ! depending on the internally-mixed composition (win, 7/15/09)\n    !=================================================================\n    IF ( id_NK01 > 0 ) THEN\n       CALL AERO_DIADEN( 1, Input_Opt, State_Chm, State_Grid, State_Met, &\n                         State_Diag, SIZ_DIA, SIZ_DEN, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in call to \"AERO_DIADEN\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n#endif\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( CZ,        TEMPK,   TEMPC,   K,      VD                  )&\n    !$OMP PRIVATE( LDT,       RSURFC,  C1,      XNU,    RT,      IOLSON     )&\n    !$OMP PRIVATE( II,        RI,      RLU,     RAC,    RGSS,    RGSO       )&\n    !$OMP PRIVATE( RCLS,      RCLO,    RAD0,    RIX,    GFACT,   GFACI      )&\n    !$OMP PRIVATE( RDC,       XMWH2O,  RIXX,    RLUXX,  RGSX,    RCLX       )&\n    !$OMP PRIVATE( DTMP1,     DTMP2,   DTMP3,   DTMP4,  VDS,     CZH        )&\n    !$OMP PRIVATE( CKUSTR,    REYNO,   CORR1,   CORR2,  Z0OBK,   RA         )&\n    !$OMP PRIVATE( Z0OBK_Alt, RA_Alt,  DUMMY2_Alt,      DUMMY4_Alt          )&\n    !$OMP PRIVATE( DUMMY1,    DUMMY2,  DUMMY3,  DUMMY4, DAIR,    RB         )&\n    !$OMP PRIVATE( C1X,       VK,      I,       J,      IW                  )&\n    !$OMP PRIVATE( DIAM,      DEN,     XLAI_FP, SUNCOS_FP,       CFRAC_FP   )&\n    !$OMP PRIVATE( N_SPC,     alpha,   DEPVw,   VTSoutput,       VTSoutput_ )&\n#ifdef TOMAS\n    !$OMP PRIVATE( BIN                                                      )&\n#endif\n    !$OMP PRIVATE( SpcId,   SpcInfo,    F0_K                                )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero variables that aren't zeroed below\n       VD         = 0.0_f8\n       RSURFC     = 0.0_f8\n       II         = 0.0\n       RI         = 0.0_f8\n       RLU        = 0.0_f8\n       RAC        = 0.0_f8\n       RGSS       = 0.0_f8\n       RGSO       = 0.0_f8\n       RCLS       = 0.0_f8\n       RCLO       = 0.0_f8\n       RAD0       = 0.0_f8\n       RIX        = 0.0_f8\n       GFACT      = 0.0_f8\n       GFACI      = 0.0_f8\n       RDC        = 0.0_f8\n       XMWH2O     = 0.0_f8\n       RIXX       = 0.0_f8\n       RLUXX      = 0.0_f8\n       RGSX       = 0.0_f8\n       RCLX       = 0.0_f8\n       DTMP1      = 0.0_f8\n       DTMP2      = 0.0_f8\n       DTMP3      = 0.0_f8\n       DTMP4      = 0.0_f8\n       VDS        = 0.0_f8\n       CZH        = 0.0_f8\n       CKUSTR     = 0.0_f8\n       REYNO      = 0.0_f8\n       CORR1      = 0.0_f8\n       CORR2      = 0.0_f8\n       Z0OBK      = 0.0_f8\n       RA         = 0.0_f8\n       Z0OBK_Alt  = 0.0_f8\n       RA_Alt     = 0.0_f8\n       DUMMY2_Alt = 0.0_f8\n       DUMMY4_Alt = 0.0_f8\n       DUMMY1     = 0.0_f8\n       DUMMY2     = 0.0_f8\n       DUMMY3     = 0.0_f8\n       DUMMY4     = 0.0_f8\n       DAIR       = 0.0_f8\n       RB         = 0.0_f8\n       C1X        = 0.0_f8\n       VK         = 0.0_f8\n       DIAM       = 0.0_f8\n       DEN        = 0.0_f8\n       XLAI_FP    = 0.0_f8\n       SUNCOS_FP  = 0.0_f8\n       CFRAC_FP   = 0.0_f8\n       N_SPC      = 0\n       alpha      = 0.0_f8\n       DEPVw      = 0.0_f8\n       F0_K       = 0.0_f8\n       VTSoutput  = 0.0_fp\n       VTSoutput_ = 0.0_fp\n\n       ! CZ is Altitude (m) at which deposition velocity is computed\n       CZ    = CZ1(I,J)\n\n       ! TEMPK and TEMPC are surface air temperatures in K and in C\n       TEMPK = TEMP(I,J)\n       TEMPC = TEMP(I,J)-273.15e+0_f8\n\n       ! Calculate the kinematic viscosity XNU (m2 s-1) of air\n       ! as a function of temperature.\n       ! The kinematic viscosity is used to calculate the roughness heights\n       ! over water surfaces and to diagnose whether such surfaces are\n       ! aerodynamically rough or smooth using a Reynolds number criterion.\n       ! The expression for the temperature dependence of XNU\n       ! is from the FORTRAN code in Appendix II of Wesely [1988];\n       ! I wasn't able to find an original reference but it seems benign enough.\n       C1  = TEMPK/273.15e+0_f8\n       XNU = 0.151e+0_f8*(C1**1.77e+0_f8)*1.0e-04_f8\n\n       ! Compute bulk surface resistance for gases.\n       !\n       ! Adjust external surface resistances for temperature;\n       ! from Wesely [1989], expression given in text on p. 1296.\n       !\n       RT = 1000.0e+0_f8*EXP(-TEMPC-4.0e+0_f8)\n       !\n       ! Get surface resistances - loop over land types LDT\n       !***********************************************************************\n       ! The land types within each grid square are defined using the Olson\n       ! land-type database.  Each of the Olson land types is assigned a\n       ! corresponding \"deposition land type\" with characteristic values of\n       ! surface resistance components.  There are 74 Olson land-types but only\n       ! 11 deposition land-types (i.e., many of the Olson land types share the\n       ! same deposition characteristics).  Surface resistance components for\n       ! the \"deposition land types\" are from Wesely [1989] except for tropical\n       ! forests [Jacob and Wofsy, 1990] and for tundra [Jacob et al., 1992].\n       ! All surface resistance components are normalized to a leaf area index\n       ! of unity.\n       !\n       ! Olson land types, deposition land types, and surface resistance\n       ! components are read from file 'drydep.table'; check that file for\n       ! further details.\n       !***********************************************************************\n\n       ! Loop over the # of Olson land types in this grid box (I,J)\n       DO LDT = 1, IREG(I,J)\n\n          ! Only proceed if there is a land type in this grid\n          IF ( IUSE(I,J,LDT) > 0 ) THEN\n\n             ! Olson land type index + 1\n             IOLSON = ILAND(I,J,LDT)+1\n\n             ! Equivalent dry deposition land type:\n             ! 11 in GEOS-Chem dry dep; 73 in Olson landcover type\n             II     = IDEP(IOLSON)\n             \n             ! Over snow or ice, set drydep landcover type to 1\n             IF ((State_Met%isSnow(I,J)).OR.(State_Met%isIce(I,J))) II=1\n\n             ! Read the internal resistance RI (minimum stomatal resistance for\n             ! water vapor,per unit area of leaf) from the IRI array; a '9999'\n             ! value means no deposition to stomata so we impose a very large\n             ! value for RI.\n             RI(LDT) = DBLE(IRI(II))\n             IF (RI(LDT)   .GE. 9999.e+0_f8) RI(LDT)   = 1.e+12_f8\n\n             ! Cuticular resistances IRLU read in from 'drydep.table'\n             ! are per unit area of leaf;\n             ! divide them by the leaf area index to get a cuticular resistance\n             ! for the bulk canopy.  If IRLU is '9999' it means there are no\n             ! cuticular surfaces on which to deposit so we impose a very large\n             ! value for RLU.\n             IF ( IRLU(II) >= 9999 .or. XLAI(I,J,LDT) <= 0.e+0_f8 ) THEN\n                RLU(LDT) = 1.e+6_f8\n             ELSE\n                RLU(LDT) = DBLE( IRLU(II) ) / XLAI(I,J,LDT)\n                ! Additional resistance at low temperatures.\n                ! Limit increase to a factor of 2.\n                ! V. Shah 23 Oct 18\n                ! Ref Jaegle et al. 2018\n                RLU(LDT) = MIN( RLU(LDT) + RT, 2.e+0_f8 * RLU(LDT) )\n             ENDIF\n             ! The following are the remaining resistances for the Wesely\n             ! resistance-in-series model for a surface canopy\n             ! (see Atmos. Environ. paper, Fig.1).\n             RAC(LDT)  = MAX(DBLE(IRAC(II)), 1.e+0_f8)\n             IF (RAC(LDT)  .GE. 9999.e+0_f8) RAC(LDT)  = 1.e+12_f8\n             RGSS(LDT) = MAX(DBLE(IRGSS(II)), 1.e+0_f8)\n             ! Additional resistance at low temperatures.\n             ! Limit increase of RGSS, RGSO, RCLS, & RCLO to a factor of 2.\n             ! V. Shah 23 Oct 18\n             ! Ref Jaegle et al. 2018\n             RGSS(LDT) = MIN( RGSS(LDT) + RT, 2.e+0_f8 * RGSS(LDT) )\n             IF (RGSS(LDT) .GE. 9999.e+0_f8) RGSS(LDT) = 1.e12_f8\n             RGSO(LDT) = MAX(DBLE(IRGSO(II)) ,1.e+0_f8)\n             RGSO(LDT) = MIN( RGSO(LDT) + RT, 2.e+0_f8 * RGSO(LDT) )\n             IF (RGSO(LDT) .GE. 9999.e+0_f8) RGSO(LDT) = 1.e+12_f8\n             RCLS(LDT) = DBLE(IRCLS(II))\n             RCLS(LDT) = MIN( RCLS(LDT) + RT, 2.e+0_f8 * RCLS(LDT) )\n             IF (RCLS(LDT) .GE. 9999.e+0_f8) RCLS(LDT) = 1.e+12_f8\n             RCLO(LDT) = DBLE(IRCLO(II))\n             RCLO(LDT) = MIN( RCLO(LDT) + RT, 2.e+0_f8 * RCLO(LDT) )\n             IF (RCLO(LDT) .GE. 9999.e+0_f8) RCLO(LDT) = 1.e+12_f8\n             !****************************************************************\n             !\n             ! Adjust stomatal resistances for insolation and temperature:\n             !\n             !  Temperature adjustment is from Wesely [1989], equation (3).\n             !\n             !  Light adjustment by the function BIOFIT is described by Wang\n             !  [1996]. It combines\n             !    - Local dependence of stomal resistance on the intensity I\n             !      of light impinging the leaf; this is expressed as a\n             !      mutliplicative factor I/(I+b) to the stomatal resistance\n             !      where b = 50 W m-2 (equation (7) of Baldocchi et al.[1987])\n             !    - radiative transfer of direct and diffuse radiation in the\n             !      canopy using equations (12)-(16) from Guenther et al.[1995]\n             !    - separate accounting of sunlit and shaded leaves using\n             !      equation (12) of Guenther et al. [1995]\n             !    - partitioning of the radiation at the top of the canopy into\n             !      direct and diffuse components using a parameterization to\n             !      results from an atmospheric radiative transfer model\n             !      [Wang, 1996]\n             !  The dependent variables of the function BIOFIT are the leaf\n             !  area index (XYLAI), the cosine of zenith angle (SUNCOS) and\n             !  the fractional cloud cover (CFRAC).  The factor GFACI\n             !  integrates the light dependence over the canopy depth; sp even\n             !  though RI is input per unit area of leaf it need not be scaled\n             !  by LAI to yield a bulk canopy value because that's already\n             !  done in the GFACI formulation.\n             !****************************************************************\n             RAD0 = RADIAT(I,J)\n             RIX = RI(LDT)\n             IF (RIX < 9999.e+0_f8) THEN\n                GFACT = 100.0e+0_f8\n                IF (TEMPC .GT. 0.e+0_f8 .AND. TEMPC .LT. 40.e+0_f8)          &\n                     GFACT = 400.e+0_f8/TEMPC/(40.0e+0_f8-TEMPC)\n                GFACI = 100.e+0_f8\n                IF ( RAD0 > 0.e+0_f8 .and. XLAI(I,J,LDT) > 0.e+0_f8 ) THEN\n                   ! Now make sure all inputs to BIOFIT are flexible precision\n                   ! so that the code will compile properly (bmy, 12/18/14)\n                   XLAI_FP   = XLAI(I,J,LDT)\n                   SUNCOS_FP = SUNCOS(I,J)\n                   CFRAC_FP  = CFRAC(I,J)\n                   GFACI     = 1.e+0_f8 / BIOFIT( DRYCOEFF,  XLAI_FP,        &\n                                                  SUNCOS_FP, CFRAC_FP, NN )\n                ENDIF\n\n                RIX = RIX*GFACT*GFACI\n                \n                ! Apply scaling factor to RIX when CO2 effect is turned on\n                ! (ayhwong, 6/25/19)\n                IF (Input_Opt%CO2_EFFECT) THEN\n                   RIX = RIX*Input_Opt%RS_SCALE\n                ENDIF\n\n             ENDIF   ! If RIX < 9999\n\n             !\n             ! Compute aerodynamic resistance to lower elements in lower part\n             ! of the canopy or structure, assuming level terrain -\n             ! equation (5) of Wesely [1989].\n             !\n             RDC = 100.e+0_f8*(1.0e+0_f8+1000.0e+0_f8/(RAD0+10.e+0_f8))\n             !\n             ! Loop over species; species-dependent corrections to resistances\n             ! are from equations (6)-(9) of Wesely [1989].\n             !\n             DO K = 1,NUMDEP\n\n                ! Save F0(K) in a private variable to avoid diffs due\n                ! to parallelization -- Bob Yantosca (17 May 2023)\n                F0_K = F0(K)\n\n                ! Only consider dry depositing gas-phase species:\n                IF ( LDEP(K) .AND. ( .NOT. AEROSOL(K) ) ) THEN\n\n                   N_SPC = State_Chm%Map_DryDep(K)\n                   IF ((N_SPC .EQ. ID_O3) .AND. (II .EQ. 11)) THEN\n\n                      IF (State_Chm%SALINITY(I,J) .GT. 20.0_f8) THEN\n\n                         ! Now apply the Luhar et al. [2018] equations for the\n                         ! special treatment of O3 dry deposition to the ocean\n                         ! surface\n                         CALL OCEANO3(State_Met%TSKIN(I,J),USTAR(I,J),       &\n                                      State_Chm%IODIDE(I,J),I,J,DEPVw)\n\n                         ! Now convert to the new rc value(s) can probably tidy\n                         ! this up a bit\n                         alpha = 10.0_f8**(-0.25-0.013*( &\n                                           State_Met%TSKIN(I,J)-273.16_f8))\n                         RSURFC(K,LDT) = 1.0_f8/(alpha*DEPVw)\n\n                      ELSE\n\n                         ! It's not 'ocean' so we instead don't change it from\n                         ! 'default' rc\n                         RSURFC(K,LDT) = 2000.0_f8\n\n                      ENDIF\n\n                   ! Test for if surface is snow/ice to change O3\n                   ! surface resistance to an observation derived value\n                   ELSE IF ((N_SPC .EQ. ID_O3) .AND. (II .EQ. 1)) THEN\n                      RSURFC(K,LDT) = 10000.0_f8\n                   ELSE\n                      ! Check latitude and longitude, alter F0 only for Amazon\n                      ! rainforest for Hg0 (see reference: Feinberg et al., ESPI,\n                      ! 2022: Evaluating atmospheric mercury (Hg) uptake by\n                      ! vegetation in a chemistry-transport model)\n                      !\n                      ! Remove IF/ELSE block using never-nesting technique.\n                      !   - Bob Yantosca (17 May 2023)\n                      IF ( N_SPC == ID_Hg0 ) THEN\n\n                         ! Assume lower reactivity\n                         F0_K = 3.0e-05_f8\n                   \n                         ! But if this is the rainforest land type and we fall\n                         ! within the bounding box of the Amazon rainforest,\n                         ! then implicit nonecrease reactivity as inferred\n                         ! from observations.\n                         IF ( II                   ==  6         .AND.       &\n                              State_Grid%XMid(I,J) >  -82.0_f8   .AND.       &\n                              State_Grid%XMid(I,J) <  -33.0_f8   .AND.       &\n                              State_Grid%YMid(I,J) >  -34.0_f8   .AND.       &\n                              State_Grid%YMid(I,J) <   14.0_f8 ) THEN\n                            F0_K = 2.0e-01_f8\n                         ENDIF\n                      ENDIF\n\n                      !XMWH2O = 18.e-3_f8 ! Use global H2OMW (ewl, 1/6/16)\n                      XMWH2O = H2OMW * 1.e-3_f8\n#ifdef LUO_WETDEP\n                      RIXX = RIX*DIFFG(TEMPK,PRESSU(I,J),XMWH2O)/ &\n                           DIFFG(TEMPK,PRESSU(I,J),XMW(K)) &\n                         + 1.e+0_f8/(HSTAR3D(I,J,K)/3000.e+0_f8+100.e+0_f8*F0_K)\n#else\n                      RIXX = RIX*DIFFG(TEMPK,PRESSU(I,J),XMWH2O)/ &\n                           DIFFG(TEMPK,PRESSU(I,J),XMW(K)) &\n                         + 1.e+0_f8/(HSTAR(K)/3000.e+0_f8+100.e+0_f8*F0_K)\n#endif\n                      RLUXX = 1.e+12_f8\n                      IF (RLU(LDT).LT.9999.e+0_f8)                           &\n#ifdef LUO_WETDEP\n                         RLUXX = RLU(LDT)/(HSTAR3D(I,J,K)/1.0e+05_f8 + F0_K)\n#else\n                         RLUXX = RLU(LDT)/(HSTAR(K)/1.0e+05_f8 + F0_K)\n#endif\n\n                      ! If POPs simulation, scale cuticular resistances with\n                      ! octanol-air partition coefficient (Koa) instead of\n                      ! HSTAR (clf, 1/3/2011)\n                      IF (IS_POPS) &\n                        RLUXX = RLU(LDT)/(KOA(K)/1.0e+05_f8 + F0_K)\n\n                      !\n                      ! To prevent virtually zero resistance to species with\n                      ! huge HSTAR, such as HNO3, a minimum value of RLUXX\n                      ! needs to be The rationality of the existence of such\n                      ! a minimum is demonstrated by the observed relationship\n                      ! between Vd(NOy-NOx) and Ustar in Munger et al.[1996];\n                      ! Vd(HNO3) never exceeds 2 cm s-1 in observations. The\n                      ! corresponding minimum resistance is 50 s m-1. This\n                      ! correction was introduced by J.Y. Liang on 7/9/95.\n                      !\n#ifdef LUO_WETDEP\n                      RGSX = 1.e+0_f8/(HSTAR3D(I,J,K)/1.0e+05_f8/RGSS(LDT) + &\n                           F0_K/RGSO(LDT))\n                      RCLX = 1.e+0_f8/(HSTAR3D(I,J,K)/1.0e+05_f8/RCLS(LDT) + &\n                           F0_K/RCLO(LDT))\n#else\n                      RGSX = 1.e+0_f8/(HSTAR(K)/1.0e+05_f8/RGSS(LDT) +       &\n                           F0_K/RGSO(LDT))\n                      RCLX = 1.e+0_f8/(HSTAR(K)/1.0e+05_f8/RCLS(LDT) +       &\n                           F0_K/RCLO(LDT))\n#endif\n                      !\n                      ! Get the bulk surface resistance of the canopy,\n                      ! RSURFC, from the network of resistances in parallel\n                      ! and in series (Fig. 1 of Wesely [1989])\n                      DTMP1=1.e+0_f8/RIXX\n                      DTMP2=1.e+0_f8/RLUXX\n                      DTMP3=1.e+0_f8/(RAC(LDT)+RGSX)\n                      DTMP4=1.e+0_f8/(RDC+RCLX)\n                      RSURFC(K,LDT) = 1.e+0_f8/(DTMP1 + DTMP2 + DTMP3 + DTMP4)\n\n                   ENDIF\n\n                ! get surface deposition velocity for aerosols if needed;\n                ! equations (15)-(17) of Walcek et al. [1986]\n                ELSE IF ( LDEP(K) .and. AEROSOL(K) ) THEN\n\n                   ! Get information about this species from the database\n                   SpcId   =  NTRAIND(K)\n                   SpcInfo => State_Chm%SpcData(SpcId)%Info\n\n                   IF ( SpcInfo%DD_AeroDryDep ) THEN\n\n                      !=====================================================\n                      ! Use size-resolved dry deposition calculations for\n                      ! seasalt aerosols.  We need to account for the\n                      ! hygroscopic growth of the aerosol particles.\n                      !=====================================================\n\n                      ! [Zhang et al., 2001]\n                      RSURFC(K,LDT) = AERO_SFCRSII( K,                       &\n                                                    II,                      &\n                                                    PRESSU(I,J)*1e-3_f8,     &\n                                                    TEMPK,                   &\n                                                    USTAR(I,J),              &\n                                                    RHB(I,J),                &\n                                                    W10(I,J),                &\n                                                    VTSoutput,               &\n                                                    Input_Opt,               &\n                                                    State_Chm )\n\n                      VTSoutput_(K,LDT) = VTSoutput\n\n                   ELSE IF ( SpcInfo%DD_DustDryDep ) THEN\n\n                      !=====================================================\n                      ! Use size-resolved dry deposition calculations for\n                      ! dust aerosols only.  Do not account for hygroscopic\n                      ! growth of the dust aerosol particles.\n                      !=====================================================\n#ifdef TOMAS\n                      !-------------------------------\n                      !%%% TOMAS SIMULATIONS %%%\n                      !-------------------------------\n                      IF ( INDEX( TRIM(SpcInfo%Name), 'DSTbin' ) > 0 ) THEN\n\n                         ! Particle diameter, convert [m] -> [um]\n                         DIAM  = A_RADI(K) * 2.e+0_f8\n                      \n                         ! Particle density [kg/m3]\n                         DEN   = A_DEN(K)\n\n                      ELSE\n\n                         ! Get current aerosol diameter and density\n                         ! NOTE: In TOMAS the aerosol diameter and density\n                         ! evolves with time.  We have to save these in the\n                         ! DIAM and DEN variables so that we can hold these\n                         ! PRIVATE for the parallel loop.\n                         BIN  = NTRAIND(K) - id_NK01 + 1\n                         DIAM = SIZ_DIA( I, J, BIN )     ! Diameter [m]\n                         DEN  = SIZ_DEN( I, J, BIN )     ! Density  [kg/m3]\n                      \n                      ENDIF\n#else\n                      !-------------------------------\n                      !%%% NON-TOMAS SIMULATIONS %%%\n                      !-------------------------------\n\n                      ! Particle diameter, convert [m] -> [um]\n                      DIAM  = A_RADI(K) * 2.e+0_f8\n                \n                      ! Particle density [kg/m3]\n                      DEN   = A_DEN(K)\n#endif\n\n#ifdef APM\n                      IF(SpcInfo%Name(1:8)=='APMSPBIN')THEN\n                         DIAM = RDRY(SpcId-APMIDS%id_SO4BIN1+1)* &\n                              GFTOT3D(I,J,1,1)*2.D0\n                         DEN = DENWET3D(I,J,1,1)*1.D3\n                      ENDIF\n                      IF(SpcInfo%Name(1:9)=='APMSEABIN')THEN\n                         DIAM = RSALT(SpcId-APMIDS%id_SEABIN1+1)* &\n                              GFTOT3D(I,J,1,2)*2.D0\n                         DEN = DENWET3D(I,J,1,2)*1.D3\n                      ENDIF\n                      IF(SpcInfo%Name(1:9)=='APMDSTBIN')THEN\n                         DIAM = RDST(SpcId-APMIDS%id_DSTBIN1+1)*2.D0\n                         DEN = DENDST(SpcId-APMIDS%id_DSTBIN1+1)*1.D3\n                      ENDIF\n                      IF(SpcInfo%Name(1:8)=='APMLVSOA')THEN\n                         DIAM = MWSIZE3D(I,J,1,1)*2.D0\n                         DEN = DENWET3D(I,J,1,1)*1.D3\n                      ENDIF\n                      IF(SpcInfo%Name(1:8)=='APMCTSEA')THEN\n                         DIAM = MWSIZE3D(I,J,1,2)*2.D0\n                         DEN = DENWET3D(I,J,1,2)*1.D3\n                      ENDIF\n                      IF(SpcInfo%Name(1:8)=='APMCTDST')THEN\n                         DIAM = MWSIZE3D(I,J,1,3)*2.D0\n                         DEN = DENDST(12)*1.D3\n                      ENDIF\n#endif\n\n                      ! [Zhang et al., 2001]\n                      RSURFC(K,LDT) = DUST_SFCRSII( K,                       &\n                                                    II,                      &\n                                                    PRESSU(I,J)*1e-3_f8,     &\n                                                    TEMPK,                   &\n                                                    USTAR(I,J),              &\n                                                    DIAM,                    &\n                                                    DEN,                     &\n                                                    VTSoutput )\n\n                      VTSoutput_(K,LDT) = VTSoutput\n\n                   ELSE\n\n                      !=====================================================\n                      ! Replace original code to statement 160 here: only\n                      ! do this for non-size-resolved species where\n                      ! AEROSOL(K)=T. (rjp, tdf, bec, bmy, 4/20/04)\n                      !=====================================================\n                      !! use Zhang et al for all aerosols (hotp 10/26/07)\n                      !VDS = 0.002D0*USTAR(I,J)\n                      !IF (OBK(I,J) .LT. 0.0D0) THEN\n                      !   VDS = VDS*(1.D0+(-300.D0/OBK(I,J))**0.6667D0)\n                      !ENDIF\n                      !\n                      !IF ( OBK(I,J) .EQ. 0.0D0 ) &\n                      !    WRITE(6,156) OBK(I,J),I,J,LDT\n                      ! 156 FORMAT(1X,'OBK(I,J)=',E11.2,1X,' I,J =',2I4, 1X,'LDT=',I3/)\n                      !CZH  = ZH(I,J)/OBK(I,J)\n                      !IF (CZH.LT.-30.0D0) VDS = 0.0009D0*USTAR(I,J)* &\n                      !   (-CZH)**0.6667D0\n\n                      RSURFC(K, LDT) = ADUST_SFCRSII( K,                     &\n                                                      II,                    &\n                                                      PRESSU(I,J)*1e-3_f8,   &\n                                                      TEMPK,                 &\n                                                      USTAR(I,J),            &\n                                                      VTSoutput,             &\n                                                      RHB(I,J),              &\n                                                      State_Chm )\n\n                      VTSoutput_(K,LDT) = VTSoutput\n\n                      !\n                      ! Set VDS to be less than VDSMAX (entry in input file\n                      ! divided by 1.D4) VDSMAX is taken from Table 2 of Walcek\n                      ! et al. [1986]. Invert to get corresponding R\n\n                      !RSURFC(K,LDT) = 1.D0/MIN(VDS, DBLE(IVSMAX(II))/1.D4)\n                   ENDIF\n\n                   ! Free pointer\n                   SpcInfo => NULL()\n\n                ENDIF   ! If gas else if Aerosol(K)\n             ENDDO      ! DO K=1, NUMDEP\n          ENDIF         ! If IUSE(I,J,IDT) > 0\n       ENDDO            ! LDT = 1, IREG\n\n       !\n       ! Set max and min values for bulk surface resistances\n       !\n       DO K = 1,NUMDEP\n          IF ( LDEP(K) ) THEN\n             DO LDT = 1, IREG(I,J)\n                IF ( IUSE(I,J,LDT) > 0 ) THEN\n\n                   ! Because of high resistance values, a different rule\n                   ! is applied for deposition of O3 to ocean.\n                   ! Recompute the drydep landcover value II here,\n                   ! which had been missing prior to 14.5.1.\n                   !  -- Eloise Marais (07 Feb 2025)\n\n                   ! Olson land type index + 1\n                   IOLSON = ILAND(I,J,LDT) + 1\n\n                   ! Equivalent dry deposition land type\n                   II     = IDEP(IOLSON)\n\n                   ! Over snow or ice, set drydep land cover type to 1\n                   IF ( State_Met%isSnow(I,J) .OR. State_Met%isIce(I,J) ) II=1\n\n                   N_SPC = State_Chm%Map_DryDep(K)\n                   IF ((N_SPC .EQ. ID_O3) .AND. (II .EQ. 11)) THEN\n                      RSURFC(K,LDT) =                                        &\n                           MAX(1.e+0_f8, MIN(RSURFC(K,LDT),999999.e+0_f8))\n                   ELSE\n                      RSURFC(K,LDT) =                                        &\n                           MAX(1.e+0_f8, MIN(RSURFC(K,LDT),9999.e+0_f8))\n                   ENDIF\n                   ! Set Rc for strong acids (HNO3,HCl,HBr) to 1 s/m\n                   ! V. Shah (23 Oct 18)\n                   ! Ref. Jaegle et al. 2018, cf. Erisman,van Pul,Ayers 1994\n                   IF ( HSTAR(K) .gt. 1.e+10_f8 ) THEN\n                      RSURFC(K,LDT)= 1.e+0_f8\n                   ENDIF\n                ENDIF   ! If IUSE(I,J,LDT) > 0\n             ENDDO      ! DO LDT=1,LREG(I,J)\n          ENDIF         ! LDEP species condition\n       ENDDO            ! Numdep species\n\n       !\n       ! Loop through the different landuse types present in\n       ! the grid square\n       !\n       DO LDT = 1, IREG(I,J)\n          IF ( IUSE(I,J,LDT) > 0 ) THEN   !GOTO 500\n             ! IOLSON = ... line previously located here. Not needed, so\n             ! removed (eam, 2025).\n\n             !***** Get aerodynamic resistances Ra and Rb. ***********\n             ! The aerodynamic resistance Ra is integrated from altitude\n             ! z0+d up to the altitude z1 at which the dry deposition\n             ! velocity is to be referenced. The integration corrects for\n             ! stability using Monin-Obukhov similarity formulas from\n             ! Businger et al. [1971] which apply over the range\n             ! 2.5 < z/zMO < 1.5 (see their Figure 2).  Under very unstable\n             ! conditions when z1 > -2.5 zMO, we assume that there is no\n             ! resistance to transfer in the convective column between zMO\n             ! and z1. Under very stable conditions when z1 > 1.5 zMO we\n             ! assume that vertical transfer in the column between zMO and\n             ! z1 is strongly suppressed so that the deposition velocity at\n             ! altitude z1 is very low.  Under these conditions we just\n             ! specify a very large Ra=1.E4 s m-1 (LRGERA = T).\n             !**\n             ! The Reynolds number REYNO diagnoses whether a surface is\n             ! aerodynamically rough (REYNO > 1) or smooth.\n             !\n             ! NOTE: The criterion \"REYNO > 1\" was originally \"REYNO > 10\".\n             ! See below for an explanation of why it was changed\n             ! (hyl, 10/15/99)\n             !\n             ! Surface is rough in all cases except over water with low\n             ! wind speeds. In the smooth case, vertical transport IN THE\n             ! SUBLAYER near the surface is limited by molecular diffusion\n             ! and is therefore very slow; we assign a large value we assign\n             ! a large value of Ra + Rb to account for this effect.\n             ! [In Versions 3.2 and earlier we used the formulation for\n             ! Ra + Rb given in Equation (12) of Walcek et al [1986] to\n             ! calculate the aerodynamic resistance over smooth surfaces.\n             ! However, that expression fails  when u* is very small, as it\n             ! yields negative values of Ra + Rb]. (djj, hyl, bmy, 5/8/00)\n             !\n             !**\n             ! In the aerodynamically rough case, the expression for Ra\n             ! is as given in equation (5) of Jacob et al. [1992]:\n             !\n             !     Ra = (1/ku*)*int(from z0 to z1) (phi(x)/z)dz\n             !\n             ! where x = (z-D)/zMO, z is the height above ground, and D is\n             ! the displacement height which is typically 70-80% of the\n             ! canopy height [Brutsaert, 1982].  We change the vertical\n             ! coordinate so that z=0 at the displacement height; that's OK\n             ! since for all practical applications z1 >> D.  In this manner\n             ! we don't need to assume any specific value for the displacement\n             ! height.  Applying the variable transformation z -> x = z/zMO,\n             ! the equation above becomes\n             !\n             !     Ra = (1/ku*)*int(from x0 to x1) (phi(x)/x)dx with x=z/zMO\n             !\n             ! Here phi is a stability correction function originally\n             ! formulated by Businger et al. [1971] and given in eqns 5a and\n             ! 5b of Jacob et al. [1992]. For unstable conditions,\n             !\n             !     phi(x) = a/sqrt(1-bx)  where a=0.74, b = 9\n             !\n             ! The analytical solution to the integral is [Dwight, 1957,\n             ! integral 192.11]:\n             !\n             !     int(dx/(x*sqrt(1-bx))) = log(abs((sqrt(1-bx)-1)\n             !                            /(sqrt(1-bx)+1)))\n             !\n             ! which yields the expression for Ra used in the code for\n             ! unstable conditions.  For stable conditions,\n             !\n             !     phi(x) = a + bx        where a=0.74, b = 4.7\n             !\n             ! and the analytical solution to the integral is\n             !\n             !     int((a/x)+b)dx = a*ln(x) + bx\n             !\n             ! which yields the expression of Ra used in the code for stable\n             ! conditions.\n             !\n             !**\n             ! The formulation of RB for gases is equation (12) of Walcek\n             ! et al. [1986].  The parameterization for deposition of aerosols\n             ! does not include an RB term so RB for aerosols is set to zero.\n             ! Modify phi(x) according to the non-local mixing scheme\n             ! by Holtslag and Boville [1993] ( Lin, 07/18/08 )\n             ! For unstable conditions,\n             !\n             !     phi(x) = a/sqrt(1-bx)  where a=1.0, b=15.0\n             !\n             ! For stable conditions,\n             !\n             !     phi(x) = a + bx\n             !\n             !     where a=1.0, b=5.0 for 0 <= x <= 1, and\n             !           a=5.0, b=1.0 for x > 1.0\n             !********************************************************\n\n             CKUSTR = VON_KARMAN * USTAR(I,J)\n\n             REYNO = USTAR(I,J)*ZO(I,J)/XNU\n\n             IF ( OBK(I,J) .EQ. 0.0e+0_f8 ) THEN\n                WRITE(6,211) OBK(I,J),I,J,LDT\n211             FORMAT(1X,'OBK(I,J)=',E11.2,1X,' I,J = ',2I4,1X,'LDT=',I3/)\n             ENDIF\n             CORR1 = CZ/OBK(I,J)\n\n             ! Define Z0OBK\n             Z0OBK = ZO(I,J)/OBK(I,J)\n             !--------------------------------------------------------\n             ! Z0OBK_Alt is Z0OBK for a user-specified height above\n             ! the surface.  This is required for diagnostics.\n             ! (krt, bmy, 7/10/19).\n             !--------------------------------------------------------\n             IF ( State_Diag%Archive_ConcAboveSfc ) THEN\n                Z0OBK_Alt = Input_Opt%RA_Alt_Above_Sfc / OBK(I,J)\n             ENDIF\n\n             LRGERA(I,J) = .FALSE.\n             ! Add option for non-local PBL (Lin, 03/31/09)\n             IF (.NOT. Input_Opt%LNLPBL) THEN\n                IF (CORR1 .GT. 0.e+0_f8) THEN\n                   IF (CORR1 .GT.  1.5e+0_f8) LRGERA(I,J) = .TRUE.\n                ELSEIF(CORR1 .LE. 0.e+0_f8) THEN\n                   IF (CORR1 .LE. -2.5e+0_f8) CORR1 = -2.5e+0_f8\n                   CORR2 = LOG(-CORR1)\n                ENDIF\n             ENDIF\n             \n             IF (CKUSTR.EQ.0.0e+0_f8) THEN\n                WRITE(6,212) I,J,CKUSTR,VON_KARMAN,USTAR(I,J)\n212             FORMAT(1X,'I,J= ',2I4,1X,'CKUSTR=',E10.1,1X, &\n                     'VON_KARMAN= ',E12.4,1X,'USTAR(I,J)= ',E12.4)\n                !CLOSE(98)  ! I don't think this is needed (eam)\n                STOP             ! debug\n             ENDIF\n\n             !...aerodynamically rough or smooth surface\n             ! \"In the classic study by Nikuradse (1933) the transition\n             ! from smooth to rough was examined in pipe flow. He introduced\n             ! a roughness Reynolds number Rr = U* Z0 / Nu and found the flow\n             ! to be smooth for Rr < 0.13 and rough for Rr > 2.5 with a\n             ! transition regime in between.\" (E.B. Kraus and J.A. Businger,\n             ! Atmosphere-Ocean Interaction, second edition, P.144-145, 1994).\n             ! Similar statements can be found in the books: Evaporation into\n             ! the atmosphere, by Wilfried Brutsaert ,P.59,89, 1982; or\n             ! Seinfeld & Pandis, P.858, 1998.\n             !\n             ! Here we assume a sudden transition point Rr = 1 from smooth to\n             ! rough, following L. Merlivat (1978, The dependence of bulk\n             ! evaporation coefficients on air-water interfacial conditions as\n             ! determined by the isotopic method, J. Geophys. Res., Oceans &\n             ! Atmos., 83, C6, 2977-2980). Also refer to Brutsaert's book,\n             ! P.125.  We used to use the criterion \"REYNO > 10\" for\n             ! aerodynamically rough surface and now change to \"REYNO > 1\".\n             ! (hyl, 10/15/99)\n             !\n             ! D. J. Jacob says to change the criterion for aerodynamically\n             ! rough surface to REYNO > 0.1 (eck, djj, bmy, 11/17/05)\n             IF ( REYNO >= 0.1e+0_f8 ) THEN\n\n                ! Add option for non-local PBL (Lin, 03/31/09)\n                IF (.NOT. Input_Opt%LNLPBL) THEN\n\n                   !...aerodynamically rough surface.\n                   !\n                   IF (CORR1.LE.0.0e+0_f8 .AND. Z0OBK .LT. -1.e+0_f8)THEN\n                      !... unstable condition; set RA to zero.\n                      !    (first implemented in V. 3.2)\n                      RA     = 0.e+0_f8\n                      !... error trap: prevent CORR1 or Z0OBK from being\n                      !... zero or close to zero (ckeller, 3/15/16)\n                   ELSEIF ( ABS(CORR1)<=SMALL .OR. ABS(Z0OBK)<=SMALL ) THEN\n                      RA = 0.e+0_f8\n                   ELSEIF (CORR1.LE.0.0e+0_f8 .AND. Z0OBK .GE. -1.e+0_f8) THEN\n                      !... unstable conditions;\n                      !... compute Ra as described above\n                      DUMMY1 = (1.e+0_f8 - 9e+0_f8*CORR1)**0.5e+0_f8\n                      DUMMY2 = (1.e+0_f8 - 9e+0_f8*Z0OBK)**0.5e+0_f8\n                      DUMMY3 = ABS((DUMMY1 - 1.e+0_f8)/(DUMMY1 + 1.e+0_f8))\n                      DUMMY4 = ABS((DUMMY2 - 1.e+0_f8)/(DUMMY2 + 1.e+0_f8))\n                      RA = 0.74e+0_f8* (1.e+0_f8/CKUSTR) * LOG(DUMMY3/DUMMY4)\n                      \n                   ELSEIF((CORR1.GT.0.0e+0_f8).AND.(.NOT.LRGERA(I,J)))  THEN\n                      !... moderately stable conditions (z/zMO <1);\n                      !... compute Ra as described above\n                      RA = (1e+0_f8/CKUSTR) * (.74e+0_f8*LOG(CORR1/Z0OBK) +  &\n                           4.7e+0_f8*(CORR1-Z0OBK))\n                   ELSEIF(LRGERA(I,J)) THEN\n                      !... very stable conditions\n                      RA     = 1.e+04_f8\n                   ENDIF\n                   ! check that RA is positive; if RA is negative\n                   ! (as occassionally happened in version 3.1) send a\n                   ! warning message.\n                   \n                ELSE\n\n                   IF (CORR1.LT.0.0e+0_f8) THEN\n                      !... unstable conditions; compute Ra as described\n                      !... above.\n                      !coef_a=1.e+0_f8\n                      !coef_b=15.e+0_f8\n                      DUMMY1 = (1.D0 - 15.e+0_f8*CORR1)**0.5e+0_f8\n                      DUMMY2 = (1.D0 - 15.e+0_f8*Z0OBK)**0.5e+0_f8\n                      DUMMY3 = ABS((DUMMY1 - 1.e+0_f8)/(DUMMY1 + 1.e+0_f8))\n                      DUMMY4 = ABS((DUMMY2 - 1.e+0_f8)/(DUMMY2 + 1.e+0_f8))\n                      RA = 1.e+0_f8 * (1.e+0_f8/CKUSTR) * LOG(DUMMY3/DUMMY4)\n                      !--------------------------------------------------\n                      ! Compute RA at user-defined altitude above surface\n                      ! (krt, bmy, 7/10/19)\n                      !--------------------------------------------------\n                      IF ( State_Diag%Archive_ConcAboveSfc ) THEN\n                         DUMMY2_Alt = SQRT( 1.0_f8 - 15.0_f8 * Z0OBK_Alt )\n                         DUMMY4_Alt = ABS( ( DUMMY2_Alt - 1.0_f8 )           &\n                                           / ( DUMMY2_Alt + 1.0_f8 ) )\n                         RA_Alt     = ( 1.0_f8 / CKUSTR )                    &\n                              * LOG( DUMMY3 / DUMMY4_Alt )\n                      ENDIF\n                     \n                   ELSEIF((CORR1.GE.0.0e+0_f8).AND.(CORR1.LE.1.0e+0_f8)) THEN\n                      !coef_a=1.e+0_f8\n                      !coef_b=5.e+0_f8\n                      RA = (1D0/CKUSTR) * (1.e+0_f8*LOG(CORR1/Z0OBK) +       &\n                           5.e+0_f8*(CORR1-Z0OBK))\n                      !--------------------------------------------------\n                      ! Compute RA at user-defined altitude above surface\n                      ! for diagnostic output (krt, bmy, 7/10/19)\n                      !--------------------------------------------------\n                      IF ( State_Diag%Archive_ConcAboveSfc ) THEN\n                         RA_Alt = ( 1.0_fp / CKUSTR ) &\n                              * ( 1.0_f8 * LOG( CORR1 / Z0OBK_Alt ) &\n                              + 5.0_f8 * ( CORR1 - Z0OBK_Alt ))\n                      ENDIF\n                     \n                   ELSE ! CORR1 .GT. 1.0D0\n                      !coef_a=5e+0_f8\n                      !coef_b=1.e+0_f8\n                      RA = (1D0/CKUSTR) * (5.e+0_f8*LOG(CORR1/Z0OBK) +       &\n                           1.e+0_f8*(CORR1-Z0OBK))\n                      !--------------------------------------------------\n                      ! Compute RA at user-defined altitude above surface\n                      ! for diagnostic output (krt, bmy, 7/10/19)\n                      !--------------------------------------------------\n                      IF ( State_Diag%Archive_ConcAboveSfc ) THEN\n                         RA_Alt = ( 1.0_f8 / CKUSTR ) &\n                              * ( 5.0_f8 * LOG( CORR1 / Z0OBK_Alt )          &\n                              + 1.0_f8 *( CORR1 - Z0OBK_Alt ) )\n                      ENDIF\n                   ENDIF\n                  \n                ENDIF   ! LNLPBL condition\n\n                RA   = MIN(RA,1.e+4_f8)\n                ! If RA is < 0, set RA = 0 (bmy, 11/12/99)\n                IF (RA .LT. 0.e+0_f8) THEN\n                   WRITE (6,1001) I,J,RA,CZ,ZO(I,J),OBK(I,J)\n                   RA = 0.0e+0_f8\n                ENDIF\n                !----------------------------------------------------\n                ! Compute RA at user-defined altitude above surface\n                ! for diagnostic output (krt, bmy, 7/10/19)\n                !----------------------------------------------------\n                IF ( State_Diag%Archive_ConcAboveSfc ) THEN\n                   RA_Alt = MIN( RA_Alt, 1.0e+4_f8 )\n                   \n                   ! Make sure RA_Alt is not negative\n                   IF ( RA_Alt <  0.0_f8 ) THEN\n                      IF ( Input_Opt%amIRoot ) THEN\n                         WRITE (6,1001) I,J, RA_Alt, CZ, ZO(I,J) ,OBK(I,J)\n1001                     FORMAT('WARNING: RA < 0 IN SUBROUTINE DEPVEL',      &\n                                 2I4,4(1X,E12.5))\n                      ENDIF\n                      RA_Alt = 0.0_f8\n                   ENDIF\n\n                   !-----------------------------------------------------\n                   ! HISTORY (aka netCDF diagnostics)\n                   !\n                   ! Store drydep resistance RA at user-defined\n                   ! altitude above surface into State_Diag\n                   !-----------------------------------------------------\n                   IF ( State_Diag%Archive_DryDepRaALT1 ) THEN\n                      State_Diag%DryDepRaALT1(I,J) = RA_Alt\n                   ENDIF\n\n                ENDIF\n               \n                ! Get total resistance for deposition\n                ! loop over species.\n                DO K = 1,NUMDEP\n                   IF ( LDEP(K) ) THEN\n                      ! DAIR is the thermal diffusivity of air;\n                      ! value of 0.2*1.E-4 m2 s-1 cited on p. 16,476 of\n                      ! Jacob et al. [1992]\n                      DAIR = 0.2e0_f8*1.e-4_f8\n                      RB = (2.e+0_f8/CKUSTR)* &\n                           (DAIR/DIFFG(TEMPK,PRESSU(I,J),XMW(K))) &\n                           **0.667e+0_f8\n                      IF (AEROSOL(K)) RB=0.e+0_f8\n                      C1X(K) = RA + RB + RSURFC(K,LDT)\n                   ENDIF   ! If LDEP(K)\n                ENDDO\n\n             ! Smooth surface:\n             ELSE IF ( REYNO <  0.1e+0_f8 ) THEN\n            \n                ! ... aerodynamically smooth surface\n                ! BUG FIX -- suppress drydep over smooth surfaces by setting\n                ! Ra to a large value (1e4).  This prevents negative dry\n                ! deposition  velocities when u* is very small\n                ! (djj, bmy, 5/8/00)\n                DO K = 1,NUMDEP\n                   IF ( LDEP(K) ) THEN\n                      RA     = 1.0D4\n                      C1X(K) = RA + RSURFC(K,LDT)\n                   ENDIF\n                ENDDO\n             ENDIF   ! Rough versus smooth surface based on REYNO\n             \n             !\n             ! IUSE is the fraction of the grid square occupied by surface LDT\n             ! in units of per mil (IJUSE=500 -> 50% of the grid square).  Add\n             ! the contribution of surface type LDT to the deposition velocity;\n             ! this is a loop over all surface types in the gridbox.\n             !\n             DO K = 1,NUMDEP\n                IF ( LDEP(K) ) THEN\n                   VK(K) = VD(K)\n                   VD(K) = VK(K) +.001D0* DBLE( IUSE(I,J,LDT) )/C1X(K)\n                   \n                   IF (AEROSOL (K)) THEN\n                      SpcId   =  NTRAIND(K)\n                      SpcInfo => State_Chm%SpcData(SpcId)%Info\n                      \n                      IF ( SpcInfo%DD_AeroDryDep ) THEN\n                         VD(K) = VK(K) +.001D0* DBLE( IUSE(I,J,LDT) )   &\n                              /C1X(K) + .001D0* DBLE( IUSE(I,J,LDT) ) * &\n                              VTSoutput_(K,LDT)\n                      ELSE IF ( SpcInfo%DD_DustDryDep ) THEN\n                         VD(K) = VK(K) +.001D0* DBLE( IUSE(I,J,LDT) )   &\n                              /C1X(K) + .001D0* DBLE( IUSE(I,J,LDT) ) * &\n                              VTSoutput_(K,LDT)\n                      ELSE\n                         VD(K) = VK(K) +.001D0* DBLE( IUSE(I,J,LDT) )   &\n                              /C1X(K) + .001D0* DBLE( IUSE(I,J,LDT) ) * &\n                              VTSoutput_(K,LDT)\n                      ENDIF\n                   ELSE\n                      VD(K) = VK(K) +.001D0* DBLE( IUSE(I,J,LDT) )/C1X(K)\n                   ENDIF   ! IF AEROSOL\n                ENDIF      ! IF LDEP\n             ENDDO         ! K=1,NUMDEP\n          ENDIF            ! IF IUSE > 0\n       ENDDO               ! LDT = 1, IREG(I,J)\n\n       ! Load array State_Chm%DryDepVel\n       DO K=1,NUMDEP\n          IF ( LDEP(K) ) THEN\n             State_Chm%DryDepVel(I,J,K) = VD(K)\n\n             ! Now check for negative deposition velocity before returning to\n             ! calling program (bmy, 4/16/00)\n             ! Also call CLEANUP to deallocate arrays (bmy, 10/15/02)\n             IF ( State_Chm%DryDepVel(I,J,K) < 0e+0_f8 ) THEN\n                !$OMP CRITICAL\n                PRINT*, 'DEPVEL: Deposition velocity is negative!'\n                PRINT*, 'Dep. Vel = ', State_Chm%DryDepVel(I,J,K)\n                PRINT*, 'Species  = ', K\n                PRINT*, 'I, J     = ', I, J\n                PRINT*, 'RADIAT   = ', RADIAT(I,J)\n                PRINT*, 'TEMP     = ', TEMP(I,J)\n                PRINT*, 'SUNCOS   = ', SUNCOS(I,J)\n                PRINT*, 'USTAR    = ', USTAR(I,J)\n                PRINT*, 'CZ1      = ', CZ1(I,J)\n                PRINT*, 'OBK      = ', OBK(I,J)\n                PRINT*, 'CFRAC    = ', CFRAC(I,J)\n                PRINT*, 'ZH       = ', ZH(I,J)\n                PRINT*, 'LRGERA   = ', LRGERA(I,J)\n                PRINT*, 'ZO       = ', ZO(I,J)\n                PRINT*, 'STOP in depvel.f!'\n#if defined( MODEL_CESM )\n                CALL ERROR_STOP('Negative drydep velocity!', 'DRYDEP_MOD')\n#else\n                CALL CLEANUP\n                STOP\n#endif\n                !$OMP END CRITICAL\n             ENDIF\n\n             ! Now check for IEEE NaN (not-a-number) condition before returning to\n             ! calling program (bmy, 4/16/00)\n             ! Also call CLEANUP to deallocate arrays (bmy, 10/15/02)\n             IF ( IT_IS_NAN( State_Chm%DryDepVel(I,J,K) ) ) THEN\n                !$OMP CRITICAL\n                PRINT*, 'DEPVEL: Deposition velocity is NaN!'\n                PRINT*, 'Dep. Vel = ', State_Chm%DryDepVel(I,J,K)\n                PRINT*, 'Species  = ', K\n                PRINT*, 'I, J     = ', I, J\n                PRINT*, 'RADIAT   = ', RADIAT(I,J)\n                PRINT*, 'TEMP     = ', TEMP(I,J)\n                PRINT*, 'SUNCOS   = ', SUNCOS(I,J)\n                PRINT*, 'USTAR    = ', USTAR(I,J)\n                PRINT*, 'CZ1      = ', CZ1(I,J)\n                PRINT*, 'OBK      = ', OBK(I,J)\n                PRINT*, 'CFRAC    = ', CFRAC(I,J)\n                PRINT*, 'ZH       = ', ZH(I,J)\n                PRINT*, 'LRGERA   = ', LRGERA(I,J)\n                PRINT*, 'ZO       = ', ZO(I,J)\n#if defined( MODEL_CESM )\n                CALL ERROR_STOP('Drydep velocity is NaN!', 'DRYDEP_MOD')\n#else\n                CALL CLEANUP\n                STOP\n#endif\n                !$OMP END CRITICAL\n             ENDIF\n          ENDIF    ! Depositing species condition\n       ENDDO       ! K=1, NUMDEP\n    ENDDO          ! I\n    ENDDO          ! J\n    !$OMP END PARALLEL DO\n\n#ifdef MODEL_GEOS\n    ! Pass Monin Obukhov diagnostics\n    IF ( ASSOCIATED ( State_Diag%MoninObukhov ) ) THEN\n       State_Diag%MoninObukhov(:,:) = OBK(:,:)\n    ENDIF\n#endif\n\n    ! Free pointers\n    NULLIFY( IREG  )\n    NULLIFY( ILAND )\n    NULLIFY( IUSE  )\n    NULLIFY( XLAI  )\n\n  END SUBROUTINE DEPVEL\n!EOC\n#ifdef LUO_WETDEP\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Luo_Get_Hstar3d\n!\n! !DESCRIPTION: Computes the Henry's law constants for SO2, NH3, and H2O2\n!  as a function of longitude & latitude.  For all other species, will\n!  return a constant Henry's law constant.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Luo_Get_Hstar3d( Input_Opt, State_Grid, State_Met, HStar3d, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt\n    TYPE(GrdState), INTENT(IN)  :: State_Grid\n    TYPE(MetState), INTENT(IN)  :: State_Met\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: Hstar3d(State_Grid%NX,State_Grid%NY,NUMDEP)\n    INTEGER,        INTENT(OUT) :: RC\n!\n! !REMARKS:\n!  For now, only used with the Luo et al 2020 wetdep option.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: I,     J,     K,       spcId\n    REAL(f8)            :: coeff, Hplus, inv_tAq, Ks1,  Ks2, tAq, t298_taq\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(f8), PARAMETER :: INV_T298  = 1.0_f8 / 298.15_f8\n    REAL(f8), PARAMETER :: HPLUS_ice = 10.0_f8**(-5.4_f8) ! pH ice/snow\n    REAL(f8), PARAMETER :: HPLUS_lnd = 10.0_f8**(-7.0_f8) ! pH land\n    REAL(f8), PARAMETER :: HPLUS_ocn = 10.0_f8**(-8.2_f8) ! pH ocean\n\n    !=======================================================================\n    ! Luo_Get_Hstar3D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       !====================================================================\n       ! For fullchem and aerosol simulations, the effective Henry's law\n       ! constant for SO3, H2O2, and NH3 will be computed as a function\n       ! of lon & lat (i.e. as a function of temperature & land cover).\n       !\n       ! For all other species, assume that the effective Henry's law\n       ! constant does not vary with lon & lat.\n       !====================================================================\n\n       ! Loop over drydep species\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( K,       SpcId,    J,     I,   Hplus, tAq             )&\n       !$OMP PRIVATE( inv_tAq, t298_tAq, coeff, ks1, ks2                    )\n       DO K = 1, NUMDEP\n\n          ! Get the modelId from the drydep Id\n          SpcId = NTRAIND(K)\n\n          ! Loop over grid boxes\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Pick the proper Hplus value based on surface\n             IF ( State_Met%isIce(I,J) .OR. State_Met%isSnow(I,J) ) THEN\n                Hplus = HPLUS_ice\n             ELSEIF ( State_Met%IsWater(I,J) .AND. &\n                      ( State_Met%FROCEAN(I,J) > State_met%FRLAKE(I,J) ) ) THEN\n                Hplus = HPLUS_ocn\n             ELSE\n                Hplus = HPLUS_lnd ! includes lakes but not ice/snow\n             ENDIF\n\n             ! Temperature terms\n             tAq      = MAX( 253.0_f8, State_Met%TS(I,J) )\n             inv_tAq  = 1.0_f8    / tAq\n             t298_tAq = 298.15_f8 / tAq\n\n             ! Henry's constant [mol/l-atm] and Effective Henry's constant\n             IF ( SpcId == id_SO2 ) THEN\n\n                coeff = 1.22_f8    * EXP( 10.55_f8 * (t298_tAq - 1.0_f8)    )\n                Ks1   = 1.30e-2_f8 * EXP(  6.75_f8 * (t298_tAq - 1.0_f8)    )\n                Ks2   = 6.31e-8_fp * EXP(  5.05_f8 * (t298_tAq - 1.0_f8)    )\n\n                HSTAR3D(I,J,K) = coeff *                                     &\n                  ( 1.0_f8 + ( Ks1/Hplus ) + ( Ks1*Ks2 / ( HPlus*HPlus ) )  )\n\n             ELSE IF ( SpcId == id_H2O2 ) THEN\n\n                coeff = 8.3e+04_f8  * EXP(  24.82_f8 * (t298_tAq - 1.0_f8)  )\n                Ks1   = 2.20e-12_f8 * EXP( -12.52_f8 * (t298_tAq - 1.0_f8)  )\n\n                HSTAR3D(I,J,K) = coeff * ( 1.0_f8 + ( Ks1 / Hplus ) )\n\n             ELSE IF ( SpcId == id_NH3 ) THEN\n\n                coeff = 59.8_f8    * EXP(  4200.0_f8 * (inv_tAq - INV_T298) )\n                Ks1   = 1.0e-14_f8 * EXP( -6710.0_f8 * (inv_tAq - INV_T298) )\n                Ks2   = 1.7e-5_f8  * EXP( -4325.0_f8 * (inv_tAq - INV_T298) )\n\n                HSTAR3D(I,J,K) = coeff *                                     &\n                                 ( 1.0_f8 + ( ( Ks2 * Hplus ) / Ks1 )       )\n\n             ELSE\n\n                HSTAR3D(I,J,K) = HSTAR(K)\n\n             ENDIF\n\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       !====================================================================\n       ! None of the other simulation types include SO3, H2O2, and NH3,\n       ! so we can skip all of the computations above.\n       !\n       ! For each species, we can return an effective Henry's law constant\n       ! that does not depend on lon & lat.\n       !====================================================================\n       DO K = 1, NUMDEP\n          HSTAR3D(:,:,K) = HSTAR(K)\n       ENDDO\n\n    ENDIF\n\n  END SUBROUTINE Luo_Get_Hstar3d\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: diffg\n!\n! !DESCRIPTION: Subroutine DIFFG calculates the molecular diffusivity [m2/s] in\n!  air for a gas X of molecular weight XM [kg] at temperature TK [K] and\n!  pressure PRESS [Pa].  (bmy, 5/16/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION DIFFG( TK, PRESS, XM ) RESULT( DIFF_G )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN) :: TK     ! Temperature [K]\n    REAL(f8), INTENT(IN) :: PRESS  ! Pressure [Pa]\n    REAL(f8), INTENT(IN) :: XM     ! Molecular weight of gas [kg]\n!\n! !REMARKS:\n!  We specify the molecular weight of air (XMAIR) and the hard-sphere molecular\n!  radii of air (RADAIR) and of the diffusing gas (RADX).  The molecular\n!  radius of air is given in a Table on p. 479 of Levine [1988].  The Table\n!  also gives radii for some other molecules.  Rather than requesting the user\n!  to supply a molecular radius we specify here a generic value of 2.E-10 m for\n!  all molecules, which is good enough in terms of calculating the diffusivity\n!  as long as molecule is not too big.\n!\n! !REVISION HISTORY:\n!  16 May 2006 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8)             :: AIRDEN, Z, DIAM, FRPATH, SPEED, DIFF_G\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(f8), PARAMETER  :: XMAIR  = 28.8e-3_f8 ! Moist air molec wt? (ewl)\n    REAL(f8), PARAMETER  :: RADAIR = 1.2e-10_f8\n    REAL(f8), PARAMETER  :: RADX   = 1.5e-10_f8\n\n    !=================================================================\n    ! DIFFG begins here!\n    !=================================================================\n\n    ! Air density [molec/m3]\n    AIRDEN = ( PRESS * AVO ) / ( RSTARG * TK )\n\n    ! DIAM is the collision diameter for gas X with air.\n    DIAM   = RADX + RADAIR\n\n    ! Calculate the mean free path for gas X in air:\n    ! eq. 8.5 of Seinfeld [1986];\n    Z      = XM  / XMAIR\n    FRPATH = 1e+0_f8 /( PI * SQRT( 1e+0_f8 + Z ) * AIRDEN * ( DIAM**2 ) )\n\n    ! Calculate average speed of gas X; eq. 15.47 of Levine [1988]\n    SPEED  = SQRT( 8e+0_f8 * RSTARG * TK / ( PI * XM ) )\n\n    ! Calculate diffusion coefficient of gas X in air;\n    ! eq. 8.9 of Seinfeld [1986]\n    DIFF_G = ( 3e+0_f8 * PI / 32e+0_f8 ) * ( 1e+0_f8 + Z ) * FRPATH * SPEED\n\n  END FUNCTION DIFFG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_drydep_inputs\n!\n! !DESCRIPTION: Subroutine READ\\_DRYDEP\\_INPUTS reads inputs for the dry\n!  deposition module corresponding to either the Olson 1992 (GEOS-Chem default)\n!  or Olson 2001 (planned replacement for Olson 1992) land map.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_DRYDEP_INPUTS( Input_Opt, &\n                                 DRYCOEFF,  IOLSON,   IDEP,   &\n                                 IWATER,    NWATER,   IZO,    &\n                                 IDRYDEP,   IRI,      IRLU,   &\n                                 IRAC,      IRGSS,    IRGSO,  &\n                                 IRCLS,     IRCLO,    IVSMAX, &\n                                 RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,  ONLY : NPOLY, NSURFTYPE\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n\n#if defined( MODEL_CESM )\n    USE CAM_PIO_UTILS, ONLY : CAM_PIO_OPENFILE\n    USE IOFILEMOD,     ONLY : GETFIL\n    USE PIO,           ONLY : PIO_CLOSEFILE, PIO_INQ_DIMID, PIO_INQ_DIMLEN\n    USE PIO,           ONLY : PIO_INQ_VARID, PIO_GET_VAR, PIO_NOERR\n    USE PIO,           ONLY : PIO_NOWRITE, FILE_DESC_T\n#else\n    ! Modules for netCDF read\n    USE m_netcdf_io_open\n    USE m_netcdf_io_get_dimlen\n    USE m_netcdf_io_read\n    USE m_netcdf_io_readattr\n    USE m_netcdf_io_close\n#endif\n\n#     include \"netcdf.inc\"\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    !-----------------------------------------------------------------------\n    ! DRYCOEFF : Baldocchi polynomial coeffs\n    ! IOLSON   : Olson land type indices (+1)\n    ! IDEP     : Mapping: Olson ==> drydep ID\n    ! IWATER   : Olson types that represent water\n    ! NWATER   : Number of Olson types that are water\n    ! IZO      : Default Z0 (routgness height) for each Olson land type\n    ! IDRYDEP  : Dry deposition land type indices\n    ! IRI      : RI   resistance for drydep\n    ! IRLU     : RLU  resistance for drydep\n    ! IRAC     : RAC  resistance for drydep\n    ! IRGSS    : RGSS resistance for drydep\n    ! IRGSO    : RGSO resistance for drydep\n    ! IRCLS    : RCLS resistance for drydep\n    ! IRCLO    : RCLO resistance for drydep\n    ! IVSMAX   : Max drydep velocity (for aerosol) perr drydep land type\n    !-----------------------------------------------------------------------\n    REAL(fp), INTENT(OUT) :: DRYCOEFF(NPOLY    )\n    INTEGER,  INTENT(OUT) :: IOLSON  (NSURFTYPE)\n    INTEGER,  INTENT(OUT) :: IDEP    (NSURFTYPE)\n    INTEGER,  INTENT(OUT) :: IWATER  (NSURFTYPE)\n    INTEGER,  INTENT(OUT) :: NWATER\n    INTEGER,  INTENT(OUT) :: IZO     (NSURFTYPE)\n    INTEGER,  INTENT(OUT) :: IDRYDEP (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRI     (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRLU    (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRAC    (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRGSS   (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRGSO   (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRCLS   (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IRCLO   (NDRYDTYPE)\n    INTEGER,  INTENT(OUT) :: IVSMAX  (NDRYDTYPE)\n\n    ! Success or failure flag\n    INTEGER,  INTENT(OUT) :: RC\n!\n! !REMARKS:\n!  Routine READ_DRYDEP_INPUTS replaces routines MODIN (which read the ASCII\n!  file \"drydep.table\") and RDDRYCF (which read the ASCII file \"drydep.coef\").\n!                                                                             .\n!  READ_DRYDEP_INPUTS was generated from the Perl script \"ncCodeRead\", which\n!  is part of the NcdfUtilities package (with subsequent hand-editing).\n!                                                                             .\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!\n! !REVISION HISTORY:\n!  26 Mar 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: fId                 ! netCDF file ID\n\n    ! Strings\n    CHARACTER(LEN=255) :: nc_dir              ! netCDF directory name\n    CHARACTER(LEN=255) :: nc_file             ! netCDF file name\n    CHARACTER(LEN=255) :: nc_path             ! netCDF path name\n    CHARACTER(LEN=255) :: v_name              ! netCDF variable name\n    CHARACTER(LEN=255) :: a_name              ! netCDF attribute name\n    CHARACTER(LEN=255) :: a_val               ! netCDF attribute value\n    CHARACTER(LEN=255) :: FileMsg\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    ! Arrays for netCDF start and count values\n    INTEGER            :: st1d(1), ct1d(1)    ! For 1D arrays\n\n    ! Shadow variable for reading in data at REAL*8\n    REAL(f8)           :: DRYCOEFF_R8(NPOLY)\n\n#if defined( MODEL_CESM )\n    INTEGER            :: iret\n    INTEGER            :: vid\n    TYPE(FILE_DESC_T)  :: ncid\n#endif\n\n    !=================================================================\n    ! In dry-run mode, print file path to dryrun log and exit.\n    ! Otherwise, print file path to stdout and continue.\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at READ_DRYDEP_INPUTS (in module GeosCore/drydep_mod.F90)'\n\n    ! Input file for Olson 2001\n    nc_file = 'Olson_2001_Drydep_Inputs.nc'\n\n    ! Open file for reading (construct full data path)\n    nc_dir  = TRIM( Input_Opt%CHEM_INPUTS_DIR ) // &\n              'Olson_Land_Map_201203/'\n    nc_path = TRIM( nc_dir ) // TRIM( nc_file )\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( nc_path ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg = 'READ_DRYDEP_INPUTS: Opening'\n    ELSE\n       FileMsg = 'READ_DRYDEP_INPUTS: REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write to stdout for both regular and dry-run simulations\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( nc_path )\n300    FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program.\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( Input_Opt%DryRun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( nc_path )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Open and read data\n    !=================================================================\n#if defined( MODEL_CESM )\n    CALL CAM_PIO_OPENFILE( ncid, TRIM( nc_path ), PIO_NOWRITE )\n#else\n    CALL Ncop_Rd( fId, TRIM(nc_path) )\n#endif\n\n    !----------------------------------------\n    ! VARIABLE: DRYCOEFF\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"DRYCOEFF\"\n\n    ! Read DRYCOEFF from file\n    st1d   = (/ 1     /)\n    ct1d   = (/ NPOLY /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, DRYCOEFF_R8 )\n    ! Assume units\n    a_val = \"1\"\n#else\n    CALL NcRd( DRYCOEFF_R8, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the DRYCOEFF:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n130    FORMAT( '%% Successfully read ',       a, ' [', a, ']' )\n    ENDIF\n\n    ! Cast from REAL*8 to flexible precision\n    DRYCOEFF = DRYCOEFF_R8\n\n    !----------------------------------------\n    ! VARIABLE: IOLSON\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IOLSON\"\n\n    ! Read IOLSON from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NSURFTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IOLSON )\n    ! Assume units\n    a_val = \"1\"\n#else\n    CALL NcRd( IOLSON, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IOLSON:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IDEP\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IDEP\"\n\n    ! Read IDEP from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NSURFTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IDEP )\n    ! Assume units\n    a_val = \"1\"\n#else\n    CALL NcRd( IDEP, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IDEP:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IWATER\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IWATER\"\n\n    ! Get the # of Olson types that are water\n    ! (NOTE: IWATER is an index array, dimension name = variable name)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_DIMID( ncid, TRIM(v_name), vid )\n    iret = PIO_INQ_DIMLEN(ncid, vid, NWATER       )\n#else\n    CALL NcGet_DimLen( fId, TRIM(v_name), NWATER )\n#endif\n\n    ! Initialize\n    IWATER = 0\n\n    ! Read IWATER from file\n    ! NOTE: IWATER is declared with NNSURFTYPE, but has NWATER values\n    ! The rest can be zeroed out\n    st1d   = (/ 1      /)\n    ct1d   = (/ NWATER /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid     )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IWATER )\n    ! Assume units\n    a_val = \"1\"\n#else\n    CALL NcRd( IWATER(1:NWATER), fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IWATER:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IZO\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IZO\"\n\n    ! Read IZO from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NSURFTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IZO )\n    ! Assume units\n    a_val = \"1e-4 m\"\n#else\n    CALL NcRd( IZO, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IZO:long_name attribute\n    a_name = \"long_name\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IDRYDEP\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IDRYDEP\"\n\n    ! Read IDRYDEP from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IDRYDEP )\n    ! Assume units\n    a_val = \"1\"\n#else\n    CALL NcRd( IDRYDEP, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IDRYDEP:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRI\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRI\"\n\n    ! Read IRI from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRI )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRI, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRI:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! For Olson 2001 land map, change IRI for coniferous forests\n    ! to match IRI for deciduous forests (skim, mps, 2/3/14)\n    IRI(3) = 200\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRLU\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRLU\"\n\n    ! Read IRLU from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRLU )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRLU, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRLU:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRAC\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRAC\"\n\n    ! Read IRAC from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRAC )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRAC, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRAC:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRGSS\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRGSS\"\n\n    ! Read IRGSS from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRGSS )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRGSS, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRGSS:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRGSO\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRGSO\"\n\n    ! Read IRGSO from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRGSO )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRGSO, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRGSO:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRCLS\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRCLS\"\n\n    ! Read IRCLS from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRCLS )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRCLS, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRCLS:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IRCLO\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IRCLO\"\n\n    ! Read IRCLO from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IRCLO )\n    ! Assume units\n    a_val = \"s m-1\"\n#else\n    CALL NcRd( IRCLO, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IRCLO:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: IVSMAX\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"IVSMAX\"\n\n    ! Read IVSMAX from file\n    st1d   = (/ 1         /)\n    ct1d   = (/ NDRYDTYPE /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, TRIM(v_name), vid )\n    iret = PIO_GET_VAR( ncid, vid, st1d, ct1d, IVSMAX )\n    ! Assume units\n    a_val = \"1e-2 cm s-1\"\n#else\n    CALL NcRd( IVSMAX, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Read the IVSMAX:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n\n    !=================================================================\n    ! Cleanup and quit\n    !=================================================================\n\n    ! Close netCDF file\n#if defined( MODEL_CESM )\n    CALL PIO_CLOSEFILE( ncid )\n#else\n    CALL NcCl( fId )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, '(a)' ) REPEAT( '%', 79 )\n    ENDIF\n\n  END SUBROUTINE READ_DRYDEP_INPUTS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aero_sfcrsii\n!\n! !DESCRIPTION: Function AERO\\_SFCRSII computes the aerodynamic resistance of\n!  seasalt aerosol species according to Zhang et al 2001.  We account for\n!  hygroscopic growth of the seasalt aerosol particles. (rjp, tdf, bec, bmy,\n!  4/1/04, 6/11/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION AERO_SFCRSII( K, II, PRESS, TEMP, USTAR, RHB, W10, VTSout, Input_Opt, State_Chm ) &\n       RESULT(RS)\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: K     ! Drydep species index (range: 1-NUMDEP)\n    INTEGER,        INTENT(IN) :: II    ! Surface type index of GEOS-CHEM\n    REAL(f8),       INTENT(IN) :: PRESS ! Pressure [kPa] (1 mb=100 Pa=0.1 kPa)\n    REAL(f8),       INTENT(IN) :: TEMP  ! Temperature [K]\n    REAL(f8),       INTENT(IN) :: USTAR ! Friction velocity [m/s]\n    REAL(f8),       INTENT(IN) :: RHB   ! Relative humidity (fraction)\n    REAL(f8),       INTENT(IN) :: W10   ! 10 m windspeed [m/s]\n    TYPE(OptInput), INTENT(IN) :: Input_Opt ! Input Options object\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8),       INTENT(OUT) :: VTSout    ! Settling velocity [m/s]\n\n!\n! !RETURN VALUE:\n!\n    REAL(f8)                   :: RS    ! Surface resistance for particles [s/m]\n!\n! !REMARKS:\n!  Do computations internally with REAL*8 (8-byte) floating-point precision,\n!  in order to avoid a loss of precision.\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial version\n!  26 Jan 2021 - J. Pierce   - Update to Emerson et al. PNAS (2020) parameters\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS\n!\n    REAL(f8), PARAMETER   :: C1       =  0.7674_f8\n    REAL(f8), PARAMETER   :: C2       =  3.079_f8\n    REAL(f8), PARAMETER   :: C3       =  2.573e-11_f8\n    REAL(f8), PARAMETER   :: C4       = -1.424_f8\n    REAL(f8), PARAMETER   :: E0       =  3.0_f8\n\n    ! Parameters for polynomial coefficients to derive seawater\n    ! density. From Tang et al. (1997) - jaegle 5/11/11\n    REAL(f8),  PARAMETER  :: A1       =  7.93e-3_f8\n    REAL(f8),  PARAMETER  :: A2       = -4.28e-5_f8\n    REAL(f8),  PARAMETER  :: A3       =  2.52e-6_f8\n    REAL(f8),  PARAMETER  :: A4       = -2.35e-8_f8\n    REAL(f8),  PARAMETER  :: EPSI     =  1.0e-4_f8\n\n    ! parameters for assumed size distribution of accumulation and coarse\n    ! mode sea salt aerosols, as described in Jaegle et al. (ACP, 11, 2011)\n    ! (jaegle, 5/11/11)\n    ! 1) geometric dry mean diameters (microns)\n    REAL(f8),  PARAMETER  :: RG_A     =  0.085e+0_f8\n    REAL(f8),  PARAMETER  :: RG_C     =  0.4e+0_f8\n    ! 2) sigma of the size distribution\n    REAL(f8),  PARAMETER  :: SIG_A    =  1.5e+0_f8\n    REAL(f8),  PARAMETER  :: SIG_C    =  1.8e+0_f8\n\n    !increment of radius for integration of settling velocity (um)\n    REAL(f8), PARAMETER   :: DR       =  5.0e-2_f8\n\n    ! Emerson et al. (2020) added parameters\n    REAL(f8), PARAMETER   :: UPSILON  =  0.8_f8\n    REAL(f8), PARAMETER   :: BETA     =  1.7_f8\n    REAL(f8), PARAMETER   :: CB       =  0.2_f8\n    REAL(f8), PARAMETER   :: CIN      =  2.5_f8\n    REAL(f8), PARAMETER   :: CIM      =  0.4_f8\n!\n! !LOCAL VARIABLES:\n!\n\n    ! SAVEd scalars\n    LOGICAL, SAVE :: FIRST = .TRUE.\n\n    !Scalars\n    INTEGER       :: N\n    REAL(f8)      :: AIRVS    ! kinematic viscosity of Air (m^2/s)\n    REAL(f8)      :: DP       ! Diameter of aerosol [um]\n    REAL(f8)      :: PDP      ! Press * Dp\n    REAL(f8)      :: CONST    ! Constant for settling velocity calculations\n    REAL(f8)      :: SLIP     ! Slip correction factor\n    REAL(f8)      :: VISC     ! Viscosity of air (Pa s)\n    REAL(f8)      :: DIFF     ! Brownian Diffusion constant for particles (m2/s)\n    REAL(f8)      :: SC, ST   ! Schmidt and Stokes number (nondim)\n    REAL(f8)      :: RHBL     ! Relative humidity local\n\n    REAL(f8)      :: DIAM, DEN, RATIO_R, RWET, RUM\n    REAL(f8)      :: FAC1, FAC2\n    REAL(f8)      :: EB, EIM, EIN, R1, AA, VTS\n\n    ! New variables added (jaegle 5/11/11)\n    REAL(f8)      :: SW\n    REAL(f8)      :: SALT_MASS, SALT_MASS_TOTAL, VTS_WEIGHT, DMIDW ! for weighting the settling velocity\n    REAL(f8)      :: D0, D1  !lower and upper bounds of sea-salt dry diameter bins\n    REAL(f8)      :: DEDGE\n    REAL(f8)      :: DEN1, WTP\n    INTEGER       :: ID,NR\n    REAL(f8)      :: drydepRadius\n\n    !=======================================================================\n    !   #  LUC [Zhang et al., 2001]                GEOS-CHEM LUC (Corr. #)\n    !-----------------------------------------------------------------------\n    !   1 - Evergreen needleleaf trees             Snow/Ice          (12)\n    !   2 - Evergreen broadleaf trees              Deciduous forest  ( 4)\n    !   3 - Deciduous needleleaf trees             Coniferous forest ( 1)\n    !   4 - Deciduous broadleaf trees              Agricultural land ( 7)\n    !   5 - Mixed broadleaf and needleleaf trees   Shrub/grassland   (10)\n    !   6 - Grass                                  Amazon forest     ( 2)\n    !   7 - Crops and mixed farming                Tundra            ( 9)\n    !   8 - Desert                                 Desert            ( 8)\n    !   9 - Tundra                                 Wetland           (11)\n    !  10 - Shrubs and interrupted woodlands       Urban             (15)\n    !  11 - Wet land with plants                   Water             (14)\n    !  12 - Ice cap and glacier\n    !  13 - Inland water\n    !  14 - Ocean\n    !  15 - Urban\n    !=======================================================================\n    ! GEOS-CHEM LUC              1, 2, 3, 4, 5, 6, 7  8, 9,10,11\n    INTEGER :: LUCINDEX(11) = (/12, 4, 1, 7,10, 2, 9, 8,11,15,14/)\n    INTEGER :: LUC\n\n    !=================================================================\n    !   LUC       1,    2,    3,    4,    5,    6,    7,    8,\n    !   alpha   1.0,  0.6,  1.1,  0.8,  0.8,  1.2,  1.2, 50.0,\n    !   gamma  0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54\n    !\n    !   LUC       9,   10,   11,   12,   13,   14,   15\n    !   alpha  50.0,  1,3,  2.0, 50.0,100.0,100.0,  1.5\n    !   gamma  0.54, 0.54, 0.54, 0.54, 0.50, 0.50, 0.56\n    !=================================================================\n    REAL(f8)  :: ALPHA(15) = (/   1.0e+0_f8,   0.6e+0_f8,  1.1e+0_f8, &\n                                  0.8e+0_f8,   0.8e+0_f8,  1.2e+0_f8, &\n                                  1.2e+0_f8,  50.0e+0_f8, 50.0e+0_f8, &\n                                  1.3e+0_f8,   2.0e+0_f8, 50.0e+0_f8, &\n                                100.0e+0_f8, 100.0e+0_f8,  1.5e+0_f8  /)\n\n    REAL(f8)  :: GAMMA(15) = (/ 0.56e+0_f8, 0.58e+0_f8, 0.56e+0_f8, &\n                                0.56e+0_f8, 0.56e+0_f8, 0.54e+0_f8, &\n                                0.54e+0_f8, 0.54e+0_f8, 0.54e+0_f8, &\n                                0.54e+0_f8, 0.54e+0_f8, 0.54e+0_f8, &\n                                0.50e+0_f8, 0.50e+0_f8, 0.56e+0_f8  /)\n\n    !...A unit is (mm) so multiply by 1.D-3 to (m)\n    !   LUC       1,    2,    3,    4,    5,    6,    7,    8,\n    !   SC1     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    !   SC2     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    ! A SC3     2.0,  5.0,  5.0, 10.0,  5.0,  5.0,  5.0,-999.,\n    !   SC4     2.0,  5.0,  5.0, 10.0,  5.0,  5.0,  5.0,-999.,\n    !   SC5     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    !\n    !   LUC       9,   10,   11,   12,   13,   14,   15\n    !   SC1   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC2   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    ! A SC3   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC4   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC5   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    REAL(f8)  :: A(15,5)\n\n    REAL(f8)  :: Aavg(15)\n\n    DATA   A /  2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n                2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n                2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   5.0e+0_f8,  10.0e+0_f8,  5.0e+0_f8, &\n                5.0e+0_f8,   5.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   5.0e+0_f8,  10.0e+0_f8,  5.0e+0_f8, &\n                5.0e+0_f8,   5.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n                2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8  /\n\n    ! Annual average of A\n    Aavg(:) = (A(:,1)+A(:,2)+A(:,3)+A(:,4)+A(:,5))/5.\n    LUC     = LUCINDEX(II)\n    AA      = Aavg(LUC) * 1.e-3_f8\n\n    !=================================================================\n    !...Ref. Zhang et al., AE 35(2001) 549-560\n    !.\n    !...Model theroy\n    !    Vd = Vs + 1./(Ra+Rs)\n    !      where Vs is the gravitational settling velocity,\n    !      Ra is the aerodynamic resistance above the canopy\n    !      Rs  is the surface resistance\n    !    Here we calculate Rs only..\n    !    Rs = 1 / (Eo*Ustar*(Eb+Eim+Ein)*R1)\n    !      where Eo is an empirical constant ( = 3.)\n    !      Ustar is the friction velocity\n    !      Collection efficiency from\n    !        Eb,  [Brownian diffusion]\n    !        Eim, [Impaction]\n    !        Ein, [Interception]\n    !      R1 is the correction factor representing the fraction\n    !         of particles that stick to the surface.\n    !=======================================================================\n    !      Eb is a funciont of Schmidt number, Eb = Sc^(-gamma)\n    !         Sc = v/D, v (the kinematic viscosity of air)\n    !                   D (particle brownian diffusivity)\n    !         r usually lies between 1/2 and 2/3\n    !      Eim is a function of Stokes number, St\n    !          St = Vs * Ustar / (g0 * A)   for vegetated surfaces\n    !          St = Vs * Ustar * Ustar / v  for smooth surface\n    !          A is the characteristic radius of collectors.\n    !\n    !       1) Slinn (1982)\n    !           Eim = 10^(-3/St)          for smooth surface\n    !           Eim = St^2 / ( 1 + St^2 ) for vegetative canopies\n    !       2) Peters and Eiden (1992)\n    !           Eim = ( St / ( alpha + St ) )^(beta)\n    !                alpha(=0.8) and beta(=2) are constants\n    !       3) Giorgi (1986)\n    !           Eim = St^2 / ( 400 + St^2 )     for smooth surface\n    !           Eim = ( St / (0.6 + St) )^(3.2) for vegetative surface\n    !       4) Davidson et al.(1982)\n    !           Eim = St^3 / (St^3+0.753*St^2+2.796St-0.202) for grassland\n    !       5) Zhang et al.(2001) used 2) method with alpha varying with\n    !          vegetation type and beta equal to 2\n    !\n    !      Ein = 0.5 * ( Dp / A )^2\n    !\n    !      R1 (Particle rebound)  = exp(-St^0.5)\n    !=================================================================\n    !      Update (jaegle 5/11/2011): The above formulation of Zhang et al\n    !      (2001) is valid for land surfaces and was originally based on the\n    !      work of Slinn (1982). Over water surfaces, the work of reference\n    !      is that of Slinn and Slinn (1980) who use the term \"viscous\n    !      sublayer\" to refer to the thin layer extending 0.1-1mm above the\n    !      water surface. Due to the proximity of the water, the RH in this\n    !      layer is much higher than the ambient RH in the surface layer.\n    !      According to Lewis and Schwartz (2004): \"Relative humidities of\n    !      99% and 100% were considered by Slinn and Slinn for the viscous\n    !      sublayer, however near the ocean surface RH would be limited to\n    !      near 98% because of the vapor pressure lowering of water over\n    !      seawater due to the salt content\". We will thus use a constant\n    !      value RH=98% over all ocean boxes. This affects the growth of\n    !      particles (the wet radius at RH=98% is x4 the dry radius) and thus\n    !      affects all the terms depending on particle size.\n    !\n    !      Other updates for ocean surfaces:\n    !         a)   Over ocean surfaces the formulation from Slinn & Slinn for\n    !              the resistance in the viscous layer is\n    !                Rs = 1 / (Cd/VON_KARMAN*U10m*(Eb+Eim)+VTS)\n    !              with  Cd=(Ustar/U10m)**2, and VTS is the gravitational\n    !              settling in the viscous layer. Note that the gravitational\n    !              settling calculated here for the viscous layer is >> than\n    !              the one calculated for the surface layer in seasalt_mod.f\n    !              because of the higher RH.\n    !         b)   Eim = 10^(-3/St) based on Slinn and Slinn (1980)\n    !\n    ! References:\n    !  LEWIS and SCHWARTZ (2004), \"SEA SALT AEROSOL PRODUCTION, MECHANISMS,\n    !    METHODS AND MODELS\" AGU monograph 152.\n    !  SLINN and SLINN (1980), \"PREDICTIONS FOR PARTICLE DEPOSITION ON\n    !    NATURAL-WATERS\" Atmos Environ (1980) vol. 14 (9) pp. 1013-1016.\n    !  SLINN (1982), \"PREDICTIONS FOR PARTICLE DEPOSITION TO VEGETATIVE\n    !    CANOPIES\" Atmos Environ (1982) vol. 16 (7) pp. 1785-1794.\n    !==================================================================\n\n    ! Number of bins for sea salt size distribution\n    NR = INT((( Input_Opt%SALC_REDGE_um(2) - Input_Opt%SALA_REDGE_um(1) ) &\n         / DR ) + 0.5e+0_f8 )\n\n    drydepRadius = A_RADI(K)\n\n    ! Coarse seasalt\n    IF ( K == idd_NITS    .or. K == idd_SALC .or. K == idd_SO4S .or.         &\n         K == idd_BRSALC  .or. K == idd_ISALC                        ) THEN\n       drydepRadius = 0.74025E-6\n    ENDIF\n\n    IF ( K == idd_SALA .OR. K == idd_BRSALA .or. K == idd_ISALA ) THEN\n       drydepRadius = 0.114945E-6\n    ENDIF\n\n    ! Particle radius [cm]\n    ! Bug fix: The Gerber [1985] growth should use the dry radius\n    ! in micromenters and not cm. Replace RCM with RUM (jaegle 5/11/11)\n    !RCM  = A_RADI(K) * 1.d2\n    RUM  = drydepRadius * 1.e+6_f8\n\n    ! Exponential factors used for hygroscopic growth\n    ! Replace RCM with RUM (jaegle 5/11/11)\n    !FAC1 = C1 * ( RCM**C2 )\n    !FAC2 = C3 * ( RCM**C4 )\n    FAC1 = C1 * ( RUM**C2 )\n    FAC2 = C3 * ( RUM**C4 )\n\n    ! Aerosol growth with relative humidity in radius [m]\n    ! (Gerber, 1985) (bec, 12/8/04)\n    ! Added safety check for LOG (phs, 6/11/08)\n    RHBL    = MAX( TINY(RHB), RHB )\n\n    ! Check whether we are over the oceans or not:\n    ! Over oceans the RH in the viscous sublayer is set to 98%, following\n    ! Lewis and Schwartz (2004), see discussion above (jaegle 5/11/11)\n    IF (LUC == 14) THEN\n       RHBL = 0.98\n    ENDIF\n    ! Corrected bug in Gerber formulation: use of LOG10  (jaegle 5/11/11)\n    !RWET    = 0.01e+0_f8*(FAC1/(FAC2-DLOG(RHBL))+RCM**3.e+0_f8)**0.33e+0_f8\n    !RWET = 1.d-6*(FAC1/(FAC2-LOG10(RHBL))+RUM**3.e+0_f8)**0.33333e+0_f8\n\n    ! Use equation 5 in Lewis and Schwartz (2006) for sea salt growth [m]\n    ! (jaegle 5/11/11)\n    RWET = drydepRadius * (4.e+0_f8 / 3.7e+0_f8) * &\n          ( (2.e+0_f8 - RHBL)/(1.e+0_f8 - RHBL) )**(1.e+0_f8/3.e+0_f8)\n\n    ! Ratio dry over wet radii at the cubic power\n    !RATIO_R = ( A_RADI(K) / RWET )**3.e+0_f8\n\n    ! Diameter of the wet aerosol [m]\n    DIAM  = RWET * 2.e+0_f8\n\n    ! Density of the wet aerosol [kg/m3] (bec, 12/8/04)\n    !DEN   = RATIO_R * A_DEN(K) + ( 1.e+0_f8 - RATIO_R ) * 1000.e+0_f8\n\n    ! Above density calculation is chemically unsound because it ignores\n    ! chemical solvation.\n    ! Iteratively solve Tang et al., 1997 equation 5 to calculate density of\n    ! wet aerosol (kg/m3)\n    ! (bec, 6/17/10, jaegle 5/11/11)\n    ! Redefine RATIO_R\n    RATIO_R = drydepRadius / RWET\n\n    ! Assume an initial density of 1000 kg/m3\n    DEN  = 1000.e+0_f8\n    DEN1 = 0.e+0_f8 !initialize (bec, 6/21/10)\n    DO WHILE ( ABS( DEN1-DEN ) .gt. EPSI )\n       ! First calculate weight percent of aerosol (kg_RH=0.8/kg_wet)\n       WTP    = 100.e+0_f8 * A_DEN(K)/DEN * RATIO_R**3.e+0_f8\n       ! Then calculate density of wet aerosol using equation 5\n       ! in Tang et al., 1997 [kg/m3]\n       DEN1   = ( 0.9971e+0_f8 + (A1 * WTP) + (A2 * WTP**2) + &\n                (A3 * WTP**3) + (A4 * WTP**4) ) * 1000.e+0_f8\n\n       ! Now calculate new weight percent using above density calculation\n       WTP    = 100.e+0_f8 * A_DEN(K)/DEN1 * RATIO_R**3\n       ! Now recalculate new wet density [kg/m3]\n       DEN   = ( 0.9971e+0_f8 + (A1 * WTP) + (A2 * WTP**2) + &\n               (A3 * WTP**3) + (A4 * WTP**4) ) * 1000.e+0_f8\n    ENDDO\n\n    ! Dp [um] = particle diameter\n    DP    = DIAM * 1.e+6_f8\n\n    ! Constant for settling velocity calculation\n    CONST = DEN * DIAM**2 * g0 / 18.e+0_f8\n\n    !=================================================================\n    !   # air molecule number density\n    !   num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n    !   # gas mean free path\n    !   lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n    !   # Slip correction\n    !   Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp &\n    !          / (2. * lamda))) / Dp\n    !=================================================================\n    ! Note, Slip correction factor calculations following Seinfeld,\n    ! pp464 which is thought to be more accurate but more computation\n    ! required.\n    !=================================================================\n\n    ! Slip correction factor as function of (P*dp)\n    PDP  = PRESS * DP\n    SLIP = 1e+0_f8 + ( 15.60e+0_f8 + 7.0e+0_f8 * &\n           EXP( -0.059e+0_f8 * PDP) ) / PDP\n\n    !=================================================================\n    ! Note, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n    ! which produce slip correction factore with small error\n    ! compared to the above with less computation.\n    !=================================================================\n\n    ! Viscosity [Pa s] of air as a function of temp (K)\n    VISC = 1.458e-6_f8 * (TEMP)**(1.5e+0_f8) / (TEMP + 110.4e+0_f8)\n\n    ! Kinematic viscosity (Dynamic viscosity/Density)\n    AIRVS= VISC / 1.2928e+0_f8\n\n    ! Settling velocity [m/s]\n    VTS  = CONST * SLIP / VISC\n\n    ! This settling velocity is for the mid-point of the size bin.\n    ! Need to integrate over the size bin, taking into account the\n    ! mass distribution of sea-salt and the dependence of VTS on aerosol\n    ! size. See WET_SETTLING in SEASALT_MOD.f for more details.\n    ! (jaegle 5/11/11)\n    SALT_MASS_TOTAL = 0e+0_f8\n    VTS_WEIGHT      = 0e+0_f8\n    ! Check what the min/max range of the SS size bins are\n    IF ( RUM .le. Input_Opt%SALA_REDGE_um(2) ) THEN\n      D0 = Input_Opt%SALA_REDGE_um(1)*2e+0_f8\n      D1 = Input_Opt%SALA_REDGE_um(2)*2e+0_f8\n    ELSE\n      D0 = Input_Opt%SALC_REDGE_um(1)*2e+0_f8\n      D1 = Input_Opt%SALC_REDGE_um(2)*2e+0_f8\n    ENDIF\n\n    DO ID = 1, NR\n       ! Calculate mass of wet aerosol (Dw = wet diameter, D = dry diamter):\n       ! Overall = dM/dDw = dV/dlnD * Rwet/Rdry * DEN /Rw\n       IF (DMID(ID) .ge. D0 .and. DMID(ID) .le. D1 ) THEN\n          DMIDW = DMID(ID) * RWET/drydepRadius   ! wet radius [um]\n          SALT_MASS   = SALT_V(ID) * RWET/drydepRadius * DEN / &\n                        (DMIDW*0.5e+0_f8)\n          VTS_WEIGHT  = VTS_WEIGHT + &\n                        SALT_MASS * VTS * (DMIDW/(RWET*1d6*2e+0_f8) )** &\n                        2e+0_f8 * (2e+0_f8 * DR *  RWET/drydepRadius)\n          SALT_MASS_TOTAL = SALT_MASS_TOTAL+SALT_MASS * &\n                            (2e+0_f8 * DR *  RWET/drydepRadius)\n       ENDIF\n    ENDDO\n\n    ! Final mass weighted setting velocity:\n    VTS = VTS_WEIGHT/SALT_MASS_TOTAL\n    VTSout = VTS\n\n    ! Brownian diffusion constant for particle (m2/s)\n    DIFF = BOLTZ * TEMP * SLIP / (3.e+0_f8 * PI * VISC * DIAM)\n\n    ! Schmidt number\n    SC   = AIRVS / DIFF\n    !EB   = 1.e+0_f8/SC**(gamma(LUC))\n    !-------------------------------------------------------------\n    ! NOTE: This loses precision, use TWO_THIRDS parameter instead\n    !EB   = CB/SC**(0.6667e+0_f8) ! Emerson 2020 update JRP\n    !-------------------------------------------------------------\n    EB   = CB/SC**TWO_THIRDS      ! Emerson 2020 update JRP\n\n    ! Stokes number\n    IF ( AA < 0e+0_f8 ) then\n       ST   = VTS * USTAR * USTAR / ( AIRVS * g0 ) ! for smooth surface\n       EIN  = 0e+0_f8\n    ELSE\n       ST   = VTS   * USTAR / ( g0 * AA )          ! for vegetated surfaces\n       !EIN  = 0.5e+0_f8 * ( DIAM / AA )**2\n       EIN  = CIN * ( DIAM / AA )**(UPSILON) ! Emerson 2020 update JRP\n    ENDIF\n\n    ! Use the formulation of Slinn and Slinn (1980) for the impaction over\n    ! water surfaces (jaegle 5/11/11)\n    IF (LUC == 14) THEN\n       EIM  = 10.e+0_f8**( -3.e+0_f8/ ST )         ! for water surface\n       ! JRP: Emerson doesn't describe what to do here, so I'm leaving as is\n    ELSE\n       !EIM  = ( ST / ( ALPHA(LUC) + ST ) )**(BETA)\n       EIM  = CIM * ( ST / ( ALPHA(LUC) + ST ) )**(BETA) ! Emerson 2020 update\n       EIM  = MIN( EIM, 0.6e+0_f8 )\n    ENDIF\n\n    IF (LUC == 11 .OR. LUC == 13 .OR. LUC == 14) THEN\n       R1 = 1.e+0_f8\n    ELSE\n       R1 = EXP( -1e+0_f8 * SQRT( ST ) )\n    ENDIF\n\n    ! surface resistance for particle\n    ! Use the formulation of Slinn and Slinn (1980) for the impaction over\n    ! water surfaces (jaegle 5/11/11)\n    IF (LUC == 14) THEN\n#ifdef MODEL_GCHPCTM\n       ! Include check that winds are non-zero to avoid div by 0 error\n       IF ( IS_SAFE_DIV(1.e+0_f8, W10) ) THEN\n          RS = 1.e+0_f8 / (USTAR**2.e+0_f8/ (W10*VON_KARMAN) * &\n               (EB + EIM ) + VTS)\n       ELSE\n          RS = 1.e+0_f8 / (USTAR**2.e+0_f8/ (1.e-20_f8*VON_KARMAN) * &\n               (EB + EIM ) + VTS)\n          !PRINT *, \"WARNING: 10 m winds are zero. Using small value\", &\n          !         \"in drydep calculation of particle surface \", &\n          !         \"resistance to avoid divide by zero error.\"\n       ENDIF\n#else\n       RS   = 1.e+0_f8 / (USTAR**2.e+0_f8/ (W10*VON_KARMAN) * &\n              (EB + EIM ) + VTS)\n#endif\n    ELSE\n       RS   = 1.e+0_f8 / (E0 * USTAR * (EB + EIM + EIN) * R1 )\n    ENDIF\n\n  END FUNCTION AERO_SFCRSII\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_weightss\n!\n! !DESCRIPTION: Subroutine INIT\\_WEIGHTSS calculates the volume size\n!  distribution of sea-salt. This only has to be done once. We assume that\n!  sea-salt is the combination of a coarse mode and accumulation model\n!  log-normal distribution functions. The resulting arrays are: DMID = diameter\n!  of bin and SALT\\_V = dV/dln(D) [in um3]. (jaegle 5/11/11)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_WEIGHTSS( Input_Opt )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt\n!\n! !REVISION HISTORY:\n!  11 May 2011 - L. Jaegle   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: N\n    REAL(f8)            :: SALT_MASS, SALT_MASS_TOTAL, VTS_WEIGHT\n    REAL(f8)            :: DEDGE\n    INTEGER             :: ID,NR\n!\n! !DEFINED PARAMETERS:\n!\n    ! increment of radius for integration of settling velocity (um)\n    REAL(f8), PARAMETER :: DR    = 5.e-2_f8\n\n    ! parameters for assumed size distribution of acc and coarse mode\n    ! sea salt aerosols\n    ! geometric dry mean diameters (microns)\n    REAL(f8), PARAMETER :: RG_A  = 0.085e+0_f8\n    REAL(f8), PARAMETER :: RG_C  = 0.4e+0_f8\n    ! sigma of the size distribution\n    REAL(f8), PARAMETER :: SIG_A = 1.5e+0_f8\n    REAL(f8), PARAMETER :: SIG_C = 1.8e+0_f8\n\n    ! Number of bins between the lowest bound of of the accumulation mode\n    ! sea salt and the upper bound of the coarse mode sea salt.\n    NR = INT((( Input_Opt%SALC_REDGE_um(2) - Input_Opt%SALA_REDGE_um(1) ) &\n         / DR ) + 0.5e+0_f8 )\n\n    !=================================================================\n    ! Define the volume size distribution of sea-salt. This only has\n    ! to be done once. We assume that sea-salt is the combination of a\n    ! coarse mode and accumulation model log-normal distribution functions\n    !=================================================================\n\n    ! Lower edge of 0th bin diameter [um]\n    DEDGE=Input_Opt%SALA_REDGE_um(1) * 2e+0_f8\n\n    ! Loop over diameters\n    DO ID = 1, NR\n\n       ! Diameter of mid-point in microns\n       DMID(ID)  = DEDGE + ( DR )\n\n       ! Calculate the dry volume size distribution as the sum of two\n       ! log-normal size distributions. The parameters for the size\n       ! distribution are based on Reid et al. and Quinn et al.\n       ! The scaling factors 13. and 0.8 for acc and coarse mode aerosols\n       ! are chosen to obtain a realistic distribution\n       ! SALT_V (D) = dV/dln(D) [um3]\n       SALT_V(ID) = PI / 6e+0_f8* (DMID(ID)**3) * (          &\n                    13e+0_f8*exp(-0.5*( LOG(DMID(ID))-       &\n                    LOG(RG_A*2e+0_f8) )**2e+0_f8/            &\n                              LOG(SIG_A)**2e+0_f8 )          &\n                    /( sqrt(2e+0_f8 * PI) * LOG(SIG_A) )  +  &\n                    0.8e+0_f8*exp(-0.5*( LOG(DMID(ID))-      &\n                    LOG(RG_C*2e+0_f8) )**2e+0_f8/            &\n                              LOG(SIG_C)**2e+0_f8)           &\n                    /( sqrt(2e+0_f8 * PI) * LOG(SIG_C) )  )\n\n       ! update the next edge\n       DEDGE = DEDGE + DR*2e+0_f8\n    ENDDO\n\n  END SUBROUTINE INIT_WEIGHTSS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dust_sfcrsi\n!\n! !DESCRIPTION: Function DUST\\_SFCRSI computes the aerodynamic resistance of\n!  dust aerosol species according to Seinfeld et al 96.  We do not consider\n!  hygroscopic growth of the dust aerosol particles. (rjp, tdf, bmy, bec,\n!  4/1/04, 4/15/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION DUST_SFCRSI( K, II, PRESS, TEMP, USTAR ) RESULT( RS )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: K       ! Drydep species (range: 1-NUMDEP)\n    INTEGER,  INTENT(IN) :: II      ! Surface type index of GEOS-CHEM\n    REAL(f8), INTENT(IN) :: PRESS   ! Pressure [kPa]\n    REAL(f8), INTENT(IN) :: TEMP    ! Temperature [K]\n    REAL(f8), INTENT(IN) :: USTAR   ! Friction velocity [m/s]\n!\n! !RETURN VALUE:\n!\n    REAL(f8)             :: RS      ! Surface resistance for particles [s/m]\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(f8), PARAMETER   :: C1    =  0.7674_f8\n    REAL(f8), PARAMETER   :: C2    =  3.079_f8\n    REAL(f8), PARAMETER   :: C3    =  2.573e-11_f8\n    REAL(f8), PARAMETER   :: C4    = -1.424_f8\n    REAL(f8), PARAMETER   :: BETA  =  2.0_f8\n    REAL(f8), PARAMETER   :: E0    =  1.0_f8\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: N\n    REAL(f8)  :: AIRVS       ! kinematic viscosity of Air (m^2/s)\n    REAL(f8)  :: DP          ! Diameter of aerosol [um]\n    REAL(f8)  :: PDP         ! Press * Dp\n    REAL(f8)  :: CONST       ! Constant for settling velocity calculations\n    REAL(f8)  :: SLIP        ! Slip correction factor\n    REAL(f8)  :: VISC        ! Viscosity of air (Pa s)\n    REAL(f8)  :: DIFF        ! Brownian Diffusion constant for particles (m2/s)\n    REAL(f8)  :: SC, ST      ! Schmidt and Stokes number (nondim)\n    REAL(f8)  :: DIAM, DEN\n    REAL(f8)  :: EB, EIM, EIN, R1, AA, VTS\n\n    !=================================================================\n    ! Ref. Zhang et al., AE 35(2001) 549-560 and Seinfeld(1986)\n    !\n    ! Model theory\n    !    Vd = Vs + 1./(Ra+Rs)\n    !      where Vs is the gravitational settling velocity,\n    !      Ra is the aerodynamic resistance above the canopy\n    !      Rs  is the surface resistance\n    !    Here we calculate Rs only..\n    !    Rs = 1 / (Eo*Ustar*(Eb+Eim+Ein)*R1)\n    !      where Eo is an empirical constant ( = 3.)\n    !      Ustar is the friction velocity\n    !      Collection efficiency from\n    !        Eb,  [Brownian diffusion]\n    !        Eim, [Impaction]\n    !        Ein, [Interception]\n    !      R1 is the correction factor representing the fraction\n    !         of particles that stick to the surface.\n    !=================================================================\n    !      Eb is a funciont of Schmidt number, Eb = Sc^(-gamma)\n    !         Sc = v/D, v (the kinematic viscosity of air)\n    !                   D (particle brownian diffusivity)\n    !         r usually lies between 1/2 and 2/3\n    !      Eim is a function of Stokes number, St\n    !          St = Vs * Ustar / (g0 * A)   for vegetated surfaces\n    !          St = Vs * Ustar * Ustar / v  for smooth surface\n    !          A is the characteristic radius of collectors.\n    !\n    !       1) Slinn (1982)\n    !           Eim = 10^(-3/St)          for smooth surface\n    !           Eim = St^2 / ( 1 + St^2 ) for vegetative canopies\n    !       2) Peters and Eiden (1992)\n    !           Eim = ( St / ( alpha + St ) )^(beta)\n    !                alpha(=0.8) and beta(=2) are constants\n    !       3) Giorgi (1986)\n    !           Eim = St^2 / ( 400 + St^2 )     for smooth surface\n    !           Eim = ( St / (0.6 + St) )^(3.2) for vegetative surface\n    !       4) Davidson et al.(1982)\n    !           Eim = St^3 / (St^3+0.753*St^2+2.796St-0.202) for grassland\n    !       5) Zhang et al.(2001) used 2) method with alpha varying with\n    !          vegetation type and beta equal to 2\n    !\n    !      Ein = 0.5 * ( Dp / A )^2\n    !\n    !      R1 (Particle rebound)  = exp(-St^0.5)\n    !=================================================================\n\n    ! Particle diameter [m]\n    DIAM  = A_RADI(K) * 2.e+0_f8\n\n    ! Particle density [kg/m3]\n    DEN   = A_DEN(K)\n\n    ! Dp [um] = particle diameter\n    DP    = DIAM * 1.e+6_f8\n\n    ! Constant for settling velocity calculation\n    CONST = DEN * DIAM**2 * g0 / 18.e+0_f8\n\n    !=================================================================\n    !   # air molecule number density\n    !   num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n    !   # gas mean free path\n    !   lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n    !   # Slip correction\n    !   Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp &\n    !          / (2. * lamda))) / Dp\n    !================================================================\n    ! Note, Slip correction factor calculations following Seinfeld,\n    ! pp464 which is thought to be more accurate but more computation\n    ! required.\n    !=================================================================\n\n    ! Slip correction factor as function of (P*dp)\n    PDP  = PRESS * DP\n    SLIP = 1e+0_f8 + ( 15.60e+0_f8 + 7.0e+0_f8 * &\n           EXP( -0.059e+0_f8 * PDP ) ) / PDP\n\n    !=================================================================\n    ! Note, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n    ! which produce slip correction factore with small error\n    ! compared to the above with less computation.\n    !=================================================================\n\n    ! Viscosity [Pa s] of air as a function of temp (K)\n    VISC = 1.458e-6_f8 * (TEMP)**(1.5e+0_f8) / (TEMP + 110.4e+0_f8)\n\n    ! Kinematic viscosity (Dynamic viscosity/Density)\n    AIRVS= VISC / 1.2928e+0_f8\n\n    ! Settling velocity [m/s]\n    VTS  = CONST * SLIP / VISC\n\n    ! Brownian diffusion constant for particle (m2/s)\n    DIFF = BOLTZ * TEMP * SLIP / (3.e+0_f8 * Pi * VISC * DIAM)\n\n    ! Schmidt number and Diffusion term\n    SC   = AIRVS / DIFF\n    EB   = SC**(-0.666667e+0_f8)\n\n    ! Stokes number and impaction term\n    ST   = VTS * USTAR * USTAR / ( AIRVS * g0 )\n    EIM  = 10.e+0_f8**(-3.e+0_f8 / ST)\n\n    ! surface resistance for particle\n    RS   = 1.e+0_f8 / ( E0 * USTAR * (EB + EIM) )\n\n  END FUNCTION DUST_SFCRSI\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: adust_sfcrsii\n!\n! !DESCRIPTION: Function ADUST\\_SFCRSII computes the aerodynamic resistance of\n!  non-size resolved aerosol according to Zhang et al 2001.  We do not consider\n!  the hygroscopic growth of the aerosol particles. (rjp, tdf, bec, bmy,\n!  4/1/04, 4/15/05)\n!\\\\\n!\\\\\n!  This routine is used for all aerosols except dust, sulfate, and seasalt\n!  (hotp 7/31/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ADUST_SFCRSII( K, II, PRESS, TEMP, USTAR, &\n                          VTSout, RHB, State_Chm ) RESULT( RS )\n!\n! !USES:\n!\n      USE Species_Mod,        ONLY : Species\n      USE State_Chm_Mod,      ONLY : ChmState\n\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: K     ! Drydep species index (range: 1-NUMDEP)\n    INTEGER,  INTENT(IN) :: II    ! Surface type index of GEOS-CHEM\n    REAL(f8), INTENT(IN) :: PRESS ! Pressure [kPa] (1 mb = 100 Pa = 0.1 kPa)\n    REAL(f8), INTENT(IN) :: TEMP  ! Temperature [K]\n    REAL(f8), INTENT(IN) :: USTAR ! Friction velocity [m/s]\n    REAL(f8), INTENT(IN) :: RHB   ! Relative humidity (fraction)\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: VTSout ! Settling velocity [m/s]\n\n!\n! !RETURN VALUE:\n!\n    REAL(f8)             :: RS    ! Surface resistance for particles [s/m]\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial version\n!  26 Jan 2021 - J. Pierce   - Update to Emerson et al. PNAS (2020) parameters\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8), PARAMETER   :: C1       =  0.7674_f8\n    REAL(f8), PARAMETER   :: C2       =  3.079_f8\n    REAL(f8), PARAMETER   :: C3       =  2.573e-11_f8\n    REAL(f8), PARAMETER   :: C4       = -1.424_f8\n    REAL(f8), PARAMETER   :: E0       =  3.0_f8\n\n    ! Emerson et al. (2020) added parameters\n    REAL(f8), PARAMETER   :: UPSILON  =  0.8_f8\n    REAL(f8), PARAMETER   :: BETA     =  1.7_f8\n    REAL(f8), PARAMETER   :: CB       =  0.2_f8\n    REAL(f8), PARAMETER   :: CIN      =  2.5_f8\n    REAL(f8), PARAMETER   :: CIM      =  0.4_f8\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: N\n    REAL(f8)  :: AIRVS       ! kinematic viscosity of Air (m^2/s)\n    REAL(f8)  :: DP          ! Diameter of aerosol [um]\n    REAL(f8)  :: PDP         ! Press * Dp\n    REAL(f8)  :: CONST       ! Constant for settling velocity calculations\n    REAL(f8)  :: SLIP        ! Slip correction factor\n    REAL(f8)  :: VISC        ! Viscosity of air (Pa s)\n    REAL(f8)  :: DIFF        ! Brownian Diffusion constant for particles (m2/s)\n    REAL(f8)  :: SC, ST      ! Schmidt and Stokes number (nondim)\n    REAL(f8)  :: DIAM, DEN\n\n    REAL(f8)  :: EB, EIM, EIN, R1, AA, VTS\n\n    REAL(f8)  :: RHBL        ! Relative humidity local\n\n    !=======================================================================\n    !   #  LUC [Zhang et al., 2001]                GEOS-CHEM LUC (Corr. #)\n    !-----------------------------------------------------------------------\n    !   1 - Evergreen needleleaf trees             Snow/Ice          (12)\n    !   2 - Evergreen broadleaf trees              Deciduous forest  ( 4)\n    !   3 - Deciduous needleleaf trees             Coniferous forest ( 1)\n    !   4 - Deciduous broadleaf trees              Agricultural land ( 7)\n    !   5 - Mixed broadleaf and needleleaf trees   Shrub/grassland   (10)\n    !   6 - Grass                                  Amazon forest     ( 2)\n    !   7 - Crops and mixed farming                Tundra            ( 9)\n    !   8 - Desert                                 Desert            ( 8)\n    !   9 - Tundra                                 Wetland           (11)\n    !  10 - Shrubs and interrupted woodlands       Urban             (15)\n    !  11 - Wet land with plants                   Water             (14)\n    !  12 - Ice cap and glacier\n    !  13 - Inland water\n    !  14 - Ocean\n    !  15 - Urban\n    !=======================================================================\n    ! GEOS-CHEM LUC              1, 2, 3, 4, 5, 6, 7  8, 9,10,11\n    INTEGER :: LUCINDEX(11) = (/12, 4, 1, 7,10, 2, 9, 8,11,15,14/)\n    INTEGER :: LUC\n\n    !=======================================================================\n    !   LUC       1,    2,    3,    4,    5,    6,    7,    8,\n    !   alpha   1.0,  0.6,  1.1,  0.8,  0.8,  1.2,  1.2, 50.0,\n    !   gamma  0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54\n    !\n    !   LUC       9,   10,   11,   12,   13,   14,   15\n    !   alpha  50.0,  1,3,  2.0, 50.0,100.0,100.0,  1.5\n    !   gamma  0.54, 0.54, 0.54, 0.54, 0.50, 0.50, 0.56\n    !=======================================================================\n    REAL(f8)  :: ALPHA(15) = (/   1.0e+0_f8,   0.6e+0_f8,  1.1e+0_f8, &\n                                  0.8e+0_f8,   0.8e+0_f8,  1.2e+0_f8, &\n                                  1.2e+0_f8,  50.0e+0_f8, 50.0e+0_f8, &\n                                  1.3e+0_f8,   2.0e+0_f8, 50.0e+0_f8, &\n                                100.0e+0_f8, 100.0e+0_f8,  1.5e+0_f8  /)\n\n    REAL(f8)  :: GAMMA(15) = (/ 0.56e+0_f8, 0.58e+0_f8, 0.56e+0_f8, &\n                                0.56e+0_f8, 0.56e+0_f8, 0.54e+0_f8, &\n                                0.54e+0_f8, 0.54e+0_f8, 0.54e+0_f8, &\n                                0.54e+0_f8, 0.54e+0_f8, 0.54e+0_f8, &\n                                0.50e+0_f8, 0.50e+0_f8, 0.56e+0_f8  /)\n\n    !...A unit is (mm) so multiply by 1.D-3 to (m)\n    !   LUC       1,    2,    3,    4,    5,    6,    7,    8,\n    !   SC1     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    !   SC2     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    ! A SC3     2.0,  5.0,  5.0, 10.0,  5.0,  5.0,  5.0,-999.,\n    !   SC4     2.0,  5.0,  5.0, 10.0,  5.0,  5.0,  5.0,-999.,\n    !   SC5     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    !\n    !   LUC       9,   10,   11,   12,   13,   14,   15\n    !   SC1   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC2   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    ! A SC3   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC4   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC5   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    REAL(f8)  :: A(15,5)\n\n    REAL(f8)  :: Aavg(15)\n\n    DATA   A / 2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n               2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n              10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n               2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n               2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n              10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n               2.0e+0_f8,   5.0e+0_f8,   5.0e+0_f8,  10.0e+0_f8,  5.0e+0_f8, &\n               5.0e+0_f8,   5.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n              10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n               2.0e+0_f8,   5.0e+0_f8,   5.0e+0_f8,  10.0e+0_f8,  5.0e+0_f8, &\n               5.0e+0_f8,   5.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n              10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n               2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n               2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n              10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8  /\n\n    ! Annual average of A\n    Aavg(:) = (A(:,1)+A(:,2)+A(:,3)+A(:,4)+A(:,5))/5.\n    LUC     = LUCINDEX(II)\n    AA      = Aavg(LUC) * 1.e-3_f8\n\n    !=================================================================\n    !...Ref. Zhang et al., AE 35(2001) 549-560\n    !.\n    !...Model theroy\n    !    Vd = Vs + 1./(Ra+Rs)\n    !      where Vs is the gravitational settling velocity,\n    !      Ra is the aerodynamic resistance above the canopy\n    !      Rs  is the surface resistance\n    !    Here we calculate Rs only..\n    !    Rs = 1 / (Eo*Ustar*(Eb+Eim+Ein)*R1)\n    !      where Eo is an empirical constant ( = 3.)\n    !      Ustar is the friction velocity\n    !      Collection efficiency from\n    !        Eb,  [Brownian diffusion]\n    !        Eim, [Impaction]\n    !        Ein, [Interception]\n    !      R1 is the correction factor representing the fraction\n    !         of particles that stick to the surface.\n    !=======================================================================\n    !      Eb is a funciont of Schmidt number, Eb = Sc^(-gamma)\n    !         Sc = v/D, v (the kinematic viscosity of air)\n    !                   D (particle brownian diffusivity)\n    !         r usually lies between 1/2 and 2/3\n    !      Eim is a function of Stokes number, St\n    !          St = Vs * Ustar / (g0 * A)   for vegetated surfaces\n    !          St = Vs * Ustar * Ustar / v  for smooth surface\n    !          A is the characteristic radius of collectors.\n    !\n    !       1) Slinn (1982)\n    !           Eim = 10^(-3/St)          for smooth surface\n    !           Eim = St^2 / ( 1 + St^2 ) for vegetative canopies\n    !       2) Peters and Eiden (1992)\n    !           Eim = ( St / ( alpha + St ) )^(beta)\n    !                alpha(=0.8) and beta(=2) are constants\n    !       3) Giorgi (1986)\n    !           Eim = St^2 / ( 400 + St^2 )     for smooth surface\n    !           Eim = ( St / (0.6 + St) )^(3.2) for vegetative surface\n    !       4) Davidson et al.(1982)\n    !           Eim = St^3 / (St^3+0.753*St^2+2.796St-0.202) for grassland\n    !       5) Zhang et al.(2001) used 2) method with alpha varying with\n    !          vegetation type and beta equal to 2\n    !\n    !      Ein = 0.5 * ( Dp / A )^2\n    !\n    !      R1 (Particle rebound)  = exp(-St^0.5)\n    !=================================================================\n\n    ! Particle diameter [m] hotp 10/26/07\n    DIAM  = 0.17378e-6_f8\n\n    ! Hygroscopic growth following Latimer and Martin (2019) ACP (yanshun)\n    ! Added safety check for LOG (phs, 6/11/08)\n    RHBL    = MAX( TINY(RHB), RHB )\n\n    ! Over oceans the RH in the viscous sublayer is set to 98%,\n    ! following\n    ! Lewis and Schwartz (2004), see discussion above (jaegle 5/11/11)\n    IF (LUC == 14) THEN\n        RHBL = 0.98\n    ENDIF\n\n    ! SIA\n    IF ( K == idd_NIT .or. K == idd_NH4 .or. K == idd_SO4 ) THEN\n        ! Efflorescence transtions\n        IF (RHBL .LT. 0.35) THEN\n           ! DIAM is not changed\n        ELSE IF ((RHBL .GE. 0.35) .AND. (RHBL .LE. 0.40)) THEN\n           ! Linear hygroscopic growth\n            DIAM = DIAM + (DIAM * ((1.0_fp + 0.61_fp * 0.40_fp /             &\n                   (1.0_fp - 0.40_fp)) ** (1.0_fp / 3.0_fp)) - DIAM) /       &\n                   (0.40_fp - 0.35_fp) * (RHBL - 0.35_fp)\n        ELSE\n           ! Kohler hygroscopic growth\n            DIAM = DIAM * ((1.0_fp + 0.61_fp * RHBL / (1.0_fp - RHBL))       &\n                   ** (1.0_fp / 3.0_fp))\n        ENDIF\n\n    !BC\n    ELSE IF ( K == idd_BCPI .OR. K == idd_BCPO )  THEN\n       ! DIAM is not changed\n\n    !OA\n    ELSE\n        DIAM = DIAM * ((1.0_fp + 0.1_fp * RHBL / (1.0_fp - RHBL))            &\n             ** (1.0_fp / 3.0_fp))\n    ENDIF\n\n    ! Particle density [kg/m3] hotp 10/26/07\n    DEN   = 1500\n\n    ! Dp [um] = particle diameter\n    DP    = DIAM * 1.e+6_f8\n\n    ! Constant for settling velocity calculation\n    CONST = DEN * DIAM**2 * g0 / 18.e+0_f8\n\n    !=================================================================\n    !   # air molecule number density\n    !   num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n    !   # gas mean free path\n    !   lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n    !   # Slip correction\n    !   Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp &\n    !          / (2. * lamda))) / Dp\n    !=================================================================\n    ! Note, Slip correction factor calculations following Seinfeld,\n    ! pp464 which is thought to be more accurate but more computation\n    ! required.\n    !=================================================================\n\n    ! Slip correction factor as function of (P*dp)\n    PDP  = PRESS * DP\n    SLIP = 1e+0_f8 + ( 15.60e+0_f8 + 7.0e+0_f8 * &\n           EXP( -0.059e+0_f8 * PDP) ) / PDP\n\n    !=================================================================\n    ! Note, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n    ! which produce slip correction factore with small error\n    ! compared to the above with less computation.\n    !=================================================================\n\n    ! Viscosity [Pa s] of air as a function of temp (K)\n    VISC = 1.458e-6_f8 * (TEMP)**(1.5e+0_f8) / (TEMP + 110.4e+0_f8)\n\n    ! Kinematic viscosity (Dynamic viscosity/Density)\n    AIRVS= VISC / 1.2928e+0_f8\n\n    ! Settling velocity [m/s]\n    VTS  = CONST * SLIP / VISC\n    VTSout = VTS\n\n    ! Brownian diffusion constant for particle (m2/s)\n    DIFF = BOLTZ * TEMP * SLIP / (3.e+0_f8 * Pi * VISC * DIAM)\n\n    ! Schmidt number\n    SC   = AIRVS / DIFF\n    !EB   = 1.e+0_f8/SC**(gamma(LUC))\n\n    !--------------------------------------------------------------\n    ! NOTE: This loses precision, use TWO_THIRDS parameter instead\n    ! (bmy, 30 Sep 2021)\n    !EB   = CB/SC**(0.6667e+0_f8) ! Emerson 2020 update JRP\n    !--------------------------------------------------------------\n    EB   = CB/SC**TWO_THIRDS ! Emerson 2020 update JRP\n\n    ! Stokes number\n    IF ( AA < 0e+0_f8 ) then\n       ST   = VTS * USTAR * USTAR / ( AIRVS * g0 ) ! for smooth surface\n       EIN  = 0e+0_f8\n    ELSE\n       ST   = VTS   * USTAR / ( g0 * AA )          ! for vegetated surfaces\n       !EIN  = 0.5e+0_f8 * ( DIAM / AA )**2\n       EIN  = CIN * ( DIAM / AA )**(UPSILON) ! Emerson 2020 update JRP\n    ENDIF\n\n    !EIM  = ( ST / ( ALPHA(LUC) + ST ) )**(BETA)\n    EIM  = CIM * ( ST / ( ALPHA(LUC) + ST ) )**(BETA) ! Emerson 2020 update JRP\n\n    EIM  = MIN( EIM, 0.6e+0_f8 )\n\n    IF (LUC == 11 .OR. LUC == 13 .OR. LUC == 14) THEN\n       R1 = 1.e+0_f8\n    ELSE\n       R1 = EXP( -1e+0_f8 * SQRT( ST ) )\n    ENDIF\n\n    ! surface resistance for particle\n    RS   = 1.e0_f8 / (E0 * USTAR * (EB + EIM + EIN) * R1 )\n\n  END FUNCTION ADUST_SFCRSII\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dust_sfcrsii\n!\n! !DESCRIPTION: Function DUST\\_SFCRSII computes the aerodynamic resistance of\n!  dust aerosol species according to Zhang et al 2001 modified by Emerson et al.\n!  2020.  We do not consider the\n!  hygroscopic growth of the aerosol particles. (rjp, tdf, bec, bmy, 4/1/04,\n!  4/15/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n\n  FUNCTION DUST_SFCRSII( K, II, PRESS, TEMP, USTAR, DIAM, &\n                         DEN, VTSout) RESULT( RS )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: K       ! Drydep species index (range: 1-NUMDEP)\n    INTEGER,  INTENT(IN) :: II      ! Surface type index of GEOS-CHEM\n    REAL(f8), INTENT(IN) :: PRESS   ! Pressure [kPa]\n    REAL(f8), INTENT(IN) :: TEMP    ! Temperature [K]\n    REAL(f8), INTENT(IN) :: USTAR   ! Friction velocity [m/s]\n    REAL(f8), INTENT(IN) :: DIAM    ! Particle diameter [m]\n    REAL(f8), INTENT(IN) :: DEN     ! Particle density [kg/m3]\n\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: VTSout ! Settling velocity [m/s]\n\n!\n! !RETURN VALUE:\n!\n    REAL(f8)             :: RS      ! Surface resistance for particles [s/m]\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial version\n!  26 Jan 2021 - J. Pierce   - Update to Emerson et al. PNAS (2020) parameters\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS\n!\n    REAL(f8), PARAMETER   :: KAI      =  1.1474_f8 ! shape factor\n    REAL(f8), PARAMETER   :: C1       =  0.7674_f8\n    REAL(f8), PARAMETER   :: C2       =  3.079_f8\n    REAL(f8), PARAMETER   :: C3       =  2.573e-11_f8\n    REAL(f8), PARAMETER   :: C4       = -1.424_f8\n    REAL(f8), PARAMETER   :: E0       =  3.0_f8\n\n    ! Emerson et al. (2020) added parameters\n    REAL(f8), PARAMETER   :: UPSILON  =  0.8_f8\n    REAL(f8), PARAMETER   :: BETA     =  1.7_f8\n    REAL(f8), PARAMETER   :: CB       =  0.2_f8\n    REAL(f8), PARAMETER   :: CIN      =  2.5_f8\n    REAL(f8), PARAMETER   :: CIM      =  0.4_f8\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: N\n    REAL(f8)  :: AIRVS       ! kinematic viscosity of Air (m^2/s)\n    REAL(f8)  :: DP          ! Diameter of aerosol [um]\n    REAL(f8)  :: PDP         ! Press * Dp\n    REAL(f8)  :: CONST       ! Constant for settling velocity calculations\n    REAL(f8)  :: SLIP        ! Slip correction factor\n    REAL(f8)  :: VISC        ! Viscosity of air (Pa s)\n    REAL(f8)  :: DIFF        ! Brownian Diffusion constant for particles (m2/s)\n    REAL(f8)  :: SC, ST      ! Schmidt and Stokes number (nondim)\n\n    REAL(f8)  :: EB, EIM, EIN, R1, AA, VTS\n\n    !=======================================================================\n    !   #  LUC [Zhang et al., 2001]                GEOS-CHEM LUC (Corr. #)\n    !-----------------------------------------------------------------------\n    !   1 - Evergreen needleleaf trees             Snow/Ice          (12)\n    !   2 - Evergreen broadleaf trees              Deciduous forest  ( 4)\n    !   3 - Deciduous needleleaf trees             Coniferous forest ( 1)\n    !   4 - Deciduous broadleaf trees              Agricultural land ( 7)\n    !   5 - Mixed broadleaf and needleleaf trees   Shrub/grassland   (10)\n    !   6 - Grass                                  Amazon forest     ( 2)\n    !   7 - Crops and mixed farming                Tundra            ( 9)\n    !   8 - Desert                                 Desert            ( 8)\n    !   9 - Tundra                                 Wetland           (11)\n    !  10 - Shrubs and interrupted woodlands       Urban             (15)\n    !  11 - Wet land with plants                   Water             (14)\n    !  12 - Ice cap and glacier\n    !  13 - Inland water\n    !  14 - Ocean\n    !  15 - Urban\n    !=======================================================================\n    ! GEOS-CHEM LUC              1, 2, 3, 4, 5, 6, 7  8, 9,10,11\n    INTEGER :: LUCINDEX(11) = (/12, 4, 1, 7,10, 2, 9, 8,11,15,14/)\n    INTEGER :: LUC\n\n    !=======================================================================\n    !   LUC       1,    2,    3,    4,    5,    6,    7,    8,\n    !   alpha   1.0,  0.6,  1.1,  0.8,  0.8,  1.2,  1.2, 50.0,\n    !   gamma  0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54\n    !\n    !   LUC       9,   10,   11,   12,   13,   14,   15\n    !   alpha  50.0,  1,3,  2.0, 50.0,100.0,100.0,  1.5\n    !   gamma  0.54, 0.54, 0.54, 0.54, 0.50, 0.50, 0.56\n    !=======================================================================\n    REAL(f8)  :: ALPHA(15) = (/   1.0e+0_f8,   0.6e+0_f8,  1.1e+0_f8, &\n                                  0.8e+0_f8,   0.8e+0_f8,  1.2e+0_f8, &\n                                  1.2e+0_f8,  50.0e+0_f8, 50.0e+0_f8, &\n                                  1.3e+0_f8,   2.0e+0_f8, 50.0e+0_f8, &\n                                100.0e+0_f8, 100.0e+0_f8,  1.5e+0_f8  /)\n\n    REAL(f8)  :: GAMMA(15) = (/ 0.56e+0_f8, 0.58e+0_f8, 0.56e+0_f8, &\n                                0.56e+0_f8, 0.56e+0_f8, 0.54e+0_f8, &\n                                0.54e+0_f8, 0.54e+0_f8, 0.54e+0_f8, &\n                                0.54e+0_f8, 0.54e+0_f8, 0.54e+0_f8, &\n                                0.50e+0_f8, 0.50e+0_f8, 0.56e+0_f8  /)\n\n    !...A unit is (mm) so multiply by 1.D-3 to (m)\n    !   LUC       1,    2,    3,    4,    5,    6,    7,    8,\n    !   SC1     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    !   SC2     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    ! A SC3     2.0,  5.0,  5.0, 10.0,  5.0,  5.0,  5.0,-999.,\n    !   SC4     2.0,  5.0,  5.0, 10.0,  5.0,  5.0,  5.0,-999.,\n    !   SC5     2.0,  5.0,  2.0,  5.0,  5.0,  2.0,  2.0,-999.,\n    !\n    !   LUC       9,   10,   11,   12,   13,   14,   15\n    !   SC1   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC2   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    ! A SC3   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC4   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    !   SC5   -999., 10.0, 10.0,-999.,-999.,-999., 10.0\n    REAL(f8)  :: A(15,5)\n\n    REAL(f8)  :: Aavg(15)\n\n    DATA   A /  2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n                2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n                2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   5.0e+0_f8,  10.0e+0_f8,  5.0e+0_f8, &\n                5.0e+0_f8,   5.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   5.0e+0_f8,  10.0e+0_f8,  5.0e+0_f8, &\n                5.0e+0_f8,   5.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n\n                2.0e+0_f8,   5.0e+0_f8,   2.0e+0_f8,   5.0e+0_f8,  5.0e+0_f8, &\n                2.0e+0_f8,   2.0e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8, &\n               10.0e+0_f8, -999.e+0_f8, -999.e+0_f8, -999.e+0_f8, 10.0e+0_f8  /\n\n    ! Annual average of A\n    Aavg(:) = (A(:,1)+A(:,2)+A(:,3)+A(:,4)+A(:,5))/5.\n    LUC     = LUCINDEX(II)\n    AA      = Aavg(LUC) * 1.e-3_f8\n\n    !=================================================================\n    !...Ref. Zhang et al., AE 35(2001) 549-560\n    !.\n    !...Model theroy\n    !    Vd = Vs + 1./(Ra+Rs)\n    !      where Vs is the gravitational settling velocity,\n    !      Ra is the aerodynamic resistance above the canopy\n    !      Rs  is the surface resistance\n    !    Here we calculate Rs only..\n    !    Rs = 1 / (Eo*Ustar*(Eb+Eim+Ein)*R1)\n    !      where Eo is an empirical constant ( = 3.)\n    !      Ustar is the friction velocity\n    !      Collection efficiency from\n    !        Eb,  [Brownian diffusion]\n    !        Eim, [Impaction]\n    !        Ein, [Interception]\n    !      R1 is the correction factor representing the fraction\n    !         of particles that stick to the surface.\n    !=======================================================================\n    !      Eb is a funciont of Schmidt number, Eb = Sc^(-gamma)\n    !         Sc = v/D, v (the kinematic viscosity of air)\n    !                   D (particle brownian diffusivity)\n    !         r usually lies between 1/2 and 2/3\n    !      Eim is a function of Stokes number, St\n    !          St = Vs * Ustar / (g0 * A)   for vegetated surfaces\n    !          St = Vs * Ustar * Ustar / v  for smooth surface\n    !          A is the characteristic radius of collectors.\n    !\n    !       1) Slinn (1982)\n    !           Eim = 10^(-3/St)          for smooth surface\n    !           Eim = St^2 / ( 1 + St^2 ) for vegetative canopies\n    !       2) Peters and Eiden (1992)\n    !           Eim = ( St / ( alpha + St ) )^(beta)\n    !                alpha(=0.8) and beta(=2) are constants\n    !       3) Giorgi (1986)\n    !           Eim = St^2 / ( 400 + St^2 )     for smooth surface\n    !           Eim = ( St / (0.6 + St) )^(3.2) for vegetative surface\n    !       4) Davidson et al.(1982)\n    !           Eim = St^3 / (St^3+0.753*St^2+2.796St-0.202) for grassland\n    !       5) Zhang et al.(2001) used 2) method with alpha varying with\n    !          vegetation type and beta equal to 2\n    !\n    !      Ein = 0.5 * ( Dp / A )^2\n    !\n    !      R1 (Particle rebound)  = exp(-St^0.5)\n    !=================================================================\n\n    ! Dp [um] = particle diameter\n    DP    = DIAM * 1.e+6_f8\n\n    ! Constant for settling velocity calculation\n    ! Add effects of dust nonsphericity for gravitational settling\n    ! (D. Zhang, Mar 3, 2025)\n    CONST = 1.0_f8 / KAI * DEN * DIAM**2 * g0 / 18.e+0_f8 \n\n    !=================================================================\n    !   # air molecule number density\n    !   num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n    !   # gas mean free path\n    !   lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n    !   # Slip correction\n    !   Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp &\n    !          / (2. * lamda))) / Dp\n    !=================================================================\n    ! Note, Slip correction factor calculations following Seinfeld,\n    ! pp464 which is thought to be more accurate but more computation\n    ! required.\n    !=================================================================\n\n    ! Slip correction factor as function of (P*dp)\n    PDP  = PRESS * DP\n    SLIP = 1e+0_f8 + ( 15.60e+0_f8 + 7.0e+0_f8 * &\n           EXP( -0.059e+0_f8 * PDP) ) / PDP\n\n    !=================================================================\n    ! Note, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n    ! which produce slip correction factore with small error\n    ! compared to the above with less computation.\n    !=================================================================\n\n    ! Viscosity [Pa s] of air as a function of temp (K)\n    VISC = 1.458e-6_f8 * (TEMP)**(1.5e+0_f8) / (TEMP + 110.4e+0_f8)\n\n    ! Kinematic viscosity (Dynamic viscosity/Density)\n    AIRVS= VISC / 1.2928e+0_f8\n\n    ! Settling velocity [m/s]\n    VTS  = CONST * SLIP / VISC\n    VTSout = VTS\n\n    ! Brownian diffusion constant for particle (m2/s)\n    DIFF = BOLTZ * TEMP * SLIP / (3.e+0_f8 * Pi * VISC * DIAM)\n\n    ! Schmidt number\n    SC   = AIRVS / DIFF\n    !EB   = 1.e+0_f8/SC**(gamma(LUC))\n    !---------------------------------------------------------------\n    ! NOTE: this loses precision, use TWO_THIRDS instead\n    ! (bmy, 30 Sep 2021)\n    !EB   = CB/SC**(0.6667e+0_f8) ! Emerson 2020 update JRP\n    !---------------------------------------------------------------\n    EB   = CB/SC**TWO_THIRDS  ! Emerson 2020 update JRP\n\n    ! Stokes number\n    IF ( AA < 0e+0_f8 ) then\n       ST   = VTS * USTAR * USTAR / ( AIRVS * g0 ) ! for smooth surface\n       EIN  = 0e+0_f8\n    ELSE\n       ST   = VTS   * USTAR / ( g0 * AA )          ! for vegetated surfaces\n       !EIN  = 0.5e+0_f8 * ( DIAM / AA )**2\n       EIN  = CIN * ( DIAM / AA )**(UPSILON) ! Emerson 2020 update JRP\n    ENDIF\n\n    !EIM  = ( ST / ( ALPHA(LUC) + ST ) )**(BETA)\n    EIM  = CIM * ( ST / ( ALPHA(LUC) + ST ) )**(BETA) ! Emerson 2020 update JRP\n\n    EIM  = MIN( EIM, 0.6e+0_f8 )\n\n    IF (LUC == 11 .OR. LUC == 13 .OR. LUC == 14) THEN\n       R1 = 1.D0\n    ELSE\n       R1 = EXP( -1e+0_f8 * SQRT( ST ) )\n    ENDIF\n\n    ! surface resistance for particle\n    RS   = 1.e+0_f8 / (E0 * USTAR * (EB + EIM + EIN) * R1 )\n\n  END FUNCTION DUST_SFCRSII\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_drydep\n!\n! !DESCRIPTION: Subroutine INIT\\_DRYDEP initializes certain variables for the\n!  GEOS-CHEM dry deposition subroutines. (bmy, 11/19/02, 10/19/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_DRYDEP( Input_Opt,  State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  We now know how many drydep species there are before INIT_DRYDEP is\n!  called.  This allows us to get rid of MAXDEP.  NUMDEP should be\n!  equal to State_Chm%nDryDep, otherwise there is an error.\n!\n!  Also note: we need to use the actual molecular weights instead of\n!  the emitted molecular weights.  These are necessary for the Schmidt #\n!  computation.\n!\n! !REVISION HISTORY:\n!  19 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL                :: LDRYD\n    LOGICAL                :: IS_Hg\n    INTEGER                :: C\n    INTEGER                :: D\n    INTEGER                :: N\n\n    ! Strings\n    CHARACTER(LEN=255)     :: Msg, ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! INIT_DRYDEP begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Init_Drydep (in module GeosCore/drydep_mod.F)'\n\n#ifdef MODEL_WRF\n    ! If the dry deposition module has already been initialized,\n    ! the arrays do not need to be allocated again, as they are only\n    ! dependent on the chemistry configuration (State_Chm%nDryDep)\n    !\n    ! This is necessary for integrating GEOS-Chem with a variable\n    ! domain model like WRF-GC, where multiple instances of GEOS-Chem\n    ! run in the same CPU. (hplin, 2/16/2019)\n    IF ( ALLOCATED( A_DEN ) ) RETURN\n#endif\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%% NOTE: Because READ_DRYDEP_INPUTS reads info from a netCDF %%%\n    !%%% file, we may have to broadcast these.  However, the file  %%%\n    !%%% dimensions are not very great (10 or 20 indices each)     %%%\n    !%%% (bmy, 12/11/12)                                           %%%\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    ! Read drydep inputs from the netCDF file\n    ! Save Olson indices in INDOLSON array, in order to avoid\n    ! confusion w/ previously-assinged variable name IOLSON\n    !\n    ! NOTE: For dry-run simulations, print filename and exit.\n    CALL READ_DRYDEP_INPUTS( Input_Opt,                   &\n                             DRYCOEFF,  INDOLSON, IDEP,   &\n                             IWATER,    NWATER,   IZO,    &\n                             IDRYDEP,   IRI,      IRLU,   &\n                             IRAC,      IRGSS,    IRGSO,  &\n                             IRCLS,     IRCLO,    IVSMAX, &\n                             RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Read_Drydep_Inputs\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Exit if this is a dry-run simulation\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !=================================================================\n    ! For regular simulations, continue to initialize drydep\n    !=================================================================\n\n    IS_Hg     = Input_Opt%ITS_A_MERCURY_SIM\n    LDRYD     = Input_Opt%LDRYD\n    NUMDEP    = 0\n    id_ACET   = 0\n    id_O3     = 0\n    id_ALD2   = 0\n    id_MENO3  = 0\n    id_ETNO3  = 0\n    id_MOH    = 0\n    id_Hg0    = 0\n    id_HNO3   = Ind_('HNO3'  )\n    id_PAN    = Ind_('PAN'   )\n    id_IHN1   = Ind_('IHN1'  )\n    id_H2O2   = Ind_('H2O2'  )\n    id_SO2    = Ind_('SO2'   )\n    id_NH3    = Ind_('NH3'   )\n    id_NK01   = Ind_('NK01'  )\n\n    ! Drydep ID flags\n    idd_BCPO   = Ind_('BCPI',   'D')\n    idd_BCPO   = Ind_('BCPO',   'D')\n    idd_BrSALC = Ind_('BrSALC', 'D')\n    idd_BrSALA = Ind_('BrSALA', 'D')\n    idd_ISALA  = Ind_('ISALA',  'D')\n    idd_ISALC  = Ind_('ISALC',  'D')\n    idd_NH4    = Ind_('NH4',    'D')\n    idd_NIT    = Ind_('NIT',    'D')\n    idd_NITs   = Ind_('NITs',   'D')\n    idd_SALA   = Ind_('SALA',   'D')\n    idd_SALC   = Ind_('SALC',   'D')\n    idd_SO4    = Ind_('SO4',    'D')\n    idd_SO4s   = Ind_('SO4S',   'D')\n\n    !===================================================================\n    ! Arrays that hold information about dry-depositing species\n    ! Only allocate these if dry deposition is activated\n    !===================================================================\n    IF ( State_Chm%nDryDep > 0 ) THEN\n\n       ! Aerosol density [kg/m3]\n       ALLOCATE( A_DEN( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:A_DEN', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       A_DEN(:)   = 0e+0_f8\n\n       ! Aerosol radius [um]\n       ALLOCATE( A_RADI( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:A_RADI', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       A_RADI = 0e+0_f8\n\n       ! Is the species an aerosol? (T/F)\n       ALLOCATE( AEROSOL( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:AEROSOL', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       AEROSOL = .FALSE.\n\n       ! Drydep species name\n       ALLOCATE( DEPNAME( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:DEPNAME', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       DEPNAME = ''\n\n       ! Reactivity factor\n       ALLOCATE( F0( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:F0', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       F0 = 0e+0_f8\n\n       ! Henry's law K0\n       ALLOCATE( HSTAR( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:HSTAR', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       HSTAR = 0e+0_f8\n\n       ! POPs KOA\n       ALLOCATE( KOA( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:KOA', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KOA  = 0e+0_f8\n\n       ! Drydep species indicies\n       ALLOCATE( NDVZIND( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:NDVZIND', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       NDVZIND = 0\n\n       ! Drydep scaling flag\n       ALLOCATE( FLAG( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:FLAG', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       FLAG = 0\n\n       ! Species indices\n       ALLOCATE( NTRAIND( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:NTRAIND', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       NTRAIND = 0\n\n       ! Molecular weight [kg/mol]\n       ALLOCATE( XMW( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'drydep_mod:XMW', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       XMW = 0e+0_f8\n\n    ENDIF\n\n    !=================================================================\n    ! First identify species that dry deposit and then initialize\n    ! the dry deposition quantities accordingly:\n    !\n    ! Quantity  Description\n    ! ----------------------------------------------------------------\n    ! NUMDEP    Number of dry depositing species\n    ! NTRAIND   GEOS-Chem species ID number (advected index)\n    ! NDVZIND   Coresponding index in the drydep velocity array\n    ! HSTAR     Henry's law solubility constant [M atm-1]\n    ! F0        Reactivity (0.0 = not reactive, 1.0=very reactive)\n    ! XMW       Molecular weight of species [kg mol-1]\n    ! AEROSOL    = T if the species is aerosol, =F if gas\n    ! A_DEN     Aerosol density [kg m-3]\n    ! A_RADIUS  Aerosol radius [um]\n    ! KOA       POPs KOA parameter\n    !\n    ! NOTES:\n    ! (1) For XMW, we take the species molecular weight (MW_g * 1e-3).\n    ! (2) The deposition names of SO4s and NITs need to be in\n    !      uppercase.  Therefore, we overwrite the values from\n    !      the species database with SO4S, NITS.\n    !=================================================================\n    DO N = 1, State_Chm%nAdvect\n\n       ! Point to the Nth species in the species database\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Only proceed if the species dry deposits\n       IF ( SpcInfo%Is_Drydep ) THEN\n\n          ! Initialize dry deposition quantities\n          NUMDEP            = NUMDEP + 1\n          NTRAIND(NUMDEP)   = SpcInfo%ModelID\n          NDVZIND(NUMDEP)   = SpcInfo%DryDepID\n          DEPNAME(NUMDEP)   = TRIM( SpcInfo%Name )\n          XMW(NUMDEP)       = DBLE( SpcInfo%MW_g * 1e-3_fp )\n          AEROSOL(NUMDEP)   = ( SpcInfo%Is_Aerosol )\n\n          ! Only copy F0 if it's not a missing value\n          IF ( SpcInfo%DD_F0 > 0.0_fp ) THEN\n             F0(NUMDEP)     = DBLE( SpcInfo%DD_F0 )\n          ENDIF\n\n          ! Only copy HSTAR if it's not a missing value\n          IF ( SpcInfo%DD_Hstar > 0.0_fp ) THEN\n             HSTAR(NUMDEP)  = DBLE( SpcInfo%DD_HStar )\n          ENDIF\n\n          ! Only copy KOA if it's not a missing value\n          IF ( SpcInfo%DD_KOA > 0.0_fp ) THEN\n             KOA(NUMDEP)    = DBLE( SpcInfo%DD_KOA )\n          ENDIF\n\n          ! Only copy DENSITY if it's not a missing value\n          IF ( SpcInfo%Density > 0.0_fp ) THEN\n             A_DEN(NUMDEP)  = DBLE( SpcInfo%Density )\n          ENDIF\n\n          ! Only copy RADIUS if it's not a missing value\n          IF ( SpcInfo%Radius > 0.0_fp ) THEN\n             A_RADI(NUMDEP) = DBLE( SpcInfo%Radius )\n          ENDIF\n\n          !-----------------------------------------------------\n          ! Kludges to match behavior of older code\n          !-----------------------------------------------------\n          SELECT CASE ( TRIM( SpcInfo%Name ) )\n\n             CASE( 'ACET' )\n                ! Flag the species ID of ACET for use above.\n                id_ACET = SpcInfo%ModelId\n\n             CASE( 'O3' )\n                ! Flag the species ID of O3 for use above\n                ID_O3 = SpcInfo%ModelId\n\n             CASE( 'ALD2' )\n                ! Flag the species ID of ALD2 for use above.\n                id_ALD2 = SpcInfo%ModelId\n\n             CASE( 'MENO3' )\n                ! Flag the species ID of MENO3 for use above.\n                id_MENO3 = SpcInfo%ModelId\n\n             CASE( 'ETNO3' )\n                ! Flag the species ID of ETNO3 for use above.\n                id_ETNO3 = SpcInfo%ModelId\n\n             CASE( 'MOH' )\n                ! Flag the species ID of MOH for use above.\n                id_MOH = SpcInfo%ModelId\n\n             CASE( 'HG0', 'Hg0' )\n                ! for finding Hg0 drydep veloc\n                id_Hg0 = SpcInfo%ModelId\n\n             CASE( 'NITs', 'NITS' )\n                ! DEPNAME for NITs has to be in all caps, for\n                ! backwards compatibility with older code.\n                DEPNAME(NUMDEP) = 'NITS'\n\n             CASE( 'N2O5', 'HC187' )\n                ! These species scale to the Vd of HNO3. We will\n                ! explicitly compute the Vd of these species instead\n                ! of assigning the Vd of HNO3 from the drydep velocity array.\n                ! The scaling is applied in DO_DRYDEP using FLAG=1.\n                !\n                ! Make sure to set XMW to the MW of HNO3\n                ! for the computation of Vd to work properly.\n                XMW(NUMDEP)  = State_Chm%SpcData(id_HNO3)%Info%MW_g * 1e-3_fp\n                FLAG(NUMDEP) = 1\n\n             CASE(  'MPAN', 'PPN', 'R4N2' )\n                ! These specied scale to the Vd of PAN.  We will\n                ! explicitly compute the Vd of these species instead\n                ! of assigning the Vd of PAN from the drydep velocity array.\n                ! The scaling is applied in DO_DRYDEP using FLAG=2.\n                !\n                ! Make sure to set XMW to the MW of PAN\n                ! for the computation of Vd to work properly.\n                XMW(NUMDEP)  = State_Chm%SpcData(id_PAN)%Info%MW_g * 1e-3_fp\n                FLAG(NUMDEP) = 2\n\n             CASE( 'MONITS', 'MONITU', 'HONIT' )\n                ! These species scale to the Vd of ISOPN. We will\n                ! explicitly compute the Vd of these species instead\n                ! of assigning the Vd of ISOPN from the drydep velocity array.\n                ! The scaling is applied in DO_DRYDEP using FLAG=3.\n                !\n                ! Make sure to set XMW to the MW of ISOPN\n                ! for the computation of Vd to work properly.\n                XMW(NUMDEP)  = State_Chm%SpcData(id_IHN1)%Info%MW_g * 1e-3_fp\n                FLAG(NUMDEP) = 3\n\n             CASE( 'SO4s', 'SO4S' )\n                ! DEPNAME for SO4s has to be in all caps, for\n                ! backwards compatibility with older code\n                DEPNAME(NUMDEP) = 'SO4S'\n\n             CASE DEFAULT\n                ! Do nothing\n\n          END SELECT\n\n       ENDIF\n\n       ! Free pointer\n       SpcInfo => NULL()\n    ENDDO\n\n    !=================================================================\n    ! Allocate arrays\n    ! add allocation for SALT_V and DMID (jaegle 5/11/11)\n    !=================================================================\n    ALLOCATE( SALT_V( NR_MAX ), STAT=RC )\n    CALL GC_CheckVar( 'drydep_mod:SALT_V', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SALT_V = 0e+0_f8\n\n    ALLOCATE( DMID( NR_MAX ), STAT=RC )\n    CALL GC_CheckVar( 'drydep_mod:DMID', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    DMID = 0e+0_f8\n\n    !=================================================================\n    ! Echo information to stdout\n    !=================================================================\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n\n       ! Line 1\n       MSG = 'INIT_DRYDEP: List of dry deposition species:'\n       WRITE( 6, '(/,a)' ) TRIM( MSG )\n\n       ! Line 2\n       MSG =  '  #   Name      Species DEPVEL Henry''s    React.' &\n           // '   Molec.   Aerosol?'\n       WRITE( 6, '(/,a)'   ) TRIM( MSG )\n\n       ! Line 3\n       MSG =  '                Number Index  Law Const  Factor' &\n           // '   Weight   (T or F)'\n       WRITE( 6, '(a)'   ) TRIM( MSG )\n\n       ! Separator\n       WRITE( 6, '(a)'   ) REPEAT( '-', 70 )\n\n       ! Output\n       DO N = 1, NUMDEP\n          WRITE( 6, 100 ) N,          ADJUSTL( DEPNAME(N) ), &\n                          NTRAIND(N), NDVZIND(N),            &\n                          HSTAR(N),   F0(N),                 &\n                          XMW(N),     AEROSOL(N)\n       ENDDO\n100    FORMAT( i3, 3x, a8, 2(3x,i3), 4x, es8.1, 2(3x,f6.3), 3x, L3 )\n\n    ENDIF\n\n    ! Calls INIT_WEIGHTSS to calculate the volume distribution of\n    ! sea salt aerosols (jaegle 5/11/11)\n    CALL INIT_WEIGHTSS( Input_Opt )\n\n  END SUBROUTINE INIT_DRYDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_drydep\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_DRYDEP deallocates all module arrays.\n!  (bmy, 2/27/03, 2/22/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_DRYDEP\n!\n! !REVISION HISTORY:\n!  27 Feb 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! CLEANUP_DRYDEP begins here!\n    !=================================================================\n    IF ( ALLOCATED( A_DEN     ) ) DEALLOCATE( A_DEN     )\n    IF ( ALLOCATED( A_RADI    ) ) DEALLOCATE( A_RADI    )\n    IF ( ALLOCATED( AEROSOL   ) ) DEALLOCATE( AEROSOL   )\n    IF ( ALLOCATED( DEPNAME   ) ) DEALLOCATE( DEPNAME   )\n    IF ( ALLOCATED( DMID      ) ) DEALLOCATE( DMID      )\n    IF ( ALLOCATED( F0        ) ) DEALLOCATE( F0        )\n    IF ( ALLOCATED( FLAG      ) ) DEALLOCATE( FLAG      )\n    IF ( ALLOCATED( HSTAR     ) ) DEALLOCATE( HSTAR     )\n    IF ( ALLOCATED( KOA       ) ) DEALLOCATE( KOA       )\n    IF ( ALLOCATED( NDVZIND   ) ) DEALLOCATE( NDVZIND   )\n    IF ( ALLOCATED( NTRAIND   ) ) DEALLOCATE( NTRAIND   )\n    IF ( ALLOCATED( SALT_V    ) ) DEALLOCATE( SALT_V    )\n    IF ( ALLOCATED( XMW       ) ) DEALLOCATE( XMW       )\n\n  END SUBROUTINE CLEANUP_DRYDEP\n!EOC\nEND MODULE DRYDEP_MOD\n"
  },
  {
    "path": "GeosCore/dust_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: dust_mod.F90\n!\n! !DESCRIPTION: Module DUST\\_MOD contains routines for computing dust aerosol\n!  emissions, chemistry, and optical depths.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE DUST_MOD\n!\n! !USES:\n!\n  USE inquireMod,    ONLY : findFreeLUN\n  USE PRECISION_MOD       ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CHEMDUST\n#ifdef TOMAS\n  PUBLIC  :: SETTLEDUST\n#endif\n  PUBLIC  :: RDUST_ONLINE\n  PUBLIC  :: GET_DUST_ALK\n  PUBLIC  :: INIT_DUST\n  PUBLIC  :: CLEANUP_DUST\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: DRY_SETTLING\n#ifdef APM\n  PRIVATE :: DRY_SETTLINGBIN\n#endif\n!\n!  !REVISION HISTORY:\n!  30 Mar 2004 - T. D. Fairlie - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Species ID flags\n  INTEGER               :: id_DSTbin1, id_DSTbin2, id_DSTbin3\n  INTEGER               :: id_DSTbin4, id_DSTbin5, id_DSTbin6\n  INTEGER               :: id_DSTbin7, id_DALbin1, id_DALbin2\n  INTEGER               :: id_DALbin3, id_DALbin4, id_DALbin5\n  INTEGER               :: id_DALbin6, id_DALbin7, id_DUST01\n  INTEGER               :: id_NK01\n\n  ! Arrays\n  REAL(fp), ALLOCATABLE :: FRAC_S(:)\n  REAL(fp), ALLOCATABLE :: SRCE_FUNC(:,:,:)\n\n#ifdef TOMAS\n  ! To replicate the obsolete Input_Opt%IDDEP field\n  ! Set to a large placeholder value\n  INTEGER               :: TOMAS_IDDEP(1000)\n#endif\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chemdust\n!\n! !DESCRIPTION: Subroutine CHEMDUST is the interface between the GEOS-Chem\n!  main program and the dust chemistry routines that mostly calculates dust\n!  dry deposition.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEMDUST( Input_Opt,  State_Chm, State_Diag, &\n                       State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : DEBUG_MSG\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Diag_Mod,     ONLY : DgnState\n#ifdef APM\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_STATE_MOD,      ONLY : HCO_GetHcoID\n    USE APM_INIT_MOD,       ONLY : APMIDS\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  30 Mar 2004 - T. D. Fairlie - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n\n    ! Non-SAVEd scalars\n    LOGICAL            :: LDRYD\n    LOGICAL            :: LDUST\n    LOGICAL            :: LDSTUP\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n#ifdef APM\n    INTEGER            :: I,J,N, IDDST(HcoState%nDust)\n    REAL(fp)           :: A_M2, E_DST, DTSRCE\n    CHARACTER(LEN=7)   :: S\n    TYPE(SpcConc), POINTER :: Spc(:)\n#endif\n\n    !=================================================================\n    ! CHEMDUST begins here!\n    !=================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at CHEMDUST (in module GeosCore/dust_mod.F)'\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    LDRYD  = Input_Opt%LDRYD\n    LDUST  = Input_Opt%LDUST\n    LDSTUP = Input_Opt%LDSTUP\n\n    ! Execute on first call only\n    IF ( FIRST ) THEN\n\n       ! Stop w/ error if dust species flags are undefined\n       ! NOTE: Ind_() returns -1 for species not found, so for the\n       ! algorithm below to work, we need to make sure all id's are\n       ! not less than zero (bmy, 7/5/16)\n       ! extend 7 dust bins for deposition (D. Zhang, 28 Jun 2024)\n       IF ( MAX( id_DSTbin1, 0 ) +  MAX( id_DSTbin2, 0 ) +                   &\n            MAX( id_DSTbin3, 0 ) +  MAX( id_DSTbin4, 0 ) +                   &\n            MAX( id_DSTbin5, 0 ) +  MAX( id_DSTbin6, 0 ) +                   &\n            MAX( id_DSTbin7, 0 ) == 0                        ) THEN\n          IF ( LDUST ) THEN\n             ErrMsg = 'LDUST=T but dust species are undefined!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n#ifdef APM\n\n    ! Set pointer to species vector to access concentrations\n    Spc => State_Chm%Species\n\n    ! Emission timestep\n    DTSRCE = HcoState%TS_EMIS\n\n    ! Save the HEMCO dust ID's in a vector\n    DO N = 1, HcoState%nDust\n       WRITE( S, '(\"DSTbin\", i1)' ) N\n       IDDST(N) = HCO_GetHcoID( S, HcoState )\n    ENDDO\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( N, J, I, A_M2, E_DST )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Grid box surface area [m2]\n       A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n       DO N = 1, HcoState%nDust\n\n          ! Skip if the array for HEMCO dust species N isn't allocated\n          IF ( .not. HcoState%Spc(IDDST(N))%Emis%Alloc ) CYCLE\n\n          ! Get emissions [kg/m2/s] and convert to [kg/box]\n          E_DST = HcoState%Spc(IDDST(N))%Emis%Val(I,J,1) * A_M2 * DTSRCE\n\n          Spc(APMIDS%id_DSTBIN1)%Conc(I,J,1) =                                &\n                                      Spc(APMIDS%id_DSTBIN1)%Conc(I,J,1)      &\n                                      +E_DST*1.5083735055071434d-006\n          Spc(APMIDS%id_DSTBIN1+1)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+1)%Conc(I,J,1)    &\n                                      +E_DST*4.7465319694587000d-005\n          Spc(APMIDS%id_DSTBIN1+2)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+2)%Conc(I,J,1)    &\n                                      +E_DST*6.5459286253814980d-004\n          Spc(APMIDS%id_DSTBIN1+3)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+3)%Conc(I,J,1)    &\n                                      +E_DST*3.6946414378027244d-003\n          Spc(APMIDS%id_DSTBIN1+4)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+4)%Conc(I,J,1)    &\n                                      +E_DST*8.0323357006383631d-003\n          Spc(APMIDS%id_DSTBIN1+5)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+5)%Conc(I,J,1)    &\n                                      +E_DST*1.5922384531190468d-002\n          Spc(APMIDS%id_DSTBIN1+6)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+6)%Conc(I,J,1)    &\n                                      +E_DST*3.7324808601695736d-002\n          Spc(APMIDS%id_DSTBIN1+7)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+7)%Conc(I,J,1)    &\n                                      +E_DST*0.1144517534356116\n          Spc(APMIDS%id_DSTBIN1+8)%Conc(I,J,1)  =                             &\n                                      Spc(APMIDS%id_DSTBIN1+8)%Conc(I,J,1)    &\n                                      +E_DST*0.1880182758312848\n          Spc(APMIDS%id_DSTBIN1+9)%Conc(I,J,1)  =                              &\n                                      Spc(APMIDS%id_DSTBIN1+9)%Conc(I,J,1)    &\n                                      +E_DST*0.2448371224641443\n          Spc(APMIDS%id_DSTBIN1+10)%Conc(I,J,1) =                             &\n                                      Spc(APMIDS%id_DSTBIN1+10)%Conc(I,J,1)   &\n                                      +E_DST*0.1452025570524453\n          Spc(APMIDS%id_DSTBIN1+11)%Conc(I,J,1) =                             &\n                                      Spc(APMIDS%id_DSTBIN1+11)%Conc(I,J,1)   &\n                                      +E_DST*0.1954553759504486\n          Spc(APMIDS%id_DSTBIN1+12)%Conc(I,J,1) =                             &\n                                      Spc(APMIDS%id_DSTBIN1+12)%Conc(I,J,1)   &\n                                      +E_DST*4.0358202390254526d-002\n          Spc(APMIDS%id_DSTBIN1+13)%Conc(I,J,1) =                             &\n                                      Spc(APMIDS%id_DSTBIN1+13)%Conc(I,J,1)   &\n                                      +E_DST*5.2032641469382107d-003\n          Spc(APMIDS%id_DSTBIN1+14)%Conc(I,J,1) =                             &\n                                      Spc(APMIDS%id_DSTBIN1+14)%Conc(I,J,1)   &\n                                      +E_DST*7.2351157743278424d-004\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n#endif\n\n    !=================================================================\n    ! Do dust settling & deposition\n    !=================================================================\n\n    !-------------------------------------------------------------\n    ! Dust settling for regular dust species\n    !\n    ! NOTE: Assumes that id_DSTbin1 to id_DSTbin7 are\n    ! contiguous in the species list.  This is usually correct,\n    ! but we may have to update this later. (bmy, 7/5/16)\n    !-------------------------------------------------------------\n    CALL DRY_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                       State_Met, id_DSTbin1,   id_DSTbin7,    RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in call to \"DRY_SETTLING\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------------------------------------\n    ! Dust settling for acid uptake on dust species\n    !\n    ! NOTE: Assumes that id_DALbin1 to id_DALbin7 are\n    ! contiguous in the species list.  This is usually correct,\n    ! but we may have to update this later. (bmy, 7/5/16; D. Zhang, 5 Mar, 2025)\n    !\n    ! ALSO NOTE: Dry settling of DSTNIT, DSTSO4 occurs in\n    ! GRAV_SETTLING, called from CHEMSULFATE in SULFATE_MOD.\n    !-------------------------------------------------------------\n    IF ( LDSTUP ) THEN\n       CALL DRY_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                          State_Met, id_DALbin1,   id_DALbin7,    RC )\n\n#ifdef APM\n       ! Call APM size-resolved settling algorithm\n       CALL DRY_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                             State_Grid, State_Met, RC )\n#endif\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in call to \"DRY_SETTLING\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Debug print\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### CHEMDUST: a DRY_SETTLING' )\n    ENDIF\n\n  END SUBROUTINE CHEMDUST\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: settledust\n!\n! !DESCRIPTION: Subroutine SETTLEDUST is the interface between the\n!  size-resolved dry deposition subroutine AERO\\_DRYDEP and the dust module.\n!  This is to call only gravitational settling and deals with removal of\n!  aerosol number with the dust mass.  (win, 7/17/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SETTLEDUST( Input_Opt,  State_Chm, State_Diag, &\n                         State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants,      ONLY : AVO\n    USE Species_Mod,        ONLY : Species, SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE TOMAS_MOD,          ONLY : Xk, SRTDUST\n    USE Species_Mod,        ONLY : Species\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  17 Jul 2009 - W. Trivitayanurak - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: FIRST = .TRUE.\n\n    ! Non-SAVEd scalars\n    INTEGER                :: N, BIN, I, J, L, NN, IDISP\n    REAL(fp)               :: DU0(State_Grid%NX,State_Grid%NY,State_Grid%NZ, &\n                                  State_Chm%nTomasBins)\n    REAL(fp)               :: DIF, FLUXN, FLUXD\n    REAL(fp)               :: DT_SETTL, AREA_CM2\n\n    !debug\n    integer                :: ii, jj , ix, jx, bb\n    data                      ii,jj, ix, jx, bb /37, 24, 58, 34, 30 /\n    CHARACTER(LEN=255)     :: MSG, LOC\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    TYPE(Species), POINTER :: ThisSpc\n\n    !=================================================================\n    ! SETTLEDUST begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n\n    ! Check that species units are in [kg] (ewl, 8/13/15)\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species have units \"kg\"!'\n       LOC = 'Routine SETTLEDUST in GeosCore/dust_mod.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n    ! Set pointers\n    Spc     => State_Chm%Species\n    ThisSpc => NULL()\n\n    !=================================================================\n    ! Do dust settling & deposition\n    !=================================================================\n\n    ! Dust settling timestep [s]\n    DT_SETTL = GET_TS_CHEM()\n\n    ! Save initial dust mass\n    DO BIN = 1, State_Chm%nTomasBins\n\n       ! Species ID\n       N = id_DUST01 - 1 + BIN\n\n       DO L   = 1, State_Grid%NZ\n       DO J   = 1, State_Grid%NY\n       DO I   = 1, State_Grid%NX\n          DU0(I,J,L,BIN) = Spc(N)%Conc(I,J,L)\n       ENDDO\n       ENDDO\n       ENDDO\n    ENDDO\n\n    ! Dust settling\n    CALL DRY_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                       State_Met, id_DUST01, id_DUST01-1+State_Chm%nTomasBins,&\n                       RC )\n\n    ! Calculate change in number to correspond with dust redistribution\n    ! by gravitational settling\n    DO BIN = 1, State_Chm%nTomasBins\n\n       ! Species ID\n       N       =  id_DUST01 - 1 + BIN\n\n       ! Look up this species in the species database\n       ThisSpc => State_Chm%SpcData(N)%Info\n\n       ! Drydep index (??? -- replace w/ species DB info?)\n       NN      = State_Chm%nDryDep + (SRTDUST-1)*State_Chm%nTomasBins + BIN\n\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Surface area [cm2]\n          AREA_CM2 = State_Grid%Area_M2(I,J) * 1e+4_fp\n\n          DIF   = 0.0_fp\n          FLUXD = 0e+0_fp\n          FLUXN = 0e+0_fp\n\n          DO L = 1, State_Grid%NZ\n             DIF = DU0(I,J,L,BIN) - Spc(id_DUST01-1+BIN)%Conc(I,J,L)\n\n             Spc(id_NK01-1+BIN)%Conc(I,J,L) = Spc(id_NK01-1+BIN)%Conc(I,J,L) - &\n                                       DIF/(SQRT( Xk(BIN)*Xk(BIN+1)))\n\n             ! Convert flux from [kg/s] to [molec/cm2/s]\n             FLUXD = FLUXD + DIF / DT_SETTL * AVO / &\n                     ( 1.e-3_fp * ThisSpc%MW_g ) / AREA_CM2\n\n\n             FLUXN = FLUXN + DIF/(SQRT( Xk(BIN)*Xk(BIN+1))) / &\n                     DT_SETTL * AVO / &\n                     ( 1.e-3_fp * ThisSpc%MW_g ) / AREA_CM2\n          ENDDO\n       ENDDO\n       ENDDO\n\n       ! Free pointer\n       ThisSpc => NULL()\n\n    ENDDO\n\n    ! Free pointer memory\n    Spc => NULL()\n\n  END SUBROUTINE SETTLEDUST\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emissdust\n!\n! !DESCRIPTION: Subroutine EMISSDUST is the driver routine for the dust\n!  emission module.  You may call either the GINOUX or the DEAD dust source\n!  function.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EMISSDUST( Input_Opt,  State_Chm, State_Diag, &\n                        State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : DEBUG_MSG\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TOMAS_MOD,          ONLY : XK\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  30 Mar 2004 - T. D. Fairlie - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL,  SAVE    :: FIRST = .TRUE.\n\n    ! Non-SAVEd scalars\n    LOGICAL           :: LDEAD\n    LOGICAL           :: LDUST\n    LOGICAL           :: LINTERP\n    INTEGER           :: I, J, K, N\n    REAL(fp)          :: MEMIS\n    REAL(fp)          :: MINIT(State_Grid%NX,State_Grid%NY,1,State_Chm%nTomasBins)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !=================================================================\n    ! EMISSDUST begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at EMISSDUST (in module GeosCore/dust_mod.F)'\n\n    ! Initialize\n    LDEAD     =  Input_Opt%LDEAD\n    LDUST     =  Input_Opt%LDUST\n\n    ! Execute on first-call only\n    IF ( FIRST ) THEN\n\n       ! Return if dust ID flags are not defined\n       IF ( id_DUST01 == 0 ) THEN\n          IF ( LDUST ) THEN\n             ErrMsg = 'LDUST=T but dust species are undefined!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    !=================================================================\n    ! For TOMAS microphysics\n    !=================================================================\n    IF ( id_NK01 > 0 .and. id_DUST01 > 0 ) THEN\n\n       DO N = 1, State_Chm%nTomasBins\n          MINIT(:,:,1,N) = Spc(id_DUST01+N-1)%Conc(:,:,1)\n       ENDDO\n\n       IF ( LDEAD ) THEN\n          ! still didn't figure out why run would crash w/ this option\n          ! (win, 7/17/09)\n          PRINT*,'Currently the TOMAS code does not work with ', &\n                 'dust DEAD emission yet!  Switch to GINOUX for now'\n          STOP\n\n       ELSE\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### EMISSDUST: a SRC_DUST_GINOUX')\n          ENDIF\n       ENDIF\n\n    ENDIF\n\n    ! Free pointers\n    Spc => NULL()\n\n  END SUBROUTINE EMISSDUST\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dry_settling\n!\n! !DESCRIPTION: Subroutine DRY\\_SETTLING computes the dry settling of\n!  dust species.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DRY_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                           State_Met, Ind0,      Ind1,       RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE Species_Mod,        ONLY : Species, SpcConc\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: Ind0        ! Starting dust species #\n    INTEGER,        INTENT(IN)    :: Ind1        ! Ending   dust species #\n!\n! !INPUT/OUTPUT PARAMETERS\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  30 Mar 2004 - T. D. Fairlie - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                :: I,        J,     L\n    INTEGER                :: N,        NA,    ND,   S\n    REAL(fp)               :: DT_SETTL, DELZ,  DELZ1\n    REAL(fp)               :: REFF,     DEN,   CONST\n    REAL(fp)               :: NUM,      LAMDA, FLUX\n    REAL(fp)               :: AREA_CM2, TC0(State_Grid%NZ)\n    REAL(fp)               :: TOT1,     TOT2\n\n    ! Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n    REAL(fp)               :: P\n\n    ! Diameter of aerosol [um]\n    REAL(fp)               :: Dp\n\n    ! Pressure * DP\n    REAL(fp)               :: PDp\n\n    ! Temperature (K)\n    REAL(fp)               :: TEMP\n\n    ! Slip correction factor\n    REAL(fp)               :: Slip\n\n    ! Viscosity of air (Pa s)\n    REAL(fp)               :: Visc\n\n    ! Settling velocity of particle (m/s)\n    REAL(fp)               :: VTS(State_Grid%NZ)\n\n    ! Pointers\n    TYPE(Species), POINTER :: ThisSpc\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp),  PARAMETER   :: C1 =  0.7674e+0_fp\n    REAL(fp),  PARAMETER   :: C2 =  3.079e+0_fp\n    REAL(fp),  PARAMETER   :: C3 =  2.573e-11_fp\n    REAL(fp),  PARAMETER   :: C4 = -1.424e+0_fp\n\n    !=================================================================\n    ! DRY_SETTLING begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        =  GC_SUCCESS\n    ThisSpc   => NULL()\n    Spc       => State_Chm%Species\n\n    ! Dust settling timestep [s]\n    DT_SETTL  = GET_TS_CHEM()\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,     J,        L,    N,     DEN,  REFF, DP    ) &\n    !$OMP PRIVATE( CONST, AREA_CM2, VTS,  TEMP,  P,    PDP,  SLIP  ) &\n    !$OMP PRIVATE( VISC,  TC0,      DELZ, DELZ1, TOT1, TOT2, FLUX  ) &\n    !$OMP PRIVATE( NA,    ThisSpc,  ND,   S                        )\n\n    ! Loop over only the advected dust species\n    DO NA = Ind0, Ind1\n\n       ! Look up this species in the species database\n       ! NOTE: The advected species are listed first in the main\n       ! species list, so it's OK to use the advected species ID\n       ! to query the Species Database (bmy, 3/16/17)\n       ThisSpc => State_Chm%SpcData(NA)%Info\n\n       ! Get the drydep ID corresponding to this species\n       ND      =  ThisSpc%DryDepId\n\n       ! Density [kg/m3] and radius [m]\n       DEN     =  ThisSpc%Density\n       REFF    =  ThisSpc%Radius\n\n       ! Dp [um] = particle diameter\n       DP      =  2e+0_fp * REFF * 1.e+6_fp\n       CONST   =  2e+0_fp * DEN * REFF**2 * g0 / 9e+0_fp\n\n       ! Loop over grid latitude and longitude\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Surface area [cm2]\n          AREA_CM2 = State_Grid%AREA_M2(I,J) * 1e+4_fp\n\n          ! Initialize settling velocity\n          DO L = 1, State_Grid%NZ\n             VTS(L) = 0e+0_fp\n          ENDDO\n\n          ! Loop over levels\n          DO L = 1, State_Grid%NZ\n\n             ! Get P [kPa], T [K], and P*DP\n             ! Use moist air pressure for mean free path (ewl, 3/2/15)\n             P    = State_Met%PMID(I,J,L) * 0.1e+0_fp\n             TEMP = State_Met%T(I,J,L)\n             PDP  = P * DP\n\n             !=====================================================\n             ! # air molecule number density\n             ! num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n             !\n             ! # gas mean free path\n             ! lamda = 1.d6 /\n             !     &   ( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n             !\n             ! # Slip correction\n             ! Slip = 1. + 2. * lamda * (1.257 + 0.4 * &\n             !        exp( -1.1 * Dp / (2. * lamda))) / Dp\n             !=====================================================\n             ! NOTE, Slip correction factor calculations following\n             !       Seinfeld, pp464 which is thought to be more\n             !       accurate but more computation required.\n             !=====================================================\n\n             ! Slip correction factor as function of (P*dp)\n             SLIP = 1e+0_fp + ( 15.60e+0_fp + 7.0e+0_fp * &\n                    EXP(-0.059e+0_fp*PDP) ) / PDP\n\n             !=====================================================\n             ! NOTE, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n             ! which produce slip correction factor with small\n             ! error compared to the above with less computation.\n             !=====================================================\n\n             ! Viscosity [Pa s] of air as a function of temp (K)\n             VISC = 1.458e-6_fp * (TEMP)**(1.5e+0_fp) / &\n                    ( TEMP + 110.4e+0_fp )\n\n             ! Settling velocity [m/s]\n             VTS(L) = CONST * SLIP / VISC\n\n          ENDDO\n\n          ! Method is to solve bidiagonal matrix\n          ! which is implicit and first order accurate in Z\n          DO L = 1, State_Grid%NZ\n             TC0(L) = Spc(NA)%Conc(I,J,L)\n          ENDDO\n\n          ! We know the boundary condition at the model top\n          L           = State_Met%MaxChemLev\n          DELZ        = State_Met%BXHEIGHT(I,J,L)\n          Spc(NA)%Conc(I,J,L) =Spc(NA)%Conc(I,J,L) / &\n                         ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n\n          DO L = State_Met%MaxChemLev-1, 1, -1\n             DELZ         = State_Met%BXHEIGHT(I,J,L)\n             DELZ1        = State_Met%BXHEIGHT(I,J,L+1)\n             Spc(NA)%Conc(I,J,L) = 1.e+0_fp / &\n                            ( 1.e+0_fp + DT_SETTL * VTS(L)   / DELZ ) &\n                            * ( Spc(NA)%Conc(I,J,L) &\n                            + DT_SETTL * VTS(L+1) / DELZ1 &\n                            * Spc(NA)%Conc(I,J,L+1) )\n          ENDDO\n\n          !========================================================\n          ! Dry deposition diagnostic [molec/cm2/s]\n          !========================================================\n          IF ( State_Diag%Archive_DryDepChm .OR. &\n               State_Diag%Archive_DryDep        ) THEN\n             !-----------------------------------------------------\n             ! HISTORY (aka netCDF diagnostics)\n             ! Dry deposition flux loss [molec/cm2/s]\n             !\n             ! NOTE: Eventually think about converting this\n             ! diagnostic to more standard units [kg/m2/s]\n             !-----------------------------------------------------\n             ! Initialize\n             TOT1 = 0e+0_fp\n             TOT2 = 0e+0_fp\n\n             ! Compute column totals of TCO(:) and Spc(N)%Conc(I,J,:)\n             DO L = 1, State_Grid%NZ\n                TOT1 = TOT1 + TC0(L)\n                TOT2 = TOT2 + Spc(NA)%Conc(I,J,L)\n             ENDDO\n\n             ! Convert dust flux from [kg/s] to [molec/cm2/s]\n             FLUX = ( TOT1 - TOT2 ) / DT_SETTL\n             FLUX = FLUX * AVO * ( AIRMW / ThisSpc%Mw_g    ) / &\n                    ( AIRMW * 1.e-3_fp ) / AREA_CM2\n\n             ! Drydep flux in chemistry only\n             S = State_Diag%Map_DryDepChm%id2slot(ND)\n             IF ( S > 0 ) THEN\n                State_Diag%DryDepChm(I,J,S) = FLUX\n             ENDIF\n          ENDIF\n       ENDDO\n       ENDDO\n\n       ! Nullify pointer\n       ThisSpc => NULL()\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    ThisSpc => NULL()\n    Spc     => NULL()\n\n  END SUBROUTINE DRY_SETTLING\n#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dry_settlingbin\n!\n! !DESCRIPTION: Subroutine DRY\\_SETTLINGBIN computes the dry settling of\n!  aerosol tracers. Modified for APM simulation. (G. Luo)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DRY_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                              State_Grid, State_Met, RC)\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Met_Mod,  ONLY : MetState\n    USE PRESSURE_MOD,   ONLY : GET_PCENTER\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n    USE PhysConstants\n    USE APM_INIT_MOD,   ONLY : APMIDS\n    USE APM_INIT_MOD,   ONLY : NCTDST,NDSTB\n    USE APM_INIT_MOD,   ONLY : RDST, DENDST\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)   :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)   :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)   :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)  :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  22 Aug 2011 - G. Luo - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Local variables\n    INTEGER               :: I, J, L, N, K\n    INTEGER               :: IDTEMP\n    REAL*8                :: DT_SETTL, DELZ,  DELZ1\n    REAL*8                :: REFF,     DEN,   CONST\n    REAL*8                :: NUM,      LAMDA, FLUX\n    REAL*8                :: AREA_CM2, TC0(State_Grid%NZ)\n    REAL*8                :: TOT1,     TOT2\n\n    ! Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n    REAL*8                :: P\n\n    ! Diameter of aerosol [um]\n    REAL*8                :: Dp\n\n    ! Pressure * DP\n    REAL*8                :: PDp\n\n    ! Temperature (K)\n    REAL*8                :: TEMP\n\n    ! Slip correction factor\n    REAL*8                :: Slip\n\n    ! Viscosity of air (Pa s)\n    REAL*8                :: Visc\n\n    ! Settling velocity of particle (m/s)\n    REAL*8                :: VTS(State_Grid%NZ)\n    REAL*8                :: MASS(State_Grid%NZ)\n    REAL*8                :: OLD(State_Grid%NZ,NCTDST)\n\n    ! Make a pointer to the species vector to access concentrations\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! DRY_SETTLINGBIN begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Point to Spc\n    Spc => State_Chm%Species\n\n    ! Aerosol settling timestep [s]\n    DT_SETTL = GET_TS_CHEM()\n\n    IDTEMP = APMIDS%id_DSTBIN1+NDSTB-1\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, N, K, DEN, REFF, DP )       &\n    !$OMP PRIVATE( CONST, VTS, TEMP, P, PDP, SLIP )     &\n    !$OMP PRIVATE( MASS, OLD, VISC, TC0, DELZ, DELZ1  ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero private loop variables\n       CONST = 0.0_fp\n       DELZ  = 0.0_fp\n       DELZ1 = 0.0_fp\n       DEN   = 0.0_fp\n       DP    = 0.0_fp\n       MASS  = 0.0_fp\n       OLD   = 0.0_fp\n       P     = 0.0_fp\n       PDP   = 0.0_fp\n       REFF  = 0.0_fp\n       SLIP  = 0.0_fp\n       TEMP  = 0.0_fp\n       TC0   = 0.0_fp\n       VISC  = 0.0_fp\n       VTS   = 0.0_fp\n\n       DO L = 1, State_Grid%NZ\n          DO N = APMIDS%id_DSTBIN1, IDTEMP\n             MASS(L) = MASS(L) + Spc(N)%Conc(I,J,L)\n          ENDDO\n          DO K = 1, NCTDST\n             OLD(L,K) = Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L)\n             Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L) = 0.D0\n          ENDDO\n       ENDDO\n\n       ! Loop over aerosol bins\n       DO N = 1, NDSTB\n          DO L = 1, State_Grid%NZ\n             TC0(L) = Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L)\n\n             IF(TC0(L)>1.D-30)THEN\n                ! Initialize\n                DEN   = DENDST(N)*1.d3\n                REFF  = RDST(N)\n                DP    = 2D0 * REFF * 1.D6 ! Dp [um] = particle diameter\n                CONST = 2D0 * DEN * REFF**2 * g0 / 9D0\n\n                ! Get P [kPa], T [K], and P*DP\n                P    = GET_PCENTER(I,J,L) * 0.1d0\n                TEMP = State_Met%T(I,J,L)\n                PDP  = P * DP\n\n                ! Slip correction factor as function of (P*dp)\n                SLIP = 1d0 + ( 15.60d0 + 7.0d0 * EXP(-0.059d0*PDP) ) / PDP\n\n                ! Viscosity [Pa s] of air as a function of temp (K)\n                VISC = 1.458d-6 * (TEMP)**(1.5d0) / ( TEMP + 110.4d0 )\n\n                ! Settling velocity [m/s]\n                VTS(L) = CONST * SLIP / VISC\n             ELSE\n                VTS(L) = 0.D0\n             ENDIF\n\n          ENDDO\n\n          ! Method is to solve bidiagonal matrix\n          ! which is implicit and first order accurate in Z\n          L = State_Grid%NZ\n          IF(MASS(L)>1.D-30)THEN\n             DELZ = State_Met%BXHEIGHT(I,J,L)\n\n             Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) = &\n                  Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) / &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n\n             DO K = 1, NCTDST\n                Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L) = &\n                     Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L)+ &\n                     OLD(L,K)*TC0(L)/MASS(L) / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n             ENDDO\n          ENDIF\n\n          DO L = State_Grid%NZ-1, 1, -1\n             IF((MASS(L)*MASS(L+1))>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * (Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) &\n                     + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTDST\n                   Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L) = &\n                        Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L)+ &\n                        1.e+0_fp / ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                        * (OLD(L,K)*TC0(L)/MASS(L) &\n                        + DT_SETTL * VTS(L+1) / DELZ1 &\n                        * OLD(L+1,K)*TC0(L+1)/MASS(L+1) )\n                ENDDO\n             ELSE IF(MASS(L)>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * (Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) &\n                     + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTDST\n                   Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L) = &\n                        Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L)+ &\n                        1.e+0_fp / ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                        * OLD(L,K)*TC0(L)/MASS(L)\n                ENDDO\n             ELSE IF(MASS(L+1)>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                     * (Spc(APMIDS%id_DSTBIN1+N-1)%Conc(I,J,L) &\n                     + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTDST\n                   Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L) = &\n                        Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L)+ &\n                        1.e+0_fp / ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                        * DT_SETTL * VTS(L+1) / DELZ1 &\n                        * OLD(L+1,K)*TC0(L+1)/MASS(L+1)\n                ENDDO\n             ENDIF\n\n          ENDDO\n\n       ENDDO\n\n       DO L = 1, State_Grid%NZ\n          DO K = 1, NCTDST\n             Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L) = &\n                  MAX(1.d-30,Spc(APMIDS%id_CTDST+K-1)%Conc(I,J,L))\n          ENDDO\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Clear the pointer\n    Spc => NULL()\n\n  END SUBROUTINE DRY_SETTLINGBIN\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rdust_online\n!\n! !DESCRIPTION: Subroutine RDUST\\_ONLINE reads global mineral dust\n!  concentrations as determined by P. Ginoux.  Calculates dust optical\n!  depth at each level for the FAST-J routine \"set\\_prof.f\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RDUST_ONLINE(  Input_Opt, State_Chm, State_Diag, State_Grid, &\n                            State_Met, ODSWITCH,   RC                    )\n!\n! !USES:\n!\n    USE CMN_Size_MOD,       ONLY : NDUST\n#ifdef RRTMG\n    USE CMN_Size_MOD,       ONLY : NAER\n#endif\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt     ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid    ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met     ! Meteorology State object\n    INTEGER,        INTENT(IN)  :: ODSWITCH\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Martin, R. Park - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL           :: LINTERP\n    INTEGER           :: I,       J,       L,       N\n    INTEGER           :: NOUT,    S,       W,       IWV\n    INTEGER           :: IIWV,    NWVS,    IDST,    IWV1\n    INTEGER           :: IWV2\n    REAL(fp)          :: XTAU,    XRH,     CRITRH,  ACOEF\n    REAL(fp)          :: BCOEF,   LOGTERM\n\n    ! Arrays\n    LOGICAL           :: LINTERPARR(Input_Opt%NWVSELECT)\n    REAL(fp)          :: MSDENS(NDUST)\n    REAL(fp)          :: tempOD(State_Grid%NX,State_Grid%NY,               &\n                                State_Grid%NZ,NDUST,         3)\n\n    ! Pointers to State_Chm%Phot\n    INTEGER,  POINTER :: IWVREQUIRED(:)\n    INTEGER,  POINTER :: IWVSELECT  (:,:)\n    REAL*8,   POINTER :: ACOEF_WV (:)\n    REAL*8,   POINTER :: BCOEF_WV (:)\n    REAL*8,   POINTER :: REAA     (:,:,:)\n    REAL*8,   POINTER :: QQAA     (:,:,:,:)\n    REAL*8,   POINTER :: SSAA     (:,:,:,:)\n    REAL*8,   POINTER :: ASYMAA   (:,:,:,:)\n    REAL(fp), POINTER :: ODMDUST  (:,:,:,:,:)\n#ifdef RRTMG\n    REAL*8,   POINTER :: RTODAER  (:,:,:,:,:)\n    REAL*8,   POINTER :: RTSSAER  (:,:,:,:,:)\n    REAL*8,   POINTER :: RTASYMAER(:,:,:,:,:)\n#endif\n\n    ! Other pointers\n    REAL(fp), POINTER :: ERADIUS(:,:,:,:)\n    REAL(fp), POINTER :: TAREA(:,:,:,:)\n    REAL(fp), POINTER :: WERADIUS(:,:,:,:)\n    REAL(fp), POINTER :: WTAREA(:,:,:,:)\n    REAL(fp), POINTER :: DUST(:,:,:,:)\n\n    !=================================================================\n    ! RDUST_ONLINE begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        =  GC_SUCCESS\n\n    ! Initialize pointers\n\n    IWVREQUIRED => State_Chm%Phot%IWVREQUIRED ! WL indexes for interpolation\n    IWVSELECT   => State_Chm%Phot%IWVSELECT   ! Indexes of requested WLs\n    ACOEF_WV    => State_Chm%Phot%ACOEF_WV    ! Coeffs for WL interpolation\n    BCOEF_WV    => State_Chm%Phot%BCOEF_WV    ! Coeffs for WL interpolation\n    REAA        => State_Chm%Phot%REAA\n    QQAA        => State_Chm%Phot%QQAA\n    SSAA        => State_Chm%Phot%SSAA\n    ASYMAA      => State_Chm%Phot%ASYMAA\n    ODMDUST     => State_Chm%Phot%ODMDUST\n#ifdef RRTMG\n    RTODAER     => State_Chm%Phot%RTODAER     ! Optical dust\n    RTSSAER     => State_Chm%Phot%RTSSAER\n    RTASYMAER   => State_Chm%Phot%RTASYMAER\n#endif\n\n\n    ERADIUS   => State_Chm%AeroRadi     ! Aerosol Radius     [cm]\n    TAREA     => State_Chm%AeroArea     ! Aerosol Area       [cm2/cm3]\n    WERADIUS  => State_Chm%WetAeroRadi  ! Wet Aerosol Radius [cm]\n    WTAREA    => State_Chm%WetAeroArea  ! Wet Aerosol Area   [cm2/cm3]\n    DUST      => State_Chm%SoilDust     ! Dust aerosol Conc. [kg/m3]\n\n    ! Index for dust in ODAER and LUT arrays\n    IDST      = 8\n\n    ! Get dust density from species database (assume dust bin ID is contiguous)\n    DO N = 1, NDUST\n      MSDENS(N) = State_Chm%SpcData(id_DSTbin1+N-1)%Info%Density\n    ENDDO\n\n    ! Critical RH, above which heteorogeneous chem takes place (tmf, 6/14/07)\n    CRITRH = 35.0e+0_fp   ! [%]\n\n    !=================================================================\n    ! Convert concentration [kg/m3] to optical depth [unitless].\n    !\n    ! ODMDUST = ( 0.75 * BXHEIGHT * CONC * QAA ) /\n    !           ( MSDENS * RAA * 1e-6 )\n    ! (see Tegen and Lacis, JGR, 1996, 19237-19244, eq. 1)\n    !\n    !  Units ==> DUST     [ kg/m3    ]\n    !            MSDENS   [ kg/m3    ]\n    !            RAA      [ um       ]\n    !            BXHEIGHT [ m        ]\n    !            QAA      [ unitless ]\n    !            ODMDUST  [ unitless ]\n    !\n    ! NOTES:\n    ! (1) Do the calculation at QAA(IND999,:) (i.e. 999 nm).\n    !=================================================================\n    ! DAR Oct 2012\n    ! if the call is from chemistry (ODSWITCH=0) only need one wavelength\n    ! if radiation on (LRAD=TRUE) then cycle over all LUT wavelengths\n    ! if radiation off but call is for AOD then cycle over the\n    ! wavelength required or the wavelengths between which to\n    ! interpolate\n\n    IF (ODSWITCH .EQ. 0) THEN\n       NWVS   = 1\n    ELSE\n       IF ( Input_Opt%LRAD ) THEN !Loop over all RT wavelengths (30)\n          ! plus any required for calculating the AOD\n          NWVS   = State_Chm%Phot%NWVAART + State_Chm%Phot%NWVREQUIRED\n       ELSE                       !Loop over wavelengths needed (from RD_AOD)\n          NWVS   = State_Chm%Phot%NWVREQUIRED\n       ENDIF\n    ENDIF\n\n    DO IIWV = 1, NWVS\n       ! get current wavelength index\n       ! (specified by user or all wavelengths for RRTMG)\n       ! (1000nm always used for FAST-J and stored in first index)\n       IF (ODSWITCH .EQ. 0) THEN\n          ! only doing for 1000nm i.e. IWV=10 in LUT\n          ! N.B. NWVS is fixed to 1 above - only one wavelength\n          IWV=State_Chm%Phot%IWV1000\n       ELSE\n          IF ( Input_Opt%LRAD ) THEN\n             ! RRTMG wavelengths begin after NWVAA0 standard wavelengths\n             ! but add on any others required\n             IF (IIWV.LE.State_Chm%Phot%NWVAART) THEN\n                !index of RRTMG wavelengths starts after the standard NWVAA0\n                !(currently NWVAA0=11, hard-coded in phot_container_mod based\n                !on the .dat LUT)\n                IWV = IIWV + State_Chm%Phot%NWVAA0\n             ELSE\n                !now we calculate at wvs for the requested AOD\n                !offset index by NWVAART i.e. start from 1\n                IWV = IWVREQUIRED(IIWV-State_Chm%Phot%NWVAART)\n             ENDIF\n          ELSE\n             ! IWVREQUIRED lists the index of requires standard wavelengths\n             IWV = IWVREQUIRED(IIWV)\n          ENDIF\n       ENDIF\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, N )\n       DO N = 1, NDUST\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! dust stored in the IDST species bin of LUT variables\n          ! use REAA instead of RDAA (D. Zhang, Jun 28, 2024)\n          ODMDUST(I,J,L,IWV,N) =                                             &\n               0.75e+0_fp *                                                  &\n               State_Met%BXHEIGHT(I,J,L) *                                   &\n               DUST(I,J,L,N) * QQAA(IWV,N,IDST,State_Chm%Phot%DRg)  /        &\n               ( MSDENS(N) * REAA(N,IDST,State_Chm%Phot%DRg) * 1.0e-6_fp)\n\n#ifdef RRTMG\n          !add dust optics to the RT code arrays\n          !SSA and ASYM copying seems a little redundant...\n          !will keep this way for uniformity for now but\n          !possibly could deal with SSA and ASYM in RT module\n          RTODAER(I,J,L,IWV,NAER+2+N) = ODMDUST(I,J,L,IWV,N)\n          RTSSAER(I,J,L,IWV,NAER+2+N) = SSAA(IWV,N,IDST,State_Chm%Phot%DRg)\n          RTASYMAER(I,J,L,IWV,NAER+2+N) = ASYMAA(IWV,N,IDST,State_Chm%Phot%DRg)\n#endif\n\n       ENDDO\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDDO !wavelength loop\n\n    !==============================================================\n    ! Calculate Dust Surface Area\n    !\n    ! Units ==> DUST     [ kg dust/m^3 air    ]\n    !           MSDENS   [ kg dust/m^3 dust   ]\n    !           RAA      [ um                 ]\n    !           TAREA    [ cm^2 dust/cm^3 air ]\n    !           ERADIUS  [ cm                 ]\n    !\n    ! NOTE: first find volume of dust (cm3 dust/cm3 air), then\n    !       multiply by 3/radius to convert to surface area in cm2\n    !\n    ! TAREA(:,1:NDUST) and ERADIUS(:,1:NDUST) are for\n    ! the NDUST FAST-J dust wavelength bins (read into DUST)\n    !==============================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, N, XRH )\n    DO N = 1, NDUST\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       ERADIUS(I,J,L,N) = REAA(N,IDST,State_Chm%Phot%DRg) * 1.0e-4_fp\n\n       TAREA(I,J,L,N)   = 3.e+0_fp / ERADIUS(I,J,L,N) * &\n                          DUST(I,J,L,N) / MSDENS(N)\n\n       ! Archive WTAREA and WERADIUS when RH > 35%  (tmf, 6/13/07)\n       ! Get RH\n       XRH                = State_Met%RH( I, J, L )  ! [%]\n       WTAREA(I,J,L, N)   = 0.e+0_fp\n       WERADIUS(I,J,L, N) = 0.e+0_fp\n\n       IF ( XRH >= CRITRH ) THEN\n          WTAREA(I,J,L, N)   = TAREA(I,J,L, N)\n          WERADIUS(I,J,L, N) = ERADIUS(I,J,L, N)\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    IF ( State_Diag%Archive_AOD .AND. ODSWITCH .EQ. 1 ) THEN\n\n       ! Initialize local arrays\n       tempOD = 0.0_fp\n       LINTERPARR(:) = .FALSE.\n\n       ! Interpolate?\n       DO W = 1, Input_Opt%NWVSELECT\n          IF (IWVSELECT(1,W).EQ.IWVSELECT(2,W)) THEN\n             LINTERPARR(W) =.FALSE.\n          ELSE\n             LINTERPARR(W) =.TRUE.\n          ENDIF\n       ENDDO\n\n       ! Loop over dust bins, # of wavelengths, and all grid cells\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, N, W, NOUT, LINTERP, S )\n       DO W = 1, Input_Opt%NWVSELECT\n       DO N = 1, NDUST\n       DO L = 1, State_Met%MaxChemLev\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          IF ( .not. LINTERPARR(W) ) THEN\n\n             tempOD(I,J,L,N,W) = ODMDUST(I,J,L,IWVSELECT(1,W),N)\n\n          ELSEIF ((ODMDUST(I,J,L,IWVSELECT(1,W),N).GT.0).AND. &\n                  (ODMDUST(I,J,L,IWVSELECT(2,W),N).GT.0)) THEN\n\n             ! Interpolate using angstrom exponent between\n             ! closest available wavelengths (coefs pre-calculated\n             ! in CALC_AOD)\n             ! AOD sometimes zero (if Q zero), must catch this!\n             tempOD(I,J,L,N,W) = &\n                  ODMDUST(I,J,L,IWVSELECT(2,W),N)* &\n                  ACOEF_WV(W)**(BCOEF_WV(W)*LOG( &\n                  ODMDUST(I,J,L,IWVSELECT(1,W),N)/ &\n                  ODMDUST(I,J,L,IWVSELECT(2,W),N)))\n\n          ENDIF\n\n          !---------------------------------------------------\n          ! Set size-resolved dust optical depth diagnostic\n          !---------------------------------------------------\n          IF ( State_Diag%Archive_AODDustWL1 .AND. W == 1 ) THEN\n             S = State_Diag%Map_AODDustWL1%id2slot(N)\n             IF ( S > 0 ) THEN\n                State_Diag%AODDustWL1(I,J,L,S) = tempOD(I,J,L,N,1)\n             ENDIF\n          ENDIF\n\n          IF ( State_Diag%Archive_AODDustWL2 .AND. W == 2 ) THEN\n             S = State_Diag%Map_AODDustWL2%id2slot(N)\n             IF ( S > 0 ) THEN\n                State_Diag%AODDustWL2(I,J,L,S) = tempOD(I,J,L,N,2)\n             ENDIF\n          ENDIF\n\n          IF ( State_Diag%Archive_AODDustWL3 .AND. W == 3 ) THEN\n             S = State_Diag%Map_AODDustWL3%id2slot(N)\n             IF ( S > 0 ) THEN\n                State_Diag%AODDustWL3(I,J,L,S) = tempOD(I,J,L,N,3)\n             ENDIF\n          ENDIF\n\n       ENDDO ! longitude\n       ENDDO ! latitude\n       ENDDO ! level\n       ENDDO ! bin\n       ENDDO ! wavelength\n       !$OMP END PARALLEL DO\n\n       !---------------------------------------------------\n       ! Set dust optical depth diagnostic\n       !---------------------------------------------------\n       IF ( State_Diag%Archive_AODDust ) THEN\n          !$OMP PARALLEL DO       &\n          !$OMP DEFAULT( SHARED ) &\n          !$OMP PRIVATE( I, J, L )\n          DO L = 1, State_Met%MaxChemLev\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             State_Diag%AODDust(I,J,L) = SUM( tempOD(I,J,L,:,:) )\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n       ENDIF\n\n    ENDIF\n\n    ! Archive total dust surface area (sum across all bins)\n    IF ( State_Diag%Archive_AerSurfAreaDust ) THEN\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L )\n       DO L = 1, State_Met%MaxChemLev\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          State_Diag%AerSurfAreaDust(I,J,L) = SUM( TAREA(I,J,L,1:NDUST) )\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    ! Free pointers\n    IWVREQUIRED => NULL()\n    IWVSELECT   => NULL()\n    ACOEF_WV    => NULL()\n    BCOEF_WV    => NULL()\n    REAA        => NULL()\n    QQAA        => NULL()\n    SSAA        => NULL()\n    ASYMAA      => NULL()\n    ODMDUST     => NULL()\n#ifdef RRTMG\n    RTODAER     => NULL()\n    RTSSAER     => NULL()\n    RTASYMAER   => NULL()\n#endif\n    ERADIUS  => NULL()\n    TAREA    => NULL()\n    WERADIUS => NULL()\n    WTAREA   => NULL()\n    DUST     => NULL()\n\n  END SUBROUTINE RDUST_ONLINE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_dust_alk\n!\n! !DESCRIPTION: Subroutine GET\\_DUST\\_ALK returns: (1) dust alkalinity,\n!  ALK\\_d(NDSTBIN) [v/v], (2) rate coefficients, KTS(NDSTBIN), KTN(NDSTBIN),\n!  for uptake of SO2 and HNO3 on dust for use in sulfate\\_mod.f for chemistry\n!  on dust aerosols, (3) fraction, KTH(NDSTBIN), of the size-weighted total\n!  area of aerosols in the grid box. GET\\_DUST\\_ALK is analogous to GET\\_ALK\n!  for seasalt (bec, 12/7/04; tdf 04/08/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_DUST_ALK( I, J, L, ALK_d, KTS, KTN, KTH, &\n                           Input_Opt, State_Met, State_Chm )\n!\n! !USES:\n!\n    USE CMN_SIZE_MOD,       ONLY : NDUST, NDSTBIN\n    USE ERROR_MOD,          ONLY : IT_IS_NAN\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants,      ONLY : PI, AIRMW\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L        ! Grid box indices\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt      ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met      ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm      ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: ALK_d(NDSTBIN) ! Dust alkalinity [v/v]\n    REAL(fp),       INTENT(OUT)   :: KTS  (NDSTBIN) ! Rate coef for uptake of\n                                                    ! SO2 on dust [s-1]\n    REAL(fp),       INTENT(OUT)   :: KTN  (NDSTBIN) ! Rate coef for uptake of\n                                                    ! HNO3 on dust [s-1]\n    REAL(fp),       INTENT(OUT)   :: KTH  (NDSTBIN) ! Fraction of the size-\n                                                    ! weighted total area\n                                                    ! of aerosols in grid box\n!\n! !REVISION HISTORY:\n!  08 Apr 2008 - T.D. Fairlie- Initial version\n!  05 Mar 2025 - D. Zhang - Modified to 7 dust bins\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: MINDAT = 1.d-20\n\n    ! Need this for dust\n    !REAL(fp), PARAMETER :: GAMMA_SO2 = 0.05d0  !(Song & Carmichael, 2001)\n    ! 200 times smaller 8/28/2K9\n    REAL(fp), PARAMETER :: GAMMA_SO2 = 2.5d-4\n\n    !tdf V9 4/1/2K9 Applying Song et al.(2007) reduced value\n    REAL(fp), PARAMETER :: GAMMA_H2SO4 = 1.d0\n\n    !  Need this for dust\n    !REAL(fp), PARAMETER :: GAMMA_HNO3 = 0.1d0 ! (Song & Carmichael, 2001)\n    ! 200 times smaller 8/28/2K9\n    REAL(fp), PARAMETER :: GAMMA_HNO3 = 5.0d-4\n\n    REAL(fp), PARAMETER :: DG = 0.2d0 ! gas phase diffusion coeff. [cm2/s]\n    REAL(fp), PARAMETER :: v = 3.0d4  ! cm/s\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: IRH\n    INTEGER             :: IBIN, ISBIN\n    REAL(fp)            :: N1, KT1, KT1N\n    REAL(fp)            :: AREA, HGF\n    REAL(fp)            :: CONST1, CONST2, CONST\n    REAL(fp)            :: AIR_DENS\n    REAL(fp)            :: A1, B1, A1N, B1N, T1, R1\n    REAL(fp)            :: DD, RD, DM\n    REAL(fp)            :: TOTAL_AREA, DF_TOTAL_AREA\n    REAL(fp)            :: DST_d (NDSTBIN), ALK, GAMS, GAMN\n    REAL(fp)            :: SULF_AREA, BC_AREA, OC_AREA\n    REAL(fp)            :: SULF_RAD, BC_RAD, OC_RAD\n    REAL(fp)            :: SULF_FAC, BC_FAC, OC_FAC\n    REAL(fp)            :: SSA_AREA, SSC_AREA\n    REAL(fp)            :: SSA_RAD, SSC_RAD\n    REAL(fp)            :: SSA_FAC, SSC_FAC\n    LOGICAL, SAVE       :: FIRST = .TRUE.\n\n    ! Arrays\n    ! Dust Surface Areas                                ! tdf 08/20/09\n    REAL(fp)            :: AREA_d(NDSTBIN)              ! [cm^2/cm^3]\n\n    ! Dust Effective Radius                             ! tdf 08/20/09\n    REAL(fp)            :: RD_d(NDSTBIN)                ! [cm]\n\n    ! Dust size-weighted Surface Areas                  ! tdf 08/20/09\n    REAL(fp)            :: DF_AREA_d(NDSTBIN)           ! [1/s]\n\n    ! Molecular weights\n    REAL(fp)            :: MW_DST\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(fp), POINTER      :: ERADIUS(:,:,:,:)\n    REAL(fp), POINTER      :: TAREA(:,:,:,:)\n\n    !=================================================================\n    ! GET_DUST_ALK begins here!\n    !=================================================================\n\n    ! Initialize pointers\n    Spc      => State_Chm%Species\n    ERADIUS  => State_Chm%AeroRadi ! Aerosol Radius [cm]\n    TAREA    => State_Chm%AeroArea ! Aerosol Area [cm2/cm3]\n\n    ! Get MWs from species database\n    MW_DST = State_Chm%SpcData(id_DSTbin1)%Info%MW_g\n\n    ! Zero variables\n    DO IBIN = 1, NDSTBIN\n       ALK_d (IBIN)  = 0.0e+0_fp\n       KTS   (IBIN)  = 0.0e+0_fp\n       KTN   (IBIN)  = 0.0e+0_fp\n       KTH   (IBIN)  = 0.0e+0_fp\n       AREA_d (IBIN) = 0.0e+0_fp\n       RD_d (IBIN)   = 0.0e+0_fp\n    END DO\n\n    ! Air density [kg/m3]\n    AIR_DENS = State_Met%AD(I,J,L) / State_Met%AIRVOL(I,J,L)\n\n    ! Retrieve Dust Alkalinity [v/v dry from Spc array (Update to 7 dust bins. D. Zhang, 5 Mar 2025)\n    ALK_d(1) = Spc(id_DALbin1)%Conc(I,J,L)\n    ALK_d(2) = Spc(id_DALbin2)%Conc(I,J,L)\n    ALK_d(3) = Spc(id_DALbin3)%Conc(I,J,L)\n    ALK_d(4) = Spc(id_DALbin4)%Conc(I,J,L)\n    ALK_d(5) = Spc(id_DALbin5)%Conc(I,J,L)\n    ALK_d(6) = Spc(id_DALbin6)%Conc(I,J,L)\n    ALK_d(7) = Spc(id_DALbin7)%Conc(I,J,L)\n\n    ! Dust [kg/m3] from Spc, used to compute dust surface area\n    ! Units: (moles/mole).(kg(air)/m3).(kg(dust)/mole)/(kg(air)/mole)\n    ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n    DST_d(1) = Spc(id_DSTbin1)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n    DST_d(2) = Spc(id_DSTbin2)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n    DST_d(3) = Spc(id_DSTbin3)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n    DST_d(4) = Spc(id_DSTbin4)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n    DST_d(5) = Spc(id_DSTbin5)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n    DST_d(6) = Spc(id_DSTbin6)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n    DST_d(7) = Spc(id_DSTbin7)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST )\n\n    ! tdf Now get aerosol surface area from TAREA (cm2/cm3)\n    SULF_AREA = TAREA(I,J,L,NDUST+1)\n    BC_AREA   = TAREA(I,J,L,NDUST+2)\n    OC_AREA   = TAREA(I,J,L,NDUST+3)\n    SSA_AREA  = TAREA(I,J,L,NDUST+4)\n    SSC_AREA  = TAREA(I,J,L,NDUST+5)\n\n    ! tdf Now get aerosol effective radius from ERADIUS (cm)\n    SULF_RAD  = ERADIUS(I,J,L,NDUST+1)\n    BC_RAD    = ERADIUS(I,J,L,NDUST+2)\n    OC_RAD    = ERADIUS(I,J,L,NDUST+3)\n    SSA_RAD   = ERADIUS(I,J,L,NDUST+4)\n    SSC_RAD   = ERADIUS(I,J,L,NDUST+5)\n\n    ! tdf Quotients [s/cm] used to weight surface area for H2SO4 uptake\n    SULF_FAC = (SULF_RAD / DG + 4.e+0_fp/(V*GAMMA_H2SO4) )\n    BC_FAC   = (  BC_RAD / DG + 4.e+0_fp/(V*GAMMA_H2SO4) )\n    OC_FAC   = (  OC_RAD / DG + 4.e+0_fp/(V*GAMMA_H2SO4) )\n    SSA_FAC  = ( SSA_RAD / DG + 4.e+0_fp/(V*GAMMA_H2SO4) )\n    SSC_FAC  = ( SSC_RAD / DG + 4.e+0_fp/(V*GAMMA_H2SO4) )\n\n    !-----------------------------------------------------------------------\n    ! Very Simple Formulation: For each size bin (i)   ! tdf 8/20/09\n    ! Dust Area density = 3 * Dust Mass density  / (REFF(i) * DUSTDEN)\n    ! TAREA computed   in RDUST_ONLINE - Units: cm^2(dust) / cm^3(air)\n    ! ERADIUS computed in RDUST_ONLINE - Units: cm\n    ! NB: I am now subdividing the submicron dust size bin\n    !     using TAREA (I,J,L,1->4), and ERADIUS (I,J,L,1->4).\n    !-----------------------------------------------------------------------\n\n    !-------------------------------------------------------------------------\n    !  Find Dust surface area density in grid-box, AREA_d [cm^2/cm^3].\n    !  Also find the size-weighted surface area density, DF_AREA_d [1/s].\n    !  The latter represents the gas-phase diffusion and surface\n    !  limited weighting and is used to determine the fraction of H2SO4\n    !  taken up on dust, versus taken up on other aerosols.\n    !                                                 tdf 08/21/09\n    !-------------------------------------------------------------------------\n\n    ! tdf Loop over size bins  (NDSTBIN = 4)\n    ! Update to 7 size bins (NDSTBIN = 7) (D. Zhang, 5 Mar 2025)\n    DO IBIN = 1, NDSTBIN\n\n       ! Dust Area density in grid box,      AREA_d [cm^2/cm^3]    tdf 8/21/09\n       ! Dust weighted surface area density, DF_AREA_d [1/s]       tdf 8/21/09\n\n      T1 = TAREA(I,J,L,IBIN)      ! [cm^2/cm^3]\n      R1 = ERADIUS(I,J,L,IBIN)    ! [cm]\n      RD_d     (IBIN) = R1\n      AREA_d   (IBIN) = T1          ! [cm^2/cm^3]\n      DF_AREA_d(IBIN) = T1 / (R1/DG + 4.0D0/(V*GAMMA_H2SO4)) ! [1/s]\n\n    END DO\n\n    ! tdf total aerosol surface area  [cm^2/cm^3]\n    ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n    TOTAL_AREA = SULF_AREA + BC_AREA + OC_AREA + SSA_AREA  + SSC_AREA + &\n                 AREA_d(1) + AREA_d(2) + AREA_d(3) + AREA_d(4) + AREA_d(5) + AREA_d(6) + AREA_d(7) \n\n    ! tdf total surface area weighted by gas-phase diffusion limitation [1/s]\n    DF_TOTAL_AREA = SULF_AREA / SULF_FAC + &\n                    BC_AREA   / BC_FAC   + &\n                    OC_AREA   / OC_FAC   + &\n                    SSA_AREA  / SSA_FAC  + &\n                    SSC_AREA  / SSC_FAC  + &\n                    DF_AREA_d(1)         + &\n                    DF_AREA_d(2)         + &\n                    DF_AREA_d(3)         + &\n                    DF_AREA_d(4)         + &\n                    DF_AREA_d(5)         + &\n                    DF_AREA_d(6)         + &\n                    DF_AREA_d(7)\n\n    ! tdf Total Dust Alkalinity\n    ALK = ALK_d(1) + ALK_d(2) + ALK_d(3) + ALK_d(4) + ALK_d(5) + ALK_d(6) + ALK_d(7) ! [v/v]\n\n    ! set humidity index IRH as a percent\n    IRH = State_Met%RH(I,J,L)\n    IRH = MAX(  1, IRH )\n    IRH = MIN( 99, IRH )\n\n    ! hygroscopic growth factor for dust: Set to NO GROWTH for now\n    IF ( IRH < 100 ) HGF = 1.0e+0_fp\n\n    ! tdf Loop over size bins (NDSTBIN = 4)\n    DO IBIN = 1, NDSTBIN\n\n       !----------------------------------\n       ! SO2 uptake onto particles\n       !----------------------------------\n\n       !tdf 2/11/2K9\n       !tdf Following relative uptake rates of Preszler-Prince et al.(2007)\n       IF (IRH >= 90 ) THEN\n          GAMS = GAMMA_SO2 * 2.e+0_fp\n       ELSE IF (IRH >= 84 ) THEN\n          GAMS = GAMMA_SO2 * (0.5e+0_fp  + 1.5e+0_fp*(IRH-84.e+0_fp)/ &\n                 (90.e+0_fp-84.e+0_fp))\n       ELSE IF (IRH >= 76 ) THEN\n          GAMS = GAMMA_SO2 * (0.16e+0_fp + 0.34e+0_fp*(IRH-76.e+0_fp)/ &\n                 (84.e+0_fp-76.e+0_fp))\n       ELSE IF (IRH >= 33 ) THEN\n          GAMS = GAMMA_SO2 * (0.03e+0_fp + 0.13e+0_fp*(IRH-33.e+0_fp)/ &\n                 (76.e+0_fp-33.e+0_fp))\n       ELSE IF (IRH >= 20 ) THEN\n          GAMS = GAMMA_SO2*0.03e+0_fp\n       ELSE                        ! 0.0 below 20%\n          GAMS = GAMMA_SO2*0.0e+0_fp\n       ENDIF\n\n       ! Check for sufficient alkalinity          tdf 3/28/2K8\n       IF ( ALK > MINDAT ) THEN\n\n          ! calculate gas-to-particle rate constant for uptake of\n          ! SO2 onto dust aerosols [Jacob, 2000] analytical solution\n          ! Corrected based on discussions with Becky     tdf 07/14/08\n          KT1    = 0.0e+0_fp\n\n          RD     = RD_d (IBIN)              ! effective radius [cm]\n          AREA   = AREA_d (IBIN)            ! Dust Surface Area [cm^2/cm^3]\n\n          ! Prevent divide by zero if GAMS = 0 (tdf, mps, 11/14/13)\n          IF ( GAMS > 0.e+0_fp ) THEN\n             CONST1 = 4.e+0_fp/(V*GAMS)     ! Collision [s/cm]\n             CONST2 = RD/DG                 ! Diffusion [s/cm]\n             CONST  = CONST1 + CONST2\n             KT1    = AREA / CONST          ! [cm^2/cm^3] * [cm/s] = [1/s]\n          ELSE\n             KT1    = 0.0e+0_fp             ! [cm^2/cm^3] * [cm/s] = [1/s]\n          ENDIF\n\n\n          KTS(IBIN) = KT1\n\n       ELSE\n\n          ! If no alkalinity, set rate coefficients to zero\n          !tdf\n          KTS(IBIN)  = 0.0e+0_fp\n\n       ENDIF\n\n       !----------------------------------\n       ! HNO3 uptake onto particles\n       !----------------------------------\n\n       !tdf 2/11/2K9\n       !tdf Following uptake coefficients of Liu et al.(2007)\n       IF (IRH >= 80 ) THEN\n          GAMN = GAMMA_HNO3 * 2.1e+0_fp\n       ELSE IF (IRH >= 70 ) THEN\n          GAMN = GAMMA_HNO3 * (1.3e+0_fp  + 0.7e+0_fp   * &\n                 (IRH - 70.e+0_fp)/ 10.e+0_fp)\n       ELSE IF (IRH >= 60 ) THEN\n          GAMN = GAMMA_HNO3 * (1.0e+0_fp  + 0.3e+0_fp   * &\n                 (IRH - 60.e+0_fp)/  10.e+0_fp)\n       ELSE IF (IRH >= 50 ) THEN\n          GAMN = GAMMA_HNO3 * (0.7e+0_fp  + 0.3e+0_fp   * &\n                 (IRH - 50.e+0_fp)/ 10.e+0_fp)\n       ELSE IF (IRH >= 30 ) THEN\n          GAMN = GAMMA_HNO3 * (0.19e+0_fp + 0.255e+0_fp * &\n                 (IRH - 30.e+0_fp)/ 10.e+0_fp)\n       ELSE IF (IRH >= 10 ) THEN\n          GAMN = GAMMA_HNO3 * (0.03e+0_fp + 0.08e+0_fp  * &\n                 (IRH - 10.e+0_fp)/ 10.e+0_fp)\n       ELSE\n          ! 0.0 below 10%\n          GAMN = GAMMA_HNO3*0.0e+0_fp\n       ENDIF\n\n       ! Check for sufficient alkalinity      tdf 3/28/2K8\n       IF ( ALK > MINDAT ) THEN\n\n          ! calculate gas-to-particle rate constant for uptake of\n          ! HNO3 onto dust aerosols [Jacob, 2000] analytical solution\n          ! Corrected based on discussions with Becky     tdf 07/14/08\n          KT1    = 0.0e+0_fp\n\n          RD     = RD_d (IBIN)              ! effective radius [cm]\n          AREA   = AREA_d (IBIN)            ! Dust Surface Area [cm^2/cm^3]\n\n          ! Prevent divide by zero if GAMN = 0 (tdf, mps, 11/14/13)\n          IF ( GAMN > 0.e+0_fp ) THEN\n             CONST1 = 4.e+0_fp/(V*GAMN)     ! Collision [s/cm]\n             CONST2 = RD/DG                 ! Diffusion [s/cm]\n             CONST  = CONST1 + CONST2\n             KT1    = AREA / CONST          ! [cm^2/cm^3] * [cm/s] = [1/s]\n          ELSE\n             KT1    = 0.0e+0_fp             ! [cm^2/cm^3] * [cm/s] = [1/s]\n          ENDIF\n\n          KTN(IBIN) = KT1\n\n       ELSE\n\n          ! If no alkalinity, set rate coefficients to zero\n          !tdf\n          KTN(IBIN)  = 0.0e+0_fp\n\n       ENDIF\n\n       !----------------------------------\n       ! H2SO4 uptake onto particles\n       !----------------------------------\n\n       ! Uptake not limited by dust alkalinity      tdf 3/02/2K9\n\n       !tdf As of 08/20/09, we use AREA and size weighted uptake\n       !tdf where now KTH is a fractional uptake for each size bin\n       !tdf with respect to total aerosol surface area.\n\n       KT1    = DF_AREA_d(IBIN) / DF_TOTAL_AREA   ! Fraction\n\n       KTH(IBIN) = KT1\n\n    END DO ! tdf End Loop over size bins\n\n    ! Free pointers\n    Spc     => NULL()\n    ERADIUS => NULL()\n    TAREA   => NULL()\n\n  END SUBROUTINE GET_DUST_ALK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_dust\n!\n! !DESCRIPTION: Subroutine INIT\\_DUST allocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_DUST( Input_Opt,  State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants,      ONLY : PI, AIRMW\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n#ifdef TOMAS\n    USE TOMAS_MOD,          ONLY : Xk\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(IN)  :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  30 Mar 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                :: AS, N\n#ifdef TOMAS\n    INTEGER                :: I\n    INTEGER                :: BIN\n#endif\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg\n    CHARACTER(LEN=255)     :: ThisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! INIT_DUST begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    ErrMsg  =  ''\n    ThisLoc =  '-> at INIT_DUST (in module GeosCore/dust_mod.F)'\n    SpcInfo => NULL()\n\n    ! Exit immediately if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !=================================================================\n    ! INITIALIZATION SECTION FOR STANDARD GEOS-CHEM SIMULATION\n    !=================================================================\n\n    !-----------------------------------------------------------------\n    ! DSTbin1 - DSTbin7 species (fullchem + aerosol simulations)\n    !\n    ! NOTE: We can consider removing DUSTDEN and DUSTREFF from\n    ! the Input_Opt object at a later point.  These can be directly\n    ! obtained from the species database object now. (bmy, 6/20/16)\n    !-----------------------------------------------------------------\n    id_DSTbin1 =  Ind_('DSTbin1'    )\n    id_DSTbin2 =  Ind_('DSTbin2'    )\n    id_DSTbin3 =  Ind_('DSTbin3'    )\n    id_DSTbin4 =  Ind_('DSTbin4'    )\n    id_DSTbin5 =  Ind_('DSTbin5'    )\n    id_DSTbin6 =  Ind_('DSTbin6'    )\n    id_DSTbin7 =  Ind_('DSTbin7'    )\n\n    !-----------------------------------------------------------------\n    ! DSTALbin1 - DSTALbin7 and SO4Dbin1 - SO4Dbin7 species\n    ! (acid uptake simulations only)\n    ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n    !-----------------------------------------------------------------\n    id_DALbin1 =  Ind_('DSTALbin1'  )\n    id_DALbin2 =  Ind_('DSTALbin2'  )\n    id_DALbin3 =  Ind_('DSTALbin3'  )\n    id_DALbin4 =  Ind_('DSTALbin4'  )\n    id_DALbin5 =  Ind_('DSTALbin5'  )\n    id_DALbin6 =  Ind_('DSTALbin6'  )\n    id_DALbin7 =  Ind_('DSTALbin7'  )\n\n    ! Error check the dust uptake species\n    IF ( Input_Opt%LDSTUP ) THEN\n       IF ( id_DALbin1 < 0 .or. id_DALbin2 < 0   .or.                    &\n            id_DALbin3 < 0 .or. id_DALbin4 < 0   .or.                    &\n            id_DALbin5 < 0 .or. id_DALbin6 < 0   .or.                    &\n            id_DALbin7 < 0                     ) THEN\n          ErrMsg = 'Dust uptake species are undefined!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n#ifdef TOMAS\n    !=================================================================\n    ! INITIALIZATION SECTION FOR TOMAS MICROPHYSICS\n    !=================================================================\n\n    ! TOMAS species ID flags\n    id_DUST01 = Ind_('DUST01')\n    id_NK01   = Ind_('NK01'  )\n\n    !----------------------------------\n    ! Set up FRAC_S (only for Ginoux)\n    !----------------------------------\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !% NOTE: LDEAD has not been set by HCOI_GC_INIT yet. This code needs %\n    !% to be moved or modified accordingly (mps, 4/9/15)                 %\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !% NOTE: This code replicates the obsolete Input_Opt%IDDEP field,    %\n    !% which has since been removed.  TOMAS TEAM please take note.       %\n    !% (bmy, 3/17/17)                                                    %\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    IF ( .not. Input_Opt%LDEAD ) THEN\n\n       ! Initialize\n       TOMAS_IDDEP = 0\n\n       DO BIN = 1, State_Chm%nTomasBins\n          DO N   = 1, State_Chm%nDryDep\n             IF ( State_Chm%Map_DryDep(N) == ( id_NK01-1+BIN ) )THEN\n                TOMAS_IDDEP(BIN) = N\n                GOTO 100\n             ENDIF\n          ENDDO\n100       CONTINUE\n       ENDDO\n\n    ENDIF\n#endif\n\n#if defined( ESMF_ ) || defined( TOMAS )\n    ! EXPERIMENTAL: For archiving the dust source for GCHP\n    !\n    ! Changed to use the ESMF_ flag and not EXTERNAL_GRID/EXTERNAL_FORCING, as\n    ! WRF-GC which uses these flags does not require SRCE_FUNC (hplin, 1/22/19)\n    ALLOCATE( SRCE_FUNC(State_Grid%NX,State_Grid%NY,3), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SRCE_FUNC' )\n    SRCE_FUNC = 0.e+0_fp\n#endif\n\n  END SUBROUTINE INIT_DUST\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_dust\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_DUST deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_DUST\n!\n! !REVISION HISTORY:\n!  30 Mar 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! CLEANUP_DUST begins here!\n    !=================================================================\n    IF ( ALLOCATED( FRAC_S    ) ) DEALLOCATE( FRAC_S    )\n    IF ( ALLOCATED( SRCE_FUNC ) ) DEALLOCATE( SRCE_FUNC )\n\n  END SUBROUTINE CLEANUP_DUST\n!EOC\nEND MODULE DUST_MOD\n"
  },
  {
    "path": "GeosCore/emissions_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: emissions_mod.F90\n!\n! !DESCRIPTION: Module emissions\\_mod.F90 is a wrapper module to interface\n! GEOS-Chem and HEMCO. It basically just calls the GEOS-Chem - HEMCO interface\n! routines. For some specialty sims, a few additional steps are required that\n! are also executed here.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Emissions_Mod\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Emissions_Init\n  PUBLIC :: Emissions_Run\n  PUBLIC :: Emissions_Final\n!\n! !REVISION HISTORY:\n!  27 Aug 2014 - C. Keller   - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emissions_init\n!\n! !DESCRIPTION: Subroutine EMISSIONS\\_INIT calls the HEMCO - GEOS-Chem\n! interface initialization routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Emissions_Init( Input_Opt, State_Chm, State_Grid, State_Met,  &\n                             RC,        HcoConfig )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Interface_GC_Mod, ONLY : HCoi_GC_Init\n    USE HCO_Types_Mod,        ONLY : ConfigObj\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState),  INTENT(IN   )          :: State_Chm  ! Chemistry state\n    TYPE(GrdState),  INTENT(IN   )          :: State_Grid ! Grid state\n    TYPE(MetState),  INTENT(IN   )          :: State_Met  ! Met state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),  INTENT(INOUT)          :: Input_Opt  ! Input opts\n    INTEGER,         INTENT(INOUT)          :: RC         ! Failure or success\n    TYPE(ConfigObj), POINTER,      OPTIONAL :: HcoConfig  ! HEMCO config object\n!\n! !REVISION HISTORY:\n!  27 Aug 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! EMISSIONS_INIT begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Emissions_Init (in module GeosCore/emissions_mod.F90)'\n\n    ! Initialize the HEMCO environment for this GEOS-Chem run.\n    CALL HCOI_GC_Init( Input_Opt, State_Chm, State_Grid, State_Met, &\n                       RC,        HcoConfig=HcoConfig )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HCOI_GC_Init\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Emissions_Init\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emissions_run\n!\n! !DESCRIPTION: Subroutine EMISSIONS\\_RUN calls the HEMCO - GEOS-Chem\n! interface run routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Emissions_Run( Input_Opt, State_Chm, State_Diag, State_Grid,    &\n                            State_Met, EmisTime,  Phase,      RC            )\n!\n! !USES:\n!\n    USE CARBON_MOD,            ONLY : EmissCarbon\n    USE Carbon_Gases_Mod,      ONLY : CO2_Production\n    USE ErrCode_Mod\n    USE HCO_Interface_GC_Mod,  ONLY : HCOI_GC_Run\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE Mercury_Mod,           ONLY : EmissMercury\n    USE Precision_Mod\n    USE State_Chm_Mod,         ONLY : ChmState\n    USE State_Diag_Mod,        ONLY : DgnState\n    USE State_Grid_Mod,        ONLY : GrdState\n    USE State_Met_Mod,         ONLY : MetState\n    USE Time_Mod,              ONLY : Get_Ts_Emis\n    USE Tracer_Mod,            ONLY : Tracer_Source_Phase\n    Use SfcVmr_Mod,            ONLY : FixSfcVmr_Run\n#ifdef TOMAS\n    USE CARBON_MOD,            ONLY : EmissCarbonTomas\n    USE SULFATE_MOD,           ONLY : EmissSulfateTomas\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN   )  :: EmisTime   ! Emissions in this time step\n    INTEGER,        INTENT(IN   )  :: Phase      ! Run phase\n    TYPE(GrdState), INTENT(IN   )  :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT)  :: State_Chm  ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT)  :: State_Diag ! Diagnostics State object\n    TYPE(MetState), INTENT(INOUT)  :: State_Met  ! Meteorology State object\n    TYPE(OptInput), INTENT(INOUT)  :: Input_Opt  ! Input Options object\n    INTEGER,        INTENT(INOUT)  :: RC         ! Failure or success\n!\n! !REVISION HISTORY:\n!  27 Aug 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! EMISSIONS_RUN begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Emissions_Run (in module GeosCore/emissions_mod.F90)'\n\n    ! Run HEMCO. Phase 1 will only update the HEMCO clock and the\n    ! HEMCO data list, phase 2 will perform the emission calculations.\n    CALL HCOI_GC_Run( Input_Opt, State_Chm, State_Grid, &\n                      State_Met, EmisTime,  Phase,     RC          )\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HCOI_GC_Run\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Exit if Phase 0 or 1, or if it is a GEOS-Chem dry-run\n    IF ( ( Phase == 1 ) .or. ( Phase == 0 ) .or. Input_Opt%DryRun ) RETURN\n\n    ! Call carbon emissions module to make sure that sesquiterpene\n    ! emissions calculated in HEMCO (SESQ) are passed to the internal\n    ! species array in carbon, as well as to ensure that POA emissions\n    ! are correctly treated.\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM   .or. &\n         Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n       CALL EmissCarbon( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"EmissCarbon\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n#ifdef TOMAS\n    ! Call TOMAS emission routines (JKodros 6/2/15)\n    CALL EmissCarbonTomas( Input_Opt, State_Chm, State_Grid, State_Met, &\n               State_Diag,  RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"EmissCarbonTomas\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    CALL EmissSulfateTomas( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"EmissSulfateTomas\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    ! For transport tracer simulation\n    IF ( Input_Opt%ITS_A_TRACER_SIM ) THEN\n       CALL Tracer_Source_Phase( Input_Opt, State_Chm, State_Grid, &\n                                 State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Tracer_Source_Phase\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Carbon simulation (e.g. CO2-CO-CH4-OCS via KPP)\n    !\n    ! Computes CO2 production from CO oxidation\n    IF ( Input_Opt%ITS_A_CARBON_SIM ) THEN\n       CALL CO2_Production( Input_Opt,  State_Chm, State_Diag,            &\n                            State_Grid, State_Met, RC                    )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Emiss_Carbon_Gases\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! For mercury, use old emissions code for now\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n       CALL EmissMercury( Input_Opt,  State_Chm, State_Diag,                 &\n                          State_Grid, State_Met, RC                         )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"EmissMercury\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Prescribe some concentrations if needed\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       ! Set other (non-UCX) fixed VMRs\n       If ( Input_Opt%DoEmissions ) Then\n          CALL FixSfcVMR_Run( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"FixSfcVmr_Run\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDIF\n\n    ENDIF\n\n   END SUBROUTINE EMISSIONS_RUN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emissions_final\n!\n! !DESCRIPTION: Subroutine EMISSIONS\\_FINAL calls the HEMCO - GEOS-Chem\n! interface finalization routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Emissions_Final( Error, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Interface_GC_Mod, ONLY : HCOI_GC_Final\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL, INTENT(IN)  :: Error      ! Cleanup arrays after crash?\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  27 Aug 2014 - C. Keller    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! EMISSIONS_FINAL begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HCOI_GC_Final (in module GeosCore/hcoi_gc_final_mod.F90)'\n\n    ! Finalize HEMCO\n    CALL HCOI_GC_Final( Error, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HCOI_GC_Final\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n  END SUBROUTINE Emissions_Final\n!EOC\nEND MODULE Emissions_Mod\n"
  },
  {
    "path": "GeosCore/exchange_mod.F90",
    "content": "#ifdef EXCHANGE\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: exchange_mod.F90\n!\n! !DESCRIPTION: Module EXCHANGE\\_MOD contains variables and routines which\n!  are used to exchange data between two or more runs (Global Domain and\n!  Nested Domains), thus to combine them into TWO-WAY nested run.\n!  (yanyy, 6/18/14)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE EXCHANGE_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS\n!\n  PUBLIC   :: EXCHANGE_GLOBAL_INIT\n  PUBLIC   :: EXCHANGE_NESTED_INIT\n  PUBLIC   :: EXCHANGE_GLOBAL_POST\n  PUBLIC   :: EXCHANGE_NESTED_PRE\n  PUBLIC   :: EXCHANGE_NESTED_POST\n  PUBLIC   :: ITS_TIME_FOR_EXCHANGE\n  PUBLIC   :: INIT_EXCHANGE\n  PUBLIC   :: CLEANUP_EXCHANGE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n! !REMARKS:\n!  Diagram:\n!\n!                 Global            Nested\n!  Init--------------------------------------------------\n!     |\n!     |        wait for unlock      wait for unlock\n!     |\n!     \\--------------------------------------------------\n!\n!  Loop----------------------------------------------\n!     |    /---------\n!     | phony_ex_global_pre\n!     |    \\---------\n!     |\n!     |        GEOSCHEM STUFF\n!     |\n!     |    /---------\n!     |    |   dump for nested\n!     |    |   done lock                  ---------------\\\n!     |    |                        wait for unlock      |\n!     |    |                        read LBCs         ex_nested_pre\n!     |    |                        (regridded down)        |\n!     | ex_global_post              apply LBCs           |\n!     |    |                              ---------------/\n!     |    |\n!     |    |                        GEOSCHEM STUFF\n!     |    |\n!     |    |                              ---------------\\\n!     |    |                        dump for global(regridded up)\n!     |    |                                          ex_nested_post\n!     |    |                        done lock            |\n!     |    |   wait for unlock            ---------------/\n!     |    |   read & apply feedback\n!     |    \\---------\n!     \\------------------------------------------------\n!\n!\n! !REVISION HISTORY:\n!  30 Mar 2014 - Y.Y. Yan - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!\n! !PRIVATE TYPES:\n!\n  !=================================================================\n  ! MODULE VARIABLES\n  !=================================================================\n  ! Tmp arrays for exchange. Maybe we only need one array, but the\n  ! code would be more difficult to understand.\n  ! TMP_WINDOW is for unit convert, etc.\n  REAL(fp), ALLOCATABLE        :: TMP_WINDOW(:,:,:)\n  !REAL(fp), ALLOCATABLE        :: TMP_WINDOW_CH(:,:,:)\n  REAL(fp)        :: TMP_WINDOW_CH(37,35,47)\n  !REAL(fp), ALLOCATABLE        :: TMP_WINDOW_NA(:,:,:)\n  REAL(fp)        :: TMP_WINDOW_NA(41,31,47)\n  REAL(fp), ALLOCATABLE        :: TMP_WINDOW_EU(:,:,:)\n\n  ! Exchange grid size and offset in global domain.\n  ! I{LAT/LONG}_EX is the size of the window region.\n  ! I{LAT/LONG}_OFF_EX is the window region's LR corner grid in\n  ! global domain.\n  INTEGER                    :: J0_BC, I0_BC\n  INTEGER                    :: J1_BC, I1_BC\n  INTEGER                    :: J2_BC, I2_BC\n  INTEGER                    :: IM_BC, JM_BC\n  INTEGER                    :: I0_BC_CH,I0_BC_NA,I0_BC_EU\n  INTEGER                    :: IM_BC_CH,IM_BC_NA,IM_BC_EU\n  INTEGER                    :: J0_BC_CH,J0_BC_NA,J0_BC_EU\n  INTEGER                    :: JM_BC_CH,JM_BC_NA,JM_BC_EU\n\n  ! R{LAT/LONG}_OFF_EX is nested's start offset in the window region,\n  !     not offset from the global region.\n  ! R{LAT/LONG}_OFF_EX is nested's end point offset in the window\n  !     region. Counted in reversed direction.\n  ! RATIO_{LAT/LONG}_EX is the grid size ratio of global/nested\n  REAL(fp)                     :: RATIO_LONG_EX, RATIO_LAT_EX\n  ! the parameters of boundary when regrid up global domain\n  REAL(fp)                     :: OFFSET_LONG, OFFSET_LAT\n  LOGICAL                    :: IS_GLOBAL_DOMAIN\n  LOGICAL                    :: IS_EXCHANGE\n  CHARACTER*80               :: MY_NAME\n  CHARACTER*80               :: NESTED_CH_NAME = ''\n  CHARACTER*80               :: NESTED_NA_NAME = ''\n  CHARACTER*80               :: NESTED_EU_NAME = ''\n\n  ! EXCHANGE_DIR is added into the run dir for data exchange\n  CHARACTER*256, PARAMETER   :: EXCHANGE_DIR = './exchange'\n  CHARACTER*256              :: DUMP_CSPEC_FNAME = ''\n  CHARACTER*256              :: DUMP_TRACER_FNAME = ''\n  CHARACTER*256              :: LOAD_NA_CSPEC_FNAME = ''\n  CHARACTER*256              :: LOAD_NA_TRACER_FNAME = ''\n  CHARACTER*256              :: LOAD_CH_CSPEC_FNAME = ''\n  CHARACTER*256              :: LOAD_CH_TRACER_FNAME = ''\n  CHARACTER*256              :: LOAD_EU_CSPEC_FNAME = ''\n  CHARACTER*256              :: LOAD_EU_TRACER_FNAME = ''\n\n  ! For Regrid\n  ! NEW_GRID = REGRID_MAT_L * OLD_GRID * REGRID_MAT_R\n  REAL(fp), ALLOCATABLE        :: REGRID_MAT_L(:,:)\n  REAL(fp), ALLOCATABLE        :: REGRID_MAT_R(:,:)\n\n  ! For lock utility in the run dir\n  CHARACTER*256, PARAMETER   :: LOCK_DIR = './lock'\n  CHARACTER*256              :: UNLOCK_FNAME\n  CHARACTER*256              :: DONE_FNAME\n  CHARACTER*256              :: KILL_FNAME\n  CHARACTER*256              :: END_FNAME\n\n  !=================================================================\n  ! MODULE ROUTINES -- follow below the \"CONTAINS\" statement\n  !=================================================================\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: exchange_global_init\n!\n! !DESCRIPTION: Global initialization for exchange\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXCHANGE_GLOBAL_INIT()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    WRITE (*,*) \"@@@@@@@@@@@@@@ EXCHANGE_GLOBAL_INIT\"\n    CALL DONE_LOCK_ME_UP()\n    CALL WAIT_FOR_UNLOCK()\n\n  END SUBROUTINE EXCHANGE_GLOBAL_INIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: exchange_nested_init\n!\n! !DESCRIPTION: Nested initialization for exchange\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXCHANGE_NESTED_INIT()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    WRITE (*,*) \"@@@@@@@@@@@@@@ EXCHANGE_NESTED_INIT\"\n    CALL DONE_LOCK_ME_UP()\n    CALL WAIT_FOR_UNLOCK()\n\n  END SUBROUTINE EXCHANGE_NESTED_INIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: exchange_global_post\n!\n! !DESCRIPTION: Carry out the process to communicate the nested simulated\n!  results back to global model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXCHANGE_GLOBAL_POST( Input_Opt, State_Chm, State_Grid, &\n                                   State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : GC_Error\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(MetState), INTENT(IN)    :: State_Met\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    WRITE (*,*) \"@@@@@@@@@@@@@@ EXCHANGE_GLOBAL_POST\"\n    CALL DONE_LOCK_ME_UP()\n    CALL WAIT_FOR_UNLOCK()\n\n    IF ( IS_EXCHANGE ) THEN\n\n       ! Convert species units from [kg/kg dry] to [kg] (ewl, 8/13/15)\n       CALL ConvertSpc_KgKgDry_to_Kg( State_Met, State_Chm, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL GC_Error('Unit conversion error', RC, &\n                        'EXCHANGE_GLOBAL_POST in exchange_mod.F')\n          RETURN\n       ENDIF\n\n       ! mol/cm3 -> mol\n       CALL EX_CONVERT_UNITS_CSPEC( Input_Opt, State_Chm, State_Grid, &\n                                    State_Met, RC, 1)\n\n# if  defined ( EXCHANGE_4x5_CH ) || defined ( EXCHANGE_2x25_CH )\n       CALL EX_READ_AND_APPLY_FEEDBACK( Input_Opt, State_Chm, State_Grid, &\n                                        State_Met, RC, 1)\n# endif\n\n# if  defined ( EXCHANGE_4x5_NA ) || defined ( EXCHANGE_2x25_NA )\n       CALL EX_READ_AND_APPLY_FEEDBACK( Input_Opt, State_Chm, State_Grid, &\n                                        State_Met, RC, 2)\n# endif\n\n# if  defined ( EXCHANGE_4x5_EU ) || defined ( EXCHANGE_2x25_EU )\n       CALL EX_READ_AND_APPLY_FEEDBACK( Input_Opt, State_Chm, State_Grid, &\n                                        State_Met, RC, 3)\n# endif\n\n       ! Convert species units back to kg/kg (ewl, 8/13/15)\n       CALL ConvertSpc_Kg_to_KgKgDry( State_Met, State_Chm, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL GC_Error('Unit conversion error', RC, &\n                        'EXCHANGE_GLOBAL_POST in exchange_mod.F')\n          RETURN\n       ENDIF\n\n       ! mol -> mol/cm3\n       CALL EX_CONVERT_UNITS_CSPEC( Input_Opt, State_Chm, State_Grid, &\n                                    State_Met, RC, 2 )\n\n    ENDIF\n\n    IS_EXCHANGE = .TRUE.\n  END SUBROUTINE EXCHANGE_GLOBAL_POST\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: exchange_nested_pre\n!\n! !DESCRIPTION: Before nested grid exchange\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXCHANGE_NESTED_PRE()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    WRITE (*,*) \"@@@@@@@@@@@@@@ EXCHANGE_NESTED_PRE\"\n    CALL WAIT_FOR_UNLOCK()\n\n  END SUBROUTINE EXCHANGE_NESTED_PRE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: exchange_nested_post\n!\n! !DESCRIPTION: After nested-grid exchange\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXCHANGE_NESTED_POST( Input_Opt, State_Chm, State_Grid, &\n                                   State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : GC_Error\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(MetState), INTENT(IN)    :: State_Met\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !RETURN VALUE:\n!\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    WRITE (*,*) \"@@@@@@@@@@@@@@ EXCHANGE_NESTED_POST\"\n\n    ! Convert species units from [kg/kg dry] to [kg] (ewl, 8/13/15)\n    CALL ConvertSpc_KgKgDry_to_Kg( State_Met, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'EXCHANGE_NESTED_POST in exchange_mod.F')\n       RETURN\n    ENDIF\n\n    ! mol/cm3->mol\n    CALL EX_CONVERT_UNITS_CSPEC( Input_Opt, State_Chm, State_Grid, &\n                                 State_Met, RC, 1 )\n\n    CALL EX_DUMP_FOR_GLOBAL( Input_Opt, State_Chm, State_Grid, &\n                             State_Met, RC )\n\n    ! Convert species units back to kg/kg (ewl, 8/13/15)\n    CALL ConvertSpc_Kg_to_KgKgDry( State_Met, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'EXCHANGE_NESTED_POST in exchange_mod.F')\n       RETURN\n    ENDIF\n\n    ! mol -> mol/cm3\n    CALL EX_CONVERT_UNITS_CSPEC( Input_Opt, State_Chm, State_Grid, &\n                                 State_Met, RC, 2 )\n\n    CALL DONE_LOCK_ME_UP()\n    CALL WAIT_FOR_UNLOCK()\n\n  END SUBROUTINE EXCHANGE_NESTED_POST\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: its_time_for_exchange\n!\n! !DESCRIPTION: Returns TRUE if it's time to do the 2-way exchange of data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_EXCHANGE()\n!\n! !USES:\n!\n    USE TIME_MOD, ONLY : ITS_TIME_FOR_EXCH\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: ITS_TIME_FOR_EXCHANGE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ITS_TIME_FOR_EXCHANGE = ITS_TIME_FOR_EXCH()\n\n  END FUNCTION ITS_TIME_FOR_EXCHANGE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_exchange\n!\n! !DESCRIPTION: Initialization routine.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_EXCHANGE( Input_Opt, State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                   :: ALLOCATE_RES\n    REAL(fp), ALLOCATABLE       :: REGRID_MAT_L_TRANS(:,:)\n\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE (*,*) \"@@@@@@@@@@@@@@ INIT_EXCHANGE\"\n    ENDIF\n\n    IF ( .not. State_Grid%Nested_Grid ) THEN\n\n       IS_GLOBAL_DOMAIN = .TRUE.\n       IS_EXCHANGE = .FALSE.\n       MY_NAME = 'GLOBAL'\n\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       ! This needs to be updated for FlexGrid (mps, 4/13/19)\n       NESTED_CH_NAME = 'NESTED_CH'\n       NESTED_NA_NAME = 'NESTED_NA'\n       NESTED_EU_NAME = 'NESTED_EU'\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( LOAD_CH_CSPEC_FNAME, '(A, A, A, A)' ) &\n                 TRIM(EXCHANGE_DIR), &\n                 '/dump.cspec.', TRIM(NESTED_CH_NAME), '.dump'\n          WRITE( LOAD_CH_TRACER_FNAME, '(A, A, A, A)' ) &\n                 TRIM(EXCHANGE_DIR), &\n                 '/dump.tracer.', TRIM(NESTED_CH_NAME), '.dump'\n          WRITE( LOAD_NA_CSPEC_FNAME, '(A, A, A, A)' ) &\n                 TRIM(EXCHANGE_DIR), &\n                 '/dump.cspec.', TRIM(NESTED_NA_NAME), '.dump'\n          WRITE( LOAD_NA_TRACER_FNAME, '(A, A, A, A)' ) &\n                 TRIM(EXCHANGE_DIR), &\n                 '/dump.tracer.', TRIM(NESTED_NA_NAME), '.dump'\n          WRITE( LOAD_EU_CSPEC_FNAME, '(A, A, A, A)' ) &\n                 TRIM(EXCHANGE_DIR), &\n                 '/dump.cspec.', TRIM(NESTED_EU_NAME), '.dump'\n          WRITE( LOAD_EU_TRACER_FNAME, '(A, A, A, A)' ) &\n                 TRIM(EXCHANGE_DIR), &\n                 '/dump.tracer.', TRIM(NESTED_EU_NAME), '.dump'\n       ENDIF\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    ELSE\n\n       IS_GLOBAL_DOMAIN = .FALSE.\n       MY_NAME = 'NESTED'\n\n    ENDIF\n\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE ( DUMP_CSPEC_FNAME, '(A, A, A, A)' ) TRIM(EXCHANGE_DIR), &\n               '/dump.cspec.', TRIM(MY_NAME), '.dump'\n       WRITE ( DUMP_TRACER_FNAME, '(A, A, A, A)' ) TRIM(EXCHANGE_DIR), &\n               '/dump.tracer.', TRIM(MY_NAME), '.dump'\n\n       WRITE ( UNLOCK_FNAME, '(A, A, A, A)' ) TRIM(LOCK_DIR), '/key.', &\n                                              TRIM(MY_NAME), '.key'\n       WRITE ( DONE_FNAME,   '(A, A, A, A)' ) TRIM(LOCK_DIR), '/done.', &\n                                              TRIM(MY_NAME), '.done'\n       WRITE ( KILL_FNAME,   '(A, A, A, A)' ) TRIM(LOCK_DIR), '/kill.', &\n                                              TRIM(MY_NAME), '.kill'\n       WRITE ( END_FNAME,    '(A, A, A, A)' ) TRIM(LOCK_DIR), '/end.', &\n                                              TRIM(MY_NAME), '.end'\n    ENDIF\n\n    ! size information\n    ! Eventually need to remove hardcoding for FlexGrid (mps, 4/13/19)\n    IF ( TRIM(State_Grid%GridRes) == '4.0x5.0' ) THEN\n       I0_BC_CH = 50\n       IM_BC_CH = 17\n       J0_BC_CH = 20\n       JM_BC_CH = 17\n       I0_BC_NA = 8\n       IM_BC_NA = 21\n       J0_BC_NA = 25\n       JM_BC_NA = 16\n       I0_BC_EU = 30\n       IM_BC_EU = 17\n       J0_BC_EU = 30\n       JM_BC_EU = 11\n    ELSEIF ( TRIM(State_Grid%GridRes) == '2.0x2.5' ) THEN\n       I0_BC_CH = 100\n       IM_BC_CH = 33\n       J0_BC_CH = 39\n       JM_BC_CH = 35\n       I0_BC_NA = 16\n       IM_BC_NA = 41\n       J0_BC_NA = 50\n       JM_BC_NA = 31\n       I0_BC_EU = 60\n       IM_BC_EU = 33\n       J0_BC_EU = 60\n       JM_BC_EU = 21\n    ENDIF\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! This needs to be updated for FlexGrid (mps, 4/13/19)\n    IF ( State_Grid%NestedGrid ) THEN\n\n#if   defined ( EXCHANGE_4x5_CH )\n       I0_BC          = 50\n       J0_BC          = 20\n       I2_BC          = 67\n       J2_BC          = 37\n       OFFSET_LONG    = 3.25\n       OFFSET_LAT     = 1.5\n       RATIO_LONG_EX  = 7.5d0\n       RATIO_LAT_EX   = 8.0d0\n\n#elif defined ( EXCHANGE_4x5_NA )\n       I0_BC          = 8\n       J0_BC          = 25\n       I2_BC          = 29\n       J2_BC          = 41\n       OFFSET_LONG    = 3.25\n       OFFSET_LAT     = 3.5\n       RATIO_LONG_EX  = 7.5d0\n       RATIO_LAT_EX   = 8.0d0\n\n#elif defined ( EXCHANGE_4x5_EU )\n       I0_BC          = 30\n       J0_BC          = 30\n       I2_BC          = 47\n       J2_BC          = 41\n       OFFSET_LONG    = 3.25\n       OFFSET_LAT     = 3.5\n       RATIO_LONG_EX  = 7.5d0\n       RATIO_LAT_EX   = 8.0d0\n\n#elif defined ( EXCHANGE_2x25_CH )\n       I0_BC          = 100\n       J0_BC          = 39\n       I2_BC          = 133\n       J2_BC          = 74\n       OFFSET_LONG    = 1.375\n       OFFSET_LAT     = 3.5\n       RATIO_LONG_EX  = 3.75d0\n       RATIO_LAT_EX   = 4.0d0\n\n#elif defined ( EXCHANGE_2x25_NA )\n       I0_BC          = 16\n       J0_BC          = 50\n       I2_BC          = 57\n       J2_BC          = 81\n       OFFSET_LONG    = 1.375\n       OFFSET_LAT     = 1.5\n       RATIO_LONG_EX  = 3.75d0\n       RATIO_LAT_EX   = 4.0d0\n\n#elif defined ( EXCHANGE_2x25_EU )\n       I0_BC          = 60\n       J0_BC          = 60\n       I2_BC          = 93\n       J2_BC          = 81\n       OFFSET_LONG    = 1.375\n       OFFSET_LAT     =  1.5\n       RATIO_LONG_EX  = 3.75d0\n       RATIO_LAT_EX   = 4.0d0\n\n#endif\n       I1_BC = I0_BC + 1\n       J1_BC = J0_BC + 1\n       IM_BC = I2_BC - I0_BC\n       JM_BC = J2_BC - J0_BC\n\n       ! generate regrid map\n       ! CHECK: orientation problem...\n       ALLOCATE( REGRID_MAT_L(IM_BC,State_Grid%NX), STAT=ALLOCATE_RES )\n       IF ( ALLOCATE_RES /= 0 ) THEN\n          CALL GEOS_CHEM_STOP\n       ENDIF\n\n       ALLOCATE( REGRID_MAT_L_TRANS(State_Grid%NX, IM_BC), STAT=ALLOCATE_RES )\n       IF ( ALLOCATE_RES /= 0 ) THEN\n          CALL GEOS_CHEM_STOP\n       ENDIF\n\n       ALLOCATE( REGRID_MAT_R(State_Grid%NY, JM_BC), STAT=ALLOCATE_RES )\n       IF ( ALLOCATE_RES /= 0 ) THEN\n          CALL GEOS_CHEM_STOP\n       ENDIF\n\n       CALL GEN_REGRID_MAT( State_Grid%NX, IM_BC, RATIO_LONG_EX, &\n                            -OFFSET_LONG, REGRID_MAT_L_TRANS)\n       CALL GEN_REGRID_MAT( State_Grid%NY, JM_BC, RATIO_LAT_EX, &\n                            -OFFSET_LAT,  REGRID_MAT_R )\n\n       REGRID_MAT_L = TRANSPOSE( REGRID_MAT_L_TRANS )\n\n       IF(ALLOCATED(REGRID_MAT_L_TRANS)) DEALLOCATE( REGRID_MAT_L_TRANS )\n       ALLOCATE( TMP_WINDOW(IM_BC, JM_BC, State_Grid%NZ), STAT=ALLOCATE_RES )\n       IF ( ALLOCATE_RES /= 0 ) THEN\n          CALL GEOS_CHEM_STOP\n       ENDIF\n\n    ENDIF ! NestedGrid\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    IF ( .not. State_Grid%NestedGrid) THEN\n\n#if defined ( EXCHANGE_4x5_CH ) || defined ( EXCHANGE_2x25_CH )\n       !ALLOCATE( TMP_WINDOW_CH(IM_BC_CH, JM_BC_CH, State_Grid%NZ), &\n       !          STAT=ALLOCATE_RES )\n       !IF ( ALLOCATE_RES /= 0 ) THEN\n       !   CALL GEOS_CHEM_STOP\n       !ENDIF\n#endif\n\n#if defined ( EXCHANGE_4x5_NA ) || defined ( EXCHANGE_2x25_NA )\n       !ALLOCATE( TMP_WINDOW_NA(IM_BC_NA, JM_BC_NA, State_Grid%NZ), &\n       !          STAT=ALLOCATE_RES )\n       !IF ( ALLOCATE_RES /= 0 ) THEN\n       !   CALL GEOS_CHEM_STOP\n       !ENDIF\n#endif\n\n#if defined ( EXCHANGE_4x5_EU ) || defined ( EXCHANGE_2x25_EU )\n       ALLOCATE( TMP_WINDOW_EU(IM_BC_EU, JM_BC_EU, State_Grid%NZ), &\n                 STAT=ALLOCATE_RES )\n       IF ( ALLOCATE_RES /= 0 ) THEN\n          CALL GEOS_CHEM_STOP\n       ENDIF\n#endif\n\n    ENDIF\n\n  END SUBROUTINE INIT_EXCHANGE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_exchange\n!\n! !DESCRIPTION: Cleanup routine.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_EXCHANGE( Input_Opt )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE (*,*) \"@@@@@@@@@@@@@@ CLEANUP_EXCHANGE\"\n    ENDIF\n\n    IF( ALLOCATED( TMP_WINDOW     ) ) DEALLOCATE( TMP_WINDOW    )\n    IF( ALLOCATED( REGRID_MAT_L   ) ) DEALLOCATE( REGRID_MAT_L  )\n    IF( ALLOCATED( REGRID_MAT_R   ) ) DEALLOCATE( REGRID_MAT_R  )\n    !IF( ALLOCATED( TMP_WINDOW_CH  ) ) DEALLOCATE( TMP_WINDOW_CH )\n    !IF( ALLOCATED( TMP_WINDOW_NA  ) ) DEALLOCATE( TMP_WINDOW_NA )\n    IF( ALLOCATED( TMP_WINDOW_EU  ) ) DEALLOCATE( TMP_WINDOW_EU )\n\n    CALL NO_MORE_LOCK()\n\n  END SUBROUTINE CLEANUP_EXCHANGE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ex_dump_for_global\n!\n! !DESCRIPTION: ?\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EX_DUMP_FOR_GLOBAL( Input_Opt, State_Chm, State_Grid, &\n                                 State_Met, RC )\n!\n! !USES:\n!\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(MetState), INTENT(IN)    :: State_Met\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(SpcConc, POINTER :: SPC(:)\n    INTEGER               :: L, I,IU_RST\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! NOTE: Species units are in kg/kg dry which may be incompatible with\n    ! functionality prior to tracer removal. Validation needed by 3rd party\n    ! developers (ewl, 8/15/16)\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    SPC      => State_Chm%Species\n    IU_RST=2\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE (*,*) \"@@@@@@@@@@@@@@@@@@ EX_DUMP_FOR_GLOBAL\"\n    ENDIF\n\n    WRITE( 6, 100 ) TRIM(DUMP_CSPEC_FNAME)\n100 FORMAT( '     - EXCHANGE: Writing ', A )\n    CALL OPEN_BIN_FILE_FOR_WRITE( TRIM(DUMP_CSPEC_FNAME) )\n\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE (*,*) \"@@@@@@@@@@@@@@@@@@ EX_REGRID_UP_SPECIES --Editing\"\n    ENDIF\n\n    DO L = 1, State_Chm%nSpecies\n       CALL EX_REGRID_UP( State_Grid%NX, State_Grid%NY, IM_BC, JM_BC, &\n                          State_Grid%NZ, SPC(L)%Conc, TMP_WINDOW )\n       CALL WRITE_3D_REAL8_ARRAY( IM_BC, JM_BC, State_Grid%NZ, TMP_WINDOW )\n    ENDDO\n    CLOSE( 2 )\n\n    CALL OPEN_BIN_FILE_FOR_WRITE( TRIM(DUMP_TRACER_FNAME) )\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE (*,*) \"@@@@@@@@@@@@@@@@@@ EX_REGRID_UP_TRACER --Editing\"\n    ENDIF\n\n    DO L = 1, State_Chm%nAdvect\n       CALL EX_REGRID_UP( State_Grid%NX, State_Grid%NY, IM_BC, JM_BC, &\n                          State_Grid%NZ, SPC(L)%Conc, TMP_WINDOW )\n       CALL WRITE_3D_REAL8_ARRAY( IM_BC, JM_BC, State_Grid%NZ, TMP_WINDOW )\n    ENDDO\n    CLOSE( IU_RST )\n\n    SPC => NULL()\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### WRITE_EXCHANGE: wrote file' )\n    ENDIF\n\n  END SUBROUTINE EX_DUMP_FOR_GLOBAL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ex_read_and_apply_feedback\n!\n! !DESCRIPTION: ?\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EX_READ_AND_APPLY_FEEDBACK( Input_Opt, State_Chm, State_Grid, &\n                                         State_Met, RC, DOMAIN )\n!\n! !USES:\n!\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE FILE_MOD\n    USE TRANSFER_MOD,       ONLY : TRANSFER_3D_yan\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    INTEGER,        INTENT(IN)    :: DOMAIN\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(SpcConc), POINTER :: SPC(:)\n    REAL(fp), POINTER      :: CSPEC_FULL(:,:,:,:)\n    REAL(fp)               :: TMP_WINDOW_CHT(IM_BC_CH,JM_BC_CH,State_Grid%NZ)\n    REAL(fp)               :: TMP_WINDOW_NAT(IM_BC_NA,JM_BC_NA,State_Grid%NZ)\n    REAL(fp)               :: TMP_WINDOW_EUT(IM_BC_EU,JM_BC_EU,State_Grid%NZ)\n    REAL*4                 :: ARRAYTEMPR(576,361,73)\n    INTEGER                :: L,IU_RST,IOS\n    INTEGER                :: NI,NJ,NK,I,J,K\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! NOTE: Species units are in kg/kg dry which may be incompatible with\n    ! functionality prior to tracer removal. Validation needed by\n    ! 3rd party developers (ewl, 8/15/16)\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    SPC      => State_Chm%Species\n    IU_RST=2\n    IOS=1\n    NI=IM_BC_CH\n    NJ=JM_BC_CH\n    NK=State_Grid%NZ\n\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE (*,*) \"@@@@@@@@@@@@@@@@@@ EX_READ_AND_APPLY_FEEDBACK\"\n       WRITE(*,*) \"!!!!!!!!!!FILLING THE SPECIES BOUNDARY\"\n    ENDIF\n\n    ! For Asia nested domain\n    IF ( DOMAIN == 1 ) THEN\n       WRITE( 6, 100 ) TRIM(LOAD_CH_TRACER_FNAME)\n100    FORMAT( '     - EXCHANGE: reading ', A )\n       CALL OPEN_BIN_FILE_FOR_READ( TRIM(LOAD_CH_TRACER_FNAME) )\n       DO L = 1,State_Chm%nAdvect\n          READ( IU_RST, IOSTAT=IOS ) &\n              ( ( ( ARRAYTEMPR(I,J,K), I=1,NI ), J=1,NJ ), K=1,NK )\n          CALL TRANSFER_3D_yan &\n               (NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK),TMP_WINDOW_CHT)\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n             CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n          ENDIF\n          TMP_WINDOW_CH=TMP_WINDOW_CHT\n\n          SPC(L)%Conc( I0_BC_CH + 2 : I0_BC_CH + IM_BC_CH-1, &\n                       J0_BC_CH + 2 : J0_BC_CH + JM_BC_CH-1, &\n                       State_Grid%NZ ) = &\n               TMP_WINDOW_CH(2:IM_BC_CH-1,2:JM_BC_CH-1,State_Grid%NZ)\n       ENDDO\n       CLOSE( IU_RST )\n\n       CALL OPEN_BIN_FILE_FOR_READ( TRIM(LOAD_CH_CSPEC_FNAME) )\n       DO L = 1,State_Chm%nSpecies\n          READ( IU_RST, IOSTAT=IOS ) &\n              ( ( ( ARRAYTEMPR(I,J,K), I=1,NI ), J=1,NJ ), K=1,NK )\n          CALL TRANSFER_3D_yan &\n               (NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK),TMP_WINDOW_CHT)\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n             CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n          ENDIF\n          TMP_WINDOW_CH=TMP_WINDOW_CHT\n          SPC(L)%Conc( I0_BC_CH + 2:I0_BC_CH + IM_BC_CH-1, &\n                       J0_BC_CH + 2:J0_BC_CH + JM_BC_CH-1, &\n                       State_Grid%NZ ) = &\n              TMP_WINDOW_CH(2:IM_BC_CH-1,2:JM_BC_CH-1,State_Grid%NZ)\n       ENDDO\n       CLOSE( IU_RST )\n\n    ! For North America domain\n    ELSE IF ( DOMAIN == 2 ) THEN\n       NI=IM_BC_NA\n       NJ=JM_BC_NA\n       WRITE( 6, 101 ) TRIM(LOAD_NA_CSPEC_FNAME)\n101    FORMAT( '     - EXCHANGE: reading ', A )\n       CALL OPEN_BIN_FILE_FOR_READ( TRIM(LOAD_NA_TRACER_FNAME) )\n       DO L = 1,State_Chm%nAdvect\n          READ( IU_RST, IOSTAT=IOS ) &\n              ( ( ( ARRAYTEMPR(I,J,K), I=1,NI ), J=1,NJ ), K=1,NK )\n          CALL TRANSFER_3D_yan &\n               (NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK),TMP_WINDOW_NAT)\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n             CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n          ENDIF\n          TMP_WINDOW_NA=TMP_WINDOW_NAT\n          SPC(L)%Conc( I0_BC_NA + 3 : I0_BC_NA + IM_BC_NA-2, &\n                       J0_BC_NA + 3 : J0_BC_NA + JM_BC_NA-2, &\n                       State_Grid%NZ ) = &\n               TMP_WINDOW_NA(3:IM_BC_NA-2,3:JM_BC_NA-2,State_Grid%NZ)\n       ENDDO\n       CLOSE( IU_RST )\n\n       CALL OPEN_BIN_FILE_FOR_READ( TRIM(LOAD_NA_CSPEC_FNAME) )\n       DO L = 1,State_Chm%nSpecies\n          READ( IU_RST, IOSTAT=IOS ) &\n              ( ( ( ARRAYTEMPR(I,J,K), I=1,NI ), J=1,NJ ), K=1,NK )\n          CALL TRANSFER_3D_yan &\n               (NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK),TMP_WINDOW_NAT)\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n             CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n          ENDIF\n          TMP_WINDOW_NA=TMP_WINDOW_NAT\n          SPC(L)%Conc( I0_BC_NA + 3:I0_BC_NA + IM_BC_NA-2, &\n                       J0_BC_NA + 3:J0_BC_NA + JM_BC_NA-2, &\n                       State_Grid%NZ ) = &\n               TMP_WINDOW_NA(3:IM_BC_NA-2,3:JM_BC_NA-2,State_Grid%NZ)\n       ENDDO\n       CLOSE( IU_RST )\n\n    ! For Europe domain\n    ELSE IF ( DOMAIN == 3 ) THEN\n       NI=IM_BC_EU\n       NJ=JM_BC_EU\n       WRITE( 6, 102 ) TRIM(LOAD_EU_CSPEC_FNAME)\n102    FORMAT( '     - EXCHANGE: reading ', A )\n       CALL OPEN_BIN_FILE_FOR_READ( TRIM(LOAD_EU_TRACER_FNAME) )\n       DO L = 1,State_Chm%nAdvect\n          READ( IU_RST, IOSTAT=IOS ) &\n              ( ( ( ARRAYTEMPR(I,J,K), I=1,NI ), J=1,NJ ), K=1,NK )\n          CALL TRANSFER_3D_yan &\n               (NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK),TMP_WINDOW_EUT)\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n             CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n          ENDIF\n          TMP_WINDOW_EU=TMP_WINDOW_EUT\n          SPC(L)%Conc( I0_BC_EU + 2 : I0_BC_EU + IM_BC_EU-1, &\n                       J0_BC_EU + 2 : J0_BC_EU + JM_BC_EU-1, &\n                       State_Grid%NZ ) = &\n               REAL(TMP_WINDOW_EU(2:IM_BC_EU-1,2:JM_BC_EU-1,State_Grid%NZ),8)\n       ENDDO\n       !CLOSE( 2 )\n\n       CALL OPEN_BIN_FILE_FOR_READ( TRIM(LOAD_EU_CSPEC_FNAME) )\n       DO L = 1,State_Chm%nSpecies\n          READ( IU_RST, IOSTAT=IOS ) &\n              ( ( ( ARRAYTEMPR(I,J,K), I=1,NI ), J=1,NJ ), K=1,NK )\n          CALL TRANSFER_3D_yan &\n               (NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK),TMP_WINDOW_EUT)\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n             CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n          ENDIF\n          TMP_WINDOW_EU=TMP_WINDOW_EUT\n          SPC(L)%Conc( I0_BC_EU + 2:I0_BC_EU + IM_BC_EU-1, &\n                       J0_BC_EU + 2:J0_BC_EU + JM_BC_EU-1, &\n                       State_Grid%NZ ) = &\n               REAL(TMP_WINDOW_EU(2:IM_BC_EU-1,2:JM_BC_EU-1,State_Grid%NZ),8)\n       ENDDO\n       !CLOSE( 2 )\n    ENDIF\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### read and apply fb: done' )\n    ENDIF\n\n  END SUBROUTINE EX_READ_AND_APPLY_FEEDBACK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ex_regrid_up\n!\n! !DESCRIPTION:  This subroutine will be called within EX\\_DUMP\\_FOR\\_GLOBAL,\n!  Using module's global vars: REGRID\\_MAT\\_L, REGRID\\_MAT\\_R\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EX_REGRID_UP( NX_ORIG, NY_ORIG, NX_NEW, NY_NEW, &\n                           NZ, ORIG_ARRAY, NEW_ARRAY )\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER,  INTENT(IN)     :: NX_ORIG, NY_ORIG, NX_NEW, NY_NEW, NZ\n    REAL(fp), INTENT(IN)     :: ORIG_ARRAY(NX_ORIG, NY_ORIG, NZ)\n    REAL(fp), INTENT(OUT)    :: NEW_ARRAY(NX_NEW, NY_NEW, NZ)\n    INTEGER                  :: K\n\n    ! Use direct matrix multiply method for now.\n    !yanyy ,2014,06,10\n    DO K = 1, NZ\n       NEW_ARRAY(:,:,K) = MATMUL( REGRID_MAT_L, &\n                          MATMUL( ORIG_ARRAY(:,:,K), REGRID_MAT_R ) )\n    ENDDO\n\n  END SUBROUTINE EX_REGRID_UP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ex_convert_units_cspec\n!\n! !DESCRIPTION: Converts molec/cm3/box to fakemass (e.g. convert cspecfull\n!  to a masslike unit)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EX_CONVERT_UNITS_CSPEC( Input_Opt, State_Chm, State_Grid, &\n                                     State_Met, RC, FLAG )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    INTEGER,        INTENT(IN)    :: FLAG\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !RETURN VALUE:\n!\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(SpcConc), POINTER :: SPC(:)\n    REAL(fp)               :: SRC(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    integer                :: L\n\n    SPC => State_Chm%Species\n\n    IF ( FLAG == 1 ) THEN\n       DO L = 1, State_Chm%nSpecies\n          SRC( :, :, : ) = SPC(L)%Conc( :, :, : ) !* State_Met%AIRVOL\n          SPC(L)%Conc( :, :, : ) = SRC(:, :, : )\n       ENDDO\n    ELSE IF (FLAG == 2 ) THEN\n       DO L = 1, State_Chm%nSpecies\n          SRC( :, :, : ) = SPC(L)%Conc( :, :, : ) !/ State_Met%AIRVOL\n          SPC(L)%Conc( :, :, : ) = SRC(:, :, : )\n       ENDDO\n    END IF\n    NULLIFY(SPC)\n\n  END SUBROUTINE EX_CONVERT_UNITS_CSPEC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: wait_for_unlock\n!\n! !DESCRIPTION: Waits for MPI unlock.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WAIT_FOR_UNLOCK()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER   :: INTERVAL       = 1\n    LOGICAL              :: RES            = .FALSE.\n    CHARACTER*512        :: EXT_COMMAND    = \"\"\n\n    WRITE (*,*) \"@@@@@@@@@@@@@@@@@@ WAIT_FOR_UNLOCK\"\n    WRITE (*,*) \"         Waiting for file : \", TRIM(UNLOCK_FNAME)\n    WRITE ( EXT_COMMAND, '(A, A)' ) \"rm -f \", TRIM(UNLOCK_FNAME)\n\n    DO\n       CALL ALERT_FOR_KILL_COMMAND()\n       INQUIRE( FILE = TRIM(UNLOCK_FNAME), EXIST = RES )\n       IF ( RES .EQV. .TRUE. ) THEN\n          CALL SYSTEM( TRIM(EXT_COMMAND) )\n          EXIT\n       ELSE\n          CALL SLEEP( INTERVAL )\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE WAIT_FOR_UNLOCK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: done_lock_me_up\n!\n! !DESCRIPTION: ?\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DONE_LOCK_ME_UP()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    WRITE (*,*) \"@@@@@@@@@@@@@@@@@@@ DONE_LOCK_ME_UP\"\n    CALL TOUCH_FILE( TRIM(DONE_FNAME) )\n\n  END SUBROUTINE DONE_LOCK_ME_UP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: no_more_lock\n!\n! !DESCRIPTION: ?\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NO_MORE_LOCK()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    WRITE (*,*) \"@@@@@@@@@@@@@@@@@@@ NO_MORE_LOCK\"\n    CALL TOUCH_FILE( TRIM(END_FNAME) )\n\n  END SUBROUTINE NO_MORE_LOCK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: alert_for_kill_command\n!\n! !DESCRIPTION: Stops if there is a kill command issued.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ALERT_FOR_KILL_COMMAND()\n!\n! !USES:\n!\n    USE ERROR_MOD\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL       :: RES         = .FALSE.\n    CHARACTER*512 :: EXT_COMMAND = ''\n\n    WRITE ( EXT_COMMAND, '(A, A)' ) 'rm -f ', TRIM( KILL_FNAME )\n    INQUIRE( FILE = TRIM(KILL_FNAME), EXIST = RES )\n\n    IF ( RES .EQV. .TRUE. ) THEN\n       WRITE (*,*) \"!!!!!!!!!!!!!!!! Got KILL Command : \", &\n                   TRIM(KILL_FNAME), \" , STOPPING everything.\"\n       CALL SYSTEM( TRIM(EXT_COMMAND) )\n       CALL GEOS_CHEM_STOP()\n    ENDIF\n\n  END SUBROUTINE ALERT_FOR_KILL_COMMAND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: touch_file\n!\n! !DESCRIPTION: Touches a file (i.e. updates the timestamp on disk).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TOUCH_FILE( FNAME )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: FNAME\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER*512 :: EXT_COMMAND    = ''\n\n    WRITE ( EXT_COMMAND, '(A, A)' ) 'touch ' , TRIM(FNAME)\n\n    CALL SYSTEM( TRIM(EXT_COMMAND) )\n\n  END SUBROUTINE TOUCH_FILE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: open_bin_file_for_read\n!\n! !DESCRIPTION: Opens a binary file for reading.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OPEN_BIN_FILE_FOR_READ( FNAME )\n!\n! !USES:\n!\n    USE FILE_MOD\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: FNAME\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                          :: IOS,IU_RST\n    IU_RST = 2\n\n    OPEN( IU_RST,     FILE=TRIM(FNAME), STATUS='OLD', &\n          IOSTAT=IOS, FORM='UNFORMATTED')\n    IF ( IOS /= 0 ) THEN\n       WRITE(6,*)'Error opening filename=',TRIM(FNAME)\n       CALL FLUSH(6)\n       CALL IOERROR( IOS, IU_RST, 'open_bin_file_for_read:1' )\n    ENDIF\n\n  END SUBROUTINE OPEN_BIN_FILE_FOR_READ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: open_bin_file_for_write\n!\n! !DESCRIPTION: Opens a binary file for writing.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OPEN_BIN_FILE_FOR_WRITE( FNAME )\n!\n! !USES:\n!\n    USE FILE_MOD\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: FNAME\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: IOS,IU_RST\n\n    IU_RST = 2\n\n    OPEN( IU_RST,     FILE=TRIM(FNAME), STATUS='REPLACE', &\n          IOSTAT=IOS, FORM='UNFORMATTED')\n    IF ( IOS /= 0 ) THEN\n       WRITE(6,*)'Error opening filename=',TRIM(FNAME)\n       CALL FLUSH(6)\n       CALL IOERROR( IOS, IU_RST, 'open_bin_file_for_write:1' )\n    ENDIF\n\n  END SUBROUTINE OPEN_BIN_FILE_FOR_WRITE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: open_bin_file_for_append\n!\n! !DESCRIPTION: Opens a binary file for appending.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OPEN_BIN_FILE_FOR_APPEND( FNAME )\n!\n! !USES:\n!\n    USE FILE_MOD\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: FNAME\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: IOS,IU_RST\n\n    IU_RST=2\n\n\n    OPEN( IU_RST,     FILE=TRIM(FNAME), STATUS='UNKNOWN', &\n          IOSTAT=IOS, FORM='UNFORMATTED')\n    IF ( IOS /= 0 ) THEN\n       WRITE(6,*)'Error opening filename=',TRIM(FNAME)\n       CALL FLUSH(6)\n       CALL IOERROR( IOS, IU_RST, 'open_bin_file_for_append:1' )\n    ENDIF\n\n  END SUBROUTINE OPEN_BIN_FILE_FOR_APPEND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: close_bin_file\n!\n! !DESCRIPTION: Closes a binary file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLOSE_BIN_FILE()\n!\n    USE FILE_MOD\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER         :: IU_RST\n\n    IU_RST   = 2\n\n    CLOSE( IU_RST )\n\n  END SUBROUTINE CLOSE_BIN_FILE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: write_3d_real8_array\n!\n! !DESCRIPTION: Writes data to a 3-D REAL*8 array.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WRITE_3D_REAL8_ARRAY( NI, NJ, NK, ARRAY )\n!\n! !USES:\n!\n    USE FILE_MOD\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: NI, NJ, NK\n    REAL(fp), INTENT(IN) :: ARRAY(NI,NJ,NK)\n    REAL(f4)             :: ARRAYTEMPW(NI,NJ,NK)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: IU_RST\n    INTEGER :: I, J, L\n\n    IU_RST = 2\n\n    ARRAYTEMPW=REAL(ARRAY,4)\n    WRITE ( IU_RST ) ( ( ( ARRAYTEMPW(I,J,L), I=1,NI ), J=1,NJ ), L=1,NK )\n\n  END SUBROUTINE WRITE_3D_REAL8_ARRAY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_3d_real8_array\n!\n! !DESCRIPTION: Reads data from 3-D REAL*8 array.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_3D_REAL8_ARRAY( NI, NJ, NK, ARRAY )\n!\n! !USES:\n!\n    USE FILE_MOD\n    USE TRANSFER_MOD, ONLY : TRANSFER_3D_yan\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: NI, NJ, NK\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: ARRAY(NI,NJ,NK)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL*4                :: ARRAYTEMPR(576,361,73)\n    REAL(fp), ALLOCATABLE :: ARRAYT(:,:,:)\n    INTEGER               :: IU_RST, IOS\n    INTEGER               :: I, J, L\n\n    IU_RST = 2\n    IOS    = 1\n    ARRAYTEMPR(:,:,:) = 0e0\n    READ( IU_RST, IOSTAT=IOS ) &\n        ( ( ( ARRAYTEMPR(I,J,L), I=1,NI ), J=1,NJ ), L=1,NK )\n    CALL TRANSFER_3D_yan(NI,NJ,NK,ARRAYTEMPR(1:NI,1:NJ,1:NK), ARRAYT )\n    ARRAY(1:NI,1:NJ,1:NK)=ARRAYT(1:NI,1:NJ,1:NK)\n    IF ( IOS /= 0 ) THEN\n       WRITE(6,*) 'EXCHANGE: READ ERROR' !, TRIM(FNAME)\n       CALL IOERROR( IOS, IU_RST, 'EXCHANGE_MOD:READ')\n    ENDIF\n\n  END SUBROUTINE READ_3D_REAL8_ARRAY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gen_regrid_mat\n!\n! !DESCRIPTION: Regridding utility.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEN_REGRID_MAT( N1, N2, RATIO, OFFSET, RES )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: N1, N2\n    REAL(fp), INTENT(IN)  :: RATIO, OFFSET\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: RES(N1, N2)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Default for Right Array.\n    REAL(fp) :: BEG_POS, END_POS\n    INTEGER  :: M, N\n\n    RES = 0d0\n    DO N = 1, N2\n       BEG_POS = (N-1) * RATIO + 1 + OFFSET\n       END_POS = N * RATIO + 1 + OFFSET\n       DO M = MAX(FLOOR(BEG_POS), 1), MIN(FLOOR(END_POS), N1)\n          RES(M, N) = MIN(DBLE(M+1), END_POS) - MAX(DBLE(M), BEG_POS)\n       END DO\n    END DO\n\n  END SUBROUTINE GEN_REGRID_MAT\n!EOC\nEND MODULE EXCHANGE_MOD\n#endif\n"
  },
  {
    "path": "GeosCore/fast_jx_mod.F90",
    "content": "#ifdef FASTJX\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: fjx_mod.F90\n!\n! !DESCRIPTION: Module FJX\\_MOD contains routines for the Fast-JX scheme\n!  (Prather et al). Current implementation is version 7.0a. Content in this\n!  file used to be in fast_jx_mod.F90 but was moved here for development of\n!  Cloud-J which will replace Fast-JX in GEOS-Chem. This module interfaces\n!  with fjx_interface_mod.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE FJX_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: PHOTO_JX  ! Computes J-values  \n  PUBLIC :: SOLAR_JX  ! Computes solar zenith angle and solar function\n  PUBLIC :: RD_MIE    ! Called in init_fjx\n  PUBLIC :: RD_XXX    ! Called in init_fjx\n  PUBLIC :: RD_JS_JX  ! Called in init_fjx\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: OPMIE     ! Called in Photo_JX\n  PRIVATE :: SPHERE2   ! Called in Photo_JX\n  PRIVATE :: EXTRAL    ! Called in Photo_JX\n  PRIVATE :: JRATET    ! Called in Photo_JX\n  PRIVATE :: X_INTERP  ! Called in both JRATET and PHOTO_JX\n  PRIVATE :: MIESCT    ! Called in OPMIE\n  PRIVATE :: BLKSLV    ! Called in MIESCT\n  PRIVATE :: GEN_ID    ! Called in BLKSLV\n  PRIVATE :: LEGND0    ! Called in MIESCT\n  PRIVATE :: EXITC\n!\n! !REVISION HISTORY:\n!  14 Dec 2022 - E. Lundgren - Adapted from fast_jx_mod\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: photo_jx\n!\n! !DESCRIPTION: Subroutine PHOTO\\_JX is the core subroutine of Fast-JX.\n!    calc J's for a single column atmosphere (aka Indep Colm Atmos or ICA)\n!    needs P, T, O3, clds, aersls; adds top-of-atmos layer from climatology\n!    needs day-fo-year for sun distance, SZA (not lat or long)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PHOTO_JX( amIRoot,   dryrun,                             &\n                       U0,        REFLB,      SZA,        SOLF,       &\n                       P_COL,     T_COL,      AOD999,     ILON,       &\n                       ILAT,      AERX_COL,   T_CLIM,     OOJ,        &\n                       ZZJ,       DDJ,        maxChemLev, State_Chm,  &\n                       VALJXX,    FSBOT,      FJBOT,      FLXD,       &\n                       FJFLX,     Input_Opt,  State_Diag )\n!\n! !USES:\n!\n    USE CMN_FJX_Mod,    ONLY : L_, L1_, A_, N_, W_, X_, AN_\n    USE CMN_FJX_Mod,    ONLY : JXL_, JXL1_, JXL2_, JVN_\n    USE CMN_FJX_Mod,    ONLY : QO2, QO3, NJX, FL, WL, QRAYL\n    USE CMN_FJX_Mod,    ONLY : LQQ, TQQ, QAA, PAA, SAA\n    USE CMN_SIZE_Mod,   ONLY : NRH, NRHAER\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState ! For NSPAA, QQAA, SSAA, PHAA\n    USE State_Diag_Mod, ONLY : DgnState\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,  INTENT(IN)                       :: amIRoot\n    LOGICAL,  INTENT(IN)                       :: dryrun\n    REAL(fp), INTENT(IN)                       :: U0,REFLB\n    REAL(fp), INTENT(IN)                       :: SZA,SOLF\n    REAL(fp), INTENT(IN), DIMENSION(L1_+1   )  :: P_COL\n    REAL(fp), INTENT(IN), DIMENSION(L1_     )  :: T_COL\n    LOGICAL,  INTENT(IN)                       :: AOD999\n    INTEGER,  INTENT(IN)                       :: ILON, ILAT\n    REAL(fp), INTENT(IN), DIMENSION(AN_,L1_)   :: AERX_COL ! Aerosol column\n    REAL(fp), INTENT(IN), DIMENSION(L1_   )    :: T_CLIM   ! Clim. temps (K)\n    REAL(fp), INTENT(IN), DIMENSION(L1_   )    :: OOJ      ! O3 col depth (#/cm2)\n    REAL(fp), INTENT(IN), DIMENSION(L1_+1 )    :: ZZJ      ! Edge alts (cm)\n    REAL(fp), INTENT(IN), DIMENSION(L1_   )    :: DDJ\n    INTEGER,  INTENT(IN)                       :: maxChemLev\n    TYPE(ChmState), INTENT(IN)                 :: State_Chm\n    TYPE(OptInput), INTENT(IN)                 :: Input_Opt\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT)              :: State_Diag\n!\n! OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT), DIMENSION(L_,JVN_ ) :: VALJXX\n    REAL(fp), INTENT(OUT), DIMENSION(W_      ) :: FSBOT\n    REAL(fp), INTENT(OUT), DIMENSION(W_      ) :: FJBOT\n    REAL(fp), INTENT(OUT), DIMENSION(JXL1_,W_) :: FLXD\n    REAL(fp), INTENT(OUT), DIMENSION(JXL_,W_ ) :: FJFLX\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  08 Dec 2022 - E. Lundgren - Adapted from S.D.Eastham's adapted Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! --------------------------------------------------------------------\n    ! key LOCAL atmospheric data needed to solve plane-parallel J----\n    ! --these are dimensioned JXL_, and must have JXL_ .ge. State_Grid%NZ\n    real(fp), dimension(JXL1_+1)    :: PPJ\n    integer,dimension(JXL2_+1)      :: JXTRA\n    real(fp), dimension(W_)         :: FJTOP,FLXD0,RFL\n    real(fp), dimension(JXL_, W_)   :: AVGF\n    real(fp), dimension(JXL1_,W_)   :: DTAUX\n    real(fp), dimension(8,JXL1_,W_) :: POMEGAX\n\n    ! flux/heating arrays (along with FJFLX,FLXD,FLXD0)\n    real(fp) :: ODABS,ODRAY\n    real(fp) :: RFLECT\n    real(fp) :: AMF2(2*JXL1_+1,2*JXL1_+1)\n\n    ! Pointers\n    REAL*8, POINTER :: QQAA(:,:,:,:)\n    REAL*8, POINTER :: SSAA(:,:,:,:)\n    REAL*8, POINTER :: PHAA(:,:,:,:,:)\n\n    ! ---------key SCATTERING arrays for clouds+aerosols------------------\n    real(fp) :: OD(5,JXL1_),SSA(5,JXL1_),SLEG(8,5,JXL1_)\n    real(fp) :: OD600(JXL1_)\n\n    ! ---------key arrays AFTER solving for J's---------------------------\n    real(fp) :: FFF(W_,JXL_),VALJ(X_)\n    real(fp) :: VALJL(JXL_,X_) !2-D array of J_s returned by JRATET\n\n    integer  :: L2EDGE, I,J,K,L,M,KMIE,IDXAER,IM,LU\n    INTEGER  :: KMIE2, IR\n    real(fp) :: XQO3,XQO2,WAVE, TTTX\n\n    ! --------------------------------------------------------------------\n    ! For compatibility with GEOS-Chem (SDE 03/30/13)\n    REAL(fp) :: QSCALING,LOCALOD,LOCALSSA\n\n    ! T_INPUT: Input temperature (K) with extra layer for compatibility\n    REAL(fp) :: T_INPUT(JXL1_+1)\n\n    !Maps the new LUT optics wavelengths on to\n    !the 5 jv_spec_mie.dat wavelengths\n    ! N.B. currently 200nm and 300nm data is the same in\n    ! jv_spec_mie.dat, so we copy from new LUT 300nm for both\n    INTEGER :: LUTIDX(5)\n    LUTIDX = (/1,1,2,6,10/)\n\n    !=================================================================\n    ! PHOTO_JX begins here!\n    !=================================================================\n\n    ! Initialize\n    L2EDGE = L_ + L_ + 2\n    FFF(:,:) = 0.e+0_fp\n\n    ! Set pointers\n    QQAA  => State_Chm%Phot%QQAA\n    SSAA  => State_Chm%Phot%SSAA\n    PHAA  => State_Chm%Phot%PHAA\n\n    ! Fill out PPJ and TTJ with CTM data to replace fixed climatology\n    DO L=1,L1_\n       PPJ(L) = P_COL(L)\n       T_INPUT(L) = T_COL(L)\n    ENDDO\n\n    ! Ensure TOA pressure is zero\n    PPJ(L1_+1) = 0.e+0_fp\n    T_INPUT(L1_+1) = T_CLIM(L1_)\n\n    ! calculate spherical weighting functions (AMF: Air Mass Factor)\n    RFLECT = REFLB\n\n    ! --------------------------------------------------------------------\n    call SPHERE2 (U0,ZZJ,AMF2,L1_,JXL1_)\n    ! --------------------------------------------------------------------\n\n    !-----------------------------------------------------------------------\n    ! Modification for GEOS-Chem: Optical depths are calculated at a single\n    ! wavelength for GEOS-Chem, so we perform scaling in this routine.\n    ! elsewhere.\n    ! (SDE 03/31/13)\n    !-----------------------------------------------------------------------\n    ! calculate the optical properties (opt-depth, single-scat-alb,\n    ! phase-fn(1:8)) at the 5 std wavelengths 200-300-400-600-999 nm\n    ! for cloud+aerosols\n    do L = 1,L1_\n       OD600(L) = 0.e+0_fp\n       ! ODs stored with fine-grain (DTAUX) and coarse (OD)\n       do K=1,W_\n          DTAUX(L,K) = 0.e+0_fp\n       enddo\n       do K=1,5\n          OD(K,L)  = 0.e+0_fp\n          SSA(K,L) = 0.e+0_fp\n          do I=1,8\n             SLEG(I,K,L) = 0.e+0_fp\n          enddo\n       enddo\n    enddo\n\n    ! Clunky fix to accomodate RRTMG and UCX (DAR 01/2015)\n    ! Using a combination of old optics LUT format and\n    ! new optics format (greater spectral resolution and range\n    ! for RRTMG). Clouds, non-species aerosols and strat aerosols\n    ! are not incorporated into the new LUT so must still use the\n    ! old LUT for these.\n\n    ! Don't bother on extraneous level - leave as zero\n    do L = 1,L_\n       DO KMIE=1,5\n          ! Clouds and non-species aerosols\n          DO M=1,3\n             IF (AERX_COL(M,L).gt.0e+0_fp) THEN\n                IDXAER=State_Chm%Phot%MIEDX(M)\n\n                ! Cloud (600 nm scaling)\n                QSCALING = QAA(KMIE,IDXAER)/QAA(4,IDXAER)\n                LOCALOD = QSCALING*AERX_COL(M,L)\n                LOCALSSA = SAA(KMIE,IDXAER)*LOCALOD\n                OD(KMIE,L) = OD(KMIE,L) + LOCALOD\n                SSA(KMIE,L)= SSA(KMIE,L) + LOCALSSA\n                DO I=1,8\n                   SLEG(I,KMIE,L) = SLEG(I,KMIE,L) + &\n                                    (PAA(I,KMIE,IDXAER)*LOCALSSA)\n                ENDDO ! I (Phase function)\n             ENDIF\n          ENDDO ! M (Aerosol)\n          !transpose wavelength indices from the mie LUT\n          !to the new speciated LUT\n          KMIE2=LUTIDX(KMIE)\n\n          ! Stratospheric aerosols\n          IM=10+(NRHAER*NRH)+1\n          DO M=IM,IM+1\n             IDXAER=M-IM+6 !6=SSA/LBS/STS, 7-NAT/ice PSCs\n             IF (AERX_COL(M,L).gt.0d0) THEN\n                IF (AOD999) THEN\n                   ! Aerosol/dust (999 nm scaling)\n                   ! Fixed to dry radius\n                   QSCALING = QQAA(KMIE2,1,IDXAER,State_Chm%Phot%DRg)/QQAA(10,1,IDXAER,State_Chm%Phot%DRg)\n                ELSE\n                   ! Aerosol/dust (550 nm scaling)\n                   QSCALING = QQAA(KMIE2,1,IDXAER,State_Chm%Phot%DRg)/QQAA(5,1,IDXAER,State_Chm%Phot%DRg)\n                ENDIF\n                LOCALOD    = QSCALING*AERX_COL(M,L)\n                LOCALSSA   = SSAA(KMIE2,1,IDXAER,State_Chm%Phot%DRg)*LOCALOD\n                OD(KMIE,L) = OD(KMIE,L) + LOCALOD\n                SSA(KMIE,L)= SSA(KMIE,L) + LOCALSSA\n                DO I=1,8\n                   SLEG(I,KMIE,L) = SLEG(I,KMIE,L) + &\n                                    (PAA(I,KMIE,IDXAER)*LOCALSSA)\n                ENDDO     ! I (Phase function)\n             ENDIF\n\n          ENDDO           ! M (Aerosol)\n\n          ! Mineral dust (from new optics LUT)\n          DO M=4,10\n             IF (AERX_COL(M,L).gt.0d0) THEN\n                IDXAER=State_Chm%Phot%NSPAA !dust is last in LUT\n                IR=M-3\n                IF (AOD999) THEN\n                   QSCALING = QQAA(KMIE2,IR,IDXAER,State_Chm%Phot%DRg)/ &\n                              QQAA(10,IR,IDXAER,State_Chm%Phot%DRg) !1000nm in new .dat\n                ELSE\n                   ! Aerosol/dust (550 nm scaling)\n                   QSCALING = QQAA(KMIE2,IR,IDXAER,State_Chm%Phot%DRg)/ &\n                              QQAA(5,IR,IDXAER,State_Chm%Phot%DRg)  !550nm in new .dat\n                ENDIF\n                LOCALOD = QSCALING*AERX_COL(M,L)\n                LOCALSSA = SSAA(KMIE2,IR,IDXAER,State_Chm%Phot%DRg)*LOCALOD\n                OD(KMIE,L) = OD(KMIE,L) + LOCALOD\n                SSA(KMIE,L)= SSA(KMIE,L) + LOCALSSA\n                DO I=1,8\n                   SLEG(I,KMIE,L) = SLEG(I,KMIE,L) + &\n                                    (PHAA(KMIE2,IR,IDXAER,I,State_Chm%Phot%DRg)*LOCALSSA)\n                ENDDO ! I (Phase function)\n             ENDIF\n          ENDDO ! M (Aerosol)\n\n          ! Other aerosol (from new optics LUT)\n          DO M=1,5\n\n             DO IR=1,5\n                IDXAER=10+(M-1)*NRH+IR\n                IF (AERX_COL(IDXAER,L).gt.0d0) THEN\n                   IF (AOD999) THEN\n                      QSCALING = QQAA(KMIE2,IR,M,State_Chm%Phot%DRg)/ &\n                                 QQAA(10,IR,M,State_Chm%Phot%DRg) !1000nm in new .dat\n                   ELSE\n                      ! Aerosol/dust (550 nm scaling)\n                      QSCALING = QQAA(KMIE2,IR,M,State_Chm%Phot%DRg)/ &\n                                 QQAA(5,IR,M,State_Chm%Phot%DRg)  !550nm in new .dat\n                   ENDIF\n                   LOCALOD = QSCALING*AERX_COL(IDXAER,L)\n                   LOCALSSA = SSAA(KMIE2,IR,M,State_Chm%Phot%DRg)*LOCALOD\n                   OD(KMIE,L) = OD(KMIE,L) + LOCALOD\n                   SSA(KMIE,L)= SSA(KMIE,L) + LOCALSSA\n                   DO I=1,8\n                      SLEG(I,KMIE,L) = SLEG(I,KMIE,L) + &\n                                       (PHAA(KMIE2,IR,M,I,State_Chm%Phot%DRg)*LOCALSSA)\n                   ENDDO ! I (Phase function)\n                ENDIF\n             ENDDO    ! IR (RH bins)\n          ENDDO ! M (Aerosol)\n       ENDDO ! KMIE (Mie scattering wavelength bin)\n\n       ! Normalize\n       DO KMIE=1,5\n          IF (OD(KMIE,L).gt.0.e+0_fp) THEN\n             SSA(KMIE,L) = SSA(KMIE,L)/OD(KMIE,L)\n             DO I=1,8\n                SLEG(I,KMIE,L) = SLEG(I,KMIE,L)/OD(KMIE,L)\n             ENDDO\n          ENDIF\n       ENDDO\n       ! Retrieve 600 nm OD to determine added layers\n       OD600(L) = OD(4,L)\n    ENDDO ! L (Layer)\n\n    ! when combining with Rayleigh and O2-O3 abs, remember the SSA and\n    !  phase fn SLEG are weighted by OD and OD*SSA, respectively.\n    ! Given the aerosol+cloud OD/layer in visible (600 nm) calculate how to add\n    !  additonal levels at top of clouds (now uses log spacing)\n    ! --------------------------------------------------------------------\n    call EXTRAL(Input_Opt,State_Diag,OD600,L1_,L2EDGE,N_,JXTRA,ILON,ILAT)\n    ! --------------------------------------------------------------------\n\n    ! set surface reflectance\n    RFL(:) = max(0.e+0_fp,min(1.e+0_fp,RFLECT))\n\n    ! --------------------------------------------------------------------\n    ! Loop over all wavelength bins to calc mean actinic flux AVGF(L)\n    ! --------------------------------------------------------------------\n    do K = 1,W_\n\n       WAVE = WL(K)\n       ! Pick nearest Mie wavelength to get scattering properites------------\n       KMIE=1                             ! use 200 nm prop for <255 nm\n       if( WAVE .gt. 255.e+0_fp ) KMIE=2  ! use 300 nm prop for 255-355 nm\n       if( WAVE .gt. 355.e+0_fp ) KMIE=3  ! use 400 nm prop for 355-500 nm\n       if( WAVE .gt. 500.e+0_fp ) KMIE=4\n       if( WAVE .gt. 800.e+0_fp ) KMIE=5\n\n       ! Combine: Rayleigh scatters & O2 & O3 absorbers to get optical\n       ! properties values at L1_=L_+1 are a pseudo/climatol layer above\n       ! the top CTM layer (L_)\n       do L = 1,L1_\n          TTTX     = T_CLIM(L) ! Following GEOS-Chem v9-1-3\n          call X_interp (TTTX,XQO2, TQQ(1,1),QO2(K,1), TQQ(2,1),QO2(K,2), &\n                         TQQ(3,1),QO2(K,3), LQQ(1))\n          call X_interp (TTTX,XQO3, TQQ(1,2),QO3(K,1), TQQ(2,2),QO3(K,2), &\n                         TQQ(3,2),QO3(K,3), LQQ(2))\n          ODABS = XQO3*OOJ(L) + XQO2*DDJ(L)*0.20948e+0_fp\n          ODRAY = DDJ(L)*QRAYL(K)\n\n          DTAUX(L,K) = OD(KMIE,L) + ODABS + ODRAY\n\n          ! Aerosols + clouds + O2 + O3\n          do I=1,8\n             POMEGAX(I,L,K) = SLEG(I,KMIE,L)*OD(KMIE,L)\n          enddo\n          ! Add Rayleigh scattering effects\n          ! Only non-zero for 1st and 3rd phase functions\n          POMEGAX(1,L,K) = POMEGAX(1,L,K) + 1.0e+0_fp*ODRAY\n          POMEGAX(3,L,K) = POMEGAX(3,L,K) + 0.5e+0_fp*ODRAY\n          ! Normalize\n          do I=1,8\n             POMEGAX(I,L,K) = POMEGAX(I,L,K)/DTAUX(L,K)\n          enddo\n       enddo\n    enddo\n    ! --------------------------------------------------------------------\n\n    LU = L_\n    call OPMIE(DTAUX,POMEGAX,U0,RFL,AMF2,JXTRA, &\n               AVGF,FJTOP,FJBOT,FSBOT,FJFLX,FLXD,FLXD0,LU)\n\n    !! --------------------------------------------------------------------\n\n    do K = 1,W_\n       do L = 1,L_\n          FFF(K,L) = FFF(K,L) + SOLF*FL(K)*AVGF(L,K)\n       enddo\n    enddo\n\n    ! Calculate photolysis rates\n    call JRATET(PPJ,T_INPUT,FFF, VALJXX,L_,maxChemLev,NJX)\n\n    ! Set diagnostics for 600 nm optical depth\n    IF ( State_Diag%Archive_OD600 ) THEN\n       State_Diag%OD600(ILON,ILAT,1:L_) = OD600(1:L_)\n    ENDIF\n    IF ( State_Diag%Archive_TCOD600 ) THEN\n       State_Diag%TCOD600(ILON,ILAT) = SUM(OD600(1:L_))\n    ENDIF\n\n    ! Free pointers\n    QQAA  => NULL()\n    SSAA  => NULL()\n    PHAA  => NULL()\n\n  END SUBROUTINE PHOTO_JX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: solar_jx\n!\n! !DESCRIPTION: Subroutine SOLAR\\_JX handles solar zenith angles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SOLAR_JX(NDAY,COSSZA,SZA,SOLFX)\n!\n! !USES:\n!\n    USE PhysConstants, ONLY : PI\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  ::  COSSZA\n    INTEGER,  INTENT(IN)  ::  NDAY\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) ::  SZA,SOLFX\n!\n! !REMARKS:\n!  ---------------------------------------------------------------------\n!     NDAY   = integer day of the year (used for solar lat and declin)\n!     SZA = solar zenith angle in degrees\n!     COSSZA = U0 = cos(SZA)\n!     SOLFX = Solar function\n!  ---------------------------------------------------------------------\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Adapted from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)  PI180\n\n    !=================================================================\n    ! SOLAR_JX begins here!\n    !=================================================================\n\n    PI180  = PI/180.e+0_fp\n    SZA    = acos(MIN(MAX(COSSZA,-1._fp),1._fp))/PI180\n\n    ! Offset used for GEOS-Chem slightly different\n    !SOLFX  = 1.e+0_fp-(0.034e+0_fp*cos(dble(NDAY-186)*2.e+0_fp*PI/365.e+0_fp))\n    SOLFX  = 1.e+0_fp-(0.034e+0_fp*cos(dble(NDAY-172) &\n            *2.e+0_fp*PI/365.e+0_fp))\n\n  END SUBROUTINE SOLAR_JX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rd_mie\n!\n! !DESCRIPTION: Subroutine RD\\_MIE retrieves aerosol scattering data for FJX.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RD_MIE( amIRoot, dryrun, LBRC, NUN, NAMFIL, RC )\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY : TITLAA, NAA, PAA, QAA, RAA, SAA, WAA\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)  :: amIRoot     ! On root thread?\n    LOGICAL,        INTENT(IN)  :: dryrun      ! Dry run to print inputs?\n    LOGICAL,        INTENT(IN)  :: LBRC        ! Brown carbon?\n    INTEGER,        INTENT(IN)  :: NUN         ! Logical unit #\n    CHARACTER(*),   INTENT(IN)  :: NAMFIL      ! File name\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!   --------------------------------------------------------------------\n!     NAMFIL   Name of scattering data file (e.g., FJX_scat.dat)\n!     NUN      Channel number for reading data file\n!     NAA      Number of categories for scattering phase functions\n!     QAA      Aerosol scattering phase functions\n!     WAA      5 Wavelengths for the supplied phase functions\n!     PAA      Phase function: first 8 terms of expansion\n!     RAA      Effective radius associated with aerosol type\n!     SAA      Single scattering albedo\n!   --------------------------------------------------------------------\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Adapted from GEOS-Chem v9-1-3\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: I, J, K, NK\n\n    ! Strings\n    CHARACTER(LEN=78 ) :: TITLE0\n    CHARACTER(LEN=255) :: FileMsg, ErrMsg, ThisLoc\n\n    !=================================================================\n    ! In dry-run mode, print file path to dryrun log and exit.\n    ! Otherwise, print file path to stdout and continue.\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n    ErrMsg = ''\n    ThisLoc = ' -> at RD_MIE (in module GeosCore/fast_jx_mod.F90)'\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( NamFil ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg = 'FAST-JX (RD_MIE): Opening'\n    ELSE\n       FileMsg = 'FAST-JX (RD_MIE): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write to stdout for both regular and dry-run simulations\n    IF ( amIRoot ) THEN\n       WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( NamFil )\n300    FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( dryrun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( NamFil )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! RD_MIE begins here -- read data from file\n    !=================================================================\n\n    ! Open file\n    open (NUN,FILE=NAMFIL,status='old',form='formatted')\n\n    ! Read header lines\n    READ( NUN,'(A)' ) TITLE0\n    IF  ( amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0\n    READ( NUN,'(A)' ) TITLE0\n\n    !---Read aerosol phase functions:\n    read(NUN,'(A10,I5,/)') TITLE0,NAA\n\n    NK=5\n    do j=1,NAA\n       read(NUN,110) TITLAA(j)\n       do k=1,NK\n          read(NUN,*) WAA(k,j),QAA(k,j),RAA(k,j),SAA(k,j), &\n                      (PAA(i,k,j),i=1,8)\n       enddo\n    enddo\n\n    ! Brown carbon option\n    IF (LBRC) THEN\n\n       ! Overwrite OC entries (36-42 in jv_spec_mie.dat)\n       ! with BR entries at end of file (labeled 57-63)\n       do j= 36, 42\n          read(NUN,110) TITLAA(j)\n          do k=1,NK\n             read(NUN,*) WAA(k,j),QAA(k,j),RAA(k,j),SAA(k,j), &\n                         (PAA(i,k,j),i=1,8)\n          enddo\n       enddo\n\n    ENDIF\n\n    close(NUN)\n\n\n    IF ( amIRoot ) THEN\n       write(6,'(a,9f8.1)') ' Aerosol optical: r-eff/rho/Q(@wavel):', &\n                            (WAA(K,1),K=1,5)\n       do J=1,NAA\n          write(6,'(1x,A)') TRIM(TITLAA(J))\n          write(6,'(3x,I2,A,9F8.1)') J,'  wavel=',(WAA(K,J),K=1,NK)\n          write(6,'(3x,I2,A,9F8.4)') J,'  Qext =',(QAA(K,J),K=1,NK)\n       enddo\n    ENDIF\n\n110 format(3x,a80)\n\n  END SUBROUTINE RD_MIE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rd_xxx\n!\n! !DESCRIPTION: Subroutine RD\\_XXX reads in wavelength bins, solar fluxes,\n!  Rayleigh and temperature-dependent cross-sections.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RD_XXX ( amIRoot, dryrun, NUN, NAMFIL, RC )\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY : W_, WX_, X_, NJX, NW1, NW2\n    USE CMN_FJX_Mod, ONLY : TITLEJX, WL, FL, QRAYL, QO2, QO3, Q1D\n    USE CMN_FJX_Mod, ONLY : LQQ, QQQ, SQQ, TQQ\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)  :: amIRoot\n    LOGICAL,        INTENT(IN)  :: dryrun\n    INTEGER,        INTENT(IN)  :: NUN\n    CHARACTER(*),   INTENT(IN)  :: NAMFIL\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC\n!\n! !REMARKS:\n!    NEW v-6.8  now allow 1 to 3 sets of X-sects for T or P\n!           LQQ = 1, 2, or 3 to determine interpolation with T or P\n!           IF the temperatures TQQQ are <0, then use as pressure interp (hPa)\n!           NB - the temperatures and pressures must be increasing\n!    NEW v-6.4  changed to collapse wavelengths & x-sections to Trop-only:\n!           WX_ = 18 should match the JX_spec.dat wavelengths\n!           W_ = 12 (Trop-only) or 18 (std) is set in (CMN_FJX.F).\n!       if W_=12 then drop strat wavels, and drop x-sects (e.g. N2O, ...)\n!           W_ = 8, reverts to quick fix:  fast-J (12-18) plus bin (5) scaled\n!                                                                             .\n!   --------------------------------------------------------------------\n!     NAMFIL   Name of spectral data file (FJX_spec.dat) >> j2 for fast-J2\n!     NUN      Channel number for reading data file\n!\n!     NJX    Number of species to calculate J-values for\n!     NWWW     Number of wavelength bins, from 1:NWWW\n!     WBIN     Boundaries of wavelength bins\n!     WL       Centres of wavelength bins - 'effective wavelength'\n!     FL       Solar flux incident on top of atmosphere (cm-2.s-1)\n!     QRAYL    Rayleigh parameters (effective cross-section) (cm2)\n!     QO2      O2 cross-sections\n!     QO3      O3 cross-sections\n!     Q1D      O3 => O(1D) quantum yield\n!     TQQ      Temperature for supplied cross sections\n!     QQQ      Supplied cross sections in each wavelength bin (cm2)\n!   --------------------------------------------------------------------\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: I, J, JJ, K, IW, NQRD, NWWW, LQ\n    REAL(fp)           :: TQQ2\n\n    ! Arrays\n    REAL(fp)           :: QQ2(199)\n\n    ! Strings\n    CHARACTER(LEN=255) :: FileMsg, FileStatus\n    CHARACTER(LEN=255) :: ErrMsg,  ThisLoc\n    CHARACTER(LEN=78)  :: TITLE0\n    CHARACTER(LEN=6 )  :: TITLEJ2, TITLEJ3\n    CHARACTER(LEN=1 )  :: TSTRAT\n\n    !=================================================================\n    ! In dry-run mode, print file path to dryrun log and exit.\n    ! Otherwise, print file path to stdout and continue.\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = '-> at RD_XXX (in module GeosCore/fast_jx_mod.F)'\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( NamFil ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg    = 'FAST-JX (RD_XXX): Opening'\n    ELSE\n       FileMsg    = 'FAST-JX (RD_XXX): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write to stdout for both regular and dry-run simulations\n    IF ( amIRoot ) THEN\n       WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( NamFil )\n300    FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program.\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( dryrun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( NamFil )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! RD_XXX begins here!\n    !=================================================================\n\n    ! Initialization\n    TQQ(:,:) = 0.e+0_fp\n\n    ! -------spectral data----set for new format data------------------\n    !         note that X_ = max # Xsects read in\n    !                   NJX = # fast-JX J-values derived from this (.le. X_)\n\n    ! >>>> W_ = 12 <<<< means trop-only, discard WL #1-4 and #9-10, some X-sects\n\n    ! Open file\n    open (NUN,FILE=NAMFIL,status='old',form='formatted')\n    read (NUN,100) TITLE0\n\n    ! -note that NQRD is not used any more, a read until 'endofJ' is performed\n    read (NUN,101) NQRD,NWWW\n    NW1 = 1\n    NW2 = NWWW\n    IF ( amIRoot ) THEN\n       write(6,'(1x,a)') TITLE0\n       write(6,'(i8)') NWWW\n    ENDIF\n    ! -J-values:  1=O2, 2=O3P,3=O3D 4=readin Xsects\n    read (NUN,102) (WL(IW),IW=1,NWWW)\n    read (NUN,102) (FL(IW),IW=1,NWWW)\n    read (NUN,102) (QRAYL(IW),IW=1,NWWW)\n\n    ! Read O2 X-sects, O3 X-sects, O3=>O(1D) quant yields (each at 3 temps)\n    ! NB the O3 and q-O3-O1D are at different temperatures and cannot be combined\n    read (NUN,103) TITLEJX(1),TQQ(1,1), (QO2(IW,1),IW=1,NWWW)\n    read (NUN,103) TITLEJ2,   TQQ(2,1), (QO2(IW,2),IW=1,NWWW)\n    read (NUN,103) TITLEJ3,   TQQ(3,1), (QO2(IW,3),IW=1,NWWW)\n\n    read (NUN,103) TITLEJX(2),TQQ(1,2), (QO3(IW,1),IW=1,NWWW)\n    read (NUN,103) TITLEJ2,   TQQ(2,2), (QO3(IW,2),IW=1,NWWW)\n    read (NUN,103) TITLEJ3,   TQQ(3,2), (QO3(IW,3),IW=1,NWWW)\n\n    read (NUN,103) TITLEJX(3),TQQ(1,3), (Q1D(IW,1),IW=1,NWWW)\n    read (NUN,103) TITLEJ2,   TQQ(2,3), (Q1D(IW,2),IW=1,NWWW)\n    read (NUN,103) TITLEJ3,   TQQ(3,3), (Q1D(IW,3),IW=1,NWWW)\n\n    SQQ(1) = ' '\n    SQQ(2) = ' '\n    SQQ(3) = ' '\n\n    LQQ(1) = 3\n    LQQ(2) = 3\n    LQQ(3) = 3\n\n    ! Read remaining species:  X-sections at 1-2-3 T_s\n    JJ = 3\n    do I=1,9999\n\n       ! try to read in 3 X-sects per J-value (JJ)\n       read (NUN,104) TITLEJ2,TSTRAT,TQQ2,(QQ2(IW),IW=1,NWWW)\n       if (TITLEJ2 .eq. 'endofJ') goto 1\n\n       ! skip stratosphere only J's (denoted by 'x')if W_<18 => trop-only J's\n       if (W_.eq.18 .or. TSTRAT.ne.'x') then\n          if (TITLEJ2 .ne. TITLEJX(JJ)) then\n             JJ = JJ+1\n\n             if (JJ .gt. X_) then\n                call EXITC(' RD_XXX:  X_ not large enough for Xsects read in')\n             endif\n\n             TITLEJX(JJ) = TITLEJ2\n             LQQ(JJ) = 1\n             SQQ(JJ) = TSTRAT\n             LQ = LQQ(JJ)\n             TQQ(LQ,JJ) = TQQ2\n             do IW = 1,NWWW\n                QQQ(IW,LQ,JJ) = QQ2(IW)\n             enddo\n          else\n             LQQ(JJ) = LQQ(JJ)+1\n             if (LQQ(JJ) .le. 3) then\n                LQ = LQQ(JJ)\n                TQQ(LQ,JJ) = TQQ2\n                do IW = 1,NWWW\n                   QQQ(IW,LQ,JJ) = QQ2(IW)\n                enddo\n             endif\n          endif\n       endif\n    enddo\n1   continue\n    NJX = JJ\n\n    do J = 1,NJX\n       if ( amIRoot ) then\n          write(6,200) J,TITLEJX(J),SQQ(J),LQQ(J),(TQQ(I,J),I=1,LQQ(J))\n       endif\n       ! need to check that TQQ is monotonically increasing:\n       if (LQQ(J) .eq. 3) then\n          if (TQQ(2,J) .ge. TQQ(3,J)) then\n             call EXITC ('TQQ out of order')\n          endif\n          if (TQQ(1,J) .ge. TQQ(2,J)) then\n             call EXITC ('TQQ out of order')\n          endif\n       endif\n       if (LQQ(J) .eq. 2) then\n          if (TQQ(1,J) .ge. TQQ(2,J)) then\n             call EXITC ('TQQ out of order')\n          endif\n       endif\n    enddo\n\n    ! check on doingpressure interp\n    ! check on consolidating Qo2 and others into\n    ! wrte a newFJX_J2J.dat for mapping on fjx Xsects\n\n    ! truncate number of wavelengths to do troposphere-only\n    if (W_ .ne. WX_) then\n       ! TROP-ONLY\n       if (W_ .eq. 12) then\n          if ( amIRoot ) then\n             write(6,'(a)') &\n                  ' >>>TROP-ONLY reduce wavelengths to 12, drop strat X-sects'\n          endif\n          NW2 = 12\n          do IW = 1,4\n             WL(IW) = WL(IW+4)\n             FL(IW) = FL(IW+4)\n             QRAYL(IW) = QRAYL(IW+4)\n             do K = 1,3\n                QO2(IW,K) = QO2(IW+4,K)\n                QO3(IW,K) = QO3(IW+4,K)\n                Q1D(IW,K) = Q1D(IW+4,K)\n             enddo\n             do J = 4,NJX\n                do LQ=1,LQQ(J)\n                   QQQ(IW,LQ,J) = QQQ(IW+4,LQ,J)\n                enddo\n             enddo\n          enddo\n          do IW = 5,12\n             WL(IW) = WL(IW+6)\n             FL(IW) = FL(IW+6)\n             QRAYL(IW) = QRAYL(IW+6)\n             do K = 1,3\n                QO2(IW,K) = QO2(IW+6,K)\n                QO3(IW,K) = QO3(IW+6,K)\n                Q1D(IW,K) = Q1D(IW+6,K)\n             enddo\n             do J = 4,NJX\n                do LQ=1,LQQ(J)\n                   QQQ(IW,LQ,J) = QQQ(IW+6,LQ,J)\n                enddo\n             enddo\n          enddo\n          ! TROP-QUICK  (must scale solar flux for W=5)\n       elseif (W_ .eq. 8) then\n          if ( amIRoot ) then\n             write(6,'(a)') &\n                  ' >>>TROP-QUICK reduce wavelengths to 8, drop strat X-sects'\n          endif\n          NW2 = 8\n          do IW = 1,1\n             WL(IW) = WL(IW+4)\n             FL(IW) = FL(IW+4)  * 2.e+0_fp\n             QRAYL(IW) = QRAYL(IW+4)\n             do K = 1,3\n                QO2(IW,K) = QO2(IW+4,K)\n                QO3(IW,K) = QO3(IW+4,K)\n                Q1D(IW,K) = Q1D(IW+4,K)\n             enddo\n             do J = 4,NJX\n                do LQ=1,LQQ(J)\n                   QQQ(IW,LQ,J) = QQQ(IW+4,LQ,J)\n                enddo\n             enddo\n          enddo\n          do IW = 2,8\n             WL(IW) = WL(IW+10)\n             FL(IW) = FL(IW+10)\n             QRAYL(IW) = QRAYL(IW+10)\n             do K = 1,3\n                QO2(IW,K) = QO2(IW+10,K)\n                QO3(IW,K) = QO3(IW+10,K)\n                Q1D(IW,K) = Q1D(IW+10,K)\n             enddo\n             do J = 4,NJX\n                do LQ=1,LQQ(J)\n                   QQQ(IW,LQ,J) = QQQ(IW+10,LQ,J)\n                enddo\n             enddo\n          enddo\n\n       else\n          call EXITC(' no. wavelengths wrong: W_ .ne. 8,12,18')\n       endif\n    endif\n\n    close(NUN)\n\n100 format(a)\n101 format(10x,5i5)\n102 format(10x,    6e10.3/(10x,6e10.3)/(10x,6e10.3))\n103 format(a6,1x,f3.0,6e10.3/(10x,6e10.3)/(10x,6e10.3))\n104 format(a6,a1,f3.0,6e10.3/(10x,6e10.3)/(10x,6e10.3))\n200 format(1x,' x-sect:',i3,a10,a4,i5,3(3x,f6.2))\n201 format(' Number of x-sections supplied to Fast-J2: ',i3,/, &\n           ' Maximum number allowed (X_) only set to: ',i3,    &\n           ' - increase in cmn_FJX.f')\n\n  END SUBROUTINE RD_XXX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rd_js_jx\n!\n! !DESCRIPTION: Subroutine RD\\_JS\\_JX reads in 'FJX\\_j2j.dat', which defines\n!  the mapping of Fast-JX J's (TITLEJX(1:NJX)) onto the CTM reactions.\n!  Reaction number JJ, named T\\_REACT, uses Fast-JX's T\\_FJX (including scaling\n!  factor F\\_FJX).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RD_JS_JX( amIRoot, dryrun, NUNIT, NAMFIL, TITLEJX, NJXX, RC )\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY : M2_, JVN_, JIND\n    USE CMN_FJX_Mod, ONLY : JLABEL, JFACTA, NRATJ, BRANCH, RNAMES\n    USE Charpak_Mod,    ONLY : CStrip\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)                  :: amIRoot\n    LOGICAL,          INTENT(IN)                  :: dryrun\n    INTEGER,          INTENT(IN)                  :: NUNIT\n    INTEGER,          INTENT(IN)                  :: NJXX\n    CHARACTER(LEN=*), INTENT(IN)                  :: NAMFIL\n    CHARACTER(LEN=6), INTENT(IN), DIMENSION(NJXX) :: TITLEJX\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)                 :: RC\n!\n! !REMARKS:\n!  Now flag special reactions that are to be adjusted for FlexChem later.\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: J, JJ, K\n    REAL(fp)           :: F_FJX\n\n    ! Strings\n    CHARACTER(LEN=6  ) :: T_FJX\n    CHARACTER(LEN=50 ) :: T_REACT\n    CHARACTER(LEN=50 ) :: TEXT\n    CHARACTER(LEN=120) :: CLINE\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, FileMsg\n\n    ! String arrays\n    CHARACTER(LEN=6)   :: JMAP(JVN_)\n\n    !========================================================================\n    ! RD_JS_JX begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Rd_Js_Jx (in module GeosCore/fast_jx_mod.F90)'\n\n    !========================================================================\n    ! In dry-run mode, print file path to dryrun log and exit.\n    ! Otherwise, print file path to stdout and continue.\n    !========================================================================\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( NamFil ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg = 'FAST-JX (RD_JS_JX): Opening'\n    ELSE\n       FileMsg = 'FAST-JX (RD_JS_JX): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write to stdout for both regular and dry-run simulations\n    IF ( amIRoot ) THEN\n       WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( NamFil )\n300    FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program.\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( dryrun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( NamFil )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Read the FJX_j2j.dat file to map model specific J's onto fast-JX J's\n    ! The chemistry code title describes fully the reaction (a50)\n    ! Blank (unfilled) chemistry J's are unmapped\n    ! The number NRATJ is the last JJ readin that is .le. JVN\n    ! include fractional quantum yield for the fast-JX J's\n    !========================================================================\n\n    JLABEL(:) = '------'\n    JMAP(:)   = '------'\n    JFACTA(:) = 0.e+0_fp\n\n    ! Open file\n    open (NUNIT,file=NAMFIL,status='old',form='formatted')\n\n    read (NUNIT,'(a)') CLINE\n    IF ( amIRoot ) THEN\n       write(6,'(a)') CLINE\n    ENDIF\n    do J = 1,JVN_\n       read (NUNIT,'(i4,1x,a50,4x,f5.3,2x,a6)') JJ,T_REACT,F_FJX,T_FJX\n       IF (JJ.gt.JVN_) THEN\n          IF ( JJ .eq. 9999 ) THEN\n             close(NUNIT)\n             exit\n          ELSE\n             ErrMsg = 'Number of reactions in FJX_j2j.dat exceeds JVN_.' //&\n                      'Adjust JVN_ in CMN_FJX_mod.F90 to get past error.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       JLABEL(JJ) = T_REACT\n       JFACTA(JJ) = F_FJX\n       JMAP(JJ) = T_FJX\n       NRATJ = JJ\n       ! SDE 03/31/13: Check number of branches\n       ! Note that the order of the branches in\n       ! globchem.dat must match the order in\n       ! FJX_j2j.dat\n       READ (T_REACT(1:10),\"(a10)\") RNAMES(JJ)\n       RNAMES(JJ) = TRIM(RNAMES(JJ))\n       BRANCH(JJ) = 1\n       DO K=1,(JJ-1)\n          IF (RNAMES(JJ) == RNAMES(K)) THEN\n             BRANCH(JJ) = BRANCH(K) + 1\n          ENDIF\n       ENDDO\n    enddo\n\n20  close(NUNIT)\n\n\n    ! Zero / Set index arrays that map Jvalue(j) onto rates\n    do K = 1,NRATJ\n       JIND(K) = 0\n       do J = 1,NJXX\n          T_FJX = TITLEJX(J)\n          if (JMAP(K) .eq. TITLEJX(J)) then\n             JIND(K)=J\n          endif\n       enddo\n    enddo\n\n    IF ( amIRoot ) THEN\n       write(6,'(a,i4,a)')'Photochemistry Scheme with',NRATJ,' J-values'\n    ENDIF\n    do K=1,NRATJ\n       if (JMAP(K) .ne. '------' ) then\n          J = JIND(K)\n          IF ( amIRoot ) THEN\n             if (J.eq.0) then\n                write(6,'(i5,1x,a50,f6.3,a,1x,a6)') K,JLABEL(K),JFACTA(K), &\n                     ' no mapping onto fast-JX',JMAP(K)\n             else\n                write(6,'(i5,1x,a50,f6.3,a,i4,1x,a6)') K,JLABEL(K),JFACTA(K), &\n                     ' mapped to FJX:',J,TITLEJX(J)\n             endif\n          ENDIF\n       endif\n    enddo\n\n  END SUBROUTINE RD_JS_JX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: blkslv\n!\n! !DESCRIPTION: Subroutine BLKSLV solves the block tri-diagonal system\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE BLKSLV(FJ,POMEGA,FZ,ZTAU,ZFLUX,RFL,PM,PM0,FJTOP,FJBOT,ND)\n!\n! !USES:\n!\n  USE CMN_FJX_Mod, ONLY : EMU, M_, M2_, N_, W_, WT\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: ND\n    REAL(fp), INTENT(IN)  :: POMEGA(M2_,N_,W_)\n    REAL(fp), INTENT(IN)  :: FZ(N_,W_)\n    REAL(fp), INTENT(IN)  :: ZTAU(N_,W_)\n    REAL(fp), INTENT(IN)  :: PM(M_,M2_)\n    REAL(fp), INTENT(IN)  :: PM0(M2_)\n    REAL(fp), INTENT(IN)  :: RFL(W_)\n    REAL(fp), INTENT(IN)  :: ZFLUX(W_)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: FJ(N_,W_)\n    REAL(fp), INTENT(OUT) :: FJTOP(W_)\n    REAL(fp), INTENT(OUT) :: FJBOT(W_)\n!\n! !REMARKS:\n! The block tri-diagonal system:\n!       A(I)*X(I-1) + B(I)*X(I) + C(I)*X(I+1) = H(I)\n!\n! !REVISION HISTORY:\n!  27 Mar 2013 - S. D. Eastham - Copied from GEOS-Chem v9-01-03\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp), DIMENSION(M_,N_,W_)    ::  A,C,H,   RR\n    REAL(fp), DIMENSION(M_,M_,N_,W_) ::  B,AA,CC,  DD\n    REAL(fp), DIMENSION(M_,M_)       ::  E\n    REAL(fp)  SUMB,SUMBX,SUMT\n    INTEGER I, J, K, L\n\n    !=================================================================\n    ! BLKSLV begins here!\n    !=================================================================\n\n    do K = 1,W_\n       call GEN_ID (POMEGA(1,1,K),FZ(1,K),ZTAU(1,K),ZFLUX(K),RFL(K), &\n                    PM,PM0, B(1,1,1,K),CC(1,1,1,K),AA(1,1,1,K),      &\n                    A(1,1,K),H(1,1,K),C(1,1,K), ND)\n    enddo\n\n    do K = 1,W_\n       ! UPPER BOUNDARY L=1\n       L = 1\n       do J = 1,M_\n       do I = 1,M_\n          E(I,J) = B(I,J,1,K)\n       enddo\n       enddo\n\n       ! setup L & U matrices\n       E(2,1) = E(2,1)/E(1,1)\n       E(2,2) = E(2,2)-E(2,1)*E(1,2)\n       E(2,3) = E(2,3)-E(2,1)*E(1,3)\n       E(2,4) = E(2,4)-E(2,1)*E(1,4)\n       E(3,1) = E(3,1)/E(1,1)\n       E(3,2) = (E(3,2)-E(3,1)*E(1,2))/E(2,2)\n       E(3,3) = E(3,3)-E(3,1)*E(1,3)-E(3,2)*E(2,3)\n       E(3,4) = E(3,4)-E(3,1)*E(1,4)-E(3,2)*E(2,4)\n       E(4,1) = E(4,1)/E(1,1)\n       E(4,2) = (E(4,2)-E(4,1)*E(1,2))/E(2,2)\n       E(4,3) = (E(4,3)-E(4,1)*E(1,3)-E(4,2)*E(2,3))/E(3,3)\n       E(4,4) = E(4,4)-E(4,1)*E(1,4)-E(4,2)*E(2,4)-E(4,3)*E(3,4)\n       ! invert L\n       E(4,3) = -E(4,3)\n       E(4,2) = -E(4,2)-E(4,3)*E(3,2)\n       E(4,1) = -E(4,1)-E(4,2)*E(2,1)-E(4,3)*E(3,1)\n       E(3,2) = -E(3,2)\n       E(3,1) = -E(3,1)-E(3,2)*E(2,1)\n       E(2,1) = -E(2,1)\n       ! invert U\n       E(4,4) = 1.e+0_fp/E(4,4)\n       E(3,4) = -E(3,4)*E(4,4)/E(3,3)\n       E(3,3) = 1.e+0_fp/E(3,3)\n       E(2,4) = -(E(2,3)*E(3,4)+E(2,4)*E(4,4))/E(2,2)\n       E(2,3) = -E(2,3)*E(3,3)/E(2,2)\n       E(2,2) = 1.e+0_fp/E(2,2)\n       E(1,4) = -(E(1,2)*E(2,4)+E(1,3)*E(3,4)+E(1,4)*E(4,4))/E(1,1)\n       E(1,3) = -(E(1,2)*E(2,3)+E(1,3)*E(3,3))/E(1,1)\n       E(1,2) = -E(1,2)*E(2,2)/E(1,1)\n       E(1,1) = 1.e+0_fp/E(1,1)\n       ! multiply U-invers * L-inverse\n       E(1,1) = E(1,1)+E(1,2)*E(2,1)+E(1,3)*E(3,1)+E(1,4)*E(4,1)\n       E(1,2) = E(1,2)+E(1,3)*E(3,2)+E(1,4)*E(4,2)\n       E(1,3) = E(1,3)+E(1,4)*E(4,3)\n       E(2,1) = E(2,2)*E(2,1)+E(2,3)*E(3,1)+E(2,4)*E(4,1)\n       E(2,2) = E(2,2)+E(2,3)*E(3,2)+E(2,4)*E(4,2)\n       E(2,3) = E(2,3)+E(2,4)*E(4,3)\n       E(3,1) = E(3,3)*E(3,1)+E(3,4)*E(4,1)\n       E(3,2) = E(3,3)*E(3,2)+E(3,4)*E(4,2)\n       E(3,3) = E(3,3)+E(3,4)*E(4,3)\n       E(4,1) = E(4,4)*E(4,1)\n       E(4,2) = E(4,4)*E(4,2)\n       E(4,3) = E(4,4)*E(4,3)\n\n       do J = 1,M_\n          do I = 1,M_\n             DD(I,J,1,K) = -E(I,1)*CC(1,J,1,K)-E(I,2)*CC(2,J,1,K) &\n                           -E(I,3)*CC(3,J,1,K)-E(I,4)*CC(4,J,1,K)\n          enddo\n          RR(J,1,K) = E(J,1)*H(1,1,K)+E(J,2)*H(2,1,K) &\n                    + E(J,3)*H(3,1,K)+E(J,4)*H(4,1,K)\n       enddo\n\n       ! CONTINUE THROUGH ALL DEPTH POINTS ID=2 TO ID=ND-1\n       do L = 2,ND-1\n\n          do J = 1,M_\n             do I = 1,M_\n                B(I,J,L,K) = B(I,J,L,K) + A(I,L,K)*DD(I,J,L-1,K)\n             enddo\n             H(J,L,K) = H(J,L,K) - A(J,L,K)*RR(J,L-1,K)\n          enddo\n\n          do J = 1,M_\n             do I = 1,M_\n                E(I,J) = B(I,J,L,K)\n             enddo\n          enddo\n\n          ! setup L & U matrices\n          E(2,1) = E(2,1)/E(1,1)\n          E(2,2) = E(2,2)-E(2,1)*E(1,2)\n          E(2,3) = E(2,3)-E(2,1)*E(1,3)\n          E(2,4) = E(2,4)-E(2,1)*E(1,4)\n          E(3,1) = E(3,1)/E(1,1)\n          E(3,2) = (E(3,2)-E(3,1)*E(1,2))/E(2,2)\n          E(3,3) = E(3,3)-E(3,1)*E(1,3)-E(3,2)*E(2,3)\n          E(3,4) = E(3,4)-E(3,1)*E(1,4)-E(3,2)*E(2,4)\n          E(4,1) = E(4,1)/E(1,1)\n          E(4,2) = (E(4,2)-E(4,1)*E(1,2))/E(2,2)\n          E(4,3) = (E(4,3)-E(4,1)*E(1,3)-E(4,2)*E(2,3))/E(3,3)\n          E(4,4) = E(4,4)-E(4,1)*E(1,4)-E(4,2)*E(2,4)-E(4,3)*E(3,4)\n          ! invert L\n          E(4,3) = -E(4,3)\n          E(4,2) = -E(4,2)-E(4,3)*E(3,2)\n          E(4,1) = -E(4,1)-E(4,2)*E(2,1)-E(4,3)*E(3,1)\n          E(3,2) = -E(3,2)\n          E(3,1) = -E(3,1)-E(3,2)*E(2,1)\n          E(2,1) = -E(2,1)\n          ! invert U\n          E(4,4) = 1.e+0_fp/E(4,4)\n          E(3,4) = -E(3,4)*E(4,4)/E(3,3)\n          E(3,3) = 1.e+0_fp/E(3,3)\n          E(2,4) = -(E(2,3)*E(3,4)+E(2,4)*E(4,4))/E(2,2)\n          E(2,3) = -E(2,3)*E(3,3)/E(2,2)\n          E(2,2) = 1.e+0_fp/E(2,2)\n          E(1,4) = -(E(1,2)*E(2,4)+E(1,3)*E(3,4)+E(1,4)*E(4,4))/E(1,1)\n          E(1,3) = -(E(1,2)*E(2,3)+E(1,3)*E(3,3))/E(1,1)\n          E(1,2) = -E(1,2)*E(2,2)/E(1,1)\n          E(1,1) = 1.e+0_fp/E(1,1)\n          ! multiply U-invers * L-inverse\n          E(1,1) = E(1,1)+E(1,2)*E(2,1)+E(1,3)*E(3,1)+E(1,4)*E(4,1)\n          E(1,2) = E(1,2)+E(1,3)*E(3,2)+E(1,4)*E(4,2)\n          E(1,3) = E(1,3)+E(1,4)*E(4,3)\n          E(2,1) = E(2,2)*E(2,1)+E(2,3)*E(3,1)+E(2,4)*E(4,1)\n          E(2,2) = E(2,2)+E(2,3)*E(3,2)+E(2,4)*E(4,2)\n          E(2,3) = E(2,3)+E(2,4)*E(4,3)\n          E(3,1) = E(3,3)*E(3,1)+E(3,4)*E(4,1)\n          E(3,2) = E(3,3)*E(3,2)+E(3,4)*E(4,2)\n          E(3,3) = E(3,3)+E(3,4)*E(4,3)\n          E(4,1) = E(4,4)*E(4,1)\n          E(4,2) = E(4,4)*E(4,2)\n          E(4,3) = E(4,4)*E(4,3)\n\n          do J = 1,M_\n             do I = 1,M_\n                DD(I,J,L,K) = - E(I,J)*C(J,L,K)\n             enddo\n             RR(J,L,K) = E(J,1)*H(1,L,K)+E(J,2)*H(2,L,K) &\n                       + E(J,3)*H(3,L,K)+E(J,4)*H(4,L,K)\n          enddo\n\n       enddo\n\n       ! FINAL DEPTH POINT: L=ND\n       L = ND\n       do J = 1,M_\n          do I = 1,M_\n             B(I,J,L,K) = B(I,J,L,K) &\n                   + AA(I,1,L,K)*DD(1,J,L-1,K) + AA(I,2,L,K)*DD(2,J,L-1,K) &\n                   + AA(I,3,L,K)*DD(3,J,L-1,K) + AA(I,4,L,K)*DD(4,J,L-1,K)\n          enddo\n          H(J,L,K) = H(J,L,K) &\n                   - AA(J,1,L,K)*RR(1,L-1,K) - AA(J,2,L,K)*RR(2,L-1,K) &\n                   - AA(J,3,L,K)*RR(3,L-1,K) - AA(J,4,L,K)*RR(4,L-1,K)\n       enddo\n\n       do J = 1,M_\n          do I = 1,M_\n             E(I,J) = B(I,J,L,K)\n          enddo\n       enddo\n\n       ! setup L & U matrices\n       E(2,1) = E(2,1)/E(1,1)\n       E(2,2) = E(2,2)-E(2,1)*E(1,2)\n       E(2,3) = E(2,3)-E(2,1)*E(1,3)\n       E(2,4) = E(2,4)-E(2,1)*E(1,4)\n       E(3,1) = E(3,1)/E(1,1)\n       E(3,2) = (E(3,2)-E(3,1)*E(1,2))/E(2,2)\n       E(3,3) = E(3,3)-E(3,1)*E(1,3)-E(3,2)*E(2,3)\n       E(3,4) = E(3,4)-E(3,1)*E(1,4)-E(3,2)*E(2,4)\n       E(4,1) = E(4,1)/E(1,1)\n       E(4,2) = (E(4,2)-E(4,1)*E(1,2))/E(2,2)\n       E(4,3) = (E(4,3)-E(4,1)*E(1,3)-E(4,2)*E(2,3))/E(3,3)\n       E(4,4) = E(4,4)-E(4,1)*E(1,4)-E(4,2)*E(2,4)-E(4,3)*E(3,4)\n       ! invert L\n       E(4,3) = -E(4,3)\n       E(4,2) = -E(4,2)-E(4,3)*E(3,2)\n       E(4,1) = -E(4,1)-E(4,2)*E(2,1)-E(4,3)*E(3,1)\n       E(3,2) = -E(3,2)\n       E(3,1) = -E(3,1)-E(3,2)*E(2,1)\n       E(2,1) = -E(2,1)\n       ! invert U\n       E(4,4) = 1.e+0_fp/E(4,4)\n       E(3,4) = -E(3,4)*E(4,4)/E(3,3)\n       E(3,3) = 1.e+0_fp/E(3,3)\n       E(2,4) = -(E(2,3)*E(3,4)+E(2,4)*E(4,4))/E(2,2)\n       E(2,3) = -E(2,3)*E(3,3)/E(2,2)\n       E(2,2) = 1.e+0_fp/E(2,2)\n       E(1,4) = -(E(1,2)*E(2,4)+E(1,3)*E(3,4)+E(1,4)*E(4,4))/E(1,1)\n       E(1,3) = -(E(1,2)*E(2,3)+E(1,3)*E(3,3))/E(1,1)\n       E(1,2) = -E(1,2)*E(2,2)/E(1,1)\n       E(1,1) = 1.e+0_fp/E(1,1)\n       ! multiply U-invers * L-inverse\n       E(1,1) = E(1,1)+E(1,2)*E(2,1)+E(1,3)*E(3,1)+E(1,4)*E(4,1)\n       E(1,2) = E(1,2)+E(1,3)*E(3,2)+E(1,4)*E(4,2)\n       E(1,3) = E(1,3)+E(1,4)*E(4,3)\n       E(2,1) = E(2,2)*E(2,1)+E(2,3)*E(3,1)+E(2,4)*E(4,1)\n       E(2,2) = E(2,2)+E(2,3)*E(3,2)+E(2,4)*E(4,2)\n       E(2,3) = E(2,3)+E(2,4)*E(4,3)\n       E(3,1) = E(3,3)*E(3,1)+E(3,4)*E(4,1)\n       E(3,2) = E(3,3)*E(3,2)+E(3,4)*E(4,2)\n       E(3,3) = E(3,3)+E(3,4)*E(4,3)\n       E(4,1) = E(4,4)*E(4,1)\n       E(4,2) = E(4,4)*E(4,2)\n       E(4,3) = E(4,4)*E(4,3)\n\n       do J = 1,M_\n          RR(J,L,K) = E(J,1)*H(1,L,K)+E(J,2)*H(2,L,K) &\n                    + E(J,3)*H(3,L,K)+E(J,4)*H(4,L,K)\n       enddo\n\n       ! BACK SOLUTION\n       do L = ND-1,1,-1\n          do J = 1,M_\n             RR(J,L,K) = RR(J,L,K) &\n                       + DD(J,1,L,K)*RR(1,L+1,K) + DD(J,2,L,K)*RR(2,L+1,K) &\n                       + DD(J,3,L,K)*RR(3,L+1,K) + DD(J,4,L,K)*RR(4,L+1,K)\n          enddo\n       enddo\n\n       ! mean J & H\n       do L = 1,ND,2\n          FJ(L,K) = RR(1,L,K)*WT(1) + RR(2,L,K)*WT(2) &\n                  + RR(3,L,K)*WT(3) + RR(4,L,K)*WT(4)\n       enddo\n       do L = 2,ND,2\n          FJ(L,K) = RR(1,L,K)*WT(1)*EMU(1) + RR(2,L,K)*WT(2)*EMU(2) &\n                  + RR(3,L,K)*WT(3)*EMU(3) + RR(4,L,K)*WT(4)*EMU(4)\n       enddo\n\n       ! FJTOP = scaled diffuse flux out top-of-atmosphere (limit = mu0)\n       ! FJBOT = scaled diffuse flux onto surface:\n       ! ZFLUX = reflect/(1 + reflect) * mu0 * Fsolar(lower boundary)\n       ! SUMBX = flux from Lambert reflected I+\n       SUMT = RR(1, 1,K)*WT(1)*EMU(1) + RR(2, 1,K)*WT(2)*EMU(2) &\n            + RR(3, 1,K)*WT(3)*EMU(3) + RR(4, 1,K)*WT(4)*EMU(4)\n       SUMB = RR(1,ND,K)*WT(1)*EMU(1) + RR(2,ND,K)*WT(2)*EMU(2) &\n            + RR(3,ND,K)*WT(3)*EMU(3) + RR(4,ND,K)*WT(4)*EMU(4)\n       SUMBX = 4.e+0_fp*SUMB*RFL(K)/(1.0e+0_fp + RFL(K)) + ZFLUX(K)\n\n       FJTOP(K) = 4.e+0_fp*SUMT\n       FJBOT(K) = 4.e+0_fp*SUMB - SUMBX\n\n    enddo\n\n  END SUBROUTINE BLKSLV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gen_id\n!\n! !DESCRIPTION: Subroutine GEN generates coefficient matrices for the block\n!  tri-diagonal system described in BLKSLV.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEN_ID(POMEGA,FZ,ZTAU,ZFLUX,RFL,PM,PM0,B,CC,AA,A,H,C,ND)\n!\n! !USES:\n! \n    USE CMN_FJX_Mod, ONLY : W_, WT, EMU, M_, M2_, N_\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: ND\n    REAL(fp), INTENT(IN)  :: POMEGA(M2_,N_)\n    REAL(fp), INTENT(IN)  :: PM(M_,M2_)\n    REAL(fp), INTENT(IN)  :: PM0(M2_)\n    REAL(fp), INTENT(IN)  :: ZFLUX,RFL\n    REAL(fp), INTENT(IN), DIMENSION(N_) :: FZ,ZTAU\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT),DIMENSION(M_,M_,N_) :: B,AA,CC\n    REAL(fp), INTENT(OUT),DIMENSION(M_,N_)    :: A,C,H\n\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER I, J, K, L1,L2,LL\n    REAL(fp)  SUM0, SUM1, SUM2, SUM3\n    REAL(fp)  DELTAU, D1, D2, SURFAC\n\n    REAL(fp), DIMENSION(M_,M_) :: S,T,U,V,W\n\n    !=================================================================\n    ! GEN_ID begins here!\n    !=================================================================\n\n    ! upper boundary:  2nd-order terms\n    L1 = 1\n    L2 = 2\n    do I = 1,M_\n       SUM0 = POMEGA(1,L1)*PM(I,1)*PM0(1) + POMEGA(3,L1)*PM(I,3)*PM0(3) &\n            + POMEGA(5,L1)*PM(I,5)*PM0(5) + POMEGA(7,L1)*PM(I,7)*PM0(7)\n       SUM2 = POMEGA(1,L2)*PM(I,1)*PM0(1) + POMEGA(3,L2)*PM(I,3)*PM0(3) &\n            + POMEGA(5,L2)*PM(I,5)*PM0(5) + POMEGA(7,L2)*PM(I,7)*PM0(7)\n       SUM1 = POMEGA(2,L1)*PM(I,2)*PM0(2) + POMEGA(4,L1)*PM(I,4)*PM0(4) &\n            + POMEGA(6,L1)*PM(I,6)*PM0(6) + POMEGA(8,L1)*PM(I,8)*PM0(8)\n       SUM3 = POMEGA(2,L2)*PM(I,2)*PM0(2) + POMEGA(4,L2)*PM(I,4)*PM0(4) &\n            + POMEGA(6,L2)*PM(I,6)*PM0(6) + POMEGA(8,L2)*PM(I,8)*PM0(8)\n       H(I,L1) = 0.5e+0_fp*(SUM0*FZ(L1) + SUM2*FZ(L2))\n       A(I,L1) = 0.5e+0_fp*(SUM1*FZ(L1) + SUM3*FZ(L2))\n    enddo\n\n    do I = 1,M_\n    do J = 1,I\n       SUM0 = POMEGA(1,L1)*PM(I,1)*PM(J,1) + POMEGA(3,L1)*PM(I,3)*PM(J,3) &\n            + POMEGA(5,L1)*PM(I,5)*PM(J,5) + POMEGA(7,L1)*PM(I,7)*PM(J,7)\n       SUM2 = POMEGA(1,L2)*PM(I,1)*PM(J,1) + POMEGA(3,L2)*PM(I,3)*PM(J,3) &\n            + POMEGA(5,L2)*PM(I,5)*PM(J,5) + POMEGA(7,L2)*PM(I,7)*PM(J,7)\n       SUM1 = POMEGA(2,L1)*PM(I,2)*PM(J,2) + POMEGA(4,L1)*PM(I,4)*PM(J,4) &\n            + POMEGA(6,L1)*PM(I,6)*PM(J,6) + POMEGA(8,L1)*PM(I,8)*PM(J,8)\n       SUM3 = POMEGA(2,L2)*PM(I,2)*PM(J,2) + POMEGA(4,L2)*PM(I,4)*PM(J,4) &\n            + POMEGA(6,L2)*PM(I,6)*PM(J,6) + POMEGA(8,L2)*PM(I,8)*PM(J,8)\n       S(I,J) = - SUM2*WT(J)\n       S(J,I) = - SUM2*WT(I)\n       T(I,J) = - SUM1*WT(J)\n       T(J,I) = - SUM1*WT(I)\n       V(I,J) = - SUM3*WT(J)\n       V(J,I) = - SUM3*WT(I)\n       B(I,J,L1) = - 0.5e+0_fp*(SUM0 + SUM2)*WT(J)\n       B(J,I,L1) = - 0.5e+0_fp*(SUM0 + SUM2)*WT(I)\n    enddo\n    enddo\n\n    do I = 1,M_\n       S(I,I)   = S(I,I)    + 1.0e+0_fp\n       T(I,I)   = T(I,I)    + 1.0e+0_fp\n       V(I,I)   = V(I,I)    + 1.0e+0_fp\n       B(I,I,L1)= B(I,I,L1) + 1.0e+0_fp\n\n       C(I,L1)= S(I,1)*A(1,L1)/EMU(1) + S(I,2)*A(2,L1)/EMU(2) &\n              + S(I,3)*A(3,L1)/EMU(3) + S(I,4)*A(4,L1)/EMU(4)\n    enddo\n\n    do I = 1,M_\n    do J = 1,M_\n       W(J,I) = S(J,1)*T(1,I)/EMU(1) + S(J,2)*T(2,I)/EMU(2) &\n              + S(J,3)*T(3,I)/EMU(3) + S(J,4)*T(4,I)/EMU(4)\n       U(J,I) = S(J,1)*V(1,I)/EMU(1) + S(J,2)*V(2,I)/EMU(2) &\n              + S(J,3)*V(3,I)/EMU(3) + S(J,4)*V(4,I)/EMU(4)\n    enddo\n    enddo\n    ! upper boundary, 2nd-order, C-matrix is full (CC)\n    DELTAU = ZTAU(L2) - ZTAU(L1)\n    D2 = 0.25e+0_fp*DELTAU\n    do I = 1,M_\n       do J = 1,M_\n          B(I,J,L1) = B(I,J,L1) + D2*W(I,J)\n          CC(I,J,L1) = D2*U(I,J)\n       enddo\n       H(I,L1) = H(I,L1) + 2.0e+0_fp*D2*C(I,L1)\n       A(I,L1) = 0.0e+0_fp\n    enddo\n    do I = 1,M_\n       D1 = EMU(I)/DELTAU\n       B(I,I,L1)  = B(I,I,L1) + D1\n       CC(I,I,L1) = CC(I,I,L1) - D1\n    enddo\n\n    ! intermediate points:  can be even or odd, A & C diagonal\n    ! mid-layer h-points, Legendre terms 2,4,6,8\n    do LL=2,ND-1,2\n       DELTAU = ZTAU(LL+1) - ZTAU(LL-1)\n       do I = 1,M_\n          A(I,LL) = EMU(I)/DELTAU\n          C(I,LL) = -A(I,LL)\n          H(I,LL) = FZ(LL)*( &\n               POMEGA(2,LL)*PM(I,2)*PM0(2) + POMEGA(4,LL)*PM(I,4)*PM0(4) &\n             + POMEGA(6,LL)*PM(I,6)*PM0(6) + POMEGA(8,LL)*PM(I,8)*PM0(8))\n       enddo\n       do I = 1,M_\n       do J=1,I\n          SUM0 = POMEGA(2,LL)*PM(I,2)*PM(J,2) + POMEGA(4,LL)*PM(I,4)*PM(J,4) &\n               + POMEGA(6,LL)*PM(I,6)*PM(J,6) + POMEGA(8,LL)*PM(I,8)*PM(J,8)\n          B(I,J,LL) =  - SUM0*WT(J)\n          B(J,I,LL) =  - SUM0*WT(I)\n       enddo\n       enddo\n       do I = 1,M_\n          B(I,I,LL) = B(I,I,LL) + 1.0e+0_fp\n       enddo\n    enddo\n\n    ! odd-layer j-points, Legendre terms 1,3,5,7\n    do LL=3,ND-2,2\n       DELTAU = ZTAU(LL+1) - ZTAU(LL-1)\n       do I = 1,M_\n          A(I,LL) = EMU(I)/DELTAU\n          C(I,LL) = -A(I,LL)\n          H(I,LL) = FZ(LL)*( &\n               POMEGA(1,LL)*PM(I,1)*PM0(1) + POMEGA(3,LL)*PM(I,3)*PM0(3) &\n             + POMEGA(5,LL)*PM(I,5)*PM0(5) + POMEGA(7,LL)*PM(I,7)*PM0(7))\n       enddo\n       do I = 1,M_\n       do J=1,I\n          SUM0 = POMEGA(1,LL)*PM(I,1)*PM(J,1) + POMEGA(3,LL)*PM(I,3)*PM(J,3) &\n               + POMEGA(5,LL)*PM(I,5)*PM(J,5) + POMEGA(7,LL)*PM(I,7)*PM(J,7)\n          B(I,J,LL) =  - SUM0*WT(J)\n          B(J,I,LL) =  - SUM0*WT(I)\n       enddo\n       enddo\n       do I = 1,M_\n          B(I,I,LL) = B(I,I,LL) + 1.0e+0_fp\n       enddo\n    enddo\n\n    ! lower boundary:  2nd-order terms\n    L1 = ND\n    L2 = ND-1\n    do I = 1,M_\n       SUM0 = POMEGA(1,L1)*PM(I,1)*PM0(1) + POMEGA(3,L1)*PM(I,3)*PM0(3) &\n            + POMEGA(5,L1)*PM(I,5)*PM0(5) + POMEGA(7,L1)*PM(I,7)*PM0(7)\n       SUM2 = POMEGA(1,L2)*PM(I,1)*PM0(1) + POMEGA(3,L2)*PM(I,3)*PM0(3) &\n            + POMEGA(5,L2)*PM(I,5)*PM0(5) + POMEGA(7,L2)*PM(I,7)*PM0(7)\n       SUM1 = POMEGA(2,L1)*PM(I,2)*PM0(2) + POMEGA(4,L1)*PM(I,4)*PM0(4) &\n            + POMEGA(6,L1)*PM(I,6)*PM0(6) + POMEGA(8,L1)*PM(I,8)*PM0(8)\n       SUM3 = POMEGA(2,L2)*PM(I,2)*PM0(2) + POMEGA(4,L2)*PM(I,4)*PM0(4) &\n            + POMEGA(6,L2)*PM(I,6)*PM0(6) + POMEGA(8,L2)*PM(I,8)*PM0(8)\n       H(I,L1) = 0.5e+0_fp*(SUM0*FZ(L1) + SUM2*FZ(L2))\n       A(I,L1) = 0.5e+0_fp*(SUM1*FZ(L1) + SUM3*FZ(L2))\n    enddo\n\n    do I = 1,M_\n    do J = 1,I\n       SUM0 = POMEGA(1,L1)*PM(I,1)*PM(J,1) + POMEGA(3,L1)*PM(I,3)*PM(J,3) &\n            + POMEGA(5,L1)*PM(I,5)*PM(J,5) + POMEGA(7,L1)*PM(I,7)*PM(J,7)\n       SUM2 = POMEGA(1,L2)*PM(I,1)*PM(J,1) + POMEGA(3,L2)*PM(I,3)*PM(J,3) &\n            + POMEGA(5,L2)*PM(I,5)*PM(J,5) + POMEGA(7,L2)*PM(I,7)*PM(J,7)\n       SUM1 = POMEGA(2,L1)*PM(I,2)*PM(J,2) + POMEGA(4,L1)*PM(I,4)*PM(J,4) &\n            + POMEGA(6,L1)*PM(I,6)*PM(J,6) + POMEGA(8,L1)*PM(I,8)*PM(J,8)\n       SUM3 = POMEGA(2,L2)*PM(I,2)*PM(J,2) + POMEGA(4,L2)*PM(I,4)*PM(J,4) &\n            + POMEGA(6,L2)*PM(I,6)*PM(J,6) + POMEGA(8,L2)*PM(I,8)*PM(J,8)\n       S(I,J) = - SUM2*WT(J)\n       S(J,I) = - SUM2*WT(I)\n       T(I,J) = - SUM1*WT(J)\n       T(J,I) = - SUM1*WT(I)\n       V(I,J) = - SUM3*WT(J)\n       V(J,I) = - SUM3*WT(I)\n       B(I,J,L1) = - 0.5e+0_fp*(SUM0 + SUM2)*WT(J)\n       B(J,I,L1) = - 0.5e+0_fp*(SUM0 + SUM2)*WT(I)\n    enddo\n    enddo\n\n    do I = 1,M_\n       S(I,I)   = S(I,I)   + 1.0e+0_fp\n       T(I,I)   = T(I,I)   + 1.0e+0_fp\n       V(I,I)   = V(I,I)   + 1.0e+0_fp\n       B(I,I,L1)= B(I,I,L1) + 1.0e+0_fp\n\n       C(I,L1)= S(I,1)*A(1,L1)/EMU(1) + S(I,2)*A(2,L1)/EMU(2) &\n              + S(I,3)*A(3,L1)/EMU(3) + S(I,4)*A(4,L1)/EMU(4)\n    enddo\n\n    do I = 1,M_\n    do J = 1,M_\n       W(J,I) = S(J,1)*T(1,I)/EMU(1) + S(J,2)*T(2,I)/EMU(2) &\n              + S(J,3)*T(3,I)/EMU(3) + S(J,4)*T(4,I)/EMU(4)\n       U(J,I) = S(J,1)*V(1,I)/EMU(1) + S(J,2)*V(2,I)/EMU(2) &\n              + S(J,3)*V(3,I)/EMU(3) + S(J,4)*V(4,I)/EMU(4)\n    enddo\n    enddo\n\n    ! lower boundary, 2nd-order, A-matrix is full (AA)\n    DELTAU = ZTAU(L1) - ZTAU(L2)\n    D2 = 0.25e+0_fp*DELTAU\n    SURFAC = 4.0e+0_fp*RFL/(1.0e+0_fp + RFL)\n    do I = 1,M_\n       D1 = EMU(I)/DELTAU\n       SUM0 = D1 + D2*(W(I,1)+W(I,2)+W(I,3)+W(I,4))\n       SUM1 = SURFAC*SUM0\n       do J = 1,M_\n          AA(I,J,L1) = - D2*U(I,J)\n          B(I,J,L1) = B(I,J,L1) + D2*W(I,J) - SUM1*EMU(J)*WT(J)\n       enddo\n       H(I,L1) = H(I,L1) - 2.0e+0_fp*D2*C(I,L1) + SUM0*ZFLUX\n    enddo\n\n    do I = 1,M_\n       D1 = EMU(I)/DELTAU\n       AA(I,I,L1) = AA(I,I,L1) + D1\n       B(I,I,L1)  = B(I,I,L1) + D1\n       C(I,L1) = 0.0e+0_fp\n    enddo\n\n  END SUBROUTINE GEN_ID\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: jratet\n!\n! !DESCRIPTION: Subroutine JRATET calculates temperature-dependent J-rates.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE JRATET(PPJ,TTJ,FFF,VALJL,LCTM,LCHEM,NJXU)\n!\n! !USES:\n!\n  USE CMN_FJX_Mod, ONLY : JXL1_, W_, NJX, X_, LQQ, QQQ, SQQ, TQQ\n  USE CMN_FJX_Mod, ONLY : QO2, QO3, Q1D\n!\n! !INPUT PARAMETERS:\n!\n    integer,  intent(in)    :: LCTM,LCHEM,NJXU\n    real(fp), intent(in)    ::  PPJ(JXL1_+1),TTJ(JXL1_+1)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    real(fp), intent(inout) ::  FFF(W_,LCTM)\n!\n! !OUTPUT VARIABLES:\n!\n    real(fp), intent(out), dimension(LCTM,NJXU) ::  VALJL\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real(fp)  VALJ(X_)\n    real(fp)  QO2TOT, QO3TOT, QO31DY, QO31D, QQQT, TFACT\n    real(fp)  TT,PP,DD,TT200,TFACA,TFAC0,TFAC1,TFAC2\n    real(fp)  QQQA,QQ2,QQ1A,QQ1B\n    integer   J,K,L, IV\n\n    !=================================================================\n    ! JRATET begins here!\n    !=================================================================\n\n    if (NJXU .lt. NJX) then\n       call EXITC(' JRATET:  CTM has not enough J-values dimensioned')\n    endif\n    do L = 1,LCTM\n       ! need temperature, pressure, and density at mid-layer\n       ! (for some quantum yields):\n       TT   = TTJ(L)\n       if (L .eq. 1) then\n          PP = PPJ(1)\n       else\n          PP  = (PPJ(L)+PPJ(L+1))*0.5e+0_fp\n       endif\n       DD = 7.24e18*PP/TT\n\n       ! if W_=18/12, must zero bin-11/5 below 100 hPa, since O2 e-fold is\n       ! too weak and does not represent the decay of 215.5-221.5 nm sunlight.\n       if (PP .gt. 100.e+0_fp) then\n          if (W_ .eq. 18) then\n             FFF(11,L) = 0.e+0_fp\n          elseif (W_ .eq. 12) then\n             FFF(5,L) = 0.e+0_fp\n          endif\n       endif\n\n       do J = 1,NJXU\n          VALJ(J) = 0.e+0_fp\n       enddo\n\n       do K = 1,W_\n          call X_interp (TT,QO2TOT, TQQ(1,1),QO2(K,1), &\n                         TQQ(2,1),QO2(K,2), TQQ(3,1),QO2(K,3), LQQ(1))\n          call X_interp (TT,QO3TOT, TQQ(1,2),QO3(K,1), &\n                         TQQ(2,2),QO3(K,2), TQQ(3,2),QO3(K,3), LQQ(2))\n          call X_interp (TT,QO31DY, TQQ(1,3),Q1D(K,1), &\n                         TQQ(2,3),Q1D(K,2), TQQ(3,3),Q1D(K,3), LQQ(3))\n          QO31D  = QO31DY*QO3TOT\n          VALJ(1) = VALJ(1) + QO2TOT*FFF(K,L)\n          VALJ(2) = VALJ(2) + QO3TOT*FFF(K,L)\n          VALJ(3) = VALJ(3) + QO31D*FFF(K,L)\n       enddo\n\n       do J = 4,NJXU\n       do K = 1,W_\n          ! also need to allow for Pressure interpolation if SQQ(J) = 'p'\n          if (SQQ(J) .eq.'p') then\n             call X_interp (PP,QQQT, TQQ(1,J),QQQ(K,1,J), &\n                            TQQ(2,J),QQQ(K,2,J), TQQ(3,J),QQQ(K,3,J), LQQ(J))\n          else\n             call X_interp (TT,QQQT, TQQ(1,J),QQQ(K,1,J), &\n                            TQQ(2,J),QQQ(K,2,J), TQQ(3,J),QQQ(K,3,J), LQQ(J))\n          endif\n          VALJ(J) = VALJ(J) + QQQT*FFF(K,L)\n       enddo\n       enddo\n\n       do J=1,NJXU\n          VALJL(L,J) = VALJ(J)\n       enddo\n\n    enddo\n\n    ! Zero non-chemistry layers\n    if (LCHEM.lt.LCTM) then\n       do L=(LCTM+1),LCHEM\n       do J=1,NJXU\n          VALJL(L,J) = 0.e+0_fp\n       enddo\n       enddo\n    endif\n\n  END SUBROUTINE JRATET\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: x_interp\n!\n! !DESCRIPTION: Subroutine X\\_INTERP is an up-to-three-point linear interp.\n!  function for cross-sections.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE X_INTERP (TINT,XINT,T1,X1,T2,X2,T3,X3,L123)\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  ::  TINT,T1,T2,T3, X1,X2,X3\n    INTEGER,  INTENT(IN)  ::  L123\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) ::  XINT\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)  TFACT\n\n    !=================================================================\n    ! X_INTERP begins here!\n    !=================================================================\n\n    if (L123 .le. 1) then\n       XINT = X1\n    elseif (L123 .eq. 2) then\n       TFACT = max(0.e+0_fp,min(1.e+0_fp,(TINT-T1)/(T2-T1) ))\n       XINT = X1 + TFACT*(X2 - X1)\n    else\n       if (TINT.le. T2) then\n          TFACT = max(0.e+0_fp,min(1.e+0_fp,(TINT-T1)/(T2-T1) ))\n          XINT = X1 + TFACT*(X2 - X1)\n       else\n          TFACT = max(0.e+0_fp,min(1.e+0_fp,(TINT-T2)/(T3-T2) ))\n          XINT = X2 + TFACT*(X3 - X2)\n       endif\n    endif\n\n  END SUBROUTINE X_INTERP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: sphere2\n!\n! !DESCRIPTION: Subroutine SPHERE2 is an AMF2.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SPHERE2 (U0,ZHL,AMF2,L1U,LJX1U)\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY: RAD\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  ::   L1U, LJX1U\n    REAL(fp), INTENT(IN)  ::   U0,ZHL(L1U+1)\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) ::   AMF2(2*LJX1U+1,2*LJX1U+1)\n!\n! !REMARKS:\n! Quoting from the original:\n!  New v6.2: does AirMassFactors for mid-layer, needed for SZA ~ 90\n!  This new AMF2 does each of the half-layers of the CTM separately,\n!     whereas the original, based on the pratmo code did the whole layers\n!     and thus calculated the ray-path to the CTM layre edges, NOT the middle.\n!  Since fast-JX is meant to calculate the intensity at the mid-layer, the\n!     solar beam at low sun (interpolated between layer edges) was incorrect.\n!  This new model does make some approximations of the geometry of the layers:\n!     the CTM layer is split evenly in mass (good) and in height (approx).\n!                                                                             .\n!  Calculation of spherical geometry; derive tangent heights, slant path\n!  lengths and air mass factor for each layer. Not called when\n!  SZA > 98 degrees.  Beyond 90 degrees, include treatment of emergent\n!  beam (where tangent height is below altitude J-value desired at).\n!                                                                             .\n!  ---------------------------------------------------------------------\n!  Inputs:\n!     U0      cos(solar zenith angle)\n!     RAD  radius of Earth mean sea level (cm)\n!     ZHL(L)  height (cm) of the bottom edge of CTM level L\n!     ZZHT    scale height (cm) used above top of CTM (ZHL(L_+1))\n!     L1U     dimension of CTM = levels +1 (L+1 = above-CTM level)\n!  Outputs:\n!     AMF2(I,J) = air mass factor for CTM level I for sunlight reaching J\n!         ( these are calculated for both layer middle and layer edge)\n!  ---------------------------------------------------------------------\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER  ::  LSPH_ = 200\n\n    ! RZ      Distance from centre of Earth to each point (cm)\n    ! RQ      Square of radius ratios\n    ! SHADHT  Shadow height for the current SZA\n    ! XL      Slant path between points\n    INTEGER  I, J, K, II, L2\n    REAL(fp)   XMU1,XMU2,XL,DIFF,SHADHT,RZ(LSPH_+1)\n    REAL(fp)   RZ2(2*LSPH_+1),RQ2(2*LSPH_+1)\n\n    !=================================================================\n    ! SPHERE2 begins here!\n    !=================================================================\n\n    ! must have top-of-atmos (NOT top-of-CTM) defined\n    !      ZHL(L1U+1) = ZHL(L1U) + ZZHT\n\n    if (L1U .gt. LSPH_) then\n       call EXITC(' SPHERE2: temp arrays not large enough')\n    endif\n\n    RZ(1) = RAD + ZHL(1)\n    do II = 2,L1U+1\n       RZ(II)   = RAD + ZHL(II)\n    enddo\n\n    ! calculate heights for edges of split CTM-layers\n    L2 = 2*L1U\n    do II = 2,L2,2\n       I = II/2\n       RZ2(II-1) = RZ(I)\n       RZ2(II) = 0.5e+0_fp*(RZ(I)+RZ(I+1))\n    enddo\n    RZ2(L2+1) = RZ(L1U+1)\n    do II = 1,L2\n       RQ2(II) = (RZ2(II)/RZ2(II+1))**2\n    enddo\n\n    ! shadow height for SZA > 90\n    if (U0 .lt. 0.0e+0_fp)  then\n       SHADHT = RZ2(1)/sqrt(1.0e+0_fp - U0**2)\n    else\n       SHADHT = 0.e+0_fp\n    endif\n\n    ! up from the surface calculating the slant paths between each level\n    ! and the level above, and deriving the appropriate Air Mass Factor\n    AMF2(:,:) = 0.e+0_fp\n\n    do 16 J = 1,2*L1U+1\n\n       ! Air Mass Factors all zero if below the tangent height\n       if (RZ2(J) .lt. SHADHT) goto 16\n\n       ! Ascend from layer J calculating AMF2s\n       XMU1 = abs(U0)\n       do I = J,2*L1U\n          XMU2     = sqrt(1.0e+0_fp - RQ2(I)*(1.0e+0_fp-XMU1**2))\n          XL       = RZ2(I+1)*XMU2 - RZ2(I)*XMU1\n          AMF2(I,J) = XL / (RZ2(I+1)-RZ2(I))\n          XMU1     = XMU2\n       enddo\n\n       ! fix above top-of-atmos (L=L1U+1), must set DTAU(L1U+1)=0\n       AMF2(2*L1U+1,J) = 1.e+0_fp\n\n       ! Twilight case - Emergent Beam, calc air mass factors below layer\n       if (U0 .ge. 0.0e+0_fp) goto 16\n\n       ! Descend from layer J\n       XMU1       = abs(U0)\n       do II = J-1,1,-1\n          DIFF        = RZ2(II+1)*sqrt(1.0e+0_fp-XMU1**2)-RZ2(II)\n          if (II.eq.1)  DIFF = max(DIFF,0.e+0_fp)   ! filter\n\n          ! Tangent height below current level - beam passes through twice\n          if (DIFF .lt. 0.0e+0_fp)  then\n             XMU2      = sqrt(1.0e+0_fp - (1.0e+0_fp-XMU1**2)/RQ2(II))\n             XL        = abs(RZ2(II+1)*XMU1-RZ2(II)*XMU2)\n             AMF2(II,J) = 2.e+0_fp*XL/(RZ2(II+1)-RZ2(II))\n             XMU1      = XMU2\n\n          ! Lowest level intersected by emergent beam\n          else\n             XL        = RZ2(II+1)*XMU1*2.0e+0_fp\n             AMF2(II,J) = XL/(RZ2(II+1)-RZ2(II))\n             goto 16\n          endif\n       enddo\n\n16  continue\n\n  END SUBROUTINE SPHERE2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: extral\n!\n! !DESCRIPTION: Subroutine EXTRAL adds sub-layers to thick cloud/aerosol layers\n!  using log-spacing for sub-layers of increasing thickness ATAU.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXTRAL (Input_Opt,State_Diag,DTAUX,L1X,L2X,NX,JXTRA,ILON,ILAT)\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY : ATAU, ATAU0, JTAUMX\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input options\n    INTEGER,        INTENT(IN) :: L1X,L2X     !index of cloud/aerosol\n    integer,        intent(in) :: NX          !Mie scattering array size\n    real(fp),       intent(in) :: DTAUX(L1X)  !cloud+3aerosol OD in each layer\n    integer,        intent(in) :: ILON, ILAT  !lon,lat index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT VARIABLES:\n!\n    integer,        intent(out):: JXTRA(L2X+1)!number of sub-layers to be added\n!\n! !REMARKS:\n!     DTAUX(L=1:L1X) = Optical Depth in layer L (generally 600 nm OD)\n!        This can be just cloud or cloud+aerosol, it is used only to set\n!        the number in levels to insert in each layer L\n!        Set for log-spacing of tau levels, increasing top-down.\n!                                                                             .\n!     N.B. the TTAU, etc calculated here are NOT used elsewhere\n!                                                                             .\n!   The log-spacing parameters have been tested for convergence and chosen\n!     to be within 0.5% for ranges OD=1-500, rflect=0-100%, mu0=0.1-1.0\n!     use of ATAU = 1.18 and min = 0.01, gives at most +135 pts for OD=100\n!     ATAU = 1.12 now recommended for more -accurate heating rates (not J's)\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER JTOTL,I,L,L2\n    REAL(fp)  TTAU(L2X+1),DTAUJ, ATAU1,ATAULN,ATAUM,ATAUN1\n\n#ifdef MODEL_GEOS\n    ! ckeller, 5/21/18\n    LOGICAL  :: failed\n    INTEGER  :: N, NMAX\n    REAL(fp) :: ATAULOC\n#endif\n\n    !=================================================================\n    ! EXTRAL begins here!\n    !=================================================================\n\n#ifdef MODEL_GEOS\n    ! This routine now repeats the extra layer computation with an\n    ! increased heating rate (ATAU) if there is an array overfloat.\n    ! This is repeated maximum 5 times. The diagnostics arrays\n    ! EXTRAL_NLEVS and EXTRAL_NITER archive the number of extra layers\n    ! and the number of iterations needed to converge to that solution.\n    ! Ideally, NITER is 1 and no adjustments to the heating rate are\n    ! needed (ckeller, 5/22/18).\n    NMAX = MAX(1,Input_Opt%FJX_EXTRAL_ITERMAX)\n    DO N=1,NMAX\n       ! local heating rate\n       ATAULOC = ATAU + (0.06*(N-1))\n#endif\n\n       ! Reinitialize arrays\n       TTAU(:)  = 0.e+0_fp\n       JXTRA(:) = 0\n\n       ! combine these edge- and mid-layer points into grid of size:\n       !     L2X+1 = 2*L1X+1 = 2*L_+3\n       ! calculate column optical depths above each level, TTAU(1:L2X+1)\n       !     note that TTAU(L2X+1)=0 and TTAU(1)=total OD\n       !\n       ! Divide thick layers to achieve better accuracy in the scattering code\n       ! In the original fast-J, equal sub-layers were chosen, this is wasteful\n       ! and this new code (ver 5.3) uses log-scale:\n       !     Each succesive layer (down) increase thickness by ATAU > 1\n       !     e.g., if ATAU = 2, a layer with OD = 15 could be divided into\n       !     4 sub-layers with ODs = 1 - 2 - 4 - 8\n       ! The key parameters are:\n       !     ATAU = factor increase from one layer to the next\n       !     ATAUMN = the smallest OD layer desired\n       !     JTAUMX = maximum number of divisions (i.e., may not get to ATAUMN)\n       ! These are set in CMN_FJX_MOD, and have been tested/optimized\n\n#if defined( MODEL_GEOS )\n       ATAU1  = ATAULOC - 1.e+0_fp\n       ATAULN = log(ATAULOC)\n#else\n       ATAU1  = ATAU - 1.e+0_fp\n       ATAULN = log(ATAU)\n#endif\n       TTAU(L2X+1)  = 0.0e+0_fp\n\n       do L2 = L2X,1,-1\n          L         = (L2+1)/2\n          DTAUJ     = 0.5e+0_fp * DTAUX(L)\n          TTAU(L2)  = TTAU(L2+1) + DTAUJ\n          ! Now compute the number of log-spaced sub-layers to be added in\n          ! the interval TTAU(L2) > TTAU(L2+1)\n          ! The objective is to have successive TAU-layers increasing by factor\n          ! ATAU >1 the number of sub-layers + 1\n          if (TTAU(L2) .lt. ATAU0) then\n             JXTRA(L2) = 0\n          else\n             ATAUM    = max(ATAU0, TTAU(L2+1))\n             ATAUN1 = log(TTAU(L2)/ATAUM) / ATAULN\n             JXTRA(L2) = min(JTAUMX, max(0, int(ATAUN1 - 0.5e+0_fp)))\n          endif\n       enddo\n\n       ! check on overflow of arrays, cut off JXTRA at lower L if too many\n       ! levels\n#ifdef MODEL_GEOS\n       failed   = .FALSE.\n       JTOTL    = L2X + 2\n       do L2 = L2X,1,-1\n          JTOTL  = JTOTL + JXTRA(L2)\n          if (JTOTL .gt. NX/2)  then\n             failed = .TRUE.\n             exit\n          endif\n       enddo\n\n       ! exit loop if not failed\n       if ( .not. failed ) exit\n    enddo\n\n    ! print error and cut off JXTRAL at lower L if too many levels\n    if ( failed ) then\n       IF ( Input_Opt%FJX_EXTRAL_ERR ) THEN\n          write(6,'(A,7I5)') 'N_/L2_/L2-cutoff JXTRA:',ILON,ILAT,NX,L2X,L2,JXTRA(L2),JTOTL\n       ENDIF\n       do L = L2,1,-1\n          JXTRA(L) = 0\n       enddo\n       !go to 10\n    endif\n    !enddo\n    !10 continue\n\n    ! Fill diagnostics arrays\n    IF ( State_Diag%Archive_EXTRALNLEVS ) THEN\n       State_Diag%EXTRALNLEVS(ILON,ILAT) = SUM(JXTRA(:))\n    ENDIF\n    IF ( State_Diag%Archive_EXTRALNITER ) THEN\n       State_Diag%EXTRALNITER(ILON,ILAT) = N\n    ENDIF\n#else\n    JTOTL    = L2X + 2\n    do L2 = L2X,1,-1\n       JTOTL  = JTOTL + JXTRA(L2)\n       if (JTOTL .gt. NX/2)  then\n          write(6,'(A,7I5)') 'N_/L2_/L2-cutoff JXTRA:',ILON,ILAT,NX,L2X,L2,JXTRA(L2),JTOTL\n          do L = L2,1,-1\n             JXTRA(L) = 0\n          enddo\n          go to 10\n       endif\n    enddo\n10  continue\n#endif\n\n  END SUBROUTINE EXTRAL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: exitc\n!\n! !DESCRIPTION: Subroutine EXITC forces an error in GEOS-Chem and quits.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXITC (T_EXIT)\n!\n! !USES:\n!\n    USE ERROR_MOD, ONLY : ERROR_STOP\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) ::  T_EXIT\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CALL ERROR_STOP( T_EXIT, 'fast_jx_mod.F90' )\n\n  END SUBROUTINE EXITC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: opmie\n!\n! !DESCRIPTION: Subroutine OPMIE is a core Fast-JX scattering subroutine,\n!  specifically for Mie scattering.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OPMIE(DTAUX,POMEGAX,U0,RFL,AMF2,JXTRA, &\n                   FJACT,FJTOP,FJBOT,FSBOT,FJFLX,FLXD,FLXD0,LU)\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY : ATAU0, JXL_, JXL1_, JXL2_, M2_, N_, W_\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  ::  DTAUX(JXL1_,W_),POMEGAX(8,JXL1_,W_)\n    REAL(fp), INTENT(IN)  ::  AMF2(2*JXL1_+1,2*JXL1_+1)\n    REAL(fp), INTENT(IN)  ::  U0,RFL(W_)\n    INTEGER,  INTENT(IN)  ::  JXTRA(JXL2_+1), LU\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) ::  FJACT(JXL_,W_),FJTOP(W_)\n    REAL(fp), INTENT(OUT) ::  FJBOT(W_),FSBOT(W_)\n    REAL(fp), INTENT(OUT) ::  FJFLX(JXL_,W_),FLXD(JXL1_,W_),FLXD0(W_)\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER JNDLEV(JXL_),JNELEV(JXL1_)\n    INTEGER JADDLV(JXL2_+1),JADDTO(JXL2_+1),L2LEV(JXL2_+1)\n    INTEGER JTOTL,I,II,J,K,L,LL,IX,JK,   L2,L2L,L22,LZ,LZZ,ND\n    INTEGER L1U,L2U,   LZ0,LZ1,LZMID\n    REAL(fp)   SUMT,SUMJ\n\n    REAL(fp)  DTAU(JXL1_+1,W_),POMEGAJ(M2_,JXL2_+1,W_)\n    REAL(fp)  TTAU(JXL2_+1,W_)\n    REAL(fp)  FTAU2(JXL2_+1,W_),POMEGAB(M2_,W_)\n    REAL(fp)  ATAUA,ATAUZ,XLTAU,TAUDN,TAUUP,DTAUJ,FJFLX0\n    REAL(fp), DIMENSION(W_) :: TAUBTM,TAUTOP,FBTM,FTOP,ZFLUX\n\n    !  variables used in mie code-----------------------------------------\n    REAL(fp), DIMENSION(W_)         :: FJT,FJB\n    REAL(fp), DIMENSION(N_,W_)      :: FJ,FZ,ZTAU\n    REAL(fp), DIMENSION(M2_,N_,W_)  :: POMEGA\n    REAL(fp), DIMENSION(2*JXL1_,W_)  :: FLXD2\n\n    !=================================================================\n    ! OPMIE begins here!\n    !=================================================================\n\n    ! there is a parallel correspondence:\n    !  dimension of JX arrays JXL_ .ge. dimension that CTM is using = L_\n    !  but calculation is done for L_=LU, L1_=L1U, L2_=L2U lengths of CTM\n    !\n    !  fast-J Mie code for J_s, only uses 8-term expansion, 4-Gauss pts\n    !\n    ! in:\n    !     DTAUX(1:L1_,1:W_) = optical depth of each layer\n    !     POMEGAX(1:8,1:L1_,1:W_) = scattering phase fn (multiplied by s-s albedo)\n    !     U0  = cos (SZA)\n    !     RFL(1:W_) = Lambertian albedo of surface\n    !     AMF2(1:2*L1_+1,1:2*L1_+1) = air mass factor (I,L)=wt of layer-I to layer-L\n    !        AMF2 now does both edges and middle of CTM layers\n    !     JXTRA(1:L1_) = number 0:J = no. of additional levels to be inserted\n    ! out:\n    !     FJACT(1:L_,1:W_) = mean actinic flux(diff+direct) at std CTM levels(mid-lyr)\n    !  (new ver 5.7 diagnostics for fluxes, deposition)  fluxes 'down' are <0\n    !     FJTOP(1:W_) = diffuse flux out top-of-atmosphere (TAU=0 above top model lyr)\n    !     FJBOT(1:W_) = diffuse flux onto surface (<0 by definition)\n    !     FSBOT(1:W_) = direct/solar flux onto surface  (<0 by definition)\n    !     FJFLX(1:L_,1:W_) = diffuse flux across top of model layer L\n    !        this connects with FJBOT = FJFLX(0) & FJTOP = FJFLX(L_+1) (not dim!!)\n    !     FLXD(1:L_+1,1:W_) = solar flux deposited in layer L (includes lyr above CTM)\n    !        this should take into account sphericity, and is not just = mu0\n    !     FLXD0(1:W_) = sum of solar flux deposited in atmos\n    !        does NOT include flux on lower surface, does NOT mean absorbed!\n    ! --------------------------------------------------------------------\n    !\n    !     DTAU     Local optical depth of each CTM level\n    !     TTAU     Optical depth of air vertically above each point (to top of atm)\n    !     FTAU2     Attenuation of solar beam\n    !     POMEGAJ  Scattering phase function\n    !\n    ! new ver 5.3 code adds sub-layers (# = JXTRA(L2)) using ATAU as the\n    !   factor increase from sub-layer to sub-layer\n    !\n    ! ------------------SET UP FOR MIE CODE-------------------------------\n    !\n    ! --------------wavelength independent--------------------------------\n    !\n    !  Transpose the ascending TTAU grid to a descending ZTAU grid.\n    !  Double the resolution - TTAU points become the odd points on the\n    !  ZTAU grid, even points needed for asymm phase fn soln, contain 'h'.\n    !  Odd point added at top of grid for unattenuated beam   (Z='inf')\n    !\n    !  The following mapping holds for JADDLV=0\n    !        Surface:   TTAU(1)    ==> ZTAU(2*L2_+1)\n    !        Top:       TTAU(L2_)  ==> ZTAU(3)\n    !        Infinity:     0.0     ==> ZTAU(1)\n    !        index: 2*(L2_+1-L2)+1 ==> LZ\n    !\n    !  Mie scattering code only used from surface to level L2_\n    ! ---------------------------------------------------------------------\n    !\n    ! ---------------------------------------------------------------------\n    !  Insert new levels, working downwards from the top of the atmosphere\n    !  to the surface (down in 'LZ', up in 'L2'). This allows ztau and pomega\n    !  to be incremented linearly, and the flux fz to be attenuated top-down\n    !    (avoiding problems where lower level fluxes are zero).\n    ! ---------------------------------------------------------------------\n    !\n    !  Ascend through atmosphere transposing grid and adding extra points\n    !  remember L2=1 is surface of CTM, but last layer (LZ) in scattering code.\n    !  there are twice the number of layers in the LZ arrays (2*L2_ + 2*JADDTO + 1)\n    !    because we need to insert the intermediate layers (even LZ) for the\n    !    asymmetric scattering code.\n    !\n    !  Transfer the L2=1:L2_+1 values (TTAU,FTAU2,POMEGAJ) onto the reverse\n    !    order, expanded, doubled-level scatter grid.\n    !    Note that we need to deal with the expansion by JADD levels (L2L).\n    !      These JADDLV levels are skipped and need to be interpolated later.\n    !    Note that only odd LZ levels are filled,\n    !\n    ! -------------------re-grid data---------------------------------------------\n    !  Calculate cumulative total and define levels we want J-values at.\n    !  Sum upwards for levels, and then downwards for Mie code readjustments.\n    !\n    !     JXTRA(L2)  Number of new levels to add between (L2) and (L2+1)\n    !           ***JXTRA(1:L2_+1) is calculated based on the aerosol+cloud OD_s\n    !     JADDLV(L2)  Number of new levels actually added at each wavelength\n    !            where JADDLV = 0 when there is effectively no FTAU2\n    !     JADDTO(L2)   Total number of new levels to add to and above level (L2)\n    !     JNDLEV(L) = L2 index that maps on CTM mid-layer L\n    !\n    ! JADDLV(L2=1:L2_) = number of levels to add between TTAU2(L2) and TTAU(L2+1)\n    !     JADDLV is taken from JXTRA, which is based on visible OD.\n    !     JADDTO(L2=1:L2_+1) is the cumulative number of levels to be added\n    ! these should be fixed for all wavelengths to lock-in the array sizes\n\n    if (LU .gt. JXL_) then\n       call EXITC (' OPMIE:  JXL_ .lt. L_')\n    endif\n\n    L1U = LU + 1\n    L2U = 2*LU + 2\n\n    do L2 = 1,L2U,1\n       JADDLV(L2) = JXTRA(L2)\n    enddo\n    JADDTO(L2U+1) = 0\n    do L2 = L2U,1,-1\n       JADDTO(L2) = JADDTO(L2+1) + JADDLV(L2)\n    enddo\n\n    ! expanded grid now included CTM edge and mid layers plus expanded\n    !     grid to allow for finer delta-tau at tops of clouds.\n    !     DIM of new grid = L2U + JADDTO(1) + 1\n\n    ! L2LEV(L2) = L2-index for old level L2 in expanded J-grid (w/JADDLV)\n    !     in absence of JADDLV, L2LEV(L2) = L2\n    L2LEV(1)  = 1\n    do L2 = 2,L2U+1\n       L2LEV(L2) = L2LEV(L2-1) + 1 + JADDLV(L2-1)\n    enddo\n\n    ! JNDLEV(L=1:L_) = L2-index in expanded grid for CTM mid-layer L\n    ! JNELEV(L=1:L_) = L2-index for top of layer L\n    do L = 1,LU\n       JNDLEV(L) = L2LEV(2*L)\n       JNELEV(L) = L2LEV(2*L+1)\n    enddo\n    JNELEV(LU+1) = 0  !need to set this to top-of-atmosphere\n\n    ND = 2*L2U + 2*JADDTO(1) + 1\n\n    if(ND .gt. N_) then\n       call EXITC (' overflow of scatter arrays: ND > N_')\n    endif\n\n    ! -------------begin wavelength dependent set up---------------------------\n\n    ! Reinitialize arrays\n    ZTAU(:,:)     = 0.e+0_fp\n    FZ(:,:)       = 0.e+0_fp\n    POMEGA(:,:,:) = 0.e+0_fp\n\n    do K=1,W_\n\n       ! Set up optical depth DTAU(L)\n       do L = 1,L1U\n          DTAU(L,K) = DTAUX(L,K)\n       enddo\n       DTAU(L1U+1,K) = 0.e+0_fp\n\n       ! Define the total scattering phase fn for each CTM layer L=1:L_+1\n       !    from a DTAU-wt_d mix of aerosols, cloud & Rayleigh\n       ! No. of quadrature pts fixed at 4(M_), expansion of phase fn @ 8\n       do L = 1,L1U\n          do I = 1,M2_\n             POMEGAJ(I,L,K) = POMEGAX(I,L,K)\n          enddo\n       enddo\n\n       ! Calculate attenuated incident beam exp(-TTAU/U0 = DTAU * AirMassFactor)\n       !       at the middle & edges of the CTM layers L=1:2*L1_+1\n       !   L1_ is top-edge of CTM (ie, L=38 = 2 hPa) which has TAU > 0\n       !   note that DTAU(L1_) is optical depth in the FULL CTM layer just above\n       FTAU2(:,:) = 0.e+0_fp\n       FTAU2(L2U+1,:) = 1.0e+0_fp\n       do LL = 1,2*L1U+1\n          L = (LL+1)/2\n          if (AMF2(LL,LL) .gt. 0.0e+0_fp) then\n             XLTAU = 0.0e+0_fp\n             do II = 1,2*L1U+1\n                I = (II+1)/2\n                XLTAU = XLTAU + 0.5e+0_fp*DTAU(I,K)*AMF2(II,LL)\n             enddo\n             if (XLTAU .lt. 76.e+0_fp) then   ! zero out flux at 1e-33\n                FTAU2(LL,K) = exp(-XLTAU)\n             endif\n          endif\n       enddo\n\n       ! calculate direct solar flux deposited in each CTM half-layer: L=1:L2_\n       !      use FSBOT for surface flux, cannot do layer above CTM (L_+1)\n       FLXD2(:,:) = 0.e+0_fp\n       do LL = 1,2*L1U\n          if (AMF2(LL,LL) .gt. 0.e+0_fp) then\n             FLXD2(LL,K) = (FTAU2(LL+1,K) - FTAU2(LL,K))/AMF2(LL,LL)\n          endif\n       enddo\n       if (AMF2(1,1) .gt. 0.e+0_fp) then\n          FSBOT(K) = FTAU2(1,K)/AMF2(1,1)\n       else\n          FSBOT(K) = 0.e+0_fp\n       endif\n\n       do LL = 2,2*L1U,2\n          L=LL/2\n          FLXD(L,K) = FLXD2(LL,K)+FLXD2(LL-1,K)\n       enddo\n\n       ! integrate solar flux depositied in CTM layers L=1:L_, cannot do top layer\n       !   note FLXD0 .ne. (1.e+0_fp - FTAU(L_+1))/AMF(L_+1,L_+1) with spherical atmos\n       FLXD0(K) = 0.e+0_fp\n       if (AMF2(2*L1U,2*L1U) .gt. 0.e+0_fp) then\n          do L=1,L1U\n             FLXD0(K) = FLXD0(K) + FLXD(L,K)\n          enddo\n       endif\n\n       ! ---------------------------------------------------------------------\n       !  Take optical properties on CTM layers and convert to a photolysis\n       !  level grid corresponding to layer centres and boundaries. This is\n       !  required so that J-values can be calculated for the centre of CTM\n       !  layers; the index of these layers is kept in the JNDLEV array.\n       ! ---------------------------------------------------------------------\n       ! Now combine the CTM layer edges (1:L_+2) with the CTM mid-layer\n       !     points (1:L_) plus 1 for the mid point of added top layer.\n       ! combine these edge- and mid-layer points into grid of size:\n       !               L2_+1 = 2*L1_+1 = 2*L_+3\n       ! calculate column optical depths above each level, TTAU(1:L2_+1)\n       !       note that TTAU(L2_+1)=0 and TTAU(1)=total OD\n\n       TTAU(L2U+1,K) = 0.0e+0_fp\n       do L2 = L2U,1,-1\n          L          = (L2+1)/2\n          DTAUJ      = 0.5e+0_fp * DTAU(L,K)\n          TTAU(L2,K)   = TTAU(L2+1,K) + DTAUJ\n       enddo\n\n       ! -solar flux incident on lower boundary & Lambertian reflect factor:\n       if (FSBOT(K) .gt. 0.e+0_fp) then\n          ZFLUX(K) = FSBOT(K)*RFL(K)/(1.e+0_fp+RFL(K))\n       else\n          ZFLUX(K) = 0.e+0_fp\n       endif\n\n       !  Calculate scattering properties, level centres then level boundaries\n       !>>>>>be careful of order, we are overwriting/shifting the 'POMEGAJ'\n       !     upward in index\n       do L2 = L2U,2,-2\n          L   = L2/2\n          do I = 1,M2_\n             POMEGAJ(I,L2,K) = POMEGAJ(I,L,K)\n          enddo\n       enddo\n       ! lower boundary value is set (POMEGAJ(I,1)), but set upper:\n       do I = 1,M2_\n          POMEGAJ(I,L2U+1,K) = POMEGAJ(I,L2U,K)\n       enddo\n       ! now have POMEGAJ filled at even points from L2=3:L2_-1\n       ! use inverse interpolation for correct tau-weighted values at edges\n       do L2 = 3,L2U-1,2\n          TAUDN = TTAU(L2-1,K)-TTAU(L2,K)\n          TAUUP = TTAU(L2,K)-TTAU(L2+1,K)\n          do I = 1,M2_\n             POMEGAJ(I,L2,K) = (POMEGAJ(I,L2-1,K)*TAUDN + &\n                                POMEGAJ(I,L2+1,K)*TAUUP) / (TAUDN+TAUUP)\n          enddo\n       enddo\n\n       ! at this point FTAU2(1:L2_+1) and POMEAGJ(1:8, 1:L2_+1)\n       !     where FTAU2(L2_+1) = 1.0 = top-of-atmos, FTAU2(1) = surface\n\n       do L2 = 1,L2U+1          ! L2 = index of CTM edge- and mid-layers\n          L2L = L2LEV(L2)        ! L2L = index for L2 in expanded scale(JADD)\n          LZ  = ND + 2 - 2*L2L  ! LZ = index for L2 in scatt arrays\n          ZTAU(LZ,K) = TTAU(L2,K)\n          FZ(LZ,K)   = FTAU2(L2,K)\n          do I=1,M2_\n             POMEGA(I,LZ,K) = POMEGAJ(I,L2,K)\n          enddo\n       enddo\n\n       ! Now go thru the pairs of L2 levels to see if we need JADD levels\n       do L2 = 1,L2U             ! L2 = index of CTM edge- and mid-layers\n          L2L = L2LEV(L2)        ! L2L = index for L2 in expanded scale(JADD)\n          LZ  = ND + 2 - 2*L2L   ! LZ = index for L2 in scatt arrays\n          L22 = L2LEV(L2+1) - L2LEV(L2) - 1   ! L22 = 0 if no added levels\n\n          if (L22 .gt. 0) then\n             TAUBTM(K) = TTAU(L2,K)\n             TAUTOP(K) = TTAU(L2+1,K)\n             FBTM(K)   = FTAU2(L2,K)\n             FTOP(K)   = FTAU2(L2+1,K)\n             do I = 1,M2_\n                POMEGAB(I,K) = POMEGAJ(I,L2,K)\n             enddo\n\n             ! to fit L22 new layers between TAUBOT > TAUTOP, calculate new\n             ! 1/ATAU factor\n             ! such that TAU(just above TAU-btm) = ATUAZ * TAUBTM < TAUBTM\n             ATAUZ = exp(-log(TAUBTM(K)/max(TAUTOP(K),ATAU0))/float(L22+1))\n             do L = 1,L22      ! add odd levels between L2LEV(L2) & L2LEV(L2+1)\n                LZZ = LZ - 2*L ! LZZ = index(odd) of added level in scatt arrays\n                ZTAU(LZZ,K) = TAUBTM(K) * ATAUZ\n\n                ! fraction from TAUBTM=>TAUTOP\n                ATAUA=(TAUBTM(K)-ZTAU(LZZ,K))/(TAUBTM(K)-TAUTOP(K))\n                ! solar flux at interp-levels: use exp(TAU/U0) if U0>0.02\n                ! (89 deg), else scale by TAU\n                if (U0 .gt. 0.02e+0_fp) then\n                   FZ(LZZ,K) = FTOP(K) * exp((TAUTOP(K)-ZTAU(LZZ,K))/U0)\n                else\n                   if (FBTM(K) .lt. 1.d-32) then\n                      FZ(LZZ,K) = 0.e+0_fp\n                   else\n                      FZ(LZZ,K) = FBTM(K) * (FTOP(K)/FBTM(K))**ATAUA\n                   endif\n                endif\n                do I = 1,M2_\n                   POMEGA(I,LZZ,K) = POMEGAB(I,K) + &\n                        ATAUA*(POMEGAJ(I,L2+1,K)-POMEGAB(I,K))\n                enddo\n                TAUBTM(K)    = ZTAU(LZZ,K)\n                FBTM(K)      = FZ(LZZ,K)\n                do I = 1,M2_\n                   POMEGAB(I,K) = POMEGA(I,LZZ,K)\n                enddo\n             enddo\n          endif\n       enddo\n\n       ! Now fill in the even points with simple interpolation in scatter arrays\n       do LZ = 2,ND-1,2\n          ZTAU(LZ,K) = 0.5e+0_fp*(ZTAU(LZ-1,K)+ZTAU(LZ+1,K))\n          FZ(LZ,K)   = sqrt(FZ(LZ-1,K)*FZ(LZ+1,K))\n          do I=1,M2_\n             POMEGA(I,LZ,K) = 0.5e+0_fp*(POMEGA(I,LZ-1,K)+POMEGA(I,LZ+1,K))\n          enddo\n       enddo\n\n    enddo  ! wavelength loop!\n\n    ! --------------------------------------------------------------------\n    call MIESCT(FJ,FJT,FJB,POMEGA,FZ,ZTAU,ZFLUX,RFL,U0,ND)\n    ! --------------------------------------------------------------------\n\n    ! Move mean intensity from scatter array FJ(LZ=1:ND)\n    !               to CTM mid-level array FJACT(L=1:L_)\n\n    do K=1,W_\n\n       ! mean intensity at mid-layer:  4*<I> + solar\n       !do L = 1,LU\n       ! L2L = JNDLEV(L)\n       ! LZ  = ND+2 - 2*L2L\n       ! FJACT(L,K) = 4.e+0_fp*FJ(LZ,K) + FZ(LZ,K)\n       !enddo\n\n       ! mean intensity averaged throughout layer:\n       do L = 1,LU\n          LZ0 = ND+2 - 2*JNELEV(L)\n          if (L .gt. 1) then\n             LZ1 = ND+2 - 2*JNELEV(L-1)\n          else\n             LZ1 = ND\n          endif\n          SUMJ = (4.e+0_fp*FJ(LZ0,K)+FZ(LZ0,K))*(ZTAU(LZ0+2,K)-ZTAU(LZ0,K)) &\n               + (4.e+0_fp*FJ(LZ1,K)+FZ(LZ1,K))*(ZTAU(LZ1,K)-ZTAU(LZ1-2,K))\n          SUMT = ZTAU(LZ0+2,K)-ZTAU(LZ0,K) + ZTAU(LZ1,K)-ZTAU(LZ1-2,K)\n\n          do LZ = LZ0+2,LZ1-2,2\n             SUMJ =SUMJ+(4.e+0_fp*FJ(LZ,K)+FZ(LZ,K))*(ZTAU(LZ+2,K)-ZTAU(LZ-2,K))\n             SUMT =SUMT + ZTAU(LZ+2,K)-ZTAU(LZ-2,K)\n          enddo\n          FJACT(L,K) = SUMJ/SUMT\n\n       enddo\n\n       ! mean diffuse flux:  4<I*mu> (not solar) at top of layer L\n       !       average (tau-wtd) the h's just above and below the L-edge\n       do L = 1,LU\n          L2L = JNELEV(L)\n          LZ  = ND+2 - 2*L2L\n          FJFLX0 = (ZTAU(LZ+1,K)-ZTAU(LZ,K))/(ZTAU(LZ+1,K)-ZTAU(LZ-1,K))\n          FJFLX(L,K)=4.e+0_fp*(FJ(LZ-1,K)*FJFLX0 +FJ(LZ+1,K)*(1.e+0_fp-FJFLX0))\n       enddo\n\n       ! diffuse fluxes reflected at top, incident at bottom\n       FJTOP(K) = FJT(K)\n       FJBOT(K) = FJB(K)\n\n    enddo  ! wavelength loop!\n\n  END SUBROUTINE OPMIE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: miesct\n!\n! !DESCRIPTION: Subroutine MIESCT is an adaptation of the Prather radiative\n!  transfer code (mjp, 10/95).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MIESCT(FJ,FJT,FJB, POMEGA,FZ,ZTAU,ZFLUX,RFL,U0,ND)\n!\n! !USES:\n!\n    USE CMN_FJX_Mod, ONLY : EMU, M_, M2_, N_, W_\n!\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  ::  ND\n    REAL(fp), INTENT(IN)  ::  POMEGA(M2_,N_,W_),FZ(N_,W_),ZTAU(N_,W_), &\n                              RFL(W_),U0,ZFLUX(W_)\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) ::  FJ(N_,W_),FJT(W_),FJB(W_)\n!\n! !REMARKS:\n!     Prather, 1974, Astrophys. J. 192, 787-792.\n!         Solution of inhomogeneous Rayleigh scattering atmosphere.\n!         (original Rayleigh w/ polarization)\n!     Cochran and Trafton, 1978, Ap.J., 219, 756-762.\n!         Raman scattering in the atmospheres of the major planets.\n!         (first use of anisotropic code)\n!     Jacob, Gottlieb and Prather, 1989, J.Geophys.Res., 94, 12975-13002.\n!         Chemistry of a polluted cloudy boundary layer,\n!         (documentation of extension to anisotropic scattering)\n!                                                                             .\n!    takes atmospheric structure and source terms from std J-code\n!    ALSO limited to 4 Gauss points, only calculates mean field! (M=1)\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)  PM(M_,M2_),PM0(M2_)\n    INTEGER I, IM  ,K\n\n    !=================================================================\n    ! MIESCT begins here!\n    !=================================================================\n\n    do I = 1,M_\n       call LEGND0 (EMU(I),PM0,M2_)\n       do IM = 1,M2_\n          PM(I,IM) = PM0(IM)\n       enddo\n    enddo\n\n    call LEGND0 (-U0,PM0,M2_)\n    do IM=1,M2_\n       PM0(IM) = 0.25e+0_fp*PM0(IM)\n    enddo\n\n    ! BLKSLV now called with all the wavelength arrays (K=1:W_)\n    call BLKSLV(FJ,POMEGA,FZ,ZTAU,ZFLUX,RFL,PM,PM0,FJT,FJB, ND)\n\n  END SUBROUTINE MIESCT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: legnd0\n!\n! !DESCRIPTION: Subroutine LEGND0 calculates ordinary Legendre functions\n!  of X (real) from $P[0] = PL(1) = 1, P[1] = X, \\dots, P[N-1] = PL(N)$\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LEGND0 (X,PL,N)\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: N\n    REAL(fp), INTENT(IN)  :: X\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) :: PL(N)\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER I\n    REAL(fp)  DEN\n\n    !=================================================================\n    ! LEGND0 begins here!\n    !=================================================================\n\n    ! Always does PL(2) = P[1]\n    PL(1) = 1.e+0_fp\n    PL(2) = X\n    do I = 3,N\n       DEN = (I-1)\n       PL(I) = PL(I-1)*X*(2.e+0_fp-1.0/DEN) - PL(I-2)*(1.e+0_fp-1.e+0_fp/DEN)\n    enddo\n\n  END SUBROUTINE LEGND0\n!EOC\n\nEND MODULE FJX_MOD\n#endif\n"
  },
  {
    "path": "GeosCore/fjx_interface_mod.F90",
    "content": "#ifdef FASTJX\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: fjx_interface_mod.F90\n!\n! !DESCRIPTION: Module FJX\\_INTERFACE\\_MOD contains routines and variables\n!  for interfacing with the Fast-JX scheme (Prather et al) that calculates\n!  photolysis rates. Current implementation is version 7.0a.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE FJX_INTERFACE_MOD\n!\n! !USES:\n!\n  USE FJX_Mod\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_FastJX\n  PUBLIC  :: Run_FASTJX\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: SET_PROF_FJX ! could consolidate in photolysis_mod perhaps\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_fastjx\n!\n! !DESCRIPTION: Subroutine Init\\_FastJX initializes Fast-JX variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_FastJX( Input_Opt, State_Diag, State_Chm, RC )\n!\n! !USES:\n!\n    USE Aerosol_Mod,    ONLY : RD_AOD, CALC_AOD\n    USE CMN_FJX_Mod,    ONLY : JVN_, NJX, NRATJ, W_, WL\n    USE CMN_FJX_Mod,    ONLY : TITLEJX, JLABEL, RNAMES, JFACTA\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE inquireMod,     ONLY : findFreeLUN\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n#if defined( MODEL_CESM )\n    USE UNITS,          ONLY : freeUnit\n#endif\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(DgnState), INTENT(IN)    :: State_Diag  ! Diagnostics State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Copied from Fast-JX v7.0\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: notDryRun\n    INTEGER            :: JXUNIT, J, NJXX, K\n\n    ! Strings\n    CHARACTER(LEN=6)   :: TITLEJXX(JVN_)\n    CHARACTER(LEN=255) :: DATA_DIR\n    CHARACTER(LEN=255) :: FILENAME\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! Init_FastJX begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    notDryRun = ( .not. Input_Opt%DryRun )\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Init_FastJX (in module GeosCore/fjx_interface_mod.F90)'\n\n    ! Skip these opterations when running in dry-run mode\n    IF ( notDryRun ) THEN\n\n       ! Print info\n       IF ( Input_Opt%amIRoot ) THEN\n          write(6,*) ' Initializing Fast-JX v7.0 standalone CTM code.'\n\n          if (W_.ne.8 .and. W_.ne.12 .and. W_.ne.18) then\n             ErrMsg =  'Invalid number of wavelengths (W_)'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          endif\n       ENDIF\n\n#if defined( MODEL_CESM )\n       IF ( Input_Opt%amIRoot ) THEN\n          JXUNIT = findFreeLUN()\n       ELSE\n          JXUNIT = 0\n       ENDIF\n#else\n       ! Get a free LUN\n       JXUNIT = findFreeLUN()\n#endif\n\n    ENDIF\n\n    ! Define data directory for FAST-JX input\n    DATA_DIR = TRIM( Input_Opt%FAST_JX_DIR )\n\n    !=====================================================================\n    ! Read in fast-J X-sections (spectral data)\n    !=====================================================================\n    FILENAME = TRIM( DATA_DIR ) // 'FJX_spec.dat'\n\n    ! Read file, or just print filename if we are in dry-run mode\n    CALL RD_XXX( Input_Opt%amIRoot, Input_Opt%DryRun, JXUNIT, &\n                 TRIM( FILENAME ), RC)\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in FAST-JX routine \"RD_XXX\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Skip if in dry-run mode\n    IF ( notDryRun ) THEN\n       NJXX = NJX\n       do J = 1,NJX\n          TITLEJXX(J) = TITLEJX(J)\n       enddo\n    ENDIF\n\n    !=====================================================================\n    ! Read in 5-wavelength scattering data\n    ! (or just print file name if in dry-run mode)\n    !=====================================================================\n    FILENAME = TRIM( DATA_DIR ) // 'jv_spec_mie.dat'\n\n    ! Read data\n    CALL RD_MIE( Input_Opt%amIRoot, Input_Opt%DryRun, Input_Opt%LBRC, &\n                 JXUNIT, TRIM( FILENAME ), RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in FAST-JX routine \"RD_MIE\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=====================================================================\n    ! Read in photolysis rates used in chemistry code and mapping onto\n    ! FJX J's CTM call:  read in J-values names and link to fast-JX names\n    !=====================================================================\n    FILENAME = TRIM( DATA_DIR ) // 'FJX_j2j.dat'\n\n    ! Read mapping information\n    CALL RD_JS_JX( Input_Opt%amIRoot, Input_Opt%DryRun, JXUNIT, &\n                   TRIM( FILENAME ), TITLEJXX, NJXX, RC )\n\n    ! Store # of photolysis reactions in state_chm for easy reference\n    State_Chm%Phot%nPhotRxns = NRatJ\n\n#if defined( MODEL_CESM )\n    IF ( notDryRun .AND. Input_Opt%amIRoot ) THEN\n       CALL freeUnit(JXUnit)\n    ENDIF\n#endif\n\n    !------------------------------------------------------------------------\n    ! Read in AOD data\n    !------------------------------------------------------------------------\n    CALL RD_AOD( Input_Opt, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"RD_AOD\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n    IF (Input_Opt%amIRoot) WRITE(6,*) 'Wavelength optics read successfully'\n\n    !------------------------------------------------------------------------\n    ! Compute the required wavelengths in the LUT to calculate requested AOD\n    !------------------------------------------------------------------------\n    CALL CALC_AOD( Input_Opt, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"CALC_AOD\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Init_FastJX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: run_fastjx\n!\n! !DESCRIPTION: Subroutine RUN|_FASTJX loops over longitude and latitude, and\n!  calls PHOTO\\_JX to compute J-Values for each column at every chemistry\n!  time-step.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Run_FastJX( WLAOD,      Input_Opt,  State_Chm,                  &\n                         State_Diag, State_Grid, State_Met, RC              )\n!\n! !USES:\n!\n    USE CMN_FJX_Mod,     ONLY : AN_, L_, L1_, W_, JVN_, JXL_, JXL1_\n    USE CMN_FJX_Mod,     ONLY : NRATJ, JIND, JFACTA, FL\n    USE CMN_SIZE_MOD,    ONLY : NDUST, NRH, NRHAER, NSTRATAER\n    USE ErrCode_Mod\n    USE ERROR_MOD,       ONLY : ERROR_STOP, ALLOC_ERR\n    USE ERROR_MOD,       ONLY : DEBUG_MSG\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Chm_Mod,   ONLY : Ind_\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE TIME_MOD,        ONLY : GET_MONTH, GET_DAY, GET_DAY_OF_YEAR\n    USE TIME_MOD,        ONLY : GET_TAU,   GET_YEAR\n    USE TOMS_MOD,        ONLY : GET_OVERHEAD_O3\n\n    IMPLICIT NONE\n\n!==============================================================================\n! Uncomment the appropriate #define statement to denote which of the\n! available cloud overlap options that you wish to use.\n\n!! Linear overlap\n!#define USE_LINEAR_OVERLAP 1\n\n! Approximate random overlap (balance between accuracy & speed)\n#define USE_APPROX_RANDOM_OVERLAP 1\n\n!! Maximum random cloud overlap (most computationally intensive)\n!#define USE_MAXIMUM_RANDOM_OVERLAP 1\n!==============================================================================\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: WLAOD       ! AOD calculated how?\n                                                 ! (1: 550 nm, 0: 999 nm)\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n!  Parameter to choose cloud overlap algorithm:\n!  ============================================================================\n!  (1 ) OVERLAP (INTEGER) : 1 - Linear Approximation (used up to v7-04-12)\n!                           2 - Approximate Random Overlap (default)\n!                           3 - Maximum Random Overlap (computation intensive)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, SAVE :: LASTMONTH = -1\n    INTEGER       :: NLON, NLAT, DAY,  MONTH, DAY_OF_YR, L, N, J\n    INTEGER       :: IOPT, LCHEM\n    REAL(fp)      :: U0, PRES, RFL, YLAT,  O3_TOMS, SZA, SOLF\n    REAL(fp)      :: O3_CTM(State_Grid%NZ+1)\n    REAL(fp)      :: T_CTM(State_Grid%NZ+1), OPTD(State_Grid%NZ)\n    REAL(fp)      :: OPTDUST(State_Grid%NZ,NDUST)\n    REAL(fp)      :: OPTAER(State_Grid%NZ,NRHAER*NRH+NSTRATAER)\n\n    ! Local variables for cloud overlap (hyl, phs)\n    INTEGER       :: NUMB, KK, I\n    INTEGER       :: INDIC(State_Grid%NZ+1)\n    INTEGER       :: INDGEN(State_Grid%NZ+1)! = (/ (i,i=1,State_Grid%NZ+1) /)\n    INTEGER       :: KBOT(State_Grid%NZ)\n    INTEGER       :: KTOP(State_Grid%NZ)\n    INTEGER       :: INDICATOR(State_Grid%NZ+2)\n    REAL(fp)      :: FMAX(State_Grid%NZ)    ! maximum cloud fraction\n                                              !  in a block, size can be to\n                                              !  FIX(State_Grid%NZ)+1\n    REAL(fp)      :: CLDF1D(State_Grid%NZ)\n    REAL(fp)      :: ODNEW(State_Grid%NZ)\n    REAL(fp)      :: P_CTM(State_Grid%NZ+2)\n    REAL(fp)      :: AERX_COL(AN_,L1_)\n    REAL(fp)      :: T_CLIM(L1_)\n    REAL(fp)      :: O3_CLIM(L1_)\n    REAL(fp)      :: Z_CLIM(L1_+1)\n    REAL(fp)      :: AIR_CLIM(L1_)\n    REAL(fp)      :: VALJXX(L_,JVN_)\n\n    LOGICAL       :: AOD999\n    LOGICAL, SAVE :: FIRST = .true.\n    LOGICAL       :: prtDebug\n\n    ! Species ID flags\n    INTEGER, SAVE :: id_O3\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Input to set_prof\n    REAL(fp) :: ODCLOUD_COL(L_)\n\n    ! Output from photo_jx for use in diagnostics\n    REAL(fp), DIMENSION(W_)         :: FJBOT,FSBOT\n    REAL(fp), DIMENSION(JXL1_,W_)   :: FLXD\n    REAL(fp), DIMENSION(JXL_, W_)   :: FJFLX\n\n    ! UVFlux* diagnostics\n    REAL(fp) :: FDIRECT (JXL1_)\n    REAL(fp) :: FDIFFUSE(JXL1_)\n    REAL(fp) :: UVX_CONST\n    INTEGER  :: S, K\n\n    ! Pointers\n    INTEGER,  POINTER :: IRHARR   (:,:,:)\n    REAL(fp), POINTER :: UVXFACTOR(:)\n    REAL(fp), POINTER :: ZPJ      (:,:,:,:)\n    REAL(fp), POINTER :: ODAER    (:,:,:,:,:)\n    REAL(fp), POINTER :: ODMDUST  (:,:,:,:,:)\n\n    !=================================================================\n    ! Run_FastJX begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Run_FastJX (in module GeosCore/fjx_interface_mod.F90)'\n    prtDebug  = Input_Opt%Verbose\n\n    ! Set pointers\n    ZPJ       => State_Chm%Phot%ZPJ\n    IRHARR    => State_Chm%Phot%IRHARR\n    UVXFACTOR => State_Chm%Phot%UVXFACTOR\n    ODAER     => State_Chm%Phot%ODAER\n    ODMDUST   => State_Chm%Phot%ODMDUST\n\n    ! Get day of year (0-365 or 0-366)\n    DAY_OF_YR = GET_DAY_OF_YEAR()\n\n    ! Get current month\n    MONTH     = GET_MONTH()\n\n    ! Get day of month\n    DAY       = GET_DAY()\n\n    ! Was AOD calculated at 999 nm or reference?\n    AOD999    = ( WLAOD == 0 )\n\n    ! Zero diagnostic archival arrays to make sure that we don't have any\n    ! leftover values from the last timestep near the top of the chemgrid\n    IF ( State_Diag%Archive_UVFluxDiffuse ) State_Diag%UVFluxDiffuse = 0.0_f4\n    IF ( State_Diag%Archive_UVFluxDirect  ) State_Diag%UVFluxDirect  = 0.0_f4\n    IF ( State_Diag%Archive_UVFluxNet     ) State_Diag%UVFluxNet     = 0.0_f4\n    IF ( State_Diag%Archive_OD600         ) State_Diag%OD600         = 0.0_f4\n    IF ( State_Diag%Archive_TCOD600       ) State_Diag%TCOD600       = 0.0_f4\n\n    !-----------------------------------------------------------------\n    ! Special handling for first-time setup\n    !-----------------------------------------------------------------\n    IF ( FIRST ) THEN\n\n       ! Get the species ID for O3\n       id_O3 = Ind_('O3')\n       IF ( id_O3 < 0 ) THEN\n          ErrMsg = 'O3 is not a defined species!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n#ifdef USE_MAXIMUM_RANDOM_OVERLAP\n       ! Special setup only for max random overlap\n       DO i = 1,State_Grid%NZ+1\n          INDGEN(i) = i       !(/(i,i=1,State_Grid%NZ+1)/)\n       ENDDO\n#endif\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n\n    ENDIF\n\n    !=================================================================\n    ! For each (NLON,NLAT) location, call subroutine PHOTO_JX (in a\n    ! parallel loop to compute J-values for the entire column.\n    ! J-values will be stored in the common-block variable ZPJ, and\n    ! will be later accessed via function FJXFUNC.\n    !=================================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( NLAT,    NLON,   YLAT,      U0,      L       ) &\n    !$OMP PRIVATE( P_CTM ,  T_CTM,  RFL,       O3_TOMS, O3_CTM  ) &\n    !$OMP PRIVATE( LCHEM,   OPTAER, N,         IOPT,    J       ) &\n    !$OMP PRIVATE( OPTDUST, OPTD,   CLDF1D                      ) &\n#ifdef USE_MAXIMUM_RANDOM_OVERLAP\n    !$OMP PRIVATE( FMAX,    KK,     NUMB,      KBOT             ) &\n    !$OMP PRIVATE( KTOP     ODNEW,  INDICATOR, INDIC            ) &\n#endif\n    !$OMP PRIVATE( SZA, SOLF, ODCLOUD_COL                       ) &\n    !$OMP PRIVATE( AERX_COL,  T_CLIM, O3_CLIM, Z_CLIM, AIR_CLIM ) &\n    !$OMP PRIVATE( VALJXX,    FSBOT,  FJBOT,   FLXD,   FJFLX    ) &\n    !$OMP PRIVATE( FDIRECT,   FDIFFUSE, UVX_CONST, K, S         ) &\n    !$OMP SCHEDULE( DYNAMIC )\n\n    ! Loop over latitudes and longitudes\n    DO NLAT = 1, State_Grid%NY\n    DO NLON = 1, State_Grid%NX\n\n       ! Grid box latitude [degrees]\n       YLAT = State_Grid%YMid( NLON, NLAT )\n\n       ! Cosine of solar zenith angle [unitless] at (NLON,NLAT)\n       U0 = State_Met%SUNCOSmid(NLON,NLAT)\n\n       ! Define the P array here\n       DO L = 1, State_Grid%NZ+1\n          P_CTM(L) = State_Met%PEDGE( NLON, NLAT, L )\n       ENDDO\n\n       ! Top edge of P_CTM is top of atmosphere (bmy, 2/13/07)\n       P_CTM(State_Grid%NZ+2) = 0e+0_fp\n\n       ! Temperature profile [K] at (NLON,NLAT)\n       T_CTM(1:State_Grid%NZ) = State_Met%T( NLON, NLAT, 1:State_Grid%NZ)\n\n       ! Top of atmosphere\n       T_CTM(State_Grid%NZ+1) = T_CTM(State_Grid%NZ)\n\n       ! Surface albedo [unitless] at (NLON,NLAT)\n       RFL = State_Met%UVALBEDO(NLON,NLAT)\n\n       ! Overhead ozone column [DU] at (NLON, NLAT)\n       ! These values are either from the met fields or TOMS/SBUV,\n       ! depending on the settings in geoschem_config.yml\n       O3_TOMS = GET_OVERHEAD_O3( State_Chm, NLON, NLAT )\n\n       ! CTM ozone densities (molec/cm3) at (NLON, NLAT)\n       O3_CTM = 0e+0_fp\n       LCHEM  = State_Met%ChemGridLev(NLON,NLAT)\n       DO L = 1, LCHEM\n          O3_CTM(L) = State_Chm%Species(id_O3)%Conc(NLON,NLAT,L)\n       ENDDO\n\n       ! Aerosol OD profile [unitless] at (NLON,NLAT)\n       ! and at 1000nm, IWV1000 (DAR)\n       OPTAER = 0.0e+0_fp\n\n       ! OD profiles for aerosols undergoing hygroscopic growth. The OD\n       ! profile array has 5 columns for each of these aerosols, one for each\n       ! humidity in the optical properties LUT used by Fast-JX. For each grid\n       ! cell and aerosol, assign OD based on humidity in the grid box; values for\n       ! that grid cell and aerosol will be zero for all other humidity bins,\n       ! e.g. if RH<50% at L=1 then OPTAER(1,1) will contain SO4 OD and OPTAER(1,2:5)\n       ! will be all zeros.\n       DO N = 1, NRHAER\n       DO L = 1, State_Grid%NZ\n          IOPT = ( (N-1) * NRH ) + IRHARR(NLON,NLAT,L)\n          OPTAER(L,IOPT) = ODAER(NLON,NLAT,L,State_Chm%Phot%IWV1000,N)\n       ENDDO\n       ENDDO\n\n       ! OD profiles for stratospheric aerosols (N=1: ssa, N=2: psc)\n       DO N = 1, NSTRATAER\n       DO L = 1, State_Grid%NZ\n          IOPT = (NRHAER * NRH) + N\n          OPTAER(L,IOPT) = ODAER(NLON,NLAT,L,State_Chm%Phot%IWV1000,NRHAER+N)\n       ENDDO\n       ENDDO\n\n       ! Mineral dust optical depth profiles\n       DO N = 1, NDUST\n       DO L = 1, State_Grid%NZ\n          OPTDUST(L,N) = ODMDUST(NLON,NLAT,L,State_Chm%Phot%IWV1000,N)\n       ENDDO\n       ENDDO\n\n       ! Cloud OD profile [unitless] at (NLON,NLAT)\n       OPTD = State_Met%OPTD(NLON,NLAT,1:State_Grid%NZ)\n\n#if defined( MODEL_GEOS )\n       ! Initialize diagnostics arrays\n       IF ( State_Diag%Archive_EXTRALNLEVS ) THEN\n          State_Diag%EXTRALNLEVS(NLON,NLAT) = 0.0\n       ENDIF\n       IF ( State_Diag%Archive_EXTRALNITER ) THEN\n          State_Diag%EXTRALNITER(NLON,NLAT) = 0.0\n       ENDIF\n#endif\n\n       if (State_Grid%NZ+1 .gt. JXL1_) then\n          ErrMsg = ' PHOTO_JX: not enough levels in JX'\n          call Error_Stop( ErrMsg, ThisLoc )\n       endif\n\n       ! Input conversion (SDE 03/29/13)\n       ! Calculate solar zenith angle (degrees)\n       CALL SOLAR_JX(DAY_OF_YR,U0,SZA,SOLF)\n       \n       ! check for dark conditions SZA > 98.0 deg => tan ht = 63 km or\n       !                                 99.0                 80 km\n       if (SZA .gt. 98.e+0_fp) cycle\n\n#if defined( USE_LINEAR_OVERLAP )\n       !===========================================================\n       ! %%%% CLOUD OVERLAP: LINEAR ASSUMPTION %%%%\n       !\n       ! Directly use OPTDEPTH = TAUCLD * CLDTOT\n       !===========================================================\n\n       ! Column cloud fraction (not less than zero)\n       CLDF1D = State_Met%CLDF(NLON,NLAT,1:State_Grid%NZ)\n       WHERE ( CLDF1D < 0e+0_fp ) CLDF1D = 0e+0_fp\n\n       ! NOTE: For GEOS-FP and MERRA-2 met fields, the optical\n       ! depth is the in-cloud optical depth.  At this point it has\n       ! NOT been multiplied by cloud fraction yet.  Therefore, we can\n       ! just apply the ! we can just apply the linear overlap formula\n       ! as written above (i.e. multiply by cloud fraction).\n       OPTD = OPTD * CLDF1D\n\n#elif defined( USE_APPROX_RANDOM_OVERLAP )\n       !===========================================================\n       ! %%%% CLOUD OVERLAP: APPROX RANDOM OVERLAP ASSUMPTION %%%%\n       !\n       ! Use OPTDEPTH = TAUCLD * CLDTOT**1.5\n       !===========================================================\n\n       ! Column cloud fraction (not less than zero)\n       CLDF1D = State_Met%CLDF(NLON,NLAT,1:State_Grid%NZ)\n       WHERE ( CLDF1D < 0e+0_fp ) CLDF1D = 0e+0_fp\n\n       ! NOTE: For GEOS-FP and MERRA-2 met fields, the optical\n       ! depth is the in-cloud optical depth.  At this point it has\n       ! NOT been multiplied by cloud fraction yet.  Therefore, we can\n       ! just apply the approximate random overlap formula as written\n       ! above (i.e. multiply by cloud fraction^1.5).\n       OPTD = OPTD * ( CLDF1D )**1.5e+0_fp\n\n#elif defined( USE_MAXIMUM_RANDOM_OVERLAP )\n       ! See commented out code in github history\n       CALL ERROR_STOP('MMRAN_16 not yet FJX compatible.', &\n                       'fjx_interface_mod.F90')\n\n\n#endif\n\n       ! Copy cloud OD data to a variable array\n       DO L=1,L_\n          ODCLOUD_COL(L) = OPTD(L)\n       ENDDO\n       \n       ! Use GEOS-Chem methodology to set vertical profiles of:\n       ! Pressure      (PPJ)    [hPa]\n       ! Temperature   (T_CLIm) [K]\n       ! Path density  (DDJ)    [# molec/cm2]\n       ! New methodology for:\n       ! Ozone density (OOJ)    [# O3 molec/cm2]\n       CALL SET_PROF_FJX( YLAT,      MONTH,     DAY,       T_CTM,            &\n                          P_CTM,     OPTD,      OPTDUST,   OPTAER,           &\n                          O3_CTM,    O3_TOMS,   AERX_COL,  T_CLIM,           &\n                          O3_CLIM,   Z_CLIM,    AIR_CLIM,  Input_Opt,        &\n                          State_Chm, State_Met                              )\n\n       ! Call FAST-JX routines to compute J-values\n       CALL PHOTO_JX( Input_Opt%amIRoot, Input_Opt%DryRun,     U0,           &\n                      RFL,               SZA,                  SOLF,         &\n                      P_CTM,             T_CTM,                AOD999,       &\n                      NLON,              NLAT,                 AERX_COL,     &\n                      T_CLIM,            O3_CLIM,              Z_CLIM,       &\n                      AIR_CLIM,          State_Met%maxChemLev, State_Chm,    &\n                      VALJXX,            FSBOT,                FJBOT,        &\n                      FLXD,              FJFLX,                Input_Opt,    &\n                      State_Diag                                            )\n\n       ! Fill out common-block array of J-rates using PHOTO_JX output\n       DO L=1,State_Met%MaxChemLev\n          DO J=1,NRATJ\n             IF (JIND(J).gt.0) THEN\n                ZPJ(L,J,NLON,NLAT) = VALJXX(L,JIND(J))*JFACTA(J)\n             ELSE\n                ZPJ(L,J,NLON,NLAT) = 0.e+0_fp\n             ENDIF\n          ENDDO\n       ENDDO\n\n       ! Set J-rates outside the chemgrid to zero\n       IF (State_Met%MaxChemLev.lt.L_) THEN\n          DO L=State_Met%MaxChemLev+1,L_\n             DO J=1,NRATJ\n                ZPJ(L,J,NLON,NLAT) = 0.e+0_fp\n             ENDDO\n          ENDDO\n       ENDIF\n\n       !=================================================================\n       ! UV radiative fluxes (direct, diffuse, net) [W/m2]\n       !\n       ! Updated for netCDF from nd64 (JMM 2019-09-11)\n       ! Use it to calculate fluxes for output if necessary\n       !\n       ! Get net direct and net diffuse fluxes separately\n       ! Order:\n       !    1 - Net flux\n       !    2 - Direct flux\n       !    3 - Diffuse flux\n       ! Convention: negative is downwards\n       !=================================================================\n\n       ! TODO TODO TODO - there seems to be a parallelization error here\n\n       IF ( State_Diag%Archive_UVFluxDiffuse .or. &\n            State_Diag%Archive_UVFluxDirect .or. &\n            State_Diag%Archive_UVFluxNet ) THEN\n       \n          ! Loop over wavelength bins\n          DO K = 1, W_\n       \n             ! Initialize\n             FDIRECT  = 0.0_fp\n             FDIFFUSE = 0.0_fp\n       \n             ! Direct & diffuse fluxes at each level\n             FDIRECT(1)  = FSBOT(K)                    ! surface\n             FDIFFUSE(1) = FJBOT(K)                    ! surface\n             DO L = 2, State_Grid%NZ\n                FDIRECT(L) = FDIRECT(L-1) + FLXD(L-1,K)\n                FDIFFUSE(L) = FJFLX(L-1,K)\n             ENDDO\n       \n             ! Constant to multiply UV fluxes at each wavelength bin\n             UVX_CONST = SOLF * FL(K) * UVXFACTOR(K)\n       \n             ! Archive into diagnostic arrays\n             DO L = 1, State_Grid%NZ\n       \n                IF ( State_Diag%Archive_UVFluxNet ) THEN\n                   S = State_Diag%Map_UvFluxNet%id2slot(K)\n                   IF ( S > 0 ) THEN\n                      State_Diag%UVFluxNet(NLON,NLAT,L,S) =  &\n                      State_Diag%UVFluxNet(NLON,NLAT,L,S) +  &\n                           ( ( FDIRECT(L) + FDIFFUSE(L) ) * UVX_CONST )\n                   ENDIF\n                ENDIF\n       \n                IF ( State_Diag%Archive_UVFluxDirect ) THEN\n                   S = State_Diag%Map_UvFluxDirect%id2slot(K)\n                   IF ( S > 0 ) THEN\n                      State_Diag%UVFluxDirect(NLON,NLAT,L,S) =  &\n                      State_Diag%UVFluxDirect(NLON,NLAT,L,S) +  &\n                           ( FDIRECT(L) * UVX_CONST )\n                   ENDIF\n                ENDIF\n       \n                IF ( State_Diag%Archive_UVFluxDiffuse ) THEN\n                   S = State_Diag%Map_UvFluxDiffuse%id2slot(K)\n                   IF ( S > 0 ) THEN\n                      State_Diag%UVFluxDiffuse(NLON,NLAT,L,S) =  &\n                      State_Diag%UVFluxDiffuse(NLON,NLAT,L,S) +  &\n                           ( FDIFFUSE(L) * UVX_CONST )\n                   ENDIF\n                ENDIF\n             ENDDO\n          ENDDO\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Reset first-time flag\n    FIRST=.FALSE.\n\n    ! Free pointers\n    ZPJ       => NULL()\n    IRHARR    => NULL()\n    UVXFACTOR => NULL()\n    ODAER     => NULL()\n    ODMDUST   => NULL()\n\n  END SUBROUTINE Run_FastJX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_prof_fjx\n!\n! !DESCRIPTION: Subroutine SET\\_PROF\\_FJX sets vertical profiles for a given\n!  latitude and longitude.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_PROF_FJX( YLAT,      MONTH,    DAY,      T_CTM,             &\n                           P_CTM,     CLDOD,    DSTOD,    AEROD,             &\n                           O3_CTM,    O3_TOMS,  AERCOL,   T_CLIM,            &\n                           O3_CLIM,   Z_CLIM,   AIR_CLIM, Input_Opt,         &\n                           State_Chm, State_Met                             )\n!\n! !USES:\n!\n    USE CMN_FJX_Mod,     ONLY : L_, L1_, AN_, ZZHT\n    USE CMN_SIZE_Mod,    ONLY : NDUST, NRH, NRHAER, NSTRATAER\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE PhysConstants,   ONLY : AIRMW, AVO, g0, BOLTZ\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Met_Mod,   ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)       :: YLAT              ! Latitude (degrees)\n    INTEGER,  INTENT(IN)       :: MONTH             ! Month\n    INTEGER,  INTENT(IN)       :: DAY               ! Day *of month*\n    REAL(fp), INTENT(IN)       :: T_CTM(L1_)        ! CTM temperatures (K)\n    REAL(fp), INTENT(IN)       :: O3_TOMS           ! O3 column (DU)\n    REAL(fp), INTENT(IN)       :: P_CTM(L1_+1)      ! CTM edge pressures (hPa)\n    REAL(fp), INTENT(INOUT)    :: CLDOD(L_)         ! Cloud optical depth\n    REAL(fp), INTENT(IN)       :: DSTOD(L_,NDUST)   ! Mineral dust OD\n    REAL(fp), INTENT(IN)       :: AEROD(L_,NRHAER*NRH+NSTRATAER) ! Aerosol OD\n    REAL(fp), INTENT(IN)       :: O3_CTM(L1_)       ! CTM ozone (molec/cm3)\n    TYPE(OptInput), INTENT(IN) :: Input_Opt         ! Input options\n    TYPE(ChmState), INTENT(IN) :: State_Chm         ! Chemistry State object\n    TYPE(MetState), INTENT(IN) :: State_Met         ! Grid State object\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT)      :: AERCOL(AN_,L1_)   ! Aerosol column\n    REAL(fp), INTENT(OUT)      :: T_CLIM(L1_)       ! Clim. temperatures (K)\n    REAL(fp), INTENT(OUT)      :: Z_CLIM(L1_+1)     ! Edge altitudes (cm)\n    REAL(fp), INTENT(OUT)      :: O3_CLIM(L1_)      ! O3 column depth (#/cm2)\n    REAL(fp), INTENT(OUT)      :: AIR_CLIM(L1_)     ! O3 column depth (#/cm2)\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  30 Mar 2013 - S. D. Eastham - Adapted from J. Mao code\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                  :: I, K, L, M, N, LCTM\n    REAL(fp)                 :: DLOGP,F0,T0,B0,PB,PC,XC,MASFAC,SCALEH\n    REAL(fp)                 :: PSTD(52),OREF2(51),TREF2(51)\n    REAL(fp)                 :: PROFCOL, ODSUM\n    REAL(fp), PARAMETER      :: ODMAX = 200.0e+0_fp\n\n    ! Local variables for quantities from Input_Opt\n    LOGICAL :: USE_ONLINE_O3\n\n    ! Debugging logicals to turn optical depth sources on/off\n    LOGICAL :: use_liqcld\n    LOGICAL :: use_icecld\n    LOGICAL :: use_dust\n    LOGICAL :: use_so4\n    LOGICAL :: use_bc\n    LOGICAL :: use_oc\n    LOGICAL :: use_sala\n    LOGICAL :: use_salc\n    LOGICAL :: use_stratso4\n    LOGICAL :: use_psc\n\n    !=================================================================\n    ! SET_PROF begins here!\n    !=================================================================\n\n    ! Debugging option to turn optical depth sources on/off. Uncomment where\n    ! used elsewhere in this file to use. They are commented out by default\n    ! to avoid unnecessary model slow-down.\n    use_liqcld   = .true.\n    use_icecld   = .true.\n    use_dust     = .true.\n    use_so4      = .true.\n    use_bc       = .true.\n    use_oc       = .true.\n    use_sala     = .true.\n    use_salc     = .true.\n    use_stratso4 = .true.\n    use_psc      = .true.\n\n    ! Copy fields from INPUT_OPT\n    USE_ONLINE_O3   = Input_Opt%USE_ONLINE_O3\n\n    ! Zero aerosol column\n    DO K=1,AN_\n       DO I=1,L1_\n          AERCOL(K,I) = 0.e+0_fp\n       ENDDO\n    ENDDO\n\n    ! Scale optical depths to stay within limits\n    ODSUM = 0.e+0_fp\n    DO I=1,L_\n       CLDOD(I) = DBLE(CLDOD(I))\n       ODSUM = ODSUM + CLDOD(I)\n    ENDDO\n    IF (ODSUM.gt.ODMAX) THEN\n       ODSUM = ODMAX/ODSUM ! Temporary\n       DO I=1,L_\n          CLDOD(I) = CLDOD(I)*ODSUM\n       ENDDO\n       ODSUM = ODMAX\n    ENDIF\n\n    !=================================================================\n    ! Set up pressure levels for O3/T climatology - assume that value\n    ! given for each 2 km z* level applies from 1 km below to 1 km\n    ! above, so select pressures at these boundaries. Surface level\n    ! values at 1000 mb are assumed to extend down to the actual\n    ! surface pressure for this lat/lon.\n    !=================================================================\n    PSTD(1)  = MAX(P_CTM(1),1000.e+0_fp)\n    PSTD(2)  = 1000.e+0_fp * 10.e+0_fp ** (-1.e+0_fp/16.e+0_fp)\n    DLOGP    = 10.e+0_fp**(-2.e+0_fp/16.e+0_fp)\n    DO I=3,51\n       PSTD(I) = PSTD(I-1) * DLOGP\n    ENDDO\n    PSTD(52) = 0.e+0_fp\n\n    ! Mass factor - delta-Pressure [hPa] to delta-Column [molec/cm2]\n    MASFAC = 100.e+0_fp * AVO / ( AIRMW * g0 * 10.e+0_fp )\n\n    ! Select appropriate monthly and latitudinal profiles\n    ! Now use YLAT instead of Oliver's YDGRD(NSLAT) (bmy, 9/13/99)\n    M = MAX( 1, MIN( 12, MONTH                   ) )\n    L = MAX( 1, MIN( 18, ( INT(YLAT) + 99 ) / 10 ) )\n\n    ! Temporary arrays for climatology data\n    DO I = 1, 51\n       OREF2(I) = State_Chm%Phot%OREF(I,L,M)\n       TREF2(I) = State_Chm%Phot%TREF(I,L,M)\n    ENDDO\n\n    ! Apportion O3 and T on supplied climatology z* levels onto CTM levels\n    ! with mass (pressure) weighting, assuming constant mixing ratio and\n    ! temperature half a layer on either side of the point supplied.\n    DO I = 1, L1_\n       F0 = 0.e+0_fp\n       T0 = 0.e+0_fp\n       DO K = 1, 51\n          PC = MIN( P_CTM(I),   PSTD(K)   )\n          PB = MAX( P_CTM(I+1), PSTD(K+1) )\n          IF ( PC .GT. PB ) THEN\n             XC = ( PC - PB ) / ( P_CTM(I) - P_CTM(I+1) )\n             F0 = F0 + OREF2(K)*XC\n             T0 = T0 + TREF2(K)*XC\n          ENDIF\n       ENDDO\n       T_CLIM(I)  = T0\n       O3_CLIM(I) = F0 * 1.e-6_fp\n    ENDDO\n\n    !=================================================================\n    ! Calculate effective altitudes using scale height at each level\n    !=================================================================\n    Z_CLIM(1) = 0.e+0_fp\n    DO I = 1, L_\n       SCALEH = BOLTZ * 1.e+4_fp * MASFAC * T_CLIM(I)\n\n       Z_CLIM(I+1) = Z_CLIM(I) - ( LOG( P_CTM(I+1) / P_CTM(I) ) * SCALEH )\n    ENDDO\n    Z_CLIM(L1_+1)=Z_CLIM(L1_) + ZZHT\n\n    !=================================================================\n    ! Add Aerosol Column - include aerosol types here. Currently use\n    ! soot water and ice; assume black carbon x-section of 10 m2/g,\n    ! independent of wavelength; assume limiting temperature for\n    ! ice of -40 deg C.\n    !=================================================================\n    DO I = 1, L_\n       ! Turn off uniform black carbon profile (rvm, bmy, 2/27/02)\n       AERCOL(1,I) = 0e+0_fp\n\n       IF ( T_CTM(I) .GT. 233.e+0_fp ) THEN\n          AERCOL(2,I) = CLDOD(I)\n          AERCOL(3,I) = 0.e+0_fp\n       ELSE\n          AERCOL(2,I) = 0.e+0_fp\n          AERCOL(3,I) = CLDOD(I)\n       ENDIF\n\n       ! Mineral dust optical depth columns\n       DO N = 1, NDUST\n          AERCOL(3+N,I) = DSTOD(I,N)\n       ENDDO\n\n       ! Aerosol optical depth columns for aerosols undergroing\n       ! hygroscopic growth\n       DO N = 1, NRHAER*NRH\n          AERCOL(3+NDUST+N,I) = AEROD(I,N)\n       ENDDO\n\n       ! Stratospheric aerosol optical depth columns\n       DO N = 1, NSTRATAER\n          AERCOL(3+NDUST+NRHAER*NRH+N,I) = AEROD(I,NRHAER*NRH+N)\n       ENDDO\n\n    ENDDO\n\n    DO K = 1,AN_\n       AERCOL(K,L1_    ) = 0.e+0_fp\n    ENDDO\n\n    ! Debugging option to turn off contributions for different sources.\n    ! Uncomment if using.\n    !IF ( .NOT. use_liqcld   ) AERCOL(2,:)     = 0.0_fp\n    !IF ( .NOT. use_icecld   ) AERCOL(3,:)     = 0.0_fp\n    !IF ( .NOT. use_dust     ) AERCOL(4:10,:)  = 0.0_fp\n    !IF ( .NOT. use_so4      ) AERCOL(11:15,:) = 0.0_fp\n    !IF ( .NOT. use_bc       ) AERCOL(16:20,:) = 0.0_fp\n    !IF ( .NOT. use_oc       ) AERCOL(21:25,:) = 0.0_fp\n    !IF ( .NOT. use_sala     ) AERCOL(26:30,:) = 0.0_fp\n    !IF ( .NOT. use_salc     ) AERCOL(31:35,:) = 0.0_fp\n    !IF ( .NOT. use_stratso4 ) AERCOL(36,:)    = 0.0_fp\n    !IF ( .NOT. use_psc      ) AERCOL(37,:)    = 0.0_fp\n\n    !=================================================================\n    ! Calculate column quantities for FAST-JX\n    !=================================================================\n    PROFCOL = 0e+0_fp\n\n    DO I = 1, L1_\n\n       ! Monthly mean air Column [molec/cm2]\n       AIR_CLIM(I)  = ( P_CTM(I) - P_CTM(I+1) ) * MASFAC\n\n       ! Monthly mean O3 column [molec/cm2]\n       O3_CLIM(I) = O3_CLIM(I) * AIR_CLIM(I)\n\n       ! Monthly mean O3 column [DU]\n       PROFCOL = PROFCOL + ( O3_CLIM(I) / 2.69e+16_fp )\n    ENDDO\n\n    !! Top values are special (do not exist in CTM data)\n    !AIR_CLIM(L1_)     = P_CTM(L1_) * MASFAC\n    !O3_CLIM(L1_) = O3_CLIM(L1_) * AIR_CLIM(L1_)\n\n    !=================================================================\n    ! Now weight the O3 column by the observed monthly mean TOMS.\n    ! Missing data is denoted by the flag -999. (mje, bmy, 7/15/03)\n    !\n    ! TOMS/SBUV MERGED TOTAL OZONE DATA, Version 8, Revision 3.\n    ! Resolution:  5 x 10 deg.\n    !\n    ! Methodology (bmy, 2/12/07)\n    ! ----------------------------------------------------------------\n    ! FAST-J comes with its own default O3 column climatology (from\n    ! McPeters 1992 & Nagatani 1991), which is stored in the input\n    ! file \"jv_atms.dat\".  These \"FAST-J default\" O3 columns are used\n    ! in the computation of the actinic flux and other optical\n    ! quantities for the FAST-J photolysis.\n    !\n    ! The TOMS/SBUV O3 columns and 1/2-monthly O3 trends (contained\n    ! in the TOMS_200701 directory) are read into GEOS-Chem by routine\n    ! READ_TOMS in \"toms_mod.f\".  Missing values (i.e. locations where\n    ! there are no data) in the TOMS/SBUV O3 columns are defined by\n    ! the flag -999.\n    !\n    ! After being read from disk in routine READ_TOMS, the TOMS/SBUV\n    ! O3 data are then passed to the FAST-J routine \"set_prof.f\".  In\n    ! \"set_prof.f\", a test is done to make sure that the TOMS/SBUV O3\n    ! columns and 1/2-monthly trends do not have any missing values\n    ! for (lat,lon) location for the given month.  If so, then the\n    ! TOMS/SBUV O3 column data is interpolated to the current day and\n    ! is used to weight the \"FAST-J default\" O3 column.  This\n    ! essentially \"forces\" the \"FAST-J default\" O3 column values to\n    ! better match the observations, as defined by TOMS/SBUV.\n    !\n    ! If there are no TOMS/SBUV O3 columns (and 1/2-monthly trends)\n    ! at a (lat,lon) location for given month, then FAST-J will revert\n    ! to its own \"default\" climatology for that location and month.\n    ! Therefore, the TOMS O3 can be thought of as an  \"overlay\" data\n    ! -- it is only used if it exists.\n    !\n    ! Note that there are no TOMS/SBUV O3 columns at the higher\n    ! latitudes.  At these latitudes, the code will revert to using\n    ! the \"FAST-J default\" O3 columns.\n    !\n    ! As of February 2007, we have TOMS/SBUV data for 1979 thru 2005.\n    ! 2006 TOMS/SBUV data is incomplete as of this writing.  For years\n    ! 2006 and onward, we use 2005 TOMS O3 columns.\n    !\n    ! This methodology was originally adopted by Mat Evans.  Symeon\n    ! Koumoutsaris was responsible for creating the downloading and\n    ! processing the TOMS O3 data files from 1979 thru 2005 in the\n    ! TOMS_200701 directory.\n    !=================================================================\n\n    ! Since we now have stratospheric ozone calculated online, use\n    ! this instead of archived profiles for all chemistry-grid cells\n    ! The variable O3_CTM is obtained from State_Met%Species, and will be 0\n    ! outside the chemgrid (in which case we use climatology)\n\n    ! Scale monthly O3 profile to the daily O3 profile (if available)\n    DO I = 1, L1_\n\n       ! Use online O3 values in the chemistry grid if selected\n       IF ( (USE_ONLINE_O3) .and. &\n            (I <= State_Met%MaxChemLev) .and. &\n            (O3_CTM(I) > 0e+0_fp) ) THEN\n\n          ! Convert from molec/cm3 to molec/cm2\n          O3_CLIM(I) = O3_CTM(I) * (Z_CLIM(I+1)-Z_CLIM(I))\n\n       ! Otherwise, use O3 values from the met fields or TOMS/SBUV\n       ELSEIF (O3_TOMS > 0e+0_fp) THEN\n\n          O3_CLIM(I) = O3_CLIM(I) * ( O3_TOMS / PROFCOL )\n\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE SET_PROF_FJX\n!EOC\nEND MODULE FJX_INTERFACE_MOD\n#endif\n"
  },
  {
    "path": "GeosCore/flexgrid_read_mod.F90",
    "content": "#if defined( MODEL_CLASSIC )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: flexgrid_read_mod.F90\n!\n! !DESCRIPTION: Module FLEXGRID\\_READ\\_MOD contains subroutines for reading the\n!  metfield from disk (in netCDF format).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE FlexGrid_Read_Mod\n!\n! !USES:\n!\n  USE ERROR_MOD,     ONLY : ERROR_STOP    ! Stop w/ error message\n  USE PhysConstants                       ! Physical constants\n  USE TIME_MOD                            ! Date & time routines\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: FlexGrid_Read_A3cld\n  PRIVATE :: FlexGrid_Read_A3dyn\n  PRIVATE :: FlexGrid_Read_A3mstC\n  PRIVATE :: FlexGrid_Read_A3mstE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: FlexGrid_Read_CN\n  PUBLIC  :: FlexGrid_Read_A1\n  PUBLIC  :: FlexGrid_Read_A1dyn\n  PUBLIC  :: FlexGrid_Read_A3\n  PUBLIC  :: FlexGrid_Read_I1dyn_1\n  PUBLIC  :: FlexGrid_Read_I1dyn_2\n  PUBLIC  :: FlexGrid_Read_I3_1\n  PUBLIC  :: FlexGrid_Read_I3_2\n  PUBLIC  :: Copy_I3_Fields\n  PUBLIC  :: Copy_I1dyn_Fields\n!\n! !REMARKS:\n!  Assumes that you have a netCDF library (either v3 or v4) installed on\n!  your system.\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_cn\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing constant (CN) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_CN( Input_Opt, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! State Grid object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n\n    ! Arrays\n    REAL*4             :: Q(State_Grid%NX,State_Grid%NY)     ! Temporary data arrray\n\n    ! Read FRLAKE\n    v_name = \"FRLAKE\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name) )\n    State_Met%FRLAKE = Q\n\n    ! Read FRLAND (land without lake or ice)\n    v_name = \"FRLAND\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name) )\n    State_Met%FRLAND = Q\n\n    ! Read FRLANDIC\n    v_name = \"FRLANDIC\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name) )\n    State_Met%FRLANDICE = Q\n\n    ! Read FROCEAN\n    v_name = \"FROCEAN\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name) )\n    State_Met%FROCEAN = Q\n\n    ! Read PHIS\n    v_name = \"PHIS\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name) )\n    State_Met%PHIS = Q\n\n    ! Echo info\n    stamp = TimeStamp_String( 20110101, 000000 )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all CN     met fields for ', a )\n\n    !======================================================================\n    ! Cleanup and quit\n    !======================================================================\n\n    ! Convert PHIS from [m2/s2] to [m]\n    State_Met%PHIS = State_Met%PHIS / g0\n\n  END SUBROUTINE FlexGrid_Read_CN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a1\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 1-hr time-averaged (A1) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A1( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                               State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REMARKS:                                                                             .\n!  Special handling for surface precipitation fields:\n!  ---------------------------------------------------------------------------\n!  In GEOS-FP (and in MERRA), the PRECTOT etc. surface precipitation\n!  met fields fields have units of [kg/m2/s].  In all other GEOS\n!  versions, PREACC and PRECON have units of [mm/day].\n!                                                                             .\n!  Therefore, for backwards compatibility with existing code, apply\n!  the following unit conversion to the GEOS-5 PRECTOT and PRECCON\n!  fields:\n!                                                                             .\n!      kg  |    m3    | 86400 s | 1000 mm\n!    ------+----------+---------+--------- = 86400\n!     m2 s |  1000 kg |  day    |   m\n!               ^\n!               |\n!        1 / density of water\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    INTEGER            :: I, J\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Saved scalars\n    INTEGER, SAVE      :: lastDate = -1      ! Stores last YYYYMMDD value\n    INTEGER, SAVE      :: lastTime = -1      ! Stores last hhmmss value\n\n    ! Arrays\n    REAL*4             :: Q(State_Grid%NX,State_Grid%NY) ! Temporary data arrray\n\n    !======================================================================\n    ! Skip if we have already read data for this date & time\n    !======================================================================\n    IF ( YYYYMMDD == lastDate .and. HHMMSS == lastTime ) THEN\n       stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n       WRITE( 6, 20 ) stamp\n 20    FORMAT( '     - FLEXGRID A1 met fields for ', a,  &\n               ' have been read already'                  )\n       RETURN\n    ENDIF\n\n    !======================================================================\n    ! Select the proper time slice\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller  = \"FlexGrid_Read_A1 (flexgrid_read_mod.F90)\"\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 10000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 24 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 24!' )\n       CALL Error_Stop( errMsg, caller )\n    ENDIF\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Read ALBEDO\n    v_name = \"ALBEDO\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%ALBD = Q\n\n    ! Read CLDTOT\n    v_name = \"CLDTOT\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%CLDFRC = Q\n\n    ! Read EFLUX\n    v_name = \"EFLUX\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%EFLUX = Q\n\n    !--------------------------------------------------------------------------\n    ! For now, skip reading EVAP. It's not used in GEOS-Chem. (mps, 9/14/17)\n    !! Read EVAP\n    !v_name = \"EVAP\"\n    !CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    !State_Met%EVAP = Q\n    !--------------------------------------------------------------------------\n\n    ! Read FRSEAICE\n    v_name = \"FRSEAICE\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%FRSEAICE = Q\n\n    ! Read FRSNO\n    v_name = \"FRSNO\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n\n    ! The import FRSNO is fraction of land with snow cover. Convert to\n    ! fraction of grid box with snow cover for storage in State_Met.\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED  )&\n    !$OMP PRIVATE( I, J    )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       State_Met%FRSNOW(I,J) = Q(I,J) * State_Met%FRLAND(I,J)\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !--------------------------------------------------------------------------\n    ! For now, skip reading GRN. It's not used in GEOS-Chem. (mps, 9/14/17)\n    !! Read GRN\n    !v_name = \"GRN\"\n    !CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    !State_Met%GRN = Q\n    !--------------------------------------------------------------------------\n\n    ! Read GWETROOT\n    v_name = \"GWETROOT\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%GWETROOT = Q\n\n    ! Read GWETTOP\n    v_name = \"GWETTOP\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%GWETTOP = Q\n\n    ! Read HFLUX from file\n    v_name = \"HFLUX\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%HFLUX = Q\n\n    ! Read LAI\n    v_name = \"LAI\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%LAI = Q\n\n    !-----------------------------------------------------------------------\n    ! Comment this out for now, this field isn't needed (bmy, 2/2/12)\n    !! Read LWTUP\n    !v_name = \"LWTUP\"\n    !CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    !State_Met%LWTUP = Q\n    !-----------------------------------------------------------------------\n\n    ! Read PARDF\n    v_name = \"PARDF\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PARDF = Q\n\n    ! Read PARDR\n    v_name = \"PARDR\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PARDR = Q\n\n    ! Read PBLH\n    v_name = \"PBLH\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PBLH = Q\n\n    ! Read PRECANV\n    v_name = \"PRECANV\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PRECANV = Q\n\n    ! Read PRECCON\n    v_name = \"PRECCON\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PRECCON = Q\n\n    ! Read PRECLSC\n    v_name = \"PRECLSC\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PRECLSC = Q\n\n    !--------------------------------------------------------------------------\n    ! For now, skip reading PRECSNO. It's not used in GEOS-Chem. (mps, 9/14/17)\n    !! Read PRECSNO\n    !v_name = \"PRECSNO\"\n    !CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    !State_Met%PRECSNO = Q\n    !--------------------------------------------------------------------------\n\n    ! Read PRECTOT\n    v_name = \"PRECTOT\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%PRECTOT = Q\n\n    ! Read QV2M\n    v_name = \"QV2M\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%QV2M = Q\n\n    ! Read SEAICE00\n    v_name = \"SEAICE00\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE00 = Q\n\n    ! Read SEAICE10\n    v_name = \"SEAICE10\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE10 = Q\n\n    ! Read SEAICE20\n    v_name = \"SEAICE20\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE20 = Q\n\n    ! Read SEAICE30\n    v_name = \"SEAICE30\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE30 = Q\n\n    ! Read SEAICE40\n    v_name = \"SEAICE40\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE40 = Q\n\n    ! Read SEAICE50\n    v_name = \"SEAICE50\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE50 = Q\n\n    ! Read SEAICE60\n    v_name = \"SEAICE60\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE60 = Q\n\n    ! Read SEAICE70\n    v_name = \"SEAICE70\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE70 = Q\n\n    ! Read SEAICE80\n    v_name = \"SEAICE80\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE80 = Q\n\n    ! Read SEAICE90\n    v_name = \"SEAICE90\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SEAICE90 = Q\n\n    ! Read SLP\n    v_name = \"SLP\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SLP = Q\n\n    ! Read SNODP\n    v_name = \"SNODP\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SNODP = Q\n\n    ! Read SNOMAS\n    v_name = \"SNOMAS\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SNOMAS = Q\n\n    ! Read SWGDN\n    v_name = \"SWGDN\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%SWGDN  = Q\n\n    ! Read TO3\n    v_name = \"TO3\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%TO3 = Q\n\n    ! Read TROPPT\n    v_name = \"TROPPT\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%TROPP = Q\n\n    ! Read TS\n    ! NOTE: This is now stored in State_Met%TSKIN to denote that it is\n    ! skin temperature.  At one point in the past TS was actually surface\n    ! temperature but GMAO changed it to skin temperature a while back.\n    ! (B. Yantosca, 14 Jul 2025)\n    v_name = \"TS\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%TSKIN = Q\n\n    ! Read T2M\n    ! NOTE: 2m temperature is used as a proxy for surface temperature,\n    ! so we store it in State_Met%TS, which denotes surface temperature.\n    ! (B. Yantosca, 14 Jul 2025)\n    v_name = \"T2M\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%TS = Q\n\n    ! Read U10M\n    v_name = \"U10M\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%U10M = Q\n\n    ! Read USTAR\n    v_name = \"USTAR\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%USTAR = Q\n\n    ! Read V10M\n    v_name = \"V10M\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%V10M = Q\n\n    ! Read Z0M\n    v_name = \"Z0M\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%Z0 = Q\n\n    !======================================================================\n    ! Get fields for soil NOX extension only when needed\n    !======================================================================\n    IF ( Input_Opt%LSOILNOX .and. Input_Opt%UseSoilTemp ) THEN\n\n       ! Read TSOIL1\n       v_name = \"TSOIL1\"\n       CALL Get_Met_2D(Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index)\n       State_Met%TSOIL1 = Q\n\n    ENDIF\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all A1     met fields for ', a )\n\n    !======================================================================\n    ! Cleanup and quit\n    !======================================================================\n\n    ! Convert surface precip fields from [kg/m2/s] --> [mm/day]\n    State_Met%PRECANV = State_Met%PRECANV * 86400d0\n    State_Met%PRECCON = State_Met%PRECCON * 86400d0\n    State_Met%PRECLSC = State_Met%PRECLSC * 86400d0\n    State_Met%PRECTOT = State_Met%PRECTOT * 86400d0\n\n    IF ( TRIM(Input_Opt%MetField) == 'MERRA2'    .or. &\n         TRIM(Input_Opt%MetField) == 'MODELE2.1' .or. & \n         TRIM(Input_Opt%MetField) == 'MODELE2.2'  ) THEN\n       ! Convert pressure quantities from [Pa] -> [hPa]\n       State_Met%SLP     = State_Met%SLP     * 1e-2_fp\n       State_Met%TROPP   = State_Met%TROPP   * 1e-2_fp\n    ENDIF\n\n    ! Save date & time for next iteration\n    lastDate = YYYYMMDD\n    lastTime = HHMMSS\n\n  END SUBROUTINE FlexGrid_Read_A1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a1dyn\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 1-hr time-averaged (A1) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A1dyn( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                  State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REMARKS:\n!  Special handling for surface precipitation fields:\n!  ---------------------------------------------------------------------------\n!  In GEOS-FP (and in MERRA), the PRECTOT etc. surface precipitation\n!  met fields fields have units of [kg/m2/s].  In all other GEOS\n!  versions, PREACC and PRECON have units of [mm/day].\n!                                                                             .\n!  Therefore, for backwards compatibility with existing code, apply\n!  the following unit conversion to the GEOS-5 PRECTOT and PRECCON\n!  fields:\n!                                                                             .\n!      kg  |    m3    | 86400 s | 1000 mm\n!    ------+----------+---------+--------- = 86400\n!     m2 s |  1000 kg |  day    |   m\n!               ^\n!               |\n!        1 / density of water\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Saved scalars\n    INTEGER, SAVE      :: lastDate = -1      ! Stores last YYYYMMDD value\n    INTEGER, SAVE      :: lastTime = -1      ! Stores last hhmmss value\n\n    ! Arrays\n    REAL*4             :: Q(State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! Temporary data arrray\n\n    !======================================================================\n    ! Skip if we have already read data for this date & time\n    !======================================================================\n    IF ( YYYYMMDD == lastDate .and. HHMMSS == lastTime ) THEN\n       stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n       WRITE( 6, 20 ) stamp\n 20    FORMAT( '     - FLEXGRID A1dyn met fields for ', a,  &\n               ' have been read already'                  )\n       RETURN\n    ENDIF\n\n    !======================================================================\n    ! Select the proper time slice\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller  = \"FlexGrid_Read_A1dyn (flexgrid_read_mod.F90)\"\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 10000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 24 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 24!' )\n       CALL Error_Stop( errMsg, caller )\n    ENDIF\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Read U\n    v_name = \"U\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%U = Q\n\n    ! Read V\n    v_name = \"V\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%V = Q\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all A1dyn  met fields for ', a )\n\n\n    ! Save date & time for next iteration\n    lastDate = YYYYMMDD\n    lastTime = HHMMSS\n\n  END SUBROUTINE FlexGrid_Read_A1dyn\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a3\n!\n! !DESCRIPTION: Convenience wrapper for the following routines which read\n!  3-hour time averaged data from disk:\n! \\begin{itemize}\n! \\item FlexGrid\\_Read\\_A3cld\n! \\item FlexGrid\\_Read\\_A3dyn\n! \\item FlexGrid\\_Read\\_A3mstC\n! \\item FlexGrid\\_Read\\_A3mstE\n! \\end{itemize}\n!\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A3( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                               State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    CHARACTER(LEN=16) :: stamp            ! Time and date stamp\n\n    ! Saved scalars\n    INTEGER, SAVE     :: lastDate = -1    ! Stores last YYYYMMDD value\n    INTEGER, SAVE     :: lastTime = -1    ! Stores last hhmmss value\n\n    !======================================================================\n    ! Call individual routines for reading A3 data\n    !======================================================================\n\n    ! Test to see if we have already read this data in\n    IF ( YYYYMMDD == lastDate .and. HHMMSS == lastTime ) THEN\n       stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n       WRITE( 6, 20 ) stamp\n 20    FORMAT( '     - FLEXGRID A3 met fields for ', a,  &\n               ' have been read already'                  )\n       RETURN\n    ENDIF\n\n    ! Save date & time for next iteration\n    lastDate = YYYYMMDD\n    lastTime = HHMMSS\n\n    ! Read all the diffeent A3 files\n    CALL FlexGrid_Read_A3cld ( YYYYMMDD,   HHMMSS,   Input_Opt, &\n                               State_Grid, State_Met )\n    CALL FlexGrid_Read_A3dyn ( YYYYMMDD,   HHMMSS,   Input_Opt, &\n                               State_Grid, State_Met )\n    CALL FlexGrid_Read_A3mstC( YYYYMMDD,   HHMMSS,   Input_Opt, &\n                               State_Grid, State_Met )\n    CALL FlexGrid_Read_A3mstE( YYYYMMDD,   HHMMSS,   Input_Opt, &\n                               State_Grid, State_Met )\n\n    !======================================================================\n    ! Cleanup and quit\n    !======================================================================\n\n    ! Save date & time for next iteration\n    lastDate = YYYYMMDD\n    lastTime = HHMMSS\n\n  END SUBROUTINE FlexGrid_Read_A3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a3cld\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 3-hr time-averaged (A3) data (cloud fields).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A3cld( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                  State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q(State_Grid%NX,State_Grid%NY,State_Grid%NZ)     ! Temporary data arrray\n\n    !======================================================================\n    ! Select the proper time slice\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller  = \"FlexGrid_Read_A3cld (flexgrid_read_mod.F90)\"\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 030000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 8 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n       CALL ERROR_STOP( errMsg, caller )\n    ENDIF\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Read CLOUD\n    v_name = \"CLOUD\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%CLDF = Q\n\n    ! Read OPTDEPTH\n    v_name = \"OPTDEPTH\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%OPTD = Q\n\n    ! Read QI (and set negative or denormal values to zero)\n    v_name = \"QI\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n#ifdef LUO_WETDEP\n    WHERE( Q < 1.0e-30_f4 )\n       Q = 0.0_f4\n    ENDWHERE\n#endif\n    State_Met%QI = Q\n\n    ! Read QL (and set negative or denormal values to zero)\n    v_name = \"QL\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n#ifdef LUO_WETDEP\n    WHERE( Q < 1.0e-30_f4 )\n       Q = 0.0_f4\n    ENDWHERE\n#endif\n    State_Met%QL = Q\n\n    ! Read TAUCLI\n    v_name = \"TAUCLI\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%TAUCLI = Q\n\n    ! Read TAUCLW\n    v_name = \"TAUCLW\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%TAUCLW = Q\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all A3cld  met fields for ', a )\n\n  END SUBROUTINE FlexGrid_Read_A3cld\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a3dyn\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 3-hr time-averaged (A3) data (dynamics fields).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A3dyn( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                  State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q (State_Grid%NX,State_Grid%NY,State_Grid%NZ  )  ! Temporary data arrray\n\n    !======================================================================\n    ! Select the proper time slice\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller  = \"FlexGrid_Read_A3dyn (flexgrid_read_mod.F90)\"\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 030000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 8 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n       CALL ERROR_STOP( errMsg, caller )\n    ENDIF\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Read DTRAIN\n    v_name = \"DTRAIN\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%DTRAIN = Q\n\n    ! Read OMEGA\n    v_name = \"OMEGA\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%OMEGA = Q\n\n    ! Read RH\n    v_name = \"RH\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%RH = Q\n\n    ! 0.125x0.15625 uses A1dyn archive\n    IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n        ! Read U\n        v_name = \"U\"\n        CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n        State_Met%U = Q\n\n        ! Read V\n        v_name = \"V\"\n        CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n        State_Met%V = Q\n\n    ENDIF\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all A3dyn  met fields for ', a )\n\n    !======================================================================\n    ! Unit conversions, diagnostics, cleanup, and quit\n    !======================================================================\n\n    ! Convert RH from [1] to [%]\n    State_Met%RH = State_Met%RH * 100d0\n\n  END SUBROUTINE FlexGrid_Read_A3dyn\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a3mstc\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 3-hr time-averaged (A3) data (moist fields,\n!  saved on level centers).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A3mstC( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                   State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! State Grid object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q (State_Grid%NX,State_Grid%NY,State_Grid%NZ)    ! Temporary data arrray\n\n    !======================================================================\n    ! Select the proper time slice\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller  = \"FlexGrid_Read_A3mstC (flexgrid_read_mod.F90)\"\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 030000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 8 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n       CALL ERROR_STOP( errMsg, caller )\n    ENDIF\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Read DQRCU  from file\n    v_name = \"DQRCU\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%DQRCU = Q\n\n    ! Read DQRLSAN\n    v_name = \"DQRLSAN\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%DQRLSAN = Q\n\n    ! Read REEVAPCN\n    v_name = \"REEVAPCN\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%REEVAPCN = Q\n\n    ! Read  from file\n    v_name = \"REEVAPLS\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index )\n    State_Met%REEVAPLS = Q\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all A3mstC met fields for ', a )\n\n    !======================================================================\n    ! Cleanup and quit\n    !======================================================================\n\n  END SUBROUTINE FlexGrid_Read_A3mstC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_a3mste\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 3-hr time-averaged (A3) data (moist fields,\n!  saved on level edges).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_A3mstE( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                   State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    INTEGER            :: I, J, L            ! Loop indices\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Qe(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1)\n    REAL*4             :: Q2(State_Grid%NX,State_Grid%NY                )\n\n    !======================================================================\n    ! Select the proper time slice\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller  = \"FlexGrid_Read_A3mstE (flexgrid_read_mod.F90)\"\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 030000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 8 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n       CALL ERROR_STOP( errMsg, caller )\n    ENDIF\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Read CMFMC (only in GEOSFP*.nc files)\n    v_name = \"CMFMC\"\n    CALL Get_Met_3De( Input_Opt, State_Grid, Qe, TRIM(v_name), t_index=t_index )\n    State_Met%CMFMC = Qe\n\n    ! Read PFICU\n    v_name = \"PFICU\"\n    CALL Get_Met_3De( Input_Opt, State_Grid, Qe, TRIM(v_name), t_index=t_index )\n    State_Met%PFICU = Qe\n\n    ! Read PFILSAN\n    v_name = \"PFILSAN\"\n    CALL Get_Met_3De( Input_Opt, State_Grid, Qe, TRIM(v_name), t_index=t_index )\n    State_Met%PFILSAN = Qe\n\n    ! Read PFLCU\n    v_name = \"PFLCU\"\n    CALL Get_Met_3De( Input_Opt, State_Grid, Qe, TRIM(v_name), t_index=t_index )\n    State_Met%PFLCU = Qe\n\n    ! Read PLLSAN\n    v_name = \"PFLLSAN\"\n    CALL Get_Met_3De( Input_Opt, State_Grid, Qe, TRIM(v_name), t_index=t_index )\n    State_Met%PFLLSAN = Qe\n\n    !======================================================================\n    ! Get lightning fields from HEMCO when LightNOx extension is on\n    !======================================================================\n    IF ( Input_Opt%DoLightNOx) THEN\n\n       ! Read FLASH_DENS\n       v_name = \"FLASH_DENS\"\n       CALL Get_Met_2D( Input_Opt, State_Grid, Q2, TRIM(v_name) )\n       State_Met%FLASH_DENS = Q2\n\n       ! Read CONV_DEPTH\n       v_name = \"CONV_DEPTH\"\n       CALL Get_Met_2D( Input_Opt, State_Grid, Q2, TRIM(v_name) )\n       State_Met%CONV_DEPTH = Q2\n\n    ELSE\n\n       ! Print message to log file\n       IF ( Input_Opt%amIRoot) THEN\n          Print*, '    - LightNOX extension is off. Skipping FLASH_DENS' // &\n                  ' and CONV_DEPTH fields in FlexGrid_Read_A3mstE.'\n       ENDIF\n\n    ENDIF\n\n    !=================================================================\n    ! Diagnostics, cleanup and quit\n    !=================================================================\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all A3mstE met fields for ', a )\n\n    ! CLDTOPS = highest location of CMFMC in the column (I,J)\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       State_Met%CLDTOPS(I,J) = 1\n       DO L = State_Grid%NZ, 1, -1\n          IF ( State_Met%CMFMC(I,J,L) > 0d0 ) THEN\n             State_Met%CLDTOPS(I,J) = L + 1\n             EXIT\n          ENDIF\n       ENDDO\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE FlexGrid_Read_A3mstE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_I3_1\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 3-hr instantaneous (I3) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_I3_1( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                 State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q2(State_Grid%NX,State_Grid%NY      )         ! 2D temporary data arrray\n    REAL*4             :: Q3(State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! 3D temporary data arrray\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller = 'FlexGrid_Read_I3_1 (flexgrid_read_mod.F90)'\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 030000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 8 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n       CALL Error_Stop( errMsg, caller )\n    ENDIF\n\n    ! Resolution 0.125x0.15625 uses I1dyn archive for PS, SPHU (xlwang, 06/2024)\n    IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n       !-------------------------------------------------\n       ! Read 2D data\n       !-------------------------------------------------\n\n       ! Read PS\n       v_name = \"PS\"\n       CALL Get_Met_2D( Input_Opt, State_Grid, Q2, TRIM(v_name), t_index=t_index )\n       State_Met%PS1_WET = Q2\n\n       !-------------------------------------------------\n       ! Read 3D data\n       !-------------------------------------------------\n\n       !----------------------------------------------------------------\n       ! Prior to 2/3/12:\n       ! For now, skip reading Potential Vorticity (bmy, 2/3/12)\n       !! Read PV\n       !v_name = \"PV\"\n       !CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n       !!Q3 = ABS(1.0e6*Q3) ! PV to PVU\n       !State_Met%PV = Q3\n       !----------------------------------------------------------------\n\n       ! Read SPHU\n       v_name = \"SPHU\"\n       CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n       State_Met%SPHU1 = Q3\n\n    ENDIF\n\n    ! Read T\n    v_name = \"TMPU\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n    State_Met%TMPU1 = Q3\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all I3     met fields for ', a )\n\n    !-------------------------------------------------\n    ! Unit conversions & special handling\n    !-------------------------------------------------\n\n    ! Resolution 0.125x0.15625 uses I1dyn archive for PS, SPHU (xlwang, 06/2024)\n    IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n        WHERE ( State_Met%SPHU1 < 0d0 )\n\n           ! NOTE: Now set negative Q to a small positive #\n           ! instead of zero, so as not to blow up logarithms\n           State_Met%SPHU1 = 1d-32\n\n        ELSEWHERE\n\n           ! Convert GEOS-FP specific humidity from [kg/kg] to [g/kg]\n           State_Met%SPHU1 = State_Met%SPHU1 * 1000d0\n\n        ENDWHERE\n\n        IF ( TRIM(Input_Opt%MetField) == 'MERRA2'    .or. &\n             TRIM(Input_Opt%MetField) == 'MODELE2.1' .or. & \n             TRIM(Input_Opt%MetField) == 'MODELE2.2' ) THEN\n           ! Convert PS1_WET from [Pa] to [hPa]\n           State_Met%PS1_WET = State_Met%PS1_WET * 1e-2_fp\n        ENDIF\n\n        ! Initialize State_Met%SPHU to State_Met%SPHU1.  After all future MET\n        ! field reads (flexgrid_read_i3_2) we will interpolate State_Met%SPHU\n        ! from the values of State_Met vars SPHU1 and SPHU2.\n        State_Met%SPHU = State_Met%SPHU1\n\n    ENDIF\n\n    ! Initialize State_Met%T to State_Met%TMPU1.  After all future MET\n    ! field reads (flexgrid_read_i3_2) we will interpolate State_Met%T\n    ! from the values of State_Met vars TMPU1 and TMPU2.\n    State_Met%T = State_Met%TMPU1\n\n  END SUBROUTINE FlexGrid_Read_I3_1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_I3_2\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 3-hr instantaneous (I3) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_I3_2( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                 State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index                  ! Time index\n    CHARACTER(LEN=16)  :: stamp                    ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name                   ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg                   ! Error message\n    CHARACTER(LEN=255) :: caller                   ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q2(State_Grid%NX,State_Grid%NY      )         ! 2D temporary data arrray\n    REAL*4             :: Q3(State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! 3D temporary data arrray\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller = 'FlexGrid_Read_I3_2 (flexgrid_read_mod.F90)'\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 030000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 8 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n       CALL Error_Stop( errMsg, caller )\n    ENDIF\n\n    ! Resolution 0.125x0.15625 uses I1dyn archive  for PS, SPHU (xlwang, 06/2024)\n    IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n       !-------------------------------------------------\n       ! Read 2D data\n       !-------------------------------------------------\n\n       ! Read PS\n       IF ( HHMMSS == 000000 ) THEN\n          v_name = \"PS_NEXTDAY\"\n       ELSE\n          v_name = \"PS\"\n       ENDIF\n       CALL Get_Met_2D( Input_Opt, State_Grid, Q2, TRIM(v_name), t_index=t_index )\n       State_Met%PS2_WET = Q2\n\n       !-------------------------------------------------\n       ! Read 3D data\n       !-------------------------------------------------\n\n       !----------------------------------------------------------------\n       ! Prior to 2/3/12:\n       ! For now, skip reading Potential Vorticity (bmy, 2/3/12)\n       !! Read PV\n       !IF ( HHMMSS == 000000 ) THEN\n       !   v_name = \"PV_NEXTDAY\"\n       !ELSE\n       !   v_name = \"PV\"\n       !ENDIF\n       !CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n       !!Q3 = ABS(1.0e6*Q3) ! PV to PVU\n       !State_Met%PV = Q3\n       !----------------------------------------------------------------\n\n       ! Read SPHU\n       IF ( HHMMSS == 000000 ) THEN\n          v_name = \"SPHU_NEXTDAY\"\n       ELSE\n          v_name = \"SPHU\"\n       ENDIF\n       CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n       State_Met%SPHU2 = Q3\n\n    ENDIF\n\n    !-------------------------------------------------\n    ! Read 3D data\n    !-------------------------------------------------\n\n    ! Read T\n    IF ( HHMMSS == 000000 ) THEN\n       v_name = \"TMPU_NEXTDAY\"\n    ELSE\n       v_name = \"TMPU\"\n    ENDIF\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n    State_Met%TMPU2 = Q3\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all I3     met fields for ', a )\n\n    !-------------------------------------------------\n    ! Unit conversions & special handling\n    !-------------------------------------------------\n    ! Resolution 0.125x0.15625 uses I1dyn archive for PS, SPHU (xlwang, 06/2024)\n    IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n        WHERE ( State_Met%SPHU2 < 0d0 )\n\n           ! NOTE: Now set negative Q to a small positive #\n           ! instead of zero, so as not to blow up logarithms\n           State_Met%SPHU2 = 1d-32\n\n        ELSEWHERE\n\n           ! Convert specific humidity from [kg/kg] to [g/kg]\n           State_Met%SPHU2 = State_Met%SPHU2 * 1000d0\n\n        ENDWHERE\n\n        IF ( TRIM(Input_Opt%MetField) == 'MERRA2'    .or. &\n             TRIM(Input_Opt%MetField) == 'MODELE2.1' .or. & \n             TRIM(Input_Opt%MetField) == 'MODELE2.2' ) THEN\n           ! Convert PS2_WET from [Pa] to [hPa]\n           State_Met%PS2_WET = State_Met%PS2_WET * 1e-2_fp\n        ENDIF\n\n    ENDIF\n\n  END SUBROUTINE FlexGrid_Read_I3_2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: copy_i3_fields\n!\n! !DESCRIPTION: Subroutine COPY\\_I3\\_FIELDS copies the I-3 fields at the\n!  end of a 3-hr timestep.  The I-3 fields at the end of a given 3-hr timestep\n!  become the fields at the beginning of the next 3-hr timestep.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE COPY_I3_FIELDS( State_Met, State_Grid )\n!\n! !USES:\n!\n      USE State_Met_Mod,        ONLY : MetState\n      USE State_Grid_Mod,       ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n      TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n      TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  13 Apr 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Resolution 0.125x0.15625 uses I1dyn archive for PS, SPHU (xlwang, 06/2024)\n    IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n      State_Met%PS1_WET = State_Met%PS2_WET ! I3 surface pressure    [hPa]\n      State_Met%PS1_DRY = State_Met%PS2_DRY ! I3 surface pressure    [hPa]\n      State_Met%SPHU1   = State_Met%SPHU2   ! I3 specific humidity   [g/kg]\n    ENDIF\n\n    State_Met%TMPU1     = State_Met%TMPU2   ! I3 temperature         [K]\n\n\n      END SUBROUTINE COPY_I3_FIELDS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_I1dyn_1\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 1-hr instantaneous (I1dyn) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_I1dyn_1( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                    State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index            ! Time index\n    CHARACTER(LEN=16)  :: stamp              ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg             ! Error message\n    CHARACTER(LEN=255) :: caller             ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q2(State_Grid%NX,State_Grid%NY      )         ! 2D temporary data arrray\n    REAL*4             :: Q3(State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! 3D temporary data arrray\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller = 'FlexGrid_Read_I1dyn_1 (flexgrid_read_mod.F90)'\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 10000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 24 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 24!' )\n       CALL Error_Stop( errMsg, caller )\n    ENDIF\n\n    !-------------------------------------------------\n    ! Read 2D data\n    !-------------------------------------------------\n\n    ! Read PS\n    v_name = \"PS\"\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q2, TRIM(v_name), t_index=t_index )\n    State_Met%PS1_WET = Q2\n\n    !-------------------------------------------------\n    ! Read 3D data\n    !-------------------------------------------------\n\n    ! Read SPHU\n    v_name = \"SPHU\"\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n    State_Met%SPHU1 = Q3\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all I1dyn     met fields for ', a )\n\n    !-------------------------------------------------\n    ! Unit conversions & special handling\n    !-------------------------------------------------\n    WHERE ( State_Met%SPHU1 < 0d0 )\n\n       ! NOTE: Now set negative Q to a small positive #\n       ! instead of zero, so as not to blow up logarithms\n       State_Met%SPHU1 = 1d-32\n\n    ELSEWHERE\n\n       ! Convert GEOS-FP specific humidity from [kg/kg] to [g/kg]\n       State_Met%SPHU1 = State_Met%SPHU1 * 1000d0\n\n    ENDWHERE\n\n    IF ( TRIM(Input_Opt%MetField) == 'MERRA2'    .or. &\n         TRIM(Input_Opt%MetField) == 'MODELE2.1' .or. & \n         TRIM(Input_Opt%MetField) == 'MODELE2.2' ) THEN\n       ! Convert PS1_WET from [Pa] to [hPa]\n       State_Met%PS1_WET = State_Met%PS1_WET * 1e-2_fp\n    ENDIF\n\n    ! Initialize State_Met%SPHU to State_Met%SPHU1.  After all future MET\n    ! field reads (flexgrid_read_I1dyn_2) we will interpolate State_Met%SPHU\n    ! from the values of State_Met vars SPHU1 and SPHU2.\n    State_Met%SPHU = State_Met%SPHU1\n\n  END SUBROUTINE FlexGrid_Read_I1dyn_1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FlexGrid_Read_I1dyn_2\n!\n! !DESCRIPTION: Routine to read variables and attributes from a NetCDF\n!  met fields file containing 1-hr instantaneous (I1dyn) data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FlexGrid_Read_I1dyn_2( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, &\n                                 State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Get_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: YYYYMMDD   ! GMT date in YYYY/MM/DD format\n    INTEGER,        INTENT(IN)    :: HHMMSS     ! GMT time in hh:mm:ss   format\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: t_index                  ! Time index\n    CHARACTER(LEN=16)  :: stamp                    ! Time and date stamp\n    CHARACTER(LEN=255) :: v_name                   ! netCDF variable name\n    CHARACTER(LEN=255) :: errMsg                   ! Error message\n    CHARACTER(LEN=255) :: caller                   ! Name of this routine\n\n    ! Arrays\n    REAL*4             :: Q2(State_Grid%NX,State_Grid%NY      )         ! 2D temporary data arrray\n    REAL*4             :: Q3(State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! 3D temporary data arrray\n\n    !======================================================================\n    ! Get met fields from HEMCO\n    !======================================================================\n\n    ! Name of this routine (for error printout)\n    caller = 'FlexGrid_Read_I1dyn_2 (flexgrid_read_mod.F90)'\n\n    ! Find the proper time-slice to read from disk\n    t_index = ( HHMMSS / 10000 ) + 1\n\n    ! Stop w/ error if the time index is invalid\n    IF ( t_index < 1 .or. t_index > 24 ) THEN\n       WRITE( errMsg, 100 ) t_index\n 100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 24!' )\n       CALL Error_Stop( errMsg, caller )\n    ENDIF\n\n    !-------------------------------------------------\n    ! Read 2D data\n    !-------------------------------------------------\n\n    ! Read PS\n    IF ( HHMMSS == 000000 ) THEN\n       v_name = \"PS_NEXTDAY\"\n    ELSE\n       v_name = \"PS\"\n    ENDIF\n    CALL Get_Met_2D( Input_Opt, State_Grid, Q2, TRIM(v_name), t_index=t_index )\n    State_Met%PS2_WET = Q2\n\n    !-------------------------------------------------\n    ! Read 3D data\n    !-------------------------------------------------\n\n    ! Read SPHU\n    IF ( HHMMSS == 000000 ) THEN\n       v_name = \"SPHU_NEXTDAY\"\n    ELSE\n       v_name = \"SPHU\"\n    ENDIF\n    CALL Get_Met_3D( Input_Opt, State_Grid, Q3, TRIM(v_name), t_index=t_index )\n    State_Met%SPHU2 = Q3\n\n    ! Echo info\n    stamp = TimeStamp_String( YYYYMMDD, HHMMSS )\n    WRITE( 6, 10 ) stamp\n 10 FORMAT( '     - Found all I1dyn     met fields for ', a )\n\n    !-------------------------------------------------\n    ! Unit conversions & special handling\n    !-------------------------------------------------\n    WHERE ( State_Met%SPHU2 < 0d0 )\n\n       ! NOTE: Now set negative Q to a small positive #\n       ! instead of zero, so as not to blow up logarithms\n       State_Met%SPHU2 = 1d-32\n\n    ELSEWHERE\n\n       ! Convert specific humidity from [kg/kg] to [g/kg]\n       State_Met%SPHU2 = State_Met%SPHU2 * 1000d0\n\n    ENDWHERE\n\n    IF ( TRIM(Input_Opt%MetField) == 'MERRA2'    .or. &\n         TRIM(Input_Opt%MetField) == 'MODELE2.1' .or. & \n         TRIM(Input_Opt%MetField) == 'MODELE2.2' ) THEN\n       ! Convert PS2_WET from [Pa] to [hPa]\n       State_Met%PS2_WET = State_Met%PS2_WET * 1e-2_fp\n    ENDIF\n\n  END SUBROUTINE FlexGrid_Read_I1dyn_2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: copy_I1dyn_fields\n!\n! !DESCRIPTION: Subroutine COPY\\_I1dyn\\_FIELDS copies the I-1 fields at the\n!  end of a 1-hr timestep.  The I-1 fields at the end of a given 1-hr timestep\n!  become the fields at the beginning of the next 1-hr timestep.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE COPY_I1dyn_FIELDS( State_Met )\n!\n! !USES:\n!\n      USE State_Met_Mod,        ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n      TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  13 Apr 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n      State_Met%PS1_WET = State_Met%PS2_WET ! I1dyn surface pressure    [hPa]\n      State_Met%PS1_DRY = State_Met%PS2_DRY ! I1dyn surface pressure    [hPa]\n      State_Met%SPHU1   = State_Met%SPHU2   ! I1dyn specific humidity   [g/kg]\n\n      END SUBROUTINE COPY_I1dyn_FIELDS\n!EOC\nEND MODULE FlexGrid_Read_Mod\n#endif\n"
  },
  {
    "path": "GeosCore/fullchem_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: fullchem_mod.F90\n!\n! !DESCRIPTION: Contines arrays and routines for the GEOS_Chem \"fullchem\"\n!  mechanism, which is implemented in KPP-generated Fortran code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE FullChem_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n#if defined(MPI_LOAD_BALANCE)\n  USE MPI\n  USE, INTRINSIC :: ISO_C_BINDING\n#endif\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Do_FullChem\n  PUBLIC  :: Init_FullChem\n  PUBLIC  :: Cleanup_FullChem\n!\n! !REVISION HISTORY:\n!  14 Dec 2015 - M.S. Long   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Species ID flags (and logicals to denote if species are present)\n  INTEGER               :: id_OH,  id_HO2,  id_O3P,  id_O1D, id_CH4\n  INTEGER               :: id_PCO, id_LCH4, id_NH3,  id_SO4\n  INTEGER               :: id_SALAAL, id_SALCAL, id_SALC, id_SALA\n  INTEGER               :: id_PSO4\n#ifdef TOMAS\n  INTEGER               :: id_NK05, id_NK08, id_NK10, id_NK20\n#endif\n#ifdef MODEL_GEOS\n  INTEGER               :: id_O3\n  INTEGER               :: id_A3O2, id_ATO2, id_B3O2, id_BRO2\n  INTEGER               :: id_ETO2, id_LIMO2, id_MO2, id_PIO2, id_PO2\n  INTEGER               :: id_PRN1, id_R4N1, id_R4O2, id_TRO2, id_XRO2\n  INTEGER               :: id_IHOO1, id_IHOO4, id_IHCOO, id_ICHOO, id_IHPOO1\n  INTEGER               :: id_IHPOO2, id_IHPOO3, id_IEPOXAOO, id_IEPOXBOO\n  INTEGER               :: id_C4HVP1, id_C4HVP2, id_HPALD1OO, id_HPALD2OO\n  INTEGER               :: id_ISOPNOO1, id_ISOPNOO2, id_INO2B, id_INO2D\n  INTEGER               :: id_IDHNBOO, id_IDHNDOO1, id_IDHNDOO2\n  INTEGER               :: id_IHPNBOO, id_IHPNDOO, id_ICNOO, id_IDNOO\n#endif\n#ifdef MODEL_CESM\n  INTEGER               :: id_TSOA0, id_TSOA1, id_TSOA2, id_TSOA3\n  INTEGER               :: id_ASOA1, id_ASOA2, id_ASOA3, id_ASOAN\n  INTEGER               :: id_TSOG0, id_TSOG1, id_TSOG2, id_TSOG3\n  INTEGER               :: id_ASOG1, id_ASOG2, id_ASOG3\n  INTEGER               :: id_NIT, id_SO4s, id_NITs, id_HNO3\n#endif\n  LOGICAL               :: ok_OH, ok_HO2, ok_O1D, ok_O3P\n  LOGICAL               :: Failed2x\n\n  ! Diagnostic flags\n  LOGICAL               :: Do_Diag_OH_HO2_O1D_O3P\n#ifdef MODEL_GEOS\n  LOGICAL               :: Archive_O3concAfterchem\n  LOGICAL               :: Archive_RO2concAfterchem\n#endif\n\n  ! SAVEd scalars\n  INTEGER,  SAVE        :: PrevDay   = -1\n  INTEGER,  SAVE        :: PrevMonth = -1\n\n  ! Arrays\n  INTEGER,  ALLOCATABLE :: PL_Kpp_ID (:      )\n  REAL(f4), ALLOCATABLE :: JvCountDay(:,:,:  )\n  REAL(f4), ALLOCATABLE :: JvCountMon(:,:,:  )\n  REAL(f4), ALLOCATABLE :: JvSumDay  (:,:,:,:)\n  REAL(f4), ALLOCATABLE :: JvSumMon  (:,:,:,:)\n\n#if defined(MPI_LOAD_BALANCE)\n  ! For load balancing implementation\n  INTEGER                :: NCELL_MAX, NCELL_TOTAL\n  INTEGER, ALLOCATABLE   :: Idx_to_IJL(:,:)\n  INTEGER, POINTER       :: next_cell_index\n  INTEGER, POINTER       :: ICNTRL_1D(:,:)\n  INTEGER, POINTER       :: ISTATUS_1D(:,:)\n  INTEGER, POINTER       :: cell_status(:)\n  REAL(KIND=fp), POINTER :: C_1D(:,:)\n  REAL(KIND=fp), POINTER :: RCONST_1D(:,:)\n  REAL(KIND=fp), POINTER :: RCNTRL_1D(:,:)\n  REAL(KIND=fp), POINTER :: RSTATE_1D(:,:)\n\n  ! MPI Shared Memory parameters\n  INTEGER :: disp, ierr, offset\n  INTEGER :: shm_comm, shm_rank, shm_size\n  INTEGER :: nrcntrl, nicntrl, nistatus, nrstate\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: size\n\n  ! Shared memory window handles\n  INTEGER :: win_C_1D, win_RCONST_1D\n  INTEGER :: win_ICNTRL_1D, win_RCNTRL_1D, win_ISTATUS_1D\n  INTEGER :: win_RSTATE_1D, win_next_cell_index, win_cell_status\n\n  ! flat pointers returned by MPI (INTEGER addresses)\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: C_1D_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: RCONST_1D_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: ICNTRL_1D_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: RCNTRL_1D_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: ISTATUS_1D_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: RSTATE_1D_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: cell_status_flat_int\n  INTEGER(KIND=MPI_ADDRESS_KIND) :: next_cell_index_int   ! scalar\n\n  !Temporary C_PTRs (needed for TRANSFER to C_F_POINTER)\n  TYPE(C_PTR) :: C_1D_flat_ptr\n  TYPE(C_PTR) :: RCONST_1D_flat_ptr, ICNTRL_1D_flat_ptr\n  TYPE(C_PTR) :: RCNTRL_1D_flat_ptr, ISTATUS_1D_flat_ptr\n  TYPE(C_PTR) :: RSTATE_1D_flat_ptr, cell_status_flat_ptr\n  TYPE(C_PTR) :: next_cell_index_ptr\n#endif   ! MPI_LOAD_BALANCE\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: do_fullchem\n!\n! !DESCRIPTION: Driver subroutine for the KPP fullchem mechanism.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_FullChem( Input_Opt,  State_Chm, State_Diag,                 &\n                          State_Grid, State_Met, RC                         )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n#ifdef KPP_INTEGRATOR_AUTOREDUCE\n    USE fullchem_AutoReduceFuncs, ONLY : fullchem_AR_KeepHalogensActive\n    USE fullchem_AutoReduceFuncs, ONLY : fullchem_AR_SetKeepActive\n    USE fullchem_AutoReduceFuncs, ONLY : fullchem_AR_UpdateKppDiags\n    USE fullchem_AutoReduceFuncs, ONLY : fullchem_AR_SetIntegratorOptions\n#endif\n    USE fullchem_HetStateFuncs,   ONLY : fullchem_SetStateHet\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_ConvertAlkToEquiv\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_ConvertEquivToAlk\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_HetDropChem\n    USE GcKpp_Monitor,            ONLY : SPC_NAMES, FAM_NAMES, EQN_NAMES\n    USE GcKpp_Parameters\n    USE GcKpp_Integrator,         ONLY : Integrate\n    USE GcKpp_Function\n    USE GcKpp_Global\n    USE GcKpp_Rates,              ONLY : UPDATE_RCONST, RCONST\n    USE GcKpp_Util,               ONLY : Get_OHreactivity\n    USE Input_Opt_Mod,            ONLY : OptInput\n    USE KppSa_Interface_Mod\n    USE Photolysis_Mod,           ONLY : Do_Photolysis, PhotRate_Adj\n    USE PhysConstants,            ONLY : AVO, AIRMW\n    USE PRESSURE_MOD\n    USE Species_Mod,              ONLY : Species\n    USE State_Chm_Mod,            ONLY : ChmState\n    USE State_Chm_Mod,            ONLY : Ind_\n    USE State_Diag_Mod,           ONLY : DgnState\n    USE State_Diag_Mod,           ONLY : DgnMap\n    USE State_Grid_Mod,           ONLY : GrdState\n    USE State_Met_Mod,            ONLY : MetState\n    USE TIME_MOD,                 ONLY : GET_TS_CHEM\n    USE TIME_MOD,                 ONLY : Get_Day\n    USE TIME_MOD,                 ONLY : Get_Month\n    USE TIME_MOD,                 ONLY : Get_Year\n    USE Timers_Mod\n    USE UnitConv_Mod\n    USE UCX_MOD,                  ONLY : CALC_STRAT_AER\n    USE UCX_MOD,                  ONLY : SO4_PHOTFRAC\n    USE UCX_MOD,                  ONLY : UCX_NOX\n    USE UCX_MOD,                  ONLY : UCX_H2SO4PHOT\n#ifdef TOMAS\n    USE TOMAS_MOD,                ONLY : H2SO4_RATE\n    USE TOMAS_MOD,                ONLY : PSO4AQ_RATE\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure\n!\n! !REVISION HISTORY:\n!  14 Dec 2015 - M.S. Long   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: IsLocNoon,  Size_Res,  Failed2x, doSuppress\n    INTEGER            :: I,          J,         L,        N\n    INTEGER            :: NA,         F,         SpcID,    KppID\n    INTEGER            :: P,          MONTH,     YEAR,     Day\n    INTEGER            :: IERR,       S,         Thread\n    INTEGER            :: errorCount, previous_units\n    REAL(fp)           :: SO4_FRAC,   SR,        LWC\n    REAL(dp)           :: KPPH_before_integrate\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg,     thisLoc\n\n    ! SAVEd scalars\n    LOGICAL,  SAVE     :: FIRSTCHEM = .TRUE.\n    INTEGER,  SAVE     :: CH4_YEAR  = -1\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n    TYPE(DgnMap),  POINTER :: mapData => NULL()\n\n    ! Arrays\n    INTEGER    :: ICNTRL (20)\n    INTEGER    :: ISTATUS(20)\n    REAL(dp)   :: RCNTRL (20)\n    REAL(dp)   :: RSTATE (20)\n    REAL(dp)   :: C_before_integrate(NSPEC)\n    REAL(dp)   :: local_RCONST(NREACT)\n\n    ! Fields needed for CO in the carbon simulation\n    REAL(fp)   :: LCH4, PCO_TOT, PCO_CH4, PCO_NMVOC\n\n    ! Grid box integration time diagnostic\n    REAL(fp) :: TimeStart, TimeEnd\n\n    ! OH reactivity and KPP reaction rate diagnostics\n    REAL(fp) :: OHreact\n    REAL(dp) :: Vloc(NVAR),     Aout(NREACT)\n\n#ifdef MODEL_CLASSIC\n#ifndef NO_OMP\n    INTEGER, EXTERNAL  :: OMP_GET_THREAD_NUM\n#endif\n#endif\n\n#ifdef MPI_LOAD_BALANCE\n    ! Local copy of all necessary KPP inputs\n    INTEGER    :: IJL_to_Idx(State_Grid%NX, State_Grid%NY, State_Grid%NZ)\n\n    ! All the KPP inputs remapped to a 1-D array\n    INTEGER    :: NCELL, NCELL_local, I_CELL\n#endif\n\n#ifdef MODEL_GEOS\n    REAL(f4) :: NOxTau, NOxConc, NOx_weight, NOx_tau_weighted\n    REAL(f4) :: TROP_NOx_Tau\n    REAL(f4) :: TROPv_NOx_tau(State_Grid%NX,State_Grid%NY)\n    REAL(f4) :: TROPv_NOx_mass(State_Grid%NX,State_Grid%NY)\n#endif\n\n#ifdef MODEL_CESM\n    ! Sink rate for artificial UT/LS sink\n    REAL(dp) :: ScaleCESMLossRate\n#endif\n\n!\n! !DEFINED PARAMETERS\n!\n    ! Defines the slot in which the H-value from the KPP integrator is stored\n    ! This should be the same as the value of Nhnew in gckpp_Integrator.F90\n    ! Define this locally in order to break a compile-time dependency.\n    !    -- Bob Yantosca (05 May 2022)\n    INTEGER, PARAMETER :: Nhnew = 3\n\n    ! Add Nhexit, the last timestep length -- Obin Sturm (30 April 2024)\n    INTEGER, PARAMETER :: Nhexit = 2\n\n    ! Suppress printing out KPP error messages after this many errors occur\n    INTEGER, PARAMETER :: INTEGRATE_FAIL_TOGGLE = 20\n   \n#if defined(MPI_LOAD_BALANCE)\n    INTEGER :: origin_val, fetched_value\n    INTEGER(KIND=MPI_ADDRESS_KIND) :: disp\n#endif\n\n    !========================================================================\n    ! Do_FullChem begins here!\n    ! NOTE: FlexChem timer is started in DO_CHEMISTRY (the calling routine)\n    !========================================================================\n\n    ! Initialize\n    RC         =  GC_SUCCESS\n    ErrMsg     =  ''\n    ThisLoc    =  ' -> at Do_FullChem (in module GeosCore/FullChem_mod.F90)'\n    SpcInfo    => NULL()\n    Day        =  Get_Day()    ! Current day\n    Month      =  Get_Month()  ! Current month\n    Year       =  Get_Year()   ! Current year\n    Thread     =  1\n    errorCount =  0\n    Failed2x   = .FALSE.\n    doSuppress = .FALSE.\n\n    ! Print information the first time that DO_FULLCHEM is called\n    CALL PrintFirstTimeInfo( Input_Opt, State_Chm, FirstChem )\n\n    ! Zero diagnostic archival arrays to make sure that we don't have any\n    ! leftover values from the last timestep near the top of the chemgrid\n    IF (State_Diag%Archive_Loss           ) State_Diag%Loss           = 0.0_f4\n    IF (State_Diag%Archive_Prod           ) State_Diag%Prod           = 0.0_f4\n    IF (State_Diag%Archive_Jval           ) State_Diag%Jval           = 0.0_f4\n    IF (State_Diag%Archive_JvalO3O1D      ) State_Diag%JvalO3O1D      = 0.0_f4\n    IF (State_Diag%Archive_JvalO3O3P      ) State_Diag%JvalO3O3P      = 0.0_f4\n    IF (State_Diag%Archive_JNoon          ) State_Diag%JNoon          = 0.0_f4\n    IF (State_Diag%Archive_ProdCOfromCH4  ) State_Diag%ProdCOfromCH4  = 0.0_f4\n    IF (State_Diag%Archive_ProdCOfromNMVOC) State_Diag%ProdCOfromNMVOC= 0.0_f4\n    IF (State_Diag%Archive_OHreactivity   ) State_Diag%OHreactivity   = 0.0_f4\n    IF (State_Diag%Archive_RxnRate        ) State_Diag%RxnRate        = 0.0_f4\n    IF (State_Diag%Archive_RxnConst       ) State_Diag%RxnConst       = 0.0_f4\n    IF (State_Diag%Archive_SatDiagnRxnRate) State_Diag%SatDiagnRxnRate= 0.0_f4\n    IF (State_Diag%Archive_KppDiags) THEN\n       IF (State_Diag%Archive_KppIntCounts) State_Diag%KppIntCounts   = 0.0_f4\n       IF (State_Diag%Archive_KppJacCounts) State_Diag%KppJacCounts   = 0.0_f4\n       IF (State_Diag%Archive_KppTotSteps ) State_Diag%KppTotSteps    = 0.0_f4\n       IF (State_Diag%Archive_KppAccSteps ) State_Diag%KppAccSteps    = 0.0_f4\n       IF (State_Diag%Archive_KppRejSteps ) State_Diag%KppRejSteps    = 0.0_f4\n       IF (State_Diag%Archive_KppLuDecomps) State_Diag%KppLuDecomps   = 0.0_f4\n       IF (State_Diag%Archive_KppSubsts   ) State_Diag%KppSubsts      = 0.0_f4\n       IF (State_Diag%Archive_KppSmDecomps) State_Diag%KppSmDecomps   = 0.0_f4\n       IF (State_Diag%Archive_KppAutoReducerNVAR)                            &\n                                      State_Diag%KppAutoReducerNVAR   = 0.0_f4\n       IF (State_Diag%Archive_KppcNONZERO)  State_Diag%KppcNONZERO    = 0.0_f4\n       IF (State_Diag%Archive_KppNegatives) State_Diag%KppNegatives   = 0.0_f4\n       IF (State_Diag%Archive_KppNegatives0) State_Diag%KppNegatives0 = 0.0_f4\n    ENDIF\n\n    ! Also zero satellite diagnostic archival arrays\n    IF ( State_Diag%Archive_SatDiagnLoss ) State_Diag%SatDiagnLoss    = 0.0_f4\n    IF ( State_Diag%Archive_SatDiagnProd ) State_Diag%SatDiagnProd    = 0.0_f4\n    IF ( State_Diag%Archive_SatDiagnJval ) THEN\n       State_Diag%SatDiagnJval = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_SatDiagnJvalO3O1D ) THEN\n       State_Diag%SatDiagnJvalO3O1D = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_SatDiagnJvalO3O3P ) THEN\n       State_Diag%SatDiagnJvalO3O3P = 0.0_f4\n    ENDIF\n\n    ! Keep track of the boxes where it is local noon in the JNoonFrac\n    ! diagnostic. When time-averaged, this will be the fraction of time\n    ! that local noon occurred at a grid box. (bmy, 4/2/19)\n    IF ( State_Diag%Archive_JNoonFrac ) THEN\n       WHERE( State_Met%IsLocalNoon )\n          State_Diag%JNoonFrac = 1.0_f4\n       ELSEWHERE\n          State_Diag%JNoonFrac = 0.0_f4\n       ENDWHERE\n    ENDIF\n\n#if defined( MODEL_GEOS )\n    IF ( State_Diag%Archive_NoxTau     ) State_Diag%NoxTau(:,:,:) = 0.0_f4\n    IF ( State_Diag%Archive_TropNOxTau ) THEN\n       State_Diag%TropNOxTau(:,:) = 0.0_f4\n       TROPv_NOx_mass(:,:) = 0.0_f4\n       TROPv_NOx_tau(:,:)  = 0.0_f4\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Zero out certain species\n    ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n    !========================================================================\n    DO N = 1, State_Chm%nSpecies\n\n       ! Get info about this species from the species database\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! isoprene oxidation counter species\n       IF ( TRIM( SpcInfo%Name ) == 'LISOPOH' .or. &\n            TRIM( SpcInfo%Name ) == 'LISOPNO3' ) THEN\n          State_Chm%Species(N)%Conc(:,:,:) = 0.0_fp\n       ENDIF\n\n       ! aromatic oxidation counter species\n       IF ( Input_Opt%LSOA .or. Input_Opt%LSVPOA ) THEN\n          SELECT CASE ( TRIM( SpcInfo%Name ) )\n             CASE ( 'LBRO2H', 'LBRO2N', 'LTRO2H', 'LTRO2N', &\n                    'LXRO2H', 'LXRO2N', 'LNRO2H', 'LNRO2N' )\n                State_Chm%Species(N)%Conc(:,:,:) = 0.0_fp\n          END SELECT\n       ENDIF\n\n       ! Sulfate gas/cloud prod diagnostic species\n       IF ( TRIM( SpcInfo%Name ) == 'PH2SO4' .or. &\n            TRIM( SpcInfo%Name ) == 'PSO4AQ' ) THEN\n          State_Chm%Species(N)%Conc(:,:,:) = 0.0_fp\n       ENDIF\n\n       ! Free pointer\n       SpcInfo => NULL()\n\n    ENDDO\n\n    !========================================================================\n    ! Convert species to [molec/cm3] (ewl, 8/16/16)\n    !========================================================================\n\n    ! Halt gas-phase chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    ! Convert units of all species to molec/cm3 for KPP\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = MOLECULES_SPECIES_PER_CM3,                         &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error!'\n       CALL GC_Error( ErrMsg, RC, 'fullchem_mod.F90')\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Call photolysis routine to compute J-Values\n    !========================================================================\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Photolysis\", RC )\n    ENDIF\n\n    ! Compute J-values\n    IF ( Input_Opt%Do_Photolysis ) THEN\n       CALL Do_Photolysis( Input_Opt, State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Do_Photolysis\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### Do_FullChem: after computing J-values' )\n    ENDIF\n\n    ! Start gas-phase chem and photolysis timers again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End  ( \"=> Photolysis\", RC )\n       CALL Timer_Start( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n    ! Init diagnostics\n    IF ( ASSOCIATED(State_Diag%KppError) ) THEN\n       State_Diag%KppError(:,:,:) = 0.0\n    ENDIF\n#endif\n\n    !=======================================================================\n    ! Archive concentrations before chemistry\n    ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n    !=======================================================================\n    IF ( State_Diag%Archive_ConcBeforeChem ) THEN\n       ! Point to mapping obj specific to ConcBeforeChem diagnostic collection\n       mapData => State_Diag%Map_ConcBeforeChem\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( N, S   )\n       DO S = 1, mapData%nSlots\n          N = mapData%slot2id(S)\n          State_Diag%ConcBeforeChem(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:)\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! Setup for the KPP standalone interface (Obin Sturm, Bob Yantosca)\n    !\n    ! NOTE: These routines return immediately if the KPP standalone\n    ! interface has been disabled (or if the *.yml file is missing.)\n    !=======================================================================\n\n    ! Get the (I,J) grid box indices for active cells that are on this CPU\n    ! so that we can print the full chemical state to text files.\n    !\n    ! For computational efficency, only do this on the first call, as\n    ! this information does not change with time.\n    IF ( FirstChem ) THEN\n       CALL KppSa_Check_Domain( RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Check_Domain\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Are we within the time window for archiving model state?\n    CALL KppSa_Check_Time( RC )\n\n    !========================================================================\n    ! Set up integration convergence conditions and timesteps\n    ! (cf. M. J. Evans)\n    !\n    ! NOTE: ATOL and RTOL are defined in gckpp_Global.F90 so they\n    ! are probably only used as INTENT(IN).  Therefore, it is\n    ! probably safe to define them here outside the OpenMP loop.\n    ! (bmy, 3/28/16)\n    !\n    ! ICNTRL and RCNTRL now need to be updated within the TimeLoop for\n    ! the Rosenbrock_AutoReduce solver (hplin, 4/13/22)\n    !========================================================================\n    DT   = GET_TS_CHEM()          ! Chemistry timestep [s]\n    ATOL = State_Chm%KPP_AbsTol   ! Absolute tolerance\n    RTOL = State_Chm%KPP_RelTol   ! Relative tolerance\n\n#if defined(MPI_LOAD_BALANCE)\n    ! For load balancing\n    NCELL_local = offset\n\n    ! Indexing\n    IJL_to_Idx = 0\n    Idx_to_IJL = 0\n\n    C_1D(:,offset+1:offset+NCELL_MAX)       = 0.0_fp\n    RCONST_1D(:,offset+1:offset+NCELL_MAX)  = 0.0_fp\n    ICNTRL_1D(:,offset+1:offset+NCELL_MAX)  = 0\n    RCNTRL_1D(:,offset+1:offset+NCELL_MAX)  = 0.0_fp\n    ISTATUS_1D(:,offset+1:offset+NCELL_MAX) = 0\n    RSTATE_1D(:,offset+1:offset+NCELL_MAX)  = 0.0_fp\n    cell_status(offset+1:offset+NCELL_MAX)  = 1\n#endif\n\n    !=======================================================================\n    ! %%%%% SOLVE CHEMISTRY -- This is the main KPP solver loop %%%%%\n    !=======================================================================\n100 format('No. of function calls:', i6, /,                                 &\n           'No. of jacobian calls:', i6, /,                                 &\n           'No. of steps:         ', i6, /,                                 &\n           'No. of accepted steps:', i6, /,                                 &\n           'No. of rejected steps ', i6, /,                                 &\n           '       (except at very beginning)',          /,                 &\n           'No. of LU decompositions:             ', i6, /,                 &\n           'No. of forward/backward substitutions:', i6, /,                 &\n           'No. of singular matrix decompositions:', i6, /,                 &\n            /,                                                              &\n           'Texit, the time corresponding to the      ',        /,          &\n           '       computed Y upon return:            ', f11.4, /,          &\n           'Hexit, last accepted step before exit:    ', f11.4, /,          &\n           'Hnew, last predicted step (not yet taken):', f11.4 )\n\n    !------------------------------------------------------------------------\n    ! Always consider halogens as \"fast\" species for auto-reduce\n    !------------------------------------------------------------------------\n#ifdef KPP_INTEGRATOR_AUTOREDUCE\n    IF ( FIRSTCHEM .and. Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       IF ( Input_Opt%AutoReduce_Is_KeepActive ) THEN\n          CALL fullchem_AR_KeepHalogensActive( Input_Opt%amIRoot )\n       ENDIF\n    ENDIF\n#endif\n\n    !========================================================================\n    ! MAIN LOOP: Compute reaction rates and call chemical solver\n    !\n    ! For OpenMP builds:\n    ! Variables not listed here are held THREADPRIVATE in gckpp_Global.F90\n    ! !$OMP COLLAPSE(3) vectorizes the loop and !$OMP DYNAMIC(24) sends\n    ! 24 boxes at a time to each core... then when that core is finished,\n    ! it gets another chunk of 24 boxes.  This should lead to better\n    ! load balancing, and will spread the sunrise/sunset boxes across\n    ! more cores.\n    !========================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,        J,        L,       N                           )&\n    !$OMP PRIVATE( ICNTRL,   C_before_integrate                             )&\n    !$OMP PRIVATE( KPPH_before_integrate,       local_RCONST                )&\n    !$OMP PRIVATE( SO4_FRAC, IERR,     RCNTRL,  ISTATUS,   RSTATE           )&\n    !$OMP PRIVATE( SpcID,    KppID,    F,       P,         Vloc             )&\n    !$OMP PRIVATE( Aout,     Thread,   RC,      S,         LCH4             )&\n    !$OMP PRIVATE( OHreact,  PCO_TOT,  PCO_CH4, PCO_NMVOC, SR               )&\n    !$OMP PRIVATE( SIZE_RES, LWC                                            )&\n#ifdef MODEL_GEOS\n    !$OMP PRIVATE( NOxTau,     NOxConc, NOx_weight, NOx_tau_weighted        )&\n#endif\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )&\n    !$OMP REDUCTION( +:errorCount                                           )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip to the end of the loop if we have failed integration twice\n       IF ( Failed2x ) CYCLE\n\n       !=====================================================================\n       ! Initialize private loop variables for each (I,J,L)\n       ! Other private variables will be assigned in Set_Kpp_GridBox_Values\n       !=====================================================================\n       IERR      = 0                        ! KPP success or failure flag\n       ICNTRL    = 0                        ! Rosenbrock input (integer)\n       RCNTRL    = 0.0_fp                   ! Rosenbrock input (real)\n       SO4_FRAC  = 0.0_fp                   ! Frac of SO4 avail for photolysis\n       P         = 0                        ! GEOS-Chem photolyis species ID\n       LCH4      = 0.0_fp                   ! P/L diag: Methane loss rate\n       PCO_TOT   = 0.0_fp                   ! P/L diag: Total P(CO)\n       PCO_CH4   = 0.0_fp                   ! P/L diag: P(CO) from CH4\n       PCO_NMVOC = 0.0_fp                   ! P/L diag: P(CO) from NMVOC\n       SR        = 0.0_fp                   ! Enhancement to O2 catalysis rate\n       LWC       = 0.0_fp                   ! Liquid water content\n       SIZE_RES  = .FALSE.                  ! Size resolved calculation?\n       C         = 0.0_dp                   ! KPP species conc's\n       RCONST    = 0.0_dp                   ! KPP rate constants\n       PHOTOL    = 0.0_dp                   ! Photolysis array for KPP\n       K_CLD     = 0.0_dp                   ! Sulfur in-cloud rxn het rates\n       K_MT      = 0.0_dp                   ! Sulfur sea salt rxn het rates\n       CFACTOR   = 1.0_dp                   ! KPP conversion factor\n       SRO3      = 0.0_dp                   ! Enhanced sulfate production of\n       SRHOBr    = 0.0_dp                   !  O3, HOBr, HCl in size-resolved\n       SRHOCl    = 0.0_dp                   !  cloud droplets\n#ifdef MODEL_CLASSIC\n#ifndef NO_OMP\n       Thread    = OMP_GET_THREAD_NUM() + 1 ! OpenMP thread number\n#endif\n#endif\n\n#ifndef MPI_LOAD_BALANCE\n       ! Rosenbrock output\n       ISTATUS = 0.0_dp\n       RSTATE  = 0.0_dp\n#endif\n\n#ifdef KPP_INTEGRATOR_AUTOREDUCE\n       ! Per discussions for Lin et al., force keepActive throughout the\n       ! atmosphere if keepActive option is enabled. (hplin, 2/9/22)\n       CALL fullchem_AR_SetKeepActive( option=.TRUE. )\n#endif\n\n       ! Check if the current grid cell in this loop should have its\n       ! full chemical state printed (concentrations, rates, constants)\n       ! for use with the KPP Standalone (psturm, 03/22/24)\n       CALL KppSa_Check_ActiveCell( I, J, L )\n\n       ! Start measuring KPP-related routine timing for this grid box\n       IF ( State_Diag%Archive_KppTime ) THEN\n          call cpu_time(TimeStart)\n       ENDIF\n\n       !=====================================================================\n       ! Get photolysis rates (daytime only)\n       !\n       ! NOTE: The ordering of the photolysis reactions here is\n       ! the order in the Fast-J definition file FJX_j2j.dat.\n       ! I've assumed that these are the same as in the text files\n       ! but this may have been changed.  This needs to be checked\n       ! through more thoroughly -- M. Long (3/28/16)\n       !\n       ! ALSO NOTE: We moved this section above the test to see if grid\n       ! box (I,J,L) is in the chemistry grid.  This will ensure that\n       ! J-value diagnostics are defined for all levels in the column.\n       ! This modification was validated by a geosfp_4x5_standard\n       ! difference test. (bmy, 1/18/18)\n       !\n       ! Update SUNCOSmid threshold from 0 to cos(98 degrees) since\n       ! fast-jx allows for SZA down to 98 degrees. This is important in\n       ! the stratosphere-mesosphere where sunlight still illuminates at\n       ! high altitudes if the sun is below the horizon at the surface\n       ! (update submitted by E. Fleming (NASA), 10/11/2018)\n       !=====================================================================\n       IF ( State_Met%SUNCOSmid(I,J) > -0.1391731e+0_fp ) THEN\n\n          ! Only proceed if doing photolysis\n          IF ( Input_Opt%Do_Photolysis ) THEN\n\n             ! Get the fraction of H2SO4 that is available for photolysis\n             ! (this is only valid for UCX-enabled mechanisms)\n             SO4_FRAC = SO4_PHOTFRAC( I, J, L, State_Chm )\n\n             ! Adjust certain photolysis rates:\n             ! (1) H2SO4 + hv -> SO2 + OH + OH   (UCX-based mechanisms)\n             ! (2) O3    + hv -> O2  + O         (UCX-based mechanisms)\n             ! (2) O3    + hv -> OH  + OH        (trop-only mechanisms)\n             CALL PHOTRATE_ADJ( Input_Opt, State_Chm,  State_Diag, State_Met,&\n                                I,         J,          L,          SO4_FRAC, &\n                                IERR )\n\n             ! Loop over the FAST-JX photolysis species\n             DO N = 1, State_Chm%Phot%nMaxPhotRxns\n\n                ! Copy photolysis rate from FAST_JX into KPP PHOTOL array\n                PHOTOL(N) = State_Chm%Phot%ZPJ(L,N,I,J)\n\n                !============================================================\n                ! HISTORY (aka netCDF diagnostics)\n                !\n                ! Instantaneous photolysis rates [s-1] (aka J-values)\n                ! and noontime photolysis rates [s-1]\n                !\n                !    NOTE: Attach diagnostics here instead of in module\n                !    fast_jx_mod.F90 so that we can get the adjusted photolysis\n                !    rates (output from routne PHOTRATE_ADJ above).\n                !\n                ! The mapping between the GEOS-Chem photolysis species and\n                ! the FAST-JX photolysis species is contained in the lookup\n                ! table in input file FJX_j2j.dat.\n\n                ! Some GEOS-Chem photolysis species may have multiple\n                ! branches for photolysis reactions.  These will be\n                ! represented by multiple entries in the FJX_j2j.dat\n                ! lookup table.\n                !\n                !    NOTE: For convenience, we have stored the GEOS-Chem\n                !    photolysis species index (range: 1..State_Chm%nPhotol)\n                !    for each of the FAST-JX photolysis species (range;\n                !    1..State_Chm%Phot%nMaxPhotRxns) in the GC_PHOTO_ID array\n                !\n                ! TODO: Abstract some of this to a subroutine,\n                !       to simplify DO_FULLCHEM\n                !============================================================\n\n                ! GC photolysis species index\n                P = State_Chm%Phot%GC_Photo_Id(N)\n\n                ! If this FAST_JX photolysis species maps to a valid\n                ! GEOS-Chem photolysis species (for this simulation)...\n                IF ( P > 0 .and. P <= State_Chm%nPhotol ) THEN\n\n                   ! Archive the instantaneous photolysis rate\n                   ! (summing over all reaction branches)\n                   IF ( State_Diag%Archive_Jval ) THEN\n                      S = State_Diag%Map_Jval%id2slot(P)\n                      IF ( S > 0 ) THEN\n                         State_Diag%Jval(I,J,L,S) =                          &\n                         State_Diag%Jval(I,J,L,S) + PHOTOL(N)\n                      ENDIF\n                   ENDIF\n\n                   ! Satellite diagnostics\n                   ! Archive the instantaneous photolysis rate\n                   ! (summing over all reaction branches)\n                   IF ( State_Diag%Archive_SatDiagnJval ) THEN\n                      S = State_Diag%Map_SatDiagnJval%id2slot(P)\n                      IF ( S > 0 ) THEN\n                         State_Diag%SatDiagnJval(I,J,L,S) =                  &\n                         State_Diag%SatDiagnJval(I,J,L,S) + PHOTOL(N)\n                      ENDIF\n                   ENDIF\n\n                   ! Archive the noontime photolysis rate\n                   ! (summing over all reaction branches)\n                   IF ( State_Met%IsLocalNoon(I,J) ) THEN\n                      IF ( State_Diag%Archive_JNoon ) THEN\n                         S = State_Diag%Map_JNoon%id2slot(P)\n                         IF ( S > 0 ) THEN\n                            State_Diag%JNoon(I,J,L,S) =                      &\n                            State_Diag%JNoon(I,J,L,S) + PHOTOL(N)\n                         ENDIF\n                      ENDIF\n                   ENDIF\n\n                ELSE IF ( P == State_Chm%nPhotol+1 ) THEN\n\n                   ! J(O3_O1D).  This used to be stored as the nPhotol+1st\n                   ! diagnostic in Jval, but needed to be broken off\n                   ! to facilitate cleaner diagnostic indexing (bmy, 6/3/20)\n                   IF ( State_Diag%Archive_JvalO3O1D ) THEN\n                      State_Diag%JvalO3O1D(I,J,L) =                          &\n                      State_Diag%JvalO3O1D(I,J,L) + PHOTOL(N)\n                   ENDIF\n\n                   ! J(O3_O1D) for satellite diagnostics\n                   IF ( State_Diag%Archive_SatDiagnJvalO3O1D ) THEN\n                      State_Diag%SatDiagnJvalO3O1D(I,J,L) =                  &\n                      State_Diag%SatDiagnJvalO3O1D(I,J,L) + PHOTOL(N)\n                   ENDIF\n\n                ELSE IF ( P == State_Chm%nPhotol+2 ) THEN\n\n                   ! J(O3_O3P).  This used to be stored as the nPhotol+2nd\n                   ! diagnostic in Jval, but needed to be broken off\n                   ! to facilitate cleaner diagnostic indexing (bmy, 6/3/20)\n                   IF ( State_Diag%Archive_JvalO3O3P ) THEN\n                      State_Diag%JvalO3O3P(I,J,L) =                          &\n                      State_Diag%JvalO3O3P(I,J,L) + PHOTOL(N)\n                   ENDIF\n\n                   ! J(O3_O3P) for satellite diagnostics\n                   IF ( State_Diag%Archive_SatDiagnJvalO3O3P ) THEN\n                      State_Diag%SatDiagnJvalO3O3P(I,J,L) =                  &\n                      State_Diag%SatDiagnJvalO3O3P(I,J,L) + PHOTOL(N)\n                   ENDIF\n\n                ENDIF\n             ENDDO\n          ENDIF\n\n       ENDIF\n\n#if defined( MODEL_CESM )\n       !=====================================================================\n       ! Unphysical fix: Photolyze soluble aerosol tracers\n       ! This removes unphysical values of soluble tracers in the UT/LS due\n       ! to decoupling of convection and wet scavenging in CESM dynamics.\n       !\n       ! This process has to be done before InChemGrid as it is supposed to\n       ! be active everywhere, especially the stratosphere.\n       ! (hplin, 5/30/23)\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !=====================================================================\n\n       IF ( Input_Opt%correctConvUTLS .and. L .ge. State_Met%PBL_TOP_L(I,J) ) THEN\n\n           ! We operate directly on [molec/cm3] species concentrations in State_Chm,\n           ! because they have not been copied to C() in KPP yet. But, we can use\n           ! PHOTOL(11) which is J-NO2, and scale to create the artificial sink.\n           ! This is a consistent handling based off the MOZART-TS1 mechanism\n           ! in Emmons et al., 2020 JAMES.\n           ScaleCESMLossRate = MAX(0.0_dp, 1 - PHOTOL(11) * .0004_dp * DT)\n\n           State_Chm%Species(id_TSOA0)%Conc(I,J,L) = State_Chm%Species(id_TSOA0)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOA1)%Conc(I,J,L) = State_Chm%Species(id_TSOA1)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOA2)%Conc(I,J,L) = State_Chm%Species(id_TSOA2)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOA3)%Conc(I,J,L) = State_Chm%Species(id_TSOA3)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOA1)%Conc(I,J,L) = State_Chm%Species(id_ASOA1)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOA2)%Conc(I,J,L) = State_Chm%Species(id_ASOA2)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOA3)%Conc(I,J,L) = State_Chm%Species(id_ASOA3)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOAN)%Conc(I,J,L) = State_Chm%Species(id_ASOAN)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOG0)%Conc(I,J,L) = State_Chm%Species(id_TSOG0)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOG1)%Conc(I,J,L) = State_Chm%Species(id_TSOG1)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOG2)%Conc(I,J,L) = State_Chm%Species(id_TSOG2)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_TSOG3)%Conc(I,J,L) = State_Chm%Species(id_TSOG3)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOG1)%Conc(I,J,L) = State_Chm%Species(id_ASOG1)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOG2)%Conc(I,J,L) = State_Chm%Species(id_ASOG2)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_ASOG3)%Conc(I,J,L) = State_Chm%Species(id_ASOG3)%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_NIT  )%Conc(I,J,L) = State_Chm%Species(id_NIT  )%Conc(I,J,L) * ScaleCESMLossRate\n           State_Chm%Species(id_NITs )%Conc(I,J,L) = State_Chm%Species(id_NITs )%Conc(I,J,L) * ScaleCESMLossRate\n\n           ! Don't apply this to sulfate as it is not applied in CAM-chem either and will affect the SO4 budget.\n           !State_Chm%Species(id_SO4  )%Conc(I,J,L) = State_Chm%Species(id_SO4  )%Conc(I,J,L) * ScaleCESMLossRate\n           !State_Chm%Species(id_SO4s )%Conc(I,J,L) = State_Chm%Species(id_SO4s )%Conc(I,J,L) * ScaleCESMLossRate\n\n        ENDIF\n\n#endif  ! MODEL_CESM\n\n       !=====================================================================\n       ! Test if we need to do the chemistry for box (I,J,L),\n       ! otherwise move onto the next box.\n       !=====================================================================\n\n       ! If we are not in the troposphere don't do the chemistry!\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       ! Skipping buffer zone (lzh, 08/10/2014)\n       IF ( State_Grid%NestedGrid ) THEN\n          IF ( J <=                 State_Grid%SouthBuffer ) CYCLE\n          IF ( J >  State_Grid%NY - State_Grid%NorthBuffer ) CYCLE\n          IF ( I <=                 State_Grid%EastBuffer  ) CYCLE\n          IF ( I >  State_Grid%NX - State_Grid%WestBuffer  ) CYCLE\n       ENDIF\n\n       !=====================================================================\n       ! Initialize the KPP \"C\" vector of species concentrations [molec/cm3]\n       !=====================================================================\n       DO N = 1, NSPEC\n          SpcID = State_Chm%Map_KppSpc(N)\n          C(N)  = 0.0_dp\n          IF ( SpcId > 0 ) C(N) = State_Chm%Species(SpcID)%Conc(I,J,L)\n       ENDDO\n\n       !=====================================================================\n       ! CHEMISTRY MECHANISM INITIALIZATION (#1)\n       !\n       ! Populate KPP global variables and arrays in gckpp_global.F90\n       !\n       ! NOTE: This has to be done before Set_Sulfur_Chem_Rates, so that\n       ! the NUMDEN and SR_TEMP KPP variables will be populated first.\n       ! Otherwise this can lead to differences in output that are evident\n       ! when running with different numbers of OpenMP cores.\n       ! See https://github.com/geoschem/geos-chem/issues/1157\n       !    -- Bob Yantosca (08 Mar 2022)\n       !=====================================================================\n\n       ! Copy values into the various KPP global variables\n       CALL Set_Kpp_GridBox_Values( I          = I,                          &\n                                    J          = J,                          &\n                                    L          = L,                          &\n                                    Input_Opt  = Input_Opt,                  &\n                                    State_Chm  = State_Chm,                  &\n                                    State_Grid = State_Grid,                 &\n                                    State_Met  = State_Met,                  &\n                                    RC         = RC                         )\n\n       !=====================================================================\n       ! CHEMISTRY MECHANISM INITIALIZATION (#2)\n       !\n       ! Update reaction rates [1/s] for sulfur chemistry in cloud and on\n       ! seasalt.  These will be passed to the KPP chemical solver.\n       !\n       ! NOTE: This has to be done before fullchem_SetStateHet so that\n       ! State_Chm%HSO3_aq and State_Chm%SO3_aq will be populated first.\n       ! These are copied into State_Het%HSO3_aq and State_Het%SO3_aq.\n       ! See https://github.com/geoschem/geos-chem/issues/1157\n       !    -- Bob Yantosca (08 Mar 2022)\n       !=====================================================================\n\n       ! Compute sulfur chemistry reaction rates [1/s]\n       ! If size_res = T, we'll call fullchem_HetDropChem below.\n       CALL Set_Sulfur_Chem_Rates( I          = I,                           &\n                                   J          = J,                           &\n                                   L          = L,                           &\n                                   Input_Opt  = Input_Opt,                   &\n                                   State_Chm  = State_Chm,                   &\n                                   State_Diag = State_Diag,                  &\n                                   State_Grid = State_Grid,                  &\n                                   State_Met  = State_Met,                   &\n                                   size_res   = size_res,                    &\n                                   RC         = RC                          )\n\n       !=====================================================================\n       ! CHEMISTRY MECHANISM INITIALIZATION (#3)\n       !\n       ! Populate the various fields of the State_Het object.\n       !\n       ! NOTE: This has to be done after fullchem_SetStateHet so that\n       ! State_Chm%HSO3_aq and State_Chm%SO3_aq will be populated first.\n       ! These are copied into State_Het%HSO3_aq and State_Het%SO3_aq.\n       ! See https://github.com/geoschem/geos-chem/issues/1157\n       !    -- Bob Yantosca (08 Mar 2022)\n       !=====================================================================\n\n       ! Populate fields of the State_Het object\n       CALL fullchem_SetStateHet( I         = I,                             &\n                                  J         = J,                             &\n                                  L         = L,                             &\n                                  id_SALA   = id_SALA,                       &\n                                  id_SALAAL = id_SALAAL,                     &\n                                  id_SALC   = id_SALC,                       &\n                                  id_SALCAL = id_SALCAL,                     &\n                                  Input_Opt = Input_Opt,                     &\n                                  State_Chm = State_Chm,                     &\n                                  State_Met = State_Met,                     &\n                                  H         = State_Het,                     &\n                                  RC        = RC                            )\n\n       !=====================================================================\n       ! CHEMISTRY MECHANISM INITIALIZATION (#5)\n       !\n       ! Call Het_Drop_Chem (formerly located in sulfate_mod.F90) to\n       ! estimate the in-cloud sulfate production rate in heterogeneous\n       ! cloud droplets based on the Yuen et al., 1996 parameterization.\n       ! Code by Becky Alexander (2011) with updates by Mike Long and Bob\n       ! Yantosca (2021).\n       !\n       ! We will only call Het_Drop_Chem if:\n       ! (1) It is at least 0.01% cloudy\n       ! (2) We are doing a size-resolved computation\n       ! (3) The grid box is over water\n       ! (4) The temperature is above -5C\n       ! (5) Liquid water content is nonzero\n       !=====================================================================\n       IF ( State_Met%CLDF(I,J,L) > 1.0e-4_fp ) THEN\n\n          ! Liquid water content (same formula from the old sulfate_mod.F90)\n          LWC = ( State_Met%QL(I,J,L) * State_Met%AIRDEN(I,J,L)              &\n              *   1.0e-3_fp           / State_Met%CLDF(I,J,L)               )\n\n\n          ! Eexecute fullchem_HetDropChem if criteria are satisfied\n          ! NOTE: skip if LWC is very small, which will blow up equations!\n          IF ( ( size_res                                           )  .and. &\n               ( State_Met%IsWater(I,J)                             )  .and. &\n               ( TEMP                    > 268.15_fp                )  .and. &\n               ( LWC                     > 1.0e-20_fp               ) ) THEN\n\n             CALL fullchem_HetDropChem( I         = I,                       &\n                                        J         = J,                       &\n                                        L         = L,                       &\n                                        Input_Opt = Input_Opt,               &\n                                        State_Met = State_Met,               &\n                                        State_Chm = State_Chm               )\n          ENDIF\n\n       ENDIF\n\n       !=====================================================================\n       ! Prepare arrays\n       !=====================================================================\n\n       ! Zero out dummy species index in KPP\n       DO F = 1, NFAM\n          KppID = PL_Kpp_Id(F)\n          IF ( KppID > 0 ) C(KppID) = 0.0_dp\n       ENDDO\n\n       !=====================================================================\n       ! Update reaction rates\n       !=====================================================================\n\n       ! Update the array of rate constants\n       CALL Update_RCONST()\n\n       !=====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive KPP reaction rates [molec cm-3 s-1]\n       ! See gckpp_Monitor.F90 for a list of chemical reactions\n       !\n       ! NOTE: In KPP 2.5.0+, VAR and FIX are now private to the integrator\n       ! and point to C.  Therefore, pass C(1:NVAR) instead of VAR and\n       ! C(NVAR+1:NSPEC) instead of FIX to routine FUN.\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !=====================================================================\n       IF ( State_Diag%Archive_RxnRate                                  .or. &\n            State_Diag%Archive_SatDiagnRxnRate                        ) THEN\n  \n          ! Get equation rates (Aout)\n          CALL Fun( V       = C(1:NVAR),                                     &\n                    F       = C(NVAR+1:NSPEC),                               &\n                    RCT     = RCONST,                                        &\n                    Vdot    = Vloc,                                          &\n                    Aout    = Aout                                          )\n\n          ! Archive the RxnRate diagnostic collection\n          IF ( State_Diag%Archive_RxnRate ) THEN\n             DO S = 1, State_Diag%Map_RxnRate%nSlots\n                N = State_Diag%Map_RxnRate%slot2Id(S)\n                State_Diag%RxnRate(I,J,L,S) = Aout(N)\n             ENDDO\n          ENDIF\n\n          ! Archive the SatDiagnRxnRate diagnostic collection\n          IF ( State_Diag%Archive_SatDiagnRxnRate ) THEN\n             DO S = 1, State_Diag%Map_SatDiagnRxnRate%nSlots\n                N = State_Diag%Map_SatDiagnRxnRate%slot2Id(S)\n                State_Diag%SatDiagnRxnRate(I,J,L,S) = Aout(N)\n             ENDDO\n          ENDIF\n       ENDIF\n\n       ! Archive KPP reaction rate constants (RCONST). The units vary.\n       ! They are already updated in Update_RCONST, and do not require\n       ! a call of Fun(). (hplin, 3/28/23)\n       IF ( State_Diag%Archive_RxnConst ) THEN\n\n          DO S = 1, State_Diag%Map_RxnConst%nSlots\n             N = State_Diag%Map_RxnConst%slot2Id(S)\n             State_Diag%RxnConst(I,J,L,S) = RCONST(N)\n          ENDDO\n\n       ENDIF\n\n#ifdef KPP_INTEGRATOR_AUTOREDUCE\n       !=====================================================================\n       ! Set options for the KPP integrator in vectors ICNTRL and RCNTRL\n       ! This now needs to be done within the parallel loop\n       !=====================================================================\n       CALL fullchem_AR_SetIntegratorOptions( Input_Opt, State_Chm,          &\n                                              State_Met, FirstChem,          &\n                                              I,         J,         L,       &\n                                              ICNTRL,    RCNTRL             )\n#endif\n\n#ifndef MPI_LOAD_BALANCE\n       !=====================================================================\n       ! Integrate the box forwards (if not using MPI load balancing)\n       !=====================================================================\n\n       ! Store concentrations before the call to \"Integrate\".  This will\n       ! let us reset concentrations before calling \"Integrate\" a 2nd time.\n       C_before_integrate = C\n\n       ! Do the same for the KPP initial timestep\n       ! Save local rate constants too\n       KPPH_before_integrate = State_Chm%KPPHvalue(I,J,L)\n       local_RCONST          = RCONST\n\n       ! Call the KPP integrator\n       ! NOTE: Some integrators (like LSODE) will overwrite the TIN value\n       ! upon exit.  To prevent this, pass 0.0, DT as the 1st 2 arguments.\n       CALL Integrate( 0.0_dp, DT, ICNTRL, RCNTRL, ISTATUS, RSTATE, IERR )\n\n       ! Print grid box indices to screen if integrate failed\n       IF ( IERR < 0 ) THEN\n\n          ! Turn off error output after a certain limit is reached\n          IF ( .not. doSuppress ) THEN\n             WRITE( 6, * ) '### INTEGRATE RETURNED ERROR AT: ', I, J, L\n             errorCount = errorCount + 1\n             IF ( errorCount > INTEGRATE_FAIL_TOGGLE ) THEN\n                WRITE( 6, '(a)' ) &\n                   '### Further error output has been switched off'\n                doSuppress = .TRUE.\n             ENDIF\n          ENDIF\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n          ! Keep track of number of error boxes\n          IF ( State_Diag%Archive_KppError ) THEN\n             State_Diag%KppError(I,J,L) = State_Diag%KppError(I,J,L) + 1.0\n          ENDIF\n#endif\n       ENDIF\n\n#if defined( MODEL_GEOS )\n       ! Mark integration as erroneous if negative concentrations so that\n       ! it will be repeated below (cakelle2, 2023/10/26)\n       IF ( IERR >= 0 .AND. Input_Opt%KppCheckNegatives >= 0 ) THEN\n          IF ( ( Input_Opt%KppCheckNegatives==0 .AND. &\n               State_Met%InStratMeso(I,J,L) ) .OR. &\n               ( L > (  State_Grid%NZ - Input_Opt%KppCheckNegatives) ) ) THEN\n             IF ( ANY(C < 0.0_dp) ) THEN\n                IERR = -999\n                ! Include negative concentration boxes within error box\n                ! diagnostic\n                IF ( State_Diag%Archive_KppError ) THEN\n                   State_Diag%KppError(I,J,L) = &\n                        State_Diag%KppError(I,J,L) + 1.0\n                ENDIF\n             ENDIF\n          ENDIF\n       ENDIF\n#endif\n\n       !=====================================================================\n       ! HISTORY: Archive KPP solver diagnostics\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !=====================================================================\n       IF ( State_Diag%Archive_KppDiags ) THEN\n\n          ! Check for negative concentrations after first integration\n          IF ( State_Diag%Archive_KppNegatives0 ) THEN\n             State_Diag%KppNegatives0(I,J,L) = REAL( COUNT( C < 0.0_dp ), KIND=4 )\n          ENDIF\n          \n          ! # of integrator calls\n          IF ( State_Diag%Archive_KppIntCounts ) THEN\n             State_Diag%KppIntCounts(I,J,L) = ISTATUS(1)\n          ENDIF\n\n          ! # of times Jacobian was constructed\n          IF ( State_Diag%Archive_KppJacCounts ) THEN\n             State_Diag%KppJacCounts(I,J,L) = ISTATUS(2)\n          ENDIF\n\n          ! # of internal timesteps\n          IF ( State_Diag%Archive_KppTotSteps ) THEN\n             State_Diag%KppTotSteps(I,J,L) = ISTATUS(3)\n          ENDIF\n\n          ! # of accepted internal timesteps\n          IF ( State_Diag%Archive_KppAccSteps ) THEN\n             State_Diag%KppAccSteps(I,J,L) = ISTATUS(4)\n          ENDIF\n\n          ! # of rejected internal timesteps\n          IF ( State_Diag%Archive_KppRejSteps ) THEN\n             State_Diag%KppRejSteps(I,J,L) = ISTATUS(5)\n          ENDIF\n\n          ! # of LU-decompositions\n          IF ( State_Diag%Archive_KppLuDecomps ) THEN\n             State_Diag%KppLuDecomps(I,J,L) = ISTATUS(6)\n          ENDIF\n\n          ! # of forward and backwards substitutions\n          IF ( State_Diag%Archive_KppSubsts ) THEN\n             State_Diag%KppSubsts(I,J,L) = ISTATUS(7)\n          ENDIF\n\n          ! # of singular-matrix decompositions\n          IF ( State_Diag%Archive_KppSmDecomps ) THEN\n             State_Diag%KppSmDecomps(I,J,L) = ISTATUS(8)\n          ENDIF\n\n#ifdef KPP_INTEGRATOR_AUTOREDUCE\n          ! Update autoreduce solver statistics\n          ! (only if the autoreduction is turned on)\n          IF ( Input_Opt%Use_AutoReduce ) THEN\n             CALL fullchem_AR_UpdateKppDiags( I, J, L, RSTATE, State_Diag )\n          ENDIF\n#endif\n       ENDIF\n\n       !=====================================================================\n       ! Try another time if it failed\n       !=====================================================================\n       IF ( IERR < 0 ) THEN\n\n          ! Zero the first time step (Hstart).  Also reset C with\n          ! concentrations prior to the 1st call to \"Integrate\".\n          RCNTRL(3) = 0.0_dp\n          C         = C_before_integrate\n\n#if defined( MODEL_GEOS )\n          ! In GEOS also inflate the error tolerances (cakelle2, 2023/10/26)\n          ATOL = 1.0e-2_dp * Input_Opt%KppTolScale\n          RTOL = 1.0e-2_dp * Input_Opt%KppTolScale\n#endif\n\n          ! Disable auto-reduce solver for the second iteration for safety\n          IF ( Input_Opt%Use_AutoReduce ) THEN\n             RCNTRL(12) = -1.0_dp ! without using ICNTRL\n          ENDIF\n\n          ! Update rates again\n          CALL Update_RCONST()\n\n          ! Call the integrator\n          ! NOTE: Some integrators (like LSODE) will overwrite the TIN value\n          ! upon exit.  To prevent this, pass 0.0, DT as the 1st 2 arguments.\n          CALL Integrate( 0.0_dp, DT, ICNTRL, RCNTRL, ISTATUS, RSTATE, IERR )\n\n          !==================================================================\n          ! HISTORY: Archive KPP solver diagnostics\n          ! This time, add to the existing value\n          !\n          ! !TODO: Abstract this into a separate routine\n          !==================================================================\n          IF ( State_Diag%Archive_KppDiags ) THEN\n\n             ! # of integrator calls\n             IF ( State_Diag%Archive_KppIntCounts ) THEN\n                State_Diag%KppIntCounts(I,J,L) =                             &\n                State_Diag%KppIntCounts(I,J,L) + ISTATUS(1)\n             ENDIF\n\n             ! # of times Jacobian was constructed\n             IF ( State_Diag%Archive_KppJacCounts ) THEN\n                State_Diag%KppJacCounts(I,J,L) =                             &\n                State_Diag%KppJacCounts(I,J,L) + ISTATUS(2)\n             ENDIF\n\n             ! # of internal timesteps\n             IF ( State_Diag%Archive_KppTotSteps ) THEN\n                State_Diag%KppTotSteps(I,J,L) =                              &\n                State_Diag%KppTotSteps(I,J,L) + ISTATUS(3)\n             ENDIF\n\n             ! # of accepted internal timesteps\n             IF ( State_Diag%Archive_KppAccSteps ) THEN\n                State_Diag%KppAccSteps(I,J,L) =                              &\n                State_Diag%KppAccSteps(I,J,L) + ISTATUS(4)\n             ENDIF\n\n             ! # of rejected internal timesteps\n             IF ( State_Diag%Archive_KppRejSteps ) THEN\n                State_Diag%KppRejSteps(I,J,L) =                              &\n                State_Diag%KppRejSteps(I,J,L) + ISTATUS(5)\n             ENDIF\n\n             ! # of LU-decompositions\n             IF ( State_Diag%Archive_KppLuDecomps ) THEN\n                State_Diag%KppLuDecomps(I,J,L) =                             &\n                State_Diag%KppLuDecomps(I,J,L) + ISTATUS(6)\n             ENDIF\n\n             ! # of forward and backwards substitutions\n             IF ( State_Diag%Archive_KppSubsts ) THEN\n                State_Diag%KppSubsts(I,J,L) =                                &\n                State_Diag%KppSubsts(I,J,L) + ISTATUS(7)\n             ENDIF\n\n             ! # of singular-matrix decompositions\n!             IF ( State_Diag%Archive_KppSmDecomps ) THEN\n!                State_Diag%KppSmDecomps(I,J,L) =                             &\n!                State_Diag%KppSmDecomps(I,J,L) + ISTATUS(8)\n!             ENDIF\n          ENDIF\n\n          !==================================================================\n          ! Exit upon the second failure\n          !==================================================================\n          IF ( IERR < 0 ) THEN\n\n             ! Print error message\n             WRITE(6,     '(a   )' ) '## INTEGRATE FAILED TWICE !!! '\n             WRITE(ERRMSG,'(a,i3)' ) 'Integrator error code :', IERR\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n             IF ( Input_Opt%KppStop ) THEN\n                CALL ERROR_STOP(ERRMSG, 'INTEGRATE_KPP')\n             ELSE\n                ! Revert to concentrations prior to 1st call to \"Integrate\"\n                C = C_before_integrate\n             ENDIF\n\n             ! Keep track of error boxes\n             IF ( State_Diag%Archive_KppError ) THEN\n                State_Diag%KppError(I,J,L) = State_Diag%KppError(I,J,L) + 1.0\n             ENDIF\n#else\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             ! Make sure only one thread at a time executes this block\n             !$OMP CRITICAL\n             !\n             ! Set a flag to break out of loop gracefully\n             ! NOTE: You can set a GDB breakpoint here to examine the error\n             Failed2x = .TRUE.\n\n             ! Print concentrations at failure grid box\n             PRINT*, REPEAT( '#', 79 )\n             PRINT*, '### KPP DEBUG OUTPUT!'\n             PRINT*, '### Species concentrations at problem box ', I, J, L\n             PRINT*, REPEAT( '#', 79 )\n             DO N = 1, NSPEC\n                PRINT*, C(N), TRIM( ADJUSTL( SPC_NAMES(N) ) )\n             ENDDO\n\n             ! Print rate constants at failure grid box\n             PRINT*, REPEAT( '#', 79 )\n             PRINT*, '### KPP DEBUG OUTPUT!'\n             PRINT*, '### Reaction rates at problem box ', I, J, L\n             PRINT*, REPEAT( '#', 79 )\n             DO N = 1, NREACT\n                PRINT*, RCONST(N), TRIM( ADJUSTL( EQN_NAMES(N) ) )\n             ENDDO\n             !\n             !$OMP END CRITICAL\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n             ! Start skipping to end of loop upon 2 failures in a row\n             CYCLE\n#endif\n          ENDIF\n\n       ENDIF\n\n       !=====================================================================\n       ! Continue upon successful return...\n       !=====================================================================\n\n       ! Revert Alkalinity (only when using sulfur chemistry in KPP)\n       IF ( .not. State_Chm%Do_SulfateMod_SeaSalt ) THEN\n          CALL fullchem_ConvertEquivToAlk()\n       ENDIF\n\n       ! Save Hnew (the last predicted but not taken step) from the 3rd slot\n       ! of RSTATE into State_Chm so that it can be written to the restart\n       ! file.  For simulations that are broken into multiple stages,\n       ! Hstart will be initialized to the value of Hnew from the restart\n       ! file at startup (see above).\n       State_Chm%KPPHvalue(I,J,L) = RSTATE(Nhnew)\n\n       ! Save cpu time spent for bulk of KPP-related routines for \n       ! History archival (hplin, 11/8/21)\n       IF ( State_Diag%Archive_KppTime ) THEN\n          call cpu_time(TimeEnd)\n          State_Diag%KppTime(I,J,L) = TimeEnd - TimeStart\n       ENDIF\n\n       ! Write chemical state to file for the kpp standalone interface\n       ! No external logic needed, this subroutine exits early if the\n       ! chemical state should not be printed (psturm, 03/23/24)\n       CALL KppSa_Write_Samples(                                             &\n            I            = I,                                                &\n            J            = J,                                                &\n            L            = L,                                                &\n            initC        = C_before_integrate,                               &\n            localRCONST  = local_RCONST,                                     &\n            initHvalue   = KPPH_before_integrate,                            &\n            exitHvalue   = RSTATE(Nhexit),                                   &\n            ICNTRL       = ICNTRL,                                           &\n            RCNTRL       = RCNTRL,                                           &\n            State_Grid   = State_Grid,                                       &\n            State_Chm    = State_Chm,                                        &\n            State_Met    = State_Met,                                        &\n            Input_Opt    = Input_Opt,                                        &\n            KPP_TotSteps = ISTATUS(3),                                       &\n            RC           = RC                                               )\n\n       !=====================================================================\n       ! Check we have no negative values and copy the concentrations\n       ! calculated from the C array back into State_Chm%Species%Conc\n       !=====================================================================\n\n       ! Loop over KPP species\n       DO N = 1, NSPEC\n\n          ! GEOS-Chem species ID\n          SpcID = State_Chm%Map_KppSpc(N)\n\n          ! Skip if this is not a GEOS-Chem species\n          IF ( SpcID <= 0 ) CYCLE\n\n          ! Scan for negatives\n          IF ( State_Diag%Archive_KppNegatives ) THEN\n             IF ( C(N) < 0.0_dp ) THEN \n                State_Diag%KppNegatives(I,J,L) = &\n                     State_Diag%KppNegatives(I,J,L) + 1.0_f4\n             ENDIF\n          ENDIF\n\n          ! Set negative concentrations to zero\n          C(N) = MAX( C(N), 0.0_dp )\n\n          ! Copy concentrations back into State_Chm%Species\n          State_Chm%Species(SpcID)%Conc(I,J,L) = REAL( C(N), kind=fp )\n\n       ENDDO\n\n#ifdef TOMAS\n       !-----------------------------------------------------------------\n       ! FOR TOMAS MICROPHYSICS:\n       !\n       ! Obtain P/L with a unit [kg S] for tracing\n       ! gas-phase sulfur species production (SO2, SO4, MSA)\n       ! (win, 8/4/09)\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !-----------------------------------------------------------------\n\n       ! Calculate H2SO4 production rate [kg s-1] in each\n       ! time step (win, 8/4/09)\n       H2SO4_RATE(I,J,L) = C(ind_PH2SO4) / AVO * 98.e-3_fp * &\n                           State_Met%AIRVOL(I,J,L)    * &\n                           1.0e+6_fp / DT  ! kg s-1 box-1\n\n       IF ( H2SO4_RATE(I,J,L) < 0.0d0) THEN\n          write(*,*) \"H2SO4_RATE negative in fullchem_mod.F90!!\", &\n               I, J, L, \"was:\", H2SO4_RATE(I,J,L), \"  setting to 0.0d0\"\n          H2SO4_RATE(I,J,L) = 0.0d0\n       ENDIF\n\n       PSO4AQ_RATE(I,J,L) = C(ind_PSO4AQ) / AVO * 98.e-3_fp * &\n                            State_Met%AIRVOL(I,J,L)    * &\n                            1.0e+6_fp ! kg per timestep box-1\n\n       IF ( PSO4AQ_RATE(I,J,L) < 0.0d0) THEN\n          write(*,*) \"PSO4AQ_RATE negative in fullchem_mod.F90\", &\n               I, J, L, \"was:\", PSO4AQ_RATE(I,J,L), \"  setting to 0.0d0\"\n          PSO4AQ_RATE(I,J,L) = 0.0d0\n       ENDIF\n#endif  ! TOMAS\n\n#ifdef MODEL_CESM\n       !---------------------------------------------------------------------\n       ! Calculate H2SO4 production rate for coupling to CESM \n       ! (interface to MAM4 nucleation)\n       !---------------------------------------------------------------------\n\n       ! mol/mol = molec cm-3 * g * mol(Air)-1 * kg g-1 * m-3 cm3 /     &\n       !           (molec mol-1 * kg m-3) = mol/molAir\n       State_Chm%H2SO4_PRDR(I,J,L) = C(id_PSO4) * AIRMW * 1e-3_fp &\n            * 1.0e+6_fp / (AVO * State_Met%AIRDEN(I,J,L))\n\n       IF ( State_Chm%H2SO4_PRDR(I,J,L) < 0.0d0) THEN\n          write(*,*) \"H2SO4_PRDR negative in fullchem_mod.F90!!\", &\n               I, J, L, \"was:\", State_Chm%H2SO4_PRDR(I,J,L),      &\n               \"  setting to 0.0d0\"\n          State_Chm%H2SO4_PRDR(I,J,L) = 0.0d0\n       ENDIF\n#endif  ! MODEL_CESM\n\n#ifdef MODEL_GEOS\n       !--------------------------------------------------------------------\n       ! Archive NOx lifetime [h]\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_NoxTau .OR. &\n            State_Diag%Archive_TropNOxTau ) THEN\n          CALL Fun( V       = C(1:NVAR),                                     &\n                    F       = C(NVAR+1:NSPEC),                               &\n                    RCT     = RCONST,                                        &\n                    Vdot    = Vloc,                                          &\n                    Aout    = Aout                                          )\n          NOxTau = Vloc(ind_NO) + Vloc(ind_NO2) + Vloc(ind_NO3)         &\n                 + 2.*Vloc(ind_N2O5) + Vloc(ind_ClNO2) + Vloc(ind_HNO2) &\n                 + Vloc(ind_HNO4)\n          NOxConc = C(ind_NO) + C(ind_NO2) + C(ind_NO3) + 2.*C(ind_N2O5)     &\n                  + C(ind_ClNO2) + C(ind_HNO2) + C(ind_HNO4)\n          ! NOx chemical lifetime per grid cell\n          IF ( State_Diag%Archive_NoxTau ) THEN\n             NoxTau = ( NOxConc / (-1.0_f4*NOxTau) ) / 3600.0_f4\n             IF ( NoxTau > 0.0_f4 ) THEN\n                State_Diag%NOxTau(I,J,L) = &\n                     min(1.0e10_f4,max(1.0e-10_f4,NOxTau))\n             ELSE\n                State_Diag%NOxTau(I,J,L) = &\n                     max(-1.0e10_f4,min(-1.0e-10_f4,NOxTau))\n             ENDIF\n          ENDIF\n          ! NOx chemical lifetime per trop. column\n          IF ( State_Diag%Archive_TropNOxTau ) THEN\n             NOx_weight = ( NOxConc )*State_Met%AIRDEN(I,J,L) *  &\n                  State_Met%DELP_DRY(I,J,L)\n             NOx_tau_weighted = &\n                  ( NOxConc / ( -1.0_f4*NOxTau*3600.0_f4 ) ) * NOx_weight\n             IF ( ABS(NOx_tau_weighted) < 1.0e8 ) THEN\n               NOx_tau_weighted = ( NINT(NOx_tau_weighted)*1.0e6 )*1.0e-6_f4\n             ELSE\n                IF ( NOx_tau_weighted > 0.0 ) THEN\n                   NOx_tau_weighted = 1.0e8\n                ELSE\n                   NOx_tau_weighted = -1.0e8\n                ENDIF\n             ENDIF\n             IF ( State_Met%InTroposphere(I,J,L) ) THEN\n               TROPv_NOx_mass(I,J) = TROPv_NOx_mass(I,J) + NOx_weight\n               TROPv_NOx_tau(I,J)  = TROPv_NOx_tau(I,J) + NOx_tau_weighted\n             ENDIF\n          ENDIF\n       ENDIF\n#endif  ! MODEL_GEOS\n\n       !====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Prod and loss of families or species [molec/cm3/s]\n       !\n       ! NOTE: KppId is the KPP ID # for each of the prod and loss\n       ! diagnostic species.  This is the value used to index the\n       ! KPP \"C\" array (in module gckpp_Global.F90).\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !====================================================================\n\n       ! Chemical loss of species or families [molec/cm3/s]\n       IF ( State_Diag%Archive_Loss ) THEN\n          DO S = 1, State_Diag%Map_Loss%nSlots\n             KppId = State_Diag%Map_Loss%slot2Id(S)\n             State_Diag%Loss(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Chemical production of species or families [molec/cm3/s]\n       IF ( State_Diag%Archive_Prod ) THEN\n          DO S = 1, State_Diag%Map_Prod%nSlots\n             KppID = State_Diag%Map_Prod%slot2Id(S)\n             State_Diag%Prod(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic: Chemical loss [molec/cm3/s]\n       IF ( State_Diag%Archive_SatDiagnLoss ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnLoss%nSlots\n             KppId = State_Diag%Map_SatDiagnLoss%slot2Id(S)\n             State_Diag%SatDiagnLoss(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic: Chemical production [molec/cm3/s]\n       IF ( State_Diag%Archive_SatDiagnProd ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnProd%nSlots\n             KppID = State_Diag%Map_SatDiagnProd%slot2Id(S)\n             State_Diag%SatDiagnProd(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Archive prod/loss fields for CO in the carbon simulation\n       ! [molec/cm3/s]\n       ! (In practice, we only need to do this from benchmark simulations)\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_ProdCOfromCH4     .or.    &\n            State_Diag%Archive_ProdCOfromNMVOC ) THEN\n\n          ! Total production of CO\n          PCO_TOT   = C(id_PCO) / DT\n\n          ! Loss of CO from CH4\n          LCH4      = C(id_LCH4) / DT\n\n          ! P(CO)_CH4 is LCH4. Cap so that it is never greater\n          ! than total P(CO) to prevent negative P(CO)_NMVOC.\n          PCO_CH4   = MIN( LCH4, PCO_TOT )\n\n          ! P(CO) from NMVOC is the remaining P(CO)\n          PCO_NMVOC = PCO_TOT - PCO_CH4\n\n          ! Archive P(CO) from CH4 for CO in carbon simulations\n          IF ( State_Diag%Archive_ProdCOfromCH4 ) THEN\n             State_Diag%ProdCOfromCH4(I,J,L) = PCO_CH4\n          ENDIF\n\n          ! Archive P(CO) from NMVOC for CO in carbon simulations\n          IF ( State_Diag%Archive_ProdCOfromNMVOC ) THEN\n             State_Diag%ProdCOfromNMVOC(I,J,L) = PCO_NMVOC\n          ENDIF\n\n       ENDIF\n\n       !====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Write out OH reactivity.  The OH reactivity is defined here as the\n       ! inverse of its life-time. In a crude ad-hoc approach, manually add\n       ! all OH reactants (ckeller, 9/20/2017)\n       !====================================================================\n       IF ( State_Diag%Archive_OHreactivity           .or.  &\n            State_Diag%Archive_SatDiagnOHreactivity ) THEN\n\n          ! Archive OH reactivity diagnostic\n          CALL Get_OHreactivity ( C, RCONST, OHreact )\n          IF ( State_Diag%Archive_OHreactivity ) THEN\n             State_Diag%OHreactivity(I,J,L) = OHreact\n          ENDIF\n          IF ( State_Diag%Archive_SatDiagnOHreactivity ) THEN\n             State_Diag%SatDiagnOHreactivity(I,J,L) = OHreact\n          ENDIF\n\n       ENDIF\n\n#else  ! MPI_LOAD_BALANCE\n       !=====================================================================\n       ! If doing MPI load balancing, rather than integrating, instead\n       ! make a note of how many cells we actually have, then go back to\n       ! the beginning of the loop. The rest of the execution that is skipped\n       ! will be done following the end of this loop.\n       !=====================================================================\n       NCELL_local = NCELL_local + 1\n       C_1D(:,NCELL_local)      = C(:)\n       RCONST_1D(:,NCELL_local) = RCONST(:)\n       ICNTRL_1D(:,NCELL_local) = ICNTRL(:)\n       RCNTRL_1D(:,NCELL_local) = RCNTRL(:)\n\n       ! map to shared memory\n       IJL_to_Idx(I,J,L) = NCELL_local\n       cell_status(NCELL_local) = cell_status(NCELL_local) - 1\n#endif  ! MPI_LOAD_BALANCE\n\n    ENDDO ! I\n    ENDDO ! J\n    ENDDO ! L\n    !$OMP END PARALLEL DO\n\n#ifdef MPI_LOAD_BALANCE\n    !=====================================================================\n    ! Integrate the box forwards (if using MPI load balancing)\n    !=====================================================================\n    ! Initialize shared counter\n    IF (shm_rank == 0) THEN\n       next_cell_index = 1\n    END IF\n\n    ! Flush processor caches for every window\n    ! Start access epochs for all shared-memory windows\n    CALL MPI_Win_lock_all(0, win_C_1D, RC)\n    CALL MPI_Win_lock_all(0, win_RCONST_1D, RC)\n    CALL MPI_Win_lock_all(0, win_ICNTRL_1D, RC)\n    CALL MPI_Win_lock_all(0, win_RCNTRL_1D, RC)\n    CALL MPI_Win_lock_all(0, win_ISTATUS_1D, RC)\n    CALL MPI_Win_lock_all(0, win_RSTATE_1D, RC)\n    CALL MPI_Win_lock_all(0, win_cell_status, RC)\n    CALL MPI_Win_lock_all(0, win_next_cell_index, RC)\n\n    ! Ensure memory visibility of written shared-memory data\n    CALL MPI_Win_sync(win_C_1D,           RC)\n    CALL MPI_Win_sync(win_RCONST_1D,      RC)\n    CALL MPI_Win_sync(win_ICNTRL_1D,      RC)\n    CALL MPI_Win_sync(win_RCNTRL_1D,      RC)\n    CALL MPI_Win_sync(win_ISTATUS_1D,     RC)\n    CALL MPI_Win_sync(win_RSTATE_1D,      RC)\n    CALL MPI_Win_sync(win_cell_status,    RC)\n    CALL MPI_Win_sync(win_next_cell_index,RC)\n\n    ! End access epochs\n    CALL MPI_Win_unlock_all(win_C_1D, RC)\n    CALL MPI_Win_unlock_all(win_RCONST_1D, RC)\n    CALL MPI_Win_unlock_all(win_ICNTRL_1D, RC)\n    CALL MPI_Win_unlock_all(win_RCNTRL_1D, RC)\n    CALL MPI_Win_unlock_all(win_ISTATUS_1D, RC)\n    CALL MPI_Win_unlock_all(win_RSTATE_1D, RC)\n    CALL MPI_Win_unlock_all(win_cell_status, RC)\n    CALL MPI_Win_unlock_all(win_next_cell_index, RC)\n\n    ! Wait until all processors write data to memory\n    CALL MPI_Barrier(shm_comm, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Barrier failed', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,        J,        L,       N                           )&\n    !$OMP PRIVATE( ICNTRL,   C_before_integrate                             )&\n    !$OMP PRIVATE( SO4_FRAC, IERR,     RCNTRL,  ISTATUS,   RSTATE           )&\n    !$OMP PRIVATE( SpcID,    KppID,    F,       P,         Vloc             )&\n    !$OMP PRIVATE( Aout,     Thread,   RC,      S,         LCH4             )&\n    !$OMP PRIVATE( OHreact,  PCO_TOT,  PCO_CH4, PCO_NMVOC, SR               )&\n    !$OMP PRIVATE( SIZE_RES, LWC                                            )&\n#ifdef MODEL_GEOS\n    !$OMP PRIVATE( NOxTau,     NOxConc, NOx_weight, NOx_tau_weighted        )&\n#endif\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )&\n    !$OMP REDUCTION( +:errorCount                                           )\n\n    origin_val = 1                      ! add 1 each time\n    disp       = 0_MPI_ADDRESS_KIND     ! first integer in the window\n    CALL MPI_Win_lock_all(MPI_MODE_NOCHECK, win_next_cell_index, ierr)\n    DO\n       CALL MPI_Fetch_and_op(origin_val, fetched_value, MPI_INTEGER, 0, &\n            disp, MPI_SUM, win_next_cell_index, ierr)\n\n       ! CALL MPI_Win_sync(win_next_cell_index, ierr)\n       CALL MPI_Win_flush_local(0, win_next_cell_index, ierr)\n\n       ! WRITE (*,*) 'Rank', shm_rank, 'got ticket', fetched_value\n       IF (fetched_value > NCELL_total) EXIT\n\n       I_CELL = fetched_value\n       IF (cell_status(I_CELL) > 0) CYCLE\n       cell_status(I_CELL) = cell_status(I_CELL) + 1\n\n       ! Skip to the end of the loop if we have failed integration twice\n       IF ( Failed2x ) CYCLE\n\n       ! Rosenbrock output\n       ISTATUS = 0.0_dp\n       RSTATE  = 0.0_dp\n       IERR    = 0\n\n       ! Load in data from saved arrays\n       RCONST(:)   = RCONST_1D(:,I_CELL)\n       C(:)        = C_1D(:,I_CELL)\n       ICNTRL(:)   = ICNTRL_1D(:,I_CELL)\n       RCNTRL(:)   = RCNTRL_1D(:,I_CELL)\n\n       C_before_integrate(:) = C(:)\n\n       ! Call the KPP integrator\n       ! NOTE: Some integrators (like LSODE) will overwrite the TIN value\n       ! upon exit.  To prevent this, pass 0.0, DT as the 1st 2 arguments.\n       CALL Integrate( 0.0_dp, DT, ICNTRL, RCNTRL, ISTATUS, RSTATE, IERR )\n\n       ! Add to diagnostic arrays\n       RSTATE_1D(:,I_CELL)  = RSTATE(:)\n       ISTATUS_1D(:,I_CELL) = ISTATUS(:)\n\n       ! Print grid box indices to screen if integrate failed\n       IF ( IERR < 0 ) THEN\n\n          ! Turn off error output after a certain limit is reached\n          IF ( .not. doSuppress ) THEN\n             WRITE( 6, * ) '### INTEGRATE RETURNED ERROR AT: ', I_CELL\n             errorCount = errorCount + 1\n             IF ( errorCount > INTEGRATE_FAIL_TOGGLE ) THEN\n                WRITE( 6, '(a)' ) &\n                     '### Further error output has been switched off'\n                doSuppress = .TRUE.\n             ENDIF\n          ENDIF\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n          ! TODO (ewl, 2/25/26)\n          ! The following code is not compatible with the MPI load balancing\n          ! implementation as is, and will need to be adapted in the future.\n          !! Keep track of number of error boxes\n          !IF ( State_Diag%Archive_KppError ) THEN\n          !   State_Diag%KppError(I,J,L) = State_Diag%KppError(I,J,L) + 1.0\n          !ENDIF\n#endif\n       ENDIF\n\n#if defined( MODEL_GEOS )\n       ! TODO (ewl, 2/25/26)\n       ! The following code is not compatible with the MPI load balancing\n       ! implementation as is, and will need to be adapted in the future.\n       !! Mark integration as erroneous if negative concentrations so that\n       !! it will be repeated below (cakelle2, 2023/10/26)\n       !IF ( IERR >= 0 .AND. Input_Opt%KppCheckNegatives >= 0 ) THEN\n       !   IF ( ( Input_Opt%KppCheckNegatives==0 .AND. &\n       !        State_Met%InStratMeso(I,J,L) ) .OR. &\n       !        ( L > (  State_Grid%NZ - Input_Opt%KppCheckNegatives) ) ) THEN\n       !      IF ( ANY(C < 0.0_dp) ) THEN\n       !         IERR = -999\n       !         ! Include negative concentration boxes within error box\n       !         ! diagnostic\n       !         IF ( State_Diag%Archive_KppError ) THEN\n       !            State_Diag%KppError(I,J,L) = &\n       !                 State_Diag%KppError(I,J,L) + 1.0\n       !         ENDIF\n       !      ENDIF\n       !   ENDIF\n       !ENDIF\n#endif\n\n       !==================================================================\n       ! Try another time if it failed\n       !==================================================================\n       IF ( IERR < 0 ) THEN\n\n          ! Zero the first time step (Hstart, used by Rosenbrock).  Also reset\n          ! C with concentrations prior to the 1st call to \"Integrate\".\n          RCNTRL(3) = 0.0_dp\n          C         = C_before_integrate\n\n#if defined( MODEL_GEOS )\n          ! In GEOS also inflate the error tolerances (cakelle2, 2023/10/26)\n          ATOL = 1.0e-2_dp * Input_Opt%KppTolScale\n          RTOL = 1.0e-2_dp * Input_Opt%KppTolScale\n#endif\n\n          ! Disable auto-reduce solver for the second iteration for safety\n          IF ( Input_Opt%Use_AutoReduce ) THEN\n             RCNTRL(12) = -1.0_dp ! without using ICNTRL\n          ENDIF\n\n          ! Update rates again\n          ! Not possible to call Update_RCONST when using MPI load\n          ! balancing - relevant arrays no longer exist\n          !CALL Update_RCONST( )\n          RCONST(:) = RCONST_1D(:,I_CELL)\n\n          ! Call the integrator\n          ! NOTE: Some integrators (like LSODE) will overwrite the TIN value\n          ! upon exit.  To prevent this, pass 0.0, DT as the 1st 2 arguments.\n          CALL Integrate( 0.0_dp, DT, ICNTRL, RCNTRL, ISTATUS, RSTATE, IERR )\n\n          ! Again, store ISTATUS and RSTATE\n          ! ISTATUS is all counts\n          ISTATUS_1D(:,I_CELL) = ISTATUS_1D(:,I_CELL) + ISTATUS(:)\n          RSTATE_1D(:,I_CELL) = RSTATE(:)\n\n          !==================================================================\n          ! Exit upon the second failure\n          !==================================================================\n          IF ( IERR < 0 ) THEN\n\n             ! Print error message\n             WRITE(6,     '(a   )' ) '## INTEGRATE FAILED TWICE !!! '\n             WRITE(ERRMSG,'(a,i3)' ) 'Integrator error code :', IERR\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n             IF ( Input_Opt%KppStop ) THEN\n                CALL ERROR_STOP(ERRMSG, 'INTEGRATE_KPP')\n             ELSE\n                ! Revert to concentrations prior to 1st call to \"Integrate\"\n                C = C_before_integrate\n             ENDIF\n\n             ! TODO (ewl, 2/25/26)\n             ! The following code is not compatible with the MPI load balancing\n             ! implementation as is, and will need to be adapted in the future.\n             !! Keep track of error boxes\n             !IF ( State_Diag%Archive_KppError ) THEN\n             !   State_Diag%KppError(I,J,L) = State_Diag%KppError(I,J,L) + 1.0\n             !ENDIF\n#else\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             ! Make sure only one thread at a time executes this block\n             !$OMP CRITICAL\n             !\n             ! Set a flag to break out of loop gracefully\n             ! NOTE: You can set a GDB breakpoint here to examine the error\n             Failed2x = .TRUE.\n\n             ! Print concentrations at failure grid box\n             PRINT*, REPEAT( '#', 79 )\n             PRINT*, '### KPP DEBUG OUTPUT!'\n             PRINT*, '### Species concentrations at problem box ', I_CELL\n             PRINT*, REPEAT( '#', 79 )\n             DO N = 1, NSPEC\n                PRINT*, C(N), TRIM( ADJUSTL( SPC_NAMES(N) ) )\n             ENDDO\n\n             ! Print rate constants at failure grid box\n             PRINT*, REPEAT( '#', 79 )\n             PRINT*, '### KPP DEBUG OUTPUT!'\n             PRINT*, '### Reaction rates at problem box ', I_CELL\n             PRINT*, REPEAT( '#', 79 )\n             DO N = 1, NREACT\n                PRINT*, RCONST(N), TRIM( ADJUSTL( EQN_NAMES(N) ) )\n             ENDDO\n             !\n             !$OMP END CRITICAL\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n             ! Start skipping to end of loop upon 2 failures in a row\n             CYCLE\n\n#endif\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       ! Continue upon successful return...\n       !=====================================================================\n\n       ! Revert Alkalinity (only when using sulfur chemistry in KPP)\n       IF ( .not. State_Chm%Do_SulfateMod_SeaSalt ) THEN\n          CALL fullchem_ConvertEquivToAlk()\n       ENDIF\n\n       ! Copy C back into C_1D\n       C_1D(:,I_CELL) = C(:)\n       RCONST_1D(:,I_CELL) = RCONST(:)\n    ENDDO\n\n    !end access epoch\n    CALL MPI_Win_unlock_all(win_next_cell_index, ierr)\n\n    CALL MPI_Barrier(shm_comm, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Barrier failed', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    ! Loop over the grid to set all persistent 3D arrays from the 1D data\n    ! When not using MPI load balancing this is done in the integration\n    ! loop instead because that loop is over the 3D spatial grid. For\n    ! load balancing the integration and setting of 3D arrays must be done\n    ! separately because integration is done with a flattened grid (1D).\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Figure out which cell the data should be allocated to\n       N = IJL_to_Idx(I,J,L)\n\n       ! Optional debug:\n       !  WRITE (6,'(A,I4,A,3(I6,1X),A,I8)') 'shm_rank=', shm_rank, &\n       !            '  I,J,L=', I, J, L, '  NCELL_local=', N\n\n       IF (N.le.0) CYCLE\n\n       ! Copy data back in\n       C       = C_1D(:,N)\n       RCONST  = RCONST_1D(:,N)\n       RSTATE  = RSTATE_1D(:,N)\n       ISTATUS = ISTATUS_1D(:,N)\n\n       ! Save Hnew (the last predicted but not taken step) from the 3rd slot\n       ! of RSTATE into State_Chm so that it can be written to the restart\n       ! file.  For simulations that are broken into multiple stages,\n       ! Hstart will be initialized to the value of Hnew from the restart\n       ! file at startup (see above).\n       State_Chm%KPPHvalue(I,J,L) = RSTATE(Nhnew)\n\n       ! Save cpu time spent for bulk of KPP-related routines for \n       ! History archival (hplin, 11/8/21)\n       IF ( State_Diag%Archive_KppTime ) THEN\n          call cpu_time(TimeEnd)\n          State_Diag%KppTime(I,J,L) = TimeEnd - TimeStart\n       ENDIF\n\n       !=====================================================================\n       ! HISTORY: Archive KPP solver diagnostics\n       ! For the case of MPI load balancing, ISTATUS was computed as sum\n       ! so setting these arrays only has to happen once.\n       !\n       ! !TODO: Abstract this into a separate routine\n       !=====================================================================\n       IF ( State_Diag%Archive_KppDiags ) THEN\n\n          ! Check for negative concentrations after first integration\n          IF ( State_Diag%Archive_KppNegatives0 ) THEN\n             State_Diag%KppNegatives0(I,J,L) =  &\n                  REAL( COUNT( C < 0.0_dp ), KIND=4 )\n          ENDIF\n\n          ! # of integrator calls\n          IF ( State_Diag%Archive_KppIntCounts ) THEN\n             State_Diag%KppIntCounts(I,J,L) = ISTATUS(1)\n          ENDIF\n\n          ! # of times Jacobian was constructed\n          IF ( State_Diag%Archive_KppJacCounts ) THEN\n             State_Diag%KppJacCounts(I,J,L) = ISTATUS(2)\n          ENDIF\n\n          ! # of internal timesteps\n          IF ( State_Diag%Archive_KppTotSteps ) THEN\n             State_Diag%KppTotSteps(I,J,L) = ISTATUS(3)\n          ENDIF\n\n          ! # of accepted internal timesteps\n          IF ( State_Diag%Archive_KppAccSteps ) THEN\n             State_Diag%KppAccSteps(I,J,L) = ISTATUS(4)\n          ENDIF\n\n          ! # of rejected internal timesteps\n          IF ( State_Diag%Archive_KppRejSteps ) THEN\n             State_Diag%KppRejSteps(I,J,L) = ISTATUS(5)\n          ENDIF\n\n          ! # of LU-decompositions\n          IF ( State_Diag%Archive_KppLuDecomps ) THEN\n             State_Diag%KppLuDecomps(I,J,L) = ISTATUS(6)\n          ENDIF\n\n          ! # of forward and backwards substitutions\n          IF ( State_Diag%Archive_KppSubsts ) THEN\n             State_Diag%KppSubsts(I,J,L) = ISTATUS(7)\n          ENDIF\n\n          ! # of singular-matrix decompositions\n          IF ( State_Diag%Archive_KppSmDecomps ) THEN\n             State_Diag%KppSmDecomps(I,J,L) = ISTATUS(8)\n          ENDIF\n\n          ! ! rank of column\n          !  IF ( State_Diag%Archive_KppRank ) THEN\n          !     State_Diag%KppRank(I,J,L) = Input_Opt%thisCPU\n          !  ENDIF\n\n          !  ! index of column on rank\n          !  IF ( State_Diag%Archive_KppIndexOnRank ) THEN\n          !     State_Diag%KppIndexOnRank(I,J,L) = N - offset\n          !  ENDIF\n          \n#ifdef KPP_INTEGRATOR_AUTOREDUCE\n          ! Update autoreduce solver statistics\n          ! (only if the autoreduction is turned on)\n          IF ( Input_Opt%Use_AutoReduce ) THEN\n             CALL fullchem_AR_UpdateKppDiags( I, J, L, RSTATE, State_Diag )\n          ENDIF\n#endif\n       ENDIF\n\n       ! TODO (ewl, 2/25/26)\n       ! The following code is not compatible with the MPI load balancing\n       ! implementation as is, and will need to be adapted in the future.\n       ! This call needs several things not defined for the case of\n       ! load balancing: C_before_integrat, local_RCONST,\n       ! KPPH_before_integrate, ICNTRL, RCNTRL. For now, MPI load balance is\n       ! turned off when building with KPP standalone turned on.\n       !! Write chemical state to file for the kpp standalone interface\n       !! No external logic needed, this subroutine exits early if the\n       !! chemical state should not be printed (psturm, 03/23/24)\n       !CALL KppSa_Write_Samples(                                             &\n       !     I            = I,                                                &\n       !     J            = J,                                                &\n       !     L            = L,                                                &\n       !     initC        = C_before_integrate,                               &\n       !     localRCONST  = local_RCONST,                                     &\n       !     initHvalue   = KPPH_before_integrate,                            &\n       !     exitHvalue   = RSTATE(Nhexit),                                   &\n       !     ICNTRL       = ICNTRL,                                           &\n       !     RCNTRL       = RCNTRL,                                           &\n       !     State_Grid   = State_Grid,                                       &\n       !     State_Chm    = State_Chm,                                        &\n       !     State_Met    = State_Met,                                        &\n       !     Input_Opt    = Input_Opt,                                        &\n       !     KPP_TotSteps = ISTATUS(3),                                       &\n       !     RC           = RC                                               )\n\n       !=====================================================================\n       ! Check we have no negative values and copy the concentrations\n       ! calculated from the C array back into State_Chm%Species%Conc\n       !=====================================================================\n\n       ! Loop over KPP species\n       DO N = 1, NSPEC\n\n          ! GEOS-Chem species ID\n          SpcID = State_Chm%Map_KppSpc(N)\n\n          ! Skip if this is not a GEOS-Chem species\n          IF ( SpcID <= 0 ) CYCLE\n\n          ! Scan for negatives\n          IF ( State_Diag%Archive_KppNegatives ) THEN\n             IF ( C(N) < 0.0_dp ) THEN \n                State_Diag%KppNegatives(I,J,L) = &\n                     State_Diag%KppNegatives(I,J,L) + 1.0_f4\n             ENDIF\n          ENDIF\n\n          ! Set negative concentrations to zero\n          C(N) = MAX( C(N), 0.0_dp )\n\n          ! Copy concentrations back into State_Chm%Species\n          State_Chm%Species(SpcID)%Conc(I,J,L) = REAL( C(N), kind=fp )\n\n       ENDDO\n\n#ifdef TOMAS\n       !-----------------------------------------------------------------\n       ! FOR TOMAS MICROPHYSICS:\n       !\n       ! Obtain P/L with a unit [kg S] for tracing\n       ! gas-phase sulfur species production (SO2, SO4, MSA)\n       ! (win, 8/4/09)\n       !-----------------------------------------------------------------\n\n       ! Calculate H2SO4 production rate [kg s-1] in each\n       ! time step (win, 8/4/09)\n       H2SO4_RATE(I,J,L) = C(ind_PH2SO4) / AVO * 98.e-3_fp * &\n            State_Met%AIRVOL(I,J,L)    * &\n            1.0e+6_fp / DT  ! kg s-1 box-1\n\n       IF ( H2SO4_RATE(I,J,L) < 0.0d0) THEN\n          write(*,*) \"H2SO4_RATE negative in fullchem_mod.F90!!\", &\n               I, J, L, \"was:\", H2SO4_RATE(I,J,L), \"  setting to 0.0d0\"\n          H2SO4_RATE(I,J,L) = 0.0d0\n       ENDIF\n\n       PSO4AQ_RATE(I,J,L) = C(ind_PSO4AQ) / AVO * 98.e-3_fp * &\n            State_Met%AIRVOL(I,J,L)    * &\n            1.0e+6_fp ! kg per timestep box-1\n\n       IF ( PSO4AQ_RATE(I,J,L) < 0.0d0) THEN\n          write(*,*) \"PSO4AQ_RATE negative in fullchem_mod.F90\", &\n               I, J, L, \"was:\", PSO4AQ_RATE(I,J,L), \"  setting to 0.0d0\"\n          PSO4AQ_RATE(I,J,L) = 0.0d0\n       ENDIF\n#endif  ! TOMAS\n\n#ifdef MODEL_CESM\n       !---------------------------------------------------------------------\n       ! Calculate H2SO4 production rate for coupling to CESM \n       ! (interface to MAM4 nucleation)\n       !---------------------------------------------------------------------\n\n       ! mol/mol = molec cm-3 * g * mol(Air)-1 * kg g-1 * m-3 cm3 /    &\n       ! (molec mol-1 * kg m-3) = mol/molAir\n       State_Chm%H2SO4_PRDR(I,J,L) = C(id_PSO4) * AIRMW * 1e-3_fp * &\n            1.0e+6_fp /(AVO * State_Met%AIRDEN(I,J,L))\n\n       IF ( State_Chm%H2SO4_PRDR(I,J,L) < 0.0d0) THEN\n          write(*,*) \"H2SO4_PRDR negative in fullchem_mod.F90!!\", &\n               I, J, L, \"was:\", State_Chm%H2SO4_PRDR(I,J,L), &\n               \"  setting to 0.0d0\"\n          State_Chm%H2SO4_PRDR(I,J,L) = 0.0d0\n       ENDIF\n#endif  ! MODEL_CESM\n\n#ifdef MODEL_GEOS\n       !--------------------------------------------------------------------\n       ! Archive NOx lifetime [h]\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_NoxTau .OR. &\n            State_Diag%Archive_TropNOxTau ) THEN\n          CALL Fun( V       = C(1:NVAR),         &\n               F       = C(NVAR+1:NSPEC),   &\n               RCT     = RCONST,            &\n               Vdot    = Vloc,              &\n               Aout    = Aout              )\n          NOxTau = Vloc(ind_NO) + Vloc(ind_NO2) + Vloc(ind_NO3)           &\n               + 2.*Vloc(ind_N2O5) + Vloc(ind_ClNO2) + Vloc(ind_HNO2)   &\n               + Vloc(ind_HNO4)\n          NOxConc = C(ind_NO) + C(ind_NO2) + C(ind_NO3) + 2.*C(ind_N2O5)  &\n               + C(ind_ClNO2) + C(ind_HNO2) + C(ind_HNO4)\n          ! NOx chemical lifetime per grid cell\n          IF ( State_Diag%Archive_NoxTau ) THEN\n             NoxTau = ( NOxConc / (-1.0_f4*NOxTau) ) / 3600.0_f4\n             IF ( NoxTau > 0.0_f4 ) THEN\n                State_Diag%NOxTau(I,J,L) = &\n                     min(1.0e10_f4,max(1.0e-10_f4,NOxTau))\n             ELSE\n                State_Diag%NOxTau(I,J,L) = &\n                     max(-1.0e10_f4,min(-1.0e-10_f4,NOxTau))\n             ENDIF\n          ENDIF\n          ! NOx chemical lifetime per trop. column\n          IF ( State_Diag%Archive_TropNOxTau ) THEN\n             NOx_weight = ( NOxConc )*State_Met%AIRDEN(I,J,L) *    &\n                  State_Met%DELP_DRY(I,J,L)\n             NOx_tau_weighted =  &\n                  ( NOxConc / ( -1.0_f4*NOxTau*3600.0_f4 ) )*NOx_weight\n             IF ( ABS(NOx_tau_weighted) < 1.0e8 ) THEN\n                NOx_tau_weighted = ( NINT(NOx_tau_weighted)*1.0e6 )*1.0e-6_f4\n             ELSE\n                IF ( NOx_tau_weighted > 0.0 ) THEN\n                   NOx_tau_weighted = 1.0e8\n                ELSE\n                   NOx_tau_weighted = -1.0e8\n                ENDIF\n             ENDIF\n             IF ( State_Met%InTroposphere(I,J,L) ) THEN\n                TROPv_NOx_mass(I,J) = TROPv_NOx_mass(I,J) + NOx_weight\n                TROPv_NOx_tau(I,J)  = TROPv_NOx_tau(I,J) + NOx_tau_weighted\n             ENDIF\n          ENDIF\n       ENDIF\n#endif  ! MODEL_GEOS\n\n       !====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Prod and loss of families or species [molec/cm3/s]\n       !\n       ! NOTE: KppId is the KPP ID # for each of the prod and loss\n       ! diagnostic species.  This is the value used to index the\n       ! KPP \"C\" array (in module gckpp_Global.F90).\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !====================================================================\n\n       ! Chemical loss of species or families [molec/cm3/s]\n       IF ( State_Diag%Archive_Loss ) THEN\n          DO S = 1, State_Diag%Map_Loss%nSlots\n             KppId = State_Diag%Map_Loss%slot2Id(S)\n             State_Diag%Loss(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Chemical production of species or families [molec/cm3/s]\n       IF ( State_Diag%Archive_Prod ) THEN\n          DO S = 1, State_Diag%Map_Prod%nSlots\n             KppID = State_Diag%Map_Prod%slot2Id(S)\n             State_Diag%Prod(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic: Chemical loss [molec/cm3/s]\n       IF ( State_Diag%Archive_SatDiagnLoss ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnLoss%nSlots\n             KppId = State_Diag%Map_SatDiagnLoss%slot2Id(S)\n             State_Diag%SatDiagnLoss(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic: Chemical production [molec/cm3/s]\n       IF ( State_Diag%Archive_SatDiagnProd ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnProd%nSlots\n             KppID = State_Diag%Map_SatDiagnProd%slot2Id(S)\n             State_Diag%SatDiagnProd(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Archive prod/loss fields for the TagCO simulation [molec/cm3/s]\n       ! (In practice, we only need to do this from benchmark simulations)\n       !\n       ! TODO: Abstract this to a subroutine, to simplify DO_FULLCHEM\n       !--------------------------------------------------------------------\n       IF ( State_Diag%Archive_ProdCOfromCH4     .or.   &\n            State_Diag%Archive_ProdCOfromNMVOC ) THEN\n\n          ! Total production of CO\n          PCO_TOT   = C(id_PCO) / DT\n\n          ! Loss of CO from CH4\n          LCH4      = C(id_LCH4) / DT\n\n          ! P(CO)_CH4 is LCH4. Cap so that it is never greater\n          ! than total P(CO) to prevent negative P(CO)_NMVOC.\n          PCO_CH4   = MIN( LCH4, PCO_TOT )\n\n          ! P(CO) from NMVOC is the remaining P(CO)\n          PCO_NMVOC = PCO_TOT - PCO_CH4\n\n          ! Archive P(CO) from CH4 for tagCO simulations\n          IF ( State_Diag%Archive_ProdCOfromCH4 ) THEN\n             State_Diag%ProdCOfromCH4(I,J,L) = PCO_CH4\n          ENDIF\n\n          ! Archive P(CO) from NMVOC for tagCO simulations\n          IF ( State_Diag%Archive_ProdCOfromNMVOC ) THEN\n             State_Diag%ProdCOfromNMVOC(I,J,L) = PCO_NMVOC\n          ENDIF\n\n       ENDIF\n\n       !====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Write out OH reactivity.  The OH reactivity is defined here as the\n       ! inverse of its life-time. In a crude ad-hoc approach, manually add\n       ! all OH reactants (ckeller, 9/20/2017)\n       !====================================================================\n       IF ( State_Diag%Archive_OHreactivity           .or.     &\n            State_Diag%Archive_SatDiagnOHreactivity ) THEN\n\n          ! Archive OH reactivity diagnostic\n          CALL Get_OHreactivity ( C, RCONST, OHreact )\n          IF ( State_Diag%Archive_OHreactivity ) THEN\n             State_Diag%OHreactivity(I,J,L) = OHreact\n          ENDIF\n          IF ( State_Diag%Archive_SatDiagnOHreactivity ) THEN\n             State_Diag%SatDiagnOHreactivity(I,J,L) = OHreact\n          ENDIF\n\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n#endif  ! MPI_LOAD_BALANCE\n\n    !=======================================================================\n    ! Return gracefully if integration failed 2x anywhere\n    ! (as we cannot break out of a parallel DO loop!)\n    !=======================================================================\n    IF ( Failed2x ) THEN\n       ErrMsg = 'KPP failed to converge after 2 iterations!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n#if defined( MODEL_GEOS )\n    IF ( State_Diag%Archive_TropNOxTau ) THEN\n       WHERE (TROPv_NOx_mass > 0.0_f4 )\n          State_Diag%TropNOxTau = TROPv_NOx_tau / TROPv_NOx_mass\n       END WHERE\n    ENDIF\n#endif  ! MODEL_GEOS\n\n#ifdef TOMAS\n    !-----------------------------------------------------------------\n    ! For TOMAS microphysics:\n    ! SO4 from aqueous chemistry of SO2 (in-cloud oxidation).\n    ! SO4 produced via aqueous chemistry is distributed onto 30-bin\n    ! aerosol by TOMAS subroutine AQOXID.\n    !-----------------------------------------------------------------\n    CALL TOMAS_SO4_AQ( Input_Opt, State_Chm,  State_Grid, &\n                          State_Met, State_Diag, RC )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### CHEMSULFATE: a TOMAS_SO4_AQ' )\n    ENDIF\n#endif  ! TOMAS\n\n    !=======================================================================\n    ! Archive OH, HO2, O1D, O3P concentrations after solver\n    !=======================================================================\n    IF ( Do_Diag_OH_HO2_O1D_O3P ) THEN\n\n       ! Save OH, HO2, O1D, O3P for the ND43 diagnostic\n       ! NOTE: These might not be needed for netCDF, as they will already\n       ! have been archived in State_Chm%Species%Conc output.\n       CALL Diag_OH_HO2_O1D_O3P( Input_Opt,  State_Chm, State_Diag, &\n                                 State_Grid, State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Diag_OH_HO2_O1D_O3P\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### Do_FullChem: after OHSAVE' )\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Archive quantities for computing OH metrics\n    !=======================================================================\n    CALL Diag_Metrics( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, State_Met, RC                            )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Diag_Mean_OH_and_CH4'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### Do_FullChem: after Diag_Metrics' )\n    ENDIF\n\n    !=======================================================================\n    ! Archive concentrations after chemistry\n    !=======================================================================\n    IF ( State_Diag%Archive_ConcAfterChem ) THEN\n       ! Point to mapping obj specific to ConcAfterChem diagnostic collection\n       mapData => State_Diag%Map_ConcAfterChem\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( N, S   )\n       DO S = 1, mapData%nSlots\n          N = mapData%slot2id(S)\n          State_Diag%ConcAfterChem(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:)\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Free pointer\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! Convert species back to original units (ewl, 8/16/16)\n    !=======================================================================\n\n    ! Halt gas-phase chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    ! Convert units of all species back to kg\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error!'\n       CALL GC_Error( ErrMsg, RC, 'fullchem_mod.F90' )\n       RETURN\n    ENDIF\n\n    ! Start gas-phase chem timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    !=======================================================================\n    ! Apply high-altitude active nitrogen partitioning and H2SO4\n    ! photolysis approximations outside the chemistry grid\n    !=======================================================================\n    CALL UCX_NOX( Input_Opt, State_Chm, State_Grid, State_Met )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### CHEMDR: after UCX_NOX' )\n    ENDIF\n\n    CALL UCX_H2SO4PHOT( Input_Opt, State_Chm, State_Grid, State_Met )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### CHEMDR: after UCX_H2SO4PHOT' )\n    ENDIF\n\n    ! Set State_Chm arrays for surface J-values used in HEMCO and\n    ! saved to restart file\n    IF ( State_Chm%Phot%RXN_O3_1 >= 0 ) THEN\n       State_Chm%JOH(:,:) = State_Chm%Phot%ZPJ(1,State_Chm%Phot%RXN_O3_1,:,:)\n    ENDIF\n    IF ( State_Chm%Phot%RXN_NO2 >= 0 ) THEN\n       State_Chm%JNO2(:,:) = State_Chm%Phot%ZPJ(1,State_Chm%Phot%RXN_NO2,:,:)\n    ENDIF\n\n    ! Set FIRSTCHEM = .FALSE. -- we have gone thru one chem step\n    FIRSTCHEM = .FALSE.\n\n  END SUBROUTINE Do_FullChem\n\n!EOC\n#ifdef TOMAS\n!---------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model               !\n!---------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: tomas_so4_aq\n!\n! !DESCRIPTION: Subroutine CHEM\\_SO4\\_AQ takes the SO4 produced via aqueous\n!  chemistry of SO2 and distribute onto the size-resolved aerosol number and\n!  sulfate mass as a part of the TOMAS aerosol microphysics module\n!  (win, 1/25/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TOMAS_SO4_AQ( Input_Opt, State_Chm,  State_Grid, &\n                           State_Met, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptINput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE TOMAS_MOD,          ONLY : AQOXID, GETACTBIN,PSO4AQ_RATE\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diag State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  NOTE: This subroutine is ignored unless we compile for TOMAS microphysics.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: I, J, L\n    INTEGER           :: k, binact1, binact2\n    INTEGER           :: KMIN\n    INTEGER           :: previous_units\n    REAL(fp)          :: SO4OXID\n\n    !=================================================================\n    ! TOMAS_SO4_AQ begins here!\n    !=================================================================\n\n    ! Assume success\n    RC  = GC_SUCCESS\n\n    ! Convert species to [kg]\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'Start of TOMAS_SO4_AQ in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED )  &\n    !$OMP PRIVATE( I, J, L ) &\n    !$OMP PRIVATE( KMIN, SO4OXID, BINACT1, BINACT2 ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n        SO4OXID = PSO4AQ_RATE(I,J,L)\n\n!        print*, 'Here is SO4OXID ',SO4OXID, I,J,L \n\n!       SO4OXID = PSO4_SO2AQ(I,J,L) * State_Met%AD(I,J,L) &\n!                 / ( AIRMW / State_Chm%SpcData(id_SO4)%Info%MW_g ) ! convert v/v to kg/box\n\n       IF ( SO4OXID > 0e+0_fp ) THEN\n          ! JKodros (6/2/15 - Set activating bin based on which TOMAS bin\n          !length being used)\n#if defined( TOMAS12 )\n          CALL GETACTBIN( I, J, L, id_NK05, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK05, .FALSE., BINACT2, State_Chm, RC )\n#elif defined( TOMAS15 )\n          CALL GETACTBIN( I, J, L, id_NK08, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK08, .FALSE., BINACT2, State_Chm, RC )\n#elif defined( TOMAS30 )\n          CALL GETACTBIN( I, J, L, id_NK10, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK10, .FALSE., BINACT2, State_Chm, RC )\n#else\n          CALL GETACTBIN( I, J, L, id_NK20, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK20, .FALSE., BINACT2, State_Chm, RC )\n#endif\n\n          KMIN = ( BINACT1 + BINACT2 )/ 2.\n\n          ! Indicate that we are NOT calling AqOxid from wetdep, which\n          ! will avoid doing any further internal unit conversion (as\n          ! units are already in kg here). -- Bob Yantosca (11 Apr 2024)\n          CALL AqOxid(                                                       &\n               I          = I,                                               &\n               J          = J,                                               &\n               L          = L,                                               &\n               MOXID      = SO4OXID,                                         &\n               KMIN       = KMIN,                                            &\n               fromWetDep = .FALSE.,                                         &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               State_Met  = State_Met,                                       &\n               State_Diag = State_Diag,                                      &\n               RC         = RC                                              )\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Convert species back to original units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'End of TOMAS_SO4_AQ in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n  END SUBROUTINE TOMAS_SO4_AQ\n!EOC \n#endif  ! TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: PrintFirstTimeInfo\n!\n! !DESCRIPTION: Prints information the first time DO_FULLCHEM is called\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PrintFirstTimeInfo( Input_Opt, State_Chm, FirstChem )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt     ! Input Options object\n    TYPE(ChmState), INTENT(IN) :: State_Chm     ! Chemistry State object\n    LOGICAL,        INTENT(IN) :: FirstChem     ! Is this the first call?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Exit if we are not on the first chemistry timestep\n    IF ( .not. FirstChem ) RETURN\n\n    ! Print on the root CPU only (only if debug printout is on)\n    IF ( Input_Opt%AmIRoot .and. Input_Opt%Verbose ) THEN\n\n       ! Write header\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       WRITE( 6, 100 )\n 100   FORMAT('DO_FULLCHEM : Interface between GEOS-Chem and the solver')\n       WRITE( 6, '(a)' )\n\n       ! Print where sulfur seasalt chemistry is done\n       IF ( State_Chm%Do_SulfateMod_Seasalt ) THEN\n          WRITE( 6, 110 )\n 110      FORMAT( '* Sulfur sea salt chemistry is computed in sulfate_mod' )\n       ELSE\n          WRITE( 6, 120 )\n 120      FORMAT( '* Sulfur sea salt chemistry is computed in KPP' )\n       ENDIF\n\n       ! Print where sulfur in-cloud chemistry is done\n       IF ( State_Chm%Do_SulfateMod_Cld ) THEN\n          WRITE( 6, 130 )\n 130      FORMAT( '* Sulfur in-cloud chemistry is computed in sulfate_mod' )\n       ELSE\n          WRITE( 6, 140 )\n 140      FORMAT( '* Sulfur in-cloud chemistry is computed in KPP' )\n       ENDIF\n\n          ! Print the status of photolysis: on or off\n       IF ( Input_Opt%Do_Photolysis ) THEN\n          WRITE( 6, 150 )\n#ifdef FASTJX\n 150      FORMAT(  '* Photolysis is activated -- rates computed by FAST-JX' )\n#else\n 150      FORMAT(  '* Photolysis is activated -- rates computed by Cloud-J' )\n#endif\n       ELSE\n          WRITE( 6, 160 )\n 160      FORMAT(  '* Photolysis is off for testing -- using zero J-values'  )\n       ENDIF\n\n       ! Write footer\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    ENDIF\n\n  END SUBROUTINE PrintFirstTimeInfo\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_sulfur_chem_rates\n!\n! !DESCRIPTION: Calls functions from the KPP rate-law library to compute\n!  rates for sulfate chemistry reactions.  These are passed to the KPP\n!  mechanism.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Sulfur_Chem_Rates( I,          J,          L,               &\n                                    Input_Opt,  State_Chm,  State_Diag,      &\n                                    State_Grid, State_Met,  size_res,        &\n                                    RC                                      )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GcKpp_Global\n    USE GcKpp_Parameters\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_ConvertAlktoEquiv\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_SulfurAqChem\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_SulfurCldChem\n    USE Input_Opt_Mod,            ONLY : OptInput\n    USE State_Chm_Mod,            ONLY : ChmState\n    USE State_Diag_Mod,           ONLY : DgnState\n    USE State_Grid_Mod,           ONLY : GrdState\n    USE State_Met_Mod,            ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! X, Y, Z gridbox indices\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(OUT)   :: size_res     ! Should we call HetDropChem?\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure!\n!\n! !REMARKS:\n!  The routines below are based on or meant to replace reactions computed\n!  outside of KPP within sulfate_mod.\n!\n!  Rates are set for the following:\n!  1) Cloud sulfur chemistry\n!  2) (If Dust acid uptake) Dust acid uptake reactions\n!  - MSL, 29-Mar-2021, 7-May-2021\n!\n!  Seasalt aerosol chemistry reaction rate-law functions are now contained\n!  in module fullchem_RateLawFuncs.F90.\n!\n!  NOTE This routine defines the variables State_Chm%HSO3_aq and\n!  State_Chm%SO3aq.  Therefore, we must call Set_Sulfur_Chem_Rates after\n!  Set_KPP_GridBox_Values, but before fullchem_SetStateHet.  Otherwise we\n!  will not be able to copy State_Chm%HSO3_aq to State_Het%HSO3_aq and\n!  State_Chm%SO3_aq to State_Het%SO3_aq properly.\n!    -- Mike Long, Bob Yantosca (08 Mar 2022)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    size_res = .FALSE.\n\n    !========================================================================\n    ! Do this when KPP is handling aqueous sulfur chemistry\n    !\n    ! From Alexander et al., buffering capacity (or alkalinity) of\n    ! sea-salt aerosols is equal to 0.07 equivalents per kg dry sea salt\n    ! emitted Gurciullo et al., 1999. JGR 104(D17) 21,719-21,731.\n    ! tdf; MSL\n    !========================================================================\n    IF ( .not. State_Chm%Do_SulfateMod_SeaSalt ) THEN\n\n       ! Convert alkalinity from [molec/cm3] to equivalents\n       CALL fullchem_ConvertAlkToEquiv()\n\n       ! Compute reaction rates for aqueous sulfur chemistry\n       ! (i.e. S(IV)->S(VI), HCl,  and HNO3)\n       CALL fullchem_SulfurAqChem( I          = I,                           &\n                                   J          = J,                           &\n                                   L          = L,                           &\n                                   Input_Opt  = Input_Opt,                   &\n                                   State_Chm  = State_Chm,                   &\n                                   State_Grid = State_Grid,                  &\n                                   State_Met  = State_Met,                   &\n                                   RC         = RC                          )\n    ENDIF\n\n    !========================================================================\n    ! Do this when KPP is handling SO2 cloud chemistry ...\n    !========================================================================\n    IF ( .not. State_Chm%Do_SulfateMod_Cld ) THEN\n\n       ! Compute reaction rates [1/s] for sulfate in cloud for KPP chem mech\n       CALL fullchem_SulfurCldChem(  I          = I,                         &\n                                     J          = J,                         &\n                                     L          = L,                         &\n                                     Input_Opt  = Input_Opt,                 &\n                                     State_Chm  = State_Chm,                 &\n                                     State_Diag = State_Diag,                &\n                                     State_Grid = State_Grid,                &\n                                     State_Met  = State_Met,                 &\n                                     size_res   = size_res,                  &\n                                     RC         = RC                        )\n\n       ! Update HSO3- and SO3-- concentrations [molec/cm3]\n       State_Chm%fupdateHOBr(I,J,L) = 1.0_fp\n       State_Chm%fupdateHOCl(I,J,L) = 1.0_fp\n\n    ENDIF\n\n  END SUBROUTINE Set_Sulfur_Chem_Rates\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Kpp_GridBox_Values\n!\n! !DESCRIPTION: Populates KPP variables in the gckpp_Global.F90 module\n!  for a particular (I,J,L) grid box.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Kpp_GridBox_Values( I,         J,         L,                &\n                                     Input_Opt, State_Chm, State_Grid,       &\n                                     State_Met, RC                          )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GcKpp_Global\n    USE GcKpp_Parameters\n    USE Input_Opt_Mod,          ONLY : OptInput\n    USE PhysConstants,          ONLY : CONSVAP, RGASLATM, RSTARG\n    USE Pressure_Mod,           ONLY : Get_Pcenter\n    USE State_Chm_Mod,          ONLY : ChmState\n    USE State_Grid_Mod,         ONLY : GrdState\n    USE State_Met_Mod,          ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: I, J, L\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt\n    TYPE(ChmState), INTENT(IN)  :: State_Chm\n    TYPE(GrdState), INTENT(IN)  :: State_Grid\n    TYPE(MetState), INTENT(IN)  :: State_Met\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: F,       N,        NA,    KppId,    SpcId\n    REAL(f8)           :: CONSEXP, VPRESH2O\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Set_Kpp_GridBox_Values begins here!\n    !========================================================================\n\n    ! Initialization\n    RC      = GC_SUCCESS\n    NA      = State_Chm%nAeroType\n    ErrMsg  = ''\n    ThisLoc = &\n     ' -> at Set_Kpp_Gridbox_Values (in module GeosCore/fullchem_mod.F90)'\n\n    !========================================================================\n    ! Populate global variables in gckpp_Global.F90\n    !========================================================================\n\n    ! Solar quantities\n    SUNCOS          = State_Met%SUNCOSmid(I,J)\n\n    ! Pressure and density quantities\n    NUMDEN          = State_Met%AIRNUMDEN(I,J,L)\n    H2O             = State_Met%AVGW(I,J,L) * NUMDEN\n    PRESS           = Get_Pcenter( I, J, L )\n\n    ! Temperature quantities\n    TEMP            = State_Met%T(I,J,L)\n    INV_TEMP        = 1.0_dp   / TEMP\n    TEMP_OVER_K300  = TEMP     / 300.0_dp\n    K300_OVER_TEMP  = 300.0_dp / TEMP\n    SR_TEMP         = SQRT( TEMP )\n    FOUR_R_T        = 4.0_dp * CON_R    * TEMP\n    FOUR_RGASLATM_T = 4.0_dp * RGASLATM * TEMP\n    EIGHT_RSTARG_T  = 8.0_dp * RSTARG   * TEMP\n\n    ! Relative humidity quantities\n    CONSEXP         = 17.2693882_dp * (TEMP - 273.16_dp) / (TEMP - 35.86_dp)\n    VPRESH2O        = CONSVAP * EXP( CONSEXP ) / TEMP\n    RELHUM          = ( H2O / VPRESH2O ) * 100_dp\n\n  END SUBROUTINE Set_Kpp_GridBox_Values\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Diag_OH_HO2_O1D_O3P\n!\n! !DESCRIPTION: Archives the chemical production of OH, HO2, O1D, O3P.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Diag_OH_HO2_O1D_O3P( Input_Opt,  State_Chm, State_Diag, &\n                                  State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  This routine replaces both OHSAVE and DIAGOH.  Those routines were needed\n!  for SMVGEAR, when we had separate arrays for the non-advected species.\n!  But now, all species are stored in State_Chm%Species%Conc, so the various\n!  arrays (SAVEOH, SAVEHO2, etc.) are no longer necessary.  We can now just\n!  just get values directly from State_Chm%Species%Conc.\n!\n!  Also note: for the netCDF diagnostics, we have removed multiplication by\n!  LTOH etc arrays.  These are almost always set between 0 and 24.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n\n    ! Scalars\n    LOGICAL            :: Do_Diag\n    INTEGER            :: I,       J,       L\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Pointers\n    REAL(fp),      POINTER  :: AirNumDen(:,:,:)\n    TYPE(SpcConc), POINTER  :: Spc      (:    )\n\n    !=======================================================================\n    ! Diag_OH_HO2_O1D_O3P begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Point to the array of species concentrations\n    AirNumDen => State_Met%AirNumDen\n    Spc       => State_Chm%Species\n\n    ! Zero the netCDF diagnostic arrays (if activated) above the\n    ! tropopause or mesopause to avoid having leftover values\n    ! from previous timesteps\n#ifdef MODEL_GEOS\n    IF ( State_Diag%Archive_O3concAfterChem  ) THEN\n       State_Diag%O3concAfterChem  = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_RO2concAfterChem ) THEN\n       State_Diag%RO2concAfterChem = 0.0_f4\n    ENDIF\n#endif\n    IF ( State_Diag%Archive_OHconcAfterChem  ) THEN\n       State_Diag%OHconcAfterChem  = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_HO2concAfterChem ) THEN\n       State_Diag%HO2concAfterChem = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_O1DconcAfterChem ) THEN\n       State_Diag%O1DconcAfterChem = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_O3PconcAfterChem ) THEN\n       State_Diag%O3PconcAfterChem = 0.0_f4\n    ENDIF\n\n!$OMP PARALLEL DO        &\n!$OMP DEFAULT( SHARED )  &\n!$OMP PRIVATE( I, J, L ) &\n!$OMP SCHEDULE( DYNAMIC )\n      DO L = 1, State_Grid%NZ\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n\n         ! Skip non-chemistry boxes\n         IF ( .not. State_Met%InChemGrid(I,J,L) ) THEN\n            ! Skip to next grid box\n            CYCLE\n         ENDIF\n\n         !------------------------------------------------------------------\n         ! OH concentration [molec/cm3]\n         !------------------------------------------------------------------\n         IF ( ok_OH ) THEN\n\n            ! HISTORY (aka netCDF diagnostics)\n            IF ( State_Diag%Archive_OHconcAfterChem ) THEN\n               State_Diag%OHconcAfterChem(I,J,L) = Spc(id_OH)%Conc(I,J,L)\n            ENDIF\n#ifdef MODEL_GEOS\n            IF ( State_Diag%Archive_O3concAfterChem ) THEN\n               State_Diag%O3concAfterChem(I,J,L) = Spc(id_O3)%Conc(I,J,L)\n            ENDIF\n            IF ( Archive_RO2concAfterChem ) THEN\n               IF ( id_A3O2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_A3O2)%Conc(I,J,L)\n               IF ( id_ATO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_ATO2)%Conc(I,J,L)\n               IF ( id_B3O2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_B3O2)%Conc(I,J,L)\n               IF ( id_BRO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_BRO2)%Conc(I,J,L)\n               IF ( id_ETO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_ETO2)%Conc(I,J,L)\n               IF ( id_HO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_HO2)%Conc(I,J,L)\n               IF ( id_LIMO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_LIMO2)%Conc(I,J,L)\n               IF ( id_MO2 > 0  ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_MO2)%Conc(I,J,L)\n               IF ( id_PIO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_PIO2)%Conc(I,J,L)\n               IF ( id_PO2 > 0  ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_PO2)%Conc(I,J,L)\n               IF ( id_PRN1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_PRN1)%Conc(I,J,L)\n               IF ( id_R4N1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_R4N1)%Conc(I,J,L)\n               IF ( id_R4O2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_R4O2)%Conc(I,J,L)\n               IF ( id_TRO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_TRO2)%Conc(I,J,L)\n               IF ( id_XRO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_XRO2)%Conc(I,J,L)\n               IF ( id_IHOO1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHOO1)%Conc(I,J,L)\n               IF ( id_IHOO4 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHOO4)%Conc(I,J,L)\n               IF ( id_ICHOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_ICHOO)%Conc(I,J,L)\n               IF ( id_IHPOO1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHPOO1)%Conc(I,J,L)\n               IF ( id_IHPOO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHPOO2)%Conc(I,J,L)\n               IF ( id_IHPOO3 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHPOO3)%Conc(I,J,L)\n               IF ( id_IEPOXAOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IEPOXAOO)%Conc(I,J,L)\n               IF ( id_IEPOXBOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IEPOXBOO)%Conc(I,J,L)\n               IF ( id_C4HVP1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_C4HVP1)%Conc(I,J,L)\n               IF ( id_C4HVP2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_C4HVP2)%Conc(I,J,L)\n               IF ( id_HPALD1OO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_HPALD1OO)%Conc(I,J,L)\n               IF ( id_HPALD2OO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_HPALD2OO)%Conc(I,J,L)\n               IF ( id_ISOPNOO1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_ISOPNOO1)%Conc(I,J,L)\n               IF ( id_ISOPNOO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_ISOPNOO2)%Conc(I,J,L)\n               IF ( id_INO2D > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_INO2D)%Conc(I,J,L)\n               IF ( id_INO2B > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_INO2B)%Conc(I,J,L)\n               IF ( id_IDHNBOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IDHNBOO)%Conc(I,J,L)\n               IF ( id_IDHNDOO1 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IDHNDOO1)%Conc(I,J,L)\n               IF ( id_IDHNDOO2 > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IDHNDOO2)%Conc(I,J,L)\n               IF ( id_IHPNBOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHPNBOO)%Conc(I,J,L)\n               IF ( id_IHPNDOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IHPNDOO)%Conc(I,J,L)\n               IF ( id_ICNOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_ICNOO)%Conc(I,J,L)\n               IF ( id_IDNOO > 0 ) &\n                  State_Diag%RO2concAfterChem(I,J,L) = &\n                     State_Diag%RO2concAfterChem(I,J,L) + Spc(id_IDNOO)%Conc(I,J,L)\n            ENDIF\n#endif\n\n         ENDIF\n\n         !------------------------------------------------------------------\n         ! HO2 concentration [v/v]\n         !------------------------------------------------------------------\n         IF ( ok_HO2 ) THEN\n            IF ( State_Diag%Archive_HO2concAfterChem ) THEN\n               State_Diag%HO2concAfterChem(I,J,L) = ( Spc(id_HO2)%Conc(I,J,L) &\n                                                  /   AirNumDen(I,J,L)      )\n            ENDIF\n\n         ENDIF\n\n         !---------------------------------------------------------------\n         ! O1D concentration [molec/cm3]\n         !---------------------------------------------------------------\n         IF ( ok_O1D ) THEN\n            IF ( State_Diag%Archive_O1DconcAfterChem ) THEN\n               State_Diag%O1DconcAfterChem(I,J,L) = Spc(id_O1D)%Conc(I,J,L)\n            ENDIF\n         ENDIF\n\n\n         !---------------------------------------------------------------\n         ! O3P concentration [molec/cm3]\n         !---------------------------------------------------------------\n         IF ( ok_O3P ) THEN\n            IF ( State_Diag%Archive_O3PconcAfterChem ) THEN\n               State_Diag%O3PconcAfterChem(I,J,L) = Spc(id_O3P)%Conc(I,J,L)\n            ENDIF\n         ENDIF\n\n      ENDDO\n      ENDDO\n      ENDDO\n!$OMP END PARALLEL DO\n\n      ! Free pointers\n      AirNumDen => NULL()\n      Spc       => NULL()\n\n  END SUBROUTINE Diag_OH_HO2_O1D_O3P\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Diag_Metrics\n!\n! !DESCRIPTION: Computes mass-weighted mean OH columns (full-atmosphere and\n!  trop-only) that are needed to compute the overall mean OH concentration.\n!  This is used as a metric as to how reactive, or \"hot\" the chemistry\n!  mechanism is.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Diag_Metrics( Input_Opt,  State_Chm, State_Diag,                &\n                           State_Grid, State_Met, RC                        )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE PhysConstants,  ONLY : AVO\n    USE PhysConstants,  ONLY : XNUMOLAIR\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm    ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REMARKS:\n!  References:\n!  (1) Prather, M. and C. Spivakovsky, \"Tropospheric OH and\n!       the lifetimes of hydrochlorofluorocarbons\", JGR,\n!       Vol 95, No. D11, 18723-18729, 1990.\n!  (2) Lawrence, M.G, Joeckel, P, and von Kuhlmann, R., \"What\n!       does the global mean OH concentraton tell us?\",\n!       Atm. Chem. Phys, 1, 37-49, 2001.\n!  (3) WMO/UNEP Scientific Assessment of Ozone Depletion: 2010\n!\n! !REVISION HISTORY:\n!  18 Aug 2020 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(f8), PARAMETER :: M3toCM3        = 1.0e+6_f8\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL,  SAVE      :: first          = .TRUE.\n    INTEGER,  SAVE      :: id_OH          = -1\n    REAL(f8), SAVE      :: MCM3toKGM3_OH  = -1.0_f8\n\n    ! Scalars\n    INTEGER             :: I,           J,           L\n    REAL(f8)            :: airMass_m,   airmass_kg,  airMassFull\n    REAL(f8)            :: airMassTrop, Ktrop,       LossOHbyCH4\n    REAL(f8)            :: LossOHbyMCF, OHconc_mcm3, OHmassWgt\n    REAL(f8)            :: OHmassFull,  OHmassTrop,  volume\n\n    ! Strings\n    CHARACTER(LEN=255)  :: errMsg,      thisLoc\n\n    !========================================================================\n    ! Compute_Mean_OH_and_CH4 begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Compute_Mean_OH (in module GeosCore/diagnostics_mod.F90)'\n\n    ! Exit if we have not turned on the Metrics collection\n    IF ( .not. State_Diag%Archive_Metrics ) RETURN\n\n    !========================================================================\n    ! First-time setup\n    !========================================================================\n    IF ( first ) THEN\n\n       ! Get the species ID for OH\n       id_OH  = Ind_('OH')\n       IF ( id_OH < 0 ) THEN\n          errMsg = 'OH is not a defined species in this simulation!!!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Convert [molec OH cm-3] --> [kg OH m-3]\n       MCM3toKGM3_OH  = M3toCM3                                              &\n                      * ( State_Chm%SpcData(id_OH)%Info%MW_g * 1.0e-3_f8 )   &\n                      / AVO\n\n\n       ! Reset first-time flag\n       first  = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Loop over surface boxes and compute mean OH in columns\n    !========================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,           J,           L,           airMass_kg        )&\n    !$OMP PRIVATE( airMass_m,   airMassFull, airMassTrop, Ktrop             )&\n    !$OMP PRIVATE( LossOHbyCH4, LossOHbyMCF, OHconc_mcm3, OHmassWgt         )&\n    !$OMP PRIVATE( OHmassFull,  OHmassTrop,  volume                         )&\n    !$OMP SCHEDULE( DYNAMIC, 4                                              )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !--------------------------------------------------------------------\n       ! Zero column-specific quantities\n       !--------------------------------------------------------------------\n       airMass_kg  = 0.0_f8\n       airMass_m   = 0.0_f8\n       airMassFull = 0.0_f8\n       airMassTrop = 0.0_f8\n       Ktrop       = 0.0_f8\n       LossOHbyCH4 = 0.0_f8\n       LossOHbyMCF = 0.0_f8\n       OHconc_mcm3 = 0.0_f8\n       OHmassWgt   = 0.0_f8\n       OHmassFull  = 0.0_f8\n       OHmassTrop  = 0.0_f8\n       volume      = 0.0_f8\n\n       !--------------------------------------------------------------------\n       ! Loop over the number of levels in the full-atmosphere column\n       ! Limit the computations to boxes in the chemistry grid\n       !--------------------------------------------------------------------\n       DO L = 1, State_Met%ChemGridLev(I,J)\n\n          ! Compute box volume [cm3], and air mass ([molec] and [kg])\n          ! Note: air mass in [molec] is also the atmospheric burden of\n          ! methyl chloroform (aka MCF, formula=CH3CCl3), since we assume\n          ! a uniform mixing ratio (=1) of MCF in air.\n          volume      = State_Met%AIRVOL(I,J,L)    * M3toCM3\n          airMass_m   = State_Met%AIRNUMDEN(I,J,L) * volume\n          airMass_kg  = airMass_m / XNUMOLAIR\n\n          ! OH concentration [molec cm-3]\n          OHconc_mcm3 = State_Chm%Species(id_OH)%Conc(I,J,L)\n\n          ! Airmass-weighted OH [kg air * (kg OH  m-3)]\n          OHmassWgt   = airMass_kg * ( OHconc_mcm3  * MCM3toKGM3_OH  )\n\n          ! Sum the air mass, mass-weighted CH4,\n          ! and mass-weighted OH in the full-atm column\n          airMassFull = airMassFull + airMass_kg\n          OHmassFull  = OHmassFull  + OHMassWgt\n\n          !------------------------------------------------------------------\n          ! Only do the following for tropospheric boxes ...\n          !------------------------------------------------------------------\n          IF ( State_Met%InTroposphere(I,J,L) ) THEN\n\n             ! Sum the air mass, mass-weighted CH4,\n             ! and mass-weighted OH in the trop-only column\n             airMassTrop = airMassTrop + airMass_kg\n             OHmassTrop  = OHmassTrop  + OHmassWgt\n\n             ! Compute CH4 loss rate in troposphere\n             ! Ktrop (Arrhenius parameter) has units [cm3/molec/s]\n             ! OHconc has units [molec/cm3]\n             ! AirMass has units [molec]\n             ! Resultant units of CH4 loss rate = [molec/s]\n             Ktrop = 2.45e-12_f8 * EXP( -1775.0_f8 / State_Met%T(I,J,L) )\n             LossOHbyCH4 = LossOHbyCH4 + ( Ktrop * OHconc_mcm3 * airMass_m )\n\n             ! Compute MCF loss rate in the troposphere\n             ! Ktrop (Arrhenius parameter) has units [cm3/molec/s]\n             ! OHconc has units [molec/cm3]\n             ! AirMass has units [molec]\n             ! Resultant units of MCF loss rate = [molec/s]\n             Ktrop = 1.64e-12_f8 * EXP( -1520.0_f8 / State_Met%T(I,J,L) )\n             LossOHbyMCF = LossOHbyMCF + ( Ktrop * OHconc_mcm3 * airMass_m )\n\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       ! Air mass [kg], full-atmosphere and trop-only column sums\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_AirMassColumnFull ) THEN\n          State_Diag%AirMassColumnFull(I,J) = airMassFull\n       ENDIF\n\n       IF ( State_Diag%Archive_AirMassColumnTrop ) THEN\n          State_Diag%AirMassColumnTrop(I,J) = airMassTrop\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       ! Airmass-weighted mean OH [kg air * (kg OH m-3)]\n       ! Full-atmosphere and trop-only column sums\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_OHwgtByAirMassColumnFull ) THEN\n          State_Diag%OHwgtByAirMassColumnFull(I,J) = OHmassFull\n       ENDIF\n\n       IF ( State_Diag%Archive_OHwgtByAirMassColumnTrop ) THEN\n          State_Diag%OHwgtByAirMassColumnTrop(I,J) = OHmassTrop\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! OH loss by CH4 + OH in troposphere [molec/s] and\n       ! OH loss by MCF + OH in troposphere [molec/s]\n       ! Full-atmosphere and trop-only column sums\n       !----------------------------------------------------------------\n       IF ( State_Diag%Archive_LossOHbyCH4columnTrop ) THEN\n          State_Diag%LossOHbyCH4columnTrop(I,J) = LossOHbyCH4\n       ENDIF\n\n       IF ( State_Diag%Archive_LossOHbyMCFcolumnTrop ) THEN\n          State_Diag%LossOHbyMCFcolumnTrop(I,J) = LossOHbyMCF\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE Diag_Metrics\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_fullchem\n!\n! !DESCRIPTION: Subroutine Init\\_FullChem is used to allocate arrays for the\n!  KPP solver.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_FullChem( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE aciduptake_DustChemFuncs, ONLY : aciduptake_InitDustChem\n    USE ErrCode_Mod\n    USE fullchem_SulfurChemFuncs, ONLY : fullchem_InitSulfurChem\n    USE Gckpp_Monitor,            ONLY : Eqn_Names, Fam_Names\n    USE Gckpp_Precision\n    USE Gckpp_Parameters,         ONLY : nFam, nReact, nSpec\n    USE Gckpp_Global,             ONLY : Henry_K0, Henry_CR, MW, SR_MW\n    USE Input_Opt_Mod,            ONLY : OptInput\n    USE KppSa_Interface_Mod,      ONLY : KppSa_Config\n    USE State_Chm_Mod,            ONLY : ChmState\n    USE State_Chm_Mod,            ONLY : Ind_\n    USE State_Diag_Mod,           ONLY : DgnState\n    USE State_Grid_Mod,           ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Diagnostics State object\n    TYPE(DgnState), INTENT(IN)  :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  14 Dec 2015 - M.S. Long   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: KppId,    N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg,   ThisLoc\n\n#if defined(MPI_LOAD_BALANCE)\n    INTEGER :: NCELL_local, i\n    INTEGER(KIND=MPI_ADDRESS_KIND) :: win_size\n    INTEGER :: disp\n    INTEGER, ALLOCATABLE :: sizes(:)\n    INTEGER, ALLOCATABLE :: prefix(:)\n#endif\n\n    !========================================================================\n    ! Init_FullChem begins here!\n    !========================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n\n    ! Do the following only if it is a full-chemistry simulation\n    ! NOTE: If future specialty simulations use the KPP solver,\n    ! modify the IF statement accordingly to allow initialization\n    IF ( .not. Input_Opt%ITS_A_FULLCHEM_SIM ) RETURN\n\n    !========================================================================\n    ! Initialize variables\n    !========================================================================\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Init_FullChem (in module GeosCore/FullChem_mod.F90)'\n\n    ! Debug output\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 )\n100    FORMAT( '     - INIT_FULLCHEM: Allocating arrays' )\n\n       WRITE( 6 ,'(a)' ) ' KPP Reaction Reference '\n       DO N = 1, NREACT\n          WRITE( 6, '(i8,a3,a85)' ) N,' | ',EQN_NAMES(N)\n       END DO\n    ENDIF\n\n    ! Initialize species flags\n    id_CH4      = Ind_( 'CH4', 'A'     ) ! CH4 advected species\n    id_HO2      = Ind_( 'HO2'          )\n    id_NH3      = Ind_( 'NH3'          )\n    id_O3P      = Ind_( 'O'            )\n    id_O1D      = Ind_( 'O1D'          )\n    id_OH       = Ind_( 'OH'           )\n    id_SO4      = Ind_( 'SO4'          )\n    id_SALA     = Ind_( 'SALA'         )\n    id_SALAAL   = Ind_( 'SALAAL'       )\n    id_SALC     = Ind_( 'SALC'         )\n    id_SALCAL   = Ind_( 'SALCAL'       )\n#ifdef TOMAS\n    id_NK05     = Ind_( 'NK5'          )\n    id_NK08     = Ind_( 'NK8'          )\n    id_NK10     = Ind_( 'NK10'         )\n    id_NK20     = Ind_( 'NK20'         )\n#endif\n\n#ifdef MODEL_GEOS\n    ! ckeller\n    id_O3       = Ind_( 'O3'           )\n    id_A3O2     = Ind_( 'A3O2'         )\n    id_ATO2     = Ind_( 'ATO2'         )\n    id_BRO2     = Ind_( 'BRO2'         )\n    id_ETO2     = Ind_( 'ETO2'         )\n    id_LIMO2    = Ind_( 'LIMO2'        )\n    id_MO2      = Ind_( 'MO2'          )\n    id_PIO2     = Ind_( 'PIO2'         )\n    id_PO2      = Ind_( 'PO2'          )\n    id_PRN1     = Ind_( 'PRN1'         )\n    id_R4N1     = Ind_( 'R4N1'         )\n    id_R4O2     = Ind_( 'R4O2'         )\n    id_TRO2     = Ind_( 'TRO2'         )\n    id_XRO2     = Ind_( 'XRO2'         )\n    id_IHOO1    = Ind_( 'IHOO1'        )\n    id_IHOO4    = Ind_( 'IHOO4'        )\n    id_IHCOO    = Ind_( 'IHCOO'        )\n    id_IHPOO1   = Ind_( 'IHPOO1'       )\n    id_IHPOO2   = Ind_( 'IHPOO2'       )\n    id_IHPOO3   = Ind_( 'IHPOO3'       )\n    id_IEPOXAOO = Ind_( 'IEPOXAOO'     )\n    id_IEPOXBOO = Ind_( 'IEPOXBOO'     )\n    id_C4HVP1   = Ind_( 'C4HVP1'       )\n    id_C4HVP2   = Ind_( 'C4HVP2'       )\n    id_HPALD1OO = Ind_( 'HPALD1OO'     )\n    id_HPALD2OO = Ind_( 'HPALD2OO'     )\n    id_ISOPNOO1 = Ind_( 'ISOPNOO1'     )\n    id_ISOPNOO2 = Ind_( 'ISOPNOO2'     )\n    id_INO2B    = Ind_( 'INO2B'        )\n    id_INO2D    = Ind_( 'INO2D'        )\n    id_IDHNBOO  = Ind_( 'IDHNBOO'      )\n    id_IDHNDOO1 = Ind_( 'IDHNDOO1'     )\n    id_IDHNDOO2 = Ind_( 'IDHNDOO2'     )\n    id_IHPNBOO  = Ind_( 'IHPNBOO'      )\n    id_IHPNDOO  = Ind_( 'IHPNDOO'      )\n    id_ICNOO    = Ind_( 'ICNOO'        )\n    id_IDNOO    = Ind_( 'IDNOO'        )\n#endif\n\n#ifdef MODEL_CESM\n    ! hplin\n    id_TSOA0    = Ind_('TSOA0')\n    id_TSOA1    = Ind_('TSOA1')\n    id_TSOA2    = Ind_('TSOA2')\n    id_TSOA3    = Ind_('TSOA3')\n    id_ASOA1    = Ind_('ASOA1')\n    id_ASOA2    = Ind_('ASOA2')\n    id_ASOA3    = Ind_('ASOA3')\n    id_ASOAN    = Ind_('ASOAN')\n    id_TSOG0    = Ind_('TSOG0')\n    id_TSOG1    = Ind_('TSOG1')\n    id_TSOG2    = Ind_('TSOG2')\n    id_TSOG3    = Ind_('TSOG3')\n    id_ASOG1    = Ind_('ASOG1')\n    id_ASOG2    = Ind_('ASOG2')\n    id_ASOG3    = Ind_('ASOG3')\n    id_NIT      = Ind_('NIT')\n    id_SO4s     = Ind_('SO4s')\n    id_NITs     = Ind_('NITs')\n    id_HNO3     = Ind_('HNO3')\n#endif\n\n    ! Set flags to denote if each species is defined\n    ok_HO2      = ( id_HO2 > 0         )\n    ok_O1D      = ( id_O1D > 0         )\n    ok_O3P      = ( id_O3P > 0         )\n    ok_OH       = ( id_OH  > 0         )\n\n    ! Should we archive OH, HO2, O1D, O3P diagnostics?\n    Do_Diag_OH_HO2_O1D_O3P = (                                               &\n#ifdef MODEL_GEOS\n                               State_Diag%Archive_O3concAfterChem       .or. &\n                               State_Diag%Archive_RO2concAfterChem      .or. &\n#endif\n                               State_Diag%Archive_OHconcAfterChem       .or. &\n                               State_Diag%Archive_HO2concAfterChem      .or. &\n                               State_Diag%Archive_O1DconcAfterChem      .or. &\n                               State_Diag%Archive_O3PconcAfterChem          )\n\n\n    !========================================================================\n    ! Assign default values for KPP absolute and relative tolerances\n    ! for species where these have not been explicitly defined.\n    !========================================================================\n    WHERE( State_Chm%KPP_AbsTol == MISSING_DBLE )\n       State_Chm%KPP_AbsTol = 1.0e-2_f8\n    ENDWHERE\n\n    WHERE( State_Chm%KPP_RelTol == MISSING_DBLE )\n       State_Chm%KPP_RelTol = 0.5e-2_f8\n    ENDWHERE\n\n    !========================================================================\n    ! Save physical parameters from the species database into KPP arrays\n    ! in gckpp_Global.F90.  These are for the hetchem routines.\n    !========================================================================\n    DO KppId = 1, State_Chm%nKppSpc + State_Chm%nOmitted\n       N                  = State_Chm%Map_KppSpc(KppId)\n       IF ( N > 0 ) THEN\n          MW(KppId)       = State_Chm%SpcData(N)%Info%MW_g\n          SR_MW(KppId)    = SQRT( MW(KppId ) )\n          HENRY_K0(KppId) = State_Chm%SpcData(N)%Info%Henry_K0\n          HENRY_CR(KppId) = State_Chm%SpcData(N)%Info%Henry_CR\n       ENDIF\n    ENDDO\n    !========================================================================\n    ! Allocate arrays\n    !========================================================================\n\n    ! Initialize\n    id_PSO4 = -1\n    id_PCO  = -1\n    id_LCH4 = -1\n\n    !------------------------------------------------------------------------\n    ! Pre-store the KPP indices for each KPP prod/loss species or family\n    !------------------------------------------------------------------------\n\n    IF ( nFam > 0 ) THEN\n\n       ! Allocate mapping array for KPP Ids for prod/loss diagnostic\n       ALLOCATE( PL_Kpp_Id( nFam ), STAT=RC )\n       CALL GC_CheckVar( 'fullchem_mod.F90:PL_Kpp_Id', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! Loop over all KPP prod/loss species\n       DO N = 1, nFam\n\n          ! NOTE: KppId is the KPP ID # for each of the prod and loss\n          ! diagnostic species.  This is the value used to index the\n          ! KPP \"VAR\" array (in module gckpp_Global.F90).\n          KppID = Ind_( TRIM ( Fam_Names(N) ), 'K' )\n\n          ! Find the KPP Id corresponding to PCO and LCH4\n          ! so that we can save output for CO in carbon simulations\n          IF ( TRIM( Fam_Names(N) ) == 'PCO'  ) id_PCO  = KppId\n          IF ( TRIM( Fam_Names(N) ) == 'LCH4' ) id_LCH4 = KppId\n\n          ! Find the KPP Id corresponding to PSO4\n          ! so that we can save output for TOMAS simulations\n          IF ( TRIM( Fam_Names(N) ) == 'PSO4'  ) id_PSO4  = KppId\n\n          ! Exit if an invalid ID is encountered\n          IF ( KppId <= 0 ) THEN\n             ErrMsg = 'Invalid KPP ID for prod/loss species: '            // &\n                       TRIM( Fam_Names(N) )\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! If the species ID is OK, save in ND65_Kpp_Id\n          PL_Kpp_Id(N) = KppId\n       ENDDO\n\n    ENDIF\n\n#ifdef MODEL_CESM\n    !------------------------------------------------------------------------\n    ! If we are finding H2SO4_RATE from a fullchem\n    ! simulation for the CESM, throw an error if we cannot find\n    ! the PSO4 prod family in this KPP mechanism.\n    !------------------------------------------------------------------------\n    IF ( id_PSO4 < 1 ) THEN\n       ErrMsg = 'Could not find PSO4 in list of KPP families!  This   ' // &\n                'is needed for State_Chm%H2SO4_PRDR and coupling to CESM!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !------------------------------------------------------------------------\n    ! If we are archiving the P(CO) from CH4 and from NMVOC from a fullchem\n    ! simulation for the CO in carbon simulation, throw an error if we cannot\n    ! find the PCO or LCH4 prod/loss families in this KPP mechanism.\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_ProdCOfromCH4    .or.                            &\n         State_Diag%Archive_ProdCOfromNMVOC ) THEN\n\n       IF ( id_PCO < 1 ) THEN\n          ErrMsg = 'Could not find PCO in list of KPP families!  This   ' // &\n                   'is needed to archive the ProdCOfromCH4 diagnostic!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( id_LCH4 < 1 ) THEN\n          ErrMsg = 'Could not find LCH4 in list of KPP families!  This '  // &\n                   'is needed to archive the ProdCOfromNMVOC diagnostic!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Initialize sulfate chemistry code (cf Mike Long)\n    !------------------------------------------------------------------------\n    CALL fullchem_InitSulfurChem( RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"fullchem_InitSulfurCldChem\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Initialize dust acid uptake code (Mike Long, Bob Yantosca)\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%LDSTUP ) THEN\n       CALL aciduptake_InitDustChem( RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"aciduptake_InitDustChem\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Initialize the KPP standalone interface, which will save model state\n    ! for the grid cells specified in kpp_standalone_interface.yml.\n    ! This is needed for input to the KPP standalone box model.\n    !------------------------------------------------------------------------\n    CALL KppSa_Config( Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"KPP_Standalone\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n#if defined(MPI_LOAD_BALANCE)\n    ! Setup shared memory\n    ! Initialize window handles\n    win_C_1D        = MPI_WIN_NULL\n    win_RCONST_1D   = MPI_WIN_NULL\n    win_ICNTRL_1D   = MPI_WIN_NULL\n    win_RCNTRL_1D   = MPI_WIN_NULL\n    win_ISTATUS_1D  = MPI_WIN_NULL\n    win_RSTATE_1D   = MPI_WIN_NULL\n    win_cell_status = MPI_WIN_NULL\n\n    nicntrl  = 20\n    nrcntrl  = 20\n    nistatus = 20\n    nrstate  = 20\n\n    ! MPI shared memory setup\n    CALL MPI_Comm_split_type(Input_Opt%mpiComm, MPI_COMM_TYPE_SHARED, &\n         0, MPI_INFO_NULL, shm_comm, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Comm_split_type failed', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Comm_rank(shm_comm, shm_rank, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Comm_rank failed', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Comm_size(shm_comm, shm_size, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Comm_size failed', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    NCELL_local = State_Grid%NX * State_Grid%NY * State_Grid%NZ\n    NCELL_MAX = NCELL_local\n\n    Allocate(Idx_to_IJL(3, NCELL_MAX), STAT=RC)\n    CALL GC_CheckVar( 'fullchem_mod.F90:Idx_to_IJL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) Then\n       CALL GC_Error( 'Failed to allocate Idx_to_IJL', RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !gather local sizes\n    IF (shm_rank == 0) THEN\n       ALLOCATE(sizes(shm_size))\n    ELSE\n       ALLOCATE(sizes(1)) ! dummy for non-root\n    ENDIF\n    CALL MPI_Gather(NCELL_local, 1, MPI_INTEGER, sizes, 1, MPI_INTEGER, &\n         0, shm_comm, ierr)\n\n    !build prefix sum and NCELL_total on rank-0    \n    IF (shm_rank == 0) THEN\n       ALLOCATE(prefix(shm_size))\n       prefix(1) = 0\n       DO i = 2, shm_size\n          prefix(i) = prefix(i-1) + sizes(i-1)\n       END DO\n       NCELL_total = prefix(shm_size) + sizes(shm_size)\n    ELSE\n       ALLOCATE(prefix(1)) ! dummy for non-root\n    ENDIF\n    \n    !broadcast node-wide constants and my true offset\n    CALL MPI_Bcast(NCELL_total, 1, MPI_INTEGER, 0, shm_comm, ierr)\n\n    CALL MPI_Scatter(prefix, 1, MPI_INTEGER, offset, 1, MPI_INTEGER, &\n         0, shm_comm, ierr)\n\n    ! Clean up\n    DEALLOCATE(prefix, sizes)\n\n    ! debug print: check shared memory size\n    !  WRITE(6, *) 'shm_rank:', shm_rank, 'shm_size:', shm_size\n    !  WRITE(6, *) 'NCELL_local:', NCELL_local, 'NCELL_total:', &\n    !      NCELL_total, 'offset:', offset\n    !  WRITE(6, *) 'NSPEC:', NSPEC, 'NREACT:', NREACT, 'NRSTATE:', NRSTATE\n    !  WRITE(6, *) 'NICNTRL:', NICNTRL, 'NRCNTRL:', NRCNTRL, 'NISTATUS:', &\n    !      NISTATUS\n    \n    ! Allocate shared memory windows\n    disp = SIZEOF(C_1D(1,1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NSPEC, KIND=MPI_ADDRESS_KIND) * INT(NCELL_total, KIND=MPI_ADDRESS_KIND) * INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, C_1D_flat_int, win_C_1D, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for C_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Win_shared_query(win_C_1D, 0, win_size, disp, C_1D_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for C_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    C_1D_flat_ptr = TRANSFER(C_1D_flat_int, C_1D_flat_ptr)\n    CALL C_F_POINTER(C_1D_flat_ptr, C_1D, [NSPEC, NCELL_total])\n    IF (.NOT. ASSOCIATED(C_1D)) THEN\n       CALL GC_Error('C_1D is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    disp = SIZEOF(RCONST_1D(1,1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NREACT, KIND=MPI_ADDRESS_KIND) *  &\n            INT(NCELL_total, KIND=MPI_ADDRESS_KIND) *   &\n            INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    ENDIF\n\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, RCONST_1D_flat_int, win_RCONST_1D, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for RCONST_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Win_shared_query(win_RCONST_1D, 0, win_size, disp, RCONST_1D_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for RCONST_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    RCONST_1D_flat_ptr = TRANSFER(RCONST_1D_flat_int, RCONST_1D_flat_ptr)\n    CALL C_F_POINTER(RCONST_1D_flat_ptr, RCONST_1D, [NREACT, NCELL_total])\n    IF (.NOT. ASSOCIATED(RCONST_1D)) THEN\n       CALL GC_Error('RCONST_1D is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    disp = SIZEOF(ICNTRL_1D(1,1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NICNTRL, KIND=MPI_ADDRESS_KIND) * INT(NCELL_total, KIND=MPI_ADDRESS_KIND) * INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, ICNTRL_1D_flat_int, win_ICNTRL_1D, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for ICNTRL_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Win_shared_query(win_ICNTRL_1D, 0, win_size, disp, ICNTRL_1D_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for ICNTRL_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    ICNTRL_1D_flat_ptr = TRANSFER(ICNTRL_1D_flat_int, ICNTRL_1D_flat_ptr)\n    CALL C_F_POINTER(ICNTRL_1D_flat_ptr, ICNTRL_1D, [NICNTRL, NCELL_total])\n    IF (.NOT. ASSOCIATED(ICNTRL_1D)) THEN\n       CALL GC_Error('ICNTRL_1D is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    disp = SIZEOF(RCNTRL_1D(1,1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NRCNTRL, KIND=MPI_ADDRESS_KIND) * INT(NCELL_total, KIND=MPI_ADDRESS_KIND) * INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, RCNTRL_1D_flat_int, win_RCNTRL_1D, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for RCNTRL_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Win_shared_query(win_RCNTRL_1D, 0, win_size, disp, RCNTRL_1D_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for RCNTRL_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    RCNTRL_1D_flat_ptr = TRANSFER(RCNTRL_1D_flat_int, RCNTRL_1D_flat_ptr)\n    CALL C_F_POINTER(RCNTRL_1D_flat_ptr, RCNTRL_1D, [NRCNTRL, NCELL_total])\n    IF (.NOT. ASSOCIATED(RCNTRL_1D)) THEN\n       CALL GC_Error('RCNTRL_1D is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    disp = SIZEOF(ISTATUS_1D(1,1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NISTATUS, KIND=MPI_ADDRESS_KIND) * INT(NCELL_total, KIND=MPI_ADDRESS_KIND) * INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, ISTATUS_1D_flat_int, win_ISTATUS_1D, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for ISTATUS_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Win_shared_query(win_ISTATUS_1D, 0, win_size, disp, ISTATUS_1D_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for ISTATUS_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    ISTATUS_1D_flat_ptr = TRANSFER(ISTATUS_1D_flat_int, ISTATUS_1D_flat_ptr)\n    CALL C_F_POINTER(ISTATUS_1D_flat_ptr, ISTATUS_1D, [NISTATUS, NCELL_total])\n    IF (.NOT. ASSOCIATED(ISTATUS_1D)) THEN\n       CALL GC_Error('ISTATUS_1D is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    disp = SIZEOF(RSTATE_1D(1,1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NRSTATE, KIND=MPI_ADDRESS_KIND) * INT(NCELL_total, KIND=MPI_ADDRESS_KIND) * INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n    \n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, RSTATE_1D_flat_int, win_RSTATE_1D, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for RSTATE_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    CALL MPI_Win_shared_query(win_RSTATE_1D, 0, win_size, disp, RSTATE_1D_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for RSTATE_1D', RC, ThisLoc)\n       RETURN\n    ENDIF\n    RSTATE_1D_flat_ptr = TRANSFER(RSTATE_1D_flat_int, RSTATE_1D_flat_ptr)\n    CALL C_F_POINTER(RSTATE_1D_flat_ptr, RSTATE_1D, [NRSTATE, NCELL_total])\n    IF (.NOT. ASSOCIATED(RSTATE_1D)) THEN\n       CALL GC_Error('RSTATE_1D is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    disp = SIZEOF(cell_status(1))\n    IF (shm_rank == 0) THEN\n       win_size = INT(NCELL_total, KIND=MPI_ADDRESS_KIND) * INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm, cell_status_flat_int, win_cell_status, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for cell_status', RC, ThisLoc)\n       RETURN\n    END IF\n\n    CALL MPI_Win_shared_query(win_cell_status, 0, win_size, disp, cell_status_flat_int, RC)\n    IF (RC /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for cell_status', RC, ThisLoc)\n       RETURN\n    END IF\n\n    cell_status_flat_ptr = TRANSFER(cell_status_flat_int, cell_status_flat_ptr)\n    CALL C_F_POINTER(cell_status_flat_ptr, cell_status, [NCELL_total])\n\n    IF (.NOT. ASSOCIATED(cell_status)) THEN\n       CALL GC_Error('cell_status is not associated after C_F_POINTER', RC, ThisLoc)\n       RETURN\n    END IF\n\n    disp = SIZEOF(next_cell_index)\n    IF (shm_rank == 0) THEN\n       win_size = INT(disp, KIND=MPI_ADDRESS_KIND)\n    ELSE\n       win_size = 0\n    END IF\n\n    CALL MPI_Win_allocate_shared(win_size, disp, MPI_INFO_NULL, shm_comm,  &\n         next_cell_index_int, win_next_cell_index, ierr)\n    IF (ierr /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_allocate_shared failed for next_cell_index', ierr, ThisLoc)\n       RETURN\n    END IF\n\n    CALL MPI_Win_shared_query(win_next_cell_index, 0, win_size, disp,      &\n         next_cell_index_int, ierr)\n    IF (ierr /= MPI_SUCCESS) THEN\n       CALL GC_Error('MPI_Win_shared_query failed for next_cell_index', ierr, ThisLoc)\n       RETURN\n    END IF\n\n    next_cell_index_ptr = TRANSFER(next_cell_index_int, next_cell_index_ptr)\n    CALL C_F_POINTER(next_cell_index_ptr, next_cell_index)\n\n    IF (.NOT. ASSOCIATED(next_cell_index)) THEN\n       CALL GC_Error('next_cell_index not associated', RC, ThisLoc)\n       RETURN\n    END IF\n\n#endif   ! MPI_LOAD_BALANCE\n  \n  END SUBROUTINE Init_FullChem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_fullchem\n!\n! !DESCRIPTION: Subroutine Cleanup\\_FullChem deallocates module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_FullChem( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE KppSa_Interface_Mod, ONLY : KppSa_Cleanup\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  24 Aug 2016 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! Cleanup_FullChem begins here!\n    !=================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    IF ( ALLOCATED( PL_Kpp_Id ) ) THEN\n       DEALLOCATE( PL_Kpp_Id, STAT=RC  )\n       CALL GC_CheckVar( 'fullchem_mod.F90:PL_Kpp_Id', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( JvCountDay ) ) THEN\n       DEALLOCATE( JvCountDay, STAT=RC  )\n       CALL GC_CheckVar( 'fullchem_mod.F90:JvCountDay', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( JvSumDay ) ) THEN\n       DEALLOCATE( JvSumDay, STAT=RC  )\n       CALL GC_CheckVar( 'fullchem_mod.F90:JvSumDay', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( JvCountMon ) ) THEN\n       DEALLOCATE( JvCountMon, STAT=RC  )\n       CALL GC_CheckVar( 'fullchem_mod.F90:JvCountMon', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( JvSumMon ) ) THEN\n       DEALLOCATE( JvSumMon, STAT=RC  )\n       CALL GC_CheckVar( 'fullchem_mod.F90:JvSumMon', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    ! Deallocate variables from kpp standalone module\n    ! psturm, 03/22/2024\n    CALL KppSa_Cleanup( RC )\n\n#if defined(MPI_LOAD_BALANCE)\n\n    ! Arrays for load balancing\n    IF ( ASSOCIATED( C_1D            ) ) NULLIFY(C_1D           )\n    IF ( ASSOCIATED( RCONST_1D       ) ) NULLIFY(RCONST_1D      )\n    IF ( ASSOCIATED( ICNTRL_1D       ) ) NULLIFY(ICNTRL_1D      )\n    IF ( ASSOCIATED( RCNTRL_1D       ) ) NULLIFY(RCNTRL_1D      )\n    IF ( ASSOCIATED( ISTATUS_1D      ) ) NULLIFY(ISTATUS_1D     )\n    IF ( ASSOCIATED( RSTATE_1D       ) ) NULLIFY(RSTATE_1D      )\n    IF ( ASSOCIATED( cell_status     ) ) NULLIFY(cell_status    )\n    IF ( ASSOCIATED( next_cell_index ) ) NULLIFY(next_cell_index)\n\n    IF ( ALLOCATED( Idx_to_IJL ) ) Then\n       Deallocate(Idx_to_IJL, STAT=RC)\n       CALL GC_CheckVar( 'fullchem_mod.F90:Idx_to_IJL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF (win_C_1D /= MPI_Win_NULL)           &\n         CALL MPI_Win_free(win_C_1D, ierr)\n\n    IF (win_RCONST_1D /= MPI_Win_NULL)      &\n         CALL MPI_Win_free(win_RCONST_1D, ierr)\n\n    IF (win_ICNTRL_1D /= MPI_Win_NULL)      &\n         CALL MPI_Win_free(win_ICNTRL_1D, ierr)\n\n    IF (win_RCNTRL_1D /= MPI_Win_NULL)      &\n         CALL MPI_Win_free(win_RCNTRL_1D, ierr)\n\n    IF (win_ISTATUS_1D /= MPI_Win_NULL)     &\n         CALL MPI_Win_free(win_ISTATUS_1D, ierr)\n\n    IF (win_RSTATE_1D /= MPI_Win_NULL)      &\n         CALL MPI_Win_free(win_RSTATE_1D, ierr)\n\n    IF (win_cell_status /= MPI_Win_NULL)    &\n         CALL MPI_Win_free(win_cell_status, ierr)\n\n    IF (win_next_cell_index /= MPI_Win_NULL)&\n         CALL MPI_Win_free(win_next_cell_index, ierr)\n\n    IF (shm_comm /= MPI_COMM_NULL)          &\n         CALL MPI_Comm_free(shm_comm, ierr)\n\n#endif  ! MPI_LOAD_BALANCE\n   \n  END SUBROUTINE Cleanup_FullChem\n!EOC\nEND MODULE FullChem_Mod\n"
  },
  {
    "path": "GeosCore/gc_environment_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: gc_environment_mod.F90\n!\n! !DESCRIPTION: Module GC\\_ENVIRONMENT\\_MOD establishes the runtime\n!  environment for the GEOS-Chem.  It is designed to receive model parameter\n!  and geophysical environment information and allocate memory based upon it.\n!\\\\\n!\\\\\n!  It provides routines to do the following:\n!\n! \\begin{itemize}\n! \\item Allocate geo-spatial arrays\n! \\item Initialize met. field derived type.\n! \\item Initialize Chemistry, Metorology, Emissions, and Physics States\n! \\end{itemize}\n!\n! !INTERFACE:\n!\nMODULE GC_Environment_Mod\n!\n! !USES\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: GC_Allocate_All\n  PUBLIC  :: GC_Init_StateObj\n  PUBLIC  :: GC_Init_Grid\n  PUBLIC  :: GC_Init_Extra\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n#ifdef TOMAS\n  PRIVATE :: INIT_TOMAS_MICROPHYSICS\n#endif\n!\n! !REMARKS:\n!  For consistency, we should probably move the met state initialization\n!  to the same module where the met state derived type is contained.\n!\n! !REVISION HISTORY:\n!  26 Jan 2012 - M. Long     - Created module file\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gc_allocate_all\n!\n! !DESCRIPTION: Subroutine GC\\_ALLOCATE\\_ALL allocates all LAT/LON\n!  ALLOCATABLE arrays for global use by the GEOS-Chem either as a standalone\n!  program or module.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_Allocate_All( Input_Opt,                        &\n                              State_Grid,      RC,              &\n                              value_I_LO,      value_J_LO,      &\n                              value_I_HI,      value_J_HI,      &\n                              value_IM,        value_JM,        &\n                              value_LM,                         &\n                              value_IM_WORLD,  value_JM_WORLD,  &\n                              value_LM_WORLD,  value_LLSTRAT )\n!\n! !USES:\n!\n#ifdef FASTJX\n    USE CMN_FJX_Mod,     ONLY : Init_CMN_FJX\n#endif\n    USE ErrCode_Mod\n    USE Input_Opt_Mod\n    USE State_Grid_Mod,  ONLY : GrdState\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid       ! Grid State object\n    INTEGER,        OPTIONAL      :: value_I_LO       ! Min local lon index\n    INTEGER,        OPTIONAL      :: value_J_LO       ! Min local lat index\n    INTEGER,        OPTIONAL      :: value_I_HI       ! Max local lon index\n    INTEGER,        OPTIONAL      :: value_J_HI       ! Max local lat index\n    INTEGER,        OPTIONAL      :: value_IM         ! Local # of lons\n    INTEGER,        OPTIONAL      :: value_JM         ! Local # of lats\n    INTEGER,        OPTIONAL      :: value_LM         ! Local # of levels\n    INTEGER,        OPTIONAL      :: value_IM_WORLD   ! Global # of lons\n    INTEGER,        OPTIONAL      :: value_JM_WORLD   ! Global # of lats\n    INTEGER,        OPTIONAL      :: value_LM_WORLD   ! Global # of levels\n    INTEGER,        OPTIONAL      :: value_LLSTRAT    ! # of strat. levels\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt        ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC               ! Success or failure?\n!\n! !REMARKS:\n!  For error checking, return up to the main routine w/ an error code.\n!  This can be improved upon later.\n!\n! !REVISION HISTORY:\n!  26 Jan 2012 - M. Long     - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n#ifdef MODEL_GEOS\n    ! Integers\n    INTEGER            :: LLTROP\n#endif\n\n    ! Strings\n    INTEGER            :: LLSTRAT\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! GC_Allocate_All begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at GC_Allocate_All  (in module GeosCore/gc_environment_mod.F90)'\n\n#ifdef FASTJX\n    ! Throw an error if FAST-JX is used for simulations other than Hg\n    IF ( .not. Input_Opt%ITS_A_MERCURY_SIM ) THEN\n       ErrMsg = 'FAST-JX is only supported in the Hg simulation!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize CMN_FJX_mod.F90\n    CALL Init_CMN_FJX( Input_Opt,State_Grid, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered within call to \"Init_CMN_FJX\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n#endif\n\n  END SUBROUTINE GC_Allocate_All\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gc_init_stateobj\n!\n! !DESCRIPTION: Subroutine GC\\_INIT\\_STATEOBJ initializes the top-level data\n!  structures that are either passed to/from GC or between GC components\n!  (emis->transport->chem->diagnostics->etc)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_Init_StateObj( Diag_List, TaggedDiag_List, Input_Opt,   &\n                               State_Chm, State_Diag,      State_Grid,  &\n                               State_Met, RC                           )\n!\n! !USES:\n!\n    USE DiagList_Mod\n    USE TaggedDiagList_Mod\n    USE Diagnostics_Mod\n    USE ErrCode_Mod\n    USE Input_Opt_Mod\n    USE State_Chm_Mod\n    USE State_Grid_Mod\n    USE State_Met_Mod\n    USE State_Diag_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(DgnList),       INTENT(IN)    :: Diag_List       ! Diagnostics List\n    TYPE(TaggedDgnList), INTENT(IN)    :: TaggedDiag_List ! Tagged Diag List\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt       ! Input Options\n    TYPE(ChmState),      INTENT(INOUT) :: State_Chm       ! Chemistry State\n    TYPE(DgnState),      INTENT(INOUT) :: State_Diag      ! Diagnostics State\n    TYPE(GrdState),      INTENT(INOUT) :: State_Grid      ! Grid State\n    TYPE(MetState),      INTENT(INOUT) :: State_Met       ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC              ! Success or failure\n!\n! !REMARKS:\n!  Need to add better error checking, currently we just return upon error.\n!\n! !REVISION HISTORY:\n!  26 Jan 2012 - M. Long     - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    ErrMsg  = ''\n    ThisLoc = ' -> at GC_Init_StateObj (in GeosCore/gc_environment_mod.F90)'\n\n    !=======================================================================\n    ! Initialize the Chemistry State object\n    !=======================================================================\n    CALL Init_State_Chm(  Input_Opt       = Input_Opt,                      &\n                          State_Chm       = State_Chm,                      &\n                          State_Grid      = State_Grid,                     &\n                          TaggedDiag_List = TaggedDiag_List,                &\n                          RC              = RC                             )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered within call to \"Init_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Initialize the Diagnostics State object\n    !=======================================================================\n    CALL Init_State_Diag( Input_Opt       = Input_Opt,                      &  \n                          State_Chm       = State_Chm,                      &  \n                          State_Grid      = State_Grid,                     &  \n                          Diag_List       = Diag_List,                      &  \n                          TaggedDiag_List = TaggedDiag_List,                &\n                          State_Diag      = State_Diag,                     &  \n                          RC              = RC                             )   \n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered within call to \"Init_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Initialize the Meteorology State object\n    !=======================================================================\n    CALL Init_State_Met( Input_Opt   = Input_Opt,                           &\n                         State_Grid  = State_Grid,                          &\n                         State_Met   = State_Met,                           &\n                         RC          = RC                                  )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered within call to \"Init_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE GC_Init_StateObj\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gc_init_grid\n!\n! !DESCRIPTION: Subroutine GC\\_INIT\\_GRID calls routines from\n!  gc\\_grid\\_mod.F90 to initialize the horizontal grid parameters.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_Init_Grid( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n    USE GC_Grid_Mod,    ONLY : Compute_Grid\n#endif\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : Allocate_State_Grid, Register_State_Grid\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  The module grid_mod.F90 has been modified to save grid parameters in 3D\n!  format, which will facilitate interfacing GEOS-Chem to a GCM.\n!                                                                             .\n!  The module global_grid_mod.F90 contains several of the global grid arrays\n!  (*_g) originally in grid_mod.F. These arrays are used in regridding GFED3\n!  biomass emissions, which are available on a 0.5x0.5 global grid. The global\n!  arrays may need to be used in the future for regridding other emissions for\n!  nested grids.\n!                                                                             .\n! !REVISION HISTORY:\n!  01 Mar 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! Define inputs depending on the grid that is selected\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n       ' -> at GC_Init_Grid (in module GeosCore/gc_environment_mod.F90)'\n\n    !=================================================================\n    ! Initialize the horizontal grid\n    !=================================================================\n\n    ! Allocate State_Grid arrays\n    CALL Allocate_State_Grid( Input_Opt, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Allocate_State_Grid\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n    ! Compute the grid centers & edges\n    ! (skip if using an external model like GCHP or NASA/GEOS)\n    CALL Compute_Grid( Input_Opt, State_Grid, RC)\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Compute_Grid\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    ! Register State_Grid arrays\n    CALL Register_State_Grid( Input_Opt, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Register_State_Grid\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE GC_Init_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gc_init_extra\n!\n! !DESCRIPTION: Suborutine GC\\_INIT\\_EXTRA initializes other GEOS-Chem\n!  modules that have not been initialized in either GC\\_Allocate\\_All or\n!  GC\\_Init\\_all.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_Init_Extra( Diag_List,  Input_Opt,  State_Chm,               &\n                            State_Diag, State_Grid, State_Met, RC           )\n!\n! !USES:\n!\n    USE Aerosol_Mod,        ONLY : Init_Aerosol\n    USE Carbon_Mod,         ONLY : Init_Carbon\n    USE Carbon_Gases_Mod,   ONLY : Init_Carbon_Gases\n    USE Depo_Mercury_Mod,   ONLY : Init_Depo_Mercury\n    USE DiagList_Mod,       ONLY : DgnList\n    USE Drydep_Mod,         ONLY : Init_Drydep\n    USE Dust_Mod,           ONLY : Init_Dust\n    USE ErrCode_Mod\n    USE Error_Mod,          ONLY : Debug_Msg\n    USE FullChem_Mod,       ONLY : Init_FullChem\n    USE Get_Ndep_Mod,       ONLY : Init_Get_Ndep\n    USE Input_Mod,          ONLY : Do_Error_Checks\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Land_Mercury_Mod,   ONLY : Init_Land_Mercury\n    USE Mercury_Mod,        ONLY : Init_Mercury\n    USE Ocean_Mercury_Mod,  ONLY : Init_Ocean_Mercury\n    USE POPs_Mod,           ONLY : Init_POPs\n    USE Pressure_Mod,       ONLY : Init_Pressure\n    USE Seasalt_Mod,        ONLY : Init_SeaSalt\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Sulfate_Mod,        ONLY : Init_Sulfate\n    USE Tagged_O3_Mod,      ONLY : Init_Tagged_O3\n    USE Vdiff_Mod,          ONLY : Init_Vdiff\n    USE WetScav_Mod,        ONLY : Init_WetScav\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(DgnList ), INTENT(IN)    :: Diag_List   ! Diagnostics list object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Several of the INIT routines now called within GC_Init_Extra had\n!  originally been called from the Run method.  We now gather these INIT\n!  routines here so that they may be called from the Initialization method.\n!  This is necessary when connecting GEOS-Chem to the GEOS-5 GCM via ESMF.\n!                                                                             .\n!  Also note: In the case of a GEOS-Chem dry-run simulation, we will call\n!  these initialization routines, but exit them before any arrays get\n!  allocated.  This will help to reduce the amount of memory used.\n!                                                                             .\n! !REVISION HISTORY:\n!  04 Mar 2013 - R. Yantosca - Initial revision\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! GC_Init_Extra begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = &\n       ' -> at GC_Init_Extra (in module GeosCore/gc_environment_mod.F90)'\n\n    !=======================================================================\n    ! Do some error checking before initializing modules\n    !=======================================================================\n\n    ! Make sure various input options are consistent with the\n    ! species that are defined for the simulation\n    CALL Do_Error_Checks( Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Do_Error_Checks\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Initialize the hybrid pressure module.  Define Ap and Bp.\n    !=======================================================================\n    CALL Init_Pressure( Input_Opt, State_Grid, State_Met, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Init_Pressure\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Call setup routines for drydep\n    !=======================================================================\n    IF ( Input_Opt%LDRYD ) THEN\n\n       ! Setup for dry deposition\n       CALL Init_DryDep( Input_Opt,  State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Drydep\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Initialize \"aerosol_mod.F90\" (move here for dry-run)\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &\n         Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n       CALL Init_Aerosol( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Aerosol\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Exit for dry-run simulations\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !=================================================================\n    ! Call setup routines for wetdep\n    !\n    ! We need to initialize the wetdep module if either wet\n    ! deposition or convection is turned on, so that we can do the\n    ! large-scale and convective scavenging.  Also initialize the\n    ! wetdep module if both wetdep and convection are turned off,\n    ! but chemistry is turned on.  The INIT_WETSCAV routine will also\n    ! allocate the H2O2s and SO2s arrays that are referenced in the\n    ! convection code. (bmy, 9/23/15)\n    !=================================================================\n    IF ( Input_Opt%LCONV   .or.                                              &\n         Input_Opt%LWETD   .or.                                              &\n         Input_Opt%LCHEM ) THEN\n       CALL Init_WetScav( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Wetscav\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Call setup routines from other F90 modules\n    !=================================================================\n\n    !-----------------------------------------------------------------\n    ! Call Init_VDIFF so that we can pass several values from\n    ! Input_Opt to the vdiff_mod.F90. This has to be called\n    ! after the geoschem_config.yml file has been read from disk.\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%LTURB .and. Input_Opt%LNLPBL ) THEN\n       CALL Init_Vdiff( Input_Opt, State_Chm, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Vdiff\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Initialize the GET_NDEP_MOD for soil NOx deposition (bmy, 6/17/16)\n    !-----------------------------------------------------------------\n    CALL Init_Get_Ndep( Input_Opt, State_Chm, State_Diag, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Init_Get_Ndep\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Initialize \"carbon_mod.F90\"\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%LCARB ) THEN\n       CALL Init_Carbon( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Initialize \"dust_mod.F90\"\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%LDUST ) then\n       CALL Init_Dust( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Dust\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Initialize \"seasalt_mod.F90\"\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%LSSALT ) THEN\n       CALL Init_Seasalt( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Seasalt\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Initialize \"sulfate_mod.F90\"\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%LSULF ) THEN\n       CALL Init_Sulfate( Input_Opt,  State_Chm, State_Diag,                 &\n                          State_Grid, State_Met, RC                         )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Sulfate\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Initialize simulation modules here\n    !=================================================================\n\n    !-----------------------------------------------------------------\n    ! Fullchem via KPP\n    !-----------------------------------------------------------------\n\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       CALL Init_FullChem( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_FullChem\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Carbon gases via KPP\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_CARBON_SIM ) THEN\n       CALL Init_Carbon_Gases( Input_Opt,  State_Chm, State_Diag,            &\n                               State_Grid, RC                               )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Carbon_Gases\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Mercury via KPP\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       ! Main mercury module\n       CALL Init_Mercury( Input_Opt,  State_Grid, State_Chm,                 &\n                          State_Diag, State_Met,  RC                        )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Mercury\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Land mercury module\n       CALL Init_Land_Mercury( Input_Opt, State_Chm, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Land_Mercury\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Mercury deposition module\n       CALL Init_Depo_Mercury( Input_Opt, State_Chm, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Depo_Mercury\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Ocean mercury module\n       CALL Init_Ocean_Mercury( Input_Opt, State_Chm, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Ocean_Mercury\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Tagged O3\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n       CALL Init_Tagged_O3( Input_Opt, State_Chm, State_Diag, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_Tagged_O3\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n#ifdef TOMAS\n    !-----------------------------------------------------------------\n    ! TOMAS\n    !-----------------------------------------------------------------\n\n    ! Initialize the TOMAS microphysics package, if necessary\n    CALL Init_Tomas_Microphysics( Input_Opt, State_Chm, State_Grid, RC )\n#endif\n\n    !-----------------------------------------------------------------\n    ! POPs\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_POPS_SIM ) THEN\n       CALL Init_POPs( Input_Opt, State_Chm, State_Grid, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_POPs\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( Input_Opt%Verbose ) CALL DEBUG_MSG( '### a GC_INIT_EXTRA' )\n\n  END SUBROUTINE GC_Init_Extra\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_tomas_microphysics\n!\n! !DESCRIPTION: Subroutine INIT\\_TOMAS\\_MICROPHYS will initialize the\n!  TOMAS microphysics package.  This replaces the former subroutine\n!  READ\\_MICROPHYSICS\\_MENU.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_TOMAS_MICROPHYSICS( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TOMAS_MOD,          ONLY : INIT_TOMAS\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  We now invoke TOMAS by compiling GEOS-Chem and setting either the TOMAS=yes\n!  (30 bins, default) or TOMAS40=yes (40 bins, optional) switches.  The old\n!  LTOMAS logical switch is now obsolete because all of the TOMAS code is\n!  segregated from the rest of GEOS-Chem with #ifdef blocks.  Therefore,\n!  we no longer need to read the microphysics menu, but we still need to\n!  apply some error checks and then call INIT_TOMAS. (bmy, 4/23/13)\n!                                                                             .\n!  The Ind_() function now defines all species ID's.  It returns -1 if\n!  a species cannot be found.  The prior behavior was to return 0 if a\n!  species wasn't found.  Therefore, in order to preserve the logic of the\n!  error checks, we must force any -1's returned by Ind_() to 0's in\n!  this subroutine.\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N, I\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! INIT_TOMAS_MICROPHYSICS begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_Tomas_Microphysics (in GeosCore/gc_environment_mod.F90)'\n    ! Exit if this is a dry-run\n    IF ( Input_Opt%DryRun) RETURN\n\n    ! Halt with error if we are trying to run TOMAS in a simulation\n    ! that does not have any defined aerosols\n    ! Turn off switches for simulations that don't use microphysics\n    IF ( ( .not. Input_Opt%ITS_A_FULLCHEM_SIM )  .and. &\n         ( .not. Input_Opt%ITS_AN_AEROSOL_SIM ) ) THEN\n       ErrMsg = 'TOMAS needs to run with either a full-chemistry ' // &\n                'or offline aerosol simulation!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Halt with error if none of the TOMAS aerosol species are defined\n    I = MAX( Ind_('NK01'  ,'A'), 0 ) &\n      + MAX( Ind_('SF01'  ,'A'), 0 ) &\n      + MAX( Ind_('SS01'  ,'A'), 0 ) &\n      + MAX( Ind_('ECOB01','A'), 0 ) &\n      + MAX( Ind_('ECIL01','A'), 0 ) &\n      + MAX( Ind_('OCOB01','A'), 0 ) &\n      + MAX( Ind_('OCIL01','A'), 0 ) &\n      + MAX( Ind_('DUST01','A'), 0 )\n\n    IF ( I == 0 ) THEN\n       ErrMsg = 'None of the TOMAS aerosols are defined!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Halt with error if sulfate aerosols are not defined\n    IF( Ind_('SF01') > 0 .and. ( .not. Input_Opt%LSULF ) ) THEN\n       ErrMsg = 'Need LSULF on for TOMAS-Sulfate to work (for now)'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Halt with error if carbonaceous aerosols are not defined\n    I = MAX( Ind_('ECOB01','A'), 0 ) &\n      + MAX( Ind_('ECIL01','A'), 0 ) &\n      + MAX( Ind_('OCOB01','A'), 0 ) &\n      + MAX( Ind_('OCIL01','A'), 0 )\n\n    IF ( I > 0 .and. (.not. Input_Opt%LCARB ) ) THEN\n       ErrMsg = 'Need LCARB on for TOMAS-carb to work (for now)'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! All error checks are satisfied, so initialize TOMAS\n    !=================================================================\n    CALL INIT_TOMAS( Input_Opt, State_Chm, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Init_TOMAS\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE INIT_TOMAS_MICROPHYSICS\n!EOC\n#endif\nEND MODULE GC_Environment_Mod\n"
  },
  {
    "path": "GeosCore/get_met_mod.F90",
    "content": "#if defined( MODEL_CLASSIC )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_met_mod.F90\n!\n! !DESCRIPTION: Module GET\\_MET\\_MOD contains variables and routines for\n!  reading the meteorological data, from the HEMCO data structure.\n!\\\\\n!\\\\\n! !INTERFACE:\n\nMODULE Get_Met_Mod\n!\n! !USES:\n!\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Get_Met_2D\n  PUBLIC :: Get_Met_3D\n  PUBLIC :: Get_Met_3De\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  04 Mar 2016 - J.W.Zhuang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Met_2D\n!\n! !DESCRIPTION: Copies the 2D met data from the HEMCO data structure\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Met_2D( Input_Opt, State_Grid, Q, v_name, t_index )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,            ONLY : Error_Stop\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetPtr\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n!\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),  INTENT(IN)            :: Input_Opt  ! Input options\n    TYPE(GrdState),  INTENT(IN)            :: State_Grid ! Grid State object\n    CHARACTER(LEN=*),INTENT(IN)            :: v_name     ! netCDF variable name\n    INTEGER,         INTENT(IN), OPTIONAL  :: t_index    ! Time index(default=1)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f4),        INTENT(OUT)           :: Q(State_Grid%NX, & ! Temporary\n                                                State_Grid%NY)   !  data array\n!\n! !REVISION HISTORY:\n!  04 Mar 2016 - J.W.Zhuang  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: T\n    LOGICAL :: FND\n    INTEGER :: RC          ! Success or failure?\n\n    ! Pointers\n    REAL(f4), POINTER :: Ptr2D(:,:)\n\n    !=======================================================================\n    ! Get_Met_2D begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Nullify pointer\n    Ptr2D => NULL()\n\n    ! Define time index to use\n    IF ( PRESENT(t_index) ) THEN\n       T = t_index\n    ELSE\n       T = 1\n    ENDIF\n\n    ! Get the pointer to the data in the HEMCO data structure\n    CALL HCO_GC_GetPtr( Input_Opt, State_Grid, v_name, Ptr2D, RC, TIDX=T, FOUND=FND )\n\n    ! Stop with error message\n    IF ( RC /= GC_SUCCESS .or. ( .not. FND ) ) THEN\n       CALL ERROR_STOP (trim('Could not find '//v_name//' in HEMCO data list!'), &\n                         'GET_MET_2D (get_met_mod.F90)' )\n    ENDIF\n\n    ! transfer to output array\n    Q = Ptr2D(:,:)\n\n    ! Free the pointer\n    Ptr2D => NULL()\n\n  END SUBROUTINE Get_Met_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Met_3D\n!\n! !DESCRIPTION: Copies the 3D met data from the HEMCO data structure\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Met_3D( Input_Opt, State_Grid, Q, v_name, t_index )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,            ONLY : Error_Stop\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetPtr\n\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n!\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )        :: Input_Opt  ! Input options\n    TYPE(GrdState),   INTENT(IN)           :: State_Grid ! Grid State object\n    CHARACTER(LEN=*), INTENT(IN)           :: v_name     ! netCDF variable name\n    INTEGER,          INTENT(IN), OPTIONAL :: t_index    ! Time index(default=1)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f4),          INTENT(OUT)         :: Q(State_Grid%NX, & ! Temporary\n                                                State_Grid%NY, & !  data array\n                                                State_Grid%NZ)\n!\n! !REVISION HISTORY:\n!  04 Mar 2016 - J.W.Zhuang  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: T\n    LOGICAL :: FND\n    INTEGER :: RC          ! Success or failure?\n\n    ! Pointers\n    REAL(f4), POINTER :: Ptr3D(:,:,:)\n\n    !=======================================================================\n    ! Get_Met_3D begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Nullify pointer\n    Ptr3D => NULL()\n\n    ! Define time index to use\n    IF ( PRESENT(t_index) ) THEN\n       T = t_index\n    ELSE\n       T = 1\n    ENDIF\n\n    ! Get the pointer to the data in the HEMCO data structure\n    CALL HCO_GC_GetPtr( Input_Opt, State_Grid, v_name, Ptr3D, RC, TIDX=T, FOUND=FND )\n\n      ! Stop with error message\n    IF ( RC /= GC_SUCCESS .or. ( .not. FND ) ) THEN\n       CALL ERROR_STOP (trim('Could not find '//v_name//' in HEMCO data list!'), &\n                         'GET_MET_3D (get_met_mod.F90)' )\n    ENDIF\n\n    ! transfer to output array\n    Q = Ptr3D(:,:,:)\n\n    ! Free the pointer\n    Ptr3D => NULL()\n\n  END SUBROUTINE Get_Met_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Met_3De\n!\n! !DESCRIPTION: Copies the 3D met data on edges from the HEMCO data structure\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Met_3De( Input_Opt, State_Grid, Q, v_name, t_index )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,            ONLY : Error_Stop\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetPtr\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n!\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )        :: Input_Opt  ! Input options\n    TYPE(GrdState),  INTENT(IN)            :: State_Grid ! Grid State object\n    CHARACTER(LEN=*),INTENT(IN)            :: v_name     ! netCDF variable name\n    INTEGER,         INTENT(IN), OPTIONAL  :: t_index    ! Time index(default=1)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f4),        INTENT(OUT)           :: Q(State_Grid%NX, & ! Temporary\n                                                State_Grid%NY, & ! data array\n                                                State_Grid%NZ+1)\n!\n! !REVISION HISTORY:\n!  04 Mar 2016 - J.W.Zhuang  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: T\n    LOGICAL :: FND\n    INTEGER :: RC          ! Success or failure?\n\n    ! Pointers\n    REAL(f4), POINTER :: Ptr3D(:,:,:)\n\n    !=======================================================================\n    ! Get_Met_3De begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Nullify pointer\n    Ptr3D => NULL()\n\n    ! Define time index to use\n    IF ( PRESENT(t_index) ) THEN\n       T = t_index\n    ELSE\n       T = 1\n    ENDIF\n\n    ! Get the pointer to the data in the HEMCO data structure\n    CALL HCO_GC_GetPtr( Input_Opt, State_Grid, v_name, Ptr3D, RC, TIDX=T, FOUND=FND )\n\n      ! Stop with error message\n    IF ( RC /= GC_SUCCESS .or. ( .not. FND ) ) THEN\n       CALL ERROR_STOP (trim('Could not find '//v_name//' in HEMCO data list!'), &\n                         'GET_MET_3De (get_met_mod.F90)' )\n    ENDIF\n\n    ! transfer to output array\n    Q = Ptr3D(:,:,:)\n\n    ! Free the pointer\n    Ptr3D => NULL()\n\n  END SUBROUTINE Get_Met_3De\n!EOC\nEND MODULE Get_Met_Mod\n#endif\n"
  },
  {
    "path": "GeosCore/get_ndep_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: get_ndep_mod.F90\n!\n! !DESCRIPTION: Module GET\\_NDEP\\_MOD contains routines for computing the\n! accumulated nitrogen dry and wet deposition between emission time steps.\n! These variables are needed for soil NOx emission calculations.\n!\\\\\n!\\\\\n! This module is basically a simple wrapper module to save out the nitrogen\n! dry and wet deposition rates and pass them to HEMCO for soil NOx emission\n! calculation (via hcoi\\_gc\\_main\\_mod.F90).\n!\\\\\n!\\\\\n! IMPORTANT: Routine RESET\\_DEP\\_N resets the deposition arrays to zero. It\n! is called in hcoi\\_gc\\_main\\_mod.F90 after the emission calculations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GET_NDEP_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: SOIL_DRYDEP\n  PUBLIC  :: SOIL_WETDEP\n  PUBLIC  :: RESET_DEP_N\n  PUBLIC  :: Init_Get_Ndep\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  REAL(fp), PARAMETER :: CONVHNO3 = 0.222_fp ! MWN/MWHNO3\n  REAL(fp), PARAMETER :: CONVNH4  = 0.777_fp ! MWN/MWNH4\n  REAL(fp), PARAMETER :: CONVNH3  = 0.823_fp ! MWN/MWNH3\n  REAL(fp), PARAMETER :: CONVNIT  = 0.226_fp ! MWN/MWNIT\n!\n! !LOCAL VARAIABLES:\n!\n  ! Species ID flags (formerly in tracerid_mod.F)\n  INTEGER             :: id_HNO3\n  INTEGER             :: id_NH3\n  INTEGER             :: id_NH4\n  INTEGER             :: id_NH4aq\n  INTEGER             :: id_NIT\n  INTEGER             :: id_NITs\n  INTEGER             :: id_NO2\n  INTEGER             :: id_PAN\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: soil_drydep\n!\n! !DESCRIPTION: Subroutine SOIL\\_DRYDEP holds dry deposited species\n!               [molec/cm2/s]. This is called from dry\\_dep\\_mod.F.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SOIL_DRYDEP( I, J, NN, TDRYFX, State_Chm )\n!\n! !USES:\n!\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: I          ! I\n    INTEGER,  INTENT(IN)  :: J          ! J\n    INTEGER,  INTENT(IN)  :: NN         ! Dry Dep Tracer #\n    REAL(fp), INTENT(IN)  :: TDRYFX     ! Dry dep flux [molec/cm2/s]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Update the reservoir if it's a nitrogen species\n    IF ( NN == id_NO2  .OR. NN == id_PAN     .OR. &\n         NN == id_HNO3 .OR. NN == id_NH3     .OR. &\n         NN == id_NH4  .OR. NN == id_NH4aq   .OR. &\n         NN == id_NIT  .OR. NN == id_NITs  ) THEN\n       !$OMP CRITICAL\n       State_Chm%DryDepNitrogen(I,J) = State_Chm%DryDepNitrogen(I,J) + TDRYFX\n       !$OMP END CRITICAL\n    ENDIF\n\n  END SUBROUTINE SOIL_DRYDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: soil_wetdep\n!\n! !DESCRIPTION: Subroutine SOIL\\_WETDEP holds wet deposited species\n!               [molec/cm2/s]. This is called from wetscav\\_mod.F.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SOIL_WETDEP( I, J, NN, TWETFX, State_Chm )\n!\n! !USES:\n!\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I          ! I\n    INTEGER,  INTENT(IN) :: J          ! J\n    INTEGER,  INTENT(IN) :: NN         ! Wet Dep Tracer #\n    REAL(fp), INTENT(IN) :: TWETFX     ! Wet dep flux [kg/s]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! ckeller (14/04/02)\n    REAL(fp)        :: SCAL\n\n    ! ckeller (14/04/02)\n    SCAL = 0e+0_fp\n    IF ( NN == id_HNO3  ) SCAL = CONVHNO3\n    IF ( NN == id_NH3   ) SCAL = CONVNH3\n    IF ( NN == id_NH4   ) SCAL = CONVNH4\n    IF ( NN == id_NH4aq ) SCAL = CONVNH4\n    IF ( NN == id_NIT   ) SCAL = CONVNIT\n    IF ( NN == id_NITs  ) SCAL = CONVNIT\n\n    IF ( SCAL > 0e+0_fp ) THEN\n       State_Chm%WetDepNitrogen(I,J) = State_Chm%WetDepNitrogen(I,J) + &\n                                       ( TWETFX * SCAL )\n    ENDIF\n\n  END SUBROUTINE SOIL_WETDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: reset_dep_N\n!\n! !DESCRIPTION: Subroutine RESET\\_DEP\\_N resets the dry and wet deposition\n!               arrays and variables so that they can be refilled.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RESET_DEP_N( State_Chm )\n!\n! !USES:\n!\n    USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  03 Apr 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Reset all variables\n    State_Chm%DryDepNitrogen = 0e+0_fp\n    State_Chm%WetDepNitrogen = 0e+0_fp\n\n  END SUBROUTINE RESET_DEP_N\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Get_Ndep\n!\n! !DESCRIPTION: Routine INIT\\_GET\\_NDEP allocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Get_Ndep( Input_Opt, State_Chm, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  25 Jul 2014 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Exit immediately if it's a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    ! Define species ID flags\n    id_HNO3  = Ind_('HNO3' )\n    id_NH3   = Ind_('NH3'  )\n    id_NH4   = Ind_('NH4'  )\n    id_NH4aq = Ind_('NH4aq')\n    id_NIT   = Ind_('NIT'  )\n    id_NITs  = Ind_('NITs' )\n    id_NO2   = Ind_('NO2'  )\n    id_PAN   = Ind_('PAN'  )\n\n  END SUBROUTINE Init_Get_Ndep\n!EOC\nEND MODULE GET_NDEP_MOD\n"
  },
  {
    "path": "GeosCore/global_br_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: global_Br_mod.F90\n!\n! !DESCRIPTION: Module GLOBAL\\_Br\\_MOD contains variables and routines for\n!  storing the global monthly mean Br concentration evaluated from HEMCO.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GLOBAL_Br_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! Array to store global monthly mean BR field\n  REAL(fp), PUBLIC, ALLOCATABLE :: BR_TROP(:,:,:)\n  REAL(fp), PUBLIC, ALLOCATABLE :: BR_STRAT(:,:,:)\n  REAL(fp), PUBLIC, ALLOCATABLE :: BR_MERGE(:,:,:)\n\n  ! Array to store global monthly mean BrO field\n  REAL(fp), PUBLIC, ALLOCATABLE :: BRO_TROP(:,:,:)\n  REAL(fp), PUBLIC, ALLOCATABLE :: BRO_STRAT(:,:,:)\n  REAL(fp), PUBLIC, ALLOCATABLE :: BRO_MERGE(:,:,:)\n\n  ! Array to store global monthly J-BrO field\n  REAL(fp), PUBLIC, ALLOCATABLE :: J_BRO(:,:,:)\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: GET_GLOBAL_Br\n  PUBLIC :: INIT_GLOBAL_Br\n  PUBLIC :: CLEANUP_GLOBAL_Br\n!\n! !REMARKS:\n!  References:\n!  (1 ) Holmes, C. D., et al. (2006), Global lifetime of elemental mercury\n!       against oxidation by atomic bromine in the free troposphere, Geophys.\n!       Res. Lett., 33(20).\n!  (2 ) Holmes, C.D., et al. (2010) Global atmospheric model for mercury\n!       including oxidation by bromine atoms, AC&P, 10, 12,037-12,057.\n!  (3 ) Parrella, J. et al. (2012), Tropospheric bromine chemistry:\n!       implications for present and pre-industrial ozone and mercury, ACP.\n!\n! !REVISION HISTORY:\n!  05 Jul 2006 - C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_global_Br\n!\n! !DESCRIPTION: Subroutine GET\\_GLOBAL\\_Br evaluates global Br from\n!  data stored in HEMCO, including application of any masks or scaling\n!  set in the HEMCO configuration file. This Br data is needed as oxidant\n!  for mercury chemistry.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_GLOBAL_Br( Input_Opt, State_Grid, State_Met, THISMONTH, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE OCEAN_MERCURY_MOD,  ONLY : LGCBROMINE     !eds 4/19/12\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    INTEGER,        INTENT(IN)  :: THISMONTH   ! Current month\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  05 Jul 2006 - C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J, L\n    INTEGER            :: TPL\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !=================================================================\n    ! GET_GLOBAL_BR begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at GET_GLOBAL_Br (in GeosCore/global_br_mod.F)'\n\n    ! Allocate BR array, if this is the first call\n    IF ( FIRST ) THEN\n\n       ! Initialize arrays\n       CALL INIT_GLOBAL_BR( State_Grid, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in call to \"INIT_GLOBAL_BR\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    IF ( LGCBROMINE ) THEN\n\n       !-----------------------------------------------------------------\n       ! Evaluate Br_GC from GEOS-Chem to set Br_MERGE (trop+strat)\n       !-----------------------------------------------------------------\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'Br_GC', Br_MERGE, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find Br_GC in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Convert v/v -> pptv\n       Br_MERGE = Br_MERGE * 1e+12_fp\n\n       !-----------------------------------------------------------------\n       ! Evaluate BrO_GC from GEOS-Chem to set BrO_MERGE (trop+strat)\n       !-----------------------------------------------------------------\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'BrO_GC', BrO_MERGE, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find BrO_GC in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Convert v/v -> pptv\n       BrO_MERGE = BrO_MERGE * 1e+12_fp\n\n    ELSE\n\n       !-----------------------------------------------------------------\n       ! Evaluate Br from pTOMCAT biogenic bromocarbons [pptv]\n       !-----------------------------------------------------------------\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'Br_TOMCAT', Br_TROP, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find Br_TOMCAT in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Evaluate BrO from pTOMCAT biogenic bromocarbons [pptv]\n       !-----------------------------------------------------------------\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'BrO_TOMCAT', Br_TROP, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find BrO_TOMCAT in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Evaluate Br from GMI for stratosphere [pptv]\n       !-----------------------------------------------------------------\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'Br_GMI', Br_STRAT, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find Br_GMI in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Evaluate BrO from GMI for stratosphere [pptv]\n       !-----------------------------------------------------------------\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'BrO_GMI', BrO_STRAT, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find BrO_GMI in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Use pTOMCAT exclusively in the troposphere.\n       ! In the stratosphere, use the greater value from either COMBO or\n       ! the tropospheric model. COMBO source gases include CH3Br and\n       ! halons, while pTOMCAT includes CH3Br and shorter-lived gases.\n       !-----------------------------------------------------------------\n       BR_MERGE  = BR_TROP\n       BRO_MERGE = BRO_TROP\n\n       !$OMP PARALLEL DO        &\n       !$OMP DEFAULT( SHARED )  &\n       !$OMP PRIVATE( I, J, TPL )\n       DO J=1, State_Grid%NY\n       DO I=1, State_Grid%NX\n\n          ! First layer in the stratosphere\n          TPL = State_Met%TropLev(I,J)\n\n          BR_MERGE(I,J,TPL:State_Grid%NZ) = MERGE(      &\n               BR_STRAT(I,J,TPL:State_Grid%NZ),         &\n               BR_TROP(I,J,TPL:State_Grid%NZ),          &\n               MASK = BR_STRAT(I,J,TPL:State_Grid%NZ) > &\n                      BR_TROP(I,J,TPL:State_Grid%NZ) )\n\n          BRO_MERGE(I,J,TPL:State_Grid%NZ) = MERGE(     &\n               BRO_STRAT(I,J,TPL:State_Grid%NZ),        &\n               BRO_TROP(I,J,TPL:State_Grid%NZ),         &\n               MASK = BR_STRAT(I,J,TPL:State_Grid%NZ) > &\n                      BR_TROP(I,J,TPL:State_Grid%NZ) )\n\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Evaluate J_BrO\n    !-----------------------------------------------------------------\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'JBrO', J_BrO, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not find JBrO in HEMCO data list!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Only set values up to max chemistry level\n    IF ( State_Met%MaxChemLev < State_Grid%NZ ) THEN\n       J_BrO(:,:,State_Met%MaxChemLev+1:State_Grid%NZ) = 0e+0_fp\n    ENDIF\n\n  END SUBROUTINE GET_GLOBAL_Br\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_global_Br\n!\n! !DESCRIPTION: Subroutine INIT\\_GLOBAL\\_Br allocates and zeroes all\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_GLOBAL_Br( State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  05 Jul 2006 - C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! INIT_GLOBAL_BR begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_Global_Br (in module GeosCore/global_br_mod.F90)'\n\n    !-------------------------------------\n    ! Br Arrays\n    !-------------------------------------\n\n    ! Allocate BR_TROP array\n    ALLOCATE( BR_TROP( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:BR_TROP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    BR_TROP = 0e+0_fp\n\n    ! Allocate BR_STRAT array\n    ALLOCATE( BR_STRAT( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:BR_STRAT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    BR_STRAT = 0e+0_fp\n\n    ! Allocate BR_MERGE array\n    ALLOCATE( BR_MERGE( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:BR_MERGE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    BR_MERGE = 0e+0_fp\n\n    !-------------------------------------\n    ! BrO Arrays\n    !-------------------------------------\n\n    ! Allocate J_BrO array\n    ALLOCATE( J_BrO( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:J_BrO', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    J_BrO = 0e+0_fp\n\n    ! Allocate BrO_TROP array\n    ALLOCATE( BrO_TROP( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:BRO_TROP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    BrO_TROP = 0e+0_fp\n\n    ! Allocate BrO_STRAT array\n    ALLOCATE( BrO_STRAT( State_Grid%NX, State_Grid%NY, State_Grid%NZ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:BRO_STRAT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    BrO_STRAT = 0e+0_fp\n\n    ! Allocate BrO_MERGE array\n    ALLOCATE( BrO_MERGE( State_Grid%NX, State_Grid%NY, State_Grid%NZ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'global_br_mod.F:BrO_MERGE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    BrO_MERGE = 0e+0_fp\n\n  END SUBROUTINE INIT_GLOBAL_BR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_global_Br\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_GLOBAL\\_Br deallocates module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_GLOBAL_Br( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  05 Jul 2006 - C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Deallocate variables\n    IF ( ALLOCATED( Br_TROP ) ) THEN\n       DEALLOCATE( Br_TROP, STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:Br_TROP', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( Br_STRAT ) ) THEN\n       DEALLOCATE( Br_STRAT, STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:Br_STRAT', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( Br_MERGE ) ) THEN\n       DEALLOCATE( Br_MERGE , STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:Br_MERGE ', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( J_BrO ) ) THEN\n       DEALLOCATE( J_BrO, STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:J_BrO', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( BrO_TROP ) ) THEN\n       DEALLOCATE( BrO_TROP, STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:BrO_TROP', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( BrO_STRAT ) ) THEN\n       DEALLOCATE( BrO_STRAT, STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:BrO_STRAT', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( BrO_MERGE ) ) THEN\n       DEALLOCATE( BrO_MERGE , STAT=RC )\n       CALL GC_CheckVar( 'global_br_mod.F90:BrO_MERGE ', 2, RC )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE CLEANUP_GLOBAL_Br\n!EOC\nEND MODULE GLOBAL_Br_MOD\n"
  },
  {
    "path": "GeosCore/gosat_ch4_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: gosat_ch4_mod.F90\n!\n! !DESCRIPTION: Module GOSAT\\_CH4\\_MOD\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GOSAT_CH4_MOD\n!\n! !USES:\n!\n  USE m_netcdf_io_open       ! netCDF open\n  USE m_netcdf_io_get_dimlen ! netCDF dimension queries\n  USE m_netcdf_io_read       ! netCDF data reads\n  USE m_netcdf_io_close      ! netCDF close\n  USE PRECISION_MOD          ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CALC_GOSAT_CH4_FORCE\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - M. Sulprizio- Initial version based on GOSAT CH4 observation\n!                              operator from GC Adjoint v35j with updates from\n!                              M. Sulprizio, J.D. Maasakkers, A. Turner, and\n!                              K. Wecht\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER,  PARAMETER  :: MAXLEV = 20\n  INTEGER,  PARAMETER  :: MAXGOS = 100000\n  INTEGER,  PARAMETER  :: NT_FD = 335 !1055 ! Index for the FD test\n  REAL(fp), PARAMETER  :: GC_XCH4_ERROR = 0e+0_fp !ppb\n  REAL(fp), PARAMETER  :: PMAG = 1e+0_fp ! Perturbation magnitude (%)\n  LOGICAL,  PARAMETER  :: LDCH4SAT    = .TRUE.\n  LOGICAL,  PARAMETER  :: EXT_OBS_MAT = .FALSE. ! Read external?\n!\n! !MODULE VARIABLES\n!\n  ! Record to store data from each GOS obs\n  TYPE GOS_CH4_OBS\n     INTEGER           :: LGOS(1)\n     REAL(fp)          :: LAT(1)\n     REAL(fp)          :: LON(1)\n     INTEGER           :: YEAR(1)\n     INTEGER           :: MONTH(1)\n     INTEGER           :: DAY(1)\n     INTEGER           :: HOUR(1)\n     INTEGER           :: MINUTE(1)\n     INTEGER           :: SEC(1)\n     REAL(fp)          :: TIME(1)\n     REAL(fp)          :: CH4(1)\n     REAL(fp)          :: CH4_ERROR(1)\n     REAL(fp)          :: PRES(MAXLEV)\n     REAL(fp)          :: PRIOR(MAXLEV)\n     REAL(fp)          :: AVG_KERNEL(MAXLEV)\n     REAL(fp)          :: P_WEIGHT(MAXLEV)\n     INTEGER           :: QFLAG(1)\n     INTEGER           :: GLINT(1)\n     INTEGER           :: GAIN(1)\n     CHARACTER(LEN=22) :: EXP_ID(1)\n  ENDTYPE GOS_CH4_OBS\n\n  TYPE(GOS_CH4_OBS)    :: GOS(MAXGOS)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_gos_ch4_obs\n!\n! !DESCRIPTION: Subroutine READ\\_GOS\\_CH4\\_OBS reads the file and passes back\n!  info contained therein. (dkh, 10/12/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_GOS_CH4_OBS( YYYYMMDD, NGOS )\n!\n! !USES:\n!\n    USE TIME_MOD,        ONLY : EXPAND_DATE\n    USE ERROR_MOD,       ONLY : ALLOC_ERR\n    USE ERROR_MOD,       ONLY : GEOS_CHEM_STOP\n    USE TIME_MOD,        ONLY : GET_YEAR\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)      :: YYYYMMDD  ! Current date\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)     :: NGOS      ! Number of GOS retrievals\n!\n! !REVISION HISTORY:\n!  (1 )Based on READ_TES_NH3 OBS (dkh, 04/26/10)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                        :: LGOS\n    INTEGER                        :: N, J\n    INTEGER                        :: YEAR\n    CHARACTER(LEN=4)               :: CYEAR\n    LOGICAL                        :: EXIST_VAR\n    REAL*4, ALLOCATABLE            :: pres(:,:)\n    REAL*4, ALLOCATABLE            :: prior(:,:)\n    REAL*4, ALLOCATABLE            :: ak(:,:)\n    REAL*4, ALLOCATABLE            :: pres_w(:,:)\n    REAL*4, ALLOCATABLE            :: lat(:)\n    REAL*4, ALLOCATABLE            :: lon(:)\n    REAL*4, ALLOCATABLE            :: time(:)\n    REAL*4, ALLOCATABLE            :: xch4(:)\n    REAL*4, ALLOCATABLE            :: xch4_error(:)\n    INTEGER,  ALLOCATABLE          :: qflag(:)\n    INTEGER,  ALLOCATABLE          :: glint(:)\n    INTEGER,  ALLOCATABLE          :: gain(:)\n    CHARACTER(LEN=22),ALLOCATABLE  :: exp_id(:)\n\n    INTEGER                        :: NLEV, StrLen\n    INTEGER                        :: I, L, AS\n\n    ! For reading netCDF file\n    INTEGER            :: fId              ! netCDF file ID\n    INTEGER            :: Status           ! 0 means variable in file\n    INTEGER            :: X, Y, Z, T       ! netCDF file dimensions\n    INTEGER            :: time_index       ! Read this slice of data\n    INTEGER            :: st1d(1), ct1d(1) ! Start + count for 1D arrays\n    INTEGER            :: st2d(2), ct2d(2) ! Start + count for 2D arrays\n    CHARACTER(LEN=16)  :: stamp            ! Time and date stamp\n    CHARACTER(LEN=255) :: nc_file          ! netCDF file name\n    CHARACTER(LEN=255) :: v_name           ! netCDF variable name\n    CHARACTER(LEN=255) :: dir              ! Data directory path\n    CHARACTER(LEN=255) :: errMsg           ! Error message\n    CHARACTER(LEN=255) :: caller           ! Name of this routine\n\n    !=================================================================\n    ! READ_GOS_CH4_OBS begins here!\n    !=================================================================\n\n    caller = 'READ_GOS_CH4_OBS in gosat_ch4_mod.F90'\n\n    ! Get current year\n    YEAR = GET_YEAR()\n    WRITE( CYEAR, '(i4)' ) YEAR\n\n    ! Filename\n    nc_file = 'UoL-GHG-L2-CH4-GOSAT-OCPR-YYYYMMDD-fv9.0.nc'\n    CALL Expand_Date( nc_file, YYYYMMDD, 9999 )\n\n    ! Construct complete file path\n    dir = '/n/holylfs/LABS/jacob_lab/zhenqu/CH4_GOS_OCPR/' // CYEAR // '/'\n    nc_file = TRIM( dir ) // TRIM( nc_file )\n    WRITE( 6, 10 ) TRIM( nc_file )\n10  FORMAT( '     - Reading ', a)\n\n    ! Make sure the file exists (ajt, 03/31/2013)\n    INQUIRE( FILE=TRIM( nc_file ), EXIST=EXIST_VAR )\n    IF ( .not. EXIST_VAR ) THEN\n       NGOS = -1\n       RETURN\n    ENDIF\n\n    ! Open netCDF file\n    CALL NcOp_Rd( fId, TRIM( nc_file ) )\n\n    ! Read the dimensions from the netCDF file\n    CALL NcGet_DimLen( fId, 'm',   NLEV )\n    CALL NcGet_DimLen( fId, 'n',   NGOS )\n    CALL NcGet_DimLen( fId, 'string_length', StrLen )\n\n    IF ( NLEV > MAXLEV ) THEN\n       print*,' # Levels this day = ', NLEV\n       print*, 'WARNING: NLEV > MAXLEV. Need to increase'\n       print*, ' MAXLEV in gosat_ch4_mod.F90.'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    print*,' # GOSAT Observations this day = ', NGOS\n    print*, 'levels', NLEV\n\n    !--------------------------------\n    ! Read 1-D Data\n    !--------------------------------\n\n    ALLOCATE( lat(         NGOS ), STAT=AS )\n    ALLOCATE( lon(         NGOS ), STAT=AS )\n    ALLOCATE( time(        NGOS ), STAT=AS )\n    ALLOCATE( qflag(       NGOS ), STAT=AS )\n    ALLOCATE( xch4(        NGOS ), STAT=AS )\n    ALLOCATE( xch4_error(  NGOS ), STAT=AS )\n    ALLOCATE( glint(       NGOS ), STAT=AS )\n    ALLOCATE( gain(        NGOS ), STAT=AS )\n    ALLOCATE( exp_id(      NGOS ), STAT=AS )\n    ALLOCATE( prior( NLEV, NGOS ), STAT=AS )\n    ALLOCATE( pres(  NLEV, NGOS ), STAT=AS )\n    ALLOCATE( ak(    NLEV, NGOS ), STAT=AS )\n    ALLOCATE( pres_w(NLEV, NGOS ), STAT=AS )\n\n    ! Latitude\n    v_name = 'latitude'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( lat, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Longitude\n    v_name = 'longitude'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( lon, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Time (seconds since 1970-01-01 00:00)\n    v_name = 'time'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( time, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Qflag (0=good, 1=bad)\n    v_name = 'xch4_quality_flag'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( qflag, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Xch4 (ppb)\n    v_name = 'xch4'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( xch4, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Xch4_Error (ppb)\n    v_name = 'xch4_uncertainty'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( xch4_error, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Retrieval type flag (0 = land, 1 = glint)\n    v_name = 'retr_flag'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( glint, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Gain mode (1 = high gain, 0 = medium gain)\n    v_name = 'gain'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NGOS /)\n    CALL NcRd( gain, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Exposure ID\n    v_name = 'exposure_id'\n    st2d   = (/ 1, 1    /)\n    ct2d   = (/ StrLen, NGOS /)\n    CALL NcRd( exp_id, fId, TRIM(v_name), st2d, ct2d )\n\n    !--------------------------------\n    ! Read 2D Data\n    !--------------------------------\n\n    ! APRIORI (ppb)\n    v_name = 'ch4_profile_apriori'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NGOS /)\n    CALL NcRd( prior, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Pressure (hPa)\n    v_name = 'pressure_levels'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NGOS /)\n    CALL NcRd( pres, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Averaging Kernel (unitless)\n    v_name = 'xch4_averaging_kernel'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NGOS /)\n    CALL NcRd( ak, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Pressure weights (unitless)\n    v_name = 'pressure_weight'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NGOS /)\n    CALL NcRd( pres_w, fId, TRIM(v_name), st2d, ct2d )\n\n    !--------------------------------\n    ! Place data into GOS structure\n    !--------------------------------\n    DO N = 1, NGOS\n\n       ! 0-D data\n       GOS(N)%LGOS(1)      = NLEV\n       GOS(N)%LAT(1)       = lat(N)\n       GOS(N)%LON(1)       = lon(N)\n       GOS(N)%TIME(1)      = time(N)\n       GOS(N)%CH4(1)       = xch4(N)\n       GOS(N)%CH4_ERROR(1) = xch4_error(N)\n       GOS(N)%QFLAG(1)     = qflag(N)\n       GOS(N)%GLINT(1)     = glint(N)\n       GOS(N)%GAIN(1)      = gain(N)\n       GOS(N)%EXP_ID(1)    = exp_id(N)\n\n       ! 1-D data\n       LGOS = NLEV\n       GOS(N)%PRES(1:LGOS)       = pres(1:LGOS,N)\n       GOS(N)%PRIOR(1:LGOS)      = prior(1:LGOS,N)\n       GOS(N)%AVG_KERNEL(1:LGOS) = ak(1:LGOS,N)\n       GOS(N)%P_WEIGHT(1:LGOS)  = pres_w(1:LGOS,N)\n\n    ENDDO\n\n    !--------------------------------\n    ! Close netCDF file\n    !--------------------------------\n\n    ! Echo info\n    WRITE( 6, 20 ) YYYYMMDD\n20  FORMAT( '     - Finished reading GOSAT CH4 observations for ', i8)\n\n    ! Close netCDF file\n    CALL NcCl( fId )\n    \n  END SUBROUTINE READ_GOS_CH4_OBS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_gosat_ch4_force\n!\n! !DESCRIPTION: Subroutine CALC\\_GOS\\_CH4\\_FORCE calculates the adjoint forcing\n!  from the GOSAT CH4 observations and updates the cost function.\n!  (dkh, 10/12/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_GOSAT_CH4_FORCE( Input_Opt, State_Chm, State_Grid, &\n                                   State_Met )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : IT_IS_NAN\n    USE ERROR_MOD,          ONLY : IT_IS_FINITE\n    USE GC_GRID_MOD,        ONLY : GET_IJ\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE JULDAY_MOD,         ONLY : CALDATE,     JULDAY\n    USE TIME_MOD\n    USE PhysConstants,      ONLY : XNUMOLAIR, AIRMW\n    USE State_Chm_Mod,      ONLY : ChmState, Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Timers_Mod,         ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod,       ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - M. Sulprizio- Initial version based on GOSAT CH4 observation\n!                              operator from GC Adjoint v35j with updates from\n!                              M. Sulprizio, J.D. Maasakkers, A. Turner, and\n!                              K. Wecht\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp), SAVE     :: COST_FUNC   ! Cost function [unitless]\n    INTEGER            :: id_CH4\n    INTEGER            :: NTSTART, NTSTOP, NT\n    INTEGER            :: YYYYMM,  YYYYMMDD, HHMMSS\n    INTEGER            :: YEAR,    MON,      DAY\n    INTEGER            :: HOUR,    MIN,      SEC\n    INTEGER            :: IIJJ(2), I,      J,     N\n    INTEGER            :: L,       LL,     LGOS\n    INTEGER            :: JLOOP,   NOBS,   IND\n    INTEGER            :: INDS(MAXGOS)\n    REAL(fp)           :: REF_DATE, TIME\n    REAL(fp)           :: GC_PRES(State_Grid%NZ)\n    REAL(fp)           :: GC_PEDGE(State_Grid%NZ+1)\n    REAL(fp)           :: GC_CH4_NATIVE(State_Grid%NZ)\n    REAL(fp)           :: GC_CH4_NATIVE_EDGE(State_Grid%NZ+1)\n    REAL(fp)           :: GC_CH4(MAXLEV)\n    REAL(fp)           :: GC_CH4_ORIG(MAXLEV)\n    REAL(fp)           :: GC_CH4_cm2(MAXLEV)\n    REAL(fp)           :: GC_PSURF\n    REAL(fp)           :: MAP(State_Grid%NZ,MAXLEV)\n    REAL(fp)           :: CH4_HAT(MAXLEV)\n    REAL(fp)           :: NEW_COST(MAXGOS)\n    REAL(fp)           :: OLD_COST\n    REAL(fp), SAVE     :: TIME_FRAC(MAXGOS)\n    INTEGER,  SAVE     :: NGOS\n    REAL(fp)           :: frac, RHS, LHS\n    REAL(fp)           :: CH4_PRIOR(MAXLEV)\n    REAL(fp)           :: CH4_PRIOR_cm2(MAXLEV)\n    REAL(fp)           :: molecongos(MAXLEV)\n    REAL(fp)           :: GOS_XCH4, GOS_XCH4_ERROR\n    REAL(fp)           :: p(MAXLEV)!, h(MAXLEV)\n    REAL(fp)           :: ak(MAXLEV), prior(MAXLEV)\n    REAL(fp)           :: pres_w(MAXLEV)\n    !REAL(fp)           :: XCH4m, XCH4a  !zyz\n    REAL(fp)           :: SATELLITE_BIAS(3) ! Hardcode for now (mps,6/16/17)\n    REAL(fp)           :: MEAN_MODEL_BIAS   ! Hardcode for now (mps,6/16/17)\n    REAL(fp)           :: FORCE\n    REAL(fp)           :: DIFF\n    REAL(fp)           :: S_OBS\n    REAL(fp)           :: DRY_AIR(State_Grid%NZ)\n\n    ! --- zyz --- Sept 19, 2018\n    ! fix the problem that some GOSAT record has negative pressure\n    ! values if the surface has high altidue\n    INTEGER            :: L0\n\n    REAL(fp)           :: TropP     !tropopause pressure (hPa)\n    INTEGER            :: LGOS_Trop !tropopause layer in GOSAT levels\n    REAL(fp)           :: WT_LGOS_Trop\n\n    ! -- use pressure weight from GOSAT data file,zyz\n    REAL(fp)           :: GC_XCH4\n    REAL(fp)           :: XCH4_prior, XCH4_trop, XCH4_strat\n\n    ! -- use pressure weight computed based on pressure level\n    ! -- and simple linear interpolation \n    ! -- this is used in JDM's work, zyz\n    real(fp)           :: h(MAXLEV)\n    REAL(fp)           :: GC_XCH4_ORIG, GC_XCH4_ORIG_OLDPW\n\n    ! For miscellaneous\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n    INTEGER            :: IOS\n    INTEGER, SAVE      :: TotalObs = 0\n    CHARACTER(LEN=255) :: FILENAME\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n    INTEGER            :: RC\n    REAL(fp)           :: foo ! throwaway variable\n\n    !=================================================================\n    ! CALC_GOS_CH4_FORCE begins here!\n    !=================================================================\n\n    print*, '     - CALC_GOS_CH4_FORCE '\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at CALC_GOS_CH4_FORCE (in gosat_ch4_mod.F90)'\n\n    ! Initialize species ID flag\n    id_CH4 = Ind_('CH4')\n\n    ! Reset\n    NEW_COST(:) = 0.0_fp\n\n    ! Hardcode bias values for now (mps, 6/16/17)\n    SATELLITE_BIAS(1) = 0.0e+0_fp\n    SATELLITE_BIAS(2) = -0.075272936e+0_fp\n    SATELLITE_BIAS(3) = 0.003712500e+0_fp\n    MEAN_MODEL_BIAS   = 0.0e+0_fp\n\n    ! Open files for diagnostic output\n    IF ( FIRST ) THEN\n\n       ! Initialize\n       COST_FUNC = 0.0_fp\n\n       ! For recording model and observation values\n       FILENAME = 'sat_obs.gosat.00.m'\n       FILENAME = TRIM( Input_Opt%RUN_DIR ) //  TRIM( FILENAME )\n       OPEN( 117,      FILE=TRIM( FILENAME   ), STATUS='UNKNOWN', &\n             IOSTAT=IOS, FORM='FORMATTED',    ACCESS='SEQUENTIAL' )\n\n       ! Write header of sat_obs.NN.m\n       WRITE( 117, 281 ) '       NNN', &\n                         '   I', '   J', '     LON','     LAT', &\n                         'YYYY', 'MM', 'DD', 'hh', 'mm', 'ss',  &\n                         '         TAU', '       GOSAT', &\n                         '       model', '       S_OBS', &\n                         '       TropP', ' model_prior', & !zyz\n                         '  model_trop', ' model_strat', & !zyz\n                         '  model_orig', ' model_oldpw', & !erp\n                         'GLINT', ' GAIN',               &\n                         'EXPOSURE_ID'\n281    FORMAT( A10,2x, A4,2x,  A4,2x,  A8,2x,  A8,2x,  A4,2x, &\n               A2,2x,  A2,2x,  A2,2x,  A2,2x,  A2,2x,         &\n               A12,2x, A12,2x, A12,2x, A12,2x,                &\n               A12,2x, A12,2x, A12,2x, A12,2x,                &\n               A12,2x, A12,2x,                                &\n               A5,2x,  A5,2x,  A22)\n\n       ! Set Total Observations = 0\n       TotalObs = 0\n\n    ENDIF\n\n    ! Save a value of the cost function first\n    OLD_COST = COST_FUNC\n\n    ! Read Observations at first call and at end of the day\n    IF ( FIRST .OR. ITS_A_NEW_DAY() ) THEN\n\n       ! Read the GOS CH4 file for this day\n       YYYYMMDD = 1d4*GET_YEAR() + 1d2*GET_MONTH() + GET_DAY()\n       CALL READ_GOS_CH4_OBS( YYYYMMDD, NGOS )\n\n       IF ( FIRST ) FIRST = .FALSE.\n\n       ! Make sure there are observations on this day\n       IF ( NGOS .EQ. -1 ) RETURN\n\n       ! TIME is seconds since 1970-01-01 00:00:00\n       ! Convert to calendar date by expressing as days since REF_DATE\n       ! and adding Julian day value for REF_DATE (mpayer 9/12/12)\n       REF_DATE = JULDAY( 1970, 1, 1.d0 )\n       DO N = 1, NGOS\n          TIME = ( GOS(N)%TIME(1) / 86400.d0 ) + REF_DATE\n          CALL CALDATE ( TIME, YYYYMMDD, HHMMSS )\n          CALL YMD_EXTRACT( YYYYMMDD, YEAR, MON, DAY )\n          CALL YMD_EXTRACT( HHMMSS,   HOUR, MIN, SEC )\n          GOS(N)%YEAR(1)   = YEAR\n          GOS(N)%MONTH(1)  = MON\n          GOS(N)%DAY(1)    = DAY\n          GOS(N)%HOUR(1)   = HOUR\n          GOS(N)%MINUTE(1) = MIN\n          GOS(N)%SEC(1)    = SEC\n       ENDDO\n\n       IF ( FIRST ) FIRST = .FALSE.\n\n    ENDIF\n\n    ! Get indices of GOS observations in the current hour\n    !   At the start of each hour, assimilate observations that\n    !   were made in the previous 60 minutes.\n    !   For example, at time 18:00, assimilate observations\n    !   made from 18:00 - 18:59\n    INDS(:) = 0\n    NOBS    = 0\n    !print*,'Looking for observations at MONTH, DAY, HOUR = ', &\n    !          GET_MONTH(), GET_DAY(), GET_HOUR()\n    DO NT = 1, NGOS\n       IF ( GOS(NT)%MONTH(1) .EQ. GET_MONTH() .AND. &\n            GOS(NT)%DAY(1)   .EQ. GET_DAY()   .AND. &\n            GOS(NT)%HOUR(1)  .EQ. GET_HOUR()  ) THEN\n          NOBS = NOBS + 1\n          INDS(NOBS) = NT\n          !print*,'Found a good observation! NT = ', NT\n       ENDIF\n    ENDDO\n\n    IF ( NOBS == 0 ) THEN\n       print*, ' No matching GOSAT CH4 obs for this hour'\n       RETURN\n    ENDIF\n\n    print*, ' for hour range: ', GET_HOUR(), GET_HOUR()+1\n    print*, ' found # GOSAT observations: ', NOBS\n\n    ! Verify that incoming State_Chm%Species units are mol/mol dry air.\n    IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"mol/mol dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !! need to update this in order to do i/o with this loop parallel\n    !!      ! Now do a parallel loop for analyzing data\n    !!!$OMP PARALLEL DO &\n    !!!$OMP DEFAULT( PRIVATE ) &\n    !!!$OMP PRIVATE( IND, NT, MAP, LGOS, IIJJ,  I, J,  L,   LL, JLOOP ) &\n    !!!$OMP PRIVATE( GC_CH4, FORCE, CH4_PRIOR, GC_PRES, FILENAME      ) &\n    !!!$OMP PRIVATE( GC_PEDGE, GC_PSURF, GC_CH4_NATIVE, GOS_XCH4      ) &\n    !!!$OMP PRIVATE( GOS_XCH4_ERROR, S_OBS, h, p, XCH4a, XCH4m        ) &\n    !!!$OMP PRIVATE( GC_XCH4, DIFF, DIFF_ADJ, GC_XCH4_ADJ             ) &\n    !!!$OMP PRIVATE( GC_CH4_NATIVE_ADJ, GC_CH4_ADJ, TotalObs          )\n    DO IND = 1, NOBS\n\n       NT = INDS(IND)\n       !print*, '     - CALC_GOS_CH4_FORCE: analyzing record ', NT\n\n       ! Quality screening (0=good, 1=bad)\n       IF ( GOS(NT)%QFLAG(1) .NE. 0 ) THEN\n          print*, ' Bad QFLAG, skipping record         ', NT\n          CYCLE\n       ENDIF\n\n       !! Skip glint mode observations (0 = land, 1 = glint)\n       !IF ( GOS(NT)%GLINT(1) .EQ. 1 ) THEN\n       !   print*, ' GLINT obs, skipping record         ', NT\n       !   CYCLE\n       !ENDIF\n\n       ! Check for NaN in data\n       IF ( IT_IS_NAN( GOS(NT)%CH4(1) ) ) THEN\n          print*, ' XCH4 is NaN, skipping record       ', NT\n          CYCLE\n       ENDIF\n       IF ( IT_IS_NAN( GOS(NT)%PRIOR(1) ) ) THEN\n          print*, ' PRIOR is NaN, skipping record      ', NT\n          CYCLE\n       ENDIF\n       IF ( IT_IS_NAN( GOS(NT)%AVG_KERNEL(1) ) ) THEN\n          print*, ' AVG_KERNEL is NaN, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       ! Check for infinity in data\n       IF ( .not. IT_IS_FINITE( GOS(NT)%CH4(1) ) ) THEN\n          print*, ' XCH4 is infinity, skipping record  ', NT\n          CYCLE\n       ENDIF\n\n       ! Check for negative/zero data\n       IF ( GOS(NT)%CH4(1) <= 0d0 ) THEN\n          print*, ' XCH4 is <= 0, skipping record      ', NT\n          CYCLE\n       ENDIF\n\n       ! Check for negative/zero error values\n       ! Skip zero error values for now to avoid returning S_OBS=0\n       ! which will cause COST_FUN=infinity (mps, 6/6/16)\n       IF ( GOS(NT)%CH4_ERROR(1) <= 0d0 ) THEN\n          print*, ' XCH4 ERROR is <= 0, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       ! zyz, Oct 4 2018\n       ! GOSAT record has negative pressure value when the surface\n       ! has high altitude such as Tibet\n       ! Fix it by finding the lowest valid layer L0\n       L0 = GOS(NT)%LGOS(1)\n       DO L = 1, GOS(NT)%LGOS(1)\n          IF (GOS(NT)%PRES(L) .gt. 0.0_fp) THEN\n             L0 = L\n             EXIT\n          ENDIF\n       ENDDO\n       ! Only find negative pressure at 1st layer so far.\n       ! But use this condition to prevent really invalid cases\n       ! (zyz)\n       IF (L0 .gt. 3 ) CYCLE\n\n       ! Skip observations outside the domain\n       IF ( GOS(NT)%LAT(1) < State_Grid%YMin .OR. &\n            GOS(NT)%LAT(1) > State_Grid%YMax .OR. &\n            GOS(NT)%LON(1) < State_Grid%XMin .OR. &\n            GOS(NT)%LON(1) > State_Grid%XMax ) THEN\n          print*, ' Outside nested domain, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       ! Skip data at high lat (ajt, 7/23/13)\n       !JDMIF ( GOS(NT)%LAT(1) >   60d0 ) THEN\n       !JDMprint*, ' Skip all data above 60N ', NT\n       !JDMCYCLE\n       !JDMENDIF\n       !Turn of this for now to reproduce plots made by AJT\n       !Should probably turn this back on with SH once we start\n       !To do the actual adjoint run\n\n       ! Get grid box of current record\n       IIJJ = GET_IJ( REAL(GOS(NT)%LON(1),4), REAL(GOS(NT)%LAT(1),4), &\n                      State_Grid )\n       I    = IIJJ(1)\n       J    = IIJJ(2)\n\n       ! skip observations where the GOSAT surface pressure is\n       ! less than the model\n       ! Use L0 for lowest valid layer in GOSAT (zyz)\n       IF ( (GOS(NT)%PRES(L0) - State_Met%PEDGE(I,J,1)) > 50e0 ) THEN\n          print*, ' Psurf threshold not met, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       !------------------------------\n       ! Begin good observations\n       !------------------------------\n       print*,' Begin assimilating good observation. NT = ', NT\n\n       ! For safety, initialize these up to LGOS\n       LGOS            = 0\n       GC_CH4(:)       = 0.0_fp\n       MAP(:,:)        = 0.0_fp\n       FORCE           = 0.0_fp\n       CH4_PRIOR(:)    = 0.0_fp\n\n       ! Copy variable names to make coding a bit cleaner\n       ! Use L0 for lowest layer in GOSAT record (zyz)\n       LGOS = GOS(NT)%LGOS(1)\n       DO L = L0, LGOS\n          CH4_PRIOR(L) = GOS(NT)%PRIOR(L) * 1d-9 ! [ppb] --> [v/v]\n       ENDDO\n\n       ! Get GC pressure levels (mbar)\n       DO L = 1, State_Grid%NZ\n          GC_PRES(L) = State_Met%PMID(I,J,L)\n       ENDDO\n\n       ! Get GC pressure edges (mbar)\n       DO L = 1, State_Grid%NZ+1\n          GC_PEDGE(L) = State_Met%PEDGE(I,J,L)\n       ENDDO\n\n       ! Get GC surface pressure (mbar)\n       GC_PSURF = State_Met%PEDGE(I,J,1)\n\n       ! Get # mols of dry air in each gridbox\n       DRY_AIR(:) =  State_Met%AIRDEN(I,J,:) * XNUMOLAIR * &\n                     1e-6_fp * State_Met%BXHEIGHT(I,J,:)*1e2_fp \n\n       ! Get CH4 values at native model resolution\n       GC_CH4_NATIVE(:) = 0.0_fp\n\n       ! Get species concentrations [v/v]\n       GC_CH4_NATIVE(:) = State_Chm%Species(id_CH4)%Conc(I,J,:)\n\n       CALL MASS_INTERP( GC_PEDGE, GOS(NT)%PRES, GC_CH4_NATIVE, &\n                         L0, State_Grid%NZ, LGOS, GC_CH4 )\n\n       ! test out the old way of interpolating\n       ! Calculate the interpolation weight matrix\n       MAP(:,:) = 0.0_fp\n       CALL OLD_GET_INTMAP( State_Grid, GC_PRES, GC_PSURF, GOS(NT)%PRES, &\n                        L0, LGOS, MAP )\n\n       ! Interpolate GC CH4 column to GOSAT grid\n       ! Use L0 for lowest valid layer for GOSAT (zyz)\n       DO LL = L0, LGOS\n          GC_CH4_ORIG(LL) = 0.0_fp\n          DO L = 1, State_Grid%NZ\n             GC_CH4_ORIG(LL) = GC_CH4_ORIG(LL) + MAP(L,LL) * GC_CH4_NATIVE(L)\n          ENDDO\n       ENDDO\n\n       ! end testing old way of interpolating\n\n       !!DO LL = 1, LGOS\n       ! DO L=1, LLPAR\n       !    IF (MAP(L,LL)>0E0) PRINT*,L,LL,MAP(L,LL)\n       ! ENDDO\n       !ENDDO\n       !print*,'GC_CH4',GC_CH4\n       !stop \n\n       ! GOSAT Proxy XCH4 [ppb] --> [v/v]\n       GOS_XCH4       = GOS(NT)%CH4(1)       * 1e-9_fp\n       GOS_XCH4_ERROR = GOS(NT)%CH4_ERROR(1) * 1e-9_fp\n\n       ! Remove any GOSAT bias\n       ! Do not do latitudinal bias correction from now, zyz,\n       ! 19/9/2018\n       !GOS_XCH4 = GOS_XCH4 + 1e-9 * ( SATELLITE_BIAS(1) &\n       !                    + SATELLITE_BIAS(2)*(GOS(NT)%LAT(1)) &\n       !                    + SATELLITE_BIAS(3)*(GOS(NT)%LAT(1))**2 )\n\n       ! Get the S_obs, assume stddev adds in quadrature, variance\n       ! adds linearly.  (ajt, 03/27/2013)\n       !S_OBS = GOS_XCH4_ERROR**2 + (GC_XCH4_ERROR * 1e-9_fp)**2\n\n       ! Record satellite error directly, you can modify later if you\n       ! want. We don't seem to use it anyway (erp, 10/08/2020)\n       S_OBS = GOS_XCH4_ERROR ! erp \n\n       !--------------------------------------------------------------\n       ! Apply GOSAT observation operator\n       !\n       !   Xch4_m = Xch4_a + SUM_j( h_j * a_j * (x_m - x_a) )\n       !\n       !   Xch4_m  - model XCH4\n       !   Xch4_a  - apriori XCH4 = h^T * x_a\n       !   h       - pressure weighting function\n       !   a       - column averaging kernel\n       !   x_m     - model CH4 [v/v]\n       !   x_a     - apriori CH4 [v/v]\n       !\n       !   The pressure weighting function is defined in Connor et al. 2008\n       !     and the OCO-2 ATBD\n       !--------------------------------------------------------------\n\n       ! Pressure weighting array\n       ! Use L0 for lowest valid layer in GOSAT\n       p(L0:LGOS)     = GOS(NT)%PRES(L0:LGOS)\n       ak(L0:LGOS)    = GOS(NT)%AVG_KERNEL(L0:LGOS)\n       ! JDM Replace calculated h with pres_w provided by GOSAT files\n       pres_w(L0:LGOS)= GOS(NT)%P_WEIGHT(L0:LGOS)\n       prior(L0:LGOS) = GOS(NT)%PRIOR(L0:LGOS) * 1e-9_fp  ! [ppb] --> [v/v]\n\n       !---zyz---\n       !compute the GOSAT layer that encloses tropopause\n       TropP = State_Met%TROPP(I,J)\n       CALL GET_TROP_LAYER(TropP, p, LGOS, LGOS_Trop, WT_LGOS_Trop)\n       !---zyz---\n\n       !=========================================================\n       ! Add computation to record separate tropospheric contribution\n       ! to XCH4, zyz, Sept 19, 2018\n       ! We can record XCH4_prior, XCH4_trop, XCH4_strat, \n       ! so startospheric bias correction can be done offline\n       ! XCH4m = XCH4a + XCH4c \n       !       = SUM(l) (wl*pl) + SUM(l) (wl*al*(ml-pl))\n       !       = SUM(l) ((1-al)*wl*pl) + SUM(l) (al*wl*ml)\n       !       = SUM(l) ((1-al)*wl*pl) +       ===> XCH4m_prior\n       !         SUM(l<=LTROP) (al*wl*ml) +    ===> XCH4m_trop\n       !         SUM(l>LTROP) (al*wl*ml)       ===> XCH4m_strat\n       ! \n       ! wl: weight for layer l\n       ! pl: prior mixing ratio at layer l\n       ! ml: model mixing ratio at layer l\n       ! al: column averaging kernel at layer l\n       ! LTROP: layer of tropopause\n       !=========================================================\n\n       !====================================================================\n       ! Compute GC_XCH4 with the pressure weighting provided in GOSAT data\n       ! file,zyz\n       !====================================================================\n       CALL CALC_GC_XCH4( GC_CH4, ak, pres_w, prior, L0, LGOS, &\n                          LGOS_Trop, WT_LGOS_Trop, GC_XCH4, &\n                          XCH4_prior, XCH4_trop, XCH4_strat )\n\n       !====================================================================\n       ! Compute GC_XCH4 with the h operator used in AJT and JDM's work\n       ! This method seems to have two problems:\n       ! 1. It ignores the impact of  vertical variation in specific humidity\n       !    on the weighting function\n       ! 2. The layer boundary here is at the altidue midpoint\n       !    The paper that the UL-GOSAT paper cites uses pressure midpoint\n       !====================================================================\n\n       ! Need to integrate from the toa to surface (ajt, 05/21/13)\n       IF (LGOS .GT. 1) THEN\n          IF(GOS(NT)%PRES(L0+1) .LT. GOS(NT)%PRES(L0)) THEN\n             p(1:LGOS) = p(LGOS:1:-1)\n          ENDIF\n       ENDIF\n\n       L = 1\n       h(L) = 1./GOS(NT)%PRES(L0) * ABS( &\n              ( -1e0*p(L) + ( (p(L+1)-p(L))/(LOG(p(L+1)/p(L))) ) ) )\n       L = LGOS - L0 + 1\n       h(L) = 1./GOS(NT)%PRES(L0) * ABS( &\n              (  p(L) - ( (p(L)-p(L-1))/(LOG(p(L)/p(L-1))) ) ) )\n       DO L=2,LGOS-L0\n          h(L) = 1./GOS(NT)%PRES(L0) * ABS( &\n                 ( -1e0*p(L) + ( (p(L+1)-p(L))/(LOG(p(L+1)/p(L))) ) ) + &\n                 (      p(L) - ( (p(L)-p(L-1))/(LOG(p(L)/p(L-1))) ) )   )\n       ENDDO\n\n       ! Now return to the orientation of the other variables\n       IF (LGOS .GT. 1) THEN\n          IF(GOS(NT)%PRES(2) .LT. GOS(NT)%PRES(1)) THEN\n             h(1:LGOS) = h(LGOS:1:-1)\n             p(1:LGOS) = p(LGOS:1:-1)\n          ENDIF\n       ENDIF\n\n       ! Use original interpolation with h operator from AJT/JDM\n       !  We don't need the strat/trop/prior so assign to dummy var.\n       CALL CALC_GC_XCH4( GC_CH4_ORIG, ak, h, prior, L0, LGOS, &\n                          LGOS_Trop, WT_LGOS_Trop, GC_XCH4_ORIG_OLDPW, &\n                          foo, foo, foo ) \n         \n       ! Use original interpolation with GOSAT operator\n       !  We don't need the strat/trop/prior so assign to dummy var.\n       CALL CALC_GC_XCH4( GC_CH4_ORIG, ak, h, prior, L0, LGOS, &\n                          LGOS_Trop, WT_LGOS_Trop, &\n                          GC_XCH4_ORIG, foo, foo, foo )\n\n       !---  zyz test with weighting function\n\n       !--------------------------------------------------------------\n       ! Calculate cost function, given S is error in vmr\n       ! J = 1/2 [ model - obs ]^T S_{obs}^{-1} [ model - obs ]\n       !--------------------------------------------------------------\n\n       ! Calculate difference between modeled and observed profile\n       DIFF = GC_XCH4 - GOS_XCH4\n\n       ! Calculate 1/2 * DIFF^T * S_{obs}^{-1} * DIFF\n       ! Need to account for the model error (ajt, 03/27/2013)\n\n       NEW_COST(NT) = NEW_COST(NT) + 0.5e0 * DIFF * FORCE\n\n       TotalObs = TotalObs + 1\n\n       ! Record information for satellite diagnostics\n       IF ( LDCH4SAT ) THEN\n          WRITE( 117, 283 ) TotalObs, I, J, GOS(NT)%LON(1), &\n                GOS(NT)%LAT(1),GOS(NT)%YEAR(1), &\n                GOS(NT)%MONTH(1),GOS(NT)%DAY(1), GOS(NT)%HOUR(1), &\n                GOS(NT)%MINUTE(1), GOS(NT)%SEC(1), &\n                GET_TAU(), GOS_XCH4, GC_XCH4, S_OBS, &\n                TROPP, XCH4_prior, XCH4_trop, XCH4_strat, &\n                GC_XCH4_ORIG, GC_XCH4_ORIG_OLDPW, & ! erp\n                GOS(NT)%GLINT(1),GOS(NT)%GAIN(1),GOS(NT)%EXP_ID(1)\n       ENDIF\n\n    ENDDO  ! NT\n    !!$OMP END PARALLEL DO\n\n    ! Number of observations processed in total\n    !TotalObs = TotalObs + NOBS\n\n    ! Update cost function\n    COST_FUNC = COST_FUNC + SUM(NEW_COST(:))\n\n283 FORMAT( I10,2x,I4,2x,I4,2x,F8.3,2x,F8.4,2x,I4,2x,  &\n            I2,2x,I2,2x,I2,2x,I2,2x,I2,2x,             &\n            F12.3,2x,E12.6,2x,E12.6,2x,E12.6,2x,       &\n            F12.3, 2x,E12.6, 2x, E12.6, 2x, E12.6, 2x, &\n            E12.6, 2x, E12.6, 2x,                      &\n            I5,2x,I5,2x,A22)\n\n    print*, ' Updated value of COST_FUNC = ', COST_FUNC\n    print*, ' GOS contribution           = ', COST_FUNC - OLD_COST\n    print*, ' Number of observations this hour = ', NOBS\n    print*, ' Number of observations total     = ', TotalObs\n\n  END SUBROUTINE CALC_GOSAT_CH4_FORCE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_intmap\n!\n! !DESCRIPTION: Function GET\\_INTMAP linearly interpolates column quatities\n!   based upon the centered (average) pressue levels.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OLD_GET_INTMAP( State_Grid, GCPCEN, GCPSURF, GOSPEDGE, &\n                         L0, L1, INTMAP )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n    REAL(fp),       INTENT(IN)  :: GCPCEN(State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: GCPSURF\n    REAL(fp),       INTENT(IN)  :: GOSPEDGE(MAXLEV)\n    INTEGER,        INTENT(IN)  :: L0, L1\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: INTMAP(State_Grid%NZ,MAXLEV)\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - M. Sulprizio- Initial version based on GOSAT CH4 observation\n!                              operator from GC Adjoint v35j\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: LGC, LTM\n    REAL(fp) :: DIFF, DELTA_SURFP\n    REAL(fp) :: LOW, HI\n\n    !=================================================================\n    ! GET_INTMAP begins here!\n    !=================================================================\n\n    ! Initialize\n    INTMAP(:,:) = 0e+0_fp\n\n    ! Loop over each pressure level of GOS grid\n    DO LTM = L0, L1\n\n       ! Find the levels from GC that bracket level LTM\n       DO LGC = 1, State_Grid%NZ-1\n\n          LOW = GCPCEN(LGC+1)\n          HI  = GCPCEN(LGC)\n\n          ! Match GEOS-Chem level to GOS level\n          IF ( GOSPEDGE(LTM) <= HI .and. GOSPEDGE(LTM)  > LOW) THEN\n\n             DIFF             = HI - LOW\n             INTMAP(LGC+1,LTM) = ( HI - GOSPEDGE(LTM)  ) / DIFF\n             INTMAP(LGC  ,LTM) = ( GOSPEDGE(LTM) - LOW ) / DIFF\n\n          ENDIF\n\n       ENDDO\n\n    ENDDO\n\n    ! Correct for case where GOSAT pressure is higher than the\n    ! highest GC pressure center.  In this case, just 1:1 map.\n    DO LTM = L0, L1\n       IF ( GOSPEDGE(LTM) > GCPCEN(1) ) THEN\n          INTMAP(:,LTM) = 0e+0_fp\n          INTMAP(1,LTM) = 1e+0_fp\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE OLD_GET_INTMAP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_trop_layer\n!\n! !DESCRIPTION: Function GET\\_TROP\\_LAYER (zyz)\n!\\\\\n!\\\\\n! !INTERFACE:\n!  \n  SUBROUTINE GET_TROP_LAYER( TROPP, GOSP, nlev, LTROP, WT_LTROP )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: TROPP\n    REAL(fp), INTENT(IN)  :: GOSP(MAXLEV) \n    INTEGER,  INTENT(IN)  :: nlev\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,  INTENT(OUT) :: LTROP\n    REAL(fp), INTENT(OUT) :: WT_LTROP\n!\n! !REVISION HISTORY:\n!  \n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: L\n    REAL(fp)              :: GOSP_HF(nlev-1)\n\n    !Estimate the edge of GOSAT layers\n    DO L = 1, nlev-1\n       GOSP_HF(L) = (GOSP(L)+GOSP(L+1))/2e+0_fp\n    ENDDO\n\n    !Find the layer that enclose the tropopause\n    !Estimate the WT_LTROP as the fraction of pressure\n    !difference in that layer\n    LTROP = 1\n    WT_LTROP = 0\n    DO L = 1, nlev-2\n       IF (TROPP < GOSP_HF(L) .and. TROPP>= GOSP_HF(L+1)) THEN\n          LTROP=L+1\n          WT_LTROP= (GOSP_HF(L)-TROPP)/(GOSP_HF(L)-GOSP_HF(L+1))\n          EXIT\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE GET_TROP_LAYER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_gc_xch4\n!\n! !DESCRIPTION: \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_GC_XCH4( GC_CH4, AK, PRES_WT, PRIOR, L0, L1, &\n                           LTROP, WT_LTROP, &\n                           XCH4, XCH4_prior, XCH4_trop, XCH4_strat)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN):: GC_CH4(MAXLEV), AK(MAXLEV) \n    REAL(fp), INTENT(IN):: PRIOR(MAXLEV), PRES_WT(MAXLEV)\n    INTEGER,  INTENT(IN) :: L0, L1, LTROP\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN):: WT_LTROP\n    REAL(fp), INTENT(OUT):: XCH4, XCH4_prior, XCH4_trop, XCH4_strat\n!\n! !REMARKS:\n!\n!  Add computation to record separate tropospheric contribution\n!  to XCH4, zyz, Sept 19, 2018\n!  We can record XCH4_prior, XCH4_trop, XCH4_strat, \n!  so startospheric bias correction can be done offline\n!  XCH4m = XCH4a + XCH4c \n!        = SUM(l) (wl*pl) + SUM(l) (wl*al*(ml-pl))\n!        = SUM(l) ((1-al)*wl*pl) + SUM(l) (al*wl*ml)\n!        = SUM(l) ((1-al)*wl*pl) +       ===> XCH4m_prior\n!          SUM(l<=LTROP) (al*wl*ml) +    ===> XCH4m_trop\n!         SUM(l>LTROP) (al*wl*ml)       ===> XCH4m_strat\n! \n!   wl: weight for layer l\n!   pl: prior mixing ratio at layer l\n!   ml: model mixing ratio at layer l\n!   al: column averaging kernel at layer l\n!   LTROP: layer of tropopause\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: L\n\n    ! Calculate XCH4_prior\n    XCH4_PRIOR = 0.0_fp\n    DO L = L0, L1\n       XCH4_PRIOR = XCH4_PRIOR + (1.0_fp - AK(L)) * PRES_WT(L) * PRIOR(L)\n    ENDDO\n\n    ! Calculate XCH4_trop\n    XCH4_trop = 0.0_fp\n    DO L = L0, LTROP\n       XCH4_trop = XCH4_trop + AK(L) * PRES_WT(L) * GC_CH4(L)\n    ENDDO\n    IF (LTROP .ge. L0) THEN\n       XCH4_trop = XCH4_trop - (1.0_fp - WT_LTROP) * &\n                   AK(LTROP) * PRES_WT(LTROP) * GC_CH4(LTROP)\n    ENDIF\n\n    ! Calculate XCH4_strat\n    XCH4_strat = 0.0_fp\n    DO L = LTROP, L1\n       XCH4_strat = XCH4_strat + AK(L) * PRES_WT(L) * GC_CH4(L)\n    ENDDO\n    IF (LTROP .le. L1) THEN\n       XCH4_strat = XCH4_strat - WT_LTROP * &\n                    AK(LTROP) * PRES_WT(LTROP) * GC_CH4(LTROP)\n    ENDIF\n\n    ! Calculate total column\n    XCH4 = XCH4_PRIOR + XCH4_trop + XCH4_strat\n      \n  END SUBROUTINE CALC_GC_XCH4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: h_to_hprime\n!\n! !DESCRIPTION: Calculate HPRIME pressure edges from equation 11 of Keppens 2019\n!               erp, Oct 6, 2020\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE H_TO_HPRIME( OBS_PEDGE, L0, nlev_obs, HPRIME )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: nlev_obs, L0\n    REAL(fp), INTENT(IN)  :: OBS_PEDGE(nlev_obs)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: HPRIME(nlev_obs+1)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: L\n\n    ! Initialize\n    HPRIME(:) = -9999.0_fp  ! this is your missing value\n         \n    HPRIME(L0) = OBS_PEDGE(L0)\n    HPRIME(nlev_obs+1) = OBS_PEDGE(nlev_obs)\n\n    ! Loop over each pressure level of observation grid\n    DO L = L0+1, nlev_obs\n       HPRIME(L) = 0.5_fp*OBS_PEDGE(L) + 0.5_fp*OBS_PEDGE(L-1)\n    ENDDO\n       \n  END SUBROUTINE H_TO_HPRIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: extend_gc\n!\n! !DESCRIPTION: Extend GEOS-Chem pressure leveys so they cover the full\n!   vertical range of the observations\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXTEND_GC( GC_PEDGE, OBS_PEDGE, L0, &\n                        nlev_gc, nlev_obs, GC_PEDGE_EXT )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: nlev_obs, nlev_gc, L0\n    REAL(fp), INTENT(IN) :: GC_PEDGE(nlev_gc+1)\n    REAL(fp), INTENT(IN) :: OBS_PEDGE(nlev_obs)\n!         \n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: GC_PEDGE_EXT(nlev_gc+1)\n    !EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    GC_PEDGE_EXT(:) = 0.0_fp\n    GC_PEDGE_EXT(:) = GC_PEDGE(:)\n         \n    ! if observation surf pres. is higher than model, then\n    ! extend the surface model layer down to the obs. surface\n    IF ( OBS_PEDGE(L0) > GC_PEDGE(1) ) THEN\n       GC_PEDGE_EXT(1) = OBS_PEDGE(L0)\n    ENDIF\n         \n    ! if observation TOA pres. is lower than model, then \n    ! extend the top model layer up to the obs. TOA\n    IF ( OBS_PEDGE(nlev_obs) < GC_PEDGE(nlev_gc+1) ) THEN\n       GC_PEDGE_EXT(nlev_gc+1) = OBS_PEDGE(nlev_obs)\n    ENDIF\n       \n  END SUBROUTINE EXTEND_GC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: overlap_map\n!\n! !DESCRIPTION: OVERLAP_MAP is W in eq 13 of Keppens 2019\n!               erp, Oct 6, 2020\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_OVERLAP_MAP( GC_PEDGE, OBS_PEDGE, &\n                              L0, nlev_gc, nlev_obs, OVERLAP_MAP)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: nlev_gc\n    INTEGER,  INTENT(IN)  :: nlev_obs\n    REAL(fp), INTENT(IN)  :: GC_PEDGE(nlev_gc)\n    REAL(fp), INTENT(IN)  :: OBS_PEDGE(nlev_obs)\n    INTEGER,  INTENT(IN)  :: L0 ! lowest valid observation level \n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: OVERLAP_MAP(nlev_obs-1,nlev_gc-1)\n!\n! !REVISION HISTORY:\n!  23 Sep 2020 - Elise Penn - get map of layer overlaps based on interpolation\n!                             in Langerock et a. 2015 and used in equation 13 of\n!                             Keppens et al. 2019. See description of \n!                             \"mass-conserved regridding\" in Keppens et al.\n!                             2019: https://doi.org/10.5194/amt-12-4379-2019\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: LGC, LTM\n    REAL(fp) :: DIFF\n    REAL(fp) :: LOW_GC, HI_GC\n    REAL(fp) :: LOW_OBS, HI_OBS\n\n    !=================================================================\n    ! GET_OVERLAP_MAP begins here!\n    !=================================================================\n\n    ! Initialize\n    OVERLAP_MAP(:,:) = 0e+0_fp\n         \n    ! Loop over each pressure level of observation retrieval grid\n    DO LTM = L0, nlev_obs-1\n\n       LOW_OBS = OBS_PEDGE(LTM+1)\n       HI_OBS  = OBS_PEDGE(LTM)\n                 \n       ! Find the levels from GC that bracket level LTM\n       DO LGC = 1, nlev_gc-1\n\n          LOW_GC = GC_PEDGE(LGC+1)\n          HI_GC  = GC_PEDGE(LGC)\n\n          ! Match GEOS-Chem level to observation level\n          IF ( ( HI_OBS  <= HI_GC  .and. HI_OBS  >  LOW_GC  ) .or. &\n               ( LOW_OBS <= HI_GC  .and. LOW_OBS >  LOW_GC  ) .or. &\n               ( HI_GC   <= HI_OBS .and. HI_GC   >  LOW_OBS ) .or. &\n               ( LOW_GC  <= HI_OBS .and. LOW_GC  >  LOW_OBS ) ) THEN\n\n             DIFF             = HI_GC- LOW_GC\n             OVERLAP_MAP(LTM,LGC) = ( MIN(HI_OBS,HI_GC) - &\n                                      MAX(LOW_OBS,LOW_GC) ) / DIFF\n                     \n          ENDIF\n\n       ENDDO\n\n    ENDDO\n         \n  END SUBROUTINE GET_OVERLAP_MAP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: mass_interp\n!\n! !DESCRIPTION: Perform interpolation from model levels to the levels of your\n!   observation, erp, Oct 6, 2020\n!   The interpolation redistributes mass between model and observation layers,\n!   then returns it to the edges of the layers for application of the AK and\n!   pressure weights. Based on equation 13 of Keppens 2019\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MASS_INTERP( GC_PEDGE, OBS_PEDGE, GC_CH4_NATIVE, L0, &\n                          nlev_gc, nlev_obs, CH4_INTERP_EDGES )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: nlev_obs, nlev_gc, L0\n    REAL(fp), INTENT(IN) :: GC_PEDGE(nlev_gc+1)\n    REAL(fp), INTENT(IN) :: GC_CH4_NATIVE(nlev_gc)\n    REAL(fp), INTENT(IN) :: OBS_PEDGE(nlev_obs)\n!             \n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: CH4_INTERP_EDGES(nlev_obs)\n         !EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: GC_PEDGE_EXT(nlev_gc+1), OBS_HPRIME(nlev_obs+1)\n    REAL(fp) :: OVERLAP_MAP(nlev_obs,nlev_gc)\n    REAL(fp) :: M_obs(nlev_obs), M_gc(nlev_gc)\n    REAL(fp) :: CH4_INTERP_INTEGRATED(nlev_obs)\n    REAL(fp) :: CH4_MODEL_INTEGRATED(nlev_gc)\n    INTEGER  :: LGC, LOBS\n         \n    ! Initialize\n    CH4_INTERP_EDGES(:) = 0.0_fp ! note your missing value is 0\n         \n    ! extend GEOS-Chem so it covers the full vertical range \n    !   of the observations\n    CALL EXTEND_GC( GC_PEDGE, OBS_PEDGE, L0, nlev_gc+1, nlev_obs, GC_PEDGE_EXT )\n\n    ! calculate HPRIME pressure edges from equation 11\n    CALL H_TO_HPRIME( OBS_PEDGE, L0, nlev_obs, OBS_HPRIME )\n\n    ! OVERLAP_MAP is W in eq 13\n    CALL GET_OVERLAP_MAP( GC_PEDGE_EXT, OBS_HPRIME, L0, nlev_gc+1, &\n                          nlev_obs+1, OVERLAP_MAP )\n         \n    ! M_gc and M_obs are M_in and M_out from eq 14\n    ! They are diagonal matrices, so we can use a vector\n    M_gc(:) = 0.0_fp\n    DO LGC = 1, nlev_gc\n       M_gc(LGC) = GC_PEDGE_EXT(LGC) - GC_PEDGE_EXT(LGC+1)\n    ENDDO\n    M_obs(:) = 0.0_fp\n    DO LOBS = L0, nlev_obs\n       M_obs(LOBS) = OBS_HPRIME(LOBS) - OBS_HPRIME(LOBS+1)\n    ENDDO\n         \n    ! Intermediate steps for eq 14:\n    ! 1) M_in * x\n    CH4_MODEL_INTEGRATED(:) = 0.0_fp\n    DO LGC = 1, nlev_gc\n       CH4_MODEL_INTEGRATED(LGC) = M_gc(LGC) * GC_CH4_NATIVE(LGC)\n    ENDDO\n\n    ! 2) W * M_in * x (matrix multiply W and M_in*x)\n    CH4_INTERP_INTEGRATED(:) = 0.0_fp\n    DO LGC = 1, nlev_gc\n       DO LOBS = L0, nlev_obs\n          CH4_INTERP_INTEGRATED(LOBS) = CH4_INTERP_INTEGRATED(LOBS) + &\n               OVERLAP_MAP(LOBS,LGC) * CH4_MODEL_INTEGRATED(LGC)\n       ENDDO\n    ENDDO\n\n    ! 3) inv(M_out) * W * M_in * x\n    DO LOBS = L0, nlev_obs\n       ! inv(M_out) = 1/M_out because it is diagonal\n       CH4_INTERP_EDGES(LOBS) = 1.0_fp/M_obs(LOBS) * CH4_INTERP_INTEGRATED(LOBS)\n    ENDDO\n         \n  END SUBROUTINE MASS_INTERP\n!EOC\nEND MODULE GOSAT_CH4_MOD\n"
  },
  {
    "path": "GeosCore/hco_interface_gc_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: hco_interface_gc_mod.F90\n!\n! !DESCRIPTION: Module hco\\_interface\\_gc\\_mod.F90 contains routines and\n! variables to interface GEOS-Chem and HEMCO. It contains the HEMCO\n! state object (HcoState) as well as init-run-finalize driver routines\n! to run HEMCO within GEOS-Chem.\n!\\\\\n!\\\\\n! The HEMCO driver is now present in this file as HEMCO is restructured to\n! provide a unified point-of-entry for coupling with other models.\n!\\\\\n!\\\\\n! Notes:\n! \\begin{itemize}\n! \\item HEMCO is used to calculate all emission fields. The emission tendencies\n!  are passed to GEOS-Chem in module mixing\\_mod.F90.\n! \\item Most meteorological fields needed by the HEMCO extensions are provided\n!  through the GEOS-Chem meteorological state object Met\\_State. Few fields\n!  such as the pressure edges or J-values are defined and updated explicitly\n!  within this module.\n! \\End{itemize}\n! !INTERFACE:\n!\nMODULE HCO_Interface_GC_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  USE HCO_Error_Mod\n  USE HCO_Interface_Common\n\n  ! Import the HEMCO states and their types from the state container\n  USE HCOX_State_Mod,   ONLY : Ext_State\n  USE HCO_State_Mod,    ONLY : HCO_State\n  USE HCO_State_GC_Mod, ONLY : HcoState, ExtState\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n#ifndef MODEL_CESM\n  PUBLIC  :: HCOI_GC_Init\n  PUBLIC  :: HCOI_GC_Run\n  PUBLIC  :: HCOI_GC_Final\n#endif\n\n  PUBLIC  :: HCOI_GC_WriteDiagn\n  PUBLIC  :: Compute_Sflx_For_Vdiff\n  PUBLIC  :: Set_DryDepVel_Diagnostics\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n#ifndef MODEL_CESM\n  PRIVATE :: ExtState_InitTargets\n  PRIVATE :: ExtState_SetFields\n  PRIVATE :: ExtState_UpdateFields\n#endif\n\n  PRIVATE :: Get_SzaFact\n  PRIVATE :: GridEdge_Set\n  PRIVATE :: CheckSettings\n  PRIVATE :: SetHcoGrid\n  PRIVATE :: SetHcoSpecies\n\n#ifdef MODEL_CLASSIC\n  PRIVATE :: Get_Met_Fields\n#endif\n!\n! !REMARKS:\n!  Formerly HCOI\\_GC\\_Main\\_Mod.\n!\n! !REVISION HISTORY:\n!  20 Aug 2013 - C. Keller   - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  !------------------------------------\n  ! %%% Species ID's %%%\n  !------------------------------------\n  INTEGER             :: id_HNO3\n  INTEGER             :: id_LIMO\n  INTEGER             :: id_NO\n  INTEGER             :: id_NO2\n  INTEGER             :: id_O3\n  INTEGER             :: id_POPG\n\n  !------------------------------------\n  ! %%% Arrays, Pointers, Targets %%%\n  !------------------------------------\n\n  ! Internal met fields (will be used by some extensions)\n  INTEGER,  TARGET    :: HCO_PBL_MAX                      ! level\n\n#if defined( MODEL_CLASSIC )\n\n  !------------------------------------------------\n  ! %%% Internal HEMCO intermediate resolution %%%\n  ! %%%        meteorological fields           %%%\n  !------------------------------------------------\n\n  ! These will ONLY be allocated and used if HEMCO-intermediate grid\n  ! is enabled (resolutions differ)\n  !\n  ! Note: These could be migrated to inside a derived-type object\n  ! by storing directly in ExtState through array assertions. However,\n  ! this would involve a lot of code path branching as we do not want\n  ! to assert arrays for other models when not running IMGrid and incurring\n  ! waste of memory. For the sake of maintaining old code implementations\n  ! \"as-is\" and making the intermediate an as-seamless-possible patch over\n  ! the original implementation, we list all these module variables here.\n  ! I am aware that there is a cleaner implementation. (hplin, 6/9/20)\n\n  ! 2-D fields\n  REAL(hp), POINTER :: H_SZAFACT   (:,:)\n  REAL(hp), POINTER :: H_JNO2      (:,:)\n  REAL(hp), POINTER :: H_JOH       (:,:)\n  REAL(hp), POINTER :: H_PSC2_WET  (:,:)\n  REAL(hp), POINTER :: H_FRCLND    (:,:)\n  REAL(hp), POINTER :: H_MODISLAI  (:,:)\n  REAL(hp), POINTER :: H_CNV_FRC   (:,:)\n  INTEGER, POINTER  :: H_TropLev   (:,:)\n\n  REAL(hp), POINTER :: H_TROPP     (:,:)\n  REAL(hp), POINTER :: H_FLASH_DENS(:,:)\n  REAL(hp), POINTER :: H_CONV_DEPTH(:,:)\n  REAL(hp), POINTER :: H_SUNCOS    (:,:)\n\n  REAL(hp), POINTER :: H_DRY_TOTN  (:,:)\n  REAL(hp), POINTER :: H_WET_TOTN  (:,:)\n\n  ! 3-D fields\n  REAL(hp), POINTER :: H_T         (:,:,:)\n  REAL(hp), POINTER :: H_AD        (:,:,:)\n  REAL(hp), POINTER :: H_AIRVOL    (:,:,:)\n  REAL(hp), POINTER :: H_AIRDEN    (:,:,:)\n  REAL(hp), POINTER :: H_F_OF_PBL  (:,:,:)\n\n  REAL(hp), POINTER :: H_SPHU      (:,:,:)                ! Note: Only need ZBND = 1 sfc value\n\n  REAL(hp), POINTER :: H_SpcO3     (:,:,:)\n  REAL(hp), POINTER :: H_SpcNO2    (:,:,:)\n  REAL(hp), POINTER :: H_SpcNO     (:,:,:)\n  REAL(hp), POINTER :: H_SpcHNO3   (:,:,:)\n  REAL(hp), POINTER :: H_SpcPOPG   (:,:,:)\n\n  ! Intermediate temporaries for regridding\n  REAL(hp), POINTER :: REGR_3DI    (:,:,:)                ! Regridding temporary pointer (in)\n  REAL(hp), POINTER :: REGR_3DO    (:,:,:)                ! (out)\n\n#endif\n\n!\n! !DEFINED PARAMETERS:\n!\n  ! Temporary toggle for diagnostics\n  LOGICAL,  PARAMETER :: DoDiagn = .TRUE.\n\nCONTAINS\n#if !defined( MODEL_CESM )\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCOI_GC_Init\n!\n! !DESCRIPTION: Subroutine HCOI\\_GC\\_INIT initializes the HEMCO derived\n! types and arrays. The HEMCO configuration is read from the HEMCO\n! configuration file (HEMCO_Config.rc) and stored in the HEMCO configuration\n! object. The entire HEMCO setup is based upon the entries in the HEMCO\n! configuration object. It is possible to explicitly provide a (previously\n! read) HEMCO configuration object via input argument `HcoConfig`. In this\n! case the HEMCO configuration file will not be read any more.\n!\\\\\n!\\\\\n! It is also possible to specify an optional, State_Grid_HCO argument.\n! If this is specified, the HEMCO 'intermediate grid' implementation will be\n! enabled and HEMCO will operate on a distinct grid from the GEOS-Chem simulation,\n! and met fields and emissions will be regridded on-demand in memory. This permits\n! the use of higher resolution masks, scaling factors and HEMCO extensions.\n! (hplin, 6/2/20)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCOI_GC_Init( Input_Opt, State_Chm, State_Grid, &\n                           State_Met, RC,        HcoConfig )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,       ONLY : NDSTBIN\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_EMIS, GET_TS_DYN\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n#ifdef TOMAS\n    USE TOMAS_MOD,          ONLY : Xk\n#endif\n\n    ! HEMCO routines\n    USE HCO_Types_Mod,      ONLY : ConfigObj\n    USE HCO_Config_Mod,     ONLY : Config_ReadFile, ConfigInit\n    USE HCO_State_Mod,      ONLY : HcoState_Init\n    USE HCO_Diagn_Mod,      ONLY : DiagnFileOpen\n    USE HCO_Driver_Mod,     ONLY : HCO_Init\n    USE HCOI_GC_Diagn_Mod,  ONLY : HCOI_GC_Diagn_Init\n    USE HCOX_Driver_Mod,    ONLY : HCOX_Init\n    USE HCOX_State_Mod,     ONLY : ExtStateInit\n\n#ifdef MODEL_CLASSIC\n    ! HEMCO Intermediate Grid specification\n    USE HCO_State_GC_Mod,   ONLY : State_Grid_HCO\n    USE GC_Grid_Mod,        ONLY : Compute_Scaled_Grid\n    USE HCO_Utilities_GC_Mod, ONLY : Init_IMGrid\n#endif\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(IN   )           :: State_Chm  ! Chemistry state\n    TYPE(GrdState),   INTENT(IN   )           :: State_Grid ! Grid state\n    TYPE(MetState),   INTENT(IN   )           :: State_Met  ! Met state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)           :: Input_Opt  ! Input opts\n    TYPE(ConfigObj),  POINTER,      OPTIONAL  :: HcoConfig  ! HEMCO config object\n    INTEGER,          INTENT(INOUT)           :: RC         ! Failure or success\n!\n! !REVISION HISTORY:\n!  12 Sep 2013 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                   :: LSTRAT,  FOUND\n    INTEGER                   :: nHcoSpc, HMRC\n    INTEGER                   :: N\n\n    ! Strings\n    CHARACTER(LEN=255)        :: HcoConfigFile\n    CHARACTER(LEN=255)        :: OptName, ThisLoc\n    CHARACTER(LEN=512)        :: ErrMSg\n\n    ! Pointers\n    TYPE(ConfigObj), POINTER  :: iHcoConfig => NULL()\n    TYPE(Species),   POINTER  :: SpcInfo\n\n    !=======================================================================\n    ! HCOI_GC_INIT begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at HCOI_GC_Init (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    ! Name of HEMCO configuration file\n    HcoConfigFile = 'HEMCO_Config.rc'\n\n    ! Define all species ID's here, for use in module routines below\n    id_HNO3  = Ind_('HNO3')\n    id_LIMO  = Ind_('LIMO')\n    id_NO    = Ind_('NO'  )\n    id_NO2   = Ind_('NO2' )\n    id_O3    = Ind_('O3'  )\n    id_POPG  = Ind_('POPG')\n    IF ( id_POPG < 0 ) THEN\n       id_POPG  = Ind_('POPG_BaP')\n    ENDIF\n    IF ( id_POPG < 0 ) THEN\n       id_POPG  = Ind_('POPG_PHE')\n    ENDIF\n    IF ( id_POPG < 0 ) THEN\n       id_POPG  = Ind_('POPG_PYR')\n    ENDIF\n\n#ifdef MODEL_CLASSIC\n    ! Initialize the intermediate grid descriptor.\n    ! To disable the HEMCO intermediate grid feature, simply set this DY, DX to\n    ! equal to State_Grid%DY, State_Grid%DX (e.g. 2x2.5, 4x5, ...)\n    !\n    ! TODO: Read in the grid parameters via geoschem_config.yml. For now,\n    ! hardcode the scale factor.\n    Input_Opt%IMGRID_XSCALE = 1\n    Input_Opt%IMGRID_YSCALE = 1\n\n    ! To test GC-Classic WITHOUT intermediate grid\n    ! Input_Opt%IMGRID_XSCALE = 1\n    ! Input_Opt%IMGRID_YSCALE = 1\n\n    ! Are we using HEMCO intermediate grid implementation?\n    ! Note: The mere presence of State_Grid_HCO does not mean\n    ! that the intermediate grid is necessarily different.\n    ! The code path is decided if the intermediate is actually a different grid.\n    IF ( Input_Opt%IMGRID_XSCALE /= 1 .or. Input_Opt%IMGRID_XSCALE /= 1 ) THEN\n      ! Force .or. .true. to waste CPU cycles in regridding and debug Map_A2A above\n      Input_Opt%LIMGRID = .true.\n\n      ! In intermediate grid implementation\n      WRITE(6, *) \"HEMCO INTERMEDIATE GRID:\"\n      CALL Compute_Scaled_Grid ( Input_Opt, State_Grid, State_Grid_HCO, Input_Opt%IMGRID_XSCALE, Input_Opt%IMGRID_YSCALE, RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         ErrMsg = 'Error encountered in \"Compute_Scaled_Grid\"!'\n         CALL GC_Error( ErrMsg, RC, ThisLoc )\n      ENDIF\n\n      write(State_Grid_HCO%GridRes, '(f10.4,a,f10.4)') State_Grid_HCO%DX, \"x\", State_Grid_HCO%DY\n\n      ! Initialize module temporaries for regridding\n      ALLOCATE( REGR_3DI( State_Grid%NX, State_Grid%NY, State_Grid%NZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:HCOI_GC_Init:REGR_3DI', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ALLOCATE( REGR_3DO( State_Grid_HCO%NX, State_Grid_HCO%NY, State_Grid_HCO%NZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:HCOI_GC_Init:REGR_3DO', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ! And within the utilities module\n      CALL Init_IMGrid( Input_Opt, State_Grid, State_Grid_HCO )\n    ELSE\n      ! Intermediate grid is same as model grid. Maintain current implementation\n      ! all computations about State_Grid_HCO can be skipped to save memory.\n    ENDIF\n#endif\n\n    ! Create a splash page\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a)' ) REPEAT( '%', 79 )\n       WRITE( 6, 100   ) 'HEMCO: Harmonized Emissions Component'\n#ifdef MODEL_CLASSIC\n       IF ( Input_Opt%LIMGRID ) THEN\n         WRITE( 6, '(a)' ) 'HEMCO is running on a different grid than the model', State_Grid_HCO%GridRes\n       ENDIF\n#endif\n       WRITE( 6, 101   ) 'You are using HEMCO version ', ADJUSTL(HCO_VERSION)\n       WRITE( 6, '(a)' ) REPEAT( '%', 79 )\n 100   FORMAT( '%%%%%', 15x, a,      17x, '%%%%%' )\n 101   FORMAT( '%%%%%', 15x, a, a12, 14x, '%%%%%' )\n    ENDIF\n\n    !=======================================================================\n    ! Read HEMCO configuration file and save into buffer. This also\n    ! sets the HEMCO error properties (verbose mode? log file name,\n    ! etc.) based upon the specifications in the configuration file.\n    ! The log file is now read in two phases: phase 1 reads only the\n    ! settings and extensions; phase 2 reads all data fields. This\n    ! way, settings and extension options can be updated before\n    ! reading all the associated fields.\n    ! (ckeller, 2/13/15).\n    !=======================================================================\n\n    ! If HcoConfig is provided\n    IF ( PRESENT( HcoConfig ) ) iHcoConfig => HcoConfig\n\n    !---------------------------------------\n    ! Initialize HEMCO config object\n    !---------------------------------------\n    CALL ConfigInit ( iHcoConfig, HMRC, State_Chm%nSpecies )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ConfigInit\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n    ENDIF\n\n    ! Is this the root CPU?\n    iHcoConfig%amIRoot = Input_Opt%amIRoot\n\n    ! Met and grid parameters\n    iHcoConfig%MetField = Input_Opt%MetField\n\n    ! In any way, even if the intermediate grid is enabled, the grid resolution\n    ! tokens ($RES$) should be replaced with the token that is most appropriate\n    ! with the model native resolution.\n    !\n    ! This might not be the case in the future, but it involves other\n    ! science implications that should be discussed with the scientific GCSC!\n    ! (hplin, 6/4/20)\n    iHcoConfig%GridRes  = State_Grid%GridRes\n\n    ! Pass GEOS-Chem species information to HEMCO config object to\n    ! facilitate reading GEOS-Chem restart file via HEMCO\n    iHcoConfig%nModelSpc = State_Chm%nSpecies\n    iHcoConfig%nModelAdv = State_Chm%nAdvect\n    DO N = 1, State_Chm%nSpecies\n       ! Get info for this species from the species database\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Model ID and species name\n       iHcoConfig%ModelSpc(N)%ModID      = SpcInfo%ModelID\n       iHcoConfig%ModelSpc(N)%SpcName    = TRIM( SpcInfo%Name )\n\n       ! Free pointer\n       SpcInfo => NULL()\n    ENDDO\n\n    !---------------------------------------\n    ! Phase 1: read settings and switches\n    !---------------------------------------\n    CALL Config_ReadFile( Input_Opt%amIRoot,        &\n                          iHcoConfig,               &\n                          HcoConfigFile,            &\n                          1,                        &\n                          HMRC,                     &\n                          IsDryRun=Input_Opt%DryRun )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"Config_Readfile\" (Phase 1)!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n    ENDIF\n\n    ! Check settings\n    CALL CheckSettings( iHcoConfig, Input_Opt, State_Met, State_Chm,  HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"CheckSettings\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !---------------------------------------\n    ! Open logfile\n    !---------------------------------------\n    CALL HCO_LOGFILE_OPEN( iHcoConfig%Err, Input_Opt%amIRoot, RC=HMRC, &\n         logLUN=iHcoConfig%hcoLogLUN )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_LogFile_Open\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !---------------------------------------\n    ! Phase 2: read fields\n    !---------------------------------------\n    CALL Config_ReadFile( Input_Opt%amIRoot,        &\n                          iHcoConfig,               &\n                          HcoConfigFile,            &\n                          2,                        &\n                          HMRC,                     &\n                          IsDryRun=Input_Opt%DryRun )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"Config_Readfile\" (Phase 2)!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Initialize HEMCO state object and populate it\n    !=======================================================================\n\n    !-----------------------------------------------------------------------\n    ! Extract species to use in HEMCO. nHcoSpc denotes the number of\n    ! species that shall be used in HEMCO. The species properties are\n    ! defined in the Register_Species call below.\n    ! Typically, nHcoSpc is just the number of species defined in both\n    ! the HEMCO configuration file and GEOS-Chem. However, additional\n    ! species can be defined, e.g. those not transported in GEOS-Chem\n    ! (e.g. SESQ) or tagged species (e.g. specialty simulations).\n    !-----------------------------------------------------------------------\n    CALL SetHcoSpecies ( Input_Opt, State_Chm, HcoState,  nHcoSpc, 1, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = &\n         'Error encountered in \"\"SetHcoSpecies\" (first call, to get species)!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Now that number of HEMCO species are known, initialize HEMCO\n    ! state object.  Links the HEMCO configuration file object\n    ! iHcoConfig to HcoState%Config.\n    !-----------------------------------------------------------------------\n    CALL HcoState_Init( HcoState, iHcoConfig, nHcoSpc, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCOState_Init\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Register species. This will define all species properties\n    ! (names, molecular weights, etc.) of the HEMCO species.\n    !-----------------------------------------------------------------------\n    CALL SetHcoSpecies ( Input_Opt, State_Chm, HcoState, nHcoSpc, 2, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = &\n     'Error encountered in \"SetHcoSpecies\" (second call, to register species)!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Set the HEMCO grid\n    !-----------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n      CALL SetHcoGrid( State_Grid_HCO, State_Met, HcoState, RC )\n    ELSE\n#endif\n      CALL SetHcoGrid( State_Grid, State_Met, HcoState, RC )\n#ifdef MODEL_CLASSIC\n    ENDIF\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"Set_Grid\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Set misc. parameter\n    !=======================================================================\n\n#ifdef ADJOINT\n    if ( Input_Opt%amIRoot ) WRITE(*,*) 'Setting isAdjoint to ', Input_Opt%is_adjoint\n    HcoState%isAdjoint = Input_opt%is_adjoint\n#endif\n    ! Emission, chemistry and dynamics timestep in seconds\n    HcoState%TS_EMIS = GET_TS_EMIS()\n    HcoState%TS_CHEM = GET_TS_CHEM()\n    HcoState%TS_DYN  = GET_TS_DYN()\n\n    ! Is this an ESMF simulation or not?\n    ! The ESMF flag must be set before calling HCO_Init because the\n    ! source file name is set differently in an ESMF environment\n    ! compared to a stand-alone version: in ESMF, the source file name\n    ! is set to the container name since this is the identifying name\n    ! used by ExtData.\n#ifdef ESMF_\n    HcoState%Options%isESMF = .TRUE.\n#else\n    HcoState%Options%isESMF = .FALSE.\n#endif\n\n    ! Set deposition length scale. This determines if dry deposition\n    ! frequencies are calculated over the entire PBL or the first\n    ! model layer only.\n    HcoState%Options%PBL_DRYDEP = Input_Opt%PBL_DRYDEP\n\n    !----------------------------------------------------------------------\n    ! Are we running HEMCO in a dry-run mode?\n    ! This is dictated by the GEOS-Chem environment. If GEOS-Chem is in a\n    ! dry-run mode, no compute is performed and files are only \"checked\".\n    ! Simulations will NOT stop on missing files. This is intended to be a\n    ! quick sanity check to make sure that GEOS-Chem IO are all correctly\n    ! set up, which is why most of the runs fail to complete successfully.\n    ! (hplin, 11/2/19)\n    !\n    ! Dry run simulations will send output to the stdout (which usually\n    ! gets piped to the GEOS-Chem log file).\n    !\n    ! NOTE: The dry-run option is only invoked in GEOS-Chem \"Classic\",\n    ! so these values will remain at their defaults (.FALSE. and -1,\n    ! respectively) when we use HEMCO in external ESMs (bmy, 11/13/19)\n    !----------------------------------------------------------------------\n    HcoState%Options%IsDryRun = Input_Opt%DryRun\n\n    !=======================================================================\n    ! Initialize HEMCO internal lists and variables. All data\n    ! information is written into internal lists (ReadList) and\n    ! the HEMCO configuration file is removed from buffer in this\n    ! step. This also initializes the HEMCO clock as well as the\n    ! HEMCO emissions diagnostics collection.\n    !=======================================================================\n    CALL HCO_Init( HcoState, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_Init\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    ! Save # of defined dust species in HcoState\n    HcoState%nDust                     =  NDSTBIN\n\n    ! Use marine organic aerosols?\n    HcoState%MarinePOA                 =  Input_Opt%LMPOA\n\n#ifdef TOMAS\n\n    ! Save # of TOMAS size bins in HcoState\n    HcoState%MicroPhys%nBins           =  State_Chm%nTomasBins\n\n    ! Point to TOMAS bin boundaries array (Xk) in HcoState\n    HcoState%MicroPhys%BinBound        => Xk\n\n    ! Save # of TOMAS active mode bins in HcoState\n#if defined( TOMAS40 )\n    HcoState%MicroPhys%nActiveModeBins =  10\n#elif defined( TOMAS15 )\n    HcoState%MicroPhys%nActiveModeBins =  3\n#else\n    HcoState%MicroPhys%nActiveModeBins =  0\n#endif\n#endif\n\n    !=======================================================================\n    ! Initialize all HEMCO extensions. This also selects the required\n    ! met fields used by each extension.\n    !=======================================================================\n    CALL HCOX_Init( HcoState, ExtState, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCOX_Init\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! For dry-runs only: Print the status of the HEMCO diagnostic\n    ! configuration file (e.g. HEMCO_Diagn.rc), and then exit\n    !=======================================================================\n    IF ( Input_Opt%DryRun ) THEN\n       CALL DiagnFileOpen( HcoState%Config, N, RC, IsDryRun=.TRUE. )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Update and check logical switches in Input_Opt\n    !-----------------------------------------------------------------------\n\n    ! Soil NOx\n    Input_Opt%LSOILNOX      = ( ExtState%SoilNOx > 0 )\n    Input_Opt%UseSoilTemp   = ExtState%TSOIL1%DoUse\n\n    ! Ginoux dust emissions\n    IF ( ExtState%DustGinoux > 0 ) THEN\n       IF ( .not. Input_Opt%LDUST ) THEN\n          ErrMsg = 'DustGinoux is on in HEMCO but activate dust is false ' // &\n                   ' in geoschem_config.yml!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n       Input_Opt%LDEAD = .FALSE.\n    ENDIF\n\n    ! DEAD dust emissions\n    IF ( ExtState%DustDead > 0 ) THEN\n       IF ( .not. Input_Opt%LDUST ) THEN\n          ErrMsg = 'DustDead is on in HEMCO but activate dust is false ' // &\n                   'in geoschem_config.yml!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n       Input_Opt%LDEAD = .TRUE.\n    ENDIF\n\n    ! Dust alkalinity\n    IF ( ExtState%DustAlk > 0 ) THEN\n       IF ( .not. Input_Opt%LDSTUP ) THEN\n          ErrMsg = 'DustAlk is on in HEMCO but acid_uptake_on_dust is ' // &\n                   'false in geoschem_config.yml'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Set constants for POPs simulation\n    !-----------------------------------------------------------------------\n    IF ( ExtState%GC_POPs > 0 ) THEN\n       ExtState%POP_DEL_H   = Input_Opt%POP_DEL_H\n       ExtState%POP_KOA     = Input_Opt%POP_KOA\n       ExtState%POP_KBC     = Input_Opt%POP_KBC\n       ExtState%POP_DEL_Hw  = Input_Opt%POP_DEL_Hw\n       ExtState%POP_XMW     = Input_Opt%POP_XMW\n       ExtState%POP_HSTAR   = Input_Opt%POP_HSTAR\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Initialize ExtState target arrays.\n    ! Extensions typically depend on environmental dependent met.\n    ! variables such as wind speed, surface temp., etc. Pointers\n    ! to these (2D or 3D) fields are defined in the extension object.\n    ! Here, we need to make sure that these pointers are properly\n    ! connected.\n    !-----------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n      ! Use the HEMCO \"intermediate\" grid -- allocate arrays accordingly\n      CALL ExtState_InitTargets( HcoState, ExtState, Input_Opt, State_Grid, HMRC, State_Grid_HCO )\n    ELSE\n      CALL ExtState_InitTargets( HcoState, ExtState, Input_Opt, State_Grid, HMRC )\n    ENDIF\n#else\n    CALL ExtState_InitTargets( HcoState, ExtState, Input_Opt, State_Grid, HMRC )\n#endif\n\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtState_InitTargets\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Define diagnostics\n    !-----------------------------------------------------------------------\n    IF ( DoDiagn ) THEN\n\n       ! Set up traditional GEOS-Chem NDxx diagnostics for emissions\n       CALL HCOI_GC_Diagn_Init( Input_Opt, HcoState, ExtState, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCOI_GC_Diagn_Init\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Cleanup and quit\n    !=================================================================\n\n    ! Eventually remove pointer\n    IF ( PRESENT( HcoConfig ) ) iHcoConfig => NULL()\n\n    ! Leave w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE HCOI_GC_INIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCOI_GC_Run\n!\n! !DESCRIPTION: Subroutine HCOI\\_GC\\_Run runs HEMCO from GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCOI_GC_Run( Input_Opt, State_Chm, State_Grid,  &\n                          State_Met, EmisTime,  Phase,  RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Get_Ndep_Mod,    ONLY : Reset_Dep_N   ! For soilnox\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE Time_Mod\n\n    ! HEMCO routines\n    USE HCO_Clock_Mod,   ONLY : HcoClock_Get\n    USE HCO_Clock_Mod,   ONLY : HcoClock_EmissionsDone\n    USE HCO_Diagn_Mod,   ONLY : HcoDiagn_AutoUpdate\n    USE HCO_FluxArr_Mod, ONLY : HCO_FluxarrReset\n    USE HCO_Driver_Mod,  ONLY : HCO_Run\n    USE HCOX_Driver_Mod, ONLY : HCOX_Run\n\n#if defined( MODEL_CLASSIC )\n    ! HEMCO utility routines for GEOS-Chem\n    USE HCO_Utilities_GC_Mod, ONLY : Get_GC_Restart\n    USE HCO_Utilities_GC_Mod, ONLY : Get_Boundary_Conditions\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN   )  :: EmisTime   ! Is this an emission time step?\n    INTEGER,          INTENT(IN   )  :: Phase      ! Run phase (see remarks)\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt  ! Input options\n    TYPE(MetState),   INTENT(INOUT)  :: State_Met  ! Meteo state\n    TYPE(ChmState),   INTENT(INOUT)  :: State_Chm  ! Chemistry state\n    INTEGER,          INTENT(INOUT)  :: RC         ! Failure or success\n!\n! !REMARKS:\n!  Phase -1 : Used for GCHP\n!  Phase  0 : Simplified Phase 1 for reading initial met fields and restart file\n!  Phase  1 : Update HEMCO clock and HEMCO data list and get met fields\n!  Phase  2 : Perform emissions calculation\n!\n! !REVISION HISTORY:\n!  12 Sep 2013 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd variables\n    REAL(f8), SAVE     :: PrevTAU = -999999.0_f8\n\n    ! Scalars\n    LOGICAL            :: notDryRun\n    INTEGER            :: HMRC\n    LOGICAL            :: IsEmisTime\n    LOGICAL            :: IsEndStep\n\n    INTEGER            :: year, month, day, dayOfYr, hour, minute, second\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    ! Arrays\n    INTEGER            :: D(2)               ! Variable for date and time\n\n    !=======================================================================\n    ! HCOI_GC_RUN begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    HMRC      = HCO_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = &\n       ' -> at HCOI_GC_Run (in module GeosCore/hco_interface_gc_mod.F90)'\n    notDryRun = ( .not. Input_Opt%DryRun )\n\n    !=======================================================================\n    ! Make sure HEMCO time is in sync with simulation time\n    ! Now done through a universal function in HCO_Interface_Common\n    !=======================================================================\n    year      = GET_YEAR()\n    month     = GET_MONTH()\n    day       = GET_DAY()\n    dayOfYr   = GET_DAY_OF_YEAR()\n    hour      = GET_HOUR()\n    minute    = GET_MINUTE()\n    second    = GET_SECOND()\n\n    CALL SetHcoTime( HcoState, ExtState, year,   month,     day, dayOfYr, &\n                     hour,     minute,   second, EmisTime,  HMRC         )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"SetHcoTime\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! See if it's time for emissions. Don't just use the EmisTime flag in\n    ! case that we call this routine multiple times. IsEmisTime will only\n    ! be true if this is an emission time step AND emissions have not yet\n    ! been calculated for that time step.\n    !=======================================================================\n    CALL HcoClock_Get( HcoState%Clock, IsEmisTime=IsEmisTime, RC=HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HcoClock_Get\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    ! Check if this is the last GEOS-Chem timestep\n    IF ((( HcoState%Clock%ThisYear * 10000 + HcoState%Clock%ThisMonth * 100 + &\n           HcoState%Clock%ThisDay ) == Input_Opt%NYMDe ) .AND. &\n        (( HcoState%Clock%ThisHour * 10000 + HcoState%Clock%ThisMin   * 100 + &\n           HcoState%Clock%ThisSec ) == Input_Opt%NHMSe )) THEN\n       IsEndStep = .TRUE.\n    ELSE\n       IsEndStep = .FALSE.\n    ENDIF\n\n    !=======================================================================\n    ! Reset all emission and deposition values. Do this only if it is time\n    ! for emissions, i.e. if those values will be refilled.\n    !=======================================================================\n    IF ( IsEmisTime .AND. Phase == 2 .and. notDryRun ) THEN\n       CALL HCO_FluxArrReset( HcoState, HMRC                                )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_FluxArrReset\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Define pressure edges [Pa] on HEMCO grid.\n    ! At Phase 0, the pressure field is not known yet.\n    !=======================================================================\n    IF ( Phase /= 0 .and. notDryRun ) THEN\n       CALL GridEdge_Set( Input_Opt, State_Grid, State_Met, HcoState, HMRC  )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"GridEdge_Set\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n#if !defined( ESMF_ ) && !defined( MODEL_WRF )\n    ! Check if HEMCO has already been called for this timestep\n    IF ( ( Phase == 1 ) .and. ( GET_TAU() == PrevTAU ) .and. Input_Opt%amIRoot ) THEN\n       Print*, 'HEMCO already called for this timestep. Returning.'\n       RETURN\n    ENDIF\n#endif\n\n    !=======================================================================\n    ! Set HCO options\n    !=======================================================================\n\n    ! Range of species and emission categories.\n    ! Set Extension number ExtNr to 0, indicating that the core\n    ! module shall be executed.\n    HcoState%Options%SpcMin = 1\n    HcoState%Options%SpcMax = -1\n    HcoState%Options%CatMin = 1\n    HcoState%Options%CatMax = -1\n    HcoState%Options%ExtNr  = 0\n\n    ! Use temporary array?\n    HcoState%Options%FillBuffer = .FALSE.\n\n    !=======================================================================\n    ! Run HCO core module\n    ! Pass phase as argument. Phase 1 will update the emissions list,\n    ! phase 2 will calculate the emissions. Emissions will be written into\n    ! the corresponding flux arrays in HcoState.\n    !=======================================================================\n    CALL HCO_Run( HcoState, Phase, HMRC, IsEndStep )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_Run\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n#if defined( MODEL_CLASSIC )\n    !=======================================================================\n    ! Get met fields from HEMCO (GEOS-Chem \"Classic\" only)\n    !=======================================================================\n    IF ( ( Phase == 0 .or. PHASE == 1 ) .and. notDryRun ) THEN\n       CALL Get_Met_Fields( Input_Opt, State_Chm, State_Grid, State_Met, &\n                            Phase,     RC )\n       IF ( RC /= HCO_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Get_Met_Fields\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Get fields from GEOS-Chem restart file (GEOS-Chem \"Classic\" only)\n    !=======================================================================\n    IF ( Phase == 0 .and. notDryRun ) THEN\n       CALL Get_GC_Restart( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n       IF ( RC /= HCO_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Get_GC_Restart\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Get boundary conditions from HEMCO (GEOS-Chem \"Classic\" only)\n    ! This only retrieves boundary conditions from HEMCO and puts them into\n    ! State_Chm%BoundaryCond. It no longer applies the boundary conditions\n    ! to the species array, which is handled by Set_Boundary_Conditions().\n    ! This is so that boundary conditions can be updated at a higher frequency\n    ! than the emissions timestep. (hplin, 7/28/23)\n    !=======================================================================\n\n    ! Assume BCs are 3-hourly and only get from HEMCO when needed\n    IF ( PHASE == 0 ) THEN\n       D = GET_FIRST_BC_TIME()\n    ELSE\n       D = GET_BC_TIME()\n    ENDIF\n    IF ( State_Grid%NestedGrid .and. notDryRun .and. &\n       ( Phase == 0 .or. ( PHASE == 1 .and. ITS_TIME_FOR_BC() ) ) ) THEN\n       IF ( Input_Opt%LTRAN ) THEN\n          CALL Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, &\n                                        State_Met, D(1), D(2), RC )\n          IF ( RC /= HCO_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Get_Boundary_Conditions\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n    ENDIF\n\n#endif\n\n    !=======================================================================\n    ! Do the following only if it's time to calculate emissions\n    !=======================================================================\n    IF ( Phase == 2 .AND. IsEmisTime ) THEN\n\n       !--------------------------------------------------------------------\n       ! Set / update ExtState fields.\n       ! Extensions typically depend on environmental dependent met.\n       ! variables such as wind speed, surface temp., etc. Pointers\n       ! to these (2D or 3D) fields are defined in the extension object.\n       ! Here, we need to make sure that these pointers are properly\n       ! connected.\n       !--------------------------------------------------------------------\n       IF ( notDryRun ) THEN\n          ! Set fields either as pointer targets or else.\n          ! Regrid those for ImGrid.\n          CALL ExtState_SetFields( Input_Opt, State_Chm, State_Grid,         &\n                                   State_Met, HcoState,  ExtState,   HMRC   )\n\n          ! Trap potential errors\n          IF ( HMRC /= HCO_SUCCESS ) THEN\n             RC     = HMRC\n             ErrMsg = 'Error encountered in \"ExtState_SetFields\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             CALL Flush( HcoState%Config%Err%Lun )\n             RETURN\n          ENDIF\n\n          ! Update fields directly from State_Met.\n          ! Regrid those for ImGrid.\n          CALL ExtState_UpdateFields( Input_Opt, State_Chm,            &\n                                      State_Grid, State_Met, HcoState, &\n                                      ExtState,   HMRC )\n\n          ! Trap potential errors\n          IF ( HMRC /= HCO_SUCCESS ) THEN\n             RC     = HMRC\n             ErrMsg = 'Error encountered in \"ExtState_UpdateFields\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             CALL Flush( HcoState%Config%Err%Lun )\n             RETURN\n          ENDIF\n       ENDIF\n\n       !====================================================================\n       ! Run HCO extensions. Emissions will be added to corresponding\n       ! flux arrays in HcoState.\n       !====================================================================\n       CALL HCOX_Run( HcoState, ExtState, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCOX_Run\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n\n       !====================================================================\n       ! Update all 'AutoFill' diagnostics. This makes sure that all\n       ! diagnostics fields with the 'AutoFill' flag are up-to-date. The\n       ! AutoFill flag is specified when creating a diagnostics container\n       ! (Diagn_Create).\n       !====================================================================\n       IF ( DoDiagn .and. notDryRun ) THEN\n          CALL HcoDiagn_AutoUpdate( HcoState, HMRC )\n\n          ! Trap potential errors\n          IF ( HMRC /= HCO_SUCCESS ) THEN\n             RC     = HMRC\n             ErrMsg = 'Error encountered in \"HcoDiagn_AutoUpdate\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             CALL Flush( HcoState%Config%Err%Lun )\n             RETURN\n          ENDIF\n       ENDIF\n\n       !====================================================================\n       ! Reset the accumulated nitrogen dry and wet deposition to zero.\n       ! Will be re-filled in drydep and wetdep.\n       !====================================================================\n       IF ( ( Input_Opt%ITS_A_FULLCHEM_SIM   .or.                           &\n              Input_Opt%ITS_AN_AEROSOL_SIM ) .and. notDryRun ) THEN\n          CALL RESET_DEP_N( State_Chm )\n       ENDIF\n\n       !====================================================================\n       ! Emissions are now done for this time step\n       !====================================================================\n       CALL HcoClock_EmissionsDone( HcoState%Clock, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HcoClock_EmissionsDone\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    ! Save TAU\n    PrevTAU = GET_TAU()\n\n    ! We are now back in GEOS-Chem environment, hence set\n    ! return flag accordingly!\n    RC = GC_SUCCESS\n\n  END SUBROUTINE HCOI_GC_Run\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCOI_GC_Final\n!\n! !DESCRIPTION: Subroutine HCOI\\_GC\\_Final cleans up HEMCO. This routine\n! should be called before the finalize routines of State\\_Chm in order to\n! make sure that the emissions flux pointers are properly removed!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCOI_GC_Final( Error, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Driver_Mod,   ONLY : HCO_Final\n    USE HCO_Diagn_Mod,    ONLY : DiagnBundle_Cleanup\n    USE HCO_State_Mod,    ONLY : HcoState_Final\n    USE HCOX_Driver_Mod,  ONLY : HCOX_Final\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL, INTENT(IN)  :: Error       ! Cleanup after exit?\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  12 Sep 2013 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: HMRC\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !=======================================================================\n    ! HCOI_GC_Final begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at HCOI_GC_Final (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Cleanup HEMCO core\n    !-----------------------------------------------------------------------\n    CALL HCO_Final( HcoState, Error, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_Final\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Cleanup extensions and ExtState object\n    ! This will also nullify all pointer to the met fields.\n    !-----------------------------------------------------------------------\n    CALL HCOX_Final( HcoState, ExtState, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCOX_Final\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Cleanup diagnostics\n    !-----------------------------------------------------------------------\n    CALL DiagnBundle_Cleanup( HcoState%Diagn )\n\n    !-----------------------------------------------------------------------\n    ! Cleanup HcoState object\n    !-----------------------------------------------------------------------\n    CALL HcoState_Final( HcoState )\n\n    !-----------------------------------------------------------------------\n    ! Deallocate module variables\n    !-----------------------------------------------------------------------\n\n#if defined( MODEL_CLASSIC )\n    IF ( ASSOCIATED( REGR_3DI ) ) THEN\n       DEALLOCATE( REGR_3DI  )\n       CALL GC_CheckVar( 'hco_interface_gc_mod.F90:HCOI_GC_Final:REGR_3DI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( REGR_3DO ) ) THEN\n       DEALLOCATE( REGR_3DO  )\n       CALL GC_CheckVar( 'hco_interface_gc_mod.F90:HCOI_GC_Final:REGR_3DO', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n#endif\n\n  END SUBROUTINE HCOI_GC_Final\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ExtState_InitTargets\n!\n! !DESCRIPTION: SUBROUTINE ExtState\\_InitTargets allocates some local arrays\n! that act as targets for the ExtState object.\n!\\\\\n! If State_Grid_HCO is not given or Input_Opt%LIMGRID is set to false (from Init),\n! this explicitly assumes that the HEMCO emissions grid is the same as the GEOS-Chem\n! simulation grid.\n!\n! Otherwise, the met data has to be regridded explicitly at every time step!\n! This is performed by creating a set of in-memory array temporaries within this module,\n! that can be pointed to by ExtState. Note that a SET of temporaries MUST be always\n! present -- you cannot cheat and swap them in memory.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ExtState_InitTargets( HcoState, ExtState, Input_Opt, State_Grid, RC, &\n                                   State_Grid_HCO )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Arr_Mod,    ONLY : HCO_ArrAssert\n    USE State_Grid_Mod, ONLY : GrdState\n    USE Input_Opt_Mod,  ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )           :: Input_Opt      ! Input options\n    TYPE(GrdState),   INTENT(IN   )           :: State_Grid     ! Grid State object\n    TYPE(GrdState),   INTENT(IN   ), OPTIONAL :: State_Grid_HCO ! HEMCO ImGrid\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HCO_STATE),  POINTER        :: HcoState\n    TYPE(EXT_STATE),  POINTER        :: ExtState\n    INTEGER,          INTENT(INOUT)  :: RC\n!\n! !REVISION HISTORY:\n!  23 Oct 2012 - C. Keller    - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: HMRC\n\n    INTEGER            :: IM, JM, LM\n    INTEGER            :: IMh, JMh              ! HEMCO grid sizes\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !=======================================================================\n    ! ExtState_InitTargets begins here\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at ExtState_InitTargets (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    ! Shorthands\n    IM     = State_Grid%NX\n    JM     = State_Grid%NY\n    LM     = State_Grid%NZ\n\n    ! By default, HEMCO grid sizes are the same as model. These values will be\n    ! overwritten later\n    IMh    = IM\n    JMh    = JM\n\n#if defined( MODEL_CLASSIC )\n    IF ( Input_Opt%LIMGRID ) THEN\n      IMh  = State_Grid_HCO%NX\n      JMh  = State_Grid_HCO%NY\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Notes for HEMCO Intermediate Grid:\n    ! Due to the extensions requiring met fields and some of them are derived\n    ! data, we need to initialize targets here.\n    !\n    ! Some variables are stored on the MODEL grid, i.e., SZAFACT.\n    ! Because they need to be computed here, before a regrid.\n    !\n    ! Shadow targets for all derived met fields (not read from HEMCO) are\n    ! initialized if Input_Opt%LIMGRID (Intermediate enabled) and kept updated\n    ! at every ExtState_UpdateFields.\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%LIMGRID ) THEN\n\n      ! 2-D Fields\n      IF ( ExtState%SZAFACT%DoUse ) THEN\n         ALLOCATE( H_SZAFACT( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SZAFACT', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SZAFACT = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%JNO2%DoUse ) THEN\n         ALLOCATE( H_JNO2( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_JNO2', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_JNO2 = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%JOH%DoUse ) THEN\n         ALLOCATE( H_JOH( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_JOH', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_JOH = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%PSC2_WET%DoUse ) THEN\n         ALLOCATE( H_PSC2_WET( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_PSC2_WET', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_PSC2_WET = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%FRCLND%DoUse ) THEN\n         ALLOCATE( H_FRCLND( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_FRCLND', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_FRCLND = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%LAI%DoUse ) THEN\n         ALLOCATE( H_MODISLAI( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_MODISLAI', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_MODISLAI = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%CNV_FRC%DoUse ) THEN\n         ALLOCATE( H_CNV_FRC( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_CNV_FRC', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_CNV_FRC = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%TropLev%DoUse ) THEN\n         ALLOCATE( H_TropLev( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_TropLev', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_TropLev = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%TROPP%DoUse ) THEN\n         ALLOCATE( H_TROPP( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_TROPP', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_TROPP = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%FLASH_DENS%DoUse ) THEN\n         ALLOCATE( H_FLASH_DENS( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_FLASH_DENS', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_FLASH_DENS = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%CONV_DEPTH%DoUse ) THEN\n         ALLOCATE( H_CONV_DEPTH( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_CONV_DEPTH', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_CONV_DEPTH = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%DRY_TOTN%DoUse ) THEN\n         ALLOCATE( H_DRY_TOTN( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_DRY_TOTN', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_DRY_TOTN = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%WET_TOTN%DoUse ) THEN\n         ALLOCATE( H_WET_TOTN( IMh, JMh ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_WET_TOTN', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_WET_TOTN = 0.0e0_hp\n      ENDIF\n\n      ! Almost 3-D Fields\n      IF ( ExtState%SPHU%DoUse ) THEN\n         ALLOCATE( H_SPHU( IMh, JMh, 1 ), STAT=RC )         ! Only need SURFACE SPHU\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SPHU', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SPHU = 0.0e0_hp\n      ENDIF\n\n      ! 3-D Fields\n      IF ( ExtState%TK%DoUse ) THEN\n         ALLOCATE( H_T( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_T', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_T = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%AIR%DoUse ) THEN\n         ALLOCATE( H_AD( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_AD', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_AD = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%AIRVOL%DoUse ) THEN\n         ALLOCATE( H_AIRVOL( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_AIRVOL', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_AIRVOL = 0.0e0_hp\n      ENDIF\n\n      IF ( ExtState%FRAC_OF_PBL%DoUse ) THEN\n         ALLOCATE( H_F_OF_PBL( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_F_OF_PBL', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_F_OF_PBL = 0.0e0_hp\n      ENDIF\n\n      ! 3-D State_Chm fields\n      IF ( id_O3 > 0 ) THEN\n        ALLOCATE( H_SpcO3( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SpcO3', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SpcO3 = 0.0e0_hp\n      ENDIF\n\n      IF ( id_NO2 > 0 ) THEN\n        ALLOCATE( H_SpcNO2( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SpcNO2', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SpcNO2 = 0.0e0_hp\n      ENDIF\n\n      IF ( id_NO > 0 ) THEN\n        ALLOCATE( H_SpcNO( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SpcNO', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SpcNO = 0.0e0_hp\n      ENDIF\n\n      IF ( id_HNO3 > 0 ) THEN\n        ALLOCATE( H_SpcHNO3( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SpcHNO3', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SpcHNO3 = 0.0e0_hp\n      ENDIF\n\n      IF ( id_POPG > 0 ) THEN\n        ALLOCATE( H_SpcPOPG( IMh, JMh, LM ), STAT=RC )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:H_SpcPOPG', 0, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n         H_SpcPOPG = 0.0e0_hp\n      ENDIF\n\n    ENDIF\n#endif\n\n    ! Initialize max. PBL\n    HCO_PBL_MAX = 0\n\n    ! ----------------------------------------------------------------------\n    ! Arrays to be copied physically because HEMCO units are not the\n    ! same as in GEOS-Chem\n    !\n    ! In ImGrid, they also need to be regridded on the fly.\n    ! ----------------------------------------------------------------------\n\n    ! TROPP: GEOS-Chem TROPP is in hPa, while HEMCO uses Pa.\n    IF ( ExtState%TROPP%DoUse ) THEN\n       CALL HCO_ArrAssert( ExtState%TROPP%Arr, IMh, JMh, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_ArrAssert( TROPP )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! SPHU: GEOS-Chem SPHU is in g/kg, while HEMCO uses kg/kg.\n    ! NOTE: HEMCO only uses SPHU surface values.\n    IF ( ExtState%SPHU%DoUse ) THEN\n       CALL HCO_ArrAssert( ExtState%SPHU%Arr, IMh, JMh, 1, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_ArrAssert( SPHU )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! FLASH_DENS\n    IF ( ExtState%FLASH_DENS%DoUse ) THEN\n       CALL HCO_ArrAssert( ExtState%FLASH_DENS%Arr, IMh, JMh, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_ArrAssert( FLASH_DENS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! CONV_DEPTH\n    IF ( ExtState%CONV_DEPTH%DoUse ) THEN\n       CALL HCO_ArrAssert( ExtState%CONV_DEPTH%Arr, IMh, JMh, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_ArrAssert( CONV_DEPTH )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! SUNCOS: HEMCO now calculates SUNCOS values based on its own\n    ! subroutine\n    IF ( ExtState%SUNCOS%DoUse ) THEN\n       CALL HCO_ArrAssert( ExtState%SUNCOS%Arr, IMh, JMh, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_ArrAssert( SUNCOS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CALL Flush( HcoState%Config%Err%Lun )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Leave with success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE ExtState_InitTargets\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ExtState_SetFields\n!\n! !DESCRIPTION: SUBROUTINE ExtState\\_SetFields connects the ExtState fields\n! of the HEMCO ExtState object to its target data. This can be a field in\n! State\\_Met, State\\_Chm, or any other 2D/3D field defined within GEOS-Chem or\n! even explicitly calculated in this module. All these fields are expected\n! to be of the same type as the corresponding ExtState object, and a pointer\n! link is established between the two fields on the first call.\n!\\\\\n!\\\\\n! The ExtState object fields can also be linked to data fields read through\n! the HEMCO configuration file. In this case, the data fields will be copied\n! from the HEMCO data list into the ExtState object every time this routine\n! is called. The field name of the HEMCO field must match the field name\n! passed to ExtState\\_Set.\n!\\\\\n!\\\\\n! Fields from the HEMCO data list are given priority over the target fields from\n! State\\_Met, State\\_Chm, etc. For example, if the HEMCO data list contains\n! a field named 'U10M', this field will be used in ExtState%U10M in lieu of\n! State\\_Met%U10M.\n!\\\\\n!\\\\\n! Note that for now, this explicitly assumes that the HEMCO emissions grid is\n! the same as the GEOS-Chem simulation grid. To support other grids, the met\n! data has to be regridded explicitly at every time step!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ExtState_SetFields( Input_Opt, State_Chm, State_Grid,           &\n                                 State_Met, HcoState,  ExtState,   RC       )\n!\n! !USES:\n!\n    USE Hcox_State_Mod, ONLY : ExtDat_Set\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE Drydep_Mod,     ONLY : DryCoeff\n#ifdef ESMF_\n    USE HCOI_Esmf_Mod,  ONLY : HCO_SetExtState_ESMF\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt  ! Input options\n    TYPE(MetState),   INTENT(INOUT)  :: State_Met  ! Met state\n    TYPE(ChmState),   INTENT(INOUT)  :: State_Chm  ! Chemistry state\n    TYPE(HCO_STATE),  POINTER        :: HcoState   ! HEMCO state\n    TYPE(EXT_STATE),  POINTER        :: ExtState   ! HEMCO ext. state\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)    :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  23 Oct 2012 - C. Keller    - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Pointers\n    REAL(hp), POINTER             :: Trgt3D(:,:,:)\n\n    ! SAVEd scalars\n    LOGICAL,                 SAVE :: FIRST       = .TRUE.\n#if defined ( MODEL_WRF )\n    LOGICAL, DIMENSION(1:8), SAVE :: FIRST_PERID = .TRUE.\n#endif\n\n    ! Scalars\n    INTEGER                       :: HMRC\n\n    ! Strings\n    CHARACTER(LEN=255)            :: ThisLoc\n    CHARACTER(LEN=512)            :: ErrMsg\n\n    !========================================================================\n    ! ExtState_SetFields begins here\n    !========================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    HMRC     =  HCO_SUCCESS\n    Trgt3D   => NULL()\n    ErrMsg   =  ''\n    ThisLoc  =  &\n     ' -> at ExtState_SetFields (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    ! If using intermediate grid (MODEL_CLASSIC and LIMGRID), then load data\n    ! from the shadow H_* arrays which have been regridded to HEMCO sizes.\n    ! The data is regridded at every call to ExtState_UpdateFields.\n    !\n    ! Otherwise, simply load as before, either from module variables or\n    ! directly from State_Met.\n    ! To avoid code duplication, in GEOS-Chem classic data is also loaded\n    ! directly from HEMCO met pointers, when possible.\n\n#ifdef MODEL_WRF\n    ! For WRF-GC, the FIRST call needs to be domain-ID specific.\n    FIRST = FIRST_PERID( State_Grid%CPU_Subdomain_ID )\n#endif\n\n    !========================================================================\n    ! Pointers to local module arrays\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% SZAFACT %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n      CALL ExtDat_Set( HcoState, ExtState%SZAFACT, 'SZAFACT_FOR_EMIS',       &\n                       HMRC,     FIRST,             State_Met%SZAFACT       )\n#ifdef MODEL_CLASSIC\n    ELSE\n      CALL ExtDat_Set( HcoState, ExtState%SZAFACT, 'SZAFACT_FOR_EMIS',       &\n                       HMRC,     FIRST,             H_SZAFACT               )\n    ENDIF\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( SZAFACT_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% JNO2 %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n      CALL ExtDat_Set( HcoState, ExtState%JNO2, 'JNO2_FOR_EMIS',             &\n                       HMRC,     FIRST,          State_Chm%JNO2             )\n#ifdef MODEL_CLASSIC\n    ELSE\n      CALL ExtDat_Set( HcoState, ExtState%JNO2, 'JNO2_FOR_EMIS',             &\n                       HMRC,     FIRST,          H_JNO2                     )\n    ENDIF\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( JNO2_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% JOH %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n      CALL ExtDat_Set( HcoState, ExtState%JOH, 'JOH_FOR_EMIS',               &\n                       HMRC,     FIRST,         State_Chm%JOH               )\n#ifdef MODEL_CLASSIC\n    ELSE\n      CALL ExtDat_Set( HcoState, ExtState%JOH, 'JOH_FOR_EMIS',               &\n                       HMRC,     FIRST,         H_JOH                       )\n    ENDIF\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( JOH_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! 2D fields requiring interpolation (for GC-Classic)\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% PSC2_WET (Computed in calc_met_mod) %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%PSC2_WET%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%PSC2_WET, 'PSC2_WET_FOR_EMIS',   &\n                         HMRC,     FIRST,              State_Met%PSC2_WET   )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%PSC2_WET, 'PSC2_WET_FOR_EMIS',   &\n                         HMRC,     FIRST,              H_PSC2_WET           )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( PSC2_WET_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% FRCLND (Computed in olson_landmap_mod) %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%FRCLND%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%FRCLND, 'FRCLND_FOR_EMIS',       &\n                         HMRC,     FIRST,            State_Met%FRCLND       )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%FRCLND, 'FRCLND_FOR_EMIS',       &\n                         HMRC,     FIRST,            H_FRCLND               )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FRCLND_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% LAI (Calculated in modis_lai_mod from XLAI_NATIVE) %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%LAI%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%LAI, 'LAI_FOR_EMIS',             &\n                         HMRC,     FIRST,         State_Met%MODISLAI         )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%LAI, 'LAI_FOR_EMIS',             &\n                         HMRC,     FIRST,         H_MODISLAI                )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( LAI_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% CNV_FRC Convective fractions (possibly GEOS ESM only) %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%CNV_FRC%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%CNV_FRC, 'CNV_FRC_FOR_EMIS',     &\n                         HMRC,     FIRST,             State_Met%CNV_FRC,     &\n                         NotFillOk=.TRUE.                                   )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%CNV_FRC, 'CNV_FRC_FOR_EMIS',     &\n                         HMRC,     FIRST,             H_CNV_FRC,             &\n                         NotFillOk=.TRUE.                                   )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( CNV_FRC_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% Tropopause level %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%TropLev%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%TropLev, 'TropLev',              &\n                         HMRC,     FIRST,             State_Met%TropLev     )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%TropLev, 'TropLev',              &\n                         HMRC,     FIRST,             H_TropLev             )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( TropLev )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! 3D fields requiring interpolation (for GC-Classic)\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% TK %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%TK%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%TK, 'TK_FOR_EMIS',               &\n                         HMRC,     FIRST,        State_Met%T                )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%TK, 'TK_FOR_EMIS',               &\n                         HMRC,     FIRST,        H_T                        )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( TK_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% Air mass [kg/grid box] %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%AIR%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%AIR, 'AIR_FOR_EMIS',             &\n                         HMRC,     FIRST,         State_Met%AD              )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%AIR, 'AIR_FOR_EMIS',             &\n                         HMRC,     FIRST,         H_AD                      )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( AIR_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% AIRVOL_FOR_EMIS %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%AIRVOL%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%AIRVOL, 'AIRVOL_FOR_EMIS',       &\n                         HMRC,     FIRST,            State_Met%AIRVOL       )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%AIRVOL, 'AIRVOL_FOR_EMIS',       &\n                         HMRC,     FIRST,            H_AIRVOL               )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( AIRVOL_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% Dry air density [kg/m3] %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%AIRDEN%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set( HcoState, ExtState%AIRDEN, 'AIRDEN',                &\n                         HMRC,     FIRST,            State_Met%AIRDEN       )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%AIRDEN, 'AIRDEN',                &\n                         HMRC,     FIRST,            H_AIRDEN               )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( AIRDEN )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% Fraction of PBL in each grid box %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%FRAC_OF_PBL%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set(  HcoState,              ExtState%FRAC_OF_PBL,       &\n                         'FRAC_OF_PBL_FOR_EMIS', HMRC,                       &\n                          FIRST,                 State_Met%F_OF_PBL         )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set(  HcoState,              ExtState%FRAC_OF_PBL,       &\n                         'FRAC_OF_PBL_FOR_EMIS', HMRC,                       &\n                          FIRST,                 H_F_OF_PBL                 )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FRAC_OF_PBL_FOR_EMIS)\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! 2D fields directly readable from HEMCO (for GC-Classic)\n    ! 2D fields (for other models)\n    !\n    ! For MODEL_CLASSIC with the optional HEMCO intermediate grid option,\n    ! the meteorological field pointers point to the HEMCO pointers\n    ! directly. This avoids an extra regridding in the GC -> HEMCO\n    ! direction.\n    !\n    ! For this, simply specify the met field name directly in the FldName\n    ! arg call to ExtDat_Set. This will prompt HEMCO to call HCO_EvalFld\n    ! directly (hplin, 6/2/20)\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% U10M %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%U10M, 'U10M',                        &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%U10M, 'U10M_FOR_EMIS',               &\n                     HMRC,     FIRST,          State_Met%U10M               )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( U10M_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% V10M %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%V10M, 'V10M',                        &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%V10M, 'V10M_FOR_EMIS',               &\n                     HMRC,     FIRST,          State_Met%V10M               )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( V10M_FOR_EMIS)\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% ALBD %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%ALBD, 'ALBEDO',                      &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%ALBD, 'ALBD_FOR_EMIS',               &\n                     HMRC,     FIRST,          State_Met%ALBD               )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( ALBD_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% T2M (which is actually stored in State_Met%TS) %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%T2M, 'T2M',                          &\n                     HMRC,     FIRST,         State_Met%TS                  )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%T2M, 'T2M_FOR_EMIS',                 &\n                     HMRC,     FIRST,         State_Met%TS                  )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( T2M_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% TSKIN (which is actually stored in State_Met%TSKIN) %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%TSKIN, 'TSKIN',                      &\n                     HMRC,     FIRST,           State_Met%TSKIN             )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%TSKIN, 'TSKIN_FOR_EMIS',             &\n                     HMRC,     FIRST,           State_Met%TSKIN             )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( TSKIN_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% TSOIL1 %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%TSOIL1, 'TSOIL',                     &\n                     HMRC,     FIRST,            State_Met%TSOIL1           )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%TSOIL1, 'TSOIL1_FOR_EMIS',           &\n                     HMRC,     FIRST,            State_Met%TSOIL1           )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( TSOIL1_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% GWETROOT %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%GWETROOT, 'GWETROOT',                &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%GWETROOT, 'GWETROOT_FOR_EMIS',       &\n                     HMRC,     FIRST,              State_Met%GWETROOT       )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( GWETROOT_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% GWETTOP %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%GWETTOP, 'GWETTOP',                  &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%GWETTOP, 'GWETTOP_FOR_EMIS',         &\n                     HMRC,     FIRST,             State_Met%GWETTOP         )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( GWETTOP_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% USTAR %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%USTAR, 'USTAR',                      &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%USTAR, 'USTAR_FOR_EMIS',             &\n                     HMRC,     FIRST,           State_Met%USTAR             )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( USTAR_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% Z0 %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%Z0, 'Z0M',                           &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%Z0, 'Z0_FOR_EMIS',                   &\n                     HMRC,     FIRST,        State_Met%Z0                   )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( Z0_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% PARDR %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%PARDR, 'PARDR',                      &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%PARDR, 'PARDR_FOR_EMIS',             &\n                     HMRC,     FIRST,           State_Met%PARDR             )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( PARDR_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% PARDF %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%PARDF, 'PARDF',                      &\n                     HMRC,     FIRST                                        )  \n#else\n    CALL ExtDat_Set( HcoState, ExtState%PARDF, 'PARDF_FOR_EMIS',             &\n                     HMRC,     FIRST,           State_Met%PARDF             )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( PARDF_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% RADSWG %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%RADSWG, 'SWGDN',                     &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%RADSWG, 'RADSWG_FOR_EMIS',           &\n                     HMRC,     FIRST,            State_Met%SWGDN            )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( RADSWG_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%%  CLDFRC %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%CLDFRC, 'CLDTOT',                    &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%CLDFRC, 'CLDFRC_FOR_EMIS',           &\n                     HMRC,     FIRST,            State_Met%CLDFRC           )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( CLDFRC_FOR_EMIS)\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% SNOMAS %%%%%\n    ! SNOMAS is is mm H2O, which is the same as kg H2O/m2.\n    ! This is the unit of SNOMAS.\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%SNOMAS, 'SNOMAS',                    &\n                     HMRC,     FIRST                                         )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%SNOMAS, 'SNOMAS_FOR_EMIS',           &\n                     HMRC,     FIRST,            State_Met%SNOMAS           )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( SNOMAS_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% SNODP %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%SNODP, 'SNODP',                      &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%SNODP, 'SNODP_FOR_EMIS',             &\n                     HMRC,     FIRST,           State_Met%SNODP             )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( SNOWDP_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% FRLAND %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%FRLAND, 'FRLAND',                    &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%FRLAND, 'FRLAND_FOR_EMIS',           &\n                     HMRC,     FIRST,            State_Met%FRLAND           )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FRLAND_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% FROCEAN %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%FROCEAN, 'FROCEAN',                  &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%FROCEAN, 'FROCEAN_FOR_EMIS',         &\n                     HMRC,     FIRST,             State_Met%FROCEAN         )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FROCEAN_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% FRSEAICE %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%FRSEAICE, 'FRSEAICE',                &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%FRSEAICE, 'FRSEAICE_FOR_EMIS',       &\n                     HMRC,     FIRST,              State_Met%FRSEAICE       )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FRSEAICE_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% QV2M %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%QV2M, 'QV2M',                        &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%QV2M, 'QV2M_FOR_EMIS',               &\n                     HMRC,     FIRST,          State_Met%QV2M               )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( QV2M_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% FRLAKE %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%FRLAKE, 'FRLAKE',                    &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%FRLAKE, 'FRLAKE_FOR_EMIS',           &\n                     HMRC,     FIRST,            State_Met%FRLAKE           )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FRLAKE_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% FRLANDIC %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%FRLANDIC, 'FRLANDIC',                &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%FRLANDIC, 'FRLANDIC_FOR_EMIS',       &\n                     HMRC,     FIRST,              State_Met%FRLANDICE      )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( FRLANDIC_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% HFLUX %%%%%\n    !------------------------------------------------------------------------\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState, ExtState%HFLUX, 'HFLUX',                      &\n                     HMRC,     FIRST                                        )\n#else\n    CALL ExtDat_Set( HcoState, ExtState%HFLUX, 'HFLUX_FOR_EMIS',             &\n                     HMRC,     FIRST,           State_Met%HFLUX             )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( HFLUX_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n\n    !========================================================================\n    ! 3D fields\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% CNV_MFC %%%%%\n    !------------------------------------------------------------------------\n\n    ! CNV_MFC\n#ifdef MODEL_CLASSIC\n    CALL ExtDat_Set( HcoState,  ExtState%CNV_MFC, 'CMFMC',                   &\n                     HMRC,      FIRST,             OnLevEdge=.TRUE.         )\n#else\n    CALL ExtDat_Set( HcoState,  ExtState%CNV_MFC, 'CNV_MFC_FOR_EMIS',        &\n                     HMRC,      FIRST,             State_Met%CMFMC,          &\n                     OnLevEdge=.TRUE.                                       )\n#endif\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( CNV_MFC_FOR_EMIS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Species concentrations\n    ! All of these require interpolation on-demand.\n    !\n    ! Note: ExtDat_Set points DIRECTLY to the assigned target when\n    ! received through ExtDat%Arr%Val => Trgt. This means that the array\n    ! temporary must be maintained through time in memory. It may be\n    ! particularly taxing for a GC-classic run with intermediate grid\n    ! option, as all of these must be maintained in regridded\n    ! HIGH-RESOLUTION (HEMCO resolution) array temporaries now!\n    ! (hplin, 6/2/20)\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% O3 %%%%%\n    !------------------------------------------------------------------------\n    IF ( id_O3 > 0 ) THEN\n\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        Trgt3D => State_Chm%Species(id_O3)%Conc\n        CALL ExtDat_Set( HcoState, ExtState%O3, 'HEMCO_O3_FOR_EMIS',         &\n                         HMRC,     FIRST,        Trgt3D                     )\n\n        Trgt3D => NULL()\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%O3, 'HEMCO_O3_FOR_EMIS',         &\n                         HMRC,     FIRST,        H_SpcO3                    )\n      ENDIF\n#endif\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"ExtDat_Set( HEMCO_O3_FOR_EMIS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% NO2 %%%%%\n    !------------------------------------------------------------------------\n    IF ( id_NO2 > 0 ) THEN\n\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        Trgt3D => State_Chm%Species(id_NO2)%Conc\n        CALL ExtDat_Set( HcoState, ExtState%NO2, 'HEMCO_NO2_FOR_EMIS',       &\n                         HMRC,     FIRST,         Trgt3D                    )\n\n        Trgt3D => NULL()\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%NO2, 'HEMCO_NO2_FOR_EMIS',       &\n                         HMRC,     FIRST,         H_SpcNO2                  )\n      ENDIF\n#endif\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"ExtDat_Set( HEMCO_NO2_FOR_EMIS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% NO %%%%%\n    !------------------------------------------------------------------------\n    IF ( id_NO > 0 ) THEN\n\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        Trgt3D => State_Chm%Species(id_NO)%Conc\n        CALL ExtDat_Set( HcoState, ExtState%NO, 'HEMCO_NO_FOR_EMIS',         &\n                         HMRC,     FIRST,        Trgt3D                     )\n\n        Trgt3D => NULL()\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%NO, 'HEMCO_NO_FOR_EMIS',         &\n                         HMRC,     FIRST,        H_SpcNO                    )\n      ENDIF\n#endif\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"ExtDat_Set( HEMCO_NO_FOR_EMIS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% HNO3 %%%%%\n    !------------------------------------------------------------------------\n    IF ( id_HNO3 > 0 ) THEN\n\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        Trgt3D => State_Chm%Species(id_HNO3)%Conc\n        CALL ExtDat_Set( HcoState, ExtState%HNO3, 'HEMCO_HNO3_FOR_EMIS',     &\n                         HMRC,     FIRST,          Trgt3D                   )\n\n        Trgt3D => NULL()\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%HNO3, 'HEMCO_HNO3_FOR_EMIS',     &\n                         HMRC,     FIRST,          H_SpcHNO3                )\n      ENDIF\n#endif\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"ExtDat_Set( HEMCO_HNO3_FOR_EMIS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% POPG (for POPs simulations) %%%%%\n    !------------------------------------------------------------------------\n    IF ( id_POPG > 0 ) THEN\n\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        Trgt3D => State_Chm%Species(id_POPG)%Conc\n        CALL ExtDat_Set( HcoState, ExtState%POPG, 'HEMCO_POPG_FOR_EMIS',     &\n                         HMRC,     FIRST,          Trgt3D                   )\n\n        Trgt3D => NULL()\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%POPG, 'HEMCO_POPG_FOR_EMIS',     &\n                         HMRC,     FIRST,          H_SpcPOPG                )\n      ENDIF\n#endif\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"ExtDat_Set( HEMCO_POPG_FOR_EMIS )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Deposition parameter\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! %%%%% DRY_TOTN (Dry-deposited N) %%%%%\n    !------------------------------------------------------------------------\n    IF ( ExtState%DRY_TOTN%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set(  HcoState,           ExtState%DRY_TOTN,             &\n                         'DRY_TOTN_FOR_EMIS', HMRC,                          &\n                          FIRST,              State_Chm%DryDepNitrogen      )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%DRY_TOTN, 'DRY_TOTN_FOR_EMIS',   &\n                         HMRC,     FIRST,              H_DRY_TOTN           )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( DRY_TOTN )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! %%%%% WET_TOTN (Wet-deposited N)\n    !------------------------------------------------------------------------\n    IF ( ExtState%WET_TOTN%DoUse ) THEN\n#ifdef MODEL_CLASSIC\n      IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n        CALL ExtDat_Set(  HcoState,           ExtState%WET_TOTN,             &\n                         'WET_TOTN_FOR_EMIS', HMRC,                          &\n                          FIRST,              State_Chm%WetDepNitrogen      )\n#ifdef MODEL_CLASSIC\n      ELSE\n        CALL ExtDat_Set( HcoState, ExtState%WET_TOTN, 'WET_TOTN_FOR_EMIS',   &\n                         HMRC,     FIRST,              H_WET_TOTN           )\n      ENDIF\n#endif\n    ENDIF\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"ExtDat_Set( WET_TOTN )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Other pointers to be set on first call\n    !=======================================================================\n    IF ( FIRST ) THEN\n       IF ( ExtState%WET_TOTN%DoUse .OR. ExtState%DRY_TOTN%DoUse ) THEN\n          ! Polynomial coefficients for dry deposition,\n          ! array target in drydep_mod\n          ExtState%DRYCOEFF => DRYCOEFF\n       ENDIF\n\n       ExtState%PBL_MAX => HCO_PBL_MAX\n    ENDIF\n\n#ifdef ESMF_\n    !=======================================================================\n    ! ESMF environment: add some additional variables to ExtState.\n    ! These values must be defined here and not in the initialization\n    ! because it seems like the IMPORT state is not yet properly\n    ! defined during initialization.\n    ! ckeller, 06/02/17: now call this on every time step. Routine\n    ! HCO_SetExtState_ESMF copies the fields to ExtState.\n    !=======================================================================\n    ! IF ( FIRST ) THEN\n    CALL HCO_SetExtState_ESMF ( HcoState, ExtState, RC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_SetExtState_ESMF\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n    !ENDIF\n#endif\n\n    ! Not first call any more\n    FIRST  = .FALSE.\n#ifdef MODEL_WRF\n    FIRST_PERID( State_Grid%CPU_Subdomain_ID ) = .FALSE.\n#endif\n    Trgt3D => NULL()\n\n    ! Leave with success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE ExtState_SetFields\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ExtState_UpdateFields\n!\n! !DESCRIPTION: SUBROUTINE ExtState\\_UpdateFields updates the extension\n! object data pointers. Updates are only required for the shadow arrays\n! defined in this module, such as J-values, SZAFACT, etc.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ExtState_UpdateFields( Input_Opt,  State_Chm,             &\n                                    State_Grid, State_Met, HcoState,   &\n                                    ExtState,   RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_GeoTools_Mod,     ONLY : HCO_GetSUNCOS\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n#ifdef ESMF_\n    USE HCOI_ESMF_MOD,        ONLY : HCO_SetExtState_ESMF\n#endif\n#if defined( MODEL_CLASSIC )\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO    ! HEMCO intermediate grid\n    USE HCO_Utilities_GC_Mod, ONLY : Regrid_MDL2HCO\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(ChmState),   INTENT(IN   )  :: State_Chm  ! Chemistry state\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid state\n    TYPE(MetState),   INTENT(IN   )  :: State_Met  ! Meteorology state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HCO_STATE),  POINTER        :: HcoState   ! HEMCO state\n    TYPE(EXT_STATE),  POINTER        :: ExtState   ! HEMCO ext. state\n    INTEGER,          INTENT(INOUT)  :: RC\n!\n! !REVISION HISTORY:\n!  23 Oct 2012 - C. Keller   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J, L\n    INTEGER            :: HMRC\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !=======================================================================\n    ! ExtState_UpdateFields begins here\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at ExtState_UpdateFields (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !=======================================================================\n    ! Update fields in the HEMCO Extension state\n    ! Directly from State_Met if not intermediate\n    !=======================================================================\n\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n\n      ! TROPP: convert from hPa to Pa\n      IF ( ExtState%TROPP%DoUse ) THEN\n         ExtState%TROPP%Arr%Val = State_Met%TROPP * 100.0_hp\n      ENDIF\n\n      ! SPHU: convert from g/kg to kg/kg. Only need surface value.\n      IF ( ExtState%SPHU%DoUse ) THEN\n         ExtState%SPHU%Arr%Val(:,:,1) = State_Met%SPHU(:,:,1) / 1000.0_hp\n      ENDIF\n\n      ! FLASH_DENS: flash density [#/km2/s]\n      IF ( ExtState%FLASH_DENS%DoUse ) THEN\n         ExtState%FLASH_DENS%Arr%Val = State_Met%FLASH_DENS\n      ENDIF\n\n      ! CONV_DEPTH: convective cloud depth [m]\n      IF ( ExtState%CONV_DEPTH%DoUse ) THEN\n         ExtState%CONV_DEPTH%Arr%Val = State_Met%CONV_DEPTH\n      ENDIF\n\n    ENDIF\n\n    ! SUNCOS\n    ! Calculated by HEMCO on its own grid - simply need to allocate\n    ! at correct sizes\n    IF ( ExtState%SUNCOS%DoUse ) THEN\n       CALL HCO_GetSUNCOS( HcoState, ExtState%SUNCOS%Arr%Val, 0, HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"HCO_GetSuncos\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Compute SZAFACT on MODEL GRID\n!$OMP PARALLEL DO                                                 &\n!$OMP DEFAULT( SHARED )                                           &\n!$OMP PRIVATE( I, J, L )\n    ! Loop over all grid boxes\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Current SZA divided by total daily SZA (2D field only)\n       ! (This is mostly needed for offline simulations where a diurnal\n       ! scale factor has to be imposed on monthly mean OH concentrations.)\n       IF ( ExtState%SZAFACT%DoUse .AND. L==1 ) THEN\n          State_Met%SZAFACT(I,J) = GET_SZAFACT(I,J,State_Met)\n       ENDIF\n\n       ! Maximum extent of the PBL [model level]\n       HCO_PBL_MAX = State_Met%PBL_MAX_L\n\n    ENDDO\n    ENDDO\n    ENDDO\n!$OMP END PARALLEL DO\n\n#if defined ( MODEL_CLASSIC )\n    IF ( Input_Opt%LIMGRID ) THEN\n    !=======================================================================\n    ! GEOS-Chem Classic HEMCO \"Intermediate\" Grid: Regrid appropriate met fields\n    !=======================================================================\n\n    ! Template for 3D Edge\n    ! REGR_3DI(:,:,:) = State_Met%PEDGE * 100.0_hp\n    ! CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n    !                      REGR_3DI,  REGR_3DO,   ZBND=State_Grid_HCO%NZ+1, &\n    !                      ResetRegrName=.true. )\n    ! PEDGE(:,:,:)    = REGR_3DO(:,:,:)\n\n    ! Template for 2D\n    ! REGR_3DI(:,:,1) = State_Met%PHIS(:,:)\n    ! CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n    !                      REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n    !                      ResetRegrName=.true. )\n    ! ZSFC(:,:)       = REGR_3DO(:,:,1)\n\n    !-----------------------------------------------------------------------\n    ! Local module arrays\n    !-----------------------------------------------------------------------\n\n    ! SZAFACT\n    IF ( ExtState%SZAFACT%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%SZAFACT(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_SZAFACT(:,:)  = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! JNO2\n    IF ( ExtState%JNO2%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Chm%JNO2(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_JNO2(:,:)     = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! JOH\n    IF ( ExtState%JOH%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Chm%JOH(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_JOH(:,:)     = REGR_3DO(:,:,1)\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! 2-D State_Met\n    !-----------------------------------------------------------------------\n\n    ! PSC2_WET\n    IF ( ExtState%PSC2_WET%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%PSC2_WET(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_PSC2_WET(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! FRCLND\n    IF ( ExtState%FRCLND%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%FRCLND(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_FRCLND(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! MODISLAI\n    IF ( ExtState%LAI%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%MODISLAI(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_MODISLAI(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! CNV_FRC\n    IF ( ExtState%CNV_FRC%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%FRCLND(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_FRCLND(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! TropLev\n    IF ( ExtState%TropLev%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%TropLev(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_TropLev(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! TROPP - requires conversion\n    IF ( ExtState%TROPP%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%TROPP(:,:) * 100.0_hp    ! hPa -> Pa\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_TROPP(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! FLASH_DENS\n    IF ( ExtState%FLASH_DENS%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%FLASH_DENS(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_FLASH_DENS(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! CONV_DEPTH\n    IF ( ExtState%CONV_DEPTH%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%CONV_DEPTH(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_CONV_DEPTH(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! 3-D State_Met\n    !-----------------------------------------------------------------------\n\n    ! SPHU - 3-D up to level 1\n    IF ( ExtState%SPHU%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Met%SPHU(:,:,1) / 1000.0_hp\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_SPHU(:,:,:) = 0.0_hp\n      H_SPHU(:,:,1) = REGR_3DO(:,:,1)\n    ENDIF\n\n    ! TK/T\n    IF ( ExtState%TK%DoUse ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%T(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_T(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! AIR/AD\n    IF ( ExtState%AIR%DoUse ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%AD(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_AD(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! AIRVOL\n    IF ( ExtState%AIRVOL%DoUse ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%AIRVOL(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_AIRVOL(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! AIRDEN\n    IF ( ExtState%AIRDEN%DoUse ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%AIRDEN(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_AIRDEN(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! FRAC_OF_PBL\n    IF ( ExtState%FRAC_OF_PBL%DoUse ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%F_OF_PBL(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_F_OF_PBL(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! 3-D State_Chm\n    !-----------------------------------------------------------------------\n\n    ! O3\n    IF ( id_O3 > 0 ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = &\n                 State_Chm%Species(id_O3)%Conc(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_SpcO3(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! NO2\n    IF ( id_NO2 > 0 ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = &\n                 State_Chm%Species(id_NO2)%Conc(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_SpcNO2(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! NO\n    IF ( id_NO > 0 ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = &\n                 State_Chm%Species(id_NO)%Conc(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_SpcNO(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! HNO3\n    IF ( id_HNO3 > 0 ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = &\n                 State_Chm%Species(id_HNO3)%Conc(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_SpcHNO3(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! POPG\n    IF ( id_POPG > 0 ) THEN\n      REGR_3DI(:,:,1:State_Grid%NZ) = &\n                 State_Chm%Species(id_POPg)%Conc(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid%NZ,       & ! 3D data\n                           ResetRegrName=.true. )\n      H_SpcPOPG(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n\n    ! DRY_TOTN\n    IF ( ExtState%DRY_TOTN%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Chm%DryDepNitrogen(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_DRY_TOTN(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n    IF ( ExtState%WET_TOTN%DoUse ) THEN\n      REGR_3DI(:,:,1) = State_Chm%WetDepNitrogen(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      H_WET_TOTN(:,:) = REGR_3DO(:,:,1)\n    ENDIF\n\n\n    ENDIF\n#endif\n\n  END SUBROUTINE ExtState_UpdateFields\n#endif ! MODEL_CESM exclude\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCOI_GC_WriteDiagn\n!\n! !DESCRIPTION: Subroutine HCOI\\_GC\\_WriteDiagn is the wrapper routine to\n! write the HEMCO diagnostics. This will only write the diagnostics of\n! diagnostics collection 1.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCOI_GC_WriteDiagn( Input_Opt, Restart, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCOIO_Diagn_Mod, ONLY : HcoDiagn_Write\n    USE Input_Opt_Mod,   ONLY : OptInput\n\n    USE Time_Mod,        ONLY : Get_Year, Get_Month, Get_Day, GET_DAY_OF_YEAR\n    USE Time_Mod,        ONLY : GET_HOUR, GET_MINUTE, GET_SECOND\n#if defined( ADJOINT )\n    USE MAPL_CommsMod,   ONLY : MAPL_AM_I_ROOT\n#endif\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN   ) :: Input_Opt    ! Input options\n    LOGICAL,        INTENT(IN   ) :: Restart      ! write restart (enforced)?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Apr 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: HMRC\n    INTEGER             :: year, month, day, dayOfYr, hour, minute, second\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ThisLoc\n    CHARACTER(LEN=512)  :: ErrMsg\n\n    !=======================================================================\n    ! HCOI_GC_WriteDiagn begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at HCOI_GC_WriteDiagn (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Make sure HEMCO time is in sync\n    !-----------------------------------------------------------------------\n\n    ! Now done through a universal function in HCO_Interface_Common\n    ! (hplin, 3/12/20)\n    year      = GET_YEAR()\n    month     = GET_MONTH()\n    day       = GET_DAY()\n    dayOfYr   = GET_DAY_OF_YEAR()\n    hour      = GET_HOUR()\n    minute    = GET_MINUTE()\n    second    = GET_SECOND()\n\n    CALL SetHcoTime( HcoState, ExtState, year,   month,   day, dayOfYr, &\n                     hour,     minute,   second, .FALSE., HMRC         )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"SetHcoTime\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Write diagnostics\n    !-----------------------------------------------------------------------\n    CALL HcoDiagn_Write( HcoState, RESTART, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HcoDiagn_Write\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       CALL Flush( HcoState%Config%Err%Lun )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE HCOI_GC_WriteDiagn\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GridEdge_Set\n!\n! !DESCRIPTION: SUBROUTINE GridEdge\\_Set sets the grid edge pressure values\n! on the HEMCO grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GridEdge_Set( Input_Opt, State_Grid, State_Met, HcoState, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCOX_STATE_MOD,   ONLY : ExtDat_Set\n    USE HCO_GeoTools_Mod, ONLY : HCO_CalcVertGrid\n    USE HCO_GeoTools_Mod, ONLY : HCO_SetPBLm\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE Input_Opt_Mod,    ONLY : OptInput\n#if defined( MODEL_CLASSIC )\n    USE HCO_State_GC_Mod, ONLY : State_Grid_HCO    ! HEMCO intermediate grid\n    USE HCO_Utilities_GC_Mod, ONLY : Regrid_MDL2HCO\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid state\n    TYPE(MetState),   INTENT(IN   )  :: State_Met  ! Met state\n    TYPE(HCO_STATE),  POINTER        :: HcoState   ! HEMCO state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)  :: RC         ! Success or failure?\n!\n! !REMARKS:\n!  GridEdge_Set defines the HEMCO vertical grid used in GEOS-Chem \"classic\"\n!  and WRF-GC simulations.  (GCHP and HEMCO-CESM-GC uses their own interface to HEMCO.)\n!\n! !REVISION HISTORY:\n!  08 Oct 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J\n    INTEGER            :: HMRC\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    ! Pointers\n    REAL(hp), POINTER  :: PBLM    (:,:  )    ! PBL height           [m ]\n    REAL(hp), POINTER  :: BXHEIGHT(:,:,:)    ! Grid box height      [m ]\n    REAL(hp), POINTER  :: PEDGE   (:,:,:)    ! Pressure @ lvl edges [Pa]\n    REAL(hp), POINTER  :: PSFC    (:,:  )    ! Surface pressure     [Pa]\n    REAL(hp), POINTER  :: TK      (:,:,:)    ! Temperature          [K ]\n    REAL(hp), POINTER  :: ZSFC    (:,:  )    ! Surface geopotential [m ]\n\n    !=======================================================================\n    ! GridEdge_Set begins here\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at GridEdge_Set (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Allocate all arrays.\n    !-----------------------------------------------------------------------\n#if defined( MODEL_CLASSIC )\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n      ! NOTE: Hco_CalcVertGrid expects pointer-based arguments, so we must\n      ! make PEDGE be a pointer and allocate/deallocate it on each call.\n      ALLOCATE( PEDGE( State_Grid%NX, State_Grid%NY, State_Grid%NZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:PEDGE', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ! Edge and surface pressures [Pa]\n      PEDGE    =  State_Met%PEDGE * 100.0_hp  ! Convert hPa -> Pa\n      PSFC     => PEDGE(:,:,1)\n\n      ! Point to other fields of State_Met\n      ZSFC     => State_Met%PHIS\n      BXHEIGHT => State_Met%BXHEIGHT\n      TK       => State_Met%T\n\n      ALLOCATE( PBLM( State_Grid%NX, State_Grid%NY ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:PBLM', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n#if defined( MODEL_CLASSIC )\n    ELSE\n      ! If intermediate grid, allocate and manually regrid meteorological fields.\n      ALLOCATE( PEDGE( State_Grid_HCO%NX, State_Grid_HCO%NY, State_Grid_HCO%NZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:IMG_PEDGE', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ALLOCATE( ZSFC( State_Grid_HCO%NX, State_Grid_HCO%NY ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:IMG_PHIS', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ALLOCATE( BXHEIGHT( State_Grid_HCO%NX, State_Grid_HCO%NY, State_Grid_HCO%NZ ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:IMG_BXHEIGHT', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ALLOCATE( TK( State_Grid_HCO%NX, State_Grid_HCO%NY, State_Grid_HCO%NZ ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:IMG_TK', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ALLOCATE( PBLM( State_Grid_HCO%NX, State_Grid_HCO%NY ), STAT=RC )\n      CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:IMG_PBLM', 0, RC )\n      IF ( RC /= HCO_SUCCESS ) RETURN\n\n      ! Fill and respectively regrid to targets.\n      ! IO, SG, SGH, PtrIn, PtrOut, ZBND, ResetRegrName=.true.\n\n      ! Edge pressures [Pa] (hPa->Pa convert)\n      REGR_3DI(:,:,:) = State_Met%PEDGE * 100.0_hp\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid_HCO%NZ+1, &\n                           ResetRegrName=.true. )\n      PEDGE(:,:,:)    = REGR_3DO(:,:,:)\n\n      ! Surface pressure\n      PSFC            => PEDGE(:,:,1)\n\n      ! ZSFC\n      REGR_3DI(:,:,1) = State_Met%PHIS(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      ZSFC(:,:)       = REGR_3DO(:,:,1)\n\n      ! BXHEIGHT\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%BXHEIGHT(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid_HCO%NZ,   & ! 2D data\n                           ResetRegrName=.true. )\n      BXHEIGHT(:,:,1:State_Grid%NZ) = REGR_3DO(:,:,1:State_Grid%NZ)\n\n      ! TK\n      REGR_3DI(:,:,1:State_Grid%NZ) = State_Met%T(:,:,1:State_Grid%NZ)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=State_Grid_HCO%NZ,   & ! 2D data\n                           ResetRegrName=.true. )\n      TK(:,:,1:State_Grid%NZ)       = REGR_3DO(:,:,1:State_Grid%NZ)\n    ENDIF\n#endif\n\n\n    !-----------------------------------------------------------------------\n    ! Calculate vertical grid properties\n    !-----------------------------------------------------------------------\n    CALL HCO_CalcVertGrid( HcoState, PSFC,  ZSFC, TK, BXHEIGHT, PEDGE, HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_CalcVertGrid\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Set PBL heights\n    !-----------------------------------------------------------------------\n#if defined( MODEL_CLASSIC )\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n!$OMP PARALLEL DO                                                 &\n!$OMP DEFAULT( SHARED )                                           &\n!$OMP PRIVATE( I, J )\n      DO J=1,State_Grid%NY\n      DO I=1,State_Grid%NX\n         PBLM(I,J) = State_Met%PBL_TOP_m(I,J)\n      ENDDO\n      ENDDO\n!$OMP END PARALLEL DO\n#if defined( MODEL_CLASSIC )\n    ELSE\n      ! Intermediate grid\n      ! PBLM\n      REGR_3DI(:,:,1) = State_Met%PBL_TOP_m(:,:)\n      CALL Regrid_MDL2HCO( Input_Opt, State_Grid, State_Grid_HCO,           &\n                           REGR_3DI,  REGR_3DO,   ZBND=1,                   & ! 2D data\n                           ResetRegrName=.true. )\n      PBLM(:,:)       = REGR_3DO(:,:,1)\n    ENDIF\n#endif\n\n    ! Use the met field PBL field to initialize HEMCO\n    CALL HCO_SetPBLm( HcoState, FldName='PBL_HEIGHT', &\n                      PBLM=PBLM, DefVal=1000.0_hp, RC=HMRC )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_SetPblM\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Cleanup and quit\n    !-----------------------------------------------------------------------\n\n    ! Deallocate and PEDGE\n    IF ( ASSOCIATED( PEDGE ) ) THEN\n       DEALLOCATE( PEDGE, STAT=RC )\n       CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:PEDGE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    ! Deallocate PBLM\n    IF ( ASSOCIATED( PBLM ) ) THEN\n       DEALLOCATE( PBLM  )\n       CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:PBLM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n#if defined( MODEL_CLASSIC )\n    IF ( .not. Input_Opt%LIMGRID ) THEN\n#endif\n      ! Free pointers\n      ZSFC     => NULL()\n      BXHEIGHT => NULL()\n      TK       => NULL()\n      PSFC     => NULL()\n      PEDGE    => NULL()\n      PBLM     => NULL()\n#if defined( MODEL_CLASSIC )\n    ELSE\n      ! Deallocate arrays\n      IF ( ASSOCIATED( ZSFC ) ) THEN\n         DEALLOCATE( ZSFC  )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:ZSFC', 2, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n      ENDIF\n\n      IF ( ASSOCIATED( BXHEIGHT ) ) THEN\n         DEALLOCATE( BXHEIGHT  )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:BXHEIGHT', 2, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n      ENDIF\n\n      IF ( ASSOCIATED( TK ) ) THEN\n         DEALLOCATE( TK  )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:TK', 2, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n      ENDIF\n\n      PSFC     => NULL()\n\n      IF ( ASSOCIATED( PEDGE ) ) THEN\n         DEALLOCATE( PEDGE  )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:PEDGE', 2, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n      ENDIF\n\n      IF ( ASSOCIATED( PBLM ) ) THEN\n         DEALLOCATE( PBLM  )\n         CALL GC_CheckVar( 'hco_interface_gc_mod.F90:GridEdge_Set:PBLM', 2, RC )\n         IF ( RC /= GC_SUCCESS ) RETURN\n      ENDIF\n    ENDIF\n#endif\n\n  END SUBROUTINE GridEdge_Set\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SetHcoSpecies\n!\n! !DESCRIPTION: Subroutine SetHcoSpecies defines the HEMCO species. These\n! are typically just the GEOS-Chem species. Some additional species may be\n! manually added, e.g. SESQ (which is not a species) or individual CO2 species\n! per emission source (for CO2 specialty sim).\n!\\\\\n!\\\\\n! This routine has two phases: phase 1 simply returns the number of species\n! to be used by HEMCO. This is useful as this number needs to be passed to\n! the HEMCO initialization call.\n! Phase 2 sets the HEMCO species information in the HEMCO state object. This\n! needs to be done after initialization of the HEMCO state object.\n! !INTERFACE:\n!\n  SUBROUTINE SetHcoSpecies( Input_Opt, State_Chm, HcoState, nSpec, Phase, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_LogFile_Mod, ONLY : HCO_SPEC2LOG\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE Species_Mod,     ONLY : Species\n    USE HCO_Types_Mod,   ONLY : ConfigObj\n    USE State_Chm_Mod,   ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   )   :: Phase      ! 1=Init, 2=Run\n    TYPE(ChmState),   INTENT(IN   )   :: State_Chm  ! Chemistry State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)   :: Input_Opt  ! Input Options object\n    TYPE(Hco_State),  POINTER         :: HcoState   ! HEMCO state\n    INTEGER,          INTENT(INOUT)   :: nSpec      ! # of species for HEMCO\n    INTEGER,          INTENT(INOUT)   :: RC         ! Success or failure?\n!\n! !REMARKS:\n!  (1) We now get physical parameters for species from the species database,\n!       which is part of the State_Chm object.\n!  (2) In the future, it will be easier to specify non-advected species\n!       like SESQ and the CO2 regional species from the species database.\n!       The species database flags if a species is advected or not.\n!\n! !REVISION HISTORY:\n!  06 Mar 2015 - C. Keller   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: nSpc, HMRC\n    INTEGER                :: N,    L,    M\n    REAL(dp)               :: K0,   CR,   pKa\n\n    ! Strings\n    CHARACTER(LEN= 31)     :: ThisName\n    CHARACTER(LEN=255)     :: ThisLoc\n    CHARACTER(LEN=512)     :: ErrMsg,  Msg\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! SetHcoSpecies begins here\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at SetHcoSpecies (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !-----------------------------------------------------------------\n    ! For most simulations (e.g. full-chem simulation, most of the\n    ! specialty sims), just use the GEOS-Chem species definitions.\n    !-----------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM                                   .or. &\n         Input_Opt%ITS_AN_AEROSOL_SIM                                   .or. &\n         Input_Opt%ITS_A_CARBON_SIM                                     .or. &\n         Input_Opt%ITS_A_MERCURY_SIM                                    .or. &\n         Input_Opt%ITS_A_POPS_SIM                                       .or. &\n         Input_Opt%ITS_A_TAGO3_SIM                                      .or. &\n         Input_Opt%ITS_A_TRACER_SIM                                     .or. &\n         Input_Opt%ITS_A_TRACEMETAL_SIM ) THEN\n\n       ! Get number of model species\n       nSpc = State_Chm%nAdvect\n\n       !%%%%% FOR SOA SIMULATIONS %%%%%\n       ! Check for SESQ: SESQ is not transported due to its short lifetime,\n       ! but emissions are still calculated (in MEGAN). SESQ is only used\n       ! in the SOA simulation, i.e. if LIMO is defined. Thus, add one more\n       ! species here if LIMO is a model species and calculate SESQ emissions\n       ! along with LIMO!\n       IF ( id_LIMO > 0 ) THEN\n          nSpc = nSpc + 1\n       ENDIF\n\n       ! Assign species variables\n       IF ( PHASE == 2 ) THEN\n\n          ! Verbose (only written if debug printout is requested)\n          IF ( Input_Opt%Verbose ) THEN\n             Msg = 'Registering HEMCO species:'\n             CALL HCO_MSG( Msg, SEP1='-', LUN=HcoState%Config%hcoLogLUN )\n          ENDIF\n\n          ! Sanity check: number of input species should agree with nSpc\n          IF ( nSpec /= nSpc ) THEN\n             WRITE(ErrMsg,*) 'Input species /= expected species: ', nSpec, nSpc\n             CALL GC_ERROR( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          DO N = 1, State_Chm%nAdvect\n\n             ! Get info for this species from the species database\n             SpcInfo => State_Chm%SpcData(N)%Info\n\n             ! Model ID and species name\n             HcoState%Spc(N)%ModID      = SpcInfo%ModelID\n             HcoState%Spc(N)%SpcName    = TRIM( SpcInfo%Name )\n\n             ! Actual molecular weight of species [g/mol]\n             HcoState%Spc(N)%MW_g       = SpcInfo%MW_g\n\n             ! Set Henry's law coefficients\n             HcoState%Spc(N)%HenryK0    = SpcInfo%Henry_K0   ! [M/atm]\n             HcoState%Spc(N)%HenryCR    = SpcInfo%Henry_CR   ! [K    ]\n             HcoState%Spc(N)%HenryPKA   = SpcInfo%Henry_pKa  ! [1    ]\n\n             ! Logfile output (only written if debug printout is requested)\n             IF ( Input_Opt%Verbose ) THEN\n                CALL HCO_SPEC2LOG( HcoState, N )\n             ENDIF\n\n             ! Free pointer memory\n             SpcInfo => NULL()\n          ENDDO\n\n          !------------------------------------------------------------------\n          ! %%%%% FOR SOA SIMULATIONS %%%%%\n          !\n          ! Add the non-advected species SESQ in the last species slot\n          !------------------------------------------------------------------\n          IF ( id_LIMO > 0 ) THEN\n             N                           = nSpec\n             HcoState%Spc(N)%ModID       = N\n             HcoState%Spc(N)%SpcName     = 'SESQ'\n             HcoState%Spc(N)%MW_g        = 150.0_hp\n             HcoState%Spc(N)%HenryK0     = 0.0_hp\n             HcoState%Spc(N)%HenryCR     = 0.0_hp\n             HcoState%Spc(N)%HenryPKa    = 0.0_hp\n\n             ! Logfile output (only written if debug output is requested)\n             IF ( Input_Opt%Verbose ) THEN \n                CALL HCO_SPEC2LOG(  HcoState, N )\n             ENDIF\n          ENDIF\n\n          ! Add line to log-file\n          IF ( Input_Opt%Verbose ) THEN\n             msg=''\n             CALL HCO_MSG( msg, SEP1='-', LUN=HcoState%Config%hcoLogLUN )\n          ENDIF\n       ENDIF ! Phase = 2\n\n    !-----------------------------------------------------------------\n    ! DEFAULT (RETURN W/ ERROR)\n    !-----------------------------------------------------------------\n    ELSE\n       ErrMsg = 'Invalid simulation type - cannot define model species'\n       CALL HCO_ERROR( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! For phase 1, pass species to output\n    nSpec = nSpc\n\n    ! Return w/ success\n    RC = HCO_SUCCESS\n\n  END SUBROUTINE SetHcoSpecies\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SetHcoGrid\n!\n! !DESCRIPTION: Subroutine SetHcoGrid tells HEMCO about the grid that is being\n!  used by the GEOS-Chem simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SetHcoGrid( State_Grid, State_Met, HcoState, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_ARR_MOD,        ONLY : HCO_ArrInit\n    USE HCO_VERTGRID_MOD,   ONLY : HCO_VertGrid_Define\n    USE PRESSURE_MOD,       ONLY : GET_AP, GET_BP\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid state\n    TYPE(MetState),   INTENT(IN   )  :: State_Met  ! Met state\n!\n! !INPUT/OUTPUT ARGUMENTS:\n!\n    TYPE(Hco_State),  POINTER        :: HcoState   ! HEMCO state\n    INTEGER,          INTENT(INOUT)  :: RC\n!\n! !REVISION HISTORY:\n!  13 Sep 2013 - C. Keller   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER               :: L\n    INTEGER               :: HMRC\n\n    ! Arrays\n    REAL(hp), ALLOCATABLE :: Ap(:),   Bp(:)\n\n    ! Strings\n    CHARACTER(LEN=255)    :: ThisLoc\n    CHARACTER(LEN=512)    :: ErrMsg\n\n    !=======================================================================\n    ! SetHcoGrid begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at SetHcoGrid (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !=======================================================================\n    ! NOTE: for now, just copy GEOS-Chem grid, i.e. HEMCO calculations\n    ! are performed on the GEOS-Chem simulation grid.\n    ! It is possible to define a different emissions grid below.\n    ! In this case, all arrays have to be regridded when passing\n    ! them between HEMCO and GEOS-Chem (this is also true for the\n    ! met-fields used by the extensions)!\n    !=======================================================================\n\n    ! Grid dimensions\n    HcoState%NX = State_Grid%NX\n    HcoState%NY = State_Grid%NY\n    HcoState%NZ = State_Grid%NZ\n\n    ! Allocate Ap array\n    ALLOCATE( Ap( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'hco_interface_gc_mod:SetHcoGrid:Ap', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Allocate Bp array\n    ALLOCATE( Bp( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'hco_interface_gc_mod:SetHcoGrid:Bp', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Get Ap and Bp values from GEOS-Chem\n    DO L = 1, State_Grid%NZ+1\n       Ap(L) = GET_AP(L) * 100_hp ! hPa to Pa\n       Bp(L) = GET_BP(L)          ! unitless\n    ENDDO\n\n    ! Define the vertical grid\n    CALL HCO_VertGrid_Define( HcoState%Config,                               &\n                              zGrid      = HcoState%Grid%zGrid,              &\n                              nz         = State_Grid%NZ,                    &\n                              Ap         = Ap,                               &\n                              Bp         = Bp,                               &\n                              RC         = HMRC                             )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"HCO_VertGrid_Define\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Set pointers to grid variables\n    HcoState%Grid%XMID%Val       => State_Grid%XMid   (:,:)\n    HcoState%Grid%YMID%Val       => State_Grid%YMid   (:,:)\n    HcoState%Grid%XEDGE%Val      => State_Grid%XEdge  (:,:)\n    HcoState%Grid%YEDGE%Val      => State_Grid%YEdge  (:,:)\n    HcoState%Grid%YSIN%Val       => State_Grid%YSIN   (:,:)\n    HcoState%Grid%AREA_M2%Val    => State_Grid%Area_M2(:,:)\n!    HcoState%Grid%ZSFC%Val       => State_Met%PHIS      ! Surface geopotential height\n!    HcoState%Grid%BXHEIGHT_M%Val => State_Met%BXHEIGHT  ! Grid box heights\n\n!    ! Allocate PEDGE. Will be updated every time step!\n!    CALL HCO_ArrInit( HcoState%Grid%PEDGE, HcoState%NX, HcoState%NY, HcoState%NZ+1, RC )\n!    IF ( RC /= HCO_SUCCESS ) RETURN\n\n    ! Return w/ success\n    RC = HCO_SUCCESS\n\n  END SUBROUTINE SetHcoGrid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CheckSettings\n!\n! !DESCRIPTION: Subroutine CheckSettings performs some sanity checks of the\n! switches provided in the HEMCO configuration file in combination with the\n! settings specified in geoschem_config.yml.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CheckSettings( HcoConfig, Input_Opt, State_Met, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Types_Mod,      ONLY : ConfigObj\n    USE HCO_ExtList_Mod,    ONLY : GetExtNr,  SetExtNr\n    USE HCO_ExtList_Mod,    ONLY : GetExtOpt, AddExtOpt\n    USE HCO_ExtList_Mod,    ONLY : CoreNr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ConfigObj),  POINTER        :: HcoConfig  ! HEMCO config obj\n    TYPE(MetState),   INTENT(IN   )  :: State_Met  ! Met state\n    TYPE(ChmState),   INTENT(IN   )  :: State_Chm  ! Chemistry state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt  ! Input opts\n    INTEGER,          INTENT(INOUT)  :: RC         ! Failure or success\n!\n! !REMARKS:\n!  Gfortran will choke unless we use the .eqv. operator to compare LOGICAL\n!  variables for equality (or .neqv. for inequality).\n\n! !REVISION HISTORY:\n!  18 Feb 2015 - C. Keller   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: ExtNr\n    INTEGER            :: HMRC\n    LOGICAL            :: LTMP\n    LOGICAL            :: FOUND\n\n    ! Strings\n    CHARACTER(LEN=31 ) :: OptName\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !=======================================================================\n    ! CheckSettings begins here\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    HMRC     = HCO_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at CheckSettings (in module GeosCore/hco_interface_gc_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! If chemistry is turned off, do not read chemistry input data\n    !-----------------------------------------------------------------------\n    IF ( .NOT. Input_Opt%LCHEM ) THEN\n\n       IF ( Input_Opt%amIRoot ) THEN\n          Print*, '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'\n          Print*, '% WARNING: Activate chemistry is set to false in        %'\n          Print*, '% geoschem_config.yml so chemistry data will not be     %'\n          Print*, '% read by HEMCO(hco_interface_gc_mod.F90)               %'\n          Print*, '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'\n       ENDIF\n\n       OptName = 'CHEMISTRY_INPUT : false'\n       CALL AddExtOpt( HcoConfig, TRIM(OptName), CoreNr, RC=HMRC )\n\n       ! Trap potential errors\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"AddExtOpt( CHEMISTRY_INPUT )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! EMISSIONS switch in HEMCO_Config.rc\n    !\n    ! Create a shadow field (Input_Opt%DoEmissions) to determine if\n    ! emissions fluxes should be applied in mixing_mod.F90\n    !-----------------------------------------------------------------------\n    CALL GetExtOpt( HcoConfig, -999, 'EMISSIONS',           &\n                    OptValBool=LTMP, FOUND=FOUND,  RC=HMRC )\n\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"GetExtOpt( EMISSIONS )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       ErrMsg = 'EMISSIONS not found in HEMCO_Config.rc file!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%DoEmissions = LTMP\n\n    !-----------------------------------------------------------------------\n    ! Lightning NOx extension\n    !\n    ! The lightning NOx extension is only used in fullchem simulations. We\n    ! will create a shadow field (Input_Opt%DoLightningNOx) to determine if\n    ! the FLASH_DENS and CONV_DEPTH fields are needed in flexgrid_read_mod.F90\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       ExtNr = GetExtNr( HcoConfig%ExtList, 'LightNOx' )\n       IF ( ExtNr <= 0 ) THEN\n          Input_Opt%DoLightNOx = .FALSE.\n       ELSE\n          Input_Opt%DoLightNOx = .TRUE.\n       ENDIF\n    ELSE\n       Input_Opt%DoLightNOx = .FALSE.\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! UV Albedo\n    !\n    ! UV albedoes are needed for photolysis.  Photolysis is only used in\n    ! fullchem and aerosol-only simulations that have chemistry switched on.\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       CALL GetExtOpt( HcoConfig, -999, 'UVALBEDO',           &\n                       OptValBool=LTMP, FOUND=FOUND,  RC=HMRC )\n\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"GetExtOpt( UVALBEDO )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. FOUND ) THEN\n          ErrMsg = 'UVALBEDO not found in HEMCO_Config.rc file!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. LTMP ) THEN\n          ErrMsg = 'UVALBEDO is set to false in HEMCO_Config.rc ' // &\n                   'but should be set to true for this simulation.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n#ifdef ESMF_\n    !-----------------------------------------------------------------------\n    ! Also check that HEMCO_RESTART is not set in ESMF\n    !-----------------------------------------------------------------------\n    CALL GetExtOpt( HcoConfig,       -999,        'HEMCO_RESTART',           &\n                    OptValBool=LTMP, FOUND=FOUND,  RC=HMRC                  )\n\n    ! Trap potential errors\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"GetExtOpt( HEMCO_RESTART in ESMF)\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n    If ( FOUND .and. LTMP ) Then\n       ErrMsg = 'Error encountered in \"ESMF HEMCO_RESTART\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    End If\n#endif\n\n    !-----------------------------------------------------------------------\n    ! TOMS/SBUV overhead O3 columns\n    !\n    ! Do not read in the TOMS/SBUV O3 columns unless running a mercury\n    ! simulation. We will instead use the O3 columns from the GEOS-FP\n    ! or MERRA-2 met fields.\n    !-----------------------------------------------------------------------\n    CALL GetExtOpt( HcoConfig, -999, 'TOMS_SBUV_O3',       &\n                    OptValBool=LTMP, FOUND=FOUND,  RC=HMRC )\n    IF ( HMRC /= HCO_SUCCESS ) THEN\n       RC     = HMRC\n       ErrMsg = 'Error encountered in \"GetExtOpt( TOMS_SBUV_O3 )\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    IF ( Input_Opt%ITS_A_MERCURY_SIM .and. Input_Opt%LKRedUV ) THEN\n\n       IF ( .not. FOUND ) THEN\n          ErrMsg = 'TOMS_SBUV_O3 not found in HEMCO_Config.rc file ' // &\n                   'but is required for this simulation.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. LTMP ) THEN\n          ErrMsg = 'TOMS_SBUV_O3 is set to false in HEMCO_Config.rc ' // &\n                   'but should be set to true for this simulation.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       IF ( LTMP ) THEN\n          ErrMsg = 'TOMS_SBUV_O3 is set to true in HEMCO_Config.rc ' // &\n                   'but should be set to false for this simulation. '// &\n                   'O3 columns are obtained from met fields instead.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Ocean Hg input data (for Hg sims only)\n    !\n    ! If we have turned on the Ocean Mercury simulation in the\n    ! geoschem_config.yml file, then we will also toggle the OCEAN_Hg\n    ! collection so that HEMCO reads the appropriate data.\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%ITS_A_MERCURY_SIM .and. Input_Opt%LDYNOCEAN ) THEN\n\n       CALL GetExtOpt( HcoConfig, -999, 'OCEAN_Hg',           &\n                       OptValBool=LTMP, FOUND=FOUND,  RC=HMRC )\n\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"GetExtOpt( OCEAN_Hg )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. FOUND ) THEN\n          ErrMsg = 'OCEAN_Hg not found in HEMCO_Config.rc file!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. LTMP ) THEN\n          ErrMsg = 'OCEAN_Hg is set to false in HEMCO_Config.rc ' // &\n                   'but use_dynamic_ocean_Hg is true in geoschem_config.yml.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! RRTMG input data\n    !\n    ! If we have turned on the RRTMG simulation in the\n    ! geoschem_config.yml file, then we will also toggle the RRTMG\n    ! collection so that HEMCO reads the appropriate data.\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%LRAD .and. Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n       CALL GetExtOpt( HcoConfig, -999, 'RRTMG',              &\n                       OptValBool=LTMP, FOUND=FOUND,  RC=HMRC )\n\n       IF ( HMRC /= HCO_SUCCESS ) THEN\n          RC     = HMRC\n          ErrMsg = 'Error encountered in \"GetExtOpt( RRTMG )\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. FOUND ) THEN\n          ErrMsg = 'RRTMG not found in HEMCO_Config.rc file!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       IF ( .not. LTMP ) THEN\n          ErrMsg = 'RRTMG is set to false in HEMCO_Config.rc ' // &\n                   'but should be set to true for this simulation.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    ! Print value of shadow fields (only if debug output is requested)\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       Print*, ''\n       Print*, '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'\n       Print*, 'Switches read from HEMCO_Config.rc:'\n       Print*, '  EMISSIONS : ', Input_Opt%DoEmissions\n       Print*, '  LightNOx  : ', Input_Opt%DoLightNOx\n       Print*, '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'\n    ENDIF\n\n    ! Return w/ success\n    RC = HCO_SUCCESS\n\n  END SUBROUTINE CheckSettings\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_szafact\n!\n! !DESCRIPTION:\n!  Subroutine GET\\_SZAFACT returns diurnal scale factors from dividing\n!  the sza by the sum of the total sza per day. These factors are mainly\n!  imposed to the monthly OH climatology.\n!  However, the same scale factors are dimensionless and can hence be\n!  applied to other compounds too (e.g. O3).\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Get_SzaFact( I, J, State_Met ) RESULT( FACT )\n!\n! !USES:\n!\n    USE State_Met_Mod,      ONLY : MetState\n    USE Time_Mod,           ONLY : Get_TS_Chem\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: I, J\n    TYPE(MetState), INTENT(IN) :: State_Met\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                   :: FACT\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=======================================================================\n    ! GET_SZAFACT begins here!\n    !=======================================================================\n\n    ! Test for sunlight...\n    IF ( State_Met%SUNCOS(I,J) > 0e+0_fp  .AND. &\n         State_Met%SUNCOSsum(I,J) > 0e+0_fp ) THEN\n\n       ! Impose a diurnal variation on OH during the day\n       FACT = ( State_Met%SUNCOS(I,J) / State_Met%SUNCOSsum(I,J) ) &\n              * ( 86400e+0_fp / GET_TS_CHEM() )\n\n    ELSE\n\n       ! At night, OH goes to zero\n       FACT = 0e+0_fp\n\n    ENDIF\n\n  END FUNCTION Get_SzaFact\n!EOC\n#if defined ( MODEL_CLASSIC )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_met_fields\n!\n! !DESCRIPTION: Subroutine GET\\_MET\\_FIELDS calls the various routines to get\n! met fields from HEMCO.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE Get_Met_Fields( Input_Opt, State_Chm, State_Grid, &\n                            State_Met, Phase, RC )\n!\n! ! USES:\n!\n   USE Calc_Met_Mod\n   USE ErrCode_Mod\n   USE FlexGrid_Read_Mod\n   USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetPtr\n   USE Input_Opt_Mod,        ONLY : OptInput\n   USE Pressure_Mod,         ONLY : Set_Floating_Pressures\n   USE State_Chm_Mod,        ONLY : ChmState\n   USE State_Grid_Mod,       ONLY : GrdState\n   USE State_Met_Mod,        ONLY : MetState\n   USE Time_Mod\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput),   INTENT(IN   )          :: Input_Opt  ! Input options\n   TYPE(GrdState),   INTENT(IN   )          :: State_Grid ! Grid State\n   INTEGER,          INTENT(IN   )          :: Phase      ! Run phase\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(MetState),   INTENT(INOUT)          :: State_Met  ! Meteorology State\n   TYPE(ChmState),   INTENT(INOUT)          :: State_Chm  ! Chemistry State\n   INTEGER,          INTENT(INOUT)          :: RC         ! Failure or success\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  07 Feb 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER              :: N_DYN              ! Dynamic timestep in seconds\n   INTEGER              :: D(2)               ! Variable for date and time\n   LOGICAL              :: FOUND              ! Found in restart file?\n   LOGICAL              :: Update_MR          ! Update species mixing ratio?\n   CHARACTER(LEN=255)   :: v_name             ! Variable name\n\n   ! Pointers\n   REAL*4,  POINTER     :: Ptr2D(:,:)\n   REAL*4,  POINTER     :: Ptr3D(:,:,:)\n\n   !=================================================================\n   !    *****  R E A D   M E T   F I E L D S    *****\n   !    *****  At the start of the GEOS-Chem simulation  *****\n   !=================================================================\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Initialize pointers\n   Ptr2D       => NULL()\n   Ptr3D       => NULL()\n\n   !----------------------------------\n   ! Read time-invariant data (Phase 0 only)\n   !----------------------------------\n   IF ( PHASE == 0 ) THEN\n      CALL FlexGrid_Read_CN( Input_Opt, State_Grid, State_Met )\n   ENDIF\n\n   !----------------------------------\n   ! Read 1-hr time-averaged data\n   !----------------------------------\n   IF ( PHASE == 0 ) THEN\n      D = GET_FIRST_A1_TIME()\n   ELSE\n      D = GET_A1_TIME()\n   ENDIF\n   IF ( PHASE == 0 .or. ITS_TIME_FOR_A1() .and. &\n        .not. ITS_TIME_FOR_EXIT() ) THEN\n      CALL FlexGrid_Read_A1( D(1), D(2), Input_Opt, State_Grid, State_Met )\n\n      IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n         CALL FlexGrid_Read_A1dyn( D(1), D(2), Input_Opt, State_Grid, State_Met )\n      ENDIF\n   ENDIF\n\n   !----------------------------------\n   ! Read 3-hr time averaged data\n   !----------------------------------\n   IF ( PHASE == 0 ) THEN\n      D = GET_FIRST_A3_TIME()\n   ELSE\n      D = GET_A3_TIME()\n   ENDIF\n   IF ( PHASE == 0 .or. ITS_TIME_FOR_A3() .and. &\n        .not. ITS_TIME_FOR_EXIT() ) THEN\n      CALL FlexGrid_Read_A3( D(1), D(2), Input_Opt, State_Grid, State_Met )\n   ENDIF\n\n   !----------------------------------\n   ! Read 3-hr instantanous data\n   !----------------------------------\n   IF ( PHASE == 0 ) THEN\n      D = GET_FIRST_I3_TIME()\n      CALL FlexGrid_Read_I3_1( D(1), D(2), Input_Opt, State_Grid, State_Met )\n\n      ! Resolution 0.125x0.15625 uses I1dyn archive (xlwang, 06/2024)\n      IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n         ! Set dry surface pressure (PS1_DRY) from State_Met%PS1_WET\n         ! and compute avg dry pressure near polar caps\n         CALL Set_Dry_Surface_Pressure( State_Grid, State_Met, 1 )\n         CALL AvgPole( State_Grid, State_Met%PS1_DRY )\n\n         ! Compute avg moist pressure near polar caps\n         CALL AvgPole( State_Grid, State_Met%PS1_WET )\n\n         ! Initialize surface pressures prior to interpolation\n         ! to allow initialization of floating pressures\n         State_Met%PSC2_WET = State_Met%PS1_WET\n         State_Met%PSC2_DRY = State_Met%PS1_DRY\n         CALL Set_Floating_Pressures( State_Grid, State_Met, RC )\n\n         ! Call AIRQNT to compute initial air mass quantities\n         CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n      ENDIF ! not 0.125x0.15625\n\n   ENDIF\n\n   ! Read in I3 fields at t+3hours for this timestep\n   IF ( ITS_TIME_FOR_I3() .and. .not. ITS_TIME_FOR_EXIT() ) THEN\n\n      D = GET_I3_TIME()\n      CALL FlexGrid_Read_I3_2( D(1), D(2), Input_Opt, State_Grid, State_Met )\n\n      ! Resolution 0.125x0.15625 use I1dyn archive (xlwang, 06/2024)\n      IF ( TRIM(State_Grid%GridRes) /= '0.125x0.15625' ) THEN\n\n          ! Set dry surface pressure (PS2_DRY) from State_Met%PS2_WET\n          ! and compute avg dry pressure near polar caps\n          CALL Set_Dry_Surface_Pressure( State_Grid, State_Met, 2 )\n          CALL AvgPole( State_Grid, State_Met%PS2_DRY )\n\n          ! Compute avg moist pressure near polar caps\n          CALL AvgPole( State_Grid, State_Met%PS2_WET )\n\n      ENDIF ! not 0.125x0.15625\n\n   ENDIF\n\n   !----------------------------------\n   ! Read 1-hr instantanous data\n   !----------------------------------\n\n   ! Resolution 0.125x0.15625 uses I1dyn archive (xlwang, 06/2024)\n   IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n\n       IF ( PHASE == 0 ) THEN\n          D = GET_FIRST_I1dyn_TIME()\n          CALL FlexGrid_Read_I1dyn_1( D(1), D(2), Input_Opt, State_Grid, State_Met )\n\n          ! Set dry surface pressure (PS1_DRY) from State_Met%PS1_WET\n          ! and compute avg dry pressure near polar caps\n          CALL Set_Dry_Surface_Pressure( State_Grid, State_Met, 1 )\n          CALL AvgPole( State_Grid, State_Met%PS1_DRY )\n\n          ! Compute avg moist pressure near polar caps\n          CALL AvgPole( State_Grid, State_Met%PS1_WET )\n\n          ! Initialize surface pressures prior to interpolation\n          ! to allow initialization of floating pressures\n          State_Met%PSC2_WET = State_Met%PS1_WET\n          State_Met%PSC2_DRY = State_Met%PS1_DRY\n          CALL Set_Floating_Pressures( State_Grid, State_Met, RC )\n\n          ! Call AIRQNT to compute initial air mass quantities\n          CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n       ENDIF\n\n       ! Read in I1dyn fields at t+3hours for this timestep\n       IF ( ITS_TIME_FOR_I1dyn() .and. .not. ITS_TIME_FOR_EXIT() ) THEN\n\n          D = GET_I1dyn_TIME()\n          CALL FlexGrid_Read_I1dyn_2( D(1), D(2), Input_Opt, State_Grid, State_Met )\n\n          ! Set dry surface pressure (PS2_DRY) from State_Met%PS2_WET\n          ! and compute avg dry pressure near polar caps\n          CALL Set_Dry_Surface_Pressure( State_Grid, State_Met, 2 )\n          CALL AvgPole( State_Grid, State_Met%PS2_DRY )\n\n          ! Compute avg moist pressure near polar caps\n          CALL AvgPole( State_Grid, State_Met%PS2_WET )\n\n       ENDIF\n\n    ENDIF\n END SUBROUTINE Get_Met_Fields\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_Sflx_for_Vdiff\n!\n! !DESCRIPTION: Computes the surface flux (\\= emissions - drydep) for the\n!  non-local PBL mixing.  This code was removed from within the non-local\n!  PBL mixing driver routine VDIFFDR.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Sflx_for_Vdiff( Input_Opt,  State_Chm, State_Diag,      &\n                                     State_Grid, State_Met, RC              )\n!\n! ! USES:\n!\n    USE Depo_Mercury_Mod,     ONLY : Add_Hg2_DD\n    USE Depo_Mercury_Mod,     ONLY : Add_HgP_DD\n    USE Depo_Mercury_Mod,     ONLY : Add_Hg2_SnowPack\n    USE ErrCode_Mod\n    USE Get_Ndep_Mod,         ONLY : Soil_Drydep\n    USE HCO_Utilities_GC_Mod, ONLY : GetHcoValEmis, GetHcoValDep, InquireHco\n    USE HCO_Utilities_GC_Mod, ONLY : LoadHcoValEmis, LoadHcoValDep\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetDiagn\n    USE HCO_State_GC_Mod,     ONLY : ExtState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE Input_Opt_Mod,        ONLY : OptInput\n#if !defined( MODEL_CESM )\n    USE Mercury_Mod,          ONLY : Hg_Emis\n#endif\n    USE PhysConstants\n    USE Species_Mod,          ONLY : Species,  SpcConc\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE State_Diag_Mod,       ONLY : DgnState, DgnMap\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE Time_Mod,             ONLY : Get_Ts_Conv\n    USE Time_Mod,             ONLY : Get_Ts_Emis\n    USE Timers_Mod,           ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid  ! Grid State\n    TYPE(MetState),   INTENT(IN)    :: State_Met   ! Meteorology State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm   ! Chemistry State\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag  ! Diagnostics State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  The loop order of this routine was changed from I,J,N to N,I,J. This allows\n!  us to keep one species in memory at a time, to avoid regridding over and over\n!  again when the HEMCO grid is not the same as the model grid.\n!  The on-demand regridder caches the LAST SPECIES information, so the outermost\n!  loop should be based on the species ID.\n!\n! !REVISION HISTORY:\n!  18 May 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    INTEGER, SAVE           :: id_O3    = -1\n    INTEGER, SAVE           :: id_HNO3  = -1\n\n    ! Scalars\n    LOGICAL                 :: found,   zeroHg0Dep\n    INTEGER                 :: I,       J\n    INTEGER                 :: L,       NA\n    INTEGER                 :: ND,      N\n    INTEGER                 :: Hg_Cat,  topMix\n    INTEGER                 :: S,       previous_units\n    REAL(fp)                :: dep,     emis\n    REAL(fp)                :: MW_kg,   fracNoHg0Dep\n    REAL(fp)                :: tmpFlx\n\n    LOGICAL                 :: EmisSpec, DepSpec\n\n    ! Strings\n    CHARACTER(LEN=255)      :: errMsg,  thisLoc\n\n    ! Arrays\n    REAL(fp), TARGET        :: eflx(State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Chm%nAdvect                       )\n    REAL(fp), TARGET        :: colEflx(State_Grid%NX,                        &\n                                       State_Grid%NY,                        &\n                                       State_Chm%nAdvect                    )\n    REAL(fp), TARGET        :: dflx(State_Grid%NX,                           &\n                                    State_Grid%NY,                           &\n                                    State_Chm%nAdvect                       )\n\n    ! Pointers and Objects\n    REAL(f4),       POINTER :: Ptr2D(:,:) => NULL()\n\n    REAL(f4),       POINTER :: PNOxLoss_O3(:,:)\n    REAL(f4),       POINTER :: PNOxLoss_HNO3(:,:)\n\n    TYPE(Species),  POINTER :: ThisSpc\n    TYPE(DgnMap),   POINTER :: mapData\n\n    !=======================================================================\n    ! Compute_Sflx_For_Vdiff begins here!\n    !\n    ! NOTE: The State_Chm%DryDepMix is zeroed in routine\n    ! \"Zero_Diagnostics_StartOfTimestep\", so we have removed\n    ! the code to zero them again here.\n    !=======================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    dflx    =  0.0_fp\n    eflx    =  0.0_fp\n    colEflx =  0.0_fp\n    ThisSpc => NULL()\n    errMsg  = ''\n    thisLoc = &\n    ' -> at Compute_Sflx_for_Vdiff (in module GeosCore/hco_interface_gc_mod.F90)'\n    PNOXLoss_HNO3 => NULL()\n    PNOxLoss_O3   => NULL()\n\n    !=======================================================================\n    ! Convert units to [v/v dry] aka [mol/mol dry]\n    !=======================================================================\n\n    ! Halt mixing timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Boundary layer mixing\", RC )\n    ENDIF\n\n    ! Convert units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = State_Chm%Map_Advect,                              &\n         new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,                   &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Trap potential error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountred in \"Convert_Spc_Units\" (to v/v dry)!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start mixing timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Boundary layer mixing\", RC )\n    ENDIF\n\n    !=======================================================================\n    ! Get pointers to the PARANOX loss fluxes.\n    ! These are stored in diagnostics 'PARANOX_O3_DEPOSITION_FLUX' and\n    ! 'PARANOX_HNO3_DEPOSITION_FLUX'. The call below links pointers\n    ! PNOXLOSS_O3 and PNOXLOSS_HNO3 to the data values stored in the\n    ! respective diagnostics. The pointers will remain unassociated if\n    ! the diagnostics do not exist.\n    !\n    ! The arrays are now allocated and copied to to accommodate for the\n    ! HEMCO intermediate grid feature, as we want the regridded data to\n    ! be kept for the rest of this subroutine call.\n    !=======================================================================\n\n    ! Get species IDs\n    id_O3   = Ind_('O3'  )\n    id_HNO3 = Ind_('HNO3')\n\n#if !defined( MODEL_CESM )\n    IF ( id_O3 > 0 ) THEN\n       CALL HCO_GC_GetDiagn(                                              &\n            Input_Opt,  State_Grid,                                       &\n            DiagnName      = 'PARANOX_O3_DEPOSITION_FLUX',                &\n            StopIfNotFound = .FALSE.,                                     &\n            Ptr2D          = Ptr2D,                                       &\n            RC             = RC                                          )\n    ENDIF\n    IF( ASSOCIATED( Ptr2D )) THEN\n       ALLOCATE ( PNOxLoss_O3( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       PNOxLoss_O3(:,:) = Ptr2D(:,:)\n    ENDIF\n    Ptr2D => NULL()\n\n    IF ( id_HNO3 > 0 ) THEN\n       CALL HCO_GC_GetDiagn(                                              &\n            Input_Opt,  State_Grid,                                       &\n            DiagnName      = 'PARANOX_HNO3_DEPOSITION_FLUX',              &\n            StopIfNotFound = .FALSE.,                                     &\n            Ptr2D          = Ptr2D,                                       &\n            RC             = RC                                          )\n    ENDIF\n    IF( ASSOCIATED( Ptr2D )) THEN\n       ALLOCATE ( PNOxLoss_HNO3( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       PNOxLoss_HNO3(:,:) = Ptr2D(:,:)\n    ENDIF\n    Ptr2D => NULL()\n#endif\n\n    !=======================================================================\n    ! Add emissions & deposition values calculated in HEMCO.\n    ! Here we only consider emissions below the PBL top.\n    !\n    ! The loop has been separated to go over N, J, I in order to optimize\n    ! for retrieving regridded data from HEMCO. There is only one regrid\n    ! buffer per field (emis/dep, N) so these must not be intertwined,\n    ! or there will be a large performance penalty.\n    !=======================================================================\n\n    ! Advected species loop\n    DO NA = 1, State_Chm%nAdvect\n\n      ! Get the modelId\n      N = State_Chm%Map_Advect(NA)\n\n      ! Point to the corresponding entry in the species database\n      ThisSpc => State_Chm%SpcData(N)%Info\n\n      ! Check if there is emissions or deposition for this species\n#if !defined( MODEL_CESM )\n      CALL InquireHco ( N, Emis=EmisSpec, Dep=DepSpec )\n#else\n      ! Do not apply for MODEL_CESM as its handled by HEMCO-CESM independently\n      EmisSpec = .False.\n      DepSpec  = .False.\n#endif\n\n      ! If there is emissions for this species, it must be loaded into\n      ! memory first.   This is achieved by attempting to retrieve a\n      ! grid box while NOT in a parallel loop. Failure to load this will\n      ! result in severe performance issues!! (hplin, 9/27/20)\n      IF ( EmisSpec ) THEN\n         CALL LoadHcoValEmis ( Input_Opt, State_Grid, NA )\n      ENDIF\n\n      IF ( DepSpec ) THEN\n         CALL LoadHcoValDep ( Input_Opt, State_Grid, NA )\n      ENDIF\n\n      !$OMP PARALLEL DO                                                      &\n      !$OMP DEFAULT( SHARED )                                                &\n      !$OMP PRIVATE( I,       J,       topMix                               )&\n      !$OMP PRIVATE( tmpFlx,  found,   emis,      dep                       )\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n\n      ! Below emissions. Do not apply for MODEL_CESM as its handled by\n      ! HEMCO-CESM independently\n#ifndef MODEL_CESM\n\n        ! PBL top level [integral model levels]\n        topMix = MAX( 1, FLOOR( State_Met%PBL_TOP_L(I,J) ) )\n\n        !------------------------------------------------------------------\n        ! Add total emissions in the PBL to the EFLX array\n        ! which tracks emission fluxes.  Units are [kg/m2/s].\n        !------------------------------------------------------------------\n        IF ( EmisSpec ) THEN  ! Are there emissions for these species?\n\n           ! Compute emissions for all other simulation\n           tmpFlx = 0.0_fp\n           DO L = 1, topMix\n              CALL GetHcoValEmis( Input_Opt, State_Grid, NA,    I,           &\n                                  J,         L,          found, emis        )\n              IF ( .NOT. found ) EXIT\n              tmpFlx = tmpFlx + emis\n           ENDDO\n           eflx(I,J,NA) = eflx(I,J,NA) + tmpFlx\n\n           ! Compute column emission fluxes for satellite diagnostics\n           IF ( State_Diag%Archive_SatDiagnColEmis ) THEN\n              tmpFlx = 0.0_fp\n              DO L = 1, State_Grid%NZ\n                 CALL GetHcoValEmis( Input_Opt, State_Grid, NA,    I,        &\n                                     J,         L,          found, emis     )\n                 IF ( .NOT. found ) EXIT\n                 tmpFlx = tmpFlx + emis\n              ENDDO\n              colEflx(I,J,NA) = colEflx(I,J,NA) + tmpFlx\n           ENDIF\n\n        ENDIF\n\n        ! For Hg simulations, also add Hg emissions not handled by HEMCO\n        IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n           eflx(I,J,NA) = eflx(I,J,NA) + Hg_EMIS(I,J,NA)\n        ENDIF\n#endif\n\n        !------------------------------------------------------------------\n        ! Also add drydep frequencies calculated by HEMCO (e.g. from the\n        ! air-sea exchange module) to DFLX.  These values are stored\n        ! in 1/s.  They are added in the same manner as the DEPSAV values\n        ! from drydep_mod.F90.  DFLX will be converted to kg/m2/s later.\n        ! (ckeller, 04/01/2014)\n        !------------------------------------------------------------------\n        IF ( DepSpec ) THEN\n           CALL GetHcoValDep( Input_Opt, State_Grid, NA,    I,               &\n                              J,         1,          found, dep             )\n\n           ! Sea-air deposition frequency [1/s] --> flux [mol/mol/s]\n           IF ( found ) THEN\n              dflx(I,J,NA) = dflx(I,J,NA) +                                  &\n                           + ( dep * State_Chm%Species(NA)%Conc(I,J,1)       &\n                                   / ( AIRMW / ThisSpc%MW_g               ) )\n           ENDIF\n        ENDIF\n      ENDDO ! I\n      ENDDO ! J\n      !$OMP END PARALLEL DO\n\n      ! Free pointers\n      ThisSpc => NULL()\n    ENDDO   ! NA\n\n    !=======================================================================\n    ! Add emissions & deposition values calculated in HEMCO.\n    ! Here we only consider emissions below the PBL top.\n    !\n    ! For the full-chemistry simulations, emissions above the PBL\n    ! top will be applied in routine SETEMIS, which occurs just\n    ! before the SMVGEAR/KPP solvers are invoked.\n    !\n    ! For the specialty simulations, emissions above the PBL top\n    ! will be applied in the chemistry routines for each\n    ! specialty simulation.\n    !\n    ! For more information, please see this wiki page:\n    ! http://wiki.geos-chem.org/Distributing_emissions_in_the_PBL\n    !========================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED )                                                  &\n    !$OMP PRIVATE( I,       J,            N                                 )&\n    !$OMP PRIVATE( thisSpc, dep,          S                                 )&\n    !$OMP PRIVATE( ND,      fracNoHg0Dep, zeroHg0Dep                        )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !=====================================================================\n       ! Apply dry deposition frequencies\n       ! These are the frequencies calculated in drydep_mod.F90\n       ! The HEMCO drydep frequencies (from air-sea exchange and\n       ! PARANOX) were already added above.\n       !\n       ! NOTES:\n       ! (1) Loops over only the drydep species\n       ! (2) If drydep is turned off, nDryDep=0 and the loop won't execute\n       ! (3) Tagged species are included in this loop. via species database\n       !=====================================================================\n       DO ND = 1, State_Chm%nDryDep\n\n          ! Get the species ID from the drydep ID\n          N = State_Chm%Map_DryDep(ND)\n\n          IF ( N <= 0 ) CYCLE\n\n          ! Point to the corresponding Species Database entry\n          ThisSpc => State_Chm%SpcData(N)%Info\n\n          ! only use the lowest model layer for calculating drydep fluxes\n          ! given that spc is in v/v\n          dflx(I,J,N) = dflx(I,J,N) + State_Chm%DryDepFreq(I,J,ND) &\n                        * State_Chm%Species(N)%Conc(I,J,1)      &\n                        /  ( AIRMW / ThisSpc%MW_g )\n\n          IF ( Input_Opt%ITS_A_MERCURY_SIM .and. ThisSpc%Is_Hg0 ) THEN\n\n             ! Hg(0) exchange with the ocean is handled by ocean_mercury_mod\n             ! so disable deposition over water here.\n             ! Turn off Hg(0) deposition to snow and ice because we haven't yet\n             ! included emission from these surfaces and most field studies\n             ! suggest Hg(0) emissions exceed deposition during sunlit hours.\n             fracNoHg0Dep = MIN( State_Met%FROCEAN(I,J) + &\n                                 State_Met%FRSNOW(I,J)   + &\n                                 State_Met%FRLANDICE(I,J), 1e+0_fp)\n             zeroHg0Dep   = ( fracNoHg0Dep > 0e+0_fp )\n\n             IF ( zeroHg0Dep ) THEN\n                dflx(I,J,N) = dflx(I,J,N) * MAX( 1.0_fp-fracNoHg0Dep, 0.0_fp )\n             ENDIF\n          ENDIF\n\n          ! Free species database pointer\n          ThisSpc => NULL()\n          \n       ENDDO\n\n       !=====================================================================\n       ! Convert DFLX from 1/s to kg/m2/s\n       !\n       ! If applicable, add PARANOX loss to this term. The PARANOX\n       ! loss term is already in kg/m2/s. PARANOX loss (deposition) is\n       ! calculated for O3 and HNO3 by the PARANOX module, and data is\n       ! exchanged via the HEMCO diagnostics.  The data pointers PNOXLOSS_O3\n       ! and PNOXLOSS_HNO3 have been linked to these diagnostics at the\n       ! beginning of this routine (ckeller, 4/10/15).\n       !=====================================================================\n       dflx(I,J,:) = dflx(I,J,:) * State_Met%AD(I,J,1)                        &\n                                 / State_Grid%Area_M2(I,J)\n\n       IF ( ASSOCIATED( PNOxLoss_O3 ) .AND. id_O3 > 0 ) THEN\n          dflx(I,J,id_O3) = dflx(I,J,id_O3) + PNOxLoss_O3(I,J)\n       ENDIF\n\n       IF ( ASSOCIATED( PNOXLOSS_HNO3 ) .AND. id_HNO3 > 0 ) THEN\n          dflx(I,J,id_HNO3) = dflx(I,J,id_HNO3) + PNOxLOss_HNO3(I,J)\n       ENDIF\n\n       !=====================================================================\n       ! Surface flux (SFLX) = emissions (EFLX) - dry deposition (DFLX)\n       !\n       ! SFLX is what we need to pass into routine VDIFF\n       !=====================================================================\n       State_Chm%SurfaceFlux(I,J,:) = eflx(I,J,:) - dflx(I,J,:) ! kg/m2/s\n\n       !=====================================================================\n       ! Defining Satellite Diagnostics\n       !=====================================================================\n       ! Define emission satellite diagnostics\n       IF ( State_Diag%Archive_SatDiagnColEmis ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnColEmis%nSlots\n             N = State_Diag%Map_SatDiagnColEmis%slot2id(S)\n             State_Diag%SatDiagnColEmis(I,J,S) = colEflx(I,J,N)\n          ENDDO\n       ENDIF\n\n       ! N.B. SatDiagnSurfFlux contains within it the underlying eflx\n       ! variable as opposed to colEflx.\n       ! Thus, taking SatDiagnSurfFlux - SatDiagnColEmis will not\n       ! necessarily equal the dry deposition flux (dflx)\n       IF ( State_Diag%Archive_SatDiagnSurfFlux ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnSurfFlux%nSlots\n             N = State_Diag%Map_SatDiagnSurfFlux%slot2id(S)\n             State_Diag%SatDiagnSurfFlux(I,J,S) = State_Chm%SurfaceFlux(I,J,N)\n          ENDDO\n       ENDIF\n\n       !=====================================================================\n       ! Archive Hg deposition for surface reservoirs (cdh, 08/28/09)\n       !=====================================================================\n       IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n          ! Loop over only the drydep species\n          ! If drydep is turned off, nDryDep=0 and the loop won't execute\n          DO ND = 1, State_Chm%nDryDep\n\n             ! Get the species ID from the drydep ID\n             N = State_Chm%Map_DryDep(ND)\n\n             ! Point to the Species Database entry for tracer N\n             ThisSpc => State_Chm%SpcData(N)%Info\n\n             ! Deposition mass, kg\n             dep = dflx(I,J,N) * State_Grid%Area_M2(I,J) * GET_TS_CONV()\n\n             IF ( ThisSpc%Is_Hg2 ) THEN\n\n                ! Archive dry-deposited Hg2\n                CALL ADD_Hg2_DD      ( I, J, dep                            )\n                CALL ADD_Hg2_SNOWPACK( I, J, dep,                    &\n                                       State_Met, State_Chm, State_Diag     )\n\n             ELSE IF ( ThisSpc%Is_HgP ) THEN\n\n                ! Archive dry-deposited HgP\n                CALL ADD_HgP_DD      ( I, J, dep                            )\n                CALL ADD_Hg2_SNOWPACK( I, J, dep,                            &\n                                       State_Met, State_Chm, State_Diag     )\n\n             ENDIF\n\n             ! Free pointer\n             ThisSpc => NULL()\n          ENDDO\n       ENDIF\n\n    ENDDO\n    ENDDO \n    !$OMP END PARALLEL DO\n\n    !### Uncomment for debug output\n    !WRITE( 6, '(a)' ) 'eflx and dflx values HEMCO [kg/m2/s]'\n    !DO NA = 1, State_Chm%nAdvect\n    !   WRITE(6,*) 'eflx TRACER ', NA, ': ', SUM(eflx(:,:,NA))\n    !   WRITE(6,*) 'dflx TRACER ', NA, ': ', SUM(dflx(:,:,NA))\n    !   WRITE(6,*) 'sflx TRACER ', NA, ': ', SUM(State_Chm%SurfaceFlux(:,:,NA))\n    !ENDDO\n\n    !=======================================================================\n    ! DIAGNOSTICS: Compute drydep flux loss due to mixing [molec/cm2/s]\n    !\n    ! NOTE: Dry deposition of \"tagged\" species (e.g. in tagO3, tagHg\n    ! specialty simulations) are accounted for in species 1..nDrydep,\n    ! so we don't need to do any further special handling.\n    !=======================================================================\n    IF ( Input_Opt%LGTMM              .or. Input_Opt%LSOILNOX          .or.  &\n         State_Diag%Archive_DryDepMix .or. State_Diag%Archive_DryDep ) THEN\n\n       ! Loop over only the drydep species\n       ! If drydep is turned off, nDryDep=0 and the loop won't execute\n       DO ND = 1, State_Chm%nDryDep\n\n          ! Get the species ID from the drydep ID\n          N = State_Chm%Map_DryDep(ND)\n\n          ! Skip if not a valid species\n          IF ( N <= 0 ) CYCLE\n\n          ! Point to the Species Database entry for this tracer\n          ! NOTE: Assumes a 1:1 tracer index to species index mapping\n          ThisSpc => State_Chm%SpcData(N)%Info\n\n          ! Get the molecular weight of the species in kg\n          MW_kg = ThisSpc%MW_g * 1.e-3_fp\n\n          !-----------------------------------------------------------------\n          ! HISTORY: Update dry deposition flux loss [molec/cm2/s]\n          !\n          ! DFLX is in kg/m2/s.  We convert to molec/cm2/s by:\n          !\n          ! (1) multiplying by 1e-4 cm2/m2        => kg/cm2/s\n          ! (2) multiplying by ( AVO / MW_KG )    => molec/cm2/s\n          !\n          ! The term AVO/MW_kg = (molec/mol) / (kg/mol) = molec/kg\n          !\n          ! NOTE: we don't need to multiply by the ratio of TS_CONV /\n          ! TS_CHEM, as the updating frequency for HISTORY is determined\n          ! by the \"frequency\" setting in the \"HISTORY.rc\"input file.\n          !-----------------------------------------------------------------\n          IF ( State_Diag%Archive_DryDepMix   .or.                           &\n               State_Diag%Archive_DryDep    ) THEN\n             S = State_Diag%Map_DryDepMix%id2slot(ND)\n             IF ( S > 0 ) THEN\n                State_Diag%DryDepMix(:,:,S) = Dflx(:,:,N)                    &\n                                            * 1.0e-4_fp                      &\n                                            * ( AVO / MW_kg  )\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! If Soil NOx is turned on, then call SOIL_DRYDEP to\n          ! archive dry deposition fluxes for nitrogen species\n          ! (SOIL_DRYDEP will exit if it can't find a match.\n          !-----------------------------------------------------------------\n          IF ( Input_Opt%LSOILNOX ) THEN\n             tmpFlx = 0.0_fp\n             !$OMP PARALLEL DO                                               &\n             !$OMP DEFAULT( SHARED                                          )&\n             !$OMP PRIVATE( I, J, tmpFlx                                    )&\n             !$OMP COLLAPSE( 2                                              )\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n                tmpFlx = dflx(I,J,N) / MW_kg * AVO * 1.e-4_fp                &\n                       * GET_TS_CONV() / GET_TS_EMIS()\n                CALL Soil_DryDep( I, J, N, tmpFlx, State_Chm )\n             ENDDO\n             ENDDO\n             !$OMP END PARALLEL DO\n          ENDIF\n\n          ! Free species database pointer\n          ThisSpc => NULL()\n\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! Unit conversion #2: Convert back to the original units\n    !=======================================================================\n\n    ! Halt mixing timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Boundary layer mixing\", RC )\n    ENDIF\n\n    ! Convert units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountred in \"Convert_Spc_Units\" (from v/v dry)!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start mixing timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Boundary layer mixing\", RC )\n    ENDIF\n\n    ! Cleanup\n    IF ( ASSOCIATED( PNOxLoss_O3 ) )   DEALLOCATE( PNOxLoss_O3 )\n    IF ( ASSOCIATED( PNOxLoss_HNO3 ) ) DEALLOCATE( PNOxLoss_HNO3 )\n\n  END SUBROUTINE Compute_Sflx_For_Vdiff\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_DryDepVel_Diagnostics\n!\n! !DESCRIPTION: Adds the sea-air exchange deposition velocity (computed in\n!  the SeaFlux extension) to the dry deposition velocity (computed in\n!  drydep_mod.F90) and archives them in the History diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_DryDepVel_Diagnostics( Input_Opt,  State_Chm, State_Diag,   &\n                                        State_Grid, State_Met, RC           )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : GetHcoValDep\n    USE HCO_Utilities_GC_Mod, ONLY : InquireHco\n    USE HCO_Utilities_GC_Mod, ONLY : LoadHcoValDep\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Diag_Mod,       ONLY : DgnMap\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid  ! Grid State\n    TYPE(MetState),   INTENT(IN)    :: State_Met   ! Meteorology State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm   ! Chemistry State\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag  ! Diagnostics State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  When using the full PBL mixing option (aka TURBDAY), update DryDepVel\n!  and SatDiagnDryDepVel diagnostics here.\n!\n! !REVISION HISTORY:\n!  18 May 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: DepSpec,   found\n    INTEGER            :: A\n    INTEGER            :: I,         J\n    INTEGER            :: L,         N\n    INTEGER            :: NA,        ND\n    INTEGER            :: pbl_top_l, S\n    REAL(fp)           :: dep,       height\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg,    thisLoc\n\n    ! Arrays\n    REAL(fp)           :: dvel(State_Grid%NX,State_Grid%NY,State_Chm%nAdvect)\n\n    !=======================================================================\n    ! Update_DryDepVel_for_Turbday begins here!\n    !=======================================================================\n\n    ! Success or failure?\n    RC = GC_SUCCESS\n\n    !=======================================================================\n    ! Skip unless the drydep velocity History diagnostics are requested\n    !=======================================================================\n    IF ( State_Diag%Archive_DryDepVel           .or.                        &\n         State_Diag%Archive_SatDiagnDryDepVel   .or.                        &\n         State_Diag%Archive_DryDepVelForALT1  ) THEN\n\n       ! Zero values\n       errMsg  = ''\n       thisLoc = &\n' -> at Set_DryDepVel_Diagnostics (in module GeosCore/hco_interface_gc_mod.F90)'\n       dvel = 0.0_fp\n\n       !=====================================================================\n       ! Get sea-air  frequencies calculated in HEMCO.\n       !\n       ! The loop has been separated to go over N, J, I in order to optimize\n       ! for retrieving regridded data from HEMCO. There is only one regrid\n       ! buffer per field (dep, N) so these must not be intertwined,\n       ! or there will be a large performance penalty.\n       !=====================================================================\n       DO NA = 1, State_Chm%nAdvect\n\n          ! Get the modelId and drydep ID\n          N  = State_Chm%Map_Advect(NA)\n          ND = State_Chm%SpcData(N)%Info%DryDepId\n\n#ifdef MODEL_CESM\n          ! Do not apply for MODEL_CESM as its handled by\n          ! HEMCO-CESM independently\n          DepSpec = .FALSE.\n#else\n          ! Check if there is deposition for this species\n          CALL InquireHco( N, Dep=DepSpec )\n#endif\n\n          ! If the species has a sea-air deposition frequency ...\n          IF ( DepSpec ) THEN\n\n             ! Load the sea-air deposition frequency [1/s] into memory\n             ! outside of a parallel loop.  Failure to load this will\n             ! result in severe performance issues!\n             !   --Haipeng Lin (27 Sep 2020)\n             CALL LoadHcoValDep( Input_Opt, State_Grid, N )\n\n             !$OMP PARALLEL DO                                               &\n             !$OMP DEFAULT( SHARED                                          )&\n             !$OMP PRIVATE( I, J, pbl_top_l, dep, height, found, L          )&\n             !$OMP COLLAPSE( 2                                              )\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n\n                ! Zero private loop variables\n                pbl_top_l = 0\n                dep       = 0.0_fp\n                height    = 0.0_fp\n\n                ! Attempt to retrieve the sea-air deposition frequency [1/s]\n                ! computed by the HEMCO SeaFlux extension for this species\n                CALL GetHcoValDep( Input_Opt, State_Grid, N,     I,          &\n                                   J,         1,          found, dep        )\n\n                ! If it was found ...\n                IF ( found ) THEN\n\n                   ! Determine the deposition height ...\n                   IF ( Input_Opt%LNLPBL ) THEN\n\n                      !-------------------------------\n                      ! %%% Non-local PBL mixing %%%\n                      !-------------------------------\n\n                      ! Use the height [m] of grid box (I,J,1)\n                      ! as the deposition height\n                      height = State_Met%BXHEIGHT(I,J,1)\n\n                   ELSE\n\n                      !-------------------------------\n                      ! %%% Full PBL mixing %%%\n                      !-------------------------------\n\n                      ! Determine depositon height [m] as is done in the\n                      ! HEMCO SeaFlux extension module (hcox_seaflux_mod.F90).\n                      pbl_top_l = 1\n                      IF ( Input_Opt%PBL_DRYDEP ) THEN\n                         DO L = State_Grid%NZ, 1, -1\n                            IF ( State_Met%F_OF_PBL(I,J,L) > 0.0_fp ) THEN\n                               pbl_top_l = L\n                               EXIT\n                            ENDIF\n                         ENDDO\n                      ENDIF\n                      height = SUM( State_Met%BXHEIGHT(I,J,1:pbl_top_l) )\n\n                   ENDIF\n\n                   ! Convert deposition frequency [1/s] --> velocity [cm/s]\n                   dvel(I,J,N) = ( dep * height * 100.0_fp )\n\n                ENDIF\n             ENDDO\n             ENDDO\n             !$OMP END PARALLEL DO\n          ENDIF\n       ENDDO\n\n       !=====================================================================\n       ! Add the sea-air dep velocity and the drydep velocity computed\n       ! in drydep_mod.F90 to the appropriate History diagnostics.\n       !=====================================================================\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED                                                )&\n       !$OMP PRIVATE( I, J, ND, N, S, A                                     )&\n       !$OMP COLLAPSE( 3                                                    )\n       DO ND = 1, State_Chm%nDryDep\n       DO J  = 1, State_Grid%NY\n       DO I  = 1, State_Grid%NX\n\n          ! Get the model ID from the drydep ID\n          N = State_Chm%Map_DryDep(ND)\n          IF ( N <= 0 ) CYCLE\n\n          ! Add the drydep velocities [cm/s] computed in drydep_mod.F90\n          ! to the drydep velocities [cm/s] computed by the SeaFlux extension.\n          dvel(I,J,N) = dvel(I,J,N) + State_Chm%DryDepVel(I,J,ND) * 100.0_fp\n\n          ! Dry deposition velocity [cm/s]\n          IF ( State_Diag%Archive_DryDepVel ) THEN\n             S = State_Diag%Map_DryDepVel%id2slot(ND)\n             IF ( S > 0 ) THEN\n                State_Diag%DryDepVel(I,J,S) = dvel(I,J,N)\n             ENDIF\n          ENDIF\n\n          ! Satellite diagnostic dry deposition velocity (cm/s):\n          IF ( State_Diag%Archive_SatDiagnDryDepVel ) THEN\n             S = State_Diag%Map_SatDiagnDryDepVel%id2slot(ND)\n             IF ( S > 0 ) THEN\n                State_Diag%SatDiagnDryDepVel(I,J,S) = dvel(I,J,N)\n             ENDIF\n          ENDIF\n\n          ! Dry dep velocity [cm/s] for species at altitude (e.g. 10m)\n          IF ( State_Diag%Archive_DryDepVelForALT1 ) THEN\n             A = State_Chm%SpcData(N)%Info%DryAltID\n             IF ( A > 0 ) THEN\n                State_Diag%DryDepVelForALT1(I,J,A) = dvel(I,J,N)\n             ENDIF\n          ENDIF\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n  END SUBROUTINE Set_DryDepVel_Diagnostics\n!EOC\nEND MODULE Hco_Interface_GC_Mod\n"
  },
  {
    "path": "GeosCore/hco_state_gc_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: hco_state_gc_mod.F90\n!\n! !DESCRIPTION: Module hco\\_state\\_gc\\_mod.F90 holds the HEMCO state objects\n!  in GEOS-Chem to avoid circular dependencies.\n!\n! !INTERFACE:\n!\nMODULE HCO_State_GC_Mod\n!\n! !USES:\n!\n  USE HCOX_State_Mod, ONLY : Ext_State\n  USE HCO_State_Mod,  ONLY : HCO_State\n  USE State_Grid_Mod, ONLY : GrdState\n  IMPLICIT NONE\n  PRIVATE\n!\n! !REMARKS:\n!  Exists to avoid circular dependencies. Also holds the HEMCO intermediate grid\n!  description, State\\_Grid\\_HCO, for GC-Classic.\n!\n!  The intermediate grid descriptor uses GrdState to avoid code duplication. It will\n!  be initialized by HCO\\_Interface\\_GC\\_Mod.\n!\n! !REVISION HISTORY:\n!  13 Mar 2020 - H.P. Lin    - Initial version.\n!  04 Jun 2020 - H.P. Lin    - Now holding HEMCO intermediate grid object.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PUBLIC MODULE VARIABLES:\n!\n  !--------------------------\n  ! %%% Pointers %%%\n  !--------------------------\n\n  ! HEMCO state\n  TYPE(HCO_State), POINTER, PUBLIC :: HcoState => NULL()\n\n  ! HEMCO extensions state\n  TYPE(Ext_State), POINTER, PUBLIC :: ExtState => NULL()\n\n#if defined ( MODEL_CLASSIC )\n  !--------------------------\n  ! %%% HEMCO Intermediate Grid %%%\n  !--------------------------\n  TYPE(GrdState), PUBLIC           :: State_Grid_HCO\n#endif\n!EOC\nEND MODULE HCO_State_GC_Mod"
  },
  {
    "path": "GeosCore/hco_utilities_gc_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: hco_utilities_gc_mod.F90\n!\n! !DESCRIPTION: Module hco\\_utilities\\_gc\\_mod.F90 is the high-level component\n!  used by GEOS-Chem routines to receive emissions and generally data from\n!  HEMCO. It interacts with HEMCO routines directly but also GEOS-Chem data\n!  structures.\n!\\\\\n!\\\\\n!  Please note the following guidelines for inclusion of routines in this module\n!  to prevent feature creep like the former HCOI\\_GC\\_Main\\_Mod:\n!  - The routines must use both HEMCO and GEOS-Chem data structures. If not,\n!    they may be better suited for EMISSIONS\\_MOD or FLEXGRID\\_READ\\_MOD,\n!    or implemented as common tools in HEMCO/Interfaces/hco\\_interface\\_common.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE HCO_Utilities_GC_Mod\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Precision_Mod\n  USE HCO_Error_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: InquireHco         ! Inquire availability of emis/drydep field\n  PUBLIC   :: LoadHcoValEmis\n  PUBLIC   :: LoadHcoValDep\n  PUBLIC   :: GetHcoValEmis\n  PUBLIC   :: GetHcoValDep\n  PUBLIC   :: HCO_GC_EvalFld     ! Shim interface for HCO_EvalFld\n  PUBLIC   :: HCO_GC_GetPtr      ! Shim interface for HCO_GetPtr\n  PUBLIC   :: HCO_GC_GetDiagn    ! Shim interface for GetHcoDiagn\n  PUBLIC   :: HCO_GC_GetOption   ! Shim interface for HCO_GetOpt\n  PUBLIC   :: HCO_GC_HcoStateOK  ! Test if HCO_State is allocated\n\n#if defined( MODEL_CLASSIC )\n  !=========================================================================\n  ! These are only needed for GEOS-Chem \"Classic\"\n  ! Intermediate grid (IMGrid) functionality\n  !=========================================================================\n  PUBLIC   :: Regrid_MDL2HCO\n  PUBLIC   :: Regrid_HCO2MDL\n  PUBLIC   :: Init_IMGrid\n\n  !=========================================================================\n  ! These are only needed for GEOS-Chem \"Classic\"\n  !=========================================================================\n  PUBLIC   :: Get_GC_Restart\n  PUBLIC   :: Get_Boundary_Conditions\n#endif\n\n!\n! !REMARKS:\n!  Mostly wrapper functions migrated from the former HCO_Interface_Mod\n!\n! !REVISION HISTORY:\n!  12 Mar 2020 - H.P. Lin    - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  INTERFACE HCO_GC_EvalFld\n    MODULE PROCEDURE HCO_GC_EvalFld_2D\n    MODULE PROCEDURE HCO_GC_EvalFld_3D\n  END INTERFACE HCO_GC_EvalFld\n\n  INTERFACE HCO_GC_GetPtr\n    MODULE PROCEDURE HCO_GC_GetPtr_2D\n    MODULE PROCEDURE HCO_GC_GetPtr_3D\n  END INTERFACE HCO_GC_GetPtr\n\n  INTERFACE HCO_GC_GetDiagn\n    MODULE PROCEDURE HCO_GC_GetDiagn_2D\n    MODULE PROCEDURE HCO_GC_GetDiagn_3D\n  END INTERFACE HCO_GC_GetDiagn\n!\n! !PRIVATE TYPES:\n!\n#if defined( MODEL_CLASSIC )\n  !------------------------------------------------------\n  ! HEMCO Intermediate Grid functionality.\n  ! Array buffers for storing regridded data. These are essentially\n  ! temporary pointer targets.\n  !\n  ! They are refreshed every Regrid_x2y so do not point data to here\n  ! beyond one subroutine call.\n  !\n  ! For performance optimization, there are TWO model buffers (H2M, H2Mb)\n  ! which allow for some edge cases where GetHcoValDep is interspersed\n  ! with GetHcoValEmis, or there may be two species. By default,\n  ! GetHcoValDep uses H2Mb and GetHcoValEmis can choose the default or b,\n  ! using an optional argument. This allows shimming as much of the\n  ! operating specifics from GEOS-Chem core code as possible.\n  !------------------------------------------------------\n  REAL(hp), POINTER, PUBLIC            :: TMP_MDL (:,:,:)\n  REAL(hp), POINTER                    :: TMP_MDLb(:,:,:)\n  REAL(hp), POINTER                    :: TMP_HCO (:,:,:)\n\n  ! f4 variant temporaries.\n  ! not directly used for regrid, used for pointing and downgrading data\n  REAL(f4), POINTER                    :: TMP_MDL_r4 (:,:,:)\n  REAL(f4), POINTER                    :: TMP_MDL_r4b(:,:,:)\n  REAL(f4), POINTER                    :: TMP_HCO_r4 (:,:,:)\n\n  CHARACTER(LEN=90)                    :: LAST_TMP_REGRID_M2H       ! Last regridded container name\n  CHARACTER(LEN=90)                    :: LAST_TMP_REGRID_H2M       ! ... HEMCO to Model\n  CHARACTER(LEN=90)                    :: LAST_TMP_REGRID_H2Mb      ! ... HEMCO to Model (alt bfr)\n  INTEGER                              :: LAST_TMP_MDL_ZBND         ! Last z-boundary for TMP_MDL_r4 ptr\n\n  ! Temporaries for Map_A2A shadow input variables.\n  ! Only need to be allocated once.\n  REAL(hp), POINTER                    :: LonEdgeH(:)               ! HEMCO lon, lat edges (NX+1, NY+1)\n  REAL(hp), POINTER                    :: LatEdgeH(:)\n\n  REAL(hp), POINTER                    :: LonEdgeM(:)               ! Model lon, lat edges (NX+1, NY+1)\n  REAL(hp), POINTER                    :: LatEdgeM(:)\n#endif\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: InquireHco\n!\n! !DESCRIPTION: Subroutine InquireHco INQUIRES to the HEMCO emissions list whether\n!  the given tracer ID has emissions or dry deposition spec.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE InquireHco ( TrcID, Emis, Dep )\n!\n! !USES:\n!\n    USE HCO_Interface_Common, ONLY : GetHcoVal\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n!\n! !INPUT ARGUMENTS:\n!\n    INTEGER,            INTENT(IN   )  :: TrcID      ! GEOS-Chem tracer ID\n!\n! !OUTPUT ARGUMENTS:\n!\n    LOGICAL, OPTIONAL,  INTENT(  OUT)  :: Dep        ! Dep?\n    LOGICAL, OPTIONAL,  INTENT(  OUT)  :: Emis       ! Emis?\n!\n! !REMARKS:\n!  Note this assumes TrcID == HcoID.\n!\n! !REVISION HISTORY:\n!  13 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  IF ( PRESENT( Dep ) ) THEN\n    Dep = ASSOCIATED( HcoState%Spc(TrcID)%Depv%Val )\n  ENDIF\n\n  IF ( PRESENT(Emis) ) THEN\n    Emis = ASSOCIATED( HcoState%Spc(TrcID)%Emis%Val )\n  ENDIF\n\n  END SUBROUTINE InquireHco\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: LoadHcoValEmis\n!\n! !DESCRIPTION: For GC-Classic intermediate grid: Load emissions regridded onto\n!  model grid into the regridding buffer. Does nothing in other models.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LoadHcoValEmis ( Input_Opt, State_Grid, TrcID, AltBuffer )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),     INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),     INTENT(IN   )  :: State_Grid ! Grid State\n    INTEGER,            INTENT(IN   )  :: TrcID      ! GEOS-Chem tracer ID\n    LOGICAL, OPTIONAL,  INTENT(IN   )  :: AltBuffer  ! Alternate buffer? (Use B)\n!\n! !REMARKS:\n!  This is achieved through a OMP CRITICAL failsafe and calls GetHcoValEmis/Dep to\n!  trigger the regridding.\n!\n! !REVISION HISTORY:\n!  27 Sep 2020 - H.P. Lin  - Initial Version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! !LOCAL VARIABLES:\n!\n    LOGICAL            :: TMP_Found\n    REAL(hp)           :: TMP_Value                   ! Dummy values\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n\n      ! Check if we have to load the data.\n      IF ( TrcID > 0 .and. (.not. ASSOCIATED(HcoState%Spc(TrcID)%Emis%Val)) ) RETURN\n\n      ! The below section must be OMP CRITICAL because it is stateful.\n      ! The first call to the critical section will update the container!!\n      !$OMP CRITICAL\n\n      ! due to a compiler bug in ifort 19\n      ! we have to use PRESENT and not copy the value, as sometimes it becomes\n      ! flipped! (hplin, 9/29/20)\n      IF ( PRESENT(AltBuffer) ) THEN\n        CALL GetHcoValEmis ( Input_Opt, State_Grid, TrcID, 1, 1, 1, Found=TMP_Found, &\n                           Emis=TMP_Value, AltBuffer=.true. )\n      ELSE\n        CALL GetHcoValEmis ( Input_Opt, State_Grid, TrcID, 1, 1, 1, Found=TMP_Found, &\n                           Emis=TMP_Value )\n      ENDIF\n\n      IF ( Input_Opt%Verbose ) THEN\n         WRITE(6,*) \"# LoadHcoValEmis/ImGrid: Loading\", &\n              TrcID, PRESENT( AltBuffer )\n      ENDIF\n\n      !$OMP END CRITICAL\n      ! End of LIMGRID OMP Critical section\n    ENDIF\n#endif\n  END SUBROUTINE LoadHcoValEmis\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: LoadHcoValDep\n!\n! !DESCRIPTION: For GC-Classic intermediate grid: Load deposition value regridded onto\n!  model grid into the regridding buffer. Does nothing in other models.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LoadHcoValDep ( Input_Opt, State_Grid, TrcID )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),     INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),     INTENT(IN   )  :: State_Grid ! Grid State\n    INTEGER,            INTENT(IN   )  :: TrcID      ! GEOS-Chem tracer ID\n!\n! !REMARKS:\n!  This is achieved through a OMP CRITICAL failsafe and calls GetHcoValEmis/Dep to\n!  trigger the regridding.\n!\n! !REVISION HISTORY:\n!  27 Sep 2020 - H.P. Lin  - Initial Version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! !LOCAL VARIABLES:\n!\n    LOGICAL            :: TMP_Found\n    REAL(hp)           :: TMP_Value                   ! Dummy values\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n\n      ! Check if we have to load the data.\n      IF ( TrcID > 0 .and. (.not. ASSOCIATED(HcoState%Spc(TrcID)%Emis%Val)) ) RETURN\n\n      ! The below section must be OMP CRITICAL because it is stateful.\n      ! The first call to the critical section will update the container!!\n      !$OMP CRITICAL\n\n      CALL GetHcoValDep ( Input_Opt, State_Grid, TrcID, 1, 1, 1, Found=TMP_Found, &\n                          Dep=TMP_Value )\n      !$OMP END CRITICAL\n      ! End of LIMGRID OMP Critical section\n\n      IF ( Input_Opt%Verbose ) THEN\n         WRITE(6,*) \"# LoadHcoValDep/ImGrid: Loading\", TrcID\n      ENDIF\n    ENDIF\n#endif\n  END SUBROUTINE LoadHcoValDep\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetHcoValEmis\n!\n! !DESCRIPTION: Subroutine GetHcoVal is a wrapper routine to return an\n! emission (kg/m2/s) or deposition (1/s) value from the HEMCO state object\n! for a given GEOS-Chem tracer at position I, J, L.\n! A value of zero is returned if no HEMCO species is defined for the given\n! tracer, and the output parameter Found is set to false.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetHcoValEmis ( Input_Opt, State_Grid, TrcID, I, J, L, Found, Emis, AltBuffer, SkipCheck )\n!\n! !USES:\n!\n    USE HCO_Interface_Common, ONLY : GetHcoVal\n    USE HCO_State_GC_Mod,     ONLY : ExtState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),     INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),     INTENT(IN   )  :: State_Grid ! Grid State\n    INTEGER,            INTENT(IN   )  :: TrcID      ! GEOS-Chem tracer ID\n    INTEGER,            INTENT(IN   )  :: I, J, L    ! Position\n    LOGICAL, OPTIONAL,  INTENT(IN   )  :: AltBuffer  ! Alternate buffer? (Use B)\n    LOGICAL, OPTIONAL,  INTENT(IN   )  :: SkipCheck  ! Skip buffer validity check - Dangerous, use in tight loops\n!\n! !OUTPUT ARGUMENTS:\n!\n    LOGICAL,            INTENT(  OUT)  :: Found      ! Was this tracer ID found?\n    REAL(hp),           INTENT(  OUT)  :: Emis       ! Emissions  [kg/m2/s]\n!\n! !REMARKS:\n!  This subroutine is currently just a stub to call the equivalent in HEMCO\n!  utilities. This assumes that HEMCO and GEOS-Chem grids match.\n!  When the intermediate grid is implemented, a regridding routine will live\n!  here and regrid data on-demand.\n!\n!  This also assumes that TrcID matches HEMCO tracer ID. If not, a mapping\n!  needs to be performed here.\n!\n! !REVISION HISTORY:\n!  20 Oct 2014 - C. Keller - Initial Version\n!  12 Mar 2020 - H.P. Lin  - Now wrapper around common utilities\n!  05 Jun 2020 - H.P. Lin  - Add GC-Classic on-demand regridding\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n#ifdef MODEL_CLASSIC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=32)  :: TMP_TrcIDFldName            ! Temporary tracer field name _HCO_Trc_<id>\n    INTEGER            :: ZBND\n    REAL(hp), POINTER  :: TMP_MDL_target(:,:,:)       ! Pointer to ease switcheroo of the model target buffer\n\n    TMP_MDL_target => NULL()\n\n    IF ( Input_Opt%LIMGRID ) THEN\n      ! Check if we have to load the data.\n      IF ( TrcID > 0 .and. (.not. ASSOCIATED(HcoState%Spc(TrcID)%Emis%Val)) ) RETURN\n\n      ! due to a compiler bug in ifort 19\n      ! we have to use PRESENT and not copy the value, as sometimes it becomes\n      ! flipped! (hplin, 9/29/20)\n      IF ( PRESENT( AltBuffer ) ) THEN\n        TMP_MDL_target => TMP_MDLb\n      ELSE\n        TMP_MDL_target => TMP_MDL\n      ENDIF\n\n      ! ... on-demand intermediate regridding. Check if we already have this field\n      Found = .false.\n\n      WRITE(TMP_TrcIDFldName, '(a,i4)') \"_HCO_Trc_\", TrcID\n      IF( .not. PRESENT( SkipCheck ) .and. &\n          .not. ( (.not. PRESENT( AltBuffer ) .and. TMP_TrcIDFldName == LAST_TMP_REGRID_H2M) .or. &\n                  (      PRESENT( AltBuffer ) .and. TMP_TrcIDFldName == LAST_TMP_REGRID_H2Mb) ) ) THEN   ! Not already in buffer\n        ! Do not use GetHcoVal: load the entire chunk into memory\n        ! Note: TrcID matches HcoID here. If not, remap the tracer ID to HEMCO ID below.\n\n        IF ( Input_Opt%Verbose ) THEN\n           WRITE(6,*) \"# GetHcoValEmis/ImGrid: Attempting to load\", &\n                TMP_TrcIDFldName, \"was\", LAST_TMP_REGRID_H2M, &\n                LAST_TMP_REGRID_H2Mb\n        ENDIF\n\n        IF ( TrcID > 0 ) THEN\n          IF ( ASSOCIATED(HcoState%Spc(TrcID)%Emis%Val) ) THEN  ! Present! Read in the data\n            ! Retrieve data into the HEMCO temporary!\n            ! First, clear the buffer name. We are not sure if this was found yet.\n            IF (.not. PRESENT( AltBuffer )) THEN\n              LAST_TMP_REGRID_H2M  = \"_HCO_Trc_TBD\"\n            ELSE\n              LAST_TMP_REGRID_H2Mb = \"_HCO_Trc_TBD\"\n            ENDIF\n\n            ZBND = SIZE( HcoState%Spc(TrcID)%Emis%Val, 3 )\n            TMP_HCO = 0.0_fp ! Clear the output first\n            TMP_HCO(:,:,1:ZBND) = HcoState%Spc(TrcID)%Emis%Val(:,:,1:ZBND)\n\n            ! IF ( Input_Opt%Verbose ) THEN\n            !    WRITE(6,*) \"# GetHcoValEmis/ImGrid: Read from HEMCO\"\n            ! ENDIF\n\n            ! Now perform the on-demand regrid\n            CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDL_target, ZBND )\n\n            ! Now in TMP_MDL_target, read the pointer data\n            ! FIXME: Could use a little DRY here (hplin, 6/6/20)\n            Found = .true.\n            Emis = TMP_MDL_target(I,J,L)\n\n            IF (.not. PRESENT( AltBuffer )) THEN\n              LAST_TMP_REGRID_H2M  = TMP_TrcIDFldName\n            ELSE\n              LAST_TMP_REGRID_H2Mb = TMP_TrcIDFldName\n            ENDIF\n\n            IF ( Input_Opt%Verbose ) THEN\n               WRITE(6,*) \"# GetHcoValEmis/ImGrid: Regrid OK return\", &\n                    TMP_TrcIDFldName, PRESENT( AltBuffer )\n            ENDIF\n          ENDIF ! Associated\n        ENDIF ! TrcID > 0\n      ELSE ! Already in buffer! Just read the pointer data\n        Found = .true.\n\n        IF ( PRESENT(AltBuffer) ) THEN\n          Emis  = TMP_MDLb(I,J,L)\n        ELSE\n          Emis  = TMP_MDL(I,J,L)\n        ENDIF\n      ENDIF\n    ELSE\n#endif\n    ! Not GC-Classic or not on-demand intermediate grid, just shim around calls\n      CALL GetHcoVal( HcoState, ExtState, TrcID, I, J, L, Found, Emis=Emis )\n#ifdef MODEL_CLASSIC\n    ENDIF\n\n    TMP_MDL_target => NULL()\n#endif\n\n  END SUBROUTINE GetHcoValEmis\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetHcoValDep\n!\n! !DESCRIPTION: Subroutine GetHcoVal is a wrapper routine to return an\n! emission (kg/m2/s) or deposition (1/s) value from the HEMCO state object\n! for a given GEOS-Chem tracer at position I, J, L.\n! A value of zero is returned if no HEMCO species is defined for the given\n! tracer, and the output parameter Found is set to false.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetHcoValDep ( Input_Opt, State_Grid, TrcID, I, J, L, Found, Dep )\n!\n! !USES:\n!\n    USE HCO_Interface_Common, ONLY : GetHcoVal\n    USE HCO_State_GC_Mod,     ONLY : ExtState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),     INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),     INTENT(IN   )  :: State_Grid ! Grid State\n    INTEGER,            INTENT(IN   )  :: TrcID   ! GEOS-Chem tracer ID\n    INTEGER,            INTENT(IN   )  :: I, J, L ! Position\n!\n! !OUTPUT ARGUMENTS:\n!\n    LOGICAL,            INTENT(  OUT)  :: Found   ! Was this tracer ID found?\n    REAL(hp),           INTENT(  OUT)  :: Dep     ! Deposition [1/s]\n!\n! !REMARKS:\n!  This subroutine is currently just a stub to call the equivalent in HEMCO\n!  utilities. This assumes that HEMCO and GEOS-Chem grids match.\n!  When the intermediate grid is implemented, a regridding routine will live\n!  here and regrid data on-demand.\n!\n!  This also assumes that TrcID matches HEMCO tracer ID. If not, a mapping\n!  needs to be performed here.\n!\n! !REVISION HISTORY:\n!  20 Oct 2014 - C. Keller - Initial Version\n!  12 Mar 2020 - H.P. Lin  - Now wrapper around common utilities\n!  08 Jun 2020 - H.P. Lin  - Add GC-Classic on-demand regridding\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n#ifdef MODEL_CLASSIC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=32)  :: TMP_TrcIDFldName            ! Temporary tracer field name _HCO_TrcD_<id>\n\n    IF ( Input_Opt%LIMGRID ) THEN\n      ! Check if we have to load the data.\n      IF ( TrcID > 0 .and. (.not. ASSOCIATED(HcoState%Spc(TrcID)%Depv%Val)) ) RETURN\n\n      ! ... on-demand intermediate regridding. Check if we already have this field\n      Found = .false.\n      WRITE(TMP_TrcIDFldName, '(a,i4)') \"_HCO_TrcD_\", TrcID\n\n      IF( TMP_TrcIDFldName /= LAST_TMP_REGRID_H2Mb ) THEN   ! Not already in buffer\n        ! Do not use GetHcoVal: load the entire chunk into memory\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# GetHcoValDep/ImGrid: Attempting to load\", TMP_TrcIDFldName, \"was\", LAST_TMP_REGRID_H2Mb\n        ! Note: TrcID matches HcoID here. If not, remap the tracer ID to HEMCO ID below.\n        IF ( TrcID > 0 ) THEN\n          IF ( ASSOCIATED(HcoState%Spc(TrcID)%Depv%Val) ) THEN  ! Present! Read in the data\n\n            ! Retrieve data into the HEMCO temporary!\n            ! First, clear the buffer name. We are not sure if this was found yet.\n            LAST_TMP_REGRID_H2Mb = \"_HCO_TrcD_TBD\"\n\n            TMP_HCO = 0.0_fp ! Clear the output first\n            TMP_HCO(:,:,1) = HcoState%Spc(TrcID)%Depv%Val(:,:)\n\n            ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# GetHcoValDep/ImGrid: Read from HEMCO\"\n\n            ! Now perform the on-demand regrid\n            ! Note deposition is surface layer, so L is always 1. Read ZBND = 1\n            CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDLb, 1 )\n\n            ! Now in TMP_MDLb, read the pointer data\n            ! FIXME: Could use a little DRY here (hplin, 6/6/20)\n            Found = .true.\n            Dep = TMP_MDLb(I,J,1)\n            LAST_TMP_REGRID_H2Mb = TMP_TrcIDFldName\n\n            IF ( Input_Opt%Verbose ) THEN\n               WRITE(6,*) \"# GetHcoValDep/ImGrid: Regrid OK return\", &\n                    TMP_TrcIDFldName\n            ENDIF\n          ENDIF\n        ENDIF\n      ELSE ! Already in buffer! Just read the pointer data\n        Found = .true.\n        Dep  = TMP_MDLb(I,J,1)\n      ENDIF\n    ELSE\n#endif\n    ! Not GC-Classic or not on-demand intermediate grid, just shim around calls\n      CALL GetHcoVal( HcoState, ExtState, TrcID, I, J, L, Found, Dep=Dep )\n#ifdef MODEL_CLASSIC\n    ENDIF\n#endif\n\n  END SUBROUTINE GetHcoValDep\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_EvalFld_3D\n!\n! !DESCRIPTION: Subroutine HCO\\_GC\\_EvalFld\\_3D is a wrapper routine to obtain\n!  the 3D data field belonging to the emissions list data.\n!  It is a stub to simply map the call and route it to HEMCO in most cases,\n!  and for GC-Classic with a different HEMCO grid, perform a transparent\n!  HEMCO to model regrid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCO_GC_EvalFld_3D ( Input_Opt, State_Grid, cName, Arr3D, RC, FOUND )\n!\n! !USES:\n!\n    USE HCO_Calc_Mod,         ONLY : HCO_EvalFld\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid State\n    CHARACTER(LEN=*), INTENT(IN   )  :: cName\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(hp),         INTENT(INOUT)  :: Arr3D(:,:,:) ! 3D array\n    INTEGER,          INTENT(INOUT)  :: RC           ! Return code\n    LOGICAL,          INTENT(  OUT), OPTIONAL :: FOUND\n!\n! !REVISION HISTORY:\n!  04 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL                          :: FND\n    CHARACTER(LEN=255)               :: ThisLoc\n    CHARACTER(LEN=512)               :: ErrMsg\n\n    INTEGER                          :: ZBND\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HCO_GC_EvalFld_3D (in module GeosCore/hco_utilities_gc_mod.F90)'\n\n    ! Empty the target first\n    Arr3D   = 0.0_hp\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n      !=====================================================================\n      ! We ARE USING the HEMCO intermediate grid\n      !=====================================================================\n\n      ! Sanity check - output array must be sized correctly for MODEL grid\n      IF ( SIZE(Arr3D, 1) /= State_Grid%NX   .or.                            &\n           SIZE(Arr3D, 2) /= State_Grid%NY ) THEN\n        RC = GC_FAILURE\n        ErrMsg = 'Input array dimensions are incorrect!'\n        CALL GC_Error( ErrMsg, RC, ThisLoc )\n      ENDIF\n\n      ! Z-level boundary for 3-D data and sanity check, 1st pass\n      ZBND = MAX(1, SIZE(Arr3D, 3))\n      IF( ZBND .ge. State_Grid%NZ ) THEN\n        RC = GC_FAILURE\n        ErrMsg = 'Input array Z-dimension higher than model maximum!'\n        CALL GC_Error( ErrMsg, RC, ThisLoc )\n      ENDIF\n\n      ! Check if cName is existing in the regrid buffer.\n      !If not, regrid on-the-fly\n      IF ( cName /= LAST_TMP_REGRID_H2M ) THEN\n        !IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_EvalFld_3D: Last regrid not equal, looking up field \", cName\n\n        ! Now retrieve data into the HEMCO temporary!\n        ! The bdy is a slice to ensure safety\n        CALL HCO_EvalFld( HcoState, cName, TMP_HCO(:,:,1:ZBND), RC, FND )\n\n        ! If failure, return up the chain. The calls to this function will\n        ! be able to propagate the error above.\n        IF ( RC /= GC_SUCCESS ) RETURN\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_EvalFld_3D: Lookup complete\", cName, FND\n\n        IF ( FND ) THEN\n\n          ! For safety, overwrite the temporary\n          LAST_TMP_REGRID_H2M = \"_HCO_Eval3D_TBD\"\n\n          ! Regrid the buffer appropriately.\n          ! We do not use TMP_MDL here in EvalFld,\n          ! because the field target is given.\n          ! ( Input_Opt, State_Grid, State_Grid_HCO, PtrIn, PtrOut, ZBND )\n          CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, Arr3D, ZBND )\n\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE(6,*) \"# HCO_GC_EvalFld_3D: Regrid complete, \", &\n                  cName, \" z-boundary\", ZBND\n          ENDIF\n\n          ! The output should be in Arr3D and ready to go.\n          LAST_TMP_REGRID_H2M = cName\n\n        ENDIF\n\n      ELSE\n        ! Already existing in the buffer. Simply copy the data\n        Arr3D(:,:,1:ZBND) = TMP_MDL(:,:,1:ZBND)\n        FND = .true.\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_EvalFld_3D: Last regrid equal, reading from buffer\"\n      ENDIF\n    ELSE\n      !=====================================================================\n      ! We ARE NOT USING the HEMCO intermediate grid\n      !=====================================================================\n#endif\n      ! In which case, we just pass the call through\n      CALL HCO_EvalFld( HcoState, cName, Arr3D, RC, FND )\n#ifdef MODEL_CLASSIC\n    ENDIF\n#endif\n\n    IF( PRESENT(FOUND) ) THEN\n      FOUND = FND\n    ENDIF\n\n  END SUBROUTINE HCO_GC_EvalFld_3D\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_EvalFld_2D\n!\n! !DESCRIPTION: Subroutine HCO\\_GC\\_EvalFld\\_2D is a wrapper routine to obtain\n!  the 3D data field belonging to the emissions list data.\n!  It is a stub to simply map the call and route it to HEMCO in most cases,\n!  and for GC-Classic with a different HEMCO grid, perform a transparent\n!  HEMCO to model regrid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCO_GC_EvalFld_2D ( Input_Opt, State_Grid, cName, Arr2D, RC, FOUND )\n!\n! !USES:\n!\n    USE HCO_Calc_Mod,         ONLY : HCO_EvalFld\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid State\n    CHARACTER(LEN=*), INTENT(IN   )  :: cName\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(hp),         INTENT(INOUT)  :: Arr2D(:,:)   ! 2D array\n    INTEGER,          INTENT(INOUT)  :: RC           ! Return code\n    LOGICAL,          INTENT(  OUT), OPTIONAL :: FOUND\n!\n! !REVISION HISTORY:\n!  04 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL                          :: FND\n    CHARACTER(LEN=255)               :: ThisLoc\n    CHARACTER(LEN=512)               :: ErrMsg\n\n    ! debug\n    INTEGER                          :: II\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HCO_GC_EvalFld_2D (in module GeosCore/hco_utilities_gc_mod.F90)'\n\n    ! Empty the target first\n    Arr2D   = 0.0_hp\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n      !=====================================================================\n      ! We ARE USING the HEMCO intermediate grid\n      !=====================================================================\n\n      ! Sanity check - output array must be sized correctly for MODEL grid\n      IF ( SIZE(Arr2D, 1) /= State_Grid%NX .or. SIZE(Arr2D, 2) /= State_Grid%NY ) THEN\n        RC = GC_FAILURE\n        ErrMsg = 'Input array dimensions are incorrect!'\n        CALL GC_Error( ErrMsg, RC, ThisLoc )\n      ENDIF\n\n      ! Check if cName is existing in the regrid buffer. If not, regrid on-the-fly\n      IF ( cName /= LAST_TMP_REGRID_H2M ) THEN\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_EvalFld_2D: Last regrid not equal, looking up field \", cName\n\n        ! Now retrieve data into the HEMCO temporary!\n        ! The bdy is a slice to ensure safety\n        CALL HCO_EvalFld( HcoState, cName, TMP_HCO(:,:,1), RC, FND )\n\n        ! If failure, return up the chain. The calls to this function will\n        ! be able to propagate the error above.\n        IF ( RC /= GC_SUCCESS ) RETURN\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_EvalFld_2D: Lookup complete\", cName, FND\n\n        ! If not found, return\n        IF ( FND ) THEN\n\n          ! For safety, overwrite the temporary\n          LAST_TMP_REGRID_H2M = \"_HCO_Eval2D_TBD\"\n\n          ! Regrid the buffer appropriately. We do not use TMP_MDL here in EvalFld,\n          ! because the field target is given.\n          ! Z-boundary is 1 because 2-D field.\n          CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDL, 1 )\n\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE(6,*) \"# HCO_GC_EvalFld_2D: Regrid\", cName, \" complete\"\n          ENDIF\n\n          ! Note that we cannot pass Arr2D to call above directly because it accepts a\n          ! 3-D argument. So we regrid to the target dummy and copy\n          Arr2D(:,:) = TMP_MDL(:,:,1)\n\n          ! The output should be in Arr2D and ready to go.\n          LAST_TMP_REGRID_H2M = cName\n\n        ENDIF\n      ELSE\n        ! Already existing in the buffer. Simply copy the data\n        Arr2D(:,:) = TMP_MDL(:,:,1)\n        FND = .true.\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_EvalFld_2D: Last regrid equal, reading from buffer\"\n      ENDIF\n    ELSE\n      !=====================================================================\n      ! We ARE NOT USING the HEMCO intermediate grid\n      !=====================================================================\n#endif\n      ! In which case, we just pass the call through\n      CALL HCO_EvalFld( HcoState, cName, Arr2D, RC, FND )\n#ifdef MODEL_CLASSIC\n    ENDIF\n#endif\n\n    IF( PRESENT(FOUND) ) THEN\n      FOUND = FND\n    ENDIF\n\n  END SUBROUTINE HCO_GC_EvalFld_2D\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_GetPtr_2D\n!\n! !DESCRIPTION: Subroutine HCO\\_GC\\_GetPtr_2D is a wrapper routine to obtain\n!  the 2D data pointer \"directly\" to HEMCO.\n!  It is a stub to simply map the call and route it to HEMCO in most cases,\n!  and for GC-Classic with a different HEMCO grid, perform a transparent\n!  HEMCO to model regrid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCO_GC_GetPtr_2D ( Input_Opt, State_Grid, DctName, Ptr2D, RC, &\n                                TIDX, FOUND, FILLED )\n!\n! !USES:\n!\n    USE HCO_EmisList_Mod,     ONLY : HCO_GetPtr\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid State\n    CHARACTER(LEN=*), INTENT(IN   )  :: DctName    ! Container name\n    INTEGER, OPTIONAL,INTENT(IN   )  :: TIDX       ! Time index (default = 1)\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(sp), POINTER                :: Ptr2D(:,:)   ! Output array\n    INTEGER,          INTENT(INOUT)  :: RC           ! Return code\n    LOGICAL,          INTENT(  OUT), OPTIONAL :: FOUND\n    LOGICAL,          INTENT(  OUT), OPTIONAL :: FILLED\n!\n! !REMARKS:\n!  Note that there is some code duplication here, because we have to handle\n!  the optional arguments. Ideally we want to refactor away all calls to GetPtr,\n!  but the met field reading requires a time index, so unfortunately we have to\n!  replicate this here.\n!\n!  Note that for GC-Classic IMGrid, only ONE pointer may be kept at a time.\n!  This is an underlying assumption that may bite and needs to be taken care of.\n!  Once the data is received in the form of a pointer from HCO_GC_GetPtr,\n!  you must COPY it and operate on it, otherwise you will operate in the shimmed\n!  temporary. BE WARNED! (hplin, 6/8/20)\n!\n! !REVISION HISTORY:\n!  08 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Internal copies of logicals to pass to the GetPtr call, because\n    ! we need to replicate the previously optional arguments...\n    LOGICAL                          :: iFOUND, iFILLED\n    INTEGER                          :: iTIDX\n\n    ! Debug\n    INTEGER                          :: II, JJ\n\n    CHARACTER(LEN=255)               :: ThisLoc\n    CHARACTER(LEN=512)               :: ErrMsg\n    CHARACTER(LEN=80)                :: TMP_GetPtrFldName\n\n    ! Pointers\n    REAL(sp), POINTER                :: TMP_Ptr2D(:,:)\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HCO_GC_GetPtr_2D (in module GeosCore/hco_utilities_gc_mod.F90)'\n\n    iTIDX = 1\n    IF ( PRESENT(TIDX ) ) iTIDX = TIDX\n\n    ! Nullify pointer\n    TMP_Ptr2D => NULL()\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n      ! Build the name which requires a unique recognition of the time index,\n      ! in case they are read sequentially\n      write(TMP_GetPtrFldName, '(a,i4)') DctName, iTIDX\n\n      ! Check if is existing in the regrid buffer. If not, regrid on-the-fly\n      IF ( TMP_GetPtrFldName /= LAST_TMP_REGRID_H2M ) THEN\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_2D: Last regrid not equal, looking up field \", TMP_GetPtrFldName\n\n        ! For safety, overwrite the temporary\n        LAST_TMP_REGRID_H2M = \"_HCO_Ptr2D_TBD\"\n\n        ! Now retrieve data into the HEMCO temporary!\n        CALL HCO_GetPtr( HcoState, DctName, TMP_Ptr2D, RC, iTIDX, iFOUND, iFILLED )\n\n        ! If failure, return up the chain. The calls to this function will\n        ! be able to propagate the error above.\n        IF ( RC /= GC_SUCCESS ) RETURN\n\n        ! If not found, return\n        IF ( iFOUND .and. iFILLED ) THEN\n\n          ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_2D: Lookup complete\", TMP_GetPtrFldName, iFOUND\n\n          ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_2D: Dim Debug\", SIZE(TMP_HCO, 1), SIZE(TMP_HCO, 2), SIZE(TMP_Ptr2D, 1), SIZE(TMP_Ptr2D, 2)\n\n          ! Copy data to the temporary\n          TMP_HCO(:,:,1) = TMP_Ptr2D(:,:)\n\n          ! Regrid the buffer appropriately. We do not use TMP_MDL here in EvalFld,\n          ! because the field target is given.\n          ! Z-boundary is 1 because 2-D field.\n          CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDL, 1 )\n\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE(6,*) \"# HCO_GC_GetPtr_2D: Regrid\", TMP_GetPtrFldName, &\n                  \"complete\"\n          ENDIF\n\n          ! Free the pointer\n          TMP_Ptr2D => NULL()\n\n          ! Copy to the r4 so you can downgrade the precision for GetPtr calls\n          ! for backwards compatibility\n          TMP_MDL_r4(:,:,1) = TMP_MDL(:,:,1)\n\n          ! Point to target dummy\n          Ptr2D => TMP_MDL_r4(:,:,1)\n\n          ! The output should be pointing to Ptr2D (in TMP_MDL:,:,1) and ready to go.\n          LAST_TMP_REGRID_H2M = TMP_GetPtrFldName\n\n        ENDIF\n      ELSE\n        ! Already existing in the buffer. Simply point to the data\n        Ptr2D => TMP_MDL_r4(:,:,1)\n        iFOUND = .true.\n        iFILLED = .true.\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_2D: Last regrid equal, pointing to buffer\"\n      ENDIF\n    ELSE\n      ! Not within the intermediate grid code path\n#endif\n      ! In which case, we just pass the call through\n      CALL HCO_GetPtr( HcoState, DctName, Ptr2D, RC, iTIDX, iFOUND, iFILLED )\n#ifdef MODEL_CLASSIC\n    ENDIF\n#endif\n\n    IF( PRESENT(FOUND) ) THEN\n      FOUND = iFOUND\n    ENDIF\n\n    IF( PRESENT(FILLED) ) THEN\n      FILLED = iFILLED\n    ELSEIF ( .not. iFILLED ) THEN\n      ! RC = GC_FAILURE\n      ! ErrMsg = 'Could not fill last GetPtr container!'\n      ! CALL GC_Error( ErrMsg, RC, ThisLoc )\n\n      Ptr2D => NULL()\n      ! FIXME: Maybe need to throw a HEMCO error from here. See behavior\n      ! in HCO_EmisList_Mod\n    ENDIF\n\n  END SUBROUTINE HCO_GC_GetPtr_2D\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_GetPtr_3D\n!\n! !DESCRIPTION: Subroutine HCO\\_GC\\_GetPtr_3D is a wrapper routine to obtain\n!  the 3D data pointer \"directly\" to HEMCO.\n!  It is a stub to simply map the call and route it to HEMCO in most cases,\n!  and for GC-Classic with a different HEMCO grid, perform a transparent\n!  HEMCO to model regrid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCO_GC_GetPtr_3D ( Input_Opt, State_Grid, DctName, Ptr3D, RC, &\n                                TIDX, FOUND, FILLED )\n!\n! !USES:\n!\n    USE HCO_EmisList_Mod,     ONLY : HCO_GetPtr\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid ! Grid State\n    CHARACTER(LEN=*), INTENT(IN   )  :: DctName    ! Container name\n    INTEGER, OPTIONAL,INTENT(IN   )  :: TIDX       ! Time index (default = 1)\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(sp), POINTER                :: Ptr3D(:,:,:) ! Output array\n    INTEGER,          INTENT(INOUT)  :: RC           ! Return code\n    LOGICAL,          INTENT(  OUT), OPTIONAL :: FOUND\n    LOGICAL,          INTENT(  OUT), OPTIONAL :: FILLED\n!\n! !REMARKS:\n!  See 2D version.\n!\n! !REVISION HISTORY:\n!  08 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Internal copies of logicals to pass to the GetPtr call, because\n    ! we need to replicate the previously optional arguments...\n    LOGICAL                          :: iFOUND, iFILLED\n    INTEGER                          :: iTIDX\n    INTEGER                          :: ZBND                     ! Maximum z-boundary\n\n    CHARACTER(LEN=255)               :: ThisLoc\n    CHARACTER(LEN=512)               :: ErrMsg\n    CHARACTER(LEN=80)                :: TMP_GetPtrFldName\n\n    ! Pointers\n    REAL(sp), POINTER                :: TMP_Ptr3D(:,:,:)\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HCO_GC_GetPtr_3D (in module GeosCore/hco_utilities_gc_mod.F90)'\n\n    iTIDX = 1\n    IF ( PRESENT(TIDX ) ) iTIDX = TIDX\n\n    ! Nullify pointer\n    TMP_Ptr3D => NULL()\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%LIMGRID ) THEN\n\n      ! Build the name which requires a unique recognition of the time index,\n      ! in case they are read sequentially\n      write(TMP_GetPtrFldName, '(a,i4)') DctName, iTIDX\n\n      ! Check if is existing in the regrid buffer. If not, regrid on-the-fly\n      IF ( TMP_GetPtrFldName /= LAST_TMP_REGRID_H2M ) THEN\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_3D: Last regrid not equal, looking up field \", TMP_GetPtrFldName\n\n        ! For safety, overwrite the temporary\n        LAST_TMP_REGRID_H2M = \"_HCO_Ptr3D_TBD\"\n\n        ! Now retrieve data into the HEMCO temporary!\n        CALL HCO_GetPtr( HcoState, DctName, TMP_Ptr3D, RC, iTIDX, iFOUND, iFILLED )\n\n        ! If failure, return up the chain. The calls to this function will\n        ! be able to propagate the error above.\n        IF ( RC /= GC_SUCCESS ) RETURN\n\n        ! If not found, return\n        IF ( iFOUND .and. iFILLED ) THEN\n\n          ! Get z-boundary\n          ZBND = MAX(1, SIZE(TMP_Ptr3D, 3))\n\n          ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_3D: Lookup complete\", TMP_GetPtrFldName, iFOUND, ZBND\n\n          ! Copy data to the temporary\n          TMP_HCO(:,:,1:ZBND) = TMP_Ptr3D(:,:,1:ZBND)\n\n          ! Regrid the buffer appropriately. We do not use TMP_MDL here in EvalFld,\n          ! because the field target is given.\n          ! Z-boundary is 1 because 2-D field.\n          CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDL, ZBND )\n\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE(6,*) \"# HCO_GC_GetPtr_3D: Regrid\", &\n                  TMP_GetPtrFldName, \"complete\"\n          ENDIF\n\n          ! Free the pointer\n          TMP_Ptr3D => NULL()\n\n          ! Copy to the r4 so you can downgrade the precision for GetPtr calls\n          ! for backwards compatibility\n          TMP_MDL_r4(:,:,1:ZBND) = TMP_MDL(:,:,1:ZBND)\n\n          ! Point to target dummy\n          Ptr3D => TMP_MDL_r4(:,:,1:ZBND)\n\n          ! The output should be pointing to Ptr2D (in TMP_MDL:,:,1) and ready to go.\n          LAST_TMP_REGRID_H2M = TMP_GetPtrFldName\n          LAST_TMP_MDL_ZBND   = ZBND ! Remember the z-boundary ... will be used later\n\n        ENDIF\n      ELSE\n        ! Already existing in the buffer. Simply point to the data\n        Ptr3D => TMP_MDL_r4(:,:,1:LAST_TMP_MDL_ZBND)\n        iFOUND = .true.\n        iFILLED = .true.\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetPtr_2D: Last regrid equal, pointing to buffer\"\n      ENDIF\n    ELSE\n      ! Not within the intermediate grid code path\n#endif\n      ! In which case, we just pass the call through\n      CALL HCO_GetPtr( HcoState, DctName, Ptr3D, RC, iTIDX, iFOUND, iFILLED )\n#ifdef MODEL_CLASSIC\n    ENDIF\n#endif\n\n    IF( PRESENT(FOUND) ) THEN\n      FOUND = iFOUND\n    ENDIF\n\n    IF( PRESENT(FILLED) ) THEN\n      FILLED = iFILLED\n    ELSEIF ( .not. iFILLED ) THEN\n      ! RC = GC_FAILURE\n      ! ErrMsg = 'Could not fill last GetPtr_3D container!'\n      ! CALL GC_Error( ErrMsg, RC, ThisLoc )\n\n      Ptr3D => NULL()\n    ENDIF\n\n  END SUBROUTINE HCO_GC_GetPtr_3D\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_GetDiagn_3D\n!\n! !DESCRIPTION: Subroutine HCO_GC_GetDiagn is a shim for the original GetHcoDiagn.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCO_GC_GetDiagn_3D ( Input_Opt,      State_Grid, DiagnName, &\n                                  StopIfNotFound, RC,         Ptr3D,     &\n                                  COL,            AutoFill,   AltBuffer )\n!\n! !USES:\n!\n    USE HCO_Interface_Common, ONLY : GetHcoDiagn\n    USE HCO_State_GC_Mod,     ONLY : ExtState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),     INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),     INTENT(IN   )  :: State_Grid ! Grid State\n    CHARACTER(LEN=*),   INTENT(IN   )  :: DiagnName  ! Name of diagnostics\n    LOGICAL,            INTENT(IN   )  :: StopIfNotFound\n\n    INTEGER, OPTIONAL,  INTENT(IN   )  :: COL        ! Collection Nr.\n    INTEGER, OPTIONAL,  INTENT(IN   )  :: AutoFill   ! Autofill diagnostics only?\n\n    LOGICAL, OPTIONAL,  INTENT(IN   )  :: AltBuffer  ! Alternate buffer? (Use B)\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(sp),           POINTER        :: Ptr3D(:,:,:)\n    INTEGER,            INTENT(INOUT)  :: RC\n!\n! !REMARKS:\n!  See GetPtr. Note that this allows an alternative buffer to be used to\n!  avoid conflict in reading the cached pointer.\n!\n!  FOR SAFETY SAKE, DESTROY THE POINTER READ FROM THIS ROUTINE BEFORE THE NEXT\n!  CALL TO HCO_GC_GetDiagn OR YOU WILL HAVE WRONG DATA FED TO YOU!\n!\n! !REVISION HISTORY:\n!  21 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: iCOL, iAF\n\n#ifdef MODEL_CLASSIC\n    CHARACTER(LEN=90)  :: TMP_DiagnFldName            ! Temporary diagnostic fld name\n    INTEGER            :: ZBND\n    REAL(sp), POINTER  :: TMP_Ptr3D(:,:,:)\n    REAL(hp), POINTER  :: TMP_MDL_target(:,:,:)       ! Pointer to ease switcheroo of the model target buffer\n    REAL(sp), POINTER  :: TMP_MDL_target4(:,:,:)      ! Pointer to ease switcheroo of the model target buffer\n#endif\n\n    ! Initialize local variables\n    iCOL = HcoState%Diagn%HcoDiagnIDManual\n    IF ( PRESENT(COL) ) THEN\n      iCOL = COL\n    ENDIF\n\n    iAF = -1\n    IF ( PRESENT(AutoFill) ) THEN\n      iAF = AutoFill\n    ENDIF\n\n#ifdef MODEL_CLASSIC\n    TMP_MDL_target => NULL()\n    TMP_Ptr3D => NULL()\n\n    IF ( Input_Opt%LIMGRID ) THEN\n      ! The below section must be OMP CRITICAL because it is stateful.\n      ! The first call to the critical section will update the container!!\n      !$OMP CRITICAL\n\n      IF ( PRESENT( AltBuffer ) ) THEN\n        TMP_MDL_target => TMP_MDLb\n        TMP_MDL_target4 => TMP_MDL_r4b\n      ELSE\n        TMP_MDL_target => TMP_MDL\n        TMP_MDL_target4 => TMP_MDL_r4\n      ENDIF\n\n      ! ... on-demand intermediate regridding. Check if we already have this field\n      WRITE(TMP_DiagnFldName, *) \"_Dgn_\", DiagnName\n      IF( .not. ( (.not. PRESENT( AltBuffer ) .and. TMP_DiagnFldName == LAST_TMP_REGRID_H2M) .or. &\n                  (      PRESENT( AltBuffer ) .and. TMP_DiagnFldName == LAST_TMP_REGRID_H2Mb) ) ) THEN   ! Not already in buffer\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetDiagn_3D: Last regrid not equal, looking up field \", TMP_DiagnFldName\n\n        ! Now retrieve data into the HEMCO temporary!\n        ! Note that the data is in sp and has to be promoted for regridding,\n        ! then demoted again for output.\n        CALL GetHcoDiagn( HcoState, ExtState, DiagnName, StopIfNotFound, RC, &\n                          Ptr3D=TMP_Ptr3D,    COL=iCOL,  AutoFill=iAF )\n\n        ! If not found, return\n        IF ( ASSOCIATED( TMP_Ptr3D ) ) THEN\n\n          ! For safety, overwrite the temporary\n          LAST_TMP_REGRID_H2M = \"_HCO_Dgn3D_TBD\"\n\n          ! Get z-boundary\n          ZBND = MAX(1, SIZE(TMP_Ptr3D, 3))\n\n          ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetDiagn_3D: Lookup complete\", TMP_DiagnFldName, ZBND\n\n          ! Copy data to the temporary\n          TMP_HCO(:,:,1:ZBND) = TMP_Ptr3D(:,:,1:ZBND)\n\n          CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDL, ZBND )\n\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE(6,*) \"# HCO_GC_GetDiagn_3D: Regrid\", &\n                  TMP_DiagnFldName, \"complete\", PRESENT(AltBuffer)\n          ENDIF\n\n          ! Free the pointer\n          TMP_Ptr3D => NULL()\n\n          ! Copy to the r4 so you can downgrade the precision for GetPtr calls\n          ! for backwards compatibility\n          TMP_MDL_target4(:,:,1:ZBND) = TMP_MDL(:,:,1:ZBND)\n\n          ! Point to target dummy\n          Ptr3D => TMP_MDL_target4(:,:,1:ZBND)\n\n          ! The output should be pointing to Ptr2D (in TMP_MDL:,:,1) and ready to go.\n          LAST_TMP_REGRID_H2M = TMP_DiagnFldName\n          LAST_TMP_MDL_ZBND   = ZBND ! Remember the z-boundary ... will be used later\n\n        ENDIF\n\n      ELSE ! Already in buffer! Just read the pointer data\n        Ptr3D => TMP_MDL_target4(:,:,1:LAST_TMP_MDL_ZBND)\n        ! ... fill the ptr\n      ENDIF\n      !$OMP END CRITICAL\n      ! End of LIMGRID OMP Critical section\n\n    ELSE\n#endif\n      ! Not GC-Classic or not on-demand intermediate grid, just shim around calls\n      CALL GetHcoDiagn( HcoState, ExtState, DiagnName, StopIfNotFound, RC, &\n                        Ptr3D=Ptr3D,        COL=iCOL,  AutoFill=iAF )\n#ifdef MODEL_CLASSIC\n    ENDIF\n\n    TMP_MDL_target => NULL()\n    TMP_MDL_target4 => NULL()\n#endif\n\n  END SUBROUTINE HCO_GC_GetDiagn_3D\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_GetDiagn_2D\n!\n! !DESCRIPTION: Subroutine HCO_GC_GetDiagn is a shim for the original GetHcoDiagn.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCO_GC_GetDiagn_2D ( Input_Opt,      State_Grid, DiagnName, &\n                                  StopIfNotFound, RC,         Ptr2D,     &\n                                  COL,            AutoFill,   AltBuffer )\n!\n! !USES:\n!\n    USE HCO_Interface_Common, ONLY : GetHcoDiagn\n    USE HCO_State_GC_Mod,     ONLY : ExtState\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n#ifdef MODEL_CLASSIC\n    USE HCO_State_GC_Mod,     ONLY : State_Grid_HCO\n#endif\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),     INTENT(IN   )  :: Input_Opt  ! Input options\n    TYPE(GrdState),     INTENT(IN   )  :: State_Grid ! Grid State\n    CHARACTER(LEN=*),   INTENT(IN   )  :: DiagnName  ! Name of diagnostics\n    LOGICAL,            INTENT(IN   )  :: StopIfNotFound\n\n    INTEGER, OPTIONAL,  INTENT(IN   )  :: COL        ! Collection Nr.\n    INTEGER, OPTIONAL,  INTENT(IN   )  :: AutoFill   ! Autofill diagnostics only?\n\n    LOGICAL, OPTIONAL,  INTENT(IN   )  :: AltBuffer  ! Alternate buffer? (Use B)\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(sp),           POINTER        :: Ptr2D(:,:)\n    INTEGER,            INTENT(INOUT)  :: RC\n!\n! !REMARKS:\n!  See GetPtr. Note that this allows an alternative buffer to be used to\n!  avoid conflict in reading the cached pointer.\n!\n!  FOR SAFETY SAKE, DESTROY THE POINTER READ FROM THIS ROUTINE BEFORE THE NEXT\n!  CALL TO HCO_GC_GetDiagn OR YOU WILL HAVE WRONG DATA FED TO YOU!\n!\n! !REVISION HISTORY:\n!  21 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: iCOL, iAF\n\n#ifdef MODEL_CLASSIC\n    CHARACTER(LEN=90)  :: TMP_DiagnFldName            ! Temporary diagnostic fld name\n    REAL(sp), POINTER  :: TMP_Ptr2D(:,:)\n    REAL(hp), POINTER  :: TMP_MDL_target(:,:,:)       ! Pointer to ease switcheroo of the model target buffer\n    REAL(sp), POINTER  :: TMP_MDL_target4(:,:,:)      ! Pointer to ease switcheroo of the model target buffer\n#endif\n\n    ! initialize local variables\n    iCOL = HcoState%Diagn%HcoDiagnIDManual\n    IF ( PRESENT(COL) ) THEN\n      iCOL = COL\n    ENDIF\n\n    iAF = -1\n    IF ( PRESENT(AutoFill) ) THEN\n      iAF = AutoFill\n    ENDIF\n\n#ifdef MODEL_CLASSIC\n    TMP_MDL_target => NULL()\n    TMP_Ptr2D => NULL()\n\n    IF ( Input_Opt%LIMGRID ) THEN\n      ! The below section must be OMP CRITICAL because it is stateful.\n      ! The first call to the critical section will update the container!!\n      !$OMP CRITICAL\n\n      IF ( PRESENT( AltBuffer ) ) THEN\n        TMP_MDL_target => TMP_MDLb\n        TMP_MDL_target4 => TMP_MDL_r4b\n      ELSE\n        TMP_MDL_target => TMP_MDL\n        TMP_MDL_target4 => TMP_MDL_r4\n      ENDIF\n\n      ! ... on-demand intermediate regridding. Check if we already have this field\n      WRITE(TMP_DiagnFldName, *) \"_Dgn_\", DiagnName\n      IF( .not. ( (.not. PRESENT( AltBuffer ) .and. TMP_DiagnFldName == LAST_TMP_REGRID_H2M) .or. &\n                  (      PRESENT( AltBuffer ) .and. TMP_DiagnFldName == LAST_TMP_REGRID_H2Mb) ) ) THEN   ! Not already in buffer\n\n        ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetDiagn_2D: Last regrid not equal, looking up field \", TMP_DiagnFldName\n\n        ! Now retrieve data into the HEMCO temporary!\n        ! Note that the data is in sp and has to be promoted for regridding,\n        ! then demoted again for output.\n        CALL GetHcoDiagn( HcoState, ExtState, DiagnName, StopIfNotFound, RC, &\n                          Ptr2D=TMP_Ptr2D,    COL=iCOL,  AutoFill=iAF )\n\n        ! If not found, return\n        IF ( ASSOCIATED( TMP_Ptr2D ) ) THEN\n\n          ! For safety, overwrite the temporary\n          LAST_TMP_REGRID_H2M = \"_HCO_Dgn2D_TBD\"\n\n          ! IF ( Input_Opt%Verbose ) WRITE(6,*) \"# HCO_GC_GetDiagn_2D: Lookup complete\", TMP_DiagnFldName\n\n          ! Copy data to the temporary\n          TMP_HCO(:,:,1) = TMP_Ptr2D(:,:)\n\n          CALL Regrid_HCO2MDL( Input_Opt, State_Grid, State_Grid_HCO, TMP_HCO, TMP_MDL, 1 )\n\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE(6,*) \"# HCO_GC_GetDiagn_2D: Regrid\", &\n                  TMP_DiagnFldName, \"complete\"\n          ENDIF\n\n          ! Free the pointer\n          TMP_Ptr2D => NULL()\n\n          ! Copy to the r4 so you can downgrade the precision for GetDgn calls\n          ! for backwards compatibility\n          TMP_MDL_target4(:,:,1) = TMP_MDL(:,:,1)\n\n          ! Point to target dummy\n          Ptr2D => TMP_MDL_target4(:,:,1)\n\n          ! The output should be pointing to Ptr2D (in TMP_MDL:,:,1) and ready to go.\n          LAST_TMP_REGRID_H2M = TMP_DiagnFldName\n          LAST_TMP_MDL_ZBND   = 1 ! Remember the z-boundary ... will be used later\n\n        ENDIF\n\n      ELSE ! Already in buffer! Just read the pointer data\n        Ptr2D => TMP_MDL_target4(:,:,1)\n        ! ... fill the ptr\n      ENDIF\n      !$OMP END CRITICAL\n      ! End of LIMGRID OMP Critical section\n\n    ELSE\n#endif\n      ! Not GC-Classic or not on-demand intermediate grid, just shim around calls\n      CALL GetHcoDiagn( HcoState, ExtState, DiagnName, StopIfNotFound, RC, &\n                        Ptr2D=Ptr2D,        COL=iCOL,  AutoFill=iAF )\n#ifdef MODEL_CLASSIC\n    ENDIF\n\n    TMP_MDL_target => NULL()\n    TMP_MDL_target4 => NULL()\n#endif\n\n  END SUBROUTINE HCO_GC_GetDiagn_2D\n!EOC\n#if defined ( MODEL_CLASSIC )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_gc_restart\n!\n! !DESCRIPTION: Subroutine GET\\_GC\\_RESTART reads species concentrations\n!  [mol/mol] from the GEOS-Chem restart file. If species data are missing from\n!  the restart file, pre-configured background values are used. If using the\n!  mercury simulation, additional restart data are read from file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, &\n                            State_Met, RC )\n!\n! !USES:\n!\n   USE CMN_SIZE_Mod,     ONLY  : NDUST\n   USE ErrCode_Mod\n   USE Error_Mod\n   USE HCO_State_GC_Mod,  ONLY : HcoState\n   USE PhysConstants,     ONLY : AIRMW, G0_100\n   USE Input_Opt_Mod,     ONLY : OptInput\n   USE Species_Mod,       ONLY : Species, SpcConc\n   USE State_Chm_Mod,     ONLY : ChmState\n   USE State_Grid_Mod,    ONLY : GrdState\n   USE State_Met_Mod,     ONLY : MetState\n   USE Time_Mod,          ONLY : Expand_Date\n   USE Timers_Mod,        ONLY : Timer_End, Timer_Start\n   USE UnitConv_Mod,      ONLY : MOLES_SPECIES_PER_MOLES_DRY_AIR\n#ifdef APM\n   USE APM_Init_Mod,      ONLY : APMIDS\n#endif\n\n   ! Netcdf libraries for local read of restart file\n   USE netCDF\n   USE m_netcdf_io_open\n   USE m_netcdf_io_get_dimlen\n   USE m_netcdf_io_read\n   USE m_netcdf_io_readattr\n   USE m_netcdf_io_close\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n   TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(MetState), INTENT(INOUT) :: State_Met  ! Meteorology State object\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,        INTENT(OUT)   :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!\n!  09 Feb 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER                   :: I, J, L, M, N      ! lon, lat, lev, indexes\n   INTEGER                   :: previous_units\n   LOGICAL                   :: FOUND              ! Found in restart file?\n   LOGICAL                   :: FOUND_DELP_DRY     ! Found layer delta P in restart?\n   CHARACTER(LEN=60)         :: Prefix             ! utility string\n   CHARACTER(LEN=255)        :: LOC                ! routine location\n   CHARACTER(LEN=255)        :: v_name_in_hemco    ! variable name in HEMCO\n   CHARACTER(LEN=255)        :: v_name_in_file     ! variable name in restart file\n   CHARACTER(LEN=512)        :: MSG                ! message\n   REAL(fp)                  :: SMALL_NUM          ! small number threshold\n\n   ! Temporary arrays and pointers\n   REAL*4,  TARGET           :: Temp2D(State_Grid%NX,State_Grid%NY)\n   REAL*4,  TARGET           :: Temp3D(State_Grid%NX,State_Grid%NY, &\n                                       State_Grid%NZ)\n   REAL*4,  POINTER          :: Ptr2D(:,:  )\n   REAL*4,  POINTER          :: Ptr3D(:,:,:)\n\n   ! For Hg simulation\n   CHARACTER(LEN=60)         :: HgSpc\n\n   ! Default background concentration\n   REAL(fp)                  :: Background_VV\n\n   ! Objects\n   TYPE(SpcConc),    POINTER :: Spc(:)\n   TYPE(Species),    POINTER :: SpcInfo\n\n   ! For local read of restart file\n   LOGICAL            :: Use_HEMCO_for_restart_read\n   LOGICAL            :: FileExists          ! Does input file exist?\n   INTEGER            :: fId, ierr, varid\n   CHARACTER(LEN=255) :: nc_dir              ! netCDF directory name\n   CHARACTER(LEN=255) :: nc_file             ! netCDF file name\n   CHARACTER(LEN=255) :: nc_path             ! netCDF path name\n   CHARACTER(LEN=255) :: a_name              ! netCDF attribute name\n   CHARACTER(LEN=255) :: a_val               ! netCDF attribute value\n   CHARACTER(LEN=6)   :: TimeStr\n   CHARACTER(LEN=8)   :: DateStr\n   INTEGER            :: st3d(3), ct3d(3)    ! For 3D arrays\n   INTEGER            :: st4d(4), ct4d(4)    ! For 4D arrays\n   REAL*8,  TARGET    :: Temp3D_r8(State_Grid%NX,State_Grid%NY,1)\n   REAL*4,  TARGET    :: Temp4D_r4(State_Grid%NX,State_Grid%NY, &\n                                       State_Grid%NZ,1)\n   REAL*8,  TARGET    :: Temp4D_r8(State_Grid%NX,State_Grid%NY, &\n                                       State_Grid%NZ,1)\n   REAL*8,  POINTER   :: Ptr3D_r8(:,:,:)\n   REAL*4,  POINTER   :: Ptr4D_r4(:,:,:,:)\n   REAL*8,  POINTER   :: Ptr4D_r8(:,:,:,:)\n\n   ! For species mass conservation\n   LOGICAL            :: update_mixing_ratio\n   REAL*8             :: AirMass\n   REAL*8,  TARGET    :: SpcMass(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n   REAL*8,  POINTER   :: SpcMassPtr(:,:,:)\n\n   !=================================================================\n   ! GET_GC_RESTART begins here!\n   !=================================================================\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! Initialize pointers\n   Ptr2D       => NULL()\n   Ptr3D       => NULL()\n   Ptr3D_r8    => NULL()\n   Ptr4D_r4    => NULL()\n   Ptr4D_r8    => NULL()\n   SpcInfo     => NULL()\n\n   ! Name of this routine\n   LOC = ' -> at Get_GC_Restart (in GeosCore/hco_utilities_gc_mod.F90)'\n\n   ! Set minimum value threshold for [mol/mol]\n   SMALL_NUM = 1.0e-30_fp\n\n   ! Set pointer to species concentrations\n   Spc => State_Chm%Species\n\n   ! Set how to read restart file. HEMCO will always be used to read the restart file\n   ! unless 'read_restart_as_real8: true' is added to the geoschem_config.yml simulation\n   ! menu of GC-Classic. Doing this is only allowed, i.e. will not stop with an error, if:\n   !    1. Simulation is not nested\n   !    2. Simulation is not Hg\n   !    3. Restart file is same grid resolution as the run resolution\n   !    4. Restart file with simulation start date in filename exists\n   ! This option is useful for testing bit-for-bit reproducibility of the model when\n   ! breaking up a run in time since HEMCO only reads in values as REAL4 while fields\n   ! are saved in the restart file and in the model as REAL8\n   Use_HEMCO_for_restart_read = .NOT. Input_Opt%read_restart_as_real8\n   IF ( .NOT. Use_HEMCO_for_restart_read ) THEN\n      IF ( State_Grid%NestedGrid ) THEN\n         CALL GC_Error( 'Nested grid restart files must be read through HEMCO', RC, Loc )\n         RETURN\n      ENDIF\n      IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n         CALL GC_Error( 'Mercury simulation restart files must be read through HEMCO', RC, Loc )\n         RETURN\n      ENDIF\n      IF ( Input_Opt%amIRoot ) print *, \"WARNING: Reading GEOS-Chem restart file as REAL8 locally rather than REAL4 through HEMCO\"\n   ENDIF\n\n   ! FORMAT strings\n500   FORMAT( a                                                              )\n510   FORMAT( a21, ': Min = ', es15.9, '  Max = ', es15.9, '  Sum = ',es15.9 )\n520   FORMAT( a21, ': not found in GEOS-Chem restart file, setting to zero'  )\n530   FORMAT( '   Species ', i3, ', ', a9, ': Min = ', es15.9, ', Max = ', es15.9, '  Sum = ',es15.9 )\n540   FORMAT( '   Species ', i3, ', ', a9, ': not found in restart, setting to background = ', es15.9)\n550   FORMAT( '                           Global mass = ', es15.9 )\n\n   !=================================================================\n   ! Open GEOS-Chem restart file\n   !=================================================================\n\n   ! Write read message to log\n   WRITE( 6, '(a)'   ) REPEAT( '=', 79 )\n   WRITE( 6, '(a,/)' ) 'R E S T A R T   F I L E   I N P U T'\n\n   ! Setup to read restart file locally\n   IF ( .NOT. Use_HEMCO_for_restart_read ) THEN\n\n      ! Directory and file name\n      nc_dir  = './Restarts/'\n      WRITE( DateStr, '(i8.8)' ) Input_Opt%NYMDb\n      WRITE( TimeStr, '(i6.6)' ) Input_Opt%NHMSb\n      nc_file = 'GEOSChem.Restart.' // DateStr // '_' // TimeStr(1:4) // 'z.nc4'\n      nc_path = TRIM( nc_dir ) // TRIM( nc_file )\n\n      ! Test if the file exists\n      INQUIRE( FILE=TRIM( nc_path ), EXIST=FileExists )\n\n      ! Test if the file exists and define an output string\n      IF ( FileExists ) THEN\n         Msg = 'Restart file: Opening'\n      ELSE\n         Msg = 'Restart file: REQUIRED FILE NOT FOUND'\n      ENDIF\n\n      ! Write to stdout for both regular and dry-run simulations\n      IF ( Input_Opt%amIRoot ) THEN\n         WRITE( 6, 300 ) TRIM( Msg ), TRIM( nc_path )\n300      FORMAT( a, ' ', a )\n      ENDIF\n\n      ! For dry-run simulations, return to calling program.\n      ! For regular simulations, throw an error if we can't find the file.\n      IF ( Input_Opt%DryRun ) THEN\n         RETURN\n      ELSE\n         IF ( .not. FileExists ) THEN\n            WRITE( Msg, 300 ) TRIM( Msg ), TRIM( nc_path )\n            CALL GC_Error( Msg, RC, Loc )\n            RETURN\n         ENDIF\n      ENDIF\n\n      ! Open file\n      CALL Ncop_Rd( fId, TRIM(nc_path) )\n\n      ! If we are not using HEMCO to read the restart file, then stop\n      ! the run if the restart file vertical resolution does not match\n      ! the simulation grid vertical resolution.  The algorithm to read\n      ! the restart file as REAL*8 below does not have the capability\n      ! to regrid vertical levels.\n      IF ( .not. Use_HEMCO_for_restart_read ) THEN\n         CALL NcGet_DimLen( fId, 'lev', L )\n         IF ( L /= State_Grid%NZ ) THEN\n            MSG = \"The GEOS-Chem restart file cannot be read as REAL*8 \"  // &\n                  \"for simulations with a different vertical grid than \"  // &\n                  \"the restart file. This is because reading the \"        // &\n                  \"restart file as REAL*8 bypasses HEMCO vertical \"       // &\n                  \"remapping. Please set 'read_restart_as_real8: false' \" // &\n                  \"in your 'geoschem_config.yml' configuration file \"     // &\n                  \"and run your simulation again.\"\n            CALL GC_Error( Msg, RC, Loc )\n            RETURN\n         ENDIF\n      ENDIF\n   ENDIF\n\n   !=========================================================================\n   ! Get delta pressure per grid box stored in restart file to allow mass\n   ! conservation across consecutive runs. Set DP_DRY_PREV to this value\n   ! since it is the delta pressure used to create the restart file rather\n   ! than the current meteorology.\n   !========================================================================\n   v_name_in_hemco = 'DELPDRY'\n   v_name_in_file  = 'Met_DELPDRY'\n\n   IF ( use_HEMCO_for_restart_read ) THEN\n      CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),  &\n           Ptr3D,     RC,         FOUND=FOUND_DELP_DRY )\n   ELSE\n      Temp4D_r8 = 0.0_fp\n      Ptr4D_r8 => Temp4D_r8\n      st4d   = (/  1,  1,  1,  1 /)\n      ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n      CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n      FOUND_DELP_DRY = .TRUE.\n      a_name = \"units\"\n      CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n   ENDIF\n\n   IF ( FOUND_DELP_DRY ) THEN\n      IF ( use_HEMCO_for_restart_read ) THEN\n         State_Met%DP_DRY_PREV = Ptr3D\n      ELSE\n         State_Met%DP_DRY_PREV = Ptr4D_r8(:,:,:,1)\n      ENDIF\n      IF ( Input_Opt%amIRoot ) THEN\n         WRITE( 6, 510 ) ADJUSTL( v_name_in_file   ),         &\n              MINVAL(  State_Met%DP_DRY_PREV ),               &\n              MAXVAL(  State_Met%DP_DRY_PREV ),               &\n              SUM(     State_Met%DP_DRY_PREV )\n      ENDIF\n\n      ! Check if different from current meteorology. If yes, print warning and set flag.\n      IF ( ABS(SUM(State_Met%DP_DRY_PREV) - SUM(State_Met%DELP_DRY)) > 1.d-10 ) THEN\n         update_mixing_ratio = .TRUE.\n         WRITE (6,*) 'WARNING: Layer delta pressures found in the restart file differ from current '\n         WRITE (6,*) 'meteorology. All species concentrations will be scaled by the ratio of '\n         WRITE (6,*) 'restart file delta pressure to input meteorology delta pressure in order '\n         WRITE (6,*) 'to conserve species mass in the restart file. If you wish to avoid this '\n         WRITE (6,*) 'behavior then rerun using a restart file without Met_DELPDRY'\n      ENDIF\n   ELSE\n      WRITE (6,*) 'WARNING: Species mass cannot be computed from restart file concentrations '\n      WRITE (6,*) 'because Met_DELPDRY was not found in the restart file. Species '\n      WRITE (6,*) 'concentrations [mol/mol] in the restart file will be used in the first'\n      WRITE (6,*) 'timestep. No scaling will be done to conserve restart file mass.'\n   ENDIF\n\n   ! Nullify pointer\n   Ptr3D => NULL()\n   Ptr4D_r8 => NULL()\n\n   !=================================================================\n   ! Read species concentrations from NetCDF or use default\n   ! background [mol/mol]\n   !=================================================================\n\n   ! Print header for min/max concentration to log\n   WRITE( 6, 110 )\n110 FORMAT( 'Min, max, and sum of each species in restart file [mol/mol], plus global mass if delta pressure found in file:' )\n\n   ! Loop over species\n   DO N = 1, State_Chm%nSpecies\n\n      ! Initialize species concentration to all zeroes\n      Spc(N)%Conc = 0.e+0_fp\n\n      ! Get info about this species from the species database\n      SpcInfo => State_Chm%SpcData(N)%Info\n\n      ! Define variable name\n      v_name_in_hemco = 'SPC_' // TRIM( SpcInfo%Name )\n      v_name_in_file  = 'SpeciesRst_' // TRIM( SpcInfo%Name )\n\n      ! Initialize temporary array for this species and point to it\n      Temp3D = 0.0_fp\n      Ptr3D => Temp3D\n\n      If ( use_HEMCO_for_restart_read ) THEN\n\n         ! Get variable from HEMCO and store in local array\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name_in_hemco), &\n              Ptr3D,     RC,         FOUND=FOUND )\n\n      ELSE\n\n         ! Check if variable in file\n         ierr = NF90_Inq_VarId(fId, TRIM(v_name_in_file), varid)\n         IF (ierr /= NF90_NOERR) THEN\n            FOUND = .FALSE.\n         ELSE\n            ! Read from file\n            Temp4D_r8 = 0.0_fp\n            Ptr4D_r8 => Temp4D_r8\n            st4d   = (/  1,  1,  1,  1 /)\n            ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n            CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n            FOUND = .TRUE.\n\n            ! Read the units attribute\n            a_name = \"units\"\n            CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n         ENDIF\n\n      ENDIF\n\n      ! Check if species data is in file\n      IF ( FOUND ) THEN\n         SpcInfo%Is_InRestart = .TRUE.\n      ELSE\n         SpcInfo%Is_InRestart = .FALSE.\n      ENDIF\n\n      ! If data is in file, read in as [mol/mol]. Otherwise, set to\n      ! background value [mol/mol] either stored in species database\n      ! (advected species all levels and non-advected species levels\n      ! in the chemistry grid) or a small number (non-advected species\n      ! levels above the chemistry grid).\n      IF ( SpcInfo%Is_InRestart ) THEN\n\n         ! Set the mol/mol mixing ratio from the restart file\n         IF ( use_HEMCO_for_restart_read ) THEN\n            Spc(N)%Conc = Ptr3D\n         ELSE\n            Spc(N)%Conc = Ptr4D_r8(:,:,:,1)\n         ENDIF\n\n         ! Print the min, max, and sum of each species in mol/mol\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 530 ) N, TRIM( SpcInfo%Name ),               &\n                 MINVAL( Spc(N)%Conc ), MAXVAL( Spc(N)%Conc ), SUM ( Spc(N)%Conc )\n         ENDIF\n\n         ! If DELP_DRY was found in the restart file:\n         !    1. Compute and print species global mass in file\n         !    2. Update mixing ratio to conserve mass if file delta pressure\n         !       differs from current meteorology\n         IF ( FOUND_DELP_DRY ) THEN\n\n            ! Also print mass based on restart file mixing ratio and meteorology\n            SpcMass = 0.d0\n            SpcMassPtr => SpcMass\n            !$OMP PARALLEL DO                 &\n            !$OMP DEFAULT( SHARED           ) &\n            !$OMP PRIVATE( I, J, L, AirMass ) &\n            !$OMP COLLAPSE( 3 )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               AirMass = State_Met%DP_DRY_PREV(I,J,L) * G0_100  &\n                    * State_Met%AREA_M2(I,J)\n               SpcMassPtr(I,J,L) = Spc(N)%Conc(I,J,L) * AirMass  &\n                    / ( AIRMW / State_Chm%SpcData(N)%Info%MW_g )\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n            WRITE(6,550) SUM( SpcMassPtr )\n            SpcMassPtr => NULL()\n\n            ! Update mixing ratio to conserve mass if current pressure different\n            ! from restart file pressure\n            IF ( update_mixing_ratio ) THEN\n               ! Update concentrations\n               !$OMP PARALLEL DO        &\n               !$OMP DEFAULT( SHARED  ) &\n               !$OMP PRIVATE( I, J, L ) &\n               !$OMP COLLAPSE( 3 )\n               DO L = 1, State_Grid%NZ\n               DO J = 1, State_Grid%NY\n               DO I = 1, State_Grid%NX\n                  Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L)   &\n                       * State_Met%DP_DRY_PREV(I,J,L) / State_Met%DELP_DRY(I,J,L)\n               ENDDO\n               ENDDO\n               ENDDO\n               !$OMP END PARALLEL DO\n            ENDIF\n\n         ENDIF\n\n      ELSE\n\n         ! Set species to the background value\n         !$OMP PARALLEL DO       &\n         !$OMP DEFAULT( SHARED ) &\n         !$OMP PRIVATE( I, J, L )\n         ! Loop over all grid boxes\n         DO L = 1, State_Grid%NZ\n         DO J = 1, State_Grid%NY\n         DO I = 1, State_Grid%NX\n\n            ! For non-advected species at levels above chemistry grid,\n            ! use a small number for background\n            IF ( L > State_Met%MaxChemLev .and. &\n                     .NOT. SpcInfo%Is_Advected ) THEN\n\n               Spc(N)%Conc(I,J,L) = SMALL_NUM\n\n            ! For all other cases, use the background value\n            ! stored in the species database\n            ELSE\n\n               Spc(N)%Conc(I,J,L) = SpcInfo%BackgroundVV\n\n               ! Print to log a warning that background values will be used\n               IF ( Input_Opt%amIRoot .AND. &\n                    I == 1 .AND. J == 1 .AND. L == 1 ) THEN\n                  WRITE( 6, 540 ) N, TRIM( SpcInfo%Name ), SpcInfo%BackgroundVV\n               ENDIF\n\n\n            ENDIF\n\n         ENDDO\n         ENDDO\n         ENDDO\n         !$OMP END PARALLEL DO\n\n#ifdef APM\n         !================================================================\n         ! APM MICROPHYSICS\n         !================================================================\n         WRITE(*,*)'APM run does not find '// TRIM( SpcInfo%Name ),N\n         IF(SpcInfo%Name(1:9)=='APMSPBIN2')THEN\n            !$OMP PARALLEL DO        &\n            !$OMP DEFAULT( SHARED  ) &\n            !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very\n               ! low\n               Spc(N)%Conc(I,J,L) = &\n               Spc(APMIDS%id_SO4)%Conc(I,J,L)/20.D0\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n           IF(SpcInfo%Name(1:9)=='APMSPBIN3')THEN\n              !$OMP PARALLEL DO        &\n              !$OMP DEFAULT( SHARED  ) &\n              !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very\n               ! low\n               Spc(N)%Conc(I,J,L) = &\n               Spc(APMIDS%id_SO4)%Conc(I,J,L)/20.D0\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n           !GanLuotest\n           IF(SpcInfo%Name(1:10)=='APMSEABIN0')THEN\n              !$OMP PARALLEL DO        &\n              !$OMP DEFAULT( SHARED  ) &\n              !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very\n               ! low\n               Spc(N)%Conc(I,J,L) = &\n               Spc(APMIDS%id_SALA)%Conc(I,J,L)/9.D0\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n           IF(SpcInfo%Name(1:10)=='APMSEABIN1')THEN\n              !$OMP PARALLEL DO        &\n              !$OMP DEFAULT( SHARED  ) &\n              !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very\n               ! low\n               Spc(N)%Conc(I,J,L) = &\n               Spc(APMIDS%id_SALC)%Conc(I,J,L)/10.D0\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n           IF(SpcInfo%Name(1:10)=='APMDSTBIN1')THEN\n              !$OMP PARALLEL DO        &\n              !$OMP DEFAULT( SHARED  ) &\n              !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very low\n               Spc(N)%Conc(I,J,L) =                                          &\n                 (  Spc(APMIDS%id_GC_DSTbin1)%Conc(I,J,L)                    &\n                  + Spc(APMIDS%id_GC_DSTbin2)%Conc(I,J,L)                    &\n                  + Spc(APMIDS%id_GC_DSTbin3)%Conc(I,J,L)                    &\n                  + Spc(APMIDS%id_GC_DSTbin4)%Conc(I,J,L)                    &\n                  + Spc(APMIDS%id_GC_DSTbin5)%Conc(I,J,L)                    &\n                  + Spc(APMIDS%id_GC_DSTbin6)%Conc(I,J,L)                    &\n                  + Spc(APMIDS%id_GC_DSTbin7)%Conc(I,J,L) )/6.D0\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n           IF(SpcInfo%Name(1:8)=='APMBCBIN')THEN\n              !$OMP PARALLEL DO        &\n              !$OMP DEFAULT( SHARED  ) &\n              !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very low\n               Spc(N)%Conc(I,J,L) = 1.D-30\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n           IF(SpcInfo%Name(1:8)=='APMOCBIN')THEN\n              !$OMP PARALLEL DO        &\n              !$OMP DEFAULT( SHARED  ) &\n              !$OMP PRIVATE( I, J, L )\n            DO L = 1, State_Grid%NZ\n            DO J = 1, State_Grid%NY\n            DO I = 1, State_Grid%NX\n               ! Apply minimum value threshold where input conc is very low\n               Spc(N)%Conc(I,J,L) = 1.D-30\n            ENDDO\n            ENDDO\n            ENDDO\n            !$OMP END PARALLEL DO\n           ENDIF\n#endif\n      ENDIF\n\n      ! Set the initial unit flags\n      State_Chm%Species(N)%Units = MOLES_SPECIES_PER_MOLES_DRY_AIR\n\n      ! Free pointer\n      SpcInfo => NULL()\n\n   ENDDO\n\n   !=========================================================================\n   ! Get variables for KPP mechanisms (right now just fullchem and Hg)\n   !=========================================================================\n   IF ( ( Input_Opt%ITS_A_FULLCHEM_SIM .or.                                  &\n          Input_Opt%ITS_A_MERCURY_SIM        ) .and. Input_Opt%LCHEM ) THEN\n\n      !----------------------------------------------------------------------\n      ! KPP_HVALUE (count of internal timesteps at each grid box)\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'KPP_HVALUE'\n      v_name_in_file = 'Chem_KPPHvalue'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr3D,     RC,         FOUND=FOUND )\n      ELSE\n         Temp4D_r8 = 0.0_fp\n         Ptr4D_r8 => Temp4D_r8\n         st4d   = (/  1,  1,  1,  1 /)\n         ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n         CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%KPPHvalue = Ptr3D\n         ELSE\n            State_Chm%KPPHvalue = Ptr4D_r8(:,:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file      ),                  &\n                            MINVAL(  State_Chm%KPPHvalue ),                  &\n                            MAXVAL(  State_Chm%KPPHvalue ),                  &\n                            SUM(     State_Chm%KPPHvalue )\n         ENDIF\n      ELSE\n         State_Chm%KPPHvalue = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr3D => NULL()\n      Ptr4D_r8 => NULL()\n\n   ENDIF\n\n   !=========================================================================\n   ! Get variables for Soil NOx emissions\n   !=========================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !----------------------------------------------------------------------\n      ! WETDEP_N (wet-deposited nitrogen)\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'WETDEP_N'\n      v_name_in_file  = 'Chem_WetDepNitrogen'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr2D,     RC,         FOUND=FOUND )\n      ELSE\n         Temp3D_r8 = 0.0_fp\n         Ptr3D_r8 => Temp3D_r8\n         st3d   = (/  1,  1,  1  /)\n         ct3d   = (/ State_Grid%NX, State_Grid%NY, 1 /)\n         CALL NcRd( Ptr3D_r8, fId, TRIM(v_name_in_file), st3d, ct3d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%WetDepNitrogen = Ptr2D\n         ELSE\n            State_Chm%WetDepNitrogen = Ptr3D_r8(:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file           ),             &\n                            MINVAL(  State_Chm%WetDepNitrogen ),             &\n                            MAXVAL(  State_Chm%WetDepNitrogen ),             &\n                            SUM(     State_Chm%WetDepNitrogen )\n         ENDIF\n      ELSE\n         State_Chm%WetDepNitrogen = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) TRIM( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr2D => NULL()\n      Ptr3D_r8 => NULL()\n\n      !----------------------------------------------------------------------\n      ! DRYDEP_N (dry-deposited nitrogen)\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'DRYDEP_N'\n      v_name_in_file  = 'Chem_DryDepNitrogen'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr2D,     RC,         FOUND=FOUND )\n      ELSE\n         Temp3D_r8 = 0.0_fp\n         Ptr3D_r8 => Temp3D_r8\n         st3d   = (/  1,  1,  1 /)\n         ct3d   = (/ State_Grid%NX, State_Grid%NY, 1 /)\n         CALL NcRd( Ptr3D_r8, fId, TRIM(v_name_in_file), st3d, ct3d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%DryDepNitrogen = Ptr2D\n         ELSE\n            State_Chm%DryDepNitrogen = Ptr3D_r8(:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file           ),             &\n                            MINVAL(  State_Chm%DryDepNitrogen ),             &\n                            MAXVAL(  State_Chm%DryDepNitrogen ),             &\n                            SUM(     State_Chm%DryDepNitrogen )\n         ENDIF\n      ELSE\n         State_Chm%DryDepNitrogen = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr2D => NULL()\n      Ptr3D_r8 => NULL()\n\n   ENDIF\n\n   !=========================================================================\n   ! Read variables for sulfate chemistry and aerosols\n   !=========================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &\n        Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n      !----------------------------------------------------------------------\n      ! H2O2_AFTERCHEM\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'H2O2_AFTERCHEM'\n      v_name_in_file = 'Chem_H2O2AfterChem'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr3D,     RC,         FOUND=FOUND                )\n      ELSE\n         Temp4D_r8 = 0.0_fp\n         Ptr4D_r8 => Temp4D_r8\n         st4d   = (/  1,  1,  1,  1 /)\n         ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n         CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%H2O2AfterChem = Ptr3D\n         ELSE\n            State_Chm%H2O2AfterChem = Ptr4D_r8(:,:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file          ),              &\n                            MINVAL(  State_Chm%H2O2AfterChem ),              &\n                            MAXVAL(  State_Chm%H2O2AfterChem ),              &\n                            SUM(     State_Chm%H2O2AfterChem )\n        ENDIF\n      ELSE\n         State_Chm%H2O2AfterChem = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr3D => NULL()\n      Ptr4D_r8 => NULL()\n\n      !----------------------------------------------------------------------\n      ! SO2_AFTERCHEM\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'SO2_AFTERCHEM'\n      v_name_in_file  = 'Chem_SO2AfterChem'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr3D,     RC,         FOUND=FOUND                )\n      ELSE\n         Temp4D_r8 = 0.0_fp\n         Ptr4D_r8 => Temp4D_r8\n         st4d   = (/  1,  1,  1,  1 /)\n         ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n         CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%SO2AfterChem = Ptr3D\n         ELSE\n            State_Chm%SO2AfterChem = Ptr4D_r8(:,:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file         ),               &\n                            MINVAL(  State_Chm%SO2AfterChem ),               &\n                            MAXVAL(  State_Chm%SO2AfterChem ),               &\n                            SUM(     State_Chm%SO2AfterChem )\n         ENDIF\n      ELSE\n         State_Chm%SO2AfterChem = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr3D => NULL()\n      Ptr4D_r8 => NULL()\n\n      !----------------------------------------------------------------------\n      ! AeroH2O_SNA\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'AEROH2O_SNA'\n      v_name_in_file  = 'Chem_AeroH2OSNA'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr3D,     RC,         FOUND=FOUND                )\n      ELSE\n         Temp4D_r8 = 0.0_fp\n         Ptr4D_r8 => Temp4D_r8\n         st4d   = (/  1,  1,  1,  1 /)\n         ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n         CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%AeroH2O(:,:,:,NDUST+1) = Ptr3D\n         ELSE\n            State_Chm%AeroH2O(:,:,:,NDUST+1) = Ptr4D_r8(:,:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file                   ),     &\n                            MINVAL(  State_Chm%AeroH2O(:,:,:,NDUST+1) ),     &\n                            MAXVAL(  State_Chm%AeroH2O(:,:,:,NDUST+1) ),     &\n                            SUM(     State_Chm%AeroH2O(:,:,:,NDUST+1) )\n         ENDIF\n      ELSE\n         State_Chm%AeroH2O(:,:,:,NDUST+1) = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr3D => NULL()\n      Ptr4D_r8 => NULL()\n\n      !----------------------------------------------------------------------\n      ! ORVCsesq\n      !----------------------------------------------------------------------\n      IF ( Input_Opt%LCARB .AND. Input_Opt%LSOA ) THEN\n\n         v_name_in_hemco = 'ORVCSESQ'\n         v_name_in_file  = 'Chem_ORVCsesq'\n\n         IF ( use_HEMCO_for_restart_read ) THEN\n            CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), &\n                 Ptr3D,     RC,         FOUND=FOUND             )\n         ELSE\n            Temp4D_r8 = 0.0_fp\n            Ptr4D_r8 => Temp4D_r8\n            st4d   = (/  1,  1,  1,  1 /)\n            ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n            CALL NcRd( Ptr4D_r8, fId, TRIM(v_name_in_file), st4d, ct4d )\n            FOUND = .TRUE.\n            a_name = \"units\"\n            CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n         ENDIF\n\n         ! Check if variable is in file\n         IF ( FOUND ) THEN\n            IF ( use_HEMCO_for_restart_read ) THEN\n               State_Chm%ORVCsesq(:,:,:) = Ptr3D\n            ELSE\n               State_Chm%ORVCsesq(:,:,:) = Ptr4D_r8(:,:,:,1)\n            endif\n            IF ( Input_Opt%amIRoot ) THEN\n               WRITE( 6, 510 ) ADJUSTL( v_name_in_file            ),     &\n                               MINVAL(  State_Chm%ORVCsesq(:,:,:) ),     &\n                               MAXVAL(  State_Chm%ORVCsesq(:,:,:) ),     &\n                               SUM(     State_Chm%ORVCsesq(:,:,:) )\n            ENDIF\n         ELSE\n            State_Chm%ORVCsesq(:,:,:) = 0.0_fp\n            IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n         ENDIF\n\n         ! Nullify pointer\n         Ptr3D => NULL()\n         Ptr4D_r8 => NULL()\n\n      ENDIF\n\n   ENDIF\n\n   !=========================================================================\n   ! Read variables for UCX and the HEMCO PARANOx extension\n   !=========================================================================\n   IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n      !----------------------------------------------------------------------\n      ! STATE_PSC (needed to initialize UCX)\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'STATE_PSC'\n      v_name_in_file  = 'Chem_StatePSC'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr3D,     RC,         FOUND=FOUND                )\n      ELSE\n         Temp4D_r4 = 0.0_fp\n         Ptr4D_r4 => Temp4D_r4\n         st4d   = (/  1,  1,  1,  1 /)\n         ct4d   = (/ State_Grid%NX, State_Grid%NY, State_Grid%NZ, 1 /)\n         CALL NcRd( Ptr4D_r4, fId, TRIM(v_name_in_file), st4d, ct4d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%STATE_PSC = Ptr3D\n         ELSE\n            State_Chm%STATE_PSC = Ptr4D_r4(:,:,:,1)\n         ENDIF\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file      ),                  &\n                            MINVAL(  State_Chm%STATE_PSC ),                  &\n                            MAXVAL(  State_Chm%STATE_PSC ),                  &\n                            SUM(     State_Chm%STATE_PSC )\n\n         ENDIF\n      ELSE\n         IF ( Input_Opt%amIRoot ) THEN\n#ifdef ESMF_\n            ! ExtData and HEMCO behave ambiguously - if the file was found\n            ! but was full of zeros throughout the domain of interest, it\n            ! will result in the same output from ExtData as if the field\n            ! was missing from the file. As such, HEMCO cannot distinguish\n            ! between a missing file and a field of zeros\n            WRITE(6,*) 'PSC restart either all zeros in the '\n            WRITE(6,*) 'root domain, or the restart file did '\n            WRITE(6,*) 'not contain STATE_PSC. Root domain '\n            WRITE(6,*) 'will be initialized PSC-free'\n         ENDIF\n#else\n            WRITE( 6, 500 ) &\n               'STATE_PSC not found in restart, initialize PSC-free'\n         ENDIF\n#endif\n      ENDIF\n\n      ! Nullify pointer\n      Ptr3D => NULL()\n      Ptr4D_r8 => NULL()\n\n      !----------------------------------------------------------------------\n      ! JOH (needed to initialize PARANOx)\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'JOH'\n      v_name_in_file  = 'Chem_JOH'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr2D,     RC,         FOUND=FOUND                )\n      ELSE\n         Temp3D_r8 = 0.0_fp\n         Ptr3D_r8 => Temp3D_r8\n         st3d   = (/  1,  1,  1 /)\n         ct3d   = (/ State_Grid%NX, State_Grid%NY, 1 /)\n         CALL NcRd( Ptr3D_r8, fId, TRIM(v_name_in_file), st3d, ct3d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%JOH = Ptr2D\n         ELSE\n            State_Chm%JOH = Ptr3D_r8(:,:,1)\n         endif\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file ),                       &\n                            MINVAL(  State_Chm%JOH ),                        &\n                            MAXVAL(  State_Chm%JOH ),                        &\n                            SUM(     State_Chm%JOH )\n         ENDIF\n      ELSE\n         State_Chm%JOH = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n\n      ! Nullify pointer\n      Ptr2D => NULL()\n      Ptr3D_r8 => NULL()\n\n      !----------------------------------------------------------------------\n      ! JNO2 (needed to initialize PARANOx)\n      !----------------------------------------------------------------------\n      v_name_in_hemco = 'JNO2'\n      v_name_in_file  = 'Chem_JNO2'\n\n      IF ( use_HEMCO_for_restart_read ) THEN\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ),    &\n              Ptr2D,     RC,         FOUND=FOUND                )\n      ELSE\n         Temp3D_r8 = 0.0_fp\n         Ptr3D_r8 => Temp3D_r8\n         st3d   = (/  1,  1,  1 /)\n         ct3d   = (/ State_Grid%NX, State_Grid%NY, 1 /)\n         CALL NcRd( Ptr3D_r8, fId, TRIM(v_name_in_file), st3d, ct3d )\n         FOUND = .TRUE.\n         a_name = \"units\"\n         CALL NcGet_Var_Attributes( fId,TRIM(v_name_in_file),TRIM(a_name),a_val )\n      ENDIF\n\n      ! Check if variable is in file\n      IF ( FOUND ) THEN\n         IF ( use_HEMCO_for_restart_read ) THEN\n            State_Chm%JNO2 = Ptr2D\n         ELSE\n            State_Chm%JNO2 = Ptr3D_r8(:,:,1)\n         endif\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 510 ) ADJUSTL( v_name_in_file ),                       &\n                            MINVAL(  State_Chm%JNO2 ),                       &\n                            MAXVAL(  State_Chm%JNO2 ),                       &\n                            SUM(     State_Chm%JNO2 )\n         ENDIF\n      ELSE\n         State_Chm%JNO2 = 0.0_fp\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file )\n      ENDIF\n      ! Nullify pointer\n      Ptr2D => NULL()\n      Ptr3D_r8 => NULL()\n\n   ENDIF\n\n   !=========================================================================\n   ! Read ocean mercury variables\n   !=========================================================================\n   IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n      ! Print total mass to log\n      WRITE( 6, 220 )\n220   FORMAT(/, 'Total mass of each ocean and snow Hg species:')\n\n      !----------------------------------------------------------------------\n      ! Total Hg in ocean\n      !----------------------------------------------------------------------\n      DO M = 1, 3\n\n         ! Define variable name\n         SELECT CASE( M )\n           CASE ( 1 )\n              HgSpc    = 'Hg0'\n           CASE ( 2 )\n              HgSpc    = 'Hg2'\n           CASE ( 3 )\n              HgSpc    = 'HgP'\n         END SELECT\n         v_name_in_hemco = 'OCEAN_' // TRIM( HgSpc )\n\n         ! Get variable from HEMCO and store in local array\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), &\n                             Ptr2D,     RC,         FOUND=FOUND             )\n\n         ! Check if variable is in file\n         IF ( FOUND ) THEN\n\n            ! Check for negative concentrations (jaf, 7/6/11)\n            DO I = 1, State_Grid%NX\n            DO J = 1, State_Grid%NY\n               IF ( Ptr2D(I,J) < 0.0d4 ) THEN\n                  Ptr2D(I,J) = 0.0d4\n               ENDIF\n            ENDDO\n            ENDDO\n\n            ! Assign ocean mercury data and write total mass to log file\n            SELECT CASE( M )\n               CASE ( 1 )\n                  State_Chm%OceanHg0 = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco ),        &\n                                  SUM( State_Chm%OceanHg0 ), 'kg'\n               CASE ( 2 )\n                  State_Chm%OceanHg2 = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco ),        &\n                                  SUM( State_Chm%OceanHg2 ), 'kg'\n               CASE ( 3 )\n                  State_Chm%OceanHgP = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco ),        &\n                                  SUM( State_Chm%OceanHgP ), 'kg'\n            END SELECT\n\n         ELSE\n            WRITE( 6, 230 ) TRIM( v_name_in_hemco )\n         ENDIF\n\n         ! Nullify pointer\n         Ptr2D => NULL()\n\n      ENDDO\n\n      !--------------------------------------------------------------\n      ! Hg snowpack on land and ocean\n      !--------------------------------------------------------------\n      DO M = 1, 4\n\n         ! Define variable name prefix\n         SELECT CASE( M )\n            CASE ( 1 )\n               Prefix = 'SNOW_HG_OCEAN'        ! Reducible on ocean\n            CASE ( 2 )\n               Prefix = 'SNOW_HG_OCEAN_STORED' ! Non-reducible on ocean\n            CASE ( 3 )\n               Prefix = 'SNOW_HG_LAND'         ! Reducible on land\n            CASE ( 4 )\n               Prefix = 'SNOW_HG_LAND_STORED'  ! Non-reducible on land\n         END SELECT\n\n         v_name_in_hemco = TRIM( Prefix )\n\n         ! Get variable from HEMCO and store in local array\n         CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), &\n                             Ptr2D,     RC,         FOUND=FOUND             )\n\n         ! Check if variable is in file\n         IF ( FOUND ) THEN\n\n            ! Assign ocean mercury data and write total mass to file\n            SELECT CASE( M )\n               CASE ( 1 )\n                  State_Chm%SnowHgOcean = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco            ),        &\n                                  SUM( State_Chm%SnowHgOcean       ), 'kg'\n               CASE ( 2 )\n                  State_Chm%SnowHgOceanStored = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco            ),        &\n                                  SUM( State_Chm%SnowHgOceanStored ),'kg'\n               CASE ( 3 )\n                  State_Chm%SnowHgLand = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco            ),        &\n                                  SUM( State_Chm%SnowHgLand        ), 'kg'\n               CASE ( 4 )\n                  State_Chm%SnowHgLandStored = Ptr2D\n                  WRITE( 6, 240 ) TRIM( v_name_in_hemco            ),        &\n                                  SUM( State_Chm%SnowHgLandStored  ), 'kg'\n               END SELECT\n\n         ELSE\n            WRITE( 6, 230 ) TRIM( v_name_in_hemco )\n         ENDIF\n\n      ENDDO\n\n      ! Format strings\n230   FORMAT( a24, ' not found in restart file, set to zero')\n240   FORMAT( a24, ':   ', es15.9, 1x, a4)\n\n   ENDIF\n\n   !=================================================================\n   ! Clean up\n   !=================================================================\n\n   ! Free pointer\n   Spc => NULL()\n\n   ! Mark end of section in log\n   IF ( Input_Opt%Verbose .AND. Input_Opt%amIRoot ) THEN\n      CALL DEBUG_MSG('### DONE GET_GC_RESTART')\n   ENDIF\n   WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n END SUBROUTINE Get_GC_Restart\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_boundary_conditions\n!\n! !DESCRIPTION: Subroutine GET\\_BOUNDARY\\_CONDITIONS calls the various routines\n! to get boundary conditions from HEMCO for nested grid simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, &\n                                     State_Met, YYYYMMDD,  HHMMSS, RC )\n!\n! ! USES:\n!\n   USE ErrCode_Mod\n   USE HCO_State_GC_Mod, ONLY : HcoState\n   USE Input_Opt_Mod,    ONLY : OptInput\n   USE PhysConstants,    ONLY : AIRMW\n   USE Species_Mod,      ONLY : Species\n   USE State_Chm_Mod,    ONLY : ChmState\n   USE State_Grid_Mod,   ONLY : GrdState\n   USE State_Met_Mod,    ONLY : MetState\n   USE Time_Mod\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput),   INTENT(IN   )          :: Input_Opt  ! Input options\n   TYPE(GrdState),   INTENT(IN   )          :: State_Grid ! Grid State\n   INTEGER,          INTENT(IN   )          :: YYYYMMDD   ! GMT date\n   INTEGER,          INTENT(IN   )          :: HHMMSS     ! GMT time\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(MetState),   INTENT(INOUT)          :: State_Met  ! Meteorology State\n   TYPE(ChmState),   INTENT(INOUT)          :: State_Chm  ! Chemistry State\n   INTEGER,          INTENT(INOUT)          :: RC         ! Failure or success\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  14 Apr 2019 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER              :: I, J, L, N, NA     ! lon, lat, lev, spc indexes\n   INTEGER              :: t_index            ! Time index\n   LOGICAL              :: FOUND              ! Found in restart file?\n   LOGICAL, SAVE        :: FIRST = .TRUE.     ! Is this the first routine call?\n   CHARACTER(LEN=60)    :: Prefix             ! utility string\n   CHARACTER(LEN=255)   :: LOC                ! routine location\n   CHARACTER(LEN=255)   :: MSG                ! message\n   CHARACTER(LEN=255)   :: v_name_in_hemco    ! variable name\n   REAL(fp)             :: MW_g               ! species molecular weight\n   CHARACTER(LEN=16)    :: STAMP\n\n   ! Temporary arrays and pointers\n   REAL*4,  TARGET        :: Temp3D(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n   REAL*4,  POINTER       :: Ptr3D(:,:,:)\n\n   ! Objects\n   TYPE(Species), POINTER :: SpcInfo\n\n   !=================================================================\n   ! GET_BOUNDARY_CONDITIONS begins here!\n   !=================================================================\n\n   ! Assume success\n   RC        = GC_SUCCESS\n\n   ! We only need to get boundary conditions if this is a nested-grid\n   ! simulation.  Otherwise the BoundaryCond field won't be allocated.\n   IF ( .not. State_Grid%NestedGrid ) RETURN\n\n   ! Initialize pointers\n   Ptr3D     => NULL()\n   SpcInfo   => NULL()\n\n   ! Name of this routine\n   LOC = ' -> at Get_Boundary_Conditions (in GeosCore/hco_utilities_gc_mod.F90)'\n\n   ! Find the proper time-slice to read from disk\n   t_index = ( HHMMSS / 030000 ) + 1\n\n   ! Stop w/ error if the time index is invalid\n   IF ( t_index < 1 .or. t_index > 8 ) THEN\n      WRITE( MSG, 100 ) t_index\n100   FORMAT( 'Time_index value ', i5, ' must be in the range 1 to 8!' )\n      CALL GC_Error( MSG, RC, LOC)\n      RETURN\n   ENDIF\n\n   !=================================================================\n   ! Read species concentrations from NetCDF [mol/mol] and\n   ! store in State_Chm%BoundaryCond\n   !=================================================================\n\n   ! Print header for min/max concentration to log\n   IF ( Input_Opt%amIRoot .AND. (FIRST .or. Input_Opt%Verbose) ) THEN\n      WRITE( 6, 110 )\n110   FORMAT( 'Min and Max of each species in BC file [mol/mol]:' )\n   ENDIF\n\n   ! Initialize BCs to all zeroes\n   State_Chm%BoundaryCond = 0.e+0_fp\n\n   ! Loop over advected species\n   DO NA = 1, State_Chm%nAdvect\n\n      ! Get the species ID from the advected species ID\n      N = State_Chm%Map_Advect(NA)\n\n      ! Get info about this species from the species database\n      SpcInfo => State_Chm%SpcData(N)%Info\n      MW_g    =  SpcInfo%MW_g\n\n      ! Define variable name\n      v_name_in_hemco = 'BC_' // TRIM( SpcInfo%Name )\n\n      ! Initialize temporary array for this species and point to it\n      Temp3D = 0.0_fp\n      Ptr3D => Temp3D\n\n      ! Get variable from HEMCO and store in local array\n      CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name_in_hemco), Ptr3D, RC, &\n                       TIDX=t_index, FOUND=FOUND )\n\n      ! Check if BCs are found\n      IF ( FOUND ) THEN\n\n         ! Print the min & max of each species as it is read from\n         ! the BC file in mol/mol if debug is turned on in geoschem_config.yml\n         IF ( Input_Opt%amIRoot ) THEN\n            IF ( FIRST .or. Input_Opt%Verbose ) THEN\n               WRITE( 6, 120 ) N, TRIM( SpcInfo%Name ), &\n                               MINVAL( Ptr3D ), MAXVAL( Ptr3D )\n120            FORMAT( 'Species ', i3, ', ', a8, ': Min = ', es15.9, &\n                       '  Max = ',es15.9)\n            ENDIF\n         ENDIF\n\n         ! Copy data from file to State_Chm%BoundaryCond\n         ! and convert from [mol/mol] to [kg/kg dry]\n         State_Chm%BoundaryCond(:,:,:,N) = Ptr3D(:,:,:) * MW_g / AIRMW\n\n         ! Debug\n         ! Print*, 'BCs found for ', TRIM( SpcInfo%Name ), &\n         !         MINVAL(State_Chm%BoundaryCond(:,:,:,N)), &\n         !         MAXVAL(State_Chm%BoundaryCond(:,:,:,N)), &\n         !         SUM(State_Chm%BoundaryCond(:,:,:,N))\n\n      ELSE\n\n         ! Print to log if debug is turned on in geoschem_config.yml\n         IF ( Input_Opt%amIRoot ) THEN\n            IF ( FIRST .or. Input_Opt%Verbose ) THEN\n               WRITE( 6, 130 ) N, TRIM( SpcInfo%Name ), SpcInfo%BackgroundVV\n130            FORMAT('Species ', i3, ', ', a9, ': Use background = ', es15.9)\n            ENDIF\n         ENDIF\n\n         ! Use the background value stored in the species database [mol/mol]\n         State_Chm%BoundaryCond(:,:,:,N) = SpcInfo%BackgroundVV\n\n      ENDIF\n\n      ! Free pointer\n      SpcInfo => NULL()\n\n      ! Each time the boundary conditions are read, they have no longer been perturbed\n      ! This value is sometimes set to True in set_boundary_conditions_mod.F90\n      IF ( Input_Opt%ITS_A_CARBON_SIM                 .AND. & \n           Input_Opt%DoPerturbCH4BoundaryConditions ) THEN\n        State_Chm%IsCH4BCPerturbed = .FALSE.\n      ENDIF\n\n   ENDDO\n\n   ! Reset FIRST flag\n   FIRST = .FALSE.\n\n   ! Echo output\n   IF ( Input_Opt%amIRoot ) THEN\n      STAMP = TIMESTAMP_STRING()\n      WRITE( 6, * ) 'GET_BOUNDARY_CONDITIONS: Done reading BCs at ', STAMP, ' using ', HHMMSS, t_index\n   ENDIF\n\n END SUBROUTINE Get_Boundary_Conditions\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Regrid_HCO2MDL\n!\n! !DESCRIPTION: Subroutine Regrid\\_HCO2MDL is a buffer function to regrid a given\n!  field described on the HEMCO intermediate grid (\"IMGrid\") to the GEOS-Chem model\n!  grid. Only horizontal interpolation is performed via Regrid\\_A2A.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Regrid_HCO2MDL ( Input_Opt, State_Grid, State_Grid_HCO, &\n                              PtrIn,     PtrOut,     ZBND, Debug )\n!\n! !USES:\n!\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE Regrid_A2A_Mod,    ONLY : Map_A2A\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )     :: Input_Opt        ! Input opts\n    TYPE(GrdState),   INTENT(IN   )     :: State_Grid       ! Grid state\n    TYPE(GrdState),   INTENT(IN   )     :: State_Grid_HCO   ! Optional, HEMCO intermediate\n    REAL(hp),         INTENT(IN   )     :: PtrIn (:,:,:)    ! 3-D input data\n    INTEGER, OPTIONAL,INTENT(IN   )     :: ZBND             ! z-level bounds of data\n    LOGICAL, OPTIONAL,INTENT(IN   )     :: Debug            ! For debugging\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(hp),         INTENT(  OUT)     :: PtrOut(:,:,:)    ! 3-D output data\n!\n! !REMARKS:\n!  Usually, the regridded quantities are stored in the array temporaries in this module,\n!  so PtrOut should be a pointer array temporary here.\n!  This module is NOT multiple domain safe and should be kept to MODEL\\_CLASSIC only.\n!\n!  For some cases, the PtrOut may point to a pointer array allocated somewhere else.\n!\n!  If ZBND is optionally specified, the regridding operation is capped up to the\n!  given bound. This is usually used for 2-D data but may also limit useless regridding\n!  beyond the pointer size. The array temporaries in the module are usually always\n!  allocated to the model top to save memory thrashing, but we also do not want to\n!  sacrifice compute.\n!\n! !REVISION HISTORY:\n!  03 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                             :: NZ, L\n    LOGICAL                             :: DBG\n\n    IF ( PRESENT( ZBND ) ) THEN\n      NZ = MIN(ZBND, State_Grid%NZ+1)                ! May be equal to NZ+1 maximum\n    ELSE\n      NZ = State_Grid%NZ\n    ENDIF\n\n    IF ( PRESENT( Debug ) ) THEN\n      DBG = Debug\n    ELSE\n      DBG = .false.\n    ENDIF\n\n    ! Intermediate grid functionality?\n    IF ( .not. Input_Opt%LIMGRID ) RETURN\n\n    ! Initialize shadow regridding handles if they are not ready\n    IF ( .not. ASSOCIATED( LonEdgeM ) ) THEN\n      CALL Init_IMGrid ( Input_Opt, State_Grid, State_Grid_HCO )\n    ENDIF\n\n    ! Empty the target first\n    PtrOut(:,:,1:NZ) = 0.0_hp\n\n    ! Do the regridding layer by layer\n    DO L = 1, NZ\n      call Map_A2A (                             &\n        State_Grid_HCO%NX, State_Grid_HCO%NY,    &   ! Input grid dimensions\n        LonEdgeH,          LatEdgeH,             &   ! Lons and lat sines at input edges\n        PtrIn(:,:,L),                            &   ! Input data, 2-D slice\n        State_Grid%NX,     State_Grid%NY,        &   ! Output grid dimensions\n        LonEdgeM,          LatEdgeM,             &\n        PtrOut(:,:,L),                           &\n        0, 0,                                    &   ! Pole treatment, scalar quantity\n        missval=-1.e31_hp)                           ! Important to prevent crash\n    ENDDO\n\n    ! Return happily ever after\n\n  END SUBROUTINE Regrid_HCO2MDL\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Regrid_MDL2HCO\n!\n! !DESCRIPTION: Subroutine Regrid\\_MDL2HCO is a buffer function to regrid a given\n!  field described on the GEOS-Chem model grid to the HEMCO intermediate grid (\"IMGrid\").\n!  Only horizontal interpolation is performed via Regrid\\_A2A.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Regrid_MDL2HCO ( Input_Opt, State_Grid, State_Grid_HCO, PtrIn, PtrOut, ZBND, &\n                              ResetRegrName )\n!\n! !USES:\n!\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE Regrid_A2A_Mod,    ONLY : Map_A2A\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )     :: Input_Opt        ! Input opts\n    TYPE(GrdState),   INTENT(IN   )     :: State_Grid       ! Grid state\n    TYPE(GrdState),   INTENT(IN   )     :: State_Grid_HCO   ! Optional, HEMCO intermediate\n    REAL(hp),         INTENT(IN   )     :: PtrIn (:,:,:)    ! 3-D input data\n    INTEGER, OPTIONAL,INTENT(IN   )     :: ZBND             ! z-level bounds of data\n\n    LOGICAL, OPTIONAL,INTENT(IN   )     :: ResetRegrName    ! Reset regridding name?\n                                                            ! Used when called by outside routine\n!\n! !OUTPUT ARGUMENTS:\n!\n    REAL(hp),         INTENT(  OUT)     :: PtrOut(:,:,:)    ! 3-D output data\n!\n! !REMARKS:\n!  Usually, the regridded quantities are stored in the array temporaries in this module,\n!  so PtrOut should be a pointer array temporary here.\n!  This module is NOT multiple domain safe and should be kept to MODEL\\_CLASSIC only.\n!\n!  For some cases, the PtrOut may point to a pointer array allocated somewhere else.\n!\n!  If ZBND is optionally specified, the regridding operation is capped up to the\n!  given bound. This is usually used for 2-D data but may also limit useless regridding\n!  beyond the pointer size. The array temporaries in the module are usually always\n!  allocated to the model top to save memory thrashing, but we also do not want to\n!  sacrifice compute.\n!\n! !REVISION HISTORY:\n!  03 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                             :: NZ, L\n\n    IF ( PRESENT( ZBND ) ) THEN\n      NZ = MIN(ZBND, State_Grid%NZ+1)                ! May be equal to NZ+1 maximum\n    ELSE\n      NZ = State_Grid%NZ\n    ENDIF\n\n    ! Intermediate grid functionality?\n    IF ( .not. Input_Opt%LIMGRID ) RETURN\n\n    ! Initialize shadow regridding handles if they are not ready\n    IF ( .not. ASSOCIATED( LonEdgeM ) ) THEN\n      CALL Init_IMGrid ( Input_Opt, State_Grid, State_Grid_HCO )\n    ENDIF\n\n    ! Reset as instructed\n    IF ( PRESENT(ResetRegrName) ) THEN\n      IF ( ResetRegrName ) THEN\n        LAST_TMP_REGRID_M2H = \"_HCO_Dummy_Reset_\"\n      ENDIF\n    ENDIF\n\n    ! Empty the target first\n    PtrOut(:,:,1:NZ) = 0.0_hp\n\n    ! Do the regridding layer by layer\n    DO L = 1, NZ\n      call Map_A2A (                             &\n        State_Grid%NX,     State_Grid%NY,        &   ! Input grid dimensions\n        LonEdgeM,          LatEdgeM,             &   ! Lons and lat sines at input edges\n        PtrIn(:,:,L),                            &   ! Input data, 2-D slice\n        State_Grid_HCO%NX, State_Grid_HCO%NY,    &   ! Output grid dimensions\n        LonEdgeH,          LatEdgeH,             &\n        PtrOut(:,:,L),                           &\n        0, 0, missval=-1.e31_hp )                    ! Pole treatment, scalar quantity\n    ENDDO\n\n    ! Return happily ever after\n\n  END SUBROUTINE Regrid_MDL2HCO\n!EOC\n!------------------------------------------------------------------------------\n!                    Harmonized Emissions Component (HEMCO)                   !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_IMGrid\n!\n! !DESCRIPTION: Subroutine Init\\_IMGrid initializes regridding shadow variables\n!  used for regridding from GEOS-Chem Classic model grid to the HEMCO grid,\n!  the InterMediate Grid (\"IMGrid\")\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_IMGrid ( Input_Opt, State_Grid, State_Grid_HCO )\n!\n! !USES:\n!\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE Regrid_A2A_Mod,    ONLY : Map_A2A\n!\n! !INPUT ARGUMENTS:\n!\n    TYPE(OptInput),   INTENT(IN   )     :: Input_Opt        ! Input opts\n    TYPE(GrdState),   INTENT(IN   )     :: State_Grid       ! Grid state\n    TYPE(GrdState),   INTENT(IN   )     :: State_Grid_HCO   ! Optional, HEMCO intermediate\n!\n! !REMARKS:\n!  Note that at this point we are committed to IMGrid being turned on and the grids\n!  are different. Otherwise the memory is not even allocated.\n!\n! !REVISION HISTORY:\n!  04 Jun 2020 - H.P. Lin  - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                             :: RC\n    CHARACTER(LEN=255)                  :: ThisLoc\n    CHARACTER(LEN=512)                  :: ErrMsg\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_IMGrid (in module GeosCore/hco_utilities_gc_mod.F90)'\n\n    ! Intermediate grid functionality?\n    IF ( .not. Input_Opt%LIMGRID ) RETURN\n\n    ! Are we allocated?\n    IF ( ASSOCIATED(LonEdgeM) ) RETURN\n\n    ! TMP_MDL, TMP_HCO 3D IJK, TMP_MDLb (alternate model buffer)\n    ! LAST_TMP_REGRID_M2H, LAST_TMP_REGRID_H2M, H2Mb\n    ! LonEdgeH, LatEdgeH (actually SIN), LonEdgeM, LatEdgeM (actually SIN) -- NX+1, NY+1\n\n    ! Allocate arrays\n    ALLOCATE(LonEdgeM(State_Grid%NX+1    ), LatEdgeM(State_Grid%NY+1    ), STAT=RC)\n    ALLOCATE(LonEdgeH(State_Grid_HCO%NX+1), LatEdgeH(State_Grid_HCO%NY+1), STAT=RC)\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in allocating model and HEMCO coords!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n    ENDIF\n\n    ! Describe the model grid first\n    LonEdgeM(:) = State_Grid%XEDGE(:,1)\n    LatEdgeM(:) = State_Grid%YSIN (1,:)\n\n    ! The HEMCO grid\n    LonEdgeH(:) = State_Grid_HCO%XEDGE(:,1)\n    LatEdgeH(:) = State_Grid_HCO%YSIN (1,:)\n\n    ! Init the temporary targets\n    ! These may be conservatively larger than necessary and ZBND is capped\n    ! in the regridding routine depending on the given array dims.\n    !\n    ! Using NZ+1 in case the data is on vertical grid edges.\n    ! Probably used for some met field stuff.\n    ALLOCATE(TMP_MDL (State_Grid    %NX, State_Grid    %NY, State_Grid%NZ+1), STAT=RC)\n    ALLOCATE(TMP_MDLb(State_Grid    %NX, State_Grid    %NY, State_Grid%NZ+1), STAT=RC)\n    ALLOCATE(TMP_HCO (State_Grid_HCO%NX, State_Grid_HCO%NY, State_Grid%NZ+1), STAT=RC)\n\n    ALLOCATE(TMP_MDL_r4 (State_Grid    %NX, State_Grid    %NY, State_Grid%NZ+1), STAT=RC)\n    ALLOCATE(TMP_MDL_r4b(State_Grid    %NX, State_Grid    %NY, State_Grid%NZ+1), STAT=RC)\n    ALLOCATE(TMP_HCO_r4 (State_Grid_HCO%NX, State_Grid_HCO%NY, State_Grid%NZ+1), STAT=RC)\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in allocating model and HEMCO temporaries!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n    ENDIF\n\n    ! Initialize defaults\n    LAST_TMP_REGRID_M2H = ''\n    LAST_TMP_REGRID_H2M = ''\n    LAST_TMP_REGRID_H2Mb = ''\n    LAST_TMP_MDL_ZBND = 1\n\n  END SUBROUTINE Init_IMGrid\n!EOC\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_GetOption\n!\n! !DESCRIPTION: Shim interface for HCO_GetOpt.  Used to return a value\n!  from the HEMCO config file into GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION HCO_GC_GetOption( optName, extNr ) RESULT( optVal )\n!\n! !USES:\n!\n    USE HCO_State_GC_Mod, ONLY : HcoState\n    USE HCO_ExtList_Mod,  ONLY : HCO_GetOpt\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: optName\n    INTEGER,          OPTIONAL   :: extNr\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=255)           :: optVal\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER :: extension\n\n    ! Extension number\n    extension = 0\n    IF ( PRESENT( extNr ) ) extension = extNr\n\n    ! Return character variable\n    optVal = HCO_GetOpt( HcoState%Config%ExtList, optName, extNr=extension )\n\n  END FUNCTION HCO_GC_GetOption\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCO_GC_HcoStateOK\n!\n! !DESCRIPTION: Returns TRUE if the HcoState object is allocated, or FALSE\n!  otherwise.  This allows us to abstract the HcoState object out of\n!  GEOS-Chem source code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION HCO_GC_HcoStateOk() RESULT( HcoStateIsOk )\n!\n! !USES:\n!\n    USE HCO_State_GC_Mod, ONLY : HcoState\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: HcoStateIsOK\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Return status of HcoState\n    HcoStateIsOK = ASSOCIATED( HcoState )\n\n  END FUNCTION HCO_GC_HcoStateOk\n!EOC\n\nEND MODULE HCO_Utilities_GC_Mod\n"
  },
  {
    "path": "GeosCore/hcoi_gc_diagn_include.H",
    "content": "!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: hcoi_gc_diagn_include.H\n!\n! !DESCRIPTION: Contains emissions category definitions as used within the\n!  HEMCO_Config.rc file.\n!\\\\\n!\\\\\n! !REMARKS:\n!  These categories hould correspond with the HEMCO_Config.rc file.  If you\n!  change the category listings in HEMCO_Config.rc, then update this file\n!  accordingly.\n!\n! !REVISION HISTORY:\n!  01 Oct 1995 - R. Yantosca - Initial version\n!  08 Dec 2009 - R. Yantosca - Added ProTeX headers\n!  22 Feb 2015 - C. Keller   - Added eruptive and degassing volcanoes.\n!  27 Jul 2018 - M. Sulprizio- Added trash burning category (E. Marais)\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER, PARAMETER :: CATEGORY_ANTHRO        = 1\n  INTEGER, PARAMETER :: CATEGORY_NATURAL       = 3\n  INTEGER, PARAMETER :: CATEGORY_BIOGENIC      = 4\n  INTEGER, PARAMETER :: CATEGORY_BIOMASS       = 5\n  INTEGER, PARAMETER :: CATEGORY_SHIP          = 10\n  INTEGER, PARAMETER :: CATEGORY_TRASH         = 12\n  INTEGER, PARAMETER :: CATEGORY_AIRCRAFT      = 20\n  INTEGER, PARAMETER :: CATEGORY_VOLCANO       = 50\n  INTEGER, PARAMETER :: CATEGORY_VOLCANO_ERUPT = 51\n  INTEGER, PARAMETER :: CATEGORY_VOLCANO_DEGAS = 52\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n"
  },
  {
    "path": "GeosCore/hcoi_gc_diagn_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: hcoi_gc_diagn_mod.F90\n!\n! !DESCRIPTION: Module HCOI\\_GC\\_Diagn\\_Mod.F90 is the GEOS-Chem interface\n! module for the HEMCO diagnostics. For every GEOS-Chem emissions diagnostics,\n! a corresponding HEMCO diagnostics is created. The HEMCO diagnostics become\n! (automatically) filled and updated when calling HEMCO. They are passed\n! back to GEOS-Chem when writing the diagnostics (e.g. in diag3.F90).\n!\\\\\n!\\\\\n! Notes:\n! \\begin{itemize}\n! \\item The category specific diagnostics (anthropogenic, aircraft, etc.)\n!  explicitly assume certain category numbers in the HEMCO configuration\n!  file (e.g. Cat=1 for anthropogenic, Cat=20 for aircraft, etc.).\n!  Diagnostics will not represent what they should if these category numbers\n!  get changed!\n! \\item In HEMCO, ocean sinks are treated as drydep and the calculated\n!  deposition velocities are passed to drydep\\_mod.F90. Hence, no Acetone or\n!  ALD2 ocean sink is calculated by HEMCO and the DMS diagnostics only includes\n!  the ocean flux (this is NOT the net flux!!).\n!  If needed, we can build a simple wrapper in hcoi\\_gc\\_main\\_mod.F90 that\n!  explicitly calculates oceanic fluxes.\n! \\end{itemize}\n!\n! !INTERFACE:\n!\nMODULE HCOI_GC_Diagn_Mod\n!\n! !USES:\n!\n  USE HCO_Diagn_Mod\n  USE HCO_Error_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n\n  ! Get parameters that define the different categories\n#include \"hcoi_gc_diagn_include.H\"\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: HCOI_GC_Diagn_Init\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n!\n! !REMARKS:\n!  This is currently a \"bridge\" module to provide backwards compatibility\n!  with existing GEOS-Chem diagnostics.  We will eventually write all\n!  diagnostics to netCDF format, but we are not quite there yet.\n!\n! !REVISION HISTORY:\n!  04 May 2014 - C. Keller   - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HCOI_GC_Diagn_Init\n!\n! !DESCRIPTION: Subroutine HCOI\\_GC\\_Diagn\\_Init initializes the HEMCO\n! diagnostics in GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HCOI_GC_Diagn_Init( Input_Opt, HcoState, ExtState, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_ExtList_Mod,    ONLY : GetExtNr\n    USE HCO_ExtList_Mod,    ONLY : GetExtOpt\n    USE HCO_State_Mod,      ONLY : HCO_GetHcoID\n    USE HCO_State_Mod,      ONLY : HCO_State\n    USE HCOX_State_Mod,     ONLY : Ext_State\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt  ! Input opts\n    TYPE(HCO_State),  POINTER        :: HcoState   ! HEMCO state object\n    TYPE(EXT_State),  POINTER        :: ExtState   ! Extensions state object\n    INTEGER,          INTENT(INOUT)  :: RC         ! Failure or success\n!\n! !REMARKS:\n!  The category numbers must correspond to those in the HEMCO_Config.rc file.\n!  We will have to come up with a better way of making sure that these\n!  are consistent in the future.\n\n!  CO emissions (ND29)\n!  --> Anthropogenic, biogenic, and biomass emissions are\n!      all covered in the respective sections.\n!  --> CO produced from methanol doesn't seem to be written anymore?!\n!      Not filled for now.\n!\n! !REVISION HISTORY:\n!  12 Sep 2013 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL            :: YesOrNo\n    INTEGER            :: I, J,  HcoID, N,    AS\n    INTEGER            :: ExtNr, Cat, Hier\n    CHARACTER(LEN=31)  :: SpcName, DiagnName, Unit\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! HCOI_GC_DIAGN_INIT begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = HCO_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n       ' -> at HCOI_GC_Diagn_Init (in module GeosCore/hcoi_gc_diagn_mod.F90)'\n\n#ifdef TOMAS\n    CALL Diagn_TOMAS( Input_Opt, HcoState, ExtState, RC )\n    IF ( RC /= HCO_SUCCESS ) RETURN\n#endif\n\n#ifdef APM\n    CALL Diagn_APM( Input_Opt, HcoState, ExtState, RC )\n    IF ( RC /= HCO_SUCCESS ) RETURN\n#endif\n\n    ! Return\n    RC = HCO_SUCCESS\n\n  END SUBROUTINE HCOI_GC_Diagn_Init\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Diagn_TOMAS\n!\n! !DESCRIPTION: This creates diagnostics for bulk emissions that will be called\n! to scale into TOMAS bins. May not even be necessary. (JKodros 6/2/15)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Diagn_TOMAS( Input_Opt, HcoState, ExtState, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_ExtList_Mod,    ONLY : GetExtNr\n    USE HCO_State_Mod,      ONLY : HCO_State\n    USE HCO_State_Mod,      ONLY : HCO_GetHcoID\n    USE HCOX_State_Mod,     ONLY : Ext_State\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt  ! Input opts\n    TYPE(HCO_State),  POINTER        :: HcoState   ! HEMCO state object\n    TYPE(EXT_State),  POINTER        :: ExtState   ! Extensions state object\n    INTEGER,          INTENT(INOUT)  :: RC         ! Failure or success\n!\n! !REVISION HISTORY:\n!  23 Sep 2014 - J. Kodros - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: Cat,     ExtNr\n    INTEGER            :: id_BCPI, id_BCPO, id_OCPI, id_OCPO\n    INTEGER            :: id_CO,   id_SO4,  id_SOAS\n    CHARACTER(LEN=31)  :: DiagnName\n    CHARACTER(LEN=255) :: MSG\n    CHARACTER(LEN=255) :: LOC = 'DIAGN_TOMAS (hcoi_gc_diagn_mod.F90)'\n\n    !=======================================================================\n    ! Define diagnostics (TOMAS-related emissions)\n    !=======================================================================\n\n    ! Assume success\n    RC = HCO_SUCCESS\n\n    ! Get default HEMCO species ID's\n    id_BCPI = HCO_GetHcoID( 'BCPI', HcoState )\n    id_BCPO = HCO_GetHcoID( 'BCPO', HcoState )\n    id_CO   = HCO_GetHcoID( 'CO',   HcoState )\n    id_OCPI = HCO_GetHcoID( 'OCPI', HcoState )\n    id_OCPO = HCO_GetHcoID( 'OCPO', HcoState )\n    id_SOAS = HCO_GetHcoID( 'SOAS', HcoState )\n    id_SO4  = HCO_GetHcoID( 'SO4',  HcoState )\n\n    !-----------------------------------------------------------------\n    ! %%%%% BCPI from anthro (Category 1 or species BCPI_ANTH)  %%%%%\n    !-----------------------------------------------------------------\n    ExtNr     = 0\n    Cat       = CATEGORY_ANTHRO\n    DiagnName = 'BCPI_ANTH'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_BCPI,                                  &\n                       SpaceDim  = 3,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BCPI_ANTH\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% BCPO from anthro (Category 1 or species BCPO_ANTH)  %%%%%\n    !-----------------------------------------------------------------\n    ExtNr     = 0\n    Cat       = CATEGORY_ANTHRO\n    DiagnName = 'BCPO_ANTH'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_BCPO,                                  &\n                       SpaceDim  = 3,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BCPO_ANTH\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% OCPI from anthro (Category 1 or species OCPI_ANTH)  %%%%%\n    !-----------------------------------------------------------------\n    Extnr     = 0\n    Cat       = CATEGORY_ANTHRO\n    DiagnName = 'OCPI_ANTH'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_OCPI,                                  &\n                       SpaceDim  = 3,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"OCPI_ANTH\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% OCPO from anthro (Category 1 or species OCPO_ANTH)  %%%%%\n    !-----------------------------------------------------------------\n    ExtNr     = 0\n    Cat       = CATEGORY_ANTHRO\n    DiagnName = 'OCPO_ANTH'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_OCPO,                                  &\n                       SpaceDim  = 3,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"OCPO_ANTH\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! ------------ NOW DEAL WITH BIOMASS BURNING --------------------\n    ! Test if any of the biomass burning extensions are turned on.\n    ! If not, then use extension # 0 and the default biomass category\n    !-----------------------------------------------------------------------\n    Cat   = -1\n    ExtNr = GetExtNr( HcoState%Config%ExtList, 'GFED' )\n    IF ( ExtNr <= 0 ) ExtNr = GetExtNr( HcoState%Config%ExtList, 'FINN' )\n    IF ( ExtNr <= 0 ) ExtNr = GetExtNr( HcoState%Config%ExtList, 'GFAS' )\n    IF ( ExtNr <= 0 ) ExtNr = GetExtNr( HcoState%Config%ExtList, 'QFED' )\n    IF ( ExtNr <= 0 ) THEN\n       ExtNr = 0\n       Cat   = CATEGORY_BIOMASS\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% BPCI from BIOB (Category ? or species BCPI_bb)  %%%%%\n    !-----------------------------------------------------------------\n    DiagnName = 'BCPI_BB'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_BCPI,                                  &\n                       SpaceDim  = 2,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BCPI_BB\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% BPCO from BIOB (Category ? or species BCPO_bb)  %%%%%\n    !-----------------------------------------------------------------\n    DiagnName = 'BCPO_BB'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_BCPO,                                  &\n                       SpaceDim  = 2,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BCPO_BB\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% OCPI from BIOB (Category ? or species OCPI_bb)  %%%%%\n    !-----------------------------------------------------------------\n    DiagnName = 'OCPI_BB'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_OCPI,                                  &\n                       SpaceDim  = 2,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"OCPI_BB\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% OCPO from BIOB (Category ? or species OCPI_bb)  %%%%%\n    !-----------------------------------------------------------------\n    DiagnName = 'OCPO_BB'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_OCPO,                                  &\n                       SpaceDim  = 2,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"OCPO_BB\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% SO4 from ANTHRO (Category ? or species SO4_ANTH)  %%%%%\n    !-----------------------------------------------------------------\n    ExtNr     = 0\n    Cat       = CATEGORY_ANTHRO\n    DiagnName = 'SO4_ANTH'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_SO4,                                   &\n                       SpaceDim  = 3,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"SO4_ANTH\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! %%%%% CO from ANTHRO (Category ? or species CO_ANTH)  %%%%%\n    !-----------------------------------------------------------------\n    ExtNr     = 0\n    Cat       = CATEGORY_ANTHRO\n    DiagnName = 'CO_ANTH'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_CO,                                    &\n                       SpaceDim  = 3,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"CO_ANTH\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n    !-------------------------------------------------------------------\n    ! %%%%% diag for direct emission of SOAS OC for TOMAS          %%%%%\n    ! %%%%% this is not optional for tomas simulations             %%%%%\n    !-------------------------------------------------------------------\n\n    ! Extension and category #'s for MEGAN\n    ExtNr = GetExtNr( HcoState%Config%ExtList, 'MEGAN')\n    IF ( ExtNr > 0 ) THEN\n       Cat   = -1\n    ELSE\n       ! Use offline biogenic emissions\n       ExtNr = 0\n       Cat   = CATEGORY_BIOGENIC\n    ENDIF\n\n    ! Create diagnostic container\n    DiagnName = 'BIOGENIC_SOAS'\n    CALL Diagn_Create( HcoState  = HcoState,                                 &\n                       cName     = TRIM( DiagnName ),                        &\n                       ExtNr     = ExtNr,                                    &\n                       Cat       = Cat,                                      &\n                       Hier      = -1,                                       &\n                       HcoID     = id_SOAS,                                  &\n                       SpaceDim  = 2,                                        &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       = HcoState%Diagn%HcoDiagnIDManual,          &\n                       AutoFill  = 1,                                        &\n                       RC        = RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BIOGENIC_SOAS\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Diagn_TOMAS\n!EOC\n#endif\n#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Diagn_APM\n!\n! !DESCRIPTION: This creates manual diagnostics that will be used for APM.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Diagn_APM( Input_Opt, HcoState, ExtState, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_ExtList_Mod, ONLY : GetExtNr\n    USE HCO_State_Mod,   ONLY : HCO_State\n    USE HCO_State_Mod,   ONLY : HCO_GetHcoID\n    USE HCOX_State_Mod,  ONLY : Ext_State\n    USE Input_Opt_Mod,   ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt  ! Input opts\n    TYPE(HCO_State),  POINTER        :: HcoState   ! HEMCO state object\n    TYPE(EXT_State),  POINTER        :: ExtState   ! Extensions state object\n    INTEGER,          INTENT(INOUT)  :: RC         ! Failure or success\n!\n! !REVISION HISTORY:\n!  23 Sep 2014 - J. Kodros - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: HcoId, id_BCPO, id_OCPO\n\n    ! Strings\n    CHARACTER(LEN=255) :: MSG\n    CHARACTER(LEN=255) :: LOC = 'DIAGN_APM (hcoi_gc_diagn_mod.F90)'\n\n    !========================================================================\n    ! Diagn_APM begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    id_BCPO = HCO_GetHcoID( 'BCPO', HcoState )\n    id_OCPO = HCO_GetHcoID( 'OCPO', HcoState )\n\n    !------------------------------------------------------------------------\n    ! Hydrophobic black carbon from ANTHRO EMISSIONS                  \n    !------------------------------------------------------------------------\n    CALL Diagn_Create( HcoState  =  HcoState,                                &\n                       cName     = 'ANTHROPOGENIC_BCPO',                     &\n                       ExtNr     =  0,                                       &\n                       Cat       =  CATEGORY_ANTHRO,                         &\n                       Hier      = -1,                                       &\n                       HcoID     =  id_BCPO,                                 & \n                       SpaceDim  =  3,                                       &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       =  HcoState%Diagn%HcoDiagnIDManual,         &\n                       AutoFill  =  1,                                       &\n                       RC        =  RC                                      )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining ANTHROPOGENIC_BCPO\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF     \n\n\n    !------------------------------------------------------------------------\n    ! Hydrophobic organic carbon from ANTHRO EMISSIONS         \n    !------------------------------------------------------------------------\n    CALL Diagn_Create( HcoState  =  HcoState,                                &\n                       cName     = 'ANTHROPOGENIC_OCPO',                     &\n                       ExtNr     =  0,                                       &\n                       Cat       =  CATEGORY_ANTHRO,                         &\n                       Hier      = -1,                                       &\n                       HcoID     =  id_OCPO,                                 &\n                       SpaceDim  =  3,                                       &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       =  HcoState%Diagn%HcoDiagnIDManual,         &\n                       AutoFill  =  1,                                       &\n                       RC        =  RC                                       )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"ANTHROPOGENIC_OCPO\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF \n\n    !------------------------------------------------------------------------\n    ! Hydrophobic black carbon from BIOMASS EMISSIONS\n    !------------------------------------------------------------------------\n    CALL Diagn_Create( HcoState  =  HcoState,                                &\n                       cName     = 'BIOMASS_BCPO',                           &\n                       ExtNr     =  0,                                       &\n                       Cat       =  CATEGORY_BIOMASS,                        &\n                       Hier      = -1,                                       &\n                       HcoID     =  id_BCPO,                                 &\n                       SpaceDim  =  2,                                       &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       =  HcoState%Diagn%HcoDiagnIDManual,         &\n                       AutoFill  =  1,                                       &\n                       RC        =  RC                                      )\n\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BIOMASS_BCPO\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF \n\n    !------------------------------------------------------------------------\n    ! Hydrophobic organic carbon from BIOMASS EMISSIONS\n    !------------------------------------------------------------------------\n    CALL Diagn_Create( HcoState  =  HcoState,                                &\n                       cName     = 'BIOMASS_OCPO',                           &\n                       ExtNr     =  0,                                       &\n                       Cat       =  CATEGORY_BIOMASS,                        &\n                       Hier      = -1,                                       &\n                       HcoID     =  id_OCPO,                                 &\n                       SpaceDim  =  2,                                       &\n                       LevIDx    = -1,                                       &\n                       OutUnit   = 'kg/m2/s',                                &\n                       COL       =  HcoState%Diagn%HcoDiagnIDManual,         &\n                       AutoFill  =  1,                                       &\n                       RC        =  RC                                      )\n\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS ) THEN\n       Msg = 'Error encountered when defining \"BIOMASS_OCPO\" diagnostic!'\n       CALL GC_Error( Msg, RC, Loc )\n       RETURN\n    ENDIF \n\n  END SUBROUTINE Diagn_APM\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetHemcoId\n!\n! !DESCRIPTION: Function GetHemcoId returns the HEMCO species ID number\n!  corresponding to a given HEMCO species name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GetHemcoId( HcoName, HcoState, Loc, RC, ERR ) RESULT( HcoID )\n!\n! !USES:\n!\n    USE HCO_State_Mod, ONLY : HCO_State\n    USE HCO_State_Mod, ONLY : HCO_GetHcoID\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),  INTENT(IN)  :: HcoName    ! HEMCO species name\n    TYPE(HCO_State),   POINTER     :: HcoState   ! HEMCO State object\n    CHARACTER(LEN=*),  INTENT(IN)  :: Loc        ! Calling routine\n    LOGICAL, OPTIONAL, INTENT(IN)  :: Err        ! Return error if not found\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC         ! Success or failure?\n!\n! !RETURN VALUE:\n!\n    INTEGER                        :: HcoID      ! HEMCO species ID #\n!\n! !REMARKS:\n!  This is a wrapper function to simplify the code above.   Calls to\n!  HCO_GetHcoId and HCO_Error are made from here.\n!\n! !REVISION HISTORY:\n!  20 Aug 2014 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: MSG\n    LOGICAL            :: ERROR = .TRUE.\n\n    !=======================================================================\n    ! GetHemcoId begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC = HCO_SUCCESS\n\n    ! Prompt error?\n    IF ( PRESENT(ERR) ) ERROR = ERR\n\n    ! Get the HEMCO species ID from the name\n    HcoID = HCO_GetHcoID( HcoName, HcoState )\n\n    ! Exit with error if the species is not valid\n    ! (HCO_Error will set RC = HCO_FAIL)\n    IF ( HcoID <= 0 .AND. ERROR ) THEN\n       MSG = 'This is not a HEMCO species: ' // HcoName\n       CALL HCO_Error( MSG, RC, THISLOC=Loc )\n    ENDIF\n\n  END FUNCTION GetHemcoId\n!EOC\nEND MODULE HCOI_GC_Diagn_Mod\n"
  },
  {
    "path": "GeosCore/input_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: input_mod.F90\n!\n! !DESCRIPTION: Contains routines that read the GEOS-Chem configuration file at\n!  the start of the run and pass the information to Input_Opt.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Input_Mod\n!\n! !USES:\n!\n  USE CharPak_Mod, ONLY : MaxDim  => MaxStrLen\n  USE QfYaml_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Read_Input_File\n  PUBLIC  :: Do_Error_Checks\n  PUBLIC  :: Validate_Directories\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  ! YAML configuration file name to be read\n  CHARACTER(LEN=21), PARAMETER, PRIVATE :: configFile ='./geoschem_config.yml'\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_input_file\n!\n! !DESCRIPTION: Driver program for reading the GEOS-Chem input file.\n!\\\\\n!\\\\\n! In an ESMF environment, all time steps (chemistry, convection, emissions,\n! dynamics) must be specified externally before calling this routine.\n! The time steps specified in the GEOS-Chem configuration file are ignored.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Read_Input_File( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    ! Objects\n    TYPE(QFYAML_t)     :: Config, ConfigAnchored\n\n    !========================================================================\n    ! Read_Input_File begins here!\n    !========================================================================\n\n    ! Echo output\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a  )' ) REPEAT( '=', 79 )\n       WRITE( 6, '(a,/)' ) 'G E O S - C H E M   U S E R   I N P U T'\n       WRITE( 6, 100   ) TRIM( configFile )\n100    FORMAT( 'READ_INPUT_FILE: Opening ', a )\n    ENDIF\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Read_Input_File (in module GeosCore/input_mod.F90)'\n\n    !========================================================================\n    ! Read the YAML file into the Config object\n    !========================================================================\n    CALL QFYAML_Init( configFile, Config, ConfigAnchored, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error reading configuration file: ' // TRIM( configFile )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Get basic simulation settings from the YAML Config object\n    !========================================================================\n\n    ! Simulation config settings\n    CALL Config_Simulation( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Simulation\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n    ! Grid config settings\n    ! Skip if we are gettomg the grid from an external model\n    CALL Config_Grid( Config, Input_Opt, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Grid\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n#endif\n\n    ! Timesteps config settings\n    CALL Config_Timesteps( Config, Input_Opt, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Timesteps\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Get settings for GEOS-Chem operations from the YAML Config object\n    !========================================================================\n\n    ! Transport settings\n    CALL Config_Transport( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Transport\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    ! Convection and PBL mixing settings\n    CALL Config_Convection_Mixing( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Convection_Mixing\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    ! Aerosol settings\n    CALL Config_Aerosol( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Aerosol\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    ! Dry deposition and wet deposition settings\n    CALL Config_DryDep_WetDep( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_DryDep_WetDep\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    ! Chemistry settings\n    CALL Config_Chemistry( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Chemistry\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Photolysis settings\n    CALL Config_Photolysis( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_Photolysis\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    ! RRTMG (radiative transfer model) settings\n    CALL Config_RRTMG( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_RRTMG\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Get settings for specialty simulations from the YAML Config object\n    !========================================================================\n\n    ! Carbon simulation settings\n    IF ( Input_Opt%Its_A_Carbon_Sim ) THEN\n       CALL Config_CH4( Config, Input_Opt, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error in \"Config_CH4\"!'\n          CALL GC_Error( errMsg, RC, thisLoc  )\n          CALL QFYAML_CleanUp( Config         )\n          CALL QFYAML_CleanUp( ConfigAnchored )\n          RETURN\n       ENDIF\n\n       CALL Config_CO( Config, Input_Opt, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error in \"Config_CO\"!'\n          CALL GC_Error( errMsg, RC, thisLoc  )\n          CALL QFYAML_CleanUp( Config         )\n          CALL QFYAML_CleanUp( ConfigAnchored )\n          RETURN\n       ENDIF\n\n       CALL Config_CO2( Config, Input_Opt, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error in \"Config_CO2\"!'\n          CALL GC_Error( errMsg, RC, thisLoc  )\n          CALL QFYAML_CleanUp( Config         )\n          CALL QFYAML_CleanUp( ConfigAnchored )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Hg simulation settings\n    IF ( Input_Opt%Its_A_Mercury_Sim ) THEN\n       CALL Config_Hg( Config, Input_Opt, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error in \"Config_Hg\"!'\n          CALL GC_Error( errMsg, RC, thisLoc  )\n          CALL QFYAML_CleanUp( Config         )\n          CALL QFYAML_CleanUp( ConfigAnchored )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! POPs simulation settings\n    IF ( Input_Opt%Its_A_POPs_Sim ) THEN\n       CALL Config_POPs( Config, Input_Opt, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error in \"Config_POPs\"!'\n          CALL GC_Error( errMsg, RC, thisLoc  )\n          CALL QFYAML_CleanUp( Config         )\n          CALL QFYAML_CleanUp( ConfigAnchored )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Get settings for extra diagnostics from the YAML Config object\n    !========================================================================\n\n    ! Obspack diagnostic settings\n    CALL Config_ObsPack( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_ObsPack\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n\n    ! Planeflight diagnostic settings\n    ! (Skip if we are connecting to an external model)\n    CALL Config_PlaneFlight( Config, Input_Opt, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Config_PlaneFlight\"!'\n       CALL GC_Error( errMsg, RC, thisLoc  )\n       CALL QFYAML_CleanUp( Config         )\n       CALL QFYAML_CleanUp( ConfigAnchored )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Check GEOS-CHEM timesteps\n    ! NOTE: Skip for GCHP/GEOS, as this is called from GCHP_Chunk_Run\n    !========================================================================\n    CALL Check_Time_Steps( Input_Opt, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error in \"Check_Time_Steps\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Further error-checking and initialization\n    !========================================================================\n    CALL QFYAML_CleanUp( Config         )\n    CALL QFYAML_CleanUp( ConfigAnchored )\n\n  END SUBROUTINE Read_Input_File\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_simulation\n!\n! !DESCRIPTION: Copies simulation information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Simulation( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_UpperCase\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Time_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n    INTEGER                      :: N,                C\n    REAL(fp)                     :: JulianDateStart,  JulianDateEnd\n#if defined( ESMF_ ) || defined( MODEL_ )\n    INTEGER                      :: H,       M,       S\n    REAL(f4)                     :: init_UTC\n#endif\n\n    ! Arrays\n    INTEGER                      :: a_int(2)\n\n    ! Strings\n    CHARACTER(LEN=6)             :: timeStr\n    CHARACTER(LEN=8)             :: dateStr\n    CHARACTER(LEN=12)            :: met\n    CHARACTER(LEN=15)            :: verboseMsg\n    CHARACTER(LEN=24)            :: sim\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_Simulation begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at Config_Simulation (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Simulation type\n    !------------------------------------------------------------------------\n    key   = \"simulation%name\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%SimulationName = TRIM( v_str )\n\n    ! Error check simulation name\n    Sim = To_UpperCase( TRIM( Input_Opt%SimulationName ) )\n    IF ( TRIM(Sim) /= 'AEROSOL'                                        .and. &\n         TRIM(Sim) /= 'CARBON'                                         .and. &\n         TRIM(Sim) /= 'FULLCHEM'                                       .and. &\n         TRIM(Sim) /= 'HG'                                             .and. &\n         TRIM(Sim) /= 'METALS'                                         .and. &\n         TRIM(Sim) /= 'POPS'                                           .and. &\n         TRIM(Sim) /= 'TAGO3'                                          .and. &\n         TRIM(Sim) /= 'TRANSPORTTRACERS' ) THEN\n         \n       errMsg = Trim( Input_Opt%SimulationName) // ' is not a'            // &\n                ' valid simulation. Supported simulations are:'           // &\n                ' aerosol, carbon, fullchem, Hg, Metals, POPs,'           // &\n                ' TransportTracers, or TagO3.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Set simulation type flags in Input_Opt\n    Input_Opt%ITS_AN_AEROSOL_SIM   = ( TRIM(Sim) == 'AEROSOL'               )\n    Input_Opt%ITS_A_CARBON_SIM     = ( TRIM(Sim) == 'CARBON'                )\n    Input_Opt%ITS_A_FULLCHEM_SIM   = ( TRIM(Sim) == 'FULLCHEM'              )\n    Input_Opt%ITS_A_MERCURY_SIM    = ( TRIM(Sim) == 'HG'                    )\n    Input_Opt%ITS_A_TRACEMETAL_SIM = ( TRIM(Sim) == 'METALS'                )\n    Input_Opt%ITS_A_POPS_SIM       = ( TRIM(Sim) == 'POPS'                  )\n    Input_Opt%ITS_A_TAGO3_SIM      = ( TRIM(Sim) == 'TAGO3'                 )\n    Input_Opt%ITS_A_TRACER_SIM     = ( TRIM(Sim) == 'TRANSPORTTRACERS'      )\n\n    !------------------------------------------------------------------------\n    ! Species database file\n    !------------------------------------------------------------------------\n    key   = \"simulation%species_database_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%SpcDataBaseFile = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Species metadata output file\n    !------------------------------------------------------------------------\n    key   = \"simulation%species_metadata_output_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%SpcMetaDataOutFile = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Turn on debug output\n    !------------------------------------------------------------------------\n    key    = \"simulation%verbose%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%VerboseRequested = v_bool\n\n    !------------------------------------------------------------------------\n    ! Which cores for verbose output: root or all?\n    !------------------------------------------------------------------------\n    key  = \"simulation%verbose%on_cores\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%VerboseOnCores = To_UpperCase( v_str )\n\n    ! Should verbose output be printed only on root or on all cores?\n    SELECT CASE ( TRIM( Input_Opt%VerboseOnCores ) )\n       CASE( 'ROOT' )\n          verboseMsg = 'root core only'\n          Input_Opt%Verbose =                                                &\n             ( Input_Opt%VerboseRequested .and. Input_Opt%amIRoot )    \n       CASE( 'ALL' )\n          verboseMsg = 'all cores'\n          Input_Opt%Verbose = Input_Opt%VerboseRequested\n       CASE DEFAULT\n          errMsg = 'Invalid selection!' // NEW_LINE( 'a' ) //                &\n               'simulation:verbose:on_cores must be either \"root\" or \"all\"'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n    END SELECT\n\n#if defined( MODEL_GCHP ) || defined( MODEL_GEOS )\n    !========================================================================\n    !          %%%%%%% GCHP and NASA/GEOS (with ESMF & MPI) %%%%%%%\n    !\n    ! Because GCHP and NASA/GEOS use ESMF, we need to take the start & end\n    ! dates from the ESMF resource file (GEOSCHEMchem_GridComp_mod.rc)\n    ! instead of those in geoschem_config.yml.  Therefore, the following\n    ! fields have already been defined in the GCHP_Chunk_Init routine\n    ! (located in module Interfaces/GCHP/Chem_GridCompMod.F90):\n    !\n    ! (1) Input_Opt%NYMDb\n    ! (2) Input_Opt%NHMSb\n    ! (3) Input_Opt%NYMDe\n    ! (4) Input_Opt%NYMDe\n    !\n    ! Pass these fields of Input_Opt to routine Accept_External_Date_Time,\n    ! as well as the starting UTC value in hours.\n    !========================================================================\n\n    ! Make sure the starting date NYMDb is valid\n    IF ( .not. Valid_Date( Input_Opt%NYMDb ) ) THEN\n       WRITE( DateStr, '(i8.8)' ) Input_Opt%NYMDb\n       errMsg = 'Input%Opt%NYMDb = ' // DateStr // ' is not a valid '     // &\n                'calendar date!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Make sure the starting time NHMSb is valid\n    IF ( .not. Valid_Time( Input_Opt%NHMSb ) ) THEN\n       WRITE( TimeStr, '(i6.6)' ) Input_Opt%NHMSb\n       errMsg = 'Input%Opt%NHMSb = ' // TimeStr // ' is not a valid '     // &\n                'clock time!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Make sure the ending date NYMDe is valid\n    IF ( .not. Valid_Date( Input_Opt%NYMDe ) ) THEN\n       WRITE( DateStr, '(i8.8)' ) Input_Opt%NYMDe\n       errMsg = 'Input%Opt%NYMDe = ' // DateStr // ' is not a valid '     // &\n                'calendar date!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Make sure the ending time NHMSe is valid\n    IF ( .not. Valid_Time( Input_Opt%NHMSe ) ) THEN\n       WRITE( TimeStr, '(i6.6)' ) Input_Opt%NHMSe\n       errMsg = 'Input%Opt%NHMSe = ' // TimeStr // ' is not a valid '     // &\n                'clock time!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Get the starting UTC time from Input_Opt%NHMSb for use below\n    CALL YMD_Extract( Input_Opt%NHMSb, H, M, S )\n    init_UTC = ( H + ( M / 60 ) + ( S / 3600 ) )\n\n    ! Pass the values for the start & end times of the simulation directly\n    ! to GeosUtil/time_mod.F90 via subroutine ACCEPT_EXTERNAL_DATE_TIME.\n    ! (bmy, 12/6/12)\n    CALL Accept_External_Date_Time( value_NYMDb = Input_Opt%NYMDb,           &\n                                    value_NHMSb = Input_Opt%NHMSb,           &\n                                    value_NYMDe = Input_Opt%NYMDe,           &\n                                    value_NHMSe = Input_Opt%NHMSe,           &\n                                    value_NYMD  = Input_Opt%NYMDb,           &\n                                    value_NHMS  = Input_Opt%NHMSb,           &\n                                    value_UTC   = init_UTC,                  &\n                                    RC          = RC                        )\n\n    !------------------------------------------------------------------------\n    ! Chemistry inputs folder (GCHP/NASA-GEOS only)\n    !------------------------------------------------------------------------\n\n    key   = \"simulation%chem_inputs_dir\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CHEM_INPUTS_DIR = TRIM( v_str )\n\n#if defined( MODEL_GCHP )\n    !------------------------------------------------------------------------\n    ! Meteorology field\n    !------------------------------------------------------------------------\n    key   = \"simulation%met_field\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%MetField = TRIM( v_str )\n#endif\n\n#if defined( MODEL_GEOS )\n    Input_Opt%MetField        = 'See ExtData.rc'\n#endif\n\n    !------------------------------------------------------------------------\n    ! Set other fields of Input_Opt accordingly\n    !------------------------------------------------------------------------\n    Input_Opt%DATA_DIR        = 'N/A'\n    Input_Opt%RUN_DIR         = 'N/A'\n\n#else\n    !========================================================================\n    !             %%%%%%% GEOS-Chem CLASSIC (with OpenMP) %%%%%%%\n    !\n    ! If we aren't using ESMF, read extra settings from geoschem_config.yml\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! Simulation start date\n    !------------------------------------------------------------------------\n    key   = \"simulation%start_date\"\n    a_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%NYMDb = a_int(1)\n    Input_Opt%NHMSb = a_int(2)\n\n    ! Make sure the starting date NYMDb is valid\n    IF ( .not. Valid_Date( Input_Opt%NYMDb ) ) THEN\n       WRITE( DateStr, '(i8.8)' ) Input_Opt%NYMDb\n       errMsg = 'Input%Opt%NYMDb = ' // DateStr        // &\n                ' is not a valid calendar date!'       // &\n                ' Please check your \"geoschem_config.yml\" file.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Make sure the starting time NHMSb is valid\n    IF ( .not. Valid_Time( Input_Opt%NHMSb ) ) THEN\n       WRITE( TimeStr, '(i6.6)' ) Input_Opt%NHMSb\n       errMsg = 'Input%Opt%NHMSb = ' // TimeStr        // &\n                ' is not a valid clock time!'          // &\n                ' Please check your \"geoschem_config.yml\" file.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Simulation end date\n    !------------------------------------------------------------------------\n    key   = \"simulation%end_date\"\n    a_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%NYMDe = a_int(1)\n    Input_Opt%NHMSe = a_int(2)\n\n    ! Make sure the starting date NYMDb is valid\n    IF ( .not. Valid_Date( Input_Opt%NYMDe ) ) THEN\n       WRITE( DateStr, '(i8.8)' ) Input_Opt%NYMDe\n       errMsg = 'Input%Opt%NYMDe = ' // DateStr        // &\n                ' is not a valid calendar date!'       // &\n                ' Please check your \"geoschem_config.yml\" file.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Make sure the ending time NHMSe is valid\n    IF ( .not. Valid_Time( Input_Opt%NHMSe ) ) THEN\n       WRITE( TimeStr, '(i6.6)' ) Input_Opt%NHMSe\n       errMsg = 'Input%Opt%NHMSe = ' // TimeStr        // &\n                ' is not a valid clock time!'          // &\n                ' Please check your \"geoschem_config.yml\" file.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Root data directory\n    !------------------------------------------------------------------------\n    key   = \"simulation%root_data_dir\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Data_Dir = TRIM( v_str )\n\n    ! Make sure DATA-DIR ends with a \"/\" character\n    C = LEN_TRIM( Input_Opt%DATA_DIR )\n    IF ( Input_Opt%DATA_DIR(C:C) /= '/' ) THEN\n       Input_Opt%DATA_DIR = TRIM( Input_Opt%DATA_DIR ) // '/'\n    ENDIF\n\n    ! Create CHEM_INPUTS directory\n    Input_Opt%CHEM_INPUTS_DIR = TRIM( Input_Opt%DATA_DIR ) // &\n                                'CHEM_INPUTS/'\n\n    !------------------------------------------------------------------------\n    ! Meteorology field\n    !------------------------------------------------------------------------\n    key   = \"simulation%met_field\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%MetField = TRIM( v_str )\n\n#if !defined( MODEL_CESM )\n    ! Make sure a valid met field is specified\n    Met = To_UpperCase( TRIM( Input_Opt%MetField ) )\n    SELECT CASE( TRIM( Met ) )\n       CASE( 'GEOS-FP', 'GEOSFP' )\n          Input_Opt%MetField = 'GEOSFP'\n       CASE( 'MERRA-2', 'MERRA2' )\n          Input_Opt%MetField = 'MERRA2'\n       CASE( 'GEOS-IT', 'GEOSIT' )\n          Input_Opt%MetField = 'GEOSIT'\n       CASE( 'MODELE2.1' )\n          Input_Opt%MetField = 'MODELE2.1'\n       CASE( 'MODELE2.2' )\n          Input_Opt%MetField = 'MODELE2.2'\n       CASE DEFAULT\n          errMsg = Trim( Input_Opt%MetField ) // ' is not a valid '       // &\n                ' met field. Supported met fields are GEOS-FP, '          // &\n                ' MERRA-2 and ModelE2.1. Please check your '              // &\n                '\"geoschem_config.ymls\" file.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    END SELECT\n#endif\n\n    !------------------------------------------------------------------------\n    ! Turn on timers\n    !------------------------------------------------------------------------\n    key    = \"simulation%use_gcclassic_timers\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%UseTimers = v_bool\n\n    !------------------------------------------------------------------------\n    ! Read restart file as REAL8 not REAL4 (GC-Classic only)\n    !\n    ! If true, then restart file is read as REAL4 through HEMCO. This option\n    ! introduces small differences when breaking up a simulation in time. However,\n    ! this is the only option if the restart file must be regridded or regionally\n    ! subsetted at run-time.\n    !\n    ! If false, then restart file is read as REAL8 through GEOS-Chem, enabling\n    ! bit-for-bit reproducibility when breaking up a run in time. This should\n    ! only be done for global simulations and if the restart file is the same\n    ! grid resolution as the run, e.g. 4x5 restart file for global 4x5 run.\n    !\n    ! If missing in config file then defaults to false and uses HEMCO for read.\n    !\n    ! Note that this is a GC-Classic only setting. GCHP always reads the restart\n    ! file as whatever precision it is within the file.\n    !------------------------------------------------------------------------\n    key    = \"simulation%read_restart_as_real8\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%read_restart_as_real8 = v_bool\n\n    !------------------------------------------------------------------------\n    ! Set start time of run in \"time_mod.F90\"\n    !------------------------------------------------------------------------\n    CALL Set_Begin_Time( Input_Opt%NYMDb, Input_Opt%NHMSb, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Set_Begin_Time\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Set end time of run in \"time_mod.F90\"\n    !------------------------------------------------------------------------\n    errMsg = 'Error encountered in \"Set_Begin_Time\"!'\n    CALL Set_End_Time( Input_Opt%NYMDe, Input_Opt%NHMSe, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Set the current time\n    CALL Set_Current_Time()\n\n#endif\n\n    !========================================================================\n    ! Compute the length of the simulation, in elapsed seconds\n    !========================================================================\n    JulianDateStart        = GET_JD( Input_Opt%NymdB, Input_Opt%NhmsB )\n    JulianDateEnd          = GET_JD( Input_Opt%NymdE, Input_Opt%NhmsE )\n    Input_Opt%SimLengthSec = NINT( ( JulianDateEnd - JulianDateStart  )      &\n                           * 86400_f8)\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'SIMULATION SETTINGS'\n       WRITE( 6, 95  ) '-------------------'\n       WRITE( 6, 110 ) 'Simulation name             : ',                     &\n                        TRIM( Input_Opt%SimulationName )\n       WRITE( 6, 110 ) 'CHEM_INPUTS directory       : ',                     &\n                        TRIM( Input_Opt%CHEM_INPUTS_DIR )\n       WRITE( 6, 110 ) 'Species database file       : ',                     &\n                        TRIM( Input_Opt%SpcDatabaseFile )\n       WRITE( 6, 120 ) 'Turn on verbose output      : ',                     &\n                        Input_Opt%Verbose\n       WRITE( 6, 110 ) 'Verbose output printed on   : ',                     &\n                        TRIM( verboseMsg )\n#ifdef MODEL_CLASSIC\n       WRITE( 6, 100 ) 'Start time of run           : ',                     &\n                        Input_Opt%NYMDb, Input_Opt%NHMSb\n       WRITE( 6, 100 ) 'End time of run             : ',                     &\n                        Input_Opt%NYMDe, Input_Opt%NHMSe\n       WRITE( 6, 110 ) 'Data Directory              : ',                     &\n                        TRIM( Input_Opt%DATA_DIR )\n       WRITE( 6, 110 ) 'Meteorology field           : ',                     &\n                        TRIM( Input_Opt%MetField )\n       WRITE( 6, 120 ) 'Turn on GEOS-Chem timers    : ',                     &\n                        Input_Opt%useTimers\n       WRITE( 6, 120 ) 'Read restart as real8 (skip HEMCO for restart read): ', &\n                        Input_Opt%read_restart_as_real8\n#endif\n    ENDIF\n\n    ! Format statements\n90  FORMAT( /, A              )\n95  FORMAT( A                 )\n100 FORMAT( A, I8.8, 1X, I6.6 )\n110 FORMAT( A, A              )\n120 FORMAT( A, L5             )\n\n  END SUBROUTINE Config_Simulation\n!EOC\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_grid\n!\n! !DESCRIPTION: Copies grid information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Grid( Config, Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE CharPak_Mod,    ONLY : StrSplit\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE RoundOff_Mod,   ONLY : Cast_and_RoundOff\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid  ! Grid State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Oct 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n    INTEGER                      :: v_int\n    INTEGER                      :: nSubStrs\n    INTEGER                      :: N\n    INTEGER                      :: C\n\n    ! Arrays\n    INTEGER                      :: a_int(4)\n\n    ! Strings\n    CHARACTER(LEN=10)            :: xMin_Str, xMax_Str\n    CHARACTER(LEN=10)            :: yMin_Str, yMax_Str\n    CHARACTER(LEN=255)           :: thisLoc,  nLev\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    ! String arrays\n    CHARACTER(LEN=255)           :: subStrs(MAXDIM)\n    CHARACTER(LEN=QFYAML_StrLen) :: a_str(2)\n\n    !========================================================================\n    ! Config_Grid begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_Grid (in GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Grid resolution\n    !------------------------------------------------------------------------\n    key   = \"grid%resolution\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%GridRes = TRIM( v_str )\n\n    ! Split into two values, separated by 'x'\n    CALL StrSplit( TRIM( State_Grid%GridRes ) , 'x', SubStrs, nSubStrs )\n\n    ! Stop with error if there are more than two substrings\n    IF ( nSubStrs /= 2 ) THEN\n       errMsg = 'Error in extracting delta X and Y values from'    // &\n                ' State_Grid%GridRes. Values must be separated by' // &\n                ' an x. Please check your \"geoschem_config.yml\" file.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Save the delta X and Y values\n    State_Grid%DY = Cast_and_RoundOff( subStrs(1), places=6 )\n    State_Grid%DX = Cast_and_RoundOff( subStrs(2), places=6 )\n\n    !------------------------------------------------------------------------\n    ! Level range\n    !------------------------------------------------------------------------\n    key   = \"grid%number_of_levels\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%NZ = v_int\n\n    !------------------------------------------------------------------------\n    ! Longitude range\n    !------------------------------------------------------------------------\n    key   = \"grid%longitude%range\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%XMin = Cast_and_RoundOff( a_str(1), places=6 )\n    State_Grid%XMax = Cast_and_RoundOff( a_str(2), places=6 )\n\n    ! Make sure values are in valid rangre\n    IF ( State_Grid%XMin >= State_Grid%XMax ) THEN\n       WRITE( XMin_Str, '(i10)' ) State_Grid%XMin\n       WRITE( XMax_Str, '(i10)' ) State_Grid%XMax\n       errMsg = 'Lower lon must be smaller than upper lon: ' // &\n                TRIM( XMin_Str ) // ' ' // TRIM( XMax_Str )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Center longitude on International Date Line?Longitude range\n    !------------------------------------------------------------------------\n    key    = \"grid%longitude%center_at_180\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%Center180 = v_bool\n\n    !------------------------------------------------------------------------\n    ! Latitude range\n    !------------------------------------------------------------------------\n    key   = \"grid%latitude%range\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%YMin = Cast_and_RoundOff( a_str(1), places=6 )\n    State_Grid%YMax = Cast_and_RoundOff( a_str(2), places=6 )\n\n    ! Make sure values are in valid range\n    IF ( State_Grid%YMin >= State_Grid%YMax ) THEN\n       WRITE( YMin_Str, '(i10)' ) State_Grid%YMin\n       WRITE( YMax_Str, '(i10)' ) State_Grid%YMax\n       errMsg = 'Lower lat must be smaller than upper lat: ' // &\n                TRIM( YMin_Str ) // ' ' // TRIM( YMax_Str )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Restrict latitude values to -90.0 and 90.0\n    IF ( State_Grid%YMin < -90.0_fp ) THEN\n       WRITE( YMin_Str, '(i10)' ) State_Grid%YMin\n       errMsg = 'Lower latitude must be between -90 and 90 degN: ' // &\n                TRIM( YMin_Str )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( State_Grid%YMax > 90.0_fp ) THEN\n       WRITE( YMax_Str, '(i10)' ) State_Grid%YMax\n       errMsg = 'Upper latitude must be between -90 and 90 degN: ' // &\n                TRIM( YMax_Str )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Use half-sized polar boxes in latitude?\n    !------------------------------------------------------------------------\n    key    = \"grid%latitude%half_size_polar_boxes\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%HalfPolar = v_bool\n\n    !------------------------------------------------------------------------\n    ! Nested grid settings\n    !------------------------------------------------------------------------\n    key    = \"grid%nested_grid_simulation%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%NestedGrid = v_bool\n\n    IF ( State_Grid%NestedGrid ) THEN\n       ! Increase NX by 1\n       State_Grid%NX        = State_Grid%NX + 1\n\n       ! For now hardcode HalfPolar to false when using a nested grid\n       State_Grid%HalfPolar = .FALSE.\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Nested grid transport offsets\n    !------------------------------------------------------------------------\n    key   = \"grid%nested_grid_simulation%buffer_zone_NSEW\"\n    a_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    State_Grid%NorthBuffer = a_int(1)\n    State_Grid%SouthBuffer = a_int(2)\n    State_Grid%EastBuffer  = a_int(3)\n    State_Grid%WestBuffer  = a_int(4)\n\n    ! Set buffers to zero for global grids\n    IF ( .not. State_Grid%NestedGrid ) THEN\n       State_Grid%NorthBuffer = 0\n       State_Grid%SouthBuffer = 0\n       State_Grid%EastBuffer  = 0\n       State_Grid%WestBuffer  = 0\n    ENDIF\n\n    ! Compute grid horizontal dimensions\n    State_Grid%NX =                                                          &\n       FLOOR( ( State_Grid%XMax - State_Grid%XMin ) / State_Grid%DX )\n    IF ( State_Grid%HalfPolar .and. .not. State_Grid%NestedGrid ) THEN\n       State_Grid%NY =                                                       &\n          FLOOR( ( State_Grid%YMax - State_Grid%YMin ) / State_Grid%DY ) + 1\n    ELSE\n       State_Grid%NY =                                                       &\n          FLOOR( ( State_Grid%YMax - State_Grid%YMin ) / State_Grid%DY )\n    ENDIF\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'GRID SETTINGS'\n       WRITE( 6, 95  )  '------------'\n       WRITE( 6, 100 ) 'Grid resolution             : ',                     &\n                        TRIM( State_Grid%GridRes )\n       WRITE( 6, 110 ) 'Min/max longitude           : ',                     &\n                        State_Grid%XMin, State_Grid%XMax\n       WRITE( 6, 110 ) 'Min/max latitude            : ',                     &\n                        State_Grid%YMin, State_Grid%YMax\n       WRITE( 6, 120 ) 'X grid dimension            : ',                     &\n                        State_Grid%NX\n       WRITE( 6, 120 ) 'Y grid dimension            : ',                     &\n                        State_Grid%NY\n       WRITE( 6, 120 ) 'Z grid dimension            : ',                     &\n                        State_Grid%NZ\n       WRITE( 6, 130 ) 'Use half-sized polar boxes? : ',                     &\n                        State_Grid%HalfPolar\n       WRITE( 6, 130 ) 'Center on Intl Date Line?   : ',                     &\n                        State_Grid%Center180\n       WRITE( 6, 130 ) 'Is this a nested-grid sim?  : ',                     &\n                        State_Grid%NestedGrid\n       WRITE( 6, 140 ) ' --> Buffer zone (N S E W ) : ',                     &\n                        State_Grid%NorthBuffer,                              &\n                        State_Grid%SouthBuffer,                              &\n                        State_Grid%EastBuffer,                               &\n                        State_Grid%WestBuffer\n    ENDIF\n\n    ! Format statements\n90  FORMAT( /, A                )\n95  FORMAT( A                   )\n100 FORMAT( A, A                )\n110 FORMAT( A, F10.4, 1X, F10.4 )\n120 FORMAT( A, I5               )\n130 FORMAT( A, L5               )\n140 FORMAT( A, 4I5              )\n\n  END SUBROUTINE Config_Grid\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_timesteps\n!\n! !DESCRIPTION: Copies timestep information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Timesteps( Config, Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: v_int\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: key\n\n    !========================================================================\n    ! Config_Timesteps begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = 'Error reading the \"geoschem_config.yml\" file!'\n    thisLoc = ' -> at Config_Timestep (in module GeosCore/input_mod.F90)'\n\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n    !------------------------------------------------------------------------\n    ! Transport/convection timestep\n    !------------------------------------------------------------------------\n    key   = \"timesteps%transport_timestep_in_s\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%TS_DYN  = v_int\n    Input_Opt%TS_CONV = v_int\n\n    !------------------------------------------------------------------------\n    ! Chemistry/emissions timestep\n    !------------------------------------------------------------------------\n    key   = \"timesteps%chemistry_timestep_in_s\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%TS_CHEM = v_int\n    Input_Opt%TS_EMIS = v_int\n\n    !------------------------------------------------------------------------\n    ! RRTMG radiation timestep\n    !------------------------------------------------------------------------\n    key   = \"timesteps%radiation_timestep_in_s\"\n    v_int = 0\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%TS_RAD = v_int\n#endif\n\n    !========================================================================\n    ! Error checks\n    !========================================================================\n\n#ifdef MODEL_CLASSIC\n    IF ( Input_Opt%SimLengthSec < Input_Opt%TS_DYN                      .or. &\n         Input_Opt%SimLengthSec < Input_Opt%TS_CHEM )                   THEN\n       IF ( Input_Opt%amIRoot )                                         THEN\n          WRITE( 6,'(a)' ) ''\n          WRITE( 6,'(a)' ) 'The length of the simulation is shorter '\n          WRITE( 6,'(a)' ) 'than the transport and/or chemistry '\n          WRITE( 6,'(a)' ) 'timesteps. Check the settings in '\n          WRITE( 6,'(a)' ) 'the \"geoschem_config.yml\" file.'\n          WRITE( 6,'(a)' ) ''\n          WRITE( 6,100 ) 'Transport/Convection  [sec] : ', Input_Opt%TS_DYN\n          WRITE( 6,100 ) 'Chemistry/Emissions   [sec] : ', Input_Opt%TS_CHEM\n          WRITE( 6,100 ) 'Simulation duration   [sec] : ',                   &\n                                                       Input_Opt%SimLengthSec\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( TRIM( Input_Opt%MetField ) == 'MERRA2'                        .and. &\n         TRIM( State_Grid%GridRes ) == '0.5x0.625' )                   THEN\n       IF ( Input_Opt%ITS_A_CARBON_SIM )   THEN\n          IF ( Input_Opt%TS_DYN > 300 .or. Input_Opt%TS_CHEM > 600 )   THEN\n             IF ( Input_Opt%amIRoot ) THEN\n                WRITE( 6,'(a)' ) ''\n                WRITE( 6,'(a)' ) 'It has been noted that MERRA-2 nested grid'\n                WRITE( 6,'(a)' ) ' simulations can have very high species'\n                WRITE( 6,'(a)' ) ' concentrations in the stratosphere caused'\n                WRITE( 6,'(a)' ) ' by a violation of the CFL condition due to'\n                WRITE( 6,'(a)' ) ' strong stratospheric winds. This is'\n                WRITE( 6,'(a)' ) ' especially problematic when using total'\n                WRITE( 6,'(a)' ) ' column concentrations. To avoid the issue,'\n                WRITE( 6,'(a)' ) ' a timestep of 5/10 instead of 10/20 is'\n                WRITE( 6,'(a)' ) ' recommended for carbon simulations with.'\n                WRITE( 6,'(a)' ) ' CH4 and/or CO2 included.'\n                WRITE( 6,'(a)' ) ''\n                WRITE( 6,'(a)' ) 'You may remove this trap at your own peril,'\n                WRITE( 6,'(a)' ) ' by commenting out the call to GC_ERROR in'\n                WRITE( 6,'(a)' ) ' GeosCore/input_mod.F90. '\n                WRITE( 6,'(a)' ) ''\n                WRITE( 6,'(a)' ) 'See the MERRA-2 implementation details page'\n                WRITE( 6,'(a)' ) ' on the GEOS-Chem wiki for details'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDIF\n#endif\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'TIMESTEP SETTINGS'\n       WRITE( 6, 95  ) '-----------------'\n       WRITE( 6, 100 ) 'Transport/Convection [sec]  : ', Input_Opt%TS_DYN\n       WRITE( 6, 100 ) 'Chemistry/Emissions  [sec]  : ', Input_Opt%TS_CHEM\n       WRITE( 6, 100 ) 'RRTMG rad transfer   [sec]  : ', Input_Opt%TS_RAD\n    ENDIF\n\n    ! Format statements\n90  FORMAT( /, A   )\n95  FORMAT( A      )\n100 FORMAT( A, I5  )\n\n  END SUBROUTINE Config_Timesteps\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_transport\n!\n! !DESCRIPTION: Copies transport information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Transport( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n    INTEGER                      :: N\n    INTEGER                      :: C\n\n    ! Arrays\n    INTEGER                      :: a_int(3)\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n\n    ! String arrays\n    CHARACTER(LEN=QFYAML_NamLen) :: a_str(QFYAML_MaxArr)\n\n    !========================================================================\n    ! Config_Transport begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = 'Error reading the \"geoschem_config.yml\" file!'\n    thisLoc = ' -> at Config_Transport (in GeosCore/input_mod.F90)'\n\n#ifdef MODEL_CLASSIC\n    !========================================================================\n    !             %%%%%%% GEOS-Chem CLASSIC (with OpenMP) %%%%%%%\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! Turn on TPCORE transport?\n    !------------------------------------------------------------------------\n    key    = \"operations%transport%gcclassic_tpcore%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LTRAN = v_bool\n\n    !------------------------------------------------------------------------\n    ! Fill negative values generated by TPCORE?\n    !------------------------------------------------------------------------\n    key    = \"operations%transport%gcclassic_tpcore%fill_negative_values\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LFILL = v_bool\n\n    !------------------------------------------------------------------------\n    ! IORD, JORD, KORD settings for TPCORE\n    !------------------------------------------------------------------------\n    key   = \"operations%transport%gcclassic_tpcore%iord_jord_kord\"\n    a_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%TPCORE_IORD = a_int(1)\n    Input_Opt%TPCORE_JORD = a_int(2)\n    Input_Opt%TPCORE_KORD = a_int(3)\n\n#else\n\n    !========================================================================\n    !             %%%%%%% OTHER INSTANCES OF GEOS-Chem %%%%%%%\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! Turn on transport?\n    !------------------------------------------------------------------------\n    key    = \"operations%transport%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LTRAN = v_bool\n\n#endif\n\n    !------------------------------------------------------------------------\n    ! Transported (advected) species list\n    !------------------------------------------------------------------------\n    key   = \"operations%transport%transported_species\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str,                         &\n                         \"\",     RC,          dynamic_size=.TRUE.           )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Find the number of valid species (not equal to MISSING_STR)\n    Input_Opt%N_Advect = Get_Number_of_Species( a_str )\n\n    ! Remove single quotes from species (i.e. 'NO' -> NO)\n    DO N = 1, Input_Opt%N_Advect\n       C = INDEX( a_str(N), \"'\" )\n       IF ( C > 0 ) THEN\n          a_str(N) = a_str(N)(C+1:)\n          C = INDEX( a_str(N), \"'\" )\n          IF ( C > 0 ) a_str(N) = a_str(N)(1:C-1)\n       ENDIF\n    ENDDO\n\n    ! Throw an error if there are more species than the array length\n    IF ( Input_Opt%N_Advect > Input_Opt%Max_AdvectSpc ) THEN\n       errMsg = 'Number of advected species exceeds maximum. ' // &\n            'This value can be modified in input_opt_mod.F90.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Copy the advected species names into Input_Opt%Advect_Spc_Name\n    Input_Opt%AdvectSpc_Name(1:Input_Opt%N_Advect) = &\n         a_str(1:Input_Opt%N_Advect)\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6,90  ) 'TRANSPORT SETTINGS'\n       WRITE( 6,95  ) '------------------'\n       WRITE( 6,100 ) 'Turn on transport?          : ',Input_Opt%LTRAN\n#ifdef MODEL_CLASSIC\n       WRITE( 6,100 ) 'Let TPCORE Fill negatives?  : ',Input_Opt%LFILL\n       WRITE( 6,110 ) 'IORD, JORD, KORD for TPCORE?: ',Input_Opt%TPCORE_IORD,&\n                                                       Input_Opt%TPCORE_JORD,&\n                                                       Input_Opt%TPCORE_KORD\n#endif\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A   )\n95  FORMAT( A      )\n100 FORMAT( A, L5  )\n110 FORMAT( A, 5I5 )\n\n    !=================================================================\n    ! Call setup routines from other F90 modules\n    !=================================================================\n\n    ! Split into tagged species\n    IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n       Input_Opt%LSPLIT = ( Input_Opt%N_ADVECT > 1 )  ! Tags if > 1 species\n    ELSE\n       Input_Opt%LSPLIT = .FALSE.  \n    ENDIF\n\n  END SUBROUTINE Config_Transport\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_aerosol\n!\n! !DESCRIPTION: Copies aerosol information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Aerosol( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  Move error checks that depend on species indices to the subroutine\n!  DO_ERROR_CHECKS.  This is now called from GC_INIT_EXTRA, after the\n!  initialization of the species database.\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: N, T\n    INTEGER                      :: v_int\n    LOGICAL                      :: v_bool\n    REAL(yp)                     :: v_real\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n    CHARACTER(LEN=QFYAML_StrLen) :: a_str(2)\n\n    !========================================================================\n    ! Config_Aerosol begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_Aerosol (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Directories with aerosol optical property input files\n    !------------------------------------------------------------------------\n\n    key   = \"aerosols%optics%input_dir\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AER_OPTICS_DIR = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Use online carbon aerosols?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%carbon%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LCARB = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use brown carbon aerosols?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%carbon%use_brown_carbon\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LBRC = v_bool\n\n    !------------------------------------------------------------------------\n    ! Include BC absorption enhancement due to coating?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%carbon%enhance_black_carbon_absorption%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LBCAE = v_bool\n\n    !------------------------------------------------------------------------\n    ! Define BC absorption enhancement\n    !------------------------------------------------------------------------\n    key   = \"aerosols%carbon%enhance_black_carbon_absorption%hydrophilic\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%BCAE_1 = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Define BC absorption enhancement (xnw, 8/24/15)\n    !------------------------------------------------------------------------\n    key   = \"aerosols%carbon%enhance_black_carbon_absorption%hydrophobic\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%BCAE_2 = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Use secondary organic aerosols?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%complex_SOA%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSOA = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use semi-volatile POA?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%complex_SOA%semivolatile_POA\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSVPOA = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use online dust aerosols ?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%dust%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LDUST = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use SO2 and HNO3 uptake on dust aerosols\n    !------------------------------------------------------------------------\n    key    = \"aerosols%dust%acid_uptake_on_dust\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LDSTUP = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use online sea-salt aerosols?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%sea_salt%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSSALT = v_bool\n\n    !------------------------------------------------------------------------\n    ! Accum mode seasalt radii bin edges [um]\n    !------------------------------------------------------------------------\n    key   = \"aerosols%sea_salt%SALA_radius_bin_in_um\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%SALA_Redge_um(1) = Cast_and_RoundOff( a_str(1), places=2 )\n    Input_Opt%SALA_Redge_um(2) = Cast_and_RoundOff( a_str(2), places=2 )\n\n    !------------------------------------------------------------------------\n    ! Coarse mode seasalt radii bin edges [um]\n    !------------------------------------------------------------------------\n    key   = \"aerosols%sea_salt%SALC_radius_bin_in_um\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%SALC_Redge_um(1) = Cast_and_RoundOff( a_str(1), places=2 )\n    Input_Opt%SALC_Redge_um(2) = Cast_and_RoundOff( a_str(2), places=2 )\n\n    !------------------------------------------------------------------------\n    ! Use marine organic aerosols?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%sea_salt%marine_organic_aerosols\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LMPOA = v_bool\n\n    !------------------------------------------------------------------------\n    ! Apply gravitational settling in stratosphere?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%stratosphere%settle_strat_aerosol\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LGRAVSTRAT = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use solid polar stratospheric clouds (PSCs)?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%stratosphere%polar_strat_clouds%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSOLIDPSC = v_bool\n\n    !------------------------------------------------------------------------\n    ! Perform heterogeneous chemistry on PSCs?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%stratosphere%polar_strat_clouds%het_chem\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LPSCCHEM = v_bool\n\n    !------------------------------------------------------------------------\n    ! Allow homogeneous NAT?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%stratosphere%allow_homogeneous_NAT\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LHOMNUCNAT = v_bool\n\n    !------------------------------------------------------------------------\n    ! NAT supercooling requirement (K)\n    !------------------------------------------------------------------------\n    key   = \"aerosols%stratosphere%NAT_supercooling_req_in_K\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%T_NAT_SUPERCOOL = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Ice supersaturation ratio requirement\n    !------------------------------------------------------------------------\n    key   = \"aerosols%stratosphere%supersat_factor_req_for_ice_nucl\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%P_ICE_SUPERSAT = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Include stratospheric aerosols optical depths?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%stratosphere%calc_strat_aod\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSTRATOD = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use online sulfate aerosols?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%sulfate%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSULF = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use metal catalyzed oxidation of SO2?\n    !------------------------------------------------------------------------\n    key    = \"aerosols%sulfate%metal_cat_SO2_oxidation\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LMETALCATSO2 = v_bool\n\n    !=================================================================\n    ! Error checks\n    !=================================================================\n\n    ! Make sure that SALA, SALC bins are contiguous\n    IF ( Input_Opt%SALA_REDGE_um(2) /= &\n         Input_Opt%SALC_REDGE_um(1)     ) THEN\n       errMsg = 'SALA and SALC bin edges are not contiguous!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Turn off switches for simulations that don't use aerosols\n    IF ( ( .not. Input_Opt%ITS_A_FULLCHEM_SIM )  .and. &\n         ( .not. Input_Opt%ITS_AN_AEROSOL_SIM ) ) THEN\n       Input_Opt%LSULF        = .FALSE.\n       Input_Opt%LMETALCATSO2 = .FALSE.\n       Input_Opt%LCARB        = .FALSE.\n       Input_Opt%LBRC         = .FALSE.\n       Input_Opt%LSOA         = .FALSE.\n       Input_Opt%LDUST        = .FALSE.\n       Input_Opt%LSSALT       = .FALSE.\n       Input_Opt%LMPOA        = .FALSE.\n       Input_Opt%LSVPOA       = .FALSE.\n       Input_Opt%LBCAE        = .FALSE.\n    ENDIF\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'AEROSOL SETTINGS'\n       WRITE( 6, 95  ) '----------------'\n       WRITE( 6, 125 ) 'Aerosol optical property dir: ', Input_Opt%AER_OPTICS_DIR\n       WRITE( 6, 100 ) 'Online SULFATE AEROSOLS?    : ', Input_Opt%LSULF\n       WRITE( 6, 100 ) 'Metal catalyzed SO2 ox.?    : ', Input_Opt%LMETALCATSO2\n       WRITE( 6, 100 ) 'Online CARBON AEROSOLS?     : ', Input_Opt%LCARB\n       WRITE( 6, 100 ) 'Brown Carbon Aerosol?       : ', Input_Opt%LBRC\n       WRITE( 6, 100 ) 'BC Absorption Enhancement?  : ', Input_Opt%LBCAE\n       WRITE( 6, 105 ) 'Hydrophilic BC AE factor    : ', Input_Opt%BCAE_1\n       WRITE( 6, 105 ) 'Hydrophobic BC AE factor    : ', Input_Opt%BCAE_2\n       WRITE( 6, 100 ) 'Online COMPLEX SOA?         : ', Input_Opt%LSOA\n       WRITE( 6, 100 ) 'Semivolatile POA?           : ', Input_Opt%LSVPOA\n       WRITE( 6, 100 ) 'Online DUST AEROSOLS?       : ', Input_Opt%LDUST\n       WRITE( 6, 100 ) 'Acid uptake on dust?        : ', Input_Opt%LDSTUP\n       WRITE( 6, 100 ) 'Online SEA SALT AEROSOLS?   : ', Input_Opt%LSSALT\n       WRITE( 6, 110 ) 'Accum  SEA SALT radii [um]  : ',                     &\n                                                 Input_Opt%SALA_REDGE_um(1), &\n                                                 Input_Opt%SALA_REDGE_um(2)\n       WRITE( 6, 110 ) 'Coarse SEA SALT radii [um]  : ',                     &\n                                                 Input_Opt%SALC_REDGE_um(1), &\n                                                 Input_Opt%SALC_REDGE_um(2)\n       WRITE( 6, 100 ) 'MARINE ORGANIC AEROSOLS?    : ', Input_Opt%LMPOA\n       WRITE( 6, 100 ) 'Settle strat. aerosols?     : ', Input_Opt%LGRAVSTRAT\n       WRITE( 6, 100 ) 'Online SOLID PSC aerosols?  : ', Input_Opt%LSOLIDPSC\n       WRITE( 6, 100 ) 'Allow hom. NAT nucleation?  : ', Input_Opt%LHOMNUCNAT\n       WRITE( 6, 120 ) 'NAT supercooling requirement: ',                     &\n                                                   Input_Opt%T_NAT_SUPERCOOL\n       WRITE( 6, 120 ) 'Ice supersaturation req.    : ',                     &\n                                     ((Input_Opt%P_ICE_SUPERSAT-1)*1.e+2_fp)\n       WRITE( 6, 100 ) 'Perform PSC het. chemistry? : ', Input_Opt%LPSCCHEM\n       WRITE( 6, 100 ) 'Use strat. aerosol OD?      : ', Input_Opt%LSTRATOD\n    ENDIF\n\n90  FORMAT( /, A                 )\n95  FORMAT( A                    )\n100 FORMAT( A, L5                )\n105 FORMAT( A, f8.2              )\n110 FORMAT( A, f8.2, ' - ', f8.2 )\n120 FORMAT( A, f8.2, 'K'         )\n125 FORMAT( A, A    )\n\n  END SUBROUTINE Config_Aerosol\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_co\n!\n! !DESCRIPTION: Copies CO information from the Config object to Input_Opt\n!  and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_CO( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n\n    !========================================================================\n    ! Config_CO begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_CO (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Use P(CO) from CH4 (archived from a fullchem simulation)?\n    !------------------------------------------------------------------------\n    key    = \"CO_options%use_archived_PCO_from_CH4\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LPCO_CH4 = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use P(CO) from NMVOC (archived from a fullchem simulation)?\n    !------------------------------------------------------------------------\n    key    = \"CO_options%use_archived_PCO_from_NMVOC\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LPCO_NMVOC = v_bool\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE(6,90 ) 'CO SETTINGS'\n       WRITE(6,95 ) '(overwrites any other settings related to CO)'\n       WRITE(6,95 ) '---------------------------------------------'\n       WRITE(6,100) 'Use archived P(CO) from CH4?   :', Input_Opt%LPCO_CH4\n       WRITE(6,100) 'Use archived P(CO) from NMVOC? :', Input_Opt%LPCO_NMVOC\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A   )\n95  FORMAT( A      )\n100 FORMAT( A, L5  )\n\n  END SUBROUTINE Config_CO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_co2\n!\n! !DESCRIPTION: Copies CO2 information from the Config object to Input_Opt\n!  and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_CO2( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n\n    !========================================================================\n    ! Config_CO2 begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_CO2 (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Use archived fields of CO2 production from CO oxidation?\n    !------------------------------------------------------------------------\n    key    = \"CO2_options%sources%use_archived_PCO2_from_CO\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LCHEMCO2 = v_bool\n\n    !=================================================================\n    ! Print to screen\n    !=================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6,90  ) 'CO2 SETTINGS'\n       WRITE( 6,95  ) '(overwrites any other settings related to CO2)'\n       WRITE( 6,95  ) '----------------------------------------------'\n       WRITE( 6,100 ) 'Use archived P(CO2) from CO?  :', Input_Opt%LCHEMCO2\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A  )\n95  FORMAT( A     )\n100 FORMAT( A, L5 )\n\n  END SUBROUTINE Config_CO2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_chemistry\n!\n! !DESCRIPTION: Copies chemistry information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Chemistry( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: N\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_Chemistry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_Chemistry (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on chemistry?\n    !------------------------------------------------------------------------\n    key    = \"operations%chemistry%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LCHEM = v_bool\n\n    !------------------------------------------------------------------------\n    ! Turn on linearized chemistry above chemistry grid?\n    !------------------------------------------------------------------------\n    key    = \"operations%chemistry%linear_chemistry_aloft%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LINEAR_CHEM = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use Linoz for ozone above chemistry grid? (Otherwise, Synoz is used)\n    !------------------------------------------------------------------------\n    key    = \"operations%chemistry%linear_chemistry_aloft%use_linoz_for_O3\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LLINOZ = v_bool\n    IF ( .not. Input_Opt%LLINOZ ) Input_Opt%LSYNOZ = .TRUE.\n\n    !------------------------------------------------------------------------\n    ! Turn on online stratospheric H2O?\n    !------------------------------------------------------------------------\n    key    = \"operations%chemistry%active_strat_H2O%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LACTIVEH2O = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use a more conservative boundary condition for strat. H2O?\n    !------------------------------------------------------------------------\n    key    = \"operations%chemistry%active_strat_H2O%use_static_bnd_cond\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LStaticH2OBC = v_bool\n\n    !------------------------------------------------------------------------\n    ! GAMMA HO2 ?\n    !------------------------------------------------------------------------\n    key   = \"operations%chemistry%gamma_HO2\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%GAMMA_HO2 = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Auto-reduce solver options (hplin, 10/3/22)\n    ! autoreduce_solver:\n    !   activate: false\n    !   use_target_threshold:\n    !     activate: true\n    !     oh_tuning_factor: 0.00005\n    !     no2_tuning_factor: 0.0001\n    !   use_absolute_threshold:\n    !     scale_by_pressure: true\n    !     absolute_threshold: 100.0\n    !   keep_halogens_active: false\n    !   append_in_internal_timestep: false\n    !------------------------------------------------------------------------\n    key   = \"operations%chemistry%autoreduce_solver%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%USE_AUTOREDUCE = v_bool\n\n    ! Use target species (OH, NO2) based threshold?\n    key   = \"operations%chemistry%autoreduce_solver%use_target_threshold%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD = v_bool\n\n    ! ... OH and NO2 tuning factors?\n    key   = \"operations%chemistry%autoreduce_solver%use_target_threshold%oh_tuning_factor\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_TUNING_OH = Cast_and_RoundOff( v_str, places=0 )\n\n    key   = \"operations%chemistry%autoreduce_solver%use_target_threshold%no2_tuning_factor\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_TUNING_NO2 = Cast_and_RoundOff( v_str, places=0 )\n\n    ! If not target species, absolute rate threshold\n    key   = \"operations%chemistry%autoreduce_solver%use_absolute_threshold%absolute_threshold\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_THRESHOLD = Cast_and_RoundOff( v_str, places=0 )\n\n    ! Would this absolute threshold be scaled by pressure?\n    key   = \"operations%chemistry%autoreduce_solver%use_absolute_threshold%scale_by_pressure\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_IS_PRS_THRESHOLD = v_bool\n\n    ! Keep halogens active?\n    key   = \"operations%chemistry%autoreduce_solver%keep_halogens_active\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_IS_KEEPACTIVE = v_bool\n\n    ! Append species over the course of the external time step\n    ! (aka. in internal timesteps?)\n    key   = \"operations%chemistry%autoreduce_solver%append_in_internal_timestep\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AUTOREDUCE_IS_APPEND = v_bool\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6,90  ) 'CHEMISTRY SETTINGS'\n       WRITE( 6,95  ) '------------------'\n       WRITE( 6,100 ) 'Turn on chemistry?          : ', Input_Opt%LCHEM\n       WRITE( 6,100 ) 'Use linear. mesospheric chem: ', Input_Opt%LINEAR_CHEM\n       WRITE( 6,100 ) ' => Use Linoz for O3?       : ', Input_Opt%LLINOZ\n       WRITE( 6,100 ) 'Online strat. H2O?          : ', Input_Opt%LACTIVEH2O\n       WRITE( 6,100 ) 'Use robust strat H2O BC?    : ', Input_Opt%LStaticH2OBC\n       WRITE( 6,110 ) 'GAMMA HO2                   : ', Input_Opt%GAMMA_HO2\n       WRITE( 6,100 ) 'Use auto-reduce solver?     : ', Input_Opt%USE_AUTOREDUCE\n       IF ( Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD ) THEN\n         WRITE( 6,100 ) 'Use target species threshold: ', Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD\n         WRITE( 6,130 ) 'OH tuning factor:             ', Input_Opt%AUTOREDUCE_TUNING_OH\n         WRITE( 6,130 ) 'NO2 tuning factor:            ', Input_Opt%AUTOREDUCE_TUNING_NO2\n       ELSE\n         WRITE( 6,120 ) 'Absolute AR threshold       : ', Input_Opt%AUTOREDUCE_THRESHOLD\n         WRITE( 6,100 ) 'Use prs. dependent thres?   : ', Input_Opt%AUTOREDUCE_IS_PRS_THRESHOLD\n       ENDIF\n       WRITE( 6,100 ) 'Keep halogen spec. active?  : ', Input_Opt%AUTOREDUCE_IS_KEEPACTIVE\n       WRITE( 6,100 ) 'Use append in auto-reduce?  : ', Input_Opt%AUTOREDUCE_IS_APPEND\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A    )\n95  FORMAT( A       )\n100 FORMAT( A, L5   )\n110 FORMAT( A, F4.2 )\n120 FORMAT( A, F5.1 )\n130 FORMAT( A, ES7.1 )\n\n  END SUBROUTINE Config_Chemistry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Config_RRTMG\n!\n! !DESCRIPTION: Copies RRTMG information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_RRTMG( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  Flux outputs are now scheduled in the HISTORY.rc file, and the relevant\n!  fields of Input_Opt will be populated in the RRTMG module routine\n!  Init_RRTMG_Indices (called at startup).\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: I\n    INTEGER                      :: N\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=20)            :: str\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_NamLen) :: a_str(3)\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_RRTMG begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_RRTMG (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on RRTMG?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LRAD = v_bool\n\n    !------------------------------------------------------------------------\n    ! AOD wavelength selection? (You can have up to 3)\n    !------------------------------------------------------------------------\n    key   = \"operations%rrtmg_rad_transfer_model%aod_wavelengths_in_nm\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str,                          &\n                         \"\",     RC,          dynamic_size=.TRUE.            )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Copy values into Input_Opt\n    I = 0\n    DO N = 1, SIZE( a_str )\n       IF ( a_str(N) == MISSING_STR ) EXIT\n       I = I + 1\n       Input_Opt%nWvSelect      = I\n       Input_Opt%StrWvSelect(I) = TRIM( ADJUSTL( a_str(N) ) )\n       Input_Opt%WvSelect(I)    = Cast_and_RoundOff( a_str(N), places=2 )\n    ENDDO\n\n    !------------------------------------------------------------------------\n    ! Turn on LW radiation calculation?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%longwave_fluxes\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LLWRAD = v_bool\n\n    !------------------------------------------------------------------------\n    ! Turn on SW radiation calculation?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%shortwave_fluxes\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSWRAD = v_bool\n\n    !------------------------------------------------------------------------\n    ! Calculate for clear-sky?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%clear_sky_flux\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSKYRAD(1) = v_bool\n\n    !------------------------------------------------------------------------\n    ! Calculate for all-sky?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%all_sky_flux\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LSKYRAD(2) = v_bool\n\n    !------------------------------------------------------------------------\n    ! Value to use (in ppmv) for CO2?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%co2_ppmv\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%RRTMG_CO2_ppmv = Cast_and_Roundoff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Use the fixed dynamical heating assumption?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%fixed_dyn_heating\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%RRTMG_FDH = v_bool\n\n    !------------------------------------------------------------------------\n    ! Allow seasonal adjustment?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%seasonal_fdh\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%RRTMG_SEFDH = v_bool\n\n    !------------------------------------------------------------------------\n    ! Extend dynamical heating adjustment to TOA?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%fdh_to_toa\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%RRTMG_SA_TOA = v_bool\n\n    !------------------------------------------------------------------------\n    ! Read in dynamical heating data?\n    !------------------------------------------------------------------------\n    key    = \"operations%rrtmg_rad_transfer_model%read_dyn_heating\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Read_Dyn_Heating = v_bool\n\n    !========================================================================\n    ! Error check settings\n    !========================================================================\n#ifndef RRTMG\n    ! Use of RRTMG necessitates recompilation\n    IF ( Input_Opt%LRAD ) THEN\n       errMsg = 'LRAD=T but RRTMG is not defined at compile time!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    ! Make sure radiation switches are turned off if RRTMG is off\n    IF ( .not. Input_Opt%LRAD ) THEN\n\n       IF ( Input_Opt%LLWRAD ) THEN\n          errMsg = 'Cannot have LW fluxes turned on without RRTMG!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%LSWRAD ) THEN\n          errMsg = 'Cannot have SW fluxes turned on without RRTMG!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%LSKYRAD(1) ) THEN\n          errMsg = 'Cannot have clear-sky flux turned on without RRTMG!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%LSKYRAD(2) ) THEN\n          errMsg = 'Cannot have all-sky flux turned on without RRTMG!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n    ENDIF\n\n#ifndef MODEL_GCHPCTM\n    If (Input_Opt%RRTMG_FDH) Then\n       errMsg = 'Fixed dynamical heating in RRTMG is currently only available in GCHP'\n       CALL GC_Error( errMsg, RC, thisLoc )\n    End If\n#endif\n\n    If (Input_Opt%RRTMG_SEFDH.and.(.not.Input_Opt%RRTMG_FDH)) Then\n       errMsg = 'Cannot have seasonally evolving FDH without enabling FDH!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n    End If\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90 ) 'RRTMG SETTINGS'\n       WRITE( 6, 95 ) '--------------'\n       DO N=1, Input_Opt%NWVSELECT\n          WRITE( 6, 115     ) 'AOD output wavelength (nm)  : ',              &\n                               Input_Opt%WVSELECT(N)\n       ENDDO\n       WRITE( 6, 100 ) 'Turn on radiation?          : ', Input_Opt%LRAD\n       WRITE( 6, 100 ) 'Consider longwave?          : ', Input_Opt%LLWRAD\n       WRITE( 6, 100 ) 'Consider shortwave?         : ', Input_Opt%LSWRAD\n       WRITE( 6, 100 ) 'Clear-sky flux?             : ', Input_Opt%LSKYRAD(1)\n       WRITE( 6, 100 ) 'All-sky flux?               : ', Input_Opt%LSKYRAD(2)\n       WRITE( 6, 115 ) 'CO2 VMR in ppmv             : ', Input_Opt%RRTMG_CO2_ppmv\n       WRITE( 6, 100 ) 'Fixed dyn. heat. assumption?: ', Input_Opt%RRTMG_FDH\n       WRITE( 6, 100 ) ' --> Seasonal evolution?    : ', Input_Opt%RRTMG_SEFDH\n       WRITE( 6, 100 ) ' --> Extend to TOA?         : ', Input_Opt%RRTMG_SA_TOA\n       WRITE( 6, 100 ) ' --> Read in dyn. heating?  : ', Input_Opt%Read_Dyn_Heating\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A    )\n95  FORMAT( A       )\n100 FORMAT( A, L5   )\n110 FORMAT( A, I5   )\n115 FORMAT( A, F7.1 )\n120 FORMAT( A, 11I1 )\n\n  END SUBROUTINE Config_RRTMG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Config_Photolysis\n!\n! !DESCRIPTION: Copies photolysis information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Photolysis( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n    INTEGER                      :: v_int\n    REAL(yp)                     :: v_real\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_Photolysis begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_Photolysis (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on photolysis\n    !------------------------------------------------------------------------\n\n    key    = \"operations%photolysis%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Do_Photolysis = v_bool\n\n    !------------------------------------------------------------------------\n    ! FAST-JX menu\n    !------------------------------------------------------------------------\n\n    ! Input directory path\n    key   = \"operations%photolysis%fast-jx%fastjx_input_dir\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%FAST_JX_DIR = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! CLOUD-J menu\n    !------------------------------------------------------------------------\n\n    ! Input directory path\n    key   = \"operations%photolysis%cloud-j%cloudj_input_dir\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CloudJ_DIR = TRIM( v_str )\n\n    ! Turn on verbose output\n    key   = \"operations%photolysis%cloud-j%verbose\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Should Cloud-J verbose output be printed only on root or on all cores?\n    SELECT CASE ( TRIM( Input_Opt%VerboseOnCores ) )\n       CASE( 'ROOT' )\n          Input_Opt%CloudJ_Verbose = ( v_bool .and. Input_Opt%amIRoot )\n       CASE( 'ALL' )\n          Input_Opt%CloudJ_Verbose = v_bool\n       CASE DEFAULT\n          errMsg = 'Invalid selection!' // NEW_LINE( 'a' ) //                &\n               'simulation:verbose:on_cores must be either \"root\" or \"all\"'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n    END SELECT\n\n    ! Number levels with clouds to use in photolysis (Cloud-J var LWEPAR)\n    key   = \"operations%photolysis%cloud-j%num_levs_with_cloud\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%NLevs_Phot_Cloud = v_int\n\n    ! Cloud-J cloud scheme flag (Cloud-J var CLDFLAG)\n    key   = \"operations%photolysis%cloud-j%cloud_scheme_flag\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Cloud_Flag = v_int\n\n    ! Factor increase in cloud OD from layer to next below (Cloud-J var ATAU)\n    !  - used for inserting extra cloud layers in Cloud-J\n    key    = \"operations%photolysis%cloud-j%opt_depth_increase_factor\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%OD_Increase_Factor = Cast_and_RoundOff( v_str, places=4 )\n\n    ! Minimum cloud OD in uppermost inserted layer (Cloud-J var ATAU0)\n    !  - used for inserting extra cloud layers in Cloud-J\n    key    = \"operations%photolysis%cloud-j%min_top_inserted_cloud_OD\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Min_Cloud_OD = Cast_and_RoundOff( v_str, places=4 )\n\n    ! Cloud correlation between max-overlap blocks (will set Cloud-J var CLDCOR)\n    ! NOTE:\n    !  - only used for cloud schemes 5 and above\n    !  - 0.00 = random\n    key   = \"operations%photolysis%cloud-j%cloud_overlap_correlation\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Cloud_Corr = Cast_and_RoundOff( v_str, places=3 )\n\n    ! Number of blocks with correlated cloud overlap (will set Cloud-J var LNRG)\n    !  - only used for cloud schemes 5 and above\n    !  - limited values possible: 0 = max-ran @ gaps, 3 = alt blocks, 6 = max-overlap\n    key   = \"operations%photolysis%cloud-j%num_cloud_overlap_blocks\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Num_Max_Overlap = v_int\n\n    ! Spherical Earth atmospheric correction (will set Cloud-J var ATM0)\n    !  0 = flag\n    !  1 = spherical (standard)\n    !  2 = refractive\n    !  3 = geometric\n    key   = \"operations%photolysis%cloud-j%sphere_correction\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Sphere_Correction = v_int\n\n    ! Number of wavelength bins in UV-Vis (will set Cloud-J var NWBIN)\n    ! - limited values possible\n    !  18 = standard full Fast-J\n    !  12 = trop-only (0% err in trop, 33% performance savings)\n    !   8 = trop-only (1-2% error in J-02 and J-OCS in upper trop, big savings)\n    key   = \"operations%photolysis%cloud-j%num_wavelength_bins\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Num_WV_Bins = v_int\n\n    ! Whether to use absorption of UV by water vapor\n    key    = \"operations%photolysis%cloud-j%use_H2O_UV_absorption\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%USE_H2O_UV_Abs = v_bool\n\n    !------------------------------------------------------------------------\n    ! Overhead O3 menu\n    !------------------------------------------------------------------------\n\n    ! Use online ozone in extinction calculations?\n    key    = \"operations%photolysis%overhead_O3%use_online_O3_from_model\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%USE_ONLINE_O3 = v_bool\n\n    ! Use ozone columns from met fields?\n    key    = \"operations%photolysis%overhead_O3%use_column_O3_from_met\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%USE_O3_FROM_MET = v_bool\n\n    ! Use ozone columns from TOMS?\n    key    = \"operations%photolysis%overhead_O3%use_TOMS_SBUV_O3\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%USE_TOMS_O3 = v_bool\n\n    !------------------------------------------------------------------------\n    ! Nitrate photolysis menu\n    !------------------------------------------------------------------------\n\n    ! Photoylse nitrate aerosol?\n    key    = \"operations%photolysis%photolyze_nitrate_aerosol%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%hvAerNIT = v_bool\n\n    ! Scalar for JHNO3 for photoylsing NITs aerosol\n    key    = &\n     \"operations%photolysis%photolyze_nitrate_aerosol%NITs_Jscale\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%hvAerNIT_JNITs = Cast_and_RoundOff( v_str, places=3 )\n\n    ! scalar for JHNO3 for photoylsing NIT aerosol (TMS, 23/08/18)\n    key    = &\n     \"operations%photolysis%photolyze_nitrate_aerosol%NIT_Jscale\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%hvAerNIT_JNIT = Cast_and_RoundOff( v_str, places=3 )\n\n    ! Fraction for JNITS/NIT channel A (HNO2) for NITs photoylsis\n    key   = &\n     \"operations%photolysis%photolyze_nitrate_aerosol%percent_channel_A_HONO\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%JNITChanA = Cast_and_RoundOff( v_str, places=3 )\n\n    ! Fraction for JNITs/NIT channel B (NO2) for NITs photoylsis\n    key    = &\n     \"operations%photolysis%photolyze_nitrate_aerosol%percent_channel_B_NO2\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%JNITChanB = Cast_and_RoundOff( v_str, places=3 )\n\n    !========================================================================\n    ! Error check settings\n    !========================================================================\n\n#ifndef MODEL_GEOS\n    ! Cannot use Synoz with linearized mesospheric chemistry\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .and. Input_Opt%LINEAR_CHEM ) THEN\n       IF (.not.Input_Opt%LLINOZ) THEN\n          errMsg = 'Cannot use Synoz with linearized mesospheric chem.!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n#endif\n\n    ! FAST-JX is only used for fullchem and mercury\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM   .or.                                 &\n         Input_Opt%ITS_AN_AEROSOL_SIM   .or.                                 &\n         Input_Opt%ITS_A_MERCURY_SIM  ) THEN\n\n       ! Make sure either O3 from met or TOMS is selected\n       IF ( .not. Input_Opt%USE_O3_FROM_MET   .and.                          &\n            .not. Input_Opt%USE_TOMS_O3     ) THEN\n          errMsg = 'Must select either O3 from met or TOMS/SBUV O3'          &\n                // 'for O3 values above the chemistry grid!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       IF ( Input_Opt%USE_O3_FROM_MET .and. &\n            Input_Opt%USE_TOMS_O3 ) THEN\n          errMsg = 'Must select either O3 from met or TOMS/SBUV O3'          &\n                // 'for O3 values above the chemistry grid!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Make sure the aerosol-only simulation gets O3 from met or TOMS\n       IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n          IF ( Input_Opt%USE_ONLINE_O3 ) THEN\n             errMsg= 'Cannot use online O3 for specialty simulations! '      &\n                  // 'Select O3 from met or TOMS O3 instead.'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n    ELSE\n\n       ! If not a simulation that uses photolysis, set options to FALSE\n       Input_Opt%USE_ONLINE_O3   = .FALSE.\n       Input_Opt%USE_O3_FROM_MET = .FALSE.\n       Input_Opt%USE_TOMS_O3     = .FALSE.\n\n    ENDIF\n\n    ! Turn off switches for simulations that don't use aerosols\n    IF ( ( .not. Input_Opt%ITS_A_FULLCHEM_SIM )                        .and. &\n         ( .not. Input_OPt%ITS_AN_AEROSOL_SIM ) ) THEN\n       Input_Opt%hvAerNIT       = .FALSE.\n       Input_Opt%hvAerNIT_JNITs = MISSING_REAL\n       Input_Opt%hvAerNIT_JNIT  = MISSING_REAL\n       Input_Opt%JNITChanA      = MISSING_REAL\n       Input_Opt%JNITChanB      = MISSING_REAL\n    ENDIF\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6,90  ) 'PHOTOLYSIS SETTINGS'\n       WRITE( 6,95  ) '-------------------'\n       WRITE( 6,100 ) 'Turn on photolysis?         : ', Input_Opt%Do_Photolysis\n       WRITE( 6,100 ) 'Print Cloud-J debug output? : ', Input_Opt%CloudJ_Verbose\n       WRITE( 6,120 ) 'FAST-JX input directory     : ',                      &\n                       TRIM( Input_Opt%FAST_JX_DIR )\n       WRITE( 6,120 ) 'Cloud-J input directory     : ',                      &\n                       TRIM( Input_Opt%CloudJ_Dir )\n       WRITE( 6,130 ) 'Number levels with cloud    : ',                      &\n                       Input_Opt%Nlevs_Phot_Cloud\n       WRITE( 6,130 ) 'Cloud-J cloud flag          : ', Input_Opt%Cloud_Flag\n       WRITE( 6,105 ) 'Layer OD increase factor    : ', Input_Opt%OD_Increase_Factor\n       WRITE( 6,105 ) 'Min cloud OD at top         : ', Input_Opt%Min_Cloud_OD\n       WRITE( 6,105 ) 'Cloud correlation           : ', Input_Opt%Cloud_Corr\n       WRITE( 6,130 ) 'Max # of overlap bins       : ', Input_Opt%Num_Max_Overlap\n       WRITE( 6,130 ) 'Sphere correction           : ', Input_Opt%Sphere_Correction\n       WRITE( 6,130 ) 'Number of wavelength bins   : ', Input_Opt%Num_WV_Bins\n       WRITE( 6,100 ) 'Use H2O UV absorption?      : ', Input_Opt%USE_H2O_UV_Abs\n       WRITE( 6,100 ) 'Use online ozone?           : ', Input_Opt%USE_ONLINE_O3\n       WRITE( 6,100 ) 'Use ozone from met?         : ',                      &\n                       Input_Opt%USE_O3_FROM_MET\n       WRITE( 6,100 ) 'Use TOMS/SBUV ozone?        : ', Input_Opt%USE_TOMS_O3\n       WRITE( 6,100 ) 'Photolyse nitrate aerosol?  : ', Input_Opt%hvAerNIT\n       WRITE( 6,105 ) 'JNITs scaling of JHNO3      : ', Input_Opt%hvAerNIT_JNITs\n       WRITE( 6,105 ) 'JNIT scaling of JHNO3       : ', Input_Opt%hvAerNIT_JNIT\n       WRITE( 6,105 ) 'JNIT(s) channel A (HONO)    : ', Input_Opt%JNITChanA\n       WRITE( 6,105 ) 'JNIT(s) channel B (NO2)     : ', Input_Opt%JNITChanB\n       ! Write more info\n       IF ( Input_Opt%USE_ONLINE_O3 ) THEN\n          WRITE( 6, 95 ) ''\n          WRITE( 6, 95 ) 'NOTE ABOUT OVERHEAD O3 FOR FAST-JX:'\n          WRITE( 6, 95 ) ' Online O3 from GEOS-Chem will be used'\n          WRITE( 6, 95 ) ' to weight the O3 column within the'\n          WRITE( 6, 95 ) ' chemistry grid and O3 from met or TOMS'\n          WRITE( 6, 95 ) ' will be used outside the chemistry grid.'\n       ENDIF\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT ( /, A    )\n95  FORMAT( A       )\n100 FORMAT( A, L5   )\n105 FORMAT( A, F8.3 )\n110 FORMAT( A, F4.2 )\n120 FORMAT( A, A    )\n130 FORMAT( A, I5   )\n    \n    END SUBROUTINE Config_Photolysis\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_convection_mixing\n!\n! !DESCRIPTION: Copies convection & PBL mixing information from the Config\n!  object to Input_Opt, and does necessary checks. Also sets whether\n!  to reconstruct convective precipitation flux based on meteorology\n!  source and simulation start date.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Convection_Mixing( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAl                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n\n    !========================================================================\n    ! Config_Convection_Mixing begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = \"\"\n    thisLoc = &\n      ' -> at Config_Convection_Mixing (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on convection?\n    !------------------------------------------------------------------------\n    key    = \"operations%convection%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LCONV = v_bool\n\n    !------------------------------------------------------------------------\n    ! Turn on PBL mixing\n    !------------------------------------------------------------------------\n    key    = \"operations%pbl_mixing%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LTURB = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use non-local PBL mixing?\n    !------------------------------------------------------------------------\n    key    = \"operations%pbl_mixing%use_non_local_pbl\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LNLPBL = v_bool\n\n    !------------------------------------------------------------------------\n    ! Other settings based on inputs\n    !------------------------------------------------------------------------\n\n    ! Set the PBL drydep flag. This determines if dry deposition is\n    ! applied (and drydep frequencies are calculated) over the entire\n    ! PBL or the first model layer only. For now, set this value\n    ! automatically based upon the selected PBL scheme: 1st model layer\n    ! for the non-local PBL scheme, full PBL for the full-mixing scheme.\n    Input_Opt%PBL_DRYDEP = ( .not. Input_Opt%LNLPBL )\n\n    ! Set whether to execute different convection subroutines based on\n    ! meteorology source and simulation start date. This is important for\n    ! correctly handling convection using diagnostics from different\n    ! convection parameterization.\n    ! RAS are MERRA2 and GEOS-FP before June 1, 2020\n    ! Grell-Freitas are GEOS-IT for all years and in GEOS-FP following June 1, 2020.\n    !\n    ! IMPORTANT NOTE: The logic for GEOS-FP assumes (1) meteorology year\n    ! is the same as simulation year and (2) the simulation does not\n    ! run across June 1, 2020. Use the following rules to ensure your\n    ! simulation is correct:\n    !   (1) Manually update code below if GEOS-FP data year is\n    !       different than simulation year:\n    !          - Set to .FALSE. if data is prior to June 1, 2020\n    !          - Set to .TRUE. if data is on or after June 1, 2020\n    !   (2) Do not run a GEOS-FP simulation across June 1, 2020. Split\n    !       up the run in time to avoid this.\n    IF ( Input_Opt%MetField == 'GEOSIT' ) THEN\n       Input_Opt%Grell_Freitas_Convection = .TRUE.\n    ELSEIF ( Input_Opt%MetField == 'GEOSFP' .AND. Input_Opt%NYMDb >= 20200601 ) THEN\n       Input_Opt%Grell_Freitas_Convection = .TRUE.\n    ELSE\n       Input_Opt%Grell_Freitas_Convection = .FALSE.\n    ENDIF\n\n    ! Return success\n    RC = GC_SUCCESS\n\n    !=========================================================================\n    ! Print to screen\n    !=========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'CONVECTION SETTINGS'\n       WRITE( 6, 95  ) '-------------------'\n       WRITE( 6, 100 ) 'Turn on cloud convection?   : ', Input_Opt%LCONV\n       WRITE( 6, 100 ) 'Grell-Freitas convection?   : ', &\n            Input_Opt%Grell_Freitas_Convection\n\n       IF ( Input_Opt%MetField == 'GEOSFP' ) THEN\n          IF ( Input_Opt%Grell_Freitas_Convection ) THEN\n             WRITE( 6, 90 ) 'WARNING: Convection will assume met data is on or after 01Jun2020!'\n          ELSE\n             WRITE( 6, 90 ) 'WARNING: Convection will assume met data is prior to 01Jun2020!'\n          ENDIF\n       ENDIF\n\n       WRITE( 6, 90  ) 'PBL MIXING SETTINGS'\n       WRITE( 6, 95  ) '-------------------'\n       WRITE( 6, 100 ) 'Turn on PBL mixing?         : ', Input_Opt%LTURB\n       WRITE( 6, 100 ) 'Turn on non-local PBL?      : ', Input_Opt%LNLPBL\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A  )\n95  FORMAT( A     )\n100 FORMAT( A, L5 )\n\n  END SUBROUTINE Config_Convection_Mixing\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_drydep_wetdep\n!\n! !DESCRIPTION: Copies drydep and wetdep information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_DryDep_WetDep( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n    INTEGER                      :: v_int\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=512)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_DryDep_WetDep begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_DryDep_WetDep (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on drydep?\n    !------------------------------------------------------------------------\n    key    = \"operations%dry_deposition%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LDRYD = v_bool\n\n    !------------------------------------------------------------------------\n    ! Turn on CO2 effect on drydep?\n    !------------------------------------------------------------------------\n    key    = \"operations%dry_deposition%CO2_effect%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CO2_EFFECT = v_bool\n\n    !------------------------------------------------------------------------\n    ! CO2 level at simulation\n    !------------------------------------------------------------------------\n    key   = \"operations%dry_deposition%CO2_effect%CO2_level\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CO2_LEVEL = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Reference CO2 level\n    !------------------------------------------------------------------------\n    key   = \"operations%dry_deposition%CO2_effect%reference_CO2_level\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CO2_REF = Cast_and_RoundOff( v_str, places=2 )\n\n    !------------------------------------------------------------------------\n    ! Diag for RA_alt above surface in meters\n    !------------------------------------------------------------------------\n    key   = \"operations%dry_deposition%diag_alt_above_sfc_in_m\"\n    v_int = MISSING_INT\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%RA_Alt_Above_Sfc = v_int\n\n    !------------------------------------------------------------------------\n    ! Turn on wetdep?\n    !------------------------------------------------------------------------\n    key    = \"operations%wet_deposition%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LWETD = v_bool\n\n    !========================================================================\n    ! Error check settings\n    !========================================================================\n    \n    ! Turn off wetdep for simulations that don't need it\n    IF ( Input_Opt%ITS_A_TAGO3_SIM   ) Input_Opt%LWETD = .FALSE.\n\n    ! If CO2 effect on RS in turned on, calculate the scaling factor\n    ! on Rs based on Franks et al. (2013) (ayhwong, 6/25/2019)\n    If (Input_Opt%CO2_EFFECT) THEN\n       Input_Opt%RS_SCALE = Input_Opt%CO2_LEVEL / Input_Opt%CO2_REF * &\n                           (Input_Opt%CO2_LEVEL + 80.0_fp) *          &\n                           (Input_Opt%CO2_REF   - 40.0_fp) /          &\n                           (Input_Opt%CO2_LEVEL - 40.0_fp) /          &\n                           (Input_Opt%CO2_REF   + 80.0_fp)\n    ENDIF\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'DRY DEPOSITION SETTINGS'\n       WRITE( 6, 95  ) '-----------------------'\n       WRITE( 6, 100 ) 'Turn on dry deposition?     : ', Input_Opt%LDRYD\n       WRITE( 6, 100 ) 'Dry dep over full PBL?      : ', Input_Opt%PBL_DRYDEP\n       WRITE( 6, 100 ) 'Turn on CO2 effect?         : ', Input_Opt%CO2_EFFECT\n       WRITE( 6, 110 ) 'CO2 level                   : ', Input_Opt%CO2_LEVEL\n       WRITE( 6, 110 ) 'CO2 reference level         : ', Input_Opt%CO2_REF\n       WRITE( 6, 110 ) 'RIX scaling factor          : ', Input_Opt%RS_SCALE\n\n\n       WRITE( 6, 90  ) 'WET DEPOSITION SETTINGS'\n       WRITE( 6, 95  ) '-----------------------'\n       WRITE( 6, 100 ) 'Turn on wet deposition?     : ', Input_Opt%LWETD\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A    )\n95  FORMAT( A       )\n100 FORMAT( A, L5   )\n110 FORMAT( A, f8.2 )\n\n  END SUBROUTINE Config_DryDep_WetDep\n!!EOC\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_planeflight\n!\n! !DESCRIPTION: Copies PlaneFlight diagnostic information from the Config\n!  object to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_PlaneFlight( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE PlaneFlight_Mod, ONLY : SET_PLANEFLIGHT\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options Object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: key\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_PlaneFlight begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_PlaneFlight (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on planeflight diagnostic?\n    !------------------------------------------------------------------------\n    key    = \"extra_diagnostics%planeflight%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Do_Planeflight = v_bool\n\n    !------------------------------------------------------------------------\n    ! Input file name (w/ flight track data points)\n    !------------------------------------------------------------------------\n    key   = \"extra_diagnostics%planeflight%flight_track_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Planeflight_InFile = TRIM( v_str )\n\n\n    !------------------------------------------------------------------------\n    ! Output file name\n    !------------------------------------------------------------------------\n    key   = \"extra_diagnostics%planeflight%output_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Planeflight_OutFile = TRIM( v_str )\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'PLANEFLIGHT DIAGNOSTIC SETTINGS'\n       WRITE( 6, 95  ) '-------------------------------'\n       WRITE( 6, 100 ) 'Turn on planeflight diag?   : ',                     &\n                        Input_Opt%Do_Planeflight\n       WRITE( 6, 110 ) 'Flight track input file     : ',                     &\n                        TRIM( Input_Opt%Planeflight_InFile )\n       WRITE( 6, 110 ) 'Output file name            : ',                     &\n                        TRIM( Input_Opt%Planeflight_OutFile )\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A   )\n95  FORMAT( A      )\n100 FORMAT( A, L5  )\n110 FORMAT( A, A   )\n\n    !========================================================================\n    ! Call setup routines from other F90 modules\n    !========================================================================\n\n    ! Pass variables to \"planeflight_mod.F90\"\n    CALL Set_PlaneFlight( PF       = Input_Opt%Do_Planeflight,               &\n                          In_File  = Input_Opt%Planeflight_InFile,           &\n                          Out_File = Input_Opt%Planeflight_OutFile          )\n\n  END SUBROUTINE Config_PlaneFlight\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_obspack\n!\n! !DESCRIPTION: Copies Obspack diagnostic information from the Config\n!  object to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_ObsPack( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: N\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    ! String arrays\n    CHARACTER(LEN=QFYAML_StrLen) :: a_str(QFYAML_MaxArr)\n\n    !========================================================================\n    ! Config_ObsPack begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = 'Error reading the \"geoschem_config.yml\" file!'\n    thisLoc = ' -> at Config_ObsPack (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Turn on ObsPack diagnostic?\n    !------------------------------------------------------------------------\n    key    = \"extra_diagnostics%obspack%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%Do_ObsPack = v_bool\n\n    !------------------------------------------------------------------------\n    ! ObsPack quiet output?\n    !------------------------------------------------------------------------\n    key    = \"extra_diagnostics%obspack%quiet_logfile_output\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%ObsPack_Quiet = v_bool\n\n    !------------------------------------------------------------------------\n    ! Input file name (w/ coordinates and sampling strategy)\n    !------------------------------------------------------------------------\n    key   = \"extra_diagnostics%obspack%input_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%ObsPack_InputFile = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Output file name\n    !------------------------------------------------------------------------\n    key   = \"extra_diagnostics%obspack%output_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%ObsPack_OutputFile = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Species names\n    !------------------------------------------------------------------------\n    key   = \"extra_diagnostics%obspack%output_species\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str,                         &\n                         \"\",     RC,          dynamic_size=.TRUE.           )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Copy species names into Input_Opt\n    !------------------------------------------------------------------------\n    Input_Opt%ObsPack_nSpc = 0\n    DO N = 1, SIZE( a_str )\n\n       ! Stop iterationg when we find a missing value\n       IF ( TRIM( a_str(N) ) == MISSING_STR ) EXIT\n\n       ! If wildcard for all species is requested then update the\n       ! list of species to track to be the list of advected species\n       ! and exit from further\n       IF ( N==1 .AND. INDEX( a_str(1) , '?ALL' ) >  0)  THEN\n          Input_Opt%ObsPack_SpcName = Input_Opt%AdvectSpc_Name\n          Input_Opt%ObsPack_nSpc    = Input_Opt%N_Advect\n          EXIT\n       ENDIF\n\n       ! Otherwise, increment the count and copy the Obspack species\n       ! name into the Input_Opt object\n       Input_Opt%ObsPack_nSpc = Input_Opt%ObsPack_nSpc + 1\n       Input_Opt%ObsPack_SpcName(Input_Opt%ObsPack_nSpc) = TRIM( a_str(N) )\n    ENDDO\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'OBSPACK SETTINGS'\n       WRITE( 6, 95  ) '----------------'\n       WRITE( 6, 100 ) 'Turn on ObsPack diagnostic? : ',                     &\n                        Input_Opt%Do_ObsPack\n       WRITE( 6, 100 ) 'Suppress logfile output?    : ',                     &\n                        Input_Opt%ObsPack_Quiet\n       WRITE( 6, 110 ) 'ObsPack input file          : ',                     &\n                        TRIM( Input_Opt%ObsPack_InputFile  )\n       WRITE( 6, 110 ) 'ObsPack output file         : ',                     &\n                        TRIM( Input_Opt%ObsPack_OutputFile )\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A   )\n95  FORMAT( A      )\n100 FORMAT( A, L5  )\n110 FORMAT( A, A   )\n\n  END SUBROUTINE Config_ObsPack\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_Hg\n!\n! !DESCRIPTION: Copies Hg simulation information from the Config object\n!  to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_Hg( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: N\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !=================================================================\n    ! Config_Hg begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Config_Hg (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Use dynamic ocean Hg?\n    !------------------------------------------------------------------------\n    key    = \"Hg_simulation_options%sources%use_dynamic_ocean_Hg\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LDYNOCEAN = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use preindustrial Hg?\n    !------------------------------------------------------------------------\n    key    = \"Hg_simulation_options%sources%use_preindustrial_Hg\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LPREINDHG = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use arctic river Hg?\n    !------------------------------------------------------------------------\n    key    = \"Hg_simulation_options%sources%use_arctic_river_Hg\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LARCTICRIV = v_bool\n\n    !------------------------------------------------------------------------\n    ! Tie Hg2(aq) reduction to UV-B radiation?\n    !------------------------------------------------------------------------\n    key    = \"Hg_simulation_options%chemistry%tie_HgIIaq_reduction_to_UVB\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LKRedUV = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use GTMM soil model\n    !\n    ! NOTE: As of April 2022, GTMM is broken.  We look to the community\n    ! to take the lead in restoring it.  Until that happens, these options\n    ! will have no effect. -- Bob Yantosca (04 Apr 2022)\n    !------------------------------------------------------------------------\n    key    = \"Hg_simulation_options%GTMM_soil_model%activate\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%LGTMM = v_bool\n\n    !------------------------------------------------------------------------\n    ! GTMM restart file name\n    !\n    ! NOTE: As of April 2022, GTMM is broken.  We look to the community\n    ! to take the lead in restoring it.  Until that happens, these options\n    ! will have no effect. -- Bob Yantosca (04 Apr 2022)\n    !------------------------------------------------------------------------\n    key   = \"Hg_simulation_options%GTMM_soil_model%restart_file\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%GTMM_RST_FILE = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Sanity checks\n    !------------------------------------------------------------------------\n    IF ( .not. Input_Opt%ITS_A_MERCURY_SIM ) THEN\n       Input_Opt%LGTMM      = .FALSE.\n       Input_Opt%LDYNOCEAN  = .FALSE.\n       Input_Opt%LARCTICRIV = .FALSE.\n       Input_Opt%LKRedUV    = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'MERCURY SIMULATION SETTINGS'\n       WRITE( 6, 95  ) '---------------------------'\n       WRITE( 6, 110 ) 'Use dynamic ocean Hg model? : ', Input_Opt%LDYNOCEAN\n       WRITE( 6, 110 ) 'Preindustrial simulation?   : ', Input_Opt%LPREINDHG\n       WRITE( 6, 110 ) 'Use Arctic river Hg ?       : ', Input_Opt%LARCTICRIV\n       WRITE( 6, 110 ) 'Tie HgII(aq) red. to UV-B?  : ', Input_Opt%LKRedUV\n       WRITE( 6, 110 ) 'Use GTMM ?                  : ', Input_Opt%LGTMM\n       WRITE( 6, 120 ) '=> GTMM restart file        : ',                      &\n                       TRIM( Input_Opt%GTMM_RST_FILE )\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A  )\n95  FORMAT( A     )\n100 FORMAT( A, I4 )\n110 FORMAT( A, L5 )\n120 FORMAT( A, A  )\n\n  END SUBROUTINE Config_Hg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_ch4\n!\n! !DESCRIPTION: Copies CH4 information from the Config object to Input_Opt\n!  and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_CH4( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n\n    ! Scalars\n    INTEGER                      :: N\n    INTEGER                      :: v_int\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    ! String arrays\n    CHARACTER(LEN=QFYAML_NamLen) :: a_str(4)\n\n    !========================================================================\n    ! Config_CH4 begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = 'Error reading the \"geoschem_config.yml\" file!'\n    thisLoc = ' -> at Config_CH4 (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Use AIRS observational operator?\n    !------------------------------------------------------------------------\n    key    = \"CH4_options%use_observational_operators%AIRS\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%AIRS_CH4_OBS = v_bool\n\n    !------------------------------------------------------------------------\n    ! Use GOSAT observational operator?\n    !------------------------------------------------------------------------\n    key    = \"CH4_options%use_observational_operators%GOSAT\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%GOSAT_CH4_OBS =  v_bool\n\n    !------------------------------------------------------------------------\n    ! Use TCCON observational operator?\n    !------------------------------------------------------------------------\n    key    = \"CH4_options%use_observational_operators%TCCON\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%TCCON_CH4_OBS = v_bool\n\n    !------------------------------------------------------------------------\n    ! Perturb CH4 boundary conditions?\n    !------------------------------------------------------------------------\n    key    = \"CH4_options%analytical_inversion%perturb_CH4_boundary_conditions\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM ( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%DoPerturbCH4BoundaryConditions = v_bool\n\n    !------------------------------------------------------------------------\n    ! How much to perturb CH4 boundary conditions by?\n    !------------------------------------------------------------------------\n    key    = \"CH4_options%analytical_inversion%CH4_boundary_condition_ppb_increase_NSEW\"\n    a_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, TRIM( key ), a_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM ( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CH4BoundaryConditionIncreaseNorth = Cast_and_RoundOff( a_str(1), places=4 )\n    Input_Opt%CH4BoundaryConditionIncreaseSouth = Cast_and_RoundOff( a_str(2), places=4 )\n    Input_Opt%CH4BoundaryConditionIncreaseEast  = Cast_and_RoundOff( a_str(3), places=4 )\n    Input_Opt%CH4BoundaryConditionIncreaseWest  = Cast_and_RoundOff( a_str(4), places=4 )\n\n    !========================================================================\n    ! Print to screen\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE(6,90 ) 'CH4 SETTINGS'\n       WRITE(6,95 ) '-----------------------'\n       WRITE(6,100) 'Use AIRS obs operator?   : ', Input_Opt%AIRS_CH4_OBS\n       WRITE(6,100) 'Use GOSAT obs operator?  : ', Input_Opt%GOSAT_CH4_OBS\n       WRITE(6,100) 'Use TCCON obs operator?  : ', Input_Opt%TCCON_CH4_OBS\n       WRITE(6,100) 'Perturb CH4 BCs?         : ', Input_Opt%DoPerturbCH4BoundaryConditions\n       WRITE(6,130) 'CH4 BC ppb increase NSEW : ', Input_Opt%CH4BoundaryConditionIncreaseNorth,&\n                                                   Input_Opt%CH4BoundaryConditionIncreaseSouth,&\n                                                   Input_Opt%CH4BoundaryConditionIncreaseEast,&\n                                                   Input_Opt%CH4BoundaryConditionIncreaseWest\n    ENDIF\n\n    ! Flag to denote if any AIRS, GOSAT, TCCON columns will be used\n    Input_Opt%Satellite_CH4_Columns = ( Input_Opt%AIRS_CH4_OBS          .or. &\n                                        Input_Opt%GOSAT_CH4_OBS         .or. &\n                                        Input_Opt%TCCON_CH4_OBS             )\n\n    ! FORMAT statements\n90  FORMAT( /, A    )\n95  FORMAT( A       )\n100 FORMAT( A, L5   )\n130 FORMAT( A, F10.4, 1X, F10.4, 1X, F10.4, 1X, F10.4)\n\n  END SUBROUTINE Config_CH4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: config_pops\n!\n! !DESCRIPTION: Copies POPs simulation information from the Config\n!  object to Input_Opt, and does necessary checks.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Config_POPs( Config, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: Config      ! YAML Config object\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input options\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: v_bool\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n    !========================================================================\n    ! Config_POPs begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n\n    ! Continue initializing\n    errMsg  = ''\n    thisLoc = ' -> at Config_POPs (in module GeosCore/input_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! POP species\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_type\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_TYPE = TRIM( v_str )\n\n    !------------------------------------------------------------------------\n    ! Dummy for future process logical switches\n    !------------------------------------------------------------------------\n    key    = \"POPs_simulation_options%chemistry_processing\"\n    v_bool = MISSING_BOOL\n    CALL QFYAML_Add_Get( Config, key, v_bool, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%CHEM_PROCESS = v_bool\n\n    !------------------------------------------------------------------------\n    ! Molecular weight\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_XMW\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_XMW = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! KOA\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_KOA\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_KOA = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! KBC\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_KBC\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_KBC = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! OH oxidation\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_K_POPG_OH\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_K_POPG_OH = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! O3 oxidation 1\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_K_POPP_O3A\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_K_POPP_O3A = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! O3 oxidation 2\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_K_POPP_O3B\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_K_POPP_O3B = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! H*\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_HSTAR\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_HSTAR = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! DEL_H\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_DEL_H\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_DEL_H = Cast_and_RoundOff( v_str, places=0 )\n\n    !------------------------------------------------------------------------\n    ! DEL_Hw\n    !------------------------------------------------------------------------\n    key   = \"POPs_simulation_options%POP_DEL_Hw\"\n    v_str = MISSING_STR\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Input_Opt%POP_DEL_Hw = Cast_and_RoundOff( v_str, places=0 )\n\n    !=================================================================\n    ! Print to screen\n    !=================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 90  ) 'POPs SIMULATION SETTINGS'\n       WRITE( 6, 95  ) '------------------------'\n       WRITE( 6, 120 ) 'Species of POP        : ', Input_Opt%POP_TYPE\n       WRITE( 6, 110 ) 'Chemistry on?         : ', Input_Opt%CHEM_PROCESS\n       WRITE( 6, 130 ) 'POP_XMW               : ', Input_Opt%POP_XMW\n       WRITE( 6, 130 ) 'POP_KOA               : ', Input_Opt%POP_KOA\n       WRITE( 6, 130 ) 'POP_KBC               : ', Input_Opt%POP_KBC\n       WRITE( 6, 130 ) 'POP_K_POPG_OH         : ', Input_Opt%POP_K_POPG_OH\n       WRITE( 6, 130 ) 'POP_K_POPP_O3A        : ', Input_Opt%POP_K_POPP_O3A\n       WRITE( 6, 130 ) 'POP_K_POPP_O3B        : ', Input_Opt%POP_K_POPP_O3B\n       WRITE( 6, 130 ) 'POP_HSTAR             : ', Input_Opt%POP_HSTAR\n       WRITE( 6, 130 ) 'POP_DEL_H             : ', Input_Opt%POP_DEL_H\n       WRITE( 6, 130 ) 'POP_DEL_Hw            : ', Input_Opt%POP_DEL_Hw\n    ENDIF\n\n    ! FORMAT statements\n90  FORMAT( /, A      )\n95  FORMAT( A         )\n110 FORMAT( A, L5     )\n120 FORMAT( A, A      )\n130 FORMAT( A, ES10.2 )\n\n    ! Return success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Config_POPs\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: validate_directories\n!\n! !DESCRIPTION: Makes sure that each of the directories that we have read from\n!  the GEOS-Chem input file are valid. Also, trailing separator characters will\n!  be added.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE VALIDATE_DIRECTORIES( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Time_Mod,      ONLY : Expand_Date\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc, Dir\n\n    !=================================================================\n    ! Validate_Directories begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = 'Invalid directory encountered!'\n    thisLoc = ' -> at Validate_Directories (in module GeosCore/input_mod.F90)'\n\n    ! Skip for dry-runs\n    IF ( Input_Opt%DryRun ) RETURN\n\n#if !defined( MODEL_CESM )\n    ! Check directories\n    CALL Check_Directory( Input_Opt, Input_Opt%DATA_DIR, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    CALL Check_Directory( Input_Opt, Input_Opt%CHEM_INPUTS_DIR, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#if !defined( MODEL_CESM )\n    CALL Check_Directory( Input_Opt, Input_Opt%RUN_DIR, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n  END SUBROUTINE Validate_Directories\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: check_directory\n!\n! !DESCRIPTION: Makes sure that the given directory is valid.  Also a trailing\n!  slash character will be added if necessary.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Check_Directory( Input_Opt, dir, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE FILE_MOD,      ONLY : File_Exists\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT) :: Input_Opt   ! Input Options object\n    CHARACTER(LEN=*), INTENT(INOUT) :: dir         ! Dir to be checked\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Mar 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: C\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !=================================================================\n    ! Check_Directory begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Check_Directory (in module GeosCore/input_mod.F90)'\n\n    ! Locate the last non-white-space character of NEWDIR\n    C = LEN_TRIM( dir )\n\n    ! Add the trailing directory separator if it is not present\n    IF ( dir(C:C) /= '/' ) THEN\n       dir(C+1:C+1) = TRIM( '/' )\n    ENDIF\n\n    !=================================================================\n    ! Test if the directory actually exists\n    !=================================================================\n\n    ! If the directory does not exist then stop w/ an error message\n    IF ( .not. File_Exists( dir ) ) THEN\n       errMsg = 'Invalid directory: ' // TRIM( dir )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Check_Directory\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: check_time_steps\n!\n! !DESCRIPTION: Computes the smallest dynamic time step for the model, based on\n!  which operation are turned on.  This is called from routine\n!  Read_Input_File, after all of the timesteps and logical flags have been\n!  read from the configuration file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Check_Time_Steps( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE Time_Mod,       ONLY : Set_TimeSteps\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL            :: LCONV, LCHEM,       LDRYD\n    LOGICAL            :: LTRAN, LTURB\n    INTEGER            :: I,     J,           K\n    INTEGER            :: L,     TS_SMALLEST, TS_DIAG\n    INTEGER            :: TS_CHEM, TS_EMIS, TS_CONV, TS_DYN\n    INTEGER            :: TS_UNIT, TS_RAD,  MAX_DYN\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !=================================================================\n    ! Check_Time_Steps begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Check_Time_Steps (in module GeosCore/input_mod.F90)'\n\n    ! Copy fields from Input_Opt\n    LCONV = Input_Opt%LCONV\n    LCHEM = Input_Opt%LCHEM\n    LDRYD = Input_Opt%LDRYD\n    LTRAN = Input_Opt%LTRAN\n    LTURB = Input_Opt%LTURB\n\n    TS_CHEM = Input_Opt%TS_CHEM\n    TS_EMIS = Input_Opt%TS_EMIS\n    TS_CONV = Input_Opt%TS_CONV\n    TS_DYN  = Input_Opt%TS_DYN\n    TS_RAD  = Input_Opt%TS_RAD\n\n    ! If we're doing the reverse integration\n    ! multiply all the timesteps by -1 here\n    if (TS_DYN < 0) THEN\n       TS_CHEM = TS_CHEM * -1\n       TS_EMIS = TS_EMIS * -1\n       TS_CONV = TS_CONV * -1\n       TS_DYN  = TS_DYN  * -1\n       TS_RAD  = TS_RAD  * -1\n    endif\n\n\n    ! NUNIT is time step in minutes for unit conversion\n    TS_UNIT = -1\n\n    ! Define maximum timestep for transport\n    IF ( TRIM(State_Grid%GridRes) == '4.0x5.0') THEN\n       MAX_DYN = 1800\n    ELSE IF ( TRIM(State_Grid%GridRes) == '2.0x2.5' ) THEN\n       MAX_DYN = 900\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n       MAX_DYN = 600\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n       MAX_DYN = 300\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n       MAX_DYN = 300\n    ELSE\n       MAX_DYN = 3600\n    ENDIF\n\n    ! If TS_DYN is greater than MAX_DYN, then stop w/ error\n    IF ( .not. Input_Opt%isMPI ) THEN\n       IF ( Input_Opt%TS_DYN > MAX_DYN .and. LTRAN ) THEN\n          WRITE( errMsg, 300 ) 'Transport timestep exceeds max:', &\n                                Input_Opt%TS_DYN, MAX_DYN\n300       FORMAT( a, i8, ' >', i8 )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Only do unit conversion if necessary\n    IF ( LTRAN .or. LCONV .or. LTURB ) THEN\n       TS_UNIT = MAX( TS_DYN, TS_CONV )\n    ENDIF\n\n    ! Compute NSMALLEST as the minimum of NDYN, NCONV, NSRCE, NCHEM\n    I = TS_DYN\n    J = TS_CONV\n    K = TS_EMIS\n    L = TS_CHEM\n\n    ! SDE 2017-02-24: Always use LTRAN on the assumption that it will\n    ! be used as a \"heartbeat\". This ensures that chemistry always\n    ! takes place at the same time, regardless of whether or not\n    ! transport is enabled.\n    !IF ( .not. LTRAN                  ) I = 999999\n    IF ( .not. LCONV .and..not. LTURB ) J = 999999\n    IF ( .not. LDRYD                  ) K = 999999\n    IF ( .not. LCHEM                  ) L = 999999\n\n    ! Get the smallest of all of the above\n    TS_SMALLEST = MIN( I, J, K, L )\n\n    ! If all of the operators above are turned off,\n    ! then set TS_SMALLEST to TS_DYN.\n    IF ( TS_SMALLEST == 999999 ) THEN\n       TS_SMALLEST = TS_DYN\n    ENDIF\n\n    IF ( LTRAN .and. TS_DYN /= TS_SMALLEST ) THEN\n       errMsg = 'The transport time step should be the smallest one'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! If TS_DYN is smaller than TS_SMALLEST, reset TS_DYN\n    ! to TS_SMALLEST.\n    ! This is useful for runs where transport is turned off,\n    ! but where chemistry is turned on.\n    IF ( TS_DYN < TS_SMALLEST ) THEN\n       TS_DYN = TS_SMALLEST\n    ENDIF\n\n    ! Define the largest time step, TS_DIAG, for diagnostics.\n    ! Diagnostics should be incremented at the end of multiples of\n    ! TS_DIAG, so that the system is at a physical state.\n    ! (ccc, 5/13/09)\n    IF ( .not. LTRAN                  ) I = -999999\n    IF ( .not. LCONV .and..not. LTURB ) J = -999999\n    IF ( .not. LDRYD                  ) K = -999999\n    IF ( .not. LCHEM                  ) L = -999999\n\n    TS_DIAG = MAX( I, J, K, L )\n\n    ! If all the operators are turned off, then set TS_DIAG to TS_CHEM\n    ! Usually the chemistry time step is large. (ccc, 5/13/09)\n    IF ( TS_DIAG == -999999 ) THEN\n       TS_DIAG = TS_CHEM\n    ENDIF\n\n    ! Check if all time steps are multiples of the smallest.\n    ! (ccc, 5/13/09)\n    IF ( L /= -999999 .and. MOD( TS_CHEM, TS_SMALLEST ) /= 0 ) THEN\n       WRITE( errMsg, 100 ) 'Chemistry', TS_CHEM, TS_SMALLEST\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( K /= -999999 .and. MOD( TS_EMIS, TS_SMALLEST ) /= 0 ) THEN\n       WRITE( ErrMSg, 100 ) 'Emission', TS_EMIS, TS_SMALLEST\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( J /= -999999 .and. MOD( TS_CONV, TS_SMALLEST ) /= 0 ) THEN\n       WRITE( errMsg, 100 ) 'Convection', TS_CONV, TS_SMALLEST\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( I /= -999999 .and. MOD( TS_DYN, TS_SMALLEST ) /= 0 ) THEN\n       WRITE( errMsg, 100 ) 'Transport', TS_DYN, TS_SMALLEST\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize timesteps in \"time_mod.F90\"\n    CALL Set_Timesteps( Input_Opt,                                           &\n                        CHEMISTRY  = TS_CHEM,                                &\n                        EMISSION   = TS_EMIS,                                &\n                        DYNAMICS   = TS_DYN,                                 &\n                        UNIT_CONV  = TS_UNIT,                                &\n                        CONVECTION = TS_CONV,                                &\n                        DIAGNOS    = TS_DIAG,                                &\n                        RADIATION  = TS_RAD )\n\n100 FORMAT( A, ' time step must be a multiple of the smallest one:', i5, i5 )\n\n  END SUBROUTINE Check_Time_Steps\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_error_checks\n!\n! !DESCRIPTION: Makes sure that certain species are defined in order to\n!  proceed with a certain option.  Halts the simulation with an error message\n!  if incorrect inputs  would have caused  a simulation to crash.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Error_Checks( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE State_Chm_Mod, ONLY : Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REMARKS:\n!  The Ind_() function now defines all species ID's.  It returns -1 if\n!  a species cannot be found.  The prior behavior was to return 0 if a\n!  species wasn't found.  Therefore, in order to preserve the logic of the\n!  error checks, we must force any -1's returned by Ind_() to 0's in\n!  this subroutine.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I\n\n    ! Strings\n    CHARACTER(LEN=255) :: MSG, LOCATION\n\n    !=================================================================\n    ! Initialization\n    !=================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n\n    ! Define location string\n    LOCATION = '-> at Do_Error_Checks (in GeosCore/input_mod.F90)'\n\n    !=================================================================\n    ! Error check SEASALT AEROSOLS\n    !=================================================================\n    I = MAX( Ind_('SALA','A'), 0 ) + MAX( Ind_('SALC','A'), 0 )\n\n    IF ( Input_Opt%LSSALT ) THEN\n       IF ( I == 0 ) THEN\n          MSG = 'LSSALT=T but ONLINE SEASALT AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use ONLINE SEASALT AEROSOLS if LSSALT=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check MARINE ORGANIC AEROSOLS\n    !=================================================================\n    I = MAX( Ind_('MOPO','A'), 0 ) + MAX( Ind_('MOPI','A'), 0 )\n\n    IF ( Input_Opt%LMPOA ) THEN\n       IF ( .not. Input_Opt%LSSALT ) THEN\n          MSG = 'LMPOA=T but LSSALT=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n       IF ( I == 0 ) THEN\n          MSG = 'LMPOA=T but MARINE ORGANIC AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use MARINE ORGANIC AEROSOLS if LMPOA=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check SULFUR AEROSOLS\n    !=================================================================\n    I = MAX( Ind_('DMS' ,'A'), 0 ) + &\n        MAX( Ind_('SO2' ,'A'), 0 ) + &\n        MAX( Ind_('SO4' ,'A'), 0 ) + &\n        MAX( Ind_('SO4s','A'), 0 ) + &\n        MAX( Ind_('HMS' ,'A'), 0 ) + &! (jmm, 07/2/18)\n        MAX( Ind_('MSA' ,'A'), 0 ) + &\n        MAX( Ind_('NH3' ,'A'), 0 ) + &\n        MAX( Ind_('NH4' ,'A'), 0 ) + &\n        MAX( Ind_('NITs','A'), 0 )\n\n    IF ( Input_Opt%LSULF ) THEN\n\n       ! We now compute the production of SO4s and NITs, so when\n       ! LSULF=T, then we must also have LSSALT=T (bec, bmy, 4/13/05)\n       IF ( .not. Input_Opt%LSSALT ) THEN\n          MSG = 'LSULF=T now also requires LSSALT=T!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n\n       ! Stop w/ error if everything is undefined\n       IF ( I == 0 ) THEN\n          MSG = 'LSULF=T but ONLINE SULFUR AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       ! If LSULF=F but we have defined species, stop w/ error\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use ONLINE SULFUR AEROSOLS if LSULF=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !=================================================================\n    ! Error check CARBON AEROSOLS\n    !=================================================================\n\n    ! SOAupdate: Add POA (hotp 10/11/09)\n    I = MAX( Ind_('BCPO','A'), 0 ) + &\n        MAX( Ind_('BCPI','A'), 0 ) + &\n        MAX( Ind_('OCPO','A'), 0 ) + &\n        MAX( Ind_('OCPI','A'), 0 ) + &\n        MAX( Ind_('POA1','A'), 0 )\n\n    IF ( Input_Opt%LCARB ) THEN\n       IF ( I == 0 ) THEN\n          MSG = 'LCARB=T but ONLINE CARBON AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use ONLINE CARBON AEROSOLS if LCARB=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( Input_Opt%LSVPOA .and. ( .NOT. Input_Opt%LSOA ) ) THEN\n       MSG = 'Semivolatile POA requires COMPLEX SOA (LSOA=T)'\n       CALL GC_Error( Msg, RC, Location )\n       RETURN\n    ENDIF\n\n    ! SOAupdate: Error check (hotp 8/24/09)\n    ! OCPI and OCPO are the non-volatile POA species\n    ! POA (along w/ POG, OPOA, and OPOG) are the semivol POA species\n    ! You can't have both!\n    I = MAX( Ind_('OCPI','A'), 0 ) + MAX( Ind_('OCPO','A'), 0 )\n\n    IF ( Ind_('POA1') > 0 ) THEN\n       IF ( I > 0 ) THEN\n          MSG = 'Semivolatile POA species is defined in addition to ' // &\n                 'Nonvolatile POA'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n       IF ( ( .NOT. Input_Opt%LSOA   ) .or. &\n            ( .NOT. Input_Opt%LSVPOA ) ) THEN\n          MSG = 'Semivolatile POA requires LSOA=T and LSVPOA=T'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! SOAupdate\n    ! Options for organic aerosol species:\n    ! IF LSOA = F: only OCPI and OCPO\n    ! IF LSOA = T:\n    !   OCPI OCPO SOA (non-vol + original traditional)\n    !   POA POG OPOA OPOG SOA BTX NAP (semivol + orig trad + IVOC )\n    ! NAP emissions are set in HEMCO_Config.rc\n    ! LSVPOA is just a check (doesn't do anything hotp 7/21/10)\n    I = MAX( Ind_('POA1' ,'A'), 0 ) + &\n        MAX( Ind_('POA2' ,'A'), 0 ) + &\n        MAX( Ind_('POG1' ,'A'), 0 ) + &\n        MAX( Ind_('POG2' ,'A'), 0 ) + &\n        MAX( Ind_('OPOA1','A'), 0 ) + &\n        MAX( Ind_('OPOA2','A'), 0 ) + &\n        MAX( Ind_('OPOG1','A'), 0 ) + &\n        MAX( Ind_('OPOG2','A'), 0 )\n\n    IF ( Input_Opt%LSVPOA ) THEN\n       IF ( I < 8 ) THEN\n          MSG = 'Not enough semivolatile POA species!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n       IF ( Ind_('NAP','A') < 0 ) THEN\n          MSG = 'Semivolatile POA requires IVOCs/NAP!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check SECONDARY ORGANIC AEROSOLS\n    !=================================================================\n\n    ! Check for complex SOA species\n    I = MAX( Ind_('TSOA1','A'), 0 ) + &\n        MAX( Ind_('TSOA2','A'), 0 ) + &\n        MAX( Ind_('TSOA3','A'), 0 ) + &\n        MAX( Ind_('ASOA1','A'), 0 ) + &\n        MAX( Ind_('ASOA2','A'), 0 ) + &\n        MAX( Ind_('ASOA3','A'), 0 ) + &\n        MAX( Ind_('ASOAN','A'), 0 ) + &\n        MAX( Ind_('ASOG1','A'), 0 ) + &\n        MAX( Ind_('ASOG2','A'), 0 ) + &\n        MAX( Ind_('ASOG3','A'), 0 ) + &\n        MAX( Ind_('TSOG0','A'), 0 ) + &\n        MAX( Ind_('TSOG1','A'), 0 ) + &\n        MAX( Ind_('TSOG2','A'), 0 ) + &\n        MAX( Ind_('TSOG3','A'), 0 )\n\n    IF ( Input_Opt%LSOA ) THEN\n       IF ( I == 0 ) THEN\n          MSG = 'LSOA=T but COMPLEX SOA species are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use COMPLEX SOA species if LSOA=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check DUST AEROSOLS\n    !=================================================================\n\n#ifdef TOMAS\n    ! For TOMAS only: If DUST01 is present, the other dust species are too\n    I = MAX( Ind_('DUST01','A'), 0 )\n#else\n    ! Non-TOMAS simulations: Need all DSTbin1-DSTbin7 species\n    I = MAX( Ind_('DSTbin1','A'), 0 ) + &\n        MAX( Ind_('DSTbin2','A'), 0 ) + &\n        MAX( Ind_('DSTbin3','A'), 0 ) + &\n        MAX( Ind_('DSTbin4','A'), 0 ) + &\n        MAX( Ind_('DSTbin5','A'), 0 ) + &\n        MAX( Ind_('DSTbin6','A'), 0 ) + &\n        MAX( Ind_('DSTbin7','A'), 0 )\n#endif\n\n    IF ( Input_Opt%LDUST ) THEN\n       IF ( I == 0 ) THEN\n          MSG = 'LDUST=T but ONLINE DUST AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use ONLINE DUST AEROSOLS if LDUST=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check DUST NITRATE    AEROSOLS\n    !             DUST SULFATE    AEROSOLS\n    !             DUST ALKALINITY AEROSOLS\n    !=================================================================\n    I = MAX( Ind_('NITDbin1'  ,'A'), 0 ) + &\n        MAX( Ind_('NITDbin2'  ,'A'), 0 ) + &\n        MAX( Ind_('NITDbin3'  ,'A'), 0 ) + &\n        MAX( Ind_('NITDbin4'  ,'A'), 0 ) + &\n        MAX( Ind_('NITDbin5'  ,'A'), 0 ) + &\n        MAX( Ind_('NITDbin6'  ,'A'), 0 ) + &\n        MAX( Ind_('NITDbin7'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin1'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin2'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin3'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin4'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin5'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin6'  ,'A'), 0 ) + &\n        MAX( Ind_('SO4Dbin7'  ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin1' ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin2' ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin3' ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin4' ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin5' ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin6' ,'A'), 0 ) + &\n        MAX( Ind_('DSTALbin7' ,'A'), 0 )\n\n    IF ( Input_Opt%LDSTUP ) THEN\n       IF ( I < 21 ) THEN\n          MSG = 'LDSTUP=T but COATED DUST AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use COATED DUST AEROSOLS if LDSTUP=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check SEASALT AEROSOLS\n    !=================================================================\n    I = MAX( Ind_('SALA','A'), 0 ) + MAX( Ind_('SALC','A'), 0 )\n\n    IF ( Input_Opt%LSSALT ) THEN\n       IF ( I == 0 ) THEN\n          MSG = 'LSSALT=T but ONLINE SEASALT AEROSOLS are undefined!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ELSE\n       IF ( I > 0 ) THEN\n          MSG = 'Cannot use ONLINE SEASALT AEROSOLS if LSSALT=F!'\n          CALL GC_Error( Msg, RC, Location )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Error check stratospheric H2O\n    !=================================================================\n    IF ( Input_Opt%LSETH2O .and. Ind_('H2O') < 0 ) THEN\n       WRITE( 6, '(a)'     ) REPEAT( '=', 79 )\n       WRITE( 6, '(/,a,/)' ) 'Warning in input_mod.F90: ' &\n            // 'H2O is set but H2O species is undefined.'\n       Input_Opt%LSETH2O = .FALSE.\n       WRITE( 6, '(a)'     ) REPEAT( '=', 79 )\n    ENDIF\n\n  END SUBROUTINE Do_Error_Checks\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Find_Number_of_Species\n!\n! !DESCRIPTION: Searches a string array containing species names and returns\n!  the number of valid species (i.e. species that do not match MISSING_STR).\n!  Assumes all the valid species will be listed contiguously at the front\n!  of the array\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n   FUNCTION Get_Number_of_Species( a_str ) RESULT( n_valid )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: a_str(:)\n!\n! !RETURN VALUE:\n!\n    INTEGER                      :: n_valid\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    ! Return the number of valid species\n    n_valid = 0\n    DO N = 1, SIZE( a_str )\n       IF ( TRIM( a_str(N) ) == MISSING_STR ) EXIT\n       n_valid = n_valid + 1\n    ENDDO\n\n  END FUNCTION Get_Number_of_Species\n!EOC\nEND MODULE Input_Mod\n"
  },
  {
    "path": "GeosCore/kppsa_interface_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: kppsa_interface_mod.F90\n!\n! !DESCRIPTION: Contains routines to print the full chemical state\n!  which can be used as input to the KPP Standalone.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE KppSa_Interface_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n  USE HCO_Error_Mod, ONLY : hp\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBERS:\n!\n  PUBLIC :: KppSa_Check_ActiveCell\n  PUBLIC :: KppSa_Check_Domain\n  PUBLIC :: KppSa_Check_Time\n  PUBLIC :: KppSa_Cleanup\n  PUBLIC :: KppSa_Config\n  PUBLIC :: KppSa_Write_Samples\n!\n! !DERIVED TYPES:\n!\n  ! Type to hold information read from the YAML config file\n  TYPE, PRIVATE :: KppSa_Interface_Type\n     INTEGER                           :: NLOC\n     INTEGER                           :: Start_Output(2)\n     INTEGER                           :: Stop_Output(2)\n     LOGICAL                           :: SkipIt\n     LOGICAL                           :: SkipWriteAtThisTime\n     CHARACTER(LEN=255)                :: Output_Directory\n     CHARACTER(LEN=255),   ALLOCATABLE :: LocationName(:)\n     REAL(hp),             ALLOCATABLE :: LocationLons(:)\n     REAL(hp),             ALLOCATABLE :: LocationLats(:)\n     INTEGER,              ALLOCATABLE :: IDX(:)\n     INTEGER,              ALLOCATABLE :: JDX(:)\n     INTEGER,              ALLOCATABLE :: Levels(:)\n  END TYPE KppSa_Interface_Type\n\n  ! Type to denote active cells\n  TYPE, PRIVATE :: KppSa_ActiveCell_Type\n     LOGICAL                           :: Active_Cell\n     CHARACTER(LEN=255)                :: Active_Cell_Name\n  END TYPE KppSa_ActiveCell_Type\n!\n! !PRIVATE DATA MEMBERS:\n!\n  TYPE(KppSa_Interface_Type),  PRIVATE :: KppSa_State\n  TYPE(KppSa_ActiveCell_Type), PRIVATE :: KppSa_ActiveCell\n  !$OMP THREADPRIVATE( KppSa_ActiveCell )\n!\n! !AUTHORS:\n!  P. Obin Sturm (psturm@usc.edu)\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kppsa_check_domain\n!\n! !DESCRIPTION: Subroutine Check_Domain is used to identify if a\n!  specified latitude and longitude falls within a grid cell on the\n!  current CPU. Multiple lat/lon pairs can be checked simultaneously.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE KppSa_Check_Domain( RC )\n!\n! !USES:\n!\n    USE HCO_GeoTools_Mod, ONLY : HCO_GetHorzIJIndex\n    USE HCO_State_GC_Mod, ONLY : HcoState\n!\n! !OUTPUT PARAMETERS\n!\n    INTEGER, INTENT(out) :: RC\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Early exit if no locations\n    IF ( KppSa_State%SkipIt ) RETURN\n\n    ! Compute (I,J) indices of grid boxes\n    CALL HCO_GetHorzIJIndex( HcoState,                                       &\n                             KppSa_State%NLOC,                               &\n                             KppSa_State%LocationLons,                       &\n                             KppSa_State%LocationLats,                       &\n                             KppSa_State%IDX,                                &\n                             KppSa_State%JDX,                                &\n                             RC                                             )\n\n  END SUBROUTINE KppSa_Check_Domain\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kppsa_check_time\n!\n! !DESCRIPTION: Subroutine Check_Domain is used to identify if a\n! specified latitude and longitude falls within a grid cell on the\n! current CPU. Multiple lat/lon pairs can be checked simultaneously.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE KppSa_Check_Time( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Time_Mod,   ONLY : Get_Nymd, Get_Nhms\n!\n! !OUTPUT PARAMETERS\n!\n    INTEGER, INTENT(OUT) :: RC   ! Success or failure?\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: yyyymmdd, hhmmss\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Early exit if no locations\n    IF ( KppSa_State%SkipIt ) RETURN\n\n    ! Assume we will not write to disk at this date/time\n    KppSa_State%SkipWriteAtThisTime  = .TRUE.\n\n    ! Get current date & time\n    yyyymmdd = Get_Nymd()\n    hhmmss   = Get_Nhms()\n\n    ! Exit if we are outside the window for archiving model state\n    IF ( yyyymmdd < KppSa_State%Start_Output(1) ) RETURN\n    IF ( yyyymmdd > KppSa_State%Stop_Output(1)  ) RETURN\n    IF ( hhmmss   < KppSa_State%Start_Output(2) ) RETURN\n    IF ( hhmmss   > KppSa_State%Stop_Output(2)  ) RETURN\n\n    ! If we get this far, we're in the time window where we\n    ! archive the chemical state for the KPP standalone\n    KppSa_State%SkipWriteAtThisTime = .FALSE.\n\n   END SUBROUTINE KppSa_Check_Time\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kppsa_check_activecell\n!\n! !DESCRIPTION: Identifies if a grid cell is within a specified latitude\n!  and longitude to print the full chemical state (all concentrations,\n!  reaction rates, rate constants, and meteo metadata).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n   SUBROUTINE KppSa_Check_ActiveCell( I, J, L )\n!\n! !INPUT PARAMETERS:\n!\n     INTEGER, INTENT(IN) :: I, J, L   ! Grid Indices\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER :: K\n\n    ! Early exit if KPP standalone interface is disabled\n    IF ( KppSa_State%SkipIt ) RETURN\n\n    ! Initialize\n    KppSa_ActiveCell%Active_Cell      = .FALSE.\n    KppSa_ActiveCell%Active_Cell_Name = ''\n\n    ! Skip if we are outside the time interval\n    IF ( KppSa_State%SkipWriteAtThisTime ) RETURN\n\n    ! Flag active cells\n    IF ( ANY( L == KppSa_State%Levels ) ) THEN\n       DO K = 1, KppSa_State%NLOC\n          IF ( KppSa_State%IDX(K) == I  .AND.                                &\n               KppSa_State%JDX(K) == J ) THEN\n             KppSa_ActiveCell%Active_Cell = .TRUE.\n             KppSa_ActiveCell%Active_Cell_Name =                             &\n                  KppSa_State%LocationName(K)\n          ENDIF\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE KppSa_Check_ActiveCell\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kppsa_config\n!\n! !DESCRIPTION: Subroutine Config_KPP_Standalone reads a set of gridcells\n!  to be sampled and the full chemical state printed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n   SUBROUTINE KppSa_Config( Input_Opt, RC )\n!\n! !USES:\n!\n      USE QfYaml_Mod\n      USE ErrCode_Mod\n      USE Input_Opt_Mod, ONLY : OptInput\n      USE RoundOff_Mod,  ONLY : Cast_and_RoundOff\n      USE inquireMod,    ONLY : findFreeLUN\n!\n! !INPUT PARAMETERS:\n!\n      TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n      INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      ! Scalars\n      INTEGER                      :: I, N\n      INTEGER                      :: IU_FILE     ! Available unit for writing\n      INTEGER                      :: path_exists\n      LOGICAL                      :: file_exists\n      LOGICAL                      :: v_bool\n\n      ! Strings\n      CHARACTER(LEN=255)           :: thisLoc\n      CHARACTER(LEN=512)           :: errMsg\n      CHARACTER(LEN=QFYAML_NamLen) :: key\n      CHARACTER(LEN=QFYAML_StrLen) :: v_str\n\n      ! Objects\n      TYPE(QFYAML_t)               :: Config, ConfigAnchored\n\n      ! Arrays\n      INTEGER                      :: a_int(QFYAML_MaxArr)\n\n      ! String arrays\n      CHARACTER(LEN=QFYAML_NamLen) :: a_str(QFYAML_MaxArr)\n\n      ! YAML configuration file name to be read\n      CHARACTER(LEN=30), PARAMETER :: configFile = &\n           './kpp_standalone_interface.yml'\n\n      ! Inquire if YAML interface exists -- if not, skip initializing\n      KppSa_State%SkipIt = .FALSE.\n      INQUIRE( FILE=configFile, EXIST=file_exists )\n      IF ( .NOT. file_exists ) THEN\n         KppSa_State%SkipIt = .TRUE.\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 100 ) TRIM( configFile )\n 100        FORMAT( \"Config file \", a \", not found, \",                       &\n                    \"skipping KPP standalone interface\" )\n         ENDIF\n         RETURN\n      ENDIF\n\n      ! Assume success\n      RC      = GC_SUCCESS\n      errMsg  = ''\n      thisLoc = ' -> at Config_KPP_Standalone (in module GeosCore/kpp_standalone_interface.F90)'\n\n      !========================================================================\n      ! Read the YAML file into the Config object\n      !========================================================================\n      CALL QFYAML_Init( configFile, Config, ConfigAnchored, RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error reading configuration file: ' // TRIM( configFile )\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n\n      !========================================================================\n      ! Read the main on/off switch; Exit if the switch is turned off\n      !========================================================================\n      key = \"settings%activate\"\n      v_bool = MISSING_BOOL\n      CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, \"\", RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error parsing ' // TRIM( key ) // '!'\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n      KppSa_State%SkipIt = ( .not. v_bool )\n      IF ( KppSa_State%SkipIt ) THEN\n         IF ( Input_Opt%amIRoot ) WRITE( 6, 110 )\n 110     FORMAT( \"KPP standalone interface was manually disabled\" )\n         RETURN\n      ENDIF\n\n      !========================================================================\n      ! Read the list of active cells\n      !========================================================================\n      key = \"active_cells\"\n      a_str = MISSING_STR\n      CALL QFYAML_Add_Get( Config, key, a_str, \"\", RC, dynamic_size=.TRUE. )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error parsing ' // TRIM( key ) // '!'\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n\n      !========================================================================\n      ! Get the number of active cells (if 0, return) and the list of names\n      !========================================================================\n      KppSa_State%NLOC = Find_Number_of_Locations( a_str )\n      IF ( KppSa_State%NLOC .eq. 0 ) THEN\n         ! Set SkipIt flag to short circuit other subroutines\n         KppSa_State%SkipIt = .TRUE.\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, 120 )\n 120        FORMAT( \"No active cells for box modeling \",                      &\n                    \"in kpp_standalone_interface.yml\")\n            RETURN\n         ENDIF\n      ENDIF\n      ALLOCATE( KppSa_State%LocationName( KppSa_State%NLOC ), STAT=RC )\n      CALL GC_CheckVar( 'KppSa_State%LocationName', 0, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      DO I = 1,KppSa_State%NLOC\n         KppSa_State%LocationName(I) = TRIM( a_str(I) )\n      END DO\n\n      !========================================================================\n      ! Read latitude and longitude of active cells\n      !========================================================================\n\n      ! Allocate number of locations for lats and lons\n      ALLOCATE( KppSa_State%LocationLons( KppSa_State%NLOC ), STAT=RC )\n      CALL GC_CheckVar( 'KppSa_State%LocationLons', 0, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n\n      ALLOCATE( KppSa_State%LocationLats( KppSa_State%NLOC ), STAT=RC )\n      CALL GC_CheckVar( 'KppSa_State%LocationLats', 0, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n\n      ! Read coordinates\n      DO I = 1,KppSa_State%NLOC\n      ! Read longitudes\n         key = \"locations%\"//TRIM( KppSa_State%LocationName(I) )//\"%longitude\"\n         v_str = MISSING_STR\n         CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n         IF ( RC /= GC_SUCCESS ) THEN\n            errMsg = 'Error parsing ' // TRIM( key ) // '!'\n            CALL GC_Error( errMsg, RC, thisLoc )\n            RETURN\n         ENDIF\n         KppSa_State%LocationLons( I ) = Cast_and_RoundOff( TRIM( v_str ), places=-1 )\n      ! Read latitudes\n         key = \"locations%\"//TRIM( KppSa_State%LocationName(I) )//\"%latitude\"\n         v_str = MISSING_STR\n         CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n         IF ( RC /= GC_SUCCESS ) THEN\n            errMsg = 'Error parsing ' // TRIM( key ) // '!'\n            CALL GC_Error( errMsg, RC, thisLoc )\n            RETURN\n         ENDIF\n         KppSa_State%LocationLats( I ) = Cast_and_RoundOff( TRIM( v_str ), places=-1 )\n      END DO\n\n      ! Allocate IDX and JDX (masks for whether a location is on the CPU)\n      ALLOCATE( KppSa_State%IDX( KppSa_State%NLOC ), STAT=RC )\n      CALL GC_CheckVar( 'KppSa_State%IDX', 0, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n\n      ALLOCATE( KppSa_State%JDX( KppSa_State%NLOC ), STAT=RC )\n      CALL GC_CheckVar( 'KppSa_State%JDX', 0, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n\n      KppSa_State%IDX(:) = -1\n      KppSa_State%JDX(:) = -1\n\n      !========================================================================\n      ! Get the list of levels and number of levels\n      !========================================================================\n      ! TODO: could add capability for location specific levels\n      key = \"settings%levels\"\n      a_int = MISSING_INT\n      CALL QFYAML_Add_Get( Config, key, a_int, \"\", RC, dynamic_size=.TRUE. )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error parsing ' // TRIM( key ) // '!'\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n      N = Find_Number_of_Levels( a_int )\n      ! if no specified levels, print the surface\n      IF ( N .eq. 0 ) THEN\n         N = 1\n         a_int(1) = 1\n      END IF\n      ALLOCATE( KppSa_State%Levels( N ), STAT=RC )\n      CALL GC_CheckVar( 'KppSa_State%Levels', 0, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      DO I = 1,N\n         KppSa_State%Levels(I) = a_int(I)\n      END DO\n\n      !========================================================================\n      ! Get the start & stop date/time for which output will be printed\n      !========================================================================\n      key = \"settings%start_output_at\"\n      a_int = MISSING_INT\n      CALL QFYAML_Add_Get( Config, key, a_int(1:2), \"\", RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error parsing ' // TRIM( key ) // '!'\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n      KppSa_State%Start_Output = a_int(1:2)\n\n      key = \"settings%stop_output_at\"\n      a_int = MISSING_INT\n      CALL QFYAML_Add_Get( Config, key, a_int(1:2), \"\", RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error parsing ' // TRIM( key ) // '!'\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n      KppSa_State%Stop_Output = a_int(1:2)\n\n      !========================================================================\n      ! Set the output directory\n      !========================================================================\n      ! Get that value\n      key = \"settings%output_directory\"\n      v_str = MISSING_STR\n      CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, \"\", RC )\n      IF ( RC /= GC_SUCCESS ) THEN\n         errMsg = 'Error parsing ' // TRIM( key ) // '!'\n         CALL GC_Error( errMsg, RC, thisLoc )\n         RETURN\n      ENDIF\n      ! Check to see if the directory exists\n      ! Do this in a portable way that works across compilers\n      ! The directory specifier in inquire might be specific to ifort\n      ! So instead try to open a test file within the output directory\n      ! Check ./OutputDir (which exists for GEOS-Chem and GCHP) as backup\n      IU_FILE = findFreeLUN()\n      OPEN( IU_FILE, FILE   = trim(v_str)//'/.test_directory_existence',     &\n                     ACTION = \"WRITE\",                                       &\n                     IOSTAT = path_exists,                                   &\n                     ACCESS = 'SEQUENTIAL'                                  )\n\n      ! If the specified folder doesn't exist, try OutputDir\n      IF ( path_exists /= 0 ) THEN\n         OPEN( IU_FILE, FILE   = './OutputDir/.test_directory_existence',    &\n                        ACTION = \"WRITE\",                                    &\n                        IOSTAT = path_exists,                                &\n                        ACCESS ='SEQUENTIAL'                                )\n         KppSa_State%Output_Directory = \"./OutputDir\"\n         IF ( Input_Opt%amIRoot ) THEN\n            WRITE( 6, '(a)' )                                                &\n             \"KPP Standalone Interface warning: Specified output directory \",&\n             trim(v_str),                                                    &\n             \" was not found, trying default output path './OutputDir' \"\n         ENDIF\n\n         ! If OutputDir doesn't exist, write to the current directory\n         IF ( path_exists /= 0 ) THEN\n            IF ( Input_Opt%amIRoot ) THEN\n               WRITE( 6, '(a)' )                                             &\n            \"KPP Standalone Interface warning: Specified output directory \", &\n               trim(v_str),                                                  &\n               \" and default output directory './OutputDir' \"            //  &\n               \"were not found, writing output to the current directory './'\"\n               KppSa_State%Output_Directory = \"./\"\n            ENDIF\n         ENDIF\n      ELSE\n         KppSa_State%Output_Directory = trim(v_str)\n         close(IU_FILE)\n      END IF\n\n      !=======================================================================\n      ! Print information about sites that will be archived\n      !=======================================================================\n      IF ( Input_Opt%amIRoot ) THEN\n         WRITE( 6, '(a)'   ) REPEAT( \"=\", 79 )\n         WRITE( 6, '(a,/)' ) \"KPP STANDALONE INTERFACE\"\n         WRITE( 6, '(a,/)' ) \"Model state will be archived at these sites:\"\n         DO I = 1, KppSa_State%NLOC\n            WRITE( 6, 150 ) KppSa_State%LocationName(I),             &\n                            KppSa_State%LocationLons(I),             &\n                            KppSa_State%LocationLats(I)\n 150        FORMAT( a25, \"( \", f9.4, \", \", f9.4, \" )\")\n         ENDDO\n         WRITE( 6, '(/,a)'   ) \"For GEOS-Chem vertical levels:\"\n         WRITE( 6, '(100i4)' ) KppSa_State%Levels\n         WRITE( 6, 160       ) KppSa_State%Start_Output\n 160     FORMAT( \"Starting at \", i8.8, 1x, i6.6 )\n         WRITE( 6, 170       ) KppSa_State%Stop_Output\n 170     FORMAT( \"Ending at   \", i8.8, 1x, i6.6 )\n         WRITE( 6, '(a)'     ) REPEAT( \"=\", 79 )\n      ENDIF\n\n   END SUBROUTINE KppSa_Config\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kppsa_write_samples\n!\n! !DESCRIPTION: Subroutine Write_Samples writes the full chemical state\n! (concentrations, reaction rates and rate constants, meteorological\n! conditions).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n   SUBROUTINE KppSa_Write_Samples( I,           J,            L,             &\n                                   initC,       localRCONST,  initHvalue,    &\n                                   exitHvalue,  ICNTRL,       RCNTRL,        &\n                                   State_Grid,  State_Chm,    State_Met,     &\n                                   Input_Opt,   KPP_TotSteps, RC,            &\n                                   FORCE_WRITE, CELL_NAME                   )\n!\n! !USES:\n!\n      USE ErrCode_Mod\n      USE State_Grid_Mod,   ONLY : GrdState\n      USE State_Chm_Mod,    ONLY : ChmState\n      USE State_Met_Mod,    ONLY : MetState\n      USE Input_Opt_Mod,    ONLY : OptInput\n      USE GcKpp_Global,     ONLY : ATOL\n      USE GcKpp_Function\n      USE GcKpp_Parameters, ONLY : NSPEC, NREACT, NVAR\n      USE TIME_MOD,         ONLY : GET_TS_CHEM\n      USE TIME_MOD,         ONLY : TIMESTAMP_STRING\n      USE TIME_MOD,         ONLY : Get_Minute\n      USE TIME_MOD,         ONLY : Get_Hour\n      USE TIME_MOD,         ONLY : Get_Day\n      USE TIME_MOD,         ONLY : Get_Month\n      USE TIME_MOD,         ONLY : Get_Year\n      USE Pressure_Mod,     ONLY : Get_Pcenter\n      USE inquireMod,       ONLY : findFreeLUN\n!\n! !INPUT PARAMETERS:\n!\n      INTEGER,          INTENT(IN)  :: I                   ! Longitude index\n      INTEGER,          INTENT(IN)  :: J                   ! Latitude index\n      INTEGER,          INTENT(IN)  :: L                   ! Vertical level\n      INTEGER,          INTENT(IN)  :: KPP_TotSteps        ! Total integr. steps\n      INTEGER,          INTENT(IN)  :: ICNTRL(20)          ! Integrator options\n      TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State object\n      TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chem State obj\n      TYPE(MetState),   INTENT(IN)  :: State_Met           ! Met State obj\n      TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options obj\n      REAL(dp),         INTENT(IN)  :: initC(NSPEC)        ! Initial conc.\n      REAL(dp),         INTENT(IN)  :: localRCONST(NREACT) ! Rate constants\n      REAL(dp)                      :: initHvalue          ! Initial timestep\n      REAL(dp)                      :: exitHvalue          ! Final timestep:\n                                                           !  RSTATE(Nhexit)\n      REAL(dp),         INTENT(IN)  :: RCNTRL(20)          ! Integrator options\n      LOGICAL,          OPTIONAL    :: FORCE_WRITE         ! Write even if not\n                                                           ! in an active cell\n      CHARACTER(LEN=*), OPTIONAL    :: CELL_NAME           ! Customize name of\n                                                           !  this file\n!\n! !OUTPUT PARAMETERS:\n!\n      INTEGER,          INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      ! Integers\n      INTEGER            :: N\n      INTEGER            :: IU_FILE\n      INTEGER            :: SpcID\n      REAL(fp)           :: DT\n      LOGICAL            :: FORCE_WRITE_AUX\n      CHARACTER(LEN=255) :: CELL_NAME_AUX\n\n      ! Strings\n      CHARACTER(LEN=255) :: YYYYMMDD_hhmmz\n      CHARACTER(LEN=255) :: level_string\n      CHARACTER(LEN=512) :: errMsg, filename\n\n      ! Arrays\n      REAL(dp)           :: Aout(NREACT)\n      REAL(dp)           :: Vloc(NVAR)\n\n      !======================================================================\n      ! Write_Samples begins here!\n      !======================================================================\n\n      ! Did a user want to write the chemical state\n      ! even if not in an active cell?\n      FORCE_WRITE_AUX = .FALSE.\n      IF ( PRESENT( FORCE_WRITE ) ) FORCE_WRITE_AUX = FORCE_WRITE\n\n      ! Quit early if there's no writing to be done\n      IF ( .not. KppSa_ActiveCell%Active_Cell  .AND.                         &\n           .not. FORCE_WRITE_AUX                       ) THEN\n         RETURN\n      END IF\n\n      ! Did the call include an optional cell name?\n      CELL_NAME_AUX = ''\n      IF ( PRESENT( CELL_NAME ) ) CELL_NAME_AUX = CELL_NAME\n\n      ! Get KPP state\n      CALL Fun( V    = initC(1:NVAR),                                        &\n                F    = initC(NVAR+1:NSPEC),                                  &\n                RCT  = localRCONST,                                          &\n                Vdot = Vloc,                                                 &\n                Aout = Aout                                                 )\n\n      ! Chemistry timestep (seconds)\n      DT = GET_TS_CHEM()\n\n      !======================================================================\n      ! Write the file.  We need to place this into an !$OMP CRITICAL\n      ! block to ensure that only one thread can open & write to the file\n      ! at a time.  Otherwise we will get corrupted files\n      !======================================================================\n      !$OMP CRITICAL\n\n      ! Find a free file LUN\n      IU_FILE = findFreeLUN()\n      WRITE(level_string,'(I0)') L\n      WRITE( YYYYMMDD_hhmmz,'(I0.4,I0.2,I0.2,a,I0.2,I0.2)' )                 &\n         Get_Year(), Get_Month(), Get_Day(), '_', Get_Hour(), Get_Minute()\n\n      ! Filename for output\n      filename = TRIM( KppSa_State%Output_Directory                     ) // &\n                 '/'                                                      // &\n                 TRIM( Cell_Name_Aux                                    ) // &\n                 TRIM( KppSa_ActiveCell%Active_Cell_Name       ) // &\n                 '_L'                                                     // &\n                 trim( level_string                                     ) // &\n                 '_'                                                      // &\n                 TRIM( YYYYMMDD_hhmmz                                   ) // &\n                 '.txt'\n\n      ! Open the file\n      ! NOTE: We cannot exit from within an !$OMP CRITICAL block\n      OPEN( IU_FILE,  FILE=TRIM(filename), ACTION=\"WRITE\",                   &\n                      IOSTAT=RC,           ACCESS='SEQUENTIAL')\n\n      ! Write header to file\n      WRITE( IU_FILE, '(a)' ) '60'\n      WRITE( IU_FILE, '(a)' ) REPEAT(\"=\", 76 )\n      WRITE( IU_FILE, '(a)' ) ''\n      WRITE( IU_FILE, '(a)' ) &\n       '                  KPP Standalone Atmospheric Chemical State'\n      WRITE( IU_FILE, '(a)' ) 'File Description:'\n      WRITE( IU_FILE, '(a)' ) &\n       'This file contains model output of the atmospheric chemical state'\n      WRITE( IU_FILE, '(a)' ) &\n       'as simulated by the GEOS-Chem chemistry module in a 3D setting.'\n      WRITE( IU_FILE, '(a)' ) &\n       'Each grid cell represents the chemical state of an individual location,'\n      WRITE( IU_FILE, '(a)' ) &\n       'suitable for input into a separate KPP Standalone program which will'\n      WRITE( IU_FILE, '(a)' ) &\n       'replicate the chemical evolution of that grid cell for mechanism analysis.'\n      WRITE( IU_FILE, '(a)' ) &\n       'Note that the KPP Standalone will only use concentrations, rate constants,'\n      WRITE( IU_FILE, '(a)' ) &\n       'and KPP-specific fields. All other fields are for reference. The first line'\n      WRITE( IU_FILE, '(a)' ) &\n       'contains the number of lines in this header. If wanting to use this output'\n      WRITE( IU_FILE, '(a)' ) &\n       'for other analysis, a Python class to read these fields is available by'\n      WRITE( IU_FILE, '(a)' ) &\n       'request, contact Obin Sturm (psturm@usc.edu).'\n      WRITE( IU_FILE, '(a)' ) ''\n      WRITE( IU_FILE, '(a)' ) 'Generated by the GEOS-Chem Model'\n      WRITE( IU_FILE, '(a)' ) '       (https://geos-chem.org/)'\n      WRITE( IU_FILE, '(a)' ) 'Using the KPP Standalone Interface'\n      WRITE( IU_FILE, '(a)' ) 'github.com/GEOS-ESM/geos-chem/tree/feature/psturm/kpp_standalone_interface'\n      WRITE( IU_FILE, '(a)' ) '     With contributions from:'\n      WRITE( IU_FILE, '(a)' ) '        Obin Sturm (psturm@usc.edu)'\n      WRITE( IU_FILE, '(a)' ) '        Christoph Keller'\n      WRITE( IU_FILE, '(a)' ) '        Michael Long'\n      WRITE( IU_FILE, '(a)' ) '        Sam Silva'\n      WRITE( IU_FILE, '(a)' ) ''\n\n      ! Write the grid cell metadata as part of the header\n      WRITE( IU_FILE, '(a,/)'     )                                          &\n         'Meteorological and general grid cell metadata    '\n      WRITE( IU_FILE, '(a,a)'     )                                          &\n         'Location:                                        '              // &\n          TRIM( CELL_NAME_AUX                     )                       // &\n          TRIM( KppSa_ActiveCell%ACTIVE_CELL_NAME )\n      WRITE( IU_FILE, '(a,a)'     )                                          &\n         'Timestamp:                                       ',                &\n          TIMESTAMP_STRING()\n      WRITE( IU_FILE, '(a,f11.4)' )                                          &\n         'Longitude (degrees):                             ',                &\n          State_Grid%XMid(I,J)\n      WRITE( IU_FILE, '(a,f11.4)' )                                          &\n         'Latitude (degrees):                              ',                &\n          State_Grid%YMid(I,J)\n      WRITE( IU_FILE, '(a,i6)'    )                                          &\n         'GEOS-Chem Vertical Level:                        ',                &\n          L\n      WRITE( IU_FILE, '(a,f11.4)' )                                          &\n         'Pressure (hPa):                                  ',                &\n          Get_Pcenter( I, J, L )\n      WRITE( IU_FILE, '(a,f11.2)' )                                          &\n         'Temperature (K):                                 ',                &\n          State_Met%T(I,J,L)\n      WRITE( IU_FILE, '(a,e11.4)' )                                          &\n         'Dry air density (molec/cm3):                     ',                &\n          State_Met%AIRNUMDEN(I,J,L)\n      WRITE( IU_FILE, '(a,e11.4)' )                                          &\n         'Water vapor mixing ratio (vol H2O/vol dry air):  ',                &\n          State_Met%AVGW(I,J,L)\n      WRITE( IU_FILE, '(a,e11.4)' )                                          &\n         'Cloud fraction:                                  ',                &\n          State_Met%CLDF(I,J,L)\n      WRITE( IU_FILE, '(a,e11.4)' )                                          &\n         'Cosine of solar zenith angle:                    ',                &\n          State_Met%SUNCOSmid(I,J)\n      WRITE( IU_FILE, '(/,a,/)'   )                                          &\n         'KPP Integrator-specific parameters               '\n      WRITE( IU_FILE, '(a,f11.4)' )                                          &\n         'Init KPP Timestep (seconds):                     ',                &\n         initHvalue\n      WRITE( IU_FILE, '(a,f11.4)' )                                          &\n         'Exit KPP Timestep (seconds):                     ',                &\n          exitHvalue\n      WRITE( IU_FILE, '(a,f11.4)' )                                          &\n         'Chemistry operator timestep (seconds):           ',                &\n          DT\n      WRITE( IU_FILE, '(a,i6)'    )                                          &\n         'Number of internal timesteps:                    ',                &\n          KPP_TotSteps\n      WRITE( IU_FILE, '(a)'       ) 'ICNTRL integrator options used:'\n      WRITE( IU_FILE, '(10i6)'    ) ICNTRL( 1:10)\n      WRITE( IU_FILE, '(10i6)'    ) ICNTRL(11:20)\n      WRITE( IU_FILE, '(a)'       ) 'RCNTRL integrator options used:'\n      WRITE( IU_FILE, '(5F13.6)'  ) RCNTRL( 1: 5)\n      WRITE( IU_FILE, '(5F13.6)'  ) RCNTRL( 6:10)\n      WRITE( IU_FILE, '(5F13.6)'  ) RCNTRL(11:15)\n      WRITE( IU_FILE, '(5F13.6)'  ) RCNTRL(16:20)\n      WRITE( IU_FILE, '(/,a)'     )                                          &\n         'CSV data of full chemical state, including species concentrations,'\n      WRITE( IU_FILE, '(a)'       )                                          &\n         'rate constants (R) and instantaneous reaction rates (A).'\n      WRITE( IU_FILE, '(a)'       )                                          &\n         'All concentration units are in molec/cm3 and rates in molec/cm3/s.'\n      WRITE( IU_FILE, '(a)'       ) ''\n      WRITE( IU_FILE, '(a)'       ) REPEAT(\"=\", 76 )\n      WRITE( IU_FILE, '(a)'       ) 'Name,   Value,   Absolute Tolerance'\n\n      ! Write species concentrations and absolute tolerances\n      DO N = 1, NSPEC\n         SpcID = State_Chm%Map_KppSpc(N)\n         IF ( SpcID <= 0 ) THEN\n            WRITE( IU_FILE, 120 ) N, initC(N), ATOL(N)\n 120        FORMAT( \"C\", i0, \",\", es25.16e3, \",\", es10.2e2 )\n            CYCLE\n         ENDIF\n         WRITE( IU_FILE, 130 )                                               &\n            TRIM(State_Chm%SpcData(SpcID)%Info%Name), initC(N), ATOL(N)\n 130     FORMAT( a, \",\", es25.16e3, \",\", es10.2e2 )\n      ENDDO\n\n      ! Write reaction rates\n      DO N = 1, NREACT\n         WRITE( IU_FILE, 140 ) N, localRCONST(N)\n 140     FORMAT( \"R\", i0, \",\", es25.16e3 )\n      ENDDO\n\n      ! Write instantaneous reaction rates\n      DO N = 1, NREACT\n         WRITE( IU_FILE, 150 ) N, Aout(N)\n 150     FORMAT( \"A\", i0, \",\", es25.16e3 )\n      ENDDO\n\n      ! Close file\n      CLOSE( IU_FILE )\n      !$OMP END CRITICAL\n\n   END SUBROUTINE KppSa_Write_Samples\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kppsa_cleanup\n!\n! !DESCRIPTION: Deallocates module variables that may have been allocated\n!               at run time and unnecessary files required during the process\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n   SUBROUTINE KppSa_Cleanup( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE inquireMod,      ONLY : findFreeLUN\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES::\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    IF ( ALLOCATED( KppSa_State%LocationName ) ) THEN\n       arrayId = 'kpp_standalone_interface.F90:KppSa_State%LocationName'\n       DEALLOCATE( KppSa_State%LocationName, STAT=RC  )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( KppSa_State%LocationLons ) ) THEN\n       arrayId = 'kpp_standalone_interface.F90:KppSa_State%LocationLons'\n       DEALLOCATE( KppSa_State%LocationLons, STAT=RC  )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( KppSa_State%LocationLats ) ) THEN\n       arrayId = 'kpp_standalone_interface.F90:KppSa_State%LocationLats'\n       DEALLOCATE( KppSa_State%LocationLats, STAT=RC  )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( KppSa_State%IDX ) ) THEN\n       arrayId = 'kpp_standalone_interface.F90:KppSa_State%IDX'\n       DEALLOCATE( KppSa_State%IDX, STAT=RC  )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( KppSa_State%JDX ) ) THEN\n       arrayId = 'kpp_standalone_interface.F90:KppSa_State%JDX'\n       DEALLOCATE( KppSa_State%JDX, STAT=RC  )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( KppSa_State%Levels ) ) THEN\n       arrayId = 'kpp_standalone_interface.F90:KppSa_State%Levels'\n       DEALLOCATE( KppSa_State%Levels, STAT=RC  )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n   END SUBROUTINE KppSa_Cleanup\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Find_Number_of_Locations\n!\n! !DESCRIPTION: Searches a string array containing location names and returns\n!  the number of valid locations (i.e. char that do not match MISSING_STR).\n!  Assumes all the valid locations will be listed contiguously at the front\n!  of the array. Taken from Get_Number_of_Species from input_mod.F90\n!\\\\\n!\\\\\n! !INTERFACE:\n   FUNCTION Find_Number_of_Locations( a_str ) RESULT( n_valid )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: a_str(:)\n!\n! !RETURN VALUE:\n!\n    INTEGER                      :: n_valid\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    ! Return the number of valid locations\n    n_valid = 0\n    DO N = 1, SIZE( a_str )\n       IF ( TRIM( a_str(N) ) == MISSING_STR ) EXIT\n       n_valid = n_valid + 1\n    ENDDO\n\n  END FUNCTION Find_Number_of_Locations\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Find_Number_of_Levels\n!\n! !DESCRIPTION: Searches an integer array containing location names and returns\n!  the number of valid levels (i.e. int that do not match MISSING_INT).\n!  Assumes all the valid levels will be listed contiguously at the front\n!  of the array. Taken from Get_Number_of_Species from input_mod.F90\n!\\\\\n!\\\\\n! !INTERFACE:\n   FUNCTION Find_Number_of_Levels( a_int ) RESULT( n_valid )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: a_int(:)\n!\n! !RETURN VALUE:\n!\n    INTEGER             :: n_valid\n!\n! !REVISION HISTORY:\n!  11 Mar 2024 - P. Obin Sturm - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    ! Return the number of valid locations\n    n_valid = 0\n    DO N = 1, SIZE( a_int )\n       IF ( a_int(N) == MISSING_INT ) EXIT\n       n_valid = n_valid + 1\n    ENDDO\n\n  END FUNCTION Find_Number_of_Levels\n!EOC\nEND MODULE KppSa_Interface_Mod\n"
  },
  {
    "path": "GeosCore/land_mercury_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: land_mercury_mod.F90\n!\n! !DESCRIPTION: Module LAND\\_MERCURY\\_MOD contains variables and routines for\n! the land emissions for the GEOS-Chem mercury simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE LAND_MERCURY_MOD\n!\n! !USES:\n!\n  USE HCO_ERROR_MOD    ! For real precisions (hp)\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: BIOMASSHG\n  PUBLIC :: VEGEMIS\n  PUBLIC :: SOILEMIS\n  PUBLIC :: LAND_MERCURY_FLUX\n  !============================================================================\n  ! Disable GTMM until it is brought up-to-date (mps, 3/10/19)\n  !PUBLIC :: GTMM_DR\n  !============================================================================\n  PUBLIC :: SNOWPACK_MERCURY_FLUX\n  PUBLIC :: INIT_LAND_MERCURY\n  PUBLIC :: CLEANUP_LAND_MERCURY\n!\n! !REVISION HISTORY:\n!  02 Jun 2010 - N. E. Selin, C. Carouge - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Plant transpiration rate [m/s]\n  REAL(fp),  ALLOCATABLE :: TRANSP(:,:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: land_mercury_flux\n!\n! !DESCRIPTION: Subroutine LAND\\_MERCURY\\_FLUX calculates emissions of Hg(0)\n!  from prompt recycling of previously deposited mercury to land, in [kg/s].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LAND_MERCURY_FLUX( LFLUX, LHGSNOW, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE DEPO_MERCURY_MOD,   ONLY : WD_HGP, WD_HG2, DD_HGP, DD_HG2\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_EMIS\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)  :: LHGSNOW     ! Use Hg0 from snow?\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Hg0 flux [kg/s]\n    REAL(fp),       INTENT(OUT) :: LFLUX(State_Grid%NX,State_Grid%NY)\n!\n! !REVISION HISTORY:\n!  30 Aug 2010 - N. E. Selin, C. Holmes, B. Corbitt - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: DTSRCE, REEMFRAC\n    REAL(fp)              :: FRAC_SNOW_OR_ICE, FRAC_SNOWFREE_LAND\n    LOGICAL               :: IS_LAND_OR_ICE\n    REAL(fp), PARAMETER   :: SEC_PER_YR = 365.25e+0_fp * 86400e+0_fp\n    INTEGER               :: I,      J\n\n    !=================================================================\n    ! LAND_MERCURY_FLUX begins here!\n    !=================================================================\n\n    ! Emission timestep [s]\n    DTSRCE = GET_TS_EMIS()\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,                J,                  REEMFRAC           )&\n    !$OMP PRIVATE( FRAC_SNOW_OR_ICE, FRAC_SNOWFREE_LAND, IS_LAND_OR_ICE     )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J  = 1, State_Grid%NY\n    DO I  = 1, State_Grid%NX\n\n       ! Distinguish between ice/snow and snow-free land\n       FRAC_SNOW_OR_ICE    = MIN( State_Met%FRSNOW(I,J)     + &\n                                  State_Met%FRSEAICE(I,J)  + &\n                                  State_Met%FRLANDICE(I,J), 1e+0_fp)\n       FRAC_SNOWFREE_LAND  = MAX( State_Met%FRLAND(I,J)    - &\n                                  State_Met%FRSNOW(I,J),    0e+0_fp)\n\n       IS_LAND_OR_ICE      = (( FRAC_SNOWFREE_LAND > 0e+0_fp ) .OR. &\n                              ( FRAC_SNOW_OR_ICE   > 0e+0_fp ))\n\n       ! No flux from non-land surfaces (water, sea ice)\n       LFLUX(I,J) = 0e+0_fp\n\n       ! If snow or ice on the ground, reemission fraction is 0.6,\n       ! otherwise 0.2\n       IF ( IS_LAND_OR_ICE ) THEN\n\n          IF (LHGSNOW) THEN\n             REEMFRAC = 0.2e+0_fp * FRAC_SNOWFREE_LAND\n          ELSE\n             REEMFRAC = 0.2e+0_fp * FRAC_SNOWFREE_LAND + &\n                        0.6e+0_fp * FRAC_SNOW_OR_ICE\n          ENDIF\n\n          ! Mass of emitted Hg(0), kg\n          LFLUX(I,J) = ( WD_HgP(I,J) + WD_Hg2(I,J) + &\n                         DD_HgP(I,J) + DD_Hg2(I,J) ) * REEMFRAC\n\n          ! Emission rate of Hg(0). Convert kg /timestep -> kg/s\n          LFLUX(I,J) = LFLUX(I,J) / DTSRCE\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE LAND_MERCURY_FLUX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: biomasshg\n!\n! !DESCRIPTION: Subroutine BIOMASSHG is the subroutine for Hg(0) emissions\n!  from biomass burning. These emissions are active only for present day\n!  simulations and not for preindustrial simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE BIOMASSHG( Input_Opt, State_Grid, EHg0_bb, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_ERROR_MOD\n    USE HCO_STATE_MOD,        ONLY : HCO_STATE\n    USE HCO_State_GC_Mod,     ONLY : HcoState, ExtState\n    USE HCO_Interface_Common, ONLY : GetHcoDiagn\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetDiagn\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),           INTENT(IN)  :: Input_Opt   ! Input Options\n    TYPE(GrdState),           INTENT(IN)  :: State_Grid\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), DIMENSION(:,:), INTENT(OUT) :: EHg0_bb\n    INTEGER,                  INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Emissions are based on an inventory of CO emissions from biomass burning\n!  (Duncan et al. J Geophys Res 2003), multiplied by a Hg/CO ratio in BB\n!  plumes from Franz Slemr (Poster, EGU 2006).\n!                                                                             .\n!  Slemr surveyed emission factors from measurements worldwide. Although his\n!  best estimate was 1.5e-7 mol Hg/ mol CO, we chose the highest value\n!  (2.1e-7 mol Hg/ mol CO) in the range because the simulations shown in\n!  Selin et al. (GBC 2008) required large Hg(0) emissions to sustain\n!  reasonable atmospheric Hg(0) concentrations. (eck, 11/13/2008)\n!\n! !REVISION HISTORY:\n!  30 Jul 2008 - N. E. Selin, C. Holmes, B. Corbitt - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J\n\n    ! Pointers\n    REAL(sp), POINTER  :: Ptr2D(:,:)\n\n    ! Strings\n    CHARACTER(LEN=63)  :: DgnName\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !=================================================================\n    ! BIOMASSHG begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at BIOMASSHG (in GeosCore/land_mercury_mod.F90)'\n    Ptr2d   => NULL()\n\n    ! Do biomass Hg emissions if biomass burning is on and it is a\n    ! present-day simulation (i.e. not preindustrial)\n    IF ( .NOT. Input_Opt%LPREINDHG ) THEN\n\n       IF ( .NOT. ASSOCIATED(HcoState) ) THEN\n          ErrMsg = 'HcoState object is not associated!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Get diagnostics from HEMCO. The HG0 biomass diagnostics\n       ! is defined in hcoi_gc_diagn_mod.F90 and becomes updated\n       ! by HEMCO automatically. Output unit is as specified when\n       ! defining diagnostics (kg/m2/s).\n       DgnName = 'BIOMASS_HG0'\n       CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, .TRUE., RC, Ptr2D=Ptr2D )\n       IF ( RC /= HCO_SUCCESS ) THEN\n          ErrMsg = 'Could not find HEMCO field ' // TRIM( DgnName )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       EHg0_bb = Ptr2D(:,:) * HcoState%Grid%AREA_M2%Val(:,:)\n\n    ELSE\n\n       ! No emissions for preindustrial period, or when BB is turned off.\n       EHg0_bb = 0e+0_fp\n\n    ENDIF\n\n    ! Free pointer\n    Ptr2D    => NULL()\n\n  END SUBROUTINE BIOMASSHG\n!EOC\n!-----------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: vegemis\n!\n! !DESCRIPTION: Subroutine VEGEMIS is the subroutine for Hg(0) emissions from\n!  vegetation by evapotranspiration.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE VEGEMIS( Input_Opt, State_Met, LVEGEMIS, EHg0_dist, EHg0_vg, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_MONTH, ITS_A_NEW_MONTH\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),           INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(MetState),           INTENT(IN)  :: State_Met  ! Met State object\n    LOGICAL,                  INTENT(IN)  :: LVEGEMIS   !\n    REAL(fp), DIMENSION(:,:), INTENT(IN)  :: EHg0_dist  !\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), DIMENSION(:,:), INTENT(OUT) :: EHg0_vg\n    INTEGER,                  INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REMARKS:\n!  Vegetation emissions are proportional to the evapotranspiration rate and the\n!  soil water mercury content. We assume a constant concentration of mercury\n!  in soil matter, based on the preindustrial and present-day simulations\n!  described in Selin et al. (GBC 2008) and in SOILEMIS subroutine. From the\n!  soil matter Hg concentration, we calculate a soil water Hg concentration in\n!  equilibrium (Allison and Allison, 2005).\n!  NASA provides a climatology of evapotranspiration based on a water budget\n!  model (Mintz and Walker, 1993).\n!\n! Calculate vegetation emissions following Xu et al (1999)\n!    Fc = Ec Cw\n!\n!    Fc is Hg0 flux (ng m-2 s-1)\n!    Ec is canopy transpiration (m s-1)\n!    Cw is conc of Hg0 in surface soil water (ng m-3)\n!\n! Calculate Cw from the Allison and Allison (2005) equilibrium formula\n!    Cw = Cs / Kd\n!\n!    Cs is the concentration of Hg is surface soil solids, ng/g\n!    Kd is the equilibrium constant = [sorbed]/[dissolved]\n!       log Kd = 3.8 L/kg -> Kd = 6310 L /kg = 6.31D-3 m3/g\n!\n! We assume a global mean Cs = 45 ng/g for the preindustrial period. In\n! iterative simulations we redistribute this according to the deposition\n! pattern while maintining the global mean. The scaling factor, EHg0_dist,\n! also accounts for the anthropogenic enhancement of soil Hg in the present\n! day.\n\n! !REVISION HISTORY:\n!  30 Aug 2010 - N. Eckley, C. Holmes, B. Corbitt - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)        :: DRYSOIL_HG, SOILWATER_HG, VEG_EMIS\n    INTEGER         :: I, J\n\n    ! Soil Hg sorption to dissolution ratio, m3/g\n    REAL(fp), PARAMETER  :: Kd = 6.31e-3_fp\n\n    ! Preindustrial global mean soil Hg concentration, ng Hg /g dry soil\n    REAL(fp), PARAMETER  :: DRYSOIL_PREIND_HG = 45e+0_fp\n\n    !=================================================================\n    ! VEGEMIS begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! No emissions through transpiration if we use Bess' GCAP emissions\n    ! Bug fix: VEGEMIS shouldn't be tied to GCAP emissions\n    ! (jaf, eds, 4/1/11)\n    EHg0_vg = 0e+0_fp\n\n  END SUBROUTINE VEGEMIS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soilemis\n!\n! !DESCRIPTION: Subroutine SOILEMIS is the subroutine for Hg(0) emissions\n!  from soils.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SOILEMIS( EHg0_dist, EHg0_so, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_MONTH, ITS_A_NEW_MONTH\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), DIMENSION(:,:), INTENT(IN)  :: EHg0_dist\n    TYPE(GrdState),           INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState),           INTENT(IN)  :: State_Met   ! Met State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), DIMENSION(:,:), INTENT(OUT) :: EHg0_so\n!\n! !REMARKS:\n!  Soil emissions are a function of solar radiation at ground level\n!  (accounting for attenuation by leaf canopy) and surface temperature.\n!  The radiation dependence from Zhang et al. (2000) is multiplied by the\n!  temperature dependence from Poissant and Casimir (1998).\n!  Finally, this emission factor is multiplied by the soil mercury\n!  concentration and scaled to meet the global emission total.\n!\n!  Comments on soil Hg concentration:\n!  ----------------------------------\n!  We chose the preindustrial value of 45 ng Hg /g dry soil as the mean of\n!  the range quoted in Selin et al. (GBC 2008): 20-70 ng/g (Andersson, 1967;\n!  Shacklette et al., 1971; Richardson et al., 2003; Frescholtz and Gustin,\n!  2004). Present-day soil concentrations are thought to be 15% greater than\n!  preindustrial (Mason and Sheu 2002), but such a difference is much less\n!  than the range of concentrations found today, so not well constrained.\n!  We calculate the present-day soil Hg distribution by adding a global mean\n!  6.75 ng/g (=0.15 * 45 ng/g) according to present-day Hg deposition.\n!  (eck, 11/13/08)\n!\n! !REVISION HISTORY:\n!  30 Aug 2010 - N. Eckley, B. Corbitt - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL             :: IS_SNOWFREE_LAND\n    INTEGER             :: I, J\n    REAL(fp)            :: SOIL_EMIS, DIMLIGHT, TAUZ, LIGHTFRAC\n    REAL(fp)            :: AREA_M2, DRYSOIL_HG\n    REAL(fp)            :: SUNCOSVALUE\n    REAL(fp)            :: FRAC_SNOWFREE_LAND\n    REAL(fp)            :: SOIL_EMIS_FAC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Preindustrial global mean soil Hg concentration, ng Hg /g dry soil\n    REAL(fp), PARAMETER  :: DRYSOIL_PREIND_HG = 45e+0_fp\n\n    ! Scaling factor for emissions, g soil /m2 /h\n    ! (This parameter is beta in Eq 3 of Selin et al., GBC 2008.\n    ! The value in paper is actually DRYSOIL_PREIND_HG * SOIL_EMIS_FAC\n    ! and the stated units are incorrect. The paper should have stated\n    ! beta = 1.5D15 / 45D0 = 3.3D13)\n    ! This parameter is tuned in the preindustrial simulation\n    ! so that total deposition to soil equals total emission from soil,\n    ! while also requiring global mean soil Hg concentration of 45 ng/g\n    ! Update for v11 GEOS-FP at 4x5 (J Fisher 3/2016)\n    ! Assume same factor for all resolutions for now and therefore\n    ! comment out resolution dependence. Users of 2x2.5 or nested\n    ! resolutions are encouraged to test and update these as needed (J\n    ! Fisher 4/2016)\n    !IF      ( TRIM(State_Grid%GridRes) == '4.0x5.0') THEN\n       SOIL_EMIS_FAC = 1.6e-2_fp * 0.9688e+0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '2.0x2.5' ) THEN\n    !   SOIL_EMIS_FAC=1.6e-2_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n    !   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !   ! bmy, 8/12/15, add pre-defined SOIL_EMIS_FAC for 05x0667 simulation\n    !   ! This is a non-physical value and would need to be changed for an\n    !   ! actual mercury simulation\n    !   !\n    !   ! %%% NOTE: Bob Y. used same value as for GRID05x0666  %%%\n    !   ! %%% Team Hg will have to supply a better value later %%%\n    !   SOIL_EMIS_FAC = 1.6e-2_fp  ! yzh\n    !   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n    !   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !   ! lhu, 1/5/2012, add pre-defined SOIL_EMIS_FAC for 05x0667 simulation\n    !   ! This is a non-physical value and would need to be changed for an\n    !   ! actual mercury simulation\n    !   SOIL_EMIS_FAC = -9.0e+99_fp\n    !   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !ELSE\n    !   ! This sets a default value for GCM & ESMF COUPLING\n    !   SOIL_EMIS_FAC = 2.4e-2_fp*.5742e+0_fp ! for sunlight function\n    !ENDIF\n\n    !=================================================================\n    ! SOILEMIS begins here!\n    !=================================================================\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,          J,    SOIL_EMIS                              )&\n    !$OMP PRIVATE( DRYSOIL_HG, TAUZ, LIGHTFRAC, AREA_M2, SUNCOSVALUE        )&\n    !$OMP PRIVATE( IS_SNOWFREE_LAND, FRAC_SNOWFREE_LAND                     )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J=1, State_Grid%NY\n    DO I=1, State_Grid%NX\n\n       FRAC_SNOWFREE_LAND = MAX( State_Met%FRLAND(I,J) - &\n                                 State_Met%FRSNOW(I,J), 0e+0_fp )\n       IS_SNOWFREE_LAND   = ( FRAC_SNOWFREE_LAND > 0e+0_fp )\n\n       ! First, assume no soil emissions (e.g. for snow/water/ice)\n       EHg0_so(I,J) = 0e+0_fp\n\n       IF ( IS_SNOWFREE_LAND ) THEN\n\n          ! attenuate solar radiation based on function of leaf area index\n          ! Jacob and Wofsy 1990 equations 8 & 9\n          TAUZ = State_Met%MODISLAI(I,J) * 0.5e+0_fp\n\n          ! For very low and below-horizon solar zenith angles, use\n          ! same attenuation as for SZA=85 degrees\n          SUNCOSVALUE = MAX( State_Met%SUNCOS(I,J), 0.09e+0_fp )\n\n          ! fraction of light reaching the surface is\n          ! attenuated based on LAI\n          LIGHTFRAC = EXP( -TAUZ / SUNCOSVALUE )\n\n          ! Dry soil Hg concentration, ng Hg /g soil\n          DRYSOIL_HG = DRYSOIL_PREIND_HG * EHg0_dist(I,J)\n\n          ! Soil emissions, ng /m2 /h\n          SOIL_EMIS = EXP( 0.0011 * State_Met%SWGDN(I,J) * LIGHTFRAC ) * &\n                      DRYSOIL_HG * SOIL_EMIS_FAC\n\n          ! Grid box surface area [m2]\n          AREA_M2   = State_Grid%Area_M2(I,J)\n\n          ! convert soilnat from ng /m2 /h -> kg /gridbox /s\n          EHg0_so(I,J) = SOIL_EMIS * AREA_M2 * 1e-12_fp / &\n                         ( 60e+0_fp * 60e+0_fp )\n\n          ! Multiply by fractional land area\n          EHg0_so(I,J) = EHg0_so(I,J) * FRAC_SNOWFREE_LAND\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE SOILEMIS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: snowpack_mercury_flux\n!\n! !DESCRIPTION: Subroutine SNOWPACK\\_MERCURY\\_FLUX calculates emission of\n!  Hg(0) from snow and ice.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SNOWPACK_MERCURY_FLUX( FLUX, LHGSNOW, State_Chm, &\n                                    State_Grid, State_Met )\n!\n! !USES:\n!\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_EMIS\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)  :: LHGSNOW     ! Use Hg from snow?\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Hg0 flux [kg/s]\n    REAL(fp),       INTENT(OUT) :: FLUX(State_Grid%NX,State_Grid%NY)\n!\n! !REMARKS:\n!  Emissions are a linear function of Hg mass stored in the snowpack. The\n!  Hg lifetime in snow is assumed to be 180 d when T< 270K and 7 d when T>270K\n!\n!     E = k * SNOW_HG     : k = 6D-8 if T<270K, 1.6D-6 otherwise\n!\n!  These time constants reflect the time scales of emission observed in the\n!  Arctic and in field studies. Holmes et al 2010\n!\n!  Formulation from Holmes et al. 2010 is now obsolete. Instead, emissions\n!  from snow are tied to solar radiation, not temperature. Effective rate\n!  constant is in the mid-range of values estimated by Durnford and Dastoor\n!  (2011) and consistent with surface air Hg0 observations, as described in\n!  Fisher et al. (2011, in review).\n!\n! !REVISION HISTORY:\n!  15 Sep 2009 - C. Holmes, S. Carouge - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER       :: I, J, MONTH\n    REAL(fp)      :: DTSRCE, SNOW_HG_OC_NEW, K_EMIT, SWRAD\n    REAL(fp)      :: SNOW_HG_LN_NEW, FLUX_TMP\n\n    ! For solar flux dependent photo-reduction (jaf, 11/18/11)\n    ! This is in units of m2/W/s so that when multiplied by SWRAD we\n    ! end up with units of 1/s. This corresponds to k ~0.001 1/h\n    ! when SWRAD = 100 W/m2\n    REAL(fp), PARAMETER :: K_EMIT_0 = 2.5e-9_fp\n\n    ! Pointers\n    REAL(fp), POINTER :: SNOW_HG_OC(:,:)\n    REAL(fp), POINTER :: SNOW_HG_LN(:,:)\n\n    !=================================================================\n    ! SNOWPACK_MERCURY_FLUX begins here!\n    !=================================================================\n\n    ! Initialize\n    FLUX = 0e+0_fp\n\n    ! Return to calling program if snowpack model is disabled\n    IF ( .NOT. LHGSNOW ) RETURN\n\n    ! Point to fields in State_Chm\n    SNOW_HG_OC => State_Chm%SnowHgOcean\n    SNOW_HG_LN => State_Chm%SnowHgLand\n\n    ! Emission timestep [s]\n    DTSRCE = GET_TS_EMIS()\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,     J,              SNOW_HG_OC_NEW, K_EMIT            )& \n    !$OMP PRIVATE( SWRAD, SNOW_HG_LN_NEW, FLUX_TMP                          )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J  = 1, State_Grid%NY\n    DO I  = 1, State_Grid%NX\n\n       ! If the sun is set, then no emissions, go to next box\n       IF ( State_Met%SUNCOS(I,J) < 0e+0_fp ) CYCLE\n\n       ! Zero variables\n       K_EMIT = 0e+0_fp\n       SWRAD  = 0e+0_fp\n\n       ! Set solar radiation @ ground\n       SWRAD = State_Met%SWGDN(I,J)\n\n       ! Compute K_EMIT\n       K_EMIT = K_EMIT_0 * SWRAD\n\n       ! SWRAD can be very small at edge of sunlit zone, probably due to\n       ! averaging. This can make K_EMIT unrealistically small (e.g.:\n       ! 1d-13 * 1d-9 ~ 1d-22). In IF statement below, we only use & save\n       ! K_EMIT if it is >= K_EMIT_0 (jaf, 5/19/11)\n       IF ( K_EMIT >= K_EMIT_0 ) THEN\n\n          ! Zero temporary reservoir on each iteration\n          FLUX_TMP = 0D0\n\n          ! Check if there is Hg that could be emitted\n          IF ( SNOW_HG_OC(I,J) > 0e+0_fp ) THEN\n\n             ! New mass of snow in Hg\n             SNOW_HG_OC_NEW = SNOW_HG_OC(I,J) * EXP(-K_EMIT*DTSRCE)\n\n             FLUX_TMP = MAX(SNOW_HG_OC(I,J) - SNOW_HG_OC_NEW, 0e+0_fp)\n\n             SNOW_HG_OC(I,J) = SNOW_HG_OC_NEW\n\n          ENDIF !SNOW_HG_OC > 0\n             \n          ! Check if there is Hg in land snow that could be emitted\n          IF ( SNOW_HG_LN(I,J) > 0e+0_fp ) THEN\n\n             ! New mass of snow in Hg\n             SNOW_HG_LN_NEW = SNOW_HG_LN(I,J) * EXP(-K_EMIT*DTSRCE)\n\n             FLUX_TMP = FLUX_TMP + MAX(SNOW_HG_LN(I,J)-SNOW_HG_LN_NEW,0D0)\n\n             SNOW_HG_LN(I,J) = SNOW_HG_LN_NEW\n\n          ENDIF !SNOW_HG_LN > 0\n\n          ! Convert mass -> flux\n          FLUX(I,J) = FLUX_TMP / DTSRCE\n\n       ENDIF !K_EMIT >= K_EMIT_0\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    SNOW_HG_OC => NULL()\n    SNOW_HG_LN => NULL()\n\n  END SUBROUTINE SNOWPACK_MERCURY_FLUX\n!EOC\n!==============================================================================\n! Disable GTMM for now. This code needs to be brought-up-to-date so that\n! input data are in netCDF and read in via HEMCO (mps, 3/10/19)\n!!------------------------------------------------------------------------------\n!!                  GEOS-Chem Global Chemical Transport Model                  !\n!!------------------------------------------------------------------------------\n!!BOP\n!!\n!! !IROUTINE: gtmm_dr\n!!\n!! !DESCRIPTION: GTMM\\_DR is a driver to call GTMM from GEOS-Chem.\n!!\\\\\n!!\\\\\n!! !INTERFACE:\n!!\n!  SUBROUTINE GTMM_DR( Input_Opt, State_Grid, State_Met, State_Chm, Hg0gtm, RC )\n!!\n!! !USES:\n!!\n!    USE BPCH2_MOD\n!    USE DEPO_MERCURY_MOD,   ONLY : CHECK_DIMENSIONS\n!    USE DEPO_MERCURY_MOD,   ONLY : WD_Hg2, WD_HgP, DD_HgP, DD_Hg2\n!    USE DEPO_MERCURY_MOD,   ONLY : READ_GTMM_RESTART\n!    USE ErrCode_Mod\n!    USE FILE_MOD,           ONLY : IOERROR\n!    USE Input_Opt_Mod,      ONLY : OptInput\n!    USE inquireMod,         ONLY : findFreeLun\n!    USE State_Chm_Mod,      ONLY : ChmState\n!    USE State_Grid_Mod,     ONLY : GrdState\n!    USE State_Met_Mod,      ONLY : MetState\n!    USE TIME_MOD,           ONLY : EXPAND_DATE, YMD_EXTRACT\n!    USE TIME_MOD,           ONLY : GET_NYMD, GET_NHMS\n!!\n!! !INPUT PARAMETERS:\n!!\n!    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!!\n!! !INPUT/OUTPUT PARAMETERS:\n!!\n!    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!!\n!! !OUTPUT PARAMETERS:\n!!\n!    ! Emission of Hg0 calculated by GTMM for the month [kg/s]\n!    REAL(fp),       INTENT(OUT)   :: Hg0gtm(State_Grid%NX,State_Grid%NY)\n!\n!    ! Success or failure?\n!    INTEGER,        INTENT(OUT)   :: RC\n!!\n!! !REMARKS:\n!!  ##########################################################################\n!!  #####    NOTE: BINARY PUNCH INPUT IS BEING PHASED OUT.  THIS DATA    #####\n!!  #####    WILL EVENTUALLY BE READ IN FROM netCDF FILES VIA HEMCO!     #####\n!!  #####       -- Bob Yantosca (05 Mar 2015)                            #####\n!!  ##########################################################################\n!!\n!! !REVISION HISTORY:\n!!  15 Sep 2009 - C. Carouge  - Initial version\n!!  See https://github.com/geoschem/geos-chem for complete history\n!!EOP\n!!------------------------------------------------------------------------------\n!!BOC\n!!\n!! !LOCAL VARIABLES:\n!!\n!    INTEGER   :: YEAR    ! Current year\n!    INTEGER   :: MONTH   ! Current month\n!    INTEGER   :: DAY\n!    INTEGER   :: NYMD, NHMS\n!\n!    REAL(fp)  :: TSURF(State_Grid%NX, State_Grid%NY)    ! Ground temperature\n!    REAL(fp)  :: PRECIP(State_Grid%NX, State_Grid%NY)   ! Total precipitation\n!                                                        ! for the month\n!    REAL(fp)  :: SOLAR_W(State_Grid%NX, State_Grid%NY)  ! Solar radiation for\n!                                                        ! the month\n!\n!    REAL*4,   :: TRACER(State_Grid%NX, State_Grid%NY)   ! Temporary array\n!\n!    ! Monthly average deposition arrays\n!    REAL(fp)  :: Hg0mth_dry(State_Grid%NX, State_Grid%NY)\n!    REAL(fp)  :: Hg2mth_dry(State_Grid%NX, State_Grid%NY)\n!    REAL(fp)  :: Hg2mth_wet(State_Grid%NX, State_Grid%NY)\n!\n!    INTEGER               :: IOS, I, J, L, IU_FILE\n!\n!    CHARACTER(LEN=255)    :: FILENAME\n!\n!    ! For binary punch file, version 2.0\n!    INTEGER               :: NI,        NJ,      NL\n!    INTEGER               :: IFIRST,    JFIRST,  LFIRST\n!    INTEGER               :: HALFPOLAR, CENTER180\n!    INTEGER               :: NTRACER,   NSKIP\n!    REAL*4                :: LONRES,    LATRES\n!    REAL(fp)                :: ZTAU0,     ZTAU1\n!    CHARACTER(LEN=20)     :: MODELNAME\n!    CHARACTER(LEN=40)     :: CATEGORY\n!    CHARACTER(LEN=40)     :: UNIT\n!    CHARACTER(LEN=40)     :: RESERVED\n!\n!    !=================================================================\n!    ! GTMM_DR begins here!\n!    !=================================================================\n!\n!    ! Assume success\n!    RC         = GC_SUCCESS\n!\n!    ! Initialise arrays\n!    NYMD       = GET_NYMD()\n!    NHMS       = GET_NHMS()\n!\n!    TSURF      = 0e+0_fp\n!    PRECIP     = 0e+0_fp\n!    SOLAR_W    = 0e+0_fp\n!    Hg0gtm     = 0e+0_fp\n!\n!    ! Reset deposition arrays.\n!    Hg0mth_dry = 0e+0_fp\n!    Hg2mth_dry = 0e+0_fp\n!    Hg2mth_wet = 0e+0_fp\n!\n!    CALL YMD_EXTRACT( NYMD, YEAR, MONTH, DAY )\n!\n!    !=================================================================\n!    ! Read monthly meteorology fields\n!    !=================================================================\n!\n!    ! Find a free file LUN\n!    IU_FILE  = findFreeLun()\n!\n!    ! File name\n!    FILENAME = TRIM( Input_Opt%DATA_DIR ) // &\n!               TRIM( Input_Opt%RES_DIR  ) // 'mercury_201007/' // &\n!               'mean_metfields/' // GET_NAME_EXT() // &\n!               '/mean_YYYYMM.bpch'\n!\n!    ! Replace YYYY, MM, DD, HH tokens in FILENAME w/ actual values\n!    CALL EXPAND_DATE( FILENAME, NYMD, NHMS )\n!\n!    ! Echo some input to the screen\n!    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n!    WRITE( 6, 100   )\n!    WRITE( 6, 110   ) TRIM( FILENAME ), IU_FILE\n!100 FORMAT( 'G T M M  H g   M E T   F I L E   I N P U T' )\n!110 FORMAT( /, 'GTMM_DR: Reading ', a, ' on unit ', i6  )\n!\n!    ! Open the binary punch file for input\n!    CALL OPEN_BPCH2_FOR_READ( IU_FILE, FILENAME )\n!\n!    !-----------------------------------------------------------------\n!    ! Read concentrations -- store in the TRACER array\n!    !-----------------------------------------------------------------\n!    DO\n!       READ( IU_FILE, IOSTAT=IOS ) &\n!             MODELNAME, LONRES, LATRES, HALFPOLAR, CENTER180\n!\n!       ! IOS < 0 is end-of-file, so exit\n!       IF ( IOS < 0 ) EXIT\n!\n!       ! IOS > 0 is a real I/O error -- print error message\n!       IF ( IOS > 0 ) CALL IOERROR( IOS, IU_FILE, 'rd_gtmm_dr:1' )\n!\n!       READ( IU_FILE, IOSTAT=IOS ) &\n!             CATEGORY, NTRACER,  UNIT, ZTAU0,  ZTAU1,  RESERVED, &\n!             NI,       NJ,       NL,   IFIRST, JFIRST, LFIRST,  NSKIP\n!\n!       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'rd_gtmm_dr:2' )\n!\n!       READ( IU_FILE, IOSTAT=IOS ) &\n!           ( ( TRACER(I,J), I=1,NI ), J=1,NJ )\n!\n!       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'rd_gtmm_dr:3' )\n!\n!       !--------------------------------------------------------------\n!       ! Assign data from the TRACER array to the arrays.\n!       !--------------------------------------------------------------\n!\n!       ! Process dry deposition data\n!       IF ( CATEGORY(1:8) == 'GMAO-2D' ) THEN\n!\n!          ! Make sure array dimensions are of global size\n!          ! (NI=State_Grid%NX; NJ=State_Grid%NY, NL=1), or stop the run\n!          CALL CHECK_DIMENSIONS( NI, NJ, NL, State_Grid )\n!\n!          ! Save into arrays\n!          IF ( NTRACER == 54 .OR. NTRACER == 59 ) THEN\n!\n!             !----------\n!             ! Surface temperature\n!             !----------\n!\n!             ! Store surface temperature in TSURF array\n!             TSURF(:,:)   = TRACER(:,State_Grid%NY:1:-1)\n!\n!          ELSE IF ( NTRACER == 26 .OR. NTRACER == 29 ) THEN\n!\n!             !----------\n!             ! Total precipitation\n!             !----------\n!\n!             ! Store precipitation in PRECIP array\n!             PRECIP(:,:)   = TRACER(:,State_Grid%NY:1:-1)\n!\n!          ELSE IF ( NTRACER == 37 .OR. NTRACER == 51 ) THEN\n!\n!             !----------\n!             ! Solar radiation\n!             !----------\n!\n!             ! Store solar radiation in SOLAR_W array\n!             SOLAR_W(:,:) = TRACER(:,State_Grid%NY:1:-1)\n!\n!          ENDIF\n!       ENDIF\n!\n!    ENDDO\n!\n!    ! Close file\n!    CLOSE( IU_FILE )\n!\n!    !=================================================================\n!    ! Read GTMM restart file to get data from previous month\n!    !=================================================================\n!    CALL READ_GTMM_RESTART( Input_Opt,  State_Chm, State_Grid, &\n!                            NYMD,       NHMS,                  &\n!                            Hg0mth_dry, Hg2mth_dry, Hg2mth_wet, RC  )\n!\n!    !=================================================================\n!    ! Call GTMM model\n!    !=================================================================\n!#if defined( GTMM_Hg )\n!    CALL GTMM_coupled( YEAR,    &\n!                       MONTH,   &\n!                       Hg0mth_dry(:,State_Grid%NY:1:-1), &\n!                       Hg2mth_dry(:,State_Grid%NY:1:-1), &\n!                       Hg2mth_wet(:,State_Grid%NY:1:-1), &\n!                       TSURF,   &\n!                       PRECIP,  &\n!                       SOLAR_W, &\n!                       Hg0gtm(:,State_Grid%NY:1:-1) )\n!#endif\n!\n!    DO J = 1, State_Grid%NY\n!    DO I = 1, State_Grid%NX\n!       IF ( .NOT. State_Met%IsLand(I,J) ) Hg0gtm(I,J) = 0e+0_fp\n!    ENDDO\n!    ENDDO\n!\n!  END SUBROUTINE GTMM_DR\n!!EOC\n!==============================================================================\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_land_mercury\n!\n! !DESCRIPTION: Subroutine INIT\\_LAND\\_MERCURY allocates and zeroes all\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_LAND_MERCURY( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  14 Sep 2009 - C. Carouge  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! INIT_MERCURY begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE INIT_LAND_MERCURY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_land_mercury\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_LAND\\_MERCURY deallocates all module\n!  arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_LAND_MERCURY\n!\n! !REVISION HISTORY:\n!  14 Sep 2009 - C. Carouge  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  END SUBROUTINE CLEANUP_LAND_MERCURY\n!EOC\nEND MODULE LAND_MERCURY_MOD\n"
  },
  {
    "path": "GeosCore/linear_chem_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: linear_chem_mod.F90\n!\n! !DESCRIPTION: Module LINEAR\\_CHEM\\_MOD contains variables and routines for\n!  performing a simple linearized chemistry scheme.\n!\n!  The simple linearized chemistry here will be applied above the chemistry\n!  grid using archived 3D monthly climatological production rates and loss\n!  frequencies from the GMI combo model.\n!\n!  The prod rates and loss frequencies are read via HEMCO. They are\n!  stored in a data structure of flexible length (PLVEC). The file containing\n!  the prod rates and loss frequencies need to be specified in the HEMCO\n!  configuration file for each species of interest. They are then automatically\n!  read and remapped onto the simulation grid.\n!\n!  The field names assigned to the production and loss fields are expected to\n!  be 'GMI\\_PROD\\_XXX' and 'GMI\\_LOSS\\_XXX', respectively, where XXX is the\n!  species name. Production rates must be given in units of v/v/s, and loss\n!  frequencies in s-1.\n!\n!  The module variable PLMUSTFIND (set below) determines the behavior if no\n!  production rates and/or loss frequencies can be found for any of the GMI\n!  species defined in this module. IF PLMUSTFIND is set to TRUE, the code stops\n!  with an error if no entry is found. Otherwise, steady-state values are used\n!  for all species with no explicitly given values.\n!\n!  The (monthly) OH concentrations are also obtained through HEMCO. The field\n!  name must be 'GMI\\_OH', and values must be in v/v.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Linear_Chem_Mod\n!\n! !USES:\n!\n! for precisions\n  USE HCO_Error_Mod\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_Linear_Chem\n  PUBLIC  :: Do_Linear_Chem\n  PUBLIC  :: Cleanup_Linear_Chem\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Set_BryPointers\n  PRIVATE :: Set_PLVEC\n  PRIVATE :: Do_Synoz\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC  :: Minit_Is_Set   ! NOTE: Also need to remove in GCHP/GEOS-5\n!\n! !REVISION HISTORY:\n!  01 Feb 2011 - L. Murray   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  ! BrPointers is a derived type to hold pointers to the Bry day\n  ! and night data\n  TYPE :: BrPointers\n     REAL(f4), POINTER  :: MR(:,:,:) => NULL()\n  END TYPE BrPointers\n\n  ! Vectors holding the mixing ratios (MR) of day/night Bry data.\n  ! The mixing ratios will be read and interpolated by HEMCO. The\n  ! corresponding HEMCO fields must be specified in the HEMCO\n  ! configuration file. The field names are assumed to be\n  ! 'GEOSCCM_XY_DAY' and 'GEOSCCM_XY_NIGHT', respectively, where\n  ! XY is the Bry species name. It is also assumed that the input\n  ! data is in ppt.\n  !\n  ! NOTE: Need to dynamically allocate these to avoid having to\n  ! declare these with the SAVE attribute (bmy, 10/3/16)\n  TYPE(BrPointers), PUBLIC, POINTER :: BrPtrDay(:)\n  TYPE(BrPointers), PUBLIC, POINTER :: BrPtrNight(:)\n\n  ! PL_Pointers is a derived type to hold pointers to the production\n  ! and loss fields\n  TYPE :: PL_Pointers\n     REAL(f4), POINTER  :: PROD(:,:,:) => NULL() ! Production rate [v/v/s]\n     REAL(f4), POINTER  :: LOSS(:,:,:) => NULL() ! Loss frequency [s-1]\n  END TYPE PL_Pointers\n\n  ! Monthly mean OH [v/v]\n  REAL(f4), PUBLIC, POINTER     :: GMI_OH(:,:,:) => NULL()\n\n  ! Vector holding the prod/loss arrays of all active chem species\n  TYPE(PL_Pointers), PUBLIC, POINTER :: PLVEC(:) => NULL()\n\n  ! Toggle to specify whether or not production/loss rates must be provided\n  ! for every species. If set to TRUE, the code will return with\n  ! an error if the production/loss rate cannot be found (through HEMCO) for\n  ! any of the species. If set to .FALSE., only a warning is prompted and a\n  ! value of 0.0 is used for every field that cannotbe found.\n  LOGICAL, PARAMETER   :: PLMUSTFIND = .FALSE.\n\n  ! Number of species from GMI\n  INTEGER              :: NTR\n\n  ! Minit_Is_Set indicates whether Minit has been set or not\n  LOGICAL              :: Minit_Is_Set = .FALSE.\n!\n! !PRIVATE TYPES:\n!\n  ! Scalars\n  REAL(fp)              :: dTchem          ! chemistry time step [s]\n  INTEGER, PUBLIC       :: NSCHEM          ! Number of species upon which to\n                                           ! apply P's & k's in GEOS-Chem\n  ! Arrays\n  CHARACTER(LEN=16), ALLOCATABLE :: TrName(:)    !Tracer names in GMI\n  INTEGER, PUBLIC, ALLOCATABLE   :: TrID_GC (:)  !Maps 1:NSCHEM to SC%Species\n  INTEGER,         ALLOCATABLE   :: TrID(:)      !Maps 1:NSCHEM to GMI index\n\n  ! Species index of Bry species in GEOS-Chem species DB(may differ from br_nos)\n  INTEGER, PUBLIC       :: GC_Bry_TrID(6)\n\n  ! Species ID flags\n  INTEGER               :: id_Br2,   id_Br,     id_BrNO3\n  INTEGER               :: id_BrO,   id_CHBr3,  id_CH2Br2\n  INTEGER               :: id_CH3Br, id_HOBr,   id_HBr\n  INTEGER               :: id_O3,    id_O3Strat\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Linear_Chem\n!\n! !DESCRIPTION: Function DO\\_LINEAR\\_CHEM is the driver routine for computing\n! the simple linearized chemistry above the chemistry grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_LINEAR_CHEM( Input_Opt, State_Chm,  State_Grid, &\n                            State_Met, errCode )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE LINOZ_MOD,          ONLY : DO_LINOZ\n    USE PhysConstants,      ONLY : XNUMOLAIR, AIRMW, AVO\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : TIMESTAMP_STRING\n    USE Timers_Mod,         ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: errCode     ! Success or failure\n!\n! !REVISION HISTORY:\n!  01 Feb 2011 - L. Murray   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd quantities\n    LOGICAL, SAVE      :: FIRST      = .TRUE.\n    INTEGER, SAVE      :: LASTMONTH  = -99\n\n    ! Flags for simulation types\n    LOGICAL            :: IT_IS_A_FULLCHEM_SIM\n    LOGICAL            :: IT_IS_A_TAGO3_SIM\n\n    ! Scalars\n    INTEGER            :: previous_units\n    INTEGER            :: I,     J,       L,   N,   NN\n    REAL(fp)           :: dt,    P,       k,   M0,  RC\n    REAL(fp)           :: TK,    RDLOSS,  T1L, mOH, BryTmp\n    REAL(fp)           :: BOXVL, Num,     Den, M\n    REAL(fp)           :: MW_g\n    LOGICAL            :: LLINOZ\n    LOGICAL            :: LSYNOZ\n    LOGICAL            :: LCYCLE\n    LOGICAL            :: ISBR2\n#if defined( MODEL_GEOS ) || defined( MODEL_CESM ) || defined( MODEL_BCC )\n    LOGICAL            :: SKIP\n#endif\n\n    ! Strings\n    CHARACTER(LEN=16)  :: STAMP\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n    REAL(fp),      POINTER  :: AD (:,:,:)\n    REAL(fp),      POINTER  :: T  (:,:,:)\n\n    !=======================================================================\n    ! DO_LINEAR_CHEM begins here!\n    !=======================================================================\n\n    ! Initialize\n    errCode = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Do_Linear_Chem (in module GeosCore/linear_chem_mod.F90)'\n\n    ! Initialize further\n    LLINOZ               = Input_Opt%LLINOZ\n    LSYNOZ               = Input_Opt%LSYNOZ\n    IT_IS_A_FULLCHEM_SIM = Input_Opt%ITS_A_FULLCHEM_SIM\n    IT_IS_A_TAGO3_SIM    = Input_Opt%ITS_A_TAGO3_SIM\n    Spc                  => NULL()\n    AD                   => NULL()\n    T                    => NULL()\n\n#if defined( MODEL_GEOS ) || defined( MODEL_CESM ) || defined( MODEL_BCC )\n    ! Skip meso chem if chemistry is over entire vertical domain\n    SKIP = .FALSE.\n    IF ( State_Grid%MaxChemLev == State_Grid%NZ ) THEN\n       SKIP = .TRUE.\n       IF ( FIRST .AND. Input_Opt%amIRoot ) THEN\n          WRITE( 6, * ) 'Fullchem up to top of atm - skip linearized mesospheric chemistry'\n       ENDIF\n    ENDIF\n    IF ( .NOT. SKIP ) THEN\n#endif\n\n    STAMP = TIMESTAMP_STRING()\n    IF ( Input_Opt%verbose ) THEN\n       WRITE( 6, 10 ) STAMP\n    ENDIF\n10  FORMAT( '     - DO_LINEAR_CHEM: Linearized chemistry at ', a )\n\n#if !defined( MODEL_CESM )\n    !=======================================================================\n    ! On first call, establish pointers to data fields read by HEMCO. These\n    ! are the stratospheric Bry fields as well as the production/loss rates.\n    ! (ckeller, 12/30/2014)\n    !\n    ! If we are doing a tagO3 simulation, then we can skip this section,\n    ! since tagO3 only uses Linoz or Synoz, but doesn't read in any P/L\n    ! fields from disk. (bmy, 7/11/16)\n    !=======================================================================\n    IF ( FIRST ) THEN\n       IF ( .not. IT_IS_A_TAGO3_SIM ) THEN\n\n          ! BrPtrDay and BrPtrNight have to be allocated dynamically\n          ! because they are pointers (bmy, 10/3/16)\n          ALLOCATE( BrPtrDay  ( 6 ), STAT=errCode )\n          ALLOCATE( BrPtrNight( 6 ), STAT=errCode )\n\n          ! Get pointers to Bry fields via HEMCO\n          CALL Set_BryPointers ( Input_Opt, State_Chm, State_Met, errCode )\n\n          ! Trap potential errors\n          IF ( errCode /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Set_BryPointers\"!'\n             CALL GC_Error( ErrMsg, errCode, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Get pointers to prod/loss fields via HEMCO\n          CALL Set_PLVEC( Input_Opt, State_Chm, State_Met, errCode )\n\n          ! Trap potential errors\n          IF ( errCode /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Set_PlVec\"!'\n             CALL GC_Error( ErrMsg, errCode, ThisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n    ENDIF\n#endif\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### LINEAR_CHEM: at DO_LINEAR_CHEM' )\n    ENDIF\n\n    IF ( IT_IS_A_FULLCHEM_SIM ) THEN\n\n       !=======================================================================\n       ! FULL CHEMISTRY SIMULATIONS\n       !\n       ! %%% NOTE: For now, the algorithm assumes that the advected species\n       ! %%% are listed first.\n       !=======================================================================\n\n       ! Initialize pointers\n       Spc         => State_Chm%Species\n       AD          => State_Met%AD\n       T           => State_Met%T\n\n       !--------------------------------------------------------------------\n       ! Do chemical production and loss for non-ozone species for\n       ! which we have explicit prod/loss rates from GMI\n       !--------------------------------------------------------------------\n\n       ! Timestep [s], can be pulled outside of parallel loop\n       dt = DTCHEM\n\n       !$OMP PARALLEL DO                                                     &\n       !$OMP DEFAULT( SHARED )                                               &\n       !$OMP PRIVATE( I, J, L, N, NN, k, P, M0, MW_g, Num, Den )\n       DO J=1,State_Grid%NY\n          DO I=1,State_Grid%NX\n\n             ! NOTE: For compatibility w/ the GEOS-5 GCM, we can no longer\n             ! assume a minimum tropopause level.  Loop from 1,State_Grid%NZ\n             ! instead. (bmy, 7/18/12)\n             DO L = 1, State_Grid%NZ\n\n                ! For safety's sake, zero variables at each (I,J,L) box\n                Den     = 0.0_fp\n                k       = 0.0_fp\n                M0      = 0.0_fp\n                Mw_g    = 0.0_fp\n                Num     = 0.0_fp\n                P       = 0.0_fp\n\n                ! Only consider boxes above the chemistry grid\n                IF ( State_Met%InChemGrid(I,J,L) ) CYCLE\n\n                !-----------------------------------------------------------\n                ! Loop over the # of active chem species\n                !-----------------------------------------------------------\n                DO N = 1, NSCHEM\n\n                   ! Species ID (use this for State_Chm%Species)\n                   NN = TrID_GC(N)\n\n                   ! Skip O3; we'll always use either Linoz or Synoz\n                   ! Use UCX/GMI O3 P/L if both LINOZ and SYNOZ are deactivated.\n                   ! This is for test use in assimilation mode (ckeller, 3/7/16)\n                   IF ( IT_IS_A_FULLCHEM_SIM .and. NN .eq. id_O3 .AND. &\n#if defined( MODEL_GEOS )\n                        .NOT. Input_Opt%LGMIOZ ) CYCLE\n#else\n                        ( LLINOZ .OR. LSYNOZ ) ) CYCLE\n#endif\n\n                   ! Molecular weight for the species [g]\n                   MW_g = State_Chm%SpcData(NN)%Info%MW_g\n\n                   !--------------------------------------------------------\n                   ! Loss freq [s-1]\n                   !--------------------------------------------------------\n                   IF ( .NOT. ASSOCIATED(PLVEC(N)%LOSS) ) THEN\n\n                      ! If the PLVEC(N)%LOSS pointer is null, then the\n                      ! species doesn't have a loss rate.  Set k to 0.\n                      k = 0.0_fp\n\n                   ELSE\n\n                      ! Loss rates (archived from GMI) are in s-1\n                      k = PLVEC(N)%LOSS(I,J,L)\n\n                   ENDIF\n\n                   !--------------------------------------------------------\n                   ! Prod term [kg/s]\n                   !--------------------------------------------------------\n                   IF ( .NOT. ASSOCIATED(PLVEC(N)%PROD) ) THEN\n\n                      ! If the PLVEC(N)%PROD pointer is null, then the\n                      ! species doesn't have a production rate.  Set P to 0.\n                      P = 0.0_fp\n\n                   ELSE\n\n                      ! Prod rates (archived from GMI) are in v/v/s\n                      ! Convert to kg/s here\n                      P = PLVEC(N)%PROD(I,J,L)                            &\n                        * AD(I,J,L) / ( AIRMW / MW_g )\n\n                   ENDIF\n\n                   !--------------------------------------------------------\n                   ! Apply prod and loss\n                   !--------------------------------------------------------\n\n                   ! Initial mass [kg]\n                   M0 = Spc(NN)%Conc(I,J,L)\n\n                   ! No prod or loss at all\n                   ! NOTE: Bad form to test for equality on zero!\n                   ! Replace this later (bmy, 4/9/18)\n                   IF ( k .eq. 0e+0_fp .and. P .eq. 0e+0_fp ) CYCLE\n\n                   ! Simple analytic solution to dM/dt = P - kM over [0,t]\n                   IF ( k .gt. 0e+0_fp ) then\n                      Spc(NN)%Conc(I,J,L) = M0 * EXP(-k*dt) + &\n                                      (P/k)*(1e+0_fp-EXP(-k*dt))\n                   ELSE\n                      Spc(NN)%Conc(I,J,L) = M0 + P*dt\n                   ENDIF\n\n                ENDDO ! N\n             ENDDO    ! L\n          ENDDO       ! I\n       ENDDO          ! J\n       !$OMP END PARALLEL DO\n\n       !--------------------------------------------------------------------\n       ! Ozone\n       !--------------------------------------------------------------------\n\n       IF ( LLINOZ .OR. LSYNOZ ) THEN\n\n          ! Put ozone in [v/v] for Linoz or Synoz\n          Spc(id_O3)%Conc(:,:,:) = Spc(id_O3)%Conc(:,:,:) * ( AIRMW  &\n                             / State_Chm%SpcData(id_O3)%Info%MW_g ) / AD\n\n          ! Do Linoz or Synoz\n          IF ( LLINOZ ) THEN\n             CALL Do_Linoz( Input_Opt, State_Chm, State_Grid, &\n                            State_Met, RC=errCode )\n          ELSE\n             CALL Do_Synoz( Input_Opt, State_Chm, State_Grid, &\n                            State_Met, RC=errCode )\n          ENDIF\n\n          ! Put ozone back to [kg]\n          Spc(id_O3)%Conc(:,:,:) = Spc(id_O3)%Conc(:,:,:) * AD / ( AIRMW  &\n                             / State_Chm%SpcData(id_O3)%Info%MW_g )\n\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Reactions with OH\n       ! Currently:\n       !   (1) CHBr3\n       !   (2) CH2Br2\n       !   (3) CH3Br\n       !--------------------------------------------------------------------\n\n       !$OMP PARALLEL DO &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, M, TK, RC, RDLOSS, T1L, mOH, BOXVL )\n       DO J=1,State_Grid%NY\n          DO I=1,State_Grid%NX\n\n             ! NOTE: For compatibility w/ the GEOS-5 GCM, we can no longer\n             ! assume a minimum tropopause level.  Loop from 1,State_Grid%NZ\n             ! instead. (bmy, 7/18/12)\n             DO L = 1, State_Grid%NZ\n\n                IF ( State_Met%InChemGrid(I,J,L) ) CYCLE\n\n                ! Grid box volume [cm3]\n                BOXVL = State_Met%AIRVOL(I,J,L) * 1e+6_fp\n\n                ! Density of air at grid box (I,J,L) in [molec cm-3]\n                M = AD(I,J,L) / BOXVL * XNUMOLAIR\n\n                ! OH number density [molec cm-3]\n                mOH = M * GMI_OH(I,J,L)\n\n                ! Temperature at grid box (I,J,L) in K\n                TK = T(I,J,L)\n\n                !============!\n                ! CH3Br + OH !\n                !============!\n                IF ( id_CH3Br .gt. 0 ) THEN\n                   RC = 2.35e-12_fp * EXP ( - 1300.e+0_fp / TK )\n                   RDLOSS = MIN( RC * mOH * DTCHEM, 1e+0_fp )\n                   T1L    = Spc(id_CH3Br)%Conc(I,J,L) * RDLOSS\n                   Spc(id_CH3Br)%Conc(I,J,L) = Spc(id_CH3Br)%Conc(I,J,L) - T1L\n                ENDIF\n\n                !============!\n                ! CHBr3 + OH !\n                !============!\n                IF ( id_CHBr3 .gt. 0 ) THEN\n                   RC = 1.35e-12_fp * EXP ( - 600.e+0_fp / TK )\n                   RDLOSS = MIN( RC * mOH * DTCHEM, 1e+0_fp )\n                   T1L    = Spc(id_CHBr3)%Conc(I,J,L) * RDLOSS\n                   Spc(id_CHBr3)%Conc(I,J,L) = Spc(id_CHBr3)%Conc(I,J,L) - T1L\n                ENDIF\n\n                !=============!\n                ! CH2Br2 + OH !\n                !=============!\n                IF ( id_CH2Br2 .gt. 0 ) THEN\n                   RC = 2.00e-12_fp * EXP ( -  840.e+0_fp / TK )\n                   RDLOSS = MIN( RC * mOH * DTCHEM, 1e+0_fp )\n                   T1L    = Spc(id_CH2Br2)%Conc(I,J,L) * RDLOSS\n                   Spc(id_CH2Br2)%Conc(I,J,L) = &\n                                              Spc(id_CH2Br2)%Conc(I,J,L) - T1L\n                ENDIF\n\n             ENDDO ! J\n          ENDDO ! I\n       ENDDO ! L\n       !$OMP END PARALLEL DO\n\n       !--------------------------------------------------------------------\n       ! Prescribe Br_y concentrations\n       !--------------------------------------------------------------------\n\n       !$OMP PARALLEL DO                                           &\n       !$OMP DEFAULT( SHARED                                     ) &\n       !$OMP PRIVATE( NN, ISBR2, L, J, I, LCYCLE, BryTmp )\n       DO NN = 1,6\n\n          IF ( GC_Bry_TrID(NN) > 0 ) THEN\n\n             ! Is this Br2?\n             ISBR2  = ( Gc_Bry_TrId(NN) == id_Br2 )\n\n             ! NOTE: For compatibility w/ the GEOS-5 GCM, we can no longer\n             ! assume a minimum tropopause level.  Loop from 1,State_Grid%NZ\n             ! instead. (bmy, 7/18/12)\n             DO L = 1, State_Grid%NZ\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n\n                LCYCLE = State_Met%InChemGrid(I,J,L)\n                IF ( LCYCLE ) CYCLE\n\n                ! Now get Br data through HEMCO pointers (ckeller, 12/30/14).\n                IF ( State_Met%SUNCOS(I,J) > 0.e+0_fp ) THEN\n                   ! daytime [ppt] -> [kg]\n                   BryTmp = BrPtrDay(NN)%MR(I,J,L)   &\n                          * 1.e-12_fp                & ! convert from [ppt]\n                          * AD(I,J,L)                &\n                          / ( AIRMW                  &\n                          / State_Chm%SpcData(GC_Bry_TrID(NN))%Info%MW_g )\n\n                ELSE\n                   ! nighttime [ppt] -> [kg]\n                   BryTmp = BrPtrNight(NN)%MR(I,J,L) &\n                          * 1.e-12_fp                & ! convert from [ppt]\n                          * AD(I,J,L)                &\n                          /  ( AIRMW                 &\n                          / State_Chm%SpcData(GC_Bry_TrID(NN))%Info%MW_g )\n                ENDIF\n\n                ! Special adjustment for G-C Br2,\n                ! which is BrCl above the strat (ckeller, 1/2/15)\n                IF ( ISBR2 ) BryTmp = BryTmp / 2.0_fp\n\n                ! Pass to Spc array\n                Spc(GC_Bry_TrID(NN))%Conc(I,J,L) = BryTmp\n\n             ENDDO\n             ENDDO\n             ENDDO\n\n          ENDIF\n\n       ENDDO ! NN\n       !$OMP END PARALLEL DO\n\n       ! Free pointers\n       Spc => NULL()\n       AD  => NULL()\n       T   => NULL()\n\n    ELSE IF ( IT_IS_A_TAGO3_SIM ) THEN\n\n       !======================================================================\n       ! TAGGED O3 SIMULATION\n       !\n       ! Tagged O3 only makes use of Linoz. We apply it to\n       ! the total O3 species and the stratospheric O3 species.\n       !======================================================================\n       IF ( LLINOZ .OR. LSYNOZ ) THEN\n\n          ! Halt linear chem timer (so that unit conv can be timed separately)\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Linearized chem\", errCode )\n          ENDIF\n\n          ! Convert units to [v/v dry air] aka [mol/mol dry] \n          ! for Linoz and Synoz (ewl, 10/05/15)\n          CALL Convert_Spc_Units(                                            &\n               Input_Opt      = Input_Opt,                                   &\n               State_Chm      = State_Chm,                                   &\n               State_Grid     = State_Grid,                                  &\n               State_Met      = State_Met,                                   &\n               mapping        = State_Chm%Map_Advect,                        &\n               new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,             &\n               previous_units = previous_units,                              &\n               RC             = errCode                                     )\n\n          ! Trap potential errors\n          IF ( errCode /= GC_SUCCESS ) THEN\n             ErrMsg = 'Unit conversion error (forward) in \"Convert_Spc_Units\"!'\n             CALL GC_Error( ErrMsg, errCode, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Start linear chem timer again\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Linearized chem\", errCode )\n          ENDIF\n\n          ! Do LINOZ or SYNOZ\n          IF ( LLINOZ ) THEN\n             CALL Do_Linoz( Input_Opt, State_Chm, State_Grid, &\n                            State_Met, errCode )\n          ELSE\n             CALL Do_Synoz( Input_Opt, State_Chm, State_Grid, &\n                            State_Met, errCode )\n          ENDIF\n\n          ! Halt linear chem timer (so that unit conv can be timed separately)\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"=> Linearized chem\", errCode )\n          ENDIF\n\n          ! Convert species units back to original unit\n          CALL Convert_Spc_Units(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               State_Met  = State_Met,                                       &\n               mapping    = State_Chm%Map_Advect,                            &\n               new_units  = previous_units,                                  &\n               RC         = errCode                                         )\n\n          ! Trap potential errors\n          IF ( errCode /= GC_SUCCESS ) THEN\n             ErrMsg = 'Unit conversion error (backward) in \"Convert_Spc_Units\"!'\n             CALL GC_Error( ErrMsg, errCode, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Start linear chem timer again\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"=> Linearized chem\", errCode )\n          ENDIF\n\n       ENDIF\n\n    ELSE\n\n       !======================================================================\n       ! OTHER SIMULATIONS\n       !\n       ! The code will need to be modified for other tagged simulations\n       ! (e.g., CO). Simulations like CH4, CO2 with standard species names\n       ! should probably just work as is with the full chemistry code above,\n       ! but would need to be tested.\n       !======================================================================\n\n       ! Free pointers\n       Spc => NULL()\n       AD  => NULL()\n       T   => NULL()\n\n       ! Exit with error if linearized chemistry is not activated\n       ErrMsg = 'Linearized chemistry needs to be activated for this '      // &\n                'simulation type. Please see GeosCore/linear_chem_mod.F90 ' // &\n                'or disable linear_chemistry_aloft in geoschem_config.yml'\n       CALL GC_Error( ErrMsg, errCode, ThisLoc )\n       RETURN\n\n    ENDIF\n\n#if defined( MODEL_GEOS ) || defined( MODEL_CESM ) || defined( MODEL_BCC )\n    ! End of SKIP loop\n    ENDIF ! SKIP\n#endif\n\n    ! Set first-time flag to false\n    FIRST = .FALSE.\n\n    ! Free pointer\n    Spc => NULL()\n    AD  => NULL()\n    T   => NULL()\n\n  END SUBROUTINE Do_Linear_Chem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_BryPointers\n!\n! !DESCRIPTION: Subroutine SET\\_BryPointers gets the Bry stratospheric data\n! read by HEMCO. The pointers only need to be established once. Target data\n! is automatically updated through HEMCO.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_BryPointers( Input_Opt, State_Chm, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EMISLIST_MOD,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorological State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  30 Dec 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    CHARACTER(LEN=16)   :: ThisName\n    CHARACTER(LEN=255)  :: PREFIX, FIELDNAME, ThisLoc\n    CHARACTER(LEN=1024) :: ErrMsg\n    INTEGER             :: N\n\n    !=================================================================\n    ! Set_BryPointers begins here\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Set_BryPointers (in module GeosCore/linear_chem_mod.F90)'\n\n    ! Do for every Bry species\n    DO N = 1, 6\n\n       ! Skip if species is not defined\n       IF ( GC_Bry_TrID(N) <= 0 ) CYCLE\n\n       ! Get Bry name\n       ThisName = State_Chm%SpcData(GC_Bry_TrID(N))%Info%Name\n\n       ! Construct field name using Bry name\n       PREFIX = 'GEOSCCM_'//TRIM(ThisName)\n\n       ! Get pointer to this field. These are the mixing ratios (pptv).\n\n       ! Day\n       FIELDNAME = TRIM(PREFIX) // '_DAY'\n       CALL HCO_GetPtr( HcoState, FIELDNAME, BrPtrDay(N)%MR, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get pointer from HEMCO! Stratospheric Bry data '//&\n                   'is expected to be listed in the HEMCO configuration '  //&\n                  'file. This error occured when trying to get field '     //&\n                  TRIM( FieldName )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Night\n       FIELDNAME = TRIM(PREFIX) // '_NIGHT'\n       CALL HCO_GetPtr( HcoState, FIELDNAME, BrPtrNight(N)%MR, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get pointer from HEMCO! Stratospheric Bry data '//&\n                   'is expected to be listed in the HEMCO configuration '  //&\n                   'file. This error occured when trying to get field '    //&\n                   TRIM( FieldName )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO !N\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Set_BryPointers\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Plvec\n!\n! !DESCRIPTION: Subroutine SET\\_PLVEC gets the production and loss terms of\n! all chem species from HEMCO. The pointers only need to be established\n! once. Target data is automatically updated through HEMCO.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_PLVEC( Input_Opt, State_Chm, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EMISLIST_MOD,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorological State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    INTEGER,        INTENT(INOUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  16 Jan 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    CHARACTER(LEN=16)   :: ThisName\n    CHARACTER(LEN=255)  :: FIELDNAME\n    INTEGER             :: N, TRCID\n    LOGICAL             :: FND\n    INTEGER             :: I, J, L\n\n    ! Strings\n    CHARACTER(LEN=63)   :: OrigUnit\n    CHARACTER(LEN=255)  :: ThisLoc\n    CHARACTER(LEN=1024) :: ErrMsg\n\n    !=================================================================\n    ! Set_PLVEC begins here\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Set_PLVEC (in module GeosCore/linear_chem_mod.F90)'\n\n    ! Do for every species\n    DO N = 1,NSCHEM\n\n       ! Get GEOS-Chem species index\n       TRCID = TrID_GC(N)\n\n       ! Skip if species is not defined\n       IF ( TRCID <= 0 ) CYCLE\n\n       ! Get species name\n       ThisName = State_Chm%SpcData(TRCID)%Info%Name\n\n       ! ---------------------------------------------------------------\n       ! Get pointers to fields\n       ! ---------------------------------------------------------------\n\n       ! Production rates [v/v/s]\n       FIELDNAME = 'GMI_PROD_'//TRIM(ThisName)\n\n       ! Get pointer from HEMCO\n       CALL HCO_GetPtr( HcoState, FIELDNAME, PLVEC(N)%PROD, RC, FOUND=FND )\n\n       ! Trap potential errors\n       IF ( RC /= HCO_SUCCESS .OR. ( PLMUSTFIND .AND. .NOT. FND) ) THEN\n          ErrMsg = 'Cannot get pointer from HEMCO! Prod/loss ' // &\n                   'data is expected to be listed in the HEMCO '          // &\n                   'configuration file. This error occured when trying '  // &\n                   'to get field ' // TRIM( FIELDNAME )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Warning message\n       IF ( .NOT. FND .AND. Input_Opt%amIRoot ) THEN\n          ErrMsg = 'Cannot find archived production rates for '       // &\n                    TRIM(ThisName) // ' - will use value of 0.0. '        // &\n                   'To use archived rates, add the following field '      // &\n                   'to the HEMCO configuration file: '// TRIM( FIELDNAME )\n          CALL GC_Warning( ErrMsg, RC, ThisLoc )\n       ENDIF\n\n       ! Loss frequency [s-1]\n       FIELDNAME = 'GMI_LOSS_'//TRIM(ThisName)\n\n       ! Get pointer from HEMCO\n       CALL HCO_GetPtr( HcoState, FIELDNAME, PLVEC(N)%LOSS, RC, FOUND=FND )\n\n       ! Trap potential errors\n       IF ( RC /= HCO_SUCCESS .OR. ( PLMUSTFIND .AND. .NOT. FND) ) THEN\n          ErrMsg = 'Cannot get pointer from HEMCO! Prod/loss ' // &\n                   'data is expected to be listed in the HEMCO '          // &\n                   'configuration file. This error occured when trying '  // &\n                   'to get field ' // TRIM( FIELDNAME )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Warning message\n       IF ( .NOT. FND .AND. Input_Opt%amIRoot ) THEN\n          ErrMsg= 'Cannot find archived loss frequencies for '            // &\n                  TRIM(ThisName) // ' - will use value of 0.0. '          // &\n                  'To use archived rates, add the following field '       // &\n                  'to the HEMCO configuration file: '//TRIM(FIELDNAME)\n          CALL GC_Warning( ErrMsg, RC, ThisLoc )\n       ENDIF\n\n    ENDDO !N\n\n    ! Get pointer to GMI_OH\n    CALL HCO_GetPtr( HcoState, 'GMI_OH', GMI_OH,  RC, FOUND=FND )\n\n    ! Trap potential errors\n    IF ( RC /= HCO_SUCCESS .OR. .NOT. FND ) THEN\n       ErrMsg = 'Cannot find monthly archived OH field '           // &\n                '`GMI_OH`. Please add a corresponding entry to '   // &\n                'the HEMCO configuration file.'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Set_PLVEC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Linear_Chem\n!\n! !DESCRIPTION: Subroutine INIT\\_LINEAR\\_CHEM allocates all module arrays.\n!  It also opens the necessary rate files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_LINEAR_CHEM( Input_Opt, State_Chm, State_Met, &\n                               State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  01 Feb 2011 - L. Murray   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=16)      :: sname\n    CHARACTER(LEN=255)     :: ErrMsg, ThisLoc\n\n    ! Scalars\n    INTEGER                :: AS, N, NN, NA, nAdvect\n    LOGICAL                :: IT_IS_A_FULLCHEM_SIM\n    LOGICAL                :: IT_IS_A_TAGO3_SIM\n    LOGICAL                :: LLINOZ\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !================================================================\n    ! Initialize\n    !=================================================================\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> Init_Linear_Chem (in Headers/linear_chem_mod.F90)'\n\n    !=================================================================\n    ! Get species ID flags\n    !=================================================================\n    id_Br                    = Ind_('Br'     )\n    id_Br2                   = Ind_('Br2'    )\n    id_BrNO3                 = Ind_('BrNO3'  )\n    id_BrO                   = Ind_('BrO'    )\n    id_CHBr3                 = Ind_('CHBr3'  )\n    id_CH2Br2                = Ind_('CH2Br2' )\n    id_CH3Br                 = Ind_('CH3Br'  )\n    id_HOBr                  = Ind_('HOBr'   )\n    id_HBr                   = Ind_('HBr'    )\n    id_O3                    = Ind_('O3'     )\n    id_O3Strat               = Ind_('O3Strat')\n\n\n    ! Save fields from the Input_Opt object to local variables\n    LLINOZ                   = Input_Opt%LLINOZ\n    IT_IS_A_FULLCHEM_SIM     = Input_Opt%ITS_A_FULLCHEM_SIM\n    IT_IS_A_TAGO3_SIM        = Input_Opt%ITS_A_TAGO3_SIM\n\n    ! Number of advected species\n    nAdvect                  = State_Chm%nAdvect\n\n    ! Initialize counters, initial times, mapping arrays\n    NSCHEM                   = 0\n\n    ! Initialize timestep for chemistry [s]\n    dTchem = GET_TS_CHEM()\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! Allocate and initialize arrays for mapping GMI species\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    ! Number of GMI species\n    NTR = 125\n\n    ALLOCATE( TrName(NTR), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'TrName' )\n    TrName(:) = ''\n\n    ALLOCATE( TrID_GC (NTR), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'TrID_GC' )\n    TrID_GC(:) = 0\n\n    ALLOCATE( TrID(NTR), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'TrID' )\n    TrID(:) = 0\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! Determine the mapping for GMI to GC variables based on\n    ! species name, which only needs to be done once per model run.\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    ! List of available species with archived monthly climatological\n    ! production rates, loss frequencies, and mixing ratios\n    !\n    ! Rewrote the TrName array constructor so that all of the species\n    ! names have the same length.  This will prevent Gfortran from choking\n    ! with an error.  This is OK since we trim TrName before using\n    ! it in any string comparisons. (bmy, 9/20/16)\n\n    ! Species in GMI Combo model\n    TrName = (/ 'A3O2    ', 'ACET    ', 'ACTA    ', 'ALD2    ',   &\n                'ALK4    ', 'ATO2    ', 'B3O2    ', 'Br      ',   &\n                'BrCl    ', 'BrO     ', 'BrONO2  ', 'C2H6    ',   &\n                'C3H8    ', 'CCl4    ', 'CF2Br2  ', 'CF2Cl2  ',   &\n                'CF2ClBr ', 'CF3Br   ', 'CFC113  ', 'CFC114  ',   &\n                'CFC115  ', 'CFCl3   ', 'CH2O    ', 'CH3Br   ',   &\n                'CH3CCl3 ', 'CH3Cl   ', 'CH4     ', 'CO      ',   &\n                'Cl      ', 'Cl2     ', 'Cl2O2   ', 'ClO     ',   &\n                'ClONO2  ', 'EOH     ', 'ETO2    ', 'ETP     ',   &\n                'GCO3    ', 'GLYC    ', 'GLYX    ', 'GP      ',   &\n                'GPAN    ', 'H       ', 'H2      ', 'H2402   ',   &\n                'H2O     ', 'H2O2    ', 'HAC     ', 'HBr     ',   &\n                'HCFC141b', 'HCFC142b', 'HCFC22  ', 'HCOOH   ',   &\n                'HCl     ', 'HNO2    ', 'HNO3    ', 'HNO4    ',   &\n                'HO2     ', 'HOBr    ', 'HOCl    ', 'IALD    ',   &\n                'IAO2    ', 'IAP     ', 'INO2    ', 'INPN    ',   &\n                'ISN1    ', 'ISNP    ', 'ISOP    ', 'KO2     ',   &\n                'MACR    ', 'MAN2    ', 'MAO3    ', 'MAOP    ',   &\n                'MAP     ', 'MCO3    ', 'MEK     ', 'MGLY    ',   &\n                'MO2     ', 'MOH     ', 'MP      ', 'MRO2    ',   &\n                'MRP     ', 'MVK     ', 'MVN2    ', 'N       ',   &\n                'N2O     ', 'N2O5    ', 'NO      ', 'NO2     ',   &\n                'NO3     ', 'NOx     ', 'O       ', 'O1D     ',   &\n                'O3      ', 'OClO    ', 'OH      ', 'Ox      ',   &\n                'PAN     ', 'PMN     ', 'PO2     ', 'PP      ',   &\n                'PPN     ', 'PRN1    ', 'PRPE    ', 'PRPN    ',   &\n                'R4N1    ', 'R4N2    ', 'R4O2    ', 'R4P     ',   &\n                'RA3P    ', 'RB3P    ', 'RCHO    ', 'RCO3    ',   &\n                'RCOOH   ', 'RIO1    ', 'RIO2    ', 'RIP     ',   &\n                'ROH     ', 'RP      ', 'VRO2    ', 'VRP     ',   &\n                'RIPA    ', 'RIPB    ', 'RIPD    ', 'NPMN    ',   &\n                'IPMN    ' /)\n\n    !===========================!\n    ! Full chemistry simulation !\n    !===========================!\n    IF ( IT_IS_A_FULLCHEM_SIM ) THEN\n\n       DO NN = 1, NTR\n\n          sname = TRIM(TrName(NN))\n\n          ! Loop over only the advected species\n          DO NA = 1, nAdvect\n\n             ! Get the species ID from the advected species ID\n             N       = State_Chm%Map_Advect(NA)\n\n             ! Get the corresponding entry in the species database\n             SpcInfo => State_Chm%SpcData(N)%Info\n\n             ! For now, guarantee that GMI prod/loss rates are not used for\n             ! any bromine species\n             IF ( TRIM( SpcInfo%Name ) .eq.      'Br' .or. &\n                  TRIM( SpcInfo%Name ) .eq.    'BrCl' .or. &\n                  TRIM( SpcInfo%Name ) .eq.     'BrO' .or. &\n                  TRIM( SpcInfo%Name ) .eq.  'BrONO2' .or. &\n                  TRIM( SpcInfo%Name ) .eq.  'CF2Br2' .or. &\n                  TRIM( SpcInfo%Name ) .eq. 'CF2ClBr' .or. &\n                  TRIM( SpcInfo%Name ) .eq.   'CF3Br' .or. &\n                  TRIM( SpcInfo%Name ) .eq.   'CH3Br' .or. &\n                  TRIM( SpcInfo%Name ) .eq.     'HBr' .or. &\n                  TRIM( SpcInfo%Name ) .eq.    'HOBr'        ) CYCLE\n\n             ! SDE 08/28/13: Full strat. has its own mesospheric NOy handling\n             IF ( TRIM( SpcInfo%Name ) .eq.    'NO' .or. &\n                  TRIM( SpcInfo%Name ) .eq.   'NO2' .or. &\n                  TRIM( SpcInfo%Name ) .eq.   'NO3' .or. &\n                  TRIM( SpcInfo%Name ) .eq.   'NOx' .or. &\n                  TRIM( SpcInfo%Name ) .eq.     'N' .or. &\n                  TRIM( SpcInfo%Name ) .eq.   'N2O' ) CYCLE\n\n             IF ( TRIM( SpcInfo%Name ) .eq. TRIM(sname) ) THEN\n\n                IF ( LLINOZ .and. TRIM( SpcInfo%Name ) .eq. 'O3' ) THEN\n                   IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n                      WRITE( 6, '(a)' ) TRIM( SpcInfo%Name ) // ' (via Linoz)'\n                   ENDIF\n                ELSE IF ( Input_Opt%LSYNOZ .AND. TRIM( SpcInfo%Name ) .eq. 'O3' ) THEN\n                   IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n                      WRITE( 6, '(a)' ) TRIM( SpcInfo%Name ) // ' (via Synoz)'\n                   ENDIF\n                ELSE\n                   IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n                      WRITE( 6, '(a)' ) TRIM( SpcInfo%Name )//' (via GMI rates)'\n                   ENDIF\n                ENDIF\n\n                NSCHEM           = NSCHEM + 1\n                TrID_GC (NSCHEM) = N  ! Maps 1:NSCHEM to species array\n                TrID    (NSCHEM) = NN ! Maps 1:NSCHEM to TrName index\n             ENDIF\n\n             ! Free pointer\n             SpcInfo => NULL()\n          ENDDO\n       ENDDO\n\n       ! These are the reactions with which we will use OH fields\n       ! to determine loss.\n       IF( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n          IF ( id_CHBr3  .gt. 0 ) WRITE(6,*) 'CHBr3 (from GMI OH)'\n          IF ( id_CH2Br2 .gt. 0 ) WRITE(6,*) 'CH2Br2 (from GMI OH)'\n          IF ( id_CH3Br  .gt. 0 ) WRITE(6,*) 'CH3Br (from GMI OH)'\n       ENDIF\n\n    !===========!\n    ! Tagged O3 !\n    !===========!\n    ELSE IF ( IT_IS_A_TAGO3_SIM ) THEN\n       IF ( LLINOZ ) THEN\n          IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n             WRITE(6,*) 'Linoz ozone performed on: '\n          ENDIF\n       ELSE\n          IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n             WRITE(6,*) 'Synoz ozone performed on: '\n          ENDIF\n       ENDIF\n\n       ! Loop over only the advected species\n       DO NA = 1, nAdvect\n\n          ! Get the species ID from the advected species ID\n          N       = State_Chm%Map_Advect(NA)\n\n          ! Get the corresponding entry in the species database\n          SpcInfo => State_Chm%SpcData(N)%Info\n\n          IF ( TRIM( SpcInfo%Name ) .eq. 'O3'        .or. &\n               TRIM( SpcInfo%Name ) .eq. 'O3Strt'    .or. &\n               TRIM( SpcInfo%Name ) .eq. 'O3Strat' ) THEN\n             NSCHEM           = NSCHEM + 1    ! Increment count\n             TrID_GC(NSCHEM)  = N             ! Use for Sc%Species\n             IF ( Input_Opt%amIRoot ) THEN\n                WRITE(6,*) TRIM( SpcInfo%Name )\n             ENDIF\n          ENDIF\n\n          ! Free pointer\n          SpcInfo => NULL()\n       ENDDO\n    ENDIF\n\n    ! Allocate and initialize prod/loss vector\n    ALLOCATE( PLVEC( NSCHEM ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'PLVEC' )\n\n    ! Allocate and initialize bromine arrays\n    GC_Bry_TrID(1:6) = (/id_Br2,id_Br,id_BrO,id_HOBr,id_HBr,id_BrNO3/)\n\n  END SUBROUTINE INIT_LINEAR_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Linear_Chem\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_LINEAR\\_CHEM deallocates all module\n!  arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_LINEAR_CHEM\n!\n! !USES:\n!\n    IMPLICIT NONE\n!\n! !REVISION HISTORY:\n!  01 Feb 2011 - L. Murray   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    INTEGER :: I\n\n    ! Deallocate arrays\n    IF ( ALLOCATED( TrName   ) ) DEALLOCATE( TrName   )\n    IF ( ALLOCATED( TrID_GC  ) ) DEALLOCATE( TrID_GC  )\n    IF ( ALLOCATED( TrID     ) ) DEALLOCATE( TrID     )\n\n    ! Cleanup BrPtrDay array of pointers\n    IF ( ASSOCIATED( BrPtrDay ) ) THEN\n       DO I = 1, 6\n          BrPtrDay(I)%MR => NULL()\n       ENDDO\n       DEALLOCATE( BrPtrDay )\n    ENDIF\n\n    ! Cleanup BrPtrNight array of pointers\n    IF ( ASSOCIATED( BrPtrNight ) ) THEN\n       DO I = 1, 6\n          BrPtrNight(I)%MR => NULL()\n       ENDDO\n       DEALLOCATE( BrPtrNight )\n    ENDIF\n\n    ! Cleanup PLVEC array of pointers\n    IF ( ASSOCIATED( PLVEC ) ) THEN\n       DO I = 1, NSCHEM\n          PLVEC(I)%PROD => NULL()\n          PLVEC(I)%LOSS => NULL()\n       ENDDO\n       DEALLOCATE( PLVEC )\n    ENDIF\n\n    ! Cleanup pointer to OH field\n    GMI_OH => NULL()\n\n  END SUBROUTINE CLEANUP_LINEAR_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Synoz\n!\n! !DESCRIPTION: Subroutine Do\\_Synoz establishes the flux boundary condition\n!  for Ozone coming down from the stratosphere, using the Synoz algorithm of\n!  McLinden et al, 2000.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Synoz( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM, GET_YEAR\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Reference:\n!  ============================================================================\n!  C. A. McLinden, S. Olsen, B. Hannegan, O. Wild, M. J. Prather, and\n!  J. Sundet, \"Stratospheric Ozone in 3-D models: A simple chemistry\n!  and the cross-tropopause flux\".\n!                                                                             .\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!  %%%% NOTE: This SYNOZ scheme is now obsolete, replaced by LINOZ   %%%%\n!  %%%% We keep this for backwards compatibility w/ older met fields %%%%\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!\n! !REVISION HISTORY:\n!  13 Dec 1999 - Q. Li, R. Martin - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE        :: FIRST = .TRUE.\n    INTEGER              :: I, J, L, L70mb, N, NA, nAdvect\n    REAL(fp)             :: P1, P2, P3, T1, T2, DZ, ZUP\n    REAL(fp)             :: DTCHEM, H70mb, PO3, PO3_vmr\n    REAL(fp)             :: STFLUX(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Lower pressure bound for O3 release (unit: mb)\n    ! REAL(fp),  PARAMETER   :: P70mb = 70e+0_fp !PHS\n    REAL(fp)             :: P70mb, PTP\n\n    !=================================================================\n    ! Do_Synoz begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Chemical timestep [s]\n    ! Originally, Synoz was in transport code, and used dynamic dT.\n    DTCHEM = GET_TS_CHEM()\n\n    ! For O3 flux printout\n    STFLUX = 0e+0_fp\n\n    ! lower pressure !PHS\n    P70mb = 70e+0_fp\n\n    ! Point to chemical species array [v/v dry]\n    Spc => State_Chm%Species\n\n    !=================================================================\n    ! Compute the proper release rate of O3 coming down from the\n    ! stratosphere for the different GEOS model grids.\n    ! (bey, djj, rvm, bmy, 12/5/00).\n    !\n    ! PO3_vmr is the O3 release rate constant [v/v/s] that will yield\n    ! a strat-to-trop flux of 475 [Tg O3/yr].  Different TPCORE flags\n    ! create different amounts of ozone in the stratosphere.  Flags\n    ! 337F are currently preferred (bey, djj, rvm).\n    !\n    ! For now, provide values for PO3_vmr for two TPCORE flag settings:\n    !  (1) IORD = 3, JORD = 3, KORD = 7  (preferred, assumed to\n    !                                     be the default)\n    !  (2) IORD = 5, JORD = 5, KORD = 7\n    !=================================================================\n#if defined( GISS ) && defined( MODELE )\n\n    ! For Model E, assuming 3,3,7 and 475 Tg N a-1\n    PO3_vmr = 4.84610e-14 !/ 2e+0_fp\n\n    ! Scale as necessary for PreIndustrial and Paleo Climates\n    ! These values determined by Linoz simulations run for each climate\n    if ( GET_YEAR() .ge. 2102 .and. GET_YEAR() .le. 2105 ) then\n       ! PIH was 3% higher\n       PO3_vmr = PO3_vmr * 1.0273853e+0_fp\n    endif\n    if ( GET_YEAR() .ge. 2202 .and. GET_YEAR() .le. 2205 ) then\n       ! LGM Webb STE was 7% higher\n       PO3_vmr = PO3_vmr * 1.0723525e+0_fp\n    endif\n    if ( GET_YEAR() .ge. 2302 .and. GET_YEAR() .le. 2305 ) then\n       ! LGM CLIMAP STE was 3% higher\n       PO3_vmr = PO3_vmr * 1.0285232e+0_fp\n    endif\n\n#else\n\n    PO3_vmr = 5.14e-14_fp\n\n#endif\n\n    ! Only initialize on first time step\n    IF ( FIRST ) STFLUX = 0e+0_fp\n\n    ! Loop over latitude and longitude\n    !$OMP PARALLEL DO                               &\n    !$OMP DEFAULT( SHARED )                         &\n    !$OMP PRIVATE( I,  J,  L,  P2,  L70mb, P1, P3 ) &\n    !$OMP PRIVATE( T2, T1, DZ, ZUP, H70mb, PO3    )\n    DO J = 1, State_Grid%NY\n\n       ! Skip grid boxes outside of O3 release region (30S -> 30N)\n       IF ( State_Grid%GlobalYMid(1,J) < -30.0_fp .or. &\n            State_Grid%GlobalYMid(1,J) <  30.0_fp ) THEN\n          CYCLE\n       ENDIF\n\n       DO I = 1, State_Grid%NX\n\n          DO L = 1, State_Grid%NZ\n\n             ! P2 = pressure [hPa] at the sigma center of level L70mb\n             P2 = State_Met%PMID(I,J,L)\n\n             ! L70mb is the 1st layer where pressure is equal to\n             ! or smaller than 70 mb\n             IF ( P2 < P70mb ) THEN\n                L70mb = L\n                EXIT\n             ENDIF\n          ENDDO\n\n          ! P1 = pressure [hPa] at the sigma center of level L70mb - 1\n          P1 = State_Met%PMID(I,J,L70mb-1)\n\n          ! P3 = pressure [hPa] at the lower sigma edge of level L70mb\n          P3 = State_Met%PEDGE(I,J,L70mb)\n\n          !==============================================================\n          ! T2 = temperature (K)  at the sigma center of level L70mb\n          ! T1 = temperature (K)  at the sigma center of level L70mb-1\n          !\n          ! DZ is the height from the sigma center of level L70mb-1\n          ! to 70mb.  Therefore, DZ may be found in either the\n          ! (L70mb)th sigma layer or the (L70mb-1)th sigma layer.\n          !\n          ! ZUP is the height from the sigma center of the\n          ! (L70mb-1)th layer\n          !==============================================================\n\n          ! Use virtual temperature for hypsometric equation (ewl, 3/3/15)\n          T2   = State_Met%TV(I,J,L70mb  )\n          T1   = State_Met%TV(I,J,L70mb-1)\n\n          DZ   = Rdg0 * ( (T1 + T2) / 2e+0_fp ) * LOG( P1 / P70mb )\n          ZUP  = Rdg0 * T1 * LOG( P1 /P3 )\n\n          !==============================================================\n          ! H70mb is height between 70mb and the upper edge of the\n          ! level where DZ is.\n          !\n          ! If DZ >= ZUP then DZ is already in level L70mb.\n          ! If DZ <  ZUP then DZ is in level L70mb-1.\n          !==============================================================\n          IF ( DZ >= ZUP ) THEN\n             H70mb = State_Met%BXHEIGHT(I,J,L70mb) - ( DZ - ZUP )\n          ELSE\n             L70mb = L70mb - 1\n             H70mb = ZUP - DZ\n          ENDIF\n\n          !===========================================================\n          ! Distribute O3 into the region (30S-30N, 70mb-10mb)\n          !===========================================================\n          DO L = L70mb, State_Grid%NZ\n\n             ! Convert O3 in grid box (I,J,L) from v/v/s to v/v/box\n             PO3 = PO3_vmr * DTCHEM\n\n             ! For both 2 x 2.5 and 4 x 5 GEOS grids, 30S and 30 N are\n             ! grid box centers.  However, the O3 release region is\n             ! edged by 30S and 30N.  Therefore, if we are at the 30S\n             ! or 30N grid boxes, divide the O3 flux by 2.\n             IF ( State_Grid%GlobalYMid(1,J) == -30.0_fp .or. &\n                  State_Grid%GlobalYMid(1,J) ==  30.0_fp ) THEN\n                PO3 = PO3 / 2e+0_fp\n             ENDIF\n\n             ! If we are in the lower level, compute the fraction\n             ! of this level that lies above 70 mb, and scale\n             ! the O3 flux accordingly.\n             IF ( L == L70mb ) THEN\n                PO3 = PO3 * H70mb / State_Met%BXHEIGHT(I,J,L)\n             ENDIF\n\n             ! Store O3 flux in the proper species number\n             Spc(id_O3)%Conc(I,J,L) = Spc(id_O3)%Conc(I,J,L) + PO3\n\n             ! Store O3 flux for strat O3 species (Tagged O3 only)\n             IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n                Spc(id_O3Strat)%Conc(I,J,L) = Spc(id_O3Strat)%Conc(I,J,L) + PO3\n             ENDIF\n\n             ! Archive stratospheric O3 for printout in [Tg/yr]\n             IF ( FIRST ) THEN\n                STFLUX(I,J,L) = STFLUX(I,J,L) + &\n                 PO3 * State_Met%AD(I,J,L) * 1000.e+0_fp / 28.8e+0_fp / &\n                 DTCHEM * 48.e+0_fp * 365.25e+0_fp * 86400e+0_fp / 1e12\n             ENDIF\n          ENDDO\n       ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n    !=================================================================\n    ! Print amount of stratospheric O3 coming down\n    !=================================================================\n    IF ( FIRST ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( 6, 20 ) SUM( STFLUX )\n       ENDIF\n20     FORMAT( '     - Do_Synoz: Strat O3 production is', f9.3, ' [Tg/yr]' )\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE Do_Synoz\n!EOC\nEND MODULE Linear_Chem_Mod\n"
  },
  {
    "path": "GeosCore/linoz_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: linoz_mod.F90\n!\n! !DESCRIPTION: Module LINOZ\\_MOD contains routines to perform the Linoz\n!  stratospheric ozone chemistry.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE LINOZ_MOD\n!\n! !USES:\n!\n  USE ERROR_MOD, ONLY : DEBUG_MSG  ! Routine for debug output\n  USE PRECISION_MOD                ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: DO_LINOZ\n  PUBLIC  :: LINOZ_READ\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: LINOZ_CHEM3\n  PRIVATE :: LINOZ_STRATL\n  PRIVATE :: LINOZ_STRT2M\n  PRIVATE :: LINOZ_SOMLFQ\n  PRIVATE :: LINOZ_INTPL\n!\n! !REMARKS:\n!  LINOZ Climatology:\n!  ============================================================================\n!  The LINOZ stratospheric chemistry tables for ozone consist of:\n!                                                                             .\n!  7 tables, each a function of:\n!    12 months,\n!    18 latitudes (-85 to 85 in 10 deg. increments)\n!    25 altitudes ( z*=10-58 km in 2 km increments)\n!                                                                             .\n!  The 7 data fields are:\n!    1- ozone (Logan climatology), v/v\n!    2- Temperature climatology, K\n!    3- Column ozone climatology, Logan ozone integrated above box, DU\n!    4- ozone (P-L) for climatological ozone, v/v/s\n!    5- d(P-L) / dO3, 1/s\n!    6- d(P-L) / dT, v/v/s/K\n!    7- d(P-L) / d(column O3), v/v/s/DU\n!                                                                             .\n!  Implementation notes:\n!  ============================================================================\n!  Dylan Jones (dbj@atmosp.physics.utoronto.ca) wrote:\n!                                                                             .\n!    Testing this code [in v8-02-04] was more difficult that I thought.\n!    I began by trying to compare the output of v8-02-04 with our previous \n!    runs with v8-02-01.  I accounted for the changes in the transport_mod.F90 \n!    and I tried to undo the changes in when the diagnostics are archived in \n!    v8-02-04, but I was still getting large differences between v8-02-04 \n!    and v8-02-01. I finally gave up on this since I may have made a mistake\n!    in reverting to the old way of doing the diagnostics in v8-02-04.  In \n!    the end I took the new linoz code from v8-02-04 and used it in v8-02-01. \n!    I ran two GEOS-5 full chemistry simulations for 2007 and the output \n!    were consistent over the full year.\n!                                                                             .\n!    I think that it is safe to release [Linoz in v8-02-04].  However, we \n!    should acknowledge that it was [only] tested in v8-02-01, since I was \n!    not able to assess the quality of the output in v8-02-04.\n!                                                                             .\n!  Bob Yantosca (yantosca@seas.harvard.edu) wrote:\n!                                                                             .\n!     We have also modified the code for use within the GEOS-5 GCM.  We now\n!     declare the TPARM array as part of the Input_Opt object.  The LINOZ\n!     climatology ASCII file is now read on the root CPU and MPI-broadcasted\n!     to the non-root CPUs.  Also, the INIT_LINOZ routine is now called\n!     not on the first chemistry timestep but rather in the initialization\n!     phase at the start of the run. (bmy, 3/18/13)\n\n! REVISION HISTORY:\n!  23 Mar 2000 - P. Cameron-Smith    - Initial version adapted heavily\n!                                      from McLinden's original file.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_linoz\n!\n! !DESCRIPTION: Subroutine DO\\_LINOZ is the main driver for the Linoz\n!  stratospheric Ozone chemistry package.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_LINOZ( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_MONTH\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    INTEGER, SAVE :: LASTMONTH = -99\n\n    ! Non-SAVEd sclars\n    INTEGER       :: MONTH\n    REAL(fp)        :: NSCHEM\n\n    !=================================================================\n    ! DO_LINOZ begins here!\n    !=================================================================\n\n    ! Assume success\n    RC    = GC_SUCCESS\n\n    ! Current month\n    MONTH = GET_MONTH()\n\n    ! if new month, get new parameters?\n    IF ( MONTH /= LASTMONTH ) THEN\n       CALL LINOZ_STRATL( Input_Opt, State_Chm, State_Grid, RC )\n       LASTMONTH =  MONTH\n    ENDIF\n\n    ! Linoz needs time step in seconds\n    NSCHEM = GET_TS_CHEM()\n\n    ! Call the Linoz chemistry\n    CALL LINOZ_CHEM3( NSCHEM, Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n  END SUBROUTINE DO_LINOZ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: linoz_chem3\n!\n! !DESCRIPTION: Subroutine LINOZ\\_CHEM3 applies linearized chemistry based on\n!  tables from PRATMO model using climatological T, O3, time of year\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LINOZ_CHEM3( DTCHEM, Input_Opt, State_Chm, State_Grid, &\n                          State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants,      ONLY : AIRMW, AVO\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(IN)    :: DTCHEM      ! Time step [seconds]\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER  :: IM,      JM,         LM,   nAdvect\n    INTEGER  :: I,       J,          L,    N,         NA\n    INTEGER  :: K,       M,          LBOT, L_OVERWRLD\n    INTEGER  :: NTRACER, NUM_TRACER, LPOS, ITRC\n    REAL(fp) :: CLIMO3,  CLIMPML,    DCO3, DERO3,     DERTMP\n    REAL(fp) :: DERCO3,  DMASS,      DTMP, SSO3\n\n    ! Arrays\n    REAL(fp) :: DCOLO3  (State_Grid%NX,State_Grid%NY,State_Grid%NZ )\n    REAL(fp) :: COLO3   (State_Grid%NX,State_Grid%NY,State_Grid%NZ )\n    REAL(fp) :: OUT_DATA(State_Grid%NX,State_Grid%NY,State_Grid%NZ )\n\n    ! We need to define local arrays to hold corresponding values\n    ! from the Chemistry State (State_Chm) object. (mpayer, 12/6/12)\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Define local arrays to hold the previously global TLSTT array\n    ! from the State_Chm object. (hplin, 1/22/19)\n    REAL(fp), POINTER :: TLSTT (:,:,:,:)   ! IM, JM, LM, Input_Opt%LINOZ_NFIELDS\n\n    ! SAVED scalars\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    INTEGER, SAVE :: id_O3\n\n    !=================================================================\n    ! LINOZ_CHEM3 begins here!\n    !=================================================================\n\n    ! Assume success\n    RC         = GC_SUCCESS\n\n    ! Dimensions\n    IM         = State_Grid%NX\n    JM         = State_Grid%NY\n    LM         = State_Grid%NZ\n    nAdvect    = State_Chm%nAdvect\n    L_OVERWRLD = 0\n\n    ! Point to chemical species array [v/v dry air]\n    Spc        => State_Chm%Species\n\n    ! Point to the TLSTT array\n    TLSTT      => State_Chm%TLSTT\n\n    ! Look up the species ID of O3 only on the first call\n    IF ( FIRST ) THEN\n       id_O3   = Ind_('O3')\n       FIRST   = .FALSE.\n    ENDIF\n\n    ! For the tagged O3 simulation only, get the highest\n    ! level of the chemistry grid in the column at (I,J)\n    IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n       L_OVERWRLD = MAXVAL( State_Met%ChemGridLev )\n    ENDIF\n\n    !=================================================================\n    ! Select the proper tracer number to store O3 into, depending on\n    ! whether this is a full chemistry run or a tagged O3 run.\n    ! If tagged O3, tracer 2 should be the stratospheric tracer.  (dbj)\n    !=================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       NUM_TRACER = 1\n    ELSE\n       IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n          IF ( nAdvect > 1 ) THEN\n             NUM_TRACER = 2\n          ELSE\n             NUM_TRACER = 1\n          ENDIF\n       ELSE\n          ! All other simulations don't use O3...print error message\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( 6, '(a)' ) 'This simulation does not use O3!!'\n             WRITE( 6, '(a)' ) 'STOP in linoz_chem3!'\n          ENDIF\n          STOP\n       ENDIF\n    ENDIF\n\n    ! Echo info\n    IF ( Input_Opt%verbose ) THEN\n       WRITE( 6, 100 )\n100    FORMAT( '     - LINOZ_CHEM3: Doing LINOZ' )\n    ENDIF\n\n    !=================================================================\n    ! Perform stratospheric chemistry\n    !=================================================================\n\n    ! **** note dbj: check Spc(NTRACER)%Conc(I,J,20:State_Grid%NZ) = with trop level\n    ! ****         : check DMASS\n    DO ITRC = 1, NUM_TRACER\n\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n          NTRACER = id_O3\n       ELSE\n          NTRACER = ITRC\n       ENDIF\n\n       ! Start at top layer and continue to lowest layer for strat. chem\n       OUT_DATA = 0e+0_fp\n\n       !IF ( preDebug ) THEN\n       !   PRINT*, '### NUM_TRACER: ', NUM_TRACER\n       !   PRINT*, '### ITRC: ', ITRC, 'JM: ', JM , 'IM', IM\n       !   CALL FLUSH(6)\n       !END IF\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I,       J,     LBOT,   LPOS,   L      ) &\n       !$OMP PRIVATE( CLIMPML, DERO3, CLIMO3, DERCO3, DCO3   ) &\n       !$OMP PRIVATE( DERTMP,  DTMP,  SSO3,   DMASS )\n       DO J = 1, JM\n       DO I = 1, IM\n\n          !IF ( Input_Opt%Verbose ) THEN\n          !   PRINT*, '### I: ', I, 'J: ', J\n          !   CALL FLUSH(6)\n          !END IF\n\n          LBOT = State_Met%ChemGridLev(I,J) + 1\n          LPOS = 1\n          DO WHILE (State_Met%PEDGE(I,J,LPOS+1) .GE. 0.3e+0_f8)\n             LPOS = LPOS +1\n          ENDDO\n          LPOS = LPOS-1\n\n          !IF ( Input_Opt%Verbose ) CALL DEBUG_MSG('DONE GET_PEDGE')\n\n#if defined( ESMF_ ) || defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING )\n          !-----------------------------------------------------------\n          !       %%%%%%% GEOS-Chem HP (with ESMF & MPI) %%%%%%%\n          !\n          ! When we are connecting to the GEOS-5 GCM, we don't define\n          ! L_OVERWRLD.  We cannot know the maximum extent of the\n          ! tropopause in the GCM; we instead have to diagnose it at\n          ! every timestep by comparing the pressure at a grid box to\n          ! the tropopause pressure.  (bmy, 3/18/13)\n          !-----------------------------------------------------------\n#else\n          !-----------------------------------------------------------\n          !       %%%%%%% GEOS-Chem CLASSIC (with OpenMP) %%%%%%%\n          !-----------------------------------------------------------\n\n          ! dbj: for now, set tagged stratospheric tracer to total\n          ! O3 in the overworld to avoid issues with spin ups\n          IF ( Input_Opt%ITS_A_TAGO3_SIM ) THEN\n             Spc(NTRACER)%Conc(I,J,(L_OVERWRLD+1):State_Grid%NZ) = &\n                  Spc(1)%Conc(I,J,(L_OVERWRLD+1):State_Grid%NZ)\n          ENDIF\n#endif\n          !IF ( Input_Opt%Verbose ) CALL DEBUG_MSG( '### LINOZ_CHEM3: at LM, LBOT')\n          !IF ( Input_Opt%Verbose ) CALL DEBUG_MSG('DONE TAGO3')\n\n          ! Loop over levels\n          DO L = LM, LBOT, -1\n\n             !IF ( Input_Opt%Verbose ) THEN\n             !   PRINT*, '### Spc: ', Spc(NTRACER)%Conc(I,J,L)\n             !   CALL FLUSH(6)\n             !ENDIF\n\n             ! Skip if tracer is negative\n             ! SDE 2016-04-06: Changed from LE to LT\n             IF ( Spc(NTRACER)%Conc(I,J,L) .LT. 0.e+0_fp ) CYCLE\n\n             ! calculate ozone column above box (and save)\n             ! dcolo3 = ozone column (in DU) in given layer\n             ! colo3 =  ozone column above layer + half of\n             ! column in layer\n\n             ! bdf Spc is in v/v, make conversion to DU\n             if (l.eq.lm) then !top model layer\n                dcolo3(i,j,l) = (Spc(NTRACER)%Conc(i,j,l) *       &\n                      State_Met%AD(I,J,L) / ( AIRMW               &\n                      / State_Chm%SpcData(NTRACER)%Info%MW_g ))   &\n                      / ( State_Grid%Area_M2(I,J) * 1e+4_fp )     &\n                      * AVO / (AIRMW / ( AIRMW                    &\n                      / State_Chm%SpcData(NTRACER)%Info%MW_g )    &\n                      *1e-3_fp) / 2.687e+16_fp\n                colo3(i,j,l) = dcolo3(i,j,l)*0.5\n             else\n                dcolo3(i,j,l) = (Spc(NTRACER)%Conc(i,j,l) *       &\n                      State_Met%AD(I,J,L) / ( AIRMW               &\n                      / State_Chm%SpcData(NTRACER)%Info%MW_g ))   &\n                      / ( State_Grid%Area_M2(I,J) * 1e+4_fp )     &\n                      * AVO / (AIRMW / ( AIRMW                    &\n                      / State_Chm%SpcData(NTRACER)%Info%MW_g )    &\n                      *1e-3_fp) / 2.687e+16_fp\n                colo3(i,j,l) = colo3(i,j,l+1) +                   &\n                     (dcolo3(i,j,l)+dcolo3(i,j,l+1))*0.5\n             endif\n             out_data(i,j,l) = colo3(i,j,l)\n\n             ! ++++++ climatological P-L:   ++++++\n             climpml=tlstt(i,j,l,4)      ! Climatological P-L = (P-L)^o\n\n             ! ++++++ local ozone feedback: ++++++\n             dero3=tlstt(i,j,l,5)               ! Derivative w.r.t. O3. \n                                                !  dero3=-1/(time constant)\n             IF (dero3.EQ.0) CYCLE              ! Skip Linoz if lifetime\n                                                !  is infinite.\n             climo3=tlstt(i,j,l,1)              ! Climatological O3 = f^o\n             derco3=tlstt(i,j,l,7)              ! Derivative w.r.t. Column O3\n             dco3=(colo3(i,j,l)-tlstt(i,j,l,3)) ! deviation from o3 climatology.\n             ! ++++++ temperature feedback: ++++++\n             dertmp=tlstt(i,j,l,6)              ! Derivative w.r.t. Temperature\n             dtmp=(State_Met%T(I,J,L) - &       ! Deviation in Temperature\n                      tlstt(i,j,l,2))           !  from climatology.\n\n             ! ++++++ calculate steady-state ozone: ++++++\n             sso3=climo3 - (climpml+dtmp*dertmp+dco3*derco3)/dero3\n\n             ! ++++++ change in ozone mass due to chemistry: ++++++\n             !ssO3 = f^*\n             dmass=(sso3-Spc(NTRACER)%Conc(I,J,L))*(1.0-exp(dero3*dtchem))\n\n             ! ++++++ update ozone mass ++++++\n             ! LINOX valid only up to 58 km, so do not use above 0.3 hPa\n             ! dbj: impose exponential fall off of mixing ratio\n             ! between 0.3 and 0.01 hPa (with fall off of a scale height)\n             IF (State_Met%PEDGE(I,J,L) .LE. 0.3e+0_f8) THEN\n                Spc(NTRACER)%Conc(I,J,L) = &\n                     (State_Met%PMID(I,J,L)/State_Met%PMID(I,J,LPOS-1))  &\n                     * Spc(NTRACER)%Conc(I,J,LPOS-1)\n             ELSE\n                Spc(NTRACER)%Conc(I,J,L) = Spc(NTRACER)%Conc(I,J,L)+DMASS\n             ENDIF\n\n          ENDDO       ! loop over L\n\n       ENDDO          ! loop over I\n       ENDDO          ! loop pver J\n       !$OMP END PARALLEL DO\n\n       !write our calculated column o3 maximum\n       !write(6,*) 'max of columns= ',maxval(out_data)\n\n    ENDDO\n    IF ( Input_Opt%Verbose ) CALL DEBUG_MSG('DONE LINOZ_CHEM3')\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE LINOZ_CHEM3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: linoz_stratl\n!\n! !DESCRIPTION: Subroutine LINOZ\\_STRATL performs a monthly fixup of chemistry\n!  parameters for the Linoz stratospheric ozone chemistry.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LINOZ_STRATL( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE PRESSURE_MOD\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TIME_MOD,           ONLY : GET_MONTH\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Replace size fields NLAT_LINOZ etc. with fields from Input_Opt.  When we\n!  use GEOS-Chem within the GEOS-5 GCM, the fields within Input_Opt will\n!  be read on the root CPU and MPI-broadcasted to all other CPUs.\n!                                                                             .\n!  The LINOZ climatology array is Input_Opt%LINOZ_TPARM(25,18,12,N),\n!  which has the following dimensions\n!    * 25 layers from 58 km to 10 km by 2 km intervals\n!    * 18 latitudes (85S, 75S, ...85N)\n!    * 12 months\n!    *  N fields (currently N=7)\n!\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER           :: I, IM, IM1, IM2\n    INTEGER           :: J, JM, JJ,  JXXX\n    INTEGER           :: K, L,  LR,  MONTH, N\n\n    ! Dimension sizes\n    INTEGER           :: NFIELDS_LINOZ\n    INTEGER           :: NLAT_LINOZ\n    INTEGER           :: NLEVELS_LINOZ\n    INTEGER           :: NMONTHS_LINOZ\n\n    ! Arrays\n    REAL(fp)            :: P0L   (State_Grid%NZ+1        )\n    REAL(fp)            :: STRT0L(State_Grid%NZ+1        )\n    REAL(fp)            :: STRT1L(State_Grid%NZ+1        )\n    REAL(fp)            :: STRT2L(State_Grid%NZ+1        )\n    REAL(fp)            :: STRTX (Input_Opt%LINOZ_NLEVELS)\n    REAL(fp)            :: YSTRT (Input_Opt%LINOZ_NLAT   )\n\n    REAL(fp), POINTER   :: TLSTT (:,:,:,:) ! IM, JM, LM, Input_Opt%LINOZ_NFIELDS\n\n    ! Month names\n    CHARACTER(LEN=3)  :: CMONTH(12) = (/'jan', 'feb', 'mar', 'apr', &\n                                        'may', 'jun', 'jul', 'aug', &\n                                        'sep', 'oct', 'nov', 'dec'/)\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: PSF = 1010e+0_fp   ! Surface pressure [hPa]\n\n    !=================================================================\n    ! LINOZ_STRATL begins here!\n    !=================================================================\n\n    ! Initialization\n    IM             = State_Grid%NX\n    JM             = State_Grid%NY\n    MONTH          = GET_MONTH()\n    NFIELDS_LINOZ  = Input_Opt%LINOZ_NFIELDS\n    NLAT_LINOZ     = Input_Opt%LINOZ_NLAT\n    NLEVELS_LINOZ  = Input_Opt%LINOZ_NLEVELS\n    NMONTHS_LINOZ  = Input_Opt%LINOZ_NMONTHS\n\n    ! Point to the TLSTT array in state_chm_mod.F90\n    TLSTT          => State_Chm%TLSTT\n\n    ! Echo info to stdout\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, '(a)' ) REPEAT( '#', 79 )\n       WRITE( 6,  50   ) CMONTH(MONTH)\n       WRITE( 6, '(a)' ) REPEAT( '#', 79 )\n50     FORMAT( '# Interpolating Linoz fields for ', a )\n    ENDIF\n\n    !--------------------------------------------------------------------------\n    ! THE FOLLOWING LINEAR INTERPOLATION OPTION IS NOT USED, BUT CAN BE RESTORED\n    ! BY UNCOMMENTING THE APPROPRIATE LINES OF CODE BELOW (bmy, 3/18/13)\n    !\n    !! get weights for month interpolation\n    !do i=1,nmonths_linoz\n    !  jdmc(i) = jdofm(i+1) - (jdofm(i+1)-jdofm(i))/2\n    !enddo\n    !\n    !im1=0\n    !do i=1,nmonths_linoz\n    !  if (jdmc(i).lt.jday) then\n    !    im1=i\n    !  endif\n    !enddo\n    !if (im1.eq.0) then\n    !  im1=nmonths_linoz\n    !  im2=1\n    !  wm1=(jdmc(im2)-jday)*1.0/(jdmc(im2)-(jdmc(im1)-365.0))\n    !elseif (im1.eq.nmonths_linoz) then\n    !  im2=1\n    !  wm1=(jdmc(im2)+365.0-jday)/(jdmc(im2)+365.0-jdmc(im1))\n    !else\n    !  im2=im1+1\n    !  wm1=(jdmc(im2)-jday)*1.0/(jdmc(im2)-jdmc(im1))\n    !endif\n    !wm2=1.0-wm1\n    !\n    !!write(6,*)iday,jday,' weights: ',wm1,wm2\n    !!write(6,*)'months: ',im1,im2,month\n    !!write(6,*)'between: ',jdmc(im1),jdmc(im2)\n    !--------------------------------------------------------------------------\n\n    ! YSTRT(J) are the latitudes (-85, -75, -65, ... +65, +75, +85)\n    ! contained in the LINOZ climatology\n    YSTRT(1) = -85.e+0_fp\n    do J = 2, NLAT_LINOZ\n       YSTRT(J) = YSTRT(J-1) + 10.e+0_fp\n    enddo\n\n    ! TLSTT is now 4D. Need to calculate latitude indeces inside of loop.\n    ! (ckeller, 10/19/15)\n    !! JLATMD(J) is the nearest-neighbor LINOZ data column corresponding\n    !! to each GEOS-Chem latitude index J. (dbj, 6/25/03)\n    !DO J = 1, State_Grid%NY\n    !   JXXX      = INT( 0.1e+0_fp * State_Grid%YMid(1,J) + 10.e+0_fp )\n    !   JLATMD(J) = MIN( 18,     MAX( 1, JXXX )          )\n    !ENDDO\n\n    ! P0L are the pressure at the level edges of each GEOS-Chem\n    ! grid box, assuming a surface pressure of 1010 hPa (dbj, 6/25/03)\n    DO L = 1, State_Grid%NZ+1\n       P0L(L) = GET_AP(State_Grid%NZ+2-L) + &\n              ( GET_BP(State_Grid%NZ+2-L) * PSF )\n    ENDDO\n\n    !=================================================================\n    ! Lookup data in the LINOZ climatology\n    !=================================================================\n\n    ! Loop over the # of fields in the LINOZ climatology\n    DO N = 1, NFIELDS_LINOZ\n\n       !----------------------------------------------------------------------\n       ! INTERPOLATION BETWEEN LATITUDES IS CURRENTLY NOT USED, BUT CAN BE\n       ! RESTORED BY UNCOMMENTING THE APPROPRIATE LINES OF CODE BELOW\n       ! (bmy, 3/18/13)\n       !\n       ! ***** Interpolation between latitudes is not currently used {PJC} ***\n       !!----- interpolating along latitude, from TPAR2 to STRTXY\n       !do K = 1, nlevels_linoz\n       !do J = 1, nlat_linoz\n       !   TPAR2(K,J) = TPARM(K,J,MONTH,N)\n       !   TPAR2(K,J) = TPARM(K,J,im1,N)\n       !enddo\n       !enddo\n       !call LINOZ_INTPL(nlevels_linoz,NLAT_LINOZ,JPAR,JM,YSTRT,YDGRD, &\n       !                 TPAR2,STRTXY1)\n       !do K = 1, nlevels_linoz\n       !do J = 1, nlat_linoz\n       !   TPAR2(K,J) = TPARM(K,J,im2,N)\n       !enddo\n       !enddo\n       !call LINOZ_INTPL(nlevels_linoz,NLAT_LINOZ,JPAR,JM,YSTRT,YDGRD, &\n       !     TPAR2,STRTXY2)\n       !----------------------------------------------------------------------\n\n       ! Loop over GEOS-Chem latitudes\n       DO J = 1, JM\n       DO I = 1, IM\n\n          ! JJ is the index of the nearest LINOZ data column\n          ! corresponding to GEOS-Chem latitude index J\n          ! Now explicitly calculate for every grid box to account for\n          ! curvilinear grids. (ckeller, 10/19/15)\n          ! JJ = JLATMD(J)\n          JXXX = INT( 0.1e+0_fp * State_Grid%YMid(I,J) + 10.e+0_fp )\n          JJ   = MIN( 18, MAX( 1, JXXX ) )\n\n          ! Loop over the # of levels in the LINOZ climatology\n          DO K = 1, NLEVELS_LINOZ\n\n             ! STRTX(K) is the column of data from the LINOZ climatology\n             ! for the given month, latitude (JJ), level (K), and species\n             ! (N).  One of the following interpolation options may be used.\n\n             !-----------------------------------------------------------------\n             ! THE FOLLOWING OPTIONS ARE CURRENTLY NOT USED, BUT CAN BE RESTORED\n             ! BY UNCOMMENTING THE APPROPRIATE LINES OF CODE BELOW (bmy,3/18/13)\n             !\n             !! linearly interpolate in latitude and month\n             !STRTX(K) = STRTXY1(K,J)*wm1 + STRTXY2(K,J)*wm2\n             !\n             !! linearly interpolate in latitude, single month\n             !STRTX(K) = STRTXY2(K,J)\n             !\n             !! nearest latitude, linearly interpolate in month\n             !!STRTX(K) = Input_Opt%LINOZ_TPARM(K,JJ,im1,N)*wm1 &\n             !          + Input_Opt%LINOZ_TPARM(K,JJ,im2,N)*wm2\n             !-----------------------------------------------------------------\n\n             ! Nearest neighbor, no interpolation\n             STRTX(K) = Input_Opt%LINOZ_TPARM(K,JJ,MONTH,N)\n          ENDDO\n\n          ! *PJC* Interpolate and calculate moments of column distribution\n          CALL LINOZ_STRT2M( Input_Opt,     State_Grid,        &\n                             State_Grid%NZ, STRTX,     P0L,    &\n                             STRT0L,        STRT1L,    STRT2L, RC )\n\n          ! Store loss freq/yields & moments in TLSTT/SWT/SWW\n          ! for exact CTM layers LM down\n          ! Order reversed from C.McLinden version {PJC}\n          DO LR = 1,State_Grid%NZ\n             TLSTT(I,J,LR,N) = STRT0L(State_Grid%NZ+1-LR)\n          ENDDO\n\n       ENDDO   ! loop over I\n       ENDDO   ! loop over J\n\n    ENDDO      ! loop over N\n\n  END SUBROUTINE LINOZ_STRATL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: linoz_strt2m\n!\n! !DESCRIPTION: Subroutine LINOZ\\_STRT2M interpolates quantities from the\n!  LINOZ vertical grid to the GEOS-Chem vertical grid.  It also computes\n!  the 1st \\& 2nd moments of the distribution.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LINOZ_STRT2M( Input_Opt, State_Grid,         &\n                           NSTRT,     STRTX,      P0L,    &\n                           STRT0L,    STRT1L,     STRT2L, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt    ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid   ! Grid State object\n    INTEGER,        INTENT(IN)  :: NSTRT        ! # of levels( = State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: P0L(State_Grid%NZ+1) ! Pressure edges\n\n    ! Quantity on the LINOZ vertical grid (i.e. fields #1-7 of the LINOZ clim.\n    REAL(fp),       INTENT(IN)  :: STRTX(Input_Opt%LINOZ_NLEVELS)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! 0th moment of distribution, on GEOS-Chem grid edges\n    REAL(fp),       INTENT(OUT) :: STRT0L(State_Grid%NZ+1)\n\n    ! 1st moment of distribution, on GEOS-Chem grid edges\n    REAL(fp),       INTENT(OUT) :: STRT1L(State_Grid%NZ+1)\n\n    ! 2nd moment of distribution, on GEOS-Chem grid edges\n    REAL(fp),       INTENT(OUT) :: STRT2L(State_Grid%NZ+1)\n\n    ! Success or failure?\n    INTEGER,        INTENT(OUT) :: RC\n!\n! !REMARKS:\n!  Comments from Chris McLinden to Peter Cameron-Smith:\n!  ===========================================================================\n!  CALL SOMLFQ(P1,P2,F0,F1,F2,PS,F,NL)\n!  - P1,P2 are the pressure EDGES for the CTM layer onto which the\n!    coefficients will be mapped. [P1>P2 I believe {PJC}]\n!  - F0,F1,F2 are the CTM layer vertical moments determined in SOMLFQ\n!  - PS are the pressure layer edges of the original [ie Linox] grid\n!  - F is the column of coefficients (on the original grid); note\n!    F is flipped relative to STRTX and since the coefficients begin\n!    at z*=10, F(1)=F(2)=...=F(5)=0\n!  - NL is 30; size of F()\n!                                                                             .\n!   The box model calculations were performed at z*=10km, 12km, ... and\n!   so these would represent the centres with the corresponding edges at\n!   9,11km ; 11,13km; ...\n!   PS() represents the edges (although PS(1) is set to 1000mb).\n!   The first few values are:\n!     PS(1)=1000\n!     PS(2)=874.947105    (note PS(2) is not quite 1000 exp(-1/16) as the\n!     PS(3)=656.117767     the average pressure is used - not the pressure\n!     PS(4)=492.018914     at the average z*)\n!     PS(5)=368.96213\n!     PS(6)=276.68257\n!     PS(7)=207.48266\n!     ...\n!     PS(30)=0.276682568\n!     PS(31)=0.0\n!                                                                             .\n!     F(1) spans PS(1)-PS(2)\n!     F(2) spans PS(2)-PS(3)\n!     ...\n!     F(30) spans PS(30)-PS(31)\n\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER  :: NL,  NCBOX, L,      K,    NX\n    REAL(fp) :: P1,  P2,    F0,     F1\n    REAL(fp) :: F2,  XPSD,  XPSLM1, XPSL\n\n    ! Arrays\n    REAL(fp) :: PS(Input_Opt%LINOZ_NLEVELS+6)  ! Old code: PS(NL+1)\n    REAL(fp) :: F (Input_Opt%LINOZ_NLEVELS+5)  ! Old code: PS(NL)\n\n    !=================================================================\n    ! Initialization\n    !=================================================================\n\n    ! Assume success\n    RC         = GC_SUCCESS\n\n    ! Now make NX a local variable, since we already pass\n    ! its value via the Input_Opt object (bmy, 3/13/18)\n    NX         = Input_Opt%LINOZ_NLEVELS\n\n    ! Now make NL a local variable instead of a parameter, because\n    ! we need to construct its value usign Input_Opt (bmy, 3/18/13)\n    NL         = Input_Opt%LINOZ_NLEVELS + 5\n\n    !=================================================================\n    ! Set up std z* atmosphere: p = 1000 * 10**(-z*/16 km)\n    !\n    ! Assume that stratospheric chemical parameters always start at\n    ! 52 km (N=27).  Scan downward from 52 km to 14 km (NX=20) by\n    ! 2 km.\n    !\n    ! 58 km (N=30) scan downward from 58 km to 10 km (NX=25) by 2 km\n    ! intervals, constant >58km\n    !\n    !  N.B. F(@30km) assumed to be constant from 29-31 km (by mass)\n    !=================================================================\n\n    XPSD       = 10.e+0_fp **(-0.125e+0_fp)\n    XPSLM1     = 1000.e+0_fp\n    PS(1)      = 1000.e+0_fp\n    DO L = 2,NL\n       XPSL    = XPSLM1 *XPSD\n       PS(L)   = 0.5e+0_fp *(XPSLM1 +XPSL)\n       XPSLM1  = XPSL\n    ENDDO\n    PS(NL+1)   = 0.e+0_fp\n    DO L = 1,NL-NX\n       F(L)     = 0.e+0_fp\n    ENDDO\n\n    ! K=1 is at the top of atmosphere\n    DO K = 1,NX\n       F(NL+1-K)= STRTX(K) !STRTX has increasing preasure. {PJC}\n    ENDDO\n\n    DO K = 1,NSTRT\n       P1       = P0L(K+1)\n       P2       = P0L(K)\n       CALL LINOZ_SOMLFQ(P1,P2,F0,F1,F2,PS,F,NL)\n       STRT0L(K)= F0\n       STRT1L(K)= F1\n       STRT2L(K)= F2\n    ENDDO\n\n  END SUBROUTINE LINOZ_STRT2M\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: linoz_somlfq\n!\n! !DESCRIPTION: subroutine LINOZ\\_SOMLFQ calculates loss freq moments from a\n!  set of loss frequencies at std z*, given a CTM model interval pressure\n!  range: P1 > P2 (decreasing up)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LINOZ_SOMLFQ(P1,P2,F0,F1,F2,PS,F,NL)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,   INTENT(IN)  :: NL\n    REAL(fp),  INTENT(IN)  :: F(NL)\n    REAL(fp),  INTENT(IN)  :: PS(NL+1)\n    REAL(fp),  INTENT(IN)  :: P1\n    REAL(fp),  INTENT(IN)  :: P2\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: F0\n    REAL(fp),  INTENT(OUT) :: F1\n    REAL(fp),  INTENT(OUT) :: F2\n!\n! REMARKS:\n! The pressure levels BETWEEN z* values are:\n!      PS(i) > PS(i+1) bounds z*(i)\n!                                                                             .\n! NL:  z* levels, ==> PS(NL+1) = 0  (extrapolate chemical loss to top)\n!      Z1 = 16.D0*LOG10(1000.D0/P1)\n!      Z2 = 16.D0*LOG10(1000.D0/P2)\n!                                                                             .\n! The MOMENTS for a square-wave or 'bar': F(x)=f0  b<=x<=c, =0.0 else\n!      S0 =   f0 (x)                      [from x=b to x=c]\n!      S1 = 3 f0 (x^2 - x)                [from x=b to x=c]\n!      S2 = 5 f0 (2x^3 - 3x^2 + x)        [from x=b to x=c]\n!\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  19 Mar 2013 - R. Yantosca - P1, P2 are now declared as INTENT(IN)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer  I\n    real(fp)   XB,XC,PC,PB,THIRD,sgnf0\n\n    F0     = 0.e+0_fp\n    F1     = 0.e+0_fp\n    F2     = 0.e+0_fp\n    DO I = 1,NL\n       PC   = MIN(P1,PS(I))\n       PB   = MAX(P2,PS(I+1))\n       IF (PC .GT. PB)  THEN\n\n          ! have condition:  P1>=PC > PB>=P2, 0<=XB < XC<=1\n          XC = (PC-P2)/(P1-P2)\n          XB = (PB-P2)/(P1-P2)\n\n          ! assume that the loss freq, F, is constant over interval [XB,XC],\n          ! F0: (c-b),\n          ! F1: 6((c2-c)-(b2-b)),\n          ! F2: 5((2c3-3c2+c)-(2b3-3b2+b))\n          ! calculate its contribution to the moments in the interval [0,1]\n          F0 = F0 +F(I) *(XC -XB)\n          F1 = F1 +F(I) *3.e+0_fp *((XC *XC -XC) - (XB *XB -XB))\n          F2 = F2 +F(I) *5.e+0_fp * &\n               ((XC+XC-1.e+0_fp)*(XC*XC -XC) - &\n                (XB+XB-1.e+0_fp)*(XB*XB -XB))\n       ENDIF\n    ENDDO\n\n    ! RESTRAIN moments: force monotonicity & positive at min end pt\n\n    ! cam: tables can be + or -\n    if (f0.ne.0.0) then\n       sgnf0=f0 / abs(f0)\n    else\n       sgnf0=1.0\n    endif\n    f0=abs(f0)\n\n    !F0 = MAX(F0, 0.D0)\n    THIRD = 1.e+0_fp/3.e+0_fp\n    IF (F2 .GT. 0.e+0_fp)  THEN\n\n       ! do not allow reversal of curvature: F2 > 0\n       F2   = MIN(F2, ABS(F1)*THIRD, 5.e-1_fp*F0)\n       IF (F1 .LT. 0.e+0_fp)  THEN\n          F1 = MAX(-(F0+F2), F1)\n       ELSE\n          F1 = MIN(+(F0+F2), F1)\n       ENDIF\n    ELSE\n\n       ! F2 < 0 = curved down at ends, allow if F1 < F0\n       F1  = MIN(F0,MAX(-F0,F1))\n       F2  = MAX(F2,(ABS(F1)-F0),(-ABS(F1)*THIRD))\n    ENDIF\n\n    ! cam: apply sign\n    f0=sgnf0 * f0\n    f1=sgnf0 * f1\n    f2=sgnf0 * f2\n\n  END SUBROUTINE LINOZ_SOMLFQ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: linoz_read\n!\n! !DESCRIPTION: Subroutine LINOZ\\_READ reads the input data file for the\n!  Linoz stratospheric ozone chemistry.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LINOZ_READ( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE InquireMod,    ONLY : findFreeLun\n#if defined( MODEL_CESM )\n    USE UNITS,         ONLY : freeUnit\n#endif\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  LINOZ_READ is called from \"main.F90\" at the start of the simulation.\n!  LINOZ_READ will also call INIT_LINOZ to initialize the arrays.\n!\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: IU_FILE, K,     J\n    INTEGER            :: M,       NTBLS, IOS\n    REAL(fp)           :: TMAX,    TMIN\n\n    ! Dimension sizes\n    INTEGER            :: NFIELDS_LINOZ\n    INTEGER            :: NLAT_LINOZ\n    INTEGER            :: NLEVELS_LINOZ\n    INTEGER            :: NMONTHS_LINOZ\n\n    ! Strings\n    CHARACTER(LEN=80)  :: HEADING, TITL1\n    CHARACTER(LEN=255) :: ERRMSG\n    CHARACTER(LEN=255) :: FILENAME\n    CHARACTER(LEN=255) :: FileMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !=================================================================\n    ! LINOZ_READ begins here!\n    !=================================================================\n\n    ! Assume success\n    RC             = GC_SUCCESS\n    ErrMsg         = ''\n    ThisLoc        = ' -> at LINOZ_READ (in GeosCore/linoz_mod.F90)'\n\n    ! Get fields from Input_Opt\n    NFIELDS_LINOZ  = Input_Opt%LINOZ_NFIELDS\n    NLAT_LINOZ     = Input_Opt%LINOZ_NLAT\n    NLEVELS_LINOZ  = Input_Opt%LINOZ_NLEVELS\n    NMONTHS_LINOZ  = Input_Opt%LINOZ_NMONTHS\n\n    ! Filename\n    FILENAME       = TRIM( Input_Opt%CHEM_INPUTS_DIR ) // &\n                     'Linoz_200910/Linoz_March2007.dat'\n\n    !=================================================================\n    ! In dry-run mode, print file path to dryrun log and exit.\n    ! Otherwise, print file path to stdout and continue.\n    !=================================================================\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( FileName ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg = 'LINOZ (LINOZ_READ): Opening'\n    ELSE\n       FileMsg = 'LINOZ (LINOZ_READ): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write message to stdout for both regular and dry-run simulations\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( FileName )\n300    FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program.\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( Input_Opt%DryRun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( FileName )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Read climatological data from the LINOZ lookup tables\n    !=================================================================\n\n    ! Find a free file LUN\n    IU_FILE = findFreeLUN()\n\n    ! Define error message\n    ERRMSG  = 'LINOZ_READ (in GeosCore/linoz_mod.F90)'\n\n    ! new std z*=2km levels from model:  z*=10,12,...(25*2)+8 km\n    OPEN( IU_FILE, FILE=TRIM( FILENAME ), STATUS='OLD', &\n          FORM='FORMATTED',      IOSTAT=IOS )\n\n    ! Return if there was an error opening the file\n    IF ( IOS /= 0 ) THEN\n       WRITE( FileMsg, 300 ) TRIM( FileMsg ), TRIM( FileName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Read header\n    READ ( IU_FILE, '(a)' ) HEADING\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE(6,*) TRIM( HEADING )\n    ENDIF\n\n    ! Loop over # of fields in the LINOZ climatology\n    DO NTBLS = 1, NFIELDS_LINOZ\n\n       ! Zero min & max values\n       TMIN = +1.e+30_fp\n       TMAX = -1.e+30_fp\n\n       ! Skip header line\n       READ( IU_FILE, '(a)' ) TITL1\n\n       ! Loop over # of months in the LINOZ climatology\n       do M = 1, NMONTHS_LINOZ\n\n          ! Loop over # of latitudes in the LINOZ climatology\n          do J = 1, NLAT_LINOZ\n\n             ! Read data into Input_Opt%LINOZ_TPARM\n             READ( IU_FILE, '(20X,6E11.4/(8E11.4))', IOSTAT=IOS ) &\n                   ( Input_Opt%LINOZ_TPARM(K,J,M,NTBLS), &\n                     K=NLEVELS_LINOZ,1,-1                 )\n\n             ! Stop on error\n             IF ( IOS > 0 ) THEN\n                ErrMsg = 'Error reading ' // TRIM( FileName )\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n             ! Loop over # of levels in the LINOZ climatology\n             ! and compute the overall min & max\n             do K = 1, NLEVELS_LINOZ\n                TMAX = MAX( TMAX, Input_Opt%LINOZ_TPARM(K,J,M,ntbls) )\n                TMIN = MIN( TMIN, Input_Opt%LINOZ_TPARM(K,J,M,ntbls) )\n             enddo\n          enddo\n       enddo\n\n       ! Write overall min & max\n       IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n          write (6,912) TITL1,TMIN,TMAX\n       ENDIF\n912    FORMAT('  Linoz Data:  ',a80,1p,2e10.3)\n\n    enddo\n\n    ! Echo info\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, '(a)' ) '$$ Finished Reading Linoz Data $$'\n       WRITE( 6, '(a)' )\n    ENDIF\n\n    ! Close the files\n    CLOSE( IU_FILE )\n\n#if defined( MODEL_CESM )\n    CALL freeUnit( IU_FILE )\n#endif\n\n  END SUBROUTINE LINOZ_READ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: linoz_intpl\n!\n! !DESCRIPTION: Subroutine LINOZ\\_INTPL does some kind of interpolation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LINOZ_INTPL(KE,IE,ND,NE,XI,XN,YI,YN)\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: KE\n    INTEGER,  INTENT(IN)  :: IE\n    INTEGER,  INTENT(IN)  :: ND\n    INTEGER,  INTENT(IN)  :: NE\n    REAL(fp), INTENT(IN)  :: XI(IE)\n    REAL(fp), INTENT(IN)  :: XN(ND)\n    REAL(fp), INTENT(IN)  :: YI(KE,IE)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: YN(KE,ND)\n!\n! !REVISION HISTORY:\n!  24 Jun 2003 - B. Field & D. Jones - Further updates for GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer  I,II,J,K\n    real(fp)   CNST1,CNST2\n\n    ! k=height; i=lat\n    J       = 2\n    do I = 1,NE\n       if (XN(I) .gt. XI(1        ))  then\n          if (XN(I) .lt. XI(IE))  then\n             CNST1     = (XI(J) - XN(I)) / (XI(J) - XI(J-1))\n             CNST2     = (XN(I) - XI(J-1)) / (XI(J) - XI(J-1))\n             do K = 1,KE\n                YN(K,I) = CNST1 * YI(K,J-1) + CNST2 * YI(K,J)\n             enddo\n             II    = min(I+1,NE)\n             if (XN(II) .gt. XI(J))  J = min(IE,J+1)\n          else\n             do K = 1 ,KE\n                YN(K,I) = YI(K,IE)\n             enddo\n          endif\n       else\n          do K = 1,KE\n             YN(K,I)   = YI(K,1)\n          enddo\n       endif\n       !write(6,*)i,(yn(k,i),k=1,ke)\n    enddo\n\n  END SUBROUTINE LINOZ_INTPL\n!EOC\nEND MODULE LINOZ_MOD\n"
  },
  {
    "path": "GeosCore/mapping_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: mapping_mod.F90\n!\n! !DESCRIPTION: Module MAPPING\\_MOD contains a derived-type object to compute\n!  and save the mapping weight (i.e. fraction of each \"fine\" grid box that\n!  fits into the \"coarse\" grid box\") and areal mapping (i.e. the area of each\n!  \"fine\" grid box contained within a \"coarse\" grid box).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Mapping_Mod\n!\n! !USES:\n!\n  USE ERROR_MOD                       ! Error handling routines\n  USE PRECISION_MOD                   ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC :: MapWeight\n  TYPE MapWeight\n     INTEGER          :: count        ! # of \"fine\" boxes per \"coarse\" box\n     INTEGER, POINTER :: II(:)        ! Longitude indices,  \"fine\"   grid\n     INTEGER, POINTER :: JJ(:)        ! Latitude  indices,  \"fine\"   grid\n     INTEGER, POINTER :: olson(:)     ! Olson land type,    \"fine\"   grid\n     INTEGER, POINTER :: ordOlson(:)  ! Ordering of Olson land types\n     REAL*4,  POINTER :: area(:)      ! Surface areas,      \"fine\"   grid\n     REAL*4           :: sumarea      ! Total surface area, \"coarse\" grid\n  END TYPE MapWeight\n\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_Mapping\n  PUBLIC  :: Get_Map_Wt\n  PUBLIC  :: Cleanup_Mapping\n!\n! !REMARKS:\n!  The mapping weights and areal mapping are initialized when the Olson\n!  land map is read from disk (in olson_landmap_mod.F90).  They are used\n!  again when the MODIS leaf area index data is prepared for input into\n!  GEOS-Chem's (legacy) dry deposition module.\n!                                                                             .\n!  Also, we do not define the mapping weight object within this module.\n!  This allows you to create more than one mapping weight object for\n!  different native grids (e.g. 0.5 x 0.5 and 0.25 x 0.25, etc.)\n!\n! !REVISION HISTORY:\n!  03 Apr 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_mapping\n!\n! !DESCRIPTION: Subroutine INIT\\_MAPPING allocates and initializes a\n!  derived-type object containing grid mapping information.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Mapping( Input_Opt, I_FINE, J_FINE, I_COARSE,  J_COARSE, &\n                           mapping,   RC  )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,       ONLY : NSURFTYPE\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt ! Input Options object\n    INTEGER,        INTENT(IN) :: I_FINE    ! # of lons on the \"fine\" grid\n    INTEGER,        INTENT(IN) :: J_FINE    ! # of lats on the,\"fine\" grid\n    INTEGER,        INTENT(IN) :: I_COARSE  ! # of lons on the \"coarse\" grid\n    INTEGER,        INTENT(IN) :: J_COARSE  ! # of lats on the \"coarse\" grid\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MapWeight), POINTER, INTENT(INOUT) :: mapping(:,:) !\"fine\" -> \"coarse\"\n!\n! !OUTPUT PARAMETERS:\n!\n      INTEGER,       INTENT(OUT) :: RC      ! Success or failure?\n!\n! !REVISION HISTORY:\n!  03 Apr 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: I,   J,   FINE_PER_COARSE, ADD, as\n    INTEGER :: as1, as2, as3,             as4, as5\n\n    ! Arrays\n    INTEGER :: err(I_COARSE,J_COARSE)\n\n    !======================================================================\n    ! INIT_MAPPING begins here!\n    !======================================================================\n\n    ! Initialize\n    err = 0\n    RC = GC_SUCCESS\n\n    ! Define a number of extra boxes to add to FINE_PER_COARSE\n    ! in order to prevent out-of-bounds errors\n    ADD = 10\n\n    ! Number of \"fine\" grid boxes that fit into the \"coarse\" grid box\n    ! (roughly, use the +ADD to make sure it is big enough)\n    FINE_PER_COARSE = ( DBLE( I_FINE ) / DBLE( I_COARSE ) ) &\n                    * ( DBLE( J_FINE ) / DBLE( J_COARSE ) ) + ADD\n\n    ! For saving mapping weights\n    IF ( .not. ASSOCIATED( mapping ) ) THEN\n\n       ! Allocate the mapping weight object\n       ALLOCATE( mapping( I_COARSE, J_COARSE ), STAT=as )\n       IF ( as /= 0 ) CALL ALLOC_ERR( 'map' )\n\n       ! Populate the mapping weight object\n       !$OMP PARALLEL DO DEFAULT( SHARED ) PRIVATE( I, J )\n       DO J = 1, J_COARSE\n       DO I = 1, I_COARSE\n\n          ! Allocate sub-fields of MAPPING object\n          ALLOCATE( mapping(I,J)%ii      ( FINE_PER_COARSE ), STAT=as1 )\n          ALLOCATE( mapping(I,J)%jj      ( FINE_PER_COARSE ), STAT=as2 )\n          ALLOCATE( mapping(I,J)%olson   ( FINE_PER_COARSE ), STAT=as3 )\n          ALLOCATE( mapping(I,J)%ordOlson( 0:NSURFTYPE-1   ), STAT=as4 )\n          ALLOCATE( mapping(I,J)%area    ( FINE_PER_COARSE ), STAT=as5 )\n\n          ! Check for allocation error in such a way\n          ! as to not interfere w/ the parallel loop\n          IF ( as1 + as2 + as3 + as4 + as5 /= 0 ) THEN\n             err(I,J) = 1\n             EXIT\n          ENDIF\n\n          ! Initialize sub-fields\n          IF ( err(I,J) == 0 ) THEN\n             mapping(I,J)%count    = 0\n             mapping(I,J)%ii       = 0\n             mapping(I,J)%jj       = 0\n             mapping(I,J)%olson    = 0\n             mapping(I,J)%ordOlson = 0\n             mapping(I,J)%area     = 0e0\n             mapping(I,J)%sumarea  = 0e0\n          ENDIF\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    ! Stop if any sub-field of MAPPING was not allocated properly\n    IF ( SUM( err ) > 0 ) THEN\n       CALL ERROR_STOP( 'Error allocating sub-fields of MAPPING object!', &\n                        'Init_Mapping (mapping_mod.F90)' )\n    ENDIF\n\n    ! Stop w/ error if the MAPPING object is not dimensioned properly\n    IF ( SIZE( mapping, 1 ) /= I_COARSE  .or. &\n         SIZE( mapping, 2 ) /= J_COARSE ) THEN\n       CALL ERROR_STOP( 'MAPPING object has incorrect dimensions!', &\n                        'Init_Mapping (mapping_mod.F90)' )\n    ENDIF\n\n  END SUBROUTINE Init_Mapping\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_map_wt\n!\n! !DESCRIPTION: Subroutine GET\\_MAP\\_Wt returns the \"mapping weight\", that\n!  is, the fraction that each \"fine\" grid box fits into each \"coarse\" grid\n!  box.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Map_Wt( xedge_w, xedge_e, xedgeC_w, xedgeC_e,   &\n                         yedge_s, yedge_n, yedgeC_s, yedgeC_n,   &\n                         mapWt                                  )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4, INTENT(IN)  :: xedge_w,  xedge_e    ! Lon edges, fine grid\n    REAL*4, INTENT(IN)  :: xedgeC_w, xedgeC_e   ! Lon edges, coarse grid\n    REAL*4, INTENT(IN)  :: yedge_s,  yedge_n    ! Lat edges, fine grid\n    REAL*4, INTENT(IN)  :: yedgeC_s, yedgeC_n   ! Lat edges, coarse grid\n    REAL*4, INTENT(OUT) :: mapWt                ! Mapping weight\n!\n! !REMARKS:\n!  Follows the algorithm from GAMAP routine ctm_getweight.pro\n!\n! !REVISION HISTORY:\n!  30 Jan 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: ox1, ox2, nx1, nx2, ov1, ov2, xOverLap\n    REAL(fp) :: oy1, oy2, ny1, ny2,           yOverLap\n\n    !======================================================================\n    ! Get overlap in longitude\n    !======================================================================\n\n    ! OX1, OX2 are the lon edges of the \"fine\" grid box\n    ox1 = xedge_w\n    ox2 = xedge_e\n\n    ! NX1, NX2 are the lon edges of the coarse grid box\n    nx1 = xedgeC_w\n    nx2 = xedgeC_e\n\n    ! Deal with over-the-dateline cases (phs, 9/26/07)\n    ! That fixes a problem when going from GEOS-5\n    ! 0.66667 x 0.5 to GENERIC 1 x 1.\n    ! Maybe it fixes also the kludges below ?? ## need checking\n    if ( ox2 .lt. nx1 ) then\n       ox1 = ox1 + 360e0\n       ox2 = ox2 + 360e0\n    endif\n\n    if ( ox1 .gt. nx2 ) then\n       ox1 = ox1 - 360e0\n       ox2 = ox2 - 360e0\n    endif\n\n    ! convert to equivalent longitudes where necessary\n    if ( nx1 < -90. .AND. ox1 > 0. ) nx1 = nx1 + 360e0\n    if ( nx2 < -90. .AND. ox2 > 0. ) nx2 = nx2 + 360e0\n\n    ! OV1 is the greater of OX1 and NX1\n    ! OV2 is the lesser of OX2 and NX2\n    ov1 = MAX( ox1, nx1 )\n    ov2 = MIN( nx2, ox2 )\n\n    ! XOVERLAP is the fraction of the old (fine) grid box that\n    ! occupies the new (coarse) grid box in the longitude\n    xOverLap = ( ov2 - ov1 ) / ( ox2 - ox1 )\n\n    ! If XOVERLAP is not in the range of 0-1, then it means that the \"fine\"\n    ! grid box lies completely outside the \"coarse\" grid box (in longitude).\n    ! Set to zero to avoid erroneous results in the calling routine.\n    if ( xOverLap < 0e0 .or. xOverLap > 1e0 ) xOverlap = 0e0\n\n    !======================================================================\n    ! Get overlap in latitude\n    !======================================================================\n\n    ! OY1 and OY2 are lat edges of the \"fine\" grid\n    oy1 = yedge_s\n    oy2 = yedge_n\n\n    ! NY1 and NY2 are consecutive Y-edges for the coarse\n    ny1 = yedgeC_s\n    ny2 = yedgeC_n\n\n    ! OV1 is the greater of OY1 and NY1\n    ! OV2 is the lesser of OY2 and NY2\n    ov1 = MAX( oy1, ny1 )\n    ov2 = MIN( ny2, oy2 )\n\n    ! YOVERLAP is the fraction of the old (fine) grid box that\n    ! occupies the new (coarse) grid box in latitude\n    yoverlap = ( ov2 - ov1 ) / ( oy2 - oy1 )\n\n    ! If YOVERLAP is not in the range of 0-1, then it means that the \"fine\"\n    ! grid box lies completely outside the \"coarse\" grid box (in latitude).\n    ! Set to zero to avoid erroneous results in the calling routine.\n    if ( yOverLap < 0e0 .or. yOverLap > 1e0 ) yOverlap = 0e0\n\n    ! Resultant mapping weight\n    mapWt = xOverLap * yOverLap\n\n  END SUBROUTINE Get_Map_Wt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_mapping\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_MAPPING deallocates memory from a\n!  derived-type object containing mapping information.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Mapping( mapping )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MapWeight), POINTER, INTENT(INOUT) :: mapping(:,:)\n!\n! !REVISION HISTORY:'\n!  03 Mar 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER :: I, J\n\n    ! Test if MAP has been allocated memory\n    IF ( ASSOCIATED( mapping ) ) THEN\n\n       ! First deallocate the pointer fields of the MAP object\n       !$OMP PARALLEL DO DEFAULT( SHARED ) PRIVATE( I, J )\n       DO J = 1, SIZE( mapping, 2 )\n       DO I = 1, SIZE( mapping, 1 )\n          DEALLOCATE( mapping(I,J)%ii       )\n          DEALLOCATE( mapping(I,J)%jj       )\n          DEALLOCATE( mapping(I,J)%olson    )\n          DEALLOCATE( mapping(I,J)%ordOlson )\n          DEALLOCATE( mapping(I,J)%area     )\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       ! Then deallocate the MAP object itself\n       DEALLOCATE( mapping )\n    ENDIF\n\n  END SUBROUTINE Cleanup_Mapping\n!EOC\nEND MODULE Mapping_Mod\n"
  },
  {
    "path": "GeosCore/mercury_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: mercury_mod.F90\n!\n! !DESCRIPTION: Contains variables and routines for the GEOS-Chem mercury\n!  simulation.  Many choices of reaction mechanism and model processes can\n!  be selected with logical switches located in INIT\\_MERCURY.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Mercury_Mod\n!\n! !USES:\n!\n  USE Depo_Mercury_Mod,  ONLY : ADD_Hg2_SNOWPACK\n  USE Depo_Mercury_Mod,  ONLY : LHgSNOW\n  USE Ocean_Mercury_Mod, ONLY : LDYNSEASALT\n  USE Ocean_Mercury_Mod, ONLY : LPOLARBr\n  USE Ocean_Mercury_Mod, ONLY : L_ADD_MBL_Br\n  USE Ocean_Mercury_Mod, ONLY : LGEIA05\n  USE Ocean_Mercury_Mod, ONLY : LVEGEMIS\n  USE Ocean_Mercury_Mod, ONLY : LBrCHEM\n  USE Ocean_Mercury_Mod, ONLY : LRED_CLOUDONLY\n  USE Ocean_Mercury_Mod, ONLY : LHALOGENCHEM\n  USE Ocean_Mercury_Mod, ONLY : LHgAQCHEM\n  USE Ocean_Mercury_Mod, ONLY : LHg2HalfAerosol\n  USE Ocean_Mercury_Mod, ONLY : STRAT_Br_FACTOR\n  USE Ocean_Mercury_Mod, ONLY : LAnthroHgOnly\n  USE Ocean_Mercury_Mod, ONLY : LOHO3CHEM\n  USE Ocean_Mercury_Mod, ONLY : LGCBrOMINE\n  USE Ocean_Mercury_Mod, ONLY : LnoUSAemis\n  USE Ocean_Mercury_Mod, ONLY : LBrOCHEM\n  USE Ocean_Mercury_Mod, ONLY : LNEI2005\n  USE Ocean_Mercury_Mod, ONLY : LInPlume\n  USE Ocean_Mercury_Mod, ONLY : LOCEANCOEF\n  USE PhysConstants\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Cleanup_Mercury\n  PUBLIC :: ChemMercury\n  PUBLIC :: EmissMercury\n  PUBLIC :: Init_Mercury\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Shah, V. et al (2021), \"Improved mechanistic model of the atmospheric\n!        redox chemistry of mercury\", Environ. Sci. Technol., 55, 14445-14456/\n!  (2 ) Saiz-Lopez, A. et al (2020), \"Photochemistry of oxidized Hg(I) and\n!        Hg(II) species suggests missing mercury oxidation in the\n!         troposphere\", PNAS, 117, 30949-3095, 2020.\n!  (3 ) Parrella, J. et al. (2012), Tropospheric bromine chemistry:\n!        implications for present and pre-industrial ozone and mercury, ACP.\n!  (4 ) Prados-Roman, C. et al. (2011), Airborne DOAS limb measurements of\n!        tropospheric trace gas profiles: case studies on the profile retrieval\n!        of O4 and BrO, Atmos. Meas. Tech., 4: 1241-1260.\n!  (5 ) Pohler, D. et al. (2010), Observation of halogen species in the Amundsen\n!        Gulf, Arctic, by active long-path differential optical absorption\n!        spectroscopy, Proc. Natl. Acad. Sci, 107(15): 6528-6587.\n!  (6 ) Holmes, C.D., et al. (2010) Global atmospheric model for mercury\n!        including oxidation by bromine atoms, AC&P, 10, 12,037-12,057.\n!  (7 ) Streets, D.G. et al. (2009), Projections of global mercury emissions\n!        in 2050, Environ. Sci. Technol., 43, 2983-2988.\n!  (8 ) Corbitt, E.S. et al. (2011), Global source-receptor relationships for\n!        mercury deposition under present-day and 2050 emissions scenarios,\n!        Environ. Sci. Technol., 45, 10477-10484.\n!  (8 ) Soerensen, A. et al. (2010), An improved global model for air-sea\n!        exchange of mercury: High concentrations over the North Atlantic,\n!        Environ. Sci. Technol., 44, 8574-8580.\n!  (9 ) Mintz, Y and G.K. Walker (1993). \"Global fields of soil moisture\n!        and land surface evapotranspiration derived from observed\n!        precipitation and surface air temperature.\" J. Appl. Meteorol. 32 (8),\n!        1305-1334.\n!  (10) Allison, J.D. and T.L. Allison (2005) \"Partition coefficients for\n!        metals in surface water, soil and waste.\" Rep. EPA/600/R-05/074,\n!        US EPA, Office of Research and Development, Washington, D.C.\n!  (11) Selin, N., et al. (2008). \"Global 3-D land-ocean-atmospehre model\n!        for mercury: present-day versus preindustrial cycles and\n!        anthropogenic enrichment factors for deposition.\" Global\n!        Biogeochemical Cycles 22: GB2011.\n!  (12) Selin, N., et al. (2007). \"Chemical cycling and deposition of\n!        atmospheric mercury: Global constraints from observations.\"\n!        J. Geophys. Res. 112.\n!  (13) Sommar, J., et al. (2001). \"A kinetic study of the gas-phase\n!        reaction between the hydroxyl radical and atomic mercury.\"\n!        Atmospheric Environment 35: 3049-3054.\n!  (14) Hall, B. (1995). \"The gas phase oxidation of elemental mercury by\n!        ozone.\", Water, Air, and Soil Pollution 80: 301-315.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  !--------------------------------------------------------------------------\n  ! Scalars\n  !--------------------------------------------------------------------------\n  LOGICAL  :: doSuppress,     Failed2x\n  INTEGER  :: errorCount,     N_Hg_CATS\n  INTEGER  :: id_Hg0,         id_Hg2,      id_HgP\n  INTEGER  :: id_phot_NO2,    id_phot_BrO, id_phot_ClO\n  INTEGER  :: id_phot_Hg2Org, id_O3,       id_OH\n  INTEGER  :: id_HO2,         id_ClO,      id_Cl\n  INTEGER  :: id_NO2,         id_NO,       id_Br\n  INTEGER  :: id_BrO,         id_HgBrNO2,  id_HgBrHO2\n  INTEGER  :: id_HgBrOH,      id_HgBrBrO,  id_HgBrClO\n  INTEGER  :: id_HgBr2,       id_HgClNO2,  id_HgClHO2\n  INTEGER  :: id_HgClOH,      id_HgClBrO,  id_HgClClO\n  INTEGER  :: id_HgClBr,      id_HgOHNO2,  id_HgOHHO2\n  INTEGER  :: id_HgOHOH,      id_HgOHBrO,  id_HgOHClO\n  INTEGER  :: id_HgCl2,       id_Hg2Clp,   id_Hg2ORGp\n  INTEGER  :: id_Hg2STRP,     id_HgBr,     id_HgCl\n  INTEGER  :: id_HgOH,        id_HgBrO,    id_HgClO\n  INTEGER  :: id_HgOHO,       nHg2gasSpc,  n_Aer\n  INTEGER  :: n_Dust\n  REAL(fp) :: srMw_HgCl2\n\n  !--------------------------------------------------------------------------\n  ! Arrays\n  !--------------------------------------------------------------------------\n  INTEGER               :: Map_Hg2gas(25)\n  INTEGER,  ALLOCATABLE :: PL_Kpp_ID(:)\n  REAL(fp), ALLOCATABLE :: EHg0_an(:,:)\n  REAL(fp), ALLOCATABLE :: EHg0_dist(:,:)\n  REAL(fp), ALLOCATABLE :: EHg0_ln(:,:)\n  REAL(fp), ALLOCATABLE :: EHg0_oc(:,:)\n  REAL(fp), ALLOCATABLE :: EHg0_so(:,:)\n  REAL(fp), ALLOCATABLE :: EHg0_snow(:,:)\n  REAL(fp), ALLOCATABLE :: EHg2_an(:,:)\n  REAL(fp), ALLOCATABLE :: COSZM(:,:)               ! Max daily SZA\n  REAL(fp), ALLOCATABLE :: srMw(:)\n  REAL(fp), ALLOCATABLE :: TCOSZ(:,:)               ! Sum of SZA\n  REAL(fp), ALLOCATABLE :: TTDAY(:,:)               ! Total daylight time [min]\n  REAL(fp), ALLOCATABLE :: ZERO_DVEL(:,:)           ! Zero drydep vel [cm/s]\n  REAL(fp), ALLOCATABLE :: Hg2_SEASALT_LOSSRATE(:,:)\n  CHARACTER(LEN=8),                                                          &\n            ALLOCATABLE :: AerSpcNames(:)\n\n  ! For now, we need an emission array for the HG simulation\n  ! that can be passed to vdiff_mod.F90 since Trac_Tend does\n  ! not exist anymore (ckeller, 10/21/2014).\n  REAL(fp), ALLOCATABLE, PUBLIC :: HG_EMIS(:,:,:)\n\n  !--------------------------------------------------------------------------\n  ! Pointers to fields in the HEMCO data structure, which must be REAL*4.\n  ! (NOTE: We can set them to NULL here because hey are globally\n  ! SAVEd variables (bmy, 4/29/16)\n  !--------------------------------------------------------------------------\n  REAL(f4), POINTER :: O3(:,:,:)         => NULL()\n  REAL(f4), POINTER :: OH(:,:,:)         => NULL()\n  REAL(f4), POINTER :: JNO2(:,:,:)       => NULL()\n  REAL(f4), POINTER :: NO2(:,:,:)        => NULL()\n  REAL(f4), POINTER :: NO(:,:,:)         => NULL()\n  REAL(f4), POINTER :: HOCl(:,:,:)       => NULL()\n  REAL(f4), POINTER :: HO2(:,:,:)        => NULL()\n  REAL(f4), POINTER :: ClO(:,:,:)        => NULL()\n  REAL(f4), POINTER :: Cl(:,:,:)         => NULL()\n  REAL(f4), POINTER :: OA(:,:,:)         => NULL()\n  REAL(f4), POINTER :: OCEAN_CONC(:,:)   => NULL()\n  REAL(f4), POINTER :: GLOB_PM25(:,:,:)  => NULL()\n  REAL(f4), POINTER :: GLOB_fOA (:,:,:)  => NULL()\n  REAL(f4), POINTER :: GLOB_RH(:,:,:)    => NULL()\n\n  !--------------------------------------------------------------------------\n  ! Derived types and derived-type arrays\n  !--------------------------------------------------------------------------\n\n  ! For oxidants and related quantities read from HEMCO\n  TYPE :: ConcPtrObj\n     REAL(f4), POINTER :: Data(:,:,:) => NULL()  ! [molec/cm3]\n  END TYPE ConcPtrObj\n\n  ! For AOD quantities read from HEMCO\n  TYPE :: AeroPtrObj\n     REAL(f4), POINTER :: AOD(:,:,:)  => NULL()   ! [unitless]\n     REAL(f4), POINTER :: Area(:,:,:) => NULL()   ! [cm2/cm3]\n     REAL(f4), POINTER :: Radi(:,:,:) => NULL()   ! [cm]\n  END TYPE AeroPtrObj\n\n  ! Vector of type ConcPtrObj\n  TYPE(ConcPtrObj), POINTER :: FixSpcPtr(:)\n\n  ! Vector of type AeroPtrObj\n  TYPE(AeroPtrObj), POINTER :: AeroPtr(:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emissmercury\n!\n! !DESCRIPTION: Subroutine EMISSMERCURY is the driver routine for mercury\n!  emissions.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EmissMercury( Input_Opt,  State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE DEPO_MERCURY_MOD,     ONLY : RESET_HG_DEP_ARRAYS\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetPtr\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Land_Mercury_Mod,     ONLY : Land_Mercury_Flux\n    USE Land_Mercury_Mod,     ONLY : SOILEMIS\n    USE Land_Mercury_Mod,     ONLY : SNOWPACK_MERCURY_FLUX\n    USE Ocean_Mercury_Mod,    ONLY : OCEAN_MERCURY_FLUX\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE Time_Mod,             ONLY : GET_MONTH, ITS_A_NEW_MONTH\n    USE Timers_Mod,           ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n    \n    ! Added for GTMM (ccc, 11/19/09)\n    !USE LAND_MERCURY_MOD,   ONLY : GTMM_DR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n!\n! !REVISION HISTORY:\n!  03 Jun 2013 - N. (Eckley) Selin - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n    INTEGER            :: THISMONTH, I, J, previous_units\n    \n    ! Pointers\n    REAL(f4),  POINTER :: Ptr2D(:,:)\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !========================================================================\n    ! EMISSMERCURY begins here!\n    !========================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at EMISSMERCURY (in module GeosCore/mercury_mod.F90)'\n\n    ! Halt HEMCO timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"HEMCO\", RC )\n    ENDIF\n\n    ! Convert species units to [kg] for EMISSMERCURY (ewl, 8/12/15)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = State_Chm%Map_Advect,                              &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Convert_Spc_Units\" #1!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start HEMCO timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"HEMCO\", RC )\n    ENDIF\n\n    !========================================================================\n    ! Get data pointers from HEMCO on the first call\n    !========================================================================\n    IF ( FIRST ) THEN\n\n       ! Soil distribution\n       CALL HCO_GC_GetPtr( Input_Opt, State_Grid, 'HG0_SOILDIST', Ptr2D, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not get pointer to HEMCO field HG0_SOILDIST!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       EHg0_dist =  Ptr2D(:,:)\n       Ptr2D     => NULL()\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    !--------------------------------------------------------------\n    ! Here we are NOT using the Global Terrstrial Mercury Model...\n    !--------------------------------------------------------------\n\n    ! Read offline ocean Hg0\n    EHg0_oc = 0.0_fp\n    CALL OFFLINEOCEAN_READMO( State_Chm, State_Diag, State_Grid, &\n                              State_Met, EHg0_oc,    RC )\n\n    ! Get land mercury flux of Hg0\n    CALL LAND_MERCURY_FLUX( LHgSNOW    = LHgSNOW,                            &\n                            State_Grid = State_Grid,                         &\n                            State_Met  = State_Met,                          &\n                            LFLUX      = EHg0_ln                            )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### EMISSMERCURY: a LAND_FLUX' )\n    ENDIF\n\n    ! Get soil mercury flux of Hg0\n    CALL SOILEMIS( EHg0_dist  = EHg0_dist,                                   &\n                   State_Grid = State_Grid,                                  &\n                   State_Met  = State_Met,                                   &\n                   EHg0_so    = EHg0_so                                     )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### EMISSMERCURY: a SOILEMIS' )\n    ENDIF\n\n    ! Get snow mercury flux of Hg0\n    CALL SNOWPACK_MERCURY_FLUX( LHgSNOW    = LHgSNOW,                        &\n                                State_Chm  = State_Chm,                      &\n                                State_Grid = State_Grid,                     &\n                                State_Met  = State_Met,                      &\n                                FLUX       = EHg0_snow                      )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### EMISSMERCURY: a SNOW_FLUX' )\n    ENDIF\n\n    ! If we are using the non-local PBL mixing,\n    ! we need to initialize the EMIS_SAVE array (cdh, 08/27/09)\n    ! EMIS_SAVE is now HG_EMIS (ckeller, 10/21/2014)\n    IF ( Input_Opt%LNLPBL ) HG_EMIS = 0.0e+0_fp\n\n    ! Zero arrays for Hg deposition\n    CALL RESET_HG_DEP_ARRAYS()\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### EMISSMERCURY: a RESET_HG_DEP_ARRAYS' )\n    ENDIF\n\n    ! Add Hg(0) source into State_Chm%Species [kg]\n    CALL SRCHg0( Input_Opt,  State_Chm, State_Diag, State_Grid, State_Met, RC )\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### EMISSMERCURY: a SRCHg0' )\n    ENDIF\n\n    ! Halt HEMCO timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"HEMCO\", RC )\n    ENDIF\n\n    ! Convert species units back to original unit\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'Routine EMISSMERCURY in mercury_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Start HEMCO timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"HEMCO\", RC )\n    ENDIF\n\n  END SUBROUTINE EMISSMERCURY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emithg\n!\n! !DESCRIPTION: Subroutine EMITHG directs emission either to the chemical\n!  species array (State\\_Chm%Species) directly or to Hg\\_EMIS for use by the\n!  non-local PBL mixing. This is a programming convenience.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EMITHG( I, J, L, N, E_HG, Input_Opt, State_Chm, State_Grid )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TIME_MOD,           ONLY : GET_TS_EMIS\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L, N  ! Grid boxes + species #\n    REAL(fp),       INTENT(IN)    :: E_Hg        ! Hg emissions\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  27 Aug 2009 - C. Holmes   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp)               :: AM2, TS\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! EMITHG begins here!\n    !=================================================================\n\n    IF ( Input_Opt%LNLPBL ) THEN\n\n       !--------------------------------------------------------------\n       ! We are using FULL PBL MIXING (routine TURBDAY)\n       !\n       ! Save emissions for non-local PBL mixing or emit directly.\n       ! Make sure that emitted mass is non-negative\n       ! This is hear only for consistency with old code which warned\n       ! of underflow error (cdh, 08/27/09)\n       ! EMIS_SAVE is now HG_EMIS array. Convert kg to kg/m2/s\n       ! (ckeller, 09/23/2014)\n       !--------------------------------------------------------------\n\n       ! Surface area [m2]\n       AM2            = State_Grid%Area_M2(I,J)\n\n       ! Emission timestep\n       TS             = GET_TS_EMIS()\n\n       ! Save emissions as [kg/m2/s].  These will be added\n       ! to the chemical species array in routine DO_TEND\n       ! (in mixing_mod.F90).\n       Hg_EMIS(I,J,N) = Hg_EMIS(I,J,N) + ( MAX( E_Hg, 0.0_fp ) / AM2 / TS )\n\n    ELSE\n\n       !--------------------------------------------------------------\n       ! We are using FULL PBL MIXING (routine TURBDAY)\n       ! so add directly to the State_Chm%Species array\n       !--------------------------------------------------------------\n\n       ! Point to the chemical spcies array [kg]\n       Spc                => State_Chm%Species\n\n       ! Add emissions\n       Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) + MAX( E_Hg, 0.0_fp )\n\n       ! Free pointer\n       Spc                => NULL()\n\n    ENDIF\n\n  END SUBROUTINE EMITHG\n!EOP\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: srcHg0\n!\n! !DESCRIPTION: Subroutine SRCHg0 is the subroutine for Hg(0) emissions.\n!  Emissions of Hg(0) will be distributed throughout the boundary layer.\n!  (eck, cdh, bmy, 1/21/05, 4/6/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SRCHg0( Input_Opt,  State_Chm, State_Diag, &\n                     State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : GET_TS_EMIS\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jan 2005 - N. (Eckley) Selin, C. Holmes - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I,      J,    L\n    REAL(fp) :: DTSRCE, E_Hg, T_Hg\n\n    !=================================================================\n    ! SRCHg0 begins here!\n    !=================================================================\n    \n    ! Initialize\n    RC        = GC_SUCCESS       \n    DTSRCE    = GET_TS_EMIS()        ! Timestep [s]\n    \n    ! Zero ocean and snow if the \"anthro Hg only\" option is selected\n    IF ( LAnthroHgOnly ) THEN\n       EHg0_oc   = 0.0_fp\n       EHg0_snow = 0.0_fp\n    ENDIF\n\n    ! Loop over grid boxes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, T_Hg, E_Hg                                      )&\n    !$OMP COLLAPSE( 2                                                       )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Compute total Hg(0) emissions not computed by HEMCO\n       ! (oceans + land + natural + snow)\n       T_Hg = EHg0_oc(I,J) + EHg0_ln(I,J) + EHg0_so(I,J) + EHg0_snow(I,J)\n\n       !=====================================================================\n       ! Partition Hg0 throughout PBL; store into State_Chm%Species [kg]\n       ! Now make sure State_Chm%Species does not underflow (cdh, bmy, 4/6/06)\n       !=====================================================================\n       DO L = 1, State_Met%PBL_MAX_L\n          E_Hg = State_Met%F_OF_PBL(I,J,L) * T_Hg * DTSRCE\n          CALL EmitHg( I, J, L, id_Hg0, E_Hg, Input_Opt, State_Chm, State_Grid )\n       ENDDO\n\n       !=====================================================================\n       ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n       !\n       ! Save the various Hg0 emissions (land, ocean, snow, soil)\n       ! in units of [kg/s].\n       !\n       ! NOTE: All other emission categories are archived via HEMCO.\n       !=====================================================================\n\n       ! Land Hg0 emissions [kg/s]\n       IF ( State_Diag%Archive_EmisHg0land ) THEN\n          State_Diag%EmisHg0land(I,J) = EHg0_ln(I,J)\n       ENDIF\n\n       ! Oceanic Hg0 emissions [kg/s]\n       IF ( State_Diag%Archive_EmisHg0ocean ) THEN\n          State_Diag%EmisHg0ocean(I,J) = EHg0_oc(I,J)\n       ENDIF\n\n       ! Snow Hg0 emissions [kg/s]\n       IF ( State_Diag%Archive_EmisHg0snow ) THEN\n          State_Diag%EmisHg0snow(I,J) = EHg0_snow(I,J)\n       ENDIF\n\n       ! Soil Hg0 emissions [kg/s]\n       IF ( State_Diag%Archive_EmisHg0soil ) THEN\n          State_Diag%EmisHg0soil(I,J) = EHg0_so(I,J)\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE SRCHg0\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chemmercury\n!\n! !DESCRIPTION: Subroutine CHEMMERCURY is the driver routine for mercury\n!  chemistry in the GEOS-CHEM module.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ChemMercury( Input_Opt,  State_Chm, State_Diag,                 &\n                          State_Grid, State_Met, RC                         )\n!\n! !USES:\n!\n    USE Depo_Mercury_Mod,   ONLY : ADD_Hg2_DD\n    USE Depo_Mercury_Mod,   ONLY : ADD_HgP_DD\n    USE GcKpp_Monitor,      ONLY : SPC_NAMES, FAM_NAMES\n    USE GcKpp_Parameters\n    USE GcKpp_Integrator,   ONLY : Integrate\n    USE GcKpp_Model\n    USE Gckpp_Global\n    USE GcKpp_Rates,        ONLY : UPDATE_RCONST, RCONST\n    USE Photolysis_Mod,     ONLY : Do_Photolysis\n    USE PhysConstants,      ONLY : AVO\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE PRESSURE_MOD\n    USE Species_Mod,        ONLY : Species\n    USE Time_Mod,           ONLY : Get_Ts_Chem\n    USE Time_Mod,           ONLY : Get_Day\n    USE Time_Mod,           ONLY : Get_Month\n    USE Time_Mod,           ONLY : Get_Year\n    USE Time_Mod,           ONLY : ITS_A_NEW_MONTH, ITS_A_NEW_DAY\n    USE Time_Mod,           ONLY : ITS_TIME_FOR_A3\n    USE UnitConv_Mod\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ERROR_STOP, DEBUG_MSG, SAFE_DIV\n    USE HCO_STATE_GC_MOD,   ONLY : HcoState\n    USE HCO_EmisList_Mod,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species, SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Timers_Mod,         ONLY : Timer_End, Timer_Start\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: FIRST = .TRUE.\n\n    ! Scalars\n    LOGICAL                :: doSuppress\n    INTEGER                :: previous_units\n    INTEGER                :: I,          J,         L,          K\n    INTEGER                :: N,          NN,        CN,         Hg_Cat\n    INTEGER                :: NA,         F,         SpcID,      KppID\n    INTEGER                :: P,          MONTH,     YEAR,       IRH\n    INTEGER                :: TotSteps,   TotFuncs,  TotJacob,   TotAccep\n    INTEGER                :: TotRejec,   TotNumLU,  HCRC,       IERR\n    INTEGER                :: Day,        S,         errorCount\n    REAL(fp)               :: REL_HUM,    rtim,      itim,       TOUT\n    REAL(fp)               :: T,          TIN\n\n    ! Strings\n    CHARACTER(LEN=16)      :: thisName\n    CHARACTER(LEN=255)     :: errMsg\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! Arrays\n    INTEGER                :: ICNTRL(20)\n    INTEGER                :: ISTATUS(20)\n    REAL(dp)               :: RCNTRL(20)\n    REAL(dp)               :: RSTATE(20)\n    REAL(dp)               :: C_before_integrate(NSPEC)\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n    TYPE(SpcConc), POINTER :: Spc    (:)\n    INTEGER,       POINTER :: IRHARR (:,:,:)\n    REAL(fp),      POINTER :: TK     (:,:,:)\n    REAL(fp),      POINTER :: ODAER  (:,:,:,:,:)\n    REAL(fp),      POINTER :: ODMDUST(:,:,:,:,:)\n!\n! !DEFINED PARAMETERS:\n!\n    ! Toggle hetchem for testing (default=on)\n    LOGICAL,  PARAMETER :: DO_HETCHEM  = .TRUE.\n    \n    ! Suppress KPP integrator output after this many errors occur\n    INTEGER,  PARAMETER :: INTEGRATE_FAIL_TOGGLE = 20\n\n    ! Relative Humidities (to be passed to FAST_JX)\n    REAL(fp), PARAMETER :: RH(5) = (/0.0_fp, 0.5_fp, 0.7_fp, 0.8_fp, 0.9_fp/)\n\n    !========================================================================\n    ! CHEMMERCURY begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    thisLoc    = ' -> at ChemMercury (in GeosCore/mercury_mod.F90)'\n    itim       =  0.0_fp            ! For KPP timing\n    rtim       =  0.0_fp            ! For KPP timing\n    totsteps   =  0                 ! Total # of KPP timesteps\n    totfuncs   =  0                 ! Total # of integrator function calls\n    totjacob   =  0                 ! Total # of jacobian calls\n    totaccep   =  0                 ! Total # of KPP calls that finished OK\n    totrejec   =  0                 ! Total # of KPP calls that didn't converge\n    totnumLU   =  0                 ! Total # of LU decomposition calls\n    errorCount =  0                 ! Count of KPP integration errors\n    Day        =  Get_Day()         ! Current day\n    Month      =  Get_Month()       ! Current month\n    Year       =  Get_Year()        ! Current year\n    Failed2x   = .FALSE.            ! Flag for graceful exit of simulation\n    doSuppress = .FALSE.            ! Suppress further KPP integration errmsgs?\n\n    ! Initialize pointers\n    SpcInfo  => NULL()                 ! Pointer to GEOS-Chem species database\n    Spc      => State_Chm%Species      ! Chemical species array [kg]\n    TK       => State_Met%T            ! Temperature [K]\n    IRHARR   => State_Chm%Phot%IRHARR  ! Relative humidity indexes\n    ODAER    => State_Chm%Phot%ODAER   ! Aerosol optical depth\n    ODMDUST  => State_Chm%Phot%ODMDUST ! Dust optical depth\n\n    !========================================================================\n    ! Set chemistry options and pointers to chemical inputs from HEMCO\n    !========================================================================\n    IF ( FIRST ) THEN\n       IF ( .not. DO_HETCHEM ) THEN\n          WRITE( 6, '(a)' ) REPEAT( '#', 32 )\n          WRITE( 6, '(a)' )  ' # Do_FlexChem: Heterogeneous chemistry'    // &\n                             ' is turned off for testing purposes.'\n          WRITE( 6, '(a)' ) REPEAT( '#', 32 )\n       ENDIF\n       IF ( .not. Input_Opt%Do_Photolysis ) THEN\n          WRITE( 6, '(a)' ) REPEAT( '#', 32 )\n          WRITE( 6, '(a)' )  ' # Do_FlexChem: Photolysis chemistry'       // &\n                             ' is turned off for testing purposes.'\n          WRITE( 6, '(a)' ) REPEAT( '#', 32 )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Recompute AOD and related properties when it's a new month\n    ! from the data read in via HEMCO\n    !========================================================================\n    IF ( ITS_A_NEW_MONTH() ) THEN\n\n       ! Get pointers to fields read via HEMCO\n       CALL Set_HCOPointers ( Input_Opt, State_Chm, State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n           errMsg = 'Error encountered in \"Set_HCOPointers\"!'\n           CALL GC_Error( errMsg, RC, thisLoc )\n           RETURN\n       ENDIF\n\n       ! Set AOD fields to pass to FastJX\n       IRHARR  = 1\n       ODAER   = 0.0_fp\n       ODMDUST = 0.0_fp\n\n       !$OMP PARALLEL DO                                                    &\n       !$OMP DEFAULT( SHARED                                               )&\n       !$OMP PRIVATE( I, J, L, N, REL_HUM                                  )&\n       !$OMP COLLAPSE( 3                                                   )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Dust OD\n          DO N = 1, N_Dust\n             ODMDUST(I,J,L,1,N) = AeroPtr(N)%AOD(I,J,L)\n          ENDDO\n\n          ! Aerosol OD\n          DO N = 1, N_Aer\n             ODAER(I,J,L,1,N) = AeroPtr(N_Dust+N)%AOD(I,J,L)\n          ENDDO\n\n          ! Save IRHARR\n          REL_HUM =  GLOB_RH(I,J,L)\n          IF (      REL_HUM <= RH(2) ) THEN\n             IRHARR(I,J,L) = 1\n          ELSE IF ( REL_HUM <= RH(3) ) THEN\n             IRHARR(I,J,L) = 2\n          ELSE IF ( REL_HUM <= RH(4) ) THEN\n             IRHARR(I,J,L) = 3\n          ELSE IF ( REL_HUM <= RH(5) ) THEN\n             IRHARR(I,J,L) = 4\n          ELSE\n             IRHARR(I,J,L) = 5\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    ! Zero diagnostic archival arrays to make sure that we don't have any\n    ! leftover values from the last timestep near the top of the chemgrid\n    CALL Hg_ZeroDiagArrays( State_Diag )\n\n    !======================================================================\n    ! Convert species to [molec/cm3] (ewl, 8/16/16)\n    !======================================================================\n\n    ! Halt gas-phase chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    ! Convert units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = MOLECULES_SPECIES_PER_CM3,                         &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Unit conversion error!'\n       CALL GC_Error( errMsg, RC, 'mercury_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Start gas-phase chem timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    !========================================================================\n    ! Call photolysis routine to compute J-Values\n    !========================================================================\n    IF ( Input_Opt%Do_Photolysis ) THEN\n\n        !Compute J values\n        CALL Do_Photolysis( Input_Opt, State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           errMsg = 'Error encountered in \"Do_Photolysis\"!'\n           CALL GC_Error( errMsg, RC, thisLoc )\n           RETURN\n        ENDIF\n\n        !### Debug\n        IF ( Input_Opt%Verbose ) THEN\n           CALL DEBUG_MSG( '### ChemMercury: after FAST_JX' )\n        ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Set instantaneous oxidant concentrations (molec cm-3)\n    !========================================================================\n    CALL Set_HgOxidConc( Input_Opt, State_Chm, State_Grid, State_Met, RC    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Set_HgOxidConc\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### ChemMercury: after Set_HgOxidConc' )\n    ENDIF\n\n    !========================================================================\n    ! Set up integration convergence conditions and timesteps\n    ! (cf. M. J. Evans)\n    !========================================================================\n\n    !%%%%% TIMESTEPS %%%%%\n    DT        = GET_TS_CHEM() ! [s]\n    T         = 0d0\n    TIN       = T\n    TOUT      = T + DT\n\n    !%%%%% CONVERGENCE CRITERIA %%%%%\n\n    ! Absolute tolerance\n    ATOL      = State_Chm%KPP_AbsTol\n\n    ! Relative tolerance\n    RTOL      = State_Chm%KPP_RelTol\n\n    !%%%%% SOLVER OPTIONS %%%%%\n\n    ! Zero all slots of ICNTRL\n    ICNTRL    = 0\n\n    ! 0 - non-autonomous, 1 - autonomous\n    ICNTRL(1) = 1\n\n    ! 0 - vector tolerances, 1 - scalars\n    ICNTRL(2) = 0\n\n    ! Select Integrator\n    ICNTRL(3) = 4 ! Rodas3\n\n    ! 0 - adjoint, 1 - no adjoint\n    ICNTRL(7) = 1\n\n    ! Turn off calling Update_SUN, Update_RCONST, Update_PHOTO from within\n    ! the integrator.  Rate updates are done before calling KPP.\n    !  -- Bob Yantosca (03 May 2022)\n    ICNTRL(15) = -1\n\n    !=======================================================================\n    ! %%%%% SOLVE CHEMISTRY -- This is the main KPP solver loop %%%%%\n    !=======================================================================\n100 format('No. of function calls:', i6, /,                                 &\n           'No. of jacobian calls:', i6, /,                                 &\n           'No. of steps:         ', i6, /,                                 &\n           'No. of accepted steps:', i6, /,                                 &\n           'No. of rejected steps ', i6, /,                                 &\n           '       (except at very beginning)',          /,                 &\n           'No. of LU decompositions:             ', i6, /,                 &\n           'No. of forward/backward substitutions:', i6, /,                 &\n           'No. of singular matrix decompositions:', i6, /,                 &\n            /,                                                              &\n           'Texit, the time corresponding to the      ',        /,          &\n           '       computed Y upon return:            ', f11.4, /,          &\n           'Hexit, last accepted step before exit:    ', f11.4, /,          &\n           'Hnew, last predicted step (not yet taken):', f11.4 )\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,        J,        L,        N                          )&\n    !$OMP PRIVATE( IERR,     RCNTRL,   ISTATUS,  RSTATE                     )&\n    !$OMP PRIVATE( SpcID,    KppID,    F,        C_before_integrate         )&\n    !$OMP PRIVATE( P,        NN                                             )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE ( DYNAMIC,  24                                           )&\n    !$OMP REDUCTION( +:errorCount                                           )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip to the end of the loop if we have failed integration twice\n       IF ( Failed2x ) CYCLE\n\n       !====================================================================\n       ! For safety sake, initialize certain variables for each grid\n       ! box (I,J,L), whether or not chemistry will be done there.\n       !====================================================================\n       IERR      = 0         ! Success or failure flag\n       P         = 0         ! GEOS-Chem photolyis species ID\n       ISTATUS   = 0.0_dp    ! Rosenbrock output\n       PHOTOL    = 0.0_dp    ! Photolysis array\n       RCNTRL    = 0.0_fp    ! Rosenbrock input\n       RSTATE    = 0.0_dp    ! Rosenbrock output\n       C         = 0.0_dp    ! KPP species conc's\n       RCONST    = 0.0_dp    ! KPP rate constants\n       CFACTOR   = 1.0_dp    ! KPP conversion factor (not really needed)\n\n       !====================================================================\n       ! Test if we need to do the chemistry for box (I,J,L),\n       ! otherwise move onto the next box.\n       !====================================================================\n\n       ! If we are not below the stratopause don't do the chemistry!\n       !IF ( L > State_Grid%MaxStratLev ) CYCLE\n       IF ( .not. State_Met%InChemGrid( I, J, L ) ) CYCLE\n\n       ! Skipping buffer zone (lzh, 08/10/2014)\n       IF ( State_Grid%NestedGrid ) THEN\n          IF ( J <=                 State_Grid%SouthBuffer ) CYCLE\n          IF ( J >  State_Grid%NY - State_Grid%NorthBuffer ) CYCLE\n          IF ( I <=                 State_Grid%EastBuffer  ) CYCLE\n          IF ( I >  State_Grid%NX - State_Grid%WestBuffer  ) CYCLE\n       ENDIF\n\n       !====================================================================\n       ! Get photolysis rates (daytime only)\n       !====================================================================\n       IF ( State_Met%SUNCOSmid(I,J) > -0.1391731e+0_fp ) THEN\n\n          ! Loop over the FAST-JX photolysis species\n          DO N = 1, State_Chm%Phot%nPhotRxns\n\n             ! Copy photolysis rate from FAST_JX into KPP PHOTOL array\n             IF ( Input_Opt%Do_Photolysis ) THEN\n                PHOTOL(N) = State_Chm%Phot%ZPJ(L,N,I,J)\n             ENDIF\n\n             !---------------------------------------------------------------\n             ! HISTORY (aka netCDF diagnostics)\n             !\n             ! Instantaneous photolysis rates [s-1] (aka J-values)\n             ! and noontime photolysis rates [s-1]\n             !---------------------------------------------------------------\n             IF ( State_Diag%Archive_JVal ) THEN\n\n                ! GC photolysis species index\n                P = State_Chm%Phot%GC_Photo_Id(N)\n\n                ! Archive the instantaneous photolysis rate\n                ! (summing over all reaction branches)\n                State_Diag%JVal(I,J,L,P) = State_Diag%JVal(I,J,L,P)          &\n                                         + PHOTOL(N)\n             ENDIF\n\n             ! J_values for satellite diagnostics\n             IF ( State_Diag%Archive_SatDiagnJVal ) THEN\n\n                ! GC photolysis species index\n                P = State_Chm%Phot%GC_Photo_Id(N)\n\n                ! Archive the instantaneous photolysis rate\n                ! (summing over all reaction branches)\n                State_Diag%SatDiagnJVal(I,J,L,P) =                           &\n                State_Diag%SatDiagnJVal(I,J,L,P) + PHOTOL(N)\n             ENDIF\n\n          ENDDO\n       ENDIF\n\n       !====================================================================\n       ! Copy values at each gridbox into variables in gckpp_Global.F90\n       ! This includes e.g. temperature, air density, and quantities\n       ! needed for heterogeneous chemistry\n       !====================================================================\n       CALL Set_Kpp_GridBox_Values( I          = I,                          &\n                                    J          = J,                          &\n                                    L          = L,                          &\n                                    Input_Opt  = Input_Opt,                  &\n                                    State_Chm  = State_Chm,                  &\n                                    State_Grid = State_Grid,                 &\n                                    State_Met  = State_Met,                  &\n                                    RC         = RC                         )\n\n       !=====================================================================\n       ! Update KPP rates\n       !=====================================================================\n\n       ! Zero out dummy species index in KPP\n       DO F = 1, NFAM\n          KppID = PL_Kpp_Id(F)\n          IF ( KppID > 0 ) C(KppID) = 0.0_dp\n       ENDDO\n\n       ! Update the array of rate constants\n       CALL Update_RCONST( )\n\n       ! HISTORY: Update RxnRates, RxnConst collections\n       CALL Hg_UpdateRxnDiags( I, J, L, State_Diag )\n\n       !=====================================================================\n       ! Set options for the KPP Integrator (M. J. Evans)\n       !=====================================================================\n\n       ! Zero all slots of RCNTRL\n       RCNTRL    = 0.0_fp\n\n       ! Initialize Hstart (the starting value of the integration step\n       ! size with the value of Hnew (the last predicted but not yet \n       ! taken timestep)  saved to the the restart file.\n       RCNTRL(3) = State_Chm%KPPHvalue(I,J,L)\n\n       !=====================================================================\n       ! Integrate the box forwards\n       !=====================================================================\n\n       ! Store concentrations before the call to \"Integrate\".  This will\n       ! let us reset concentrations before calling \"Integrate\" a 2nd time.\n       C_before_integrate = C\n\n       ! Call the Rosenbrock integrator\n       CALL Integrate( TIN,    TOUT,    ICNTRL,                              &\n                       RCNTRL, ISTATUS, RSTATE, IERR                        )\n\n       ! Print grid box indices to screen if integrate failed\n       IF ( IERR < 0 ) THEN\n          IF ( .not. doSuppress ) THEN\n             WRITE( 6, * ) '### INTEGRATE RETURNED ERROR AT: ', I, J, L\n             errorCount = errorCount + 1\n             IF ( errorCount > INTEGRATE_FAIL_TOGGLE ) THEN\n                WRITE( 6, * ) &\n                 '### Further KPP integration error messages will be suppressed'\n                doSuppress = .TRUE.\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! HISTORY: Update KppDiags collection (solver statistics)\n       CALL Hg_UpdateKppDiags( I,      J,         L,           ISTATUS,      &\n                               RSTATE, Input_Opt, State_Diag, .TRUE.        )\n\n       !--------------------------------------------------------------------\n       ! Try another time if it failed\n       !--------------------------------------------------------------------\n       IF ( IERR < 0 ) THEN\n\n          ! Zero the first time step (Hstart, used by Rosenbrock).  Also reset\n          ! C with concentrations prior to the 1st call to \"Integrate\".\n          RCNTRL(3) = 0.0_dp\n          C         = C_before_integrate\n\n          ! Update rate constants again\n          CALL Update_RCONST( )\n\n          ! Call the Rosenbrock integrator again\n          CALL Integrate( TIN,    TOUT,    ICNTRL,                           &\n                          RCNTRL, ISTATUS, RSTATE, IERR                     )\n\n          ! HISTORY: Update KppDiags collection (solver statistics),\n          ! adding stats from the 2nd call to those of from the 1st call\n          CALL Hg_UpdateKppDiags( I,      J,         L,           ISTATUS,   &\n                                  RSTATE, Input_Opt, State_Diag, .FALSE.    )\n\n          !------------------------------------------------------------------\n          ! Exit upon the second failure\n          !------------------------------------------------------------------\n          IF ( IERR < 0 ) THEN\n\n             ! Print error message\n             WRITE(6,     '(a   )' ) '## INTEGRATE FAILED TWICE !!! '\n             WRITE(ERRMSG,'(a,i3)' ) 'Integrator error code :', IERR\n\n#ifdef MODEL_GEOS\n             IF ( Input_Opt%KppStop ) THEN\n                CALL ERROR_STOP(ERRMSG, 'INTEGRATE_KPP')\n             ELSE\n                ! Revert to concentrations prior to 1st call to \"Integrate\"\n                C = C_before_integrate\n             ENDIF\n             IF ( ASSOCIATED(State_Diag%KppError) ) THEN\n                State_Diag%KppError(I,J,L) = State_Diag%KppError(I,J,L) + 1.0\n             ENDIF\n#else\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             ! Make sure only one thread at a time executes this block\n             !$OMP CRITICAL\n\n             ! Set a flag to break out of loop gracefully\n             ! NOTE: You can set a GDB breakpoint here to examine the error\n             Failed2x = .TRUE.\n\n             ! Print concentrations at trouble box KPP error\n             PRINT*, REPEAT( '#', 79 )\n             PRINT*, '### KPP DEBUG OUTPUT!'\n             PRINT*, '### Species concentrations at problem box ', I, J, L\n             PRINT*, REPEAT( '#', 79 )\n             DO N = 1, NSPEC\n                PRINT*, C(N), TRIM( ADJUSTL( SPC_NAMES(N) ) )\n             ENDDO\n             \n             ! Print rate constants at trouble box KPP error\n             PRINT*, REPEAT( '#', 79 )\n             PRINT*, '### KPP DEBUG OUTPUT!'\n             PRINT*, '### Reaction rates at problem box ', I, J, L\n             PRINT*, REPEAT( '#', 79 )\n             DO N = 1, NREACT\n                PRINT*, RCONST(N), TRIM( ADJUSTL( EQN_NAMES(N) ) )\n             ENDDO\n             !\n             !$OMP END CRITICAL\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n             ! Start skipping to end of loop upon 2 failures in a row\n             CYCLE\n#endif\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       ! Continue upon successful return...\n       !=====================================================================\n\n       ! Save Hnew (the last predicted but not taken step) from the 3rd slot\n       ! of RSTATE into State_Chm so that it can be written to the restart\n       ! file.  For simulations that are broken into multiple stages,\n       ! Hstart will be initialized to the value of Hnew from the restart\n       ! file at startup (see above).\n       State_Chm%KPPHvalue(I,J,L) = RSTATE(3)\n\n       !=====================================================================\n       ! Check we have no negative values and copy the concentrations\n       ! calculated from the C array back into State_Chm%Species\n       !=====================================================================\n       ! Loop over KPP species\n       DO N = 1, NSPEC\n\n          ! GEOS-Chem species ID\n          SpcID = State_Chm%Map_KppSpc(N)\n\n          ! Skip if this is not a GEOS-Chem species\n          IF ( SpcID <= 0 ) CYCLE\n\n          ! Set negative concentrations to zero\n          C(N) = MAX( C(N), 0.0_dp )\n\n          ! Copy concentrations back into species concentration array\n          State_Chm%Species(SpcID)%Conc(I,J,L) = REAL( C(N), kind=fp )\n\n       ENDDO\n\n       !=====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Prod and loss of families or species [molec/cm3/s]\n       !\n       ! NOTE: KppId is the KPP ID # for each of the prod and loss\n       ! diagnostic species.  This is the value used to index the\n       ! KPP \"VAR\" array (in module GcKpp_Global.F90).\n       !=====================================================================\n\n       ! Chemical loss of species or families [molec/cm3/s]\n       IF ( State_Diag%Archive_Loss ) THEN\n          DO S = 1, State_Diag%Map_Loss%nSlots\n             KppId = State_Diag%Map_Loss%slot2Id(S)\n             State_Diag%Loss(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Chemical production of species or families [molec/cm3/s]\n       IF ( State_Diag%Archive_Prod ) THEN\n          DO S = 1, State_Diag%Map_Prod%nSlots\n             KppID = State_Diag%Map_Prod%slot2Id(S)\n             State_Diag%Prod(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic: chemical loss of species/families [molec/cm3/s]\n       IF ( State_Diag%Archive_SatDiagnLoss ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnLoss%nSlots\n             KppId = State_Diag%Map_SatDiagnLoss%slot2Id(S)\n             State_Diag%SatdiagnLoss(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       ! Satellite diagnostic: chemical prod of species/families [molec/cm3/s]\n       IF ( State_Diag%Archive_SatDiagnProd ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnProd%nSlots\n             KppID = State_Diag%Map_SatDiagnProd%slot2Id(S)\n             State_Diag%SatDiagnProd(I,J,L,S) = C(KppID) / DT\n          ENDDO\n       ENDIF\n\n       !=====================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive concetration of short-lived radicals [mol/mol]\n       !=====================================================================\n       IF ( State_Diag%Archive_HgBrAfterChem  ) THEN\n          State_Diag%HgBrAfterChem(I,J,L)  = Spc(id_HgBr)%Conc(I,J,L)         &\n                                           / State_Met%AirNumDen(I,J,L)\n       ENDIF\n\n       IF ( State_Diag%Archive_HgClAfterChem  ) THEN\n          State_Diag%HgClAfterChem(I,J,L)  = Spc(id_HgCl)%Conc(I,J,L)         &\n                                           / State_Met%AirNumDen(I,J,L)\n       ENDIF\n\n       IF ( State_Diag%Archive_HgOHAfterChem  ) THEN\n          State_Diag%HgOHAfterChem(I,J,L)  = Spc(id_HgOH)%Conc(I,J,L)         &\n                                           / State_Met%AirNumDen(I,J,L)\n       ENDIF\n\n       IF ( State_Diag%Archive_HgBrOAfterChem ) THEN\n          State_Diag%HgBrOAfterChem(I,J,L) = Spc(id_HgBrO)%Conc(I,J,L)        &\n                                           / State_Met%AirNumDen(I,J,L)\n       ENDIF\n\n       IF ( State_Diag%Archive_HgClOAfterChem ) THEN\n          State_Diag%HgClOAfterChem(I,J,L) = Spc(id_HgClO)%Conc(I,J,L)        &\n                                           / State_Met%AirNumDen(I,J,L)\n       ENDIF\n\n       IF ( State_Diag%Archive_HgOHOAfterChem ) THEN\n          State_Diag%HgOHOAfterChem(I,J,L) = Spc(id_HgOHO)%Conc(I,J,L)        &\n                                           / State_Met%AirNumDen(I,J,L)\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=======================================================================\n    ! Return gracefully if integration failed 2x anywhere\n    ! (as we cannot break out of a parallel DO loop!)\n    !=======================================================================\n    IF ( Failed2x ) THEN\n       ErrMsg = 'KPP failed to converge after 2 iterations!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Partition Hg2 between gas and aerosol phase\n    !========================================================================\n    CALL PartitionHg2( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, State_Met, RC                            )\n\n    !========================================================================\n    ! Hg2 uptake by seasalt aerosols in the MBL\n    !========================================================================\n    CALL SeaSaltUptake( Input_Opt,  State_Chm, State_Diag,                   &\n                        State_Grid, State_Met, RC                           )\n\n    !========================================================================\n    ! Convert species back to original units (ewl, 8/16/16)\n    !========================================================================\n\n    ! Halt gas-phase chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    ! Convert units back\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Unit conversion error!'\n       CALL GC_Error( errMsg, RC, 'mercury_mod.F90' )\n       RETURN\n    ENDIF\n\n    ! Start gas-phase chem timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Gas-phase chem\", RC )\n    ENDIF\n\n    !### Debug output (uncomment if needed)\n    !IF ( ITS_A_NEW_DAY() ) THEN\n    !    WRITE(*,*) 'Total Hg0 mass [Mg]: ', &\n    !                SUM ( State_Chm%Species(id_Hg0)%Conc(:,:,:) )\n    !    Hg2Sum = 0.0_fp\n    !    !$OMP PARALLEL DO       &\n    !    !$OMP DEFAULT( SHARED ) &\n    !    !$OMP PRIVATE( N )\n    !    DO N = 2, 25\n    !       Hg2Sum = Hg2Sum + SUM(State_Chm%Species(N)%Conc(:,:,:))\n    !    ENDDO\n    !    !$OMP END PARALLEL DO\n    !    WRITE(*,*) 'Total Hg2 mass [Mg]: ', Hg2Sum\n    !ENDIF\n\n    ! Free pointers\n    SpcInfo => NULL()\n    Spc     => NULL()\n    IRHARR  => NULL()\n    TK      => NULL()\n    ODAER   => NULL()\n    ODMDUST => NULL()\n\n  END SUBROUTINE ChemMercury\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_HcoPointers\n!\n! !DESCRIPTION: Subroutine Set_HCOPointers gets the offline chemistry data\n! read by HEMCO. The pointers only need to be established once. Target data\n! is automatically updated through HEMCO.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_HcoPointers( Input_Opt, State_Chm, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod, ONLY : HcoState\n    USE HCO_EmisList_Mod, ONLY : HCO_GetPtr\n    USE HCO_ExtList_Mod,  ONLY : HCO_GetOpt\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Met_Mod,    ONLY : MetState\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorological State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  15 Jul 2020 - V. Shah   - Initial version (based on set_brypointers)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL             :: is_BrOx_GC\n    INTEGER             :: N, spcID\n\n    ! Strings\n    CHARACTER(LEN=16)   :: thisOpt\n    CHARACTER(LEN=255)  :: fieldName\n    CHARACTER(LEN=255)  :: thisLoc\n    CHARACTER(LEN=1024) :: errMsg\n\n    !=================================================================\n    ! Set_HCOPointers begins here\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Set_HCOPointers (in module GeosCore/mercury_mod.F90)'\n\n    ! Check if the Br_Ox switch is set\n    thisOpt    = HCO_GetOpt( HcoState%Config%ExtList, 'BrOx_GC', ExtNr=0 )\n    is_BrOx_GC = ( INDEX( thisOpt, 'true' ) > 0 )\n\n    ! Do for each fixed KPP species\n    DO N = 1, State_Chm%nKppFix\n\n       ! Get species ID\n       spcID = State_Chm%Map_KppFix(N)\n\n       ! Construct field name using species name\n       fieldName = 'GLOBAL_' // TRIM( State_Chm%SpcData(SpcID)%Info%Name )\n\n       ! Get pointer to oxidant field [molec/cm3]\n       CALL HCO_GetPtr( HcoState, fieldName, FixSpcPtr(N)%Data, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Cannot get pointer from HEMCO! Oxidant data '//&\n                   'is expected to be listed in the HEMCO configuration '  //&\n                   'file. This error occured when trying to get field '     //&\n                  TRIM( FieldName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO !N\n\n    !----------------------------------\n    ! PM2.5 mass concentration (ug m-3)\n    !----------------------------------\n    ! Get pointer to this field.\n    CALL HCO_GetPtr( HcoState, 'GLOBAL_PM25', GLOB_PM25, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Cannot get pointer from HEMCO for Global PM2.5'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !----------------------------------\n    ! OA fraction\n    !----------------------------------\n    ! Get pointer to this field.\n    CALL HCO_GetPtr( HcoState, 'GLOBAL_fOA', GLOB_fOA, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Cannot get pointer from HEMCO for Global fOA'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !----------------------------------\n    ! Aerosol fields\n    !----------------------------------\n\n    ! Do for each aerosol species\n    DO N = 1, N_Aer + N_Dust\n\n       !------------------------------\n       ! AOD\n       !------------------------------\n\n       ! Get aerosol species name\n       fieldName = 'AOD_' // TRIM( AerSpcNames(N) )\n\n       ! Get pointer to this field. These are AODs.\n       CALL HCO_GetPtr( HcoState, fieldName, AeroPtr(N)%AOD, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Cannot get pointer from HEMCO for ' // TRIM( fieldName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !------------------------------\n       ! Area (cm2 cm-3)\n       !------------------------------\n\n       ! Get aerosol species name\n       fieldName = 'Area_' // TRIM( AerSpcNames(N) )\n\n       ! Get pointer to this field. These are AODs.\n       CALL HCO_GetPtr( HcoState, fieldName, AeroPtr(N)%Area, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Cannot get pointer from HEMCO for ' //&\n                  TRIM( fieldName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !------------------------------\n       ! Radi (cm)\n       !------------------------------\n\n       ! Get aerosol species name\n       fieldName = 'Radi_' // TRIM( AerSpcNames(N) )\n\n       ! Get pointer to this field. These are AODs.\n       CALL HCO_GetPtr( HcoState, fieldName, AeroPtr(N)%Radi, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Cannot get pointer from HEMCO for ' //&\n                  TRIM( FieldName )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO !N\n\n    !----------------------------------\n    ! Relative humidity\n    !----------------------------------\n    ! Get pointer to this field.\n    CALL HCO_GetPtr( HcoState, 'GLOBAL_RH', GLOB_RH, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Cannot get pointer from HEMCO for Global RH'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Set_HCOPointers\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_HgOxidConc\n!\n! !DESCRIPTION: Transfers oxidant concentration fields\n!               to State_Chm after applying diurnal variation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_HgOxidConc( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE ERROR_MOD,          ONLY : DEBUG_MSG\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EmisList_Mod,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_MONTH\n\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  15 Jul 2020 - V. Shah - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n\n    ! Scalars\n    INTEGER            :: I, J, L, N         ! lon, lat, lev, indexes\n    INTEGER            :: SpcID\n    CHARACTER(LEN=60)  :: Prefix             ! utility string\n    CHARACTER(LEN=255) :: thisLoc            ! routine location\n    CHARACTER(LEN=255) :: errMsg             ! message\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    ! Initialize pointers\n    SpcInfo     => NULL()\n\n    !================================================================\n    ! Get_HgOxConc begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n    errMsg    = ''\n    thisLoc   = ' -> at Get_HgOxConc (in GeosCore/mercury_mod.F90)'\n\n    !=================================================================\n    ! Set instantaneous species concentrations\n    !=================================================================\n\n    ! Set species concentration to monthly mean value\n    ! Do for each fixed KPP species\n    DO N = 1, State_Chm%nKppFix\n\n       ! Get species ID\n       SpcID = State_Chm%Map_KppFix(N)\n\n       ! Get value from pointer to monthly mean field\n       State_Chm%Species(SpcID)%Conc(:,:,:) = FixSpcPtr(N)%Data(:,:,:)\n    ENDDO\n\n    ! Impose diurnal cycle\n    ! Compute sum of cosine of the solar zenith angle over a 24 hour day\n    CALL OhNO3time( State_Grid )\n\n    ! Calculate instantaneous HOx\n    CALL DiurnalHOx( State_Chm, State_Grid, State_Met )\n\n    ! Partition NOx based on NO-NO2-O3 photochemical steady state\n    CALL PartNOx( State_Chm, State_Grid, State_Met )\n\n    ! Apply dirunal cycle and partition XOx based on O3, NO and J_XO\n    CALL PartXOx( State_Chm, State_Grid, State_Met )\n\n    ! Add BrOx from springtime polar bromine explosion events\n    IF ( LPOLARBr ) CALL PolarBrOx( State_Chm, State_Grid, State_Met )\n\n  END SUBROUTINE Set_HgOxidConc\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !INTERFACE:\n!\n  SUBROUTINE DiurnalHOx( State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Time_Mod,       ONLY : Get_Ts_Chem\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  15 Jul 2020 - V. Shah   - Initial version (modified from GET_OH)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I, J, L\n    REAL(fp) :: diurnalFac, dtChem, C_OH, C_HO2\n\n    ! Pointer to Species array\n    TYPE(SpcConc),  POINTER :: Spc(:)\n\n    !========================================================================\n    ! DirunalHOx begins here!\n    !========================================================================\n\n    ! Chemistry timestep [s]\n    dtChem = Get_Ts_Chem()\n\n    ! Loop over gridcells\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, diurnalFac, C_OH, C_HO2                         )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize loop variables\n       diurnalFac = 0.0_fp\n       C_OH       = State_Chm%Species(id_OH )%Conc(I,J,L)\n       C_HO2      = State_Chm%Species(id_HO2)%Conc(I,J,L)\n\n       ! If sunlight, compute diurnalFac\n       ! If nighttime, skip (diurnalFac = 0)\n       IF ( State_Met%SUNCOS(I,J) > 0.0_fp .and.  TCOSZ(I,J) > 0.0_fp ) THEN\n\n          diurnalFac = ( State_Met%SUNCOS(I,J)  / TCOSZ(I,J)               ) &\n                     * ( 86400.0_fp             / dtChem                   )\n\n          ! Make sure factor is not negative\n          diurnalFac = MAX( diurnalFac, 0.0_fp )\n\n        ENDIF\n\n        ! Scale the HOx species by the diurnal factor\n        State_Chm%Species(id_OH )%Conc(I,J,L) = C_OH  * DiurnalFac\n        State_Chm%Species(id_HO2)%Conc(I,J,L) = C_HO2 * DiurnalFac\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE DiurnalHOx\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: PolarBrOx\n!\n! !DESCRIPTION: Calculates BrOx during bromine explosion events.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PolarBrOx( State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE Time_Mod,       ONLY : Get_Month\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  15 Jul 2020 - V. Shah   - Initial version (modified from cdh's and jaf's\n!                            GET_BR)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL             :: IS_MOSTLY_ICE\n    INTEGER             :: I,              J,             L,        month\n    REAL(fp)            :: BrO_POLAR_PPTV, Br_POLAR_PPTV, O3_POLAR, SWRAD\n    REAL(fp)            :: BrO_POLAR_CONC, Br_POLAR_CONC, BrO_CONC, Br_CONC\n    REAL(fp)            :: FPBL,           JBrO\n!\n! !DEFINED PARAMETERS:\n!\n    ! Assume 5 ppb O3 when BrO present. Pohler et al. (2010) shows 5 ppb O3\n    ! can exist for 3 ppt < [BrO] < 40 ppt. (jaf, 11/29/11)\n    REAL(fp), PARAMETER :: O3_POLAR_PPBV = 5e+0_fp\n\n    ! Rate coefficient BrO + NO -> Br + NO2, cm3/molec/s\n    REAL(fp), PARAMETER :: K_BrO_NO = 2.1e-11_fp\n\n    ! Rate coefficient Br + O3 -> BrO + O2, cm3/molec/s\n    REAL(fp), PARAMETER :: K_Br_O3  = 1.2e-12_fp\n\n    ! Concentration of NO, based on 10pptv, molec/cm3\n    REAL(fp), PARAMETER :: C_NO     = 2.5e+8_fp\n\n    !=================================================================\n    ! PolarBrOx begins here!\n    !=================================================================\n\n    ! Initialize\n    month = Get_Month()\n\n    ! Loop over gridcells and add BrOx in polar regions\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,              J,             L                         )&\n    !$OMP PRIVATE( BrO_POLAR_PPTV, Br_POLAR_PPTV, O3_POLAR, SWRAD           )&\n    !$OMP PRIVATE( BrO_POLAR_CONC, Br_POLAR_CONC, BrO_CONC, Br_CONC         )&\n    !$OMP PRIVATE( FPBL,           IS_MOSTLY_ICE, JBrO                      )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize loop variables\n       IS_MOSTLY_ICE   = .FALSE.\n       Br_CONC         = 0.0_fp\n       Br_POLAR_CONC   = 0.0_fp\n       BrO_POLAR_PPTV  = 0.0_fp\n       BrO_CONC        = 0.0_fp\n       BrO_POLAR_CONC  = 0.0_fp\n       Br_POLAR_PPTV   = 0.0_fp\n       FPBL            = 0.0_fp\n       JBrO            = 0.0_fp\n       O3_POLAR        = 0.0_fp\n       SWRAD           = 0.0_fp\n\n       ! Skip if we aren't poleward of 50N/S lat in the wintertime hemisphere\n       IF ( ( ( State_Grid%YMid(I,J) >  50.0_fp                  )     .and. &\n              ( month >= 2                                       )     .and. &\n              ( month <= 6                                       ) )   .or.  &\n            ( ( State_Grid%YMid(I,J) < -50.0_fp                  )     .and. &\n              ( month >= 8                                       )     .and. &\n              ( month <= 12                                      ) ) ) THEN\n\n            !----------------------------------------------------------------\n            ! Add Br in the polar PBL\n            !----------------------------------------------------------------\n            FPBL = State_Met%F_UNDER_PBLTOP(I,J,L)\n\n            !----------------------------------------------------------------\n            ! Bromine in the polar boundary layer requires the following\n            ! criteria be met:\n            ! - In the PBL\n            ! - Downward shortwave radiation > 100 W/m2 (Pohler et al. 2010)\n            ! - Sea ice exists (>50% native boxes have >10% ice cover)\n            ! - Breaks in sea ice exist (<100% native boxes have >90% ice cover)\n            ! - Month is between Feb & June (Arctic) or Aug & Dec (Antarctic)\n            !   based on http://bro.aeronomie.be/level3_monthly.php?cmd=map\n            ! - Temperature is less than 0C\n            !\n            ! If these criteria are met, BrO is a function of ambient temp.\n            ! with [BrO] based on findings from Pohler et al. (2010) and\n            ! Prados-Roman et al. (2011). O3 used to convert BrO to Br is 5\n            ! ppb, based on data from Pohler et al. (2010).\n            !----------------------------------------------------------------\n            SWRAD         = State_Met%SWGDN(I,J)\n            IS_MOSTLY_ICE = ( State_Met%SEAICE00(I,J) <= 0.50_fp       .and. &\n                              State_Met%SEAICE90(I,J) <  1.0_fp    )\n\n            IF ( ( FPBL              >  0.0_fp                     )   .and. &\n                 ( IS_MOSTLY_ICE                                   )   .and. &\n                 ( SWRAD             >  1.0e+2_fp                  )   .and. &\n                 ( State_Met%TS(I,J) <= 273.0_fp                   ) ) THEN\n\n              ! Get BrOx concentration from species array\n              BrO_CONC = State_Chm%Species(id_BrO)%Conc(I,J,L)\n              Br_CONC  = State_Chm%Species(id_Br )%Conc(I,J,L)\n\n              ! Get JBrO\n              JBrO     = State_Chm%Phot%ZPJ(L,id_phot_BrO,I,J)\n\n              ! [BrO] is a linear function of temperature derived based on\n              ! results from Pohler et al. (2010), Prados-Roman et al. (2011)\n              ! and ability to match Hg0 seasonal cycle at Alert. (jaf,\n              ! 12/24/11)\n              IF ( State_Met%TS(I,J) <= 253.0_fp ) THEN\n                 BrO_POLAR_PPTV = 20.0_fp\n              ELSE\n                 BrO_POLAR_PPTV = -1.0_fp                                    &\n                                *  ( State_Met%TS(I,J) - 253.0_fp )          &\n                                +  20.0_fp\n              ENDIF\n\n              ! Convert O3 to molec/cm3\n              O3_POLAR       = O3_POLAR_PPBV                                 &\n                             * 1.0e-9_fp                                     &\n                             * State_Met%AIRNUMDEN(I,J,L)\n\n              ! Polar BrO concentration [pptv]\n              BrO_POLAR_PPTV = BrO_POLAR_PPTV                                &\n                             * FPBL\n\n              ! Polar Br concentration [pptv]\n              Br_POLAR_PPTV  = BrO_POLAR_PPTV                                &\n                             * ( JBrO + K_BrO_NO * C_NO  )                   &\n                             / ( K_Br_O3 * O3_POLAR      )\n\n              ! Convert BrO conc from [pptv] to molec/cm3\n              BrO_POLAR_CONC = BrO_POLAR_PPTV                                &\n                             * 1.0e-12_fp                                    &\n                             * State_Met%AIRNUMDEN(I,J,L)\n\n              ! Convert Br conc from [pptv] to [molec/cm3]\n              Br_POLAR_CONC  = Br_POLAR_PPTV                                 &\n                             * 1.0e-12_fp                                    &\n                             * State_Met%AIRNUMDEN(I,J,L)\n\n              ! Replace concentrations in species array\n              State_Chm%Species(id_BrO)%Conc(I,J,L) = BrO_CONC + BrO_POLAR_CONC\n              State_Chm%Species(id_Br )%Conc(I,J,L) = Br_CONC  + Br_POLAR_CONC\n              State_Chm%Species(id_O3 )%Conc(I,J,L) = O3_POLAR\n\n            ENDIF\n        ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE PolarBrOx\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: PartXOx\n!\n! !DESCRIPTION: Subroutine PartXOx partitions halogen radicals based on\n!               photochemical steady state with ozone and NO\n!\\\\\n!\\\\\n! !INTERFACE:\n  !\n  SUBROUTINE PartXOx( State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Error_Mod,      ONLY : Safe_Div\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  15 Jul 2020 - V. Shah   - Initial version (modified from hmh's GET_NO2)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I,        J,         L\n    REAL(fp) :: C_Br,     C_BrO,     C_O3,     C_BrOx,    C_NO\n    REAL(fp) :: C_Cl,     C_ClO,     C_ClOx,   k_Br_O3,   k_BrO_NO\n    REAL(fp) :: F_Br_BrO, J_BrO,     k_Cl_O3,  k_ClO_NO,  F_Cl_ClO\n    REAL(fp) :: J_ClO,    diurnalFac\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: A_BrO_NO     =    8.8e-12_fp\n    REAL(fp), PARAMETER :: EdivR_BrO_NO = -260.0_fp\n    REAL(fp), PARAMETER :: A_ClO_NO     =    6.4e-12_fp\n    REAL(fp), PARAMETER :: EdivR_ClO_NO = -290.0_fp\n    REAL(fp), PARAMETER :: A_Br_O3      =    1.6e-11_fp\n    REAL(fp), PARAMETER :: EdivR_Br_O3  =  780.0_fp\n    REAL(fp), PARAMETER :: A_Cl_O3      =    2.3e-11_fp\n    REAL(fp), PARAMETER :: EdivR_Cl_O3  =  200.0_fp\n\n    !========================================================================\n    ! PartXOx begins here!\n    !\n    ! NOTES:\n    ! (R1) XO + hv -> X + O3,  j\n    ! (R2) XO + NO -> X + NO2, k_XO_NO\n    ! (R2) O3 + X ->  XO + O2, k_X_O3\n    !\n    ! XOx steady state:\n    ! [X]/[XO] = (j+k_XO_NO * C_NO) / (k_X_O3 * C_O3)\n    !========================================================================\n\n    ! Loop over gridcells\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,         J,          L,        C_Br                    )&\n    !$OMP PRIVATE( C_BrO,     C_BrOx,     C_Cl,     C_ClO                   )&\n    !$OMP PRIVATE( C_ClOx,    C_O3,       C_NO,     diurnalFac              )&\n    !$OMP PRIVATE( F_Br_BrO,  F_Cl_ClO,   J_BrO,    J_ClO                   )&\n    !$OMP PRIVATE( k_Br_O3,   k_BrO_NO ,  k_Cl_O3,  k_ClO_NO                )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !---------------------------------------------------------------------\n       ! Initialize loop variables\n       !---------------------------------------------------------------------\n       C_Br       = 0.0_fp\n       C_BrO      = 0.0_fp\n       C_BrOx     = 0.0_fp\n       C_Cl       = 0.0_fp\n       C_ClO      = 0.0_fp\n       C_ClOx     = 0.0_fp\n       C_O3       = 0.0_fp\n       C_NO       = 0.0_fp\n       diurnalFac = 0.0_fp\n       F_Br_BrO   = 0.0_fp\n       F_Cl_ClO   = 0.0_fp\n       J_BrO      = 0.0_fp\n       J_ClO      = 0.0_fp\n       k_Br_O3    = 0.0_fp\n       k_BrO_NO   = 0.0_fp\n       k_Cl_O3    = 0.0_fp\n       k_ClO_NO   = 0.0_fp\n\n       !---------------------------------------------------------------------\n       ! Only do the following if there is sunlight at this box\n       !---------------------------------------------------------------------\n       IF ( ( State_Met%SUNCOS(I,J) > 0.0_fp                       )   .and. &\n            ( TTDAY(I,J)            > 0.0_fp                       ) ) THEN\n\n          ! Use a constant function for XOx\n          diurnalFac = Safe_Div( 1440.0_fp, TTDAY(I,J), 0.0_fp )\n\n          ! Species concentrations\n          C_Br       = State_Chm%Species(id_Br )%Conc(I,J,L)\n          C_BrO      = State_Chm%Species(id_BrO)%Conc(I,J,L)\n          C_Cl       = State_Chm%Species(id_Cl )%Conc(I,J,L)\n          C_ClO      = State_Chm%Species(id_ClO)%Conc(I,J,L)\n          C_NO       = State_Chm%Species(id_NO )%Conc(I,J,L)\n          C_O3       = State_Chm%Species(id_O3 )%Conc(I,J,L)\n\n          ! BrOx and ClOx concentrations\n          C_BrOx     = ( C_Br + C_BrO ) * diurnalFac\n          C_ClOx     = ( C_Cl + C_ClO ) * diurnalFac\n\n          ! Calculate temperature dependent reaction rates for partitioning\n          k_BrO_NO   = A_BrO_NO * EXP( -EdivR_BrO_NO / State_Met%T(I,J,L) )\n          k_ClO_NO   = A_ClO_NO * EXP( -EdivR_ClO_NO / State_Met%T(I,J,L) )\n          k_Br_O3    = A_Br_O3  * EXP( -EdivR_Br_O3  / State_Met%T(I,J,L) )\n          k_Cl_O3    = A_Cl_O3  * EXP( -EdivR_Cl_O3  / State_Met%T(I,J,L) )\n\n          ! Instantaneous J-values [1/s]\n          J_BrO      = State_Chm%Phot%ZPJ(L,id_phot_BrO,I,J)\n          J_ClO      = State_Chm%Phot%ZPJ(L,id_phot_ClO,I,J)\n\n          ! Fraction of [X]/[XO]\n          F_Br_BrO   = Safe_Div( J_BrO+(k_BrO_NO*C_NO), k_Br_O3*C_O3, 0.0_fp )\n          F_Cl_ClO   = Safe_Div( J_ClO+(k_ClO_NO*C_NO), k_Cl_O3*C_O3, 0.0_fp )\n\n          ! Species concentrations, adjusted\n          C_Br       =  C_BrOx * F_Br_BrO / ( 1.0_fp + F_Br_BrO )\n          C_BrO      =  C_BrOx - C_Br\n          C_Cl       =  C_ClOx * F_Cl_ClO / ( 1.0_fp + F_Cl_ClO )\n          C_ClO      =  C_ClOx - C_Cl\n\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Store back into the species array\n       ! If nighttime, these will have already been set to zero\n       !---------------------------------------------------------------------\n       State_Chm%Species(id_Br )%Conc(I,J,L) = C_Br\n       State_Chm%Species(id_Cl )%Conc(I,J,L) = C_Cl\n       State_Chm%Species(id_BrO)%Conc(I,J,L) = C_BrO\n       State_Chm%Species(id_ClO)%Conc(I,J,L) = C_ClO\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE PartXOx\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: PartNOx\n!\n! !DESCRIPTION: Subroutine PartNOx partitions NOx based on PSS with ozone\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PartNOx( State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Error_MoD,      ONLY : Safe_Div\n    Use Species_Mod,    ONLY : SpcConc\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Chm_Mod,  ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  15 Jul 2020 - V. Shah   - Initial version (modified from hmh's GET_NO2)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I,    J,     L\n    REAL(fp)            :: C_O3, C_NOx, F_NO2, J_NO2, k3\n\n    ! Pointers\n    TYPE(SpcConc), POINTER   :: Spc(:)\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: A     = 3.0e-12_fp\n    REAL(fp), PARAMETER :: EdivR = 1.5e+3_fp\n\n    !========================================================================\n    ! PartNOx begins here!\n    !\n    ! NOTES:\n    ! (R1) NO2 + hv -> NO  + O  , j\n    ! (R2) O   + O2 -> O3       , k2\n    ! (R3) O3  + NO -> NO2 + O2 , k3\n    !\n    ! [NOx] = [NO] + [NO2]\n    !\n    ! NOx steady state:\n    ! j[NO2] = k3[O3][NO]\n    ! j[NO2] = k3[O3]([NOx]-[NO2])\n    ! [NO2](j+k3[O3] = k3[O3][NOx]\n    ! [NO2]/[NOx] = k3[O3]/(j+k3[O3])\n    !\n    !  k3 = A exp(-E / RT) Arrhenius Equation\n    !  A = 3.0e-12 Seinfeld & Pandis\n    !  E/R = 1500\n    !========================================================================\n\n    ! Point to the chemical spcies array\n    Spc => State_Chm%Species\n\n    ! Loop over gridcells\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, C_NOx, C_O3, F_NO2, J_NO2, k3                   )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero/initialize PRIVATE loop variables\n       C_NOx = Spc(id_NO)%Conc(I,J,L) + Spc(id_NO2)%Conc(I,J,L) ! molec/cm3\n       C_O3  = Spc(id_O3)%Conc(I,J,L)                           ! molec/cm3\n       J_NO2 = 0.0_fp                                           ! 1/s\n       k3    = 0.0_fp                                           ! 1/s\n       F_NO2 = 1.0_fp                                           ! unitless\n\n       ! Test for sunlight...\n       IF ( State_Met%SUNCOS(I,J) > 0.0_fp .and. TTDAY(I,J) > 0.0_fp ) THEN\n\n          ! Reaction rate\n          k3    = A * EXP( -EdivR / State_Met%T(I,J,L) )\n\n          ! Instantaneous JNO2\n          J_NO2 = State_Chm%Phot%ZPJ(L,id_phot_NO2,I,J)\n\n          ! Fraction of NO2/NOx\n          F_NO2 = SAFE_DIV( k3*C_O3, J_NO2+k3*C_O3, 0.0_fp )\n\n       ENDIF\n\n       ! Partition NOx into NO and NO2\n       Spc(id_NO2)%Conc(I,J,L) = F_NO2 * C_NOx\n       Spc(id_NO )%Conc(I,J,L) = ( 1.0_fp - F_NO2 ) * C_NOx\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE PartNOx\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ohno3time\n!\n! !DESCRIPTION: Subroutine OHNO3TIME computes the sum of cosine of the\n!  solar zenith angle over a 24 hour day, as well as the total length of\n!  daylight.  This is needed to scale the offline OH and NO3 concentrations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OHNO3TIME( State_Grid )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n    USE TIME_MOD,       ONLY : GET_NHMSb,   GET_ELAPSED_SEC\n    USE TIME_MOD,       ONLY : GET_TS_CHEM, GET_DAY_OF_YEAR, GET_GMT\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Park & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    INTEGER       :: I, J, L, N, NT, NDYSTEP\n    REAL(fp)      :: A0, A1, A2, A3, B1, B2, B3\n    REAL(fp)      :: LHR0, R, AHR, DEC, TIMLOC, YMID_R\n    REAL(fp)      :: SUNTMP(State_Grid%NX,State_Grid%NY)\n\n    !=================================================================\n    ! OHNO3TIME begins here!\n    !=================================================================\n\n    !  Solar declination angle (low precision formula, good enough for us):\n    A0 = 0.006918\n    A1 = 0.399912\n    A2 = 0.006758\n    A3 = 0.002697\n    B1 = 0.070257\n    B2 = 0.000907\n    B3 = 0.000148\n    R  = 2.* PI * float( GET_DAY_OF_YEAR() - 1 ) / 365.\n\n    DEC = A0 - A1*cos(  R) + B1*sin(  R) &\n             - A2*cos(2*R) + B2*sin(2*R) &\n             - A3*cos(3*R) + B3*sin(3*R)\n\n    LHR0 = int(float( GET_NHMSb() )/10000.)\n\n    ! Only do the following at the start of a new day\n    IF ( FIRST .or. GET_GMT() < 1e-5 ) THEN\n\n       ! Zero arrays\n       TTDAY(:,:) = 0e+0_fp\n       TCOSZ(:,:) = 0e+0_fp\n       COSZM(:,:) = 0e+0_fp\n\n       ! NDYSTEP is # of chemistry time steps in this day\n       NDYSTEP = ( 24 - INT( GET_GMT() ) ) * 3600 / GET_TS_CHEM()\n\n       ! NT is the elapsed time [s] since the beginning of the run\n       NT = GET_ELAPSED_SEC()\n\n       ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n       DO N = 1, NDYSTEP\n\n          ! Zero SUNTMP array\n          SUNTMP = 0e+0_fp\n\n          ! Loop over surface grid boxes\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, YMID_R, TIMLOC, AHR                          )&\n          !$OMP COLLAPSE( 2                                                 )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Grid box latitude center [radians]\n             YMID_R = State_Grid%YMid_R( I, J )\n\n             TIMLOC = real(LHR0) + real(NT)/3600.0 + State_Grid%XMid(I,J)/15.0\n\n             DO WHILE (TIMLOC < 0)\n                TIMLOC = TIMLOC + 24.0\n             ENDDO\n\n             DO WHILE (TIMLOC > 24.0)\n                TIMLOC = TIMLOC - 24.0\n             ENDDO\n\n             AHR = abs(TIMLOC - 12.) * 15.0 * PI_180\n\n             !===========================================================\n             ! The cosine of the solar zenith angle (SZA) is given by:\n             !\n             !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n             !\n             ! where LAT = the latitude angle,\n             !       DEC = the solar declination angle,\n             !       AHR = the hour angle, all in radians.\n             !\n             ! If SUNCOS < 0, then the sun is below the horizon, and\n             ! therefore does not contribute to any solar heating.\n             !===========================================================\n\n             ! Compute Cos(SZA)\n             SUNTMP(I,J) = sin(YMID_R) * sin(DEC) + &\n                           cos(YMID_R) * cos(DEC) * cos(AHR)\n\n             ! TCOSZ is the sum of SUNTMP at location (I,J)\n             ! Do not include negative values of SUNTMP\n             TCOSZ(I,J) = TCOSZ(I,J) + MAX( SUNTMP(I,J), 0.0_fp )\n\n             ! COSZM is the peak value of SUMTMP during a day at (I,J)\n             ! (rjp, bmy, 3/30/04)\n             COSZM(I,J) = MAX( COSZM(I,J), SUNTMP(I,J) )\n\n             ! TTDAY is the total daylight time at location (I,J)\n             IF ( SUNTMP(I,J) > 0e+0_fp ) THEN\n                TTDAY(I,J) = TTDAY(I,J) + DBLE( GET_TS_CHEM() ) / 60e+0_fp\n             ENDIF\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n          ! Increment elapsed time [sec]\n          NT = NT + GET_TS_CHEM()\n       ENDDO\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE OHNO3TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_hg2_seasalt_lossrate\n!\n! !DESCRIPTION: Calculates the loss rate of RGM [s-1] by uptake of RGM into\n!  sea salt aerosol for each model grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Hg2_SeaSalt_LossRate( State_Grid, State_Met )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !REMARKS:\n!  The formula used here is a least-squares fit to the full-physics model of\n!  sea-salt aerosol emissions, hydroscopic growth, mass-transport limited\n!  uptake of Hg(II), and aerosol deposition presented by Holmes et al. (2009)\n!  See Holmes et al. 2010 for evaluation of this parameterization.\n!  (cdh, 11/25/09)\n!\n! !REVISION HISTORY:\n!  25 Nov 2009 - C. Holmes   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I,         J\n    REAL(fp) :: LOSS_FREQ, S, SFCWINDSQR, U10M\n\n    !========================================================================\n    ! Hg2_SeaSalt_LossRate begins here!\n    !========================================================================\n\n    ! Loop over gridboxes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, U10M, S, LOSS_FREQ, SFCWINDSQR                     )&\n    !$OMP COLLAPSE( 2                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize loop variables\n       LOSS_FREQ  = 0.0_fp\n       S          = 0.0_fp\n       SFCWINDSQR = 0.0_fp\n       U10M       = 0.0_fp\n\n       ! Only calculate deposition via sea salt over water\n       IF ( State_Met%IsWater(I,J) ) THEN\n\n          ! Wind speed at 10m altitude [m/s]\n          ! Don't allow wind >20 m/s (limit of this parameterization)\n          SFCWINDSQR = State_Met%U10M(I,J)**2 + State_Met%V10M(I,J)**2\n          U10M       = SQRT( SFCWINDSQR )\n          U10M       = MAX( MIN( U10M, 20.0_fp ), 1.0_fp )\n\n          ! Relative humidity as a saturation ratio\n          ! Use the relative humidity of the lowest layer, although this is\n          ! lower than the higher layers of the MBL\n          !\n          ! Don't allow supersaturation, as [Cl-] is undefined for RH>=1\n          ! Cap RH at 99%, Don't allow RH < 75% as happens in coastal areas\n          S = MAX( MIN( State_Met%RH(I,J,1), 99.0_fp ), 75.0_fp ) * 1.0e-2_fp\n\n          ! Seasalt loss requency [1/s]\n          LOSS_FREQ = 1.0e-10_fp                                             &\n                    * ( 1.0_fp - EXP( -57.758_fp * ( 1.0_fp - S ) ) )        &\n                    * EXP( ( -1.9351_fp  * U10M                   )          &\n                         + (  9.0047_fp  * SQRT( U10M )           )          &\n                         + (  0.14788_fp * U10M**1.5_fp           ) )\n\n          ! Loss frequency must be positive\n          LOSS_FREQ = MAX( LOSS_FREQ, 1e-10_fp )\n       ENDIF\n\n       ! Save loss frequency to an array\n       ! If not over water, LOSS_FREQ is already set to zero\n       Hg2_SEASALT_LOSSRATE(I,J) = LOSS_FREQ\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE Calc_Hg2_SeaSalt_LossRate\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SeasaltUptake\n!\n! !DESCRIPTION: Subroutine SeasaltUptake does the uptake of Hg2 by seasalt\n! aerosols in the MBL.\n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SeaSaltUptake( Input_Opt,  State_Chm, State_Diag,               &\n                            State_Grid, State_Met, RC                      )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE Species_Mod,     ONLY : Species\n    USE Time_Mod,        ONLY : Get_Ts_Chem\n    USE Time_Mod,        ONLY : Its_Time_For_A3\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  10-Dec-2021 - V. Shah     - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I,       J,        L,  N,     S\n    REAL(fp)           :: gasConc, dGasConc, dt, f_PBL, k\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! SeaSaltUptake begins here!\n    !========================================================================\n\n    ! Assume success\n    RC        =  GC_SUCCESS                                ! Success?\n    DT        = Get_Ts_Chem()                              ! Chem timestep [s]\n    errMsg    = ''\n    thisLoc   = ' -> at SeaSaltUptake (in GeosCore/mercury_mod.F90)'\n\n    ! Initialize diagnostic arrays\n    IF ( State_Diag%Archive_Hg2GasToSSA ) State_Diag%Hg2GasToSSA = 0.0_f4\n\n    ! Calculate loss rate by seasalt uptake\n    IF ( ITS_TIME_FOR_A3() ) THEN\n       CALL Calc_Hg2_SeaSalt_LossRate( State_Grid, State_Met )\n    ENDIF\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, N, S, k, f_PBL, gasConc, dGasConc               )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize loop variables\n       k        = 0.0_fp\n       f_PBL    = 0.0_fp\n       gasConc  = 0.0_fp\n       dGasConc = 0.0_fp\n\n       ! Proceed only if gridbox below the PBL top\n       IF ( L > State_Met%PBL_TOP_L(I,J) ) CYCLE\n\n       ! RGM uptake on sea-salt aerosol, 1/s\n       ! (based on SSA production rate (wind speed)\n       ! and salinity (RH)) already zero over land\n       k = Hg2_SeaSalt_LossRate(I,J)\n\n       ! Fraction of box (I,J,L) underneath the PBL top [dimensionless]\n       f_PBL = State_Met%F_Under_PblTop(I,J,L)\n\n       ! Do seasalt uptake only for the fraction of the box in the PBL\n       IF ( f_PBL > 0.1_fp ) k = f_PBL * k\n\n       ! Calculate loss of each Hg2(g) species\n       DO N = 1, nHg2gasSpc\n\n          ! Index for State_Chm%Species array\n          S = Map_Hg2gas(N)\n\n          ! Initial Hg(II) gas concentration [molec/cm3]\n          gasConc = State_Chm%Species(S)%Conc(I,J,L)\n\n          ! Remove Hg2 lost to sea salt aerosol from the gas phase [molec/cm3]\n          dGasConc = gasConc * ( 1.0_fp - EXP( -k * dt ) )\n          gasConc  = gasConc - dGasConc\n\n          ! Final Hg2 gas concentration [molec/cm3]\n          State_Chm%Species(S)%Conc(I,J,L) = gasConc\n\n          !------------------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Archive Hg2 lost from gas to sea salt aerosol [molec/cm3/s]\n          !------------------------------------------------------------------\n          IF ( State_Diag%Archive_Hg2GasToSSA ) THEN\n             State_Diag%Hg2GasToSSA(I,J,L) =                                 &\n             State_Diag%Hg2GasToSSA(I,J,L) + ( dGasConc / DT )\n          ENDIF\n       ENDDO\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE SeaSaltUptake\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: partitionhg2\n!\n! !DESCRIPTION: Subroutine PartitionHg2 calculates the uptake, speciation,\n!               and volatilization of Hg2 gas in aerosols.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PartitionHg2( Input_Opt,  State_Chm, State_Diag,                &\n                           State_Grid, State_Met, RC                        )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE gckpp_Global,     ONLY : NUMDEN, SR_TEMP, TEMP\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Diag_Mod,   ONLY : DgnState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE Species_Mod,      ONLY : Species, SpcConc\n    USE TIME_MOD,         ONLY : GET_TS_CHEM\n    USE rateLawUtilFuncs, ONLY : Ars_L1K\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01-Oct-2020 - V. Shah     - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! !LOCAL VARIABLES:\n    !\n    ! Scalars\n    INTEGER             :: I,         J,             L\n    INTEGER             :: N,         S\n    REAL(fp)            :: aerConc,   aerConcInorg,  aerConcOrg\n    REAL(fp)            :: dGasConc,  dt,            Fgas\n    REAL(fp)            :: fracOA,    gasConc\n    REAL(fp)            :: k,         Kp,            gasAerTot\n    REAL(fp)            :: gasTot,    gasTot_eq,     pm25\n\n    ! Arrays\n    REAL(fp)            :: xArea(N_Dust+N_Aer)\n    REAL(fp)            :: xRadi(N_Dust+N_Aer)\n    REAL(fp)            :: xVol (N_Dust+N_Aer)\n\n    ! Strings\n    CHARACTER(LEN=255)  :: errMsg\n    CHARACTER(LEN=255)  :: thisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n!\n! !DEFINED PARAMETERS:\n!\n    ! Indices for aerosol type\n    INTEGER,  PARAMETER :: DU1       = 1  ! Dust (Reff = 0.151 um)\n    INTEGER,  PARAMETER :: DU2       = 2  ! Dust (Reff = 0.253 um)\n    INTEGER,  PARAMETER :: DU3       = 3  ! Dust (Reff = 0.402 um)\n    INTEGER,  PARAMETER :: DU4       = 4  ! Dust (Reff = 0.818 um)\n    INTEGER,  PARAMETER :: SUL       = 8  ! Tropospheric Sulfate\n    INTEGER,  PARAMETER :: BKC       = 9  ! Black Carbon\n    INTEGER,  PARAMETER :: ORC       = 10 ! Organic Carbon\n    INTEGER,  PARAMETER :: SSA       = 11 ! Accum-mode sea salt\n    INTEGER,  PARAMETER :: SLA       = 13 ! Strat sulfate liq aer\n\n    ! Hg(II) mass accommodation coefficient\n    REAL(fp), PARAMETER :: ALPHA_Hg2 = 0.1_fp\n\n    !========================================================================\n    ! PARTITIONHg2 begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n    DT      =  Get_Ts_Chem()         ! Chemistry timestep [s]\n    Spc     => State_Chm%Species     ! Point to species array [molec/cm3]\n    errMsg  =  ''\n    thisLoc =  ' -> at PartitionHg2 (in module GeosCore/mercury_mod.F90)'\n\n    ! Initialize diagnostic arrays\n    IF (State_Diag%Archive_Hg2GToHg2P     ) State_Diag%Hg2GToHg2P      = 0.0_f4\n    IF (State_Diag%Archive_Hg2PToHg2G     ) State_Diag%Hg2PToHg2G      = 0.0_f4\n    IF (State_Diag%Archive_Hg2GasToHg2StrP) State_Diag%Hg2GasToHg2StrP = 0.0_f4\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,         J,          L,             N                  )&\n    !$OMP PRIVATE( S,         aerConc,    aerConcInorg,  aerConcOrg         )&\n    !$OMP PRIVATE( dGasConc,  Fgas,       fracOA,        gasAerTot          )&\n    !$OMP PRIVATE( gasConc,   gasTot,     gasTot_eq,     k                  )&\n    !$OMP PRIVATE( Kp,        pm25,       xArea,         xRadi              )&\n    !$OMP PRIVATE( xVol                                                     )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero/initialize loop variables\n       aerConc      = 0.0_fp\n       aerConcInorg = 0.0_fp\n       aerConcOrg   = 0.0_fp\n       dGasConc     = 0.0_fp\n       Fgas         = 0.0_fp\n       fracOA       = 0.0_fp\n       gasAerTot    = 0.0_fp\n       gasConc      = 0.0_fp\n       gasTot       = 0.0_fp\n       gasTot_eq    = 0.0_fp\n       k            = 0.0_fp\n       Kp           = 0.0_fp\n       pm25         = 0.0_fp\n       xArea        = 0.0_fp\n       xRadi        = 0.0_fp\n       xVol         = 0.0_fp\n\n       !======================================================================\n       ! Proceed only if gridbox is below the stratopause\n       !======================================================================\n       IF ( L > State_Met%MaxStratLev ) CYCLE\n\n       !----------------------------------------------------------------------\n       ! Copy values into THREADPRIVATE variables in gckpp_Global.F90\n       ! This is needed in order for Ars_L1K to have the proper inputs\n       !---------------------------------------------------------------------\n       NUMDEN  = State_Met%AIRNUMDEN(I,J,L)   ! Air density [molec/cm3]\n       TEMP    = State_Met%T(I,J,L)           ! Temperature [K]\n       SR_TEMP = SQRT( TEMP )                 ! Square root of temperaure\n\n       !---------------------------------------------------------------------\n       ! Get aerosol physical properties\n       ! xArea = Aerosol specific surface area [cm2/cm3 air]\n       ! xRadi = Aerosol effective radius      [cm         ]\n       ! xVol  = Aerosol specific volume       [cm3/cm3 air]\n       !---------------------------------------------------------------------\n       DO N = 1, N_Dust + N_Aer\n          xArea(N) = AeroPtr(N)%Area(I,J,L)\n          xRadi(N) = AeroPtr(N)%Radi(I,J,L)\n          xVol(N)  = xArea(N) * xRadi(N) / 3.0_fp\n       ENDDO\n\n       IF ( State_Met%InTroposphere(I,J,L) ) THEN\n\n          !==================================================================\n          ! IN THE TROPOSPHERE:\n          !\n          ! Perform gas-particle partitioning on fine mode aerosols.\n          ! Begin by calculating equilibrium concentrations\n          ! following Amos et al. (2012)\n          !==================================================================\n\n          ! Get PM2.5 concentrations [ug m-3] (skip if too small)\n          pm25 = GLOB_PM25(I,J,L)\n          IF ( pm25 < 1.0e-3_fp ) CYCLE\n\n          ! Calculate partitioning coefficient (m-3/ug)\n          ! This is from Amos et al. (2012)\n          Kp = 10.0_fp**( ( 2.5e+3_fp / TEMP ) - 10.0_fp )\n\n          ! Gas fraction\n          Fgas = 1.0_fp / ( 1.0_fp + ( Kp * pm25 ) )\n\n          ! Initial Hg2 gas concentration [molec/cm3]\n          ! NOTE: gasTot is zeroed at the top of the loop\n          DO N = 1, nHg2gasSpc\n             S      = Map_Hg2gas(N)\n             gasTot = gasTot + Spc(S)%Conc(I,J,L)\n          ENDDO\n\n          ! Concentration of Hg2 on aerosols (inorganic + organic),\n          ! include any Hg2+ transported from stratosphere\n          aerConcInorg = Spc(id_Hg2ClP)%Conc(I,J,L) + Spc(id_Hg2STRP)%Conc(I,J,L)\n          aerConcOrg   = Spc(id_Hg2ORGP)%Conc(I,J,L)\n\n          ! Zero stratospheic Hg2\n          Spc(id_Hg2STRP)%Conc(I,J,L) = 0.0_fp\n\n          ! Total HgP concentration [molec/cm3]\n          aerConc  =  aerConcInorg + aerConcOrg\n\n          ! Add particle-bound species [molec/cm3]\n          gasAerTot = gasTot + aerConc\n\n          ! Total Hg2Gas at equilibrium [molec/cm3]\n          gasTot_eq = gasAerTot * Fgas\n\n          !-----------------------------------------------------------------\n          ! Mass transfer from gas to particles\n          !-----------------------------------------------------------------\n\n          ! Loop over all Hg2 gas spcies\n          DO N = 1, nHg2gasSpc\n\n             ! Index for State_Chm%Species\n             S = Map_Hg2gas(N)\n\n             ! Initial gas concentration [molec/cm3]\n             gasConc = Spc(S)%Conc(I,J,L)\n\n             ! Mass transfer rate [1/s] onto dust, sulfate, BC/OC and fine SS\n             k = 0.0_fp\n             k = k + Ars_L1k( xArea(DU1), xRadi(DU1), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(DU2), xRadi(DU2), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(DU3), xRadi(DU3), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(DU4), xRadi(DU4), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(SUL), xRadi(SUL), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(BKC), xRadi(BKC), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(ORC), xRadi(ORC), ALPHA_Hg2, srMw(N) )\n             k = k + Ars_L1k( xArea(SSA), xRadi(SSA), ALPHA_Hg2, srMw(N) )\n\n             ! Amount of mass [molec/cm3] transferred from gas to aerosol\n             dGasConc = gasConc * ( 1.0_fp - EXP( -k * DT ) )\n\n             ! Remove transferred mass from gas and add to aerosol\n             Spc(S)%Conc(I,J,L) = gasConc - dGasConc\n             aerConc            = aerConc + dGasConc\n\n             !---------------------------------------------------------------\n             ! HISTORY (aka netCDF diagnostics)\n             !\n             ! Hg2 mass transferred from gas to aerosol [molec/cm3/s]\n             !---------------------------------------------------------------\n             IF ( State_Diag%Archive_Hg2GToHg2P ) THEN\n                State_Diag%Hg2GToHg2P(I,J,L) =                      &\n                State_Diag%Hg2GToHg2P(I,J,L) + ( dGasConc / DT )\n             ENDIF\n          ENDDO\n\n          !------------------------------------------------------------------\n          ! Mass transfer from particle to gas\n          !------------------------------------------------------------------\n\n          ! Mass transfer rate [1/s] from dust, sulfate, BC/OC and fine SS\n          k = 0.0_fp\n          k = k + Ars_L1k( xArea(DU1), xRadi(DU1), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(DU2), xRadi(DU2), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(DU3), xRadi(DU3), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(DU4), xRadi(DU4), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(SUL), xRadi(SUL), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(BKC), xRadi(BKC), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(ORC), xRadi(ORC), ALPHA_Hg2, srMw_HgCl2 )\n          k = k + Ars_L1k( xArea(SSA), xRadi(SSA), ALPHA_Hg2, srMw_HgCl2 )\n\n          ! Amount of mass [molec/cm3] transferred from aerosol to gas\n          ! Limit transferred mass to the amount of HgP present\n          dGasConc = gasTot_eq * ( 1.0_fp - EXP( -k * DT ) )\n          dGasConc = MIN( dGasConc, aerConc )\n\n          ! Remove transferred mass from aerosol HgCl2 and add to gaseous HgCl2\n          aerConc                   = aerConc - dGasConc\n          Spc(id_HgCl2)%Conc(I,J,L) = Spc(id_HgCl2)%Conc(I,J,L) + dGasConc\n\n          !------------------------------------------------------------------\n          ! Partition aerosol concentration between org and inorg\n          !------------------------------------------------------------------\n\n          ! Fraction of organic aerosol in the grid box [unitless]\n          fracOA = MIN( GLOB_fOA(I,J,L), 1.0_fp )\n\n          ! Organic and inorganic HgIIP [molec/cm3]\n          Spc(id_Hg2OrgP)%Conc(I,J,L) = aerConc * fracOA                ! Org\n          Spc(id_Hg2ClP)%Conc(I,J,L)  = aerConc * ( 1.0_fp - fracOA )   ! Inorg\n\n          !------------------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Hg2 mass transferred from aerosol to gas [molec/cm3/s]\n          !------------------------------------------------------------------\n          IF ( State_Diag%Archive_Hg2PToHg2G ) THEN\n             State_Diag%Hg2PToHg2G(I,J,L) =                                  &\n             State_Diag%Hg2PToHg2G(I,J,L) + ( dGasConc / DT )\n          ENDIF\n\n       ELSE\n\n          !==================================================================\n          ! IN THE STRATOSPHERE:\n          !\n          ! Calculate heterogeneous uptake on stratospheric aqueous aerosols\n          !==================================================================\n\n          ! Concentration of Hg2 on aerosols [molec/cm3]\n          aerConc = Spc(id_Hg2STRP)%Conc(I,J,L)                              &\n                  + Spc(id_Hg2ORGP)%Conc(I,J,L)                              &\n                  + Spc(id_Hg2ClP)%Conc(I,J,L)\n\n          ! Zero organic Hg2 aerosol and Hg2Cl aerosol in stratosphere\n          Spc(id_Hg2ORGP)%Conc(I,J,L) = 0.0_fp\n          Spc(id_Hg2ClP)%Conc(I,J,L)  = 0.0_fp\n\n          !------------------------------------------------------------------\n          ! Perform mass transfer between gas and stratopsheric aerosol\n          !------------------------------------------------------------------\n          DO N = 1, nHg2gasSpc\n\n             ! Index for State_Chm%Species\n             S  = Map_Hg2gas(N)\n\n             ! Mass transfer rate [s-1]\n             k = Ars_L1K( xArea(SLA), xRadi(SLA), ALPHA_Hg2, srMw(N) )\n\n             ! Initial Hg(II) gas [molec/cm3]\n             gasConc = Spc(S)%Conc(I,J,L)\n\n             ! Amount of mass [molec/cm3] transferred from gas to aerosol\n             dGasConc = gasConc * ( 1.0_fp - EXP( -k * DT ) )\n\n             ! Remove transferred mass from gas and add to aerosol\n             gasConc  = gasConc - dGasConc\n             aerConc  = aerConc + dGasConc\n\n             ! Final Hg2 gas concentration [molec/cm3]\n             Spc(S)%Conc(I,J,L)  = gasConc\n\n             !---------------------------------------------------------------\n             ! HISTORY (aka netCDF diagnostics)\n             !\n             ! Hg2 mass transferred from gas to strat aerosol [molec/cm3/s]\n             !---------------------------------------------------------------\n             IF ( State_Diag%Archive_Hg2GasToHg2StrP ) THEN\n                State_Diag%Hg2GasToHg2StrP(I,J,L) =                         &\n                State_Diag%Hg2GasToHg2StrP(I,J,L) + ( dGasConc / DT )\n             ENDIF\n          ENDDO\n\n          ! Update Hg2 stratospheric aerosol concentration [molec/cm3]\n          Spc(id_Hg2STRP)%Conc(I,J,L) = aerConc\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer memory\n    Spc => NULL()\n\n  END SUBROUTINE PartitionHg2\n!!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: red_inplume_grid\n!\n! !DESCRIPTION: Subroutine RED\\_INPLUME\\_GRID conducts in plume reduction of\n!  Hg2 for selected grids\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Red_InPlume_Grid( I, J, E_plant )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I, J\n    REAL(fp), INTENT(IN) :: E_plant\n!\n! !REVISION HISTORY:\n!  11 Jan 2011 - Y. Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: E_deg\n!\n! !DEFINED PARAMETERS:\n!\n    ! The source species profile (0.2 Hg0)\n    ! 0.78 Hg2, 0.02 HgP, Streets, 2005), we use 75%, very high end\n    REAL(fp),  PARAMETER :: K_Red_InPlume = 7.5e-1_fp\n\n    !=================================================================\n    ! RED_INPLUME_GRID begins here!\n    !=================================================================\n\n    ! Calculate the mass of Hg2 been degraded in plume\n    E_deg = K_Red_InPlume * E_plant\n\n    ! Subtract this part of Hg2 from the emission\n    EHg2_an(I,J) = EHg2_an(I,J) - E_deg\n\n    ! Degraded to Hg0\n    EHg0_an(I,J) = EHg0_an(I,J) + E_deg\n\n  END SUBROUTINE Red_InPlume_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_red_inplume\n!\n! !DESCRIPTION: Subroutine DO\\_RED\\_INPLUME conducts in plume reduction of\n!  Hg2 for selected grids.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Red_InPlume( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod, ONLY : HcoState\n    USE HCO_EmisList_Mod, ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE Time_Mod,         ONLY : Expand_Date\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  11 Jan 2011 - Y. Zhang    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I, J\n    REAL(fp)            :: E_plant\n\n    ! Strings\n    CHARACTER(LEN=255)  :: thisLoc\n    CHARACTER(LEN=512)  :: errMsg\n\n    ! Pointers\n    REAL(f4), POINTER   :: E_ELEC_Hg2(:,:)\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: SEC_PER_YR = 365.25_fp * 86400_fp\n\n    !=================================================================\n    ! DO_RED_INPLUME begins here!\n    !=================================================================\n\n    ! Initialize\n    RC         =  GC_SUCCESS\n    errMsg     =  ''\n    thisLoc    =  ' -> at DO_RED_INPLUME (in GeosCore/mercury_mod.F90)'\n    E_ELEC_Hg2 => NULL()\n\n    ! Get a pointer to the monthly mean OH from HEMCO (bmy, 3/11/15)\n    CALL HCO_GetPtr( HcoState, 'CFPP_NEI2005_Hg2', E_ELEC_Hg2, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Cannot get pointer to HEMCO field CFPP_NEI2005_Hg2!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Do the reduction\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Hg emission in CFPP sector decreased for 45.14% during 2005-2010\n       ! Convert [kg/m2/s] --> [kg/s]\n       E_plant = E_ELEC_Hg2(I,J) * State_Grid%Area_M2(I,J)\n\n       ! Reduce the Hg2 from plume\n       CALL RED_INPLUME_GRID( I, J, E_plant )\n\n    ENDDO\n    ENDDO\n\n    ! Free npointer\n    E_ELEC_Hg2 => NULL()\n\n  END SUBROUTINE Do_Red_InPlume\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: offlineocean_readmo\n!\n! !DESCRIPTION: Subroutine OFFLINEOCEAN\\_READMO reads the monthly varying\n!     offline ocean evasion emissions if LDYNOCEAN is FALSE. Will not actually\n!     need mixed layer depth when i get stuff from Yanxu\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OfflineOcean_ReadMo( State_Chm, State_Diag, State_Grid,         &\n                                  State_Met, FLUX, RC                       )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE TIME_MOD,          ONLY : EXPAND_DATE,GET_YEAR, GET_TS_EMIS\n    USE TIME_MOD,          ONLY : ITS_A_NEW_MONTH, GET_MONTH\n    USE State_Chm_Mod,     ONLY : ChmState\n    USE State_Diag_Mod,    ONLY : DgnState\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE State_Met_Mod,     ONLY : MetState\n    USE HCO_State_GC_Mod,  ONLY : HcoState\n    USE HCO_EmisList_Mod,  ONLY : HCO_GetPtr\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)    :: State_Chm    ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State Object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,         INTENT(OUT)   :: FLUX(State_Grid%NX,State_Grid%NY)\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  12 Aug 2015 - H. Horowitz - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                 :: I, J, M, DN(12) ! M is mon., DN is days in mon\n    INTEGER                 :: NNN\n    INTEGER                 :: THISYEAR\n    INTEGER                 :: THISMONTH\n\n    LOGICAL, SAVE           :: FIRST = .TRUE.\n    LOGICAL                 :: IS_OCEAN_BOX\n    INTEGER                 :: NN, N\n    REAL(fp)                :: A_M2,     DTSRCE\n    REAL(fp)                :: CHg0aq,   CHg0,     vi, Hg0aqtemp\n    REAL(fp)                :: TC,       TK,       Kw\n    REAL(fp)                :: Sc,       ScCO2,    USQ\n    REAL(fp)                :: FRAC_L,   FRAC_O,   H, D\n    REAL(fp)                :: FUP(State_Grid%NX,State_Grid%NY) \n    REAL(fp)                :: FDOWN(State_Grid%NX,State_Grid%NY)\n    REAL(fp)                :: Hg0aq(State_Grid%NX,State_Grid%NY)\n    REAL(fp)                :: MHg0_air\n\n    ! Conversion factor from [cm/h * ng/L] --> [kg/m2/s]\n    REAL(fp),  PARAMETER    :: TO_KGM2S = 1.0e-11_fp / 3600.0e+0_fp\n\n    ! Small numbers to avoid dividing by zero\n    REAL(fp),  PARAMETER    :: SMALLNUM = 1.0e-32_fp\n\n    REAL(fp)                :: SFCWINDSQR\n\n    ! Characters\n    CHARACTER(LEN=255)      :: thisLoc\n    CHARACTER(LEN=512)      :: errMsg\n\n    !=================================================================\n    ! OFFLINEOCEAN_READMO begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at OFFLINEOCEAN_READMO (in GeosCore/mercury_mod.F90)'\n\n    ! Get month\n    THISMONTH = GET_MONTH()\n    M         = THISMONTH\n\n    ! Days in each month (will use later) 9/16/15 hmh\n    DN =  (/ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 /)\n\n    !-----------------------------------------------------------------\n    ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n    !\n    ! Zero flux arrays of State_Diag to prevent leftover values\n    ! from the last timestep from being included in the averaging\n    !-----------------------------------------------------------------\n    IF ( State_Diag%Archive_FluxHg0fromOceanToAir ) THEN\n       State_Diag%FluxHg0fromOceanToAir = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_FluxHg0fromAirToOcean ) THEN\n       State_Diag%FluxHg0fromAirToOcean = 0.0_f4\n    ENDIF\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! read monthly ocean evasion  !\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    IF ( ITS_A_NEW_MONTH() ) THEN\n\n       CALL HCO_GetPtr( HcoState, 'GLOBAL_OCEAN', OCEAN_CONC, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Cannot get pointer to HEMCO field GLOBAL_OCEAN!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    ! Only doing Hg0 overall\n    Hg0aq = OCEAN_CONC(:,:)\n\n    ! Emission timestep [s]\n    DTSRCE = GET_TS_EMIS()\n\n    ! Loop over surface boxes\n    ! NOTE: Remove the loop over NN -- the tagged Hg simulation is not used\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,            A_M2,    vi,     ScCO2                     )&\n    !$OMP PRIVATE( J,            TC,      TK                                )&\n    !$OMP PRIVATE( N,            CHg0,    FRAC_L, FRAC_O                    )&\n    !$OMP PRIVATE( H,            Kw,      CHg0aq, Hg0aqtemp, MHg0_air       )&\n    !$OMP PRIVATE( IS_OCEAN_BOX, Sc,      Usq,    D                         )&\n    !$OMP COLLAPSE( 2                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero/initialize loop varaibles\n       A_M2 = State_Grid%Area_M2( I, J )   ! Area [m2]\n       Kw   = 0.0_fp\n       TK   = 0.0_fp\n       TC   = 0.0_fp\n\n       ! Get fractions of land and ocean in the grid box [unitless]\n       ! Use fractional land type information in MERRA. Also make sure\n       ! we do not use boxes that are mostly sea ice for consistency\n       ! FROCEAN is a constant, so to get correct ocean fraction we\n       ! need to subtract the sea ice fraction. Don't let the fraction\n       ! be less than zero (jaf, 4/26/11)\n       FRAC_L       = State_Met%FRLAND(I,J)\n       FRAC_O       = MAX( State_Met%FROCEAN(I,J) - &\n                           State_Met%FRSEAICE(I,J), 0.0_fp )\n       IS_OCEAN_BOX = ( ( FRAC_O > 0.0_fp ) .and. &\n                        ( State_Met%SEAICE00(I,J)  > 0.5_fp ) )\n\n       IF ( IS_OCEAN_BOX ) THEN\n\n          !--------------------------------------------------------------\n          ! Sea surface temperature in both [K] and [C]\n          !--------------------------------------------------------------\n          ! where TSKIN is the temperature (K) at the ground/sea surface\n          ! (Use as surrogate for SST, cap at freezing point)\n          TK     = MAX( State_Met%TSKIN(I,J), 273.15_fp )\n          TC     = TK - 273.15_fp\n\n          !==============================================================\n          ! Volatilisation of Hg0\n          !==============================================================\n\n          ! Henry's law constant (gas->liquid) [unitless] [L water/L air]\n          ! (ref: Andersson et al. 2008)\n          H      = EXP( ( -2404.3_fp / TK ) + 6.92_fp )\n\n          ! Viscosity as a function of changing temperatures\n          ! (ref: Loux 2001)\n          ! The paper says the viscosity is given in cP but us really P\n          ! and we therefor multiply with 100 to get cP.\n          vi    = ( 10**( ( 1301.0_fp / ( 998.333_fp + 8.1855_fp             &\n                  * ( TC - 20.0_fp )  + 0.00585_fp                           &\n                  * ( TC - 20.0_fp )**2 ) ) - 3.30233_fp ) ) * 100.0_fp\n\n          ! Schmidt # for Hg [unitless]\n          ! Sc = v/D = kinematic viscosity/diffusivity\n          ! (ref: Poissant et al 2000; Wilke and Chang 1995)\n          ! to correct for seawater D0 is decreased by 6% as suggested\n          ! by Wanninkhof (1992)\n          D  = 7.4e-8_fp * SQRT( 2.26_fp * 18.0_fp   )                       &\n             * TK        / ( ( 14.8_fp**0.6_fp ) *vi )\n          Sc = ( 0.017_fp * EXP( -0.025_fp * TC ) ) / D\n\n          ! Schmidt # of CO2 [unitless] for CO2 in seawater at 20 degrees C\n          ! The value is set to a constant based on other ocean studies\n          ! (Gardfeld et al. 2003, Rolfhus & Fitzgerald2004,Mason et al.2001)\n          !\n          ! Correction of the Schmidt # with temperature based on Poissant\n          ! et al. (2000) (for freshwatersystems).\n          ScCO2  = 644.7_fp + TC * ( -6.16_fp + TC * ( 0.11_fp ) )\n\n          ! Square of surface (actually 10m) wind speed [m2/s2]\n          Usq    = State_Met%U10M(I,J)**2 + State_Met%V10M(I,J)**2\n\n          !------------------------------------------------------\n          ! Parameterizations for calculating water side mass trasfer\n          ! coefficient\n          !------------------------------------------------------\n          ! Mass transfer coefficient [cm/h], from Nightingale et al. 2000\n          Kw     = ( 0.25_fp * Usq ) / SQRT( Sc / ScCO2 )\n\n          ! Hg0 tracer number (for Spc)\n          N = id_Hg0 !Hg0_Id_List(NN)\n\n          !--------------------------------------------------------\n          ! Calculate oceanic and gas-phase concentration of Hg(0)\n          !--------------------------------------------------------\n\n          ! Concentration of Hg(0) in the ocean [ng/L]\n          ! now converting from Hg0aq in mol/m3 to ng/L\n          CHg0aq = Hg0aq(I,J) * 200.59_fp * 1.0e9_fp / 1.0e3_fp\n\n          ! Gas phase Hg(0) concentration: convert [kg] -> [ng/L]\n          MHg0_air = State_Chm%Species(N)%Conc(I,J,1)\n          CHg0     = MHg0_air *  1.0e9_fp /State_Met%AIRVOL(I,J,1)\n\n          !--------------------------------------------------------\n          ! Compute flux of Hg(0) from the ocean to the air\n          !--------------------------------------------------------\n\n          ! Compute ocean flux of Hg0 [cm/h*ng/L]\n          FLUX(I,J)     = Kw * ( CHg0aq - ( CHg0 / H ) )\n\n          !Extra diagnostic: compute flux up and flux down\n          FUP(I,J)   = ( Kw * CHg0aq )\n          FDOWN(I,J) = ( Kw * CHg0 / H )\n\n          !--------------------------------------------------\n          ! Convert [cm/h*ng/L] --> [kg/m2/s] --> [kg/s]\n          ! Also account for ocean fraction of grid box\n          FLUX(I,J)  = FLUX(I,J) * TO_KGM2S * A_M2 * FRAC_O\n\n          ! hmh 5/11/16 reverting to old version and uncommenting here\n          FUP(I,J)   = FUP(I,J)   * TO_KGM2S * A_M2 * FRAC_O\n          FDOWN(I,J) = FDOWN(I,J) * TO_KGM2S * A_M2 * FRAC_O\n          !--------------------------------------------------\n\n          !--------------------------------------------------------\n          ! Flux limited by ocean and atm Hg(0)\n          !--------------------------------------------------------\n\n          ! Cap the flux w/ the available Hg(0) ocean mass\n          Hg0aqtemp = CHg0aq * A_M2 * FRAC_O *1.0e-8_fp\n\n          IF ( FLUX(I,J) * DTSRCE > Hg0aqtemp ) THEN\n             FLUX(I,J) = Hg0aqtemp / DTSRCE\n             FUP(I,J)  = FLUX(I,J)-FDOWN(I,J)\n          ENDIF\n\n          ! Cap the neg flux w/ the available Hg(0) atm mass\n          IF ( (-FLUX(I,J) * DTSRCE ) > MHg0_air ) THEN\n             FLUX(I,J) = -MHg0_air / DTSRCE\n          ENDIF\n\n          ! make sure Fup and Fdown do not underflow either\n          ! debug 2x2.5 diagnostic?\n          FUP(I,J)   = MAX( FUP(I,J),   SMALLNUM )\n          FDOWN(I,J) = MAX( FDOWN(I,J), SMALLNUM )\n\n          !--------------------------------------------------------\n          ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n          !\n          ! Fluxes of Hg0 from air to ocean and ocean to air [kg/s]\n          ! NOTE: Implement for total Hg species at ths time\n          !--------------------------------------------------------\n\n          ! Flux of Hg0 from ocean to air [kg/s]\n          IF ( State_Diag%Archive_FluxHg0fromOceanToAir ) THEN\n             State_Diag%FluxHg0fromOceanToAir(I,J) = FUP(I,J)\n          ENDIF\n\n          IF ( State_Diag%Archive_FluxHg0fromAirToOcean ) THEN\n             State_Diag%FluxHg0fromAirToOcean(I,J) = FDOWN(I,J)\n          ENDIF\n\n       ELSE\n\n          FLUX(I,J)  = 0.0_fp\n          FUP(I,J)   = 0.0_fp\n          FDOWN(I,J) = 0.0_fp\n\n       ENDIF\n    ENDDO\n    ENDDO\n   !$OMP END PARALLEL DO\n\n  END SUBROUTINE OfflineOcean_ReadMo\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_mercury\n!\n! !DESCRIPTION: Subroutine INIT\\_MERCURY allocates and zeroes all\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Mercury( Input_Opt,  State_Grid, State_Chm,                &\n                           State_Diag, State_Met,  RC                       )\n!\n! !USES:\n!\n    USE Cmn_Size_Mod,       ONLY : nAer, nDust\n    USE ErrCode_Mod\n    USE GcKpp_Monitor,      ONLY : Eqn_Names, Fam_Names\n    USE GcKpp_Parameters,   ONLY : nFam, nReact\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Photolysis_Mod,     ONLY : Init_Photolysis\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt     ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid    ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met     ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm     ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag    ! Diagnostic State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  02 Dec 2004 - N. (Eckley) Selin - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: IS_INIT = .FALSE.\n\n    ! Scalars\n    INTEGER                :: I,     KppId, N,         P\n    INTEGER                :: p_BrO, p_ClO, p_Hg2ORGP, p_NO2\n    INTEGER                :: nPhotRxns\n\n    ! Strings\n    CHARACTER(LEN=255)     :: thisLoc\n    CHARACTER(LEN=512)     :: errMsg\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !========================================================================\n    ! INIT_MERCURY begins here!\n    !========================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Return if we have already allocated arrays\n    IF ( IS_INIT ) RETURN\n\n    ! Continue initialization\n    SpcInfo   => NULL()\n    errMsg    = ''\n    thisLoc   = '-> at DEFINE_TAGGED_Hg (in GeosCore/mercury_mod.F90)'\n\n    ! Write reactions\n    WRITE( 6 ,'(a)' ) ' KPP Reaction Reference '\n    DO N = 1, NREACT\n        WRITE( 6, '(i8,a3,a85)' ) N,' | ',EQN_NAMES(N)\n    END DO\n\n    !========================================================================\n    ! Pre-store the KPP indices for each KPP prod/loss species or family\n    !========================================================================\n    IF ( nFam > 0 ) THEN\n\n        ! Allocate mapping array for KPP Ids for prod/loss diagnostic\n        ALLOCATE( PL_Kpp_Id( nFam ), STAT=RC )\n        CALL GC_CheckVar( 'mercury_mod.F90:PL_Kpp_Id', 0, RC )\n        IF ( RC /= GC_SUCCESS ) RETURN\n\n        ! Loop over all KPP prod/loss species\n        DO N = 1, nFam\n            ! NOTE: KppId is the KPP ID # for each of the prod and loss\n            ! diagnostic species.  This is the value used to index the\n            ! KPP \"VAR\" array (in module gckpp_Global.F90).\n            KppID = Ind_( TRIM ( Fam_Names(N) ), 'K' )\n\n            ! If the species ID is OK, save in ND65_Kpp_Id\n            PL_Kpp_Id(N) = KppId\n        ENDDO\n\n    ENDIF\n\n    ! Set oxidant species IDs\n    id_O3       = Ind_( 'O3'      )\n    id_OH       = Ind_( 'OH'      )\n    id_HO2      = Ind_( 'HO2'     )\n    id_ClO      = Ind_( 'ClO'     )\n    id_Cl       = Ind_( 'Cl'      )\n    id_NO2      = Ind_( 'NO2'     )\n    id_NO       = Ind_( 'NO'      )\n    id_Br       = Ind_( 'Br'      )\n    id_BrO      = Ind_( 'BrO'     )\n\n    ! Locate Hg gas species\n    id_Hg0      = Ind_( 'Hg0'     )\n    id_HgBrNO2  = Ind_( 'HgBrNO2' )\n    id_HgBrHO2  = Ind_( 'HgBrHO2' )\n    id_HgBrOH   = Ind_( 'HgBrOH ' )\n    id_HgBrBrO  = Ind_( 'HgBrBrO' )\n    id_HgBrClO  = Ind_( 'HgBrClO' )\n    id_HgBr2    = Ind_( 'HgBr2  ' )\n    id_HgClNO2  = Ind_( 'HgClNO2' )\n    id_HgClHO2  = Ind_( 'HgClHO2' )\n    id_HgClOH   = Ind_( 'HgClOH ' )\n    id_HgClBrO  = Ind_( 'HgClBrO' )\n    id_HgClClO  = Ind_( 'HgClClO' )\n    id_HgClBr   = Ind_( 'HgClBr'  )\n    id_HgOHNO2  = Ind_( 'HgOHNO2' )\n    id_HgOHHO2  = Ind_( 'HgOHHO2' )\n    id_HgOHOH   = Ind_( 'HgOHOH ' )\n    id_HgOHBrO  = Ind_( 'HgOHBrO' )\n    id_HgOHClO  = Ind_( 'HgOHClO' )\n    id_HgCl2    = Ind_( 'HgCl2'   )\n    id_Hg2ClP   = Ind_( 'Hg2ClP'  )\n    id_Hg2ORGP  = Ind_( 'Hg2ORGP' )\n    id_Hg2STRP  = Ind_( 'Hg2STRP' )\n    id_HgBr     = Ind_( 'HgBr'    )\n    id_HgCl     = Ind_( 'HgCl'    )\n    id_HgOH     = Ind_( 'HgOH'    )\n    id_HgBrO    = Ind_( 'HgBrO'   )\n    id_HgClO    = Ind_( 'HgClO'   )\n    id_HgOHO    = Ind_( 'HgOHO'   )\n\n    ! Initialize variables\n    nHg2gasSpc = 0\n    Map_Hg2gas = 0\n\n    IF ( id_HGBrNO2 > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGBrNO2\n    ENDIF\n    IF ( id_HGBrHO2 > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGBrHO2\n    ENDIF\n    IF ( id_HGBrOH  > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGBrOH\n    ENDIF\n    IF ( id_HGBrBrO > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGBrBrO\n    ENDIF\n    IF ( id_HGBrClO > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGBrClO\n    ENDIF\n    IF ( id_HGBr2 > 0   ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGBr2\n    ENDIF\n    IF ( id_HGClNO2 > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGClNO2\n    ENDIF\n    IF ( id_HGClHO2 > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGClHO2\n    ENDIF\n    IF ( id_HGClOH  > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HgClOH\n    ENDIF\n    IF ( id_HGClBrO > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGClBrO\n    ENDIF\n    IF ( id_HGClClO > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGClClO\n    ENDIF\n    IF ( id_HGClBr > 0  ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGClBr\n    ENDIF\n    IF ( id_HGOHNO2 > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGOHNO2\n    ENDIF\n    IF ( id_HGOHHO2 > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGOHHO2\n    ENDIF\n    IF ( id_HGOHOH  > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HgOHOH\n    ENDIF\n    IF ( id_HGOHBrO > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGOHBrO\n    ENDIF\n    IF ( id_HGOHClO > 0 ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGOHClO\n    ENDIF\n    IF ( id_HGCl2  > 0  ) THEN\n       nHg2gasSpc           = nHg2gasSpc + 1\n       Map_Hg2gas(nHg2gasSpc) = id_HGCl2\n    ENDIF\n\n    !========================================================================\n    ! Allocate module arrays\n    !========================================================================\n    ALLOCATE( COSZM( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:COSZM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    COSZM = 0e+0_fp\n\n    ALLOCATE( EHg0_an( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg0_an', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg0_an = 0e+0_fp\n\n    ALLOCATE( EHg0_dist( State_Grid%NX, State_Grid%NY), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg0_dist', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg0_dist = 0e+0_fp\n\n    ALLOCATE( EHg0_ln( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg0_ln', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg0_ln = 0e+0_fp\n\n    ALLOCATE( EHg0_oc( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg0_oc', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg0_oc = 0e+0_fp\n\n    ALLOCATE( EHg0_so( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg0_snow', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg0_so = 0e+0_fp\n\n    ALLOCATE( EHg0_snow( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg0_snow', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg0_snow = 0e+0_fp\n\n    ALLOCATE( EHg2_an( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:EHg2_an', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    EHg2_an = 0e+0_fp\n\n    ALLOCATE( TCOSZ( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:TCOSZ', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TCOSZ = 0e+0_fp\n\n    ALLOCATE( TTDAY( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:TTDAY', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TTDAY = 0e+0_fp\n\n    ! Allocate ZERO_DVEL if we use non-local PBL mixing or\n    ! if drydep is turned off\n    IF ( Input_Opt%LNLPBL .OR. ( .not. Input_Opt%LDRYD ) ) THEN\n       ALLOCATE( ZERO_DVEL( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       CALL GC_CheckVar( 'mercury_mod.F90:ZERO_DVEL', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       ZERO_DVEL = 0e+0_fp\n    ENDIF\n\n    ALLOCATE( HG2_SEASALT_LOSSRATE( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:HG2_SEASALT_LOSSRATE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    HG2_SEASALT_LOSSRATE = 0e+0_fp\n\n    ALLOCATE( srMw( nHg2GasSpc ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:srMw', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    srMw = 0.0_fp\n\n    ! HG_EMIS is needed for non-local PBL mixing\n    ALLOCATE( HG_EMIS( State_Grid%NX, State_Grid%NY, State_Chm%nAdvect ),    &\n              STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:HG_EMIS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    HG_EMIS = 0e+0_fp\n\n    !========================================================================\n    ! Allocate and initialize oxidant concentration pointer\n    !========================================================================\n    ALLOCATE( FixSpcPtr( State_Chm%nKppFix ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:FixSpcPtr', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Number of aerosol & dust speices\n    N_Aer  =  NAER\n    N_Dust =  NDUST\n\n    ! Aerosol species name\n    ALLOCATE( AerSpcNames ( N_Dust + N_Aer ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:AerSpcNames', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    AerSpcNames = (/'DST1  ','DST2  ','DST3  ','DST4  ','DST5  ','DST6  ',   &\n                    'DST7  ','SO4   ','BC    ','OC    ','SSA   ','SSC   ',   &\n                    'BGSULF','ICEI  '                                      /)\n\n    ALLOCATE( AeroPtr( N_Dust + N_Aer ), STAT=RC )\n    CALL GC_CheckVar( 'mercury_mod.F90:AeroPtr', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !========================================================================\n    ! Pre-save square root of Hg2 species molecular weights, which are\n    ! needed within PartitionHg2.  This saves unnecesary CPU cycles.\n    !========================================================================\n    DO N = 1, nHg2gasSpc\n       P       = Map_Hg2gas(N)\n       srMw(N) = SQRT( State_Chm%SpcData(P)%Info%MW_g )\n\n       ! Also save the sqrt(MW) for HgCl2\n       IF ( State_Chm%SpcData(P)%Info%Name(1:5) == 'HgCl2' ) THEN\n          srMw_HgCl2 = srMw(N)\n       ENDIF\n    ENDDO\n\n    !=======================================================================\n    ! Assign default values for KPP absolute and relative tolerances\n    ! for species where these have not been explicitly defined.\n    !=======================================================================\n    WHERE( State_Chm%KPP_AbsTol == MISSING_DBLE )\n       State_Chm%KPP_AbsTol = 1.0e-2_f8\n    ENDWHERE\n\n    WHERE( State_Chm%KPP_RelTol == MISSING_DBLE )\n       State_Chm%KPP_RelTol = 1.0e-2_f8\n    ENDWHERE\n\n    !========================================================================\n    ! Various Settings (not sure how many of these still work)\n    !========================================================================\n\n    ! Switch uses ocean rate coefficients from parameter inversion,\n    ! ref. Song et al. 2015 ACP\n    LOCEANCOEF=.FALSE.\n\n    ! Switch determines whether uptake of Hg2 by sea-salt aerosol\n    ! is calculated dynamically (TRUE) or uses a constant rate (FALSE)\n    LDYNSEASALT = .TRUE.\n\n    ! Use GEIA 2005 inventory\n    LGEIA05=.FALSE.\n\n    ! Switch use NEI2005 and NPRI2005 emission inventories\n    LNEI2005=.TRUE.\n\n    ! Switch modifying the speciation profile of Hg emission\n    LInPlume=.FALSE.\n\n    ! no Hg emitted through transpiration (VEGEMIS off)\n    LVEGEMIS=.FALSE.\n\n    ! Switch adds bromine in marine boundary layer\n    L_ADD_MBL_Br=.FALSE.\n\n    ! Switch adds bromine explosion in Northern springtime\n    LPOLARBr=.TRUE.\n\n    ! Switch for only doing reduction in cloud water\n    LRED_CLOUDONLY = .TRUE.\n\n    ! Switch for using GEOS-Chem tropospheric bromine fields,\n    ! ref. Parrella et al. 2012, instead of older TOMCAT fields\n    LGCBROMINE = .TRUE.\n\n    ! Switch specifies that Hg2 is 50% bound to aerosol and 50% in\n    ! gas phase (TRUE). If FALSE, then use temperature dependent\n    ! partitioning as described in Amos et al. (2011, ACPD)\n    LHg2HalfAerosol = .FALSE.\n\n    ! Switch turns on snowpack Hg storage until snowmelt\n    LHGSNOW = .TRUE.\n\n    ! Multiplicative factor for increasing stratospheric Br and BrO\n    STRAT_Br_FACTOR = 1e+0_fp\n\n    ! Switch turns off all emissions except direct anthropogenic\n    LAnthroHgOnly = .FALSE.\n\n    ! Switch turns off all anthropogenic emissions from contiguous USA\n    LnoUSAemis = .FALSE.\n\n    !========================================================================\n    ! Initialize photolysis\n    !========================================================================\n    CALL Init_Photolysis( Input_Opt,  State_Grid, State_Chm,                 &\n                          State_Diag, State_Met,  RC                        )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Init_Photolysis\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Find where certain species are stored in the FAST-JX rate array ZPJ\n    !========================================================================\n\n    ! Initialize photolysis indices from species database\n    p_BrO          = Ind_( 'BrO',     'P' )\n    p_ClO          = Ind_( 'ClO',     'P' )\n    p_Hg2ORGP      = Ind_( 'Hg2ORGP', 'P' )\n    p_NO2          = Ind_( 'NO2',     'P' )\n\n    ! Initialize variables for # reactions and slots of ZPJ\n    nPhotRxns      = State_Chm%Phot%nPhotRxns\n    id_phot_BrO    = 0\n    id_phot_ClO    = 0\n    id_phot_Hg2Org = 0\n    id_phot_NO2    = 0\n\n    ! Loop over all photolysis reactions\n    DO N = 1, nPhotRxns\n\n       ! GC photolysis species index (skip if not present)\n       P = State_Chm%Phot%GC_Photo_Id(N)\n       IF ( P <= 0 ) CYCLE\n\n       ! Define the slots in the ZPJ array for several species.\n       ! We will use this in the ChemMercury routine above.\n       IF ( P == p_BrO     ) id_phot_BrO    = N\n       IF ( P == p_ClO     ) id_phot_ClO    = N\n       IF ( P == p_Hg2ORGP ) id_phot_Hg2Org = N\n       IF ( P == p_NO2     ) id_phot_NO2    = N\n    ENDDO\n\n    ! Error checks\n    IF ( id_phot_BrO <= 0 .or. id_phot_BrO > nPhotRxns ) THEN\n       errMsg = 'Invalid photolysis index for BrO!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( id_phot_ClO <= 0 .or. id_phot_ClO > nPhotRxns ) THEN\n       errMsg = 'Invalid photolysis index for ClO!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( id_phot_Hg2Org <= 0 .or. id_phot_Hg2Org > nPhotRxns ) THEN\n       errMsg = 'Invalid photolysis index for HG2ORGP!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( id_phot_NO2 <= 0 .or. id_phot_NO2 > nPhotRxns ) THEN\n       errMsg = 'Invalid photolysis index for NO2!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! Done!  Reset IS_INIT, since we have already allocated arrays\n    !=================================================================\n    IS_INIT = .TRUE.\n\n  END SUBROUTINE Init_Mercury\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_options_from_hemco\n!\n! !DESCRIPTION: Overrides some of the Hg simulation settings depending on\n!  the inputs that are specified in the HEMCO configuration file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Options_From_Hemco( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_ERROR_MOD\n    USE HCO_State_GC_Mod,  ONLY : HcoState\n    USE HCO_ExtList_Mod,   ONLY : GetExtOpt\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE State_Grid_Mod,    ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt\n    TYPE(GrdState), INTENT(IN)  :: State_Grid\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC   ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL :: LGC\n    LOGICAL :: LTOMCAT\n    LOGICAL :: LPREINDHG\n    LOGICAL :: FOUND\n\n    ! Strings\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    !-----------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------\n    RC      = HCO_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at SET_OPTIONS_FROM_HEMCO (in GeosCore/mercury_mod.F90)'\n\n    !-----------------------------------------------------------------\n    ! Set the value of chemistry flags depending on whether or not\n    ! the HEMCO collection LFLAGNAME is activated\n    !-----------------------------------------------------------------\n    CALL GetExtOpt( HcoState%Config, -999, 'LHALOGENCHEM', &\n                    OptValBool=LHALOGENCHEM, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'LHALOGENCHEM not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LHALOGENCHEM = .TRUE.\n    ENDIF\n\n    CALL GetExtOpt( HcoState%Config, -999, 'LHGAQCHEM', &\n                    OptValBool=LHGAQCHEM, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'LHGAQCHEM not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LHGAQCHEM = .FALSE.\n    ENDIF\n\n    CALL GetExtOpt( HcoState%Config, -999, 'LBRCHEM', &\n                    OptValBool=LBRCHEM, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'LBRCHEM not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LBRCHEM = .FALSE.\n    ENDIF\n\n    CALL GetExtOpt( HcoState%Config, -999, 'LBROCHEM', &\n                    OptValBool=LBROCHEM, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'LBROCHEM not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LBROCHEM = .FALSE.\n    ENDIF\n\n    CALL GetExtOpt( HcoState%Config, -999, 'LOHO3CHEM', &\n                    OptValBool=LOHO3CHEM, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'LOHO3CHEM not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LOHO3CHEM = .FALSE.\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Set the value of LGCBROMINE depending on the values of the\n    ! HEMCO collections BrOx_GC and BrOx_TOMCAT\n    !-----------------------------------------------------------------\n\n    ! First look for BrOx_GC\n    CALL GetExtOpt( HcoState%Config, -999, 'BrOx_GC', &\n                    OptValBool=LGC, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'BrOx_GC not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LGC = .FALSE.\n    ENDIF\n\n    ! Set LGCBROMINE = .TRUE. if BrOx_GC is true\n    LGCBROMINE = LGC\n\n    ! Set BrOx_TOMCAT to be the opposite of LGCBROMINE\n    LTOMCAT   = ( .not. LGCBROMINE )\n\n    ! Are we doing a preindustrial simulation?\n    LPREINDHG = Input_Opt%LPREINDHG\n\n    !-----------------------------------------------------------------\n    ! Set the value of LNEI2005 depending on whether or not\n    ! the HEMCO collection NEI2005 is activated\n    !-----------------------------------------------------------------\n    CALL GetExtOpt( HcoState%Config, -999, 'NEI2005', &\n                    OptValBool=LNEI2005, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'NEI2005 not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LNEI2005 = .FALSE.\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Set the value of LInPlume depending on whether or not\n    ! the HEMCO collection NEI2005 is activated\n    !-----------------------------------------------------------------\n    CALL GetExtOpt( HcoState%Config, -999, 'LRED_INPLUME', &\n                    OptValBool=LInPlume, FOUND=FOUND, RC=RC )\n    IF ( RC /= HCO_SUCCESS ) THEN\n       errMsg = 'LRED_INPLUME not found in HEMCO_Config.rc file!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    IF ( .not. FOUND ) THEN\n       LInPlume = .FALSE.\n    ENDIF\n\n    ! In plume degradation of Hg2 by SO2 in U.S. and Canada at CFPPs,\n    ! (yzh 11/1/2011).  Move this here so that the HEMCO_Config file\n    ! will have been already read by this point. (bmy, 10/11/16)\n    IF ( LInPlume .AND. .NOT. LPREINDHG .AND. LNEI2005 ) THEN\n       CALL DO_RED_INPLUME( Input_Opt, State_Grid, RC )\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Echo output\n    !-----------------------------------------------------------------\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    WRITE( 6, 100   )\n    WRITE( 6, 120   ) LGCBROMINE\n    WRITE( 6, 130   ) LNEI2005\n    WRITE( 6, 140   ) LInPlume\n    WRITE( 6, 150   ) LHALOGENCHEM\n    WRITE( 6, 160   ) LHGAQCHEM\n    WRITE( 6, 170   ) LBRCHEM\n    WRITE( 6, 180   ) LBROCHEM\n    WRITE( 6, 190   ) LOHO3CHEM\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n100 FORMAT( 'Adjusting Hg simulation settings from HEMCO inputs' )\n120 FORMAT( 'LGCBROMINE is set to ', L1                          )\n130 FORMAT( 'LNEI2005   is set to ', L1                          )\n140 FORMAT( 'LInPlume   is set to ', L1                          )\n150 FORMAT( 'LHALOGENCHEM   is set to ', L1                          )\n160 FORMAT( 'LHGAQCHEM  is set to ', L1                          )\n170 FORMAT( 'LBRCHEM    is set to ', L1                          )\n180 FORMAT( 'LBROCHEM   is set to ', L1                          )\n190 FORMAT( 'LOHO3CHEM  is set to ', L1                          )\n\n  END SUBROUTINE Set_Options_From_Hemco\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_mercury\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_MERCURY deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Mercury\n!\n! !REVISION HISTORY:\n!  06 Dec 2004 - N. (Eckley) Selin - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Deallocate module arrays\n    IF ( ALLOCATED( COSZM                ) ) DEALLOCATE( COSZM                )\n    IF ( ALLOCATED( EHg0_an              ) ) DEALLOCATE( EHg0_an              )\n    IF ( ALLOCATED( EHg0_ln              ) ) DEALLOCATE( EHg0_ln              )\n    IF ( ALLOCATED( EHg0_oc              ) ) DEALLOCATE( EHg0_oc              )\n    IF ( ALLOCATED( EHg0_so              ) ) DEALLOCATE( EHg0_so              )\n    IF ( ALLOCATED( EHg0_snow            ) ) DEALLOCATE( EHg0_snow            )\n    IF ( ALLOCATED( EHg2_an              ) ) DEALLOCATE( EHg2_an              )\n    IF ( ALLOCATED( srMw                 ) ) DEALLOCATE( srMw                 )\n    IF ( ALLOCATED( TCOSZ                ) ) DEALLOCATE( TCOSZ                )\n    IF ( ALLOCATED( TTDAY                ) ) DEALLOCATE( TTDAY                )\n    IF ( ALLOCATED( ZERO_DVEL            ) ) DEALLOCATE( ZERO_DVEL            )\n    IF ( ALLOCATED( HG2_SEASALT_LOSSRATE ) ) DEALLOCATE( HG2_SEASALT_LOSSRATE )\n    IF ( ALLOCATED( HG_EMIS              ) ) DEALLOCATE( HG_EMIS              )\n\n    ! Free pointers to HEMCO fields\n    O3          => NULL()\n    OH          => NULL()\n    JNO2        => NULL()\n    NO          => NULL()\n    NO2         => NULL()\n    CLO         => NULL()\n    CL          => NULL()\n    OA          => NULL()\n    HOCl        => NULL()\n    HO2         => NULL()\n    OCEAN_CONC  => NULL()\n\n  END SUBROUTINE Cleanup_Mercury\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Kpp_GridBox_Values\n!\n! !DESCRIPTION: Populates KPP variables in the gckpp_Global.F90 module\n!  for a particular (I,J,L) grid box.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Kpp_GridBox_Values( I,         J,         L,                &\n                                     Input_Opt, State_Chm, State_Grid,       &\n                                     State_Met, RC                          )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GcKpp_Global\n    USE GcKpp_Parameters\n    USE GcKpp_Global,     ONLY : State_Het\n    USE Hg_HetStateFuncs, ONLY : Hg_SetStateHet\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE PhysConstants,    ONLY : AVO, CONSVAP, PI, RGASLATM, RSTARG\n    USE Pressure_Mod,     ONLY : Get_Pcenter\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(ChmState), INTENT(IN)    :: State_Chm\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(MetState), INTENT(IN)    :: State_Met\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,       S\n    REAL(f8)           :: CONSEXP, VPRESH2O\n\n    ! Characters\n    CHARACTER(LEN=255) :: errMsg,  thisLoc\n\n    !========================================================================\n    ! Set_Kpp_GridBox_Values begins here!\n    !========================================================================\n\n    ! Initialization\n    RC      =  GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n       ' -> at Set_Kpp_GridBox_Values (in module GeosCore/mercury_mod.F90'\n\n    !========================================================================\n    ! Copy species concentrations into gckpp_Global variables\n    !========================================================================\n    DO N = 1, NSPEC\n       S    = State_Chm%Map_KppSpc(N)\n       C(N) = 0.0_f8\n       IF ( S > 0 ) THEN\n          C(N) = State_Chm%Species(S)%Conc(I,J,L)\n       ENDIF\n    ENDDO\n\n    !========================================================================\n    ! Populate global variables in gckpp_Global.F90\n    !========================================================================\n\n    ! Pressure and density quantities\n    NUMDEN          = State_Met%AIRNUMDEN(I,J,L)\n    H2O             = State_Met%AVGW(I,J,L) * NUMDEN\n    PRESS           = Get_Pcenter( I, J, L )\n\n    ! Temperature quantities\n    TEMP            = State_Met%T(I,J,L)\n    INV_TEMP        = 1.0_dp   / TEMP\n    TEMP_OVER_K300  = TEMP     / 300.0_dp\n    K300_OVER_TEMP  = 300.0_dp / TEMP\n    SR_TEMP         = SQRT( TEMP )\n\n    ! Relative humidity quantities\n    CONSEXP         = 17.2693882_f8 * (TEMP - 273.16_f8) / (TEMP - 35.86_f8)\n    VPRESH2O        = CONSVAP * EXP( CONSEXP ) / TEMP\n\n    !========================================================================\n    ! Populate variables in the HetChem state object\n    !========================================================================\n    CALL Hg_SetStateHet(                                                     &\n         I          = I,                                                     &\n         J          = J,                                                     &\n         L          = L,                                                     &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Met  = State_Met,                                             &\n         H          = State_Het,                                             &\n         fracOrgAer = GLOB_FOA(I,J,L),                                       &\n         RC         = RC                                                     )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in routine \"fullchem_SetStateHet\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Set_Kpp_GridBox_Values\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Hg_ZeroDiagArrays\n!\n! !DESCRIPTION: Zeroes diagnostic archival arrays to make sure that we\n!  don't have any leftover values from the last timestep near the top of\n!  the chemistry grid.  This was abstracted out of ChemMercury\n!  in order to reduce clutter.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Hg_ZeroDiagArrays( State_Diag )\n!\n! !USES:\n!\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostic State object\n!\n! !REVISION HISTORY:\n!  07 May 2025 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !========================================================================\n    ! Hg_ZeroDiagArrays begins here!\n    !========================================================================\n\n    !------------------------------------------\n    ! %%%%% Prod & loss diagnostics %%%%%\n    !------------------------------------------\n\n    IF ( State_Diag%Archive_Loss ) THEN\n       State_Diag%Loss = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_Prod ) THEN\n       State_Diag%Prod = 0.0_f4\n    ENDIF\n\n    IF (State_Diag%Archive_SatDiagnLoss ) THEN\n       State_Diag%SatDiagnLoss = 0.0_f4\n    ENDIF\n\n    IF (State_Diag%Archive_SatDiagnProd ) THEN\n       State_Diag%SatDiagnProd = 0.0_f4\n    ENDIF\n\n    !------------------------------------------\n    ! %%%%% J-value diagnostics %%%%%\n    !------------------------------------------\n\n    IF ( State_Diag%Archive_JVal ) THEN\n       State_Diag%JVal = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_SatDiagnJVal ) THEN\n       State_Diag%SatDiagnJVal = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_JNoon ) THEN\n       State_Diag%JNoon = 0.0_f4\n    ENDIF\n\n    !------------------------------------------\n    ! %%%%% Reaction rate diagnostics %%%%%\n    !------------------------------------------\n\n    IF ( State_Diag%Archive_RxnRate ) THEN\n       State_Diag%RxnRate = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_RxnConst ) THEN\n       State_Diag%RxnConst = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_SatDiagnRxnRate ) THEN\n       State_Diag%SatDiagnRxnRate = 0.0_f4\n    ENDIF\n\n    !------------------------------------------\n    ! %%%%% Chemistry diagnostics %%%%%\n    !------------------------------------------\n\n    IF ( State_Diag%Archive_OHreactivity ) THEN\n       State_Diag%OHreactivity = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_HgBrAfterChem ) THEN\n       State_Diag%HgBrAfterChem = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_HgClAfterChem ) THEN\n       State_Diag%HgClAfterChem = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_HgOHAfterChem ) THEN\n       State_Diag%HgOHAfterChem = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_HgBrOAfterChem ) THEN\n       State_Diag%HgBrOAfterChem = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_HgClOAfterChem ) THEN\n       State_Diag%HgClOAfterChem = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_HgOHOAfterChem ) THEN\n       State_Diag%HgOHOAfterChem = 0.0_f4\n    ENDIF\n\n    !------------------------------------------\n    ! %%%%% KPP solver statistics  %%%%%\n    !------------------------------------------\n\n    IF ( State_Diag%Archive_KppDiags ) THEN\n\n       IF (State_Diag%Archive_KppIntCounts ) THEN\n          State_Diag%KppIntCounts = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppJacCounts ) THEN\n          State_Diag%KppJacCounts = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppTotSteps ) THEN\n          State_Diag%KppTotSteps = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppAccSteps ) THEN\n          State_Diag%KppAccSteps = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppRejSteps ) THEN\n          State_Diag%KppRejSteps = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppLuDecomps) THEN\n          State_Diag%KppLuDecomps = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppSubsts ) THEN\n          State_Diag%KppSubsts = 0.0_f4\n       ENDIF\n\n       IF ( State_Diag%Archive_KppSmDecomps) THEN\n          State_Diag%KppSmDecomps = 0.0_f4\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Hg_ZeroDiagArrays\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Hg_UpdateRxnDiags\n!\n! !DESCRIPTION: Updates History diagnostic arrays for KPP reaction rates,\n!  rate constants, and solver statistics.  This was abstracted out of\n!  routine Chem_Carbon_gases to reduce clutter.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Hg_UpdateRxnDiags( I, J, L, State_Diag )\n!\n! !USES:\n!\n    USE gckpp_Global,     ONLY : C,      RCONST\n    USE gckpp_Function,   ONLY : Fun\n    USE gckpp_Parameters, ONLY : NREACT, NSPEC,  NVAR\n    USE gckpp_Precision\n    USE State_Diag_Mod,   ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box indices\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostic State object\n!\n! !REVISION HISTORY:\n!  06 May 2025 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n\n    ! Scalars\n    INTEGER  :: N, S\n\n    ! Arrays\n    REAL(dp) :: Aout(NREACT)\n    REAL(dp) :: Vloc(NVAR)\n\n    !========================================================================\n    ! HISTORY: Archive KPP reaction rates [molec cm-3 s-1]\n    !\n    ! See gckpp_Monitor.F90 for a list of chemical reactions\n    !========================================================================\n    IF ( State_Diag%Archive_RxnRate                                     .or. &\n         State_Diag%Archive_SatDiagnRxnRate                           ) THEN\n\n       ! Get equation rates (Aout)\n       CALL Fun( V    = C(1:NVAR),                                           &\n                 F    = C(NVAR+1:NSPEC),                                     &\n                 RCT  = RCONST,                                              &\n                 Vdot = Vloc,                                                &\n                 Aout = Aout                                                )\n\n       ! Archive the RxnRate diagnostic collection\n       IF ( State_Diag%Archive_RxnRate ) THEN\n          DO S = 1, State_Diag%Map_RxnRate%nSlots\n             N = State_Diag%Map_RxnRate%slot2Id(S)\n             State_Diag%RxnRate(I,J,L,S) = Aout(N)\n          ENDDO\n       ENDIF\n\n       ! Archive the SatDiagnRxnRate diagnostic collection\n       IF ( State_Diag%Archive_SatDiagnRxnRate ) THEN\n          DO S = 1, State_Diag%Map_SatDiagnRxnRate%nSlots\n             N = State_Diag%Map_SatDiagnRxnRate%slot2Id(S)\n             State_Diag%SatDiagnRxnRate(I,J,L,S) = Aout(N)\n          ENDDO\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! HISTORY: Archive KPP reaction rate constants (RCONST).\n    !\n    ! The units vary.  They are already updated in Update_RCONST,\n    ! and do not require a call of Fun(). (hplin, 3/28/23)\n    !\n    ! See gckpp_Monitor.F90 for a list of chemical reactions\n    !========================================================================\n    IF ( State_Diag%Archive_RxnConst ) THEN\n       DO S = 1, State_Diag%Map_RxnConst%nSlots\n          N = State_Diag%Map_RxnConst%slot2Id(S)\n          State_Diag%RxnConst(I,J,L,S) = RCONST(N)\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE Hg_UpdateRxnDiags\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Hg_UpdateKppDiags\n!\n! !DESCRIPTION: Updates the KppDiags collection arrays, which contain\n!  statistics from the KPP integrator.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Hg_UpdateKppDiags( I,       J,         L,          ISTATUS,    &\n                                RSTATUS, Input_Opt, State_Diag, Zero_First )\n!\n    USE gckpp_Global,     ONLY : C\n    USE gckpp_Precision\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Diag_Mod,   ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box indices\n    INTEGER,        INTENT(IN)    :: ISTATUS(20)  ! Integrator statistics\n    REAL(dp),       INTENT(IN)    :: RSTATUS(20)  ! Integrator timestep info\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n    LOGICAL,        INTENT(IN)    :: Zero_First   ! Set arrays to zero first?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostic State object\n!\n! !REVISION HISTORY:\n!  08 May 2025 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !========================================================================\n    ! Hg_UpdateKppDiags begins here!\n    !========================================================================\n\n    ! Return if none of the KppDiags diagnostic fields are requested\n    IF ( .not. State_Diag%Archive_KppDiags ) RETURN\n\n    ! Check for negative concentrations after first integration\n    IF ( State_Diag%Archive_KppNegatives0 ) THEN\n       IF ( Zero_First ) State_Diag%KppNegatives0(I,J,L) = 0.0_f4\n       State_Diag%KppNegatives0(I,J,L) =                                     &\n       State_Diag%KppNegatives0(I,J,L) + REAL( COUNT( C < 0.0_dp ), KIND=4 )\n    ENDIF\n\n    ! # of integrator calls\n    IF ( State_Diag%Archive_KppIntCounts ) THEN\n       IF ( Zero_First ) State_Diag%KppIntCounts(I,J,L) = 0.0_f4\n       State_Diag%KppIntCounts(I,J,L) =                                      &\n       State_Diag%KppIntCounts(I,J,L) + ISTATUS(1)\n    ENDIF\n\n    ! # of times Jacobian was constructed\n    IF ( State_Diag%Archive_KppJacCounts ) THEN\n       IF ( Zero_First ) State_Diag%KppJacCounts(I,J,L) = 0.0_f4\n       State_Diag%KppJacCounts(I,J,L) =                                      &\n       State_Diag%KppJacCounts(I,J,L) + ISTATUS(2)\n    ENDIF\n\n    ! # of internal timesteps\n    IF ( State_Diag%Archive_KppTotSteps ) THEN\n       IF ( Zero_First ) State_Diag%KppTotSteps(I,J,L) = 0.0_f4\n       State_Diag%KppTotSteps(I,J,L) =                                       &\n       State_Diag%KppTotSteps(I,J,L) + ISTATUS(3)\n    ENDIF\n\n    ! # of accepted internal timesteps\n    IF ( State_Diag%Archive_KppAccSteps ) THEN\n       IF ( Zero_First ) State_Diag%KppAccSteps(I,J,L) = 0.0_f4\n       State_Diag%KppAccSteps(I,J,L) =                                       &\n       State_Diag%KppAccSteps(I,J,L) + ISTATUS(4)\n    ENDIF\n\n    ! # of rejected internal timesteps\n    IF ( State_Diag%Archive_KppRejSteps ) THEN\n       IF ( Zero_First ) State_Diag%KppRejSteps(I,J,L) = 0.0_f4\n       State_Diag%KppRejSteps(I,J,L) =                                       &\n       State_Diag%KppRejSteps(I,J,L) + ISTATUS(5)\n    ENDIF\n\n    ! # of LU-decompositions\n    IF ( State_Diag%Archive_KppLuDecomps ) THEN\n       IF ( Zero_First ) State_Diag%KppLuDecomps(I,J,L) = 0.0_f4\n       State_Diag%KppLuDecomps(I,J,L) =                                      &\n       State_Diag%KppLuDecomps(I,J,L) + ISTATUS(6)\n    ENDIF\n\n    ! # of forward and backwards substitutions\n    IF ( State_Diag%Archive_KppSubsts ) THEN\n       IF ( Zero_First ) State_Diag%KppSubsts(I,J,L) = 0.0_f4\n       State_Diag%KppSubsts(I,J,L) =                                         &\n       State_Diag%KppSubsts(I,J,L) + ISTATUS(7)\n    ENDIF\n\n    ! # of singular-matrix decompositions\n    IF ( State_Diag%Archive_KppSmDecomps ) THEN\n       IF ( Zero_First ) State_Diag%KppSmDecomps(I,J,L) = 0.0_f4\n       State_Diag%KppSmDecomps(I,J,L) =                                      &\n       State_Diag%KppSmDecomps(I,J,L) + ISTATUS(8)\n    ENDIF\n\n  END SUBROUTINE Hg_UpdateKppDiags\n!EOC\nEND MODULE Mercury_Mod\n"
  },
  {
    "path": "GeosCore/mixing_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: mixing_mod.F90\n!\n! !DESCRIPTION: Module mixing\\_mod.F90 is a wrapper module for the PBL mixing\n! in GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Mixing_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: DO_MIXING\n  PUBLIC :: DO_TEND\n!\n! !REVISION HISTORY:\n!  04 Mar 2015 - C. Keller   - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_mixing\n!\n! !DESCRIPTION: Subroutine DO\\_MIXING performs the PBL mixing.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Mixing( Input_Opt,  State_Chm, State_Diag, &\n                        State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Pbl_Mix_Mod,    ONLY : Do_Full_Pbl_Mixing\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Vdiff_Mod,      ONLY : Do_Vdiff\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )  :: Input_Opt   ! Input Options\n    TYPE(GrdState),   INTENT(IN   )  :: State_Grid  ! Grid State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState),   INTENT(INOUT)  :: State_Met   ! Meteorology State\n    TYPE(ChmState),   INTENT(INOUT)  :: State_Chm   ! Chemistry State\n    TYPE(DgnState),   INTENT(INOUT)  :: State_Diag  ! Diagnostics State\n    INTEGER,          INTENT(INOUT)  :: RC          ! Failure or success\n!\n! !REMARKS\n!  (A) While all dry deposition rates are calculated either in\n!      DO_PBL_MIX2 or DO_TEND, settling of aerosols is still\n!      computed in the dust/seasalt modules.\n!\n! !REVISION HISTORY:\n!  04 Mar 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: OnlyAbovePBL\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! DO_MIXING begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at DO_MIXING (in module GeosCore/mixing_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Do non-local PBL mixing. This will apply the species tendencies\n    ! (emission fluxes and dry deposition rates) below the PBL.\n    ! This is done for all species with defined emissions / dry\n    ! deposition rates, including dust.\n    !\n    ! Set OnlyAbovePBL flag (used below by DO_TEND) to indicate that\n    ! fluxes within the PBL have already been applied.\n    ! ----------------------------------------------------------------------\n    IF ( Input_Opt%LTURB .AND. Input_Opt%LNLPBL ) THEN\n\n       !--------------------------------------------------------------------\n       ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n       !\n       ! Initialize the diagnostic array for the History Component.  This will\n       ! prevent leftover values from being carried over to this timestep.\n       ! (For example, if on the last iteration, the PBL height was higher than\n       ! it is now, then we will have stored drydep fluxes up to that height,\n       ! so we need to zero these out.)\n       !--------------------------------------------------------------------\n\n       ! Non-local mixing\n       CALL Do_Vdiff( Input_Opt,  State_Chm, State_Diag,                     &\n                      State_Grid, State_Met, RC                             )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountred in \"DO_PBL_MIX_2\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Fluxes in PBL have been applied (non-local PBL mixing)\n       OnlyAbovePBL = .TRUE.\n\n    ELSE\n\n       ! Fluxes in PBL have not been applied (full PBL mixing)\n       OnlyAbovePBL = .FALSE.\n\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Apply tendencies. This will apply dry deposition rates and\n    ! emission fluxes below the PBL if it has not yet been done\n    ! via the non-local PBL mixing. It also adds the emissions above\n    ! the PBL to the species array. Emissions of some species may be\n    ! capped at the tropopause to avoid build-up in stratosphere.\n    !-----------------------------------------------------------------------\n\n    ! Apply tendencies\n    CALL DO_TEND( Input_Opt, State_Chm,  State_Diag, &\n                  State_Grid, State_Met, OnlyAbovePBL, RC )\n\n    ! Trap potential error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountred in \"DO_TEND\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Do full pbl mixing. This fully mixes the updated species\n    ! concentrations within the PBL.\n    !\n    ! Now also archive concentrations and calculate turbulence\n    ! tendencies (ckeller, 7/15/2015)\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%LTURB .AND. .NOT. Input_Opt%LNLPBL ) THEN\n\n       ! Full PBL mixing\n       CALL Do_Full_Pbl_Mixing( Input_Opt,  State_Chm, State_Diag,            &\n                                State_Grid, State_Met, RC                    )\n\n       ! Trap potential error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountred in \"DO_PBL_MIX\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE DO_MIXING\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_tend\n!\n! !DESCRIPTION: Subroutine DO\\_TEND adds the species tendencies (dry deposition\n!  and emissions) to the species array.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_TEND( Input_Opt, State_Chm,    State_Diag, State_Grid, &\n                      State_Met, OnlyAbovePBL, RC,         DT )\n!\n! !USES:\n!\n    USE Diagnostics_Mod,      ONLY : Compute_Budget_Diagnostics\n    USE ErrCode_Mod\n    USE ERROR_MOD,            ONLY : SAFE_DIV\n    USE GET_NDEP_MOD,         ONLY : SOIL_DRYDEP\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetDiagn\n    USE HCO_Utilities_GC_Mod, ONLY : GetHcoValEmis, GetHcoValDep, InquireHco\n    USE HCO_Utilities_GC_Mod, ONLY : LoadHcoValEmis, LoadHcoValDep\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE PhysConstants,        ONLY : AVO\n    USE Species_Mod,          ONLY : Species\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE TIME_MOD,             ONLY : GET_TS_DYN, GET_TS_CONV, GET_TS_CHEM\n    USE Timers_Mod,           ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n#ifdef MODEL_CLASSIC\n    use hco_utilities_gc_mod, only: TMP_MDL ! danger\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN   )           :: Input_Opt    ! Input opts\n    TYPE(MetState),   INTENT(IN   )           :: State_Met    ! Met state\n    TYPE(GrdState),   INTENT(IN   )           :: State_Grid   ! Grid state\n    LOGICAL,          INTENT(IN   )           :: OnlyAbovePBL ! Only above PBL?\n    REAL(fp),         INTENT(IN   ), OPTIONAL :: DT           ! Time step [s]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT)           :: State_Chm    ! Chemistry state\n    TYPE(DgnState),   INTENT(INOUT)           :: State_Diag   ! Diags State\n    INTEGER,          INTENT(INOUT)           :: RC           ! Success/Failure\n!\n! !REVISION HISTORY:\n!  04 Mar 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                 :: I, J, L, L1, L2, N, D, NN, NA, nAdvect, S\n    INTEGER                 :: DRYDEPID, previous_units\n    INTEGER                 :: PBL_TOP, DRYD_TOP, EMIS_TOP\n    REAL(fp)                :: TS, TMP, FRQ, RKT, FRAC, FLUX, AREA_M2\n    REAL(fp)                :: MWkg, DENOM\n    LOGICAL                 :: FND\n    LOGICAL                 :: PBL_DRYDEP, LINEAR_CHEM, ChemGridOnly\n    LOGICAL                 :: LEMIS,      LDRYD\n    LOGICAL                 :: DryDepSpec, EmisSpec\n    REAL(f8)                :: DT_Tend\n\n    ! PARANOX loss fluxes (kg/m2/s). These are obtained from the\n    ! HEMCO PARANOX extension via the diagnostics module.\n    REAL(fp)                :: PNOXLOSS\n    REAL(f4), POINTER       :: Ptr2D        (:,:) => NULL()\n    REAL(f4), POINTER       :: PNOXLOSS_O3  (:,:)\n    REAL(f4), POINTER       :: PNOXLOSS_HNO3(:,:)\n\n    ! SAVEd scalars (defined on first call only)\n    LOGICAL,           SAVE :: FIRST = .TRUE.\n    INTEGER,           SAVE :: id_MACR,  id_RCHO,  id_ACET, id_ALD2\n    INTEGER,           SAVE :: id_ALK4,  id_C2H6,  id_C3H8, id_CH2O\n    INTEGER,           SAVE :: id_PRPE,  id_O3,    id_HNO3, id_BrO\n    INTEGER,           SAVE :: id_Br2,   id_Br,    id_HOBr, id_HBr\n    INTEGER,           SAVE :: id_BrNO3, id_CO2\n\n    ! Pointers and objects\n    TYPE(Species), POINTER  :: SpcInfo\n    REAL(fp),      POINTER  :: DepFreq(:,:,:  )  ! IM, JM, nDryDep\n\n    ! Strings\n    CHARACTER(LEN=255)      :: ErrMsg, ErrorMsg, ThisLoc\n\n#ifdef ADJOINT\n    LOGICAL                 :: IS_ADJ\n#endif\n\n    !=================================================================\n    ! DO_TEND begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ErrMsg  = ''\n    ThisLoc = ' -> at DO_TEND (in module GeosCore/mixing_mod.F90)'\n\n    ! Special case that there is no dry deposition and emissions\n    IF ( .NOT. Input_Opt%LDRYD .AND. .NOT. Input_Opt%DoEmissions ) RETURN\n\n    ! Initialize\n    LINEAR_CHEM       = Input_Opt%LINEAR_CHEM\n    LEMIS             = Input_Opt%DoEmissions\n    LDRYD             = Input_Opt%LDRYD\n    PBL_DRYDEP        = Input_Opt%PBL_DRYDEP\n    nAdvect           = State_Chm%nAdvect\n\n    ! Initialize pointer\n    SpcInfo           => NULL()\n    DepFreq           => State_Chm%DryDepFreq\n\n    PNOxLoss_O3       => NULL()\n    PNOxLoss_HNO3     => NULL()\n\n    !------------------------------------------------------------------------\n    ! Emissions/dry deposition budget diagnostics - Part 1 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetEmisDryDep ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetEmisDryDepFull,           &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetEmisDryDepFull,               &\n            isTrop      = State_Diag%Archive_BudgetEmisDryDepTrop,           &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetEmisDryDepTrop,               &\n            isPBL       = State_Diag%Archive_BudgetEmisDryDepPBL,            &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetEmisDryDepPBL,                &\n            isLevs      = State_Diag%Archive_BudgetEmisDryDepLevs,           &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetEmisDryDepLevs,               &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Emissions/dry deposition budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n#if defined( ADJOINT )  && defined ( DEBUG )\n    IF (Input_Opt%is_adjoint .and. Input_Opt%IS_FD_SPOT_THIS_PET) THEN\n       WRITE(*,*) ' SpcAdj(IFD,JFD) before unit converstion: ',  &\n            State_Chm%SpeciesAdj(Input_Opt%IFD, Input_Opt%JFD, &\n            Input_Opt%LFD, Input_Opt%NFD)\n       WRITE(*,*) ' Spc(IFD,JFD) before unit converstion: ',  &\n            State_Chm%Species(Input_Opt%NFD)%Conc(Input_Opt%IFD, Input_Opt%JFD, Input_Opt%LFD)\n    ENDIF\n#endif\n\n    ! Halt mixing timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Boundary layer mixing\", RC )\n    ENDIF\n\n    ! DO_TEND previously operated in units of kg. The species arrays are in\n    ! v/v for mixing, hence needed to convert before and after.\n    ! Now use units kg/m2 as State_Chm%SPECIES units in DO_TEND to\n    ! remove area-dependency (ewl, 9/30/15)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = State_Chm%Map_Advect,                              &\n         new_units      = KG_SPECIES_PER_M2,                                 &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n    \n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start mixing timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Boundary layer mixing\", RC )\n    ENDIF\n    \n#if defined( ADJOINT )  && defined ( DEBUG )\n    IF (Input_Opt%is_adjoint .and. Input_Opt%IS_FD_SPOT_THIS_PET) THEN\n       WRITE(*,*) ' SpcAdj(IFD,JFD) after unit converstion: ',  &\n            State_Chm%SpeciesAdj(Input_Opt%IFD, Input_Opt%JFD, &\n            Input_Opt%LFD, Input_Opt%NFD)\n       WRITE(*,*) ' Spc(IFD,JFD) after unit converstion: ',  &\n            State_Chm%Species(Input_Opt%NFD)%Conc(Input_Opt%IFD, Input_Opt%JFD, Input_Opt%LFD)\n    ENDIF\n#endif\n\n    ! Trap potential error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Get time step [s]\n    IF ( PRESENT(DT) ) THEN\n       TS = DT\n    ELSE\n       TS = GET_TS_DYN()\n    ENDIF\n#ifdef ADJOINT\n    if (Input_Opt%Is_Adjoint) then\n       TS = TS * -1\n    endif\n#endif\n\n    ! First-time setup\n    IF ( FIRST ) THEN\n\n       ! Define species indices on the first call\n       id_MACR = Ind_('MACR' )\n       id_RCHO = Ind_('RCHO' )\n       id_ACET = Ind_('ACET' )\n       id_ALD2 = Ind_('ALD2' )\n       id_ALK4 = Ind_('ALK4' )\n       id_C2H6 = Ind_('C2H6' )\n       id_C3H8 = Ind_('C3H8' )\n       id_CH2O = Ind_('CH2O' )\n       id_CO2  = Ind_('CO2'  )\n       id_PRPE = Ind_('PRPE' )\n       id_O3   = Ind_('O3'   )\n       id_HNO3 = Ind_('HNO3' )\n       id_BrO  = Ind_('BrO'  )\n       id_Br2  = Ind_('Br2'  )\n       id_Br   = Ind_('Br'   )\n       id_HOBr = Ind_('HOBr' )\n       id_HBr  = Ind_('HBr'  )\n       id_BrNO3= Ind_('BrNO3')\n\n       FIRST = .FALSE.\n    ENDIF\n\n    ! On first call, get pointers to the PARANOX loss fluxes. These are\n    ! stored in diagnostics 'PARANOX_O3_DEPOSITION_FLUX' and\n    ! 'PARANOX_HNO3_DEPOSITION_FLUX'. The call below links pointers\n    ! PNOXLOSS_O3 and PNOXLOSS_HNO3 to the data values stored in the\n    ! respective diagnostics. The pointers will remain unassociated if\n    ! the diagnostics do not exist.\n    ! This is only needed if non-local PBL scheme is not being used.\n    ! Otherwise, PARANOX fluxes are applied in vdiff_mod.F90.\n    !  (ckeller, 4/10/2015)\n    !\n    ! If using HEMCO Intermediate grid feature, then the call needs to be\n    ! refreshed at every time step for regridding. (hplin, 6/21/20)\n    IF ( .NOT. Input_Opt%LNLPBL ) THEN\n      CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, 'PARANOX_O3_DEPOSITION_FLUX', &\n                            .FALSE.,   RC, Ptr2D = Ptr2D          )\n      IF( ASSOCIATED( Ptr2D )) THEN\n        ALLOCATE ( PNOxLoss_O3( State_Grid%NX, State_Grid%NY ), STAT=RC )\n        PNOxLoss_O3(:,:) = Ptr2D(:,:)\n      ENDIF\n      Ptr2D => NULL()\n\n      CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, 'PARANOX_HNO3_DEPOSITION_FLUX',&\n                            .FALSE.,   RC, Ptr2D = Ptr2D        )\n      IF( ASSOCIATED( Ptr2D )) THEN\n        ALLOCATE ( PNOxLoss_HNO3( State_Grid%NX, State_Grid%NY ), STAT=RC )\n        PNOxLoss_HNO3(:,:) = Ptr2D(:,:)\n      ENDIF\n      Ptr2D => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! Do for every advected species and grid box\n    !=======================================================================\n    ! Note: For GEOS-Chem Classic HEMCO \"Intermediate Grid\" feature,\n    ! where HEMCO is running on a distinct grid from the model, the\n    ! on-demand regridding is most optimized when contiguous accesses\n    ! to GetHcoValEmis and GetHcoValDep are performed for the given species.\n    ! Therefore, it is most optimal to call in the following fashion (IJKN)\n    !    Emis(1,1,1,1) -> Emis(1,1,2,1) -> ... -> Dep(1,1,1,1) -> Dep(1,1,2,1)\n    ! By switching emis/dep or the species # LAST, as either of these changing\n    ! WILL trigger a new regrid and thrashing of the old buffer.\n    !\n    ! Therefore, the loop below has been adjusted to run serially for each\n    ! species, and parallelizing the inner I, J loop instead (hplin, 6/27/20)\n    ! Also, moved some non-I,J specific variables outside of the loop for optimization\n\n    DO NA = 1, nAdvect\n\n       ! Initialize PRIVATE error-handling variables\n       ErrorMsg  = ''\n\n       ! Get the species ID from the advected species ID\n       N = State_Chm%Map_Advect(NA)\n\n       ! Get info about this species from the species database\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Molecular weight in kg\n       MWkg = SpcInfo%MW_g * 1.e-3_fp\n\n       !--------------------------------------------------------------------\n       ! Check if we need to do dry deposition for this species\n       !--------------------------------------------------------------------\n\n       ! Initialize\n       DryDepSpec = .FALSE.\n       DryDepID   = -1\n\n       ! Only if dry deposition is turned on and we do want to consider\n       ! processes below the PBL...\n       IF ( LDRYD .AND. .NOT. OnlyAbovePBL ) THEN\n\n          ! Get dry deposition ID (used by drydep_mod.F90) for this species.\n          ! This is now stored in the species database object. (bmy, 7/6/16)\n          DryDepID = SpcInfo%DryDepId\n\n          ! Check if this is a HEMCO drydep species\n          DryDepSpec = ( DryDepId > 0 )\n          IF ( .NOT. DryDepSpec ) THEN\n             CALL InquireHco ( N, Dep=DryDepSpec )\n          ENDIF\n\n          ! Special case for O3 or HNO3: include PARANOX loss\n          IF ( N == id_O3   .AND. ASSOCIATED(PNOXLOSS_O3  ) )    &\n               DryDepSpec = .TRUE.\n          IF ( N == id_HNO3 .AND. ASSOCIATED(PNOXLOSS_HNO3) )    &\n               DryDepSpec = .TRUE.\n       ENDIF\n\n       ! Set emissions top level:\n       ! This is the top of atmosphere unless concentration build-up\n       ! in stratosphere wants to be avoided.\n       ChemGridOnly = .FALSE.\n\n       ! Set emissions to zero above chemistry grid for the following VOCs\n       IF ( N == id_MACR .OR. N == id_RCHO .OR. &\n            N == id_ACET .OR. N == id_ALD2 .OR. &\n            N == id_ALK4 .OR. N == id_C2H6 .OR. &\n            N == id_C3H8 .OR. N == id_CH2O .OR. &\n            N == id_PRPE                         ) THEN\n          ChemGridOnly = .TRUE.\n       ENDIF\n\n       ! Bry concentrations become prescribed in lin. strat. chemistry.\n       ! Therefore avoid any emissions of these compounds above the\n       ! chemistry grid (lin. strat. chem. applies above chemistry grid\n       ! only).\n       IF ( LINEAR_CHEM ) THEN\n          IF ( N == id_BrO  .OR. N == id_Br2   .OR. &\n               N == id_Br   .OR. N == id_HOBr  .OR. &\n               N == id_HBr  .OR. N == id_BrNO3       ) THEN\n             ChemGridOnly = .TRUE.\n          ENDIF\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Check if we need to do emissions for this species\n       !--------------------------------------------------------------------\n       IF ( LEMIS ) THEN\n          CALL InquireHco ( N, Emis=EmisSpec )\n       ELSE\n          EmisSpec = .FALSE.\n       ENDIF\n\n       ! If there is emissions for this species, it must be loaded into memory first.\n       ! This is achieved by attempting to retrieve a grid box while NOT in a parallel\n       ! loop. Failure to load this will result in severe performance issues!! (hplin, 9/27/20)\n       IF ( EmisSpec ) THEN\n          CALL LoadHcoValEmis ( Input_Opt, State_Grid, N )\n       ENDIF\n\n       IF ( DryDepSpec ) THEN\n          CALL LoadHcoValDep ( Input_Opt, State_Grid, N )\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Can go to next species if this species does not have\n       ! dry deposition and/or emissions\n       !--------------------------------------------------------------------\n       IF ( .NOT. DryDepSpec .AND. .NOT. EmisSpec ) CYCLE\n\n!$OMP PARALLEL DO                                                           &\n!$OMP DEFAULT( SHARED                                                     ) &\n!$OMP PRIVATE( I,        J,            L,          L1,       L2           ) &\n!$OMP PRIVATE( PBL_TOP,  FND,          TMP                                ) &\n!$OMP PRIVATE( FRQ,      RKT,          FRAC,       FLUX,     Area_m2      ) &\n!$OMP PRIVATE( DRYD_TOP, EMIS_TOP,     PNOXLOSS,   DENOM                  ) &\n!$OMP PRIVATE( S,        ErrorMsg                                         )\n\n       ! Loop over all grid boxes\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          !-----------------------------------------------------------------\n          ! Define various quantities before computing tendencies\n          !-----------------------------------------------------------------\n\n          ! Get PBL_TOP at this grid box\n          PBL_TOP = MAX( 1, FLOOR( State_Met%PBL_TOP_L(I,J) ) )\n\n          ! Determine lower level L1 to be used:\n          ! If specified so, apply emissions only above the PBL_TOP.\n          ! This will also disable dry deposition.\n          IF ( OnlyAbovePBL ) THEN\n             L1 = PBL_TOP + 1\n          ELSE\n             L1 = 1\n          ENDIF\n\n          ! Set dry deposition top level based on PBL_DRYDEP flag of\n          ! Input_Opt.\n          IF ( PBL_DRYDEP ) THEN\n             DRYD_TOP = PBL_TOP\n          ELSE\n             DRYD_TOP = 1\n          ENDIF\n\n          ! Restrict to chemistry grid\n          IF ( ChemGridOnly ) THEN\n             EMIS_TOP = State_Met%ChemGridLev(I,J)\n             EMIS_TOP = MIN(State_Grid%NZ,EMIS_TOP)\n          ELSE\n             EMIS_TOP = State_Grid%NZ\n          ENDIF\n\n          ! L2 is the upper level index to loop over\n          L2 = MAX(DRYD_TOP, EMIS_TOP)\n\n          ! This should not happen:\n          IF ( L2 < L1 ) CYCLE\n\n          ! Loop over selected vertical levels\n          DO L = L1, L2\n\n             !--------------------------------------------------------------\n             ! Apply dry deposition frequencies to all levels below the\n             ! PBL top.\n             !--------------------------------------------------------------\n             IF ( DryDepSpec .AND. ( L <= DRYD_TOP ) ) THEN\n\n                ! Init\n                FRQ = 0.0_fp\n\n                ! Dry deposition frequency from drydep_mod.F90. This is\n                ! stored in State_Chm%DryDepFreq. Units are [s-1].\n                IF ( DRYDEPID > 0 ) THEN\n                   FRQ = DepFreq(I,J,DRYDEPID)\n                ENDIF\n\n                ! Dry deposition frequency from HEMCO. HEMCO calculates\n                ! dry deposition frequencies for air-sea exchange and\n                ! from ship NOx plume parameterization (PARANOx). The\n                ! units are [s-1].\n                CALL GetHcoValDep ( Input_Opt, State_Grid, N, I, J, 1, FND, TMP )\n\n                ! Add to dry dep frequency from drydep_mod.F90\n                IF ( FND ) FRQ = FRQ + TMP\n\n                ! Get PARANOX deposition loss. Apply to surface level only.\n                ! PNOXLOSS is in kg/m2/s. (ckeller, 4/10/15)\n                PNOXLOSS = 0.0_fp\n                IF ( L == 1 ) THEN\n                   IF ( N == id_O3 .AND. ASSOCIATED(PNOXLOSS_O3) ) THEN\n                      PNOXLOSS = PNOXLOSS_O3(I,J)\n                   ENDIF\n                   IF ( N == id_HNO3 .AND. ASSOCIATED(PNOXLOSS_HNO3) ) THEN\n                      PNOXLOSS = PNOXLOSS_HNO3(I,J)\n                   ENDIF\n                ENDIF\n\n                ! Apply dry deposition\n                IF ( FRQ > 0.0_fp .OR. PNOXLOSS > 0.0_fp ) THEN\n\n                   ! Compute exponential loss term\n                   RKT  = FRQ * TS\n                   FRAC = EXP(-RKT)\n\n                   ! Loss in kg/m2\n                   FLUX = ( 1.0_fp - FRAC ) * State_Chm%Species(N)%Conc(I,J,L)\n\n                   ! Apply dry deposition\n                   State_Chm%Species(N)%Conc(I,J,L) = FRAC *    &\n                                            State_Chm%Species(N)%Conc(I,J,L)\n\n#ifdef ADJOINT\n                   if (Input_Opt%Is_Adjoint) then\n                      State_Chm%SpeciesAdj(I,J,L,N) = FRAC *  &\n                           State_Chm%SpeciesAdj(I,J,L,N)\n                   endif\n#endif\n                   ! Eventually add PARANOX loss. PNOXLOSS is in kg/m2/s.\n                   ! Make sure PARANOx loss is applied to tracers. (ckeller,\n                   ! 3/29/16).\n                   IF ( PNOXLOSS > 0 ) THEN\n                      State_Chm%Species(N)%Conc(I,J,L) = &\n                         State_Chm%Species(N)%Conc(I,J,L) - ( PNOXLOSS * TS )\n                      FLUX = FLUX + ( PNOXLOSS * TS )\n                   ENDIF\n\n                   ! Loss in [molec/cm2/s]\n                   ! Added a safe_div due to small parallelization error\n                   ! (mdy, 5/15)\n                   !\n                   ! NOTE: The original computation was:\n                   !   FLUX = FLUX / MWkg * AVO / TS / ( AREA_M2 * 1.0e4_fp ) ]\n                   ! so the denominator as we had it was wrong.\n                   ! Now corrected (elundgren, bmy, 6/12/15)\n                   DENOM = ( MWkg * TS * 1.0e+4_fp ) / AVO\n                   FLUX  = SAFE_DIV( FLUX, DENOM, 0.0e+0_fp )  ! molec/cm2/s\n\n                   ! Eventually add to SOIL_DRYDEP\n                   IF ( Input_Opt%LSOILNOX ) THEN\n                      CALL SOIL_DRYDEP( I, J, N, FLUX, State_Chm )\n                   ENDIF\n\n                   !--------------------------------------------------------\n                   ! HISTORY: Archive drydep flux loss from mixing\n                   ! Units = molec/cm2/s\n                   !\n                   ! NOTE: we don't need to multiply by the ratio of\n                   ! TS_CONV / TS_CHEM, as the updating frequency for\n                   ! HISTORY is determined by the \"frequency\" setting in\n                   ! the \"HISTORY.rc\" input file.\n                   !--------------------------------------------------------\n                   IF ( ( State_Diag%Archive_DryDepMix .or.                  &\n                          State_Diag%Archive_DryDep        )   .and.         &\n                          DryDepID > 0                       ) THEN\n                      S = State_Diag%Map_DryDepMix%id2slot(DryDepID)\n                      IF ( S > 0 ) THEN\n                         State_Diag%DryDepMix(I,J,S) = Flux\n                      ENDIF\n                   ENDIF\n\n                ENDIF ! apply drydep\n             ENDIF ! L <= PBLTOP\n\n             !--------------------------------------------------------------\n             ! Apply emissions.\n             ! These are always taken from HEMCO\n             !--------------------------------------------------------------\n             IF ( EmisSpec .AND. ( L <= EMIS_TOP ) ) THEN\n\n                ! Get HEMCO emissions. Units are [kg/m2/s].\n                ! Fix hplin: for intermediate grid, pass SkipCheck in a tight loop. Note that this assumes that adjacent\n                ! calls to GetHcoValEmis are from the same species ID, or there will be big trouble. (hplin, 10/10/20)\n\n#ifdef MODEL_CLASSIC\n                IF ( Input_Opt%LIMGRID ) THEN\n                  FND = .true.\n                  TMP = TMP_MDL(I,J,L) ! this is a kludge for the tight loop optimization\n                ELSE\n#endif\n                  CALL GetHcoValEmis ( Input_Opt, State_Grid, N, I, J, L, FND, TMP, SkipCheck=.true. )\n#ifdef MODEL_CLASSIC\n                ENDIF\n#endif\n\n                ! Add emissions (if any)\n                ! Bug fix: allow negative fluxes. (ckeller, 4/12/17)\n                !IF ( FND .AND. (TMP > 0.0_fp) ) THEN\n                IF ( FND ) THEN\n\n                   ! Flux: [kg/m2] = [kg m-2 s-1 ] x [s]\n                   FLUX = TMP * TS\n#ifdef ADJOINT\n                   IF ( I .eq. Input_Opt%IFD .and. J .eq. Input_Opt%JFD .and. &\n                        L .eq. Input_Opt%LFD .and. N .eq. Input_Opt%NFD) THEN\n                      WRITE(*,*) ' GetHcoVal(IFD,JFD) = ', TMP,  ' FLUX = ', FLUX\n                      IF ( Input_Opt%is_adjoint ) THEN\n                         WRITE(*,*) ' SpeciesAdj(FD) = ', State_Chm%SpeciesAdj(I,J,L,N)\n                      ENDIF\n                   ENDIF\n#endif\n\n                   ! Add to species array\n                   State_Chm%Species(N)%Conc(I,J,L) = &\n                         State_Chm%Species(N)%Conc(I,J,L) + FLUX\n                ENDIF\n             ENDIF\n\n             ! Check for negative concentrations\n             IF ( State_Chm%Species(N)%Conc(I,J,L) < 0.0_fp ) THEN\n#ifdef TOMAS\n                ! For TOMAS simulations only, look for negative and reset\n                ! to small positive.  This prevents the run from dying,\n                ! while we look for the root cause of the issue.\n                !  -- Betty Croft, Bob Yantosca (21 Jan 2022)\n                print *, 'Found negative ', N, State_Chm%Species(N)%Conc(I,J,L)\n                State_Chm%Species(N)%Conc(I,J,L) = 1e-26_fp\n#else\n\n                IF ( N /= id_CO2 ) THEN\n                   Print*, 'WARNING: Negative concentration for species ',    &\n                            TRIM( SpcInfo%Name), ' at (I,J,L) = ', I, J, L\n                   ErrorMsg = 'Negative species concentations encountered.'// &\n                            ' This may be fixed by increasing the'        //  &\n                            ' background concentration or by shortening'  //  &\n                            ' the transport time step.'\n                   RC = GC_FAILURE\n                ENDIF\n#endif\n             ENDIF\n\n          ENDDO !L\n       ENDDO !J\n       ENDDO !I\n!$OMP END PARALLEL DO\n\n       ! Exit with error condition\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL GC_Error( ErrorMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Nullify pointer\n       SpcInfo  => NULL()\n\n    ENDDO !N\n\n#if defined( ADJOINT )  && defined ( DEBUG )\n    IF (Input_Opt%is_adjoint .and. Input_Opt%IS_FD_SPOT_THIS_PET) THEN\n       WRITE(*,*) ' SpcAdj(IFD,JFD) before unit converstion: ',  &\n            State_Chm%SpeciesAdj(Input_Opt%IFD, Input_Opt%JFD, &\n            Input_Opt%LFD, Input_Opt%NFD)\n       WRITE(*,*) ' Spc(IFD,JFD) before unit converstion: ',  &\n            State_Chm%Species(Input_Opt%NFD)%Conc(Input_Opt%IFD, Input_Opt%JFD, Input_Opt%LFD)\n    ENDIF\n\n#endif\n\n    ! Halt mixing timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Boundary layer mixing\", RC )\n    ENDIF\n\n    ! Convert State_Chm%Species back to original units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start mixing timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Boundary layer mixing\", RC )\n    ENDIF\n\n#if defined( ADJOINT )  && defined ( DEBUG )\n    IF (Input_Opt%is_adjoint .and. Input_Opt%IS_FD_SPOT_THIS_PET) THEN\n       WRITE(*,*) ' SpcAdj(IFD,JFD) after unit converstion: ',  &\n            State_Chm%SpeciesAdj(Input_Opt%IFD, Input_Opt%JFD, &\n            Input_Opt%LFD, Input_Opt%NFD)\n       WRITE(*,*) ' Spc(IFD,JFD) after unit converstion: ',  &\n            State_Chm%Species(Input_Opt%NFD)%Conc(Input_Opt%IFD, Input_Opt%JFD, Input_Opt%LFD)\n    ENDIF\n\n#endif\n\n    !------------------------------------------------------------------------\n    ! Emissions/dry deposition budget diagnostics - Part 2 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetEmisDryDep ) THEN\n\n       ! Timestep for diagnostics [s]\n       DT_Tend = DBLE( TS )\n\n       ! Compute change in column masses (after emis/dryd - before emis/dryd)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetEmisDryDepFull,           &\n            diagFull    = State_Diag%BudgetEmisDryDepFull,                   &\n            mapDataFull = State_Diag%Map_BudgetEmisDryDepFull,               &\n            isTrop      = State_Diag%Archive_BudgetEmisDryDepTrop,           &\n            diagTrop    = State_Diag%BudgetEmisDryDepTrop,                   &\n            mapDataTrop = State_Diag%Map_BudgetEmisDryDepTrop,               &\n            isPBL       = State_Diag%Archive_BudgetEmisDryDepPBL,            &\n            diagPBL     = State_Diag%BudgetEmisDryDepPBL,                    &\n            mapDataPBL  = State_Diag%Map_BudgetEmisDryDepPBL,                &\n            isLevs      = State_Diag%Archive_BudgetEmisDryDepLevs,           &\n            diagLevs    = State_Diag%BudgetEmisDryDepLevs,                   &\n            mapDataLevs = State_Diag%Map_BudgetEmisDryDepLevs,               &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Tend,                                           &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Emissions/dry deposition budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Free pointers\n    DepFreq => NULL()\n\n  IF ( ASSOCIATED( PNOxLoss_O3 ) )   DEALLOCATE( PNOxLoss_O3 )\n  IF ( ASSOCIATED( PNOxLoss_HNO3 ) ) DEALLOCATE( PNOxLoss_HNO3 )\n\n  PNOxLoss_O3 => NULL()\n  PNOxLoss_HNO3 => NULL()\n\n  END SUBROUTINE DO_TEND\n\n!EOC\nEND MODULE MIXING_MOD\n"
  },
  {
    "path": "GeosCore/modis_lai_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: modis_lai_mod.F90\n!\n! !DESCRIPTION: Module MODIS\\_LAI\\_MOD reads the MODIS LAI data at\n!  native resolution and then regrids them to the GEOS-Chem resolution on the\n!  fly.\n!\n! !INTERFACE:\n!\nMODULE Modis_Lai_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Get_XlaiNative_from_Hemco\n  PUBLIC :: Compute_Xlai\n!\n! !REMARKS:\n!  (1) MODIS LAI data resolution is the same as the Olson land map. The Olson\n!      2001 landmap is the default, therefore, you will use MODIS LAI data at\n!      0.25 x 0.25 resolution.\n!  (2) In HEMCO, MEGAN uses 'offline' MODIS LAI (State_Met%MODISLAI) which\n!      is computed in this module.\n!      in an ESMF environment, in which case State_Met%LAI is used instead.\n!  (3) MODIS LAI arrays and where they are used in GEOS-Chem:\n!       (a) State_Met%XLAI     --> dry deposition routine DEPVEL\n!       (b) State_Met%MODISLAI --> MEGAN (if using standard GC); Hg(0)\n!                                  emissions; several diagnostics\n!\n! !REVISION HISTORY:\n!  03 Apr 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_xlainative_from_hemco\n!\n! !DESCRIPTION: Copies the MODIS XLAI data from HEMCO pointers into\n!  the State\\_Met object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_XlaiNative_from_HEMCO( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,         ONLY : NSURFTYPE\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Met_Mod,        ONLY : MetState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE Time_Mod,             ONLY : ITS_A_NEW_DAY\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  14 Feb 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: T\n    LOGICAL            :: FND\n\n    ! Strings\n    CHARACTER(LEN=6)   :: Name\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Get_XlaiNative_from_HEMCO begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at Get_XLAI_From_HEMCO (in module GeosCore/modis_lai_mod.F90)'\n\n    ! Loop over the # of Olson land types\n    DO T = 1, NSURFTYPE\n\n       ! Get the HEMCO pointer to the LAI for each Olson type\n       ! (variable names are XLAI00, XLAI01, .. XLAI72)\n       WRITE( Name, 100 ) T-1\n 100   FORMAT( 'XLAI' , i2.2 )\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, Name, State_Met%XLAI_NATIVE(:,:,T), RC, FOUND=FND )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS .or. .not. FND ) THEN\n          ErrMsg = 'Could not read HEMCO field: ' // TRIM( Name )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE Get_XlaiNative_from_HEMCO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_xlai\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_XLAI computes MODIS-based leaf\n!  area indices (LAI) per land type and grid cell. This computation uses\n!  offline 0.25x0.25 MODIS LAI and Olson landmap data regridded to\n!  the cubed sphere. Variables set include State\\_Met%XLAI.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Xlai( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Time_Mod,       ONLY : Its_A_New_Day\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  State_Met%XLAI_NATIVE is the LAI data as it comes in from either HEMCO\n!  or the MAPL import state via ExtData.\n!                                                                             .\n!  State_Met%XLAI is used for inputs into the GEOS-Chem dry deposition code.\n!  It is the LAI binned into the 11 dry-deposition land types.\n!                                                                             .\n!  State_Met%MODISLAI is the average LAI per grid box, averaged over all\n!  land types.  This is needed for the HEMCO soil NOx extension.\n!\n! !REVISION HISTORY:\n!  18 Oct 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER  :: I, J, S, T\n    REAL(fp) :: landFrac\n\n    !======================================================================\n    ! Initialize\n    !======================================================================\n\n    ! Initialize\n    RC                 = GC_SUCCESS\n    State_Met%XLAI     = 0.0_fp\n    State_Met%MODISLAI = 0.0_fp\n\n    ! Loop over all grid cells\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero for safety's sake\n       landFrac = 0.0_fp\n\n       ! Loop over all surface types present in this grid cell\n       DO S = 1, State_Met%IREG(I,J)\n\n          ! Set current surface type index\n          T = State_Met%ILAND(I,J,S) + 1\n\n          ! Get fraction of cell with this surface type by retrieving it\n          ! from the land type fraction calculated by ExtData\n          landFrac = State_Met%LandTypeFrac(I,J,T)\n\n          ! Set XLAI to average LAI for this surface type ( as calculated\n          ! by ExtData using zeros for coverage by other surface types )\n          ! divided by the fractional coverage of this surface type.\n          ! The resultant XLAI is the average LAI for only the area\n          ! with the current surface type, and therefore is larger than\n          ! XLAI_NATIVE when other surface types exist within the cell.\n          !\n          ! NOTE: Unlike XLAI_NATIVE and LandTypeFrac, the 3rd\n          ! dimension indexes of XLAI are NOT surface types 1-73! Instead,\n          ! It is the surface indexes ILAND-1 and therefore contains\n          ! zeros beyond the number of surface types present in the cell\n          ! (IREG). This is for backwards compatibility with GC classic\n          ! legacy drydep code.\n          IF ( landFrac .gt. 1.e-9_fp ) THEN\n             State_Met%XLAI(I,J,S) = State_Met%XLAI_NATIVE(I,J,T) / landFrac\n          ENDIF\n\n       ENDDO\n\n       ! Calculate average LAI for this grid cell across all land types\n       State_Met%MODISLAI(I,J) = SUM( State_Met%XLAI_NATIVE(I,J,:) )\n\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE Compute_XLAI\n!EOC\nEND MODULE Modis_Lai_Mod\n"
  },
  {
    "path": "GeosCore/ocean_mercury_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: ocean_mercury_mod.F90\n!\n! !DESCRIPTION: Module OCEAN\\_MERCURY\\_MOD contains variables and routines\n!  needed to compute the oceanic flux of mercury.  Original code by Sarah\n!  Strode at UWA/Seattle. (sas, bmy, 1/21/05, 4/17/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE OCEAN_MERCURY_MOD\n!\n! !USES:\n!\n  USE inquireMod,    ONLY : findFreeLUN\n  USE PRECISION_MOD, ONLY : fpp => fp   ! For GEOS-Chem Precision (fpp)\n  USE PRECISION_MOD, ONLY : f4          !  Rename to avoid conflicts\n  USE PRECISION_MOD, ONLY : f8\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: INIT_OCEAN_MERCURY\n  PUBLIC :: CLEANUP_OCEAN_MERCURY\n  PUBLIC :: OCEAN_MERCURY_FLUX\n  PUBLIC :: LDYNSEASALT, LGCAPEMIS, LPOLARBR, LBRCHEM, LBROCHEM\n  PUBLIC :: L_ADD_MBL_BR\n  PUBLIC :: LGEIA05\n  PUBLIC :: LVEGEMIS\n  PUBLIC :: LGEOSLWC\n  PUBLIC :: LHALOGENCHEM\n  PUBLIC :: LHGAQCHEM\n  PUBLIC :: LRED_CLOUDONLY\n  PUBLIC :: LHg2HalfAerosol\n  PUBLIC :: STRAT_BR_FACTOR,        LAnthroHgOnly\n  PUBLIC :: LOHO3CHEM,              LnoUSAemis\n  PUBLIC :: LGCBROMINE\n  PUBLIC :: READ_HG2_PARTITIONING\n  PUBLIC :: Fp, Fg\n  PUBLIC :: LNEI2005\n  PUBLIC :: LInPlume\n  PUBLIC :: LOCEANCOEF\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Xu et al (1999). Formulation of bi-directional atmosphere-surface\n!        exchanges of elemental mercury.  Atmospheric Environment\n!        33, 4345-4355.\n!  (2 ) Nightingale et al (2000).  In situ evaluation of air-sea gas exchange\n!        parameterizations using novel conservative and volatile tracers.\n!        Global Biogeochemical Cycles, 14, 373-387.\n!  (3 ) Lin and Tau (2003).  A numerical modelling study on regional mercury\n!        budget for eastern North America.  Atmos. Chem. Phys. Discuss.,\n!        3, 983-1015.  And other references therein.\n!  (4 ) Poissant et al (2000).  Mercury water-air exchange over the upper St.\n!        Lawrence River and Lake Ontario.  Environ. Sci. Technol., 34,\n!        3069-3078. And other references therein.\n!  (5 ) Wangberg et al. (2001).  Estimates of air-sea exchange of mercury in\n!        the Baltic Sea.  Atmospheric Environment 35, 5477-5484.\n!  (6 ) Clever, Johnson and Derrick (1985).  The Solubility of Mercury and some\n!        sparingly soluble mercury salts in water and aqueous electrolyte\n!        solutions.  J. Phys. Chem. Ref. Data, Vol. 14, No. 3, 1985.\n!  (7 ) Sunderland, E. M. and R. Mason (2007), Human impacts on open\n!        ocean mercury concentrations, Global Biogeochemical Cycles, 21, GB4022,\n!        doi:10.1029/2006GB002876, 2007.\n!  (8 ) Corbitt, E.S. et al. (2011), Global source-receptor relationsihps for\n!       mercury deposition under present-day and 2050 emissions scenarios,\n!       Environ. Sci. Technol., 45, 10477-10484, 2011.\n!  (9 ) Toole, J. M. et al. (2010), Influences of the ocean surface mixed layer\n!        and thermohaline stratification on Arctic Sea ice in the central\n!        Canada Basin, J. Geophys. Res., 115, C10018, doi:10.1029/2009JC005660.\n!\n!  Nomenclature:\n!  ============================================================================\n!  (1 ) Hg(0)  a.k.a. Hg0 : Elemental   mercury\n!  (2 ) Hg(II) a.k.a. Hg2 : Divalent    mercury\n!  (3 ) HgP               : Particulate mercury\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  !============================================================================\n  ! Hg_RST_FILE : Name of restart file with ocean tracers\n  ! Hg2aq_tot   : Total Hg2 conc. in the mixed layer  [kg      ]\n  ! DD_Hg2      : Array for Hg(II) dry dep'd to ocean [kg      ]\n  ! Hgaq_tot    : Total Hg conc. in the mixed layer   [kg      ]\n  ! Hg0aq       : Array for ocean mass of Hg(0)       [kg      ]\n  ! Hg2aq       : Array for ocean mass of Hg(II)      [kg      ]\n  ! HgPaq       : Array for ocean mass of HgP         [kg      ]\n  ! dMLD        : Array for Change in ocean MLD       [cm      ]\n  ! MLD         : Array for instantaneous ocean MLD   [cm      ]\n  ! MLDav       : Array for monthly mean ocean MLD    [cm      ]\n  ! newMLD      : Array for next month's ocean MLD    [cm      ]\n  ! NPP         : Array for mean net primary prod.    [unitless]\n  ! RAD         : Array for mean solar radiation      [W/m2    ]\n  ! UPVEL       : Array for ocean upwelling velocity  [m/s     ]\n  ! WD_Hg2      : Array for Hg(II) wet dep'd to ocean [kg      ]\n  ! CHL         : Chl surface concentration           [mg(m3   ]\n  ! CDEEPATL    : Conc. Hg0, Hg2, HgP below MLD-Atl   [pM      ]\n  ! CDEEP       : Conc. of Hg0, Hg2, HgP below MLD    [pM      ]\n  ! CDEEPNAT    : Conc. Hg0, Hg2, HgP below MLD-NAtl  [pM      ]\n  ! CDEEPSAT    : Conc. Hg0, Hg2, HgP below MLD-SAtl  [pM      ]\n  ! CDEEPANT    : Conc. Hg0, Hg2, HgP below MLD-Ant   [pM      ]\n  ! CDEEPARC    : Conc. Hg0, Hg2, HgP below MLD-Arc   [pM      ]\n  !============================================================================\n\n  ! Scalars\n  LOGICAL              :: USE_CHECKS\n\n  ! Parameters\n  REAL*4,  PARAMETER   :: MAX_RELERR = 5.0d-2\n  REAL*4,  PARAMETER   :: MAX_ABSERR = 5.0d-3\n  REAL*4,  PARAMETER   :: MAX_FLXERR = 5.0d-1\n\n  REAL(fpp)            :: CDEEP(3)\n  REAL(fpp)            :: CDEEPATL(3)\n  REAL(fpp)            :: CDEEPNAT(3)\n  REAL(fpp)            :: CDEEPSAT(3)\n  REAL(fpp)            :: CDEEPANT(3)\n  REAL(fpp)            :: CDEEPARC(3)\n  REAL(fpp)            :: CDEEPNPA(3)\n\n  ! For Arctic rivers (jaf, 12/8/11)\n  REAL(fpp)            :: RIVERFLOW(12)\n  REAL(fpp)            :: dFLOW\n  REAL(fpp)            :: dFLOW1\n  REAL(fpp)            :: dFLOW2\n  REAL(fpp)            :: FLOWNOW\n\n  ! Private arrays\n  REAL(fpp),  ALLOCATABLE :: Hgaq_tot(:,:)\n  REAL(fpp),  ALLOCATABLE :: dMLD(:,:)\n  REAL(fpp),  ALLOCATABLE :: HgPaq_SUNK(:,:)\n  REAL(fpp),  ALLOCATABLE :: MLDav(:,:)\n  REAL(fpp),  ALLOCATABLE :: newMLD(:,:)\n  REAL(fpp),  ALLOCATABLE :: prevMLD(:,:)\n  REAL(fpp),  ALLOCATABLE :: RAD(:,:)\n\n  ! added by hma for Hg2 partitioning\n  REAL(fpp),  ALLOCATABLE :: BULK_CONC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: Fp(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: Fg(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: SO4_GC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: NH4_CONC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: NIT_CONC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: OC_CONC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: BC_CONC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: DST_CONC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: R(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: SO4_WAC(:,:,:)\n  REAL(fpp),  ALLOCATABLE :: SO4_CONC(:,:,:)\n\n  ! For IAV in NPP (jaf, 3/19/13)\n  REAL(fpp) :: NPP_SCF\n\n  ! Logical switches for the mercury simulation, all of which are\n  ! set in INIT_MERCURY (cdh, 9/1/09)\n  LOGICAL   :: LDYNSEASALT, LGCAPEMIS, LPOLARBR, LBRCHEM, LBROCHEM\n  LOGICAL   :: L_ADD_MBL_BR, LRED_CLOUDONLY\n  LOGICAL   :: LGEIA05\n  LOGICAL   :: LVEGEMIS \n  LOGICAL   :: LGEOSLWC\n  LOGICAL   :: LHALOGENCHEM\n  LOGICAL   :: LHGAQCHEM\n  LOGICAL   :: LHg2HalfAerosol\n  LOGICAL   :: LAnthroHgOnly,          LOHO3CHEM\n  LOGICAL   :: LGCBROMINE\n  LOGICAL   :: LnoUSAemis\n  LOGICAL   :: LNEI2005, LInPlume\n  LOGICAL   :: LOCEANCOEF\n  REAL(fpp) :: STRAT_BR_FACTOR\n\n  ! CDH Set this TRUE to use corrected area-flux relationship\n  ! Set this to FALSE to use original Strode et al. (2007) model\n  LOGICAL,   PARAMETER :: LOCEANFIX=.TRUE.\n  ! CDH average ocean area per grid box: 1.67d11 m2/box\n  ! used when eliminating AREA * FRAC_O\n  REAL(fpp), PARAMETER :: FUDGE=1.67e+11_fpp\n\n  ! Pointers to fields in the HEMCO data structure.\n  ! These need to be declared REAL(f4), aka REAL*4.\n  ! NOTE: We can declare these NULL here because\n  ! these are SAVED global pointers (bmy, 4/29/16)\n  REAL(f4), POINTER :: CHL   (:,:) => NULL()\n  REAL(f4), POINTER :: CHL_A (:,:) => NULL()\n  REAL(f4), POINTER :: MLD   (:,:) => NULL()\n  REAL(f4), POINTER :: NPP   (:,:) => NULL()\n  REAL(f4), POINTER :: NPP_A (:,:) => NULL()\n  REAL(f4), POINTER :: UPVEL (:,:) => NULL()\n  REAL(f4), POINTER :: dMLD1 (:,:) => NULL()\n  REAL(f4), POINTER :: dMLD2 (:,:) => NULL()\n\nCONTAINS\n!EOC\n!-------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_hg2_partitioning\n!\n! !DESCRIPTION: Subroutine READ\\_HG2\\_PARTITIONING calculates the fractions of\n!  Hg(II) is the particle gas phases.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_HG2_PARTITIONING( Input_Opt, State_Grid, State_Met, &\n                                    THISMONTH, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : GEOS_CHEM_STOP, ERROR_STOP\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EmisList_Mod,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    INTEGER,        INTENT(IN)  :: THISMONTH   ! Current month\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Description of gas-particle partitioning of Hg2\n!  ===========================================================================\n!\n!  References:\n!   (1) Yamasaki et al (1982). Effects of Ambient Temperature on Aspects of\n!       Airbone Polycyclic Aromatic Hydrocarbons, Env Sci & Tech\n!   (2) Pankow (1994). An Absorption Model of Gas/Particle Partitioning of\n!       Organic Comounds in the Atmosphere, Atmos Env\n!   (3) Rutter and Schauer (2007). The effect of temperature on the gas-\n!       particle partitioning of reactive mercury in atmospheric aerosols,\n!       Atmos Env\n!   (4) Vijayaraghavan et al (2008). Plume-in-grid modeling of atmopsheric\n!       mercury\n!   (5) Amos et al. (2012, ACPD). Gas-particle partitioning of Hg(II)\n!       and its effect on global mercury deposition\n!\n!  Ratio of reactive mercury adsorbed onto particulate matter to reactive\n!  mercury in the gas phase:\n!\n!  (PHg,ads)/RGM = 10^(b/T - a)* PM\n!\n!      PHg,ads  =  adsorbed RGM                        (pg m^-3)\n!      RGM      =  reactive gaseous mercury            (pg m^-3)\n!      T        =  temperature                         (K)\n!      PM       =  ambient aerosol concentration       (ug m^-3)\n!      b        =  slope from simple linear regression\n!      a        =  y-intercept from simple linear regression\n!\n!  Aerosol concentrations are being taken from a GEOS-Chem v8-02-03,\n!  GEOS-5, 4x5, full-chem simulation run for 2007 by Lin Zhang. The units\n!  reported by GEOS-Chem are ppb for aerosol mixing ratio (IJ-AVG-$).\n!  Units must be converted from mol/mol to ug/m3.\n!\n!  Converting aerosol concentration ppbv --> ug/m3:\n!   ( Modeled after SUBROUTINE CONVER_UNITS in dao_mod.f )\n!\n!      1 ppbv = 1e-9 mol/mol\n!      AIRDEN = air density,  [kg/m3]\n!      CU     = aerosol molecular weight / molecular weight of air\n!             = [(aero kg/mol) / (air kg/mol)]\n!\n!            aero mol     air kg   aero kg/mol     1e9 ug\n!      PM = ---------- x ------- x ------------ x -------\n!            air  mol     air m3    air kg/mol       kg\n!\n!      PM = (IJ-AVG-$) * AIRDEN * CU\n!\n!  The objective of this subroutine is to determine the fraction of reactive\n!  mercury in the gas-phase (Fg) and the fraction in the particle-phase (Fp).\n!  That can be done easily once R is calculated, where R is the ratio of\n!  particle to gas:\n!\n!      R  = (HgP,ads)/RGM                              (unitless)\n!      Fg = 1/(R + 1)                                  (unitless)\n!      Fp = 1 - Fg   *or*  = R/(R + 1)                 (unitless)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Pointers to fields in the HEMCO data structure\n    ! These have to be declared REAL(f4), aka REAL*4.\n    REAL(f4), POINTER  :: ARRAYso4 (:,:,:)\n    REAL(f4), POINTER  :: ARRAYnit (:,:,:)\n    REAL(f4), POINTER  :: ARRAYnh4 (:,:,:)\n    REAL(f4), POINTER  :: ARRAYbcpi(:,:,:)\n    REAL(f4), POINTER  :: ARRAYocpi(:,:,:)\n    REAL(f4), POINTER  :: ARRAYbcpo(:,:,:)\n    REAL(f4), POINTER  :: ARRAYocpo(:,:,:)\n    REAL(f4), POINTER  :: ARRAYdst1(:,:,:)\n\n    ! Arrays to hold bulk concentration and surface area\n    REAL(f4)           :: ARRAYtemp(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(f4)           :: ARRAYconc(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Scalars\n    INTEGER                 :: I, J, L, NN, LL\n    CHARACTER(LEN=155)      :: FILENAME\n    CHARACTER(LEN=2)        :: MON                 ! for months 10-12\n    CHARACTER(LEN=1)        :: SMON                ! for months 1-9\n    REAL(fpp), PARAMETER    :: TINY  = 1e-16_fpp   ! to prevent NaN\n    REAL(fpp), DIMENSION(5) :: AERO_MW             ! aerosol molec weights\n    REAL(fpp)               :: AIR_MW = 2.897e-02_fpp ! avg molec weight of air\n    REAL(fpp), DIMENSION(5) :: CU                  ! ratio of aerosol/air MW\n\n    ! Strings\n    CHARACTER(LEN=255) :: LOC = 'READ_HG2_PARTITIONING (ocean_mercury_mod.F90)'\n\n    !=================================================================\n    ! READ_HG2_PARTITIONING begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        =  GC_SUCCESS\n\n    ! Initialize pointers\n    ARRAYso4  => NULL() ! so4\n    ARRAYnit  => NULL() ! nit\n    ARRAYnh4  => NULL() ! nh4\n    ARRAYbcpi => NULL() ! bcpi\n    ARRAYocpi => NULL() ! ocpi\n    ARRAYbcpo => NULL() ! bcpo\n    ARRAYocpo => NULL() ! ocpo\n    ARRAYdst1 => NULL() ! dst1\n\n    !----------------------------------------!\n    ! Molecular weights, for unit conversion !\n    !----------------------------------------!\n\n    ! aerosol molecular weights, [kg/mol]\n    AERO_MW(1) = 9.6e-02_fpp    ! SO4, SO4s\n    AERO_MW(2) = 1.2e-02_fpp    ! OC, BC\n    AERO_MW(3) = 6.2e-02_fpp    ! NIT, NITs\n    AERO_MW(4) = 1.8e-02_fpp    ! NH4\n    AERO_MW(5) = 2.9e-02_fpp    ! DST\n\n    ! ratio of aerosol molecular weight / air molecular weight\n    CU = AERO_MW / AIR_MW   !  [kg aerosol / kg air]\n\n    !------------------------------------------------------!\n    ! Put aerosol mixing ratio (mol/mol) into arrays.\n    !------------------------------------------------------!\n\n    !---------------------------\n    ! Read SO4 from HEMCO\n    !---------------------------\n    CALL HCO_GetPtr( HcoState, 'AERO_SO4', ARRAYso4, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_SO4', LOC )\n    ENDIF\n\n    ! convert REAL*4 to REAL(fpp)\n    SO4_GC(:,:,1:State_Met%MaxChemLev) = ARRAYso4(:,:,1:State_Met%MaxChemLev)\n\n    !---------------------------\n    ! Read NH4 from HEMCO\n    !---------------------------\n    CALL HCO_GetPtr( HcoState, 'AERO_NH4', ARRAYnh4, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_SO4', LOC )\n    ENDIF\n\n    ! convert REAL*4 to REAL(fpp)\n    NH4_CONC(:,:,1:State_Met%MaxChemLev) = ARRAYnh4(:,:,1:State_Met%MaxChemLev)\n\n    !---------------------------\n    ! Read NIT from HEMCO\n    !---------------------------\n    CALL HCO_GetPtr( HcoState, 'AERO_NIT', ARRAYnit, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_SO4', LOC )\n    ENDIF\n\n    ! convert REAL*4 to REAL(fpp)\n    NIT_CONC(:,:,1:State_Met%MaxChemLev) = ARRAYnit(:,:,1:State_Met%MaxChemLev)\n\n    !---------------------------\n    ! Read BCPI+BCPO from HEMCO\n    !---------------------------\n\n    ! BCPI\n    CALL HCO_GetPtr( HcoState, 'AERO_BCPI', ARRAYbcpi, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_BCPI', LOC )\n    ENDIF\n\n    ! BCPO\n    CALL HCO_GetPtr( HcoState, 'AERO_BCPO', ARRAYbcpo, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_BCPO', LOC )\n    ENDIF\n\n    ! First get the size of ARRAYbcpi.  ARRAYbcpo is the same size\n    ! since they are both stored in the same file (bmy, 3/13/15)\n    LL = size( ARRAYbcpi, 3 )\n\n    ! convert REAL*4 to REAL(fpp)\n    ARRAYtemp           = 0.e0_f4\n    ARRAYtemp(:,:,1:LL) = ARRAYbcpi + ARRAYbcpo\n    BC_CONC(:,:,1:State_Met%MaxChemLev) = ARRAYtemp(:,:,1:State_Met%MaxChemLev)\n\n    !---------------------------\n    ! Read OCPI+OCPO from HEMCO\n    !---------------------------\n\n    ! OCPI\n    CALL HCO_GetPtr( HcoState, 'AERO_OCPI', ARRAYocpi, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_OCPI', LOC )\n    ENDIF\n\n    ! OCPO\n    CALL HCO_GetPtr( HcoState, 'AERO_OCPO', ARRAYocpo, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_OCPO', LOC )\n    ENDIF\n\n    ! First get the size of ARRAYbcpi.  ARRAYbcpo is the same size\n    ! since they are both stored in the same file (bmy, 3/13/15)\n    LL = size( ARRAYocpi, 3 )\n\n    ! convert REAL*4 to REAL(fpp)\n    ARRAYtemp           = 0.e0_f4\n    ARRAYtemp(:,:,1:LL) = ARRAYocpi + ARRAYocpo\n    OC_CONC(:,:,1:State_Met%MaxChemLev) = ARRAYtemp(:,:,1:State_Met%MaxChemLev)\n\n    !---------------------------\n    ! Read DST1 from HEMCO\n    !---------------------------\n    CALL HCO_GetPtr( HcoState, 'AERO_DST1', ARRAYdst1, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to AERO_DST1', LOC )\n    ENDIF\n\n    ! convert REAL*4 to REAL(fpp)\n    DST_CONC(:,:,1:State_Met%MaxChemLev) = ARRAYdst1(:,:,1:State_Met%MaxChemLev)\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L                                                  )&\n    !$OMP COLLAPSE( 3                                                       )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Sum aerosol types (ppbv) to get bulk aerosol\n       !\n       ! - Multiply species by CU factor as part of unit conversion from\n       !    ppbv --> ug/m3\n       ! Scale dust from 4x5 run (ref: Fairlie et al. (2010))\n       BULK_CONC(I,J,L) = CU(1)*SO4_CONC(I,J,L)                   + &\n                          CU(2)*(BC_CONC(I,J,L) + OC_CONC(I,J,L)) + &\n                          CU(3)*NIT_CONC(I,J,L)                   + &\n                          CU(4)*NH4_CONC(I,J,L) +                   &\n                          CU(5)*(DST_CONC(I,J,L)*2e+0_fpp)\n\n       ! convert bulk aerosol mass concentration  to ug/m3\n       BULK_CONC(I,J,L) = ( BULK_CONC(I,J,L) * State_Met%AIRDEN(I,J,L)  )\n\n       ! Calculate R = HgP_ads/RGM (i.e. the ratio of Hg2\n       ! adsorbed onto aerosol to Hg2 in the  gas phase)\n       R(I,J,L) = BULK_CONC(I,J,L) * &\n            ( 10e+0_fpp**( ( 2.5e+3_fpp / State_Met%T(I,J,L)) - 10e+0_fpp ))\n\n       ! Fraction of Hg(II) in the gas phase (unitless)\n       Fg(I,J,L) = 1e+0_fpp / (R(I,J,L) + 1e+0_fpp)\n\n       ! Fraction of Hg(II) in the particle phase (unitless)\n       Fp(I,J,L) = 1e+0_fpp - Fg(I,J,L)\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    ARRAYso4  => NULL()\n    ARRAYnit  => NULL()\n    ARRAYnh4  => NULL()\n    ARRAYbcpi => NULL()\n    ARRAYocpi => NULL()\n    ARRAYbcpo => NULL()\n    ARRAYocpo => NULL()\n    ARRAYdst1 => NULL()\n\n  END SUBROUTINE READ_HG2_PARTITIONING\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: deliver_snow_hg\n!\n! !DESCRIPTION: Subroutine DELIVER\\_SNOW\\_HG delivers Hg accumulated in snow\n!  to the ocean.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DELIVER_SNOW_HG( SNOW_Hg2aq, I, J, State_Met, &\n                              State_Chm, State_Diag )\n!\n! !USES:\n!\n    USE DEPO_MERCURY_MOD,   ONLY : LHGSNOW\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Time_Mod,           ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)           :: I, J\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fpp),      INTENT(OUT)   :: SNOW_Hg2aq  ! Hg2 from snow\n!\n! !REMARKS:\n!  Snowpack Hg is delivered to the ocean instantaneously in an ionic pulse\n!  at the start of snowmelt (i.e. when the temperature exceeds 276K). At\n!  this point, both the non-reducible Hg deposited to the snowpack and the\n!  remaining reducible Hg are delivered to the ocean. Over land, the snow Hg\n!  reservoirs are also emptied, but this Hg is not yet added to the land.\n!\n! !REVISION HISTORY:\n!  17 Jun 2011 - J. Fisher - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER       :: NN\n    REAL(fpp)     :: FROCSNOW, FRLNSNOW, DT\n    LOGICAL       :: IS_MELT, IS_SNOWHG_OC, IS_SNOWHG_LN\n    LOGICAL       :: IS_OPEN_OCEAN, IS_OPEN_LAND\n\n    ! Pointers\n    REAL(fpp), POINTER :: SNOW_HG_OC(:,:)\n    REAL(fpp), POINTER :: SNOW_HG_LN(:,:)\n    REAL(fpp), POINTER :: SNOW_HG_STORED_OC(:,:)\n    REAL(fpp), POINTER :: SNOW_HG_STORED_LN(:,:)\n\n    !=================================================================\n    ! DELIVER_SNOW_HG begins here!\n    !=================================================================\n\n    ! Return to calling program if snowpack model is disabled\n    IF (.NOT. LHGSNOW) RETURN\n\n    ! Chemistry timestep in seconds\n    DT = GET_TS_CHEM()\n\n    ! Intialize\n    SNOW_Hg2aq = 0d0\n\n    ! Point to fields in State_Chm\n    SNOW_HG_OC        => State_Chm%SnowHgOcean\n    SNOW_HG_LN        => State_Chm%SnowHgLand\n    SNOW_HG_STORED_OC => State_Chm%SnowHgOceanStored\n    SNOW_HG_STORED_LN => State_Chm%SnowHgLandStored\n\n    IS_OPEN_OCEAN = ( ( State_Met%FROCEAN(I,J) - &\n                        State_Met%FRSEAICE(I,J) ) > 0e+0_fpp )\n    IS_OPEN_LAND  = ( ( State_Met%FRLAND(I,J)  - &\n                        State_Met%FRSNOW(I,J)    ) > 0e+0_fpp )\n\n    IS_MELT = ( State_Met%TS(I,J) >= 276e+0_fpp )\n\n       !%%% Removed loop over Hg categories here\n       !%%% and also removed NN as the 3rd array index\n       !%%%  -- Bob Yantosca (23 Jun 2022)\n\n       IS_SNOWHG_OC = ( (SNOW_HG_OC(I,J)        > 0e+0_fpp) .OR. &\n                        (SNOW_HG_STORED_OC(I,J) > 0e+0_fpp) )\n       IS_SNOWHG_LN = ( (SNOW_HG_LN(I,J)        > 0e+0_fpp) .OR. &\n                        (SNOW_HG_STORED_LN(I,J) > 0e+0_fpp) )\n\n       ! OCEAN\n       ! Check if melt conditions reached and snow in grid box\n       IF ( IS_MELT .AND. IS_SNOWHG_OC .AND. IS_OPEN_OCEAN ) THEN\n\n          ! Add all snow Hg to aqueous Hg2 reservoir\n          SNOW_Hg2aq = ( SNOW_HG_OC(I,J) + SNOW_HG_STORED_OC(I,J) )\n\n          !===========================================================\n          ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n          !\n          ! Store diagnostic of meltwater delivery to ocean [kg/s]\n          !===========================================================\n          IF ( State_Diag%Archive_EmisHg2snowToOcean ) THEN\n             State_Diag%EmisHg2snowToOcean(I,J) = &\n                  ( SNOW_HG_OC(I,J) + SNOW_HG_STORED_OC(I,J) ) / DT\n          ENDIF\n\n          ! Zero reservoirs over ocean box, since we've added it\n          ! all to the ocean\n          SNOW_HG_OC(I,J) = 0e+0_fpp\n          SNOW_HG_STORED_OC(I,J) = 0e+0_fpp\n\n       ENDIF ! ocean box\n\n       ! Zero reservoirs if there is exposed land\n       IF ( IS_MELT .AND. IS_SNOWHG_LN .AND. IS_OPEN_LAND ) THEN\n          SNOW_HG_LN(I,J) = 0e+0_fpp\n          SNOW_HG_STORED_LN(I,J) = 0e+0_fpp\n       ENDIF\n\n    ! Free pointers\n    SNOW_HG_OC        => NULL()\n    SNOW_HG_LN        => NULL()\n    SNOW_HG_STORED_OC => NULL()\n    SNOW_HG_STORED_LN => NULL()\n\n  END SUBROUTINE DELIVER_SNOW_HG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ocean_mercury_flux\n!\n! !DESCRIPTION: Subroutine OCEAND\\_MERCURY\\_FLUX calculates emissions of Hg(0)\n!  the ocean in [kg/s].  (sas, bmy, 1/19/05, 4/17/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OCEAN_MERCURY_FLUX( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, FLUX,      RC )\n!\n! !USES:\n!\n    USE DEPO_MERCURY_MOD,   ONLY : DD_Hg2, WD_Hg2, DD_HgP, WD_HgP\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EmisList_Mod,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Flux of Hg(0) from the ocean [kg/s]\n    REAL(fpp),      INTENT(OUT)   :: FLUX(State_Grid%NX,State_Grid%NY)\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  NOTE: The emitted flux may be negative when ocean conc. is very low.\n!\n!  ALSO NOTE: The ocean flux was tuned with GEOS-4 4x5 met fields.  We also\n!  now account for the smaller grid size if using GEOS-4 2x25 met fields.\n!_____________________________________________________________________________\n!\n!  GENERAL SOLUTION - OXIDATION, REDUCTION, SINKING, EVASION, UPWELLING\n!\n!  dHg0/dt  = Hg0(upw) + Hg0(ent) + Hg0(oa) -k_ox\n!             + k_red * Frac_Hg2 * Reducible * HgII\n!\n!  dHgII/dt = HgII(dep) + HgII(up) + HgII(ent) - HgII(sink) +\n!             k_ox * Hg0-k_red * Frac_Hg2 * Reducible * HgII\n!____________________________________________________________________________\n!\n!  Hg(tot)aq REDUCTION RATE CONSTANTS\n!\n!  Hg(tot)aq reduction is split into biological and radiative reduction\n!   (1.1 added to NPP for abiotic particles)\n!\n!    k_red     = k_red_bio + k_red_rad\n!    k_red_rad = k_radbase * RADz     = ( s-1 W-1 m2 ) * ( W m-2 )\n!    k_red_bio = k_biobse * NPP * 1.1 = ( s-1 mgC-1 d ) * ( mgC m-2 d-1 )\n!\n!  Hg(0)aq OXIDATION RATE CONSTANTS\n!\n!    k_ox      = k_oxbase * RADz + k_dark\n!\n!  k_dark is a constant dark oxidation component\n!\n!  RADz is the integrated ligth attenuation based on Beer-Lamberts law\n!  (Schwarzenbach et al. 1993)\n!\n!     RADz = (1/(x1-x2))(RAD/EC)(1-e**-EC * x2)\n!\n!  x1  = surface depth (=0) (m)\n!  x2  = depth of mixed layer (m)\n!  EC  = extinction coefficient (m-1)\n!  RAD = incomming radiation from GEOS5\n!\n!  Extinction coefficient\n!  EC = ECwater + ECdoc * Cdoc (NPP/NPPavg) + ECchla * CHL/1000\n!\n!  ECwater = 0.0145 m-1\n!  ECdoc   = 0.654 m-1\n!  Cdoc    = 1.5 mgL-1\n!  ECchla  = 31 m-1\n!  CHL     = amount dependent on inputfile (mg/m3) but we need\n!            mg/L so divide CHL by 1000\n!____________________________________________________________________________\n!\n!  TOTAL ORGANIC CARBON AND SUSPENDED PARTICULATE MATTER (TOTAL BIOMASS)\n!\n!  Hg(II) - Hg(P) partitioning coefficient\n!\n!    Fraction of Hg2 = Frac_Hg2 =  1 / ( 1 + kd_part * SPM )\n!\n!  Kd_part is based on Mason et al. 1998 and Mason & Fitzgerald 1993. (L/kg)\n!  SPM is converted to kg/L by 10E-9\n!\n!  SPM is Suspended particulate matter (kg/L)\n!\n!    SPM = ( OC_tot * 10 / MLD ) * 1.1\n!\n!  Total biomas is a proxy for SPM (mg/m3) used in Hg(II)\n!  partitioning. Calculated by multiplying the standing\n!  stock of organic carbon (OC_tot) with 10 (exp Bundy 2004)\n!  1.1 is to include abiotic particles\n!\n!  OC_tot is the standing stock of organic carbon (mgC/m)\n!\n!    OC_tot = C_tot * 80\n!\n!  Standing stock is calculated based on C:Chl ratio of 80 (wetzel et al 2006)\n!\n!  C_tot is the integrated pigment content in euphotic layer (mg/m2)\n!\n!  The parameters for calculating integrated Chl is based on a\n!  model by Uitz et al (2006).\n!\n!  CHL   = average Chl a conc. detected by Modis (mg/m3)\n!  Zm    = mixed layer depth (m)\n!  Ze    = euphotic depth (PAR 1% of surface value (m)\n!\n!  C_tot differs dependent on the water being stratified\n!  or well-mixed.\n!___________________________________________________________________________\n!\n!  GAS EXCHANGE\n!\n!  Net flux from the ocean is given by the equation:\n!\n!    F = Kw * ( CHg0_aq - CHg0_atm / H )    (Lis & Slanter 1974)\n!\n!  Kw is the mass transfer coefficient (cm/h)\n!    There are different possibilities for calculating Kw. The default is:\n!\n!    Kw = 0.25 * u^2 / SQRT ( Sc / ScCO2 )  (Nightingale et al. 2000)\n!\n!  u^2 is the square of the wind speed (10m above ground) (m/s)\n!\n!  Sc is the Schmidt # for Hg [unitless]\n!     (ref: Poissant et al 2000; Wilke and Chang 1995)\n!     to correct for seawater D0 is decreased by 6% as suggested\n!     by Wanninkhof (1992)\n!\n!    Sc = v/D = (0.017 * exp(-0.025T))/D = kinematic viscosity/diffusivity\n!\n!  Diffusivity is calculated by:\n!    D = (7.4*10D-8 scrt(2.26 * Mw) * TK) / (vi * N**0.6)\n!\n!    vi = viscocity of water\n!    N  = molal volumen of mercury = 14.18\n!\n!  Viscocity is taken from Loux (2001)\n!\n!  H is the diemensionless Henrys coefficient for elemental mercury\n!\n!    H = exp (-2404.3/T - 6.92) where T is sea temp in K (Andersson et al. 2008)\n!___________________________________________________________________________\n!\n!  PARTICLE SINKING\n!\n!  (from Sunderland & Mason 2007)\n!\n!  JorgC_kg = 0.1 (NPP**1.77) (MLD**-0.74)\n!____________________________________________________________________________\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE        :: FIRST = .TRUE.\n    LOGICAL              :: IS_OCEAN_BOX\n    CHARACTER(LEN=255)   :: FILENAME\n    INTEGER              :: nAdvect,   NA\n    INTEGER              :: I,         J,        C\n    INTEGER              :: N,         N_tot_oc\n    INTEGER              :: NEXTMONTH, THISMONTH\n    INTEGER              :: THISYEAR\n\n    REAL(fpp)            :: A_M2,     DTSRCE,   MLDCM\n    REAL(fpp)            :: CHg0aq,   CHg0,     vi,       JorgC_kg\n    REAL(fpp)            :: TC,       TK,       Kw\n    REAL(fpp)            :: Sc,       ScCO2,    USQ,      MHg\n    REAL(fpp)            :: Hg2_RED,  Hg2_GONE, Hg2_CONV\n    REAL(fpp)            :: FRAC_L,   FRAC_O,   H,        TOTDEP\n    REAL(fpp)            :: oldMLD,   XTAU,     TOTDEPall\n    REAL(fpp)            :: FUP(State_Grid%NX,State_Grid%NY)\n    REAL(fpp)            :: FDOWN(State_Grid%NX,State_Grid%NY)\n    REAL(fpp)            :: X,        Y,        D\n    REAL(fpp)            :: NPP_tot,  A_ocean,  NPP_avg,  RADz\n    REAL(fpp)            :: EC\n    REAL(fpp)            :: k_red,    k_red_rad,  k_red_bio\n    REAL(fpp)            :: k_ox\n    REAL(fpp)            :: SPM,      Frac_Hg2, OC_tot_kg\n    REAL(fpp)            :: Hg2aq_tot\n    REAL(fpp)            :: C_tot,    Ze,       OC_tot,   Hg0_OX\n    REAL(fpp)            :: Kd_part, k_ox_dark\n    REAL(fpp)            :: FRAC_OPEN_OCEAN,    FRAC_OCEAN_OR_ICE\n    REAL(fpp)            :: OLDFLOW,            RIVER_HG\n    REAL(fpp)            :: FRAC_REDUCIBLE,     UVI_RATIO\n    REAL(fpp)            :: SNOW_Hg2aq\n\n    ! Parameters\n    REAL(fpp), PARAMETER :: EC_w      = 0.0145e+0_fpp\n    REAL(fpp), PARAMETER :: EC_doc    = 0.654e+0_fpp\n    REAL(fpp), PARAMETER :: C_doc     = 1.5e+0_fpp\n    !REAL(fpp), PARAMETER :: k_radbase = 1.73d-6\n    !decrease photoreduction in atm & surf ocean\n    ! per H. Amos 23 Sep 2011 to multiply by 0.9e+0_fpp\n    ! implemented by eck 10/19/11\n\n    REAL(fpp), PARAMETER :: k_radbase = 1.557e-6_fpp\n    REAL(fpp), PARAMETER :: k_biobase = 4.1e-10_fpp\n    REAL(fpp), PARAMETER :: k_oxbase  = 6.64e-6_fpp\n    REAL(fpp), PARAMETER :: ECchla    = 31e+0_fpp\n\n    ! Conversion factor from [cm/h * ng/L] --> [kg/m2/s]\n    REAL(fpp), PARAMETER :: TO_KGM2S = 1.0e-11_fpp / 3600e+0_fpp\n\n    ! Monthly Arctic river Hg concentrations (jaf, 12/8/11)\n    ! These assume no river Hg flux in Nov-Apr and concentrations at\n    ! freshet (May-June) 3x higher than in summer (Leitch et al., 2009).\n    ! These values are chosen to maximize agreement with atmospheric\n    ! Hg0 observations at Arctic sites (Alert, Zeppelin, Amderma).\n    ! They were calculated using:\n    ! Flux = CHg*Flow = CHg_may*Flow_may + CHg_jun*Flow_jun + ...\n    ! If (e.g. here) CHg is 3x higher in May-June, you end up with\n    ! Flux = 3CHg_jul*Flow_may + 3CHg_jul*Flow_jun + CHG_jul*Flow_jul + ...\n    !      = CHg_jul * ( 3*Flow_may + 3*Flow_jun + Flow_jul + ...)\n    ! You can then calculate CHg_jul and use it to calculate CHg for\n    ! other months.\n    ! This is in kg/km3 = ng/L\n    REAL*8,  PARAMETER :: RIVER_CHg(12) = (/0d0,  0d0,  0d0,  0d0, &\n                                           80d0, 80d0, 27d0, 27d0, &\n                                           27d0, 27d0,  0d0,  0d0 /)\n    REAL*8             :: A_ARCTIC_OCEAN\n\n    ! Small numbers to avoid dividing by zero\n    REAL(fpp), PARAMETER :: SMALLNUM   = 1e-32_fpp\n    REAL(fpp), PARAMETER :: NPPMINNUM   = 5e-2_fpp\n    REAL(fpp), PARAMETER :: CHLMINNUM   = 1e-1_fpp\n\n    ! For values from Input_Opt\n    LOGICAL              :: LArcticRiv,  LKRedUV\n\n    ! Pointers\n    TYPE(SpcConc), POINTER   :: Spc(:)\n    REAL(fpp),     POINTER   :: Hg0aq(:,:)\n    REAL(fpp),     POINTER   :: Hg2aq(:,:)\n    REAL(fpp),     POINTER   :: HgPaq(:,:)\n\n    ! Pointers to fields in the HEMCO data structure\n    REAL(f4), POINTER    :: TOMS   (:,:)   ! O3\n    REAL(f4), POINTER    :: TOMS_PD(:,:)   ! present day O3\n    REAL(f4), POINTER    :: TOMS_LT(:,:)   ! long-term O3\n\n    ! Strings\n    CHARACTER(LEN=255) :: LOC = 'OCEAN_MERCURY_FLUX (GeosCore/ocean_mercury_mod.F90)'\n\n    IF (LOCEANCOEF) THEN\n       k_ox_dark = 10d0**(-5.2d0)\n    ELSE\n       k_ox_dark = 1d-7\n    ENDIF\n\n    !=================================================================\n    ! OCEAN_MERCURY_FLUX begins here!\n    !=================================================================\n\n    ! Initialize pointers\n    TOMS    => NULL()\n    TOMS_PD => NULL()\n    TOMS_LT => NULL()\n\n    ! Copy values from Input_Opt\n    LArcticRiv   = Input_Opt%LArcticRiv\n    LKRedUV      = Input_Opt%LKRedUV\n\n    ! Point to fields in State_Chm\n    Spc      => State_Chm%Species\n    Hg0aq    => State_Chm%OceanHg0\n    Hg2aq    => State_Chm%OceanHg2\n    HgPaq    => State_Chm%OceanHgP\n\n    ! Loop limit for use below\n    N_tot_oc = 1\n\n    ! Molecular weight of Hg (applicable to all tagged tracers)\n    MHg = State_Chm%SpcData(1)%Info%MW_g * 1e-3_fpp\n\n    ! Get current month\n    THISMONTH = GET_MONTH()\n\n    ! Get current year to check if leap year (jaf, 8/12/11)\n    THISYEAR  = GET_YEAR()\n\n    !-----------------------------------------------------------------\n    ! Read O3 data from HEMCO\n    !-----------------------------------------------------------------\n\n    ! Now also read TOMS O3 column data\n    IF ( LKRedUV ) THEN\n\n       ! TOMS O3 columns [dobsons]\n       CALL HCO_GetPtr( HcoState, 'TOMS_O3_COL', TOMS, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL ERROR_STOP ( 'Cannot get pointer to TOMS_O3_COL', LOC )\n       ENDIF\n\n       ! TOMS O3 columns, present-day [dobsons]\n       CALL HCO_GetPtr( HcoState, 'TOMS_O3_PD', TOMS_PD, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL ERROR_STOP ( 'Cannot get pointer to TOMSPD_O3_COL', LOC )\n       ENDIF\n\n       ! TOMS O3 columns, long-term [dobsons]\n       CALL HCO_GetPtr( HcoState, 'TOMS_O3_LT', TOMS_LT, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL ERROR_STOP ( 'Cannot get pointer to TOMSLT_O3_COL', LOC )\n       ENDIF\n\n    ENDIF\n\n    !-----------------------------------------------\n    ! Read monthly NPP, RADSW, MLD, UPVEL, dMLD data\n    !-----------------------------------------------\n\n    IF ( ITS_A_NEW_MONTH() ) THEN\n\n       ! Get monthly MLD, NPP, CHL etc.\n       CALL OCEAN_MERCURY_READ( Input_Opt, State_Grid, THISMONTH, THISYEAR, RC )\n\n    ENDIF\n\n    !eds 10/19/10\n    IF ( FIRST ) THEN\n       MLDav = MLD\n       FIRST = .FALSE.\n    ENDIF\n\n    !-----------------------------------------------\n    ! MLD and entrainment change in middle of month\n    !-----------------------------------------------\n\n    dMLD = dMLD1\n    dFLOW = dFLOW1\n\n    IF ( ITS_MIDMONTH() ) THEN\n       dMLD = dMLD2\n       dFLOW = dFLOW2\n    ENDIF\n\n    ! Emission timestep [s]\n    DTSRCE = GET_TS_EMIS()\n\n    !----------------------------------------------------------------\n    ! Calculate total mean NPP (mg/m2/day) for later\n    !----------------------------------------------------------------\n\n    ! Initialize values\n    NPP_tot = 0e+0_fpp\n    A_ocean = 0e+0_fpp\n    A_ARCTIC_OCEAN = 0e+0_fpp\n\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Grid box surface area [m2]\n       A_M2 = State_Grid%Area_M2(I,J)\n\n       ! Grid-box latitude [degrees]\n       Y = State_Grid%YMid(I,J)\n\n       ! Use fractional land type information from met fields (jaf, 4/26/11)\n       ! FROCEAN is a constant, so to get correct ocean fraction we\n       ! need to subtract the sea ice fraction.\n       ! We now compute ocean chemistry for entire ocean grid box,\n       ! irrespective of ice cover (jaf, 11/28/11)\n       NPP_tot = NPP_tot + NPP(I,J) * A_M2 * State_Met%FROCEAN(I,J)\n       A_ocean = A_ocean + A_M2 * State_Met%FROCEAN(I,J)\n       IF ( Y >= 70 ) THEN\n          !IF ( (State_Met%FROCEAN(I,J) - State_Met%FRSEAICE(I,J)) > 0d0 )\n          IF ( State_Met%FROCEAN(I,J) > 0d0 ) &\n               A_ARCTIC_OCEAN = A_ARCTIC_OCEAN + A_M2 * State_Met%FROCEAN(I,J)\n       ENDIF\n\n    ENDDO\n    ENDDO\n\n    NPP_avg = NPP_tot / A_ocean\n\n    !----------------------------------------------------------------\n    ! Calculate Arctic river flow and Hg flux (jaf, 12/8/11)\n    !----------------------------------------------------------------\n    ! FLOW is in m3/s; RIVER_CHg in kg/km3; RIVERHG in kg/m2/s\n    OLDFLOW = FLOWNOW\n    FLOWNOW = OLDFLOW + dFLOW * DTSRCE\n\n    ! For some months / met fields, there may be no non-ice ocean\n    IF ( A_ARCTIC_OCEAN == 0e+0_fpp ) THEN\n       RIVER_HG = 0e+0_fpp\n    ELSE\n       RIVER_HG = FLOWNOW * RIVER_CHg(THISMONTH) * 1e-9_fpp / A_ARCTIC_OCEAN\n    ENDIF\n\n    ! Loop over surface boxes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )& \n    !$OMP PRIVATE( I,                J,               A_M2                  )&\n    !$OMP PRIVATE( C,                CHg0,            CHg0aq                )&\n    !$OMP PRIVATE( C_tot,            D,               EC                    )&\n    !$OMP PRIVATE( Frac_Hg2,         Frac_O,          FRAC_OCEAN_OR_ICE     )&\n    !$OMP PRIVATE( FRAC_OPEN_OCEAN,  FRAC_REDUCIBLE,  H                     )&\n    !$OMP PRIVATE( Hg0_OX,           Hg2aq_tot,       Hg2_Conv              )&\n    !$OMP PRIVATE( Hg2_GONE,         Hg2_RED,         IS_OCEAN_BOX          )&\n    !$OMP PRIVATE( JorgC_kg,         k_ox,            k_red                 )&\n    !$OMP PRIVATE( k_red_bio,        k_red_rad,       kd_part               )&\n    !$OMP PRIVATE( Kw,               MLDcm,           N                     )&\n    !$OMP PRIVATE( OLDMLD,           OC_tot,          OC_tot_kg             )&\n    !$OMP PRIVATE( RADz,             Sc,              ScCO2                 )&\n    !$OMP PRIVATE( SNOW_Hg2aq,       SPM,             TC                    )&\n    !$OMP PRIVATE( TK,               TOTDEP,          TOTDEPall             )&\n    !$OMP PRIVATE( Usq,              UVI_RATIO,       vi                    )&\n    !$OMP PRIVATE( Ze                                                       )&\n    !$OMP COLLAPSE( 2                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize variables (now alphabetized)\n       A_M2           = State_Grid%Area_M2(I,J)   ! Grid box area [m2]\n       CHg0           = 0.0_fpp\n       CHg0aq         = 0.0_fpp\n       C_tot          = 0.0_fpp\n       D              = 0.0_fpp\n       EC             = 0.0_fpp\n       Frac_Hg2       = 0.0_fpp\n       Frac_O         = 0.0_fpp\n       FRAC_REDUCIBLE = 0.0_fpp\n       H              = 0.0_fpp\n       Hg0_OX         = 0.0_fpp\n       Hg2aq_tot      = 0.0_fpp\n       Hg2_CONV       = 0.0_fpp\n       Hg2_GONE       = 0.0_fpp\n       Hg2_RED        = 0.0_fpp\n       JorgC_kg       = 0.0_fpp\n       k_ox           = 0.0_fpp\n       k_red          = 0.0_fpp\n       k_red_bio      = 0.0_fpp\n       k_red_rad      = 0.0_fpp\n       kd_part        = 0.0_fpp\n       Kw             = 0.0_fpp\n       OLDMLD         = MLDav(I,J)\n       MLDav(I,J)     = MLDav(I,J) + dMLD(I,J) * DTSRCE\n       MLDcm          = MLDav(I,J)\n       OC_tot         = 0.0_fpp\n       OC_tot_kg      = 0.0_fpp\n       RADz           = 0.0_fpp\n       Sc             = 0.0_fpp\n       ScCO2          = 0.0_fpp\n       SNOW_Hg2aq     = 0.0_fpp\n       SPM            = 0.0_fpp\n       TC             = 0.0_fpp\n       TK             = 0.0_fpp\n       TOTDEP         = 0.0_fpp\n       TOTDEPall      = 0.0_fpp\n       Usq            = 0.0_fpp\n       UVI_RATIO      = 0.0_fpp\n       vi             = 0.0_fpp\n       X              = State_Grid%XMid(I,J)      ! Longitude [deg]\n       Y              = State_Grid%YMid(I,J)      ! Laittude [deg]\n       Ze             = 0.0_fpp\n\n       ! Add error trap to prevent new MLD from being negative\n       ! (jaf, 7/6/11)\n       IF (MLDcm .LT. 0e+0_fpp) MLDcm = 0e+0_fpp\n\n       ! Get fractions of land and ocean in the grid box [unitless]\n       ! Use fractional land type information from met fields. Also make sure\n       ! we do not use boxes that are mostly sea ice for consistency\n       ! FROCEAN is a constant, so to get correct ocean fraction we\n       ! need to subtract the sea ice fraction. Don't let the fraction\n       ! be less than zero (jaf, 4/26/11)\n       !---------------------------------------------------------------\n       ! Updated to distinguish between the fraction of the box that is\n       ! open ocean and that which is ocean at depth (i.e. surface is\n       ! either ocean or ice).\n       ! We perform ocean chemistry whether or not there is\n       ! ice cover, but ice will reduce both solar radiation input to\n       ! ocean and mercury deposition to ocean (jaf, 11/28/11)\n       !---------------------------------------------------------------\n       FRAC_OPEN_OCEAN   = MAX( State_Met%FROCEAN(I,J) - &\n                                State_Met%FRSEAICE(I,J), 0e+0_fpp)\n       FRAC_OCEAN_OR_ICE = State_Met%FROCEAN(I,J)\n       FRAC_O            = FRAC_OCEAN_OR_ICE\n       IS_OCEAN_BOX      = ( FRAC_OCEAN_OR_ICE > 0e+0_fpp )\n\n       ! Change ocean mass due to mixed layer depth change\n       ! Keep before next IF so that we adjust mass in ice-covered boxes\n       CALL MLD_ADJUSTMENT( I, J, OLDMLD*1e-2_fpp, MLDcm*1e-2_fpp, &\n                            Input_Opt, State_Chm, State_Grid, State_Met )\n\n       !---------------------------------------------------------------\n       ! Deliver snowpack Hg to ocean if snow has melted\n       ! Call before IF statement so that snow Hg is zeroed in land\n       ! boxes as well as ocean boxes (jaf, 11/29/11)\n       CALL DELIVER_SNOW_HG( SNOW_Hg2aq, I, J, State_Met, State_Chm, &\n                             State_Diag )\n\n       ! Loop over total Hg (and ocean Hg if necessary)\n       Hg2aq(I,J) = Hg2aq(I,J) + SNOW_Hg2aq\n\n       !===========================================================\n       ! Make sure we are in an ocean box\n       !===========================================================\n       ! Use consistent criteria for Ocean/Land/Ice categories\n       ! with snowpack and terrestrial emissions  !CDH 5/18/2010\n       ! Use ocean criteria developed above (jaf, 11/29/11)\n       IF ( (IS_OCEAN_BOX) .and. (MLDCM > 0.99e+0_fpp) ) THEN\n\n          !===========================================================\n          ! Reduction and oxidation coefficients\n          !===========================================================\n          ! Avoid having NPP or CHL to be zero\n          ! Moved to OCEAN_MERCURY_READ\n          !!GanLuo+NPP(I,J) = MAX ( NPP(I,J) , NPPMINNUM )\n          !NPP(I,J) = MAX ( NPP(I,J)*1.d0 , NPPMINNUM )\n          !\n          !!GanLuo+CHL(I,J) = MAX ( CHL(I,J) , CHLMINNUM )\n          !CHL(I,J) = MAX ( CHL(I,J)*1.d0 , CHLMINNUM )\n\n          ! Light attenuation (RADz) is calculated\n          EC     = (EC_w + ( EC_doc * C_doc * ( NPP(I,J) / NPP_avg ) ) &\n                 + ( ECchla * CHL(I,J) / 1000 ) )\n\n          RADz   = ( 1 / ( MLDcm * 1e-2_fpp )) &\n                   * (State_Met%SWGDN(I,J) / EC ) &\n                   * ( 1 - EXP( -EC * ( MLDcm * 1e-2_fpp) ) )\n\n          ! Reduce RADz in fractional sea ice boxes to only include\n          ! the fraction of open ocean (i.e. assume zero light\n          ! penetration through sea ice (jaf, 11/28/11)\n          IF ( FRAC_OCEAN_OR_ICE > FRAC_OPEN_OCEAN ) &\n               RADz = RADz * FRAC_OPEN_OCEAN\n\n          !--------------------------------------------------------\n          ! Hg(tot)aq reduction rate constants\n          !--------------------------------------------------------\n          k_red_rad   = ( k_radbase * RADz )\n\n          ! NPP is increased by 0.1\n          k_red_bio   = ( ( k_biobase * NPP(I,J) ) * 1.1 )\n\n          k_red       = k_red_rad + k_red_bio\n\n          !-------------------------------------------------------\n          ! Hg(0)aq oxidation rate constants\n          !------------------------------------------------------\n          k_ox        = ( k_ox_dark + ( k_oxbase * RADz ) )\n\n          !=========================================================\n          ! Partitioning and organic carbon\n          !=========================================================\n\n          ! Calculation of C_tot for stratified waters\n          IF (CHL(I,J) <= 1.0) THEN\n             C_tot    = 36.1e+0_fpp * CHL(I,J)**0.357e+0_fpp\n          ELSE\n             C_tot    = 37.7e+0_fpp * CHL(I,J)**0.615e+0_fpp\n          ENDIF\n\n          ! Calculation of the euphotic depth\n          IF (C_tot > 13.65) THEN\n             Ze       = 912.0e+0_fpp * C_tot**(-0.839e+0_fpp)\n          ELSE\n             Ze       = 426.3e+0_fpp * C_tot**(-0.547e+0_fpp)\n          ENDIF\n\n          ! Recalculation of C_tot if water is shown to be well-mixed\n          IF ((Ze/(MLDcm*1e-2_fpp)) < 1) THEN\n             C_tot    = 42.1e+0_fpp * CHL(I,J)**0.538e+0_fpp\n          ENDIF\n\n          !--------------------------------------------------------------\n          ! Standing stock of organic carbon and total biomass\n          !--------------------------------------------------------------\n          ! Calculated based on C:Chl ratio of 80 (wetzel et al 2006)\n          ! Stodk of organic carbon is in mgC/m2\n          ! Then converting to OC_tot_kg in kg/grid\n          OC_tot      = C_tot * 80.0e+0_fpp\n          OC_tot_kg   = OC_tot * 1e-6_fpp * A_M2 * FRAC_O\n\n          ! Total biomas is a proxy for SPM (mg/m3) used in Hg(II)\n          ! partitioning. Calculated by multiplying the standing\n          ! stock of organic carbon with 10 (exp Bundy 2004)\n          SPM = ( OC_tot * 10.0e+0_fpp / ( MLDcm * 1e-2_fpp ) ) * 1.1\n\n          !--------------------------------------------------------------\n          ! Hg(II) - Hg(P) partitioning coefficient\n          !--------------------------------------------------------------\n          ! Kd_part is based on Mason et al. 1998 and Mason &\n          ! Fitzgerald 1993. (L/kg)\n          ! SPM is converted to kg/L by 10E-9\n          !\n          ! SPM = Suspended particulate matter (kg/L)\n          !\n          ! For Arctic, log10(Kd)=5.0, see Fisher et al. 2012 (jaf, 3/23/12)\n          ! For Arctic, now use log10(Kd)=4.5 to match Fisher et al. (2013)\n          ! When not in the arctic and LOCEANCOEF is true, use Kd_part\n          ! and k_ox_dark from Song et al. ACP 2015, otherwise use ocean\n          ! coefficients from Soerensen et al. EST 2010 ! sjs,08/12/2015\n          IF ( Y >= 70.0e+0_fpp ) THEN\n             Kd_part = 10e+0_fpp**(4.5e+0_fpp)\n          ELSE IF ( LOCEANCOEF ) THEN\n             Kd_part = 10e+0_fpp**(4.2e+0_fpp)\n          ELSE\n             Kd_part = 10e+0_fpp**(5.5e+0_fpp)\n          ENDIF\n\n          Frac_Hg2    = 1 / ( 1 + Kd_part * SPM * 1e-9_fpp)\n\n          !--------------------------------------------------------------\n          ! Sea surface temperature in both [K] and [C]\n          !--------------------------------------------------------------\n          ! where TSKIN is the temperature (K) at the ground/sea surface\n          ! (Use as surrogate for SST, cap at freezing point)\n          TK     = MAX( State_Met%TSKIN(I,J), 273.15e+0_fpp )\n          TC     = TK - 273.15e+0_fpp\n\n          !==============================================================\n          ! Volatilisation of Hg0\n          !==============================================================\n\n          ! Henry's law constant (gas->liquid) [unitless] [L water/L air]\n          ! (ref: Andersson et al. 2008)\n          H      = EXP( ( -2404.3e+0_fpp / TK ) + 6.92e+0_fpp )\n\n          ! Viscosity as a function of changing temperatures\n          ! (ref: Loux 2001)\n          ! The paper says the viscosity is given in cP but us really P\n          ! and we therefor multiply with 100 to get cP.\n          vi    = ( 10**( ( 1301.0e+0_fpp / ( 998.333e+0_fpp &\n                  + 8.1855e+0_fpp                            &\n                  * ( TC - 20.0e+0_fpp )+ 0.00585e+0_fpp     &\n                  * (TC - 20.0e+0_fpp )**2 ) )               &\n                  - 3.30233e+0_fpp ) ) * 100.0e+0_fpp\n\n          ! Schmidt # for Hg [unitless]\n          ! Sc = v/D = kinematic viscosity/diffusivity\n          ! (ref: Poissant et al 2000; Wilke and Chang 1995)\n          ! to correct for seawater D0 is decreased by 6% as suggested\n          ! by Wanninkhof (1992)\n          D  = 7.4e-8_fpp * sqrt( 2.26 * 18.0 ) * TK / ( ( 14.8**0.6 ) *vi )\n\n          Sc = ( 0.017e+0_fpp * EXP( -0.025e+0_fpp * TC ) ) / D\n\n          ! Schmidt # of CO2 [unitless] for CO2 in seawater at 20 degrees C\n          ! The value is set to a constant based on other ocean studies\n          ! (Gardfeld et al. 2003, Rolfhus & Fitzgerald 2004, Mason et al. 2001)\n          !\n          ! Correction of the Schmidt # with temperature based on Poissant\n          ! et al. (2000) (for freshwatersystems).\n          ScCO2  = 644.7e+0_fpp + TC * ( -6.16e+0_fpp + TC * &\n                   ( 0.11e+0_fpp ) )\n\n          ! Square of surface (actually 10m) wind speed [m2/s2]\n          Usq    = State_Met%U10M(I,J)**2 + State_Met%V10M(I,J)**2\n\n          !------------------------------------------------------\n          ! Parameterizations for calculating water side mass\n          ! trasfer coefficient\n          !------------------------------------------------------\n          ! Mass transfer coefficient [cm/h], from Nightingale et al. 2000\n          Kw     = ( 0.25e+0_fpp * Usq ) / SQRT( Sc / ScCO2 )\n\n          !-----------------------------------------------------\n          ! Additional parameterizations:\n\n          ! Nightinale et al. 2000 for instantanous winds\n          !Kw     = ( 0.33e+0_fpp*SQRT(usq)+0.22e+0_fpp*Usq) / SQRT( Sc / ScCO2 )\n\n          ! Lis and Merlivat 1986\n          ! Has less emphasis on windspeed as a driver for evasion\n          ! Gives a less total evasion than the Nigthingale et al. 2000\n          !IF (SQRT(Usq) <= 3.6e+0_fpp ) THEN\n          !   Kw = ( 0.17e+0_fpp * SQRT(Usq) * ( Sc / ScCO2 )**0.67e+0_fpp )\n          !ELSE IF (SQRT(Usq) > 3.6e+0_fpp .and. SQRT(Usq) <= 13e+0_fpp ) THEN\n          !   Kw = ( ( 2.8e+0_fpp * SQRT(Usq))-9.6 ) * ( Sc / ScCO2 )**0.5e+0_fpp\n          !ELSE\n          !   Kw = ( ( 5.9e+0_fpp * SQRT(Usq))-49.3 ) * ( Sc / ScCO2)**0.5e+0_fpp\n          !ENDIF\n\n          ! Wanninkhof et al (1992)\n          !Kw     = ( 0.31e+0_fpp * Usq ) / SQRT( Sc / ScCO2 )\n\n          !===========================================================\n          ! Particulate sinking\n          !===========================================================\n          ! HgP sinking is based on Sunderland & Mason 2007.\n          ! JorgC originally in gC m-2 year-1, which is convereted\n          ! to kgC grid-1 timestep-1\n          ! NPP is converted from mgC/m2/d-1 to gC/m2/year-1\n          ! JorgC = 0.1 ( ( NPP * 12 )**1.77 ) *  MLD**n * M2 * Frac_O\n          !         * 10^-3 * DTSRCE / ( 365 * 24 * 60 * 60 )\n          JorgC_kg  = ( ( 0.1e+0_fpp * ((( NPP(I,J) * 365) / 1000 )     &\n                      **1.77) * (( MLDcm * 1e-2_fpp )**(-0.74e+0_fpp) ) &\n                      * A_M2 * FRAC_O * 1e-3_fpp) / ( 365.0e+0_fpp      &\n                      * 24.0e+0_fpp * 60.0e+0_fpp * 60.0e+0_fpp ) )     &\n                      * DTSRCE\n\n          !-----------------------------------------------------------\n          ! Physical transport for tracers, Part II:\n          ! Upward current transport (Ekman pumping)\n          ! Upward mass flux is:\n          ! Mass = (Vol upwelling water) * (Conc. below thermocline)\n          ! Mass = (VEL * AREA * TIME  ) * (C * Molar Mass )\n          !-----------------------------------------------------------\n\n          ! Use CDEEPATL to scale deepwater in NAtlantic\n          IF ( UPVEL(I,J) > 0e+0_fpp ) THEN\n\n             !%%% Removed loop over Hg categories here\n             !%%% and also removed NN as the 3rd array index\n             !%%%  -- Bob Yantosca (23 Jun 2022)\n\n                !--------------------------------------------------------\n                ! Atlantic\n                !--------------------------------------------------------\n                IF ( ( X >= -80.0 .and. X < 25.0 )  .and. &\n                     ( Y >= -25.0 .and. Y < 55.0 ) ) THEN    !(anls,100114)\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepatl(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepatl(2) )\n\n                   ! Hg particulate\n                   !IF ( C == 1 ) THEN\n                   !   HgC(I,J)   = HgC(I,J) + UPVEL(I,J) &\n                   !      * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepatl(3) )\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepatl(3) )\n                   !ENDIF\n\n                !--------------------------------------------------------\n                ! North Pacific (west)\n                !--------------------------------------------------------\n                ELSE IF ( ( X >= -180.0 .and. X < -80.0 )  .and. &\n                          ( Y >=   30.0 .and. Y <  70.0 ) ) THEN\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnpa(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnpa(2) )\n\n                   ! Hg particulate\n                   !IF ( C == 1 ) THEN\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnpa(3) )\n                   !ENDIF\n\n                ! North Pacific (east)\n                ELSE IF ( ( X >= 25.0 .and. X < 180.0 )  .and. &\n                          ( Y >= 30.0 .and. Y <  70.0 ) ) THEN\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnpa(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                       * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnpa(2) )\n\n                   ! Hg particulate &\n                   !IF ( C == 1 ) THEN\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnpa(3) )\n                   !ENDIF\n\n                !--------------------------------------------------------\n                ! North Atlantic\n                !--------------------------------------------------------\n                ELSE IF ( ( X >= -80.0 .and. X < 25.0 )  .and. &\n                          ( Y >=  55.0 .and. Y < 70.0 ) ) THEN\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnat(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnat(2) )\n\n                   ! Hg particulate\n                   !IF ( C == 1 ) THEN\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepnat(3) )\n                   !ENDIF\n\n                !--------------------------------------------------------\n                ! South Atlantic\n                !--------------------------------------------------------\n                ELSE IF ( ( X >= -80.0 .and. X <  25.0 )  .and. &\n                          ( Y >= -65.0 .and. Y < -25.0 ) ) THEN   !(anls,100114)\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepsat(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepsat(2) )\n\n                   ! Hg particulate\n                   !IF ( C == 1 ) THEN\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepsat(3) )\n                   !ENDIF\n\n                !--------------------------------------------------------\n                ! Antarctic\n                !--------------------------------------------------------\n                ELSE IF ( Y >=  -90.0 .and. Y <  -65.0 ) THEN\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepant(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepant(2) )\n\n                   ! Hg particulate\n                   !IF ( C == 1 ) THEN\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeepant(3) )\n                   !ENDIF\n\n                !--------------------------------------------------------\n                ! Arctic\n                !--------------------------------------------------------\n                ELSE IF ( Y >=  70.0 .and. Y <  90.0 ) THEN\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeeparc(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeeparc(2) )\n\n                   ! Hg particulate\n                   !IF ( C == 1 ) THEN\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeeparc(3) )\n                   !ENDIF\n\n                ELSE\n\n                   ! Hg0 (kg)\n                   Hg0aq(I,J) = Hg0aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeep(1) )\n\n                   ! Hg2\n                   Hg2aq(I,J) = Hg2aq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeep(2) )\n\n                   ! Hg particulate\n                   HgPaq(I,J)   = HgPaq(I,J) + UPVEL(I,J) &\n                        * ( MHg * A_M2 * FRAC_O * DTSRCE * CDeep(3) )\n\n                ENDIF\n\n             !----------------------------------------------------------\n             ! Physical transport for TOTAL TRACERS, Part III:\n             ! Downward current transport (Ekman pumping)\n             ! Treated as a deposition velocity\n             ! d(Mass)/dt = - VEL * Mass / BoxHeight\n             !----------------------------------------------------------\n          ELSE\n\n             !%%% Removed loop over Hg categories here\n             !%%% and also removed NN as the 3rd array index\n             !%%%  -- Bob Yantosca (23 Jun 2022)\n\n                ! Hg0\n                Hg0aq(I,J) = Hg0aq(I,J) &\n                     * ( 1e+0_fpp + UPVEL(I,J) * DTSRCE / &\n                     ( MLDcm * 1e-2_fpp ) )\n\n                ! Hg2\n                Hg2aq(I,J) = Hg2aq(I,J) &\n                     * ( 1e+0_fpp + UPVEL(I,J) * DTSRCE / &\n                     ( MLDcm * 1e-2_fpp ) )\n\n                ! Hg particulate\n                HgPaq(I,J)  = HgPaq(I,J) &\n                     * ( 1e+0_fpp + UPVEL(I,J) * DTSRCE / &\n                     ( MLDcm * 1e-2_fpp ) )\n\n          ENDIF\n\n          !===========================================================\n          ! Calculate reduction, conversion, sinking, evasion\n          !\n          ! (1) Hg2 <-> HgP and HgP sinks\n          ! (2) Hg2 <-> Hg0 and Hg0 evades\n          !\n          ! NOTE: N is the GEOS-CHEM tracer # (for Spc)\n          !       and NN is the Hg category # (for Hg0aq, Hg2aq, HgP)\n          !===========================================================\n\n          !%%% Removed loop over Hg categories here\n          !%%% and also removed NN as the 3rd array index\n          !%%%  -- Bob Yantosca (23 Jun 2022)\n\n             ! Reset flux each timestep\n             FLUX(I,J)  = 0e+0_fpp\n             FUP(I,J)   = 0e+0_fpp\n             FDOWN(I,J) = 0e+0_fpp\n\n             !--------------------------------------------------------\n             ! Calculate new Hg(II) mass\n             !\n             ! Add flux of Hg(II) from rivers in Arctic (jaf, 12/8/11)\n             ! Convert to kg/box/timestep and add to Hg2aq\n             !--------------------------------------------------------\n             IF ( (LArcticRiv) .AND. (Y >= 70) ) THEN\n                Hg2aq(I,J) = Hg2aq(I,J) + RIVER_HG * &\n                                A_M2 * DTSRCE * FRAC_O\n\n                !-----------------------------------------------------\n                ! %%%%% HISTORY DIAGNOSTIC %%%%%\n                !\n                ! Flux of Hg(II) from rivers to ocean in Arctic [kg/s]\n                ! NOTE: RIVER_HG is kg/m2/s, convert to kg/s\n                !-----------------------------------------------------\n                IF ( State_Diag%Archive_EmisHg2rivers ) THEN\n                   State_Diag%EmisHg2rivers(I,J) = ( RIVER_HG * A_M2 * FRAC_O )\n                ENDIF\n\n             ENDIF\n\n             !--------------------------------------------------------\n             ! Calculate new Hg(II) mass\n             !--------------------------------------------------------\n\n             ! Before 11/3/2009 (cdh, hamos)\n             !! Total Hg(II) deposited on ocean surface [kg]\n             !TOTDEP = (WD_Hg2(I,J) + DD_Hg2(I,J))*FRAC_O\n             !\n             ! Total Hg(II) deposited on ocean surface [kg]\n             ! Includes gaseous and particulate reactive Hg(II)\n             ! plus anthropogenic primary Hg(p) (cdh, hamos 11/3/2009)\n             TOTDEPall = (WD_Hg2(I,J) + DD_Hg2(I,J) + &\n                          WD_HgP(I,J) + DD_HgP(I,J) )\n\n             ! When distinguishing open ocean vs ice, only deposition\n             ! to ocean should be included in Hg exchange (jaf, 11/28/11)\n             !TOTDEP        = TOTDEPall * FRAC_O\n             TOTDEP        = TOTDEPall * FRAC_OPEN_OCEAN\n\n             ! Add deposited Hg(II) to the Hg(II)tot ocean mass [kg]\n             Hg2aq_tot     = Hg2aq(I,J) + HgPaq(I,J) + TOTDEP\n\n             Hg2aq(I,J) = Hg2aq_tot * Frac_Hg2\n\n             ! Mass of Hg(II)  -->  Hg(0)\n             !---------------------------\n             ! Only a certain percentage of Hg(II) is considered reducible\n\n             ! Previously this value was set as 40%. Now it is determined\n             ! dynamically. Based on lab studies of Hg photoreduction,\n             ! UV-B radiation leads to more DGM production than UV-A. We\n             ! assume that this difference reflects the ability of higher\n             ! energy UV-B to break bonds that UV-A can't. In other words\n             ! UV-B increases the reducible fraction of Hg(II).\n             ! Changes in O3 columns are leading to changes in UV radiation\n             ! especially in the UV-B portion of the spectrum. Based on\n             ! realistic present-day conditions, we assume 50% of the\n             ! reducible pool (20% of total Hg(II) can be reduced by any\n             ! wavelength, but the remaining 50% by UV-B only, and this\n             ! fraction changes with time.\n             !\n             ! The relative change in UV is computed from the change in\n             ! O3 column. O3 column data is provided from TOMS satellite\n             ! data. UV is approximated using the UV Index (UVI), which\n             ! is heavily weighted to the UV-B portion of the spectrum.\n             ! To compute the UVI, we use the simplified analytical\n             ! formula from Madronich, 2007, Photochem & Photobio.\n             ! This formula does not apply to high albedo, but we use it\n             ! here only for radiation entering the water column. It also\n             ! assumes clear-sky, aerosol-free conditions. However, we\n             ! are considering only a ratio between present day and\n             ! current model time step, so we can assume on average those\n             ! conditions haven't changed (or we don't know enough about\n             ! how they have). Errors are induced for high solar zenith\n             ! angle, but for a given grid box / date-time, we can assume\n             ! no variation between years and therefore this should\n             ! have minimal impact on the ratio. Finally, SZA in a\n             ! given grid box at a given day/time doesn't change from\n             ! year to year, so we can simplify the formula by\n             ! excluding all common factors and do not need to rely on\n             ! SZA (which is occasionally negative even when there is\n             ! some incoming solar radiation, especially at the\n             ! equinox (jaf, 2/27/12, 8/3/12)\n             !\n             ! Some years have missing ozone data. In this case, we\n             ! replace the missing values with the longterm mean,\n             ! which will be >0 unless it is a region in polar\n             ! darkness. In that case, the darkness component should\n             ! already be caught with the RADz term used in the\n             ! reduction part of the code. (jaf, 8/2/12)\n             !\n             ! Use fraction=0.4 as error trapping default value\n             ! to prevent catastrophically low reduction. This\n             ! should basically never be used since in case of no\n             ! O3 , RADSWG will also be zero and there will be no\n             ! photo-reduction below. (jaf, 8/2/12)\n\n             ! Default: 40% HgII photo-reducible\n             FRAC_REDUCIBLE = 0.4e+0_fpp\n             IF ( LKRedUV ) THEN\n\n                IF ( (TOMS(I,J) < 0) .AND. (TOMS_LT(I,J) > 0) ) &\n                     TOMS(I,J) = TOMS_LT(I,J)\n\n                IF ( (TOMS(I,J) > 0) .AND. (TOMS_PD(I,J) > 0) ) THEN\n                   UVI_RATIO = ( TOMS(I,J) / TOMS_PD(I,J) )**(-1.23e+0_fpp)\n                   FRAC_REDUCIBLE = 0.2e+0_fpp + 0.2e+0_fpp * ( UVI_RATIO )\n                ENDIF\n             ENDIF\n\n             ! Now use new FRAC_REDUCIBLE for photo-reduction only.\n             ! Retain 40% for biological reduction\n             !Hg2_RED       = Hg2aq(I,J) * 0.4d0 * k_red * DTSRCE\n             Hg2_RED = Hg2aq(I,J) * DTSRCE * ( 0.4e+0_fpp * &\n                       k_red_bio + FRAC_REDUCIBLE * k_red_rad )\n\n             ! Mass of Hg(0) --> Hg(II)\n             Hg0_OX        = Hg0aq(I,J) * k_ox * DTSRCE\n\n             ! Amount of Hg(II) that is lost [kg]\n             Hg2_GONE      = Hg2_RED - Hg0_OX\n\n             ! Cap Hg2_GONE with available Hg2\n             IF ( Hg2_GONE > Hg2aq(I,J) ) THEN\n                Hg2_GONE   = MIN( Hg2_GONE, Hg2aq(I,J) )\n             ENDIF\n\n             IF ( (Hg2_GONE * (-1e+0_fpp)) >  Hg0aq(I,J)) THEN\n                Hg2_GONE   = (Hg0aq(I,J)*(-1))\n                !MAX (Hg2_GONE ,(Hg0aq(I,J)*(-1e+0_fpp)))\n             ENDIF\n\n             ! Hg(II) ocean mass after reduction and conversion [kg]\n             Hg2aq(I,J) = Hg2aq(I,J) - Hg2_GONE\n\n             !--------------------------------------------------------\n             ! Calculate new Hg(P) mass\n             !--------------------------------------------------------\n\n             ! HgP ocean mass after conversion\n             HgPaq(I,J)   = Hg2aq_tot * ( 1 - Frac_Hg2)\n\n             !----------------------------------------------------\n             ! Conversion between OC and Hg\n             !----------------------------------------------------\n             ! Hg/C ratio based on HgP(kg) and Stock of organic C(kg)\n             ! HgPaq_sunk funtion of C sunk and HgP/C ratio\n             HgPaq_SUNK(I,J)  = JorgC_kg * ( HgPaq(I,J ) / OC_tot_kg )\n\n             ! HgP ocean mass after sinking [kg]\n             HgPaq(I,J)   = HgPaq(I,J) - HgPaq_SUNK(I,J)\n             HgPaq(I,J)   = MAX ( HgPaq(I,J) , 0e+0_fpp )\n\n             !-----------------------------------------------------\n             ! %%%%% HISTORY DIAGNOSTIC %%%%%\n             !\n             ! Store organic carbon sinking to ocean [kgC/s]\n             !-----------------------------------------------------\n             IF ( State_Diag%Archive_FluxOCtoDeepOcean ) THEN\n                State_Diag%FluxOCtoDeepOcean(I,J) = JorgC_kg / DTSRCE\n             ENDIF\n\n             !--------------------------------------------------------\n             ! Calculate new Hg(0) mass\n             !--------------------------------------------------------\n\n             ! Add converted Hg(II) and subtract converted Hg(0) mass\n             ! to the ocean mass of Hg(0) [kg]\n             Hg0aq(I,J) = Hg0aq(I,J) + Hg2_GONE\n\n             !--------------------------------------------------------\n             ! Calculate oceanic and gas-phase concentration of Hg(0)\n             !--------------------------------------------------------\n\n             ! Concentration of Hg(0) in the ocean [ng/L]\n             CHg0aq        = ( Hg0aq(I,J) * 1e+11_fpp   ) / &\n                             ( A_M2          * FRAC_O ) / MLDcm\n\n             ! Gas phase Hg(0) concentration: convert [kg] -> [ng/L]\n             CHg0          = Spc(N)%Conc(I,J,1) * 1.0e+9_fpp / &\n                             State_Met%AIRVOL(I,J,1)\n\n             !--------------------------------------------------------\n             ! Compute flux of Hg(0) from the ocean to the air\n             !--------------------------------------------------------\n\n             ! Compute ocean flux of Hg0 [cm/h*ng/L]\n             FLUX(I,J)  = Kw * ( CHg0aq - ( CHg0 / H ) )\n\n             ! TURN OFF EVASION\n             !FLUX(I,J)= MIN(0.,FLUX(I,J))\n\n             !Prior to 09 Nov 2011, H Amos ---------------------\n             !Extra diagnostic: compute flux up and flux down\n             !FUP(I,J)   = ( Kw * CHg0aq )\n             !FDOWN(I,J) = ( Kw * CHg0 / H )\n             !--------------------------------------------------\n\n             ! Convert [cm/h*ng/L] --> [kg/m2/s] --> [kg/s]\n             ! Also account for ocean fraction of grid box\n             !FLUX(I,J)  = FLUX(I,J) * TO_KGM2S * A_M2 * FRAC_O\n             ! Assume fast horizontal equilibration w/in the grid box\n             ! therefore no need to scale by open ocean fraction\n             ! (jaf, 6/22/11)\n             ! Evasive flux only if there is some open ocean in the\n             ! grid box (not 100% sea ice)\n             IF ( FRAC_OPEN_OCEAN > 0d0 ) THEN\n                FLUX(I,J)  = FLUX(I,J) * TO_KGM2S * A_M2 * FRAC_O\n             ELSE\n                FLUX(I,J)  = 0e+0_fpp\n             ENDIF\n\n             !Prior to 09 Nov 2011, H Amos ---------------------\n             !FUP(I,J)  = FUP(I,J) * TO_KGM2S * A_M2 * FRAC_O\n             !FDOWN(I,J)  = FDOWN(I,J) * TO_KGM2S * A_M2 * FRAC_O\n             !--------------------------------------------------\n\n             !--------------------------------------------------------\n             ! Flux limited by ocean and atm Hg(0)\n             !--------------------------------------------------------\n\n             !Prior to 09 Nov 2011, H Amos ---------------------\n             ! Cap the flux w/ the available Hg(0) ocean mass\n             !IF ( FLUX(I,J) * DTSRCE > Hg0aq(I,J) ) THEN\n             !   FLUX(I,J) = Hg0aq(I,J) / DTSRCE\n             !   FUP(I,J)  = FLUX(I,J)-FDOWN(I,J)\n             !ENDIF\n             IF ( FLUX(I,J) * DTSRCE > Hg0aq(I,J) ) THEN\n                FLUX(I,J) = Hg0aq(I,J) / DTSRCE\n             ENDIF\n             !--------------------------------------------------\n\n             ! Cap the neg flux w/ the available Hg(0) atm mass\n             IF ( (-FLUX(I,J) * DTSRCE ) > Spc(N)%Conc(I,J,1) ) THEN\n                FLUX(I,J) = -Spc(N)%Conc(I,J,1) / DTSRCE\n             ENDIF\n\n             ! Cap FDOWN with available Hg(0) atm mass\n             !IF ((FDOWN(I,J)*DTSRCE)>Spc(N)%Conc(I,J,1)) THEN\n             !   FDOWN(I,J) = Spc(N)%Conc(I,J,1) / DTSRCE\n             !ENDIF\n\n             ! make sure Fup and Fdown do not underflow either\n             ! debug 2x2.5 diagnostic?\n             FUP(I,J) = MAX (FUP(I,J), SMALLNUM )\n             FDOWN(I,J) = MAX (FDOWN(I,J),SMALLNUM )\n\n             !--------------------------------------------------------\n             ! Remove amt of Hg(0) that is leaving the ocean [kg]\n             !--------------------------------------------------------\n             Hg0aq(I,J) = Hg0aq(I,J) - ( FLUX(I,J) * DTSRCE )\n\n             ! Make sure Hg0aq does not underflow (cdh, bmy, 3/28/06)\n             Hg0aq(I,J) = MAX( Hg0aq(I,J), SMALLNUM )\n\n             !Hgaq_tot = HgC(I,J) + Hg0aq(I,J) + Hg2aq(I,J)\n             Hgaq_tot(I,J) = HgPaq(I,J) + Hg0aq(I,J) + Hg2aq(I,J)\n\n          !-----------------------------------------------------------\n          ! %%%%% HISTORY (aka netCDF) DIAGNOSTICS %%%%%\n          !\n          ! Oceanic Hg quantities\n          !\n          ! NOTE: We have converted units from kg\n          !-----------------------------------------------------------\n\n          ! Mass of oceanic Hg0 [kg]\n          IF ( State_Diag%Archive_MassHg0inOcean ) THEN\n             State_Diag%MassHg0inOcean(I,J) = Hg0aq(I,J)\n          ENDIF\n\n          ! Mass of oceanic Hg2 [kg]\n          IF ( State_Diag%Archive_MassHg2inOcean ) THEN\n             State_Diag%MassHg2inOcean(I,J) = Hg2aq(I,J)\n          ENDIF\n\n          ! Mass of oceanic HgP [kg]\n          IF ( State_Diag%Archive_MassHgPinOcean ) THEN\n             State_Diag%MassHgPinOcean(I,J) = HgPaq(I,J)\n          ENDIF\n\n          ! Total oceanic mercury [kg]\n          IF ( State_Diag%Archive_MassHgTotalInOcean ) THEN\n             State_Diag%MassHgTotalInOcean(I,J) = Hgaq_tot(I,J)\n          ENDIF\n\n          ! Flux of Hg2 sunk to deep ocean [kg/s]\n          IF ( State_Diag%Archive_FluxHg2toDeepOcean ) THEN\n             State_Diag%FluxHg2toDeepOcean(I,J) = HgPaq_SUNK(I,J) / DTSRCE\n          ENDIF\n\n          ! Ocean-to-air and air-to-ocean fluxes\n          IF ( FLUX(I,J) > 0e+0_fpp ) THEN\n\n             ! Volatization flux of Hg0 from ocean to air\n             ! NOTE: Units are kg/s\n             IF ( State_Diag%Archive_FluxHg0fromOceantoAir ) THEN\n                State_Diag%FluxHg0fromOceanToAir(I,J) = FLUX(I,J)\n             ENDIF\n\n          ELSE IF ( FLUX(I,J) < 0e+0_fpp)  THEN\n\n             ! Drydep flux of Hg0 from air to ocean\n             IF ( State_Diag%Archive_FluxHg0fromAirToOcean ) THEN\n                State_Diag%FluxHg0fromAirToOcean(I,J) = ABS( FLUX(I,J) )\n             ENDIF\n\n          ENDIF\n\n          ! Total Hg2/HgP deposited to ocean\n          ! NOTE: Changed unit to kg/s\n          IF ( State_Diag%Archive_FluxHg2HgPfromAirToOcean ) THEN\n             State_Diag%FluxHg2HgPfromAirToOcean(I,J) = TOTDEP / DTSRCE\n          ENDIF\n\n          !==============================================================\n          ! If we are not in an ocean box, set Hg(0) flux to zero\n          !==============================================================\n       ELSE\n\n          !%%% Removed loop over Hg categories here\n          !%%% and also removed NN as the 3rd array index\n          !%%%  -- Bob Yantosca (23 Jun 2022)\n          FLUX(I,J) = 0e+0_fpp\n          FUP(I,J)=0e+0_fpp\n          FDOWN(I,J)=0e+0_fpp\n\n       ENDIF\n\n       !==============================================================\n       ! Zero amts of deposited Hg2 for next timestep [kg]\n       !==============================================================\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    Spc      => NULL()\n    Hg0aq    => NULL()\n    Hg2aq    => NULL()\n    HgPaq    => NULL()\n    TOMS     => NULL()\n    TOMS_PD  => NULL()\n    TOMS_LT  => NULL()\n\n  END SUBROUTINE OCEAN_MERCURY_FLUX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ocean_mercury_read\n!\n! !DESCRIPTION: Subroutine OCEAN\\_MERCURY\\_READ reads in the mixed layer depth,\n!  net primary productivity, upwelling and radiation climatology for each month.\n!  This is needed for the ocean flux computation.(sas, cdh, bmy, 1/20/05, 3/28/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OCEAN_MERCURY_READ( Input_Opt, State_Grid, &\n                                 THISMONTH, THISYEAR,   RC  )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,          ONLY : Error_Stop\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EmisList_Mod,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TIME_MOD,\t      ONLY : ITS_A_LEAPYEAR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    INTEGER,        INTENT(IN)  :: THISMONTH\n    INTEGER,        INTENT(IN)  :: THISYEAR\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE          :: FIRST = .TRUE.\n    REAL*4                 :: ARRAY(State_Grid%NX,State_Grid%NY,1)\n    INTEGER                :: I, J, X, Y\n\n    ! Add time variables to get correct number of seconds per month\n    ! and prevent negative flow later (jaf, 12/8/11)\n    INTEGER\t   :: LASTMONTH, DAYS_IN_LAST_MONTH\n    INTEGER\t   :: NEXTMONTH, DAYS_IN_THIS_MONTH\n    INTEGER\t   :: M(12) = (/ 31, 28, 31, 30, 31, 30, &\n                                 31, 31, 30, 31, 30, 31 /)\n    REAL*8,  PARAMETER :: SEC_PER_DAY = 3.6e+3_fpp * 24e+0_fpp\n\n    ! Moved from ocean_mercury_flux (jaf,3/20/13)\n    REAL*8,  PARAMETER   :: NPPMINNUM   = 5e-2_fpp\n    REAL*8,  PARAMETER   :: CHLMINNUM   = 1e-1_fpp\n\n    ! Arctic MLD parameters\n    REAL*8,  PARAMETER   :: ArcticMLD_summer = 15e+2_fpp\n    REAL*8,  PARAMETER   :: ArcticMLD_other  = 20e+2_fpp\n\n    ! Strings\n    CHARACTER(LEN=255) :: LOC = 'OCEAN_MERCURY_READ (GeosCore/ocean_mercury_mod.F90)'\n\n    !=================================================================\n    ! OCEAN_MERCURY_READ begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Get the last month (jaf, 12/8/11)\n    IF ( THISMONTH == 1 ) THEN\n       LASTMONTH = 12\n    ELSE\n       LASTMONTH = THISMONTH - 1\n    ENDIF\n\n    ! Get the next month\n    NEXTMONTH = MOD( THISMONTH, 12 ) +1\n\n    ! Calculate days in last month (jaf, 12/8/11)\n    IF ( LASTMONTH == 2 .and. ITS_A_LEAPYEAR( THISYEAR ) ) THEN\n       DAYS_IN_LAST_MONTH = M(LASTMONTH) + 1\n    ELSE\n       DAYS_IN_LAST_MONTH = M(LASTMONTH)\n    ENDIF\n\n    ! Calculate days in this month (jaf, 12/8/11)\n    IF ( THISMONTH == 2 .and. ITS_A_LEAPYEAR( THISYEAR ) ) THEN\n       DAYS_IN_THIS_MONTH = M(THISMONTH) + 1\n    ELSE\n       DAYS_IN_THIS_MONTH = M(THISMONTH)\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Mixed layer depth [cm]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_MLD', MLD, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to OCEAN_MLD', LOC )\n    ENDIF\n\n    ! Convert [m] to [cm]\n    MLD = MLD * 100e+0_f4\n\n    !-----------------------------------------------------------------\n    ! Chl from Modis [kg/m3] --> [mg/m3]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_CHLA', CHL, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to OCEAN_CHLA', LOC )\n    ENDIF\n\n    ! Convert [kg/m3] to [mg/m3]\n    CHL = CHL * 1e6_f4\n\n    !-----------------------------------------------------------------\n    ! Arctic Chl from Jin et al 2012 [mg/m3]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_CHLA_A', CHL_A, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to OCEAN_ACHLA', LOC )\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Net primary productivity [kg/m2] -> [mg/m2]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_NPP', NPP, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to OCEAN_NPP', LOC )\n    ENDIF\n\n    ! Convert [kg/m2] -> [mg/m2]\n    NPP = NPP * 1e6_f4\n\n    !-----------------------------------------------------------------\n    ! Arctic Net primary productivity [mg/m2/day]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_NPP_A', NPP_A, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to OCEAN_ANPP', LOC )\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Ekman upwelling velocity [m/s]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_EKMAN_V', UPVEL, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to OCEAN_EKMAN_V', LOC )\n    ENDIF\n\n    !-----------------------------------------------------------------\n    ! MLD tendency, first half of month [cm/s]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_dMLD1', dMLD1, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to dMLD1', LOC )\n    ENDIF\n\n    ! Convert [m/s] to [cm/s]\n    dMLD1 = dMLD1 * 100e+0_f4\n\n    !-----------------------------------------------------------------\n    ! MLD tendency, second half of month [cm/s]\n    !-----------------------------------------------------------------\n    CALL HCO_GetPtr( HcoState, 'OCEAN_dMLD2', dMLD2, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL ERROR_STOP ( 'Cannot get pointer to dMLD2', LOC )\n    ENDIF\n\n    ! Convert [m/s] to [cm/s]\n    dMLD2 = dMLD2 * 100e+0_f4\n\n    !-----------------------------------------------------------------\n    ! Overwrite fields with Arctic specific parameters\n    !-----------------------------------------------------------------\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, X, Y                                               )& \n    !$OMP COLLAPSE( 2                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Grid-box longitude [degrees]\n       X = State_Grid%XMid(I,J)\n\n       ! Grid-box latitude [degrees]\n       Y = State_Grid%YMid(I,J)\n\n       ! In central Arctic, overwrite MLD values where global MLD\n       ! dataset is based on very limited information. Instead use\n       ! values from climatology of Toole et al. (2010). (jaf, 11/28/11)\n       IF ( (Y >= 80e+0_fpp) .OR. &\n          ( (Y >= 70e+0_fpp) .AND. ( X >= 50e+0_fpp .OR. &\n                                     X <= 0e+0_fpp ) ) ) THEN\n          SELECT CASE ( THISMONTH )\n          CASE( 7, 8, 9 ) ! summer\n             MLD(I,J) = ArcticMLD_summer\n          CASE DEFAULT    ! rest of year\n             MLD(I,J) = ArcticMLD_other\n          END SELECT\n\n          ! Also set up MLD tendency in cm/s for each half month\n          ! Months with change are 6-7, 9-10\n          SELECT CASE ( THISMONTH )\n          CASE( 6 ) ! june\n             dMLD1(I,J) = 0e+0_fpp\n             dMLD2(I,J) = (ArcticMLD_summer - ArcticMLD_other)/ &\n                          ( SEC_PER_DAY * DAYS_IN_LAST_MONTH )\n          CASE( 7 ) ! july\n             dMLD1(I,J) = (ArcticMLD_summer - ArcticMLD_other)/ &\n                          ( SEC_PER_DAY * DAYS_IN_LAST_MONTH )\n             dMLD2(I,J) = 0e+0_fpp\n          CASE( 9 ) ! september\n             dMLD1(I,J) = 0e+0_fpp\n             dMLD2(I,J) = (ArcticMLD_other - ArcticMLD_summer)/ &\n                          ( SEC_PER_DAY * DAYS_IN_LAST_MONTH )\n          CASE ( 10 ) ! october\n             dMLD1(I,J) = (ArcticMLD_other - ArcticMLD_summer)/ &\n                          ( SEC_PER_DAY * DAYS_IN_LAST_MONTH )\n             dMLD2(I,J) = 0e+0_fpp\n          CASE DEFAULT ! rest of year\n             dMLD1(I,J) = 0e+0_fpp\n             dMLD2(I,J) = 0e+0_fpp\n          END SELECT\n\n       ENDIF\n\n       ! Added NPP for the Arctic from Jin et al. 2012. (anls)\n       IF ( Y >= 60 ) THEN\n          IF ( NPP_A(I,J) > NPP(I,J) ) NPP(I,J) = NPP_A(I,J)\n          IF ( CHL_A(I,J) > CHL(I,J) ) CHL(I,J) = CHL_A(I,J)\n          ! Apply interannual scaling\n          IF ( Y >= 70 ) THEN\n             NPP(I,J) = NPP(I,J) * NPP_SCF\n             CHL(I,J) = CHL(I,J) * NPP_SCF\n          ENDIF\n       ENDIF\n\n       ! Avoid having NPP or CHL to be zero\n       NPP(I,J) = MAX ( NPP(I,J) , NPPMINNUM )\n       CHL(I,J) = MAX ( CHL(I,J) , CHLMINNUM )\n\n    ENDDO\n    ENDDO\n    ! OMP END PARALLEL DO\n\n    !-------------------------------------------------\n    ! River flow\n    !-------------------------------------------------\n    dFLOW1 = ( RIVERFLOW(THISMONTH) - RIVERFLOW(LASTMONTH) ) / &\n             ( SEC_PER_DAY * DAYS_IN_LAST_MONTH )\n    dFLOW2 = ( RIVERFLOW(NEXTMONTH) - RIVERFLOW(THISMONTH) ) / &\n             ( SEC_PER_DAY * DAYS_IN_THIS_MONTH )\n\n    ! Set FLOWNOW first time (jaf, 12/8/11)\n    IF ( FIRST ) THEN\n       FLOWNOW = RIVERFLOW(LASTMONTH) + dFLOW1 * &\n                 SEC_PER_DAY * ( DAYS_IN_LAST_MONTH - 15 )\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE OCEAN_MERCURY_READ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: mld_adjustment\n!\n! !DESCRIPTION: Subroutine MLD\\_ADJUSTMENT entrains new water when mixed layer\n!  depth deepens and conserves concentration (leaves mass behind) when mixed\n!  layer shoals. (sas, cdh, bmy, 4/18/05, 3/28/06)\n!  The MLD depth is constrained so that the mean monthly concentration equals\n!  the concentration in the middle of the given month. The MLD hereafter\n!  changes linearily until it reaches the middle of the next months where the\n!  process is repeted (anls, 4/30/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MLD_ADJUSTMENT( I, J, MLDold, MLDnew, Input_Opt, &\n                             State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE State_Chm_Mod,     ONLY : ChmState\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE State_Met_Mod,     ONLY : MetState\n!\n! !INPUT PARAMETERS: \n!\n    INTEGER,        INTENT(IN) :: I, J\n    REAL(fpp),      INTENT(IN) :: MLDold      ! Old ocean mixed layer depth [m]\n    REAL(fpp),      INTENT(IN) :: MLDnew      ! New ocean mixed layer depth [m]\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: C,    NN\n    INTEGER               :: K, L\n    REAL(fpp)             :: A_M2, DELTAH, FRAC_O,  MHg\n    REAL(fpp)             :: X, Y                   !(added anls 01/05/09)\n\n    ! Pointers\n    REAL(fpp), POINTER   :: Hg0aq(:,:)\n    REAL(fpp), POINTER   :: Hg2aq(:,:)\n    REAL(fpp), POINTER   :: HgPaq(:,:)\n\n    !=================================================================\n    ! MLD_ADJUSTMENT begins here!\n    !=================================================================\n\n    ! Point to fields in State_Chm\n    Hg0aq       => State_Chm%OceanHg0\n    Hg2aq       => State_Chm%OceanHg2\n    HgPaq       => State_Chm%OceanHgP\n\n    ! Grid box surface area [m2]\n    A_M2   = State_Grid%Area_M2(I,J)\n\n    ! Fraction of box that is ocean\n    ! Use fractional land type information from met fields (jaf, 4/26/11)\n    ! FROCEAN is a constant, so to get correct ocean fraction we\n    ! need to subtract the sea ice fraction.\n    ! We now apply ocean processes, including MLD adjustment, to\n    ! entire ocean grid box, irrespective of sea ice cover (jaf,\n    ! 11/28/11)\n    FRAC_O     = State_Met%FROCEAN(I,J)\n\n    ! Molecular weight of Hg (valid for all tagged tracers)\n    MHg    = State_Chm%SpcData(1)%Info%MW_g * 1e-3_fpp\n\n    ! Test if MLD increased\n    IF ( MLDnew > MLDold ) THEN\n\n       !==============================================================\n       ! IF MIXED LAYER DEPTH HAS INCREASED:\n       !\n       ! Entrain water with a concentration specified by CDeep\n       !\n       ! Entrained Mass = ( Vol water entrained ) * CDeep * Molar mass\n       !                = ( DELTAH * AREA * FRAC_O ) * CDeep * MHg\n       !==============================================================\n\n       ! Increase in MLD [m]\n       DELTAH = MLDnew - MLDold\n\n       ! Add Cdeepatl to North Atlantic and Cdeep to rest if the world\n       ! (anls, 01/05/09)\n\n       ! Grid-box latitude [degrees]\n       Y = State_Grid%YMid(I,J)\n\n       ! Grid box longitude [degrees]\n       X = State_Grid%XMid(I,J)\n\n       !%%% Removed loop over Hg categories here\n       !%%% and also removed NN as the 3rd array index\n       !%%%  -- Bob Yantosca (23 Jun 2022)\n\n          !------------------------------------------------\n          ! Atlantic\n          !------------------------------------------------\n          IF ( ( X >= -80.0 .and. X < 25.0 )  .and. &\n               ( Y >= -25.0 .and. Y < 55.0 ) ) THEN !(anls,100114)\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeepatl(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeepatl(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             !IF ( C == 1 ) THEN\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeepatl(3) * MHg * A_M2 * FRAC_O )\n             !ENDIF\n\n          !------------------------------------------------\n          ! North Pacific (west)\n          !------------------------------------------------\n          ELSE IF ( ( X >= -180.0 .and. X < -80.0 )  .and. &\n                    ( Y >=   30.0 .and. Y <  70.0 ) ) THEN\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeepnpa(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeepnpa(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             !IF ( C == 1 ) THEN\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeepnpa(3) * MHg * A_M2 * FRAC_O )\n             !ENDIF\n\n          !------------------------------------------------\n          ! North Pacific (east)\n          !------------------------------------------------\n          ELSE IF ( ( X >= 25.0 .and. X < 180.0 )  .and. &\n                    ( Y >= 30.0 .and. Y <  70.0 ) ) THEN\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeepnpa(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeepnpa(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeepnpa(3) * MHg * A_M2 * FRAC_O )\n\n          !------------------------------------------------\n          ! North Atlantic\n          !------------------------------------------------\n          ELSE IF ( ( X >= -80.0 .and. X < 25.0 )  .and. &\n                    ( Y >=  55.0 .and. Y < 70.0 ) ) THEN\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeepnat(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeepnat(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeepnat(3) * MHg * A_M2 * FRAC_O )\n             !ENDIF\n\n          !------------------------------------------------\n          ! South Atlantic\n          !------------------------------------------------\n          ELSE IF ( ( X >= -80.0 .and. X <  25.0 )  .and. &\n                    ( Y >= -65.0 .and. Y < -25.0 ) ) THEN    !(anls,100114)\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeepsat(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeepsat(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeepsat(3) * MHg * A_M2 * FRAC_O )\n\n          !------------------------------------------------\n          ! Antarctic\n          !------------------------------------------------\n          ELSE IF ( Y >=  -90.0 .and. Y <  -65.0 ) THEN\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeepant(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeepant(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeepant(3) * MHg * A_M2 * FRAC_O )\n\n          !------------------------------------------------\n          ! Arctic\n          !------------------------------------------------\n          ELSE IF ( Y >=  70.0 .and. Y <  90.0 ) THEN\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeeparc(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeeparc(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeeparc(3) * MHg * A_M2 * FRAC_O )\n\n          ELSE\n\n             ! Hg0\n             Hg0aq(I,J) =    Hg0aq(I,J) + &\n                             ( DELTAH * CDeep(1) * MHg * A_M2 * FRAC_O )\n\n             ! Hg2\n             Hg2aq(I,J) =    Hg2aq(I,J) + &\n                             ( DELTAH * CDeep(2) * MHg * A_M2 * FRAC_O )\n\n             ! HgP\n             HgPaq(I,J) =    HgPaq(I,J) + &\n                             ( DELTAH * CDeep(3) * MHg * A_M2 * FRAC_O )\n\n          ENDIF\n\n    ELSE\n\n       !==============================================================\n       ! IF MIXED LAYER DEPTH HAS CREASED:\n       !\n       ! Conserve concentration, but shed mass for ALL tracers.\n       ! Mass changes by same ratio as volume.\n       !==============================================================\n\n       ! Avoid dividing by zero\n       IF ( MLDold > 0e+0_fpp ) THEN\n\n          !%%% Removed loop over Hg categories here\n          !%%% and also removed NN as the 3rd array index\n          !%%%  -- Bob Yantosca (23 Jun 2022)\n          Hg0aq(I,J) = Hg0aq(I,J) * ( MLDnew / MLDold )\n          Hg2aq(I,J) = Hg2aq(I,J) * ( MLDnew / MLDold )\n          HgPaq(I,J) = HgPaq(I,J) * ( MLDnew / MLDold )\n\n       ENDIF\n\n    ENDIF\n\n    ! Free pointers\n    Hg0aq    => NULL()\n    Hg2aq    => NULL()\n    HgPaq    => NULL()\n\n  END SUBROUTINE MLD_ADJUSTMENT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_land_mercury\n!\n! !DESCRIPTION: Subroutine INIT\\_OCEAN\\_MERCURY allocates and zeroes all\n!  module arrays. (sas, cdh, bmy, 1/19/05, 3/28/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_OCEAN_MERCURY( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE FILE_MOD,           ONLY : IOERROR,   IU_FILE\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TIME_MOD,           ONLY : GET_YEAR,  EXPAND_DATE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! For Hg indexing (bmy, 4/26/16)\n    INTEGER                  :: N\n    TYPE(Species), POINTER   :: SpcInfo\n\n    ! For riverflow and NPP interannual scaling (jaf, 3/26/12)\n    INTEGER                  :: THISYEAR, THISYEARINDEX\n    REAL(fpp), DIMENSION(31) :: RSCF_05, RSCF_06, RSCF_07\n    REAL(fpp), DIMENSION(31) :: RSCF_08, RSCF_09, RSCF_10\n    REAL(fpp), DIMENSION(31) :: NSCF\n\n    !=================================================================\n    ! INIT_OCEAN_MERCURY begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Exit if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !-----------------------------------------------------------------\n    ! Allocate these arrays regardless of whether you are using\n    ! the dynamic ocean.  These are needed for Hg2 partitioning.\n    ! (bmy, 3/30/15)\n    !-----------------------------------------------------------------\n\n    ALLOCATE( BULK_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'BULK_CONC' )\n    BULK_CONC = 0e+0_fpp\n\n    ALLOCATE( SO4_GC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'SO4_GC' )\n    SO4_GC = 0e+0_fpp\n\n    ALLOCATE( NIT_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'NIT_CONC' )\n    NIT_CONC = 0e+0_fpp\n\n    ALLOCATE( NH4_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'NH4_CONC' )\n    NH4_CONC = 0e+0_fpp\n\n    ALLOCATE( OC_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'OC_CONC' )\n    OC_CONC = 0e+0_fpp\n\n    ALLOCATE( BC_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'BC_CONC' )\n    BC_CONC = 0e+0_fpp\n\n    ALLOCATE( DST_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'DST_CONC' )\n    DST_CONC = 0e+0_fpp\n\n    ALLOCATE( R( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'R' )\n    R = 0e+0_fpp\n\n    ALLOCATE( SO4_CONC( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'SO4_CONC' )\n    SO4_CONC = 0e+0_fpp\n\n    ALLOCATE( Fg( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'Fg' )\n    Fg = 0e+0_fpp\n\n    ALLOCATE( Fp( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'Fp' )\n    Fp = 0e+0_fpp\n\n    !eds 5/15/12 fix\n    ALLOCATE( Hgaq_tot (State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'Hgaq_tot' )\n    Hgaq_tot = 0e+0_fpp\n\n    !-----------------------------------------------------------------\n    ! These variables are only needed for the dynamic ocean option\n    !-----------------------------------------------------------------\n\n    ! Get current year for scale factor application\n    THISYEAR = GET_YEAR()\n\n    ! Set up concentrations of Hg(0), Hg(II), Hg(C) in deep ocean REDALERT\n    IF ( Input_Opt%LPREINDHG) THEN\n       CDEEP    = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n       CDEEPATL = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n       CDEEPNAT = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n       CDEEPSAT = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n       CDEEPANT = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n       CDEEPARC = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n       CDEEPNPA = (/ 2e-11_fpp, 1.67e-10_fpp, 1.67e-10_fpp /)\n    ELSE\n       CDEEP    = (/ 1.0e-10_fpp, 4.0e-10_fpp, 4.0e-10_fpp /)\n       CDEEPATL = (/ 1.4e-10_fpp, 9.3e-10_fpp, 9.3e-10_fpp /)\n       CDEEPNAT = (/ 1.5e-10_fpp, 8.2e-10_fpp, 8.2e-10_fpp /)\n       CDEEPSAT = (/ 0.8e-10_fpp, 4.1e-10_fpp, 4.1e-10_fpp/)  !eck, 10/19/11\n       !reduce intermediate water mercury concentration in\n       !South Atlantic Ocean to 0.9pM total\n       !ref: low end of uncertainty range Sunderland and Mason '07\n       CDEEPANT = (/ 1.0e-10_fpp, 3.2e-10_fpp, 3.2e-10_fpp /)\n       ! Redistribute Hg fractions so Hg2 /= HgP (jaf, 11/28/11)\n       CDEEPARC = (/ 1.2e-10_fpp, 1.2e-9_fpp,  2.8e-10_fpp /)\n       CDEEPNPA = (/ 1.0e-10_fpp, 6.0e-10_fpp, 6.0e-10_fpp /)\n    ENDIF\n\n    ! Set monthly Arctic river flow rate in m3/s (jaf, 12/8/11)\n    ! These come from the 8 largest Arctic rivers, with data\n    ! from UNH/GRDC\n    RIVERFLOW = (/ 2.2d4,  1.9d4,  1.8d4, 1.9d4, 9.6d4, 24.6d4, &\n                   14.4d4, 10.2d4, 8.4d4, 6.2d4, 3.0d4, 2.3d4   /)\n\n    ! Initialize default interannual NPP scaling factor (jaf, 3/19/13)\n    NPP_SCF = 1e+0_fpp\n\n    !-----------------------------------------------------------------\n    ! Apply riverflow and set NPP scale factors if 2009 or prior\n    !-----------------------------------------------------------------\n\n    ! Use interannual flow scaling factors for May-Oct (jaf, 3/23/11)\n    ! NOTE: scale factors are hard-coded to avoid reading ascii (ewl, 8/27/15)\n    IF ( THISYEAR <= 2009) THEN\n\n       ! May 1979-2009 river scale factors\n       RSCF_05 = &\n          (/ 0.63, 0.61, 1.12, 1.09, 0.50, 1.10, 0.68, 0.69, 0.59, 0.92, &\n             1.11, 1.61, 1.02, 1.04, 0.59, 0.84, 1.13, 0.55, 2.03, 0.43, &\n             1.46, 1.54, 1.13, 1.34, 1.00, 0.58, 1.31, 0.57, 1.58, 1.20, &\n             1.00  /)\n\n       ! Jun 1979-2009 river scale factors\n       RSCF_06 = &\n          (/ 1.18, 1.00, 0.89, 0.93, 1.15, 1.00, 0.94, 1.02, 0.90, 1.03, &\n             1.17, 0.94, 1.00, 1.03, 1.00, 1.12, 0.87, 1.05, 0.79, 1.12, &\n             0.95, 0.91, 1.14, 1.05, 0.91, 0.99, 0.85, 1.01, 1.01, 1.01, &\n             1.06  /)\n\n       ! Jul 1979-2009 river scale factors\n       RSCF_07 = &\n          (/ 0.97, 1.12, 1.03, 0.88, 1.17, 0.83, 0.92, 0.90, 1.08, 1.06, &\n             1.11, 0.89, 0.94, 1.00, 1.00, 1.02, 0.97, 1.07, 1.03, 1.22, &\n             1.03, 0.98, 0.88, 0.96, 0.93, 1.06, 0.89, 0.99, 1.13, 0.98, &\n             0.97  /)\n\n       ! Aug 1979-2009 river scale factors\n       RSCF_08 = &\n          (/ 1.20, 1.01, 1.00, 0.85, 1.03, 0.92, 1.05, 0.96, 0.99, 1.19, &\n             0.95, 0.78, 0.83, 0.89, 0.96, 0.97, 0.85, 0.80, 1.09, 1.13, &\n             1.08, 1.03, 1.13, 1.14, 0.88, 0.93, 1.02, 0.90, 1.37, 1.15, &\n             0.91  /)\n\n       ! Sep 1979-2008 river scale factors\n       RSCF_09 = &\n          (/ 1.42, 0.91, 1.02, 1.04, 1.06, 0.78, 0.95, 0.89, 0.67, 1.09, &\n             1.03, 0.75, 0.84, 0.71, 0.89, 0.79, 0.92, 0.85, 1.20, 0.96, &\n             0.92, 1.07, 0.97, 1.35, 0.83, 0.95, 1.13, 1.30, 1.45, 1.26, &\n             1.00  /) ! Use 1.00 for 2009 since no scale factor available\n\n       ! Oct 1979-2008 river scale factors\n       RSCF_10 = &\n          (/ 0.96, 0.89, 0.89, 0.80, 1.14, 0.79, 0.88, 1.04, 0.73, 1.11, &\n             0.92, 0.90, 0.86, 0.94, 1.04, 1.04, 1.05, 1.06, 1.12, 0.90, &\n             0.99, 1.09, 0.93, 1.14, 0.95, 1.17, 1.09, 1.29, 1.19, 1.10, &\n             1.00  /) ! Use 1.00 for 2009 since no scale factor available\n\n       ! 1979-2009 NPP scale factors (scaled to 2009)\n       NSCF = &\n          (/ 0.857, 0.807, 0.853, 0.835, 0.831, 0.857, 0.880, 0.823, &\n             0.827, 0.827, 0.864, 0.933, 0.913, 0.823, 0.917, 0.857, &\n             0.939, 0.798, 0.896, 0.914, 0.868, 0.927, 0.969, 0.955, &\n             0.927, 0.894, 0.917, 1.035, 1.153, 1.073, 1.000 /)\n\n       ! Calculate year index for this year given factors start in 1979\n       THISYEARINDEX = THISYEAR - 1978\n\n       ! Apply riverflow scale factors for May thru Oct\n       RIVERFLOW(5)  = RIVERFLOW(5)  * RSCF_05( THISYEARINDEX )\n       RIVERFLOW(6)  = RIVERFLOW(6)  * RSCF_06( THISYEARINDEX )\n       RIVERFLOW(7)  = RIVERFLOW(7)  * RSCF_07( THISYEARINDEX )\n       RIVERFLOW(8)  = RIVERFLOW(8)  * RSCF_08( THISYEARINDEX )\n       RIVERFLOW(9)  = RIVERFLOW(9)  * RSCF_09( THISYEARINDEX )\n       RIVERFLOW(10) = RIVERFLOW(10) * RSCF_10( THISYEARINDEX )\n\n       ! Set NPP scaling factor\n       NPP_SCF = NSCF( THISYEARINDEX )\n\n    ENDIF\n\n    ! Allocate arrays\n    ALLOCATE( dMLD( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'dMLD' )\n    dMLD = 0e+0_fpp\n\n    ALLOCATE( HgPaq_SUNK( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'HgPaq_SUNK' )\n    HgPaq_SUNK = 0e+0_fpp\n\n    ALLOCATE( MLDav( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'MLDav' )\n    MLDav = 0e+0_fpp\n\n    ALLOCATE( newMLD( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'newMLD' )\n    newMLD = 0e+0_fpp\n\n    !eds 10/19/10 fixing restart bug\n    ALLOCATE( prevMLD( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    IF ( RC /=0 ) CALL ALLOC_ERR( 'prevMLD' )\n    prevMLD = 0e+0_fpp\n\n  END SUBROUTINE INIT_OCEAN_MERCURY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_ocean_mercury\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_OCEAN\\_MERCURY deallocates all module\n!  arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_OCEAN_MERCURY\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( Hgaq_tot  ) ) DEALLOCATE( Hgaq_tot  )\n    IF ( ALLOCATED( dMLD      ) ) DEALLOCATE( dMLD      )\n    IF ( ALLOCATED( MLDav     ) ) DEALLOCATE( MLDav     )\n    IF ( ALLOCATED( newMLD    ) ) DEALLOCATE( newMLD    )\n    IF ( ALLOCATED( prevMLD   ) ) DEALLOCATE( prevMLD   )\n    IF ( ALLOCATED( BULK_CONC ) ) DEALLOCATE( BULK_CONC )\n    IF ( ALLOCATED( Fg        ) ) DEALLOCATE( Fg        )\n    IF ( ALLOCATED( Fp        ) ) DEALLOCATE( Fp        )\n    IF ( ALLOCATED( SO4_GC    ) ) DEALLOCATE( SO4_GC    )\n    IF ( ALLOCATED( NIT_CONC  ) ) DEALLOCATE( NIT_CONC  )\n    IF ( ALLOCATED( NH4_CONC  ) ) DEALLOCATE( NH4_CONC  )\n    IF ( ALLOCATED( OC_CONC   ) ) DEALLOCATE( OC_CONC   )\n    IF ( ALLOCATED( BC_CONC   ) ) DEALLOCATE( BC_CONC   )\n    IF ( ALLOCATED( DST_CONC  ) ) DEALLOCATE( DST_CONC  )\n    IF ( ALLOCATED( R         ) ) DEALLOCATE( R         )\n    IF ( ALLOCATED( SO4_CONC  ) ) DEALLOCATE( SO4_CONC  )\n\n    ! Free pointers\n    CHL         => NULL()\n    CHL_A       => NULL()\n    MLD         => NULL()\n    NPP         => NULL()\n    NPP_A       => NULL()\n    UPVEL       => NULL()\n    dMLD1       => NULL()\n    dMLD2       => NULL()\n\n  END SUBROUTINE CLEANUP_OCEAN_MERCURY\n!EOC\nEND MODULE OCEAN_MERCURY_MOD\n"
  },
  {
    "path": "GeosCore/olson_landmap_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: olson_landmap_mod.F90\n!\n! !DESCRIPTION: Module OLSON\\_LANDMAP\\_MOD reads the Olson land map and\n!  computes the IREG, ILAND, IUSE, and FRCLND State\\_Met arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Olson_LandMap_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_LandTypeFrac\n  PUBLIC  :: Compute_Olson_Landmap\n!\n! !REMARKS:\n!  Eloise Marais and the GEOS-Chem Support Team updated the Olson 2001\n!  landcover dataset and corresponding GEOS-Chem modules in 2012. The Olson\n!  2001 landmap superceded the Olson 1992 landmap starting following v9-01-03.\n!  The option to use Olson 1992 has been removed from v11-02 and later.\n!  The following text is taken from the data processing README:\n!\n!  \"The Olson 2001 landcover map is at a native resolution of 1km x 1km. I've\n!  identified the dominant vegetation types in each 0.25x0.25 degree gridbox\n!  and use this as input to GEOS-Chem.\n!\n!  The Olson 2001 landcover map also has 96 vegetation types compared with 74\n!  for Olson 1992. For the most part vegetation types 75-96 are either not\n!  dominant vegetation types at 0.25x0.25 degrees or they are crop types that\n!  I lump with other similar vegetation types (either crops or mixed\n!  forest/field vegetation) so that the Olson 2001 landcover dataset at\n!  0.25x0.25 degrees has 74 vegetation types.\n!\n!  There are also new vegetation types that are defined in the Olson 2001\n!  dataset from 1-74 that were previously listed as \"not used\" in\n!  drydep.table. These are assigned appropriate deposition ID # and z0 values.\n!\n!  Vegetation types that are listed as \"not used\" in the updated drydep.table\n!  dataset are those that are not dominant at 0.25x0.25, but may be present\n!  in the 1kmx1km dataset.\"\n!\n!  The following table shows the the translation between the Olson 2001 and\n!  Olson 1992 land maps:\n!\n!   Olson 2001\t\t\t\t        Olson 1992 \t# in\n!   LC# Description    \t\t                Equivalent      Dry deposition\n!   ==========================================================================\n!   1\tUrban\t\t\t\t\t1\t\t2\n!   2\tLow Sparse Grassland\t\t\t2\t\t3\n!   3\tConiferous Forest\t\t\t3\t\t4\n!   4\tDeciduous Conifer Forest\t\t4\t\t5\n!   5\tDeciduous Broadleaf Forest\t\t5\t\t6\n!   6\tEvergreen Broadleaf Forests\t\t6\t\t7\n!   7\tTall Grasses and Shrubs\t\t\t7\t\t8\n!   8\tBare Desert\t\t\t\t8\t\t9\n!   9\tUpland Tundra\t\t\t\t9\t\t10\n!   10\tIrrigated Grassland\t\t\t10\t\t11\n!   11\tSemi Desert\t\t\t\t11\t\t12\n!   12\tGlacier Ice\t\t\t\t12\t\t13\n!   13\tWooded Wet Swamp\t\t\t13\t\t14\n!   14\tInland Water\t\t\t\t0\t\t1\n!   15\tSea Water\t\t\t\t0\t\t1\n!   16\tShrub Evergreen\t\t\t\t16\t\t17\n!   17\tShrub Deciduous\t\t\t\t18\t\t19\n!   18\tMixed Forest and Field\t\t\tnone present\n!   19\tEvergreen Forest and Fields\t\t19\t\t20\n!   20\tCool Rain Forest\t\t\t20\t\t21\n!   21\tConifer Boreal Forest\t\t\t21\t\t22\n!   22\tCool Conifer Forest\t\t\t22\t\t23\n!   23\tCool Mixed Forest\t\t\t23\t\t24\n!   24\tMixed Forest\t\t\t\t24\t\t25\n!   25\tCool Broadleaf Forest\t\t\t25\t\t26\n!   26\tDeciduous Broadleaf Forest\t\t26\t\t27\n!   27\tConifer Forest\t\t\t\t27\t\t28\n!   28\tMontane Tropical Forests\t\t28\t\t29\n!   29\tSeasonal Tropical Forest\t\t29\t\t30\n!   30\tCool Crops and Towns\t\t\t30\t\t31\n!   31\tCrops and Town\t\t\t\t31\t\t32\n!   32\tDry Tropical Woods\t\t\t32\t\t33\n!   33\tTropical Rainforest\t\t\t33\t\t34\n!   34\tTropical Degraded Forest\t\t34\t\t35\n!   35\tCorn and Beans Cropland\t\t\t35\t\t36\n!   36\tRice Paddy and Field\t\t\t36\t\t37\n!   37\tHot Irrigated Cropland\t\t\t37\t\t38\n!   38\tCool Irrigated Cropland\t\t\t38\t\t39\n!   39\tCold Irrigated Cropland\t\t\tnone present\n!   40\tCool Grasses and Shrubs\t\t\t40\t\t41\n!   41\tHot and Mild Grasses and Shrubs\t\t41\t\t42\n!   42\tCold Grassland\t\t\t\t42\t\t43\n!   43\tSavanna (Woods)\t\t\t\t43\t\t44\n!   44\tMire, Bog, Fen\t\t\t\t44\t\t45\n!   45\tMarsh Wetland\t\t\t\t45\t\t46\n!   46\tMediterranean Scrub\t\t\t46\t\t47\n!   47\tDry Woody Scrub\t\t\t\t47\t\t48\n!   48\tDry Evergreen Woods\t\t\tnone present\n!   49\tVolcanic Rock\t\t\t\tnone present\n!   50\tSand Desert\t\t\t\tnone present\n!   51\tSemi Desert Shrubs\t\t\t51\t\t52\n!   52\tSemi Desert Sage\t\t\t52\t\t53\n!   53\tBarren Tundra\t\t\t\t53\t\t54\n!   54\tCool Southern Hemisphere Mixed Forests\t54\t\t55\n!   55\tCool Fields and Woods\t\t\t55\t\t56\n!   56\tForest and Field\t\t\t56\t\t57\n!   57\tCool Forest and Field\t\t\t57\t\t58\n!   58\tFields and Woody Savanna\t\t58\t\t59\n!   59\tSucculent and Thorn Scrub\t\t59\t\t60\n!   60\tSmall Leaf Mixed Woods\t\t\t60\t\t61\n!   61\tDeciduous and Mixed Boreal Forest\t61\t\t62\n!   62\tNarrow Conifers\t\t\t\t62\t\t63\n!   63\tWooded Tundra\t\t\t\t63\t\t64\n!   64\tHeath Scrub\t\t\t\t64\t\t65\n!   65\tCoastal Wetland, NW\t\t\tnone present\n!   66\tCoastal Wetland, NE\t\t\tnone present\n!   67\tCoastal Wetland, SE\t\t\tnone present\n!   68\tCoastal Wetland, SW\t\t\tnone present\n!   69\tPolar and Alpine Desert\t\t\t69\t\t70\n!   70\tGlacier Rock\t\t\t\tnone present\n!   71\tSalt Playas\t\t\t\tnone present\n!   72\tMangrove\t\t\t\t72\t\t73\n!   73\tWater and Island Fringe\t\t\tnone present\n!   74\tLand, Water, and Shore (see Note 1)\tnone present\n!   75\tLand and Water, Rivers (see Note 1)\tnone present\n!   76\tCrop and Water Mixtures\t\t\t36\t\t37\n!   77\tSouthern Hemisphere Conifers\t\tnone present\n!   78\tSouthern Hemisphere Mixed Forest\t32\t\t33\n!   79\tWet Sclerophylic Forest\t\t\t26\t\t27\n!   80\tCoastline Fringe\t\t\tnone present\n!   81\tBeaches and Dunes\t\t\tnone present\n!   82\tSparse Dunes and Ridges\t\t\tnone present\n!   83\tBare Coastal Dunes\t\t\tnone present\n!   84\tResidual Dunes and Beaches\t\tnone present\n!   85\tCompound Coastlines\t\t\tnone present\n!   86\tRocky Cliffs and Slopes\t\t\tnone present\n!   87\tSandy Grassland and Shrubs\t\tnone present\n!   88\tBamboo\t\t\t\t\tnone present\n!   89\tMoist Eucalyptus\t\t\t26\t\t27\n!   90\tRain Green Tropical Forest\t\t33\t\t34\n!   91\tWoody Savanna\t\t\t\t43\t\t44\n!   92\tBroadleaf Crops\t\t\t\t29\t\t30\n!   93\tGrass Crops\t\t\t\t41\t\t42\n!   94\tCrops, Grass, Shrubs\t\t\t41\t\t42\n!   95\tEvergreen Tree Crop\t\t\t33\t\t34\n!   96\tDeciduous Tree Crop\t\t\t33\t\t34\n!\n!  Arrays computed by olson_landmap_mod.F90\n!  ============================================================================\n!  (1) State_Met%IREG(I,J)    : # of land types in horizontal grid cell (I,J)\n!  (2) State_Met%ILAND(I,J,T) : Land type ID for land types T=1,IREG(I,J)\n!  (3) State_Met%IUSE(I,J,T)  : Fraction area (per mil) occupied by land types\n!                               T=1,IREG(I,J)\n!  (4) State_Met%FRCLND(I,J)  : Fraction area occupied by land for cell (I,J)\n!\n! !REVISION HISTORY:\n!  13 Mar 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_olson_landmap\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_OLSON\\_LANDMAP computes the\n!  GEOS-Chem State\\_Met variables that are dependent on the Olson Landmap,\n!  specifically IREG, ILAND, IUSE, and FRCLND.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Olson_Landmap( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : NSURFTYPE\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),  INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState),  INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState),  INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,         INTENT(INOUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  27 Sep 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER   :: I,           J,             T\n    INTEGER   :: typeCounter, maxFracInd(1), sumIUSE\n\n    ! Arrays\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Compute_Olson_Landmap begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC     = GC_SUCCESS\n    ErrMsg = ''\n    ThisLoc = &\n     '-> at Compute_Olson_Landmap (in module GeosCore/olson_landmap_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Loop over all grid cells to set State_Met variables\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize fraction land for this grid cell\n       State_Met%FRCLND(I,J) = 1.e+0_fp ! Initialized as all land\n\n       ! Initialize local variables\n       typeCounter = 0       ! Tally of number of types found in the cell\n       maxFracInd  = 0       ! type index with greatest coverage\n       sumIUSE     = 0       ! total coverage across all types [mil]\n\n       !--------------------------------------------------------------------\n       ! Loop over all landmap types to set IREG, ILAND, and IUSE\n       !--------------------------------------------------------------------\n       DO T = 1, NSURFTYPE\n\n          ! If this type has non-zero coverage in this grid box, update vars\n          IF ( State_Met%LandTypeFrac(I,J,T) > 0.e+0_fp ) THEN\n\n             ! Increment number of types in this cell\n             typeCounter = typeCounter + 1\n\n             ! Set IREG to number of types\n             State_Met%IREG(I,J) = typeCounter\n\n             ! Store type index in ILAND array for this grid cell.\n             ! Use 0-based index for compatibility with legacy drydep code.\n             State_Met%ILAND(I,J,typeCounter) = T-1\n\n             ! Store fractional coverage in IUSE array for this grid cell.\n             ! Units are [mil] for compatibility with legacy drydep code.\n             State_Met%IUSE(I,J,typeCounter) = State_Met%LandTypeFrac(I,J,T) &\n                                             * 1000\n\n             ! If this type is water, set fraction land\n             IF ( T .eq. 1 ) THEN\n                State_Met%FRCLND(I,J) = 1.e+0_fp                             &\n                                        - State_Met%LandTypeFrac(I,J,T)\n             ENDIF\n\n          ENDIF\n       ENDDO\n\n       !--------------------------------------------------------------------\n       ! Make sure that State_Met%IUSE sums up to 1000 (per mil)\n       !--------------------------------------------------------------------\n\n       ! Get IUSE type index with maximum coverage [mil]\n       ! (NOTE: MAXLOC returns a vector with 1 element)\n       maxFracInd = MAXLOC( State_Met%IUSE(I,J,1:State_Met%IREG(I,J)) )\n\n       ! Make sure we find the index of IUSE with maximum coverage\n       IF ( maxFracInd(1) > 0 ) THEN\n\n          ! Force IUSE to sum to 1000 by updating max value if necessary\n          sumIUSE =  SUM(State_Met%IUSE(I,J,1:State_Met%IREG(I,J)))\n          IF ( sumIUSE /= 1000 ) THEN\n             State_Met%IUSE(I,J,maxFracInd(1)) =                             &\n             State_Met%IUSE(I,J,maxFracInd(1)) + ( 1000 - sumIUSE )\n          ENDIF\n\n       ELSE\n\n          ! If we could not find the index IUSE with maximum coverage,\n          ! then this indicates a potential problem with the regridding.\n          ! Throw an error and exit the routine here.\n          WRITE( ErrMsg, 100 ) I, J\n 100      FORMAT( 'Error: State_Met%IUSE is zero at grid box (',             &\n                  i6, ', ', i6,                                              &\n                  '!  This indicates a potential regridding problem! ' )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE Compute_Olson_Landmap\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_landtypefrac\n!\n! !DESCRIPTION: Attaches pointers from the MODIS XLAI data read in by\n!  HEMCO to the LandTypeFrac field of State\\_Met.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_LandTypeFrac( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,         ONLY : NSURFTYPE\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetPtr\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Met_Mod,        ONLY : MetState\n    USE State_Grid_Mod,       ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This follows the same methodology for GCHP, except that GCHP obtains the\n!  land type fractions via MAPL, and here we obtain them via HEMCO.\n!\n! !REVISION HISTORY:\n!  13 Feb 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: T\n    LOGICAL            :: FND\n\n    ! Strings\n    CHARACTER(LEN=10)  :: Name\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Pointers\n    REAL(f4), POINTER :: Ptr2D(:,:)\n\n    !=======================================================================\n    ! Init_LandTypeFrac begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at Init_LandTypeFrac (in module \"GeosCore/olson_landmap_mod.F90'\n\n    ! Zero land type fractions array for safety's sake\n    State_Met%LandTypeFrac = 0.0_fp\n\n    ! Loop over the number of Olson land types\n    DO T = 1, NSURFTYPE\n\n       ! Get the HEMCO pointer to each Olson landtype mask\n       ! (variable names are LANDTYPE00, LANDTYPE01 .. LANDTYPE72)\n       WRITE( Name, 100 ) T-1\n 100   FORMAT( 'LANDTYPE', i2.2 )\n       CALL HCO_GC_GetPtr( Input_Opt, State_Grid, Name, Ptr2D, RC, FOUND=FND )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS .or. .not. FND ) THEN\n          ErrMsg = 'Could not read HEMCO field: ' // TRIM( Name )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Copy into State_Met%LandTypeFrac\n       State_Met%LandTypeFrac(:,:,T) = Ptr2D\n\n       ! Free pointer\n       Ptr2D => NULL()\n\n    ENDDO\n\n  END SUBROUTINE Init_LandTypeFrac\n!EOC\nEND MODULE Olson_LandMap_Mod\n"
  },
  {
    "path": "GeosCore/pbl_mix_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: pbl_mix_mod.F90\n!\n! !DESCRIPTION: Module PBL\\_MIX\\_MOD contains routines and variables used to\n!  compute the planetary boundary layer (PBL) height and to mix tracers\n!  underneath the PBL top.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Pbl_Mix_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Do_Full_Pbl_Mixing\n  PUBLIC  :: Compute_Pbl_Height\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: TurbDay\n!\n! !REVISION HISTORY:\n!  11 Feb 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_pbl_mix\n!\n! !DESCRIPTION: Subroutine DO\\_PBL\\_MIX is the driver routine for planetary\n!  boundary layer mixing.  The PBL layer height and related quantities are\n!  always computed.  Complete mixing of tracers underneath the PBL top is\n!  toggled by the DO\\_TURBDAY switch.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Full_Pbl_Mixing( Input_Opt,  State_Chm, State_Diag,          &\n                                 State_Grid, State_Met, RC                  )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Diagnostics_Mod, ONLY : Compute_Budget_Diagnostics\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE Time_Mod,        ONLY : Get_Ts_Conv\n    USE Time_Mod,        ONLY : Get_Ts_Dyn\n    USE Timers_Mod,      ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    INTEGER,        INTENT(INOUT) :: RC          ! Return code\n!\n! !REVISION HISTORY:\n!  11 Feb 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n    INTEGER            :: NA\n    INTEGER            :: TS_Dyn\n    INTEGER            :: previous_units\n    REAL(f8)           :: DT_Dyn\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !=======================================================================\n    ! Do_Full_Pbl_Mixing begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at DO_PBL_MIX (in module GeosCore/pbl_mix_mod.F90)'\n\n    !========================================================================\n    ! Mixing budget diagnostics - Part 1 of 2\n    !========================================================================\n    IF ( State_Diag%Archive_BudgetMixing ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetMixingFull,               &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetMixingFull,                   &\n            isTrop      = State_Diag%Archive_BudgetMixingTrop,               &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetMixingTrop,                   &\n            isPBL       = State_Diag%Archive_BudgetMixingPBL,                &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetMixingPBL,                    &\n            isLevs      = State_Diag%Archive_BudgetMixingLevs,               &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetMixingLevs,                   &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Mixing budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Proceed to do full PBL mixing only if it has been selected in\n    ! geoschem_config.yml\n    IF ( Input_Opt%LTURB .and. ( .not. Input_Opt%LNLPBL ) ) THEN\n\n       !=====================================================================\n       ! Unit conversion #1\n       !=====================================================================\n\n       ! Halt mixing timer (so that unit conv can be timed separately)\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"Boundary layer mixing\", RC )\n       ENDIF\n\n       ! Convert species to [v/v dry] aka [mol/mol dry]\n       CALL Convert_Spc_Units(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Grid     = State_Grid,                                     &\n            State_Met      = State_Met,                                      &\n            mapping        = State_Chm%Map_Advect,                           &\n            new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,                &\n            previous_units = previous_units,                                 &\n            RC             = RC                                             )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountred in \"Convert_Spc_Units\" (to mol/mol dry)!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Start mixing timer again\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"Boundary layer mixing\", RC )\n       ENDIF\n\n       !=====================================================================\n       ! Do full PBL mixing\n       !=====================================================================\n\n       ! Do complete mixing of tracers in the PBL\n       CALL TurbDay( Input_Opt,  State_Chm, State_Diag,                      &\n                     State_Grid, State_Met, RC                              )\n\n       ! Trap potential error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"TURBDAY\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !=====================================================================\n       ! Unit conversion #2\n       !=====================================================================\n\n       ! Halt mixing timer (so that unit conv can be timed separately)\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"Boundary layer mixing\", RC )\n       ENDIF\n\n       ! Convert species back to original units\n       CALL Convert_Spc_Units(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            mapping    = State_Chm%Map_Advect,                               &\n            new_units  = previous_units,                                     &\n            RC         = RC                                                 )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountred in \"Convert_Spc_Units\" (from mol/mol dry)!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Start mixing timer again\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"Boundary layer mixing\", RC )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Full PBL mixing budget diagnostics - Part 1 of 2\n    !========================================================================\n    IF ( State_Diag%Archive_BudgetMixing ) THEN\n\n       ! Get dynamics timestep [s]\n       TS_Dyn = Get_Ts_Dyn()\n       DT_Dyn = DBLE( TS_Dyn )\n\n       ! Compute change in column masses (after mixing - before mixing)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetMixingFull,               &\n            diagFull    = State_Diag%BudgetMixingFull,                       &\n            mapDataFull = State_Diag%Map_BudgetMixingFull,                   &\n            isTrop      = State_Diag%Archive_BudgetMixingTrop,               &\n            diagTrop    = State_Diag%BudgetMixingTrop,                       &\n            mapDataTrop = State_Diag%Map_BudgetMixingTrop,                   &\n            isPBL       = State_Diag%Archive_BudgetMixingPBL,                &\n            diagPBL     = State_Diag%BudgetMixingPBL,                        &\n            mapDataPBL  = State_Diag%Map_BudgetMixingPBL,                    &\n            isLevs      = State_Diag%Archive_BudgetMixingLevs,               &\n            diagLevs    = State_Diag%BudgetMixingLevs,                       &\n            mapDataLevs = State_Diag%Map_BudgetMixingLevs,                   &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Dyn,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Mixing budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Do_Full_Pbl_Mixing\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_pbl_height\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_PBL\\_HEIGHT computes the PBL height and\n!  other related quantities.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Pbl_Height( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE PhysConstants          ! Rd, g0\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : Scale_Height\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  11 Feb 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL  :: Bad_Sum\n    INTEGER  :: I,      J,      L,    LTOP\n    REAL(fp) :: Lower_Edge_Height\n\n    ! Arrays\n    REAL(fp) :: P(0:State_Grid%NZ)\n\n    !=================================================================\n    ! COMPUTE_PBL_HEIGHT begins here!\n    !=================================================================\n\n    ! Initialize\n    RC                       = GC_SUCCESS\n    Bad_Sum                  = .FALSE.\n    State_Met%InPbl          = .FALSE.\n    State_Met%F_of_PBL       = 0.0_fp\n    State_Met%F_Under_PBLTop = 0.0_fp\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, LTOP, Lower_Edge_Height                         )&\n    !$OMP COLLAPSE( 2                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 8                                              )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize variables\n       State_Met%PBL_Top_m(I,J) = State_Met%PBLH(I,J) ! Pbl ht [m] above sfc\n       LTOP                     = 0                   ! Level w/ PBL top\n       Lower_Edge_Height        = 0.0_fp              ! Lower edge height\n                                                      !  above sfc [m]\n\n       ! Find PBL top level (L) and pressure (hPa)\n       DO L = 1, State_Grid%NZ\n\n         !-------------------------------------------------------------------\n         ! The PBL top occurs in this level if the condition is true\n         !-------------------------------------------------------------------\n         IF ( Lower_Edge_Height + State_Met%BXHEIGHT(I,J,L) >=               &\n              State_Met%PBLH(I,J)                                ) THEN\n\n            ! PBL top is in this level\n            LTOP = L\n\n            ! Pressure at the PBL top altitude, hPa\n            ! Use pressure lapse equation:\n            !    p(PBLH) = p(z1) * exp( -(PBLH-z1) / Scale_Height )\n            !\n            ! p(z1) = State_Met%PEDGE(I,J,L) = Pressure @ lower level edge\n            !\n            ! PBLH - z1 = (State_Met%PBLH(I,J,L) - Lower_Edge_Height) =\n            !   Height above the lower level edge\n            !\n            ! Scale_Height = Rd * Tv / g0\n            State_Met%PBL_Top_hPa(I,J) = State_Met%PEdge(I,J,L)     *        &\n                  EXP( -( State_Met%PBLH(I,J) - Lower_Edge_Height ) *        &\n                        g0 / ( Rd * State_Met%TV(I,J,L) )            )\n\n            ! Fraction of PBL mass in layer L, will be normalized below\n            State_Met%F_of_PBL(I,J,L) = State_Met%PEdge(I,J,L)               &\n                                      - State_Met%PBL_Top_hPa(I,J)\n      \n            ! Fraction of the grid cell mass under PBL top\n            State_Met%F_Under_PBLTop(I,J,L) = State_Met%F_of_PBL(I,J,L) /    &\n                 ( State_Met%PEdge(I,J,L) - State_Met%PEdge(I,J,L+1) )\n\n            ! Model level of PBL top (integer+fraction).\n            ! The top is within level CEILING(PBL_Top_L)\n            State_Met%PBL_Top_L(I,J) = ( LTOP - 1 )                          &\n                                     + State_Met%F_Under_PBLTop(I,J,L)\n\n            ! PBL Thickness from surface to top, hPa\n            State_Met%PBL_Thick(I,J) = State_Met%PEdge(I,J,1)                &\n                                     - State_Met%PBL_Top_hPa(I,J)\n\n            ! Exit Do loop after we found PBL top level\n            EXIT\n         ENDIF\n\n         !-------------------------------------------------------------------\n         ! The PBL top does not occur in this level.\n         ! Update variables and go to next level.\n         !-------------------------------------------------------------------\n\n         ! Grid cell fully within PBL\n         State_Met%inPBL(I,J,L) = .True.\n\n         ! Fraction of the grid cell mass under PBL top\n         State_Met%F_Under_PBLTop(I,J,L) = 1.0_fp\n\n         ! Fraction of PBL mass in layer L, will be normalized below\n         State_Met%F_of_PBL(I,J,L) = State_Met%PEdge(I,J,L)                  &\n                                   - State_Met%PEdge(I,J,L+1)\n\n         ! Update lower edge height, m\n         Lower_Edge_Height = Lower_Edge_Height + State_Met%BXHeight(I,J,L)\n\n       ENDDO\n\n       ! Fraction of PBL mass in layer L, now normalize to sum of 1\n       State_Met%F_of_PBL(I,J,:) = State_Met%F_of_PBL(I,J,:)                 &\n                                 / State_Met%PBL_Thick(I,J)\n\n       ! Error check\n       IF ( ABS( SUM( State_Met%F_OF_PBL(I,J,:) ) - 1.0_fp) > 1.0e-3_fp) THEN\n          !$OMP CRITICAL\n          PRINT*, 'bad sum at: ', I, J, SUM( State_Met%F_OF_PBL(I,J,:) )\n          Bad_Sum = .TRUE.\n          !$OMP END CRITICAL\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Exit to main program level if bad sum was encountered\n    IF ( Bad_Sum ) THEN\n       CALL GC_Error( 'Error in computing F_OF_PBL !', RC, &\n                      'COMPUTE_PBL_HEIGHT (\"pbl_mix_mod.F90\")' )\n       RETURN\n    ENDIF\n\n    ! Model level where PBL top occurs\n    State_Met%PBL_MAX_L = MAXVAL( CEILING( State_Met%PBL_Top_L ) )\n\n  END SUBROUTINE Compute_Pbl_Height\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: turbday\n!\n! !DESCRIPTION: !  Subroutine TURBDAY executes the GEOS-Chem boundary layer\n!  mixing algorithm (full PBL mixing).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TurbDay( Input_Opt,  State_Chm, State_Diag,                     &\n                      State_Grid, State_Met, RC                             )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : AIRMW\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Time_Mod,       ONLY : Get_Ts_Conv\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options Object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Metoerology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Original subroutine by Dale Allen, Univ of MD.\n!\n! !REVISION HISTORY:\n!  30 Jan 1998 - I. Bey, R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n\n    ! Scalars\n    INTEGER            :: I,    J,  L\n    INTEGER            :: LTOP, N,  NA\n    REAL(fp)           :: AA,   CC, CC_AA, DTCONV\n\n    ! Arrays\n    REAL(fp)           :: DTC\n    REAL(fp)           :: A(State_Grid%NX,State_Grid%NY)\n    REAL(fp)           :: FPBL(State_Grid%NX,State_Grid%NY)\n    INTEGER            :: IMIX(State_Grid%NX,State_Grid%NY)\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Pointers\n    REAL(fp),      POINTER  :: AD  (:,:,:  )\n    TYPE(SpcConc), POINTER  :: TC  (:      )\n\n    !========================================================================\n    ! TURBDAY begins here!\n    !========================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! First-time initialization\n    IF ( FIRST .and. Input_Opt%amIRoot ) THEN\n\n       ! Echo info\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       WRITE( 6, '(a)' ) 'T U R B D A Y  -- by Dale Allen, U. Md.'\n       WRITE( 6, '(a)' ) 'Adapted for GEOS-Chem by the GCST'\n       WRITE( 6, '(a)' ) 'Last Modification Date: 15 May 2020'\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n       ! Reset first time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Do the boundary layer mixing\n    !========================================================================\n\n    ! Initalize\n    AD      => State_Met%AD         ! Dry air mass\n    TC      => State_Chm%Species    ! Chemical species [v/v]\n    IMIX    = ceiling( State_Met%PBL_Top_L ) ! Integer level where PBL top occurs\n    FPBL    = State_Met%PBL_Top_L - (IMIX-1) ! Fractional level above IMIX to PBL top\n\n    ! Convection timestep [s]\n    DTCONV = GET_TS_CONV()\n\n    ! Loop over Lat/Long grid boxes (I,J)\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, NA, N, AA, CC, CC_AA, DTC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! We assume full mixing in the boundary layer, so the A\n       ! coefficients are 1 everywhere, day & night (bmy, 2/11/03)\n       A(I,J) = 1e+0_fp\n\n       ! Calculate air mass within PBL at grid box (I,J,L)\n       AA = 0.e+0_fp\n       DO L = 1, IMIX(I,J)-1\n          AA = AA + AD(I,J,L)\n       ENDDO\n\n       L  = IMIX(I,J)\n       AA = AA + AD(I,J,L) * FPBL(I,J)\n\n       ! Loop over only the advected species\n       DO NA = 1, State_Chm%nAdvect\n\n          ! Species ID\n          N = State_Chm%Map_Advect(NA)\n\n          !===========================================================\n          ! Calculate tracer mass within PBL at grid box (I,J,L)\n          !===========================================================\n\n          ! Sum mass from (I,J,L) below the PBL top\n          CC = 0.e+0_fp\n          DO L = 1, IMIX(I,J)-1\n             CC = CC + AD(I,J,L) * TC(N)%Conc(I,J,L)\n          ENDDO\n\n          ! Then also sum mass from (I,J,L) which straddle the PBL top\n          L     = IMIX(I,J)\n          CC    = CC + AD(I,J,L) * TC(N)%Conc(I,J,L) * FPBL(I,J)\n\n          ! CC/AA is the mean mixing ratio of tracer at\n          ! (I,J) from L=1 to L=LTOP\n          CC_AA = CC / AA\n\n          !========================================================\n          ! TC(N)%Conc(I,J,L) new  = TC(N)%Conc(I,J,L) old +\n          !                          ( DTC / AD(I,J,L) )\n          !\n          ! where\n          !\n          ! DTC = [ alpha * (mean MR below PBL) *\n          !                  Airmass at (I,J,L) ] -\n          !                [ alpha * TC(N)%Conc(I,J,L) old     *\n          !                  Airmass at (I,J,L) ]\n          !\n          ! DTC is thus the change in mass (kg) due to BL mixing,\n          ! so DTC/AD is the change in (V/V) mixing ratio units.\n          !========================================================\n\n          ! For grid boxes (I,J,L) which lie below the PBL top\n          DO L = 1, IMIX(I,J)-1\n             DTC = ( A(I,J) * CC_AA       * AD(I,J,L)  - &\n                     A(I,J) * TC(N)%Conc(I,J,L) * AD(I,J,L) )\n\n             TC(N)%Conc(I,J,L) = TC(N)%Conc(I,J,L) + DTC / AD(I,J,L)\n          ENDDO\n\n          ! For grid boxes (I,J,L) which straddle the PBL top\n          L = IMIX(I,J)\n\n          DTC = ( A(I,J) * FPBL(I,J)  * CC_AA       * AD(I,J,L) - &\n                  A(I,J) * FPBL(I,J)  * TC(N)%Conc(I,J,L) * AD(I,J,L) )\n\n          TC(N)%Conc(I,J,L) = TC(N)%Conc(I,J,L) + DTC / AD(I,J,L)\n\n       ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    AD   => NULL()\n    TC   => NULL()\n\n  END SUBROUTINE TurbDay\n!EOC\nEND MODULE Pbl_Mix_Mod\n"
  },
  {
    "path": "GeosCore/photolysis_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: photolysis_mod.F90\n!\n! !DESCRIPTION: Module PHOTOLYSIS\\_MOD contains routines and variables\n!  for GEOS-Chem photolysis.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE PHOTOLYSIS_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD\n\n  IMPLICIT NONE\n\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_Photolysis\n  PUBLIC  :: Do_Photolysis\n  PUBLIC  :: PHOTRATE_ADJ\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: SET_AER\n  PRIVATE :: RD_PROF_NC\n!\n! !REVISION HISTORY:\n!  20 Mar 2023 - E. Lundgren - initial version, adapted from fast_jx_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n   ! Species ID flags\n   INTEGER :: id_NIT, id_NITs, id_SALA, id_SALC\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_photolysis\n!\n! !DESCRIPTION: Subroutine INIT\\_PHOTOLYSIS initializes GEOS-Chem photolysis.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_PHOTOLYSIS( Input_Opt,  State_Grid, State_Chm,             &\n                              State_Diag, State_Met,  RC                    )\n!\n! !USES:\n!\n    USE Charpak_Mod,    ONLY : CSTRIP\n#ifdef FASTJX\n    USE CMN_FJX_Mod,    ONLY : JVN_, W_, JLABEL, RNAMES, WL, JFACTA\n#else\n    USE Cldj_Cmn_Mod,   ONLY : JVN_, W_, JLABEL, RNAMES, WL, JFACTA\n#endif\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : Planck, CConst\n    USE State_Chm_Mod,  ONLY : ChmState, Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n#ifdef FASTJX\n    USE Fjx_Interface_Mod,  ONLY : Init_FastJX\n#else\n    USE Cldj_Interface_Mod, ONLY : Init_CloudJ\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(DgnState), INTENT(IN)    :: State_Diag  ! Diagnostics State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Mar 2023 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=50 ) :: TEXT\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Scalars\n    LOGICAL            :: notDryRun\n    INTEGER            :: J, K\n    REAL(fp)           :: ND64MULT\n\n    ! Pointers\n    INTEGER,   POINTER :: GC_Photo_ID(:)\n\n    !=======================================================================\n    ! INIT_PHOTOLYSIS begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at Init_Photolysis  (in module GeosCore/photolysis_mod.F90)'\n\n    ! Set pointers\n    GC_Photo_ID => State_Chm%Phot%GC_Photo_ID\n\n    !--------------------------------------------------------------------\n    ! Initialize Fast-JX if photolysis enabled\n    !\n    ! NOTE: we need to call this for a dry-run so that we can get\n    ! a list of all of the lookup tables etc read by Fast-JX\n    !--------------------------------------------------------------------\n    IF ( Input_Opt%Do_Photolysis ) THEN\n#ifdef FASTJX\n       IF ( TRIM(Input_Opt%Fast_JX_Dir) == MISSING_STR ) THEN\n          ErrMsg = 'Init_Photolysis: Fast-JX directory missing in ' // &\n                   'in geoschem_config.yml!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CALL Init_FastJX( Input_Opt, State_Diag, State_Chm, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_FastJX\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n#else\n       IF ( TRIM(Input_Opt%CloudJ_Dir) == MISSING_STR ) THEN\n          ErrMsg = 'Init_Photolysis: Cloud-J directory missing in ' // &\n                   'geoschem_config.yml!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CALL Init_CloudJ( Input_Opt, State_Grid, State_Diag,                  &\n                         State_Chm, RC                                      )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Init_CloudJ\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n#endif\n\n    ENDIF\n    \n    !--------------------------------------------------------------------\n    ! Read in T & O3 climatology to fill e.g. upper layers or if O3 not calc.\n    !--------------------------------------------------------------------\n    ! NOTE: Cloud-J reads in an ascii file with this data during initialization\n    ! and uses it prior to calling Cloud_JX within the Cloud-J standalone. In\n    ! GEOS-Chem we read a netcdf file instead and use the data within\n    ! subroutine Set_Prof_Fjx if using Fast-JX and Set_Prof_CloudJ if using\n    ! Cloud-J. The data is stored in State_Chm%Phot%TREF/%OREF. Cloud-J\n    ! globals variables TREF and OREF are only used for Cloud-J standalone.\n    CALL RD_PROF_NC( Input_Opt, State_Grid, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"Rd_Prof_Nc\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Exit without doing any computations if we are doing a dry-run\n    ! Exit if photolysis disabled (zero J-values)\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%DryRun .OR. .NOT. Input_Opt%Do_Photolysis ) RETURN\n\n    !--------------------------------------------------------------------\n    ! Set up MIEDX array to interpret between GC and FJX aerosol indexing\n    !------------------------------------------------------------------------\n    CALL SET_AER( Input_Opt, State_Chm, RC )\n\n    !========================================================================\n    ! Flag special reactions that will be later adjusted by\n    ! routine PHOTRATE_ADJ (called from FlexChem)\n    !========================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n       ! Loop over all photolysis reactions\n       DO K = 1, State_Chm%Phot%nPhotRxns\n\n          ! Strip all blanks from the reactants and products list\n          TEXT = JLABEL(K)\n          CALL CSTRIP( TEXT )\n\n          !IF ( Input_Opt%amIRoot ) THEN\n          !   WRITE(*,*) K, TRIM( TEXT )\n          !ENDIF\n\n          ! Look for certain reactions\n          SELECT CASE( TRIM( TEXT ) )\n             CASE( 'O2PHOTONOO' )\n                State_Chm%Phot%RXN_O2 = K     ! O2 + hv -> O + O\n             CASE( 'O3PHOTONO2O' )\n                State_Chm%Phot%RXN_O3_1 = K   ! O3 + hv -> O2 + O\n             CASE( 'O3PHOTONO2O(1D)' )\n                State_Chm%Phot%RXN_O3_2 = K   ! O3 + hv -> O2 + O(1D)\n             CASE( 'SO4PHOTONSO2OHOH' )\n                State_Chm%Phot%RXN_H2SO4 = K  ! SO4 + hv -> SO2 + OH + OH\n             CASE( 'NO2PHOTONNOO' )\n                State_Chm%Phot%RXN_NO2 = K    ! NO2 + hv -> NO + O\n             CASE( 'NOPHOTONNO' )\n                State_Chm%Phot%RXN_NO = K     ! NO + hv -> N + O\n             CASE( 'NO3PHOTONNO2O' )\n                State_Chm%Phot%RXN_NO3 = K    ! NO3 + hv -> NO2 + O\n             CASE( 'N2OPHOTONN2O' )\n                State_Chm%Phot%RXN_N2O = K    ! N2O + hv -> N2 + O\n             CASE( 'NITsPHOTONHNO2' )\n                State_Chm%Phot%RXN_JNITSa = K ! NITs + hv -> HNO2\n             CASE( 'NITsPHOTONNO2' )\n                State_Chm%Phot%RXN_JNITSb = K ! NITs + hv -> NO2\n             CASE( 'NITPHOTONHNO2' )\n                State_Chm%Phot%RXN_JNITa = K  ! NIT + hv -> HNO2\n             CASE( 'NITPHOTONNO2' )\n                State_Chm%Phot%RXN_JNITb = K  ! NIT + hv -> NO2\n             CASE( 'HNO3PHOTONNO2OH' )\n                State_Chm%Phot%RXN_JHNO3 = K  ! HNO3 + hv = OH + NO2\n             CASE DEFAULT\n                ! Nothing\n          END SELECT\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! Error check the various rxn flags\n       !---------------------------------------------------------------------\n       IF ( State_Chm%Phot%RXN_O2 < 0 ) THEN\n          ErrMsg = 'Could not find rxn O2 + hv -> O + O'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_O3_1 < 0 ) THEN\n          ErrMsg = 'Could not find rxn O3 + hv -> O2 + O'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_O3_2 < 0 ) THEN\n          ErrMsg = 'Could not find rxn O3 + hv -> O2 + O(1D)'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_NO2 < 0 ) THEN\n          ErrMsg = 'Could not find rxn NO2 + hv -> NO + O'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_NO2 < 0 ) THEN\n          ErrMsg = 'Could not find rxn NO2 + hv -> NO + O'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_JNITSa < 0 ) THEN\n          ErrMsg = 'Could not find rxn NITS + hv -> HNO2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_JNITSb < 0 ) THEN\n          ErrMsg = 'Could not find rxn NITS + hv -> NO2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_JNITa < 0 ) THEN\n          ErrMsg = 'Could not find rxn NIT + hv -> HNO2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_JNITb < 0 ) THEN\n          ErrMsg = 'Could not find rxn NIT + hv -> NO2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_H2SO4  < 0 ) THEN\n          ErrMsg = 'Could not find rxn SO4 + hv -> SO2 + OH + OH!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_NO3 < 0 ) THEN\n          ErrMsg = 'Could not find rxn NO3 + hv -> NO2 + O'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_NO < 0 ) THEN\n          ErrMsg = 'Could not find rxn NO + hv -> O + N'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( State_Chm%Phot%RXN_N2O < 0 ) THEN\n          ErrMsg = 'Could not find rxn N2O + hv -> N2 + O(1D)'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Print out saved rxn flags for fullchem simulations\n       !---------------------------------------------------------------------\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( 6, 100 ) REPEAT( '=', 79 )\n          WRITE( 6, 110 )\n          WRITE( 6, 120 ) State_Chm%Phot%RXN_O2\n          WRITE( 6, 130 ) State_Chm%Phot%RXN_O3_1\n          WRITE( 6, 140 ) State_Chm%Phot%RXN_O3_2\n          WRITE( 6, 180 ) State_Chm%Phot%RXN_JNITSa\n          WRITE( 6, 190 ) State_Chm%Phot%RXN_JNITSb\n          WRITE( 6, 200 ) State_Chm%Phot%RXN_JNITa\n          WRITE( 6, 210 ) State_Chm%Phot%RXN_JNITb\n          WRITE( 6, 160 ) State_Chm%Phot%RXN_H2SO4\n          WRITE( 6, 170 ) State_Chm%Phot%RXN_NO2\n          WRITE( 6, 100 ) REPEAT( '=', 79 )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Flag reactions for diagnostics (only in Hg chem)\n    !========================================================================\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n        ! Loop over all photolysis reactions\n        DO K = 1, State_Chm%Phot%nPhotRxns\n\n           ! Strip all blanks from the reactants and products list\n           TEXT = JLABEL(K)\n           CALL CSTRIP( TEXT )\n\n           ! Look for certain reactions\n           SELECT CASE( TRIM( TEXT ) )\n              CASE( 'O3PHOTONO2O' )\n                 State_Chm%Phot%RXN_O3_1 = K ! O3 + hv -> O2 + O\n              CASE( 'O3PHOTONO2O(1D)' )\n                 State_Chm%Phot%RXN_O3_2 = K ! O3 + hv -> O2 + O(1D)\n              CASE( 'NO2PHOTONNOO' )\n                 State_Chm%Phot%RXN_NO2 = K  ! NO2 + hv -> NO + O\n              CASE( 'BrOPHOTONBrO' )\n                 State_Chm%Phot%RXN_BrO = K  ! BrO + hv -> Br + O\n              CASE( 'ClOPHOTONClO' )\n                 State_Chm%Phot%RXN_ClO = K  ! ClO + hv -> Cl + O\n              CASE DEFAULT\n                 ! Nothing\n           END SELECT\n        ENDDO\n\n        !--------------------------------------------------------------------\n        ! Error check the various rxn flags\n        !--------------------------------------------------------------------\n        IF ( State_Chm%Phot%RXN_O3_1 < 0 ) THEN\n           ErrMsg = 'Could not find rxn O3 + hv -> O2 + O'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n\n        IF ( State_Chm%Phot%RXN_O3_2 < 0 ) THEN\n           ErrMsg = 'Could not find rxn O3 + hv -> O2 + O(1D) #1'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n\n        IF ( State_Chm%Phot%RXN_NO2 < 0 ) THEN\n           ErrMsg = 'Could not find rxn NO2 + hv -> NO + O'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n\n        IF ( State_Chm%Phot%RXN_BrO < 0 ) THEN\n           ErrMsg = 'Could not find rxn BrO + hv -> Br + O'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n\n        IF ( State_Chm%Phot%RXN_ClO < 0 ) THEN\n           ErrMsg = 'Could not find rxn ClO + hv -> Cl + O'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n\n       !---------------------------------------------------------------------\n       ! Print out saved rxn flags for Hg simulation\n       !---------------------------------------------------------------------\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( 6, 100 ) REPEAT( '=', 79 )\n          WRITE( 6, 110 )\n          WRITE( 6, 130 ) State_Chm%Phot%RXN_O3_1\n          WRITE( 6, 140 ) State_Chm%Phot%RXN_O3_2\n          WRITE( 6, 170 ) State_Chm%Phot%RXN_NO2\n          WRITE( 6, 220 ) State_Chm%Phot%RXN_BrO\n          WRITE( 6, 230 ) State_Chm%Phot%RXN_ClO\n          WRITE( 6, 100 ) REPEAT( '=', 79 )\n       ENDIF\n    ENDIF\n\n    ! Skip further processing if we are in dry-run mode\n    IF (  .not. Input_Opt%DryRun ) THEN\n\n       ! Define species IDs\n       id_NIT  = IND_('NIT')\n       id_NITs = IND_('NITs')\n       id_SALA = IND_('SALA')\n       id_SALC = IND_('SALC')\n\n       ! Get the GEOS-Chem photolysis index for each of the 1...JVN_ entries\n       ! in the FJX_j2j.dat file.  We'll use this for the diagnostics.\n       DO J = 1, State_Chm%Phot%nMaxPhotRxns\n\n          IF ( J == State_Chm%Phot%Rxn_O3_2 ) THEN\n\n             !------------------------------------------------------------\n             ! O3 + hv = O + O(1D)\n             !\n             ! Save this as JO3_O1D in the nPhotol+1 slot\n             !------------------------------------------------------------\n             GC_Photo_Id(J) = State_Chm%nPhotol + 1\n\n          ELSE IF ( J == State_Chm%Phot%Rxn_O3_1 ) THEN\n\n             !------------------------------------------------------------\n             ! O3 + hv -> O + O\n             !\n             ! Save this as JO3_O3P in the nPhotol+2 slot\n             !-------------------------------------------------------------\n             GC_Photo_Id(J) = State_Chm%nPhotol + 2\n\n          ELSE\n\n             !------------------------------------------------------------\n             ! Everything else\n             !\n             ! Find the matching GEOS-Chem photolysis species number\n             !------------------------------------------------------------\n             GC_Photo_Id(J) = Ind_( RNAMES(J), 'P' )\n\n          ENDIF\n\n          ! Print the mapping\n          IF ( Input_Opt%amIRoot ) THEN\n             IF ( GC_Photo_Id(J) > 0 ) THEN\n                WRITE(6, 240) RNAMES(J), J, GC_Photo_Id(J), JFACTA(J)\n240             FORMAT( a10, ':', i7, 2x, i7, 2x, f7.4 )\n             ENDIF\n          ENDIF\n       ENDDO\n\n       !=====================================================================\n       ! Compute factors for UV flux diagnostics if turned on\n       !=====================================================================\n       IF ( State_Diag%Archive_UVFluxNet      .or. &\n            State_Diag%Archive_UVFluxDirect   .or. &\n            State_Diag%Archive_UVFluxDiffuse ) THEN\n          ND64MULT  = PLANCK * CCONST * 1.0e+13_fp\n          State_Chm%Phot%UVXFACTOR = 0e+0_fp\n          DO J = 1, W_\n             State_Chm%Phot%UVXFACTOR(J) = ND64MULT/WL(J)\n          ENDDO\n       ENDIF\n    ENDIF\n\n    ! Free pointers\n    GC_Photo_ID => NULL()\n    \n    ! FORMAT statements\n100 FORMAT( a                                                 )\n110 FORMAT( 'Photo rxn flags saved for use in PHOTRATE_ADJ:', / )\n120 FORMAT( 'RXN_O2     [ O2   + hv -> O + O         ]  =  ', i5 )\n130 FORMAT( 'RXN_O3_1   [ O3   + hv -> O2 + O        ]  =  ', i5 )\n140 FORMAT( 'RXN_O3_2a  [ O3   + hv -> O2 + O(1D) #1 ]  =  ', i5 )\n150 FORMAT( 'RXN_O3_2b  [ O3   + hv -> O2 + O(1D) #2 ]  =  ', i5 )\n160 FORMAT( 'RXN_H2SO4  [ SO4  + hv -> SO2 + OH + OH ]  =  ', i5 )\n170 FORMAT( 'RXN_NO2    [ NO2  + hv -> NO + O        ]  =  ', i5 )\n180 FORMAT( 'RXN_JNITSa [ NITS + hv -> HNO2          ]  =  ', i5 )\n190 FORMAT( 'RXN_JNITSb [ NITS + hv -> NO2           ]  =  ', i5 )\n200 FORMAT( 'RXN_JNITa  [ NIT  + hv -> HNO2          ]  =  ', i5 )\n210 FORMAT( 'RXN_JNITb  [ NIT  + hv -> NO2           ]  =  ', i5 )\n220 FORMAT( 'RXN_BrO    [ BrO  + hv -> Br + O        ]  =  ', i5 )\n230 FORMAT( 'RXN_ClO    [ ClO  + hv -> Cl + O        ]  =  ', i5 )\n\n  END SUBROUTINE Init_Photolysis\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: do_photolysis\n!\n! !DESCRIPTION: Subroutine DO\\_PHOTOLYSIS loops over longitude and latitude,\n!  and computes J-Values for each column at every chemistry time-step.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Photolysis( Input_Opt, State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n#ifdef FASTJX\n    USE Fjx_Interface_Mod,  ONLY : Run_FastJX\n#else\n    USE Cldj_Interface_Mod, ONLY : Run_CloudJ\n#endif\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n!\n! !REVISION HISTORY:\n!  20 Mar 2023 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: Wavelength\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! DO_PHOTOLYSIS begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at DO_PHOTOLYSIS (in module GeosCore/photolysis_mod.F90)'\n    WAVELENGTH = 0\n\n#ifdef FASTJX\n    CALL Run_FastJX( Wavelength, Input_Opt,  State_Chm, State_Diag, &\n                     State_Grid, State_Met, RC )\n#else\n    CALL Run_CloudJ( Input_Opt, State_Chm, State_Diag, State_Grid, State_Met, RC )\n#endif\n\n    IF ( RC /= GC_SUCCESS ) THEN\n#ifdef FASTJX\n       ErrMsg = 'Error encountered in subroutine Run_FastJX!'\n#else\n       ErrMsg = 'Error encountered in subroutine Run_CloudJ!'\n#endif\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Do_Photolysis\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: photrate_adj\n!\n! !DESCRIPTION: Subroutine PHOTRATE\\_ADJ adjusts certain photolysis rates\n!  for chemistry.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PHOTRATE_ADJ( Input_Opt, State_Chm,  State_Diag, State_Met,     &\n                           I, J, L, FRAC, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Error_Mod,      ONLY : SAFE_DIV\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input_Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm  ! Chemistry State object\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: I, J, L    ! Lon, lat, lev indices\n    REAL(fp),       INTENT(IN)    :: FRAC       ! Result of SO4_PHOTFRAC,\n                                                !  called from DO_FLEXCHEM\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure\n!\n! !REMARKS:\n!  NOTE: The netCDF diagnostics are attached in DO_FLEXCHEM so that we have\n!  access to the adjusted rates.\n!    -- Bob Yantosca, 19 Dec 2017\n!\n!  %%%% NOTE: WE SHOULD UPDATE THE COMMENTS TO MAKE SURE THAT WE DO      %%%%\n!  %%%% NOT KEEP ANY CONFLICTING OR INCORRECT INFORMATION (bmy, 3/28/16) %%%%\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: RXN_JNITSa, RXN_JNITSb, RXN_JNITa, RXN_JNITb\n    INTEGER  :: RXN_JHNO3,  RXN_H2SO4,  RXN_O3_1,  RXN_O3_2\n    REAL(fp) :: JscaleNITs, JscaleNIT,  JNITChanA, JNITChanB\n    REAL(fp) :: C_O2,     C_N2, C_H2,   ITEMPK, RO1DplH2O\n    REAL(fp) :: RO1DplH2, RO1D, NUMDEN, TEMP,   C_H2O\n    REAL(fp) :: C_NIT, C_NITs, C_SALA, C_SALC, FAC\n\n    ! Pointers\n    REAL*8, POINTER :: ZPJ(:,:,:,:)\n\n    !=================================================================\n    ! PHOTRATE_ADJ begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    TEMP    = State_Met%T(I,J,L)                                 ! K\n    NUMDEN  = State_Met%AIRNUMDEN(I,J,L)                         ! molec/cm3\n    C_H2O   = State_Met%AVGW(I,J,L) * State_Met%AIRNUMDEN(I,J,L) ! molec/cm3\n \n    ! Reaction flags\n    RXN_JNITSa = State_Chm%Phot%RXN_JNITSa\n    RXN_JNITSb = State_Chm%Phot%RXN_JNITSb\n    RXN_JNITa  = State_Chm%Phot%RXN_JNITa\n    RXN_JNITb  = State_Chm%Phot%RXN_JNITb\n    RXN_JHNO3  = State_Chm%Phot%RXN_JHNO3\n    RXN_H2SO4  = State_Chm%Phot%RXN_H2SO4\n    RXN_O3_1   = State_Chm%Phot%RXN_O3_1\n    RXN_O3_2   = State_Chm%Phot%RXN_O3_2\n\n    ! Pointers\n    ZPJ => State_Chm%Phot%ZPJ\n\n    ! For all mechanisms. Set the photolysis rate of NITs and NIT to a\n    ! scaled value of JHNO3. NOTE: this is set in geoschem_config.yml\n    ! Allow particulate nitrate photolysis in the troposphere only\n    IF ( Input_Opt%hvAerNIT .and.               &\n         State_Met%InTroposphere(I,J,L) ) THEN\n\n       ! Get NIT and NITs concentrations [molec cm-3]\n       C_NIT      = State_Chm%Species(id_NIT)%Conc(I,J,L)\n       C_NITs     = State_Chm%Species(id_NITs)%Conc(I,J,L)\n\n\n       ! Get sea-salt concentrations [molec cm-3]\n       C_SALA     = State_Chm%Species(id_SALA)%Conc(I,J,L)\n       C_SALC     = State_Chm%Species(id_SALC)%Conc(I,J,L)\n\n       ! Scaling factor for J(NIT)\n       FAC        = SAFE_DIV( C_SALA, C_SALA + C_NIT, 1e+0_fp )\n\n       ! Set FRAC_NIT to a minimum of 0.1\n       FAC        = MAX( 0.1e+0_fp, FAC )\n\n       JscaleNITs = Input_Opt%hvAerNIT_JNITs\n       JscaleNIT  = Input_Opt%hvAerNIT_JNIT\n\n       ! convert reaction channel % to a fraction\n       JNITChanA  = Input_Opt%JNITChanA\n       JNITChanB  = Input_Opt%JNITChanB\n       JNITChanA  = JNITChanA / 100.0_fp\n       JNITChanB  = JNITChanB / 100.0_fp\n\n       ! Set the photolysis rate of NITs\n       ZPJ(L,RXN_JNITSa,I,J) = ZPJ(L,RXN_JHNO3,I,J) * JscaleNITs\n       ZPJ(L,RXN_JNITSb,I,J) = ZPJ(L,RXN_JHNO3,I,J) * JscaleNITs\n\n       ! Set the photolysis rate of NIT\n       ZPJ(L,RXN_JNITa,I,J) = ZPJ(L,RXN_JHNO3,I,J) * JscaleNIT * FAC\n       ZPJ(L,RXN_JNITb,I,J) = ZPJ(L,RXN_JHNO3,I,J) * JscaleNIT * FAC\n\n       ! NOTE: channel scaling is 1 in FJX_j2j.dat, then updated here\n       ZPJ(L,RXN_JNITSa,I,J) = ZPJ(L,RXN_JNITSa,I,J) * JNITChanA\n       ZPJ(L,RXN_JNITa,I,J) = ZPJ(L,RXN_JNITa,I,J) * JNITChanA\n       ZPJ(L,RXN_JNITSb,I,J) = ZPJ(L,RXN_JNITSb,I,J) * JNITChanB\n       ZPJ(L,RXN_JNITb,I,J) = ZPJ(L,RXN_JNITb,I,J) * JNITChanB\n\n    ! Gotcha to set JNIT and JNITs to zero if hvAerNIT switch is off\n    ELSE\n\n       ! Set the photolysis rate of NITs to zero\n       ZPJ(L,RXN_JNITSa,I,J) = 0.0_fp\n       ZPJ(L,RXN_JNITSb,I,J) = 0.0_fp\n       ! Set the photolysis rate of NIT to zero\n       ZPJ(L,RXN_JNITa,I,J) = 0.0_fp\n       ZPJ(L,RXN_JNITb,I,J) = 0.0_fp\n\n    ENDIF\n\n    !==============================================================\n    ! SPECIAL TREATMENT FOR H2SO4+hv -> SO2 + 2OH\n    !\n    ! Only allow photolysis of H2SO4 when gaseous (SDE 04/11/13)\n    !==============================================================\n\n    ! Calculate if H2SO4 expected to be gaseous or aqueous\n    ! Only allow photolysis above 6 hPa\n    ! RXN_H2SO4 specifies SO4 + hv -> SO2 + OH + OH\n    ZPJ(L,RXN_H2SO4,I,J) = ZPJ(L,RXN_H2SO4,I,J) * FRAC\n\n    !==============================================================\n    ! SPECIAL TREATMENT FOR O3+hv -> O+O2\n    !\n    ! [O1D]ss=J[O3]/(k[H2O]+k[N2]+k[O2])\n    ! SO, THE EFFECTIVE J-VALUE IS J*k[H2O]/(k[H2O]+k[N2]+k[O2])\n    !\n    ! We don't want to do this if strat-chem is in use, as all\n    ! the intermediate reactions are included - this would be\n    ! double-counting (SDE 04/01/13)\n    !==============================================================\n\n    ! Need to subtract O3->O1D from rate\n    ! RXN_O3_1 specifies: O3 + hv -> O2 + O\n    ! RXN_O3_2 specifies: O3 + hv -> O2 + O(1D)\n    ZPJ(L,RXN_O3_1,I,J) = ZPJ(L,RXN_O3_1,I,J) &\n                        - ZPJ(L,RXN_O3_2,I,J)\n\n    ! Free pointers\n    ZPJ => NULL()\n\n  END SUBROUTINE PHOTRATE_ADJ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_aer\n!\n! !DESCRIPTION: Subroutine SET\\_AER fills out the array MIEDX.\n!  Each entry connects a GEOS-Chem aerosol to its Fast-JX counterpart:\n!  MIEDX(Fast-JX index) = (GC index)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_AER( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n#ifdef FASTJX\n    USE CMN_FJX_Mod,    ONLY : AN_, NAA, TITLAA\n#else\n    USE Cldj_Cmn_Mod,   ONLY : AN_, NAA, TITLAA\n#endif\n    USE CMN_SIZE_Mod,   ONLY : NRHAER, NRH\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt ! Input options\n!\n! !INPUT/OUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC        ! Success or failure?\n!\n! !REVISION HISTORY:\n!  31 Mar 2013 - S. D. Eastham - Adapted from J. Mao FJX v6.2 implementation\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n    INTEGER            :: I, J, K\n    INTEGER            :: IND(NRHAER)\n    INTEGER,   POINTER :: MIEDX(:)\n\n    !=================================================================\n    ! SER_AER begins here!\n    !=================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n    ErrMsg = ''\n    ThisLoc = ' -> at Set_Aer (in module GeosCore/photolysis_mod.F90)'\n\n\n    ! Set pointer\n    MIEDX => State_Chm%Phot%MIEDX\n\n    ! Taken from aerosol_mod.F\n    IND = (/22,29,36,43,50/)\n\n    DO I=1,AN_\n       MIEDX(I) = 0\n    ENDDO\n\n    ! Select Aerosol/Cloud types to be used - define types here\n    ! Each of these types must be listed in the order used by OPMIE.F\n\n    ! Clouds\n    MIEDX(1)  =  3   !  Black carbon absorber\n    MIEDX(2)  = 10   !  Water Cloud (Deirmenjian 8 micron)\n    MIEDX(3)  = 14   !  Irregular Ice Cloud (Mishchenko)\n\n    ! Dust\n    MIEDX(4)  = 15   !  Mineral Dust  .15 micron    (rvm, 9/30/00)\n    MIEDX(5)  = 16   !  Mineral Dust  .25 micron    (rvm, 9/30/00)\n    MIEDX(6)  = 17   !  Mineral Dust  .4  micron    (rvm, 9/30/00)\n    MIEDX(7)  = 18   !  Mineral Dust  .8  micron    (rvm, 9/30/00)\n    MIEDX(8)  = 19   !  Mineral Dust 1.5  micron    (rvm, 9/30/00)\n    MIEDX(9)  = 20   !  Mineral Dust 2.5  micron    (rvm, 9/30/00)\n    MIEDX(10) = 21   !  Mineral Dust 4.0  micron    (rvm, 9/30/00)\n\n    ! Aerosols\n    DO I=1,NRHAER\n       DO J=1,NRH\n          MIEDX(10+((I-1)*NRH)+J)=IND(I)+J-1\n       ENDDO\n    ENDDO\n\n    ! Stratospheric aerosols - SSA/STS and solid PSCs\n#ifdef FASTJX\n    MIEDX(10+(NRHAER*NRH)+1) = 4  ! SSA/LBS/STS\n#else\n    MIEDX(10+(NRHAER*NRH)+1) = 1  ! SSA/LBS/STS\n#endif\n    MIEDX(10+(NRHAER*NRH)+2) = 14 ! NAT/ice PSCs\n\n    ! Ensure all 'AN_' types are valid selections\n    do i=1,AN_\n       IF (Input_Opt%amIRoot) write(6,1000) MIEDX(i),TITLAA(MIEDX(i))\n       if (MIEDX(i).gt.NAA.or.MIEDX(i).le.0) then\n          if (Input_Opt%amIRoot) then\n             write(6,1200) MIEDX(i),NAA\n          endif\n          ErrMsg = 'Bad MIEDX value in \"Set_AER\"!'\n          call GC_Error( ErrMsg, RC, ThisLoc )\n          return\n       endif\n    enddo\n\n    ! Free pointer\n    MIEDX => NULL()\n\n1000 format('Using Aerosol type: ',i3,1x,a)\n1200 format('Aerosol type ',i3,' unsuitable; supplied values must be ', &\n            'between 1 and ',i3)\n\n  END SUBROUTINE SET_AER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rd_prof_nc\n!\n! !DESCRIPTION: Subroutine RD\\_PROF\\_NC reads in the reference climatology\n!  from a NetCDF file rather than an ASCII .dat.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RD_PROF_NC( Input_Opt, State_Grid, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Chm_Mod,  ONLY : ChmState\n\n#if defined( MODEL_CESM )\n    USE CAM_PIO_UTILS,     ONLY : CAM_PIO_OPENFILE\n    USE IOFILEMOD,         ONLY : GETFIL\n    USE PIO,               ONLY : PIO_CLOSEFILE\n    USE PIO,               ONLY : PIO_INQ_DIMID\n    USE PIO,               ONLY : PIO_INQ_DIMLEN\n    USE PIO,               ONLY : PIO_INQ_VARID\n    USE PIO,               ONLY : PIO_GET_VAR\n    USE PIO,               ONLY : PIO_NOERR\n    USE PIO,               ONLY : PIO_NOWRITE\n    USE PIO,               ONLY : FILE_DESC_T\n#else\n    USE m_netcdf_io_open\n    USE m_netcdf_io_read\n    USE m_netcdf_io_readattr\n    USE m_netcdf_io_close\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This file was automatically generated by the Perl scripts in the\n!  NcdfUtilities package (which ships w/ GEOS-Chem) and was subsequently\n!  hand-edited.\n!\n! !REVISION HISTORY:\n!  19 Apr 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists          ! Does input file exist?\n    INTEGER            :: fId                 ! netCDF file ID\n\n    ! Strings\n    CHARACTER(LEN=255) :: nc_dir              ! netCDF directory name\n    CHARACTER(LEN=255) :: nc_file             ! netCDF file name\n    CHARACTER(LEN=255) :: nc_path             ! netCDF path name\n    CHARACTER(LEN=255) :: v_name              ! netCDF variable name\n    CHARACTER(LEN=255) :: a_name              ! netCDF attribute name\n    CHARACTER(LEN=255) :: a_val               ! netCDF attribute value\n    CHARACTER(LEN=255) :: FileMsg\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    ! Arrays\n    INTEGER            :: st3d(3), ct3d(3)    ! For 3D arrays\n\n#if defined( MODEL_CESM )\n    type(FILE_DESC_T)  :: ncid\n    INTEGER            :: vId, iret\n#endif\n\n    ! Pointers\n    REAL(fp), POINTER :: OREF(:,:,:)\n    REAL(fp), POINTER :: TREF(:,:,:)\n\n    !=================================================================\n    ! RD_PROF_NC begins here!\n    !=================================================================\n\n    ! Initialize\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at RD_PROF_NC (in module GeosCore/photolysis_mod.F90)'\n\n#if defined( MODEL_CESM )\n    ! In the CESM model, only read on the root chunk, but on all CPUs (hplin, 7/3/24)\n    IF ( State_Grid%CPU_Subdomain_ID .ne. State_Grid%CPU_Subdomain_FirstID ) RETURN\n#endif\n\n    ! Set pointers\n    OREF => State_Chm%Phot%OREF\n    TREF => State_Chm%Phot%TREF\n\n    ! Directory and file names\n    nc_dir  = TRIM( Input_Opt%CHEM_INPUTS_DIR ) // '/' // 'FastJ_201204' // '/'\n    nc_file = 'fastj.jv_atms_dat.nc'\n    nc_path = TRIM( nc_dir ) // TRIM( nc_file )\n\n    !=================================================================\n    ! In dry-run mode, print file path to dryrun log and exit.\n    ! Otherwise, print file path to stdout and continue.\n    !=================================================================\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( nc_path ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg = 'PHOTOLYSIS (RD_PROF_NC): Opening'\n    ELSE\n       FileMsg = 'PHOTOLYSIS (RD_PROF_NC): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write to stdout for both regular and dry-run simulations\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( nc_path )\n300    FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program.\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( Input_Opt%DryRun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( nc_path )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=========================================================================\n    ! Open and read data from the netCDF file\n    !=========================================================================\n\n    ! Open netCDF file\n#if defined( MODEL_CESM )\n    ! Note: In CESM environment, PIO_OPENFILE is a collective operation and must\n    ! be called by all CPUs. (hplin, 7/3/24)\n    CALL CAM_PIO_OPENFILE( ncid, TRIM(nc_path), PIO_NOWRITE )\n#else\n    CALL Ncop_Rd( fId, TRIM(nc_path) )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) REPEAT( '%', 79 )\n       WRITE( 6, 110 ) TRIM(nc_file)\n       WRITE( 6, 120 ) TRIM(nc_dir)\n    ENDIF\n\n    !----------------------------------------\n    ! VARIABLE: T\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"T\"\n\n    ! Read T from file\n    st3d   = (/  1,  1,  1 /)\n    ct3d   = (/ 51, 18, 12 /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, trim(v_name), vid  )\n    iret = PIO_GET_VAR( ncid, vid, st3d, ct3d, TREF )\n#else\n    CALL NcRd( TREF, fId, TRIM(v_name), st3d, ct3d )\n\n    ! Read the T:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n\n    ! Echo info to stdout\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n#endif\n\n    !----------------------------------------\n    ! VARIABLE: O3\n    !----------------------------------------\n\n    ! Variable name\n    v_name = \"O3\"\n\n    ! Read O3 from file\n    st3d   = (/  1,  1,  1 /)\n    ct3d   = (/ 51, 18, 12 /)\n#if defined( MODEL_CESM )\n    iret = PIO_INQ_VARID( ncid, trim(v_name), vid  )\n    iret = PIO_GET_VAR( ncid, vid, st3d, ct3d, OREF )\n#else\n    CALL NcRd( OREF, fId, TRIM(v_name), st3d, ct3d )\n\n    ! Read the O3:units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fId,TRIM(v_name),TRIM(a_name),a_val )\n\n    ! Echo info to stdout\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 130 ) TRIM(v_name), TRIM(a_val)\n    ENDIF\n#endif\n\n    !=================================================================\n    ! Cleanup and quit\n    !=================================================================\n\n    ! Close netCDF file\n#if defined( MODEL_CESM )\n    CALL PIO_CLOSEFILE( ncid )\n#else\n    CALL NcCl( fId )\n#endif\n\n    ! Echo info to stdout\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 140 )\n       WRITE( 6, 100 ) REPEAT( '%', 79 )\n    ENDIF\n\n    ! Free pointers\n    OREF => NULL()\n    TREF => NULL()\n\n    ! FORMAT statements\n100 FORMAT( a                                              )\n110 FORMAT( '%% Opening file  : ',         a               )\n120 FORMAT( '%%  in directory : ',         a, / , '%%'     )\n130 FORMAT( '%% Successfully read ',       a, ' [', a, ']' )\n140 FORMAT( '%% Successfully closed file!'                 )\n\n  END SUBROUTINE RD_PROF_NC\n!EOC\n\nEND MODULE PHOTOLYSIS_MOD\n"
  },
  {
    "path": "GeosCore/pjc_pfix_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: pjc_pfix_mod.F90\n!\n! !DESCRIPTION: Module Pjc\\_Pfix\\_Mod contains routines which implements the\n!  Philip Cameron-Smith pressure fixer for the new fvDAS transport\n!  scheme. (bdf, bmy, 5/8/03, 10/27/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE PJC_PFIX_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Do_Pjc_Pfix\n  PUBLIC  :: Cleanup_Pjc_Pfix\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Calc_Pressure\n  PRIVATE :: Calc_Advection_Factors\n  PRIVATE :: Adjust_Press\n  PRIVATE :: Init_Press_Fix\n  PRIVATE :: Do_Press_Fix_LLNL\n  PRIVATE :: Average_Press_Poles\n  PRIVATE :: Convert_Winds\n  PRIVATE :: Calc_Horiz_Mass_Flux\n  PRIVATE :: Calc_Divergence\n  PRIVATE :: Set_Press_Terms\n  PRIVATE :: Do_Divergence_Pole_Sum\n  PRIVATE :: Xpavg\n  PRIVATE :: Init_Pjc_Pfix\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!  Brendan Field and Bob Yantosca (5/8/03)\n!  Modified for new GMI TPCORE by Claire Carouge (ccarouge@seas.harvard.edu)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE DATA MEMBERS:\n!\n  ! Allocatable arrays\n  REAL(fp), ALLOCATABLE :: AI(:)\n  REAL(fp), ALLOCATABLE :: BI(:)\n  REAL(fp), ALLOCATABLE :: CLAT_FV(:)\n  REAL(fp), ALLOCATABLE :: COSE_FV(:)\n  REAL(fp), ALLOCATABLE :: COSP_FV(:)\n  REAL(fp), ALLOCATABLE :: DAP(:)\n  REAL(fp), ALLOCATABLE :: DBK(:)\n  REAL(fp), ALLOCATABLE :: DLAT_FV(:)\n  REAL(fp), ALLOCATABLE :: ELAT_FV(:)\n  REAL(fp), ALLOCATABLE :: GEOFAC(:)\n  REAL(fp), ALLOCATABLE :: GW_FV(:)\n  REAL(fp), ALLOCATABLE :: MCOR(:,:)\n  REAL(fp), ALLOCATABLE :: REL_AREA(:,:)\n  REAL(fp), ALLOCATABLE :: RGW_FV(:)\n  REAL(fp), ALLOCATABLE :: SINE_FV(:)\n\n  ! Scalar variables\n  LOGICAL             :: PR_DIAG\n  INTEGER             :: LOC_PROC\n  REAL(fp)            :: GEOFAC_PC\n  REAL(fp)            :: DLON_FV\n\n  ! Dimensions for GMI code (from \"imp_dims\")\n  INTEGER             :: IMP_NBORDER\n  INTEGER             :: I1_GL,  I2_GL,   JU1_GL,  JV1_GL\n  INTEGER             :: J2_GL,  K1_GL,   K2_GL,   ILO_GL\n  INTEGER             :: IHI_GL, JULO_GL, JVLO_GL, JHI_GL\n  INTEGER             :: I1,     I2,      JU1,     JV1\n  INTEGER             :: J2,     K1,      K2,      ILO\n  INTEGER             :: IHI,    JULO,    JVLO,    JHI\n  INTEGER             :: ILAT,   ILONG,   IVERT,   J1P\n  INTEGER             :: J2P\n\n  !=================================================================\n  ! MODULE ROUTINES -- follow below the \"CONTAINS\" statement\n  !=================================================================\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Pjc_Pfix\n!\n! !DESCRIPTION: Subroutine Do\\_Pjc\\_Pfix is the driver routine for the Philip\n!  Cameron-Smith pressure fixer for the fvDAS transport scheme.\n!  (bdf, bmy, 5/8/03, 3/5/07)\n!\\\\\n!\\\\\n!  We assume that the winds are on the A-GRID, since this is the input that\n!  the fvDAS transport scheme takes. (bdf, bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Pjc_Pfix( State_Grid, D_DYN, P1, P2, UWND, VWND, XMASS, YMASS )\n!\n! !USES:\n!\n    USE PhysConstants   ! Physical constants\n    Use State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    REAL(fp),       INTENT(IN)  :: D_DYN       ! Dynamic timestep [s]\n    REAL(fp),       INTENT(IN)  :: P1(:,:)     ! True PSurface at middle of\n                                               ! dynamic timestep [hPa]\n    REAL(fp),       INTENT(IN)  :: P2(:,:)     ! True PSurface at end of\n                                               ! dynamic timestep [hPa]\n    REAL(fp),       INTENT(IN)  :: UWND(State_Grid%NX, & ! Zonal wind [m/s]\n                                        State_Grid%NY, &\n                                        State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: VWND(State_Grid%NX, & ! Meridional wind [m/s]\n                                        State_Grid%NY, &\n                                        State_Grid%NZ)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: XMASS(State_Grid%NX, & ! E-W mass fluxes\n                                         State_Grid%NY, & !  [mixing ratio]\n                                         State_Grid%NZ)\n\n    REAL(fp),       INTENT(OUT) :: YMASS(State_Grid%NX, & ! N-S mass fluxes\n                                         State_Grid%NY, & !  [mixing ratio]\n                                         State_Grid%NZ)\n!\n! !AUTHOR:\n!  Brendan Field and Bob Yantosca (5/8/03)\n!\n! !REMARKS:\n!  (1 ) Now P1 and P2 are \"true\" surface pressures, and not PS-PTOP.  If using\n!        this P-fixer w/ GEOS-3 winds, pass true surface pressure to this\n!        routine. (bmy, 10/27/03)\n!  (2 ) Now define P2_TMP array for passing to ADJUST_PRESS (yxw, bmy, 3/5/07)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE        :: FIRST = .TRUE.\n    INTEGER              :: I, J, K\n    REAL(fp)             :: P2_TMP(State_Grid%NX,State_Grid%NY)\n!\n! !DEFINED PARAMETERS:\n!\n    LOGICAL, PARAMETER   :: INTERP_WINDS     = .TRUE.  ! winds are interp'd\n    INTEGER, PARAMETER   :: MET_GRID_TYPE    = 0       ! A-GRID\n    INTEGER, PARAMETER   :: ADVEC_CONSRV_OPT = 0       ! 2=floating pressure\n    INTEGER, PARAMETER   :: PMET2_OPT        = 1       ! leave at 1\n    INTEGER, PARAMETER   :: PRESS_FIX_OPT    = 1       ! Turn on P-Fixer\n\n    !=================================================================\n    ! DO_PJC_PFIX begins here!\n    !=================================================================\n\n    ! Initialize on first call\n    IF ( FIRST ) THEN\n\n       ! Initialize/allocate module variables\n       CALL INIT_PJC_PFIX( State_Grid )\n\n       ! Calculate advection surface-area factors\n       CALL CALC_ADVECTION_FACTORS( MCOR, REL_AREA, GEOFAC, GEOFAC_PC)\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    ! Copy P2 into P2_TMP (yxw, bmy, 3/5/07)\n    P2_TMP = P2\n\n    ! Call PJC pressure fixer w/ the proper arguments\n    ! NOTE: P1 and P2 are now \"true\" surface pressure, not PS-PTOP!!!\n    CALL ADJUST_PRESS( 'GEOS-CHEM',        INTERP_WINDS,  &\n                       .TRUE.,             MET_GRID_TYPE, &\n                       ADVEC_CONSRV_OPT,   PMET2_OPT,     &\n                       PRESS_FIX_OPT,      D_DYN,         &\n                       GEOFAC_PC,          GEOFAC,        &\n                       COSE_FV,            COSP_FV,       &\n                       REL_AREA,           DAP,           &\n                       DBK,                P1,            &\n                       P2_TMP,             P2_TMP,        &\n                       UWND,               VWND,          &\n                       XMASS,              YMASS )\n\n  END SUBROUTINE Do_Pjc_Pfix\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Pressure\n!\n! !DESCRIPTION: Subroutine Calc\\_Pressure recalculates the new surface\n!  pressure from the adjusted air masses XMASS and YMASS.  This is useful\n!  for debugging purposes. (bdf, bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Pressure( State_Grid, XMASS, YMASS, &\n                            RGW_FV, PS_NOW, PS_AFTER )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : PTOP\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid      ! Grid State object\n    REAL(fp),       INTENT(IN)  :: XMASS(State_Grid%NX, & ! E-W mass flux from\n                                         State_Grid%NY, & !  pressure fixer\n                                         State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: YMASS(State_Grid%NX, & ! N-S mass flux from\n                                         State_Grid%NY, & !  pressure fixer\n                                         State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: PS_NOW(State_Grid%NX, & ! Sfc pressure - PTOP\n                                          State_Grid%NY)   !  at current time\n    REAL(fp),       INTENT(IN)  :: RGW_FV(State_Grid%NY)   ! Latitude factor\n                                                        ! 1/(SINE(J+1) - SIN(J))\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: PS_AFTER(State_Grid%NX,&! Sfc pressure - PTOP\n                                            State_Grid%NY) ! adjusted by P-fixer\n!\n! !AUTHOR:\n!   Brendan Field and Bob Yantosca (5/8/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I, J, L\n    REAL(fp) :: DELP (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp) :: DELP1(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp) :: PE(State_Grid%NX,State_Grid%NZ+1,State_Grid%NY)\n\n    !=================================================================\n    ! CALC_PRESSURE begins here!\n    !=================================================================\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       DELP1(I,J,L) = DAP(L) + ( DBK(L) * PS_NOW(I,J) )\n    ENDDO\n    ENDDO\n    ENDDO\n\n    DO L = 1, State_Grid%NZ\n       DO J = 2, State_Grid%NY-1\n\n          DO I =1, State_Grid%NX-1\n             DELP(I,J,L) = DELP1(I,J,L) + &\n                           XMASS(I,J,L) - XMASS(I+1,J,L) + &\n                         ( YMASS(I,J,L) - YMASS(I,J+1,L) ) * RGW_FV(J)\n          ENDDO\n\n          DELP(State_Grid%NX,J,L) = DELP1(State_Grid%NX,J,L) + &\n                XMASS(State_Grid%NX,J,L) - XMASS(1,J,L) + &\n              ( YMASS(State_Grid%NX,J,L) - YMASS(State_Grid%NX,J+1,L) ) * &\n                RGW_FV(J)\n       ENDDO\n\n       DO I = 1, State_Grid%NX\n          DELP(I,1,L) = DELP1(I,1,L) - YMASS(I,2,L) * RGW_FV(1)\n       ENDDO\n\n       ! Compute average\n       CALL XPAVG( DELP(1,1,L), State_Grid%NX )\n\n       DO I = 1, State_Grid%NX\n          DELP(I,State_Grid%NY,L) = DELP1(I,State_Grid%NY,L) + &\n               YMASS(I,State_Grid%NY,L) * RGW_FV(State_Grid%NY)\n       ENDDO\n\n       ! Compute average\n       CALL XPAVG( DELP(1,State_Grid%NY,L), State_Grid%NX )\n    ENDDO\n\n    !=================================================================\n    ! Make the pressure\n    !=================================================================\n    DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          PE(I,1,J) = PTOP\n       ENDDO\n\n       DO L = 1,State_Grid%NZ\n          DO I = 1,State_Grid%NX\n             PE(I,L+1,J) = PE(I,L,J) + DELP(I,J,L)\n          ENDDO\n       ENDDO\n\n       DO I = 1,State_Grid%NX\n          PS_AFTER(I,J) = PE(I,State_Grid%NZ+1,J)\n       ENDDO\n    ENDDO\n\n  END SUBROUTINE Calc_Pressure\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Advection_Factors\n!\n! !DESCRIPTION: Subroutine Calc\\_Advection\\_Factors calculates the relative\n!   area of each grid box, and the geometrical factors used by this modified\n!   version of TPCORE.  These geomoetrical DO assume that the space is\n!   regularly gridded, but do not assume any link between the surface area\n!   and the linear dimensions.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Advection_Factors(mcor, rel_area, geofac, geofac_pc)\n!\n! !USES:\n!\n    USE PhysConstants  ! Physical constants\n!\n! !INPUT PARAMETERS:\n!\n    ! Area of grid box (m^2)\n    REAL(fp), INTENT(IN)  :: mcor(i1_gl :i2_gl, ju1_gl:j2_gl)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! relative surface area of grid box (fraction)\n    REAL(fp), INTENT(OUT) :: rel_area(i1_gl :i2_gl, ju1_gl:j2_gl)\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp), INTENT(OUT) :: geofac(ju1_gl:j2_gl)\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp), INTENT(OUT) :: geofac_pc\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ij\n    REAL(fp)  :: dp           ! spacing in latitude (rad)\n    REAL(fp)  :: ri2_gl\n    REAL(fp)  :: rj2m1\n    REAL(fp)  :: total_area\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    ri2_gl = i2_gl\n\n    !---------------------------------\n    !Set the relative area (rel_area).\n    !---------------------------------\n\n    total_area = Sum (mcor(:,:))\n\n    rel_area(:,:) = mcor(:,:) / total_area\n\n    !---------------------------------------------------------\n    !Calculate geometrical factor for meridional advection.\n    !Note that it is assumed that all grid boxes in a latitude\n    !band are the same.\n    !---------------------------------------------------------\n\n    rj2m1 = j2_gl - 1\n    dp    = PI / rj2m1\n\n    do ij = ju1_gl, j2_gl\n       geofac(ij) = dp / (2.0e+0_fp * rel_area(1,ij) * ri2_gl)\n    end do\n\n    geofac_pc = dp / (2.0e+0_fp * Sum (rel_area(1,ju1_gl:ju1_gl+1)) * ri2_gl)\n\n  END SUBROUTINE Calc_Advection_Factors\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Adjust_Press\n!\n! !DESCRIPTION: Subroutine Adjust\\_Press initializes and calls the\n!  pressure fixer code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Adjust_Press &\n        (metdata_name_org, do_timinterp_winds, new_met_rec,         &\n         met_grid_type, advec_consrv_opt, pmet2_opt, press_fix_opt, &\n         tdt, geofac_pc, geofac, cose, cosp, rel_area, dap, dbk,    &\n         pctm1, pctm2, pmet2, uu, vv, xmass, ymass)\n!\n! !INPUT PARAMETERS:\n!\n    ! First  part of metdata_name, e.g., \"NCAR\"\n    CHARACTER(LEN=*) :: metdata_name_org\n\n    ! Time interpolate wind fields?\n    LOGICAL :: do_timinterp_winds\n\n    ! New met record?\n    LOGICAL :: new_met_rec\n\n    ! Met grid type, A or C\n    INTEGER :: met_grid_type\n\n    ! Advection_conserve option\n    INTEGER :: advec_consrv_opt\n\n    ! pmet2 option\n    INTEGER :: pmet2_opt\n\n    ! pressure fixer option\n    INTEGER :: press_fix_opt\n\n    ! Model time step [s]\n    REAL(fp)  :: tdt\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp)  :: geofac_pc\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp)  :: geofac  (ju1_gl:j2_gl)\n\n    ! Cosines of grid box edges and centers\n    REAL(fp)  :: cose    (ju1_gl:j2_gl)\n    REAL(fp)  :: cosp    (ju1_gl:j2_gl)\n\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp)  :: dap     (k1:k2)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp)  :: dbk     (k1:k2)\n\n    ! Relative surface area of grid box (fraction)\n    REAL(fp)  :: rel_area( i1_gl:i2_gl,   ju1_gl:j2_gl)\n\n    ! Metfield surface pressure at t1+tdt [hPa]\n    REAL(fp)  :: pmet2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1 [hPa]\n    REAL(fp)  :: pctm1(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1+tdt [hPa]\n    REAL(fp)  :: pctm2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! Wind velocity, x direction at t1+tdt/2 [m/s]\n    REAL(fp)  :: uu(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Wind velocity, y direction at t1+tdt/2 [m/s]\n    REAL(fp)  :: vv(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Horizontal mass flux in E-W direction [hPa]\n    REAL(fp)  :: xmass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Horizontal mass flux in N-S direction [hPa]\n    REAL(fp)  :: ymass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    logical, save :: DO_ADJUST_PRESS_DIAG = .TRUE.\n\n    !----------------------\n    !Variable declarations.\n    !----------------------\n\n    logical, save :: first = .true.\n\n    !--------------------------------------------------\n    !dgpress   : global-pressure discrepancy\n    !press_dev : RMS difference between pmet2 and pctm2\n    !            (weighted by relative area)\n    !--------------------------------------------------\n    real(fp)  :: dgpress\n    real(fp)  :: press_dev\n\n    !-------------------------------------------------------------\n    !dps : change of surface pressure from met field pressure [hPa]\n    !-------------------------------------------------------------\n    real(fp)  :: dps(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    !--------------------------------------------\n    !dps_ctm : CTM surface pressure tendency [hPa]\n    !--------------------------------------------\n    real(fp) :: dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    !---------------------------------------------------------------------\n    !xmass_fixed : horizontal mass flux in E-W direction after fixing [hPa]\n    !ymass_fixed : horizontal mass flux in N-S direction after fixing [hPa]\n    !---------------------------------------------------------------------\n    real(fp)  :: xmass_fixed(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1:k2)\n    real(fp)  :: ymass_fixed(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1:k2)\n\n    !-------------\n    !Dummy indexes\n    !-------------\n    !integer :: ij, il\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6, *) 'Adjust_Press called by ', loc_proc\n    end if\n\n    dps_ctm(:,:) = 0.0e+0_fp\n\n    dgpress =  Sum ( (pmet2(i1_gl:i2_gl, ju1_gl:j2_gl) - &\n                      pctm1(i1_gl:i2_gl, ju1_gl:j2_gl)   ) &\n                 * rel_area(i1_gl:i2_gl, ju1_gl:j2_gl)     )\n\n    if (pmet2_opt == 1) then\n       pmet2(:,:) = pmet2(:,:) - dgpress\n    end if\n\n    !### Debug\n    !###if (DO_ADJUST_PRESS_DIAG) then\n    !###  Write (6, *) 'Global mean surface pressure change [hPa] = ',\n    !###                dgpress\n    !###end if\n\n    !===================\n    call Init_Press_Fix &\n    !===================\n         (metdata_name_org, met_grid_type, tdt, geofac_pc, geofac, &\n         cose, cosp, dap, dbk, dps, dps_ctm, rel_area, pctm1, pmet2, &\n         uu, vv, xmass, ymass)\n\n    if (press_fix_opt == 1) then\n\n       !======================\n       call Do_Press_Fix_Llnl &\n       !======================\n            (geofac_pc, geofac, dbk, dps, dps_ctm, rel_area, &\n            xmass, ymass, xmass_fixed, ymass_fixed )\n\n       xmass(:,:,:) = xmass_fixed(:,:,:)\n       ymass(:,:,:) = ymass_fixed(:,:,:)\n\n    end if\n\n    if ((advec_consrv_opt == 0) .or. &\n        (advec_consrv_opt == 1)) then\n\n       dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl) = &\n            pmet2(i1_gl:i2_gl, ju1_gl:j2_gl) - &\n            pctm1(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n       !-----------------------------------------------\n       !else if (advec_consrv_opt == 2) then do nothing\n       !-----------------------------------------------\n\n    end if\n\n    pctm2(i1_gl:i2_gl, ju1_gl:j2_gl) = &\n         pctm1(i1_gl:i2_gl, ju1_gl:j2_gl) + &\n         dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    if (DO_ADJUST_PRESS_DIAG) then\n\n       !-------------------------------------------------------\n       !Calculate the RMS pressure deviation (diagnostic only).\n       !-------------------------------------------------------\n\n       press_dev = &\n            Sqrt (Sum (((pmet2(i1_gl:i2_gl,ju1_gl:j2_gl) - &\n                         pctm2(i1_gl:i2_gl,ju1_gl:j2_gl))**2 * &\n                      rel_area(i1_gl:i2_gl,ju1_gl:j2_gl))))\n\n       !### Debug\n       !###Write (6, *) 'RMS deviation between pmet2 & pctm2 [hPa] = ',\n       !###             press_dev\n\n    end if\n\n  END SUBROUTINE Adjust_Press\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Press_Fix\n!\n! !DESCRIPTION: Subroutine Init\\_Press\\_Fix initializes the pressure fixer.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Press_Fix &\n       (metdata_name_org, met_grid_type, tdt, geofac_pc, geofac, &\n       cose, cosp, dap, dbk, dps, dps_ctm, rel_area, pctm1, pmet2, &\n       uu, vv, xmass, ymass)\n!\n! !INPUT PARAMETERS:\n!\n    ! First part of metdata_name, e.g., \"NCAR\"\n    CHARACTER(LEN=*) :: metdata_name_org\n\n    ! Met grid type, A or C\n    INTEGER          :: met_grid_type\n\n    ! Model Time step [s]\n    REAL(fp) :: tdt\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp)         :: geofac_pc\n\n    ! Cosine of grid box edges and centers\n    REAL(fp)         :: cose(ju1_gl:j2_gl)\n    REAL(fp)         :: cosp(ju1_gl:j2_gl)\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp)         :: geofac(ju1_gl:j2_gl)\n\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp)         :: dap(k1:k2)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp)         :: dbk(k1:k2)\n\n    ! relative surface area of grid box (fraction)\n    REAL(fp)         :: rel_area( i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    ! Metfield surface pressure at t1 [hPa]\n    REAL(fp)         :: pmet2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1 [hPa]\n    REAL(fp)         :: pctm1(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1+tdt [hPa]\n    REAL(fp)         :: pctm2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! Wind velocity, x direction at t1+tdt/2 [m/s]\n    REAL(fp)         :: uu(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Wind velocity, y direction at t1+tdt/2 [m/s]\n    REAL(fp)         :: vv(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Horizontal mass flux in E-W direction [hPa]\n    REAL(fp)  :: xmass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Horizontal mass flux in N-S direction [hPa]\n    REAL(fp)  :: ymass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Change of surface pressure from met field pressure [hPa]\n    REAL(fp)  :: dps(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    ! CTM surface pressure tendency [hPa]\n    REAL(fp)  :: dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !--------------------------------------------------------------\n    !dpi   : divergence at a grid point; used to calculate vertical\n    !        motion [hPa]\n    !--------------------------------------------------------------\n    real(fp)  :: dpi(i1:i2, ju1:j2, k1:k2)\n\n    !---------------------------------------------------------------------\n    !crx   : Courant number in E-W direction\n    !cry   : Courant number in N-S direction\n    !delp1 : pressure thickness, the psudo-density in a hydrostatic system\n    !        at t1 [hPa]\n    !delpm : pressure thickness, the psudo-density in a hydrostatic system\n    !        at t1+tdt/2 (approximate) [hPa]\n    !pu    : pressure at edges in \"u\"  [hPa]\n    !---------------------------------------------------------------------\n    real(fp)  :: crx  (ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: cry  (ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: delp1(ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: delpm(ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: pu   (ilo:ihi, julo:jhi, k1:k2)\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Init_Press_Fix called by ', loc_proc\n    end if\n\n    !========================\n    call Average_Press_Poles &\n    !========================\n         (rel_area, pctm1)\n\n    !========================\n    call Average_Press_Poles &\n    !========================\n         (rel_area, pmet2)\n\n    !-------------------------------------------------------------------\n    !We need to calculate pressures at t1+tdt/2.  One ought to use pctm2\n    !in the call to Set_Press_Terms, but since we don't know it yet, we\n    !are forced to use pmet2.  This should be good enough because it is\n    !only used to convert the winds to the mass fluxes, which is done\n    !crudely anyway and the mass fluxes will still get fixed OK.\n    !-------------------------------------------------------------------\n\n    dps(i1:i2,ju1:j2) = pmet2(i1:i2,ju1:j2) - pctm1(i1:i2,ju1:j2)\n\n    !====================\n    call Set_Press_Terms &\n    !====================\n         (dap, dbk, pctm1, pmet2, delp1, delpm, pu)\n\n    !===================\n    call Convert_Winds &\n    !===================\n         (met_grid_type, tdt, cosp, crx, cry, uu, vv)\n\n    !=========================\n    call Calc_Horiz_Mass_Flux &\n    !=========================\n         (cose, delpm, uu, vv, xmass, ymass, tdt, cosp)\n\n    !====================\n    call Calc_Divergence &\n    !====================\n         (.false., geofac_pc, geofac, dpi, xmass, ymass)\n\n    dps_ctm(i1:i2,ju1:j2) = Sum (dpi(i1:i2,ju1:j2,:), dim=3)\n\n  END SUBROUTINE Init_Press_Fix\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Press_Fix_Llnl\n!\n! !DESCRIPTION: Subroutine Do\\_Press\\_Fix\\_Llnl fixes the mass fluxes to\n!  match the met field pressure tendency.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Press_Fix_Llnl &\n       (geofac_pc, geofac, dbk, dps, dps_ctm, rel_area, &\n       xmass, ymass, xmass_fixed, ymass_fixed)\n!\n! !INPUT PARAMETERS:\n!\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp), INTENT(IN)   :: geofac_pc\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    !  meridional geometrical factor in tpcore\n    REAL(fp), INTENT(IN)   :: geofac(ju1_gl:j2_gl)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp), INTENT(IN)   :: dbk(k1:k2)\n\n    ! Change of surface pressure from met field pressure [hPa]\n    REAL(fp), INTENT(IN)   :: dps(i1:i2, ju1:j2)\n\n    ! Relative surface area of grid box (fraction)\n    REAL(fp), INTENT(IN)   :: rel_area(i1:i2, ju1:j2)\n\n    ! Horizontal mass fluxes in E-W and N-S directions [hPa]\n    REAL(fp), INTENT(IN)   :: xmass(ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(IN)   :: ymass(ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Sum over vertical of dpi calculated from original mass fluxes [hPa]\n    REAL(fp),  INTENT(OUT) :: dps_ctm(i1:i2, ju1:j2)\n\n    ! Horizontal mass flux in E-W and N-S directions after fixing [hPa]\n    REAL(fp),  INTENT(OUT) :: xmass_fixed(ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp),  INTENT(OUT) :: ymass_fixed(ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij, ik\n\n    REAL(fp)  :: dgpress\n    REAL(fp)  :: fxmean\n    REAL(fp)  :: ri2\n\n    ! Arrays\n    REAL(fp)  :: fxintegral(i1:i2+1)\n    REAL(fp)  :: mmfd(ju1:j2)\n    REAL(fp)  :: mmf (ju1:j2)\n    REAL(fp)  :: ddps(i1:i2, ju1:j2)\n\n    !------------------------------------------------------------------------\n    !dpi: divergence at a grid point; used to calculate vertical motion [hPa]\n    !------------------------------------------------------------------------\n    real(fp)  :: dpi(i1:i2, ju1:j2, k1:k2)\n\n    real(fp)  :: xcolmass_fix(ilo:ihi, julo:jhi)\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Do_Press_Fix_Llnl called by ', loc_proc\n    end if\n\n    ri2 = i2_gl\n\n    mmfd(:) = 0.0e+0_fp\n\n    xcolmass_fix(:,:)   = 0.0e+0_fp\n\n    xmass_fixed (:,:,:) = xmass(:,:,:)\n    ymass_fixed (:,:,:) = ymass(:,:,:)\n\n    !------------------------------------------------------------\n    !Calculate difference between GCM and LR predicted pressures.\n    !------------------------------------------------------------\n\n    ddps(:,:) = dps(:,:) - dps_ctm(:,:)\n\n    !--------------------------------------\n    ! Calculate global-pressure discrepancy.\n    !--------------------------------------\n\n    dgpress = Sum (ddps(i1:i2,ju1:j2) * rel_area(i1:i2,ju1:j2))\n\n    !----------------------------------------------------------\n    !Calculate mean meridional flux divergence (df/dy).\n    !Note that mmfd is actually the zonal mean pressure change,\n    !which is related to df/dy by geometrical factors.\n    !----------------------------------------------------------\n\n    !------------------------\n    !Handle non-Pole regions.\n    !------------------------\n\n    do ij = j1p, j2p\n       mmfd(ij) = -(sum(ddps(:,ij)) / ri2 - dgpress)\n    end do\n\n    !---------------------------------------------\n    !Handle poles.\n    !Note that polar boxes have all been averaged.\n    !---------------------------------------------\n\n    mmfd(ju1)   = -(ddps(1,ju1)   - dgpress)\n    mmfd(ju1+1) = -(ddps(1,ju1+1) - dgpress)\n    mmfd(j2-1)  = -(ddps(1,j2-1)  - dgpress)\n    mmfd(j2)    = -(ddps(1,j2)    - dgpress)\n\n    !---------------------------------------------\n    !Calculate mean meridional fluxes (cos(e)*fy).\n    !---------------------------------------------\n\n    mmf(j1p) = mmfd(ju1) / geofac_pc\n\n    do ij = j1p, j2p\n       mmf(ij+1) = mmf(ij) + mmfd(ij) / geofac(ij)\n    end do\n\n    !------------------------------------------------------------\n    !Fix latitude bands.\n    !Note that we don't need to worry about geometry here because\n    !all boxes in a latitude band are identical.\n    !Note also that fxintegral(i2+1) should equal fxintegral(i1),\n    !i.e., zero.\n    !------------------------------------------------------------\n    do ij = j1p, j2p\n\n       fxintegral(:) = 0.0e+0_fp\n\n       do il = i1, i2\n          fxintegral(il+1) = fxintegral(il) - &\n                             (ddps(il,ij) - dgpress) - mmfd(ij)\n       end do\n\n       fxmean = Sum (fxintegral(i1+1:i2+1)) / ri2\n\n       do il = i1, i2\n          xcolmass_fix(il,ij) = fxintegral(il) - fxmean\n       end do\n\n    end do\n\n    !-------------------------------------\n    !Distribute colmass_fix's in vertical.\n    !-------------------------------------\n\n    do ik = k1, k2\n    do ij = j1p, j2p\n    do il = i1, i2\n\n       xmass_fixed(il,ij,ik) = xmass(il,ij,ik) + xcolmass_fix(il,ij) * dbk(ik)\n\n    end do\n    end do\n    end do\n\n    do ik = k1, k2\n    do ij = j1p, j2p+1\n    do il = i1, i2\n\n       ymass_fixed(il,ij,ik) = ymass(il,ij,ik) + mmf(ij) * dbk(ik)\n\n    end do\n    end do\n    end do\n\n    !====================\n    call Calc_Divergence &\n    !====================\n         (.false., geofac_pc, geofac, dpi, xmass_fixed, ymass_fixed)\n\n\n    dps_ctm(i1:i2,ju1:j2) = Sum (dpi(i1:i2,ju1:j2,:), dim=3)\n\n  END SUBROUTINE Do_Press_Fix_Llnl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Average_Press_Poles\n!\n! !DESCRIPTION: Subroutine Average\\_Press\\_Poles averages pressure at the\n!  Poles when the Polar cap is enlarged.  It makes the last two latitudes\n!  equal.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Average_Press_Poles(rel_area, press)\n!\n! !INPUT PARAMETERS:\n!\n    ! Relative surface area of grid box (fraction)\n    REAL(fp), INTENT(IN)    :: rel_area(i1:i2, ju1:j2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Surface pressure [hPa]\n    REAL(fp), INTENT(INOUT) :: press   (ilo:ihi, julo:jhi)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)  :: meanp\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Average_Press_Poles called by ', loc_proc\n    end if\n\n    meanp = Sum (rel_area(i1:i2,ju1:ju1+1) * press(i1:i2,ju1:ju1+1)) / &\n            Sum (rel_area(i1:i2,ju1:ju1+1))\n\n    press(i1:i2,ju1:ju1+1) = meanp\n\n    meanp = Sum (rel_area(i1:i2,j2-1:j2) * press(i1:i2,j2-1:j2)) / &\n            Sum (rel_area(i1:i2,j2-1:j2))\n\n    press(i1:i2,j2-1:j2) = meanp\n\n  END SUBROUTINE Average_Press_Poles\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Convert_Winds\n!\n! !DESCRIPTION: Subroutine Convert\\_Winds converts winds on A or C grid to\n!  Courant \\# on C grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Convert_Winds(igd, tdt, cosp, crx, cry, uu, vv)\n!\n! !USES:\n!\n    USE PhysConstants ! Re, PI\n!\n! !INPUT PARAMETERS:\n!\n    ! A or C grid\n    INTEGER, INTENT(IN)  :: igd\n\n    ! Model time step [s]\n    REAL(fp),  INTENT(IN)  :: tdt\n\n    ! Cosine of grid box centers\n    REAL(fp),  INTENT(IN)  :: cosp(ju1_gl:j2_gl)\n\n    ! Wind velocity in E-W (UU) and N-S (VV) directions at t1+tdt/2 [m/s]\n    REAL(fp),  INTENT(IN)  :: uu  (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp),  INTENT(IN)  :: vv  (ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Courant number in E-W (CRX) and N-S (CRY) directions\n    REAL(fp),  INTENT(OUT) :: crx (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp),  INTENT(OUT) :: cry (ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REMARKS:\n!  Use GEOS-CHEM physical constants Re, PI to be consistent with other\n!  usage everywhere (bmy, 5/5/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    logical, save :: first = .true.\n\n    integer :: il, ij\n\n    !-------------------------------\n    !dl : spacing in longitude (rad)\n    !dp : spacing in latitude  (rad)\n    !-------------------------------\n    real(fp)  :: dl\n    real(fp)  :: dp\n\n    real(fp)  :: ri2\n    real(fp)  :: rj2m1\n\n    !------------------------\n    !dtdy  : dt/dy      (s/m)\n    !dtdy5 : 0.5 * dtdy (s/m)\n    !------------------------\n    real(fp), save :: dtdy\n    real(fp), save :: dtdy5\n\n    !------------------------\n    !dtdx  : dt/dx      (s/m)\n    !dtdx5 : 0.5 * dtdx (s/m)\n    !------------------------\n    real(fp), allocatable, save :: dtdx (:)\n    real(fp), allocatable, save :: dtdx5(:)\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6, *) 'Convert_Winds called by ', loc_proc\n    end if\n\n    !==========\n    if (first) then\n    !==========\n\n       first = .false.\n\n       Allocate (dtdx (ju1_gl:j2_gl))\n       Allocate (dtdx5(ju1_gl:j2_gl))\n       dtdx = 0.0e+0_fp; dtdx5 = 0.0e+0_fp\n\n       ri2   = i2_gl\n       rj2m1 = j2_gl - 1\n\n       dl    = 2.0e+0_fp * PI / ri2\n       dp    = PI / rj2m1\n\n       dtdy  = tdt / (Re * dp)\n       dtdy5 = 0.5e+0_fp * dtdy\n\n\n       dtdx (ju1_gl) = 0.0e+0_fp\n       dtdx5(ju1_gl) = 0.0e+0_fp\n\n       do ij = ju1_gl + 1, j2_gl - 1\n\n          dtdx (ij) = tdt / (dl * Re * cosp(ij))\n          dtdx5(ij) = 0.5e+0_fp * dtdx(ij)\n\n       end do\n\n       dtdx (j2_gl)  = 0.0e+0_fp\n       dtdx5(j2_gl)  = 0.0e+0_fp\n\n    end if\n\n    !=============\n    if (igd == 0) then  ! A grid.\n    !=============\n\n       do ij = ju1+1, j2-1\n          do il = i1+1, i2\n             crx(il,ij,:) = dtdx5(ij) * &\n                            (uu(il,ij,:) + uu(il-1,ij,  :))\n          end do\n          crx(1,ij,:) = dtdx5(ij) * &\n                        (uu(1,ij,:) + uu(i2,ij,  :))\n       end do\n\n       do ij = ju1+1, j2\n          do il = i1, i2\n             cry(il,ij,:) = dtdy5 * (vv(il,ij,:) + vv(il,  ij-1,:))\n          end do\n       end do\n\n    !====\n    else  ! C grid.\n    !====\n\n       do ij = ju1, j2\n          do il = i1, i2\n\n             crx(il,ij,:) = dtdx(ij) * uu(il-1,ij,  :)\n\n             cry(il,ij,:) = dtdy     * vv(il,  ij-1,:)\n\n          end do\n       end do\n\n    end if\n\n  END SUBROUTINE Convert_Winds\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Horiz_Mass_Flux\n!\n! !DESCRIPTION: Subroutine Calc\\_Horiz\\_Mass\\_Flux calculates the horizontal\n!  mass flux for non-GISS met data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Horiz_Mass_Flux &\n       (cose, delpm, uu, vv, xmass, ymass, tdt, cosp)\n!\n! !USES:\n!\n    USE PhysConstants ! Re, Pi\n!\n! !INPUT PARAMETERS:\n!\n    ! Timestep [s]\n    REAL(fp), INTENT(IN)   :: tdt\n\n    ! Cosine of grid box edges\n    REAL(fp), INTENT(IN)   :: cose (ju1_gl:j2_gl)\n\n    ! Cosine of grid box centers\n    REAL(fp), INTENT(IN)   :: cosp (ju1_gl:j2_gl)\n\n    ! Pressure thickness, the pseudo-density in a\n    ! hdrostatic system  at t1+tdt/2 (approximate) [hPa]\n    REAL(fp), INTENT(IN)   :: delpm(ilo:ihi, julo:jhi, k1:k2)\n\n    ! E-W (UU) and N-S (VV) winds [m/s]\n    REAL(fp), INTENT(IN)   :: uu  (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(IN)   :: vv  (ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Horizontal mass flux in E-W and N-S directions [hPa]\n    REAL(fp), INTENT(OUT)  :: xmass(ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(OUT)  :: ymass(ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REMARKS:\n!   Use GEOS-CHEM physical constants Re, PI to be consistent with other\n!   usage everywhere (bmy, 5/5/03)\n\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: ij\n    INTEGER   :: il\n    INTEGER   :: jst, jend\n    REAL(fp)  :: dl\n    REAL(fp)  :: dp\n\n    REAL(fp)  :: ri2\n    REAL(fp)  :: rj2m1\n    REAL(fp)  :: factx\n    REAL(fp)  :: facty\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Calc_Horiz_Mass_Flux called by ', loc_proc\n    end if\n\n    ri2   = i2_gl\n    rj2m1 = j2_gl - 1\n\n    dl    = 2.0e+0_fp * PI / ri2\n    dp    = PI / rj2m1\n\n    facty  = 0.5e+0_fp * tdt / (Re * dp)\n\n    !-----------------------------------\n    !Calculate E-W horizontal mass flux.\n    !-----------------------------------\n\n    do ij = ju1, j2\n\n       factx = 0.5e+0_fp * tdt / (dl * Re * cosp(ij))\n\n       do il = i1+1, i2\n          xmass(il,ij,:) = factx * &\n                           (uu(il  ,ij,:) * delpm(il  ,ij,:) + &\n                            uu(il-1,ij,:) * delpm(il-1,ij,:))\n       end do\n\n       xmass(i1,ij,:) = factx * &\n                        (uu(i1,ij,:) * delpm(i1,ij,:) + &\n                         uu(i2,ij,:) * delpm(i2,ij,:))\n\n    end do\n\n    !-----------------------------------\n    !Calculate N-S horizontal mass flux.\n    !-----------------------------------\n\n    do ij = ju1+1, j2\n\n       ymass(i1:i2,ij,:) = facty * &\n            cose(ij) * (vv(i1:i2,ij,:)*delpm(i1:i2,ij,:) + &\n            vv(i1:i2,ij-1,:)*delpm(i1:i2,ij-1,:))\n\n    end do\n\n    ymass(i1:i2,ju1,:) = facty * &\n         cose(ju1) * (vv(i1:i2,ju1,:)*delpm(i1:i2,ju1,:))\n\n  END SUBROUTINE Calc_Horiz_Mass_Flux\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Divergence\n!\n! !DESCRIPTION: Subroutine Calc\\_Divergence calculates the divergence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Divergence &\n       (do_reduction, geofac_pc, geofac, dpi, xmass, ymass)\n!\n! !INPUT PARAMETERS:\n!\n    ! Set to T if called on root core or F if called by secondary cores\n    ! (NOTE: this doesn't seem to be used!)\n    LOGICAL, INTENT(IN)    :: do_reduction\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp),  INTENT(IN)    :: geofac_pc\n\n    ! geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp),  INTENT(IN)    :: geofac(ju1_gl:j2_gl)\n\n    ! horizontal mass fluxes in E-W and N-S directions [hPa]\n    REAL(fp),  INTENT(IN)    :: xmass (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp),  INTENT(IN)    :: ymass (ilo:ihi, julo:jhi, k1:k2)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Divergence at a grid point; used to calculate vertical motion [hPa]\n    REAL(fp),  INTENT(INOUT) :: dpi   (i1:i2, ju1:j2, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!   02 Dec 2008 - R. Yantosca - Updated documentation and added ProTeX headers.\n!                               Declare all REAL variables as REAL(fp).\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: il, ij\n    integer :: jst, jend\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Calc_Divergence called by ', loc_proc\n    end if\n\n    !-------------------------\n    !Calculate N-S divergence.\n    !-------------------------\n\n    do ij = j1p, j2p\n\n       dpi(i1:i2,ij,:) = (ymass(i1:i2,ij,:) - ymass(i1:i2,ij+1,:)) * geofac(ij)\n\n    end do\n\n    !-------------------------\n    !Calculate E-W divergence.\n    !-------------------------\n\n    do ij = j1p,j2p\n       do il = i1, i2-1\n          dpi(il,ij,:) = dpi(il,ij,:) + xmass(il,ij,:) - xmass(il+1,ij,:)\n       end do\n       dpi(i2,ij,:) = dpi(i2,ij,:) + xmass(i2,ij,:) - xmass(1,ij,:)\n    end do\n\n    !===========================\n    call Do_Divergence_Pole_Sum &\n    !===========================\n         (do_reduction, geofac_pc, dpi, ymass)\n\n    ! Added this IF statemetn (ccarouge, 12/3/08)\n    if (j1p /= ju1_gl+1) then\n\n       !--------------------------------------------\n       !Polar cap enlarged:  copy dpi to polar ring.\n       !--------------------------------------------\n\n       if (ju1 == ju1_gl) then\n\n          dpi(:,ju1+1,:) = dpi(:,ju1,:)\n\n       end if\n\n       if (j2 == j2_gl) then\n\n          dpi(:,j2-1,:)  = dpi(:,j2,:)\n\n       end if\n\n    end if\n\n  END SUBROUTINE Calc_Divergence\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Press_Terms\n!\n! !DESCRIPTION: Subroutine Set\\_Press\\_Terms sets the pressure terms.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Press_Terms &\n       (dap, dbk, pres1, pres2, delp1, delpm, pu)\n!\n! !INPUT PARAMETERS:\n!\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp), INTENT(IN)  :: dap  (k1:k2)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp), INTENT(IN)  :: dbk  (k1:k2)\n\n    ! Surface pressure at t1 [hPa]\n    REAL(fp), INTENT(IN)  :: pres1(ilo:ihi, julo:jhi)\n\n    ! Surface pressure at t1+tdt [hPa]\n    REAL(fp), INTENT(IN)  :: pres2(ilo:ihi, julo:jhi)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Pressure thickness, the psudo-density in a\n    ! hydrostatic system at t1 [hPa]\n    REAL(fp), INTENT(OUT) :: delp1(ilo:ihi, julo:jhi, k1:k2)\n\n    ! Pressure thickness, the psudo-density in a\n    ! hydrostatic system at t1+tdt/2 (approximate)  [hPa]\n    REAL(fp), INTENT(OUT) :: delpm(ilo:ihi, julo:jhi, k1:k2)\n\n    ! Pressure at edges in \"u\" [hPa]\n    REAL(fp), INTENT(OUT) :: pu   (ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: il, ij, ik\n    integer :: jst, jend\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Set_Press_Terms called by ', loc_proc\n    end if\n\n    do ik = k1, k2\n\n       delp1(:,:,ik) = dap(ik) + (dbk(ik) * pres1(:,:))\n\n       delpm(:,:,ik) = dap(ik) + &\n            (dbk(ik) * 0.5e+0_fp * (pres1(:,:) + pres2(:,:)))\n\n    end do\n\n    do ij = ju1, j2\n       do il = i1+1, i2\n          pu(il,ij,:) = 0.5e+0_fp * (delpm(il,ij,:) + delpm(il-1,ij,:))\n       end do\n\n       pu(i1,ij,:) = 0.5e+0_fp * (delpm(i1,ij,:) + delpm(i2,ij,:))\n\n    end do\n\n  END SUBROUTINE Set_Press_Terms\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Divergence_Pole_Sum\n!\n! !DESCRIPTION: Do\\_Divergence\\_Pole\\_Sum sets the divergence at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Divergence_Pole_Sum(do_reduction, geofac_pc, dpi, ymass)\n!\n! !INPUT PARAMETERS:\n!\n    ! Set to T if called on root core or F if called by secondary cores\n    ! (NOTE: This does not seem to be used!)\n    LOGICAL :: do_reduction\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp)  :: geofac_pc\n\n    ! horizontal mass flux in N-S direction [hPa]\n    REAL(fp)  :: ymass(ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Divergence at a grid point; used to calculate vertical motion [hPa]\n    REAL(fp)  :: dpi  ( i1:i2,   ju1:j2,  k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !----------------------\n    !Variable declarations.\n    !----------------------\n\n    integer :: il, ik\n\n    real(fp)  :: ri2\n\n    real(fp)  :: mean_np(k1:k2)\n    real(fp)  :: mean_sp(k1:k2)\n    real(fp)  :: sumnp  (k1:k2)\n    real(fp)  :: sumsp  (k1:k2)\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    ri2 = i2_gl\n\n    !==================\n    if (ju1 == ju1_gl) then\n    !==================\n\n       do ik = k1, k2\n\n          sumsp(ik) = 0.0e+0_fp\n\n          do il = i1, i2\n\n             sumsp(ik) = sumsp(ik) + ymass(il,j1p,ik)\n\n          end do\n\n       end do\n\n       do ik = k1, k2\n\n          mean_sp(ik) = -sumsp(ik) / ri2 * geofac_pc\n\n          do il = i1, i2\n\n             dpi(il,ju1,ik) = mean_sp(ik)\n\n          end do\n\n       end do\n\n    !======\n    end if\n    !======\n\n    !================\n    if (j2 == j2_gl) then\n    !================\n\n       do ik = k1, k2\n\n          sumnp(ik) = 0.0e+0_fp\n\n          do il = i1, i2\n\n             sumnp(ik) = sumnp(ik) + ymass(il,j2p+1,ik)\n\n          end do\n\n       end do\n\n       do ik = k1, k2\n\n          mean_np(ik) = sumnp(ik) / ri2 * geofac_pc\n\n          do il = i1, i2\n\n             dpi(il,j2,ik) = mean_np(ik)\n\n          end do\n\n       end do\n\n    !======\n    end if\n    !======\n\n  END SUBROUTINE Do_Divergence_Pole_Sum\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xpavg\n!\n! !description: Subroutine Xpavg replaces each element of a vector with\n!  the average of the entire array. (bmy, 5/7/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Xpavg( P, IM )\n!\n! !USES:\n!\n    USE ERROR_MOD, ONLY : ERROR_STOP\n!\n! !INPUT PARAMETERS:\n!\n    ! Dimension of P\n    INTEGER, INTENT(IN)    :: IM\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! 1-D vector to be averaged\n    REAL(fp),  INTENT(INOUT) :: P(IM)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)                 :: AVG\n\n    !=================================================================\n    ! XPAVG begins here!\n    !=================================================================\n\n    ! Error check IM\n    IF ( IM == 0 ) THEN\n       CALL ERROR_STOP( 'Div by zero!', 'XPAVG (\"pjc_pfix_mod.F90\")' )\n    ENDIF\n\n    ! Take avg of entire P array\n    AVG  = SUM( P ) / DBLE( IM )\n\n    ! Store average value in all elements of P\n    P(:) = AVG\n\n  END SUBROUTINE Xpavg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Pjc_Pfix\n!\n! !DESCRIPTION: Subroutine Init\\_Pjc\\_Pfix allocates and initializes module\n!  arrays and variables.  GMI dimension variables will be used for\n!  compatibility with the Phil Cameron-Smith P-fixer. (bdf, bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Pjc_Pfix( State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ALLOC_ERR,   ERROR_STOP\n    USE PRESSURE_MOD,   ONLY : GET_AP,      GET_BP\n    USE PhysConstants        ! Re, PI, etc...\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN ) :: State_Grid  ! Grid State object\n!\n! !AUTHOR:\n!   Brendan Field and Bob Yantosca (5/8/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: AS, I, J, L\n\n    !=================================================================\n    ! INIT_PJC_PFIX begins here!\n    !\n    ! Initialize dimensions for GMI pressure-fixer code\n    !=================================================================\n    IMP_NBORDER = 0\n    I1_GL       = 1\n    I2_GL       = State_Grid%NX\n    JU1_GL      = 1\n    JV1_GL      = 1\n    J2_GL       = State_Grid%NY\n    K1_GL       = 1\n    K2_GL       = State_Grid%NZ\n    ILO_GL      = I1_GL  - IMP_NBORDER\n    IHI_GL      = I2_GL  + IMP_NBORDER\n    JULO_GL     = JU1_GL - IMP_NBORDER\n    JVLO_GL     = JV1_GL - IMP_NBORDER\n    JHI_GL      = J2_GL  + IMP_NBORDER\n    I1          = I1_GL\n    I2          = I2_GL\n    JU1         = JU1_GL\n    JV1         = JV1_GL\n    J2          = J2_GL\n    K1          = K1_GL\n    K2          = K2_GL\n    ILO         = ILO_GL\n    IHI         = IHI_GL\n    JULO        = JULO_GL\n    JVLO        = JVLO_GL\n    JHI         = JHI_GL\n    ILAT        = J2_GL - JU1_GL + 1\n    ILONG       = I2_GL -  I1_GL + 1\n    IVERT       = K2_GL -  K1_GL + 1\n    J1P         = 3\n    J2P         = J2_GL - J1P + 1\n\n    ! Error check longitude\n    IF ( ILONG /= State_Grid%NX ) THEN\n       CALL ERROR_STOP( 'Invalid longitude dimension ILONG!', &\n                        'INIT_PJC_FIX (\"pjc_pfix_mod.F90\")' )\n    ENDIF\n\n    ! Error check latitude\n    IF ( ILAT /= State_Grid%NY ) THEN\n       CALL ERROR_STOP( 'Invalid latitude dimension ILAT!', &\n                        'INIT_PJC_FIX (\"pjc_pfix_mod.F90\")' )\n    ENDIF\n\n    ! Error check altitude\n    IF ( IVERT /= State_Grid%NZ ) THEN\n       CALL ERROR_STOP( 'Invalid altitude dimension IVERT!', &\n                        'INIT_PJC_FIX (\"pjc_pfix_mod.F90\")' )\n    ENDIF\n\n    !=================================================================\n    ! Allocate module arrays (use dimensions from GMI code)\n    !=================================================================\n    ALLOCATE( AI( K1_GL-1:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'AI' )\n\n    ALLOCATE( BI( K1_GL-1:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'BI' )\n\n    ALLOCATE( DAP( K1_GL:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'DAP' )\n\n    ALLOCATE( DBK( K1_GL:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'DBK' )\n\n    ALLOCATE( CLAT_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CLAT_FV' )\n\n    ALLOCATE( COSE_FV( JU1_GL:J2_GL+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'COSE_FV' )\n\n    ALLOCATE( COSP_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'COSP_FV' )\n\n    ALLOCATE( DLAT_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'DLAT_FV' )\n\n    ALLOCATE( ELAT_FV( JU1_GL:J2_GL+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'ELAT_FV' )\n\n    ALLOCATE( GEOFAC( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'GEOFAC' )\n\n    ALLOCATE( GW_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'GW_FV' )\n\n    ALLOCATE( MCOR( I1_GL:I2_GL, JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'MCOR' )\n\n    ALLOCATE( REL_AREA( I1_GL:I2_GL, JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'REL_AREA' )\n\n    ALLOCATE( RGW_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'RGW_FV' )\n\n    ALLOCATE( SINE_FV( JU1_GL:J2_GL+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SINE_FV' )\n\n    !=================================================================\n    ! Initialize arrays and variables\n    !=================================================================\n\n    ! Grid box surface areas [m2]\n    DO J = JU1_GL, J2_GL\n    DO I =  I1_GL, I2_GL\n       MCOR(I,J) = State_Grid%Area_M2(I,J)\n    ENDDO\n    ENDDO\n\n    ! Hybrid grid vertical coords: Ai [hPa] and Bi [unitless]\n    DO L = K1_GL-1, K2_GL\n       AI(L) = GET_AP( L+1 )\n       BI(L) = GET_BP( L+1 )\n    ENDDO\n\n    ! Delta A [hPa] and Delta B [unitless]\n    DO L = K1_GL, K2_GL\n       !-------------------------------------------------------------\n       ! NOTE:, this was the original code.  But since AI is already\n       ! in hPa, we shouldn't need to multiply by PTOP again.  This\n       ! should only matter for the fvDAS fields.  Also, DBK needs\n       ! to be positive (bmy, 5/8/03)\n       !DAP(L) = ( AI(L) - AI(L-1) ) * PTOP\n       !DBK(L) = BI(L) - BI(L-1)\n       !-------------------------------------------------------------\n       DAP(L) = AI(L-1) - AI(L)\n       DBK(L) = BI(L-1) - BI(L)\n    ENDDO\n\n    ! Grid box center latitudes [radians]\n    DO J = JU1_GL, J2_GL\n       CLAT_FV(J) = State_Grid%YMid_R(1,J)\n    ENDDO\n\n    ! Longitude spacing\n    DLON_FV    = 2.e+0_fp * PI / DBLE( I2_GL )\n\n    ! Latitude edge at south pole [radians]\n    ELAT_FV(1) = -0.5e+0_fp * PI\n\n    ! SIN and COS of lat edge at south pole [unitless]\n    SINE_FV(1) = -1.e+0_fp\n    COSE_FV(1) =  0.e+0_fp\n\n    ! Latitude edges [radians] (w/ SIN & COS) at intermediate latitudes\n    DO J = JU1_GL+1, J2_GL  !2, State_Grid%NY\n       ELAT_FV(J) = 0.5e+0_fp * ( CLAT_FV(J-1) + CLAT_FV(J) )\n       SINE_FV(J) = SIN( ELAT_FV(J) )\n       COSE_FV(J) = COS( ELAT_FV(J) )\n    ENDDO\n\n    ! Latitude edge at North Pole [radians]\n    ELAT_FV(J2_GL+1) = 0.5e+0_fp * PI\n\n    ! SIN of lat edge at North Pole\n    SINE_FV(J2_GL+1) = 1.e+0_fp\n\n    ! Latitude extent of South polar box [radians]\n    DLAT_FV(1) = 2.e+0_fp * ( ELAT_FV(2) - ELAT_FV(1) )\n\n    ! Latitude extent of boxes at intermediate latitudes [radians]\n    DO J = JU1_GL+1, J2_GL-1  ! 2, State_Grid%NY-1\n       DLAT_FV(J) = ELAT_FV(J+1) - ELAT_FV(J)\n    ENDDO\n\n    ! Latitude extent of North polar box [radians]\n    DLAT_FV(J2_GL) = 2.e+0_fp * ( ELAT_FV(J2_GL+1) - ELAT_FV(J2_GL) )\n\n    ! Other stuff\n    DO J = JU1_GL, J2_GL\n       GW_FV(J)   = SINE_FV(J+1) - SINE_FV(J)\n       COSP_FV(J) = GW_FV(J)     / DLAT_FV(J)\n       RGW_FV(J)  = 1.e+0_fp         / GW_FV(J)\n    ENDDO\n\n  END SUBROUTINE Init_Pjc_Pfix\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Pjc_Pfix\n!\n! !DESCRIPTION: Subroutine Cleanup\\_Pjc\\_Pfix deallocates all module arrays\n!  (bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Pjc_Pfix\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( AI       ) ) DEALLOCATE( AI       )\n    IF ( ALLOCATED( BI       ) ) DEALLOCATE( BI       )\n    IF ( ALLOCATED( CLAT_FV  ) ) DEALLOCATE( CLAT_FV  )\n    IF ( ALLOCATED( COSE_FV  ) ) DEALLOCATE( COSE_FV  )\n    IF ( ALLOCATED( COSP_FV  ) ) DEALLOCATE( COSP_FV  )\n    IF ( ALLOCATED( DAP      ) ) DEALLOCATE( DAP      )\n    IF ( ALLOCATED( DBK      ) ) DEALLOCATE( DBK      )\n    IF ( ALLOCATED( DLAT_FV  ) ) DEALLOCATE( DLAT_FV  )\n    IF ( ALLOCATED( ELAT_FV  ) ) DEALLOCATE( ELAT_FV  )\n    IF ( ALLOCATED( GEOFAC   ) ) DEALLOCATE( GEOFAC   )\n    IF ( ALLOCATED( GW_FV    ) ) DEALLOCATE( GW_FV    )\n    IF ( ALLOCATED( MCOR     ) ) DEALLOCATE( MCOR     )\n    IF ( ALLOCATED( REL_AREA ) ) DEALLOCATE( REL_AREA )\n    IF ( ALLOCATED( RGW_FV   ) ) DEALLOCATE( RGW_FV   )\n    IF ( ALLOCATED( SINE_FV  ) ) DEALLOCATE( SINE_FV )\n\n  END SUBROUTINE Cleanup_Pjc_Pfix\n!EOC\nEND MODULE Pjc_Pfix_Mod\n"
  },
  {
    "path": "GeosCore/pjc_pfix_window_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: pjc_pfix_window_mod.F90\n!\n! !DESCRIPTION: Module PJC\\_PFIX\\_WINDOW\\_MOD contains routines which implements\n!  the Philip Cameron-Smith pressure fixer.  Specially modified for GEOS-Chem\n!  nested grid simulation. (yxw, dan, bmy, 11/6/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE PJC_PFIX_WINDOW_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n  PUBLIC :: CLEANUP_PJC_PFIX_WINDOW\n  PUBLIC :: DO_PJC_PFIX_WINDOW\n!\n! !REVISION HISTORY:\n!  (1 ) Adapted from \"pjc_pfix_mod.f\" (bmy, 11/6/08)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  ! ======================================================================\n  ! Module Variables:\n  ! ======================================================================\n  ! AI          : Vertical coord \"A\" for hybrid grid [hPa]\n  ! BI          : Vertical coord \"B\" for hybrid grid [unitless]\n  ! CLAT_FV     : Grid box center latitude [radians]\n  ! COSE_FV     : COSINE of grid box edge latitudes [radians]\n  ! COSP_FV     : COSINE of grid box center latitudes [radians]\n  ! DAP         : Delta-A vertical coordinate [hPa]\n  ! DBK         : Delta-B vertical coordinate [unitless]\n  ! DLAT_FV     : Latitude extent of grid boxes [radians]\n  ! ELAT_FV     : Grid box edge latitudes [radians]\n  ! GEOFAC      : Geometric factor for N-S advection\n  ! GW_FV       : Diff of SINE btw grid box lat edges [unitless]\n  ! MCOR        : Grid box surface areas [m2]\n  ! REL_AREA    : Relative surface area of grid box [fraction]\n  ! RGW_FV      : Reciprocal of GW_FV [radians\n  ! SINE_FV     : SINE of lat at grid box edges [unitless]\n  ! GEOFAC_PC   : Geometric factor for N-S advection @ poles\n  ! DLON_FV     : Longitude extent of a grid box [radians]\n  ! LOC_PROC    : Local processor number\n  ! PR_DIAG     : Flag for printing diagnostic message\n  ! IMP_NBORDER : Used for ghost zones for MPI ???\n  ! I1_GL       : ind of 1st  global lon       (no ghost zones)\n  ! I2_GL       : ind of last global lon       (no ghost zones)\n  ! JU1_GL      : ind of 1st  global \"u\" lat   (no ghost zones)\n  ! JV1_GL      : ind of 1st  global \"v\" lat   (no ghost zones)\n  ! J2_GL       : ind of last global \"u&v\" lat (no ghost zones)\n  ! K1_GL       : ind of 1st  global alt       (no ghost zones)\n  ! K2_GL       : ind of last global alt       (no ghost zones)\n  ! ILO_GL      : I1_GL  - IMP_NBORDER        (has ghost zones)\n  ! IHI_GL      : I2_GL  + IMP_NBORDER        (has ghost zones)\n  ! JULO_GL     : JU1_GL - IMP_NBORDER        (has ghost zones)\n  ! JVLO_GL     : JV1_GL - IMP_NBORDER        (has ghost zones)\n  ! JHI_GL      : J2_GL  + IMP_NBORDER        (has ghost zones)\n  ! I1          : ind of first local lon       (no ghost zones)\n  ! I2          : ind of last  local lon       (no ghost zones)\n  ! JU1         : ind of first local \"u\" lat   (no ghost zones)\n  ! JV1         : ind of first local \"v\" lat   (no ghost zones)\n  ! J2          : ind of last  local \"u&v\" lat (no ghost zones)\n  ! K1          : index of first local alt     (no ghost zones)\n  ! K2          : index of last  local alt     (no ghost zones)\n  ! ILO         : I1  - IMP_NBORDER           (has ghost zones)\n  ! IHI         : I2  + IMP_NBORDER           (has ghost zones)\n  ! JULO        : JU1 - IMP_NBORDER           (has ghost zones)\n  ! JVLO        : JV1 - IMP_NBORDER           (has ghost zones)\n  ! JHI         : J2  + IMP_NBORDER           (has ghost zones)\n  !========================================================================\n\n  ! Allocatable arrays\n  REAL(fp), ALLOCATABLE :: AI(:)\n  REAL(fp), ALLOCATABLE :: BI(:)\n  REAL(fp), ALLOCATABLE :: CLAT_FV(:)\n  REAL(fp), ALLOCATABLE :: COSE_FV(:)\n  REAL(fp), ALLOCATABLE :: COSP_FV(:)\n  REAL(fp), ALLOCATABLE :: DAP(:)\n  REAL(fp), ALLOCATABLE :: DBK(:)\n  REAL(fp), ALLOCATABLE :: DLAT_FV(:)\n  REAL(fp), ALLOCATABLE :: ELAT_FV(:)\n  REAL(fp), ALLOCATABLE :: GEOFAC(:)\n  REAL(fp), ALLOCATABLE :: GW_FV(:)\n  REAL(fp), ALLOCATABLE :: MCOR(:,:)\n  REAL(fp), ALLOCATABLE :: REL_AREA(:,:)\n  REAL(fp), ALLOCATABLE :: RGW_FV(:)\n  REAL(fp), ALLOCATABLE :: SINE_FV(:)\n\n  ! Scalar variables\n  LOGICAL               :: PR_DIAG\n  INTEGER               :: LOC_PROC\n  REAL(fp)              :: GEOFAC_PC\n  REAL(fp)              :: DLON_FV\n\n  ! Dimensions for GMI code (from \"imp_dims\")\n  INTEGER               :: IMP_NBORDER\n  INTEGER               :: I1_GL,  I2_GL,   JU1_GL,  JV1_GL\n  INTEGER               :: J2_GL,  K1_GL,   K2_GL,   ILO_GL\n  INTEGER               :: IHI_GL, JULO_GL, JVLO_GL, JHI_GL\n  INTEGER               :: I1,     I2,      JU1,     JV1\n  INTEGER               :: J2,     K1,      K2,      ILO\n  INTEGER               :: IHI,    JULO,    JVLO,    JHI\n  INTEGER               :: ILAT,   ILONG,   IVERT,   J1P\n  INTEGER               :: J2P\n\n  ! Dimensions for nested grids\n  INTEGER               :: I1_W,     I2_W,      JU1_W\n  INTEGER               :: J2_W,     J1P_W,     J2P_W\n  INTEGER               :: BUFF_SIZE\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_pjc_pfix_window\n!\n! !DESCRIPTION: Subroutine DO_PJC_PFIX is the driver routine for the Philip\n!  Cameron-Smith pressure fixer for the fvDAS transport scheme.\n!  (bdf, bmy, 5/8/03, 3/5/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_PJC_PFIX_WINDOW( State_Grid, D_DYN, P1, P2, &\n                                 UWND,  VWND, XMASS, YMASS )\n!\n! !USES:\n!\n    USE PhysConstants        ! Physical constants\n    Use State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    REAL(fp),       INTENT(IN)  :: D_DYN       ! Dynamic timestep [s]\n    REAL(fp),       INTENT(IN)  :: P1   (State_Grid%NX, &! True Psurf at middle\n                                         State_Grid%NY)  ! dyn tstep [hPa]\n    REAL(fp),       INTENT(IN)  :: P2   (State_Grid%NX, &! True Psurf at end of\n                                         State_Grid%NY)  ! dyn timestep [hPa]\n    REAL(fp),       INTENT(IN)  :: UWND (State_Grid%NX, &! Zonal wind [m/s]\n                                         State_Grid%NY, &\n                                         State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: VWND (State_Grid%NX, &! Meridional wind[m/s]\n                                         State_Grid%NY, &\n                                         State_Grid%NZ)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: XMASS(State_Grid%NX, &! E-W mass fluxes\n                                         State_Grid%NY, &!  [kg/s]\n                                         State_Grid%NZ)\n    REAL(fp),       INTENT(OUT) :: YMASS(State_Grid%NX, &! N-S mass fluxes\n                                         State_Grid%NY, &!  [kg/s]\n                                         State_Grid%NZ)\n!\n! !AUTHOR:\n!  Brendan Field and Bob Yantosca (5/8/03)\n!\n! !REMARKS:\n!  We assume that the winds are on the A-GRID, since this is the input that\n!  the GEOS-4/fvDAS transport scheme takes. (bdf, bmy, 5/8/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE        :: FIRST = .TRUE.\n    INTEGER              :: I, J\n    REAL(fp)             :: P2_TMP(State_Grid%NX,State_Grid%NY)\n!\n! !DEFINED PARAMETERS:\n!\n    LOGICAL, PARAMETER   :: INTERP_WINDS     = .TRUE.  ! winds are interp'd\n    INTEGER, PARAMETER   :: MET_GRID_TYPE    = 0       ! A-GRID\n    INTEGER, PARAMETER   :: ADVEC_CONSRV_OPT = 0       ! 2=floating pressure\n    INTEGER, PARAMETER   :: PMET2_OPT        = 1       ! leave at 1\n    INTEGER, PARAMETER   :: PRESS_FIX_OPT    = 1       ! Turn on P-Fixer\n\n    !=================================================================\n    ! DO_PJC_PFIX begins here!\n    !=================================================================\n\n    ! Initialize on first call\n    IF ( FIRST ) THEN\n\n       ! Initialize/allocate module variables\n       CALL INIT_PJC_PFIX_WINDOW( State_Grid )\n\n       ! Calculate advection surface-area factors\n       CALL CALC_ADVECTION_FACTORS( MCOR, REL_AREA, GEOFAC, GEOFAC_PC)\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    ! Copy P2 into P2_TMP (yxw, bmy, 3/5/07)\n    P2_TMP = P2\n\n    ! Call PJC pressure fixer w/ the proper arguments\n    ! NOTE: P1 and P2 are now \"true\" surface pressure, not PS-PTOP!!!\n    CALL ADJUST_PRESS( State_Grid,                        &\n                       'GEOS-CHEM',        INTERP_WINDS,  &\n                       .TRUE.,             MET_GRID_TYPE, &\n                       ADVEC_CONSRV_OPT,   PMET2_OPT,     &\n                       PRESS_FIX_OPT,      D_DYN,         &\n                       GEOFAC_PC,          GEOFAC,        &\n                       COSE_FV,            COSP_FV,       &\n                       REL_AREA,           DAP,           &\n                       DBK,                P1,            &\n                       P2_TMP,             P2_TMP,        &\n                       UWND,               VWND,          &\n                       XMASS,              YMASS )\n\n  END SUBROUTINE DO_PJC_PFIX_WINDOW\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Pressure\n!\n! !DESCRIPTION: Subroutine Calc\\_Pressure recalculates the new surface\n!  pressure from the adjusted air masses XMASS and YMASS.  This is useful\n!  for debugging purposes. (bdf, bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Pressure( State_Grid, XMASS, YMASS, &\n                            RGW_FV, PS_NOW, PS_AFTER )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : PTOP\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid             ! Grid State object\n    REAL(fp),       INTENT(IN)  :: XMASS(State_Grid%NX,  &! E-W mass flux from\n                                         State_Grid%NY,  &!  pressure fixer\n                                         State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: YMASS(State_Grid%NX,  &! N-S mass flux from\n                                         State_Grid%NY,  &!  pressure fixer\n                                         State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: PS_NOW(State_Grid%NX, &! Surface P - PTOP\n                                          State_Grid%NY)  !  at current time\n    REAL(fp),       INTENT(IN)  :: RGW_FV(State_Grid%NY)  ! Latitude factor\n                                                          ! 1/(SINE(J+1)-SIN(J))\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: PS_AFTER(State_Grid%NX,&! Sfc pressure - PTOP\n                                            State_Grid%NY) ! adjusted by P-fixer\n!\n! !AUTHOR:\n!   Brendan Field and Bob Yantosca (5/8/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: I, J, L\n    REAL(fp) :: DELP (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp) :: DELP1(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp) :: PE(State_Grid%NX,State_Grid%NZ+1,State_Grid%NY)\n\n    !=================================================================\n    ! CALC_PRESSURE begins here!\n    !=================================================================\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       DELP1(I,J,L) = DAP(L) + ( DBK(L) * PS_NOW(I,J) )\n    ENDDO\n    ENDDO\n    ENDDO\n\n    DO L = 1, State_Grid%NZ\n       DO J = 2, State_Grid%NY-1\n\n          DO I =1, State_Grid%NX-1\n             DELP(I,J,L) = DELP1(I,J,L) + &\n                           XMASS(I,J,L) - XMASS(I+1,J,L) + &\n                         ( YMASS(I,J,L) - YMASS(I,J+1,L) ) * RGW_FV(J)\n          ENDDO\n\n          DELP(State_Grid%NX,J,L) = DELP1(State_Grid%NX,J,L) + &\n                XMASS(State_Grid%NX,J,L) - XMASS(1,J,L) + &\n              ( YMASS(State_Grid%NX,J,L) - YMASS(State_Grid%NX,J+1,L) ) * &\n                RGW_FV(J)\n       ENDDO\n\n       DO I = 1, State_Grid%NX\n          DELP(I,1,L) = DELP1(I,1,L) - YMASS(I,2,L) * RGW_FV(1)\n       ENDDO\n\n       ! Compute average\n       CALL XPAVG( DELP(1,1,L), State_Grid%NX )\n\n       DO I = 1, State_Grid%NX\n          DELP(I,State_Grid%NY,L) = DELP1(I,State_Grid%NY,L) + &\n               YMASS(I,State_Grid%NY,L) * RGW_FV(State_Grid%NY)\n       ENDDO\n\n       ! Compute average\n       CALL XPAVG( DELP(1,State_Grid%NY,L), State_Grid%NX )\n\n    ENDDO\n\n    !=================================================================\n    ! Make the pressure\n    !=================================================================\n    DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          PE(I,1,J) = PTOP\n       ENDDO\n\n       DO L = 1,State_Grid%NZ\n          DO I = 1,State_Grid%NX\n             PE(I,L+1,J) = PE(I,L,J) + DELP(I,J,L)\n          ENDDO\n       ENDDO\n\n       DO I = 1,State_Grid%NX\n          PS_AFTER(I,J) = PE(I,State_Grid%NZ+1,J)\n       ENDDO\n    ENDDO\n\n  END SUBROUTINE Calc_Pressure\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Advection_Factors\n!\n! !DESCRIPTION: Subroutine Calc\\_Advection\\_Factors calculates the relative\n!   area of each grid box, and the geometrical factors used by this modified\n!   version of TPCORE.  These geomoetrical DO assume that the space is\n!   regularly gridded, but do not assume any link between the surface area\n!   and the linear dimensions.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Advection_Factors(mcor, rel_area, geofac, geofac_pc)\n!\n! !USES:\n!\n    USE PhysConstants  ! Physical constants\n!\n! !INPUT PARAMETERS:\n!\n    ! Area of grid box (m^2)\n    REAL(fp), INTENT(IN)  :: mcor(i1_gl :i2_gl, ju1_gl:j2_gl)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! relative surface area of grid box (fraction)\n    REAL(fp), INTENT(OUT) :: rel_area(i1_gl :i2_gl, ju1_gl:j2_gl)\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp), INTENT(OUT) :: geofac(ju1_gl:j2_gl)\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp), INTENT(OUT) :: geofac_pc\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: ij\n\n    ! Variables not used. (ccc, 8/3/10)\n    !REAL(fp) :: dp           ! spacing in latitude (rad)\n    !REAL(fp) :: ri2_gl\n    !REAL(fp) :: rj2m1\n    REAL(fp) :: total_area\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    ! Not used. (ccc, 8/3/10)\n    !ri2_gl = i2_gl\n\n    !---------------------------------\n    !Set the relative area (rel_area).\n    !---------------------------------\n\n    total_area = Sum (mcor(:,:))\n\n    rel_area(:,:) = mcor(:,:) / total_area\n\n    !---------------------------------------------------------\n    !Calculate geometrical factor for meridional advection.\n    !Note that it is assumed that all grid boxes in a latitude\n    !band are the same.\n    !---------------------------------------------------------\n\n    ! Not used for nested grids. (ccc, 8/3/10)\n    !rj2m1 = j2_gl - 1\n    !dp    = PI / 360D0\n\n    ! The total area does not cover the full globe so use an other definition\n    ! for the geometric factor. (lzh, ccc, 8/3/10)\n    do ij = ju1_gl, j2_gl\n       !geofac(ij) = dp / (2.0e+0_fp * rel_area(1,ij) * ri2_gl)\n       geofac(ij) = 1.e+0_fp / COSP_FV(ij)\n    end do\n\n    ! geofac_pc used only for polar cap so no need. (ccc, 8/3/10)\n    !geofac_pc = dp / (2.0e+0_fp * Sum (rel_area(1,ju1_gl:ju1_gl+1)) * ri2_gl)\n\n    ! Make sure to return with a value\n    geofac_pc = 0.0_fp\n\n  END SUBROUTINE Calc_Advection_Factors\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Adjust_Press\n!\n! !DESCRIPTION: Subroutine Adjust\\_Press initializes and calls the\n!  pressure fixer code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Adjust_Press(State_Grid, &\n       metdata_name_org, do_timinterp_winds, new_met_rec,         &\n       met_grid_type, advec_consrv_opt, pmet2_opt, press_fix_opt, &\n       tdt, geofac_pc, geofac, cose, cosp, rel_area, dap, dbk,    &\n       pctm1, pctm2, pmet2, uu, vv, xmass, ymass)\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n\n    ! First  part of metdata_name, e.g., \"NCAR\"\n    CHARACTER(LEN=*) :: metdata_name_org\n\n    ! Time interpolate wind fields?\n    LOGICAL :: do_timinterp_winds\n\n    ! New met record?\n    LOGICAL :: new_met_rec\n\n    ! Met grid type, A or C\n    INTEGER :: met_grid_type\n\n    ! Advection_conserve option\n    INTEGER :: advec_consrv_opt\n\n    ! pmet2 option\n    INTEGER :: pmet2_opt\n\n    ! pressure fixer option\n    INTEGER :: press_fix_opt\n\n    ! Model time step [s]\n    REAL(fp)  :: tdt\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp)  :: geofac_pc\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp)  :: geofac  (ju1_gl:j2_gl)\n\n    ! Cosines of grid box edges and centers\n    REAL(fp)  :: cose    (ju1_gl:j2_gl)\n    REAL(fp)  :: cosp    (ju1_gl:j2_gl)\n\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp)  :: dap     (k1:k2)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp)  :: dbk     (k1:k2)\n\n    ! Relative surface area of grid box (fraction)\n    REAL(fp)  :: rel_area( i1_gl:i2_gl,   ju1_gl:j2_gl)\n\n    ! Metfield surface pressure at t1+tdt [hPa]\n    REAL(fp)  :: pmet2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1 [hPa]\n    REAL(fp)  :: pctm1(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1+tdt [hPa]\n    REAL(fp)  :: pctm2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! Wind velocity, x direction at t1+tdt/2 [m/s]\n    REAL(fp)  :: uu(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Wind velocity, y direction at t1+tdt/2 [m/s]\n    REAL(fp)  :: vv(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Horizontal mass flux in E-W direction [hPa]\n    REAL(fp)  :: xmass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Horizontal mass flux in N-S direction [hPa]\n    REAL(fp)  :: ymass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    logical, save :: DO_ADJUST_PRESS_DIAG = .TRUE.\n\n    !----------------------\n    !Variable declarations.\n    !----------------------\n\n    logical, save :: first = .true.\n\n    !--------------------------------------------------\n    !dgpress   : global-pressure discrepancy\n    !press_dev : RMS difference between pmet2 and pctm2\n    !            (weighted by relative area)\n    !--------------------------------------------------\n    real(fp)  :: dgpress\n    real(fp)  :: press_dev\n\n    !-------------------------------------------------------------\n    !dps : change of surface pressure from met field pressure (mb)\n    !-------------------------------------------------------------\n    real(fp)  :: dps(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    !--------------------------------------------\n    !dps_ctm : CTM surface pressure tendency (mb)\n    !--------------------------------------------\n    real(fp) :: dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    !---------------------------------------------------------------------\n    !xmass_fixed : horizontal mass flux in E-W direction after fixing (mb)\n    !ymass_fixed : horizontal mass flux in N-S direction after fixing (mb)\n    !---------------------------------------------------------------------\n    real(fp)  :: xmass_fixed(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1:k2)\n    real(fp)  :: ymass_fixed(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1:k2)\n\n    !-------------\n    !Dummy indexes\n    !-------------\n    !integer :: ij, il\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6, *) 'Adjust_Press called by ', loc_proc\n    end if\n\n    dps     = 0.0_fp    ! (bmy, 7/10/17)\n    dps_ctm = 0.0e+0_fp\n\n    dgpress =  Sum ( (pmet2(i1_gl:i2_gl, ju1_gl:j2_gl) - &\n                      pctm1(i1_gl:i2_gl, ju1_gl:j2_gl)   ) &\n                 * rel_area(i1_gl:i2_gl, ju1_gl:j2_gl)     )\n\n    if (pmet2_opt == 1) then\n       pmet2(:,:) = pmet2(:,:) - dgpress\n    end if\n\n    !### Debug\n    !###if (DO_ADJUST_PRESS_DIAG) then\n    !###  Write (6, *) 'Global mean surface pressure change (mb) = ',\n    !###                dgpress\n    !###end if\n\n    !===================\n    call Init_Press_Fix &\n    !===================\n         (State_Grid, &\n          metdata_name_org, met_grid_type, tdt, geofac_pc, geofac, &\n          cose, cosp, dap, dbk, dps, dps_ctm, rel_area, pctm1, pmet2, &\n          uu, vv, xmass, ymass)\n\n    if (press_fix_opt == 1) then\n\n       !======================\n       call Do_Press_Fix_Llnl &\n       !======================\n            (geofac_pc, geofac, dbk, dps, dps_ctm, rel_area, &\n             xmass, ymass, xmass_fixed, ymass_fixed )\n\n       xmass(:,:,:) = xmass_fixed(:,:,:)\n       ymass(:,:,:) = ymass_fixed(:,:,:)\n\n    end if\n\n    if ((advec_consrv_opt == 0) .or. &\n        (advec_consrv_opt == 1)) then\n\n       dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl) = &\n            pmet2(i1_gl:i2_gl, ju1_gl:j2_gl) - &\n            pctm1(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n       !-----------------------------------------------\n       !else if (advec_consrv_opt == 2) then do nothing\n       !-----------------------------------------------\n\n    end if\n\n    pctm2(i1_gl:i2_gl, ju1_gl:j2_gl) = &\n         pctm1(i1_gl:i2_gl, ju1_gl:j2_gl) + &\n         dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    if (DO_ADJUST_PRESS_DIAG) then\n\n       !-------------------------------------------------------\n       !Calculate the RMS pressure deviation (diagnostic only).\n       !-------------------------------------------------------\n\n       press_dev = &\n            Sqrt (Sum (((pmet2(i1_gl:i2_gl,ju1_gl:j2_gl) - &\n                         pctm2(i1_gl:i2_gl,ju1_gl:j2_gl))**2 * &\n                      rel_area(i1_gl:i2_gl,ju1_gl:j2_gl))))\n\n       !### Debug\n       !###Write (6, *) 'RMS deviation between pmet2 & pctm2 (mb) = ', &\n       !###             press_dev\n\n    end if\n\n  END SUBROUTINE Adjust_Press\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Press_Fix\n!\n! !DESCRIPTION: Subroutine Init\\_Press\\_Fix initializes the pressure fixer.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Press_Fix( State_Grid, &\n       metdata_name_org, met_grid_type, tdt, geofac_pc, geofac,    &\n       cose, cosp, dap, dbk, dps, dps_ctm, rel_area, pctm1, pmet2, &\n       uu, vv, xmass, ymass)\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    ! Grid State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n\n    ! First part of metdata_name, e.g., \"NCAR\"\n    CHARACTER(LEN=*) :: metdata_name_org\n\n    ! Met grid type, A or C\n    INTEGER          :: met_grid_type\n\n    ! Model Time step [s]\n    REAL(fp)         :: tdt\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp)         :: geofac_pc\n\n    ! Cosine of grid box edges and centers\n    REAL(fp)         :: cose    (ju1_gl:j2_gl)\n    REAL(fp)         :: cosp    (ju1_gl:j2_gl)\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp)         :: geofac  (ju1_gl:j2_gl)\n\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp)         :: dap     (k1:k2)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp)         :: dbk     (k1:k2)\n\n    !rel_area : relative surface area of grid box (fraction)\n    REAL(fp)         :: rel_area( i1_gl:i2_gl,   ju1_gl:j2_gl)\n\n    ! Metfield surface pressure at t1 [hPa]\n    REAL(fp)         ::  pmet2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1 [hPa]\n    REAL(fp)         ::  pctm1(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! CTM surface pressure at t1+tdt [hPa]\n    REAL(fp)         ::  pctm2(ilo_gl:ihi_gl, julo_gl:jhi_gl)\n\n    ! Wind velocity, x direction at t1+tdt/2 [m/s]\n    REAL(fp)         :: uu(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n    \n    ! Wind velocity, y direction at t1+tdt/2 [m/s]\n    REAL(fp)         :: vv(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Horizontal mass flux in E-W direction [hPa]\n    REAL(fp)         :: xmass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Horizontal mass flux in N-S direction [hPa]\n    REAL(fp)         :: ymass(ilo_gl:ihi_gl, julo_gl:jhi_gl, k1_gl:k2_gl)\n\n    ! Change of surface pressure from met field pressure (mb)\n    REAL(fp)         :: dps(i1_gl:i2_gl, ju1_gl:j2_gl)\n\n    ! CTM surface pressure tendency (mb)\n    REAL(fp)         :: dps_ctm(i1_gl:i2_gl, ju1_gl:j2_gl)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !--------------------------------------------------------------\n    !dpi   : divergence at a grid point; used to calculate vertical\n    !        motion (mb)\n    !--------------------------------------------------------------\n    real(fp)  :: dpi(i1:i2, ju1:j2, k1:k2)\n\n    !---------------------------------------------------------------------\n    !crx   : Courant number in E-W direction\n    !cry   : Courant number in N-S direction\n    !delp1 : pressure thickness, the psudo-density in a hydrostatic system\n    !        at t1 (mb)\n    !delpm : pressure thickness, the psudo-density in a hydrostatic system\n    !        at t1+tdt/2 (approximate) (mb)\n    !pu    : pressure at edges in \"u\"  (mb)\n    !---------------------------------------------------------------------\n    real(fp)  :: crx  (ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: cry  (ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: delp1(ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: delpm(ilo:ihi, julo:jhi, k1:k2)\n    real(fp)  :: pu   (ilo:ihi, julo:jhi, k1:k2)\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Init_Press_Fix called by ', loc_proc\n    end if\n\n    ! Need to initialize local arrays (bmy, 7/10/17)\n    dpi   = 0.0_fp\n    crx   = 0.0_fp\n    cry   = 0.0_fp\n    delp1 = 0.0_fp\n    delpm = 0.0_fp\n    pu    = 0.0_fp\n\n    ! not treat poles (lzh, 07/20/2010)\n    !!========================\n    !call Average_Press_Poles &\n    !!========================\n    !  (rel_area, pctm1)\n    !\n    !!========================\n    !call Average_Press_Poles &\n    !!========================\n    !  (rel_area, pmet2)\n\n    !-------------------------------------------------------------------\n    !We need to calculate pressures at t1+tdt/2.  One ought to use pctm2\n    !in the call to Set_Press_Terms, but since we don't know it yet, we\n    !are forced to use pmet2.  This should be good enough because it is\n    !only used to convert the winds to the mass fluxes, which is done\n    !crudely anyway and the mass fluxes will still get fixed OK.\n    !-------------------------------------------------------------------\n\n    dps(i1:i2,ju1:j2) = pmet2(i1:i2,ju1:j2) - pctm1(i1:i2,ju1:j2)\n\n    !====================\n    call Set_Press_Terms &\n    !====================\n         (dap, dbk, pctm1, pmet2, delp1, delpm, pu)\n\n    !===================\n    call Convert_Winds &\n    !===================\n         (State_Grid, met_grid_type, tdt, cosp, crx, cry, uu, vv)\n\n    !=========================\n    call Calc_Horiz_Mass_Flux &\n    !=========================\n         (State_Grid, cose, delpm, uu, vv, xmass, ymass, tdt, cosp)\n\n    !====================\n    call Calc_Divergence &\n    !====================\n         (.false., geofac_pc, geofac, dpi, xmass, ymass)\n\n    dps_ctm(i1:i2,ju1:j2) = Sum (dpi(i1:i2,ju1:j2,:), dim=3)\n\n  END SUBROUTINE Init_Press_Fix\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Press_Fix_Llnl\n!\n! !DESCRIPTION: Subroutine Do\\_Press\\_Fix\\_Llnl fixes the mass fluxes to\n!  match the met field pressure tendency.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Press_Fix_Llnl &\n       (geofac_pc, geofac, dbk, dps, dps_ctm, rel_area, &\n       xmass, ymass, xmass_fixed, ymass_fixed)\n!\n! !INPUT PARAMETERS:\n!\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp), INTENT(IN)  :: geofac_pc\n\n    ! Geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    !  meridional geometrical factor in tpcore\n    REAL(fp), INTENT(IN)  :: geofac  (ju1_gl:j2_gl)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp), INTENT(IN)  :: dbk     (k1:k2)\n\n    ! Change of surface pressure from met field pressure [hPa]\n    REAL(fp), INTENT(IN)  :: dps     (i1:i2, ju1:j2)\n\n    ! Relative surface area of grid box (fraction)\n    REAL(fp), INTENT(IN)  :: rel_area(i1:i2, ju1:j2)\n\n    ! Horizontal mass fluxes in E-W and N-S directions [hPa]\n    REAL(fp), INTENT(IN)  :: xmass      (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(IN)  :: ymass      (ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Sum over vertical of dpi calculated from original mass fluxes [hPa]\n    REAL(fp), INTENT(OUT) :: dps_ctm (i1:i2, ju1:j2)\n\n    ! Horizontal mass flux in E-W and N-S directions after fixing [hPa]\n    REAL(fp), INTENT(OUT) :: xmass_fixed(ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(OUT) :: ymass_fixed(ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij, ik\n\n    REAL(fp)  :: dgpress\n    REAL(fp)  :: fxmean\n    REAL(fp)  :: ri2\n\n    ! Arrays\n    REAL(fp)  :: fxintegral(i1:i2+1)\n    REAL(fp)  :: mmfd(ju1:j2)\n    REAL(fp)  :: mmf (ju1:j2)\n    REAL(fp)  :: ddps(i1:i2, ju1:j2)\n\n    !------------------------------------------------------------------------\n    !dpi : divergence at a grid point; used to calculate vertical motion (mb)\n    !------------------------------------------------------------------------\n    REAL(fp)  :: dpi(i1:i2, ju1:j2, k1:k2)\n    REAL(fp)  :: xcolmass_fix(ilo:ihi, julo:jhi)\n    REAL(fp)  :: xx\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Do_Press_Fix_Llnl called by ', loc_proc\n    end if\n\n    !------------------------------------------------------------\n    ! Initialize variables (bmy, 7/10/17)\n    !------------------------------------------------------------\n\n    ! Arguments\n    xmass_fixed  = xmass\n    ymass_fixed  = ymass\n\n    ! Local variables\n    dgpress      = 0.0_fp\n    fxmean       = 0.0_fp\n    ri2          = i2_gl - 2 * BUFF_SIZE\n    fxintegral   = 0.0_fp\n    mmfd         = 0.0_fp\n    mmf          = 0.0_fp\n    ddps         = 0.0_fp\n    dpi          = 0.0_fp\n    xcolmass_fix = 0.0_fp\n    xx           = 0.0_fp\n\n    !------------------------------------------------------------\n    !Calculate difference between GCM and LR predicted pressures.\n    !------------------------------------------------------------\n\n    ddps(:,:) = dps(:,:) - dps_ctm(:,:)\n\n    !--------------------------------------\n    ! Calculate global-pressure discrepancy.\n    !--------------------------------------\n\n    !dgpress = Sum (ddps(i1:i2,ju1:j2) * rel_area(i1:i2,ju1:j2))\n\n    xx = sum(rel_area(i1_w:i2_w,j1p_w:j2p_w))\n    dgpress = Sum (ddps(i1_w:i2_w,j1p_w:j2p_w) * &\n         rel_area(i1_w:i2_w,j1p_w:j2p_w)) / xx\n\n    !----------------------------------------------------------\n    !Calculate mean meridional flux divergence (df/dy).\n    !Note that mmfd is actually the zonal mean pressure change,\n    !which is related to df/dy by geometrical factors.\n    !----------------------------------------------------------\n\n    !------------------------\n    !Handle non-Pole regions.\n    !------------------------\n\n    ! Work on the inner window only (lzh, ccc, 8/3/10)\n    !do ij = j1p, j2p\n    !  mmfd(ij) = -(sum(ddps(:,ij)) / ri2 - dgpress)\n    !end do\n\n    do ij = j1p_w, j2p_w\n       mmfd(ij) = -(sum(ddps(i1_w:i2_w,ij)) / ri2 - dgpress)\n    end do\n\n    ! No special case for poles, no poles. (ccc, 8/3/10)\n    !!---------------------------------------------\n    !!Handle poles.\n    !!Note that polar boxes have all been averaged.\n    !!---------------------------------------------\n    !\n    !mmfd(ju1)   = -(ddps(1,ju1)   - dgpress)\n    !mmfd(ju1+1) = -(ddps(1,ju1+1) - dgpress)\n    !mmfd(j2-1)  = -(ddps(1,j2-1)  - dgpress)\n    !mmfd(j2)    = -(ddps(1,j2)    - dgpress)\n\n    !---------------------------------------------\n    !Calculate mean meridional fluxes (cos(e)*fy).\n    !---------------------------------------------\n\n    ! Use geofac, no polar cap. (ccc, 8/3/10)\n    !mmf(j1p) = mmfd(ju1) / geofac_pc\n    mmf(j1p_w) = mmfd(ju1_w) / geofac(j1p_w)\n\n    ! Work on inner domain. (ccc, 8/3/10)\n    !do ij = j1p, j2p\n    do ij = j1p_w, j2p_w-1\n       mmf(ij+1) = mmf(ij) + mmfd(ij) / geofac(ij)\n    end do\n\n    !------------------------------------------------------------\n    !Fix latitude bands.\n    !Note that we don't need to worry about geometry here because\n    !all boxes in a latitude band are identical.\n    !Note also that fxintegral(i2+1) should equal fxintegral(i1),\n    !i.e., zero.\n    !------------------------------------------------------------\n\n    ! Work on inner domain (ccc, 8/3/10)\n    !do ij = j1p, j2p\n    do ij = j1p_w, j2p_w\n\n       fxintegral(:) = 0.0e+0_fp\n\n       !do il = i1, i2\n       do il = i1_w, i2_w\n          fxintegral(il+1) = fxintegral(il) - &\n                             (ddps(il,ij) - dgpress) - mmfd(ij)\n       end do\n\n       fxmean = Sum (fxintegral(i1+1:i2+1)) / ri2\n       !fxmean = Sum (fxintegral(i1_w+1:i2_w+1)) / ri2\n\n       !do il = i1, i2\n       do il = i1_w, i2_w\n          xcolmass_fix(il,ij) = fxintegral(il) - fxmean\n       end do\n\n    end do\n\n    !-------------------------------------\n    !Distribute colmass_fix's in vertical.\n    !-------------------------------------\n\n    do ik = k1, k2\n    !do ij = j1p, j2p\n    !do il = i1, i2\n    do ij = j1p_w, j2p_w\n    do il = i1_w, i2_w\n\n       xmass_fixed(il,ij,ik) = xmass(il,ij,ik) + xcolmass_fix(il,ij) * dbk(ik)\n\n    end do\n    end do\n    end do\n\n    ! Grid stops at j2p if nested domain (ccc, 8/3/10)\n    !do ik = k1, k2\n    !do ij = j1p, j2p+1\n    !do il = i1, i2\n    !\n    !   ymass_fixed(il,ij,ik) = ymass(il,ij,ik) + mmf(ij) * dbk(ik)\n    !\n    !end do\n    !end do\n    !end do\n\n    do ik = k1, k2\n    !do ij = j1p, j2p\n    !do il = i1, i2\n    do ij = j1p_w, j2p_w\n    do il = i1_w, i2_w\n\n       ymass_fixed(il,ij,ik) = ymass(il,ij,ik) + mmf(ij) * dbk(ik)\n\n    end do\n    end do\n    end do\n\n    !====================\n    call Calc_Divergence &\n    !====================\n         (.false., geofac_pc, geofac, dpi, xmass_fixed, ymass_fixed)\n\n    dps_ctm(i1:i2,ju1:j2) = Sum (dpi(i1:i2,ju1:j2,:), dim=3)\n\n  END SUBROUTINE Do_Press_Fix_Llnl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Convert_Winds\n!\n! !DESCRIPTION: Subroutine Convert\\_Winds converts winds on A or C grid to\n!  Courant \\# on C grid.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Convert_Winds(State_Grid, igd, tdt, cosp, crx, cry, uu, vv)\n!\n! !USES:\n!\n    USE PhysConstants ! Re, PI\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    ! Grid State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n\n    ! A or C grid\n    INTEGER,  INTENT(IN)  :: igd\n\n    ! Model time step [s]\n    REAL(fp), INTENT(IN)  :: tdt\n\n    ! Cosine of grid box centers\n    REAL(fp), INTENT(IN)  :: cosp(ju1_gl:j2_gl)\n\n    ! Wind velocity in E-W (UU) and N-S (VV) directions at t1+tdt/2 [m/s]\n    REAL(fp), INTENT(IN)  :: uu  (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(IN)  :: vv  (ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Courant number in E-W (CRX) and N-S (CRY) directions\n    REAL(fp), INTENT(OUT) :: crx (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(OUT) :: cry (ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REMARKS:\n!  Use GEOS-CHEM physical constants Re, PI to be consistent with other\n!  usage everywhere (bmy, 5/5/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    logical, save :: first = .true.\n\n    integer :: il, ij\n\n    !-------------------------------\n    !dl : spacing in longitude (rad)\n    !dp : spacing in latitude  (rad)\n    !-------------------------------\n    real(fp)  :: dl\n    real(fp)  :: dp\n\n    real(fp)  :: ri2\n    real(fp)  :: rj2m1\n\n    !------------------------\n    !dtdy  : dt/dy      (s/m)\n    !dtdy5 : 0.5 * dtdy (s/m)\n    !------------------------\n    real(fp), save :: dtdy\n    real(fp), save :: dtdy5\n\n    !------------------------\n    !dtdx  : dt/dx      (s/m)\n    !dtdx5 : 0.5 * dtdx (s/m)\n    !------------------------\n    real(fp), allocatable, save :: dtdx (:)\n    real(fp), allocatable, save :: dtdx5(:)\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6, *) 'Convert_Winds called by ', loc_proc\n    end if\n\n    !==========\n    if (first) then\n    !==========\n\n       first = .false.\n\n       Allocate (dtdx (ju1_gl:j2_gl))\n       Allocate (dtdx5(ju1_gl:j2_gl))\n       dtdx = 0.0_fp; dtdx5 = 0.0_fp\n\n       ri2   = i2_gl\n       rj2m1 = j2_gl - 1\n\n       IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n          dl    = 2.0e+0_fp * PI / 576.0_fp\n          dp    = PI /360e+0_fp\n       ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n          dl    = 2.0e+0_fp * PI / 1152.0_fp\n          dp    = PI /720e+0_fp\n       ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n          dl    = 2.0e+0_fp * PI / 2304.0_fp\n          dp    = PI /1440e+0_fp\n       ENDIF\n\n       dtdy  = tdt / (Re * dp)\n       dtdy5 = 0.5_fp * dtdy\n\n       !-----lzh----------\n       !dtdx (ju1_gl) = 0.0e+0_fp\n       !dtdx5(ju1_gl) = 0.0e+0_fp\n       !\n       !do ij = ju1_gl + 1, j2_gl - 1\n       !\n       !  dtdx (ij) = tdt / (dl * Re * cosp(ij))\n       !  dtdx5(ij) = 0.5e+0_fp * dtdx(ij)\n       !\n       !end do\n       !\n       !dtdx (j2_gl)  = 0.0e+0_fp\n       !dtdx5(j2_gl)  = 0.0e+0_fp\n\n       !-----------------------------------------------\n       ! for nested NA or EA (lzh, 07/20/2010)\n       do ij = ju1_gl, j2_gl\n          dtdx (ij) = tdt / (dl * Re * cosp(ij))\n          dtdx5(ij) = 0.5e+0_fp * dtdx(ij)\n       end do\n       !-----------------------------------------------\n\n    end if\n\n    !=============\n    if (igd == 0) then  ! A grid.\n    !=============\n\n       do ij = ju1+1, j2-1\n          do il = i1+1, i2\n             crx(il,ij,:) = dtdx5(ij) * &\n                            (uu(il,ij,:) + uu(il-1,ij,  :))\n          end do\n          ! No periodicity (ccc, 8/3/10)\n          !crx(1,ij,:) = dtdx5(ij) * &\n          !              (uu(1,ij,:) + uu(i2,ij,  :))\n       end do\n\n       do ij = ju1+1, j2\n          do il = i1, i2\n             cry(il,ij,:) = dtdy5 * &\n                            (vv(il,ij,:) + vv(il,  ij-1,:))\n          end do\n       end do\n\n    !====\n    else  ! C grid.\n    !====\n\n       ! No ghost zones. (ccc, 8/3/10)\n       !do ij = ju1, j2\n       !  do il = i1, i2\n       do ij = ju1+1, j2\n          do il = i1+1, i2\n\n             crx(il,ij,:) = dtdx(ij) * uu(il-1,ij,  :)\n\n             cry(il,ij,:) = dtdy     * vv(il,  ij-1,:)\n\n          end do\n       end do\n\n    end if\n\n  END SUBROUTINE Convert_Winds\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Horiz_Mass_Flux\n!\n! !DESCRIPTION: Subroutine Calc\\_Horiz\\_Mass\\_Flux calculates the horizontal\n!  mass flux for non-GISS met data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Horiz_Mass_Flux &\n    (State_Grid, cose, delpm, uu, vv, xmass, ymass, tdt, cosp)\n!\n! !USES:\n!\n    USE PhysConstants ! Re, Pi\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    ! Grid State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n\n    ! Timestep [s]\n    REAL(fp)  :: tdt\n\n    ! Cosine of grid box edges\n    REAL(fp)  :: cose (ju1_gl:j2_gl)\n\n    ! Cosine of grid box centers\n    REAL(fp)  :: cosp (ju1_gl:j2_gl)\n\n    ! Pressure thickness, the pseudo-density in a\n    ! hdrostatic system  at t1+tdt/2 (approximate) [hPa]\n    REAL(fp)  :: delpm(ilo:ihi, julo:jhi, k1:k2)\n\n    ! E-W (UU) and N-S (VV) winds [m/s]\n    REAL(fp)  :: uu  (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp)  :: vv  (ilo:ihi, julo:jhi, k1:k2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Horizontal mass flux in E-W and N-S directions [hPa]\n    REAL(fp)  :: xmass(ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp)  :: ymass(ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REMARKS:\n!   Use GEOS-CHEM physical constants Re, PI to be consistent with other\n!   usage everywhere (bmy, 5/5/03)\n\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer   :: ij\n    integer   :: il\n    integer   :: jst, jend\n    real(fp)  :: dl\n    real(fp)  :: dp\n\n    real(fp)  :: ri2\n    real(fp)  :: rj2m1\n    real(fp)  :: factx\n    real(fp)  :: facty\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Calc_Horiz_Mass_Flux called by ', loc_proc\n    end if\n\n    ri2   = i2_gl\n    rj2m1 = j2_gl - 1\n\n    IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n       dl    = 2.0e+0_fp * PI / 576.0_fp\n       dp    = PI /360.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n       dl    = 2.0e+0_fp * PI / 1152.0_fp\n       dp    = PI /720.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n       dl    = 2.0e+0_fp * PI / 2304.0_fp\n       dp    = PI /1440.0_fp\n    ENDIF\n\n    facty  = 0.5_fp * tdt / (Re * dp)\n\n    !-----------------------------------\n    !Calculate E-W horizontal mass flux.\n    !-----------------------------------\n\n    do ij = ju1, j2\n\n       factx = 0.5_fp * tdt / (dl * Re * cosp(ij))\n\n       do il = i1+1, i2\n          xmass(il,ij,:) = factx * &\n                           (uu(il,ij,:) * delpm(il,ij,:) + &\n                            uu(il-1,ij,:) * delpm(il-1,ij,:))\n       end do\n\n       ! No periodicity. (ccc, 8/3/10)\n       !xmass(i1,ij,:) = factx * &\n       !  (uu(i1,ij,:) * delpm(i1,ij,:)+ &\n       !   uu(i2,ij,:) * delpm(i2,ij,:))\n\n    end do\n\n    !-----------------------------------\n    !Calculate N-S horizontal mass flux.\n    !-----------------------------------\n\n    do ij = ju1+1, j2\n\n       ymass(i1:i2,ij,:) = facty * &\n            cose(ij) * (vv(i1:i2,ij,:)*delpm(i1:i2,ij,:) + &\n            vv(i1:i2,ij-1,:)*delpm(i1:i2,ij-1,:))\n\n    end do\n\n  END SUBROUTINE Calc_Horiz_Mass_Flux\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Divergence\n!\n! !DESCRIPTION: Subroutine Calc\\_Divergence calculates the divergence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Divergence &\n       (do_reduction, geofac_pc, geofac, dpi, xmass, ymass)\n!\n! !INPUT PARAMETERS:\n!\n    ! Set to F if called on Master; set to T if called by Slaves\n    ! (NOTE: this doesn't seem to be used!)\n    LOGICAL,  INTENT(IN)  :: do_reduction\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp), INTENT(IN)  :: geofac_pc\n\n    ! geometrical factor for meridional advection; geofac uses\n    ! correct spherical geometry, and replaces acosp as the\n    ! meridional geometrical factor in tpcore\n    REAL(fp), INTENT(IN)  :: geofac(ju1_gl:j2_gl)\n\n    ! horizontal mass fluxes in E-W and N-S directions [hPa]\n    REAL(fp), INTENT(IN)  :: xmass (ilo:ihi, julo:jhi, k1:k2)\n    REAL(fp), INTENT(IN)  :: ymass (ilo:ihi, julo:jhi, k1:k2)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Divergence at a grid point; used to calculate vertical motion [hPa]\n    REAL(fp), INTENT(OUT) :: dpi   (i1:i2, ju1:j2, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!   02 Dec 2008 - R. Yantosca - Updated documentation and added ProTeX headers.\n!                               Declare all REAL variables as REAL(fp).\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: il, ij\n    !integer :: jst, jend\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Calc_Divergence called by ', loc_proc\n    end if\n\n    ! Initialize DPI, it's an output\n    dpi = 0.0_fp\n\n    !-------------------------\n    !Calculate N-S divergence.\n    !-------------------------\n\n    ! No polar cap. (ccc, 8/3/10)\n    !do ij = j1p, j2p\n    !\n    !  dpi(i1:i2,ij,:) =\n    !    (ymass(i1:i2,ij,:) - ymass(i1:i2,ij+1,:)) * geofac(ij)\n    !\n    !end do\n    !\n    !if(j1p.ne.2) then\n    !  dpi(:,2,:) = 0.\n    !  dpi(:,j2-1,:) = 0.\n    !endif\n\n    !do ij = j1p_w, j2p_w\n    do ij = j1p, j2p-1\n\n       dpi(i1:i2,ij,:) = (ymass(i1:i2,ij,:) - ymass(i1:i2,ij+1,:)) * geofac(ij)\n\n    end do\n\n    !-----lzh-----------------------\n    !!===========================\n    !call Do_Divergence_Pole_Sum &\n    !!===========================\n    !  (do_reduction, geofac_pc, dpi, ymass)\n    ! comment out for nested NA (lzh, 07/20/2010)\n    !dpi(:,1,:) = 0.  ! (lzh, 07/20/2010)\n    !qpi(:,j2,:) = 0.\n\n    !-------------------------\n    !Calculate E-W divergence.\n    !-------------------------\n\n    do ij = j1p,j2p\n       do il = i1, i2-1\n          dpi(il,ij,:) = dpi(il,ij,:) + xmass(il,ij,:) - xmass(il+1,ij,:)\n       end do\n       ! No periodicity. (ccc, 8/3/10)\n       !dpi(i2,ij,:) = dpi(i2,ij,:) + xmass(i2,ij,:) - xmass(1,ij,:)\n    end do\n\n  END SUBROUTINE Calc_Divergence\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Press_Terms\n!\n! !DESCRIPTION: Subroutine Set\\_Press\\_Terms sets the pressure terms.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Press_Terms &\n       (dap, dbk, pres1, pres2, delp1, delpm, pu)\n!\n! !INPUT PARAMETERS:\n!\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp), INTENT(IN)  :: dap  (k1:k2)\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp), INTENT(IN)  :: dbk  (k1:k2)\n\n    ! Surface pressure at t1 [hPa]\n    REAL(fp), INTENT(IN)  :: pres1(ilo:ihi, julo:jhi)\n\n    ! Surface pressure at t1+tdt [hPa]\n    REAL(fp), INTENT(IN)  :: pres2(ilo:ihi, julo:jhi)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Pressure thickness, the psudo-density in a\n    ! hydrostatic system at t1 [hPa]\n    REAL(fp), INTENT(OUT) :: delp1(ilo:ihi, julo:jhi, k1:k2)\n\n    ! Pressure thickness, the psudo-density in a\n    ! hydrostatic system at t1+tdt/2 (approximate)  [hPa]\n    REAL(fp), INTENT(OUT) :: delpm(ilo:ihi, julo:jhi, k1:k2)\n\n    ! Pressure at edges in \"u\" [hPa]\n    REAL(fp), INTENT(OUT) :: pu   (ilo:ihi, julo:jhi, k1:k2)\n!\n! !AUTHOR:\n!  Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: il, ij, ik\n    integer :: jst, jend\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    if (pr_diag) then\n       Write (6,*) 'Set_Press_Terms called by ', loc_proc\n    end if\n\n    do ik = k1, k2\n\n       delp1(:,:,ik) = dap(ik) + (dbk(ik) * pres1(:,:))\n\n       delpm(:,:,ik) = dap(ik) + &\n            (dbk(ik) * 0.5e+0_fp * (pres1(:,:) + pres2(:,:)))\n\n    end do\n\n    do ij = ju1, j2\n       do il = i1+1, i2\n          pu(il,ij,:) = 0.5e+0_fp * (delpm(il,ij,:) + delpm(il-1,ij,:))\n       end do\n\n       ! No periodicity. (ccc, 8/3/10)\n       !pu(i1,ij,:) = 0.5e+0_fp * (delpm(i1,ij,:) + delpm(i2,ij,:))\n\n    end do\n\n  END SUBROUTINE Set_Press_Terms\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xpavg\n!\n! !description: Subroutine Xpavg replaces each element of a vector with\n!  the average of the entire array. (bmy, 5/7/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE XPAVG( P, IM )\n!\n! !USES:\n!\n    USE ERROR_MOD, ONLY : ERROR_STOP\n!\n! !INPUT PARAMETERS:\n!\n    ! Dimension of P\n    INTEGER,  INTENT(IN)    :: IM\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! 1-D vector to be averaged\n    REAL(fp), INTENT(INOUT) :: P(IM)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL                   :: AVG\n\n    !=================================================================\n    ! XPAVG begins here!\n    !=================================================================\n\n    ! Error check IM\n    IF ( IM == 0 ) THEN\n       CALL ERROR_STOP( 'Div by zero!', 'XPAVG (\"pjc_pfix_mod.F90\")' )\n    ENDIF\n\n    ! Take avg of entire P array\n    AVG  = SUM( P ) / DBLE( IM )\n\n    ! Store average value in all elements of P\n    P(:) = AVG\n\n  END SUBROUTINE XPAVG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_pjc_pfix\n!\n! !DESCRIPTION: INIT\\_PJC\\_PFIX_WINDOW allocates and initializes module arrays\n!  and variables.  GMI dimension variables will be used for compatibility with\n!  the Phil Cameron-Smith P-fixer. (bdf, bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_PJC_PFIX_WINDOW( State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,    ONLY   : ALLOC_ERR,   ERROR_STOP\n    USE PhysConstants        ! Re, PI, etc...\n    USE PRESSURE_MOD, ONLY   : GET_AP,      GET_BP\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN ) :: State_Grid  ! Grid State object\n!\n! !AUTHOR:\n!   Brendan Field and Bob Yantosca (5/8/03)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: AS, I, J, L\n\n    !=================================================================\n    ! INIT_PJC_PFIX_WINDOW begins here!\n    !\n    ! Initialize dimensions for GMI pressure-fixer code\n    !=================================================================\n    IMP_NBORDER = 0\n    I1_GL       = 1\n    I2_GL       = State_Grid%NX\n    JU1_GL      = 1\n    JV1_GL      = 1\n    J2_GL       = State_Grid%NY\n    K1_GL       = 1\n    K2_GL       = State_Grid%NZ\n    ILO_GL      = I1_GL  - IMP_NBORDER\n    IHI_GL      = I2_GL  + IMP_NBORDER\n    JULO_GL     = JU1_GL - IMP_NBORDER\n    JVLO_GL     = JV1_GL - IMP_NBORDER\n    JHI_GL      = J2_GL  + IMP_NBORDER\n    I1          = I1_GL\n    I2          = I2_GL\n    JU1         = JU1_GL\n    JV1         = JV1_GL\n    J2          = J2_GL\n    K1          = K1_GL\n    K2          = K2_GL\n    ILO         = ILO_GL\n    IHI         = IHI_GL\n    JULO        = JULO_GL\n    JVLO        = JVLO_GL\n    JHI         = JHI_GL\n    ! No polar cap. (ccc, 8/3/10)\n    !J1P         = 3\n    J1P         = 1\n    J2P         = J2_GL - J1P + 1\n    ! Used only to check dimensions\n    ILAT        = J2_GL - JU1_GL + 1\n    ILONG       = I2_GL -  I1_GL + 1\n    IVERT       = K2_GL -  K1_GL + 1\n\n    ! To add a buffer zone to calculate p-fixer for nested grid\n    ! simulations. The p-fixer is not calculated for the edge boxes.\n    ! (lzh, ccc, 8/3/10)\n    BUFF_SIZE     = 2\n    I1_W          = I1_GL + BUFF_SIZE\n    I2_W          = I2_GL - BUFF_SIZE\n    JU1_W         = JU1_GL + BUFF_SIZE\n    J2_W          = J2_GL - BUFF_SIZE\n    J1P_W         = 1 + BUFF_SIZE\n    J2P_W         = J2_GL - J1P_W + 1\n\n    ! Error check longitude\n    IF ( ILONG /= State_Grid%NX ) THEN\n       CALL ERROR_STOP( 'Invalid longitude dimension ILONG!', &\n                        'INIT_PJC_FIX_WINDOW' )\n    ENDIF\n\n    ! Error check latitude\n    IF ( ILAT /= State_Grid%NY ) THEN\n       CALL ERROR_STOP( 'Invalid latitude dimension ILAT!', &\n                        'INIT_PJC_FIX_WINDOW' )\n    ENDIF\n\n    ! Error check altitude\n    IF ( IVERT /= State_Grid%NZ ) THEN\n       CALL ERROR_STOP( 'Invalid altitude dimension IVERT!', &\n                        'INIT_PJC_FIX_WINDOW' )\n    ENDIF\n\n    !=================================================================\n    ! Allocate module arrays (use dimensions from GMI code)\n    !=================================================================\n    ALLOCATE( AI( K1_GL-1:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'AI' )\n\n    ALLOCATE( BI( K1_GL-1:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'BI' )\n\n    ALLOCATE( DAP( K1_GL:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'DAP' )\n\n    ALLOCATE( DBK( K1_GL:K2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'DBK' )\n\n    ALLOCATE( CLAT_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CLAT_FV' )\n\n    ALLOCATE( COSE_FV( JU1_GL:J2_GL+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'COSE_FV' )\n\n    ALLOCATE( COSP_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'COSP_FV' )\n\n    ALLOCATE( DLAT_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'DLAT_FV' )\n\n    ALLOCATE( ELAT_FV( JU1_GL:J2_GL+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'ELAT_FV' )\n\n    ALLOCATE( GEOFAC( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'GEOFAC' )\n\n    ALLOCATE( GW_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'GW_FV' )\n\n    ALLOCATE( MCOR( I1_GL:I2_GL, JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'MCOR' )\n\n    ALLOCATE( REL_AREA( I1_GL:I2_GL, JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'REL_AREA' )\n\n    ALLOCATE( RGW_FV( JU1_GL:J2_GL ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'RGW_FV' )\n\n    ALLOCATE( SINE_FV( JU1_GL:J2_GL+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SINE_FV' )\n\n    !=================================================================\n    ! Initialize arrays and variables\n    !=================================================================\n\n    ! Grid box surface areas [m2]\n    DO J = JU1_GL, J2_GL\n    DO I =  I1_GL, I2_GL\n       MCOR(I,J) = State_Grid%Area_M2(I,J)\n    ENDDO\n    ENDDO\n\n    ! Hybrid grid vertical coords: Ai [hPa] and Bi [unitless]\n    DO L = K1_GL-1, K2_GL\n       AI(L) = GET_AP( L+1 )\n       BI(L) = GET_BP( L+1 )\n    ENDDO\n\n    ! Delta A [hPa] and Delta B [unitless]\n    DO L = K1_GL, K2_GL\n       !-------------------------------------------------------------\n       ! NOTE:, this was the original code.  But since AI is already\n       ! in hPa, we shouldn't need to multiply by PTOP again.  This\n       ! should only matter for the fvDAS fields.  Also, DBK needs\n       ! to be positive (bmy, 5/8/03)\n       !DAP(L) = ( AI(L) - AI(L-1) ) * PTOP\n       !DBK(L) = BI(L) - BI(L-1)\n       !-------------------------------------------------------------\n       DAP(L) = AI(L-1) - AI(L)\n       DBK(L) = BI(L-1) - BI(L)\n    ENDDO\n\n    ! Grid box center latitudes [radians]\n    DO J = JU1_GL, J2_GL\n       CLAT_FV(J) = State_Grid%YMid_R(1,J)\n    ENDDO\n\n    ! Longitude spacing\n    IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n       DLON_FV    = 2.0_fp * PI / 576.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n       DLON_FV    = 2.0_fp * PI / 1152.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n       DLON_FV    = 2.0_fp * PI / 2304.0_fp\n    ENDIF\n    \n    ! Latitude edge at south pole [radians]\n    !ELAT_FV(1) = -0.5e+0_fp * PI\n    IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n       ELAT_FV(1) = CLAT_FV(1) - 0.25_fp  * PI / 180.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n       ELAT_FV(1) = CLAT_FV(1) - 0.125_fp * PI / 180.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n       ELAT_FV(1) = CLAT_FV(1) - 0.0625_fp * PI / 180.0_fp\n    ENDIF\n\n    ! SIN and COS of lat edge at south pole [unitless]\n    !SINE_FV(1) = -1.e+0_fp\n    !COSE_FV(1) =  0.e+0_fp\n    ! for nested NA or EA (lzh, 07/20/2010)\n    SINE_FV(1) =  SIN( ELAT_FV(1) )\n    COSE_FV(1) =  COS( ELAT_FV(1) )\n\n    ! Latitude edges [radians] (w/ SIN & COS) at intermediate latitudes\n    DO J = JU1_GL+1, J2_GL  !2, State_Grid%NY\n       ELAT_FV(J) = 0.5e+0_fp * ( CLAT_FV(J-1) + CLAT_FV(J) )\n       SINE_FV(J) = SIN( ELAT_FV(J) )\n       COSE_FV(J) = COS( ELAT_FV(J) )\n    ENDDO\n\n    ! Latitude edge at North Pole [radians]\n    !ELAT_FV(J2_GL+1) = 0.5e+0_fp * PI\n    ! for nested NA or EA (lzh, 07/20/2010)\n    IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n       ELAT_FV(J2_GL+1) = CLAT_FV(J2_GL)+0.25_fp  * PI / 180.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n       ELAT_FV(J2_GL+1) = CLAT_FV(J2_GL)+0.125_fp * PI / 180.0_fp\n    ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n       ELAT_FV(J2_GL+1) = CLAT_FV(J2_GL)+0.0625_fp * PI / 180.0_fp\n    ENDIF\n\n    ! SIN of lat edge at North Pole\n    !SINE_FV(J2_GL+1) = 1.e+0_fp\n    ! for nested NA or EA (lzh, 07/20/2010)\n    SINE_FV(J2_GL+1) =  SIN( ELAT_FV(J2_GL+1) )\n    COSE_FV(J2_GL+1) =  COS( ELAT_FV(J2_GL+1) )\n\n    ! Latitude extent of South polar box [radians]\n    !DLAT_FV(1) = 2.e+0_fp * ( ELAT_FV(2) - ELAT_FV(1) )\n    ! comment out for nested NA or EA (lzh, 07/20/2010)\n\n    ! Latitude extent of boxes at intermediate latitudes [radians]\n    !DO J = JU1_GL+1, J2_GL-1  ! 2, State_Grid%NY-1\n    ! for nested NA or EA (lzh, 07/20/2010)\n    DO J = JU1_GL, J2_GL\n       DLAT_FV(J) = ELAT_FV(J+1) - ELAT_FV(J)\n    ENDDO\n\n    ! Latitude extent of North polar box [radians]\n    !DLAT_FV(J2_GL) = 2.e+0_fp * ( ELAT_FV(J2_GL+1) - ELAT_FV(J2_GL) )\n    ! comment out for nested NA or EA (lzh, 07/20/2010)\n\n    ! Other stuff\n    DO J = JU1_GL, J2_GL\n       GW_FV(J)   = SINE_FV(J+1) - SINE_FV(J)\n       COSP_FV(J) = GW_FV(J)     / DLAT_FV(J)\n       RGW_FV(J)  = 1.e+0_fp         / GW_FV(J)\n    ENDDO\n\n  END SUBROUTINE INIT_PJC_PFIX_WINDOW\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_pjc_pfix_window\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_PJC\\_PFIX\\_WINDOW deallocates all module\n!  arrays (bmy, 5/8/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_PJC_PFIX_WINDOW\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( AI       ) ) DEALLOCATE( AI       )\n    IF ( ALLOCATED( BI       ) ) DEALLOCATE( BI       )\n    IF ( ALLOCATED( CLAT_FV  ) ) DEALLOCATE( CLAT_FV  )\n    IF ( ALLOCATED( COSE_FV  ) ) DEALLOCATE( COSE_FV  )\n    IF ( ALLOCATED( COSP_FV  ) ) DEALLOCATE( COSP_FV  )\n    IF ( ALLOCATED( DAP      ) ) DEALLOCATE( DAP      )\n    IF ( ALLOCATED( DBK      ) ) DEALLOCATE( DBK      )\n    IF ( ALLOCATED( DLAT_FV  ) ) DEALLOCATE( DLAT_FV  )\n    IF ( ALLOCATED( ELAT_FV  ) ) DEALLOCATE( ELAT_FV  )\n    IF ( ALLOCATED( GEOFAC   ) ) DEALLOCATE( GEOFAC   )\n    IF ( ALLOCATED( GW_FV    ) ) DEALLOCATE( GW_FV    )\n    IF ( ALLOCATED( MCOR     ) ) DEALLOCATE( MCOR     )\n    IF ( ALLOCATED( REL_AREA ) ) DEALLOCATE( REL_AREA )\n    IF ( ALLOCATED( RGW_FV   ) ) DEALLOCATE( RGW_FV   )\n    IF ( ALLOCATED( SINE_FV  ) ) DEALLOCATE( SINE_FV )\n\n  END SUBROUTINE CLEANUP_PJC_PFIX_WINDOW\n!EOC\nEND MODULE PJC_PFIX_WINDOW_MOD\n"
  },
  {
    "path": "GeosCore/planeflight_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: planeflight_mod.F90\n!\n! !DESCRIPTION: Module PLANEFLIGHT\\_MOD contains variables and routines which\n!  are used to \"fly\" a plane through the GEOS-Chem model simulation.  This is\n!  useful for comparing model results with aircraft observations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE PLANEFLIGHT_MOD\n!\n! !USES:\n!\n  USE inquireMod,    ONLY : findFreeLUN\n  USE PRECISION_MOD       ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n! Prior to 5/12/16:\n! This routine does not work with the FlexChem implementation. We need to\n! rewrite this code to get the necessary information from KPP (mps, 5/12/16)\n!  PUBLIC  :: ARCHIVE_RXNS_FOR_PF\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  PUBLIC  :: CLEANUP_PLANEFLIGHT\n  PUBLIC  :: PLANEFLIGHT\n  PUBLIC  :: SETUP_PLANEFLIGHT\n  PUBLIC  :: SET_PLANEFLIGHT\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: AN_SETUP\n  PRIVATE :: INIT_PLANEFLIGHT\n  PRIVATE :: NOY_SETUP\n  PRIVATE :: READ_VARIABLES\n  PRIVATE :: READ_POINTS\n  PRIVATE :: RO2_SETUP\n  PRIVATE :: TEST_VALID\n  PRIVATE :: WRITE_VARS_TO_FILE\n!\n! !REMARKS:\n!  The quantities that are saved to disk by the planeflight diagnostic were\n!  requested by GEOS-Chem users.  If you would like to save out a new quantity,\n!  then you will have to make your own modifications in this module.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  !=================================================================\n  ! MODULE VARIABLES:\n  !\n  ! DO_PF       : Turn on the planeflight diagnostic? (T/F)\n  ! MAXVARS     : Maximum # of variables allowed\n  ! MAXPOINTS   : Maximum # of flight track points allowed\n  ! MAXREAC     : Maximum # of reactions allowed\n  ! MAXRO2      : Maximum # of RO2 constituents allowed\n  ! NPOINTS     : Number of flight track points\n  ! PPOINT      : Pointer to last measured output\n  ! PDATE       : Array of dates     at each flight point\n  ! PTIME       : Array of times     at each flight point\n  ! PTAU        : Array of TAU's     at each flight point\n  ! PLATTD      : Array of latitude  at each flight point\n  ! PLONGTD     : Array of longitude at each flight point\n  ! PPRESS      : Array of pressure  at each flight point\n  ! PTYPE       : Array of ID'#S     at each flight point\n  ! NPVAR       : # of var's to be saved at each flight point\n  ! PVAR        : Array of variable indices\n  ! PNAME       : Array of variable names corresponding to PVAR\n  ! NPREAC      : # of variables that are really rxns\n  ! PREAC       : Array of rxn index numbers\n  ! PRRATE      : Array of rxn rates for each entry in PREAC\n  ! JPREAC      : Array of j-rate rxn index numbers\n  ! NJPREAC     :  # of variables that are j-rate rxns\n  ! NRO2        : # number of RO2 constituents\n  ! PRO2        : Array of species that are RO2 const's\n  ! INFILENAME  : Name of input file defining the flight track\n  ! OUTFILENAME : Name of output file\n  !=================================================================\n\n  ! Logicals\n  LOGICAL                        :: DO_PF\n\n  ! Parameters\n  INTEGER,           PARAMETER   :: MAXVARS   = 800\n  INTEGER,           PARAMETER   :: MAXPOINTS = 100000\n  INTEGER,           PARAMETER   :: MAXREAC   = 50\n  INTEGER,           PARAMETER   :: MAXRO2    = 56\n  INTEGER,           PARAMETER   :: MAXAN     = 20\n  INTEGER,           PARAMETER   :: MAXNOY    = 20\n\n  ! For specifying flight track points\n  INTEGER                        :: NPOINTS\n  INTEGER                        :: PPOINT\n\n  ! For specifying date/time\n  INTEGER,           ALLOCATABLE :: PDATE(:)\n  INTEGER,           ALLOCATABLE :: PTIME(:)\n  REAL(fp),          ALLOCATABLE :: PTAU(:)\n\n  ! For specifying lat/lon/alt and ID type\n  REAL*4,            ALLOCATABLE :: PLATTD(:)\n  REAL*4,            ALLOCATABLE :: PLONGTD(:)\n  REAL*4,            ALLOCATABLE :: PPRESS(:)\n  REAL*4,            ALLOCATABLE :: POBS(:)\n  REAL*4,            ALLOCATABLE :: PTAMB(:)\n  REAL*4,            ALLOCATABLE :: PH2OMR(:)\n  REAL*4,            ALLOCATABLE :: PPOTTEMP(:)\n  REAL*4,            ALLOCATABLE :: PRH(:)\n  REAL*4,            ALLOCATABLE :: PGPSALT(:)\n  CHARACTER(LEN=7),  ALLOCATABLE :: PTYPE(:)\n\n  ! For specifying variables to save at each flight point\n  INTEGER                        :: NPVAR\n  INTEGER,           ALLOCATABLE :: PVAR(:)\n  CHARACTER(LEN=10), ALLOCATABLE :: PNAME(:)\n\n  ! For specifying rxns to save at each flight point\n  INTEGER                        :: NPREAC\n  INTEGER,           ALLOCATABLE :: PREAC(:)\n  REAL(fp),          ALLOCATABLE :: PRRATE(:,:,:,:)\n  ! and for photolysis reactions (j-rates)\n  INTEGER,           ALLOCATABLE :: JPREAC(:)\n  INTEGER                        :: NJPREAC\n\n  ! For rate of production\n  INTEGER                        :: NPROD\n  INTEGER,           ALLOCATABLE :: IPROD(:)\n\n  ! For specifying RO2 constituents at each flight point\n  INTEGER                        :: NPRO2\n  INTEGER                        :: PRO2(MAXRO2)\n\n  ! For specifying NOY constituents at each flight point\n  INTEGER                        :: NPNOY\n  INTEGER                        :: PNOY(MAXNOY)\n\n  ! For specifying AN constituents at each flight point\n  INTEGER                        :: NPAN\n  INTEGER                        :: P_AN(MAXAN)\n\n  ! Input/output file names\n  CHARACTER(LEN=255)             :: INFILENAME,  INF\n  CHARACTER(LEN=255)             :: OUTFILENAME, OUTF\n\n  ! Logical unit numbers\n  INTEGER                        :: IU_FILE\n  INTEGER                        :: IU_PLANE\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: setup_planeflight\n!\n! !DESCRIPTION: Subroutine SETUP\\_PLANEFLIGHT reads information from the\n!  input file in order to initialize the planeflight diagnostic.  Also\n!  calls INIT\\_PLANEFLIGHT to allocate and zero module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SETUP_PLANEFLIGHT( Input_Opt, State_Chm, State_Grid, &\n                                State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE FILE_MOD,           ONLY : FILE_EXISTS\n    USE FILE_MOD,           ONLY : IOERROR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : EXPAND_DATE\n    USE TIME_MOD,           ONLY : GET_NYMD\n    USE TIME_MOD,           ONLY : GET_NHMS\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  30 Jul 2002 - M. Evans    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n    LOGICAL            :: IS_OPEN\n    INTEGER            :: I,  IP,      N,   TEMP, LENGTH\n    INTEGER            :: RN, COUNTER, IOS, NYMD, NHMS\n    CHARACTER(LEN=6)   :: TYPE\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !=================================================================\n    ! SETUP_PLANEFLIGHT begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at Setup_Planeflight (located in GeosCore/planeflight_mod.f90)'\n\n    ! Assume that there is flight data for today\n    DO_PF   = .TRUE.\n\n    ! Find a free file LUN\n    IU_FILE = findFreeLun()\n\n    ! Get date & time\n    NYMD    = GET_NYMD()\n    NHMS    = GET_NHMS()\n\n    ! Copy file names to local variables\n    INF     = INFILENAME\n    OUTF    = OUTFILENAME\n\n    ! Replace any date & time tokens in the file names\n    CALL EXPAND_DATE( INF,  NYMD, NHMS )\n    CALL EXPAND_DATE( OUTF, NYMD, NHMS )\n\n    ! If we can't find a flighttrack file for today's date, return\n    IF ( .not. FILE_EXISTS( INF ) ) THEN\n       DO_PF = .FALSE.\n       RETURN\n    ENDIF\n\n    ! Echo info\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       WRITE( 6, 99    )\n       WRITE( 6, 100   ) TRIM( INF ), IU_FILE\n99     FORMAT( 'P L A N E   F L I G H T   D I A G N O S T I C' )\n100    FORMAT( /, 'SETUP_PLANEFLIGHT: Reading ',a, ' on unit ', i4 )\n       WRITE( 6, '(a)' )\n    ENDIF\n\n    ! Compute # of species and # of points & allocate arrays\n    CALL INIT_PLANEFLIGHT( Input_Opt, State_Grid, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Init_Planeflight!\"'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Return if there are no flight track points for today\n    IF ( NPOINTS == 0 ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( 6, '(a)' ) 'No flight track found for today!'\n       ENDIF\n       DO_PF = .FALSE.\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! Open file and read info\n    !=================================================================\n\n    ! Open input file\n    OPEN( IU_FILE, FILE=TRIM( INF ), IOSTAT=IOS )\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'setup_planeflight:1')\n\n    ! Read variables to be output -- sort into PVAR array by type\n    CALL READ_VARIABLES( Input_Opt, State_Chm, IU_FILE,   RC )\n\n    ! Read information about each point (date/time/lon/lat/alt)\n    CALL READ_POINTS( Input_Opt, State_Grid, State_Met, IU_FILE, RC)\n\n    ! Close the file\n    CLOSE( IU_FILE )\n\n    ! Set the pointer to the first record\n    PPOINT = 1\n\n    !=================================================================\n    ! Find the species # for all components of RO2 (fullchem only)\n    !=================================================================\n    CALL RO2_SETUP( Input_Opt, State_Chm, RC )\n\n    !=================================================================\n    ! Find the species # for all components of NOY (fullchem only)\n    !=================================================================\n    CALL NOY_SETUP( Input_Opt, State_Chm, RC )\n\n    !=================================================================\n    ! Find the species # for all components of AN (fullchem only)\n    !=================================================================\n    CALL AN_SETUP( Input_Opt, State_Chm, RC )\n\n    ! Fancy output\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    !=================================================================\n    ! Open today's plane.log file and write file header\n    !=================================================================\n\n    ! Close previously opened plane.log file\n    INQUIRE( IU_PLANE, OPENED=IS_OPEN )\n    IF( IS_OPEN ) CLOSE( IU_PLANE )\n\n    ! Close previously-opened file\n    CLOSE( IU_PLANE )\n\n    ! Find a free file LUN\n    IU_PLANE = findFreeLUN()\n\n    ! Open output file\n    OPEN( IU_PLANE, FILE=TRIM( OUTF ), STATUS='UNKNOWN', IOSTAT=IOS )\n\n    ! Error check\n    IF ( IOS /= 0 ) THEN\n       CALL IOERROR( IOS, IU_PLANE, 'setup_planeflight:1' )\n    ENDIF\n\n    ! Write header\n    IF ( Input_Opt%amIRoot ) THEN\n\n       WRITE( IU_PLANE, 110 ) 'POINT', 'TYPE',  'YYYYMMDD', 'HHMM', &\n                              'LAT',   'LON',   'PRESS',    'OBS', &\n                              'T-IND', 'P-IND', 'I-IND',    'J-IND', &\n                              ( PNAME(I), I=1,NPVAR )\n    ENDIF\n\n    ! FORMAT string\n#if   defined( TOMAS )\n110 FORMAT( A5,X,A7,X,A8,X,A4,X,A7,X,A7,X,A7,X,A10,X, &\n            A9,X,A3,X,A5,X,A5,X,250(a10,x) )\n#else\n110 FORMAT( A5,X,A7,X,A8,X,A4,X,A7,X,A7,X,A7,X,A10,X, &\n            A9,X,A3,X,A5,X,A5,X,250(a11,x) )\n#endif\n\n  END SUBROUTINE SETUP_PLANEFLIGHT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_variables\n!\n! !DESCRIPTION: Subroutine READ\\_VARIABLES reads the list of variables\n!  (chemical species, rxn rates, GMAO met fields, or GEOS-Chem species) to be\n!  printed out and sorts the information into the appropriate module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_VARIABLES( Input_Opt, State_Chm, IU_FILE, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE FILE_MOD,      ONLY : IOERROR\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Species_Mod,   ONLY : Species\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm  ! Chemistry State object\n    INTEGER,        INTENT(IN)  :: IU_FILE    ! Logical unit # for ASCII read\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  30 Jul 2002 - M. Evans    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL             :: IS_FULLCHEM\n    INTEGER             :: M, N, NUM, R, IK, IOS, nAdvect, P\n    INTEGER             :: PR, J, NF, FM\n    CHARACTER(LEN=255)  :: LINE, errMsg, thisLoc\n    CHARACTER(LEN=10)   :: PRODNAME\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! READ_VARIABLES begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Read_Variables (located in GeosCore/planeflight_mod.F90)'\n\n    ! Get fields from Input_Opt\n    IS_FULLCHEM = Input_Opt%ITS_A_FULLCHEM_SIM\n\n    ! Number of advected species\n    nAdvect     = State_Chm%nAdvect\n\n    ! Initialize pointer\n    SpcInfo => NULL()\n\n    ! Read four lines of header\n    DO N = 1, 4\n       READ( IU_FILE, '(a)', IOSTAT=IOS )\n       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'read_variables:1')\n    ENDDO\n\n    ! Read in the number of species to be output\n    ! Read in as I4 now for the number of variables we save (skim, 7/24/13)\n    READ( IU_FILE, '(i4)', IOSTAT=IOS ) NPVAR\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'read_variables:2' )\n\n    ! Read in a separation line\n    READ( IU_FILE, '(a)', IOSTAT=IOS )\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'read_variables:3' )\n\n    ! Echo to stdout\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a)' ) '   #    Species       PVAR'\n       WRITE( 6, '(a)' ) '-----------------------------'\n    ENDIF\n\n    !=================================================================\n    ! Sort variables by type; assign indices to PVAR, PREAC arrays\n    ! NOTE: Variables for which PVAR(N) = 0 will be skipped!\n    !=================================================================\n\n    ! Zero reaction counter\n    R = 0\n\n    ! Zero production counter\n    PR = 0\n\n    ! Loop over all variables\n    DO N = 1, NPVAR\n\n       ! Read each line\n       READ( IU_FILE, '(a)', IOSTAT=IOS ) LINE\n       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'read_variables:4')\n\n       ! Save the name of each variable into the global PNAME array\n       PNAME(N) = LINE(1:10)\n\n       ! We are searching for a ...\n       SELECT CASE ( LINE(1:4) )\n\n       !===========================================================\n       ! GEOS-CHEM tracer: listed as \"TRA_001\", etc.\n       ! PVAR offset: 100000\n       !===========================================================\n       CASE ( 'TRA_' )\n\n          ! Extract tracer # from the string\n          READ( LINE(5:14), '(i10)' ) NUM\n\n          ! Make sure the tracer # is valid!\n          IF ( NUM < 0 .or. NUM > nAdvect ) THEN\n             IF ( Input_Opt%amIRoot ) THEN\n                WRITE( errMsg, 100 ) TRIM( LINE )\n100             FORMAT( 'TRACER ', i4, ' is out of range!' )\n                CALL GC_ERROR( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          ! Save in PVAR -- add offset of 100000\n          PVAR(N) = 100000 + NUM\n\n#ifdef TOMAS\n       ! Add case matching for TOMAS microphysics rates (win, 7/28/09)\n       !===========================================================\n       ! GEOS-CHEM tracer: listed as \"TMS_001\", etc.\n       ! PVAR offset: 200000\n       !===========================================================\n       CASE ( 'TMS_' )\n\n          ! Extract tracer # from the string\n          READ( LINE(5:14), '(i10)' ) NUM\n\n          ! Make sure the tracer # is valid!\n          IF ( NUM < 0 .or. NUM > nAdvect ) THEN\n             IF ( Input_Opt%amIRoot ) THEN\n                WRITE( errMsg, 100 ) TRIM( LINE )\n                CALL GC_ERROR( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          ! Save in PVAR -- add offset of 200000\n          PVAR(N) = 200000 + NUM\n#endif\n\n       !===========================================================\n       ! GMAO met field: listed as \"GMAO_TEMP\", etc.\n       ! PVAR offset: 1000\n       !===========================================================\n       CASE ( 'GMAO' )\n\n          IF ( LINE == 'GMAO_TEMP'  ) PVAR(N) = 1001\n          IF ( LINE == 'GMAO_ABSH'  ) PVAR(N) = 1002\n          IF ( LINE == 'GMAO_SURF'  ) PVAR(N) = 1003\n          IF ( LINE == 'GMAO_PSFC'  ) PVAR(N) = 1004\n          IF ( LINE == 'GMAO_UWND'  ) PVAR(N) = 1005\n          IF ( LINE == 'GMAO_VWND'  ) PVAR(N) = 1006\n          IF ( LINE == 'GMAO_IIEV'  ) PVAR(N) = 1007\n          IF ( LINE == 'GMAO_JJEV'  ) PVAR(N) = 1008\n          IF ( LINE == 'GMAO_LLEV'  ) PVAR(N) = 1009\n          IF ( LINE == 'GMAO_RELH'  ) PVAR(N) = 1010\n          IF ( LINE == 'GMAO_PVRT'  ) PVAR(N) = 1011\n          IF ( LINE == 'GMAO_PSLV'  ) PVAR(N) = 1012\n          IF ( LINE == 'GMAO_AVGW'  ) PVAR(N) = 1013\n          IF ( LINE == 'GMAO_THTA'  ) PVAR(N) = 1014\n          IF ( LINE == 'GMAO_PRES'  ) PVAR(N) = 1015\n          IF ( LINE == 'GMAO_ICE00' ) PVAR(N) = 1100\n          IF ( LINE == 'GMAO_ICE10' ) PVAR(N) = 1101\n          IF ( LINE == 'GMAO_ICE20' ) PVAR(N) = 1102\n          IF ( LINE == 'GMAO_ICE30' ) PVAR(N) = 1103\n          IF ( LINE == 'GMAO_ICE40' ) PVAR(N) = 1104\n          IF ( LINE == 'GMAO_ICE50' ) PVAR(N) = 1105\n          IF ( LINE == 'GMAO_ICE60' ) PVAR(N) = 1106\n          IF ( LINE == 'GMAO_ICE70' ) PVAR(N) = 1107\n          IF ( LINE == 'GMAO_ICE80' ) PVAR(N) = 1108\n          IF ( LINE == 'GMAO_ICE90' ) PVAR(N) = 1109\n\n       !===========================================================\n       ! Column aerosol optical depths (same order as for FAST-J)\n       ! PVAR offset: 2000\n       !===========================================================\n       CASE ( 'AODC' )\n\n          IF ( LINE == 'AODC_SULF'  ) PVAR(N) = 2001\n          IF ( LINE == 'AODC_BLKC'  ) PVAR(N) = 2002\n          IF ( LINE == 'AODC_ORGC'  ) PVAR(N) = 2003\n          IF ( LINE == 'AODC_SALA'  ) PVAR(N) = 2004\n          IF ( LINE == 'AODC_SALC'  ) PVAR(N) = 2005\n          IF ( LINE == 'AODC_DUST'  ) PVAR(N) = 2006\n          IF ( LINE == 'AODC_TOT'   ) PVAR(N) = 2007\n\n       !===========================================================\n       ! Aerosol optical depths below the plane\n       ! (same order as for FAST-J)  PVAR offset: 3000\n       !===========================================================\n       CASE ( 'AODB' )\n\n          IF ( LINE == 'AODB_SULF'  ) PVAR(N) = 3001\n          IF ( LINE == 'AODB_BLKC'  ) PVAR(N) = 3002\n          IF ( LINE == 'AODB_ORGC'  ) PVAR(N) = 3003\n          IF ( LINE == 'AODB_SALA'  ) PVAR(N) = 3004\n          IF ( LINE == 'AODB_SALC'  ) PVAR(N) = 3005\n          IF ( LINE == 'AODB_DUST'  ) PVAR(N) = 3006\n          IF ( LINE == 'AODB_TOT'   ) PVAR(N) = 3007\n\n       !===========================================================\n       ! Hg(II) Partitioning - eds 10/27/11  PVAR offset: 4000\n       !===========================================================\n       CASE ( 'HG2_' )\n\n          IF ( LINE == 'HG2_FRACG'  ) PVAR(N) = 4001\n          IF ( LINE == 'HG2_FRACP'  ) PVAR(N) = 4002\n\n       !===========================================================\n       ! ISORROPIA/HETP H+, pH, water, and bisulfate (eam, 06/2015)\n       !===========================================================\n       CASE( 'ISOR' )\n\n          ! ISORROPIA H+ (mol/L):\n          IF ( LINE == 'ISOR_HPLUS' ) PVAR(N) = 5001\n          ! ISORROPIA pH (non-ideal system, so pH can be negative)\n          IF ( LINE == 'ISOR_PH'    ) PVAR(N) = 5002\n          ! ISORROPIA aerosol water (ug/m3 air)\n          IF ( LINE == 'ISOR_AH2O'  ) PVAR(N) = 5003\n          ! ISORROPIA bisulfate (mol/L):\n          IF ( LINE == 'ISOR_HSO4'  ) PVAR(N) = 5004\n\n       !===========================================================\n       ! Local time (eam, 06/2015)\n       !===========================================================\n       CASE( 'TIME' )\n\n          ! Local time:\n          IF ( LINE == 'TIME_LT' ) PVAR(N) = 6001\n\n       !===========================================================\n       ! Uptake coefficient for SOA formation (eam, 06/2015)\n       ! NOTE: This may not work\n       !===========================================================\n       CASE( 'GAMM' )\n\n          ! Skip if not full-chemistry\n          IF ( IS_FULLCHEM ) THEN\n\n             ! Increment reaction counter:\n             R = R + 1\n\n             IF ( LINE == 'GAMM_EPOX' ) THEN\n                PVAR(N)  = 22001\n                PREAC(R) = 22001\n\n             ELSE IF ( LINE == 'GAMM_IMAE' ) THEN\n                PVAR(N)  = 22002\n                PREAC(R) = 22002\n\n             ELSE IF ( LINE == 'GAMM_ISOPN' ) THEN\n                PVAR(N)  = 22003\n                PREAC(R) = 22003\n\n             ELSE IF ( LINE == 'GAMM_DHDN' ) THEN\n                PVAR(N)  = 22004\n                PREAC(R) = 22004\n\n             ELSE IF ( LINE == 'GAMM_GLYX' ) THEN\n                PVAR(N)  = 22005\n                PREAC(R) = 22005\n\n             ENDIF\n\n          ENDIF\n\n       !===========================================================\n       ! AQUEOUS AEROSOL properties (eam, 08/2015)\n       !===========================================================\n       CASE( 'AQAE' )\n\n          ! Aqueous aerosol radius (cm):\n          IF ( LINE == 'AQAER_RAD'  ) PVAR(N) = 7001\n          ! Aqueous aerosol surface area (cm2/cm3):\n          IF ( LINE == 'AQAER_SURF' ) PVAR(N) = 7002\n\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       ! This code needs to be updated to work with FlexChem (mps, 6/13/17)\n       !!===========================================================\n       !! Production rate of CSPEC species (molec/cm3/s)\n       !! (eam, 08/2015):\n       !!===========================================================\n       !CASE( 'PROD' )\n       !\n       !   ! Skip if not full chem:\n       !   IF ( IS_FULLCHEM ) THEN\n       !\n       !      ! Increment prod rate reaction counter:\n       !      PR = PR + 1\n       !\n       !      ! Initialize:\n       !      PRODNAME = ''\n       !\n       !      ! Extract species name:\n       !      PRODNAME = LINE(6:15)\n       !\n       !      ! Get family integer:\n       !      DO NF = 1, NFAMILIES\n       !         IF ( FAM_NAME(NF) == TRIM(PRODNAME) ) THEN\n       !            ! Loop through family members:\n       !            DO FM = 1, FAM_NMEM(NF)\n       !               ! Loop through JSPEC species:\n       !               DO J = 1, NSPEC(NCS)\n       !                  IF ( NAMEGAS(J) == FAM_MEMB(FM, NF) ) THEN\n       !                     IPROD(PR) = J\n       !                  ENDIF\n       !               ENDDO   ! CSPEC species\n       !            ENDDO   ! family members\n       !         ENDIF\n       !      ENDDO\n       !\n       !      PVAR(N) = 8000 + PR\n       !\n       !   ENDIF\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       ! Prior to 6/20/16:\n       ! This diagnostic does not work with the FlexChem implementation. We need\n       ! to rewrite it to get the necessary information from KPP (mps, 6/20/16)\n       !!===========================================================\n       !! Rxn rate: listed as \"REA_001\", etc.\n       !! PVAR offset: 10000\n       !!===========================================================\n       !CASE ( 'REA_' )\n       !\n       !   ! Skip if not full-chemistry\n       !   IF ( IS_FULLCHEM ) THEN\n       !\n       !      ! Increment rxn counter\n       !      R = R + 1\n       !\n       !      IF ( TRIM( LINE ) == 'REA_O1D' ) THEN\n       !\n       !         ! O1D is a special rxn, give it offset of 20000\n       !         PVAR(N)  = 20000\n       !         PREAC(R) = 20000\n       !\n       !      ELSE IF ( TRIM( LINE ) == 'REA_N2O5' ) THEN\n       !\n       !         ! N2O5 hydrolysis is another special rxn\n       !         ! give it an offset of 21000\n       !         PVAR(N)  = 21000\n       !         PREAC(R) = 21000\n       !\n       !      ELSE\n       !         !==================================================\n       !         ! NOTE: the reaction numbers listed in smv2.log\n       !         ! aren't really used to index rxns.  The\n       !         ! rxns get reordered.  Find the right rxn number,\n       !         ! which is stored in NOLDFNEW.  We assume only one\n       !         ! chemistry scheme. (mje, bmy, 8/1/03)\n       !         !==================================================\n       !\n       !         ! Extract tracer # from the string\n       !         READ( LINE(5:14), '(i10)' ) NUM\n       !\n       !         ! Initialize\n       !         PVAR(N)  = -999\n       !         PREAC(R) = -999\n       !\n       !         ! Search for proper rxn number\n       !         DO IK = 1, NMTRATE\n       !\n       !            ! Offset other reaction rates by 10000\n       !            IF ( NOLDFNEW(IK,1) == NUM ) THEN\n       !               PVAR(N)  = 10000 + IK\n       !               PREAC(R) = 10000 + IK\n       !               EXIT\n       !            ENDIF\n       !         ENDDO\n       !\n       !         ! Stop w/ error\n       !         IF ( PVAR(N) == -999 ) THEN\n       !            IF ( Input_Opt%amIRoot ) THEN\n       !               WRITE (6,*) 'Cant match up reaction number'\n       !               WRITE (6,*) NUM\n       !               WRITE (6,*) 'Is it the second line of the'\n       !               WRITE (6,*) 'Three body reaction'\n       !               WRITE (6,*) 'Stopping'\n       !            ENDIF\n       !            CALL GEOS_CHEM_STOP\n       !         ENDIF\n       !      ENDIF\n       !   ENDIF\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       ! 21/12/20 - TMS: access J-rates already stored in State_Diag\n       !===========================================================\n       ! J-rate Rxn rate: listed as \"JVL_001\", etc.\n       ! PVAR offset: 30000\n       !===========================================================\n       CASE ( 'JVL_' )\n\n         ! Skip if not full-chemistry\n         IF ( IS_FULLCHEM ) THEN\n\n            ! Increment rxn counter\n            R = R + 1\n\n           !==================================================\n           ! NOTE: JVL_??? is translated to indexes from FJX_j2j.dat\n           !==================================================\n\n           ! Extract tracer # from the string\n           READ( LINE(5:14), '(i10)' ) NUM\n\n           ! Initialize\n           PVAR(N)   = -999\n           JPREAC(R) = -999\n           P         = -999         ! GEOS-Chem photolyis species ID\n\n           ! Loop the reaciton branches and find the correct \"P\" index\n           DO IK = 1, State_Chm%Phot%nMaxPhotRxns\n\n               ! GC photolysis species index\n               P = State_Chm%Phot%GC_Photo_Id(NUM)\n\n               ! If this FAST_JX photolysis species maps to a valid\n               ! GEOS-Chem photolysis species (for this simulation)...\n               IF ( P > 0 ) THEN\n\n               ! Archive the instantaneous photolysis rate\n               ! (summing over all reaction branches)\n                   IF ( IK == P ) THEN\n                      PVAR(N)  = 30000 + IK\n                      JPREAC(R) = 30000 + IK\n                      EXIT\n                   ENDIF\n               ENDIF\n             ENDDO\n\n           ! Stop w/ error\n           IF ( PVAR(N) == -999 ) THEN\n               IF ( Input_Opt%amIRoot ) THEN\n                  WRITE ( errMsg, 105 ) NUM, P\n105               FORMAT( 'Cant match up J-rate reaction number', 2i6 )\n                  CALL GC_ERROR( errMsg, RC, thisLoc )\n                  RETURN\n               ENDIF\n           ENDIF\n\n         ENDIF\n\n       !===========================================================\n       ! Species: listed as \"O3\", \"C2H6\", etc.\n       ! PVAR offset: 0\n       !===========================================================\n       CASE DEFAULT\n\n          ! Loop over all species\n          ! match w/ species as read from disk\n          DO M = 1, State_Chm%nSpecies\n\n             ! Get info about this species from the species database\n             SpcInfo => State_Chm%SpcData(M)%Info\n\n             IF ( TRIM( SpcInfo%Name ) == TRIM( LINE ) ) THEN\n                PVAR(N) = M\n                EXIT\n             ENDIF\n\n             ! Free pointer\n             SpcInfo => NULL()\n\n          ENDDO\n\n          ! Skip if not full-chemistry\n          IF ( IS_FULLCHEM ) THEN\n\n             ! Special flag for RO2 species\n             IF ( TRIM( LINE ) == 'RO2' ) PVAR(N) = 999\n\n             ! Special flag for AN species FP\n             IF ( TRIM( LINE ) == 'AN' ) PVAR(N) = 998\n\n             ! Special flag for NOy species FP\n             IF ( TRIM( LINE ) == 'NOy' ) PVAR(N) = 997\n          ENDIF\n\n          ! Error check\n          IF ( PVAR(N) == 0 ) THEN\n             IF ( Input_Opt%amIRoot ) THEN\n                WRITE( errMsg, 110 ) PVAR(N)\n110             FORMAT( 'Species ', i5, ' not found!' )\n                CALL GC_Error( errMsg, RC, thisLoc )\n             ENDIF\n          ENDIF\n\n       END SELECT\n\n       ! Echo species names/numbers to screen\n       WRITE( 6, 120 ) N, TRIM( LINE ), PVAR(N)\n120    FORMAT( i4, 1x, a12, 1x, i10 )\n\n    ENDDO\n\n  END SUBROUTINE READ_VARIABLES\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_points\n!\n! !DESCRIPTION: Subroutine READ\\_POINTS reads the information (ID, date, time,\n!  lat, lon, pressure) for each measurement listed in the input file, and\n!  sorts these into the appropriate module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_POINTS( Input_Opt, State_Grid, State_Met, IU_FILE, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE FILE_MOD,           ONLY : IOERROR\n    USE GC_GRID_MOD,        ONLY : GET_IJ\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Ncdf_Mod,           ONLY : GET_TAU0\n    USE PhysConstants,      ONLY : g0\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)  :: IU_FILE     ! Logical unit # of file\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  30 Jul 2002 - M. Evans    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: N, IOS, QYY, QMM, QDD, QHH, QMN\n    REAL*4             :: LAT, LON, PRES, OBS\n    REAL*4             :: TAMB, H2OMR, POTTEMP, GPSALT\n    CHARACTER(LEN=7)   :: TYPE\n    CHARACTER(LEN=7)   :: NAME\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    ! ajt for CCGG\n    INTEGER            :: IJ(2), L, L_ALT\n    REAL(fp)           :: MOD_ELEV\n\n    !=================================================================\n    ! READ_POINTS begins here!\n    !=================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Read_Points (located in GeosCore/planeflight_mod.F90)'\n\n    ! Read 4 header lines\n    DO N = 1, 4\n       READ( IU_FILE, '(a)', IOSTAT=IOS )\n       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'read_points:1' )\n    ENDDO\n\n    !=================================================================\n    ! Read plane track points -- plane, lat/lon/alt, date/time\n    ! We have previously computed NPOINTS in INIT_PLANEFLIGHT\n    !=================================================================\n    DO N = 1, NPOINTS\n\n       ! Read a line from the file\n       READ( IU_FILE, 100, IOSTAT=IOS ) &\n            TYPE, QDD, QMM, QYY, QHH, QMN, LAT, LON, PRES, OBS\n100    FORMAT( 5x,a7,x,i2,x,i2,x,i4,x,i2,x,i2,x,f7.2,x,f7.2,x,f7.2,x,f10.3 )\n\n       ! Error check\n       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'read_points:2' )\n\n       ! Exit if the word END is found\n       IF ( INDEX( TYPE, 'END' ) > 0 ) EXIT\n\n       !==============================================================\n       ! Read date and time coordinates -- also do error checks\n       !==============================================================\n\n       ! Error check MONTH\n       IF ( QMM < 1 .or. QMM > 12 ) THEN\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( errMsg, 105 ) QMM\n105          FORMAT( 'ERROR: MONTH out of range: ', i3 )\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n       ENDIF\n\n       ! Error check DAY\n       IF ( QDD < 1 .or. QDD > 31 ) THEN\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( errMsg, 110 ) QDD\n110          FORMAT( 'ERROR: DAY out of range: ', i3 )\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n       ENDIF\n\n       ! Error check HOUR\n       IF ( QHH < 0 .or. QHH > 23 ) THEN\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( errMsg, 115 ) QHH\n115          FORMAT( 'ERROR: HOUR out of range: ', i3 )\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n       ENDIF\n\n       ! Error check MINUTES\n       IF ( QMN < 0 .or. QMN > 59 ) THEN\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( errMsg, 120 ) QMN\n120          FORMAT( 'ERROR: MINUTES out of range: ', i3 )\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n       ENDIF\n\n       ! Store type in the global PTYPE array\n       PTYPE(N) = TYPE\n\n       ! Store YYYYMMDD in the global PDATE array\n       PDATE(N) = ( QYY * 10000 ) + ( QMM * 100 ) + QDD\n\n       ! Store HHMMSS in the global PTIME array\n       ! (actaully we read in just HHMM, assume seconds = 00)\n       PTIME(N) = ( QHH * 100 ) + QMN\n\n       ! Store TAU (hours since 1 Jan 1985) in the global PTAU array\n       PTAU(N)  = GET_TAU0( QMM, QDD, QYY, QHH, QMN, 0 )\n\n       !==============================================================\n       ! Read lon/lat/alt coordinates -- also do error checks\n       !==============================================================\n\n       ! Put LONGITUDE in the range [-180...180]\n       IF ( LON > 180.0 ) LON = LON - 360e0\n\n       ! Error check LONGITUDE\n       IF ( LON < -180.0 .OR. LON > 180.0 ) THEN\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( errMsg, 125 ) LON\n125          FORMAT( 'ERROR: Longitude out of range: ', f8.3 )\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n       ENDIF\n\n       ! Error check LATITUDE\n       IF ( LAT < -90.0 .OR. LAT > 90.0 ) THEN\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( errMsg, 130 ) LAT\n130          FORMAT( 'ERROR: Latitude out of range: ', f8.3 )\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n       ENDIF\n\n       ! Skip observations outside the domain\n       IF ( LAT < State_Grid%YMin .OR. LAT > State_Grid%YMax .OR. &\n            LON < State_Grid%XMin .OR. LON > State_Grid%XMax ) THEN\n          IF ( Input_Opt%amIRoot ) &\n               PRINT*, ' Outside nested domain, skipping record ', N\n          CYCLE\n       ENDIF\n\n       ! Convert from altitude to pressure if we have CCCG data or\n       ! tower data\n       NAME = ADJUSTL(PTYPE(N))\n       IF ( NAME(1:1)  .EQ. 'S'      .OR. & ! NOAA Surface\n            TRIM(NAME) .EQ. 'Aacg'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Abne'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Acar'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Acma'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Acrv'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Adnd'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Aesp'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Aetl'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Ahil'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Ahip'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Alef'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Anha'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Apfa'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Arta'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Asca'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Asgp'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Atgc'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Athd'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Awbi'   .OR. & ! NOAA Aircraft\n            TRIM(NAME) .EQ. 'Tamt'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tbao'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tcrv'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tlef'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tlew'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tmbo'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tmvy'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tmwo'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tnwr'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tsct'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tsgp'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Tstr'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Twbi'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Twgc'   .OR. & ! NOAA Tower\n            TRIM(NAME) .EQ. 'Twkt' ) THEN   ! NOAA Tower\n\n          ! Make sure it is the users intention for 'S' to represent\n          ! surface observations\n          IF ( NAME(1:1) .EQ. 'S' .and. Input_Opt%amIRoot ) THEN\n             errMsg = 'WARNING: Names beginning with \"S\" are '            // &\n                      'assumed to be NOAA Surface observations. '         // &\n                      'Vertical coordinates are assumed to be '           // &\n                      'altitude and will be converted to pressure. '      // &\n                      'In routine PLANEFLIGHT, L=1 is forced. '           // &\n                      'If this is intended, you may comment out the '     // &\n                      'call to GC_Error in routine '                      // &\n                      'READ_POINTS (planeflight_mod.F90). Otherwise,'     // &  \n                      'remove \"S\" from the IF statement in the same      '// &\n                      'location.'\n             CALL GC_Error( errMsg, RC, thisLoc )\n          ENDIF\n\n          ! Change units\n          ! NOTE: PHIS is now in units of [m], so we don't need to\n          ! divide by g0 again (see issue geoschem/geos-chem #531)\n          L_ALT = 0\n          IJ = GET_IJ( LON, LAT, State_Grid )\n          DO L = 1, State_Grid%NZ\n             MOD_ELEV = State_Met%PHIS(IJ(1),IJ(2))                         &\n                        + SUM( State_Met%BXHEIGHT(IJ(1),IJ(2),1:L) )\n             IF ( (L_ALT .EQ. 0)  .AND. (MOD_ELEV .GT. PRES) ) THEN\n                L_ALT = L\n             ENDIF\n          ENDDO\n          PRES = State_Met%PMID(IJ(1),IJ(2),L_ALT)\n       ENDIF\n\n       ! Assign LAT value into global PLATTD array\n       PLATTD(N) = LAT\n\n       ! Assign LON value into global PLONGTD array\n       PLONGTD(N) = LON\n\n       ! Assign PRES value into global PPRESS array\n       PPRESS(N) = PRES\n\n       ! Assign OBS value into global PPRESS array\n       POBS(N) = OBS\n\n    ENDDO\n\n    !=================================================================\n    ! Echo number of points found and quit\n    !=================================================================\n    IF ( Input_Opt%amIRoot ) WRITE( 6, 135 ) NPOINTS\n135 FORMAT( /, 'Number of flight track points : ', i6 )\n\n  END SUBROUTINE READ_POINTS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ro2_setup\n!\n! !DESCRIPTION: Subroutine RO2\\_SETUP saves the species indices of RO2\n!  constituents in the PRO2 array.  Also computes the count NPRO2.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RO2_SETUP( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Species_Mod,   ONLY : Species\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Aug 2003 - M. Evans    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: M\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! RO2_SETUP begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    NPRO2   =  0\n    SpcInfo => NULL()\n    errMsg  =  ''\n    thisLoc =  ' -> at RO2_Setup (located in GeosCore/planeflight_mod.F90)'\n\n    ! We only need to proceed for full-chemistry simulations\n    IF ( .not. Input_Opt%ITS_A_FULLCHEM_SIM ) RETURN\n\n    !=================================================================\n    ! Loop over all species, test for RO2 components\n    !=================================================================\n    DO M = 1, State_Chm%nSpecies\n\n       ! Get info about this species from the species database\n       SpcInfo => State_Chm%SpcData(M)%Info\n\n       ! If we have found an RO2 compoent, add its species # to\n       ! the PRO2 global array, and increment counter\n       ! NOTE: PO3 was a bug, that should have been PO2 (tmf, 2/10/09)\n       SELECT CASE( TRIM( SpcInfo%Name ) )\n\n       CASE ( 'HO2',     'MO2',      'A3O2',     'ATO2',    'B3O2',  &\n              'ETO2',    'HPALD1OO', 'HPALD2OO', 'ICHOO',            &\n              'GCO3',    'IAO2',     'KO2',      'MCO3',    'PO2',   &\n              'ACO3',    'EO2',      'ENCO3',    'ENO2',    'GLCO3', &\n              'ICNOO',   'IDHNBOO',  'IDHNDOO1', 'IDNOO',            &\n              'IDHNDOO2','IEPOXAOO', 'IEPOXBOO',                     &\n              'IHOO1',   'IHOO4',    'IHPNBOO',  'IHPNDOO',          &\n              'IHPOO1',  'IHPOO2',   'IHPOO3',   'INO2B',            &\n              'INO2D',   'ISOPNOO1', 'ISOPNOO2', 'LIMO2',            &\n              'MACR1OO', 'MACRNO2',  'MCROHOO',  'PIO2',             &\n              'MVKOHOO', 'R4O2',     'R4N1',     'R4N2',             &\n              'C4HVP1',  'C4HVP2',                                   &\n              'BRO2',    'TRO2',     'XRO2',     'NRO2',             &\n              'NICO3',   'NIO2',     'PYPO2',    'RCO3')\n          NPRO2       = NPRO2 + 1\n          PRO2(NPRO2) = M\n\n       CASE DEFAULT\n          ! Nothing\n\n       END SELECT\n\n       ! Free pointer\n       SpcInfo => NULL()\n\n    ENDDO\n\n    ! Error check\n    IF ( NPRO2 > MAXRO2 ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          errMsg = 'NPRO2 exceeds maximum allowed value!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Echo number of points found and quit\n    !=================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) NPRO2\n100    FORMAT( 'Number of RO2 components      : ', i6 )\n    ENDIF\n\n  END SUBROUTINE RO2_SETUP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: noy_setup\n!\n! !DESCRIPTION: Subroutine NOY\\_SETUP saves the species indices of NOy\n!  constituents in the PNOY array.  Also computes the count NPNOY.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NOY_SETUP( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Species_Mod,   ONLY : Species\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Jun 2009 - F. Paulot   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: M\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! NOY_SETUP begins here!\n    !=================================================================\n\n    ! Initialize\n    NPNOY   =  0\n    SpcInfo => NULL()\n    RC = GC_SUCCESS\n    errMsg  =  ''\n    thisLoc =  ' -> at RO2_Setup (located in GeosCore/planeflight_mod.F90)'\n    ! We only need to proceed for full-chemistry simulations\n    IF ( .not. Input_Opt%ITS_A_FULLCHEM_SIM ) RETURN\n\n    !=================================================================\n    ! Loop over all species, test for NOY components\n    !=================================================================\n    DO M = 1, State_Chm%nSpecies\n\n       ! Get info about this species from the species database\n       SpcInfo => State_Chm%SpcData(M)%Info\n\n       SELECT CASE( TRIM( SpcInfo%Name ) )\n\n       CASE ( 'NO',  'NO2',   'NO3',  'HNO2', 'HNO4', 'HNO3', &\n              'PAN', 'PYPAN', 'MPAN', 'PPN')\n\n          NPNOY       = NPNOY + 1\n          PNOY(NPNOY) = M\n\n       CASE ( 'N2O5')\n\n          NPNOY       = NPNOY + 1\n          PNOY(NPNOY) = M\n\n          NPNOY       = NPNOY + 1\n          PNOY(NPNOY) = M\n\n       CASE DEFAULT\n          ! Nothing\n\n       END SELECT\n\n       ! Free pointer\n       SpcInfo => NULL()\n\n    ENDDO\n\n    ! Error check\n    IF ( NPNOY > MAXNOY ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          errMsg ='NPNOY exceeds maximum allowed value!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Echo number of points found and quit\n    !=================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) NPNOY\n100    FORMAT( 'Number of NOY components      : ', i6 )\n    ENDIF\n\n  END SUBROUTINE NOY_SETUP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: an_setup\n!\n! !DESCRIPTION: Subroutine AN\\_SETUP saves the species indices of AN\n!  constituents in the P\\_AN array.  Also computes the count NPAN.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AN_SETUP( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Species_Mod,   ONLY : Species\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  01 Jun 2009 - F. Paulot   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: M\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! AN_SETUP begins here!\n    !=================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n    NPAN    =  0\n    SpcInfo => NULL()\n    errMsg  =  ''\n    thisLoc =  ' -> at RO2_Setup (located in GeosCore/planeflight_mod.F90)'\n\n    ! We only need to proceed for full-chemistry simulations\n    IF ( .not. Input_Opt%ITS_A_FULLCHEM_SIM ) RETURN\n\n    !=================================================================\n    ! Loop over all species, test for AN components\n    !=================================================================\n    DO M = 1, State_Chm%nSpecies\n\n       ! Get info about this species from the species database\n       SpcInfo => State_Chm%SpcData(M)%Info\n\n       ! If we have found an AN component, add its species # to\n       ! the AN global array, and increment counter\n       SELECT CASE( TRIM( SpcInfo%Name ) )\n\n       CASE ( 'IHN1',   'IHN2',   'MVKN',  'INPD',   'R4N2',  &\n              'INPB',   'PROPNN', 'ETHLN', 'IDN',    'HONIT', &\n              'ITCN',   'ITHN',   'MCRHN', 'MCRHNB',          &\n              'MONITU', 'MONITS', 'PRPN',  'IHN3',   'IHN4' )\n\n          NPAN       = NPAN + 1\n          P_AN(NPAN) = M\n\n       CASE DEFAULT\n          ! Nothing\n\n       END SELECT\n\n       ! Free pointer\n       SpcInfo => NULL()\n\n    ENDDO\n\n    ! Error check\n    IF ( NPAN > MAXAN ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          errMsg = 'NPAN exceeds maximum allowed value!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Echo number of points found and quit\n    !=================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) NPAN\n100    FORMAT( 'Number of AN components       : ', i6 )\n    ENDIF\n\n  END SUBROUTINE AN_SETUP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: planeflight\n!\n! !DESCRIPTION: Subroutine PLANEFLIGHT saves concentrations to disk at\n!  locations corresponding to a flight track.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PLANEFLIGHT( Input_Opt,  State_Chm, State_Diag, &\n                          State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_MOD,       ONLY : NDUST, NAER\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Ncdf_Mod,           ONLY : GET_TAU0\n    USE OCEAN_MERCURY_MOD,  ONLY : Fg\n    USE OCEAN_MERCURY_MOD,  ONLY : OMMFp => Fp\n    USE PhysConstants,      ONLY : AIRMW, AVO, CONSVAP\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  When Planeflight is called, the State_Chm species concentrations have units\n!  of kg/kg dry.  Species units are stored in State_Chm%Spc_Units.  Therefore,\n!  some of the legacy unit conversions were incorrect but have now been\n!  fixed. -- Bob Yantosca, 30 Jul 2021\n!\n!  Also note: The calls to Convert_Spc_Units were not necessary, and have\n!  since been removed.  Direct unit conversions for kg/kg dry -> v/v dry\n!  and kg/kg dry -> molec/cm3 are now done, which are more computationally\n!  efficient.  -- Bob Yantosca, 27 Oct 2021\n!\n! !REVISION HISTORY:\n!  08 Jul 2002 - M. Evans - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE       :: FIRST = .TRUE.\n    LOGICAL             :: IS_FULLCHEM, LINTERP\n    INTEGER             :: I, J, L, M, N, R, PR, V, NUM\n    INTEGER             :: LL     !eds\n    INTEGER             :: IWV, ISPC, K\n    REAL(fp)            :: TK, PTAUS, PTAUE, CONSEXP, VPRESH2O, SAODnm\n    REAL(fp)            :: VARI(NPVAR)\n    LOGICAL             :: CHEMSTEP\n    REAL(f8)            :: FLTGMT   ! eam (06/2015)\n    REAL(f8)            :: XRH      ! MET field RH (eam, 08/2015)\n    CHARACTER(LEN=63)   :: OrigUnit\n    CHARACTER(LEN=7)    :: NAME\n    CHARACTER(LEN=255)  :: errMsg, thisLoc\n\n    ! Aerosol types: SULF, BLKC, ORGC, SALA, SALC\n    INTEGER             :: IND(5) = (/ 22, 29, 36, 43, 50 /)\n\n    ! Allow for more accurate computation of TAU (L. Schiferl, 1/12/15)\n    INTEGER             :: YEAR, MONTH, DAY, HOUR, MINUTE\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc      (:)\n    INTEGER,       POINTER :: IWVSELECT(:,:)\n    REAL*8,        POINTER :: ACOEF_WV (:)\n    REAL*8,        POINTER :: BCOEF_WV (:)\n    REAL(fp),      POINTER :: ODAER    (:,:,:,:,:)\n    REAL(fp),      POINTER :: ODMDUST  (:,:,:,:,:)\n\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: MISSING = -999.99999999e+0_fp  ! Missing data value\n    REAL(fp), PARAMETER :: TINY    = 1.e-36_fp            ! arbitary small # to\n                                                          !  avoid faulty output\n    ! Expand from 4 to 5 for Fast-JX\n    INTEGER, PARAMETER  :: IND999  = 4\n\n    REAL*8, PARAMETER   :: CRITRH  = 35.0e+0_fp\n\n    !=================================================================\n    ! PLANEFLIGHT begins here!\n    !=================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Get fields from Input_Opt\n    IS_FULLCHEM = Input_Opt%ITS_A_FULLCHEM_SIM\n\n    ! Return if there is no flighttrack data for today\n    IF ( .not. DO_PF ) RETURN\n\n    ! For error trapping\n    errMsg  = ''\n    thisLoc = ' -> at Planeflight (located in GeosCore/planeflight_mod.F90'\n\n    ! Initialize pointers\n    IWVSELECT => State_Chm%Phot%IWVSELECT   ! Indexes of requested WLs\n    ACOEF_WV  => State_Chm%Phot%ACOEF_WV    ! Coeffs for WL interpolation\n    BCOEF_WV  => State_Chm%Phot%BCOEF_WV    ! Coeffs for WL interpolation\n    ODAER     => State_Chm%Phot%ODAER       ! Aerosol optical depth\n    ODMDUST   => State_Chm%Phot%ODMDUST     ! Dust optical depth\n\n    ! Update from kyu (03/2015):\n    CHEMSTEP = ( MOD(GET_ELAPSED_SEC(), GET_TS_DIAG() ) == ( GET_TS_DIAG() / 2))\n\n    ! Get date & time values\n    YEAR   = GET_YEAR()\n    MONTH  = GET_MONTH()\n    DAY    = GET_DAY()\n    HOUR   = GET_HOUR()\n    MINUTE = GET_MINUTE()\n\n    !Determine if optical properties need interpolating\n    !The LUT wavelengths in IWVSELECT will match if no interpolation\n    !is needed. (output is only for the first requested wavelength)\n    !(DAR 10/2013)\n    IF(IWVSELECT(1,1).EQ.IWVSELECT(2,1)) THEN\n       LINTERP=.FALSE.\n    ELSE\n       LINTERP=.TRUE.\n    ENDIF\n\n    ! Loop over all the locations that have not yet been found\n    DO M = PPOINT, NPOINTS\n\n       ! Starting & end times of transport timestep\n       PTAUE = GET_TAU0( MONTH, DAY, YEAR, HOUR, MINUTE, 0 )\n       ! Modification from kyu (eam, 03/2015)\n       !PTAUS = PTAUE - ( GET_TS_DIAG() / 3600e+0_fp )\n       ! If we just finished a chemistry timestep, write out one full\n       ! diagnostic timestep's worth of data\n       IF ( CHEMSTEP ) THEN\n          PTAUS = PTAUE - ( GET_TS_DIAG() / 3600d0 )\n          ! Otherwise write out only half a timestep's worth of data\n       ELSE\n          ! Flush the last timestep to the output file (bmy, 3/28/19)\n          ! NOTE: Luke Schiferl pointed out we should test against\n          ! 86400 seconds instead of GET_TS_DIAG*1440.  GET_TS_DIAG\n          ! by now is already in seconds and 1440 is minutes/day,\n          ! so there's a mismatch.  This caused planeflight data\n          ! for the last timestep of a day not to be written out.\n          IF (MOD(GET_ELAPSED_SEC(), 86400) == 0) THEN\n             PTAUS = PTAUE - ( GET_TS_DIAG() / (2.0 * 3600d0) )\n          ELSE\n             EXIT\n          ENDIF\n       ENDIF\n\n       ! Initialize VARI to missing value for this point\n       DO V = 1, NPVAR\n          VARI(V) = MISSING\n       ENDDO\n\n       !==============================================================\n       ! We haven't found the first plane point yet...\n       !==============================================================\n       IF ( PTAU(M) < PTAUS ) THEN\n\n          ! Write all missing values to disk for point #M\n          CALL WRITE_VARS_TO_FILE( Input_Opt, State_Grid, State_Met, M, VARI )\n\n          ! Increment pointer\n          PPOINT = PPOINT + 1\n\n       !==============================================================\n       ! We have already found all of the plane points...\n       !==============================================================\n       ! Ensure that a model comparison is made for this point\n       ! (skim, 7/24/13)\n       ELSE IF ( PTAU(M) > PTAUE ) THEN\n\n          ! Exit this loop and the subroutine\n          EXIT\n\n       !==============================================================\n       ! We have found a plane point at the proper time & location!\n       !==============================================================\n       ELSE\n\n          ! Print the flight track point number\n          WRITE( 6, 100 ) PTYPE(M), PDATE(M), PTIME(M)\n100       FORMAT( '     - PLANEFLIGHT: Archived ',a7,1x,i8.8,1x,i4.4 )\n\n          ! Return grid box indices for the chemistry region\n          CALL TEST_VALID( M, I, J, L, Input_Opt, State_Grid, State_Met, RC )\n\n          ! If this is a surface observation, force L=1\n          !\n          ! NOAA Surface observations start with 'S' in Planeflight.dat\n          ! Other surface observation strings can be added here\n          NAME = ADJUSTL(PTYPE(M))\n          IF ( NAME(1:1)  .EQ. 'S' ) THEN\n             L = 1\n          ENDIF\n\n          ! Initialize reaction counter\n          R = 0\n\n          ! Initialize production count:\n          PR = 0\n\n          ! Initialize GEOS-Chem species array\n          Spc => State_Chm%Species\n\n          ! Loop over all variables to save out\n          DO V = 1, NPVAR\n\n             ! Handle each variable\n             SELECT CASE ( PVAR(V) )\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Chemical species [mol/mol dry] or [molec/cm3]\n             !---------------------------------------------------------------\n             CASE ( 1:996 )\n\n                ! Only archive where chemistry is done\n                IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n                   ! Species concentration [v/v dry] -> [molec/cm3]\n                   N       = PVAR(V)\n                   VARI(V) = Spc(N)%Conc(I,J,L)                              &\n                           / AIRMW                                           &\n                           * State_Met%AIRDEN(I,J,L)                         &\n                           * AVO                                             &\n                           * 1.0e-3_fp\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! NOy family\n             !---------------------------------------------------------------\n             CASE ( 997 )\n\n                ! Only archive where chemistry is done\n                ! Sum all AN contributions, save as [v/v dry]\n                VARI(V) = 0e+0_fp\n\n                ! Species concentration is in [v/v dry]\n                IF ( IS_FULLCHEM .and. State_Met%InChemGrid(I,J,L) ) THEN\n                   DO N = 1, NPNOY\n                      VARI(V) = VARI(V) + Spc(PNOY(N))%Conc(I,J,L)\n                   ENDDO\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! AN family\n             !---------------------------------------------------------------\n             CASE ( 998 )\n\n                ! Only archive where chemistry is done\n                ! Sum all AN contributions, save as [v/v dry]\n                VARI(V) = 0e+0_fp\n\n                ! Species concentration is in [v/v dry]\n                IF ( IS_FULLCHEM .and. State_Met%InChemGrid(I,J,L) ) THEN\n                   DO N = 1, NPAN\n                      VARI(V) = VARI(V) + Spc(P_AN(N))%Conc(I,J,L)\n                   ENDDO\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! RO2 family\n             !---------------------------------------------------------------\n             CASE ( 999 )\n\n                ! Only archive where chemistry is done\n                ! Sum all RO2 contributions, save as [v/v dry]\n                VARI(V) = 0e+0_fp\n\n                ! Species concentration is in [v/v dry]\n                IF ( IS_FULLCHEM .and. State_Met%InChemGrid(I,J,L) ) THEN\n                   DO N = 1, NPRO2\n                      VARI(V) = VARI(V) + Spc(PRO2(N))%Conc(I,J,L)\n                   ENDDO\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! GMAO temperature [K]\n             !---------------------------------------------------------------\n             CASE ( 1001 )\n                VARI(V) = State_Met%T(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GMAO abs humidity [frac]\n             !---------------------------------------------------------------\n             CASE ( 1002 )\n\n                ! Only archive where chemistry is done\n                IF ( State_Met%InChemGrid(I,J,L) ) THEN\n                   VARI(V)  = State_Met%AVGW(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n                   TK       = State_Met%T(I,J,L)\n                   CONSEXP  = 17.2693882e+0_fp * &\n                              (TK - 273.16e+0_fp) / (TK - 35.86e+0_fp)\n\n                   VPRESH2O = CONSVAP * EXP(CONSEXP) * 1e+0_fp / TK\n\n                   VARI(V)  = VARI(V) * VPRESH2O / State_Met%AIRNUMDEN(I,J,L)\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! GMAO aerosol sfc area\n             !---------------------------------------------------------------\n             CASE ( 1003 )\n\n                ! Only archive where chemistry is done\n                VARI(V) = 0e+0_fp\n\n                IF ( State_Met%InChemGrid(I,J,L) ) THEN\n                   DO N = 1, NDUST + NAER\n                      VARI(V) = VARI(V) + State_Chm%AeroArea(I,J,L,N)\n                   ENDDO\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! GMAO sfc pressure [hPa]\n             !---------------------------------------------------------------\n             CASE ( 1004 )\n                VARI(V) = State_Met%PEDGE(I,J,1)\n\n             !---------------------------------------------------------------\n             ! GMAO U-wind and V-wind [m/s]\n             !---------------------------------------------------------------\n             CASE ( 1005 )\n                VARI(V) = State_Met%U(I,J,L)\n\n             CASE ( 1006 )\n                VARI(V) = State_Met%V(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Grid Box indices (I,J,L)\n             !---------------------------------------------------------------\n             CASE ( 1007 )\n                VARI(V) = I\n\n             CASE ( 1008 )\n                VARI(V) = J\n\n             CASE ( 1009 )\n                VARI(V) = L\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Relative Humidity [%]\n             !---------------------------------------------------------------\n             CASE ( 1010 )\n                VARI(V) = State_Met%RH(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Ertel's potential vorticity\n             !---------------------------------------------------------------\n             CASE ( 1011 )\n                ! Disable for now. State_Met%PV is not defined.\n                !VARI(V) = State_Met%PV(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Sea Level pressure [hPa]\n             !---------------------------------------------------------------\n             CASE ( 1012 )\n                VARI(V) = State_Met%SLP(I,J)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Water Vapor mixing ratio [v/v]\n             !---------------------------------------------------------------\n             CASE ( 1013 )\n                VARI(V) = State_Met%AVGW(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Potential Temp (Theta) [k]\n             !---------------------------------------------------------------\n             CASE ( 1014 )\n                VARI(V) = State_Met%THETA(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem Pressure at center of grid box [hPa]\n             !---------------------------------------------------------------\n             CASE ( 1015 )\n                VARI(V) = State_Met%PMID(I,J,L)\n\n             !---------------------------------------------------------------\n             ! GEOS-Chem SEAICE frac's\n             !---------------------------------------------------------------\n             CASE ( 1100 )\n                VARI(V) = State_Met%SEAICE00(I,J)\n             CASE ( 1101 )\n                VARI(V) = State_Met%SEAICE10(I,J)\n             CASE ( 1102 )\n                VARI(V) = State_Met%SEAICE20(I,J)\n             CASE ( 1103 )\n                VARI(V) = State_Met%SEAICE30(I,J)\n             CASE ( 1104 )\n                VARI(V) = State_Met%SEAICE40(I,J)\n             CASE ( 1105 )\n                VARI(V) = State_Met%SEAICE50(I,J)\n             CASE ( 1106 )\n                VARI(V) = State_Met%SEAICE60(I,J)\n             CASE ( 1107 )\n                VARI(V) = State_Met%SEAICE70(I,J)\n             CASE ( 1108 )\n                VARI(V) = State_Met%SEAICE80(I,J)\n             CASE ( 1109 )\n                VARI(V) = State_Met%SEAICE90(I,J)\n\n             !---------------------------------------------------------------\n             ! Column aerosol optical  depths [unitless]\n             !---------------------------------------------------------------\n             CASE ( 2001:2005 ) ! SULF, BLKC, ORGC, SALA, SALC\n\n                ! Remove MISSING flag\n                VARI(V) = 0e+0_fp\n\n                ! Aerosol number\n                N = PVAR(V) - 2000\n\n                IF ( .not. LINTERP ) THEN\n                   DO LL = 1, State_Grid%NZ\n                      ! Accumulate\n                      VARI(V) = VARI(V) + ODAER(I,J,LL,IWVSELECT(1,1),N)\n                   ENDDO\n                ELSE\n                   DO LL = 1, State_Grid%NZ\n                      ! Interpolated using angstrom exponent between\n                      ! Closest available wavelengths\n                      ! (coefs pre-calculated in CALC_AOD)\n                      !catch any zero values before interpolation\n                      IF ((ODAER(I,J,LL,IWVSELECT(2,1),N).GT.0).AND. &\n                          (ODAER(I,J,LL,IWVSELECT(1,1),N).GT.0)) THEN\n                         VARI(V) = VARI(V) + &\n                           (ODAER(I,J,LL,IWVSELECT(2,1),N)*ACOEF_WV(1)**   &\n                           (BCOEF_WV(1)*LOG(ODAER(I,J,LL,IWVSELECT(1,1),N)/&\n                           ODAER(I,J,LL,IWVSELECT(2,1),N))))\n                      ENDIF\n                   ENDDO\n                ENDIF\n\n             ! DUST\n             CASE ( 2006 )\n\n                ! Remove MISSING flag\n                VARI(V) = 0e+0_fp\n\n                IF ( .not. LINTERP ) THEN\n                   DO LL = 1, State_Grid%NZ\n                      DO ISPC = 1, NDUST\n                         ! Accumulate\n                         VARI(V) = VARI(V) + ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)\n                      ENDDO\n                   ENDDO\n                ELSE\n                   DO LL = 1, State_Grid%NZ\n                      ! Interpolated using angstrom exponent between\n                      ! Closest available wavelengths\n                      ! (coefs pre-calculated in CALC_AOD)\n                      !catch any zero values before interpolation\n                      DO ISPC = 1, NDUST\n                         IF ((ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC).GT.0).AND. &\n                             (ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC).GT.0)) THEN\n                          VARI(V) = VARI(V) + &\n                           (ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC)*ACOEF_WV(1)** &\n                           (BCOEF_WV(1)* &\n                           LOG(ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)/ &\n                               ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC))))\n                         ENDIF\n                      ENDDO\n                   ENDDO\n                ENDIF\n\n             CASE ( 2007 ) ! Total AOD = SULF+ORGC+BLKC+SALA+SALC+STRAT+DUST\n\n                ! Remove MISSING flag\n                VARI(V) = 0e+0_fp\n\n                ! Loop over RH bins\n                DO  ISPC= 1, NAER\n                   IF ( .not. LINTERP ) THEN\n                      DO LL = 1, State_Grid%NZ\n                         ! Accumulate\n                         VARI(V) = VARI(V) + ODAER(I,J,LL,IWVSELECT(1,1),ISPC)\n                      ENDDO\n                   ELSE\n                      DO LL = 1, State_Grid%NZ\n                         ! Interpolated using angstrom exponent between\n                         ! Closest available wavelengths\n                         ! (coefs pre-calculated in CALC_AOD)\n                         !catch any zero values before interpolation\n                         IF ((ODAER(I,J,LL,IWVSELECT(2,1),ISPC).GT.0).AND. &\n                             (ODAER(I,J,LL,IWVSELECT(1,1),ISPC).GT.0)) THEN\n                            VARI(V) = VARI(V) + &\n                            (ODAER(I,J,LL,IWVSELECT(2,1),ISPC)*ACOEF_WV(1)**   &\n                            (BCOEF_WV(1)*LOG(ODAER(I,J,LL,IWVSELECT(1,1),ISPC)/&\n                            ODAER(I,J,LL,IWVSELECT(2,1),ISPC))))\n                         ENDIF\n                      ENDDO\n                   ENDIF\n                ENDDO\n\n                !now add in the dust\n                IF ( .not. LINTERP ) THEN\n                   DO LL = 1, State_Grid%NZ\n                      DO ISPC = 1, NDUST\n                         ! Accumulate\n                         VARI(V) = VARI(V) + ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)\n                      ENDDO\n                   ENDDO\n                ELSE\n                   DO LL = 1, State_Grid%NZ\n                      ! Interpolated using angstrom exponent between\n                      ! Closest available wavelengths\n                      ! (coefs pre-calculated in CALC_AOD)\n                      !catch any zero values before interpolation\n                      DO ISPC = 1, NDUST\n                         IF ((ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC).GT.0).AND. &\n                             (ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC).GT.0)) THEN\n                          VARI(V) = VARI(V) + &\n                          (ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC)*ACOEF_WV(1)**   &\n                          (BCOEF_WV(1)*LOG(ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)/&\n                          ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC))))\n                         ENDIF\n                      ENDDO\n                   ENDDO\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! Aerosol optical depths\n             ! below plane [unitless]\n             !---------------------------------------------------------------\n             CASE ( 3001:3005 ) ! SULF, BLKC, ORGC, SALA, SALC\n\n                ! Remove MISSING flag\n                VARI(V) = 0e+0_fp\n\n                ! Aerosol number\n                N = PVAR(V) - 3000\n\n                IF ( .not. LINTERP ) THEN\n                   DO LL = 1, L\n                      ! Accumulate\n                      VARI(V) = VARI(V) + ODAER(I,J,LL,IWVSELECT(1,1),N)\n                   ENDDO\n                ELSE\n                   DO LL = 1, L\n                      ! Interpolated using angstrom exponent between\n                      ! Closest available wavelengths\n                      ! (coefs pre-calculated in CALC_AOD\n                      !catch any zero values before interpolation\n                      IF ((ODAER(I,J,LL,IWVSELECT(2,1),N).GT.0).AND. &\n                          (ODAER(I,J,LL,IWVSELECT(1,1),N).GT.0)) THEN\n                         VARI(V) = VARI(V) + &\n                           (ODAER(I,J,LL,IWVSELECT(2,1),N)*ACOEF_WV(1)**    &\n                           (BCOEF_WV(1)*LOG(ODAER(I,J,LL,IWVSELECT(1,1),N)/ &\n                           ODAER(I,J,LL,IWVSELECT(2,1),N))))\n                      ENDIF\n                   ENDDO\n                ENDIF\n\n             !DUST\n             CASE ( 3006 )\n\n                ! Remove MISSING flag\n                VARI(V) = 0e+0_fp\n\n                IF ( .not. LINTERP ) THEN\n                   DO LL = 1, L\n                      DO ISPC = 1, NDUST\n                         ! Accumulate\n                         VARI(V) = VARI(V) + ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)\n                      ENDDO\n                   ENDDO\n                ELSE\n                   DO LL = 1, L\n                      ! Interpolated using angstrom exponent between\n                      ! Closest available wavelengths\n                      ! (coefs pre-calculated in CALC_AOD\n                      !catch any zero values before interpolation\n                      DO ISPC = 1, NDUST\n                         IF ((ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC).GT.0).AND. &\n                             (ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC).GT.0)) THEN\n                          VARI(V) = VARI(V) + &\n                           (ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC)*ACOEF_WV(1)** &\n                           (BCOEF_WV(1)* &\n                           LOG(ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)/ &\n                               ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC))))\n                         ENDIF\n                      ENDDO\n                   ENDDO\n                ENDIF\n\n             CASE ( 3007 ) ! Total AOD = SULF+ORGC+BLKC+SALA+SALC+STRAT+DUST\n\n                ! Remove MISSING flag\n                VARI(V) = 0e+0_fp\n\n                ! Loop over RH bins\n                DO  ISPC= 1, NAER\n                   IF ( .not. LINTERP ) THEN\n                      DO LL = 1, L\n                         ! Accumulate\n                         VARI(V) = VARI(V) + ODAER(I,J,LL,IWVSELECT(1,1),ISPC)\n                      ENDDO\n                   ELSE\n                      DO LL = 1, L\n                         ! Interpolated using angstrom exponent between\n                         ! Closest available wavelengths\n                         ! (coefs pre-calculated in CALC_AOD)\n                         !catch any zero values before interpolation\n                         IF ((ODAER(I,J,LL,IWVSELECT(2,1),ISPC).GT.0).AND. &\n                             (ODAER(I,J,LL,IWVSELECT(1,1),ISPC).GT.0)) THEN\n                            VARI(V) = VARI(V) + &\n                            (ODAER(I,J,LL,IWVSELECT(2,1),ISPC)*ACOEF_WV(1)**   &\n                            (BCOEF_WV(1)*LOG(ODAER(I,J,LL,IWVSELECT(1,1),ISPC)/&\n                            ODAER(I,J,LL,IWVSELECT(2,1),ISPC))))\n                         ENDIF\n                      ENDDO\n                   ENDIF\n                ENDDO\n\n                !now add in the dust\n                IF ( .not. LINTERP ) THEN\n                   DO LL = 1, L\n                      DO ISPC = 1, NDUST\n                         ! Accumulate\n                         VARI(V) = VARI(V) + ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)\n                      ENDDO\n                   ENDDO\n                ELSE\n                   DO LL = 1, L\n                      ! Interpolated using angstrom exponent between\n                      ! Closest available wavelengths\n                      ! (coefs pre-calculated in CALC_AOD)\n                      !catch any zero values before interpolation\n                      DO ISPC = 1, NDUST\n                         IF ((ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC).GT.0).AND. &\n                             (ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC).GT.0)) THEN\n                          VARI(V) = VARI(V) + &\n                          (ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC)*ACOEF_WV(1)**   &\n                          (BCOEF_WV(1)*LOG(ODMDUST(I,J,LL,IWVSELECT(1,1),ISPC)/&\n                          ODMDUST(I,J,LL,IWVSELECT(2,1),ISPC))))\n                         ENDIF\n                      ENDDO\n                   ENDDO\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! Hg(II) partitioning eds 10/27/11\n             !---------------------------------------------------------------\n             CASE ( 4001 )\n                VARI(V) = FG(I,J,LL) !L+1 sample 4/24/12\n\n             CASE ( 4002 )\n                VARI(V) = OMMFP(I,J,LL) !L+1 sample 4/24/12\n\n             !---------------------------------------------------------------\n             ! ISORROPIA/HETP H+ and pH (eam, 06/2015)\n             !---------------------------------------------------------------\n             CASE( 5001 )\n                VARI(V) = State_Chm%IsorropHplus(I,J,L,1)\n\n             CASE( 5002 )\n                VARI(V) = State_Chm%IsorropAeropH(I,J,L,1)\n\n             CASE( 5003 )\n                VARI(V) = State_Chm%IsorropAeroH2O(I,J,L,1)\n\n             CASE( 5004 )\n                VARI(V) = State_Chm%IsorropBisulfate(I,J,L)\n\n             !---------------------------------------------------------------\n             ! Local Time (eam, 06/2015)\n             !---------------------------------------------------------------\n             CASE( 6001 )\n\n                ! Convert GMT from integer to real and\n                ! change format from HHMM to HH.MM:\n                FLTGMT = REAL(PTIME(M))*1.d-2\n\n                VARI(V) = GET_LOCALTIME(I,J,L,State_Grid,FLTGMT)\n\n             !---------------------------------------------------------------\n             ! Aqueous aerosol properties (eam, 08/2015)\n             !---------------------------------------------------------------\n             ! MET field relative humidity (%):\n                XRH = State_Met%RH( I, J, L )\n             CASE( 7001 )\n                VARI(V) = 0d0\n                ! Radius (cm):\n                IF ( XRH .gt. CRITRH ) THEN\n                   VARI(V) = State_Chm%AeroRadi(I,J,L,8)\n                ENDIF\n\n             CASE( 7002 )\n                VARI(V) = 0d0\n                ! Surface area (cm2/cm3):\n                IF ( XRH .gt. CRITRH ) THEN\n                   VARI(V) = State_Chm%AeroArea(I,J,L,8)\n                ENDIF\n\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             ! This code needs to be updated to work with FlexChem (mps,6/13/17)\n             !!--------------------------\n             !! Production rates (eam, 08/2015)\n             !!--------------------------\n             !CASE( 8001:8999 )\n             !\n             !   ! Increment reaction count:\n             !   PR = PR + 1\n             !\n             !   ! Production rate in molec/cm3/s:\n             !   ! Only archive where SMVGEAR chem is done\n             !   IF ( JLOOP /= 0 ) THEN\n             !      VARI(V) = CSPEC( JLOOP, IPROD(PR) )/CHEMINTV\n             !\n             !      ! Make small values as zero:\n             !      IF ( VARI(V) < TINY ) VARI(V) = 0d0\n             !\n             !      IF ( I .ge. 34 .and. I .le. 37 .and. &\n             !           J .ge. 60 .and. J .le. 64 .and. &\n             !           L .eq. 1 ) THEN\n             !         PRINT*, 'VARI = ', VARI(V)\n             !         PRINT*, 'CHEMINTV = ', CHEMINTV\n             !         PRINT*, 'CSPEC = ', CSPEC(JLOOP,IPROD(PR))\n             !         PRINT*, 'JLOOP,IPROD(PR),PR = ',JLOOP,IPROD(PR),PR\n             !      ENDIF\n             !   ENDIF\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             ! Prior to 5/12/16:\n             ! This diagnostic does not work with the FlexChem implementation.\n             ! We need to rewrite ARCHIVE_RXNS_FOR_PF to get the necessary\n             ! information from KPP (mps, 5/12/16)\n             !!--------------------------\n             !! Reaction rates\n             !!--------------------------\n             !CASE ( 10000:30000 )\n             !\n             !   ! Increment reaction count\n             !   R = R + 1\n             !             !   ! Only archive where chemistry is done\n             !   VARI(V) = PRRATE(I,J,L,R)\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n             !---------------------------------------------------------------\n             ! Photolysis reaction rates\n             !---------------------------------------------------------------\n             CASE ( 30001:99999 )\n\n               ! Increment reaction count\n               R = R + 1\n\n               ! Get the reaction number index from the\n               NUM = JPREAC(R) - 30000\n\n               ! Extract this reaction number from the state diag\n               ! NOTE: JValues collection must have been requested in HISTORY.rc\n               VARI(V) = State_Diag%JVal(I,J,L, NUM )\n\n             !---------------------------------------------------------------\n             ! GEOS-CHEM advected species [v/v dry]\n             !---------------------------------------------------------------\n             CASE( 100000:199999 )\n\n                ! Remove offset from PVAR\n                N       = PVAR(V) - 100000\n\n                ! Species concentration is in [v/v dry]\n                VARI(V) = Spc(N)%Conc(I,J,L)\n\n                IF ( VARI(V) < TINY ) VARI(V) = 0.0_fp\n\n             !---------------------------------------------------------------\n             ! Otherwise it's an error!\n             !---------------------------------------------------------------\n             CASE DEFAULT\n                IF ( Input_Opt%amIRoot ) THEN\n                   WRITE( errMsg, '(i6)' ) PVAR(V)\n                   errMsg = 'Bad variable: ' // TRIM( errMsg )\n                   CALL GC_Error( errMsg, RC, thisLoc )\n                   RETURN\n                ENDIF\n\n             END SELECT\n\n          ENDDO\n\n          ! Free pointer\n          Spc => NULL()\n\n          ! Write data for the Mth plane point out to disk\n          CALL WRITE_VARS_TO_FILE( Input_Opt, State_Grid, State_Met, M, VARI )\n\n          ! Increment the record pointer\n          PPOINT = PPOINT + 1\n\n       ENDIF\n    ENDDO\n\n    ! Free pointers\n    IWVSELECT => NULL()\n    ACOEF_WV  => NULL()\n    BCOEF_WV  => NULL()\n    ODAER     => NULL()\n    ODMDUST   => NULL()\n\n  END SUBROUTINE PLANEFLIGHT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: test_valid\n!\n! !DESCRIPTION: Subroutine TEST\\_VALID tests to see if we are w/in the\n!  tropopause, which is where chemistry is done.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TEST_VALID( IND, I, J, L, Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN ) :: IND         ! # of the flight track point\n    TYPE(OptInput), INTENT(IN ) :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN ) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN ) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: I           ! GEOS-Chem longitude index\n    INTEGER,        INTENT(OUT) :: J           ! GEOS-Chem latitude index\n    INTEGER,        INTENT(OUT) :: L           ! GEOS-Chem level index\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n\n!\n! !REVISION HISTORY:\n!  08 Jul 2002 - M. Evans - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: IL\n    LOGICAL :: FOUND\n\n    !=================================================================\n    ! TEST_VALID begins here!\n    !=================================================================\n\n    ! We have not found a valid point\n    FOUND = .FALSE.\n\n    ! Get I corresponding to PLONGTD(IND)\n    I = INT( ( PLONGTD(IND) + 180e+0_fp - &\n      ( State_Grid%XMinOffset * State_Grid%DX ) ) / State_Grid%DX + 1.5e+0_fp )\n\n    ! Handle date line correctly (bmy, 4/23/04)\n    IF ( I > State_Grid%nx ) I = I - State_Grid%NX\n\n    ! Get J corresponding to PLATTD(IND)\n    J = INT( ( PLATTD(IND) +  90e+0_fp - &\n      ( State_Grid%YMinOffset * State_Grid%DY ) ) / State_Grid%DY + 1.5e+0_fp )\n\n    ! Get L corresponding to PRESS(IND)\n    L = 1\n    DO IL = 1, State_Grid%NZ\n       IF ( State_Met%PEDGE(I,J,IL) <= PPRESS(IND) .AND..NOT. FOUND ) THEN\n          L     = IL-1\n          FOUND =.TRUE.\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Error check: L must be 1 or higher\n    IF ( L == 0 ) L = 1\n\n  END SUBROUTINE TEST_VALID\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: write_vars_to_file\n!\n! !DESCRIPTION: Subroutine WRITE\\_VARS\\_TO\\_FILE writes the values of all\n!  the variables for a given flight track point to the output file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WRITE_VARS_TO_FILE( Input_Opt, State_Grid, State_Met, IND, VARI )\n!\n! !USES:\n!\n    USE FILE_MOD,       ONLY : IOERROR\n    USE GC_GRID_MOD,    ONLY : GET_IJ\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt     ! Input options\n    TYPE(GrdState), INTENT(IN) :: State_Grid    ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met     ! Meteorology State object\n    INTEGER,        INTENT(IN) :: IND           ! # of the flight track point\n    REAL(fp),       INTENT(IN) :: VARI(NPVAR)   ! Values to print to file\n!\n! !REVISION HISTORY:\n!  08 Jul 2002 - M. Evans - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    INTEGER       :: I, IOS\n    INTEGER       :: IIJJ(2), II, JJ, L, LL\n    REAL*4        :: LON_TMP, LAT_TMP\n\n    !=================================================================\n    ! WRITE_VARS_TO_FILE begins here!\n    !=================================================================\n\n    LON_TMP = REAL(PLONGTD(IND),4)\n    LAT_TMP = REAL(PLATTD(IND),4)\n\n    ! Skip observations outside the domain\n    IF ( LAT_TMP < State_Grid%YMin .OR. &\n         LAT_TMP > State_Grid%YMax .OR. &\n         LON_TMP < State_Grid%XMin .OR. &\n         LON_TMP > State_Grid%XMax ) THEN\n       IF ( Input_Opt%amIRoot ) &\n            PRINT*, ' Outside nested domain, skipping record ', IND\n       RETURN\n    ENDIF\n\n    ! Get Lat, Lon, and Pressure indicies (ajt, 5/26/13)\n    IIJJ = GET_IJ( LON_TMP, LAT_TMP, State_Grid )\n    II = IIJJ(1)\n    JJ = IIJJ(2)\n    LL = 0\n    IF ( PPRESS(IND) .GT. State_Met%PEDGE(II,JJ,1) ) LL = 1\n    DO L = 1, State_Grid%NZ\n       IF ( ( PPRESS(IND) .LT. State_Met%PEDGE(II,JJ,L)   ) .AND. &\n            ( PPRESS(IND) .GT. State_Met%PEDGE(II,JJ,L+1) ) ) LL = L\n    ENDDO\n    IF (LL .EQ. 0) LL = State_Grid%NZ\n\n    ! Write data to file\n    WRITE( IU_PLANE, 110, IOSTAT=IOS )                            &\n           IND, PTYPE(IND), INT( PDATE(IND) ), INT( PTIME(IND) ), &\n           PLATTD(IND), PLONGTD(IND), PPRESS(IND), POBS(IND),          &\n           INT( GET_ELAPSED_SEC() / GET_TS_DYN() ), LL, II, JJ,   &\n           ( VARI(I), I=1,NPVAR )\n\n    ! Format string\n#ifdef TOMAS\n110 FORMAT(I5,X,A7,X,I8.8,X,I4.4,X,F7.2,X,F7.2,X,F7.2,X,F10.3, &\n           X,I9.9,X,I3.3,X,I5.5,X,I5.5,X,250(es11.3e3,x))\n#else\n110 FORMAT(I5,X,A7,X,I8.8,X,I4.4,X,F7.2,X,F7.2,X,F7.2,X,F10.3, &\n           X,I9.9,X,I3.3,X,I5.5,X,I5.5,X,250(es11.3e3,x))\n#endif\n\n    ! Error check\n    IF ( IOS /= 0 ) CALL IOERROR( IOS,IU_PLANE,'write_vars_to_file:1')\n\n    ! Flush the file to disk\n    CALL FLUSH( IU_PLANE )\n\n  END SUBROUTINE WRITE_VARS_TO_FILE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_planeflight\n!\n! !DESCRIPTION: Subroutine SET\\_PLANEFLIGHT is used to pass values read in\n!  from the GEOS-Chem input file to \"planeflight\\_mod.F90\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_PLANEFLIGHT( PF, IN_FILE, OUT_FILE )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,            INTENT(IN) :: PF         ! Turn on planeflight diag?\n    CHARACTER(LEN=255), INTENT(IN) :: IN_FILE    ! Input file to read\n    CHARACTER(LEN=255), INTENT(IN) :: OUT_FILE   ! Output file to write\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Save arguments to \"shadow\" module variables\n    DO_PF       = PF\n    INFILENAME  = TRIM( IN_FILE  )\n    OUTFILENAME = TRIM( OUT_FILE )\n\n  END SUBROUTINE SET_PLANEFLIGHT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_planeflight\n!\n! !DESCRIPTION: Subroutine INIT\\_PLANEFLIGHT reads the input file to compute\n!  the number of variables and flight track points to print out.  Also\n!  allocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_PLANEFLIGHT( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE FILE_MOD,       ONLY : IOERROR\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n! \n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  08 Jul 2002 - M. Evans - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL            :: IS_INIT = .FALSE.\n    INTEGER            :: N, IOS\n    CHARACTER(LEN=20)  :: LINE\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !=================================================================\n    ! INIT_PLANEFLIGHT begins here!\n    !=================================================================\n\n    ! Find a free file LUN\n    IU_FILE = findFreeLUN()\n\n    ! Open file\n    OPEN( IU_FILE, FILE=TRIM( INF ), IOSTAT=IOS )\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'init_planeflight:1' )\n\n    ! Read four lines of header\n    DO N = 1, 4\n       READ( IU_FILE, '(a)', IOSTAT=IOS )\n       IF ( IOS /= 0 ) CALL IOERROR( IOS,IU_FILE,'init_planeflight:2')\n    ENDDO\n\n    !=================================================================\n    ! Read in the number of variables to be output -- store in NPVAR\n    !=================================================================\n    ! Read in as I4 now for the number of variables we save (skim, 7/24/13)\n    READ( IU_FILE, '(i4)', IOSTAT=IOS ) NPVAR\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'init_planeflight:3' )\n\n    ! Make sure NPVAR is at least 1\n    IF ( NPVAR < 1 ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          errMsg = 'NPVAR cannot be zero or negative!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n    ENDIF\n\n    ! Make sure NPVAR is less than MAXVARS\n    IF ( NPVAR > MAXVARS ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          errMsg = 'NPVAR exceeds maximum allowed value!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n    ENDIF\n\n    ! Read in a separation line\n    READ( IU_FILE, '(a)', IOSTAT=IOS )\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'init_planeflight:4' )\n\n    ! Initialize chemistry reaction counter\n    NPREAC = 0\n    NJPREAC = 0\n\n    ! Initialize prod rate counter:\n    NPROD  = 0\n\n    ! Skip past the species declarations\n    DO N = 1, NPVAR\n       READ( IU_FILE, '(a)', IOSTAT=IOS ) LINE\n       IF ( IOS /= 0 ) CALL IOERROR( IOS,IU_FILE,'init_planeflight:5')\n\n       ! Increment number of chemistry reactions found\n       IF ( INDEX( LINE, 'REA_' ) > 0 ) NPREAC = NPREAC + 1\n       ! Now also add up the number of GAMMA values\n       IF ( INDEX( LINE, 'GAMM' ) > 0 ) NPREAC = NPREAC + 1\n       ! Count # of production rate outputs:\n       IF ( INDEX( LINE, 'PROD' ) > 0 ) NPROD  = NPROD  + 1\n       ! Increment number of photolysis reactions (j-rates) found\n       IF ( INDEX( LINE, 'JVL_' ) > 0 ) NJPREAC = NJPREAC + 1\n    ENDDO\n\n    ! Read 4 header lines\n    DO N = 1, 4\n       READ( IU_FILE, '(a)', IOSTAT=IOS )\n       IF ( IOS /= 0 ) CALL IOERROR( IOS,IU_FILE,'init_planeflight:6')\n    ENDDO\n\n    !=================================================================\n    ! Read plane track points -- plane, lat/lon/alt, date/time\n    !=================================================================\n    NPOINTS = 0\n\n    DO\n\n       ! Read a line from the file\n       READ( IU_FILE, '(a)', IOSTAT=IOS ) LINE\n\n       ! Exit at end of file\n       IF ( IOS < 0 ) EXIT\n       IF ( IOS > 0 ) CALL IOERROR( IOS,IU_FILE,'init_planeflight:7' )\n\n       ! Check for END\n       IF ( INDEX( LINE, 'END' ) == 0 ) THEN\n          NPOINTS = NPOINTS + 1\n       ELSE\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Close file\n    CLOSE( IU_FILE )\n\n    ! If there are no flight-track points then just return\n    IF ( NPOINTS < 1 ) THEN\n       DO_PF = .FALSE.\n       RETURN\n    ENDIF\n\n    ! Make sure NPOINTS is less than MAXPOINTS\n    IF ( NPOINTS > MAXPOINTS ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          errMsg = 'NPOINTS exceeds maximum allowed value!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Allocate arrays to maximum sizes\n    !\n    ! NOTE: To save space, NPREAC is the actual number of reactions\n    !       found.  We will worry about this later.  (bmy, 3/25/05)\n    !=================================================================\n    IF ( .not. IS_INIT ) THEN\n\n       !-------------------------\n       ! Arrays of size NPREAC\n       !-------------------------\n       ALLOCATE( PREAC( MAX( NPREAC, 1 ) ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PREAC', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PRRATE( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                         MAX( NPREAC, 1 ) ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PRRATE', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       !-------------------------\n       ! Arrays of size NJPREAC\n       !-------------------------\n       ALLOCATE( JPREAC( MAX( NJPREAC, 1 ) ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:JPREAC', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! ---------------------\n       ! Arrays of size NPROD\n       ! ---------------------\n       ALLOCATE( IPROD( MAX( NPROD, 1 ) ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:IPROD', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       !--------------------------\n       ! Arrays of size MAXVARS\n       !--------------------------\n       ALLOCATE( PVAR( MAXVARS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PVAR', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PNAME( MAXVARS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PNAME', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       !---------------------------\n       ! Arrays of size MAXPOINTS\n       !---------------------------\n       ALLOCATE( PTYPE( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PTYPE', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PDATE( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PDATE', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PTIME( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PTIME', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PTAU( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PTAUC', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PLATTD( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PLATTD', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PLONGTD( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PLONGTD', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( PPRESS( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:PPRESS', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ALLOCATE( POBS( MAXPOINTS ), STAT=RC )\n       CALL GC_CheckVar( 'planeflight_mod:POBS', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! Reset IS_INIT flag\n       IS_INIT = .TRUE.\n\n    ENDIF\n\n    !=================================================================\n    ! Initialize arrays\n    !=================================================================\n    PREAC  = 0\n    JPREAC = 0\n    NPROD  = 0\n    IPROD  = 0\n    PRRATE = 0e0\n    PVAR   = 0\n    PNAME  = ''\n    PTYPE  = ''\n    PDATE  = 0e0\n    PTIME  = 0e0\n    PTAU   = 0e0\n    PLATTD = 0e0\n    PLONGTD= 0e0\n    PPRESS = 0e0\n    POBS   = 0e0\n\n  END SUBROUTINE INIT_PLANEFLIGHT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_planeflight\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_PLANEFLIGHT deallocates all allocatable\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_PLANEFLIGHT\n!\n! !REVISION HISTORY:\n!  01 Jul 2001 - M. Evans - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( PVAR   ) ) DEALLOCATE( PVAR   )\n    IF ( ALLOCATED( PREAC  ) ) DEALLOCATE( PREAC  )\n    IF ( ALLOCATED( JPREAC ) ) DEALLOCATE( JPREAC )\n    IF ( ALLOCATED( IPROD  ) ) DEALLOCATE( IPROD  )\n    IF ( ALLOCATED( PNAME  ) ) DEALLOCATE( PNAME  )\n    IF ( ALLOCATED( PRRATE ) ) DEALLOCATE( PRRATE )\n    IF ( ALLOCATED( PTYPE  ) ) DEALLOCATE( PTYPE  )\n    IF ( ALLOCATED( PDATE  ) ) DEALLOCATE( PDATE  )\n    IF ( ALLOCATED( PTIME  ) ) DEALLOCATE( PTIME  )\n    IF ( ALLOCATED( PTAU   ) ) DEALLOCATE( PTAU   )\n    IF ( ALLOCATED( PLATTD ) ) DEALLOCATE( PLATTD   )\n    IF ( ALLOCATED( PLONGTD) ) DEALLOCATE( PLONGTD   )\n    IF ( ALLOCATED( PPRESS ) ) DEALLOCATE( PPRESS )\n    IF ( ALLOCATED( POBS   ) ) DEALLOCATE( POBS   )\n\n  END SUBROUTINE CLEANUP_PLANEFLIGHT\n!EOC\nEND MODULE PLANEFLIGHT_MOD\n"
  },
  {
    "path": "GeosCore/pops_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: pops_mod.F90\n!\n! !DESCRIPTION: Module POPS\\_MOD contains variables and routines for the\n!  GEOS-Chem peristent organic pollutants (POPs) simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE POPS_MOD\n!\n! !USES:\n!\n  USE PhysConstants    ! For physical constants\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: ChemPOPs\n  PUBLIC :: Init_POPs\n  PUBLIC :: Cleanup_POPs\n!\n! !REMARKS:\n!  POPs Tracers\n!  ============================================================================\n!  (1 ) POPG   : Gaseous POP - total tracer\n!  (2 ) POPPOC : OC-sorbed POP  - total tracer\n!  (3 ) POPPBC : BC-sorbed POP  - total tracer\n!\n! !REVISION HISTORY:\n!  20 Sep 2010 - N.E. Selin    - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  REAL(fp), PARAMETER  :: SMALLNUM  = 1e-20_fp\n\n  !=================================================================\n  ! MODULE VARIABLES\n  !=================================================================\n\n  ! Arrays\n  !=================================================================\n  ! TCOSZ     : Sum of COS(Solar Zenith Angle ) [unitless]\n  ! TTDAY     : Total daylight time at location (I,J) [minutes]\n  ! ZERO_DVEL : Array with zero dry deposition velocity [cm/s]\n  ! COSZM     : Max daily value of COS(S.Z. angle) [unitless]\n  !=================================================================\n  REAL(fp), ALLOCATABLE :: TCOSZ(:,:)\n  REAL(fp), ALLOCATABLE :: TTDAY(:,:)\n  REAL(fp), ALLOCATABLE :: ZERO_DVEL(:,:)\n  REAL(fp), ALLOCATABLE :: COSZM(:,:)\n\n  ! Pointers to fields in the HEMCO data structure.\n  ! These need to be declared REAL(f4), aka REAL*4.\n  ! NOTE: These are globally SAVEd pointers, so we can\n  ! nullify them in the declaration here (bmy, 4/29/16)\n  REAL(f4), POINTER     :: C_OC(:,:,:) => NULL()\n  REAL(f4), POINTER     :: C_BC(:,:,:) => NULL()\n  REAL(f4), POINTER     :: O3(:,:,:)   => NULL()\n  REAL(f4), POINTER     :: OH(:,:,:)   => NULL()\n!\n! !PRIVATE TYPES:\n!\n  ! Species ID flags\n  INTEGER,  PRIVATE     :: id_POPG\n  INTEGER,  PRIVATE     :: id_POPPBCPI\n  INTEGER,  PRIVATE     :: id_POPPBCPO\n  INTEGER,  PRIVATE     :: id_POPPOCPI\n  INTEGER,  PRIVATE     :: id_POPPOCPO\n\n  ! Species drydep ID flags\n  INTEGER,  PRIVATE     :: dd_POPG\n  INTEGER,  PRIVATE     :: dd_POPP_BCPI\n  INTEGER,  PRIVATE     :: dd_POPP_BCPO\n  INTEGER,  PRIVATE     :: dd_POPP_OCPI\n  INTEGER,  PRIVATE     :: dd_POPP_OCPO\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  chempops\n!\n! !DESCRIPTION: Subroutine CHEMPOPS is the driver routine for POPs chemistry\n!  (eck, 9/20/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEMPOPS( Input_Opt,  State_Chm, State_Diag, &\n                       State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,          ONLY : DEBUG_MSG\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_EmisList_Mod,   ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 September 2010 - N.E. Selin - Initial Version based on CHEMMERCURY\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    ! Pointers\n    REAL(fp),      POINTER  :: DepFreq(:,:,:  )\n\n    !=================================================================\n    ! CHEMPOPS begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at ChemPops (in module GeosCore/pops_mod.F90)'\n\n    ! Point to columns of derived-type object fields (hplin, 12/1/18)\n    DepFreq            => State_Chm%DryDepFreq\n\n    !-----------------------------------------------------------------\n    ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n    !\n    ! Because we need to sum the drydep from all levels in the PBL\n    ! into State_Diag%DryDepChm, we need to zero it at the start\n    ! of this routine.  This will avoid data from the last timestep\n    ! from being accumulated in the averaging. (bmy, 10/23/18)\n    !-----------------------------------------------------------------\n    IF ( State_Diag%Archive_DryDepChm .or. &\n         State_Diag%Archive_DryDep    ) THEN\n       State_Diag%DryDepChm = 0.0_f4\n    ENDIF\n\n    !=================================================================\n    ! Get pointers to fields that are read in by HEMCO.\n    ! These are global concentrations of OH, O3, OC, and BC.\n    !\n    ! NOTE: The HEMCO pointers will update with time, so we only need\n    ! to make this assignment on the first call to CHEMPOPS.\n    !=================================================================\n    IF ( FIRST ) THEN\n\n       ! OC\n       CALL HCO_GetPtr( HcoState, 'GLOBAL_OC', C_OC, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get pointer to GLOBAL_OC!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! BC\n       CALL HCO_GetPtr( HcoState, 'GLOBAL_BC', C_BC, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get pointer to GLOBAL_BC!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! OH\n       CALL HCO_GetPtr( HcoState, 'GLOBAL_OH', OH,   RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get pointer to GLOBAL_OC!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! O3\n       CALL HCO_GetPtr( HcoState, 'GLOBAL_O3', O3,   RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get pointer to GLOBAL_OC!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    !=================================================================\n    ! Perform chemistry on POPs tracers\n    !=================================================================\n\n    ! Compute diurnal scaling for OH\n    CALL OHNO3TIME( State_Grid )\n    IF ( Input_Opt%Verbose ) CALL DEBUG_MSG( 'CHEMPOPS: a OHNO3TIME' )\n\n    !-------------------------\n    ! GAS AND PARTICLE PHASE chemistry\n    !-------------------------\n    IF ( Input_Opt%Verbose ) CALL DEBUG_MSG( 'CHEMPOPS: b CHEM_GASPART' )\n\n    ! Add option for non-local PBL (cdh, 08/27/09)\n    IF ( Input_Opt%LNLPBL ) THEN\n\n       ! Dry deposition occurs with PBL mixing,\n       ! pass zero deposition frequency\n       CALL CHEM_POPGP( Input_Opt,  &\n                        State_Chm,  &\n                        State_Diag, &\n                        State_Grid, &\n                        State_Met,  &\n                        ZERO_DVEL,  &\n                        ZERO_DVEL,  &\n                        ZERO_DVEL,  &\n                        ZERO_DVEL,  &\n                        ZERO_DVEL,  &\n                        RC )\n\n    ELSE\n\n       ! For addition of hydrophilic OC/BC POP tracers: for now, assume that\n       ! if dry deposition of hydrophoblic tracers is active, then dry\n       ! deposition of hydrophilic tracers is also active\n       ! (ie., they're coupled). clf, 2/12/2012\n       IF ( dd_POPG      > 0 .and. &\n            dd_POPP_OCPO > 0 .and. &\n            dd_POPP_BCPO > 0 ) THEN\n\n          ! Dry deposition active for both POP-Gas and POP-Particle;\n          ! pass drydep frequency to CHEM_POPGP (NOTE: DepFreq has units 1/s)\n          CALL CHEM_POPGP( Input_Opt,                &\n                           State_Chm,                &\n                           State_Diag,               &\n                           State_Grid,               &\n                           State_Met,                &\n                           DepFreq(:,:,dd_POPG),      &\n                           DepFreq(:,:,dd_POPP_OCPO), &\n                           DepFreq(:,:,dd_POPP_OCPI), &\n                           DepFreq(:,:,dd_POPP_BCPO), &\n                           DepFreq(:,:,dd_POPP_BCPI), &\n                           RC)\n\n       ELSEIF ( dd_POPG      >  0 .and. &\n                dd_POPP_OCPO >  0 .and. &\n                dd_POPP_BCPO <= 0 ) THEN\n\n          ! Only POPG and POPP_OC dry deposition are active\n          CALL CHEM_POPGP( Input_Opt,                &\n                           State_Chm,                &\n                           State_Diag,               &\n                           State_Grid,               &\n                           State_Met,                &\n                           DepFreq(:,:,dd_POPG),      &\n                           DepFreq(:,:,dd_POPP_OCPO), &\n                           DepFreq(:,:,dd_POPP_OCPI), &\n                           ZERO_DVEL,                &\n                           ZERO_DVEL,                &\n                           RC )\n\n       ELSEIF ( dd_POPG      >  0 .and. &\n                dd_POPP_OCPO <= 0 .and. &\n                dd_POPP_BCPO >  0 ) THEN\n\n          ! Only POPG and POPP_BC dry deposition are active\n          CALL CHEM_POPGP( Input_Opt,                &\n                           State_Chm,                &\n                           State_Diag,               &\n                           State_Grid,               &\n                           State_Met,                &\n                           DepFreq(:,:,dd_POPG),      &\n                           ZERO_DVEL,                &\n                           ZERO_DVEL,                &\n                           DepFreq(:,:,dd_POPP_BCPO), &\n                           DepFreq(:,:,dd_POPP_BCPI), &\n                           RC )\n\n       ELSEIF ( dd_POPG      >  0 .and. &\n                dd_POPP_OCPO <= 0 .and. &\n                dd_POPP_BCPO <= 0 ) THEN\n\n          ! Only POPG dry deposition is active\n          CALL CHEM_POPGP( Input_Opt,           &\n                           State_Chm,           &\n                           State_Diag,          &\n                           State_Grid,          &\n                           State_Met,           &\n                           DepFreq(:,:,dd_POPG), &\n                           ZERO_DVEL,           &\n                           ZERO_DVEL,           &\n                           ZERO_DVEL,           &\n                           ZERO_DVEL,           &\n                           RC )\n\n       ELSEIF ( dd_POPG      <= 0 .and. &\n                dd_POPP_OCPO >  0 .and. &\n                dd_POPP_BCPO >  0 ) THEN\n\n          ! Only POPP dry deposition is active\n          CALL CHEM_POPGP( Input_Opt,                &\n                           State_Chm,                &\n                           State_Diag,               &\n                           State_Grid,               &\n                           State_Met,                &\n                           ZERO_DVEL,                &\n                           DepFreq(:,:,dd_POPP_OCPO), &\n                           DepFreq(:,:,dd_POPP_OCPI), &\n                           DepFreq(:,:,dd_POPP_BCPO), &\n                           DepFreq(:,:,dd_POPP_BCPI), &\n                           RC )\n\n       ELSEIF ( dd_POPG      <= 0 .and. &\n                dd_POPP_OCPO >  0 .and. &\n                dd_POPP_BCPO <= 0 ) THEN\n\n          ! Only POPP_OC dry deposition is active\n          CALL CHEM_POPGP( Input_Opt,                &\n                           State_Chm,                &\n                           State_Diag,               &\n                           State_Grid,               &\n                           State_Met,                &\n                           ZERO_DVEL,                &\n                           DepFreq(:,:,dd_POPP_OCPO), &\n                           DepFreq(:,:,dd_POPP_OCPI), &\n                           ZERO_DVEL,                &\n                           ZERO_DVEL,                &\n                           RC )\n\n       ELSEIF ( dd_POPG      <= 0 .and. &\n                dd_POPP_OCPO <= 0 .and. &\n                dd_POPP_BCPO >  0 ) THEN\n\n          ! Only POPP_OC dry deposition is active\n          CALL CHEM_POPGP( Input_Opt,                &\n                           State_Chm,                &\n                           State_Diag,               &\n                           State_Grid,               &\n                           State_Met,                &\n                           ZERO_DVEL,                &\n                           ZERO_DVEL,                &\n                           ZERO_DVEL,                &\n                           DepFreq(:,:,dd_POPP_BCPO), &\n                           DepFreq(:,:,dd_POPP_BCPI), &\n                           RC )\n\n       ELSE\n\n          ! No dry deposition, pass zero deposition frequency\n          CALL CHEM_POPGP( Input_Opt,  &\n                           State_Chm,  &\n                           State_Diag, &\n                           State_Grid, &\n                           State_Met,  &\n                           ZERO_DVEL,  &\n                           ZERO_DVEL,  &\n                           ZERO_DVEL,  &\n                           ZERO_DVEL,  &\n                           ZERO_DVEL,  &\n                           RC )\n       ENDIF\n\n    ENDIF\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( 'CHEMPOPS: a CHEM_GASPART' )\n    ENDIF\n    \n    ! Nullify pointers\n    NULLIFY( DepFreq )\n\n  END SUBROUTINE CHEMPOPS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  chem_popgp\n!\n! !DESCRIPTION: Subroutine CHEM\\_POPGP is the chemistry subroutine for the\n!  oxidation, gas-particle partitioning, and deposition of POPs.\n!  (eck, clf, 1/4/2011)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_POPGP ( Input_Opt,                  &  \n                          State_Chm,    State_Diag,   & \n                          State_Grid,   State_Met,    &\n                          V_DEP_G,                    &\n                          V_DEP_P_OCPO, V_DEP_P_OCPI, &\n                          V_DEP_P_BCPO, V_DEP_P_BCPI, &\n                          RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,      ONLY : DEBUG_MSG\n    USE ERROR_MOD,      ONLY : SAFE_DIV\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species, SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n\n    ! Dry deposition frequencies [/s]\n    REAL(fp),       INTENT(IN)    :: V_DEP_G(State_Grid%NX,State_Grid%NY)\n    REAL(fp),       INTENT(IN)    :: V_DEP_P_OCPO(State_Grid%NX,State_Grid%NY)\n    REAL(fp),       INTENT(IN)    :: V_DEP_P_BCPO(State_Grid%NX,State_Grid%NY)\n    REAL(fp),       INTENT(IN)    :: V_DEP_P_OCPI(State_Grid%NX,State_Grid%NY)\n    REAL(fp),       INTENT(IN)    :: V_DEP_P_BCPI(State_Grid%NX,State_Grid%NY)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) For OH rate constant: Brubaker & Hites. 1998. OH reaction kinetics of\n!  PAHs and PCDD/Fs. J. Phys. Chem. A. 102:915-921.\n!\n! !REVISION HISTORY:\n!  20 Sep 2010 - N.E. Selin  - Initial Version based on CHEM_HG0_HG2\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! DENS_OCT = density of octanol, needed for partitioning into OC\n    ! 820 [kg/m^3]\n    REAL(fp), PARAMETER :: DENS_OCT   = 82e+1_fp\n\n    ! DENS_BC = density of BC, needed for partitioning onto BC\n    ! 1 [kg/L] or 1000 [kg/m^3]\n    ! From Lohmann and Lammel, Environ. Sci. Technol., 2004, 38:3793-3803.\n    REAL(fp), PARAMETER :: DENS_BC    = 1e+3_fp\n\n    ! k for reaction POPP + NO3 taken from Liu et al. EST 2012 \"Kinetic\n    ! studies of heterogeneous reactions of PAH aerosols with NO3 radicals\",\n    ! for now. CLF, 1/24/2012\n    ! For PYR, 6.4 x 10^-12 [cm3 / molec / s]\n    REAL(fp), PARAMETER :: K_POPP_NO3 = 0e+0_fp ! 6.4d-12\n\n    ! OC/BC hydrophobic POP lifetime before folding to hydrophilic\n    REAL(fp), PARAMETER :: OCBC_LIFE  = 1.15e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: I,             J,             L\n    INTEGER           :: N\n    REAL(fp)          :: DTCHEM,        SUM_F\n    REAL(fp)          :: KOA_T,         KBC_T\n    REAL(fp)          :: KOC_BC_T,      KBC_OC_T\n    REAL(fp)          :: AREA_CM2\n    REAL(fp)          :: F_PBL\n    REAL(fp)          :: C_OH,          C_OC_CHEM,     C_BC_CHEM\n    REAL(fp)          :: C_OC_CHEM1,    C_BC_CHEM1\n    REAL(fp)          :: K_OH\n    REAL(fp)          :: K_OX,          C_O3\n    REAL(fp)          :: E_KOX_T\n    REAL(fp)          :: K_DEPG,        K_DEPP_OCPO,   K_DEPP_BCPO\n    REAL(fp)          :: K_DEPP_OCPI,   K_DEPP_BCPI\n    REAL(fp)          :: OLD_POPG,      OLD_POPP_OCPO, OLD_POPP_BCPO\n    REAL(fp)          :: OLD_POPP_OCPI, OLD_POPP_BCPI\n    REAL(fp)          :: NEW_POPG,      NEW_POPP_OCPO, NEW_POPP_BCPO\n    REAL(fp)          :: NEW_POPP_OCPI, NEW_POPP_BCPI\n    REAL(fp)          :: POPG_BL,       POPP_OCPO_BL,  POPP_BCPO_BL\n    REAL(fp)          :: POPP_OCPI_BL,  POPP_BCPI_BL\n    REAL(fp)          :: POPG_FT,       POPP_OCPO_FT,  POPP_BCPO_FT\n    REAL(fp)          :: POPP_OCPI_FT,  POPP_BCPI_FT\n    REAL(fp)          :: TMP_POPG,      TMP_OX\n    REAL(fp)          :: GROSS_OX,      GROSS_OX_OH,   NET_OX\n    REAL(fp)          :: DEP_POPG,      DEP_POPP_OCPO, DEP_POPP_BCPO\n    REAL(fp)          :: DEP_POPP_OCPI, DEP_POPP_BCPI\n    REAL(fp)          :: DEP_POPG_DRY,  DEP_POPP_OCPO_DRY\n    REAL(fp)          :: DEP_POPP_BCPO_DRY, DEP_POPP_OCPI_DRY\n    REAL(fp)          :: DEP_POPP_BCPI_DRY\n    REAL(fp)          :: DEP_DRY_FLXG,  DEP_DRY_FLXP_OCPO\n    REAL(fp)          :: DEP_DRY_FLXP_BCPO, DEP_DRY_FLXP_OCPI\n    REAL(fp)          :: DEP_DRY_FLXP_BCPI\n    REAL(fp)          :: OLD_POP_T\n    REAL(fp)          :: VR_OC_AIR,     VR_BC_AIR\n    REAL(fp)          :: VR_OC_BC,      VR_BC_OC\n    REAL(fp)          :: F_POP_OC,      F_POP_BC\n    REAL(fp)          :: F_POP_G\n    REAL(fp)          :: MPOP_OCPO,     MPOP_BCPO,   MPOP_G\n    REAL(fp)          :: MPOP_OCPI,     MPOP_BCPI\n    REAL(fp)          :: MPOP_OC,       MPOP_BC\n    REAL(fp)          :: DIFF_G,        DIFF_OC,     DIFF_BC\n    REAL(fp)          :: OC_AIR_RATIO,  OC_BC_RATIO, BC_AIR_RATIO\n    REAL(fp)          :: BC_OC_RATIO,   SUM_DIFF\n    REAL(fp)          :: FOLD, KOCBC,   NEW_OCPI, NEW_BCPI\n    REAL(fp)          :: GROSS_OX_OCPO, GROSS_OX_OCPI\n    REAL(fp)          :: GROSS_OX_BCPO, GROSS_OX_BCPI\n    REAL(fp)          :: GROSS_OX_O3_OCPO, GROSS_OX_O3_OCPI\n    REAL(fp)          :: GROSS_OX_O3_BCPO, GROSS_OX_O3_BCPI\n    REAL(fp)          :: GROSS_OX_NO3_OCPO, GROSS_OX_NO3_OCPI\n    REAL(fp)          :: GROSS_OX_NO3_BCPO, GROSS_OX_NO3_BCPI\n    REAL(fp)          :: TMP_POPP_OCPO, TMP_POPP_OCPI\n    REAL(fp)          :: E_KOX_T_BC\n    REAL(fp)          :: TMP_OX_P_OCPO, TMP_OX_P_OCPI\n    REAL(fp)          :: TMP_OX_P_BCPO, TMP_OX_P_BCPI\n    REAL(fp)          :: TMP_POPP_BCPO, TMP_POPP_BCPI\n    REAL(fp)          :: NET_OX_OCPO,   NET_OX_OCPI\n    REAL(fp)          :: NET_OX_BCPO,   NET_OX_BCPI\n    REAL(fp)          :: K_O3_BC, C_NO3, K_OX_P, K_NO3_BC\n\n    ! Delta H for POP [kJ/mol]. Delta H is enthalpy of phase transfer\n    ! from gas phase to OC. For now we use Delta H for phase transfer\n    ! from the gas phase to the pure liquid state.\n    ! For PHENANTHRENE:\n    ! this is taken as the negative of the Delta H for phase transfer\n    ! from the pure liquid state to the gas phase (Schwarzenbach,\n    ! Gschwend, Imboden, 2003, pg 200, Table 6.3), or -74000 [J/mol].\n    ! For PYRENE:\n    ! this is taken as the negative of the Delta H for phase transfer\n    ! from the pure liquid state to the gas phase (Schwarzenbach,\n    ! Gschwend, Imboden, 2003, pg 200, Table 6.3), or -87000 [J/mol].\n    ! For BENZO[a]PYRENE:\n    ! this is also taken as the negative of the Delta H for phase transfer\n    ! from the pure liquid state to the gas phase (Schwarzenbach,\n    ! Gschwend, Imboden, 2003, pg 452, Prob 11.1), or -110,000 [J/mol]\n    REAL(fp)            :: DEL_H\n\n    ! KOA_298 for partitioning of gas phase POP to atmospheric OC\n    ! KOA_298 = Cpop in octanol/Cpop in atmosphere at 298 K\n    ! For PHENANTHRENE:\n    ! log KOA_298 = 7.64, or 4.37*10^7 [unitless]\n    ! For PYRENE:\n    ! log KOA_298 = 8.86, or 7.24*10^8 [unitless]\n    ! For BENZO[a]PYRENE:\n    ! log KOA_298 = 11.48, or 3.02*10^11 [unitless]\n    ! (Ma et al., J. Chem. Eng. Data, 2010, 55:819-825).\n    REAL(fp)            :: KOA_298\n\n    ! KBC_298 for partitioning of gas phase POP to atmospheric BC\n    ! KBC_298 = Cpop in black carbon/Cpop in atmosphere at 298 K\n    ! For PHENANTHRENE:\n    ! log KBC_298 = 10.0, or 1.0*10^10 [unitless]\n    ! For PYRENE:\n    ! log KBC_298 = 11.0, or 1.0*10^11 [unitless]\n    ! For BENZO[a]PYRENE:\n    ! log KBC_298 = 13.9, or 7.94*10^13 [unitless]\n    ! (Lohmann and Lammel, EST, 2004, 38:3793-3802)\n    REAL(fp)            :: KBC_298\n\n    ! K for reaction POPG + OH  [cm3 /molecule /s]\n    ! For PHENANTHRENE: 2.70d-11\n    ! (Source: Brubaker & Hites, J. Phys Chem A 1998)\n    ! For PYRENE: 5.00d-11\n    ! Calculated by finding the ratio between kOH of phenanthrene and\n    ! kOH of pyrene using structure-activity relationships (Schwarzenback,\n    ! Gschwend, Imboden, pg 680) and scaling the experimental kOH for\n    ! phenanthrene from Brubaker and Hites\n    ! For BENZO[a]PYRENE: 5.68d-11\n    ! Calculated by finding the ratio between kOH of phenanthrene and\n    ! kOH of pyrene using structure-activity relationships (Schwarzenback,\n    ! Gschwend, Imboden, pg 680) and scaling the experimental kOH for\n    ! phenanthrene from Brubaker and Hites\n    ! Could potentially set this to change with temperature\n\n    ! Using EPA AOPWIN values:\n    ! For PHENANTHRENE: 13d-12\n    ! For PYRENE: 50d-12\n    ! For BaP: 50d-12\n    REAL(fp)            :: K_POPG_OH !(Gas phase)\n\n    ! k for reaction POPP + O3 [/s] depends on fitting parameters A and B.\n    ! A represents the maximum number of surface sites available to O3, and B\n    ! represents the ratio of desorption/adsorption rate coefficients for\n    ! both bulk phases (Ref: Kahan et al Atm Env 2006, 40:3448)\n    ! k(obs) = A x [O3(g)] / (B + [O3(g)])\n    ! For PHENANTHRENE: A = 0.5 x 10^-3 s^-1, B = 2.15 x 10^15 molec/cm3\n    ! For PYRENE: A = 0.7 x 10^-3 s^-1, B = 3 x 10^15 molec/cm3\n    ! for BaP: A = 5.5 x 10^-3 s^-1, B = 2.8 x 10^15 molec/cm3\n    REAL(fp)            :: AK  ! s^-1\n    REAL(fp)            :: BK  ! molec/cm3\n\n    ! For fields from Input_Opt\n    LOGICAL             :: LNLPBL\n    LOGICAL             :: LGTMM\n    LOGICAL             :: Archive_Drydep\n\n    ! For SAFE_DIV\n    REAL(fp)            :: DENOM\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    TYPE(Species), POINTER :: ThisSpc\n\n    !=================================================================\n    ! CHEM_POPGP begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Copy values from Input_Opt\n    DEL_H     = Input_Opt%POP_DEL_H\n    KOA_298   = Input_Opt%POP_KOA\n    KBC_298   = Input_Opt%POP_KBC\n    K_POPG_OH = Input_Opt%POP_K_POPG_OH\n    AK        = Input_Opt%POP_K_POPP_O3A\n    BK        = Input_Opt%POP_K_POPP_O3B\n    LNLPBL    = Input_Opt%LNLPBL\n    LGTMM     = Input_Opt%LGTMM\n\n    ! Point to the chemical species vector\n    Spc       => State_Chm%Species\n\n    ! Pointer for the species database object\n    ThisSpc   => NULL()\n\n    ! Chemistry timestep [s]\n    DTCHEM = GET_TS_CHEM()\n\n    !================================================================\n    ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n    !\n    ! Zero out all diagnostic arrays to avoid leftover values from\n    ! from the last timestep from being archived again (bmy,10/15/18)\n    !================================================================\n\n    !----------------------------------------------------------------\n    ! Initialize State_Diag fields for prod/loss diagnostics\n    !----------------------------------------------------------------\n    IF ( State_Diag%Archive_LossPOPPOCPObyGasPhase ) THEN\n       State_Diag%LossPOPPOCPObyGasPhase = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPOCPOfromGasPhase ) THEN\n       State_Diag%ProdPOPPOCPOfromGasPhase = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_LossPOPPBCPObyGasPhase ) THEN\n       State_Diag%LossPOPPBCPObyGasPhase = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPBCPOfromGasPhase ) THEN\n       State_Diag%ProdPOPPBCPOfromGasPhase = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPGfromOH ) THEN\n       State_Diag%ProdPOPGfromOH = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPOCPOfromO3 ) THEN\n       State_Diag%ProdPOPPOCPOfromO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPOCPIfromO3 ) THEN\n       State_Diag%ProdPOPPOCPIfromO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPBCPOfromO3 ) THEN\n       State_Diag%ProdPOPPBCPOfromO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPBCPIfromO3 ) THEN\n       State_Diag%ProdPOPPBCPIfromO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPOCPOfromNO3 ) THEN\n       State_Diag%ProdPOPPOCPOfromNO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPOCPIfromNO3 ) THEN\n       State_Diag%ProdPOPPOCPIfromNO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPBCPOfromNO3 ) THEN\n       State_Diag%ProdPOPPBCPOfromNO3 = 0.0_f4\n    ENDIF\n\n    IF ( State_Diag%Archive_ProdPOPPBCPIfromNO3 ) THEN\n       State_Diag%ProdPOPPBCPIfromNO3 = 0.0_f4\n    ENDIF\n\n    !----------------------------------------------------------------\n    ! Determine if we need to save drydep to netCDF\n    !----------------------------------------------------------------\n    Archive_Drydep = ( State_Diag%Archive_DryDepChm .or. &\n                       State_Diag%Archive_DryDep         )\n\n    ! Eventually should parallelize this ...\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NZ\n\n       ! Zero concentrations in loop\n       MPOP_G            = 0e+0_fp\n       MPOP_OCPO         = 0e+0_fp\n       MPOP_BCPO         = 0e+0_fp\n       MPOP_OCPI         = 0e+0_fp\n       MPOP_BCPI         = 0e+0_fp\n       OLD_POPG          = 0e+0_fp\n       OLD_POPP_OCPO     = 0e+0_fp\n       OLD_POPP_BCPO     = 0e+0_fp\n       OLD_POPP_OCPI     = 0e+0_fp\n       OLD_POPP_BCPI     = 0e+0_fp\n       OLD_POP_T         = 0e+0_fp\n       NEW_POPG          = 0e+0_fp\n       NEW_POPP_OCPO     = 0e+0_fp\n       NEW_POPP_BCPO     = 0e+0_fp\n       NEW_POPP_OCPI     = 0e+0_fp\n       NEW_POPP_BCPI     = 0e+0_fp\n       POPG_BL           = 0e+0_fp\n       POPP_OCPO_BL      = 0e+0_fp\n       POPP_BCPO_BL      = 0e+0_fp\n       POPP_OCPI_BL      = 0e+0_fp\n       POPP_BCPI_BL      = 0e+0_fp\n       POPG_FT           = 0e+0_fp\n       POPP_OCPO_FT      = 0e+0_fp\n       POPP_BCPO_FT      = 0e+0_fp\n       POPP_OCPI_FT      = 0e+0_fp\n       POPP_BCPI_FT      = 0e+0_fp\n       DIFF_G            = 0e+0_fp\n       DIFF_OC           = 0e+0_fp\n       DIFF_BC           = 0e+0_fp\n       NET_OX            = 0e+0_fp\n       TMP_POPG          = 0e+0_fp\n       TMP_OX            = 0e+0_fp\n       GROSS_OX          = 0e+0_fp\n       GROSS_OX_OH       = 0e+0_fp\n       DEP_POPG          = 0e+0_fp\n       DEP_POPP_OCPO     = 0e+0_fp\n       DEP_POPP_BCPO     = 0e+0_fp\n       DEP_POPP_OCPI     = 0e+0_fp\n       DEP_POPP_BCPI     = 0e+0_fp\n       DEP_POPG_DRY      = 0e+0_fp\n       DEP_POPP_OCPO_DRY = 0e+0_fp\n       DEP_POPP_BCPO_DRY = 0e+0_fp\n       DEP_POPP_OCPI_DRY = 0e+0_fp\n       DEP_POPP_BCPI_DRY = 0e+0_fp\n       DEP_DRY_FLXG      = 0e+0_fp\n       DEP_DRY_FLXP_OCPO = 0e+0_fp\n       DEP_DRY_FLXP_BCPO = 0e+0_fp\n       DEP_DRY_FLXP_OCPI = 0e+0_fp\n       DEP_DRY_FLXP_BCPI = 0e+0_fp\n       E_KOX_T           = 0e+0_fp\n       K_OX              = 0e+0_fp\n       K_O3_BC           = 0e+0_fp\n       GROSS_OX_OCPO     = 0e+0_fp\n       GROSS_OX_BCPO     = 0e+0_fp\n       GROSS_OX_OCPI     = 0e+0_fp\n       GROSS_OX_BCPI     = 0e+0_fp\n       GROSS_OX_O3_OCPO  = 0e+0_fp\n       GROSS_OX_O3_BCPO  = 0e+0_fp\n       GROSS_OX_O3_OCPI  = 0e+0_fp\n       GROSS_OX_O3_BCPI  = 0e+0_fp\n       GROSS_OX_NO3_OCPO = 0e+0_fp\n       GROSS_OX_NO3_BCPO = 0e+0_fp\n       GROSS_OX_NO3_OCPI = 0e+0_fp\n       GROSS_OX_NO3_BCPI = 0e+0_fp\n       TMP_POPP_OCPO     = 0e+0_fp\n       TMP_POPP_OCPI     = 0e+0_fp\n       TMP_POPP_BCPO     = 0e+0_fp\n       TMP_POPP_BCPI     = 0e+0_fp\n       E_KOX_T_BC        = 0e+0_fp\n       TMP_OX_P_OCPO     = 0e+0_fp\n       TMP_OX_P_OCPI     = 0e+0_fp\n       TMP_OX_P_BCPO     = 0e+0_fp\n       TMP_OX_P_BCPI     = 0e+0_fp\n       NET_OX_OCPO       = 0e+0_fp\n       NET_OX_OCPI       = 0e+0_fp\n       NET_OX_BCPO       = 0e+0_fp\n       NET_OX_BCPI       = 0e+0_fp\n\n       ! Get monthly mean OH concentrations\n       C_OH  = GET_OH( I, J, L, State_Met )\n\n       ! Get monthly mean O3 concentrations\n       ! O3 is in v/v (from HEMCO), convert to molec/cm3 (mps, 9/10/14)\n       C_O3  = O3(I,J,L) * ( AVO / ( AIRMW * 1.e-3_fp ) ) * &\n               State_Met%AIRDEN(I,J,L) * 1e-6_fp\n\n       ! Fraction of box (I,J,L) underneath the PBL top [dimensionless]\n       F_PBL = State_Met%F_UNDER_PBLTOP(I,J,L)\n\n       ! Define K for the oxidation reaction with POPG [/s]\n       K_OH  = K_POPG_OH * C_OH\n\n       ! Define K for the oxidation reaction with POPPOC and POPPBC [/s]\n       ! Kahan:\n       K_O3_BC  = (AK * C_O3) / (BK + C_O3)\n\n       ! Bug fix: Zero C_NO3 to avoid a floating-point exception error.\n       ! K_POPP_NO3 is already set to zero, so this will already cause\n       ! K_NO3_BC to be set to zero.  We think that C_NO3 once was\n       ! assigned a value but was later taken out. (bmy, 10/6/16)\n       C_NO3 = 0.0_fp\n\n       ! Define K for oxidation of POPP by NO3  [/s]\n       K_NO3_BC = K_POPP_NO3 * C_NO3\n\n       ! Total K for gas phase oxidation [/s]\n       K_OX   = K_OH !+ ...\n\n       ! Total K for particle phase oxidation [/s]\n       K_OX_P = K_O3_BC + K_NO3_BC\n\n       ! Define Ks for dry deposition of gas phase POP [/s]\n       K_DEPG = V_DEP_G(I,J)\n\n       ! Define Ks for dry deposition of hydrophoblic particle phase POP [/s]\n       K_DEPP_OCPO = V_DEP_P_OCPO(I,J)\n       K_DEPP_BCPO = V_DEP_P_BCPO(I,J)\n\n       ! Define Ks for dry deposition of hydrophilic particle phase POP [/s]\n       K_DEPP_OCPI = V_DEP_P_OCPI(I,J)\n       K_DEPP_BCPI = V_DEP_P_BCPI(I,J)\n\n       ! Precompute exponential factors [dimensionless]\n       ! For gas phase\n       E_KOX_T    = EXP( -K_OX   * DTCHEM )\n       ! For particle phase\n       E_KOX_T_BC = EXP( -K_OX_P * DTCHEM )\n\n       !==============================================================\n       ! GAS-PARTICLE PARTITIONING\n       !==============================================================\n\n       OLD_POPG      = MAX( Spc(id_POPG    )%Conc(I,J,L), SMALLNUM ) ![kg]\n       OLD_POPP_OCPO = MAX( Spc(id_POPPOCPO)%Conc(I,J,L), SMALLNUM ) ![kg]\n       OLD_POPP_BCPO = MAX( Spc(id_POPPBCPO)%Conc(I,J,L), SMALLNUM ) ![kg]\n       OLD_POPP_OCPI = MAX( Spc(id_POPPOCPI)%Conc(I,J,L), SMALLNUM ) ![kg]\n       OLD_POPP_BCPI = MAX( Spc(id_POPPBCPI)%Conc(I,J,L), SMALLNUM ) ![kg]\n\n       ! Total POPs in box I,J,L\n       OLD_POP_T = OLD_POPG      + &\n                   OLD_POPP_OCPO + OLD_POPP_BCPO + &\n                   OLD_POPP_OCPI + OLD_POPP_BCPI\n\n       ! Define temperature-dependent partition coefficients\n       ! NOTE: State_Met%T is in units of [K]\n       KOA_T = KOA_298 * EXP( ( -DEL_H / RSTARG ) * &\n                            ( ( 1e+0_fp / State_Met%T(I,J,L) ) - &\n                            ( 1e+0_fp / 298e+0_fp ) ) )\n\n       ! Define KBC_T, the BC-air partition coeff at temp T [unitless]\n       ! TURN OFF TEMPERATURE DEPENDENCY FOR SENSITIVITY ANALYSIS\n       ! NOTE: State_Met%T is in units of [K]\n       KBC_T = KBC_298 * EXP( ( -DEL_H / RSTARG ) * &\n                            ( ( 1e+0_fp / State_Met%T(I,J,L) ) - &\n                            ( 1e+0_fp / 298e+0_fp ) ) )\n\n       ! Define KOC_BC_T, theoretical OC-BC part coeff at temp T [unitless]\n       KOC_BC_T = KOA_T / KBC_T\n\n       ! Define KBC_OC_T, theoretical BC_OC part coeff at temp T [unitless]\n       KBC_OC_T = 1e+0_fp / KOC_BC_T\n\n       ! Get monthly mean OC and BC concentrations [kg/box]\n       C_OC_CHEM = C_OC(I,J,L)\n       C_BC_CHEM = C_BC(I,J,L)\n\n       ! Make sure OC is not negative\n       C_OC_CHEM = MAX( C_OC_CHEM, 0e+0_fp )\n\n       ! Convert to units of volume per box [m^3 OC or BC/box]\n       C_OC_CHEM1 = C_OC_CHEM / DENS_OCT\n       C_BC_CHEM1 = C_BC_CHEM / DENS_BC\n\n       ! Define volume ratios:\n       ! VR_OC_AIR = volume ratio of OC to air [unitless]\n       VR_OC_AIR     = C_OC_CHEM1 / State_Met%AIRVOL(I,J,L) ! could be zero\n\n       ! VR_OC_BC = volume ratio of OC to BC [unitless]\n       VR_OC_BC      = SAFE_DIV( C_OC_CHEM1, C_BC_CHEM1, 0e+0_fp )\n\n       ! VR_BC_AIR = volume ratio of BC to air [unitless]\n       VR_BC_AIR     = SAFE_DIV( VR_OC_AIR,  VR_OC_BC,   0e+0_fp )\n\n       ! VR_BC_OC = volume ratio of BC to OC [unitless]\n       VR_BC_OC      = SAFE_DIV( 1e+0_fp,    VR_OC_BC,   0e+0_fp )\n\n       ! Redefine fractions of total POPs in box (I,J,L) that are OC-phase,\n       ! BC-phase, and gas phase with new time step (should only change if\n       ! temp changes or OC/BC concentrations change)\n       DENOM         = KOA_T * VR_OC_AIR\n       OC_AIR_RATIO  = SAFE_DIV( 1e+0_fp,  DENOM,      0e+0_fp )\n\n       DENOM         = KOC_BC_T * VR_OC_BC\n       OC_BC_RATIO   = SAFE_DIV( 1e+0_fp,  DENOM,      0e+0_fp )\n\n       DENOM         = KBC_T * VR_BC_AIR\n       BC_AIR_RATIO  = SAFE_DIV( 1e+0_fp,  DENOM,      0e+0_fp )\n\n       DENOM         = KBC_OC_T * VR_BC_OC\n       BC_OC_RATIO   = SAFE_DIV( 1e+0_fp,  DENOM,      0e+0_fp )\n\n       ! If there are zeros in OC or BC concentrations, make sure they\n       ! don't cause problems with phase fractions\n       IF ( C_OC_CHEM > SMALLNUM .and. C_BC_CHEM > SMALLNUM ) THEN\n          F_POP_OC  = 1e+0_fp / (1e+0_fp + OC_AIR_RATIO + OC_BC_RATIO)\n          F_POP_BC  = 1e+0_fp / (1e+0_fp + BC_AIR_RATIO + BC_OC_RATIO)\n\n       ELSE IF (C_OC_CHEM >  SMALLNUM .and. &\n                C_BC_CHEM <= SMALLNUM ) THEN\n          F_POP_OC  = 1e+0_fp / (1e+0_fp + OC_AIR_RATIO)\n          F_POP_BC  = SMALLNUM\n\n       ELSE IF ( C_OC_CHEM <= SMALLNUM .and. &\n                 C_BC_CHEM >  SMALLNUM ) THEN\n          F_POP_OC  = SMALLNUM\n          F_POP_BC  = 1e+0_fp / (1e+0_fp + BC_AIR_RATIO)\n\n       ELSE IF ( C_OC_CHEM <= SMALLNUM .and. &\n                 C_BC_CHEM <= SMALLNUM) THEN\n          F_POP_OC = SMALLNUM\n          F_POP_BC = SMALLNUM\n       ENDIF\n\n       ! Gas-phase:\n       F_POP_G = 1e+0_fp - F_POP_OC - F_POP_BC\n\n       ! Check that sum equals 1\n       SUM_F   = F_POP_OC + F_POP_BC + F_POP_G\n\n       ! Calculate new masses of POP in each phase [kg]\n       ! OC-phase:\n       MPOP_OC = F_POP_OC * OLD_POP_T\n\n       ! BC-phase\n       MPOP_BC = F_POP_BC * OLD_POP_T\n\n       ! Gas-phase\n       MPOP_G  = F_POP_G  * OLD_POP_T\n\n       ! Ensure new masses of POP in each phase are positive\n       MPOP_OC = MAX(MPOP_OC, SMALLNUM)\n       MPOP_BC = MAX(MPOP_BC, SMALLNUM)\n       MPOP_G  = MAX(MPOP_G,  SMALLNUM)\n\n       ! Calculate differences in masses in each phase from previous time\n       ! step for storage in ND53 diagnostic\n       DIFF_G  = MPOP_G  - OLD_POPG\n       DIFF_OC = MPOP_OC - OLD_POPP_OCPO - OLD_POPP_OCPI\n       DIFF_BC = MPOP_BC - OLD_POPP_BCPO - OLD_POPP_BCPI\n\n       ! Sum of differences should equal zero\n       SUM_DIFF = MAX(DIFF_G + DIFF_OC + DIFF_BC, SMALLNUM)\n\n       !==============================================================\n       ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n       !\n       ! Prod and loss of total POPPOC and total POPPBC species\n       ! by gas-phase reactions [kg/s]\n       !==============================================================\n\n       IF ( DIFF_OC < 0.0_fp ) THEN\n\n          ! Loss of POPPOCPO by gas-phase reactions\n          IF ( State_Diag%Archive_LossPOPPOCPObyGasPhase ) THEN\n             State_Diag%LossPOPPOCPObyGasPhase(I,J,L)   = DIFF_OC / DTCHEM\n          ENDIF\n\n       ELSE\n\n          ! Prod of POPPOCPO by gas-phase reactions\n          IF ( State_Diag%Archive_ProdPOPPOCPOfromGasPhase ) THEN\n             State_Diag%ProdPOPPOCPOfromGasPhase(I,J,L) = DIFF_OC / DTCHEM\n          ENDIF\n\n       ENDIF\n\n       IF ( DIFF_BC < 0.0_fp ) THEN\n\n          ! Loss of POPPBCPO by gas-phase reactions\n          IF ( State_Diag%Archive_LossPOPPBCPObyGasPhase ) THEN\n             State_Diag%LossPOPPBCPObyGasPhase(I,J,L)   = DIFF_BC / DTCHEM\n          ENDIF\n\n       ELSE\n\n          ! Prod of POPPBCPO by gas-phase reactions\n          IF ( State_Diag%Archive_ProdPOPPOCPOfromGasPhase ) THEN\n             State_Diag%ProdPOPPBCPOfromGasPhase(I,J,L) = DIFF_BC / DTCHEM\n          ENDIF\n\n       ENDIF\n\n       !==============================================================\n       ! HYDROPHOBIC PARTICULATE POPS DECAY TO HYDROPHILIC (clf, 2/12/2012)\n       !==============================================================\n\n       ! Define the lifetime and e-folding time to be the same as hydrophobic\n       ! to  hydrophilic aerosols\n       KOCBC = 1.e+0_fp / (86400e+0_fp * OCBC_LIFE)\n\n       ! Send hydrophobic to hydrophilic\n       FOLD = KOCBC * DTCHEM\n\n       ! Amount of hydrophobic particulate POP left after folding to\n       ! hydrophilic\n       MPOP_OCPO = MPOP_OC * EXP( -FOLD )\n       MPOP_BCPO = MPOP_BC * EXP( -FOLD )\n\n       ! Hydrophilic particulate POP already existing\n       MPOP_OCPI = MAX( Spc(id_POPPOCPI)%Conc(I,J,L), SMALLNUM )  ![kg]\n       MPOP_BCPI = MAX( Spc(id_POPPBCPI)%Conc(I,J,L), SMALLNUM )  ![kg]\n\n       ! Hydrophilic POP that used to be hydrophobic\n       NEW_OCPI = MPOP_OC - MPOP_OCPO\n       NEW_BCPI = MPOP_BC - MPOP_BCPO\n\n       ! Add new hydrophilic to old hydrophilic\n       ! Don't do this - already added into total for redistribution (clf 3/27/2012)\n       ! MPOP_OCPI = MPOP_OCPI + NEW_OCPI\n       ! MPOP_BCPI = MPOP_BCPI + NEW_BCPI\n       MPOP_OCPI = NEW_OCPI\n       MPOP_BCPI = NEW_BCPI\n\n       !==============================================================\n       ! CHEMISTRY AND DEPOSITION REACTIONS\n       !==============================================================\n       IF ( F_PBL < 0.05e+0_fp .OR. K_DEPG < SMALLNUM ) THEN\n\n          !==============================================================\n          ! Entire box is in the free troposphere\n          ! or deposition is turned off, so use RXN without deposition\n          ! for gas phase POPs\n          ! For particle POPs, no rxn and no deposition\n          !==============================================================\n\n          ! OH:\n          CALL RXN_OX_NODEP( MPOP_G, K_OX, &\n                             E_KOX_T, NEW_POPG, GROSS_OX )\n\n          ! O3 and NO3:\n          CALL RXN_OX_NODEP( MPOP_OCPO, K_OX_P, &\n                             E_KOX_T_BC, NEW_POPP_OCPO, GROSS_OX_OCPO)\n\n          CALL RXN_OX_NODEP( MPOP_OCPI, K_OX_P, &\n                             E_KOX_T_BC, NEW_POPP_OCPI, GROSS_OX_OCPI)\n\n          CALL RXN_OX_NODEP( MPOP_BCPO, K_OX_P, &\n                             E_KOX_T_BC, NEW_POPP_BCPO, GROSS_OX_BCPO)\n\n          CALL RXN_OX_NODEP( MPOP_BCPI, K_OX_P, &\n                             E_KOX_T_BC, NEW_POPP_BCPI, GROSS_OX_BCPI)\n\n          ! No deposition occurs [kg]\n          DEP_POPG      = 0e+0_fp\n          DEP_POPP_OCPO = 0e+0_fp\n          DEP_POPP_BCPO = 0e+0_fp\n          DEP_POPP_OCPI = 0e+0_fp\n          DEP_POPP_BCPI = 0e+0_fp\n\n       ELSE IF ( F_PBL > 0.95e+0_fp ) THEN\n\n          !==============================================================\n          ! Entire box is in the boundary layer\n          ! so use RXN with deposition for gas phase POPs\n          ! Deposition only (no rxn) for particle phase POPs\n          !==============================================================\n\n          CALL RXN_OX_WITHDEP( MPOP_G,        K_OX,          &\n                               K_DEPG,        DTCHEM,        &\n                               E_KOX_T,       NEW_POPG,      &\n                               GROSS_OX,      DEP_POPG       )\n\n          CALL RXN_OX_WITHDEP( MPOP_OCPO,     K_OX_P,        &\n                               K_DEPP_OCPO,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_OCPO, &\n                               GROSS_OX_OCPO, DEP_POPP_OCPO  )\n\n          CALL RXN_OX_WITHDEP( MPOP_OCPI,     K_OX_P,        &\n                               K_DEPP_OCPI,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_OCPI, &\n                               GROSS_OX_OCPI, DEP_POPP_OCPI  )\n\n          CALL RXN_OX_WITHDEP( MPOP_BCPO,     K_OX_P,        &\n                               K_DEPP_BCPO,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_BCPO, &\n                               GROSS_OX_BCPO, DEP_POPP_BCPO  )\n\n          CALL RXN_OX_WITHDEP( MPOP_BCPI,     K_OX_P,        &\n                               K_DEPP_BCPI,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_BCPI, &\n                               GROSS_OX_BCPI, DEP_POPP_BCPI  )\n\n       ELSE\n\n          !==============================================================\n          ! Box spans the top of the boundary layer\n          ! Part of the mass is in the boundary layer and subject to\n          ! deposition while part is in the free troposphere and\n          ! experiences no deposition.\n          !\n          ! We apportion the mass between the BL and FT according to the\n          ! volume fraction of the box in the boundary layer.\n          ! Arguably we should assume uniform mixing ratio, instead of\n          ! uniform density but if the boxes are short, the air density\n          ! doesn't change much.\n          ! But assuming uniform mixing ratio across the inversion layer\n          ! is a poor assumption anyway, so we are just using the\n          ! simplest approach.\n          !==============================================================\n\n          ! Boundary layer portion of POPG [kg]\n          POPG_BL = MPOP_G * F_PBL\n\n          ! Boundary layer portion of POPP_OCPO [kg]\n          POPP_OCPO_BL = MPOP_OCPO * F_PBL\n\n          ! Boundary layer portion of POPP_BCPO [kg]\n          POPP_BCPO_BL = MPOP_BCPO * F_PBL\n\n          ! Boundary layer portion of POPP_OCPI [kg]\n          POPP_OCPI_BL = MPOP_OCPI * F_PBL\n\n          ! Boundary layer portion of POPP_BCPI [kg]\n          POPP_BCPI_BL = MPOP_BCPI * F_PBL\n\n          ! Free troposphere portion of POPG [kg]\n          POPG_FT = MPOP_G - POPG_BL\n\n          ! Free troposphere portion of POPP_OCPO [kg]\n          POPP_OCPO_FT = MPOP_OCPO - POPP_OCPO_BL\n\n          ! Free troposphere portion of POPP_BCPO [kg]\n          POPP_BCPO_FT = MPOP_BCPO - POPP_BCPO_BL\n\n          ! Free troposphere portion of POPP_OCPI [kg]\n          POPP_OCPI_FT = MPOP_OCPI - POPP_OCPI_BL\n\n          ! Free troposphere portion of POPP_BCPI [kg]\n          POPP_BCPI_FT = MPOP_BCPI - POPP_BCPI_BL\n\n          ! Do chemistry with deposition on BL fraction for gas phase\n          CALL RXN_OX_WITHDEP( POPG_BL,  K_OX,     &\n                               K_DEPG,   DTCHEM,   &\n                               E_KOX_T,  NEW_POPG, &\n                               GROSS_OX, DEP_POPG  )\n\n          ! Do chemistry without deposition on the FT fraction for gas phase\n          CALL RXN_OX_NODEP(   POPG_FT,  K_OX,               &\n                               E_KOX_T,  TMP_POPG, TMP_OX    )\n\n          ! Now do the same with the OC and BC phase:\n\n          ! Do chemistry with deposition on BL fraction for OCPO phase\n          CALL RXN_OX_WITHDEP( POPP_OCPO_BL,  K_OX_P,        &\n                               K_DEPP_OCPO,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_OCPO, &\n                               GROSS_OX_OCPO, DEP_POPP_OCPO  )\n\n          ! Do chemistry without deposition on the FT fraction for OCPO phase\n          CALL RXN_OX_NODEP(   POPP_OCPO_FT,  K_OX_P,        &\n                               E_KOX_T_BC,    TMP_POPP_OCPO, &\n                               TMP_OX_P_OCPO  )\n\n          ! Do chemistry with deposition on BL fraction for OCPI phase\n          CALL RXN_OX_WITHDEP( POPP_OCPI_BL,  K_OX_P,        &\n                               K_DEPP_OCPI,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_OCPI, &\n                               GROSS_OX_OCPI, DEP_POPP_OCPI  )\n\n          ! Do chemistry without deposition on the FT fraction for OCPI phase\n          CALL RXN_OX_NODEP(   POPP_OCPI_FT,  K_OX_P,        &\n                               E_KOX_T_BC,    TMP_POPP_OCPI, &\n                               TMP_OX_P_OCPI  )\n\n          ! Do chemistry with deposition on BL fraction for BCPO phase\n          CALL RXN_OX_WITHDEP( POPP_BCPO_BL,  K_OX_P,        &\n                               K_DEPP_BCPO,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_BCPO, &\n                               GROSS_OX_BCPO, DEP_POPP_BCPO  )\n\n          ! Do chemistry without deposition on the FT fraction for BCPO phase\n          CALL RXN_OX_NODEP(   POPP_BCPO_FT,  K_OX_P,        &\n                               E_KOX_T_BC,    TMP_POPP_BCPO, &\n                               TMP_OX_P_BCPO  )\n\n          ! Do chemistry with deposition on BL fraction for BCPI phase\n          CALL RXN_OX_WITHDEP( POPP_BCPI_BL,  K_OX_P,        &\n                               K_DEPP_BCPI,   DTCHEM,        &\n                               E_KOX_T_BC,    NEW_POPP_BCPI, &\n                               GROSS_OX_BCPI, DEP_POPP_BCPI  )\n\n          ! Do chemistry without deposition on the FT fraction for BCPI phase\n          CALL RXN_OX_NODEP(   POPP_BCPI_FT,  K_OX_P,        &\n                               E_KOX_T_BC,    TMP_POPP_BCPI, &\n                               TMP_OX_P_BCPI  )\n\n          ! Do deposition (no chemistry) on BL fraction for particulate phase\n          ! No deposition (and no chem) on the FT fraction\n          ! for the particulate phase\n          !CALL NO_RXN_WITHDEP(POPP_OCPO_BL, K_DEPP_OCPO, DTCHEM, &\n          !                    NEW_POPP_OCPO, DEP_POPP_OCPO)\n\n          !CALL NO_RXN_WITHDEP(POPP_BCPO_BL, K_DEPP_BCPO, DTCHEM, &\n          !                    NEW_POPP_BCPO, DEP_POPP_BCPO)\n\n          !CALL NO_RXN_WITHDEP(POPP_OCPI_BL, K_DEPP_OCPI, DTCHEM, &\n          !                    NEW_POPP_OCPI, DEP_POPP_OCPI)\n\n          !CALL NO_RXN_WITHDEP(POPP_BCPI_BL, K_DEPP_BCPI, DTCHEM, &\n          !                    NEW_POPP_BCPI, DEP_POPP_BCPI)\n\n          ! Recombine the boundary layer and free troposphere parts [kg]\n          NEW_POPG      = NEW_POPG      + TMP_POPG\n          NEW_POPP_OCPO = NEW_POPP_OCPO + TMP_POPP_OCPO\n          NEW_POPP_BCPO = NEW_POPP_BCPO + TMP_POPP_BCPO\n          NEW_POPP_OCPI = NEW_POPP_OCPI + TMP_POPP_OCPI\n          NEW_POPP_BCPI = NEW_POPP_BCPI + TMP_POPP_BCPI\n\n          ! Total gross oxidation of gas phase in the BL and FT [kg]\n          GROSS_OX      = GROSS_OX      + TMP_OX\n\n          ! Total gross oxidation of particle phases in the BL and FT [kg]\n          GROSS_OX_OCPO = GROSS_OX_OCPO + TMP_OX_P_OCPO\n          GROSS_OX_OCPI = GROSS_OX_OCPI + TMP_OX_P_OCPI\n          GROSS_OX_BCPO = GROSS_OX_BCPO + TMP_OX_P_BCPO\n          GROSS_OX_BCPI = GROSS_OX_BCPI + TMP_OX_P_BCPI\n\n       ENDIF\n\n       ! Ensure positive concentration [kg]\n       NEW_POPG      = MAX( NEW_POPG, SMALLNUM )\n       NEW_POPP_OCPO = MAX( NEW_POPP_OCPO, SMALLNUM )\n       NEW_POPP_BCPO = MAX( NEW_POPP_BCPO, SMALLNUM )\n       NEW_POPP_OCPI = MAX( NEW_POPP_OCPI, SMALLNUM )\n       NEW_POPP_BCPI = MAX( NEW_POPP_BCPI, SMALLNUM )\n\n       ! Archive new POPG and POPP values [kg]\n       Spc(id_POPG    )%Conc(I,J,L) = NEW_POPG\n       Spc(id_POPPOCPO)%Conc(I,J,L) = NEW_POPP_OCPO\n       Spc(id_POPPBCPO)%Conc(I,J,L) = NEW_POPP_BCPO\n       Spc(id_POPPOCPI)%Conc(I,J,L) = NEW_POPP_OCPI\n       Spc(id_POPPBCPI)%Conc(I,J,L) = NEW_POPP_BCPI\n\n       ! Net oxidation [kg] (equal to gross ox for now)\n       NET_OX      = MPOP_G    - NEW_POPG      - DEP_POPG\n       NET_OX_OCPO = MPOP_OCPO - NEW_POPP_OCPO - DEP_POPP_OCPO\n       NET_OX_OCPI = MPOP_OCPI - NEW_POPP_OCPI - DEP_POPP_OCPI\n       NET_OX_BCPO = MPOP_BCPO - NEW_POPP_BCPO - DEP_POPP_BCPO\n       NET_OX_BCPI = MPOP_BCPI - NEW_POPP_BCPI - DEP_POPP_BCPI\n\n       ! Error check on gross oxidation [kg]\n       IF ( GROSS_OX < 0e+0_fp ) &\n            CALL DEBUG_MSG('CHEM_POPGP: negative gross gas oxid')\n\n       IF ( GROSS_OX_OCPO < 0e+0_fp ) &\n            CALL DEBUG_MSG('CHEM_POPGP: negative gross OCPO oxid')\n\n       IF ( GROSS_OX_OCPI < 0e+0_fp ) &\n            CALL DEBUG_MSG('CHEM_POPGP: negative gross OCPI oxid')\n\n       IF ( GROSS_OX_BCPO < 0e+0_fp ) &\n            CALL DEBUG_MSG('CHEM_POPGP: negative gross BCPO oxid')\n\n       IF ( GROSS_OX_BCPI < 0e+0_fp ) &\n            CALL DEBUG_MSG('CHEM_POPGP: negative gross BCPI oxid')\n\n       ! Apportion gross oxidation between OH (and no other gas-phase\n       ! oxidants considered now) [kg]\n       IF ( (K_OX < SMALLNUM) .OR. (GROSS_OX < SMALLNUM) ) THEN\n          GROSS_OX_OH = 0e+0_fp\n       ELSE\n          GROSS_OX_OH = GROSS_OX * K_OH / K_OX\n       ENDIF\n\n       ! Small number check for particulate O3 oxidation\n       ! Now apportion total particulate oxidation between O3 and NO3\n       IF ( (K_OX_P < SMALLNUM) .OR. (GROSS_OX_OCPO < SMALLNUM) ) THEN\n          GROSS_OX_OCPO     = 0e+0_fp\n       ELSE\n          GROSS_OX_O3_OCPO  = GROSS_OX_OCPO * K_O3_BC / K_OX_P\n          GROSS_OX_NO3_OCPO = GROSS_OX_OCPO * K_NO3_BC / K_OX_P\n       ENDIF\n\n       IF ( (K_OX_P < SMALLNUM) .OR. (GROSS_OX_OCPI < SMALLNUM) ) THEN\n          GROSS_OX_OCPI     = 0e+0_fp\n       ELSE\n          GROSS_OX_O3_OCPI  = GROSS_OX_OCPI * K_O3_BC / K_OX_P\n          GROSS_OX_NO3_OCPI = GROSS_OX_OCPI * K_NO3_BC / K_OX_P\n       ENDIF\n\n       IF ( (K_OX_P < SMALLNUM) .OR. (GROSS_OX_BCPO < SMALLNUM) ) THEN\n          GROSS_OX_BCPO     = 0e+0_fp\n       ELSE\n          GROSS_OX_O3_BCPO  = GROSS_OX_BCPO * K_O3_BC / K_OX_P\n          GROSS_OX_NO3_BCPO = GROSS_OX_BCPO * K_NO3_BC / K_OX_P\n       ENDIF\n\n       IF ( (K_OX_P < SMALLNUM) .OR. (GROSS_OX_BCPI < SMALLNUM) ) THEN\n          GROSS_OX_BCPI     = 0e+0_fp\n       ELSE\n          GROSS_OX_O3_BCPI  = GROSS_OX_BCPI * K_O3_BC / K_OX_P\n          GROSS_OX_NO3_BCPI = GROSS_OX_BCPI * K_NO3_BC / K_OX_P\n       ENDIF\n\n       ! Apportion deposition [kg]\n       ! Right now only using dry deposition (no sea salt) (clf, 1/27/11)\n       ! If ever use dep with sea salt aerosols,\n       ! will need to multiply DEP_POPG by the ratio\n       ! of K_DRYG (rate of dry dep) to K_DEPG (total dep rate).\n       IF ( (K_DEPG < SMALLNUM) .OR. (DEP_POPG < SMALLNUM) ) THEN\n          DEP_POPG_DRY  = 0e+0_fp\n       ELSE\n          DEP_POPG_DRY  = DEP_POPG\n       ENDIF\n\n       IF ( (K_DEPP_OCPO < SMALLNUM) .OR. (DEP_POPP_OCPO < SMALLNUM) ) THEN\n          DEP_POPP_OCPO_DRY  = 0e+0_fp\n       ELSE\n          DEP_POPP_OCPO_DRY  = DEP_POPP_OCPO\n       ENDIF\n\n       IF ( (K_DEPP_BCPO < SMALLNUM) .OR. (DEP_POPP_BCPO < SMALLNUM) ) THEN\n          DEP_POPP_BCPO_DRY  = 0e+0_fp\n       ELSE\n          DEP_POPP_BCPO_DRY  = DEP_POPP_BCPO\n       ENDIF\n\n       IF ( (K_DEPP_OCPI < SMALLNUM) .OR. (DEP_POPP_OCPI < SMALLNUM) ) THEN\n          DEP_POPP_OCPI_DRY  = 0e+0_fp\n       ELSE\n          DEP_POPP_OCPI_DRY  = DEP_POPP_OCPI\n       ENDIF\n\n       IF ( (K_DEPP_BCPI < SMALLNUM) .OR. (DEP_POPP_BCPI < SMALLNUM) ) THEN\n          DEP_POPP_BCPI_DRY  = 0e+0_fp\n       ELSE\n          DEP_POPP_BCPI_DRY  = DEP_POPP_BCPI\n       ENDIF\n\n       !==============================================================\n       ! %%%%% HISTORY (netCDF DIAGNOSTICS) %%%%%\n       !\n       ! If we are using full PBL mixing, then archive dry dep flux\n       ! due to chemistry and the total dry dep flux [molec/cm2/s]\n       !\n       ! NOTE: Only archive drydep within the PBL (bmy, 10/23/18)\n       ! ALSO NOTE: Need to sum contributions from all layers\n       ! into the State_Diag%DryDepChm array.\n       !==============================================================\n       IF ( ( Archive_Drydep         )  .and. &\n            ( .not. Input_Opt%LNLPBL )  .and. &\n            ( F_PBL > 0.0_fp         ) ) THEN\n\n          ! Grid box surface area [cm2]\n          AREA_CM2 = State_Grid%Area_M2(I,J) * 1e+4_fp\n\n          !----------------------------------\n          ! Save drydep flux for POPG\n          !----------------------------------\n          IF ( id_POPG > 0 ) THEN\n\n             ! Point to POPG entry in the species database\n             ThisSpc => State_Chm%SpcData(id_POPG)%Info\n\n             ! Amt of POPG lost to drydep [molec/cm2/s]\n             DEP_DRY_FLXG = DEP_POPG_DRY * AVO &\n                            / ( 1.e-3_fp * ThisSpc%MW_g ) &\n                            / ( AREA_CM2 * DTCHEM       )\n\n             ! Save into State_Diag%DryDepChm\n             State_Diag%DryDepChm(I,J,id_POPG) = &\n                  State_Diag%DryDepChm(I,J,id_POPG) + DEP_DRY_FLXG\n\n             ! Free pointer\n             ThisSpc => NULL()\n          ENDIF\n\n          !----------------------------------\n          ! Save drydep flux for POPPOCPO\n          !----------------------------------\n          IF ( id_POPPOCPO > 0 ) THEN\n\n             ! Point to POPPOCPO entry in the species database\n             ThisSpc => State_Chm%SpcData(id_POPPOCPO)%Info\n\n             ! Amt of POPPOCPO lost to drydep [molec/cm2/s]\n             DEP_DRY_FLXP_OCPO = DEP_POPP_OCPO_DRY * AVO &\n                                 / ( 1.e-3_fp * ThisSpc%MW_g ) &\n                                 / ( AREA_CM2 * DTCHEM       )\n\n             ! Save into State_Diag%DryDepChm\n             State_Diag%DryDepChm(I,J,id_POPPOCPO) = &\n                  State_Diag%DryDepChm(I,J,id_POPPOCPO) + DEP_DRY_FLXP_OCPO\n\n             ! Free pointer\n             ThisSpc => NULL()\n          ENDIF\n\n          !----------------------------------\n          ! Save drydep flux for POPPOCPI\n          !----------------------------------\n          IF ( id_POPPOCPI > 0 ) THEN\n\n             ! Point to POPPOCPO entry in the species database\n             ThisSpc => State_Chm%SpcData(id_POPPOCPI)%Info\n\n             ! Amt of POPPOCPO lost to drydep [molec/cm2/s]\n             DEP_DRY_FLXP_OCPI = DEP_POPP_OCPI_DRY * AVO &\n                                 / ( 1.e-3_fp * ThisSpc%MW_g ) &\n                                 / ( AREA_CM2 * DTCHEM       )\n\n             ! Save into State_Diag%DryDepChm\n             State_Diag%DryDepChm(I,J,id_POPPOCPI) = &\n                  State_Diag%DryDepChm(I,J,id_POPPOCPI) + DEP_DRY_FLXP_OCPI\n\n             ! Free pointer\n             ThisSpc => NULL()\n          ENDIF\n\n          !----------------------------------\n          ! Save drydep flux for POPPBCPO\n          !----------------------------------\n          IF ( id_POPPBCPO > 0 ) THEN\n\n             ! Point to POPPOCPO entry in the species database\n             ThisSpc => State_Chm%SpcData(id_POPPBCPO)%Info\n\n             ! Amt of POPPBCPO lost to drydep [molec/cm2/s]\n             DEP_DRY_FLXP_BCPO = DEP_POPP_BCPO_DRY * AVO &\n                                 / ( 1.e-3_fp * ThisSpc%MW_g ) &\n                                 / ( AREA_CM2 * DTCHEM       )\n\n             ! Save into State_Diag%DryDepChm\n             State_Diag%DryDepChm(I,J,id_POPPBCPO) = &\n                  State_Diag%DryDepChm(I,J,id_POPPBCPO) + DEP_DRY_FLXP_BCPO\n\n             ! Free pointer\n             ThisSpc => NULL()\n          ENDIF\n\n          !----------------------------------\n          ! Save drydep flux for POPPBCPI\n          !----------------------------------\n          IF ( id_POPPBCPI > 0 ) THEN\n\n             ! Point to POPPOCPO entry in the species database\n             ThisSpc => State_Chm%SpcData(id_POPPBCPI)%Info\n\n             ! Amt of POPPBCPI lost to drydep [molec/cm2/s]\n             DEP_DRY_FLXP_BCPI = DEP_POPP_BCPI_DRY * AVO &\n                                 / ( 1.e-3_fp * ThisSpc%MW_g ) &\n                                 / ( AREA_CM2 * DTCHEM       )\n\n             ! Save into State_Diag%DryDepChm\n             State_Diag%DryDepChm(I,J,id_POPPBCPI) = &\n                  State_Diag%DryDepChm(I,J,id_POPPBCPI) + DEP_DRY_FLXP_BCPI\n\n             ! Free pointer\n             ThisSpc => NULL()\n          ENDIF\n       ENDIF\n\n       !==============================================================\n       ! %%%%% HISTORY (netCDF) DIAGNOSTICS %%%%%\n       !\n       ! POPs prod/loss diagnostics [kg/s]\n       !==============================================================\n       IF ( State_Diag%Archive_ProdPOPGfromOH ) THEN\n          State_Diag%ProdPOPGfromOH(I,J,L)      = GROSS_OX_OH / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPOCPOfromO3 ) THEN\n          State_Diag%ProdPOPPOCPOfromO3(I,J,L)  = GROSS_OX_O3_OCPO / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPOCPIfromO3 ) THEN\n          State_Diag%ProdPOPPOCPIfromO3(I,J,L)  = GROSS_OX_O3_OCPI / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPBCPOfromO3 ) THEN\n          State_Diag%ProdPOPPBCPOfromO3(I,J,L)  = GROSS_OX_O3_BCPO / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPBCPIfromO3 ) THEN\n          State_Diag%ProdPOPPBCPIfromO3(I,J,L)  = GROSS_OX_O3_BCPI / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPOCPOfromNO3 ) THEN\n          State_Diag%ProdPOPPOCPOfromNO3(I,J,L) = GROSS_OX_NO3_OCPO / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPOCPIfromNO3 ) THEN\n          State_Diag%ProdPOPPOCPIfromNO3(I,J,L) = GROSS_OX_NO3_OCPI / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPBCPOfromNO3 ) THEN\n          State_Diag%ProdPOPPBCPOfromNO3(I,J,L) = GROSS_OX_O3_BCPO / DTCHEM\n       ENDIF\n\n       IF ( State_Diag%Archive_ProdPOPPBCPIfromNO3 ) THEN\n          State_Diag%ProdPOPPBCPIfromNO3(I,J,L) = GROSS_OX_NO3_BCPI / DTCHEM\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHEM_POPGP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  rxn_ox_nodep\n!\n! !DESCRIPTION: Subroutine RXN\\_OX\\_NODEP calculates new mass of POPG for given\n! oxidation rates, without any deposition. This is for the free troposphere, or\n! simulations with deposition turned off. (clf, 1/27/11, based on\n! RXN\\_REDOX\\_NODEP in mercury\\_mod.F90).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RXN_OX_NODEP( OLD_POPG, K_OX, E_KOX_T, NEW_POPG, GROSS_OX )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)  :: OLD_POPG\n    REAL(fp),  INTENT(IN)  :: K_OX\n    REAL(fp),  INTENT(IN)  :: E_KOX_T\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: NEW_POPG\n    REAL(fp),  INTENT(OUT) :: GROSS_OX\n!\n! !REVISION HISTORY:\n!  27 January 2011 - CL Friedman - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! RXN_OX_NODEP begins here!\n    !=================================================================\n\n    ! Oxidation\n    IF (K_OX < SMALLNUM ) THEN\n\n       GROSS_OX = 0e+0_fp\n       NEW_POPG = OLD_POPG\n\n    ELSE\n\n       ! New concentration of POPG\n       NEW_POPG = OLD_POPG * E_KOX_T\n\n       ! Gross oxidation\n       GROSS_OX = OLD_POPG - NEW_POPG\n       GROSS_OX = MAX( GROSS_OX, 0e+0_fp )\n\n    ENDIF\n\n  END SUBROUTINE RXN_OX_NODEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!-----------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  rxn_ox_withdep\n!\n! !DESCRIPTION: Subroutine RXN\\_OX\\_WITHDEP calculates new mass of POPG for\n!  given rates of oxidation and deposition. This is for the boundary layer.\n!  (clf, 1/27/11, based on RXN\\_REDOX\\_NODEP in mercury\\_mod.F90).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RXN_OX_WITHDEP( OLD_POPG, K_OX, K_DEPG, DT, E_KOX_T, &\n                             NEW_POPG, GROSS_OX, DEP_POPG )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)  :: OLD_POPG\n    REAL(fp),  INTENT(IN)  :: DT\n    REAL(fp),  INTENT(IN)  :: K_OX\n    REAL(fp),  INTENT(IN)  :: K_DEPG\n    REAL(fp),  INTENT(IN)  :: E_KOX_T\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: NEW_POPG\n    REAL(fp),  INTENT(OUT) :: GROSS_OX\n    REAL(fp),  INTENT(OUT) :: DEP_POPG\n!\n! !REVISION HISTORY:\n!  27 January 2011 - CL Friedman - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)               :: E_KDEPG_T\n    REAL(fp)               :: NEWPOPG_OX\n    REAL(fp)               :: NEWPOPG_DEP\n\n    !=================================================================\n    ! RXN_OX_WITHDEP begins here!\n    !=================================================================\n\n    ! Precompute exponential factor for deposition [dimensionless]\n    E_KDEPG_T = EXP( -K_DEPG * DT )\n\n    IF (K_OX < SMALLNUM) THEN\n\n       !=================================================================\n       ! No Chemistry, Deposition only\n       !=================================================================\n\n       ! New mass of POPG [kg]\n       NEW_POPG = OLD_POPG * E_KDEPG_T\n\n       ! Oxidation of POPG [kg]\n       GROSS_OX = 0e+0_fp\n\n       ! Deposited POPG [kg]\n       DEP_POPG = OLD_POPG - NEW_POPG\n\n    ELSE\n\n       !=================================================================\n       ! Oxidation and Deposition\n       !=================================================================\n\n       ![POPG](t) = [POPG](0) exp( -(kOx + kDPOPG) t)\n       !Ox(t)     = ( [POPG](0) - [POPG](t) ) * kOx / ( kOx + kDPOPG )\n       !Dep_POPG(t)   = ( [POPG](0) - [POPG](t) - Ox(t) )\n\n       ! New concentration of POPG [kg]\n       NEW_POPG = OLD_POPG * E_KOX_T * E_KDEPG_T\n\n       ! Gross oxidized gas phase mass [kg]\n       GROSS_OX = ( OLD_POPG - NEW_POPG ) * K_OX / ( K_OX + K_DEPG )\n       GROSS_OX = MAX( GROSS_OX, 0e+0_fp )\n\n       ! POPG deposition [kg]\n       DEP_POPG = ( OLD_POPG - NEW_POPG - GROSS_OX )\n       DEP_POPG = MAX( DEP_POPG, 0e+0_fp )\n\n    ENDIF\n\n  END SUBROUTINE RXN_OX_WITHDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  no_rxn_withdep\n!\n! !DESCRIPTION: Subroutine NO\\_RXN\\_WITHDEP calculates new mass of POPP for\n!  given rate of deposition. No oxidation of POPP. This is for the boundary\n!  layer. (clf, 2/9/11)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NO_RXN_WITHDEP( OLD_POPP, K_DEPP, DT, NEW_POPP, DEP_POPP )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)  :: OLD_POPP\n    REAL(fp),  INTENT(IN)  :: K_DEPP\n    REAL(fp),  INTENT(IN)  :: DT\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT) :: NEW_POPP\n    REAL(fp),  INTENT(OUT) :: DEP_POPP\n!\n! !REVISION HISTORY:\n!  9 February 2011 - CL Friedman - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)               :: E_KDEPP_T\n\n    !=================================================================\n    ! NO_RXN_WITHDEP begins here!\n    !=================================================================\n\n    ! Precompute exponential factors [dimensionless]\n    E_KDEPP_T = EXP( -K_DEPP * DT )\n\n    !=================================================================\n    ! No Chemistry, Deposition only\n    !=================================================================\n\n    ! New mass of POPP [kg]\n    NEW_POPP = OLD_POPP * E_KDEPP_T\n\n    ! POPP deposition [kg]\n    DEP_POPP = OLD_POPP - NEW_POPP\n    DEP_POPP = MAX( DEP_POPP, 0e+0_fp )\n\n  END SUBROUTINE NO_RXN_WITHDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  get_oh\n!\n! !DESCRIPTION: Function GET\\_OH returns monthly mean OH and imposes a diurnal\n! variation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_OH( I, J, L, State_Met ) RESULT( OH_MOLEC_CM3 )\n!\n! !USES:\n!\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: I              ! Longitude index\n    INTEGER,        INTENT(IN)  :: J              ! Latitude index\n    INTEGER,        INTENT(IN)  :: L              ! Level index\n    TYPE(MetState), INTENT(IN)  :: State_Met      ! Meteorology State object\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                    :: OH_MOLEC_CM3   ! OH conc [molec/cm3]\n!\n! !REVISION HISTORY:\n!  03 Feb 2011 - CL Friedman - Initial Version, copied from mercury_mod.f\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! GET_OH begins here!\n    !=================================================================\n\n    ! Test for sunlight...\n    IF ( State_Met%SUNCOS(I,J) > 0e+0_fp .and. TCOSZ(I,J) > 0e+0_fp ) THEN\n\n       ! OH from HEMCO is in mol/mol, convert to molec/cm3\n       OH_MOLEC_CM3 = OH(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n\n       ! Impose a diurnal variation on OH during the day\n       OH_MOLEC_CM3 = OH_MOLEC_CM3 * &\n                      ( State_Met%SUNCOS(I,J) / TCOSZ(I,J)    ) * &\n                      ( 86400e+0_fp           / GET_TS_CHEM() )\n\n       ! Make sure OH is not negative\n       OH_MOLEC_CM3 = MAX( OH_MOLEC_CM3, 0e+0_fp )\n\n    ELSE\n\n       ! At night, OH goes to zero\n       OH_MOLEC_CM3 = 0e+0_fp\n\n    ENDIF\n\n  END FUNCTION GET_OH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  ohno3time\n!\n! !DESCRIPTION: Subroutine OHNO3TIME computes the sum of cosine of the solar\n!  zenith angle over a 24 hour day, as well as the total length of daylight.\n!  This is needed to scale the offline OH and NO3 concentrations.\n!  (rjp, bmy, 12/16/02, 12/8/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OHNO3TIME( State_Grid )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n    USE TIME_MOD,       ONLY : GET_NHMSb,   GET_ELAPSED_SEC\n    USE TIME_MOD,       ONLY : GET_TS_CHEM, GET_DAY_OF_YEAR, GET_GMT\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !REVISION HISTORY:\n!  20 Sep 2010 - N.E. Selin  - Initial Version for POPS_MOD\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE       :: FIRST = .TRUE.\n    INTEGER             :: I, J, L, N, NT, NDYSTEP\n    REAL(fp)            :: A0, A1, A2, A3, B1, B2, B3\n    REAL(fp)            :: LHR0, R, AHR, DEC, TIMLOC, YMID_R\n    REAL(fp)            :: SUNTMP(State_Grid%NX,State_Grid%NY)\n\n    !=================================================================\n    ! OHNO3TIME begins here!\n    !=================================================================\n\n    !  Solar declination angle (low precision formula, good enough for us):\n    A0 = 0.006918\n    A1 = 0.399912\n    A2 = 0.006758\n    A3 = 0.002697\n    B1 = 0.070257\n    B2 = 0.000907\n    B3 = 0.000148\n    R  = 2.* PI * float( GET_DAY_OF_YEAR() - 1 ) / 365.\n\n    DEC = A0 - A1*cos(  R) + B1*sin(  R) &\n             - A2*cos(2*R) + B2*sin(2*R) &\n             - A3*cos(3*R) + B3*sin(3*R)\n\n    LHR0 = int(float( GET_NHMSb() )/10000.)\n\n    ! Only do the following at the start of a new day\n    IF ( FIRST .or. GET_GMT() < 1e-5 ) THEN\n\n       ! Zero arrays\n       TTDAY(:,:) = 0e+0_fp\n       TCOSZ(:,:) = 0e+0_fp\n       COSZM(:,:) = 0e+0_fp\n\n       ! NDYSTEP is # of chemistry time steps in this day\n       NDYSTEP = ( 24 - INT( GET_GMT() ) ) * 3600 / GET_TS_CHEM()\n\n       ! NT is the elapsed time [s] since the beginning of the run\n       NT = GET_ELAPSED_SEC()\n\n       ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n       DO N = 1, NDYSTEP\n\n          ! Zero SUNTMP array\n          SUNTMP = 0e+0_fp\n\n          ! Loop over surface grid boxes\n          !$OMP PARALLEL DO       &\n          !$OMP DEFAULT( SHARED ) &\n          !$OMP PRIVATE( I, J, YMID_R, TIMLOC, AHR )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Grid box latitude center [radians]\n             YMID_R = State_Grid%YMid_R( I, J )\n\n             TIMLOC = real(LHR0) + real(NT)/3600.0 + &\n                      State_Grid%XMid( I, J )/15.0\n\n             DO WHILE (TIMLOC .lt. 0)\n                TIMLOC = TIMLOC + 24.0\n             ENDDO\n\n             DO WHILE (TIMLOC .gt. 24.0)\n                TIMLOC = TIMLOC - 24.0\n             ENDDO\n\n             AHR = abs(TIMLOC - 12.) * 15.0 * PI_180\n\n             !===========================================================\n             ! The cosine of the solar zenith angle (SZA) is given by:\n             !\n             !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n             !\n             ! where LAT = the latitude angle,\n             !       DEC = the solar declination angle,\n             !       AHR = the hour angle, all in radians.\n             !\n             ! If SUNCOS < 0, then the sun is below the horizon, and\n             ! therefore does not contribute to any solar heating.\n             !===========================================================\n\n             ! Compute Cos(SZA)\n             SUNTMP(I,J) = sin(YMID_R) * sin(DEC) + &\n                           cos(YMID_R) * cos(DEC) * cos(AHR)\n\n             ! TCOSZ is the sum of SUNTMP at location (I,J)\n             ! Do not include negative values of SUNTMP\n             TCOSZ(I,J) = TCOSZ(I,J) + MAX( SUNTMP(I,J), 0e+0_fp )\n\n             ! COSZM is the peak value of SUMTMP during a day at (I,J)\n             ! (rjp, bmy, 3/30/04)\n             COSZM(I,J) = MAX( COSZM(I,J), SUNTMP(I,J) )\n\n             ! TTDAY is the total daylight time at location (I,J)\n             IF ( SUNTMP(I,J) > 0e+0_fp ) THEN\n                TTDAY(I,J) = TTDAY(I,J) + DBLE( GET_TS_CHEM() ) * 60e+0_fp\n             ENDIF\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n          ! Increment elapsed time [sec]\n          NT = NT + GET_TS_CHEM()\n       ENDDO\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE OHNO3TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  init_pops\n!\n! !DESCRIPTION: Subroutine INIT\\_POPS allocates and zeroes all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_POPS( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Sep 2010 - N.E. Selin  - Initial Version based on INIT_MERCURY\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Assume success\n    RC    = GC_SUCCESS\n\n    ! Exit if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !=================================================================\n    ! Allocate and initialize arrays\n    ! NOTE: These might have to go into state_chm_mod.F90 eventually\n    !=================================================================\n    ALLOCATE( COSZM( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'pops_mod.F90:COSZM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    COSZM = 0.0_fp\n\n    ALLOCATE( TCOSZ( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'pops_mod.F90:TCOSZ', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TCOSZ = 0.0_fp\n\n    ALLOCATE( TTDAY( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'pops_mod.F90:TTDAY', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    TTDAY = 0.0_fp\n\n    ! Now always allocate ZERO_DVEL.  This is needed because the calls\n    ! to CHEM_POPGP have been modified in the CHEMPOPS routine above.\n    ! (bmy, 3/10/15)\n    ALLOCATE( ZERO_DVEL( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'pops_mod.F90:ZERO_DVEL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ZERO_DVEL = 0.0_fp\n\n    !=================================================================\n    ! Initialize species ID and drydep ID flags\n    !=================================================================\n    id_POPG      = Ind_('POPG'        )\n    dd_POPG      = Ind_('POPG',    'D')\n    IF ( id_POPG < 0 ) THEN\n       id_POPG   = Ind_('POPG_BaP')\n       dd_POPG   = Ind_('POPG_BaP','D')\n    ENDIF\n    IF ( id_POPG < 0 ) THEN\n       id_POPG   = Ind_('POPG_PHE')\n       dd_POPG   = Ind_('POPG_PHE','D')\n    ENDIF\n    IF ( id_POPG < 0 ) THEN\n       id_POPG   = Ind_('POPG_PYR')\n       dd_POPG   = Ind_('POPG_PYR','D')\n    ENDIF\n\n    id_POPPOCPO  = Ind_('POPPOCPO'    )\n    dd_POPP_OCPO = Ind_('POPPOCPO','D')\n    IF ( id_POPPOCPO < 0 ) THEN\n       id_POPPOCPO   = Ind_('POPPOCPO_BaP')\n       dd_POPP_OCPO  = Ind_('POPPOCPO_BaP','D')\n    ENDIF\n    IF ( id_POPPOCPO < 0 ) THEN\n       id_POPPOCPO   = Ind_('POPPOCPO_PHE')\n       dd_POPP_OCPO  = Ind_('POPPOCPO_PHE','D')\n    ENDIF\n    IF ( id_POPPOCPO < 0 ) THEN\n       id_POPPOCPO   = Ind_('POPPOCPO_PYR')\n       dd_POPP_OCPO  = Ind_('POPPOCPO_PYR','D')\n    ENDIF\n\n    id_POPPBCPO  = Ind_('POPPBCPO'    )\n    dd_POPP_BCPO = Ind_('POPPBCPO','D')\n    IF ( id_POPPBCPO < 0 ) THEN\n       id_POPPBCPO   = Ind_('POPPBCPO_BaP')\n       dd_POPP_BCPO  = Ind_('POPPBCPO_BaP','D')\n    ENDIF\n    IF ( id_POPPBCPO < 0 ) THEN\n       id_POPPBCPO   = Ind_('POPPBCPO_PHE')\n       dd_POPP_BCPO  = Ind_('POPPBCPO_PHE','D')\n    ENDIF\n    IF ( id_POPPBCPO < 0 ) THEN\n       id_POPPBCPO   = Ind_('POPPBCPO_PYR')\n       dd_POPP_BCPO  = Ind_('POPPBCPO_PYR','D')\n    ENDIF\n\n    id_POPPOCPI  = Ind_('POPPOCPI'    )\n    dd_POPP_OCPI = Ind_('POPPOCPI','D')\n    IF ( id_POPPOCPI < 0 ) THEN\n       id_POPPOCPI   = Ind_('POPPOCPI_BaP')\n       dd_POPP_OCPI  = Ind_('POPPOCPI_BaP','D')\n    ENDIF\n    IF ( id_POPPOCPI < 0 ) THEN\n       id_POPPOCPI   = Ind_('POPPOCPI_PHE')\n       dd_POPP_OCPI  = Ind_('POPPOCPI_PHE','D')\n    ENDIF\n    IF ( id_POPPOCPI < 0 ) THEN\n       id_POPPOCPI   = Ind_('POPPOCPI_PYR')\n       dd_POPP_OCPI  = Ind_('POPPOCPI_PYR','D')\n    ENDIF\n\n    id_POPPBCPI  = Ind_('POPPBCPI'    )\n    dd_POPP_BCPI = Ind_('POPPBCPI','D')\n    IF ( id_POPPBCPI < 0 ) THEN\n       id_POPPBCPI   = Ind_('POPPBCPI_BaP')\n       dd_POPP_BCPI  = Ind_('POPPBCPI_BaP','D')\n    ENDIF\n    IF ( id_POPPBCPI < 0 ) THEN\n       id_POPPBCPI   = Ind_('POPPBCPI_PHE')\n       dd_POPP_BCPI  = Ind_('POPPBCPI_PHE','D')\n    ENDIF\n    IF ( id_POPPBCPI < 0 ) THEN\n       id_POPPBCPI   = Ind_('POPPBCPI_PYR')\n       dd_POPP_BCPI  = Ind_('POPPBCPI_PYR','D')\n    ENDIF\n\n  END SUBROUTINE INIT_POPS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  cleanup_pops\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_POPS deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_POPS( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 September 2010 - N.E. Selin - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Deallocate variables\n    IF ( ALLOCATED( COSZM ) ) THEN\n       DEALLOCATE( COSZM, STAT=RC )\n       CALL GC_CheckVar( 'pops_mod.F90:COSZM', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TCOSZ ) ) THEN\n       DEALLOCATE( TCOSZ, STAT=RC )\n       CALL GC_CheckVar( 'pops_mod.F90:TCOSZ', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( TTDAY  ) ) THEN\n       DEALLOCATE( TTDAY, STAT=RC )\n       CALL GC_CheckVar( 'pops_mod.F90:TTDAY', 2, RC )\n       RETURN\n    ENDIF\n\n    IF ( ALLOCATED( ZERO_DVEL ) ) THEN\n       DEALLOCATE( ZERO_DVEL, STAT=RC  )\n       CALL GC_CheckVar( 'pops_mod.F90:ZERO_DVEL', 2, RC )\n       RETURN\n    ENDIF\n\n    ! Free pointers\n    IF ( ASSOCIATED( C_OC ) ) C_OC => NULL()\n    IF ( ASSOCIATED( C_BC ) ) C_BC => NULL()\n    IF ( ASSOCIATED( O3   ) ) O3   => NULL()\n    IF ( ASSOCIATED( OH   ) ) OH   => NULL()\n\n  END SUBROUTINE CLEANUP_POPS\n!EOC\nEND MODULE POPS_MOD\n"
  },
  {
    "path": "GeosCore/rpmares_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: rpmaresmod.F90\n!\n! !DESCRIPTION: Module RPMARES\\_MOD contains the RPMARES routines, which compute\n!  the aerosol thermodynamical equilibrium. (rjp, bdf, bmy, 11/6/02, 6/11/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE RPMARES_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n\n  ! Make everything PUBLIC\n  PUBLIC\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: HNO3_sav\n  PRIVATE :: SET_HNO3, RPMARES, AWATER\n  PRIVATE :: POLY4,    POLY6,    CUBIC,   ACTCOF\n  PRIVATE :: INIT_RPMARES\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE DATA MEMBERS:\n!\n  ! Array to save evolving HNO3 concentrations\n  REAL(fp), ALLOCATABLE :: HNO3_sav(:,:,:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_RPMARES\n!\n! !DESCRIPTION: Subroutine DO_RPMARES is the interface between the GEOS-CHEM\n!  model and the aerosol thermodynamical equilibrium routine in \"rpmares.f\"\n!  (rjp, bdf, bmy, 12/17/01, 4/10/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_RPMARES( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,            ONLY : ERROR_STOP\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE PhysConstants,        ONLY : AIRMW\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE TIME_MOD,             ONLY : GET_MONTH\n    USE TIME_MOD,             ONLY : ITS_A_NEW_MONTH\n    USE TIME_MOD,             ONLY : GET_ELAPSED_SEC\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  (1 ) Bundled into \"rpmares_mod.f\" (bmy, 11/15/02)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! concentration lower limit [ug/m3 ]\n    REAL(fp),  PARAMETER   :: CONMIN = 1.0e-30_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: FIRST     = .TRUE.\n    LOGICAL, SAVE          :: USE_HNO3_FROM_HEMCO = .FALSE.\n    INTEGER, SAVE          :: id_SO4, id_NH3, id_NH4, id_NIT, id_HNO3\n    INTEGER, SAVE          :: LASTMONTH = -99\n\n    ! scalars\n    INTEGER                :: I,    J,     L,    N\n    REAL(fp)               :: ARH,  ATEMP, AVOL, SO4,  ASO4, ANO3\n    REAL(fp)               :: AH2O, ANH4,  GNH3, GNO3, AHSO4\n    REAL(fp)               :: HNO3_UGM3,   HNO3_MW_g\n    CHARACTER(LEN=255)     :: X, ErrMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Local array for HNO3 from HEMCO\n    REAL(fp) :: HCO_HNO3(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    !=================================================================\n    ! DO_RPMARES begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Error check tracer ID's\n    X = 'DO_RPMARES (rpmares_mod.F90)'\n\n    ! Initialize on first call\n    IF ( FIRST ) THEN\n\n       ! Define advected species ID flags\n       id_SO4  = Ind_('SO4', 'A')\n       id_NH3  = Ind_('NH3', 'A')\n       id_NH4  = Ind_('NH4', 'A')\n       id_NIT  = Ind_('NIT', 'A')\n       id_HNO3 = Ind_('HNO3','A')\n\n       IF ( id_SO4 == 0 ) CALL ERROR_STOP( 'id_SO4 is undefined!', X )\n       IF ( id_NH3 == 0 ) CALL ERROR_STOP( 'id_NH3 is undefined!', X )\n       IF ( id_NH4 == 0 ) CALL ERROR_STOP( 'id_NH4 is undefined!', X )\n       IF ( id_NIT == 0 ) CALL ERROR_STOP( 'id_NIT is undefined!', X )\n\n       ! Initialize arrays\n       CALL INIT_RPMARES( State_Grid )\n\n       ! Check to see if we need to get HNO3 from HEMCO\n       IF ( id_HNO3 == 0 ) THEN\n\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n             ! Coupled simulation: stop w/ error since we need HNO3\n             CALL ERROR_STOP( 'id_HNO3 is not defined!', X )\n\n          ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n             ! Offline simulation: get HNO3 from HEMCO (mps, 9/23/14)\n             USE_HNO3_FROM_HEMCO = .TRUE.\n\n          ELSE\n\n             ! Otherwise stop w/ error\n             CALL ERROR_STOP( 'Invalid simulation type !', X )\n\n          ENDIF\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    ! Evaluate offline global HNO3 from HEMCO is using. Doing this every\n    ! timestep allows usage of HEMCO's scaling and masking functionality\n    IF ( USE_HNO3_FROM_HEMCO ) THEN\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_HNO3', HCO_HNO3, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'GLOBAL_HNO3 not found in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, 'rpmares_mod.F90: Do_rpmares' )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Initialize GEOS-Chem tracer array [kg] from Chemistry State object\n    Spc => State_Chm%Species\n\n    !=================================================================\n    ! Get equilibrium values of water, ammonium  and nitrate content\n    !=================================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,    J,    L,    ATEMP, ARH,  AVOL,  SO4  ) &\n    !$OMP PRIVATE( ANH4, ANO3, GNH3, GNO3,  ASO4, AHSO4, AH2O )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip if we are outside the troposphere (bmy, 4/3/08)\n       IF ( State_Met%InStratMeso(I,J,L) ) CYCLE\n\n       ! Temperature [K], RH [unitless], and volume [m3]\n       ATEMP = State_Met%T(I,J,L)\n       ARH   = State_Met%RH(I,J,L) * 1.e-2_fp\n       AVOL  = State_Met%AIRVOL(I,J,L)\n\n       ! Convert sulfate, ammonimum, gaseous NH3, gaseous HNO3,\n       ! and aerosol NO3  from [kg] to [ug/m3].\n       SO4   = MAX( Spc(id_SO4)%Conc(I,J,L) * 1.e+9_fp / AVOL, CONMIN )\n       GNH3  = MAX( Spc(id_NH3)%Conc(I,J,L) * 1.e+9_fp / AVOL, CONMIN )\n       ANH4  = MAX( Spc(id_NH4)%Conc(I,J,L) * 1.e+9_fp / AVOL, CONMIN )\n       ANO3  = MAX( Spc(id_NIT)%Conc(I,J,L) * 1.e+9_fp / AVOL, CONMIN )\n\n       ! For coupled simulations, use HNO3 tracer from Spc array.\n       ! For offline simulations, call GET_HNO3, which lets HNO3\n       ! conc's evolve, but relaxes to monthly mean values every 3h.\n       IF ( id_HNO3 > 0 ) THEN\n          GNO3 = MAX( Spc(id_HNO3)%Conc(I,J,L) * 1.e+9_fp / AVOL, CONMIN )\n       ELSE\n          ! Offline simulation\n          ! Relax to monthly mean HNO3 concentrations every 3 hours\n          ! Otherwise just return the concentration in HNO3_sav\n          IF ( MOD( GET_ELAPSED_SEC(), 10800 ) == 0 ) THEN\n             ! HNO3 is in v/v (from HEMCO), convert to ug/m3\n             HNO3_MW_g = State_Chm%SpcData(id_HNO3)%Info%MW_g\n             HNO3_UGM3 = HCO_HNO3(I,J,L) * State_Met%AIRDEN(I,J,L) &\n                         * 1.e+9_fp / ( AIRMW / HNO3_MW_g )\n          ELSE\n             HNO3_UGM3 = HNO3_sav(I,J,L)\n          ENDIF\n          GNO3 = MAX( HNO3_UGM3, CONMIN )\n       ENDIF\n\n       !==============================================================\n       ! Call the RPMARES code with the following quantities:\n       !\n       ! SO4   : Total sulfate as sulfate                  [ug/m3]\n       ! GNO3  : Nitric Acid vapor (actually gaseous HNO3) [ug/m3]\n       ! GNH3  : Gas phase ammonia                         [ug/m3]\n       ! ARH   : Fractional relative humidity              [unitless]\n       ! ATEMP : Temperature                               [K]\n       ! ASO4  : Aerosol phase sulfate                     [ug/m3]\n       ! AHSO4 : Aerosol phase in bisulfate                [ug/m3]\n       ! ANO3  : Aerosol phase nitrate                     [ug/m3]\n       ! AH2O  : Aerosol phase water                       [ug/m3]\n       ! ANH4  : Aerosol phase ammonium                    [ug/m3]\n       !==============================================================\n       CALL RPMARES( SO4,  GNO3,  GNH3, ARH,  ATEMP, &\n                     ASO4, AHSO4, ANO3, AH2O, ANH4 )\n\n       ! Convert modified concentrations from [ug/m3] to [kg]\n       ! for ammonium, ammonia, nitric acid (g), and Nitrate\n       ! NOTE: We don't modify the total sulfate mass.\n       Spc(id_NH3)%Conc(I,J,L) = MAX( GNH3 * AVOL * 1.e-9_fp, CONMIN )\n       Spc(id_NH4)%Conc(I,J,L) = MAX( ANH4 * AVOL * 1.e-9_fp, CONMIN )\n       Spc(id_NIT)%Conc(I,J,L) = MAX( ANO3 * AVOL * 1.e-9_fp, CONMIN )\n\n       ! For coupled runs, convert HNO3 [kg] and store in Spc.\n       ! For offline runs, save evolving HNO3 [ug/m3] for next timestep.\n       IF ( id_HNO3 > 0 ) THEN\n          Spc(id_HNO3)%Conc(I,J,L) = MAX( GNO3 * AVOL * 1.e-9_fp, CONMIN )\n       ELSE\n          CALL SET_HNO3( I, J, L, GNO3 )\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE DO_RPMARES\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_HNO3\n!\n! !DESCRIPTION: Subroutine SET_HNO3 stores the modified HNO3 value back into\n!  the HNO3_sav array for the next timestep. (bmy, 12/16/02)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_HNO3( I, J, L, HNO3_UGM3 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: I, J, L\n    REAL(fp), INTENT(IN) :: HNO3_UGM3\n!\n! !REVISION HISTORY:\n!  16 Dec 2002 - R. Park & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    HNO3_sav(I,J,L) = HNO3_UGM3\n\n  END SUBROUTINE SET_HNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rpmares\n!\n! !DESCRIPTION: Subroutine RPMARES calculates the chemical composition of a\n!   sulfate\\/nitrate\\/ammonium\\/water aerosol based on equilibrium\n!   thermodynamics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RPMARES( SO4, GNO3, GNH3, RH, TEMP, ASO4, AHSO4, ANO3, AH2O, ANH4 )\n!\n! !USES:\n!\n    USE ERROR_MOD,       ONLY : GEOS_CHEM_STOP, IS_SAFE_DIV\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp) :: SO4              ! Total sulfate in micrograms / m**3\n    REAL(fp) :: GNO3             ! Gas-phase nitric acid in micrograms / m**3\n    REAL(fp) :: GNH3             ! Gas-phase ammonia in micrograms / m**3\n    REAL(fp) :: RH               ! Fractional relative humidity\n    REAL(fp) :: TEMP             ! Temperature in Kelvin\n    REAL(fp) :: ASO4             ! Aerosol sulfate in micrograms / m**3\n    REAL(fp) :: AHSO4            ! Aerosol bisulfate in micrograms / m**3\n    REAL(fp) :: ANO3             ! Aerosol nitrate in micrograms / m**3\n    REAL(fp) :: AH2O             ! Aerosol liquid water content water in\n                                 !   micrograms / m**3\n    REAL(fp) :: ANH4             ! Aerosol ammonium in micrograms / m**3\n!\n! !REMARKS:\n!   This code considers two regimes depending upon the molar ratio\n!   of ammonium to sulfate.\n!\n!   For values of this ratio less than 2,the code solves a cubic for\n!   hydrogen ion molality, H+,  and if enough ammonium and liquid\n!   water are present calculates the dissolved nitric acid. For molal\n!   ionic strengths greater than 50, nitrate is assumed not to be present.\n!\n!   For values of the molar ratio of 2 or greater, all sulfate is assumed\n!   to be ammonium sulfate and a calculation is made for the presence of\n!   ammonium nitrate.\n!\n!   The Pitzer multicomponent approach is used in subroutine ACTCOF to\n!   obtain the activity coefficients. Abandoned -7/30/97 FSB\n!\n!   The Bromley method of calculating the multicomponent activity coefficients\n!    is used in this version 7/30/97 SJR/FSB\n!\n!   The calculation of liquid water\n!   is done in subroutine water. Details for both calculations are given\n!   in the respective subroutines.\n!\n!   Based upon MARS due to\n!   P. Saxena, A.B. Hudischewskyj, C. Seigneur, and J.H. Seinfeld,\n!   Atmos. Environ., vol. 20, Number 7, Pages 1471-1483, 1986.\n!\n!   and SCAPE due to\n!   Kim, Seinfeld, and Saxeena, Aerosol Sience and Technology,\n!   Vol 19, number 2, pages 157-181 and pages 182-198, 1993.\n!\n! NOTE: All concentrations supplied to this subroutine are TOTAL\n!       over gas and aerosol phases\n!\n! !REVISION HISTORY:\n!      Who       When        Detailed description of changes\n!   ---------   --------  -------------------------------------------\n!   S.Roselle   11/10/87  Received the first version of the MARS code\n!   S.Roselle   12/30/87  Restructured code\n!   S.Roselle   2/12/88   Made correction to compute liquid-phase\n!                         concentration of H2O2.\n!   S.Roselle   5/26/88   Made correction as advised by SAI, for\n!                         computing H+ concentration.\n!   S.Roselle   3/1/89    Modified to operate with EM2\n!   S.Roselle   5/19/89   Changed the maximum ionic strength from\n!                         100 to 20, for numerical stability.\n!   F.Binkowski 3/3/91    Incorporate new method for ammonia rich case\n!                         using equations for nitrate budget.\n!   F.Binkowski 6/18/91   New ammonia poor case which\n!                         omits letovicite.\n!   F.Binkowski 7/25/91   Rearranged entire code, restructured\n!                         ammonia poor case.\n!   F.Binkowski 9/9/91    Reconciled all cases of ASO4 to be output\n!                         as SO4--\n!   F.Binkowski 12/6/91   Changed the ammonia defficient case so that\n!                         there is only neutralized sulfate (ammonium\n!                         sulfate) and sulfuric acid.\n!   F.Binkowski 3/5/92    Set RH bound on AWAS to 37 % to be in agreement\n!                          with the Cohen et al. (1987)  maximum molality\n!                          of 36.2 in Table III.( J. Phys Chem (91) page\n!                          4569, and Table IV p 4587.)\n!   F.Binkowski 3/9/92    Redid logic for ammonia defficient case to remove\n!                         possibility for denomenator becoming zero;\n!                         this involved solving for H+ first.\n!                         Note that for a relative humidity\n!                          less than 50%, the model assumes that there is no\n!                          aerosol nitrate.\n!   F.Binkowski 4/17/95   Code renamed  ARES (AeRosol Equilibrium System)\n!                          Redid logic as follows\n!                         1. Water algorithm now follows Spann & Richardson\n!                         2. Pitzer Multicomponent method used\n!                         3. Multicomponent practical osmotic coefficient\n!                            use to close iterations.\n!                         4. The model now assumes that for a water\n!                            mass fraction WFRAC less than 50% there is\n!                            no aerosol nitrate.\n!   F.Binkowski 7/20/95   Changed how nitrate is calculated in ammonia poor\n!                         case, and changed the WFRAC criterion to 40%.\n!                         For ammonium to sulfate ratio less than 1.0\n!                         all ammonium is aerosol and no nitrate aerosol\n!                         exists.\n!   F.Binkowski 7/21/95   Changed ammonia-ammonium in ammonia poor case to\n!                         allow gas-phase ammonia to exist.\n!   F.Binkowski 7/26/95   Changed equilibrium constants to values from\n!                         Kim et al. (1993)\n!   F.Binkowski 6/27/96   Changed to new water format\n!   F.Binkowski 7/30/97   Changed to Bromley method for multicomponent\n!                         activity coefficients. The binary activity\n!                         coefficients\n!                         are the same as the previous version\n!   F.Binkowski 8/1/97    Changed minimum sulfate from 0.0 to 1.0e-6 i.e.\n!                         1 picogram per cubic meter\n!   F.Binkowski 2/23/98   Changes to code made by Ingmar Ackermann to\n!                         deal with precision problems on workstations\n!                         incorporated in to this version.  Also included\n!                         are his improved descriptions of variables.\n!  F. Binkowski 8/28/98   changed logic as follows:\n!                         If iterations fail, initial values of nitrate\n!                          are retained.\n!                         Total mass budgets are changed to account for gas\n!                         phase returned.\n!  F.Binkowski 10/01/98   Removed setting RATIO to 5 for low to\n!                         to zero sulfate sulfate case.\n!  F.Binkowski 01/10/2000 reconcile versions\n!\n!  F.Binkowski 05/17/2000 change to logic for calculating RATIO\n!  F.Binkowski 04/09/2001 change for very low values of RATIO,\n!                         RATIO < 0.5, no iterative calculations are done\n!                         in low ammonia case a MAX(1.0e-10, MSO4) IS\n!                         applied, and the iteration count is\n!                         reduced to fifty for each iteration loop.\n!  R. Yantosca 09/25/2002 Bundled into \"rpmares_mod.f\".  Declared all REALs\n!                          as REAL(fp)'s.  Cleaned up comments.  Also now force\n!                          double precision explicitly with \"D\" exponents.\n!  P. Le Sager and        Bug fix for low ammonia case -- prevent floating\n!  R. Yantosca 04/10/2008  point underflow and NaN's.\n!  P. Le Sager 06/10/2008 Better catch of over/underflow for low ammonia case\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Molecular weights\n    REAL(fp), PARAMETER :: MWNACL = 58.44277e+0_fp               ! NaCl\n    REAL(fp), PARAMETER :: MWNO3  = 62.0049e+0_fp                ! NO3\n    REAL(fp), PARAMETER :: MWHNO3 = 63.01287e+0_fp               ! HNO3\n    REAL(fp), PARAMETER :: MWSO4  = 96.0576e+0_fp                ! SO4\n    REAL(fp), PARAMETER :: MWHSO4 = MWSO4 + 1.0080e+0_fp         ! HSO4\n    REAL(fp), PARAMETER :: MH2SO4 = 98.07354e+0_fp               ! H2SO4\n    REAL(fp), PARAMETER :: MWNH3  = 17.03061e+0_fp               ! NH3\n    REAL(fp), PARAMETER :: MWNH4  = 18.03858e+0_fp               ! NH4\n    REAL(fp), PARAMETER :: MWORG  = 16.0e+0_fp                   ! Organic Species\n    REAL(fp), PARAMETER :: MWCL   = 35.453e+0_fp                 ! Chloride\n    REAL(fp), PARAMETER :: MWLCT  = 3.0e+0_fp * MWNH4 + &        ! Letovicite\n                                    2.0e+0_fp * MWSO4 + 1.0080e+0_fp\n    REAL(fp), PARAMETER :: MWAS   = 2.0e+0_fp * MWNH4 + MWSO4    ! Amm. Sulfate\n    REAL(fp), PARAMETER :: MWABS  = MWNH4 + MWSO4 + 1.0080e+0_fp ! Amm. Bisulfate\n\n    ! Minimum value of sulfate aerosol concentration\n    REAL(fp), PARAMETER :: MINSO4 = 1.0e-6_fp / MWSO4\n\n    ! Minimum total nitrate cncentration\n    REAL(fp), PARAMETER :: MINNO3 = 1.0e-6_fp / MWNO3\n\n    ! Force a minimum concentration\n    REAL(fp), PARAMETER :: FLOOR  = 1.0e-30_fp\n\n    ! Tolerances for convergence test.  NOTE: We now have made these\n    ! parameters so they don't lose their values (phs, bmy, 4/10/08)\n    REAL(fp), PARAMETER :: TOLER1 = 0.00001e+0_fp\n    REAL(fp), PARAMETER :: TOLER2 = 0.001e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: IRH                ! Index set to percent relative humidity\n    INTEGER :: NITR               ! Number of iterations for activity\n                                  !   coefficients\n    INTEGER :: NNN                ! Loop index for iterations\n    INTEGER :: NR                 ! Number of roots to cubic equation for\n                                  ! H+ ciaprecision\n    REAL(fp)  :: A0               ! Coefficients and roots of\n    REAL(fp)  :: A1               ! Coefficients and roots of\n    REAL(fp)  :: A2               ! Coefficients and roots of\n    REAL(fp)  :: AA               ! Coefficients and discriminant for\n                                  ! quadratic equation for ammonium nitrate\n    REAL(fp)  :: BAL              ! internal variables ( high ammonia case)\n    REAL(fp)  :: BB               ! Coefficients and discriminant for\n                                  !   quadratic equation for ammonium nitrate\n    REAL(fp)  :: BHAT             ! Variables used for ammonia solubility\n    REAL(fp)  :: CC               ! Coefficients and discriminant for\n                                  !   quadratic equation for ammonium nitrate\n    REAL(fp)  :: CONVT            ! Factor for conversion of units\n    REAL(fp)  :: DD               ! Coefficients and discriminant for\n                                  !   quadratic equation for ammonium nitrate\n    REAL(fp)  :: DISC             ! Coefficients and discriminant for\n                                  !   quadratic equation for ammonium nitrate\n    REAL(fp)  :: EROR             ! Relative error used for convergence test\n    REAL(fp)  :: FNH3             ! \"Free ammonia concentration\", that\n                                  !   which exceeds TWOSO4\n    REAL(fp)  :: GAMAAB           ! Activity Coefficient for (NH4+,\n                                  !   HSO4-)GAMS( 2,3 )\n    REAL(fp)  :: GAMAAN           ! Activity coefficient for (NH4+, NO3-)\n                                  !   GAMS( 2,2 )\n    REAL(fp)  :: GAMAHAT          ! Variables used for ammonia solubility\n    REAL(fp)  :: GAMANA           ! Activity coefficient for (H+ ,NO3-)\n                                  !   GAMS( 1,2 )\n    REAL(fp)  :: GAMAS1           ! Activity coefficient for (2H+, SO4--)\n                                  !   GAMS( 1,1 )\n    REAL(fp)  :: GAMAS2           ! Activity coefficient for (H+, HSO4-)\n                                  !   GAMS( 1,3 )\n    REAL(fp)  :: GAMOLD           ! used for convergence of iteration\n    REAL(fp)  :: GASQD            ! internal variables ( high ammonia case)\n    REAL(fp)  :: HPLUS            ! Hydrogen ion (low ammonia case) (moles\n                                  !   / kg water)\n    REAL(fp)  :: K1A              ! Equilibrium constant for ammonia to\n                                  !   ammonium\n    REAL(fp)  :: K2SA             ! Equilibrium constant for\n                                  !   sulfate-bisulfate (aqueous)\n    REAL(fp)  :: K3               ! Dissociation constant for ammonium\n                                  !   nitrate\n    REAL(fp)  :: KAN              ! Equilibrium constant for ammonium\n                                  !   nitrate (aqueous)\n    REAL(fp)  :: KHAT             ! Variables used for ammonia solubility\n    REAL(fp)  :: KNA              ! Equilibrium constant for nitric acid\n                                  !   (aqueous)\n    REAL(fp)  :: KPH              ! Henry's Law Constant for ammonia\n    REAL(fp)  :: KW               ! Equilibrium constant for water\n                                  !  dissociation\n    REAL(fp)  :: KW2              ! Internal variable using KAN\n    REAL(fp)  :: MAN              ! Nitrate (high ammonia case) (moles /\n                                  !   kg water)\n    REAL(fp)  :: MAS              ! Sulfate (high ammonia case) (moles /\n                                  !   kg water)\n    REAL(fp)  :: MHSO4            ! Bisulfate (low ammonia case) (moles /\n                                  !   kg water)\n    REAL(fp)  :: MNA              ! Nitrate (low ammonia case) (moles / kg\n                                  !   water)\n    REAL(fp)  :: MNH4             ! Ammonium (moles / kg water)\n    REAL(fp)  :: MOLNU            ! Total number of moles of all ions\n    REAL(fp)  :: MSO4             ! Sulfate (low ammonia case) (moles / kg\n                                  !   water)\n    REAL(fp)  :: PHIBAR           ! Practical osmotic coefficient\n    REAL(fp)  :: PHIOLD           ! Previous value of practical osmotic\n                                  !   coefficient used for convergence of\n                                  !   iteration\n    REAL(fp)  :: RATIO            ! Molar ratio of ammonium to sulfate\n    REAL(fp)  :: RK2SA            ! Internal variable using K2SA\n    REAL(fp)  :: RKNA             ! Internal variables using KNA\n    REAL(fp)  :: RKNWET           ! Internal variables using KNA\n    REAL(fp)  :: RR1\n    REAL(fp)  :: RR2\n    REAL(fp)  :: STION            ! Ionic strength\n    REAL(fp)  :: T1               ! Internal variables for temperature\n                                  !   corrections\n    REAL(fp)  :: T2               ! Internal variables for temperature\n                                  !   corrections\n    REAL(fp)  :: T21              ! Internal variables of convenience (low\n                                  !   ammonia case)\n    REAL(fp)  :: T221             ! Internal variables of convenience (low\n                                  !   ammonia case)\n    REAL(fp)  :: T3               ! Internal variables for temperature\n                                  !   corrections\n    REAL(fp)  :: T4               ! Internal variables for temperature\n                                  !   corrections\n    REAL(fp)  :: T6               ! Internal variables for temperature\n                                  !   corrections\n    REAL(fp)  :: TNH4             ! Total ammonia and ammonium in\n                                  !   micromoles / meter ** 3\n    REAL(fp)  :: TNO3             ! Total nitrate in micromoles / meter ** 3\n    REAL(fp)  :: TSO4             ! Total sulfate in micromoles / meter ** 3\n    REAL(fp)  :: TWOSO4           ! 2.0 * TSO4  (high ammonia case) (moles\n                                  !   / kg water)\n    REAL(fp)  :: WFRAC            ! Water mass fraction\n    REAL(fp)  :: WH2O             ! Aerosol liquid water content (internally)\n                                  !   micrograms / meter **3 on output\n                                  !   internally it is 10 ** (-6) kg (water)\n                                  !   / meter ** 3\n                                  !   the conversion factor (1000 g = 1 kg)\n                                  !   is applied for AH2O output\n    REAL(fp)  :: WSQD             ! internal variables ( high ammonia case)\n    REAL(fp)  :: XNO3             ! Nitrate aerosol concentration in\n                                  ! micromoles / meter ** 3\n    REAL(fp)  :: XXQ              ! Variable used in quadratic solution\n    REAL(fp)  :: YNH4             ! Ammonium aerosol concentration in\n                                  !  micromoles / meter** 3\n    REAL(fp)  :: ZH2O             ! Water variable saved in case ionic\n                                  !  strength too high.\n    REAL(fp)  :: ZSO4             ! Total sulfate molality - mso4 + mhso4\n                                  !  (low ammonia case) (moles / kg water)\n    REAL(fp)  :: CAT( 2 )         ! Array for cations (1, H+); (2, NH4+)\n                                  !  (moles / kg water)\n    REAL(fp)  :: AN ( 3 )         ! Array for anions (1, SO4--); (2,\n                                  !   NO3-); (3, HSO4-)  (moles / kg water)\n    REAL(fp)  :: CRUTES( 3 )      ! Coefficients and roots of\n    REAL(fp)  :: GAMS( 2, 3 )     ! Array of activity coefficients\n    REAL(fp)  :: TMASSHNO3        ! Total nitrate (vapor and particle)\n    REAL(fp)  :: GNO3_IN, ANO3_IN\n\n    !=================================================================\n    ! RPMARES begins here!\n    ! convert into micromoles/m**3\n    !=================================================================\n\n    ! For extremely low relative humidity ( less than 1% ) set the\n    ! water content to a minimum and skip the calculation.\n    IF ( RH .LT. 0.01 ) THEN\n       AH2O = FLOOR\n       RETURN\n    ENDIF\n\n    ! total sulfate concentration\n    TSO4 = MAX( FLOOR, SO4 / MWSO4  )\n    ASO4 = SO4\n\n    !Cia models3 merge NH3/NH4 , HNO3,NO3 here\n    !c *** recommended by Dr. Ingmar Ackermann\n\n    ! total nitrate\n    TNO3      = MAX( 0.0e+0_fp, ( ANO3 / MWNO3 + GNO3 / MWHNO3 ) )\n\n    ! total ammonia\n    TNH4      = MAX( 0.0e+0_fp, ( GNH3 / MWNH3 + ANH4 / MWNH4 )  )\n\n    GNO3_IN   = GNO3\n    ANO3_IN   = ANO3\n    TMASSHNO3 = MAX( 0.0e+0_fp, GNO3 + ANO3 )\n\n    ! set the  molar ratio of ammonium to sulfate\n    RATIO = TNH4 / TSO4\n\n    ! validity check for negative concentration\n    IF (TSO4 < 0.0e+0_fp .OR. TNO3 < 0.0e+0_fp .OR. TNH4 < 0.0e+0_fp) THEN\n       PRINT*, 'TSO4 : ', TSO4\n       PRINT*, 'TNO3 : ', TNO3\n       PRINT*, 'TNH4 : ', TNH4\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! now set humidity index IRH as a percent\n    IRH = NINT( 100.0 * RH )\n\n    ! now set humidity index IRH as a percent\n    IRH = MAX(  1, IRH )\n    IRH = MIN( 99, IRH )\n\n    !=================================================================\n    ! Specify the equilibrium constants at  correct temperature.\n    ! Also change units from ATM to MICROMOLE/M**3 (for KAN, KPH, and K3 )\n    ! Values from Kim et al. (1993) except as noted.\n    ! Equilibrium constant in Kim et al. (1993)\n    !   K = K0 exp[ a(T0/T -1) + b(1+log(T0/T)-T0/T) ], T0 = 298.15 K\n    !   K = K0 EXP[ a T3 + b T4 ] in the code here.\n    !=================================================================\n    CONVT = 1.0e+0_fp / ( 0.082e+0_fp * TEMP )\n    T6    = 0.082e-9_fp *  TEMP\n    T1    = 298.0e+0_fp / TEMP\n    T2    = LOG( T1 )\n    T3    = T1 - 1.0e+0_fp\n    T4    = 1.0e+0_fp + T2 - T1\n\n    !=================================================================\n    ! Equilibrium Relation\n    !\n    ! HSO4-(aq)         = H+(aq)   + SO4--(aq)  ; K2SA\n    ! NH3(g)            = NH3(aq)               ; KPH\n    ! NH3(aq) + H2O(aq) = NH4+(aq) + OH-(aq)    ; K1A\n    ! HNO3(g)           = H+(aq)   + NO3-(aq)   ; KNA\n    ! NH3(g) + HNO3(g)  = NH4NO3(s)             ; K3\n    ! H2O(aq)           = H+(aq)   + OH-(aq)    ; KW\n    !=================================================================\n    KNA  = 2.511e+06_fp *  EXP(  29.17e+0_fp * T3 + 16.83e+0_fp * T4 ) * T6\n    K1A  = 1.805e-05_fp *  EXP(  -1.50e+0_fp * T3 + 26.92e+0_fp * T4 )\n    K2SA = 1.015e-02_fp *  EXP(   8.85e+0_fp * T3 + 25.14e+0_fp * T4 )\n    KW   = 1.010e-14_fp *  EXP( -22.52e+0_fp * T3 + 26.92e+0_fp * T4 )\n    KPH  = 57.639e+0_fp  *  EXP( 13.79e+0_fp * T3 -  5.39e+0_fp * T4 ) * T6\n    !K3   =  5.746E-17 * EXP( -74.38 * T3 + 6.12  * T4 ) * T6 * T6\n    KHAT =  KPH * K1A / KW\n    KAN  =  KNA * KHAT\n\n    ! Compute temperature dependent equilibrium constant for NH4NO3\n    ! (from Mozurkewich, 1993)\n    K3 = EXP( 118.87e+0_fp  - 24084.0e+0_fp / TEMP -  6.025e+0_fp * LOG( TEMP ))\n\n    ! Convert to (micromoles/m**3) **2\n    K3     = K3 * CONVT * CONVT\n\n    WH2O   = 0.0e+0_fp\n    STION  = 0.0e+0_fp\n    AH2O   = 0.0e+0_fp\n    MAS    = 0.0e+0_fp\n    MAN    = 0.0e+0_fp\n    HPLUS  = 0.0e+0_fp\n    NITR   = 0\n    NR     = 0\n    GAMAAN = 1.0e+0_fp\n    GAMOLD = 1.0e+0_fp\n\n    ! If there is very little sulfate and  nitrate\n    ! set concentrations to a very small value and return.\n    IF ( ( TSO4 .LT. MINSO4 ) .AND. ( TNO3 .LT. MINNO3 ) ) THEN\n       ASO4  = MAX( FLOOR, ASO4  )\n       AHSO4 = MAX( FLOOR, AHSO4 ) ! [rjp, 12/12/01]\n       ANO3  = MAX( FLOOR, ANO3  )\n       ANH4  = MAX( FLOOR, ANH4  )\n       WH2O  = FLOOR\n       AH2O  = FLOOR\n       GNH3  = MAX( FLOOR, GNH3  )\n       GNO3  = MAX( FLOOR, GNO3  )\n\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! High Ammonia Case\n    !=================================================================\n    IF ( RATIO .GT. 2.0e+0_fp ) THEN\n\n       GAMAAN = 0.1e+0_fp\n\n       ! Set up twice the sulfate for future use.\n       TWOSO4 = 2.0e+0_fp * TSO4\n       XNO3   = 0.0e+0_fp\n       YNH4   = TWOSO4\n\n       ! Treat different regimes of relative humidity\n       !\n       ! ZSR relationship is used to set water levels. Units are\n       !  10**(-6) kg water/ (cubic meter of air)\n       !  start with ammomium sulfate solution without nitrate\n\n       CALL AWATER( IRH, TSO4, YNH4, TNO3, AH2O ) !**** note TNO3\n       WH2O = 1.0d-3 * AH2O\n       ASO4 = TSO4   * MWSO4\n\n       ! In sulfate poor case, Sulfate ion is preferred\n       ! Set bisulfate equal to zero [rjp, 12/12/01]\n       AHSO4 = 0.0e+0_fp\n       ANO3  = 0.0e+0_fp\n       ANH4  = YNH4 * MWNH4\n       WFRAC = AH2O / ( ASO4 + ANH4 +  AH2O )\n\n       !IF ( WFRAC .EQ. 0.0 )  RETURN   ! No water\n       IF ( WFRAC .LT. 0.2e+0_fp ) THEN\n\n          ! \"dry\" ammonium sulfate and ammonium nitrate\n          ! compute free ammonia\n          FNH3 = TNH4 - TWOSO4\n          CC   = TNO3 * FNH3 - K3\n\n          ! check for not enough to support aerosol\n          IF ( CC .LE. 0.0e+0_fp ) THEN\n             XNO3 = 0.0e+0_fp\n          ELSE\n             AA   = 1.0e+0_fp\n             BB   = -( TNO3 + FNH3 )\n             DISC = BB * BB - 4.0e+0_fp * CC\n\n             ! Check for complex roots of the quadratic\n             ! set retain initial values of nitrate and RETURN\n             ! if complex roots are found\n             IF ( DISC .LT. 0.0e+0_fp ) THEN\n                XNO3  = 0.0e+0_fp\n                AH2O  = 1000.0e+0_fp * WH2O\n                YNH4  = TWOSO4\n                ASO4  = TSO4 * MWSO4\n                AHSO4 = 0.0e+0_fp\n                ANH4  = YNH4 * MWNH4\n                GNH3  = MWNH3 * MAX( FLOOR, ( TNH4 - YNH4 ) )\n                GNO3  = GNO3_IN\n                ANO3  = ANO3_IN\n                RETURN\n             ENDIF\n\n             ! to get here, BB .lt. 0.0, CC .gt. 0.0 always\n             DD  = SQRT( DISC )\n             XXQ = -0.5e+0_fp * ( BB + SIGN ( 1.0e+0_fp, BB ) * DD )\n\n             ! Since both roots are positive, select smaller root.\n             XNO3 = MIN( XXQ / AA, CC / XXQ )\n\n          ENDIF                ! CC .LE. 0.0\n\n          AH2O  = 1000.0e+0_fp * WH2O\n          YNH4  = TWOSO4 + XNO3\n          ASO4  = TSO4 * MWSO4\n          AHSO4 = FLOOR\n          ANO3  = XNO3 * MWNO3\n          ANH4  = YNH4 * MWNH4\n          GNH3  = MWNH3 * MAX( FLOOR, ( TNH4 - YNH4 )  )\n          GNO3  = MAX( FLOOR, ( TMASSHNO3 - ANO3 ) )\n          RETURN\n       ENDIF                  ! WFRAC .LT. 0.2\n\n       ! liquid phase containing completely neutralized sulfate and\n       ! some nitrate.  Solve for composition and quantity.\n       MAS    = TSO4 / WH2O\n       MAN    = 0.0e+0_fp\n       XNO3   = 0.0e+0_fp\n       YNH4   = TWOSO4\n       PHIOLD = 1.0e+0_fp\n\n       !===============================================================\n       ! Start loop for iteration\n       !\n       ! The assumption here is that all sulfate is ammonium sulfate,\n       ! and is supersaturated at lower relative humidities.\n       !===============================================================\n       DO NNN = 1, 50 ! loop count reduced 0409/2001 by FSB\n\n          NITR  = NNN\n          GASQD = GAMAAN * GAMAAN\n          WSQD  = WH2O * WH2O\n          KW2   = KAN * WSQD / GASQD\n          AA    = 1.0 - KW2\n          BB    = TWOSO4 + KW2 * ( TNO3 + TNH4 - TWOSO4 )\n          CC    = -KW2 * TNO3 * ( TNH4 - TWOSO4 )\n\n          ! This is a quadratic for XNO3 [MICROMOLES / M**3]\n          ! of nitrate in solution\n          DISC = BB * BB - 4.0e+0_fp * AA * CC\n\n          ! Check for complex roots, retain inital values and RETURN\n          IF ( DISC .LT. 0.0 ) THEN\n             XNO3  = 0.0e+0_fp\n             AH2O  = 1000.0e+0_fp * WH2O\n             YNH4  = TWOSO4\n             ASO4  = TSO4 * MWSO4\n             AHSO4 = FLOOR     ! [rjp, 12/12/01]\n             ANH4  = YNH4 * MWNH4\n             GNH3  = MWNH3 * MAX( FLOOR, (TNH4 - YNH4 ) )\n             GNO3  = GNO3_IN\n             ANO3  = ANO3_IN\n             RETURN\n          ENDIF\n\n          ! Deal with degenerate case (yoj)\n          IF ( AA .NE. 0.0e+0_fp ) THEN\n             DD  = SQRT( DISC )\n             XXQ = -0.5e+0_fp * ( BB + SIGN( 1.0e+0_fp, BB ) * DD )\n             RR1 = XXQ / AA\n             RR2 = CC / XXQ\n\n             ! choose minimum positve root\n             IF ( ( RR1 * RR2 ) .LT. 0.0e+0_fp ) THEN\n                XNO3 = MAX( RR1, RR2 )\n             ELSE\n                XNO3 = MIN( RR1, RR2 )\n             ENDIF\n          ELSE\n             XNO3 = - CC / BB  ! AA equals zero here.\n          ENDIF\n\n          XNO3 = MIN( XNO3, TNO3 )\n\n          ! This version assumes no solid sulfate forms (supersaturated )\n          ! Now update water\n          CALL AWATER ( IRH, TSO4, YNH4, XNO3, AH2O )\n\n          ! ZSR relationship is used to set water levels. Units are\n          ! 10**(-6) kg water/ (cubic meter of air).  The conversion\n          ! from micromoles to moles is done by the units of WH2O.\n          WH2O = 1.0e-3_fp * AH2O\n\n          ! Ionic balance determines the ammonium in solution.\n          MAN  = XNO3 / WH2O\n          MAS  = TSO4 / WH2O\n          MNH4 = 2.0e+0_fp * MAS + MAN\n          YNH4 = MNH4 * WH2O\n\n          ! MAS, MAN and MNH4 are the aqueous concentrations of sulfate,\n          ! nitrate, and ammonium in molal units (moles/(kg water) ).\n          STION    = 3.0e+0_fp * MAS + MAN\n          CAT( 1 ) = 0.0e+0_fp\n          CAT( 2 ) = MNH4\n          AN ( 1 ) = MAS\n          AN ( 2 ) = MAN\n          AN ( 3 ) = 0.0e+0_fp\n          CALL ACTCOF ( CAT, AN, GAMS, MOLNU, PHIBAR )\n          GAMAAN = GAMS( 2, 2 )\n\n          ! Use GAMAAN for convergence control\n          EROR   = ABS( GAMOLD - GAMAAN ) / GAMOLD\n          GAMOLD = GAMAAN\n\n          ! Check to see if we have a solution\n          IF ( EROR .LE. TOLER1 ) THEN\n             ASO4  = TSO4 * MWSO4\n             AHSO4 = 0.0e+0_fp       ! [rjp, 12/12/01]\n             ANO3  = XNO3 * MWNO3\n             ANH4  = YNH4 * MWNH4\n             GNO3  = MAX( FLOOR, ( TMASSHNO3  - ANO3 ) )\n             GNH3  = MWNH3 * MAX( FLOOR, ( TNH4 - YNH4 ) )\n             AH2O  = 1000.0e+0_fp * WH2O\n             RETURN\n          ENDIF\n\n       ENDDO\n\n       ! If after NITR iterations no solution is found, then:\n       ! FSB retain the initial values of nitrate particle and vapor\n       ! note whether or not convert all bisulfate to sulfate\n       ASO4  = TSO4 * MWSO4\n       AHSO4 = FLOOR\n       XNO3  = TNO3 / MWNO3\n       YNH4  = TWOSO4\n       ANH4  = YNH4 * MWNH4\n\n       CALL AWATER ( IRH, TSO4, YNH4, XNO3, AH2O )\n\n       GNO3  = GNO3_IN\n       ANO3  = ANO3_IN\n       GNH3  = MAX( FLOOR, MWNH3 * (TNH4 - YNH4 ) )\n       RETURN\n\n    !================================================================\n    ! Low Ammonia Case\n    !\n    ! Coded by Dr. Francis S. Binkowski 12/8/91.(4/26/95)\n    ! modified 8/28/98\n    ! modified 04/09/2001\n    !\n    ! All cases covered by this logic\n    !=================================================================\n    ELSE\n\n       WH2O = 0.0e+0_fp\n       CALL AWATER ( IRH, TSO4, TNH4, TNO3, AH2O )\n       WH2O = 1.0e-3_fp * AH2O\n       ZH2O = AH2O\n\n       ! convert 10**(-6) kg water/(cubic meter of air) to micrograms\n       ! of water per cubic meter of air (1000 g = 1 kg)\n       ! in sulfate rich case, preferred form is HSO4-\n       !ASO4 = TSO4 * MWSO4\n       ASO4  = FLOOR          ![rjp, 12/12/01]\n       AHSO4 = TSO4 * MWSO4   ![rjp, 12/12/01]\n       ANH4  = TNH4 * MWNH4\n       ANO3  = ANO3_IN\n       GNO3  = TMASSHNO3 - ANO3\n       GNH3  = FLOOR\n\n       !==============================================================\n       ! *** Examine special cases and return if necessary.\n       !\n       ! FSB For values of RATIO less than 0.5 do no further\n       ! calculations.  The code will cycle and still predict the\n       ! same amount of ASO4, ANH4, ANO3, AH2O so terminate early\n       ! to swame computation\n       !==============================================================\n       IF ( RATIO .LT. 0.5e+0_fp ) RETURN ! FSB 04/09/2001\n\n       ! Check for zero water.\n       IF ( WH2O .EQ. 0.0e+0_fp ) RETURN\n       ZSO4 = TSO4 / WH2O\n\n       ! ZSO4 is the molality of total sulfate i.e. MSO4 + MHSO4\n       ! do not solve for aerosol nitrate for total sulfate molality\n       ! greater than 11.0 because the model parameters break down\n       !### IF ( ZSO4 .GT. 11.0 ) THEN\n       IF ( ZSO4 .GT. 9.0 ) THEN ! 18 June 97\n          RETURN\n       ENDIF\n\n       ! *** Calculation may now proceed.\n       !\n       ! First solve with activity coeffs of 1.0, then iterate.\n       PHIOLD = 1.0e+0_fp\n       GAMANA = 1.0e+0_fp\n       GAMAS1 = 1.0e+0_fp\n       GAMAS2 = 1.0e+0_fp\n       GAMAAB = 1.0e+0_fp\n       GAMOLD = 1.0e+0_fp\n\n       ! All ammonia is considered to be aerosol ammonium.\n       MNH4 = TNH4 / WH2O\n\n       ! MNH4 is the molality of ammonium ion.\n       YNH4 = TNH4\n\n       ! loop for iteration\n       DO NNN = 1, 50    ! loop count reduced 04/09/2001 by FSB\n          NITR = NNN\n\n          !------------------------------------------------------------\n          ! Add robustness: now check if GAMANA or GAMAS1 is too small\n          ! for the division in RKNA and RK2SA. If they are, return w/\n          ! original values: basically replicate the procedure used\n          ! after the current DO-loop in case of no-convergence\n          ! (phs, bmy, rjp, 4/10/08)\n          ! Now uses IS_SAFE_DIV to avoid compiler/machine dependency\n          ! and to check for both underlow and overflow. Also\n          ! use REAL4 flag to avoid under/overflow when computing A0\n          ! and A1 from RKNA and RK2SA (phs, 5/28/08)\n          !------------------------------------------------------------\n          IF ( .NOT. ( IS_SAFE_DIV( GAMAS2, GAMAS1*GAMAS1*GAMAS1, R4=.TRUE. ) &\n               .AND.   IS_SAFE_DIV( KNA, GAMANA*GAMANA, R4=.TRUE. ) ) ) THEN\n             WRITE(6,*) 'RPMARES: not safe to divide...exit'\n             CALL flush(6)\n             GOTO 100\n          ENDIF\n\n          ! set up equilibrium constants including activities\n          ! solve the system for hplus first then sulfate & nitrate\n          RK2SA  = K2SA * GAMAS2 * GAMAS2 / (GAMAS1 * GAMAS1 * GAMAS1)\n          RKNA   = KNA / ( GAMANA * GAMANA )\n          RKNWET = RKNA * WH2O\n          T21    = ZSO4 - MNH4\n          T221   = ZSO4 + T21\n\n          ! set up coefficients for cubic\n          A2 = RK2SA + RKNWET - T21\n          A1 = RK2SA * RKNWET - T21 * ( RK2SA + RKNWET ) &\n             - RK2SA * ZSO4 - RKNA * TNO3\n          A0 = - (T21 * RK2SA * RKNWET &\n               + RK2SA * RKNWET * ZSO4 + RK2SA * RKNA * TNO3 )\n\n          CALL CUBIC ( A2, A1, A0, NR, CRUTES )\n\n          ! Code assumes the smallest positive root is in CRUTES(1)\n          ! But, it can be negative (see CUBIC, case of one real root,\n          ! but can also be propagated by over/underflown)... if it is\n          ! the case then return with original values (phs, 5/27/08)\n          HPLUS = CRUTES( 1 )\n          IF (HPLUS <= 0e+0_fp) GOTO 100\n          BAL   = HPLUS **3 + A2 * HPLUS**2 + A1 * HPLUS + A0\n\n          ! molality of sulfate ion\n          MSO4  = RK2SA * ZSO4 / ( HPLUS + RK2SA )\n\n          ! molality of bisulfate ion\n          ! MAX added 04/09/2001 by FSB\n          MHSO4 = MAX( 1.0e-10_fp, ZSO4 - MSO4 )\n\n          ! molality of nitrate ion\n          MNA   = RKNA * TNO3 / ( HPLUS + RKNWET )\n          MNA   = MAX( 0.0e+0_fp, MNA )\n          MNA   = MIN( MNA, TNO3 / WH2O )\n          XNO3  = MNA * WH2O\n          ANO3  = MNA * WH2O * MWNO3\n          GNO3  = MAX( FLOOR, TMASSHNO3 - ANO3 )\n          ASO4  = MSO4 * WH2O * MWSO4 ![rjp, 12/12/01]\n          AHSO4 = MHSO4 * WH2O * MWSO4 ![rjp, 12/12/01]\n\n          ! Calculate ionic strength\n          STION = 0.5e+0_fp * ( HPLUS + MNA + MNH4 + MHSO4 + 4.0e+0_fp * MSO4)\n\n          ! Update water\n          CALL AWATER ( IRH, TSO4, YNH4, XNO3, AH2O )\n\n          ! Convert 10**(-6) kg water/(cubic meter of air) to micrograms\n          ! of water per cubic meter of air (1000 g = 1 kg)\n          WH2O     = 1.0e-3_fp * AH2O\n          CAT( 1 ) = HPLUS\n          CAT( 2 ) = MNH4\n          AN ( 1 ) = MSO4\n          AN ( 2 ) = MNA\n          AN ( 3 ) = MHSO4\n\n          CALL ACTCOF ( CAT, AN, GAMS, MOLNU, PHIBAR )\n\n          GAMANA = GAMS( 1, 2 )\n          GAMAS1 = GAMS( 1, 1 )\n          GAMAS2 = GAMS( 1, 3 )\n          GAMAAN = GAMS( 2, 2 )\n\n          ! NOTE: Improved for robustness!\n          GAMAHAT = ( GAMAS2 * GAMAS2 / ( GAMAAB * GAMAAB ) )\n          BHAT = KHAT * GAMAHAT\n          !### EROR = ABS ( ( PHIOLD - PHIBAR ) / PHIOLD )\n          !### PHIOLD = PHIBAR\n          EROR = ABS ( GAMOLD - GAMAHAT ) / GAMOLD\n          GAMOLD = GAMAHAT\n\n          ! return with good solution\n          IF ( EROR .LE. TOLER2 ) THEN\n             RETURN\n          ENDIF\n\n       ENDDO\n\n       ! after NITR iterations, failure to solve the system\n       ! convert all ammonia to aerosol ammonium and return input\n       ! values of NO3 and HNO3\n100    ANH4 = TNH4 * MWNH4\n       GNH3 = FLOOR\n       GNO3 = GNO3_IN\n       ANO3 = ANO3_IN\n       ASO4 = TSO4 * MWSO4    ! [rjp, 12/17/01]\n       AHSO4= FLOOR           ! [rjp, 12/17/01]\n\n       CALL AWATER ( IRH, TSO4, TNH4, TNO3, AH2O )\n\n       RETURN\n\n    ENDIF                     ! ratio .gt. 2.0\n\n  END SUBROUTINE RPMARES\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: awater\n!\n! !DESCRIPTION: \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AWATER( IRHX, MSO4, MNH4, MNO3, WH2O )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER           :: IRHX\n    REAL(fp)          :: MSO4, MNH4, MNO3, WH2O\n!\n! !REMARKS:\n! NOTE!!! wh2o is returned in micrograms / cubic meter\n!         mso4,mnh4,mno3 are in microMOLES / cubic meter\n!\n!  This  version uses polynomials rather than tables, and uses empirical\n! polynomials for the mass fraction of solute (mfs) as a function of water\n! activity\n!   where:\n!\n!            mfs = ms / ( ms + mw)\n!             ms is the mass of solute\n!             mw is the mass of water.\n!\n!  Define y = mw/ ms\n!\n!  then  mfs = 1 / (1 + y)\n!\n!    y can then be obtained from the values of mfs as\n!\n!             y = (1 - mfs) / mfs\n!\n!\n!     the aerosol is assumed to be in a metastable state if the rh is\n!     is below the rh of deliquescence, but above the rh of crystallization.\n!\n!     ZSR interpolation is used for sulfates with x ( the molar ratio of\n!     ammonium to sulfate in eh range 0 <= x <= 2, by sections.\n!     section 1: 0 <= x < 1\n!     section 2: 1 <= x < 1.5\n!     section 3: 1.5 <= x < 2.0\n!     section 4: 2 <= x\n!     In sections 1 through 3, only the sulfates can affect the amount of water\n!     on the particles.\n!     In section 4, we have fully neutralized sulfate, and extra ammonium which\n!     allows more nitrate to be present. Thus, the ammount of water is\n!     calculated\n!     using ZSR for ammonium sulfate and ammonium nitrate. Crystallization is\n!     assumed to occur in sections 2,3,and 4. See detailed discussion below.\n!\n!\n!\n! definitions:\n!     mso4, mnh4, and mno3 are the number of micromoles/(cubic meter of air)\n!      for sulfate, ammonium, and nitrate respectively\n!     irhx is the relative humidity (%)\n!     wh2o is the returned water amount in micrograms / cubic meter of air\n!     x is the molar ratio of ammonium to sulfate\n!     y0,y1,y1.5, y2 are the water contents in mass of water/mass of solute\n!     for pure aqueous solutions with x equal 1, 1.5, and 2 respectively.\n!     y3 is the value of the mass ratio of water to solute for\n!     a pure ammonium nitrate  solution.\n!\n!\n!     coded by Dr. Francis S. Binkowski, 4/8/96.\n!\n! *** modified 05/30/2000\n!     The use of two values of mfs at an ammonium to sulfate ratio\n!     representative of ammonium sulfate led to an minor inconsistancy\n!     in nitrate behavior as the ratio went from a value less than two\n!     to a value greater than two and vice versa with either ammonium\n!     held constant and sulfate changing, or sulfate held constant and\n!     ammonium changing. the value of Chan et al. (1992) is the only value\n!     now used.\n!\n! *** Modified 09/25/2002\n!     Ported into \"rpmares_mod.f\".  Now declare all variables with REAL(fp).\n!     Also cleaned up comments and made cosmetic changes.  Force double\n!     precision explicitly with \"D\" exponents.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Molecular weight parameters\n    REAL(fp), PARAMETER :: MWSO4  = 96.0636e+0_fp\n    REAL(fp), PARAMETER :: MWNH4  = 18.0985e+0_fp\n    REAL(fp), PARAMETER :: MWNO3  = 62.0649e+0_fp\n    REAL(fp), PARAMETER :: MW2    = MWSO4 + 2.0e+0_fp * MWNH4\n    REAL(fp), PARAMETER :: MWANO3 = MWNO3 + MWNH4\n\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: IRH\n    REAL(fp)            :: TSO4,  TNH4,  TNO3,  X,      AW,     AWC\n    REAL(fp)            :: MFS0,  MFS1,  MFS15, Y\n    REAL(fp)            :: Y0,    Y1,    Y15,   Y2,     Y3,     Y40\n    REAL(fp)            :: Y140,  Y1540, YC,    MFSSO4, MFSNO3\n\n    !=================================================================\n    ! The polynomials use data for aw as a function of mfs from Tang\n    ! and Munkelwitz, JGR 99: 18801-18808, 1994.  The polynomials were\n    ! fit to Tang's values of water activity as a function of mfs.\n    !\n    ! *** coefficients of polynomials fit to Tang and Munkelwitz data\n    !     now give mfs as a function of water activity.\n    !=================================================================\n    REAL(fp) :: C1(4)  = (/ 0.9995178e+0_fp,  -0.7952896e+0_fp, &\n                            0.99683673e+0_fp, -1.143874e+0_fp /)\n\n    REAL(fp) :: C15(4) = (/ 1.697092e+0_fp, -4.045936e+0_fp, &\n                            5.833688e+0_fp, -3.463783e+0_fp /)\n\n    REAL(fp) :: C2(4)  = (/ 2.085067e+0_fp, -6.024139e+0_fp, &\n                            8.967967e+0_fp, -5.002934e+0_fp /)\n\n    !=================================================================\n    ! The following coefficients are a fit to the data in Table 1 of\n    !    Nair & Vohra, J. Aerosol Sci., 6: 265-271, 1975\n    !      data c0/0.8258941, -1.899205, 3.296905, -2.214749 /\n    !\n    ! New data fit to data from\n    !       Nair and Vohra J. Aerosol Sci., 6: 265-271, 1975\n    !       Giaque et al. J.Am. Chem. Soc., 82: 62-70, 1960\n    !       Zeleznik J. Phys. Chem. Ref. Data, 20: 157-1200\n    !=================================================================\n    REAL(fp) :: C0(4)  =  (/ 0.798079e+0_fp, -1.574367e+0_fp, &\n                             2.536686e+0_fp, -1.735297e+0_fp /)\n\n    !=================================================================\n    ! Polynomials for ammonium nitrate and ammonium sulfate are from:\n    ! Chan et al.1992, Atmospheric Environment (26A): 1661-1673.\n    !=================================================================\n    REAL(fp) :: KNO3(6) = (/  0.2906e+0_fp,   6.83665e+0_fp, &\n                            -26.9093e+0_fp,   46.6983e+0_fp, &\n                            -38.803e+0_fp,   11.8837e+0_fp /)\n\n    REAL(fp) :: KSO4(6) = (/   2.27515e+0_fp, -11.147e+0_fp, &\n                              36.3369e+0_fp,  -64.2134e+0_fp, &\n                              56.8341e+0_fp,  -20.0953e+0_fp /)\n\n    !=================================================================\n    ! AWATER begins here!\n    !=================================================================\n\n    ! Check range of per cent relative humidity\n    IRH  = IRHX\n    IRH  = MAX( 1, IRH )\n    IRH  = MIN( IRH, 100 )\n\n    ! Water activity = fractional relative humidity\n    AW   = DBLE( IRH ) / 100.0e+0_fp\n    TSO4 = MAX( MSO4 , 0.0e+0_fp )\n    TNH4 = MAX( MNH4 , 0.0e+0_fp )\n    TNO3 = MAX( MNO3 , 0.0e+0_fp )\n    X    = 0.0e+0_fp\n\n    ! If there is non-zero sulfate calculate the molar ratio\n    ! otherwise check for non-zero nitrate and ammonium\n    IF ( TSO4 .GT. 0.0e+0_fp ) THEN\n       X = TNH4 / TSO4\n    ELSE\n       IF ( TNO3 .GT. 0.0e+0_fp .AND. TNH4 .GT. 0.0e+0_fp ) &\n            X = 10.0e+0_fp\n    ENDIF\n\n    ! *** begin screen on x for calculating wh2o\n    IF ( X .LT. 1.0e+0_fp ) THEN\n       MFS0 = POLY4( C0, AW )\n       MFS1 = POLY4( C1, AW )\n       Y0   = ( 1.0e+0_fp - MFS0 ) / MFS0\n       Y1   = ( 1.0e+0_fp - MFS1 ) / MFS1\n       Y    = ( 1.0e+0_fp - X    ) * Y0 + X * Y1\n\n    ELSE IF ( X .LT. 1.5e+0_fp ) THEN\n\n       IF ( IRH .GE. 40 ) THEN\n          MFS1  = POLY4( C1,  AW )\n          MFS15 = POLY4( C15, AW )\n          Y1    = ( 1.0e+0_fp - MFS1  ) / MFS1\n          Y15   = ( 1.0e+0_fp - MFS15 ) / MFS15\n          Y     = 2.0e+0_fp * ( Y1 * ( 1.5e+0_fp - X ) + &\n                  Y15 *( X - 1.0e+0_fp ))\n\n       !==============================================================\n       ! Set up for crystalization\n       !\n       ! Crystallization is done as follows:\n       !\n       ! For 1.5 <= x, crystallization is assumed to occur\n       ! at rh = 0.4\n       !\n       ! For x <= 1.0, crystallization is assumed to occur at an\n       ! rh < 0.01, and since the code does not allow ar rh < 0.01,\n       ! crystallization is assumed not to occur in this range.\n       !\n       ! For 1.0 <= x <= 1.5 the crystallization curve is a straignt\n       ! line from a value of y15 at rh = 0.4 to a value of zero at\n       ! y1. From point B to point A in the diagram.  The algorithm\n       ! does a double interpolation to calculate the amount of\n       ! water.\n       !\n       !        y1(0.40)               y15(0.40)\n       !         +                     + Point B\n       !\n       !\n       !\n       !\n       !         +--------------------+\n       !       x=1                   x=1.5\n       !      Point A\n       !==============================================================\n       ELSE\n\n          ! rh along the crystallization curve.\n          AWC = 0.80e+0_fp * ( X - 1.0e+0_fp )\n          Y   = 0.0e+0_fp\n\n          ! interpolate using crystalization curve\n          IF ( AW .GE. AWC ) THEN\n             MFS1  = POLY4( C1,  0.40e+0_fp )\n             MFS15 = POLY4( C15, 0.40e+0_fp )\n             Y140  = ( 1.0e+0_fp - MFS1  ) / MFS1\n             Y1540 = ( 1.0e+0_fp - MFS15 ) / MFS15\n             Y40   = 2.0e+0_fp * ( Y140  * ( 1.5e+0_fp - X ) + &\n                                   Y1540 * ( X - 1.0e+0_fp ) )\n\n             ! Y along crystallization curve\n             YC   = 2.0e+0_fp * Y1540 * ( X - 1.0e+0_fp )\n             Y    = Y40 - (Y40 - YC) * (0.40e+0_fp - AW) &\n                    / (0.40e+0_fp - AWC)\n          ENDIF\n       ENDIF\n\n    ELSE IF ( X .LT. 2.0e+0_fp ) then               ! changed 12/11/2000 by FSB\n       Y = 0.0D0\n\n       IF ( IRH .GE. 40 ) THEN\n          MFS15  = POLY4( C15, AW )\n          !MFS2  = POLY4( C2,  AW )\n          Y15    = ( 1.0e+0_fp - MFS15 ) / MFS15\n          !y2    = ( 1.0e+0_fp - MFS2  ) / MFS2\n          MFSSO4 = POLY6( KSO4, AW )             ! Changed 05/30/2000 by FSB\n          Y2     = ( 1.0e+0_fp - MFSSO4 ) / MFSSO4\n          Y      = 2.0e+0_fp * (Y15 * (2.0e+0_fp - X) + Y2 * (X - 1.5e+0_fp) )\n       ENDIF\n\n    ELSE                                 ! 2.0 <= x changed 12/11/2000 by FSB\n\n       !==============================================================\n       ! Regime where ammonium sulfate and ammonium nitrate are\n       ! in solution.\n       !\n       ! following cf&s for both ammonium sulfate and ammonium nitrate\n       ! check for crystallization here. their data indicate a 40%\n       ! value is appropriate.\n       !==============================================================\n       Y2 = 0.0e+0_fp\n       Y3 = 0.0e+0_fp\n\n       IF ( IRH .GE. 40 ) THEN\n          MFSSO4 = POLY6( KSO4, AW )\n          MFSNO3 = POLY6( KNO3, AW )\n          Y2     = ( 1.0e+0_fp - MFSSO4 ) / MFSSO4\n          Y3     = ( 1.0e+0_fp - MFSNO3 ) / MFSNO3\n\n       ENDIF\n\n    ENDIF                     ! end of checking on x\n\n    !=================================================================\n    ! Now set up output of WH2O\n    ! WH2O units are micrograms (liquid water) / cubic meter of air\n    !=================================================================\n    IF ( X .LT. 2.0e+0_fp ) THEN  ! changed 12/11/2000 by FSB\n\n       WH2O =  Y * ( TSO4 * MWSO4 + MWNH4 * TNH4 )\n\n    ELSE\n\n       ! this is the case that all the sulfate is ammonium sulfate\n       ! and the excess ammonium forms ammonum nitrate\n       WH2O =   Y2 * TSO4 * MW2 + Y3 * TNO3 * MWANO3\n\n    ENDIF\n\n  END SUBROUTINE AWATER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: poly4\n!\n! !DESCRIPTION: Function POLY4\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION POLY4( A, X ) RESULT( Y )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: A(4), X\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: Y\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    Y = A(1) + X * ( A(2) + X * ( A(3) + X * ( A(4) )))\n\n  END FUNCTION POLY4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: poly6\n!\n! !DESCRIPTION: Function POLY6\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION POLY6( A, X ) RESULT( Y )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: A(6), X\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: Y\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    Y = A(1) + X * ( A(2) + X * ( A(3) + X * ( A(4) + &\n               X * ( A(5) + X * ( A(6)  )))))\n\n  END FUNCTION POLY6\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_NO2\n!\n! !DESCRIPTION: Subroutine to find the roots of a cubic equation \\/ 3rd order\n!  polynomial. Formulae can be found in numer. recip.  on page 145\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CUBIC( A2, A1, A0, NR, CRUTES )\n!\n! !USES:\n!\n    USE ERROR_MOD, ONLY : ERROR_STOP\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp)  :: A2, A1, A0\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER   :: NR\n    REAL(fp)  :: CRUTES(3)\n!\n! !REVISION HISTORY:\n!   kiran  developed  this version on 25/4/1990\n!   Dr. Francis S. Binkowski modified the routine on 6/24/91, 8/7/97\n! ***\n! *** modified 2/23/98 by fsb to incorporate Dr. Ingmar Ackermann's\n!     recommendations for setting a0, a1,a2 as real(fp) variables.\n!\n! Modified by Bob Yantosca (10/15/02)\n! - Now use upper case / white space\n! - force double precision with \"D\" exponents\n! - updated comments / cosmetic changes\n! - now call ERROR_STOP from \"error_mod.f\" to stop the run safely\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)            :: QQ,    RR,    A2SQ,  THETA, DUM1, DUM2\n    REAL(fp)            :: PART1, PART2, PART3, RRSQ,  PHI,  YY1\n    REAL(fp)            :: YY2,   YY3,   COSTH, SINTH\n    REAL(fp), PARAMETER :: ONE    = 1.0e+0_fp\n    REAL(fp), PARAMETER :: SQRT3  = 1.732050808e+0_fp\n    REAL(fp), PARAMETER :: ONE3RD = 0.333333333e+0_fp\n\n    !=================================================================\n    ! CUBIC begins here!\n    !=================================================================\n    A2SQ = A2 * A2\n    QQ   = ( A2SQ - 3.e+0_fp*A1 ) / 9.e+0_fp\n    RR   = ( A2*( 2.e+0_fp*A2SQ - 9.e+0_fp*A1 ) + 27.e+0_fp*A0 ) / 54.e+0_fp\n\n    ! CASE 1 THREE REAL ROOTS or  CASE 2 ONLY ONE REAL ROOT\n    DUM1 = QQ * QQ * QQ\n    RRSQ = RR * RR\n    DUM2 = DUM1 - RRSQ\n\n    IF ( DUM2 .GE. 0.e+0_fp ) THEN\n\n       ! Now we have three real roots\n       PHI = SQRT( DUM1 )\n\n       IF ( ABS( PHI ) .LT. 1.e-20_fp ) THEN\n          CRUTES(1) = 0.0e+0_fp\n          CRUTES(2) = 0.0e+0_fp\n          CRUTES(3) = 0.0e+0_fp\n          NR        = 0\n          CALL ERROR_STOP( 'PHI < 1e-20_fp', 'CUBIC (rpmares_mod.F90)' )\n       ENDIF\n\n       THETA = ACOS( RR / PHI ) / 3.0e+0_fp\n       COSTH = COS( THETA )\n       SINTH = SIN( THETA )\n\n       ! Use trig identities to simplify the expressions\n       ! Binkowski's modification\n       PART1     = SQRT( QQ )\n       YY1       = PART1 * COSTH\n       YY2       = YY1 - A2/3.0e+0_fp\n       YY3       = SQRT3 * PART1 * SINTH\n       CRUTES(3) = -2.0e+0_fp*YY1 - A2/3.0e+0_fp\n       CRUTES(2) = YY2 + YY3\n       CRUTES(1) = YY2 - YY3\n\n       ! Set negative roots to a large positive value\n       IF ( CRUTES(1) .LT. 0.0e+0_fp ) CRUTES(1) = 1.0e+9_fp\n       IF ( CRUTES(2) .LT. 0.0e+0_fp ) CRUTES(2) = 1.0e+9_fp\n       IF ( CRUTES(3) .LT. 0.0e+0_fp ) CRUTES(3) = 1.0e+9_fp\n\n       ! Put smallest positive root in crutes(1)\n       CRUTES(1) = MIN( CRUTES(1), CRUTES(2), CRUTES(3) )\n       NR        = 3\n\n    ELSE\n\n       ! Now here we have only one real root\n       PART1     = SQRT( RRSQ - DUM1 )\n       PART2     = ABS( RR )\n       PART3     = ( PART1 + PART2 )**ONE3RD\n       CRUTES(1) = -SIGN(ONE,RR) * ( PART3 + (QQ/PART3) ) - A2 / 3.e+0_fp\n       CRUTES(2) = 0.e+0_fp\n       CRUTES(3) = 0.e+0_fp\n       NR        = 1\n\n    ENDIF\n\n  END SUBROUTINE CUBIC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: actcof\n!\n! !DESCRIPTION: This subroutine computes the activity coefficients of\n!  (2NH4+,SO4--), (NH4+,NO3-),(2H+,SO4--),(H+,NO3-),AND (H+,HSO4-) in aqueous\n!  multicomponent solution, using Bromley's model and Pitzer's method.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ACTCOF( CAT, AN, GAMA, MOLNU, PHIMULT )\n!\n! !DEFINED PARAMETERS (NEEDED FOR INPUT PARAMETERS):\n!\n    INTEGER,  PARAMETER :: NCAT   = 2       ! number of cation\n    INTEGER,  PARAMETER :: NAN    = 3       ! number of anions\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp)  :: MOLNU            ! tot # moles of all ions\n    REAL(fp)  :: PHIMULT          ! multicomponent paractical osmotic coef\n    REAL(fp)  :: CAT(NCAT)        ! cation conc in moles/kg (input)\n    REAL(fp)  :: AN(NAN)          ! anion conc in moles/kg (input)\n    REAL(fp)  :: GAMA(NCAT,NAN)   ! mean molal ionic activity coefs\n!\n! !REFERENCES:\n!\n!   Bromley, L.A. (1973) Thermodynamic properties of strong electrolytes\n!     in aqueous solutions.  AIChE J. 19, 313-320.\n!\n!   Chan, C.K. R.C. Flagen, & J.H.  Seinfeld (1992) Water Activities of\n!     NH4NO3 / (NH4)2SO4 solutions, Atmos. Environ. (26A): 1661-1673.\n!\n!   Clegg, S.L. & P. Brimblecombe (1988) Equilibrium partial pressures\n!     of strong acids over saline solutions - I HNO3,\n!     Atmos. Environ. (22): 91-100\n!\n!   Clegg, S.L. & P. Brimblecombe (1990) Equilibrium partial pressures\n!     and mean activity and osmotic coefficients of 0-100% nitric acid\n!     as a function of temperature,   J. Phys. Chem (94): 5369 - 5380\n!\n!   Pilinis, C. and J.H. Seinfeld (1987) Continued development of a\n!     general equilibrium model for inorganic multicomponent atmospheric\n!     aerosols.  Atmos. Environ. 21(11), 2453-2466.\n!\n! !REMARKS:\n!     CAT(1) : conc. of H+    (moles/kg)\n!     CAT(2) : conc. of NH4+  (moles/kg)\n!     AN(1)  : conc. of SO4-- (moles/kg)\n!     AN(2)  : conc. of NO3-  (moles/kg)\n!     AN(3)  : conc. of HSO4- (moles/kg)\n!     GAMA(2,1)    : mean molal ionic activity coeff for (2NH4+,SO4--)\n!     GAMA(2,2)    :  \"    \"     \"       \"       \"    \"  (NH4+,NO3-)\n!     GAMA(2,3)    :  \"    \"     \"       \"       \"    \"  (NH4+. HSO4-)\n!     GAMA(1,1)    :  \"    \"     \"       \"       \"    \"  (2H+,SO4--)\n!     GAMA(1,2)    :  \"    \"     \"       \"       \"    \"  (H+,NO3-)\n!     GAMA(1,3)    :  \"    \"     \"       \"       \"    \"  (H+,HSO4-)\n!     MOLNU   : the total number of moles of all ions.\n!     PHIMULT : the multicomponent paractical osmotic coefficient.\n!\n! !REVISION HISTORY:\n!      Who       When        Detailed description of changes\n!   ---------   --------  -------------------------------------------\n!   S.Roselle   7/26/89   Copied parts of routine BROMLY, and began this\n!                         new routine using a method described by Pilinis\n!                         and Seinfeld 1987, Atmos. Envirn. 21 pp2453-2466.\n!   S.Roselle   7/30/97   Modified for use in Models-3\n!   F.Binkowski 8/7/97    Modified coefficients BETA0, BETA1, CGAMA\n!   R.Yantosca  9/25/02   Ported into \"rpmares_mod.f\" for GEOS-CHEM.  Cleaned\n!                         up comments, etc.  Also force double precision by\n!                         declaring REALs as REAL(fp) and by using \"D\" exponents\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: XSTAT0 = 0       ! Normal, successful completion\n    REAL(fp), PARAMETER :: XSTAT1 = 1       ! File I/O error\n    REAL(fp), PARAMETER :: XSTAT2 = 2       ! Execution error\n    REAL(fp), PARAMETER :: XSTAT3 = 3       ! Special  error\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: IAN              ! anion indX\n    INTEGER            :: ICAT             ! cation indX\n    REAL(fp)             :: FGAMA            !\n    REAL(fp)             :: I                ! ionic strength\n    REAL(fp)             :: R                !\n    REAL(fp)             :: S                !\n    REAL(fp)             :: TA               !\n    REAL(fp)             :: TB               !\n    REAL(fp)             :: TC               !\n    REAL(fp)             :: TEXPV            !\n    REAL(fp)             :: TRM              !\n    REAL(fp)             :: TWOI             ! 2*ionic strength\n    REAL(fp)             :: TWOSRI           ! 2*sqrt of ionic strength\n    REAL(fp)             :: ZBAR             !\n    REAL(fp)             :: ZBAR2            !\n    REAL(fp)             :: ZOT1             !\n    REAL(fp)             :: SRI              ! square root of ionic strength\n    REAL(fp)             :: F2(NCAT)         !\n    REAL(fp)             :: F1(NAN)          !\n    REAL(fp)             :: BGAMA (NCAT,NAN) !\n    REAL(fp)             :: X     (NCAT,NAN) !\n    REAL(fp)             :: M     (NCAT,NAN) ! molality of each electrolyte\n    REAL(fp)             :: LGAMA0(NCAT,NAN) ! binary activity coefficients\n    REAL(fp)             :: Y     (NAN,NCAT) !\n    REAL(fp)             :: BETA0 (NCAT,NAN) ! binary activity coef parameter\n    REAL(fp)             :: BETA1 (NCAT,NAN) ! binary activity coef parameter\n    REAL(fp)             :: CGAMA (NCAT,NAN) ! binary activity coef parameter\n    REAL(fp)             :: V1    (NCAT,NAN) ! # of cations in electrolyte\n                                           !   formula\n    REAL(fp)             :: V2    (NCAT,NAN) ! # of anions in electrolyte\n                                           !   formula\n    ! absolute value of charges of cation\n    REAL(fp)             :: ZP(NCAT) = (/ 1.0e+0_fp, 1.0e+0_fp /)\n\n    ! absolute value of charges of anion\n    REAL(fp)             :: ZM(NAN)  = (/ 2.0e+0_fp, 1.0e+0_fp, 1.0e+0_fp /)\n\n    ! Character values.\n    CHARACTER(LEN=120)      :: XMSG  = ' '\n    CHARACTER(LEN=16), SAVE :: PNAME = ' driver program name'\n\n    !================================================================\n    ! *** Sources for the coefficients BETA0, BETA1, CGAMA\n    ! (1,1);(1,3)  - Clegg & Brimblecombe (1988)\n    ! (2,3)        - Pilinis & Seinfeld (1987), cgama different\n    ! (1,2)        - Clegg & Brimblecombe (1990)\n    ! (2,1);(2,2)  - Chan, Flagen & Seinfeld (1992)\n    !================================================================\n\n    ! now set the basic constants, BETA0, BETA1, CGAMA\n    DATA BETA0(1,1) /2.98e-2_fp/,      BETA1(1,1) / 0.0e+0_fp/, &\n         CGAMA(1,1) /4.38e-2_fp/                                 ! 2H+SO4-\n\n    DATA BETA0(1,2) /  1.2556e-1_fp/,  BETA1(1,2) / 2.8778e-1_fp/, &\n         CGAMA(1,2) / -5.59e-3_fp/                               ! HNO3\n\n    DATA BETA0(1,3) / 2.0651e-1_fp/,   BETA1(1,3) / 5.556e-1_fp/, &\n         CGAMA(1,3) /0.0e+0_fp/                                   ! H+HSO4-\n\n    DATA BETA0(2,1) / 4.6465e-2_fp/,   BETA1(2,1) /-0.54196e+0_fp/, &\n         CGAMA(2,1) /-1.2683e-3_fp/                              ! (NH4)2SO4\n\n    DATA BETA0(2,2) /-7.26224e-3_fp/,  BETA1(2,2) /-1.168858e+0_fp/, &\n         CGAMA(2,2) / 3.51217e-5_fp/                             ! NH4NO3\n\n    DATA BETA0(2,3) / 4.494e-2_fp/,    BETA1(2,3) / 2.3594e-1_fp/, &\n         CGAMA(2,3) /-2.962e-3_fp/                               ! NH4HSO4\n\n    DATA V1(1,1), V2(1,1) / 2.0e+0_fp, 1.0e+0_fp /     ! 2H+SO4-\n    DATA V1(2,1), V2(2,1) / 2.0e+0_fp, 1.0e+0_fp /     ! (NH4)2SO4\n    DATA V1(1,2), V2(1,2) / 1.0e+0_fp, 1.0e+0_fp /     ! HNO3\n    DATA V1(2,2), V2(2,2) / 1.0e+0_fp, 1.0e+0_fp /     ! NH4NO3\n    DATA V1(1,3), V2(1,3) / 1.0e+0_fp, 1.0e+0_fp /     ! H+HSO4-\n    DATA V1(2,3), V2(2,3) / 1.0e+0_fp, 1.0e+0_fp /     ! NH4HSO4\n\n    !=================================================================\n    ! ACTCOF begins here!\n    !=================================================================\n\n    ! Compute ionic strength\n    I = 0.0e+0_fp\n\n    DO ICAT = 1, NCAT\n       I = I + CAT( ICAT ) * ZP( ICAT ) * ZP( ICAT )\n    ENDDO\n\n    DO IAN = 1, NAN\n       I = I + AN( IAN ) * ZM( IAN ) * ZM( IAN )\n    ENDDO\n\n    I = 0.5e+0_fp * I\n\n    ! check for problems in the ionic strength\n    IF ( I .EQ. 0.0e+0_fp ) THEN\n\n       DO IAN  = 1, NAN\n       DO ICAT = 1, NCAT\n          GAMA( ICAT, IAN ) = 0.0e+0_fp\n       ENDDO\n       ENDDO\n\n       XMSG = 'Ionic strength is zero...returning zero activities'\n       !CALL M3WARN ( PNAME, 0, 0, XMSG )\n       RETURN\n\n    ELSE IF ( I .LT. 0.0e+0_fp ) THEN\n       XMSG = 'Ionic strength below zero...negative concentrations'\n       write(6,*)xmsg\n       call flush(6)\n       !CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 )\n    ENDIF\n\n    ! Compute some essential expressions\n    SRI    = SQRT( I )\n    TWOSRI = 2.0e+0_fp * SRI\n    TWOI   = 2.0e+0_fp * I\n    TEXPV  = 1.0e+0_fp - EXP( -TWOSRI ) &\n             * ( 1.0e+0_fp + TWOSRI - TWOI )\n    R      = 1.0e+0_fp + 0.75e+0_fp * I\n    S      = 1.0e+0_fp + 1.5e+0_fp  * I\n    ZOT1   = 0.511e+0_fp * SRI / ( 1.0e+0_fp + SRI )\n\n    ! Compute binary activity coeffs\n    FGAMA = -0.392e+0_fp * ( ( SRI / ( 1.0e+0_fp + 1.2e+0_fp * SRI ) &\n            + ( 2.0e+0_fp / 1.2e+0_fp ) &\n            * LOG( 1.0e+0_fp + 1.2e+0_fp * SRI ) ) )\n\n    DO ICAT = 1, NCAT\n    DO IAN  = 1, NAN\n\n       BGAMA( ICAT, IAN ) = 2.0e+0_fp * BETA0( ICAT, IAN ) &\n              + ( 2.0e+0_fp * BETA1( ICAT, IAN ) / ( 4.0e+0_fp * I ) ) &\n              * TEXPV\n\n       ! Compute the molality of each electrolyte for given ionic strength\n       M( ICAT, IAN ) = ( CAT( ICAT )**V1( ICAT, IAN ) &\n                         *   AN( IAN )**V2( ICAT, IAN ) )**( 1.0e+0_fp &\n                         / ( V1( ICAT, IAN ) + V2( ICAT, IAN ) ) )\n\n       ! Calculate the binary activity coefficients\n       LGAMA0( ICAT, IAN ) = ( ZP( ICAT ) * ZM( IAN ) * FGAMA &\n                             + M( ICAT, IAN ) &\n                             * ( 2.0e+0_fp * V1( ICAT, IAN ) * V2( ICAT, IAN ) &\n                             / ( V1( ICAT, IAN ) + V2( ICAT, IAN ) ) &\n                             * BGAMA( ICAT, IAN ) ) &\n                             + M( ICAT, IAN ) * M( ICAT, IAN ) &\n                             * ( 2.0e+0_fp * ( V1( ICAT, IAN ) &\n                             * V2( ICAT, IAN ) )**1.5e+0_fp &\n                             / ( V1( ICAT, IAN ) + V2( ICAT, IAN ) ) &\n                             * CGAMA( ICAT, IAN ) ) ) / 2.302585093e+0_fp\n\n    ENDDO\n    ENDDO\n\n    ! prepare variables for computing the multicomponent activity coeffs\n    DO IAN = 1, NAN\n    DO ICAT = 1, NCAT\n       ZBAR           = ( ZP( ICAT ) + ZM( IAN ) ) * 0.5e+0_fp\n       ZBAR2          = ZBAR * ZBAR\n       Y( IAN, ICAT ) = ZBAR2 * AN( IAN ) / I\n       X( ICAT, IAN ) = ZBAR2 * CAT( ICAT ) / I\n    ENDDO\n    ENDDO\n\n    DO IAN = 1, NAN\n       F1( IAN ) = 0.0e+0_fp\n       DO ICAT = 1, NCAT\n          F1( IAN ) = F1( IAN ) + X( ICAT, IAN ) * LGAMA0( ICAT, IAN ) &\n                      + ZOT1 * ZP( ICAT ) * ZM( IAN ) * X( ICAT, IAN )\n       ENDDO\n    ENDDO\n\n    DO ICAT = 1, NCAT\n       F2( ICAT ) = 0.0e+0_fp\n       DO IAN = 1, NAN\n          F2( ICAT ) = F2( ICAT ) + Y( IAN, ICAT ) * LGAMA0(ICAT, IAN) &\n                       + ZOT1 * ZP( ICAT ) * ZM( IAN ) * Y( IAN, ICAT )\n       ENDDO\n    ENDDO\n\n    ! now calculate the multicomponent activity coefficients\n    DO IAN  = 1, NAN\n    DO ICAT = 1, NCAT\n\n       TA  = -ZOT1 * ZP( ICAT ) * ZM( IAN )\n       TB  = ZP( ICAT ) * ZM( IAN ) / ( ZP( ICAT ) + ZM( IAN ) )\n       TC  = ( F2( ICAT ) / ZP( ICAT ) + F1( IAN ) / ZM( IAN ) )\n       TRM = TA + TB * TC\n\n       IF ( TRM .GT. 30.0e+0_fp ) THEN\n          GAMA( ICAT, IAN ) = 1.0d+30\n       ELSE\n          GAMA( ICAT, IAN ) = 10.0e+0_fp**TRM\n       ENDIF\n\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE ACTCOF\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_rpmares\n!\n! !DESCRIPTION: Subroutine INIT\\_RPMARES initializes all module arrays\n!  (bmy, 12/16/02)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_RPMARES( State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ALLOC_ERR\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: AS\n\n    !=================================================================\n    ! INIT_RPMARES begins here!\n    !=================================================================\n    ALLOCATE( HNO3_sav( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'HNO3_sav' )\n    HNO3_sav = 0e+0_fp\n\n  END SUBROUTINE INIT_RPMARES\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_rpmares\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_RPMARES deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_RPMARES\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( ALLOCATED( HNO3_sav ) ) DEALLOCATE( HNO3_sav )\n\n  END SUBROUTINE CLEANUP_RPMARES\n!EOC\nEND MODULE RPMARES_MOD\n"
  },
  {
    "path": "GeosCore/rrtmg_rad_transfer_mod.F90",
    "content": "#ifdef RRTMG\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: rrtmg_rad_transfer_mod.F90\n!\n! !DESCRIPTION: Module RRTMG\\_RAD\\_TRANSFER\\_MOD contains arrays and routines\n!  for performing online radiative transfer in GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE RRTMG_RAD_TRANSFER_MOD\n!\n! !USES:\n!\n  USE CMN_SIZE_MOD, ONLY : NDUST, NAER\n#if defined( MODEL_CLASSIC )\n  USE OMP_LIB\n#endif\n  USE PARRRTM,      ONLY : NBNDLW\n  USE PARRRSW,      ONLY : NBNDSW\n\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS\n!\n  PUBLIC  :: Do_RRTMG_Rad_Transfer\n  PUBLIC  :: Init_RRTMG_Rad_Transfer\n  PUBLIC  :: Cleanup_RRTMG_Rad_Transfer\n!\n! !PRIVATE:\n!\n  PRIVATE :: Init_MCICA_Clouds\n  PRIVATE :: Init_Surface_Rad\n  PRIVATE :: AttachPointersFromHemco\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! NOTE: Changed to pointers to get inputs from HEMCO (bmy, 10/30/18)\n  ! NOTE: These should eventually go into fields of State_Chm\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_ALBDFNIR(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_ALBDFVIS(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_ALBDRNIR(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_ALBDRVIS(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_01(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_02(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_03(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_04(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_05(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_06(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_07(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_08(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_09(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_10(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_11(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_12(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_13(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_14(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_15(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: MODIS_EMISS_16(:,:  )\n  REAL*4,  POINTER,     PUBLIC         :: CH4CLIM       (:,:,:)\n  REAL*4,  POINTER,     PUBLIC         :: N2OCLIM       (:,:,:)\n  REAL*4,  POINTER,     PUBLIC         :: CFC11CLIM     (:,:,:)\n  REAL*4,  POINTER,     PUBLIC         :: CFC12CLIM     (:,:,:)\n  REAL*4,  POINTER,     PUBLIC         :: CCL4CLIM      (:,:,:)\n  REAL*4,  POINTER,     PUBLIC         :: CFC22CLIM     (:,:,:)\n\n  !MCICA cloud variables now stored for reuse\n  !NOTE: These should eventually go into fields of State_Chm\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: CLDFMCL_LW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: CIWPMCL_LW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: CLWPMCL_LW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: TAUCMCL_LW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: CLDFMCL_SW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: CIWPMCL_SW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: CLWPMCL_SW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: TAUCMCL_SW(:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: SSACMCL   (:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: ASMCMCL   (:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: FSFCMCL   (:,:,:,:)\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: REICMCL   (:,:,:  )\n  REAL*8,  ALLOCATABLE, PUBLIC, TARGET :: RELQMCL   (:,:,:  )\n!\n! !REVISION HISTORY:\n!  18 Jun 2013 - D.A. Ridley - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  REAL*8,  ALLOCATABLE  :: LW_UFLUX (:,:,:)\n  REAL*8,  ALLOCATABLE  :: LW_DFLUX (:,:,:)\n  REAL*8,  ALLOCATABLE  :: SW_UFLUX (:,:,:)\n  REAL*8,  ALLOCATABLE  :: SW_DFLUX (:,:,:)\n  REAL*8,  ALLOCATABLE  :: LW_UFLUXC(:,:,:)\n  REAL*8,  ALLOCATABLE  :: LW_DFLUXC(:,:,:)\n  REAL*8,  ALLOCATABLE  :: SW_UFLUXC(:,:,:)\n  REAL*8,  ALLOCATABLE  :: SW_DFLUXC(:,:,:)\n\n  REAL*8  :: RRTMG_LMB(NBNDLW+NBNDSW)\n\n  INTEGER :: ID_AER_LMB0 (NBNDLW+NBNDSW)\n  INTEGER :: ID_AER_LMB1 (NBNDLW+NBNDSW)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_rrtmg_rad_transfer\n!\n! !DESCRIPTION: Interface between GEOS-Chem and the RRTMG radiative\n!  transfer model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_RRTMG_RAD_TRANSFER( ThisDay,    ThisMonth,  iCld,       &\n                                    iSpecMenu,  iNcDiag,    iSeed,      &\n                                    Input_Opt,  State_Chm,  State_Diag, &\n                                    State_Grid, State_Met,  DT_3D,      &\n                                    HR_3D,      RC                      )\n!\n! !USES:\n!\n    !-----------------------------------------------------------------\n    ! Modules from GeosRad\n    !-----------------------------------------------------------------\n    USE MCICA_SUBCOL_GEN_LW, ONLY : MCICA_SUBCOL_LW\n    USE MCICA_SUBCOL_GEN_SW, ONLY : MCICA_SUBCOL_SW\n    USE PARKIND,             ONLY : IM=>KIND_IM, RB=>KIND_RB\n    USE RRLW_CON,            ONLY : GASCON, AVOGAD\n    USE PARRRTM,             ONLY : NBNDLW, NGPTLW\n    USE PARRRSW,             ONLY : NBNDSW, NGPTSW,NAEREC\n    USE RRTMG_LW_RAD,        ONLY : RRTMG_LW\n    USE RRTMG_SW_RAD,        ONLY : RRTMG_SW\n\n    !-----------------------------------------------------------------\n    ! GEOS-Chem modules\n    !-----------------------------------------------------------------\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,       ONLY : OptInput\n    USE PhysConstants,       ONLY : AIRMW, PI, AVO\n    USE PRESSURE_MOD,        ONLY : GET_PCENTER, GET_PEDGE\n    USE Species_Mod,         ONLY : SpcConc\n    USE State_Chm_Mod,       ONLY : ChmState\n    USE State_Chm_Mod,       ONLY : Ind_\n    USE State_Diag_Mod,      ONLY : DgnState\n    USE State_Grid_Mod,      ONLY : GrdState\n    USE State_Met_Mod,       ONLY : MetState\n    USE TIME_MOD,            ONLY : GET_DAY_OF_YEAR, GET_HOUR\n    USE Timers_Mod,          ONLY : Timer_End, Timer_Start\n    USE TOMS_MOD,            ONLY : GET_OVERHEAD_O3\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: ThisDay    ! CURRENT DAY\n    INTEGER,        INTENT(IN)    :: ThisMonth  ! CURRENT MONTH\n    INTEGER,        INTENT(IN)    :: iSpecMenu  ! THE SPECIES BEING INCLUDED\n                                                ! NEEDED FOR OUTPUT PURPOSES\n    INTEGER,        INTENT(IN)    :: iNcDiag    ! Index for netCDF diag arrays\n    INTEGER,        INTENT(IN)    :: iSeed      ! Seed value\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag ! Diagnostics State object\n    INTEGER,        INTENT(INOUT) :: iCld       ! CLOUD FLAG FOR RRTMG\n                                                ! 0-NOCLOUD, 1-GREY CLOUD\n    ! Used only for fixed dynamical heating work\n    REAL(RB), ALLOCATABLE, INTENT(INOUT) :: DT_3D(:,:,:) ! Layer temperature adjustment (K)\n    REAL(RB), ALLOCATABLE, INTENT(INOUT) :: HR_3D(:,:,:) ! Heating rate (K/day)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC         ! Failure or success\n!\n! !REMARKS:\n!  THIS ROUTINE PASSES INPUTS TO THE RRTMG DRIVER ROUTINE \"RAD_DRIVER\"\n!  VIA THE ARGUMENT LIST.  THIS PREVENTS CIRCULAR REFERENCES.\n!\n! !REVISION HISTORY:\n!  17 AUG 2012 - R. YANTOSCA - INITIAL VERSION\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS\n!\n    INTEGER, PARAMETER :: NWV=37\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL            :: DOAERAD      ! INCLUDE AEROSOL DETERMINED FROM\n                                           ! SPECMASK\n    LOGICAL            :: LOUTPUTAERO  ! OUTPUT AEROSOL DIAGNOSTICS?\n    INTEGER            :: ITIMEVALS(8)\n    INTEGER            :: IDIAGOUT     ! INDEX OF SPC OPTICS FOR OUTPUT\n    INTEGER            :: previous_units\n    REAL*8             :: OLDSECS, NEWSECS\n\n    ! SAVEd scalars\n    LOGICAL, SAVE      :: FIRST    = .TRUE.\n    INTEGER, SAVE      :: id_O3,    id_CH4,  id_N2O, id_CFC11\n    INTEGER, SAVE      :: id_CFC12, id_CCL4, id_HCFC22, id_H2O\n\n    !-----------------------------------------------------------------\n    ! TEMPORARY AEROSOL VARIABLES\n    !-----------------------------------------------------------------\n    REAL*8             :: LAMBDA(NWV)\n\n    !-----------------------------------------------------------------\n    ! SCALARS\n    !-----------------------------------------------------------------\n    INTEGER            :: I, J ,L, LL, N, W\n    INTEGER            :: IL, OMPID, LCHEM\n    INTEGER            :: OUTIDX,IOUTWV\n    INTEGER            :: IB,IBX,IB_SW,IS,NBNDS,NSPEC\n    INTEGER            :: IS_ON,NASPECRAD_ON\n    INTEGER            :: IASPECRAD_ON(State_Chm%Phot%NASPECRAD)\n    INTEGER            :: BaseIndex\n    REAL*8             :: RHOICE=0.9167, RHOLIQ=1.    ! G/CM3\n\n    !-----------------------------------------------------------------\n    ! REL AND REI FROM PERSONAL COMMUNICATION FROM LAZAROS OREOPOULOS\n    ! (GSFC) 12/12/12\n    !-----------------------------------------------------------------\n    REAL*8             :: REL_DEF = 14.2, REI_DEF=24.8    ! MICRONS\n    INTEGER            :: DOY\n\n    INTEGER            :: IHR\n    CHARACTER(LEN=2)   :: CHR\n\n    !-----------------------------------------------------------------\n    ! ARRAYS FROM GC\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: PCENTER(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: PEDGE  (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    !-----------------------------------------------------------------\n    !ARRAYS FOR RRTMG\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: O3VMR (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CH4VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: N2OVMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CFC11VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CFC12VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CFC22VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CCL4VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    REAL(KIND=RB)      :: TAUCLD(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CLDFR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: RELIQ(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: REICE(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CLIQWP(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: CICEWP(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: ALBVIS(State_Grid%NX,State_Grid%NY)\n\n    REAL(KIND=RB)      :: TAUAER_LW(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                    NBNDLW)\n    REAL(KIND=RB)      :: TAUAER_SW(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                    NBNDSW)\n    REAL(KIND=RB)      :: SSAAER(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                 NBNDSW)\n    REAL(KIND=RB)      :: ASMAER(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                 NBNDSW)\n\n    !-----------------------------------------------------------------\n    !TO STORE THE OPTICS FOR THE AEROSOLS WE ARE INTERESTED IN\n    !-----------------------------------------------------------------\n    REAL*8             :: TAUAERDIAG(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                     NBNDSW)\n    REAL*8             :: SSAAERDIAG(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                     NBNDSW)\n    REAL*8             :: ASMAERDIAG(State_Grid%NX,State_Grid%NY,State_Grid%NZ,&\n                                     NBNDSW)\n\n    REAL(KIND=RB)      :: H2OVMR   (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: TLAY     (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: TLAY_SW  (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: PLAY     (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: SUNCOS   (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(KIND=RB)      :: TSFC     (State_Grid%NX,State_Grid%NY)\n\n    !-----------------------------------------------------------------\n    !VARIABLES FOR OBTAINING STRATOSPHERIC VARIABLES\n    !-----------------------------------------------------------------\n    REAL*8             :: O3COL, YLAT, AIR_TMP\n\n    !-----------------------------------------------------------------\n    !SURFACE\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: ALBDIRVIS(State_Grid%NX,State_Grid%NY)\n    REAL(KIND=RB)      :: ALBDIFVIS(State_Grid%NX,State_Grid%NY)\n    REAL(KIND=RB)      :: ALBDIRNIR(State_Grid%NX,State_Grid%NY)\n    REAL(KIND=RB)      :: ALBDIFNIR(State_Grid%NX,State_Grid%NY)\n    REAL(KIND=RB)      :: RTEMISS  (State_Grid%NX,State_Grid%NY, NBNDLW)\n\n    REAL*8             :: NUMER,DENOM\n    REAL*4             :: AODTMP,AODOUT,SSATMP,SSAOUT\n    REAL*4             :: ASYMTMP,ASYMOUT\n    INTEGER            :: FLG_FIRST_STRAT(State_Grid%NX,State_Grid%NY)\n    INTEGER            :: ONECOL\n    REAL*4             :: CH4SCL(State_Grid%NX,State_Grid%NY)\n\n    !-----------------------------------------------------------------\n    ! FROM RAD_DRIVER... TO BE MERGED\n    ! FLAGS AND DIMENSIONS\n    !-----------------------------------------------------------------\n    INTEGER (KIND=IM)  :: IDRV\n    INTEGER (KIND=IM)  :: INFLGLW, ICEFLGLW,LIQFLGLW\n    INTEGER (KIND=IM)  :: INFLGSW, ICEFLGSW,LIQFLGSW\n\n    !-----------------------------------------------------------------\n    ! PROFILE VARIABLES\n    !-----------------------------------------------------------------\n    REAL (KIND=RB)     :: PLEV(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1)\n    REAL (KIND=RB)     :: TLEV(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1)\n    REAL (KIND=RB)     :: TLEV_SW(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1)\n    REAL (KIND=RB)     :: CO2VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL (KIND=RB)     :: O2VMR(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL (KIND=RB)     :: T_CTM(State_Grid%NZ+1)\n    REAL (KIND=RB)     :: P_CTM(State_Grid%NZ+2)\n    REAL (KIND=RB)     :: O3_CTM(State_Grid%NZ+1)\n    REAL (KIND=RB)     :: T_CLIM(State_Grid%NZ+1)\n    REAL (KIND=RB)     :: O3_CLIM(State_Grid%NZ+1)\n    REAL (KIND=RB)     :: Z_CLIM(State_Grid%NZ+2)\n    REAL (KIND=RB)     :: AIR_CLIM(State_Grid%NZ+1)\n\n    !-----------------------------------------------------------------\n    ! SW SOLAR VARIABLES\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: ADJES=1.0     ! FLUX ADJUSTMENT FOR EARTH/SUN DIST\n    REAL(KIND=RB)      :: SCON=1368.22  ! SOLAR CONSTANT (W/M2)\n\n    !-----------------------------------------------------------------\n    ! SW CLOUD VARIABLES\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: TAUCLD_SW(NBNDSW,State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! IN-CLOUD OPTICAL DEPTH\n    REAL(KIND=RB)      :: TAUCLD_LW(NBNDLW,State_Grid%NX,State_Grid%NY,State_Grid%NZ) ! NOT USED BUT PASSED TO MCICA_LW\n    REAL(KIND=RB)      :: SSACLD(NBNDSW,State_Grid%NX,State_Grid%NY,State_Grid%NZ)    ! IN-CLOUD SINGLE SCATTERING ALBEDO\n    REAL(KIND=RB)      :: ASMCLD(NBNDSW,State_Grid%NX,State_Grid%NY,State_Grid%NZ)    ! IN-CLOUD ASYMMETRY PARAMETER\n    REAL(KIND=RB)      :: FSFCLD(NBNDSW,State_Grid%NX,State_Grid%NY,State_Grid%NZ)    ! IN-CLOUD FORWARD SCATTERING FRACTION\n    REAL(KIND=RB)      :: ECAER(1,State_Grid%NZ,NAEREC)               ! AEROSOL OPTICAL DEPTH AT 0.55UM (IAER=6 ONLY)\n\n    !-----------------------------------------------------------------\n    ! LONGWAVE FLUX VARIABLES\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: UFLX(1,State_Grid%NZ+1)  ! TOTAL SKY LONGWAVE UPWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: DFLX(1,State_Grid%NZ+1)  ! TOTAL SKY LONGWAVE DOWNWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: HR(1,State_Grid%NZ)      ! TOTAL SKY LONGWAVE RADIATIVE HEATING RATE (K/D)\n    REAL(KIND=RB)      :: UFLXC(1,State_Grid%NZ+1) ! CLEAR SKY LONGWAVE UPWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: DFLXC(1,State_Grid%NZ+1) ! CLEAR SKY LONGWAVE DOWNWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: HRC(1,State_Grid%NZ)     ! CLEAR SKY LONGWAVE RADIATIVE HEATING RATE (K/D)\n\n    !-----------------------------------------------------------------\n    !- OPTIONAL OUTPUT\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: DUFLX_DT(1,State_Grid%NZ) ! CHANGE IN UPWARD LONGWAVE FLUX (W/M2/K)\n    REAL(KIND=RB)      :: DUFLXC_DT(1,State_Grid%NZ)! CHANGE IN CLEAR SKY UPWARD LONGWAVE FLUX (W/M2/K)\n\n    !-----------------------------------------------------------------\n    ! SHORTWAVE FLUX VARIABLES\n    !-----------------------------------------------------------------\n    ! ----- OUTPUT -----\n    REAL(KIND=RB)      :: SWUFLX(1,State_Grid%NZ+1)  ! TOTAL SKY SHORTWAVE UPWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: SWDFLX(1,State_Grid%NZ+1)  ! TOTAL SKY SHORTWAVE DOWNWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: SWHR(1,State_Grid%NZ)      ! TOTAL SKY SHORTWAVE RADIATIVE HEATING RATE (K/D)\n    REAL(KIND=RB)      :: SWUFLXC(1,State_Grid%NZ+1) ! CLEAR SKY SHORTWAVE UPWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: SWDFLXC(1,State_Grid%NZ+1) ! CLEAR SKY SHORTWAVE DOWNWARD FLUX (W/M2)\n    REAL(KIND=RB)      :: SWHRC(1,State_Grid%NZ)     ! CLEAR SKY SHORTWAVE RADIATIVE HEATING RATE (K/D)\n\n    !-----------------------------------------------------------------\n    ! LOCAL VARIABLES\n    !-----------------------------------------------------------------\n    REAL*8             :: GCAIR\n    REAL*8             :: RHOA, RHOB, RHOSUM\n    REAL*8             :: HR_TEMP\n\n    !-----------------------------------------------------------------\n    ! MCICA VARIABLES\n    !-----------------------------------------------------------------\n    INTEGER(KIND=IM)   :: SEEDSW, SEEDLW\n    INTEGER(KIND=IM)   :: IRNG=1  ! MERSENNE TWISTER RANDOM NUMBER GENERATOR\n    INTEGER(KIND=IM)   :: ICLDMCL\n    REAL(KIND=RB)      :: RELQMCL0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: REICMCL0(1,State_Grid%NZ)\n\n    !-----------------------------------------------------------------\n    ! MCICA LW SPECIFIC\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: CLDFMCL_LW0(NGPTLW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CIWPMCL_LW0(NGPTLW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CLWPMCL_LW0(NGPTLW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: TAUCMCL_LW0(NGPTLW,1,State_Grid%NZ)\n\n    !-----------------------------------------------------------------\n    ! MCICA SW SPECIFIC\n    !-----------------------------------------------------------------\n    REAL(KIND=RB)      :: CLDFMCL_SW0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CIWPMCL_SW0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CLWPMCL_SW0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: TAUCMCL_SW0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: SSACMCL0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: ASMCMCL0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: FSFCMCL0(NGPTSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: PCENTER0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CLDFR0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CICEWP0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: CLIQWP0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: REICE0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: RELIQ0(1,State_Grid%NZ)\n    REAL(KIND=RB)      :: TAUCLD_SW0(NBNDSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: SSACLD0(NBNDSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: ASMCLD0(NBNDSW,1,State_Grid%NZ)\n    REAL(KIND=RB)      :: FSFCLD0(NBNDSW,1,State_Grid%NZ)\n\n    !-----------------------------------------------------------------\n    ! Variables used to avoid array temporaries (bmy, 6/3/15)\n    !\n    ! NOTE: Use temporary arrays instead of pointers.  For unknown\n    ! reasons the pointer references incur segfaults. (bmy, 6/3/15)\n    !-----------------------------------------------------------------\n\n    ! For MCICA_SUBCOL_LW and MCICA_SUBCOL_LW\n    REAL(KIND=RB)      :: p_PCENTER   (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CLDFR     (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CICEWP    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CLIQWP    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_REICE     (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_RELIQ     (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_TAUCLD_LW ( NBNDLW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_TAUCLD_SW ( NBNDSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_SSACLD    ( NBNDSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_ASMCLD    ( NBNDSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_FSFCLD    ( NBNDSW, State_Grid%NZ  )\n\n    ! For RRTMG_LW and RRTMG_SW\n    REAL(KIND=RB)      :: p_PLEV      (         State_Grid%NZ+1)\n    REAL(KIND=RB)      :: p_TLAY      (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_TLAY_SW   (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_TLEV      (         State_Grid%NZ+1)\n    REAL(KIND=RB)      :: p_TLEV_SW   (         State_Grid%NZ+1)\n    REAL(KIND=RB)      :: p_H2OVMR    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_O3VMR     (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CO2VMR    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CH4VMR    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_N2OVMR    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_O2VMR     (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CFC11VMR  (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CFC12VMR  (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CFC22VMR  (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CCL4VMR   (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_REICMCL   (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_RELQMCL   (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_SUNCOS    (         State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CLDFMCL_LW( NGPTLW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_TAUCMCL_LW( NGPTLW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CIWPMCL_LW( NGPTLW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CLWPMCL_LW( NGPTLW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CLDFMCL_SW( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_TAUCMCL_SW( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_SSACMCL   ( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_ASMCMCL   ( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_FSFCMCL   ( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CIWPMCL_SW( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_CLWPMCL_SW( NGPTSW, State_Grid%NZ  )\n    REAL(KIND=RB)      :: p_RTEMISS   (         NBNDLW )\n    REAL(KIND=RB)      :: p_TAUAER_LW ( State_Grid%NZ,  NBNDLW )\n    REAL(KIND=RB)      :: p_TAUAER_SW ( State_Grid%NZ,  NBNDSW )\n    REAL(KIND=RB)      :: p_SSAAER    ( State_Grid%NZ,  NBNDSW )\n    REAL(KIND=RB)      :: p_ASMAER    ( State_Grid%NZ,  NBNDSW )\n\n    ! Stratospheric adjustment\n    REAL(KIND=RB)              :: DT_Col(State_Grid%NZ) ! Temperature difference, column (K)\n    REAL(KIND=RB)              :: HRStrat(State_Grid%NZ)! Strat. dyn. heating rate, column (K/day)\n    REAL(KIND=RB)              :: HRDyn(State_Grid%NZ)  ! Dynamical heating rate, column (K/day)\n    LOGICAL                    :: Do_Adjust(State_Grid%NZ)! Do we perform adjustment here?\n    LOGICAL                    :: StratImbal            ! Is the net heating rate >> 0?\n    LOGICAL                    :: Calc_DeltaT           ! Are we calculating the T difference?\n    LOGICAL                    :: Store_DHR             ! Are we estimating the dynamical heating rate?\n    REAL(KIND=RB), PARAMETER   :: HRMax        = 1.0d-3 ! Maximum residual heating rate (K/day)\n    REAL(KIND=RB), PARAMETER   :: TSadj_max    = 0.5d0  ! Outer time step used in strat adjustment (days)\n    REAL(KIND=RB), PARAMETER   :: TSadj_min    = 0.5d-1 ! Minimum time step that we can adjust to (days)\n    REAL(KIND=RB)              :: TSadj                 ! \n    REAL(KIND=RB)              :: TSadj_adapt           ! \n    REAL(KIND=RB)              :: last_max, curr_max    ! Track the current maximum heating rate imbalance\n    REAL(KIND=RB)              :: last_max_stored       ! For debug only\n    Integer                    :: i_max                 !\n    REAL(KIND=RB), PARAMETER   :: dtadj_max    = 150d0  ! Time allowable to reach equilbrium (days)\n    REAL(KIND=RB)              :: dtadj                 ! Total time to reach equilibrium (days)\n    Integer                    :: i_iter                ! Iteration number\n    Integer                    :: N_Failed              ! Number of columns failing to converge\n    Integer                    :: N_Column              ! Total number of columns (NX * NY)\n\n    ! For SEFDH calculations\n    Real(kind=RB)              :: Relax_Factor\n    Real(kind=RB)              :: DT_Days\n    Real(kind=RB), Parameter   :: Relax_Time = 1.0d0 ! E-folding time in days\n\n    ! For RK4 integrations\n    INTEGER, PARAMETER         :: N_PC = 4\n    INTEGER                    :: I_PC\n    REAL(KIND=RB)              :: p_TLAY_0(State_Grid%NZ)\n    ! Data from predictor step(s)\n    REAL(KIND=RB)              :: HR_P(4,State_Grid%NZ)\n    REAL(KIND=RB)              :: p_TLAY_P(State_Grid%NZ)\n    REAL(KIND=RB)              :: UFLX_P(1,State_Grid%NZ+1)\n    REAL(KIND=RB)              :: DFLX_P(1,State_Grid%NZ+1)\n    REAL(KIND=RB)              :: UFLXC_P(1,State_Grid%NZ+1)\n    REAL(KIND=RB)              :: DFLXC_P(1,State_Grid%NZ+1)\n\n    ! For RF at tropopause\n    Integer                    :: iTrop\n\n    ! To simplify ozone RF calculation\n    Logical                    :: in_Trop\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc        (:)\n    INTEGER,       POINTER :: SPECMASK   (:)\n    INTEGER,       POINTER :: IRTWVSELECT(:,:)\n    REAL*8,        POINTER :: ACOEF_RTWV (:)\n    REAL*8,        POINTER :: BCOEF_RTWV (:)\n    REAL*8,        POINTER :: CCOEF_RTWV (:)\n    REAL*8,        POINTER :: WVAA       (:,:)\n    REAL*8,        POINTER :: RTODAER    (:,:,:,:,:)\n    REAL*8,        POINTER :: RTSSAER    (:,:,:,:,:)\n    REAL*8,        POINTER :: RTASYMAER  (:,:,:,:,:)\n\n    !=================================================================\n    ! DO_RRTMG_RAD_TRANSFER begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at DO_RRTMG_RAD_TRANSFER (in rrtmg_rad_transfer_mod.F90)'\n\n    ! Set pointers\n    Spc         => State_Chm%Species\n    SPECMASK    => State_Chm%Phot%SPECMASK\n    IRTWVSELECT => State_Chm%Phot%IRTWVSELECT\n    ACOEF_RTWV  => State_Chm%Phot%ACOEF_RTWV\n    BCOEF_RTWV  => State_Chm%Phot%BCOEF_RTWV\n    CCOEF_RTWV  => State_Chm%Phot%CCOEF_RTWV\n    WVAA        => State_Chm%Phot%WVAA\n    RTODAER     => State_Chm%Phot%RTODAER\n    RTSSAER     => State_Chm%Phot%RTSSAER\n    RTASYMAER   => State_Chm%Phot%RTASYMAER\n\n    ! Halt RRTMG timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"RRTMG\", RC )\n    ENDIF\n\n    ! Convert species units to [kg/kg dry] for RRTMG\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt       = Input_Opt,                                        &\n         State_Chm       = State_Chm,                                        &\n         State_Grid      = State_Grid,                                       &\n         State_Met       = State_Met,                                        &\n         mapping         = State_Chm%Map_Advect,                             &\n         new_units       = KG_SPECIES_PER_KG_DRY_AIR,                        &\n         previous_units  = previous_units,                                   &\n         RC              = RC                                               )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error in DO_RRTMG_RAD_TRANSFER!\"'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start RRTMG timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"RRTMG\", RC )\n    ENDIF\n\n    ! Also make sure that the ncDiag arguement is valid,\n    ! as this is the index for the netCDF diagnostic arrays.\n    IF ( iNcDiag <= 0 ) THEN\n       ErrMsg = 'The iNcDiag argument is <= 0!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! PREPARE INPUTS FOR RAD_DRIVER\n    !=================================================================\n\n    !CALL GET_SPECIES( .TRUE., THISMONTH, 'O3',  GMI_O3  )\n    !CALL GET_SPECIES( .TRUE., THISMONTH, 'CH4', GMI_CH4 )\n\n    !=================================================================\n    ! PREPARE INPUTS FOR RRTMG\n    !=================================================================\n\n    ! INITIALIZE\n    NSPEC                = NAER+NDUST+4\n    FLG_FIRST_STRAT(:,:) = 0 !FLAG TO DETERMINE IF THE FIRST STRATOSPHERIC\n                             ! LEVEL HAS BEEN REACHED\n\n    ! Are we calculating delta-T?\n    Calc_DeltaT = (Input_Opt%Read_Dyn_Heating .and. (ISPECMENU.eq.0) .and. Input_Opt%RRTMG_FDH)\n    ! Are we storing the dynamical heating rate?\n    Store_DHR   = ((.not. Input_Opt%Read_Dyn_Heating) .and. (ISPECMENU.eq.0) .and. Input_Opt%RRTMG_FDH)\n\n    ! Factor to relax non-stratospheric temperatures by\n    If (Input_Opt%RRTMG_SEFDH) Then\n        ! Time step length in days\n        DT_Days = (Input_Opt%ts_rad * 1.0e+0_RB) / (3600.0e+0_RB * 24.0e+0_RB)\n        ! One day e-folding time\n        Relax_Factor = exp(-1.0 * DT_Days / relax_time)\n    Else\n        Relax_Factor = 0.0\n    End If\n\n    !DETERMINE IF WE ARE RUNNING WITH AEROSOL\n    !CREATE INDEX FOR AEROSOLS REQUIRED\n    LOUTPUTAERO     = .TRUE. !SET AEROSOL DIAG OUTPUT TO TRUE INITIALLY\n    DOAERAD         = .FALSE.\n    NASPECRAD_ON    = 0\n    IASPECRAD_ON(:) = 0\n\n    DO N=1,State_Chm%Phot%NASPECRAD\n       IF (SPECMASK(N).GT.0) THEN\n          DOAERAD = .TRUE.\n          NASPECRAD_ON = NASPECRAD_ON +1\n          !create list of species required and tag with index\n          IASPECRAD_ON(NASPECRAD_ON) = N\n          IDIAGOUT = MAX(IDIAGOUT,SPECMASK(N))\n       ENDIF\n    ENDDO\n    !write(6,*) 'SPECMASK:',SPECMASK\n\n    ! Initialize arrays\n    TAUCLD(:,:,:)       = 0.0\n    CLDFR(:,:,:)        = 0.0\n    RELIQ(:,:,:)        = 0.0\n    REICE(:,:,:)        = 0.0\n    CLIQWP(:,:,:)       = 0.0\n    CICEWP(:,:,:)       = 0.0\n    TAUAER_LW(:,:,:,:)  = 0.0\n    TAUAER_SW(:,:,:,:)  = 0.0\n    SSAAER(:,:,:,:)     = 0.0\n    ASMAER(:,:,:,:)     = 0.0\n    TAUAERDIAG(:,:,:,:) = 0.0D0\n    SSAAERDIAG(:,:,:,:) = 0.0D0\n    ASMAERDIAG(:,:,:,:) = 0.0D0\n    UFLX(:,:)           = 0.0\n    DFLX(:,:)           = 0.0\n    HR(:,:)             = 0.0\n    UFLXC(:,:)          = 0.0\n    DFLXC(:,:)          = 0.0\n    HRC(:,:)            = 0.0\n    DUFLX_DT(:,:)       = 0.0\n    DUFLXC_DT(:,:)      = 0.0\n    SWUFLX(:,:)         = 0.0\n    SWDFLX(:,:)         = 0.0\n    SWHR(:,:)           = 0.0\n    SWUFLXC(:,:)        = 0.0\n    SWDFLXC(:,:)        = 0.0\n    SWHRC(:,:)          = 0.0\n    O3VMR(:,:,:)        = 0.0\n    CH4VMR(:,:,:)       = 0.0\n    H2OVMR(:,:,:)       = 0.0\n    CO2VMR(:,:,:)       = 0.0\n    N2OVMR(:,:,:)       = 0.0\n    CFC11VMR(:,:,:)     = 0.0\n    CFC12VMR(:,:,:)     = 0.0\n    CCL4VMR(:,:,:)      = 0.0\n    CFC22VMR(:,:,:)     = 0.0\n    NBNDS               = NBNDLW+NBNDSW\n\n    !=================================================================\n    ! First-time setup\n    !=================================================================\n    IF ( FIRST ) THEN\n\n       ! Define species ID flags\n       id_O3     = Ind_('O3')\n       id_CH4    = Ind_('CH4')\n       id_H2O    = Ind_('H2O')\n       id_N2O    = Ind_('N2O')\n       id_CFC11  = Ind_('CFC11')\n       id_CFC12  = Ind_('CFC12')\n       id_CCL4   = Ind_('CCL4')\n       id_HCFC22 = Ind_('HCFC22')\n\n       ! Get pointers to data fields that are read by HEMCO\n       ! NOTE: This has to be done here and not in initialization\n       ! because we have to wait for HEMCO to read the data from disk,\n       ! which is done after initialization. (bmy, 10/30/18)\n       CALL AttachPointersFromHemco( RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"AttachPointersFromHemco\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n\n    ENDIF\n\n    !$OMP PARALLEL DO          &\n    !$OMP DEFAULT( SHARED )    &\n    !$OMP PRIVATE( I, J, IB  ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! BROADBAND ALBEDO\n       ! Attache the HEMCO pointers to RRTMG albedo variables (bmy, 11/1/18)\n       ALBDIRVIS(I,J) = MODIS_ALBDRVIS(I,J)\n       ALBDIFVIS(I,J) = MODIS_ALBDFVIS(I,J)\n       ALBDIRNIR(I,J) = MODIS_ALBDRNIR(I,J)\n       ALBDIFNIR(I,J) = MODIS_ALBDFNIR(I,J)\n\n       IF ((ALBDIRVIS(I,J).GT.0.999)  .OR. &\n           (ALBDIRVIS(I,J).LT.0.001)) THEN\n          WRITE(6,*) 'ALBEDO DRVIS OUT OF RANGE',I,J,ALBDIRVIS(I,J)\n       ENDIF\n       IF ((ALBDIFVIS(I,J).GT.0.999)  .OR. &\n           (ALBDIFVIS(I,J).LT.0.001)) THEN\n          WRITE(6,*) 'ALBEDO DFVIS OUT OF RANGE',I,J,ALBDIFVIS(I,J)\n       ENDIF\n       IF ((ALBDIRNIR(I,J).GT.0.999)  .OR. &\n           (ALBDIRNIR(I,J).LT.0.001)) THEN\n          WRITE(6,*) 'ALBEDO DRNIR OUT OF RANGE',I,J,ALBDIRNIR(I,J)\n       ENDIF\n       IF ((ALBDIFNIR(I,J).GT.0.999)  .OR. &\n           (ALBDIFNIR(I,J).LT.0.001)) THEN\n          WRITE(6,*) 'ALBEDO DFNIR OUT OF RANGE',I,J,ALBDIFNIR(I,J)\n       ENDIF\n\n       ! Assign the MODIS emissivity pointers from HEMCO to the\n       ! different slots of the RTEMISS array (for each spectral band)\n       ! Hardcode the assignments, which is much faster (bmy, 11/2/18)\n       RTEMISS(I,J,1 ) = MODIS_EMISS_01(I,J)\n       RTEMISS(I,J,2 ) = MODIS_EMISS_02(I,J)\n       RTEMISS(I,J,3 ) = MODIS_EMISS_03(I,J)\n       RTEMISS(I,J,4 ) = MODIS_EMISS_04(I,J)\n       RTEMISS(I,J,5 ) = MODIS_EMISS_05(I,J)\n       RTEMISS(I,J,6 ) = MODIS_EMISS_06(I,J)\n       RTEMISS(I,J,7 ) = MODIS_EMISS_07(I,J)\n       RTEMISS(I,J,8 ) = MODIS_EMISS_08(I,J)\n       RTEMISS(I,J,9 ) = MODIS_EMISS_09(I,J)\n       RTEMISS(I,J,10) = MODIS_EMISS_10(I,J)\n       RTEMISS(I,J,11) = MODIS_EMISS_11(I,J)\n       RTEMISS(I,J,12) = MODIS_EMISS_12(I,J)\n       RTEMISS(I,J,13) = MODIS_EMISS_13(I,J)\n       RTEMISS(I,J,14) = MODIS_EMISS_14(I,J)\n       RTEMISS(I,J,15) = MODIS_EMISS_15(I,J)\n       RTEMISS(I,J,16) = MODIS_EMISS_16(I,J)\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !%%% NOTE: LOOPS ARE GOING IN WRONG ORDER (bmy, 1/8/18)\n    DO I = 1, State_Grid%NX\n    DO J = 1, State_Grid%NY\n       DO L = 1, State_Grid%NZ\n          PCENTER(I,J,L) = GET_PCENTER( I, J, L )\n          PEDGE  (I,J,L) = GET_PEDGE  ( I, J, L )\n          ! H2O will be overwritten later except above the\n          ! chemistry grid\n          H2OVMR (I,J,L) = State_Met%AVGW(I,J,L)\n          TLAY   (I,J,L) = State_Met%T(I,J,L)\n          SUNCOS (I,J,L) = State_Met%SUNCOS(I,J)\n       ENDDO\n       TSFC  (I,J)   = State_Met%TSKIN(I,J)\n    ENDDO\n    ENDDO\n\n    ! Incorporate temperature adjustment if not the baseline\n    ! call and we are using fixed dynamical heating\n    ! In either case, shortwave calculation is unaffected\n    If (.not. Input_Opt%RRTMG_SEFDH) Then\n       TLAY_SW(:,:,:) = TLAY(:,:,:)\n    End If\n    ! If pure FDH, DT_3D will be zero on the baseline call\n    ! and non-zero for the single-species calls. If this is\n    ! SEFDH, DT_3D will evolve consistently and be either\n    ! modified by this routine (baseline call) or unchanged\n    ! (single-species call); however, for single-species\n    ! calls, the DT_3D will match that which was PROVIDED to\n    ! the baseline call.\n    If (Input_Opt%RRTMG_FDH) Then\n       TLAY(:,:,:) = TLAY(:,:,:) + DT_3D(:,:,:)\n    End If\n    ! If using SEFDH, adjust temperatures for all (why not)\n    If (Input_Opt%RRTMG_SEFDH) Then\n       TLAY_SW(:,:,:) = TLAY(:,:,:)\n    End If\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,       J,      L,      IN_TROP           ) &\n    !$OMP PRIVATE( AIR_TMP, YLAT,   O3COL,  O3_CTM,  T_CTM    ) &\n    !$OMP PRIVATE( P_CTM,   T_CLIM, Z_CLIM, O3_CLIM, AIR_CLIM ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ALBVIS(I,J) = State_Met%ALBD(I,J)\n\n       ! Grid box latitude [degrees]\n       YLAT = State_Grid%YMid(I,J)\n\n#if defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING )\n       ! Define the P array here, using GCM pressures\n       DO L = 1, State_Grid%NZ+1\n          P_CTM(L) = State_Met%PEDGE(I,J,L)\n       ENDDO\n#else\n       ! Define the P array here, using Ap and Bp from GEOS-Chem\n       DO L = 1, State_Grid%NZ+1\n          P_CTM(L) = GET_PEDGE(I,J,L)\n       ENDDO\n#endif\n\n       ! Top edge of P_CTM is top of atmosphere\n       P_CTM(State_Grid%NZ+2)  = 0d0\n\n       ! Temperature profile [K]\n       T_CTM(1:State_Grid%NZ)  = State_Met%T(I,J,1:State_Grid%NZ)\n\n       ! Top of atmosphere\n       T_CTM(State_Grid%NZ+1)  = T_CTM(State_Grid%NZ)\n\n       ! Overhead ozone column [DU]\n       ! These values are either from the met fields or TOMS/SBUV,\n       ! depending on the settings in geoschem_config.yml\n       O3COL = GET_OVERHEAD_O3(State_Chm, I,J)\n\n       ! CTM ozone densities (molec/cm3)\n       O3_CTM          = 0d0\n       LCHEM           = State_Met%ChemGridLev(I,J)\n       DO L = 1, LCHEM\n          O3_CTM(L)    = State_Chm%Species(id_O3)%Conc(I,J,L)\n       ENDDO\n\n       DO L = 1, State_Grid%NZ\n\n          !-----------------------------\n          ! GET CLOUD PROPERTIES BY SETTING REASONABLE VALUES FOR REL\n          ! AND REI IN MICRONS AND CALCULATING LWP AND IWP FROM\n          ! VISIBLE OPTICAL DEPTH  (IN G/M2)\n          !-----------------------------\n\n          IF (ICLD.NE.0) THEN\n             ! LIQUID\n             CLIQWP(I,J,L) = 0.667*State_Met%TAUCLW(I,J,L)*RHOLIQ*REL_DEF\n             RELIQ(I,J,L)  = REL_DEF\n             ! ICE\n             CICEWP(I,J,L) = 0.667*State_Met%TAUCLI(I,J,L)*RHOICE*REI_DEF\n             REICE(I,J,L)  = REI_DEF\n             !TAUCLD DERIVED IN MCICA SUB, NOT NEEDED\n             CLDFR(I,J,L)  = State_Met%CLDF(I,J,L)\n          ENDIF !CLOUDS\n\n          ! SET O3, CH4, N2O AND CFC PROFILES\n\n          !IF O3 REQUESTED THEN SPECMASK WILL BE SET TO ZERO\n          !SO THAT O3 WILL BE REMOVED RELATIVE TO THE BASELINE CASE\n          !(WHEN SPECMASK DEFAULTS TO 1)\n          !I.E. WE WANT TO RUN WITHOUT THE GAS IF IT HAS BEEN\n          !REQUESTED SO THAT WE CAN DIFFERENCE WITH THE BASELINE RUN\n\n          ! Treat tropospheric and stratospheric ozone seprately\n          In_Trop = State_Met%InTroposphere(I,J,L)\n          IF ( ((.not. In_Trop) .and. (SPECMASK(State_Chm%Phot%NASPECRAD+1).EQ.1) ) .or. &\n               (    In_Trop     .and. (SPECMASK(State_Chm%Phot%NASPECRAD+2).EQ.1) ) ) Then\n             O3VMR(I,J,L)  = Spc(id_O3)%Conc(I,J,L) * AIRMW / &\n                             State_Chm%SpcData(id_O3)%Info%MW_g\n          ENDIF\n\n          IF (SPECMASK(State_Chm%Phot%NASPECRAD+3).EQ.1) THEN\n             CH4VMR(I,J,L) = Spc(id_CH4)%Conc(I,J,L) * AIRMW /&\n                             State_Chm%SpcData(id_CH4)%Info%MW_g\n\n          ENDIF\n\n          IF (SPECMASK(State_Chm%Phot%NASPECRAD+4).EQ.1) THEN\n             H2OVMR(I,J,L) = Spc(id_H2O)%Conc(I,J,L) * AIRMW / &\n                             State_Chm%SpcData(id_H2O)%Info%MW_g\n          ELSE\n             ! Set to zero to override the default (AVGW)\n             H2OVMR(I,J,L) = 0.0\n          ENDIF\n\n          IF (SPECMASK(State_Chm%Phot%NASPECRAD+7).EQ.1) THEN\n              N2OVMR(I,J,L) = Spc(id_N2O)%Conc(I,J,L) * AIRMW / &\n                              State_Chm%SpcData(id_N2O)%Info%MW_g\n          ENDIF\n\n          IF (SPECMASK(State_Chm%Phot%NASPECRAD+6).EQ.1) THEN\n              CFC11VMR(I,J,L) =Spc(id_CFC11)%Conc(I,J,L) * AIRMW /&\n                               State_Chm%SpcData(id_CFC11)%Info%MW_g\n\n              CFC12VMR(I,J,L) =Spc(id_CFC12)%Conc(I,J,L) * AIRMW / &\n                               State_Chm%SpcData(id_CFC12)%Info%MW_g\n\n              CCL4VMR(I,J,L)  =Spc(id_CCL4)%Conc(I,J,L) * AIRMW / &\n                               State_Chm%SpcData(id_CCL4)%Info%MW_g\n\n              CFC22VMR(I,J,L) =Spc(id_HCFC22)%Conc(I,J,L) * AIRMW/ &\n                               State_Chm%SpcData(id_HCFC22)%Info%MW_g\n          ENDIF\n       ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    IF (DOAERAD) THEN\n       DO IB = 1,NBNDS\n          !RRTMG WAVEBANDS START AFTER WVAA0 STANDARD WAVELNGTHS IN GC ARRAYS\n          !BASED ON LUT ORDER. JUST APPLY OFFSET\n          IBX=IB+State_Chm%Phot%NWVAA0\n          IB_SW = IB-NBNDLW\n          DO IS = 1,State_Chm%Phot%NASPECRAD\n             !THE AEROSOL SPECIES WE ARE CURRENTLY CALCULATING FOR WILL BE\n             !SET TO THE LSPECRADMENU VALUE FOR THAT SPECIES.\n             !THIS MEANS THAT RRTMG REQUIRES *ALL OTHER* SPECIES SO THAT THE\n             !FLUX IN ABSENCE OF THE SPECIES CAN BE CALCULATED (THE\n             !DIFFERENCE OF THIS WITH THE BASELINE GIVES THE FLUX CHANGE FOR\n             !THAT SPECIES).\n             !\n             !THEREFORE WE COMPILE TWO SETS OF AEROSOL PROPERTIES:\n             !(1) ALL BUT THE CURRENT SPECIES TO SEND TO RRTMG\n             !(2) THE CURRENT SPECIES FOR OUTPUT TO THE RT DIAGNOSTICS\n             ! ALSO, WE MUST MERGE AEROSOL PROPERTIES FOR THE SPECIES TO BE OUTPUT\n             ! (I.E. COMBINE HYDROPHILIC/PHOBIC AND MULTIPLE SIZES)\n\n             !$OMP PARALLEL DO        &\n             !$OMP DEFAULT( SHARED )  &\n             !$OMP PRIVATE( I, J, L ) &\n             !$OMP SCHEDULE( DYNAMIC )\n             DO L = 1, State_Grid%NZ\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n\n                !MAKE SURE WE HAVE SENSIBLE DATA\n                !DONT WASTE TIME IF VIRTUALLY NO AEROSOL\n                IF (RTODAER(I,J,L,IBX,IS).GT.1e-10) THEN\n                   IF (IB.LE.16) THEN !LW\n                      IF (SPECMASK(IS).EQ.1) THEN\n                         TAUAER_LW(I,J,L,IB) = TAUAER_LW(I,J,L,IB) + &\n                              RTODAER(I,J,L,IBX,IS)\n                      ENDIF\n                   ELSE !SW\n                      !IF SPECMASK(IS)=1 THEN WE AGGREGATE THAT SPECIES FOR RRTMG\n                      !IF SPECMASK(IS)>1 THEN WE SAVE THAT SPECIES FOR DIAG OUTPUT\n                      IF (SPECMASK(IS).EQ.1) THEN\n                         TAUAER_SW(I,J,L,IB_SW)=TAUAER_SW(I,J,L,IB_SW)+ &\n                              RTODAER(I,J,L,IBX,IS)\n                         SSAAER(I,J,L,IB_SW) =  SSAAER(I,J,L,IB_SW) + &\n                              RTSSAER(I,J,L,IBX,IS)*RTODAER(I,J,L,IBX,IS)\n                         ASMAER(I,J,L,IB_SW) = ASMAER(I,J,L,IB_SW) + &\n                              RTASYMAER(I,J,L,IBX,IS) * &\n                              RTODAER(I,J,L,IBX,IS)*RTSSAER(I,J,L,IBX,IS)\n                      ENDIF\n                      IF (SPECMASK(IS).GT.1) THEN\n                         TAUAERDIAG(I,J,L,IB_SW)=TAUAERDIAG(I,J,L,IB_SW)+ &\n                              RTODAER(I,J,L,IBX,IS)\n                         SSAAERDIAG(I,J,L,IB_SW) = SSAAERDIAG(I,J,L,IB_SW) +&\n                              RTSSAER(I,J,L,IBX,IS)*RTODAER(I,J,L,IBX,IS)\n                         ASMAERDIAG(I,J,L,IB_SW) = ASMAERDIAG(I,J,L,IB_SW) +&\n                              RTASYMAER(I,J,L,IBX,IS) * &\n                              RTODAER(I,J,L,IBX,IS)*RTSSAER(I,J,L,IBX,IS)\n                         !IF ((IS.EQ.9).AND.(L.GT.30).AND.(IB_SW.EQ.10).AND.\n                         !   (RTODAER(I,J,L,IBX,IS).GT.0.0d0)) THEN\n                         ! write(6,*) 'STS',I,J,L,IBX,IS,RTODAER(I,J,L,IBX,IS), &\n                         !            RTSSAER(I,J,L,IBX,IS)\n                         !ENDIF\n\n                      ENDIF\n                   ENDIF\n                ENDIF\n             ENDDO\n             ENDDO\n             ENDDO\n             !$OMP END PARALLEL DO\n          ENDDO !SPECIES\n\n          !NOW AEROSOL HAVE BEEN SUMMED AND WEIGHTED BY AOD AND SSA\n          !DIVIDE THROUGH BY TOTAL AOD (FOR SSA) AND AOD*SSA (FOR ASYM)\n          IF (IB.GT.16) THEN !SW\n\n             !$OMP PARALLEL DO        &\n             !$OMP DEFAULT( SHARED )  &\n             !$OMP PRIVATE( I, J, L ) &\n             !$OMP SCHEDULE( DYNAMIC )\n             DO L = 1, State_Grid%NZ\n             DO J = 1, State_Grid%NY\n             DO I = 1, State_Grid%NX\n\n                ! Needs to be run on every cell, as stratosphere may contain\n                ! some aerosol\n                IF ((TAUAER_SW(I,J,L,IB_SW).GT.0).AND. &\n                   (    SSAAER(I,J,L,IB_SW).GT.0)) THEN\n                   !DIVIDE SUM(ASYM*SSA*OD) BY SUM(SSA*OD) TO GET\n                   !OD*SSA WEIGHTED ASYM\n                   ASMAER(I,J,L,IB_SW) = ASMAER(I,J,L,IB_SW) / &\n                                         SSAAER(I,J,L,IB_SW)\n                   !DIVIDE SUM(SSA*OD) BY SUM(OD) TO GET OD WEIGHTED SSA\n                   SSAAER(I,J,L,IB_SW) = SSAAER(I,J,L,IB_SW) / &\n                                         TAUAER_SW(I,J,L,IB_SW)\n                ENDIF\n                !AND DO THE SAME FOR THE SPECIES WE'RE INTERESTED IN\n                IF ((TAUAERDIAG(I,J,L,IB_SW).GT.0).AND. &\n                   ( SSAAERDIAG(I,J,L,IB_SW).GT.0)) THEN\n                   !DIVIDE SUM(ASYM*SSA*OD) BY SUM(SSA*OD) TO GET\n                   !OD*SSA WEIGHTED ASYM\n                   ASMAERDIAG(I,J,L,IB_SW) = ASMAERDIAG(I,J,L,IB_SW) / &\n                                             SSAAERDIAG(I,J,L,IB_SW)\n                   !DIVIDE SUM(SSA*OD) BY SUM(OD) TO GET OD WEIGHTED SSA\n                   SSAAERDIAG(I,J,L,IB_SW) = SSAAERDIAG(I,J,L,IB_SW) / &\n                                             TAUAERDIAG(I,J,L,IB_SW)\n                ENDIF\n                !ENDIF\n\n             ENDDO\n             ENDDO\n             ENDDO\n             !$OMP END PARALLEL DO\n\n          ENDIF\n       ENDDO !BAND\n    ELSE\n\n       !NO AEROSOL, SET ALL TO SAFE VALUES\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, L, IB, IB_SW ) &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO IB= 1, NBNDS\n          IB_SW = IB-NBNDLW\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             IF (IB.LE.16) THEN\n                TAUAER_LW(I,J,L,IB)    = 0.0\n             ELSE\n                TAUAER_SW(I,J,L,IB_SW) = 0.0D0\n                SSAAER(I,J,L,IB_SW)    = 0.99D0\n                ASMAER(I,J,L,IB_SW)    = 0.2D0\n                TAUAERDIAG(I,J,L,IB_SW) = 0.0D0\n                SSAAERDIAG(I,J,L,IB_SW) = 0.99D0\n                ASMAERDIAG(I,J,L,IB_SW) = 0.2D0\n             ENDIF\n             !ENDIF\n\n          ENDDO\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n    ! checking values\n    DO IB= NBNDLW+1, NBNDS\n       IB_SW = IB-NBNDLW\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          IF (ASMAER(I,J,L,IB_SW).GT.0.999d0) THEN\n             ASMAER(I,J,L,IB_SW) = 0.999d0\n          ENDIF\n          !IF (ASMAER(I,J,L,IB_SW).LT.0.001d0) THEN\n          ! ASMAER(I,J,L,IB_SW) = 0.001\n          !ENDIF\n          IF ((SSAAER(I,J,L,IB_SW).LT.0.001d0).OR. &\n              (SSAAER(I,J,L,IB_SW).GT.1.0d0)) THEN\n             SSAAER(I,J,L,IB_SW) = 0.99\n          ENDIF\n          IF (TAUAER_SW(I,J,L,IB_SW).GT.1.0) THEN\n             TAUAER_SW(I,J,L,IB_SW) = 1.0\n          ENDIF\n          IF (ASMAERDIAG(I,J,L,IB_SW).GT.0.999d0) THEN\n             ASMAERDIAG(I,J,L,IB_SW) = 0.999d0\n          ENDIF\n          !IF (ASMAERDIAG(I,J,L,IB_SW).LT.0.001d0) THEN\n          ! ASMAERDIAG(I,J,L,IB_SW) = 0.001\n          !ENDIF\n          IF ((SSAAERDIAG(I,J,L,IB_SW).LT.0.001d0).OR. &\n              (SSAAERDIAG(I,J,L,IB_SW).GT.1.0d0)) THEN\n             SSAAERDIAG(I,J,L,IB_SW) = 0.99\n          ENDIF\n          IF (TAUAERDIAG(I,J,L,IB_SW).GT.1.0) THEN\n             TAUAERDIAG(I,J,L,IB_SW) = 1.0\n          ENDIF\n\n       ENDDO\n       ENDDO\n       ENDDO\n    ENDDO\n\n    DOY = GET_DAY_OF_YEAR()\n    ONECOL = 1\n\n    ! GET LEVEL VALUES\n    GCAIR = 1.0E-3*GASCON/AVOGAD\n    DO J=1,State_Grid%NY\n    DO I=1,State_Grid%NX\n       PLEV(I,J,1) = PEDGE(I,J,1) ! SET LOWEST LEVEL TO SURFACE PRESSURE\n       TLEV(I,J,1) = TLAY(I,J,1)  ! SET LOWEST LEVEL TO LAYER TEMPERATURE  (KLUDGE)\n       TLEV_SW(I,J,1) = TLAY_SW(I,J,1)  ! SET LOWEST LEVEL TO LAYER TEMPERATURE  (KLUDGE)\n       PLEV(I,J,State_Grid%NZ+1) = PCENTER(I,J,State_Grid%NZ)\n       TLEV(I,J,State_Grid%NZ+1) = TLAY(I,J,State_Grid%NZ)\n       TLEV_SW(I,J,State_Grid%NZ+1) = TLAY_SW(I,J,State_Grid%NZ)\n       DO L=2,State_Grid%NZ\n          RHOA = PCENTER(I,J,L-1)/(GCAIR*TLAY(I,J,L-1))\n          RHOB = PCENTER(I,J,L)/(GCAIR*TLAY(I,J,L))\n          RHOSUM = RHOA+RHOB\n          PLEV(I,J,L) = (RHOA*PCENTER(I,J,L-1)+RHOB*PCENTER(I,J,L))/RHOSUM\n          TLEV(I,J,L) = (RHOA*TLAY(I,J,L-1)+RHOB*TLAY(I,J,L))/RHOSUM\n          ! Repeat for SW\n          RHOA = PCENTER(I,J,L-1)/(GCAIR*TLAY_SW(I,J,L-1))\n          RHOB = PCENTER(I,J,L)/(GCAIR*TLAY_SW(I,J,L))\n          RHOSUM = RHOA+RHOB\n          TLEV_SW(I,J,L) = (RHOA*TLAY_SW(I,J,L-1)+RHOB*TLAY_SW(I,J,L))/RHOSUM\n       END DO\n    END DO\n    END DO\n\n    ! FILL CO2, N2O AND O2 ARRAYS WITH REASONABLE ATMOSPHERIC VALUES\n    IF (SPECMASK(State_Chm%Phot%NASPECRAD+5).EQ.1) THEN\n       ! Was 3.90e-4 (i.e. 390 ppmv), but now set from Input_Opt\n       CO2VMR(:,:,:) = Input_Opt%RRTMG_CO2_ppmv * 1.0d-6\n    END IF\n    O2VMR(:,:,:)  = 0.209\n\n    SELECT CASE (ICLD)\n    ! CLOUD SETUP FOR CLEAR\n    CASE (0)\n       IDRV = 0\n       ICLDMCL = 0\n       INFLGLW = 0\n       INFLGSW = 0\n       TAUCMCL_LW(:,:,:,:) = 0.0\n       TAUCMCL_SW(:,:,:,:) = 0.0\n       ICEFLGLW = 0\n       LIQFLGLW = 0\n       ICEFLGSW = 0\n       LIQFLGSW = 0\n       !PRINT *,'CLEAR'\n\n    !  CLOUD SETUP FOR MCICA CLOUD (ONLY OPTION NOW)\n    CASE (1)\n       IDRV = 0\n       ICLDMCL = 2                  !MAXIMUM RANDOM OVERLAP\n       INFLGLW = 2\n       INFLGSW = 2\n       TAUCLD_LW(:,:,:,:)  = 0.0    ! TAUCLD NOT USED\n       TAUCLD_SW(:,:,:,:)  = 0.0\n       TAUCMCL_LW(:,:,:,:) = 0.0   ! USED ONLY AS A CHECK\n       TAUCMCL_SW(:,:,:,:) = 0.0\n       SSACLD(:,:,:,:) = 0.0\n       ASMCLD(:,:,:,:) = 0.0\n       FSFCLD(:,:,:,:) = 0.0\n       ICEFLGLW = 2       !STREAMER\n       LIQFLGLW = 1       !HU AND STAMNES\n       ICEFLGSW = 2       !STREAMER\n       LIQFLGSW = 1       !HU AND STAMNES\n       RELIQ(:,:,:) = REL_DEF\n       REICE(:,:,:) = REI_DEF\n    END SELECT\n\n    ! WE ONLY NEED TO CALC CLOUDS ONCE PER RT TIMESTEP\n    ! DO THIS ON BASELINE CALL IF ALL-SKY IS REQUESTED\n    IF (ISPECMENU.EQ.0) THEN\n       SEEDLW=ISEED+NGPTSW+1\n       SEEDSW=SEEDLW+NGPTLW+1\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I,           J,           PCENTER0,    CLDFR0      ) &\n       !$OMP PRIVATE( CLIQWP0,     CICEWP0,     REICE0,      RELIQ0      ) &\n       !$OMP PRIVATE( TAUCLD_SW0,  SSACLD0,     ASMCLD0,     FSFCLD0     ) &\n       !$OMP PRIVATE( CLDFMCL_LW0, CIWPMCL_LW0, CLWPMCL_LW0, REICMCL0    ) &\n       !$OMP PRIVATE( RELQMCL0,    TAUCMCL_LW0, CLDFMCL_SW0, CIWPMCL_SW0 ) &\n       !$OMP PRIVATE( CLWPMCL_SW0, TAUCMCL_SW0, SSACMCL0,    ASMCMCL0    ) &\n       !$OMP PRIVATE( FSFCMCL0,    p_PCENTER,   p_CLDFR,     p_CICEWP    ) &\n       !$OMP PRIVATE( p_CLIQWP,    p_REICE,     p_RELIQ,     p_TAUCLD_LW ) &\n       !$OMP PRIVATE( p_TAUCLD_SW, p_SSACLD,    p_ASMCLD,    p_FSFCLD    ) &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO J=1, State_Grid%NY\n       DO I=1, State_Grid%NX\n\n          ! Avoid array temporaries in the subroutine call (bmy, 6/3/15)\n          ! These arrays are used by both MCICA_SUBCOL_LW and MCICA_SUBCOL_SW\n          p_PCENTER = PCENTER(I,J,:)\n          p_CLDFR   = CLDFR  (I,J,:)\n          p_CICEWP  = CICEWP (I,J,:)\n          p_CLIQWP  = CLIQWP (I,J,:)\n          p_REICE   = REICE  (I,J,:)\n          p_RELIQ   = RELIQ  (I,J,:)\n\n          !-------------------------------------------------------------\n          ! Long-wave radiation\n          !-------------------------------------------------------------\n          IF (Input_Opt%LLWRAD) THEN\n\n             ! Avoid array temporaries in the subroutine call (bmy, 6/3/15)\n             ! These arrays are only used in MCICA_SUBCOL_LW\n             p_TAUCLD_LW = TAUCLD_LW(:,I,J,:)\n\n             ! Call MCICA longwave\n             CALL MCICA_SUBCOL_LW( &\n                  !-------------------------------------\n                  ! Inputs\n                  ONECOL,        &\n                  State_Grid%NZ, &\n                  ICLDMCL,       &\n                  SEEDLW,        &\n                  IRNG,          &\n                  p_PCENTER,     &\n                  p_CLDFR,       &\n                  p_CICEWP,      &\n                  p_CLIQWP,      &\n                  p_REICE,       &\n                  p_RELIQ,       &\n                  p_TAUCLD_LW,   &\n                  !-------------------------------------\n                  ! Outputs\n                  CLDFMCL_LW0,  &\n                  CIWPMCL_LW0,  &\n                  CLWPMCL_LW0,  &\n                  REICMCL0,     &\n                  RELQMCL0,     &\n                  TAUCMCL_LW0 )\n\n             ! Copy back into 3-D arrays\n             CLDFMCL_LW(:,I,J,:) = CLDFMCL_LW0(:,1,:)\n             CIWPMCL_LW(:,I,J,:) = CIWPMCL_LW0(:,1,:)\n             CLWPMCL_LW(:,I,J,:) = CLWPMCL_LW0(:,1,:)\n             TAUCMCL_LW(:,I,J,:) = TAUCMCL_LW0(:,1,:)\n\n          ENDIF\n\n          !-------------------------------------------------------------\n          ! Short-wave radiation\n          !-------------------------------------------------------------\n          IF (Input_Opt%LSWRAD) THEN\n\n             ! Avoid array temporaries in the subroutine call (bmy, 6/3/15)\n             ! These arrays are only used in MCICA_SUBCOL_SW\n             p_TAUCLD_SW = TAUCLD_SW(:,I,J,:)\n             p_SSACLD    = SSACLD   (:,I,J,:)\n             p_ASMCLD    = ASMCLD   (:,I,J,:)\n             p_FSFCLD    = FSFCLD   (:,I,J,:)\n\n             ! Call MCICA shortwave\n             CALL MCICA_SUBCOL_SW( &\n                  !-------------------------------------\n                  ! Inputs\n                  ONECOL,        &\n                  State_Grid%NZ, &\n                  ICLDMCL,       &\n                  SEEDSW,        &\n                  IRNG,          &\n                  p_PCENTER,     &\n                  p_CLDFR,       &\n                  p_CICEWP,      &\n                  p_CLIQWP,      &\n                  p_REICE,       &\n                  p_RELIQ,       &\n                  p_TAUCLD_SW,   &\n                  p_SSACLD,      &\n                  p_ASMCLD,      &\n                  p_FSFCLD,      &\n                  !-------------------------------------\n                  ! Outputs\n                  CLDFMCL_SW0,   &\n                  CIWPMCL_SW0,   &\n                  CLWPMCL_SW0,   &\n                  REICMCL0,      &\n                  RELQMCL0,      &\n                  TAUCMCL_SW0,   &\n                  SSACMCL0,      &\n                  ASMCMCL0,      &\n                  FSFCMCL0  )\n\n             ! Copy back into 3-D arrays\n             CLDFMCL_SW(:,I,J,:) = CLDFMCL_SW0(:,1,:)\n             CIWPMCL_SW(:,I,J,:) = CIWPMCL_SW0(:,1,:)\n             CLWPMCL_SW(:,I,J,:) = CLWPMCL_SW0(:,1,:)\n             TAUCMCL_SW(:,I,J,:) = TAUCMCL_SW0(:,1,:)\n             SSACMCL   (:,I,J,:) = SSACMCL0   (:,1,:)\n             ASMCMCL   (:,I,J,:) = ASMCMCL0   (:,1,:)\n             FSFCMCL   (:,I,J,:) = FSFCMCL0   (:,1,:)\n\n          ENDIF\n\n          ! these should be independent of LW and SW\n          ! simply rearranged by the MCICA routine\n          REICMCL(I,J,:) = REICMCL0(1,:)\n          RELQMCL(I,J,:) = RELQMCL0(1,:)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF !DO MCICA CLOUDS\n\n    ! Number of columns which fail to converge - initialize to zero\n    N_Failed = 0\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,   J,       UFLX,         DFLX,         HR           ) &\n    !$OMP PRIVATE( UFLXC,        DFLXC,        HRC,          DUFLX_DT     ) &\n    !$OMP PRIVATE( DUFLXC_DT,    ECAER,        SWUFLX,       SWDFLX       ) &\n    !$OMP PRIVATE( SWHR,         SWUFLXC,      SWDFLXC,      SWHRC        ) &\n    !$OMP PRIVATE( p_PCENTER,    p_PLEV,       p_TLAY,       p_TLEV       ) &\n    !$OMP PRIVATE( p_H2OVMR,     p_O3VMR,      p_CO2VMR,     p_CH4VMR     ) &\n    !$OMP PRIVATE( p_N2OVMR,     p_O2VMR,      p_CFC11VMR,   p_CFC12VMR   ) &\n    !$OMP PRIVATE( p_CFC22VMR,   p_CCL4VMR,    p_RTEMISS,    p_REICMCL    ) &\n    !$OMP PRIVATE( p_RELQMCL,    p_CLDFMCL_LW, p_TAUCMCL_LW, p_CIWPMCL_LW ) &\n    !$OMP PRIVATE( p_CLWPMCL_LW, p_TAUAER_LW,  p_CLDFMCL_SW, p_TAUCMCL_SW ) &\n    !$OMP PRIVATE( p_SSACMCL,    p_ASMCMCL,    p_FSFCMCL,    p_CIWPMCL_SW ) &\n    !$OMP PRIVATE( p_CLWPMCL_SW, p_TAUAER_SW,  p_SSAAER,     p_ASMAER     ) &\n    !$OMP PRIVATE( p_SUNCOS,     dtadj,        HRdyn,        HRstrat      ) &\n    !$OMP PRIVATE( RHOA,         RHOB,         RHOSUM,       StratImbal   ) &\n    !$OMP PRIVATE( HR_P,         p_TLAY_P,     I_PC,         p_TLAY_0     ) &\n    !$OMP PRIVATE( UFLXC_P,      DFLXC_P,      UFLX_P,       DFLX_P       ) &\n    !$OMP PRIVATE( TSadj_adapt,  TSadj,        i_Iter,       L            ) &\n    !$OMP PRIVATE( p_TLAY_SW,    p_TLEV_SW,    Do_Adjust                  ) &\n    !$OMP PRIVATE( last_max,     curr_max,     i_max,    last_max_stored  ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J=1, State_Grid%NY\n    DO I=1, State_Grid%NX\n\n       ! Avoid arrray temporaries in subroutines (bmy, 6/3/15)\n       ! These variables are used in both RRTMG_LW and RRTMG_SW\n       p_PCENTER  = PCENTER (I,J,:)\n       p_PLEV     = PLEV    (I,J,:)\n       p_TLAY     = TLAY    (I,J,:)\n       p_TLEV     = TLEV    (I,J,:)\n       p_H2OVMR   = H2OVMR  (I,J,:)\n       p_O3VMR    = O3VMR   (I,J,:)\n       p_CO2VMR   = CO2VMR  (I,J,:)\n       p_CH4VMR   = CH4VMR  (I,J,:)\n       p_N2OVMR   = N2OVMR  (I,J,:)\n       p_O2VMR    = O2VMR   (I,J,:)\n       p_CFC11VMR = CFC11VMR(I,J,:)\n       p_CFC12VMR = CFC12VMR(I,J,:)\n       p_CFC22VMR = CFC22VMR(I,J,:)\n       p_CCL4VMR  = CCL4VMR (I,J,:)\n       p_RTEMISS  = RTEMISS (I,J,:)\n       p_REICMCL  = REICMCL (I,J,:)\n       p_RELQMCL  = RELQMCL (I,J,:)\n\n       ! For shortwave calculations we need to neglect the strat.\n       ! adjustment (otherwise inconsistent with baseline)\n       p_TLAY_SW = TLAY_SW(I,J,:)\n       p_TLEV_SW = TLEV_SW(I,J,:)\n\n       !--------------------------------------------------------------\n       ! RRTMG - Longwave radiation\n       !--------------------------------------------------------------\n       IF (Input_Opt%LLWRAD) THEN\n\n          ! Avoid array temporaries in subroutine calls (bmy, 6/3/15)\n          ! These arrays are only used in RRTMG_LW\n          p_CLDFMCL_LW = CLDFMCL_LW(:,I,J,:  )\n          p_TAUCMCL_LW = TAUCMCL_LW(:,I,J,:  )\n          p_CIWPMCL_LW = CIWPMCL_LW(:,I,J,:  )\n          p_CLWPMCL_LW = CLWPMCL_LW(:,I,J,:  )\n          p_TAUAER_LW  = TAUAER_LW (  I,J,:,:)\n\n          ! Call RRTMG for longwave radiation\n          CALL RRTMG_LW( &\n               !-------------------------------------\n               ! Inputs\n               ONECOL,        &\n               State_Grid%NZ, &\n               ICLDMCL,       &\n               IDRV,          &\n               p_PCENTER,     &\n               p_PLEV,        &\n               p_TLAY,        &\n               p_TLEV,        &\n               TSFC(I,J),     &\n               p_H2OVMR,      &\n               p_O3VMR,       &\n               p_CO2VMR,      &\n               p_CH4VMR,      &\n               p_N2OVMR,      &\n               p_O2VMR,       &\n               p_CFC11VMR,    &\n               p_CFC12VMR,    &\n               p_CFC22VMR,    &\n               p_CCL4VMR,     &\n               p_RTEMISS,     &\n               INFLGLW,       &\n               ICEFLGLW,      &\n               LIQFLGLW,      &\n               p_CLDFMCL_LW,  &\n               p_TAUCMCL_LW,  &\n               p_CIWPMCL_LW,  &\n               p_CLWPMCL_LW,  &\n               p_REICMCL,     &\n               p_RELQMCL,     &\n               p_TAUAER_LW,   &\n               !-------------------------------------\n               ! Outputs\n               UFLX,          &\n               DFLX,          &\n               HR,            &\n               UFLXC,         &\n               DFLXC,         &\n               HRC,           &\n               DUFLX_DT,      &\n               DUFLXC_DT )\n\n          ! Copy back into 3-D arrays\n          LW_UFLUX (I,J,:) = UFLX (1,:)\n          LW_DFLUX (I,J,:) = DFLX (1,:)\n          LW_UFLUXC(I,J,:) = UFLXC(1,:)\n          LW_DFLUXC(I,J,:) = DFLXC(1,:)\n\n       ENDIF                  !LW\n\n       !--------------------------------------------------------------\n       ! RRTMG - Shortwave radiation\n       !--------------------------------------------------------------\n       IF (Input_Opt%LSWRAD) THEN\n\n          !### Debug output\n          !write(6,*) 'SWSHIZ',TAUAER_SW(I,J,1,5),SWUFLX(1,1),SWDFLX(1,1), &\n          !           SWUFLXC(1,1),SWDFLXC(1,1)\n\n          ! Avoid array temporaries in subroutine calls (bmy, 6/3/15)\n          ! These arrays are only used in RRTMG_SW\n          p_SUNCOS     = SUNCOS    (  I,J,:  )\n          p_CLDFMCL_SW = CLDFMCL_SW(:,I,J,:  )\n          p_TAUCMCL_SW = TAUCMCL_SW(:,I,J,:  )\n          p_SSACMCL    = SSACMCL   (:,I,J,:  )\n          p_ASMCMCL    = ASMCMCL   (:,I,J,:  )\n          p_FSFCMCL    = FSFCMCL   (:,I,J,:  )\n          p_CIWPMCL_SW = CIWPMCL_SW(:,I,J,:  )\n          p_CLWPMCL_SW = CLWPMCL_SW(:,I,J,:  )\n          p_TAUAER_SW  = TAUAER_SW (  I,J,:,:)\n          p_SSAAER     = SSAAER    (  I,J,:,:)\n          p_ASMAER     = ASMAER    (  I,J,:,:)\n\n          ! Call RRTMG for shortwave radiation\n          CALL RRTMG_SW( &\n               !-------------------------------------\n               ! Inputs\n               ONECOL,         &\n               State_Grid%NZ,  &\n               ICLDMCL,        &\n               p_PCENTER,      &\n               p_PLEV,         &\n               p_TLAY_SW,      &\n               p_TLEV_SW,      &\n               TSFC(I,J),      &\n               p_H2OVMR,       &\n               p_O3VMR,        &\n               p_CO2VMR,       &\n               p_CH4VMR,       &\n               p_N2OVMR,       &\n               p_O2VMR,        &\n               ALBDIRVIS(I,J), &\n               ALBDIFVIS(I,J), &\n               ALBDIRNIR(I,J), &\n               ALBDIFNIR(I,J), &\n               p_SUNCOS,       &\n               ADJES,          &\n               DOY,            &\n               SCON,           &\n               INFLGSW,        &\n               ICEFLGSW,       &\n               LIQFLGSW,       &\n               p_CLDFMCL_SW,   &\n               p_TAUCMCL_SW,   &\n               p_SSACMCL,      &\n               p_ASMCMCL,      &\n               p_FSFCMCL,      &\n               p_CIWPMCL_SW,   &\n               p_CLWPMCL_SW,   &\n               p_REICMCL,      &\n               p_RELQMCL,      &\n               p_TAUAER_SW,    &\n               p_SSAAER,       &\n               p_ASMAER,       &\n               !-------------------------------------\n               ! Outputs\n               ECAER,          &\n               SWUFLX,         &\n               SWDFLX,         &\n               SWHR,           &\n               SWUFLXC,        &\n               SWDFLXC,        &\n               SWHRC    )\n\n          ! Copy back into 3-D arrays\n          SW_UFLUX (I,J,:) = SWUFLX (1,:)\n          SW_DFLUX (I,J,:) = SWDFLX (1,:)\n          SW_UFLUXC(I,J,:) = SWUFLXC(1,:)\n          SW_DFLUXC(I,J,:) = SWDFLXC(1,:)\n\n       ENDIF !SW\n\n       ! If we are including stratospheric adjustment, we need\n       ! to repeat calculations using the approach outlined in\n       ! Maycock et al. (2011)\n       If (Store_DHR .or. Calc_DeltaT) Then\n          If (Store_DHR) Then\n             ! Assume that dT/dt is ~ 0; therefore the dynamical\n             ! heating rate is approximately -1x the net radiative\n             ! heating rate\n             Do L=1,State_Grid%NZ\n                HRdyn(L) = -1.0e+0_RB * (HR(1,L) + SWHR(1,L))\n             End Do\n             ! Store in the output array\n             HR_3D(I,J,:) = HRdyn(:)\n          Else If (Calc_DeltaT.and.Input_Opt%RRTMG_SEFDH) Then\n             ! Only performed on the baseline call\n             ! Read the heating rate from the archived data\n             HRdyn(:) = HR_3D(I,J,:)\n             ! Update delta-T using simple forward Euler\n             Do L=1,State_Grid%NZ\n                If (State_Met%InStratosphere(I,J,L)) Then\n                   ! March forward to end of the coming time step\n                   DT_3D(I,J,L) = DT_3D(I,J,L) + (DT_days * (HR(1,L) + SWHR(1,L) + HRdyn(L)))\n                Else\n                   ! Relax temperature adjustment to zero\n                   ! outside the stratosphere\n                   DT_3D(I,J,L) = DT_3D(I,J,L) * Relax_Factor\n                End If\n             End Do\n          Else If (Calc_DeltaT.and.Input_Opt%RRTMG_FDH) Then\n             ! Read the heating rate from the archived data\n             HRdyn(:) = HR_3D(I,J,:)\n             ! Assume we start in an imbalanced state\n             StratImbal = .True.\n             ! Cumulative integration time so far in days\n             dtadj = 0.0d0\n             ! Iteration counter\n             i_iter = 0\n             ! Initial time step (days)\n             tsadj_adapt = tsadj_max\n             last_max = 0.0d0\n             last_max_stored = 0.0d0 ! Debug\n             ! Define which region we perform adjustment in\n             Do_Adjust(:) = State_Met%InStratosphere(I,J,:)\n             If (Input_Opt%RRTMG_SA_TOA) Then\n                 Do L = 1, State_Grid%NZ\n                     Do_Adjust(L) = (.not. State_Met%InTroposphere(I,J,L))\n                 End Do\n             End If\n             Do While (StratImbal)\n                i_iter = i_iter + 1\n                ! Reset net stratospheric heating rate\n                HRstrat(:) = 0.0e+0_RB\n                StratImbal = .False.\n\n                ! Store temperatures at the start of the step\n                Do L=1,State_Grid%NZ\n                   p_TLAY_0(L) = p_TLAY(L)\n                End Do\n\n                ! Perform RK4 integration forward in time\n                ! Estimate heating rate at each of the 4 points\n                Do I_PC = 1, N_PC\n                   ! Estimate heating rate using \"current\" conditions\n                   ! Can be skipped if i_iter == 1 because we just ran\n                   ! the longwave calculation\n                   If ((I_PC.gt.1).or.(i_iter.gt.1)) Then\n                      ! Reinterpolate temperatures\n                      p_TLEV(1) = p_TLAY(1)\n                      p_TLEV(State_Grid%NZ+1) = p_TLAY(State_Grid%NZ)\n                      Do L=2,State_Grid%NZ\n                         RHOA = p_PCENTER(L-1)/(GCAIR*p_TLAY(L-1))\n                         RHOB = p_PCENTER(L  )/(GCAIR*p_TLAY(L  ))\n                         RHOSUM = RHOA+RHOB\n                         p_TLEV(L) = (RHOA*p_TLAY(L-1)+ &\n                                      RHOB*p_TLAY(L  ))/RHOSUM\n                      End Do\n\n                      ! Recalculate LW RT and heating\n                      CALL RRTMG_LW( &\n                           !-------------------------------------\n                           ! Inputs\n                           ONECOL,        &\n                           State_Grid%NZ, &\n                           ICLDMCL,       &\n                           IDRV,          &\n                           p_PCENTER,     &\n                           p_PLEV,        &\n                           p_TLAY,        &\n                           p_TLEV,        &\n                           TSFC(I,J),     &\n                           p_H2OVMR,      &\n                           p_O3VMR,       &\n                           p_CO2VMR,      &\n                           p_CH4VMR,      &\n                           p_N2OVMR,      &\n                           p_O2VMR,       &\n                           p_CFC11VMR,    &\n                           p_CFC12VMR,    &\n                           p_CFC22VMR,    &\n                           p_CCL4VMR,     &\n                           p_RTEMISS,     &\n                           INFLGLW,       &\n                           ICEFLGLW,      &\n                           LIQFLGLW,      &\n                           p_CLDFMCL_LW,  &\n                           p_TAUCMCL_LW,  &\n                           p_CIWPMCL_LW,  &\n                           p_CLWPMCL_LW,  &\n                           p_REICMCL,     &\n                           p_RELQMCL,     &\n                           p_TAUAER_LW,   &\n                           !-------------------------------------\n                           ! Outputs\n                           UFLX,          &\n                           DFLX,          &\n                           HR,            &\n                           UFLXC,         &\n                           DFLXC,         &\n                           HRC,           &\n                           DUFLX_DT,      &\n                           DUFLXC_DT )\n                   End If ! I_PC > 1 or i_iter > 1\n\n                   ! Store the gradient (heating rate) from each calculation\n                   HR_P(I_PC,:) = HR(1,:)\n\n                   ! If this is the last calculation, store the output\n                   ! All non-baseline calculations will use these temperatures\n                   ! if convergence has been reached\n                   If (I_PC == N_PC) Then\n                      p_TLAY_P(:)  = p_TLAY(:)\n                      ! Also store the fluxes for transfer to the 3-D arrays\n                      UFLX_P(1,:)  = UFLX(1,:)\n                      DFLX_P(1,:)  = DFLX(1,:)\n                      UFLXC_P(1,:) = UFLXC(1,:)\n                      DFLXC_P(1,:) = DFLXC(1,:)\n                   End If\n\n                   ! Update the heating rate and layer temperatures\n                   ! Recall that for RK4, we will perform 4 estimates\n                   ! Estimate 1: heating rate at t = T + 0\n                   ! Estimate 2: heating rate at t = T + dt/2, projected 1st order from t = T using estimate 1\n                   ! Estimate 3: heating rate at t = T + dt/2, projected 1st order from t = T using estimate 2\n                   ! Estimate 4: heating rate at t = T + dt,   projected 1st order from t = T using estimate 3\n                   ! Choose how far to project forward for the NEXT RK4 step\n                   If ((I_PC == 1).or.(I_PC == 2)) Then\n                      ! 2nd and 3rd evaluation to take place at t = T + dt/2\n                      tsadj = tsadj_adapt / 2.0\n                   Else\n                      ! 4th evaluation to take place at t = T + dt\n                      tsadj = tsadj_adapt\n                   End If\n\n                   ! If this is the last calculation, use the RK4 estimate of the heating rate\n                   If (I_PC == N_PC) Then\n                      HR(1,:) = (1.0/6.0) *        &\n                                ( HR_P(1,:)      + &\n                                 (HR_P(2,:)*2.0) + &\n                                 (HR_P(3,:)*2.0) + &\n                                  HR_P(4,:)        )\n                   End If                   \n                  \n                   ! Reset\n                   HRstrat(:) = 0.0e+0_RB\n                   Do L=1,State_Grid%NZ\n                      If (Do_Adjust(L)) Then\n                         ! This should be approaching zero over time\n                         HRstrat(L) = HR(1,L) + SWHR(1,L) + HRdyn(L)\n                         ! Update layer temperature by projecting forward\n                         ! from the temperature at the start of the calculation\n                         ! loop (p_TLAY_0)\n                         p_TLAY(L) = (TSadj_adapt * HRstrat(L)) + p_TLAY_0(L)\n                      End If\n                   End Do ! L = 1, State-Grid%NZ\n                End Do ! I_PC = 1, N_PC\n  \n                ! RK4 calculations now complete - move forward one timestep\n                dtadj = dtadj + tsadj_adapt\n \n                ! Check how close we are to equilibrium\n                i_max = MaxLoc(Abs(HRstrat),1)\n                curr_max = HRstrat(i_max)\n                StratImbal = (Abs(curr_max) > HRmax)\n\n                ! Is the net heating rate ~0?\n                If (.not.StratImbal) Exit\n                ! Are we oscillating? If so - reduce time step\n                If ((i_iter.gt.1) .and. (((curr_max.gt.0) .and. (last_max.lt.0)) .or. &\n                                        (((curr_max.lt.0) .and. (last_max.gt.0))))) Then\n                    tsadj_adapt = max(tsadj_adapt/2.0,tsadj_min)\n                End If\n                last_max_stored = last_max\n                last_max = curr_max\n                ! Are we taking too long to reach equilibrium?\n                If (dtadj > dtadj_max) Exit\n             End Do ! While StratImbal\n\n             ! If convergence failed, record that\n             If (StratImbal) Then\n                !$OMP ATOMIC UPDATE\n                N_Failed = N_Failed + 1\n                !$OMP END ATOMIC\n             End If\n\n             ! Store the flux arrays and delta-T from the final\n             ! RK4 sub-calculation. This ensures that the fluxes \n             ! and layer temperatures are all consistent. The\n             ! alternative would be to run a final calculation\n             ! using the \"final\" layer temperatures, but this would\n             ! require yet another LW flux calculation.\n             LW_UFLUX (I,J,:) = UFLX_P(1,:)\n             LW_DFLUX (I,J,:) = DFLX_P(1,:)\n             LW_UFLUXC(I,J,:) = UFLXC_P(1,:)\n             LW_DFLUXC(I,J,:) = DFLXC_P(1,:)\n             DT_3D(I,J,:) = p_TLAY_P(:) - TLAY(I,J,:)\n          End If ! Calc_DeltaT\n       End If\n    ENDDO !State_Grid%NX\n    ENDDO !State_Grid%NY\n    !$OMP END PARALLEL DO\n\n    If (Calc_DeltaT) Then\n       ! Warn the user if there were failed columns\n       If (N_Failed > 0) Then\n          N_Column = State_Grid%NX*State_Grid%NY\n          Write(ErrMsg,'(a,I6,a,I6,a,I6)') 'RRTMG FDH routine failed to converge for ',N_Failed, &\n                                        ' of ',N_Column,' columns on CPU ', Input_Opt%thisCPU\n          If (N_Failed .gt. (N_Column/10)) Then\n              Call Log_Msg(Trim(ErrMsg),'WARNING','Do_RRTMG_Rad_Transfer')\n          Else\n              Call Log_Msg(Trim(ErrMsg),'INFO','Do_RRTMG_Rad_Transfer')\n          End If\n       Else\n          Call Log_Msg('FDH calculation succeeded in every column','DEBUG','Do_RRTMG_Rad_Transfer')\n       End If\n    End If\n\n    ! OUTPUT RADIATION VARIABLES TO DIAGNOSTIC\n    ! IF CALC WITH AEROSOLS AND GASES COMPLETED\n    ! USE ISPECMENU (REFERENCES THE INPUT.GEOS.RAD LIST)\n    ! TO DETERMINE WHICH FLUX HAS BEEN CALCULATED\n    ! OUTPUT DIAGNOSTIC INDEX IS ISPECMENU+1 (ISPECMENU=0 FOR BASELINE)\n    OUTIDX = ISPECMENU + 1\n\n    !FIRST CHECK IF WE HAVE ALREADY OUTPUT AEROSOL DIAGNOSTICS\n    !(I.E. IF BOTH ALL-SKY AND CLEAR-SKY ARE SWITCHED ON)\n    IF ((Input_Opt%LSKYRAD(1)).AND.(Input_Opt%LSKYRAD(2))) THEN\n       !WE ONLY NEED TO OUTPUT DURING ONE OF THESE, SO DONT WHEN ICLD=0\n       IF (ICLD.EQ.0) THEN\n          LOUTPUTAERO=.FALSE.\n       ENDIF\n    ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, LL, W )            &\n    !$OMP PRIVATE( AODTMP, SSATMP, ASYMTMP) &\n    !$OMP PRIVATE( AODOUT, SSAOUT, ASYMOUT) &\n    !$OMP PRIVATE( iTrop                  ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J=1,State_Grid%NY\n    DO I=1,State_Grid%NX\n\n       !================================================================\n       ! %%%%% HISTORY (aka netCDF diagnostics) %%%%%\n       !================================================================\n\n       ! Get the tropopause level\n       iTrop = State_Met%TropLev(I,J)\n\n       !================================================================\n       ! Save clear-sky and all-sky fluxes from RRTMG [W/m2]\n       !================================================================\n       IF ( ICLD > 0 ) THEN\n\n          !-------------------------------------------------------\n          !ALL-SKY (WE GET CLEAR-SKY WITH THIS TOO)\n          !N.B. UPWELLING SHOULD BE NEGATIVE AS DOWN IS +VE\n          !-------------------------------------------------------\n\n          ! All-sky SW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadAllSkySWTOA ) THEN\n             State_Diag%RadAllSkySWTOA(I,J,iNcDiag) = &\n                  -SW_UFLUX(I,J,State_Grid%NZ+1)\n          ENDIF\n\n          ! All-sky SW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadAllSkySWTrop ) THEN\n             State_Diag%RadAllSkySWTrop(I,J,iNcDiag) = &\n                  SW_DFLUX(I,J,iTrop)-SW_UFLUX(I,J,iTrop)\n          ENDIF\n\n          ! All-sky SW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadAllSkySWSurf ) THEN\n             State_Diag%RadAllSkySWSurf(I,J,iNcDiag) = &\n                  SW_DFLUX(I,J,1)\n          ENDIF\n\n          ! All-sky LW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadAllSkyLWTOA ) THEN\n             State_Diag%RadAllSkyLWTOA(I,J,iNcDiag) = &\n                  -LW_UFLUX(I,J,State_Grid%NZ+1)\n          ENDIF\n\n          ! All-sky LW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadAllSkyLWTrop ) THEN\n             State_Diag%RadAllSkyLWTrop(I,J,iNcDiag) = &\n                  LW_DFLUX(I,J,iTrop)-LW_UFLUX(I,J,iTrop)\n          ENDIF\n\n          ! All-sky LW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadAllSkyLWSurf ) THEN\n             State_Diag%RadAllSkyLWSurf(I,J,iNcDiag) = &\n                  LW_DFLUX(I,J,1)\n          ENDIF\n\n          ! Clear-sky SW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWTOA ) THEN\n             State_Diag%RadClrSkySWTOA(I,J,iNcDiag) = &\n                  -SW_UFLUXC(I,J,State_Grid%NZ+1)\n          ENDIF\n\n          ! Clear-sky SW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWTrop ) THEN\n             State_Diag%RadClrSkySWTrop(I,J,iNcDiag) = &\n                  SW_DFLUXC(I,J,iTrop)-SW_UFLUXC(I,J,iTrop)\n          ENDIF\n\n          ! Clear-sky SW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWSurf ) THEN\n             State_Diag%RadClrSkySWSurf(I,J,iNcDiag) = &\n                  SW_DFLUXC(I,J,1)\n          ENDIF\n\n          ! Clear-sky LW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWTOA ) THEN\n             State_Diag%RadClrSkyLWTOA(I,J,iNcDiag) = &\n                  -LW_UFLUXC(I,J,State_Grid%NZ+1)\n          ENDIF\n\n          ! Clear-sky LW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWTrop ) THEN\n             State_Diag%RadClrSkyLWTrop(I,J,iNcDiag) = &\n                  LW_DFLUXC(I,J,iTrop)-LW_UFLUXC(I,J,iTrop)\n          ENDIF\n\n          ! Clear-sky LW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWSurf ) THEN\n             State_Diag%RadClrSkyLWSurf(I,J,iNcDiag) = &\n                  LW_DFLUXC(I,J,1)\n          ENDIF\n\n       ELSE\n\n          !-------------------------------------------------------\n          ! CLEAR-SKY (RUNNING WITH CLOUDS OFF)\n          !-------------------------------------------------------\n\n          ! Clear-sky SW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWTOA ) THEN\n             State_Diag%RadClrSkySWTOA(I,J,iNcDiag) = &\n                  -SW_UFLUXC(I,J,State_Grid%NZ+1)\n          ENDIF\n\n          ! Clear-sky SW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWTrop ) THEN\n             State_Diag%RadClrSkySWTrop(I,J,iNcDiag) = &\n                  SW_DFLUXC(I,J,iTrop)-SW_UFLUXC(I,J,iTrop)\n          ENDIF\n\n          ! Clear-sky SW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWSurf ) THEN\n             State_Diag%RadClrSkySWSurf(I,J,iNcDiag) = &\n                  SW_DFLUXC(I,J,1)\n          ENDIF\n\n          ! Clear-sky LW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWTOA ) THEN\n             State_Diag%RadClrSkyLWTOA(I,J,iNcDiag) = &\n                  -LW_UFLUXC(I,J,State_Grid%NZ+1)\n          ENDIF\n\n          ! Clear-sky LW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWTrop ) THEN\n             State_Diag%RadClrSkyLWTrop(I,J,iNcDiag) = &\n                  LW_DFLUXC(I,J,iTrop)-LW_UFLUXC(I,J,iTrop)\n          ENDIF\n\n          ! Clear-sky LW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWSurf ) THEN\n             State_Diag%RadClrSkyLWSurf(I,J,iNcDiag) = &\n                  LW_DFLUXC(I,J,1)\n          ENDIF\n\n       ENDIF\n\n       !-------------------------------------------------------\n       ! If not BASE, the subtract flux just calculated from BASE\n       !-------------------------------------------------------\n       IF ( iSpecMenu > 0 ) THEN\n\n          ! Set the state_diag index corresponding to BASE. The BASE\n          ! fluxes are always calculated no matter what outputs are set\n          ! in HISTORY.rc since they are needed here. They are also\n          ! calculated prior to all other outputs. The index always\n          ! corresponds to 1.\n          baseIndex = 1\n\n          ! All-sky SW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadAllSkySWTOA ) THEN\n             State_Diag%RadAllSkySWTOA(I,J,iNcDiag) = &\n                State_Diag%RadAllSkySWTOA(I,J,baseIndex) - &\n                State_Diag%RadAllSkySWTOA(I,J,iNcDiag)\n          ENDIF\n\n          ! All-sky SW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadAllSkySWTrop ) THEN\n             State_Diag%RadAllSkySWTrop(I,J,iNcDiag) = &\n                State_Diag%RadAllSkySWTrop(I,J,baseIndex) - &\n                State_Diag%RadAllSkySWTrop(I,J,iNcDiag)\n          ENDIF\n\n          ! All-sky SW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadAllSkySWSurf ) THEN\n             State_Diag%RadAllSkySWSurf(I,J,iNcDiag) = &\n                State_Diag%RadAllSkySWSurf(I,J,baseIndex) - &\n                State_Diag%RadAllSkySWSurf(I,J,iNcDiag)\n          ENDIF\n\n          ! All-sky LW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadAllSkyLWTOA ) THEN\n             State_Diag%RadAllSkyLWTOA(I,J,iNcDiag) = &\n                State_Diag%RadAllSkyLWTOA(I,J,baseIndex) - &\n                State_Diag%RadAllSkyLWTOA(I,J,iNcDiag)\n          ENDIF\n\n          ! All-sky LW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadAllSkyLWTrop ) THEN\n             State_Diag%RadAllSkyLWTrop(I,J,iNcDiag) = &\n                State_Diag%RadAllSkyLWTrop(I,J,baseIndex) - &\n                State_Diag%RadAllSkyLWTrop(I,J,iNcDiag)\n          ENDIF\n\n          ! All-sky LW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadAllSkyLWSurf ) THEN\n             State_Diag%RadAllSkyLWSurf(I,J,iNcDiag) = &\n                State_Diag%RadAllSkyLWSurf(I,J,baseIndex) - &\n                State_Diag%RadAllSkyLWSurf(I,J,iNcDiag)\n          ENDIF\n\n          ! Clear-sky SW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWTOA ) THEN\n             State_Diag%RadClrSkySWTOA(I,J,iNcDiag) = &\n                State_Diag%RadClrSkySWTOA(I,J,baseIndex) - &\n                State_Diag%RadClrSkySWTOA(I,J,iNcDiag)\n          ENDIF\n\n          ! Clear-sky SW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWTrop ) THEN\n             State_Diag%RadClrSkySWTrop(I,J,iNcDiag) = &\n                State_Diag%RadClrSkySWTrop(I,J,baseIndex) - &\n                State_Diag%RadClrSkySWTrop(I,J,iNcDiag)\n          ENDIF\n\n          ! Clear-sky SW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadClrSkySWSurf ) THEN\n             State_Diag%RadClrSkySWSurf(I,J,iNcDiag) = &\n                State_Diag%RadClrSkySWSurf(I,J,baseIndex) - &\n                State_Diag%RadClrSkySWSurf(I,J,iNcDiag)\n          ENDIF\n\n          ! Clear-sky LW flux @ TOA [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWTOA ) THEN\n             State_Diag%RadClrSkyLWTOA(I,J,iNcDiag) = &\n                State_Diag%RadClrSkyLWTOA(I,J,baseIndex) - &\n                State_Diag%RadClrSkyLWTOA(I,J,iNcDiag)\n          ENDIF\n\n          ! Clear-sky LW flux @ tropopause [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWTrop ) THEN\n             State_Diag%RadClrSkyLWTrop(I,J,iNcDiag) = &\n                State_Diag%RadClrSkyLWTrop(I,J,baseIndex) - &\n                State_Diag%RadClrSkyLWTrop(I,J,iNcDiag)\n          ENDIF\n\n          ! Clear-sky LW flux @ surface [W/m2]\n          IF ( State_Diag%Archive_RadClrSkyLWSurf ) THEN\n             State_Diag%RadClrSkyLWSurf(I,J,iNcDiag) = &\n                State_Diag%RadClrSkyLWSurf(I,J,baseIndex) - &\n                State_Diag%RadClrSkyLWSurf(I,J,iNcDiag)\n          ENDIF\n\n       ENDIF\n\n       !-------------------------------------------------------\n       ! Optics diagnostics (AOD, single scattering albedo, asymmetry param)\n       ! There is one diagnostic per RRTMG output, excluding BASE, ozone, CH4,\n       ! H2O, CO2, CFC, and N2O (hence OUTIDX > 7), and there is one\n       ! diagnostic per RRTMG wavelength (up to Input_Opt%NWVSELECT).\n       ! 2022-01-10: Added water vapor, CO2, CFC, and N2O (SDE)\n       !-------------------------------------------------------\n\n       !OUTPUT OPTICS FOR EACH AEROSOL...\n       !CHECK THAT WE HAVE SOME AEROSOL TO OUTPUT\n       !SKIP OUTIDX=1,2,3,4,5,6,7\n       !(BASELINE, OZONE, CH4, H2O,CO2,CFC,N2O)\n       IF ((OUTIDX.GE.8).AND.(LOUTPUTAERO)) THEN\n          !INTERPOLATE TO THE REQUESTED WAVELENGTH\n          DO W=1,Input_Opt%NWVSELECT\n             AODTMP  = 0.0D0\n             SSATMP  = 0.0D0\n             ASYMTMP = 0.0D0\n             AODOUT  = 0.0D0\n             SSAOUT  = 0.0D0\n             ASYMOUT = 0.0D0\n             DO LL=1,State_Grid%NZ\n                !CHECK AOD IS NON-ZERO BEFORE LOG...\n                IF((TAUAERDIAG(I,J,LL,IRTWVSELECT(2,W)).GT.0).AND. &\n                   (TAUAERDIAG(I,J,LL,IRTWVSELECT(1,W)).GT.0)) THEN\n                   AODTMP=SNGL(TAUAERDIAG(I,J,LL,IRTWVSELECT(2,W))* &\n                        ACOEF_RTWV(W)**(BCOEF_RTWV(W)*              &\n                        LOG(TAUAERDIAG(I,J,LL,IRTWVSELECT(1,W))/    &\n                        TAUAERDIAG(I,J,LL,IRTWVSELECT(2,W)))))\n                   SSATMP=SNGL( CCOEF_RTWV(W)*                      &\n                        SSAAERDIAG(I,J,LL,IRTWVSELECT(2,W))+        &\n                        (1.0D0-CCOEF_RTWV(W))*                      &\n                        SSAAERDIAG(I,J,LL,IRTWVSELECT(1,W)))\n                   ASYMTMP=SNGL( CCOEF_RTWV(W)*                     &\n                        ASMAERDIAG(I,J,LL,IRTWVSELECT(2,W))+        &\n                        (1.0D0-CCOEF_RTWV(W))*                      &\n                        ASMAERDIAG(I,J,LL,IRTWVSELECT(1,W)))\n                   AODOUT=AODOUT+AODTMP\n                   SSAOUT=SSAOUT+SSATMP*AODTMP\n                   ASYMOUT=ASYMOUT+ASYMTMP*SSATMP*AODTMP\n                ENDIF\n             ENDDO !State_Grid%NZ\n             !WE ARE SAVING COLUMN AVERAGED VALUES FOR EACH SPECIES\n             !DIVIDE THROUGH BY AOD*SSA (AOD-SSA WEIGHTING ACCOUNTS FOR\n             !GRIDBOXES)\n             IF ( IS_SAFE_DIV(ASYMOUT,SSAOUT) ) THEN\n                ASYMOUT=ASYMOUT/SSAOUT\n             ENDIF\n             !DIVIDE THROUGH BY AOD\n             IF ( IS_SAFE_DIV(SSAOUT,AODOUT) ) THEN\n                SSAOUT=SSAOUT/AODOUT\n             ENDIF\n             !offsetting output depending on wavelength\n\n             ! Netcdf diagnostics\n             IF ( State_Diag%Archive_RadOptics ) THEN\n                IF ( W == 1 ) THEN\n                   IF ( State_Diag%Archive_RADAODWL1 ) THEN\n                      State_Diag%RADAODWL1(I,J,iNcDiag) = AODOUT\n                   ENDIF\n                   IF ( State_Diag%Archive_RADSSAWL1 ) THEN\n                   State_Diag%RADSSAWL1(I,J,iNcDiag) = SSAOUT\n                      ENDIF\n                   IF ( State_Diag%Archive_RADAsymWL1 ) THEN\n                      State_Diag%RADAsymWL1(I,J,iNcDiag) = ASYMOUT\n                   ENDIF\n                ELSEIF ( W == 2 ) THEN\n                   IF ( State_Diag%Archive_RADAODWL2 ) THEN\n                      State_Diag%RADAODWL2(I,J,iNcDiag) = AODOUT\n                   ENDIF\n                   IF ( State_Diag%Archive_RADSSAWL2 ) THEN\n                      State_Diag%RADSSAWL2(I,J,iNcDiag) = SSAOUT\n                   ENDIF\n                   IF ( State_Diag%Archive_RADAsymWL2 ) THEN\n                      State_Diag%RADAsymWL2(I,J,iNcDiag) = ASYMOUT\n                   ENDIF\n                ELSEIF ( W == 3 ) THEN\n                   IF ( State_Diag%Archive_RADAODWL3 ) THEN\n                      State_Diag%RADAODWL3(I,J,iNcDiag) = AODOUT\n                   ENDIF\n                   IF ( State_Diag%Archive_RADSSAWL3 ) THEN\n                      State_Diag%RADSSAWL3(I,J,iNcDiag) = SSAOUT\n                   ENDIF\n                   IF ( State_Diag%Archive_RADASYMWL3 ) THEN\n                      State_Diag%RADAsymWL3(I,J,iNcDiag) = ASYMOUT\n                   ENDIF\n                ENDIF\n             ENDIF\n\n          ENDDO !NWVSELECT\n       ENDIF\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Halt RRTMG timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"RRTMG\", RC )\n    ENDIF\n\n    ! Convert species units back to original unit\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, 'DO_RRTMG_RAD_TRANSFER')\n       RETURN\n    ENDIF\n\n    ! Start RRTMG timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"RRTMG\", RC )\n    ENDIF\n\n    ! Nullify pointers\n    Spc         => NULL()\n    SPECMASK    => NULL()\n    IRTWVSELECT => NULL()\n    ACOEF_RTWV  => NULL()\n    BCOEF_RTWV  => NULL()\n    CCOEF_RTWV  => NULL()\n    WVAA        => NULL()\n    RTODAER     => NULL()\n    RTSSAER     => NULL()\n    RTASYMAER   => NULL()\n\n\n  END SUBROUTINE DO_RRTMG_RAD_TRANSFER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_specmask\n!\n! !DESCRIPTION: Subroutine SET\\_SPECMASK converts the species switches in the\n!  input.mod radiation section into the list of species that should be passed\n!  through to RRTMG. This must be done in a subtractive way, e.g. If we require\n!  the DRE of sulfate then the baseline will contain all species and the\n!  sulfate run will contain everything but sulfate, this way the contribution\n!  of sulfate can be inferred. Therefore, all species are initially set to 1\n!  and their inclusion results in SPECMASK for the particular species being\n!  set to zero. (dar 10/2013)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_SpecMask( iSpecRadMenu, State_Chm )\n!\n! !USES:\n!\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: iSpecRadMenu  ! Index of RRTMG flux output\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm     ! Chemistry state object\n!\n! !REVISION HISTORY:\n!  18 Jun 2013 - D.A. Ridley - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N0,N,I,II,NXTRA,NASPECRAD\n\n    ! Pointers\n    INTEGER, POINTER :: SPECMASK(:)\n\n    !=================================================================\n    ! SET_SPECMASK begins here!\n    !=================================================================\n\n    !ISPECRADMENU IS THE INDEX OF THE SPECIES WITHIN THE INPUT MENU\n    !THE INDEX OF SPECMASK INDICATES THE POSITION OF THE SPECIES IN\n    !THE RT OPTICS ARRAY FOR THE AEROSOL\n    !E.G. SO4 = 1 I.E. RTODAER(*,*,*,*,1)\n    !\n    !===FUNCTIONALITY FOR ADDING NEW SPECIES===\n    !EXTRA SPECIES ARE ADDED AFTER NAER (BEFORE NDUST AND GASES)\n    !SO WE NEED TO BUMP ALL THE SPECIES AFTER THAT BY NXTRA\n    !WHERE NXTRA=NUMBER OF NEW SPECIES ADDED ABOVE THE STANDARD CODE\n    !E.G. FOR UCX NSPECRAD=18 AND STS AND NAT ARE INCLUDED\n    !IN RTODAER INDEX 8 AND 9, BEFORE DUST\n    NXTRA = State_Chm%Phot%NSPECRAD - 16\n    NASPECRAD = State_Chm%Phot%NASPECRAD\n\n    ! Set pointer\n    SPECMASK => State_Chm%Phot%SpecMask\n\n    !CONVERT THE CURRENT SPECIES SELECTION FROM THE INPUT MENU INTO\n    !THE REQUIRED SPECIES TO BE INCLUDED IN THE RRTMG CALCULATION\n    SPECMASK(:)=1\n\n    !IF ISPECRADMENU IS ZERO, WE JUST WANTED BASELINE, I.E. SPECMASK(:)=1\n    IF ( ISpecRadMenu .GT. 0 ) THEN\n\n       SELECT CASE( ISpecRadMenu )\n\n       ! O3 = Ozone\n       CASE( 1 )\n          SPECMASK(NASPECRAD+1)=0 ! Stratospheric\n          SPECMASK(NASPECRAD+2)=0 ! Tropospheric\n\n       ! O3T = Tropospheric ozone only\n       CASE( 2 )\n          SPECMASK(NASPECRAD+2)=0 ! Tropospheric\n\n       ! ME = Methane\n       CASE( 3 )\n          SPECMASK(NASPECRAD+3)=0\n\n       ! H2O = Water vapor\n       CASE( 4 )\n          SPECMASK(NASPECRAD+4)=0\n\n       ! CO2 = Carbon dioxide\n       CASE( 5 )\n          SPECMASK(NASPECRAD+5)=0\n\n       ! CFC = Chlorofluorocarbons\n       CASE( 6 )\n          SPECMASK(NASPECRAD+6)=0\n\n       ! N2O = Nitrous oxide\n       CASE( 7 )\n          SPECMASK(NASPECRAD+7)=0\n\n       ! SU = Sulfate\n       CASE( 8 )\n          SPECMASK(1)=8\n\n       ! NI = Nitrate\n       CASE( 9 )\n          SPECMASK(2)=9\n\n       ! AM = Ammonium\n       CASE( 10 )\n          SPECMASK(3)=10\n\n       ! BC = Black carbon (Hydrophilic+phobic)\n       CASE( 11 )\n          SPECMASK(4)=11\n\n       ! OA = Organic aerosol (!Hydrophilic+phobic)\n       CASE( 12 )\n          SPECMASK(5)=12\n\n       ! SS = Sea salt\n       CASE( 13 )\n          SPECMASK(6)=13\n          SPECMASK(7)=13\n\n       ! DU = Mineral dust\n       CASE( 14 )\n          ! 7 dust bins for RT\n          Do II=10,16\n             SPECMASK(II)=14\n          End Do\n\n       ! PM = All particulate matter\n       ! add all aerosols but not gases here\n       CASE( 15 )\n          DO II = 1, State_Chm%Phot%NASPECRAD\n             SPECMASK(II)=15\n          ENDDO\n\n       ! ST = STRAT AEROSOL\n       CASE( 16 )\n\n          !LSA\n          SPECMASK(8) = 16\n\n          !NAT\n          SPECMASK(9) = 16\n\n       END SELECT\n    ENDIF\n\n    ! Nullify pointer\n    SPECMASK => NULL()\n\n  END SUBROUTINE Set_SpecMask\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_rrtmg_rad_transfer\n!\n! !DESCRIPTION: Initializes all RRTMG module varaiables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_RRTMG_Rad_Transfer( Input_Opt, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  The index fields Input_Opt%RadOutCt, Input_Opt%RadOutName, and\n!  Input_Opt%RadOutInd are populated from information obtained in\n!  Headers/diaglist_mod.F90.  But the geoschem_config.yml file is read before\n!  the diaglist is constructed.  Therefore, we have to delay population\n!  of these fields until after the call to Init_DiagList.\n!\n! !REVISION HISTORY:\n!  09 Nov 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, arrayId\n\n    !=================================================================\n    ! Init_RRTMG_Inputs begins here\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_RRTMG_Rad_Transfer (in rrtmg_rad_transfer_mod.F90)'\n\n    !=================================================================\n    ! For backwards compatibility with existing RRTMG code, we need\n    ! to populate the Input_Opt%LSpecRadMenu based on the RRTMG\n    ! outputs requested in the HISTORY.rc file.  Loop over all\n    ! possible types of RRTMG flux outputs (excluding baseline,\n    ! which is type 0).\n    !\n    ! Optional outputs (requested via HISTORY.rc)\n    !   1=O3  2=O3T  3=ME  4=H2O  5=CO2  6=CFC  7=N2O\n    !   8=SU  9=NI  10=AM 11=BC  12=OA  13=SS  14=DU  \n    !  15=PM  16=ST\n    !\n    ! NB: \"O3\" is all ozone; \"O3T\" is tropospheric ozone only.\n    !=================================================================\n\n    ! Loop over all of the flux outputs requested in HISTORY.rc\n    DO N = 1, State_Diag%nRadOut\n\n       SELECT CASE( State_Diag%RadOutName(N) )\n       CASE( 'O3' )\n          Input_Opt%LSpecRadMenu(1)  = 1\n       CASE( 'O3T' )\n          Input_Opt%LSpecRadMenu(2)  = 1\n       CASE( 'ME' )\n          Input_Opt%LSpecRadMenu(3)  = 1\n       CASE( 'H2O' )\n          Input_Opt%LSpecRadMenu(4) = 1\n       CASE( 'CO2' )\n          Input_Opt%LSpecRadMenu(5) = 1\n       CASE( 'CFC' )\n          Input_Opt%LSpecRadMenu(6) = 1\n       CASE( 'N2O' )\n          Input_Opt%LSpecRadMenu(7) = 1\n       CASE( 'SU' )\n          Input_Opt%LSpecRadMenu(8)  = 1\n       CASE( 'NI' )\n          Input_Opt%LSpecRadMenu(9)  = 1\n       CASE( 'AM' )\n          Input_Opt%LSpecRadMenu(10) = 1\n       CASE( 'BC' )\n          Input_Opt%LSpecRadMenu(11) = 1\n       CASE( 'OA' )\n          Input_Opt%LSpecRadMenu(12) = 1\n       CASE( 'SS' )\n          Input_Opt%LSpecRadMenu(13) = 1\n       CASE( 'DU' )\n          Input_Opt%LSpecRadMenu(14) = 1\n       CASE( 'PM' )\n          Input_Opt%LSpecRadMenu(15) = 1\n       CASE( 'ST' )\n          Input_Opt%LSpecRadMenu(16) = 1\n       CASE DEFAULT\n          ! Nothing\n       END SELECT\n    ENDDO\n\n    !=================================================================\n    ! Allocate arrays\n    !=================================================================\n    CALL Init_Surface_Rad ( State_Grid )\n    CALL Init_MCICA_Clouds( State_Grid )\n\n  END SUBROUTINE Init_RRTMG_Rad_Transfer\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_surface_rad\n!\n! !DESCRIPTION: Subroutine INIT\\_SURFACE\\_RAD initializes all allocatable\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Surface_Rad( State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ALLOC_ERR\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State objecy\n!\n! !REVISION HISTORY:\n!  18 Jun 2013 - D.A. Ridley - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: AS\n\n    !=================================================================\n    ! INIT_SURFACE_RAD begins here!\n    !=================================================================\n\n    ALLOCATE( LW_UFLUX(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'LW_UFLUX' )\n    LW_UFLUX = 0D0\n\n    ALLOCATE( LW_DFLUX(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'LW_DFLUX' )\n    LW_DFLUX = 0D0\n\n    ALLOCATE( SW_UFLUX(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SW_UFLUX' )\n    SW_UFLUX = 0D0\n\n    ALLOCATE( SW_DFLUX(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SW_DFLUX' )\n    SW_DFLUX = 0D0\n\n    ALLOCATE( LW_UFLUXC(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'LW_UFLUXC' )\n    LW_UFLUXC = 0D0\n\n    ALLOCATE( LW_DFLUXC(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'LW_DFLUXC' )\n    LW_DFLUXC = 0D0\n\n    ALLOCATE( SW_UFLUXC(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SW_UFLUXC' )\n    SW_UFLUXC = 0D0\n\n    ALLOCATE( SW_DFLUXC(State_Grid%NX,State_Grid%NY,State_Grid%NZ+1), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SW_DFLUXC' )\n    SW_DFLUXC = 0D0\n\n  END SUBROUTINE INIT_SURFACE_RAD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: AttachPointersFromHemco\n!\n! !DESCRIPTION: Subroutine AttachPointersFromHemco attaches pointers for\n!  various RRTMG input data that is read in via HEMCO to module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AttachPointersFromHemco( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod,  ONLY : HcoState\n    USE HCO_EmisList_Mod,  ONLY : HCO_GetPtr\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  18 Jun 2013 - D.A. Ridley - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=20)  :: FieldName\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! AttachPointersFromHemco begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at AttachPointersFromHemco (in rrtmg_rad_transfer_mod.F90)'\n\n    !-------------------------------\n    ! CCl4 [ppb]\n    !-------------------------------\n    FieldName = 'TES_CLIM_CCL4'\n    CALL HCO_GetPtr( HcoState, FieldName, CCL4CLIM,  RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! CFC11 [ppb]\n    !-------------------------------\n    FieldName = 'TES_CLIM_CFC11'\n    CALL HCO_GetPtr( HcoState, FieldName, CFC11CLIM, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! CFC12 [ppb]\n    !-------------------------------\n    FieldName = 'TES_CLIM_CFC12'\n    CALL HCO_GetPtr( HcoState, FieldName, CFC12CLIM, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! CFC22 [ppb]\n    !-------------------------------\n    FieldName = 'TES_CLIM_CFC22'\n    CALL HCO_GetPtr( HcoState, FieldName, CFC22CLIM, RC  )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! CH4 [ppb]\n    !-------------------------------\n    FieldName = 'TES_CLIM_CH4'\n    CALL HCO_GetPtr( HcoState, FieldName, CH4CLIM,   RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! N2O [ppb]\n    !-------------------------------\n    FieldName = 'TES_CLIM_N2O'\n    CALL HCO_GetPtr( HcoState, FieldName, N2OCLIM,   RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! Diffuse Near-IR albedo [1]\n    !-------------------------------\n    FieldName = 'MODIS_ALBDFNIR'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_ALBDFNIR, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! Diffuse visible albedo [1]\n    !-------------------------------\n    FieldName = 'MODIS_ALBDFVIS'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_ALBDFVIS, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! Direct Near-IR albedo [1]\n    !-------------------------------\n    FieldName = 'MODIS_ALBDRNIR'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_ALBDRNIR, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! Direct visible albedo [1]\n    !-------------------------------\n    FieldName = 'MODIS_ALBDRVIS'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_ALBDRVIS, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 1 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_01'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_01, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 2 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_02'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_02, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 3 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_03'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_03, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 4 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_04'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_04, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 5 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_05'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_05, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 6 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_06'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_06, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 7 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_07'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_07, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 8 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_08'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_08, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 9 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_09'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_09, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 10 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_10'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_10, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 11 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_11'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_11, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 12 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_12'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_12, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 13 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_13'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_13, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 14 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_14'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_14, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 15 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_15'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_15, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------------\n    ! MODIS emissivity, band 16 [1]\n    !-------------------------------\n    FieldName = 'MODIS_EMISSIVITY_16'\n    CALL HCO_GetPtr( HcoState, FieldName, MODIS_EMISS_16, RC  )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get pointer to ' // TRIM( FieldName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE AttachPointersFromHemco\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_mcica_clouds\n!\n! !DESCRIPTION: Subroutine INIT\\_MCICA\\_CLOUDS initializes all allocatable\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_MCICA_CLOUDS( State_Grid )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ALLOC_ERR\n    USE PARRRTM,        ONLY : NGPTLW\n    USE PARRRSW,        ONLY : NGPTSW\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !REVISION HISTORY:\n!  18 Jun 2013 - D.A. Ridley - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: AS\n\n    !=================================================================\n    ! INIT_MCICA_CLOUDS begins here!\n    !=================================================================\n\n    ALLOCATE( CLDFMCL_LW(NGPTLW,State_Grid%NX,State_Grid%NY,State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CLDFMCL_LW' )\n    CLDFMCL_LW = 0D0\n\n    ALLOCATE( CIWPMCL_LW(NGPTLW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CIWPMCL_LW' )\n    CIWPMCL_LW = 0D0\n\n    ALLOCATE( CLWPMCL_LW( NGPTLW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CLWPMCL_LW' )\n    CLWPMCL_LW = 0D0\n\n    ALLOCATE( TAUCMCL_LW( NGPTLW, State_Grid%NX, State_Grid%NY,State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'TAUCMCL_LW' )\n    TAUCMCL_LW = 0D0\n\n    ALLOCATE( CLDFMCL_SW( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CLDFMCL_SW' )\n    CLDFMCL_SW = 0D0\n\n    ALLOCATE( CIWPMCL_SW( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CIWPMCL_SW' )\n    CIWPMCL_SW = 0D0\n\n    ALLOCATE( CLWPMCL_SW( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'CLWPMCL_SW' )\n    CLWPMCL_SW = 0D0\n\n    ALLOCATE( TAUCMCL_SW( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ),&\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'TAUCMCL_SW' )\n    TAUCMCL_SW = 0D0\n\n    ALLOCATE( SSACMCL( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'SSACMCL' )\n    SSACMCL = 0D0\n\n    ALLOCATE( ASMCMCL( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'ASMCMCL' )\n    ASMCMCL = 0D0\n\n    ALLOCATE( FSFCMCL( NGPTSW, State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'FSFCMCL' )\n    FSFCMCL = 0D0\n\n    ALLOCATE( RELQMCL( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'RELQMCL' )\n    RELQMCL = 0D0\n\n    ALLOCATE( REICMCL( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'REICMCL' )\n    REICMCL = 0D0\n\n  END SUBROUTINE INIT_MCICA_CLOUDS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_rrtmg_rad_transfer\n!\n! !DESCRIPTION: Deallocates all RRTMG module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_RRTMG_Rad_Transfer( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  09 Nov 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Assume success\n    RC = GC_SUCCESS\n\n    !=================================================================\n    ! Nullify pointers to HEMCO fields\n    !=================================================================\n\n    ! Climatology\n    CH4CLIM        => NULL()\n    N2OCLIM        => NULL()\n    CFC11CLIM      => NULL()\n    CFC12CLIM      => NULL()\n    CCL4CLIM       => NULL()\n    CFC22CLIM      => NULL()\n\n    ! Albedoes\n    MODIS_ALBDFNIR => NULL()\n    MODIS_ALBDFVIS => NULL()\n    MODIS_ALBDRNIR => NULL()\n    MODIS_ALBDRVIS => NULL()\n\n    ! Emissivity\n    MODIS_EMISS_01 => NULL()\n    MODIS_EMISS_02 => NULL()\n    MODIS_EMISS_03 => NULL()\n    MODIS_EMISS_04 => NULL()\n    MODIS_EMISS_05 => NULL()\n    MODIS_EMISS_06 => NULL()\n    MODIS_EMISS_07 => NULL()\n    MODIS_EMISS_08 => NULL()\n    MODIS_EMISS_09 => NULL()\n    MODIS_EMISS_10 => NULL()\n    MODIS_EMISS_11 => NULL()\n    MODIS_EMISS_12 => NULL()\n    MODIS_EMISS_13 => NULL()\n    MODIS_EMISS_14 => NULL()\n    MODIS_EMISS_15 => NULL()\n    MODIS_EMISS_16 => NULL()\n\n    !=================================================================\n    ! Deallocate surface radiation arrays\n    !=================================================================\n    IF ( ALLOCATED( LW_UFLUX        ) ) DEALLOCATE( LW_UFLUX        )\n    IF ( ALLOCATED( LW_DFLUX        ) ) DEALLOCATE( LW_DFLUX        )\n    IF ( ALLOCATED( SW_UFLUX        ) ) DEALLOCATE( SW_UFLUX        )\n    IF ( ALLOCATED( SW_DFLUX        ) ) DEALLOCATE( SW_DFLUX        )\n    IF ( ALLOCATED( LW_UFLUXC       ) ) DEALLOCATE( LW_UFLUXC       )\n    IF ( ALLOCATED( LW_DFLUXC       ) ) DEALLOCATE( LW_DFLUXC       )\n    IF ( ALLOCATED( SW_UFLUXC       ) ) DEALLOCATE( SW_UFLUXC       )\n    IF ( ALLOCATED( SW_DFLUXC       ) ) DEALLOCATE( SW_DFLUXC       )\n\n    !=================================================================\n    ! Deallocate MCICA cloud arrays\n    !=================================================================\n    IF ( ALLOCATED( CLDFMCL_LW     ) ) DEALLOCATE( CLDFMCL_LW       )\n    IF ( ALLOCATED( CIWPMCL_LW     ) ) DEALLOCATE( CIWPMCL_LW       )\n    IF ( ALLOCATED( CLWPMCL_LW     ) ) DEALLOCATE( CLWPMCL_LW       )\n    IF ( ALLOCATED( TAUCMCL_LW     ) ) DEALLOCATE( TAUCMCL_LW       )\n    IF ( ALLOCATED( CLDFMCL_SW     ) ) DEALLOCATE( CLDFMCL_SW       )\n    IF ( ALLOCATED( CIWPMCL_SW     ) ) DEALLOCATE( CIWPMCL_SW       )\n    IF ( ALLOCATED( CLWPMCL_SW     ) ) DEALLOCATE( CLWPMCL_SW       )\n    IF ( ALLOCATED( TAUCMCL_SW     ) ) DEALLOCATE( TAUCMCL_SW       )\n    IF ( ALLOCATED( SSACMCL        ) ) DEALLOCATE( SSACMCL          )\n    IF ( ALLOCATED( ASMCMCL        ) ) DEALLOCATE( ASMCMCL          )\n    IF ( ALLOCATED( FSFCMCL        ) ) DEALLOCATE( FSFCMCL          )\n    IF ( ALLOCATED( REICMCL        ) ) DEALLOCATE( REICMCL          )\n    IF ( ALLOCATED( RELQMCL        ) ) DEALLOCATE( RELQMCL          )\n\n  END SUBROUTINE Cleanup_RRTMG_Rad_Transfer\n!EOC\nEND MODULE RRTMG_RAD_TRANSFER_MOD\n#endif\n"
  },
  {
    "path": "GeosCore/seasalt_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: seasalt_mod.F90\n!\n! !DESCRIPTION: Contains arrays and routines for performing either a coupled\n!  chemistry/aerosol run or an offline seasalt aerosol simulation.\n!  Original code taken from Mian Chin's GOCART model and modified accordingly.\n!  (bec, rjp, bmy, 6/22/00, 11/23/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE SeaSalt_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n  USE PhysConstants\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: ChemSeaSalt\n  PUBLIC  :: Cleanup_SeaSalt\n  PUBLIC  :: Init_SeaSalt\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Wet_Settling\n  PRIVATE :: Chem_MOPO\n  PRIVATE :: Chem_MOPI\n#ifdef APM\n  PRIVATE :: Wet_SettlingBin\n#endif\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC  :: SALT_V\n  PUBLIC  :: DMID\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Chin, M., P. Ginoux, S. Kinne, B. Holben, B. Duncan, R. Martin,\n!        J. Logan, A. Higurashi, and T. Nakajima, \"Tropospheric aerosol\n!        optical thickness from the GOCART model and comparisons with\n!        satellite and sunphotometers measurements\", J. Atmos Sci., 2001.\n!  (2 ) Gong, S., L. Barrie, and J.-P. Blanchet, \"Modeling sea-salt\n!        aerosols in the atmosphere. 1. Model development\", J. Geophys. Res.,\n!        v. 102, 3805-3818, 1997.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  !========================================================================\n  ! Module Variables:\n  !\n  ! NSALT    : # of sea salt tracers\n  ! NR_MAX   : Number of size bins\n  ! SMALLNUM : A small number (epsilon) for numerical cutoff\n  ! SS_DEN   : Sea salt density [kg/m3]\n  ! IDDEP    : Drydep index array for sea salt tracers\n  ! REDGE    : Array for edges of seasalt radius bins\n  ! DMID     : Array for centers of seasalt radius bins\n  ! SRC      : Array for baseline seasalt emission/bin [kg/m2]\n  ! SRC_N    : Array for baseline seasalt emission/bin [#/m2]\n  ! ALK_EMIS : Array for alkalinity [kg]\n  ! N_DENS   : Number density of seasalt emissions [#/m3]\n  ! SALT_V   : Log-normal volum size distribution for sea salt\n  !\n  ! Note: sea salt emissions are now calculated in HEMCO following the\n  ! original code (hcox_seasalt_mod.F). This has made some of the arrays\n  ! obsolete. Alkalinity and number density are now calculated in\n  ! sulfate_mod.F through the HEMCO interface (ckeller, 11/03/2014).\n  !=======================================================================-\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER,   PARAMETER  :: NSALT    = 6           ! # of seasalt species\n  INTEGER,   PARAMETER  :: NR_MAX   = 200         ! # of bins to use\n  REAL(fp),  PARAMETER  :: SMALLNUM = 1e-20_fp    ! Small number\n#ifdef APM\n  INTEGER,   PARAMETER  :: NSALTBIN = 20          ! # of bins for APM\n#endif\n!\n! !DEFINED PARAMETERS:\n!\n!%%% Comment out unused code\n!%%%!  REAL(fp),  PARAMETER  :: C1      =  0.7674_fp\n!%%%!  REAL(fp),  PARAMETER  :: C2      =  3.079_fp\n!%%%!  REAL(fp),  PARAMETER  :: C3      =  2.573e-11_fp\n!%%%!  REAL(fp),  PARAMETER  :: C4      = -1.424_fp\n\n  ! Parameters for polynomial coefficients to derive seawater\n  ! density. From Tang et al. (1997) (jaegle 5/11/11)\n  REAL(fp),  PARAMETER  :: A1      =  7.93e-3_fp\n  REAL(fp),  PARAMETER  :: A2      = -4.28e-5_fp\n  REAL(fp),  PARAMETER  :: A3      =  2.52e-6_fp\n  REAL(fp),  PARAMETER  :: A4      = -2.35e-8_fp\n\n  ! increment of radius for integration of settling velocity (um)\n  REAL(fp),  PARAMETER  :: DR      =  5.0e-2_fp\n\n  ! parameter for convergence\n  REAL(f8),  PARAMETER  :: EPSI    =  1.0e-4_f8\n\n  ! parameters for assumed size distribution of acc and coarse mode\n  ! sea salt aerosols (jaegle 5/11/11)\n  ! geometric dry mean diameters (microns)\n  REAL(fp),  PARAMETER  :: RG_A    =  0.085_fp\n  REAL(fp),  PARAMETER  :: RG_C    =  0.4_fp\n\n  ! sigma of the size distribution\n  REAL(fp),  PARAMETER  :: SIG_A   = 1.5_fp\n  REAL(fp),  PARAMETER  :: SIG_C   = 1.8_fp\n!\n! !PRIVATE TYPES:\n!\n  ! Scalars\n  INTEGER               :: NR\n  INTEGER               :: id_MOPO,     id_MOPI\n  INTEGER               :: id_SALA,     id_SALC\n  INTEGER               :: id_SALACL,   id_SALCCL\n  INTEGER               :: id_SALAAL,   id_SALCAL\n  REAL(fp)              :: REFF_accum,  REFF_coarse\n\n  ! Arrays\n  INTEGER               :: IDDEP (NSALT)\n  REAL(fp)              :: SS_DEN(NSALT)\n  REAL(fp), ALLOCATABLE :: SALT_V(:    )\n  REAL(fp), ALLOCATABLE :: DMID  (:    )\n  REAL(fp), ALLOCATABLE :: OCCONV(:,:,:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chemseasalt\n!\n! !DESCRIPTION: Subroutine CHEMSEASALT is the interface between the GEOS-CHEM\n!  main program and the seasalt chemistry routines that mostly calculates\n!  seasalt dry deposition (rjp, bmy, 1/24/02, 5/23/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ChemSeaSalt( Input_Opt,  State_Chm, State_Diag,                 &\n                          State_Grid, State_Met, RC                         )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,      ONLY : Debug_Msg\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n#ifdef APM\n    USE APM_Init_Mod,   ONLY : APMIDS\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Dry deposition is now handled in mixing_mod.F90.  We have removed\n!  the calls to the DRY_DEPOSITION routine here. (bmy, 6/12/15)\n\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n#if   defined( APM )\n    INTEGER           :: N, Seasalt_ids(NSALTBIN)\n#endif\n\n    !========================================================================\n    ! CHEMSEASALT begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n\n    !========================================================================\n    ! Accumulation mode (SALA) wet settling\n    !========================================================================\n    IF ( id_SALA > 0 ) THEN\n       CALL Wet_Settling(                                                    &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            spcId      = id_SALA,                                            &\n            N          = 1,                                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Wet_Settling\" for species SALA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSEASALT: WET_SET, Accum' )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Coarse mode (SALC) wet settling\n    !========================================================================\n    IF ( id_SALC > 0 ) THEN\n       CALL Wet_Settling(                                                    &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            spcId      = id_SALC,                                            &\n            N          = 2,                                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Wet_Settling\" for species SALC!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSEASALT: WET_SET, Coarse' )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Accumulation mode chloride (SALACL) wet settling\n    !========================================================================\n    IF ( id_SALACL > 0 ) THEN\n       CALL Wet_Settling(                                                    &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            spcId      = id_SALACL,                                          &\n            N          = 3,                                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Wet_Settling\" for species SALACL!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSEASALT: WET_SET, Accum Cl' )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Coarse mode chloride (SALCCL) wet settling\n    !========================================================================\n    IF ( id_SALCCL > 0 ) THEN\n       CALL Wet_Settling(                                                    &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            spcId      = id_SALCCL,                                          &\n            N          = 4,                                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Wet_Settling\" for species SALACL!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSEASALT: WET_SET, Coarse Cl' )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Accumulation mode alkalinity (SALAAL) wet settling\n    !========================================================================\n    IF ( id_SALAAL > 0 ) THEN\n       CALL Wet_Settling(                                                    &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            spcId      = id_SALAAL,                                          &\n            N          = 5,                                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Wet_Settling\" for species SALAAL!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSEASALT: WET_SET, Accum Al' )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Coarse mode Alkalinity (SALCAL) wet settling\n    !========================================================================\n    IF ( id_SALCAL > 0 ) THEN\n       CALL Wet_Settling(                                                    &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            spcId      = id_SALCAL,                                          &\n            N          = 6,                                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Wet_Settling\" for species SALAAL!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSEASALT: WET_SET, Coarse Al' )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Do chemistry for marine organic aerosol tracers\n    !========================================================================\n    IF ( Input_Opt%LMPOA ) THEN\n\n       ! Chemistry for hydrophobic MOA\n       IF ( id_MOPO > 0 ) THEN\n          CALL Chem_MOPO(                                                    &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Diag = State_Diag,                                      &\n               State_Grid = State_Grid,                                      &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Chem_MOPO\"!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSEASALT: a CHEM_MOPO' )\n          ENDIF\n       ENDIF\n\n       ! Chemistry for hydrophilic MOA\n       IF ( id_MOPI > 0 ) THEN\n          CALL Chem_MOPI(                                                    &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Diag = State_Diag,                                      &\n               State_Grid = State_Grid,                                      &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Chem_MOPO\"!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSEASALT: a CHEM_MOPI' )\n          ENDIF\n       ENDIF\n\n    ENDIF\n\n#ifdef APM\n    !----------------------------------------\n    ! Sea salt emissions for extra APM bins\n    !----------------------------------------\n\n    DO N = 1, NSALTBIN\n       Seasalt_Ids(N) = APMIDS%id_SEABIN1 + N - 1\n    ENDDO\n    CALL SRCSALTBIN( Seasalt_Ids, State_Grid, State_Met, State_Chm )\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### EMISSEASALT: Bin' )\n    ENDIF\n\n    !----------------------------------------\n    ! APM microphysics\n    !----------------------------------------\n    CALL Wet_SettlingBin( Input_Opt  = Input_Opt,                             &\n                          State_Chm  = State_Chm,                             &\n                          State_Diag = State_Diag,                            &\n                          State_Grid = State_Grid,                            &\n                          State_Met  = State_Met,                             &\n                          RC         = RC                                    )\n#endif\n\n  END SUBROUTINE ChemSeaSalt\n!EOP\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: wet_settling\n!\n! !DESCRIPTION: Subroutine WET\\_SETTLING performs wet settling of sea salt.\n!  (bec, rjp, bmy, 4/20/04, 6/11/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Wet_Settling( Input_Opt, State_Chm, State_Diag, State_Grid,     &\n                           State_Met, spcId,     N,          RC             )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,      ONLY : Debug_Msg\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Time_Mod,       ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: spcId       ! Sea salt species Id\n    INTEGER,        INTENT(IN)    :: N           ! odd=accum; even=coarse\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success/failure\n!\n! !REMARKS:\n!  TODO: Declare State_Chm as INTENT(INOUT) and make TC a local pointer\n!  to State_Chm%SPECIES.  Pass in the ID field to index State_Chm.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I,           J,          L\n    INTEGER            :: S,           ID\n    REAL(fp)           :: DELZ,        DELZ1,      REFF\n    REAL(fp)           :: DEN,         P,          DP\n    REAL(fp)           :: PDP,         TEMP,       CONST\n    REAL(fp)           :: SLIP,        VISC,       FAC1\n    REAL(fp)           :: FAC2,        FLUX,       AREA_CM2\n    REAL(fp)           :: RHB,         SW,         R0\n    REAL(fp)           :: R1,          SALT_MASS,  SALT_MASS_TOTAL\n    REAL(fp)           :: VTS_WEIGHT,  DMIDW,      WTP\n    REAL(fp)           :: RHO,         RHO1,       RUM\n    REAL(fp)           :: RWET,        RATIO_R,    TOT1\n    REAL(fp)           :: TOT2,        DTCHEM\n\n    ! Arrays\n    REAL(fp)           :: VTS(State_Grid%NZ)\n    REAL(fp)           :: TC0(State_Grid%NZ)\n\n    ! Pointers\n    REAL(fp), POINTER  :: TC(:,:,:)\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp)           :: FOUR_OVER_THREEptSEVEN = 4.0_fp / 3.7_fp\n    REAL(fp)           :: ONE_THIRD              = 1.0_fp / 3.0_fp\n\n    !========================================================================\n    ! WET_SETTLING begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    DTCHEM   = GET_TS_CHEM()    ! Chemistry timestep [s]\n    DEN      = SS_DEN( N )      ! Sea salt density [kg/m3]\n    ErrMsg   = ''\n    ThisLoc  = ' -> at WET_SETTLING (in module GeosCore/seasalt_mod.F90)'\n\n    ! Make sure NR (computed in Init_SeaSalt) is not too large\n    IF ( NR > NR_MAX ) THEN\n       ErrMsg = 'Too many bins!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Pick the proper parameters for accum or coarse mode\n    IF ( MOD( N, 2 ) == 0 ) THEN\n       R0   = Input_Opt%SALC_REDGE_um(1)  ! Lower edge of coarse mode [um]\n       R1   = Input_Opt%SALC_REDGE_um(2)  ! Upper edge of coarse mode [um]\n       REFF = REFF_coarse                 ! Eff radius of coarse mode [m]\n    ELSE\n       R0   = Input_Opt%SALA_REDGE_um(1)  ! Lower edge of  accum mode [um]\n       R1   = Input_Opt%SALA_REDGE_um(2)  ! Upper edge of  accum mode [um]\n       REFF = REFF_accum                  ! Eff radius of accum mode  [m]\n    ENDIF\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG('SEASALT: STARTING WET_SETTLING')\n    ENDIF\n\n    ! Point to the species concentration array in State_Chm%Species\n    TC => State_Chm%Species(spcId)%Conc\n    \n!%%% Comment out unused code (not sure who disabled this)\n!%%%    ! Sea salt radius [cm]\n!%%%    !RCM  = REFF * 100e+0_fp\n!%%%    ! The radius used in the Gerber formulation for hygroscopic growth\n!%%%    ! of sea salt should be in microns (RUM) instead of cm (RCM).\n!$$$    ! Replace RCM with RUM (jaegle 5/11/11)\n!%%%    !RUM  = REFF * 1d6\n!%%%\n!%%%    ! Exponential factors\n!%%%    !FAC1 = C1 * ( RCM**C2 )\n!%%%    !FAC2 = C3 * ( RCM**C4 )\n!%%%    ! Replace with RUM (jaegle 5/11/11)\n!%%%    !FAC1 = C1 * ( RUM**C2 )\n!%%%    !FAC2 = C3 * ( RUM**C4 )\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,        J,     L,     VTS,             P               )&\n    !$OMP PRIVATE( TEMP,     RHB,   RWET,  RATIO_R,         RHO             )&\n    !$OMP PRIVATE( DP,       PDP,   CONST, SLIP,            VISC            )&\n    !$OMP PRIVATE( TC0,      DELZ,  DELZ1, TOT1,            TOT2            )&\n    !$OMP PRIVATE( AREA_CM2, FLUX,  ID,    SALT_MASS_TOTAL, VTS_WEIGHT      )&\n    !$OMP PRIVATE( DMIDW,    RHO1,  WTP,   SALT_MASS,       S               )&\n    !$OMP COLLAPSE( 2                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 4                                              )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero PRIVATE loop variables\n       ! (NOTE: Other variables are initialized within the L loop)\n       AREA_CM2        = 0.0_fp\n       FLUX            = 0.0_fp\n       RWET            = 0.0_fp\n       TOT1            = 0.0_fp\n       TOT2            = 0.0_fp\n       TC0             = 0.0_fp\n       VTS             = 0.0_fp\n       DMIDW           = 0.0_fp\n       SALT_MASS       = 0.0_fp\n       SALT_MASS_TOTAL = 0.0_fp\n\n       ! Loop over levels\n       DO L = 1, State_Grid%NZ\n\n          ! Pressure at center of the level [kPa]\n          P       = State_Met%PMID(I,J,L) * 0.1_fp\n\n          ! Temperature [K]\n          TEMP    = State_Met%T(I,J,L)\n\n          ! Cap RH at 0.99\n          RHB     = MIN( 0.99_fp, State_Met%RH(I,J,L) * 1.0e-2_fp )\n\n          ! Safety check (phs, 5/1/08)\n          RHB     = MAX( RHB, 1.0e-30_fp )\n\n          ! Aerosol growth with relative humidity in radius [m]\n          ! (Gerber, 1985)\n          !RWET = 0.01e+0_fp*(FAC1/(FAC2-DLOG(RHB))+RCM**3.e+0_fp)**0.33e+0_fp\n          ! Fix bugs in the Gerber formula:  a log10 (instead of ln)\n          ! should be used and the dry radius should be expressed in\n          ! micrometers (instead of cm) also add more significant\n          ! digits to the exponent (should be 1/3) (jaegle 5/11/11)\n          !RWET = 1d-6*(FAC1/(FAC2-LOG10(RHB))+RUM**3.e+0_fp)**0.33333e+0_fp\n\n          ! Use equation 5 in Lewis and Schwartz (2006) for sea\n          ! salt growth (bec, jaegle 5/11/11)\n          RWET = REFF * FOUR_OVER_THREEptSEVEN                                &\n               * ( ( 2.0_fp - RHB ) / ( 1.0_fp - RHB ) )**ONE_THIRD\n\n          ! Ratio dry over wet radii at the cubic power\n          RATIO_R = ( REFF / RWET )**3.0_fp\n\n          ! Density of the wet aerosol (kg/m3)\n          RHO = RATIO_R * DEN + ( 1.0_fp - RATIO_R ) * 1000.0_fp\n\n          ! Above density calculation is chemically unsound because\n          ! it ignores chemical solvation.   Iteratively solve Tang et al.,\n          ! 1997 equation 5 to calculate density of wet aerosol (kg/m3)\n          ! (bec, jaegle 5/11/11)\n          RATIO_R = ( REFF / RWET )\n\n          ! Assume an initial density of 1000 kg/m3\n          RHO  = 1000.0_f8\n          WTP  = 0.0_f8\n          RHO1 = 0.0_f8\n          DO WHILE ( ABS( RHO1 - RHO ) .gt. EPSI )\n\n             ! First calculate weight percent of aerosol (kg_RH=0.8/kg_wet)\n             WTP  = 100.0_f8 * DEN/RHO * ( RATIO_R * RATIO_R * RATIO_R )\n\n             ! Then calculate density of wet aerosol using equation 5\n             ! in Tang et al., 1997 [kg/m3]\n             ! NOTE: Can rewrite this polynomial more efficiently!!\n             RHO1 = ( 0.9971_f8                                              &\n                      + ( A1 * WTP                   )                       &\n                      + ( A2 * WTP * WTP             )                       &\n                      + ( A3 * WTP * WTP * WTP       )                       &\n                      + ( A4 * WTP * WTP * WTP * WTP )                       &\n                    ) * 1000.0_f8\n\n             ! Now calculate new weight percent using above density\n             WTP  = 100.0_f8 * DEN/RHO1 * ( RATIO_R * RATIO_R * RATIO_R )\n\n             ! Now recalculate new wet density [kg/m3]\n             ! NOTE: can rewrite this polynomial more efficiently!!\n             RHO  = ( 0.9971_f8                                              &\n                      + ( A1 * WTP                   )                       &\n                      + ( A2 * WTP * WTP             )                       &\n                      + ( A3 * WTP * WTP * WTP       )                       &\n                      + ( A4 * WTP * WTP * WTP * WTP )                       &\n                    ) * 1000.0_f8\n          ENDDO\n\n          ! Dp = particle diameter [um]\n          DP      = 2.0_fp * RWET * 1.0e+6_fp\n\n          ! PdP = P * dP [hPa * um]\n          PDp     = P * Dp\n\n          ! Constant\n          CONST   = 2.0_fp * RHO * ( RWET * RWET ) * g0 / 9.0_fp\n\n          !==================================================================\n          ! NOTE: Slip correction factor calculations following\n          ! Seinfeld, pp464 which is thought to be more accurate\n          ! but more computation required. (rjp, 1/24/02)\n          !\n          ! # air molecule number density\n          ! num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n          !\n          ! # gas mean free path\n          ! lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n          !\n          ! # Slip correction\n          ! Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp &\n          !          / (2. * lamda))) / Dp\n          !\n          ! NOTE: Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n          ! which produces slip correction factore with small error\n          ! compared to the above with less computation.\n          !==================================================================\n\n          ! Slip correction factor (as function of P*dp)\n          Slip = 1.0_fp + (15.60_fp + 7.0_fp * EXP( -0.059_fp * PDp ) ) / PDp\n\n          ! Viscosity [Pa*s] of air as a function of temperature\n          VISC = 1.458e-6_fp * ( Temp**1.5_fp ) / ( Temp + 110.4_fp )\n\n          ! Settling velocity [m/s]\n          VTS(L) = CONST * Slip / VISC\n\n          !==================================================================\n          ! This settling velocity is for the mid-point of the size bin.\n          ! In the following we derive scaling factors to take into account\n          ! the strong dependence on radius of the settling velocity and the\n          ! mass size distribution:\n          !  VTS_WEIGHTED = total( M(k) x VTS(k)) / total( M(k) )\n          ! The settling velocity is a function of the radius squared\n          ! (see definition of CONST above)\n          ! so VTS(k) = VTS * (RMID(k)/RWET)^2\n          ! (jaegle 5/11/11)\n          !==================================================================\n          DMIDW           = 0.0_fp\n          SALT_MASS       = 0.0_fp\n          SALT_MASS_TOTAL = 0.0_fp\n          VTS_WEIGHT      = 0.0_fp\n\n          !------------------------------------------------------------------\n          ! Calculate mass of wet aerosol (Dw = wet diameter, D =\n          ! dry diameter): dM/dlnDw = dV/dlnDw * RHO, we assume that\n          ! the density of sea-salt doesn't change much over the size\n          ! range.  and  dV/dlnDw = dV/dlnD * dlnD/dlnDw =\n          ! dV/dlnD * Dw/D = dV/dlnD * Rwet/Rdry\n          ! Further convert to dM/dDw = dM/dln(Dw) * dln(Dw)/Dw =\n          ! dM/dln(Dw)/Dw\n          ! Overall = dM/dDw = dV/dlnD * Rwet/Rdry * RHO /Rw\n          !------------------------------------------------------------------\n          DO ID = 1, NR\n\n             IF ( DMID(ID) >= R0*2.0_fp .and. DMID(ID) <= R1*2.0_fp ) THEN\n                DMIDW           = DMID(ID)                                   &\n                                * RWET/REFF     ! wet radius [um]\n\n                SALT_MASS       = SALT_V(ID)                                 &\n                                * RWET/REFF                                  &\n                                * RHO                                        &\n                                / ( DMIDW * 0.5_fp                          )\n\n                VTS_WEIGHT      = VTS_WEIGHT                                 &\n                                + SALT_MASS * VTS(L)                         &\n                                * ( DMIDW / (RWET* 1.0e+6_fp * 2.0_fp) )**2  &\n                                * ( 2.0_fp * DR *  RWET/REFF                )\n\n                SALT_MASS_TOTAL = SALT_MASS_TOTAL                            &\n                                + SALT_MASS * ( 2.0_fp * DR *  RWET/REFF    )\n             ENDIF\n\n          ENDDO\n\n          ! Calculate the weighted settling velocity:\n          VTS(L) = VTS_WEIGHT / SALT_MASS_TOTAL\n\n       ENDDO\n\n       ! Method is to solve bidiagonal matrix which is\n       ! implicit and first order accurate in z (rjp, 1/24/02)\n\n       ! Save initial tracer concentration in column\n       TC0  = TC(I,J,:)\n\n       ! We know the boundary condition at the model top\n       L         = State_Met%MaxChemLev\n       DELZ      = State_Met%BXHEIGHT(I,J,L)\n       TC(I,J,L) = TC(I,J,L) / ( 1.e+0_fp + DTCHEM * VTS(L) / DELZ )\n\n       DO L = State_Met%MaxChemLev-1, 1, -1\n          DELZ      = State_Met%BXHEIGHT(I,J,L)\n          DELZ1     = State_Met%BXHEIGHT(I,J,L+1)\n          TC(I,J,L) = 1.0_fp / ( 1.0_fp + DTCHEM * VTS(L) / DELZ  )          &\n                    * ( TC(I,J,L) + DTCHEM * VTS(L+1) / DELZ1 * TC(I,J,L+1) )\n       ENDDO\n\n       !-----------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       ! Dry deposition flux loss [molec/cm2/s]\n       !\n       ! NOTE: Eventually think about converting this\n       ! diagnostic to more standard units [kg/m2/s]\n       !-----------------------------------------------------------\n       IF ( State_Diag%Archive_DryDepChm .OR. &\n            State_Diag%Archive_DryDep        ) THEN\n\n          ! Initialize\n          TOT1 = 0.0_fp\n          TOT2 = 0.0_fp\n\n          ! Compute column totals of TCO(:) and TC(I,J,:,N)\n          DO L = 1, State_Grid%NZ\n             TOT1 = TOT1 + TC0(L)\n             TOT2 = TOT2 + TC(I,J,L)\n          ENDDO\n\n          ! Surface area [cm2]\n          AREA_CM2 = State_Grid%Area_M2(I,J) * 1.0e+4_fp\n\n          ! Convert sea salt flux from [kg/s] to [molec/cm2/s]\n          FLUX  = ( TOT1 - TOT2 ) / DTCHEM\n          FLUX  = FLUX * AVO / ( AIRMW / ( AIRMW                             &\n                / State_Chm%SpcData(id_SALA)%Info%MW_g )                     &\n                * 1.e-3_fp ) / AREA_CM2\n\n          ! Drydep flux in chemistry only\n          S = State_Diag%Map_DryDepChm%id2slot(idDep(N))\n          IF ( S > 0 ) THEN\n             State_Diag%DryDepChm(I,J,S) = FLUX\n          ENDIF\n       ENDIF\n\n    ENDDO ! I\n    ENDDO ! J\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    TC => NULL()\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG('SEASALT: ENDING WET_SETTLING')\n    ENDIF\n\n  END SUBROUTINE Wet_Settling\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_mopo\n!\n! !DESCRIPTION: Subroutine CHEM\\_MOPO modifies hydrophobic marine organic\n!  aerosol concentrations based on the conversion to hydrophilic marine\n!  organic aerosols.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Chem_MOPO( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE Time_Mod,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  10 Jul 2015 - E. Lundgren - Initial version (based on routine Chem_OCPO)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I,      J,   L\n    REAL(fp)            :: DTCHEM, KOC, TC0, CNEW, RKT, FREQ\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: OC_LIFE = 1.15e+0_fp\n\n    !=================================================================\n    ! CHEM_MOPO begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Initialize\n    KOC       = 1.e+0_fp / ( 86400e+0_fp * OC_LIFE )\n    DTCHEM    = GET_TS_CHEM()\n    OCCONV    = 0e+0_fp\n\n    ! Set pointer to GEOS-Chem tracer array [kg]\n    Spc      => State_Chm%Species\n\n    !=================================================================\n    ! For tracers with dry deposition, the loss rate of dry dep is\n    ! combined in chem loss term.\n    !\n    ! Conversion from hydrophobic to hydrophilic:\n    ! e-folding time 1.15 days\n    ! ----------------------------------------\n    ! Use an e-folding time of 1.15 days or a convertion rate\n    ! of 1.0e-5 /sec.\n    !    Hydrophobic --> Hydrophilic,  k  = 1.0e-5\n    !=================================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, TC0, FREQ, RKT, CNEW ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initial OC [kg]\n       TC0  = Spc(id_MOPO)%Conc(I,J,L)\n\n       ! Zero drydep freq\n       ! ### NOTE: Remove this later, but need to make\n       ! ### sure we don't incur numerical diffs (bmy, 6/12/15)\n       FREQ = 0e+0_fp\n\n       ! Amount of MOPO left after chemistry and drydep [kg]\n       RKT  = ( KOC + FREQ ) * DTCHEM\n       CNEW = TC0 * EXP( -RKT )\n\n       ! Prevent underflow condition\n       IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n       ! Amount of MOPO converted to MOPI [kg/timestep]\n       OCCONV(I,J,L) = ( TC0 - CNEW ) * KOC / ( KOC + FREQ )\n\n       ! Store modified OC concentration back in tracer array\n       Spc(id_MOPO)%Conc(I,J,L) = CNEW\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE Chem_MOPO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_mopi\n!\n! !DESCRIPTION: Subroutine CHEM\\_MOPI modifies hydrophilic marine organic\n!  aerosol concentrations based on the conversion from hydrophobic marine\n!  organic aerosols.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Chem_MOPI( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  10 Jul 2015 - E. Lundgren - Initial version (based on routine Chem_OCPI)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER  :: I,   J,     L\n    REAL(fp) :: TC0, CNEW, CCV\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! CHEM_MOPI begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Set pointer to GEOS-Chem tracer array [kg]\n    Spc => State_Chm%Species\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, TC0, CCV, CNEW ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initial H-philic OC [kg]\n       TC0 = Spc(id_MOPI)%Conc(I,J,L)\n\n       ! H-philic OC that used to be H-phobic OC [kg]\n       CCV = OCCONV(I,J,L)\n\n       ! Add the amount of converted MOPO to MOPI\n       CNEW = TC0 + CCV\n\n       ! Prevent underflow condition\n       IF ( CNEW < SMALLNUM ) CNEW = 0e+0_fp\n\n       ! Store modified concentration back in tracer array [kg]\n       Spc(id_MOPI)%Conc(I,J,L) = CNEW\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=================================================================\n    ! Cleanup and quit\n    !=================================================================\n\n    ! Zero OCCONV array for next timestep\n    OCCONV = 0e+0_fp\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE Chem_MOPI\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_seasalt\n!\n! !DESCRIPTION: Subroutine INIT\\_SEASALT initializes and zeroes all module\n!  arrays (bmy, 4/26/04, 4/13/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_SeaSalt( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(IN)  :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE          :: IS_INIT = .FALSE.\n\n    ! Scalars\n    INTEGER                :: ID,  N\n    REAL(fp)               :: dEdge\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !========================================================================\n    ! INIT_SEASALT begins here!\n    !========================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Return if we have already allocated arrays\n    ! or if it is a dry-run simulation\n    IF ( IS_INIT .or. Input_Opt%DryRun ) RETURN\n\n    ! Define species indices\n    id_MOPI   = Ind_('MOPI'  )\n    id_MOPO   = Ind_('MOPO'  )\n    id_SALA   = Ind_('SALA'  )\n    id_SALC   = Ind_('SALC'  )\n    id_SALACL = Ind_('SALACL')\n    id_SALCCL = Ind_('SALCCL')\n    id_SALAAL = Ind_('SALAAL')\n    id_SALCAL = Ind_('SALCAL')\n\n    ! Initialize pointer\n    SpcInfo => NULL()\n\n    ! Allocate SALT_V module array\n    ALLOCATE( SALT_V( NR_MAX ), STAT=RC )\n    CALL GC_CheckVar( 'seasalt_mod.F90:SALT_V', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SALT_V = 0.0_fp\n\n    ! Allocate DMID module array\n    ALLOCATE( DMID( NR_MAX ), STAT=RC )\n    CALL GC_CheckVar( 'seasalt_mod.F90:DMID', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    DMID = 0.0_fp\n\n    ! Allocate OCCONV only for marine-POA simulations (bmy, 10/13/16)\n    IF ( Input_Opt%LMPOA ) THEN\n       ALLOCATE( OCCONV( State_Grid%NX, State_Grid%NY, State_Grid%NZ), &\n                 STAT=RC )\n       CALL GC_CheckVar( 'seasalt_mod.F90:OCCONV', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       OCCONV = 0.0_fp\n    ENDIF\n\n    ! Zero the IDDEP array\n    IDDEP  = 0\n    SS_DEN = 0\n\n    ! Find drydep species\n    IF ( Input_Opt%LDRYD ) THEN\n\n       ! Loop over all species\n       DO N = 1, State_Chm%nSpecies\n\n          ! Get info about this species from the species database\n          SpcInfo => State_Chm%SpcData(N)%Info\n\n          ! Assign parameters to each species\n          SELECT CASE ( TRIM( SpcInfo%Name ) )\n             CASE ( 'SALA' )\n                IDDEP(1)  = SpcInfo%DryDepID\n                SS_DEN(1) = SpcInfo%Density\n             CASE ( 'SALC' )\n                IDDEP(2)  = SpcInfo%DryDepID\n                SS_DEN(2) = SpcInfo%Density\n             CASE ( 'SALACL' )\n                IDDEP(3)  = SpcInfo%DryDepID\n                SS_DEN(3) = SpcInfo%Density\n             CASE ( 'SALCCL' )\n                IDDEP(4)  = SpcInfo%DryDepID\n                SS_DEN(4) = SpcInfo%Density\n             CASE ( 'SALAAL' )\n                IDDEP(5)  = SpcInfo%DryDepID\n                SS_DEN(5) = SpcInfo%Density\n             CASE ( 'SALCAL' )\n                IDDEP(6)  = SpcInfo%DryDepID\n                SS_DEN(6) = SpcInfo%Density\n             CASE DEFAULT\n                ! Nothing\n          END SELECT\n\n          ! Free pointer\n          SpcInfo => NULL()\n       ENDDO\n    ENDIF\n\n    !========================================================================\n    ! Compute # of bins and effective radius for accum & coarse modes\n    !========================================================================\n\n    ! Effective radii; convert [um] -> [m]\n    REFF_accum  = 0.5e-6_fp * SUM( Input_Opt%SALA_REDGE_um )\n    REFF_coarse = 0.5e-6_fp * SUM( Input_Opt%SALC_REDGE_um )\n\n    ! Number of dry radius size bins between lowest radius (accumulation\n    ! mode) and largest radii (coarse mode) (jaegle 5/11/11)\n    NR = INT( ( ( Input_Opt%SALC_REDGE_um(2) -                               &\n                  Input_Opt%SALA_REDGE_um(1)   ) / DR ) + 0.5_fp )\n\n    !========================================================================\n    ! Define the volume size distribution of sea-salt. This only has\n    ! to be done once. We assume that sea-salt is the combination of a\n    ! coarse mode and accumulation model log-normal distribution\n    ! functions (jaegle 5/11/11)\n    !========================================================================\n\n    ! Lower edge of 0th bin\n    dEdge = Input_Opt%SALA_REDGE_um(1) * 2.0_fp\n\n    ! Loop over diameters\n    DO ID = 1, NR\n\n       ! Diameter of mid-point in microns\n       dMid(ID)  = dEdge + DR\n\n       ! Calculate the dry volume size distribution as the sum of two\n       ! log-normal size distributions. The parameters for the size\n       ! distribution are based on Reid et al. and Quinn et al.\n       ! The scaling factors 13. and 0.8 for acc and coarse mode\n       ! aerosols are chosen to obtain a realistic distribution\n       ! SALT_V (D) = dV/dln(D) [um3]\n       SALT_V(ID) =                                                          &\n          PI                                                                 &\n        / 6.0_fp                                                             &\n        * ( dMid(ID)**3 )                                                    &\n        * (                                                                  &\n            13.0_fp                                                          &\n            * EXP( -0.5_fp                                                   &\n                    * ( LOG( dMid(ID) ) - LOG( RG_A * 2.0_fp ) )**2          &\n                    /   LOG( SIG_A                             )**2          &\n              )                                                              &\n            / (                                                              &\n                 SQRT( 2.0_fp * PI ) * LOG( SIG_A ) )                        &\n                 + 0.8_fp                                                    &\n                 * EXP( -0.5_fp                                              &\n                         * ( LOG( dMid(ID) ) - LOG( RG_C * 2.0_fp ) )**2     &\n                         / LOG( SIG_C )**2                                   &\n                   )                                                         &\n                 / ( SQRT( 2.0_fp * PI ) * LOG( SIG_C ) )                    &\n          )\n\n       ! update the next edge\n       dEdge = dEdge + ( DR * 2.0_fp )\n    ENDDO\n\n    !========================================================================\n    ! Reset IS_INIT flag\n    !========================================================================\n    IS_INIT =  .TRUE.\n    SpcInfo => NULL()\n\n  END SUBROUTINE Init_SeaSalt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_seasalt\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_SEASALT deallocates all module arrays\n!  (bmy, 4/26/04, 4/13/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_SeaSalt\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( ALLOCATED( SALT_V   ) ) DEALLOCATE( SALT_V   )\n    IF ( ALLOCATED( DMID     ) ) DEALLOCATE( DMID     )\n    IF ( ALLOCATED( OCCONV   ) ) DEALLOCATE( OCCONV   )\n\n  END SUBROUTINE CleanUp_SeaSalt\n!EOC\n#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: srcsaltbin\n!\n! !DESCRIPTION: SRCSALT routine for APM microphysics\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SRCSALTBIN( Spc_IDs, State_Grid, State_Met, State_Chm )\n!\n! !USES:\n!\n    USE ERROR_MOD,       ONLY : DEBUG_MSG, ERROR_STOP\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE TIME_MOD,        ONLY : GET_TS_CHEM\n    USE APM_INIT_MOD,    ONLY : DFMSALT9  ! kg m-2 s-1\n    USE APM_INIT_MOD,    ONLY : IFSSTSCALE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: Spc_IDs(:)  ! Seasalt species ids\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chm State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                :: I,     J,      L,      N\n    INTEGER                :: NTOP\n    INTEGER                :: Spc_ID\n    REAL*8                 :: W10M,  DTEMIS\n    REAL*8                 :: FEMIS, A_M2, SST, SCALESST\n    REAL*8                 :: SALT(State_Grid%NX,State_Grid%NY)\n\n    ! Increment of radius for Emission integration (um)\n    REAL*8, PARAMETER      :: BETHA = 1.d0\n\n    ! External functions\n    REAL(fp)               :: SFCWINDSQR, FOCEAN\n\n    !=================================================================\n    ! SRCSALT begins here!\n    !=================================================================\n    ! Emission timestep [s]\n    DTEMIS = GET_TS_CHEM()\n\n    DO N=1,NSALTBIN\n       SALT = 0d0\n       Spc_ID = Spc_IDs(N)\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, A_M2, W10M, FOCEAN, SFCWINDSQR, SST, SCALESST ) &\n       !$OMP SCHEDULE( DYNAMIC )\n\n       ! Loop over grid boxes\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Initialize\n          SFCWINDSQR = 0.0_fp\n          W10M       = 0.0_fp\n          SST        = 0.0_fp\n          SCALESST   = 0.0_fp\n          A_M2       = State_Grid%AREA_M2(I,J)\n\n          ! Check if over ocean assuming only gridcells that are\n          ! at least 50% water are oceans (J. Pierce, 3/10/14)\n          IF ( State_Met%IsWater(I,J) ) THEN\n             FOCEAN = 1e+0_fp - State_Met%FRCLND(I,J)\n          ELSE\n             FOCEAN = 0.e+0_fp\n          ENDIF\n\n          IF ( FOCEAN > 0.5e+0_fp ) THEN\n\n             ! Wind speed at 10 m altitude [m/s]\n             SFCWINDSQR = State_Met%U10M(I,J)**2 + State_Met%V10M(I,J)**2\n             W10M       = SQRT( SFCWINDSQR )\n\n             ! Loop over size bins\n             IF ( IFSSTSCALE==1 ) THEN\n                ! Sea surface temperature in Celsius (jaegle 5/11/11)\n                SST = State_Met%TSKIN(I,J) - 273.15d0\n\n                ! Limit SST to 0-30C range\n                ! Yu adjust per disc with Gan SST = MAX( SST , 0d0 )\n                !  ! limit to  0C\n                SST = MAX( SST, 5d0  ) ! limit to  0C\n                SST = MIN( SST, 30d0 ) ! limit to 30C\n\n                ! Empirical SST scaling factor (jaegle 5/11/11)\n                SCALESST = 0.329d0 + 0.0904d0*SST - &\n                           0.00717d0*SST**2d0 + 0.000207d0*SST**3d0\n\n                ! Update seasalt source into SALT [kg]\n                ! DFMSALT9: Sea-salt mass flux dFM (kg m-2 s-1)\n                ! at U10 = 9 m/s\n                SALT(I,J)   = SALT(I,J) + &\n                  DFMSALT9(N)*(W10M/9.0)**3.41d0 *A_M2* DTEMIS*FOCEAN*SCALESST\n             ELSE\n                ! Update seasalt source into SALT [kg]\n                ! DFMSALT9: Sea-salt mass flux dFM (kg m-2 s-1)\n                ! at U10 = 9  m/s\n                SALT(I,J)   = SALT(I,J) + &\n                  DFMSALT9(N)*(W10M/9.0)**3.41d0 *A_M2* DTEMIS*FOCEAN\n             ENDIF\n\n          ENDIF\n\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n       !=================================================================\n       ! Now partition seasalt emissions through boundary layer\n       !=================================================================\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J, NTOP, L, FEMIS ) &\n       !$OMP SCHEDULE( DYNAMIC )\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Layer in which the PBL top occurs\n          NTOP = CEILING( State_Met%PBL_TOP_L(I,J) )\n\n          ! Loop thru the boundary layer\n          DO L = 1, NTOP\n\n             ! Fraction of the PBL spanned by box (I,J,L) [unitless]\n             FEMIS = State_Met%F_OF_PBL(I,J,L)\n\n             ! Add seasalt emissions into box (I,J,L) [kg]\n             State_Chm%Species(Spc_ID)%Conc(I,J,L) = &\n                   State_Chm%Species(Spc_ID)%Conc(I,J,L) + FEMIS * SALT(I,J)\n\n          ENDDO\n\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDDO\n\n  END SUBROUTINE SRCSALTBIN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: wet_settlingbin\n!\n! !DESCRIPTION: Subroutine WET\\_SETTLINGBIN computes the dry settling of\n!  aerosol tracers. Modified for APM simulation. (G. Luo)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WET_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag, &\n                              State_Grid, State_Met, RC)\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE PRESSURE_MOD,   ONLY : GET_PCENTER\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n    USE PhysConstants\n    USE APM_INIT_MOD,   ONLY : APMIDS\n    USE APM_INIT_MOD,   ONLY : NCTSEA,NSEA\n    USE APM_INIT_MOD,   ONLY : RSALT\n    USE APM_DRIV_MOD,   ONLY : GFTOT3D,DENWET3D\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)   :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)   :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)   :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)  :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: I, J, L, N, K\n    INTEGER               :: IDTEMP1, IDTEMP2\n    REAL*8                :: DT_SETTL, DELZ,  DELZ1\n    REAL*8                :: REFF,     DEN,   CONST\n    REAL*8                :: NUM,      LAMDA, FLUX\n    REAL*8                :: AREA_CM2, TC0(State_Grid%NZ)\n    REAL*8                :: TOT1,     TOT2\n\n    ! Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n    REAL*8                :: P\n\n    ! Diameter of aerosol [um]\n    REAL*8                :: Dp\n\n    ! Pressure * DP\n    REAL*8                :: PDp\n\n    ! Temperature (K)\n    REAL*8                :: TEMP\n\n    ! Slip correction factor\n    REAL*8                :: Slip\n\n    ! Viscosity of air (Pa s)\n    REAL*8                :: Visc\n\n    ! Settling velocity of particle (m/s)\n    REAL*8                :: VTS(State_Grid%NZ)\n    REAL*8                :: MASS(State_Grid%NZ)\n    REAL*8                :: OLD(State_Grid%NZ,NCTSEA)\n\n    ! Make a pointer to the tracer array\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! WET_SETTLINGBIN begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Point to Spc\n    Spc => State_Chm%Species\n\n    ! Aerosol settling timestep [s]\n    DT_SETTL = GET_TS_CHEM()\n\n    IDTEMP1 = APMIDS%id_SEABIN1\n    IDTEMP2 = APMIDS%id_SEABIN1+NSEA-1\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, N, K, DEN, REFF, DP )       &\n    !$OMP PRIVATE( CONST, VTS, TEMP, P, PDP, SLIP )     &\n    !$OMP PRIVATE( MASS, OLD, VISC, TC0, DELZ, DELZ1  ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero private loop variables\n       CONST = 0.0_fp\n       DELZ  = 0.0_fp\n       DELZ1 = 0.0_fp\n       DEN   = 0.0_fp\n       DP    = 0.0_fp\n       MASS  = 0.0_fp\n       OLD   = 0.0_fp\n       P     = 0.0_fp\n       PDP   = 0.0_fp\n       REFF  = 0.0_fp\n       SLIP  = 0.0_fp\n       TEMP  = 0.0_fp\n       TC0   = 0.0_fp\n       VISC  = 0.0_fp\n       VTS   = 0.0_fp\n\n       DO L = 1, State_Grid%NZ\n          DO N = IDTEMP1, IDTEMP2\n             MASS(L) = MASS(L) + Spc(N)%Conc(I,J,L)\n          ENDDO\n          DO K = 1, NCTSEA\n             OLD(L,K) = Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L)\n             Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) = 0.D0\n          ENDDO\n       ENDDO\n\n       ! Loop over aerosol bins\n       DO N = 1, NSEA\n\n          DO L = 1, State_Grid%NZ\n\n             TC0(L) = Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L)\n\n             IF(TC0(L)>1.D-30)THEN\n                ! Initialize\n                DEN   = DENWET3D(I,J,L,2)*1.d3\n                REFF  = RSALT(N)*GFTOT3D(I,J,L,2)\n\n                DP    = 2D0 * REFF * 1.D6 ! Dp [um] = particle diameter\n                CONST = 2D0 * DEN * REFF**2 * g0 / 9D0\n\n                ! Get P [kPa], T [K], and P*DP\n                P    = GET_PCENTER(I,J,L) * 0.1d0\n                TEMP = State_Met%T(I,J,L)\n                PDP  = P * DP\n\n                ! Slip correction factor as function of (P*dp)\n                SLIP = 1d0 + ( 15.60d0 + 7.0d0 * EXP(-0.059d0*PDP) ) / PDP\n\n                ! Viscosity [Pa s] of air as a function of temp (K)\n                VISC = 1.458d-6 * (TEMP)**(1.5d0) / ( TEMP + 110.4d0 )\n\n                ! Settling velocity [m/s]\n                VTS(L) = CONST * SLIP / VISC\n             ELSE\n                VTS(L) = 0.D0\n             ENDIF\n\n          ENDDO\n\n          ! Method is to solve bidiagonal matrix\n          ! which is implicit and first order accurate in Z\n          L    = State_Grid%NZ\n          IF(MASS(L)>1.D-30)THEN\n             DELZ = State_Met%BXHEIGHT(I,J,L)\n             Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) = &\n             Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) / &\n                ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n\n             DO K = 1, NCTSEA\n                Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) = &\n                Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) + &\n                   OLD(L,K)*TC0(L)/MASS(L) /          &\n                   ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n             ENDDO\n          ENDIF\n\n          DO L = State_Grid%NZ-1, 1, -1\n             IF((MASS(L)*MASS(L+1))>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                   ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )    &\n                   * (Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L)      &\n                   + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTSEA\n                   Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) =  &\n                   Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) + &\n                      1.e+0_fp / ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                      * (OLD(L,K)*TC0(L)/MASS(L) &\n                      + DT_SETTL * VTS(L+1) / DELZ1 &\n                      * OLD(L+1,K)*TC0(L+1)/MASS(L+1) )\n                ENDDO\n             ELSE IF(MASS(L)>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                   ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                   * (Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) &\n                   + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTSEA\n                   Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) = &\n                   Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) + &\n                       1.e+0_fp / ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                       * OLD(L,K)*TC0(L)/MASS(L)\n                ENDDO\n             ELSE IF(MASS(L+1)>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) = 1.e+0_fp / &\n                   ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                   * (Spc(APMIDS%id_SEABIN1+N-1)%Conc(I,J,L) &\n                   + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTSEA\n                   Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) = &\n                   Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) + &\n                      1.e+0_fp / ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ ) &\n                      * DT_SETTL * VTS(L+1) / DELZ1 &\n                      * OLD(L+1,K)*TC0(L+1)/MASS(L+1)\n                ENDDO\n             ENDIF\n\n          ENDDO\n\n       ENDDO\n\n       DO L = 1, State_Grid%NZ\n       DO K = 1, NCTSEA\n          Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L) = &\n               MAX(1.d-30,Spc(APMIDS%id_CTSEA+K-1)%Conc(I,J,L))\n       ENDDO\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Clear the pointer\n    Spc => NULL()\n\n  END SUBROUTINE WET_SETTLINGBIN\n!EOC\n#endif\nEND MODULE SeaSalt_Mod\n"
  },
  {
    "path": "GeosCore/set_boundary_conditions_mod.F90",
    "content": "#ifdef MODEL_CLASSIC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_boundary_condition_mod.F90\n!\n! !DESCRIPTION: Module SET\\_BOUNDARY\\_CONDITION\\_MOD sets boundary conditions\n!  for the GEOS-Chem \"Classic\" nested-grid model.\n!\\\\\n!\\\\\n! !INTERFACE:\n\nMODULE Set_Boundary_Conditions_Mod\n!\n! !USES:\n!\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Set_Boundary_Conditions\n!\n! !REMARKS:\n!  This module was split for two purposes:\n!  (1) Avoid subroutine creep in HCO_Utilities_GC_Mod as this is\n!      purely GC code.\n!  (2) Allow for future extension if handling of boundary conditions\n!      will change (for example introducing rate-of-change)\n!\n! !REVISION HISTORY:\n!  28 Jul 2023 - H.P. Lin   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_boundary_conditions\n!\n! !DESCRIPTION: Subroutine SET\\_BOUNDARY\\_CONDITIONS sets the boundary\n!  conditions using the boundary conditions read from HEMCO for nested-grid\n!  simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE Set_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod,      ONLY : GC_SUCCESS, GC_Error\n   USE Input_Opt_Mod,    ONLY : OptInput\n   USE Species_Mod,      ONLY : Species, SpcConc\n   USE State_Chm_Mod,    ONLY : ChmState\n   USE State_Grid_Mod,   ONLY : GrdState\n   USE Time_Mod,         ONLY : TIMESTAMP_STRING\n   USE PhysConstants,    ONLY : AIRMW\n   USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n   TYPE(OptInput),   INTENT(IN)    :: Input_Opt  ! Input options\n   TYPE(GrdState),   INTENT(IN)    :: State_Grid ! Grid State\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n   TYPE(ChmState),   INTENT(INOUT) :: State_Chm  ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n   INTEGER,          INTENT(OUT)   :: RC         ! Failure or success\n!\n! !REMARKS:\n!  Split off from HEMCO code (Get\\_Boundary\\_Conditions) in order to be called\n!  more frequently throughout timesteps.\n!\n! !REVISION HISTORY:\n!  28 Jul 2023 - H.P. Lin    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   ! Scalars\n   INTEGER              :: I, J, L, N, NA     ! lon, lat, lev, spc indexes\n   LOGICAL              :: Perturb_CH4_BC\n   REAL(fp)             :: MW_g_CH4           ! CH4 molecular weight\n\n   ! Strings\n   CHARACTER(LEN=16)    :: STAMP\n   CHARACTER(LEN=255)   :: errMsg, thisLoc\n\n   !=================================================================\n   ! SET_BOUNDARY_CONDITIONS begins here!\n   !=================================================================\n\n   ! Initialize\n   RC      = GC_SUCCESS\n   errMsg  = ''\n   thisLoc = &\n ' -> at Set_Boundary_Conditions (in GeosCore/set_boundary_conditions_mod.F90)'\n\n\n   ! We only need to get boundary conditions if this is a nested-grid\n   ! simulation.  Otherwise the BoundaryCond field won't be allocated.\n   IF ( .not. State_Grid%NestedGrid ) RETURN\n\n   ! Verify that incoming State_Chm%Species units are kg/kg dry air.\n   IF ( .not. Check_Units( State_Chm, KG_SPECIES_PER_KG_DRY_AIR ) ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE(6, '(a)') 'Unit check failure: Current units are '        // &\n               UNIT_STR(State_Chm%Species(1)%Units)                       // &\n               ', expected kg/kg dry'\n       ENDIF\n       errMsg = 'Unit check failure: Cannot apply nested-grid boundary '  // &\n                'conditions if units are not kg/kg dry. Your run may '    // &\n                ' have failed previous to this error.'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n   !=========================================================================\n   ! Loop over grid boxes and apply BCs to the specified buffer zone\n   !=========================================================================\n   !$OMP PARALLEL DO                                                         &\n   !$OMP DEFAULT( SHARED                                                    )&\n   !$OMP PRIVATE( I, J, L, N                                                )&\n   !$OMP COLLAPSE( 2                                                        )\n   DO NA = 1, State_Chm%nAdvect\n   DO L  = 1, State_Grid%NZ\n\n      ! Get the species ID from the advected species ID\n      N = State_Chm%Map_Advect(NA)\n\n      ! Optionally perturb the CH4 boundary conditions\n      ! Use ppb values specified in geoschem_config.yml\n      ! Convert to [kg/kg dry] (nbalasus, 8/31/2023)\n      Perturb_CH4_BC = ( State_Chm%SpcData(N)%Info%Name == \"CH4\"  .AND. &\n                         Input_Opt%ITS_A_CARBON_SIM               .AND. &\n                         Input_Opt%DoPerturbCH4BoundaryConditions .AND. &\n                         ( .NOT. State_Chm%IsCH4BCPerturbed ) )\n      MW_g_CH4       =   State_Chm%SpcData(N)%Info%MW_g\n\n      ! First loop over all latitudes of the nested domain\n      DO J = 1, State_Grid%NY\n\n         ! West BC\n         DO I = 1, State_Grid%WestBuffer\n            IF ( Perturb_CH4_BC ) THEN\n               State_Chm%BoundaryCond(I,J,L,N) = State_Chm%BoundaryCond(I,J,L,N) + &\n                                                 Input_Opt%CH4BoundaryConditionIncreaseWest * 1.0e-9_fp * MW_g_CH4 / AIRMW\n            ENDIF\n            State_Chm%Species(N)%Conc(I,J,L) = State_Chm%BoundaryCond(I,J,L,N)\n         ENDDO\n\n         ! East BC\n         DO I = (State_Grid%NX-State_Grid%EastBuffer)+1, State_Grid%NX\n            IF ( Perturb_CH4_BC ) THEN\n               State_Chm%BoundaryCond(I,J,L,N) = State_Chm%BoundaryCond(I,J,L,N) + &\n                                                 Input_Opt%CH4BoundaryConditionIncreaseEast * 1.0e-9_fp * MW_g_CH4 / AIRMW\n            ENDIF\n            State_Chm%Species(N)%Conc(I,J,L) = State_Chm%BoundaryCond(I,J,L,N)\n         ENDDO\n\n      ENDDO\n\n      ! Then loop over the longitudes of the nested domain\n      DO I = 1+State_Grid%WestBuffer,(State_Grid%NX-State_Grid%EastBuffer)\n\n         ! South BC\n         DO J = 1, State_Grid%SouthBuffer\n            IF ( Perturb_CH4_BC ) THEN\n               State_Chm%BoundaryCond(I,J,L,N) = State_Chm%BoundaryCond(I,J,L,N) + &\n                                                 Input_Opt%CH4BoundaryConditionIncreaseSouth * 1.0e-9_fp * MW_g_CH4 / AIRMW\n            ENDIF\n            State_Chm%Species(N)%Conc(I,J,L) = State_Chm%BoundaryCond(I,J,L,N)\n         ENDDO\n\n         ! North BC\n         DO J = (State_Grid%NY-State_Grid%NorthBuffer)+1, State_Grid%NY\n            IF ( Perturb_CH4_BC ) THEN\n               State_Chm%BoundaryCond(I,J,L,N) = State_Chm%BoundaryCond(I,J,L,N) + &\n                                                 Input_Opt%CH4BoundaryConditionIncreaseNorth * 1.0e-9_fp * MW_g_CH4 / AIRMW\n            ENDIF\n            State_Chm%Species(N)%Conc(I,J,L) = State_Chm%BoundaryCond(I,J,L,N)\n         ENDDO\n      ENDDO\n\n   ENDDO\n   ENDDO\n   !OMP END PARALLEL DO\n\n   ! If the boundary conditions have already been perturbed, don't do it again\n   IF ( Perturb_CH4_BC ) THEN\n      State_Chm%IsCH4BCPerturbed = .TRUE.\n   ENDIF\n\n   ! Echo output. This will be at every time step,\n   ! so comment this out when unnecessary.\n   IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n      STAMP = TIMESTAMP_STRING()\n      WRITE( 6, * ) 'SET_BOUNDARY_CONDITIONS: Done applying BCs at ', STAMP\n   ENDIF\n\n END SUBROUTINE Set_Boundary_Conditions\n!EOC\nEND MODULE Set_Boundary_Conditions_Mod\n#endif\n"
  },
  {
    "path": "GeosCore/set_global_ch4_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: set_global_ch4_mod.F90\n!\n! !DESCRIPTION: Module SET\\_GLOBAL\\_CH4 contains variables and routines for\n!  reading and applying surface CH4 concentrations from NOAA GMD data\n!  (provided by Lee Murray)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Set_Global_CH4_Mod\n!\n! !USES:\n!\n  USE PRECISION_MOD\n\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Set_CH4\n!\n! !REVISION HISTORY:\n!  18 Jan 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_ch4\n!\n! !DESCRIPTION: Subroutine SET\\_CH4 copies monthly mean surface CH4 from\n!  HEMCO and applies it to CH4 concentrations in State\\_Chm%Species.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_CH4( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                      State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE HCO_Error_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE PhysConstants,     ONLY : AIRMW\n    USE State_Chm_Mod,     ONLY : ChmState, Ind_\n    USE State_Diag_Mod,    ONLY : DgnState\n    USE State_Grid_Mod,    ONLY : GrdState\n    USE State_Met_Mod,     ONLY : MetState\n    USE TIME_MOD,          ONLY : GET_TS_DYN\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC        ! Success or failure?\n!\n! !REMARKS:\n!  Lee Murray wrote:\n!   The monthly mean surface methane mixing ratios used here were spatially\n!   interpolated from NOAA GLOBALVIEW discrete monthly mean flask data using\n!   ordinary kriging for 1983-2016 (ch4_flask_surface_2017-07-28.tar.gz).\n!   Surface mixing ratios are extended back to 1979 and forward to 2020 via\n!   linear extrapolation of the local 1983-1990 and 2011-2016 trends,\n!   respectively.\n!\n! !REVISION HISTORY:\n!  18 Jan 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I, J, L, PBL_TOP, id_CH4, DT\n    INTEGER             :: previous_units\n    REAL(fp)            :: CH4, dCH4\n    LOGICAL             :: FOUND\n\n    ! Arrays\n    INTEGER, TARGET     :: mapping(1)\n\n    ! Pointers\n    INTEGER, POINTER    :: theMapping(:)\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ErrMsg\n    CHARACTER(LEN=255)  :: ThisLoc\n\n#if defined( MODEL_GEOS )\n    REAL(hp), ALLOCATABLE :: GEOS_CH4(:,:,:)\n    REAL(hp), ALLOCATABLE :: CH4_OFFSET(:,:)\n    LOGICAL               :: USE_GEOS_CH4\n#endif\n    LOGICAL, SAVE         :: FIRST = .TRUE.\n    CHARACTER(LEN=255)    :: SRCNAME\n\n    !=================================================================\n    ! SET_CH4 begins here!\n    !=================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at SET_CH4 (in module GeosCore/set_global_ch4_mod.F90)'\n\n    ! Skip unless we are doing a fullchem simulation\n    IF ( .not. Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       RETURN\n    ENDIF\n\n    ! Get species ID\n    id_CH4     = Ind_( 'CH4' )\n    mapping(1) = id_CH4\n    theMapping => mapping\n\n    ! Get dynamic timestep\n    DT = GET_TS_DYN()\n\n    FOUND   = .FALSE.\n    SRCNAME = ''\n#if defined( MODEL_GEOS )\n    ! Check for CH4 offset first\n    ALLOCATE(CH4_OFFSET(State_Grid%NX,State_Grid%NY))\n    CH4_OFFSET(:,:) = 0.0\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'CH4_OFFSET', &\n                         CH4_OFFSET, RC, FOUND=FOUND )\n    IF ( .NOT. FOUND ) CH4_OFFSET = 0.0\n    ! Now get CH4 concentrations\n    ALLOCATE(GEOS_CH4(State_Grid%NX,State_Grid%NY,State_Grid%NZ))\n    GEOS_CH4(:,:,:) = 0.0\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GEOS_CH4', &\n                         GEOS_CH4, RC, FOUND=FOUND )\n    USE_GEOS_CH4 = FOUND\n    IF ( FOUND ) SRCNAME = 'GEOS_CH4'\n#endif\n\n    ! Use the NOAA spatially resolved data where available\n    IF (.NOT. FOUND ) THEN\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'NOAA_GMD_CH4', &\n                            State_Chm%SFC_CH4, RC, FOUND=FOUND )\n       IF ( FOUND ) SRCNAME = 'NOAA_GMD_CH4'\n    ENDIF\n    IF (.NOT. FOUND ) THEN\n       FOUND = .TRUE.\n       ! Use the CMIP6 data from Meinshausen et al. 2017, GMD\n       ! https://doi.org/10.5194/gmd-10-2057-2017a\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'CMIP6_Sfc_CH4', &\n                            State_Chm%SFC_CH4, RC, FOUND=FOUND )\n       IF ( FOUND ) SRCNAME = 'CMIPS_Sfc_CH4'\n    ENDIF\n    IF (.NOT. FOUND ) THEN\n       FOUND = .TRUE.\n       ! Use the CMIP6 data boundary conditions processed for GCAP 2.0\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'SfcVMR_CH4', &\n                            State_Chm%SFC_CH4, RC, FOUND=FOUND )\n       IF ( FOUND ) SRCNAME = 'SfcVMR_CH4'\n    ENDIF\n    IF (.NOT. FOUND ) THEN\n       ErrMsg = 'Cannot retrieve data for NOAA_GMD_CH4, CMIP6_Sfc_CH4, or ' // &\n                'SfcVMR_CH4 from HEMCO! Make sure the data source ' // &\n                'corresponds to your emissions year in HEMCO_Config.rc ' // &\n                '(NOAA GMD for 1978 and later; else CMIP6). To use the last year ' // &\n                'available you can change the time cycle flag in HEMCO_Config.rc for ' // &\n                'the inventory from RY to CY.'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Convert species to [v/v dry] aka [mol/mol dry] for this routine\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = theMapping,                                        &\n         new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,                   &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Add info to logfile\n    IF ( FOUND .AND. Input_Opt%amIRoot .AND. FIRST ) THEN\n       WRITE(*,*) 'Getting CH4 boundary conditions in GEOS-Chem from :'//TRIM(SRCNAME)\n       FIRST = .FALSE.\n    ENDIF \n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error at start of \"SET_CH4\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !$OMP PARALLEL DO                            &\n    !$OMP DEFAULT( SHARED )                      &\n    !$OMP PRIVATE( I, J, L, PBL_TOP, CH4, dCH4 ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Top level of boundary layer at (I,J)\n       PBL_TOP = CEILING( State_Met%PBL_TOP_L(I,J) )\n\n       ! Surface CH4 from HEMCO is in units [ppbv], convert to [v/v dry]\n       CH4 = State_Chm%SFC_CH4(I,J) * 1e-9_fp\n\n       ! Zero diagnostics\n       IF ( State_Diag%Archive_CH4pseudoFlux ) THEN\n          State_Diag%CH4pseudoFlux(I,J) = 0.0_fp\n       ENDIF\n\n       ! Prescribe methane concentrations throughout PBL\n       DO L=1,PBL_TOP\n\n       ! In GEOS, we may be getting CH4 from a 3D field \n#if defined( MODEL_GEOS )\n          IF ( USE_GEOS_CH4 ) CH4 = GEOS_CH4(I,J,L) + CH4_OFFSET(I,J)\n#endif\n\n          ! Compute implied CH4 flux if diagnostic is on\n          IF ( State_Diag%Archive_CH4pseudoFlux ) THEN\n             ! v/v dry\n             dCH4 = CH4 - State_Chm%Species(id_CH4)%Conc(I,J,L)\n             ! Convert to kg/kg dry\n             dCH4 = dCH4 * State_Chm%SpcData(id_CH4)%Info%MW_g / AIRMW\n             ! Convert to kg/m2/s\n             dCH4 = dCH4 * State_Met%AD(I,J,L) / State_Met%AREA_M2(I,J) / DT\n             ! Accumulate statistics\n             State_Diag%CH4pseudoFlux(I,J) = &\n                State_Diag%CH4pseudoFlux(I,J) + dCH4\n          ENDIF\n\n          State_Chm%Species(id_CH4)%Conc(I,J,L) = CH4\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Convert species back to original unit\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = theMapping,                                            &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    ! Free pointer\n    theMapping => NULL()\n\n#if defined( MODEL_GEOS )\n    ! Cleanup\n    IF(ALLOCATED(GEOS_CH4))   DEALLOCATE(GEOS_CH4)\n    IF(ALLOCATED(CH4_OFFSET)) DEALLOCATE(CH4_OFFSET)\n#endif\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error at end of \"SET_CH4\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Set_CH4\n!EOC\nEND MODULE Set_Global_CH4_Mod\n"
  },
  {
    "path": "GeosCore/sfcvmr_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: sfcvmr_mod.F90\n!\n! !DESCRIPTION: Module sfcvmr\\_mod.F90 is a simple module which forces\n!  surface concentrations of relevant species to values read from an external\n!  file (via HEMCO). The names of the corresponding HEMCO configuration file\n!  entries need to be composed of the below defined prefix and the species\n!  name, e.g.:\n!\n! * SfcVMR_CH3Cl  $ROOT/CMIP6/v2019-09//LIVE/CMIP6_GHG_surface_VMR_1750_2014_for_CH3Cl.nc CH3Cl   1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n! * SfcVMR_CH2Cl2 $ROOT/CMIP6/v2019-09//LIVE/CMIP6_GHG_surface_VMR_1750_2014_for_CH2Cl2.nc CH2Cl2 1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n! * SfcVMR_CHCl3  $ROOT/CMIP6/v2019-09//LIVE/CMIP6_GHG_surface_VMR_1750_2014_for_CHCl3.nc CHCl3   1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n! * SfcVMR_CH3Br  /LIVE/CMIP6_GHG_surface_VMR_1750_2014_for_CH3Br.nc CH3Br   1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n!\n!  The concentrations in the file are expected to be in units of ppbv.\n!  It is also possible to apply scale factors to these fields, e.g. (to scale surface concentrations by 2):\n!  * SfcVMR_CH3Cl  $ROOT/CMIP6/v2019-09//LIVE/CMIP6_GHG_surface_VMR_1750_2014_for_CH3Cl.nc CH3Cl   1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n\n!  ...\n!  # Scale the CMIP6 values in pptv to ppbv\n!  802 SfcVMR_ScaleFactor 0.001 - - - xy unitless 1\n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE SfcVmr_Mod\n!\n! !USES:\n!\n  USE PhysConstants       ! Physical constants\n  USE Precision_Mod       ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: FixSfcVmr_Run\n  PUBLIC  :: FixSfcVmr_Final\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: FixSfcVmr_Init\n!\n! !REVISION HISTORY:\n!  24 Dec 2016 - S. D. Eastham - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Linked list type\n  TYPE :: SfcMrObj\n     CHARACTER(LEN=63)         :: FldName        ! Field name\n     INTEGER                   :: SpcID          ! ID in species database\n     TYPE(SfcMrObj), POINTER   :: Next           ! Next element in list\n  END TYPE SfcMrObj\n\n  ! Heat of linked list with SfcMrObj objects\n  TYPE(SfcMrObj),    POINTER   :: SfcMrHead => NULL()\n\n  ! Field prefix\n  CHARACTER(LEN=63), PARAMETER :: Prefix = 'SfcVMR_'\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FixSfcVmr_Init\n!\n! !DESCRIPTION: Subroutine FixSfcVmr_Init initializes the SfcMr objects.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FixSfcVmr_Init( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Met_Mod,        ONLY : MetState\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE Species_Mod,          ONLY : Species\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetState),   INTENT(IN)     :: State_Met   ! Met state\n    TYPE(GrdState),   INTENT(IN)     :: State_Grid  ! Grid State object\n    TYPE(ChmState),   INTENT(IN)     :: State_Chm   ! Chemistry state\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt   ! Input opts\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)    :: RC          ! Failure or success\n!\n! !REVISION HISTORY:\n!  16 Aug 2019 - C. Keller   - Updated version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                 :: FOUND\n    INTEGER                 :: N\n\n    ! Strings\n    CHARACTER(LEN=63)       :: FldName\n    CHARACTER(LEN=255)      :: ErrMsg\n    CHARACTER(LEN=255)      :: ThisLoc\n\n    ! Arrays\n    REAL(fp)                :: Arr2D(State_Grid%NX,State_Grid%NY)\n\n    ! Pointers\n    TYPE(Species),  POINTER :: SpcInfo\n    TYPE(SfcMrObj), POINTER :: iSfcMrObj\n\n    !=================================================================\n    ! FIXSFCVMR_Init begins here!\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' --> at fixSfcVMR_Init (in module GeosCore/sfcvmr_mod.F90)'\n    iSfcMrObj => NULL()\n    SpcInfo   => NULL()\n\n    ! Verbose output -- only when debug printout is on (bmy, 05 Dec 2022)\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) \n 100   FORMAT('--- Initialize surface boundary conditions from input file ---')\n    ENDIF\n\n    ! Head of linked list\n    SfcMrHead => NULL()\n\n    ! Loop over all species\n    DO N = 1, State_Chm%nSpecies\n       ! Species information\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Check if file exists\n       FldName = TRIM( Prefix ) // TRIM( SpcInfo%Name )\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, TRIM(FldName), Arr2D, RC, FOUND=FOUND )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find field : ' // TRIM( FldName )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add to linked list if necessary\n       IF ( FOUND ) THEN\n\n           ! Must have positive, non-zero MW\n           IF ( SpcInfo%MW_g <= 0.0_fp ) THEN\n              ErrMsg = 'Cannot use surface boundary condition for species '  &\n                     // TRIM(SpcInfo%Name) // ' due to invalid MW!'\n              CALL GC_Error( ErrMsg, RC, ThisLoc )\n              RETURN\n           ENDIF\n\n           ! Create new object, add to list\n           ALLOCATE( iSfcMrObj, STAT=RC )\n           CALL GC_CheckVar( 'sfcvmr_mod.F90:iSfcMrObj', 0, RC )\n           IF ( RC /= GC_SUCCESS ) RETURN\n\n           iSfcMrObj%SpcID   =  N\n           iSfcMrObj%FldName =  TRIM(Prefix)//TRIM(SpcInfo%Name)\n           iSfcMrObj%Next    => SfcMrHead\n           SfcMrHead         => iSfcMrObj\n\n           ! Only write messages if debug printout is on (bmy, 05 Dec 2022)\n           IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose) THEN\n              WRITE( 6, 110 ) TRIM( SpcInfo%Name ), TRIM( iSfcMrObj%FldName )\n 110          FORMAT( '--> ', a, ' will use prescribed surface boundary ',   &\n                      'conditions from field ', a )\n           ENDIF\n\n           ! Free the pointer\n           iSfcMrObj => NULL()\n       ENDIF\n\n       ! Indicate success\n       RC = GC_SUCCESS\n    ENDDO\n\n    ! If successful, print message \n    ! Now only print when debug printout is on (bmy, 05 Dec 2022)    \n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose .AND. RC == GC_SUCCESS) THEN\n       WRITE( 6, 120 )\n 120   FORMAT( '--- Finished initializing surface boundary conditions ---' )\n    ENDIF\n\n  END SUBROUTINE fixSfcVMR_Init\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FixSfcVmr_Run\n!\n! !DESCRIPTION: Subroutine FIXSFCVMR_Run fixes the VMR of selected species\n! throughout the PBL to observed values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FixSfcVmr_Run( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Met_Mod,        ONLY : MetState\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Chm_Mod,        ONLY : Ind_\n    USE Species_Mod,          ONLY : Species, SpcConc\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE TIME_MOD,             ONLY : Get_Month\n\n    ! Needed for the new CHxCly boundary condition\n    Use PhysConstants,        ONLY : AirMW\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState),   INTENT(IN)     :: State_Grid  ! Grid State object\n    TYPE(MetState),   INTENT(IN)     :: State_Met   ! Met State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT)  :: State_Chm   ! Chemistry State object\n    TYPE(OptInput),   INTENT(INOUT)  :: Input_Opt   ! Input Options object\n    INTEGER,          INTENT(INOUT)  :: RC          ! Failure or success\n!\n! !REVISION HISTORY:\n!  27 Aug 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL,        SAVE     :: FIRST = .TRUE.\n\n    ! Scalars\n    INTEGER                  :: I, J, L, MONTH\n    INTEGER                  :: id_Spc\n\n    ! Strings\n    CHARACTER(LEN=255)       :: ErrMsg\n    CHARACTER(LEN=255)       :: ThisLoc\n\n    ! Arrays\n    REAL(fp)                 :: Arr2D(State_Grid%NX,State_Grid%NY)\n\n    ! Pointers\n    TYPE(SpcConc),  POINTER  :: Spc(:)         ! Ptr to species array\n    TYPE(Species),  POINTER  :: SpcInfo        ! Ptr to species database\n    TYPE(SfcMrObj), POINTER  :: iObj           ! Linked list\n\n    !=======================================================================\n    ! FIXSFCVMR_Run begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at FixSfcVmrRun (in module GeosCore/sfcvmr_mod.F90)'\n\n    ! Initialize object if needed\n    IF ( FIRST ) THEN\n       CALL FixSfcVMR_Init( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in routine \"FixSfcVmrInit\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       \n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n    ! Get a pointer to the species array\n    Spc => State_Chm%Species\n\n    ! Loop over all objects\n    iObj => SfcMrHead\n    DO WHILE( ASSOCIATED( iObj ) )\n\n       ! Get concentration for this species\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, Trim(iObj%FldName), Arr2D, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not get surface VMR for species: '//               &\n                   TRIM( iObj%FldName ) // '!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Set mixing ratio in PBL\n       SpcInfo => State_Chm%SpcData(iObj%SpcID)%Info\n       id_Spc = SpcInfo%ModelID\n       IF ( id_Spc > 0 ) THEN\n\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             IF ( State_Met%F_UNDER_PBLTOP(I,J,L) > 0.0_fp ) THEN\n                Spc(id_Spc)%Conc(I,J,L) = ( Arr2d(I,J) * 1.0e-9_fp )    &\n                                  / ( AIRMW      / SpcInfo%MW_g   )\n             ENDIF  ! end selection of PBL boxes\n          ENDDO\n          ENDDO\n          ENDDO\n\n       ENDIF\n\n       ! Point to next element in list\n       iObj => iObj%Next\n    ENDDO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE FixSfcVmr_Run\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FixSfcVmr_Final\n!\n! !DESCRIPTION: Subroutine FIXSFCVMR_Final cleans up the FixSfcMR linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    SUBROUTINE FixSfcVmr_Final( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Failure or success\n!\n! !REVISION HISTORY:\n!  16 Aug 2019 - C. Keller   - Updated version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Pointers\n    TYPE(SfcMrObj), POINTER :: iObj\n    TYPE(SfcMrObj), POINTER :: iObjNext\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    iObj     => NULL()\n    iObjNext => NULL()\n\n    ! Loop over all objects and deallocate\n    iObj => SfcMrHead\n    DO WHILE( ASSOCIATED( iObj ) )\n        iObjNext  => iObj%Next\n        iObj%Next => NULL()\n        IF ( ASSOCIATED( iObj ) ) DEALLOCATE(iObj)\n        iObj => iObjNext\n    ENDDO\n\n  END SUBROUTINE FixSfcVmr_Final\n!EOC\nEND MODULE SfcVmr_Mod\n"
  },
  {
    "path": "GeosCore/sulfate_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: sulfate_mod.F90\n!\n! !DESCRIPTION: Module SULFATE\\_MOD contains arrays and routines for performing\n!  either a coupled chemistry/aerosol run or an offline sulfate aerosol\n!  simulation. Original code taken from Mian Chin's GOCART model and modified\n!  accordingly. (rjp, bdf, bmy, 6/22/00, 8/26/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE SULFATE_MOD\n!\n! !USES:\n!\n  USE HCO_ERROR_MOD    ! For HEMCO error handling\n  USE PhysConstants    ! Physical constants\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp, f4, f8)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n#ifdef APM\n  PRIVATE :: WET_SETTLINGBIN\n#endif\n  PUBLIC :: CHEMSULFATE\n  PUBLIC :: CLEANUP_SULFATE\n  PUBLIC :: INIT_SULFATE\n#ifdef TOMAS\n  PUBLIC :: EMISSSULFATETOMAS\n#endif\n\n!\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Andreae, M.O. & P. Merlet, \"Emission of trace gases and aerosols from\n!        biomass burning\", Global Biogeochem. Cycles, 15, 955-966, 2001.\n!  (2 ) Nightingale et al [2000a], J. Geophys. Res, 14, 373-387\n!  (3 ) Nightingale et al [2000b], Geophys. Res. Lett, 27, 2117-2120\n!  (4 ) Wanninkhof, R., \"Relation between wind speed and gas exchange over\n!        the ocean\", J. Geophys. Res, 97, 7373-7382, 1992.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  !========================================================================\n  ! MODULE PARAMETERS:\n  !\n  ! XNUMOL_OH  : Molecules OH  per kg OH          [molec/kg]\n  ! XNUMOL_O3  : Molecules O3  per kg O3          [molec/kg]\n  ! XNUMOL_NO3 : Molecules NO3 per kg NO3         [molec/kg]\n  ! TCVV_S     : Ratio: Molwt air / Molwt S       [unitless]\n  !=======================================================================\n  REAL(fp),  PARAMETER   :: XNUMOL_OH   = AVO / 17e-3_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: XNUMOL_O3   = AVO / 48e-3_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: XNUMOL_NO3  = AVO / 62e-3_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: XNUMOL_H2O2 = AVO / 34e-3_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: TCVV_S      = AIRMW / 32e+0_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: TCVV_N      = AIRMW / 14e+0_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: SMALLNUM    = 1e-20_fp\n  REAL(fp),  PARAMETER   :: CM3PERM3    = 1.e6_fp\n\n#ifdef TOMAS\n  !---------------------------------------------------------------\n  ! For TOMAS microphysics: Add parameter for scaling anthro SO2\n  !---------------------------------------------------------------\n  REAL(fp),  PARAMETER   :: scaleanthso2 = 1.0e+0_fp\n#endif\n!\n! !PRIVATE TYPES:\n!\n  !========================================================================\n  ! MODULE VARIABLES:\n  !\n  ! DMSo       : DMS oceanic emissions            [v/v/timestep]\n  ! DRYSO4s    : Pointer to SO4s  in DEPVEL array [unitless]\n  ! DRYNITs    : Pointer to NITs  in DEPVEL array [unitless]\n  !\n  !%%% NOTE: THESE ARE NOW OBTAINED VIA HEMCO (bmy, 5/22/15) %%%%%%%%%%%\n  !% ENH3_an    : NH3 anthropogenic emissions      [kg NH3/box/s]\n  !% ENH3_bb    : NH3 biomass emissions            [kg NH3/box/s]\n  !% ENH3_bf    : NH3 biofuel emissions            [kg NH3/box/s]\n  !% ENH3_na    : NH73 natural source emissions    [kg NH3/box/s]\n  !% ESO2_ac    : SO2 aircraft emissions           [kg SO2/box/s]\n  !% ESO2_an    : SO2 anthropogenic emissions      [kg SO2/box/s]\n  !% ESO2_ev    : SO2 eruptive volcanic em.        [kg SO2/box/s]\n  !% ESO2_nv    : SO2 non-eruptive volcanic em.    [kg SO2/box/s]\n  !% ESO2_bb    : SO2 biomass burning emissions    [kg SO2/box/s]\n  !% ESO2_bf    : SO2 biofuel burning emissions    [kg SO2/box/s]\n  !% ESO2_sh    : SO2 ship emissions               [kg SO2/box/s]\n  !% ESO4_an    : SO4 anthropogenic emissions      [kg SO4/box/s]\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  !\n  ! PMSA_DMS   : P(MSA) from DMS                  [v/v/timestep]\n  ! PSO2_DMS   : P(SO2) from DMS                  [v/v/timestep]\n  ! PSO4_SO2   : P(SO4) from SO2                  [v/v/timestep]\n  ! PHMS_SO2   : P(HMS) from SO2                  [v/v/timestep] (jmm, 6/15/18)\n  ! PSO2_HMS   : P(SO2) from HMS                  [v/v/timestep] (jmm, 6/15/18)\n  ! PSO4_HMS   : P(SO4) from HMS & radical chem   [v/v/timestep] (jmm, 6/26/18)\n  ! SSTEMP     : Sea surface temperatures         [K]\n  ! Eev        : SO2 em. from eruptive volcanoes  [kg SO2/box/s]\n  ! Env        : SO2 em. from non-erup volcanoes  [kg SO2/box/s]\n  ! TCOSZ      : Sum of cos(SZA) for offline run  [unitless]\n  ! TTDAY      : Total daylight length at (I,J)   [minutes]\n  ! SMALLNUM   : Small number - prevent underflow [unitless]\n  ! COSZM      : Array for MAX(cos(SZA)) at (I,J) [unitless]\n  ! LVOLC      : Number of volcanic levels (20)   [unitless]\n  !========================================================================\n\n  ! Allocatable arrays\n  REAL(fp),  ALLOCATABLE :: DMSo(:,:)\n  REAL(fp),  ALLOCATABLE :: PMSA_DMS(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PSO2_DMS(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PSO4_SO2(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PSO4_SS(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PHMS_SO2(:,:,:)    ! jmm 06/13/2018\n  REAL(fp),  ALLOCATABLE :: PSO2_HMS(:,:,:)    ! jmm 06/13/2018\n  REAL(fp),  ALLOCATABLE :: PSO4_HMS(:,:,:)    ! jmm 06/26/2018\n  REAL(fp),  ALLOCATABLE :: PNITs(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PNIT_dust(:,:,:,:) ! tdf\n  REAL(fp),  ALLOCATABLE :: PSO4_dust(:,:,:,:) ! tdf\n  REAL(f4),  ALLOCATABLE :: SOx_SCALE(:,:)\n  REAL(fp),  ALLOCATABLE :: SSTEMP(:,:)\n  REAL(fp),  ALLOCATABLE :: TCOSZ(:,:)\n  REAL(fp),  ALLOCATABLE :: TTDAY(:,:)\n  REAL(fp),  ALLOCATABLE :: COSZM(:,:)\n  REAL(fp),  ALLOCATABLE :: GLOBAL_OH(:,:,:)\n  REAL(fp),  ALLOCATABLE :: GLOBAL_HNO3(:,:,:)\n  REAL(fp),  ALLOCATABLE :: GLOBAL_HCl(:,:,:)\n  REAL(fp),  ALLOCATABLE :: GLOBAL_HCOOH(:,:,:)\n  REAL(fp),  ALLOCATABLE :: GLOBAL_ACTA(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PNIT(:,:,:) ! xnw\n  REAL(fp),  ALLOCATABLE :: PACL(:,:,:) ! xnw\n  REAL(fp),  ALLOCATABLE :: PCCL(:,:,:) ! xnw\n\n#ifdef APM\n  REAL(fp),  ALLOCATABLE :: PSO4_SO2APM(:,:,:)\n  REAL(fp),  ALLOCATABLE :: PSO4_SO2SEA(:,:,:)\n#endif\n#ifdef TOMAS\n  !---------------------------------------------------------------\n  ! For TOMAS microphysics: Define PSO4_SO2aq array\n  !---------------------------------------------------------------\n  REAL(fp),  ALLOCATABLE :: PSO4_SO2AQ(:,:,:)\n  REAL(fp),  ALLOCATABLE :: SO4_ANTH(:,:,:)\n#endif\n\n  ! These are pointers to fields in the HEMCO data structure.\n  ! Declare these with REAL(fp), aka REAL*4. (bmy, 3/4/15)\n  REAL(f4), POINTER      :: OH(:,:,:)       => NULL()\n  REAL(f4), POINTER      :: NDENS_SALA(:,:) => NULL()\n  REAL(f4), POINTER      :: NDENS_SALC(:,:) => NULL()\n\n  ! Emission timestep (imported from HEMCO)\n  REAL(fp)               :: TS_EMIS\n\n  ! Species ID flags\n  INTEGER                :: id_AS,     id_AHS,    id_AW01\n  INTEGER                :: id_DALbin1, id_DALbin2, id_DALbin3 \n  INTEGER                :: id_DALbin4, id_DALbin5, id_DALbin6, id_DALbin7\n  INTEGER                :: id_DSTbin1, id_DSTbin2, id_DSTbin3 \n  INTEGER                :: id_DSTbin4, id_DSTbin5, id_DSTbin6, id_DSTbin7 ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n  INTEGER                :: id_H2O2,   id_HNO3,   id_LET\n  INTEGER                :: id_MSA,    id_NH3,    id_NH4\n  INTEGER                :: id_NH4aq,  id_NIT,    id_DMS\n  INTEGER                :: id_NITDbin1, id_NITDbin2, id_NITDbin3, id_NITDbin4\n  INTEGER                :: id_NITDbin5, id_NITDbin6, id_NITDbin7\n  INTEGER                :: id_NITs,   id_NK01,   id_NK05\n  INTEGER                :: id_NK08,   id_NK10,   id_NK20\n  INTEGER                :: id_NO3,    id_O3,     id_OH\n  INTEGER                :: id_SALA,   id_SALC,   id_SF01\n  INTEGER                :: id_SO2,    id_SO4,    id_SO4aq\n  INTEGER                :: id_SO4Dbin1,  id_SO4Dbin2,  id_SO4Dbin3, id_SO4Dbin4\n  INTEGER                :: id_SO4Dbin5,  id_SO4Dbin6,  id_SO4Dbin7\n  INTEGER                :: id_SO4s,   id_pFe\n  INTEGER                :: id_SALACL, id_HCL,    id_SALCCL\n  INTEGER                :: id_SALAAL, id_SALCAL\n  INTEGER                :: id_HOBr,   id_SO4H1,  id_SO4H2\n  INTEGER                :: id_HOCl,   id_SO4H3,  id_SO4H4\n  INTEGER                :: id_HCOOH,  id_ACTA,   id_PSO4\n  INTEGER                :: id_HMS,    id_CH2O\n\n\n  ! Species drydep ID flags\n  INTEGER                :: DRYSO4s,   DRYNITs\n  INTEGER                :: DRYSO4dbin1,  DRYSO4dbin2,  DRYSO4dbin3, DRYSO4dbin4\n  INTEGER                :: DRYSO4dbin5,  DRYSO4dbin6,  DRYSO4dbin7\n  INTEGER                :: DRYNITdbin1,  DRYNITdbin2,  DRYNITdbin3, DRYNITdbin4\n  INTEGER                :: DRYNITdbin5,  DRYNITdbin6,  DRYNITdbin7\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chemsulfate\n!\n! !DESCRIPTION: Subroutine CHEMSULFATE is the interface between the GEOS-CHEM\n!  main program and the sulfate chemistry routines.  The user has the option of\n!  running a coupled chemistry-aerosols simulation or an offline aerosol\n!  simulation. (rjp, bdf, bmy, 5/31/00, 3/16/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEMSULFATE( Input_Opt,  State_Chm, State_Diag, State_Grid, &\n                          State_Met,  FullRun,   RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE HCO_State_GC_Mod,   ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_MONTH\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE TIME_MOD,           ONLY : ITS_A_NEW_MONTH\n    USE Timers_Mod,         ONLY : Timer_End, Timer_Start\n    USE UCX_MOD,            ONLY : SETTLE_STRAT_AER\n    USE UnitConv_Mod\n#ifdef APM\n    USE HCO_STATE_MOD,      ONLY : HCO_GetHcoID\n    USE APM_DRIV_MOD,       ONLY : EMITNH3,EMITSO2\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)    :: FullRun     ! Modify species conc?\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL, SAVE            :: FIRSTCHEM = .TRUE.\n    INTEGER, SAVE            :: LASTMONTH = -99\n\n    ! Scalars\n    LOGICAL                  :: LGRAVSTRAT\n    LOGICAL                  :: LDSTUP\n    INTEGER                  :: I, J, L, N, MONTH\n    REAL(fp)                 :: DTCHEM\n    INTEGER                  :: previous_units\n\n    ! Strings\n    CHARACTER(LEN=255)       :: ErrMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n#ifdef APM\n    INTEGER           :: IDNH3,IDSO2\n    REAL(fp)          :: A_M2\n#endif\n\n    !=================================================================\n    ! CHEMSULFATE begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at CHEMSULFATE (in module GeosCore/sulfate_mod.F90)'\n\n      ! Copy fields from INPUT_OPT to local variables for use below\n    LGRAVSTRAT           = Input_Opt%LGRAVSTRAT\n    LDSTUP               = Input_Opt%LDSTUP\n\n    ! Initialize pointers\n    Spc                  => State_Chm%Species  ! Chemistry species [kg]\n\n    ! Get current month\n    MONTH                = GET_MONTH()\n\n    ! If it's an offline simulation ...\n    IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       ! Evaluate offline global OH from HEMCO\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_OH', GLOBAL_OH, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get data for GLOBAL_OH from HEMCO!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Evaluate offline global HNO3 from HEMCO\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_HNO3', GLOBAL_HNO3, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get data for GLOBAL_HNO3 from HEMCO!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Evaluate offline global HCl from HEMCO\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_HCl', GLOBAL_HCl, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get data for GLOBAL_HCl from HEMCO!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! And compute time scaling arrays for offline OH, NO3\n       CALL OHNO3TIME( State_Grid )\n\n    ENDIF\n\n    ! DTCHEM is the chemistry timestep in seconds\n    DTCHEM = GET_TS_CHEM()\n\n    ! TS_EMIS is the emission timestep (in seconds). This is a module\n    ! variable, hence define only on first call.\n    IF ( FIRSTCHEM ) THEN\n#if defined( MODEL_CESM ) || defined( MODEL_BCC )\n       ! Do not use HEMCO state in CESM\n       TS_EMIS = REAL( Input_Opt%TS_EMIS, fp )\n#else\n\n       IF ( .NOT. ASSOCIATED(HcoState) ) THEN\n          ErrMsg = 'Cannot get HEMCO state variable \"HCOState\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          IF ( RC /= GC_SUCCESS ) RETURN\n       ENDIF\n       TS_EMIS = HcoState%TS_EMIS\n#endif\n    ENDIF\n\n#ifdef APM\n    IDNH3 = HCO_GetHcoID( 'NH3', HcoState )\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( L, J, I, A_M2                                            )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Grid box surface area [m2]\n       A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n       DO L = 1, State_Grid%NZ\n          ! Get emissions [kg/m2/s] and convert to [kg/box-sec]\n          EMITNH3(I,J,L) = HcoState%Spc(IDNH3)%Emis%Val(I,J,L)*A_M2\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    IDSO2 = HCO_GetHcoID( 'SO2', HcoState )\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( L, J, I, A_M2                                            )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Grid box surface area [m2]\n       A_M2 = HcoState%Grid%AREA_M2%Val( I, J )\n\n       DO L = 1, State_Grid%NZ\n          ! Get emissions [kg/m2/s] and convert to [kg/box-sec]\n          EMITSO2(I,J,L) = HcoState%Spc(IDSO2)%Emis%Val(I,J,L)*A_M2\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n#endif\n\n    ! Initialize module arrays\n    PSO2_DMS   = 0e+0_fp\n    PMSA_DMS   = 0e+0_fp\n    PSO4_SO2   = 0e+0_fp\n    PHMS_SO2   = 0e+0_fp     ! jmm 06/13/2018\n    PSO2_HMS   = 0e+0_fp     ! jmm 06/13/2018\n    PSO4_HMS   = 0e+0_fp     ! jmm 06/26/2018\n    PSO4_SS    = 0e+0_fp\n    PNITs      = 0e+0_fp\n    PSO4_dust  = 0e+0_fp     ! tdf 04/17/08\n    PNIT_dust  = 0e+0_fp     ! tdf 04/17/08\n    PNIT       = 0e+0_fp\n    PACL       = 0e+0_fp\n    PCCL       = 0e+0_fp\n#ifdef APM\n    PSO4_SO2APM = 0e+0_fp\n    PSO4_SO2SEA = 0e+0_fp\n#endif\n#ifdef TOMAS\n    PSO4_SO2AQ = 0e+0_fp     ! For TOMAS microphysics\n#endif\n\n    !=========================================================================\n    ! Call individual chemistry routines for sulfate/aerosol speccies\n    !=========================================================================\n\n    ! Perform all routines only when doing a \"full\" run\n    IF ( FullRun ) THEN\n\n       !---------------------------------------------------------------------\n       ! FullRun = T: Do all sulfate chemistry\n       !---------------------------------------------------------------------\n\n       ! SO4s [kg] gravitational settling\n       IF ( id_SO4s > 0 ) THEN\n          CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                              State_Met, id_SO4s,   RC )\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4S' )\n          ENDIF\n       ENDIF\n\n       ! NITs [kg] gravitational settling\n       IF ( id_NITs > 0 ) THEN\n          CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                              State_Met, id_NITs,   RC )\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITS' )\n          ENDIF\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! These species are only used for the aciduptake simulations\n       !----------------------------------------------------------------\n       ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n       IF ( LDSTUP ) THEN\n\n          ! SO4dbin1 [kg] gravitational settling\n          IF ( id_SO4dbin1 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_SO4dbin1,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin1')\n             ENDIF\n          ENDIF\n\n          ! SO4dbin2 [kg] gravitational settling\n          IF ( id_SO4dbin2 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_SO4dbin2,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin2')\n             ENDIF\n          ENDIF\n\n          ! SO4dbin3 [kg] gravitational settling\n          IF ( id_SO4dbin3 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_SO4dbin3,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin3')\n             ENDIF\n          ENDIF\n\n          ! SO4dbin4 [kg] gravitational settling\n          IF ( id_SO4dbin4 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_SO4dbin4,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin4')\n             ENDIF\n          ENDIF\n\n          ! SO4dbin5 [kg] gravitational settling\n          IF ( id_SO4dbin5 > 0 ) THEN\n            CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                State_Met, id_SO4dbin5,  RC )\n            IF ( Input_Opt%Verbose ) THEN\n               CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin5')\n            ENDIF\n         ENDIF\n\n          ! SO4dbin6 [kg] gravitational settling\n          IF ( id_SO4dbin6 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_SO4dbin6,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin6')\n             ENDIF\n          ENDIF\n\n          ! SO4dbin7 [kg] gravitational settling\n          IF ( id_SO4dbin7 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_SO4dbin7,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, SO4dbin7')\n             ENDIF\n          ENDIF\n\n          ! NITdbin1 [kg] gravitational settling\n          IF ( id_NITdbin1 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin1,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin1')\n             ENDIF\n          ENDIF\n\n          ! NITdbin2 [kg] gravitational settling\n          IF ( id_NITdbin2 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin2,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin2')\n             ENDIF\n          ENDIF\n\n          ! NITdbin3 [kg] gravitational settling\n          IF ( id_NITdbin3 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin3,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin3')\n             ENDIF\n          ENDIF\n\n          ! NITdbin4 [kg] gravitational settling\n          IF ( id_NITdbin4 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin4,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin4')\n             ENDIF\n          ENDIF\n\n          ! NITdbin5 [kg] gravitational settling\n          IF ( id_NITdbin5 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin5,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin5')\n             ENDIF\n          ENDIF\n\n          ! NITdbin6 [kg] gravitational settling\n          IF ( id_NITdbin6 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin6,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin6')\n             ENDIF\n          ENDIF\n\n          ! NITdbin7 [kg] gravitational settling\n          IF ( id_NITdbin7 > 0 ) THEN\n             CALL GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                                 State_Met, id_NITdbin7,  RC )\n             IF ( Input_Opt%Verbose ) THEN\n                CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, NITdbin7')\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! Stratospheric aerosol gravitational settling\n       IF ( LGRAVSTRAT ) THEN\n          CALL SETTLE_STRAT_AER( Input_Opt, State_Chm, State_Grid, &\n                                 State_Met, RC )\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSULFATE: GRAV_SET, STRAT' )\n          ENDIF\n       ENDIF\n\n       ! Halt aerosol chem timer (so that unit conv can be timed separately)\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"=> Aerosol chem\", RC )\n       ENDIF\n\n       ! Convert species to [v/v dry] aka [mol/mol dry]\n       ! NOTE: For TOMAS, convert all species units, in order not to\n       ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n       CALL Convert_Spc_Units(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Grid     = State_Grid,                                     &\n            State_Met      = State_Met,                                      &\n#ifndef TOMAS\n            mapping        = State_Chm%Map_Advect,                           &\n#endif\n            new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,                &\n            previous_units = previous_units,                                 &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL GC_Error('Unit conversion error', RC, &\n                        'Start of CHEM_SULFATE in sulfate_mod.F90')\n          RETURN\n       ENDIF\n\n       ! Start aerosol chem timer again\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"=> Aerosol chem\", RC )\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CONVERT UNITS' )\n       ENDIF\n\n       ! For offline runs only ...\n       IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n          !--------------------------------\n          ! DMS chemistry (offline only)\n          !--------------------------------\n          CALL CHEM_DMS( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                         State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Chem_DMS\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Debug info\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_DMS' )\n          ENDIF\n\n          !--------------------------------\n          ! H2O2 (offline only)\n          !--------------------------------\n          CALL CHEM_H2O2( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                          State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Chem_H2O2\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          IF ( Input_Opt%Verbose ) THEN\n             CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_H2O2' )\n          ENDIF\n\n       ENDIF\n\n       !-----------------------\n       ! SO2 chemistry\n       !-----------------------\n       CALL CHEM_SO2( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                      State_Met, .TRUE.,    RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Chem_SO2\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Debug info\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_SO2' )\n       ENDIF\n\n       !-----------------------\n       ! SO4 chemistry\n       !-----------------------\n       CALL CHEM_SO4( Input_Opt,  State_Chm, State_Diag, State_Grid, &\n                      State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Chem_SO4\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_SO4' )\n       ENDIF\n\n#ifdef TOMAS\n       !---------------------------------------------------------------------\n       ! For TOMAS microphysics:\n       !\n       ! SO4 from aqueous chemistry of SO2 (in-cloud oxidation)\n       !\n       ! SO4 produced via aqueous chemistry is distributed onto 30-bin\n       ! aerosol by TOMAS subroutine AQOXID.   NOTE: This may be moved\n       ! to tomas_mod.F90 in the future, but for now it still needs to get\n       ! the PSO4_SO2AQ value while CHEMSULFATE is called\n       !---------------------------------------------------------------------\n       CALL CHEM_SO4_AQ( Input_Opt, State_Chm,  State_Grid,                  &\n                         State_Met, State_Diag, RC                          )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"CHEM_SO4_AQ\"!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_SO4_AQ' )\n       ENDIF\n#endif\n\n       ! MSA\n       CALL CHEM_MSA( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_MSA' )\n       ENDIF\n\n       ! Sulfur Nitrate.\n       ! CHEM_NIT includes a source term from sea salt aerosols, so keep\n       ! here.\n       CALL CHEM_NIT( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_NIT' )\n       ENDIF\n\n       ! Calculate the HCl uptake by alkalinity, xnw\n       CALL CHEM_CL( Input_Opt, State_Met, State_Chm, State_Grid, RC )\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_CL' )\n       ENDIF\n\n    ELSE\n\n       !---------------------------------------------------------------------\n       ! FullRun = F: Just set up Cloud pH & related parameters, and exit\n       !---------------------------------------------------------------------\n\n       ! Halt aerosol chem timer (so that unit conv can be timed separately)\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"=> Aerosol chem\", RC )\n       ENDIF\n\n       ! Convert species to [v/v dry] aka [mol/mol dry]\n       ! NOTE: For TOMAS, convert all species units, in order not to\n       ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n       CALL Convert_Spc_Units(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Grid     = State_Grid,                                     &\n            State_Met      = State_Met,                                      &\n#ifndef TOMAS\n            mapping        = State_Chm%Map_Advect,                           &\n#endif\n            new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,                &\n            previous_units = previous_units,                                 &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          CALL GC_Error('Unit conversion error', RC, &\n                        'Start of CHEM_SULFATE in sulfate_mod.F90')\n          RETURN\n       ENDIF\n\n       ! Start aerosol chem timer again\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"=> Aerosol chem\", RC )\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CONVERT UNITS' )\n       ENDIF\n\n       ! Call the SO2 routine to get cloud pH parameters\n       CALL CHEM_SO2( Input_Opt, State_Chm, State_Diag, State_Grid,          &\n                      State_Met, .FALSE.,   RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Chem_SO2\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          CALL DEBUG_MSG( '### CHEMSULFATE: a CHEM_SO2 false' )\n       ENDIF\n\n    ENDIF ! FullRun\n\n    ! Halt aerosol chem timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"=> Aerosol chem\", RC )\n    ENDIF\n\n    ! Convert species units back to original unit\n    ! NOTE: For TOMAS, convert all species units, in order not to\n    ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n#ifndef TOMAS\n         mapping    = State_Chm%Map_Advect,                                  &\n#endif\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'End of CHEM_SULFATE in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Start aerosol chem timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"=> Aerosol chem\", RC )\n    ENDIF\n\n    ! Free pointer\n    Spc => NULL()\n\n    ! We have already gone thru one chemistry iteration\n    FIRSTCHEM = .FALSE.\n\n  END SUBROUTINE CHEMSULFATE\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: emisssulfatetomas\n!\n! !DESCRIPTION: Subroutine EMISSSULFATETOMAS connects HEMCO bulk emissions to\n! the TOMAS tracers. Only use this for TOMAS sims. This should be quite similar\n! to the TOMAS relevant parts of 'emisssulfate' in v9 (Jkodros 6/2/15)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EMISSSULFATETOMAS( Input_Opt, State_Chm, State_Grid, &\n                                State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Timers_Mod,         ONLY : Timer_End,  Timer_Start\n    USE TOMAS_MOD,          ONLY : ICOMP,   IDIAG\n    USE TOMAS_MOD,          ONLY : NH4BULKTOBIN\n    USE TOMAS_MOD,          ONLY : SRTNH4\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State objectt\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    ! Fields for TOMAS simulation\n    REAL*8           :: BINMASS(State_Grid%NX,State_Grid%NY,State_Grid%NZ, &\n                                State_Chm%nTomasBins*ICOMP)\n    INTEGER          :: IBINS\n    INTEGER          :: TID, I, J, L, M\n    INTEGER          :: ii=53, jj=29, ll=1\n    REAL(fp)         :: NH4_CONC\n    INTEGER          :: previous_units\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Arrays\n    REAL(fp)         :: tempnh4(State_Chm%nTomasBins)\n    REAL(fp)         :: MK_TEMP2(State_Chm%nTomasBins)\n\n    !=================================================================\n    ! EMISSSULFATETOMAS begins here!\n    !=================================================================\n\n    ! Halt HEMCO timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"HEMCO\", RC )\n    ENDIF\n\n    ! Convert species to [kg] for TOMAS. This will be removed once\n    ! TOMAS uses mixing ratio instead of mass as tracer units (ewl, 9/11/15)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = State_Chm%Map_Advect,                              &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'Start of EMISSSULFATETOMAS in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Start HEMCO timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"HEMCO\", RC )\n    ENDIF    \n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    ! Number of bins\n    IBINS = State_Chm%nTomasBins\n\n    IF (id_SF01 > 0 .and. id_NK01 > 0 ) THEN\n\n       ! Get NH4 and aerosol water into the same array\n       DO M = 1, IBINS*(ICOMP-IDIAG)\n          BINMASS(:,:,:,M) = Spc(id_SF01+M-1)%Conc(:,:,:)\n       ENDDO\n\n       IF ( SRTNH4 > 0 ) THEN\n          TID = IBINS*(ICOMP-IDIAG) + 1\n\n          !$OMP PARALLEL DO       &\n          !$OMP DEFAULT( SHARED ) &\n          !$OMP PRIVATE( I, J, L, M, TEMPNH4, MK_TEMP2, NH4_CONC ) &\n          !$OMP SCHEDULE( DYNAMIC )\n          DO L=1,State_Grid%NZ\n          DO J=1,State_Grid%NY\n          DO I=1,State_Grid%NX\n\n             ! Change pointer to a variable to avoid array temporary\n             ! (bmy, 7/7/17)\n             DO M = 1, IBINS\n                MK_TEMP2(M) = Spc(id_SF01+M-1)%Conc(I,J,L)\n             ENDDO\n             NH4_CONC = Spc(id_NH4)%Conc(I,J,L)\n             CALL NH4BULKTOBIN( MK_TEMP2, NH4_CONC, TEMPNH4 )\n\n             BINMASS(I,J,L,TID:TID+IBINS-1) = TEMPNH4(1:IBINS)\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDIF\n\n       TID = IBINS*(ICOMP-1) +1\n       DO M = 1, IBINS\n          BINMASS(:,:,:,TID+M-1) = Spc(id_AW01+M-1)%Conc(:,:,:)\n       ENDDO\n\n       !IF ( id_SF01 > 0 ) THEN\n       CALL SRCSF30( Input_Opt, State_Grid, State_Met, &\n                     State_Chm, BINMASS(:,:,:,:), RC )\n\n       ! Return the aerosol mass after emission subroutine to Spc\n       ! excluding the NH4 aerosol and aerosol water (win, 9/27/08)\n       DO M = 1, IBINS*(ICOMP-IDIAG)\n          Spc(id_SF01+M-1)%Conc(:,:,:) = BINMASS(:,:,:,M)\n       ENDDO\n    ENDIF\n\n    ! Free pointer\n    NULLIFY( Spc )\n\n    ! Halt HEMCO timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"HEMCO\", RC )\n    ENDIF\n\n    ! Convert species back to original units (ewl, 9/11/15)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'End of EMISSSULFATETOMAS in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Start HEMCO timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"HEMCO\", RC )\n    ENDIF\n\n  END SUBROUTINE EMISSSULFATETOMAS\n!EOC\n#endif\n!-----------------------------------------------------------------------------\n!                  Jack Kodros re-writing this\n!-----------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: srcsf30\n!\n! !DESCRIPTION: Subroutine SRCSF30 (Jkodros 6/2/15)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n#ifdef TOMAS\n  SUBROUTINE SRCSF30( Input_Opt, State_Grid, State_Met, State_Chm, TC2, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod,          ONLY : GC_WARNING\n    USE ERROR_MOD,            ONLY : ERROR_STOP,  IT_IS_NAN\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE TOMAS_MOD,            ONLY : AVGMASS, ICOMP\n    USE TOMAS_MOD,            ONLY : Xk\n    USE TOMAS_MOD,            ONLY : SUBGRIDCOAG, MNFIX\n    USE TOMAS_MOD,            ONLY : SRTSO4, SRTNH4,  DEBUGPRINT\n\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_GetDiagn\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    REAL(fp),       INTENT(INOUT) :: TC2(State_Grid%NX, &\n                                         State_Grid%NY, &\n                                         State_Grid%NZ, &\n                                         State_Chm%nTomasBins*ICOMP)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER                :: I, J, K, L, DOW_LT, NTOP, C, Bi\n    REAL*8                 :: SO4(State_Grid%NZ)\n    REAL*8                 :: DTSRCE\n    REAL*8                 :: EFRAC(State_Grid%NZ)\n    REAL*8                 :: TSO4,       FEMIS\n    REAL*8                 :: AREA_CM2\n    REAL*8                 :: SO4an(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL*8                 :: SO4bf(State_Grid%NX,State_Grid%NY)\n    REAL*8                 :: SO4anbf(State_Grid%NX,State_Grid%NY,2)\n    REAL*8                 :: BFRAC(State_Chm%nTomasBins)\n\n    REAL(fp)               :: NDISTINIT(State_Chm%nTomasBins)\n    REAL(fp)               :: NDISTFINAL(State_Chm%nTomasBins)\n    REAL(fp)               :: MADDFINAL(State_Chm%nTomasBins)\n    REAL(fp)               :: NDIST(State_Chm%nTomasBins)\n    Real(fp)               :: MDIST(State_Chm%nTomasBins,ICOMP)\n    REAL(fp)               :: NDIST2(State_Chm%nTomasBins)\n    REAL(fp)               :: MDIST2(State_Chm%nTomasBins,ICOMP)\n    REAL*4                 :: TSCALE, BOXVOL, TEMP, PRES\n\n    !REAL(fp)              :: N0(State_Grid%NZ,State_Chm%nTomasBins)\n    !REAL(fp)              :: M0(State_Grid%NZ,State_Chm%nTomasBins)\n    REAL(fp)               :: Ndiag(State_Chm%nTomasBins)\n    REAL(fp)               :: Mdiag(State_Chm%nTomasBins)\n    REAL(fp)               :: MADDTOTAL !optimization variable for diag\n    !REAL(fp)              :: Avginit(State_Chm%nTomasBins)\n    !REAL(fp)              :: Avgfinal(State_Chm%nTomasBins)\n    !REAL(fp)              :: Avginner(State_Chm%nTomasBins)\n\n    REAL(fp)               :: AREA(State_Grid%NX, State_Grid%NY)\n    !REAL(fp)              :: AREA3D(State_Grid%NX, State_Grid%NY,2)\n\n    ! Pointers\n    REAL(f4),      POINTER :: Ptr2D(:,:  )\n    REAL(f4),      POINTER :: Ptr3D(:,:,:)\n    TYPE(SpcConc), POINTER :: TC1(:)\n\n    INTEGER                :: N_TRACERS\n    INTEGER                :: IBINS\n    LOGICAL                :: ERRORSWITCH, SGCOAG = .FALSE. ! bc,jrp - turn off subgridcoag 18/12/23\n    INTEGER                :: FLAG, ERR\n    logical                :: pdbug !(temporary) win, 10/24/07\n    !integer               :: ii, jj, ll\n    !data ii, jj, ll / 61, 1, 7 /\n    INTEGER                :: ii=53, jj=29, ll=1\n\n    ! Ratio of molecular weights: S/SO4\n    REAL*8,  PARAMETER     :: S_SO4 = 32d0 / 96d0\n\n    ! debugging\n    real*8   dummy\n\n    ! For fields from Input_Opt\n    LOGICAL :: LNLPBL\n    LOGICAL :: jkdbg=.true.\n\n    ! Strings\n    CHARACTER(LEN= 63)       :: DgnName\n    CHARACTER(LEN=255)       :: MSG\n    CHARACTER(LEN=255)       :: LOC='srcsf30 (sulfate_mod.F90)'\n\n    !=================================================================\n    ! SRCSF30 begins here!\n    !=================================================================\n\n    ! Free pointers\n    Ptr2D    => NULL()\n    Ptr3D    => NULL()\n\n    ! COpy values from Input_Opt\n    LNLPBL   = Input_Opt%LNLPBL\n\n    ! Import emissions from HEMCO (through HEMCO state)\n    IF ( .NOT. ASSOCIATED(HcoState) ) THEN\n       CALL ERROR_STOP ( 'HcoState not defined!', LOC )\n    ENDIF\n\n    ! Emission timestep [seconds]\n    DTSRCE = HcoState%TS_EMIS\n\n    ! Grid box aarea\n    AREA = HcoState%Grid%AREA_M2%Val(:,:)\n    !AREA3D(:,:,1) = AREA(:,:)\n    !AREA3D(:,:,2) = AREA(:,:)\n    \n    ! comment out if shut off subgridcoag bc,14/12/23\n    ! Define subgrid coagulation timescale (win, 10/28/08)\n    !IF ( TRIM(State_Grid%GridRes) == '4.0x5.0' ) THEN\n    !   TSCALE = 10.0_fp*3600.0_fp  ! 10 hours\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '2.0x2.5' ) THEN\n       TSCALE = 5.0_fp*3600.0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n    !   TSCALE = 1.0_fp*3600.0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n    !   TSCALE = 0.5_fp*3600.0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n    !   TSCALE = 0.25_fp*3600.0_fp\n    !ENDIF\n\n    ! Point to species array\n    TC1 => State_Chm%Species\n\n    ! Number of bins\n    IBINS = State_Chm%nTomasBins\n\n    ! Mass fraction emitted to each bin\n#if  defined( TOMAS12) || defined( TOMAS15)\n    BFRAC = [ &\n# if  defined( TOMAS15)\n         0.0e+0,     0.0e+0,     0.0e+0,                    &\n# endif\n         4.3760e-02, 6.2140e-02, 3.6990e-02, 1.8270e-02, &\n         4.2720e-02, 1.1251e-01, 1.9552e-01, 2.2060e-01, &\n         1.6158e-01, 7.6810e-02, 2.8884e-02, 2.0027e-04 ]\n\n#else(\n    BFRAC = [ &\n# if  defined( TOMAS40)\n         0.0e+0,    0.0e+0,    0.0e+0,    0.0e+0,    0.0e+0,    &\n         0.0e+0,    0.0e+0,    0.0e+0,    0.0e+0,    0.0e+0,    &\n# endif\n         1.728e-02, 2.648e-02, 3.190e-02, 3.024e-02, 2.277e-02, &\n         1.422e-02, 9.029e-03, 9.241e-03, 1.531e-02, 2.741e-02, &\n         4.529e-02, 6.722e-02, 8.932e-02, 1.062e-01, 1.130e-01, &\n         1.076e-01, 9.168e-02, 6.990e-02, 4.769e-02, 2.912e-02, &\n         1.591e-02, 7.776e-03, 3.401e-03, 1.331e-03, 4.664e-04, &\n         1.462e-04, 4.100e-05, 1.029e-05, 2.311e-06, 4.645e-07 ]\n#endif\n\n    !================================================================\n    ! READ IN HEMCO EMISSIONS\n    !================================================================\n    DgnName = 'SO4_ANTH'\n    CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, DgnName, .FALSE., ERR, Ptr3D=Ptr3D )\n    IF ( .NOT. ASSOCIATED(Ptr3D) ) THEN\n       IF ( Input_Opt%amIRoot ) CALL GC_WARNING('Not found: '//TRIM(DgnName),RC,LOC)\n    ELSE\n       SO4_ANTH = Ptr3D(:,:,:)\n    ENDIF\n    Ptr3D => NULL()\n\n    ! convert to kg/box/sec\n    DO L = 1, State_Grid%NZ\n       SO4an(:,:,L) = 0.0d0\n       SO4an(:,:,L) = SO4_ANTH(:,:,L) * AREA(:,:)\n    END DO\n\n    ! NOTE: Biofuels are now lumped into anthro,\n    ! so set SO4bf to zero (bmy, 10/1/19)\n    SO4bf = 0.0_fp\n\n    !=================================================================\n    ! Compute SO4 emissions\n    !=================================================================\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, NTOP, SO4, TSO4, L, FEMIS, EFRAC, K )      &\n    !$OMP PRIVATE( NDISTINIT, NDIST, MDIST, NDISTFINAL, MADDFINAL ) &\n    !$OMP PRIVATE( Ndiag, Mdiag)                                    &\n    !$OMP PRIVATE( MADDTOTAL, NDIST2, MDIST2, C , ERRORSWITCH)      &\n    !$OMP PRIVATE( BOXVOL, TEMP, PRES, pdbug )                      &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !initialize diagnostics\n       Ndiag(:) = 0.0D0\n       Mdiag(:) = 0.0D0\n\n       ! Top level of boundary layer at (I,J)\n       NTOP = CEILING( State_Met%PBL_TOP_L(I,J) )\n\n       ! Zero SO4 array at all levels\n       DO L = 1, State_Grid%NZ\n          SO4(L) = 0.0\n       ENDDO\n\n       ! Compute total anthro SO4 (surface + 100m) plus biofuel SO4\n       TSO4 = 0.d0\n       TSO4 = SUM( SO4an(I,J,:) ) + SO4bf(I,J)\n       IF ( TSO4 <  0d0 ) THEN\n          WRITE(*,*) ' Negative Sulfate emis from hemco at IJ=', I, J\n       ENDIF\n       IF ( TSO4 == 0d0 ) CYCLE\n\n       !=============================================================\n       ! First calculate emission distribution vertically within PBL\n       !=============================================================\n       ! EFRAC(30) = fraction of total emission splitted for each\n       !             level until reaching PBL top.\n       EFRAC = 0d0\n\n       !==============================================================\n       ! Partition the total anthro SO4 emissions thru the entire\n       ! boundary layer (if PBL top is higher than level 2)\n       !==============================================================\n       ! Add option for non-local PBL (Lin, 03/31/09)\n       IF (.NOT. LNLPBL) THEN\n          !IF ( NTOP > 2 ) THEN\n\n          ! Loop thru boundary layer\n          DO L = 1, State_Grid%NZ\n\n             ! Fraction of PBL spanned by grid box (I,J,L) [unitless]\n             EFRAC(L)  = State_Met%F_OF_PBL(I,J,L)\n\n          ENDDO\n\n          !ELSE\n          !   EFRAC(1) = ( SO4an(I,J,1) + SO4bf(I,J) ) / TSO4\n          !   EFRAC(2) = SO4an(I,J,2) / TSO4\n          !ENDIF\n\n          IF ( ABS( SUM( EFRAC(:)) - 1.d0 ) > 1.D-5 ) THEN\n             PRINT*, '### ERROR in SRCSF30!'\n             PRINT*, '### I, J : ', I, J\n             print*, 'EFRAC',EFRAC(:)\n             PRINT*, '### SUM(EFRAC) : ', SUM( EFRAC(:) )\n             PRINT*, '### This should exactly 1.00'\n             CALL ERROR_STOP( 'Check SO4 redistribution', &\n                              'SRCSF30 (sulfate_mod.F90)' )\n          ENDIF\n\n       ELSE\n          ! stop the program for now since I don't totally implement\n          ! the subgrid coagulation option w/ Lin's new PBL scheme (win, 1/25/10)\n          print *,'If the program stops here, that means you are ',    &\n                  'running TOMAS simulation with the new PBL scheme ', &\n                  'implemented since GEOS-Chem v.8-02-01.',            &\n                  '-----> Try not using the non-local PBL option'\n          CALL ERROR_STOP( 'Code does not support new PBL scheme', &\n                           'SRCSF30 (sulfate_mod.F90)')\n\n       ENDIF  ! .not. LNLPBL\n\n       !=============================================================\n       ! Add the size-resolved SO4 emission to tracer array\n       ! Having the options to do sub-grid coagulation or simply\n       ! emit.\n       ! Sub-grid coagulation reduces the number being emitted\n       ! and modifies the mass size distribution of existing particle\n       ! as well as the size distribution being emitted.\n       ! (win, 10/4/07)\n       !=============================================================\n       IF ( SGCOAG ) THEN\n\n! ewl: TC1 = Spc(:,:,:,id_NK01:id_NK01+IBINS-1)\n\n          !save number and mass before emission\n          !DO M = 1, IBINS\n          !   N0(:,M) = TC1(id_NK01+M-1)%Conc(I,J,:)\n          !ENDDO\n          !M0(:,:) = TC2(I,J,:,1:IBINS)\n\n          DO L = 1, State_Grid%NZ\n             !only really need to loop L=1,NTOP\n             SO4(L) = TSO4 * EFRAC(L) * DTSRCE\n             IF ( SO4(L) == 0.d0 ) CYCLE\n             DO K = 1, IBINS\n                !set number of sulfate particles emitted\n                !as emitted mass * fraction in this bin / avg mass per particle\n                ! for this bin\n                NDISTINIT(K) = SO4(L) * BFRAC(K) / AVGMASS(K)\n                !sfarina - sqrt is expensive.\n                !NDISTINIT(K) = SO4(L) * BFRAC(K) / ( SQRT( XK(K)*XK(K+1) ) )\n                !set existing number of particles\n                NDIST(K) = TC1(id_NK01+K-1)%Conc(I,J,L)\n                !sfarina - what are the chances aerosol water and ammonium\n                ! are properly equilibrated?\n                DO C = 1, ICOMP\n                   !set existing mass of each component\n                   MDIST(K,C) = TC2(I,J,L,K+(C-1)*IBINS)\n                   IF( IT_IS_NAN( MDIST(K,C) ) ) THEN\n                      PRINT *,'+++++++ Found NaN in SRCSF30  +++++++'\n                      PRINT *,'Location (I,J,L):',I,J,L,'Bin',K,'comp',C\n                      CALL  ERROR_STOP('SRCSF30 SGCCOAG','sulfate_mod.F90')\n                   ENDIF\n                ENDDO\n                !initialize emitted sulfate number and mass returned\n                ! from subgridcoag\n                NDISTFINAL(K) = 0.0D0\n                MADDFINAL(K)  = 0.0D0\n             ENDDO\n             !sfarina subgridcoag does its own mnfix. this call might be\n             ! unnecessary?\n             CALL MNFIX( NDIST, MDIST, ERRORSWITCH )\n             IF( ERRORSWITCH ) PRINT *,'SRCSF30: MNFIX found error ', &\n                                       'before SUBGRIDCOAG at ',I,J,L\n             ERRORSWITCH = .FALSE.\n\n             !!debug\n             !DO K = 1, IBINS\n             !   ! Overwrite number and mass before emission for diagnostic\n             !   ! just in case there was any change by MNFIX (win, 10/27/08)\n             !   N0(L,K) = NDIST(K)\n             !   M0(L,K) = MDIST(K,SRTSO4)\n             !   Avginit(K) = SUM(MDIST(K,:)) / NDIST(K)\n             !ENDDO\n\n             BOXVOL  = State_Met%AIRVOL(I,J,L) * 1.e6 !convert from m3 -> cm3\n             TEMP    = State_Met%T(I,J,L)\n             PRES    = State_Met%PMID(i,j,l)*100.0 ! in Pa\n\n             pdbug=.false.\n\n             CALL SUBGRIDCOAG( NDISTINIT, NDIST, MDIST, BOXVOL,TEMP, &\n                               PRES, TSCALE, NDISTFINAL, MADDFINAL,pdbug)\n             DO K = 1, IBINS\n                !add number from emissions\n                NDIST2(K) = NDIST(K) + NDISTFINAL(K)\n\n                !use this number for the diag\n                Ndiag(K)  = Ndiag(K) + NDISTFINAL(K)\n\n                !sfarina - An example to illustrate what's happening here:\n                !assuming mass doubling\n                !avgmass = .01, .02, .04 (AVGMASS(K) = sqrt(XK(K)*XK(K+1)))\n                !N0 = 100, 50, 25\n                !M0 = 1, 1, 1\n                !emitted SO4 particles: 10, 5, 1 (for a total mass of 0.24)\n                !but with subgrid coagulation, we lose 2 particles from bin 1\n                !onto particles in each of bins 2 and 3, and 1 from bin 2 to\n                ! bin 3, giving us a final distribution of\n                !Ndistfinal = 6, 4, 1 (for a total mass of\n                !             6*.01 + 4*.02 + 1*.04 = 0.18)\n                !but that doesn't conserve mass... those particles are now a\n                !little heavier than they were before subgrid coag, so you have\n                ! to add that additional mass (maddfinal)\n                !(6*.01)+ (4*.02 + 2*.01) + (1*0.04 + 1*.02 + 2*.01) = 0.24\n                MADDTOTAL   = NDISTFINAL(K) * AVGMASS(K) + MADDFINAL(K)\n\n                !copy mass from all species\n                DO C = 1, ICOMP\n                   MDIST2(K,C) = MDIST(K,C)\n                ENDDO\n\n                !add mass from emissions as explained above\n                MDIST2(K,SRTSO4) = MDIST2(K,SRTSO4) + MADDTOTAL\n\n                !save this for the diag\n                Mdiag(K)   = Mdiag(K) + MADDTOTAL\n\n                !sanity check\n                if(NDISTFINAL(K) < 0d0) then\n                   CALL  ERROR_STOP('negative number emis','sulfate_mod.F90')\n                endif\n                if(MADDTOTAL < 0d0) then\n                   CALL  ERROR_STOP('negative mass emis','sulfate_mod.F90')\n                endif\n             ENDDO\n\n             !debug - avg particle mass after emission but before mnfix\n             !DO K = 1, IBINS\n             !   Avginner(K) = SUM(MDIST2(K,:)) / NDIST2(K)\n             !ENDDO\n\n             ERRORSWITCH = .FALSE.\n             CALL MNFIX( NDIST2, MDIST2, ERRORSWITCH )\n\n             IF( ERRORSWITCH ) PRINT *,'SRCSF30: MNFIX found error ', &\n                                       'after SUBGRIDCOAG at ',I,J,L\n\n             DO K = 1, IBINS\n                TC1(id_NK01+K-1)%Conc(I,J,L) = NDIST2(K)\n                DO C=1,ICOMP\n                   TC2(I,J,L,K+(C-1)*IBINS) = MDIST2(K,C)\n                ENDDO\n             ENDDO\n\n             !debug - avg particle mass final\n             !DO K = 1, IBINS\n             !   Avgfinal(K) = SUM(MDIST2(K,:)) / NDIST2(K)\n             !ENDDO\n             !\n             !DO K = 1, IBINS\n             !!sfarina debug\n             !if(TC1(id_NK01+K-1)%Conc(I,J,L)-N0(L,K) < 0d0) then\n             ! write(*,*) '\"Negative NK emis\" details:'\n             ! write(*,*) 'NTOP       ', NTOP\n             ! write(*,*) 'S_SO4:     ', S_SO4\n             ! write(*,*) 'TSO4:      ', TSO4\n             ! write(*,*) 'EFRAC(L):  ', EFRAC(L)\n             ! DO Bi=1,IBINS\n             !  write(*,*) 'Bin        ',Bi\n             !  write(*,*) 'n0, TC1    ', N0(l,bi),  TC1(id_NK01+Bi-1)%Conc(I,J,L)\n             !  write(*,*) 'ndist1,2   ', NDIST(Bi), NDIST2(Bi)\n             !  write(*,*) 'ndistfinal ', NDISTFINAL(Bi)\n             !  write(*,*) 'MADDFINAL  ', MADDFINAL(Bi)\n             !  write(*,*) 'Avginit    ', Avginit(Bi)\n             !  write(*,*) 'Avginner   ', Avginner(Bi)\n             !  write(*,*) 'Avgfinal   ', Avgfinal(Bi)\n             !  write(*,*) 'M0(so4)    ', M0(l,bi)\n             !  DO C=1,ICOMP\n             !  write(*,*) 'Component  ', C\n             !  write(*,*) 'mdist      ', MDIST(Bi, C)\n             !  write(*,*) 'mdist2     ', MDIST2(Bi, C)\n             !  write(*,*) 'TC2        ', TC2(i,j,l,(C-1)*IBINS+Bi)\n             !  END DO !c\n             ! END DO !bi\n             !end if\n             !\n             !ENDDO\n\n          ENDDO ! L loop\n\n          !==============================================================\n          ! ND59 Diagnostic: Size-resolved primary sulfate emission in\n          !                 [kg S/box/timestep] and the corresponding\n          !                  number emission [no./box/timestep]\n          !==============================================================\n\n       ELSE\n          ! Distributing primary emission without sub-grid coagulation\n          !=============================================================\n          ! Add SO4 emissions to tracer array\n          ! For SF: Convert from [kg SO4/box/s] -> [kg SO4/box/timestep]\n          ! For NK: Convert from [kg SO4/box/s] -> [No.   /box/timestep]\n          !=============================================================\n          DO L = 1, State_Grid%NZ\n             SO4(L) = TSO4 * EFRAC(L)\n             DO K = 1, IBINS\n                TC1(id_NK01+K-1)%Conc(I,J,L) = TC1(id_NK01+K-1)%Conc(I,J,L) + &\n                     ( SO4(L) * DTSRCE * BFRAC(K) / AVGMASS(K) )\n               TC2(I,J,L,K) = TC2(I,J,L,K) + &\n                     ( SO4(L) * DTSRCE * BFRAC(K)               )\n             ENDDO\n          ENDDO\n\n       ENDIF !SGCOAG\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    NULLIFY(TC1)\n\n    IF ( Input_Opt%Verbose ) print *,'   ### Finish SRCSF30'\n\n  END SUBROUTINE SRCSF30\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: grav_settling\n!\n! !DESCRIPTION: Subroutine GRAV\\_SETTLING performs gravitational settling of\n!  sulfate and nitrate in coarse sea salt (SO4S and NITS).\n!  (bec, rjp, bmy, 4/20/04, 7/20/04, 10/25/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GRAV_SETTLING( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                            State_Met, N, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE Species_Mod,        ONLY : Species\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: N           ! Species index\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !REMARKS:\n!  N=1 is SO4S; N=2 is NITS\n!                                                                             .\n!  tdf Include Coarse Mode DUST size bins\n!  N=3 is SO4d2; N=4  is NIT_d1\n!  N=5 is SO4d3; N=6  is NIT_d2\n!  N=7 is SO4d4; N=8  is NIT_d3\n!  N=9 is SO4d4; N=10 is NIT_d4\n!  tdf Treat these coated DUSTs as DRY for now\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp),  PARAMETER   :: C1     =  0.7674e+0_fp\n    REAL(fp),  PARAMETER   :: C2     =  3.079e+0_fp\n    REAL(fp),  PARAMETER   :: C3     =  2.573e-11_fp\n    REAL(fp),  PARAMETER   :: C4     = -1.424e+0_fp\n    REAL(fp),  PARAMETER   :: DEN_SS = 2200.0e+0_fp ! [kg/m3] sea-salt density\n\n    ! Parameters for polynomial coefficients to derive seawater\n    ! density. From Tang et al. (1997) (bec, jaegle, 5/11/11)\n    REAL(fp),  PARAMETER   :: A1   =  7.93e-3_fp\n    REAL(fp),  PARAMETER   :: A2   = -4.28e-5_fp\n    REAL(fp),  PARAMETER   :: A3   =  2.52e-6_fp\n    REAL(fp),  PARAMETER   :: A4   = -2.35e-8_fp\n    REAL(f8),  PARAMETER   :: EPSI = 1.0e-4_f8\n!\n! !LOCAL VARIABLES:\n!\n    !tdf from dry_settling\n    ! P    Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n    ! Dp   Diameter of aerosol [um]\n    ! PDp  Pressure * DP\n    ! TEMP Temperature (K)\n    ! Slip Slip correction factor\n    ! Visc Viscosity of air (Pa s)\n    ! VTS  Settling velocity of particle (m/s)\n    LOGICAL                :: IS_UPTAKE_SPC\n    INTEGER                :: I,         J,      L\n    INTEGER                :: DryDep_ID, S\n    REAL(fp)               :: DTCHEM\n    REAL(fp)               :: DELZ,      DELZ1,  REFF\n    REAL(fp)               :: P,         DP,     PDP,      TEMP\n    REAL(fp)               :: CONST,     SLIP,   VISC,     FAC1\n    REAL(fp)               :: FAC2,      FLUX,   AREA_CM2, RHB\n    REAL(fp)               :: RUM,       RWET,   RATIO_R\n    REAL(fp)               :: TOT1,      TOT2\n    REAL(fp)               :: DEN\n    REAL(fp)               :: MW_g\n    REAL(f8)               :: RHO1,      WTP,    RHO\n\n    ! Arrays\n    REAL(fp)               :: SALA_REDGE_um(2)\n    REAL(fp)               :: SALC_REDGE_um(2)\n    REAL(fp)               :: VTS(State_Grid%NZ)\n    REAL(fp)               :: TC0(State_Grid%NZ)\n\n    ! Pointers\n    REAL(fp),      POINTER :: TC(:,:,:)\n    TYPE(Species), POINTER :: ThisSpc\n\n    !=================================================================\n    ! GRAV_SETTLING begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n\n    ! Return if tracers are undefined\n    IF ( Input_Opt%LDSTUP ) THEN\n       IF ( id_SO4dbin1 < 0 .and. id_NITdbin1 < 0 ) RETURN ! tdf\n    ENDIF\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    SALA_REDGE_um =  Input_Opt%SALA_REDGE_um\n    SALC_REDGE_um =  Input_Opt%SALC_REDGE_um\n\n    ! Chemistry timestep [s]\n    DTCHEM        =  GET_TS_CHEM()\n\n    ! Look up this species in the species database\n    ThisSpc       => State_Chm%SpcData(N)%Info\n\n    ! Point to the species concentration array\n    TC            => State_Chm%Species(N)%Conc(:,:,:)\n\n    ! Set a logical to denote that the species is one of the dust\n    ! uptake species, i.e. SO4d{1-4}, NITd{1-4} (bmy, 3/17/17)\n    IS_UPTAKE_SPC =  ( ( N /= id_SO4s ) .and. ( N /= id_NITs ) )\n\n    ! Drydep species index\n    DryDep_Id     =  ThisSpc%DryDepId\n\n    ! Molecular weight [g], aerosol radius [m], and density [kg/m3]\n    MW_g          =  ThisSpc%MW_g\n    REFF          =  ThisSpc%Radius\n    DEN           =  ThisSpc%Density\n\n    ! Sea salt radius [cm]\n    ! The Gerber formula for hygroscopic growth uses the radius in\n    ! micrometers instead of centimeters. This fix is implemented by using\n    ! RUM instead of RCM (jaegle 5/5/11)\n    RUM           =  REFF * 1e+6_fp\n\n    ! Exponential factors\n    ! replace with radius in microns (jaegle 5/5/11)\n    FAC1          =  C1 * ( RUM**C2 )\n    FAC2          =  C3 * ( RUM**C4 )\n\n    !$OMP PARALLEL DO                                                       &\n    !$OMP DEFAULT( SHARED                                                 ) &\n    !$OMP PRIVATE( I,       J,     L,    VTS,  P,        TEMP, RHB,  RWET ) &\n    !$OMP PRIVATE( RATIO_R, RHO,   DP,   PDP,  CONST,    SLIP, VISC, TC0  ) &\n    !$OMP PRIVATE( DELZ,    DELZ1, TOT1, TOT2, AREA_CM2, FLUX             ) &\n    !$OMP PRIVATE( RHO1,    WTP,   S                                      ) &\n    !$OMP SCHEDULE( DYNAMIC                                               )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize\n       DO L = 1, State_Grid%NZ\n          VTS(L) = 0e+0_fp\n       ENDDO\n\n       ! Loop over levels\n       DO L = 1, State_Grid%NZ\n\n          ! Pressure at center of the level [kPa]\n          ! Use moist air pressure for mean free path (ewl, 3/2/15)\n          P       = State_Met%PMID(I,J,L) * 0.1e+0_fp\n\n          ! Temperature [K]\n          TEMP    = State_Met%T(I,J,L)\n\n          ! Cap RH at 0.99\n          RHB    = MIN( 0.99e+0_fp, State_Met%RH(I,J,L) * 1e-2_fp )\n\n          ! Safety check (phs, 5/1/08)\n          RHB     = MAX( TINY(RHB), RHB           )\n\n          ! Aerosol growth with relative humidity in radius [m]\n          ! (Gerber, 1985)\n          ! Several bug fixes to the Gerber formulation: a log10 (instead of\n          ! ln) should be used and the dry radius should be expressed in\n          ! micrometers (instead of cm) also add more significant digits to\n          ! the exponent (jaegle 5/5/11)\n          !RWET    = 1d-6*(FAC1/(FAC2-LOG10(RHB))+RUM**3.e+0_fp)**0.33333e+0_fp\n\n          ! Use equation 5 in Lewis and Schwartz (2006) [m] for sea salt\n          ! growth (jaegle 5/11/11)\n          RWET = REFF * (4.e+0_fp / 3.7e+0_fp) * &\n               ( (2.e+0_fp - RHB)/(1.e+0_fp - RHB) )**(1.e+0_fp/3.e+0_fp)\n\n          ! Ratio dry over wet radii at the cubic power\n          RATIO_R = ( REFF / RWET )**3.e+0_fp\n\n          ! Density of the wet aerosol (kg/m3)\n          !RHO     = RATIO_R * DEN + ( 1.e+0_fp - RATIO_R ) * 1000.e+0_fp\n\n          ! Above density calculation is chemically unsound because it\n          ! ignores chemical solvation.\n          ! Iteratively solve Tang et al., 1997 equation 5 to calculate\n          ! density of wet aerosol (kg/m3)\n          ! (bec, jaegle 5/11/11)\n          RATIO_R = ( REFF / RWET )\n          ! Assume an initial density of 1000 kg/m3\n          RHO  = 1000.e+0_f8\n          RHO1 = 0.e+0_f8 !initialize (bec, 6/21/10)\n          DO WHILE ( ABS( RHO1-RHO ) .gt. EPSI )\n             ! First calculate weight percent of aerosol (kg_RH=0.8/kg_wet)\n             WTP    = 100.e+0_f8 * DEN/RHO * RATIO_R**3.e+0_f8\n             ! Then calculate density of wet aerosol using equation 5\n             ! in Tang et al., 1997 [kg/m3]\n             RHO1   = ( 0.9971e+0_f8 + (A1 * WTP) &\n                      + (A2 * WTP**2.e+0_f8) &\n                      + (A3 * WTP**3.e+0_f8) &\n                      + (A4 * WTP**4.e+0_f8) ) * 1000.e+0_f8\n             ! Now calculate new weight percent using above density\n             ! calculation\n             WTP    = 100.e+0_f8 * DEN/RHO1 * RATIO_R**3.e+0_f8\n             ! Now recalculate new wet density [kg/m3]\n             RHO    = ( 0.9971e+0_f8 + (A1 * WTP) &\n                      + (A2 * WTP**2.e+0_f8) &\n                      + (A3 * WTP**3.e+0_f8) &\n                      + (A4 * WTP**4.e+0_f8) ) * 1000.e+0_f8\n          ENDDO\n\n          ! Dp = particle diameter [um]\n          ! Use dry radius for dust uptake species\n          ! Use wet radius for SO4s, NITs (tdf, bmy, 3/17/17)\n          IF ( IS_UPTAKE_SPC ) THEN\n             DP = 2.e+0_fp * REFF * 1.e+6_fp  ! SO4d*, NITd*\n          ELSE\n             DP = 2.e+0_fp * RWET * 1.e+6_fp  ! SO4s,  NITs\n          ENDIF\n\n          ! PdP = P * dP [hPa * um]\n          PDp = P * Dp\n\n          ! Constant\n          ! Use dry radius for dust uptake species\n          ! Use wet radius for SO4s, NITs (tdf, bmy, 3/17/17)\n          IF ( IS_UPTAKE_SPC ) THEN\n             CONST = 2.e+0_fp * DEN * REFF**2 * g0 / 9.e+0_fp ! SO4d*, NITd*\n          ELSE\n             CONST = 2.e+0_fp * RHO * RWET**2 * g0 / 9.e+0_fp ! SO4s,  NITs\n          ENDIF\n\n          !===========================================================\n          ! NOTE: Slip correction factor calculations following\n          ! Seinfeld, pp464 which is thought to be more accurate\n          ! but more computation required. (rjp, 1/24/02)\n          !\n          ! # air molecule number density\n          ! num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n          !\n          ! # gas mean free path\n          ! lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n          !\n          ! # Slip correction\n          ! Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp\n          !     &     / (2. * lamda))) / Dp\n          !\n          ! NOTE: Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n          ! which produces slip correction factore with small error\n          ! compared to the above with less computation.\n          !===========================================================\n\n          ! Slip correction factor (as function of P*dp)\n          Slip = 1.e+0_fp+(15.60e+0_fp + 7.0e+0_fp * &\n               EXP(-0.059e+0_fp * PDp)) / PDp\n\n          !=====================================================\n          ! NOTE, Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n          ! which produce slip correction factor with small\n          ! error compared to the above with less computation.\n          ! tdf\n          !=====================================================\n\n          ! Viscosity [Pa*s] of air as a function of temperature\n          VISC = 1.458e-6_fp * (Temp)**(1.5e+0_fp) / &\n                 ( Temp + 110.4e+0_fp )\n\n          ! Settling velocity [m/s]\n          VTS(L) = CONST * Slip / VISC\n       ENDDO\n\n       ! Method is to solve bidiagonal matrix which is\n       ! implicit and first order accurate in z (rjp, 1/24/02)\n\n       ! Save initial tracer concentration in column\n       DO L = 1, State_Grid%NZ\n          TC0(L) = TC(I,J,L)\n       ENDDO\n\n       ! We know the boundary condition at the model top\n       L    = State_Met%MaxChemLev\n       DELZ = State_Met%BXHEIGHT(I,J,L)\n\n       TC(I,J,L) = TC(I,J,L) / ( 1.e+0_fp + DTCHEM * VTS(L) / DELZ )\n\n       DO L = State_Met%MaxChemLev-1, 1, -1\n          DELZ  = State_Met%BXHEIGHT(I,J,L)\n          DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n          TC(I,J,L) = 1.e+0_fp / ( 1.e+0_fp + DTCHEM * VTS(L) / DELZ ) &\n                      * ( TC(I,J,L) + DTCHEM * VTS(L+1) / DELZ1 &\n                      *  TC(I,J,L+1) )\n       ENDDO\n\n       !-----------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       ! Dry deposition flux loss [molec/cm2/s]\n       !\n       ! NOTE: Eventually think about converting this\n       ! diagnostic to more standard units [kg/m2/s]\n       !-----------------------------------------------------------\n       IF ( State_Diag%Archive_DryDepChm .OR. &\n            State_Diag%Archive_DryDep        ) THEN\n\n          ! Initialize\n          TOT1 = 0e+0_fp\n          TOT2 = 0e+0_fp\n\n          ! Compute column totals of TCO(:) and TC(I,J,:,N)\n          DO L = 1, State_Grid%NZ\n             TOT1 = TOT1 + TC0(L)\n             TOT2 = TOT2 + TC(I,J,L)\n          ENDDO\n\n          ! Surface area [cm2]\n          AREA_CM2 = State_Grid%Area_M2(I,J) * 1e+4_fp\n\n          ! Convert sea salt/dust flux from [kg/s] to [molec/cm2/s]\n          FLUX     = ( TOT1 - TOT2 ) / DTCHEM\n          FLUX     = FLUX * AVO / ( MW_g * 1.e-3_fp ) / AREA_CM2\n\n          ! Drydep flux in chemistry only\n          S = State_Diag%Map_DryDepChm%id2slot(DryDep_Id)\n          IF ( S > 0 ) THEN\n             State_Diag%DryDepChm(I,J,S) = FLUX\n          ENDIF\n       ENDIF\n\n    ENDDO ! I\n    ENDDO ! J\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    ThisSpc => NULL()\n    TC      => NULL()\n\n  END SUBROUTINE GRAV_SETTLING\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_dms\n!\n! !DESCRIPTION: Subroutine CHEM\\_DMS is the DMS chemistry subroutine from Mian\n!  Chin's GOCART model, modified for use with the GEOS-CHEM model.\n!  (rjp, bdf, bmy, 5/31/00, 10/15/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_DMS( Input_Opt,  State_Chm, State_Diag, &\n                       State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE Species_Mod,      ONLY : SpcConc\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Diag_Mod,   ONLY : DgnState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE TIME_MOD,         ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Reaction List (by Mian Chin, chin@rondo.gsfc.nasa.gov)\n!  ============================================================================\n!                                                                             .\n!  R1:    DMS + OH  -> a*SO2 + b*MSA                OH addition channel\n!         k1 = { 1.7e-42*exp(7810/T)*[O2] / (1+5.5e-31*exp(7460/T)*[O2] }\n!         a = 0.75, b = 0.25\n!                                                                             .\n!  R2:    DMS + OH  ->   SO2 + ...                  OH abstraction channel\n!         k2 = 1.2e-11*exp(-260/T)\n!                                                                             .\n!         DMS_OH = DMS0 * exp(-(r1+r2)* NDT1)\n!         where DMS0 is the DMS concentration at the beginning,\n!         r1 = k1*[OH], r2 = k2*[OH].\n!                                                                             .\n!  R3:    DMS + NO3 ->   SO2 + ...\n!         k3 = 1.9e-13*exp(500/T)\n!                                                                             .\n!         DMS = DMS_OH * exp(-r3*NDT1)\n!         where r3 = k3*[NO3].\n!                                                                             .\n!  R4:    DMS + X   ->   SO2 + ...\n!         assume to be at the rate of DMS+OH and DMS+NO3 combined.\n!                                                                             .\n!  The production of SO2 and MSA here, PSO2_DMS and PMSA_DMS, are saved\n!  for use in CHEM_SO2 and CHEM_MSA subroutines as a source term.  They\n!  are in unit of [v/v/timestep].\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: FX = 1.0e+0_fp\n    REAL(fp), PARAMETER :: A  = 0.75e+0_fp\n    REAL(fp), PARAMETER :: B  = 0.25e+0_fp\n\n    ! From D4: only 0.8 efficiency, also some goes to DMSO and lost.\n    ! So we assume 0.75 efficiency for DMS addtion channel to form\n    ! products.\n    REAL(fp), PARAMETER :: EFF = 1e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL             :: IS_FULLCHEM\n    INTEGER             :: I,    J,    L\n    REAL(fp)            :: TK,   O2,   RK1,    RK2,    RK3,   F\n    REAL(fp)            :: DMS,  DMS0, DMS_OH, DTCHEM, XOH,   XN3\n    REAL(fp)            :: XX,   OH,   OH0,    XNO3,   XNO30, LOH\n    REAL(fp)            :: LNO3, BOXVL\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ErrMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Arrays\n    REAL(fp)            :: GLOBAL_NO3(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    !=================================================================\n    ! CHEM_DMS begins here!\n    !=================================================================\n    IF ( id_DMS < 0 ) RETURN\n\n    ! Assume success\n    RC          = GC_SUCCESS\n\n    ! Set location for error messages\n    ThisLoc  = ' -> at CHEM_DMS (in module GeosCore/sulfate_mod.F90)'\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    IS_FULLCHEM = Input_Opt%ITS_A_FULLCHEM_SIM\n\n    ! Point to chemical species array [v/v dry]\n    Spc         => State_Chm%Species\n\n    ! DTCHEM is the chemistry timestep in seconds\n    DTCHEM      = GET_TS_CHEM()\n\n    ! Factor to convert AIRDEN from kgair/m3 to molecules/cm3:\n    f           = 1000.e+0_fp / AIRMW * AVO * 1.e-6_fp\n\n    ! Evaluate offline global NO3 from HEMCO\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_NO3', GLOBAL_NO3, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get data for GLOBAL_NO3 from HEMCO!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! Do the chemistry over all chemically-active grid boxes!\n    !=================================================================\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, TK, O2, DMS0,OH, XNO3, RK1, RK2, BOXVL ) &\n    !$OMP PRIVATE( RK3, DMS_OH, DMS, OH0, XNO30, XOH, XN3, XX, LOH, LNO3 ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       ! Temperature [K]\n       TK     = State_Met%T(I,J,L)\n\n       ! Get O2 [molec/cm3], DMS [v/v], OH [molec/cm3]\n       O2     = State_Met%AIRDEN(I,J,L) * f * 0.21e+0_fp\n       DMS0   = Spc(id_DMS)%Conc(I,J,L)\n       OH     = GET_OH(  I, J, L, Input_Opt, State_Chm, State_Met )\n\n       ! Get NO3 [molec/cm3]\n       !==============================================================\n       ! Offline simulation: Read monthly mean GEOS-CHEM NO3 fields\n       ! If at nighttime, use the monthly mean NO3 concentration from\n       ! the NO3 array.  If during the daytime, set the NO3 concentration\n       ! to zero.  We don't have to relax to the monthly mean\n       ! concentration every 3 hours (as for HNO3) since NO3 has a\n       ! very short lifetime. (rjp, bmy, 12/16/02)\n       !==============================================================\n       IF ( State_Met%SUNCOS(I,J) > 0e+0_fp ) THEN\n          ! NO3 goes to zero during the day\n          XNO3 = 0e+0_fp\n       ELSE\n          ! At night: Get global offline NO3 [v/v] and convert to [molec/cm3]\n          XNO3 = GLOBAL_NO3(I,J,L) * State_Met%AIRDEN(I,J,L) * 1.0e-3_fp &\n                                   * AVO / AIRMW\n       ENDIF\n       ! Make sure NO3 is not negative\n       XNO3  = MAX( XNO3, 0e+0_fp )\n\n       !==============================================================\n       ! (1) DMS + OH:  RK1 - addition channel\n       !                RK2 - abstraction channel\n       !==============================================================\n       RK1 = 0.e+0_fp\n       RK2 = 0.e+0_fp\n       RK3 = 0.e+0_fp\n\n       IF ( OH > 0.e+0_fp ) THEN\n          RK1 = ( 1.7e-42_fp * EXP( 7810.e+0_fp / TK ) * O2 ) / &\n                ( 1.e+0_fp + 5.5e-31_fp * EXP( 7460.e+0_fp / TK ) * O2 ) * OH\n\n          ! Update reaction rate to match JPL06 and full chem\n          ! (jaf, bmy, 10/15/09)\n          RK2 = 1.1e-11_fp * EXP( -240.e+0_fp / TK ) * OH\n       ENDIF\n\n       !==============================================================\n       ! (2) DMS + NO3 (only happens at night):\n       !==============================================================\n       IF ( State_Met%SUNCOS(I,J) <= 0e+0_fp ) THEN\n          RK3 = 1.9e-13_fp * EXP( 500.e+0_fp / TK ) * XNO3\n       ENDIF\n\n       !==============================================================\n       ! Update DMS concentrations after reaction with OH and NO3,\n       ! and also account for DMS + X assuming at a rate as\n       ! (DMS+OH)*Fx in the day and (DMS+NO3)*Fx at night:\n       !\n       ! DMS_OH :  DMS concentration after reaction with OH\n       ! DMS    :  DMS concentration after reaction with NO3\n       !           (min(DMS) = 1.0E-32)\n       !\n       ! NOTE: If we are doing a coupled fullchem/aerosol run, then\n       ! also modify OH and NO3 concentrations after rxn w/ DMS.\n       !==============================================================\n       DMS_OH = DMS0   * EXP( -( RK1 + RK2 ) * Fx * DTCHEM )\n       DMS    = DMS_OH * EXP( -( RK3       ) * Fx * DTCHEM )\n       IF ( DMS < SMALLNUM ) DMS = 0e+0_fp\n\n       ! Archive initial OH and NO3 for diagnostics\n       OH0    = OH\n       XNO30  = XNO3\n\n       IF ( IS_FULLCHEM ) THEN\n\n          ! Update OH after rxn w/ DMS (coupled runs only)\n          OH    = OH0 - ( ( DMS0 - DMS_OH ) * State_Met%AIRDEN(I,J,L) * f )\n          IF ( OH < SMALLNUM ) OH = 0e+0_fp\n\n          ! Update NO3 after rxn w/ DMS (coupled runs only)\n          XNO3  = XNO30 - ( ( DMS_OH - DMS ) * State_Met%AIRDEN(I,J,L) * f )\n          IF ( XNO3 < SMALLNUM ) XNO3 = 0e+0_fp\n\n       ENDIF\n\n       ! Save DMS back to the tracer array\n       Spc(id_DMS)%Conc(I,J,L) = DMS\n\n       !==============================================================\n       ! Save SO2 and MSA production from DMS oxidation\n       ! in [mixing ratio/timestep]:\n       !\n       ! SO2 is formed in DMS+OH addition (0.85) and abstraction\n       ! (1.0) channels as well as DMS + NO3 reaction.  We also\n       ! assume that SO2 yield from DMS + X is 1.0.\n       !\n       ! MSA is formed in DMS + OH addition (0.15) channel.\n       !==============================================================\n       IF ( ( RK1 + RK2 ) == 0.e+0_fp ) THEN\n          PMSA_DMS(I,J,L) = 0.e+0_fp\n       ELSE\n          PMSA_DMS(I,J,L) = ( DMS0 - DMS_OH ) * &\n                              B*RK1 / ( ( RK1 + RK2 ) * Fx ) * EFF\n       ENDIF\n\n       PSO2_DMS(I,J,L) =  DMS0 - DMS - PMSA_DMS(I,J,L)\n\n       !==============================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Production and loss diagnostics\n       !==============================================================\n\n       ! P(SO2) from DMS+OH, DMS+NO3, and DMS+X\n       XOH  = ( DMS0   - DMS_OH - PMSA_DMS(I,J,L) ) / &\n                  Fx   * State_Met%AD(I,J,L) / TCVV_S\n       XN3  = ( DMS_OH - DMS ) / Fx * State_Met%AD(I,J,L) / TCVV_S\n       XX   = ( ( DMS0 - DMS ) * State_Met%AD(I,J,L) / TCVV_S ) &\n                - XOH  - XN3\n\n       ! Grid box volume [cm3]\n       BOXVL = State_Met%AIRVOL(I,J,L) * 1e+6_fp\n\n       ! Convert L(OH) and L(NO3) from [molec/cm3] to [kg/timestep]\n       LOH  = ( OH0   - OH  ) * BOXVL / XNUMOL_OH\n       LNO3 = ( XNO30 - XNO3) * BOXVL / XNUMOL_NO3\n\n       ! Store P(SO2) from DMS + OH [kg S/s]\n       IF ( State_Diag%Archive_ProdSO2fromDMSandOH ) THEN\n          State_Diag%ProdSO2fromDMSandOH(I,J,L) = XOH / DTCHEM\n       ENDIF\n\n       ! Store P(SO2) from DMS + NO3 [kg S/s]\n       IF ( State_Diag%Archive_ProdSO2fromDMSandNO3 ) THEN\n          State_Diag%ProdSO2fromDMSandNO3(I,J,L) = XN3 / DTCHEM\n       ENDIF\n\n       ! Store P(SO2) from DMS + NO3 [kg S/s]\n       IF ( State_Diag%Archive_ProdSO2fromDMS ) THEN\n          State_Diag%ProdSO2fromDMS(I,J,L) = &\n               ( PSO2_DMS(I,J,L) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n       ENDIF\n\n       ! Store P(MSA) from DMS [kg S/s]\n       IF ( State_Diag%Archive_ProdMSAfromDMS ) THEN\n          State_Diag%ProdMSAfromDMS(I,J,L) = &\n               ( PMSA_DMS(I,J,L) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n       ENDIF\n\n       !==============================================================\n       ! For a coupled fullchem/aerosol run, save OH [molec/cm3]\n       ! and NO3 [molec/cm3] back into State_Chm%Species\n       !==============================================================\n       IF ( IS_FULLCHEM ) THEN\n          Spc(id_OH  )%Conc(I,J,L) = OH\n          Spc(id_NO3 )%Conc(I,J,L) = XNO3\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHEM_DMS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_h2o2\n!\n! !DESCRIPTION: Subroutine CHEM\\_H2O2 is the H2O2 chemistry subroutine for\n!  offline sulfate simulations.  For coupled runs, H2O2 chemistry is already\n!  computed by the SMVGEAR module. (rjp, bmy, 11/26/02, 10/25/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_H2O2( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                        State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE Species_Mod,      ONLY : SpcConc\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Diag_Mod,   ONLY : DgnState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE TIME_MOD,         ONLY : GET_MONTH\n    USE TIME_MOD,         ONLY : GET_TS_CHEM\n    USE TIME_MOD,         ONLY : ITS_A_NEW_MONTH\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOC\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: A = 2.9e-12_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd Scalars\n    LOGICAL            :: FIRST     = .TRUE.\n    INTEGER, SAVE      :: LASTMONTH = -99\n\n    ! Scalars\n    INTEGER            :: I,     J,    L\n    REAL(fp)           :: DT,    Koh,  DH2O2, M,    F ,   XTAU\n    REAL(fp)           :: H2O20, H2O2, ALPHA, FREQ, PHOTJ\n\n    ! Strings\n    CHARACTER(LEN=255) :: FILENAME, ErrMsg, ThisLoc\n\n    ! Arrays\n    REAL(fp)           :: PH2O2m(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp)           :: JH2O2(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n\n    !=================================================================\n    ! CHEM_H2O2 begins here!\n    !=================================================================\n    IF ( id_H2O2 < 0 ) RETURN\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Set location for error messages\n    ThisLoc  = ' -> at CHEM_H2O2 (in module GeosCore/sulfate_mod.F90)'\n\n    ! Point to chemical species array [v/v dry]\n    Spc       => State_Chm%Species\n\n    ! Chemistry timestep [s]\n    DT        = GET_TS_CHEM()\n\n    ! Factor to convert AIRDEN from kgair/m3 to molecules/cm3:\n    F         = 1000.e+0_fp / AIRMW * AVO * 1.e-6_fp\n\n    ! Evaluate offline fields from HEMCO for P(H2O2) [molec/cm3/s]\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'PH2O2', PH2O2m, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get data for PH2O2 from HEMCO!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Evaluate offline fields from HEMCO for J(H2O2) [1/s]\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'JH2O2', JH2O2, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot get data for JH2O2 from HEMCO!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! Loop over tropopsheric grid boxes and do chemistry\n    !=================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, M, H2O20, KOH, FREQ, ALPHA, DH2O2, H2O2, PHOTJ  )&\n    !$OMP SCHEDULE( DYNAMIC, 8                                              )&\n    !$OMP COLLAPSE( 3                                                       )\n    DO L  = 1, State_Grid%NZ\n    DO J  = 1, State_Grid%NY\n    DO I  = 1, State_Grid%NX\n\n       ! Initialize for safety's sake\n       FREQ  = 0.0_fp\n       PHOTJ = 0.0_fp\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       ! Density of air [molec/cm3]\n       M     = State_Met%AIRDEN(I,J,L) * F\n\n       ! Initial H2O2 [v/v]\n       H2O20 = Spc(id_H2O2)%Conc(I,J,L)\n\n       ! Loss frequenty due to OH oxidation [s-1]\n       KOH   = A * EXP( -160.0_fp / State_Met%T(I,J,L) ) * &\n               GET_OH( I, J, L, Input_Opt, State_Chm, State_Met )\n\n       ! Impose a diurnal variation of jH2O2 by multiplying COS of\n       ! solar zenith angle normalized by maximum solar zenith angle\n       ! because the archived JH2O2 is for local noon time\n       IF ( COSZM(I,J) > 0.0_fp ) THEN\n          PHOTJ = JH2O2(I,J,L) * State_Met%SUNCOS(I,J) / COSZM(I,J)\n          PHOTJ = MAX( PHOTJ, 0.0_fp )\n       ENDIF\n\n       ! Compute loss fraction from OH, photolysis, drydep [unitless].\n       ALPHA = 1.0_fp + ( KOH + PHOTJ + FREQ ) * DT\n\n       ! Delta H2O2 [v/v]\n       DH2O2 = ( PH2O2m(I,J,L) * DT ) / ( ALPHA * M )\n\n       ! Final H2O2 [v/v]\n       H2O2  = ( H2O20 / ALPHA + DH2O2 )\n       IF ( H2O2 < SMALLNUM ) H2O2 = 0.0_fp\n\n       ! Store final H2O2 in Spc\n       Spc(id_H2O2)%Conc(I,J,L) = H2O2\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHEM_H2O2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_so2\n!\n! !DESCRIPTION: Subroutine CHEM\\_SO2 is the SO2 chemistry subroutine.\n!  (rjp, bmy, 11/26/02, 8/26/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_SO2( Input_Opt, State_Chm,  State_Diag, State_Grid, &\n                       State_Met, FullRun,    RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,         ONLY : NDSTBIN\n    USE DUST_MOD,             ONLY : GET_DUST_ALK      ! tdf 04/08/08\n    USE ErrCode_Mod\n    USE ERROR_MOD,            ONLY : IS_SAFE_EXP\n    USE ERROR_MOD,            ONLY : SAFE_DIV\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE PRESSURE_MOD,         ONLY : GET_PCENTER\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE TIME_MOD,             ONLY : GET_TS_CHEM, GET_MONTH\n    USE TIME_MOD,             ONLY : ITS_A_NEW_MONTH\n    USE HCO_State_GC_Mod,     ONLY : HcoState\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld, HCO_GC_GetDiagn, LoadHcoValEmis\n#ifdef APM\n    USE APM_DRIV_MOD,         ONLY : PSO4GAS\n    USE APM_DRIV_MOD,         ONLY : XO3\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    LOGICAL,        INTENT(IN)    :: FullRun     ! Modify species conc?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Reaction List (by Rokjin Park)\n!  ============================================================================\n!  (1 ) SO2 production:\n!       (a) DMS + OH, DMS + NO3 (saved in CHEM_DMS)\n!       (b) HMS -> SO2 + HCHO (aq)\n!                                                                             .\n!  (2 ) SO2 loss:\n!       (a) SO2 + OH  -> SO4\n!       (b) SO2       -> drydep\n!       (c) SO2 + H2O2 or O3 (aq) -> SO4\n!       (d) SO2 + HCHO (aq)-> HMS\n!       (d) SO2 + HMS -> 2 SO4\n!                                                                             .\n!  (3 ) SO2 = SO2_0 * exp(-bt) +  PSO2_DMS/bt * [1-exp(-bt)]\n!                                                                             .\n!       where b is the sum of the reaction rate of SO2 + OH and the dry\n!       deposition rate of SO2, PSO2_DMS is SO2 production from DMS in\n!       MixingRatio/timestep.\n!                                                                             .\n!  If there is cloud in the gridbox (fraction = fc), then the aqueous\n!  phase chemistry also takes place in cloud. The amount of SO2 oxidized\n!  by H2O2 in cloud is limited by the available H2O2; the rest may be\n!  oxidized due to additional chemistry, e.g, reaction with O3 or O2\n!  (catalyzed by trace metal).\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp),  PARAMETER  :: HPLUS_45  = 3.16227766016837953e-5_fp  !pH = 4.5\n    REAL(fp),  PARAMETER  :: HPLUS_50  = 1.0e-5_fp  !pH = 5.0\n    REAL(fp),  PARAMETER  :: MINDAT    = 1.e-20_fp\n    REAL(fp),  PARAMETER  :: TNA_CONV  = 31.6_fp * 0.359_fp / 23.0_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL               :: DO_SEASALT_CHEM\n    LOGICAL               :: IS_OFFLINE\n    LOGICAL               :: IS_FULLCHEM\n    LOGICAL               :: LDSTUP\n    INTEGER               :: I,      J,       L\n    INTEGER               :: II,     NSTEP\n    INTEGER               :: BULK,   SIZE_RES\n    INTEGER               :: IBIN\n    REAL(fp)              :: K0,     Ki,      KK,     M,    L1\n    REAL(fp)              :: L2,     L3,      Ld,     F,    Fc\n    REAL(fp)              :: RK,     RKT,     DTCHEM, DT_T, TK\n    REAL(fp)              :: F1,     RK1,     RK2,    RK3,  SO20\n    REAL(fp)              :: SO2_cd, H2O20,   O3,     L2S,  L3S\n    REAL(fp)              :: LWC,    KaqH2O2, KaqO3,  PATM\n    REAL(fp)              :: ALK,    ALK1,    ALK2,    SO2_ss\n    REAL(fp)              :: AlkA,   AlkC\n    REAL(fp)              :: Kt1,    Kt2\n    REAL(fp)              :: PSO4E,  PSO4F,   Kt1N,    Kt2N\n    REAL(fp)              :: XX, Kt1L, Kt2L\n    REAL(fp)              :: HPLUS,  SO4nss, TNH3,   TNO3,  GNO3, ANIT\n    REAL(fp)              :: LSTOT,  ALKdst, ALKss,  ALKds, NH3, CL, TNA\n    REAL(fp)              :: SSCvv,  aSO4,   SO2_sr, SR,    TANIT\n    REAL(fp)              :: TFA,  TAA,   TDCA    ! (jmm, 12/03/2018)\n    REAL(fp)              :: HCHO0,  HMSc,    KaqHCHO, KaqHMS    ! (jmm, 06/07/2018)\n    REAL(fp)              :: L7,     L7S,    L7_b, L7S_b, HMS0   ! (jmm, 06/07/2018)\n    REAL(fp)              :: L8,     L8S,    OH0, KaqHMS2       ! (jmm, 06/26/2018)\n    REAL(fp)              :: PSO4d_tot, PNITd_tot\n    REAL(fp)              :: SO2_gas,   PH2SO4d_tot\n    REAL(fp)              :: H2SO4_cd,  H2SO4_gas\n\n    ! (qjc, 04/10/16)\n    REAL(fp)              :: L5,L5S,SRo3,SRhobr\n    REAL(fp)              :: L5_1,L5S_1,L3_1,L3S_1,KaqO3_1\n    REAL(fp)              :: HSO3aq, SO3aq\n    REAL(fp)              :: SO4H1_vv, SO4H2_vv, LSTOT0\n    REAL(fp)              :: SO2_ss0, rSIV, fupdateHOBr_0\n    REAL(fp)              :: HCO3, HCHOBr, KO3, KHOBr, f_srhobr, HOBr0\n    REAL(fp)              :: TMP, LSTOT_HMS                ! (jmm, 06/15/18)\n\n    REAL(fp)              :: KaqO2, L4, L4S, MnII, FeIII\n    REAL(fp)              :: DUST,  Mn_ant,  Mn_nat\n    REAL(fp)              :: Mn_tot, Mn_d,    Fe_d\n    REAL(fp)              :: Fe_ant, Fe_nat,  Fe_tot\n    REAL(fp)              :: Fe_d_ant, Fe_d_nat\n    REAL(fp)              :: IONIC\n\n\n    REAL(fp)              :: L6,L6S,SRhocl,L6_1,L6S_1      !XW\n    REAL(fp)              :: SO4H3_vv, SO4H4_vv            !XW\n    REAL(fp)              :: fupdateHOCl_0  !XW\n    REAL(fp)              :: HCHOCl, KHOCl, f_srhocl, HOCl0 !XW\n    REAL(fp)              :: one_m_KRATE\n\n    ! Arrays\n    ! tdf 04/07/08\n    REAL(fp)              :: ALK_d   (NDSTBIN)\n    REAL(fp)              :: ALKA_d  (NDSTBIN)\n    REAL(fp)              :: PSO4_d  (NDSTBIN)\n    REAL(fp)              :: PNIT_d  (NDSTBIN)\n    REAL(fp)              :: PH2SO4_d(NDSTBIN)\n    REAL(fp)              :: KTN     (NDSTBIN)\n    REAL(fp)              :: KTS     (NDSTBIN)\n    REAL(fp)              :: KTH     (NDSTBIN)\n    !tdf KTH now contains the fraction of uptake of H2SO4 on to each of the\n    ! dust size bins, based on a size- and area-weighted formulism\n    ! (GET_DUST_ALK)\n    REAL(fp)              :: O3m(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    !REAL(fp), POINTER     :: SSAlk(:,:,:,:)\n    REAL(fp), POINTER     :: H2O2s(:,:,:)\n    REAL(fp), POINTER     :: SO2s(:,:,:)\n    REAL(f4), POINTER     :: Ptr2D(:,:) => NULL()\n\n    ! For HEMCO update\n    LOGICAL, SAVE         :: FIRST = .TRUE.\n\n    CHARACTER(LEN=255)    :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! CHEM_SO2 begins here!\n    !=================================================================\n    IF ( id_H2O2 < 0 .or. id_SO2 < 0  ) RETURN\n\n    ! Assume success\n    RC          = GC_SUCCESS\n    ErrMsg      = ''\n    ThisLoc     = ' -> at CHEM_SO2 (in module GeosCore/sulfate_mod.F90)'\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    IS_FULLCHEM          =  Input_Opt%ITS_A_FULLCHEM_SIM\n    IS_OFFLINE           =  Input_Opt%ITS_AN_AEROSOL_SIM\n    LDSTUP               =  Input_Opt%LDSTUP\n    DTCHEM               =  GET_TS_CHEM()\n    Spc                  => State_Chm%Species\n    H2O2s                => State_Chm%H2O2AfterChem\n    SO2s                 => State_Chm%SO2AfterChem\n    State_Chm%isCloud    =  0.0_fp\n!    State_Chm%pHcloud    =  0.0_fp\n    State_Chm%pHcloud    =  4.5_fp\n    State_Chm%QLxpHcloud =  0.0_fp\n#ifdef LUO_WETDEP\n    State_Chm%pHrain     =  5.6_fp\n    State_Chm%QQpHrain   =  0.0_fp\n    State_Chm%QQrain     =  0.0_fp\n#endif\n\n    ! Set a flag for when to call the SeaSalt_Chem routine\n    DO_SEASALT_CHEM =                                                        &\n         ( State_Chm%Do_SulfateMod_SeaSalt                           ) .or.  &\n         ( .not. FullRun .and. .not. State_Chm%Do_SulfateMod_SeaSalt )\n\n    ! Factor to convert AIRDEN from [kg air/m3] to [molec air/cm3]\n    F        = 1000.e+0_fp / AIRMW * AVO * 1.e-6_fp\n\n    ! On first call, get pointers to HEMCO diagnostics arrays.\n    ! These are the sea salt aerosol number densities for the fine\n    ! and coarse mode, respectively. Values are in # / surface grid\n    ! box. These values are needed in the GET_ALK call below.\n    ! If the diagnostics are not being found, e.g. because the\n    ! sea salt emissions extension is turned off, the passed\n    ! pointers NDENS_SALA and NDENS_SALC will stay nullified.\n    ! Values of zero will be used in this case! (ckeller, 01/12/2015)\n    !IF ( FIRST ) THEN\n\n       ! Sea salt density, fine mode\n\n#if !defined( MODEL_BCC ) && !defined( MODEL_CESM )\n      CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, 'SEASALT_DENS_FINE', &\n                       StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n\n      ! Trap potential errors\n      IF ( RC /= HCO_SUCCESS ) THEN\n        ErrMsg = 'Cannot get HEMCO field SEASALT_DENS_COARSE!'\n        CALL GC_Error( ErrMsg, RC, ThisLoc )\n        RETURN\n      ENDIF\n\n      IF ( ASSOCIATED( Ptr2D ) ) THEN\n        ALLOCATE( NDENS_SALA( State_Grid%NX, State_Grid%NY ), STAT=RC )\n        NDENS_SALA(:,:) = Ptr2D(:,:)\n      ENDIF\n      Ptr2D => NULL()\n\n      ! Sea salt density, coarse mode\n      CALL HCO_GC_GetDiagn( Input_Opt, State_Grid, 'SEASALT_DENS_COARSE', &\n                        StopIfNotFound=.FALSE., RC=RC, Ptr2D=Ptr2D )\n\n      ! Trap potential errors\n      IF ( RC /= HCO_SUCCESS ) THEN\n         ErrMsg = 'Cannot get HEMCO field SEASALT_DENS_COARSE!'\n         CALL GC_Error( ErrMsg, RC, ThisLoc )\n         RETURN\n      ENDIF\n\n      IF ( ASSOCIATED( Ptr2D ) ) THEN\n        ALLOCATE( NDENS_SALC( State_Grid%NX, State_Grid%NY ), STAT=RC )\n        NDENS_SALC(:,:) = Ptr2D(:,:)\n      ENDIF\n      Ptr2D => NULL()\n#endif\n\n    !IF ( FIRST ) THEN\n       ! Adjust first flag\n    !   FIRST = .FALSE.\n    !ENDIF\n\n    ! If offline aerosol simulation, evaluate fields from HEMCO\n    IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_O3', O3m, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get data for GLOBAL_O3 from HEMCO!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_HCOOH', GLOBAL_HCOOH, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get data for GLOBAL_HCOOH from HEMCO!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'GLOBAL_ACTA', GLOBAL_ACTA, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot get data for GLOBAL_ACTA from HEMCO!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Load emissions into buffer first for ALK1, ALK2\n    ! BEFORE entering loop (hplin, 9/27/20)\n    CALL LoadHcoValEmis ( Input_Opt, State_Grid, id_SALA )\n    CALL LoadHcoValEmis ( Input_Opt, State_Grid, id_SALC, AltBuffer=.true. )\n\n    ! Loop over chemistry grid boxes\n    ! NOTE: Bob Yantosca verified that these !$OMP PRIVATE statements\n    ! are correct (12/11/20).  Make sure you add variables to the !$OMP\n    ! PRIVATE declaration if they are (1) Scalar variables; (2) Pointers\n    ! to other variables; (3) Arrays that have less than (I,J,L) scope.\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,        J,             L,         SO20,     H2O20      )&\n    !$OMP PRIVATE( O3,       PATM,          TK,        K0,       M          )&\n    !$OMP PRIVATE( KK,       F1,            RK1,       RK2,      RK         )&\n    !$OMP PRIVATE( RKT,      SO2_cd,        L1,        Ld,       L2         )&\n    !$OMP PRIVATE( L2S,      L3,            L3S,       FC,       LWC        )&\n    !$OMP PRIVATE( KaqH2O2,  KaqO3,         ALK,       ALK1,     ALK2       )&\n    !$OMP PRIVATE( Kt1,      Kt2,           SO2_ss,    Kt1N,     Kt2N       )&\n    !$OMP PRIVATE( PSO4E,    PSO4F,         XX,        Kt1L,     Kt2L       )&\n    !$OMP PRIVATE( TFA,      TAA,           TDCA,      HPLUS,    SO4nss     )&\n    !$OMP PRIVATE( TNH3,     TNO3,          CL,        GNO3,     ANIT       )&\n    !$OMP PRIVATE( LSTOT,    ALKdst,        ALKds,     ALKss,    NH3        )&\n    !$OMP PRIVATE( SSCvv,    aSO4,          SO2_sr,    SR,       TANIT      )&\n    !$OMP PRIVATE( BULK,     SIZE_RES,      RC,        AlkA,     AlkC       )&\n    !$OMP PRIVATE( ALK_d,    KTS,           KTN,       PSO4_d,   PH2SO4_d   )&\n    !$OMP PRIVATE( PNIT_d,   SO2_gas,       KTH,       H2SO4_cd, H2SO4_gas  )&\n    !$OMP PRIVATE( Ki,       PH2SO4d_tot,   PSO4d_tot, IBIN,     PNITd_tot  )&\n    !$OMP PRIVATE( ALKA_d,   L5,            L5S,       SRo3,     SRhobr     )&\n    !$OMP PRIVATE( L3_1,     L3S_1,         KaqO3_1,   L5_1,     L5S_1      )&\n    !$OMP PRIVATE( HSO3aq,   SO3aq,         SO4H1_vv,  SO4H2_vv, LSTOT0     )&\n    !$OMP PRIVATE( SO2_ss0,  rSIV,          L6S_1,     HCO3,     HCHOBr     )&\n    !$OMP PRIVATE( KO3,      KHOBr,         f_srhobr,  HOBr0,    TMP        )&\n    !$OMP PRIVATE( L4,       L4S,           DUST,      Mn_ant,   Mn_nat     )&\n    !$OMP PRIVATE( Mn_tot,   Fe_ant,        Fe_nat,    Fe_tot,   Fe_d       )&\n    !$OMP PRIVATE( Mn_d,     FeIII,         MnII,      Fe_d_ant, Fe_d_nat   )&\n    !$OMP PRIVATE( HCHOCl,   KHOCl,         f_srhocl,  HOCl0,    L6         )&\n    !$OMP PRIVATE( L6S,      fupdateHOBr_0, SRhocl,    L6_1,     SO4H3_vv   )&\n    !$OMP PRIVATE( SO4H4_vv, fupdateHOCl_0, KaqO2,     TNA,      one_m_KRATE)&\n    !$OMP PRIVATE( HCHO0,    HMSc,          HMS0,      OH0,      KaqHCHO    )&\n    !$OMP PRIVATE( KaqHMS,   KaqHMS2,       L7,        L7S,      L7_b       )&\n    !$OMP PRIVATE( L7S_b,    L8,            L8S,       LSTOT_HMS            )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 24                                             )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize for safety's sake\n       Ld          = 0.0_fp\n       LSTOT0      = 0.0_fp\n       LSTOT       = 0.0_fp\n       LSTOT_HMS   = 0.0_fp\n       one_m_KRATE = 0.0_fp\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n#ifdef LUO_WETDEP\n       ! Save the value of 1.0 - KRATE in a variable,\n       ! as this only has to be computed once per grid box\n       one_m_KRATE = 1.0_fp - State_Chm%KRATE(I,J,L)\n#endif\n\n       ! Initialize [v/v]\n       SO20   = Spc(id_SO2)%Conc(I,J,L)\n       H2O20  = Spc(id_H2O2)%Conc(I,J,L)\n\n       ! These species are only needed for fullchem simulations\n       HOBr0  = 0.0_fp\n       HOCl0  = 0.0_fp\n       HCHO0  = 0.0_fp\n       HMS0   = 0.0_fp\n       OH0    = 0.0_fp\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n          HOBr0  = Spc(id_HOBr)%Conc(I,J,L)\n          HOCl0  = Spc(id_HOCl)%Conc(I,J,L)\n          HCHO0  = Spc(id_CH2O)%Conc(I,J,L)\n          HMS0   = Spc(id_HMS)%Conc(I,J,L)\n          OH0    = Spc(id_OH)%Conc(I,J,L)\n       ENDIF\n\n       ! Calculate O3, defined only in the chemistry grid\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n          ! Get O3 from State_Chm%Species%Conc [v/v]\n          O3 = 0.0_fp\n          IF ( State_Met%InChemGrid(I,J,L) ) THEN\n             O3 = State_Chm%Species(id_O3)%Conc(I,J,L)\n          ENDIF\n       ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n          ! Get offline mean O3 [v/v] for this gridbox and month\n          O3 = 0.0_fp\n          IF ( L <= State_Met%MaxChemLev ) THEN\n             O3 = O3m(I,J,L)\n          ENDIF\n       ENDIF\n\n#ifdef APM\n       XO3(I,J,L)= O3\n#endif\n\n       ! PATM  : Atmospheric pressure in atm\n       ! Now use dry air partial pressure (ewl, 4/28/15)\n       PATM = State_Met%PMID_DRY( I, J, L ) / ( ATM * 1.e-2_fp )\n\n       ! TK : Temperature [K]\n       TK = State_Met%T(I,J,L)\n\n       ! Updated to match JPL 2006 + full chem (jaf, 10/14/09)\n       K0 = 3.3e-31_fp * ( 300.e+0_fp / TK )**4.3e+0_fp\n       Ki = 1.6e-12_fp\n\n       IF ( IS_OFFLINE ) THEN\n\n          ! Gas phase SO4 production is done here in offline run only\n          M   = State_Met%AIRDEN(I,J,L) * F\n          KK  = K0 * M / Ki\n          F1  = ( 1.e+0_fp + ( LOG10( KK ) )**2 )**( -1 )\n          RK1 = ( K0 * M / ( 1.e+0_fp + KK ) ) * 0.6e+0_fp**F1 * &\n                  GET_OH( I, J, L, Input_Opt, State_Chm, State_Met )\n\n       ELSE\n\n          ! For online runs, SMVGEAR deals w/ this computation,\n          ! so we can simply set RK1 = 0 (rjp, bmy, 3/23/03)\n          M   = 0.e+0_fp\n          KK  = 0.e+0_fp\n          F1  = 0.e+0_fp\n          RK1 = 0.e+0_fp\n\n       ENDIF\n\n       ! Now do all dry deposition in mixing_mod.F90 (ckeller, 3/5/15)\n       RK2  = 0.e+0_fp\n\n       ! RK: total reaction rate [1/s]\n       RK     = ( RK1 + RK2 )\n\n       ! RKT: RK * DTCHEM [unitless] (bmy, 6/1/00)\n       RKT    =  RK * DTCHEM\n\n       !==============================================================\n       ! Update SO2 conc. after gas phase chemistry and deposition\n       !==============================================================\n       IF ( RK > 0.e+0_fp ) THEN\n          SO2_cd = ( SO20  * EXP( -RKT ) ) + &\n                   ( PSO2_DMS(I,J,L) * ( 1.e+0_fp - EXP( -RKT ) ) / RKT )\n\n          L1     = ( SO20 - SO2_cd + PSO2_DMS(I,J,L) ) * RK1/RK\n\n          Ld     = ( SO20 - SO2_cd + PSO2_DMS(I,J,L) ) * RK2/RK\n\n       ELSE\n          SO2_cd = SO20\n          L1     = 0.e+0_fp\n       ENDIF\n\n       ! Isolate H2SO4 for reaction with dust    tdf 3/6/2K9\n       IF ( LDSTUP ) THEN\n          H2SO4_cd = 0.0_fp\n\n          ! Safety check: only proceed if the Prod diagnostic is archived,\n          ! or else this will result in a segmentation fault (bmy, 22 Mar 2022)\n          IF ( State_Diag%Archive_Prod .and. id_PSO4 > 0 ) THEN\n\n             ! Compute gas phase SO4 production again, as in offline case\n             ! RK1: SO2 + OH(g) [s-1]  (rjp, bmy, 3/23/03)\n             M    = State_Met%AIRDEN(I,J,L) * F\n\n             ! Convert State_Diag%Prod from [molec/cm3/s] to [v/v/timestep].\n             ! Update by Shixian Zhai added by Bob Yantosca (22 Mar 2022)\n             ! See https://github.com/geoschem/geos-chem/discussions/874\n             KK       = State_Diag%Prod(I,J,L,id_PSO4)\n             H2SO4_cd = KK / M * DTCHEM        \n          ENDIF\n          \n          !tdf Reset these constants to zero to avoid any problems below\n          M   = 0.0_fp\n          KK  = 0.0_fp\n          F1  = 0.0_fp\n          RK1 = 0.0_fp\n       ENDIF\n\n!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n!@@@@@ NOTE: The computation of sea salt alkalinity should eventually\n!@@@@@ be abstracted out of sulfate_mod.F90 so that the KPP/fullchem/fullchem_*\n!@@@@@ modules can make use of it.\n!@@@@@   -- Bob Yantosca (09 Sep 2021)\n       !==============================================================\n       ! Update SO2 conc. after seasalt chemistry (bec, 12/7/04)\n       !==============================================================\n\n       ! Get alkalinity of accum (ALK1) and coarse (ALK2) [kg]\n       CALL GET_ALK( I,         J,           L,          ALK1,               &\n                     ALK2,      Kt1,         Kt2,        Kt1N,               &\n                     Kt2N,      Kt1L,        Kt2L,       Input_Opt,          &\n                     State_Chm, State_Grid,  State_Met,  RC                 )\n\n       ! Total alkalinity [kg]\n       ALK = ALK1 + ALK2\n\n       ! Compute seasalt reaction rates here if:\n       ! (1 ) there is alkalinity,\n       ! (2 ) there is SO2 present, and\n       ! (3 ) O3 is in excess. AND\n       ! (4a) we are computing sulfate chemistry in sulfate_mod.F90, or\n       ! (4b) we are computing sulfate chemistry in KPP and FULLRUN = F.\n       IF ( ( DO_SEASALT_CHEM ) .and. ( ALK    > MINDAT )  .and.             &\n            ( SO2_cd > MINDAT ) .and. ( SO2_cd < O3     ) ) THEN\n\n\n          ! Compute oxidation of SO2 -> SO4 and condensation of\n          ! HNO3 -> nitrate within the seasalt aerosol\n          CALL SEASALT_CHEM( I,          J,          L,         ALK1,        &\n                             ALK2,       SO2_cd,     Kt1,       Kt2,         &\n                             Kt1N,       Kt2N,       Kt1L,      Kt2L,        &\n                             SO2_ss,     PSO4E,      PSO4F,     AlkA,        &\n                             AlkC,       Input_Opt,  State_Met, State_Chm,   &\n                             State_Diag, FullRun,    RC                     )\n\n       ELSE\n\n          ! Otherwise set equal to zero\n          SO2_ss       = SO2_cd\n          PSO4E        = 0.0_fp\n          PSO4F        = 0.0_fp\n          PNITS(I,J,L) = 0.0_fp\n          AlkA         = 0.0_fp\n          AlkC         = 0.0_fp\n          PNIT(I,J,L)  = 0.0_fp\n          PACL(I,J,L)  = 0.0_fp\n          PCCL(I,J,L)  = 0.0_fp\n\n       ENDIF\n\n       ! If we are not using KPP to compute seasalt reaction rates,\n       ! then update sea salt alkalinity [v/v] in FullRun (XW 12/8/17)\n       ! This will make sure that SALAAL and SALCAL have the proper\n       ! values befoe sulfate chemistry is computed below.\n       IF ( FullRun .and. State_Chm%Do_SulfateMod_SeaSalt ) Then\n          Spc(id_SALAAL)%Conc(I,J,L) = AlkA\n          Spc(id_SALCAL)%Conc(I,J,L) = AlkC\n       ENDIF\n!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n\n       IF ( LDSTUP .and. FullRun ) THEN\n\n          !==============================================================\n          ! %%% NOTE: THIS IS ONLY DONE FOR ACID UPTAKE SIMULATIONS %%%\n          !\n          ! Update SO2 conc. after DUST chemistry (tdf, 04/07/08)\n          !==============================================================\n\n          ! Get dust alkalinity ALK_d (NDSTBIN) [v/v], Uptake rates for\n          ! sulfate, KTS(NDSTBIN), and nitrate, KTN(NDSTBIN) on dust [s-1]\n          CALL GET_DUST_ALK( I, J, L, ALK_d, KTS, KTN, KTH, &\n                             Input_Opt, State_Met, State_Chm )\n\n          ! Total alkalinity [kg]\n          ALK = 0.0e+0_fp\n\n          DO IBIN = 1, NDSTBIN\n             ALK = ALK + ALK_d (IBIN)\n          END DO\n\n          ! If (1) there is alkalinity, (2) there is SO2 present, and\n          ! (3) O3 is in excess, then compute dust SO2 chemistry\n          IF  ( ( ALK    > MINDAT )  .AND. &\n                ( SO2_cd > MINDAT )  .AND. &\n                ( SO2_cd < O3     ) ) THEN\n\n             ! Compute oxidation of SO2 -> SO4 and condensation of\n             ! HNO3 -> nitrate within the dust aerosol\n\n             !tdf Call DUST_CHEM using updated SO2_ss after sea salt chemistry\n             CALL DUST_CHEM( I,         J,         L,         ALK_d,         &\n                             SO2_ss,    H2SO4_cd,  KTS,       KTN,           &\n                             KTH,       SO2_gas,   H2SO4_gas, PSO4_d,        &\n                             PH2SO4_d,  PNIT_d,    ALKA_d,    Input_Opt,     &\n                             State_Met, State_Chm, RC                       )\n\n             ! tdf \"SO2_ss\" is SO2 mixing ratio remaining after interaction\n             ! with dust\n             SO2_ss = SO2_gas\n\n             ! tdf \"H2SO4_cd\" is H2SO4 remaining after interaction with dust\n             H2SO4_cd = H2SO4_gas\n\n          ELSE\n\n             ! Otherwise set equal to zero\n             SO2_ss  = SO2_ss\n             DO IBIN = 1, NDSTBIN\n                PSO4_d    (IBIN)   = 0.e+0_fp\n                PH2SO4_d  (IBIN)   = 0.e+0_fp\n                PNIT_d    (IBIN)   = 0.e+0_fp\n             END DO\n\n          ENDIF\n\n       ELSE\n\n          ! Otherwise set equal to zero\n          SO2_ss  = SO2_ss\n          DO IBIN = 1, NDSTBIN\n             PSO4_d    (IBIN)   = 0.e+0_fp\n             PH2SO4_d  (IBIN)   = 0.e+0_fp\n             PNIT_d    (IBIN)   = 0.e+0_fp\n          END DO\n\n       ENDIF    !tdf end of if (LDSTUP) condition\n\n       !==============================================================\n       ! Update SO2 concentration after cloud chemistry\n       ! SO2 chemical loss rate = SO4 production rate [v/v/timestep]\n       !==============================================================\n\n       ! Get cloud fraction from met fields\n       FC      = State_Met%CLDF(I,J,L)\n\n       ! Get liquid water content [m3 H2O/m3 air] within cloud from met flds\n       ! Units: [kg H2O/kg air] * [kg air/m3 air] * [m3 H2O/1e3 kg H2O]\n#ifdef LUO_WETDEP\n       ! Luo et al wetdep scheme\n       LWC = State_Met%QL(I,J,L)                                             &\n           * State_Met%AIRDEN(I,J,L)                                         &\n           * 1e-3_fp                                                         &\n           + MAX( 0.0_fp, State_Chm%QQ3D(I,J,L) * DTCHEM )\n\n       IF( LWC > 0.d0 ) THEN\n          FC = FC                                                            &\n             * LWC                                                           &\n             / ( LWC + MAX( 0.0_fp, State_Met%QI(I,J,L) )                    &\n                     *         State_Met%AIRDEN(I,J,L)                       &\n                     *         1e-3_fp                    )\n       ELSE\n          LWC = 0.d0\n       ENDIF\n#else\n       ! Default scheme\n       LWC = State_Met%QL(I,J,L) * State_Met%AIRDEN(I,J,L) * 1e-3_fp\n#endif\n\n       LWC  = MAX( 0.0e+0_fp, LWC )\n\n       ! LWC is a grid-box averaged quantity. To improve the representation\n       ! of sulfate chemistry, we divide LWC by the cloud fraction and\n       ! compute sulfate chemistry based on the LWC within the cloud.  We\n       ! get the appropriate grid-box averaged mass of SO2 and sulfate by\n       ! multiplying these quantities by FC AFTER computing the aqueous\n       ! sulfur chemistry within the cloud. (lzh, jaf, bmy, 5/27/11)\n       LWC     = SAFE_DIV( LWC, FC, 0e+0_fp )\n\n       ! Zero variables\n       KaqH2O2 = 0.e+0_fp\n       KaqO3   = 0.e+0_fp\n       KaqO3_1 = 0.e+0_fp !(qjc, 04/10/16)\n       L2      = 0.e+0_fp\n       L3      = 0.e+0_fp\n       L3_1    = 0.e+0_fp !(qjc, 04/10/16)\n       L5      = 0.e+0_fp !(qjc, 04/10/16)\n       L5_1    = 0.e+0_fp !(qjc, 04/10/16)\n       L6      = 0.e+0_fp !XW\n       L6_1    = 0.e+0_fp !XW\n       L2S     = 0.e+0_fp\n       L3S     = 0.e+0_fp\n       L3S_1   = 0.e+0_fp !(qjc, 04/10/16)\n       L5S     = 0.e+0_fp !(qjc, 04/10/16)\n       L5S_1   = 0.e+0_fp !(qjc, 04/10/16)\n       KaqO2   = 0.e+0_fp\n       L4      = 0.e+0_fp\n       L4S     = 0.e+0_fp\n       L6S     = 0.e+0_fp !XW\n       L6S_1   = 0.e+0_fp !XW\n       KaqHCHO = 0.e+0_fp !(jmm, 06/07/18)\n       KaqHMS  = 0.e+0_fp !(jmm, 06/07/18)\n       KaqHMS2 = 0.e+0_fp !(jmm, 06/26/18)\n       L7      = 0.e+0_fp !(jmm, 06/13/18)\n       L7_b    = 0.e+0_fp !(jmm, 06/13/18)\n       L7S     = 0.e+0_fp !(jmm, 06/13/18)\n       L7S_b   = 0.e+0_fp !(jmm, 06/13/18)\n       L8      = 0.e+0_fp !(jmm, 06/26/18)\n       L8S     = 0.e+0_fp !(jmm, 06/26/18)\n\n       ! If (1) there is cloud, (2) there is SO2 present, (3) T > -15 C, and\n       ! (4) liquid water content (LWC) is present (but not small enough to\n       ! make divisions blow up), then compute sulfate production in cloud.\n       IF ( ( State_Chm%Do_SulfateMod_Cld )                            .and. &\n            ( FC     > 1.e-4_fp           )                            .and. &\n            ( SO2_ss > MINDAT             )                            .and. &\n#ifdef LUO_WETDEP\n            ( TK     > 237.0_fp           )                            .and. &\n#else\n            ( TK     > 258.0_fp           )                            .and. &\n#endif\n            ( LWC    > 1.0e-20_fp         ) ) THEN\n\n          !===========================================================\n          ! NOTE...Sulfate production from aquatic reactions of SO2\n          ! with H2O2 & O3 is computed here and followings are\n          ! approximations or method used for analytical (integral)\n          ! solution of these computations.\n          !\n          ! 1) with H2O2(aq)\n          !      [HSO3-] + [H+] + [H2O2(aq)] => [SO4=]     (rxn)\n          !      d[SO4=]/dt = k[H+][HSO3-][H2O2(aq)] (M/s) (rate)\n          !\n          ! we can rewrite k[H+][HSO3-] as K1 pSO2 hSO2,\n          ! where pSO2 is equilibrium vapor pressure of SO2(g)\n          ! in atm, and hSO2 is henry's law constant for SO2\n          !\n          ! Therefore, rate can be written as\n          !\n          !       k * K1 * pSO2 * hSO2 * pH2O2 * hH2O2,\n          !\n          ! where pH2O2 is equilibrium vapor pressure of H2O2(g),\n          ! and hH2O2 is henry's law constant for H2O2. Detailed\n          ! values are given in AQCHEM_SO2 routine.\n          !\n          ! Let us define a fraction of gas phase of A species\n          ! in equilibrium with aqueous phase as\n          !\n          !        xA  = 1/(1+f),\n          !\n          ! where  f   = hA * R * T * LWC,\n          !        hA  = Henry's constant,\n          !        R   = gas constant,\n          !        T   = temperature in kelvin,\n          !        LWC = liquid water content [m3/m3]\n          !\n          ! As a result, the rate would become:\n          !\n          !    d[SO4=]\n          !    ------- = k K1 hSO2 hH2O2 xSO2 xH2O2 P P [SO2][H2O2]\n          !      dt\n          !      ^       ^                            ^   ^    ^\n          !      |       |____________________________|   |    |\n          !\n          !   mole/l/s               mole/l/s            v/v  v/v\n          !\n          !\n          ! And we multiply rate by (LWC * R * T / P) in order to\n          ! convert unit from mole/l/s to v/v/s\n          !\n          ! Finally we come to\n          !\n          !    d[SO4=]\n          !    ------- = KaqH2O2 [SO2][H2O2],\n          !      dt\n          !\n          ! where\n          !\n          !   KaqH2O2 = k K1 hSO2 hH2O2 xSO2 xH2O2 P LWC R T,\n          !\n          ! this new rate corresponds to a typical second order\n          ! reaction of which analytical (integral) solution is\n          !\n          !   X  = A0 B0 ( exp[(A0-B0) Ka t] - 1 )\n          !      / ( A0 exp[(A0-B0) Ka t] - B0 )\n          !\n          ! inserting variables into solution then we get\n          ! [SO4=] =  [SO2][H2O2](exp[([SO2]-[H2O2]) KaqH2O2 t] - 1 )\n          !        / ( [SO2] exp[([SO2]-[H2O2]) KaqH2O2 t] - [H2O2] )\n          !\n          ! Note...Exactly same method can be applied to O3 reaction\n          ! in aqueous phase with different rate constants.\n          !===========================================================\n\n\t  ! Get concentrations for cloud pH calculation (bec, 12/23/11)\n\n\t  ! Get sulfate concentration and convert from [v/v] to\n          ! [moles/liter]\n\t  ! Use a cloud scavenging ratio of 0.7\n#ifdef LUO_WETDEP\n          SO4nss = Spc(id_SO4)%Conc(I,J,L)    * State_Met%AIRDEN(I,J,L) *         &\n                   one_m_KRATE          / ( AIRMW * LWC )\n#else\n          SO4nss = ( Spc(id_SO4)%Conc(I,J,L)  * State_Met%AIRDEN(I,J,L) *         &\n                     0.7_fp             / ( AIRMW * LWC )           )       &\n                 + ( Spc(id_SO4s)%Conc(I,J,L) * State_Met%AIRDEN(I,J,L) /         &\n                     ( AIRMW * LWC )                                )\n#endif\n\n          ! Get HMS cloud concentration and convert from [v/v] to\n          ! [moles/liter] (jmm, 06/13/2018)\n          ! Use a cloud scavenging ratio of 0.7\n          ! assume nonvolatile like sulfate for realistic cloud pH\n          ! NOTE: Only needed for fullchem sims, otherwise it's zero\n          HMSc = 0.0_fp\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n             HMSc  =  Spc(id_HMS)%Conc(I,J,L) * State_Met%AIRDEN(I,J,L) * &\n                                0.7e+0_fp / ( AIRMW * LWC )\n          ENDIF\n\n          ! Get total ammonia (NH3 + NH4+) concentration [v/v]\n          ! Use a cloud scavenging ratio of 0.7 for NH4+\n#ifdef LUO_WETDEP\n          TNH3 = ( Spc(id_NH4)%Conc(I,J,L) * one_m_KRATE ) + Spc(id_NH3)%Conc(I,J,L)\n#else\n          TNH3 = ( Spc(id_NH4)%Conc(I,J,L) * 0.7_fp      ) + Spc(id_NH3)%Conc(I,J,L)\n#endif\n\n          ! Get total chloride (SALACL + HCL) concentration [v/v]\n          ! Use a cloud scavenging ratio of 0.7\n#ifdef LUO_WETDEP\n          CL = ( Spc(id_SALACL)%Conc(I,J,L) * one_m_KRATE ) + Spc(id_SALCCL)%Conc(I,J,L)\n#else\n          CL = ( Spc(id_SALACL)%Conc(I,J,L) * 0.7_fp )      + Spc(id_SALCCL)%Conc(I,J,L)\n#endif\n          IF ( id_HCl > 0 ) THEN\n             CL = CL + Spc(id_HCL)%Conc(I,J,L)\n          ELSE\n             CL = CL + GLOBAL_HCL(I,J,L)\n          ENDIF\n\n          ! Get total formic acid concentration [v/v]\n          ! jmm (12/3/18)\n          ! no cloud scavenging because gases?\n          IF ( id_HCOOH > 0 ) THEN\n             TFA = Spc(id_HCOOH)%Conc(I,J,L)\n          ELSE\n             TFA = GLOBAL_HCOOH(I,J,L)\n          ENDIF\n\n          ! Get total acetic acid concentration [v/v]\n          ! jmm (12/3/18)\n          ! no cloud scavenging b/c gases?\n          IF ( id_ACTA > 0 ) THEN\n             TAA = Spc(id_ACTA)%Conc(I,J,L)\n          ELSE\n             TAA = GLOBAL_ACTA(I,J,L)\n          ENDIF\n\n          ! Get total sea salt NVC concentration expressed as NA+ equivalents\n          ! and convert from [v/v] to [moles/liter]\n          ! NVC is calculated to balance initial Cl- + alkalinity in\n          ! seas salt. Note that we should not consider SO4ss here.\n          ! Use a cloud scavenging ratio of 0.7 for fine aerosols\n#ifdef LUO_WETDEP\n          TNA = ( Spc(id_SALA)%Conc(I,J,L) * State_Met%AIRDEN(I,J,L)   *           &\n                  TNA_CONV           * one_m_KRATE               /           &\n                  ( AIRMW * LWC )                                  )         &\n              + ( Spc(id_SALC)%Conc(I,J,L) * State_Met%AIRDEN(I,J,L)   *           &\n                  TNA_CONV           / ( AIRMW * LWC )             )\n#else\n          TNA = ( Spc(id_SALA)%Conc(I,J,L) * State_Met%AIRDEN(I,J,L)   *           &\n                  TNA_CONV           * 0.7_fp                    /           &\n                  ( AIRMW * LWC )                                  )         &\n              + ( Spc(id_SALC)%Conc(I,J,L) * State_Met%AIRDEN(I,J,L)   *           &\n                  TNA_CONV           / ( AIRMW * LWC )             )\n#endif\n          ! Get total dust cation concentration [mol/L]\n          ! Use a cloud scavenging ratio of 1 for dust\n          ! to be consistent for how it was calculated for\n          ! metal catalyzed SO2 oxidation\n          ! Use asumption of dust being 3% soluble Ca2+ and\n          ! 0.6% soluble Mg2+ by mass (Fairlie et al., 2010)\n          !\n          ! Dust treated at non-volatile cation and charge applied in\n          ! pH calculation\n          !\n          ! Move dust calculation from SO2 Metal catalzyed oxidation\n          ! up here becasue needed for cloud pH\n          ! jmm (12/3/18)\n          !\n          ! Get dust concentrations [v/v -> ng/m3]\n\n! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n#ifdef LUO_WETDEP\n          DUST = ( (Spc(id_DSTbin1)%Conc(I,J,L) + Spc(id_DSTbin2)%Conc(I,J,L) + &\n                    Spc(id_DSTbin3)%Conc(I,J,L) + Spc(id_DSTbin4)%Conc(I,J,L))*one_m_KRATE + &\n                   Spc(id_DSTbin5)%Conc(I,J,L) +     &\n                   Spc(id_DSTbin6)%Conc(I,J,L)             + Spc(id_DSTbin7)%Conc(I,J,L)   )   &\n               * 1.e+12_fp * State_Met%AD(I,J,L)                             &\n               / ( AIRMW   / State_Chm%SpcData(id_DSTbin1)%Info%MW_g        )   &\n               / State_Met%AIRVOL(I,J,L)\n#else\n          DUST = ( (Spc(id_DSTbin1)%Conc(I,J,L) + Spc(id_DSTbin2)%Conc(I,J,L) + &\n                    Spc(id_DSTbin3)%Conc(I,J,L) + Spc(id_DSTbin4)%Conc(I,J,L))*0.7_fp + &\n                    Spc(id_DSTbin5)%Conc(I,J,L) +          &\n                   Spc(id_DSTbin6)%Conc(I,J,L)        + Spc(id_DSTbin7)%Conc(I,J,L)   )        &\n               * 1.e+12_fp * State_Met%AD(I,J,L)                             &\n               / ( AIRMW   / State_Chm%SpcData(id_DSTbin1)%Info%MW_g )          &\n               / State_Met%AIRVOL(I,J,L)\n#endif\n\n          ! Conversion from dust mass to Ca2+ and Mg2+ mol:\n          !     0.071*(1/40.08)+0.011*(1/24.31) = 2.22e-3\n          !     (Engelbrecht et al., 2016)\n          !     1e-12_fp from m3->L & ng->g\n          TDCA     = DUST * 2.22e-15_fp / LWC\n\n          ! Get total nitrate (HNO3 + NIT) concentrations [v/v]\n          ! Use a cloud scavenging ratio of 0.7 for NIT\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n#ifdef LUO_WETDEP\n             TNO3 = ( Spc(id_HNO3)%Conc(I,J,L)                                     &\n                  +   Spc(id_NIT )%Conc(I,J,L)                                     &\n                  +   Spc(id_NITs)%Conc(I,J,L) ) * one_m_KRATE\n#else\n             TNO3 = Spc(id_HNO3)%Conc(I,J,L)                                       &\n                  + ( Spc(id_NIT)%Conc(I,J,L) * 0.7_fp )                           &\n                  + Spc(id_NITs)%Conc(I,J,L)\n#endif\n             GNO3 = Spc(id_HNO3)%Conc(I,J,L) !For Fahey & Pandis decision algorithm\n          ELSE IF ( IS_OFFLINE ) THEN\n             TANIT = Spc(id_NIT)%Conc(I,J,L) !aerosol nitrate [v/v]\n             GNO3  = GLOBAL_HNO3(I,J,L) - TANIT ! gas-phase nitric acid [v/v]\n             ANIT  = TANIT * 0.7e+0_fp ! aerosol nitrate in the cloud drops [v/v]\n             TNO3  = GNO3 + ANIT   ! total nitrate for cloud pH calculations\n          ENDIF\n\n          ! Calculate cloud pH\n          CALL GET_HPLUS( SO4nss, HMSc, TNH3, TNO3, SO2_ss, CL,  TNA,        &\n                          TDCA,   TFA,  TAA,  TK,   PATM,   LWC, HPLUS_45,   &\n                          HPLUS                                             )\n\n          ! Store the cloud pH quantities\n          State_Chm%isCloud(I,J,L)    =  1.0_fp\n          State_Chm%pHCloud(I,J,L)    = -1.0_fp * log10(HPLUS)\n          State_Chm%QLxpHCloud(I,J,L) = State_Chm%pHCloud(I,J,L)             &\n                                      * State_Met%QL(I,J,L)\n\n          IF ( Input_Opt%LMETALCATSO2 ) THEN\n\n             !--------------------------------------------------------\n             ! Metal catalyzed oxidation of SO2 pathway\n             !--------------------------------------------------------\n\n             ! Get dust concentrations [v/v -> ng/m3]\n#ifdef TOMAS\n             ! TOMAS uses its own dust tracers and does not\n             ! carry DST1-4.  Set DUST to zero here. (mps, 2/2/18)\n             DUST = 0e+0_fp\n#else\n             DUST = ( (Spc(id_DSTbin1)%Conc(I,J,L) + Spc(id_DSTbin2)%Conc(I,J,L) + &\n                       Spc(id_DSTbin3)%Conc(I,J,L) + Spc(id_DSTbin4)%Conc(I,J,L))*0.7 + &\n                      Spc(id_DSTbin5)%Conc(I,J,L) + &\n                      Spc(id_DSTbin6)%Conc(I,J,L) + Spc(id_DSTbin7)%Conc(I,J,L) ) * &\n                      1.e+12_fp * State_Met%AD(I,J,L) &\n                      / ( AIRMW / State_Chm%SpcData(id_DSTbin1)%Info%MW_g ) &\n                      / State_Met%AIRVOL(I,J,L)\n#endif\n\n             ! Calculate Fe and Mn natural [ng m-3]\n             ! Assume that Fe is 3.5% of total dust mass based on\n             ! Taylor and McLennan [1985]\n             Fe_nat = DUST * 35e-3_fp\n             ! and Mn is 50 times less than Fe based on Desbouefs et al.[2005]\n             Mn_nat = Fe_nat / 50e+0_fp\n\n             ! Anthropogenic Fe concentrations [v/v -> ng/m3]\n             IF ( id_pFe > 0 ) THEN\n                Fe_ant = Spc(id_pFe)%Conc(I,J,L) * &\n                         1.e+12_fp * State_Met%AD(I,J,L) &\n                         / ( AIRMW / State_Chm%SpcData(id_pFe)%Info%MW_g ) &\n                         / State_Met%AIRVOL(I,J,L)\n             ELSE\n                Fe_ant = 0e+0_fp\n             ENDIF\n\n             ! Calculate Mn anthropogenic [ng m-3]\n             ! assume anthropogenic Mn is 1/30 times anthropogenic Fe\n             Mn_ant = Fe_ant / 10e+0_fp\n\n             ! Calculate total Mn and Fe [ng m-3]\n             Mn_tot = Mn_ant + Mn_nat\n             Fe_tot = Fe_ant + Fe_nat\n\n             ! Convert Mn and Fe [ng m-3] to [mole l-1]\n\n             ! Assume that 50% of Mn is dissolved [Spokes et al., 1994]\n             ! Hardcoded MW for Mn\n             IF ( LWC > 0e+0_fp ) THEN\n                ! Units: ng/m3 * (g/ng) / (g/mol) / (m3 H2O / m3 air) * (m3/L)\n                Mn_d = Mn_tot * 1e-9_fp / 54.94e+0_fp / LWC * 1e-3_fp\n                Mn_d = Mn_d * 0.5e+0_fp\n             ELSE\n                Mn_d = 0e+0_fp\n             ENDIF\n\n             ! Solubility of Fe is 10% for anthropogenic, and 1% for dust\n             IF ( LWC > 0e+0_fp ) THEN\n                Fe_d_ant = Fe_ant * 1e-9_fp / &\n                           State_Chm%SpcData(id_pFe)%Info%MW_g / &\n                           LWC * 1e-3_fp\n                Fe_d_nat = Fe_nat * 1e-9_fp / &\n                           State_Chm%SpcData(id_pFe)%Info%MW_g / &\n                           LWC * 1e-3_fp\n                Fe_d     = Fe_d_ant * 0.1e+0_fp + &\n                           Fe_d_nat * 0.01e+0_fp\n             ELSE\n                Fe_d     = 0e+0_fp\n             ENDIF\n\n             ! Impose a dependence of Fe speciation on sunlight\n             IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &\n                  Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n                IF ( State_Met%SUNCOS(I,J) > 0e+0_fp ) THEN\n                   ! Assume 10% of dissolved Fe is in Fe(III)\n                   !oxidation state during the daytime\n                   FeIII = Fe_d * 0.1e+0_fp\n                ELSE\n                   ! Assume 90% of dissolved Fe is in Fe(III)\n                   ! oxidation state during the nighttime\n                   FeIII = Fe_d * 0.9e+0_fp\n                ENDIF\n\n             ENDIF\n\n             ! Assume that dissolved Mn is in Mn(II) oxidation state all of\n             ! the time\n             MnII = Mn_d\n\n          ELSE\n\n             ! Set Fe and Mn concentrations to zero\n             FeIII = 0.0e+0_fp\n             MnII  = 0.0e+0_fp\n\n          ENDIF\n\n          IONIC = 0.5e+0_fp * ( 4.0e+0_fp * SO4nss +  &\n               TNH3*State_Met%AIRDEN(I,J,L)/(28.97e+0_fp*LWC) + &\n               TNO3*State_Met%AIRDEN(I,J,L)/(28.97e+0_fp*LWC) )\n\n          ! Compute aqueous rxn rates for SO2\n          CALL AQCHEM_SO2( LWC,     TK,    PATM,    SO2_ss, H2O20, &\n                           O3,      HPLUS, MnII,    FeIII, IONIC, &\n                           KaqH2O2, KaqO3, KaqO3_1, KaqO2, &\n                           HSO3aq,  SO3aq, HCHO0,   KaqHCHO, &\n                           KaqHMS, KaqHMS2 )\n\n          !----------------------------------------------------------\n          ! Compute loss by H2O2.  Prevent floating-point exception\n          ! by not allowing the exponential to go to infinity if\n          ! the argument is too large.  (win, bmy, 1/4/09)\n          !----------------------------------------------------------\n\n          ! Argument of the exponential\n          XX  = ( SO2_ss - H2O20 ) * KaqH2O2 * DTCHEM\n\n          ! Test if EXP(XX) can be computed w/o numerical exception\n          IF ( IS_SAFE_EXP( XX ) .and. ABS( XX ) > 0e+0_fp ) THEN\n\n             ! Aqueous phase SO2 loss rate w/ H2O2 [v/v/timestep]\n             L2  = EXP( XX )\n\n             ! Loss by H2O2\n             L2S = SO2_ss * H2O20 * ( L2 - 1.e+0_fp ) / &\n                   ( (SO2_ss * L2) - H2O20 )\n          ELSE\n\n             ! NOTE from Jintai Lin (4/28/10):\n             ! However, in the case of a negative XX, L2S should be\n             ! approximated as SO2_ss, instead of H2O20. In other words,\n             ! L2S = SO2_ss * H2O20 * ( L2 - 1.D0 ) / ( (SO2_ss*L2) - H2O20 )\n             ! reaches different limits when XX reaches positive infinity\n             ! and negative infinity.\n             IF ( XX > 0.e+0_fp ) THEN\n                L2S = H2O20\n             ELSE IF ( XX < 0.e+0_fp) THEN\n                L2S = SO2_ss\n             ELSE\n                !(qjc, 04/10/16) different solution when SO2_ss = H2O20\n                L2S = SO2_ss - 1/(KaqH2O2*DTCHEM+1/SO2_ss)\n             ENDIF\n\n          ENDIF\n\n          !----------------------------------------------------------\n          ! Compute loss by O3.  Prevent floating-point exception\n          ! by not allowing the exponential to go to infinity if\n          ! the argument is too large. (win, bmy, 1/4/09)\n          !----------------------------------------------------------\n\n          ! Argument of the exponential\n          XX = ( SO2_ss - O3 ) * KaqO3 * DTCHEM\n\n          ! Test if EXP(XX) can be computed w/o numerical exception\n          IF ( IS_SAFE_EXP( XX ) .and. ABS( XX ) > 0e+0_fp ) THEN\n\n             ! Aqueous phase SO2 loss rate w/ O3 [v/v/timestep]\n             L3  = EXP( XX )\n\n             ! Loss by O3\n             L3S = SO2_ss * O3 * (L3 - 1.e+0_fp)/((SO2_ss * L3) - O3)\n\n          ELSE\n\n             ! Follow the same logic for L3S as described in\n             ! Jintai Lin's note above (bmy, 4/28/10)\n             IF ( XX > 0.e+0_fp ) THEN\n                L3S = O3\n             ELSE IF ( XX < 0.e+0_fp) THEN\n                L3S = SO2_ss\n             ELSE\n                !(qjc, 04/10/16) different solution when SO2_ss = O3\n                L3S = SO2_ss - 1/(KaqO3*DTCHEM+1/SO2_ss)\n             ENDIF\n          ENDIF\n\n          !(qjc, 04/10/16)\n          !----------------------------------------------------------\n          ! Compute loss by O3, but SO3-- only.  Prevent floating-point\n          ! exception by not allowing the exponential to go to infinity\n          ! if the argument is too large.\n          !----------------------------------------------------------\n\n          ! Argument of the exponential\n          XX = ( SO2_ss - O3 ) * KaqO3_1 * DTCHEM\n\n          ! Test if EXP(XX) can be computed w/o numerical exception\n          IF ( IS_SAFE_EXP( XX ) .and. ABS( XX ) > 0e+0_fp ) THEN\n\n             ! Aqueous phase SO2 loss rate w/ O3 [v/v/timestep]\n             L3_1  = EXP( XX )\n\n             ! Loss by O3\n             L3S_1 = SO2_ss * O3*(L3_1 - 1.e+0_fp)/((SO2_ss*L3_1)-O3)\n\n          ELSE\n\n             ! Follow the same logic for L3S_1 as described in\n             ! Jintai Lin's note above\n             IF ( XX > 0.e+0_fp ) THEN\n                L3S_1 = O3\n             ELSE IF ( XX < 0.e+0_fp) THEN\n                L3S_1 = SO2_ss\n             ELSE\n                !(qjc, 04/10/16) different solution when SO2_ss = O3\n                L3S_1 = SO2_ss - 1/(KaqO3_1*DTCHEM+1/SO2_ss)\n             ENDIF\n          ENDIF\n\n          IF ( Input_Opt%LMETALCATSO2 ) THEN\n\n             !--------------------------------------------------------\n             ! Metal catalyzed oxidation of SO2 pathway\n             !\n             ! Compute loss by O2.  I did not do what Jintai Lin did\n             ! above for the other aqueous-phase reactions because it\n             ! doesn't make sense for this reaction (bec, 7/7/15)\n             !----------------------------------------------------------\n\n             ! Argument of the exponential\n             XX = -KaqO2 * DTCHEM\n\n             IF ( IS_SAFE_EXP( XX ) ) THEN\n                ! Aqueous phase SO2 loss rate w/ O2 [v/v/timestep]\n                L4  = EXP( XX )\n\n                ! Loss by O2\n                L4S = SO2_ss * (1.e+0_fp - L4)\n             ELSE\n                L4S = SO2_ss\n             ENDIF\n\n          ELSE\n\n             ! Set loss by O2 to zero\n             L4S = 0.0e+0_fp\n\n          ENDIF\n\n          !----------------------------------------------------------\n          ! Compute loss by HOBr.  Prevent floating-point exception\n          ! by not allowing the exponential to go to infinity if\n          ! the argument is too large. !qjc (04/05/16)\n          ! Add loss by HOCl, XW (11/08/18)\n          !----------------------------------------------------------\n\n          ! Get SO4H (sulfate produced via HOBr) from the Spc array [v/v dry]\n          SO4H1_vv = 0.e+0_fp\n          SO4H2_vv = 0.e+0_fp\n          SO4H3_vv = 0.e+0_fp\n          SO4H4_vv = 0.e+0_fp\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n             SO4H1_vv = Spc(id_SO4H1)%Conc(I,J,L)\n             SO4H2_vv = Spc(id_SO4H2)%Conc(I,J,L)\n             SO4H3_vv = Spc(id_SO4H3)%Conc(I,J,L)\n             SO4H4_vv = Spc(id_SO4H4)%Conc(I,J,L)\n          ENDIF\n\n          L5S   = SO4H1_vv + SO4H2_vv\n          L5S_1 = SO4H2_vv\n          L6S   = SO4H3_vv + SO4H4_vv\n          L6S_1 = SO4H3_vv\n\n          ! make sure sulfate produced is less than SO2 available\n          ! (qjc, 06/20/16)\n          IF (L5S > SO2_ss) THEN\n             fupdateHOBr_0 = SO2_ss/L5S\n             L5S   = SO2_ss\n             L5S_1 = SO2_ss * L5S_1/L5S\n          ELSE\n             L5S = L5S\n             L5S_1 = L5S_1\n             fupdateHOBr_0 = 1.e+0_fp\n          ENDIF\n\n          IF (L6S > SO2_ss) THEN\n             fupdateHOCl_0 = SO2_ss/L6S\n             L6S   = SO2_ss\n             L6S_1 = SO2_ss * L6S_1/L6S\n          ELSE\n             L6S = L6S\n             L6S_1 = L6S_1\n             fupdateHOCl_0 = 1.e+0_fp\n          ENDIF\n\n          !----------------------------------------------------------\n          ! Compute loss by HCHO.  Prevent floating-point exception\n          ! by not allowing the exponential to go to infinity if\n          ! the argument is too large.  (jmm, 06/13/18)\n          !----------------------------------------------------------\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n             ! Argument of the exponential\n             XX  = ( SO2_ss - HCHO0 ) * KaqHCHO * DTCHEM\n\n             ! Test if EXP(XX) can be computed w/o numerical exception\n             IF ( IS_SAFE_EXP( XX ) .and. ABS( XX ) > 0e+0_fp ) THEN\n\n                ! Aqueous phase SO2 loss rate w/ HCHO [v/v/timestep]\n                L7  = EXP( XX )\n\n                ! Loss by HCHO\n                L7S = SO2_ss * HCHO0 * ( L7 - 1.e+0_fp ) / &\n                     ( (SO2_ss * L7) - HCHO0 )\n             ELSE\n\n                ! NOTE from Jintai Lin (4/28/10):\n                ! However, in the case of a negative XX, L7S should be\n                ! approximated as SO2_ss, instead of HCHO0. In other words,\n                ! L7S = SO2_ss * HCHO0 * ( L7 - 1.D0 ) / ( (SO2_ss*L7) - HCHO0 )\n                ! reaches different limits when XX reaches positive infinity\n                ! and negative infinity.\n                IF ( XX > 0.e+0_fp ) THEN\n                   L7S = HCHO0\n                ELSE IF ( XX < 0.e+0_fp) THEN\n                   L7S = SO2_ss\n                ELSE\n                   !(qjc, 04/10/16) different solution when SO2_ss = H2O20\n                   L7S = SO2_ss - 1/(KaqHCHO*DTCHEM+1/SO2_ss)\n                ENDIF\n\n             ENDIF\n\n             IF ( L7S > 1.0e+15_fp .or. L7S < 0 ) THEN\n                RC = GC_FAILURE\n                PRINT *,'Loc:',I,J,L\n                PRINT *,'L7S:',L7S\n                PRINT *,'HCHO :',HCHO0\n                PRINT *,'SO2_ss',SO2_ss\n                PRINT *,'in exp:',XX\n                PRINT *,'L7:',L7\n                PRINT *,'KaqHCHO',KaqHCHO\n             ENDIF\n\n\n             !----------------------------------------------------------\n             ! Compute aqueous SO2 from HMS decomposition. Prevent floating-point\n             ! exception by not allowing the exponential to go to infinity if\n             ! the argument is too large. This reaction also produces HCHO.\n             ! (jmm, 06/13/18)\n             !\n             ! This is treated as a pseudo first order reaction as it depends\n             ! on [HMS] and [OH-]. The [OH-] is incorporated into the rate\n             ! constant (KaqHMS) with HPLUS determined seperately. Updates to\n             ! [OH-] are incorporated in the next call of GET_HPLUS, which\n             ! includes [HMS] in the pH calculation\n             !\n             ! Also note that [HMS] is in mol/L, and the conversion for the\n             ! rate from [mol/L/s] to [v/v/s] is done here\n             !\n             ! Followed proceedure as done with oxidation by O2 (metal catalyzed)\n             !----------------------------------------------------------\n\n             ! Argument of the exponential\n             XX  = -KaqHMS * DTCHEM\n\n             ! Test if EXP(XX) can be computed w/o numerical exception\n             IF ( IS_SAFE_EXP( XX ) ) THEN\n\n                ! Aqueous phase SO2 production rate w/ HMS [v/v/timestep]\n                L7_b  = EXP( XX )\n\n                ! Production by HMS\n                L7S_b =  HMSc * ( 1.e+0_fp -  L7_b )\n             ELSE\n                L7S_b = HMSc\n             ENDIF\n\n             ! Convert HMS produced from [mol/L] to [v/v] (jmm, 06/15/18)\n             L7S_b = L7S_b *LWC * 0.08205e+0_fp * TK / PATM\n\n\n\n             IF ( L7S_b > 1.0e+15_fp .or. L7S_b < 0 ) THEN\n                RC = GC_FAILURE\n                PRINT *,'Loc: ',I,J,L\n                PRINT *,'L7S_b: ',L7S_b\n                PRINT *,'HMSc: ',HMSc\n                PRINT *,'in exp: ',XX\n                PRINT *,'L7_b: ',L7_b\n                PRINT *,'KaqHMS: ',KaqHMS\n                PRINT *,'TK: ',TK\n                PRINT *,'LWC: ',LWC\n                PRINT *,'PATM :',PATM\n                !                  CALL ERROR_STOP( 'L6s_b >1e15 or <0,  point 3', LOC )\n             ENDIF\n\n             L7S = 0.e+0_fp\n             L7S_b = 0.e+0_fp\n             L8S = 0.e+0_fp\n\n             !----------------------------------------------------------\n             ! Compute HMS loss by aqueous OH. Prevent floating-point exception\n             ! by not allowing the exponential to go to infinity if\n             ! the argument is too large.  (jmm, 06/27/18)\n             !\n             ! HMS oxidation by aqueous OH is converted to v/v/s in the KaqHMS2\n             ! term. See aqchem_so2 subroutine for reaction details.\n             !\n             ! This is a simplified version of a radical chain.\n             ! L8S consumes 1 HMS, 1 OH, and 1 SO2 and produces 2 SO4--\n             !----------------------------------------------------------\n\n             ! Convert KaqHMS2 from [m^6 kg^-2 s^-1] to [v/v/s]\n             KaqHMS2 = KaqHMS2 * State_Met%AIRDEN(I,J,L) * &\n                            State_Met%AIRDEN(I,J,L)\n             ! Argument of the exponential\n             XX  = ( HMS0 - OH0 ) * KaqHMS2 * DTCHEM\n\n             ! Test if EXP(XX) can be computed w/o numerical exception\n             IF ( IS_SAFE_EXP( XX ) .and. ABS( XX ) > 0e+0_fp ) THEN\n\n                ! Aqueous phase HMS loss rate w/ OH(aq) [v/v/timestep]\n                L8  = EXP( XX )\n\n                ! Loss by OH(aq)\n                L8S = HMS0 * OH0 * ( L8 - 1.e+0_fp ) / &\n                               ( (HMS0 * L8) - OH0 )\n             ELSE\n\n                ! NOTE from Jintai Lin (4/28/10):\n                ! However, in the case of a negative XX, L8S should be\n                ! approximated as , instead of HCHO0. In other words,\n                ! L8S = HMS0 * OH0 * ( L7 - 1.D0 ) / ( (HMS0*L8) - OH0 )\n                ! reaches different limits when XX reaches positive infinity\n                ! and negative infinity.\n                IF ( XX > 0.e+0_fp ) THEN\n                   L8S = OH0\n                ELSE IF ( XX < 0.e+0_fp) THEN\n                   L8S = HMS0\n                ELSE\n                   !(qjc, 04/10/16) different solution when HMS0 = OH0\n                   L8S = HMS0 - 1/(KaqHMS2*DTCHEM+1/HMS0)\n                ENDIF\n\n             ENDIF\n\n          ELSE\n             L7S = 0.e+0_fp\n             L7S_b = 0.e+0_fp\n             L8S = 0.e+0_fp\n          ENDIF\n\n\n          L2S   =  L2S   * FC\n          L3S   =  L3S   * FC\n          L3S_1 =  L3S_1 * FC   !(qjc, 06/20/16)\n          L4S   =  L4S   * FC\n          L5S   =  L5S          !(qjc, 06/20/16), do not multiply by FC if it\n                                ! is not divided by FC at the begining\n          L5S_1 =  L5S_1        !(qjc, 06/20/16)\n          L6S   =  L6S\n          L6S_1 =  L6S_1\n\n          L7S   =  L7S   * FC   ! Note: consumes SO2 but for HMS (jmm, 06/13/18)\n          L7S_b =  L7S_b * FC   ! Note: releases SO2 from HMS (jmm, 06/13/18)\n          L8S   =  L8S   * FC   ! Notes: releases 2 sulfate and 1 HCHO for 1 HMS and 1 SO2 (jmm, 06/29/18)\n\n\n          ! make sure HMS produced is less than HCHO available\n          ! (jmm, 06/28/18)\n          LSTOT_HMS = L7S - L7S_b - L8S\n          IF (LSTOT_HMS > HCHO0) THEN\n             L7S = HCHO0 + L7S_b + L8S\n          ELSE\n             L7S = L7S\n          ENDIF\n\n          ! make sure HMS decomposed to HCHO and SO2 is less than HMS available\n          ! (jmm, 06/28/18)\n          IF (-LSTOT_HMS > HMS0) THEN\n             L7S_b = ( HMS0 + L7S ) * L7S_b / ( L7S_b + L8S )\n             L7S   = ( HMS0 + L7S ) * L8S   / ( L7S_b + L8S )\n          ELSE\n             L7S_b = L7S_b\n             L8S   = L8S\n          ENDIF\n\n          LSTOT0 = L2S + L3S + L4S + L5S + L6S + L7S - L7S_b + L8S ! (qjc, 11/04/16), (jmm, 06/13/18)\n\n          ! make sure sulfate produced is less than SO2 available\n          ! (qjc, 06/20/16)\n          IF (LSTOT0 > SO2_ss) THEN\n\n             L2S   = SO2_ss * L2S   / LSTOT0\n             L3S   = SO2_ss * L3S   / LSTOT0\n             L4S   = SO2_SS * L4S   / LSTOT0\n             L5S   = SO2_ss * L5S   / LSTOT0\n             L3S_1 = SO2_ss * L3S_1 / LSTOT0\n             L5S_1 = SO2_ss * L5S_1 / LSTOT0\n             L6S_1 = SO2_ss * L6S_1 / LSTOT0\n             L7S   = SO2_SS * L7S   / LSTOT0 ! (jmm, 06/13/18)\n             L8S   = SO2_SS * L8S   / LSTOT0 ! (jmm, 06/29/18)\n\n\n             ! This is the ratio used to calculate the actual removal of\n             ! HOBr by SO2 for use in gckpp_HetRates.F90 (qjc, 06/20/16)\n             State_Chm%fupdateHOBr(I,J,L) = fupdateHOBr_0 * SO2_ss/ LSTOT0\n             State_Chm%fupdateHOCl(I,J,L) = fupdateHOCl_0 * SO2_ss/ LSTOT0\n\n          ELSE\n\n             L2S   = L2S\n             L3S   = L3S\n             L4S   = L4S\n             L5S   = L5S\n             L6S   = L6S\n             L3S_1 = L3S_1\n             L5S_1 = L5S_1\n             L6S_1 = L6S_1\n             L7S   = L7S  ! (jmm, 06/13/18)\n             L8S   = L8S  ! (jmm, 06/29/18)\n\n\n             ! This is the ratio used to calculate the actual removal of\n             ! HOBr by SO2 (qjc, 06/20/16)\n             State_Chm%fupdateHOBr(I,J,L) = fupdateHOBr_0\n             State_Chm%fupdateHOCl(I,J,L) = fupdateHOCl_0\n\n          ENDIF\n\n          ! Decide whether or not it is necessary to use heterogeneous cloud\n          ! pH calculations based on the Fahey and Pandis, 2001 decision\n          ! algorithm (bec, 12/23/11)\n\n          ! Add up total seasalt and dust and convert to ug/m3\n          ! Note that it is better to use dust and sea-salt alkalinity\n          ! tracers if these are being transported (bec, 12/23/11)\n\n#ifdef TOMAS\n          !%%%%%%%%%%%%%%%%% BUG FIX FOR TOMAS %%%%%%%%%%%%%%%%%%%%%%%\n          ! NOTE: TOMAS uses its own dust tracers and does not\n          ! carry ALKdst.  Set ALKdst to zero here. (bmy, 1/28/14)\n          ALKdst = 0e+0_fp\n#else\n\n          ! For other simulations, Sum up the contributions from\n          ! DST1 thru DST4 tracers into ALKdst. (bmy, 1/28/14)\n          ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n          ALKdst = ( Spc(id_DSTbin1)%Conc(I,J,L) + Spc(id_DSTbin2)%Conc(I,J,L) + Spc(id_DSTbin3)%Conc(I,J,L) + &\n                     Spc(id_DSTbin4)%Conc(I,J,L) + Spc(id_DSTbin5)%Conc(I,J,L) + Spc(id_DSTbin6)%Conc(I,J,L) + &\n                     Spc(id_DSTbin7)%Conc(I,J,L)) *          &\n                     1.e+9_fp * State_Met%AD(I,J,L)                       &\n                     / ( AIRMW / State_Chm%SpcData(id_DSTbin1)%Info%MW_g ) &\n                     / State_Met%AIRVOL(I,J,L)\n#endif\n\n          ALKss  = ( Spc(id_SALA)%Conc(I,J,L) + Spc(id_SALC)%Conc(I,J,L) ) *        &\n                     1.e+9_fp * State_Met%AD(I,J,L)                       &\n                     / ( AIRMW / State_Chm%SpcData(id_SALA)%Info%MW_g ) &\n                     / State_Met%AIRVOL(I,J,L)\n\n          ALKds = ALKdst + ALKss\n\n          ! Get NH3 concentrations (v/v)\n          NH3 = Spc(id_NH3)%Conc(I,J,L)\n\n          ! Initialize\n          BULK = 0\n          SIZE_RES = 0\n\n          ! Fahey and Seinfeld decision algorithm\n          IF ( H2O20 > SO2_ss + 1e-9_fp ) THEN\n             BULK = 1\n          ELSEIF( LWC < 0.1e-6_fp ) THEN !10^-6 coversion from g/m3 --> m3/m3\n             SIZE_RES = 1\n          ELSEIF( gno3 > NH3 ) THEN\n             IF ( SO2_ss >= 5.e-9_fp          .and. &\n                  H2O20  >= SO20   )                &\n                  BULK    = 1\n             IF ( LWC    >= 0.3e-6_fp         .and. &\n                  SO2_ss >= 3.e-9_fp          .and. &\n                  H2O20  >= SO2_ss )                &\n                  BULK    = 1\n             IF ( ALKds  >= 5.e+0_fp          .and. &\n                  LWC    >= 0.5e-6_fp         .and. &\n                  H2O20  >= SO2_ss )                &\n                  BULK    = 1\n             IF ( LWC    >= 0.1e-6_fp         .and. &\n                  gno3   <= (NH3 + 2.e-9_fp) )      &\n                  BULK    = 1\n          ELSEIF( LWC    >= 0.5e-6_fp ) THEN\n             IF ( H2O20  >= (0.9e+0_fp * SO2_ss) )  &\n                  BULK    = 1\n             IF ( NH3    <= 1.e-9_fp          .and. &\n                  ALKds  >= 5.e+0_fp          .and. &\n                  SO2_ss <= 10.e-9_fp )             &\n                  BULK    = 1\n          ELSEIF( LWC    >= 0.3e-6_fp ) THEN\n             IF ( NH3    >= (gno3 + 5.e-9_fp) .and. &\n                  SO2_ss <= 10.e-9_fp )             &\n                  BULK    = 1\n             IF ( gno3   <= 1.e-9_fp          .and. &\n                  NH3    >= (gno3 + 2.e-9_fp) )     &\n                  BULK    = 1\n             IF ( gno3   <= 7.e-9_fp          .and. &\n                  NH3    >= (gno3 + 3.e-9_fp) )     &\n                  BULK    = 1\n             IF ( ALKds  >= 3.e+0_fp          .and. &\n                  NH3 <= 10e-9_fp             .and. &\n                  SO2_ss <= 5e-9_fp )               &\n                  BULK    = 1\n             IF ( ALKds  >= 5.e+0_fp          .and. &\n                  NH3    <= 10.e-9_fp         .and. &\n                  SO2_ss <= 5.e-9_fp )              &\n                  BULK    = 1\n             IF ( SO2_ss >= 1.5e-9_fp         .and. &\n                  H2O20  >= SO2_ss )                &\n                  BULK    = 1\n             IF ( NH3    <= 12.e-9_fp         .and. &\n                  ALKds  >=10.e+0_fp )              &\n                  BULK    = 1\n             IF ( NH3    <= 1.e-9_fp          .and. &\n                  ALKds  >= 4.e+0_fp          .and. &\n                  SO2_ss <= 10.e-9_fp )             &\n                  BULK    = 1\n             IF ( NH3    <= 5.e-9_fp          .and. &\n                  ALKds  >= 6.e+0_fp          .and. &\n                  SO2_ss <= 10.e-9_fp )             &\n                  BULK    = 1\n             IF ( NH3    <= 7.e-9_fp          .and. &\n                  ALKds   >-8.e+0_fp          .and. &\n                  SO2_ss <= 10.e-9_fp )             &\n                  BULK    = 1\n          ELSEIF( LWC    >= 0.1e-6_fp ) THEN\n             IF ( NH3    <= 1.e-9_fp          .and. &\n                  ALKds  >= 5.e+0_fp   )            &\n                  BULK    = 1\n             IF ( NH3    <= 5.e-9_fp          .and. &\n                  ALKds  >= 10.e+0_fp  )            &\n                  BULK    = 1\n             IF ( gno3   <= 1.e-9_fp          .and. &\n                  NH3    >= (gno3 + 2.e-9_fp) .and. &\n                  SO2_ss <= 7.e-9_fp )              &\n                  BULK    = 1\n             IF ( gno3   <= 1.e-9_fp          .and. &\n                  NH3    >= (gno3 + 2.e-9_fp) .and. &\n                  ALKds  >= 2.e+0_fp )              &\n                  BULK = 1\n             IF ( gno3   <= 3.e-9_fp          .and. &\n                  NH3    >= (gno3 + 4.e-9_fp) )     &\n                  BULK    = 1\n             IF ( gno3   <= 7.e-9_fp          .and. &\n                  NH3    >= (gno3 + 3.e-9_fp) .and. &\n                  SO2_ss <= 5.e-9_fp )              &\n                  BULK    = 1\n             IF ( gno3   <= 7.e-9_fp          .and. &\n                  NH3    >= (gno3 + 3.e-9_fp) .and. &\n                  ALKds  >= 4.e+0_fp          .and. &\n                  SO2_ss <= 9.e-9_fp  )             &\n                  BULK    = 1\n             IF ( ALKds  >= 3.e+0_fp          .and. &\n                  NH3    <= 3.e-9_fp          .and. &\n                  SO2_ss <= 4.e-9_fp )              &\n                  BULK    = 1\n             IF ( ALKds  >= 5.e+0_fp          .and. &\n                  SO2_ss <= 5.e-9_fp          .and. &\n                  NH3    <= 7.e-9_fp )              &\n                  BULK    = 1\n             IF ( NH3    >= (gno3 + 2.e-9_fp) .and. &\n                  SO2_ss <= 5.e-9_fp )              &\n                  BULK    = 1\n             IF ( NH3    >= (gno3 + 4.e-9_fp) .and. &\n                  SO2_ss <= 10.e-9_fp )             &\n                  BULK    = 1\n             IF ( ALKds  >= 2.e+0_fp          .and. &\n                  NH3    <= 10.e-9_fp         .and. &\n                  H2O20  >= SO2_ss )                &\n                  BULK    = 1\n             IF ( NH3    <= 1.e-9_fp          .and. &\n                  SO2_ss >= 3.e-9_fp          .and. &\n                  H2O20  >= SO2_ss )                &\n                  BULK    = 1\n          ELSE\n             SIZE_RES = 1\n          ENDIF\n\n          ! Decide whether or not to perform sulfate production rate\n          ! enhancement due to cloud drop heterogenity in pH over the oceans\n          ! (bec, 12/23/11)\n          IF ( SIZE_RES == 1 .AND. State_Met%IsWater(I,J) .AND. &\n               TK > 268.15 ) THEN\n\n             ! Get total in-cloud sulfate production based on bulk cloud pH\n             ! calculations for use in HET_DROP_CHEM\n             ! added in SO4 from HMS (jmm, 06/29/18)\n             LSTOT = (L2S + L3S + L4S + L5S + L6S + L8S + L8S) / FC !(qjc, 06/20/16)\n\n             ! Get coarse-mode sea-salt concentration for use in\n             ! HET_DROP_CHEM [v/v]\n             ! Note that it is better to use coarse sea salt alkalinity\n             ! tracer if it is being transported (bec, 12/23/11)\n             SSCvv  = Spc(id_SALC)%Conc(I,J,L)\n\n             ! Get sulfate concentrations for use in HET_DROP_CHEM [v/v]\n             aSO4  =  Spc(id_SO4)%Conc(I,J,L)\n\n             ! This is to make sure HET_DROP_CHEM does not compute more\n             ! sulfate then there is SO2\n             ! Add L5S (qjc, 11/04/16)\n             ! Add L7S, L7S_b, and L8S (jmm, 06/29/18)\n             SO2_sr = MAX( SO2_ss - ( L2S + L3S + L4S + L5S + L6S + &\n                  L7S - L7S_b + L8S), MINDAT)\n\n             CALL HET_DROP_CHEM( I,    J,   L,      LSTOT, SSCvv, &\n                                 aSO4, NH3, SO2_sr, H2O20, GNO3,  SR, &\n                                 Input_Opt, State_Met, State_Chm )\n\n             ! Henry's Law constant of O3 and HOBr (M atm-1)\n             HCO3   = 1.13e-2_fp * EXP( 8.51e+0_fp * &\n                      ( 298.15e+0_fp / TK - 1.e+0_fp ) )\n             HCHOBr = 1.3e+3_fp\n             HCHOCl = 6.6e+2_fp\n\n             ! Rate coefficient (M-1 s-1)\n             KO3   = 7.32e+14_fp * EXP( -4.03e+3_fp / TK ) ! for O3+SO3\n             KHOBr = 5.0e+9_fp                             ! for HOBr+SO3\n             KHOCl = 7.6e+8_fp                             ! for HOCl+SO3\n             ! Make sure we don't divide by zero (ckeller, 1/25/18)\n             TMP = KHOBr*HOBr0*HCHOBr + KO3*O3*HCO3 + KHOCl*HOCl0*HCHOCl\n             IF ( TMP > 0.0_fp ) THEN\n                  f_srhobr = KHOBr*HOBr0*HCHOBr / TMP\n                  f_srhocl = KHOCl*HOCl0*HCHOCl / TMP\n\n                  SRhobr   = SR * f_srhobr\n                  SRhocl = SR * f_srhocl\n                  SRo3   = SR * (1-f_srhobr-f_srhocl)\n             ELSE\n                SR     = 0.e+0_fp\n                SRhobr = 0.e+0_fp\n                SRhocl = 0.e+0_fp\n                SRo3   = 0.e+0_fp\n                so2_sr = 0.e+0_fp\n             ENDIF\n          ELSE\n             SR     = 0.0_fp\n             SRhobr = 0.0_fp\n             SRhocl = 0.e+0_fp\n             SRo3   = 0.0_fp\n             so2_sr = 0.0_fp\n             LSTOT  = 0.0_fp\n          ENDIF\n\n          ! We have used the in-cloud LWC to compute the sulfate\n          ! aqueous chemistry.  We get the appropriate grid-box averaged\n          ! mass of SO2 and sulfate by multiplying the reaction rates\n          ! L2S and L3s by the cloud fraction after the aqueous chemistry\n          ! has been done.  (lzh, jaf, bmy, 5/27/11)\n          SR     =  SR     * FC\n          SRo3   =  SRo3   * FC !(qjc, 04/10/16)\n          SRhobr =  SRhobr * FC !(qjc, 04/10/16)\n          SRhocl =  SRhocl * FC\n\n          ! Store initial SO2_ss (qjc, 06/20/16)\n          SO2_ss0 = SO2_ss\n\n          ! Make sure SO2_ss and H2O20 are in the proper range\n          ! Add L5S (qjc, 11/04/16)\n          ! Add L7S and L7S_b (jmm, 06/13/18)\n          ! Add loss and production of HCHO (jmm, 06/13/18)\n          ! Add loss and production of HMS (jmm, 06/15/18)\n          SO2_ss = MAX( SO2_ss - ( L2S+L3S+L4S+L5S+L6S+ &\n               L7S-L7S_b+L8S+SR ), MINDAT )\n          H2O20  = MAX( H2O20  - L2S,                    MINDAT )\n          HCHO0  = MAX( HCHO0  -  L7S + L7S_b + L8S, MINDAT )\n          HMS0  = MAX( HMS0  +  L7S - L7S_b - L8S, MINDAT )\n          O3  = MAX( O3 - L3S, MINDAT )\n          OH0 = MAX( OH0 - L8S, MINDAT )\n\n\n          ! Factor to calculate effective SO3 and HSO3 in aqchem_so2 to\n          ! be used in HOBr+HSO3/SO3 (qjc, 06/20/16)\n          rSIV = SO2_sr/SO2_ss0\n          rSIV = MAX(rSIV, 0.e+0_fp)\n          rSIV = MIN(rSIV, 1.e+0_fp)\n\n          ! Store HSO3aq, SO3aq for use in gckpp_HetRates.F90\n          State_Chm%HSO3_AQ(I,J,L) = HSO3aq * ( 1.0_fp + rSIV ) / 2.0_fp\n          State_Chm%SO3_AQ(I,J,L)  = SO3aq  * ( 1.0_fp + rSIV ) / 2.0_fp\n\n          ! Update SO2 level, save SO2[ppv], H2O2[ppv] for WETDEP\n          SO2s( I,J,L) = SO2_ss\n          H2O2s(I,J,L) = H2O20\n\n          ! SO2 chemical loss rate  = SO4 production rate [v/v/timestep]\n          ! Add HMS (jmm, 06/13/18)\n          PSO4_SO2(I,J,L) = LSTOT + PSO4E\n          PSO4_ss (I,J,L) = PSO4F\n          PHMS_SO2(I,J,L) = L7S\n          PSO2_HMS(I,J,L) = L7S_b\n          PSO4_HMS(I,J,L) = L8S + L8S\n\n\n       ELSE\n\n          ! Otherwise, don't do aqueous chemistry, and\n          ! save the original concentrations into SO2 and H2O2\n          H2O2s(I,J,L) = MAX( H2O20,  1.0e-32_fp )\n          SO2s(I,J,L ) = MAX( SO2_ss, 1.0e-32_fp )\n          L2S          = 0.e+0_fp\n          L3S          = 0.e+0_fp\n          L3S_1        = 0.e+0_fp !(qjc, 11/04/16)\n          L4S          = 0.e+0_fp\n          L5S          = 0.e+0_fp !(qjc, 11/04/16)\n          L5S_1        = 0.e+0_fp !(qjc, 11/04/16)\n          L6S          = 0.e+0_fp\n          L6S_1        = 0.e+0_fp\n          SR           = 0.e+0_fp\n          SRhobr       = 0.e+0_fp\n          SRhocl       = 0.e+0_fp\n          SRo3         = 0.e+0_fp\n          HPLUS        = 0.e+0_fp\n          L7S          = 0.e+0_fp !(jmm, 06/13/18)\n          L7S_b        = 0.e+0_fp !(jmm, 06/13/18)\n          L8S          = 0.e+0_fp !(jmm, 06/13/18)\n\n          ! Store HSO3aq, SO3aq for use in gckpp_HetRates.F90\n          ! Avoid divide-by-zero errors\n          State_Chm%HSO3_AQ(I,J,L)     = 1.0e-32_fp\n          State_Chm%SO3_AQ(I,J,L)      = 1.0e-32_fp\n\n          ! This is the ratio used to calculate the actual removal of\n          ! HOBr by SO2 for use in gckpp_HetRates.F90 (qjc, 06/20/16)\n          State_Chm%fupdateHOBr(I,J,L) = 0.e+0_fp\n          State_Chm%fupdateHOCl(I,J,L) = 0.e+0_fp\n\n          ! SO2 chemical loss rate  = SO4 production rate [v/v/timestep]\n          ! Add HMS (jmm, 06/13/18)\n          PSO4_SO2(I,J,L) = PSO4E\n          PSO4_ss (I,J,L) = PSO4F\n          PHMS_SO2(I,J,L) = 0.0e+0_fp\n          PSO2_HMS(I,J,L) = 0.0e+0_fp\n          PSO4_HMS(I,J,L) = 0.0e+0_fp\n\n\n       ENDIF\n\n       ! Store updated SO2, H2O2 back to the tracer arrays\n       ! Add HCHO, OH, O3, and HMS (jmm, 06/13/18)\n       If (FullRun) Then\n          Spc(id_SO2)%Conc(I,J,L)  = SO2s( I,J,L)\n          Spc(id_H2O2)%Conc(I,J,L) = H2O2s(I,J,L)\n\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n             Spc(id_OH)%Conc(I,J,L)   = OH0\n             Spc(id_O3)%Conc(I,J,L)   = O3\n             Spc(id_CH2O)%Conc(I,J,L) = HCHO0\n             Spc(id_HMS)%Conc(I,J,L)  = HMS0\n          ENDIF\n\n          ! Set SO4H1 and SO4H2 to zero at end of each timestep\n          IF ( id_SO4H1 > 0 ) Spc(id_SO4H1)%Conc(I,J,L) = 0.0e+0_fp\n          IF ( id_SO4H2 > 0 ) Spc(id_SO4H2)%Conc(I,J,L) = 0.0e+0_fp\n          IF ( id_SO4H3 > 0 ) Spc(id_SO4H3)%Conc(I,J,L) = 0.0e+0_fp\n          IF ( id_SO4H4 > 0 ) Spc(id_SO4H4)%Conc(I,J,L) = 0.0e+0_fp\n       End If\n\n       ! SO2 chemical loss rate  = SO4 production rate [v/v/timestep]\n       ! Add L5S (qjc, 11/04/16)\n       ! Add L8S (jmm, 06/29/18)\n       PSO4_SO2(I,J,L) = L1 + L2S + L3S + L4S + L5S + PSO4E + SR + &\n            L6S + L8S + L8S\n\n       ! Production of sulfate on sea salt\n       PSO4_ss (I,J,L) = PSO4F\n\n#ifdef APM\n       PSO4_SO2APM(I,J,L) = L2S + L3S + L4S + L5S + SR\n       PSO4_SO2APM(I,J,L) = MAX(0.d0,PSO4_SO2APM(I,J,L))\n       PSO4_SO2SEA(I,J,L) = PSO4E + PSO4F\n       PSO4_SO2SEA(I,J,L) = MAX(0.d0,PSO4_SO2SEA(I,J,L))\n#endif\n#ifdef TOMAS\n       PSO4_SO2AQ(I,J,L) = L2S + L3S + SR ! For TOMAS microphysics\n#endif\n\n       ! tdf Production of sulfate and nitrate on dust\n       IF ( LDSTUP ) THEN\n\n          ! NB Fine dust mass excluded from PSO4_SO2 - kept separately\n          ! (tdf 07/24/08)\n          ! tdf PNIT_d, PH2SO4_d, and PSO4_d computed in DUST_CHEM\n\n          DO IBIN = 1, NDSTBIN\n             ! included P(SO4) due to uptake of H2SO4(g)        !tdf 3/2/2K9\n             PSO4_dust(I,J,L,IBIN) = PSO4_d(IBIN) + PH2SO4_d(IBIN)\n             PNIT_dust(I,J,L,IBIN) = PNIT_d(IBIN)\n          END DO\n\n          ! tdf Subtract from PSO4_SO2 that which is now diverted to dust\n          DO IBIN = 1, NDSTBIN\n             PSO4_SO2(I,J,L) =  PSO4_SO2(I,J,L) - PH2SO4_d(IBIN)\n          END DO\n\n       ENDIF    !tdf end of if (LDSTUP) condition\n\n       !=================================================================\n       ! HISTORY (aka netCDF diagnostics)\n       !=================================================================\n       IF ( FullRun ) THEN\n\n          ! P(SO4) from gas-phase oxidation [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromGasPhase ) THEN\n             State_Diag%ProdSO4fromGasPhase(I,J,L) = &\n                  ( L1  * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) from aqueous-phase oxidation with H2O2 [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromH2O2inCloud ) THEN\n             State_Diag%ProdSO4fromH2O2inCloud(I,J,L) = &\n                  ( L2S * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) from aqueous-phase oxidation with O3 [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromO3InCloud ) THEN\n             State_Diag%ProdSO4fromO3InCloud(I,J,L) = &\n                  ( ( L3S + SRo3 ) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) from aqueous-phase oxidation with HOBr [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromHOBrInCloud ) THEN\n             State_Diag%ProdSO4fromHOBrInCloud(I,J,L) = &\n                  ( ( L5S + SRhobr ) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) from aqueous-phase oxidation with O2 metal-catalyzed\n          ! [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromO2InCloudMetal ) THEN\n             State_Diag%ProdSO4fromO2InCloudMetal(I,J,L) = &\n                  ( L4S * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) from O3 in sea salt aerosol [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromO3inSeaSalt ) THEN\n             State_Diag%ProdSO4fromO3inSeaSalt(I,J,L) = &\n                  ( ( PSO4E + PSO4F ) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) by SRo3 [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromSRO3 ) THEN\n             State_Diag%ProdSO4fromSRO3(I,J,L) = &\n                  ( SRo3 * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) by SRhobr [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromSRHOBr ) THEN\n             State_Diag%ProdSO4fromSRHOBr(I,J,L) = &\n                  ( SRhobr * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) by o3s [kg S/s]\n          IF ( State_Diag%Archive_ProdSO4fromO3s ) THEN\n             State_Diag%ProdSO4fromO3s(I,J,L) = &\n                  ( L3S_1 * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(HMS) by SO2 and HCHO [kg S/s]\n          ! jmm (06/13/18)\n          IF ( State_Diag%Archive_ProdHMSfromSO2andHCHOinCloud ) THEN\n             State_Diag%ProdHMSfromSO2andHCHOinCloud(I,J,L) = &\n                  ( L7S * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO2 and HCHO) from HMS decomp [kg S/s]\n          ! jmm (06/13/18)\n          IF ( State_Diag%Archive_ProdSO2andHCHOfromHMSinCloud ) THEN\n             State_Diag%ProdSO2andHCHOfromHMSinCloud(I,J,L) = &\n                  ( L7S_b * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n          ENDIF\n\n          ! P(SO4) from aqueous-phase oxidation of HMS [kg S/s]\n          ! jmm (07/06/18)\n          IF ( State_Diag%Archive_ProdSO4fromHMSinCloud ) THEN\n             State_Diag%ProdSO4fromHMSinCloud(I,J,L) = &\n                  ( 2.e+0_fp * L8S * State_Met%AD(I,J,L) / &\n                  TCVV_S ) / DTCHEM\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Diagnostics for acid uptake on dust aerosol simulations\n          !-----------------------------------------------------------\n          IF ( LDSTUP ) THEN\n\n             ! Zero\n             PSO4d_tot   = 0.e+0_fp\n             PH2SO4d_tot = 0.e+0_fp\n             PNITd_tot   = 0.e+0_fp\n\n             DO IBIN = 1, NDSTBIN\n                PSO4d_tot   = PSO4d_tot   + PSO4_d(IBIN)\n                PNITd_tot   = PNITd_tot   + PNIT_d(IBIN)\n                PH2SO4d_tot = PH2SO4d_tot + PH2SO4_d(IBIN)\n             END DO\n\n             ! P(SO4) from O3 oxidation on dust aerosols [kg S/s]\n             IF ( State_Diag%Archive_ProdSO4fromOxidationOnDust ) THEN\n                State_Diag%ProdSO4fromOxidationOnDust(I,J,L) = &\n                     ( PSO4d_tot * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n             ENDIF\n\n             ! P(NIT) from HNO3 uptake on dust [kg N/s]\n             IF ( State_Diag%Archive_ProdNITfromHNO3uptakeOnDust ) THEN\n                State_Diag%ProdNITfromHNO3uptakeOnDust(I,J,L) = &\n                     ( PNITd_tot * State_Met%AD(I,J,L) / TCVV_N ) / DTCHEM\n             ENDIF\n\n             ! P(SO4) from uptake of H2SO4 on dust aerosols [kg S/s]\n             IF ( State_Diag%Archive_ProdSO4fromUptakeOfH2SO4g ) THEN\n                State_Diag%ProdSO4fromUptakeOfH2SO4g(I,J,L) = &\n                     ( PH2SO4d_tot * State_Met%AD(I,J,L) / TCVV_S )/DTCHEM\n             ENDIF\n          ENDIF\n       ENDIF\n#ifdef LUO_WETDEP\n       ! Luo et al 2020 wtdep\n       IF( SUM( State_Chm%QQ3D    (I,J,L:State_Grid%NZ) *                    &\n                State_Met%BXHEIGHT(I,J,L:State_Grid%NZ)   ) > 1.D-30 ) THEN\n\n         State_Chm%pHRain(I,J,L) =                                           &\n              SUM( State_Chm%pHCloud (I,J,L:State_Grid%NZ)    *              &\n                   State_Chm%QQ3D    (I,J,L:State_Grid%NZ)    *              &\n                   State_Met%BXHEIGHT(I,J,L:State_Grid%NZ) )  /              &\n              SUM( State_Chm%QQ3D    (I,J,L:State_Grid%NZ)    *              &\n                   State_Met%BXHEIGHT(I,J,L:State_Grid%NZ) )\n\n         State_Chm%QQpHRain(I,J,L) =                                         &\n              SUM( State_Chm%pHCloud (I,J,L:State_Grid%NZ)    *              &\n                   State_Chm%QQ3D    (I,J,L:State_Grid%NZ)    *              &\n                   State_Met%BXHEIGHT(I,J,L:State_Grid%NZ) )\n\n         State_Chm%QQRain(I,J,L) =                                           &\n              SUM( State_Chm%QQ3D    (I,J,L:State_Grid%NZ)    *              &\n                   State_Met%BXHEIGHT(I,J,L:State_Grid%NZ) )\n       ELSE\n          ! Default wetdep scheme\n         State_Chm%pHrain(I,J,L)   = 5.6D0\n         State_Chm%QQpHrain(I,J,L) = 0.D0\n         State_Chm%QQrain(I,J,L)   = 0.D0\n       ENDIF\n#endif\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Deallocate if allocated\n    IF ( ASSOCIATED( NDENS_SALA ) ) DEALLOCATE ( NDENS_SALA )\n    IF ( ASSOCIATED( NDENS_SALC ) ) DEALLOCATE ( NDENS_SALC )\n\n    ! Free pointers\n    Spc        => NULL()\n    !SSAlk      => NULL()\n    H2O2s      => NULL()\n    SO2s       => NULL()\n    NDENS_SALA => NULL()\n    NDENS_SALC => NULL()\n\n  END SUBROUTINE CHEM_SO2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: seasalt_chem\n!\n! !DESCRIPTION: Subroutine SEASALT\\_CHEM computes SO4 formed from S(IV) + O3 on\n!  seasalt aerosols as a function of seasalt alkalinity. (bec, bmy, 4/13/05,\n!  10/7/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SEASALT_CHEM( I,          J,         L,         &\n                           ALK1,       ALK2,      SO2_cd,    &\n                           Kt1,        Kt2,       Kt1N,      &\n                           Kt2N,       Kt1L,      Kt2L,      &\n                           SO2_ss,     PSO4E,                &\n                           PSO4F,      AlkA,      AlkC,      &\n                           Input_Opt,  State_Met, State_Chm, &\n                           State_Diag, FullRun,   RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE TIME_MOD,           ONLY : GET_MONTH\n    USE TIME_MOD,           ONLY : ITS_A_NEW_MONTH\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)   :: I, J, L    ! Grid box indices\n    REAL(fp),       INTENT(IN)   :: SO2_cd     ! SO2 mixing ratio [v/v] after\n                                               !  gas phase chemistry and\n                                               !  dry deposition\n    REAL(fp),       INTENT(IN)   :: Kt1, Kt2   ! Rate constant [s-1] for\n                                               !  sulfate formation on sea\n                                               !  salt aerosols from GET_ALK\n                                               !  (1=fine; 2=coarse)\n    REAL(fp),       INTENT(IN)   :: Kt1N, Kt2N\n    REAL(fp),       INTENT(IN)   :: Kt1L, Kt2L\n    REAL(fp),       INTENT(IN)   :: ALK1, ALK2 ! Alkalinity [kg] from\n                                               !  seasalt_mod\n    TYPE(MetState), INTENT(IN)   :: State_Met  ! Meteorology State object\n    TYPE(OptInput), INTENT(IN)   :: Input_Opt  ! Input Options object\n    LOGICAL,        INTENT(IN)   :: FullRun    ! Modify species conc?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: SO2_ss    ! SO2 mixing ratio [v/v]\n                                               !  after sea salt chemistry\n    REAL(fp),       INTENT(OUT)   :: PSO4E     ! SO4E (sulfate produced by\n                                               !  S(IV)+O3 on fine seasalt)\n                                               !  mixing ratio [v/v]\n    REAL(fp),       INTENT(OUT)   :: PSO4F     ! SO4F (sulfate produced by\n                                               !  S(IV)+O3 on coarse seasalt)\n    REAL(fp),       INTENT(OUT)   :: AlkA      ! Modified SSA alkalinity [v/v]\n    REAL(fp),       INTENT(OUT)   :: AlkC      ! Modified SSA alkalinity [v/v]\n    INTEGER,        INTENT(OUT)   :: RC        ! Success or failure?\n!\n! !REMARKS:\n!  Chemical reactions:\n!  ============================================================================\n!  (R1) SO2 + O3 + ALK => SO4 + O2\n!       Modeled after Chamedies and Stelson, 1992?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: MINDAT    = 1.0e-20_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp)            :: SO2_chem,    DTCHEM\n    REAL(fp)            :: EQ_1_C,      EQ_2_C\n    REAL(fp)            :: SO4E,        SO2_new,    SO4F\n    REAL(fp)            :: SO2_eq,      N_FLUX_A,   N_FLUX_C\n    REAL(fp)            :: END_ALK,     L5A,        L5C\n    REAL(fp)            :: EQ1,         EQ2,        TITR_SO2\n    REAL(fp)            :: TITR_HNO3,   NIT_vv,     NITs_vv\n    REAL(fp)            :: NIT0,        NITS0\n    REAL(fp)            :: F_SO2,       FALK_A_SO2, FALK_C_SO2\n    REAL(fp)            :: EQ_BEG,      F_SO2_A,    F_SO2_C\n    REAL(fp)            :: TOTAL_ACID_FLUX\n    REAL(fp)            :: HNO3_EQ,     TOT_FLUX_A, TOT_FLUX_C\n    REAL(fp)            :: FALK_A_HNO3, HNO3_vv\n    REAL(fp)            :: FALK_C_HNO3, F_HNO3_A,   F_HNO3_C\n    REAL(fp)            :: EQ_1_N,      EQ_2_N,     F_HNO3\n    REAL(fp)            :: HNO3_SSA,    HNO3_SSC,   N_FLUX\n    REAL(fp)            :: HNO3_EQ_C,   L6A,        L6C\n    REAL(fp)            :: C_FLUX_A,    C_FLUX_C,   C_FLUX\n    REAL(fp)            :: HNO3_ss,     HNO3_kg\n    REAL(fp)            :: MW_SAL1,     MW_SAL2  ! for salinity/alkalinity\n    REAL(fp)            :: L_FLUX_A,    L_FLUX_C,   TITR_HCl\n    REAL(fp)            :: ACL_vv,      CCL_vv,     ACL0\n    REAL(fp)            :: CCL0,        HCl_eq,     FALK_A_HCl\n    REAL(fp)            :: FALK_C_HCl,  HCl_vv,     F_HCl_A\n    REAL(fp)            :: F_HCl_C,     EQ_1_L,     EQ_2_L\n    REAL(fp)            :: F_HCl,       L_FLUX,     HCl_SSA\n    REAL(fp)            :: HCl_ss,      HCl_kg,     HCl_SSC\n    REAL(fp)            :: L7A,         L7C,        HCl_EQ_C\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(fp), POINTER   :: AD(:,:,:)\n    REAL(fp), POINTER   :: AIRVOL(:,:,:)\n\n    !=================================================================\n    ! SEASALT_CHEM begins here!\n    !=================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n\n    ! Initialize pointers\n    Spc     => State_Chm%Species\n    AD      => State_Met%AD\n    AIRVOL  => State_Met%AIRVOL\n\n    ! Uncomment if transporting salinity/alkalinity as needed\n    MW_SAL1 =  State_Chm%SpcData(id_SALAAL)%Info%MW_g\n    MW_SAL2 =  State_Chm%SpcData(id_SALCAL)%Info%MW_g\n\n    ! DTCHEM is the chemistry timestep in seconds\n    DTCHEM  = GET_TS_CHEM()\n\n    ! Convert SO2 [v/v] to [eq/gridbox]\n    ! Remove species molecular weights from equation (bmy, 2/10/17)\n    SO2_eq  = ( ( 2.0_fp * SO2_cd * AD(I,J,L) ) / AIRMW  ) * 1000.0_fp\n    SO2_eq  = MAX( SO2_eq, MINDAT )\n\n    ! Get the HNO3 and HCl concentration [v/v], either from the species\n    ! array (fullchem sims) or from HEMCO (aerosol-only sims)\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       HNO3_vv = Spc(id_HNO3)%Conc(I,J,L)\n       HCl_vv  = Spc(id_HCL)%Conc(I,J,L)\n    ELSE\n       HNO3_vv = GLOBAL_HNO3(I,J,L)\n       HCl_vv  = GLOBAL_HCl(I,J,L)\n    ENDIF\n\n    ! Convert HNO3 and HCl [v/v] to [equivalents]\n    HNO3_eq = ( ( HNO3_vv * AD(I,J,L) ) / AIRMW ) * 1000.0_fp\n    HCl_eq  = ( ( HCl_vv  * AD(I,J,L) ) / AIRMW ) * 1000.0_fp\n\n    !-----------\n    ! SO2\n    !-----------\n\n    ! Available flux of SO2 to accum sea salt aerosols [v/v/timestep]\n    L5A      = EXP( -Kt1 * DTCHEM )\n    F_SO2_A  = SO2_cd * ( 1.e+0_fp - L5A )\n    F_SO2_A  = MAX( F_SO2_A, 1.e-32_fp )\n\n    ! Convert to [eq/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    C_FLUX_A = ( 2.0_fp * F_SO2_A * AD(I,J,L) / AIRMW ) * 1000.0_fp\n\n    ! Available flux of SO2 to coarse sea salt aerosols [v/v/timestep]\n    L5C      = EXP( - Kt2 * DTCHEM )\n    F_SO2_C  = SO2_cd * ( 1.e+0_fp - L5C )\n    F_SO2_C  = MAX( F_SO2_C, 1.0e-32_fp )\n\n    ! Convert to [eq/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    C_FLUX_C = ( 2.0_fp * F_SO2_C * AD(I,J,L) / AIRMW ) * 1000.0_fp\n\n    ! Total flux of SO2 [v/v/timestep]\n    F_SO2    = F_SO2_A + F_SO2_C\n\n    ! Total flux of SO2 [eq/timestep]\n    C_FLUX   = C_FLUX_A + C_FLUX_C\n\n    !-----------\n    ! HNO3\n    !-----------\n\n    ! Available flux of HNO3 to accum sea salt aerosols [v/v/timestep]\n    L6A = EXP( - Kt1N * DTCHEM )\n    F_HNO3_A = HNO3_vv * ( 1.e+0_fp - L6A )\n    F_HNO3_A = MAX( F_HNO3_A, 1.0e-32_fp )\n\n    ! Convert to [eq/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    N_FLUX_A = ( F_HNO3_A * AD(I,J,L) / AIRMW ) * 1000.0_fp\n\n    ! Available flux of HNO3 to coarse sea salt aerosols [v/v/timestep]\n    L6C = EXP( - Kt2N * DTCHEM )\n    F_HNO3_C = HNO3_vv * ( 1.e+0_fp - L6C )\n    F_HNO3_C = MAX( F_HNO3_C, 1.0e-32_fp )\n\n    ! convert to [eq/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    N_FLUX_C = ( F_HNO3_C * AD(I,J,L) / AIRMW ) * 1000.0_fp\n\n    ! Total flux of HNO3\n    F_HNO3 = F_HNO3_A + F_HNO3_C ![v/v/timestep]\n    N_FLUX = N_FLUX_A + N_FLUX_C ![eq/timestep]\n\n    !-----------\n    ! HCl\n    !-----------\n\n    ! Available flux of HCl to accum sea salt aerosols [v/v/timestep]\n    L7A = EXP( - Kt1L * DTCHEM )\n    F_HCl_A = HCl_vv * ( 1.e+0_fp - L7A )\n    F_HCl_A = MAX( F_HCl_A, 1.0e-32_fp )\n\n    ! Convert to [eq/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    L_FLUX_A = ( F_HCl_A * AD(I,J,L) / AIRMW ) * 1000.0_fp\n\n    ! Available flux of HCl to coarse sea salt aerosols\n    ! [v/v/timestep]\n    L7C = EXP( - Kt2L * DTCHEM )\n    F_HCl_C = HCl_vv * ( 1.e+0_fp - L7C )\n    F_HCl_C = MAX( F_HCl_C, 1.0e-32_fp )\n\n    ! convert to [eq/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    L_FLUX_C = ( F_HCl_C * AD(I,J,L) / AIRMW ) * 1000.0_fp\n\n    ! Total flux of HCl\n    F_HCl  = F_HCl_A  + F_HCl_C ![v/v/timestep]\n    L_FLUX = L_FLUX_A + L_FLUX_C ![eq/timestep]\n\n    !-----------\n    ! Acid\n    !-----------\n\n    ! Total acid flux to accum sea-salt aerosols [eq/box/timestep]\n    TOT_FLUX_A = C_FLUX_A + N_FLUX_A + L_FLUX_A\n    TOT_FLUX_A = MAX( TOT_FLUX_A, MINDAT )\n\n    ! Total acid flux to coarse sea-salt aerosols [eq/box/timestep]\n    TOT_FLUX_C = C_FLUX_C + N_FLUX_C + L_FLUX_C\n    TOT_FLUX_C = MAX( TOT_FLUX_C, MINDAT )\n\n    ! Total  acid flux to sea salt aerosols\n    TOTAL_ACID_FLUX = TOT_FLUX_A + TOT_FLUX_C\n\n    ! Total available alkalinity [eq]\n    !----------------------------------------------------------------------\n    ! From Alexander et al., buffering capacity (or alkalinity) of sea-salt\n    ! aerosols is equal to 0.07 equivalents per kg dry sea salt emitted\n    ! Gurciullo et al., 1999. JGR 104(D17) 21,719-21,731.\n    ! tdf\n    !----------------------------------------------------------------------\n    EQ1 = ALK1 * 0.07e+0_fp\n    EQ2 = ALK2 * 0.07e+0_fp\n\n    !----------------------------------------------------------------------\n    ! NOTE: This was a sensitivity simulation, keep for future reference\n    !       cf Alexander et al 2005 (bec, bmy, 4/13/05)\n    !! Total available alkalinity [eq] doubled for Sievering run\n    !EQ1 = ALK1 * 0.14e+0_fp\n    !EQ2 = ALK2 * 0.14e+0_fp\n    !----------------------------------------------------------------------\n\n    IF ( TOT_FLUX_A > EQ1 ) THEN\n\n       ! Fraction of alkalinity available for each acid\n       FALK_A_SO2  = C_FLUX_A / TOT_FLUX_A\n       FALK_A_HNO3 = N_FLUX_A / TOT_FLUX_A\n       FALK_A_HCl  = L_FLUX_A / TOT_FLUX_A\n       FALK_A_SO2  = MAX( FALK_A_SO2, MINDAT )\n       FALK_A_HNO3 = MAX( FALK_A_HNO3, MINDAT )\n       FALK_A_HCl  = MAX( FALK_A_HCl, MINDAT )\n\n    ELSE\n\n       FALK_A_SO2  = 1.0e+0_fp\n       FALK_A_HNO3 = 1.0e+0_fp\n       FALK_A_HCl = 1.0e+0_fp\n\n    ENDIF\n\n    IF ( TOT_FLUX_C > EQ2 ) THEN\n\n       ! Fraction of flkalinity available for each acid\n       FALK_C_SO2  = C_FLUX_C/TOT_FLUX_C\n       FALK_C_HNO3 = N_FLUX_C/TOT_FLUX_C\n       FALK_C_HCl  = L_FLUX_C/TOT_FLUX_C\n       FALK_C_SO2  = MAX( FALK_C_SO2, MINDAT )\n       FALK_C_HNO3 = MAX( FALK_C_HNO3, MINDAT )\n       FALK_C_HCl  = MAX( FALK_C_HCl, MINDAT )\n\n    ELSE\n\n       FALK_C_SO2  = 1.0e+0_fp\n       FALK_C_HNO3 = 1.0e+0_fp\n       FALK_C_HCl  = 1.0e+0_fp\n\n    ENDIF\n\n    ! Alkalinity available for S(IV) --> S(VI)\n    EQ_1_C       = EQ1 * FALK_A_SO2\n    EQ_1_C       = MAX( EQ_1_C, MINDAT )\n    EQ_1_N       = EQ1 * FALK_A_HNO3\n    EQ_1_N       = MAX( EQ_1_N, MINDAT )\n    EQ_1_L       = EQ1 * FALK_A_HCl\n    EQ_1_L       = MAX( EQ_1_L, MINDAT )\n\n    EQ_2_C       = EQ2 * FALK_C_SO2\n    EQ_2_C       = MAX( EQ_2_C, MINDAT )\n    EQ_2_N       = EQ2 * FALK_C_HNO3\n    EQ_2_N       = MAX( EQ_2_N, MINDAT )\n    EQ_2_L       = EQ2 * FALK_C_HCl\n    EQ_2_L       = MAX( EQ_2_L, MINDAT )\n\n    !-----------------\n    ! Fine Seasalt\n    !-----------------\n\n    ! don't produce more SO4 than available ALK or SO2\n    SO4E         = MIN( C_FLUX_A, EQ_1_C, SO2_eq )\n    SO4E         = MAX( SO4E, MINDAT )\n\n    ! Update SO2 concentration [eq/box]\n    SO2_new      = SO2_eq - SO4E\n    SO2_new      = MAX( SO2_new, MINDAT )\n\n    !-----------------\n    ! Coarse Seasalt\n    !-----------------\n    IF ( SO2_new > MINDAT ) THEN\n\n       ! don't produce more SO4 than available ALK or SO2\n       SO4F      = MIN( C_FLUX_C, SO2_new, EQ_2_C )\n       SO4F      = MAX( SO4F, MINDAT )\n\n       !Update SO2 concentration [eq]\n       SO2_chem  = SO2_new - SO4F\n       SO2_chem  = MAX( SO2_chem, MINDAT )\n    ELSE\n       SO4F      = MINDAT\n       SO2_chem  = MINDAT\n    ENDIF\n\n    ! Alkalinity titrated by S(IV) --> S(VI) [eq]\n    TITR_SO2     = SO4E + SO4F\n\n    ! Modified SO2 [eq] converted back to [v/v]\n    ! Remove species molecular weights from equation (bmy, 2/10/17)\n    SO2_ss       = ( SO2_chem * AIRMW / AD(I,J,L) ) / 2000.0_fp\n    SO2_ss       = MAX( SO2_ss, MINDAT )\n\n    ! SO4E produced converted from [eq/timestep] to [v/v/timestep]\n    ! Remove species molecular weights from equation (bmy, 2/10/17)\n    PSO4E        = ( SO4E * AIRMW / AD(I,J,L) ) / 2000.0_fp\n\n    ! SO4F produced converted from [eq/timestep] to [v/v/timestep]\n    ! Remove species molecular weights from equation (bmy, 2/10/17)\n    !\n    ! NOTE: This new equation will correct the prior 3X overestimate\n    ! caused  by switching the MW of SO4S from 96 to 31.4 (bmy, 2/10/17)\n    PSO4F        = ( SO4F * AIRMW / AD(I,J,L) ) / 2000.0_fp\n\n    ! Alkalinity titrated by HNO3\n    HNO3_SSA     = MIN(N_FLUX_A, HNO3_EQ, EQ_1_N)\n    HNO3_SSA     = MAX(HNO3_SSA, MINDAT)\n    HNO3_EQ_C    = HNO3_EQ - HNO3_SSA\n    HNO3_EQ_C    = MAX(HNO3_EQ_C, MINDAT)\n    HNO3_SSC     = MIN(N_FLUX_C, HNO3_EQ_C, EQ_2_N)\n    HNO3_SSC     = MAX(HNO3_SSC, MINDAT)\n    TITR_HNO3    = HNO3_SSA + HNO3_SSC\n\n    ! Alkalinity titrated by HCl\n    HCl_SSA     = MIN(L_FLUX_A, HCl_EQ, EQ_1_L)\n    HCl_SSA     = MAX(HCl_SSA, MINDAT)\n    HCl_EQ_C    = HCl_EQ - HCl_SSA\n    HCl_EQ_C    = MAX(HCl_EQ_C, MINDAT)\n    HCl_SSC     = MIN(L_FLUX_C, HCl_EQ_C, EQ_2_L)\n    HCl_SSC     = MAX(HCl_SSC, MINDAT)\n    TITR_HCl    = HCl_SSA + HCl_SSC\n\n    ! HNO3 lost [eq/timestep] converted back to [v/v/timestep]\n    IF ( id_HNO3 > 0 ) THEN\n\n       ! Fullchem simulations:  Get HNO3 from the species array\n       ! Remove species molecular weights from equation (bmy, 2/10/17)\n       !HNO3_ss = ( HNO3_SSC * AIRMW / AD(I,J,L) ) / 1000.0_fp\n       ! Should remvoe HNO3 by both SALA and SALC (xnw, 12/8/17)\n       HNO3_ss = ( TITR_HNO3 * AIRMW / AD(I,J,L) ) / 1000.0_fp\n\n       If (FullRun) Then\n          ! Store back into the species array\n          Spc(id_HNO3)%Conc(I,J,L) = MAX( HNO3_vv - HNO3_ss, MINDAT )\n       End If\n\n    ELSE\n\n       ! Aerosol-only simulations: Use TITR_HNO3\n       ! Remove species molecular weight from equation (bmy, 2/10/17)\n       HNO3_ss = ( TITR_HNO3 * AIRMW / AD(I,J,L) ) / 1000.0_fp\n\n    ENDIF\n\n    ! HCl lost [eq/timestep] converted back to [v/v/timestep]\n    IF ( FullRun .and. id_HCl > 0 ) THEN\n       HCl_ss = ( TITR_HCl * AIRMW / AD(I,J,L) ) / 1000.0_fp\n       Spc(id_HCl)%Conc(I,J,L) = MAX( HCl_vv - HCl_ss, MINDAT )\n    ENDIF\n\n    !=================================================================\n    ! HISTORY (aka netCDF diagnostics)\n    !\n    ! Loss of HNO3 on sea salt [kg/s]\n    !=================================================================\n    IF ( FullRun .and. State_Diag%Archive_LossHNO3onSeaSalt ) THEN\n       State_Diag%LossHNO3onSeaSalt(I,J,L) = &\n            ( HNO3_ss * State_Met%AD(I,J,L) / TCVV_N ) / DTCHEM\n    ENDIF\n\n    ! NITS produced converted from [eq/timestep] to [v/v/timestep]\n    ! Remove species molecular weight from equation (bmy, 2/10/17)\n    !\n    ! NOTE: This new equation will correct the prior 2X overestimate\n    ! caused  by switching the MW of NITs from 62 to 31.4 (bmy, 2/10/17)\n    PNITs(I,J,L) = ( HNO3_SSC * AIRMW / AD(I,J,L) ) / 1000.0_fp\n\n    !Add NIT and Cl productions, xnw 12/8/17\n    PNIT(I,J,L) = ( HNO3_SSA * AIRMW / AD(I,J,L) ) / 1000.0_fp\n    PACL(I,J,L) = ( HCl_SSA * AIRMW / AD(I,J,L) ) / 1000.0_fp\n    PCCL(I,J,L) = ( HCl_SSC * AIRMW / AD(I,J,L) ) / 1000.0_fp\n\n    ! Modified accum alkalinity\n    ALKA         = EQ1 - (SO4E + HNO3_SSA + HCl_SSA)\n    !ALKA         = MAX( ALKA, MINDAT )\n\n    !------------------------------------------------------------------------\n    ! Uncomment this if you want to transport alkalinity (bec, bmy, 4/13/05)\n    ![eq] --> [kg] --> [v/v] use this only if transporting alkalinity\n    ALKA = (ALKA * ( AIRMW / MW_SAL1) ) / ( 7.0d-2 * AD(I,J,L) )\n    !ALKA = MAX( ALKAvv, MINDAT )\n    IF (ALKA .LE. MINDAT) ALKA = 0.e+0_fp\n    !------------------------------------------------------------------------\n\n    ! Modified accum alkalinity\n    ALKC         = EQ2 - (SO4F + HNO3_SSC + HCl_SSC)\n    !ALKC         = MAX( ALKC, MINDAT )\n\n    !------------------------------------------------------------------------\n    ! Uncomment this if you want to transport alkalinity (bec, bmy, 4/13/05)\n    !! [eq] --> [kg] --> [v/v] use this only if transporting alkalinity\n    ALKC = (ALKC * ( AIRMW / MW_SAL2 ))/(7.0d-2 * AD(I,J,L))\n    !ALKC = MAX(ALKCvv, MINDAT)\n    IF (ALKC .LE. MINDAT) ALKC = 0.e+0_fp\n    !------------------------------------------------------------------------\n\n    ! Free pointers\n    Spc    => NULL()\n    AD     => NULL()\n    AIRVOL => NULL()\n\n  END SUBROUTINE SEASALT_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dust_chem\n!\n! !DESCRIPTION: Subroutine DUST\\_CHEM computes SO4 formed from S(IV) + O3 on\n!  dust aerosols as a function of dust alkalinity  (tdf 3/28/2K8)\n!  Based on routine SEASALT\\_CHEM (bec, bmy, 4/13/05, 10/25/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DUST_CHEM( I,         J,         L,         &\n                        ALK,       SO2_cd,    H2SO4_cd,  &\n                        KTS,       KTN,       KTH,       &\n                        SO2_gas,   H2SO4_gas, PSO4d,     &\n                        PH2SO4d,   PNITd,     ALKA,      &\n                        Input_Opt, State_Met, State_Chm, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,       ONLY : NDSTBIN\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE TIME_MOD,           ONLY : GET_MONTH\n    USE TIME_MOD,           ONLY : ITS_A_NEW_MONTH\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L       ! Grid box indices\n    REAL(fp),       INTENT(IN)    :: SO2_cd        ! SO2 mixing ratio after\n                                                   !  gas phase chemistry and\n                                                   !  dry deposition [v/v]\n    REAL(fp),       INTENT(IN)    :: H2SO4_cd      ! H2SO4 mixing ratio after\n                                                   !  gas phase chemistry and\n                                                   !  dry deposition [v/v]\n    REAL(fp),       INTENT(IN)    :: ALK(NDSTBIN)  ! Dust Alkalinity [v/v]\n    REAL(fp),       INTENT(IN)    :: KTS(NDSTBIN)  ! Rate constant for uptake\n                                                   !  of SO2 on dust [s-1]\n    REAL(fp),       INTENT(IN)    :: KTN(NDSTBIN)  ! Rate constant for uptake\n                                                   !  of HNO3 on dust [s-1]\n    REAL(fp),       INTENT(IN)    :: KTH(NDSTBIN)  ! Size- and area-weighted\n                                                   !  FRACTION for uptake of\n                                                   !  H2SO4 on dust\n    TYPE(MetState), INTENT(IN)    :: State_Met     ! Meteorology State object\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt     ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm     ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: SO2_gas         ! SO2 mixing ratio after\n                                                     !  dust chem [v/v]\n    REAL(fp),       INTENT(OUT)   :: PSO4d(NDSTBIN)  ! Sulfate produced by\n                                                     !  S(IV)+O3 on dust in\n                                                     !  each size bin\n    REAL(fp),       INTENT(OUT)   :: H2SO4_gas       ! H2SO4 mixing ratio\n                                                     !  after dust chem [v/v]\n    REAL(fp),       INTENT(OUT)   :: PNITd (NDSTBIN) ! Nitrate produced by\n                                                     !  HNO3 uptake on dust\n                                                     !  in each size bin\n    REAL(fp),       INTENT(OUT)   :: PH2SO4d(NDSTBIN)! Sulfate produced by\n                                                     !  uptake of H2SO4 on\n                                                     !  dust in each size bin\n    REAL(fp),       INTENT(OUT)   :: ALKA(NDSTBIN)   ! Dust Alkalinity after\n                                                     !  dust chemistry [v/v]\n    INTEGER,        INTENT(OUT)   :: RC              ! Success or failure?\n!\n! !REMARKS:\n!  Chemical reactions:\n!  ============================================================================\n!  (R1) SO2 + O3 + CaCO3 => CaSO4 + O2 + CO2\n!                                                                             .\n!  (R2) 2(HNO3) + CaCO3 => Ca(NO3)2 + CO2 + H2O\n!                                                                             .\n! Added sulfate production due to H2SO4 adsorption tdf 2/13/2K9\n!  (R3) H2SO4  + CaCO3 => CaSO4 + H2O + CO2\n!\n! !REVISION HISTORY:\n!  28 Mar 2008 - T.D. Fairlie- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER  :: MINDAT = 1.0e-20_fp\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL              :: IT_IS_A_FULLCHEM_SIM\n    INTEGER              :: IBIN\n    REAL(fp)             :: EQ1\n    REAL(fp)             :: HNO3_gas\n    REAL(fp)             :: T_SO2, T_HNO3, T_H2SO4, KT1\n    REAL(fp)             :: RH2\n    REAL(fp)             :: SO2_chem,    DTCHEM\n    REAL(fp)             :: SO2_eq,      SO2_new,    SO4d\n    REAL(fp)             :: H2SO4_eq,    H2SO4_new\n    REAL(fp)             :: HNO3_eq,     HNO3_vv,    HNO3_new\n    REAL(fp)             :: HNO3_kg,     HNO3d\n    REAL(fp)             :: F_SO2_A,     F_SO2_T,    F_SO2\n    REAL(fp)             :: S_FLUX_A,    S_FLUX_T,   S_FLUX(NDSTBIN)\n    REAL(fp)             :: F_H2SO4_A,   F_H2SO4_T,  F_H2SO4\n    REAL(fp)             :: H_FLUX_A,    H_FLUX_T,   H_FLUX(NDSTBIN)\n    REAL(fp)             :: F_HNO3_A,    F_HNO3_T,   F_HNO3\n    REAL(fp)             :: N_FLUX_A,    N_FLUX_T,   N_FLUX(NDSTBIN)\n    REAL(fp)             :: T_FLUX_A,    TOT_FLUX(NDSTBIN)\n    REAL(fp)             :: FALK_SO2,    FALK_HNO3,  FALK_H2SO4\n    REAL(fp)             :: ALK_EQ_S (NDSTBIN), ALK_EQ_N (NDSTBIN)\n    REAL(fp)             :: ALK_EQ_H (NDSTBIN), TITR_H2SO4(NDSTBIN)\n    REAL(fp)             :: TITR_SO2 (NDSTBIN), TITR_HNO3(NDSTBIN)\n    REAL(fp)             :: ALK1_vv,     ALK1_kg,    ALK1_eq\n    REAL(fp)             :: ALKA_vv,     ALKA_kg,    ALKA_eq\n    REAL(fp)             :: END_ALK,     L5A,        L6A,      L7A\n    REAL(fp)             :: EQ_BEG,      MW_SO2,     MW_SO4\n    REAL(fp)             :: MW_NIT,      MW_HNO3\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(fp), POINTER    :: AD(:,:,:)\n    REAL(fp), POINTER    :: AIRVOL(:,:,:)\n\n    !=================================================================\n    ! DUST_CHEM begins here!\n    !=================================================================\n\n    ! Assume success\n    RC                   = GC_SUCCESS\n\n    IT_IS_A_FULLCHEM_SIM = Input_Opt%ITS_A_FULLCHEM_SIM\n\n    ! Set pointers\n    Spc                 => State_Chm%Species   ! Chemical species [kg]\n    AD                  => State_Met%AD\n    AIRVOL              => State_Met%AIRVOL\n\n    ! Set molecular weights locally\n    MW_SO2  = State_Chm%SpcData(id_SO2)%Info%MW_g\n    MW_SO4  = State_Chm%SpcData(id_SO4)%Info%MW_g\n    MW_NIT  = State_Chm%SpcData(id_NIT)%Info%MW_g\n    MW_HNO3 = State_Chm%SpcData(id_HNO3)%Info%MW_g\n\n    ! DTCHEM is the chemistry timestep in seconds\n    DTCHEM = GET_TS_CHEM()\n\n    ! Convert SO2 [v/v] to  [eq/gridbox]\n\n    !tdf Equivalence defined as moles of a substance * its valence\n    !tdf Note 0.064D0 is Mw of SO2 in kg\n    !    Hence, SO2_eq =  2 * moles(SO2) / gridbox\n    SO2_eq = ( 2.e+0_fp * SO2_cd * AD(I,J,L) ) / &\n             ( ( AIRMW / MW_SO2  ) * 0.064e+0_fp )\n    SO2_eq = MAX( SO2_eq, MINDAT )\n\n    !tdf 2/13/2K9\n    ! Convert H2SO4 [v/v] to  [eq/gridbox]\n    ! Note: H2SO4_cd [v/v] provided by H2SO4 production * DTCHEM\n\n    !tdf Equivalence defined as moles of a substance * its valence\n    !tdf Note 0.098D0 is Mw of H2SO4 in kg\n    !    Hence, H2SO4_eq =  2 * moles(H2SO4) / gridbox\n\n    H2SO4_eq = ( 2.e+0_fp * H2SO4_cd * AD(I,J,L) ) &\n               / ( AIRMW / 98.e+0_fp ) / 98.e-3_fp\n    H2SO4_eq = MAX( H2SO4_eq, MINDAT )\n    !tdf 2/13/2K9\n\n    ! HNO3 mixing ratio\n    IF ( IT_IS_A_FULLCHEM_SIM ) THEN\n\n       ! Convert HNO3 [v/v] to [equivalents]\n\n       !tdf Note 28.97/63.0 = Mw(air)/Mw(HNO3)\n       !    Hence, HNO3_eq =  1. * moles(HNO3) / gridbox\n\n       HNO3_vv = Spc(id_HNO3)%Conc(I,J,L)\n       HNO3_eq = HNO3_vv * AD(I,J,L) / ( AIRMW / 63.e+0_fp ) / 63.e-3_fp\n\n    ELSE\n\n       ! HNO3 is in v/v (from HEMCO)\n       HNO3_vv = GLOBAL_HNO3(I,J,L)\n\n       ! Convert HNO3 [v/v] to [equivalents]\n       HNO3_eq = HNO3_vv * AD(I,J,L) / ( AIRMW / 63e+0_fp ) / 63.e-3_fp\n\n    ENDIF\n\n    !--------------------------------------------------------\n    ! Compute Available SO2 fluxes to dust, S_FLUX (NDSTBIN)\n    !--------------------------------------------------------\n\n    S_FLUX_T = 0.0e+0_fp\n    F_SO2_T  = 0.0e+0_fp\n    RH2      = State_Met%RH(I,J,L) * 1.0e-2_fp\n\n    DO IBIN = 1, NDSTBIN\n\n       KT1      = 0.e+0_fp\n\n       ! Choose a threshold of 18% RH for SO2 uptake flux    tdf 4/22/08\n       IF ( RH2 >= 0.18e+0_fp ) THEN\n          KT1      = KTS(IBIN)\n       ENDIF\n\n       ! Available flux of SO2 to dust aerosols [v/v/timestep]\n       L5A      = EXP( -KT1 * DTCHEM )\n       F_SO2_A  = SO2_cd * ( 1.e+0_fp - L5A )\n       F_SO2_A  = MAX( F_SO2_A, 1.e-32_fp )\n\n       ! Available flux of SO2 converted to [eq/timestep]\n       S_FLUX_A = 2.e+0_fp * F_SO2_A * AD(I,J,L) / &\n                  ( AIRMW / MW_SO2 ) / 0.064e+0_fp\n       S_FLUX (IBIN) = S_FLUX_A\n\n       ! Total available flux of SO2 [v/v/timestep]\n       F_SO2_T  = F_SO2_T + F_SO2_A\n\n       ! Total available flux of SO2 [eq/timestep]\n       S_FLUX_T = S_FLUX_T + S_FLUX_A\n\n    END DO\n\n    !--------------------------------------------------------\n    ! Compute Available H2SO4 fluxes to dust, H_FLUX (NDSTBIN)\n    ! tdf 2/13/2K9\n    !--------------------------------------------------------\n\n    H_FLUX_T  = 0.0e+0_fp\n    F_H2SO4_T = 0.0e+0_fp\n\n    DO IBIN = 1, NDSTBIN\n\n       ! Supplied uptake rates, KTH, for H2SO4 uptake tdf 2/13/2K9\n       ! Now KTH is a fraction, so the flux is H2SO4_cd * KTH(IBIN)\n       !tdf 08/20/09\n       KT1      = KTH(IBIN)\n\n       ! Available flux of H2SO4 to dust aerosols [v/v/timestep]\n       !tdf L7A      = EXP( -KT1 * DTCHEM )\n       !tdf F_H2SO4_A  = H2SO4_cd * ( 1.e+0_fp - L7A )\n       F_H2SO4_A  = H2SO4_cd * KT1\n\n       F_H2SO4_A  = MAX( F_H2SO4_A, 1.e-32_fp )\n\n       ! Available flux of H2SO4 converted to [eq/timestep]\n       H_FLUX_A = 2.e+0_fp * F_H2SO4_A * AD(I,J,L) &\n                  / ( AIRMW / 98.e+0_fp ) / 0.098e+0_fp\n       H_FLUX (IBIN) = H_FLUX_A\n\n       ! Total available flux of H2SO4 [v/v/timestep]\n       F_H2SO4_T  = F_H2SO4_T + F_H2SO4_A\n\n       ! Total available flux of H2SO4 [eq/timestep]\n       H_FLUX_T = H_FLUX_T + H_FLUX_A\n\n    END DO\n\n    !--------------------------------------------------------\n    ! Compute Available HNO3 fluxes to dust, N_FLUX (NDSTBIN)\n    !--------------------------------------------------------\n\n    F_HNO3_T = 0.0e+0_fp\n    N_FLUX_T = 0.0e+0_fp\n\n    DO IBIN = 1, NDSTBIN\n\n       ! Available flux of HNO3 to dust aerosols [v/v/timestep]\n       L6A = EXP( - KTN(IBIN) * DTCHEM )\n       F_HNO3_A = HNO3_vv * ( 1.e+0_fp - L6A )\n       F_HNO3_A = MAX( F_HNO3_A, 1.0e-32_fp )\n\n       ! Available flux of HNO3 converted to [eq/timestep]\n       N_FLUX_A = F_HNO3_A * AD(I,J,L) / ( AIRMW / 63.e+0_fp ) / 0.063e+0_fp\n       N_FLUX (IBIN) = N_FLUX_A\n\n       !tdf 3/28/2K8\n       ! Accumulate Total available flux of HNO3\n       F_HNO3_T = F_HNO3_T + F_HNO3_A ![v/v/timestep]\n       N_FLUX_T = N_FLUX_T + N_FLUX_A ![eq/timestep]\n\n    END DO\n\n    !------------------------------------------\n    ! Compute Total Available Acid Flux to dust\n    !------------------------------------------\n\n    DO IBIN = 1, NDSTBIN\n\n       ! Total acid flux to DUST aerosols [eq/box/timestep] by size bin\n       !tdf T_FLUX_A  = S_FLUX (IBIN) + N_FLUX (IBIN)\n       !tdf Include sulfuric acid flux                       tdf 2/13/2K9\n       T_FLUX_A  = S_FLUX (IBIN) + N_FLUX (IBIN) + H_FLUX (IBIN)\n       T_FLUX_A  = MAX( T_FLUX_A, MINDAT )\n\n       ! Total acid flux to DUST aerosols\n       TOT_FLUX (IBIN) = T_FLUX_A\n\n    END DO\n\n    !-------------------------------------\n    ! Find Total Available Alkalinity [eq]\n    !-------------------------------------\n\n    DO IBIN = 1, NDSTBIN\n\n       ALK1_vv = ALK (IBIN)\n\n       !tdf 04/08/08\n       ! Convert dust alkalinity from vv to eq., using Mw(Ca) for\n       ! Mw (alkalinity). Recall, Equvalents = moles * valency\n       ! In this case, we have taken the valency of alkalinity as 2.\n       ! Units of ALK1_eq (below) work out to be moles * 2.\n       ALK1_eq     = 2.e+0_fp * ALK1_vv * AD(I,J,L) &\n                     / ( AIRMW / 40.e+0_fp ) / 40.e-3_fp\n\n       ! total acid flux available; exclude flux from H2SO4, since it is\n       ! not limited by dust alkalinity               ! tdf 3/02/2K9\n       T_FLUX_A = S_FLUX (IBIN) + N_FLUX (IBIN)\n       T_FLUX_A = MAX ( T_FLUX_A, MINDAT )\n\n       ! if the total acid flux available exceeds the available alkalinity\n       ! then compute the fraction of the available alkalinity for each acid\n       IF ( T_FLUX_A > ALK1_eq ) THEN\n\n          S_FLUX_A  = S_FLUX (IBIN)\n          N_FLUX_A  = N_FLUX (IBIN)\n\n          ! Fraction of alkalinity available for each acid\n          FALK_SO2  = S_FLUX_A / T_FLUX_A\n          FALK_SO2  = MAX( FALK_SO2, MINDAT )\n          FALK_HNO3 = N_FLUX_A / T_FLUX_A\n          FALK_HNO3 = MAX( FALK_HNO3, MINDAT )\n\n       ELSE\n\n          ! Fraction of alkalinity available for each acid\n          FALK_SO2  = 1.0e+0_fp\n          FALK_HNO3 = 1.0e+0_fp\n\n       ENDIF\n\n       !tdf Add sulfuric acid flux (not limited by alkalinity)    tdf 2/13/2K9\n       FALK_H2SO4 = 1.0e+0_fp\n\n       ! Alkalinity available for S(IV) --> S(VI)\n       EQ1             = ALK1_eq * FALK_SO2\n       EQ1             = MAX( EQ1, MINDAT )\n       ALK_EQ_S (IBIN) = EQ1\n\n       ! Alkalinity available for HNO3 update    tdf 04/07/08\n       EQ1             = ALK1_eq * FALK_HNO3\n       EQ1             = MAX( EQ1, MINDAT )\n       ALK_EQ_N (IBIN) = EQ1\n\n       ! H2SO4 not limited by dust alkalinity     tdf 3/02/2K9\n\n    END DO\n\n    !-------------------\n    ! Sulfate production\n    !-------------------\n\n    SO2_new       = SO2_eq\n\n    ! Don't produce more SO4 than available ALK or SO2\n    DO IBIN = 1, NDSTBIN\n\n       S_FLUX_A = S_FLUX (IBIN)\n       EQ1      = ALK_EQ_S (IBIN)\n       SO4d     = MIN( S_FLUX_A, EQ1, SO2_new )\n       SO4d     = MAX( SO4d, MINDAT )\n\n       ! Update SO2 concentration [eq/box]\n       SO2_new    = SO2_new - SO4d\n       SO2_new    = MAX( SO2_new, MINDAT )\n\n       ! Alkalinity titrated by S(IV) --> S(VI) [eq]\n       TITR_SO2 (IBIN) =  SO4d\n\n       !SO4d produced converted from [eq/timestep] to [v/v/timestep]\n       PSO4d (IBIN) = SO4d * 0.096e+0_fp * ( AIRMW / MW_SO4 ) / &\n                      AD(I,J,L) / 2.0e+0_fp\n\n       ! tdf\n       !if (I .eq. 1 .and. J .eq. 63 .and. L .eq. 6) then\n       !   print *,' CHEM_SO4: SO4 production, SO2'\n       !   write (6,30) IBIN, KTS(IBIN)\n       !   print *,' IBIN,EQ1,S_FLUX_A,SO2_new,SO4d,PSO4d(IBIN)'\n       !   write (6,31) IBIN,EQ1,S_FLUX_A,SO2_new,SO4d,PSO4d(IBIN)\n       !30 format (' IBIN, KTS(IBIN) ',I4,E12.3)\n       !31 format (' ',I4,5E12.3)\n       !endif\n\n    END DO\n\n    !Modified SO2 [eq] converted back to [v/v]\n    SO2_gas       = SO2_new * 0.064e+0_fp * ( AIRMW / MW_SO2 ) / &\n                    AD(I,J,L) / 2.0e+0_fp\n    SO2_gas       = MAX( SO2_gas, MINDAT )\n\n    !------------------------------------------------\n    ! Additional sulfate production from H2SO4 uptake\n    !------------------------------------------------\n\n    H2SO4_new   = H2SO4_eq\n\n    ! Don't produce more SO4 than available H2SO4\n    ! Uptake not limited by alkalinity\n    DO IBIN = 1, NDSTBIN\n\n       H_FLUX_A = H_FLUX (IBIN)\n\n       ! H2SO4 uptake not limited by dust alkalinity, EQ1\n       SO4d     = MIN( H_FLUX_A, H2SO4_new )\n       SO4d     = MAX( SO4d, MINDAT )\n\n       ! Update H2SO4 concentration [eq/box]\n       H2SO4_new    = H2SO4_new - SO4d\n       H2SO4_new    = MAX( H2SO4_new, MINDAT )\n\n       ! Alkalinity titrated by H2SO4 uptake [eq]\n       TITR_H2SO4 (IBIN) =  SO4d\n\n       !SO4d produced converted from [eq/timestep] to [v/v/timestep]\n       PH2SO4d (IBIN) = SO4d * 0.096e+0_fp * ( AIRMW / MW_SO4 ) / &\n                        AD(I,J,L) / 2.0e+0_fp\n\n       ! tdf\n       !if (I .eq. 1 .and. J .eq. 63 .and. L .eq. 6) then\n       !   print *,' CHEM_SO4: SO4 production, H2SO4'\n       !   write (6,40) IBIN, KTH(IBIN)\n       !   print *,' IBIN,H_FLUX_A,H2SO4_new,SO4d,PH2SO4d(IBIN)'\n       !   write (6,41) IBIN,H_FLUX_A,H2SO4_new,SO4d,PH2SO4d(IBIN)\n       !40 format (' IBIN, KTH(IBIN) ',I4,E12.3)\n       !41 format (' ',I4,4E12.3)\n       !endif\n\n    END DO\n\n    !Modified H2SO4 [eq] converted back to [v/v]\n    H2SO4_gas       = H2SO4_new * 0.098e+0_fp * ( AIRMW &\n                      / 98.e+0_fp ) / AD(I,J,L) / 2.0e+0_fp ! Hard-coded MW\n    H2SO4_gas       = MAX( H2SO4_gas, MINDAT )\n\n    !-------------------\n    ! Nitrate production\n    !-------------------\n\n    HNO3_new    = HNO3_eq\n\n    ! Alkalinity titrated by HNO3 in dust\n    DO IBIN = 1, NDSTBIN\n\n       N_FLUX_A = N_FLUX (IBIN)\n       EQ1      = ALK_EQ_N (IBIN)\n       HNO3d    = MIN( N_FLUX_A, EQ1, HNO3_new )\n       HNO3d    = MAX( HNO3d, MINDAT )\n\n       ! Update HNO3 concentration [eq/box]\n       HNO3_new = HNO3_new - HNO3d\n       HNO3_new = MAX( HNO3_new, MINDAT )\n\n       ! Alkalinity titrated by HNO3 [eq]\n       TITR_HNO3 (IBIN) = HNO3d\n\n       ! NIT produced converted from [eq/timestep] to [v/v/timestep]\n       PNITd (IBIN) = HNO3d * 0.063e+0_fp * ( AIRMW / MW_NIT ) / AD(I,J,L)\n\n       ! tdf\n       !if (I .eq. 1 .and. J .eq. 63 .and. L .eq. 6) then\n       !   print *,' CHEM_SO4: NIT production, HNO3'\n       !   write (6,50) IBIN, KTN(IBIN)\n       !   print *,' IBIN,EQ1,N_FLUX_A,HNO3_new,HNO3d,PNITd(IBIN)'\n       !   write (6,51) IBIN,EQ1,N_FLUX_A,HNO3_new,HNO3d,PNITd(IBIN)\n       !50 format (' IBIN, KTN(IBIN) ',I4,E12.3)\n       !51 format (' ',I4,5E12.3)\n       !endif\n\n    END DO\n\n    !Modified HNO3 [eq/timestep] converted back to [v/v/timestep]\n    HNO3_gas      = HNO3_new * 0.063e+0_fp * ( AIRMW / MW_HNO3 ) / AD(I,J,L)\n    HNO3_gas      = MAX( HNO3_gas, MINDAT )\n\n    ! HNO3 [v/v]\n    IF ( id_HNO3 > 0 ) THEN\n       Spc(id_HNO3)%Conc(I,J,L) = MAX( HNO3_gas, MINDAT )\n    ENDIF\n\n    DO IBIN = 1, NDSTBIN\n\n       ALK1_vv     = ALK (IBIN)\n       ALK1_eq     = 2.e+0_fp * ALK1_vv * AD(I,J,L) &\n                     / ( AIRMW / 40.e+0_fp ) / 40.e-3_fp ! Hard-coded MW\n       T_SO2       = TITR_SO2 (IBIN)\n       T_HNO3      = TITR_HNO3 (IBIN)\n\n       !tdf Include alkalinity titrated by sulfuric acid flux 2/13/2K9\n       T_H2SO4     = TITR_H2SO4 (IBIN)\n\n       ! tdf\n       ! if (I .eq. 1 .and. J .eq. 63 .and. L .eq. 6) then\n       !    print *,' CHEM_DUST: Titrate Alkalinity'\n       !    print *,' IBIN,  ALK1_eq,  T_SO2,   T_HNO3,   T_H2SO4'\n       !    write (6,61) IBIN,ALK1_eq,T_SO2,T_HNO3,T_H2SO4\n       !61 format (' ',I4,4E12.3)\n       !endif\n\n       ! Titrate DUST alkalinity  [eq]\n       ALKA_eq     = ALK1_eq - ( T_SO2 + T_HNO3 + T_H2SO4 )\n       ALKA_eq     = MAX( ALKA_eq, MINDAT )\n\n       ! Note:  Although we don't let the alkalinity go negative,\n       ! the uptake of H2SO4 can continue when the alkalinity is\n       ! fully titrated.                            ! tdf 3/02/2K9\n\n       ! Return remaining DUST Alkalinity [v/v]\n       ALKA_vv     = ALKA_eq / AD(I,J,L) * ( AIRMW / 40.e+0_fp ) * &\n                     40e-3_fp / 2.e+0_fp ! Hard-coded MW\n       ALKA (IBIN) = ALKA_vv\n\n    END DO\n\n    ! Update dust alkalinity\n    ! NB Hardwired for 4 size bins                    tdf 04/08/08\n    ! Update to 7 dust bins (D. Zhang, 5 Mar 2025)\n    Spc(id_DALbin1)%Conc(I,J,L) = MAX( ALKA(1), MINDAT )\n    Spc(id_DALbin2)%Conc(I,J,L) = MAX( ALKA(2), MINDAT )\n    Spc(id_DALbin3)%Conc(I,J,L) = MAX( ALKA(3), MINDAT )\n    Spc(id_DALbin4)%Conc(I,J,L) = MAX( ALKA(4), MINDAT )\n    Spc(id_DALbin5)%Conc(I,J,L) = MAX( ALKA(5), MINDAT )\n    Spc(id_DALbin6)%Conc(I,J,L) = MAX( ALKA(6), MINDAT )\n    Spc(id_DALbin7)%Conc(I,J,L) = MAX( ALKA(7), MINDAT )\n\n    ! Free pointers\n    Spc    => NULL()\n    AD     => NULL()\n    AIRVOL => NULL()\n\n  END SUBROUTINE DUST_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_hplus\n!\n! !DESCRIPTION: Subroutine GET\\_HPLUS computes H+ concentrations in cloud\n!  liquid water for pH dependent cloud chemistry. (bec, 4/11/11)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    SUBROUTINE GET_HPLUS( SO4nss, HMsc, TNH3, TNO3, SO2, CL, TNA, TDCA, TFA, &\n                          TAA,  T, PRES, LWC,  iHPLUS, HPLUS )\n!\n! !USES:\n!\n    USE ERROR_MOD,       ONLY : IT_IS_NAN, GEOS_CHEM_STOP\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)    :: SO4nss ! Total nss sulfate mixing ratio [M]\n    REAL(fp),  INTENT(IN)    :: HMSc ! Total HMS mixing ratio [M]\n    REAL(fp),  INTENT(IN)    :: TNO3   ! Total nitrate (gas+particulate) mixing\n                                       ! ratio [v/v]\n    REAL(fp),  INTENT(IN)    :: TNH3   ! NH3 mixing ratio [v/v]\n    REAL(fp),  INTENT(IN)    :: SO2    ! SO2 mixing ratio [v/v]\n    REAL(fp),  INTENT(IN)    :: CL     ! Total chloride (gas+particulate) mixing\n    REAL(fp),  INTENT(IN)    :: TNA    ! Sodium (particulate) [v/v]\n    REAL(fp),  INTENT(IN)    :: TDCA   ! Total Ca2+ and Mg2+ mixing ratio [M] ! jmm 12/3/18\n    REAL(fp),  INTENT(IN)    :: TAA    ! Acetic acid mixing ratio [v/v] ! jmm 12/3/18\n    REAL(fp),  INTENT(IN)    :: TFA    ! Formic acid mixing ratio [v/v] ! jmm 12/3/18\n    REAL(fp),  INTENT(IN)    :: T      ! Temperature [K]\n    REAL(fp),  INTENT(IN)    :: PRES   ! Dry air partial ressure [atm]\n    REAL(fp),  INTENT(IN)    :: LWC    ! Cloud liquid water content [m3/m3]\n    REAL(fp),  INTENT(IN)    :: iHPLUS ! Initial [H+] [M]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT)   :: HPLUS  ! Calculated [H+] [M]\n! !REMARKS:\n!  Calculation:\n!  ============================================================================\n!  Solve the following electroneutrality equation:\n!  [H+] = 2[SO4--] + [Cl-] + [OH-] + [HCO3-] + 2[CO3--] + [HSO3-] + 2[SO3--] +!\n!          [NO3-] + [HCOO-] + [CH3COO-] +[HMS] - [Na] - 2[Ca] - [NH4]\n!  Uses Newton's method to solve the equation:\n!     x_1 = x_0 -f(x_0)/f'(x_0)\n!     iterate until converge\n!\n!  Let concentrations of [HCO3], [CO3], [HSO3], [SO3], [NO3] and [NH4] evolve\n!  according to Henry's law equilibrium.\n!\n!  To add new species:\n!    - Add species not affected by HPLUS to the \"D' term\n!    - Add species that disassociate once using the kHNO3 and dkHNO3\n!    functions\n!      as a template\n!    - Add species that disassociate twice using the kSO21 and dkSO21\n!    functions\n!      as a template for the single charged ion and kSO22 and dkSO22\n!      functions for\n!      the double charged ion\n\n!  Assume [S(VI)] = [SO4]nss (this applies for pH > 3)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Water dissociation constants\n    REAL(fp),  PARAMETER   :: Kw   = 1.0e-14_fp\n    REAL(fp),  PARAMETER   :: DhrKw = -6710.e+0_fp\n    REAL(fp),  PARAMETER   :: MINVAL = 0.01\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)               :: D, Kw_T, ipH, newpH, nHPLUS\n    REAL(fp)               :: fHCO3, fCO3\n    REAL(fp)               :: fHSO3, fSO3\n    REAL(fp)               :: fHNO3, fNH4, fHCl\n    REAL(fp)               :: dHCO3, dCO3\n    REAL(fp)               :: dHSO3, dSO3\n    REAL(fp)               :: dHNO3, dNH4, dHCl\n    REAL(fp)               :: fAA, fFA, dAA, dFA\n    REAL(fp)               :: f, df, nnHPLUS, fCa, dCa\n    INTEGER                :: count\n\n    !=================================================================\n    ! GET_HPLUS begins here!\n    !=================================================================\n\n    ! Initial pH guess\n    ipH = -log10(iHPLUS)\n\n    ! Non-volatile aerosol concentration [M]\n    ! For now sulfate is the only non-volatile species\n#ifdef LUO_WETDEP\n    D = ( 1.5_fp * SO4nss ) - TNA - ( 2.0_fp * TDCA ) + HMSc\n#else\n    D = ( 2.0_fp * SO4nss ) - TNA - ( 2.0_fp * TDCA ) + HMSc\n#endif\n\n    ! Temperature dependent water equilibrium constant\n    Kw_T = Kw*exp(DhrKw*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    ! Initialize\n    newpH   = 0.0\n    COUNT = 0\n\n    DO WHILE ( ABS(ipH-newpH) .gt. MINVAL )\n\n       COUNT = COUNT+1\n\n       IF ( COUNT .EQ. 1 ) THEN\n          ipH = ipH\n       ELSE\n          ipH = newpH\n       ENDIF\n\n       nHPLUS = 10.e+0_fp**(-ipH)\n\n       ! Get f(x) terms\n       fHCO3  = kCO21 ( PRES, T, LWC, nHPLUS )\n\n       fCO3 = kCO22 ( PRES, T, LWC, nHPLUS )\n\n       fHSO3  = kSO21 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       fSO3 = kSO22 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       fHNO3 = kHNO3 ( PRES, T, LWC, nHPLUS, TNO3 )\n\n       fNH4  = kNH3  ( PRES, T, LWC, nHPLUS, TNH3, Kw_T )\n\n       ! include HCl in cloud pH calculations, xnw 10/17/17\n       fHCl  = kHCl  ( PRES, T, LWC, nHPLUS, CL  )\n\n       fFA   = kFA   ( PRES, T, LWC, nHPLUS, TFA ) ! jmm 12/3/18\n\n       fAA   = kAA   ( PRES, T, LWC, nHPLUS, TAA ) ! jmm 12/3/18\n\n       ! Get f'(x) terms\n       dHCO3  = dkCO21 ( PRES, T, LWC, nHPLUS )\n\n       dCO3 = dkCO22 ( PRES, T, LWC, nHPLUS )\n\n       dHSO3  = dkSO21 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       dSO3 = dkSO22 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       dHNO3 = dkHNO3 ( PRES, T, LWC, nHPLUS, TNO3 )\n\n       dNH4  = dkNH3  ( PRES, T, LWC, nHPLUS, TNH3, Kw_T )\n\n       dHCl = dkHCl ( PRES, T, LWC, nHPLUS, CL )\n\n       dFA   = dkFA   ( PRES, T, LWC, nHPLUS, TFA ) ! jmm 12/3/18\n\n       dAA   = dkAA   ( PRES, T, LWC, nHPLUS, TAA ) ! jmm 12/3/18\n       ! Calculate [Ca2+] in equilibrium with CaCO3(s)\n       CALL CaCO3_PRECIP ( PRES, T, nHPLUS, fCa, dCa )\n\n       ! if [Ca2+] in equilibrium with CacO3(s) is greater than total [Ca2+]\n       ! then all Ca is dissolved else [Ca2+] varies with [H+]\n       IF ( fCa .ge. TDCA ) THEN\n          ! Non-volatile aerosol concentration [M]\n#ifdef LUO_WETDEP\n          D = (1.5e+0_fp*SO4nss) - (TNA+2.e+0_fp*TDCA)\n#else\n          D = (2.e+0_fp*SO4nss) - (TNA+2.e+0_fp*TDCA)\n#endif\n\n          ! Define f(x)\n          f = D - nHPLUS + Kw/nHPLUS + fHCO3 + 2.e+0_fp * &\n               fCO3 + fHSO3 + 2.e+0_fp * fSO3 + fHNO3 - fNH4 + &\n               fHCl + fFA + fAA\n\n          ! Define f'(x)\n          df = - 1.d0 - Kw/nHPLUS/nHPLUS + dHCO3 + 2.e+0_fp * &\n               dCO3 + dHSO3 + 2.e+0_fp * dSO3 + dHNO3 - dNH4 + &\n               dHCl + dFA + dAA\n\n       ELSE\n          ! Non-volatile aerosol concentration [M]\n#ifdef LUO_WETDEP\n          D = (1.5e+0_fp * SO4nss) - TNA\n#else\n          D = (2.e+0_fp * SO4nss) - TNA\n#endif\n\n          ! Define f(x)\n          f = D - nHPLUS + Kw/nHPLUS + fHCO3 + 2.e+0_fp * fCO3 + &\n               fHSO3 + 2.e+0_fp * fSO3 + fHNO3 - fNH4 + &\n               fHCl + fFA + fAA - 2.e+0_fp * fCa\n          ! Define f'(x)\n          df = - 1.d0 - Kw/nHPLUS/nHPLUS + dHCO3 + 2.e+0_fp * dCO3 + &\n               dHSO3 + 2.e+0_fp * dSO3 + dHNO3 - dNH4 + &\n               dHCl + dFA + dAA - 2.e+0_fp * dCa\n       ENDIF\n\n       ! Apply Newton's method\n       nnHPLUS = nHPLUS - f/df\n\n       ! Set minimum [H+] = 1.d-14 (pH = 14)\n       nnHPLUS = MAX(nnHPLUS,1.0e-14_fp)\n\n       ! Set maximum [H+] = 1.d-1 (pH = 1)\n       nnHPLUS = MIN(nnHPLUS,1.0e-1_fp)\n\n       ! If solution does not converge after 50 iterations\n       ! average last 2 pH calculations\n       IF (count > 50) THEN\n          newpH = ((-log10(nnHPLUS)) + (-log10(nHPLUS))) / 2.0e+0_fp\n\n          IF (IT_IS_NAN( newpH )) THEN\n             write(6,*) 'newpH = ', newpH\n             write(6,*) 'nnHPLUS = ', nnHPLUS\n             write(6,*) 'nHPLUS = ', nHPLUS\n             CALL GEOS_CHEM_STOP\n          ENDIF\n\n          EXIT\n       ELSE\n          newpH = -log10(nnHPLUS)\n\n          IF (IT_IS_NAN( newpH )) THEN\n             write(6,*) 'newpH = ', newpH\n             write(6,*) 'nnHPLUS = ', nnHPLUS\n             CALL GEOS_CHEM_STOP\n          ENDIF\n\n       ENDIF\n\n    ENDDO\n\n    HPLUS = 10.0e+0_fp**(-newpH)\n\n  END SUBROUTINE GET_HPLUS\n\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kCO21\n!\n! !DESCRIPTION: Function kCO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kCO21 ( P, T, LWC, HPLUS ) RESULT ( KCO2p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! CO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n    REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n    REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n    REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n    REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n    REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n    ! CO2 concentration [v/v]\n    REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n    REAL(fp)              :: Hco2eff, xCO2, pCO2\n\n    !=================================================================\n    ! kCO21 begins here!\n    !=================================================================\n\n    !CO2 dissolution constants\n    Hco2_T  = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc1_T   = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc2_T   = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !CO2 dissolution\n    Hco2eff = Hco2_T*(1.e+0_fp+(Kc1_T/HPLUS)+((Kc1_T*Kc2_T)/(HPLUS*HPLUS)))\n    xCO2    = 1.e+0_fp / ( 1.e+0_fp + ( Hco2eff * 0.08205e+0_fp * T * LWC ) )\n    pCO2    = CO2 * P * xCO2\n\n    KCO2p  = Hco2_T / HPLUS * Kc1_T * pCO2\n\n  END FUNCTION kCO21\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkCO21\n!\n! !DESCRIPTION: Function dkCO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkCO21 ( P, T, LWC, HPLUS ) RESULT ( KCO2p )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhco2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [HCO3-]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! CO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n      REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n      REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n      REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n      REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n      REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n      ! CO2 concentration [v/v]\n      REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n\n! !REMARKS:\n\n      !=================================================================\n      ! dkCO21 begins here!\n      !=================================================================\n\n      !CO2 dissolution constants\n      Hco2_T = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc1_T = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc2_T = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !CO2 dissolution\n\n      KCO2p  = Kc1_T * Hco2_T * CO2 * P * ( Kc1_T * Kc2_T * Hco2_T * &\n          0.08205e+0_fp * T * LWC - Hco2_T * 0.08205e+0_fp * T *     &\n          LWC * HPLUS * HPLUS - HPLUS * HPLUS) / (Kc1_T * Kc2_T *    &\n          Hco2_T * 0.08205e+0_fp * T * LWC + Kc1_T * Hco2_T *        &\n          0.08205e+0_fp * T * LWC * HPLUS + Hco2_T * 0.08205e+0_fp * &\n          T * LWC * HPLUS * HPLUS + HPLUS * HPLUS)**2\n\n      END FUNCTION dkCO21\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kCO22\n!\n! !DESCRIPTION: Function kCO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kCO22 ( P, T, LWC, HPLUS ) RESULT ( KCO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! CO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n    REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n    REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n    REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n    REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n    REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n    ! CO2 concentration [v/v]\n    REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n    REAL(fp)              :: Hco2eff, xCO2, pCO2\n\n    !=================================================================\n    ! kCO22 begins here!\n    !=================================================================\n\n    !CO2 dissolution constants\n    Hco2_T  = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc1_T   = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc2_T   = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !CO2 dissolution\n    Hco2eff = Hco2_T*(1.e+0_fp+(Kc1_T/HPLUS)+((Kc1_T*Kc2_T)/(HPLUS*HPLUS)))\n    xCO2    = 1.e+0_fp / ( 1.e+0_fp  + ( Hco2eff * 0.08205e+0_fp * T * LWC ) )\n    pCO2    = CO2 * P * xCO2\n\n    KCO2p2 = Kc1_T * Kc2_T * Hco2_T / HPLUS / HPLUS * pCO2\n\n  END FUNCTION kCO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkCO22\n!\n! !DESCRIPTION: Function dkCO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkCO22 ( P, T, LWC, HPLUS ) RESULT ( KCO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhco2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output deriviate\n!  of [CO3--]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! CO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n      REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n      REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n      REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n      REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n      REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n      ! CO2 concentration [v/v]\n      REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n\n      !=================================================================\n      ! dkCO22 begins here!\n      !=================================================================\n\n      !CO2 dissolution constants\n      Hco2_T = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc1_T = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc2_T = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !CO2 dissolution\n\n      KCO2p2 = -1.e+0_fp * Kc1_T * Kc2_T * Hco2_T * CO2 * P * ( Kc1_T * &\n           Hco2_T * 0.08205e+0_fp * T * LWC + 2.0e+0_fp * Hco2_T *      &\n           0.08205e+0_fp * T * LWC * HPLUS + 2.0e+0_fp * HPLUS ) /      &\n           ( Kc1_T * Kc2_T * Hco2_T * 0.08205e+0_fp * T * LWC +         &\n           Kc1_T * Hco2_T * 0.08205e+0_fp * T * LWC * HPLUS +           &\n           Hco2_T *0.08205e+0_fp * T * LWC * HPLUS * HPLUS +            &\n           HPLUS * HPLUS )**2\n\n      END FUNCTION dkCO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kSO21\n!\n! !DESCRIPTION: Function kSO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kSO21 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! SO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n    REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n    REAL(fp),  PARAMETER  :: Hso2 = 1.23\n    REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n    REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n    REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n    REAL(fp)              :: Hso2eff, xSO2, pSO2\n\n    !=================================================================\n    ! kSO21 begins here!\n    !=================================================================\n\n    ! SO2 dissolution constants\n    Hso2_T  = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks1_T   = Ks1*exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks2_T   = Ks2*exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    ! SO2 dissolution\n    Hso2eff = Hso2_T*(1.e+0_fp+(Ks1_T/HPLUS)+((Ks1_T*Ks2_T)/(HPLUS*HPLUS)))\n    xSO2    = 1.e+0_fp / ( 1.e+0_fp  + ( Hso2eff * 0.08205e+0_fp * T * LWC ) )\n    pSO2    = SO2 * P * xSO2\n\n    KSO2p   = Hso2_T * Ks1_T * pSO2 / HPLUS\n\n  END FUNCTION kSO21\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkSO21\n!\n! !DESCRIPTION: Function dkSO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkSO21 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhso2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [HSO3-]\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! SO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n      REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n      REAL(fp),  PARAMETER  :: Hso2 = 1.23\n      REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n      REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n      REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n\n      !=================================================================\n      ! dkSO21 begins here!\n      !=================================================================\n\n\n\n      ! SO2 dissolution constants\n      Hso2_T = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks1_T = Ks1*exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks2_T = Ks2*exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n\n      KSO2p  = Ks1_T * Hso2_T * SO2 * P * ( Ks1_T * Ks2_T * Hso2_T *  &\n           0.08205e+0_fp * T * LWC - Hso2_T * 0.08205e+0_fp * T *     &\n           LWC * HPLUS * HPLUS - HPLUS * HPLUS) / (Ks1_T * Ks2_T *    &\n           Hso2_T * 0.08205e+0_fp * T * LWC + Ks1_T * Hso2_T *        &\n           0.08205e+0_fp * T * LWC * HPLUS + Hso2_T * 0.08205e+0_fp * &\n           T * LWC * HPLUS * HPLUS + HPLUS * HPLUS)**2\n\n      END FUNCTION dkSO21\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kSO22\n!\n! !DESCRIPTION: Function kSO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kSO22 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! SO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n    REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n    REAL(fp),  PARAMETER  :: Hso2 = 1.23\n    REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n    REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n    REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n    REAL(fp)              :: Hso2eff, xSO2, pSO2\n\n    !=================================================================\n    ! kSO22 begins here!\n    !=================================================================\n\n    ! SO2 dissolution constants\n    Hso2_T  = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks1_T   = Ks1 *exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks2_T   = Ks2 *exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !SO2 dissolution\n    Hso2eff = Hso2_T*(1.e+0_fp+(Ks1_T/HPLUS)+((Ks1_T*Ks2_T)/(HPLUS*HPLUS)))\n    xSO2    = 1.e+0_fp / ( 1.e+0_fp + ( Hso2eff * 0.08205e+0_fp * T * LWC ) )\n    pSO2    = SO2 * P * xSO2\n\n    KSO2p2 = Ks1_T * Ks2_T * Hso2_T / HPLUS / HPLUS * pSO2\n\n  END FUNCTION kSO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkSO22\n!\n! !DESCRIPTION: Function dkSO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkSO22 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhso2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative [SO3--]\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! SO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n      REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n      REAL(fp),  PARAMETER  :: Hso2 = 1.23\n      REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n      REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n      REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n\n      !=================================================================\n      ! dkSO22 begins here!\n      !=================================================================\n      ! SO2 dissolution constants\n      Hso2_T = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks1_T  = Ks1 *exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks2_T  = Ks2 *exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      KSO2p2 = -1.e+0_fp * Ks1_T * Ks2_T * Hso2_T * SO2 * P * ( Ks1_T * &\n           Hso2_T * 0.08205e+0_fp * T * LWC + 2.0e+0_fp * Hso2_T *      &\n           0.08205e+0_fp * T * LWC * HPLUS + 2.0e+0_fp * HPLUS ) /      &\n           ( Ks1_T * Ks2_T * Hso2_T * 0.08205e+0_fp * T * LWC +         &\n           Ks1_T * Hso2_T * 0.08205e+0_fp * T * LWC * HPLUS +           &\n           Hso2_T *0.08205e+0_fp * T * LWC * HPLUS * HPLUS +            &\n           HPLUS * HPLUS )**2\n\n      END FUNCTION dkSO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kHNO3\n!\n! !DESCRIPTION: Function kNO3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kHNO3 ( P, T, LWC, HPLUS, HNO3 ) RESULT ( KHNO3p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, HNO3\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KHNO3p\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! HNO3 dissociation constants\n    REAL(fp),  PARAMETER  :: Kn1 = 15.4\n    REAL(fp),  PARAMETER  :: Hhno3 = 2.1e5\n    REAL(fp),  PARAMETER  :: Dhhno3 = 0.\n    REAL(fp),  PARAMETER  :: DhrKn1 = 8700.\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hhno3_T, Kn1_T\n    REAL(fp)              :: Hhno3eff, xHNO3, pHNO3\n\n    !=================================================================\n    ! kHNO3 begins here!\n    !=================================================================\n\n    ! HNO3 dissolution constants\n    Hhno3_T  = Hhno3*exp(Dhhno3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kn1_T    = Kn1*exp(DhrKn1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    ! HNO3 dissolution\n    ! The original Hhno3eff expression is valid for 298K (Seinfeld and Pandis\n    ! 2006, pp 299-301), and Kn1 has a strong temperature dependence. The\n    ! fix follows Eq. 7.59 of Seinfeld and Pandis (2006, pp 301).\n    !Hhno3eff = 3.2e6/HPLUS\n    Hhno3eff = Hhno3_T*(1.0e+0_fp+(Kn1_T/HPLUS))\n    xHNO3    = 1.e+0_fp / ( 1.e+0_fp + ( Hhno3eff * 0.08205e+0_fp * T * LWC ) )\n    pHNO3    = HNO3 * P * xHNO3\n\n    kHNO3p = Hhno3_T * Kn1_T * pHNO3 / HPLUS\n\n  END FUNCTION kHNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkHNO3\n!\n! !DESCRIPTION: Function dkNO3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkHNO3 ( P, T, LWC, HPLUS, HNO3 ) RESULT ( KHNO3p )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, HNO3\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KHNO3p\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Add fix for Hhno3eff from V. Shah\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [HNO3-]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HNO3 dissociation constants\n      REAL(fp),  PARAMETER  :: Kn1 = 15.4\n      REAL(fp),  PARAMETER  :: Hhno3 = 2.1e5\n      REAL(fp),  PARAMETER  :: Dhhno3 = 0.\n      REAL(fp),  PARAMETER  :: DhrKn1 = 8700.\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hhno3_T, Kn1_T\n\n      !=================================================================\n      ! dkHNO3 begins here!\n      !=================================================================\n\n      ! HNO3 dissolution constants\n      Hhno3_T = Hhno3*exp(Dhhno3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kn1_T = Kn1*exp(DhrKn1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      ! HNO3 dissolution\n      ! The original Hhno3eff expression is valid for 298K (Seinfeld and\n      ! Pandis\n      ! 2006, pp 299-301), and Kn1 has a strong temperature dependence.\n      ! The\n      ! fix follows Eq. 7.59 of Seinfeld and Pandis (2006, pp 301).\n\n      kHNO3p = -1.0e+0_fp * Kn1_T * Hhno3_T * HNO3 * P * &\n          ( 1.0e+0_fp + Hhno3_T * 0.08205e+0_fp * T * LWC ) / &\n          ( Kn1_T * Hhno3_T * 0.08205e+0_fp * T * LWC + &\n          Hhno3_T * 0.08205e+0_fp * T * LWC * HPLUS + &\n          HPLUS )**2\n\n      END FUNCTION dkHNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kHCl\n!\n! !DESCRIPTION: Function kHCl\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kHCl ( P, T, LWC, HPLUS, Cl ) RESULT ( KHClp )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, Cl\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KHClp\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! HNO3 dissociation constants\n    REAL(fp),  PARAMETER  :: Kcl = 1.74e+6_fp\n    REAL(fp),  PARAMETER  :: Hcl = 1.5e+3_fp\n    REAL(fp),  PARAMETER  :: Dhcl = 2.3e+3_fp\n    REAL(fp),  PARAMETER  :: DhrKcl = 6900.e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hcl_T, Kcl_T\n    REAL(fp)              :: Hcleff, xCl, pHCl\n\n    !=================================================================\n    ! kHCl begins here!\n    !=================================================================\n\n    ! HCl dissolution constants\n    HCl_T  = Hcl*exp(Dhcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n    Kcl_T  = Kcl*exp(DhrKcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n\n    !HCl dissolution\n    Hcleff = Hcl_T*(1.0e+0_fp+(Kcl_T/HPLUS))\n    xCl    = 1.0e+0_fp / ( 1.0e+0_fp + ( Hcleff * 0.08205e+0_fp * T * LWC ) )\n    pHCl   = Cl * P * xCl\n\n    kHClp  = Hcl_T * Kcl_T * pHCl / HPLUS\n\n  END FUNCTION kHCl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkHCl\n!\n! !DESCRIPTION: Function dkHCl\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkHCl ( P, T, LWC, HPLUS, Cl ) RESULT ( KHClp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, Cl\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KHClp\n!\n! !REVISION HISTORY:\n!  03 Apr 2019 - X. Wang    - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCl dissociation constants\n      REAL(fp),  PARAMETER  :: Kcl = 1.74e+6_fp\n      REAL(fp),  PARAMETER  :: Hcl = 1.5e+3_fp\n      REAL(fp),  PARAMETER  :: Dhcl = 2.3e+3_fp\n      REAL(fp),  PARAMETER  :: DhrKcl = 6900.e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hcl_T, Kcl_T\n\n      !=================================================================\n      ! dkHCl begins here!\n      !=================================================================\n\n      ! HCl dissolution constants\n      Hcl_T = Hcl*exp(Dhcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kcl_T = Kcl*exp(DhrKcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n\n      ! HCl dissolution\n      ! The fix follows Eq. 7.59 of Seinfeld and Pandis (2006, pp 301).\n\n      kHClp = -1.0e+0_fp * Kcl_T * Hcl_T * Cl * P *          &\n           ( 1.0e+0_fp + Hcl_T * 0.08205e+0_fp * T * LWC ) / &\n           ( Kcl_T * Hcl_T * 0.08205e+0_fp * T * LWC +       &\n           Hcl_T * 0.08205e+0_fp * T * LWC * HPLUS +         &\n           HPLUS )**2\n\n      END FUNCTION dkHCl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kNH3\n!\n! !DESCRIPTION: Function kNH3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kNH3 ( P, T, LWC, HPLUS, NH3, Kw ) RESULT ( KNH3p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, NH3, Kw\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KNH3p\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! NH3 dissociation contants\n    REAL(fp),  PARAMETER  :: Ka1    =  1.7e-5_fp\n    REAL(fp),  PARAMETER  :: Dhnh3  =  4200.0_fp\n#ifdef LUO_WETDEP\n    REAL(fp),  PARAMETER  :: Hnh3   =  59.8_fp\n    REAL(fp),  PARAMETER  :: DhrKa1 = -4325.0_fp\n#else\n    REAL(fp),  PARAMETER  :: Hnh3   =  60.0_fp\n    REAL(fp),  PARAMETER  :: DhrKa1 = -450.0_fp\n#endif\n\n    ! Variables\n    REAL(fp)              :: Hnh3_T,  Ka1_T\n    REAL(fp)              :: Hnh3eff, xNH3, pNH3\n\n    !=================================================================\n    ! kNH3 begins here!\n    !=================================================================\n\n    !NH3 dissolution constants\n    Hnh3_T  = Hnh3*exp(Dhnh3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ka1_T   = Ka1*exp(DhrKa1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !NH3 dissolution\n    Hnh3eff = Hnh3_T*(1.e+0_fp+((Ka1_T* HPLUS) / Kw))\n    xNH3    = 1.e+0_fp / ( 1.e+0_fp + ( Hnh3eff * 0.08205e+0_fp * T * LWC ) )\n    pNH3    = NH3 * P * xNH3\n\n    KNH3p   = HPLUS * Hnh3_T * Ka1_T * pNH3 / Kw\n\n  END FUNCTION kNH3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkNH3\n!\n! !DESCRIPTION: Function dkNH3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION dkNH3 ( P, T, LWC, HPLUS, NH3, Kw ) RESULT ( KNH3p )\n!\n\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, NH3, Kw\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KNH3p\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhnh3 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [NH4+]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! NH3 dissociation contants\n    REAL(fp),  PARAMETER  :: Ka1    =  1.7e-5_fp\n    REAL(fp),  PARAMETER  :: Dhnh3  =  4200.0_fp\n#ifdef LUO_WETDEP\n    REAL(fp),  PARAMETER  :: Hnh3   =  59.8_fp\n    REAL(fp),  PARAMETER  :: DhrKa1 = -4325.0_fp\n#else\n    REAL(fp),  PARAMETER  :: Hnh3   =  60.0_fp\n    REAL(fp),  PARAMETER  :: DhrKa1 = -450.0_fp\n#endif\n\n    ! Variables\n    REAL(fp)              :: Hnh3_T, Ka1_T\n\n    !=================================================================\n    ! dkNH3 begins here!\n    !=================================================================\n\n    !NH3 dissolution constants\n    Hnh3_T = Hnh3*exp(Dhnh3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ka1_T = Ka1*exp(DhrKa1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !NH3 dissolutionnyn\n\n    KNH3p = Ka1_T * Hnh3_T * NH3 * Kw * P * ( 1.0e+0_fp +    &\n         Hnh3_T * 0.08205e+0_fp * T * LWC ) /                &\n         ( Hnh3_T * 0.08205e+0_fp * T * LWC * ( Kw + Ka1_T * &\n         HPLUS ) + Kw)**2\n\n  END FUNCTION dkNH3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kFA\n!\n! !DESCRIPTION: Function kFA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kFA ( P, T, LWC, HPLUS, FA ) RESULT ( kFAp )\n!\n\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, FA\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KFAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for formic acid (HCOOH). Values\n!                              taken from Sienfeld and Pandis. Made it\n!                              to output is [FA]\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! HCOOH dissociation constants\n    REAL(fp),  PARAMETER  :: Kformate = 1.8e-4_fp ! equib const\n    REAL(fp),  PARAMETER  :: Hfa      = 8800.0_fp ! henry const\n    REAL(fp),  PARAMETER  :: Dhfa     = 6100.0_fp ! henry temp\n    REAL(fp),  PARAMETER  :: DhrKfa   = 151.0_fp  ! equib temp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hfa_T, Kfa_T\n    REAL(fp)              :: Hfaeff, xFA, pFA\n\n    !=================================================================\n    ! kFA begins here!\n    !=================================================================\n\n    ! Formic acid dissolution constants\n    HFA_T = Hfa*exp(Dhfa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n    Kfa_T = Kformate*exp(DhrKfa*((1.0e+0_fp/T) &\n         - (1.0e+0_fp/298.0e+0_fp)))\n\n    !HCOOH  dissolution\n    Hfaeff = Hfa_T*(1.0e+0_fp+(Kfa_T/HPLUS))\n    xFA = 1.0e+0_fp / ( 1.0e+0_fp &\n         + ( Hfaeff * 0.08205e+0_fp * T * LWC ) )\n    pFA = FA * P * xFA\n\n    kFAp = Hfa_T * Kfa_T * pFA / HPLUS\n\n  END FUNCTION kFA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkFA\n!\n! !DESCRIPTION: Function dkFA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkFA ( P, T, LWC, HPLUS, FA ) RESULT ( kFAp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, FA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KFAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for formic acid (HCOOH). Values\n!  taken from\n!                              Sienfeld and Pandis. Made it to output is\n!                              [FA]\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kformate = 1.8e-4_fp ! equib const\n      REAL(fp),  PARAMETER  :: Hfa = 8800e+0_fp ! henry const\n      REAL(fp),  PARAMETER  :: Dhfa = 6100e+0_fp ! henry temp\n      REAL(fp),  PARAMETER  :: DhrKfa = 151.e+0_fp ! equib temp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hfa_T, Kfa_T\n\n      !=================================================================\n      ! dkFA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HFA_T = Hfa*exp(Dhfa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kfa_T = Kformate*exp(DhrKfa*((1.0e+0_fp/T) &\n           - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n\n      kFAp = -1.0e+0_fp * Kfa_T * HFA_T * FA * P *           &\n           ( 1.0e+0_fp + HFA_T * 0.08205e+0_fp * T * LWC ) / &\n           ( Kfa_T * HFA_T * 0.08205e+0_fp * T * LWC +       &\n           HFA_T * 0.08205e+0_fp * T * LWC * HPLUS +         &\n           HPLUS )**2\n\n      END FUNCTION dkFA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kAA\n!\n! !DESCRIPTION: Function kAA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION kAA ( P, T, LWC, HPLUS, AA ) RESULT ( kAAp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, AA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KAAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for acetic acid (CH3COOH).\n!  Values taken from\n!                              Sienfeld and Pandis, value of [HCOOH]\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! CH3HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kacetate = 1.75e-5_fp\n      REAL(fp),  PARAMETER  :: Haa      = 4100.0_fp\n      REAL(fp),  PARAMETER  :: Dhaa     = 6200.0_fp\n      REAL(fp),  PARAMETER  :: DhrKaa   = 50.0_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Haa_T, Kaa_T\n      REAL(fp)              :: Haaeff, xAA, pAA\n      !=================================================================\n      ! kAA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HAA_T = Haa*exp(Dhaa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kaa_T = Kacetate*exp(DhrKaa*((1.0e+0_fp/T) &\n          - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n      Haaeff = Haa_T*(1.0e+0_fp+(Kaa_T/HPLUS))\n      xAA = 1.0e+0_fp / ( 1.0e+0_fp &\n         + ( Haaeff * 0.08205e+0_fp * T * LWC ) )\n      pAA = AA * P * xAA\n\n      kAAp = Haa_T * Kaa_T * pAA / HPLUS\n\n      END FUNCTION kAA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkAA\n!\n! !DESCRIPTION: Function kdAA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkAA ( P, T, LWC, HPLUS, AA ) RESULT ( kAAp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, AA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KAAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for acetic acid (CH3COOH).\n!  Values taken from\n!                              Sienfeld and Pandis. Output is\n!                              derivative.\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kacetate = 1.75e-5_fp\n      REAL(fp),  PARAMETER  :: Haa      = 4100.0_fp\n      REAL(fp),  PARAMETER  :: Dhaa     = 6200.0_fp\n      REAL(fp),  PARAMETER  :: DhrKaa   = 50.0_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Haa_T, Kaa_T\n      !=================================================================\n      ! kAA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HAA_T = Haa*exp(Dhaa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kaa_T = Kacetate*exp(DhrKaa*((1.0e+0_fp/T) &\n          - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n      kAAp =  -1.0e+0_fp * Kaa_T * HAA_T * AA * P * &\n          ( 1.0e+0_fp + HAA_T * 0.08205e+0_fp * T * LWC ) / &\n          ( Kaa_T * HAA_T * 0.08205e+0_fp * T * LWC + &\n          HAA_T * 0.08205e+0_fp * T * LWC * HPLUS + &\n          HPLUS )**2\n\n\n      END FUNCTION dkAA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CaCO3_PRECIP\n!\n! !DESCRIPTION: Subroutine CaCO3 to calculate [Ca++] in equilibrium with\n! CaCO3(s) (dust particles) depending on [H+]\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE CaCO3_PRECIP ( P,  T, HPLUS, fCa, dCa )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),        INTENT(IN) :: T, P, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(OUT):: fCa, dCa ! [Ca2+] and d([Ca2+])/d[H+]\n!\n! !REVISION HISTORY:\n!  25 Dec 2019 - V. Shah - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! !DEFINED PARAMETERS:\n!\n      REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7_fp\n      REAL(fp),  PARAMETER  :: Kc2 = 4.68e-11_fp\n      REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n      REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n      REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2_fp\n      REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n      ! CO2 concentration [v/v]\n      REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n      REAL(fp),  PARAMETER  :: Ksp = 3.3e-9_fp\n      REAL(fp),  PARAMETER  :: DHrKsp = -1200e+0_fp\n\n! !LOCAL VARIABLES:\n      REAL(fp)              :: HCO2_T, Kc1_T, Kc2_T, Ksp_T\n\n! !REMARKS:\n\n      !=================================================================\n      ! CaCO3_PRECIP begins here!\n      !=================================================================\n      !Temperature adjusted eq. constants\n      !CO2 dissolution constants\n      Hco2_T = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc1_T = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc2_T = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      ! CaCO3 eq constants\n      Ksp_T = Ksp*exp(DhrKsp*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !Ca concentrations [M]\n      fCa = Ksp_T * HPLUS * HPLUS / (Kc1_T * Kc2_T * Hco2_T * CO2 * P)\n      !derivative d[Ca2+]/dH+\n      dCa  = 2e+0_fp * Ksp_T * HPLUS / (Kc1_T * Kc2_T * Hco2_T * CO2 * P)\n\n      END SUBROUTINE CaCO3_PRECIP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aqchem_so2\n!\n! !DESCRIPTION: Subroutine AQCHEM\\_SO2 computes the reaction rates for aqueous\n! SO2 chemistry. (rjp, bmy, 10/31/02, 12/12/02)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AQCHEM_SO2( LWC,     T,     P,       SO2,   H2O2, &\n                         O3,      Hplus, MnII,    FeIII, IONIC, &\n                         KaqH2O2, KaqO3, KaqO3_1, KaqO2, &\n                         HSO3aq,  SO3aq, HCHO, KaqHCHO,  &\n                         KaqHMS, KaqHMS2 )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: LWC     ! Liq water content [m3/m3]=1.E-6*L [g/m3]\n    REAL(fp), INTENT(IN)  :: T       ! Temperature [K]\n    REAL(fp), INTENT(IN)  :: P       ! Dry air partial pressure [atm]\n    REAL(fp), INTENT(IN)  :: SO2     ! SO2  mixing ratio [v/v]\n    REAL(fp), INTENT(IN)  :: H2O2    ! H2O2 mixing ratio [v/v]\n    REAL(fp), INTENT(IN)  :: O3      ! O3   mixing ratio [v/v]\n    REAL(fp), INTENT(IN)  :: HPLUS   ! Concentration of H+ ion (i.e. pH) [v/v]\n    REAL(fp), INTENT(IN)  :: MnII    ! Concentration of MnII [mole/l]\n    REAL(fp), INTENT(IN)  :: FeIII   ! Concentration of FeIII [mole/l]\n    REAL(fp), INTENT(IN)  :: IONIC   ! Ionic strength [mole/l]?\n    REAL(fp), INTENT(IN)  :: HCHO    ! HCHO   mixing ratio [v/v] (jmm, 06/13/18)\n\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: KaqH2O2 ! Reaction rate for H2O2\n    REAL(fp), INTENT(OUT) :: KaqO3   ! Reaction rate for O3\n    REAL(fp), INTENT(OUT) :: KaqO3_1 ! only the SO3-- oxidation, (qjc, 04/10/16)\n    REAL(fp), INTENT(OUT) :: KaqO2   ! Reaction rate for O2 (metal cat)\n    REAL(fp), INTENT(OUT) :: KaqHCHO ! Reaction rate for SO2 and HCHO (jmm, 06/13/18)\n    REAL(fp), INTENT(OUT) :: KaqHMS  ! Reaction rate for HMS and OH- (jmm, 06/13/18)\n    REAL(fp), INTENT(OUT) :: KaqHMS2  ! Reaction rate for HMS and OH(aq) (jmm, 06/28/18)\n    REAL(fp), INTENT(OUT) :: HSO3aq  ! Cloud bisulfite [mol/l] (qjc, 06/10/16)\n    REAL(fp), INTENT(OUT) :: SO3aq   ! Cloud sulfite   [mol/l] (qjc, 06/10/16)\n!\n! !REMARKS:\n!  Chemical Reactions:\n!  ============================================================================\n!  (R1) HSO3- + H2O2(aq) + H+ => SO4-- + 2H+ + H2O [Jacob, 1986]\n!                                                                             .\n!      d[S(VI)]/dt = k[H+][H2O2(aq)][HSO3-]/(1 + K[H+])\n!      [Seinfeld and Pandis, 1998, page 366]\n!                                                                             .\n!  (R2) SO2(aq) + O3(aq) =>\n!       HSO3-   + O3(aq) =>\n!       SO3--   + O3(aq) =>\n!       [Jacob, 1986; Jacobson, 1999]\n!                                                                             .\n!       d[S(VI)]/dt = (k0[SO2(aq)] + k1[HSO3-] + K2[SO3--])[O3(aq)]\n!       [Seinfeld and Pandis, 1998, page 363]\n!                                                                             .\n!  (R3) HSO3-   + HCHO(aq) => HMS\n!       SO3--   + HCHO(aq) => HMS + OH-\n!       [Moch et al., 2018; Olson and Hoffman, 1986]\n!                                                                             .\n!       d[S(HMS)]/dt = (k1[HSO3-] + k2[SO3--])[HCHO(aq)]\n!       [Seinfeld and Pandis, 2016, 309]\n!\n!  (R4) HMS + OH- => HCHO(aq) + SO3--\n!       [Moch et al., 2018; Deister et al., 1986]\n!        (note treated as 1st order in contrast to other reactions here)\n!\n!  (R5) HMS + OH(aq) =(SO2,HO2,O2)=> HCHO + 2SO4-- + O2 + 3H+ + 2H2O\n!       [Jacob et al, 1986, Olson and Fessenden, 1992;\n!        Seinfeld and Pandis, 2016, Table 7A.7]\n!          Net reaction (R5):\n!           HMS + OH(aq) =(O2)=> SO5- + HCHO + H2O\n!           HO2 <=> H+ + O2-\n!           SO5- + O2- =(H2O)=> HSO5- + OH- + O2\n!           SO2(aq) <=> HSO3- + H+\n!           H+ + OH- <=> H2O\n!           HSO5- + HSO3- => 2SO4-- + 2H+\n!\n!  Reaction rates can be given as\n!       Ra     = k [H2O2(ag)] [S(IV)]  [mole/liter*s]  OR\n!       Krate  = Ra LWC R T / P        [1/s]\n!                                                                             .\n!  Where:\n!       LWC = Liquid water content(g/m3)*10-6 [m3(water)/m3(gas)]\n!       R   = 0.08205  (atm L / mol-K), Universal gas const.\n!       T   = Temperature (K)\n!       P   = Pressure (atm)\n!                                                                             .\n!  Procedure:\n!  ============================================================================\n!  (a ) Given [SO2] which is assumed to be total SO2 (gas+liquid) in\n!        equilibrium between gas and liquid phase.\n!                                                                             .\n!  (b ) We can compute SO2(g) using Henry's law\n!          P(so2(g)) = Xg * [SO2]\n!          Xg = 1/(1 + Faq), Fraction of SO2 in gas\n!       where:\n!          Faq   = Kheff * R * T * LWC,\n!          KHeff = Effective Henry's constant\n!                                                                             .\n!  (c ) Then Calculate Aquous phase, S[IV] concentrations\n!        S[IV] = Kheff * P(so2(g) in atm) [M]\n!                                                                             .\n!  (d ) The exact same procedure is applied to calculate H2O2(aq) and HCHO(aq)\n!\n! !REVISION HISTORY:\n!  (1 ) Updated by Rokjin Park (rjp, bmy, 12/12/02)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER   :: R = 0.08205e+0_fp\n    REAL(fp), PARAMETER   :: dOH = 1.0e-19_fp ! [M cm^3 molec^-1] (jmm, 06/28/18)\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: KH2O2,  RA,     KS1, KS2,    HCSO2\n    REAL(fp)              :: FHCSO2, XSO2G,  SIV, HSO3,   XSO2AQ\n    REAL(fp)              :: XHSO3,  XSO3,   KH1, HCH2O2, FHCH2O2\n    REAL(fp)              :: XH2O2G, H2O2aq, KO0, KO1,    KO2\n    REAL(fp)              :: HCO3,   XO3g,   O3aq, XHCHOg, HCHCHO ! (jmm, 06/13/18)\n    REAL(fp)              :: FHCHCHO,KHCHO1, KHCHO2,  KHMS  ! (jmm, 06/13/18)\n    REAL(fp)              :: KW1,    KHC1,   KHMS2          ! (jmm, 06/15/18)\n    REAL(fp)              :: Eff_mn, Eff_fe !jys\n\n\n\n    !=================================================================\n    ! AQCHEM_SO2 begins here!\n    !\n    ! Aqueous reaction rate\n    ! HSO3- + H2O2 + H+ => SO4-- + 2H+ + H2O [Jacob, 1986]\n    !=================================================================\n\n    ! [Jacob, 1986]\n    KH2O2 = 6.31e+14_fp * EXP( -4.76e+3_fp / T )\n\n    !! [Jacobson, 1999]\n    !KH2O2 = 7.45e+0_fp7 * EXP( -15.96e+0_fp * ( (298.15/T) - 1.) ) / &\n    !        ( 1.e+0_fp + 13.e+0_fp * Hplus)\n\n    !=================================================================\n    ! Equilibrium reaction of SO2-H2O\n    !    SO2 + H2O = SO2(aq)        (s0)\n    !    SO2(ag)   = HSO3- + H+     (s1)\n    !    HSO3-     = SO3-- + H+     (s2)\n    !\n    ! Reaction constant for Aqueous chemistry -- No big difference\n    ! between Jacob and Jacobson, choose one of them.\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of SO2:\n    !            As1      Bs1   As2      Bs2\n    !  Seinfeld  1.30d-2  7.02  6.60d-8  3.76   [1998]\n    !  Jacob     1.30d-2  6.75  6.31d-8  5.05   [1986]\n    !  Jacobson  1.71d-2  7.04  5.99d-8  3.74   [1996]\n    !=================================================================\n    Ks1    = 1.30e-2_fp * EXP( 6.75e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    Ks2    = 6.31e-8_fp * EXP( 5.05e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! SIV Fraction\n    XSO2aq = 1.e+0_fp/(1.e+0_fp + Ks1/Hplus + Ks1*Ks2/(Hplus*Hplus))\n    XHSO3  = 1.e+0_fp/(1.e+0_fp + Hplus/Ks1 + Ks2/Hplus)\n    XSO3   = 1.e+0_fp/(1.e+0_fp + Hplus/Ks2 + Hplus*Hplus/(Ks1*Ks2))\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for SO2\n    HCSO2  = 1.22e+0_fp * EXP( 10.55e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n    FHCSO2 = HCSO2 * (1.e+0_fp + (Ks1/Hplus) + (Ks1*Ks2 / (Hplus*Hplus)))\n\n    XSO2g  = 1.e+0_fp / ( 1.e+0_fp + ( FHCSO2 * R * T * LWC ) )\n    SIV    = FHCSO2 * XSO2g * SO2 * P\n    !HSO3   = Ks1 * HCSO2 * XSO2g * SO2 * P\n\n    ! Effective HSO3aq for HOBr+HSO3\n    HSO3aq = SIV * XHSO3           ! unit: M (qjc, 06/10/16)\n\n    ! Effective SO3aq for HOBr+SO3\n    SO3aq  = SIV * XSO3            ! unit: M (qjc, 06/10/16)\n\n    !=================================================================\n    ! H2O2 equilibrium reaction\n    ! H2O2 + H2O = H2O2.H2O\n    ! H2O2.H2O   = HO2- + H+   1)\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of SO2\n    !            Ah1       Bh1\n    !  Jacob     1.58E-12  -12.49  [1986]\n    !  Jacobson  2.20E-12  -12.52  [1996]\n    !=================================================================\n    Kh1 = 2.20e-12_fp * EXP( -12.52e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for H2O2\n    ! [Seinfeld and Pandis, 1998]\n    ! HCH2O2  = 7.45D4 * EXP( 24.48e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n\n    ! [Jacobson,1999]\n    HCH2O2  = 7.45e+4_fp * EXP( 22.21e+0_fp * (298.15e+0_fp / T - 1.e+0_fp) )\n    FHCH2O2 = HCH2O2 * (1.e+0_fp + (Kh1 / Hplus))\n\n    XH2O2g  = 1.e+0_fp / ( 1.e+0_fp + ( FHCH2O2 * R * T * LWC ) )\n    !H2O2aq  = FHCH2O2 * XH2O2g * H2O2 * P\n\n    ! Conversion rate from SO2 to SO4 via reaction with H2O2\n    KaqH2O2  = kh2o2 * Ks1 * FHCH2O2 * HCSO2 * XH2O2g * XSO2g &\n               * P * LWC * R * T            ! [v/v/s]\n\n    !=================================================================\n    !  Aqueous reactions of SO2 with O3\n    !  SO2(aq) + O3 =>                       (0)\n    !  HSO3-   + O3 => SO4-- + H+ + O2       (1)\n    !  SO3--   + O3 => SO4-- + O2            (2)\n    !\n    ! NOTE\n    ! [Jacob, 1986]\n    !    KO1  = 3.49E12 * EXP( -4.83E3 / T )\n    !    KO2  = 7.32E14 * EXP( -4.03E3 / T )\n    !\n    ! [Jacobson, 1999]\n    !    KO0  = 2.40E+4\n    !    KO1  = 3.70E+5 * EXP( -18.56 * ((298.15/T) - 1.))\n    !    KO2  = 1.50E+9 * EXP( -17.72 * ((298.15/T) - 1.))\n    !\n    ! Rate constants from Jacobson is larger than those of Jacob\n    ! and results in faster conversion from S(IV) to S(VI)\n    ! We choose Jacob 1) 2) and Jacobson 0) here\n    !=================================================================\n    KO0 = 2.40e+4_fp\n    KO1 = 3.49e+12_fp * EXP( -4.83e+3_fp / T )\n    KO2 = 7.32e+14_fp * EXP( -4.03e+3_fp / T )\n\n    !=================================================================\n    ! H2O2 equilibrium reaction\n    ! O3 + H2O = O3.H2O\n    !  HCO3  = 1.13E-2 * EXP( 8.51 * (298.15/T -1.) ), S & P\n    !  HCO3  = 1.13E-2 * EXP( 7.72 * (298.15/T -1.) ), Jacobson\n    !=================================================================\n\n    ! Calculate Henry's Law constant for atmospheric temperature\n    HCO3  = 1.13e-2_fp * EXP( 8.51e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    XO3g  = 1.e+0_fp / ( 1.e+0_fp + ( HCO3 * R * T * LWC ) )\n    !O3aq  = HCO3 * XO3g * O3 * P\n\n    ! Conversion rate from SO2 to SO4 via reaction with O3\n    KaqO3 = (KO0*XSO2AQ + KO1*XHSO3 + KO2*XSO3) * FHCSO2 * XSO2g &\n            * P * HCO3 * XO3g * LWC * R * T   ! [v/v/s]\n\n    !(qjc, 04/10/16)\n    KaqO3_1 = KO2*XSO3 * FHCSO2 * XSO2g &\n              * P * HCO3 * XO3g * LWC * R * T   ! [v/v/s]\n\n    ! ===================================================================\n    ! Metal (Fe, Mn) catalyzed O2 oxidation (bec, 7/12/04)\n    ! R = d[S(VI)]/dt = 750*[Mn(II)]*[S(IV)] + 2600*[Fe(III)]*[S(IV)] +\n    !               1.d10*[Mn(II)]*[Fe(III)]*[S(IV)]\n    ! from Seinfeld and Pandis, 1998 pg. 371\n    ! S(IV) = HFCSO2 * XSO2*P*[SO2]\n    ! R = KaqO2*[SO2] (v/v/s)\n    ! KaqO2 = FHCSO2 * XSO2g * P *\n    !        ((750*[Mn(II)])+(2600[Fe(III)])+(1.d10*[Mn(II)]*[Fe(III)]))\n    ! in units of [M/s]\n    ! KaqO2 = FHCSO2 * XSO2g * P *\n    !        ((750*[Mn(II)])+(2600[Fe(III)])+(1.d10*[Mn(II)]*[Fe(III)])) *\n    !        LWC * R * T/P\n    ! in units of [v/v/s]\n    ! ===================================================================\n\n    ! Conversion rate from SO2 to SO4 via reaction with O2 (met cat)\n    ! Commented out becasue using ionic strength pH modifiers version\n    !KaqO2 = FHCSO2 * XSO2g * ( (750e+0_fp * MnII ) + &\n    !        ( 2600e+0_fp * FeIII ) + (1e+10_fp * MnII * FeIII ) ) * &\n    !        LWC * R * T   ! [s-1]\n\n    ! Conversion rate from SO2 to SO4 via reaction with O2 (met cat)\n    ! added by shaojy16  10/13/2017\n    ! takes into account pH and ionic strength\n    Eff_mn = 10.0**(-4.0*(SQRT(IONIC)/(1.0+SQRT(IONIC))))\n    Eff_fe = 10.0**(-2.0*(SQRT(IONIC)/(1.0+SQRT(IONIC))))\n\n    IF ( Hplus > 10.0**(-4.2) ) THEN\n       KaqO2 = FHCSO2 * XSO2g * &\n            (3.72e+7_fp*Hplus**(-0.74)* &\n            (MnII*FeIII*Eff_fe*Eff_mn)) * &\n            LWC * R * T   ! [s-1]\n    ELSE\n       KaqO2 = FHCSO2 * XSO2g * &\n            (2.51e+13_fp*Hplus**(0.67) * &\n            (MnII*FeIII*Eff_fe*Eff_mn)) * &\n            LWC * R * T   ! [s-1]\n    ENDIF\n\n    !=================================================================\n    !  Aqueous reactions of SO2 with HCHO\n    !     HSO3-   + HCHO(aq) => HMS + OH-           (1)\n    !     SO3--   + HCHO(aq) => HMS                 (2)\n    !\n    !     NOTE:\n    !     [Boyce and Hoffman, 1984]\n    !        KHCHO1  = 7.9E2 * EXP( -16.435 * ((298.15/T) - 1.))\n    !        KHCHO2  = 2.5E7 * EXP( -6.037 * ((298.15/T) - 1.))\n    !\n    !\n    !  Aqueous reaction of HMS with OH-\n    !    HMS + OH- => HCHO(aq) + SO3--             (3)\n    !\n    !     NOTE: unclear where B (E/R) value in Seinfeld and Pandis from,\n    !     but close to Deister. Using Seinfeld and Pandis value for now\n    !     [Deister et al., 1986]\n    !        KHMS    = 3.6E3 * EXP( -22.027 * ((298.15/T) - 1.))\n    !     [Seinfeld and Pandis, 2016; Munger et al., 1986]\n    !        KHMS    = 3.6E3 * EXP( -15.09 * ((298.15/T) - 1.))\n    !\n    !\n    !  Aqueous reaction of HMS with OH(aq)\n    !    HMS + OH(aq) =(SO2,O2,HO2)=> 2SO4-- + HCHO + O2 + 3H+ + 2H2O  (4)\n    !\n    !    NOTE: O2, SO2, and HO2 particpate in the stoichiometry but not kinetics.\n    !          Assume steady state for sulfur radicals and the following reaction chain:\n    !            HMS + OH(aq) =(O2)=> SO5- + HCHO + H2O [Olsen and Fessenden, 1992]\n    !            HO2 <=> H+ + O2-                       [Jacob, 1986]\n    !            SO5- + O2- =(H2O)=> HSO5- + OH- + O2   [Jacob, 1986]\n    !            SO2(aq) <=> HSO3- + H+\n    !            H+ + OH- <=> H2O\n    !            HSO5- + HSO3- => 2SO4-- + 2H+          [Jacob, 1986]\n    !       Instead of assuming Henry's law for OH, use the parameter from\n    !       Jacob et al, 2005 that relates gas phase OH to aqueous phase OH\n    !       accounting for the HO2(aq)/O2- cylcing in cloud droplets:\n    !        dOH = 1E-19 [M cm^3 molec^-1]\n    !     [Olson and Fessenden, 1992]\n    !        KHMS2    = 6.2E8 * EXP( -5.03 * ((298.15/T) -1.))\n    !\n    !\n    ! (jmm, 06/28/18)\n    !=================================================================\n    KHCHO1 = 7.9e+2_fp * EXP( -16.44e+0_fp &\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    KHCHO2 = 2.5e+7_fp * EXP( -6.04e+0_fp &\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    KHMS = 3.6e+3_fp * EXP( -15.09e+0_fp &\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    KHMS2 = 6.2e+8_fp * EXP( -5.03e+0_fp &\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    !=================================================================\n    ! HCHO equilibrium reaction\n    ! HCHO(aq) + H2O   = HCH(OH)2\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of HCHO\n    !                             Ah1       Bh1\n    !  Sienfeld and Pandis      2.53E3    13.48  [2016]\n    !\n    ! (jmm, 06/15/18)\n    !=================================================================\n    Khc1 = 2.53e+3_fp * EXP( 13.48e+0_fp &\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    !=================================================================\n    ! H2O equilibrium reaction\n    !  H2O   = H+ + OH-\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of HCHO\n    !                             Ah1       Bh1\n    !  Sienfeld and Pandis       1E-14     -22.51  [2016]\n    !\n    ! (jmm, 06/15/18)\n    !=================================================================\n    Kw1 = 1e-14_fp * EXP( -22.51e+0_fp &\n         *  ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for HCHO\n    ! [Seinfeld and Pandis, 2016]\n    ! HCHCHO  = 2.5 * EXP( 21.6e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n    ! (jmm, -6/15/18)\n    HCHCHO  = 2.5e+0_fp * EXP( 21.6e+0_fp &\n         *  (298.15e+0_fp / T - 1.e+0_fp) )\n    FHCHCHO = HCHCHO * (1.e+0_fp + Khc1 )\n\n    XHCHOg  = 1.e+0_fp / ( 1.e+0_fp + ( FHCHCHO * R * T * LWC ) )\n\n\n    ! Conversion rate from SO2 to HMS via reaction with HCHO\n    ! (jmm, 06/15/18)\n    KaqHCHO = (KHCHO1*XHSO3 + KHCHO2*XSO3) * FHCSO2 * XSO2G &\n         * P * HCHCHO * XHCHOg * LWC * R * T    ! [v/v/s]\n\n    ! Conversion rate from HMS to SO2 via reaction with OH-\n    ! (jmm, 06/15/18)\n    KaqHMS = KHMS * ( Kw1 / Hplus )            ! [mol/L/s]\n\n    ! Conversion rate from HMS to SO42- & HCHO via reaction with OH(aq)\n    ! (jmm, 06/28/18)\n    KaqHMS2 = KHMS2 * dOH / AIRMW / AIRMW * 7.e-4_fp * AVO &\n         * T * R / P                           ! [m^6 kg^-2 s^-1]\n\n  END SUBROUTINE AQCHEM_SO2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: het_drop_chem\n!\n! !DESCRIPTION: Subroutine HET\\_DROP\\_CHEM estimates the in-cloud sulfate\n!  production rate in heterogeneous cloud droplets based on the Yuen et al.,\n!  1996 parameterization. (bec, 6/16/11)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HET_DROP_CHEM( I,    J,    L,      LSTOT, SSCvv, &\n                            aSO4, GNH3, SO2_sr, H2O20, GNO3,  &\n                            SR,   Input_Opt,    State_Met, State_Chm )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: I, J, L\n    REAL(fp),       INTENT(IN)  :: LSTOT\n    REAL(fp),       INTENT(IN)  :: SSCvv\n    REAL(fp),       INTENT(IN)  :: aSO4\n    REAL(fp),       INTENT(IN)  :: GNH3\n    REAL(fp),       INTENT(IN)  :: SO2_sr\n    REAL(fp),       INTENT(IN)  :: H2O20\n    REAL(fp),       INTENT(IN)  :: GNO3\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: SR          ! Sulfate production rate\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER   :: SS_DEN = 2200.e+0_fp !dry sea-salt density [kg/m3]\n\n    ! sigma of the size distribution for sea-salt (Jaegle et al., 2011)\n    REAL(fp), PARAMETER   :: SIG_S = 1.8e+0_fp\n\n    ! geometric dry mean diameters [m] for computing lognormal size distribution\n    REAL(fp), PARAMETER   :: RG_S = 0.4e-6_fp !(Jaegle et a., 2011)\n    REAL(fp), PARAMETER   :: RG_D2 = 1.5e-6_fp!(Ginoux et al., 2001)\n    REAL(fp), PARAMETER   :: RG_D3 = 2.5e-6_fp\n    REAL(fp), PARAMETER   :: RG_D4 = 4.e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: alpha_NH3, alpha_SO2, alpha_H2O2\n    REAL(fp)              :: alpha_HNO3, alpha_B, alpha_CN\n    REAL(fp)              :: alpha_W, alpha_SO4, sum_gas, H\n    REAL(fp)              :: NDss, NDd2, NDd3, NDd4, CN, DEN, REFF, W\n    REAL(fp)              :: DTCHEM, APV, DSVI\n    REAL(fp)              :: B, NH3, SO2, H2O2, HNO3, SO4\n    REAL(fp)              :: CNss, CNd2, CNd3, CNd4\n    REAL(fp)              :: MW_SO4, MW_SALC\n\n    ! Pointers\n    REAL(fp), POINTER     :: AD(:,:,:)\n    REAL(fp), POINTER     :: AIRDEN(:,:,:)\n    REAL(fp), POINTER     :: AIRVOL(:,:,:)\n    REAL(fp), POINTER     :: OMEGA(:,:,:)\n    REAL(fp), POINTER     :: U(:,:,:)\n    REAL(fp), POINTER     :: V(:,:,:)\n\n    !=================================================================\n    ! HET_DROP_CHEM begins here!\n    !=================================================================\n\n    ! Initialize pointers\n    AD     => State_Met%AD\n    AIRDEN => State_Met%AIRDEN\n    AIRVOL => State_Met%AIRVOL\n    OMEGA  => State_Met%OMEGA\n    U      => State_Met%U\n    V      => State_Met%V\n\n    ! Convert gas phase concentrations from [v/v] to [pptv]\n    NH3  = GNH3  * 1.0e+12_fp\n    SO2  = SO2_sr  * 1.0e+12_fp\n    H2O2 = H2O20 * 1.0e12_fp\n    HNO3 = GNO3 * 1.0e12_fp\n\n    ! Set molecular weight local variables\n    MW_SO4 = State_Chm%SpcData(id_SO4)%Info%MW_g\n    MW_SALC = State_Chm%SpcData(id_SALC)%Info%MW_g\n\n    ! Convert sulfate aerosol concentrations from [v/v] to [ug/m3]\n    SO4 = ( aSO4 * AD(I,J,L) * 1.0e+9_fp ) / &\n          ( ( AIRMW / MW_SO4 ) * AIRVOL(I,J,L) )\n\n    ! Convert in cloud sulfate production rate from [v/v/timestep] to\n    ! [ug/m3/timestep]\n    B  = ( LSTOT * AD(I,J,L) * 1.0e+9_fp ) / &\n         ( ( AIRMW / MW_SO4 ) * AIRVOL(I,J,L) )\n\n    ! Convert coarse-mode aerosol concentrations from [v/v] to [#/cm3]\n    ! based on equation in Hofmann, Science, 1990.\n    ! First convert from [v/v] to [kg/m3 air]\n    CNss = SSCvv * AD(I,J,L) / ( ( AIRMW / MW_SALC ) * AIRVOL(I,J,L) )\n\n    ! Now convert from [kg/m3 air] to [#/cm3 air]\n    ! Sea-salt\n    NDss = ( (3.e+0_fp/4.e+0_fp) * CNss ) / (PI * SS_DEN * RG_S**3.e+0_fp * &\n           exp( (9.e+0_fp/2.e+0_fp) * (LOG(SIG_S)) ** 2.e+0_fp ) ) * 1.e-6_fp\n\n    ! Total coarse mode number concentration [#/cm3]\n    CN = NDss ! sea-salt\n\n    ! Determine regression coefficients based on the local SO2 concentration\n    IF ( SO2 <= 200.0e+0_fp ) THEN\n       alpha_B    = 0.5318e+0_fp\n       alpha_NH3  = -1.67e-7_fp\n       alpha_SO2  = 2.59e-6_fp\n       alpha_H2O2 = -1.77e-7_fp\n       alpha_HNO3 = -1.72e-7_fp\n       alpha_W    = 1.22e-6_fp\n       alpha_CN   = 4.58e-6_fp\n       alpha_SO4  = -1.00e-5_fp\n    ELSE IF ( SO2 > 200.0e+0_fp .AND. SO2 <= 500.0e+0_fp ) THEN\n       alpha_B    = 0.5591e+0_fp\n       alpha_NH3  = 3.62e-6_fp\n       alpha_SO2  = 1.66e-6_fp\n       alpha_H2O2 = 1.06e-7_fp\n       alpha_HNO3 = -5.45e-7_fp\n       alpha_W    = -5.79e-7_fp\n       alpha_CN   = 1.63e-5_fp\n       alpha_SO4  = -7.40e-6_fp\n    ELSE IF ( SO2 > 500.0e+0_fp .AND. SO2 < 1000.0e+0_fp ) THEN\n       alpha_B    = 1.1547e+0_fp\n       alpha_NH3  = -4.28e-8_fp\n       alpha_SO2  = -1.23e-7_fp\n       alpha_H2O2 = -9.05e-7_fp\n       alpha_HNO3 = 1.73e-7_fp\n       alpha_W    = 7.22e-6_fp\n       alpha_CN   = 2.44e-5_fp\n       alpha_SO4  = 3.25e-5_fp\n    ELSE IF ( SO2 >= 1000.0e+0_fp ) THEN\n       alpha_B    = 1.1795e+0_fp\n       alpha_NH3  = 2.57e-7_fp\n       alpha_SO2  = -5.54e-7_fp\n       alpha_H2O2 = -1.08e-6_fp\n       alpha_HNO3 = 1.95e-6_fp\n       alpha_W    = 6.14e-6_fp\n       alpha_CN   = 1.64e-5_fp\n       alpha_SO4  = 2.48e-6_fp\n    ENDIF\n\n    ! Updraft velocity over the oceans [cm/s]\n    ! 500 cm/s is too high. Get W from the met field. (qjc, 04/10/16)\n    !W = 500e+0_fp\n    W = -OMEGA(I,J,L) / ( AIRDEN(I,J,L) * g0 ) * 100e+0_fp\n\n    ! Compute H (integration time interval * air parcel velocity) [m]\n    ! DTCHEM is the chemistry timestep in seconds\n    DTCHEM = GET_TS_CHEM()\n\n    ! Compute air parcel velocity [m/s]\n    !APV = SQRT( (U(I,J,L) * U(I,J,L)) + (V(I,J,L) * V(I,J,L)) )\n    !(qjc, 04/10/16)\n    APV = SQRT( (U(I,J,L) * U(I,J,L)) + (V(I,J,L) * V(I,J,L)) + &\n                 W * W *1.e-4_fp )\n\n    H   = DTCHEM * APV          ![m]\n\n    sum_gas = (alpha_NH3 * NH3) + (alpha_SO2 * SO2) + &\n              (alpha_H2O2 * H2O2) + (alpha_HNO3 * HNO3)\n\n    DSVI = ( alpha_B * B ) + &\n           ( ( (alpha_CN * CN) + (alpha_W * W) + (alpha_SO4 * SO4) + &\n                sum_gas ) * H )\n\n    ! Only calculate SR when air parcel rises, in consistence with\n    ! Yuen et al. (1996) (qjc, 04/10/16)\n    IF ( W > 0e+0_fp ) THEN\n\n       ! additional sulfate production that can be attributed to\n       ! ozone [ug/m3/timestep]\n       SR = DSVI - B\n\n       ! Convert SR from [ug/m3/timestep] to [v/v/timestep]\n       SR = SR * ( AIRMW / MW_SO4 ) * 1.e-9_fp / AIRDEN(I,J,L)\n\n       ! Don't allow SR to be negative\n       SR = MAX( SR, 0.e+0_fp )\n\n       ! Don't produce more SO4 than SO2 available after AQCHEM_SO2\n       SR = MIN( SR, SO2_sr )\n\n    ELSE\n       SR = 0.e+0_fp\n    ENDIF\n\n    ! Free pointers\n    AD     => NULL()\n    AIRDEN => NULL()\n    AIRVOL => NULL()\n    OMEGA  => NULL()\n    U      => NULL()\n    V      => NULL()\n\n  END SUBROUTINE HET_DROP_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_so4\n!\n! !DESCRIPTION: Subroutine CHEM\\_SO4 is the SO4 chemistry subroutine from Mian\n!  Chin's GOCART model, modified for the GEOS-CHEM model.  Now also modified to\n!  account for production of crystalline and aqueous sulfur tracers.\n!  (rjp, bdf, cas, bmy, 5/31/00, 5/23/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_SO4( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, State_Met, RC                            )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : NDSTBIN\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n#ifdef APM\n    USE APM_INIT_MOD,   ONLY : APMIDS\n    USE APM_INIT_MOD,   ONLY : NGCOND,   NSO4,      NSEA\n    USE APM_INIT_MOD,   ONLY : NCTSO4,NCTBC,NCTOC,NCTDST,NCTSEA\n    USE APM_INIT_MOD,   ONLY : IFEMITBCOCS\n    USE APM_DRIV_MOD,   ONLY : PSO4GAS\n    USE APM_DRIV_MOD,   ONLY : FCLOUD\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  The only production is from SO2 oxidation (save in CHEM_SO2).  Dry\n!  deposition is now handled in mixing_mod.F90, so we can must add the\n!  production from SO2 into the SO4 tracers.\n!                                                                             .\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL           :: LDSTUP\n    INTEGER           :: I,   J,    L,    N\n    INTEGER           :: IBIN  ! tdf\n    REAL(fp)          :: SO4, SO40, SO4s, SO40s\n    REAL(fp)          :: PSO4d, SO40_dust ! tdf 04/07/08\n\n    ! Arrays\n    REAL(fp)          :: SO4d (NDSTBIN)  ! tdf 04/07/08\n    REAL(fp)          :: SO40d(NDSTBIN)  ! tdf 04/07/08\n\n    ! Following are index arrays to hold pointers to STT\n    ! tdf 04/07/08\n    INTEGER           :: IDTRC(NDSTBIN)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n#ifdef APM\n    REAL(fp), PARAMETER :: AIRMW_96 = AIRMW / 96.0d0\n#endif\n\n    !=================================================================\n    ! CHEM_SO4 begins here!\n    !=================================================================\n\n    ! Return if tracers are not defined\n    IF ( id_SO4 < 0 .or. id_SO4s < 0 ) RETURN\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Copy fields from INPUT_OPT to local variables for use below\n    LDSTUP    = Input_Opt%LDSTUP\n\n#ifdef APM\n    !------------------------------------------\n    ! Call APM size-resolved drydep algorithm\n    !------------------------------------------\n    CALL WET_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag,                 &\n                          State_Grid, State_Met, RC                         )\n#endif\n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    ! Loop over chemistry grid boxes\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,     J,    L,     N,         SO4,  SO4s,  SO40         )&\n    !$OMP PRIVATE( SO40s, SO4d, SO40d, SO40_dust, IBIN, PSO4d, IDTRC        )&\n    !$OMP SCHEDULE( DYNAMIC                                                 )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero loop variables\n       SO4   = 0.0_fp\n       SO4s  = 0.0_fp\n       SO40  = 0.0_fp\n       SO40s = 0.0_fp\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       !==============================================================\n       ! Initial concentrations before chemistry\n       !==============================================================\n\n       ! SO4 [v/v]\n       SO40  = Spc(id_SO4)%Conc(I,J,L)\n\n       ! SO4 within coarse seasalt aerosol [v/v]\n       SO40s = Spc(id_SO4s)%Conc(I,J,L)\n\n       IF ( LDSTUP ) THEN\n          ! Initial Sulfate w/in dust bins [v/v]   ! tdf 04/07/08\n          SO40d(1) = Spc(id_SO4dbin1)%Conc(I,J,L)\n          SO40d(2) = Spc(id_SO4dbin2)%Conc(I,J,L)\n          SO40d(3) = Spc(id_SO4dbin3)%Conc(I,J,L)\n          SO40d(4) = Spc(id_SO4dbin4)%Conc(I,J,L)\n          SO40d(5) = Spc(id_SO4dbin5)%Conc(I,J,L)\n          SO40d(6) = Spc(id_SO4dbin6)%Conc(I,J,L)\n          SO40d(7) = Spc(id_SO4dbin7)%Conc(I,J,L)\n       ENDIF\n\n       !==============================================================\n       ! SO4 chemistry\n       !==============================================================\n\n       ! SO4 production from SO2 and HMS [v/v/timestep]\n       SO4 = SO40 + PSO4_SO2(I,J,L)\n\n       !==============================================================\n       ! SO4s (SO4 w/in seasalt aerosol) chemistry:\n       !==============================================================\n\n       ! SO4 production from SO2 [v/v/timestep]\n       SO4s = SO40s + PSO4_ss(I,J,L)\n\n       !==============================================================\n       ! SO4d (SO4 w/in dust aerosol) chemistry:     tdf 04/07/08\n       !==============================================================\n       IF ( LDSTUP ) THEN\n          IDTRC(1) = id_SO4dbin1\n          IDTRC(2) = id_SO4dbin2\n          IDTRC(3) = id_SO4dbin3\n          IDTRC(4) = id_SO4dbin4\n          IDTRC(5) = id_SO4dbin5\n          IDTRC(6) = id_SO4dbin6\n          IDTRC(7) = id_SO4dbin7\n\n          ! tdf Loop over size bins\n          DO IBIN = 1, NDSTBIN\n\n             ! Initial amount of sulfate on dust size bin IBIN\n             SO40_dust = SO40d(IBIN)\n\n             ! Production of sulfate on dust [v/v/timestep]\n             PSO4d = PSO4_dust(I,J,L,IBIN)\n\n             ! SO4 production from SO2 [v/v/timestep]\n             SO4d(IBIN) = SO40_dust + PSO4d\n\n          ENDDO\n       ENDIF    !tdf end of if ( LDSTUP) condition\n\n       !==============================================================\n       ! Final concentrations after chemistry\n       !==============================================================\n\n       ! Error check\n       IF ( SO4  < SMALLNUM ) SO4  = 0e+0_fp\n       IF ( SO4s < SMALLNUM ) SO4s = 0e+0_fp\n\n       ! Final concentrations [v/v]\n       Spc(id_SO4)%Conc(I,J,L)  = SO4\n       Spc(id_SO4s)%Conc(I,J,L) = SO4s\n\n!APM_GanLuo+\n#ifdef APM\n       IF ( NSO4 >= 1 ) THEN\n          DO N = 1, NSO4\n             ! Updated SO4 (gas phase) [v/v]\n             Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L)          =               &\n             Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L)          +               &\n                  ( PSO4_SO2APM(I,J,L) +                                     &\n                    State_Chm%PSO4_SO2APM2(I,J,L) * AIRMW_96 /               &\n                  ( g0_100 * State_Met%DELP_DRY(I,J,L)   ) ) *               &\n                  FCLOUD(I,J,L,N)\n          ENDDO\n       ENDIF\n\n       IF ( NCTBC >=1 ) THEN\n          N = 1\n          Spc(APMIDS%id_CTBC)%Conc(I,J,L)                    =               &\n          Spc(APMIDS%id_CTBC)%Conc(I,J,L)                    +               &\n             ( PSO4_SO2APM(I,J,L) +                                          &\n               State_Chm%PSO4_SO2APM2(I,J,L) * AIRMW_96      /               &\n               ( g0_100 * State_Met%DELP_DRY(I,J,L)      ) ) *               &\n               FCLOUD(I,J,L,(NSO4+N))\n       ENDIF\n\n       IF ( NCTOC >= 1 ) THEN\n          N = 1\n          Spc(APMIDS%id_CTOC)%Conc(I,J,L)                     =             &\n          Spc(APMIDS%id_CTOC)%Conc(I,J,L)                     +             &\n             ( PSO4_SO2APM(I,J,L) +                                         &\n               State_Chm%PSO4_SO2APM2(I,J,L) * AIRMW_96       /             &\n             ( g0_100 *State_Met%DELP_DRY(I,J,L) ) )          *             &\n             FCLOUD(I,J,L,(NSO4+N))\n       ENDIF\n\n       IF ( NCTDST >= 1 ) THEN\n          N = 1\n          Spc(APMIDS%id_CTDST)%Conc(I,J,L)                    =             &\n          Spc(APMIDS%id_CTDST)%Conc(I,J,L)                    +             &\n             ( PSO4_SO2APM(I,J,L) +                                         &\n               State_Chm%PSO4_SO2APM2(I,J,L) * AIRMW_96       /             &\n             ( g0_100 * State_Met%DELP_DRY(I,J,L)         ) ) *             &\n             FCLOUD(I,J,L,(NSO4+3))\n       ENDIF\n\n       IF ( NCTSEA >= 1 ) THEN\n          N = 1\n          Spc(APMIDS%id_CTSEA)%Conc(I,J,L)                    =             &\n          Spc(APMIDS%id_CTSEA)%Conc(I,J,L)                    +             &\n             ( PSO4_SO2APM(I,J,L) +                                         &\n               State_Chm%PSO4_SO2APM2(I,J,L) * AIRMW_96       /             &\n             ( g0_100 * State_Met%DELP_DRY(I,J,L)         ) ) *             &\n             FCLOUD(I,J,L,(NSO4+4))                           +             &\n             PSO4_SO2SEA(I,J,L)\n       ENDIF\n#endif\n\n       !tdf\n       IF ( LDSTUP ) THEN\n          DO IBIN = 1, NDSTBIN\n             SO40_dust = SO4d(IBIN)\n             IF ( SO40_dust < SMALLNUM ) SO40_dust = 0e+0_fp\n             Spc(IDTRC(IBIN))%Conc(I,J,L) = SO40_dust ! dust sulfate\n          ENDDO\n       ENDIF    !tdf end of if ( LDSTUP) condition\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n#ifdef APM\n    ! Reset the PSO4_SO2APM2 which tracks SO4 from wetdep\n    State_Chm%PSO4_SO2APM2 = 0.0d0\n#endif\n\n    ! Free pointers\n    Spc => NULL()\n\n  END SUBROUTINE CHEM_SO4\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_so4_aq\n!\n! !DESCRIPTION: Subroutine CHEM\\_SO4\\_AQ takes the SO4 produced via aqueous\n!  chemistry of SO2 and distribute onto the size-resolved aerosol number and\n!  sulfate mass as a part of the TOMAS aerosol microphysics module\n!  (win, 1/25/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_SO4_AQ( Input_Opt, State_Chm, State_Grid, State_Met, &\n                            State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptINput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE TOMAS_MOD,          ONLY : AQOXID, GETACTBIN\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diag State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  NOTE: This subroutine is ignored unless we compile for TOMAS microphysics.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: I,      J,       L\n    INTEGER           :: k,      binact1, binact2\n    INTEGER           :: KMIN,   previous_units\n    REAL(fp)          :: SO4OXID\n\n    !=================================================================\n    ! CHEM_SO4_AQ begins here!\n    !=================================================================\n\n    ! Assume success\n    RC  = GC_SUCCESS\n\n    ! Convert species from to [kg]\n    ! NOTE: For TOMAS, convert all species units, in order not to\n    ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'Start of CHEM_SO4_AQ in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, KMIN, SO4OXID, BINACT1, BINACT2                 ) \n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero private loop variables\n       BINACT1 = 0.0_fp\n       BINACT2 = 0.0_fp\n       KMIN    = 0.0_fp\n       SO4OXID = 0.0_fp\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       SO4OXID = PSO4_SO2AQ(I,J,L) * State_Met%AD(I,J,L) &\n                 / ( AIRMW / State_Chm%SpcData(id_SO4)%Info%MW_g )\n       IF ( SO4OXID > 0e+0_fp ) THEN\n          ! JKodros (6/2/15 - Set activating bin based on which TOMAS bin\n          !length being used)\n#if defined( TOMAS12 )\n          CALL GETACTBIN( I, J, L, id_NK05, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK05, .FALSE., BINACT2, State_Chm, RC )\n#elif defined( TOMAS15 )\n          CALL GETACTBIN( I, J, L, id_NK08, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK08, .FALSE., BINACT2, State_Chm, RC )\n#elif defined( TOMAS30 )\n          CALL GETACTBIN( I, J, L, id_NK10, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK10, .FALSE., BINACT2, State_Chm, RC )\n#else\n          CALL GETACTBIN( I, J, L, id_NK20, .TRUE. , BINACT1, State_Chm, RC )\n\n          CALL GETACTBIN( I, J, L, id_NK20, .FALSE., BINACT2, State_Chm, RC )\n#endif\n\n          KMIN = ( BINACT1 + BINACT2 )/ 2.\n\n          ! Indicate that we are NOT calling AqOxid from wetdep, which\n          ! will avoid doing any further internal unit conversion (as\n          ! units are already in kg here). -- Bob Yantosca (11 Apr 2024)\n          CALL AqOxid(                                                       &\n               I          = I,                                               &\n               J          = J,                                               &\n               L          = L,                                               &\n               MOXID      = SO4OXID,                                         &\n               KMIN       = KMIN,                                            &\n               fromWetDep = .FALSE.,                                         &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               State_Met  = State_Met,                                       &\n               State_Diag = State_Diag,                                      &\n               RC         = RC                                              )\n\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Convert species back to original units\n    ! NOTE: For TOMAS, convert all species units, in order not to\n    ! break internal unit conversions (Bob Yantosca, 11 Apr 2024)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'End of CHEM_SO4_AQ in sulfate_mod.F90')\n       RETURN\n    ENDIF\n\n  END SUBROUTINE CHEM_SO4_AQ\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_msa\n!\n! !DESCRIPTION: Subroutine CHEM\\_MSA is the SO4 chemistry subroutine from Mian\n!  Chin's GOCART model, modified for the GEOS-CHEM model. (rjp, bdf, bmy,\n!  5/31/00, 10/25/05)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_MSA( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  The only production is from DMS oxidation (saved in CHEM_DMS).\n!  Dry deposition is now treaded in mixing_mod.F90.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER           :: I,    J,    L\n    REAL(fp)          :: MSA0, MSA\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! CHEM_MSA begins here!\n    !=================================================================\n    IF ( id_MSA < 0 ) RETURN\n\n    ! Assume success\n    RC  = GC_SUCCESS\n\n    ! Point to chemical species array [v/v/ dry]\n    Spc => State_Chm%Species\n\n    ! Loop over chemistry grid boxes\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, MSA0, MSA ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       ! Initial MSA [v/v]\n       MSA0 = Spc(id_MSA)%Conc(I,J,L)\n\n       ! MSA production from DMS [v/v/timestep]\n       MSA = MSA0 + PMSA_DMS(I,J,L)\n\n       ! Final MSA [v/v]\n       IF ( MSA < SMALLNUM ) MSA = 0e+0_fp\n       Spc(id_MSA)%Conc(I,J,L) = MSA\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHEM_MSA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_nit\n!\n! !DESCRIPTION: Subroutine CHEM\\_NIT removes SULFUR NITRATES (NIT) from the\n!  surface via dry deposition. (rjp, bdf, bmy, 1/2/02, 5/23/06)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHEM_NIT( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,       ONLY : NDSTBIN\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n\n!\n! !REMARKS:\n!  Dry deposition is now applied in mixing_mod.F90.  Therefore we can\n!                                                                             .\n! !REMARKS:\n!  Reaction List:\n!  ============================================================================\n!  (1 ) NIT = NIT_0 * EXP( -dt )  where d = dry deposition rate [s-1]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER           :: I, IBIN, J, L, N\n    REAL(fp)          :: PNITd\n\n    ! Arrays\n    INTEGER           :: IDTRC(NDSTBIN)\n    REAL(fp)          :: NITd (NDSTBIN)\n    REAL(fp)          :: NIT0d(NDSTBIN)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! CHEM_NIT begins here!\n    !=================================================================\n\n    ! Return if tracers are not defined\n    IF ( id_NIT < 0 .OR.id_NITs < 0 ) RETURN\n\n    ! If we are doing a dust uptake simulation,\n    ! return if dust uptake tracers are undefined\n    IF ( Input_Opt%LDSTUP ) THEN\n       IF ( id_NITdbin1 < 0 .or. id_NITdbin2 < 0 .or. &\n            id_NITdbin3 < 0 .or. id_NITdbin4 < 0 .or. &\n            id_NITdbin5 < 0 .or. id_NITdbin6 < 0 .or. id_NITdbin7 < 0 ) RETURN\n\n    ENDIF\n\n    ! Assume success\n    RC       = GC_SUCCESS\n\n    ! Point to chemical species array [v/v dry]\n    Spc      => State_Chm%Species\n\n    ! Assign pointers to Spc arrays for loop over dust size bins,\n    ! since this can be done outside the parallel DO loop.\n    ! These will be set to a missing value (-1) if undefined.\n    IDTRC(1) = id_NITdbin1\n    IDTRC(2) = id_NITdbin2\n    IDTRC(3) = id_NITdbin3\n    IDTRC(4) = id_NITdbin4\n    IDTRC(5) = id_NITdbin5\n    IDTRC(6) = id_NITdbin6\n    IDTRC(7) = id_NITdbin7\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, NITd, NIT0d, IBIN, PNITd ) &\n    !$OMP SCHEDULE( DYNAMIC, 1 )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Skip non-chemistry boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       !==============================================================\n       ! NITs chemistry\n       !==============================================================\n\n       ! Add NIT prod from HNO3 uptake on fine sea-salt [v/v/timestep]\n       ! to the NITs concentration in the Spc array [v/v dry]\n       ! Should do for both fine and coarse mode (xnw 12/8/17)\n       Spc(id_NIT)%Conc(I,J,L)  = Spc(id_NIT)%Conc(I,J,L) + PNIT(I,J,L)\n       Spc(id_NITs)%Conc(I,J,L) = Spc(id_NITs)%Conc(I,J,L) + PNITs(I,J,L)\n\n       !==============================================================\n       ! NITd chemistry (cf. Duncan Fairlie)\n       !==============================================================\n       IF ( Input_Opt%LDSTUP ) THEN\n\n          ! Initialize variables\n          NITd     = 0.0_fp\n\n          ! Initial NITRATE w/in dust bins [v/v]\n          NIT0d(1) = Spc(id_NITdbin1)%Conc(I,J,L)\n          NIT0d(2) = Spc(id_NITdbin2)%Conc(I,J,L)\n          NIT0d(3) = Spc(id_NITdbin3)%Conc(I,J,L)\n          NIT0d(4) = Spc(id_NITdbin4)%Conc(I,J,L)\n          NIT0d(5) = Spc(id_NITdbin5)%Conc(I,J,L)\n          NIT0d(6) = Spc(id_NITdbin6)%Conc(I,J,L)\n          NIT0d(7) = Spc(id_NITdbin7)%Conc(I,J,L)\n\n          ! Loop over size bins\n          DO IBIN = 1, NDSTBIN\n\n             ! Production of nitrate on dust [v/v/timestep]\n             PNITd                  = PNIT_dust(I,J,L,IBIN)\n\n             ! NIT prod from HNO3 uptake on dust [v/v/timestep]\n             NITd(IBIN)             = NIT0d(IBIN) + PNITd\n\n             ! Store final concentration in Spc [v/v]\n             Spc(IDTRC(IBIN))%Conc(I,J,L) = NITd(IBIN)\n\n          ENDDO\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHEM_NIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_cl\n!\n! !DESCRIPTION: Subroutine CHEM\\_CL cacluate sea-salt chloride from\n!  uptake of HCl by alkalinity. (xnw, 12/8/17)\n!\\\\\n!\\\\\n! !INTERFACE:\n\n  SUBROUTINE CHEM_CL( Input_Opt, State_Met, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n      USE CMN_SIZE_MOD\n      USE ErrCode_Mod\n      USE Input_Opt_Mod,      ONLY : OptInput\n      USE Species_Mod,        ONLY : SpcConc\n      USE State_Chm_Mod,      ONLY : ChmState\n      USE State_Met_Mod,      ONLY : MetState\n      USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n      TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n      TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n      TYPE(GrdState), INTENT(IN)    :: State_Grid\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n      TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n      INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!-----------------------------------------------------------------------------\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      ! Scalars\n      INTEGER           :: I, J, L\n\n      ! Pointers\n      TYPE(SpcConc), POINTER :: Spc(:)\n\n      !=================================================================\n      ! CHEM_NIT begins here!\n      !=================================================================\n\n      ! Return if tracers are not defined\n      IF ( id_SALACL < 0 .OR.id_SALCCL < 0 ) RETURN\n\n      ! Assume success\n      RC       = GC_SUCCESS\n\n      ! Point to chemical species array [v/v dry]\n      Spc      => State_Chm%Species\n\n      !$OMP PARALLEL DO          &\n      !$OMP DEFAULT( SHARED )    &\n      !$OMP PRIVATE( I, J, L)    &\n      !$OMP SCHEDULE( DYNAMIC, 1 )\n      DO L = 1, State_Met%MaxChemLev\n      DO J = 1, State_Grid%NY\n      DO I = 1, State_Grid%NX\n\n         ! Skip non-chemistry boxes\n!         IF ( ITS_IN_THE_NOCHEMGRID( I, J, L, State_Met ) ) CYCLE\n\n         !==============================================================\n         ! Cl chemistry\n         !==============================================================\n\n         ! Add Cl prod from HCl uptake on fine and coarse sea-salt [v/v/timestep]\n         Spc(id_SALACL)%Conc(I,J,L)  = Spc(id_SALACL)%Conc(I,J,L) + PACL(I,J,L)\n         Spc(id_SALCCL)%Conc(I,J,L)  = Spc(id_SALCCL)%Conc(I,J,L) + PCCL(I,J,L)\n\n      ENDDO\n      ENDDO\n      ENDDO\n      !$OMP END PARALLEL DO\n\n      ! Free pointer\n      Spc => NULL()\n\n      END SUBROUTINE CHEM_CL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_oh\n!\n! !DESCRIPTION: Function GET\\_OH returns OH from State\\_Chm%Species (for\n!  coupled runs) or monthly mean OH (for offline runs).  Imposes a diurnal\n!  variation on OH for offline simulations. (bmy, 12/16/02, 7/20/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_OH( I, J, L, Input_Opt, State_Chm, State_Met ) &\n       RESULT( OH_MOLEC_CM3 )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: I, J, L     ! Lon, lat, level indices\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                   :: OH_MOLEC_CM3 ! OH conc [molec/cm3]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! GET_OH begins here!\n    !=================================================================\n\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n       !---------------------\n       ! Coupled simulation\n       !---------------------\n\n       ! OH is defined only in the chemistry grid\n       IF ( State_Met%InChemGrid(I,J,L) ) THEN\n\n          ! Get OH from State_Chm%Species [v/v] converted to [molec/cm3]\n          OH_MOLEC_CM3 = State_Chm%Species(id_OH)%Conc(I,J,L) * &\n                         State_Met%AIRNUMDEN(I,J,L)\n       ELSE\n          OH_MOLEC_CM3 = 0e+0_fp\n       ENDIF\n\n    ELSE IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       !---------------------\n       ! Offline simulation\n       !---------------------\n\n       ! Test for sunlight...\n       IF ( State_Met%SUNCOS(I,J) > 0e+0_fp .and. TCOSZ(I,J) > 0e+0_fp ) THEN\n\n          ! OH from HEMCO is in mol/mol, convert to molec/cm3\n          OH_MOLEC_CM3 = GLOBAL_OH(I,J,L) * State_Met%AIRNUMDEN(I,J,L)\n\n          ! Impose a diurnal variation on OH during the day\n          OH_MOLEC_CM3 = OH_MOLEC_CM3 * &\n                         ( State_Met%SUNCOS(I,J) / TCOSZ(I,J) ) * &\n                         ( 86400e+0_fp           / GET_TS_CHEM() )\n\n          ! Make sure OH is not negative\n          OH_MOLEC_CM3 = MAX( OH_MOLEC_CM3, 0e+0_fp )\n\n       ELSE\n\n          ! At night, OH goes to zero\n          OH_MOLEC_CM3 = 0e+0_fp\n\n       ENDIF\n\n    ENDIF\n\n  END FUNCTION GET_OH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ohno3time\n!\n! !DESCRIPTION: Subroutine OHNO3TIME computes the sum of cosine of the solar\n!  zenith angle over a 24 hour day, as well as the total length of daylight.\n!  This is needed to scale the offline OH and NO3 concentrations.\n!  (rjp, bmy, 12/16/02, 3/30/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE OHNO3TIME( State_Grid )\n!\n! !USES:\n!\n    USE TIME_MOD,       ONLY : GET_NHMSb,   GET_ELAPSED_SEC\n    USE TIME_MOD,       ONLY : GET_TS_CHEM, GET_DAY_OF_YEAR, GET_GMT\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE       :: FIRST = .TRUE.\n    INTEGER             :: I, J, L, N, NT, NDYSTEP\n    REAL(fp)            :: A0, A1, A2, A3, B1, B2, B3\n    REAL(fp)            :: LHR0, R, AHR, DEC, TIMLOC, YMID_R\n    REAL(fp)            :: SUNTMP(State_Grid%NX,State_Grid%NY)\n\n    !=================================================================\n    ! OHNO3TIME begins here!\n    !=================================================================\n\n    !  Solar declination angle (low precision formula, good enough for us):\n    A0 = 0.006918\n    A1 = 0.399912\n    A2 = 0.006758\n    A3 = 0.002697\n    B1 = 0.070257\n    B2 = 0.000907\n    B3 = 0.000148\n    R  = 2.* PI * float( GET_DAY_OF_YEAR() - 1 ) / 365.\n\n    DEC = A0 - A1*cos(  R) + B1*sin(  R) &\n             - A2*cos(2*R) + B2*sin(2*R) &\n             - A3*cos(3*R) + B3*sin(3*R)\n\n    LHR0 = int(float( GET_NHMSb() )/10000.)\n\n    ! Only do the following at the start of a new day\n    IF ( FIRST .or. GET_GMT() < 1e-5 ) THEN\n\n       ! Zero arrays\n       TTDAY(:,:) = 0e+0_fp\n       TCOSZ(:,:) = 0e+0_fp\n       COSZM(:,:) = 0e+0_fp\n\n       ! NDYSTEP is # of chemistry time steps in this day\n       NDYSTEP = ( 24 - INT( GET_GMT() ) ) * 3600 / GET_TS_CHEM()\n\n       ! NT is the elapsed time [s] since the beginning of the run\n       NT = GET_ELAPSED_SEC()\n\n       ! Loop forward through NDYSTEP \"fake\" timesteps for this day\n       DO N = 1, NDYSTEP\n\n          ! Zero SUNTMP array\n          SUNTMP = 0e+0_fp\n\n          ! Loop over surface grid boxes\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Grid box latitude center [radians]\n             YMID_R = State_Grid%YMid_R(I,J)\n\n             TIMLOC = real(LHR0) + real(NT)/3600.0 + State_Grid%XMid(I,J)/15.0\n\n             DO WHILE (TIMLOC .lt. 0)\n                TIMLOC = TIMLOC + 24.0\n             ENDDO\n\n             DO WHILE (TIMLOC .gt. 24.0)\n                TIMLOC = TIMLOC - 24.0\n             ENDDO\n\n             AHR = abs(TIMLOC - 12.) * 15.0 * PI_180\n\n             !===========================================================\n             ! The cosine of the solar zenith angle (SZA) is given by:\n             !\n             !  cos(SZA) = sin(LAT)*sin(DEC) + cos(LAT)*cos(DEC)*cos(AHR)\n             !\n             ! where LAT = the latitude angle,\n             !       DEC = the solar declination angle,\n             !       AHR = the hour angle, all in radians.\n             !\n             ! If SUNCOS < 0, then the sun is below the horizon, and\n             ! therefore does not contribute to any solar heating.\n             !===========================================================\n\n             ! Compute Cos(SZA)\n             SUNTMP(I,J) = sin(YMID_R) * sin(DEC) + &\n                           cos(YMID_R) * cos(DEC) * cos(AHR)\n\n             ! TCOSZ is the sum of SUNTMP at location (I,J)\n             ! Do not include negative values of SUNTMP\n             TCOSZ(I,J) = TCOSZ(I,J) + MAX( SUNTMP(I,J), 0e+0_fp )\n\n             ! COSZM is the peak value of SUMTMP during a day at (I,J)\n             ! (rjp, bmy, 3/30/04)\n             COSZM(I,J) = MAX( COSZM(I,J), SUNTMP(I,J) )\n\n             ! TTDAY is the total daylight time at location (I,J)\n             IF ( SUNTMP(I,J) > 0e+0_fp ) THEN\n                TTDAY(I,J) = TTDAY(I,J) + DBLE( GET_TS_CHEM() ) * 60e+0_fp\n             ENDIF\n          ENDDO\n          ENDDO\n\n          !### Debug\n          !PRINT*, '### IN OHNO3TIME'\n          !PRINT*, '### N       : ', N\n          !PRINT*, '### NDYSTEP : ', NDYSTEP\n          !PRINT*, '### NT      : ', NT\n          !PRINT*, '### JDAY    : ', JDAY\n          !PRINT*, '### RLAT    : ', RLAT\n          !PRINT*, '### XMID    : ', XMID\n          !PRINT*, '### SUNTMP  : ', SUNTMP\n          !PRINT*, '### TCOSZ   : ', MINVAL( TCOSZ ), MAXVAL( TCOSZ )\n          !PRINT*, '### TTDAY   : ', MINVAL( TCOSZ ), MAXVAL( TCOSZ )\n\n          ! Increment elapsed time [sec]\n          NT = NT + GET_TS_CHEM()\n       ENDDO\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE OHNO3TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_alk\n!\n! !DESCRIPTION: Subroutine GET\\_ALK returns the seasalt alkalinity emitted at\n!  each timestep to sulfate\\_mod.F90 for chemistry on seasalt aerosols.\n!  (bec, 12/7/04, 11/23/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_ALK( I, J, L, ALK1, ALK2, Kt1, Kt2, Kt1N, Kt2N, Kt1L, Kt2L, &\n                      Input_Opt, State_Chm, State_Grid, State_Met, RC)\n!\n! !USES:\n!\n    USE CMN_SIZE_MOD,         ONLY : NDUST\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : GetHcoValEmis\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L     ! Lon-lat-alt indices\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: ALK1, ALK2  ! [kg]\n    REAL(fp),       INTENT(OUT)   :: Kt1, Kt2, Kt1N, Kt2N, Kt1L, Kt2L ! [s-1]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)            :: N1, N2, Kt\n    REAL(fp)            :: HGF, ALK\n    REAL(fp)            :: RAD1, RAD2, RAD3\n    REAL(fp)            :: term1a, term2a, term3a\n    REAL(fp)            :: term1b, term2b, term3b\n    REAL(fp)            :: term1aN, term2aN, term3aN\n    REAL(fp)            :: term1bN, term2bN, term3bN\n    REAL(fp)            :: const1, const2, const1N, const2N\n    REAL(fp)            :: const1L, const2L\n    REAL(fp)            :: a1, a2, b1, b2, a1N, a2N, b1N, b2N\n    REAL(fp)            :: SLA, SLC !SeaSalt concentration [kg]\n    REAL(fp), PARAMETER :: MINDAT = 1.e-20_fp\n    INTEGER             :: IRH\n    REAL(fp), PARAMETER :: gamma_SO2 = 0.11e+0_fp !from Worsnop et al.(1989)\n    REAL(fp), PARAMETER :: gamma_HNO3 = 0.5e+0_fp !from JPL [2015]\n    ! Mass accommodation coefficient alpha for HCl on liquid water surfaces, from JPL,2015\n    REAL(fp), PARAMETER :: gamma_HCl = 0.07e+0_fp\n    REAL(fp)            :: Dg    !gas phase diffusion coeff. [cm2/s]\n    REAL(fp), PARAMETER :: v = 3.0e+4_fp  !cm/s\n    REAL(fp)            :: SA1, SA2 ! SSA surface area [cm2/cm3]\n    REAL(fp)            :: R1, R2 ! SSA radius [cm]\n\n    ! HEMCO update\n    REAL(fp)            :: FEMIS\n    !INTEGER             :: NTOP\n    !LOGICAL             :: FOUND\n\n    ! Pointers\n    REAL(fp), POINTER   :: ERADIUS(:,:,:,:)\n    REAL(fp), POINTER   :: TAREA(:,:,:,:)\n\n    !=================================================================\n    ! GET_ALK begins here!\n    !=================================================================\n\n    ! Zero variables\n    KT1   = 0.e+0_fp\n    KT2   = 0.e+0_fp\n    KT1N  = 0.e+0_fp\n    KT2N  = 0.e+0_fp\n    KT1L  = 0.e+0_fp\n    KT2L  = 0.e+0_fp\n    N1    = 0.e+0_fp\n    N2    = 0.e+0_fp\n    ALK1  = 0.e+0_fp\n    ALK2  = 0.e+0_fp\n\n    ! Initialize pointers\n    ERADIUS => State_Chm%AeroRadi\n    TAREA   => State_Chm%AeroArea\n\n    !-----------------------------------------------------------------------\n    ! Get alkalinity from HEMCO. This is just the current emissions,\n    ! converted from kg/m2/s to kg. In the original seasalt code, the\n    ! alkalinity was set to the total surface flux for every layer within\n    ! the PBL, and to zero above. This seems unrealistic, and in the code\n    ! below the alkalinity (and number density) are scaled by the fraction\n    ! of PBL. This approach ensures that the total number density and\n    ! alkalinity is preserved.\n    !                                                 (ckeller, 10/31/2014)\n    !-----------------------------------------------------------------------\n    ! [kg] use this when not transporting alk\n    !ALK1  = ALK_EMIS(I,J,L,1)\n    !ALK2  = ALK_EMIS(I,J,L,2)\n\n    ! Layer in which the PBL top occurs\n    !NTOP = CEILING( State_Met%PBL_TOP_L(I,J) )\n\n    ! Do the following only if we are within the PBL\n    !IF ( L <= NTOP ) THEN\n\n       ! Fraction of the PBL spanned by box (I,J,L) [unitless]\n       FEMIS = State_Met%F_OF_PBL(I,J,L)\n\n       ! Uncomment the following line to reproduce pre-HEMCO code.\n       ! FEMIS = 1.0d0\n\n       ! Get ALK1 and ALK2 surface emissions from HEMCO. These are in\n       ! kg/m2/s.\n       !CALL GetHcoValEmis( Input_Opt, State_Grid, id_SALA, I, J, 1, FOUND, ALK1 )\n       !CALL GetHcoValEmis( Input_Opt, State_Grid, id_SALC, I, J, 1, FOUND, ALK2, AltBuffer=.true. )\n\n       ! kg/m2/s --> kg. Weight by fraction of PBL\n       ALK1 = MAX(ALK1,0.0e+0_fp) * State_Grid%Area_M2(I,J) * TS_EMIS * FEMIS\n       ALK2 = MAX(ALK2,0.0e+0_fp) * State_Grid%Area_M2(I,J) * TS_EMIS * FEMIS\n\n       ! Get number densities in # / cm3. Weight by fraction of PBL\n       !IF ( ASSOCIATED(NDENS_SALA) ) THEN\n       !   N1 = NDENS_SALA(I,J) / State_Met%AIRVOL(I,J,L) &\n       !      * 1.e-6_fp * FEMIS\n       !ENDIF\n       !IF ( ASSOCIATED(NDENS_SALC) ) THEN\n       !   N2 = NDENS_SALC(I,J) / State_Met%AIRVOL(I,J,L) &\n       !      * 1.e-6_fp * FEMIS\n       !ENDIF\n\n    !ENDIF\n\n    !-----------------------------------------------------------------------\n    ! NOTE: If you want to transport alkalinity then uncomment this section\n    ! (bec, bmy, 4/13/05)\n    !\n    !! alkalinity [v/v] to [kg] use this when transporting alk\n    !! or using Liao et al [2004] assumption of a continuous supply of\n    ! alkalinity based on Laskin et al. [2003]\n    !ALK1 = Spc(id_SALA)%Conc(I,J,L) * State_Met%AD(I,J,L)/\n    !  & ( AIRMW / State_Chm%SpcData(id_SALA)%Info%MW_g )\n    !ALK2 = Spc(id_SALC)%Conc(I,J,L) * State_Met%AD(I,J,L)/\n    !  & ( AIRMW / State_Chm%SpcData(id_SALC)%Info%MW_g )\n    !-----------------------------------------------------------------------\n\n    ! Conversion from [m-3] --> [cm-3]\n    !N1 = N_DENS(I,J,L,1) * 1.d-6\n    !N2 = N_DENS(I,J,L,2) * 1.d-6\n       !Read Alkalinity from Alkalinity tracers [v/v] to [kg], xnw 12/8/17\n    ALK1 = State_Chm%Species(id_SALAAL)%Conc(I,J,L) * State_Met%AD(I,J,L)/ &\n         ( AIRMW / State_Chm%SpcData(id_SALAAL)%Info%MW_g )\n    ALK2 = State_Chm%Species(id_SALCAL)%Conc(I,J,L) * State_Met%AD(I,J,L)/ &\n      ( AIRMW / State_Chm%SpcData(id_SALCAL)%Info%MW_g )\n    !Seasalt mass, [v/v] to [kg]\n    !SLA = State_Chm%Species(id_SALA)%Conc(I,J,L) * State_Met%AD(I,J,L)/\n    !     & ( AIRMW / State_Chm%SpcData(id_SALA)%Info%MW_g )\n    !SLC = State_Chm%Species(id_SALC)%Conc(I,J,L) * State_Met%AD(I,J,L)/\n    !     & ( AIRMW / State_Chm%SpcData(id_SALC)%Info%MW_g )\n\n\n    ALK = ALK1 + ALK2\n\n    ! If there is any alkalinity ...\n    IF ( ALK > MINDAT ) THEN\n\n       SA1= TAREA(I,J,L,4+NDUST) !in cm2/cm3\n       SA2= TAREA(I,J,L,5+NDUST) !in cm2/cm3\n\n       R1 = ERADIUS(I,J,L,4+NDUST) !in cm\n       R2 = ERADIUS(I,J,L,5+NDUST) !in cm\n\n       ! set humidity index IRH as a percent\n       !IRH = State_Met%RH(I,J,L)\n       !IRH = MAX(  1, IRH )\n       !IRH = MIN( 99, IRH )\n\n       ! Hygroscopic growth factor for sea-salt from Chin et al. (2002)\n       ! Updated (bec, bmy, 11/23/09)\n       !IF ( IRH < 100 ) HGF = 4.8e+0_fp\n       !IF ( IRH < 99  ) HGF = 2.9e+0_fp\n       !IF ( IRH < 95  ) HGF = 2.4e+0_fp\n       !IF ( IRH < 90  ) HGF = 2.0e+0_fp\n       !IF ( IRH < 80  ) HGF = 1.8e+0_fp\n       !IF ( IRH < 70  ) HGF = 1.6e+0_fp\n       !IF ( IRH < 50  ) HGF = 1.0e+0_fp\n\n       ! radius of sea-salt aerosol size bins [cm] accounting for\n       ! hygroscopic growth\n       !RAD1 = Input_Opt%SALA_REDGE_um(1) * HGF * 1.e-4_fp\n       !RAD2 = Input_Opt%SALA_REDGE_um(2) * HGF * 1.e-4_fp\n       !RAD3 = Input_Opt%SALC_REDGE_um(2) * HGF * 1.e-4_fp\n\n       !----------------------------------\n       ! SO2 uptake onto fine particles\n       !----------------------------------\n        DG = 9.45E+17_fp/State_Met%AIRNUMDEN(I,J,L) * &\n             SQRT(State_Met%T(I,J,L)) * SQRT(3.472E-2_fp +1.E+0_fp/64.e+0_fp)\n\n       ! calculate gas-to-particle rate constant for uptake of\n       ! SO2 onto fine sea-salt aerosols [Jacob, 2000] analytical solution\n       CONST1 = 4.e+0_fp/(V*GAMMA_SO2)\n       !A1     = (RAD1/DG)+CONST1\n       !B1     = (RAD2/DG)+CONST1\n       !TERM1A = ((B1**2)/2.0e+0_fp) - ((A1**2)/2.0e+0_fp)\n       !TERM2A = 2.e+0_fp*CONST1*(B1-A1)\n       !TERM3A = (CONST1**2)*LOG(B1/A1)\n       !KT1    = 4.e+0_fp*PI*N1*(DG**3)*(TERM1A - TERM2A + TERM3A)\n       ! now calculate rate of uptake as kt = [SSA]/( r/Dg + 4/(v*gamma) )\n       KT1    = SA1/((R1/DG) + CONST1)\n\n       !----------------------------------\n       ! SO2 uptake onto coarse particles\n       !----------------------------------\n\n       ! calculate gas-to-particle rate constant for uptake of\n       ! SO2 onto coarse sea-salt aerosols [Jacob, 2000] analytical solution\n       CONST2 = 4.e+0_fp/(V*GAMMA_SO2)\n       !A2     = (RAD2/DG)+CONST2\n       !B2     = (RAD3/DG)+CONST2\n       !TERM1B = ((B2**2)/2.0e+0_fp) - ((A2**2)/2.0e+0_fp)\n       !TERM2B = 2.e+0_fp*CONST2*(B2-A2)\n       !TERM3B = (CONST2**2)*LOG(B2/A2)\n       !KT2    = 4.e+0_fp*PI*N2*(DG**3)*(TERM1B - TERM2B + TERM3B)\n       KT2    = SA2/((R2/DG) + CONST2)\n       KT     = KT1 + KT2\n\n       !----------------------------------\n       ! HNO3 uptake onto fine particles\n       !----------------------------------\n       DG = 9.45E+17_fp/State_Met%AIRNUMDEN(I,J,L) * &\n            SQRT(State_Met%T(I,J,L)) * SQRT(3.472E-2_fp +1.E+0_fp/63.e+0_fp)\n\n       ! calculate gas-to-particle rate constant for uptake of\n       ! HNO3 onto fine sea-salt aerosols [Jacob, 2000] analytical solution\n       CONST1N = 4.e+0_fp/(V*GAMMA_HNO3)\n       !A1N     = (RAD1/DG)+CONST1N\n       !B1N     = (RAD2/DG)+CONST1N\n       !TERM1AN = ((B1N**2)/2.0e+0_fp) - ((A1N**2)/2.0e+0_fp)\n       !TERM2AN = 2.e+0_fp*CONST1N*(B1N-A1N)\n       !TERM3AN = (CONST1N**2)*LOG(B1N/A1N)\n       !KT1N    = 4.e+0_fp*PI*N1*(DG**3)*(TERM1AN - TERM2AN + TERM3AN)\n       KT1N    = SA1/((R1/DG) + CONST1N)\n\n       !----------------------------------\n       ! HNO3 uptake onto coarse particles\n       !----------------------------------\n\n       ! calculate gas-to-particle rate constant for uptake of\n       ! HNO3 onto coarse sea-salt aerosols [Jacob, 2000] analytical solution\n       CONST2N = 4.e+0_fp/(V*GAMMA_HNO3)\n       !A2N     = (RAD2/DG)+CONST2N\n       !B2N     = (RAD3/DG)+CONST2N\n       !TERM1BN = ((B2N**2)/2.0e+0_fp) - ((A2N**2)/2.0e+0_fp)\n       !TERM2BN = 2.e+0_fp*CONST2N*(B2N-A2N)\n       !TERM3BN = (CONST2N**2)*LOG(B2N/A2N)\n       !KT2N    = 4.e+0_fp*PI*N2*(DG**3)*(TERM1BN - TERM2BN + TERM3BN)\n       KT2N    = SA2/((R2/DG) + CONST2N)\n       !----------------------------------\n       ! HCl uptake onto fine particles\n       !----------------------------------\n       DG = 9.45E+17_fp/State_Met%AIRNUMDEN(I,J,L) * &\n            SQRT(State_Met%T(I,J,L))*SQRT(3.472E-2_fp +1.E+0_fp/36.45e+0_fp)\n       CONST1L = 4.e+0_fp/(V*GAMMA_HCl)\n       KT1L    = SA1/((R1/DG) + CONST1L)\n       !----------------------------------\n       ! HCl uptake onto coarse particles\n       !----------------------------------\n       CONST2L = 4.e+0_fp/(V*GAMMA_HCl)\n       KT2L    = SA2/((R2/DG) + CONST2L)\n\n    ELSE\n\n       ! If no alkalinity, set everything to zero\n       ALK1 = 0.e+0_fp\n       ALK2 = 0.e+0_fp\n       KT1  = 0.e+0_fp\n       KT1N = 0.e+0_fp\n       KT2  = 0.e+0_fp\n       KT2N = 0.e+0_fp\n\n    ENDIF\n\n    ! Free pointers\n    NULLIFY(  ERADIUS, TAREA )\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE GET_ALK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_sulfate\n!\n! !DESCRIPTION: Subroutine INIT\\_SULFATE initializes and zeros all allocatable\n!  arrays declared in \"sulfate\\_mod.F90\" (bmy, 6/2/00, 10/15/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_SULFATE( Input_Opt,  State_Chm, State_Diag,                &\n                           State_Grid, State_Met, RC                        )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : NDSTBIN\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(IN)  :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  02 Jun 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J, N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! INIT_SULFATE begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Init_Sulfate (in module GeosCore/sulfate_mod.F90)'\n\n    ! Exit immediately if this is a dry-run simulation\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !=================================================================\n    ! Error check\n    !=================================================================\n    IF ( ( .not. Input_Opt%ITS_A_FULLCHEM_SIM )   .and. &\n         ( .not. Input_Opt%ITS_AN_AEROSOL_SIM ) ) THEN\n       ErrMsg = 'Invalid simulation for sulfate_mod!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! Allocate arrays\n    !=================================================================\n    ALLOCATE( SSTEMP( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:SSTEMP', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SSTEMP = 0e+0_fp\n\n    ALLOCATE( DMSo( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:DMSo', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    DMSo = 0e+0_fp\n\n    ALLOCATE( PMSA_DMS( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PMSA_DMS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PMSA_DMS = 0e+0_fp\n\n    ALLOCATE( PSO2_DMS( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO2_DMS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO2_DMS = 0e+0_fp\n\n    ALLOCATE( PSO4_SO2( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_SO2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_SO2 = 0e+0_fp\n\n    ALLOCATE( PHMS_SO2( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PHMS_SO2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PHMS_SO2 = 0e+0_fp\n\n    ALLOCATE( PSO2_HMS( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO2_HMS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO2_HMS = 0e+0_fp\n\n    ALLOCATE( PSO4_HMS( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_HMS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_HMS = 0e+0_fp\n\n    ALLOCATE( PSO4_ss( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_ss', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_ss = 0e+0_fp\n\n    ALLOCATE( PNITs( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PNITs', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PNITs = 0e+0_fp\n    !xnw\n    ALLOCATE( PNIT( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F:PNIT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PNIT = 0e+0_fp\n    !xnw\n    ALLOCATE( PACL( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F:PACL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PACL = 0e+0_fp\n    !xnw\n    ALLOCATE( PCCL( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F:PCCL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PCCL = 0e+0_fp\n\n    !tdf\n    ALLOCATE( PSO4_dust( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev, &\n                         NDSTBIN ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_dust', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_dust = 0e+0_fp\n\n    !tdf\n    ALLOCATE( PNIT_dust( State_Grid%NX, State_Grid%NY, State_Met%MaxChemLev, &\n                         NDSTBIN ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PNIT_dust', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PNIT_dust = 0e+0_fp\n\n    ALLOCATE( SOx_SCALE( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:SOx_SCALE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SOx_SCALE = 0e+0_fp\n\n#ifdef APM\n    ! Allocate for APM microphysics\n    ALLOCATE( PSO4_SO2APM( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_SO2APM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_SO2APM = 0e+0_fp\n    ALLOCATE( PSO4_SO2SEA( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n                           STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_SO2SEA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_SO2SEA = 0e+0_fp\n#endif\n\n#ifdef TOMAS\n    ! Allocate for TOMAS microphysics\n    ALLOCATE( PSO4_SO2AQ( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:PSO4_SO2aq', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    PSO4_SO2AQ = 0e+0_fp\n\n    ALLOCATE( SO4_ANTH( State_Grid%NX, State_Grid%NY, State_Grid%NZ ), &\n              STAT=RC )\n    CALL GC_CheckVar( 'sulfate_mod.F90:SO4_ANTH', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    SO4_ANTH = 0e+0_fp\n#endif\n\n    !=================================================================\n    ! Only initialize the following for offline aerosol simulations\n    !=================================================================\n    IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       ALLOCATE( TCOSZ( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       CALL GC_CheckVar( 'sulfate_mod.F90:TCOSZ', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       TCOSZ = 0e+0_fp\n\n       ALLOCATE( TTDAY( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       CALL GC_CheckVar( 'sulfate_mod.F90:TTDAY', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       TTDAY = 0e+0_fp\n\n       ALLOCATE( COSZM( State_Grid%NX, State_Grid%NY ), STAT=RC )\n       CALL GC_CheckVar( 'sulfate_mod.F90:COSZM', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       COSZM = 0e+0_fp\n\n       ALLOCATE(GLOBAL_OH(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=RC)\n       CALL GC_CheckVar( 'sulfate_mod.F90:GLOBAL_OH', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       GLOBAL_OH = 0e+0_fp\n\n       ALLOCATE(GLOBAL_HNO3(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=RC)\n       CALL GC_CheckVar( 'sulfate_mod.F90:GLOBAL_HNO3', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       GLOBAL_HNO3 = 0e+0_fp\n\n       ALLOCATE(GLOBAL_HCl(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=RC)\n       CALL GC_CheckVar( 'sulfate_mod.F90:GLOBAL_HCl', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       GLOBAL_HCl = 0e+0_fp\n\n       ALLOCATE(GLOBAL_HCOOH(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=RC)\n       CALL GC_CheckVar( 'sulfate_mod.F90:GLOBAL_HCOOH', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       GLOBAL_HCOOH = 0e+0_fp\n\n       ALLOCATE(GLOBAL_ACTA(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=RC)\n       CALL GC_CheckVar( 'sulfate_mod.F90:GLOBAL_ACTA', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       GLOBAL_ACTA = 0e+0_fp\n    ENDIF\n\n    !================================================================\n    ! Find drydep species\n    !=================================================================\n\n    ! Define flags for species ID's\n    ! 7 dust bins (D. Zhang, 5 Mar 2025)\n    id_AS    = Ind_('AS'       )\n    id_AHS   = Ind_('AHS'      )\n    id_AW01  = Ind_('AW01'     )\n    id_DALbin1  = Ind_('DSTALbin1'   )\n    id_DALbin2  = Ind_('DSTALbin2'   )\n    id_DALbin3  = Ind_('DSTALbin3'   )\n    id_DALbin4  = Ind_('DSTALbin4'   )\n    id_DALbin5  = Ind_('DSTALbin5'   )\n    id_DALbin6  = Ind_('DSTALbin6'   )\n    id_DALbin7  = Ind_('DSTALbin7'   )\n    id_DMS   = Ind_('DMS'      )\n    id_DSTbin1  = Ind_('DSTbin1'     )\n    id_DSTbin2  = Ind_('DSTbin2'     )\n    id_DSTbin3  = Ind_('DSTbin3'     )\n    id_DSTbin4  = Ind_('DSTbin4'     )\n    id_DSTbin5  = Ind_('DSTbin5'     )\n    id_DSTbin6  = Ind_('DSTbin6'     )\n    id_DSTbin7  = Ind_('DSTbin7'     )\n    id_H2O2  = Ind_('H2O2'     )\n    id_HNO3  = Ind_('HNO3'     )\n    id_HOBr  = Ind_('HOBr'     )\n    id_HOCl  = Ind_('HOCl'     )\n    id_LET   = Ind_('LET'      )\n    id_MSA   = Ind_('MSA'      )\n    id_NH3   = Ind_('NH3'      )\n    id_NH4   = Ind_('NH4'      )\n    id_NH4aq = Ind_('NH4aq'    )\n    id_NIT   = Ind_('NIT'      )\n    id_NITdbin1 = Ind_('NITDbin1'    )\n    id_NITdbin2 = Ind_('NITDbin2'    )\n    id_NITdbin3 = Ind_('NITDbin3'    )\n    id_NITdbin4 = Ind_('NITDbin4'    )\n    id_NITdbin5 = Ind_('NITDbin5'    )\n    id_NITdbin6 = Ind_('NITDbin6'    )\n    id_NITdbin7 = Ind_('NITDbin7'    )\n    id_NITs  = Ind_('NITs'     )\n    id_NK01  = Ind_('NK01'     )\n    id_NK05  = Ind_('NK05'     )\n    id_NK08  = Ind_('NK08'     )\n    id_NK10  = Ind_('NK10'     )\n    id_NK20  = Ind_('NK20'     )\n    id_NO3   = Ind_('NO3'      )\n    id_O3    = Ind_('O3'       )\n    id_OH    = Ind_('OH'       )\n    id_pFe   = Ind_('pFe'      )\n    id_PSO4  = Ind_('PSO4'     )\n    id_SALA  = Ind_('SALA'     )\n    id_SALC  = Ind_('SALC'     )\n    id_SF01  = Ind_('SF01'     )\n    id_SO2   = Ind_('SO2'      )\n    id_SO4   = Ind_('SO4'      )\n    id_SO4aq = Ind_('SO4aq'    )\n    id_SO4dbin1 = Ind_('SO4Dbin1'    )\n    id_SO4dbin2 = Ind_('SO4Dbin2'    )\n    id_SO4dbin3 = Ind_('SO4Dbin3'    )\n    id_SO4dbin4 = Ind_('SO4Dbin4'    )\n    id_SO4dbin5 = Ind_('SO4Dbin5'    )\n    id_SO4dbin6 = Ind_('SO4Dbin6'    )\n    id_SO4dbin7 = Ind_('SO4Dbin7'    )\n    id_SO4s  = Ind_('SO4s'     )\n    id_SALACL= Ind_('SALACL'   )\n    id_HCL   = Ind_('HCL'     )\n    !id_NH4s  = Ind_('NH4s'     )\n    id_SALCCL= Ind_('SALCCL'   )\n    id_SALAAL= Ind_('SALAAL'   )\n    id_SALCAL= Ind_('SALCAL'   )\n    id_SO4H1 = Ind_('SO4H1'    )\n    id_SO4H2 = Ind_('SO4H2'    )\n    id_SO4H3 = Ind_('SO4H3'    )\n    id_SO4H4 = Ind_('SO4H4'    )\n    id_HCOOH = Ind_('HCOOH'    ) ! (jmm, 12/3/18)\n    id_ACTA  = Ind_('ACTA'     ) ! (jmm, 12/3/18)\n    id_CH2O  = Ind_('CH2O'     ) ! (jmm, 06/15/18)\n    id_HMS   = Ind_('HMS'      ) ! (jmm, 06/15/18)\n\n    ! Define flags for species drydep indices\n    DRYNITs  = Ind_('NITs', 'D')\n    DRYNITdbin1 = Ind_('NITDbin1','D')\n    DRYNITdbin2 = Ind_('NITDbin2','D')\n    DRYNITdbin3 = Ind_('NITDbin3','D')\n    DRYNITdbin4 = Ind_('NITDbin4','D')\n    DRYNITdbin5 = Ind_('NITDbin5','D')\n    DRYNITdbin6 = Ind_('NITDbin6','D')\n    DRYNITdbin7 = Ind_('NITDbin7','D')\n    DRYSO4s  = Ind_('SO4s', 'D')\n    DRYSO4dbin1 = Ind_('SO4dbin1','D')\n    DRYSO4dbin2 = Ind_('SO4dbin2','D')\n    DRYSO4dbin3 = Ind_('SO4dbin3','D')\n    DRYSO4dbin4 = Ind_('SO4dbin4','D')\n    DRYSO4dbin5 = Ind_('SO4dbin5','D')\n    DRYSO4dbin6 = Ind_('SO4dbin6','D')\n    DRYSO4dbin7 = Ind_('SO4dbin7','D')\n\n    ! Error check the dust uptake species\n    IF ( Input_Opt%LDSTUP ) THEN\n       IF ( id_DALbin1  < 0 .or. id_DALbin2  < 0 .or. id_DALbin3  < 0   .or. &\n            id_DALbin4  < 0 .or. id_DALbin5  < 0 .or. id_DALbin6  < 0   .or. id_DALbin7  < 0 .or. &\n            id_NITdbin1 < 0 .or. id_NITdbin2 < 0 .or. id_NITdbin3 < 0   .or. &\n            id_NITdbin4 < 0 .or. id_NITdbin5 < 0 .or. id_NITdbin6 < 0   .or. id_NITdbin7 < 0 .or. &\n            id_SO4dbin1 < 0 .or. id_SO4dbin2 < 0 .or. id_SO4dbin3 < 0   .or. &\n            id_SO4dbin4 < 0 .or. id_SO4dbin5 < 0 .or. id_SO4dbin6 < 0   .or. id_SO4dbin7 < 0 ) THEN\n          ErrMsg =' Dust uptake tracers are undefined!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE INIT_SULFATE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_sulfate\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_SULFATE deallocates all previously\n!  allocated arrays for sulfate emissions -- call at the end of the run\n!  (bmy, 6/1/00, 10/15/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_SULFATE()\n!\n! !REVISION HISTORY:\n!  01 Jun 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( DMSo        ) ) DEALLOCATE( DMSo        )\n    IF ( ALLOCATED( PMSA_DMS    ) ) DEALLOCATE( PMSA_DMS    )\n    IF ( ALLOCATED( PNITs       ) ) DEALLOCATE( PNITs       )\n    IF ( ALLOCATED( PNIT        ) ) DEALLOCATE( PNIT        )\n    IF ( ALLOCATED( PACL        ) ) DEALLOCATE( PACL        )\n    IF ( ALLOCATED( PCCL        ) ) DEALLOCATE( PCCL        )\n    IF ( ALLOCATED( PSO2_DMS    ) ) DEALLOCATE( PSO2_DMS    )\n    IF ( ALLOCATED( PSO4_SO2    ) ) DEALLOCATE( PSO4_SO2    )\n    IF ( ALLOCATED( PHMS_SO2    ) ) DEALLOCATE( PHMS_SO2    )\n    IF ( ALLOCATED( PSO2_HMS    ) ) DEALLOCATE( PSO2_HMS    )\n    IF ( ALLOCATED( PSO4_HMS    ) ) DEALLOCATE( PSO4_HMS    )\n#ifdef APM\n    IF ( ALLOCATED( PSO4_SO2APM ) ) DEALLOCATE( PSO4_SO2APM )\n    IF ( ALLOCATED( PSO4_SO2SEA ) ) DEALLOCATE( PSO4_SO2SEA )\n#endif\n#ifdef TOMAS\n    IF ( ALLOCATED( PSO4_SO2AQ  ) ) DEALLOCATE( PSO4_SO2AQ  )\n    IF ( ALLOCATED( SO4_ANTH    ))  DEALLOCATE( SO4_ANTH    )\n#endif\n    IF ( ALLOCATED( PSO4_ss     ) ) DEALLOCATE( PSO4_ss     )\n    IF ( ALLOCATED( PSO4_dust   ) ) DEALLOCATE( PSO4_dust   )\n    IF ( ALLOCATED( PNIT_dust   ) ) DEALLOCATE( PNIT_dust   )\n    IF ( ALLOCATED( SOx_SCALE   ) ) DEALLOCATE( SOx_SCALE   )\n    IF ( ALLOCATED( SSTEMP      ) ) DEALLOCATE( SSTEMP      )\n    IF ( ALLOCATED( TCOSZ       ) ) DEALLOCATE( TCOSZ       )\n    IF ( ALLOCATED( TTDAY       ) ) DEALLOCATE( TTDAY       )\n    IF ( ALLOCATED( COSZM       ) ) DEALLOCATE( COSZM       )\n    IF ( ALLOCATED( GLOBAL_OH   ) ) DEALLOCATE( GLOBAL_OH   )\n    IF ( ALLOCATED( GLOBAL_HNO3 ) ) DEALLOCATE( GLOBAL_HNO3 )\n    IF ( ALLOCATED( GLOBAL_HCl  ) ) DEALLOCATE( GLOBAL_HCl  )\n    IF ( ALLOCATED( GLOBAL_HCOOH) ) DEALLOCATE( GLOBAL_HCOOH)\n    IF ( ALLOCATED( GLOBAL_ACTA ) ) DEALLOCATE( GLOBAL_ACTA )\n\n    ! Free pointers\n    IF ( ASSOCIATED( NDENS_SALA ) ) NDENS_SALA => NULL()\n    IF ( ASSOCIATED( NDENS_SALC ) ) NDENS_SALC => NULL()\n\n  END SUBROUTINE CLEANUP_SULFATE\n!EOC\n#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: wet_settlingbin\n!\n! !DESCRIPTION: Subroutine WET\\_SETTLINGBIN computes the dry settling of\n!  aerosol tracers. Modified for APM simulation. (G. Luo)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WET_SETTLINGBIN( Input_Opt,  State_Chm, State_Diag,             &\n                              State_Grid, State_Met, RC                     )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Met_Mod,  ONLY : MetState\n    USE PRESSURE_MOD,   ONLY : GET_PCENTER\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n    USE PhysConstants\n    USE APM_INIT_MOD,   ONLY : APMIDS\n    USE APM_INIT_MOD,   ONLY : NCTSO4,NSO4\n    USE APM_INIT_MOD,   ONLY : RDRY\n    USE APM_DRIV_MOD,   ONLY : GFTOT3D,DENWET3D\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Local variables\n    INTEGER               :: I, J, L, N, K\n    INTEGER               :: IDTEMP1, IDTEMP2\n    REAL*8                :: DT_SETTL, DELZ,  DELZ1\n    REAL*8                :: REFF,     DEN,   CONST\n    REAL*8                :: NUM,      LAMDA, FLUX\n    REAL*8                :: AREA_CM2, TC0(State_Grid%NZ)\n    REAL*8                :: TOT1,     TOT2\n\n    ! Pressure in Kpa 1 mb = 100 pa = 0.1 kPa\n    REAL*8                :: P\n\n    ! Diameter of aerosol [um]\n    REAL*8                :: Dp\n\n    ! Pressure * DP\n    REAL*8                :: PDp\n\n    ! Temperature (K)\n    REAL*8                :: TEMP\n\n    ! Slip correction factor\n    REAL*8                :: Slip\n\n    ! Viscosity of air (Pa s)\n    REAL*8                :: Visc\n\n    ! Settling velocity of particle (m/s)\n    REAL*8                :: VTS(State_Grid%NZ)\n    REAL*8                :: MASS(State_Grid%NZ)\n    REAL*8                :: OLD(State_Grid%NZ,NCTSO4+2)\n\n    ! Make a pointer to the tracer array\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! WET_SETTLINGBIN begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        = GC_SUCCESS\n\n    ! Point to Spc\n    Spc => State_Chm%Species\n\n    ! Aerosol settling timestep [s]\n    DT_SETTL = GET_TS_CHEM()\n\n    IDTEMP1 = APMIDS%id_SO4BIN1\n    IDTEMP2 = APMIDS%id_SO4BIN1+NSO4-1\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I,     J,     L,    N,    K,    DEN,  REFF               )&\n    !$OMP PRIVATE( DP,    CONST, VTS,  TEMP, P,    PDP,  SLIP               )&\n    !$OMP PRIVATE( MASS,  OLD,   VISC, TC0,  DELZ, DELZ1                    )&\n    !$OMP SCHEDULE( DYNAMIC, 1                                              )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero private loop variables\n       CONST = 0.0_fp\n       DELZ  = 0.0_fp\n       DELZ1 = 0.0_fp\n       DEN   = 0.0_fp\n       DP    = 0.0_fp\n       MASS  = 0.0_fp\n       OLD   = 0.0_fp\n       P     = 0.0_fp\n       PDP   = 0.0_fp\n       REFF  = 0.0_fp\n       SLIP  = 0.0_fp\n       TEMP  = 0.0_fp\n       TC0   = 0.0_fp\n       VISC  = 0.0_fp\n       VTS   = 0.0_fp\n       \n       DO L = 1, State_Grid%NZ\n          !MASS(L) = 0.0d0\n          DO N = IDTEMP1, IDTEMP2\n             MASS(L) = MASS(L) + Spc(N)%Conc(I,J,L)\n          ENDDO\n          DO K = 1, NCTSO4\n             OLD(L,K) = Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L)\n             Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L) = 0.D0\n          ENDDO\n          OLD(L,NCTSO4+1) = Spc(APMIDS%id_NIT)%Conc(I,J,L)\n          OLD(L,NCTSO4+2) = Spc(APMIDS%id_NH4)%Conc(I,J,L)\n          Spc(APMIDS%id_NIT)%Conc(I,J,L) = 0.D0\n          Spc(APMIDS%id_NH4)%Conc(I,J,L) = 0.D0\n       ENDDO\n\n       ! Loop over aerosol bins\n       DO N = 1, NSO4\n\n          DO L = 1, State_Grid%NZ\n\n             TC0(L) = Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L)\n\n             IF(TC0(L)>1.D-30)THEN\n                ! Initialize\n                DEN   = DENWET3D(I,J,L,1)*1.d3\n                REFF  = RDRY(N)*GFTOT3D(I,J,L,1)\n                DP    = 2D0 * REFF * 1.D6 ! Dp [um] = particle diameter\n                CONST = 2D0 * DEN * REFF**2 * g0 / 9D0\n\n                ! Get P [kPa], T [K], and P*DP\n                P    = GET_PCENTER(I,J,L) * 0.1d0\n                TEMP = State_Met%T(I,J,L)\n                PDP  = P * DP\n\n                ! Slip correction factor as function of (P*dp)\n                SLIP = 1d0 + ( 15.60d0 + 7.0d0 * EXP(-0.059d0*PDP) ) / PDP\n\n                ! Viscosity [Pa s] of air as a function of temp (K)\n                VISC = 1.458d-6 * (TEMP)**(1.5d0) / ( TEMP + 110.4d0 )\n\n                ! Settling velocity [m/s]\n                VTS(L) = CONST * SLIP / VISC\n             ELSE\n                VTS(L) = 0.D0\n             ENDIF\n\n          ENDDO\n\n          ! Method is to solve bidiagonal matrix\n          ! which is implicit and first order accurate in Z\n          L    = State_Grid%NZ\n          IF(MASS(L)>1.D-30)THEN\n             DELZ = State_Met%BXHEIGHT(I,J,L)\n             Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L) =                &\n                  Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L) /           &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n\n             DO K = 1, NCTSO4\n                Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L) =               &\n                     Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L)+           &\n                     OLD(L,K)*TC0(L)/MASS(L) /                   &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n             ENDDO\n             Spc(APMIDS%id_NIT)%Conc(I,J,L) =                          &\n                  Spc(APMIDS%id_NIT)%Conc(I,J,L)+                      &\n                  OLD(L,NCTSO4+1)*TC0(L)/MASS(L) /               &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n             Spc(APMIDS%id_NH4)%Conc(I,J,L) =                          &\n                  Spc(APMIDS%id_NH4)%Conc(I,J,L)+                      &\n                  OLD(L,NCTSO4+2)*TC0(L)/MASS(L) /               &\n                  ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )\n          ENDIF\n\n          DO L = State_Grid%NZ-1, 1, -1\n             IF((MASS(L)*MASS(L+1))>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L) = 1.e+0_fp /  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * (Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L)       &\n                     + DT_SETTL * VTS(L+1) / DELZ1  * TC0(L+1) )\n\n                DO K = 1, NCTSO4\n                   Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L) =            &\n                        Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L)+        &\n                        1.e+0_fp /                               &\n                        ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )  &\n                        * (OLD(L,K)*TC0(L)/MASS(L)               &\n                        + DT_SETTL * VTS(L+1) / DELZ1            &\n                        * OLD(L+1,K)*TC0(L+1)/MASS(L+1) )\n                ENDDO\n                Spc(APMIDS%id_NIT)%Conc(I,J,L) =                       &\n                     Spc(APMIDS%id_NIT)%Conc(I,J,L)+                   &\n                     1.e+0_fp /                                  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * (OLD(L,NCTSO4+1)*TC0(L)/MASS(L)           &\n                     + DT_SETTL * VTS(L+1) / DELZ1               &\n                     * OLD(L+1,NCTSO4+1)*TC0(L+1)/MASS(L+1) )\n                Spc(APMIDS%id_NH4)%Conc(I,J,L) =                       &\n                     Spc(APMIDS%id_NH4)%Conc(I,J,L)+                   &\n                     1.e+0_fp /                                  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * (OLD(L,NCTSO4+2)*TC0(L)/MASS(L)           &\n                     + DT_SETTL * VTS(L+1) / DELZ1               &\n                     * OLD(L+1,NCTSO4+2)*TC0(L+1)/MASS(L+1) )\n\n             ELSE IF(MASS(L)>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L) = 1.e+0_fp /  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * (Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L)       &\n                     + DT_SETTL * VTS(L+1) / DELZ1  * TC0(L+1) )\n\n                DO K = 1, NCTSO4\n                   Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L) =            &\n                        Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L)+        &\n                        1.e+0_fp /                               &\n                        ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )  &\n                        * OLD(L,K)*TC0(L)/MASS(L)\n                ENDDO\n                Spc(APMIDS%id_NIT)%Conc(I,J,L) =                       &\n                     Spc(APMIDS%id_NIT)%Conc(I,J,L)+                   &\n                     1.e+0_fp /                                  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * OLD(L,NCTSO4+1)*TC0(L)/MASS(L)\n                Spc(APMIDS%id_NH4)%Conc(I,J,L) =                       &\n                     Spc(APMIDS%id_NH4)%Conc(I,J,L)+                   &\n                     1.e+0_fp /                                  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * OLD(L,NCTSO4+2)*TC0(L)/MASS(L)\n\n             ELSE IF(MASS(L+1)>1.D-30)THEN\n                DELZ  = State_Met%BXHEIGHT(I,J,L)\n                DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n                Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L) = 1.e+0_fp /  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * (Spc(APMIDS%id_SO4BIN1+N-1)%Conc(I,J,L)       &\n                     + DT_SETTL * VTS(L+1) / DELZ1 * TC0(L+1) )\n\n                DO K = 1, NCTSO4\n                   Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L) =            &\n                        Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L)+        &\n                        1.e+0_fp /                               &\n                        ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )  &\n                        * DT_SETTL * VTS(L+1) / DELZ1            &\n                        * OLD(L+1,K)*TC0(L+1)/MASS(L+1)\n                ENDDO\n                Spc(APMIDS%id_NIT)%Conc(I,J,L) =                       &\n                     Spc(APMIDS%id_NIT)%Conc(I,J,L)+                   &\n                     1.e+0_fp /                                  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * DT_SETTL * VTS(L+1) / DELZ1               &\n                     * OLD(L+1,NCTSO4+1)*TC0(L+1)/MASS(L+1)\n                Spc(APMIDS%id_NH4)%Conc(I,J,L) =                       &\n                     Spc(APMIDS%id_NH4)%Conc(I,J,L)+                   &\n                     1.e+0_fp /                                  &\n                     ( 1.e+0_fp + DT_SETTL * VTS(L) / DELZ )     &\n                     * DT_SETTL * VTS(L+1) / DELZ1               &\n                     * OLD(L+1,NCTSO4+2)*TC0(L+1)/MASS(L+1)\n\n             ENDIF\n\n          ENDDO\n\n       ENDDO\n\n       DO L = 1, State_Grid%NZ\n          DO K = 1, NCTSO4\n             Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L) = &\n                  MAX(1.d-30,Spc(APMIDS%id_CTSO4+K-1)%Conc(I,J,L))\n          ENDDO\n          Spc(APMIDS%id_NIT)%Conc(I,J,L) = MAX(1.d-30,Spc(APMIDS%id_NIT)%Conc(I,J,L))\n          Spc(APMIDS%id_NH4)%Conc(I,J,L) = MAX(1.d-30,Spc(APMIDS%id_NH4)%Conc(I,J,L))\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Clear the pointer\n    NULLIFY( Spc )\n\n  END SUBROUTINE WET_SETTLINGBIN\n#endif\nEND MODULE SULFATE_MOD\n"
  },
  {
    "path": "GeosCore/tagged_o3_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: tagged_o3_mod.F90\n!\n! !DESCRIPTION: Contains variables and routines to perform a tagged O3\n!  simulation.  P(O3) and L(O3) rates need to be archived from a full\n!  chemistry simulation (via the \"ProdLoss\" History diagnostics collection).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Tagged_O3_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Chem_Tagged_O3\n  PUBLIC  :: Init_Tagged_O3\n!\n! !REMARKS:\n!  THE EXTENDED TAGGED O3 SIMULATION (DEFAULT) HAS THESE ADVECTED SPECIES\n!  ----------------------------------------------------------------------------\n!  O3      : Total O3\n!  O3Strat : O3 from the Stratosphere      (tropopause - atm top   )\n!  O3ut    : O3 produced in Upper Trop     (350 hPa    - tropopause)\n!  O3mt    : O3 produced in Middle Trop    (PBL top    - 350 hPa   )\n!  O3row   : O3 produced in Rest of World  (surface    - PBL top   )\n!  O3pcbl  : O3 produced in Pacific BL     (surface    - PBL top   )\n!  O3nabl  : O3 produced in N. American BL (surface    - PBL top   )\n!  O3atbl  : O3 produced in Atlantic BL    (surface    - PBL top   )\n!  O3eubl  : O3 produced in European BL    (surface    - PBL top   )\n!  O3afbl  : O3 produced in N. African BL  (surface    - PBL top   )\n!  O3asbl  : O3 produced in Asian          (surface    - PBL top   )\n!  O3init  : O3 initial conditions         (all levels             )\n!  O3usa   : O3 produced over the USA      (all levels             )\n!                                                                             .\n!  THE SIMPLE TAGGED O3 SIMULATION HAS THESE ADVECTED SPECIES:\n!  -----------------------------------------------------------------------------\n!  O3      : Total O3\n!  O3Strat : Stratospheric O3\n!                                                                             .\n!  NOTES:\n!  ----------------------------------------------------------------------------\n!  When starting a long tagged O3 simulation, we recommend that you use\n!  a restart file where all species concentrations are set to zero.\n!  Then spin up for as many years as it takes to get into steady-state.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Species ID's\n  INTEGER  :: id_O3,      id_O3Strat,  id_O3ut,    id_O3mt,    id_O3row\n  INTEGER  :: id_O3pcbl,  id_O3nabl,   id_O3atbl,  id_O3eubl,  id_O3afbl\n  INTEGER  :: id_O3asbl,  id_O3init,   id_O3usa\n\n  ! Global variables\n  REAL(fp) :: molcm3_to_kgm3   ! Conversion factor [molec/cm3] -> [kg/m3]\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TagSpcId\n!\n! !DESCRIPTION: Returns the tagged species ID corresponding to the given\n!  (X,Y) horizontal position and level L in the atmosphere.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION TagSpcId( X, Y, L, InTrop ) RESULT( tagId )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X        ! Longitude value [deg]\n    REAL(fp), INTENT(IN) :: Y        ! Latitude  value [deg]\n    INTEGER,  INTENT(IN) :: L        ! Level index [1]\n    LOGICAL,  INTENT(IN) :: InTrop   ! =T if we are in the troposphere\n                                     ! =F otherwise\n!\n! !RETURN VALUE:\n!\n    INTEGER              :: tagId    ! # of the region\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL  :: Its_In_TROP, Its_In_PBL, Its_In_MT\n    LOGICAL  :: Its_In_UT,   Its_In_NH,  Its_In_ATL\n    LOGICAL  :: Its_In_PAC,  Its_In_AS,  Its_In_EUR\n    LOGICAL  :: Its_In_NAM,  Its_In_NAF, Its_In_USA\n    INTEGER  :: PblTop,      MtTop\n\n    !========================================================================\n    ! Region begins here!\n    !========================================================================\n\n    ! Return 0 by default\n    tagId = 0\n\n    ! Return if we are not in the troposphere\n    IF ( .not. InTrop ) RETURN\n\n    !========================================================================\n    ! Set up logicals that define each of the extended tagged regions\n    !========================================================================\n\n    ! PBLTOP is the model level at ~ 750 hPa\n    ! MTTOP  is the model level at ~ 350 hPa\n    PblTop     = 16\n    MtTop      = 27\n\n    ! Define flags for various geographic & altitude regions\n    Its_In_PBL = ( L <= PblTop                                              )\n    Its_In_MT  = ( L >  PblTop  .and. L <= MtTop                            )\n    Its_In_UT  = ( L >  MtTop   .and. InTrop                                )\n    Its_In_NH  = ( Y >=   0.0                                               )\n    Its_In_EUR = ( Y >=  36.0   .and. ( X >  -15.0 .and. X <=   55.0 )      )\n    Its_In_NAM = ( Y >=  15.0   .and. ( X > -127.5 .and. X <=  -65.0 )      )\n    Its_In_AS  = ( Y >= -10.0   .and. ( X >   55.0 .and. X <=  145.0 )      )\n    Its_In_ATL = ( Its_In_NH    .and. ( X >  -65.0 .and. X <=  -15.0 )      )\n    Its_In_PAC = ( Its_In_NH    .and. ( X >  145.0  .or. X <= -127.5 )      )\n    Its_In_NAF = ( ( X >= -15.0 .and. X <=  55.0 ) .and.                     &\n                   ( Y >=   0.0 .and. Y <   36.0 )                          )\n\n    !========================================================================\n    ! Return the tagged species ID corresponding to the given location\n    !========================================================================\n    IF ( Its_In_UT ) THEN\n       tagId = id_O3ut                              ! Upper trop\n\n    ELSE IF ( Its_In_MT ) THEN\n       tagId = id_O3mt                              ! Middle trop\n\n    ELSE IF ( Its_In_PAC .and. Its_In_PBL ) THEN\n       tagId = id_O3pcbl                            ! Pacific PBL\n\n    ELSE IF ( Its_In_NAM .and. Its_In_PBL ) THEN\n       tagId = id_O3nabl                            ! N. Am. PBL\n\n    ELSE IF ( Its_In_ATL .and. Its_In_PBL ) THEN\n       tagId = id_O3atbl                            ! Atlantic PBL\n\n    ELSE IF ( Its_In_EUR .and. Its_In_PBL ) THEN\n       tagId = id_O3eubl                            ! European PBL\n\n    ELSE IF ( Its_In_NAF .and. Its_In_PBL ) THEN\n       tagId = id_O3afbl                            ! N. African PBL\n\n    ELSE IF ( Its_In_AS  .and. Its_In_PBL ) THEN\n       tagId = id_O3asbl                            ! Asian PBL\n\n    ELSE\n       tagId = id_O3row                             ! Rest of world\n\n    ENDIF\n\n  END FUNCTION TagSpcId\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConUS\n!\n! !DESCRIPTION: Indicates if a lon/lat position is over the Continental USA.\n!  If so, returns the species ID of the USA tagged species (id_O3usa)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ConUS( X, Y, inTrop ) RESULT( isConUS )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X         ! Longitude value [deg]\n    REAL(fp), INTENT(IN) :: Y         ! Latitude value [deg]\n    LOGICAL,  INTENT(IN) :: inTrop    ! =T if we are in the troposphere\n                                      ! =F otherwise\n!\n! !RETURN VALUE:\n!\n    INTEGER              :: isConUS   ! = 1 if over Continental US\n!                                     ! = 0 otherwise\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Return 0 by default\n    isConUS = 0\n\n    ! Exit if we are not in the tropopshere\n    IF ( .not. InTrop ) RETURN\n\n    ! If we are over CONUS, return the ID of the O3usa species\n    IF ( ( X > -127.5_fp .and. X <= -65.0_fp )   .and. &\n         ( Y >   22.0_fp .and. Y <=  50.0_fp ) ) THEN\n       isConUS = id_O3usa\n    ENDIF\n\n  END FUNCTION ConUS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: chem_tagged_o3\n!\n! !DESCRIPTION: Performs chemistry (by applying archived prod and loss rates)\n!  for several O3 species tagged by geographic and altitude regions.  This\n!  is useful for attributing where O3 is being produced in the atmosphere.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Chem_Tagged_O3( Input_Opt,  State_Chm, State_Diag,              &\n                             State_Grid, State_Met, RC                      )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Hco_Utilities_GC_Mod, ONLY : Hco_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Species_Mod,          ONLY : SpcConc\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE Time_Mod,             ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I,      J,      L,        N\n    REAL(fp)           :: dtChem, LO3_kg, LO3_kgps, PO3_kg, PO3_kgps\n\n    ! Arrays\n    INTEGER            :: GeoMask(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    INTEGER            :: UsaMask(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp)           :: PO3_hco(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp)           :: LO3_hco(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! Strings\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Chem_Tagged_O3 begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS            ! Success or failure\n    Spc     => State_Chm%Species     ! Ptr to State_\n    geoMask = 0                      ! Geo-tagged O3 species numbers\n    usaMask = 0                      ! Mask for CONUS-produced O3\n    PO3_hco =  0.0_fp                ! Array for P(O3) from HEMCO\n    LO3_hco =  0.0_fp                ! Array for L(O3) from HEMCO\n    dtChem  =  Get_Ts_Chem()         ! Chemistry timestep [s]\n    errMsg  =  ''\n    thisLoc =  &\n     ' -> at Chem_Tagged_O3 (in module GeosCore/tagged_o3_mod.F90)'\n\n    ! Zero diagnostic archival arrays to make sure that we don't have any\n    ! leftover values from the last timestep near the top of the chemgrid\n    IF ( State_Diag%Archive_Loss ) State_Diag%Loss = 0.0_f4\n    IF ( State_Diag%Archive_Prod ) State_Diag%Prod = 0.0_f4\n\n    !========================================================================\n    ! Get production and loss frequencies from HEMCO. These are read\n    ! from the \"ProdLoss\" History collection (archived from a fullchem\n    ! simulation) and have units [molec/cm3/s].\n    !========================================================================\n\n    ! P(O3) from HEMCO [molec/cm3/s]\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'O3_PROD', PO3_hco, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Cannot get O3_PROD [molec/cm3/s]!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! L(O3) from HEMCO [molec/cm3/s]\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'O3_LOSS', LO3_hco, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Cannot get O3_LOSS [molec/cm3/s]!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Tagged O3 chemistry contains the following terms:\n    !\n    !   New O3 = Old O3 + ( P(O3,region) - L(O3) )\n    !\n    ! P(O3) and L(O3) are archived from a previous fullchem run using\n    ! the ProdLoss collection from the History diagnostics.\n    !========================================================================\n\n    ! Loop over the # of advected species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( I, J, L, N, LO3_kg, LO3_kgps, PO3_kg, PO3_kgps           )&\n    !$OMP COLLAPSE( 3                                                       )&\n    !$OMP SCHEDULE( DYNAMIC, 4                                              )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !=====================================================================\n       ! Convert P(O3) and L(O3) from [molec/cm3/s] -> [kg]\n       ! cf. https://github.com/geoschem/geos-chem/issues/1109 by Xingpei Ye\n       !=====================================================================\n\n       ! P(O3) in [kg/s] and [kg]\n       PO3_kgps = PO3_hco(I,J,L)              & ! in molec/cm3/s\n                * molcm3_to_kgm3              & ! molec/cm3/s -> kg/m3/s\n                * State_Met%AIRVOL(I,J,L)       ! kg/m3/s     -> kg/s\n       PO3_kg   = PO3_kgps * dtChem             ! kg/s        -> kg\n\n       ! L(O3) in [kg/s] and [kg]\n       LO3_kgps = LO3_hco(I,J,L)              & ! in molec/cm3/s\n                * molcm3_to_kgm3              & ! molec/cm3/s -> kg/m3/s\n                * State_Met%AIRVOL(I,J,L)       ! kg/m3/s     -> kg/s\n       LO3_kg  = LO3_kgps * dtchem              ! kg/s        -> kg\n\n       ! Prevent denormal values\n       PO3_kg   = MAX( PO3_kg,   1.0e-30_fp )\n       PO3_kgps = MAX( PO3_kgps, 1.0e-30_fp )\n       LO3_kg   = MAX( LO3_kg,   1.0e-30_fp )\n       LO3_kgps = MAX( LO3_kgps, 1.0e-30_fp )\n\n       !------------------------------------------------------------------\n       ! Find species IDs corresponding to geographic location & altitude\n       ! (Extended tagged O3 simulaton only)\n       !------------------------------------------------------------------\n       IF ( Input_Opt%LSplit ) THEN\n\n          ! O3usa\n          usaMask(I,J,L) = ConUS(                                            &\n             X      = State_Grid%XMid(I,J),                                  &\n             Y      = State_Grid%YMid(I,J),                                  &\n             inTrop = State_Met%InTroposphere(I,J,L)                        )\n\n          ! All other species except O3init\n          geoMask(I,J,L) = TagSpcId(                                         &\n             X      = State_Grid%XMid(I,J),                                  &\n             Y      = State_Grid%YMid(I,J),                                  &\n             L      = L,                                                     &\n             inTrop = State_Met%InTroposphere(I,J,L)                        )\n\n       ENDIF\n\n       !=====================================================================\n       ! Apply chemical production of ozone (only where it is produced)\n       !=====================================================================\n\n       ! Add P(O3) [kg] to the total O3 species\n       Spc(id_O3)%Conc(I,J,L) = Spc(id_O3)%Conc(I,J,L) + PO3_kg\n\n       ! Add P(O3) [kg] to the stratospheric O3 species\n       IF ( State_Met%InStratosphere(I,J,L) ) THEN\n          Spc(id_O3Strat)%Conc(I,J,L) = Spc(id_O3Strat)%Conc(I,J,L) + PO3_kg\n       ENDIF\n\n       ! Add P(O3) to extended tagged O3 species\n       IF ( Input_Opt%LSPLIT ) THEN\n\n          ! Add P(O3) [kg] to the tagged species corresponding to the\n          ! geographic/altitude region at this grid box (I,J,L)\n          ! These regions only are defined in the troposphere (N > 0).\n          ! Also, do not apply\n          N = GeoMask(I,J,L)\n          IF ( N > 0 ) THEN\n             Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) + PO3_kg\n          ENDIF\n\n          ! Add P(O3) [kg] to the O3usa species, if we are within\n          ! the continental USA and below the tropopause.\n          N = UsaMask(I,J,L)\n          IF ( N == id_O3usa ) THEN\n             Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) + PO3_kg\n          ENDIF\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive chemical loss of tagged O3 species [kg/s]\n       !---------------------------------------------------------------------\n       IF ( State_Diag%Archive_Prod ) THEN\n\n          ! Total P(O3) and Stratospheric P(O3)\n          State_Diag%Prod(I,J,L,id_O3     ) = PO3_kgps\n          State_Diag%Prod(I,J,L,id_O3Strat) = PO3_kgps\n\n          ! Archve P(O3) for extended tagged O3 species to History\n          IF ( Input_Opt%LSplit ) THEN\n\n             ! P(O3) over the continental US\n             IF ( usaMask(I,J,L) == id_O3usa ) THEN\n                State_Diag%Prod(I,J,L,id_O3usa) = PO3_kgps\n             ENDIF\n\n             ! P(O3) over the continental USA\n             N  = GeoMask(I,J,L)\n             IF ( N > 0 ) THEN\n                State_Diag%Prod(I,J,L,N) = PO3_kgps\n             ENDIF\n          ENDIF\n        ENDIF\n\n       !=====================================================================\n       ! Apply chemical loss of ozone (everywhere)\n       !=====================================================================\n       DO N = 1, State_Chm%nAdvect\n\n          ! Do not apply loss to the O3init species,\n          ! which preserves the initial conditions.\n          IF ( N /= id_O3init ) THEN\n\n             ! Apply chemical loss [kg]\n             Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) - LO3_kg\n\n             ! Prevent denormal values\n             IF ( Spc(N)%Conc(I,J,L) < 1.0e-30_fp ) Spc(N)%Conc(I,J,L) = 0.0_fp\n\n             !---------------------------------------------------------------\n             ! HISTORY (aka netCDF diagnostics)\n             !\n             ! Archive chemical loss of tagged O3 species [kg/s]\n             !---------------------------------------------------------------\n             IF ( State_Diag%Archive_Loss ) THEN\n                State_Diag%Loss(I,J,L,N) = LO3_kgps\n             ENDIF\n          ENDIF\n       ENDDO\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE Chem_Tagged_O3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_tagged_o3\n!\n! !DESCRIPTION: Gets species indices defines the conversion molcm3_to_kgm3\n!  conversion factor.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Tagged_O3( Input_Opt, State_Chm, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : AVO\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(IN)  :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Aug 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! Init_Tagged_O3 begins here\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Init_Tagged_O3 (in module GeosCore/tagged_o3_mod.F90)'\n\n    ! Exit immediately if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !------------------------------------------------------------------------\n    ! Get O3 and O3Strat species indices\n    !------------------------------------------------------------------------\n    id_O3 = Ind_('O3')\n    IF ( id_O3 < 0 ) THEN\n       errMsg = 'O3 is an undefined species!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Define species ID flag for strat O3 (should be 2)\n    id_O3Strat = Ind_('O3Strat')\n    IF ( id_O3Strat < 0 ) THEN\n       errMsg = 'O3Strat is an undefined species!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Conversion factor from molec/cm3 to kg/m3\n    ! cf https://github.com/geoschem/geos-chem/issues/1109\n    !------------------------------------------------------------------------\n    molcm3_to_kgm3 = ( State_Chm%SpcData(id_O3)%Info%MW_g * 1000.0_fp ) / AVO\n\n    !------------------------------------------------------------------------\n    ! Define ID's for extended tagged O3 species\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%LSplit ) THEN\n\n       id_O3ut = Ind_('O3ut')\n       IF ( id_O3ut < 0 ) THEN\n          errMsg = 'O3ut is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3mt = Ind_('O3mt')\n       IF ( id_O3ut < 0 ) THEN\n          errMsg = 'O3mt is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3row = Ind_('O3row')\n       IF ( id_O3row < 0 ) THEN\n          errMsg = 'O3row is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3pcbl = Ind_('O3pcbl')\n       IF ( id_O3pcbl < 0 ) THEN\n          errMsg = 'O3pcbl is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3nabl = Ind_('O3nabl')\n       IF ( id_O3nabl < 0 ) THEN\n          errMsg = 'O3nabl is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3atbl = Ind_('O3atbl')\n       IF ( id_O3atbl < 0 ) THEN\n          errMsg = 'O3atbl is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3eubl = Ind_('O3eubl')\n       IF ( id_O3eubl < 0 ) THEN\n          errMsg = 'O3eubl is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3afbl = Ind_('O3afbl')\n       IF ( id_O3afbl < 0 ) THEN\n          errMsg = 'O3afbl is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3asbl = Ind_('O3asbl')\n       IF ( id_O3asbl < 0 ) THEN\n          errMsg = 'O3asbl is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3init = Ind_('O3init')\n       IF ( id_O3init < 0 ) THEN\n          errMsg = 'O3init is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       id_O3usa = Ind_('O3usa')\n       IF ( id_O3usa < 0 ) THEN\n          errMsg = 'O3usa is an undefined species!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Init_Tagged_O3\n!EOC\nEND MODULE Tagged_O3_Mod\n"
  },
  {
    "path": "GeosCore/tccon_ch4_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: tccon_ch4_mod.F90\n!\n! !DESCRIPTION: Module TCCON\\_CH4\\_MOD\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TCCON_CH4_MOD\n!\n! !USES:\n!\n  USE m_netcdf_io_open       ! netCDF open\n  USE m_netcdf_io_get_dimlen ! netCDF dimension queries\n  USE m_netcdf_io_read       ! netCDF data reads\n  USE m_netcdf_io_close      ! netCDF close\n  USE PRECISION_MOD          ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CALC_TCCON_CH4_FORCE\n!\n! !REVISION HISTORY:\n!  17 Aug 2017 - M. Sulprizio- Initial version based on TCCON CH4 observation\n!                              operator from GC Adjoint v35j with updates from\n!                              M. Sulprizio, J.D. Maasakkers, and A. Turner\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER,  PARAMETER  :: MAXLEV = 71\n  INTEGER,  PARAMETER  :: MAXTCC = 10000\n  INTEGER,  PARAMETER  :: NT_FD = 237 !142 ! Index for the FD test\n  REAL(fp), PARAMETER  :: GC_XCH4_ERROR = 0e+0_fp !ppb\n  REAL(fp), PARAMETER  :: PMAG = 1e0_fp ! Perturbation magnitude (%)\n  LOGICAL,  PARAMETER  :: LDCH4SAT    = .TRUE.\n  LOGICAL,  PARAMETER  :: FORCE_TCCON = .FALSE. ! Assimilate?\n!\n! !MODULE VARIABLES\n!\n  ! Record to store data from each TCCON obs\n  TYPE TCCON_CH4_OBS\n     INTEGER           :: LTCC(1)\n     REAL(fp)          :: LAT(1)\n     REAL(fp)          :: LON(1)\n     INTEGER           :: YEAR(1)\n     INTEGER           :: MONTH(1)\n     INTEGER           :: DAY(1)\n     INTEGER           :: HOUR(1)\n     INTEGER           :: MINUTE(1)\n     INTEGER           :: SEC(1)\n     REAL(fp)          :: TIME(1)\n     REAL(fp)          :: CH4(1)\n     REAL(fp)          :: CH4_ERROR(1)\n     REAL(fp)          :: XH2O(1)\n     REAL(fp)          :: XH2OE(1)\n     REAL(fp)          :: PSURF(1)\n     REAL(fp)          :: MH2O(1)\n     REAL(fp)          :: MAIR(1)\n     REAL(fp)          :: AVNUM(1)\n     REAL(fp)          :: PRES(MAXLEV)\n     REAL(fp)          :: PRIOR(MAXLEV)\n     REAL(fp)          :: AVG_KERNEL(MAXLEV)\n     REAL(fp)          :: GRAVITY(MAXLEV)\n     REAL(fp)          :: H2O(MAXLEV)\n     CHARACTER(LEN=2)  :: SITE(MAXLEV)\n     INTEGER           :: QFLAG(1)\n  ENDTYPE TCCON_CH4_OBS\n\n  TYPE(TCCON_CH4_OBS)             :: TCC(MAXTCC)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: read_tcc_ch4_obs\n!\n! !DESCRIPTION: Subroutine READ\\_TCC\\_CH4\\_OBS reads the file and passes back\n!  info contained therein. (ajt, 01/13/14)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READ_TCC_CH4_OBS( YYYYMMDD, NTCC )\n!\n! ! USES:\n!\n    USE TIME_MOD,               ONLY : EXPAND_DATE\n    USE ERROR_MOD,              ONLY : ALLOC_ERR\n    USE ERROR_MOD,              ONLY : GEOS_CHEM_STOP\n    USE TIME_MOD,               ONLY : GET_YEAR\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,            INTENT(IN)  :: YYYYMMDD ! Current date\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: NTCC     ! Number of TCC retrievals\n!\n! !REVISION HISTORY:\n!  12 Jan 2014 - A. Turner - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                       :: LTCC\n    INTEGER                       :: N, J\n    INTEGER                       :: MYEAR\n    CHARACTER(LEN=4)              :: CYEAR\n    LOGICAL                       :: EXIST_VAR\n    REAL*4                        :: temppres(MAXLEV)\n    REAL*4                        :: tempprior(MAXLEV)\n    REAL*4                        :: tempak(MAXLEV)\n    REAL*4, ALLOCATABLE           :: pres(:,:)\n    REAL*4, ALLOCATABLE           :: prior(:,:)\n    REAL*4, ALLOCATABLE           :: ak(:,:)\n    REAL*4, ALLOCATABLE           :: pres_w(:,:)\n    REAL*4, ALLOCATABLE           :: lat(:)\n    REAL*4, ALLOCATABLE           :: lon(:)\n    INTEGER, ALLOCATABLE          :: year(:)\n    INTEGER, ALLOCATABLE          :: month(:)\n    INTEGER, ALLOCATABLE          :: day(:)\n    INTEGER, ALLOCATABLE          :: hour(:)\n    INTEGER, ALLOCATABLE          :: minute(:)\n    INTEGER, ALLOCATABLE          :: second(:)\n    REAL*4, ALLOCATABLE           :: xch4(:)\n    REAL*4, ALLOCATABLE           :: xch4_error(:)\n    REAL*4, ALLOCATABLE           :: xh2o(:)\n    REAL*4, ALLOCATABLE           :: xh2o_error(:)\n    REAL*4, ALLOCATABLE           :: mass_h2o(:)\n    REAL*4, ALLOCATABLE           :: mass_dry_air(:)\n    REAL*4, ALLOCATABLE           :: AvNum(:)\n    REAL*4, ALLOCATABLE           :: grav_apri(:,:)\n    REAL*4, ALLOCATABLE           :: tccon_h2o(:,:)\n    INTEGER, ALLOCATABLE          :: qflag(:)\n    CHARACTER(LEN=2), ALLOCATABLE :: TCCON_site(:)\n\n    INTEGER                       :: NLEV, StrLen\n    INTEGER                       :: I, L, AS\n\n    ! For reading netCDF file\n    INTEGER            :: fId              ! netCDF file ID\n    INTEGER            :: Status           ! 0 means variable in file\n    INTEGER            :: X, Y, Z, T       ! netCDF file dimensions\n    INTEGER            :: time_index       ! Read this slice of data\n    INTEGER            :: st1d(1), ct1d(1) ! Start + count for 1D arrays\n    INTEGER            :: st2d(2), ct2d(2) ! Start + count for 2D arrays\n    CHARACTER(LEN=16)  :: stamp            ! Time and date stamp\n    CHARACTER(LEN=255) :: nc_file          ! netCDF file name\n    CHARACTER(LEN=255) :: v_name           ! netCDF variable name\n    CHARACTER(LEN=255) :: dir              ! Data directory path\n    CHARACTER(LEN=255) :: errMsg           ! Error message\n    CHARACTER(LEN=255) :: caller           ! Name of this routine\n\n    !=================================================================\n    ! READ_TCC_CH4_OBS begins here!\n    !=================================================================\n\n    caller = 'READ_TCC_CH4_OBS in tccon_ch4_mod.F90'\n\n    ! Get current year\n    MYEAR = GET_YEAR()\n    WRITE( CYEAR, '(i4)' ) MYEAR\n\n    ! Filename\n    nc_file = 'TCCON_dat_YYYYMMDD.ncdf'\n    CALL Expand_Date( nc_file, YYYYMMDD, 9999 )\n\n    ! Construct complete filename\n    dir = 'ExtData/Obs/TCCON/' // CYEAR // '/'\n    nc_file = TRIM( dir ) // TRIM( nc_file )\n    WRITE( 6, 10 ) TRIM( nc_file )\n10  FORMAT( '     - Reading ', a)\n\n    ! Make sure the file exists (ajt, 03/31/2013)\n    INQUIRE( FILE=nc_file, EXIST=EXIST_VAR )\n    IF ( .not. EXIST_VAR ) THEN\n       NTCC = -1d0\n       RETURN\n    ENDIF\n\n    ! Open netCDF file\n    CALL NcOp_Rd( fId, TRIM( nc_file ) )\n\n    ! Read the dimensions from the netCDF file\n    CALL NcGet_DimLen( fId, 'numexp',   NTCC )\n    CALL NcGet_DimLen( fId, 'levels',   NLEV )\n    CALL NcGet_DimLen( fId, 'string_length', StrLen )\n\n    IF ( NLEV > MAXLEV ) THEN\n       print*,' # Levels this day = ', NLEV\n       print*, 'WARNING: NLEV > MAXLEV. Need to increase'\n       print*, ' MAXLEV in tccon_ch4_mod.F90.'\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    print*,' # TCCON Observations this day = ', NTCC\n    print*, 'levels', NLEV\n\n    !--------------------------------\n    ! Read 1-D Data\n    !--------------------------------\n\n    ALLOCATE( lat(             NTCC ), STAT=AS )\n    ALLOCATE( lon(             NTCC ), STAT=AS )\n    ALLOCATE( year(            NTCC ), STAT=AS )\n    ALLOCATE( month(           NTCC ), STAT=AS )\n    ALLOCATE( day(             NTCC ), STAT=AS )\n    ALLOCATE( hour(            NTCC ), STAT=AS )\n    ALLOCATE( minute(          NTCC ), STAT=AS )\n    ALLOCATE( second(          NTCC ), STAT=AS )\n    ALLOCATE( qflag(           NTCC ), STAT=AS )\n    ALLOCATE( xch4(            NTCC ), STAT=AS )\n    ALLOCATE( xch4_error(      NTCC ), STAT=AS )\n    ALLOCATE( xh2o(            NTCC ), STAT=AS )\n    ALLOCATE( xh2o_error(      NTCC ), STAT=AS )\n    ALLOCATE( mass_h2o(        NTCC ), STAT=AS )\n    ALLOCATE( mass_dry_air(    NTCC ), STAT=AS )\n    ALLOCATE( AvNum(           NTCC ), STAT=AS )\n    ALLOCATE( TCCON_site(      NTCC ), STAT=AS )\n    ALLOCATE( prior(     NLEV, NTCC ), STAT=AS )\n    ALLOCATE( pres(      NLEV, NTCC ), STAT=AS )\n    ALLOCATE( ak(        NLEV, NTCC ), STAT=AS )\n    ALLOCATE( pres_w(    NLEV, NTCC ), STAT=AS )\n    ALLOCATE( grav_apri( NLEV, NTCC ), STAT=AS )\n    ALLOCATE( tccon_h2o( NLEV, NTCC ), STAT=AS )\n\n    ! Latitude\n    v_name = 'lat'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( lat, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Longitude\n    v_name = 'lon'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( lon, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Year\n    v_name = 'year'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( year, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Month\n    v_name = 'month'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( month, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Day\n    v_name = 'day'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( day, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Hour\n    v_name = 'hour'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( hour, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Minute\n    v_name = 'minute'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( minute, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Second\n    v_name = 'second'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( second, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Qflag (0=good)\n    v_name = 'quality_flag'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( qflag, fId, TRIM(v_name), st1d, ct1d )\n\n    ! XCH4 (ppm)\n    v_name = 'xch4_ppm'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( xch4, fId, TRIM(v_name), st1d, ct1d )\n\n    ! XCH4_Error (ppm)\n    v_name = 'xch4_ppm_error'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( xch4_error, fId, TRIM(v_name), st1d, ct1d )\n\n    ! XH2O (ppm)\n    v_name = 'xh2o_ppm'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( xh2o, fId, TRIM(v_name), st1d, ct1d )\n\n    ! XH2O_Error (ppm)\n    v_name = 'xh2o_ppm_error'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( xh2o_error, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Mass of water (kg/mol)\n    v_name = 'mass_h2o'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( mass_h2o, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Mass of dry air (kg/mol)\n    v_name = 'mass_dry_air'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( mass_dry_air, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Avogadro's number (molecules/mol)\n    v_name = 'avogadros_number'\n    st1d   = (/ 1    /)\n    ct1d   = (/ NTCC /)\n    CALL NcRd( AvNum, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Site\n    v_name = 'site'\n    st2d   = (/ 1, 1    /)\n    ct2d   = (/ StrLen, NTCC /)\n    CALL NcRd( TCCON_site, fId, TRIM(v_name), st2d, ct2d )\n\n    !--------------------------------\n    ! Read 2-D Data\n    !--------------------------------\n\n    ! APRIORI (ppb)\n    v_name = 'ch4_apriori'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NTCC /)\n    CALL NcRd( prior, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Pressure (hPa)\n    v_name = 'pressure_apriori'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NTCC /)\n    CALL NcRd( pres, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Averaging Kernel (unitless)\n    v_name = 'ch4_ak'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NTCC /)\n    CALL NcRd( ak, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Pressure weights (unitless)\n    v_name = 'pressure_ak'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NTCC /)\n    CALL NcRd( pres_w, fId, TRIM(v_name), st2d, ct2d )\n\n    ! Gravity from the apriori (m/s2)\n    v_name = 'grav_apriori'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NTCC /)\n    CALL NcRd( grav_apri, fId, TRIM(v_name), st2d, ct2d )\n\n    ! H2O from the apriori (m/s2)\n    v_name = 'h2o_apriori'\n    st2d   = (/ 1,    1    /)\n    ct2d   = (/ NLEV, NTCC /)\n    CALL NcRd( tccon_h2o, fId, TRIM(v_name), st2d, ct2d )\n\n    !--------------------------------\n    ! Place data into TCC structure\n    !--------------------------------\n    DO N = 1, NTCC\n\n       ! 0-D data\n       TCC(N)%LTCC(1)      = NLEV\n       TCC(N)%LAT(1)       = lat(N)\n       TCC(N)%LON(1)       = lon(N)\n       TCC(N)%YEAR(1)      = year(N)\n       TCC(N)%MONTH(1)     = month(N)\n       TCC(N)%DAY(1)       = day(N)\n       TCC(N)%HOUR(1)      = hour(N)\n       TCC(N)%MINUTE(1)    = minute(N)\n       TCC(N)%SEC(1)       = second(N)\n       TCC(N)%CH4(1)       = xch4(N) * 1d3        ! ppm --> ppb\n       TCC(N)%CH4_ERROR(1) = xch4_error(N) * 1d3  ! ppm --> ppb\n       TCC(N)%XH2O(1)      = xh2o(N) * 1d-6       ! ppm --> v/v\n       TCC(N)%XH2OE(1)     = xh2o_error(N) * 1d-6 ! ppm --> v/v\n       TCC(N)%PSURF(1)     = pres(1,N)\n       TCC(N)%QFLAG(1)     = qflag(N)\n       TCC(N)%AVNUM(1)     = AvNum(N)                   ! molecules/mole\n       TCC(N)%MH2O(1)      = mass_h2o(N) / AvNum(N)     ! kg/molecule\n       TCC(N)%MAIR(1)      = mass_dry_air(N) / AvNum(N) ! kg/molecule\n       TCC(N)%SITE(1)      = TCCON_site(N)\n\n       ! Time fraction of day\n       TCC(N)%TIME(1) = ( REAL(HOUR(N))*3600. + REAL(MINUTE(N))*60. &\n                        + REAL(SECOND(N)) ) / 86400d0\n\n       ! 1-D data\n       LTCC = NLEV\n       TCC(N)%PRES(1:LTCC)       = pres(1:LTCC,N)\n       TCC(N)%PRIOR(1:LTCC)      = prior(1:LTCC,N) * 1d-9 ! ppb --> v/v\n       TCC(N)%AVG_KERNEL(1:LTCC) = ak(1:LTCC,N)\n       TCC(N)%GRAVITY(1:LTCC)    = grav_apri(1:LTCC,N)\n       TCC(N)%H2O(1:LTCC)        = tccon_h2o(1:LTCC,N)\n\n       !!  Reverse indices so that L=1 is surface\n       !LTCC = NLEV\n       !temppres(:)  = 0d0\n       !tempprior(:) = 0d0\n       !tempak(:)    = 0d0\n       !DO L = 1, LTCC\n       !   tempak(L)    = ak(LTCC+1-L,N)\n       !   tempprior(L) = prior(LTCC+1-L,N)\n       !   temppres(L)  = pres(LTCC+1-L,N) * 1d-2  ! [Pa] --> [hPa]\n       !ENDDO\n       !\n       !TCC(N)%PRES(1:LTCC)       = temppres(1:LTCC)\n       !TCC(N)%PRIOR(1:LTCC)      = tempprior(1:LTCC)\n       !TCC(N)%AVG_KERNEL(1:LTCC) = tempak(1:LTCC)\n\n       ! Store the surface pressure\n       TCC(N)%PSURF(1) = TCC(N)%PRES(1)\n\n    ENDDO\n\n    !--------------------------------\n    ! Close netCDF file\n    !--------------------------------\n\n    ! Echo info\n    WRITE( 6, 20 ) YYYYMMDD\n20  FORMAT( '     - Finished reading TCCON CH4 observations for ', i8)\n\n    ! Close netCDF file\n    CALL NcCl( fId )\n\n  END SUBROUTINE READ_TCC_CH4_OBS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_tccon_ch4_force\n!\n! !DESCRIPTION: Subroutine CALC\\_TCCON\\_CH4\\_FORCE calculates the adjoint\n!  forcing from the TCCON CH4 observations and updates the cost function.\n!  (dkh, 10/12/10)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_TCCON_CH4_FORCE( Input_Opt, State_Chm, State_Grid, &\n                                   State_Met )\n!\n! !USES:\n!\n    USE ERROR_MOD,          ONLY : IT_IS_NAN\n    USE ERROR_MOD,          ONLY : IT_IS_FINITE\n    USE GC_GRID_MOD,        ONLY : GET_IJ\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PRESSURE_MOD,       ONLY : GET_PCENTER, GET_PEDGE\n    USE TIME_MOD\n    USE PhysConstants,      ONLY : XNUMOLAIR, AIRMW\n    USE State_Chm_Mod,      ONLY : ChmState, Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input options\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  17 Aug 2017 - M. Sulprizio- Initial version based on TCCON CH4 observation\n!                              operator from GC Adjoint v35j with updates from\n!                              M. Sulprizio, J.D. Maasakkers, and A. Turner\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp), SAVE     :: COST_FUNC   ! Cost function [unitless]\n    INTEGER            :: id_CH4\n    INTEGER            :: NTSTART, NTSTOP, NT, YYYYMMDD\n    INTEGER            :: IIJJ(2), I,      J\n    INTEGER            :: L,       LL,     LTCC\n    INTEGER            :: JLOOP,   NOBS,   IND\n    INTEGER            :: INDS(MAXTCC)\n    REAL(fp)           :: GC_PRES(State_Grid%NZ)\n    REAL(fp)           :: GC_PEDGE(State_Grid%NZ+1)\n    REAL(fp)           :: GC_CH4_NATIVE(State_Grid%NZ)\n    REAL(fp)           :: GC_H2O_NATIVE(State_Grid%NZ)\n    REAL(fp)           :: GC_CH4(MAXLEV)\n    REAL(fp)           :: GC_H2O(MAXLEV)\n    REAL(fp)           :: GC_CH4_cm2(MAXLEV)\n    REAL(fp)           :: GC_PSURF\n    REAL(fp)           :: MAP(State_Grid%NZ,MAXLEV)\n    REAL(fp)           :: CH4_HAT(MAXLEV)\n    REAL(fp)           :: NEW_COST(MAXTCC)\n    REAL(fp)           :: OLD_COST\n    REAL(fp), SAVE     :: TIME_FRAC(MAXTCC)\n    INTEGER,SAVE       :: NTCC\n    REAL(fp)           :: frac, RHS, LHS\n    REAL(fp)           :: CH4_PRIOR(MAXLEV)\n    REAL(fp)           :: CH4_PRIOR_cm2(MAXLEV)\n    REAL(fp)           :: molecongos(MAXLEV)\n    REAL(fp)           :: TCC_XCH4, GC_XCH4, TCC_XCH4_ERROR\n    REAL(fp)           :: TCC_P_EDGE(MAXLEV)\n    REAL(fp)           :: p(MAXLEV), h(MAXLEV), psurf\n    REAL(fp)           :: ak(MAXLEV), prior(MAXLEV)\n    REAL(fp)           :: XCH4m, XCH4a\n    REAL(fp)           :: SATELLITE_BIAS(3) ! Hardcode for now (mps,6/16/17)\n    REAL(fp)           :: MEAN_MODEL_BIAS   ! Hardcode for now (mps,6/16/17)\n    REAL(fp)           :: FORCE\n    REAL(fp)           :: DIFF\n    REAL(fp)           :: S_OBS\n\n    ! For miscellaneous\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n    LOGICAL            :: WRITE_FILE = .TRUE.\n    INTEGER            :: IOS\n    INTEGER, SAVE      :: TotalObs = 0\n    CHARACTER(LEN=255) :: FILENAME\n\n    !=================================================================\n    ! CALC_TCCON_CH4_FORCE begins here!\n    !=================================================================\n\n    print*, '     - CALC_TCCON_CH4_FORCE '\n\n    ! Initialize species ID flag\n    id_CH4     = Ind_('CH4'       )\n\n    ! Reset\n    NEW_COST(:) = 0.0_fp\n\n    ! Hardcode bias values for now (mps, 6/16/17)\n    SATELLITE_BIAS(1) = 0.0e+0_fp\n    SATELLITE_BIAS(2) = 0.0e+0_fp\n    SATELLITE_BIAS(3) = 0.0e+0_fp\n    MEAN_MODEL_BIAS   = 0.0e+0_fp\n\n    ! Open files for diagnostic output\n    IF ( FIRST ) THEN\n\n       ! For recording model and observation values\n       FILENAME = 'tccon_obs.00.m'\n       FILENAME = TRIM( Input_Opt%RUN_DIR ) //  TRIM( FILENAME )\n\n       ! Check if file exists\n       INQUIRE( FILE=TRIM(FILENAME), EXIST=WRITE_FILE )\n\n       IF ( WRITE_FILE ) THEN\n          OPEN( 119,      FILE=TRIM( FILENAME   ), STATUS='UNKNOWN', &\n                IOSTAT=IOS, FORM='FORMATTED',    ACCESS='SEQUENTIAL' )\n       ELSE\n          OPEN( 119,      FILE=TRIM( FILENAME   ), STATUS='UNKNOWN', &\n                IOSTAT=IOS, FORM='FORMATTED',    ACCESS='APPEND' )\n\n          ! Write header of tccon_obs.NN.m\n          WRITE( 119, 281 ) '       NNN', &\n                            '   I', '   J', '     LON','     LAT','YYYY', &\n                            'MM', 'DD', 'hh', 'mm', 'ss', 'site', &\n                            '         TAU', '       TCCON', &\n                            '       model', '       S_OBS', &\n                            '    COST_FUN', 'XH2O', 'XH2O_ERROR'\n       ENDIF\n\n281    FORMAT( A10,2x,A4,2x,A4,2x,A8,2x,A8,2x,A4,2x,A2,2x,A2,2x,A2,2x, &\n               A2,2x,A2,2x,A4,2x,A12,2x,A36,2x,A36,2x,A36,2x,A36,2x, &\n               A36,2x,A36 )\n\n       ! Set Total Observations = 0\n       TotalObs = 0\n\n    ENDIF\n\n    ! Save a value of the cost function first\n    OLD_COST = COST_FUNC\n\n    ! Read Observations at first call and at end of the day\n    IF ( FIRST .OR. ITS_A_NEW_DAY() ) THEN\n\n       ! Read the TCC CH4 file for this month\n       YYYYMMDD = 1d4*GET_YEAR() + 1d2*GET_MONTH() + GET_DAY()\n       CALL READ_TCC_CH4_OBS( YYYYMMDD, NTCC )\n\n       IF ( FIRST ) FIRST = .FALSE.\n\n       ! Make sure there are observations on this day\n       IF ( NTCC .EQ. -1d0 ) RETURN\n\n    ENDIF\n\n    ! Get indices of TCC observations in the current hour\n    !   At the start of each hour, assimilate observations that\n    !   were made in the previous 60 minutes.\n    !   For example, at time 18:00, assimilate observations\n    !   made from 18:00 - 18:59\n    INDS(:) = 0d0\n    NOBS    = 0\n    DO NT=1,NTCC\n       IF ( TCC(NT)%MONTH(1) .EQ. GET_MONTH() .AND. &\n            TCC(NT)%DAY(1)   .EQ. GET_DAY()   .AND. &\n            TCC(NT)%HOUR(1)  .EQ. GET_HOUR()  ) THEN\n          NOBS = NOBS + 1\n          INDS(NOBS) = NT\n          !print*,'Found a good observation! NT = ', NT\n       ENDIF\n    ENDDO\n\n    IF ( NOBS == 0 ) THEN\n       print*, ' No matching TCCON CH4 obs for this hour'\n       RETURN\n    ENDIF\n\n    print*, ' for hour range: ', GET_HOUR(), GET_HOUR()+1\n    print*, ' found # observations: ', NOBS\n\n    !! need to update this in order to do i/o with this loop parallel\n    !!      ! Now do a parallel loop for analyzing data\n    !!!$OMP PARALLEL DO        &\n    !!!$OMP DEFAULT( PRIVATE ) &\n    !!!$OMP PRIVATE( IND, NT, MAP, LTCC, IIJJ,  I, J,  L,   LL, JLOOP ) &\n    !!!$OMP PRIVATE( GC_CH4, FORCE, CH4_PRIOR, GC_PRES, FILENAME      ) &\n    !!!$OMP PRIVATE( GC_PEDGE, GC_PSURF, GC_CH4_NATIVE, TCC_XCH4      ) &\n    !!!$OMP PRIVATE( GC_H2O, GC_H2O_NATIVE,                           ) &\n    !!!$OMP PRIVATE( TCC_XCH4_ERROR, S_OBS, h, psurf, p, XCH4a, XCH4m ) &\n    !!!$OMP PRIVATE( GC_XCH4, DIFF, DIFF_ADJ, GC_XCH4_ADJ             ) &\n    !!!$OMP PRIVATE( GC_CH4_NATIVE_ADJ, GC_CH4_ADJ, TotalObs          )\n    DO IND = 1, NOBS\n\n       NT = INDS(IND)\n       !print*, '     - CALC_TCCON_CH4_FORCE: analyzing record ', NT\n\n       ! quality screening (0 is good!)\n       IF ( TCC(NT)%QFLAG(1) .NE. 0 ) THEN\n          print*, ' BAD QFLAG, skipping record        ', NT\n          CYCLE\n       ENDIF\n\n       ! Check for NaN in data\n       IF ( IT_IS_NAN( TCC(NT)%CH4(1) ) ) THEN\n          print*, ' XCH4 is NaN, skipping record      ', NT\n          CYCLE\n       ENDIF\n\n       ! Check for infinity in data\n       IF ( .not. IT_IS_FINITE( TCC(NT)%CH4(1) ) ) THEN\n          print*, ' XCH4 is infinity, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       ! Check for negative/zero data\n       IF ( TCC(NT)%CH4(1) <= 0d0 ) THEN\n          print*, ' XCH4 is <= 0, skipping record     ', NT\n          CYCLE\n       ENDIF\n\n       ! Skip observations outside the nested domain\n       IF ( TCC(NT)%LAT(1) < State_Grid%YMin .OR. &\n            TCC(NT)%LAT(1) > State_Grid%YMax .OR. &\n            TCC(NT)%LON(1) < State_Grid%XMin .OR. &\n            TCC(NT)%LON(1) > State_Grid%XMax ) THEN\n          print*, ' Outside nested domain, skipping record ', NT\n          CYCLE\n       ENDIF\n\n       ! Get grid box of current record\n       IIJJ  = GET_IJ( REAL(TCC(NT)%LON(1),4), REAL(TCC(NT)%LAT(1),4), &\n                       State_Grid )\n       I     = IIJJ(1)\n       J     = IIJJ(2)\n\n       !! skip observations where the TCCON surface pressure is\n       !! less than the model.  Use w/ updated interp (ajt, 11/6/13)\n       !IF ( (TCC(NT)%PSURF(1) - GET_PEDGE(I,J,1)) .GT. 50d0 ) THEN\n       !   print*, ' Psurf threshold not met, skipping record ', NT\n       !   CYCLE\n       !ENDIF\n\n       ! begin good observations\n       print*,'Begin assimilating good observation. NT = ', NT\n\n       ! For safety, initialize these up to LTCC\n       LTCC            = 0\n       GC_CH4(:)       = 0.0_fp\n       MAP(:,:)        = 0.0_fp\n       FORCE           = 0.0_fp\n       CH4_PRIOR(:)    = 0.0_fp\n\n       ! Copy variable names to make coding a bit cleaner\n       LTCC = TCC(NT)%LTCC(1)\n       DO L = 1, LTCC\n          CH4_PRIOR(L) = TCC(NT)%PRIOR(L)\n       ENDDO\n\n       ! Get GC pressure levels (mbar)\n       DO L = 1, State_Grid%NZ\n          GC_PRES(L) = State_Met%PMID(I,J,L)\n       ENDDO\n\n       ! Get GC pressure edges (mbar)\n       DO L = 1, State_Grid%NZ+1\n          GC_PEDGE(L) = State_Met%PEDGE(I,J,L)\n       ENDDO\n\n       ! Get GC surface pressure (mbar)\n       GC_PSURF = State_Met%PEDGE(I,J,1)\n\n\n       ! Calculate the interpolation weight matrix\n       MAP(:,:) = 0.0_fp\n       CALL GET_INTMAP( State_Grid, GC_PRES, TCC(NT)%PRES, MAP )\n\n       ! Get CH4 values at native model resolution\n       GC_CH4_NATIVE(:) = 0.0_fp\n       GC_H2O_NATIVE(:) = 0.0_fp\n\n       ! Get species concentrations [v/v]\n       GC_CH4_NATIVE(:) = State_Chm%Species(id_CH4)%Conc(I,J,:)\n\n       GC_H2O_NATIVE(:) = State_Met%AVGW(I,J,:)\n\n       !! Interpolate GC CH4 column to TCCON grid\n       !! use the method of Parker et al., (2011)\n       !GC_CH4 = INTERP_GC_TCC( LTCC, State_Grid%NZ, GC_PRES, GC_PEDGE, &\n       !            TCC(NT)%PRES(1:LTCC), GC_CH4_NATIVE )\n\n       ! Old interpolation method from kjw\n       DO LL = 1, LTCC\n          GC_CH4(LL) = 0.0_fp\n          GC_H2O(LL) = 0.0_fp\n          DO L = 1, State_Grid%NZ\n             GC_CH4(LL) = GC_CH4(LL) + MAP(L,LL) * GC_CH4_NATIVE(L)\n             GC_H2O(LL) = GC_H2O(LL) + MAP(L,LL) * GC_H2O_NATIVE(L)\n             !GC_H2O(LL) = TCC(NT)%H2O(LL)\n          ENDDO\n       ENDDO\n\n       ! Store the TCCON XCH4 proxy in [v/v]\n       TCC_XCH4       = TCC(NT)%CH4(1)       * 1e-9_fp\n       TCC_XCH4_ERROR = TCC(NT)%CH4_ERROR(1) * 1e-9_fp\n\n       ! Remove any TCCON bias (probably not...)\n       !TCC_XCH4 = TCC_XCH4 + 1d-9 * ( SATELLITE_BIAS(1) &\n       !                    + SATELLITE_BIAS(2)*(TCC(NT)%LAT(1)) &\n       !                    + SATELLITE_BIAS(3)*(TCC(NT)%LAT(1))**2 )\n\n       ! Get the S_obs, assume stddev adds in quadrature, variance\n       ! adds linearly.  (ajt, 03/27/2013)\n       S_OBS = TCC_XCH4_ERROR**2 + (GC_XCH4_ERROR * 1e-9_fp)**2\n\n       !--------------------------------------------------------------\n       ! Apply TCCON observation operator\n       !\n       !   Xch4_m = Xch4_a + SUM_j( h_j * a_j * (x_m - x_a) )\n       !\n       !   Xch4_m  - model XCH4\n       !   Xch4_a  - apriori XCH4 = h^T * x_a\n       !   h       - pressure weighting function\n       !   a       - column averaging kernel\n       !   x_m     - model CH4 [v/v]\n       !   x_a     - apriori CH4 [v/v]\n       !\n       !   The pressure weighting function is defined in Connor et al. 2008\n       !     and the OCO-2 ATBD\n       !--------------------------------------------------------------\n\n       ! Pressure weighting array\n       h(:)          = 0.0_fp\n       psurf         = TCC(NT)%PSURF(1)\n       p(1:LTCC)     = TCC(NT)%PRES(1:LTCC)\n       ak(1:LTCC)    = TCC(NT)%AVG_KERNEL(1:LTCC)\n       prior(1:LTCC) = TCC(NT)%PRIOR(1:LTCC)\n\n       ! Need to integrate from the toa to surface (ajt, 05/21/13)\n       IF (LTCC .GT. 1) THEN\n          IF(TCC(NT)%PRES(2) .LT. TCC(NT)%PRES(1)) THEN\n             p(1:LTCC) = p(LTCC:1:-1)\n          ENDIF\n       ENDIF\n\n       L = 1\n       h(L) = 1./TCC(NT)%PSURF(1) * ABS( &\n              ( -1e0*p(L) + ( (p(L+1)-p(L))/(LOG(p(L+1)/p(L))) ) ) )\n       L = LTCC\n       h(L) = 1./TCC(NT)%PSURF(1) * ABS( &\n              (  p(L) - ( (p(L)-p(L-1))/(LOG(p(L)/p(L-1))) ) ) )\n       DO L=2,LTCC-1\n          h(L) = 1./TCC(NT)%PSURF(1) * ABS( &\n                 ( -1e0*p(L) + ( (p(L+1)-p(L))/(LOG(p(L+1)/p(L))) ) ) + &\n                 (      p(L) - ( (p(L)-p(L-1))/(LOG(p(L)/p(L-1))) ) )   )\n       ENDDO\n\n       ! Now return to the orientation of the other variables\n       IF (LTCC .GT. 1) THEN\n          IF(TCC(NT)%PRES(2) .LT. TCC(NT)%PRES(1)) THEN\n             h(1:LTCC) = h(LTCC:1:-1)\n             p(1:LTCC) = p(LTCC:1:-1)\n          ENDIF\n       ENDIF\n\n       ! Get the TCCON pressure edges\n       TCC_P_EDGE = TCC_PEDGE( LTCC, TCC(NT)%PRES(1:LTCC) )\n\n       ! Compute h and convert the prior to a dry-air mole fraction\n       DO L = 1, LTCC\n          !h(L) = ( ( TCC_P_EDGE(L) - TCC_P_EDGE(L+1) )      &\n          !     / ( TCC(NT)%GRAV(L) * TCC(NT)%MAIR(1)        &\n          !     * (1e0 + GC_H2O(L) / ( 1e0 - GC_H2O(L) )     &\n          !     * (TCC(NT)%MH2O(1) / TCC(NT%MAIR(1)) ) ) ) ) &\n          !     / ( psurf                                    &\n          !     / ( TCC(NT)%GRAV(L) * TCC(NT)%MAIR(1)        &\n          !     * (1e0 + GC_H2O(L) / ( 1e0 - GC_H2O(L) )     &\n          !     * (TCC(NT)%MH2O(1) / TCC(NT%MAIR(1)) ) ) ) )\n          !h(L) = ( TCC_P_EDGE(L) - TCC_P_EDGE(L+1) )        &\n          !     / ( TCC(NT)%GRAV(L) * TCC(NT)%MAIR(1)        &\n          !     * (1e0 + GC_H2O(L) / ( 1e0 - GC_H2O(L) )     &\n          !     * (TCC(NT)%MH2O(1) / TCC(NT%MAIR(1)) ) ) )\n\n          prior(L) = prior(L) / ( 1.0_fp - GC_H2O(L) )\n       ENDDO\n\n       ! Calculate Xch4_a\n       XCH4a  = 0.0_fp\n       DO L = 1,LTCC\n          XCH4a  = XCH4a + h(L) * prior(L)\n       ENDDO\n\n       ! Calculate Xch4_m\n       XCH4m = 0.0_fp\n       XCH4m = XCH4a\n       DO L = 1, LTCC\n          XCH4m = XCH4m + ( h(L) * ak(L) * ( GC_CH4(L) - prior(L) ) )\n       ENDDO\n       GC_XCH4 = 0.0_fp\n       GC_XCH4 = XCH4m\n\n       ! Remove any GEOS-Chem bias\n       GC_XCH4 = GC_XCH4 + ( 1e-9_fp * MEAN_MODEL_BIAS )\n\n       !--------------------------------------------------------------\n       ! Calculate cost function, given S is error in vmr\n       ! J = 1/2 [ model - obs ]^T S_{obs}^{-1} [ model - obs ]\n       !--------------------------------------------------------------\n\n       ! Calculate difference between modeled and observed profile\n       DIFF = GC_XCH4 - TCC_XCH4\n\n       ! Calculate 1/2 * DIFF^T * S_{obs}^{-1} * DIFF\n       ! Need to account for the model error (ajt, 03/27/2013)\n       FORCE        = ( 1.0_fp / (S_OBS) ) * DIFF\n       NEW_COST(NT) = NEW_COST(NT) + 0.5e0 * DIFF * FORCE\n\n       TotalObs = TotalObs + 1\n\n       ! Record information for satellite diagnostics\n       IF ( LDCH4SAT ) THEN\n          WRITE( 119, 282 ) TotalObs, I, J, TCC(NT)%LON(1),           &\n               TCC(NT)%LAT(1),TCC(NT)%YEAR(1),                        &\n               TCC(NT)%MONTH(1),TCC(NT)%DAY(1), TCC(NT)%HOUR(1),      & \n               TCC(NT)%MINUTE(1), TCC(NT)%SEC(1), TCC(NT)%SITE(1),    &\n               GET_TAU(), TCC_XCH4, GC_XCH4, S_OBS, 0.5d0*FORCE*DIFF, &\n               TCC(NT)%XH2O(1), TCC(NT)%XH2OE(1)\n       ENDIF\n\n    ENDDO  ! NT\n    !!!$OMP END PARALLEL DO\n\n    ! Number of observations processed in total\n    !TotalObs = TotalObs + NOBS\n\n    ! Update cost function\n    IF ( FORCE_TCCON ) THEN\n       COST_FUNC = COST_FUNC + SUM(NEW_COST(:))\n    ELSE\n       COST_FUNC = OLD_COST\n    ENDIF\n\n282 FORMAT( I10,2x,I4,2x,I4,2x,F8.3,2x,F8.4,2x,I4,2x,I2,2x,I2,2x,I2,  &\n            2x,I2,2x,I2,2x,A4,2x,F12.3,2x,E36.30,2x,E36.30,2x,E36.30, &\n            2x,E36.30,2x,E36.30,2x,E36.30)\n\n    print*, ' Updated value of COST_FUNC = ', COST_FUNC\n    print*, ' TCC contribution           = ', COST_FUNC - OLD_COST\n    print*, ' Number of observations this hour = ', NOBS\n    print*, ' Number of observations total     = ', TotalObs\n\n  END SUBROUTINE CALC_TCCON_CH4_FORCE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_intmap\n!\n! !DESCRIPTION: Function GET\\_INTMAP linearly interpolates column quatities\n!   based upon the centered (average) pressue levels.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_INTMAP( State_Grid, GCPCEN, TCCPCEN, HINTERPZ )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid\n    REAL(fp),       INTENT(IN)  :: GCPCEN(State_Grid%NZ)\n    REAL(fp),       INTENT(IN)  :: TCCPCEN(MAXLEV)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: HINTERPZ(State_Grid%NZ,MAXLEV)\n!\n! !REVISION HISTORY:\n!  17 Aug 2017 - M. Sulprizio- Initial version based on TCCON CH4 observation\n!                              operator from GC Adjoint v35j\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: LGC, LTM, NGC, NSAT\n    REAL(fp) :: DIFF, HI, MID, LOW\n    LOGICAL  :: WHICH_MAP = .TRUE.\n\n    !=================================================================\n    ! GET_HINTERPZ_2 begins here!\n    !=================================================================\n\n    HINTERPZ(:,:) = 0e+0_fp\n\n    !! Determine what to map onto\n    !IF ( MAXLEV > State_Grid%NZ ) THEN\n    !   WHICH_MAP = .FALSE.\n    !ENDIF\n\n    ! Determine the looping\n    IF ( WHICH_MAP ) THEN\n       NGC  = State_Grid%NZ-1\n       NSAT = MAXLEV\n    ELSE\n       NSAT = MAXLEV-1\n       NGC  = State_Grid%NZ\n    ENDIF\n\n    ! Loop over each pressure level of TCCON grid\n    DO LTM = 1, NSAT\n\n       ! Find the levels from TCCON that bracket GC\n       DO LGC = 1, NGC\n\n          ! Find the bounding values\n          IF (MAXLEV > State_Grid%NZ) THEN\n             LOW = GCPCEN(LGC+1)\n             HI  = GCPCEN(LGC)\n             MID = TCCPCEN(LTM)\n          ELSE\n             LOW = TCCPCEN(LTM+1)\n             HI  = TCCPCEN(LTM)\n             MID = GCPCEN(LGC)\n          ENDIF\n\n          ! Match TCCON level to the GEOS-Chem level\n          IF ( ( MID <= HI ) .AND. (  MID  > LOW ) ) THEN\n             DIFF = HI - LOW\n             IF (MAXLEV > State_Grid%NZ) THEN\n                HINTERPZ(LGC+1,LTM) = ( HI - MID  ) / DIFF\n                HINTERPZ(LGC  ,LTM) = ( MID - LOW ) / DIFF\n             ELSE\n                HINTERPZ(LGC,LTM+1) = ( HI - MID  ) / DIFF\n                HINTERPZ(LGC,LTM  ) = ( MID - LOW ) / DIFF\n             ENDIF\n          ENDIF\n\n       ENDDO\n    ENDDO\n\n    ! Correct for case where TCCON pressure is higher than the\n    ! highest GC pressure center.  In this case, just 1:1 map.\n    DO LTM = 1, MAXLEV\n       IF ( TCCPCEN(LTM) > GCPCEN(1) ) THEN\n          HINTERPZ(:,LTM) = 0e+0_fp\n          HINTERPZ(1,LTM) = 1e+0_fp\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE GET_INTMAP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: tcc_pedge\n!\n! !DESCRIPTION: Function TCC\\_PEDGE get the pressure edges for the TCCON\n!  pressure grid\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION TCC_PEDGE( LTCC, TCC_P_I )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN) :: LTCC              ! # TCCON presure levels\n    REAL(fp), INTENT(IN) :: TCC_P_I(LTCC)     ! TCCON pressure levels [mbar]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: TCC_PEDGE(LTCC+1) ! TCCON pressure edges\n!\n! !REVISION HISTORY:\n!  17 Aug 2017 - M. Sulprizio- Initial version based on TCCON CH4 observation\n!                              operator from GC Adjoint v35j\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: LL\n    REAL(fp)             :: p(LTCC)\n    REAL(fp)             :: PEDGE(LTCC+1)\n    REAL(fp)             :: LAYER_BOT(LTCC)\n    REAL(fp)             :: LAYER_TOP(LTCC)\n    REAL(fp)             :: TCC_P(LTCC)\n    REAL(fp)             :: test1, test2\n\n    !=================================================================\n    ! TCC_PEDGE begins here!\n    !=================================================================\n\n    ! Reverse the array orders so toa is first\n    TCC_P = TCC_P_I\n    IF (LTCC .GT. 1) THEN\n       IF (TCC_P_I(2) .LT. TCC_P_I(1)) TCC_P = TCC_P(LTCC:1:-1)\n    ENDIF\n\n    ! Determine how much a level influences the levels above and below it\n    DO LL = 1, LTCC\n\n       ! Make coding cleaner\n       p = TCC_P\n\n       ! Different cases: (a) toa, (b) surface, (c) else\n       IF (LL .EQ. 1) THEN\n          test1 = ABS( -1e0*p(LL) + ( ( p(LL+1) - p(LL) ) &\n                  / LOG( p(LL+1) / p(LL) ) ) )\n          test2 = 0e+0_fp\n       ELSE IF (LL .EQ. LTCC) THEN\n          test1 = 0e+0_fp\n          test2 = ABS( p(LL) - ( ( p(LL) - p(LL-1) ) &\n                  / LOG( p(LL) / p(LL-1) ) ) )\n       ELSE\n          test1 = ABS( -1e0*p(LL) + ( ( p(LL+1) - p(LL) ) &\n                  / LOG( p(LL+1) / p(LL) ) ) )\n          test2 = ABS( p(LL) - ( ( p(LL) - p(LL-1) ) &\n                  / LOG( p(LL) / p(LL-1) ) ) )\n       ENDIF\n\n       ! Get the three layers (bottom, top, and center)\n       LAYER_BOT(LL) = ( TCC_P(LL) + test1 )\n       LAYER_TOP(LL) = ( TCC_P(LL) - test2 )\n    ENDDO\n\n    ! Get the edges\n    DO LL = 1, LTCC+1\n\n       IF (LL .EQ. LTCC+1) THEN\n          PEDGE(LL) = LAYER_BOT(LL-1)\n       ELSE\n          PEDGE(LL) = LAYER_TOP(LL)\n       ENDIF\n\n    ENDDO\n\n    ! Return to the original grid formatting\n    IF (LTCC .GT. 1) THEN\n       IF (TCC_P_I(2) .LT. TCC_P_I(1)) PEDGE = PEDGE(LTCC+1:1:-1)\n    ENDIF\n\n    ! Store the output\n    TCC_PEDGE = PEDGE\n\n  END FUNCTION TCC_PEDGE\n!EOC\nEND MODULE TCCON_CH4_MOD\n"
  },
  {
    "path": "GeosCore/tomas_mod.F90",
    "content": "#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: tomas_mod.F90\n!\n! !DESCRIPTION: Module TOMAS\\_MOD contains variable specific to the TOMAS\n!  aerosol microphysics simulation, e.g. number of species, number of size-bins,\n!  mass per particle bin boundaries and arrays used inside the microphysics\n!  subroutine. (win, 7/9/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TOMAS_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !REMARKS:\n!  This module also contains what used to be in sizecode.COM header file\n!  containing common blocks for TOMAS aerosol microphysics algorithm\n!  originally implemented in GISS GCM-II' by Peter Adams. Below is the original\n!  comment from sizecode.COM\n!\n!     This header file includes all the variables used by the\n!     size-resolved aerosol microphysics code incorporated into\n!     the GISS GCM II' by Peter Adams.  The microphysics algorithm\n!     conserves aerosol number and mass using the schemes developed\n!     by Graham Feingold and others.\n!\n!  References:\n!  ============================================================================\n!  Tzivion, S., Feingold, G., and Levin, Z., An Efficient\n!   Numerical Solution to the Stochastic Collection Equation,\n!   J. Atmos. Sci., 44, 3139-3149, 1987.\n!  Feingold, G., Tzivion, S., and Levin, Z., Evolution of\n!   Raindrop Spectra. Part I: Solution to the Stochastic\n!   Collection/Breakup Equation Using the Method of Moments,\n!   J. Atmos. Sci., 45, 3387-3399, 1988.\n!  Tzivion, S., Feingold, G., and Levin, Z., The Evolution of\n!   Raindrop Spectra. Part II: Collisional Collection/Breakup\n!   and Evaporation in a Rainshaft, J. Atmos. Sci., 46, 3312-\n!   3327, 1989.\n!  Feingold, G., Levin, Z., and Tzivion, S., The Evolution of\n!   Raindrop Spectra. Part III: Downdraft Generation in an\n!   Axisymmetrical Rainshaft Model, J. Atmos. Sci., 48, 315-\n!   330, 1991.\n!\n!  The algorithms described in these papers have been extended\n!  to include multicomponent aerosols and modified for a moving\n!  sectional approach.  Using this approach, the boundaries\n!  between size bins are defined in terms of dry aerosol mass\n!  such that the actual sizes of the sections move as water\n!  is added to or lost from the aerosol.\n!\n!  All of the subroutines needed for this aerosol microphysics\n!  algorithm use only their own internal variables or the ones\n!  listed here.  GISS GCM II' variables are not used (a driver\n!  subroutine performs the necessary swapping between the GCM\n!  and the microphysics code).  The microphysics code is,\n!  therefore, completely modular.\n!\n! !REVISION HISTORY:\n!  09 Jul 2006 - W. Trivitayanurak - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  !========================================================================\n  ! Module Variables:\n  ! ICOMP   : Number of aerosol mass species + 1 for number\n  ! Nk      : Aerosol number internal array\n  ! Mk      : Aerosol mass internal array\n  ! Gc      : Condensing gas\n  ! Nkd     : Aerosol number diagnostic array\n  ! Mkd     : Aerosol mass diagnostic array\n  ! Gcd     : Condensing gas diagnostic array\n  ! Xk      : Size bin boundary in dry mass per particle\n  ! MOLWT   : Aerosol molecular weight\n  ! SRTSO4  : ID of sulfate\n  ! SRTNACL : ID of sea-salt\n  ! SRTH2O  : ID of aerosol water\n  ! SRTECOB : ID of hydrophobic EC\n  ! SRTECIL : ID of hydrophilic EC\n  ! SRTOCOB : ID of hydrophobic OC\n  ! SRTOCIL : ID of hydrophilic OC\n  ! dust??  : ID of internally mixed dust (future work)\n  ! dust??  : ID of externally mixed dust (future work)\n  ! BOXVOL  : Grid box volume  (cm3)\n  ! BOXMASS : Grid box air mass (kg)\n  ! TEMPTMS : Temperature (K) of each grid box\n  ! PRES    : Pressure (Pa) in grid box\n  ! RHTOMAS : Relative humidity (0-1)\n  ! BINACT1 : Activated bin as a function of composition\n  ! FRACTION: Activated fraction as a fcn of composition\n  ! IDIAG   : Number of diagnostic tracer (NH4 and H2O)\n  !========================================================================\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER, PARAMETER   :: SRTSO4  = 1\n  INTEGER, PARAMETER   :: SRTNACL = 2\n  INTEGER, PARAMETER   :: SRTECOB = 3\n  INTEGER, PARAMETER   :: SRTECIL = 4\n  INTEGER, PARAMETER   :: SRTOCOB = 5\n  INTEGER, PARAMETER   :: SRTOCIL = 6\n  INTEGER, PARAMETER   :: SRTDUST = 7\n  INTEGER, PARAMETER   :: SRTNH4  = 8\n  INTEGER, PARAMETER   :: SRTH2O  = 9\n\n  INTEGER, PARAMETER   :: ICOMPHARD = 9\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! Scalars\n  INTEGER                       :: ICOMP,   IDIAG\n\n  ! Arrays\n  REAL(fp), SAVE,   ALLOCATABLE, TARGET :: Xk(:)\n  REAL*4,   SAVE,   ALLOCATABLE :: MOLWT(:)\n  INTEGER,  SAVE                :: BINACT1(101,101,101)\n  REAL(fp), SAVE                :: FRACTION1(101,101,101)\n  INTEGER,  SAVE                :: BINACT2(101,101,101)\n  REAL(fp), SAVE                :: FRACTION2(101,101,101)\n\n  REAL(fp), ALLOCATABLE         :: AVGMASS(:)       ! Average mass per particle\n                                                    ! mid-range of size bin\n                                                    ! [kg/no.]\n  REAL(fp) :: cosmic_ions(72,46,9) !careful, this is not GCHP safe!\n                                   ! [ion pairs kg^-1 s^-1]\n\n  REAL(fp), SAVE, ALLOCATABLE   :: OCSCALE30(:)\n  REAL(fp), SAVE, ALLOCATABLE   :: OCSCALE100(:)\n  REAL(fp), SAVE, ALLOCATABLE   :: ECSCALE30(:)\n  REAL(fp), SAVE, ALLOCATABLE   :: ECSCALE100(:)\n\n  INTEGER  :: bin_nuc = 1, tern_nuc = 1  ! Switches for nucleation type.\n  INTEGER  :: act_nuc = 0 ! in BL\n  INTEGER  :: ion_nuc = 0 ! 1 for modgil, 2 for Yu\n                          ! (Yu currently broken, JRP 202101)\n  INTEGER  :: absall  = 1 ! 1 for soa absorb to all specnapari\n                          ! nucleation tuned by factor of 1.0D-5\n\n  REAL(fp) :: soaareafrac=1.0e+0_fp ! fraction of SOA that goes\n                                    ! to SA rather than into mass\n\n  INTEGER :: xSOA = 1     !Switch for xSOA. If set to one, emit 100\n                          ! Tg/yr SOA correlated with anrtho CO\n                          ! (JKodros 6/3/15)\n                          ! switch to 0 for anthro-free\n                          ! runs (Pengfei Liu 4/18/2018)\n  INTEGER :: lowRH = 1    !This is to match AW more with AERONET (JKODROS 6/15)\n\n  REAL(fp), ALLOCATABLE :: H2SO4_RATE(:,:,:) ! H2SO4 prod rate [kg s-1]\n  REAL(fp), ALLOCATABLE :: PSO4AQ_RATE(:,:,:) ! Cld chem sulfate prod rate [kg s-1]\n\n  ! Subgrid coagulation timescale (win, 10/28/08)\n  REAL*4 :: SGCTSCALE\n!\n! !PRIVATE TYPES:\n!\n  ! Number of bins (copied from State_Chm%nTomasBins)\n  INTEGER, PRIVATE, SAVE :: IBINS\n\n  ! Species ID flags\n  INTEGER, PRIVATE :: id_AW01\n  INTEGER, PRIVATE :: id_DUST01\n  INTEGER, PRIVATE :: id_ECIL01\n  INTEGER, PRIVATE :: id_ECOB01\n  INTEGER, PRIVATE :: id_H2SO4\n  INTEGER, PRIVATE :: id_NH3\n  INTEGER, PRIVATE :: id_NH4\n  INTEGER, PRIVATE :: id_NK01\n  INTEGER, PRIVATE :: id_OCIL01\n  INTEGER, PRIVATE :: id_OCOB01\n  INTEGER, PRIVATE :: id_SF01\n  INTEGER, PRIVATE :: id_SO4\n  INTEGER, PRIVATE :: id_SS01\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_tomas\n!\n! !DESCRIPTION: Subroutine DO\\_TOMAS is the driver subroutine that calls the\n!  appropriate aerosol microphysics and dry deposition subroutines. (win,\n!  7/23/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_TOMAS( Input_Opt,  State_Chm, State_Diag, State_Grid, &\n                       State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: MSG, LOC\n\n    !=================================================================\n    ! DO_TOMAS begins here\n    !=================================================================\n\n    ! Assume success\n    RC    = GC_SUCCESS\n\n    ! Check that species units are in [kg]\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species are in kg!'\n       LOC = 'Routine DO_TOMAS in tomas_mod.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n    ! Do TOMAS aerosol microphysics\n    CALL AEROPHYS( Input_Opt, State_Chm, State_Grid, State_Met, &\n                   State_Diag, RC )\n\n    !print *, 'call checkmn in tomas_mod:222'\n    CALL CHECKMN( 0, 0, 0, Input_Opt, State_Chm, State_Grid, &\n                  State_Met, State_Diag, 'Before Aerodrydep', RC)\n\n    ! in kg\n\n    ! Do dry deposition\n    IF ( Input_Opt%LDRYD ) THEN\n       CALL AERO_DRYDEP( Input_Opt,  State_Chm, State_Diag, &\n                         State_Grid, State_Met, RC )\n    ENDIF\n\n    ! not in kg\n\n    !print *, 'call checkmn in tomas_mod:229'\n    CALL CHECKMN( 0, 0, 0, Input_Opt, State_Chm, State_Grid, &\n                  State_Met, State_Diag, 'Before exiting DO_TOMAS', RC )\n\n  END SUBROUTINE DO_TOMAS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aerophys\n!\n! !DESCRIPTION: Subroutine AEROPHYS does aerosol microphysics, including\n!  nucleation, coagulation, and condensation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AEROPHYS( Input_Opt, State_Chm, State_Grid, State_Met, &\n                       State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER             :: I, J, L, N, JC, K !counters\n    INTEGER             :: MPNUM    !microphysical process id #\n    REAL*4              :: ADT      !aerosol microphysics time step (seconds)\n    REAL(fp)            :: QSAT     !used in RH calculation\n    INTEGER             :: TRACNUM\n    REAL(fp)            :: FRAC\n    CHARACTER(LEN=255)  :: MSG, LOC ! species unit check\n\n    ! Arguments for CHECK_VALUE; avoids array temporaries (bmy, 1/28/14)\n    CHARACTER(LEN=255) :: ERR_VAR\n    CHARACTER(LEN=255) :: ERR_MSG\n    INTEGER            :: ERR_IND(4)\n\n    !---------\n    !sfarina - move definitions of these from module common\n    !to within each sub and pass them around for openmp\n    REAL(fp)           :: Nk(IBINS), Nkd(IBINS)\n    REAL(fp)           :: Mk(IBINS, ICOMP)\n    REAL(fp)           :: Mkd(IBINS,ICOMP)\n    REAL(fp)           :: Gc(ICOMP - 1)\n    REAL(fp)           :: Gcd(ICOMP - 1)\n\n    REAL*4             :: BOXVOL,  BOXMASS, TEMPTMS\n    REAL*4             :: PRES,    RHTOMAS\n\n    REAL(fp)           ::  surf_area     ! aerosol surface area [micon^2 cm^-3]\n    REAL(fp)           ::  ionrate       ! ion pair formation\n                                         ! rate [ion pairs cm^-3 s^-1]\n    !---------\n\n    REAL(fp)          :: Nkout(ibins), Mkout(ibins,icomp)\n    REAL(fp)          :: Gcout(icomp-1)\n    REAL(fp)          :: Nknuc(ibins), Mknuc(ibins,icomp)\n    REAL(fp)          :: Nkcond(ibins), Mkcond(ibins,icomp)\n    REAL(fp)          :: fn  ! nucleation rate of clusters cm-3 s-1\n    REAL(fp)          :: fn1 ! formation rate of particles to first size bin cm-3 s-1\n    REAL(fp)          :: nucrate(State_Grid%NY,State_Grid%NZ)\n    REAL(fp)          :: nucrate1(State_Grid%NY,State_Grid%NZ)\n    REAL(fp)          :: tot_n_1, tot_n_1a, tot_n_2, tot_n_i ! used for nitrogen mass checks\n    REAL(fp)          :: tot_s_1, tot_s_1a, tot_s_2 ! used for sulfur mass checks\n    REAL(fp)          :: h2so4rate_o ! H2SO4rate for the specific grid cell\n    REAL(fp)          :: TOT_Mk, TOT_nk  ! for checking mass and number\n\n    REAL(fp)          :: transfer(ibins)\n    LOGICAL           :: PRINTNEG  !<step4.0-temp> (win, 3/24/05)\n    logical           :: ERRORSWITCH  !<step4.2> To see where mnfix found negative value (win, 9/12/05)\n    logical           :: errspot   !<step4.4> To see where so4cond found errors (win, 9/21/05)\n    logical           :: printdebug !<step4.3> Print out for debugging (win, 9/16/05)\n    logical           :: COND, COAG, NUCL !<step5.1> switch for each process (win 4/8/06)\n    integer :: iob, job,lob !Just declare in case I want to debug (4/8/06)\n    data       iob, job, lob /  1  ,       1    ,       1 /\n    real(fp)           :: NH3_to_NH4, CEPS\n    parameter ( CEPS=1.e-17_fp )\n\n    real(fp) igR\n    parameter (igR=8.314) !Ideal gas constant J/mol.K\n\n    !The following are constants used in calculating rel. humidity\n    real(fp) axcons, bxcons, bytf, tf  !for RH calculation\n    parameter(axcons=1.8094520287589733, &\n              bxcons=0.0021672473136556273, &\n              bytf=0.0036608580560606877, tf=273.16)\n    !lhe and lhs are the latent heats of evaporation and sublimation\n\n    logical, save     :: firsttime = .true.\n    integer           :: num_iter\n\n    real(fp)    cplevels(9) ! cosmic ray pressure levels (for interp)\n    data        cplevels  / 959., 894., 786., 634., 468., &\n                            321., 201., 103., 27. /\n\n    integer     lev\n    real(fp)    weight\n\n    double precision soil_ions(9) ! ion pairs cm-3 s-1 from radioactive elements in soil\n    data             soil_ions / 5.,3.3,1.8,0.7,0.,0.,0.,0.,0./\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! AEROPHYS begins here\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Check that species units are in [kg]. While species units\n    ! are now generally [kg/kg] in GEOS-Chem, they are converted to\n    ! kg for TOMAS elsewhere in tomas_mod prior to calling this subroutine\n    ! (ewl, 8/13/15)\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species are in kg!'\n       LOC = 'Routine AEROPHYS in tomas_mod.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    ! Initialize debugging and error-signal switches\n    printneg    = .FALSE.\n    errorswitch = .FALSE.\n    PRINTDEBUG  = .FALSE.\n    ERRSPOT     = .FALSE.\n\n    ! Initialize switches for each microphysical process\n    COND = .TRUE.\n    COAG = .TRUE.\n    NUCL = .TRUE.\n\n    ! Initialize nucleation rate arrays\n    nucrate(:,:)  = 0.e+0_fp\n    nucrate1(:,:) = 0.e+0_fp\n\n    ! First-time setup\n    if (firsttime) then\n\n       !====================================================================\n       ! Make sure there is access to the H2SO4 production rate array\n       ! H2SO4RATE, which saves the H2SO4 production rate for EACH chemistry\n       ! timestep.  The prod/loss family has to be set with at least one\n       ! with the family name PSO4 and SO4 as its one member. (win, 9/30/08)\n       !====================================================================\n\n       write(*,*) 'AEROPHYS: This run uses coupled condensation-', &\n                  'nucleation scheme with pseudo-steady state H2SO4'\n       if(tern_nuc == 1) then\n          write(*,*)'  Nucleation: Ternary (Napari ', &\n                    'et al. 2002) and Binary (Vehkamaki et al. 2002)'\n       else\n          write(*,*)'  Nucleation: Binary (Vehkamaki et al. 2002)'\n       endif\n\n       firsttime = .false.\n    endif\n\n    ! Get chemistry timestep for use below [s]\n    ! NOTE: This doesn't have to be !$OMP+PRIVATE (bmy, 2/7/20)\n    ADT = GET_TS_CHEM()\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%% NOTE: THIS PARALLEL LOOP MAY BE ABLE TO BE REVERSED TO L-J-I\n    !%%% WHICH IS MUCH MORE EFFICIENT (bmy, 1/28/14)\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !$OMP PARALLEL DO         &\n    !$OMP DEFAULT( SHARED )   &\n    !$OMP PRIVATE( I, J, L )  &\n    !$OMP PRIVATE( PRES, TEMPTMS, BOXMASS, RHTOMAS, BOXVOL )       &\n    !$OMP PRIVATE( printneg, ionrate, lev, weight, GC, N, NK, JC ) &\n    !$OMP PRIVATE( MK, H2SO4rate_o, tot_n_1, k, tot_s_1, MPNUM )   &\n    !$OMP PRIVATE( Nkd, Mkd, TOT_NK, TOT_MK, TRANSFER )            &\n    !$OMP PRIVATE( Nkout,Mkout,Gcout,fn,fn1 )                      &\n    !$OMP PRIVATE( num_iter,Nknuc,Mknuc,Nkcond )                   &\n    !$OMP PRIVATE( Mkcond, ERRORSWITCH, tot_s_1a, tot_n_1a )       &\n    !$OMP PRIVATE( ERR_VAR, ERR_MSG, ERR_IND )                     &\n    !$OMP PRIVATE( TRACNUM, NH3_TO_NH4, SURF_AREA )                &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO I = 1, State_Grid%NX\n    DO J = 1, State_Grid%NY\n    DO L = 1, State_Grid%NZ\n\n       ! Skip non-chemgrid boxes\n       IF ( .not. State_Met%InChemGrid(I,J,L) ) CYCLE\n\n       !vbn write(890,89)I,J,L,Spc(id_H2SO4)%Conc(i,j,l)\n\n       !if(printdebug) print *,'+++++',I,J,L,'inside Aerophys'\n\n       ! Get info on this grid box\n       PRES    = State_Met%PMID(i,j,l)*100.0 ! in Pa\n       TEMPTMS = State_Met%T(I,J,L)\n       BOXMASS = State_Met%AD(I,J,L)\n       RHTOMAS = State_Met%RH(I,J,L)/ 1.e2\n       IF ( RHTOMAS > 0.99 ) RHTOMAS = 0.99\n       BOXVOL  = State_Met%AIRVOL(I,J,L) * 1.e6 !convert from m3 -> cm3\n\n       printneg = .FALSE.\n\n       ! determine ion rate\n       ionrate = 10.0_fp ! set as constant now !!jrp, bc 18/12/23 and comment out below\n\n!       IF ( TRIM(State_Grid%GridRes) == '4.0x5.0' ) THEN\n!\n!          if( (pres / 100.) .lt. cplevels(9) ) then\n!             ionrate = cosmic_ions(i,j,9) * boxmass / boxvol\n!             if(State_Met%FRCLND(I,J) .gt. 0.2) then\n!                ionrate = ionrate + soil_ions(9)\n!             endif\n!          elseif((pres/100.) .gt. cplevels(1)) then\n!             ionrate = cosmic_ions(i,j,1) * boxmass / boxvol\n!             if( State_Met%FRCLND(I,J) .gt. 0.2 ) then\n!                ionrate = ionrate + soil_ions(1)\n!             endif\n!          else\n!             lev=2\n!             do while (pres / 100. .lt. cplevels(lev))\n!                lev=lev+1\n!             enddo\n!             weight=( cplevels( lev - 1 ) - pres / 100. ) / &\n!                    ( cplevels( lev - 1 ) - cplevels(lev) )\n!             ionrate=( cosmic_ions(i,j,lev  ) * weight + &\n!                       cosmic_ions(i,j,lev-1) * (1.e+0_fp - weight) ) &\n!                       * boxmass / boxvol\n!             if( State_Met%FRCLND(I,J) .gt. 0.2) then\n!                ionrate=ionrate + ( soil_ions( lev   ) * weight + &\n!                        soil_ions( lev-1 ) * (1.e+0_fp-weight) )\n!             endif\n!          endif\n!\n!       ELSE\n!          ionrate = 0.e+0_fp\n!       ENDIF\n!\n!       if(ionrate .le. 1.501) ionrate = 1.501\n\n       !print*,'i',i,'j',j,'l',l,'ionrate',ionrate\n\n       ! Initialize all condensible gas values to zero\n       ! Gc(srtso4) will remain zero until within cond_nuc where the\n       ! pseudo steady state H2SO4 concentration will be put in this place.\n       DO JC=1, ICOMP-1\n          Gc(JC) = 0.e+0_fp\n       ENDDO\n\n       ! Swap Spc into Nk, Mk, Gc arrays\n       DO N = 1, IBINS\n          NK(N) = Spc(id_NK01-1+N)%Conc(I,J,L)\n          DO JC = 1, ICOMP-IDIAG\n             MK(N,JC) = Spc(id_NK01-1+N+JC*IBINS)%Conc(I,J,L)\n\n\n             IF( IT_IS_NAN( MK(N,JC) ) ) THEN\n                PRINT *,'+++++++ Found NaN in AEROPHYS ++++++++'\n                PRINT *,'Location (I,J,L):',I,J,L,'Bin',N,'comp',JC\n             ENDIF\n\n          ENDDO\n          MK(N,SRTH2O) = Spc(id_AW01-1+N)%Conc(I,J,L)\n\n       ENDDO\n\n       ! Get NH4 mass from the bulk mass and scale to bin with sulfate\n       IF ( SRTNH4 > 0 ) THEN\n          CALL NH4BULKTOBIN( MK(:,SRTSO4), Spc(id_NH4)%Conc(I,J,L), TRANSFER )\n          MK(1:IBINS,SRTNH4) = TRANSFER(1:IBINS)\n          Gc(SRTNH4) = Spc(id_NH3)%Conc(I,J,L)\n\n       ENDIF\n\n       ! Give it the pseudo-steady state value instead later (win,9/30/08)\n       !GC(SRTSO4) = Spc(id_H2SO4)%Conc(I,J,L)\n       \n       H2SO4rate_o = H2SO4_RATE(I,J,L)  ! [kg s-1]\n       ! Pengfei Liu add 2018/04/18, debug\n       IF ( H2SO4rate_o .lt. 0.e0 ) THEN\n          Print*, 'Debug TOMAS: H2SO4RATE = ', H2SO4rate_o, 'I = ', I, &\n               'J = ', J, 'L = ', L\n          H2SO4rate_o = 0.e+0_fp\n       ENDIF\n       !\n       IF ( Input_Opt%Verbose ) THEN\n          IF ( I == 10 .and. J == 10 .and. L == 10 ) THEN\n             Print*, 'Debug TOMAS: H2SO4RATE =', H2SO4rate_o\n          ENDIF\n       ENDIF\n\n       ! nitrogen and sulfur mass checks\n       ! get the total mass of N\n       tot_n_1 = Gc(srtnh4)*14.e+0_fp/17.e+0_fp\n       do k=1,ibins\n          tot_n_1 = tot_n_1 + Mk(k,srtnh4)*14.e+0_fp/18.e+0_fp\n       enddo\n\n       ! get the total mass of S\n       tot_s_1 = H2SO4rate_o*adt*32.e+0_fp/98.e+0_fp\n       do k=1,ibins\n          tot_s_1 = tot_s_1 + Mk(k,srtso4)*32.e+0_fp/96.e+0_fp\n       enddo\n\n\n       !if (printdebug.and.i==iob .and. j==job .and. l==lob ) then\n       !   CALL DEBUGPRINT( Nk, Mk, I, J, L, 'Begin aerophys' )\n       !   print *,'H2SO4RATE ',H2SO4rate_o\n       !endif\n\n       !*********************\n       ! Aerosol dynamics\n       !*********************\n\n       !Do water eqm at appropriate times\n       CALL EZWATEREQM( MK, RHTOMAS )\n\n       !Fix any inconsistencies in M/N distribution (because of advection)\n       CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n\n       !if(printdebug .and. i==iob.and.j==job.and.l==lob) ERRORSWITCH =.TRUE.\n\n       !print *, 'mnfix in tomas_mod:533'\n       CALL MNFIX( NK, MK, ERRORSWITCH )\n       IF ( ERRORSWITCH ) THEN\n          PRINT *,'Aerophys: MNFIX found error at',I,J,L\n          CALL ERROR_STOP('AEROPHYS-MNFIX (1)','Enter microphys')\n       ENDIF\n\n       MPNUM = 11\n       IF ( State_Diag%Archive_TomasMNFIXezwat1mass .or. &\n            State_Diag%Archive_TomasMNFIXezwat1number )  THEN\n          CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                         State_Grid, State_Diag )\n       ENDIF\n\n       !IF ( printdebug.and.i==iob .and. j==job .and. l==lob ) THEN\n       !   CALL DEBUGPRINT( Nk, Mk, I, J, L, 'After mnfix before cond/nucl' )\n       !ENDIF\n\n       ! Before doing any cond/nucl/coag, check if there's any aerosol in\n       ! the current box\n       TOT_NK = 0.e+0_fp\n       TOT_MK = 0.e+0_fp\n       do k = 1, ibins\n          TOT_NK = TOT_NK + Nk(K)\n          do jc=1, icomp-idiag\n             TOT_MK = TOT_MK + Mk(k,jc)\n          enddo\n       enddo\n\n       if(TOT_NK .lt. 1.e-10_fp) then\n          if( .NOT. SPINUP(5.0)) then\n             print *,'No aerosol in box ',I,J,L,'-->SKIP'\n          endif\n          CYCLE\n       endif\n\n       !-------------------------------------\n       ! Condensation and nucleation (coupled)\n       !-------------------------------------\n       IF ( COND .AND. NUCL .AND. H2SO4rate_o > 0.e0_fp) THEN\n\n          !if(printdebug .and. i==iob.and.j==job.and.l==lob) ERRORSWITCH =.TRUE.\n\n          CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n\n          !sfdebug if(printdebug) then\n          !sfdebug    !print*,'Before COND_NUC Gc(srtso4)=',Gc(srtso4)\n          !sfdebug    do N = 1,IBINS\n          !sfdebug       IF( IT_IS_NAN( NK(N) ) ) THEN\n          !sfdebug          print*, \"found NAN in nk\", n, nk\n          !sfdebug       endif\n          !sfdebug       DO JC=1, ICOMP-1\n          !sfdebug          IF( IT_IS_NAN( Gc(JC) ) ) THEN\n          !sfdebug             print*, \"found NAN in gc\", jc, gc\n          !sfdebug          endif\n          !sfdebug       ENDDO\n          !sfdebug    enddo\n          !sfdebug endif\n\n          CALL COND_NUC(Nk,Mk,Gc,Nkout,Mkout,Gcout,fn,fn1, &\n                        H2SO4rate_o,adt,num_iter,Nknuc,Mknuc,Nkcond,Mkcond, &\n                        ionrate, surf_area, BOXVOL, BOXMASS, TEMPTMS, PRES, &\n                        RHTOMAS, ERRORSWITCH, l)\n\n          !sfdebug if(printdebug) then\n          !sfdebug    !print*,'Before COND_NUC Gc(srtso4)=',Gc(srtso4)\n          !sfdebug    do N = 1,IBINS\n          !sfdebug       IF( IT_IS_NAN( NKout(N) ) ) THEN\n          !sfdebug          print*, \"found NAN in nkout\", n, nkout\n          !sfdebug       endif\n          !sfdebug       DO JC=1, ICOMP-1\n          !sfdebug          IF( IT_IS_NAN( Gcout(JC) ) ) THEN\n          !sfdebug             print*, \"found NAN in gcout\", jc, gcout\n          !sfdebug          endif\n          !sfdebug       ENDDO\n          !sfdebug    enddo\n          !sfdebug endif\n\n          IF ( ERRORSWITCH ) THEN\n             PRINT *,'Aerophys: found error at',I,J,L\n             CALL ERROR_STOP('AEROPHYS','After cond_nuc')\n          ENDIF\n\n          ERR_VAR = 'Gcout'\n          ERR_MSG = 'After COND_NUC'\n          ! check for NaN and Inf (win, 10/4/08)\n          do jc = 1, icomp-1\n             ERR_IND(1) = I\n             ERR_IND(2) = J\n             ERR_IND(3) = L\n             ERR_IND(4) = 0\n!             IF (SPINUP(14.0) .and. Gcout(jc) /= Gcout(jc) ) THEN\n             IF( SPINUP(14.0) .AND. IT_IS_NAN( Gcout(jc) ) ) THEN\n                 Gcout(jc) = 0.0e+0_fp ! reset Nan to zero during spinup, bc 18/12/23\n                 print*,'Reset Gcout NaN to zero at ',I,J,L\n             ELSEIF ( SPINUP(14.0) .AND. .not. IT_IS_FINITE( Gcout(jc) ) ) THEN\n                 Gcout(jc) = 0.0e+0_fp ! reset Inf to zero during spinup, bc 18/12/23\n                 print*,'Reset Gcout Inf to zero at ',I,J,L\n             ELSE\n             call check_value( Gcout(jc), ERR_IND, ERR_VAR, ERR_MSG )\n             ENDIF\n             !if( IT_IS_FINITE(Gcout(jc))) then\n             !   print *,'xxxxxxxxx Found Inf in Gcout xxxxxxxxxxxxxx'\n             !   print *,'Location ',I,J,L, 'comp',jc\n             !   call debugprint( Nkout, Mkout, i,j,l,'After COND_NUC')\n             !   stop\n             !endif\n          enddo\n\n          !get nucleation diagnostic\n          DO N = 1, IBINS\n             NK(N) = NKnuc(N)\n             DO JC = 1, ICOMP\n                MK(N,JC) = MKnuc(N,JC)\n             ENDDO\n          ENDDO\n\n          MPNUM = 3\n          IF ( State_Diag%Archive_TomasNUCLmass .or. &\n               State_Diag%Archive_TomasNUCLnumber )  THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n\n          MPNUM = 7\n          IF ( State_Diag%Archive_TomasNUCRATEnumber) THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n\n          IF ( printdebug.and.i==iob .and. j==job .and. l==lob )  THEN\n             CALL DEBUGPRINT( Nk, Mk, I, J, L,'After nucleation' )\n          ENDIF\n\n          !get condensation diagnostic\n          DO N = 1, IBINS\n             NK(N) = NKcond(N)\n             DO JC = 1, ICOMP\n                MK(N,JC) = MKcond(N,JC)\n             ENDDO\n          ENDDO\n\n          Gc(srtnh4)=Gcout(srtnh4)\n          Gc(srtso4)=Gcout(srtso4)\n\n          MPNUM = 1\n          IF ( State_Diag%Archive_TomasNUCLmass .or. &\n               State_Diag%Archive_TomasNUCLnumber )  THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n\n          IF ( printdebug.and.i==iob .and. j==job .and. l==lob ) THEN\n             CALL DEBUGPRINT( Nk, Mk, I, J, L,'After condensation' )\n          ENDIF\n\n          nucrate(j,l)=nucrate(j,l)+fn\n          nucrate1(j,l)=nucrate1(j,l)+fn1\n\n          ! replaces old ND61 diagnostic!\n          IF ( State_Diag%Archive_TomasNUCRATEFN ) THEN\n             State_Diag%TomasNUCRATEFN(I,J,L) = fn\n          ENDIF\n\n          DO N = 1, IBINS\n             NK(N) = NKout(N)\n             DO JC = 1, ICOMP\n                MK(N,JC) = MKout(N,JC)\n             ENDDO\n          ENDDO\n\n       ENDIF ! end of cond and nuc !\n\n       ! nitrogen and sulfur mass checks\n       ! get the total mass of N\n       tot_n_1a = Gc(srtnh4)*14.e+0_fp/17.e+0_fp\n       do k=1,ibins\n          tot_n_1a = tot_n_1a + Mk(k,srtnh4)*14.e+0_fp/18.e+0_fp\n       enddo\n\n       ! get the total mass of S\n       tot_s_1a = 0.e+0_fp\n       do k=1,ibins\n          tot_s_1a = tot_s_1a + Mk(k,srtso4)*32.e+0_fp/96.e+0_fp\n       enddo\n\n       CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n       !print *, 'mnfix in tomas_mod:677'\n\n       CALL MNFIX( Nk, Mk, ERRORSWITCH )\n       IF ( ERRORSWITCH ) THEN\n          PRINT *,'Aerophys: MNFIX found error at',I,J,L\n          IF( .not. SPINUP(14.0) ) THEN\n             CALL ERROR_STOP('AEROPHYS-MNFIX (2)','After cond/nucl')\n          ELSE\n             PRINT *,'Let error go during spin up'\n          ENDIF\n       ENDIF\n\n       MPNUM = 14\n       IF ( State_Diag%Archive_TomasMNFIXh2so4mass .or. &\n            State_Diag%Archive_TomasMNFIXh2so4number )  THEN\n          CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                         State_Grid, State_Diag )\n       ENDIF\n\n       !-----------------------------\n       ! Coagulation\n       !-----------------------------\n\n       if(printdebug .and. i==iob.and.j==job.and.l==lob) ERRORSWITCH =.TRUE.\n       !if (i==iob .and. j==job .and. l==lob ) &\n       !    CALL DEBUGPRINT( Nk, Mk, I, J, L,'Before coagulation' )\n\n       IF( COAG )  THEN\n          CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n          CALL MULTICOAG( ADT, Nk, Mk, BOXVOL, PRES, TEMPTMS, errorswitch )\n\n          if ( errorswitch ) &\n               CALL DEBUGPRINT( Nk, Mk, I, J, L,'After coagulation' )\n          !if (i==iob .and. j==job .and. l==lob ) &\n          !    CALL DEBUGPRINT( Nk, Mk, I, J, L,'After coagulation' )\n\n          MPNUM = 2\n          IF ( State_Diag%Archive_TomasCOAGmass .or. &\n               State_Diag%Archive_TomasCOAGnumber )  THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n\n          !Fix any inconsistency after coagulation (win, 4/18/06)\n          CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n          if(printdebug .and. i==iob.and.j==job.and.l==lob) &\n               ERRORSWITCH=.true. !4/18/06 win\n\n          !print *, 'mnfix in tomas_mod:719'\n          CALL MNFIX( NK, MK, ERRORSWITCH )\n\n          IF ( ERRORSWITCH ) THEN\n             PRINT *,'MNFIX found error at',I,J,L\n             IF( .not. SPINUP(14.0) ) THEN\n                CALL ERROR_STOP('AEROPHYS-MNFIX (3)', 'After COAGULATION'  )\n             ELSE\n                PRINT *,'Let error go during spin up'\n             ENDIF\n          ENDIF\n\n          MPNUM = 15\n          IF ( State_Diag%Archive_TomasMNFIXcoagmass .or. &\n               State_Diag%Archive_TomasMNFIXcoagnumber )  THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n\n       ENDIF  ! Coagulation\n\n       ! Do water eqm at appropriate times\n       CALL EZNH3EQM( Gc, Mk )\n       CALL EZWATEREQM ( MK, RHTOMAS )\n\n       !****************************\n       ! End of aerosol dynamics\n       !****************************\n\n       !Fix any inconsistencies in M/N distribution (because of advection)\n       CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n\n       ! Make sure anything that leaves AEROPHYS is free of any error\n       ! This MNFIX call could be temporary (?) or just leave it here and\n       ! monitor if the error fixed is significantly large meaning some\n       ! serious problem needs to be investigated\n       if(printdebug .and. i==iob.and.j==job.and.l==lob) ERRORSWITCH =.true.\n\n       !print *, 'mnfix in tomas_mod:758'\n       CALL MNFIX(NK,MK,ERRORSWITCH)\n       IF ( ERRORSWITCH ) THEN\n          PRINT *,'End of Aerophys: MNFIX found error at',I,J,L\n          IF( .not. SPINUP(14.0) ) THEN\n             CALL ERROR_STOP('AEROPHYS-MNFIX (4)', 'End of microphysics')\n          ELSE\n             PRINT *,'Let error go during spin up'\n          ENDIF\n       ENDIF\n\n       ! Accumulate changes by mnfix to diagnostic (win, 9/8/05)\n       MPNUM = 12\n       IF ( State_Diag%Archive_TomasMNFIXezwat2mass .or. &\n            State_Diag%Archive_TomasMNFIXezwat2number )  THEN\n          CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                         State_Grid, State_Diag )\n       ENDIF\n\n       ! Swap Nk, Mk, and Gc arrays back to Spc\n       DO N = 1, IBINS\n          TRACNUM = id_NK01 - 1 + N\n          Spc(TRACNUM)%Conc(I,J,L) = NK(N)\n          DO JC = 1, ICOMP-IDIAG\n             TRACNUM = id_NK01 - 1 + N + IBINS * JC\n             Spc(TRACNUM)%Conc(I,J,L) = MK(N,JC)\n          ENDDO\n          Spc(id_AW01-1+N)%Conc(I,J,L) = MK(N,SRTH2O)\n       ENDDO\n       Spc(id_H2SO4)%Conc(I,J,L) = GC(SRTSO4)\n\n       ! print to file to check mass conserv\n       !write(*,77) I,J,L, Spc(id_NH3)%Conc(I,J,L), Spc(id_NH3)%Conc(I,J,L)-GC(SRTNH4)\n\n       ! Calculate NH3 gas lost to aerosol phase as NH4\n       NH3_to_NH4 = Spc(id_NH3)%Conc(I,J,L)-GC(SRTNH4)\n\n       ! Update the bulk NH4 aerosol species\n       if ( NH3_to_NH4 > 0e+0_fp ) &\n            Spc(id_NH4)%Conc(I,J,L) = Spc(id_NH4)%Conc(I,J,L) + &\n                                NH3_to_NH4/17.e+0_fp*18.e+0_fp\n\n       ! Update NH3 gas species (win, 10/6/08)\n       ! plus tiny amount CEPS in case zero causes some problem\n       Spc(id_NH3)%Conc(I,J,L)   = GC(SRTNH4) + CEPS !MUST CHECK THIS!! (win,9/26/08)\n\n\n       !vbn write(889,89)I,J,L,Spc(id_H2SO4)%Conc(I,J,L)\n89     format(3I3,'Spc(id_H2SO4)%Conc(I,J,L) kg', E13.5)\n\n    ENDDO                     !L loop\n    ENDDO                     !J loop\n    ENDDO                     !I loop\n    !$OMP END PARALLEL DO\n\n    !WRITE(777,*) '---------------------------'\n77  FORMAT(3I4, '  Spc(id_NH3)%Conc(I,J,L),'E13.5,'  Used', E13.5 )\n\n    IF ( COND .and. Input_Opt%Verbose ) THEN\n       PRINT *,'### AEROPHYS: SO4 CONDENSATION'\n    ENDIF\n    IF ( COAG .and. Input_Opt%Verbose ) THEN\n       PRINT *,'### AEROPHYS: COAGULATION'\n    ENDIF\n    IF ( NUCL .and. Input_Opt%Verbose ) THEN\n       PRINT *,'### AEROPHYS: NUCLEATION'\n    ENDIF\n\n    ! Free pointer memory\n    Spc => NULL()\n\n  END SUBROUTINE AEROPHYS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cond_nuc\n!\n! !DESCRIPTION: This subroutine calculates the change in the aerosol size\n!  distribution due to so4 condensation and binary/ternary nucleation during\n!  the overal microphysics timestep.\n!  WRITTEN BY Jeff Pierce, May 2007 for GISS GCM-II'\n!  Put in GEOS-Chem by Win T. 9/30/08\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE COND_NUC(Nki,Mki,Gci,Nkf,Mkf,Gcf,fnavg,fn1avg, &\n                      H2SO4rate,dti,num_iter,Nknuc,Mknuc,Nkcond,Mkcond, &\n                      ionrate, surf_area, BOXVOL, BOXMASS, TEMPTMS, PRES, &\n                      RHTOMAS, errswitch, lev)\n!\n! !INPUT PARAMETERS:\n!\n    ! Nki(ibins)        - number of particles per size bin in grid cell\n    ! Nnuci             - number of nucleation size particles per size bin in\n    !                     grid cell\n    ! Mnuci             - mass of given species in nucleation pseudo-bin\n    !                     (kg/grid cell)\n    ! Mki(ibins, icomp) - mass of a given species per size bin/grid cell\n    ! Gci(icomp-1)      - amount (kg/grid cell) of all species present in the\n    !                     gas phase except water\n    ! H2SO4rate         - rate of H2SO4 chemical production [kg s^-1]\n    ! dt                - total model time step to be taken (s)\n    REAL(fp) Nki(ibins), Mki(ibins, icomp), Gci(icomp-1)\n    double precision H2SO4rate\n    real             dti\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Nkf, Mkf, Gcf  - same as above, but final values\n    ! Nknuc,  Mknuc  - same as above, final values from just nucleation\n    ! Nkcond, Mkcond - same as above, but final values from just condensation\n    ! fn, fn1\n    REAL(fp) Nkf(ibins), Mkf(ibins, icomp), Gcf(icomp-1)\n    REAL(fp) Nknuc(ibins), Mknuc(ibins, icomp)\n    REAL(fp) Nkcond(ibins),Mkcond(ibins,icomp)\n    double precision fnavg        ! nucleation rate of clusters cm-3 s-1\n    double precision fn1avg       ! formation rate of particles to first size bin cm-3 s-1\n    REAL*4           BOXVOL, BOXMASS, TEMPTMS, RHTOMAS, PRES\n    logical          errswitch    ! signal for error\n    integer          lev          ! layer of the model\n    REAL(fp)   surf_area\n    REAL(fp)   ionrate\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    double precision dt\n    integer          i,j,k,c      ! counters\n    double precision fn           ! nucleation rate of clusters cm-3 s-1\n    double precision fn1          ! formation rate of particles to first size bin cm-3 s-1\n    double precision pi, R        ! pi and gas constant (J/mol K)\n    double precision CSi,CSa      ! intial and average condensation sinks\n    double precision CS1,CS2      ! guesses for condensation sink [s^-1]\n    double precision CStest       ! guess for condensation sink\n    REAL(fp)           Nk1(ibins), Mk1(ibins, icomp), Gc1(icomp-1)\n    REAL(fp)           Nk2(ibins), Mk2(ibins, icomp), Gc2(icomp-1)\n    REAL(fp)           Nk3(ibins), Mk3(ibins, icomp), Gc3(icomp-1)\n    logical          nflg         ! returned from nucleation, says whether nucleation occurred or not\n    double precision mcond,mcond1 ! mass to condense [kg]\n    double precision tol          ! tolerance\n    double precision eps          ! small number\n    double precision sinkfrac(ibins) ! fraction of condensation sink coming from bin k\n    double precision totmass      ! the total mass of H2SO4 generated during the timestep\n    double precision tmass\n    double precision CSch         ! fractional change in condensation sink\n    double precision CSch_tol     ! tolerance in change in condensation sink\n    double precision addt         ! adaptive timestep time\n    double precision time_rem     ! time remaining\n    integer          num_iter     ! number of iteration\n    double precision sumH2SO4     ! used for finding average H2SO4 conc over timestep\n    integer          iter         ! number of iteration\n    double precision rnuc         ! critical radius [nm]\n    double precision gasConc      ! gas concentration [kg]\n    double precision mass_change  ! change in mass during nucleation\n    double precision total_nh4_1,total_nh4_2\n    double precision min_tstep    ! minimum timestep [s]\n    integer          nuc_bin      ! the nucleation bin\n    double precision sumfn, sumfn1 ! used for getting average nucleation rates\n    logical          tempvar,  pdbg\n    real(fp)           tnumb\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(pi=3.141592654, R=8.314) !pi and gas constant (J/mol K)\n    parameter(eps=1E-40)\n    parameter(CSch_tol=0.01)\n    parameter(min_tstep=1.0e+0_fp)\n\n    !=================================================================\n    ! COND_NUC begins here\n    !=================================================================\n\n    pdbg      = errswitch ! transfer the signal to print debug from outside\n    errswitch = .false.   ! flag error to outide to terminate program.\n\n    dt = dble(dti)\n\n    ! Initialize values of Nkf, Mkf, Gcf, and time\n    do j=1,icomp-1\n       Gc1(j)=Gci(j)\n       Gcf(j)=Gci(j)\n    enddo\n    do k=1,ibins\n       Nk1(k)=Nki(k)\n       Nknuc(k)=Nki(k)\n       Nkcond(k)=Nki(k)\n       do j=1,icomp\n          Mk1(k,j)=Mki(k,j)\n          Mknuc(k,j)=Mki(k,j)\n          Mkcond(k,j)=Mki(k,j)\n       enddo\n    enddo\n\n    ! Get initial condensation sink\n    CS1 = 0.e+0_fp\n    call getCondSink(Nk1,Mk1,srtso4,CS1,sinkfrac,surf_area,BOXVOL,TEMPTMS,PRES)\n    if( pdbg) print*,'CS1', CS1\n    !CS1 = max(CS1,eps)\n\n    !Get initial H2SO4 concentration guess (assuming no nucleation)\n    !Make sure that H2SO4 concentration doesn't exceed the amount generated\n    !during that timestep (this will happen when the condensation sink is very low)\n\n    ! get the steady state H2SO4 concentration\n    call getH2SO4conc(Nk1, Mk1, H2SO4rate, CS1, Gc1(srtnh4), &\n                      gasConc, ionrate, surf_area, &\n                      BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, lev)\n    if( pdbg) print*,'gasConc',gasConc\n    Gc1(srtso4) = gasConc\n    addt = min_tstep\n    !addt = 3600.e+0_fp\n    totmass = H2SO4rate*addt*96.e+0_fp/98.e+0_fp\n\n    tempvar = pdbg\n\n    !Get change size distribution due to nucleation with initial guess\n    call nucleation(Nk1,Mk1,Gc1,Nk2,Mk2,Gc2,fn,fn1,totmass,nuc_bin, &\n                    addt, ionrate, surf_area, BOXVOL, BOXMASS, TEMPTMS, &\n                    PRES, RHTOMAS, PDBG, lev)\n\n    if(pdbg) then\n       print*,'COND_NUC: Found an error at nucleation --> TERMINATE'\n       errswitch = .true.\n       return\n    endif\n    pdbg = tempvar !put the print debug switch back to pdbg\n    if(pdbg) call debugprint(Nk2, Mk2, 0,0,0,'After nucleation[1]')\n\n    !print*,'after nucleation'\n    !print*,'Nnuc1',Nnuc1\n    !print*,'Nnuc2',Nnuc2\n    !print*,'Mnuc1',Mnuc1\n    !print*,'Mnuc2',Mnuc2\n\n    mass_change = 0.e+0_fp\n\n    do k=1,ibins\n       mass_change = mass_change + (Mk2(k,srtso4)-Mk1(k,srtso4))\n    enddo\n    if( pdbg)  print*,'mass_change',mass_change\n\n    mcond = totmass-mass_change ! mass of h2so4 to condense\n\n    if( pdbg) print*,'after nucleation'\n    if( pdbg)  print*,'totmass',totmass,'mass_change1',mass_change,'mcond',mcond\n    if( pdbg)  print*,'cs1',CS1, Gc1(srtso4)\n\n    if (mcond.lt.0.e+0_fp)then\n       tmass = 0.e+0_fp\n       do k=1,ibins\n          do j=1,icomp-idiag\n             tmass = tmass + Mk2(k,j)\n          enddo\n       enddo\n       !if (abs(mcond).gt.tmass*1.0D-8) then\n       if (abs(mcond).gt.totmass*1.0e-8_fp) then\n          if (-mcond.lt.Mk2(nuc_bin,srtso4)) then\n             !if (CS1.gt.1.0D-5)then\n             !   print*,'budget fudge 1 in cond_nuc'\n             !endif\n             tmass = 0.e+0_fp\n             do j=1,icomp-idiag\n                tmass = tmass + Mk2(nuc_bin,j)\n             enddo\n             Nk2(nuc_bin) = Nk2(nuc_bin)*(tmass+mcond)/tmass\n             Mk2(nuc_bin,srtso4) = Mk2(nuc_bin,srtso4) + mcond\n             mcond = 0.e+0_fp\n          else\n             print*,'budget fudge 2 in cond_nuc'\n             do k=2,ibins\n                Nk2(k) = Nk1(k)\n                Mk2(k,srtso4) = Mk1(k,srtso4)\n             enddo\n             Nk2(1) = Nk1(1)+totmass/sqrt(xk(1)*xk(2))\n             Mk2(1,srtso4) = Mk1(1,srtso4) + totmass\n             mcond = 0.e+0_fp\n             !print*,'mcond < 0 in cond_nuc', mcond, totmass\n             !stop\n          endif\n       else\n          mcond = 0.e+0_fp\n       endif\n    endif\n\n    !if (mcond.lt.0.e+0_fp)then\n    !   print*,'mcond < 0 in cond_nuc', mcond\n    !   stop\n    !endif\n    tmass = 0.e+0_fp\n    do k=1,ibins\n       do j=1,icomp-idiag\n          tmass = tmass + Mk2(k,j)\n       enddo\n    enddo\n    if( pdbg)  print*, 'mcond',mcond,'tmass',tmass,'nuc',Nk2(1)-Nk1(1)\n    tempvar = pdbg\n\n    ! Get guess for condensation\n    call ezcond(Nk2,Mk2,mcond,srtso4,Nk3,Mk3,surf_area, &\n                BOXVOL, TEMPTMS, PRES, pdbg )\n\n    if(pdbg) then\n       print*,'COND_NUC: Found an error at EZCOND --> TERMINATE'\n       errswitch = .true.\n       return\n    endif\n    pdbg = tempvar\n    if(pdbg) call debugprint(Nk3, Mk3, 0,0,0,'After EZCOND[1]')\n    !print*,'after ezcond',Nk2,Nk3\n    !jrp mcond1 = 0.e+0_fp\n    !jrp do k=1,ibins\n    !jrp    do j=1,icomp\n    !jrp       mcond1 = mcond1 + (Mk3(k,j)-Mk2(k,j))\n    !jrp    enddo\n    !jrp enddo\n    !print*,'mcond',mcond,'mcond1',mcond1\n\n    Gc3(srtnh4) = Gc1(srtnh4)\n\n    call eznh3eqm(Gc3,Mk3)\n    call ezwatereqm(Mk3, RHTOMAS)\n\n    ! check to see how much condensation sink changed\n    call getCondSink(Nk3,Mk3,srtso4,CS2,sinkfrac,surf_area, &\n                     BOXVOL,TEMPTMS, PRES)\n    CSch = abs(CS2 - CS1)/CS1\n\n    !if (CSch.gt.CSch_tol) then ! condensation sink didn't change much use whole timesteps\n    ! get starting adaptive timestep to not allow condensationk sink\n    ! to change that much\n    ! Avoid div-by-zero (bmy, 1/28/14)\n    IF ( ABS( CSch ) > 0e+0_fp ) THEN\n       addt = addt*CSch_tol/CSch/2e+0_fp\n    ELSE\n       addt = 0e+0_fp\n    ENDIF\n    addt = min(addt,dt)\n    addt = max(addt,min_tstep)\n\n    time_rem = dt ! time remaining\n    if( pdbg)    print*,'addt',addt,time_rem\n    num_iter = 0\n    sumH2SO4=0.e+0_fp\n    sumfn = 0.e+0_fp\n    sumfn1 = 0.e+0_fp\n    ! do adaptive timesteps\n    do while (time_rem .gt. 0.e+0_fp)\n       num_iter = num_iter + 1\n       if( pdbg) print*, 'iter', num_iter, ' addt', addt, 'time_rem', time_rem\n       ! get the steady state H2SO4 concentration\n       if (num_iter.gt.1)then ! no need to recalculate for first step\n          call getH2SO4conc(Nk1, Mk1, H2SO4rate, CS1, Gc1(srtnh4), &\n                            gasConc, ionrate, surf_area, &\n                            BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, lev)\n          Gc1(srtso4) = gasConc\n       endif\n       if( pdbg)    print*,'gasConc',gasConc\n\n       sumH2SO4 = sumH2SO4 + Gc1(srtso4)*addt\n       totmass = H2SO4rate*addt*96.e+0_fp/98.e+0_fp\n       !call nucleation(Nk1,Mk1,Gc1,Nnuc1,Mnuc1,totmass,addt,Nk2, &\n       !                Mk2,Gc2,Nnuc2,Mnuc2,nflg,lev)\n\n       !Debug to see what goes in nucleation (win, 10/3/08)\n       if(pdbg) then\n          print*,'Temperature',TEMPTMS,'RH',RHTOMAS\n          print*,'H2SO4',Gc1(srtso4)/boxvol*1000.e+0_fp/98.e+0_fp*6.022e+23_fp\n          print*,'NH3ppt',Gc1(srtnh4)/17.e+0_fp/(boxmass/29.e+0_fp)*1e+12_fp\n       endif\n\n       tempvar = pdbg\n       call nucleation(Nk1,Mk1,Gc1,Nk2,Mk2,Gc2,fn,fn1,totmass, &\n                       nuc_bin,addt, ionrate, surf_area, BOXVOL, BOXMASS, &\n                       TEMPTMS, PRES, RHTOMAS, PDBG, lev)\n\n       if(pdbg) then\n          print*,'COND_NUC: Error at nucleation[2] --> TERMINATE'\n          errswitch=.true.\n          return\n       endif\n       pdbg = tempvar\n       if(pdbg) call debugprint(Nk2, Mk2, 0,0,0, 'After nucleation[2]')\n       !print*,'after nucleation iter'\n       sumfn = sumfn + fn*addt\n       sumfn1 = sumfn1 + fn1*addt\n\n       !total_nh4_1 = Mnuc1(srtnh4)\n       !total_nh4_2 = Mnuc2(srtnh4)\n       !do i=1,ibins\n       !   total_nh4_1 = total_nh4_1 + Mk1(i,srtnh4)\n       !   total_nh4_2 = total_nh4_2 + Mk2(i,srtnh4)\n       !enddo\n       !print*,'total_nh4',total_nh4_1,total_nh4_2\n\n       mass_change = 0.e+0_fp\n\n       do k=1,ibins\n          mass_change = mass_change + (Mk2(k,srtso4)-Mk1(k,srtso4))\n       enddo\n       if( pdbg)    print*,'mass_change2',mass_change\n\n       mcond = totmass-mass_change ! mass of h2so4 to condense\n\n       !print*,'after nucleation'\n       !print*,'totmass',totmass,'mass_change',mass_change,'mcond',mcond\n\n       !print*,'2 mass_change',mass_change,mcond,totmass\n       !print*,'2 cs1',CS1, Gc1(srtso4)\n\n       if (mcond.lt.0.e+0_fp)then\n          tmass = 0.e+0_fp\n          do k=1,ibins\n             do j=1,icomp-idiag\n                tmass = tmass + Mk2(k,j)\n             enddo\n          enddo\n          !if (abs(mcond).gt.tmass*1.0D-8) then\n          if (abs(mcond).gt.totmass*1.0e-8_fp) then\n             if (-mcond.lt.Mk2(nuc_bin,srtso4)) then\n                !if (CS1.gt.1.0D-5)then\n                !   print*,'budget fudge 1 in cond_nuc'\n                !endif\n                tmass = 0.e+0_fp\n                do j=1,icomp-idiag\n                   tmass = tmass + Mk2(nuc_bin,j)\n                enddo\n                Nk2(nuc_bin) = Nk2(nuc_bin)*(tmass+mcond)/tmass\n                Mk2(nuc_bin,srtso4) = Mk2(nuc_bin,srtso4) + mcond\n                mcond = 0.e+0_fp\n             else\n                print*,'budget fudge 2 in cond_nuc'\n                do k=2,ibins\n                   Nk2(k) = Nk1(k)\n                   Mk2(k,srtso4) = Mk1(k,srtso4)\n                enddo\n                Nk2(1) = Nk1(1)+totmass/sqrt(xk(1)*xk(2))\n                Mk2(1,srtso4) = Mk1(1,srtso4) + totmass\n                print*,'mcond < 0 in cond_nuc', mcond, totmass\n                mcond = 0.e+0_fp\n                ! should I stop or not?? (win, 10/4/08)\n                !stop\n                ! change from stop here to stop outside with more info (win, 10/4/08)\n                print*,'COND_NUC: --> TERMINATE'\n                !10/4/08 errswitch = .true.\n                !10/4/08 return\n             endif\n          else\n             mcond = 0.e+0_fp\n          endif\n       endif\n\n       do k=1,ibins\n          Nknuc(k) = Nknuc(k)+Nk2(k)-Nk1(k)\n          do j=1,icomp-idiag\n             Mknuc(k,j)=Mknuc(k,j)+Mk2(k,j)-Mk1(k,j)\n          enddo\n       enddo\n\n       !Gc2(srtnh4) = Gc1(srtnh4)\n       !call eznh3eqm(Gc2,Mk2,Mnuc2)\n       !call ezwatereqm(Mk2,Mnuc2)\n\n       !call getCondSink(Nk2,Mk2,Nnuc2,Mnuc2,srtso4,CStest,sinkfrac)\n\n       ! Before entering ezcond, check if there's enough aerosol to\n       ! condense onto. After several iteration in the case with high\n       ! H2SO4 amount but little existing aerosol and also lack the conditions\n       ! for nucleation, the whole size distribution is grown out of our\n       ! tracked size bins, so let's exit the loop if there is no aerosol\n       ! to condense onto anymore. (win, 10/4/08)\n       tmass = 0.e+0_fp\n       tnumb = 0.e+0_fp\n       do k=1,ibins\n          tnumb = tnumb + Nk2(k)\n          do j=1,icomp-idiag\n             tmass = tmass + Mk2(k,j)\n          enddo\n       enddo\n\n       if( (tmass+mcond)/tnumb  > Xk(ibins) ) then\n          if( .not. SPINUP(10.0) ) then\n             print*,'Not enough aerosol for condensation!'\n             print*,'  Exiting COND_NUC iteration with '\n             print*,time_rem,'sec remaining time'\n          endif\n\n          Gc3(srtnh4)=Gc2(srtnh4)\n          do k=1,ibins\n             Nk3(k)=Nk2(k)\n             do j=1,icomp\n                Mk3(k,j)=Mk2(k,j)\n             enddo\n          enddo\n          goto 100\n       endif\n\n       tempvar = pdbg\n\n       call ezcond(Nk2,Mk2,mcond,srtso4,Nk3,Mk3,surf_area, &\n                   BOXVOL, TEMPTMS, PRES, pdbg)\n       do k=1,ibins\n          Nkcond(k) = Nkcond(k)+Nk3(k)-Nk2(k)\n          do j=1,icomp-idiag\n             Mkcond(k,j)=Mkcond(k,j)+Mk3(k,j)-Mk2(k,j)\n          enddo\n       enddo\n       Gc3(srtnh4) = Gc1(srtnh4)\n\n       if(pdbg) then\n          print*,'COND_NUC: Error at EZCOND[2] --> TERMINATE'\n          errswitch=.true.\n          return\n       endif\n       pdbg = tempvar\n\n       if(pdbg) call debugprint(Nk3, Mk3, 0,0,0,'After EZCOND[2]')\n\n       if( pdbg)    print*,'after ezcond iter'\n       call eznh3eqm(Gc3,Mk3)\n       call ezwatereqm(Mk3, RHTOMAS)\n\n       ! check to see how much condensation sink changed\n       call getCondSink(Nk3,Mk3,srtso4,CS2,sinkfrac,surf_area, &\n                        BOXVOL,TEMPTMS, PRES)\n\n       time_rem = time_rem - addt\n       if (time_rem .gt. 0.e+0_fp) then\n          CSch = abs(CS2 - CS1)/CS1\n          !jrp if (CSch.lt.0.e+0_fp) then\n          !jrp    print*,''\n          !jrp    print*,'CSch LESS THAN ZERO!!!!!', CS1,CStest,CS2\n          !jrp    print*,'Nnuc',Nnuc1,Nnuc2\n          !jrp    print*,''\n          !jrp\n          !jrp    addt = min(addt,time_rem)\n          !jrp else\n\n          ! Allow adaptive timestep to change\n          ! Avoid div-by-zero error\n          IF ( ABS( CSch ) > 0e+0_fp ) THEN\n             addt = min(addt*CSch_tol/CSch,addt*1.5e+0_fp)\n          ELSE\n             addt = 0e+0_fp\n          ENDIF\n\n          ! allow adaptive timestep to change again\n          addt = min(addt,time_rem)\n          addt = max(addt,min_tstep)\n          !jrp endif\n          if( pdbg)     print*,'CS1',CS1,'CS2',CS2\n          CS1 = CS2\n          Gc1(srtnh4)=Gc3(srtnh4)\n          do k=1,ibins\n             Nk1(k)=Nk3(k)\n             do j=1,icomp\n                Mk1(k,j)=Mk3(k,j)\n             enddo\n          enddo\n       endif\n    enddo ! while loop\n\n100 continue\n\n    Gcf(srtso4)=sumH2SO4/dt\n    fnavg = sumfn/dt\n    fn1avg = sumfn1/dt\n    if( pdbg)    print*,'AVERAGE GAS CONC',Gcf(srtso4)\n\n    !jrp else\n    !jrp    num_iter = 1\n    !jrp    Gcf(srtso4)=Gc1(srtso4)\n    !jrp endif\n\n    if( pdbg) print*, 'cond_nuc num_iter =', num_iter\n    !T0M(1,1,1,3) = double(num_iter) ! store iterations here\n\n    if(pdbg) call debugprint(Nk3, Mk3, 0,0,0,'End of COND_NUC')\n\n    do k=1,ibins\n       Nkf(k)=Nk3(k)\n       do j=1,icomp\n          Mkf(k,j)=Mk3(k,j)\n       enddo\n    enddo\n    Gcf(srtnh4)=Gc3(srtnh4)\n\n    return\n\n  END SUBROUTINE COND_NUC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getcondsink\n!\n! !DESCRIPTION: This subroutine calculates the condensation sink (first order\n!  loss rate of condensing gases) from the aerosol size distribution.\n!  WRITTEN BY Jeff Pierce, May 2007 for GISS GCM-II\n!  Put in GEOS-Chem by Win T. (9/30/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE getCondSink(Nko, Mko, spec, CS, sinkfrac, surf_area, &\n            BOXVOL, TEMPTMS, PRES)\n!\n! !INPUT PARAMETERS:\n!\n    !Initial values of\n    !=================\n    !Nk(ibins) - number of particles per size bin in grid cell\n    !Nnuc - number of particles per size bin in grid cell\n    !Mnuc - mass of given species in nucleation pseudo-bin (kg/grid cell)\n    !Mk(ibins, icomp) - mass of a given species per size bin/grid cell\n    !spec - number of the species we are finding the condensation sink for\n    double precision Nko(ibins), Mko(ibins, icomp)\n    REAL*4, INTENT(IN)       :: BOXVOL, TEMPTMS, PRES\n    integer spec\n!\n! !OUTPUT PARAMETERS:\n!\n    !CS - condensation sink [s^-1]\n    !sinkfrac(ibins) - fraction of condensation sink from a bin\n    double precision CS, sinkfrac(ibins)\n    REAL(fp), INTENT(OUT)    :: surf_area\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer i,j,k,c           ! counters\n    double precision pi, R    ! pi and gas constant (J/mol K)\n    double precision mu                  !viscosity of air (kg/m s)\n    double precision mfp                 !mean free path of air molecule (m)\n    double precision l_ab                !mean free path of h2so4 molecule (m)\n    real Di       !diffusivity of gas in air (m2/s)\n    double precision Neps     !tolerance for number\n    real density  !density [kg m^-3]\n    double precision mp       !mass per particle [kg]\n    double precision Dpk(ibins) !diameter of particle [m]\n    double precision Kn       !Knudson number\n    double precision beta(ibins) !non-continuum correction factor\n    double precision Mktot    !total mass in bin [kg]\n    double precision c_a      !average speed of a, h2so4 molecule\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(pi=3.141592654, R=8.314) !pi and gas constant (J/mol K)\n    parameter(Neps=1.0e+10_fp)\n    double precision alpha(icomp) ! accomodation coef\n    !data alpha/0.65,0.,0.,0.,0.,0.,0.,0.,0./\n    real Sv(icomp)         !parameter used for estimating diffusivity\n    !data Sv /42.88,42.88,42.88,42.88,42.88,42.88,42.88, &\n    !         42.88,42.88/\n\n    !=================================================================\n    ! getCondSink begins here\n    !=================================================================\n\n    ! have to find a better way to simply assign contants to these array\n    ! The problem is I declare the array with ICOMP - its value will be\n    ! determined at time of run, so I can't use DATA statement\n    DO J=1,ICOMP\n       !IF ( J == SRTSO4 ) THEN\n       alpha(J) = 0.65\n       !ELSE\n       !   alpha(J) = 0.\n       !ENDIF\n       Sv(J) = 42.88\n    ENDDO\n\n\n    ! get some parameters\n\n    !mu=2.5277e-7 * TEMPTMS**0.75302\n    !mfp=2.0*mu / ( pres*sqrt( 8.0 * 0.6589 / (pi*R*TEMPTMS) ) )  !S&P eqn 8.6\n\n    !mfp=2.0*mu / ( pres*sqrt( 8.0 * 0.0289 / (pi*R*TEMPTMS) ) )  !S&P eqn 8.6\n\n    Di=gasdiff(TEMPTMS,pres,98.0,Sv(spec))\n\n    c_a  = sqrt(8.0 * TEMPTMS * R / 0.098)\n    l_ab = 2.0 * Di / c_a\n\n    ! get size dependent values\n    do k=1,ibins\n       if (Nko(k) .gt. Neps) then\n          Mktot=0.e+0_fp\n          do j=1,icomp\n             Mktot=Mktot+Mko(k,j)\n          enddo\n          !kpc  Density should be changed due to more species involed.\n          density=aerodens(Mko(k,srtso4),0.e+0_fp, &\n                  Mko(k,srtnh4),Mko(k,srtnacl),Mko(k,srtecil), &\n                  Mko(k,srtecob),Mko(k,srtocil),Mko(k,srtocob), &\n                  Mko(k,srtdust),Mko(k,srth2o)) !assume bisulfate\n          mp=Mktot/Nko(k)\n       else\n          !nothing in this bin - set to \"typical value\"\n          density=1500.\n#if defined(TOMAS12) || defined(TOMAS15)\n          mp=sqrt(xk(k)*xk(k+1))\n#else\n          mp=1.4*xk(k)\n#endif\n       endif\n       Dpk(k)  = ( (mp/density)*(6./pi) )**(0.333)\n       !Kn     = 2.0 * mfp  / Dpk(k)     !S&P eqn 11.35 (text)\n       Kn      = 2.0 * l_ab / Dpk(k)     !S&Pv2 chapter 12 - Kn for Dahneke correction factor\n       beta(k) = ( 1.+Kn )  / ( 1.+2.*Kn*(1.+Kn)/alpha(spec) )   !S&P eqn 11.35\n    enddo\n    \n    ! get condensation sink\n    CS = 0.e+0_fp\n    surf_area = 0.e+0_fp\n    do k=1,ibins\n       CS = CS + Dpk(k)*Nko(k)*beta(k)\n       surf_area = surf_area+Nko(k)*pi*(Dpk(k)*1.0e+6_fp)**2\n    enddo\n    !bc 21/01/2022 - check if divide by zero below -added 2 if \n    do k=1,ibins\n       sinkfrac(k) = 0.e-0_fp\n       if (CS > 0.e-0_fp) then\n          sinkfrac(k) = Dpk(k)*Nko(k)*beta(k)/CS\n       endif\n    enddo\n    CS = 2.e+0_fp*pi*dble(Di)*CS/(dble(boxvol)*1.e-6_fp)\n    surf_area = 0.e-0_fp\n    if (CS  > 0.e-0_fp) then\n       surf_area = surf_area/(dble(boxvol))\n    endif\n    \n    return\n\n  end subroutine getcondsink\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getH2SO2conc\n!\n! !DESCRIPTION: This subroutine uses newtons method to solve for the steady\n!  state H2SO4 concentration when nucleation is occuring.\n!  It solves for H2SO4 in 0 = P - CS*H2SO4 - M(H2SO4)\n!  where P is the production rate of H2SO4, CS is the condensation sink\n!  and M(H2SO4) is the loss of mass towards making new particles.\n!  WRITTEN BY Jeff Pierce, May 2007 for GISS GCM-II\n!  Put in GEOS-CHEM by Win T. (9/30/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE getH2SO4conc(Nk, Mk, H2SO4rate, CS, NH3conc, gasConc, &\n                          ionrate, surf_area, BOXVOL, BOXMASS, &\n                          TEMPTMS, PRES, RHTOMAS, lev)\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ERROR_STOP, IT_IS_NAN\n!\n! !INPUT PARAMETERS:\n!\n    !Initial values of\n    !=================\n    ! H2SO4rate - H2SO4 generation rate [kg box-1 s-1]\n    ! CS - condensation sink [s-1]\n    ! NH3conc - ammonium in box [kg box-1]\n    REAL(fp)            :: Nk(IBINS)\n    REAL(fp)            :: Mk(IBINS, ICOMP)\n    double precision       H2SO4rate\n    double precision       CS\n    double precision       NH3conc\n    REAL*4, INTENT(IN)  :: BOXVOL,  BOXMASS, TEMPTMS\n    REAL*4, INTENT(IN)  :: PRES,    RHTOMAS\n    integer                lev\n!\n! !OUTPUT PARAMETERS:\n!\n    ! gasConc - gas H2SO4 [kg/box]\n    double precision       gasConc\n    REAL(fp)            :: ionrate\n    REAL(fp)            :: surf_area\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer i,j,k,c           ! counters\n    double precision fn, rnuc ! nucleation rate [# cm-3 s-1] and critical radius [nm]\n    double precision mnuc, mnuc1 ! mass of nucleated particle [kg]\n    double precision fn1, rnuc1 ! nucleation rate [# cm-3 s-1] and critical radius [nm]\n    double precision res      ! d[H2SO4]/dt, need to find the solution where res = 0\n    double precision massnuc     ! mass being removed by nucleation [kg s-1 box-1]\n    double precision gasConc1 ! perturbed gasConc\n    double precision gasConc_hi, gasConc_lo\n    double precision res1     ! perturbed res\n    double precision res_new  ! new guess for res\n    double precision dresdgasConc ! derivative for newtons method\n    double precision Gci(icomp-1)      !array to carry gas concentrations\n    logical nflg              !says if nucleation occured\n    double precision H2SO4min !minimum H2SO4 concentration in parameterizations (molec/cm3)\n    double precision pi\n    integer iter,iter1\n    double precision CSeps    ! low limit for CS\n    double precision max_H2SO4conc !maximum H2SO4 concentration in parameterizations (kg/box)\n    double precision nh3ppt   !ammonia concentration in ppt\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(pi=3.141592654)\n    !parameter(H2SO4min=1.D4) !molecules cm-3\n    parameter(CSeps=1.0e-20_fp)\n\n    !=================================================================\n    ! getH2SO4conc begins here\n    !=================================================================\n\n    do i=1,icomp-1\n       Gci(i)=0.e+0_fp\n    enddo\n    Gci(srtnh4)=NH3conc\n\n    ! make sure CS doesn't equal zero\n    !CS = max(CS,CSeps)\n\n    ! some specific stuff for napari vs. vehk\n    if (ion_nuc.eq.1) then\n       H2SO4min=1.0e+5_fp\n    elseif (ion_nuc.eq.2) then\n       H2SO4min=5.0e+5_fp\n    else\n       H2SO4min=1.0e+4_fp\n    endif\n\n    if ((bin_nuc.eq.1).or.(tern_nuc.eq.1).or.(ion_nuc.le.2))then\n       nh3ppt = Gci(srtnh4)/17.e+0_fp/(boxmass/29.e+0_fp)*1e+12_fp* &\n  &             PRES/101325.*273./TEMPTMS ! corrected for pressure (because this should be concentration)\n       if (ion_nuc.eq.1)then\n          max_H2SO4conc=1.0e+8_fp*boxvol/1000.e+0_fp*98.e+0_fp/6.022e+23_fp\n       elseif (ion_nuc.eq.2)then\n          max_H2SO4conc=5.0e+8_fp*boxvol/1000.e+0_fp*98.e+0_fp/6.022e+23_fp\n       elseif ((nh3ppt.gt.1.0e+0_fp).and.(tern_nuc.eq.1))then\n          max_H2SO4conc=1.0e+9_fp*boxvol/1000.e+0_fp*98.e+0_fp/6.022e+23_fp\n       elseif (bin_nuc.eq.1)then\n          max_H2SO4conc=1.0e+11_fp*boxvol/1000.e+0_fp*98.e+0_fp/6.022e+23_fp\n       else\n          max_H2SO4conc = 1.0e+100_fp\n       endif\n    else\n       max_H2SO4conc = 1.0e+100_fp\n    endif\n\n    ! Checks for when condensation sink is very small\n    if (CS.gt.CSeps) then\n       gasConc = H2SO4rate/CS\n    else\n       if((bin_nuc.gt.0).or.(tern_nuc.gt.0).or. (ion_nuc.gt.0))then\n          gasConc = max_H2SO4conc\n       else\n          print*,'condesation sink too small in getH2SO4conc'\n          STOP\n       endif\n    endif\n\n    gasConc = min(gasConc,max_H2SO4conc)\n    Gci(srtso4) = gasConc\n    call getNucRate(Nk, Mk, Gci,fn,mnuc,nflg,ionrate, surf_area, &\n                    BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, lev)\n\n    if (fn.gt.0.e+0_fp) then      ! nucleation occured\n       !convert to kg/box\n       gasConc_lo = H2SO4min*boxvol/(1000.e+0_fp/98.e+0_fp*6.022e+23_fp)\n\n       ! Test to see if gasConc_lo gives a res < 0\n       ! (this means ANY nucleation is too high)\n       Gci(srtso4) = gasConc_lo*1.000001e+0_fp\n       call getNucRate(Nk,Mk,Gci,fn1,mnuc1,nflg,ionrate,surf_area, &\n                       BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, lev)\n       if (fn1.gt.0.e+0_fp) then\n          massnuc = mnuc1*fn1*boxvol*98.e+0_fp/96.e+0_fp\n          !massnuc = 4.e+0_fp/3.e+0_fp*pi*(rnuc1*1.e-9_fp)**3*1350.*fn1*boxvol*\n          !massnuc = 4.e+0_fp/3.e+0_fp*pi*(rnuc1*1.e-9_fp)**3*1800.*fn1*boxvol*%\n          !          98.e+0_fp/96.e+0_fp\n          !jrp print*,'res',res\n          !jrp print*,'H2SO4rate',H2SO4rate\n          !jrp print*,'CS*gasConc_lo',CS*gasConc_lo\n          !jrp print*,'mnuc',mnuc\n          res = H2SO4rate - CS*gasConc_lo - massnuc\n          if (res.lt.0.e+0_fp) then ! any nucleation too high\n             ! if (.not. spinup(14.0)) print*,'nucleation cuttoff'\n             ! have nucleation occur and fix mass balance after\n             gasConc = gasConc_lo*1.000001\n             return\n          endif\n       endif\n\n       ! we know this must be the upper limit (since no nucleation)\n       gasConc_hi = gasConc\n       !take density of nucleated particle to be 1350 kg/m3\n       massnuc = mnuc*fn*boxvol*98.e+0_fp/96.e+0_fp\n       !print*,'H2SO4rate',H2SO4rate,'CS*gasConc',CS*gasConc,'mnuc',mnuc\n       res = H2SO4rate - CS*gasConc - massnuc\n\n       ! check to make sure that we can get solution\n       if (res.gt.H2SO4rate*1.e-10_fp) then\n          print*,'gas production rate too high in getH2SO4conc'\n          print*,H2SO4rate,CS,gasConc,massnuc,res\n          return\n          !STOP\n       endif\n\n       iter = 0\n       !jrp print*, 'iter',iter\n       !jrp print*,'gasConc_lo',gasConc_lo,'gasConc_hi',gasConc_hi\n       !jrp print*,'res',res\n       do while ((abs(res/H2SO4rate).gt.1.e-4_fp).and.(iter.lt.40))\n          iter = iter+1\n          if (res .lt. 0.e+0_fp) then ! H2SO4 concentration too high, must reduce\n             gasConc_hi = gasConc ! old guess is new upper bound\n          elseif (res .gt. 0.e+0_fp) then ! H2SO4 concentration too low, must increase\n             gasConc_lo = gasConc ! old guess is new lower bound\n          endif\n          !print*, 'iter',iter\n          !print*,'gasConc_lo',gasConc_lo,'gasConc_hi',gasConc_hi\n          gasConc = sqrt(gasConc_hi*gasConc_lo) ! take new guess as logmean\n          Gci(srtso4) = gasConc\n          call getNucRate(Nk, Mk,Gci,fn,mnuc,nflg,ionrate,surf_area, &\n                          BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, lev)\n          massnuc = mnuc*fn*boxvol*98.e+0_fp/96.e+0_fp\n          res = H2SO4rate - CS*gasConc - massnuc\n          !print*,'res',res\n          !print*,'H2SO4rate',H2SO4rate,'CS',CS,'gasConc',gasConc\n          if (iter.eq.40.and.CS.gt.1.0e-4_fp)then\n             print*,'getH2SO4conc iter break'\n             print*,'H2SO4rate',H2SO4rate,'CS',CS\n             print*,'gasConc',gasConc,'massnuc',massnuc\n             print*,'max_H2SO4conc',max_H2SO4conc\n             print*,'fn',fn\n             print*,'res/H2SO4rate',res/H2SO4rate\n          endif\n       enddo\n\n       !print*,'IN getH2SO4conc'\n       !print*,'fn',fn\n       !print*,'H2SO4rate',H2SO4rate\n       !print*,'massnuc',massnuc,'CS*gasConc',CS*gasConc\n\n    else\n       ! nucleation didn't occur\n    endif\n\n    return\n\n  end SUBROUTINE GETH2SO4CONC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getnucrate\n!\n! !DESCRIPTION: This subroutine calls the Vehkamaki 2002 and Napari 2002\n!  nucleation parameterizations and gets the binary and ternary nucleation\n!  rates.\n!  WRITTEN BY Jeff Pierce, April 2007 for GISS GCM-II\n!  Put in GEOS-Chem by win T. 9/30/08\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE getNucRate(Nk, Mk, Gci,fn,mnuc,nflg, ionrate,surf_area, &\n                        BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, lev)\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ERROR_STOP, IT_IS_NAN\n!\n! !INPUT PARAMETERS:\n!\n    !Initial values of\n    !=================\n    ! Gci(icomp-1) - amount (kg/grid cell) of all species present in the\n    !                gas phase except water\n    REAL*4,   INTENT(IN)       :: BOXVOL,  BOXMASS, TEMPTMS\n    REAL*4,   INTENT(IN)       :: PRES,    RHTOMAS\n    REAL(fp), INTENT(IN)       :: Gci(icomp-1)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(INOUT)    :: Nk(IBINS)\n    REAL(fp), INTENT(INOUT)    :: Mk(IBINS, ICOMP)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! fn - nucleation rate [# cm-3 s-1]\n    ! rnuc - radius of nuclei [nm]\n    ! nflg - says if nucleation happend\n    REAL(fp)                   :: surf_area\n    REAL(fp)                   :: ionrate\n\n    integer j,i,k\n    double precision fn       ! nucleation rate to first bin cm-3 s-1\n    double precision mnuc     !mass of nucleating particle [kg]\n    logical nflg\n    integer lev\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    double precision nh3ppt   ! gas phase ammonia in pptv\n    double precision h2so4    ! gas phase h2so4 in molec cc-1\n    double precision gtime    ! time to grow to first size bin [s]\n    double precision ltc, ltc1, ltc2 ! coagulation loss rates [s-1]\n    double precision Mktot    ! total mass in bin\n    double precision neps\n    double precision meps\n    double precision density  ! density of particle [kg/m3]\n    double precision pi\n    double precision frac     ! fraction of particles growing into first size bin\n    double precision d1,d2    ! diameters of particles [m]\n    double precision mp       ! mass of particle [kg]\n    double precision mold     ! saved mass in first bin\n    double precision rnuc     ! critical nucleation radius [nm]\n    double precision sinkfrac(ibins) ! fraction of loss to different size bins\n    double precision nadd     ! number to add\n    double precision CS       ! kerminan condensation sink [m-2]\n    double precision Dpmean   ! the number wet mean diameter of the existing aerosol\n    double precision Dp1      ! the wet diameter of bin 1\n    double precision dens1    ! density in bin 1 [kg m-3]\n    double precision GR       ! growth rate [nm hr-1]\n    double precision gamma,eta ! used in kerminen 2004 parameterzation\n    double precision drymass,wetmass,WR\n    double precision fn_c     ! barrierless nucleation rate\n    double precision h1,h2,h3,h4,h5,h6\n    double precision dum1,dum2,dum3,dum4   ! dummy variables\n    double precision rhin,tempin ! rel hum in\n\n    real(fp)    mydummy\n!\n! !DEFINED PARAMETERS:\n!\n    parameter (neps=1E8, meps=1E-8)\n    parameter (pi=3.14159)\n\n    !=================================================================\n    ! getNucRate begins here\n    !=================================================================\n\n    h2so4 = Gci(srtso4)/boxvol*1000.e+0_fp/98.e+0_fp*6.022e+23_fp\n    nh3ppt = Gci(srtnh4)/17.e+0_fp/(boxmass/29.e+0_fp)*1e+12_fp* &\n             PRES/101325.*273./TEMPTMS ! corrected for pressure (because this should be concentration)\n\n    fn = 0.e+0_fp\n    rnuc = 0.e+0_fp\n\n    !print*,'h2so4',h2so4,'nh3ppt',nh3ppt\n\n    ! if requirements for nucleation are met, call nucleation subroutines\n    ! and get the nucleation rate and critical cluster size\n    if (h2so4.gt.1.e+4_fp) then\n       if ((nh3ppt.gt.0.1).and.(tern_nuc.eq.1)) then\n          ! print*, 'napari'\n          call napa_nucl(TEMPTMS,RHTOMAS,h2so4,nh3ppt,fn,rnuc) !ternary nuc\n          if (ion_nuc.eq.1.and.ionrate.ge.1.e+0_fp) then\n             call ion_nucl(h2so4,surf_area,TEMPTMS,ionrate,RHTOMAS, &\n                           h1,h2,h3,h4,h5,h6)\n          else\n             h1=0.e+0_fp\n          endif\n          if (h1.gt.fn)then\n             fn=h1\n             rnuc=h5\n          endif\n          nflg=.true.\n       elseif (bin_nuc.eq.1) then\n          ! print*, 'vehk'\n          call vehk_nucl(TEMPTMS,RHTOMAS,h2so4,fn,rnuc) !binary nuc\n          if ((ion_nuc.eq.1).and.(ionrate.ge.1.e+0_fp)) then\n             call ion_nucl(h2so4,surf_area,TEMPTMS,ionrate,RHTOMAS, &\n                           h1,h2,h3,h4,h5,h6)\n          else\n             h1=0.e+0_fp\n          endif\n          if (h1.gt.fn)then\n             fn=h1\n             rnuc=h5\n          endif\n          if (fn.gt.1.0e-6_fp)then\n             nflg=.true.\n          else\n             fn = 0.e+0_fp\n             nflg=.false.\n          endif\n       elseif ((ion_nuc.eq.1).and.(ionrate.ge.1.e+0_fp)) then\n          call ion_nucl(h2so4,surf_area,TEMPTMS,ionrate,RHTOMAS, &\n                        h1,h2,h3,h4,h5,h6)\n          fn=h1\n          rnuc=h5\n          nflg=.true.\n       elseif(ion_nuc.eq.2) then\n          ! Yu Ion nucleation\n          !! first we need to calculate the available surface area\n          !surf_area = 0.e+0_fp\n          !do k=1, ibins\n          !   if (Nki(k) .gt. Neps) then\n          !      Mktot=0.e+0_fp\n          !      do j=1,icomp\n          !         Mktot=Mktot+Mki(k,j)\n          !      enddo\n          !      mp=Mktot/Nki(k)\n          !      density=aerodens(Mki(k,srtso4),0.e+0_fp, &\n          !                       Mki(k,srtnh4),0.e+0_fp,Mki(k,srth2o))  ! assume bisulfate\n          !      ! diameter = ((mass/density)*(6/pi))**(1/3)\n          !      d2 = 1.D6*((mp/density)*(6.D0/pi))**(1.D0/3.D0) ! (micrometers)\n          !      ! surface area per particle = pi*diameter**2\n          !      surf_area = surf_area + 1.D-6*(Nki(k)/boxvol)* &\n          !                  pi*(d2**2.D0) ! (um2 cm-2)\n          !   endif\n          !enddo\n          rhin=dble(RHTOMAS*100.e+0_fp)\n          tempin=dble(TEMPTMS)\n          !call YUJIMN(h2so4, rhin, tempin, ionrate, surf_area, &\n          !            fn, dum1, rnuc, dum2)\n          fn=0.\n          rnuc=1E-9\n          nflg=.true.\n       else\n          nflg=.false.\n       endif\n       if((act_nuc.eq.1).and.(lev.le.7))then\n          call bl_nucl(h2so4,fn,rnuc)\n          nflg=.true.\n       endif\n       call cf_nucl(TEMPTMS,RHTOMAS,h2so4,nh3ppt,fn_c) ! use barrierless nucleation as a max for ternary\n       fn = min(fn,fn_c)\n    else\n       nflg=.false.\n    endif\n\n    if (fn.gt.0.e+0_fp) then\n       call getCondSink_kerm(Nk,Mk,CS,Dpmean,Dp1,dens1, &\n                             BOXVOL, TEMPTMS, PRES)\n       d1 = rnuc*2.e+0_fp*1e-9_fp\n       drymass = 0.e+0_fp\n       do j=1,icomp-idiag\n          drymass = drymass + Mk(1,j)\n       enddo\n       wetmass = 0.e+0_fp\n       do j=1,icomp\n          wetmass = wetmass + Mk(1,j)\n       enddo\n       !prior 10/15/08\n       !WR = wetmass/drymass\n\n       ! prevent division by zero (win, 10/15/08)\n       if( drymass == 0.e+0_fp ) then\n          WR = 1.e+0_fp\n       else\n          WR = wetmass/drymass\n       endif\n\n       !print*,'[getnucrate] Gci',Gci\n       !print*,'WR',WR, 'drymass',drymass, 'wetmass',wetmass\n       call getGrowthTime(d1,Dp1,Gci(srtso4)*WR,TEMPTMS, &\n                          boxvol,dens1,gtime)\n       GR = (Dp1-d1)*1e+9_fp/gtime*3600.e+0_fp ! growth rate, nm hr-1\n\n       gamma = 0.23e+0_fp*(d1*1.0e+9_fp)**(0.2e+0_fp)* &\n               (Dp1*1.0e+9_fp/3.e+0_fp)**0.075e+0_fp* &\n               (Dpmean*1.0e+9_fp/150.e+0_fp)** &\n               0.048e+0_fp*(dens1*1.0e-3_fp)** &\n               (-0.33e+0_fp)*(TEMPTMS/293.e+0_fp) ! equation 5 in kerminen\n       eta = gamma*CS/GR\n       !print*,'fn1',fn\n       if (Dp1.gt.d1)then\n          fn = fn*exp(eta/(Dp1*1.0e+9_fp)-eta/(d1*1.0e+9_fp))\n       endif\n       !print*,'fn2',fn\n       if( IT_IS_NAN( fn ) ) then\n          print*, '---------------->>> Found NAN in GETNUCRATE'\n          print*,'fn',fn\n          print*,'eta',eta, 'Dp1',Dp1,'d1',d1\n          print*,'gamma',gamma,'CS',CS,'GR',GR,'gtime',gtime\n          call ERROR_STOP('Found NaN in fn','getnucrate')\n       endif\n\n       mnuc = sqrt(xk(1)*xk(2))\n    endif\n\n    return\n\n  end SUBROUTINE GETNUCRATE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: vehk_nucl\n!\n! !DESCRIPTION: Subroutine vehk_nucl calculates the binary nucleation rate and\n!  radius of the critical nucleation cluster using the parameterization of...\n!  .\n!    Vehkamaki, H., M. Kulmala, I. Napari, K. E. J. Lehtinen, C. Timmreck,\n!    M. Noppel, and A. Laaksonen. \"An Improved Parameterization for Sulfuric\n!    Acid-Water Nucleation Rates for Tropospheric and Stratospheric Conditions.\"\n!    Journal of Geophysical Research-Atmospheres 107, no. D22 (2002).\n!  .\n!  WRITTEN BY Jeff Pierce, April 2007 for GISS GCM-II'\n!  Introduce to GEOS-Chem by Win Trivitayanurak Sep 29,2008\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE VEHK_NUCL (tempi,rhi,cnai,fn,rnuc)\n!\n! !INPUT PARAMETERS:\n!\n    real*4,   intent(in)   :: tempi ! temperature of air [K]\n    real*4,   intent(in)   :: rhi ! relative humidity of air as a fraction\n    real(fp), intent(in)   :: cnai ! concentration of gas phase sulfuric acid [molec cm-3]\n!\n! !OUTPUT PARAMETERS:\n!\n    real(fp), intent(out)  :: fn ! nucleation rate [cm-3 s-1]\n    real(fp), intent(out)  :: rnuc ! critical cluster radius [nm]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)  :: fb0(10),fb1(10),fb2(10),fb3(10),fb4(10),fb(10)\n    REAL(fp)  :: gb0(10),gb1(10),gb2(10),gb3(10),gb4(10),gb(10) ! set parameters\n    REAL(fp)  :: temp    ! temperature of air [K]\n    REAL(fp)  :: rh      ! relative humidity of air as a fraction\n    REAL(fp)  :: cna     ! concentration of gas phase sulfuric acid [molec cm-3]\n    REAL(fp)  :: xstar   ! mole fraction sulfuric acid in cluster\n    REAL(fp)  :: ntot    ! total number of molecules in cluster\n    integer   :: i       ! counter\n\n    ! Nucleation Rate Coefficients\n    data fb0 /0.14309, 0.117489, -0.215554, -3.58856, 1.14598, &\n              2.15855, 1.6241, 9.71682, -1.05611, -0.148712        /\n    data fb1 /2.21956, 0.462532, -0.0810269, 0.049508, -0.600796, &\n              0.0808121, -0.0160106, -0.115048, 0.00903378, 0.00283508/\n    data fb2 /-0.0273911, -0.0118059, 0.00143581, -0.00021382, &\n               0.00864245, -0.000407382, 0.0000377124, 0.000157098, &\n              -0.0000198417, -9.24619e-6_fp /\n    data fb3 /0.0000722811, 0.0000404196, &\n             -4.7758e-6_fp, 3.10801e-7_fp, &\n             -0.0000228947, -4.01957e-7_fp, &\n              3.21794e-8_fp, 4.00914e-7_fp, &\n              2.46048e-8_fp, 5.00427e-9_fp /\n    data fb4 /5.91822, 15.7963, -2.91297, -0.0293333, -8.44985, &\n              0.721326, -0.0113255, 0.71186, -0.0579087, -0.0127081  /\n\n    ! Coefficients of total number of molecules in cluster\n    data gb0 /-0.00295413, -0.00205064, 0.00322308, 0.0474323, &\n              -0.0125211, -0.038546, -0.0183749, -0.0619974, &\n               0.0121827, 0.000320184 /\n    data gb1 /-0.0976834, -0.00758504, 0.000852637, -0.000625104, &\n               0.00580655, -0.000672316, 0.000172072, 0.000906958, &\n              -0.00010665, -0.0000174762 /\n    data gb2 /0.00102485, 0.000192654, &\n             -0.0000154757, 2.65066e-6_fp, &\n             -0.000101674, 2.60288e-6_fp, &\n             -3.71766e-7_fp, -9.11728e-7_fp, &\n             2.5346e-7_fp, 6.06504e-8_fp /\n    data gb3 /-2.18646e-6_fp, -6.7043e-7_fp, &\n               5.66661e-8_fp, -3.67471e-9_fp, &\n               2.88195e-7_fp, 1.19416e-8_fp, &\n              -5.14875e-10_fp, -5.36796e-9_fp, &\n              -3.63519e-10_fp, -1.42177e-11_fp /\n    data gb4 /-0.101717, -0.255774, 0.0338444, -0.000267251, &\n               0.0942243, -0.00851515, 0.00026866, -0.00774234, &\n               0.000610065, 0.000135751 /\n\n    !=================================================================\n    ! VEHK_NUCL begins here!\n    !=================================================================\n    temp=dble(tempi)\n    rh=dble(rhi)\n    cna=cnai\n\n    ! Respect the limits of the parameterization\n    if (cna .lt. 1.e4_fp) then ! limit sulf acid conc\n       fn = 0.\n       rnuc = 1.\n       !print*,'cna < 1D4', cna\n       goto 10\n    endif\n    if (cna .gt. 1.0e+11_fp) cna=1.0e11 ! limit sulfuric acid conc\n    if (temp .lt. 230.15) temp=230.15 ! limit temp\n    if (temp .gt. 305.15) temp=305.15 ! limit temp\n    if (rh .lt. 1e-4_fp) rh=1e-4_fp ! limit rh\n    if (rh .gt. 1.) rh=1. ! limit rh\n\n    ! Mole fraction of sulfuric acid\n    xstar=0.740997-0.00266379*temp-0.00349998*log(cna) &\n         +0.0000504022*temp*log(cna)+0.00201048*log(rh) &\n         -0.000183289*temp*log(rh)+0.00157407*(log(rh))**2. &\n         -0.0000179059*temp*(log(rh))**2. &\n         +0.000184403*(log(rh))**3. &\n         -1.50345e-6_fp*temp*(log(rh))**3.\n\n    ! Nucleation rate coefficients\n    do i=1, 10\n       fb(i) = fb0(i)+fb1(i)*temp+fb2(i)*temp**2. &\n              +fb3(i)*temp**3.+fb4(i)/xstar\n    enddo\n\n    ! Nucleation rate (1/cm3-s)\n    fn = exp(fb(1)+fb(2)*log(rh)+fb(3)*(log(rh))**2. &\n         +fb(4)*(log(rh))**3.+fb(5)*log(cna) &\n         +fb(6)*log(rh)*log(cna)+fb(7)*(log(rh))**2.*log(cna) &\n         +fb(8)*(log(cna))**2.+fb(9)*log(rh)*(log(cna))**2. &\n         +fb(10)*(log(cna))**3.)\n\n    !print*,'in vehk_nuc, fn',fn\n    !print*,'cna',cna,'rh',rh,'temp',temp\n    !print*,'xstar',xstar\n\n    ! Cap at 10^6 particles/s, limit for parameterization\n    if (fn.gt.1.0e+6_fp) then\n       fn=1.0e+6_fp\n    endif\n\n    ! Coefficients of total number of molecules in cluster\n    do i=1, 10\n       gb(i) = gb0(i)+gb1(i)*temp+gb2(i)*temp**2. &\n              +gb3(i)*temp**3.+gb4(i)/xstar\n    enddo\n    ! Total number of molecules in cluster\n    ntot=exp(gb(1)+gb(2)*log(rh)+gb(3)*(log(rh))**2. &\n         +gb(4)*(log(rh))**3.+gb(5)*log(cna) &\n         +gb(6)*log(rh)*log(cna)+gb(7)*log(rh)**2.*log(cna) &\n         +gb(8)*(log(cna))**2.+gb(9)*log(rh)*(log(cna))**2. &\n         +gb(10)*(log(cna))**3.)\n\n    ! cluster radius\n    rnuc=exp(-1.6524245+0.42316402*xstar+0.3346648*log(ntot)) ! [nm]\n\n10  return\n\n  end SUBROUTINE VEHK_NUCL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: bl_nucl\n!\n! !DESCRIPTION: This subroutine calculates a simple binary nucleation rate of\n!  1 nm particles.\n!  WRITTEN BY Jeff Pierce, April 2007\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE bl_nucl(cnai,fn,rnuc)\n!\n! !INPUT PARAMETERS:\n!\n    ! concentration of gas phase sulfuric acid [molec cm-3]\n    double precision cnai\n!\n! !OUTPUT PARAMETERS:\n!\n    double precision fn                   ! nucleation rate [cm-3 s-1]\n    double precision rnuc                 ! critical cluster radius [nm]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    double precision cna ! concentration of gas phase sulfuric acid [molec cm-3]\n    double precision A   ! prefactor... empirical\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(A=2.0e-6_fp)\n\n    !=================================================================\n    ! bl_nucl begins here\n    !=================================================================\n\n    cna=cnai\n\n    fn=A*cna\n    rnuc=0.5e+0_fp ! particle diameter of 1 nm\n\n10  return\n\n  end SUBROUTINE bl_nucl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: napa_nucl\n!\n! !DESCRIPTION:  Subroutine NAPA_NUCL calculates the ternary nucleation rate\n!  and radius of the critical nucleation cluster using the parameterization of\n!  .\n!     Napari, I., M. Noppel, H. Vehkamaki, and M. Kulmala. \"Parametrization of\n!     Ternary Nucleation Rates for H2so4-Nh3-H2o Vapors.\" Journal of Geophysical\n!     Research-Atmospheres 107, no. D19 (2002).\n!  .\n!  WRITTEN BY Jeff Pierce, April 2007 for GISS GCM-II'\n!  Introduce to GEOS-Chem by Win Trivitayanurak Sep 29, 2008\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE napa_nucl(tempi,rhi,cnai,nh3ppti,fn,rnuc)\n!\n! !INPUT PARAMETERS:\n!\n    real*4,   intent(in) :: tempi ! temperature of air [K]\n    real*4,   intent(in) :: rhi ! relative humidity of air as a fraction\n    real(fp), intent(in) :: cnai ! concentration of gas phase sulfuric acid [molec cm-3]\n    real(fp), intent(in) :: nh3ppti ! concentration of gas phase ammonia\n!\n! !OUTPUT PARAMETERS:\n!\n    real(fp), intent(out):: fn  ! nucleation rate [cm-3 s-1]\n    real(fp), intent(out):: rnuc ! critical cluster radius [nm]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real(fp)    ::  aa0(20),a1(20),a2(20),a3(20),fa(20) ! set parameters\n    real(fp)    ::  fnl     ! natural log of nucleation rate\n    real(fp)    ::  temp    ! temperature of air [K]\n    real(fp)    ::  rh      ! relative humidity of air as a fraction\n    real(fp)    ::  cna     ! concentration of gas phase sulfuric acid [molec cm-3]\n    real(fp)    ::  nh3ppt  ! concentration of gas phase ammonia\n    integer     ::  i       ! counter\n\n    ! Adjustable parameters\n    data aa0 /-0.355297, 3.13735, 19.0359, 1.07605, 6.0916, &\n               0.31176, -0.0200738, 0.165536, &\n               6.52645, 3.68024, -0.066514, 0.65874, &\n               0.0599321, -0.732731, 0.728429, 41.3016, &\n               -0.160336, 8.57868, 0.0530167, -2.32736        /\n\n    data a1 /-33.8449, -0.772861, -0.170957, 1.48932, -1.25378, &\n               1.64009, -0.752115, 3.26623, -0.258002, -0.204098, &\n              -7.82382, 0.190542, 5.96475, -0.0184179, 3.64736, &\n              -0.35752, 0.00889881, -0.112358, -1.98815, 0.0234646/\n\n    data a2 /0.34536, 0.00561204, 0.000479808, -0.00796052, &\n             0.00939836, -0.00343852, 0.00525813, -0.0489703, &\n             0.00143456, 0.00106259, 0.0122938, -0.00165718, &\n            -0.0362432, 0.000147186, -0.027422, 0.000904383, &\n            -5.39514d-05, 0.000472626, 0.0157827, -0.000076519/\n\n    data a3 /-0.000824007, -9.74576e-06_fp, &\n             -4.14699e-07_fp, 7.61229e-06_fp, &\n             -1.74927e-05_fp, -1.09753e-05_fp, &\n             -8.98038e-06_fp, 0.000146967, &\n             -2.02036e-06_fp, -1.2656e-06_fp, &\n              6.18554e-05_fp, 3.41744e-06_fp, &\n              4.93337e-05_fp, -2.37711e-07_fp, &\n              4.93478e-05_fp, -5.73788e-07_fp, &\n              8.39522e-08_fp, -6.48365e-07_fp, &\n             -2.93564e-05_fp, 8.0459e-08_fp   /\n\n    !=================================================================\n    ! NAPA_NUCL begins here!\n    !=================================================================\n    temp=dble(tempi)\n    rh=dble(rhi)\n    cna=cnai\n    nh3ppt=nh3ppti\n\n    ! Napari's parameterization is only valid within limited area\n    if ((cna .lt. 1.e+4_fp).or.(nh3ppt.lt.0.1)) then ! limit sulf acid and nh3 conc\n       fn = 0.\n       rnuc = 1\n       goto 10\n    endif\n    if (cna .gt. 1.0e+9_fp) cna=1.0e+9_fp ! limit sulfuric acid conc\n    if (nh3ppt .gt. 100.) nh3ppt=100. ! limit temp\n    if (temp .lt. 240.) temp=240. ! limit temp\n    if (temp .gt. 300.) temp=300. ! limit temp\n    if (rh .lt. 0.05) rh=0.05 ! limit rh\n    if (rh .gt. 0.95) rh=0.95 ! limit rh\n\n    do i=1,20\n       fa(i)=aa0(i)+a1(i)*temp+a2(i)*temp**2.+a3(i)*temp**3.\n    enddo\n\n    fnl=-84.7551+fa(1)/log(cna)+fa(2)*log(cna)+fa(3)*(log(cna))**2. &\n       +fa(4)*log(nh3ppt)+fa(5)*(log(nh3ppt))**2.+fa(6)*rh &\n       +fa(7)*log(rh)+fa(8)*log(nh3ppt)/log(cna)+fa(9)*log(nh3ppt) &\n       *log(cna)+fa(10)*rh*log(cna)+fa(11)*rh/log(cna) &\n       +fa(12)*rh &\n       *log(nh3ppt)+fa(13)*log(rh)/log(cna)+fa(14)*log(rh) &\n       *log(nh3ppt)+fa(15)*(log(nh3ppt))**2./log(cna)+fa(16)*log(cna) &\n       *(log(nh3ppt))**2.+fa(17)*(log(cna))**2.*log(nh3ppt) &\n       +fa(18)*rh &\n       *(log(nh3ppt))**2.+fa(19)*rh*log(nh3ppt)/log(cna)+fa(20) &\n       *(log(cna))**2.*(log(nh3ppt))**2.\n\n    fn=exp(fnl)\n\n    ! Try scaling down the rate by 1e-5 to see how the param is\n    ! doing on the false positive nucleation (win, 12/18/08)\n    !sensitivity simulation, change scaling factor down to 1e-4\n    fn = fn * 1.e-5\n\n    ! Cap at 10^6 particles/cm3-s, limit for parameterization\n    if (fn.gt.1.0e+6_fp) then\n       fn=1.0e+6_fp\n       fnl=log(fn)\n    endif\n\n    rnuc=0.141027-0.00122625*fnl-7.82211e-6_fp*fnl**2. &\n        -0.00156727*temp-0.00003076*temp*fnl &\n        +0.0000108375*temp**2.\n\n10  return\n\n  end subroutine napa_nucl\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getcondsink\n!\n! !DESCRIPTION: Subroutine GETCONDSINK\\_KERM calculates the condensation sink\n!  (first order loss rate of condensing gases) from the aerosol size\n!  distribution.\n!  .\n!  This is the cond sink in kerminen et al 2004 Parameterization for\n!  new particle formation AS&T Eqn 6.\n!  .\n!  Written by Jeff Pierce, May 2007 for GISS GCM-II'\n!  Introduced to GEOS-Chem by Win Trivitayanurak, Sep 29, 2008\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE getCondSink_kerm(Nko,Mko,CS,Dpmean,Dp1,dens1, &\n                              BOXVOL, TEMPTMS, PRES)\n!\n! !INPUT PARAMETERS:\n!\n    ! Nk(ibins) - number of particles per size bin in grid cell\n    ! Mk(ibins, icomp) - mass of a given species per size bin/grid cell\n    REAL(fp), INTENT(IN)        :: Nko(ibins), Mko(ibins, icomp)\n    REAL*4,   INTENT(IN)        :: BOXVOL, TEMPTMS, PRES\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT)       :: CS       ! CS - condensation sink [s^-1]\n    REAL(fp), INTENT(OUT)       :: Dpmean   ! the number mean diameter [m]\n    REAL(fp), INTENT(OUT)       :: Dp1      ! the size of the first size bin [m]\n    REAL(fp), INTENT(OUT)       :: dens1    ! the density of the first size bin [kg/m3]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Nnuc - number of particles per size bin in grid cell\n    ! Mnuc - mass of given species in nucleation pseudo-bin (kg/grid cell)\n    ! spec - number of the species we are finding the condensation sink for\n    ! sinkfrac(ibins) - fraction of condensation sink from a bin\n    integer        :: i,j,k,c           ! counters\n    REAL(fp)       :: pi, R    ! pi and gas constant (J/mol K)\n    REAL(fp)       :: mu                  !viscosity of air (kg/m s)\n    REAL(fp)       :: mfp                 !mean free path of air molecule (m)\n    REAL*4         :: Di       !diffusivity of gas in air (m2/s)\n    REAL(fp)       :: Neps     !tolerance for number\n    REAL*4         :: density  !density [kg m^-3]\n    REAL(fp)       :: mp       !mass per particle [kg]\n    REAL(fp)       :: Dpk(ibins) !diameter of particle [m]\n    REAL(fp)       :: Kn       !Knudson number\n    REAL(fp)       :: beta(ibins) !non-continuum correction factor\n    REAL(fp)       :: Mktot    !total mass in bin [kg]\n    REAL(fp)       :: Dtot,Ntot ! used on getting the number mean diameter\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(pi=3.141592654, R=8.314) !pi and gas constant (J/mol K)\n    parameter(Neps=1.0e+10_fp)\n\n    !=================================================================\n    ! GETCONDSINK_KERM  begins here!\n    !=================================================================\n\n    ! get some parameters\n    mu=2.5277e-7*TEMPTMS**0.75302\n    !mfp=2.0*mu / ( pres*sqrt( 8.0 * 0.6589 / (pi*R*TEMPTMS) ) )  !S&P eqn 8.6\n    mfp=2.0*mu / ( pres*sqrt( 8.0 * 0.0289 / (pi*R*TEMPTMS) ) )  !S&P eqn 8.6\n    !Di=gasdiff(temp,pres,98.0,Sv(srtso4))\n    !print*,'Di',Di\n\n    ! get size dependent values\n    CS = 0.e+0_fp\n    Ntot = 0.e+0_fp\n    Dtot = 0.e+0_fp\n    do k=1,ibins\n       if (Nko(k) .gt. Neps) then\n          Mktot=0.e+0_fp\n          do j=1,icomp\n             Mktot=Mktot+Mko(k,j)\n          enddo\n          !kpc Density should be changed due to more species involed.\n          density=aerodens(Mko(k,srtso4),0.e+0_fp, &\n                  Mko(k,srtnh4),Mko(k,srtnacl),Mko(k,srtecil), &\n                  Mko(k,srtecob),Mko(k,srtocil),Mko(k,srtocob), &\n                  Mko(k,srtdust),Mko(k,srth2o))\n          mp=Mktot/Nko(k)\n       else\n          !nothing in this bin - set to \"typical value\"\n          density=1500.\n          mp=1.4*xk(k)\n       endif\n       Dpk(k)=((mp/density)*(6./pi))**(0.333)\n       Kn=2.0*mfp/Dpk(k)      !S&P eqn 11.35 (text)\n       CS=CS+0.5e+0_fp*(Dpk(k)*Nko(k)/(dble(boxvol)*1.0e-6_fp)*(1+Kn)) &\n            /(1.e+0_fp+0.377e+0_fp*Kn+1.33e+0_fp*Kn*(1+Kn))\n       Ntot = Ntot + Nko(k)\n       Dtot = Dtot + Nko(k)*Dpk(k)\n       if (k.eq.1)then\n          Dp1=Dpk(k)\n          dens1 = density\n       endif\n    enddo\n\n    if (Ntot.gt.1e+15_fp)then\n       Dpmean = Dtot/Ntot\n    else\n       Dpmean = 150.e+0_fp\n    endif\n\n    return\n\n  END SUBROUTINE GETCONDSINK_KERM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getgrowthtime\n!\n! !DESCRIPTION: This subroutine calculates the time it takes for a particle to\n!  grow from one size to the next by condensation of sulfuric acid (and\n!  associated NH3 and water) onto particles.\n!  .\n!  This subroutine assumes that the growth happens entirely in the kinetic\n!  regine such that the dDp/dt is not size dependent.  The time for growth\n!  to the first size bin may then be approximated by the time for growth via\n!  sulfuric acid (not including nh4 and water) to the size of the first size bin\n!  (not including nh4 and water).\n!  WRITTEN BY Jeff Pierce, April 2007 for GISS GCM-II'\n!  Introduce to GEOS-Chem by Win Trivitayanurak (win, 9/29/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE getGrowthTime (d1,d2,h2so4,temp,boxvol,density,gtime)\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ERROR_STOP, IT_IS_NAN\n!\n! !INPUT PARAMETERS:\n!\n    ! d1: intial diameter [m]\n    ! d2: final diameter [m]\n    ! h2so4: h2so4 ammount [kg]\n    ! temp: temperature [K]\n    ! boxvol: box volume [cm3]\n    REAL(fp), INTENT(IN)  ::  d1,d2    ! initial and final diameters [m]\n    REAL(fp), INTENT(IN)  ::  h2so4    ! h2so4 amount [kg]\n    real*4,   INTENT(IN)  ::  temp     ! temperature [K]\n    real*4,   INTENT(IN)  ::  boxvol  ! box volume [cm3]\n    REAL(fp), INTENT(IN)  ::  density  ! density of particles in first bin [kg/m3]\n!\n! !OUTPUT PARAMETERS:\n!\n    ! gtime: the time it takes the particle to grow to first size bin [s]\n    REAL(fp), INTENT(OUT) ::  gtime    ! the time it will take the particle to\n                                       ! grow to first size bin [s]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)     ::  pi, R, MW\n    REAL(fp)     ::  csulf    ! concentration of sulf acid [kmol/m3]\n    REAL(fp)     ::  mspeed   ! mean speed of molecules [m/s]\n    REAL(fp)     ::  alpha    ! accomidation coef\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(pi=3.141592654e+0_fp, R=8.314e+0_fp) !pi and gas constant (J/mol K)\n    parameter(MW=98.e+0_fp) ! density [kg/m3], mol wgt sulf [kg/kmol]\n    parameter(alpha=0.65)\n\n    !=================================================================\n    ! GETGROWTHTIME begins here!\n    !=================================================================\n    !print *,'h2so4',h2so4,'MW',MW,'boxvol',boxvol,dble(boxvol)\n\n    csulf = h2so4/MW/(dble(boxvol)*1e-6_fp) ! SA conc. [kmol/m3]\n    mspeed = sqrt(8.e+0_fp*R*dble(temp)*1000.e+0_fp/(pi*MW))\n\n    ! Kinetic regime expression (S&P 11.25) solved for T\n    gtime = (d2-d1)/(4.e+0_fp*MW/density*mspeed*alpha*csulf)\n\n    if ( IT_IS_NAN(gtime) ) then\n       !jrp\n       print*,'IN GET GROWTH TIME'\n       print*,'d1',d1,'d2',d2\n       print*,'h2so4',h2so4\n       print*,'boxvol',boxvol\n       print*,'csulf',csulf,'mspeed',mspeed\n       print*,'density',density,'gtime',gtime\n       call ERROR_STOP('Found NaN in fn','getnucrate')\n    endif\n\n    RETURN\n\n  END SUBROUTINE GETGROWTHTIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: nucleation\n!\n! !DESCRIPTION: This subroutine calls the Vehkamaki 2002 and Napari 2002\n!  nucleation parameterizations and gets the binary and ternary nucleation\n!  rates. The number of particles added to the first size bin is calculated\n!  by comparing the growth rate of the new particles to the coagulation sink.\n!  WRITTEN BY Jeff Pierce, April 2007 for GISS GCM-II'\n!  Introduce to GEOS-Chem by Win Trivitayanurak (win, 9/30/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NUCLEATION(Nki,Mki,Gci,Nkf,Mkf,Gcf,fn,fn1,totsulf, &\n                        nuc_bin,dt,ionrate, surf_area, BOXVOL, BOXMASS, &\n                        TEMPTMS, PRES, RHTOMAS, pdbg,lev)\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ERROR_STOP, IT_IS_NAN\n!\n! !INPUT PARAMETERS:\n!\n    !Initial values of\n    !=================\n    !Nki(ibins) - number of particles per size bin in grid cell\n    !Mki(ibins, icomp) - mass of a given species per size bin/grid cell\n    !Gci(icomp-1) - amount (kg/grid cell) of all species present in the\n    !               gas phase except water\n    !dt - total model time step to be taken (s)\n    double precision Nki(ibins), Mki(ibins, icomp), Gci(icomp-1)\n    REAL*4, INTENT(IN)       :: BOXVOL,  BOXMASS, TEMPTMS\n    REAL*4, INTENT(IN)       :: PRES,    RHTOMAS\n!\n! !OUTPUT PARAMETERS:\n!\n    !Nkf, Mkf, Gcf - same as above, but final values\n    !fn, fn1\n    double precision Nkf(ibins), Mkf(ibins, icomp), Gcf(icomp-1)\n    integer j,i,k\n    double precision totsulf\n    integer nuc_bin\n    double precision dt\n    double precision fn       ! nucleation rate of clusters cm-3 s-1\n    double precision fn1      ! formation rate of particles to first size bin cm-3 s-1\n\n    LOGICAL  PDBG             ! Signal print for debug\n    integer lev ! layer of model\n\n    REAL(fp)                     ionrate\n    REAL(fp)                     surf_area\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    double precision nh3ppt   ! gas phase ammonia in pptv\n    double precision h2so4    ! gas phase h2so4 in molec cc-1\n    double precision rnuc     ! critical nucleation radius [nm]\n    double precision gtime    ! time to grow to first size bin [s]\n    double precision ltc, ltc1, ltc2 ! coagulation loss rates [s-1]\n    double precision Mktot    ! total mass in bin\n    double precision neps\n    double precision meps\n    double precision density  ! density of particle [kg/m3]\n    double precision pi\n    double precision frac     ! fraction of particles growing into first size bin\n    double precision d1,d2    ! diameters of particles [m]\n    double precision mp       ! mass of particle [kg]\n    double precision mold     ! saved mass in first bin\n    double precision mnuc     !mass of nucleation\n    double precision sinkfrac(ibins) ! fraction of loss to different size bins\n    double precision nadd     ! number to add\n    double precision CS       ! kerminan condensation sink [m-2]\n    double precision Dpmean   ! the number wet mean diameter of the existing aerosol\n    double precision Dp1      ! the wet diameter of bin 1\n    double precision dens1    ! density in bin 1 [kg m-3]\n    double precision GR       ! growth rate [nm hr-1]\n    double precision gamma,eta ! used in kerminen 2004 parameterzation\n    double precision drymass,wetmass,WR\n    double precision fn_c     ! barrierless nucleation rate\n    double precision h1,h2,h3,h4,h5,h6\n    double precision dum1,dum2,dum3,dum4   ! dummy variables\n    double precision rhin,tempin ! rel hum in\n\n    LOGICAL ERRORSWITCH\n!\n! !DEFINED PARAMETERS:\n!\n    parameter (neps=1E8, meps=1E-8)\n    parameter (pi=3.14159)\n\n    !=================================================================\n    ! NUCLEATION begins here\n    !=================================================================\n\n    errorswitch = .false.\n\n    h2so4 = Gci(srtso4)/boxvol*1000.e+0_fp/98.e+0_fp*6.022e+23_fp\n    nh3ppt = Gci(srtnh4)/17.e+0_fp/(boxmass/29.e+0_fp)*1e+12_fp* &\n             PRES/101325.*273./TEMPTMS ! corrected for pressure (because this should be concentration)\n\n    fn = 0.e+0_fp\n    fn1 = 0.e+0_fp\n    rnuc = 0.e+0_fp\n    gtime = 0.e+0_fp\n    nuc_bin = 1 ! added by Pengfei Liu,initialize  nuc_bin value\n    ! if requirements for nucleation are met, call nucleation subroutines\n    ! and get the nucleation rate and critical cluster size\n    if (h2so4.gt.1.e+4_fp) then\n       if (nh3ppt.gt.0.1.and.tern_nuc.eq.1) then\n          call napa_nucl(TEMPTMS,RHTOMAS,h2so4,nh3ppt,fn,rnuc) !ternary nuc\n          if (ion_nuc.eq.1.and.ionrate.ge.1.e+0_fp) then\n             call ion_nucl(h2so4,surf_area,TEMPTMS,ionrate,RHTOMAS, &\n                           h1,h2,h3,h4,h5,h6)\n          else\n             h1=0.e+0_fp\n          endif\n          if (h1.gt.fn)then\n             fn=h1\n             rnuc=h5\n          endif\n       elseif (bin_nuc.eq.1) then\n          call vehk_nucl(TEMPTMS,RHTOMAS,h2so4,fn,rnuc) !binary nuc\n          if ((ion_nuc.eq.1).and.(ionrate.ge.1.e+0_fp)) then\n             call ion_nucl(h2so4,surf_area,TEMPTMS,ionrate,RHTOMAS, &\n                           h1,h2,h3,h4,h5,h6)\n          else\n             h1=0.e+0_fp\n          endif\n          if (h1.gt.fn)then\n             fn=h1\n             rnuc=h5\n          endif\n          if (fn.lt.1.0e-6_fp)then\n             fn = 0.e+0_fp\n          endif\n       elseif ((ion_nuc.eq.1).and.(ionrate.ge.1.e+0_fp)) then\n          call ion_nucl(h2so4,surf_area,TEMPTMS,ionrate,RHTOMAS, &\n                        h1,h2,h3,h4,h5,h6)\n          fn=h1\n          rnuc=h5\n       elseif(ion_nuc.eq.2) then\n          ! Yu Ion nucleation\n          !! first we need to calculate the available surface area\n          !surf_area = 0.e+0_fp\n          !do k=1, ibins\n          !   if (Nki(k) .gt. Neps) then\n          !      Mktot=0.e+0_fp\n          !      do j=1,icomp\n          !         Mktot=Mktot+Mki(k,j)\n          !      enddo\n          !      mp=Mktot/Nki(k)\n          !      density=aerodens(Mki(k,srtso4),0.e+0_fp, &\n          !                       Mki(k,srtnh4),0.e+0_fp,Mki(k,srth2o))  ! assume bisulfate\n          !      ! diameter = ((mass/density)*(6/pi))**(1/3)\n          !      d2 = 1.D6*((mp/density)*(6.D0/pi))**(1.D0/3.D0) ! (micrometers)\n          !      ! surface area per particle = pi*diameter**2\n          !      surf_area = surf_area + 1.D-6*(Nki(k)/boxvol)* &\n          !                              pi*(d2**2.D0) ! (um2 cm-2)\n          !   endif\n          !enddo\n          rhin=dble(RHTOMAS*100.e+0_fp)\n          tempin=dble(TEMPTMS)\n\n          !call YUJIMN(h2so4, rhin, tempin, ionrate, surf_area, &\n          !            fn, dum1, rnuc, dum2)\n          fn=0.\n          rnuc=1E-9\n       endif\n       if((act_nuc.eq.1).and.(lev.le.7))then\n          call bl_nucl(h2so4,fn,rnuc)\n       endif\n       call cf_nucl(TEMPTMS,RHTOMAS,h2so4,nh3ppt,fn_c) ! use barrierless nucleation as a max\n       fn = min(fn,fn_c)\n       !if (fn.gt.1.0)then\n       !   print*, 'fn',fn\n       !   print*, 'Yu Yes!'\n       !   print*, 'ionrate',ionrate\n       !   print*, 'surf_area',surf_area\n       !endif\n    endif\n\n    if (pdbg) then\n       if( bin_nuc == 1 ) then\n          print *, 'BINARY cluster form rate : fn',fn\n       else\n          print *, 'TERNARY cluster form rate: fn',fn\n       endif\n    endif\n\n    ! if nucleation occured, see how many particles grow to join the first size\n    ! section\n    if (fn.gt.0.e+0_fp) then\n\n       if(pdbg) print*,'Nki',Nki\n       if(pdbg) print*,'Mki',Mki\n\n       call getCondSink_kerm(Nki,Mki,CS,Dpmean,Dp1,dens1,BOXVOL,TEMPTMS,PRES)\n\n       if(pdbg) print*,'CS',CS,'Dpmean',Dpmean,'Dp1',Dp1,'dens1',dens1\n\n       d1 = rnuc*2.e+0_fp*1e-9_fp\n       drymass = 0.e+0_fp\n       do j=1,icomp-idiag\n          drymass = drymass + Mki(1,j)\n       enddo\n       wetmass = 0.e+0_fp\n       do j=1,icomp\n          wetmass = wetmass + Mki(1,j)\n       enddo\n\n       ! to prevent division by zero (win, 10/1/08)\n       if(drymass == 0.e+0_fp) then\n          WR = 1.e+0_fp\n       else\n          WR = wetmass/drymass\n       endif\n\n       if(pdbg) print*,'rnuc',rnuc,'WR',WR\n       if(pdbg) print*,'d1',d1,'Gci(srtso4)',Gci(srtso4),&\n                       'TEMP',temptms,'boxvol',boxvol\n\n       if( IT_IS_NAN( Gci(srtso4) )) then\n          print*,'rnuc',rnuc,'WR',WR\n          print*,'d1',d1,'Gci(srtso4)',Gci(srtso4)\n          call ERROR_STOP('Found NaN in Gci','nucleation')\n       endif\n       ! print*,'[nucleation] Gci',Gci\n       call getGrowthTime(d1,Dp1,Gci(srtso4)*WR,TEMPTMS, &\n                          boxvol,dens1,gtime)\n       if (pdbg) print*,'gtime',gtime\n\n       GR = (Dp1-d1)*1e+9_fp/gtime*3600.e+0_fp ! growth rate, nm hr-1\n\n       gamma = 0.23e+0_fp*(d1*1.0e+9_fp)**(0.2e+0_fp)* &\n               (Dp1*1.0d9/3.e+0_fp)**0.075e+0_fp* &\n               (Dpmean*1.0e+9_fp/150.e+0_fp)** &\n               0.048e+0_fp*(dens1*1.0e-3_fp)** &\n               (-0.33e+0_fp)*(TEMPTMS/293.e+0_fp) ! equation 5 in kerminen\n       eta = gamma*CS/GR\n\n       if (Dp1.gt.d1)then\n          fn1 = fn*exp(eta/(Dp1*1.0e+9_fp)-eta/(d1*1.0e+9_fp))\n       else\n          fn1 = fn\n       endif\n\n       if (pdbg) print*,'eta',eta,'Dp1',Dp1,'d1',d1,'fn1',fn1\n\n       mnuc = sqrt(xk(1)*xk(2))\n\n       nadd = fn1\n\n       nuc_bin = 1\n\n       mold = Mki(nuc_bin,srtso4)\n       Mkf(nuc_bin,srtso4) = Mki(nuc_bin,srtso4)+nadd*mnuc*boxvol*dt\n       Nkf(nuc_bin) = Nki(nuc_bin)+nadd*boxvol*dt\n\n       Gcf(srtso4) = Gci(srtso4) ! - (Mkf(nuc_bin,srtso4)-mold)\n       Gcf(srtnh4) = Gci(srtnh4)\n\n       if (pdbg) then\n          print*, 'nadd',nadd\n          print *,'Mass add to bin',nuc_bin,'=',nadd*mnuc*boxvol*dt\n          print *,'Number added',nadd*boxvol*dt\n          print *,'Gcf(srtso4)',Gcf(srtso4)\n          print *,'Gcf(srtnh4)',Gcf(srtnh4)\n       endif\n\n       do k=1,ibins\n          if (k .ne. nuc_bin)then\n             Nkf(k) = Nki(k)\n             do i=1,icomp\n                Mkf(k,i) = Mki(k,i)\n             enddo\n          else\n             do i=1,icomp\n                if (i.ne.srtso4) then\n                   Mkf(k,i) = Mki(k,i)\n                endif\n             enddo\n          endif\n       enddo\n\n       do k=1,ibins\n          if (Nkf(k).lt.1.e+0_fp) then\n             Nkf(k) = 0.e+0_fp\n             do j=1,icomp\n                Mkf(k,j) = 0.e+0_fp\n             enddo\n          endif\n       enddo\n       !print *, 'mnfix in tomas_mod:2679'\n\n       call mnfix(Nkf,Mkf, ERRORSWITCH)\n       pdbg = errorswitch ! carry the error signal from mnfix to outside\n       if (errorswitch) print*,'NUCLEATION: Error after mnfix'\n\n       ! there is a chance that Gcf will go less than zero because we are\n       ! artificially growing particles into the first size bin.\n       ! don't let it go less than zero.\n\n    else\n\n       do k=1,ibins\n          Nkf(k) = Nki(k)\n          do i=1,icomp\n             Mkf(k,i) = Mki(k,i)\n          enddo\n       enddo\n\n    endif\n\n    pdbg = errorswitch        ! carry the error signal from mnfix to outside\n\n    RETURN\n\n  END SUBROUTINE NUCLEATION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ezcond\n!\n! !DESCRIPTION: This subroutine takes a given amount of mass and condenses it\n!     across the bins accordingly.\n!     WRITTEN BY Jeff Pierce, May 2007 for GISS GCM-II'\n!     Put in GEOS-Chem by Win T. 9/30/08\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EZCOND (Nki,Mki,mcondi,spec,Nkf,Mkf,surf_area, &\n                     BOXVOL, TEMPTMS, PRES, errswitch)\n!\n! !INPUT PARAMETERS:\n!\n    !Initial values of\n    !=================\n    !Nki(ibins) - number of particles per size bin in grid cell\n    !Mki(ibins, icomp) - mass of a given species per size bin/grid cell [kg]\n    !mcond - mass of species to condense [kg/grid cell]\n    !spec - the number of the species to condense\n    double precision Nki(ibins), Mki(ibins, icomp)\n    double precision mcondi\n    REAL*4, INTENT(IN)       :: BOXVOL, TEMPTMS, PRES\n    LOGICAL ERRSWITCH   ! signal error to outside\n\n!\n! !OUTPUT PARAMETERS:\n!\n    !Nkf, Mkf - same as above, but final values\n    double precision Nkf(ibins), Mkf(ibins, icomp)\n    REAL(fp)           surf_area\n    integer spec\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer i,j,k,c           ! counters\n    double precision mcond\n    double precision pi, R    ! pi and gas constant (J/mol K)\n    double precision CS       ! condensation sink [s^-1]\n    double precision sinkfrac(ibins+1) ! fraction of CS in size bin\n    double precision Nk1(ibins), Mk1(ibins, icomp)\n    double precision Nk2(ibins), Mk2(ibins, icomp)\n    double precision madd     ! mass to add to each bin [kg]\n    double precision maddp(ibins)    ! mass to add per particle [kg]\n    double precision mconds ! mass to add per step [kg]\n    integer          nsteps            ! number of condensation steps necessary\n    integer          my_floor, my_ceil       ! the floor and ceiling (temporary)\n    double precision eps     ! small number\n    double precision tdt      !the value 2/3\n    double precision mpo,mpw  !dry and \"wet\" mass of particle\n    double precision WR       !wet ratio\n    double precision tau(ibins) !driving force for condensation\n    double precision totsinkfrac ! total sink fraction not including nuc bin\n    double precision CSeps    ! lower limit for condensation sink\n    double precision tot_m,tot_s    !total mass, total sulfate mass\n    double precision ratio    ! used in mass correction\n    double precision fracch(ibins,icomp)\n    double precision totch\n\n    double precision tot_i,tot_f,tot_fa ! used for conservation of mass check\n    LOGICAL          PDBG,  ERRORSWITCH\n    real(fp)         zeros(ibins)\n!\n! !DEFINED PARAMETERS:\n!\n    parameter(pi=3.141592654, R=8.314) !pi and gas constant (J/mol K)\n    parameter(eps=1.e-40_fp)\n    parameter(CSeps=1.e-20_fp)\n\n    !=================================================================\n    ! EZCOND begins here\n    !=================================================================\n\n    pdbg = errswitch ! take the signal for print debug from outside\n    errswitch = .false. !signal to terminate with error. Initialize with .false.\n\n    tdt=2.e+0_fp/3.e+0_fp\n\n    mcond=mcondi\n\n    ! initialize variables\n    do k=1,ibins\n       Nk1(k)=Nki(k)\n       do j=1,icomp\n          Mk1(k,j)=Mki(k,j)\n       enddo\n    enddo\n\n    !print *, 'mnfix in tomas_mod:2804'\n    call mnfix(Nk1,Mk1, errorswitch)\n    if(errorswitch) then\n       print *, 'EZCOND: MNFIX[1] found error --> TERMINATE'\n       errswitch=.true.\n       return\n    endif\n\n    ! get the sink fractions\n    ! set Nnuc to zero for this calc\n    call getCondSink(Nk1,Mk1,spec,CS,sinkfrac,surf_area, &\n                     BOXVOL,TEMPTMS, PRES)\n\n    ! make sure that condensation sink isn't too small\n    if (CS.lt.CSeps) then     ! just make particles in first bin\n       Mkf(1,spec) = Mk1(1,spec) + mcond\n       Nkf(1) = Nk1(1) + mcond/sqrt(xk(1)*xk(2))\n       do j=1,icomp\n          if (icomp.ne.spec) then\n             Mkf(1,j) = Mk1(1,j)\n          endif\n       enddo\n       do k=2,ibins\n          Nkf(k) = Nk1(k)\n          do j=1,icomp\n             Mkf(k,j) = Mk1(k,j)\n          enddo\n       enddo\n       return\n    endif\n\n    if (pdbg) then\n       print*,'CS',CS\n       print*,'sinkfrac',sinkfrac\n       print*,'mcond',mcond\n    endif\n\n    ! determine how much mass to add to each size bin\n    ! also determine how many condensation steps we need\n    totsinkfrac = 0.e+0_fp\n    do k=1,ibins\n       totsinkfrac = totsinkfrac + sinkfrac(k) ! get sink frac total not including nuc bin\n    enddo\n    nsteps = 1\n    do k=1,ibins\n       if (sinkfrac(k).lt.1.0e-20_fp)then\n          madd = 0.e+0_fp\n       else\n          madd = mcond*sinkfrac(k)/totsinkfrac\n       endif\n       mpo=0.0\n       do j=1,icomp-idiag\n          mpo=mpo + Mk1(k,j)\n       enddo\n       if(mpo == 0.0 ) then  ! prevent division by zero (win, 10/16/08)\n          my_floor = 0\n       else\n          my_floor = int(madd*0.00001/mpo)\n       endif\n       my_ceil = my_floor + 1\n       nsteps = max(nsteps,my_ceil) ! don't let the mass increase by more than 10%\n    enddo\n\n    if(pdbg) print*,'nsteps',nsteps\n\n    ! mass to condense each step\n    mconds = mcond/nsteps\n\n    ! do steps of condensation\n    do i=1,nsteps\n       if (i.ne.1) then\n          ! set Nnuc to zero for this calculation\n          call getCondSink(Nk1,Mk1,spec,CS,sinkfrac,surf_area, &\n                           BOXVOL,TEMPTMS, PRES)\n          totsinkfrac = 0.e+0_fp\n          do k=1,ibins\n             totsinkfrac = totsinkfrac + sinkfrac(k) ! get sink frac total not including nuc bin\n          enddo\n       endif\n\n       tot_m=0.e+0_fp\n       tot_s=0.e+0_fp\n       do k=1,ibins\n          do j=1,icomp-idiag\n             tot_m = tot_m + Mk1(k,j)\n             if (j.eq.srtso4) then\n                tot_s = tot_s + Mk1(k,j)\n             endif\n          enddo\n       enddo\n\n       if (pdbg) print *,'tot_s ',tot_s,' tot_m ',tot_m\n\n       ! change criteria to bigger amount (win, 9/30/08)\n       if (mcond.gt.tot_m*5.0e-2_fp) then\n          if (pdbg) print *,'Entering TMCOND '\n\n          do k=1,ibins\n             mpo=0.0\n             mpw=0.0\n             !WIN'S CODE MODIFICATION 6/19/06\n             !THIS MUST CHANGED WITH THE NEW dmdt_int\n             do j=1,icomp-idiag\n                mpo = mpo+Mk1(k,j) !accumulate dry mass\n             enddo\n             do j=1,icomp\n                mpw = mpw+Mk1(k,j) ! have wet mass include amso4\n             enddo\n             if( mpo > 0.0 ) then    ! prevent division by zero (win, 10/16/08)\n                WR = mpw/mpo  !WR = wet ratio = total mass/dry mass\n             else\n                WR = 1.0\n             endif\n             if (Nk1(k) .gt. 0.e+0_fp) then\n                !Change maddp(k) from mass/no. to be just mass (win,10/3/08)\n                ! this is because in tmcond here, the moxd argument takes\n                ! mass to add for each bin array, not mass/no. array.\n                maddp(k) = mconds*sinkfrac(k)/totsinkfrac\n                !Prior to 10/3/08 (win)\n                !maddp(k) = mconds*sinkfrac(k)/totsinkfrac/Nk1(k)\n                mpw=mpw/Nk1(k)\n\n                if(pdbg) print*,'mpw',mpw,'maddp',maddp(k),'WR',WR\n                !Change the maddp(k) to accordingly -- adding the /Nk1(k) (win, 10/3/08)\n                tau(k)=1.5e+0_fp*((mpw+maddp(k)/Nk1(k)*WR)**tdt-mpw**tdt)\n                ! Prior to 10/3/08 (win)\n                !tau(k)=1.5e+0_fp*((mpw+maddp(k)*WR)**tdt-mpw**tdt) !added WR to moxid term (win, 5/15/06)\n                !     tau(k)=0.e+0_fp\n                !     maddp(k)=0.e+0_fp\n             else\n                !nothing in this bin - set tau to zero\n                tau(k)=0.e+0_fp\n                maddp(k) = 0.e+0_fp\n             endif\n          enddo\n          !print*,'tau',tau\n          !print *, 'mnfix in tomas_mod:2942'\n          call mnfix(Nk1,Mk1, errorswitch)\n          if (errorswitch) then\n             print *, 'EZCOND: MNFIX[2] found error --> TERMINATE'\n             errswitch=.true.\n             return\n          endif\n          ! do condensation\n          errorswitch = pdbg\n          !prior to 9/30/08 from Jeff's version\n          call tmcond(tau,xk,Mk1,Nk1,Mk2,Nk2,spec,errorswitch,maddp)\n\n          ! For SO4 condensation, the last argument should be zeroes (win, 9/30/08)\n          !zeros(:) = 0.e+0_fp\n          !call tmcond(tau,xk,Mk1,Nk1,Mk2,Nk2,spec,errorswitch,zeros)\n\n          if( errorswitch) then\n             errswitch=.true.\n             print *,'EZCOND: error after TMCOND --> TERMINATE'\n             return\n          endif\n          errorswitch = pdbg\n\n          !call tmcond(tau,xk,Mk1,Nk1,Mk2,Nk2,spec)\n          !jrp totch=0.0\n          !jrp do k=1,ibins\n          !jrp    do j=1,icomp\n          !jrp       fracch(k,j)=(Mk2(k,j)-Mk1(k,j))\n          !jrp       totch = totch + (Mk2(k,j)-Mk1(k,j))\n          !jrp    enddo\n          !jrp enddo\n          !print*,'fracch',fracch,'totch',totch\n\n       elseif (mcond.gt.tot_s*1.0e-12_fp) then\n          if (pdbg) print *,'Small mcond: distrib w/ sinkfrac '\n          if (pdbg) print *, 'maddp(bin) to add to SO4'\n          do k=1,ibins\n             if (Nk1(k) .gt. 0.e+0_fp) then\n                maddp(k) = mconds*sinkfrac(k)/totsinkfrac\n             else\n                maddp(k) = 0.e+0_fp\n             endif\n             if(pdbg) print *, maddp(k)\n             Mk2(k,srtso4)=Mk1(k,srtso4)+maddp(k)\n             do j=1,icomp\n                if (j.ne.srtso4) then\n                   Mk2(k,j)=Mk1(k,j)\n                endif\n             enddo\n             Nk2(k)=Nk1(k)\n          enddo\n          if(pdbg) errorswitch = .true.\n\n          !print *, 'mnfix in tomas_mod:2999'\n          call mnfix(Nk2,Mk2, errorswitch)\n          if(errorswitch) then\n             print *, 'EZCOND: MNFIX[3] found error --> TERMINATE'\n             errswitch=.true.\n             return\n          endif\n       else ! do nothing\n          if (pdbg) print *,'Very small mcond: do nothing!'\n          mcond = 0.e+0_fp\n          do k=1,ibins\n             Nk2(k)=Nk1(k)\n             do j=1,icomp\n                Mk2(k,j)=Mk1(k,j)\n             enddo\n          enddo\n       endif\n       if (i.ne.nsteps)then\n          do k=1,ibins\n             Nk1(k)=Nk2(k)\n             do j=1,icomp\n                Mk1(k,j)=Mk2(k,j)\n             enddo\n          enddo\n       endif\n\n    enddo\n\n    do k=1,ibins\n       Nkf(k)=Nk2(k)\n       do j=1,icomp\n          Mkf(k,j)=Mk2(k,j)\n       enddo\n    enddo\n\n    ! check for conservation of mass\n    tot_i = 0.e+0_fp\n    tot_fa = mcond\n    tot_f = 0.e+0_fp\n    do k=1,ibins\n       tot_i=tot_i+Mki(k,srtso4)\n       tot_f=tot_f+Mkf(k,srtso4)\n       tot_fa=tot_fa+Mki(k,srtso4)\n    enddo\n\n    if(pdbg) then\n       print *,'Check conserv of mass after mcond is distrib'\n       print *,' Initial total so4 ',tot_i\n       print *,' Final total so4   ',tot_f\n       print *,'Percent error=',abs((mcond-(tot_f-tot_i))/mcond)*1e2\n    endif\n\n    if ( mcond > 0.0_fp ) then\n       if ( abs((mcond-(tot_f-tot_i))/mcond).gt.0.e+0_fp) then\n          IF(mcond > 1.e-8_fp .and. tot_i > 5.e-2_fp)  THEN\n             !Add a check to check error if mcond is significant (win, 10/2/08)\n\n             IF (abs((mcond-(tot_f-tot_i))/mcond).lt.1.e+0_fp .OR. &\n                  spinup(31.0) ) THEN\n                !Prior to 10/2/08 (win)   .. original was Jeff's fix\n                !! do correction of mass\n                !ratio = (tot_f-tot_i)/mcond\n                !if(pdbg) print *,'Mk at mass correction '\n                !if(pdbg) print *,'  ratio',ratio\n                !do k=1,ibins\n                !   Mkf(k,srtso4)=Mki(k,srtso4)+\n                !   &              (Mkf(k,srtso4)-Mki(k,srtso4))/ratio\n                !   if(pdbg) print *,Mkf(k,srtso4)\n                !enddo\n\n                ! Do mass correction (win, 10/2/08)\n                ratio = (tot_i+mcond)/tot_f\n                if(pdbg) print *,'Mk at mass correction apply ratio= ',ratio\n                do k=1,ibins\n                   Mkf(k,srtso4)=Mkf(k,srtso4) * ratio\n                   if(pdbg) print *,Mkf(k,srtso4)\n                enddo\n\n                if(pdbg) errorswitch=.true.\n                !print *, 'mnfix in tomas_mod:3079'\n                call mnfix(Nkf,Mkf, errorswitch)\n                if(errorswitch) then\n                   print *, 'EZCOND: MNFIX[4] found error --> TERMINATE'\n                   errswitch=.true.\n                   return\n                endif\n             else\n                print*,'ERROR in ezcond'\n                print*,'Condensation error',(mcond-(tot_f-tot_i))/mcond\n                print*,'mcond',mcond,'change',tot_f-tot_i\n                print*,'tot_i',tot_i,'tot_fa',tot_fa,'tot_f',tot_f\n                print*,'Nki',Nki\n                print*,'Nkf',Nkf\n                print*,'Mki',Mki\n                print*,'Mkf',Mkf\n                !Prior to 10/2/08 (win)\n                !STOP\n                ! Send error signal to outside and terminate with more info\n                ! (win, 10/2/08)\n                !!as of 10/27/08, try comment out this signal to stop the run\n                ! (win, 10/27/08)\n                !! the problem is that maybe or mostly the mass conservation is\n                ! ruined becuase of the fudging inside mnfix.\n                !ERRSWITCH=.TRUE.\n                !RETURN\n             ENDIF\n          ENDIF\n       endif\n    endif\n\n    !jrp if (abs(tot_f-tot_fa)/tot_i.gt.1.0D-8)then\n    !jrp    print*,'No S conservation in ezcond'\n    !jrp    print*,'initial',tot_fa\n    !jrp    print*,'final',tot_f\n    !jrp    print*,'mcond',mcond,'change',tot_f-tot_i\n    !jrp    print*,'ERROR',(mcond-(tot_f-tot_i))/mcond\n    !jrp endif\n\n    ! check for conservation of mass\n    tot_i = 0.e+0_fp\n    tot_f = 0.e+0_fp\n    do k=1,ibins\n       tot_i=tot_i+Mki(k,srtnh4)\n       tot_f=tot_f+Mkf(k,srtnh4)\n    enddo\n    if (.not. spinup(14.0)) then\n       if (abs(tot_f-tot_i)/tot_i.gt.1.0e-8_fp)then\n          if ( tot_i > 1.0e-20_fp ) then\n             print*,'No N conservation in ezcond'\n             print*,'initial',tot_i\n             print*,'final  ',tot_f\n          endif\n       endif\n    endif\n\n    return\n\n  end SUBROUTINE EZCOND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aqoxid\n!\n! !DESCRIPTION: Subroutine AQOXID takes an amount of SO4 produced via in-cloud\n!  oxidation and condenses it onto an existing aerosol size distribution.  It\n!  assumes that only particles larger than the critical activation diameter\n!  activate and that all of these have grown to roughly the same size.\n!  Therefore, the mass of SO4 produced by oxidation is partitioned to the\n!  various size bins according to the number of particles in that size bin.\n!  Values of tau are calculated for each size bin accordingly and the TMCOND\n!  subroutine is called to update Nk and Mk. (win, 7/23/07)\n!  Originally written by Peter Adams for TOMAS in GISS GCM-II', June 2000\n!  Modified by Win Trivitayanurak (win@cmu.edu), Oct 3, 2005\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AQOXID( MOXID,     KMIN,       I,          J,                   &\n                     L,         Input_Opt,  State_Chm,  State_Grid,          &\n                     State_Met, State_Diag, fromWetdep, RC                  )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp)                      :: MOXID\n    INTEGER                       :: KMIN, I, J, L\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n    LOGICAL,        INTENT(IN)    :: fromWetDep   ! Called from wetdep? [T/F]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diag State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n!\n! !REMARKS:\n!  Species units are converted to kg outside of AQOXID.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER,       PARAMETER :: K_MIN = 4\n    REAL(fp)                 :: Nact, Mact, MPO, AQTAU(IBINS)\n    REAL(fp)                 :: Nko(IBINS), Mko(IBINS, ICOMP)\n    REAL(fp)                 :: Nkf(IBINS), Mkf(IBINS, ICOMP)\n    REAL(fp),      PARAMETER :: TDT = 2.e+0_fp / 3.e+0_fp\n    REAL(fp)                 :: M_OXID(IBINS)\n    INTEGER                  :: K, MPNUM, JC, TRACNUM\n    INTEGER                  :: NKID\n    LOGICAL                  :: PDBG\n\n    REAL(fp)                 :: Nk(IBINS), Nkd(IBINS)\n    REAL(fp)                 :: Mk(IBINS, ICOMP)\n    REAL(fp)                 :: Mkd(IBINS,ICOMP)\n    REAL(fp)                 :: Gc(ICOMP - 1)\n    REAL(fp)                 :: Gcd(ICOMP - 1)\n    REAL*4                   :: BOXVOL\n    REAL*4                   :: BOXMASS\n    REAL*4                   :: thresh\n    CHARACTER(LEN=255)       :: MSG, LOC ! (ewl)\n\n    LOGICAL, SAVE            :: doPrintErr = .TRUE.\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! AQOXID begins here\n    !=================================================================\n\n    ! Assume success\n    RC                =  GC_SUCCESS\n\n    !---------------------------------------------------------------------\n    ! If called from wetdep, convert species units to kg\n    !---------------------------------------------------------------------\n    IF ( fromWetDep ) THEN\n       CALL ConvertBox_Kgm2_to_Kg(                                        &\n            I          = I,                                               &\n            J          = J,                                               &\n            L          = L,                                               &\n            State_Chm  = State_Chm,                                       &\n            State_Grid = State_Grid,                                      &\n            isAdjoint  = .FALSE.                                         )\n    ENDIF\n\n    Spc => State_Chm%Species\n\n    PDBG = .FALSE.            !For print debugging\n    !debug IF ( I == 46 .AND. J == 59 .AND. L == 9) PDBG = .TRUE.\n\n    BOXVOL  = State_Met%AIRVOL(I,J,L) * 1.e6 !convert from m3 -> cm3\n    BOXMASS  = State_Met%AD(I,J,L) ! in kg\n    ! Update aerosol water from the current RH\n    DO K = 1, IBINS\n       CALL EZWATEREQM2( I, J, L, K, State_Met, State_Chm, RC )\n    ENDDO\n\n\n#if defined(TOMAS12) || defined(TOMAS15)\n    thresh = 4.0\n#else\n    thresh = 1.0\n#endif\n\n    ! Swap GEOSCHEM variables into aerosol algorithm variables\n    DO K = 1, IBINS\n       NKID = id_NK01 - 1 + K\n       NK(K) = Spc(NKID)%Conc(I,J,L)\n       DO JC = 1, ICOMP-IDIAG\n          MK(K,JC) = Spc(NKID+JC*IBINS)%Conc(I,J,L)\n       ENDDO\n       MK(K,SRTH2O) = Spc(id_AW01-1+K)%Conc(I,J,L)\n    ENDDO\n    !sfarina - initialize Gc to ensure storenm doesn't go NaN on us.\n    DO JC=1, ICOMP-1\n       Gc(JC) = 0.e+0_fp\n    ENDDO\n\n    ! Take the bulk NH4 and allocate to size-resolved NH4\n    IF ( SRTNH4 > 0 ) THEN\n       CALL NH4BULKTOBIN( MK(:,SRTSO4), Spc(id_NH4)%Conc(I,J,L), MK(:,SRTNH4) )\n    ENDIF\n\n    ! Fix any inconsistencies in M/N distribution\n    CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n    !debug IF ( I == 46 .AND. J == 59 .AND. L == 9) PDBG = .TRUE.\n\n    ! print *, 'mnfix in tomas_mod:3225'\n    CALL MNFIX( NK, MK, PDBG )\n    IF( PDBG ) THEN\n       PRINT *,'AQOXID: MNFIX found error at',I,J,L\n       CALL ERROR_STOP('Found bad error in MNFIX', &\n                       'Beginning AQOXID after MNFIX' )\n    ENDIF\n\n    MPNUM = 13\n    IF ( State_Diag%Archive_TomasMNFIXezwat3mass .or. &\n         State_Diag%Archive_TomasMNFIXezwat3number ) THEN\n         CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                        State_Grid, State_Diag )\n      ENDIF\n\n    CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n\n    !debug IF ( I == 46 .AND. J == 59 .AND. L == 9) &\n    !      call debugprint(Nk,Mk,I,J,L,'AQOXID after MNFIX_1')\n\n    ! Calculate which particles activate\n10  CONTINUE ! Continue here if KMIN has to be lowered\n    Nact = 0.e+0_fp\n    Mact = 0.e+0_fp\n    DO K = KMIN, IBINS\n       Nact = Nact + Nk(k)\n       DO JC = 1, ICOMP-IDIAG  !accumulate dry mass exclude NH4\n          Mact = Mact + Mk(K,JC)\n       ENDDO\n    ENDDO\n\n    ! No particles to condense on, then just exit AQOXID\n    IF ( Nact == 0e+0_fp ) GOTO 20\n\n    ! If condensing mass is too large for the alloted portion of NK\n    ! then lower KMIN\n    IF ( ( Mact + MOXID )/ Nact > XK(IBINS+1) / thresh ) THEN\n       IF ( KMIN > K_MIN ) THEN\n          KMIN = KMIN - 1\n          GOTO 10\n       ELSE\n          ! If there is really not enough number to condense onto when lower\n          ! KMIN to the threshold K_MIN (set to 4), then\n          !  IF current time is within first 2 weeks from initialization\n          !    (spin-up), then skip and exit\n          !  IF current time is after the first 2 weeks, then terminate\n          !    with an error message.\n          IF ( .not. SPINUP(14.0) ) THEN\n             !WRITE(*,*) 'Location: ',I,J,L\n             !WRITE(*,*) 'Kmin/Nact: ',KMIN,NACT\n             !WRITE(*,*) 'MOXID/Mact: ',MOXID,Mact\n             !DO K = 1, IBINS\n             !   WRITE(*,*) 'K, N, MSO4, MH2O: ',K,Nk(k), &\n             !        MK(K,SRTSO4),MK(K,SRTH2O)\n             !ENDDO\n             IF ( MOXID > 5e+0_fp .and. &\n                  ( .not. State_Met%InChemGrid(I,J,L) ) ) THEN\n                CALL ERROR_STOP( 'Too few number for condensing mass', &\n                                 'AQOXID:1'                           )\n             ELSE\n                WRITE(*,*) 'AQOXID WARNING: SO4 mass is being discarded'\n                GOTO 20\n             ENDIF\n          ELSE\n             IF ( PDBG ) print *,'AQOXID: Discard mass (spin-up)'\n             GOTO 20\n          ENDIF\n       ENDIF\n    ENDIF\n\n    ! Calculate Tau (driving force) for each size bin\n    MOXID = MOXID/ Nact       !Moxid becomes kg SO4 per activated particle\n                              !NOTE: NOT using kg of H2SO4\n    DO K = 1, IBINS\n       IF ( K < KMIN ) THEN\n          !too small to activate - no sulfate for this particle\n          AQTAU(K) = 0.e+0_fp\n          M_OXID(K) = 0.e+0_fp\n       ELSE\n          !activated particle - calculate appropriate tau\n          MPO=0.e+0_fp\n          DO JC = 1, ICOMP-IDIAG\n             MPO = MPO + Mk(K,JC) !accumulate dry mass\n          ENDDO\n          M_OXID(K) = MOXID * NK(K)\n\n          IF (Nk(K) > 0.e+0_fp) THEN\n             ! Calculate Tau\n             MPO = MPO / Nk(K)\n             AQTAU(K) = 1.5e+0_fp * ( ( ( MPO + MOXID) ** TDT ) - &\n                                      (   MPO          ** TDT )    )\n\n             ! Error checking for negative Tau\n             IF ( AQTAU(K) < 0.e+0_fp ) THEN\n                IF ( ABS(AQTAU(K)) < 1.e+0_fp ) THEN\n                   AQTAU(K)=1.d-50  !0.e+0_fp  !try change to tiny number instead of 0e+0_fp (win, 5/28/06)\n                ELSE\n                   PRINT *,' ######### aqoxid:  NEGATIVE TAU'\n                   PRINT *,'Error at',i,j,l,'bin',k\n                   PRINT *,'aqtau(k)',aqtau(k)\n                   CALL ERROR_STOP( 'Negative Tau','AQOXID:2' )\n                ENDIF\n             ENDIF\n\n          ELSE\n             ! Nothing in this bin - set tau to zero\n             AQTAU(K) = 0.e+0_fp\n          ENDIF                  ! Nk>0\n       ENDIF                     ! K<kmin\n    ENDDO                     ! Loop ibins\n\n    ! Call condensation algorithm\n\n    ! Swap into Nko, Mko\n    Mko(:,:) = 0e+0_fp\n    DO K = 1, IBINS\n       Nko(K) = Nk(K)\n       DO JC = 1, ICOMP-IDIAG ! Now do aqoxid \"dry\" (win, 7/23/07)\n          Mko(K,JC) = Mk(K,JC)\n       ENDDO\n\n    ENDDO\n    !debug IF ( I == 46 .AND. J == 59 .AND. L == 9) PDBG = .TRUE.\n\n    CALL TMCOND( AQTAU, XK, Mko, Nko, Mkf, Nkf, SRTSO4, PDBG, M_OXID )\n    IF(.not.SPINUP(60.) .and.  PDBG ) THEN\n       write(116,*) 'Error at',i,j,l\n    ELSE\n       PDBG = .false.\n    ENDIF\n\n    ! Swap out of Nkf, Mkf\n    DO K = 1, IBINS\n       Nk(k)=Nkf(k)\n       DO JC = 1, ICOMP-IDIAG\n          Mk(K,JC) = Mkf(K,JC)\n       ENDDO\n    ENDDO\n\n20  CONTINUE ! Continue here if the process is skipped\n\n    ! Save changes to diagnostic\n    MPNUM = 4\n    IF ( State_Diag%Archive_TomasAQOXmass .or. &\n         State_Diag%Archive_TomasAQOXnumber ) THEN\n       CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                      State_Grid, State_Diag )\n    ENDIF\n\n    ! Fix any inconsistencies in M/N distribution\n    CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n    !print *, 'mnfix in tomas_mod:3371'\n    CALL MNFIX( NK, MK, PDBG )\n    IF( PDBG ) THEN\n       PRINT *,'AQOXID: MNFIX found error at',I,J,L\n       CALL ERROR_STOP('Found bad error in MNFIX', &\n                       'End of AQOXID after MNFIX' )\n    ENDIF\n\n    MPNUM = 16\n    IF ( State_Diag%Archive_TomasMNFIXaqoxmass .or. &\n         State_Diag%Archive_TomasMNFIXaqoxnumber )  THEN\n       CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                      State_Grid, State_Diag )\n    ENDIF\n\n    ! Swap Nk and Mk arrays back to Spc\n    DO K = 1, IBINS\n       TRACNUM = id_NK01 - 1 + K\n       Spc(TRACNUM)%Conc(I,J,L) = Nk(K)\n       DO JC = 1, ICOMP-IDIAG\n          TRACNUM = id_NK01 - 1 + K + IBINS*JC\n          Spc(TRACNUM)%Conc(I,J,L) = Mk(K,JC)\n       ENDDO\n       Spc(id_AW01-1+K)%Conc(I,J,L) = Mk(K,SRTH2O)\n    ENDDO\n\n    ! Free pointer memory\n    Spc => NULL()\n\n    !------------------------------------------------------------------------\n    ! If called from wetdep, convert species units back to kg/m2.\n    !------------------------------------------------------------------------\n    IF ( fromWetDep ) THEN\n       CALL ConvertBox_Kg_to_Kgm2(                                           &\n            I          = I,                                                  &\n            J          = J,                                                  &\n            L          = L,                                                  &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            isAdjoint  = .FALSE.                                            )\n    ENDIF\n\n  END SUBROUTINE AQOXID\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: soacond\n!\n! !DESCRIPTION: Subroutine SOACOND takes the SOA calculated via 10% yeild\n!  assumption and condense onto existing aerosol size distribution in a similar\n!  manner as in aqoxid. The difference is that SOA condensational driving force\n!  is a function of the amount of soluble mass existing in each bin, unlike\n!  aqoxid where driving force depends on activated number (proportional to\n!  surface) of each bin. (win, 9/25/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SOACOND( MSOA, I, J, L, BOXVOL, TEMPTMS, PRES, BOXMASS,&\n                      State_Chm, State_Grid, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp)                      :: MSOA\n    INTEGER,        INTENT(IN)    :: I, J, L\n    REAL*4,         INTENT(IN)    :: BOXVOL, TEMPTMS, PRES, BOXMASS\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)                 :: surf_area\n    REAL(fp)                 :: MPO, OCTAU(IBINS), ntot, mtot\n    REAL(fp)                 :: Nko(IBINS), Mko(IBINS, ICOMP)\n    REAL(fp)                 :: Nkf(IBINS), Mkf(IBINS, ICOMP)\n    REAL(fp),      PARAMETER :: TDT = 2.e+0_fp / 3.e+0_fp\n    REAL(fp)                 :: MEDTOT, MED(IBINS), MABS(IBINS)\n    REAL(fp)                 :: MKTOT(IBINS), DENSITY, PI\n    REAL(fp)                 :: M_NH4\n    REAL(fp)                 :: CS, sinkfrac(IBINS)\n    REAL(fp)                 :: partfrac(IBINS),avgfrac(IBINS)\n    INTEGER                  :: K, MPNUM, JC, TRACNUM\n    LOGICAL                  :: PDBG, negvalue ! negvalue added for xSOA\n                                                 ! (JKodros, 6/2/15)\n    PARAMETER   (PI = 3.141592654e+0_fp)\n\n    !sfarina\n    REAL(fp)                 :: Nk(IBINS), Nkd(IBINS)\n    REAL(fp)                 :: Mk(IBINS, ICOMP)\n    REAL(fp)                 :: Mkd(IBINS,ICOMP)\n    REAL(fp)                 :: Gc(ICOMP - 1)\n    REAL(fp)                 :: Gcd(ICOMP - 1)\n    REAL*4                   :: thresh\n    CHARACTER(LEN=255)       :: MSG, LOC ! For species unit check (ewl)\n    LOGICAL                  :: ERRORSWITCH = .FALSE.\n\n    ! Pointers\n    TYPE(SpcConc), POINTER   :: Spc(:)\n\n    ! For SOACOND warnings\n    INTEGER, SAVE       :: SOACOND_WARNING_CT  = -1\n    INTEGER, PARAMETER  :: SOACOND_WARNING_MAX = 2  !bc 02/01/24 shut off too many warnings\n\n    !=================================================================\n    ! SOACOND begins here\n    !=================================================================\n\n    ! Assume success\n    RC                 = GC_SUCCESS\n    SOACOND_WARNING_CT = 0\n\n    ! Check that species units are in [kg]\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species are in kg!'\n       LOC = 'Routine SOACOND in tomas_mod.F90'\n       CALL ERROR_STOP( MSG, LOC )\n    ENDIF\n\n    ! Point to the chemical species array\n    Spc => State_Chm%Species\n\n    pdbg = .false.\n\n#if defined (TOMAS12) || defined (TOMAS15)\n    thresh = 1.0\n#else\n    thresh = 1.0\n#endif\n\n    ! Swap GEOSCHEM variables into TOMAS variables\n    DO K = 1, IBINS\n       TRACNUM = id_NK01 - 1 + K\n       NK(K) = Spc(TRACNUM)%Conc(I,J,L)\n       DO JC = 1, ICOMP-IDIAG  ! do I need aerosol water here?\n          TRACNUM = id_NK01 - 1 + K + IBINS*JC\n          MK(K,JC) = Spc(TRACNUM)%Conc(I,J,L)\n          IF( IT_IS_NAN( MK(K,JC) ) ) THEN\n             PRINT *,'+++++++ Found NaN in SOACOND ++++++++'\n             PRINT *,'Location (I,J,L):',I,J,L,'Bin',K,'comp',JC\n          ENDIF\n       ENDDO\n       MK(K,SRTH2O) = Spc(id_AW01-1+K)%Conc(I,J,L)\n    ENDDO\n\n    ! Take the bulk NH4 and allocate to size-resolved NH4\n    IF ( SRTNH4 > 0 ) THEN\n       CALL NH4BULKTOBIN( MK(:,SRTSO4), Spc(id_NH4)%Conc(I,J,L), &\n                          MK(:,SRTNH4) )\n    ENDIF\n\n    CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n\n    ! Establish an 30-bin array and accculate the total\n    ! of the absorbing media.  The choices can be:\n    ! organic mass, surface area, organic+inorganic. (win, 3/5/08)\n    MEDTOT = 0.e+0_fp\n    MED = 0.e+0_fp\n    mtot = 0.e+0_fp\n    MKTOT(:) = 0.e+0_fp\n    ! Accumulate the total absorbing media\n    DO K = 1, IBINS\n\n       DO JC = 1, ICOMP\n          Mktot(k) = Mktot(k) + Mk(k,jc)\n       ENDDO\n       mtot = mtot + Mktot(k)\n\n       if (absall.eq.1)then ! partition to all mass\n          MED(K) = Mktot(k)\n          MEDTOT = MEDTOT + Mktot(k)\n       else\n          MED(K) = Mk(k,srtocil) ! partition to just hydrophilic organic\n          MEDTOT = MEDTOT + Mk(k,srtocil)\n       endif\n\n    ENDDO\n\n    ! Fraction to each bin for mass partitioning\n    ! Skip this if no absorbing media - bc, 20/01/2022\n    if (MEDTOT > 0.e+0_fp) then  \n\n       do k = 1,IBINS\n          partfrac(k) = MED(K) / MEDTOT ! MSOA (kg SOA) become (kg SOA per\n                                        ! total absorbing media)\n       enddo\n\n       ! Fraction to each bin for surface condensation\n       call getCondSink(Nk,Mk,srtocil,CS,sinkfrac,surf_area, &\n                        BOXVOL,TEMPTMS, PRES)\n\n       do k = 1,IBINS\n          avgfrac(k)=soaareafrac*sinkfrac(k)+(1.e+0_fp-soaareafrac)*partfrac(k)\n       enddo\n\n       !temporary\n       ntot = 0.e+0_fp\n       do k = 1, ibins\n          ntot = ntot + Nk(k)\n       enddo\n\n       !bc 21/01/2021 - prevent divide by zero as a test\n       if (Ntot .LE. 0.e+0_fp) then ! set to some small negative\n          print *, 'negative Ntot found', Ntot\n          Ntot = 1.e-35_fp\n          print *, 'new Ntot ', Ntot\n       endif\n\n       IF ( ( Mtot + MSOA ) / Ntot > XK(IBINS+1) / thresh ) THEN\n          IF ( .not. SPINUP(14.0) ) THEN\n             WRITE(*,*) 'Location: ',I,J,L\n             WRITE(*,*) 'Mtot_&_Ntot: ',Mtot, Ntot\n             IF ( MSOA > 5e+0_fp ) THEN\n                CALL ERROR_STOP('Too few no. for SOAcond','SOACOND:1')\n             ENDIF\n          ELSE\n             ! Put a limit on the amount of screen warnings that we get\n             ! to keep logfile sizes low (bmy, 9/30/19)\n             SOACOND_WARNING_CT = SOACOND_WARNING_CT + 1\n             IF ( SOACOND_WARNING_CT < SOACOND_WARNING_MAX ) THEN\n                WRITE(*,*) 'SOACOND WARNING: SOA mass is being discarded'\n             ENDIF\n             GOTO 30\n          ENDIF\n       ENDIF\n\n       DO K = 1, IBINS\n          MPO = 0.e+0_fp\n          DO JC = 1, ICOMP-IDIAG\n             MPO = MPO + MK(K,JC)  ! Accumulate dry mass\n          ENDDO\n          MABS(K) = MSOA * avgfrac(K)\n\n          IF ( Nk(K) > 0.e+0_fp ) THEN\n             MPO = MPO / Nk(K)\n             OCTAU(K) = 1.5e+0_fp * ( ( ( MPO + MABS(K)/Nk(K) ) ** TDT ) - &\n                                      (   MPO                   ** TDT )   )\n\n             ! Error checking for negative Tau\n             IF ( OCTAU(K) < 0.e+0_fp ) THEN\n                IF ( ABS(OCTAU(K)) < 1.e+0_fp ) THEN\n                   ! change to tiny number instead of 0e+0_fp (win, 5/28/06)\n                   OCTAU(K)=1.e-50_fp\n                ELSE\n                   PRINT *,' ######### Subroutine SOACOND:  NEGATIVE TAU'\n                   PRINT *,'Error at',i,j,l,'bin',k\n                   PRINT *,'octau(k)',octau(k)\n                   CALL ERROR_STOP( 'Negative Tau','SOACOND:2' )\n                ENDIF\n             ENDIF\n\n          ELSE\n             OCTAU(K) = 0.e+0_fp\n          ENDIF\n       ENDDO\n\n       ! Call condensation algorithm\n       ! Swap into Nko, Mko\n       Mko(:,:) = 0.e+0_fp\n       DO K = 1, IBINS\n          Nko(K) = Nk(K)\n          DO JC = 1, ICOMP-IDIAG    ! Now do SOA condensation \"dry\"\n             Mko(K,JC) = Mk(K,JC)  ! dry mass excl. nh4\n          ENDDO\n       ENDDO\n\n       !debug      if(i==24.and.j==13)       pdbg = .true.\n       CALL TMCOND( OCTAU, XK, Mko, Nko, Mkf, Nkf, SRTOCIL, PDBG, MABS )\n\n       ! ----------- JRP ADD MNFIX...This is for xSOA (JKodros 6/2/15) --------\n       if (pdbg) negvalue=.true. !signal received to printdebug (win, 4/8/06)\n       call mnfix(Nkf,Mkf,negvalue) !<step5.1> bug fix call argument\n       !(win, 4/15/06) !<step4.2> Add call argument to carry tell where mnfix\n       !found\n       if(negvalue) STOP 'MNFIX terminate' !(win, 9/12/05)\n       ! the negative value (win, 9/12/05)\n       !-----------------------------------------------------------------------\n\n       IF( PDBG ) THEN\n          !print 12, I,J,L\n12        FORMAT( 'Error in SOAcond at ', 3I4 )\n          if( .not. SPINUP(60.) )write(116,*) 'Error in SOACOND at',i,j,l\n       ELSE\n          PDBG = .false.\n       ENDIF\n\n       ! Swap out of Nkf, Mkf\n       DO K = 1, IBINS\n          Nk(k)=Nkf(k)\n          DO JC = 1, ICOMP-IDIAG\n             Mk(K,JC) = Mkf(K,JC)\n          ENDDO\n       ENDDO\n\n    elseif ( .not. SPINUP(60.0) ) THEN\n\n          IF ( MSOA > 5e+0_fp ) THEN\n             CALL ERROR_STOP('Too few no. for SOAcond','SOACOND:10')\n          ENDIF\n\n    else\n\n          ! Put a limit on the amount of screen warnings that we get \n          ! to keep logfile sizes low (bmy, 9/30/19)\n          SOACOND_WARNING_CT = SOACOND_WARNING_CT + 1\n          IF ( SOACOND_WARNING_CT < SOACOND_WARNING_MAX ) THEN\n             WRITE(*,*) 'SOACOND WARNING: SOA mass is being discarded'\n          ENDIF\n\n    endif ! bc, 13/01/22 medtot can be low on spinup\n\n30  CONTINUE\n\n    ! Save changes to diagnostic\n    MPNUM = 6\n    IF ( State_Diag%Archive_TomasSOAmass .or. &\n         State_Diag%Archive_TomasSOAnumber ) THEN\n       CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                      State_Grid, State_Diag )\n    ENDIF\n\n    ! Fix any inconsistencies in M/N distribution\n    !this never happened?\n\n    ! Swap Nk and Mk arrays back to Spc array\n    DO K = 1, IBINS\n       TRACNUM = id_NK01 - 1 + K\n       Spc(TRACNUM)%Conc(I,J,L) = Nk(K)\n       DO JC = 1, ICOMP-IDIAG\n          TRACNUM = id_NK01 - 1 + K + IBINS*JC\n          Spc(TRACNUM)%Conc(I,J,L) = Mk(K,JC)\n       ENDDO\n       Spc(id_AW01-1+K)%Conc(I,J,L) = Mk(K,SRTH2O)\n    ENDDO\n\n    ! Free pointer memory\n    Spc => NULL()\n\n  END SUBROUTINE SOACOND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: multicoag\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MULTICOAG( DT, Nk, Mk, BOXVOL, PRES, TEMPTMS, PDBG )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4,    INTENT(IN)     :: DT                ! Time step (s)\n    REAL*4,    INTENT(IN)     :: PRES\n    REAL*4,    INTENT(IN)     :: TEMPTMS\n    REAL*4,    INTENT(IN)     :: BOXVOL\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(INOUT)  :: Nk(IBINS)\n    REAL(fp),  INTENT(INOUT)  :: Mk(IBINS, ICOMP)\n    LOGICAL,   INTENT(INOUT)  :: PDBG              ! For signalling print debug\n!\n! !REMARKS:\n!  Some key variables\n!  kij represents the coagulation coefficient (cm3/s) normalized by the\n!      volume of the GCM grid cell (boxvol, cm3) such that its units are (s-1)\n!  dNdt and dMdt are the rates of change of Nk and Mk.  xk contains\n!     the mass boundaries of the size bins.  xbar is the average mass\n!     of a given size bin (it varies with time in this algorithm).  phi\n!     and eff are defined in the reference, equations 13a and b.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER     :: K, J, I, JJ\n    REAL(fp)    :: dNdt(ibins), dMdt(ibins,icomp-idiag)\n    REAL(fp)    :: xbar(ibins), phi(ibins), eff(ibins)\n    REAL*4      :: kij(ibins,ibins)\n    REAL*4      :: Dpk(ibins)             !diameter (m) of particles in bin k\n    REAL*4      :: Dk(ibins)              !Diffusivity (m2/s) of bin k particles\n    REAL*4      :: ck(ibins)              !Mean velocity (m/2) of bin k particles\n    REAL*4      :: olddiff                !used to iterate to find diffusivity\n    REAL*4      :: density                !density (kg/m3) of particles\n    REAL*4      :: mu                     !viscosity of air (kg/m s)\n    REAL*4      :: mfp                    !mean free path of air molecule (m)\n    REAL*4      :: Kn                     !Knudsen number of particle\n    REAL(fp)    :: mp                     !particle mass (kg)\n    REAL*4      :: beta                   !correction for coagulation coeff.\n    !      real(fp), external ::   aerodens  !<tmp> try change to double precision (win, 1/4/06)\n\n    !temporary summation variables\n    REAL(fp)    :: k1m(icomp-idiag),k1mx(icomp-idiag)\n    REAL(fp)    :: k1mx2(icomp-idiag)\n    REAL(fp)    :: k1mtot,k1mxtot\n    REAL(fp)    :: sk2mtot, sk2mxtot\n    REAL(fp)    :: sk2m(icomp-idiag), sk2mx(icomp-idiag)\n    REAL(fp)    :: sk2mx2(icomp-idiag)\n    REAL(fp)    :: High_in\n    REAL(fp)    :: mtotal, mktot\n\n    REAL*4      :: zeta                      !see reference, eqn 6\n    REAL*4      :: tlimit, dtlimit, itlimit  !fractional change in M/N allowed in one time step\n    REAL*4      :: dts  !internal time step (<dt for stability)\n    REAL*4      :: tsum !time so far\n    REAL(fp)    :: Neps !minimum value for Nk\n!dbg\n    character*12 limit        !description of what limits time step\n\n    REAL(fp)    :: mi, mf   !initial and final masses\n\n#if defined(TOMAS12) || defined(TOMAS15)\n    parameter(zeta=1.28125 , dtlimit=0.25, itlimit=10.)\n#else\n    parameter(zeta=1.0625, dtlimit=0.25, itlimit=10.)\n#endif\n    REAL*4      ::pi, kB  !kB is Boltzmann constant (J/K)\n    REAL*4      ::R       !gas constant (J/ mol K)\n    parameter (pi=3.141592654, kB=1.38e-23, R=8.314, Neps=1.0e-3)\n\n    REAL(fp)      :: M_NH4\n\n    LOGICAL     :: ERRSPOT\n\n    !sfarina\n1   format(16E15.3)\n\n    !=================================================================\n    ! MULTICOAG begins here!\n    !=================================================================\n    tsum = 0.0\n\n    ! If any Nk are zero, then set them to a small value to avoid division by zero\n    do k=1,ibins\n       if (Nk(k) .lt. Neps) then\n          Nk(k)=Neps\n#if defined(TOMAS12) || defined(TOMAS15)\n          Mk(k,srtso4)=Neps*sqrt( xk(k)*xk(k+1) ) !make the added particles SO4\n#else\n          Mk(k,srtso4)=Neps*1.4e+0_fp*xk(k) !make the added particles SO4\n#endif\n       endif\n    enddo\n\n    ! Calculate air viscosity and mean free path\n    mu=2.5277e-7*temptms**0.75302\n    mfp=2.0*mu/(pres*sqrt(8.0*0.0289/(pi*R*temptms)))  !S&P eqn 8.6\n\n    !<temp>\n    !write(6,*)'+++ Nk(1:30)    =',Nk(1:30)\n    !write(6,*)'+++ Mk(1:30,SO4)=',Mk(1:30,srtso4)\n    !write(6,*)'+++ Mk(1:30,H2O)=',Mk(1:30,srth2o)\n    if (pdbg) call debugprint(Nk,Mk,0,0,0,'Inside MULTICOAG')\n    ! Calculate particle sizes and diffusivities\n    do k=1,ibins\n\n       IF ( SRTNH4 > 0 ) THEN\n          M_NH4 = Mk(k,SRTNH4)\n       ELSE\n          M_NH4 = 0.1875e+0_fp*Mk(k,srtso4)  !assume bisulfate\n       ENDIF\n       !tmp write(6,*)'+++ multicoag:  Mk(',k,'srtso4)=',Mk(k,srtso4)\n       density=aerodens(Mk(k,srtso4),0.e+0_fp, M_NH4,        &\n               Mk(k,srtnacl), Mk(k,srtecil), Mk(k,srtecob),  &\n               Mk(k,srtocil), Mk(k,srtocob), Mk(k,srtdust),  &\n               Mk(k,srth2o))     !use Mk for sea salt mass(win, 4/18/06)\n       !Update mp calculation to include all species (win, 4/18/06)\n\n       !prior to 9/26/08 (win)\n       !Mktot=0.1875e+0_fp*Mk(k,srtso4) !start with NH4 mass\n\n       Mktot = M_NH4         ! start with ammonium (win, 9/26/08)\n       Mktot = Mktot + Mk(k,srth2o) ! then include water\n\n       do j=1, icomp-idiag\n          Mktot=Mktot+Mk(k,j)\n       enddo\n       mp=Mktot/Nk(k)\n       Dpk(k)=((mp/density)*(6./pi))**(0.333)\n       Kn=2.0*mfp/Dpk(k)                            !S&P Table 12.1\n       Dk(k)=kB*temptms/(3.0*pi*mu*Dpk(k)) &        !S&P Table 12.1\n         *((5.0+4.0*Kn+6.0*Kn**2+18.0*Kn**3)/(5.0-Kn+(8.0+pi)*Kn**2))\n       ck(k)=sqrt(8.0*kB*temptms/(pi*mp))           !S&P Table 12.1\n    enddo\n\n    ! Calculate coagulation coefficients\n    do i=1,ibins\n       do j=1,ibins\n          Kn=4.0*(Dk(i)+Dk(j)) &\n             /(sqrt(ck(i)**2+ck(j)**2)*(Dpk(i)+Dpk(j))) !S&P eqn 12.51\n          beta=(1.0+Kn)/(1.0+2.0*Kn*(1.0+Kn))          !S&P eqn 12.50\n          !This is S&P eqn 12.46 with non-continuum correction, beta\n          kij(i,j)=2.0*pi*(Dpk(i)+Dpk(j))*(Dk(i)+Dk(j))*beta\n          kij(i,j)=kij(i,j)*1.0e+6_fp/boxvol  !normalize by grid cell volume\n       enddo\n    enddo\n\n10  continue     !repeat process here if multiple time steps are needed\n\n    if(pdbg) print*,'In the time steps loop +++++++++++++'\n\n    ! Calculate xbar, phi and eff\n#if defined(TOMAS12) || defined(TOMAS15)\n    do k=1,ibins\n\n       xbar(k)=0.0\n       do j=1,icomp-idiag\n          xbar(k)=xbar(k)+Mk(k,j)/Nk(k)            !eqn 8b\n       enddo\n       if(k.lt.ibins-1)then !from 1 to 10 bins\n\n          eff(k)=2./9.*Nk(k)/xk(k) *(4.-xbar(k)/xk(k)) !eqn 4 in tzivion 1999\n          phi(k)=2./9.*Nk(k)/xk(k) *(xbar(k)/xk(k)-1.) !eqn 4 in tzivion 1999\n\n          !Constraints in equation 15\n          if (xbar(k) .lt. xk(k)) then\n             eff(k)=2./3.*Nk(k)/xk(k)\n             phi(k)=0.0\n\n          else if (xbar(k) .gt. xk(k+1)) then\n             phi(k)=2./3.*Nk(k)/xk(k)\n             eff(k)=0.0\n          endif\n       else                      ! from 11 bins to 12 bins\n          eff(k)=2./31./31.*Nk(k)/xk(k) &\n                 *(32.-xbar(k)/xk(k)) !eqn 4 in tzivion 1999\n          phi(k)=2./31./31.*Nk(k)/xk(k) &\n                 *(xbar(k)/xk(k)-1.) !eqn 4 in tzivion 1999\n\n          !Constraints in equation 15\n          if (xbar(k) .lt. xk(k)) then\n             eff(k)=2./31.*Nk(k)/xk(k)\n             phi(k)=0.0\n\n          else if (xbar(k) .gt. xk(k+1)) then\n             phi(k)=2./31.*Nk(k)/xk(k)\n             eff(k)=0.0\n          endif\n       endif\n\n    enddo\n\n#else\n    do k=1,ibins\n\n       xbar(k)=0.0\n       do j=1,icomp-idiag\n          xbar(k)=xbar(k)+Mk(k,j)/Nk(k)            !eqn 8b\n       enddo\n\n       eff(k)=2.*Nk(k)/xk(k)*(2.-xbar(k)/xk(k))    !eqn 13a\n       phi(k)=2.*Nk(k)/xk(k)*(xbar(k)/xk(k)-1.)    !eqn 13b\n\n       !Constraints in equation 15\n       if (xbar(k) .lt. xk(k)) then\n          eff(k)=2.*Nk(k)/xk(k)\n          phi(k)=0.0\n       else if (xbar(k) .gt. xk(k+1)) then\n          phi(k)=2.*Nk(k)/xk(k)\n          eff(k)=0.0\n       endif\n    enddo\n#endif\n\n    ! Necessary initializations\n    sk2mtot=0.0\n    sk2mxtot=0.0\n    do j=1,icomp-idiag\n       sk2m(j)=0.0\n       sk2mx(j)=0.0\n       sk2mx2(j)=0.0\n    enddo\n\n    ! Calculate rates of change for Nk and Mk\n    do k=1,ibins\n\n       !Initialize to zero\n       do j=1,icomp-idiag\n          k1m(j)=0.0\n          k1mx(j)=0.0\n          k1mx2(j)=0.0\n       enddo\n       High_in=0.0\n       k1mtot=0.0\n       k1mxtot=0.0\n\n       !Calculate sums\n#if defined(TOMAS12) || defined(TOMAS15)\n       do j=1,icomp-idiag\n          if (k .gt. 1.and.k.lt.ibins) then\n             do i=1,k-1\n                k1m(j)=k1m(j)+kij(k,i)*Mk(i,j)\n                k1mx(j)=k1mx(j)+kij(k,i)*Mk(i,j)*xbar(i)*zeta\n                k1mx2(j)=k1mx2(j)+kij(k,i)*Mk(i,j)*xbar(i)**2.*zeta**3.\n             enddo\n          elseif(k.eq.ibins)then\n             k1m(j)= sk2m(j)+kij(k,k-1)*Mk(k-1,j)\n             k1mx(j)=sk2mx(j)+kij(k,k-1)*Mk(k-1,j)*xbar(k-1)*4.754\n             k1mx2(j)=sk2mx2(j)+kij(k,k-1)*Mk(k-1,j)*xbar(k-1)**2.*107.4365\n          endif\n          k1mtot=k1mtot+k1m(j)\n          k1mxtot=k1mxtot+k1mx(j)\n       enddo\n#else\n       do j=1,icomp-idiag\n          if (k .gt. 1) then\n             do i=1,k-1\n                k1m(j)=k1m(j)+kij(k,i)*Mk(i,j)\n                k1mx(j)=k1mx(j)+kij(k,i)*Mk(i,j)*xbar(i)\n                k1mx2(j)=k1mx2(j)+kij(k,i)*Mk(i,j)*xbar(i)**2\n             enddo\n          endif\n          k1mtot=k1mtot+k1m(j)\n          k1mxtot=k1mxtot+k1mx(j)\n       enddo\n#endif\n\n       if (k .lt. ibins) then\n          do i=k+1,ibins\n             High_in=High_in+Nk(i)*kij(k,i)\n          enddo\n       endif\n\n       !Calculate rates of change\n#if defined(TOMAS12) || defined(TOMAS15)\n       if(k.lt.ibins-1)then\n\n          dNdt(k)= -Nk(k)*High_in-kij(k,k)*Nk(k)**2.*1.125 &\n                   -(phi(k)*k1mtot+(eff(k)-phi(k))/6./xk(k)*k1mxtot) &\n                   -kij(k,k)*(phi(k)/3.*xbar(k)*Nk(k)+(eff(k)-phi(k))/18. &\n                   /xk(k)*zeta*xbar(k)*xbar(k)*Nk(k))\n\n          if (k .gt. 1) then\n             !yhl Nk*low_in changes to -0.5*Kij*Nk**2.\n             dNdt(k)=dNdt(k)+0.625*kij(k-1,k-1)*Nk(k-1)**2 &\n                     +(phi(k-1)*sk2mtot+(eff(k-1)-phi(k-1))/6./xk(k-1) &\n                     *sk2mxtot) &\n                     +kij(k-1,k-1)*(phi(k-1)/3.*xbar(k-1)*Nk(k-1)+(eff(k-1) &\n                     -phi(k-1))/18./xk(k-1)*zeta*xbar(k-1)*xbar(k-1) &\n                     *Nk(k-1))\n\n          endif\n\n          do j=1,icomp-idiag\n\n             dMdt(k,j)= Nk(k)*k1m(j)-Mk(k,j)*High_in & ! !term5,term6\n                        -(phi(k)*xk(k+1)*k1m(j)+ &\n                        (eff(k)+2.*phi(k))/6.*k1mx(j) &\n                        +(eff(k)-phi(k))/6./xk(k)*k1mx2(j)) & ! term3\n                        - kij(k,k)*Nk(k)*Mk(k,j)/3. & ! I assume 1/2Nk and 2/3Mk for half bin\n                        - kij(k,k)*(phi(k)*xk(k+1)*Mk(k,j)/3. &\n                        +(eff(k)+2.*phi(k))/6.*zeta*xbar(k)*Mk(k,j)/3. &\n                        +(eff(k)-phi(k))/6./xk(k)*zeta**3.*xbar(k)**2. &\n                        *Mk(k,j)/3.)\n\n             !yhl  Term9(-kij(k,k)*Nk(k)*Mk(k,j)) is cancled out by term6 (k)\n             if (k .gt. 1) then\n                dMdt(k,j)=dMdt(k,j) &\n                          +(phi(k-1)*xk(k)*sk2m(j)+(eff(k-1) &\n                          +2.*phi(k-1))/6.*sk2mx(j) &\n                          +(eff(k-1)-phi(k-1))/6./xk(k-1)*sk2mx2(j)) & !term1\n                          +kij(k-1,k-1)*Nk(k-1)*Mk(k-1,j)/3. &\n                          +kij(k-1,k-1)*(phi(k-1)*xk(k)*Mk(k-1,j)/3. &\n                          +(eff(k-1)+2.*phi(k-1))/6.*zeta &\n                          *xbar(k-1)*Mk(k-1,j)/3.+(eff(k-1)-phi(k-1))/6. &\n                          /xk(k-1)*zeta**3.*xbar(k-1)**2.*Mk(k-1,j)/3.)\n             endif\n          enddo\n       else if (k.eq.ibins-1)then\n\n          dNdt(k)=0.625*kij(k-1,k-1)*Nk(k-1)**2 &\n                  +(phi(k-1)*sk2mtot+(eff(k-1)-phi(k-1))/6./xk(k-1) &\n                  *sk2mxtot) &\n                  +kij(k-1,k-1)*xbar(k-1)*Nk(k-1)/3.*(phi(k-1) &\n                  +(eff(k-1) &\n                  -phi(k-1))/6./xk(k-1)*zeta*xbar(k-1))\n\n          !yhl updated the following\n          dNdt(k)=dNdt(k)-Nk(k)*High_in-kij(k,k)*Nk(k)**2.*1.02 &\n                  -(phi(k)*k1mtot+(eff(k)-phi(k))/62./xk(k)*k1mxtot) &\n                  -kij(k,k)*xbar(k)*Nk(k)*0.484*(phi(k)+(eff(k) &\n                  -phi(k))/62./xk(k)*4.754*xbar(k))\n\n          !yhl I am not sure how it bring 0.5*kij(k-1,k-1)*Nk(k-1)**2 here. But\n          !yhl It results in much closer result as 30 bins. Apr.27.08\n\n          do j=1,icomp-idiag\n             dMdt(k,j)= &\n                        +(phi(k-1)*xk(k)*sk2m(j)+(eff(k-1) &\n                        +2.*phi(k-1))/6.*sk2mx(j) &\n                        +(eff(k-1)-phi(k-1))/6./xk(k-1)*sk2mx2(j)) & !term1\n                        +kij(k-1,k-1)*Nk(k-1)*Mk(k-1,j)/3. &\n                        +kij(k-1,k-1)*(phi(k-1)*xk(k)*Mk(k-1,j)/3. &\n                        +(eff(k-1)+2.*phi(k-1))/6.*zeta &\n                        *xbar(k-1)*Mk(k-1,j)/3.+(eff(k-1)-phi(k-1))/6. &\n                        /xk(k-1)*zeta**3.*xbar(k-1)**2.*Mk(k-1,j)/3.)\n\n             !yhl updated the following\n             dMdt(k,j)= dMdt(k,j)+Nk(k)*k1m(j)-Mk(k,j)*High_in & ! !term5,term6\n                        -(phi(k)*xk(k+1)*k1m(j)+(eff(k)/62.+0.484*phi(k)) &\n                        *k1mx(j)+(eff(k)-phi(k))/62./xk(k)*k1mx2(j)) & ! term3\n                        -kij(k,k)*Nk(k)*Mk(k,j)*0.103226 & ! I assume 1/2Nk and 2/3Mk for half bin\n                        -kij(k,k)*Mk(k,j)*0.484*(phi(k)*xk(k+1)+(eff(k)/62. &\n                        +0.484*phi(k))*4.754*xbar(k) &\n                        +(eff(k)-phi(k))/62./xk(k)*107.4365*xbar(k)**2.)\n          enddo\n\n       else if (k.eq.ibins)then\n          dNdt(k)=-Nk(k)*High_in-kij(k,k)*Nk(k)**2.*1.103226 &\n                  -(phi(k)*k1mtot+(eff(k)-phi(k))/62./xk(k)*k1mxtot) &\n                  -kij(k,k)*0.484*xbar(k)*Nk(k)*(phi(k)+(eff(k)-phi(k)) &\n                  /62./xk(k)*4.754*xbar(k)) &\n                  +0.52*kij(k-1,k-1)*Nk(k-1)**2 &\n                  +(phi(k-1)*sk2mtot+(eff(k-1)-phi(k-1))/62./xk(k-1) &\n                  *sk2mxtot) &\n                  +kij(k-1,k-1)*xbar(k-1)*Nk(k-1)*0.484*(phi(k-1) &\n                  +(eff(k-1) &\n                  -phi(k-1))/62./xk(k-1)*4.754*xbar(k-1))\n\n          do j=1,icomp-idiag\n             dMdt(k,j)= Nk(k)*k1m(j)-Mk(k,j)*High_in & ! !term5,term6\n                        -(phi(k)*xk(k+1)*k1m(j)+(eff(k)/62.+0.484 &\n                        *phi(k))*k1mx(j) &\n                        +(eff(k)-phi(k))/62./xk(k)*k1mx2(j)) & ! term3\n                        -kij(k,k)*Nk(k)*Mk(k,j)*0.103226 & ! I assume 1/2Nk and 2/3Mk for half bin\n                        -kij(k,k)*Mk(k,j)*0.484*(phi(k)*xk(k+1)+(eff(k)/62. &\n                        +0.484*phi(k))*4.754*xbar(k) &\n                        +(eff(k)-phi(k))/62./xk(k)*107.4365*xbar(k)**2.) &\n                        +(phi(k-1)*xk(k)*sk2m(j)+(eff(k-1)/62.+0.484 &\n                        *phi(k-1)) &\n                        *sk2mx(j)+(eff(k-1)-phi(k-1))/62./xk(k-1)*sk2mx2(j)) & !term1\n                        +kij(k-1,k-1)*Nk(k-1)*Mk(k-1,j)*0.103226 &\n                        +kij(k-1,k-1)*Mk(k-1,j)*0.484*(phi(k-1)*xk(k) &\n                        +(eff(k-1)/62.+0.484*phi(k-1))*4.754*xbar(k-1) &\n                        +(eff(k-1)-phi(k-1))/62./xk(k-1)*107.4365 &\n                        *xbar(k-1)**2.)\n          enddo\n       endif\n\n#else\n       dNdt(k)= &\n                -kij(k,k)*Nk(k)**2 &\n                -phi(k)*k1mtot &\n                -zeta*(eff(k)-phi(k))/(2*xk(k))*k1mxtot &\n                -Nk(k)*High_in\n       if (k .gt. 1) then\n          dNdt(k)=dNdt(k)+ &\n                  0.5*kij(k-1,k-1)*Nk(k-1)**2 &\n                  +phi(k-1)*sk2mtot &\n                  +zeta*(eff(k-1)-phi(k-1))/(2*xk(k-1))*sk2mxtot\n       endif\n\n       do j=1,icomp-idiag\n          dMdt(k,j)= &\n                     +Nk(k)*k1m(j) &\n                     -kij(k,k)*Nk(k)*Mk(k,j) &\n                     -Mk(k,j)*High_in &\n                     -phi(k)*xk(k+1)*k1m(j) &\n                     -0.5*zeta*eff(k)*k1mx(j) &\n                     +zeta**3*(phi(k)-eff(k))/(2*xk(k))*k1mx2(j)\n          if (k .gt. 1) then\n             dMdt(k,j)=dMdt(k,j)+ &\n                       kij(k-1,k-1)*Nk(k-1)*Mk(k-1,j) &\n                       +phi(k-1)*xk(k)*sk2m(j) &\n                       +0.5*zeta*eff(k-1)*sk2mx(j) &\n                       -zeta**3*(phi(k-1)-eff(k-1))/(2*xk(k-1))*sk2mx2(j)\n          endif\n          !dbg if (j. eq. srtso4) then\n          !dbg    if (k. gt. 1) then\n          !dbg       write(*,1) Nk(k)*k1m(j), kij(k,k)*Nk(k)*Mk(k,j), &\n          !dbg          Mk(k,j)*in, phi(k)*xk(k+1)*k1m(j), &\n          !dbg          0.5*zeta*eff(k)*k1mx(j), &\n          !dbg          zeta**3*(phi(k)-eff(k))/(2*xk(k))*k1mx2(j), &\n          !dbg          kij(k-1,k-1)*Nk(k-1)*Mk(k-1,j), &\n          !dbg          phi(k-1)*xk(k)*sk2m(j), &\n          !dbg          0.5*zeta*eff(k-1)*sk2mx(j), &\n          !dbg          zeta**3*(phi(k-1)-eff(k-1))/(2*xk(k-1))*sk2mx2(j)\n          !dbg    else\n          !dbg       write(*,1) Nk(k)*k1m(j), kij(k,k)*Nk(k)*Mk(k,j), &\n          !dbg          Mk(k,j)*in, phi(k)*xk(k+1)*k1m(j), &\n          !dbg          0.5*zeta*eff(k)*k1mx(j), &\n          !dbg          zeta**3*(phi(k)-eff(k))/(2*xk(k))*k1mx2(j)\n          !dbg    endif\n          !dbg endif\n       enddo\n#endif\n\n       !dbg\n       if(pdbg) write(*,*) 'k,dNdt,dMdt: ', k, dNdt(k), dMdt(k,srtso4)\n\n       !Save the summations that are needed for the next size bin\n       sk2mtot=k1mtot\n       sk2mxtot=k1mxtot\n       do j=1,icomp-idiag\n          sk2m(j)=k1m(j)\n          sk2mx(j)=k1mx(j)\n          sk2mx2(j)=k1mx2(j)\n       enddo\n\n    enddo  !end of main k loop\n\n    ! Update Nk and Mk according to rates of change and time step\n\n    !If any Mkj are zero, add a small amount to achieve finite\n    !time steps\n    do k=1,ibins\n       do j=1,icomp-idiag\n          if (Mk(k,j) .eq. 0.e+0_fp) then\n             !add a small amount of mass\n             mtotal=0.e+0_fp\n             do jj=1,icomp-idiag\n                mtotal=mtotal+Mk(k,jj)\n             enddo\n             Mk(k,j)=1.e-10_fp*mtotal\n          endif\n       enddo\n    enddo\n\n    call mnfix(NK, MK, PDBG)\n\n    !Choose time step\n    dts=dt-tsum      !try to take entire remaining time step\n    limit='comp'\n    do k=1,ibins\n       if(pdbg) print*,'At bin ',k\n       if (Nk(k) .gt. Neps) then\n          !limit rates of change for this bin\n          if (dNdt(k) .lt. 0.0) tlimit=dtlimit\n          if (dNdt(k) .gt. 0.0) tlimit=itlimit\n          if (abs(dNdt(k)*dts) .gt. Nk(k)*tlimit) then\n             dts=Nk(k)*tlimit/abs(dNdt(k))\n             if(pdbg) print*,'tlimit',tlimit,'Nk(',k,')',Nk(k), &\n                             'dNdt',dNdt(k), ' == dts ',dts\n             limit='number'\n             if(pdbg) write(limit(8:9),'(I2)') k\n             if(pdbg) write(*,*) Nk(k), dNdt(k)\n          endif\n          do j=1,icomp-idiag\n             !limit rates of change x(win, 4/22/06)\n             if (dMdt(k,j) .lt. 0.0) tlimit=dtlimit\n             if (dMdt(k,j) .gt. 0.0) tlimit=itlimit\n             if (abs(dMdt(k,j)*dts) .gt. Mk(k,j)*tlimit) then\n                mtotal=0.e+0_fp\n                do jj=1,icomp-idiag\n                   mtotal=mtotal+Mk(k,jj)\n                enddo\n                !only use this criteria if this species is significant\n                if ((Mk(k,j)/mtotal) .gt. 1.e-5_fp) then\n                   dts=Mk(k,j)*tlimit/abs(dMdt(k,j))\n                   if(pdbg) print*,'tlimit',tlimit,'Mk(',k,j,')',Mk(k,j), &\n                                   'dMdt',dMdt(k,j), ' == dts ',dts\n                else\n                   if (dMdt(k,j) .lt. 0.0) then\n                      !set dmdt to 0 to avoid very small mk going negative\n                      dMdt(k,j)=0.0\n                      if(pdbg) print*,' dMdt(k,j) < 0 '\n                   endif\n                endif\n                limit='mass'\n                if(pdbg) write(limit(6:7),'(I2)') k\n                if(pdbg) write(limit(9:9),'(I1)') j\n                if(pdbg) write(*,*) Mk(k,j), dMdt(k,j)\n             endif\n          enddo\n       else\n          !nothing in this bin - don't let it affect time step\n          Nk(k)=Neps\n#if defined(TOMAS12) || defined(TOMAS15)\n          Mk(k,srtso4)=Neps*sqrt(xk(k)*xk(k+1)) !make the added particles SO4\n#else\n          Mk(k,srtso4)=Neps*1.4e+0_fp*xk(k) !make the added particles SO4\n#endif\n          !make sure mass/number don't go negative\n          if (dNdt(k) .lt. 0.0) dNdt(k)=0.0\n          if (pdbg) print*,' dNdt(k) < 0 '\n          do j=1,icomp-idiag\n             if (dMdt(k,j) .lt. 0.0) dMdt(k,j)=0.0\n          enddo\n       endif\n    enddo  !loop bin\n\n    if (pdbg .and. dts .lt. 1. ) then\n       write(*,*), dts, 'dts < 1. in multicoag'\n    endif\n\n    if (dts .eq. 0.) then\n       write(*,*) 'time step is 0 in multicoag - inf/nan/tiny error'\n       !pause\n       do k = 1,ibins\n          print *, 'dNdt(k)', dNdt(k)\n          print *, 'dMdt(k,j)'\n          do j = 1,icomp - idiag\n             print *, dMdt(k,j)\n          end do\n       end do\n\n       call debugprint(nk, mk, 0,0,0,'MULTICOAG before terminate: dts=0')\n       PDBG = .true.\n       return\n       !stop\n       !go to 20\n    endif\n\n    !Change Nk and Mk\n    !dbg\n    if(pdbg) write(*,*) 'tsum=',tsum+dts,' ',limit\n    do k=1,ibins\n       Nk(k)=Nk(k)+dNdt(k)*dts\n       do j=1,icomp-idiag\n          Mk(k,j)=Mk(k,j)+dMdt(k,j)*dts\n       enddo\n    enddo\n\n    !Update time and repeat process if necessary\n    tsum=tsum+dts\n    if (tsum .lt. dt) then\n       !print*,'tsum',tsum, 'less than 3600. loop again'\n       goto 10\n    endif\n\n    RETURN\n\n  END SUBROUTINE MULTICOAG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: so4cond\n!\n! !DESCRIPTION: Subroutine SO4COND determines the condensational driving force\n!  for mass transfer of sulfate between gas and aerosol phases.  It then calls\n!  a mass- and number-conserving algorithm for condensation (/evaporation) of\n!  aerosol.\n!  .\n!  An adaptive time step is used to prevent numerical difficulties.\n!  To account for the changing gas phase concentration of sulfuric\n!  acid, its decrease during a condensational time step is well-\n!  approximated by an exponential decay with a constant, sK (Hz).\n!  sK is calculated from the mass and number distribution of the\n!  aerosol.  Not only does this approach accurately take into account\n!  the changing sulfuric acid concentration, it is also used to\n!  predict (and limit) the final sulfuric acid concentration.  This\n!  approach is more accurate and faster (allows longer condensational\n!  time steps) than assuming a constant supersaturation of sulfate.\n!  .\n!  Written by Peter Adams, June 2000, based on thermocond.f\n!  Introduced to GEOS-CHEM by Win Trivitayanurak (win@cmu.edu) July 2007\n\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SO4COND(Nki,Mki,Gci,Nkf,Mkf,Gcf,dt, &\n                     BOXVOL, BOXMASS, TEMPTMS, PRES, RHTOMAS, errspot)\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n!\n! !INPUT PARAMETERS:\n!\n    ! Initial values of\n    ! Nki(ibins) - number of particles per size bin in grid cell\n    ! Mki(ibins, icomp) - mass of a given species per size bin/grid cell\n    ! Gci(icomp-1) - amount (kg/grid cell) of all species present in the\n    !                gas phase except water\n    ! dt - total model time step to be taken (s)\n    REAL(fp)           :: Nki(ibins), Mki(ibins, icomp), Gci(icomp-1)\n    REAL*4             :: dt\n    LOGICAL            :: errspot\n\n    REAL*4, INTENT(IN) :: BOXVOL,  BOXMASS, TEMPTMS\n    REAL*4, INTENT(IN) :: PRES, RHTOMAS\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Nkf, Mkf, Gcf - same as above, but final values\n    REAL(fp)      :: Nkf(ibins), Mkf(ibins, icomp), Gcf(icomp-1)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)    :: dp(ibins, icomp-1)  !Driving force for condensation (Pa)\n    REAL(fp)    :: tau(ibins)          !condensation parameter (see cond)\n    REAL(fp)    :: atau(ibins, icomp)  !same as tau, but all species\n    REAL(fp)    :: atauc(ibins, icomp) !same as atau, but for const dp\n    REAL*4      :: time                !amount of time (s) that has been simulated\n    REAL*4      :: cdt                 !internal, adaptive time step\n    REAL*4      :: mu                  !viscosity of air (kg/m s)\n    REAL*4      :: mfp                 !mean free path of air molecule (m)\n    REAL*4      :: Kn                  !Knudsen number of particle\n    REAL*4      :: Dpk(ibins)          !diameter (m) of particles in bin k\n    REAL*4      :: density             !density (kg/m3) of particles\n    INTEGER     :: j,k,jj,kk        !counters\n    REAL(fp)    :: tj(icomp-1), tk(ibins)  !factors used for calculating tau\n    REAL(fp)    :: sK                  !exponential decay const for H2SO4(g)\n    REAL(fp)    :: pi, R            !constants\n    REAL(fp)    :: zeta13             !from Eqn B30 of Tzivion et al. (1989)\n    REAL*4      ::Di                  !diffusivity of gas in air (m2/s)\n    REAL*4      ::gmw(icomp-1)        !molecular weight of condensing gas\n    REAL*4      ::Sv(icomp-1)         !parameter used for estimating diffusivity\n    REAL*4      ::alpha(icomp-1)      !accomodation coefficients\n    REAL*4      ::beta                !correction for non-continuum\n    REAL(fp)    :: mp         !particle mass (kg)\n    REAL(fp)    :: Nko(ibins), Mko(ibins, icomp), Gco(icomp-1) !output of cond routine\n    REAL(fp)    :: mi, mf  !initial and final aerosol masses (updates Gc)\n    REAL(fp)    :: tr      ! used to calculate time step limits\n    REAL(fp)    :: mc, ttr\n    REAL(fp)    :: Neps     !value below which Nk is insignificant\n    REAL(fp)    :: cthresh  !determines minimum gas conc. for cond.\n    !dbg      character*12 limit        !description of what limits time step\n    REAL(fp)    :: tdt      !the value 2/3\n    REAL(fp)    :: Ntotf, Ntoto, dNerr  !used to track number cons.\n    !dbg      integer numcalls          !number of times cond routine is called\n    REAL(fp)    :: Mktot        ! total mass (win, 4/14/06)\n    REAL(fp)    :: zeros(IBINS)\n\n    LOGICAL     :: negvalue  ! negative check variable\n    LOGICAL     :: printdebug ! signal received from aerophys to print values for debug (win, 4/8/06)\n    LOGICAL     :: tempvar    ! just a temporary variable (win, 4/12/06)\n\n    !REAL(fp), EXTERNAL :: AERODENS\n    !REAL, EXTERNAL ::  GASDIFF\n\n    PARAMETER(PI=3.141592654, R=8.314) !pi and gas constant (J/mol K)\n    PARAMETER(Neps=1.0e10_fp, zeta13=0.98483, cthresh=1.e-16_fp)\n\n    !=================================================================\n    ! SO4COND begins here!\n    !=================================================================\n\n    negvalue = .false.\n    printdebug  = .false.\n    tempvar  = .false.\n\n    ! Set some constants\n    ! Note: Could have declare this using DATA statement but don't want to\n    !       keep modifying when changing the multi-component mass species\n    DO J = 1, ICOMP-1\n       IF( J == SRTSO4 ) THEN\n          gmw(J)  = 98.\n          Sv(J)   = 42.88\n          alpha(J)= 0.65\n          !alpha from U. Poschl et al., J. Phys. Chem. A, 102, 10082-10089, 1998\n       ELSE IF( J == SRTNACL ) THEN\n          gmw(J)  = 0.\n          Sv(J)   = 42.88  !use 42.88 for all components following Jeff Pierce's code (win,9/26/08)\n          alpha(J)= 0.\n       ELSE IF( J == SRTECOB .or. J == SRTECIL .or. &\n                J == SRTOCOB .or. J == SRTOCIL ) THEN\n          gmw(J)  = 12.          ! check these values with Jeff again (win, 8/22/07)\n          Sv(J)   = 42.88\n          alpha(J)= 0.\n       ELSE IF( J == SRTDUST ) THEN\n          gmw(J)  = 0.\n          Sv(J)   = 42.88\n          alpha(J)= 0.\n       ELSE IF( J == SRTNH4 ) THEN\n          gmw(J)  = 0.\n          Sv(J)   = 42.88\n          alpha(J)= 0.\n       ELSE\n          PRINT *, 'Modify SO4cond for the new species'\n          CALL ERROR_STOP('SO4COND','Need values for Gmw, Sv, alpha')\n       ENDIF\n    ENDDO\n\n    !dbg numcalls=0\n    printdebug = errspot !taking the signal to printdebug from aerophys (win, 4/8/06)\n    errspot = .true. !<step4.4> Flag for showing error location outside this subroutine (win,9/21/05)\n\n    dNerr=0.0\n    tdt=2.e+0_fp/3.e+0_fp\n\n    ! Initialize values of Nkf, Mkf, Gcf, and time\n    !--------------------------------------------------\n    TIME = 0.0                !subroutine exits when time=dt\n    DO J = 1, ICOMP-1\n       GCF(J) = GCI(J)\n    ENDDO\n    DO K = 1, IBINS\n       NKF(K) = NKI(K)\n       DO J = 1, ICOMP\n          MKF(K,J) = MKI(K,J)\n       ENDDO\n    ENDDO\n\n    !Leave everything the same if nothing to condense\n    IF ( GCI(SRTSO4) < CTHRESH * BOXMASS ) GOTO 100\n\n    IF ( PRINTDEBUG ) PRINT*,'COND NOW: H2SO4=',Gci(srtso4)\n\n    ! Repeat from this point if multiple internal time steps are needed\n    !------------------------------------------------------------------\n10  CONTINUE\n\n    ! Call thermodynamics to get dp forcings for volatile species\n    do k=1,ibins\n       do j = 1, icomp-1\n          dp(k,j)=0.0\n       enddo\n    enddo\n\n    ! Set dp for nonvolatile species\n    do k=1,ibins\n       !<step4.5> correct the MW of Gcf(srtso4) to be 98. (win, 10/13/05)\n       dp(k,srtso4)=(Gcf(srtso4)/98.)/(boxmass/28.9)*pres\n    enddo\n\n    ! Calculate tj and tk factors needed to calculate tau values\n    mu=2.5277e-7*temptms**0.75302\n    mfp=2.0*mu/(pres*sqrt(8.0*0.0289/(pi*R*temptms)))  !S&P eqn 8.6\n    do j=1,icomp-1\n       Di=gasdiff(temptms,pres,gmw(j),Sv(j))\n       tj(j)=2.*pi*Di*molwt(j)*1.0e-3_fp/(R*temptms)\n    enddo\n    sK=0.0e+0_fp\n    do k=1,ibins\n       if (Nkf(k) .gt. Neps) then\n          density=aerodens(Mkf(k,srtso4),0.e+0_fp, &\n                  0.1875e+0_fp*Mkf(k,srtso4),Mkf(k,srtnacl), &\n                  Mkf(k,srtecil), Mkf(k,srtecob), &\n                  Mkf(k,srtocil), Mkf(k,srtocob), &\n                  Mkf(k,srtdust), &\n                  Mkf(k,srth2o))\n          !factor of 1.2 assumes ammonium bisulfate\n          !(NH4)H has MW of 19 which is = 0.2*96\n          !So the Mass of ammonium bisulfate = 1.2*mass sulfate\n          !win, 4/14/06             mp=(1.2*Mkf(k,srtso4)+Mkf(k,srth2o))/Nkf(k)\n          !Need to include new mass species in mp (win, 4/14/06)\n          !Add 0.1875x first for ammonium, and then add 1.0x in the loop (win, 4/14/06)\n          Mktot=0.1875e+0_fp*Mkf(k,srtso4)\n          do j=1, icomp\n             Mktot=Mktot+Mkf(k,j)\n          enddo\n          mp=Mktot/Nkf(k)\n\n       else\n          !nothing in this bin - set to \"typical value\"\n          density=1500.\n#if defined(TOMAS12) || defined(TOMAS15)\n          mp=sqrt(xk(k)*xk(k+1))\n#else\n          mp=1.4*xk(k)\n#endif\n       endif\n       Dpk(k)=((mp/density)*(6./pi))**(0.333)\n       Kn=2.0*mfp/Dpk(k)                             !S&P eqn 11.35 (text)\n       beta=(1.+Kn)/(1.+2.*Kn*(1.+Kn)/alpha(srtso4)) !S&P eqn 11.35\n       tk(k)=(6./(pi*density))**(1./3.)*beta\n       if (Nkf(k) .gt. 0.0) then\n          do kk=1,icomp\n             sK=sK+tk(k)*Nkf(k)*(Mkf(k,kk)/Nkf(k))**(1.e+0_fp/3.e+0_fp)  !<step5.1> (win, 4/14/06)\n          enddo\n       endif\n    enddo  !bin loop\n    sK=sK*zeta13*tj(srtso4)*R*temptms/(molwt(srtso4)*1.e-3_fp)/(boxvol*1.e-6_fp)\n\n    ! Choose appropriate time step\n\n    !Try to take full time step\n    cdt=dt-time\n    !dbg limit='complete'\n\n    !Not more than 15 minutes\n    if (cdt .gt. 900.) then\n       cdt=900.\n       !dbg limit='max'\n    endif\n\n20  continue   !if time step is shortened, repeat from here\n\n    !Calculate tau values for all species/bins\n    do k=1,ibins\n       do j=1,icomp\n          atauc(k,j)=0.e+0_fp\n          atau(k,j)=0.e+0_fp\n       enddo\n       !debug%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       if(printdebug)then\n          write(*,*)'+++ k loop at',k !<temp>\n          write(*,*)'+++ tj(srtso4)', tj(srtso4) !<temp>\n          write(*,*)'+++ dp(k,srtso4)', dp(k,srtso4) !<temp>\n          write(*,*)'+++ tk(k)',tk(k) !<temp>\n          write(*,*)'+++ cdt',cdt !<temp>\n       endif\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n       atauc(k,srtso4)=tj(srtso4)*tk(k)*dp(k,srtso4)*cdt\n\n       if (sK .gt. 0.e+0_fp) then\n          atau(k,srtso4)=tj(srtso4)*R*temptms/(molwt(srtso4)*1.e-3_fp) &\n                         /(boxvol*1.e-6_fp)*tk(k)*Gcf(srtso4)/sK &\n                         *(1.e+0_fp-exp(-1.e+0_fp*sK*cdt))\n       else\n          !nothing to condense onto\n          atau(k,srtso4)=0.e+0_fp\n       endif\n    enddo\n\n    !debug%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    if (printdebug) then\n       do j=1,icomp\n          print *,'atauc(1:ibins,comp) at comp',j\n          print *,atauc(1:ibins,j)\n          print *,'atau(1:ibins,comp) at comp',j\n          print *,atau(1:ibins,j)\n       enddo\n    endif\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    !The following sections limit the condensation time step\n    !when necessary.  tr is a factor that describes by\n    !how much to reduce the time step.\n    tr=1.e+0_fp  !make sure tr is double precision (win, 3/20/05)\n\n    !Make sure masses of individual species don't change too much\n    do j=1,icomp-1\n       do k=1,ibins\n          if (Nkf(k) .gt. Neps) then\n             mc=0.e+0_fp\n             do jj=1,icomp\n                mc=mc+Mkf(k,jj)/Nkf(k)\n             enddo\n             if (mc/xk(k) .gt. 1.0e-3_fp) then\n                !species has significant mass in particle - limit change\n                if (abs(atau(k,j))/mc**(2.e+0_fp/3.e+0_fp) > 0.1) then\n                   ttr=abs(atau(k,j))/mc**(2.e+0_fp/3.e+0_fp)/5.e-2_fp\n                   if (ttr .gt. tr) then\n                      tr=ttr\n                      !dbg limit='amass'\n                      !dbg write(limit(7:11),'(I2,X,I2)') k,j\n                   endif\n                endif\n             else\n                !species is new to particle - set max time step\n                if ((cdt/tr.gt.1.e-1_fp).and.(atau(k,j)>0.e+0_fp)) then\n                   tr=cdt/1.e-1_fp !Make sure tr is double precision (win,3/20/05)\n                   !dbg limit='nspec'\n                   !dbg write(limit(7:11),'(I2,X,I2)') k,j\n                endif\n             endif\n          endif\n       enddo\n       !Make sure gas phase concentrations don't change too much\n       if (exp(-1.e+0_fp*sK*cdt) .lt. 2.5e-1_fp) then\n          ttr=-2.e+0_fp*cdt*sK/log(2.5e-1_fp)\n          if (ttr .gt. tr) then\n             tr=ttr\n             !dbg limit='gphas'\n             !dbg write(limit(7:8),'(I2)') j\n          endif\n       endif\n    enddo\n\n    !Never shorten timestep by less than half\n    if (tr .gt. 1.e+0_fp) tr=max(tr,2.e+0_fp) !make sure tr is double precision (win,3/20/05)\n\n    !Repeat for shorter time step if necessary\n    if (tr .gt. 1.e+0_fp) then  !make sure tr is double precision (win,3/20/05)\n       cdt=cdt/tr\n       goto 20\n    endif\n\n    ! Call condensation subroutine to do mass transfer\n\n    do j=1,icomp-1  !Loop over all aerosol components\n\n       !debug%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       if(printdebug) print *,'Call condensation at comp',j\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n       !Swap tau values for this species into array for cond\n       do k=1,ibins\n          tau(k)=atau(k,j)\n       enddo\n\n       !dbg write(*,*) 'so4cond - time = ', time, ' ',limit\n       !dbg if (j .eq. srtso4) then\n       !dbg    do k=1,ibins\n       !dbg       write(*,'(I3,4E12.4)') &\n       !dbg         k,sK,cdt,atauc(k,srtso4),atau(k,srtso4)\n       !dbg    enddo\n       !dbg endif\n\n       if (printdebug) negvalue=.true. !signal received to printdebug (win, 4/8/06)\n       call mnfix(Nkf,Mkf,negvalue) !<step5.1> bug fix call argument (win, 4/15/06) !<step4.2> Add call argument to carry tell where mnfix found\n       ! the negative value (win, 9/12/05)\n       if ( negvalue ) STOP 'MNFIX terminate' !(win, 9/12/05)\n\n       !Call condensation routine\n       Ntotf=0.e+0_fp  !Force double precision (win, 4/20/06)\n       do k=1,ibins\n          Ntotf=Ntotf+Nkf(k)\n       enddo\n\n       !<step5.1> Skip tmcond call if there is absolutely no particle (win, 4/20/06)\n       if(Ntotf.gt.0e+0_fp) then\n\n          !debug%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          if(printdebug) print *,'=== Entering TMCOND ==='\n          tempvar = printdebug\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          zeros(:) = 0.e+0_fp\n          call tmcond(tau,xk,Mkf,Nkf,Mko,Nko,j,printdebug,zeros)\n          !dbg numcalls=numcalls+1\n          errspot = printdebug !receive the error signal from inside tmcond (win,4/12/06)\n          printdebug = tempvar !printdebug gets the originally assigned value (win, 4/12/06)\n          !8/2/07 if(errspot) goto 100 !Exit so4cond right away when found error from tmcond. (win, 4/13/06)\n\n          !Check for number conservation\n          Ntoto=0.0\n          do k=1,ibins\n             Ntoto=Ntoto+Nko(k)\n          enddo\n          !dbg write(*,*) 'Time=', time\n          !dbg write(*,*) 'Ntoto=', Ntoto\n          !dbg write(*,*) 'Ntotf=', Ntotf\n          dNerr=dNerr+Ntotf-Ntoto\n          if (abs(dNerr/Ntoto) .gt. 1.e-4) then\n             write(*,*) 'ERROR in so4cond: Number not conserved'\n             write(*,*) 'time=',time\n             write(*,*) Ntoto, Ntotf\n             write(*,*) (Nkf(k),k=1,ibins)\n             errspot = .true. !<step4.4> This flag will trigger printing of location with error (win, 9/21/05)\n          endif\n\n       else !(win, 4/20/06)\n          if(printdebug) print *,'so4cond: Nk=0 -> skip tmcond'\n          do k=1,ibins\n             nko(k) = 0e+0_fp\n             do jj=1,icomp-1\n                Mko(k,jj) = 0e+0_fp\n             enddo\n          enddo\n       endif !(win, 4/20/06)\n\n       if(printdebug) print *,'Initial gas conc:',Gcf(j)  !<temp> (win, 4/11/06)\n\n       !Update gas phase concentration\n       mi=0.0\n       mf=0.0\n       do k=1,ibins\n          mi=mi+Mkf(k,j)\n          mf=mf+Mko(k,j)\n       enddo\n       Gcf(j)=Gcf(j)+(mi-mf)*gmw(j)/molwt(j)\n\n       if(printdebug) print *,'Updated gas conc:',Gcf(j) !<temp> (win, 4/11/06)\n\n       !Swap into Nkf, Mkf\n       do k=1,ibins\n          Nkf(k)=Nko(k)\n          do jj=1,icomp-1\n             Mkf(k,jj)=Mko(k,jj)\n          enddo\n       enddo\n\n       !Update water concentrations\n       call ezwatereqm(Mkf, RHTOMAS)\n\n    enddo\n\n    ! Update time\n    time=time+cdt\n    !dbg write(*,*) 'so4cond - time = ', time, ' ',limit\n    !dbg write(*,*) 'H2SO4(g)= ', Gcf(srtso4)\n    if (Gcf(srtso4) .lt. 0.0) then\n       if (abs(Gcf(srtso4)) .gt. 1.e-5_fp) then\n          !Gcf is substantially less than zero - this is a problem\n          write(*,*) 'ERROR in so4cond: H2SO4(g) < 0'\n          write(*,*) 'time=',time\n          write(*,*) 'Gcf()=',Gcf(srtso4)\n          !4/11/06 STOP\n          !Let the run STOP outside so4cond so I can know where the run died (win, 4/11/06)\n          errspot=.true. !win, 4/11/06\n       else\n          !Gcf is negligibly less than zero - probably roundoff error\n          Gcf(srtso4)=0.0\n       endif\n    endif\n\n    ! Repeat process if necessary\n    if (time .lt. dt) goto 10\n\n    !dbg write(*,*) 'Cond routine called ',numcalls,' times'\n    !dbg write(*,*) 'Number cons. error was ', dNerr\n\n100 continue   !skip to here if there is no gas phase to condense\n\n    RETURN\n  END SUBROUTINE SO4COND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: tmcond\n!\n! !DESCRIPTION: Subroutine TMCOND do condensation calculation.\n!  Original code from Peter Adams\n!  Modified for GEOS-CHEM by Win Trivitayaurak (win@cmu.edu)\n!  CONDENSATION\n!   Based on Tzivion, Feingold, Levin, JAS 1989 and\n!   Stevens, Feingold, Cotton, JAS 1996\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TMCOND(TAU,X,AMKD,ANKD,AMK,ANK,CSPECIES,pdbug,moxd)\n!\n! !INPUT PARAMETERS:\n!\n    ! TAU(k) ...... Forcing for diffusion = (2/3)*CPT*ETA_BAR*DELTA_T\n    ! X(K) ........ Array of bin limits in mass space\n    ! AMKD(K,J) ... Input array of mass moments\n    ! ANKD(K) ..... Input array of number moments\n    ! CSPECIES .... Index of chemical species that is condensing\n    REAL(fp)       :: TAU(ibins)\n    REAL(fp)       :: X(ibins+1),AMKD(ibins,icomp),ANKD(ibins)\n    INTEGER        :: CSPECIES\n    LOGICAL        :: pdbug !(win, 4/10/06)\n    REAL(fp)       :: moxd(IBINS) ! condensing mass distributed to size bins\n                       ! according to the selected absorbing media (win, 3/5/08)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! AMK(K,J) .... Output array of mass moments\n    ! ANK(K) ...... Output array of number moments\n    REAL(fp)       :: AMK(ibins,icomp),ANK(ibins)\n!\n! !REMARKS:\n! The supersaturation is calculated outside of the routine and assumed\n! to be constant at its average value over the timestep.\n! .\n! The method has three basic components:\n! (1) first a top hat representation of the distribution is construced\n!     in each bin and these are translated according to the analytic\n!     solutions\n! (2) The translated tophats are then remapped to bins.  Here if a\n!     top hat entirely or in part lies below the lowest bin it is\n!     not counted.\n!     .\n! Additional notes (Peter Adams)\n!     .\n!     I have changed the routine to handle multicomponent aerosols.  The\n!     arrays of mass moments are now two dimensional (size and species).\n!     Only a single component (CSPECIES) is allowed to condense during\n!     a given call to this routine.  Multicomponent condensation/evaporation\n!     is accomplished via multiple calls.  Variables YLC and YUC are\n!     similar to YL and YU except that they refer to the mass of the\n!     condensing species, rather than total aerosol mass.\n!     .\n!     I have removed ventilation variables (VSW/VNTF) from the subroutine\n!     call.  They still exist internally within this subroutine, but\n!     are initialized such that they do nothing.\n!     .\n!     I have created a new variable, AMKDRY, which is the total mass in\n!     a size bin (sum of all chemical components excluding water).  I\n!     have also created WR, which is the ratio of total wet mass to\n!     total dry mass in a size bin.\n!     .\n!     AMKC(k,j) is the total amount of mass after condensation of species\n!     j in particles that BEGAN in bin k.  It is used as a diagnostic\n!     for tracking down numerical errors.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER        :: L,I,J,K,IMN\n    REAL(fp)       :: DN,DM,DYI,XL,XU,YL,YLC,YU,YUC\n    REAL(fp)       :: TEPS,NEPS,NEPS2,EX2,ZERO\n    REAL(fp)       :: XI,XX,XP,YM,WTH,W1,W2,WW,AVG\n    REAL(fp)       :: VSW,VNTF(ibins)\n    REAL(fp)       :: TAU_L, maxtau\n\n    REAL(fp)       :: AMKDRY(ibins), WR(ibins), AMKWET(ibins)\n    REAL(fp)       :: AMKDRYSOL(ibins)\n\n    LOGICAL        :: errspot !(win, 4/12/06)\n\n    REAL(fp)       :: c1, c2 !correction factor (win, 5/25/06)\n    REAL(fp)       :: madd(ibins) !condensing mass to be added by aqoxid\n                                  !or SOAcond. For error fixing (win, 9/27/07)\n    REAL(fp)       :: xadd(ibins) !mass per particle to be added by aqoxid\n                                  ! or SOAcond. For error fixing (win, 9/27/07)\n    REAL(fp)       :: macc !accumulating the condensing mass (win, 7/24/06)\n    REAL(fp)       :: delt1,delt2 !the delta = mass not conserved (win, 7/24/06)\n    REAL(fp)       :: dummy, xtra,maddtot ! for mass conserv fixing (win, 9/27/07)\n    integer        :: kk !counter (wint, 7/24/06)\n    REAL(fp)       :: AMKD_tot\n\n    PARAMETER (TEPS=1.0e-40_fp,NEPS=1.0e-20_fp)\n    PARAMETER (EX2=2.e+0_fp/3.e+0_fp,ZERO=0.0e+0_fp)\n    PARAMETER (NEPS2=1.0e-10_fp)\n\n    !=================================================================\n    ! TMCOND begins here!\n    !=================================================================\n\n3   format(I4,200E20.11)\n\n    !<step4.5> This first check cause the error of 'number not conserved'\n    ! though only with the small amounts because when ANKD(k) = 0.e+0_fp from start,\n    ! the original check just give it a value NEPS = 1.d-20, and then undergo\n    ! tmcond calculation.   I'm changing the check to if ANKD(k)= 0.e+0_fp,\n    ! then keep it that way and make the following calculations skip when\n    ! ANKD(k) is zero (win, 10/18/05)\n\n    ! If any ANKD are zero, set them to a small value to avoid division by zero\n    !do k=1,ibins\n    !   if (ANKD(k) .lt. NEPS) then\n    !      ANKD(k)=NEPS\n    !      AMKD(k,srtso4)=NEPS*1.4*xk(k) !make the added particles SO4\n    !   endif\n    !enddo\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !<step5.1> Add print for debugging (win, 4/10/06)\n    if (pdbug) then\n       call debugprint(ANKD, AMKD, 0,0,0,'Entering TMCOND')\n       ! print *, 'TMCOND:entering*************************'\n       ! print *,'Nk(1:30)'\n       ! print *, ANKD(1:30)\n       ! print *,'Mk(1:30,comp)'\n       ! do j=1,icomp\n       ! print *,'comp',j\n       ! print *, AMKD(1:30,j)\n       ! enddo\n    endif\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    errspot = .false. !initialize error signal as false (Win, 4/12/06)\n\n    !pja Sometimes, after repeated condensation calls, the average bin mass\n    !pja can be just above the bin boundary - in that case, transfer a some\n    !pja to the next highest bin\n    !sfarina this is also true when small particles are growing really fast?\n    !sfarina SOACOND throws thousands of errors for XI < 1\n    !sfarina what this really means is AVG particle massfor bin k > XK(k+1)\n    !sfarina through the debugger I found that mostly the difference is small\n    do k=1,ibins-1\n       if ( ANKD(k) .lt. NEPS2) goto 300 !<step4.5> (win, 10/18/05)\n       ! Modify the check to include all dry mass (win, 10/3/08)\n       AMKD_tot = 0.e+0_fp\n       do kk=1,icomp-idiag\n          AMKD_tot = AMKD_tot + AMKD(k,kk)\n       enddo\n       if ((AMKD_tot)/ANKD(k).gt.xk(k+1)) then\n          !Prior to 10/3/08 (win)\n          !if ((AMKD(k,srtso4))/ANKD(k).gt.xk(k+1)) then\n          !sfarina: this does noting to help our avg mass per particle\n          !         falling outside of bin boundaries:\n          !         amkd_tot / ankd(k) = (amkd_tot * 0.9) / (ankd(k) * 0.9)\n          !         we need to shift more mass than number.\n          !         assuming we have some kind of distributionof particle sizes in bin K\n          !         the largest ones will have more mass than average, so we can safly move\n          !         more mass than number.\n          !         that or we redistribute mass before SOAcond\n          !\n          do j=1,icomp-idiag\n             AMKD(k+1,j)=AMKD(k+1,j)+0.1e+0_fp*AMKD(k,j)\n             AMKD(k,j)=AMKD(k,j)*0.9e+0_fp\n          enddo\n          ANKD(k+1)=ANKD(k+1)+0.1e+0_fp*ANKD(k)\n          ANKD(k)=ANKD(k)*0.9e+0_fp\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          !<step5.1> Add print for debugging (win, 4/10/06)\n          if (pdbug) then\n             print *, 'Modified at checkpoint1: BIN',k\n             print *,'ANKD(k)',ANKD(k),'ANKD(k+1)',ANKD(k+1)\n             print *,'Mk(k,comp)       Mk(k+1,comp)'\n             do j=1,icomp\n                print *,'comp',j\n                print *, AMKD(k,j), AMKD(k+1,j)\n             enddo\n          endif\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       endif\n300    continue   !<step4.5> If aerosol number is zero (win, 10/18/05)\n\n    enddo\n\n    !pja Initialize ventilation variables so they don't do anything\n    VSW=0.0e+0_fp\n    DO L=1,ibins\n       VNTF(L)=0.0e+0_fp\n    ENDDO\n\n    !pja Initialize AMKDRY and WR\n    DO L=1,ibins\n       AMKDRY(L)=0.e+0_fp\n       AMKWET(L)=0.e+0_fp\n       AMKDRYSOL(L) = 0.e+0_fp\n       DO J=1,icomp-idiag     ! dry mass excl. nh4 (win, 9/26/08)\n          AMKDRY(L)=AMKDRY(L)+AMKD(L,J)\n          ! Accumulate the absorbing media (win, 3/5/08)\n          IF ( J == SRTOCIL  ) &\n               AMKDRYSOL(L) = AMKDRYSOL(L) + AMKD(L,J)\n       ENDDO\n       DO J=1,ICOMP\n          AMKWET(L) = AMKWET(L) + AMKD(L,J)\n       ENDDO\n       if (AMKDRY(L) .gt. 0.e+0_fp) &   !<step4.5> In case there is no mass, then just skip (win, 10/18/05)\n            WR(L)= AMKWET(L) / AMKDRY(L)\n    ENDDO\n\n    !debug%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    if(pdbug)then\n       print*,'AMKDRY(1:ibins)'\n       print *,AMKDRY(1:ibins)\n       print *,'WR(1:ibins)'\n       print *,WR(1:ibins)\n    endif\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    !pja Initialize X() array of particle masses based on xk()\n    DO L=1,ibins\n       X(L)=xk(L)\n    ENDDO\n\n    !\n    ! Only solve when significant forcing is available\n    !\n    maxtau=0.0e+0_fp\n    do l=1,ibins\n       maxtau=max(maxtau,abs(TAU(l)))\n    enddo\n\n    !debug%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    if(pdbug) then\n       print*,'tau(1:ibins)'\n       print *,tau(1:ibins)\n    endif\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    IF(ABS(maxtau).LT.TEPS)THEN\n       DO L=1,ibins\n          DO J=1,icomp\n             AMK(L,J)=AMKD(L,J)\n          ENDDO\n          ANK(L)=ANKD(L)\n       ENDDO\n    ELSE\n       !<step5.3> Try to fix the error of mass conservation\n       ! during aqueous oxidation. Too little mass is used up\n       ! (win, 7/24/06)\n       IF ( MAXVAL(MOXD(:)) >  0e+0_fp ) THEN\n          IF( PDBUG ) PRINT *,'Mass_to_add_by_aqoxid_or_SOAcond'\n          maddtot = 0e+0_fp\n          DO L = 1, IBINS\n             IF(TAU(L) >  0e+0_fp ) THEN\n                MADD(L) = MOXD(L)\n                XADD(L) = MOXD(L) / ANKD(L)\n                !IF( CSPECIES == SRTSO4 ) THEN\n                !   MADD(L) = MOXD * ANKD(L)  ! absolute condensing mass\n                !   XADD(L) = MOXD            ! mass per particle\n                !ELSE IF ( CSPECIES == SRTOCIL ) THEN\n                !   MADD(L) = MOXD * AMKDRYSOL(L)\n                !   XADD(L) = MADD(L) / ANKD(L)\n                !ELSE\n                !   PRINT *,'TMCOND ERROR : mass fixing not supported'\n                !ENDIF\n             ELSE\n                MADD(L) = 0e+0_fp\n                XADD(L) = 0e+0_fp\n             ENDIF\n             IF ( PDBUG ) PRINT *,L,madd(L), xadd(L)\n             maddtot = maddtot + madd(L)\n          ENDDO\n       ENDIF\n\n       DO L=1,ibins\n          DO J=1,icomp\n             AMK(L,J)=0.e+0_fp\n          ENDDO\n          ANK(L)=0.e+0_fp\n       ENDDO\n       WW=0.5e+0_fp\n       ! IF(TAU.LT.0.)WW=.5e+0_fp\n       !\n       ! identify tophats and do lagrangian growth\n       !\n       DO L=1,ibins\n          IF(ANKD(L) .LT. NEPS2)GOTO 200 !skip if Number is effectively zero\n\n          !if tau is zero, leave everything in same bin\n          IF (TAU(L) .EQ. 0.) THEN\n             ANK(L)=ANK(L)+ANKD(L)\n             DO J=1,icomp\n                AMK(L,J)=AMK(L,J)+AMKD(L,J)\n             ENDDO\n          ENDIF\n          IF (TAU(L) .EQ. 0.) GOTO 200\n\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          !<step5.1> Add print for debugging (win, 4/10/06)\n          if (pdbug) then\n             print *, 'Identify_tophat_and_grow-BIN',L\n             print *,'Starting_Nk(1:ibins)'\n             print *, ANK(1:ibins)\n             print *,'Starting_Mk(1:ibins,comp)'\n             do j=1,icomp-1\n                print *,'comp',j\n                print *, AMK(1:ibins,j)\n             enddo\n          endif\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n          !pja Limiting AVG, the average particle size to lie within the size\n          !pja bounds causes particles to grow or shrink arbitrarily and is\n          !pja wreacking havoc with choosing condensational timesteps and\n          !pja conserving mass.  I have turned them off.\n          !AVG=MAX(X(L),MIN(X(L+1),AMKDRY(L)/(NEPS+ANKD(L))))\n          !try bring the above line back, win 4/10/06\n          !win 4/10/06\n\n          AVG=AMKDRY(L)/ANKD(L)\n          XX=X(L)/AVG\n\n#if defined(TOMAS12) || defined(TOMAS15)\n          if(l.lt.ibins-1)then ! bin quadrupuling\n             XI=.5e+0_fp + XX*(2.5e+0_fp - 2.0e+0_fp*XX)\n             !XI<1 means the AVG falls out of bin bounds\n             if (XI .LT. 1.e+0_fp) then\n                !W1 will have sqrt of negative number\n                write(*,*)'ERROR: tmcond - XI<1 for bin: ',L\n                write(*,*)'AVG is ',AVG\n                write(*,*)'Nk is ', ANKD(L)\n                write(*,*)'Mk are ', (AMKD(L,j),j=1,icomp)\n                write(*,*)'Initial N and M are: ',ANKD(L),AMKDRY(L)\n                errspot = .true.\n                RETURN\n             endif\n             W1 =SQRT(12.e+0_fp*(XI-1.e+0_fp))*AVG/4.0e+0_fp ! cyhl 4.0=xk(k+1)/xk(k)\n             W2 =(MIN(X(L+1)-AVG,AVG-X(L)))*2.0e+0_fp\n          else ! final 2 bins mass*32\n             XI=.5e+0_fp + XX*(16.5e+0_fp - 16.0e+0_fp*XX)\n             if (XI .LT. 1.e+0_fp) then\n                !W1 will have sqrt of negative number\n                write(*,*)'ERROR: tmcond - XI<1 for bin: ',L\n                write(*,*)'lower limit is',X(L)\n                write(*,*)'AVG is ',AVG\n                write(*,*)'Nk is ', ANKD(L)\n                write(*,*)'Mk are ', (AMKD(L,j),j=1,icomp)\n                write(*,*)'Initial N and M are: ',ANKD(L),AMKDRY(L)\n                errspot = .true.\n                RETURN\n             endif\n             W1 =SQRT(12.e+0_fp*(XI-1.e+0_fp))*AVG/32.0e+0_fp ! cyhl 32.0=xk(k+1)/xk(k)\n             W2 =(MIN(X(L+1)-AVG,AVG-X(L)))*2.0e+0_fp\n          endif\n#else\n          XI=.5e+0_fp + XX*(1.5e+0_fp - XX)\n          !XI<1 means the AVG falls out of bin bounds\n\n          if (XI .LT. 1.e+0_fp) then\n             !W1 will have sqrt of negative number\n             write(*,*)'ERROR: tmcond - XI<1 for bin: ',L\n             write(*,*)'AVG is ',AVG\n             write(*,*)'Nk is ', ANKD(L)\n             write(*,*)'Mk are ', (AMKD(L,j),j=1,icomp)\n             write(*,*)'Initial N and M are: ',ANKD(L),AMKDRY(L)\n             errspot = .true.\n             RETURN\n          endif\n          W1 =SQRT(12.e+0_fp*(XI-1.e+0_fp))*AVG\n          W2 =MIN(X(L+1)-AVG,AVG-X(L))\n#endif\n\n          WTH=W1*WW+W2*(1.e+0_fp-WW)\n          IF(WTH.GT.1.) then\n             write(*,*)'WTH>1 in cond, bin #',L\n             errspot = .true.\n             RETURN\n          ENDIF\n\n          XU=AVG+WTH*.5e+0_fp\n          XL=AVG-WTH*.5e+0_fp\n          ! Ventilation added bin-by-bin\n          TAU_L=TAU(l)*MAX(1.e+0_fp,VNTF(L)*VSW)\n          IF(TAU_L/TAU(l).GT. 6.) THEN\n             PRINT *,'TAU..>6.',TAU(l),TAU_L,VSW,L\n          ENDIF\n          IF(TAU_L.GT.TAU(l)) THEN\n             PRINT *,'TAU...',TAU(l),TAU_L,VSW,L\n          ENDIF\n          ! prior to 5/25/06 (win)\n          !YU=DMDT_INT(XU,TAU_L,WR(L))\n          !YUC=XU*AMKD(L,CSPECIES)/AMKDRY(L)+YU-XU\n          !IF (YU .GT. X(ibins+1) ) THEN\n          !   YUC=YUC*X(ibins+1)/YU\n          !   YU=X(ibins+1)\n          !ENDIF\n          !YL=DMDT_INT(XL,TAU_L,WR(L))\n          !YLC=XL*AMKD(L,CSPECIES)/AMKDRY(L)+YL-XL\n          !add new correction factor to YU and YL (win, 5/25/06)\n          YU=DMDT_INT(XU,TAU_L,WR(L))\n          YL=DMDT_INT(XL,TAU_L,WR(L))\n\n          ! change to check MOXD of current bin (win, 10/3/08)\n          IF( MOXD(L) == 0e+0_fp) THEN\n             !Prior to 10/3/08 (win)\n             !IF( MAXVAL(MOXD(:)) == 0e+0_fp ) THEN\n             C1=1.e+0_fp          !for so4cond call, without correction factor.\n          ELSE\n             C1 = XADD(L)*2.e+0_fp/(YU+YL-XU-XL)\n          ENDIF\n          C2 = C1 - ( C1 - 1.e+0_fp ) * ( XU + XL )/( YU + YL )\n          !prior to 10/2/08 (win)\n          YU = YU * C2\n          YL = YL * C2\n          ! Run into a problem that YU < XU creating YUC<0\n          ! So let's limit the application of C2 to only if\n          ! it does not result in YU < XU and YL < XL (win, 10/2/08)\n          !IF(TAU_L > 0.e+0_fp) YU = max( YU*C2, XU )\n          !IF(TAU_L > 0.e+0_fp) YL = max( YL*C2, XL )\n\n          !end part for fudging to get higher AVG\n\n          YUC=XU*AMKD(L,CSPECIES)/AMKDRY(L)+YU-XU\n          IF (YU .GT. X(ibins+1) ) THEN\n             !IF(.not.SPINUP(60.)) write(116,*) &\n             !     'YU > Xk(30+1) ++++++++++++' !debug (win, 7/17/06)\n             YUC=YUC*X(ibins+1)/YU\n             YU=X(ibins+1)\n             !errspot=.true.  !just try temp (win, 7/30/07)\n          ENDIF\n          YLC=XL*AMKD(L,CSPECIES)/AMKDRY(L)+YL-XL\n          DYI=1.e+0_fp/(YU-YL)\n\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          !<step5.2> Debug why there is extra mass added when called\n          ! by aqoxid. (win, 5/10/06)\n          if (pdbug) then\n             print *, 'XU',XU,'YU',YU,'YUC',YUC,'c2',c2\n             print *, 'XL',XL,'YL',YL,'YLC',YLC\n          endif\n          !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n          !deal with tiny negative (win, 5/28/06)\n          if(YUC.lt.0e+0_fp .or. YLC.lt.0e+0_fp)then\n             if(YLC.lt.0e+0_fp) YLC=0e+0_fp\n             if(YUC.lt.0e+0_fp) then\n                YUC = 0e+0_fp\n                YLC = 0e+0_fp\n             endif\n             if(pdbug) print *,'Fudge negative YUC, YLC to zero'\n          endif\n          !\n          ! deal with portion of distribution that lies below lowest gridpoint\n          !\n          IF(YL.LT.X(1))THEN\n\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             !<step5.2> Debug step-by-step (win, 5/10/06)\n             if (pdbug) print *,'YL<X(1)_Just_condensing_to_current_bin'\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n             !pja Instead of the following, I will just add all new condensed\n             !pja mass to the same size bin\n             !if ((YL/XL-1.e+0_fp) .LT. 1.e-3_fp) then\n             !   !insignificant growth - leave alone\n             !   ANK(L)=ANK(L)+ANKD(L)\n             !   DO J=1,icomp-1\n             !      AMK(L,J)=AMK(L,J)+AMKD(L,J)\n             !   ENDDO\n             !   GOTO 200\n             !else\n             !   !subtract out lower portion\n             !   write(*,*)'ERROR in cond - low portion subtracted'\n             !   write(*,*) 'Nk,Mk: ',ANKD(L),AMKD(L,1),AMKD(L,2)\n             !   write(*,*) 'TAU: ', TAU_L\n             !   write(*,*) 'XL, YL, YLC: ',XL,YL,YLC\n             !   write(*,*) 'XU, YU, YUC: ',XU,YU,YUC\n             !   ANKD(L)=ANKD(L)*MAX(ZERO,(YU-X(1)))*DYI\n             !   YL=X(1)\n             !   YLC=X(1)*AMKD(1,CSPECIES)/AMKDRY(1)\n             !   DYI=1.e+0_fp/(YU-YL)\n             !endif\n             ANK(L)=ANK(L)+ANKD(L)\n             do j=1,icomp\n                if (J.EQ.CSPECIES) then\n                   AMK(L,J)=AMK(L,J)+(YUC+YLC)*.5e+0_fp*ANKD(L)\n                else\n                   AMK(L,J)=AMK(L,J)+AMKD(L,J)\n                endif\n             enddo\n             GOTO 200\n          ENDIF\n          IF(YU.LT.X(1))GOTO 200\n          !\n          ! Begin remapping (start search at present location if condensation)\n          !\n          IMN=1\n          IF(TAU(l).GT.0.)IMN=L\n          DO I=IMN,ibins\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             !<step5.2> Debug step-by-step (win, 5/10/06)\n             if(pdbug) print *,'Now_remapping_in_bin',I\n             !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n             IF(YL.LT.X(I+1))THEN\n                ![1] lower bound of new tophat in the current I bin\n                IF(YU.LE.X(I+1))THEN\n                   ![2] upper bound of new tophat also in the current I bin\n                   DN=ANKD(L)      ! DN = number from the bin L being remapped\n                   do j=1,icomp\n                      DM=AMKD(L,J)\n                      IF (J.EQ.CSPECIES) THEN\n                         !Add mass from new tophat to the existing mass of bin I\n                         AMK(I,J)=(YUC+YLC)*.5e+0_fp*DN+AMK(I,J)\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         !<step5.2> Debug step-by-step (win, 5/10/06)\n                         if (pdbug) then\n                            print *,'CASE_1:_New_Tophat_in_a_single_bin'\n                            print *,'SO4_from_tophat=',(YUC+YLC)*.5e+0_fp*DN\n                         endif\n                         !<step5.3> Check mass conservation (win, 7/24/06)\n                         if(MAXVAL(moxd(:)).gt.0e+0_fp)then\n                            delt1 = (YUC+YLC)*.5e+0_fp*DN-AMKD(L,J)-madd(L)\n                            if( abs(delt1)/madd(L).gt.1e-6_fp .and. &\n                                 madd(L).gt.1e-4_fp)then\n                               ! Just print out this for debugging\n                               IF(.not.SPINUP(60.) .and. pdbug ) then\n                                  !write(116,*)'CASE1_mass_conserv_fix'\n                                  write(116,13) L, madd(L), delt1\n13                                FORMAT('CASE_1 Bin ',I2,' moxid ', &\n                                         E13.5,' delta ',E13.5 )\n                                  !errspot=.true. !just try temp (win, 7/30/07)\n                               ENDIF\n                               AMK(I,J) = AMK(I,J)-delt1 !fix the error\n                            endif\n                         endif\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      ELSE\n                         !For non-condensing, migrate the mass to bin I\n                         AMK(I,J)=AMK(I,J)+DM\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         !<step5.2> Debug step-by-step (win, 5/10/06)\n                         if (pdbug) then\n                            !print *,' Migrating_mass(',j,')',DM   !use this debugging line if there are more than seasalt+so4\n                            print *,'Migrating_mass',DM\n                         endif\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      ENDIF\n                   enddo\n                   !Add number of old bin to ANK (which is blank for the first loop of bin I)\n                   ANK(I)=ANK(I)+DN\n                   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                   !<step5.2> (win, 5/10/06)\n                   if(pdbug) print*,'Migrating_number',DN\n                   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                ELSE\n                   ![3] upper bound of new tophat grow beyond the upper bound of bin I\n                   DN=ANKD(L)*(X(I+1)-YL)*DYI !DN= proportion of the number from tophat that still stays in the bin I\n                   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                   !<step5.2> (win, 5/10/06)\n                   if ( pdbug) then\n                      print*,'Case_2:_Tophat_cross_bin_boundary'\n                      print *,'Number_that_remain_in_low_bin',DN\n                   endif\n                   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n                   !<step5.3> For fixing mass conserv problem (win, 7/24/06)\n                   macc=0e+0_fp\n\n                   do j=1,icomp\n                      !DM= proporation of the mass that is still in bin I\n                      DM=AMKD(L,J)*(X(I+1)-YL)*DYI\n                      IF (J.EQ.CSPECIES) THEN\n                         !XP= what would have grown to be X(I+1)\n                         XP=DMDT_INT(X(I+1),-1.0e+0_fp*TAU_L,WR(L))\n                         YM=XP*AMKD(L,J)/AMKDRY(L)+X(I+1)-XP\n                         !add the condensing mass to the existing sulfate of bin I\n                         AMK(I,J)=DN*(YM+YLC)*0.5e+0_fp+AMK(I,J)\n                         !<step5.3>Accumulating the condensing mass for error check (win, 7/24/06)\n                         macc = macc + DN*(YM+YLC)*0.5e+0_fp\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         !<step5.2> (win, 5/10/06)\n                         if(pdbug)then\n                            print *,'XP',XP,'YM',YM\n                            print *,'Cond_TophatLowEnd',DN*(YM+YLC)*0.5e+0_fp\n                         endif\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      ELSE\n                         !Add DM to AMK (which is blank for the first loop of bin I)\n                         AMK(I,J)=AMK(I,J)+DM\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         if(pdbug) print*,'Other___in_low_end',DM\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      ENDIF\n                   enddo\n                   ANK(I)=ANK(I)+DN ! Add DN number to ANK (which is blank for the first loop of bin I)\n                   ! Remapping loop from bin I+1 to bin30\n                   DO K=I+1,ibins\n                      !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      if(pdbug) print *,'Spreading_to_bin',K\n                      !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      IF(YU.LE.X(K+1))GOTO 100\n                      ![4] Found the bin where the high end of the tophat is in --> do the final loop\n\n                      ![5.1] This part for distributing to the bins in between\n                      !      the original and the furthest bin that growing occurs\n\n                      !Use width of bin K to proportionate number from old bin wrt. to the top hat (YU-YL)\n                      DN=ANKD(L)*(X(K+1)-X(K))*DYI\n\n                      !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      if(pdbug) then\n                         print *,'Number_migrated',DN\n                      endif\n                      !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      do j=1,icomp\n                         !Proportion of old-bin mass that falls in this current bin K\n                         DM=AMKD(L,J)*(X(K+1)-X(K))*DYI\n                         IF (J.EQ.CSPECIES) THEN\n                            XP=DMDT_INT(X(K),-1.0e+0_fp*TAU_L,WR(L)) !what would have grown to be X(k)\n                            YM=XP*AMKD(L,J)/AMKDRY(L)+X(K)-XP !what would have grown to be X(k) but just for sulfate\n                            AMK(K,J)=DN*1.5e+0_fp*YM+AMK(K,J)    ! A factor of 1.5 is from averaging (YM+2*YM)\n                            !<step5.3> Accumulating condensing mass for error check (win, 7/24/06)\n                            macc = macc+DN*1.5e+0_fp*YM\n                            !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                            !<step5.2> (win, 5/10/06)\n                            if(pdbug)then\n                               print *,'XP',XP,'YM',YM\n                               print *,'Cond_mass_spread',DN*1.5e+0_fp*YM\n                            endif\n                            !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         ELSE\n                            AMK(K,J)=AMK(K,J)+DM    !Add migrating mass of non-condensing species\n                            !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                            if(pdbug) print*,'No-cond_mass_migrate',DM\n                            !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         ENDIF\n                      enddo\n                      ANK(K)=ANK(K)+DN  !Add migrating number to the exising number of bin K\n                   ENDDO\n                   !This STOP is for when there's excessive growth over bin30\n                   STOP 'Trying to put stuff in bin ibins+1'\n\n100                CONTINUE\n                   ![5.2] Final section that the tophat grows to.\n                   DN=ANKD(L)*(YU-X(K))*DYI\n                   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                   if(pdbug) then\n                      print *,'Found_right_edge_for_tophat'\n                      print *,'Number_migrated',DN\n                   endif\n                   !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                   do j=1,icomp\n                      DM=AMKD(L,J)*(YU-X(K))*DYI  ! proportion of old mass that gets to this furthest bin.\n                      IF (J.EQ.CSPECIES) THEN\n                         XP=DMDT_INT(X(K),-1.0e+0_fp*TAU_L,WR(L))   !what would have grown to be X(k)\n                         YM=XP*AMKD(L,J)/AMKDRY(L)+X(K)-XP !=XP for just sulfate\n                         AMK(K,J)=DN*(YUC+YM)*0.5e+0_fp+AMK(K,J) !add condensing mass to existing sulfate of bin K\n                         !<step5.3>Accumulating condensing mass for error check (win, 7/24/06)\n                         macc = macc+DN*(YUC+YM)*0.5e+0_fp\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         !<step5.2> (win, 5/10/06)\n                         if(pdbug)then\n                            print *,'XP',XP,'YM',YM\n                            print *,'Cond_mass_spread_final', &\n                                     DN*(YM+YUC)*0.5e+0_fp\n                         endif\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      ELSE\n                         AMK(K,J)=AMK(K,J)+DM  !This adds the migrating mass to the exising mass of non-condensing species\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                         if(pdbug) print*,'No-cond_mass_migrated',DM\n                         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                      ENDIF\n                   enddo\n                   ANK(K)=ANK(K)+DN   !This adds the migrating number to the existing number of bin K\n\n                   !<step5.3> Check mass conservation (win, 7/24/06)\n                   if(MAXVAL(moxd(:)).gt.0e+0_fp)then\n                      delt2 = 0e+0_fp\n                      delt2 = macc-AMKD(L,CSPECIES)-madd(L)\n                      if(abs(delt2)/ madd(L) > 1e-6)then\n                         if( madd(L) > 10.e+0_fp .and. &\n                             abs(delt2)/ madd(L) > 15e-2_fp ) then\n                            !print *,'TMCOND ERROR: mass condensation', &\n                            !  'discrep >15% during aqoxid or SOAcond'\n                            IF(.not.SPINUP(60.))  THEN\n14                             FORMAT('CASE_2 Bin',I2,' moxid',F7.1, &\n                                      ' delta',F7.1 )\n                               write(116,14) L, madd(L),delt2\n                               !write(116,*)'CASE_2_mass_not_conserve'\n                               !write(116,*)'For_bin',L,'moxid',madd(L) &\n                               !     ,'delta',delt2\n                            ENDIF\n                            errspot=.true. !just try temp (win, 7/30/07)\n                         endif !significant mass add (10 kg) - then print error.\n                         !<step5.3> Fix the problem of mass not conserved\n                         !in case of aqueous oxidation by find the missing mass\n                         !and spread them equally into the bins that the final\n                         !tophat has grown to. (win, 7/24/06)\n                         xtra  = 0e+0_fp\n                         dummy = 0e+0_fp\n                         do kk = I,K\n                            !AMK(kk,CSPECIES) = AMK(kk,CSPECIES)-delt2/(K-I+1)\n                            dummy = AMK(kk,CSPECIES) - &\n                                    ( delt2/(K-I+1) + xtra )\n                            if(dummy < 0.e+0_fp )then\n                               xtra = xtra + delt2/(K-I+1)\n                            else\n                               AMK(kk,CSPECIES) = dummy\n                               xtra = 0.e+0_fp\n                            endif\n                         enddo\n                      endif   !error>treshold\n                   endif      !moxd>0\n\n                ENDIF  !YU.LE.X(I+1)\n                GOTO 200\n             ELSE    !YL > X(I+1)\n                IF(I == IBINS .and.(madd(L)/maddtot)> 1.5e-1_fp) THEN\n11                 FORMAT( 'Tophat>Xk(31) at bin ',I3,' loosing ', &\n                           E13.5,' kg = ',F5.1,'%')\n                   if(MAXVAL(moxd(:)) > 0e+0_fp) then\n                      print 11, L, madd(L),(madd(L)/maddtot)*1.e+2_fp\n                      !write(116,11) L, madd(L),(madd(L)/maddtot)*1.e+2_fp\n                      !write(117,*) madd(L)  !for accumulating mass loss\n                      !PRINT *,'Tophat > Xk(31): growth over bin30,Loss%'\n                      !if(moxd >0e+0_fp)print *,madd(L),(madd(L)/maddtot)*1.d2\n                      !errspot = .true.\n                   endif\n                ENDIF\n             ENDIF   !YL.LT.X(I+1)\n          ENDDO !I loop\n200       CONTINUE\n       ENDDO    !L loop\n    ENDIF\n\n    !Signal error out to so4cond so the run can stop in aerophys and show i,j,l (win, 4/12/06)\n    pdbug = errspot\n\n    RETURN\n\n  END SUBROUTINE TMCOND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aerodiag\n!\n! !DESCRIPTION: Subroutine AERODIAG saves changes to the appropriate diagnostic !  arrays (win, 7/23/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AERODIAG( PTYPE, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                       State_Grid, State_Diag )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : IT_IS_NAN\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE TIME_MOD,       ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: PTYPE    ! Number assigned to each dianostic\n    INTEGER ,       INTENT(IN) :: I, J, L  ! Grid box indices\n    REAL(fp),       INTENT(IN) :: Nk(IBINS)\n    REAL(fp),       INTENT(IN) :: Nkd(IBINS)\n    REAL(fp),       INTENT(IN) :: Mk(IBINS, ICOMP)\n    REAL(fp),       INTENT(IN) :: Mkd(IBINS,ICOMP)\n    REAL*4,         INTENT(IN) :: BOXMASS\n    TYPE(GrdState), INTENT(IN) :: State_Grid ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:   \n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: K, JS, S\n    REAL*4                :: DTCHEM\n\n    !=================================================================\n    ! AERODIAG begins here!\n    !=================================================================\n\n    DTCHEM = GET_TS_CHEM() ! chemistry time step in sec  \n\n    IF ( PTYPE == 1 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasH2SO4mass(I,J,L,K) = 0.e+0_fp\n          State_Diag%TomasH2SO4number(I,J,L,K) = 0.e+0_fp\n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasH2SO4mass ) THEN\n                S = State_Diag%Map_TomasH2SO4mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasH2SO4mass(I,J,L,K) = & \n                   State_Diag%TomasH2SO4mass(I,J,L,K) + &\n                    (MK(K,JS) - MKD(K,JS)) /  DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasH2SO4number ) THEN\n             S = State_Diag%Map_TomasH2SO4number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasH2SO4number(I,J,L,K) = & \n                State_Diag%TomasH2SO4number(I,J,L,K) + &\n                  (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n        IF ( PTYPE == 2 ) THEN\n        DO K=1,IBINS\n            State_Diag%TomasCOAGmass(I,J,L,K) = 0.e+0_fp\n            State_Diag%TomasCOAGnumber(I,J,L,K) = 0.e+0_fp\n        DO JS = 1, ICOMP-IDIAG\n        IF ( State_Diag%Archive_TomasCOAGmass ) THEN\n              S = State_Diag%Map_TomasCOAGmass%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasCOAGmass(I,J,L,K) = &\n                      State_Diag%TomasCOAGmass(I,J,L,K) + (MK(K,JS) - MKD(K,JS))/ &\n                      DTCHEM / BOXMASS  ! kg/kg air/sec                                                                      \n              ENDIF\n           ENDIF\n        ENDDO\n        IF ( State_Diag%Archive_TomasCOAGnumber ) THEN\n              S = State_Diag%Map_TomasCOAGnumber%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasCOAGnumber(I,J,L,K) = &\n                   State_Diag%TomasCOAGnumber(I,J,L,K) + (NK(K) - NKD(K))/ &\n                   DTCHEM / BOXMASS  ! no./kg air/sec                                                                        \n              ENDIF\n           ENDIF\n        ENDDO\n        ENDIF\n\n        IF ( PTYPE == 3 ) THEN\n        DO K=1,IBINS\n            State_Diag%TomasNUCLmass(I,J,L,K) = 0.e+0_fp\n            State_Diag%TomasNUCLnumber(I,J,L,K) = 0.e+0_fp\n        DO JS = 1, ICOMP-IDIAG\n        IF ( State_Diag%Archive_TomasNUCLmass ) THEN\n              S = State_Diag%Map_TomasNUCLmass%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasNUCLmass(I,J,L,K) = &\n                   State_Diag%TomasNUCLmass(I,J,L,K) + (MK(K,JS) - MKD(K,JS))/ &\n                   DTCHEM / BOXMASS  ! kg/kg air/sec                                                                                    \n              ENDIF\n           ENDIF\n        ENDDO\n\n        IF ( State_Diag%Archive_TomasNUCLnumber ) THEN\n              S = State_Diag%Map_TomasNUCLnumber%id2slot(K)\n              IF ( S > 0 ) THEN\n                State_Diag%TomasNUCLnumber(I,J,L,K) = &\n                   State_Diag%TomasNUCLnumber(I,J,L,K) + (NK(K) - NKD(K))/ &\n                   DTCHEM / BOXMASS  ! no./kg air/sec                                                                                   \n                              ENDIF\n           ENDIF\n        ENDDO\n        ENDIF\n\n        IF ( PTYPE == 4 ) THEN\n        DO K=1,IBINS\n            State_Diag%TomasAQOXmass(I,J,L,K) = 0.e+0_fp\n            State_Diag%TomasAQOXnumber(I,J,L,K) = 0.e+0_fp\n        DO JS = 1, ICOMP-IDIAG\n        IF ( State_Diag%Archive_TomasAQOXmass ) THEN\n              S = State_Diag%Map_TomasAQOXmass%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasAQOXmass(I,J,L,K) = &\n                   State_Diag%TomasAQOXmass(I,J,L,K) + (MK(K,JS) - MKD(K,JS))/ &\n                   DTCHEM / BOXMASS  ! kg/kg air/sec                                                                                    \n              ENDIF\n           ENDIF\n        ENDDO\n        IF ( State_Diag%Archive_TomasAQOXnumber ) THEN\n              S = State_Diag%Map_TomasAQOXnumber%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasAQOXnumber(I,J,L,K) = &\n                   State_Diag%TomasAQOXnumber(I,J,L,K) + (NK(K) - NKD(K))/ &\n                          DTCHEM / BOXMASS  ! no./kg air/sec                                                                           \\\n                                                                                                                                        \n             ENDIF\n           ENDIF\n        ENDDO\n        ENDIF\n\n        IF ( PTYPE == 5 ) THEN\n        DO K=1,IBINS\n            State_Diag%TomasMNFIXmass(I,J,L,K) = 0.e+0_fp\n            State_Diag%TomasMNFIXnumber(I,J,L,K) = 0.e+0_fp\n        DO JS = 1, ICOMP-IDIAG\n        IF ( State_Diag%Archive_TomasMNFIXmass ) THEN\n              S = State_Diag%Map_TomasMNFIXmass%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasMNFIXmass(I,J,L,K) = &\n                   State_Diag%TomasMNFIXmass(I,J,L,K) + (MK(K,JS) - MKD(K,JS))/ &\n                   DTCHEM / BOXMASS  ! kg/kg air/sec                                                                                    \n              ENDIF\n           ENDIF\n        ENDDO\n        IF ( State_Diag%Archive_TomasMNFIXnumber ) THEN\n              S = State_Diag%Map_TomasMNFIXnumber%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasMNFIXnumber(I,J,L,K) = &\n                   State_Diag%TomasMNFIXnumber(I,J,L,K) + (NK(K) - NKD(K))/ &\n                   DTCHEM / BOXMASS  ! no./kg air/sec                                                                                   \n              ENDIF\n           ENDIF\n        ENDDO\n        ENDIF\n\n        IF ( PTYPE == 6 ) THEN\n        DO K=1,IBINS\n            State_Diag%TomasSOAmass(I,J,L,K) = 0.e+0_fp\n            State_Diag%TomasSOAnumber(I,J,L,K) = 0.e+0_fp\n        DO JS = 1, ICOMP-IDIAG\n        IF ( State_Diag%Archive_TomasSOAmass ) THEN\n              S = State_Diag%Map_TomasSOAmass%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasSOAmass(I,J,L,K) = &\n                   State_Diag%TomasSOAmass(I,J,L,K) + (MK(K,JS) - MKD(K,JS))/ &\n                   DTCHEM / BOXMASS  ! kg/kg air/sec                                                                                    \n              ENDIF\n           ENDIF\n        ENDDO\n        IF ( State_Diag%Archive_TomasSOAnumber ) THEN\n              S = State_Diag%Map_TomasSOAnumber%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasSOAnumber(I,J,L,K) = &\n                      State_Diag%TomasSOAnumber(I,J,L,K) + (NK(K) - NKD(K))/ &\n                      DTCHEM / BOXMASS  ! no./kg air/sec                                                                                \n              ENDIF\n           ENDIF\n        ENDDO\n        ENDIF\n\n        IF ( PTYPE == 7 ) THEN\n        DO K=1,IBINS\n            State_Diag%TomasNUCRATEnumber(I,J,L,K) = 0.e+0_fp\n        IF ( State_Diag%Archive_TomasNUCRATEnumber ) THEN\n              S = State_Diag%Map_TomasNUCRATEnumber%id2slot(K)\n              IF ( S > 0 ) THEN\n                 State_Diag%TomasNUCRATEnumber(I,J,L,K) = &\n                   State_Diag%TomasNUCRATEnumber(I,J,L,K) + (NK(K) - NKD(K)) / &\n                   DTCHEM / BOXMASS  ! no./kg air/sec                                                                                   \n                 !            print*,'Values for nuc',BOXMASS,DTCHEM,NK(K),NKD(K),K, &                                                  \n                 !                (NK(K) - NKD(K)),  (NK(K) - NKD(K)) / &                                                               \n                 !                       DTCHEM / BOXMASS  ! no./kg air/sec                                                             \n              ENDIF\n           ENDIF\n        ENDDO\n        ENDIF\n\n    IF ( PTYPE == 11 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXezwat1mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXezwat1number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXezwat1mass ) THEN\n                S = State_Diag%Map_TomasMNFIXezwat1mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXezwat1mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXezwat1mass(I,J,L,K) + &\n                     (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXezwat1number ) THEN\n             S = State_Diag%Map_TomasMNFIXezwat1number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXezwat1number(I,J,L,K) = & \n                State_Diag%TomasMNFIXezwat1number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 12 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXezwat2mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXezwat2number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXezwat2mass ) THEN\n                S = State_Diag%Map_TomasMNFIXezwat2mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXezwat2mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXezwat2mass(I,J,L,K) + &\n                     (MK(K,JS) - MKD(K,JS))/  DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXezwat2number ) THEN\n             S = State_Diag%Map_TomasMNFIXezwat2number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXezwat2number(I,J,L,K) = & \n                State_Diag%TomasMNFIXezwat2number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 13 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXezwat3mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXezwat3number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXezwat3mass ) THEN\n                S = State_Diag%Map_TomasMNFIXezwat3mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXezwat3mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXezwat3mass(I,J,L,K) + &\n                      (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXezwat3number ) THEN\n             S = State_Diag%Map_TomasMNFIXezwat3number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXezwat3number(I,J,L,K) = & \n                State_Diag%TomasMNFIXezwat3number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 14 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXh2so4mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXh2so4number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXh2so4mass ) THEN\n                S = State_Diag%Map_TomasMNFIXh2so4mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXh2so4mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXh2so4mass(I,J,L,K) + &\n                      (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXh2so4number ) THEN\n             S = State_Diag%Map_TomasMNFIXh2so4number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXh2so4number(I,J,L,K) = & \n                State_Diag%TomasMNFIXh2so4number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 15 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXcoagmass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXcoagnumber(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXcoagmass ) THEN\n                S = State_Diag%Map_TomasMNFIXcoagmass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXcoagmass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXcoagmass(I,J,L,K) + &\n                      (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXcoagnumber ) THEN\n             S = State_Diag%Map_TomasMNFIXcoagnumber%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXcoagnumber(I,J,L,K) = & \n                State_Diag%TomasMNFIXcoagnumber(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 16 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXaqoxmass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXaqoxnumber(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXaqoxmass ) THEN\n                S = State_Diag%Map_TomasMNFIXaqoxmass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXaqoxmass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXaqoxmass(I,J,L,K) + &\n                      (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXaqoxnumber ) THEN\n             S = State_Diag%Map_TomasMNFIXaqoxnumber%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXaqoxnumber(I,J,L,K) = & \n                State_Diag%TomasMNFIXaqoxnumber(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 17 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXcheck1mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXcheck1number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXcheck1mass ) THEN\n                S = State_Diag%Map_TomasMNFIXcheck1mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXcheck1mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXcheck1mass(I,J,L,K) + &\n                      (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXcheck1number ) THEN\n             S = State_Diag%Map_TomasMNFIXcheck1number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXcheck1number(I,J,L,K) = & \n                State_Diag%TomasMNFIXcheck1number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 18 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXcheck2mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXcheck2number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXcheck2mass ) THEN\n                S = State_Diag%Map_TomasMNFIXcheck2mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXcheck2mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXcheck2mass(I,J,L,K) + &\n                      (MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXcheck2number ) THEN\n             S = State_Diag%Map_TomasMNFIXcheck2number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXcheck2number(I,J,L,K) = & \n                State_Diag%TomasMNFIXcheck2number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no./kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( PTYPE == 19 ) THEN\n       DO K=1,IBINS\n          State_Diag%TomasMNFIXcheck3mass(I,J,L,K) = 0.e+0_fp  \n          State_Diag%TomasMNFIXcheck3number(I,J,L,K) = 0.e+0_fp  \n          DO JS = 1, ICOMP-IDIAG\n             IF ( State_Diag%Archive_TomasMNFIXcheck3mass ) THEN\n                S = State_Diag%Map_TomasMNFIXcheck3mass%id2slot(K)\n                IF ( S > 0 ) THEN\n                   State_Diag%TomasMNFIXcheck3mass(I,J,L,K) = & \n                   State_Diag%TomasMNFIXcheck3mass(I,J,L,K) + &\n                      ( MK(K,JS) - MKD(K,JS))/ DTCHEM / BOXMASS  ! kg/kg air/sec\n                ENDIF\n             ENDIF\n          ENDDO\n          IF ( State_Diag%Archive_TomasMNFIXcheck3number ) THEN\n             S = State_Diag%Map_TomasMNFIXcheck3number%id2slot(K)\n             IF ( S > 0 ) THEN\n                State_Diag%TomasMNFIXcheck3number(I,J,L,K) = & \n                State_Diag%TomasMNFIXcheck3number(I,J,L,K) + &\n                   (NK(K) - NKD(K))/ DTCHEM / BOXMASS  ! no/kg air/sec\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE AERODIAG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_tomas\n!\n! !DESCRIPTION: Subroutine INIT_TOMAS intializes variables for TOMAS\n!  microphysics based on switches from geoschem_config.yml, e.g. what aerosol\n!  species to simulate.(win, 7/9/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_TOMAS( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR, ERROR_STOP\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE inquireMod,         ONLY : findFreeLUN\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: AS, K, I,J,L, dum1, dum2, dum3, LUN\n    REAL(fp)             :: Mo\n    CHARACTER(LEN=255)   :: filename\n    CHARACTER(LEN=255)   :: fname(4)\n    CHARACTER(LEN=255)   :: DATA_DIR\n    CHARACTER(LEN=255)   :: MSG, LOC\n\n    !=================================================================\n    ! INIT_TOMAS begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Exit if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    ! Define species indices here, these are now saved as\n    ! module variables (bmy, 6/20/16)\n    id_NK01   = Ind_('NK01'  )\n    id_H2SO4  = Ind_('H2SO4')\n    id_AW01   = Ind_('AW01'  )\n    id_SF01   = Ind_('SF01'  )\n    id_SO4    = Ind_('SO4'  )\n    id_NH3    = Ind_('NH3'  )\n    id_NH4    = Ind_('NH4'  )\n    id_SS01   = Ind_('SS01'  )\n    id_ECIL01 = Ind_('ECIL01')\n    id_ECOB01 = Ind_('ECOB01')\n    id_OCIL01 = Ind_('OCIL01')\n    id_OCOB01 = Ind_('OCOB01')\n    id_DUST01 = Ind_('DUST01')\n\n    ! Number of size bins\n    IBINS = State_Chm%nTomasBins\n\n    ! Check to make sure TOMAS species are in the expected order\n    IF (.NOT. (id_SF01   + IBINS == id_SS01   .AND. &\n               id_SS01   + IBINS == id_ECOB01 .AND. &\n               id_ECOB01 + IBINS == id_ECIL01 .AND. &\n               id_ECIL01 + IBINS == id_OCOB01 .AND. &\n               id_OCOB01 + IBINS == id_OCIL01 .AND. &\n               id_OCIL01 + IBINS == id_DUST01) ) THEN\n      MSG = 'TOMAS species are not in the expected order!'\n      LOC = 'Routine INIT_TOMAS in tomas_mod.F90'\n      CALL ERROR_STOP( MSG, LOC )\n    ENDIF\n\n    ! Now read large TOMAS input files from a common disk directory\n    ! (bmy, 1/30/14)\n    DATA_DIR = TRIM( Input_Opt%CHEM_INPUTS_DIR ) // 'TOMAS_201402/'\n\n    ! comment out if  shut off subgridcoag 14/12/23, bc\n    ! Define subgrid coagulation timescale (win, 10/28/08)\n    !IF ( TRIM(State_Grid%GridRes) == '4.0x5.0' ) THEN\n    !   SGCTSCALE = 10.0_fp*3600.0_fp  ! 10 hours\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '2.0x2.5' ) THEN\n    !   SGCTSCALE = 5.0_fp*3600.0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n    !   SGCTSCALE = 1.0_fp*3600.0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n    !   SGCTSCALE = 0.50_fp*3600.0_fp\n    !ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n    !   SGCTSCALE = 0.25_fp*3600.0_fp\n    !ENDIF\n\n#if defined(TOMAS40)\n    Mo = 1.0e-21_fp*2.e+0_fp**(-10)\n#elif defined(TOMAS15)\n    Mo = 1.0e-21_fp*4.e+0_fp**(-3)\n#else\n    Mo = 1.0e-21_fp\n#endif\n\n    ICOMP = 0\n    IDIAG = 0\n    K = 0\n    IF (id_SF01 > 0) THEN\n       ICOMP = ICOMP + 1\n    ENDIF\n    IF ( id_SS01 > 0 ) THEN\n       ICOMP = ICOMP + 1\n    ENDIF\n    IF ( id_ECIL01 > 0 .AND. id_ECOB01 > 0 .AND. &\n         id_OCIL01 > 0 .AND. id_OCOB01 > 0 ) THEN\n       ICOMP = ICOMP + 1\n       ICOMP = ICOMP + 1\n       ICOMP = ICOMP + 1\n       ICOMP = ICOMP + 1\n    ENDIF\n    IF ( id_DUST01 > 0 ) THEN\n       ICOMP = ICOMP + 1\n    ENDIF\n\n    ! Have to add one more for aerosol water\n    IF( ICOMP > 1 ) THEN\n       ICOMP = ICOMP + 1\n       IDIAG = IDIAG + 1\n\n       ICOMP = ICOMP + 1\n       IDIAG = IDIAG + 1\n    ENDIF\n    IF ( Input_Opt%Verbose ) THEN\n       print *, 'In init_TOMAS, ICOMP = ', ICOMP\n       print *, 'In init_TOMAS, IBINS = ', IBINS\n    ENDIF\n\n    !=================================================================\n    ! Allocate arrays\n    !=================================================================\n\n    ALLOCATE( Xk( State_Chm%nTomasBins+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'Xk [TOMAS]' )\n    Xk(:) = 0e+0_fp\n\n    ALLOCATE( AVGMASS( State_Chm%nTomasBins ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'AVGMASS [TOMAS]' )\n    AVGMASS(:) = 0e+0_fp\n\n    ALLOCATE( OCSCALE30( State_Chm%nTomasBins ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCSCALE30 [TOMAS]' )\n    OCSCALE30(:) = 0e+0_fp\n\n    ALLOCATE( OCSCALE100( State_Chm%nTomasBins ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'OCSCALE100 [TOMAS]' )\n    OCSCALE100(:) = 0e+0_fp\n\n    ALLOCATE( ECSCALE30( State_Chm%nTomasBins ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'ECSCALE30 [TOMAS]' )\n    ECSCALE30(:) = 0e+0_fp\n\n    ALLOCATE( ECSCALE100( State_Chm%nTomasBins ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'ECSCALE100 [TOMAS]' )\n    ECSCALE100(:) = 0e+0_fp\n\n    ALLOCATE( MOLWT( ICOMP ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'MOLWT [TOMAS]' )\n    MOLWT(:) = 0e+0_fp\n\n    ALLOCATE( H2SO4_RATE(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'H2SO4_RATE' )\n    H2SO4_RATE = 0.0e+0_fp\n\n    ALLOCATE( PSO4AQ_RATE(State_Grid%NX,State_Grid%NY,State_Grid%NZ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'PSO4AQ_RATE' )\n    PSO4AQ_RATE = 0.0e+0_fp\n\n\n#if  defined( TOMAS12 ) || defined( TOMAS15 )\n    !tomas12 or tomas15\n    ! use for fossil fuel (bimodal)\n    OCSCALE30 = [ &\n#ifdef TOMAS15\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,                    &\n#endif\n       1.1291e-03_fp, 4.9302e-03_fp, 1.2714e-02_fp, 3.6431e-02_fp, &\n       1.0846e-01_fp, 2.1994e-01_fp, 2.7402e-01_fp, 2.0750e-01_fp, &\n       9.5304e-02_fp, 2.6504e-02_fp, 1.2925e-02_fp, 1.6069e-05_fp ]\n\n    ! use for biomass burning\n    OCSCALE100 = [ &\n#ifdef TOMAS15\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,                    &\n#endif\n       1.9827e-06_fp, 3.9249e-05_fp, 5.0202e-04_fp, 4.1538e-03_fp, &\n       2.2253e-02_fp, 7.7269e-02_fp, 1.7402e-01_fp, 2.5432e-01_fp, &\n       2.4126e-01_fp, 1.4856e-01_fp, 7.6641e-02_fp, 9.8120e-04_fp ]\n\n    ! use for fossil fuel (bimodal)\n    ECSCALE30 = [ &\n#ifdef TOMAS15\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,                    &\n#endif\n       1.1291e-03_fp, 4.9302e-03_fp, 1.2714e-02_fp, 3.6431e-02_fp, &\n       1.0846e-01_fp, 2.1994e-01_fp, 2.7402e-01_fp, 2.0750e-01_fp, &\n       9.5304e-02_fp, 2.6504e-02_fp, 1.2925e-02_fp, 1.6069e-05_fp ]\n\n    ! use for biomass burning\n    ECSCALE100 = [ &\n#ifdef TOMAS15\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,                    &\n#endif\n       1.9827e-06_fp, 3.9249e-05_fp, 5.0202e-04_fp, 4.1538e-03_fp, &\n       2.2253e-02_fp, 7.7269e-02_fp, 1.7402e-01_fp, 2.5432e-01_fp, &\n       2.4126e-01_fp, 1.4856e-01_fp, 7.6641e-02_fp, 9.8120e-04_fp ]\n\n#else\n    !tomas30 or tomas40\n    ! use for fossil fuel\n    OCSCALE30 = [  &\n#ifdef TOMAS40\n       0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   &\n       0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   &\n#endif\n       1.04e-03_fp, 2.77e-03_fp, 6.60e-03_fp, 1.41e-02_fp, 2.69e-02_fp, &\n       4.60e-02_fp, 7.06e-02_fp, 9.69e-02_fp, 1.19e-01_fp, 1.31e-01_fp, &\n       1.30e-01_fp, 1.15e-01_fp, 9.07e-02_fp, 6.44e-02_fp, 4.09e-02_fp, &\n       2.33e-02_fp, 1.19e-02_fp, 5.42e-03_fp, 2.22e-03_fp, 8.12e-04_fp, &\n       2.66e-04_fp, 7.83e-05_fp, 2.06e-05_fp, 4.86e-06_fp, 1.03e-06_fp, &\n       1.94e-07_fp, 3.29e-08_fp, 4.99e-09_fp, 6.79e-10_fp, 8.26e-11_fp ]\n\n    ! use for biomass burning\n    OCSCALE100 = [  &\n#ifdef TOMAS40\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,  &\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,  &\n#endif\n       3.2224e-07_fp, 1.6605e-06_fp, 7.6565e-06_fp, 3.1592e-05_fp, 0.00011664_fp, &\n       0.00038538_fp, 0.0011394_fp,  0.0030144_fp,  0.0071362_fp,  0.015117_fp,   &\n       0.028657_fp,   0.048612_fp,   0.073789_fp,   0.10023_fp,    0.12182_fp,    &\n       0.1325_fp,     0.12895_fp,    0.11231_fp,    0.087525_fp,   0.061037_fp,   &\n       0.038089_fp,   0.02127_fp,    0.010628_fp,   0.0047523_fp,  0.0019015_fp,  &\n       0.00068081_fp, 0.00021813_fp, 6.2536e-05_fp, 1.6044e-05_fp, 3.6831e-06_fp ]\n\n    ! use for fossil fuel\n    ECSCALE30 = [ &\n#ifdef TOMAS40\n       0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   &\n       0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   0.0e+0_fp,   &\n#endif\n       1.04e-03_fp, 2.77e-03_fp, 6.60e-03_fp, 1.41e-02_fp, 2.69e-02_fp, &\n       4.60e-02_fp, 7.06e-02_fp, 9.69e-02_fp, 1.19e-01_fp, 1.31e-01_fp, &\n       1.30e-01_fp, 1.15e-01_fp, 9.07e-02_fp, 6.44e-02_fp, 4.09e-02_fp, &\n       2.33e-02_fp, 1.19e-02_fp, 5.42e-03_fp, 2.22e-03_fp, 8.12e-04_fp, &\n       2.66e-04_fp, 7.83e-05_fp, 2.06e-05_fp, 4.86e-06_fp, 1.03e-06_fp, &\n       1.94e-07_fp, 3.29e-08_fp, 4.99e-09_fp, 6.79e-10_fp, 8.26e-11_fp ]\n\n    ! use for biomass burning\n    ECSCALE100 = [  &\n#ifdef TOMAS40\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     &\n       0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     0.0e+0_fp,     &\n#endif\n       3.2224e-07_fp, 1.6605e-06_fp, 7.6565e-06_fp, 3.1592e-05_fp, 0.00011664_fp, &\n       0.00038538_fp, 0.0011394_fp,  0.0030144_fp,  0.0071362_fp,  0.015117_fp,   &\n       0.028657_fp,   0.048612_fp,   0.073789_fp,   0.10023_fp,    0.12182_fp,    &\n       0.1325_fp,     0.12895_fp,    0.11231_fp,    0.087525_fp,   0.061037_fp,   &\n       0.038089_fp,   0.02127_fp,    0.010628_fp,   0.0047523_fp,  0.0019015_fp,  &\n       0.00068081_fp, 0.00021813_fp, 6.2536e-05_fp, 1.6044e-05_fp, 3.6831e-06_fp ]\n#endif\n\n    !=================================================================\n    ! Calculate aerosol size bin boundaries (dry mass / particle)\n    !=================================================================\n\n#if defined(TOMAS12) || defined(TOMAS15)\n    DO K = 1, IBINS + 1\n       if(k.lt.ibins)then\n          xk(k)=Mo * 4.e+0_fp**(k-1) !mass quadrupling\n       else\n          xk(k)=xk(k-1) * 32.e+0_fp\n       endif\n    ENDDO\n#else\n    DO K = 1, IBINS + 1\n       Xk( k ) = Mo * 2.e+0_fp ** ( K-1 )\n    ENDDO\n#endif\n\n    DO K = 1, IBINS\n       AVGMASS( k ) = sqrt(Xk(k)*Xk(k+1))\n    ENDDO\n\n    DO J = 1, ICOMP\n       IF ( J == SRTSO4 ) THEN\n          MOLWT(J) = 98.0\n       ELSE IF ( J == SRTNACL ) THEN\n          MOLWT(J) = 58.5\n       ELSE IF ( J == SRTH2O ) THEN\n          MOLWT(J) = 18.0\n       ELSE IF ( J == SRTECIL ) THEN\n          MOLWT(J) = 12.0\n       ELSE IF ( J == SRTECOB ) THEN\n          MOLWT(J) = 12.0\n       ELSE IF ( J == SRTOCIL ) THEN\n          MOLWT(J) = 12.0\n       ELSE IF ( J == SRTOCOB ) THEN\n          MOLWT(J) = 12.0\n       ELSE IF ( J == SRTDUST ) THEN\n          MOLWT(J) = 100.0\n       ELSE IF ( J == SRTNH4 ) THEN\n          MOLWT(J) = 18.0\n       ELSE\n          PRINT *,'INIT_TOMAS ERROR: Modify code for more species!!'\n          CALL ERROR_STOP('INIT_TOMAS','Modify code for new species')\n       ENDIF\n    ENDDO\n\n    !=================================================================\n    ! Create a look-up table for activating bin and scavenging\n    ! fraction as a function of chemical composition.\n    !=================================================================\n    IF ( IBINS == 12 .OR. IBINS == 15 ) THEN\n       fname(1) = TRIM( DATA_DIR ) // 'binact02_12.dat'\n       fname(2) = TRIM( DATA_DIR ) // 'binact10_12.dat'\n       fname(3) = TRIM( DATA_DIR ) // 'fraction02_12.dat'\n       fname(4) = TRIM( DATA_DIR ) // 'fraction10_12.dat'\n    ELSE IF ( IBINS == 30 .OR. IBINS == 40 ) THEN\n       fname(1) = TRIM( DATA_DIR ) // 'binact02.dat'\n       fname(2) = TRIM( DATA_DIR ) // 'binact10.dat'\n       fname(3) = TRIM( DATA_DIR ) // 'fraction02.dat'\n       fname(4) = TRIM( DATA_DIR ) // 'fraction10.dat'\n    END IF\n\n    CALL READBINACT  ( fname(1), BINACT1   )\n    CALL READBINACT  ( fname(2), BINACT2   )\n    CALL READFRACTION( fname(3), FRACTION1 )\n    CALL READFRACTION( fname(4), FRACTION2 )\n\n    !initialize yu lookup table\n    !call READJIMN5D( Input_Opt, RC )  ! yu nucleation inputs\n\n    ! Find a free file LUN\n    LUN = findFreeLUN()\n\n    ! Read cosmic ray ion input file\n    FILENAME = TRIM( DATA_DIR ) // 'IonPairs1GV.4x5'\n    OPEN( unit=LUN, FILE=TRIM( FILENAME ), FORM='FORMATTED', STATUS='OLD' )\n\n    DO L=1,9\n    DO J=1,46\n    DO I=1,72\n       READ( LUN ,'(I5,I5,I5,E10.3)') dum1,dum2,dum3,cosmic_ions(I,J,L)\n       IF ( Input_Opt%Verbose ) THEN\n          if (I.eq.50.and.J.eq.20.and.L.eq.5)then\n             print*,'ion test',cosmic_ions(I,J,L)\n          endif\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n\n    !carbon emission factors:\n\n    ! Close file\n    CLOSE( LUN )\n\n  END SUBROUTINE INIT_TOMAS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: readbinact\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READBINACT( INFILE, BINACT )\n!\n! !USES:\n!\n    USE inquireMod, ONLY : findFreeLun\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=255) INFILE\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER BINACT(101,101,101)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER INNUM, II, JJ, KK, LUN\n\n    ! Find a free file LUN\n    INNUM = findFreeLun()\n\n1   FORMAT(I2)\n    OPEN(UNIT=INNUM,FILE=INFILE,FORM='FORMATTED',STATUS='OLD')\n    DO II=1,101\n    DO JJ=1,101\n    DO KK=1,101\n       READ(INNUM,1) BINACT(KK,JJ,II)\n       IF (BINACT(KK,JJ,II).eq.0) BINACT(KK,JJ,II)=IBINS + 1\n    ENDDO\n    ENDDO\n    ENDDO\n    CLOSE(INNUM)\n\n    RETURN\n\n  END SUBROUTINE READBINACT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: readfraction\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE READFRACTION(INFILE,FRACTION)\n!\n! !USES:\n!\n    USE inquireMod, ONLY : findFreeLun\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=255) INFILE\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp) FRACTION(101,101,101)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER INNUM, II, JJ, KK\n\n    ! Find a free file LUN\n    INNUM = findFreeLun()\n\n1   FORMAT(F6.5)\n    OPEN(UNIT=INNUM,FILE=INFILE,FORM='FORMATTED',STATUS='OLD')\n    DO II=1,101\n    DO JJ=1,101\n    DO KK=1,101\n       READ(INNUM,1) FRACTION(KK,JJ,II)\n       IF (FRACTION(KK,JJ,II).GT.1.) FRACTION(KK,JJ,II)=0.\n    ENDDO\n    ENDDO\n    ENDDO\n    CLOSE(INNUM)\n\n    RETURN\n\n  END SUBROUTINE READFRACTION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getfraction\n!\n! !DESCRIPTION: Subroutine GETFRACTION calculate the mass fraction of each\n!  soluble component i.e. SO4, sea-salt, hydrophilic OC to use as inputs for a\n!  lookup table of activating bin and scavenging fraction. (win, 9/10/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GETFRACTION( I,         J,         L,          N,               &\n                          LS,        State_Chm, State_Grid, State_Met,       &\n                          FRACTION,  SOLFRAC,   UnitFactor                  )\n!\n! !USES:\n!\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box index\n    INTEGER,        INTENT(IN)    :: N            ! Species ID\n    LOGICAL,        INTENT(IN)    :: LS           ! True=LS (stratiform) precip,\n                                                  ! False= convective precip\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Met State object\n    REAL(fp),       INTENT(IN)    :: UnitFactor   ! Unit conversion factor\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: FRACTION     ! Scavenging fraction\n                                                  !  in grid box\n    REAL(fp),       INTENT(OUT)   :: SOLFRAC      ! Soluble mass fraction\n!                                                 !  of aerosol population\n!                                                 !  in grid box\n!\n! !REMARKS:\n!  This routine is called from the convection routines (via wetscav_mod.F90\n!  routines COMPUTE_F and DO_RAINOUT_ONLY. (bmy, 7/18/16)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL*4                 ::  MECIL, MOCIL, MOCOB, MSO4, MNACL, MTOT\n    REAL*4                 ::  MECOB, MDUST\n    REAL*4                 ::  XOCIL, XSO4, XNACL\n    INTEGER                ::  ISO4, INACL, IOCIL\n    INTEGER                ::  GETBINACT\n    INTEGER                ::  BIN\n    INTEGER                ::  OFFSET\n    CHARACTER(LEN=255)     ::  MSG, LOC\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! GETFRACTION begins here\n    !=================================================================\n\n    ! Point to chemical species array\n    ! Units are now [kg/m2] in wet deposition and [kg/kg total air] in\n    ! convection (ewl, 9/29/15)\n    Spc => State_Chm%Species\n\n    BIN = N - id_NK01 + 1\n    IF ( BIN > IBINS ) THEN\n       BIN = MOD( BIN, IBINS )\n       IF ( BIN == 0 ) BIN = IBINS\n    ENDIF\n\n    MECIL = 0.E0\n    MOCIL = 0.E0\n    MOCOB = 0.E0\n    MSO4  = 0.E0\n    MNACL = 0.E0\n    MDUST = 0.E0\n\n    IF ( id_ECIL01 > 0 .AND.id_OCIL01 > 0 .AND. id_OCOB01 > 0 ) THEN\n       MECIL = Spc(id_ECIL01-1+BIN)%Conc(I,J,L) * UNITFACTOR\n       MOCIL = Spc(id_OCIL01-1+BIN)%Conc(I,J,L) * UNITFACTOR\n       MOCOB = Spc(id_OCOB01-1+BIN)%Conc(I,J,L) * UNITFACTOR\n    ENDIF\n    IF ( id_DUST01 > 0 ) MDUST = Spc(id_DUST01-1+BIN)%Conc(I,J,L) * UNITFACTOR\n    !account for ammonium sulfate\n    IF ( id_SF01 > 0 ) MSO4  = Spc(id_SF01-1+BIN)%Conc(I,J,L) * 1.2 * UNITFACTOR\n    IF ( id_SS01 > 0 ) MNACL = Spc(id_SS01-1+BIN)%Conc(I,J,L) * UNITFACTOR\n    MTOT  = MECIL + MOCIL + MOCOB + MSO4 + MNACL + MDUST + 1.e-20\n    XOCIL = MOCIL / MTOT\n    XSO4  = MSO4  / MTOT\n    XNACL = MNACL / MTOT\n    ISO4  = MIN(101, INT(XSO4*100)+1)\n    INACL = MIN(101, INT(XNACL*100)+1)\n    IOCIL = MIN(101, INT(XOCIL*100)+1)\n\n    !==========================================================\n    ! subroutine was written considering bin 1 is 10nm\n    ! in TOMAS-40, bin 1 is 1nm and bin 11 is 10nm\n    !==========================================================\n#if defined(TOMAS40)\n    OFFSET = 10\n#elif  defined(TOMAS15)\n    OFFSET = 3\n#else\n    OFFSET = 0\n#endif\n\n    IF ( LS ) THEN\n       GETBINACT = BINACT1(ISO4, INACL, IOCIL) + OFFSET\n    ELSE\n       GETBINACT = BINACT2(ISO4, INACL, IOCIL) + OFFSET\n    ENDIF\n\n    if((GETBINACT.lt.0).or.(GETBINACT.gt.50))then\n       print*,'BINACT ERROR GETBINACT=',GETBINACT\n       stop\n    endif\n\n    !print*,'N, BINACT = ',N,GETBINACT\n\n    IF ( GETBINACT > BIN ) THEN\n       FRACTION = 0. !NOT ACTIVATED\n    ELSE IF ( GETBINACT == BIN ) THEN\n       IF ( LS ) THEN\n          FRACTION = FRACTION1(ISO4, INACL, IOCIL ) !PARTLY ACTIVATED\n       ELSE\n          FRACTION = FRACTION2(ISO4, INACL, IOCIL ) !PARTLY ACTIVATED\n       ENDIF\n    ELSE\n       FRACTION = 1. !ALL ACTIVATED\n    ENDIF\n\n    ! Calculate the soluble fraction of mass\n    MECOB = 0.E0\n    IF ( id_ECOB01 > 0 ) MECOB = Spc(id_ECOB01-1+BIN)%Conc(I,J,L) * UNITFACTOR\n    SOLFRAC = MTOT / ( MTOT + MECOB )\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE GETFRACTION\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getactbin\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GETACTBIN ( I, J, L, N, LS, BINACT, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box index\n    INTEGER,        INTENT(IN)    :: N            ! Species ID\n    LOGICAL,        INTENT(IN)    :: LS           ! True=LS (stratiform) precip,\n                                                  ! False= convective precip\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: BINACT\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL*4                 ::  MECIL, MOCIL, MOCOB, MSO4, MNACL, MTOT\n    REAL*4                 ::  MECOB, MDUST\n    REAL*4                 ::  XOCIL, XSO4, XNACL\n    INTEGER                ::  ISO4, INACL, IOCIL\n    INTEGER                ::  BIN\n    INTEGER                ::  OFFSET\n    CHARACTER(LEN=255)     :: MSG, LOC ! For species unit check (ewl)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! GETACTBIN begins here\n    !=================================================================\n\n    ! Assume success\n    RC                =  GC_SUCCESS\n\n    ! Check that species units are in [kg]\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species are in kg!'\n       LOC = 'Routine GETACTBIN in tomas_mod.F90'\n       CALL ERROR_STOP( MSG, LOC )\n    ENDIF\n\n    ! Point to chemical species array\n    Spc => State_Chm%Species\n\n    BIN = N - id_NK01 + 1\n    IF ( BIN > IBINS ) THEN\n       BIN = MOD( BIN, IBINS )\n       IF ( BIN == 0 ) BIN = IBINS\n    ENDIF\n\n    MECIL = 0.E0\n    MOCIL = 0.E0\n    MOCOB = 0.E0\n    MSO4  = 0.E0\n    MNACL = 0.E0\n\n    IF ( id_ECIL01 > 0 .AND.id_OCIL01 > 0 .AND. id_OCOB01 > 0 ) THEN\n       MECIL = Spc(id_ECIL01-1+BIN)%Conc(I,J,L)\n       MOCIL = Spc(id_OCIL01-1+BIN)%Conc(I,J,L)\n       MOCOB = Spc(id_OCOB01-1+BIN)%Conc(I,J,L)\n    ENDIF\n    IF ( id_DUST01 > 0 ) MDUST = Spc(id_DUST01-1+BIN)%Conc(I,J,L)\n    MSO4  = Spc(id_SF01-1+BIN)%Conc(I,J,L) * 1.2 !account for ammonium sulfate\n    MNACL = Spc(id_SS01-1+BIN)%Conc(I,J,L)\n\n    MTOT  = MECIL + MOCIL + MOCOB + MSO4 + MNACL + MDUST + 1.e-20\n    XOCIL = MOCIL / MTOT\n    XSO4  = MSO4 / MTOT\n    XNACL = MNACL / MTOT\n    ISO4  = MIN(101, INT(XSO4*100)+1)\n    INACL = MIN(101, INT(XNACL*100)+1)\n    IOCIL = MIN(101, INT(XOCIL*100)+1)\n\n    !==========================================================\n    ! subroutine was written considering bin 1 is 10nm\n    ! in TOMAS-40, bin 1 is 1nm and bin 11 is 10nm\n    !==========================================================\n#if defined(TOMAS40)\n    OFFSET = 10\n#elif defined(TOMAS15)\n    OFFSET = 3\n#else\n    OFFSET = 0\n#endif\n\n    IF ( LS ) THEN\n       BINACT = BINACT1(ISO4, INACL, IOCIL) + OFFSET\n    ELSE\n       BINACT = BINACT2(ISO4, INACL, IOCIL) + OFFSET\n    ENDIF\n\n    ! Free pointer\n    Spc => NULL()\n\n    RETURN\n\n  END SUBROUTINE GETACTBIN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ezwatereqm\n!\n! !DESCRIPTION: WRITTEN BY Peter Adams, March 2000\n!     .\n!     This routine uses the current RH to calculate how much water is\n!     in equilibrium with the aerosol.  Aerosol water concentrations\n!     are assumed to be in equilibrium at all times and the array of\n!     concentrations is updated accordingly.\n!     .\n!     Introduced to GEOS-CHEM by Win Trivitayanurak. May 8, 2006.\n!     This file is replacing the old ezwatereqm that was not compatible\n!     with multicomponent aerosols.  The new ezwatereqm use external\n!     functions to do ISORROPIA-result curve fitting for each aerosol\n!     component.\n!     WARNING :\n!      *** Watch out for the new aerosol species added in the future!\n!     .\n!     This version of the routine works for sulfate and sea salt\n!     particles.  They are assumed to be externally mixed and their\n!     associated water is added up to get total aerosol water.\n!     wr is the ratio of wet mass to dry mass of a particle.  Instead\n!     of calling a thermodynamic equilibrium code, this routine uses a\n!     simple curve fits to estimate wr based on the current humidity.\n!     The curve fit is based on ISORROPIA/HETP results for ammonium bisulfate\n!     at 273 K and sea salt at 273 K.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EZWATEREQM( Mke, RHTOMAS )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4,  INTENT(IN)    :: RHTOMAS\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),INTENT(INOUT) :: Mke(IBINS,ICOMP)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: k, j\n    REAL(fp)            :: so4mass, naclmass, ocilmass\n    REAL(fp)            :: wrso4, wrnacl, wrocil\n    REAL(fp)            :: rhe\n\n    !========================================================================\n    ! EZWATEREQM begins here!\n    !========================================================================\n\n    rhe=100.e+0_fp*rhtomas\n    if (lowRH == 1) THEN !JKodros RH switch\n       if (rhe .gt. 90.e+0_fp) rhe=90.e+0_fp\n    ELSE\n       if (rhe .gt. 99.e+0_fp) rhe=99.e+0_fp\n    END IF !JKodros RH switch\n    if (rhe .lt. 1.e+0_fp) rhe=1.e+0_fp\n\n    do k=1,ibins\n\n       so4mass=Mke(k,srtso4)*1.2  !1.2 converts kg so4 to kg nh4hso4\n       wrso4=waterso4(rhe)\n\n       ! Add condition for srtnacl in case of running so4 only. (win, 5/8/06)\n       if (srtnacl.gt.0) then\n          naclmass=Mke(k,srtnacl) !already as kg nacl - no conv necessary\n          wrnacl=waternacl(rhe)\n       else\n          naclmass = 0.e+0_fp\n          wrnacl = 1.e+0_fp\n       endif\n\n       if (srtocil.gt.0) then\n          ocilmass=Mke(k,srtocil) !already as kg ocil - no conv necessary\n          wrocil=waterocil(rhe)\n       else\n          ocilmass = 0.e+0_fp\n          wrocil = 1.e+0_fp\n       endif\n\n       Mke(k,srth2o)=so4mass*(wrso4-1.e+0_fp)+naclmass &\n                     *(wrnacl-1.e+0_fp) &\n                     +ocilmass*(wrocil-1.e+0_fp)\n\n    enddo\n\n    RETURN\n\n  END SUBROUTINE EZWATEREQM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ezwatereqm2\n!\n! !DESCRIPTION: Subroutine EZWATEREQM2 is just like EZWATEREQM but access\n!  directly to STT array unlike EZWATEREQM that needs the array Mke to be\n!  passed in and out. This subroutine is for calling from outside microphysics\n!  module. (win, 8/6/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EZWATEREQM2( I, J, L, BIN, State_Met, State_Chm, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L, BIN\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp)               :: RHE\n    REAL(fp)               :: SO4MASS, NACLMASS, OCILMASS\n    REAL(fp)               :: WRSO4, WRNACL, WROCIL\n    CHARACTER(LEN=255)     :: MSG, LOC ! For species unit check (ewl)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !========================================================================\n    ! EZWATEREQM2 begins here!\n    !========================================================================\n\n    ! Assume success\n    RC  = GC_SUCCESS\n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    rhe = State_Met%RH(i,j,l)             !RH [=] percent\n\n    if (rhe .gt. 99.) rhe=99.\n    if (rhe .lt. 1.) rhe=1.\n\n    so4mass=Spc(id_SF01-1+bin)%Conc(I,J,L)*1.2 !1.2 converts kg so4 to kg nh4hso4\n    wrso4=waterso4(rhe)       !use external function\n\n    ! Add condition for srtnacl in case of running so4 only. (win, 5/8/06)\n    if (id_SS01.gt.0) then\n       naclmass=Spc(id_SS01-1+bin)%Conc(I,J,L) !already as kg nacl - no conv necessary\n       wrnacl=waternacl(rhe)  !use external function\n    else\n       naclmass = 0.e+0_fp\n       wrnacl = 1.e+0_fp\n    endif\n\n    if (id_OCIL01 > 0) then\n       ocilmass=Spc(id_OCIL01-1+bin)%Conc(I,J,L)  !already as kg ocil - no conv necessary\n       wrocil=waterocil(rhe)\n    else\n       ocilmass = 0.e+0_fp\n       wrocil = 1.e+0_fp\n    endif\n\n    Spc(id_AW01-1+bin)%Conc(I,J,L)= so4mass*(wrso4-1.e+0_fp) + &\n                             naclmass*(wrnacl-1.e+0_fp) &\n                             + ocilmass*(wrocil-1.e+0_fp)\n\n    ! Free pointer\n    Spc => NULL()\n\n    RETURN\n\n  END SUBROUTINE EZWATEREQM2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: eznh3eqm\n!\n! !DESCRIPTION: Subroutine EZNH3REQM2 puts ammonia to the particle phase until\n!  there is 2 moles of ammonium per mole of sulfate and the remainder\n!  of ammonia is left in the gas phase. (win, 9/30/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EZNH3EQM( Gce, Mke )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(INOUT)  :: Gce(icomp - 1) !sfarina - fixed incorrect definition of Gc array\n    REAL(fp),  INTENT(INOUT)  :: Mke(ibins,icomp)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer       ::  k\n    REAL(fp)        :: tot_nh3  !total kmoles of ammonia\n    REAL(fp)        :: tot_so4  !total kmoles of so4\n    REAL(fp)        :: sfrac    !fraction of sulfate that is in that bin\n\n    !========================================================================\n    ! EZNH3EQM begins here!\n    !========================================================================\n\n    ! get the total number of kmol nh3\n    tot_nh3 = Gce(srtnh4)/17.e+0_fp\n    do k=1,ibins\n       tot_nh3 = tot_nh3 + Mke(k,srtnh4)/18.e+0_fp\n    enddo\n\n    ! get the total number of kmol so4\n    tot_so4 = 0.e+0_fp\n    do k=1,ibins\n       tot_so4 = tot_so4 + Mke(k,srtso4)/96.e+0_fp\n    enddo\n\n    ! see if there is free ammonia\n    if (tot_nh3/2.e+0_fp.lt.tot_so4)then  ! no free ammonia\n       Gce(srtnh4) = 0.e+0_fp ! no gas phase ammonia\n       do k=1,ibins\n          sfrac = Mke(k,srtso4)/96.e+0_fp/tot_so4\n          Mke(k,srtnh4) = sfrac*tot_nh3*18.e+0_fp ! put the ammonia where the sulfate is\n          ! Debug\n          !if ( Mke(k,srtnh4) < 0.0 ) then\n          !   print *,'negative gas phase ammonia in eznh3eqm!!'\n          !   print *,'bin  ', k\n          !endif\n       enddo\n    else ! free ammonia\n       do k=1,ibins\n          Mke(k,srtnh4) = Mke(k,srtso4)/96.e+0_fp*2.e+0_fp*18.e+0_fp ! fill the particle phase\n          ! Debug\n          !if ( Mke(k,srtnh4) < 0.0 ) then\n          !   print *,'negative gas phase ammonia in eznh3eqm!!'\n          !   print *,'bin  ', k\n          !endif\n       enddo\n       Gce(srtnh4) = (tot_nh3 - tot_so4*2.e+0_fp)*17.e+0_fp ! put whats left over in the gas phase\n       ! Debug\n       !if ( Gce(srtnh4) < 0.0 ) then\n       !   print *,'negative gas phase ammonia in eznh3eqm!!'\n       !endif\n\n    endif\n\n    RETURN\n\n  END SUBROUTINE EZNH3EQM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aero_diaden\n!\n! !DESCRIPTION: AERO/_DIADEN calculate the diameter and density by calling\n!  external functions GETDP and AERODENS respectively. (win, 7/19/07)\n!  Note: This subroutine is created for supplying diameter and density for\n!        dry dep velocity calculation in DEPVEL.  Did not want to add much\n!        to DEPVEL.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AERO_DIADEN( LEV, Input_Opt, State_Chm, State_Grid, State_Met, &\n                          State_Diag, DIA, DENSITY, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,           INTENT(IN)    :: LEV\n    TYPE(OptInput),    INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState),    INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState),    INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),    INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState),    INTENT(INOUT) :: State_Diag  ! Diag State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),          INTENT(OUT)   :: DIA(State_Grid%NX,State_Grid%NY,IBINS)\n    REAL(fp),          INTENT(OUT)   :: DENSITY(State_Grid%NX,State_Grid%NY,IBINS)\n    INTEGER,           INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I,J, BIN, JC, TRACID, WID\n    INTEGER             :: N, NA, nAdvect, previous_units\n    REAL(fp)            :: MSO4, MNACL, MH2O\n    REAL(fp)            :: MECIL, MECOB, MOCIL, MOCOB, MDUST\n    CHARACTER(LEN=255)  :: MSG, LOC\n\n    ! Arrays\n    REAL(fp)            :: AMASS(ICOMP)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !========================================================================\n    ! AERO_DIADEN begins here!\n    !========================================================================\n\n    ! Assume success\n    RC =  GC_SUCCESS\n\n    ! Convert species units to [kg] for this routine.\n    ! NOTE: For complete area-independence, species units will need to be\n    !       mixing ratio or mass per unit area in TOMAS\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'Routine AERO_DIADEN in tomas_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Check that species units are in [kg]\n    IF ( State_Chm%Species(id_NK01)%Units /= KG_SPECIES ) THEN\n       MSG = 'Not all species have units \"kg\"!'\n       LOC = 'Routine AERO_DIADEN in tomas_mod.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n    ! Point to the chemical species array\n    Spc => State_Chm%Species\n\n    ! Initialize mass mixing ratios\n    MSO4  = 0e+0_fp\n    MNACL = 0e+0_fp\n    MH2O  = 0e+0_fp\n    MECIL = 0e+0_fp\n    MECOB = 0e+0_fp\n    MOCIL = 0e+0_fp\n    MOCOB = 0e+0_fp\n    MDUST = 0e+0_fp\n\n    CALL CHECKMN( 0, 0, 0, Input_Opt, State_Chm, State_Grid, State_Met, &\n                  State_Diag, 'AERO_DIADEN called from DEPVEL', RC )\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( MECIL, MECOB, MOCIL, MOCOB, MDUST ) &\n    !$OMP PRIVATE( BIN, I, J, TRACID, WID, MH2O, MSO4, MNACL ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n    DO BIN = 1, IBINS\n\n       TRACID = id_NK01 + BIN - 1\n       !print *,\"TRACID=\",TRACID,\"id_NK01=\",id_NK01, \"BIN=\", BIN\n       WID    = id_NK01 + (ICOMP - 1)*IBINS - 1 + BIN  !(fixed WID to 281-310. dmw 10/3/09)\n       !print *, \"wid=\", WID, \"ICOMP=\", ICOMP, \"IBINS=\", IBINS\n\n       ! Get the diameter from an external function\n       DIA(I,J,BIN) = GETDP( I, J, LEV, TRACID, State_Met, State_Chm, RC )\n\n       ! Prepare the mass mixing ratio to call external function\n       ! for density\n       MH2O = Spc(WID)%Conc(I,J,1)\n       IF ( id_SF01 > 0 ) MSO4 = Spc(id_SF01-1+BIN)%Conc(I,J,LEV)\n       IF ( id_SS01 > 0 ) MNACL = Spc(id_SS01-1+BIN)%Conc(I,J,LEV)\n       IF ( id_ECIL01 > 0 .AND. id_ECOB01 > 0 .AND. &\n            id_OCIL01 > 0 .AND. id_OCOB01 > 0 ) THEN\n          MECIL = Spc(id_ECIL01-1+BIN)%Conc(I,J,LEV)\n          MECOB = Spc(id_ECOB01-1+BIN)%Conc(I,J,LEV)\n          MOCIL = Spc(id_OCIL01-1+BIN)%Conc(I,J,LEV)\n          MOCOB = Spc(id_OCOB01-1+BIN)%Conc(I,J,LEV)\n       ENDIF\n       IF ( id_DUST01 > 0 ) MDUST = Spc(id_DUST01-1+BIN)%Conc(I,J,LEV)\n\n       ! Get density from external function\n       DENSITY(I,J,BIN) = AERODENS(MSO4,0.e+0_fp,1.875e-1_fp*MSO4, &\n                                   MNACL, MECIL, MECOB, &\n                                   MOCIL, MOCOB, MDUST, MH2O  )\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Check that species units are in [kg]\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species are in kg!'\n       LOC = 'Routine AERO_DIADEN in tomas_mod.F90'\n       CALL GC_Error( MSG, RC, LOC )\n    ENDIF\n\n    ! Convert species units back to original unit\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error('Unit conversion error', RC, &\n                     'Routine AERO_DIADEN in tomas_mod.F90')\n       RETURN\n    ENDIF\n\n    ! Free pointer\n    Spc => NULL()\n\n    RETURN\n\n  END SUBROUTINE AERO_DIADEN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: check_mn\n!\n! !DESCRIPTION: Subroutine CHECKMN use the subroutine MNFIX to check for error\n!  in the aerosol mass and number inconsistencies. (win, 7/24/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n\n  SUBROUTINE CHECKMN( II, JJ, LL, Input_Opt, State_Chm, &\n                      State_Grid, State_Met, State_Diag, &\n                      LOCATION, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER                         :: II, JJ, LL\n    CHARACTER(LEN=*), INTENT(IN)    :: LOCATION\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag  ! Diag State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: I, J, L\n    INTEGER             :: I1, I2, J1, J2, L1, L2\n    INTEGER             :: K, JC, NKID, TRACNUM, MPNUM\n    CHARACTER(LEN=255)  :: MSG, LOC ! For species unit check (ewl)\n    LOGICAL             :: ERRORSWITCH\n                          ! Make ERRORSWITCH = .TRUE. to get full print\n                          ! for debugging\n\n    !sfarina\n    REAL(fp)            :: Nk(IBINS), Nkd(IBINS)\n    REAL(fp)            :: Mk(IBINS, ICOMP)\n    REAL(fp)            :: Mkd(IBINS,ICOMP)\n    REAL(fp)            :: Gc(ICOMP - 1)\n    REAL(fp)            :: Gcd(ICOMP - 1)\n    REAL*4              :: BOXVOL\n    REAL*4              :: BOXMASS\n    REAL(fp)            :: XFER(IBINS)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! CHECKMN begins here!\n    !=================================================================\n\n    ! Assume success\n    RC        =  GC_SUCCESS\n\n    ! Point to chemical species array [kg]\n    Spc       => State_Chm%Species\n\n    ERRORSWITCH = .FALSE.\n\n    ! Check that species units are in [kg]\n    IF ( .not. Check_Units( State_Chm, KG_SPECIES ) ) THEN\n       MSG = 'Not all species are in kg!'\n       LOC = 'Routine CHECKMN in tomas_mod.F90: ' // TRIM( LOCATION )\n       CALL ERROR_STOP( MSG, LOC )\n    ENDIF\n\n    ! Check throughout all grid boxes\n    IF ( II == 0 .and. JJ == 0 .and. LL == 0 ) THEN\n       I1 = 1\n       I2 = State_Grid%NX\n       J1 = 1\n       J2 = State_Grid%NY\n       L1 = 1\n       L2 = State_Grid%NZ\n    ELSE ! Check at a single grid\n       I1 = II\n       I2 = II\n       J1 = JJ\n       J2 = JJ\n       L1 = LL\n       L2 = LL\n    ENDIF\n\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED )  &\n    !$OMP PRIVATE( I, J, L ) &\n    !$OMP PRIVATE( Nk, Nkd, Mk, Mkd, K, TRACNUM, JC, MPNUM, BOXVOL, BOXMASS ) &\n    !$OMP PRIVATE( GC, GCd, ERRORSWITCH ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO I = I1, I2\n    DO J = J1, J2\n    DO L = L1, L2\n\n       BOXVOL  = State_Met%AIRVOL(I,J,L) * 1.e6 !convert from m3 -> cm3\n       BOXMASS = State_Met%AD(I,J,L) !kg\n\n       ! Swap GEOSCHEM variables into aerosol algorithm variables\n       DO K = 1, IBINS\n          TRACNUM = id_NK01 - 1 + K\n          ! Check for nan\n          IF ( IT_IS_NAN( Spc(TRACNUM)%Conc(I,J,L) ) ) &\n               print *, 'Found NaN at',I, J, L,'Species',TRACNUM\n          NK(K) = Spc(TRACNUM)%Conc(I,J,L)\n          DO JC = 1, ICOMP-IDIAG\n             TRACNUM = id_NK01 - 1 + K + IBINS*JC\n             IF ( IT_IS_NAN( Spc(TRACNUM)%Conc(I,J,L) ) ) &\n                  print *, 'Found NaN at',I, J, L,'Species',TRACNUM\n             MK(K,JC) = Spc(TRACNUM)%Conc(I,J,L)\n          ENDDO\n          MK(K,SRTH2O) = Spc(id_AW01-1+K)%Conc(I,J,L)\n       ENDDO\n\n       DO JC = 1, ICOMP - 1\n          Gc(JC) = 0.0   !sfarina - init Gc so storenm doesn't go NaN on us.\n       END DO\n\n       ! Get NH4 mass from the bulk mass and scale to bin with sulfate\n       IF ( SRTNH4 > 0 ) THEN\n          CALL NH4BULKTOBIN( MK(:,SRTSO4), Spc(id_NH4)%Conc(I,J,L), XFER  )\n          MK(1:IBINS,SRTNH4) = XFER(1:IBINS)\n          Gc(SRTNH4) = Spc(id_NH3)%Conc(I,J,L)\n       ENDIF\n\n       !if ( i==26 .and. j==57 .and. l==13 ) &\n       !     call debugprint(Nk,Mk,i,j,l,'In CHECKMN')\n\n       CALL STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd)\n       !if(i==47.and.j==10.and.l==7) ERRORSWITCH = .TRUE.\n       !if(i==22.and.j==33.and.l==2)\n       !   call debugprint( NK, MK, i,j,l,LOCATION)\n\n       CALL MNFIX( NK, MK, ERRORSWITCH )\n       IF ( ERRORSWITCH ) THEN\n          PRINT *, 'CHECKMN is going to terminate at grid',I,J,L\n          !IF( .not. SPINUP(14.0) ) THEN\n          CALL ERROR_STOP( 'MNFIX found error', LOCATION )\n          !ELSE\n          !   PRINT *,'Let error go during spin up'\n          !ENDIF\n       ENDIF\n\n       ! Save the error fixing to diagnostic AERO-FIX\n       IF ( LOCATION .eq.  'Before Aerodrydep') THEN\n          MPNUM = 17 \n          IF ( State_Diag%Archive_TomasMNFIXcheck1mass .or. &\n               State_Diag%Archive_TomasMNFIXcheck1number )  THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n       ELSEIF ( LOCATION .eq.  'Before exiting DO_TOMAS') THEN\n          MPNUM = 18 \n          IF ( State_Diag%Archive_TomasMNFIXcheck2mass .or. &\n               State_Diag%Archive_TomasMNFIXcheck2number ) THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n       ELSEIF ( LOCATION .eq. 'AERO_DIADEN called from DEPVEL' ) THEN\n          MPNUM = 19 \n          IF ( State_Diag%Archive_TomasMNFIXcheck3mass .or. &\n               State_Diag%Archive_TomasMNFIXcheck3number ) THEN\n             CALL AERODIAG( MPNUM, I, J, L, Nk, Nkd, Mk, Mkd, BOXMASS, &\n                            State_Grid, State_Diag )\n          ENDIF\n       ENDIF\n\n       ! Swap Nk and Mk arrays back to Spc\n       DO K = 1, IBINS\n          TRACNUM = id_NK01 - 1 + K\n          Spc(TRACNUM)%Conc(I,J,L) = Nk(K)\n          DO JC = 1, ICOMP-IDIAG\n             TRACNUM = id_NK01 - 1 + K + IBINS*JC\n             Spc(TRACNUM)%Conc(I,J,L) = Mk(K,JC)\n          ENDDO\n          Spc(id_AW01-1+K)%Conc(I,J,L) = MK(K,SRTH2O)\n       ENDDO\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE(6,*)' #### CHECKMN: finish at ',LOCATION\n    ENDIF\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE CHECKMN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: mnfix\n!\n! !DESCRIPTION: Subroutine MNFIX examines the mass and number distrubution and\n!  determine if any bins have an average mass outside their normal range.  This\n!  can happen because some process, e.g. advection, seems to treat the mass and\n!  number species inconsistently.  If any bins are out of range, I shift some\n!  mass and number to a new bin in a way that conserves both. (win, 7/23/07)\n!  Originally written by Peter Adams, September 2000\n!  Modified for GEOS-CHEM by Win Trivitayanurak (win@cmu.edu)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MNFIX ( NK, MK, ERRORSWITCH )\n!\n! !USES:\n!\n    USE ERROR_MOD,    ONLY : ERROR_STOP, IT_IS_NAN\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(INOUT) :: NK(IBINS),  MK(IBINS, ICOMP)\n    LOGICAL, INTENT(INOUT) :: ERRORSWITCH\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer             :: K,J,KK !counters\n    integer             :: NEWBIN !bin number into which mass is shifted\n    REAL(fp)            :: XOLD, XNEW !average masses of old and new bins\n    REAL(fp)            :: DRYMASS !dry mass of in a bin\n    REAL(fp)            :: AVG !average dry mass of particles in bin\n    REAL(fp)            :: NUM_INITIAL !number of particles initially in problem bin\n    REAL(fp)            :: NSHIFT  !number to shift to new bin\n    REAL(fp)            :: MSHIFT !mass to shift to new bin\n    REAL(fp)            :: FJ !fraction of mass that is component j\n    REAL(fp)            :: save1,save2,save3,save4,save5\n    REAL(fp), PARAMETER :: EPS  = 1.e-20_fp !small number for Nk\n    REAL(fp), PARAMETER :: EPS2 = 1.e-28_fp !small number for Mk\n    REAL(fp), PARAMETER :: TINY = 1.e-36_fp !small number\n    REAL(fp), PARAMETER :: VTINY= 1.e-50_fp !very small number\n\n    LOGICAL             :: FIXERROR\n    LOGICAL             :: PRT\n    REAL(fp)            :: TOTMAS, TOTNUM !for print debug\n\n    !=================================================================\n    ! MNFIX begins here!\n    !=================================================================\n\n    FIXERROR = .TRUE.\n    PRT = .FALSE.\n    PRT = ERRORSWITCH !just carrying a signal to print out value at the observed box - since mnfix does not have any information about I,J,L location. (Win, 9/27/05)\n    ERRORSWITCH = .FALSE.\n    PRT = .FALSE.             !TO AVOID THE HUGE AMOUNT OF PRINTING (JKodros 6/2/15)\n    !xk(1)=xk(2)/2.e+0_fp  ! jrp for some reason xk(1) is changing?!\n    save1=xk(1)\n\n    ! Check for any incoming negative values or NaN\n    !--------------------------------------------------------------------------\n    DO K = 1, IBINS\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'11 Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'11 MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'11 Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO\n       IF ( NK(K) < 0e+0_fp ) THEN\n          IF ( PRT ) THEN\n             PRINT *,'MNFIX[0]: FOUND NEGATIVE N'\n             PRINT *, 'Bin, N', K, NK(K)\n          ENDIF\n          IF ( ABS(NK(K)) < 1e+0_fp .and. FIXERROR ) THEN\n             NK(K) = 0e+0_fp\n             IF ( PRT ) PRINT *,'Negative N > -1.0 Reset to zero'\n          ELSE\n             ERRORSWITCH = .TRUE.\n             print *,'MNFIX(0): Found negative Nk(',k,') <-1e+0_fp'\n             GOTO 300          !exit mnfix if found negative error (win, 4/18/06)\n          ENDIF\n       ENDIF\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( MK(K,J) < 0e+0_fp ) THEN\n             IF ( PRT ) THEN\n                PRINT *,'MNFIX[0]: FOUND NEGATIVE M'\n                PRINT *,'Bin, Comp, Mk', K, J, MK(K,J)\n             ENDIF\n             IF( ABS(MK(K,J)) < 1e-5_fp .and. FIXERROR ) THEN\n                MK(K,J) = 0e+0_fp\n                IF ( PRT ) PRINT *,'Negative M > -1.d-5 Reset to zero'\n             ELSE\n                ERRORSWITCH =.TRUE.\n                print *,'MNFIX(0): Found negative Mk(',k,',comp',j,')'\n                GOTO 300       !exit mnfix if found negative error (win, 4/18/06)\n             ENDIF\n          ENDIF\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO                   !icomp\n    ENDDO                     !ibins\n    save2=xk(1)\n\n    ! JRP check for neg numbers\n    !DO K = 1,IBINS\n    !  IF (NK(K) < 0.e+0_fp) THEN\n    !     print*,'1 NK < 0 in MNFIX',K,NK(K)\n    !  ENDIF\n    !  DO J=1,ICOMP\n    !     IF (MK(K,J) < 0.e+0_fp) THEN\n    !        print*,'1 MK < 0 in MNFIX',K,J,MK(K,J)\n    !     ENDIF\n    !  ENDDO\n    !  IF ( IT_IS_NAN(NK(K)) ) THEN\n    !     PRINT *,'11 Found Nan in Nk at bin',K\n    !     ERRORSWITCH = .TRUE.\n    !     print *,'11 MNFIX(0): Found NaN in Nk(,',k,')'\n    !     GOTO 300\n    !  ENDIF\n    !  DO J = 1, ICOMP\n    !     IF ( IT_IS_NAN(MK(K,J)) ) THEN\n    !        PRINT *,'11 Found Nan in Mk at bin',K,'component',J\n    !        ERRORSWITCH = .TRUE.\n    !        GOTO 300\n    !     ENDIF\n    !  ENDDO\n    !ENDDO\n\n    ! Check if both number and mass are zero, if yes then exit mnfix.\n    !----------------------------------------------------------------\n    TOTNUM = 0e+0_fp\n    TOTMAS = 0e+0_fp\n    DO K = 1,IBINS\n       TOTNUM = TOTNUM + NK(K)\n       DO J=1,ICOMP-IDIAG\n          TOTMAS = TOTMAS + MK(K,J)\n       ENDDO\n    ENDDO\n    IF ( TOTNUM == 0e+0_fp .AND. TOTMAS == 0e+0_fp ) THEN\n       IF ( PRT ) PRINT *,'MNFIX: Nk=Mk=0. Exit now'\n       GOTO 300\n    ENDIF\n\n    ! If number is tiny ( < EPS) then set it to zero\n    !DO K = 1,IBINS\n    !   IF ( NK(K) <= EPS ) THEN\n    !      NK(K) = 0e+0_fp\n    !      DO J= 1, ICOMP-1\n    !         MK(K,J) = 0e+0_fp\n    !      ENDDO               !STOP  !original (win, 9/1/05)\n    !   ENDIF\n    !ENDDO\n\n    ! If N is tiny and M is tiny, set both to zeroes\n    !--------------------------------------------------------\n    DO K = 1, IBINS\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'22 Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'22 MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'22 Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO\n       IF ( NK(K) <= EPS .AND. NK(K)>= 0e+0_fp ) THEN\n          !print*,'1111'\n          !print*,k,EPS,xk(K),xk(K+1)\n          !print*,'word up'\n          NK(K) = EPS\n          !NK(K) = 0.e+0_fp\n          !DO J = 1, ICOMP-IDIAG\n          DO J = 1, ICOMP\n             if (J .eq. 1) then\n                !MK(K,J) = EPS*sqrt(xk(K)*xk(K+1))\n                MK(K,J) = EPS*AVGMASS(k)\n                !MK(K,J) = 0.e+0_fp\n             else\n                MK(K,J) = VTINY\n             endif\n          enddo\n          !print*,'allbins',MK(:,1)\n       ENDIF ! If tiny number\n       TOTMAS = SUM(MK(K,1:ICOMP-IDIAG))\n       if (TOTMAS.lt.eps2) then\n          !print*,'2222'\n          NK(K) = EPS\n          !NK(K) = 0.e+0_fp\n          DO J = 1, ICOMP\n             !DO J = 1, ICOMP-IDIAG\n             if (J .eq. 1) then\n                !MK(K,J) = EPS*sqrt(xk(K)*xk(K+1))\n                MK(K,J) = EPS*AVGMASS(k)\n                !MK(K,J) = 0.e+0_fp\n             else\n                MK(K,J) = VTINY\n             endif\n          enddo\n       endif\n    ENDDO\n    save3=xk(1)\n\n    ! JRP check for neg numbers\n    DO K = 1,IBINS\n       IF (NK(K) < 0.e+0_fp) THEN\n          print*,'2 NK < 0 in MNFIX',K,NK(K)\n       ENDIF\n       DO J=1,ICOMP\n          IF (MK(K,J) < 0.e+0_fp) THEN\n             print*,'2 MK < 0 in MNFIX',K,J,MK(K,J)\n          ENDIF\n       ENDDO\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'2 Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'2 MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'2 Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO\n    ENDDO\n\n    ! Check to see if any bins are completely out of bounds for min or max bin\n    !-------------------------------------------------------------------------\n    DO K = 1, IBINS\n       DRYMASS = 0.e+0_fp\n       DO J = 1, ICOMP-IDIAG\n          DRYMASS = DRYMASS + MK(K,J)\n       ENDDO\n\n       IF ( NK(k) == 0e+0_fp ) THEN\n          !AVG = SQRT( xk(K)* xk(K+1) )\n          AVG = SQRT( AVGMASS(k) )\n       ELSE\n          AVG = DRYMASS/ NK(K)\n       ENDIF\n\n       IF ( AVG >  xk(IBINS+1) ) THEN\n          IF ( PRT ) PRINT *, 'MNFIX [1]: AVG > Xk(ibins+1) at bin',K\n          IF ( FIXERROR ) THEN\n             !out of bin range - remove some mass\n             MSHIFT = NK(k)* xk(IBINS+1)/ 1.2\n             DO J= 1, ICOMP\n                MK(K,J) = MK(K,J)* MSHIFT/ (DRYMASS+EPS2)\n             ENDDO\n          ELSE\n             ERRORSWITCH = .TRUE.\n             print *,'MNFIX(1): AVG>Xk(ibins+1) at bin',K\n             GOTO 300\n          ENDIF\n       ENDIF\n       IF ( AVG < xk(1)) THEN\n          IF( PRT ) PRINT *,'MNFIX [2]: AVG < Xk(1)'\n          IF( FIXERROR ) THEN\n             !out of bin range - remove some number\n             NK(K) = DRYMASS/ ( xk(1)* 1.2 )\n          ELSE\n             ERRORSWITCH = .TRUE.\n             print *,'MNFIX(1): AVG < Xk(1) at bin',K\n             GOTO 300\n          ENDIF\n       ENDIF\n    ENDDO\n\n    ! JRP check for neg numbers\n    DO K = 1,IBINS\n       IF (NK(K) < 0.e+0_fp) THEN\n          print*,'3 NK < 0 in MNFIX',K,NK(K)\n       ENDIF\n       DO J=1,ICOMP\n          IF (MK(K,J) < 0.e+0_fp) THEN\n             print*,'3 MK < 0 in MNFIX',K,J,MK(K,J)\n          ENDIF\n       ENDDO\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'3 Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'3 MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'3 Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO\n    ENDDO\n    save4=xk(1)\n\n    !if (PRT) then !<step5.1-temp>\n    !   print *,'After_Check2 ---------------------'\n    !   do k=1,ibins\n    !      totmas = sum(MK(k,1:icomp-1))\n    !      print *, totmas,NK(k), totmas/NK(k)\n    !   enddo\n    !endif\n\n    !print*,1,NK(1),NK(2)\n    !print*,1,MK(1,:)\n    !print*,1,MK(2,:)\n\n    ! Check to see if any bins are out of bounds\n    !-------------------------------------------------------------------\n    DO K = 1, IBINS\n       !if (PRT) print *,'Now at bin',k !<step4.4>tmp (win, 9/28/05)\n\n       DRYMASS = 0.e+0_fp\n       DO J = 1, ICOMP-IDIAG\n          DRYMASS = DRYMASS + MK(K,J)\n       ENDDO\n\n       IF ( NK(K) == 0e+0_fp ) THEN\n          !AVG = SQRT(xk(K)*xk(K+1)) !set to mid-range value\n          AVG = AVGMASS(k) !set to mid-range value\n       ELSE\n          AVG = DRYMASS/NK(K)\n       ENDIF\n\n       !if (PRT) then     !<step5.1-temp>\n       !   print *,'After_Check3---------------------'\n       !   totmas = sum(MK(k,1:icomp-1))\n       !   print *, totmas,NK(k), totmas/NK(k)\n       !endif\n\n       ! If over boundary of the current bin\n       IF ( AVG >  xk(K+1) ) THEN\n          IF ( PRT ) PRINT *, 'MNFIX [3]: AVG>Xk(',K+1,')'\n          IF ( PRT ) CALL DEBUGPRINT(NK,MK,0,0,0,'inside MNFIX')\n          IF ( FIXERROR ) THEN\n             !Average mass is too high - shift to higher bin\n             !KK = K + 1 ! jrp, this was causing errors\n             !ERRORSWITCH=.TRUE.\n             KK = K\n             XNEW = xk(KK+1)/ 1.1\n             if ( PRT ) PRINT *, 'k',k,'AVG',AVG,' XNEW ',XNEW\n100          IF ( XNEW <= AVG ) THEN\n                IF ( KK < IBINS ) THEN\n                   KK = KK + 1\n                   XNEW = xk(KK+1)/ 1.1\n                   if (PRT) PRINT *, '..move up to bin ',KK,' XNEW ',XNEW\n                   GOTO 100\n                ELSE\n                   ! Already reach highest bin - must remove some mass (win, 8/1/07)\n                   ! Updated by jrp 3/1/2012\n                   MSHIFT = NK(k)* xk(k+1)/ 1.1\n                   if( PRT ) PRINT*,' Mass being discarded: '\n                   DO J= 1, ICOMP\n                      !if (PRT)\n                      !print*,'Removing mass in MNFIX',MSHIFT, DRYMASS\n                      MK(K,J) = MK(K,J)* MSHIFT/ (DRYMASS)\n                   ENDDO\n                   ! and recalculate dry mass (win, 8/1/07)\n                   DRYMASS = 0.e+0_fp ! jrp fix 2/29/12\n                   DO J = 1, ICOMP-IDIAG\n                      DRYMASS = DRYMASS + MK(K,J)\n                   ENDDO\n                   GOTO 111\n                ENDIF\n             ENDIF\n\n             if(PRT)print*,'Old NK',NK(k),'Old DRYMASS',DRYMASS,'bin',k\n\n             !XOLD = SQRT( xk(K)* xk(K+1) )\n             XOLD = AVGMASS(k)\n             NUM_INITIAL = NK(K)\n             NSHIFT = ( DRYMASS - XOLD * NUM_INITIAL )/ ( XNEW - XOLD )\n             MSHIFT = XNEW * NSHIFT\n             NK(K) = NK(K) - NSHIFT\n             NK(KK) =NK(KK) + NSHIFT\n\n             if(prt) then\n                print*,'NSHIFT',NSHIFT, 'MSHIFT',MSHIFT\n                print*,'New NK',k,NK(k),' Nk(kk)',kk,NK(kk)\n                print*,'Total mass bin',k,sum(MK(k,1:icomp-idiag))\n                print*,'SO4 mass bin  ',k,(MK(k,srtso4))\n                print*,'Total mass bin',kk,sum(MK(kk,1:icomp-idiag))\n                print*,'SO4 mass bin  ' ,kk,(MK(kk,srtso4))\n             endif\n\n             DO J = 1, ICOMP-IDIAG\n                FJ = MK(K,J)/ DRYMASS\n                MK(K,J) = XOLD * NK(K) * FJ\n                MK(KK,J) = MK(KK,J) + MSHIFT * FJ\n             ENDDO\n\n             if(prt) then\n                print*,'After shift mass'\n                print*,'Total mass bin',k,sum(MK(k,1:icomp-idiag))\n                print*,'SO4 mass bin  ',k,(MK(k,srtso4))\n                print*,'Total mass bin',kk,sum(MK(kk,1:icomp-idiag))\n                print*,'SO4 mass bin  ',kk,(MK(kk,srtso4))\n             endif\n\n          ELSE\n             ERRORSWITCH = .TRUE.\n             PRINT *, 'MNFIX(3) : AVG>Xk(',K+1,')'\n             GOTO 300\n          ENDIF    ! Fixerror\n       ENDIF       ! AVG > Xk(k+1)\n\n       !if (PRT) then     !<step5.1-temp>\n       !   print *,'After_Check4---------------------'\n       !   totmas = sum(MK(k,1:icomp-1))\n       !   print *, totmas,NK(k), totmas/NK(k)\n       !endif\n\n       ! If under boundary of the current bin\n111    IF ( AVG <  xk(K) ) THEN\n          IF ( PRT ) PRINT *,'MNFIX [4]: AVG<Xk(',K,')'\n          IF ( FIXERROR ) THEN\n             !average mass is too low - shift number to lower bin\n             !KK = K - 1 ! jrp potential for errors here\n             KK = K\n             XNEW = xk(KK)* 1.1\n200          IF ( XNEW >= AVG ) THEN\n                IF ( KK > 1 ) THEN\n                   KK = KK - 1\n                   XNEW = xk(KK)* 1.1\n                   GOTO 200\n                ELSE\n                   ! Already reach lowest bin - must remove some number (win, 8/1/07)\n                   NK(K) = DRYMASS/ ( xk(1)* 1.2 )\n                   GOTO 222\n                ENDIF\n             ENDIF\n             !XOLD = SQRT(xk(K)* xk(K+1))\n             XOLD = AVGMASS(k)\n             NUM_INITIAL = NK(K)\n             NSHIFT = NUM_INITIAL - DRYMASS/XOLD !(win, 10/20/08)\n             !Prior to 10/20/08 (win)\n             !NSHIFT = (DRYMASS - XOLD * NUMBER)/ ( XNEW - XOLD )\n             MSHIFT = XNEW * NSHIFT\n             NK(K) = NK(K) - NSHIFT\n             NK(KK) = NK(KK) + NSHIFT\n             DO J=1,ICOMP\n                FJ = MK(K,J)/ DRYMASS\n                MK(K,J) = XOLD * NK(K) * FJ\n                MK(KK,J) = MK(KK,J) + MSHIFT * FJ\n             ENDDO\n\n          ELSE\n             ERRORSWITCH = .TRUE.\n             PRINT *, 'MNFIX(4): AVG < Xk(',k,')'\n             GOTO 300\n          ENDIF\n222    ENDIF\n\n       !if (PRT) then     !<step5.1-temp>\n       !   print *,'After_Check5---------------------'\n       !   totmas = sum(MK(k,1:icomp-1))\n       !   print *, totmas,NK(k), totmas/NK(k)\n       !endif\n       !if (PRT) print *,MK(k,1),NK(k), MK(k,1)/NK(k),'Check5'!<step4.4>tmp (win, 9/28/05)\n\n    ENDDO ! loop bin\n    save5=xk(1)\n\n    !print*,2,NK(1),NK(2)\n    !print*,2,MK(1,:)\n    !print*,2,MK(2,:)\n\n    ! JRP check for neg numbers\n    DO K = 1,IBINS\n       IF (NK(K) < 0.e+0_fp) THEN\n          print*,'4 NK < 0 in MNFIX',K,NK(K)\n       ENDIF\n       DO J=1,ICOMP\n          IF (MK(K,J) < 0.e+0_fp) THEN\n             print*,'4 MK < 0 in MNFIX',K,J,MK(K,J)\n             print*,'saved xk1s',save1,save2,save3,save4,save5\n             print*,'xk',xk\n          ENDIF\n       ENDDO\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'4 Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'4 MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'4 Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO\n    ENDDO\n\n    !if (PRT) then !<step5.1-temp>\n    ! Catch any small negative values resulting from fixing\n    !--------------------------------------------------------------------------\n    DO K = 1, IBINS\n       IF ( NK(K) < 0e+0_fp ) THEN\n          IF ( PRT ) THEN\n             PRINT *,'MNFIX[5]: FOUND NEGATIVE N'\n             PRINT *, 'Bin, N', K, NK(K)\n          ENDIF\n          IF ( ABS(NK(K)) < 1e+0_fp .and. FIXERROR ) THEN\n             NK(K) = 0e+0_fp\n             IF ( PRT ) PRINT *,'Negative N > -1.0 Reset to zero'\n          ELSE\n             ERRORSWITCH = .TRUE.\n             PRINT *, 'MNFIX(5): Negative N after fixing at bin',k\n             GOTO 300          !exit mnfix if found negative error (win, 4/18/06)\n          ENDIF\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( MK(K,J) < 0e+0_fp ) THEN\n             IF ( PRT ) THEN\n                PRINT *,'MNFIX[6]: FOUND NEGATIVE M'\n                PRINT *,'Bin, Comp, Mk', K, J, MK(K,J)\n             ENDIF\n             IF( ABS(MK(K,J)) < 1D-5 .and. FIXERROR ) THEN\n                MK(K,J) = 0e+0_fp\n                IF ( PRT ) PRINT *,'Negative M > -1.d-5 Reset to zero'\n             ELSE\n                ERRORSWITCH =.TRUE.\n                PRINT *, 'MNFIX(6): Negative M after fixing at bin',k\n                GOTO 300       !exit mnfix if found negative error (win, 4/18/06)\n             ENDIF\n          ENDIF\n       ENDDO                   !icomp\n    ENDDO                     !ibins\n\n    ! JRP check for neg numbers\n    DO K = 1,IBINS\n       IF (NK(K) < 0.e+0_fp) THEN\n          print*,'5 NK < 0 in MNFIX',K,NK(K)\n       ENDIF\n       DO J=1,ICOMP\n          IF (MK(K,J) < 0.e+0_fp) THEN\n             print*,'5 MK < 0 in MNFIX',K,J,MK(K,J)\n          ENDIF\n       ENDDO\n       IF ( IT_IS_NAN(NK(K)) ) THEN\n          PRINT *,'5 Found Nan in Nk at bin',K\n          ERRORSWITCH = .TRUE.\n          print *,'5 MNFIX(0): Found NaN in Nk(,',k,')'\n          GOTO 300\n       ENDIF\n       DO J = 1, ICOMP\n          IF ( IT_IS_NAN(MK(K,J)) ) THEN\n             PRINT *,'5 Found Nan in Mk at bin',K,'component',J\n             ERRORSWITCH = .TRUE.\n             GOTO 300\n          ENDIF\n       ENDDO\n    ENDDO\n\n    ! Check any last inconsistent M=0 or N=0\n    !--------------------------------------------------------\n    DO K = 1, IBINS\n       DRYMASS = 0.e+0_fp\n       DO J = 1, ICOMP-IDIAG\n          DRYMASS = DRYMASS + MK(K,J)\n       ENDDO\n       IF ( NK(K) /= 0e+0_fp .AND. DRYMASS == 0e+0_fp .or. &\n            NK(K) == 0e+0_fp .AND. DRYMASS /= 0e+0_fp     ) THEN\n          PRINT *, '5.5 set nk, mk to ZERO for all bins'\n          DO J = 1, ICOMP\n             MK(K,J)=0.e+0_fp\n             NK(K) = 0.e+0_fp\n          ENDDO\n          MK(K,ICOMP) = 0.e+0_fp !Set aerosol water to zero too\n       ENDIF                  ! If tiny number\n    ENDDO\n\n    ! JRP check for neg numbers\n    DO K = 1,IBINS\n       IF (NK(K) < 0.e+0_fp) THEN\n          print*,'6 NK < 0 in MNFIX',K,NK(K)\n          STOP\n       ENDIF\n       DO J=1,ICOMP\n          IF (MK(K,J) < 0.e+0_fp) THEN\n             print*,'6 MK < 0 in MNFIX',K,J,MK(K,J)\n             STOP\n          ENDIF\n       ENDDO\n    ENDDO\n\n300 CONTINUE\n\n    IF (ERRORSWITCH) THEN\n555    FORMAT (3E15.5E2)\n       WRITE(6,*)'END OF MNFIX ( WHERE? )'\n       WRITE(6,*)'DRYMAS-excl-NH4  NK      DRYMASS/NK'\n       DO K = 1,IBINS\n          TOTMAS = SUM(MK(K,1:ICOMP-1))\n          !PRINT *, TOTMAS,NK(K), TOTMAS/NK(K)\n       ENDDO\n\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       !%%% NOTE: NK will be IBINS+1 upon exiting the loop, which will cause an\n       !%%% out-of-bounds error.  Comment this out for now, unless it should be\n       !%%% inserted into the DOloop\n       !WRITE(6,555)\n       !        TOTMAS, NK(K),\n       !        TOTMAS/ NK(K)\n       !print*,'-----------'\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       call debugprint( NK, MK, 0,0,0,'End of MNFIX')\n\n       !write(*,*)'Nk'\n       !write(*,*) NK(1:30)\n       !write(*,*)'Mk(srtso4)'\n       !write(*,*) MK(1:30,srtso4)\n       !write(*,*)'Mk(srth2o)'\n       !write(*,*) MK(1:30,srth2o)\n       !STOP 'Negative Nk or Mk at after mnfix'  !comment out this to make it stop outside mnfix so that I can print out the i,j,l (location) of the error (win, 9/1/05)\n    ENDIF\n\n    RETURN\n\n  END SUBROUTINE MNFIX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: subgridcoag\n!\n! !DESCRIPTION: Subroutine SUBGRIDCOAG determine how much of each size of\n!  freshly emitted aerosol will be scavenged by coagulation prior to being\n!  completely mixed in the gridbox and will give the new emissions size\n!  distribution along with where the mass of coagulated particles should be\n!  added.\n!  Written by Jeff Pierce, December, 2006\n!  Implement in GEOS-Chem by Win Trivitayanurak, 10/4/07\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SUBGRIDCOAG( NDISTINIT, NDIST, MDIST, BOXVOLUME,TEMP, &\n                          PRES,TSCALE, NDISTFINAL, MADDFINAL, pdbug)\n!\n! !ARGUMENTS:\n!\n    !ndistinit(nbins)   : the number of particles being added to the gridbox\n    !                     before subgrid coag\n    !ndist(nbins)       : the number of particles in the box\n    !mdist(nbins,icomp) : the mass of each component in the box. (kg)\n    !boxvolume          : volume of box in cm3\n    !tscale             : the scale time for mixing (s)\n    !ndistfinal(nbins)  : the number of particles being added to the gridbox\n    !                     after subgrid coag\n    !maddfinal(nbins)   : the mass that should be added to each bin due to\n    !                     coagulation (kg)\n    REAL(fp) ndistinit(ibins)\n    REAL(fp) ndist(ibins)\n    REAL(fp) mdist(ibins,icomp)\n    REAL*4 boxvolume, temp , PRES\n    REAL*4 tscale\n    REAL(fp) ndistfinal(ibins)\n    REAL(fp) maddfinal(ibins)\n    logical pdbug  ! for pringing out during debugging\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) mp                     ! mass of the particle (kg)\n    REAL*4 density                !density (kg/m3) of particles\n    REAL(fp) fracdiaml(ibins,ibins) ! fraction of coagulation that occurs with each bin larger\n    REAL(fp) kcoag(ibins) ! the coagulation rate for the particles in each bin (s^-1)\n    !REAL*4 aerodens\n    !external aerodens\n\n    REAL*4 mu                     !viscosity of air (kg/m s)\n    REAL*4 mfp                    !mean free path of air molecule (m)\n    REAL*4 Kn                     !Knudsen number of particle\n    REAL*4 beta                   !correction for coagulation coeff.\n    REAL(fp) Mktot      !total mass of aerosol\n    REAL*4 kij(ibins,ibins)\n    REAL*4 Dpk(ibins)             !diameter (m) of particles in bin k\n    REAL*4 Dk(ibins)              !Diffusivity (m2/s) of bin k particles\n    REAL*4 ck(ibins)              !Mean velocity (m/2) of bin k particles\n    REAL*4 neps\n    REAL*4 meps\n    INTEGER I, J, K, KK\n    LOGICAL ERRORSWITCH\n\n    ! Adjustable parameters\n    real*4 pi, kB               !kB is Boltzmann constant (J/K)\n    real*4 R       !gas constant (J/ mol K)\n    parameter (pi=3.141592654, kB=1.38e-23, R=8.314)\n    parameter (neps=1E8, meps=1E-8)\n\n    !=================================================================\n    ! SUBGRIDCOAG begins here!\n    !=================================================================\n\n    if (pdbug) call debugprint(Ndist,Mdist,0,0,0,'SUBDGRIDCOAG: Entering')\n\n    !Before going in to calculation, check and fix Nk and Mk\n    ERRORSWITCH = .FALSE.\n    !print *, 'mnfix in tomas_mod:7495'\n    CALL MNFIX( NDIST, MDIST, ERRORSWITCH )\n    IF ( ERRORSWITCH ) THEN\n       PRINT *,'SUBGRIDCOAG: MNFIX found error: Entering SUBGRIDCOAG'\n       PDBUG = .TRUE.\n       GOTO 11\n    ENDIF\n\n    if (pdbug) call debugprint(Ndist,Mdist,0,0,0,'SUBDGRIDCOAG: after MNFIX_1')\n\n    mu=2.5277e-7*temp**0.75302\n    mfp=2.0*mu / ( pres*sqrt( 8.0 * 0.0289 / (pi*R*temp) ) )  !S&P eqn 9.6\n    ! Calculate particle sizes and diffusivities\n    do k=1,ibins\n       Mktot=0.2*mdist(k,srtso4)\n       do j=1, icomp\n          Mktot=Mktot+mdist(k,j)\n       enddo\n       if (Mktot.gt.meps)then\n          density=aerodens(mdist(k,srtso4),0e+0_fp, &\n                  0.1875e+0_fp*mdist(k,srtso4),mdist(k,srtnacl), &\n                  mdist(k,srtecil),mdist(k,srtecob), &\n                  mdist(k,srtocil),mdist(k,srtocob),mdist(k,srtdust), &\n                  mdist(k,srth2o)) !assume bisulfate\n       else\n          density = 1400.\n       endif\n       if(ndist(k).gt.neps .and. Mktot.gt.meps)then\n          mp=Mktot/ndist(k)\n       else\n          mp=sqrt(xk(k)*xk(k+1))\n       endif\n       Dpk(k)=((mp/density)*(6./pi))**(0.333)\n       Kn=2.0*mfp/Dpk(k)                            !S&P Table 12.1\n       Dk(k)=kB*temp/(3.0*pi*mu*Dpk(k)) &           !S&P Table 12.1\n             *((5.0+4.0*Kn+6.0*Kn**2+18.0*Kn**3)/(5.0-Kn+(8.0+pi)*Kn**2))\n       ck(k)=sqrt(8.0*kB*temp/(pi*mp))              !S&P Table 12.1\n    enddo\n\n    ! Calculate coagulation coefficients\n\n    do i=1,ibins\n       do j=1,ibins\n          Kn=4.0*(Dk(i)+Dk(j)) &\n             /(sqrt(ck(i)**2+ck(j)**2)*(Dpk(i)+Dpk(j))) !S&P eqn 12.51\n          beta=(1.0+Kn)/(1.0+2.0*Kn*(1.0+Kn))          !S&P eqn 12.50\n          !This is S&P eqn 12.46 with non-continuum correction, beta\n          kij(i,j)=2.0*pi*(Dpk(i)+Dpk(j))*(Dk(i)+Dk(j))*beta\n          kij(i,j)=kij(i,j)*1.0e6/boxvolume  !normalize by grid cell volume\n       enddo\n    enddo\n\n    ! get the first order loss rate\n    kcoag(ibins)=0.0\n    !debug\n    if(pdbug) print *,'Bin  KCOAG'\n    do k=1,ibins-1\n       kcoag(k)=0.0\n       do kk=k+1,ibins\n          kcoag(k)=kcoag(k)+kij(k,kk)*ndist(kk)\n       enddo\n       !debug\n       if(pdbug) print *, k, kcoag(k)\n    enddo\n\n    ! get the fraction of the coagulation that occurs from each bin larger\n    do k=1,ibins\n       do kk=1,ibins\n          fracdiaml(k,kk)=0.\n       enddo\n    enddo\n    do k=1,ibins-1\n       !debug\n       if(pdbug) print *, 'Bin k', k\n       !debug\n       if(pdbug) print *, 'Bin kk   fracdiaml(k,kk)'\n       do kk=k+1,ibins\n          if (kcoag(k).gt.0.e+0_fp)then\n             fracdiaml(k,kk)=kij(k,kk)*ndist(kk)/kcoag(k)\n          else\n             fracdiaml(k,kk)=0.e+0_fp\n          endif\n          !debug\n          if(pdbug) print *, kk, fracdiaml(k,kk)\n       enddo\n    enddo\n\n    ! determine the number of new particles left after coagulation\n    do k=1,ibins\n       !ndistfinal(k)=ndistinit(k)*exp(-kcoag(k)*tscale)\n       !print*, 'Betty is here tscale ',tscale,k,kcoag(k)\n       ndistfinal(k)=ndistinit(k)*exp(-1.e+0_fp*kcoag(k)*tscale)\n    enddo\n\n    ! determine the mass added to each bin coagulation\n    do k=1,ibins\n       maddfinal(k)=0.\n    enddo\n    do k=1,ibins-1\n       do kk=k+1,ibins\n          maddfinal(kk)=maddfinal(kk) + (ndistinit(k)-ndistfinal(k))* &\n                        fracdiaml(k,kk)*AVGMASS(k)\n          !sfarina - not the slowest part of subgridcoag, but every little bit helps\n          !maddfinal(kk)=maddfinal(kk) + (ndistinit(k)-ndistfinal(k))* &\n          !     fracdiaml(k,kk)*sqrt(xk(k)*xk(k+1))\n       enddo\n    enddo\n\n    pdbug = .FALSE.\n\n11  continue\n    return\n\n  END SUBROUTINE SUBGRIDCOAG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: storenm\n!\n! !DESCRIPTION: Subroutine STORENM stores values of Nk and Mk into Nkd and Mkd\n!  for diagnostic purposes.  Also do gas phase concentrations. (win, 7/23/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE STORENM(Nk, Nkd, Mk, Mkd, Gc, Gcd )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),INTENT(IN)    :: Nk(IBINS)\n    REAL(fp),INTENT(IN)    :: Mk(IBINS, ICOMP)\n    REAL(fp),INTENT(IN)    :: Gc(ICOMP - 1)\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),INTENT(OUT)   :: Nkd(IBINS)\n    REAL(fp),INTENT(OUT)   :: Mkd(IBINS,ICOMP)\n    REAL(fp),INTENT(OUT)   :: Gcd(ICOMP - 1)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: J, K\n\n    !sfarina\n    DO J= 1, ICOMP-1\n       Gcd(J)=Gc(J)\n    ENDDO\n    DO K = 1, IBINS\n       Nkd(K)=Nk(K)\n       DO J= 1, ICOMP\n          Mkd(K,J)=Mk(K,J)\n       ENDDO\n    ENDDO\n\n    RETURN\n\n  END SUBROUTINE STORENM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: debugprint\n!\n! !DESCRIPTION: Subroutine DEBUGPRINT print out the Nk and Mk values for error\n!  checking (win, 9/30/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DEBUGPRINT( NK, MK, I,J,L, LOCATION)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),         INTENT(IN) :: Nk(IBINS), MK(IBINS,ICOMP)\n    INTEGER,          INTENT(IN) :: I,J,L\n    CHARACTER(LEN=*), INTENT(IN) :: LOCATION\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: JC, k, B\n\n    WRITE(*,*) LOCATION, I, J, L\n    !write(6,*) 'Nk(1:30)'\n    !write(6,*) Nk(1:30)\n    !do jc=1,icomp\n    !   write(6,*) 'Mk(1:30) comp:',jc\n    !   write(6,*) Mk(1:30,jc)\n    !enddo\n    write(*,111) 'Bin        Num         SO4        NaCl        ', &\n                 'ECIL        ECOB        OCIL       OCOB       ', &\n                 'Dust        NH4         Water  '\n    DO K = 1, IBINS\n       write(*,110) k,Nk(k), ( Mk(K,B), B=1,ICOMP )\n    ENDDO\n    write(*,*) ' '\n110 FORMAT ( I2, 10E12.5 )\n111 FORMAT (a,a,a)\n\n  END SUBROUTINE DEBUGPRINT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: nh4bulktobin\n!\n! !DESCRIPTION: Subroutine NH4BULKTOBIN takes the bulk ammonium aerosol from\n!  GEOS-Chem and fraction it to each bin according to sulfate mole fraction in\n!  each bin\n!  Written by Win Trivityanurak, Sep 26, 2008\n!  .\n!  Make sure that we work with mass or mass conc.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NH4BULKTOBIN( MSULF, NH4B, MAMMO )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)   :: MSULF(IBINS)  ! size-resolved sulfate [kg]\n    REAL(fp),  INTENT(IN)   :: NH4B          ! Bulk NH4 mass [kg]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT)  :: MAMMO(IBINS)  ! size-resolved NH4 [kg]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: K\n    REAL(fp)                :: TOTMASS, NH4TEMP\n\n    !=================================================================\n    ! NH4BULKTOBIN begins here\n    !=================================================================\n\n    MAMMO(:) = 0.e+0_fp\n\n    ! Sum the total sulfate\n    TOTMASS = 0.e+0_fp\n    DO K = 1, IBINS\n       TOTMASS = TOTMASS + MSULF(K)\n    ENDDO\n\n    IF ( TOTMASS .eq. 0.e+0_fp ) RETURN\n\n    ! Limit the amount of NH4 entering TOMAS calculation\n    ! if it is very NH4-rich, just limit the amount to balance\n    ! existing 30-bin-summed SO4 assuming (NH4)2SO4 in such case\n    !  (NH4)2 mass = (SO4)mass / 96. * 2. * 18. = 0.375*(SO4)mass\n    ! (win, 9/28/08)\n    NH4TEMP = NH4B\n    IF ( NH4B/TOTMASS > 0.375e+0_fp ) &  !make sure we use mass ratio\n         NH4TEMP = 0.375e+0_fp * TOTMASS\n\n    ! Calculate ammonium aerosol scale to each bin\n    DO K = 1, IBINS\n       MAMMO(K) = MSULF(K) / TOTMASS * NH4TEMP\n    ENDDO\n\n    !write(777,*) NH4B/TOTMASS\n\n    RETURN\n\n  END SUBROUTINE NH4BULKTOBIN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aerodens\n!\n! !DESCRIPTION: Function AERODENS calculates the density (kg/m3) of a sulfate-\n!  nitrate-ammonium-nacl-OC-EC-dust-water mixture.  Inorganic mass (sulfate-\n!  nitrate-ammonium-nacl-water) is assumed to be internally mixed.  Then the\n!  density of inorg and EC, OC, and dust is combined weighted by mass.\n!  WRITTEN BY Peter Adams, May 1999 in GISS GCM-II' and extened to include\n!  carbonaceous aerosol in Jan, 2002.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION AERODENS( MSO4, MNO3, MNH4, MNACL, MECIL, MECOB, MOCIL, &\n                     MOCOB, MDUST, MH2O )  RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)  ::  MSO4, MNO3, MNH4, MNACL, MH2O\n    REAL(fp),  INTENT(IN)  ::  MECIL, MECOB, MOCIL, MOCOB, MDUST\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                  :: VALUE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real(fp)                  :: IDENSITY, DEC, DOC, DDUST, MTOT\n    parameter(dec=2200., doc=1400., ddust=2650.)\n\n    !=================================================================\n    ! AERODENS begins here!\n    !=================================================================\n\n    IDENSITY = INODENS( MSO4, MNO3, MNH4, MNACL, MH2O )\n    MTOT = MSO4+MNO3+MNH4+MNACL+MH2O+MECIL+MECOB+MOCIL+MDUST+MOCOB\n    IF ( MTOT > 0.e+0_fp ) THEN\n       VALUE = ( IDENSITY*(MSO4+MNO3+MNH4+MNACL+MH2O) + &\n                 DEC*(MECIL+MECOB) + DOC*(MOCIL+MOCOB)+ &\n                 DDUST*MDUST                            )/MTOT\n    ELSE\n       VALUE = 1400.\n    ENDIF\n\n  END FUNCTION AERODENS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: inodens\n!\n! !DESCRIPTION: Function INODENS calculates the density (kg/m3) of a sulfate-\n!  nitrate-ammonium-nacl-water mixture that is assumed to be internally mixed.\n!  WRITTEN BY Peter Adams, May 1999 in GISS GCM-II'\n!  Introduced to GEOS-CHEM by Win Trivitayanurak (win@cmu.edu) 8/6/07 first\n!  as AERODENS, then change to INODENS on 9/3/07\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION INODENS( MSO4_, MNO3_, MNH4_, MNACL_, MH2O_ ) &\n       RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    ! mso4, mno3, mnh4, mh2o, mnacl - These are the masses of each aerosol\n    ! component.  Since the density is an intensive property,\n    ! these may be input in a variety of units (ug/m3, mass/cell, etc.).\n    REAL(fp),  INTENT(IN)  ::  MSO4_, MNO3_, MNH4_, MNACL_, MH2O_\n!\n! !RETURN VALUE:\n!\n    REAL(fp)               :: VALUE\n!\n! !REMARKS:\n! ----Literature cited----\n!     I. N. Tang and H. R. Munkelwitz, Water activities, densities, and\n!       refractive indices of aqueous sulfates and sodium nitrate droplets\n!       of atmospheric importance, JGR, 99, 18,801-18,808, 1994\n!     Ignatius N. Tang, Chemical and size effects of hygroscopic aerosols\n!       on light scattering coefficients, JGR, 101, 19,245-19,250, 1996\n!     Ignatius N. Tang, Thermodynamic and optical properties of mixed-salt\n!       aerosols of atmospheric importance, JGR, 102, 1883-1893, 1997\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real(fp) MSO4, MNO3, MNH4, MNACL, MH2O\n    !real(fp) so4temp, no3temp, nh4temp, nacltemp, h2otemp\n    real(fp) mwso4, mwno3, mwnh4, mwnacl, mwh2o            !molecular weights\n    real(fp) ntot, mtot                          !total number of moles, mass\n    real(fp) nso4, nno3, nnh4, nnacl, nh2o       !moles of each species\n    real(fp) xso4, xno3, xnh4, xnacl, xh2o       !mole fractions\n    real(fp) rso4, rno3, rnh4, rnacl, rh2o       !partial molar refractions\n    real(fp) ran, rs0, rs1, rs15, rs2       !same, but for solute species\n    real(fp) asr                            !ammonium/sulfate molar ratio\n    real(fp) nan, ns0, ns1, ns15, ns2, nss  !moles of dry solutes (nss = sea salt)\n    real(fp) xan, xs0, xs1, xs15, xs2, xss  !mass % of dry solutes - Tang (1997) eq. 10\n    real(fp) dan, ds0, ds1, ds15, ds2, dss  !binary solution densities - Tang (1997) eq. 10\n    real(fp) mwan, mws0, mws1, mws15, mws2  !molecular weights\n    real(fp) yan, ys0, ys1, ys15, ys2, yss  !mole fractions of dry solutes\n    real(fp) yh2o\n    real(fp) d                              !mixture density\n    real(fp) xtot\n\n    ! In the lines above, \"an\" refers to ammonium nitrate, \"s0\" to\n    ! sulfuric acid, \"s1\" to ammonium bisulfate, and \"s2\" to ammonium sulfate.\n    ! \"nacl\" or \"ss\" is sea salt.\n    parameter(mwso4=96.e+0_fp, &\n              mwno3=62.e+0_fp, &\n              mwnh4=18.e+0_fp, &\n              mwh2o=18.e+0_fp, &\n              mwnacl=58.45e+0_fp)\n    parameter(mwan=mwnh4+mwno3,          &\n              mws0=mwso4+2.e+0_fp,       &\n              mws1=mwso4+1.e+0_fp+mwnh4, &\n              mws2=2.e+0_fp*mwnh4+mwso4)\n\n    !=================================================================\n    ! INODENS begins here!\n    !=================================================================\n\n    ! Pass initial component masses to local variables\n    mso4=mso4_\n    mno3=mno3_\n    mnh4=mnh4_\n    mnacl=mnacl_\n    mh2o=mh2o_\n\n    !so4temp=mso4\n    !no3temp=mno3\n    !nh4temp=mnh4\n    !h2otemp=mh2o\n    !nacltemp=mnacl\n\n    ! [Pengfei Liu, avoid equality test with floating-point real numbers\n    !<step4.7> if the aerosol mass is zero - then just return the\n    !typical density = 1500 kg/m3 (win, 1/4/06)\n    !if (mso4 .eq. 0.e+0_fp .and. mno3 .eq.0.e+0_fp &\n    !    .and. mnh4.eq.0.e+0_fp .and. mnacl .eq. 0.e+0_fp ) then\n    !   VALUE = 1500.e+0_fp !kg/m3\n    !   goto 10\n    !endif\n    if ((mso4+mno3+mnh4+mnacl) .gt. 0.e+0_fp) then\n       CONTINUE\n    else\n       VALUE = 1500.e+0_fp !kg/m3\n       RETURN\n    endif\n    ! Pengfei Liu, 2018/02/07]\n\n    ! Calculate mole fractions\n    mtot  = mso4+mno3+mnh4+mnacl+mh2o\n    nso4  = mso4/mwso4\n    nno3  = mno3/mwno3\n    nnh4  = mnh4/mwnh4\n    nnacl = mnacl/mwnacl\n    nh2o  = mh2o/mwh2o\n    ntot  = nso4+nno3+nnh4+nnacl+nh2o\n    xso4  = nso4/ntot\n    xno3  = nno3/ntot\n    xnh4  = nnh4/ntot\n    xnacl = nnacl/ntot\n    xh2o  = nh2o/ntot\n\n    ! If there are more moles of nitrate than ammonium, treat unneutralized\n    ! HNO3 as H2SO4\n    if (nno3 .gt. nnh4) then\n       !make the switch\n       nso4=nso4+(nno3-nnh4)\n       nno3=nnh4\n       mso4=nso4*mwso4\n       mno3=nno3*mwno3\n\n       !recalculate quantities\n       mtot = mso4+mno3+mnh4+mnacl+mh2o\n       nso4 = mso4/mwso4\n       nno3 = mno3/mwno3\n       nnh4 = mnh4/mwnh4\n       nnacl = mnacl/mwnacl\n       nh2o = mh2o/mwh2o\n       ntot = nso4+nno3+nnh4+nnacl+nh2o\n       xso4 = nso4/ntot\n       xno3 = nno3/ntot\n       xnh4 = nnh4/ntot\n       xnacl = nnacl/ntot\n       xh2o = nh2o/ntot\n\n    endif\n\n    ! Calculate the mixture density\n    ! Assume that nitrate exists as ammonium nitrate and that other ammonium\n    ! contributes to neutralizing sulfate\n    nan=nno3\n    if (nnh4 .gt. nno3) then\n       !extra ammonium\n       asr=(nnh4-nno3)/nso4\n    else\n       !less ammonium than nitrate - all sulfate is sulfuric acid\n       asr=0.e+0_fp\n    endif\n    if (asr .ge. 2.e+0_fp) asr=2.e+0_fp\n    if (asr .ge. 1.e+0_fp) then\n       !assume NH4HSO4 and (NH4)2(SO4) mixture\n       !NH4HSO4\n       ns1=nso4*(2.e+0_fp-asr)\n       !(NH4)2SO4\n       ns2=nso4*(asr-1.e+0_fp)\n       ns0=0.e+0_fp\n    else\n       !assume H2SO4 and NH4HSO4 mixture\n       !NH4HSO4\n       ns1=nso4*asr\n       !H2SO4\n       ns0=nso4*(1.e+0_fp-asr)\n       ns2=0.e+0_fp\n    endif\n\n    !Calculate weight percent of solutes\n    xan=nan*mwan/mtot*100.e+0_fp\n    xs0=ns0*mws0/mtot*100.e+0_fp\n    xs1=ns1*mws1/mtot*100.e+0_fp\n    xs2=ns2*mws2/mtot*100.e+0_fp\n    xnacl=nnacl*mwnacl/mtot*100.e+0_fp\n    xtot=xan+xs0+xs1+xs2+xnacl\n\n    ! [Pengfei Liu, fix the polynomial issue\n    !Calculate binary mixture densities (Tang, eqn 9)\n    !dan=0.9971e+0_fp +4.05e-3_fp*xtot +9.0e-6_fp*xtot**2.e+0_fp\n    !ds0=0.9971e+0_fp +7.367e-3_fp*xtot -4.934d-5*xtot**2.e+0_fp &\n    !     +1.754e-6_fp*xtot**3.e+0_fp - 1.104d-8*xtot**4.e+0_fp\n    !ds1=0.9971e+0_fp +5.87e-3_fp*xtot -1.89e-6_fp*xtot**2.e+0_fp &\n    !     +1.763e-7_fp*xtot**3.e+0_fp\n    !ds2=0.9971e+0_fp +5.92e-3_fp*xtot -5.036e-6_fp*xtot**2.e+0_fp &\n    !     +1.024d-8*xtot**3.e+0_fp\n    !dss=0.9971e+0_fp +7.41e-3_fp*xtot -3.741d-5*xtot**2.e+0_fp &\n    !     +2.252e-6_fp*xtot**3.e+0_fp   -2.06d-8*xtot**4.e+0_fp\n    dan=0.9971e+0_fp + xtot * (4.05e-3_fp + 9.0e-6_fp * xtot)\n    ds0=0.9971e+0_fp &\n        +xtot*(7.367e-3_fp &\n        +xtot*(-4.934d-5 &\n        +xtot*(1.754e-6_fp &\n        +xtot*(-1.104d-8  ))))\n    ds1=0.9971e+0_fp &\n        +xtot*(5.87e-3_fp &\n        +xtot*(-1.89e-6_fp &\n        +xtot*(1.763e-7_fp )))\n    ds2=0.9971e+0_fp &\n        +xtot*(5.92e-3_fp &\n        +xtot*(-5.036e-6_fp &\n        +xtot*(1.024d-8    )))\n    dss=0.9971e+0_fp &\n        +xtot*(7.41e-3_fp &\n        +xtot*(-3.741d-5 &\n        +xtot*(2.252e-6_fp &\n        +xtot*(-2.06d-8     ))))\n    ! Pengfei Liu, 2018/02/07]\n\n    !Convert x's (weight percent of solutes) to fraction of dry solute (scale to 1)\n    xtot=xan+xs0+xs1+xs2+xnacl\n    xan=xan/xtot\n    xs0=xs0/xtot\n    xs1=xs1/xtot\n    xs2=xs2/xtot\n    xnacl=xnacl/xtot\n\n    !Calculate mixture density\n    d=1.e+0_fp/(xan/dan+xs0/ds0+xs1/ds1+xs2/ds2+xnacl/dss)  !Tang, eq. 10\n\n    if ((d .gt. 2.e+0_fp) .or. (d .lt. 0.997e+0_fp)) then\n       write(*,*) 'ERROR in aerodens'\n       write(*,*) mso4,mno3,mnh4,mnacl,mh2o\n       print *, 'xtot',xtot\n       print *, 'xs1',xs1, 'ns1',ns1,'mtot',mtot,'asr',asr\n       write(*,*) 'density(g/cm3)',d\n       STOP\n    endif\n\n    ! Restore masses passed\n    !mso4=so4temp\n    !mno3=no3temp\n    !mnh4=nh4temp\n    !mnacl=nacltemp\n    !mh2o=h2otemp\n\n    ! Return the density\n    VALUE = 1000.e+0_fp*d    !Convert g/cm3 to kg/m3\n\n    !<step4.7> negative value check (win, 1/4/06)\n    if ( VALUE < 0e+0_fp ) then\n       print *, 'ERROR :: aerodens - negative', VALUE\n       STOP\n    endif\n\n10  CONTINUE\n\n  END FUNCTION INODENS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dmdt_int\n!\n! !DESCRIPTION: Function DMDT_INT apply the analytic solution to the droplet\n!  growth equation in mass space for a given scale length which mimics the\n!  inclusion of gas kinetic effects. (win, 7/23/07)\n!  Originally written by Peter Adams\n!  Modified for GEOS-CHEM by Win Trivitayanurak (win@cmu.edu)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION DMDT_INT ( M0, TAU, WR ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    ! M0  initial mass\n    ! L0  length scale\n    ! Tau forcing from vapor field\n    REAL(fp),   INTENT(IN)  ::  M0,  TAU,  WR\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                :: VALUE\n!\n! !REMARKS:\n!  Original note from Peter Adams:\n!  I have changed the length scale.  Non-continuum effects are\n!  assumed to be taken into account in choice of tau (in so4cond subroutine).\n!  .\n!  I have also added another argument to the function call, WR.  This\n!  is the ratio of wet mass to dry mass of the particle.  I use this\n!  information to calculate the amount of growth of the wet particle,\n!  but then return the resulting dry mass.  This is the appropriate\n!  way to implement the condensation algorithm in a moving sectional\n!  framework.\n!  .\n!  Reference: Stevens et al. 1996, Elements of the Microphysical Structure\n!           of Numerically Simulated Nonprecipitating Stratocumulus,\n!           J. Atmos. Sci., 53(7),980-1006.\n! This calculates a solution for m(t+dt) using eqn.(A3) from the reference\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)                ::  X,  L0,  C,  ZERO,  MH2O\n    PARAMETER (C=2.e+0_fp/3.e+0_fp,L0=0.0e+0_fp,ZERO=0.0e+0_fp)\n\n    !=================================================================\n    ! DMDT_INT begins here!\n    !=================================================================\n\n    MH2O = ( WR - 1.e+0_fp ) * M0\n    X = ( ( M0 + MH2O ) ** C + L0 )\n    X = MAX( ZERO, SQRT(MAX(ZERO,C*TAU+X))-L0 )\n\n    !<step5.3> Do aqueous oxidation dry - so no need to select process (win, 7/14/06)\n    !<step5.3> For so4cond condensation, use constant water amount.\n    ! For aqueous oxidation, use constant wet ratio. (win, 7/13/06)\n    !prior to 10/2/08\n    !VALUE = X * X * X - MH2O\n    !!DMDT_INT = X*X*X/WR    !<step5.2> change calculation to keep WR constant after condensation/evap (win, 5/14/06)\n\n    !<step6.3> bring back the previously reverted back (win, 10/2/08)\n    VALUE = X*X*X/WR\n    !pja Perform some numerical checks on dmdt_int\n    IF ((TAU > 0.0) .and. (VALUE < M0)) VALUE = M0\n    IF ((TAU < 0.0) .and. (VALUE > M0)) VALUE = M0\n\n  END FUNCTION DMDT_INT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gasdiff\n!\n! !DESCRIPTION: Function GASDIFF returns the diffusion constant of a species in\n!  air (m2/s). It uses the method of Fuller, Schettler, and Giddings as\n!  described in Perry's Handbook for Chemical Engineers.\n!  WRITTEN BY Peter Adams, May 2000\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GASDIFF( TEMP, PRES, MW, SV ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    real temp, pres  !temperature (K) and pressure (Pa) of air\n    real mw          !molecular weight (g/mol) of diffusing species\n    real Sv          !sum of atomic diffusion volumes of diffusing species\n!\n! !RETURN VALUE:\n!\n    real VALUE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real mwair, Svair   !same as above, but for air\n    real mwf, Svf\n    parameter(mwair=28.9, Svair=20.1)\n\n    !========================================================================\n    ! GASDIFF begins here!\n    !========================================================================\n\n    mwf=sqrt((mw+mwair)/(mw*mwair))\n    Svf=(Sv**(1./3.)+Svair**(1./3.))**2.\n    VALUE =1.0e-7*temp**1.75*mwf/pres*1.0e5/Svf\n\n  END FUNCTION GASDIFF\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: getdp\n!\n! !DESCRIPTION: Function GETDP calculate multi-component aerosol diameter\n!  Originally written by Peter Adams in GISS GCM-II'\n!  Use in GEOS-CHEM v5-07-08 and later by Win Trivitayanurak (win@cmu.edu)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GETDP( I, J, L, N, State_Met, State_Chm, RC ) &\n       RESULT( VALUE )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L     ! Grid box indices\n    INTEGER,        INTENT(IN)    :: N           ! Species index\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                      :: VALUE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                 :: NUMBIN,  ID,   JC\n    REAL(fp)                :: MSO4, MNO3, MNH4, MH2O, MNACL\n    REAL(fp)                :: MECIL, MECOB, MOCIL, MOCOB, MDUST\n    REAL(fp)                :: DENSITY !density (kg/m3) of current size bin\n    REAL(fp)                :: TOTALMASS !(kg)\n    REAL(fp)                :: MCONC, NCONC\n    CHARACTER(LEN=255)      :: MSG, LOC ! For species unit check (ewl)\n\n    !real(fp), external :: aerodens\n\n    REAL(fp)                ::  pi\n    parameter (pi=3.141592654e+0_fp)\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! GETDP begins here!\n    !=================================================================\n\n    ! Assume success\n    RC                =  GC_SUCCESS\n\n    ! Point to chemical species array [kg]\n    Spc => State_Chm%Species\n\n    !-------------------------------------------------------------\n    ! Calculate bin that we're working with\n    !-------------------------------------------------------------\n    NUMBIN = MOD(N-id_NK01+1,IBINS)\n    IF (NUMBIN==0) NUMBIN = IBINS\n    ID = id_NK01-1+NUMBIN   !ID = Species ID of number at current bin\n\n    !-------------------------------------------------------------\n    ! Calculate aerosol water in case it has not been initialized elsewhere\n    !-------------------------------------------------------------\n    CALL EZWATEREQM2( I, J, L, NUMBIN, State_Met, State_Chm, RC )\n\n    !-------------------------------------------------------------\n    ! Check negative Spc\n    !-------------------------------------------------------------\n    ! Significance limit in concentration unit\n    ! Treshold for mass concentration 1d-4 ug/m3 = 1d-13 kg/m3\n    ! Treshold for numb concentration 1d-1 #/cm3 = 1d5 kg/m3 (fake kg = #)\n    IF( Spc(ID)%Conc(I,J,L) == 0e+0_fp ) GOTO 10\n\n    IF( Spc(ID)%Conc(I,J,L) < 0e+0_fp ) THEN\n       NCONC = ABS( Spc(ID)%Conc(I,J,L) )/ State_Met%AIRVOL(I,J,L)/1e+6_fp\n       IF ( nconc <= 1e-1_fp ) THEN\n          Spc(ID)%Conc(I,J,L) = 0e+0_fp\n       ELSE\n          PRINT *,'#### GETDP: negative NK at',I,J,L,'bin',NUMBIN\n          PRINT *,'Species',N,'Spc=',Spc(ID)%Conc(I,J,L)\n          CALL ERROR_STOP('Negative NK', 'GETDP:1')\n       ENDIF\n    ENDIF\n    IF(IT_IS_NAN(Spc(ID)%Conc(I,J,L))) PRINT *,'+++++++++ Found Nan in ' , &\n          'GETDP at (I,J,L)',I,J,L,'Bin',NUMBIN,': Nk'\n    DO JC = 1, ICOMP-IDIAG\n       IF( Spc(ID+JC*IBINS)%Conc(I,J,L) < 0e+0_fp ) THEN\n          MCONC = ( ABS(Spc(ID+JC*IBINS)%Conc(I,J,L)) * 1.e+9_fp / &\n                    State_Met%AIRVOL(I,J,L) )\n          IF ( MCONC <= 1.e-4_fp ) THEN\n             Spc(ID+JC*IBINS)%Conc(I,J,L) = 0e+0_fp\n          ELSE\n             PRINT *,'#### GETDP: negative mass at',I,J,L,'bin',NUMBIN\n             PRINT *,'Species',N,'Spc=',Spc(ID+JC*IBINS)%Conc(I,J,L)\n             CALL ERROR_STOP('Negative mass','GETDP:2')\n          ENDIF\n       ENDIF\n       IF(IT_IS_NAN(Spc(ID+JC*IBINS)%Conc(I,J,L))) PRINT *,'+++++++++ ', &\n          'Found Nan in GETDP at (I,J,L)',I,J,L,'Bin',NUMBIN,'comp',JC\n    ENDDO\n\n    !-------------------------------------------------------------\n    ! Begin calculation of diameter\n    !-------------------------------------------------------------\n\n    ! Totalmass is the total mass per particle (including water and ammonia)\n    ! The factor of 0.1875 is the proportion of nh4 to make the particle\n    ! ammonium bisulfate\n    MSO4  = 0.e+0_fp\n    MNACL = 0.e+0_fp\n    MH2O  = 0.e+0_fp\n    MECIL = 0.e+0_fp\n    MECOB = 0.e+0_fp\n    MOCIL = 0.e+0_fp\n    MOCOB = 0.e+0_fp\n    MDUST = 0.e+0_fp\n\n    ! Get aerosol masses from GEOS-CHEM's Spc array\n    DO JC = 1, ICOMP-IDIAG\n       IF( JC == SRTSO4  ) MSO4  = Spc(ID+JC*IBINS)%Conc(I,J,L)\n       IF( JC == SRTNACL ) MNACL = Spc(ID+JC*IBINS)%Conc(I,J,L)\n       IF( JC == SRTECIL ) MECIL = Spc(ID+JC*IBINS)%Conc(I,J,L)\n       IF( JC == SRTECOB ) MECOB = Spc(ID+JC*IBINS)%Conc(I,J,L)\n       IF( JC == SRTOCIL ) MOCIL = Spc(ID+JC*IBINS)%Conc(I,J,L)\n       IF( JC == SRTOCOB ) MOCOB = Spc(ID+JC*IBINS)%Conc(I,J,L)\n       IF( JC == SRTDUST ) MDUST = Spc(ID+JC*IBINS)%Conc(I,J,L)\n    ENDDO\n    MH2O  = Spc(id_AW01-1+NUMBIN)%Conc(I,J,L)\n\n    !dbg print *,'mh2o',mh2o,'at',i,j,l\n\n    MNO3 = 0.e+0_fp\n    MNH4 = MSO4 * 1.875e-1_fp\n    TOTALMASS = ( MSO4 + MNO3 + MNH4 + MNACL + MH2O + &\n                  MECIL + MECOB + MOCIL + MOCOB + MDUST)/ &\n                  Spc(ID)%Conc(I,J,L)\n    DENSITY = AERODENS( MSO4, MNO3, MNH4, MNACL, MECIL, MECOB, &\n                        MOCIL, MOCOB, MDUST, MH2O)\n\n    VALUE = ( TOTALMASS* 6.e+0_fp/ DENSITY/ PI ) **(1.e+0_fp/3.e+0_fp) !getdp [=] meter\n\n    GOTO 20\n\n    !if number and mass is zero - calculate dp based on the density=1500 kg/m3\n10  CONTINUE\n    TOTALMASS = 1.414e+0_fp * Xk(NUMBIN)  ! Mid-bin mass per particle\n    VALUE = ( TOTALMASS* 6.e+0_fp/ 1500.e+0_fp/ PI ) &\n            **(1.e+0_fp/3.e+0_fp) !getdp [=] meter\n\n20  CONTINUE\n\n    IF( IT_IS_NAN( VALUE )) &\n         CALL ERROR_STOP('Result is NaN', 'GETDP:3')\n\n    ! Free pointer\n    Spc => NULL()\n\n  END FUNCTION GETDP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: spinup\n!\n! !DESCRIPTION: Function SPINUP retuns .TRUE. or .FALSE. whether or not the\n!  current time in the run have passed the spin-up period.  This would be used\n!  to determine if certain errors should be fixed and let slipped or to stop a\n!  run with an error message.  (win, 8/2/07)\n!  ====> Be cautious that TIMEBEGIN should be changed according to\n!         whatever your spin-up beginning time is\n!  Example of TIMEBEGIN (in julian time)\n!         2001/07/01 = 144600.0\n!         2000/11/01 = 138792.0\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SPINUP( DAYS ) RESULT( VALUE )\n!\n! !USES:\n!\n    USE TIME_MOD,     ONLY : GET_TAU , GET_TAUb\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4,    INTENT(IN) :: DAYS   ! Spin-up duration (day)\n!\n! !RETURN VALUE:\n!\n    LOGICAL               :: VALUE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL*4                 :: TIMENOW, TIMEBEGIN, TIMEINIT, HOURS\n\n    !========================================================================\n    ! SPINUP begins here!\n    !========================================================================\n\n    TIMENOW   = GET_TAU()   ! Current time in the run (Julian time) (hrs)\n    TIMEBEGIN = GET_TAUb()  ! Begin time of this run (hrs)\n    TIMEINIT  = 141000. !2/1/2001    ! Start time for spin-up (hrs)\n    HOURS = DAYS * 24.0     ! Period allow error to pass (hrs)\n\n    ! Criteria to let error go or to terminate the run\n    !IF ( TIMENOW > MIN( TIMEBEGIN, TIMEINIT ) + HOURS  ) THEN\n    IF ( TIMENOW > TIMEBEGIN + HOURS  ) THEN\n       VALUE = .FALSE.\n    ELSE\n       VALUE = .TRUE.\n    ENDIF\n\n  END FUNCTION SPINUP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aerodens\n!\n! !DESCRIPTION: Function STRATSCAV is basically a lookup table to get the below-\n!  cloud scavenging rate (per mm of rainfall) as a function of particle\n!  diameter.  The data are taken from Dana, M. T., and\n!  J. M. Hales, Statistical Aspects of the Washout of Polydisperse\n!  Aerosols, Atmos. Environ., 10, 45-50, 1976.  I am using the\n!  monodisperse aerosol curve from Figure 2 which assumes a\n!  lognormal distribution of rain drops with Rg=0.02 cm and a\n!  sigma of 1.86, values typical of a frontal rain spectrum\n!  (stratiform clouds).\n!  WRITTEN BY Peter Adams, January 2001\n!  Intoduced to GEOS-Chem by Win Trivitayanurak, 8/6/07\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION STRATSCAV( DP ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),   INTENT(IN)  :: DP  !particle diameter (m)\n!\n! !RETURN VALUE:\n!\n    REAL*4                  :: VALUE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer numpts  !number of points in lookup table\n    real dpdat      !particle diameter in lookup table (m)\n    real scdat      !scavenging rate in lookup table (mm-1)\n    integer n1, n2  !indices of nearest data points\n    parameter(numpts=37)\n    dimension dpdat(numpts), scdat(numpts)\n\n    data dpdat/ 2.0E-09, 4.0E-09, 6.0E-09, 8.0E-09, 1.0E-08, &\n                1.2E-08, 1.4E-08, 1.6E-08, 1.8E-08, 2.0E-08, &\n                4.0E-08, 6.0E-08, 8.0E-08, 1.0E-07, 1.2E-07, &\n                1.4E-07, 1.6E-07, 1.8E-07, 2.0E-07, 4.0E-07, &\n                6.0E-07, 8.0E-07, 1.0E-06, 1.2E-06, 1.4E-06, &\n                1.6E-06, 1.8E-06, 2.0E-06, 4.0E-06, 6.0E-06, &\n                8.0E-06, 1.0E-05, 1.2E-05, 1.4E-05, 1.6E-05, &\n                1.8E-05, 2.0E-05/\n\n    data scdat/ 6.99E-02, 2.61E-02, 1.46E-02, 9.67E-03, 7.07E-03, &\n                5.52E-03, 4.53E-03, 3.87E-03, 3.42E-03, 3.10E-03, &\n                1.46E-03, 1.08E-03, 9.75E-04, 9.77E-04, 1.03E-03, &\n                1.11E-03, 1.21E-03, 1.33E-03, 1.45E-03, 3.09E-03, &\n                4.86E-03, 7.24E-03, 1.02E-02, 1.36E-02, 1.76E-02, &\n                2.21E-02, 2.70E-02, 3.24E-02, 4.86E-01, 8.36E-01, &\n                1.14E+00, 1.39E+00, 1.59E+00, 1.75E+00, 1.85E+00, &\n                1.91E+00, 1.91E+00/\n\n    !=================================================================\n    ! STRATSCAV begins here!\n    !=================================================================\n\n    ! If particle diameter is in bounds, interpolate to find value\n    if ((dp .gt. dpdat(1)) .and. (dp .lt. dpdat(numpts))) then\n       !loop over lookup table points to find nearest values\n       n1=1\n       do while (dp .gt. dpdat(n1+1))\n          n1=n1+1\n       enddo\n       n2=n1+1\n       VALUE=scdat(n1)+(scdat(n2)-scdat(n1)) &\n             *(dp-dpdat(n1))/(dpdat(n2)-dpdat(n1))\n    endif\n\n    ! If particle diameter is out of bounds, return reasonable value\n    if (dp .gt. dpdat(numpts)) VALUE=2.0\n    if (dp .lt. dpdat(1))      VALUE=7.0e-2\n\n  END FUNCTION STRATSCAV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: waternacl\n!\n! !DESCRIPTION: Function WATERNACL uses the current RH to calculate how much\n!  water is in equilibrium with the seasalt.  Aerosol water concentrations are\n!  assumed to be in equilibrium at all times and the array of concentrations is\n!  updated accordingly.\n!  WRITTEN BY Peter Adams, November 2001\n!  Introduced to GEOS-CHEM by Win Trivitayanurak. 8/6/07\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WATERNACL( RHE ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp) :: RHE ! Relative humidity (0-100 scale)\n!\n! !RETURN VALUE:\n!\n    REAL(fp) :: VALUE\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! WATERNACL begins here!\n    !=================================================================\n\n    if (rhe .gt. 99.) rhe=99.\n    if (rhe .lt. 1.) rhe=1.\n\n    if (rhe .gt. 90.) then\n       VALUE=5.1667642e-2*rhe**3-14.153121*rhe**2+1292.8377*rhe-3.9373536e4\n    else\n       if (rhe .gt. 80.) then\n          VALUE=1.0629e-3*rhe**3-0.25281*rhe**2+20.171*rhe-5.3558e2\n       else\n          if (rhe .gt. 50.) then\n             VALUE=4.2967e-5*rhe**3-7.3654e-3*rhe**2+.46312*rhe-7.5731\n          else\n             if (rhe .gt. 20.) then\n                VALUE=2.9443e-5*rhe**3-2.4739e-3*rhe**2+7.3430e-2*rhe+1.3727\n             else\n                VALUE=1.17\n             endif\n          endif\n       endif\n    endif\n\n    !check for error\n    if (VALUE .gt. 45.) then\n       write(*,*) 'ERROR in waternacl'\n       write(*,*) rhe,VALUE\n       STOP\n    endif\n\n  END FUNCTION WATERNACL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: waterocil\n!\n! !DESCRIPTION: Function WATEROCIL uses the current RH to calculate how much\n!  water is in equilibrium with the hydrophillic OA.  Aerosol water\n!  concentrations are assumed to be in equilibrium at all times and the array of\n!  concentrations is updated accordingly.\n!  MODIFIED BY YUNHA LEE, AUG, 2006\n!  Bring to GEOS-CHEM by Win Trivitayanurak 9/3/07\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WATEROCIL( RHE ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp) :: RHE ! Relative humidity (0-100 scale)\n!\n! !RETURN VALUE:\n!\n    REAL(fp) :: VALUE\n!\n! !REMARKS:\n!  waterocil is the ratio of wet mass to dry mass of a particle.  Instead\n!  of calling a thermodynamic equilibrium code, this routine uses a\n!  simple curve fit to estimate waterocil based on the current humidity.\n!  The curve fit is based on observations of Dick et al. JGR D1 1471-1479\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: a, b, c, d, e, f, prefactor, activcoef\n    parameter(a=1.0034, b=0.1614, c=1.1693,d=-3.1,e=6.0)\n\n    !=================================================================\n    ! WATEROCIL begins here!\n    !=================================================================\n\n    if (rhe .gt. 99.) rhe=99.\n    if (rhe .lt. 1.) rhe=1.\n\n    if (rhe .gt. 85.) then\n       VALUE =d+e*(rhe/100)\n       !yhl Growth factor above RH 85% is not available, so it assumes linear\n       !yhl growth at above 85%.\n    else\n       VALUE =a+b*(rhe/100)+c*(rhe/100)**2.\n       !yhl This eq is based on the extrapolation curve obtained from\n       !yhl Dick et al 2000 figure 5.(High organic,density=1400g/cm3)\n    endif\n\n    !check for error\n    if (VALUE .gt. 10.) then\n       write(*,*) 'ERROR in waterocil'\n       write(*,*) rhe, value\n       STOP\n    endif\n\n    RETURN\n\n  END FUNCTION WATEROCIL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: waterso4\n!\n! !DESCRIPTION: Function WATERSO4 uses the current RH to calculate how much\n!  water is in equilibrium with the sulfate.  Aerosol water concentrations are\n!  assumed to be in equilibrium at all times and the array of concentrations is\n!  updated accordingly.\n!   Introduced to GEOS-CHEM by Win Trivitayanurak. 8/6/07\n!   Adaptation of ezwatereqm used in size-resolved sulfate only sim\n!   November, 2001\n!   ezwatereqm WRITTEN BY Peter Adams, March 2000\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WATERSO4( RHE ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp) :: RHE ! Relative humidity (0-100 scale)\n!\n! !RETURN VALUE:\n!\n    REAL(fp) :: VALUE\n\n! !REMARKS:\n!  waterso4 is the ratio of wet mass to dry mass of a particle.  Instead\n!  of calling a thermodynamic equilibrium code, this routine uses a\n!  simple curve fit to estimate wr based on the current humidity.\n!  The curve fit is based on ISORROPIA results for ammonium bisulfate\n!  at 273 K.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! WATERSO4 begins here!\n    !=================================================================\n\n    if (rhe .gt. 99.) rhe=99.\n    if (rhe .lt. 1.) rhe=1.\n\n    if (rhe .gt. 96.) then\n       value=0.7540688*rhe**3-218.5647*rhe**2+21118.19*rhe-6.801999e5\n    else\n       if (rhe .gt. 91.) then\n          value=8.517e-2*rhe**2 -15.388*rhe +698.25\n       else\n          if (rhe .gt. 81.) then\n             value=8.2696e-3*rhe**2 -1.3076*rhe +53.697\n          else\n             if (rhe .gt. 61.) then\n                value=9.3562e-4*rhe**2 -0.10427*rhe +4.3155\n             else\n                if (rhe .gt. 41.) then\n                   value=1.9149e-4*rhe**2 -8.8619e-3*rhe +1.2535\n                else\n                   value=5.1337e-5*rhe**2 +2.6266e-3*rhe +1.0149\n                endif\n             endif\n          endif\n       endif\n    endif\n\n    !check for error\n    if (value .gt. 30.) then\n       write(*,*) 'ERROR in waterso4'\n       write(*,*) rhe,value\n       STOP\n    endif\n\n  END FUNCTION WATERSO4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cf_nucl\n!\n! !DESCRIPTION: This subroutine calculates the barrierless nucleation rate and\n!  radius of the critical nucleation cluster using the parameterization of...\n!     Clement and Ford (1999) Atmos. Environ. 33:489-499\n!     WRITTEN BY Jeff Pierce, April 2007\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE cf_nucl(tempi,rhi,cna,nh3ppt,fn)\n!\n! !INPUT PARAMETERS:\n!\n    real tempi                ! temperature of air [K]\n    real rhi                  ! relative humidity of air as a fraction\n    double precision cna      ! concentration of gas phase sulfuric acid [molec cm-3]\n    double precision nh3ppt   ! mixing ratio of ammonia in ppt\n!\n! !OUTPUT PARAMETERS:\n!\n    double precision fn                   ! nucleation rate [cm-3 s-1]\n    double precision rnuc                 ! critical cluster radius [nm]\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    double precision temp                 ! temperature of air [K]\n    double precision rh                   ! relative humidity of air as a fraction\n    double precision alpha1\n\n    temp=dble(tempi)\n    rh=dble(rhi)\n\n    if (nh3ppt .lt. 0.1) then\n       alpha1=4.276e-10*sqrt(temp/293.15) ! For sulfuric acid\n    else\n       alpha1=3.684e-10*sqrt(temp/293.15) ! For ammonium sulfate\n    endif\n    fn = alpha1*cna**2*3600.\n    ! sensitivity       fn = 1.e-3 * fn ! 10^-3 tuner\n    if (fn.gt.1.0e9) fn=1.0e9 ! For numerical conversion\n\n10  return\n\n  end subroutine cf_nucl\n!EOC\n!--------------------------------------------------------------------\n!\n!        Ion nucleation Rate calculation\n!        from Modgil et al.(2005), JGR, vol. 110, D19205\n!\n!--------------------------------------------------------------------\n! Mathematical Expressions for particle nucleation rate (h1,cm-3 s-1),\n! nucleating H2SO4 flux (h2, cm-3 s-1), number of H2SO4 in average\n! nucleating cluster (h3), number of H2O in average nucleating cluster (h4),\n! radius of average nucleating cluster (h5, nm), and first order loss of\n! H2SO4 to particles (h6) are given below,\n\n  subroutine ion_nucl(h2so4i,sai,ti,qi,rhi,h1,h2,h3,h4,h5,h6)\n\n    ! h2so4 = h2so4 concentration [molec cm^-3]\n    ! sa = aerosol surface area [um^2 cm^-3]\n    ! t = temperature [K]\n    ! q = ion formation rate [ion pairs cm^-3 s-1]\n    ! rh = relative humidity as a fraction\n\n    real ti, rhi\n    double precision h2so4i,qi,sai\n    double precision t,rh,h2so4,q,sa\n    double precision h1,h2,h3,h4,h6,h5\n\n    t=dble(ti)\n    rh=dble(rhi)\n    h2so4=h2so4i\n    q=qi\n    sa=sai\n\n    if (h2so4.lt.1.e+5_fp.or.t.gt.260.e+0_fp) then ! changed to 2E5 because function was diverging\n       ! diverges above 260K\n       h1=0.e+0_fp\n       h2=0.e+0_fp\n       h3=0.e+0_fp\n       h4=0.e+0_fp\n       h5=0.e+0_fp\n       h6=0.e+0_fp\n       return\n    endif\n    if (h2so4 .gt. 1e+8_fp) h2so4 = 1e+8_fp\n    if (sa .lt. 2.e+0_fp) sa = 2.e+0_fp\n    if (sa .gt. 100.e+0_fp) sa = 100.e+0_fp\n    if (t .lt. 190.e+0_fp) t = 190.e+0_fp\n    if (t .gt. 300.e+0_fp) t = 300.e+0_fp\n    if (rh .lt. 0.05e+0_fp) rh = 0.05e+0_fp\n    if (rh .gt. 0.95e+0_fp) rh = 0.95e+0_fp\n    if (q .lt. 1.e+0_fp) q = 1.e+0_fp\n    if (q .gt. 50.e+0_fp) q = 50.e+0_fp\n\n    h6=0.000026859579119003205*SA + 1.7477354270484002e-8_fp*q*SA + &\n       1.5718068902491457e-8_fp*SA**2+8.060796806911441e-8_fp*SA*T + &\n       3.904048293417882e-7_fp*SA*Log(H2SO4) + &\n       2.727259306977938e-7_fp*SA*Log(RH)\n\n\n    h3=-198.8039518313554 + 3357.132963009284*h6 - 130510.31325149858* &\n       h6**2 - 0.7093715033997716*q - 10.713505046150196*h6*q + &\n       1103.4737682776713*h6**2*q + 0.0052565148186649*q**2 - &\n       0.20195850414426988*h6*q**2 + 10.961027676935213*h6**2*q**2 - &\n       26.553841269634976*RH + 2913.499196899548*h6*RH - &\n       7558.996305824136*h6**2*RH + 0.050092880471591994*q*RH + &\n       0.39840936335061017*h6*q*RH + 16.140386509938388*h6**2*q*RH - &\n       0.0008159572217147427*q**2*RH - 0.02492462618304389*h6*q**2*RH + &\n       3.2372842210428825*RH**2 + 1709.7485838150235*h6*RH**2 - &\n       4016.182638678486*h6**2*RH**2 - 0.022142010235491123*q*RH**2 - &\n       1.620063009925805*h6*q*RH**2-0.00028477984814528825*q**2*RH**2 + &\n       22.136724153656015*RH**3 + 170.8982375938333*h6*RH**3 - &\n       0.01881686723215867*q*RH**3 + 2.6974144456100957*T - &\n       96.60591604496483*h6*T + 1772.137264721083*h6**2*T - &\n       0.0009432251807207652*q*T + 0.06072064184950673*h6*q*T - &\n       2.5196932894429502*h6**2*q*T - 0.000013848768113392552*q**2*T - &\n       0.0001948394841164792*h6*q**2*T + 0.1828636512279507*RH*T - &\n       55.135341874839185*h6*RH*T + 164.02631709083576*h6**2*RH*T + &\n       0.001745921048607296*q*RH*T + 0.035017713828742754*h6*q*RH*T + &\n       4.057082638293583e-6_fp*q**2*RH*T - 0.3900441693913758*RH**2*T - &\n       8.955078982582657*h6*RH**2*T+0.00021434974336412074*q*RH**2*T - &\n       0.14947568974964962*RH**3*T - 0.022748394377623382*T**2 + &\n       0.7227721843282815*h6*T**2 - 5.386480671871808*h6**2*T**2 - &\n       0.000035250836279611095*q*T**2-0.0003363405774846326*h6*q*T**2+ &\n       2.9254973516794257d-8*q**2*T**2 + 0.003994529829421164*RH*T**2+ &\n       0.2074067980035454*h6*RH*T**2-5.136172472264946e-6_fp*q*RH*T**2+ &\n       0.0020603328018819816*RH**2*T**2+0.000042019279193164354*T**3 - &\n       0.002100661388749787*h6*T**3+7.309966632740304e-8_fp*q*T**3 - &\n       0.000016323969052607556*RH*T**3+ 12.330627568298462*Log(H2SO4) + &\n       768.3961789008589*h6*Log(H2SO4)-11568.47324943553*h6**2* &\n       Log(H2SO4)+0.14349043416922366*q*Log(H2SO4)+0.8946851157223353* &\n       h6*q*Log(H2SO4) - 68.46004143191098*h6**2*q*Log(H2SO4) - &\n       0.0006241121793370407*q**2*Log(H2SO4)+0.011897674833907721*h6* &\n       q**2*Log(H2SO4) + 1.7860574934328677*RH*Log(H2SO4) + &\n       316.5406316191978*h6*RH*Log(H2SO4) - 2036.825340216443*h6**2*RH* &\n       Log(H2SO4) - 0.026323914507434605*q*RH*Log(H2SO4) - &\n       0.37505804775954393*h6*q*RH*Log(H2SO4) + 0.00003454867680790666* &\n       q**2*RH*Log(H2SO4) + 2.844877302874606*RH**2*Log(H2SO4) - &\n       1.5845895178086176*h6*RH**2*Log(H2SO4) + 0.001732608008714275*q* &\n       RH**2*Log(H2SO4) + 0.5611003862827533*RH**3*Log(H2SO4) + &\n       0.18033151281768975*T*Log(H2SO4) - 7.807090214680351*h6*T* &\n       Log(H2SO4) + 52.76241348342321*h6**2*T*Log(H2SO4) + &\n       0.0011535134888316242*q*T*Log(H2SO4) + 0.0068466874844708295*h6* &\n       q*T*Log(H2SO4) - 4.231224168766194e-7_fp*q**2*T*Log(H2SO4) - &\n       0.10505349775719895*RH*T*Log(H2SO4) - 1.9241106452950727*h6*RH* &\n       T*Log(H2SO4) + 2.0451815715440337e-6_fp*q*RH*T*Log(H2SO4) - &\n       0.015299483302534183*RH**2*T*Log(H2SO4) + 0.000775633115370002* &\n       T**2*Log(H2SO4) + 0.04228608723566267*h6*T**2*Log(H2SO4) - &\n       9.572221299803945e-7_fp*q*T**2*Log(H2SO4) + &\n       0.0002669785990812474* &\n       RH*T**2*Log(H2SO4) - 1.7595742533055222e-6_fp*T**3*Log(H2SO4) - &\n       2.7165200489046812*Log(H2SO4)**2 + 1.963036665672805*h6* &\n       Log(H2SO4)**2 + 33.88545004559797*h6**2*Log(H2SO4)**2 - &\n       0.01647722099703982*q*Log(H2SO4)**2 - 0.08498050322218324*h6*q* &\n       Log(H2SO4)**2 + 0.00003320475358154802*q**2*Log(H2SO4)**2 + &\n       0.50626436977659*RH*Log(H2SO4)**2 + 3.914586690682404*h6*RH* &\n       Log(H2SO4)**2 + 0.0006654515705980484*q*RH*Log(H2SO4)**2 - &\n       0.025122425208873058*RH**2*Log(H2SO4)**2 - 0.021380868797539664* &\n       T*Log(H2SO4)**2 - 0.35405514523597137*h6*T*Log(H2SO4)**2 - &\n       0.000020639290758942666*q*T*Log(H2SO4)**2+0.0003587951811915662* &\n       RH*T*Log(H2SO4)**2+7.620708111644729e-6_fp*T**2*Log(H2SO4)**2 + &\n       0.2196641696573127*Log(H2SO4)**3 + 1.7291708055805226*h6* &\n       Log(H2SO4)**3 + 0.00038146321602426414*q*Log(H2SO4)**3 - &\n       0.011997306640487447*RH*Log(H2SO4)**3 + 0.0003857955558500776*T* &\n       Log(H2SO4)**3 - 0.004779827937902779*Log(H2SO4)**4\n\n    h3=EXP(h3)\n\n    h1=456229.3726785317 - 696754.0061755505/h3 - &\n       8.954389043957226e+7_fp*h6 + (1.4677717736521986e+8_fp*h6)/h3 + &\n       1867.5296995211318*q - (2798.172491398116*q)/h3 + &\n       1500.05530404756*h6*q - (171625.68387665015*h6*q)/h3 - &\n       5924.898937400813*T + (7657.054762118453*T)/h3 + &\n       1.1074613167489376e+6_fp*h6*T-(1.556115054313954e+6_fp*h6*T)/h3- &\n       28.49469750360138*q*T + (50.46283217861981*q*T)/h3 + &\n       1753.7251886642075*h6*q*T - (975.4050494746682*h6*q*T)/h3 + &\n       25.45577410331681*T**2 - (26.190051353137182*T**2)/h3 - &\n       4516.4884641323815*h6*T**2 + (5030.318058537955*h6*T**2)/h3 + &\n       0.14403307295844858*q*T**2 - (0.2897062226196713*q*T**2)/h3 - &\n       15.561717210345154*h6*q*T**2+(18.061492698402766*h6*q*T**2)/h3- &\n       0.03621852394282133*T**3 + (0.02659567895141871*T**3)/h3 + &\n       6.0696427040893886*h6*T**3 - (4.585112604562606*h6*T**3)/h3 - &\n       0.00024142548506534756*q*T**3 + &\n       (0.0005400351895947918*q*T**3)/h3+0.0341853829283136*h6*q*T**3- &\n       (0.04459905758423761*h6*q*T**3)/h3-81941.3895777097*Log(H2SO4)+ &\n       (90462.54571516594*Log(H2SO4))/h3 + &\n       1.6483362741354546e+7_fp*h6*Log(H2SO4) - &\n       (2.3542460879418086e+7_fp*h6*Log(H2SO4))/h3 - &\n       319.8790300996385*q*Log(H2SO4) + &\n       (226.84336756604796*q*Log(H2SO4))/h3 - &\n       26455.51148372377*h6*q*Log(H2SO4) + &\n       (60326.79915791394*h6*q*Log(H2SO4))/h3 + &\n       1063.8621634534027*T*Log(H2SO4) - &\n       (891.6122304868614*T*Log(H2SO4))/h3 - &\n       203718.41653995324*h6*T*Log(H2SO4) + &\n       (243001.1509313233*h6*T*Log(H2SO4))/h3 + &\n       4.963508394566835*q*T*Log(H2SO4) - &\n       (5.401955915120605*q*T*Log(H2SO4))/h3 + &\n       25.811543727271804*h6*q*T*Log(H2SO4) - &\n       (355.292262810142*h6*q*T*Log(H2SO4))/h3 - &\n       4.5691538346459195*T**2*Log(H2SO4) + &\n       (2.468423948121569*T**2*Log(H2SO4))/h3 + &\n       830.195816015575*h6*T**2*Log(H2SO4) - &\n       (745.2009340266254*h6*T**2*Log(H2SO4))/h3 - &\n       0.025450884793884514*q*T**2*Log(H2SO4) + &\n       (0.03593327468289806*q*T**2*Log(H2SO4))/h3 + &\n       1.3302486952619124*h6*q*T**2*Log(H2SO4) - &\n       (0.320851018492291*h6*q*T**2*Log(H2SO4))/h3 + &\n       0.006498242231697865*T**3*Log(H2SO4) - &\n       (0.0013540108127227987*T**3*Log(H2SO4))/h3 - &\n       1.1150374268629073*h6*T**3*Log(H2SO4) + &\n       (0.5953715882656012*h6*T**3*Log(H2SO4))/h3 + &\n       0.000043146778270078744*q*T**3*Log(H2SO4) - &\n       (0.0000735656618351653*q*T**3*Log(H2SO4))/h3 - &\n       0.004059155580949069*h6*q*T**3*Log(H2SO4) + &\n       (0.0028886014749212705*h6*q*T**3*Log(H2SO4))/h3 + &\n       4912.2066512397205*Log(H2SO4)**2 - &\n       (3022.0044642322964*Log(H2SO4)**2)/h3 - &\n       1.0095170363345986d6*h6*Log(H2SO4)**2 + &\n       (1.1998313113698033d6*h6*Log(H2SO4)**2)/h3 + &\n       18.018115617541998*q*Log(H2SO4)**2 + &\n       (7.561352267717425*q*Log(H2SO4)**2)/h3 + &\n       3133.188395383639*h6*q*Log(H2SO4)**2 - &\n       (3338.848456178725*h6*q*Log(H2SO4)**2)/h3 - &\n       63.77612570995598*T*Log(H2SO4)**2 + &\n       (20.100257708705428*T*Log(H2SO4)**2)/h3 + &\n       12469.209965937996*h6*T*Log(H2SO4)**2 - &\n       (11883.666207080118*h6*T*Log(H2SO4)**2)/h3 - &\n       0.2853187730266578*q*T*Log(H2SO4)**2 + &\n       (0.03880844916086884*q*T*Log(H2SO4)**2)/h3 - &\n       21.708027380830988*h6*q*T*Log(H2SO4)**2 + &\n       (28.111166854183463*h6*q*T*Log(H2SO4)**2)/h3 + &\n       0.27388018029546984*T**2*Log(H2SO4)**2 + &\n       (0.005568448436161079*T**2*Log(H2SO4)**2)/h3 - &\n       50.78398945757657*h6*T**2*Log(H2SO4)**2 + &\n       (33.25484929904544*h6*T**2*Log(H2SO4)**2)/h3 + &\n       0.0014875097131454307*q*T**2*Log(H2SO4)**2 - &\n       (0.0008810798671059988*q*T**2*Log(H2SO4)**2)/h3 + &\n       0.007045532214236005*h6*q*T**2*Log(H2SO4)**2 - &\n       (0.05521643331038819*h6*q*T**2*Log(H2SO4)**2)/h3 - &\n       0.00038943745406964085*T**3*Log(H2SO4)**2 - &\n       (0.00015308439633013156*T**3*Log(H2SO4)**2)/h3 + &\n       0.06817761559886615*h6*T**3*Log(H2SO4)**2 - &\n       (0.019520711865759842*h6*T**3*Log(H2SO4)**2)/h3 - &\n       2.554240267270117e-6_fp*q*T**3*Log(H2SO4)**2 + &\n       (2.526957991768314e-6_fp*q*T**3*Log(H2SO4)**2)/h3 + &\n       0.00011978108924107446*h6*q*T**3*Log(H2SO4)**2 - &\n       98.09290363960072*Log(H2SO4)**3 + &\n       (3.8697214915504805*Log(H2SO4)**3)/h3 + &\n       20559.743351544734*h6*Log(H2SO4)**3 - &\n       (18687.867717989076*h6*Log(H2SO4)**3)/h3 - &\n       0.33118998078526996*q*Log(H2SO4)**3 - &\n       (0.6955616584928909*q*Log(H2SO4)**3)/h3 - &\n       92.45613590327787*h6*q*Log(H2SO4)**3 + &\n       (8.948488896745264*h6*q*Log(H2SO4)**3)/h3 + &\n       1.273863980203035*T*Log(H2SO4)**3 + &\n       (0.38051947439108685*T*Log(H2SO4)**3)/h3 - &\n       253.8228380167286*h6*T*Log(H2SO4)**3 + &\n       (171.19178070061787*h6*T*Log(H2SO4)**3)/h3 + &\n       0.005376622635136611*q*T*Log(H2SO4)**3 + &\n       (0.006658042079999949*q*T*Log(H2SO4)**3)/h3 + &\n       0.8230892248689082*h6*q*T*Log(H2SO4)**3 - &\n       (0.058021973134188776*h6*q*T*Log(H2SO4)**3)/h3 - &\n       0.005471105747328322*T**2*Log(H2SO4)**3 - &\n       (0.003699167378319841*T**2*Log(H2SO4)**3)/h3 + &\n       1.0332570198673408*h6*T**2*Log(H2SO4)**3 - &\n       (0.38600322062471826*h6*T**2*Log(H2SO4)**3)/h3 - &\n       0.000028584962254144285*q*T**2*Log(H2SO4)**3 - &\n       (0.000016062832568931284*q*T**2*Log(H2SO4)**3)/h3 - &\n       0.001819022861961261*h6*q*T**2*Log(H2SO4)**3 + &\n       7.779696142330516e-6_fp*T**3*Log(H2SO4)**3 + &\n       (8.513832613126146e-6_fp*T**3*Log(H2SO4)**3)/h3 - &\n       0.0013866861532058*h6*T**3*Log(H2SO4)**3 + &\n       4.981099027173453e-8_fp*q*T**3*Log(H2SO4)**3 + &\n       178821.264938151*Log(RH) - (634125.5419575685*Log(RH))/h3 - &\n       2.310391119522488e+7_fp*h6*Log(RH) + &\n       (3.564836811852359e+7_fp*h6*Log(RH))/h3 - &\n       744.9440395010726*q*Log(RH)+(1019.4951846825716*q*Log(RH))/h3- &\n       28008.93484108728*h6*q*Log(RH) - &\n       (7136.405275749431*h6*q*Log(RH))/h3 - &\n       2275.393426900043*T*Log(RH) + (9231.8244493922*T*Log(RH))/h3 + &\n       237571.37589421016*h6*T*Log(RH) - &\n       (295411.0553218543*h6*T*Log(RH))/h3 + &\n       4.451622613453289*q*T*Log(RH) - &\n       (4.150562571935793*q*T*Log(RH))/h3 + &\n       595.8398944235868*h6*q*T*Log(RH) - &\n       (210.09033695512161*h6*q*T*Log(RH))/h3 + &\n       9.678343416541734*T**2*Log(RH) - &\n       (45.69882758602488*T**2*Log(RH))/h3 - &\n       747.9878102876322*h6*T**2*Log(RH) + &\n       (649.4424346377774*h6*T**2*Log(RH))/h3 + &\n       0.005153649541788936*q*T**2*Log(RH) - &\n       (0.0023655719118541533*q*T**2*Log(RH))/h3 - &\n       2.848932474900831*h6*q*T**2*Log(RH) + &\n       (0.2889680076326506*h6*q*T**2*Log(RH))/h3 - &\n       0.013824587420637588*T**3*Log(RH) + &\n       (0.07673955581386811*T**3*Log(RH))/h3 + &\n       0.6813253055163031*h6*T**3*Log(RH) - &\n       (0.2663343569482817*h6*T**3*Log(RH))/h3 - &\n       0.00004364745106737275*q*T**3*Log(RH) - &\n       (9.434880576275503e-6_fp*q*T**3*Log(RH))/h3 + &\n       0.0030430214338531205*h6*q*T**3*Log(RH) + &\n       (0.00371157673745342*h6*q*T**3*Log(RH))/h3 - &\n       31842.277946766168*Log(H2SO4)*Log(RH) + &\n       (68134.57926920953*Log(H2SO4)*Log(RH))/h3 + &\n       3.493985612508899e+6_fp*h6*Log(H2SO4)*Log(RH) - &\n       (4.587173661378969e+6_fp*h6*Log(H2SO4)*Log(RH))/h3 + &\n       190.19310993267845*q*Log(H2SO4)*Log(RH) - &\n       (233.68205749312318*q*Log(H2SO4)*Log(RH))/h3 - &\n       1547.3248018686509*h6*q*Log(H2SO4)*Log(RH) + &\n       (4045.133810971437*h6*q*Log(H2SO4)*Log(RH))/h3 + &\n       405.31725032582267*T*Log(H2SO4)*Log(RH) - &\n       (1057.655396923827*T*Log(H2SO4)*Log(RH))/h3 - &\n       33903.90722480216*h6*T*Log(H2SO4)*Log(RH) + &\n       (32965.76708786528*h6*T*Log(H2SO4)*Log(RH))/h3 - &\n       1.5034587825111836*q*T*Log(H2SO4)*Log(RH) + &\n       (1.106270806420077*q*T*Log(H2SO4)*Log(RH))/h3 - &\n       25.549725610666396*h6*q*T*Log(H2SO4)*Log(RH) + &\n       (20.09072468984517*h6*q*T*Log(H2SO4)*Log(RH))/h3 - &\n       1.7253372988643991*T**2*Log(H2SO4)*Log(RH) + &\n       (5.612615323997249*T**2*Log(H2SO4)*Log(RH))/h3 + &\n       95.62445916373963*h6*T**2*Log(H2SO4)*Log(RH) - &\n       (48.96291394056088*h6*T**2*Log(H2SO4)*Log(RH))/h3 + &\n       0.0019300142376745193*q*T**2*Log(H2SO4)*Log(RH) + &\n       (0.00015584582354154648*q*T**2*Log(H2SO4)*Log(RH))/h3 + &\n       0.19177967246162606*h6*q*T**2*Log(H2SO4)*Log(RH) - &\n       (0.16871358892301552*h6*q*T**2*Log(H2SO4)*Log(RH))/h3 + &\n       0.00246781658651071*T**3*Log(H2SO4)*Log(RH) - &\n       (0.01009444649935961*T**3*Log(H2SO4)*Log(RH))/h3 - &\n       0.06589616928988701*h6*T**3*Log(H2SO4)*Log(RH) - &\n       (0.01596274185896012*h6*T**3*Log(H2SO4)*Log(RH))/h3 + &\n       4.109041091272658e-6_fp*q*T**3*Log(H2SO4)*Log(RH) + &\n       (2.041743340493583e-7_fp*q*T**3*Log(H2SO4)*Log(RH))/h3 - &\n       0.0001572125066332154*h6*q*T**3*Log(H2SO4)*Log(RH) + &\n       1932.4011188760162*Log(H2SO4)**2*Log(RH) - &\n       (781.4228432455719*Log(H2SO4)**2*Log(RH))/h3 - &\n       181291.39888342103*h6*Log(H2SO4)**2*Log(RH) + &\n       (210184.24050416853*h6*Log(H2SO4)**2*Log(RH))/h3 - &\n       13.666906354559005*q*Log(H2SO4)**2*Log(RH) + &\n       (15.930151624229865*q*Log(H2SO4)**2*Log(RH))/h3 + &\n       305.7703887043172*h6*q*Log(H2SO4)**2*Log(RH) - &\n       (391.71164595591085*h6*q*Log(H2SO4)**2*Log(RH))/h3 - &\n       24.621398404913865*T*Log(H2SO4)**2*Log(RH) + &\n       (20.079316822912197*T*Log(H2SO4)**2*Log(RH))/h3 + &\n       1658.5845815289838*h6*T*Log(H2SO4)**2*Log(RH) - &\n       (1404.5530139788664*h6*T*Log(H2SO4)**2*Log(RH))/h3 + &\n       0.11823318365930788*q*T*Log(H2SO4)**2*Log(RH) - &\n       (0.08056635668752316*q*T*Log(H2SO4)**2*Log(RH))/h3 - &\n       1.0034435154436134*h6*q*T*Log(H2SO4)**2*Log(RH) + &\n       (1.6021411957310931*h6*q*T*Log(H2SO4)**2*Log(RH))/h3 + &\n       0.10491613716181539*T**2*Log(H2SO4)**2*Log(RH) - &\n       (0.1492097929648805*T**2*Log(H2SO4)**2*Log(RH))/h3 - &\n       4.0934834940398215*h6*T**2*Log(H2SO4)**2*Log(RH) + &\n       (1.896735315742051*h6*T**2*Log(H2SO4)**2*Log(RH))/h3 - &\n       0.00022870693934890214*q*T**2*Log(H2SO4)**2*Log(RH) + &\n       (0.000013175311622036916*q*T**2*Log(H2SO4)**2*Log(RH))/h3- &\n       0.00231560013471937*h6*q*T**2*Log(H2SO4)**2*Log(RH) - &\n       0.00015023186988448507*T**3*Log(H2SO4)**2*Log(RH) + &\n       (0.0003388679191513823*T**3*Log(H2SO4)**2*Log(RH))/h3 + &\n       0.0015784630518057667*h6*T**3*Log(H2SO4)**2*Log(RH) - &\n       1.0056424638350849e-7_fp*q*T**3*Log(H2SO4)**2*Log(RH) - &\n       39.74503165968021*Log(H2SO4)**3*Log(RH) - &\n       (68.29220045487304*Log(H2SO4)**3*Log(RH))/h3 + &\n       3236.6794930454566*h6*Log(H2SO4)**3*Log(RH) - &\n       (2511.4313482742737*h6*Log(H2SO4)**3*Log(RH))/h3 + &\n       0.3044230466506939*q*Log(H2SO4)**3*Log(RH) - &\n       (0.321694018076018*q*Log(H2SO4)**3*Log(RH))/h3 - &\n       7.83632554091337*h6*q*Log(H2SO4)**3*Log(RH) + &\n       (1.2615699211576334*h6*q*Log(H2SO4)**3*Log(RH))/h3 + &\n       0.5071743553774433*T*Log(H2SO4)**3*Log(RH) + &\n       (0.6993184748948513*T*Log(H2SO4)**3*Log(RH))/h3 - &\n       28.064969097031586*h6*T*Log(H2SO4)**3*Log(RH) + &\n       (12.010607450658807*h6*T*Log(H2SO4)**3*Log(RH))/h3 - &\n       0.0027511166431233884*q*T*Log(H2SO4)**3*Log(RH) + &\n       (0.0015662272224653852*q*T*Log(H2SO4)**3*Log(RH))/h3 + &\n       0.03815288545975011*h6*q*T*Log(H2SO4)**3*Log(RH) - &\n       0.0021639947693271114*T**2*Log(H2SO4)**3*Log(RH) - &\n       (0.0017767382579465334*T**2*Log(H2SO4)**3*Log(RH))/h3 + &\n       0.059762491440998364*h6*T**2*Log(H2SO4)**3*Log(RH) + &\n       6.130388542051968e-6_fp*q*T**2*Log(H2SO4)**3*Log(RH) + &\n       3.1017462628108047e-6_fp*T**3*Log(H2SO4)**3*Log(RH) - &\n       7689.12786121461*Log(RH)**2-(25856.380361656236*Log(RH)**2)/h3- &\n       1.3915437178042033e+6_fp*h6*Log(RH)**2 + &\n       (1.9928171556602388e+6_fp*h6*Log(RH)**2)/h3 + &\n       53.79216985973448*q*Log(RH)**2 - &\n       (134.8787674139501*q*Log(RH)**2)/h3 - &\n       1440.4837667461468*h6*q*Log(RH)**2 - &\n       (3141.0130344871345*h6*q*Log(RH)**2)/h3 + &\n       94.7545268444358*T*Log(RH)**2 + &\n       (342.5857682014369*T*Log(RH)**2)/h3 + &\n       11341.294070320842*h6*T*Log(RH)**2 - &\n       (18070.160441620144*h6*T*Log(RH)**2)/h3 - &\n       0.44696864139255954*q*T*Log(RH)**2 + &\n       (1.1199451205710647*q*T*Log(RH)**2)/h3 + &\n       19.01601691757823*h6*q*T*Log(RH)**2 + &\n       (31.604766584775273*h6*q*T*Log(RH)**2)/h3 - &\n       0.3470127737474881*T**2*Log(RH)**2 - &\n       (1.4877879003131458*T**2*Log(RH)**2)/h3 - &\n       18.727169614346867*h6*T**2*Log(RH)**2 + &\n       (42.5448759900235*h6*T**2*Log(RH)**2)/h3 + &\n       0.0007727701515171791*q*T**2*Log(RH)**2 - &\n       (0.0032041999804810098*q*T**2*Log(RH)**2)/h3 - &\n       0.055631814243943*h6*q*T**2*Log(RH)**2 - &\n       (0.07696588905487615*h6*q*T**2*Log(RH)**2)/h3 + &\n       0.00033600378567117826*T**3*Log(RH)**2 + &\n       (0.002069337837641118*T**3*Log(RH)**2)/h3 - &\n       0.015788853514098967*h6*T**3*Log(RH)**2 - &\n       (0.009301939734036398*h6*T**3*Log(RH)**2)/h3 + &\n       5.572064421478949e-7_fp*q*T**3*Log(RH)**2 + &\n       (5.677455521083783e-6_fp*q*T**3*Log(RH)**2)/h3 - &\n       0.00003507762649727548*h6*q*T**3*Log(RH)**2 + &\n       1392.9578972108989*Log(H2SO4)*Log(RH)**2 + &\n       (1911.734041113941*Log(H2SO4)*Log(RH)**2)/h3 + &\n       179329.36146873524*h6*Log(H2SO4)*Log(RH)**2 - &\n       (119328.53674704138*h6*Log(H2SO4)*Log(RH)**2)/h3 - &\n       6.462104618811676*q*Log(H2SO4)*Log(RH)**2 + &\n       (11.294074621589449*q*Log(H2SO4)*Log(RH)**2)/h3 + &\n       13.39033080899747*h6*q*Log(H2SO4)*Log(RH)**2 - &\n       (8.52831107206456*h6*q*Log(H2SO4)*Log(RH)**2)/h3 - &\n       16.8958062365253*T*Log(H2SO4)*Log(RH)**2 - &\n       (24.81735534395592*T*Log(H2SO4)*Log(RH)**2)/h3 - &\n       1464.394638508739*h6*T*Log(H2SO4)*Log(RH)**2 + &\n       (981.4137808275404*h6*T*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.051952833287610724*q*T*Log(H2SO4)*Log(RH)**2 - &\n       (0.061982178004231*q*T*Log(H2SO4)*Log(RH)**2)/h3 - &\n       0.7507183329339466*h6*q*T*Log(H2SO4)*Log(RH)**2 - &\n       (0.05082083499340442*h6*q*T*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.060317519684020285*T**2*Log(H2SO4)*Log(RH)**2 + &\n       (0.10238074986938017*T**2*Log(H2SO4)*Log(RH)**2)/h3 + &\n       2.654746963853928*h6*T**2*Log(H2SO4)*Log(RH)**2 - &\n       (1.9505367684260284*h6*T**2*Log(H2SO4)*Log(RH)**2)/h3 - &\n       0.00008828022840243558*q*T**2*Log(H2SO4)*Log(RH)**2 - &\n       (7.843133775464917e-6_fp*q*T**2*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.00439346543661198*h6*q*T**2*Log(H2SO4)*Log(RH)**2 - &\n       0.00005488176049657228*T**3*Log(H2SO4)*Log(RH)**2 - &\n       (0.00012357549613231235*T**3*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.000877040667994904*h6*T**3*Log(H2SO4)*Log(RH)**2 - &\n       4.394231627146249e-8_fp*q*T**3*Log(H2SO4)*Log(RH)**2 - &\n       72.11406227014747*Log(H2SO4)**2*Log(RH)**2 - &\n       (16.86445272085156*Log(H2SO4)**2*Log(RH)**2)/h3 - &\n       6535.765336704547*h6*Log(H2SO4)**2*Log(RH)**2 + &\n       (941.2813201741736*h6*Log(H2SO4)**2*Log(RH)**2)/h3 + &\n       0.2428031989628447*q*Log(H2SO4)**2*Log(RH)**2 - &\n       (0.3050220578412721*q*Log(H2SO4)**2*Log(RH)**2)/h3 + &\n       3.3649457326647947*h6*q*Log(H2SO4)**2*Log(RH)**2 + &\n       (0.9000970248172522*h6*q*Log(H2SO4)**2*Log(RH)**2)/h3 + &\n       0.8503624487797692*T*Log(H2SO4)**2*Log(RH)**2 + &\n       (0.2527834506442179*T*Log(H2SO4)**2*Log(RH)**2)/h3 + &\n       50.73348890297342*h6*T*Log(H2SO4)**2*Log(RH)**2 - &\n       (4.356161470448808*h6*T*Log(H2SO4)**2*Log(RH)**2)/h3 - &\n       0.0018342607279861292*q*T*Log(H2SO4)**2*Log(RH)**2 + &\n       (0.0020365272689109475*q*T*Log(H2SO4)**2*Log(RH)**2)/h3 - &\n       0.03276629834613374*h6*q*T*Log(H2SO4)**2*Log(RH)**2 - &\n       0.0028420227040081517*T**2*Log(H2SO4)**2*Log(RH)**2 - &\n       (0.0009263932662681723*T**2*Log(H2SO4)**2*Log(RH)**2)/h3 - &\n       0.08964774960777555*h6*T**2*Log(H2SO4)**2*Log(RH)**2 + &\n       3.036637047548649e-6_fp*q*T**2*Log(H2SO4)**2*Log(RH)**2 + &\n       2.0594310710626316e-6_fp*T**3*Log(H2SO4)**2*Log(RH)**2 + &\n       0.9950338851031777*Log(H2SO4)**3*Log(RH)**2 - &\n       (0.622965174549953*Log(H2SO4)**3*Log(RH)**2)/h3 + &\n       48.41845482837981*h6*Log(H2SO4)**3*Log(RH)**2 - &\n       (1.7738934087048919*h6*Log(H2SO4)**3*Log(RH)**2)/h3 - &\n       0.0022234755298572505*q*Log(H2SO4)**3*Log(RH)**2 - &\n       (0.002437957119890622*q*Log(H2SO4)**3*Log(RH)**2)/h3 + &\n       0.08069009533680993*h6*q*Log(H2SO4)**3*Log(RH)**2 - &\n       0.010935011617216193*T*Log(H2SO4)**3*Log(RH)**2 + &\n       (0.003456846985810427*T*Log(H2SO4)**3*Log(RH)**2)/h3 - &\n       0.24482068250824904*h6*T*Log(H2SO4)**3*Log(RH)**2 + &\n       0.000011334503487127534*q*T*Log(H2SO4)**3*Log(RH)**2 + &\n       0.000029425270779265584*T**2*Log(H2SO4)**3*Log(RH)**2\n\n    h1=EXP(h1)\n\n    if (h1.gt.q)then\n       h1=q\n    elseif (h1.lt.0.e+0_fp)then\n       h1=0.e+0_fp\n    endif\n\n    h2=-32043.03148295406 + 59725.428570008815/h3 + &\n       7.128537634261564e+6_fp*h6 - (1.3833467233343722e+7_fp*h6)/h3+ &\n       33.63110252227136*q-(48.61215633992165*q)/h3 - 16602.414377611287 &\n       *h6*q + (40754.788181739124* h6*q)/h3 -2.3397851800516185*q**2 + &\n       (4.426964073992281*q**2)/h3 + 18.971418767591036*h6*q**2 + &\n       (60.446718551038344*h6*q**2)/h3+396.33752593131607*T- &\n       (650.8601684277011*T)/h3-83753.25337253512*h6*T+ &\n       (140932.8771905448*h6*T)/h3 + 1.7779514612590905*q*T - &\n       (4.1201474547289845*q*T)/h3 - 14.23100399324848*h6*q*T - &\n       (199.64146093004214*h6*q*T)/h3 + 0.017586270137944494*q**2*T - &\n       (0.040669111407675304*q**2*T)/h3 - 0.5190592639152767*h6*q**2*T + &\n       (0.4152291779457336*h6*q**2*T)/h3 - 1.6239261240452716*T**2 + &\n       (2.290370025362425*T**2)/h3 + 323.71145981054207*h6*T**2 - &\n       (443.70978129586814*h6*T**2)/h3 - 0.016944490878752067*q*T**2 + &\n       (0.03190748579500371*q*T**2)/h3 + 0.9921294086888162*h6*q*T**2 - &\n       (0.017807643647025154*h6*q*T**2)/h3-0.000026182356192850867*q**2* &\n       T**2+(0.00018413948144606674*q**2*T**2)/h3+0.001418259144142961* &\n       h6*q**2*T**2 - (0.0005314099952660705*h6*q**2*T**2)/h3 + &\n       0.002203350630670886*T**3-(0.002628197592847762*T**3)/h3 - &\n       0.41364399538414304*h6*T**3+(0.4236315079925672*h6*T**3)/h3 + &\n       0.000036034470518775974*q*T**3-(0.00005072877953687334*q*T**3)/h3 &\n       -0.0025779163615301994*h6*q*T**3-(0.0001801635475946943*h6*q* &\n       T**3)/h3 - 1.0397496813871261e-8_fp*q**2*T**3 - &\n       (4.794510915054545e-7_fp*q**2*T**3)/h3+ &\n       1.0037940606886203e-6_fp*h6* &\n       q**2*T**3 +4057.4863055406972*Log(H2SO4) - (4857.4895775507075* &\n       Log(H2SO4))/h3 - 873923.0975121224*h6*Log(H2SO4) + &\n       (1.3884698205066123e+6_fp*h6*Log(H2SO4))/h3- &\n       16.567334471680468*q*Log(H2SO4)+(39.06695157867744*q* &\n       Log(H2SO4))/h3 + &\n       4033.3161579197213*h6*q*Log(H2SO4) - (4837.3892389479715*h6*q* &\n       Log(H2SO4))/h3 + 0.32643050327864925*q**2*Log(H2SO4) - &\n       (0.29168894526478634*q**2*Log(H2SO4))/h3 +   3.0197469938934343* &\n       h6*q**2*Log(H2SO4) - (13.620934035683936*h6*q**2*Log(H2SO4))/h3 - &\n       50.64853826213881*T*Log(H2SO4) + (46.190674056264115*T* &\n       Log(H2SO4))/h3 +10309.186386370407*h6*T*Log(H2SO4) - &\n       (13393.112078195805*h6*T* &\n       Log(H2SO4))/h3 - 0.05988575301198189*q*T*Log(H2SO4) + &\n       (0.12991016720908877*q*T*Log(H2SO4))/h3-25.211481437032155*h6*q* &\n       T*Log(H2SO4) + (25.76780209283505*h6*q*T*Log(H2SO4))/h3 - &\n       0.0025433151017881413*q**2*T*Log(H2SO4)-(0.00003896417606619728* &\n       q**2*T*Log(H2SO4))/h3+0.018638367565640454*h6*q**2*T*Log(H2SO4)- &\n       (0.009466280650899394*h6*q**2*T*Log(H2SO4))/h3+ &\n       0.20947015213812362*T**2*Log(H2SO4)-(0.1282261301435015*T**2* &\n       Log(H2SO4))/h3-40.05118528139879*h6*T**2*Log(H2SO4)+ &\n       (37.82992227601891* h6*T**2*Log(H2SO4))/h3+0.001426085690256897* &\n       q*T**2*Log(H2SO4)-(0.0026110978166799066*q*T**2*Log(H2SO4))/h3 - &\n        0.0017889111275040672*h6*q*T**2*Log(H2SO4) - &\n       (0.0010479732179162718* h6*q*T**2*Log(H2SO4))/h3 + &\n       4.179579131654065e-6_fp * q**2*T**2*Log(H2SO4) + &\n       (7.970218003902365e-6_fp * q**2 * &\n       T**2*Log(H2SO4))/h3-0.000116249941623789*h6*q**2*T**2*Log(H2SO4)- &\n       0.0002870253324673844*T**3*Log(H2SO4)+(0.00009186981667688776* &\n       T**3*Log(H2SO4))/h3 + 0.05147918448072947*h6*T**3*Log(H2SO4) - &\n       (0.028081229965757286*h6*T**3*Log(H2SO4))/h3 - &\n       3.560981861287522e-6_fp* q* &\n       T**3*Log(H2SO4)+(4.961243888005889e-6_fp*q*T**3*Log(H2SO4))/h3+ &\n       0.0001420993695424454*h6*q*T**3*Log(H2SO4)+ &\n       1.2719812342415112e-9_fp* &\n       q**2*T**3*Log(H2SO4) - 124.19545742393447*Log(H2SO4)**2 + &\n       (41.54331926307027*Log(H2SO4)**2)/h3 + 26490.80092234763*h6* &\n       Log(H2SO4)**2- (31462.37707525288*h6*Log(H2SO4)**2)/h3 + &\n       0.8500524958176608*q* Log(H2SO4)**2 - (3.2674516205233317*q* &\n       Log(H2SO4)**2)/h3 - 170.8115272895333*h6*q*Log(H2SO4)**2 + &\n       (120.16514929908757*h6*q* Log(H2SO4)**2)/h3 - &\n       0.011268864148405246*q**2*Log(H2SO4)**2 +(0.019897271615564007* &\n       q**2*Log(H2SO4)**2)/h3 -  0.2574159414899909* &\n       h6*q**2*Log(H2SO4)**2 + (0.5058681955079796*h6*q**2* &\n       Log(H2SO4)**2)/h3 +1.5616031047481935*T*Log(H2SO4)**2 + &\n       (0.04762580087464638*T* Log(H2SO4)**2)/h3 - 313.57384684195245* &\n       h6*T*Log(H2SO4)**2+(270.50302801880633*h6*T*Log(H2SO4)**2)/h3 - &\n        0.0026826956178692776* q* &\n       T*Log(H2SO4)**2 + (0.02263655181544639*q*T*Log(H2SO4)**2)/h3 + &\n       1.4230688700541085*h6*q*T*Log(H2SO4)**2 - (0.6649649390384627* &\n        h6* q* T*Log(H2SO4)**2)/h3 + 0.00009215121101630449*q**2*T* &\n       Log(H2SO4)**2 - &\n       (0.00010215400234653555*q**2*T*Log(H2SO4)**2)/h3 + &\n       0.0010136511879910042*h6*q**2*T*Log(H2SO4)**2 - &\n       0.006504837589925847*T**2*Log(H2SO4)**2 - (0.002702979699750996* &\n       T**2*Log(H2SO4)**2)/h3 + 1.223462360247441*h6*T**2*Log(H2SO4)**2- &\n       (0.5623561810520002*h6*T**2*Log(H2SO4)**2)/h3 - &\n       0.000024272415265506407*q*T**2*Log(H2SO4)**2 - &\n       (0.0000317372505770328*q*T**2*Log(H2SO4)**2)/h3 - &\n       0.0028928533476792*h6*q*T**2* &\n       Log(H2SO4)**2-1.7589107450560238e-7_fp* &\n       q**2*T**2*Log(H2SO4)** &\n       2+8.98009092200891e-6_fp*T**3*Log(H2SO4)**2+ &\n       (7.173660190761036e-6_fp*T**3*Log(H2SO4)**2)/h3 - &\n       0.0015801362599946241*h6*T**3* &\n       Log(H2SO4)**2+8.220297383016583e-8_fp* &\n       q*T**3*Log(H2SO4)**2 - 12589.220049398413*Log(RH)+ &\n       (71533.62210328173*Log(RH))/h3+ &\n       1.0678104434003264e+6_fp*h6*Log(RH)- &\n       (1.6102655953002474e+6_fp*h6*Log(RH))/h3+ &\n       51.82639715490156*q*Log(RH)- &\n       (38.71320196661908*q*Log(RH))/h3+3767.8963041701336*h6*q*Log(RH)- &\n       (2025.2741146328435*h6*q*Log(RH))/h3+0.43253945689885376*q**2* &\n       Log(RH) - (0.5285905724764535*q**2*Log(RH))/h3+2.800088035800146* &\n       h6*q**2*Log(RH)+(5.830987444741845*h6*q**2*Log(RH))/h3+ &\n       156.76303859222733*T*Log(RH) -  (1050.9788795963977*T* &\n       Log(RH))/h3 + 2968.558570914762*h6*T*Log(RH)- &\n       (13144.694726104603*h6*T*Log(RH))/h3-0.3939836553978611*q*T* &\n       Log(RH) - (0.15149542273585964*q*T*Log(RH))/h3-52.00514647221519* &\n       h6*q*T*Log(RH)+(33.50499777824741*h6*q*T*Log(RH))/h3- &\n       0.0044939367750510195*q**2*T*Log(RH)+ &\n       (0.0037387212699065446*q**2*T*Log(RH))/h3 - &\n       0.019659867844446746*h6*q**2*T*Log(RH) - (0.013728505197733986* &\n       h6*q**2*T*Log(RH))/h3-0.6541703069347068*T**2*Log(RH) + &\n       (5.190500347012039*T**2*Log(RH))/h3- &\n       87.05017506628032*h6*T**2*Log(RH) + (179.83498689899525*h6*T**2* &\n       Log(RH))/h3 + 0.00042182566738198824*q*T**2*Log(RH) + &\n       (0.004271845253967774*q*T**2*Log(RH))/h3+0.12589872273911631*h6* &\n       q* T**2*Log(RH) - (0.08117178992783239*h6*q*T**2*Log(RH))/h3 + &\n       0.000010942253625927065*q**2*T**2*Log(RH) - &\n       (3.4136292496834907e-6_fp*q**2* &\n       T**2*Log(RH))/h3+3.7003812518449353e-6_fp*h6*q**2*T**2*Log(RH) + &\n       0.0009227426647911644*T**3*Log(RH) - (0.008600685587907114*T**3* &\n       Log(RH))/h3 + 0.23093344962838908*h6*T**3*Log(RH) - &\n       (0.38790097045592176*h6*T**3*Log(RH))/h3 + &\n       1.2941739001871342e-6_fp* &\n       q*T**3*Log(RH)-(0.000013459445557723903*q*T**3*Log(RH))/h3 + &\n       0.00016881487161048804* h6*q*T**3*Log(RH) + &\n       2.609280671396356e-9_fp* &\n       q**2*T**3 *Log(RH)+2130.4592878663534*Log(H2SO4)*Log(RH) - &\n       (4313.3562495734495*Log(H2SO4)*Log(RH))/h3 - &\n       291848.82747478905*h6*Log(H2SO4)*Log(RH) + &\n       (488820.18312982953*h6*Log(H2SO4)*Log(RH))/h3-9.405300971012823* &\n       q*Log(H2SO4)*Log(RH) + (12.85263348658218*q*Log(H2SO4)* &\n       Log(RH))/h3+102.49140755096978*h6*q*Log(H2SO4)*Log(RH) - &\n       (289.1347848442807*h6*q*Log(H2SO4)*Log(RH))/h3 - &\n       0.01500268773941549*q**2*Log(H2SO4)*Log(RH) + &\n       (0.018600134825856034*q**2*Log(H2SO4)*Log(RH))/h3 - &\n       0.07717355560425733* &\n       h6*q**2*Log(H2SO4)*Log(RH)-(0.161938896012148*h6*q**2*Log(H2SO4)* &\n       Log(RH))/h3 - 27.134659704074295*T*Log(H2SO4)*Log(RH) + &\n       (69.2483692103918*T*Log(H2SO4)*Log(RH))/h3 + 1882.179099085481* &\n       h6*T*Log(H2SO4)*Log(RH)-(3332.724995554323*h6*T*Log(H2SO4)* &\n       Log(RH))/h3 + 0.0786126279415837*q* &\n       T*Log(H2SO4)*Log(RH) - (0.12353477014379059*q*T*Log(H2SO4)* &\n       Log(RH))/h3+2.221848005253306*h6*q*T*Log(H2SO4)*Log(RH) + &\n       (0.532770625490143*h6 *q*T*Log(H2SO4)*Log(RH))/h3 + &\n       0.00020323051093599427*q**2*T* Log(H2SO4)* &\n       Log(RH) - (0.00014374306638210478*q**2*T*Log(H2SO4)*Log(RH))/h3 + &\n       0.0006995787862129086*h6*q**2*T*Log(H2SO4)*Log(RH) + &\n       0.11535250161710112*T**2*Log(H2SO4)*Log(RH)-(0.37254120769567123* &\n       T**2*Log(H2SO4)*Log(RH))/h3 + 0.3210533828417492*h6*T**2* &\n       Log(H2SO4)*Log(RH)+(4.899886058456062*h6*T**2*Log(H2SO4)* &\n       Log(RH))/h3-0.00013223802083620908*q*T**2*Log(H2SO4)*Log(RH) + &\n       (0.00031364246871883094*q*T**2*Log(H2SO4)*Log(RH))/h3 - &\n       0.013017818218354784*h6*q*T**2*Log(H2SO4)*Log(RH) - &\n       6.285230956812909e-7_fp* &\n       q**2*T**2*Log(H2SO4)*Log(RH) -0.0001644893214543928*T**3* &\n       Log(H2SO4)*Log(RH)+(0.0006683187277334718*T**3*Log(H2SO4)* &\n       Log(RH))/h3-0.012564516901538326*h6*T**3*Log(H2SO4)*Log(RH)- &\n       1.2575655284907035e-7_fp*q*T**3*Log(H2SO4)*Log(RH) - &\n       79.49703918541012*Log(H2SO4)**2*Log(RH) - &\n       (101.22507090731304*Log(H2SO4)**2*Log(RH))/h3 + &\n       12719.306036991808*h6*Log(H2SO4)**2*Log(RH)-(7977.5339222745315* &\n       h6*Log(H2SO4)**2*Log(RH))/h3 &\n       +0.3744372178099974*q*Log(H2SO4)**2*Log(RH)-(0.025682479965146*q* &\n       Log(H2SO4)**2*Log(RH))/h3-22.19218619809272*h6*q*Log(H2SO4)**2* &\n       Log(RH) + (5.910834971937343*h6*q*Log(H2SO4)**2*Log(RH))/h3 - &\n       0.00037981877987097496*q**2*Log(H2SO4)**2*Log(RH) + &\n       (0.00032985668220561373*q**2*Log(H2SO4)**2*Log(RH))/h3 - &\n       0.0003940881289017262*h6*q**2*Log(H2SO4)**2*Log(RH) + &\n       1.0255615837685275*T*Log(H2SO4)**2*Log(RH) + &\n       (1.0124457331884233*T* &\n       Log(H2SO4)**2*Log(RH))/h3-111.19643387882614*h6*T*Log(H2SO4)**2* &\n       Log(RH) + (37.058545749337576*h6*T*Log(H2SO4)**2*Log(RH))/h3 - &\n       0.0034094873321621174*q*T*Log(H2SO4)**2*Log(RH) + &\n       (0.000015597253696421123*q*T*Log(H2SO4)**2*Log(RH))/h3 + &\n       0.10750304600542902*h6*q*T*Log(H2SO4)**2*Log(RH) + &\n      1.8808923253076581e-6_fp* &\n       q**2*T*Log(H2SO4)**2*Log(RH) - 0.0044066707400722644*T**2*  &\n       Log(H2SO4)**2*Log(RH) -  (0.0025163539282379434*T**2* &\n       Log(H2SO4)**2*Log(RH))/h3 + 0.24020207161395796*h6*T**2* &\n       Log(H2SO4)**2*Log(RH)+7.634986243805219e-6_fp* &\n       q*T**2*Log(H2SO4)**2* &\n       Log(RH) + 6.328401246898811e-6_fp*T**3*Log(H2SO4)**2*Log(RH) + &\n       3630.6862033225625*Log(RH)**2-(1075.4966438125716*Log(RH)**2)/h3+ &\n       54546.69751557024*h6*Log(RH)**2-(49710.530231480734*h6* &\n       Log(RH)**2)/h3 - 1.5893360668636096*q*Log(RH)**2 + &\n       (7.970183065343727*q*Log(RH)**2)/h3 + 400.88335315886525*h6*q* &\n       Log(RH)**2 -(219.0329650802132*h6*q*Log(RH)**2)/h3 + &\n       0.015009992625400783*q**2*Log(RH)**2 + (0.0036804085191588995* &\n       q**2*Log(RH)**2)/h3+0.4203732847045355*h6*q**2*Log(RH)**2 + &\n       (0.20391771437862574*h6*q**2*Log(RH)**2)/h3 - 44.579109086853684* &\n       T*Log(RH)**2 + (8.53054910480424*T* &\n       Log(RH)**2)/h3 + 76.04921125760566*h6*T*Log(RH)**2 - &\n       (329.28669019015933*h6*T*Log(RH)**2)/h3 - 0.019940534315381526*q &\n       *T*Log(RH)**2 - (0.050640623913744444*q*T*Log(RH)**2)/h3 - &\n       1.5765203107981385*h6*q*T*Log(RH)**2 +  (0.3694218342124642*h6* &\n       q*T* Log(RH)**2)/h3-0.0001222138921423729*q**2*T*Log(RH)**2 - &\n       (0.000049403831741944986*q**2* &\n       T*Log(RH)**2)/h3 - 0.0025870767829077484*h6*q**2*T*Log(RH)**2 + &\n       0.17463801499094986*T**2*Log(RH)**2 - (0.02046987546015939*T**2* &\n       Log(RH)**2)/h3 - 1.3780954635968534*h6*T**2*Log(RH)**2 + &\n       (2.0745682824062985*h6*T**2*Log(RH)**2)/h3 + &\n       0.00015350888582331981* q*T**2*Log(RH)**2 + &\n       (0.00011285744022151752*q*T**2*Log(RH)**2)/h3 + &\n       0.00004952110557031714*h6*q*T**2* &\n       Log(RH)**2+3.968468979853371e-7_fp* &\n       q**2*T**2*Log(RH)**2 - 0.00021374165659919817*T**3*Log(RH)**2 + &\n       (0.000023714077438108623*T**3*Log(RH)**2)/h3 - &\n       0.0010671420677054659* h6* &\n       T**3*Log(RH)**2 - 1.8562790214558605e-7_fp*q*T**3*Log(RH)**2 - &\n       279.60556688841575*Log(H2SO4)*Log(RH)**2 +  (44.483779255378025* &\n       Log(H2SO4)*Log(RH)**2)/h3 -11085.947063809159*h6*Log(H2SO4)* &\n       Log(RH)**2 +(10910.046235786824*h6*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.47924678115681674*q*Log(H2SO4)*Log(RH)**2-(0.3759508982199312* &\n       q*Log(H2SO4)*Log(RH)**2)/h3-29.071647637053548*h6*q*Log(H2SO4)* &\n       Log(RH)**2 +  (8.887445070958586*h6*q*Log(H2SO4)*Log(RH)**2)/h3- &\n       0.00029636660559253115*q**2 * Log(H2SO4)*Log(RH)**2 + &\n       (0.00046301434118339234*q**2*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.005479820108166143*h6*q**2*Log(H2SO4)*Log(RH)**2 + &\n       3.2937887074139884*T*Log(H2SO4)*Log(RH)**2 - &\n       (0.053358185813312024*T*Log(H2SO4)*Log(RH)**2)/h3 + &\n       29.117876039650476*h6*T*Log(H2SO4)*Log(RH)**2 - &\n       (34.13451610985067*h6*T*Log(H2SO4)*Log(RH)**2)/h3 - &\n       0.001150661716592889*q*T*Log(H2SO4)*Log(RH)**2 + &\n       (0.0005497364286653244*q*T* Log(H2SO4)* &\n       Log(RH)**2)/h3+0.09171149584822953*h6*q*T*Log(H2SO4)*Log(RH)**2- &\n       2.9335804996871176e-6_fp*q**2*T*Log(H2SO4)*Log(RH)**2 - &\n       0.012024558565450824*T**2*Log(H2SO4)*Log(RH)**2 - &\n       (0.0008282043267863183*T**2*Log(H2SO4)*Log(RH)**2)/h3 + &\n       0.11350434127907331*h6* T**2* &\n       Log(H2SO4)*Log(RH)**2-3.206307709389464e-6_fp*q*T**2*Log(H2SO4)* &\n       Log(RH)**2 + 0.000012855779740625904*T**3*Log(H2SO4)*Log(RH)**2 + &\n       3.7577104325072703*Log(H2SO4)**2*Log(RH)**2 -(2.6641547962978636* &\n       Log(H2SO4)**2*Log(RH)**2)/h3 +  476.38347866428205*h6* &\n       Log(H2SO4)**2 *Log(RH)**2 - (127.7453688897455*h6*Log(H2SO4)**2* &\n       Log(RH)**2)/h3 -0.01970020856731193*q*Log(H2SO4)**2*Log(RH)**2 + &\n       (0.006983199758249699*q*Log(H2SO4)**2*Log(RH)**2)/h3 + &\n       0.3243000572140283*h6*q*Log(H2SO4)**2* &\n       Log(RH)**2+0.00002903250111944733*q**2*Log(H2SO4)**2*Log(RH)**2- &\n       0.037500815576593044*T*Log(H2SO4)**2*Log(RH)**2 + &\n       (0.013073560271857765*T*Log(H2SO4)**2*Log(RH)**2)/h3 - &\n       2.2753830913797373*h6*T* Log(H2SO4)**2* &\n       Log(RH)**2 + 0.00007918460467376976*q*T*Log(H2SO4)**2*Log(RH)**2+ &\n       0.00009291148493939081*T**2*Log(H2SO4)**2*Log(RH)**2\n\n    h2=exp(h2)\n\n    h4=-233.3693139924163 + 3711.127600293859*h6 - &\n       127375.45943800849*h6**2 - 0.6541599370168311*q - &\n       8.950348936875036*h6*q + 1420.4060399615116*h6**2*q + &\n       0.006010885721884837*q**2 - 0.2514391282801529*h6*q**2 + &\n       11.74107168004114*h6**2*q**2 - 27.242866772851034*RH + &\n       3230.6550683739456*h6*RH - 7739.349030052802*h6**2*RH + &\n       0.02657310586465451*q*RH + 0.8072083676135904*h6*q*RH + &\n       21.19451916114249*h6**2*q*RH - 0.0013789987709190107*q**2*RH - &\n       0.02985872690339605*h6*q**2*RH + 10.1858919054768*RH**2 + &\n       1831.5638235525591*h6*RH**2 - 3345.6757256829833*h6**2*RH**2 - &\n       0.006667965604100408*q*RH**2 - 1.6996949068091805*h6*q*RH**2 - &\n       0.0002938711589315329*q**2*RH**2 + 20.8476664473087*RH**3 + &\n       153.46841353011587*h6*RH**3 - 0.023573221099724897*q*RH**3 + &\n       3.1234153503175706*T - 106.11845318552218*h6*T + &\n       1616.0925045006472*h6**2*T - 0.000870039433136904*q*T + &\n       0.07485289069770486*h6*q*T - 2.8492194924162093*h6**2*q*T - &\n       0.000025041587132070856*q**2*T - &\n       0.00009872033200025474*h6*q**2*T + 0.1139999815738393*RH*T - &\n       59.3235586131405*h6*RH*T + 188.66428911211182*h6**2*RH*T + &\n       0.0021232663933975797*q*RH*T + 0.03525906170060478*h6*q*RH*T + &\n       5.50009952133025e-6_fp*q**2*RH*T - 0.40949236112495135*RH**2*T - &\n       9.19061496536003*h6*RH**2*T + &\n       0.00018605332374157369*q*RH**2*T - &\n       0.15228517482883766*RH**3*T - 0.026779347826859368*T**2 + &\n       0.7791278560987452*h6*T**2 - 5.635512845808971*h6**2*T**2 - &\n       0.00004290197829367679*q*T**2 - &\n       0.00034888935617559023*h6*q*T**2 + &\n       3.399576950217114e-8_fp*q**2*T**2 + &\n       0.0047495543899101315*RH*T**2 + &\n       0.21966980586301704*h6*RH*T**2 - &\n       5.402900826149558e-6_fp*q*RH*T**2 + &\n       0.00209481671640675*RH**2*T**2 + 0.00004712913787763615*T**3- &\n       0.0022395082766246705*h6*T**3 + 7.857921629051029e-8_fp*q*T**3 - &\n       0.000017637397545586075*RH*T**3 + &\n       14.487613189612244*Log(H2SO4) + &\n       834.2954132542228*h6*Log(H2SO4) - &\n       9818.723117205202*h6**2*Log(H2SO4) + &\n       0.1293876064755356*q*Log(H2SO4) + &\n       0.5266286653232314*h6*q*Log(H2SO4) - &\n       85.4813173795405*h6**2*q*Log(H2SO4) - &\n       0.0005441269120155648*q**2*Log(H2SO4) + &\n       0.013203398533271429*h6*q**2*Log(H2SO4) + &\n       2.9312753776692975*RH*Log(H2SO4) + &\n       329.1801633051309*h6*RH*Log(H2SO4) - &\n       2384.7570613779067*h6**2*RH*Log(H2SO4) - &\n       0.02754902616213419*q*RH*Log(H2SO4) - &\n       0.39067534860398334*h6*q*RH*Log(H2SO4) + &\n       0.000059670451934966084*q**2*RH*Log(H2SO4) + &\n       2.1796062691153963*RH**2*Log(H2SO4) - &\n       4.33856569910847*h6*RH**2*Log(H2SO4) + &\n       0.0016947748838741473*q*RH**2*Log(H2SO4) + &\n       0.7647868504545748*RH**3*Log(H2SO4) + &\n       0.22920773390043764*T*Log(H2SO4) - &\n       8.113046295543565*h6*T*Log(H2SO4) + &\n       68.80414049795816*h6**2*T*Log(H2SO4) + &\n       0.0014123733231002104*q*T*Log(H2SO4) + &\n       0.0062552686253774335*h6*q*T*Log(H2SO4) + &\n       3.138422092020368d-8*q**2*T*Log(H2SO4) - &\n       0.11854147612732342*RH*T*Log(H2SO4) - &\n       2.0186043272890317*h6*RH*T*Log(H2SO4) - &\n       0.000017510448352402354*q*RH*T*Log(H2SO4) - &\n       0.014662481263341446*RH**2*T*Log(H2SO4) + &\n       0.001037948515905241*T**2*Log(H2SO4) + &\n       0.04470222473271311*h6*T**2*Log(H2SO4) - &\n       7.507637022804968e-7_fp*q*T**2*Log(H2SO4) + &\n       0.0002763185325508037*RH*T**2*Log(H2SO4) - &\n       2.046693588795596e-6_fp*T**3*Log(H2SO4) - &\n       3.3271552306181786*Log(H2SO4)**2 - &\n       0.6732293679771482*h6*Log(H2SO4)**2 - &\n       123.7357115914075*h6**2*Log(H2SO4)**2 - &\n       0.017682151597098173*q*Log(H2SO4)**2 - &\n       0.06932927383915821*h6*q*Log(H2SO4)**2 + &\n       0.000028013174553488913*q**2*Log(H2SO4)**2 + &\n       0.5385357123752617*RH*Log(H2SO4)**2 + &\n       4.405735442137794*h6*RH*Log(H2SO4)**2 + &\n       0.0007699683891127761*q*RH*Log(H2SO4)**2 - &\n       0.01981622019488726*RH**2*Log(H2SO4)**2 - &\n       0.02863075409562691*T*Log(H2SO4)**2 - &\n       0.3815368435566718*h6*T*Log(H2SO4)**2 - &\n       0.000032173458991045656*q*T*Log(H2SO4)**2 + &\n       0.0006610846557652917*RH*T*Log(H2SO4)**2 + &\n       5.708155280776268e-6_fp*T**2*Log(H2SO4)**2 + &\n       0.2841922065650612*Log(H2SO4)**3 + &\n       1.937916853785423*h6*Log(H2SO4)**3 + &\n       0.00046645968682534585*q*Log(H2SO4)**3 - &\n       0.01392240494812053*RH*Log(H2SO4)**3 + &\n       0.0005604898286672238*T*Log(H2SO4)**3 - &\n       0.00648946009121241*Log(H2SO4)**4\n\n    H4=EXP(H4)\n\n    h5=68.64045827314231-3277.3575769882523*h6 + 1.0798559249565618*q- &\n       25.296110707348316*h6*q + 13.398992645698215*RH + &\n       922.4932305036297*h6*RH - 0.27140107873619296*q*RH + &\n       20.08312325165439*h6*q*RH + 66.82077511984484*RH**2 + &\n       1611.1977384351555*h6*RH**2 - 0.02661518788217287*q*RH**2 + &\n       3.0843227537972138*h6*q*RH**2 - 1.4080258142983926*T - &\n       1.8568570408634648*h6*T - 0.0037450866352058397*q*T - &\n       0.2576980690602505*h6*q*T - 1.3810906781490837*RH*T - &\n       17.730890154257356*h6*RH*T + 0.001076745543266636*q*RH*T - &\n       0.08909158555166723*h6*q*RH*T - 0.87735596568044*RH**2*T - &\n       5.603639080904061*h6*RH**2*T + 0.0002224812194282388*q*RH**2*T + &\n       0.015404311250124585*T**2 + 0.009972776386592903*h6*T**2 - &\n       7.895537111616416e-7_fp*q*T**2-0.0003918985727565079*h6*q*T**2 + &\n       0.014090613376170114*RH*T**2 + 0.029815313352513736*h6*RH*T**2 - &\n       3.607688962369381e-6_fp*q*RH*T** &\n       2+0.0028248811086430334*RH**2*T**2- &\n       0.00010105566309790024*T**3 - 0.00008368737713099654*h6*T**3 + &\n       1.0956121068002908e-8_fp*q*T**3-0.000042201374093774165*RH*T**3+ &\n       2.429718549962505e-7_fp*T**4 - 0.9150072698367441*Log(H2SO4) + &\n       653.1422380210507*h6*Log(H2SO4) - 0.16169777329907886*q* &\n       Log(H2SO4)+6.860485142132651*h6*q*Log(H2SO4)+13.912279451959678* &\n       RH*Log(H2SO4) - 12.99843208521885*h6*RH*Log(H2SO4) + &\n       0.021566098556935497*q*RH*Log(H2SO4) - 0.17455209117051437*h6*q* &\n       RH*Log(H2SO4) + 3.4003096116229066*RH**2*Log(H2SO4) - &\n       36.48723431979357*h6*RH**2*Log(H2SO4) - 0.001787998461490877*q* &\n       RH**2*Log(H2SO4) - 0.11123959974265946*T*Log(H2SO4) + &\n       1.4641341095178422*h6*T*Log(H2SO4) + 0.0005023439404053182*q*T* &\n       Log(H2SO4) + 0.031171816066622334*h6*q*T*Log(H2SO4) - &\n       0.1666443655044969*RH*T*Log(H2SO4) + 0.9274525071251363*h6*RH*T* &\n       Log(H2SO4) + 0.00003323858217484082*q*RH*T*Log(H2SO4) - &\n       0.021039758605777333*RH**2*T*Log(H2SO4) + 0.0018827939246916288* &\n       T**2*Log(H2SO4) + 0.0014616406839659635*h6*T**2*Log(H2SO4) - &\n       2.8887052861955783e-7_fp*q*T**2*Log(H2SO4) + &\n       0.0007036899839828474* &\n       RH*T**2*Log(H2SO4) - 6.077113667352327e-6_fp*T**3*Log(H2SO4) + &\n       0.8758449734328851*Log(H2SO4)**2 - 61.130559299849466*h6* &\n       Log(H2SO4)**2 + 0.007311434341744119*q*Log(H2SO4)**2 - &\n       0.4613762652439876*h6*q*Log(H2SO4)**2 + 0.11048996127121676*RH* &\n       Log(H2SO4)**2 - 5.241218416739315*h6*RH*Log(H2SO4)**2 - &\n       0.0009849834685920686*q*RH*Log(H2SO4)**2 + 0.034417912409269905* &\n       RH**2*Log(H2SO4)**2 - 0.01737690919778605*T*Log(H2SO4)**2 - &\n       0.10868884345327394*h6*T*Log(H2SO4)**2-0.000013815430650770167* &\n       q*T*Log(H2SO4)**2 - 0.0038903960432723123*RH*T*Log(H2SO4)**2 + &\n       0.00005879779401379263*T**2*Log(H2SO4)**2 + 0.03393085910585771* &\n       Log(H2SO4)**3 + 2.2221405215918755*h6*Log(H2SO4)**3 - &\n       0.00009520679794957912*q*Log(H2SO4)**3 + 0.0166181059051036*RH* &\n       Log(H2SO4)**3 - 0.00014027668903237805*T*Log(H2SO4)**3\n\n    if(h5.lt.0.2)then\n       h5=0.5\n    elseif(h5.gt.5.)then\n       h5=5.\n    endif\n\n    !if (h1 .gt. 1.d5) then ! take care of weird nuc rate blow up\n    !   h1=0.e+0_fp\n    !   h2=0.e+0_fp\n    !   h3=0.e+0_fp\n    !   h4=0.e+0_fp\n    !   h5=0.e+0_fp\n    !   h6=0.e+0_fp\n    !   return\n    !endif\n\n    return\n\n  End subroutine ion_nucl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_tomas\n!\n! !DESCRIPTION: Subroutine CLEANUP/_TOMAS deallocates all module arrays\n!  (win, 7/9/07)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_TOMAS\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! CLEANUP_TOMAS begins here!\n    !=================================================================\n    IF ( ALLOCATED( Xk          ) ) DEALLOCATE( Xk          )\n    IF ( ALLOCATED( AVGMASS     ) ) DEALLOCATE( AVGMASS     )\n    IF ( ALLOCATED( OCSCALE30   ) ) DEALLOCATE( OCSCALE30   )\n    IF ( ALLOCATED( OCSCALE100  ) ) DEALLOCATE( OCSCALE100  )\n    IF ( ALLOCATED( ECSCALE30   ) ) DEALLOCATE( ECSCALE30   )\n    IF ( ALLOCATED( ECSCALE100  ) ) DEALLOCATE( ECSCALE100  )\n    IF ( ALLOCATED( MOLWT       ) ) DEALLOCATE( MOLWT       )\n    IF ( ALLOCATED( MOLWT       ) ) DEALLOCATE( MOLWT       )\n    IF ( ALLOCATED( H2SO4_RATE  ) ) DEALLOCATE( H2SO4_RATE  )\n    IF ( ALLOCATED( PSO4AQ_RATE ) ) DEALLOCATE( PSO4AQ_RATE )\n\n  END SUBROUTINE CLEANUP_TOMAS\n!EOC\nEND MODULE TOMAS_MOD\n#endif\n"
  },
  {
    "path": "GeosCore/toms_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: toms_mod.F90\n!\n! !DESCRIPTION: Module TOMS\\_MOD contains variables and routines for reading\n!  the TOMS/SBUV O3 column data from disk (for use w/ the FAST-J photolysis\n!  routines).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TOMS_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n  USE ErrCode_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: COMPUTE_OVERHEAD_O3\n  PUBLIC :: GET_OVERHEAD_O3\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! First & last years for which TOMS/SBUV data is is available\n  ! (update these as new data is added to the archive)\n  INTEGER, PUBLIC, PARAMETER :: FIRST_TOMS_YEAR = 1979\n  INTEGER, PUBLIC, PARAMETER :: LAST_TOMS_YEAR  = 2010\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  Version 8 Merged Ozone Data Sets\n!  Total Ozone Revision 05\n!  DATA THROUGH: MAR 2009\n!  LAST MODIFIED: 01 MAY 2009\n!                                                                             .\n!  http://acdb-ext.gsfc.nasa.gov/Data_services/merged/index.html\n!                                                                             .\n!  TOMS/SBUV MERGED TOTAL OZONE DATA, Version 8, Revision 5.\n!  Resolution:  5 x 10 deg.\n!                                                                             .\n!  * Includes reprocessed N16 and N17 SBUV/2 data using latest calibration.\n!  * OMI data updated from Collection 2 to Collection 3.\n!  * New offsets derived based on revised data sets.\n!  * 1970-1972 N4 BUV data added with no adjustments. User may wish to apply\n!    offset based on Comparisons between BUV and Dobson Measurements.\n!                                                                             .\n!  Responsible NASA official:\n!  Dr. Richard Stolarski (Richard.S.Stolarski@nasa.gov)\n!  Stacey Frith          (Stacey.M.Frith@nasa.gov     )\n!\n! !REVISION HISTORY:\n!  14 Jul 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_overhead_o3\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_OVERHEAD\\_O3 returns the resultant total\n!  overhead O3 column for the FAST-J photolysis.  This will be one of two\n!  options:\n\n!  \\begin{enumerate}\n!  \\item Default: TOMS/SBUV overhead O3 columns.  These will be used be\n!        the FAST-J routine set\\_prof.F90 to overwrite the existing FAST-J\n!        climatology (cf McPeters \\& Nagatani 1992).  Missing data (i.e.\n!        for months \\& locations where TOMS/SBUV data does not exist)\n!        is denoted by the value -999; FAST-J will skip over these points.\n!  \\item Overhead O3 columns taken directly from the met fields.  These\n!        will be returned if the flag  USE\\_O3\\_FROM\\_MET is set to TRUE.\n!  \\end{enumerate}\n!\n! !INTERFACE:\n!\n  SUBROUTINE COMPUTE_OVERHEAD_O3( Input_Opt, State_Grid,      State_Chm,     &\n                                  DAY,       USE_O3_FROM_MET, TO3,           &\n                                  RC                                        )\n!\n! !USES:\n!\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Chm_Mod,        ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt             ! Input Options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid            ! Grid State\n    INTEGER,        INTENT(IN)    :: DAY                   ! Day of month\n    LOGICAL,        INTENT(IN)    :: USE_O3_FROM_MET       ! Use TO3 rom met?\n    REAL(fp),       INTENT(IN)    :: TO3(State_Grid%NX, &\n                                         State_Grid%NY)    ! Met TO3 [Dobsons]\n!\n! !INPUT/OUTPUT PARAMETERS\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm             ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC                    ! Success/failure?\n!\n! !REMARKS:\n! Reference for the TOMS/SBUV merged O3 columns:\n!                                                                             .\n! 1985 - 2005 are taken from:\n!                                                                             .\n!   http://code916.gsfc.nasa.gov/Data_services/merged/index.html\n!                                                                             .\n!   TOMS/SBUV MERGED TOTAL OZONE DATA, Version 8, Revision 3.\n!   Resolution:  5 x 10 deg.\n!                                                                             .\n!   Contact person for the merged data product:\n!   Stacey Hollandsworth Frith (smh@hyperion.gsfc.nasa.gov)\n!                                                                             .\n! 2006 and 2007 are taken from:\n!                                                                             .\n!    http://code916.gsfc.nasa.gov/Data_services/merged/index.html\n!                                                                             .\n!    Version 8 Merged Ozone Data Sets\n!    Revision 04\n!    DATA THROUGH: SEP 2008\n!    LAST MODIFIED: 20 OCT 2008\n!                                                                             .\n!  Methodology (bmy, 2/12/07)\n!  ----------------------------------------------------------------\n!  FAST-J comes with its own default O3 column climatology (from\n!  McPeters 1992 & Nagatani 1991), which is stored in the input\n!  file \"jv_atms.dat\".  These \"FAST-J default\" O3 columns are used\n!  in the computation of the actinic flux and other optical\n!  quantities for the FAST-J photolysis.\n!                                                                             .\n!  The TOMS/SBUV O3 columns and 1/2-monthly O3 trends (contained\n!  in the TOMS_200701 directory) are read into GEOS-Chem by routine\n!  READ_TOMS in \"toms_mod.F90\".  Missing values (i.e. locations where\n!  there are no data) in the TOMS/SBUV O3 columns are defined by\n!  the flag -999.\n!                                                                             .\n!  After being read from disk in routine READ_TOMS, the TOMS/SBUV\n!  O3 data are then passed to the FAST-J routine \"set_prof.F90\".  In\n!  \"set_prof.F90\", a test is done to make sure that the TOMS/SBUV O3\n!  columns and 1/2-monthly trends do not have any missing values\n!  for (lat,lon) location for the given month.  If so, then the\n!  TOMS/SBUV O3 column data is interpolated to the current day and\n!  is used to weight the \"FAST-J default\" O3 column.  This\n!  essentially \"forces\" the \"FAST-J default\" O3 column values to\n!  better match the observations, as defined by TOMS/SBUV.\n!                                                                             .\n!  If there are no TOMS/SBUV O3 columns (and 1/2-monthly trends)\n!  at a (lat,lon) location for given month, then FAST-J will revert\n!  to its own \"default\" climatology for that location and month.\n!  Therefore, the TOMS O3 can be thought of as an  \"overlay\" data\n!  -- it is only used if it exists.\n!                                                                             .\n!  Note that there are no TOMS/SBUV O3 columns at the higher\n!  latitudes.  At these latitudes, the code will revert to using\n!  the \"FAST-J default\" O3 columns.\n!                                                                             .\n!  As of February 2007, we have TOMS/SBUV data for 1979 thru 2005.\n!  2006 TOMS/SBUV data is incomplete as of this writing.  For years\n!  2006 and onward, we use 2005 TOMS O3 columns.\n!                                                                             .\n!  This methodology was originally adopted by Mat Evans.  Symeon\n!  Koumoutsaris was responsible for creating the downloading and\n!  processing the TOMS O3 data files from 1979 thru 2005 in the\n!  TOMS_200701 directory.\n!\n! !REVISION HISTORY:\n!  06 Mar 2012 - R. Yantosca - Initial version, pulled code out from\n!                              the FAST-J routine SET_PROF; based on the\n!                              GEOS-Chem column code routine\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE         :: FIRST = .TRUE.\n    INTEGER               :: I, J\n    CHARACTER(LEN=255)    :: ErrMsg\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Initialize\n    State_Chm%TO3_DAILY = 0e+0_fp\n\n    !=================================================================\n    ! Now weight the O3 column by the observed monthly mean TOMS.\n    ! Missing data is denoted by the flag -999. (mje, bmy, 7/15/03)\n    !=================================================================\n    IF ( USE_O3_FROM_MET ) THEN\n\n       !---------------------------------------------------------------\n       ! Here we are using the overhead O3 from the meteorology;\n       ! we won't overwrite this with TOMS/SBUV O3 columns\n       ! NOTE: Only print if debug output is on (bmy, 05 Dec 2022)\n       !---------------------------------------------------------------\n       IF ( FIRST .and. Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n          WRITE( 6, '(a)' ) REPEAT( '%', 45 )\n          WRITE( 6, 100   )\n100       FORMAT( '%%% USING O3 COLUMNS FROM THE MET FIELDS! %%% ' )\n          WRITE( 6, '(a)' ) REPEAT( '%', 45 )\n          FIRST = .FALSE.\n       ENDIF\n\n       ! Get the overhead O3 column directly from the met field O3\n       State_Chm%TO3_DAILY = TO3\n\n    ELSE\n\n       ! Evalulate the first day TOMS O3 columns from HEMCO\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'TOMS1_O3_COL', State_Chm%TOMS1, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find TOMS1_O3_COL in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, 'toms_mod.F' )\n          RETURN\n       ENDIF\n\n       ! Evalulate the last day TOMS O3 columns from HEMCO\n       CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'TOMS2_O3_COL', State_Chm%TOMS2, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not find TOMS2_O3_COL in HEMCO data list!'\n          CALL GC_Error( ErrMsg, RC, 'toms_mod.F' )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------\n       ! Here we are returning the default FAST-J overhead O3\n       ! climatology with the TOMS/SBUV O3 columns (where data exists)\n       !---------------------------------------------------------------\n       ! Interpolate O3 to current day (w/in 2nd half of month)\n       !$OMP PARALLEL DO     &\n       !$OMP PRIVATE( I, J ) &\n       !$OMP DEFAULT( SHARED )\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          State_Chm%TO3_DAILY(I,J) = State_Chm%TOMS1(I,J) + (DAY - 1) * &\n                      ( (State_Chm%TOMS2(I,J)-State_Chm%TOMS1(I,J))/30.0_fp )\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ENDIF\n\n  END SUBROUTINE COMPUTE_OVERHEAD_O3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_overhead_o3\n!\n! !DESCRIPTION: Function GET\\_OVERHEAD\\_O3 returns the total overhead O3\n!  column [DU] (which is taken either from TOMS/SBUV or directly from the\n!  met fields) at a given surface grid box location (I,J).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_OVERHEAD_O3( State_Chm, I, J ) RESULT( OVERHEAD_O3 )\n!\n! !USES:\n!\n    USE State_Chm_Mod,  ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    INTEGER :: I             ! Grid box longitude index\n    INTEGER :: J             ! Grid box latitude index\n!\n! !RETURN VALUE:\n!\n    REAL(fp)  :: OVERHEAD_O3   ! Total overhead O3 column [DU]\n!\n! !REVISION HISTORY:\n!  06 Mar 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    OVERHEAD_O3 = State_Chm%TO3_DAILY(I,J)\n\n  END FUNCTION GET_OVERHEAD_O3\n!EOC\nEND MODULE TOMS_MOD\n"
  },
  {
    "path": "GeosCore/tpcore_fvdas_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: tpcore_fvdas_mod.F90\n!\n! !DESCRIPTION: \\subsection*{Overview}\n!  Module Tpcore\\_Fvdas\\_Mod contains routines for the TPCORE\n!  transport scheme, as implemented in the GMI model (cf. John Tannahill),\n!  based on Lin \\ Rood 1995.  The Harvard Atmospheric Chemistry Modeling Group\n!  has added modifications to implement the Philip-Cameron Smith pressure\n!  fixer for mass conservation.  Mass flux diagnostics have also been added.\n!\n!\\subsection*{References}\n!  \\begin{enumerate}\n!  \\item Lin, S.-J., and R. B. Rood, 1996: \\emph{Multidimensional flux\n!         form semi-Lagrangian transport schemes},\n!         \\underline{ Mon. Wea. Rev.}, \\textbf{124}, 2046-2070.\n!  \\item Lin, S.-J., W. C. Chao, Y. C. Sud, and G. K. Walker, 1994:\n!         \\emph{A class of the van Leer-type transport schemes and its\n!         applications to the moisture transport in a General Circulation\n!         Model}, \\underline{Mon. Wea. Rev.}, \\textbf{122}, 1575-1593.\n!  \\end{enumerate}\n!\n!\\subsection*{Selecting E/W, N/S and vertical advection options}\n!\n!  The flags IORD, JORD, KORD select which transport schemes are used in the\n!  E/W, N/S, and vertical directions, respectively.  Here is a list of the\n!  possible values that IORD, JORD, KORD may be set to (original notes from\n!  S-J Lin):\n!\n!  \\begin{enumerate}\n!  \\item 1st order upstream scheme (too diffusive, not a real option;\n!         it can be used for debugging purposes; this is THE only known\n!         \"linear\" monotonic advection scheme.).\n!  \\item 2nd order van Leer (full monotonicity constraint;\n!         see Lin et al 1994, MWR)\n!  \\item monotonic PPM* (Collela \\& Woodward 1984)\n!  \\item semi-monotonic PPM (same as 3, but overshoots are allowed)\n!  \\item positive-definite PPM (constraint on the subgrid distribution is\n!         only strong enough to prevent generation of negative values;\n!         both overshoots \\& undershoots are possible).\n!  \\item un-constrained PPM (nearly diffusion free; faster but\n!         positivity of the subgrid distribution is not quaranteed. Use\n!         this option only when the fields and winds are very smooth.\n!  \\item Huynh/Van Leer/Lin full monotonicity constraint.  Only KORD can be\n!         set to 7 to enable the use of Huynh's 2nd monotonicity constraint\n!         for piece-wise parabolic distribution.\n!  \\end {enumerate}\n!\n!  Recommended values:\n!\n!  \\begin{itemize}\n!  \\item IORD=JORD=3 for high horizontal resolution.\n!  \\item KORD=3 or 7\n!  \\end{itemize}\n!\n!  The implicit numerical diffusion decreases as \\_ORD increases.\n!  DO NOT use option 4 or 5 for non-positive definite scalars\n!  (such as Ertel Potential Vorticity).\n!\\\\\n!\\\\\n! In GEOS-Chem we have been using IORD=3, JORD=3, KORD=7.  We have tested\n! the OpenMP parallelization with these options.  GEOS-Chem users who wish to\n! use different (I,J,K)ORD options should consider doing single-procsessor\n! vs. multi-processor tests to test the implementation of the parallelization.\n!\n!\\subsection*{GEOS-4 and GEOS-5 Hybrid Grid Definition}\n!\n!  For GEOS-4 and GEOS-5 met fields, the pressure at the bottom edge of\n!  grid box (I,J,L) is defined as follows:\n!\n!     $$P_{edge}(I,J,L) = A_{k}(L) + [ B_{k}(L) * P_{surface}(I,J) ]$$\n!\n!  where\n!\n!  \\begin{itemize}\n!  \\item $P_{surface}$(I,J) is the \"true\" surface pressure at lon,lat (I,J)\n!  \\item $A_{k}$(L) has the same units as surface pressure [hPa]\n!  \\item $B_{k}$(L) is a unitless constant given at level edges\n!  \\end{itemize}\n!\n!  $A_{k}(L)$ and $B_{k}(L)$ are supplied to us by GMAO.\n!\\\\\n!\\\\\n! !REMARKS:\n!  Ak(L) and Bk(L) are defined at layer edges.\n!\n!\n!                  /////////////////////////////////\n!              / \\ ------ Model top P=ak(1) --------- ak(1), bk(1)\n!               |\n!    delp(1)    |  ........... q(i,j,1) ............\n!               |\n!              \\ / ---------------------------------  ak(2), bk(2)\n!\n!\n!\n!              / \\ ---------------------------------  ak(k), bk(k)\n!               |\n!    delp(k)    |  ........... q(i,j,k) ............\n!               |\n!              \\ / ---------------------------------  ak(k+1), bk(k+1)\n!\n!\n!\n!              / \\ ---------------------------------  ak(km), bk(km)\n!               |\n!    delp(km)   |  ........... q(i,j,km) .........\n!               |\n!              \\ / -----Earth's surface P=Psfc ------ ak(km+1), bk(km+1)\n!                 //////////////////////////////////\n!\n! Note: surface pressure can be of any unit (e.g., pascal or mb) as\n! long as it is consistent with the definition of (ak, bk) defined above.\n!\n! Winds (u,v), ps, and q are assumed to be defined at the same points.\n!\n! The latitudes are given to the initialization routine: init_tpcore.\n!\n! !INTERFACE:\n!\nMODULE Tpcore_FvDas_Mod\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  ::  Init_Tpcore\n  PUBLIC  ::  Exit_Tpcore\n  PUBLIC  ::  Tpcore_FvDas\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE ::  Average_Const_Poles\n  PRIVATE ::  Set_Cross_Terms\n  PRIVATE ::  Calc_Vert_Mass_Flux\n  PRIVATE ::  Set_Jn_Js\n  PRIVATE ::  Calc_Advec_Cross_Terms\n  PRIVATE ::  Qckxyz\n  PRIVATE ::  Set_Lmts\n  PRIVATE ::  Set_Press_Terms\n  PRIVATE ::  Calc_Courant\n  PRIVATE ::  Calc_Divergence\n  PRIVATE ::  Do_Divergence_Pole_Sum\n  PRIVATE ::  Do_Cross_Terms_Pole_I2d2\n  PRIVATE ::  Xadv_Dao2\n  PRIVATE ::  Yadv_Dao2\n  PRIVATE ::  Do_Yadv_Pole_I2d2\n  PRIVATE ::  Do_Yadv_Pole_Sum\n  PRIVATE ::  Xtp\n  PRIVATE ::  Xmist\n  PRIVATE ::  Fxppm\n  PRIVATE ::  Lmtppm\n  PRIVATE ::  Ytp\n  PRIVATE ::  Ymist\n  PRIVATE ::  Do_Ymist_Pole1_I2d2\n  PRIVATE ::  Do_Ymist_Pole2_I2d2\n  PRIVATE ::  Fyppm\n  PRIVATE ::  Do_Fyppm_Pole_I2d2\n  PRIVATE ::  Do_Ytp_Pole_Sum\n  PRIVATE ::  Fzppm\n  PRIVATE ::  Average_Press_Poles\n!\n! !PRIVATE DATA MEMBERS:\n!\n  REAL(fp), ALLOCATABLE, SAVE :: dtdx5(:)\n  REAL(fp), ALLOCATABLE, SAVE :: dtdy5(:)\n  REAL(fp), ALLOCATABLE, SAVE :: cosp(:)\n  REAL(fp), ALLOCATABLE, SAVE :: cose(:)\n  REAL(fp), ALLOCATABLE, SAVE :: gw(:)\n  REAL(fp), ALLOCATABLE, SAVE :: DLAT(:)\n!\n! !AUTHOR:\n! Original code from Shian-Jiann Lin, GMAO\n! Modified for GMI model by John Tannahill, LLNL (jrt@llnl.gov)\n! Implemented into GEOS-Chem by Claire Carouge (ccarouge@seas.harvard.edu)\n! ProTeX documentation added by Bob Yantosca (yantosca@seas.harvard.edu)\n! OpenMP parallelization added by Bob Yantosca (yantosca@seas.harvard.edu)\n!\n! !REVISION HISTORY:\n! 05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                             Yeh with the TPCORE routines from the GMI model.\n!                             This eliminates the polar overshoot in the\n!                             stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Tpcore\n!\n! !DESCRIPTION: Subroutine Init\\_Tpcore allocates and initializes all module\n!  variables,\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Tpcore( IM, JM, KM, JFIRST, JLAST,   NG,                   &\n                          MG, dt, ae, clat,   verbose, RC                   )\n!\n! !USES:\n!\n    USE PhysConstants\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: IM         ! Global E-W dimension\n    INTEGER,        INTENT(IN)  :: JM         ! Global N-S dimension\n    INTEGER,        INTENT(IN)  :: KM         ! Vertical dimension\n    INTEGER,        INTENT(IN)  :: NG         ! large ghost width\n    INTEGER,        INTENT(IN)  :: MG         ! small ghost width\n    REAL(fp),       INTENT(IN)  :: dt         ! Time step in seconds\n    REAL(fp),       INTENT(IN)  :: ae         ! Earth's radius (m)\n    REAL(fp),       INTENT(IN)  :: clat(JM)   ! latitude in radian\n    LOGICAL,        INTENT(IN)  :: verbose    ! Print verbose output?\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: JFIRST     ! Local first index for N-S axis\n    INTEGER,        INTENT(OUT) :: JLAST      ! Local last  index for N-S axis\n    INTEGER,        INTENT(OUT) :: RC         ! Success or failure\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp)           :: elat(jm+1)      ! cell edge latitude in radian\n    REAL(fp)           :: sine(jm+1)\n    REAL(fp)           :: SINE_25(JM+1)   !\n    REAL(fp)           :: dlon\n    INTEGER            :: I, J\n\n     ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Init_Tpcore begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_Tpcore (in module GeosCore/tpcore_fvas_mod.F90)'\n\n    ! NOTE: since we are not using MPI parallelization, we can set JFIRST\n    ! and JLAST to the global grid limits in latitude. (bmy, 12/3/08)\n    jfirst = 1\n    jlast  = jm\n\n    if ( jlast - jfirst < 2 ) then\n       write(*,*) 'Minimum size of subdomain is 3'\n    endif\n\n    !-----------------------------------------------------------------------\n    ! Allocate arrays\n    !-----------------------------------------------------------------------\n\n    ALLOCATE( cosp( JM ), STAT=RC )\n    CALL GC_CheckVar( 'tpcore_fvdas_mod.F90:cosp',  0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( cose( JM ), STAT=RC )\n    CALL GC_CheckVar( 'tpcore_fvdas_mod.F90:cose',  0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( gw( JM ), STAT=RC )\n    CALL GC_CheckVar( 'tpcore_fvdas_mod.F90:gw',    0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( dtdx5( JM ), STAT=RC )\n    CALL GC_CheckVar( 'tpcore_fvdas_mod.F90:dtdx5', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( dtdy5( JM ), STAT=RC )\n    CALL GC_CheckVar( 'tpcore_fvdas_mod.F90:dtdy5', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( DLAT( JM ), STAT=RC )                 ! For PJC pressure-fixer\n    CALL GC_CheckVar( 'tpcore_fvdas_mod.F90:dlat',  0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !-----------------------------------------------------------------------\n    ! Define quantities\n    !-----------------------------------------------------------------------\n\n    dlon = 2.e+0_fp * PI / DBLE( IM )\n\n    ! S. Pole\n    elat(1)    = -0.5e+0_fp*PI\n    sine(1)    = -1.0e+0_fp\n    SINE_25(1) = -1.0e+0_fp\n    cose(1)    =  0.0e+0_fp\n\n    do j=2,jm\n       elat(j)    = 0.5e+0_fp*(clat(j-1) + clat(j))\n       sine(j)    = SIN( elat(j) )\n       SINE_25(J) = SIN( CLAT(J) )\n       cose(j)    = COS( elat(j) )\n    enddo\n\n    ! N. Pole\n    elat(jm+1)    = 0.5e+0_fp*PI\n    sine(jm+1)    = 1.0e+0_fp\n    SINE_25(JM+1) = 1.0e+0_fp\n\n    ! Polar cap (S. Pole)\n    dlat(1) = 2.e+0_fp*(elat(2) - elat(1))\n    do j=2,jm-1\n       dlat(j) = elat(j+1) - elat(j)\n    enddo\n\n    ! Polar cap (N. Pole)\n    dlat(jm) = 2.0e+0_fp*(elat(jm+1) - elat(jm))\n\n    do j=1,jm\n       gw(j)     = sine(j+1) - sine(j)\n       cosp(j)   = gw(j) / dlat(j)\n\n       dtdx5(j)  = 0.5e+0_fp * dt / (dlon*ae*cosp(j))\n       dtdy5(j)  = 0.5e+0_fp * dt / (ae*dlat(j))\n    enddo\n\n    ! Write a message only when debug printout is on (bmy, 05 Dec 2022)\n    IF ( verbose ) THEN\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       WRITE( 6, '(a)' ) &\n 'TPCORE_FVDAS (based on GMI) Tracer Transport Module successfully initialized'\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    ENDIF\n\n  END SUBROUTINE Init_Tpcore\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Exit_Tpcore\n!\n! !DESCRIPTION: Subroutine Exit\\_Tpcore deallocates all module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Exit_Tpcore\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Deallocate arrays only if they are allocated\n    IF ( ALLOCATED( COSP   ) ) DEALLOCATE( COSP   )\n    IF ( ALLOCATED( COSE   ) ) DEALLOCATE( COSE   )\n    IF ( ALLOCATED( GW     ) ) DEALLOCATE( GW     )\n    IF ( ALLOCATED( DTDX5  ) ) DEALLOCATE( DTDX5  )\n    IF ( ALLOCATED( DTDY5  ) ) DEALLOCATE( DTDY5  )\n    IF ( ALLOCATED( DLAT   ) ) DEALLOCATE( DLAT   )\n\n  END SUBROUTINE Exit_Tpcore\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Tpcore_FvDas\n!\n! !DESCRIPTION: Subroutine Tpcore\\_FvDas takes horizontal winds on sigma\n!  (or hybrid sigma-p) surfaces and calculates mass fluxes, and then updates\n!   the 3D mixing ratio fields one time step (tdt).  The basic scheme is a\n!   Multi-Dimensional Flux Form Semi-Lagrangian (FFSL) based on the van Leer\n!   or PPM (see Lin and Rood, 1995).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Tpcore_FvDas( dt,        ae,       IM,       JM,      KM,       &\n                           JFIRST,    JLAST,    ng,       mg,      nq,       &\n                           ak,        bk,       u,        v,       ps1,      &\n                           ps2,       ps,       iord,     jord,    kord,     &\n                           n_adj,     XMASS,    YMASS,    FILL,    AREA_M2,  &\n                           State_Chm, State_Diag                            )\n!\n! !USES:\n!\n    ! Include files w/ physical constants and met values\n    USE PhysConstants\n    USE ErrCode_Mod\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE error_mod\n!\n! !INPUT PARAMETERS:\n!\n    ! Transport time step [s]\n    REAL(fp),  INTENT(IN)  :: dt\n\n    ! Earth's radius [m]\n    REAL(fp),  INTENT(IN)  :: ae\n\n    ! Global E-W, N-S, and vertical dimensions\n    INTEGER, INTENT(IN)    :: IM\n    INTEGER, INTENT(IN)    :: JM\n    INTEGER, INTENT(IN)    :: KM\n\n    ! Latitude indices for local first box and local last box\n    ! (NOTE: for global grids these are 1 and JM, respectively)\n    INTEGER, INTENT(IN)    :: JFIRST\n    INTEGER, INTENT(IN)    :: JLAST\n\n    ! Primary ghost region\n    ! (NOTE: only required for MPI parallelization; use 0 otherwise)\n    INTEGER, INTENT(IN)    :: ng\n\n    ! Secondary ghost region\n    ! (NOTE: only required for MPI parallelization; use 0 otherwise)\n    INTEGER, INTENT(IN)    :: mg\n\n    ! Ghosted latitudes (3 required by PPM)\n    ! (NOTE: only required for MPI parallelization; use 0 otherwise)\n    INTEGER, INTENT(IN)    :: nq\n\n    ! Flags to denote E-W, N-S, and vertical transport schemes\n    INTEGER, INTENT(IN)    :: iord\n    INTEGER, INTENT(IN)    :: jord\n    INTEGER, INTENT(IN)    :: kord\n\n    ! Number of adjustments to air_mass_flux (0 = no adjustment)\n    INTEGER, INTENT(IN)    :: n_adj\n\n    ! Ak and Bk coordinates to specify the hybrid grid\n    ! (see the REMARKS section below)\n    REAL(fp),  INTENT(IN)  :: ak(KM+1)\n    REAL(fp),  INTENT(IN)  :: bk(KM+1)\n\n    ! u-wind (m/s) at mid-time-level (t=t+dt/2)\n    REAL(fp),  INTENT(IN)  :: u(:,:,:)\n\n    ! E/W and N/S mass fluxes [kg/s]\n    ! (These are computed by the pressure fixer, and passed into TPCORE)\n    REAL(fp),  INTENT(IN)  :: XMASS(:,:,:)\n    REAL(fp),  INTENT(IN)  :: YMASS(:,:,:)\n\n    ! Grid box surface area for mass flux diag [m2]\n    REAL(fp),  INTENT(IN)  :: AREA_M2(JM)\n\n    LOGICAL, INTENT(IN)    :: FILL    ! Fill negatives ?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! V-wind (m/s) at mid-time-level (t=t+dt/2)\n    REAL(fp),  INTENT(INOUT) :: v(:,:,:)\n\n    ! surface pressure at current time\n    REAL(fp),  INTENT(INOUT) :: ps1(IM, JFIRST:JLAST)\n\n    ! surface pressure at future time=t+dt\n    REAL(fp),  INTENT(INOUT) :: ps2(IM, JFIRST:JLAST)\n\n    ! Diagnostics state object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag\n!\n! !OUTPUT PARAMETERS:\n!\n    ! \"Predicted\" surface pressure [hPa]\n    REAL(fp),  INTENT(OUT)   :: ps(IM,JFIRST:JLAST)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!  05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                              Yeh with the TPCORE routines from GMI model.\n!                              This eliminates the polar overshoot in the\n!                              stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    INTEGER, PARAMETER :: ADVEC_CONSRV_OPT = 2          ! 2=floating pressure\n    LOGICAL, PARAMETER :: CROSS = .true.\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: rj2m1\n    INTEGER            :: j1p, j2p\n    INTEGER            :: jn (km)\n    INTEGER            :: js (km)\n    INTEGER            :: il, ij, ik, iq, k, j, i, Kflip\n    INTEGER            :: num, k2m1, S\n    INTEGER            :: north, south\n\n    REAL(fp)           :: dap   (km)\n    REAL(fp)           :: dbk   (km)\n    REAL(fp)           :: cx(im,jfirst-ng:jlast+ng,km)  ! E-W CFL # on C-grid\n    REAL(fp)           :: cy(im,jfirst:jlast+mg,km)     ! N-S CFL # on C-grid\n    REAL(fp)           :: delp1(im, jm, km)\n    REAL(fp)           :: delp2(im, jm, km)\n    REAL(fp)           :: delpm(im, jm, km)\n    REAL(fp)           :: pu   (im, jm, km)\n    REAL(fp)           :: dpi(im, jm, km)\n    REAL(fp)           :: geofac  (jm)     ! geometrical factor for meridional\n                                         ! advection; geofac uses correct\n                                         ! spherical geometry, and replaces\n                                         ! RGW_25. (ccc, 4/1/09)\n    REAL(fp)           :: geofac_pc        ! geometrical gactor for poles.\n    REAL(fp)           :: dp\n    REAL(fp)           :: dps_ctm(im,jm)\n    REAL(fp)           :: ua (im, jm, km)\n    REAL(fp)           :: va (im, jm, km)\n    REAL(fp)           :: wz(im, jm, km)\n    REAL(fp)           :: dq1(im,jfirst-ng:jlast+ng,km)\n\n    ! qqu, qqv, adx and ady are now 2d arrays for parallelization purposes.\n    !(ccc, 4/1/08)\n    REAL(fp)           :: qqu(im, jm)\n    REAL(fp)           :: qqv(im, jm)\n    REAL(fp)           :: adx(im, jm)\n    REAL(fp)           :: ady(im, jm)\n\n    ! fx, fy, fz and qtp are now 4D arrays for parallelization purposes.\n    ! (ccc, 4/1/09)\n    REAL(fp)           :: fx    (im, jm,   km, nq)\n    REAL(fp)           :: fy    (im, jm+1, km, nq)    ! one more for edges\n    REAL(fp)           :: fz    (im, jm,   km, nq)\n\n    LOGICAL, SAVE      :: first = .true.\n\n    !     ----------------------------------------------------\n    !     ilmt : controls various options in E-W     advection\n    !     jlmt : controls various options in N-S     advection\n    !     klmt : controls various options in vertcal advection\n    !     ----------------------------------------------------\n\n    INTEGER, SAVE      :: ilmt, jlmt, klmt\n    INTEGER            :: js2g0, jn2g0\n\n    ! Add pointer to avoid array temporary in call to FZPPM (bmy, 6/5/13)\n    REAL(fp),  POINTER :: q_ptr(:,:,:)\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n    ! Add definition of j1p and j2p for enlarge polar cap. (ccc, 11/20/08)\n    j1p = 3\n    j2p = jm - j1p + 1\n\n#ifdef TOMAS\n      !================================================================\n      ! For TOMAS microphysics: zero out UA and VA.\n      !\n      ! Segregate this block from the code with an #ifdef block.\n      ! We can't bring this into the standard GEOS-Chem yet, since\n      ! that will make it hard to compare benchmark results to prior\n      ! versions.  When we do bring this change into the standard code,\n      ! we will have to benchmark it. (sfarina, bmy, 5/30/13)\n      !================================================================\n      do ik= 1, km\n      do ij= 1, jm\n      do il= 1, im\n         va(il,ij,ik) = 0.e+0_fp\n         ua(il,ij,ik) = 0.e+0_fp\n      end do\n      end do\n      end do\n#endif\n\n    ! Average surf. pressures in the polar cap. (ccc, 11/20/08)\n    CALL Average_Press_Poles( area_m2, ps1, 1, im, 1, jm, 1, im, 1, jm )\n    CALL Average_Press_Poles( area_m2, ps2, 1, im, 1, jm, 1, im, 1, jm )\n\n\n    ! Calculation of some geographic factors. (ccc, 11/20/08)\n    rj2m1 = jm - 1\n    dp    = PI / rj2m1\n\n    do ij = 1, jm\n       geofac(ij) = dp / (2.0e+0_fp * area_m2(ij)/(sum(area_m2) * im) * im)\n    end do\n\n    geofac_pc =  &\n         dp / (2.0e+0_fp * (Sum (area_m2(1:2))/(sum(area_m2) * im)) * im)\n\n\n    if (first) then\n\n       first = .false.\n\n     ! =============\n       call Set_Lmts  &\n     ! =============\n            (ilmt, jlmt, klmt, im, jm, iord, jord, kord)\n\n    end if\n\n    ! Pressure calculations. (ccc, 11/20/08)\n    do ik=1,km\n       dap(ik) = ak(ik+1) - ak(ik)\n       dbk(ik) = bk(ik+1) - bk(ik)\n    enddo\n\n!$OMP PARALLEL DO        &\n!$OMP DEFAULT( SHARED  ) &\n!$OMP PRIVATE( IK, IQ, q_ptr )\n    do ik=1,km\n\n  ! ====================\n    call Set_Press_Terms  &\n  ! ====================\n         (dap(ik), dbk(ik), ps1, ps2, delp1(:,:,ik), delpm(:,:,ik), &\n         pu(:,:,ik), &\n         1, jm, 1, im, 1, jm, &\n         j1p, j2p, 1, im, 1, jm)\n    !\n    !...intent(in)  dap - difference in ai across layer (mb)\n    !...intent(in)  dbk - difference in bi across layer (mb)\n    !...intent(in)  pres1 - surface pressure at t1 (mb)\n    !...intent(in)  pres2 - surface pressure at t1+tdt (mb)\n    !...intent(out) delp1 - pressure thickness at t1 (mb)\n    !...intent(out) delpm - pressure thickness at t1+tdt/2 (mb)\n    !...intent(out) pu - pressure at edges of box for \"u\" (mb)\n    !\n\n    if (j1p /= 1+1) then\n\n       do iq = 1, nq\n\n          q_ptr => State_Chm%Species(iq)%Conc(:,:,km:1:-1)\n\n       !  ========================\n          call Average_Const_Poles  &\n       !  ========================\n               (dap(ik), dbk(ik), area_m2, ps1, q_ptr(:,:,ik), &\n               1, jm, im, &\n               1, im, 1, jm, 1, im, 1, jm)\n\n          q_ptr => NULL()\n\n      end do\n\n    end if\n\n\n  ! =================\n    call Calc_Courant  &\n  ! =================\n         (cose, delpm(:,:,ik), pu(:,:,ik), xmass(:,:,ik), ymass(:,:,ik),&\n         cx(:,:,ik), cy(:,:,ik), &\n         j1p, j2p, &\n         1, jm, 1, im, 1, jm, 1, im, 1, jm)\n\n  ! ====================\n    call Calc_Divergence  &\n  ! ====================\n         (.true., geofac_pc, geofac, dpi(:,:,ik), xmass(:,:,ik), &\n         ymass(:,:,ik), &\n         j1p, j2p, 1, im, &\n         1, jm, 1, im, 1, jm, 1, im, 1, jm)\n\n  ! ====================\n    call Set_Cross_Terms  &\n  ! ====================\n         (cx(:,:,ik), cy(:,:,ik), ua(:,:,ik), va(:,:,ik), &\n         j1p, j2p, 1, im, 1, jm, &\n         1, im, 1, jm, 1, im, 1, jm, CROSS)\n\n    end do\n!$OMP END PARALLEL DO\n\n    dps_ctm(:,:) = Sum (dpi(:,:,:), dim=3)\n\n  ! ========================\n    call Calc_Vert_Mass_Flux  &\n  ! ========================\n         (dbk, dps_ctm, dpi, wz, &\n         1, im, 1, jm, 1, km)\n\n    !.sds2.. have all mass flux here: east-west(xmass),\n    !        north-south(ymass), vertical(wz)\n    !.sds2.. save omega (vertical flux) as diagnostic\n\n  ! ==============\n    call Set_Jn_Js  &\n  ! ==============\n           (jn, js, cx, &\n           1, im, 1, jm, 1, jm, j1p, j2p, &\n           1, im, 1, jm, 1, km)\n\n\n    if (advec_consrv_opt == 0) then\n\n       !$OMP PARALLEL DO           &\n       !$OMP DEFAULT( SHARED     ) &\n       !$OMP PRIVATE( IK, IJ, IL )\n       do ik = 1, km\n       do ij = 1, jm\n       do il = 1, im\n          delp2(il,ij,ik) =  &\n               dap(ik) +  &\n               (dbk(ik) * (ps1(il,ij) +  &\n               dps_ctm(il,ij)))\n\n       end do\n       end do\n       end do\n       !$OMP END PARALLEL DO\n\n    else if ((advec_consrv_opt == 1) .or.  &\n         (advec_consrv_opt == 2)) then\n\n       !$OMP PARALLEL DO           &\n       !$OMP DEFAULT( SHARED     ) &\n       !$OMP PRIVATE( IK, IJ, IL )\n       do ik = 1, km\n       do ij = 1, jm\n       do il = 1, im\n\n          delp2(il,ij,ik) =  &\n               dap(ik) +  &\n               (dbk(ik) * ps2(il,ij))\n\n       end do\n       end do\n       end do\n       !$OMP END PARALLEL DO\n\n    end if\n\n    ! Calculate surf. pressure at t+dt. (ccc, 11/20/08)\n    ps = ak(1)+sum(delp2,dim=3)\n\n!----------------------------------------------------------------------------\n! For time optimization : we parallelize over tracers and we loop over the\n! levels outside horizontal transport subroutines. (ccc, 4/1/09)\n!\n! Also zeroed PRIVATE variables within the loop, and set jn(ik) and js(ik)\n! to PRIVATE loop variables.  This seems to avoid small diffs in output.\n!   -- Bob Yantosca (04 Jan 2022)\n!---------------------------------------------------------------------------\n!$OMP PARALLEL DO                                                     &\n!$OMP DEFAULT( SHARED                                               ) &\n!$OMP PRIVATE( iq, dq1, ik, adx, ady, q_ptr, qqu, qqv, north, south )\n    do iq = 1, nq\n\n       q_ptr => State_Chm%Species(iq)%Conc(:,:,km:1:-1)\n\n       ! Zero 3-D arrays for each species\n       dq1 = 0.0_fp\n\n       do ik = 1, km\n\n          ! Zero PRIVATE variables for safety's sake\n          adx   =  0.0_fp\n          ady   =  0.0_fp\n          qqu   =  0.0_fp\n          qqv   =  0.0_fp\n\n          ! Northernmost and southernmost latitude indices by level\n          north = jn(ik)\n          south = js(ik)\n\n          !.sds.. convert to \"mass\"\n          dq1(:,:,ik) = q_ptr(:,:,ik) * delp1(:,:,ik)\n\n        ! ===========================\n          call Calc_Advec_Cross_Terms                                        &\n        ! ===========================\n               ( north,      south,      q_ptr(:,:,ik), qqu, qqv,             &\n                 ua(:,:,ik), va(:,:,ik), j1p,           j2p, im,              &\n                 1,          jm,         1,             im,  1,               &\n                 jm,         1,          im,            1,   jm,              &\n                 CROSS                                                      )\n\n          !.sds.. notes on arrays\n          !  q   (in)  - species mixing ratio\n          !  qqu (out) - concentration contribution from E-W\n          !               advection cross terms(mixing ratio)\n          !  qqv (out) - concentration contribution from N-S\n          !               advection cross terms(mixing ratio)\n          !  ua  (in)  - average of Courant numbers from il and il+1\n          !  va  (in)  - average of Courant numbers from ij and ij+1\n\n          ! ----------------------------------------------------\n          !  Add advective form E-W operator for E-W cross terms.\n          ! ----------------------------------------------------\n\n        ! ==============\n          call Xadv_Dao2                                                     &\n        ! ==============\n               ( 2,   north, south, adx, qqv,  ua(:,:,ik),                   &\n                 1,   im,    1,     jm,  1,    jm,                           &\n                 j1p, j2p,   1,     im,  1,    jm                           )\n\n          !.sds notes on output arrays\n          !  adx (out)- cross term due to E-W advection (mixing ratio)\n          !  qqv (in) - concentration contribution from N-S\n          !             advection (mixing ratio)\n          !  ua  (in) - average of Courant numbers from il and il+1\n          !.sds\n\n          ! ----------------------------------------------------\n          ! Add advective form N-S operator for N-S cross terms.\n          ! ----------------------------------------------------\n\n        ! ==============\n          call Yadv_Dao2                                                     &\n        ! ==============\n               ( 2,   ady, qqu, va(:,:,ik), 1,  im, 1,  jm,                  &\n                 j1p, j2p, 1,   im,         1,  jm, 1,  im,                  &\n                 1,   jm                                                    )\n\n          !.sds notes on output arrays\n          !  ady (out)- cross term due to N-S advection (mixing ratio)\n          !  qqu (in) - concentration contribution from N-S advection\n          !             (mixing ratio)\n          !  va  (in) - average of Courant numbers from il and il+1\n          !.sds\n          !\n          !.bmy notes: use a polar cap of 2 boxes (i.e. the \"2\" as\n          ! the first argument to YADV_DAO2.  The older TPCORE only had\n          ! a polar cap of 1 box (just the Pole itself).  Claire figured\n          ! this out.  (bmy, 12/11/08)\n\n          !... update constituent array qq1 by adding in cross terms\n          !           - use in fzppm\n          q_ptr(:,:,ik) = q_ptr(:,:,ik) + ady + adx\n\n\n        ! ========\n          call Xtp                                                           &\n        ! ========\n               ( ilmt,          north,       south,  pu(:,:,ik),             &\n                 cx(:,:,ik),    dq1(:,:,ik), qqv,    xmass(:,:,ik),          &\n                 fx(:,:,ik,iq), j1p,         j2p,    im,                     &\n                 1,             jm,          1,      im,                     &\n                 1,             jm,          1,      im,                     &\n                 1,             jm,          IORD                           )\n\n          !.sds notes on output arrays\n          !  pu  (in)    - pressure at edges in \"u\" (mb)\n          !  crx (in)    - Courant number in E-W direction\n          !  dq1 (inout) - species density (mb) - updated with the E-W flux\n          !                fx in Xtp)\n          !  qqv (inout) - continue oncentration contribution from N-S advection\n          !                (mixing ratio)\n          !  xmass(in)   - horizontal mass flux in E-W direction (mb)\n          !  fx  (out)   - species E-W mass flux\n          !.sds\n\n        ! ========\n          call Ytp                                                           &\n        ! ========\n               ( jlmt, geofac_pc, geofac,        cy(:,:,ik),    dq1(:,:,ik), &\n                 qqu,  qqv,       ymass(:,:,ik), fy(:,:,ik,iq), j1p,         &\n                 j2p,  1,         im,            1,             jm,          &\n                 im,   1,         im,            1,             jm,          &\n                 1,    im,        1,             jm,            JORD        )\n\n          !.sds notes on output arrays\n          !  cy (in)     - Courant number in N-S direction\n          !  dq1 (inout) - species density (mb) - updated with the N-S flux\n          !                (fy in Ytp)\n          !  qqu (in)    - concentration contribution from E-W advection\n          !                (mixing ratio)\n          !  qqv (inout) - concentration contribution from N-S advection\n          !                (mixing ratio)\n          !  ymass(in)   - horizontal mass flux in E-W direction (mb)\n          !  fy  (out)   - species N-S mass flux (need to mult by geofac)\n          !.sds\n\n       end do  ! IK\n\n     ! ==========\n       call Fzppm                                                            &\n     ! ==========\n            ( klmt, delp1, wz, dq1, q_ptr, fz(:,:,:,iq), j1p,                &\n              1,    jm,    1,  im,  1,     jm,           im,                 &\n              km,   1,     im, 1,   jm,    1,            km                 )\n\n       !.sds notes on output arrays\n       !   wz  (in) : vertical mass flux\n       !   dq1 (inout) : species density (mb)\n       !   q (in) : species concentration (mixing ratio)\n       !.sds\n\n\n\n       if (FILL) then\n        ! ===========\n          call Qckxyz                                                        &\n        ! ===========\n               (dq1, j1p, j2p, 1, jm, 1, im, 1, jm, 1, im, 1, jm, 1, km     )\n       end if\n\n       q_ptr(:,:,:) =  &\n            dq1 / delp2\n\n\n       if (j1p /= 2) then\n\n          q_ptr(:,2,:) = q_ptr(:,1,:)\n          q_ptr(:,jm-1,:)  = q_ptr(:,jm,:)\n\n       end if\n\n       !========================================================================\n       ! MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n       !\n       ! Set tracer concentration to a small positive number if concentration\n       ! is negative. Negative concentration may occur at the poles. This\n       ! is an issue that should be looked into in the future. (ewl, 6/30/15)\n       !========================================================================\n       WHERE ( q_ptr < 0.0_fp )\n          q_ptr = 1.0e-26_fp\n       ENDWHERE\n\n       q_ptr => NULL()\n\n    ENDDO\n!$OMP END PARALLEL DO\n       \n    !======================================================================\n    ! MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !\n    ! HISTORY (aka netCDF diagnostics)\n    ! E/W flux of advected species [kg/s]  (ccarouge 12/2/08)\n    !\n    ! The unit conversion is:\n    !\n    ! Mass    P diff     100      1       area of     kg tracer      1\n    ! ----- = in grid *  ---  *  ---   *  grid box * ------------ * ---\n    ! time    box         1       g       AREA_M2    kg moist air    s\n    !\n    !  kg      hPa     Pa     s^2    m^2        1\n    ! ----  = ----- * ----- * ---- * ---- * --------\n    !  s        1      hPa     m      1       DeltaT\n    !\n    !======================================================================\n    IF ( State_Diag%Archive_AdvFluxZonal ) THEN\n\n       ! Zero netCDF diagnostic array\n       State_Diag%AdvFluxZonal = 0.0_f4\n\n       ! Calculate fluxes for diag. (ccc, 11/20/08)\n       JS2G0  = MAX( J1P, JFIRST )     !  No ghosting\n       JN2G0  = MIN( J2P, JLAST  )     !  No ghosting\n\n       ! Loop over diagnostic slots\n       !$OMP PARALLEL DO                           &\n       !$OMP DEFAULT( SHARED                     ) &\n       !$OMP PRIVATE( S, IQ, K, J, I, Kflip )\n       DO S = 1, State_Diag%Map_AdvFluxZonal%nSlots\n\n          ! Get the advectId from the slotId\n          IQ = State_Diag%Map_AdvFluxZonal%slot2Id(S)\n\n          ! Loop over grid boxes\n          DO K = 1,     KM\n          DO J = JS2G0, JN2G0\n          DO I = 1,     IM\n\n             ! Units: [kg/s]\n             ! But consider changing to area-independent units [kg/m2/s]\n             Kflip                                = KM - K + 1 ! flip vert\n             State_Diag%AdvFluxZonal(I,J,Kflip,S) = &\n                         FX(I,J,K,IQ) * AREA_M2(J) * g0_100 / DT\n\n          ENDDO\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !=======================================================================\n    ! MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !\n    ! HISTORY (aka netCDF diagnostics)\n    !\n    ! N/S flux of tracer [kg/s]\n    ! (bdf, bmy, 9/28/04, ccarouge 12/12/08)\n    !\n    ! NOTE, the unit conversion is the same as desciribed above for the\n    ! E-W diagnostics.  The geometrical factor was already applied to\n    ! fy in Ytp. (ccc, 4/1/09)\n    !=======================================================================\n    IF ( State_Diag%Archive_AdvFluxMerid ) THEN\n\n       ! Zero netCDF diagnostic array\n       State_Diag%AdvFluxMerid = 0.0_f4\n\n       !$OMP PARALLEL DO                           &\n       !$OMP DEFAULT( SHARED                     ) &\n       !$OMP PRIVATE( S, IQ, K, J, I, Kflip )\n       DO S = 1, State_Diag%Map_AdvFluxMerid%nSlots\n\n          ! Get the advectId from the slotId\n          IQ = State_Diag%Map_AdvFluxMerid%slot2Id(S)\n\n          ! Loop over grid boxes\n          DO K = 1, KM\n          DO J = 1, JM\n          DO I = 1, IM\n\n             ! Compute mass flux [kg/s]\n             \n\n             ! Units: [kg/s]\n             ! But consider changing to area-independent units [kg/m2/s]\n             Kflip                                = KM - K + 1  ! flip vert\n             State_Diag%AdvFluxMerid(I,J,Kflip,S) = &\n                        FY(I,J,K,IQ) * AREA_M2(J) * g0_100 / DT\n\n          ENDDO\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !======================================================================\n    ! MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !\n    ! HISTORY (aka netCDF diagnostics)\n    !\n    ! Up/down flux of tracer [kg/s]\n    ! (bmy, bdf, 9/28/04, ccarouge 12/2/08)\n    !\n    ! The vertical transport done in qmap.  We need to find the difference\n    ! in order to to interpret transport.\n    !\n    ! Break up diagnostic into up & down fluxes using the surface boundary\n    ! conditions.  Start from top down (really surface up for flipped\n    ! TPCORE)\n    !\n    ! By construction, MASSFLUP is flux into the bottom of the box. The\n    ! flux at the bottom of KM (the surface box) is not zero by design.\n    ! (phs, 3/4/08)\n    !======================================================================\n    IF ( State_Diag%Archive_AdvFluxVert ) THEN\n\n       ! Zero netCDF diagnostic array\n       State_Diag%AdvFluxVert  = 0.0_f4\n\n       !$OMP PARALLEL DO                           &\n       !$OMP DEFAULT( SHARED                     ) &\n       !$OMP PRIVATE( S, IQ, K, J, I, Kflip )\n       DO S = 1, State_Diag%Map_AdvFluxVert%nSlots\n\n          ! Get the advectId from the modelId\n          IQ = State_Diag%Map_AdvFluxVert%slot2Id(S)\n\n          ! Loop over grid boxes\n          DO K = 1, KM\n          DO J = 1, JM\n          DO I = 1, IM\n\n             ! Ilya Stanevic (stanevic@atmosp.physics.utoronto.ca) says that\n             ! using FZ for the ND26 diagnostic should be correct.  He writes:\n             !\n             !   To be safe you can use FZ variable from Fzppm. That is\n             !   the real vertical species mass. And it is zero at the\n             !   surface.\n             !\n             !   To be clear, Fz is present only in the tpcore for low\n             !   resolution GLOBAL model (4x5, 2x2.5). Nested model has\n             !   different way to calculate vertical advection and there\n             !   is no such thing as FZ. Therefore, we have to calculate\n             !   the species mass difference in the box before and after\n             !   vertical advection in order to get vertical mass flux.\n             !\n             !     -- Bob Yantosca (28 Mar 2017)\n             !\n             ! Units: [kg/s]\n             ! But consider changing to area-independent units [kg/m2/s]\n             Kflip                               = KM - K + 1  !flip vert\n             State_Diag%AdvFluxVert(I,J,Kflip,S) = &\n                        FZ(I,J,K,IQ) * AREA_M2(J) * g0_100 / DT\n\n          ENDDO\n          ENDDO\n          ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n  END SUBROUTINE Tpcore_FvDas\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Average_Const_Poles\n!\n! !DESCRIPTION: Subroutine Average\\_Const\\_Poles averages the species\n!  concentrations at the Poles when the Polar cap is enlarged.  It makes the\n!  last two latitudes equal.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Average_Const_Poles( dap ,   dbk,   rel_area, pctm1, const1, &\n                                  JU1_GL, J2_GL, I2_GL,    I1,    I2,     &\n                                  JU1,    J2,    ILO,    &\n                                  IHI,    JULO,  JHI )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices of the South Pole and North Pole\n    INTEGER, INTENT(IN)   :: JU1_GL, J2_GL\n\n    ! Global max longitude index\n    INTEGER, INTENT(IN)   :: I2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)   :: I1,  I2\n    INTEGER, INTENT(IN)   :: JU1, J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)   :: ILO,  IHI\n    INTEGER, INTENT(IN)   :: JULO, JHI\n\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp),  INTENT(IN)   :: dap\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp),  INTENT(IN)   :: dbk\n\n    ! Relative surface area of grid box [fraction]\n    REAL(fp),  INTENT(IN)   :: rel_area(JU1:J2)\n\n    ! CTM surface pressure at t1 [hPa]\n    REAL(fp),  INTENT(IN)   :: pctm1( ILO:IHI, JULO:JHI )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Species concentration, known at zone center [mixing ratio]\n    REAL(fp), INTENT(INOUT) :: const1( I1:I2, JU1:J2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ik, il\n\n    REAL(fp)  :: meanq\n    REAL(fp)  :: sum1, sum2\n\n!   -----------------------------------------------------------------\n!   delp1n : pressure thickness at North Pole, the psudo-density in a\n!            hydrostatic system at t1 (mb)\n!   delp1s : pressure thickness at South Pole, the psudo-density in a\n!            hydrostatic system at t1 (mb)\n!   -----------------------------------------------------------------\n\n    REAL(fp)  :: delp1n(i1:i2, j2-1:j2)\n    REAL(fp)  :: delp1s(i1:i2,  ju1:ju1+1)\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n!   =================\n    if (ju1 == ju1_gl) then\n!   =================\n\n       delp1s(i1:i2,ju1:ju1+1) =                &\n            dap +                             &\n            (dbk * pctm1(i1:i2,ju1:ju1+1))\n\n       sum1=0.0e+0_fp\n       sum2=0.0e+0_fp\n       do il = i1, i2\n          sum1 = sum1 +                            &\n               Sum (const1  (il,ju1:ju1+1) *  &\n               delp1s  (il,ju1:ju1+1) *  &\n               rel_area(ju1:ju1+1))         &\n               / (sum(rel_area) * i2_gl)\n\n          sum2 = sum2 +                           &\n               Sum (delp1s  (il,ju1:ju1+1) * &\n               rel_area(ju1:ju1+1))        &\n               / (sum(rel_area) * i2_gl)\n       enddo\n\n       meanq = sum1 / sum2\n\n       const1(:,ju1:ju1+1) = meanq\n\n\n    end if\n\n\n!   ================\n    if (j2 == j2_gl) then\n!   ================\n\n       delp1n(i1:i2,j2-1:j2) =               &\n            dap +                           &\n            (dbk * pctm1(i1:i2,j2-1:j2))\n\n       sum1=0.0e+0_fp\n       sum2=0.0e+0_fp\n       do il = i1, i2\n          sum1 = sum1 +                         &\n               Sum (const1  (il,j2-1:j2) * &\n               delp1n  (il,j2-1:j2) * &\n               rel_area(j2-1:j2))        &\n               / (sum(rel_area) * i2_gl)\n\n          sum2 = sum2 +                         &\n               Sum (delp1n  (il,j2-1:j2) * &\n               rel_area(j2-1:j2))        &\n               / (sum(rel_area) * i2_gl)\n       enddo\n\n\n       meanq = sum1 / sum2\n\n       const1(:,j2-1:j2) = meanq\n\n    end if\n\n  END SUBROUTINE Average_Const_Poles\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Cross_Terms\n!\n! !DESCRIPTION: Subroutine Set\\_Cross\\_Terms sets the cross terms for\n!  E-W horizontal advection.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Cross_Terms( crx,   cry,   ua, va, J1P,   J2P,   &\n                              I1_GL, I2_GL, JU1_GL, J2_GL, ILO,   &\n                              IHI,   JULO,  JHI,    I1,    I2,    &\n                              JU1,   J2,    CROSS )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)   :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)   :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)   :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)   :: I1,     I2\n    INTEGER, INTENT(IN)   :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)   :: ILO,    IHI\n    INTEGER, INTENT(IN)   :: JULO,   JHI\n\n    ! Courant number in E-W direction\n    REAL(fp),  INTENT(IN) :: crx(ILO:IHI, JULO:JHI)\n\n    ! Courant number in N-S direction\n    REAL(fp),  INTENT(IN) :: cry(ILO:IHI, JULO:JHI)\n\n    ! Logical switch.  If CROSS=T then cross-terms will be computed.\n    LOGICAL, INTENT(IN) :: CROSS\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Average of Courant numbers from il and il+1\n    REAL(fp), INTENT(OUT) :: ua(ILO:IHI, JULO:JHI)\n\n    ! Average of Courant numbers from ij and ij+1\n    REAL(fp), INTENT(OUT) :: va(ILO:IHI, JULO:JHI)\n\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n\n    ! Grid box indices for lon & lat\n    INTEGER :: il, ij\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n\n    if (.not. CROSS) then\n\n       ua(:,:) = 0.0e+0_fp\n       va(:,:) = 0.0e+0_fp\n\n    else\n\n       do ij = j1p, j2p\n          do il = i1, i2-1\n\n             ua(il,ij) = 0.5e+0_fp * (crx(il,ij) + crx(il+1,ij))\n\n          end do\n          ua(i2,ij) = 0.5e+0_fp * (crx(i2,ij) + crx(1,ij))\n       end do\n\n       do ij = ju1+1, j2-1\n          do il = i1, i2\n\n             va(il,ij) = 0.5e+0_fp * (cry(il,ij) + cry(il,ij+1))\n          end do\n       end do\n\n!      =============================\n       call Do_Cross_Terms_Pole_I2d2  &\n!      =============================\n            (cry, va, &\n             i1_gl, i2_gl, ju1_gl, j2_gl, j1p,  &\n             ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n\n    end if\n\n  END SUBROUTINE Set_Cross_Terms\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Vert_Mass_Flux\n!\n! !DESCRIPTION: Subroutine Calc\\_Vert\\_Mass\\_Flux calculates the vertical\n!  mass flux.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Vert_Mass_Flux( dbk, dps_ctm, dpi, wz, I1,  &\n                                  I2,  JU1,     J2,  K1, K2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)   :: I1,  I2\n    INTEGER, INTENT(IN)   :: JU1, J2\n    INTEGER, INTENT(IN)   :: K1,  K2\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp),  INTENT(IN)  :: dbk(K1:K2)\n\n    ! CTM surface pressure tendency; sum over vertical of dpi\n    ! calculated from original mass fluxes [hPa]\n    REAL(fp),  INTENT(IN)  :: dps_ctm(I1:I2, JU1:J2)\n\n    ! Divergence at a grid point; used to calculate vertical motion [mb]\n    REAL(fp),  INTENT(IN)  :: dpi(I1:I2, JU1:J2, K1:K2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Large scale mass flux (per time step tdt) in the vertical\n    ! direction as diagnosed from the hydrostatic relationship [hPa]\n    REAL(fp), INTENT(OUT) :: wz(I1:I2, JU1:J2, K1:K2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ik, ij, il\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n!   --------------------------------------------------\n!   Compute vertical mass flux from mass conservation.\n!   --------------------------------------------------\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( IJ, IL )\n    do ij = ju1, j2\n    do il = i1,  i2\n       wz(il,ij,k1) =  &\n            dpi(il,ij,k1) -  &\n            (dbk(k1) * dps_ctm(il,ij))\n\n       wz(il,ij,k2) = 0.0e+0_fp\n    end do\n    end do\n    !$OMP END PARALLEL DO\n\n    do ik = k1 + 1, k2 - 1\n\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( IJ, IL )\n       do ij = ju1, j2\n       do il = i1,  i2\n\n          wz(il,ij,ik) =  &\n               wz (il,ij,ik-1) +  &\n               dpi(il,ij,ik)   -  &\n               (dbk(ik) * dps_ctm(il,ij))\n       end do\n       end do\n       !$OMP END PARALLEL DO\n\n    end do\n\n\n  END SUBROUTINE Calc_Vert_Mass_Flux\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Jn_Js\n!\n! !DESCRIPTION: Subroutine Set\\_Jn\\_Js determines Jn and Js, by looking\n!  where Courant number is > 1.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Jn_Js( jn,  js,     crx,   ILO, IHI, JULO, &\n                        JHI, JU1_GL, J2_GL, J1P, J2P, I1,   &\n                        I2,  JU1,    J2,    K1,  K2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)   :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)   :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)   :: I1,     I2\n    INTEGER, INTENT(IN)   :: JU1,    J2\n    INTEGER, INTENT(IN)   :: K1,     K2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)   :: ILO,    IHI\n    INTEGER, INTENT(IN)   :: JULO,   JHI\n\n    ! Courant number in E-W direction\n    REAL(fp),  INTENT(IN)  :: crx(ILO:IHI, JULO:JHI, K1:K2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Northward of latitude index = jn; Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(OUT) :: jn(K1:K2)\n\n    ! Southward of latitude index = js; Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(OUT) :: js(K1:K2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REMARKS:\n!   We cannot parallelize this subroutine because there is a CYCLE statement\n!   within the outer loop.\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n\n    INTEGER :: il, ij, ik\n    INTEGER :: jn0, js0\n    INTEGER :: jst, jend\n\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n    js0  = (j2_gl + 1 ) / 2\n    jn0  = j2_gl - js0 + 1\n\n    jst  = Max (ju1, j1p)\n    jend = Min (j2,  js0)\n\n    ikloop1: do ik = k1, k2\n\n       js(ik) = j1p\n\n       do ij = jend, jst, -1\n          do il = i1, i2\n\n             if (Abs (crx(il,ij,ik)) > 1.0e+0_fp) then\n\n                js(ik) = ij\n\n!               =============\n                cycle ikloop1\n!               =============\n\n             end if\n\n          end do\n       end do\n\n    end do ikloop1\n\n\n    jst  = Max (ju1, jn0)\n    jend = Min (j2,  j2p)\n\n    ikloop2: do ik = k1, k2\n\n       jn(ik) = j2p\n\n       do ij = jst, jend\n          do il = i1, i2\n\n             if (Abs (crx(il,ij,ik)) > 1.0e+0_fp) then\n\n                jn(ik) = ij\n\n!               =============\n                cycle ikloop2\n!               =============\n\n             end if\n\n          end do\n       end do\n\n    end do ikloop2\n\n  END SUBROUTINE Set_Jn_Js\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Advec_Cross_Terms\n!\n! !DESCRIPTION: Subroutine Calc\\_Advec\\_Cross\\_Terms calculates the advective\n!  cross terms.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Advec_Cross_Terms( jn,     js,    qq1,  qqu,  qqv,   &\n                                     ua,     va,    J1P,  J2P,  I2_GL, &\n                                     JU1_GL, J2_GL, ILO,  IHI,  JULO,  &\n                                     JHI,    I1,    I2,   JU1,  J2,    &\n                                     CROSS )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  ::         I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Northward of latitude index = jn, Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(IN)  :: Jn\n\n    ! Southward of latitude index = js, Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(IN)  :: Js\n\n    ! Species concentration (mixing ratio)\n    REAL(fp),  INTENT(IN)  :: qq1(ILO:IHI, JULO:JHI)\n\n    ! Average of Courant numbers from il and il+1\n    REAL(fp),  INTENT(IN)  :: ua (ILO:IHI, JULO:JHI)\n\n    ! Average of Courant numbers from ij and ij+1\n    REAL(fp),  INTENT(IN)  :: va (ILO:IHI, JULO:JHI)\n\n    ! Logical switch: If CROSS=T then cross-terms are being computed\n    LOGICAL, INTENT(IN)  :: CROSS\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: qqu(ILO:IHI, JULO:JHI)\n\n    ! concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: qqv(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i, imp, il, ij, iu\n    INTEGER :: jv, iuw, iue\n    REAL(fp)  :: ril, rij, riu\n    REAL(fp)  :: ru\n    REAL(fp)  :: qtmp(-i2/3:i2+i2/3, julo:jhi)\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n    do ij = julo, jhi\n       do i = 1, i2\n          qtmp(i,ij) = qq1(i,ij)\n       enddo\n\n       do il = -i2/3, 0\n          qtmp(il,ij) = qq1(i2+il,ij)\n       enddo\n\n       do il = i2+1,i2+i2/3\n          qtmp(il,ij) = qq1(il-i2,ij)\n       enddo\n    enddo\n\n!   ================\n    if (.not. CROSS) then\n!   ================\n\n       qqu(:,:) = qq1(:,:)\n       qqv(:,:) = qq1(:,:)\n\n\n!   ====\n    else\n!   ====\n\n       qqu(:,:) = 0.0e+0_fp\n       qqv(:,:) = 0.0e+0_fp\n\n       do ij = j1p, j2p\n\n          if ((ij <= js) .or. (ij >= jn)) then\n\n!          ----------------------------------------------------------\n!          In Polar area, so need to deal with large courant numbers.\n!          ----------------------------------------------------------\n\n             do il = i1, i2\n\n!c?\n                iu  = ua(il,ij)\n                riu = iu\n                ru  = ua(il,ij) - riu\n                iu  = il - iu\n\n                if (ua(il,ij) >= 0.0e+0_fp) then\n\n                   qqu(il,ij) =  &\n                        qtmp(iu,ij) +  &\n                        ru * (qtmp(iu-1,ij) - qtmp(iu,ij))\n\n                else\n\n                   qqu(il,ij) =  &\n                        qtmp(iu,ij) +  &\n                        ru * (qtmp(iu,ij) - qtmp(iu+1,ij))\n\n                end if\n\n                qqu(il,ij) = qqu(il,ij) - qtmp(il,ij)\n\n             end do\n\n          else  ! js < ij < jn\n\n             !             ---------------------------\n             !             Do interior area (use PPM).\n             !             ---------------------------\n\n             do il = i1, i2\n\n                ril = il\n                iu  = ril - ua(il,ij)\n\n                qqu(il,ij) =  &\n                     ua(il,ij) *  &\n                     (qtmp(iu,ij) - qtmp(iu+1,ij))\n\n             end do\n\n          end if\n\n          do il = i1, i2\n\n!c?\n             rij = ij\n             jv  = rij - va(il,ij)\n\n             qqv(il,ij) =  &\n                  va(il,ij) *  &\n                  (qtmp(il,jv) - qtmp(il,jv+1))\n\n          end do\n       end do\n\n       do ij = ju1, j2\n       do il = i1,  i2\n          qqu(il,ij) =  &\n               qtmp(il,ij) + (0.5e+0_fp * qqu(il,ij))\n\n          qqv(il,ij) =  &\n               qtmp(il,ij) + (0.5e+0_fp * qqv(il,ij))\n       enddo\n       enddo\n\n!   ======\n    end if\n!   ======\n\n\n  END SUBROUTINE Calc_Advec_Cross_Terms\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Qckxyz\n!\n! !DESCRIPTION: Subroutine Qckxyz routine checks for \"filling\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Qckxyz( dq1, J1P, J2P,  JU1_GL, J2_GL, &\n                     ILO, IHI, JULO, JHI,    I1,    &\n                     I2,  JU1, J2,   K1,     K2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max latitude (J) indices\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n    INTEGER, INTENT(IN)  :: K1,     K2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Species density [hPa]\n    REAL(fp),  INTENT(INOUT) :: dq1(ILO:IHI, JULO:JHI, K1:K2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    LOGICAL, PARAMETER :: FILL_DIAG = .false.\n!\n! LOCAL VARIABLES:\n!\n    INTEGER :: il, ij, ik\n    INTEGER :: ip\n    INTEGER :: k1p1, k2m1\n    REAL(fp)  :: dup, qup\n    REAL(fp)  :: qly\n    REAL(fp)  :: sum\n\n\n!     ----------------\n!     Begin execution.\n!     ----------------\n\n    ip = 0\n\n\n!     ----------\n!     Top layer.\n!     ----------\n\n    k1p1 = k1 + 1\n\n    !$OMP PARALLEL DO          &\n    !$OMP DEFAULT( SHARED )    &\n    !$OMP PRIVATE( IJ, IL, IP )\n    do ij = j1p, j2p\n       do il = i1, i2\n\n          if (dq1(il,ij,k1) < 0.0e+0_fp) then\n\n             ip = ip + 1\n\n             dq1(il,ij,k1p1) = dq1(il,ij,k1p1) + dq1(il,ij,k1)\n             dq1(il,ij,k1)   = 0.0e+0_fp\n\n          end if\n\n       end do\n    end do\n    !$OMP END PARALLEL DO\n\n\n    do ik = k1 + 1, k2 - 1\n\n       !$OMP PARALLEL DO                         &\n       !$OMP DEFAULT( SHARED )                   &\n       !$OMP PRIVATE( IJ, IL, IP, QUP, QLY, DUP )\n       do ij = j1p, j2p\n          do il = i1, i2\n\n             if (dq1(il,ij,ik) < 0.0e+0_fp) then\n\n                ip = ip + 1\n\n!             -----------\n!             From above.\n!             -----------\n\n                qup =  dq1(il,ij,ik-1)\n                qly = -dq1(il,ij,ik)\n                dup =  Min (qly, qup)\n\n                dq1(il,ij,ik-1) = qup - dup\n                dq1(il,ij,ik)   = dup - qly\n\n!             -----------\n!             From below.\n!             -----------\n\n                dq1(il,ij,ik+1) = dq1(il,ij,ik+1) + dq1(il,ij,ik)\n                dq1(il,ij,ik)   = 0.0e+0_fp\n\n             end if\n\n          end do\n       end do\n       !$OMP END PARALLEL DO\n\n    end do\n\n\n!     -------------\n!     Bottom layer.\n!     -------------\n\n    sum  = 0.0e+0_fp\n\n    k2m1 = k2 - 1\n\n    ! NOTE: Sum seems to be not used in the loop below!\n    !$OMP PARALLEL DO                          &\n    !$OMP DEFAULT( SHARED )                    &\n    !$OMP PRIVATE( IJ, IL, IP, QUP, QLY, DUP ) &\n    !$OMP REDUCTION( +:SUM )\n    do ij = j1p, j2p\n       do il = i1, i2\n\n          if (dq1(il,ij,k2) < 0.0e+0_fp) then\n\n             ip = ip + 1\n\n!           -----------\n!           From above.\n!           -----------\n\n             qup =  dq1(il,ij,k2m1)\n             qly = -dq1(il,ij,k2)\n             dup = Min (qly, qup)\n\n             dq1(il,ij,k2m1) = qup - dup\n\n!           -------------------------\n!           From \"below\" the surface.\n!           -------------------------\n\n             sum = sum + qly - dup\n\n             dq1(il,ij,k2) = 0.0e+0_fp\n\n          end if\n\n       end do\n    end do\n    !$OMP END PARALLEL DO\n\n! We don't want to replace zero values by 1e-30. (ccc, 11/20/08)\n!!     =======================================\n!    where ((dq1(i1:i2,j1p:j2p,:) < 1.0d-30))  &\n!         dq1(i1:i2,j1p:j2p,:) = 1.0d-30\n!!     =======================================\n\n  END SUBROUTINE Qckxyz\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Lmts\n!\n! !DESCRIPTION: Subroutine Set\\_Lmts sets ILMT, JLMT, KLMT.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Lmts( ilmt, jlmt, klmt, I2_GL, J2_GL, iord, jord, kord )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global maximum longitude (I) and longitude (J) indices\n    INTEGER, INTENT(IN)  :: I2_GL, J2_GL\n\n    ! Flags to denote E-W, N-S, and vertical transport schemes\n    ! (See REMARKS section of routine Tpcore_FvDas for more info)\n    INTEGER, INTENT(IN)  :: iord, jord, kord\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Controls various options in E-W advection\n    INTEGER, INTENT(OUT) :: ilmt\n\n    ! Controls various options in N-S advection\n    INTEGER, INTENT(OUT) :: jlmt\n\n    ! Controls various options in vertical advection\n    INTEGER, INTENT(OUT) :: klmt\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n\n    INTEGER :: j2_glm1\n\n!     ----------------\n!     Begin execution.\n!     ----------------\n\n    j2_glm1 = j2_gl - 1\n\n!c?\n    if (IORD <= 0) then\n       if (i2_gl >= 144) then\n          ilmt = 0\n       else if (i2_gl >= 72) then\n          ilmt = 1\n       else\n          ilmt = 2\n       end if\n    else\n       ilmt = IORD - 3\n    end if\n\n\n!c?\n    if (JORD <= 0) then\n       if (j2_glm1 >= 90) then\n          jlmt = 0\n       else if (j2_glm1 >= 45) then\n          jlmt = 1\n       else\n          jlmt = 2\n       end if\n    else\n       jlmt = JORD - 3\n    end if\n\n    klmt = Max ((KORD-3), 0)\n\n  END SUBROUTINE Set_Lmts\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Press_Terms\n!\n! !DESCRIPTION: Subroutine Set\\_Press\\_Terms sets the pressure terms:\n!  DELP1, DELPM, PU.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Press_Terms( dap,   dbk,  pres1,  pres2, delp1,   &\n                              delpm, pu,   JU1_GL, J2_GL, ILO,     &\n                              IHI,   JULO, JHI,    J1P,   J2P,     &\n                              I1,    I2,   JU1,    J2)\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max latitude (J) indices\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Pressure difference across layer from (ai * pt) term [hPa]\n    REAL(fp),  INTENT(IN)  :: dap\n\n    ! Difference in bi across layer - the dSigma term\n    REAL(fp),  INTENT(IN)  :: dbk\n\n    ! Surface pressure at t1 [hPa]\n    REAL(fp),  INTENT(IN)  :: pres1(ILO:IHI, JULO:JHI)\n\n    ! Surface pressure at t1+tdt [hPa]\n    REAL(fp),  INTENT(IN)  :: pres2(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Pressure thickness, the pseudo-density in a\n    ! hydrostatic system at t1 [hPa]\n    REAL(fp), INTENT(OUT) :: delp1(ILO:IHI, JULO:JHI)\n\n    ! Pressure thickness, the pseudo-density in a\n    ! hydrostatic system at t1+tdt/2 (approximate) [hPa]\n    REAL(fp), INTENT(OUT) :: delpm(ILO:IHI, JULO:JHI)\n\n    ! Pressure at edges in \"u\" [hPa]\n    REAL(fp), INTENT(OUT) :: pu(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: il, ij\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n       delp1(:,:) = dap + (dbk * pres1(:,:))\n\n       delpm(:,:) =  &\n                dap+  &\n                (dbk * 0.5e+0_fp * (pres1(:,:) + pres2(:,:)))\n\n    do ij = j1p, j2p\n       pu(1,ij) = 0.5e+0_fp * (delpm(1,ij) + delpm(i2,ij))\n       do il = i1+1, i2\n\n          pu(il,ij) = 0.5e+0_fp * (delpm(il,ij) + delpm(il-1,ij))\n\n       end do\n    end do\n\n\n  END SUBROUTINE Set_Press_Terms\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Courant\n!\n! !DESCRIPTION: Subroutine Calc\\_Courant calculates courant numbers from\n!  the horizontal mass fluxes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Courant( cose, delpm, pu,     xmass, ymass, crx, cry,  &\n                           J1P,  J2P,   JU1_GL, J2_GL, ILO,   IHI, JULO, &\n                           JHI,  I1,    I2,     JU1,   J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max latitude (J) indices\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Cosine of grid box edges\n    REAL(fp),  INTENT(IN)  :: cose (JU1_GL:J2_GL)\n\n    ! Pressure thickness, the pseudo-density in a hydrostatic system\n    ! at t1+tdt/2 (approximate) (mb)\n    REAL(fp),  INTENT(IN)  :: delpm(ILO:IHI, JULO:JHI)\n\n    ! pressure at edges in \"u\"  (mb)\n    REAL(fp),  INTENT(IN)  :: pu   (iLO:IHI, JULO:JHI)\n\n    ! horizontal mass flux in E-W and N-S directions [hPa]\n    REAL(fp),  INTENT(IN)  :: xmass(ILO:IHI, JULO:JHI)\n    REAL(fp),  INTENT(IN)  :: ymass(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Courant numbers in E-W and N-S directions\n    REAL(fp),  INTENT(OUT) :: crx(ILO:IHI, JULO:JHI)\n    REAL(fp),  INTENT(OUT) :: cry(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO)\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ij\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    crx(:,:) = 0.0e+0_fp\n    cry(:,:) = 0.0e+0_fp\n\n!      ---------------------------------------------\n!      Calculate E-W and N-S horizontal mass fluxes.\n!      ---------------------------------------------\n\n       do ij = j1p, j2p\n\n          crx(:,ij) =  &\n               xmass(:,ij) / pu(:,ij)\n\n          cry(:,ij) =  &\n               ymass(:,ij) /  &\n               ((0.5e+0_fp * cose(ij)) *  &\n               (delpm(:,ij) + delpm(:,ij-1)))\n       end do\n\n       cry(:,j2p+1) =  &\n               ymass(:,j2p+1) /  &\n               ((0.5e+0_fp * cose(j2p+1)) *  &\n               (delpm(:,j2p+1) + delpm(:,j2p)))\n\n\n\n  END SUBROUTINE Calc_Courant\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Calc_Divergence\n\n!\n! !DESCRIPTION: Subroutine Calc\\_Divergence calculates the divergence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Calc_Divergence( do_reduction, geofac_pc, geofac, dpi,   &\n                              xmass,        ymass,     J1P,    J2P,   &\n                              I1_GL,        I2_GL,     JU1_GL, J2_GL, &\n                              ILO,          IHI,       JULO,   JHI,   &\n                              I1,           I2,        JU1,    J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Set to F if called on root core or T if called by secondary cores\n    ! (NOTE: This is only for MPI parallelization, for OPENMP it should be F)\n    LOGICAL, INTENT(IN)  :: do_reduction\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp) , INTENT(IN)  :: geofac_pc\n\n    ! Geometrical factor for meridional advection; geofac uses correct\n    ! spherical geometry, and replaces acosp as the meridional geometrical\n    ! factor in TPCORE\n    REAL(fp) , INTENT(IN)  :: geofac(JU1_GL:J2_GL)\n\n    ! Horizontal mass flux in E/W and N/S directions [hPa]\n    REAL(fp) , INTENT(IN)  :: xmass(ILO:IHI, JULO:JHI)\n    REAL(fp) , INTENT(IN)  :: ymass(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Divergence at a grid point; used to calculate vertical motion [hPa]\n    REAL(fp),  INTENT(OUT) :: dpi(I1:I2, JU1:J2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: il, ij\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n!      -------------------------\n!      Calculate N-S divergence.\n!      -------------------------\n\n       do ij = j1p, j2p\n\n          dpi(:,ij) =  &\n               (ymass(:,ij) - ymass(:,ij+1)) *  &\n               geofac(ij)\n\n!      -------------------------\n!      Calculate E-W divergence.\n!      -------------------------\n\n          do il = i1, i2-1\n\n             dpi(il,ij) =  &\n                  dpi(il,ij) +  &\n                  xmass(il,ij) - xmass(il+1,ij)\n\n          end do\n\n          dpi(i2,ij) =  &\n               dpi(i2,ij) +  &\n               xmass(i2,ij) - xmass(1,ij)\n       end do\n\n\n!   ===========================\n    call Do_Divergence_Pole_Sum  &\n!   ===========================\n         (do_reduction, geofac_pc, dpi, ymass, &\n         i1_gl, i2_gl, j1p, j2p, &\n         ju1_gl, j2_gl, ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n\n    if (j1p /= ju1_gl+1) then\n\n!       --------------------------------------------\n!       Polar cap enlarged:  copy dpi to polar ring.\n!       --------------------------------------------\n\n          dpi(:,ju1+1) = dpi(:,ju1)\n          dpi(:,j2-1)  = dpi(:,j2)\n    end if\n\n\n  END SUBROUTINE Calc_Divergence\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Divergence_Pole_Sum\n!\n! !DESCRIPTION: Subroutine Do\\_Divergence\\_Pole\\_Sum sets the divergence\n!  at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Divergence_Pole_Sum( do_reduction, geofac_pc, dpi, ymass, &\n                                     I1_GL,        I2_GL,     J1P, J2P,   &\n                                     JU1_GL,       J2_GL,     ILO, IHI,   &\n                                     JULO,         JHI,       I1,  I2,    &\n                                     JU1,          J2)\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Set to T if called on root core or F if called by secondary cores\n    ! NOTE: This seems not to be used here....)\n    LOGICAL, INTENT(IN)   :: do_reduction\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp),  INTENT(in)   :: geofac_pc\n\n    ! Horizontal mass flux in N-S direction [hPa]\n    REAL(fp),  INTENT(IN)   :: ymass(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Divergence at a grid point; used to calculate vertical motion [hPa]\n    REAL(fp),  INTENT(OUT)  :: dpi(I1:I2, JU1:J2)\n\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: il\n    REAL(fp)  :: ri2\n    REAL(fp)  :: mean_np\n    REAL(fp)  :: mean_sp\n    REAL(fp)  :: sumnp\n    REAL(fp)  :: sumsp\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    ri2 = i2_gl\n\n\n!   ==================\n    if (ju1 == ju1_gl) then\n!   ==================\n\n          sumsp = 0.0e+0_fp\n\n          do il = i1, i2\n\n             sumsp = sumsp + ymass(il,j1p)\n\n          end do\n\n          mean_sp = -sumsp / ri2 * geofac_pc\n\n          do il = i1, i2\n\n             dpi(il,ju1) = mean_sp\n\n          end do\n\n!   ======\n    end if\n!   ======\n\n\n!   ================\n    if (j2 == j2_gl) then\n!   ================\n\n          sumnp = 0.0e+0_fp\n\n          do il = i1, i2\n\n             sumnp = sumnp + ymass(il,j2p+1)\n\n          end do\n\n          mean_np = sumnp / ri2 * geofac_pc\n\n          do il = i1, i2\n\n             dpi(il,j2) = mean_np\n\n          end do\n\n!   ======\n    end if\n!   ======\n\n  END SUBROUTINE Do_Divergence_Pole_Sum\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Cross_Terms_Pole_I2d2\n!\n! !DESCRIPTION: Subroutine Do\\_Cross\\_Terms\\_Pole\\_I2d2 sets \"va\" at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Cross_Terms_Pole_I2d2( cry,   va,  I1_GL, I2_GL, JU1_GL, &\n                                       J2_GL, J1P, ILO,   IHI,   JULO,   &\n                                       JHI,   I1,  I2,    JU1,   J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edge of the South polar cap\n    ! J1P=JU1_GL+1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Courant number in N-S direction\n    REAL(fp),  INTENT(IN)  :: cry(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Average of Courant numbers from ij and ij+1\n    REAL(fp),  INTENT(OUT) :: va(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i2d2\n    INTEGER :: il\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    i2d2 = i2_gl / 2\n\n\n!   ====================\n    if (j1p == ju1_gl+1) then\n!   ====================\n\n!      ---------------------------------------------\n!      Polar Cap NOT Enlarged:\n!      Get cross terms for N-S horizontal advection.\n!      ---------------------------------------------\n\n!      ==================\n       if (ju1 == ju1_gl) then\n!      ==================\n\n          do il = i1, i2d2\n\n             va(il,ju1) =  &\n                  0.5e+0_fp * (cry(il,ju1+1) - cry(il+i2d2,ju1+1))\n\n             va(il+i2d2,ju1) = -va(il,ju1)\n\n          end do\n\n!      ======\n       end if\n!      ======\n\n\n!      ================\n       if (j2 == j2_gl) then\n!      ================\n\n          do il = i1, i2d2\n\n             va(il,j2) =  &\n                  0.5e+0_fp * (cry(il,j2) - cry(il+i2d2,j2-1))\n\n             va(il+i2d2,j2) = -va(il,j2)\n\n          end do\n\n!      ======\n       end if\n!      ======\n\n!   ======\n    end if\n!   ======\n\n\n  END SUBROUTINE Do_Cross_Terms_Pole_I2d2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xadv_Dao2\n!\n! !DESCRIPTION: Subroutine Xadv\\_Dao2 is the advective form E-W operator for\n!  computing the adx (E-W) cross term.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Xadv_Dao2( iad,    jn,    js,  adx,  qqv, &\n                        ua,     ILO,   IHI, JULO, JHI, &\n                        JU1_GL, J2_GL, J1P, J2P,  I1,  &\n                        I2,     JU1,   J2)\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max latitude (J) indices\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! if iad = 1, use 1st order accurate scheme;\n    ! if iad = 2, use 2nd order accurate scheme\n    INTEGER, INTENT(IN)  :: iad\n\n    ! Northward of latitude index = jn, Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(IN)  :: jn\n\n    ! southward of latitude index = js, Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(IN)  :: js\n\n    ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqv(ILO:IHI, JULO:JHI)\n\n    ! Average of Courant numbers from il and il+1\n    REAL(fp),  INTENT(IN)  :: ua(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Cross term due to E-W advection [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: adx(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij, iu\n    INTEGER :: imp, iue, iuw\n    REAL(fp)  :: a1, b1, c1\n    REAL(fp)  :: rdiff\n    REAL(fp)  :: ril, riu\n    real(fp)  :: ru\n\n    ! Arrays\n    REAL(fp)  :: qtmp(-i2/3:i2+i2/3, julo:jhi)\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n    ! Zero output array\n    adx = 0e+0_fp\n\n       do ij = julo, jhi\n\n          do il=1,i2\n             qtmp(il,ij) = qqv(il,ij)\n          enddo\n\n          do il=-i2/3,0\n             qtmp(il,ij) = qqv(i2+il,ij)\n          enddo\n\n          do il=i2+1,i2+i2/3\n             qtmp(il,ij) = qqv(il-i2,ij)\n          enddo\n       enddo\n\n!   =============\n    if (iad == 1) then\n!   =============\n\n       !       ----------\n       !       1st order.\n       !       ----------\n\n          do ij = j1p, j2p\n\n\n             if ((ij <= js) .or. (ij >= jn)) then\n\n                !             --------------\n                !             In Polar area.\n                !             --------------\n\n                do il = i1, i2\n\n                   iu  = ua(il,ij)\n                   riu = iu\n                   ru  = ua(il,ij) - riu\n                   iu  = il - iu\n\n                   if (ua(il,ij) >= 0.0e+0_fp) then\n                      rdiff = qtmp(iu-1,ij) - qtmp(iu,ij)\n                   else\n                      rdiff = qtmp(iu,ij)   - qtmp(iu+1,ij)\n                   end if\n\n                   adx(il,ij) = (qtmp(iu,ij) - qtmp(il,ij)) +  &\n                                   (ru * rdiff)\n\n                end do\n\n             else  ! js < ij < jn\n\n                !             ----------------\n                !             Eulerian upwind.\n                !             ----------------\n\n                do il = i1, i2\n\n                   ril = il\n                   iu  = ril - ua(il,ij)\n\n                   adx(il,ij) = ua(il,ij) *  &\n                        (qtmp(iu,ij) - qtmp(iu+1,ij))\n\n                end do\n\n             end if\n\n          end do\n\n!   ==================\n    else if (iad == 2) then\n!   ==================\n\n\n          do ij = j1p, j2p\n\n\n             if ((ij <= js) .or. (ij >= jn)) then\n\n                !             --------------\n                !             In Polar area.\n                !             --------------\n\n                do il = i1, i2\n\n                   iu  = Nint (ua(il,ij))\n                   riu = iu\n                   ru  = riu - ua(il,ij)\n                   iu  = il - iu\n\n                   a1 = 0.5e+0_fp * (qtmp(iu+1,ij) + qtmp(iu-1,ij)) -  &\n                                 qtmp(iu,ij)\n\n                   b1 = 0.5e+0_fp * (qtmp(iu+1,ij) - qtmp(iu-1,ij))\n\n                   c1 = qtmp(iu,ij) - qtmp(il,ij)\n\n                   adx(il,ij) = (ru * ((a1 * ru) + b1)) + c1\n\n                end do\n\n             else  ! js < ij < jn\n\n                !             ----------------\n                !             Eulerian upwind.\n                !             ----------------\n\n                do il = i1, i2\n\n                   iu  = Nint (ua(il,ij))\n                   riu = iu\n                   ru  = riu - ua(il,ij)\n                   iu  = il - iu\n\n                   a1 = 0.5e+0_fp * (qtmp(iu+1,ij) + qtmp(iu-1,ij)) -  &\n                                 qtmp(iu,ij)\n\n                   b1 = 0.5e+0_fp * (qtmp(iu+1,ij) - qtmp(iu-1,ij))\n\n                   c1 = qtmp(iu,ij) - qtmp(il,ij)\n\n                   adx(il,ij) = (ru * ((a1 * ru) + b1)) + c1\n\n                end do\n\n             end if\n\n          end do\n!   ======\n    end if\n!   ======\n\n\n    if (ju1 == ju1_gl) then\n\n          adx(i1:i2,ju1) = 0.0e+0_fp\n\n          if (j1p /= ju1_gl+1) then\n\n             adx(i1:i2,ju1+1) = 0.0e+0_fp\n\n          end if\n\n    end if\n\n\n    if (j2 == j2_gl) then\n\n          adx(i1:i2,j2) = 0.0e+0_fp\n\n          if (j1p /= ju1_gl+1) then\n\n             adx(i1:i2,j2-1) = 0.0e+0_fp\n\n          end if\n\n    end if\n\n\n  END SUBROUTINE Xadv_Dao2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Yadv_Dao2\n!\n! !DESCRIPTION: Subroutine Yadv\\_Dao2 is the advective form N-S operator\n!  for computing the ady (N-S) cross term.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Yadv_Dao2( iad,   ady,    qqu,   va,  I1_GL, &\n                        I2_GL, JU1_GL, J2_GL, J1P, J2P,   &\n                        ILO,   IHI,    JULO,  JHI, I1,    &\n                        I2,    JU1,    J2)\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! If iad = 1, use 1st order accurate scheme;\n    ! If iad = 2, use 2nd order accurate scheme\n    INTEGER, INTENT(IN)  :: iad\n\n    ! Concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqu(ILO:IHI, JULO:JHI)\n\n    ! Average of Courant numbers from ij and ij+1\n    REAL(fp),  INTENT(IN)  :: va(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Cross term due to N-S advection (mixing ratio)\n    REAL(fp),  INTENT(OUT) :: ady(ILO:IHI, JULO:JHI)\n\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij\n    INTEGER :: jv\n    REAL(fp)  :: a1, b1, c1\n    REAL(fp)  :: rij, rjv\n    REAL(fp)  :: rv\n\n    ! Arrays\n    ! We may need a small ghost zone depending\n    ! on the polar cap used\n    REAL(fp)  :: qquwk(ilo:ihi, julo-2:jhi+2)\n\n!     ----------------\n!     Begin execution.\n!     ----------------\n\n    ! Zero output array\n    ady = 0e+0_fp\n\n    ! Make work array\n    do ij = julo, jhi\n       qquwk(:,ij) = qqu(:,ij)\n    end do\n\n\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    ! This routine creates a ghost zone in latitude in case of\n    ! not enlarged polar cap\n    ! (ccc, 11/20/08)\n!   ======================\n    call Do_Yadv_Pole_I2d2 &\n!   ======================\n         (qqu, qquwk, &\n          i1_gl, i2_gl, ju1_gl, j2_gl, j1p, &\n          ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n\n!   =============\n    if (iad == 1) then\n!   =============\n\n       !       ----------\n       !       1st order.\n       !       ----------\n\n          do ij = j1p-1, j2p+1\n             do il = i1, i2\n!c?\n                rij = ij\n                jv  = rij - va(il,ij)\n\n                ady(il,ij) = va(il,ij) *  &\n                     (qquwk(il,jv) - qquwk(il,jv+1))\n\n             end do\n          end do\n\n\n!   ==================\n    else if (iad == 2) then\n!   ==================\n\n          do ij = j1p-1, j2p+1\n             do il = i1, i2\n!c?\n                jv  = Nint (va(il,ij))\n                rjv = jv\n                rv  = rjv - va(il,ij)\n                jv  = ij - jv\n\n                a1 = 0.5e+0_fp * (qquwk(il,jv+1) + qquwk(il,jv-1)) -  &\n                              qquwk(il,jv)\n\n                b1 = 0.5e+0_fp * (qquwk(il,jv+1) - qquwk(il,jv-1))\n\n                c1 = qquwk(il,jv) - qquwk(il,ij)\n\n                ady(il,ij) = (rv * ((a1 * rv) + b1)) + c1\n\n             end do\n          end do\n\n    end if\n\n\n!   =====================\n    call Do_Yadv_Pole_Sum &\n!   =====================\n         ( ady, &\n           i1_gl, i2_gl, ju1_gl, j2_gl, j1p, &\n           ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n\n  END SUBROUTINE Yadv_Dao2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Yadv_Pole_I2d2\n!\n! !DESCRIPTION: Subroutine Do\\_Yadv\\_Pole\\_I2d2 sets \"qquwk\" at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Yadv_Pole_I2d2 ( qqu, qquwk, I1_GL, I2_GL, JU1_GL, J2_GL, &\n                                 J1P, ILO,   IHI,   JULO,  JHI,    I1,    &\n                                 I2,  JU1,   J2  )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the South polar cap\n    ! J1P=JU1_GL+1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqu(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! qqu working array [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: qquwk(ILO:IHI, JULO-2:JHI+2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: i2d2\n    INTEGER :: il, ij\n    INTEGER :: inb\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    i2d2 = i2_gl / 2\n\n\n!   ====================\n    if (j1p == ju1_gl+1) then\n!   ====================\n\n!      -----------------------\n!      Polar Cap NOT Enlarged.\n!      -----------------------\n\n!      ==================\n       if (ju1 == ju1_gl) then\n!      ==================\n\n          do il = i1, i2d2\n             do inb = 1, 2\n\n                qquwk(il,     ju1-inb) = qqu(il+i2d2,ju1+inb)\n                qquwk(il+i2d2,ju1-inb) = qqu(il,     ju1+inb)\n\n             end do\n          end do\n\n\n!      ======\n       end if\n!      ======\n\n\n!      ================\n       if (j2 == j2_gl) then\n!      ================\n\n          do il = i1, i2d2\n             do inb = 1, 2\n\n                qquwk(il,     j2+inb) = qqu(il+i2d2,j2-inb)\n                qquwk(il+i2d2,j2+inb) = qqu(il,     j2-inb)\n\n             end do\n          end do\n\n\n!      ======\n       end if\n!      ======\n\n!   ======\n    end if\n!   ======\n\n\n  END SUBROUTINE Do_Yadv_Pole_I2d2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Yadv_Pole_Sum\n!\n! !DESCRIPTION: Subroutine Do\\_Yadv\\_Pole\\_Sum sets the cross term due to\n!  N-S advection at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Yadv_Pole_Sum( ady, I1_GL, I2_GL, JU1_GL, J2_GL, J1P, &\n                               ILO, IHI,   JULO,  JHI,    I1,    I2,  &\n                               JU1, J2)\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude index at the edge of the South polar cap\n    ! J1P=JU1_GL+1; for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)    :: J1P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)    :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n    INTEGER, INTENT(IN)    :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Cross term due to N-S advection (mixing ratio)\n    REAL(fp),  INTENT(INOUT) :: ady(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n\n    ! Scalars\n    INTEGER :: il\n\n    ! Arrays\n    REAL(fp)  :: sumnp\n    REAL(fp)  :: sumsp\n\n    ! Add\n    LOGICAL :: IS_EXT_POLAR_CAP\n\n\n    ! ----------------\n    ! Begin execution.\n    ! ----------------\n\n    ! Test if we are using extended polar caps (i.e. the S pole and next N\n    ! latitude and N. Pole and next S latitude).  Do this outside the loops.\n    ! (bmy, 12/11/08)\n    IS_EXT_POLAR_CAP = ( J1P == JU1_GL + 2 )\n\n    ! ------------\n    !  South Pole\n    ! ------------\n\n          sumsp = 0.0e+0_fp\n          sumnp = 0.0e+0_fp\n\n          if ( IS_EXT_POLAR_CAP ) then\n\n             ! For a 2-latitude polar cap (S. Pole + next Northward latitude)\n             do il = i1, i2\n\n                sumsp = sumsp + ady(il,ju1+1)\n                sumnp = sumnp + ady(il,j2-1)\n\n             end do\n\n          else\n\n             ! For a 1-latitude polar cap (S. Pole only)\n             do il = i1, i2\n\n                sumsp = sumsp + ady(il,ju1)\n                sumnp = sumnp + ady(il,j2)\n\n             end do\n\n          end if\n\n          sumsp = sumsp / i2_gl\n          sumnp = sumnp / i2_gl\n\n          if ( IS_EXT_POLAR_CAP ) then\n\n             ! For a 2-latitude polar cap (S. Pole + next Northward latitude)\n             do il = i1, i2\n\n                ady(il,ju1+1) = sumsp\n                ady(il,ju1)   = sumsp\n                ady(il,j2-1) = sumnp\n                ady(il,j2)   = sumnp\n\n             end do\n\n          else\n\n             ! For a 1-latitude polar cap (S. Pole only)\n             do il = i1, i2\n\n                ady(il,ju1) = sumsp\n                ady(il,j2) = sumnp\n\n             end do\n\n          end if\n\n  END SUBROUTINE Do_Yadv_Pole_Sum\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xtp\n!\n! !DESCRIPTION: Subroutine Xtp does horizontal advection in the E-W direction.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Xtp( ilmt, jn,  js,    pu,     crx,   dq1, qqv, xmass, fx,  &\n                  J1P,  J2P, I2_GL, JU1_GL, J2_GL, ILO, IHI, JULO,  JHI, &\n                  I1,   I2,  JU1,   J2,  iord )\n\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)    :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    ::         I2_GL\n    INTEGER, INTENT(IN)    :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n    INTEGER, INTENT(IN)    :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n\n    ! Controls various options in E-W advection\n    INTEGER, INTENT(IN)    :: ilmt\n\n    ! Northward of latitude index = jn, Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(IN)    :: jn\n\n    ! Southward of latitude index = js, Courant numbers could be > 1,\n    ! so use the flux-form semi-Lagrangian scheme\n    INTEGER, INTENT(IN)    :: js\n\n    ! Option for E-W transport scheme.  See module header for more info.\n    INTEGER, INTENT(IN)    :: iord\n\n    ! pressure at edges in \"u\" [hPa]\n    REAL(fp),  INTENT(IN)    :: pu(ILO:IHI, JULO:JHI)\n\n    ! Courant number in E-W direction\n    REAL(fp),  INTENT(IN)    :: crx(ILO:IHI, JULO:JHI)\n\n    ! Horizontal mass flux in E-W direction [hPa]\n    REAL(fp),  INTENT(IN)    :: xmass(ILO:IHI, JULO:JHI)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Species density [hPa]\n    REAL(fp),  INTENT(INOUT) :: dq1(ILO:IHI, JULO:JHI)\n\n    ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(INOUT) :: qqv(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! E-W flux [mixing ratio]\n    REAL(fp),  INTENT(OUT)   :: fx(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij, ic\n    INTEGER :: iu, ix, iuw, iue, imp\n    INTEGER :: jvan\n    REAL(fp)  :: rc\n    REAL(fp)  :: ric, ril\n\n    ! Arrays\n    INTEGER :: isav(i1:i2)\n    REAL(fp)  :: dcx(-i2/3:i2+i2/3, julo:jhi)\n    REAL(fp)  :: qtmp(-i2/3:i2+i2/3, julo:jhi)\n\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n    dcx(:,:) = 0.0e+0_fp\n    fx(:,:) = 0.0e+0_fp\n\n    imp = i2+1\n\n    ! NOTE: these loops do not parallelize well (bmy, 12/5/08)\n\n    ! Populate qtmp\n    do il=i1,i2\n       qtmp(il,:) = qqv(il,:)\n    enddo\n\n    do il = -i2/3,0\n       qtmp(il,:) = qqv(i2+il,:)\n    enddo\n\n    do il = i2+1,i2+i2/3\n       qtmp(il,:) = qqv(il-i2,:)\n    enddo\n\n    if (IORD /= 1) then\n       qtmp(i1-1,:) = qqv(i2,:)\n       qtmp(i1-2,:) = qqv(i2-1,:)\n       qtmp(i2+1,:) = qqv(i1,:)\n       qtmp(i2+2,:) = qqv(i1+1,:)\n\n!      ==========\n       call Xmist &\n!      ==========\n            (dcx, qtmp, &\n             j1p, j2p, i2_gl, ju1_gl, j2_gl, ilo, ihi, julo, jhi, &\n             i1, i2, ju1, j2)\n    end if\n\n\n    jvan = Max (1, j2_gl / 18)\n\n\n!   ==============\n       do ij = j1p, j2p\n!      =================\n\n!         ======================================\n          if ((ij > js) .and. (ij < jn)) then\n!         ======================================\n\n!           ------------------------------------------------------\n!           Do horizontal Eulerian advection in the E-W direction.\n!           ------------------------------------------------------\n\n             if ((IORD == 1) .or.  &\n                  (ij == j1p) .or. (ij == j2p)) then\n\n                do il = i1, i2\n                   ril = il\n                   iu  = ril - crx(il,ij)\n\n                   fx(il,ij) = qtmp(iu,ij)\n                end do\n\n             else\n\n                if ((IORD == 2) .or.  &\n                     (ij <= (j1p+jvan)) .or. (ij >= (j2p-jvan))) then\n\n                   do il = i1, i2\n                      ril = il\n                      iu  = ril - crx(il,ij)\n\n                      fx(il,ij) =  &\n                           qtmp(iu,ij) +  &\n                           (dcx(iu,ij) *  &\n                           (Sign (1.0e+0_fp, crx(il,ij)) - crx(il,ij)))\n                   end do\n\n                else\n\n!                  ==========\n                   call Fxppm  &\n                        (ij, ilmt, crx, dcx, fx, qtmp, &\n                        -i2/3, i2+i2/3, julo, jhi, i1, i2)\n!  qtmp (inout) - can be updated\n!                  ==========\n\n                end if\n\n             end if\n\n             do il = i1, i2\n                fx(il,ij) = fx(il,ij) * xmass(il,ij)\n             enddo\n\n!         ====\n          else\n!         ====\n\n!           ------------------------------------------------------------\n!           Do horizontal Conservative (flux-form) Semi-Lagrangian\n!           advection in the E-W direction (van Leer at high latitudes).\n!           ------------------------------------------------------------\n\n             if ((IORD == 1) .or.  &\n                  (ij == j1p) .or. (ij == j2p)) then\n\n                do il = i1, i2\n                   ic       = crx(il,ij)\n                   isav(il) = il - ic\n                   ril      = il\n                   iu       = ril - crx(il,ij)\n                   ric      = ic\n                   rc       = crx(il,ij) - ric\n\n                   fx(il,ij) = rc * qtmp(iu,ij)\n                end do\n\n             else\n\n                do il = i1, i2\n                   ic       = crx(il,ij)\n                   isav(il) = il - ic\n                   ril      = il\n                   iu       = ril - crx(il,ij)\n                   ric      = ic\n                   rc       = crx(il,ij) - ric\n\n                   fx(il,ij) =  &\n                        rc *  &\n                        (qtmp(iu,ij) +  &\n                        (dcx(iu,ij) * (Sign (1.0e+0_fp, rc) - rc)))\n                end do\n\n             end if\n\n             do il = i1, i2\n\n                if (crx(il,ij) > 1.0e+0_fp) then\n\n                   do ix = isav(il), il - 1\n                      fx(il,ij) = fx(il,ij) + qtmp(ix,ij)\n                   end do\n\n                else if (crx(il,ij) < -1.0e+0_fp) then\n\n                   do ix = il, isav(il) - 1\n                      fx(il,ij) = fx(il,ij) - qtmp(ix,ij)\n                   end do\n\n                end if\n\n             end do\n\n             do il = i1, i2\n                fx(il,ij) = pu(il,ij) * fx(il,ij)\n             enddo\n\n!         ======\n          end if\n!         ======\n\n!      ======\n       end do\n!   ======\n\n    ! NOTE: This loop does not parallelize well (bmy, 12/5/08)\n    do ij = j1p, j2p\n       do il = i1, i2-1\n\n          dq1(il,ij) = dq1(il,ij) +  &\n                         (fx(il,ij) - fx(il+1,ij))\n\n       end do\n       dq1(i2,ij) = dq1(i2,ij) +  &\n                      (fx(i2,ij) - fx(i1,ij))\n    end do\n\n  END SUBROUTINE Xtp\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xmist\n!\n! !DESCRIPTION: Subroutine Xmist computes the linear tracer slope in the\n!  E-W direction. It uses the Lin et. al. 1994 algorithm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Xmist( dcx,  qqv, J1P, J2P, I2_GL, JU1_GL, J2_GL, ILO, IHI, &\n                    JULO, JHI, I1,  I2,  JU1,   J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  ::         I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqv(-I2/3:I2+I2/3, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Slope of concentration distribution in E-W direction [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: dcx(-I2/3:I2+I2/3, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij\n    REAL(fp)  :: pmax, pmin\n    REAL(fp)  :: r24\n    REAL(fp)  :: tmp\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    r24 = 1.0e+0_fp / 24.0e+0_fp\n\n       do ij = j1p+1, j2p-1\n          do il = i1, i2\n\n             tmp =  &\n                  ((8.0e+0_fp * (qqv(il+1,ij) - qqv(il-1,ij))) +  &\n                  qqv(il-2,ij) - qqv(il+2,ij)) *  &\n                  r24\n\n             pmax =  &\n                  Max (qqv(il-1,ij), qqv(il,ij), qqv(il+1,ij)) -  &\n                  qqv(il,ij)\n\n             pmin =  &\n                  qqv(il,ij) -  &\n                  Min (qqv(il-1,ij), qqv(il,ij), qqv(il+1,ij))\n\n             dcx(il,ij) = Sign (Min (Abs (tmp), pmax, pmin), tmp)\n\n          end do\n       end do\n\n    ! Populate ghost zones of dcx (ccc, 11/20/08)\n\n    do ij = julo, jhi\n\n       do il = -i2/3, 0\n          dcx(il,ij) = dcx(i2+il,ij)\n       enddo\n\n       do il = i2+1, i2+i2/3\n          dcx(il,ij) = dcx(il-i2,ij)\n\n       enddo\n    enddo\n\n  END SUBROUTINE Xmist\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Fxppm\n!\n! !DESCRIPTION: Subroutine Fxppm is the 1D \"outer\" flux form operator based\n!  on the Piecewise Parabolic Method (PPM; see also Lin and Rood 1996) for\n!  computing the fluxes in the E-W direction.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Fxppm( ij,  ilmt, crx, dcx, fx, qqv,     &\n                    ILO, IHI, JULO, JHI, I1,  I2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Local min & max longitude (I) and altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n\n    ! Latitude (IJ) and altitude (IK) indices\n    INTEGER, INTENT(IN)    :: ij\n\n    ! Controls various options in E-W advection\n    INTEGER, INTENT(IN)    :: ilmt\n\n    ! Courant number in E-W direction\n    REAL(fp),  INTENT(IN)    :: crx(I1:I2, JULO:JHI)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n      ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(INOUT) :: qqv(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Slope of concentration distribution in E-W direction (mixing ratio)\n    REAL(fp),  INTENT(OUT)   :: dcx(ILO:IHI, JULO:JHI)\n\n    ! E-W flux [mixing ratio]\n    REAL(fp),  INTENT(OUT)   :: fx(I1:I2, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REMARKS:\n!   This routine is called from w/in a OpenMP parallel loop fro\n\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                   :: il\n    INTEGER                   :: ilm1\n    INTEGER                   :: lenx\n    REAL(fp)                    :: r13, r23\n    REAL(fp)                    :: rval\n\n    ! Arrays\n    REAL(fp)                    :: a6( ILO:IHI )\n    REAL(fp)                    :: al( ILO:IHI )\n    REAL(fp)                    :: ar( ILO:IHI )\n    REAL(fp)                    :: a61(   (IHI-1) - (ILO+1) + 1 )\n    REAL(fp)                    :: al1(   (IHI-1) - (ILO+1) + 1 )\n    REAL(fp)                    :: ar1(   (IHI-1) - (ILO+1) + 1 )\n    REAL(fp)                    :: dcxi1( (IHI-1) - (ILO+1) + 1 )\n    REAL(fp)                    :: qqvi1( (IHI-1) - (ILO+1) + 1 )\n\n    !     ----------------\n    !     Begin execution.\n    !     ----------------\n\n    ! Zero arrays (bmy, 12/5/08)\n    a6    = 0.0e+0_fp\n    al    = 0.0e+0_fp\n    ar    = 0.0e+0_fp\n    a61   = 0.0e+0_fp\n    al1   = 0.0e+0_fp\n    ar1   = 0.0e+0_fp\n    dcxi1 = 0.0e+0_fp\n    qqvi1 = 0.0e+0_fp\n\n    r13 = 1.0e+0_fp / 3.0e+0_fp\n    r23 = 2.0e+0_fp / 3.0e+0_fp\n\n\n    do il = ilo + 1, ihi\n\n       rval = 0.5e+0_fp * (qqv(il-1,ij) + qqv(il,ij)) +  &\n                      (dcx(il-1,ij) - dcx(il,ij)) * r13\n\n       al(il)   = rval\n       ar(il-1) = rval\n\n    end do\n\n\n    do il = ilo + 1, ihi - 1\n       a6(il) = 3.0e+0_fp *  &\n                (qqv(il,ij) + qqv(il,ij) - (al(il) + ar(il)))\n    end do\n\n\n!   ==============\n    if (ilmt <= 2) then\n!   ==============\n\n       a61(:) = 0.0e+0_fp\n       al1(:) = 0.0e+0_fp\n       ar1(:) = 0.0e+0_fp\n\n       dcxi1(:) = 0.0e+0_fp\n       qqvi1(:) = 0.0e+0_fp\n\n       lenx = 0\n\n       do il = ilo + 1, ihi - 1\n\n          lenx = lenx + 1\n\n          a61(lenx)   = a6(il)\n          al1(lenx)   = al(il)\n          ar1(lenx)   = ar(il)\n\n          dcxi1(lenx) = dcx(il,ij)\n          qqvi1(lenx) = qqv(il,ij)\n\n       end do\n\n!      ===========\n       call Lmtppm  &\n            (lenx, ilmt, a61, al1, ar1, dcxi1, qqvi1)\n!      ===========\n\n       lenx = 0\n\n       do il = ilo + 1, ihi - 1\n\n          lenx = lenx + 1\n\n          a6(il)   = a61(lenx)\n          al(il)   = al1(lenx)\n          ar(il)   = ar1(lenx)\n\n          dcx(il,ij) = dcxi1(lenx)\n          qqv(il,ij) = qqvi1(lenx)\n\n       end do\n\n       ! Populate ghost zones of qqv and dcx with new values (ccc, 11/20/08)\n       do il = -i2/3,0\n          dcx(il,ij) = dcx(i2+il,ij)\n          qqv(il,ij) = qqv(i2+il,ij)\n       enddo\n\n       do il = i2+1, i2+i2/3\n          dcx(il,ij) = dcx(il-i2,ij)\n          qqv(il,ij) = qqv(il-i2,ij)\n       enddo\n\n    end if\n\n\n    do il = i1+1, i2\n\n       if (crx(il,ij) > 0.0e+0_fp) then\n\n          ilm1 = il - 1\n\n          fx(il,ij) =  &\n               ar(ilm1) +  &\n               0.5e+0_fp * crx(il,ij) *  &\n               (al(ilm1) - ar(ilm1) +  &\n               (a6(ilm1) * (1.0e+0_fp - (r23 * crx(il,ij)))))\n\n       else\n\n          fx(il,ij) =  &\n               al(il) -  &\n               0.5e+0_fp * crx(il,ij) *  &\n               (ar(il) - al(il) +  &\n               (a6(il) * (1.0e+0_fp + (r23 * crx(il,ij)))))\n\n       end if\n\n    end do\n\n    ! First box case (ccc, 11/20/08)\n    if (crx(i1,ij) > 0.0e+0_fp) then\n\n       ilm1 = i2\n\n       fx(i1,ij) =  &\n            ar(ilm1) +  &\n            0.5e+0_fp * crx(i1,ij) *  &\n            (al(ilm1) - ar(ilm1) +  &\n            (a6(ilm1) * (1.0e+0_fp - (r23 * crx(i1,ij)))))\n\n    else\n\n       fx(i1,ij) =  &\n            al(i1) -  &\n            0.5e+0_fp * crx(i1,ij) *  &\n            (ar(i1) - al(i1) +  &\n            (a6(i1) * (1.0e+0_fp + (r23 * crx(i1,ij)))))\n\n    end if\n\n\n\n  END SUBROUTINE Fxppm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Lmtppm\n!\n! !DESCRIPTION: Subroutine Lmtppm enforces the full monotonic, semi-monotonic,\n!  or the positive-definite constraint to the sub-grid parabolic distribution\n!  of the Piecewise Parabolic Method (PPM).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Lmtppm( lenx, lmt, a6, al, ar, dc, qa )\n!\n! !INPUT PARAMETERS:\n\n    ! If 0 => full monotonicity;\n    ! If 1 => semi-monotonic constraint (no undershoots);\n    ! If 2 => positive-definite constraint\n    INTEGER, INTENT(IN)    :: lmt\n\n    ! Vector length\n    INTEGER, INTENT(IN)    :: lenx\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Curvature of the test parabola\n    REAL(fp),  INTENT(INOUT) :: a6(lenx)\n\n    ! Left edge value of the test parabola\n    REAL(fp),  INTENT(INOUT) :: al(lenx)\n\n    ! Right edge value of the test parabola\n    REAL(fp),  INTENT(INOUT) :: ar(lenx)\n\n    ! 0.5 * mismatch\n    REAL(fp),  INTENT(INOUT) :: dc(lenx)\n\n    ! Cell-averaged value\n    REAL(fp),  INTENT(INOUT) :: qa(lenx)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il\n    REAL(fp)  :: a6da\n    REAL(fp)  :: da1, da2\n    REAL(fp)  :: fmin, ftmp\n    REAL(fp)  :: r12\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    r12 = 1.0e+0_fp / 12.0e+0_fp\n\n\n!   =============\n    if (lmt == 0) then\n!   =============\n\n!      ----------------\n!      Full constraint.\n!      ----------------\n\n       do il = 1, lenx\n\n          if (dc(il) == 0.0e+0_fp) then\n\n             a6(il) = 0.0e+0_fp\n             al(il) = qa(il)\n             ar(il) = qa(il)\n\n          else\n\n             da1  = ar(il) - al(il)\n             da2  = da1    * da1\n             a6da = a6(il) * da1\n\n             if (a6da < -da2) then\n\n                a6(il) = 3.0e+0_fp * (al(il) - qa(il))\n                ar(il) = al(il) - a6(il)\n\n             else if (a6da > da2) then\n\n                a6(il) = 3.0e+0_fp * (ar(il) - qa(il))\n                al(il) = ar(il) - a6(il)\n\n             end if\n\n          end if\n\n       end do\n\n\n!   ==================\n    else if (lmt == 1) then\n!   ==================\n\n!      --------------------------\n!      Semi-monotonic constraint.\n!      --------------------------\n\n       do il = 1, lenx\n\n          if (Abs (ar(il) - al(il)) < -a6(il)) then\n\n             if ((qa(il) < ar(il)) .and. (qa(il) < al(il))) then\n\n                a6(il) = 0.0e+0_fp\n                al(il) = qa(il)\n                ar(il) = qa(il)\n\n             else if (ar(il) > al(il)) then\n\n                a6(il) = 3.0e+0_fp * (al(il) - qa(il))\n                ar(il) = al(il) - a6(il)\n\n             else\n\n                a6(il) = 3.0e+0_fp * (ar(il) - qa(il))\n                al(il) = ar(il) - a6(il)\n\n             end if\n\n          end if\n\n       end do\n\n\n!   ==================\n    else if (lmt == 2) then\n!   ==================\n\n       do il = 1, lenx\n\n          if (Abs (ar(il) - al(il)) < -a6(il)) then\n\n             ftmp = ar(il) - al(il)\n\n             fmin = qa(il) +  &\n                    0.25e+0_fp * (ftmp * ftmp) / a6(il) +  &\n                    a6(il) * r12\n\n             if (fmin < 0.0e+0_fp) then\n\n                if ((qa(il) < ar(il)) .and. (qa(il) < al(il))) then\n\n                   a6(il) = 0.0e+0_fp\n                   al(il) = qa(il)\n                   ar(il) = qa(il)\n\n                else if (ar(il) > al(il)) then\n\n                   a6(il) = 3.0e+0_fp * (al(il) - qa(il))\n                   ar(il) = al(il) - a6(il)\n\n                else\n\n                   a6(il) = 3.0e+0_fp * (ar(il) - qa(il))\n                   al(il) = ar(il) - a6(il)\n\n                end if\n\n             end if\n\n          end if\n\n       end do\n\n    end if\n\n\n  END SUBROUTINE Lmtppm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE:  Ytp\n!\n! !DESCRIPTION: Subroutine Ytp does horizontal advection in the N-S direction.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Ytp( jlmt,  geofac_pc, geofac, cry,  dq1,   qqu,    qqv,    &\n                  ymass, fy,        J1P,    J2P,  I1_GL, I2_GL,  JU1_GL, &\n                  J2_GL, ilong,     ILO,    IHI,  JULO,  JHI,    I1,     &\n                  I2,    JU1,       J2,    jord )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)    :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)    :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n    INTEGER, INTENT(IN)    :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n\n    ! ???\n    INTEGER, INTENT(IN)    :: ilong\n\n    ! Controls various options in N-S advection\n    INTEGER, INTENT(IN)    :: jlmt\n\n    ! N-S transport scheme (see module header for more info)\n    INTEGER, INTENT(IN)    :: jord\n\n    ! special geometrical factor (geofac) for Polar cap\n    REAL(fp),  INTENT(IN)    :: geofac_pc\n\n    ! geometrical factor for meridional advection; geofac uses correct\n    ! spherical geometry, and replaces acosp as the  meridional geometrical\n    ! factor in tpcore\n    REAL(fp),  INTENT(IN)    :: geofac(JU1_GL:J2_GL)\n\n    ! Courant number in N-S direction\n    REAL(fp),  INTENT(IN)    :: cry(ILO:IHI, JULO:JHI)\n\n    ! Concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(IN)    :: qqu(ILO:IHI, JULO:JHI)\n\n    ! Horizontal mass flux in N-S direction [hPa]\n    REAL(fp),  INTENT(IN)    :: ymass(ILO:IHI, JULO:JHI)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Species density [hPa]\n    REAL(fp),  INTENT(INOUT) :: dq1(ILO:IHI, JULO:JHI)\n\n    ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(INOUT) :: qqv(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! N-S flux [mixing ratio]\n    REAL(fp),  INTENT(OUT)   :: fy(ILO:IHI, JULO:JHI+1)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij\n    INTEGER :: jv\n    REAL(fp)  :: rj1p\n\n    ! Arrays\n    REAL(fp)  :: dcy(ilo:ihi, julo:jhi)\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    dcy(:,:) = 0.0e+0_fp\n    fy(:,:) = 0.0e+0_fp\n\n    rj1p = j1p\n\n\n!   ==============\n    if (JORD == 1) then\n!   ==============\n\n          do ij = j1p, j2p+1\n             do il = i1, i2\n!c?\n                jv = rj1p - cry(il,ij)\n\n                qqv(il,ij) = qqu(il,jv)\n\n             end do\n          end do\n\n!   ====\n    else\n!   ====\n\n!      ==========\n       call Ymist  &\n!     ==========\n            (4, dcy, qqu, &\n             i1_gl, i2_gl, ju1_gl, j2_gl, j1p, &\n             ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n\n       if ((JORD <= 0) .or. (JORD >= 3)) then\n\n!         ==========\n          call Fyppm  &\n!         ==========\n               (jlmt, cry, dcy, qqu, qqv, &\n                j1p, j2p, i1_gl, i2_gl, ju1_gl, j2_gl, ilong, &\n                ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n       else\n\n             do ij = j1p, j2p+1\n                do il = i1, i2\n!c?\n                   jv = rj1p - cry(il,ij)\n\n                   qqv(il,ij) =  &\n                        qqu(il,jv) +  &\n                        ((Sign (1.0e+0_fp, cry(il,ij)) - cry(il,ij)) *  &\n                        dcy(il,jv))\n\n                end do\n             end do\n       end if\n\n    end if\n\n    do ij = j1p, j2p+1\n       qqv(i1:i2,ij) = qqv(i1:i2,ij) * ymass(i1:i2,ij)\n    end do\n\n    !.sds.. save N-S species flux as diagnostic\n       do ij = i1,i2\n          fy(ij,j1p:j2p+1) = qqv(ij,j1p:j2p+1) * geofac(j1p:j2p+1)\n       enddo\n\n    !... meridional flux update\n    do ij = j1p, j2p\n\n       dq1(i1:i2,ij) =  &\n            dq1(i1:i2,ij) +  &\n            (qqv(i1:i2,ij) - qqv(i1:i2,ij+1)) * geofac(ij)\n\n    end do\n\n!   ====================\n    call Do_Ytp_Pole_Sum  &\n!   ====================\n         (geofac_pc, dq1, qqv, fy, &\n          i1_gl, i2_gl, ju1_gl, j2_gl, j1p, j2p, &\n          ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n  END SUBROUTINE Ytp\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ymist\n!\n! !DESCRIPTION: Subroutine Ymist computes the linear tracer slope in the N-S\n!  direction.  It uses the Lin et. al. 1994 algorithm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Ymist( id,    dcy, qqu, I1_GL, I2_GL, JU1_GL, &\n                    J2_GL, J1P, ILO, IHI,   JULO,  JHI,    &\n                    I1,    I2,  JU1, J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude index at the edge of the South polar cap\n    ! J1P=JU1_GL+1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! The \"order\" of the accuracy in the computed linear \"slope\"\n    ! (or mismatch, Lin et al. 1994); it is either 2 or 4.\n    INTEGER, INTENT(IN)  :: id\n\n    ! Concentration contribution from E-W advection (mixing ratio)\n    REAL(fp),  INTENT(IN)  :: qqu(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Slope of concentration distribution in N-S direction [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: dcy(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij\n    REAL(fp)  :: pmax, pmin\n    REAL(fp)  :: r24\n    REAL(fp)  :: tmp\n\n    ! Arrays\n    ! I suppose the values for these indexes are 0.\n    ! It should work as the pole values are re-calculated in the\n    ! pole functions. (ccc)\n    REAL(fp) :: qtmp(ilo:ihi, julo-2:jhi+2)\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    r24  = 1.0e+0_fp / 24.0e+0_fp\n\n    ! Populate qtmp\n    qtmp = 0.\n    do ij=ju1,j2\n       qtmp(:,ij) = qqu(:,ij)\n    enddo\n\n!   ============\n    if (id == 2) then\n!   ============\n\n          do ij = ju1 - 1, j2 - 1\n             do il = i1, i2\n\n                tmp  = 0.25e+0_fp * (qtmp(il,ij+2) - qtmp(il,ij))\n\n                pmax =  &\n                  Max (qtmp(il,ij), qtmp(il,ij+1), qtmp(il,ij+2)) -  &\n                  qtmp(il,ij+1)\n\n                pmin =  &\n                     qtmp(il,ij+1) -  &\n                     Min (qtmp(il,ij), qtmp(il,ij+1), qtmp(il,ij+2))\n\n                dcy(il,ij+1) = Sign (Min (Abs (tmp), pmin, pmax), tmp)\n\n             end do\n          end do\n\n!   ====\n    else\n!   ====\n\n!      ========================\n       call Do_Ymist_Pole1_I2d2 &\n!      ========================\n            (dcy, qtmp, &\n             i1_gl, i2_gl, ju1_gl, j2_gl, &\n             ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n          do ij = ju1 - 2, j2 - 2\n             do il = i1, i2\n\n                tmp  = ((8.0e+0_fp * (qtmp(il,ij+3) - qtmp(il,ij+1))) +  &\n                         qtmp(il,ij) - qtmp(il,ij+4)) *  &\n                         r24\n\n                pmax =  &\n                  Max (qtmp(il,ij+1), qtmp(il,ij+2), qtmp(il,ij+3))  &\n                       - qtmp(il,ij+2)\n\n                pmin =  &\n                     qtmp(il,ij+2) -  &\n                     Min (qtmp(il,ij+1), qtmp(il,ij+2), qtmp(il,ij+3))\n\n                dcy(il,ij+2) = Sign (Min (Abs (tmp), pmin, pmax), tmp)\n\n             end do\n          end do\n\n    end if\n\n\n!   ========================\n    call Do_Ymist_Pole2_I2d2 &\n!   ========================\n         (dcy, qtmp, &\n          i1_gl, i2_gl, ju1_gl, j2_gl, j1p, &\n          ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n\n  END SUBROUTINE Ymist\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Ymist_Pole1_I2d2\n!\n! !DESCRIPTION: Subroutine Do\\_Ymist\\_Pole1\\_I2d2 sets \"dcy\" at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Ymist_Pole1_I2d2( dcy,   qqu, I1_GL, I2_GL, JU1_GL,   &\n                                  J2_GL, ILO, IHI,   JULO,  JHI,      &\n                                  I1,    I2,  JU1,   J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global min & max longitude (I) and latitude (J) indices\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqu(ILO:IHI, JULO-2:JHI+2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Slope of concentration distribution in N-S direction [mixing ratio]\n    REAL(fp), INTENT(OUT)  :: dcy(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i2d2\n    INTEGER :: il\n    REAL(fp)  :: pmax, pmin\n    REAL(fp)  :: r24\n    REAL(fp)  :: tmp\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    i2d2 = i2_gl / 2\n\n    r24  = 1.0e+0_fp / 24.0e+0_fp\n\n\n!   ==================\n    if (ju1 == ju1_gl) then\n!   ==================\n\n          do il = i1, i2d2\n\n             tmp  =  &\n                  ((8.0e+0_fp * (qqu(il,ju1+2) - qqu(il,ju1))) +  &\n                  qqu(il+i2d2,ju1+1) - qqu(il,ju1+3)) *  &\n                  r24\n\n             pmax = Max (qqu(il,ju1), qqu(il,ju1+1),  &\n                  qqu(il,ju1+2)) -  &\n                  qqu(il,ju1+1)\n\n             pmin = qqu(il,ju1+1) -  &\n                  Min (qqu(il,ju1), qqu(il,ju1+1),  &\n                  qqu(il,ju1+2))\n\n             dcy(il,ju1+1) =  &\n                  Sign (Min (Abs (tmp), pmin, pmax), tmp)\n\n          end do\n\n          do il = i1 + i2d2, i2\n\n             tmp  =  &\n                  ((8.0e+0_fp * (qqu(il,ju1+2) - qqu(il,ju1))) +  &\n                  qqu(il-i2d2,ju1+1) - qqu(il,ju1+3)) *  &\n                  r24\n\n             pmax = Max (qqu(il,ju1), qqu(il,ju1+1),  &\n                  qqu(il,ju1+2)) -  &\n                  qqu(il,ju1+1)\n\n             pmin = qqu(il,ju1+1) -  &\n                  Min (qqu(il,ju1), qqu(il,ju1+1),  &\n                  qqu(il,ju1+2))\n\n             dcy(il,ju1+1) =  &\n                  Sign (Min (Abs (tmp), pmin, pmax), tmp)\n\n          end do\n\n!   ======\n    end if\n!   ======\n\n\n!   ================\n    if (j2 == j2_gl) then\n!   ================\n\n          do il = i1, i2d2\n\n             tmp  =  &\n                  ((8.0e+0_fp * (qqu(il,j2) - qqu(il,j2-2))) +  &\n                  qqu(il,j2-3) - qqu(il+i2d2,j2-1)) *  &\n                  r24\n\n             pmax = Max (qqu(il,j2-2), qqu(il,j2-1),  &\n                  qqu(il,j2)) -  &\n                  qqu(il,j2-1)\n\n             pmin = qqu(il,j2-1) -  &\n                  Min (qqu(il,j2-2), qqu(il,j2-1),  &\n                  qqu(il,j2))\n\n             dcy(il,j2-1) =  &\n                  Sign (Min (Abs (tmp), pmin, pmax), tmp)\n\n          end do\n\n         do il = i1 + i2d2, i2\n\n             tmp  =  &\n                  ((8.0e+0_fp * (qqu(il,j2) - qqu(il,j2-2))) +  &\n                  qqu(il,j2-3) - qqu(il-i2d2,j2-1)) *  &\n                  r24\n\n             pmax = Max (qqu(il,j2-2), qqu(il,j2-1),  &\n                  qqu(il,j2)) -  &\n                  qqu(il,j2-1)\n\n             pmin = qqu(il,j2-1) -  &\n                  Min (qqu(il,j2-2), qqu(il,j2-1),  &\n                  qqu(il,j2))\n\n             dcy(il,j2-1) =  &\n                  Sign (Min (Abs (tmp), pmin, pmax), tmp)\n\n          end do\n\n!   ======\n    end if\n!   ======\n\n\n  END SUBROUTINE Do_Ymist_Pole1_I2d2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Ymist_Pole2_I2d2\n!\n! !DESCRIPTION: Subroutine Do\\_Ymist\\_Pole2\\_I2d2 sets \"dcy\" at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Ymist_Pole2_I2d2( dcy,   qqu, I1_GL, I2_GL, JU1_GL, &\n                                  J2_GL, J1P, ILO,   IHI,   JULO,   &\n                                  JHI,   I1,  I2,    JU1,   J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude index at the edge of the South polar cap\n    ! J1P=JU1_GL+1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! Concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqu(ILO:IHI, JULO-2:JHI+2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Slope of concentration distribution in N-S direction [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: dcy(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: i2d2\n    INTEGER :: il\n    REAL(fp)  :: pmax, pmin\n    REAL(fp)  :: tmp\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    i2d2 = i2_gl / 2\n\n\n!   ==================\n    if (ju1 == ju1_gl) then\n!   ==================\n\n       if (j1p /= ju1_gl+1) then\n\n          dcy(i1:i2,ju1) = 0.0e+0_fp\n\n       else\n\n!         -----------------------------------------------\n!         Determine slope in South Polar cap for scalars.\n!         -----------------------------------------------\n\n             do il = i1, i2d2\n\n                tmp  =  &\n                     0.25e+0_fp *  &\n                     (qqu(il,ju1+1) - qqu(il+i2d2,ju1+1))\n\n                pmax =  &\n                     Max (qqu(il,ju1+1), qqu(il,ju1),  &\n                     qqu(il+i2d2,ju1+1)) -  &\n                     qqu(il,ju1)\n\n                pmin =  &\n                     qqu(il,ju1) -  &\n                     Min (qqu(il,ju1+1), qqu(il,ju1),  &\n                     qqu(il+i2d2,ju1+1))\n\n                dcy(il,ju1) =  &\n                     Sign (Min (Abs (tmp), pmax, pmin), tmp)\n\n             end do\n\n          do il = i1 + i2d2, i2\n             dcy(il,ju1) = -dcy(il-i2d2,ju1)\n          end do\n\n       end if\n\n!   ======\n    end if\n!   ======\n\n\n!   ================\n    if (j2 == j2_gl) then\n!   ================\n\n       if (j1p /= ju1_gl+1) then\n\n          dcy(i1:i2,j2) = 0.0e+0_fp\n\n       else\n\n!         -----------------------------------------------\n!         Determine slope in North Polar cap for scalars.\n!         -----------------------------------------------\n\n             do il = i1, i2d2\n\n                tmp  =  &\n                     0.25e+0_fp *  &\n                     (qqu(il+i2d2,j2-1) - qqu(il,j2-1))\n\n                pmax =  &\n                     Max (qqu(il+i2d2,j2-1), qqu(il,j2),  &\n                     qqu(il,j2-1)) -  &\n                     qqu(il,j2)\n\n                pmin =  &\n                     qqu(il,j2) -  &\n                     Min (qqu(il+i2d2,j2-1), qqu(il,j2),  &\n                     qqu(il,j2-1))\n\n                dcy(il,j2) =  &\n                     Sign (Min (Abs (tmp), pmax, pmin), tmp)\n\n             end do\n\n          do il = i1 + i2d2, i2\n             dcy(il,j2) = -dcy(il-i2d2,j2)\n          end do\n\n       end if\n\n!   ======\n    end if\n!   ======\n\n\n  END SUBROUTINE Do_Ymist_Pole2_I2d2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Fyppm\n!\n! !DESCRIPTION: Subroutine Fyppm is the 1D \"outer\" flux form operator based\n!  on the Piecewise Parabolic Method (PPM; see also Lin and Rood 1996) for\n!  computing the fluxes in the N-S direction.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Fyppm( jlmt,  cry,   dcy,    qqu,   qqv,   j1p, j2p,    &\n                    i1_gl, i2_gl, ju1_gl, j2_gl, ilong, ilo, ihi,    &\n                    julo,  jhi,   i1,     i2,    ju1,   j2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)  :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)  :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)  :: I1,     I2\n    INTEGER, INTENT(IN)  :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)  :: ILO,    IHI\n    INTEGER, INTENT(IN)  :: JULO,   JHI\n\n    ! ILONG ??\n    INTEGER, INTENT(IN)  :: ilong\n\n    ! Controls various options in N-S advection\n    INTEGER, INTENT(IN)  :: jlmt\n\n    ! Courant number in N-S direction\n    REAL(fp),  INTENT(IN)  :: cry(ILO:IHI, JULO:JHI)\n\n    ! Slope of concentration distribution in N-S direction [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: dcy(ILO:IHI, JULO:JHI)\n\n    ! Concentration contribution from E-W advection [mixing ratio]\n    REAL(fp),  INTENT(IN)  :: qqu(ILO:IHI, JULO:JHI)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(OUT) :: qqv(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: ijm1\n    INTEGER :: il, ij\n    INTEGER :: lenx\n    REAL(fp)  :: r13, r23\n\n    ! Arrays\n    REAL(fp)  :: a61 (ilong*((JHI-1)-(JULO+1)+1))\n    REAL(fp)  :: al1 (ilong*((JHI-1)-(JULO+1)+1))\n    REAL(fp)  :: ar1 (ilong*((JHI-1)-(JULO+1)+1))\n    REAL(fp)  :: dcy1(ilong*((JHI-1)-(JULO+1)+1))\n    REAL(fp)  :: qqu1(ilong*((JHI-1)-(JULO+1)+1))\n    REAL(fp)  :: a6(ILO:IHI, JULO:JHI)\n    REAL(fp)  :: al(ILO:IHI, JULO:JHI)\n    REAL(fp)  :: ar(ILO:IHI, JULO:JHI)\n\n    ! NOTE: The code was writtein with I1:I2 as the first dimension of AL,\n    ! AR, A6, AL1, A61, AR1.  However, the limits should really should be\n    ! ILO:IHI.  In practice, however, for a global grid (and OpenMP\n    ! parallelization) ILO=I1 and IHI=I2.  Nevertheless, we will change the\n    ! limits to ILO:IHI to be consistent and to avoid future problems.\n    ! (bmy, 12/5/08)\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    a6(:,:) = 0.0e+0_fp; al(:,:) = 0.0e+0_fp; ar(:,:) = 0.0e+0_fp\n\n\n    r13 = 1.0e+0_fp / 3.0e+0_fp\n    r23 = 2.0e+0_fp / 3.0e+0_fp\n\n    do ij = julo+1, jhi\n    do il = ilo,    ihi\n       al(il,ij) =  &\n            0.5e+0_fp * (qqu(il,ij-1) + qqu(il,ij)) +  &\n            (dcy(il,ij-1) - dcy(il,ij)) * r13\n       ar(il,ij-1) = al(il,ij)\n    end do\n    end do\n\n!   =======================\n    call Do_Fyppm_Pole_I2d2 &\n!   =======================\n         (al, ar, &\n          i1_gl, i2_gl, ju1_gl, j2_gl, &\n          ilo, ihi, julo, jhi, i1, i2, ju1, j2)\n\n    do ij = julo+1, jhi-1\n    do il = ilo,    ihi\n\n       a6(il,ij) =  &\n            3.0e+0_fp *  &\n            (qqu(il,ij) + qqu(il,ij) -  &\n            (al(il,ij) + ar(il,ij)))\n\n    end do\n    end do\n\n!   ==============\n    if (jlmt <= 2) then\n!   ==============\n\n\n          lenx = 0\n\n          do ij = julo + 1, jhi - 1\n             do il = ilo, ihi\n\n                lenx = lenx + 1\n\n                a61 (lenx) = a6 (il,ij)\n                al1 (lenx) = al (il,ij)\n                ar1 (lenx) = ar (il,ij)\n                dcy1(lenx) = dcy(il,ij)\n                qqu1(lenx) = qqu(il,ij)\n\n             end do\n          end do\n\n!         ===========\n          call Lmtppm  &\n               (lenx, jlmt, a61, al1, ar1, dcy1, qqu1)\n!         ===========\n\n          lenx = 0\n\n          do ij = julo + 1, jhi - 1\n             do il = ilo, ihi\n\n                lenx = lenx + 1\n\n                a6(il,ij) = a61(lenx)\n                al(il,ij) = al1(lenx)\n                ar(il,ij) = ar1(lenx)\n\n             end do\n          end do\n\n\n    end if\n\n\n       do ij = j1p, j2p+1\n\n          ijm1 = ij - 1\n\n          do il = ilo, ihi\n\n             if (cry(il,ij) > 0.0e+0_fp) then\n\n                qqv(il,ij) =  &\n                     ar(il,ijm1) +  &\n                     0.5e+0_fp * cry(il,ij) *  &\n                     (al(il,ijm1) - ar(il,ijm1) +  &\n                     (a6(il,ijm1) * (1.0e+0_fp - (r23 * cry(il,ij)))))\n\n             else\n\n                qqv(il,ij) =  &\n                     al(il,ij) -  &\n                     0.5e+0_fp * cry(il,ij) *  &\n                     (ar(il,ij) - al(il,ij) +  &\n                     (a6(il,ij) * (1.0e+0_fp + (r23 * cry(il,ij)))))\n\n             end if\n\n          end do\n\n       end do\n\n\n  END SUBROUTINE Fyppm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Fyppm_Pole_I2d2\n!\n! !DESCRIPTION: Subroutine Do\\_Fyppm\\_Pole\\_I2d2  sets \"al\" \\& \"ar\" at\n!  the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Fyppm_Pole_I2d2( al,  ar,  I1_GL, I2_GL, JU1_GL, J2_GL, &\n                                 ILO, IHI, JULO,  JHI,   I1,     I2,    &\n                                 JU1, J2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)    :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n    INTEGER, INTENT(IN)    :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Left (al) and right (ar) edge values of the test parabola\n    REAL(fp),  INTENT(INOUT) :: al(ILO:IHI, JULO:JHI)\n    REAL(fp),  INTENT(INOUT) :: ar(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: i2d2\n    INTEGER :: il\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    i2d2 = i2_gl / 2\n\n\n       do il = i1, i2d2\n          al(il,     ju1) = al(il+i2d2,ju1+1)\n          al(il+i2d2,ju1) = al(il,     ju1+1)\n          ar(il,     j2)  = ar(il+i2d2,j2-1)\n          ar(il+i2d2,j2)  = ar(il,     j2-1)\n       end do\n\n\n\n  END SUBROUTINE Do_Fyppm_Pole_I2d2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Ytp_Pole_Sum\n!\n! !DESCRIPTION: Subroutine Do\\_Ytp\\_Pole\\_Sum sets \"dq1\" at the Poles.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Ytp_Pole_Sum( geofac_pc, dq1,    qqv,   fy,  I1_GL,  &\n                              I2_GL,     JU1_GL, J2_GL, J1P, J2P,    &\n                              ILO,       IHI,    JULO,  JHI, I1,     &\n                              I2,        JU1,    J2 )\n!\n! !input PARAMETERS:\n!\n    ! Global latitude indices at the edges of the S/N polar caps\n    ! J1P=JU1_GL+1; J2P=J2_GL-1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2; J2P=J2_GL-2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)    :: J1P,    J2P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: I1_GL,  I2_GL\n    INTEGER, INTENT(IN)    :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n    INTEGER, INTENT(IN)    :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n\n    ! Special geometrical factor (geofac) for Polar cap\n    REAL(fp),  INTENT(IN)    :: geofac_pc\n\n    ! Concentration contribution from N-S advection [mixing ratio]\n    REAL(fp),  INTENT(IN)    :: qqv(ILO:IHI, JULO:JHI)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Species density [hPa]\n    REAL(fp),  INTENT(INOUT) :: dq1(ILO:IHI, JULO:JHI)\n\n    ! N-S mass flux [mixing ratio]\n    REAL(fp),  INTENT(INOUT) :: fy (ILO:IHI, JULO:JHI+1)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ik\n    REAL(fp)  :: ri2\n\n    ! Arrays\n    REAL(fp)  :: dq_np\n    REAL(fp)  :: dq_sp\n    REAL(fp)  :: dqik(2)  ! 2 elements array for each pole value.\n    REAL(fp)  :: sumnp\n    REAL(fp)  :: sumsp\n\n\n!   ----------------\n!   Begin execution.\n!   ----------------\n\n    ri2 = i2_gl\n\n    dqik(:) = 0.0e+0_fp\n\n\n!... Integrate N-S flux around polar cap lat circle for each level\n\n          sumsp = 0.0e+0_fp\n          sumnp = 0.0e+0_fp\n\n          do il = i1, i2\n             sumsp = sumsp + qqv(il,j1p)\n             sumnp = sumnp + qqv(il,j2p+1)\n          enddo\n\n\n!... wrap in E-W direction\n       if (i1 == i1_gl) then\n          dqik(1) = dq1(i1,ju1)\n          dqik(2) = dq1(i1,j2)\n       endif\n\n!... normalize and set inside polar cap\n\n          dq_sp = dqik(1) - (sumsp / ri2 * geofac_pc)\n          dq_np = dqik(2) + (sumnp / ri2 * geofac_pc)\n\n          do il = i1, i2\n             dq1(il,ju1) = dq_sp\n             dq1(il,j2) = dq_np\n!... save polar flux\n             fy(il,ju1) = - (sumsp / ri2 * geofac_pc)\n             fy(il,j2+1) = (sumnp / ri2* geofac_pc)\n          enddo\n\n          if (j1p /= ju1_gl+1) then\n             do il = i1, i2\n                dq1(il,ju1+1) = dq_sp\n                dq1(il,j2-1) = dq_np\n!... save polar flux\n                fy(il,ju1+1) = - (sumsp / ri2 * geofac_pc)\n                fy(il,j2) = (sumnp / ri2* geofac_pc)\n             enddo\n\n          endif\n\n\n  END SUBROUTINE Do_Ytp_Pole_Sum\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Fzppm\n!\n! !DESCRIPTION: Subroutine Fzppm is the 1D \"outer\" flux form operator based\n!  on the Piecewise Parabolic Method (PPM; see also Lin and Rood 1996) for\n!  computing the fluxes in the vertical direction.\n!\\\\\n!\\\\\n!  Fzppm was modified by S.-J. Lin, 12/14/98, to allow the use of the KORD=7\n!  (klmt=4) option.  KORD=7 enforces the 2nd monotonicity constraint of\n!  Huynh (1996).  Note that in Huynh's original scheme, two constraints are\n!  necessary for the preservation of monotonicity.  To use Huynh's\n!  algorithm, it was modified as follows.  The original PPM is still used to\n!  obtain the first guesses for the cell edges, and as such Huynh's 1st\n!  constraint is no longer needed.  Huynh's median function is also replaced\n!  by a simpler yet functionally equivalent in-line algorithm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Fzppm( klmt,  delp1,  wz,  dq1, qq1,  fz,      &\n                    J1P,   JU1_GL, J2_GL, ILO, IHI, JULO, JHI,     &\n                    ILONG, IVERT,  I1,    I2,  JU1, J2,   K1,  K2 )\n!\n! !INPUT PARAMETERS:\n!\n    ! Global latitude index at the edges of the South polar cap\n    ! J1P=JU1_GL+1 for a polar cap of 1 latitude band\n    ! J1P=JU1_GL+2 for a polar cap of 2 latitude bands\n    INTEGER, INTENT(IN)    :: J1P\n\n    ! Global min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: JU1_GL, J2_GL\n\n    ! Local min & max longitude (I), latitude (J), altitude (K) indices\n    INTEGER, INTENT(IN)    :: I1,     I2\n    INTEGER, INTENT(IN)    :: JU1,    J2\n    INTEGER, INTENT(IN)    :: K1,     K2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)    :: ILO,    IHI\n    INTEGER, INTENT(IN)    :: JULO,   JHI\n\n    ! Dimensions in longitude & altitude ???\n    INTEGER, INTENT(IN)    :: ilong,  ivert\n\n    ! Controls various options in vertical advection\n    INTEGER, INTENT(IN)    :: klmt\n\n    ! Pressure thickness, the pseudo-density in a\n    ! hydrostatic system at t1 [hPa]\n    REAL(fp),  INTENT(IN)    :: delp1(ILO:IHI, JULO:JHI, K1:K2)\n\n    ! Large scale mass flux (per time step tdt) in the vertical\n    ! direction as diagnosed from the hydrostatic relationship [hPa]\n    REAL(fp),  INTENT(IN)    :: wz(I1:I2, JU1:J2, K1:K2)\n\n    ! Species concentration [mixing ratio]\n    REAL(fp),  INTENT(IN)    :: qq1(:,:,:)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Species density [hPa]\n    REAL(fp),  INTENT(INOUT) :: dq1(ILO:IHI, JULO:JHI, K1:K2)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Vertical flux [mixing ratio]\n    REAL(fp),  INTENT(OUT)   :: fz(ILO:IHI, JULO:JHI,  K1:K2)\n!\n! !AUTHOR:\n!   Original code from Shian-Jiann Lin, DAO\n!   John Tannahill, LLNL (jrt@llnl.gov)\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: il, ij, ik\n    INTEGER :: k1p1, k1p2\n    INTEGER :: k2m1, k2m2\n    INTEGER :: lenx\n    REAL(fp)  :: a1, a2\n    REAL(fp)  :: aa, bb\n    REAL(fp)  :: c0, c1, c2\n    REAL(fp)  :: cm, cp\n    REAL(fp)  :: fac1, fac2\n    REAL(fp)  :: lac\n    REAL(fp)  :: qmax, qmin\n    REAL(fp)  :: qmp\n    REAL(fp)  :: r13, r23\n    REAL(fp)  :: tmp\n\n    ! Arrays\n    REAL(fp)  :: a61  (ilong*(ivert-4))\n    REAL(fp)  :: al1  (ilong*(ivert-4))\n    REAL(fp)  :: ar1  (ilong*(ivert-4))\n    REAL(fp)  :: dca1 (ilong*(ivert-4))\n    REAL(fp)  :: qq1a1(ilong*(ivert-4))\n    REAL(fp)  :: a6   (i1:i2, k1:k2)\n    REAL(fp)  :: al   (i1:i2, k1:k2)\n    REAL(fp)  :: ar   (i1:i2, k1:k2)\n    REAL(fp)  :: dca  (i1:i2, k1:k2)\n    REAL(fp)  :: dlp1a(i1:i2, k1:k2)\n    REAL(fp)  :: qq1a (i1:i2, k1:k2)\n    REAL(fp)  :: wza  (i1:i2, k1:k2)\n    REAL(fp)  :: dc   (i1:i2, ju1:j2, k1:k2)\n    ! Work array\n    REAL(fp)  :: dpi(I1:I2, JU1:J2, K1:K2)\n\n\n\n!     ----------------\n!     Begin execution.\n!     ----------------\n\n    a6(:,:) = 0.0e+0_fp\n    al(:,:) = 0.0e+0_fp\n    ar(:,:) = 0.0e+0_fp\n    dc(:,:,:) = 0.0e+0_fp\n!.sds... diagnostic vertical flux for species - set top to 0.0\n    fz(:,:,:) = 0.0\n\n\n    k1p1 = k1 + 1\n    k1p2 = k1 + 2\n\n    k2m1 = k2 - 1\n    k2m2 = k2 - 2\n\n    r13  = 1.0e+0_fp / 3.0e+0_fp\n    r23  = 2.0e+0_fp / 3.0e+0_fp\n\n\n!   -------------------\n!   Compute dc for PPM.\n!   -------------------\n\n    do ik = k1, k2m1\n       dpi(:,:,ik) = qq1(i1:i2,ju1:j2,ik+1) - qq1(i1:i2,ju1:j2,ik)\n    end do\n\n\n    do ik = k1p1, k2m1\n\n       do ij = ju1, j2\n          do il = i1, i2\n\n             c0 = delp1(il,ij,ik) /  &\n                  (delp1(il,ij,ik-1) + delp1(il,ij,ik) +  &\n                  delp1(il,ij,ik+1))\n\n             c1 = (delp1(il,ij,ik-1) + (0.5e+0_fp * delp1(il,ij,ik))) /  &\n                  (delp1(il,ij,ik+1) + delp1(il,ij,ik))\n\n             c2 = (delp1(il,ij,ik+1) + (0.5e+0_fp * delp1(il,ij,ik))) /  &\n                  (delp1(il,ij,ik-1) + delp1(il,ij,ik))\n\n             tmp = c0 *  &\n                   ((c1 * dpi(il,ij,ik)) +  &\n                   (c2 * dpi(il,ij,ik-1)))\n\n             qmax =  &\n                  Max (qq1(il,ij,ik-1),  &\n                  qq1(il,ij,ik),  &\n                  qq1(il,ij,ik+1)) -  &\n                  qq1(il,ij,ik)\n\n             qmin =  &\n                  qq1(il,ij,ik) -  &\n                  Min (qq1(il,ij,ik-1),  &\n                       qq1(il,ij,ik),  &\n                       qq1(il,ij,ik+1))\n\n             dc(il,ij,ik) = Sign (Min (Abs (tmp), qmax, qmin), tmp)\n\n          end do\n       end do\n\n    end do\n\n\n!c?\n!   -------------------------------------\n!   Loop over latitudes (to save memory).\n!   -------------------------------------\n\n!   =======================\n    ijloop: do ij = ju1, j2\n!   =======================\n\n       if (((ij == ju1_gl+1) .or. (ij == j2_gl-1)) .and.  &\n            (j1p /= ju1_gl+1)) then\n!         ============\n          cycle ijloop\n!         ============\n       end if\n\n       do ik = k1, k2\n       do il = i1, i2\n          dca  (il,ik) = dc   (il,ij,ik)  ! the monotone slope\n          wza  (il,ik) = wz   (il,ij,ik)\n          dlp1a(il,ik) = delp1(il,ij,ik)\n          qq1a (il,ik) = qq1  (il,ij,ik)\n       enddo\n       enddo\n\n!     ----------------------------------------------------------------\n!     Compute first guesses at cell interfaces.  First guesses are\n!     required to be continuous.  Three-cell parabolic subgrid\n!     distribution at model top; two-cell parabolic with zero gradient\n!     subgrid distribution at the surface.\n!     ----------------------------------------------------------------\n\n!     ---------------------------\n!     First guess top edge value.\n!     ---------------------------\n\n       do il = i1, i2\n\n!         ------------------------------------------------------------\n!         Three-cell PPM; compute a, b, & c of q = aP^2 + bP + c using\n!         cell averages and dlp1a.\n!         ------------------------------------------------------------\n\n          fac1 = dpi(il,ij,k1p1) -  &\n                 dpi(il,ij,k1) * (dlp1a(il,k1p1) + dlp1a(il,k1p2)) /  &\n                 (dlp1a(il,k1) + dlp1a(il,k1p1))\n\n          fac2 = (dlp1a(il,k1p1) + dlp1a(il,k1p2)) *  &\n                 (dlp1a(il,k1) + dlp1a(il,k1p1) + dlp1a(il,k1p2))\n\n          aa = 3.0e+0_fp * fac1 / fac2\n\n          bb =  &\n               2.0e+0_fp * dpi(il,ij,k1) / (dlp1a(il,k1) + dlp1a(il,k1p1)) -  &\n               r23 * aa * (2.0e+0_fp * dlp1a(il,k1) + dlp1a(il,k1p1))\n\n          al(il,k1) = qq1a(il,k1) -  &\n               dlp1a(il,k1) *  &\n               (r13 * aa * dlp1a(il,k1) +  &\n               0.5e+0_fp * bb)\n\n          al(il,k1p1) = dlp1a(il,k1) * (aa * dlp1a(il,k1) + bb) +  &\n               al(il,k1)\n\n!         ---------------------\n!         Check if change sign.\n!         ---------------------\n\n          if ((qq1a(il,k1) * al(il,k1)) <= 0.0e+0_fp) then\n\n             al (il,k1) = 0.0e+0_fp\n             dca(il,k1) = 0.0e+0_fp\n\n          else\n\n             dca(il,k1) = qq1a(il,k1) - al(il,k1)\n\n          end if\n\n       end do\n\n!      -------\n!      Bottom.\n!      -------\n\n       do il = i1, i2\n\n!         ---------------------------------------------------\n!         2-cell PPM with zero gradient right at the surface.\n!         ---------------------------------------------------\n\n          fac1 = dpi(il,ij,k2m1) * (dlp1a(il,k2) * dlp1a(il,k2)) /  &\n                 ((dlp1a(il,k2) + dlp1a(il,k2m1)) *  &\n                 (2.0e+0_fp * dlp1a(il,k2) + dlp1a(il,k2m1)))\n\n          ar(il,k2) = qq1a(il,k2) + fac1\n          al(il,k2) = qq1a(il,k2) - (fac1 + fac1)\n\n          if ((qq1a(il,k2) * ar(il,k2)) <= 0.0e+0_fp) then\n             ar(il,k2) = 0.0e+0_fp\n          end if\n\n          dca(il,k2) = ar(il,k2) - qq1a(il,k2)\n\n       end do\n\n\n!     ----------------------------------------\n!     4th order interpolation in the interior.\n!     ----------------------------------------\n\n       do ik = k1p2, k2m1\n          do il = i1, i2\n\n             c1 = (dpi(il,ij,ik-1) * dlp1a(il,ik-1)) /  &\n                  (dlp1a(il,ik-1) + dlp1a(il,ik))\n\n             c2 = 2.0e+0_fp /  &\n                  (dlp1a(il,ik-2) + dlp1a(il,ik-1) +  &\n                  dlp1a(il,ik)   + dlp1a(il,ik+1))\n\n             a1 = (dlp1a(il,ik-2) + dlp1a(il,ik-1)) /  &\n                  (2.0e+0_fp * dlp1a(il,ik-1) + dlp1a(il,ik))\n\n             a2 = (dlp1a(il,ik) + dlp1a(il,ik+1)) /  &\n                  (2.0e+0_fp * dlp1a(il,ik) + dlp1a(il,ik-1))\n\n             al(il,ik) =  &\n                  qq1a(il,ik-1) + c1 +  &\n                  c2 *  &\n                  (dlp1a(il,ik) * (c1 * (a1 - a2) + a2 * dca(il,ik-1)) -  &\n                  dlp1a(il,ik-1) * a1 * dca(il,ik))\n\n          end do\n       end do\n\n       do ik = k1, k2m1\n       do il = i1, i2\n          ar(il,ik) = al(il,ik+1)\n       end do\n       end do\n\n!      ---------------------------------------\n!      Top & Bottom 2 layers always monotonic.\n!      ---------------------------------------\n\n       lenx = i2 - i1 + 1\n\n       do ik = k1, k1p1\n\n          do il = i1, i2\n\n             a6(il,ik) =  &\n                  3.0e+0_fp * (qq1a(il,ik) + qq1a(il,ik) -  &\n                  (al(il,ik)  + ar(il,ik)))\n          end do\n\n!         ===========\n          call Lmtppm  &\n               (lenx, 0, a6(i1,ik), al(i1,ik), ar(i1,ik),  &\n               dca(i1,ik), qq1a(i1,ik))\n!         ===========\n\n       end do\n\n\n       do ik = k2m1, k2\n\n          do il = i1, i2\n\n             a6(il,ik) =  &\n                  3.0e+0_fp * (qq1a(il,ik) + qq1a(il,ik) -  &\n                  (al(il,ik)  + ar(il,ik)))\n          end do\n\n!         ===========\n          call Lmtppm  &\n               (lenx, 0, a6(i1,ik), al(i1,ik), ar(i1,ik),  &\n                dca(i1,ik), qq1a(i1,ik))\n!         ===========\n\n       end do\n\n\n!      ---------------------------\n!      Interior depending on klmt.\n!      ---------------------------\n\n!      ==============\n       if (klmt == 4) then\n!       ==============\n\n!         -------------------------------\n!         KORD=7, Huynh's 2nd constraint.\n!         -------------------------------\n\n          do ik = k1p1, k2m1\n          do il = i1,   i2\n             dca(il,ik) = dpi(il,ij,ik) - dpi(il,ij,ik-1)\n          end do\n          end do\n\n\n          do ik = k1p2, k2m2\n             do il = i1, i2\n\n!             ------------\n!             Right edges.\n!             ------------\n\n                qmp   = qq1a(il,ik) + (2.0e+0_fp * dpi(il,ij,ik-1))\n                lac   = qq1a(il,ik) +  &\n                     (1.5e+0_fp * dca(il,ik-1)) + (0.5e+0_fp * dpi(il,ij,ik-1))\n                qmin  = Min (qq1a(il,ik), qmp, lac)\n                qmax  = Max (qq1a(il,ik), qmp, lac)\n\n                ar(il,ik) = Min (Max (ar(il,ik), qmin), qmax)\n\n!             -----------\n!             Left edges.\n!             -----------\n\n                qmp   = qq1a(il,ik) - (2.0e+0_fp * dpi(il,ij,ik))\n                lac   = qq1a(il,ik) +  &\n                        (1.5e+0_fp * dca(il,ik+1)) - (0.5e+0_fp * dpi(il,ij,ik))\n                qmin  = Min (qq1a(il,ik), qmp, lac)\n                qmax  = Max (qq1a(il,ik), qmp, lac)\n\n                al(il,ik) = Min (Max (al(il,ik), qmin), qmax)\n\n!             -------------\n!             Recompute a6.\n!             -------------\n\n                a6(il,ik) =  &\n                     3.0e+0_fp * (qq1a(il,ik) + qq1a(il,ik) -  &\n                     (ar(il,ik)  + al(il,ik)))\n             end do\n          end do\n\n\n!      ===================\n       else if (klmt <= 2) then\n!      ===================\n\n          lenx = 0\n\n          do ik = k1p2, k2m2\n             do il = i1, i2\n\n                lenx = lenx + 1\n\n                al1  (lenx) = al  (il,ik)\n                ar1  (lenx) = ar  (il,ik)\n                dca1 (lenx) = dca (il,ik)\n                qq1a1(lenx) = qq1a(il,ik)\n\n                a61  (lenx) = 3.0e+0_fp * (qq1a1(lenx) + qq1a1(lenx) -  &\n                             (al1(lenx)  + ar1(lenx)))\n             end do\n          end do\n\n!         ===========\n          call Lmtppm  &\n               (lenx, klmt, a61, al1, ar1, dca1, qq1a1)\n!         ===========\n\n          lenx = 0\n\n          do ik = k1p2, k2m2\n             do il = i1, i2\n\n                lenx = lenx + 1\n\n                a6  (il,ik) = a61  (lenx)\n                al  (il,ik) = al1  (lenx)\n                ar  (il,ik) = ar1  (lenx)\n                dca (il,ik) = dca1 (lenx)\n                qq1a(il,ik) = qq1a1(lenx)\n\n             end do\n          end do\n\n\n       end if\n\n\n       do ik = k1, k2m1\n          do il = i1, i2\n\n             if (wza(il,ik) > 0.0e+0_fp) then\n\n                cm = wza(il,ik) / dlp1a(il,ik)\n\n                dca(il,ik+1) =  &\n                     ar(il,ik) +  &\n                     0.5e+0_fp * cm *  &\n                     (al(il,ik) - ar(il,ik) +  &\n                     a6(il,ik) * (1.0e+0_fp - r23 * cm))\n\n             else\n\n                cp = wza(il,ik) / dlp1a(il,ik+1)\n\n                dca(il,ik+1) =  &\n                     al(il,ik+1) +  &\n                     0.5e+0_fp * cp *  &\n                     (al(il,ik+1) - ar(il,ik+1) -  &\n                     a6(il,ik+1) * (1.0e+0_fp + r23 * cp))\n\n             end if\n\n          end do\n       end do\n\n       do ik = k1, k2m1\n       do il = i1, i2\n          dca(il,ik+1) = wza(il,ik) * dca(il,ik+1)\n          !.sds.. save vertical flux for species as diagnostic\n          fz(il,ij,ik+1) = dca(il,ik+1)\n       end do\n       end do\n\n       do il = i1, i2\n          dq1(il,ij,k1) = dq1(il,ij,k1) - dca(il,k1p1)\n          dq1(il,ij,k2) = dq1(il,ij,k2) + dca(il,k2)\n       enddo\n\n       do ik = k1p1, k2m1\n       do il = i1,   i2\n\n          dq1(il,ij,ik) =  &\n               dq1(il,ij,ik) + dca(il,ik) - dca(il,ik+1)\n\n       end do\n       end do\n!   =============\n    end do ijloop\n!   =============\n\n\n  END SUBROUTINE Fzppm\n\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Average_Press_Poles\n!\n! !DESCRIPTION: Subroutine Average\\_Press\\_Poles averages pressure at the\n!  Poles when the Polar cap is enlarged.  It makes the last two latitudes\n!  equal.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Average_Press_Poles( area_1D, press, I1,  I2,   JU1,  &\n                                  J2,      ILO,   IHI, JULO, JHI )\n!\n! !INPUT PARAMETERS:\n!\n    ! Local min & max longitude (I), latitude (J)\n    INTEGER, INTENT(IN)   :: I1,     I2\n    INTEGER, INTENT(IN)   :: JU1,    J2\n\n    ! Local min & max longitude (I) and latitude (J) indices\n    INTEGER, INTENT(IN)   :: ILO,    IHI\n    INTEGER, INTENT(IN)   :: JULO,   JHI\n\n    ! Surface area of grid box\n    REAL(fp),  INTENT(IN)   :: AREA_1D(JU1:J2)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Surface pressure [hPa]\n    REAL(fp), INTENT(INOUT) :: press(ILO:IHI, JULO:JHI)\n!\n! !AUTHOR:\n!   Philip Cameron-Smith and John Tannahill, GMI project @ LLNL (2003)\n!   Implemented into GEOS-Chem by Claire Carouge (ccarouge@seas.harvard.edu)\n!\n! !REMARKS:\n!  Subroutine from pjc_pfix.  Call this one once everything is working fine.\n!\n! !REVISION HISTORY:\n!   05 Dec 2008 - C. Carouge  - Replaced TPCORE routines by S-J Lin and Kevin\n!                               Yeh with the TPCORE routines from GMI model.\n!                               This eliminates the polar overshoot in the\n!                               stratosphere.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: I, J\n    REAL(fp)  :: meanp\n    REAL(fp)  :: REL_AREA(JU1:J2)\n    REAL(fp)  :: SUM_AREA\n\n    !----------------\n    !Begin execution.\n    !----------------\n\n    ! Compute the sum of surface area\n    SUM_AREA = SUM( AREA_1D ) * DBLE( I2 )\n\n    ! Calculate rel_area for each lat. (ccc, 11/20/08)\n    DO J = JU1, J2\n       REL_AREA(J) = AREA_1D(J) / SUM_AREA\n    ENDDO\n\n    !--------------\n    ! South Pole\n    !--------------\n\n    ! Surface area of the S. Polar cap\n    SUM_AREA = SUM( rel_area( JU1:JU1+1 ) ) * DBLE( I2 )\n\n    ! Zero\n    meanp = 0.e+0_fp\n\n    ! Sum pressure * surface area over the S. Polar cap\n    DO J = JU1, JU1+1\n    DO I = I1,  I2\n       meanp = meanp + ( rel_area(J)  * press(I,J) )\n    ENDDO\n    ENDDO\n\n    ! Normalize pressure in all grid boxes w/in the S. Polar cap\n    press( :, JU1:JU1+1 ) = meanp / SUM_AREA\n\n    !--------------\n    ! North Pole\n    !--------------\n\n    ! Surface area of the N. Polar cap\n    SUM_AREA = SUM( rel_area( J2-1:J2 ) ) * DBLE( I2 )\n\n    ! Zero\n    meanp = 0.e+0_fp\n\n    ! Sum pressure * surface area over the N. Polar cap\n    DO J = J2-1, J2\n    DO I = I1,   I2\n       meanp = meanp + ( rel_area(J)  * press(I,J) )\n    ENDDO\n    ENDDO\n\n    ! Normalize pressure in all grid boxes w/in the N. Polar cap\n    press( :, J2-1:J2 ) = meanp / SUM_AREA\n\n  END SUBROUTINE Average_Press_Poles\n\nEND MODULE Tpcore_FvDas_mod\n!EOC\n"
  },
  {
    "path": "GeosCore/tpcore_window_mod.F90",
    "content": "! $Id: tpcore_window_mod.f90,v 1.2 2009/10/15 17:46:23 bmy Exp $\nmodule TPCORE_WINDOW_MOD\n!\n!******************************************************************************\n!  Module TPCORE_WINDOW_MOD contains routines for the GEOS-4/fvDAS\n!  transport scheme.  Original code from S-J Lin and Kevin Yeh.\n!  (bdf, bmy, 5/7/03, 10/29/04)\n!\n!  The Harvard Atmospheric Chemistry Modeling Group has modified the original\n!  code in order to implement the Philip-Cameron Smith pressure fixer for mass\n!  conservation, and also to save out mass fluxes.  These changes are denoted\n!  in the code by comment tag lines !%%%%%%%.  Also, all modifications to the\n!  original code are written in ALL CAPITALS.\n!\n!  Module Routines:\n!  ============================================================================\n!  (1 ) INIT_TPCORE    : Initialization routine for TPCORE\n!  (2 ) EXIT_TPCORE    : Cleanup and exit routine for TPCORE\n!  (3 ) TPCORE_FVDAS   : Driver routine for GEOS-4/TPCORE transport scheme\n!  (4 ) AIR_MASS_FLUX  : TPCORE internal routine\n!  (5 ) TP2G           : TPCORE internal routine\n!  (6 ) TP2D           : TPCORE internal routine\n!  (7 ) XTP            : TPCORE internal routine\n!  (8 ) XMIST          : TPCORE internal routine\n!  (9 ) FXPPM          : TPCORE internal routine\n!  (10) LMPPM          : TPCORE internal routine\n!  (11) HUYNH          : TPCORE internal routine\n!  (12) YTP            : TPCORE internal routine\n!  (13) YMIST          : TPCORE internal routine\n!  (14) FYPPM          : TPCORE internal routine\n!  (15) XPAVG          : TPCORE internal routine\n!  (16) QMAP           : TPCORE internal routine\n!  (17) MAP1_PPM       : TPCORE internal routine\n!  (18) PPM2M          : TPCORE internal routine\n!  (19) STEEPZ         : TPCORE internal routine\n!  (20) KMPPM          : TPCORE internal routine\n!  (21) FCT_X          : TPCORE internal routine\n!  (22) FILLZ          : TPCORE internal routine\n!  (23) PFIX           : TPCORE internal routine\n!  (24) GMEAN          : TPCORE internal routine\n!  (25) ADJ_FX         : TPCORE internal routine\n!\n!  GEOS-CHEM modules referenced by \"tpcore_fvdas_mod.f90\"\n!  ============================================================================\n!  none\n!\n!  NOTES:\n!  (1 ) Renamed this module from \"transport_fv.F90\" to \"tpcore_fvdas_mod.f90\"\n!        to be more consistent with GEOS-CHEM naming convention.\n!  (2 ) Renamed routine TPCORE to TPCORE_FVDAS to avoid conflict with\n!        existing routine TPCORE from S-J Lin's version 7.1.m.\n!  (3 ) Added code for PJC pressure fixer.  Also now declare everything\n!        PRIVATE except for INIT_TPCORE, TPCORE_FVDAS, and EXIT_TPCORE.\n!        (bdf, bmy, 5/7/03)\n!  (4 ) Added modifications to save mass fluxes in ND24, ND25, ND26\n!        diagnostics.  Also now make places in the code which have been\n!        modified by Harvard more clear to discern. (bdf, bmy, 9/28/04)\n!  (5 ) Bug fix: Need to multiply ND25 N/S transport fluxes by the array\n!        RGW_25 which accounts for the latitude factor (bdf, bmy, 10/29/04)\n!  (6 ) Bug fix: In INIT_GEOS5_WINDOW, need to dimension COSE with JM+1\n!        instead of JM.  (Xiaoguang Gu, bmy, 1/20/09)\n!  09 Sep 2010 - C. Carouge  - Modify declarations of MASSFLEW, MASSFLNS and\n!                              MASSFLUP to save memory space.\n!  04 Nov 2015 - M. Sulprizio- Rename from tpcore_geos5_window_mod.F90 to\n!                              tpcore_window_mod.F90 for use with all nested\n!                              grids\n!  11 Jan 2016 - E. Lundgren - Add diagnostics for output to netcdf.\n!                              Block off both bpch and netcdf diagnostic\n!                              code within pre-processor statements.\n!  19 Jan 2016 - E. Lundgren - combine bpch and netcdf diagnostic code\n!******************************************************************************\n!\n! The original module documentation header is listed here:\n!\n! TransPort module for NASA Goddard Chemistry Transport Model\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! Last modified: February 27, 2002\n!\n! Purpose: perform the transport of  3-D mixing ratio fields using\n!          externally specified winds and surface pressure on the\n!          hybrid Eta-coordinate.\n!          One call to tpcore updates the 3-D mixing ratio\n!          fields for one time step (DT).\n!\n! Schemes: Multi-dimensional Flux Form Semi-Lagrangian (FFSL) schemes\n!          (Lin and Rood 1996, MWR) with many unpublished modifications\n!\n! Messaging passing library based on \"Pilgrim\" developed by W. Sawyer\n!\n! Suggested compiler options:\n! SGI Origin: f90 -c -r8 -64 -O3 -mips4 -mp\n!             loader: f90 -64 -mp\n! Linux Lahey/Fujitsu lf95 -c -CcdRR8 --tpp\n!\n! Send comments/suggestions to the algorithm developers:\n!\n!                 S.-J. Lin\n!                 Code 910.3, NASA/GSFC, Greenbelt, MD 20771\n!                 E-mail: slin@dao.gsfc.nasa.gov\n!\n!                 Kevin Yeh\n!                 Code 910.3, NASA/GSFC, Greenbelt, MD 20771\n!                 E-mail: kyeh@dao.gsfc.nasa.gov\n!\n! The algorithm is primarily based on the following papers:\n!\n! 1. Lin, S.-J., and R. B. Rood, 1996: Multidimensional flux form semi-\n!    Lagrangian transport schemes. Mon. Wea. Rev., 124, 2046-2070.\n!\n! 2. Lin, S.-J., W. C. Chao, Y. C. Sud, and G. K. Walker, 1994: A class of\n!    the van Leer-type transport schemes and its applications to the moist-\n!    ure transport in a General Circulation Model. Mon. Wea. Rev., 122,\n!    1575-1593.\n!******************************************************************************\n!\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n  !%%%\n  !%%% Add MODULE PRIVATE declarations.  For safety's sake, declare all\n  !%%% routines and variables PRIVATE except for INIT_TPCORE and\n  !%%% TPCORE_FVDAS, which need to be seen outside.  (bdf, bmy, 5/7/03)\n  !%%%\n  PRIVATE\n  PUBLIC :: TPCORE_WINDOW\n  PUBLIC :: INIT_WINDOW\n  PUBLIC :: EXIT_TPCORE_WINDOW\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n#if defined(SPMD)\n#define PRT_PREFIX  if(gid.eq.0)\n#if defined(PILGRIM)\n use decompmodule, only: decomptype\n use ghostmodule, only: ghosttype\n use parutilitiesmodule, only: gid, parpatterntype, &\n                               parbegintransfer, parendtransfer\n type(parpatterntype) :: pattern2dmg, pattern2dng\n type(decomptype) :: decomp2d\n type(ghosttype)  :: ghost2dmg, ghost2dng\n#else\n use mod_comm, only: gid, mp_barrier, mp_send3d_ns, &\n                          mp_recv3d_ns, mp_allgather1d\n#endif\n#else\n#define PRT_PREFIX\n#endif\n\n real ,ALLOCATABLE, save :: dtdx5(:)\n real ,ALLOCATABLE, save :: dtdy5(:)\n real ,ALLOCATABLE, save :: cosp(:)\n real ,ALLOCATABLE, save :: cose(:)\n real ,ALLOCATABLE, save ::  gw(:)\n real ,ALLOCATABLE, save :: rgw(:)\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added DLAT as allocatable array for PJC pressure fixer\n !%%% (bdf, bmy, 5/7/03)\n !%%%\n REAL, ALLOCATABLE, SAVE :: DLAT(:)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added RGW_25 as allocatable array for ND25 N/S mass flux diagnostic.\n !%%% This accounts for the latitude factor. (bdf, bmy, 10/29/04)\n !%%%\n REAL, ALLOCATABLE, SAVE :: RGW_25(:)\n REAL, ALLOCATABLE, SAVE :: SINE_25(:)    !(dan 0803)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\nCONTAINS\n\n!-------------------------------------------------------------------------\n subroutine init_WINDOW(State_Grid, im,jm,km,jfirst,jlast,ng, mg, dt, ae, clat)\n!-------------------------------------------------------------------------\n\n#if defined(SPMD)\n#if defined(PILGRIM)\n use decompmodule, only : decompcreate\n use ghostmodule, only : ghostcreate\n use parutilitiesmodule, only : gid, gsize, commglobal, parpatterncreate\n#else\n use mod_comm, only : gid, y_decomp\n#endif\n#endif\n USE State_Grid_Mod, ONLY : GrdState\n\n implicit none\n\n!-------\n! Input\n!-------\n\n TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n integer, intent(in):: im       ! Global E-W dimension\n integer, intent(in):: jm       ! Global N-S dimension\n integer, intent(in):: km       ! Vertical dimension\n integer, intent(out):: jfirst   ! Local first index for N-S\n integer, intent(out):: jlast    ! Local last index for N-S\n integer, intent(in):: ng       ! large ghost width\n integer, intent(in):: mg       ! small ghost width\n\n real, intent(in):: dt          ! Time step in seconds\n real, intent(in):: ae          ! Earth's radius (m)\n real, intent(in):: clat(0:jm+1)    ! latitude in radian  (dan)\n\n!-----\n! Local\n!-----\n\n real elat(jm+1)    ! cell edge latitude in radian\n real sine(jm+1)\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Comment out this declaration of DLAT.  DLAT has now been declared\n !%%% as ALLOCATABLE for use in TPCORE_FVDAS. (bdf, bmy, 5/7/03)\n !%%%\n !%%%real dlat(jm)      ! delta-latitude in radian\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Add SINE_25 array as a local variable.  This is used to initialize\n !%%% the RGW_25 array, which is necessary for the ND25 diagnostic.\n !%%% (bdf, bmy, 10/29/04)\n !%%%\n! REAL SINE_25(JM+1)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n real dlon\n real pi\n integer i, j\n\n#if defined(SPMD)\n#if defined(PILGRIM)\n integer, allocatable :: xdist(:), ydist(:)\n\n allocate(xdist(1))\n allocate(ydist(gsize))\n!\n! Decomposition\n!\n xdist(1) = im\n call newdecomp(jm,gsize,ydist)\n\n jfirst = 1\n do i=1,gid\n   jfirst = jfirst + ydist(i)\n enddo\n jlast = jfirst + ydist(gid+1) - 1\n\n call decompcreate(1, gsize, xdist, ydist, decomp2d )    ! 2D region with 1D lat decomposition\n call ghostcreate(decomp2d, gid, im, 1, im, .false., &\n                  jm, jfirst-mg, jlast+mg, .false.,  ghost2dmg )\n call ghostcreate(decomp2d, gid, im, 1, im, .false., &\n                  jm, jfirst-ng, jlast+ng, .false.,  ghost2dng )\n call parpatterncreate(commglobal, ghost2dmg, pattern2dmg)\n call parpatterncreate(commglobal, ghost2dng, pattern2dng)\n#else\n!\n! Default decomposition\n!\n call y_decomp(jm, km, jfirst, jlast, 1, km, gid)\n#endif\n#else\n jfirst = 1\n jlast  = jm\n#endif\n\n if ( jlast - jfirst < 2 ) then\n    write(*,*) 'Minimum size of subdomain is 3'\n endif\n\n!----------------\n! Allocate arrays\n!----------------\n\n allocate ( cosp(jm) )\n allocate ( cose(jm+1) )\n allocate (   gw(jm) )\n allocate (  rgw(jm) )\n allocate ( dtdx5(jm) )\n allocate ( dtdy5(jm) )\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% We must allocate DLAT here for PJC pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n ALLOCATE ( DLAT(JM) )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% We must allocate RGW_25 here for ND25 N/S transport fluxes diagnostic.\n !%%% This accounts for the latitude factor.  (bdf, bmy, 10/29/04)\n !%%%\n ALLOCATE ( RGW_25(JM) )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ALLOCATE ( SINE_25(JM+1) )        !(dan 0803)\n\n pi = 4. * atan(1.)\n\n IF ( TRIM(State_Grid%GridRes) == '0.5x0.625' ) THEN\n    dlon = 2.*pi / float(576)\n ELSE IF ( TRIM(State_Grid%GridRes) == '0.25x0.3125' ) THEN\n    dlon = 2.*pi / float(1152)\n ELSE IF ( TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n    dlon = 2.*pi / float(2304)\n ENDIF\n\n    ! dan for window\n    !elat(1) = -0.5*pi         ! S. Pole\n    !sine(1) = -1.\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !%%%\n    !%%% Initialize SINE_25 array (bmy, bdf, 10/29/04)\n    !%%%\n    !SINE_25(1) = -1.0\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !cose(1) =  0.\n\n\n\n do j=1,jm+1                    !(dan)\n    elat(j) = 0.5*(clat(j-1) + clat(j))\n    sine(j) = sin(elat(j))\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !%%%\n    !%%% Initialize SINE_25 array (bmy, bdf, 10/29/04)\n    !%%%\n    SINE_25(J) = SIN( CLAT(J) )\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    cose(j) = cos(elat(j))\n enddo\n\n    !dan for window\n    !elat(jm+1) = 0.5*pi       ! N. Pole\n    !sine(jm+1) = 1.\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !%%%\n    !%%% Initialize SINE_25 array (bmy, bdf, 10/29/04)\n    !%%%\n    !SINE_25(JM+1) = 1.0\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n\n\n    !dlat(1) = 2.*(elat(2) - elat(1))  ! Polar cap  (dan)\n\n do j=1,jm\n    dlat(j) = elat(j+1) - elat(j)\n enddo\n    !dlat(jm) = 2.*(elat(jm+1) - elat(jm))    ! Polar cap (dan)\n\n do j=1,jm\n      gw(j) = sine(j+1) - sine(j)\n    cosp(j) = gw(j) / dlat(j)\n    rgw(j) =  1. / gw(j)\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n    !%%%\n    !%%% Initialize RGW_25 for the ND25 N/S transport fluxes diagnostic.\n    !%%% RGW_25 takes into account the latitude factor. (bdf, bmy, 10/29/04)\n    !%%%\n    RGW_25(J) = 1. / ( SINE_25(J+1) - SINE_25(J) )\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    dtdx5(j) = 0.5 * dt / (dlon*ae*cosp(j))\n    dtdy5(j) = 0.5 * dt / (ae*dlat(j))\n enddo\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%% Comment out the === lines (bmy, 7/20/04)\n !%%%! Now use REPEAT cmd (bmy, 4/29/03)\n !%%%PRT_PREFIX write( 6, '(a)' ) REPEAT( '=', 79 )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n PRT_PREFIX write( 6, '(a)' ) 'NASA-GSFC Tracer Transport Module successfully initialized'\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%% Comment out the === lines (bmy, 7/20/04)\n !%%%PRT_PREFIX write( 6, '(a)' ) REPEAT( '=', 79 )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n end subroutine init_WINDOW\n\n!-------------------------------------------------------------------------\n subroutine EXIT_TPCORE_WINDOW\n!-------------------------------------------------------------------------\n\n#if defined(SPMD) && defined(PILGRIM)\n use decompmodule, only : decompfree\n use ghostmodule, only : ghostfree\n use parutilitiesmodule, only : commglobal, parpatternfree\n\n call parpatternfree(commglobal, pattern2dmg)\n call parpatternfree(commglobal, pattern2dng)\n call ghostfree(ghost2dmg)\n call ghostfree(ghost2dng)\n call decompfree(decomp2d)\n#endif\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Comment out original code below (bdf, bmy, 5/9/03)\n !%%%\n !%%%deallocate ( cosp )\n !%%%deallocate ( cose )\n !%%%deallocate (   gw )\n !%%%deallocate (  rgw )\n !%%%deallocate ( dtdx5 )\n !%%%deallocate ( dtdy5 )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Now deallocate arrays only if they have been allocated (bmy, 5/9/03)\n !%%% Also deallocate RGW_25 array (bdf, bmy, 10/29/04)\n !%%%\n IF ( ALLOCATED( COSP   ) ) DEALLOCATE( COSP   )\n IF ( ALLOCATED( COSE   ) ) DEALLOCATE( COSE   )\n IF ( ALLOCATED( GW     ) ) DEALLOCATE( GW     )\n IF ( ALLOCATED( RGW    ) ) DEALLOCATE( RGW    )\n IF ( ALLOCATED( RGW_25 ) ) DEALLOCATE( RGW_25 )  ! (bdf, bmy, 10/29/04)\n IF ( ALLOCATED( DTDX5  ) ) DEALLOCATE( DTDX5  )\n IF ( ALLOCATED( DTDY5  ) ) DEALLOCATE( DTDY5  )\n IF ( ALLOCATED( DLAT   ) ) DEALLOCATE( DLAT   )\n IF ( ALLOCATED( SINE_25) ) DEALLOCATE( SINE_25)  !(dan 0803)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n\n end subroutine EXIT_TPCORE_WINDOW\n\n\n!----------------------------------------------------------------------------\n subroutine TPCORE_WINDOW( dt,    ae, im, jm, km, jfirst,         &\n                           jlast, ng, mg,                         &\n                           nq,    ak, bk, u, v, ps1, ps2, ps,  q, &\n                           iord, jord, kord, n_adj,               &\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added XMASS, YMASS arguments to arg list of TPCORE_FVDAS for PJC/LLNL\n !%%% pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n                           XMASS,    YMASS,                       &\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n                        AREA_M2, State_Chm, State_Diag   )\n!----------------------------------------------------------------------------\n\n! Uses:\n    USE PhysConstants  ! Physical constants g0_100 and AIRMW\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n\n implicit none\n\n! Input:\n integer, intent(in):: im         ! Global E-W dimension\n integer, intent(in):: jm         ! Global N-S dimension\n integer, intent(in):: km         ! Vertical dimension\n integer, intent(in):: jfirst     ! Local first index for N-S\n integer, intent(in):: jlast      ! Local last index for N-S\n integer, intent(in):: ng         ! Primary ghost region\n integer, intent(in):: mg         ! Secondary ghost region\n integer, intent(in):: nq         ! Ghosted latitudes (3 required by PPM)\n integer, intent(in):: iord       ! E-W transport scheme\n integer, intent(in):: jord       ! N-S transport scheme\n integer, intent(in):: kord       ! Vertical mapping scheme\n integer, intent(in):: n_adj      ! Number of adjustemnt to air_mass_flux\n                                  ! 0 --> no adjustment\n\n! Recommended values : iord=jord=4, kord=7\n!  _ord:\n!---------------------------------------------------------------------------\n!        1: 1st order upstream scheme\n!        2: 2nd order van Leer (full monotonicity constraint;\n!           see Lin et al 1994, MWR)\n!        3: Standard monotonic PPM* (Collela & Woodward 1984)\n!        4: New & Improved monotonic PPM\n!        5: positive-definite PPM (constraint on the subgrid distribution is\n!           only strong enough to prevent generation of negative values;\n!           both overshoots & undershootes are possible).\n!        6: un-constrained PPM (nearly diffusion free; faster but\n!           positivity of the subgrid distribution is not quaranteed.\n!        7: Huynh/Van Leer/Lin full monotonicity constraint\n!---------------------------------------------------------------------------\n! Only kord can be set to 7 to enable the use of Huynh's 2nd monotonicity\n! constraint for piece-wise parabolic distribution.\n! *PPM: Piece-wise Parabolic Method\n\n real, intent(in):: ak(km+1)              ! See below\n real, intent(in):: bk(km+1)              ! See below\n real, intent(in):: u(:,:,:)    ! u-wind (m/s) at mid-time-level (t=t+dt/2)\n real, intent(inout):: v(:,:,:) ! v-wind (m/s) at mid-time-level (t=t+dt/2)\n\n!------------------------------------------------------\n! The hybrid ETA-coordinate:\n! pressure at layer edges are defined as follows:\n!\n!        p(i,j,k) = ak(k) + bk(k)*ps(i,j)\n!------------------------------------------------------\n! ak and bk are defined at layer edges.\n\n!                  /////////////////////////////////\n!              / \\ ------ Model top P=ak(1) --------- ak(1), bk(1)\n!               |\n!    delp(1)    |  ........... q(i,j,1) ............\n!               |\n!              \\ / ---------------------------------  ak(2), bk(2)\n!\n!\n!\n!              / \\ ---------------------------------  ak(k), bk(k)\n!               |\n!    delp(k)    |  ........... q(i,j,k) ............\n!               |\n!              \\ / ---------------------------------  ak(k+1), bk(k+1)\n!\n!\n!\n!              / \\ ---------------------------------  ak(km), bk(km)\n!               |\n!    delp(km)   |  ........... q(i,j,km) .........\n!               |\n!              \\ / -----Earth's surface P=Psfc ------ ak(km+1), bk(km+1)\n!                 //////////////////////////////////\n\n\n! Note: surface pressure can be of any unit (e.g., pascal or mb) as long as it is\n! consistent with the definition of (ak, bk) defined above\n! Winds (u,v), ps, and q are assumed to be defined at the same points.\n! The latitudes are given by clat, input to the initialization routine: init_tpcore.\n\n real, intent(in):: ps1(im,jfirst:jlast)  ! surface pressure at current time\n real, intent(in):: ps2(im,jfirst:jlast)  ! surface pressure at future time=t+dt\n real, intent(in):: dt                    ! Transport time step in seconds\n real, intent(in):: ae                    ! Earth's radius (m)\n\n real, intent(inout):: q(:,:,:,:)         ! Tracer \"mixing ratios\"\n                                          ! q could easily be re-dimensioned\n\n real, intent(out):: ps(im,jfirst:jlast)  ! \"predicted\" surface pressure\n\n real  delp(im,jfirst:jlast,km)    ! Predicted thickness at future time (t=t+dt)\n real  pe(im,km+1,jfirst:jlast)    ! Pressure at layer edges (predicted)\n\n real  fx(im,jfirst:jlast,km)     ! E-W air mass flux\n real  va(im,jfirst:jlast,km)     ! N-S CFL at cell center (scalar points)\n\n !%%% Added XMASS, YMASS for the PJC pressure-fixer (bdf, bmy, 5/7/03)\n REAL,    INTENT(IN)    :: XMASS(:,:,:), YMASS(:,:,:)\n\n REAL,    INTENT(IN)    :: AREA_M2(JM)       ! box area for mass flux diag\n\n ! Chemistry and diagnostic state objects\n TYPE(ChmState), INTENT(INOUT) :: State_Chm\n TYPE(DgnState), INTENT(INOUT) :: State_Diag\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n!-----------------------\n! Ghosted local arrays:\n!-----------------------\n\n real  cx(im,jfirst-ng:jlast+ng,km)    ! E-W CFL number on C-grid\n real delp1(im,jfirst-mg:jlast+mg,km)  ! Pressure thickness at current time (t)\n real   fy(im,jfirst:jlast+mg,km)      ! N-S air mass flux\n real   cy(im,jfirst:jlast+mg,km)      ! N-S CFL number on C-grid\n real  psg(im,jfirst-mg:jlast+mg,2)    ! Was psm and psn\n real   q2(im,jfirst-ng:jlast+ng)      ! local 2D q array\n logical ffsl(jfirst-ng:jlast+ng,km)   ! Flag to compute Integer fluxes\n\n! Local variables:\n integer i,j,k,iq\n integer iord_bg                    ! E-W scheme for background mass flux\n integer jord_bg                    ! N-S scheme for background mass flux\n integer js1gd                      ! Southern latitude border (1 on SP PE)\n integer jn1gd                      ! Northern latitude border (JM on NP PE)\n integer nx                         ! Internal E-W OpenMP decomposition\n integer iv                         ! Monotonicity constraints for top and bottom\n\n ! Binary diagnostics are retired but netcdf needs implementation.\n ! Comment out for now (ewl, 3/10/22)\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n! !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n! !%%%\n! !%%% Define DTC, QTEMP, TRACE_DIFF for ND26 diagnostic (bdf, bmy, 9/28/04)\n! !%%%\n! REAL DTC(IM,JM,KM,NQ)              ! up/down flux temp array\n! REAL QTEMP(IM,JM,KM,NQ)            ! up/down flux array\n! REAL TRACE_DIFF                    ! up/down flux variable\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n parameter (nx = 1)                 ! Try 2 or 4 if large number of OMP threads\n                                    ! is to be used\n\n js1gd = max(1,  jfirst-ng)         ! NG latitudes on S (starting at 1)\n jn1gd = min(jm,jlast+ng)           ! NG latitudes on N (ending at jm)\n\n! Eloise Marais questioned why iord_bg and jord_bg are set to 1 instead of\n! being set to the iord and jord values from geoschem_config.yml.  I looked back\n! into the Git history and couldn't find where this change was made, so\n! this issue has probably persisted for quite some time.  We will set these\n! values to iord and jord in an attempt to avoid negative values.\n! See Github issue: https://github.com/geoschem/geos-chem/issues/840.\n!    -- Bob Yantosca (31 Aug 2021)\n iord_bg = iord\n jord_bg = jord\n\n iv = 1       ! Enforce strong constraint at top & bottom\n              ! May want to change to iv=0 if diffusion is a problem\n\n ! iv =0               !(dan.iv 0803)\n ! iv=-1               !(dan 0803)\n\n\n! Ensure inputs are single-valued at poles:\n\n\n  do j=jfirst,jlast\n     do i=1,im\n\n        psg(i,j,1) = ps1(i,j)\n        psg(i,j,2) = ps2(i,j)\n     enddo\n  enddo\n\n!  if ( jfirst == 1 ) then\n!       call xpavg(psg(:,1,1), im)\n!       call xpavg(psg(:,1,2), im)\n!  endif\n\n!  if ( jlast == jm ) then\n!       call xpavg(psg(:,jm,1), im)\n!       call xpavg(psg(:,jm,2), im)\n!  endif\n\n#if defined(SPMD)\n! Ghost v, psm and psn north/south --> now in one array psg\n#if defined(PILGRIM)\n  call parbegintransfer(pattern2dmg, km, v, v)\n  call parbegintransfer(pattern2dmg, 2, psg, psg)\n#else\n  call mp_send3d_ns(im, jm, jfirst, jlast, 1, km, mg, mg, v, 1)\n  call mp_send3d_ns(im, jm, jfirst, jlast, 1, 2, mg, mg, psg, 2)\n#endif\n#endif\n\n! Average q at both poles\n!  do iq=1,nq\n!!$omp parallel do   &\n!!$omp shared(im)    &\n!!$omp private(k)\n!     do k=1,km\n!        if ( jfirst == 1 ) then\n!             call xpavg(q(:,1,k,iq), im)\n!        endif\n!        if ( jlast == jm ) then\n!             call xpavg(q(:,jm,k,iq), im)\n!        endif\n!     enddo\n!  enddo\n\n#if defined(SPMD)\n#if defined(PILGRIM)\n  call parendtransfer(pattern2dmg, km, v, v)\n  call parendtransfer(pattern2dmg, 2, psg, psg)\n#else\n  call mp_barrier()\n  call mp_recv3d_ns(im, jm, jfirst, jlast, 1, km, mg, mg, v, 1)\n  call mp_recv3d_ns(im, jm, jfirst, jlast, 1, 2, mg, mg, psg, 2)\n  call mp_barrier()\n#endif\n#endif\n\n!----------------------------------------------\n! Compute background air mass fluxes\n!----------------------------------------------\n\n call air_mass_flux(im, jm, km, jfirst, jlast,      &\n                    iord_bg, jord_bg,   ak, bk,     &\n                    psg, ps,  u, v,                 &\n                    cx, cy, va, fx, fy, ng, mg,     &\n                    ffsl, delp1, delp, pe,  dt,     &\n                    ae, n_adj,                      &\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added XMASS, YMASS to the arg list of AIR_MASS_FLUX\n !%%% for the PJC/LLNL pressure-fixer (bdf, bmy, 5/7/03)\n !%%%\n                    XMASS, YMASS )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n\n!---------------------------------------------------\n! Do tracer transport\n!---------------------------------------------------\n\n#if defined(SPMD)\n! non-blocking-send for tracer #1\n#if defined(PILGRIM)\n    call parbegintransfer(pattern2dng,km,q(:,:,:,1),q(:,:,:,1))\n#else\n    call mp_send3d_ns(im, jm, jfirst, jlast, 1, km, ng, ng, &\n                      q(1,jfirst-ng,1,1), 1)\n#endif\n#endif\n\n\n! Multi_Tracer:\n   do iq=1,nq\n\n#if defined(SPMD)\n! Receive current tracer\n#if defined(PILGRIM)\n call parendtransfer(pattern2dng,km,q(:,:,:,iq),q(:,:,:,iq))\n if (iq < nq) then\n   call parbegintransfer(pattern2dng,km,q(:,:,:,iq+1),q(:,:,:,iq+1))\n endif\n#else\n call mp_barrier()\n call mp_recv3d_ns(im, jm, jfirst, jlast, 1, km, ng, ng, &\n                   q(1,jfirst-ng,1,iq),iq)\n call mp_barrier()\n if ( iq < nq ) then\n!   non-blocking send for next tracer\n    call mp_send3d_ns(im, jm, jfirst, jlast, 1, km, ng, ng, &\n                      q(1,jfirst-ng,1,iq+1),iq+1)\n endif\n#endif\n#endif\n\n!$omp parallel do                                   &\n!$omp default( shared ) &\n!$omp private( i, j, k, q2 )\n\n! Vertical_OMP:\n\n   do k=1,km\n\n\n    q2(:,:) = 0.d0\n\n! Copying q to 2d work array for transport. This allows q to be dimensioned\n! differently from the calling routine.\n\n    do j=js1gd,jn1gd\n       do i=1,im\n          q2(i,j) = q(i,j,k,iq)\n       enddo\n    enddo\n\n!--- Previous to (ccc, 9/9/10)\n!    call tp2g( q2(1,jfirst-ng),    va(1,jfirst,k),          &\n!               cx(1,jfirst-ng,k),  cy(1,jfirst,k),          &\n!               im,  jm,  iv,   iord,     jord,              &\n!               ng,  mg,  fx(1,jfirst,k), fy(1,jfirst,k),    &\n!               ffsl(jfirst-ng,k),    jfirst,   jlast,       &\n!               delp1(1,jfirst-mg,k),    delp(1,jfirst,k),   &\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n! !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n! !%%%\n! !%%% Now pass MASSFLEW, MASSFLNS, AREA_M2, TCVV, ND24, ND25, DT as\n! !%%% arguments to routine TP2G for GEOS-CHEM mass flux diagnostics\n! !%%% (bdf, bmy, 9/28/04)\n! !%%%\n!               MASSFLEW(1,1,K,IQ), MASSFLNS(1,1,K,IQ),      &\n!               AREA_M2, TCVV(IQ), ND24, ND25, DT )\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    call tp2g( q2(1,jfirst-ng),    va(1,jfirst,k),          &\n               cx(1,jfirst-ng,k),  cy(1,jfirst,k),          &\n               im,  jm,  iv,   iord,     jord,              &\n               ng,  mg,  fx(1,jfirst,k), fy(1,jfirst,k),    &\n               ffsl(jfirst-ng,k),    jfirst,   jlast,       &\n               delp1(1,jfirst-mg,k),    delp(1,jfirst,k))!,   &\n ! Binary diagnostics are retired but netcdf needs implementation.\n ! Comment out for now (ewl, 3/10/22)\n!               AREA_M2, ND24, ND25, DT )\n\n!------------------------------------------------------------------------------\n! Prior to 4/1/15:\n! Preserve original code here.  Lin Zhang submitted the fix below.\n!    !do j=jfirst,jlast\n!    do j=max(jfirst,jord+1),min(jlast,jm-jord+1)   ! Lin_20140518\n!       do i=1,im\n!          q(i,j,k,iq) = q2(i,j)\n!       enddo\n!    enddo\n!------------------------------------------------------------------------------\n    ! NOTE: This fix was submitted by Lin Zhang.  Not sure if it supersedes\n    ! the previous code but we'll put it here for now. (bmy, 4/1/15)\n    do j=jfirst+2,jlast-2             ! (lzh, 05/10/2014)\n       do i=3,im-2\n           q(i,j,k,iq) = q2(i,j)\n        enddo\n     enddo\n\n! enddo Vertical_OMP\n! enddo Multi_Tracer\n\n   enddo\n   enddo\n\n!---------------------------------------------------------------\n! Perform Remapping back to the hybrid sigma-pressure coordinate\n! Mass will be conserved if predicted ps2 == psn (data/model)\n!---------------------------------------------------------------\n\n ! Binary diagnostics are retired but netcdf needs implementation.\n ! Comment out for now (ewl, 3/10/22)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Save tracer values before vertical transport (bdf, bmy, 9/28/04)\n !%%%\n! IF ( ND26 > 0 ) THEN\n!    QTEMP = Q\n! ENDIF\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n call qmap(pe, q, im, jm, km, nx, jfirst, jlast, ng, nq,         &\n           ps, ak, bk, kord, iv)\n\n ! Binary diagnostics are retired but netcdf needs implementation.\n ! Comment out for now (ewl, 3/10/22)\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n! !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n! !%%%\n! !%%% Implement ND26 diag: Up/down flux of tracer [kg/s] (bmy, bdf, 9/28/04)\n! !%%%\n! !%%% The vertical transport done in qmap.  We need to find the difference\n! !%%% in order to to interpret transport.\n! !%%%\n! !%%% Break up diagnostic into up & down fluxes using the surface boundary\n! !%%% conditions.  Start from top down (really surface up for flipped TPCORE)\n! !%%%\n! IF ( ND26 > 0 ) THEN\n!\n!    !-----------------\n!    ! start with top\n!    !-----------------\n!    K = 1\n!\n!!$OMP PARALLEL DO           &\n!!$OMP DEFAULT( SHARED )     &\n!!$OMP PRIVATE( I, J, IQ )\n!    DO IQ = 1, NQ\n!    DO I  = 1, IM\n!    DO J  = 1, JM\n!\n!       DTC(I,J,K,IQ) = ( Q(I,J,K,IQ)     * DELP1(I,J,K)   -          &\n!                         QTEMP(I,J,K,IQ) * DELP(I,J,K)  ) *          &\n!                         AREA_M2(J) * g0_100\n!\n!       ! top layer should have no residual.  the small residual is from\n!       ! a non-pressure fixed flux diag.  The z direction may be off by\n!       ! a few percent.\n!       !MASSFLUP(I,J,K,IQ) = MASSFLUP(I,J,K,IQ) + DTC(I,J,K,IQ)/dt\n!    ENDDO\n!    ENDDO\n!    ENDDO\n!!$OMP END PARALLEL DO\n!\n!    !----------------------------------------------------\n!    ! get the other fluxes using a mass balance equation\n!    !----------------------------------------------------\n!    DO K  = 2, KM\n!!$OMP PARALLEL DO                      &\n!!$OMP DEFAULT( SHARED )                &\n!!$OMP PRIVATE( I, J, IQ, TRACE_DIFF )\n!    DO IQ = 1, NQ\n!    DO I  = 1, IM\n!    DO J  = 1, JM\n!\n!       TRACE_DIFF         = ( Q(I,J,K,IQ)     * DELP1(I,J,K)  -     &\n!                              QTEMP(I,J,K,IQ) * DELP(I,J,K) ) *     &\n!                              AREA_M2(J) * g0_100\n!\n!       DTC(I,J,K,IQ)      = DTC(I,J,K-1,IQ) + TRACE_DIFF\n!\n!    ENDDO\n!    ENDDO\n!    ENDDO\n!!$OMP END PARALLEL DO\n!    ENDDO\n!\n!    ENDIF\n\n END subroutine TPCORE_WINDOW\n\n\n subroutine air_mass_flux(im, jm, km, jfirst, jlast, iord, jord,    &\n                          ak, bk, psg, ps, u, v, cx, cy, va,        &\n                          fx, fy, ng,  mg,  ffsl, delp1,  delp,     &\n                          pe, dt, ae,  n_adj,                       &\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added XMASS, YMASS to the arg list of AIR_MASS_FLUX\n !%%% for the PJC/LLNL pressure-fixer (bdf, bmy, 5/7/03)\n !%%%\n                          XMASS, YMASS )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n!------------------------------------------------------\n! The hybrid ETA-coordinate:\n! pressure at layer edges are defined as follows:\n!\n!        p(i,j,k) = ak(k) + bk(k)*ps(i,j)          (1)\n!------------------------------------------------------\n\n! Input from Data/Model:\n! (u,v) is the time mean wind at Time=t+dt/2\n! delp1 is the layer thickness at Time=t\n\n! Output:\n! delp is the predicted thickness at Time=t+dt\n! (fx,fy): background air mass flxues\n! (cx,cy): CFL number\n\n implicit none\n\n integer, intent(in):: im\n integer, intent(in):: jm\n integer, intent(in):: km\n integer, intent(in):: jfirst\n integer, intent(in):: jlast\n integer, intent(in):: iord\n integer, intent(in):: jord\n integer, intent(in):: ng\n integer, intent(in):: mg\n integer, intent(in):: n_adj\n\n real, intent(in):: dt\n real, intent(in):: ae\n real, intent(in):: ak(km+1)\n real, intent(in):: bk(km+1)\n real, intent(in):: psg(im,jfirst-mg:jlast+mg,2)   ! Was ps1 and ps2\n real, intent(in):: u(im,jfirst:jlast,km)\n real, intent(in):: v(im,jfirst-mg:jlast+mg,km)\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added XMASS, YMASS for PJC/LLNL pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n REAL, INTENT(IN) :: XMASS(IM,JM,KM), YMASS(IM,JM,KM)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n! Output:\n logical,intent(out):: ffsl(jfirst-ng:jlast+ng,km)\n real, intent(out):: cx(im,jfirst-ng:jlast+ng,km)\n real, intent(out):: delp (im,jfirst:jlast,km)\n\n real, intent(out):: ps(im,jfirst:jlast)\n real, intent(out):: fx(im,jfirst:jlast,km)\n real, intent(out):: cy(im,jfirst:jlast+mg,km)\n real, intent(out):: fy(im,jfirst:jlast+mg,km)\n real, intent(out):: va(im,jfirst:jlast,km)\n\n real, intent(out):: delp1(im,jfirst-mg:jlast+mg,km)\n\n real, intent(out):: pe(im,km+1,jfirst:jlast)\n\n! Local:\n real yms(im,jfirst:jlast+mg,km)\n\n real  tiny\n parameter (tiny = 1.e-10)\n real dak, dbk\n real dtoa, vt\n integer i,j,k\n\n integer js2g0\n integer jn2g0\n integer jn1g1\n integer js2gd, jn2gd\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Declare extra variables PJC/LLNL pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n REAL :: DELPM(IM,JM,KM), FACTY, UT\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n js2g0  = max(2,jfirst)        ! No ghosting\n jn2g0  = min(jm-1,jlast)      ! No ghosting\n jn1g1  = min(jm,jlast+1)      ! Ghost 1 on N\n js2gd = max(2,  jfirst-ng)    ! NG latitudes on S (starting at 1)\n jn2gd = min(jm-1,jlast+ng)    ! NG latitudes on N (ending at jm-1)\n\n dtoa = .5*dt/ae\n\n cx(:,:,:)=0D0\n cy(:,:,:)=0D0\n fx(:,:,:)=0D0\n fy(:,:,:)=0D0\n  delp(:,:,:)=0D0\n  ps(:,:)=0D0\n  va(:,:,:)=0D0\n  delp1(:,:,:)=0D0\n  pe(:,:,:)=0D0\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Define DELPM for PJC pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n DO K = 1, KM\n DO J = 1, JM\n DO I = 1, IM\n    DELPM(I,J,K) = ( AK(K+1) - AK(K) ) + &\n                   ( BK(K+1) - BK(K) ) * &\n                   ( 0.5d0 * ( PSG(I,J,1) + PSG(I,J,2 ) + 2d0 * AK(1) ) )\n ENDDO\n ENDDO\n ENDDO\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added for PJC/LLNL pressure-fixer (bdf, bmy, 5/7/03)\n !%%% Note that DTDY5 is the same everywhere except at the poles, so\n !%%% we can just pick a value roughly close to the equator\n !%%%\n FACTY = DTDY5(JM/2)\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n!$omp parallel do private(i, j, k, vt, UT )\n\n  do k=1,km\n\n     do j=js2g0, jn1g1\n         do i=1,im\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Change calculation of VT for PJC pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n            VT = YMASS(I,J,K) / FACTY / COSE(J) / DELPM(I,J,K) +  &\n                 V(I,J-1,K) * ( 1d0 - DELPM(I,J-1,K) / DELPM(I,J,K) )\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n            if ( vt > 0. ) then\n               cy(i,j,k) = dtdy5(j-1)*vt\n            else\n               cy(i,j,k) = dtdy5(j)*vt\n            endif\n             yms(i,j,k) = dtoa*vt*cose(j)\n         enddo\n     enddo\n\n     do j=js2g0,jn2g0\n        do i=1,im\n           if( cy(i,j,k)*cy(i,j+1,k) > 0. ) then\n              if( cy(i,j,k) > 0. ) then\n                  va(i,j,k) = cy(i,j,k)\n              else\n                  va(i,j,k) = cy(i,j+1,k)\n              endif\n           else\n              va(i,j,k) = 0.\n          endif\n        enddo\n     enddo\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Removed this section for PJC pressure fixer (bdf, bmy, 5/7/03)\n !%%%    do j=js2g0,jn2g0\n !%%%          cx(1,j,k) = dtdx5(j)*(u(1,j,k)+u(im,j,k))\n !%%%       do i=2,im\n !%%%          cx(i,j,k) = dtdx5(j)*(u(i,j,k)+u(i-1,j,k))\n !%%%       enddo\n !%%%    enddo\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Added this section for PJC pressure fixer (bdf, bmy, 5/7/03)\n !%%%\n     DO J = JS2G0, JN2G0\n        UT        = XMASS(1,J,K) / DTDX5(J) / DELPM(1,J,K) + &\n                    U(IM,J,K) * ( 1d0 - DELPM(IM,J,K) / DELPM(1,J,K) )\n        CX(1,J,K) = DTDX5(J) * UT\n\n        DO I = 2, IM\n           UT        = XMASS(I,J,K) / DTDX5(J) / DELPM(I,J,K) + &\n                       U(I-1,J,K) * ( 1d0 - DELPM(I-1,J,K) / DELPM(I,J,K) )\n           CX(I,J,K) = DTDX5(J) * UT\n        ENDDO\n     ENDDO\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n  enddo\n\n\n#if defined(SPMD)\n! No buffer version (km calls to mpi_sendrecv)\n#if defined(PILGRIM)\n  call parbegintransfer(pattern2dng, km, cx, cx)\n  call parendtransfer(pattern2dng, km, cx, cx)\n#else\n  call mp_send3d_ns(im, jm, jfirst, jlast, 1, km, ng, ng, cx, 3)\n  call mp_barrier()\n  call mp_recv3d_ns(im, jm, jfirst, jlast, 1, km, ng, ng, cx, 3)\n  call mp_barrier()\n#endif\n#endif\n\n!---------------------------------------------------\n! Compute background mass-flux (fx, fy) and (cx, cy)\n!---------------------------------------------------\n\n!$omp parallel do                             &\n!$omp shared(im,jm,iord,jord,mg,jfirst,jlast) &\n!$omp private(i, j, k, dak, dbk)\n\n  do k=1,km\n\n     do j=js2gd,jn2gd                ! ffsl needed on N*ng S*ng\n        ffsl(j,k) = .false.\n        do i=1,im\n           if( abs(cx(i,j,k)) > 1. ) then\n               ffsl(j,k) = .true.\n               go to 2222\n           endif\n        enddo\n2222  continue\n     enddo\n\n     dak = ak(k+1) - ak(k)\n     dbk = bk(k+1) - bk(k)\n\n     do j=max(1,jfirst-mg),min(jm,jlast+mg)\n        do i=1,im\n           delp1(i,j,k) = dak + dbk*psg(i,j,1)\n        enddo\n     enddo\n\n     call tp2d(va(1,jfirst,k), delp1(1,jfirst-mg,k), cx(1,jfirst-mg,k), &\n               cy(1,jfirst,k), im, jm, iord, jord, mg,  mg,             &\n               fx(1,jfirst,k), fy(1,jfirst,k),  ffsl(jfirst-mg,k),      &\n               cx(1,jfirst,k), yms(1,jfirst,k), 0, jfirst, jlast)\n\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n !%%%\n !%%% Fix mass fluxes in regions not over the courant limit (bdf, bmy, 5/7/03)\n !%%%\n     DO J = 4, JM-4\n        FX(:,J,K) = XMASS(:,J,K)\n        FY(:,J,K) = YMASS(:,J,K) * DLAT(J)\n     ENDDO\n !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n      do j=js2g0,jn2g0\n      do i=1,im-1\n         delp(i,j,k) = delp1(i,j,k) + fx(i,j,k) - fx(i+1,j,k) +          &\n                                     (fy(i,j,k)-fy(i,j+1,k))*rgw(j)\n      enddo\n         delp(im,j,k) = delp1(im,j,k) + fx(im,j,k) - fx(1,j,k) +         &\n                                       (fy(im,j,k)-fy(im,j+1,k))*rgw(j)\n      enddo\n\n      if ( jfirst ==  1 ) then\n          do i=1,im\n             delp(i,1,k) = delp1(i,1,k) - fy(i,2,k)*rgw(1)\n          enddo\n!             call xpavg(delp(:,1,k), im)\n      endif\n\n      if ( jlast == jm ) then\n          do i=1,im\n             delp(i,jm,k) = delp1(i,jm,k) + fy(i,jm,k)*rgw(jm)\n          enddo\n!             call xpavg(delp(:,jm,k), im)\n      endif\n\n     if ( n_adj == 0 ) then\n     do j=js2g0,jn2g0\n        if( ffsl(j,k) ) then\n          do i=1,im\n             fx(i,j,k) = fx(i,j,k)/sign(max(abs(cx(i,j,k)),tiny),cx(i,j,k))\n          enddo\n        endif\n     enddo\n     endif\n\n  enddo\n\n!--------------\n! Compute ps:\n!--------------\n\n!$omp parallel do private(i, j, k)\n\n  do j=jfirst,jlast\n     do i=1,im\n        pe(i,1,j) = ak(1)\n     enddo\n\n     do k=1,km\n        do i=1,im\n           pe(i,k+1,j) = pe(i,k,j) + delp(i,j,k)\n        enddo\n     enddo\n\n     do i=1,im\n        ps(i,j) = pe(i,km+1,j)\n     enddo\n  enddo\n\n!--------------------------------------------------------------\n! Apply mass_flux adjuster to nudge predicted ps towards \"data\"\n!--------------------------------------------------------------\n\n  if ( n_adj > 0 ) then\n    call adj_fx(im, jm, km, jfirst, jlast, ak, bk, ffsl,  &\n                ps, psg(:,:,2), pe, delp, fx, cx, fy, ng, mg,    &\n                tiny, n_adj)\n  endif\n\n end subroutine air_mass_flux\n\n subroutine tp2g(h,  va, crx, cry, im, jm, iv,         &\n                iord, jord, ng, mg, xfx, yfx, ffsl,    &\n                jfirst, jlast, dp, dpp                )\n\n! Uses:\n    USE PhysConstants  ! Physical constants g0_100\n\n implicit none\n\n! !INPUT PARAMETERS:\n   integer, intent(in):: im, jm             ! Dimensions\n   integer, intent(in):: jfirst, jlast      ! Latitude strip\n   integer, intent(in):: iv                 ! iv=-1 --> vector\n   integer, intent(in):: iord, jord         ! Interpolation order in x,y\n   integer, intent(in):: ng                 ! Max. NS dependencies\n   integer, intent(in):: mg                 ! Secondary ghosting zones\n   logical, intent(in):: ffsl(jfirst-ng:jlast+ng)  ! Use flux-form semi-Lagrangian trans.?\n   real, intent(in):: va(im,jfirst:jlast)   ! CFL in y at cell center\n   real, intent(in):: dp(im,jfirst-mg:jlast+mg)\n   real, intent(in):: dpp(im,jfirst:jlast)\n\n   real, intent(in):: crx(im,jfirst-ng:jlast+ng) ! ( N*NG S*NG )\n   real, intent(in):: cry(im,jfirst:jlast+mg)    ! ( N like FY )\n\n   real, intent(in):: xfx(im,jfirst:jlast)       ! x-mass flux\n   real, intent(in):: yfx(im,jfirst:jlast+mg)     ! y-mass flux\n\n   real, intent(inout) :: h(im,jfirst-ng:jlast+ng)\n\n ! Binary diagnostics are retired but netcdf needs implementation.\n ! Comment out for now (ewl, 3/10/22)\n!   REAL,    INTENT(IN)    :: AREA_M2(JM)    ! Grid bos surface area [m2]\n!   INTEGER, INTENT(IN)    :: ND24           ! flux diag\n!   INTEGER, INTENT(IN)    :: ND25           ! flux diag\n!   REAL,    INTENT(IN)    :: DT             ! time step for flux diagnostic\n\n! Local\n   real fx(im,jfirst:jlast)        ! tracer flux in x ( unghosted )\n   real fy(im,jfirst:jlast+mg)     ! tracer flux in y ( N, see tp2c )\n\n   integer i, j, js2g0, jn2g0\n   real sum1, DTC\n\n   js2g0  = max(2,jfirst)          !  No ghosting\n   jn2g0  = min(jm-1,jlast)        !  No ghosting\n\n   call tp2d(va, h(1,jfirst-ng), crx(1,jfirst-ng), cry, im, jm,      &\n             iord, jord, ng, mg, fx, fy, ffsl(jfirst-ng),          &\n             xfx, yfx, 1, jfirst, jlast)\n\n!------------------------------------------------------------------------------\n! Prior to 4/1/15:\n! Don't treat edges (Lin Zhang, 4/1/15)\n!   do j=js2g0,jn2g0\n!     do i=1,im-1\n!         h(i,j) = h(i,j)*dp(i,j) + fx(i,j)-fx(i+1,j)+(fy(i,j)-fy(i,j+1))*rgw(j)\n!      enddo\n!   enddo\n!\n!   do j=js2g0,jn2g0\n!      h(im,j) = h(im,j)*dp(im,j) + fx(im,j)-fx(1,j)+(fy(im,j)-fy(im,j+1))*rgw(j)\n!   enddo\n!------------------------------------------------------------------------------\n    do j=js2g0,jn2g0\n      do i=2,im-1\n          h(i,j) = h(i,j)*dp(i,j) + fx(i,j)-fx(i+1,j)+(fy(i,j)-fy(i,j+1))*rgw(j)\n       enddo\n    enddo\n\n! Poles\n   if ( jfirst == 1 ) then\n        do i=1,im\n           h(i,1) = h(i,1)*dp(i,1) - fy(i,2)*rgw(1)\n        enddo\n!        call xpavg(h(:, 1), im)\n   endif\n\n   if ( jlast == jm ) then\n        do i=1,im\n           h(i,jm) = h(i,jm)*dp(i,jm) + fy(i,jm)*rgw(jm)\n        enddo\n!        call xpavg(h(:,jm), im)\n   endif\n\n ! Binary diagnostics are retired but netcdf needs implementation.\n ! Comment out for now (ewl, 3/10/22)\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n! !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n! !%%%\n! !%%% Implement ND24 diag: E/W flux of tracer [kg/s] (bmy, bdf, 9/28/04)\n! !%%%\n! !%%% (1) H is in units of mixing ratio (input as Q)\n! !%%% (2) Unit conversion needs multiply from mixing\n! !%%%      (airmass/tracer mass)/timestep to get into kg/s\n! !%%% (3) DP is current pressure thickness\n! !%%%\n!   IF ( ND24 > 0 ) THEN\n!      DO J = JS2G0, JN2G0\n!\n!         DO I = 1, IM-1\n!\n!            DTC = FX(I,J) * AREA_M2(J) * g0_100 / DT\n!\n!         ENDDO\n!\n!         DTC = FX(IM,J) * AREA_M2(J) * g0_100 / DT\n!\n!      ENDDO\n!   ENDIF\n!\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n! !%%% MODIFICATION by Harvard Atmospheric Chemistry Modeling Group\n! !%%%\n! !%%% Implement ND25 diag: N/S flux of tracer [kg/s] (bdf, bmy, 9/28/04)\n! !%%% Now multiply fluxes by latitude factor RGW_25 (bdf, bmy, 10/29/04)\n! !%%%\n!   IF ( ND25 > 0 ) THEN\n!      DO J = JS2G0, JN2G0\n!      DO I = 1,     IM\n!\n!         DTC = FY(I,J) * RGW_25(J) * AREA_M2(J) * g0_100 / DT\n!\n!      ENDDO\n!      ENDDO\n!\n!      ! South Pole\n!      IF ( JFIRST == 1 ) THEN\n!         DO I = 1, IM\n!\n!            DTC = -FY(I,2) * RGW_25(1) * AREA_M2(1) * g0_100 / DT\n!\n!         ENDDO\n!      ENDIF\n!\n!      ! North Pole\n!      IF ( JLAST == JM ) THEN\n!         DO I = 1, IM\n!\n!            DTC = FY(I,JM) * RGW_25(JM) * AREA_M2(JM) * g0_100 / DT\n!\n!         ENDDO\n!      ENDIF\n!   ENDIF\n! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n!-------------------------------------------------------------------\n! Apply a simple nearest neighbor flux correction to reduce negatives\n!-------------------------------------------------------------------\n   if ( iv /= -1 ) then\n      call fct_x(h, im, jm, jfirst, jlast, ng, i)\n   endif\n\n   do j=jfirst,jlast\n      do i=1,im\n         h(i,j) = h(i,j) / dpp(i,j)\n      enddo\n   enddo\n\n end subroutine tp2g\n\n subroutine tp2d(va, q, crx, cry, im, jm, iord, jord, ng, mg, fx, fy,      &\n                 ffsl, xfx, yfx, id, jfirst, jlast)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer, intent(in):: im, jm         ! Dimensions\n integer, intent(in):: jfirst, jlast  ! Latitude strip\n integer iord, jord                ! Interpolation order in x,y\n integer ng                        ! Max. NS dependencies\n integer mg                        !\n integer id                        ! density (0)  (mfx = C)\n                                   ! mixing ratio (1) (mfx = mass flux)\n logical ffsl(jfirst-ng:jlast+ng)  ! Use flux-form semi-Lagrangian trans.?\n                                   ! ghosted N*ng S*ng\n real va(im,jfirst:jlast)          ! Courant  (unghosted)\n real q(im,jfirst-ng:jlast+ng)     ! transported scalar ( N*NG S*NG )\n real crx(im,jfirst-ng:jlast+ng)   ! Ask S.-J. ( N*NG S*NG )\n real cry(im,jfirst:jlast+mg)       ! Ask S.-J. ( N like FY )\n real xfx(im,jfirst:jlast)         ! Ask S.-J. ( unghosted like FX )\n real yfx(im,jfirst:jlast+mg)       ! Ask S.-J. ( N like FY )\n\n! !OUTPUT PARAMETERS:\n real fx(im,jfirst:jlast)          ! Flux in x ( unghosted )\n real fy(im,jfirst:jlast+mg)        ! Flux in y ( N, see tp2c )\n\n! Local:\n integer i, j, iad, jp, js2g0, js2gng, jn2g0, jn2gng\n real adx(im,jfirst-ng:jlast+ng)\n real wk1(im)\n real dm(-im/3:im+im/3)\n real qtmp(-im/3:im+im/3)\n real al(-im/3:im+im/3)\n real ar(-im/3:im+im/3)\n real a6(-im/3:im+im/3)\n\n! Number of ghost latitudes\n  js2g0  = max(2,jfirst)          !  No ghosting\n  jn2g0  = min(jm-1,jlast)        !  No ghosting\n  js2gng = max(2,jfirst-ng)       !  Number needed on S\n  jn2gng = min(jm-1,jlast+ng)     !  Number needed on N\n\n  iad = 1\n\n  do j=js2gng,jn2gng               !  adx needed on N*ng S*ng\n\n     call xtp(im,  ffsl(j), wk1, q(1,j),                &\n              crx(1,j), iad, crx(1,j), cosp(j), 0,      &\n              dm, qtmp, al, ar, a6)\n\n     do i=1,im-1\n        adx(i,j) = q(i,j) + 0.5 *                       &\n                   (wk1(i)-wk1(i+1) + q(i,j)*(crx(i+1,j)-crx(i,j)))\n     enddo\n        adx(im,j) = q(im,j) + 0.5 *                     &\n                   (wk1(im)-wk1(1) + q(im,j)*(crx(1,j)-crx(im,j)))\n  enddo\n\n    if ( jfirst == 1 ) then\n        do i=1,im\n          adx(i, 1) = q(i,1)\n        enddo\n    endif\n    if ( jlast == jm ) then\n        do i=1,im\n          adx(i,jm) = q(i,jm)\n        enddo\n    endif\n\n    call ytp(im,jm,fy, adx,cry,yfx,ng,mg,jord,0,jfirst,jlast)\n\n      do j=js2g0,jn2g0\n        do i=1,im\n           jp = j-va(i,j)\n           wk1(i) = q(i,j) +0.5*va(i,j)*(q(i,jp)-q(i,jp+1))\n        enddo\n\n        call xtp(im,  ffsl(j), fx(1,j), wk1,                  &\n                 crx(1,j), iord, xfx(1,j), cosp(j), id,       &\n                 dm, qtmp, al, ar, a6)\n      enddo\n end subroutine tp2d\n\n\n subroutine xtp(im, ffsl,  fx,  q,  c,  iord,  mfx,            &\n                cosa, id, dm, qtmp, al, ar, a6)\n\n implicit none\n\n! !INPUT PARAMETERS:\n   integer id               ! ID = 0: density (mfx = C)\n                            ! ID = 1: mixing ratio (mfx is mass flux)\n\n   integer im               ! Total longitudes\n   real c(im)          ! Courant numbers\n   real q(im)\n   real mfx(im)\n   logical ffsl\n   integer iord\n   real cosa\n\n! !INPUT/OUTPUT PARAMETERS:\n   real qtmp(-im/3:im+im/3)   ! Input work arrays:\n   real dm(-im/3:im+im/3)\n   real al(-im/3:im+im/3)\n   real ar(-im/3:im+im/3)\n   real a6(-im/3:im+im/3)\n\n! !OUTPUT PARAMETERS:\n   real fx(im)\n\n! Local:\n   real cos_upw               !critical cosine for upwind\n   real cos_van               !critical cosine for van Leer\n   real cos_ppm               !critical cosine for ppm\n\n   parameter (cos_upw = 0.05)       !roughly at 87 deg.\n   parameter (cos_van = 0.25)       !roughly at 75 deg.\n   parameter (cos_ppm = 0.25)\n\n   integer i, imp\n   real qmax, qmin\n   real rut, tmp\n   integer iu, itmp, ist\n   integer isave(im)\n   integer iuw, iue\n\n   imp = im + 1\n\n   do i=1,im\n      qtmp(i) = q(i)\n   enddo\n\n   if( ffsl ) then\n\n! Figure out ghost zone for the western edge:\n      iuw =  -c(1)\n      iuw = min(0, iuw)\n\n      do i=iuw, 0\n         qtmp(i) = q(im+i)\n      enddo\n\n! Figure out ghost zone for the eastern edge:\n      iue = im - c(im)\n      iue = max(imp, iue)\n\n      do i=imp, iue\n         qtmp(i) = q(i-im)\n      enddo\n\n      if( iord == 1 .or. cosa < cos_upw) then\n      do i=1,im\n        iu = c(i)\n      if(c(i) <= 0.) then\n        itmp = i - iu\n        isave(i) = itmp - 1\n      else\n        itmp = i - iu - 1\n        isave(i) = itmp + 1\n      endif\n        fx(i) = (c(i)-iu) * qtmp(itmp)\n      enddo\n      else\n\n      do i=1,im\n! 2nd order slope\n         tmp = 0.25*(qtmp(i+1) - qtmp(i-1))\n         qmax = max(qtmp(i-1), qtmp(i), qtmp(i+1)) - qtmp(i)\n         qmin = qtmp(i) - min(qtmp(i-1), qtmp(i), qtmp(i+1))\n         dm(i) = sign(min(abs(tmp),qmax,qmin), tmp)\n      enddo\n\n      do i=iuw, 0\n         dm(i) = dm(im+i)\n      enddo\n\n      do i=imp, iue\n         dm(i) = dm(i-im)\n      enddo\n\n      if(iord >= 3 .and. cosa > cos_ppm) then\n         call fxppm(im, c, mfx, qtmp, dm, fx, iord, al, ar, a6,         &\n                    iuw, iue, ffsl, isave)\n      else\n      do i=1,im\n            iu  = c(i)\n            rut = c(i) - iu\n         if(c(i) .le. 0.) then\n            itmp = i - iu\n            isave(i) = itmp - 1\n            fx(i) = rut*(qtmp(itmp)-dm(itmp)*(1.+rut))\n         else\n            itmp = i - iu - 1\n            isave(i) = itmp + 1\n            fx(i) = rut*(qtmp(itmp)+dm(itmp)*(1.-rut))\n         endif\n      enddo\n      endif\n\n      endif\n\n      do i=1,im\n      if(c(i) >= 1.) then\n        do ist = isave(i),i-1\n           fx(i) = fx(i) + qtmp(ist)\n        enddo\n      elseif(c(i) <= -1.) then\n        do ist = i,isave(i)\n           fx(i) = fx(i) - qtmp(ist)\n        enddo\n      endif\n      enddo\n\n      if(id .ne. 0) then\n         do i=1,im\n            fx(i) =  fx(i)*mfx(i)\n         enddo\n      endif\n\n   else\n! Regular PPM (Eulerian without FFSL extension)\n\n      qtmp(imp) = q(1)\n      qtmp(  0) = q(im)\n\n      if(iord == 1 .or. cosa < cos_upw) then\n         do i=1,im\n            iu = float(i) - c(i)\n            fx(i) = mfx(i)*qtmp(iu)\n         enddo\n      else\n\n         qtmp(-1)    = q(im-1)\n         qtmp(imp+1) = q(2)\n\n         if(iord > 0 .or. cosa < cos_van) then\n            call xmist(im, qtmp, dm, 2)\n         else\n            call xmist(im, qtmp, dm, iord)\n         endif\n\n         dm(0) = dm(im)\n\n         if( abs(iord) ==2 .or. cosa < cos_van ) then\n            do i=1,im\n               iu = float(i) - c(i)\n               fx(i) =  mfx(i)*(qtmp(iu)+dm(iu)*(sign(1.,c(i))-c(i)))\n            enddo\n         else\n            call fxppm(im, c, mfx, qtmp, dm, fx, iord, al, ar, a6,    &\n                       iuw, iue, ffsl, isave)\n         endif\n      endif\n\n   endif\n end subroutine xtp\n\n subroutine xmist(im,  q,  dm,  id)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer, intent(in):: im       ! Total number of longitudes\n integer, intent(in):: id       ! ID = 0: density (mfx = C)\n                                ! ID = 1: mixing ratio (mfx is mass flux)\n real, intent(in):: q(-im/3:im+im/3)   ! scalar field\n\n! !OUTPUT PARAMETERS:\n real, intent(out):: dm(-im/3:im+im/3)   !\n\n! Local\n real r24\n parameter( r24 = 1./24.)\n integer i\n real qmin, qmax\n\n    if(id <= 2) then\n       do i=1,im\n          dm(i) = r24*(8.*(q(i+1) - q(i-1)) + q(i-2) - q(i+2))\n       enddo\n    else\n       do i=1,im\n          dm(i) = 0.25*(q(i+1) - q(i-1))\n       enddo\n    endif\n\n    if( id < 0 ) return\n\n! Apply monotonicity constraint (Lin et al. 1994, MWR)\n      do i=1,im\n         qmax = max( q(i-1), q(i), q(i+1) ) - q(i)\n         qmin = q(i) - min( q(i-1), q(i), q(i+1) )\n         dm(i) = sign( min(abs(dm(i)), qmax, qmin), dm(i) )\n      enddo\n end subroutine xmist\n\n subroutine fxppm(im, c, mfx,  p, dm, fx, iord, al, ar, a6,        &\n                  iuw, iue, ffsl, isave)\n implicit none\n\n! !INPUT PARAMETERS:\n integer, intent(in):: im, iord\n integer, intent(in):: iuw, iue\n logical, intent(in):: ffsl\n real, intent(in):: c(im)\n real, intent(in):: p(-im/3:im+im/3)\n real, intent(in):: dm(-im/3:im+im/3)\n real, intent(in):: mfx(im)\n\n! !INPUT/OUTPUT PARAMETERS:\n integer, intent(inout):: isave(im)\n\n real, intent(out):: fx(im)\n real, intent(out):: al(-im/3:im+im/3)\n real, intent(out):: ar(-im/3:im+im/3)\n real, intent(out):: a6(-im/3:im+im/3)\n\n! LOCAL VARIABLES:\n real r3, r23\n parameter ( r3 = 1./3., r23 = 2./3. )\n\n integer i, lmt\n integer iu, itmp\n real ru\n\n  do i=1,im\n     al(i) = 0.5*(p(i-1)+p(i)) + (dm(i-1) - dm(i))*r3\n  enddo\n\n  do i=1,im-1\n     ar(i) = al(i+1)\n  enddo\n     ar(im) = al(1)\n\n  if(iord == 7) then\n     call huynh(im, ar(1), al(1), p(1), a6(1), dm(1))\n  else\n     if(iord == 3 .or. iord == 5) then\n         do i=1,im\n            a6(i) = 3.*(p(i)+p(i)  - (al(i)+ar(i)))\n         enddo\n     endif\n     lmt = iord - 3\n     call lmppm( dm(1), a6(1), ar(1), al(1), p(1), im, lmt )\n  endif\n\n  if( ffsl ) then\n\n      do i=iuw, 0\n         al(i) = al(im+i)\n         ar(i) = ar(im+i)\n         a6(i) = a6(im+i)\n      enddo\n\n      do i=im+1, iue\n         al(i) = al(i-im)\n         ar(i) = ar(i-im)\n         a6(i) = a6(i-im)\n      enddo\n\n      do i=1,im\n            iu = c(i)\n            ru = c(i) - iu\n         if(c(i) > 0.) then\n            itmp = i - iu - 1\n            isave(i) = itmp + 1\n            fx(i) = ru*(ar(itmp)+0.5*ru*(al(itmp)-ar(itmp) +     &\n                        a6(itmp)*(1.-r23*ru)) )\n         else\n            itmp = i - iu\n            isave(i) = itmp - 1\n            fx(i) = ru*(al(itmp)-0.5*ru*(ar(itmp)-al(itmp) +     &\n                        a6(itmp)*(1.+r23*ru)) )\n         endif\n      enddo\n\n  else\n         al(0) = al(im)\n         ar(0) = ar(im)\n         a6(0) = a6(im)\n      do i=1,im\n         if(c(i) > 0.) then\n            fx(i) = ar(i-1) + 0.5*c(i)*(al(i-1) - ar(i-1) +   &\n                    a6(i-1)*(1.-r23*c(i)) )\n      else\n            fx(i) = al(i) - 0.5*c(i)*(ar(i) - al(i) +         &\n                    a6(i)*(1.+r23*c(i)))\n      endif\n            fx(i) = mfx(i) * fx(i)\n      enddo\n  endif\n end subroutine fxppm\n\n subroutine lmppm(dm, a6, ar, al, p, im, lmt)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer, intent(in):: im   ! Total longitudes\n integer, intent(in):: lmt  ! LMT = 0: full monotonicity\n              ! LMT = 1: Improved and simplified full monotonic constraint\n              ! LMT = 2: positive-definite constraint\n              ! LMT = 3: Quasi-monotone constraint\n real, intent(in):: p(im)\n real, intent(in):: dm(im)\n\n real, intent(inout):: a6(im)\n real, intent(inout):: ar(im)\n real, intent(inout):: al(im)\n\n! !LOCAL VARIABLES:\n real r12\n parameter ( r12 = 1./12. )\n\n real da1, da2, fmin, a6da\n real dr, dl\n\n integer i\n\n! LMT = 0: full monotonicity\n! LMT = 1: Improved and simplified full monotonic constraint\n! LMT = 2: positive-definite constraint\n! LMT = 3: Quasi-monotone constraint\n\n  if( lmt == 0 ) then\n\n! Full constraint\n  do i=1,im\n     if(dm(i) == 0.) then\n         ar(i) = p(i)\n         al(i) = p(i)\n         a6(i) = 0.\n     else\n         da1  = ar(i) - al(i)\n         da2  = da1**2\n         a6da = a6(i)*da1\n         if(a6da < -da2) then\n            a6(i) = 3.*(al(i)-p(i))\n            ar(i) = al(i) - a6(i)\n         elseif(a6da > da2) then\n            a6(i) = 3.*(ar(i)-p(i))\n            al(i) = ar(i) - a6(i)\n         endif\n     endif\n  enddo\n\n  elseif( lmt == 1 ) then\n\n! Improved (Lin 200?) full constraint\n      do i=1,im\n           da1 = dm(i) + dm(i)\n            dl = sign(min(abs(da1),abs(al(i)-p(i))), da1)\n            dr = sign(min(abs(da1),abs(ar(i)-p(i))), da1)\n         ar(i) = p(i) + dr\n         al(i) = p(i) - dl\n         a6(i) = 3.*(dl-dr)\n      enddo\n\n  elseif( lmt == 2 ) then\n! Positive definite only constraint\n      do 250 i=1,im\n      if(abs(ar(i)-al(i)) .ge. -a6(i)) go to 250\n      fmin = p(i) + 0.25*(ar(i)-al(i))**2/a6(i) + a6(i)*r12\n      if(fmin.ge.0.) go to 250\n      if(p(i) < ar(i) .and. p(i) < al(i)) then\n            ar(i) = p(i)\n            al(i) = p(i)\n            a6(i) = 0.\n      elseif(ar(i) > al(i)) then\n            a6(i) = 3.*(al(i)-p(i))\n            ar(i) = al(i) - a6(i)\n      else\n            a6(i) = 3.*(ar(i)-p(i))\n            al(i) = ar(i) - a6(i)\n      endif\n250   continue\n\n  elseif(lmt == 3) then\n! Quasi-monotone constraint\n      do i=1,im\n         da1 = 4.*dm(i)\n          dl = sign(min(abs(da1),abs(al(i)-p(i))), da1)\n          dr = sign(min(abs(da1),abs(ar(i)-p(i))), da1)\n         ar(i) = p(i) + dr\n         al(i) = p(i) - dl\n         a6(i) = 3.*(dl-dr)\n      enddo\n  endif\n end subroutine lmppm\n\n\n subroutine huynh(im, ar, al, p, d2, d1)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer im\n real p(im)\n\n! !OUTPUT PARAMETERS:\n real ar(im)\n real al(im)\n real d2(im)\n real d1(im)\n\n! !LOCAL VARIABLES:\n integer  i\n real pmp\n real lac\n real pmin\n real pmax\n\n! Compute d1 and d2\n      d1(1) = p(1) - p(im)\n      do i=2,im\n         d1(i) = p(i) - p(i-1)\n      enddo\n\n      do i=1,im-1\n         d2(i) = d1(i+1) - d1(i)\n      enddo\n      d2(im) = d1(1) - d1(im)\n\n! Constraint for AR\n!            i = 1\n         pmp   = p(1) + 2.0 * d1(1)\n         lac   = p(1) + 0.5 * (d1(1)+d2(im)) + d2(im)\n         pmin  = min(p(1), pmp, lac)\n         pmax  = max(p(1), pmp, lac)\n         ar(1) = min(pmax, max(ar(1), pmin))\n\n      do i=2, im\n         pmp   = p(i) + 2.0*d1(i)\n         lac   = p(i) + 0.5*(d1(i)+d2(i-1)) + d2(i-1)\n         pmin  = min(p(i), pmp, lac)\n         pmax  = max(p(i), pmp, lac)\n         ar(i) = min(pmax, max(ar(i), pmin))\n      enddo\n\n! Constraint for AL\n      do i=1, im-1\n         pmp   = p(i) - 2.0*d1(i+1)\n         lac   = p(i) + 0.5*(d2(i+1)-d1(i+1)) + d2(i+1)\n         pmin  = min(p(i), pmp, lac)\n         pmax  = max(p(i), pmp, lac)\n         al(i) = min(pmax, max(al(i), pmin))\n      enddo\n\n! i=im\n         i = im\n         pmp    = p(im) - 2.0*d1(1)\n         lac    = p(im) + 0.5*(d2(1)-d1(1)) + d2(1)\n         pmin   = min(p(im), pmp, lac)\n         pmax   = max(p(im), pmp, lac)\n         al(im) = min(pmax, max(al(im), pmin))\n\n! compute A6 (d2)\n      do i=1, im\n         d2(i) = 3.*(p(i)+p(i)  - (al(i)+ar(i)))\n      enddo\n end subroutine huynh\n\n\n subroutine ytp(im, jm, fy, q, c, yfx, ng, mg, jord, iv, jfirst, jlast)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer im, jm                      !  Dimensions\n integer jfirst, jlast               !  Latitude strip\n integer ng                          !  Max. NS dependencies\n integer mg                          !\n integer jord                        !  order of subgrid dist\n integer iv                          !  Scalar=0, Vector=1\n real q(im,jfirst-ng:jlast+ng)       !  advected scalar N*jord S*jord\n real c(im,jfirst:jlast+mg)           !  Courant   N (like FY)\n real yfx(im,jfirst:jlast+mg)         !  Backgrond mass flux\n\n! !OUTPUT PARAMETERS:\n real fy(im,jfirst:jlast+mg)          !  Flux      N (see tp2c)\n\n! !LOCAL VARIABLES:\n integer i, j, jt\n integer js2g0, jn1g1\n\n! work arrays (should pass in eventually for performance enhancement):\n real dm(im,jfirst-ng:jlast+ng)\n\n!     real ar(im,jfirst-1:jlast+1)  ! AR needs to be ghosted on NS\n!     real al(im,jfirst-1:jlast+2)  ! AL needs to be ghosted on N2S\n!     real a6(im,jfirst-1:jlast+1)  ! A6 needs to be ghosted on NS\n\n\n   js2g0  = max(2,jfirst)       ! No ghosting\n   jn1g1  = min(jm,jlast+1)     ! Ghost N*1\n\n   if(jord == 1) then\n        do j=js2g0,jn1g1\n          do i=1,im\n            jt = float(j) - c(i,j)\n            fy(i,j) = q(i,jt)\n          enddo\n        enddo\n   else\n\n!\n! YMIST requires q on NS;  Only call to YMIST here\n!\n        call ymist(im, jm, q, dm, ng, jord, iv, jfirst, jlast)\n\n        if( abs(jord) .ge. 3 ) then\n\n          call fyppm(c,q,dm,fy,im,jm,ng,mg,jord,iv,jfirst,jlast)\n\n        else\n!\n! JORD can either have the value 2 or -2 at this point\n!\n          do j=js2g0,jn1g1\n            do i=1,im\n              jt = float(j) - c(i,j)\n              fy(i,j) = q(i,jt) + (sign(1.,c(i,j))-c(i,j))*dm(i,jt)\n            enddo\n          enddo\n        endif\n   endif\n\n      do j=js2g0,jn1g1\n        do i=1,im\n          fy(i,j) = fy(i,j)*yfx(i,j)\n        enddo\n      enddo\n end subroutine ytp\n\n subroutine ymist(im, jm, q, dm, ng, jord, iv, jfirst, jlast)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer im, jm                      !  Dimensions\n integer jfirst, jlast               !  Latitude strip\n integer ng                          !  NS dependencies\n integer jord                        !  order of subgrid distribution\n integer iv                          !  Scalar (==0) Vector (==1)\n real q(im,jfirst-ng:jlast+ng)  !  transported scalar  N*ng S*ng\n\n! !OUTPUT PARAMETERS:\n real dm(im,jfirst-ng:jlast+ng)      !  Slope only N*(ng-1) S*(ng-1) used\n\n! Local variables\n\n integer i, j, jm1, im2, js2gng1, jn2gng1\n real qmax, qmin, tmp\n\n    js2gng1 = max(2,   jfirst-ng+1)     !  Number needed on S\n    jn2gng1 = min(jm-1,jlast+ng-1)      !  Number needed on N\n\n    jm1 = jm - 1\n    im2 = im / 2\n\n      do j=js2gng1,jn2gng1\n        do i=1,im\n           dm(i,j) = 0.25*(q(i,j+1) - q(i,j-1))\n        enddo\n      enddo\n\n   if( iv == 0 ) then\n\n        if ( jfirst == 1 ) then\n! S pole\n          do i=1,im2\n            tmp = 0.25*(q(i,2)-q(i+im2,2))\n            qmax = max(q(i,2),q(i,1), q(i+im2,2)) - q(i,1)\n            qmin = q(i,1) - min(q(i,2),q(i,1), q(i+im2,2))\n            dm(i,1) = sign(min(abs(tmp),qmax,qmin),tmp)\n          enddo\n\n          do i=im2+1,im\n            dm(i, 1) =  - dm(i-im2, 1)\n          enddo\n        endif\n\n        if ( jlast == jm ) then\n! N pole\n          do i=1,im2\n            tmp = 0.25*(q(i+im2,jm1)-q(i,jm1))\n            qmax = max(q(i+im2,jm1),q(i,jm), q(i,jm1)) - q(i,jm)\n            qmin = q(i,jm) - min(q(i+im2,jm1),q(i,jm), q(i,jm1))\n            dm(i,jm) = sign(min(abs(tmp),qmax,qmin),tmp)\n          enddo\n\n          do i=im2+1,im\n            dm(i,jm) =  - dm(i-im2,jm)\n          enddo\n        endif\n\n   else\n\n        if ( jfirst == 1 ) then\n! South\n          do i=1,im2\n            tmp  = 0.25*(q(i,2)+q(i+im2,2))\n            qmax = max(q(i,2),q(i,1), -q(i+im2,2)) - q(i,1)\n            qmin = q(i,1) - min(q(i,2),q(i,1),-q(i+im2,2))\n            dm(i,1) = sign(min(abs(tmp),qmax,qmin),tmp)\n          enddo\n\n          do i=im2+1,im\n            dm(i, 1) = dm(i-im2, 1)\n          enddo\n        endif\n\n        if ( jlast == jm ) then\n! North\n          do i=1,im2\n            tmp  = -0.25*(q(i+im2,jm1)+q(i,jm1))\n            qmax = max(-q(i+im2,jm1),q(i,jm), q(i,jm1)) - q(i,jm)\n            qmin = q(i,jm) - min(-q(i+im2,jm1),q(i,jm), q(i,jm1))\n            dm(i,jm) = sign(min(abs(tmp),qmax,qmin),tmp)\n          enddo\n\n          do i=im2+1,im\n            dm(i,jm) = dm(i-im2,jm)\n          enddo\n        endif\n\n   endif\n\n   if( jord > 0 ) then\n!\n! Applies monotonic slope constraint (off if jord less than zero)\n!\n        do j=js2gng1,jn2gng1\n          do i=1,im\n            qmax = max(q(i,j-1),q(i,j),q(i,j+1)) - q(i,j)\n            qmin = q(i,j) - min(q(i,j-1),q(i,j),q(i,j+1))\n            dm(i,j) = sign(min(abs(dm(i,j)),qmin,qmax),dm(i,j))\n          enddo\n        enddo\n   endif\n end subroutine ymist\n\n subroutine fyppm(c,  q,  dm, flux, im, jm, ng,mg, jord, iv, jfirst, jlast)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer im, jm                      !  Dimensions\n integer jfirst, jlast               !  Latitude strip\n integer ng                          !  Max. NS dependencies\n integer mg                          !\n integer jord                        !  Approximation order\n integer iv                          !  Scalar=0, Vector=1\n real q(im,jfirst-ng:jlast+ng) !  mean value needed only N*2 S*2\n real dm(im,jfirst-ng:jlast+ng) !  Slope     needed only N*2 S*2\n real c(im,jfirst:jlast+mg)     !  Courant   N (like FLUX)\n\n! !INPUT/OUTPUT PARAMETERS:\n real ar(im,jfirst-1:jlast+1)   ! AR needs to be ghosted on NS\n real al(im,jfirst-1:jlast+2)   ! AL needs to be ghosted on N2S\n real a6(im,jfirst-1:jlast+1)   ! A6 needs to be ghosted on NS\n\n! !OUTPUT PARAMETERS:\n real flux(im,jfirst:jlast+mg)   !  Flux      N (see tp2c)\n\n! Local\n real r3, r23\n parameter ( r3 = 1./3., r23 = 2./3. )\n integer i, j, imh, jm1, lmt\n integer js1g1, js2g0, js2g1, jn1g2, jn1g1, jn2g1\n\n      !---------------------------------------------------------------------\n      ! Initialize local variables (bmy, 7/10/17)\n      ar = 0.0\n      al = 0.0\n      a6 = 0.0\n      !---------------------------------------------------------------------\n\n      imh = im / 2\n      jm1 = jm - 1\n\n      js1g1  = max(1,jfirst-1)         ! Ghost S*1\n      js2g0  = max(2,jfirst)           ! No ghosting\n      js2g1  = max(2,jfirst-1)         ! Ghost S*1\n      jn1g1  = min(jm,jlast+1)         ! Ghost N*1\n      jn1g2  = min(jm,jlast+2)         ! Ghost N*2\n      jn2g1  = min(jm-1,jlast+1)       ! Ghost N*1\n\n      do j=js2g1,jn1g2                 ! AL needed N2S\n        do i=1,im                      ! P, dm ghosted N2S2 (at least)\n          al(i,j) = 0.5*(q(i,j-1)+q(i,j)) + r3*(dm(i,j-1) - dm(i,j))\n        enddo\n      enddo\n\n      do j=js1g1,jn2g1                 ! AR needed NS\n        do i=1,im\n          ar(i,j) = al(i,j+1)          ! AL ghosted N2S\n        enddo\n      enddo\n\n! Poles:\n\n   if( iv == 0 ) then\n\n        if ( jfirst .eq. 1 ) then\n          do i=1,imh\n            al(i,    1) = al(i+imh,2)\n            al(i+imh,1) = al(i,    2)\n          enddo\n        endif\n\n        if ( jlast .eq. jm ) then\n          do i=1,imh\n            ar(i,    jm) = ar(i+imh,jm1)\n            ar(i+imh,jm) = ar(i,    jm1)\n          enddo\n        endif\n\n   else\n\n        if ( jfirst .eq. 1 ) then\n          do i=1,imh\n            al(i,    1) = -al(i+imh,2)\n            al(i+imh,1) = -al(i,    2)\n          enddo\n        endif\n\n        if ( jlast .eq. jm ) then\n          do i=1,imh\n            ar(i,    jm) = -ar(i+imh,jm1)\n            ar(i+imh,jm) = -ar(i,    jm1)\n          enddo\n        endif\n\n   endif\n\n   if( jord == 3 .or. jord == 5 ) then\n      do j=js1g1,jn1g1               ! A6 needed NS\n        do i=1,im\n          a6(i,j) = 3.*(q(i,j)+q(i,j) - (al(i,j)+ar(i,j)))\n        enddo\n      enddo\n   endif\n\n      lmt = jord - 3\n\n      call lmppm(dm(1,js1g1), a6(1,js1g1), ar(1,js1g1),               &\n                 al(1,js1g1),  q(1,js1g1), im*(jn1g1-js1g1+1), lmt)\n\n      do j=js2g0,jn1g1                 ! flux needed N\n        do i=1,im\n          if(c(i,j) > 0.) then\n            flux(i,j) = ar(i,j-1) + 0.5*c(i,j)*(al(i,j-1) - ar(i,j-1) +  &\n                        a6(i,j-1)*(1.-r23*c(i,j)) )\n          else\n            flux(i,j) = al(i,j) - 0.5*c(i,j)*(ar(i,j) - al(i,j) +        &\n                        a6(i,j)*(1.+r23*c(i,j)))\n          endif\n        enddo\n      enddo\n end subroutine fyppm\n\n subroutine xpavg(p, im)\n\n      implicit none\n\n! !INPUT PARAMETERS:\n      integer im\n\n! !INPUT/OUTPUT PARAMETERS:\n      real p(im)\n\n      integer i\n      real sum1\n\n      p(1:im) = sum(p(1:im))/im\n\n!      sum1 = 0.\n!      do i=1,im\n!         sum1 = sum1 + p(i)\n!      enddo\n!      sum1 = sum1 / im\n\n!      do i=1,im\n!         p(i) = sum1\n!      enddo\n end subroutine xpavg\n\n subroutine qmap(pe,  q, im, jm, km, nx, jfirst, jlast, ng, nq,       &\n                 ps,  ak, bk, kord, iv)\n\n implicit none\n\n!INPUT\n   integer im, jm, km            ! x, y, z dimensions\n   integer nq                    ! number of tracers\n   integer nx                    ! number of SMP \"decomposition\" in x\n   integer iv                    ! monotonicity at top and bottom\n                                 ! iv=0 : weak constraint\n                                 ! iv=1 : strong constraint\n                                 ! iv=-1: for vector\n   integer jfirst, jlast         ! starting & ending latitude index\n   integer ng                    ! width of ghost regions\n   real, intent(in):: ak(km+1)\n   real, intent(in):: bk(km+1)\n   real, intent(in):: pe(im,km+1,jfirst:jlast)\n\n! INPUT/OUTPUT\n   real q(im,jfirst-ng:jlast+ng,km,nq) ! tracers including specific humidity\n   real ps(im,jfirst:jlast)      ! surface pressure\n\n! Local arrays:\n  real pe2(im,km+1)\n\n  real temp\n  integer i, j, k, iq\n  integer ixj, jp, it, i1, i2\n  integer kord\n\n\n  it = im / nx\n  jp = nx * ( jlast - jfirst + 1 )\n\n\n\n!$omp parallel do                           &\n!$omp shared(im,km,jfirst,jlast,ng,iv,kord) &\n!$omp private(i, j, k, iq, i1, i2, ixj, pe2)\n\n! do 2000 j=jfirst,jlast\n  do 2000 ixj=1,jp\n\n     j  = jfirst + (ixj-1) / nx\n     i1 = 1 + it * mod(ixj-1, nx)\n     i2 = i1 + it - 1\n\n\n! k=1\n     do i=i1,i2\n        pe2(i,1) = ak(1)\n     enddo\n\n     do k=2,km\n        do i=i1,i2\n           pe2(i,k) = ak(k) + bk(k)*ps(i,j)\n        enddo\n     enddo\n\n! k=km+1\n     do i=i1,i2\n        pe2(i,km+1) = ps(i,j)\n     enddo\n\n     temp = sum(q)\n     do iq=1,nq\n        call map1_ppm ( km,   pe(1,1,j),   q(1,jfirst-ng,1,iq),   &\n                        km,   pe2,         q(1,jfirst-ng,1,iq),   &\n                        im, i1, i2,  j, jfirst, jlast, ng, iv, kord)\n     enddo\n2000  continue\n\n end subroutine qmap\n\n subroutine map1_ppm( km,   pe1,   q1,                         &\n                      kn,   pe2,   q2,                         &\n                      im, i1, i2, j, jfirst, jlast, ng, iv, kord)\n\n implicit none\n\n!INPUT PARAMETERS:\n integer i1                             ! Starting longitude\n integer i2                             ! Finishing longitude\n integer im                             ! E-W dimension\n integer iv                             ! Mode: 0 ==  constituents  1 == ???\n integer kord                           ! Method order\n integer j                              ! Current latitude\n integer jfirst                         ! Starting latitude\n integer jlast                          ! Finishing latitude\n integer ng                             ! Width of ghost regions\n integer km                             ! Original vertical dimension\n integer kn                             ! Target vertical dimension\n\n real pe1(im,km+1)                ! pressure at layer edges\n                                        ! (from model top to bottom surface)\n                                        ! in the original vertical coordinate\n real pe2(im,kn+1)                ! pressure at layer edges\n                                        ! (from model top to bottom surface)\n                                        ! in the new vertical coordinate\n real q1(im,jfirst-ng:jlast+ng,km)     ! Field input\n\n!OUTPUT PARAMETERS:\n real q2(im,jfirst-ng:jlast+ng,kn)     ! Field output\n\n! LOCAL VARIABLES:\n\n real dp1(i1:i2,km)\n real q4(4,i1:i2,km)\n integer i, k, l, ll, k0\n real  pl, pr, qsum, delp, esl\n real       r3, r23\n real temp\n parameter (r3 = 1./3., r23 = 2./3.)\n\n ! Initialize local arrays (bmy, 7/10/17)\n dp1 = 0.0\n q4  = 0.0\n\n      do k=1,km\n         do i=i1,i2\n             dp1(i,k) = pe1(i,k+1) - pe1(i,k)\n            q4(1,i,k) = q1(i,j,k)\n         enddo\n      enddo\n\n      temp = sum(q4)\n! Compute vertical subgrid distribution\n      call ppm2m( q4, dp1, km, i1, i2, iv, kord )\n\n      temp = sum(q2)\n! Mapping\n      do 1000 i=i1,i2\n         k0 = 1\n      do 555 k=1,kn\n      do 100 l=k0,km\n! locate the top edge: pe2(i,k)\n      if(pe2(i,k) .ge. pe1(i,l) .and. pe2(i,k) .le. pe1(i,l+1)) then\n         pl = (pe2(i,k)-pe1(i,l)) / dp1(i,l)\n         if(pe2(i,k+1) .le. pe1(i,l+1)) then\n! entire new grid is within the original grid\n            pr = (pe2(i,k+1)-pe1(i,l)) / dp1(i,l)\n            q2(i,j,k) = q4(2,i,l) + 0.5*(q4(4,i,l)+q4(3,i,l)-q4(2,i,l)) &\n                          *(pr+pl)-q4(4,i,l)*r3*(pr*(pr+pl)+pl**2)\n               k0 = l\n               goto 555\n          else\n! Fractional area...\n            qsum = (pe1(i,l+1)-pe2(i,k))*(q4(2,i,l)+0.5*(q4(4,i,l)+     &\n                    q4(3,i,l)-q4(2,i,l))*(1.+pl)-q4(4,i,l)*             &\n                     (r3*(1.+pl*(1.+pl))))\n              do ll=l+1,km\n! locate the bottom edge: pe2(i,k+1)\n                 if(pe2(i,k+1) > pe1(i,ll+1) ) then\n! Whole layer..\n                 qsum = qsum + dp1(i,ll)*q4(1,i,ll)\n                 else\n                 delp = pe2(i,k+1)-pe1(i,ll)\n                  esl = delp / dp1(i,ll)\n                 qsum = qsum + delp*(q4(2,i,ll)+0.5*esl*               &\n                       (q4(3,i,ll)-q4(2,i,ll)+q4(4,i,ll)*(1.-r23*esl)))\n                 k0 = ll\n                 goto 123\n                 endif\n              enddo\n              goto 123\n           endif\n      endif\n100   continue\n123   q2(i,j,k) = qsum / ( pe2(i,k+1) - pe2(i,k) )\n555   continue\n1000  continue\n\n end subroutine map1_ppm\n\n subroutine ppm2m(a4, delp, km, i1, i2, iv, kord)\n\n implicit none\n\n! INPUT PARAMETERS:\n integer, intent(in):: iv      ! iv =-1: winds\n                               ! iv = 0: positive definite scalars\n                               ! iv = 1: others\n integer, intent(in):: i1      ! Starting longitude\n integer, intent(in):: i2      ! Finishing longitude\n integer, intent(in):: km      ! vertical dimension\n integer, intent(in):: kord    ! Order (or more accurately method no.):\n                               !\n real, intent(in):: delp(i1:i2,km)     ! layer pressure thickness\n\n real, intent(inout):: a4(4,i1:i2,km)  ! Interpolated values\n\n! local arrays.\n real dc(i1:i2,km)\n real h2(i1:i2,km)\n real delq(i1:i2,km)\n real df2(i1:i2,km)\n real d4(i1:i2,km)\n\n real fac\n real a1, a2, c1, c2, c3, d1, d2\n real qmax, qmin, cmax, cmin\n real qm, dq, tmp\n real qmp, pmp\n real lac\n integer lmt\n integer i, k, km1\n integer it\n\n   km1 = km - 1\n   it = i2 - i1 + 1\n\n    do k=2,km\n       do i=i1,i2\n          delq(i,k-1) =   a4(1,i,k) - a4(1,i,k-1)\n            d4(i,k  ) = delp(i,k-1) + delp(i,k)\n       enddo\n    enddo\n\n    do k=2,km1\n       do i=i1,i2\n          c1  = (delp(i,k-1)+0.5*delp(i,k))/d4(i,k+1)\n          c2  = (delp(i,k+1)+0.5*delp(i,k))/d4(i,k)\n          tmp = delp(i,k)*(c1*delq(i,k) + c2*delq(i,k-1)) /       &\n                                  (d4(i,k)+delp(i,k+1))\n          qmax = max(a4(1,i,k-1),a4(1,i,k),a4(1,i,k+1)) - a4(1,i,k)\n          qmin = a4(1,i,k) - min(a4(1,i,k-1),a4(1,i,k),a4(1,i,k+1))\n           dc(i,k) = sign(min(abs(tmp),qmax,qmin), tmp)\n          df2(i,k) = tmp\n       enddo\n    enddo\n\n!------------------------------------------------------------\n! 4th order interpolation of the provisional cell edge value\n!------------------------------------------------------------\n\n    do k=3,km1\n      do i=i1,i2\n      c1 = delq(i,k-1)*delp(i,k-1) / d4(i,k)\n      a1 = d4(i,k-1) / (d4(i,k) + delp(i,k-1))\n      a2 = d4(i,k+1) / (d4(i,k) + delp(i,k))\n      a4(2,i,k) = a4(1,i,k-1) + c1 + 2./(d4(i,k-1)+d4(i,k+1)) *      &\n                ( delp(i,k)*(c1*(a1 - a2)+a2*dc(i,k-1)) -            &\n                                delp(i,k-1)*a1*dc(i,k  ) )\n      enddo\n    enddo\n\n    if(kord>3) call steepz(i1, i2, km, a4, df2, dc, delq, delp, d4)\n\n! Area preserving cubic with 2nd deriv. = 0 at the boundaries\n! Top\n    do i=i1,i2\n      d1 = delp(i,1)\n      d2 = delp(i,2)\n      qm = (d2*a4(1,i,1)+d1*a4(1,i,2)) / (d1+d2)\n      dq = 2.*(a4(1,i,2)-a4(1,i,1)) / (d1+d2)\n      c1 = (a4(2,i,3)-qm-d2*dq) / ( d2*(2.*d2*d2+d1*(d2+3.*d1)) )\n      c3 = dq - 2.0*c1*(d2*(5.*d1+d2)-3.*d1**2)\n      a4(2,i,2) = qm - c1*d1*d2*(d2+3.*d1)\n      a4(2,i,1) = d1*(8.*c1*d1**2-c3) + a4(2,i,2)\n      dc(i,1) =  a4(1,i,1) - a4(2,i,1)\n! No over- and undershoot condition\n      cmax = max(a4(1,i,1), a4(1,i,2))\n      cmin = min(a4(1,i,1), a4(1,i,2))\n      a4(2,i,2) = max(cmin,a4(2,i,2))\n      a4(2,i,2) = min(cmax,a4(2,i,2))\n    enddo\n\n    if( iv == 0 ) then\n        do i=i1,i2\n            a4(2,i,1) = max(0.,a4(2,i,1))\n        enddo\n    elseif ( iv ==  1 ) then\n! Monotone tracers:\n        do i=i1,i2\n           dc(i,1) = 0.\n           a4(2,i,1) = a4(1,i,1)\n           a4(2,i,2) = a4(1,i,1)\n        enddo\n    elseif ( iv == -1 ) then\n! Winds:\n        do i=i1,i2\n            if( a4(1,i,1)*a4(2,i,1) <=  0. ) then\n                a4(2,i,1) = 0.\n            else\n                a4(2,i,1) = sign(min(abs(a4(1,i,1)),      &\n                                     abs(a4(2,i,1))),     &\n                                         a4(1,i,1)  )\n            endif\n        enddo\n    endif\n\n! Bottom\n! Area preserving cubic with 2nd deriv. = 0 at the surface\n    do i=i1,i2\n       d1 = delp(i,km)\n       d2 = delp(i,km1)\n       qm = (d2*a4(1,i,km)+d1*a4(1,i,km1)) / (d1+d2)\n       dq = 2.*(a4(1,i,km1)-a4(1,i,km)) / (d1+d2)\n       c1 = (a4(2,i,km1)-qm-d2*dq) / (d2*(2.*d2*d2+d1*(d2+3.*d1)))\n       c3 = dq - 2.0*c1*(d2*(5.*d1+d2)-3.*d1**2)\n       a4(2,i,km) = qm - c1*d1*d2*(d2+3.*d1)\n       a4(3,i,km) = d1*(8.*c1*d1**2-c3) + a4(2,i,km)\n       dc(i,km) = a4(3,i,km) -  a4(1,i,km)\n! No over- and under-shoot condition\n       cmax = max(a4(1,i,km), a4(1,i,km1))\n       cmin = min(a4(1,i,km), a4(1,i,km1))\n       a4(2,i,km) = max(cmin,a4(2,i,km))\n       a4(2,i,km) = min(cmax,a4(2,i,km))\n    enddo\n\n! Enforce constraint at the surface\n\n    if ( iv == 0 ) then\n! Positive definite scalars:\n         do i=i1,i2\n            a4(3,i,km) = max(0., a4(3,i,km))\n         enddo\n    elseif ( iv ==  1 ) then\n! Monotone tracers:\n         do i=i1,i2\n            dc(i,km) = 0.\n            a4(2,i,km) = a4(1,i,km)\n            a4(3,i,km) = a4(1,i,km)\n         enddo\n    elseif ( iv == -1 ) then\n! Winds:\n         do i=i1,i2\n            if( a4(1,i,km)*a4(3,i,km) <=  0. ) then\n                a4(3,i,km) = 0.\n            else\n                a4(3,i,km) = sign( min(abs(a4(1,i,km)),      &\n                                       abs(a4(3,i,km))),     &\n                                           a4(1,i,km)  )\n            endif\n         enddo\n    endif\n\n    do k=1,km1\n       do i=i1,i2\n          a4(3,i,k) = a4(2,i,k+1)\n       enddo\n    enddo\n\n! f(s) = AL + s*[(AR-AL) + A6*(1-s)]         ( 0 <= s  <= 1 )\n\n! Top 2 and bottom 2 layers always use monotonic mapping\n    do k=1,2\n       do i=i1,i2\n          a4(4,i,k) = 3.*(2.*a4(1,i,k) - (a4(2,i,k)+a4(3,i,k)))\n       enddo\n       call kmppm(dc(i1,k), a4(1,i1,k), it, 0)\n    enddo\n\n if(kord .ge. 7) then\n\n!----------------------------------------\n! Huynh's 2nd constraint\n!----------------------------------------\n\n      do k=2, km1\n         do i=i1,i2\n! Method#1\n!           h2(i,k) = delq(i,k) - delq(i,k-1)\n! Method#2\n!           h2(i,k) = 2.*(dc(i,k+1)/delp(i,k+1) - dc(i,k-1)/delp(i,k-1))\n!    &               / ( delp(i,k)+0.5*(delp(i,k-1)+delp(i,k+1)) )\n!    &               * delp(i,k)**2\n! Method#3\n            h2(i,k) = dc(i,k+1) - dc(i,k-1)\n         enddo\n      enddo\n\n      if( kord == 7 ) then\n         fac = 1.5           ! original quasi-monotone\n      else\n         fac = 0.125         ! full monotone\n      endif\n\n      do k=3, km-2\n        do i=i1,i2\n! Right edges\n!        qmp   = a4(1,i,k) + 2.0*delq(i,k-1)\n!        lac   = a4(1,i,k) + fac*h2(i,k-1) + 0.5*delq(i,k-1)\n!\n         pmp   = 2.*dc(i,k)\n         qmp   = a4(1,i,k) + pmp\n         lac   = a4(1,i,k) + fac*h2(i,k-1) + dc(i,k)\n         qmin  = min(a4(1,i,k), qmp, lac)\n         qmax  = max(a4(1,i,k), qmp, lac)\n         a4(3,i,k) = min(max(a4(3,i,k), qmin), qmax)\n! Left  edges\n!        qmp   = a4(1,i,k) - 2.0*delq(i,k)\n!        lac   = a4(1,i,k) + fac*h2(i,k+1) - 0.5*delq(i,k)\n!\n         qmp   = a4(1,i,k) - pmp\n         lac   = a4(1,i,k) + fac*h2(i,k+1) - dc(i,k)\n         qmin  = min(a4(1,i,k), qmp, lac)\n         qmax  = max(a4(1,i,k), qmp, lac)\n         a4(2,i,k) = min(max(a4(2,i,k), qmin), qmax)\n! Recompute A6\n         a4(4,i,k) = 3.*(2.*a4(1,i,k) - (a4(2,i,k)+a4(3,i,k)))\n        enddo\n! Additional constraint to prevent negatives when kord=7\n         if (iv /= -1 .and. kord == 7) then\n             call kmppm(dc(i1,k), a4(1,i1,k), it, 2)\n         endif\n      enddo\n\n else\n\n         lmt = kord - 3\n         lmt = max(0, lmt)\n         if (iv == 0) lmt = min(2, lmt)\n\n      do k=3, km-2\n      if( kord .ne. 4) then\n         do i=i1,i2\n            a4(4,i,k) = 3.*(2.*a4(1,i,k) - (a4(2,i,k)+a4(3,i,k)))\n         enddo\n      endif\n         call kmppm(dc(i1,k), a4(1,i1,k), it, lmt)\n      enddo\n endif\n\n    do k=km1,km\n       do i=i1,i2\n          a4(4,i,k) = 3.*(2.*a4(1,i,k) - (a4(2,i,k)+a4(3,i,k)))\n       enddo\n       call kmppm(dc(i1,k), a4(1,i1,k), it, 0)\n    enddo\n end subroutine ppm2m\n\n\n subroutine steepz(i1, i2, km, a4, df2, dm, dq, dp, d4)\n implicit none\n\n!INPUT PARAMETERS:\n integer km                        ! Total levels\n integer i1                        ! Starting longitude\n integer i2                        ! Finishing longitude\n real dp(i1:i2,km)            ! grid size\n real dq(i1:i2,km)            ! backward diff of q\n real d4(i1:i2,km)            ! backward sum:  dp(k)+ dp(k-1)\n real df2(i1:i2,km)            ! first guess mismatch\n real dm(i1:i2,km)            ! monotonic mismatch\n\n! !INPUT/OUTPUT PARAMETERS:\n real a4(4,i1:i2,km)          ! first guess/steepened\n\n! !LOCAL VARIABLES:\n integer i, k\n real alfa(i1:i2,km)\n real f(i1:i2,km)\n real rat(i1:i2,km)\n real dg2\n\n! Compute ratio of dq/dp\n do k=2,km\n    do i=i1,i2\n       rat(i,k) = dq(i,k-1) / d4(i,k)\n    enddo\n enddo\n\n! Compute F\n      do k=2,km-1\n         do i=i1,i2\n            f(i,k) = (rat(i,k+1) - rat(i,k))                       &\n                     / ( dp(i,k-1)+dp(i,k)+dp(i,k+1) )\n         enddo\n      enddo\n\n      do k=3,km-2\n         do i=i1,i2\n         if(f(i,k+1)*f(i,k-1) < 0. .and. df2(i,k).ne.0.) then\n            dg2 = (f(i,k+1)-f(i,k-1))*((dp(i,k+1)-dp(i,k-1))**2      &\n                   + d4(i,k)*d4(i,k+1) )\n            alfa(i,k) = max(0., min(0.5, -0.1875*dg2/df2(i,k)))\n         else\n            alfa(i,k) = 0.\n         endif\n         enddo\n      enddo\n\n      do k=4,km-2\n         do i=i1,i2\n            a4(2,i,k) = (1.-alfa(i,k-1)-alfa(i,k)) * a4(2,i,k) +      &\n                        alfa(i,k-1)*(a4(1,i,k)-dm(i,k))    +          &\n                        alfa(i,k)*(a4(1,i,k-1)+dm(i,k-1))\n         enddo\n      enddo\n\n end subroutine steepz\n\n subroutine kmppm(dm, a4, itot, lmt)\n\n      implicit none\n\n! !INPUT PARAMETERS:\n      real    dm(*)     ! ??????\n      integer itot      ! Total Longitudes\n      integer lmt           ! 0: Standard PPM constraint\n                            ! 1: Improved full monotonicity constraint (Lin)\n                            ! 2: Positive definite constraint\n                            ! 3: do nothing (return immediately)\n\n! !INPUT/OUTPUT PARAMETERS:\n      real   a4(4,*)\n                            ! AA <-- a4(1,i)\n                            ! AL <-- a4(2,i)\n                            ! AR <-- a4(3,i)\n                            ! A6 <-- a4(4,i)\n\n! !LOCAL VARIABLES:\n      real       r12\n      parameter (r12 = 1./12.)\n\n      real qmp\n\n      integer i\n      real da1, da2, a6da\n      real fmin\n\n      if ( lmt == 3 ) return\n\n      if(lmt == 0) then\n! Standard PPM constraint\n      do i=1,itot\n      if(dm(i) .eq. 0.) then\n         a4(2,i) = a4(1,i)\n         a4(3,i) = a4(1,i)\n         a4(4,i) = 0.\n      else\n         da1  = a4(3,i) - a4(2,i)\n         da2  = da1**2\n         a6da = a4(4,i)*da1\n         if(a6da < -da2) then\n            a4(4,i) = 3.*(a4(2,i)-a4(1,i))\n            a4(3,i) = a4(2,i) - a4(4,i)\n         elseif(a6da > da2) then\n            a4(4,i) = 3.*(a4(3,i)-a4(1,i))\n            a4(2,i) = a4(3,i) - a4(4,i)\n         endif\n      endif\n      enddo\n\n      elseif (lmt == 1) then\n\n! Improved full monotonicity constraint (Lin)\n! Note: no need to provide first guess of A6 <-- a4(4,i)\n      do i=1, itot\n           qmp = 2.*dm(i)\n         a4(2,i) = a4(1,i)-sign(min(abs(qmp),abs(a4(2,i)-a4(1,i))), qmp)\n         a4(3,i) = a4(1,i)+sign(min(abs(qmp),abs(a4(3,i)-a4(1,i))), qmp)\n         a4(4,i) = 3.*( 2.*a4(1,i) - (a4(2,i)+a4(3,i)) )\n      enddo\n\n      elseif (lmt == 2) then\n\n! Positive definite constraint\n      do i=1,itot\n      if( abs(a4(3,i)-a4(2,i)) < -a4(4,i) ) then\n      fmin = a4(1,i)+0.25*(a4(3,i)-a4(2,i))**2/a4(4,i)+a4(4,i)*r12\n         if( fmin < 0. ) then\n         if(a4(1,i) < a4(3,i) .and. a4(1,i) < a4(2,i)) then\n            a4(3,i) = a4(1,i)\n            a4(2,i) = a4(1,i)\n            a4(4,i) = 0.\n         elseif(a4(3,i) > a4(2,i)) then\n            a4(4,i) = 3.*(a4(2,i)-a4(1,i))\n            a4(3,i) = a4(2,i) - a4(4,i)\n         else\n            a4(4,i) = 3.*(a4(3,i)-a4(1,i))\n            a4(2,i) = a4(3,i) - a4(4,i)\n         endif\n         endif\n      endif\n      enddo\n\n      endif\n\n end subroutine kmppm\n\n subroutine fct_x(q, im, jm, jfirst, jlast, ng, ipx)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer im                  ! Longitudes\n integer jm                  ! Total latitudes\n integer jfirst              ! Starting latitude\n integer jlast               ! Finishing latitude\n integer ng\n\n real tiny               ! A small number to pump up value\n parameter (tiny = 1.e-40)\n\n! !INPUT/OUTPUT PARAMETERS:\n real q(im,jfirst-ng:jlast+ng) ! Field to adjust\n\n! !OUTPUT PARAMETERS:\n integer ipx                 ! Flag:  0 if Q not change, 1 if changed\n\n! !LOCAL VARIABLES:\n real d0, d1, d2\n real qtmp(jfirst:jlast,im)\n\n integer i, j, jm1, ip2\n integer j1, j2\n\n      j1 = max( jfirst,   2 )\n      j2 = min( jlast, jm-1 )\n      jm1 = jm-1\n      ipx = 0\n\n! Copy & swap direction for vectorization.\n      do i=1,im\n         do j=j1,j2\n            qtmp(j,i) = q(i,j)\n         enddo\n      enddo\n\n      do i=2,im-1\n         do j=j1,j2\n           if(qtmp(j,i) < 0.) then\n              ipx =  1\n! west\n              d0 = max(0.,qtmp(j,i-1))\n              d1 = min(-qtmp(j,i),d0)\n              qtmp(j,i-1) = qtmp(j,i-1) - d1\n              qtmp(j,i) = qtmp(j,i) + d1\n! east\n              d0 = max(0.,qtmp(j,i+1))\n              d2 = min(-qtmp(j,i),d0)\n              qtmp(j,i+1) = qtmp(j,i+1) - d2\n              qtmp(j,i) = qtmp(j,i) + d2 + tiny\n            endif\n         enddo\n      enddo\n\n      i=1\n      do j=j1,j2\n        if(qtmp(j,i) < 0.) then\n           ipx =  1\n! west\n           d0 = max(0.,qtmp(j,im))\n           d1 = min(-qtmp(j,i),d0)\n           qtmp(j,im) = qtmp(j,im) - d1\n           qtmp(j,i) = qtmp(j,i) + d1\n! east\n           d0 = max(0.,qtmp(j,i+1))\n           d2 = min(-qtmp(j,i),d0)\n           qtmp(j,i+1) = qtmp(j,i+1) - d2\n           qtmp(j,i) = qtmp(j,i) + d2 + tiny\n         endif\n      enddo\n\n      i=im\n    do j=j1,j2\n      if(qtmp(j,i) < 0.) then\n         ipx =  1\n! west\n         d0 = max(0.,qtmp(j,i-1))\n         d1 = min(-qtmp(j,i),d0)\n         qtmp(j,i-1) = qtmp(j,i-1) - d1\n         qtmp(j,i) = qtmp(j,i) + d1\n! east\n         d0 = max(0.,qtmp(j,1))\n         d2 = min(-qtmp(j,i),d0)\n         qtmp(j,1) = qtmp(j,1) - d2\n\n         qtmp(j,i) = qtmp(j,i) + d2 + tiny\n      endif\n    enddo\n\n\n    if(ipx .ne. 0) then\n!-----------\n! Final pass\n!-----------\n    do i=1,im-1\n    do j=j1,j2\n       if (qtmp(j,i) < 0. ) then\n! Take mass from east (essentially adjusting fx(i+1,j))\n           qtmp(j,i+1) = qtmp(j,i+1) + qtmp(j,i)\n           qtmp(j,i) = 0.\n       endif\n    enddo\n    enddo\n\n! Final sweep\n    do i=im,2,-1\n       do j=j1,j2\n          if (qtmp(j,i) < 0. ) then\n! Take mass from west (essentially adjusting fx(i,j))\n              qtmp(j,i-1) = qtmp(j,i-1) + qtmp(j,i)\n              qtmp(j,i) = 0.\n          endif\n       enddo\n! Note: qtmp(j,1) could still be negative\n    enddo\n\n    do j=j1,j2\n       do i=1,im\n          q(i,j) = qtmp(j,i)\n         q(i,j) = max(0., qtmp(j,i))       !(dan 0803)\n       enddo\n    enddo\n\n    endif\n\n! Check Poles.\n      if ( jfirst == 1 ) then\n       ip2 = 0\n! SP\n      if(q(1,1) < 0.) then\n         call pfix(q(1,2),q(1,1),im,ipx)\n      else\n! Check j=2\n      do i=1,im\n      if(q(i,2) < 0.) then\n            ip2 = 1\n            go to 322\n      endif\n      enddo\n322   continue\n        if(ip2.ne.0) call pfix(q(1,2),q(1,1),im,ipx)\n      endif\n      endif\n\n      if ( jlast == jm ) then\n      ip2 = 0\n! NP\n      if(q(1,jm) < 0.) then\n       call pfix(q(1,jm1),q(1,jm),im,ipx)\n      else\n\n! Check j=jm1\n      do i=1,im\n      if(q(i,jm1) < 0.) then\n            ip2 = 1\n            go to 323\n      endif\n      enddo\n323   continue\n\n        if(ip2.ne.0) call pfix(q(1,jm1),q(1,jm),im,ipx)\n      endif\n      endif\n end subroutine fct_x\n\n subroutine fillz(im, i1, i2, km, nq, q, dp)\n\n implicit none\n\n! !INPUT PARAMETERS:\n   integer, intent(in) :: im                ! No. of longitudes\n   integer, intent(in) :: km                ! No. of levels\n   integer, intent(in) :: i1                ! Starting longitude\n   integer, intent(in) :: i2                ! Finishing longitude\n   integer, intent(in) :: nq                ! Total number of tracers\n   real, intent(in) ::  dp(im,km)       ! pressure thickness\n\n! !INPUT/OUTPUT PARAMETERS:\n   real, intent(inout) :: q(im,km,nq)   ! tracer mixing ratio\n\n! !LOCAL VARIABLES:\n   integer i, k, ic\n   real qup, qly, dup\n\n   do ic=1,nq\n! Top layer\n      do i=i1,i2\n         if( q(i,1,ic) < 0.) then\n             q(i,2,ic) = q(i,2,ic) + q(i,1,ic)*dp(i,1)/dp(i,2)\n             q(i,1,ic) = 0.\n          endif\n      enddo\n\n! Interior\n      do k=2,km-1\n         do i=i1,i2\n         if( q(i,k,ic) < 0. ) then\n! Borrow from above\n             qup =  q(i,k-1,ic)*dp(i,k-1)\n             qly = -q(i,k  ,ic)*dp(i,k  )\n             dup =  min( 0.5*qly, qup )        !borrow no more than 50%\n             q(i,k-1,ic) = q(i,k-1,ic) - dup/dp(i,k-1)\n! Borrow from below: q(i,k,ic) is still negative at this stage\n             q(i,k+1,ic) = q(i,k+1,ic) + (dup-qly)/dp(i,k+1)\n             q(i,k  ,ic) = 0.\n          endif\n          enddo\n      enddo\n\n! Bottom layer\n      k = km\n      do i=i1,i2\n         if( q(i,k,ic) < 0.) then\n! Borrow from above\n             qup =  q(i,k-1,ic)*dp(i,k-1)\n             qly = -q(i,k  ,ic)*dp(i,k  )\n             dup =  min( qly, qup )\n             q(i,k-1,ic) = q(i,k-1,ic) - dup/dp(i,k-1)\n             q(i,k,ic) = 0.\n          endif\n      enddo\n   enddo\n end subroutine fillz\n\n subroutine pfix(q, qp, im, ipx)\n\n implicit none\n\n! !INPUT PARAMETERS:\n integer im                  ! Longitudes\n\n! !INPUT/OUTPUT PARAMETERS:\n real q(im)              ! Latitude-level field to adjust\n real qp(im)             ! Second latitude-level field to adjust (usually pole)\n\n! !OUTPUT PARAMETERS:\n integer ipx                 ! Flag:  0 if Q not change, 1 if changed\n\n\n! !LOCAL VARIABLES:\n integer i\n real summ, sump, pmean\n\n   summ = 0.\n   sump = 0.\n   do i=1,im\n     summ = summ + q(i)\n     sump = sump + qp(i)\n   enddo\n\n   pmean = (sump*gw(1) + summ*gw(2)) / (im*(gw(1)+gw(2)))\n\n   do i=1,im\n       q(i) = pmean\n      qp(i) = pmean\n   enddo\n\n   if( qp(1) < 0. )  ipx = 1\n\n end subroutine pfix\n\n subroutine gmean(im,  jm,  jfirst,  jlast,  q, qmean)\n\n#if defined(SPMD)\n#if defined(PILGRIM)\n  use parutilitiesmodule, only : parcollective, commglobal, sumop\n#else\n  use mod_comm, only: mp_allgather1d, gid\n#endif\n#endif\n\n  implicit none\n\n#if defined(SPMD)\n  real gsum(jm)\n#endif\n\n  integer im, jm                       ! Horizontal dimensions\n  integer jfirst, jlast                ! Latitude strip\n  real, intent(in):: q(im,jfirst:jlast)              ! 2D field\n\n  real qmean\n  real xsum(jfirst:jlast)\n  integer i, j\n  integer ierror\n\n  do j=jfirst,jlast\n        xsum(j) = 0.\n     do i=1,im\n        xsum(j) = xsum(j) + q(i,j)\n     enddo\n        xsum(j) = xsum(j)*gw(j)\n  enddo\n\n#if defined(SPMD)\n    gsum = 0.\n#if defined(PILGRIM)\n    do j=jfirst,jlast\n      gsum(j) = xsum(j)\n    enddo\n    call parcollective(commglobal, sumop, jm, gsum)\n#else\n    call mp_allgather1d(jm, jfirst, jlast, xsum(jfirst), gsum)\n#endif\n    if (gid == 0 ) then\n      qmean = 0.0\n      do j=1,jm\n         qmean = qmean + gsum(j)\n      enddo\n      qmean = qmean / (2*im)\n    endif\n#else\n      qmean = 0.0\n      do j=1,jm\n         qmean = qmean + xsum(j)\n      enddo\n      qmean = qmean / (2*im)\n#endif\n\n end subroutine gmean\n\n subroutine adj_fx(im, jm, km, jfirst, jlast, ak, bk, ffsl,  &\n                   ps0, ps2, pe, delp, fx3, cx, fy3, ng,     &\n                   mg, tiny, n_adj)\n implicit none\n\n integer, intent(in):: im\n integer, intent(in):: jm\n integer, intent(in):: km\n integer, intent(in):: ng, mg\n integer, intent(in):: jfirst, jlast\n integer, intent(in):: n_adj\n real, intent(in):: tiny\n real, intent(in)::  ak(km+1)\n real, intent(in)::  bk(km+1)\n real, intent(in)::  ps2(im,jfirst-mg:jlast+mg)\n real, intent(in)::   cx(im,jfirst-ng:jlast+ng,km)\n real, intent(inout)::   pe(im,km+1,jfirst:jlast)\n logical, intent(in):: ffsl(jfirst-ng:jlast+ng,km)\n\n real, intent(inout):: ps0(im,jfirst:jlast)\n real, intent(inout):: fx3(im,jfirst:jlast,km)\n real, intent(inout):: fy3(im,jfirst:jlast+mg,km)\n real, intent(inout):: delp(im,jfirst:jlast,km)\n\n! Local\n real ps(im,jfirst-mg:jlast+mg)\n real fy(im,jfirst:jlast+mg)\n real fx(im+1)\n real dps(0:im)\n real dpy(im,jfirst-mg:jlast+mg)\n real er0, er1\n integer i,j,k, it\n real tmpf, dh\n real dbk\n integer js2g0, jn2g0\n real fac\n parameter ( fac = 0.25 )\n\n js2g0  = max(2,jfirst)        ! No ghosting\n jn2g0  = min(jm-1,jlast)      ! No ghosting\n\n  do j=jfirst,jlast\n     do i=1,im\n        ps(i,j) = ps0(i,j)\n     enddo\n  enddo\n\n fx_iteration: do it=1,n_adj\n\n#if defined(SPMD)\n#if defined(PILGRIM)\n  call parbegintransfer(pattern2dmg, ps, ps)\n  call parendtransfer(pattern2dmg, ps, ps)\n#else\n  call mp_send3d_ns(im, jm, jfirst, jlast, 1, 1, mg, mg, ps, 2)\n  call mp_barrier()\n  call mp_recv3d_ns(im, jm, jfirst, jlast, 1, 1, mg, mg, ps, 2)\n  call mp_barrier()\n#endif\n#endif\n\n!$omp parallel do &\n!$omp shared(im)  &\n!$omp private(i, j, k, dbk, dps, dpy, tmpf, fx, fy)\n\n!--- adjust fx ----\n   do k=3,km\n        dbk = bk(k+1) - bk(k)\n    if( dbk > 0.001 ) then\n      do j=js2g0,jn2g0\n         do i=1,im\n            dps(i) = (ps(i,j) - ps2(i,j))*dbk\n         enddo\n            dps(0) = dps(im)\n         do i=1,im\n            fx(i) = fac*(dps(i-1)-dps(i))\n            tmpf = fx3(i,j,k) + fx(i)\n            if ( tmpf*fx3(i,j,k) > 0. ) then\n               fx3(i,j,k) = tmpf\n            else\n               fx(i)  =  fx3(i,j,k)\n               fx3(i,j,k) =  sign(min(abs(tmpf), abs(fx3(i,j,k))), fx3(i,j,k))\n               fx(i) = fx3(i,j,k) - fx(i)\n            endif\n        enddo\n            fx(im+1) = fx(1)\n\n! update delp\n         do i=1,im\n            delp(i,j,k) = delp(i,j,k) + fx(i) - fx(i+1)\n        enddo\n    enddo     ! j-loop\n\n!--- adjust fy ----\n\n      do j=max(jfirst-1,1) ,min(jm,jlast+1)     ! Need ps at jlast+1\n         do i=1,im\n            dpy(i,j) = (ps(i,j) - ps2(i,j))*dbk*gw(j)\n         enddo\n      enddo\n\n      do j=js2g0,min(jm,jlast+1)\n         do i=1,im\n            fy(i,j) = fac*(dpy(i,j-1)-dpy(i,j))\n            tmpf = fy3(i,j,k) + fy(i,j)\n            if ( tmpf*fy3(i,j,k) > 0. ) then\n               fy3(i,j,k) = tmpf\n            else\n               fy(i,j)  =  fy3(i,j,k)\n               fy3(i,j,k) =  sign(min(abs(tmpf), abs(fy3(i,j,k))), fy3(i,j,k))\n               fy(i,j) = fy3(i,j,k) - fy(i,j)\n            endif\n        enddo\n      enddo\n\n! update delp\n    do j=js2g0,jn2g0\n       do i=1,im\n          delp(i,j,k) = delp(i,j,k) + (fy(i,j) - fy(i,j+1)) * rgw(j)\n       enddo\n    enddo\n\n! Poles:\n    if ( jfirst == 1 ) then\n       do i=1,im\n          delp(i,1,k) = delp(i,1,k) - fy(i,2)*rgw(1)\n       enddo\n!       call xpavg(delp(:,1,k), im)\n    endif\n    if ( jlast == jm ) then\n       do i=1,im\n          delp(i,jm,k) = delp(i,jm,k) + fy(i,jm)*rgw(jm)\n       enddo\n!       call xpavg(delp(:,jm,k), im)\n    endif\n\n    endif\n enddo            ! k-loop\n\n! Update pe and ps\n\n!$omp parallel do private(i, j, k)\n\n  do j=jfirst,jlast\n     do i=1,im\n        pe(i,1,j) = ak(1)\n     enddo\n\n     do k=1,km\n        do i=1,im\n           pe(i,k+1,j) = pe(i,k,j) + delp(i,j,k)\n        enddo\n     enddo\n\n     do i=1,im\n        ps(i,j) = pe(i,km+1,j)\n     enddo\n  enddo\n\n enddo fx_iteration\n\n!$omp parallel do private(i, j, k, dbk, dps, tmpf, fx, er0, er1, dh)\n\n do 2000 j=js2g0,jn2g0\n do k=km,3,-1\n       dbk = bk(k+1) - bk(k)\n   if( dbk > 0.001 ) then\n       do i=1,im\n          dps(i) = (ps(i,j) - ps2(i,j))*dbk\n       enddo\n          dps(0) = dps(im)\n!\n      i=1\n          er0 =  dps(i-1)\n          er1 =  dps(i)\n      if( er0*er1 < 0. ) then\n          if( er1 > 0. ) then\n              dh = min(-er0, er1)\n              fx3(i,j,k) = fx3(i,j,k) - dh\n              delp(im,j,k) = delp(im,j,k) + dh\n              delp(i,j,k) = delp(i,j,k) - dh\n          else\n              dh = min(er0, -er1)\n              fx3(i,j,k) = fx3(i,j,k) + dh\n              delp(im,j,k) = delp(im,j,k) - dh\n              delp(i,j,k) = delp(i,j,k) + dh\n          endif\n      endif\n\n     do i=2,im\n          er0 =  dps(i-1)\n          er1 =  dps(i)\n      if( er0*er1 < 0. ) then\n          if( er1 > 0. ) then\n              dh = min(-er0, er1)\n              fx3(i,j,k) = fx3(i,j,k) - dh\n              delp(i-1,j,k) = delp(i-1,j,k) + dh\n              delp(i,j,k) = delp(i,j,k) - dh\n          else\n              dh = min(er0, -er1)\n              fx3(i,j,k) = fx3(i,j,k) + dh\n              delp(i-1,j,k) = delp(i-1,j,k) - dh\n              delp(i,j,k) = delp(i,j,k) + dh\n          endif\n      endif\n     enddo\n   endif\n   enddo      ! k-loop\n\n   do i=1,im\n      pe(i,1,j) = ak(1)\n   enddo\n\n   do k=1,km\n      do i=1,im\n         pe(i,k+1,j) = pe(i,k,j) + delp(i,j,k)\n      enddo\n   enddo\n\n   do i=1,im\n      ps(i,j) = pe(i,km+1,j)\n   enddo\n\n   do k=1,km\n   if( ffsl(j,k) ) then\n       do i=1,im\n          fx3(i,j,k) = fx3(i,j,k)/sign(max(abs(cx(i,j,k)),tiny),cx(i,j,k))\n       enddo\n    endif\n   enddo\n2000  continue\n\n!* Copy adjusted surface pressure\n!* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   do j = jfirst, jlast\n   do i = 1, im\n      ps0(i,j) = ps(i,j)\n   enddo\n   enddo\n\n end subroutine adj_fx\n\nend module TPCORE_WINDOW_MOD\n"
  },
  {
    "path": "GeosCore/tracer_mod.F90",
    "content": "#if defined( MODEL_GEOS ) || defined( MODEL_GCHP )\n#include \"MAPL_Generic.h\"\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: tracer_mod.F90\n!\n! !DESCRIPTION: Module TRACER\\_MOD is used to implement passive tracers, \n! typically used in the TransportTracers simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Tracer_Mod\n!\n! !USES:\n!\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Tracer_Source_Phase\n  PUBLIC  :: Tracer_Sink_Phase\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: tracer_source_phase\n!\n! !DESCRIPTION: Subroutine TRACER\\_SOURCE\\_PHASE\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Tracer_Source_Phase( Input_Opt, State_Chm, State_Grid, &\n                                  State_Met, RC                     )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod, ONLY : HcoState\n    USE HCO_EmisList_Mod, ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE PhysConstants,    ONLY : AVO\n    USE Species_Mod,      ONLY : Species\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE Time_Mod,         ONLY : Get_Ts_Chem\n    USE Timers_Mod,       ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n\n#if defined( MODEL_GEOS ) || defined( MODEL_GCHP )\n    USE ESMF\n    USE MAPL\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN   ) :: Input_Opt   ! Input options object\n    TYPE(GrdState), INTENT(IN   ) :: State_Grid  ! Grid state object\n    TYPE(MetState), INTENT(IN   ) :: State_Met   ! Meteorology state object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Failure or success\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  02 Mar 2023 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: I, J, L, N, DT\n    INTEGER                :: previous_units\n    REAL(fp)               :: Local_Tally\n    REAL(fp)               :: Total_Area\n    REAL(fp)               :: Total_Spc\n    REAL(fp)               :: Flux\n\n    ! SAVEd scalars\n    LOGICAL,  SAVE         :: First = .TRUE.\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg,  ThisLoc\n\n    ! Arrays\n    REAL(fp)               :: Mask(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n#if defined( MODEL_GEOS ) || defined( MODEL_GCHP )\n    INTEGER       :: status\n    TYPE(ESMF_VM) :: vm\n#endif\n\n    !========================================================================\n    ! Tracer_Source_Phase begins here!\n    !========================================================================\n\n    ! Initialize\n    RC          = GC_SUCCESS\n    ErrMsg      = ''\n    ThisLoc     = &\n       ' -> at Tracer_Source_Phase (in module GeosCore/tracer_mod.F90)'\n    DT          = GET_TS_CHEM()\n    Local_Tally = 0.0_fp\n    Total_Area  = 0.0_fp\n    Total_Spc   = 0.0_fp\n    Flux        = 0.0_fp\n\n#if defined( MODEL_GEOS ) || defined( MODEL_GCHP )\n    call ESMF_VmGetCurrent(vm, rc=status)\n    _VERIFY(status)\n#endif\n\n    !=======================================================================\n    ! Convert species units to v/v dry\n    !=======================================================================\n\n    ! Halt \"All chem\" timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"All chemistry\", RC )\n    ENDIF\n\n    ! Convert units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = State_Chm%Map_Advect,                              &\n         new_units      = MOLES_SPECIES_PER_MOLES_DRY_AIR,                   &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error (kg -> v/v dry)'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start \"All chem\" timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"All chemistry\", RC )\n    ENDIF\n\n    !========================================================================\n    ! Apply tracer source\n    !========================================================================\n\n    ! Loop over species\n    DO N = 1, State_Chm%nAdvect\n\n       ! Point to the Species Database entry for species N\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Skip Rn-Pb-Be tracers for now\n       IF ( SpcInfo%Is_RadioNuclide ) CYCLE\n\n       ! Initialize mask for each species\n       Mask = 1.0_fp\n\n       ! Skip if this species does not have a source or if the \n       ! source is handled by HEMCO\n       IF ( TRIM(SpcInfo%Src_Mode) == 'none'   .or. &\n            TRIM(SpcInfo%Src_Mode) == 'HEMCO' ) CYCLE\n\n       IF ( First ) THEN\n \n          !------------------------------------------------------------------\n          ! Convert Src_Value to v/v\n          !------------------------------------------------------------------\n          IF(TRIM(SpcInfo%Src_Units) ==   'ppmv'    ) THEN\n\n             SpcInfo%Src_Value = SpcInfo%Src_Value * 1.0E-06\n\n          ELSE IF(TRIM(SpcInfo%Src_Units) ==   'ppbv'    ) THEN\n\n             SpcInfo%Src_Value = SpcInfo%Src_Value * 1.0E-09\n\n          ELSE IF(TRIM(SpcInfo%Src_Units) ==   'pptv'    ) THEN\n\n             SpcInfo%Src_Value = SpcInfo%Src_Value * 1.0E-12\n\n          !------------------------------------------------------------------\n          ! Convert timesteps (s) to expected units (e.g. days)\n          !------------------------------------------------------------------\n          ELSE IF ( TRIM(SpcInfo%Src_Units) == 'timestep' ) THEN\n\n             IF ( TRIM(SpcInfo%Units) == 'hours' ) THEN\n\n                SpcInfo%Src_Value = SpcInfo%Src_Value * DT / ( 3600_fp )\n\n             ELSE IF(TRIM(SpcInfo%Units) == 'days'  ) THEN\n\n                SpcInfo%Src_Value = SpcInfo%Src_Value * DT / &\n                                    ( 3600_fp * 24.0_fp )\n\n             ELSE IF(TRIM(SpcInfo%Units) == 'years' ) THEN\n\n                SpcInfo%Src_Value = SpcInfo%Src_Value * DT / &\n                                    ( 3600_fp * 24.0_fp * 365.25_fp )\n\n             ELSE\n                ErrMsg = TRIM( SpcInfo%Name ) // ': Src_Units: timestep' // &\n                         ' requires species Units hours, days or years.'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n          ENDIF\n\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Determine mask\n       !---------------------------------------------------------------------\n       IF ( TRIM(SpcInfo%Src_Horiz) == 'lat_zone' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J                                               )&\n          !$OMP COLLAPSE( 2                                                 )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of latitude zone\n             IF ( State_Grid%YMid(I,J) < SpcInfo%Src_LatMin .and. &\n                  State_Grid%YMid(I,J) > SpcInfo%Src_LatMax ) THEN\n                Mask(I,J,:) = 0.0_fp\n             ENDIF\n\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDIF\n\n       IF ( TRIM(SpcInfo%Src_Vert) == 'surface' ) THEN\n\n          ! Set mask to zero above the surface\n          MASK(:,:,2:State_Grid%NZ) = 0.0_fp\n\n       ELSE IF ( TRIM(SpcInfo%Src_Vert) == 'pressures' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of pressure levels\n             IF ( .not. ( State_Met%PMID(I,J,L) >= SpcInfo%Src_PresMin   .and. &\n                          State_Met%PMID(I,J,L) <= SpcInfo%Src_PresMax ) ) THEN\n                Mask(I,J,L) = 0.0_fp\n             ENDIF\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ELSE IF ( TRIM(SpcInfo%Src_Vert) == 'troposphere' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of troposphere\n             IF ( .not. State_Met%InTroposphere(I,J,L) ) &\n                Mask(I,J,L) = 0.0_fp\n\n          ENDDO\n          ENDDO\n          ENDDO\n\n       ELSE IF ( TRIM(SpcInfo%Src_Vert) == 'stratosphere' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of stratosphere\n             IF ( .not. State_Met%InStratosphere(I,J,L) ) &\n                Mask(I,J,L) = 0.0_fp\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Apply source\n       !--------------------------------------------------------------------\n       IF ( TRIM(SpcInfo%Src_Mode) == 'constant' ) THEN\n       \n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             IF ( Mask(I,J,L) > 0 ) THEN\n\n                IF ( SpcInfo%Src_Add ) THEN\n                   ! Add source\n                   State_Chm%Species(N)%Conc(I,J,L) =      &\n                      State_Chm%Species(N)%Conc(I,J,L) + SpcInfo%Src_Value\n                ELSE\n                   ! Replace value\n                   State_Chm%Species(N)%Conc(I,J,L) = SpcInfo%Src_Value\n                ENDIF\n\n             ENDIF\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ELSE IF ( TRIM(SpcInfo%Src_Mode) == 'maintain_mixing_ratio' ) THEN\n\n          ! To distrubute tracer uniformly on the surface, compute the\n          ! total area [m2]\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             IF ( Mask(I,J,1) > 0 ) THEN\n                Local_Tally = Local_Tally + State_Grid%Area_M2(I,J)\n             ENDIF\n          ENDDO\n          ENDDO\n\n#if defined( MODEL_GCHP ) || defined( MODEL_GEOS )\n          ! Sum across all nodes\n          call MAPL_CommsAllReduceSum(vm, sendbuf=Local_Tally, recvbuf=Total_Area, cnt=1, RC=status)\n#else\n          Total_Area = Local_Tally\n#endif\n\n          ! Reinitialize\n          Local_Tally = 0.0_fp\n          \n          ! Compute mol of tracer needed to achieve the desired value\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             IF ( Mask(I,J,L) > 0 ) THEN\n                Local_Tally = Local_Tally &\n                   + ( SpcInfo%Src_Value - State_Chm%Species(N)%Conc(I,J,L) ) &\n                   * ( State_Met%AIRNUMDEN(I,J,L) / AVO )                     &\n                   *  State_Met%AIRVOL(I,J,L)\n             ENDIF\n          ENDDO\n          ENDDO\n          ENDDO\n\n#if defined( MODEL_GCHP ) || defined( MODEL_GEOS )\n          ! Sum across all nodes\n          call MAPL_CommsAllReduceSum(vm, sendbuf=Local_Tally, recvbuf=Total_Spc, cnt=1, __RC__)\n#else\n          Total_Spc = Local_Tally\n#endif\n\n          ! Compute flux [mol/m2]\n          Flux =  Total_Spc / Total_Area\n\n          ! Update species concentrations at surface [mol/mol]\n          State_Chm%Species(N)%Conc(:,:,1) = State_Chm%Species(N)%Conc(:,:,1) &\n               + ( ( Flux * AVO            )                                  &\n               / ( State_Met%BXHEIGHT(:,:,1)                                  &\n               *   State_Met%AIRNUMDEN(:,:,1) ) ) * Mask(:,:,1)\n\n       ELSE\n          ErrMsg = TRIM( SpcInfo%Name ) // ': Src_Mode '                    // &\n                   TRIM( SpcInfo%Src_Mode ) // ' not currently supported. ' // &\n                   'Please modify species_database.yml or add this '        // &\n                   'capability in tracer_mod.F90.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Free pointers\n       SpcInfo => NULL()\n\n    ENDDO\n\n    !=======================================================================\n    ! Convert species units back to original unit\n    !=======================================================================\n\n    ! Halt \"all chem\" timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"All chemistry\", RC )\n    ENDIF\n\n    ! Convert units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = State_Chm%Map_Advect,                                  &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start \"all chem\" timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"All chemistry\", RC )\n    ENDIF\n\n    ! Reset after the first time\n    IF ( First ) First = .FALSE.\n\n  END SUBROUTINE Tracer_Source_Phase\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: tracer_sink_phase\n!\n! !DESCRIPTION: Subroutine TRACER\\_SINK\\_PHASE performs loss chemistry\n!  on passive species with finite atmospheric lifetimes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Tracer_Sink_Phase( Input_Opt, State_Chm, State_Grid, &\n                                State_Met, RC                     )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod, ONLY : HcoState\n    USE HCO_EmisList_Mod, ONLY : HCO_GetPtr\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE PhysConstants,    ONLY : AVO\n    USE Species_Mod,      ONLY : Species\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE Time_Mod,         ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN   ) :: Input_Opt   ! Input options object\n    TYPE(GrdState), INTENT(IN   ) :: State_Grid  ! Grid state object\n    TYPE(MetState), INTENT(IN   ) :: State_Met   ! Meteorology state object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Failure or success\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  04 Sep 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: I, J, L, N\n    REAL(fp)               :: DT\n    REAL(fp)               :: DecayConstant\n    REAL(fp)               :: DecayRate\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg,  ThisLoc\n\n    ! Arrays\n    REAL(fp)               :: Mask(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Parameters\n    REAL(fp),    PARAMETER :: ln2 = 0.693147181E+00_fp\n    REAL(fp),    PARAMETER :: Day2Sec = 86400_fp\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !========================================================================\n    ! Tracer_Sink_Phase begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at Tracer_Sink_Phase (in module GeosCore/tracer_mod.F90)'\n    DT       = GET_TS_CHEM()\n\n    !========================================================================\n    ! Apply tracer sink\n    !========================================================================\n\n    ! Loop over species\n    DO N = 1, State_Chm%nAdvect\n\n       ! Initialize mask for each species\n       Mask = 1.0_fp\n\n       ! Point to the Species Database entry for species N\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Skip Rn-Pb-Be tracers for now\n       IF ( SpcInfo%Is_RadioNuclide ) CYCLE\n\n       ! Skip if no sink\n       IF ( TRIM(SpcInfo%Snk_Mode) == 'none' ) CYCLE\n\n       !---------------------------------------------------------------------\n       ! Compute the decay rate (if needed)\n       !---------------------------------------------------------------------\n       IF ( TRIM(SpcInfo%Snk_Mode) == 'efolding' .or. &\n            TRIM(SpcInfo%Snk_Mode) == 'halflife' ) THEN\n\n          IF ( TRIM(SpcInfo%Snk_Mode) == 'efolding' ) THEN\n\n             ! Compute the decay constant (s-1) from the e-folding time\n             !  ln(N/No) = ln(1/e) = (-1) =  -decayConstant * e-folding time\n             DecayConstant = 1.0 / ( SpcInfo%Snk_Period * Day2Sec )\n\n          ELSE IF ( TRIM(SpcInfo%Snk_Mode) == 'halflife' ) THEN\n\n             ! Compute the decay constant (s-1) from the half-life:\n             !  ln(N/No) = ln(1/2) = -decayConstant * halfLife\n             DecayConstant = ln2 / ( SpcInfo%Snk_Period * Day2Sec )\n\n          ENDIF\n\n          DecayRate  = EXP( - DecayConstant * DT )\n\n          !### Debug output\n          IF ( Input_Opt%Verbose ) THEN\n             WRITE( 6,100 ) ADJUSTL( SpcInfo%Name ), DecayRate\n 100         FORMAT( '     -  Species name, decay rate: ', a15, es13.6 )\n          ENDIF\n\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Determine mask\n       !---------------------------------------------------------------------\n       IF ( TRIM(SpcInfo%Snk_Horiz) == 'lat_zone' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J                                               )&\n          !$OMP COLLAPSE( 2                                                 )\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of latitude zone\n             IF ( State_Grid%YMid(I,J) < SpcInfo%Snk_LatMin .or. &\n                  State_Grid%YMid(I,J) > SpcInfo%Snk_LatMax ) THEN\n                Mask(I,J,:) = 0.0_fp\n             ENDIF\n\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDIF\n\n       IF ( TRIM(SpcInfo%Snk_Vert) == 'surface' ) THEN\n\n          ! Set mask to zero above the surface\n          MASK(:,:,2:State_Grid%NZ) = 0.0_fp\n\n       ELSE IF ( TRIM(SpcInfo%Snk_Vert) == 'boundary_layer' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside the boundary layer\n             IF ( L > State_Met%PBL_TOP_L(I,J) ) THEN\n                Mask(I,J,L) = 0.0_fp\n             ENDIF\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ELSE IF ( TRIM(SpcInfo%Snk_Vert) == 'troposphere' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of troposphere\n             IF ( .not. State_Met%InTroposphere(I,J,L) ) &\n                Mask(I,J,L) = 0.0_fp\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ELSE IF ( TRIM(SpcInfo%Snk_Vert) == 'stratosphere' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n\n             ! Set mask to zero outside of stratosphere\n             IF ( .not. State_Met%InStratosphere(I,J,L) ) &\n                Mask(I,J,L) = 0.0_fp\n\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Apply loss\n       !---------------------------------------------------------------------\n\n       IF ( TRIM(SpcInfo%Snk_Mode) == 'efolding' .or. &\n            TRIM(SpcInfo%Snk_Mode) == 'halflife' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             IF ( Mask(I,J,L) > 0 ) THEN\n                State_Chm%Species(N)%Conc(I,J,L) =                &\n                     State_Chm%Species(N)%Conc(I,J,L) * DecayRate\n             ENDIF\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ELSE IF ( TRIM(SpcInfo%Snk_Mode) == 'constant' ) THEN\n\n          !$OMP PARALLEL DO                                                  &\n          !$OMP DEFAULT( SHARED                                             )&\n          !$OMP PRIVATE( I, J, L                                            )&\n          !$OMP COLLAPSE( 3                                                 )\n          DO L = 1, State_Grid%NZ\n          DO J = 1, State_Grid%NY\n          DO I = 1, State_Grid%NX\n             IF ( Mask(I,J,L) > 0 ) THEN\n                State_Chm%Species(N)%Conc(I,J,L) = SpcInfo%Snk_Value\n             ENDIF\n          ENDDO\n          ENDDO\n          ENDDO\n          !$OMP END PARALLEL DO\n\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE Tracer_Sink_Phase\n!EOC\nEND MODULE Tracer_Mod\n"
  },
  {
    "path": "GeosCore/transport_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: transport_mod.F90\n!\n! !DESCRIPTION: Module TRANSPORT\\_MOD is used to call the proper version of\n!  the TPCORE advection scheme for different met field datasets and their\n!  nested or global grids.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TRANSPORT_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD      ! For GEOS-Chem Precision (fp)\n  USE PRESSURE_MOD\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CLEANUP_TRANSPORT\n  PUBLIC  :: DO_TRANSPORT\n  PUBLIC  :: INIT_TRANSPORT\n  PUBLIC  :: INIT_WINDOW_TRANSPORT\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: DO_GLOBAL_ADV\n  PRIVATE :: DO_WINDOW_TRANSPORT\n!\n! !REVISION HISTORY:\n!  10 Mar 2003 - Y. Wang, R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  !=================================================================\n  ! MODULE VARIABLES:\n  !\n  ! (1 ) Ap     (REAL(fp) ) : Vertical coordinate array for TPCORE\n  ! (2 ) A_M2   (REAL(fp) ) : Grid box surface areas [m2]\n  ! (3 ) Bp     (REAL(fp) ) : Vertical coordinate array for TPCORE\n  ! (7 ) JLAST  (INTEGER)   : For fvDAS TPCORE\n  ! (8 ) MG     (INTEGER)   : For fvDAS TPCORE\n  ! (9 ) NG     (INTEGER)   : For fvDAS TPCORE\n  ! (10) N_ADJ  (INTEGER)   : For fvDAS TPCORE\n  !=================================================================\n  INTEGER                       :: JFIRST\n  INTEGER                       :: JLAST, NG,   MG,   N_ADJ\n  REAL(fp), ALLOCATABLE         :: Ap(:)\n  REAL(fp), ALLOCATABLE         :: Bp(:)\n  REAL(fp), ALLOCATABLE, TARGET :: A_M2(:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_transport\n!\n! !DESCRIPTION: Subroutine DO\\_TRANSPORT is the driver routine for the proper\n!  TPCORE program for GEOS-3, GEOS-4/GEOS-5, or window simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_TRANSPORT( Input_Opt,  State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Diagnostics_Mod, ONLY : Compute_Budget_Diagnostics\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE TIME_MOD,        ONLY : GET_TS_DYN\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  10 Mar 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL, SAVE      :: FIRST = .TRUE.\n    INTEGER            :: BUFF_SIZE, I0_W1, J0_W1, IM_W1, JM_W1\n    INTEGER            :: TS_Dyn\n    REAL(f8)           :: DT_Dyn\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! DO_TRANSPORT begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Do_Transport (in module GeosCore/transport_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Transport budget diagnostics - Part 1 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetTransport ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetTransportFull,            &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetTransportFull,                &\n            isTrop      = State_Diag%Archive_BudgetTransportTrop,            &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetTransportTrop,                &\n            isPBL       = State_Diag%Archive_BudgetTransportPBL,             &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetTransportPBL,                 &\n            isLevs      = State_Diag%Archive_BudgetTransportLevs,            &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetTransportLevs,                &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Transport budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! First-time initialization\n    IF ( FIRST ) THEN\n\n       IF ( State_Grid%NestedGrid ) THEN\n\n          ! All nested grid simulations\n          CALL INIT_WINDOW_TRANSPORT( Input_Opt, State_Grid, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Init_Window_Transport\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ELSE\n\n          ! All global simulations\n          CALL INIT_TRANSPORT( Input_Opt, State_Grid, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Init_Transport\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDIF\n\n       FIRST = .FALSE.\n\n    ENDIF\n\n    !========================================================================\n    ! Choose the proper version of TPCORE for the nested-grid window\n    ! region (usually 1x1 grids) or for the entire globe\n    !========================================================================\n    IF ( State_Grid%NestedGrid ) THEN\n\n       ! Set buffer size\n       BUFF_SIZE   =  2\n\n       ! (lzh, 09/01/2014)\n       IM_W1       =  ( State_Grid%NX - State_Grid%WestBuffer - &\n                        State_Grid%EastBuffer  ) + 2 * BUFF_SIZE\n       JM_W1       =  ( State_Grid%NY - State_Grid%SouthBuffer - &\n                        State_Grid%NorthBuffer ) + 2 * BUFF_SIZE\n       I0_W1       =  State_Grid%WestBuffer  - BUFF_SIZE\n       J0_W1       =  State_Grid%SouthBuffer - BUFF_SIZE\n\n       ! Nested-grid simulation with GEOS-FP/MERRA2 met\n       CALL DO_WINDOW_TRANSPORT( I0_W1, IM_W1, J0_W1, JM_W1,        &\n                                 Input_Opt,  State_Chm, State_Diag, &\n                                 State_Grid, State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Do_Window_Transport\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !========================================================================\n    ! Choose the proper version of TPCORE for global simulations\n    !========================================================================\n    ELSE\n\n       ! Call TPCORE w/ proper settings for the GEOS-FP/MERRA2 met fields\n       CALL DO_GLOBAL_ADV( Input_Opt,  State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Do_Global_Adv\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Transport (advection) budget diagnostics - Part 2 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetTransport ) THEN\n\n       ! Dynamic timestep [s]\n       TS_Dyn = GET_TS_DYN()\n       DT_Dyn = DBLE( TS_Dyn )\n\n       ! Compute change in column masses (after transport - before transport)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetTransportFull,            &\n            diagFull    = State_Diag%BudgetTransportFull,                    &\n            mapDataFull = State_Diag%Map_BudgetTransportFull,                &\n            isTrop      = State_Diag%Archive_BudgetTransportTrop,            &\n            diagTrop    = State_Diag%BudgetTransportTrop,                    &\n            mapDataTrop = State_Diag%Map_BudgetTransportTrop,                &\n            isPBL       = State_Diag%Archive_BudgetTransportPBL,             &\n            diagPBL     = State_Diag%BudgetTransportPBL,                     &\n            mapDataPBL  = State_Diag%Map_BudgetTransportPBL,                 &\n            isLevs      = State_Diag%Archive_BudgetTransportLevs,            &\n            diagLevs    = State_Diag%BudgetTransportLevs,                    &\n            mapDataLevs = State_Diag%Map_BudgetTransportLevs,                &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Dyn,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Transport budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE DO_TRANSPORT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_global_adv\n!\n! !DESCRIPTION: Subroutine DO\\_GLOBAL\\_ADV is the driver routine\n!  for TPCORE with the GMAO GEOS-FP or MERRA-2 met fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_GLOBAL_ADV( Input_Opt,  State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Calc_Met_Mod,       ONLY : AIRQNT\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE PhysConstants            ! Physical constants\n    USE PJC_PFIX_MOD,       ONLY : DO_PJC_PFIX\n    USE TIME_MOD,           ONLY : GET_TS_DYN\n    USE TPCORE_FVDAS_MOD,   ONLY : TPCORE_FVDAS\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  As of July 2016, we assume that all of the advected species are listed\n!  first in the species database.  This is the easiest way to pass a slab\n!  to the TPCORE routine.  This may change in the future. (bmy, 7/13/16)\n!                                                                             .\n!  Note: the mass flux diagnostic arrays (MASSFLEW, MASSFLNS and MASSFLUP)\n!  are incremented upside-down (level 1 = top of the atmosphere).\n!  The levels order is reversed only when written out to diagnostic output.\n!\n! !REVISION HISTORY:\n!  30 Oct 2007 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: LFILL\n    INTEGER            :: IORD, JORD, KORD\n    INTEGER            :: I, J, L, L2, N, N_DYN, NA, nAdvect\n    REAL(fp)           :: D_DYN\n\n    ! Arrays\n    REAL(fp)           :: P_TP1 (State_Grid%NX,State_Grid%NY)\n    REAL(fp)           :: P_TP2 (State_Grid%NX,State_Grid%NY)\n    REAL(fp)           :: P_TEMP(State_Grid%NX,State_Grid%NY)\n    REAL(fp),  TARGET  :: XMASS (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp),  TARGET  :: YMASS (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Pointers\n    REAL(fp),  POINTER :: p_UWND (:,:,:  )\n    REAL(fp),  POINTER :: p_VWND (:,:,:  )\n    REAL(fp),  POINTER :: p_XMASS(:,:,:  )\n    REAL(fp),  POINTER :: p_YMASS(:,:,:  )\n\n    !=================================================================\n    ! DO_GLOBAL_ADV begins here!\n    !=================================================================\n\n    ! Assume success\n    RC          =  GC_SUCCESS\n\n    ! Initialize\n    LFILL       =  Input_Opt%LFILL\n    IORD        =  Input_Opt%TPCORE_IORD\n    JORD        =  Input_Opt%TPCORE_JORD\n    KORD        =  Input_Opt%TPCORE_KORD\n    nAdvect     =  State_Chm%nAdvect\n\n    ! Dynamic timestep [s]\n    N_DYN       =  GET_TS_DYN()\n    D_DYN       =  REAL( N_DYN, fp )\n\n    !=================================================================\n    ! Prepare variables for calls to PJC pressure-fixer and TPCORE\n    !\n    ! For hybrid grids, the pressure at the\n    ! bottom edge of grid box (I,J,L) is given by:\n    !\n    !    P(I,J,L) = Ap(L) + [ Bp(L) * Psurface(I,J) ]\n    !\n    ! where Psurface is the true surface pressure (i.e. not PS-PTOP).\n    ! and Ap(L), Bp(L) define the vertical grid (see pressure_mod.f)\n    !=================================================================\n\n    !!### DEBUG: Print a few global species sums\n    !IF ( Input_Opt%Verbose ) THEN\n    !   CALL Print_Global_Species_Kg( 20, 20, 1, 'O3',       &\n    !                                 Input_Opt, State_Chm,  &\n    !                                 State_Grid, State_Met, &\n    !                                 \"do_global_adv: pre-advection\", &\n    !                                 RC )\n    !ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Set true dry sfc pressure at midpoint of dynamic timestep [hPa]\n       P_TP1(I,J) = GET_PEDGE_DRY(I,J,1)\n\n       ! Set true dry sfc pressure at end of dynamic timestep [hPa]\n       P_TP2(I,J) = State_Met%PSC2_DRY(I,J)\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=================================================================\n    ! Call the PJC/LLNL pressure fixer to get the adjusted air\n    ! masses XMASS and YMASS.  XMASS and YMASS need to be passed to\n    ! TPCORE_FVDAS in order to ensure mass conservation.\n    !=================================================================\n\n    ! NOTE: P_TP1 and P_TP2 are the true surface pressures!\n    CALL DO_PJC_PFIX( State_Grid,  D_DYN, P_TP1, P_TP2, &\n                      State_Met%U, State_Met%V, XMASS, YMASS )\n\n    !=================================================================\n    ! Call TPCORE_FVDAS to perform the advection\n    !=================================================================\n\n    ! Flip array indices in the vertical using pointer storage\n    p_UWND    => State_Met%U      (:,:,State_Grid%NZ:1:-1)\n    p_VWND    => State_Met%V      (:,:,State_Grid%NZ:1:-1)\n    p_XMASS   => XMASS            (:,:,State_Grid%NZ:1:-1)\n    p_YMASS   => YMASS            (:,:,State_Grid%NZ:1:-1)\n\n    ! NOTE: For now, so as to avoid having to rewrite the internals\n    ! of the TPCORE routines, just point to 1:nAdvect entries of\n    ! State_Chm%Species.  This is OK for now, as of July 2016, all of\n    ! the advected species are listed first.  This may change in the\n    ! future, but we'll worry about that later.  The units of p_SPC\n    ! will be converted to [kg/kg moist air] below. (bmy, 7/13/16)\n\n    ! Do the advection\n    CALL TPCORE_FVDAS( D_DYN,         Re,        State_Grid%NX, State_Grid%NY, &\n                       State_Grid%NZ, JFIRST,    JLAST,         NG,            &\n                       MG,            nAdvect,   Ap,            Bp,            &\n                       p_UWND,        p_VWND,    P_TP1,         P_TP2,         &\n                       P_TEMP,        IORD,      JORD,          KORD,          &\n                       N_ADJ,         p_XMASS,   p_YMASS,       LFILL,         &\n                       A_M2,          State_Chm, State_Diag                   )\n\n    ! Free pointer memory\n    p_UWND  => NULL()\n    p_VWND  => NULL()\n    p_XMASS => NULL()\n    p_YMASS => NULL()\n\n    !=================================================================\n    ! Reset surface pressure and ensure mass conservation\n    !=================================================================\n\n    ! Update dry and wet floating pressures to the most recently\n    ! interpolated values (State_Met%PSC2_DRY and State_Met%PSC2)\n    ! (ewl, 7/6/16)\n    CALL SET_FLOATING_PRESSURES( State_Grid, State_Met, RC)\n\n    ! Update State_Met air quantities with new pressures.\n    ! Do not update tracer mixing ratio because after advection\n    ! the mixing ratio values reflect the new air pressure (ewl, 3/31/15)\n    CALL AIRQNT( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n    !!### DEBUG: Print a few global species sums\n    !IF ( Input_Opt%Verbose ) THEN\n    !   CALL Print_Global_Species_Kg( 20, 20, 1, 'O3',       &\n    !                                 Input_Opt, State_Chm,  &\n    !                                 State_Grid, State_Met, &\n    !                                 \"do_global_adv: post-airqnt\", &\n    !                                 RC )\n    !   CALL DEBUG_MSG( '### G4_G5_GLOB_ADV: a TPCORE' )\n    !ENDIF\n\n  END SUBROUTINE DO_GLOBAL_ADV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_window_transport\n!\n! !DESCRIPTION: Subroutine DO\\_WINDOW\\_TRANSPORT is the driver program\n!  for the proper TPCORE program for the GEOS-FP/MERRA2 nested-grid\n!  simulations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_WINDOW_TRANSPORT( I0,    IM,    J0,     JM,         &\n                                  Input_Opt, State_Chm, State_Diag, &\n                                  State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Calc_Met_Mod,         ONLY : AIRQNT\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Chm_Mod,        ONLY : ChmState\n    USE State_Diag_Mod,       ONLY : DgnState\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE State_Met_Mod,        ONLY : MetState\n    USE PhysConstants              ! Physical constants\n    USE PJC_PFIX_WINDOW_MOD,  ONLY : DO_PJC_PFIX_WINDOW\n    USE TIME_MOD,             ONLY : GET_TS_DYN\n    USE TPCORE_WINDOW_MOD,    ONLY : TPCORE_WINDOW\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I0\n    INTEGER,        INTENT(IN)    :: IM\n    INTEGER,        INTENT(IN)    :: J0\n    INTEGER,        INTENT(IN)    :: JM\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  As of July 2016, we assume that all of the advected species are listed\n!  first in the species database.  This is the easiest way to pass a slab\n!  to the TPCORE routine.  This may change in the future. (bmy, 7/13/16)\n!                                                                             .\n!  Note: the mass flux diagnostic arrays (MASSFLEW, MASSFLNS and MASSFLUP)\n!  are incremented upside-down (level 1 = top of the atmosphere).\n!  The levels order is reversed only when written out to diagnostic output.\n!\n! !REVISION HISTORY:\n!  10 Mar 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: LFILL\n    INTEGER            :: IORD,  JORD,  KORD\n    INTEGER            :: IA, IB, JA, JB\n    INTEGER            :: NA,    nAdvect, N_DYN\n    INTEGER            :: I,     J,     L,     L2,      N\n    REAL(fp)           :: D_DYN\n\n    ! Arrays\n    REAL(fp),  TARGET  :: P_TP1 (State_Grid%NX,State_Grid%NY)\n    REAL(fp),  TARGET  :: P_TP2 (State_Grid%NX,State_Grid%NY)\n    REAL(fp),  TARGET  :: P_TEMP(State_Grid%NX,State_Grid%NY)\n    REAL(fp),  TARGET  :: XMASS (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp),  TARGET  :: YMASS (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp),  TARGET  :: Q_Spc (IM,JM,State_Grid%NZ,State_Chm%nAdvect)\n\n    ! Pointers\n    REAL(fp),  POINTER :: p_A_M2  (  :    )\n    REAL(fp),  POINTER :: p_P_TP1 (:,:    )\n    REAL(fp),  POINTER :: p_P_TP2 (:,:    )\n    REAL(fp),  POINTER :: p_P_TEMP(:,:    )\n    REAL(fp),  POINTER :: p_UWND  (:,:,:  )\n    REAL(fp),  POINTER :: p_VWND  (:,:,:  )\n    REAL(fp),  POINTER :: p_XMASS (:,:,:  )\n    REAL(fp),  POINTER :: p_YMASS (:,:,:  )\n    REAL(fp),  POINTER :: p_Spc   (:,:,:,:)\n\n    !=================================================================\n    ! DO_FVDAS_WINDOW_TRANSPORT begins here!\n    !=================================================================\n\n    ! Assume success\n    RC          =  GC_SUCCESS\n\n    ! Copy values from Input_Opt\n    LFILL       =  Input_Opt%LFILL\n    IORD        =  Input_Opt%TPCORE_IORD\n    JORD        =  Input_Opt%TPCORE_JORD\n    KORD        =  Input_Opt%TPCORE_KORD\n    nAdvect     =  State_Chm%nAdvect\n\n    ! Initialize pointers\n    p_A_M2      => NULL()\n    p_P_TP1     => NULL()\n    p_P_TP2     => NULL()\n    p_P_TEMP    => NULL()\n    p_UWND      => NULL()\n    p_VWND      => NULL()\n    p_XMASS     => NULL()\n    p_YMASS     => NULL()\n    p_Spc       => NULL()\n\n    ! Dynamic timestep [s]\n    N_DYN       =  GET_TS_DYN()\n    D_DYN       =  N_DYN\n\n    ! Set start and end indices for the window\n    IA = I0 + 1\n    IB = I0 + IM\n    JA = J0 + 1\n    JB = J0 + JM\n\n    ! Set local array for species concentrations in window\n    DO N = 1, State_Chm%nAdvect\n       Q_Spc(:,:,:,N)= State_Chm%Species(N)%Conc(IA:IB,JA:JB,:)\n    ENDDO\n\n    !=================================================================\n    ! Prepare variables for calls to PJC pressure-fixer and TPCORE\n    !\n    ! For hybrid grids, the pressure at the\n    ! bottom edge of grid box (I,J,L) is given by:\n    !\n    !    P(I,J,L) = Ap(L) + [ Bp(L) * Psurface(I,J) ]\n    !\n    ! where Psurface is the true surface pressure (i.e. not PS-PTOP).\n    ! and Ap(L), Bp(L) define the vertical grid (see pressure_mod.f)\n    !=================================================================\n\n    !IF ( Input_Opt%Verbose ) THEN\n    !   CALL Print_Global_Species_Kg( 20, 20, 1, 'SPC_O3',   &\n    !                                 Input_Opt,  State_Chm, &\n    !                                 State_Grid, State_Met, &\n    !                                 \"do_window_transport: pre-advection\", &\n    !                                 RC )\n    !ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Set true dry sfc pressure at midpoint of dynamic timestep [hPa]\n       P_TP1(I,J) = GET_PEDGE_DRY(I,J,1)\n\n       ! Set true dry sfc pressure at end of dynamic timestep [hPa]\n       P_TP2(I,J) = State_Met%PSC2_DRY(I,J)\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=================================================================\n    ! Call the PJC/LLNL pressure fixer to get the adjusted air\n    ! masses XMASS and YMASS.  XMASS and YMASS need to be passed to\n    ! TPCORE_FVDAS in order to ensure mass conservation.\n    !=================================================================\n    XMASS = 0e+0_fp !(dan)\n    YMASS = 0e+0_fp\n    ! NOTE: P_TP1 and P_TP2 are the true surface pressures!\n    CALL DO_PJC_PFIX_WINDOW( State_Grid,  D_DYN, &\n                             P_TP1,       P_TP2, &\n                             State_Met%U, State_Met%V, &\n                             XMASS,       YMASS )\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### FVDAS_WINDOW: a PJC_PFIX_WINDOW')\n    ENDIF\n\n    ! Flip array indices in the vertical using pointer storage\n    ! Exclude the buffer zone (lzh, 4/1/2015)\n    p_A_M2   => A_M2       ( JA:JB                               )\n    p_P_TP1  => P_TP1      ( IA:IB, JA:JB                        )\n    p_P_TP2  => P_TP2      ( IA:IB, JA:JB                        )\n    p_P_TEMP => P_TEMP     ( IA:IB, JA:JB                        )\n    p_UWND   => State_Met%U( IA:IB, JA:JB, State_Grid%NZ:1:-1    )\n    p_VWND   => State_Met%V( IA:IB, JA:JB, State_Grid%NZ:1:-1    )\n    p_XMASS  => XMASS      ( IA:IB, JA:JB, State_Grid%NZ:1:-1    )\n    p_YMASS  => YMASS      ( IA:IB, JA:JB, State_Grid%NZ:1:-1    )\n    p_Spc    => Q_Spc      ( :,     :,     State_Grid%NZ:1:-1, : )\n\n    ! Do the advection\n    CALL TPCORE_WINDOW(D_DYN,   Re,        IM,      JM,      State_Grid%NZ, &\n                       JFIRST,  JLAST,     NG,      MG,      nAdvect,       &\n                       Ap,      Bp,        p_UWND,  p_VWND,  p_P_TP1,       &\n                       p_P_TP2, p_P_TEMP,  p_Spc,   IORD,    JORD,          &\n                       KORD,    N_ADJ,     p_XMASS, p_YMASS,                &\n                       p_A_M2,  State_Chm, State_Diag )\n\n\n    ! Update species concentrations from local array\n    DO N = 1, State_Chm%nAdvect\n       State_Chm%Species(N)%Conc(IA:IB,JA:JB,:) = Q_Spc(:,:,:,N)\n    ENDDO\n\n    ! Free pointer memory\n    p_UWND   => NULL()\n    p_VWND   => NULL()\n    p_Spc    => NULL()\n    p_XMASS  => NULL()\n    p_YMASS  => NULL()\n    p_P_TP1  => NULL()\n    p_P_TP2  => NULL()\n    p_P_TEMP => NULL()\n    p_A_M2   => NULL()\n\n    !=================================================================\n    ! Reset surface pressure and ensure mass conservation\n    !=================================================================\n\n    ! Update dry and wet floating pressures to the most recently\n    ! interpolated values (State_Met%PSC2_DRY and State_Met%PSC2)\n    ! (ewl, 7/6/16)\n    CALL SET_FLOATING_PRESSURES( State_Grid, State_Met, RC)\n\n    ! Update State_Met air quantities with new pressures.\n    ! Do not update tracer mixing ratio because after advection\n    ! the mixing ratio values reflect the new air pressure (ewl, 3/31/15)\n    CALL AIRQNT( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n    !!### Debug\n    !IF ( Input_Opt%Verbose ) THEN\n    !   CALL Print_Global_Species_Kg( 20, 20, 1, 'SPC_O3',   &\n    !                                 Input_Opt, State_Chm,  &\n    !                                 State_Grid, State_Met, &\n    !                                 \"do_window_transport: post-airqnt\", &\n    !                                 RC )\n    !   CALL DEBUG_MSG( '### NESTED_ADV: a TPCORE' )\n    !ENDIF\n\n  END SUBROUTINE DO_WINDOW_TRANSPORT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_transport\n!\n! !DESCRIPTION: Subroutine INIT\\_TRANSPORT initializes all module variables\n!  and arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_TRANSPORT( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,        ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE PhysConstants          ! Re\n    USE TIME_MOD,         ONLY : GET_TS_DYN\n    USE TPCORE_FVDAS_MOD, ONLY : INIT_TPCORE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  10 Mar 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: LTRAN\n    INTEGER            :: J, K, L, N_DYN\n    REAL(fp)           :: YMID_R(State_Grid%NY)\n    REAL(fp)           :: REAL_N_DYN\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! Initialize\n    !=================================================================\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Init_Transport (in module GeosCore/transport_mod.F90)'\n\n    !=================================================================\n    ! Allocate arrays for TPCORE vertical coordinates\n    !\n    ! For fvDAS TPCORE with for GEOS-FP or MERRA-2 met fields:\n    !\n    !    P(I,J,L) = Ap(L) + ( Bp(L) * Psurf(I,J) )\n    !\n    ! Also here Ap, Bp will be flipped since both TPCORE versions\n    ! index levels from the atm. top downwards (bdf, bmy, 10/30/07)\n    !=================================================================\n    ALLOCATE( Ap( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'transport_mod.F:Ap', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( Bp( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'transport_mod.F:Bp', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Flip Ap and Bp for TPCORE\n    DO L = 1, State_Grid%NZ+1\n\n       ! As L runs from the surface up,\n       ! K runs from the top down\n       K = ( State_Grid%NZ + 1 ) - L + 1\n\n       Ap(L) = GET_AP(K)          ! Ap(L) is in [hPa]\n       Bp(L) = GET_BP(K)\n    ENDDO\n\n    !=================================================================\n    ! Allocate arrays for surface area and layer thickness\n    !=================================================================\n    ALLOCATE( A_M2( State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'transport_mod.F:A_m2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Surface area [m2]\n    DO J = 1, State_Grid%NY\n       A_M2(J) = State_Grid%Area_M2(1,J)\n    ENDDO\n\n    !=================================================================\n    ! Additional setup for the fvDAS version of TPCORE\n    !=================================================================\n\n    ! Initialize\n    N_DYN = GET_TS_DYN()\n    N_ADJ = 0\n    NG    = 0\n    MG    = 0\n\n    ! YMID_R is latitude of grid box center [radian]\n    DO J = 1,State_Grid%NY\n       YMID_R(J) = State_Grid%YMid_R(1,J)\n    ENDDO\n\n    REAL_N_DYN = N_DYN\n\n    ! Call INIT routine from \"tpcore_fvdas_mod.f\"\n    CALL INIT_TPCORE(                                                        &\n         State_Grid%NX, State_Grid%NY,            State_Grid%NZ,             &\n         JFIRST,        JLAST,                    NG,                        &\n         MG,            REAL_N_DYN,               Re,                        &\n         YMID_R,        Input_Opt%Verbose, RC                        )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Init_Tpcore\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE INIT_TRANSPORT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_window_transport\n!\n! !DESCRIPTION: Subroutine INIT\\_WINDOW\\_TRANSPORT initializes all\n!  module variables and arrays for the GEOS-FP/MERRA2 nested grid\n!  simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_WINDOW_TRANSPORT( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants            ! Re\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE TIME_MOD,           ONLY : GET_TS_DYN\n    USE TPCORE_WINDOW_MOD,  ONLY : INIT_WINDOW\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  06 Jun 2008 - D. Chen & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL  :: LTRAN\n    INTEGER  :: BUFF_SIZE\n    INTEGER  :: J,     K,     L,     N_DYN\n    INTEGER  :: IM_W1, JM_W1, I0_W1, J0_W1\n\n    ! Arrays\n    REAL(fp) :: YMID_R_W(0:State_Grid%NY+1)\n\n    !=================================================================\n    ! Initialize\n    !=================================================================\n\n    ! Assume success\n    RC     =  GC_SUCCESS\n\n    ! Copy values from Input_Opt\n    LTRAN  = Input_Opt%LTRAN\n\n    !=================================================================\n    ! Allocate arrays for TPCORE vertical coordinates\n    ! GEOS-FP/MERRA2 nested grid simulation only!!!\n    !\n    ! For fvDAS TPCORE with for GEOS-FP/MERRA2 met fields:\n    !\n    !    P(I,J,L) = Ap(L) + ( Bp(L) * Psurf(I,J) )\n    !\n    ! Also here Ap, Bp will be flipped since both TPCORE versions\n    ! index levels from the atm. top downwards (bdf, bmy, 10/30/07)\n    !=================================================================\n    ALLOCATE( Ap( State_Grid%NZ+1 ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'Ap' )\n\n    ALLOCATE( Bp( State_Grid%NZ+1 ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'Bp' )\n\n    ! Flip Ap and Bp for TPCORE\n    DO L = 1, State_Grid%NZ+1\n\n       ! As L runs from the surface up,\n       ! K runs from the top down\n       K = ( State_Grid%NZ + 1 ) - L + 1\n\n       Ap(L) = GET_AP(K)\n       Bp(L) = GET_BP(K)\n    ENDDO\n\n    !=================================================================\n    ! Allocate arrays for surface area and layer thickness\n    !=================================================================\n    ALLOCATE( A_M2( State_Grid%NY ), STAT=RC )\n    IF ( RC /= 0 ) CALL ALLOC_ERR( 'A_M2' )\n\n    ! Surface area [m2]\n    DO J = 1, State_Grid%NY\n       A_M2(J) = State_Grid%Area_M2(1,J)\n    ENDDO\n\n    !=================================================================\n    ! Additional setup for the fvDAS version of TPCORE\n    !=================================================================\n\n    ! Initialize\n    N_DYN  = GET_TS_DYN()\n    N_ADJ  = 0\n    NG     = 0\n    MG     = 0\n\n    ! (lzh, 4/1/2015)\n    BUFF_SIZE = 2\n    IM_W1       =  ( State_Grid%NX - State_Grid%WestBuffer - &\n                     State_Grid%EastBuffer  ) + 2 * BUFF_SIZE\n    JM_W1       =  ( State_Grid%NY - State_Grid%SouthBuffer - &\n                     State_Grid%NorthBuffer ) + 2 * BUFF_SIZE\n    I0_W1     = State_Grid%WestBuffer  - BUFF_SIZE\n    J0_W1     = State_Grid%SouthBuffer - BUFF_SIZE\n\n    ! YMID_R is latitude of grid box center [radians]\n    DO J = 1, State_Grid%NY\n       YMID_R_W(J) = State_Grid%YMid_R(1,J)\n    ENDDO\n\n    ! Compute YMID_R_W at southern edge of nested region\n    J = 0\n    YMID_R_W(J) = State_Grid%YMid_R(1,J+1) - (State_Grid%DY * PI_180)\n\n    ! Compute YMID_R_W at northern edge of nested region\n    J = State_Grid%NY+1\n    YMID_R_W(J) = State_Grid%YMid_R(1,J-1) + (State_Grid%DY * PI_180)\n\n    ! Call INIT routine from \"tpcore_window_mod.F90\"\n    CALL INIT_WINDOW(                                                        &\n         State_Grid = State_Grid,                                            &\n         IM         = IM_W1,                                                 &\n         JM         = JM_W1,                                                 &\n         KM         = State_Grid%NZ,                                         &\n         JFIRST     = JFIRST,                                                &\n         JLAST      = JLAST,                                                 &\n         NG         = NG,                                                    &\n         MG         = MG,                                                    &\n         DT         = REAL( N_DYN, fp ),                                     &\n         AE         = REAL( Re,    fp ),                                     &\n         CLAT       = YMID_R_W( J0_W1:(J0_W1+JM_W1+1) )                     )\n\n  END SUBROUTINE INIT_WINDOW_TRANSPORT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cleanup_transport\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_TRANSPORT deallocates all module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_TRANSPORT\n!\n! !REVISION HISTORY:\n!  10 Mar 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( ALLOCATED( Ap     ) ) DEALLOCATE( Ap     )\n    IF ( ALLOCATED( A_M2   ) ) DEALLOCATE( A_M2   )\n    IF ( ALLOCATED( Bp     ) ) DEALLOCATE( Bp     )\n\n  END SUBROUTINE CLEANUP_TRANSPORT\n!EOC\nEND MODULE TRANSPORT_MOD\n"
  },
  {
    "path": "GeosCore/ucx_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: ucx_mod.F90\n!\n! !DESCRIPTION: Module UCX\\_MOD contains routines and variables which\n!  are associated with the addition of full stratospheric chemistry to\n!  GEOS-Chem (based on the NASA GMI implementation, forming the Unified\n!  Chemistry eXtension (UCX).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE UCX_MOD\n!\n! !USES:\n!\n  USE ERROR_MOD,     ONLY : DEBUG_MSG\n  USE inquireMod,    ONLY : findFreeLUN\n  USE PhysConstants       ! Physical constants\n  USE PRECISION_MOD       ! For GEOS-Chem Precision (fp)\n\n#if !defined( EXTERNAL_GRID )\n  ! NcdfUtil modules for netCDF I/O\n  USE m_netcdf_io_open                    ! netCDF open\n  USE m_netcdf_io_get_dimlen              ! netCDF dimension queries\n  USE m_netcdf_io_read                    ! netCDF data reads\n  USE m_netcdf_io_close                   ! netCDF close\n#endif\n\n  IMPLICIT NONE\n\n#if !defined( EXTERNAL_GRID )\n# include \"netcdf.inc\"\n#endif\n\n  PRIVATE\n\n!\n! !PUBLIC DATA MEMBERS:\n!\n  PUBLIC :: T_STS          ! Max temperature of STS formation (K)\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: SET_H2O_TRAC\n  PUBLIC  :: SETTLE_STRAT_AER\n  PUBLIC  :: SO4_PHOTFRAC\n  PUBLIC  :: UCX_NOX\n  PUBLIC  :: UCX_H2SO4PHOT\n  PUBLIC  :: CALC_STRAT_AER\n  PUBLIC  :: GET_STRAT_OPT\n  PUBLIC  :: INIT_UCX\n!\n! PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: TERNARY\n  PRIVATE :: CARSLAW_DENSITY\n  PRIVATE :: CALC_H2SO4_GAS\n  PRIVATE :: CALC_SLA_GAMMA\n  PRIVATE :: MOLEC_SPEED\n  PRIVATE :: NOXCOEFF_INIT\n  PRIVATE :: GET_JJNOX\n!\n! !REVISION HISTORY:\n!  26 Mar 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  !=================================================================\n  ! MODULE PARAMETERS\n  !\n  ! UCX_NLEVS       : Number of levels in AER data\n  ! UCX_NLAT        : Number of latitudes in AER data\n  ! T_STS           : Maximum temperature of STS formation (K)\n  ! I_SLA           : Index of liquid aerosols\n  ! I_SPA           : Index of particulate PSCs\n  ! INITMR_BASIS    : Year for which the initializing mixing ratios\n  !                   were calculated (needed for future-scaling)\n  !=================================================================\n\n  INTEGER,  PARAMETER           :: UCX_NLEVS=51\n  INTEGER,  PARAMETER           :: UCX_NLAT=19\n  REAL(fp), PARAMETER           :: T_STS=240.0e+0_fp\n  INTEGER,  PARAMETER           :: I_SLA=1\n  INTEGER,  PARAMETER           :: I_SPA=2\n  INTEGER,  PARAMETER           :: INITMR_BASIS = 2005\n!\n! PRIVATE TYPES:\n!\n  !=================================================================\n  ! MODULE VARIABLES:\n  !\n  ! Scalars\n  !\n  ! TRAC_IDX           : Species index for output\n  ! SLA_VA             : SLA volume-area conversion\n  ! SLA_RR             : SLA effective-liquid radius conversion\n  ! SLA_VR             : SLA volume-effective radius conversion\n  ! NATMW              : Molar mass of NAT (kg/kmol)\n  ! ICEMEW             : Molar mass of ice (kg/kmol)\n  ! DENSNAT            : Density of pure NAT (kg/m3)\n  ! DENSICE            : Density of pure ice (kg/m3)\n  ! ISR_ClNO3          : ClNO3 MW (inverse sqrt) (kg/kmol)^-0.5\n  ! ISR_BrNO3          : BrNO3 MW (inverse sqrt) (kg/kmol)^-0.5\n  ! ISR_N2O5           : N2O5 MW (inverse sqrt) (kg/kmol)^-0.5\n  ! ISR_HOCl           : HOCl MW (inverse sqrt) (kg/kmol)^-0.5\n  ! ISR_HOBr           : HOBr MW (inverse sqrt) (kg/kmol)^-0.5\n  !\n  ! Arrays (now moved to State_Chm object)\n  !\n  ! State_Chm%UCX_PLEVS          : Pressure levels of 2D data (hPa)\n  ! State_Chm%UCX_LATS           : Latitude edges of 2D data (deg)\n  ! State_Chm%RAD_AER            : Strat. aerosol radius (cm)\n  ! State_Chm%KG_AER             : Aerosol mass (kg/box)\n  ! State_Chm%SAD_AER            : Aerosol surface area density (cm2/cm3)\n  ! State_Chm%NDENS_AER          : Aerosol number density (#/m3)\n  ! State_Chm%RHO_AER            : Aerosol mass density (kg/m3 aerosol)\n  ! State_Chm%AERFRAC            : Mass fraction of species in liquid aerosols\n  ! State_Chm%AERFRACIND         : Indices of liquid aerosol species\n  ! State_Chm%NOX_O              : Monthly mean noontime O3P/O1D for NOx calcs\n  ! State_Chm%NOX_J              : Monthly mean noontime J-rates for NOx calcs\n  ! State_Chm%SO4_TOPPHOT        : Photolysis rate at the top of the chemgrid (1/s)\n  !\n  !=================================================================\n\n  ! Scalars\n  REAL(fp)             :: SLA_VA\n  REAL(fp)             :: SLA_RR\n  REAL(fp)             :: SLA_VR\n  REAL(fp), PARAMETER  :: NATMW   = 117.0_fp\n  REAL(fp), PARAMETER  :: ICEMW   = 18.0_fp\n  REAL(fp), PARAMETER  :: DENSNAT = 1626.e+0_fp\n  REAL(fp), PARAMETER  :: DENSICE = 990.0e+0_fp\n  REAL(fp), PARAMETER  :: ISR_ClNO3=1.e+0_fp/sqrt(97.46e+0_fp)\n  REAL(fp), PARAMETER  :: ISR_BrNO3=1.e+0_fp/sqrt(141.9e+0_fp)\n  REAL(fp), PARAMETER  :: ISR_N2O5 =1.e+0_fp/sqrt(108.0e+0_fp)\n  REAL(fp), PARAMETER  :: ISR_HOCl =1.e+0_fp/sqrt(52.46e+0_fp)\n  REAL(fp), PARAMETER  :: ISR_HOBr =1.e+0_fp/sqrt(96.91e+0_fp)\n\n  !=================================================================\n  ! Species ID flags\n  ! These are now defined in INIT_UCX and used where needed.\n  ! (sde, bmy, 6/21/16)\n  !=================================================================\n  INTEGER :: id_BCPI,    id_Br,       id_Br2,    id_BrCl,  id_BrNO2\n  INTEGER :: id_BrNO3,   id_BrO,      id_CCl4\n  INTEGER :: id_CH3Br,   id_CHBr3,    id_CH2Br2, id_CH3Cl\n  INTEGER :: id_CH3CCl3, id_CH4,      id_Cl,     id_Cl2,   id_Cl2O2\n  INTEGER :: id_ClNO2,   id_ClNO3,    id_ClO,    id_ClOO,  id_H1211\n  INTEGER :: id_H1301,   id_H2,       id_H2402,  id_H2O,   id_HBr\n  INTEGER ::             id_HCl,      id_HNO2,   id_HNO3,  id_N\n  INTEGER :: id_HNO4,    id_HOBr,     id_HOCl,   id_N2O,   id_N2O5\n  INTEGER :: id_NIT,     id_NO,       id_NO2,    id_NO3,   id_O3\n  INTEGER :: id_OClO,    id_PAN,      id_SO2,   id_SO4\n\nCONTAINS\n!\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ucx_nox\n!\n! !DESCRIPTION: Subroutine UCX\\_NOX calculates NOx and N2O loss\n!  rates above the chemistry grid, based on estimates of j-rates from\n!  a 2D model and simple photochemical assumptiones.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE UCX_NOX( Input_Opt, State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE ERROR_MOD,          ONLY : DEBUG_MSG\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n    USE TIME_MOD,           ONLY : GET_DAY_OF_YEAR\n    USE TIME_MOD,           ONLY : GET_MONTH\n    USE TIME_MOD,           ONLY : ITS_A_LEAPYEAR\n    USE TIME_MOD,           ONLY : GET_HOUR\n    USE TIME_MOD,           ONLY : GET_LOCALTIME\n    USE TIME_MOD,           ONLY : GET_MINUTE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  16 Jul 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! For indexing the O1D/O3P concentration array\n    INTEGER, PARAMETER :: O3PIDX = 1\n    INTEGER, PARAMETER :: O1DIDX = 2\n\n    ! For indexing the J-rate coefficient array\n    INTEGER, PARAMETER :: JNOIDX = 1\n    INTEGER, PARAMETER :: JNO2IDX= 2\n    INTEGER, PARAMETER :: JNO3IDX= 3\n    INTEGER, PARAMETER :: JN2OIDX= 4\n\n    ! Reaction rates and indices\n    REAL(fp),DIMENSION(12):: RRATE\n    INTEGER, PARAMETER :: k_JNO = 6\n    INTEGER, PARAMETER :: k_JNO2 = 4\n    INTEGER, PARAMETER :: k_JNO3 = 5\n    INTEGER, PARAMETER :: k_JN2O = 12\n\n    ! Intermediate variables\n    REAL(fp) :: LOCALNOX, LOCALN2O, LOCALO3, LOCALO1D, LOCALO3P\n    REAL(fp) :: OLD_NO3, OLD_NO2, OLD_NO, OLD_N, OLD_N2O\n    REAL(fp) :: NEW_NO3, NEW_NO2, NEW_NO, NEW_N, NEW_N2O\n    REAL(fp) :: FRACNO, FRACNO2, FRACNO3, FRACN\n    REAL(fp) :: NOXRATE, N2ORATE, KGNOX, KGN2O\n    REAL(fp) :: NO_ALPHA, NO_BETA, NO_GAMMA, NO_EPSILON\n    REAL(fp) :: NO_QA, NO_QX, NO_QC, DNOX, DN2O\n    REAL(fp) :: MESONOX_DELTA\n    REAL(fp) :: MESON2O_DELTA\n\n    ! Local air number density (molec/cm3) and box mass (kg)\n    REAL(fp) :: NDAIR\n    REAL(fp) :: XAIR\n\n    ! Local temperature (K) and inverted T (1/K)\n    REAL(fp) :: T3K, TINV\n\n    ! Chemistry timestep in seconds\n    REAL(f8) :: DTCHEM\n\n    ! Timestep in hours\n    REAL(f8) :: DTCHEM_HR\n\n    ! Timing information\n    INTEGER, SAVE :: LASTMONTH=0\n\n    ! Grid indexing\n    INTEGER :: I,J,L\n    REAL(fp)  :: MIDLAT, ZDEL, ZBASE\n    REAL(fp)  :: ZMID(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    ! Local daylight fraction\n    REAL(fp)             :: DAYFRAC\n    LOGICAL              :: CYCLEBOX\n    CHARACTER(LEN=255)   :: DBGMSG\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(fp),      POINTER :: ZPJ(:,:,:,:)\n\n    ! Required for updated chemistry\n    Integer            :: LMinPhot\n\n    !=================================================================\n    ! UCX_NOX begins here!\n    !=================================================================\n\n    ! Point to GEOS-Chem species array and J-values\n    Spc => State_Chm%Species\n    ZPJ => State_Chm%Phot%ZPJ\n\n    ! Retrieve monthly mean data if necessary\n    IF (LASTMONTH.ne.GET_MONTH()) THEN\n       LASTMONTH = GET_MONTH()\n       CALL GET_NOXCOEFF( LASTMONTH, Input_Opt, State_Grid, State_Chm, State_Met )\n    ENDIF\n\n    ! Get chemistry step length in seconds\n    DTCHEM = GET_TS_CHEM()\n    DTCHEM_HR = DTCHEM/3600.e+0_f8\n\n    ! Reset NOx/N2O mass counters\n    MESONOX_DELTA = 0e+0_fp\n    MESON2O_DELTA = 0e+0_fp\n\n    ! First compute ZMID outside of main parallel loop\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, ZBASE, ZDEL )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Zero base height\n       ZBASE = 0e+0_fp\n\n       ! Compute the array of midpoint heights [m]\n       DO L = 1, State_Grid%NZ\n          ZDEL        = State_Met%BXHEIGHT(I,J,L)\n          ZMID(I,J,L) = ZBASE + (ZDEL/2.e+0_fp)\n          ZBASE       = ZBASE + ZDEL\n       ENDDO\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Main parallel DO loop over lon, lat, alt\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED )  &\n    !$OMP PRIVATE( I,        J,        L                       ) &\n    !$OMP PRIVATE( DAYFRAC,            DN2O,     CYCLEBOX      ) &\n    !$OMP PRIVATE(           RRATE,    T3K,      TINV          ) &\n    !$OMP PRIVATE( NDAIR,    XAIR,     KGNOX,    KGN2O         ) &\n    !$OMP PRIVATE( LOCALNOX, LOCALN2O, LOCALO3,  LOCALO3P      ) &\n    !$OMP PRIVATE( LOCALO1D, NO_ALPHA, NO_BETA,  NO_GAMMA      ) &\n    !$OMP PRIVATE( FRACNO2,  FRACNO3,  FRACNO,   FRACN         ) &\n    !$OMP PRIVATE( NOXRATE,  N2ORATE,  DNOX                    ) &\n    !$OMP PRIVATE( OLD_NO3,  OLD_NO2,  OLD_NO,   OLD_N         ) &\n    !$OMP PRIVATE( NEW_NO3,  NEW_NO2,  NEW_NO,   NEW_N         ) &\n    !$OMP PRIVATE( OLD_N2O,  NEW_N2O,  LMinPhot                )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Calculate daylight fraction\n       DAYFRAC = State_Met%SUNCOSmid(I,J)\n       LMINPHOT  = State_Met%ChemGridLev(I,J)\n       CycleBox = (L.le.LMinPhot)\n\n       ! Are the pre-calculated J-rates zero (ie in darkness)?\n       IF (CYCLEBOX) CYCLE\n\n       ! Reset reaction rates\n       RRATE = 0e+0_fp\n\n       ! Retrieve air mass (kg) and local temperature (K)\n       T3K   = State_Met%T(I,J,L)\n       TINV  = 1.e+0_fp/T3K\n\n       ! Calculate air number density (molec/cm3)\n       ! Now using dry air partial pressure (ewl, 3/2/15)\n       NDAIR = State_Met%PMID_DRY(I,J,L)*1.d-4*AVO/(RSTARG*T3K)\n       XAIR  = NDAIR / State_Met%AD(I,J,L)\n\n       ! Get total mass of N2O\n       kgN2O = Spc(id_N2O)%Conc(I,J,L)\n\n       ! Get local concentrations in molec/cm3\n       ! Ignore the data for atomic N - not well defined for\n       ! non-chemgrid boxes, and in any case the molar mass\n       ! may not be present or correctly defined\n       OLD_N   = 0.0_fp\n       OLD_NO  = Spc(id_NO)%Conc(I,J,L) * &\n                 (AIRMW / State_Chm%SpcData(id_NO )%Info%MW_g) * XAIR\n       OLD_NO2 = Spc(id_NO2)%Conc(I,J,L) * &\n                 (AIRMW / State_Chm%SpcData(id_NO2)%Info%MW_g) * XAIR\n       OLD_NO3 = Spc(id_NO3)%Conc(I,J,L) * &\n                 (AIRMW / State_Chm%SpcData(id_NO3)%Info%MW_g) * XAIR\n       OLD_N2O = kgN2O * &\n                 (AIRMW / State_Chm%SpcData(id_N2O)%Info%MW_g) * XAIR\n\n       ! Total concentrations\n       localNOx = OLD_N + OLD_NO + OLD_NO2 + OLD_NO3\n       localN2O = OLD_N2O\n\n       ! Get ozone from model\n       LOCALO3  = Spc(id_O3)%Conc(I,J,L) *  ( AIRMW / &\n                  State_Chm%SpcData(id_O3)%Info%MW_g ) * XAIR\n\n       ! These reactions are relevant during both day and night-time\n       ! chemistry\n       ! 2:  NO + O3 -> NO2 + O2\n       RRATE(2)  = 3.0e-12_fp*exp(-1500.e+0_fp*TINV)\n       ! 3:  NO2 + O3 -> NO3 + O2\n       RRATE(3)  = 1.2e-13_fp*exp(-2450.e+0_fp*TINV)\n\n       ! During night time, assume everything is NO2 and\n       ! that there is no significant production or loss.\n       ! The only exception is NO3, which is assumed to\n       ! remain unchanged\n       If (DayFrac.lt.1.0e-10_fp) Then\n          ! Simple assumption: all N and NO go to NO2\n          ! NO3 remains unchanged\n          DN2O = 0.0e+0_fp\n          DNOx = 0.0e+0_fp\n          ! Complex assumption: all N goes to NO\n          ! Night-time chemistry is slow; assume zero\n          ! O1D or O3P.\n          ! Simplified reactions - allow slow conversion of NO -> NO2\n          ! and NO2 -> NO3. Ignore all others. This can be solved\n          ! analytically (decay chain)\n          NEW_N   = 0.0e+0_fp\n          NEW_NO  = (OLD_NO + OLD_N)*dexp(-dtChem*RRATE(2)*localO3)\n          NEW_NO2 = OLD_NO2*dexp(-dtChem*RRATE(3)*localO3) + &\n                    ((OLD_NO + OLD_N)/((RRATE(3)/RRATE(2))-1.0e+0_fp)) &\n                    *(dexp(-dtChem*RRATE(2)*localO3) - &\n                      dexp(-dtChem*RRATE(3)*localO3))\n          NEW_NO3 = OLD_NO3 + (OLD_NO2 + OLD_NO + OLD_N) - &\n                              (NEW_NO2 + NEW_NO + NEW_N)\n          FRACN   = 0.0e+0_fp\n          ! Enforce safe division (bmy, 9/17/20)\n          IF ( localNOx > 0.0_fp ) THEN\n             FRACNO  = NEW_NO/localNOx\n             FRACNO2 = NEW_NO2/localNOx\n             FRACNO3 = NEW_NO3/localNOx\n          ELSE\n             FRACNO  = 0.0_fp\n             FRACNO2 = 0.0_fp\n             FRACNO3 = 0.0_fp\n          ENDIF\n       Else\n          ! Calculate remaining rate constants\n          ! 1:  NO2 + O -> NO + O2\n          RRATE(1)  = 5.1e-12_fp*exp(210.e+0_fp*TINV)\n          ! 4:  NO2 + hv -> NO + O1D\n          !RRATE(k_JNO2) = State_Chm%NOX_J(I,J,L,JNO2IDX)*DAYFRAC\n          IF ( State_Chm%Phot%RXN_NO2 > 0 ) THEN\n             RRATE(k_JNO2) = ZPJ(LMINPHOT,State_Chm%Phot%RXN_NO2,I,J)\n          ENDIF\n          ! 5:  NO3 + hv -> NO2 + O\n          !RRATE(k_JNO3) = State_Chm%NOX_J(I,J,L,JNO3IDX)*DAYFRAC\n          IF ( State_Chm%Phot%RXN_NO3 > 0 ) THEN\n             RRATE(k_JNO3) = ZPJ(LMINPHOT,State_Chm%Phot%RXN_NO3,I,J)\n          ENDIF\n          ! 6:  NO + hv -> N + O\n          !RRATE(k_JNO ) = State_Chm%NOX_J(I,J,L,JNOIDX)*DAYFRAC\n          IF ( State_Chm%Phot%RXN_NO > 0 ) THEN\n             RRATE(k_JNO) = ZPJ(LMINPHOT,State_Chm%Phot%RXN_NO,I,J)\n          ENDIF\n          ! 7:  N + NO2 -> N2O + O\n          RRATE(7)  = 5.8e-12_fp*exp(220.e+0_fp*TINV)\n          ! 8:  N + NO -> N2 + O\n          RRATE(8)  = 2.1e-11_fp*exp(100.e+0_fp*TINV)\n          ! 9:  N + O2 -> NO + O\n          RRATE(9)  = 1.5e-11_fp*exp(-3600.e+0_fp*TINV)\n          ! 10:  N2O + O1D -> N2 + O2\n          RRATE(10) = 4.63e-11_fp*exp(20.e+0_fp*TINV)\n          ! 11:  N2O + O1D -> 2NO\n          RRATE(11) = 7.25e-11_fp*exp(20.e+0_fp*TINV)\n          ! 12:  N2O + hv -> N2 + O1D\n          !RRATE(k_JN2O) = State_Chm%NOX_J(I,J,L,JN2OIDX)*DAYFRAC\n          IF ( State_Chm%Phot%RXN_N2O > 0 ) THEN\n             RRATE(k_JN2O) = ZPJ(LMINPHOT,State_Chm%Phot%RXN_N2O,I,J)\n          ENDIF\n\n          ! Sanity check\n          Where(RRate.lt.0.0e+0_fp) RRate = 0.0e+0_fp\n\n          ! Retrieve local O3P/O1D mixing ratios and relevant\n          ! j-rates from interpolated 2D arrays\n          LOCALO3P = State_Chm%NOX_O(I,J,L,1)*NDAIR*DAYFRAC\n          LOCALO1D = State_Chm%NOX_O(I,J,L,2)*NDAIR*DAYFRAC\n\n          ! Partition NOx into N, NO, NO2 and NO3 based on PSSA\n          ! Two cases: Daytime/nighttime\n          NO_ALPHA = RRATE(k_JNO) / (RRATE(9)*0.21e+0_fp*NDAIR)\n\n          ! Enforce safe division (bmy, 9/17/20)\n          IF ( RRATE(2) * LocalO3 > 0.0_fp ) THEN\n             NO_BETA = (RRATE(k_JNO2)+(RRATE(1)*LOCALO3P)) / (RRATE(2)*LOCALO3)\n          ELSE\n             NO_BETA = 0.0_fp\n          ENDIF\n\n          IF ( RRATE(k_JNO3) > 0.0_fp ) THEN\n             NO_GAMMA = (RRATE(3)*LOCALO3) / RRATE(k_JNO3)\n          ELSE\n             NO_GAMMA = 0.0_fp\n          ENDIF\n\n          ! Calculate the partition fractions\n          FRACNO2 = 1.e+0_fp/(1.e+0_fp+NO_GAMMA+(NO_BETA* &\n                    (1.e+0_fp+NO_ALPHA)))\n          FRACNO3 = NO_GAMMA * FRACNO2\n          FRACNO  = NO_BETA  * FRACNO2\n          FRACN   = NO_ALPHA * FRACNO\n\n          ! Estimate net production rates for NOx and N2O\n          NOXRATE = 2.e+0_fp*((RRATE(11)*LOCALN2O*LOCALO1D) - &\n                    (((RRATE(7)*FRACN*FRACNO2)+(RRATE(8)*FRACN*FRACNO)) &\n                    *LOCALNOX*LOCALNOX))\n          N2ORATE = (RRATE(7)*FRACN*FRACNO2*LOCALNOX*LOCALNOX) - &\n                    ((RRATE(k_JN2O)+((RRATE(10)+RRATE(11))*LOCALO1D))*LOCALN2O)\n\n          ! Calculate NOx in kg NO at the beginning\n          kgNOx = localNOx / (AIRMW / &\n                  State_Chm%SpcData(id_NO )%Info%MW_g*XAIR)\n\n          ! Calculate total change in NOx and N2O\n          ! Explicit Euler method (fast)\n          DNOX = NOXRATE * DTCHEM / ( ( AIRMW / &\n                 State_Chm%SpcData(id_NO)%Info%MW_g) * XAIR )\n          DN2O = N2ORATE * DTCHEM / ( AIRMW / &\n                 State_Chm%SpcData(id_N2O)%Info%MW_g * XAIR )\n\n          ! Safety check - ensure NOx and N2O are positive\n          IF ((DNOX*-1e+0_fp).gt.KGNOX) THEN\n             DNOX = -1e+0_fp*KGNOX\n             KGNOX = 0e+0_fp\n             LOCALNOX = 0e+0_fp\n          ELSE\n             KGNOX = KGNOX + DNOX\n             LOCALNOX = LOCALNOX + (NOXRATE*DTCHEM)\n          ENDIF\n          IF ((DN2O*-1e+0_fp).gt.KGN2O) THEN\n             DN2O = -1e+0_fp*KGN2O\n             KGN2O = 0e+0_fp\n          ELSE\n             KGN2O = KGN2O + DN2O\n          ENDIF\n       EndIf ! DayFrac < 0\n\n       ! Convert to kg\n       ! Now add all N to NO to get around problems caused by\n       ! using negative molar mass for N (SDE 2018-03-19)\n       NEW_N   = 0.0e+0_fp\n       NEW_NO  = localNOx*(fracN+fracNO) / (AIRMW/ &\n                 State_Chm%SpcData(id_NO )%Info%MW_g * XAIR)\n       NEW_NO2 = localNOx*fracNO2/(AIRMW/ &\n                 State_Chm%SpcData(id_NO2)%Info%MW_g * XAIR)\n       NEW_NO3 = localNOx*fracNO3/(AIRMW/ &\n                 State_Chm%SpcData(id_NO3)%Info%MW_g * XAIR)\n       NEW_N2O = kgN2O\n\n       Spc(id_N)%Conc(I,J,L)   = 0.d0\n       Spc(id_NO)%Conc(I,J,L)  = NEW_NO\n       Spc(id_NO2)%Conc(I,J,L) = NEW_NO2\n       Spc(id_NO3)%Conc(I,J,L) = NEW_NO3\n       Spc(id_N2O)%Conc(I,J,L) = NEW_N2O\n\n       MESONOX_DELTA = MESONOX_DELTA + DNOX\n       MESON2O_DELTA = MESON2O_DELTA + DN2O\n\n    ENDDO ! J\n    ENDDO ! I\n    ENDDO ! L\n    !$OMP END PARALLEL DO\n\n    IF ( Input_Opt%Verbose ) THEN\n       ! Print mean NOx tendency in mesosphere\n       DBGMSG = ' ### UCX_NOX: Mesospheric NOx processed'\n       CALL DEBUG_MSG(TRIM(DBGMSG))\n       WRITE(DBGMSG,'(a,1(1x,F10.5),a)') ' ### Timestep:         ', &\n            DTCHEM_HR, ' hours'\n       CALL DEBUG_MSG(TRIM(DBGMSG))\n       WRITE(DBGMSG,'(a,1x,E10.4,1x,a)') ' ### NOx direct delta: ', &\n            MESONOX_DELTA, ' kg'\n       CALL DEBUG_MSG(TRIM(DBGMSG))\n       WRITE(DBGMSG,'(a,1x,E10.4,1x,a)') ' ### N2O direct delta: ', &\n            MESON2O_DELTA, ' kg'\n       CALL DEBUG_MSG(TRIM(DBGMSG))\n    ENDIF\n\n    ! Free pointers\n    NULLIFY( Spc )\n    NULLIFY( ZPJ )\n\n  END SUBROUTINE UCX_NOX\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_noxcoeff\n!\n! !DESCRIPTION: Subroutine GET\\_NOXCOEFF reads in O1D and O3P mixing\n!  ratios along with NO, NO2, NO3 and N2O J-rates from 2D data,\n!  interpolating onto the 3D grid and storing in NOX\\_O and NOX\\_J.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_NOXCOEFF( TARG_MONTH, Input_Opt, State_Grid, State_Chm, State_Met )\n!\n! !USES:\n!\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE FILE_MOD,           ONLY : IOERROR\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: TARG_MONTH\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REMARKS:\n!  At some later point we should attempt to rewrite the parallel DO loop so\n!  that the loop order is L-J-I.  Not sure how easy that is. (bmy, 2/14/14)\n!\n! !REVISION HISTORY:\n!  26 Mar 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                               :: ILEV\n    INTEGER                               :: I, J, L, ITRAC\n    INTEGER                               :: JJNOX\n    REAL(fp)                              :: PCENTER\n    REAL(fp)                              :: CURRVAL\n    INTEGER                               :: VERTCOUNT, AS\n    LOGICAL                               :: FOUNDLEV,EXTRAP\n    LOGICAL                               :: ISRATE\n    CHARACTER(LEN=255)                    :: TARG_TRAC\n    CHARACTER(LEN=255)                    :: DBGMSG\n    REAL(fp), DIMENSION(:,:,:), POINTER   :: NOXDATA2D => NULL()\n    REAL(fp), DIMENSION(:,:), ALLOCATABLE :: NOXD2D_IN\n    INTEGER                               :: LSTART\n\n    !=================================================================\n    ! GET_NOXCOEFF begins here!\n    !=================================================================\n\n    ! Clear interpolated arrays\n    State_Chm%NOX_O = 0e+0_fp\n    State_Chm%NOX_J = 0e+0_fp\n\n    ! All the coefficients are now stored in State_Chm%NOXCOEFF.\n    ! NOXDATA2D points to the desired month slice.\n    ! (ckeller, 05/12/14)\n    NOXDATA2D => State_Chm%NOXCOEFF(:,:,:,TARG_MONTH)\n\n    ! Scan through target array, element by element\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,      J,      L,       VERTCOUNT ) &\n    !$OMP PRIVATE( EXTRAP, LSTART, PCENTER, FOUNDLEV  ) &\n    !$OMP PRIVATE( ITRAC,  ISRATE, CURRVAL, JJNOX     )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Get corresponding J value in NOXDATA2D. This can be different\n       ! from J if the simulation grid is not 2x25 or 4x5.\n       JJNOX = GET_JJNOX( I, J, State_Grid, State_Chm )\n\n       ! Vertcount is the layer count for the input, where layer 1\n       ! is at the *top* of the atmosphere\n       VERTCOUNT = 51\n       EXTRAP = .TRUE.\n       LSTART = State_Met%ChemGridLev(I,J)\n\n       DO L = LSTART, State_Grid%NZ\n          IF ( State_Met%InChemGrid(I,J,L) ) CYCLE\n\n          ! Pressure at center of cell\n          PCENTER = State_Met%PMID(I,J,L)\n          FOUNDLEV = (PCENTER.gt.State_Chm%UCX_PLEVS(VERTCOUNT))\n          DO WHILE (.not. FOUNDLEV)\n             IF (VERTCOUNT.eq.1) THEN\n                ! At top layer; use it anyway\n                FOUNDLEV = .TRUE.\n                EXTRAP = .TRUE.\n             ELSE\n                VERTCOUNT = VERTCOUNT - 1\n                FOUNDLEV = (PCENTER.gt.State_Chm%UCX_PLEVS(VERTCOUNT))\n                EXTRAP = .FALSE.\n             ENDIF\n          ENDDO\n\n          DO ITRAC=1,6\n             ISRATE = (ITRAC.gt.2)\n             ! Interpolate data\n             IF (EXTRAP) THEN\n                ! Just take outside value if at edges\n                CURRVAL = NOXDATA2D(JJNOX,VERTCOUNT,ITRAC)\n             ELSE\n                ! Interpolate by pressure\n                CURRVAL = (State_Chm%UCX_PLEVS(VERTCOUNT+1)-PCENTER)\n                CURRVAL = CURRVAL/(State_Chm%UCX_PLEVS(VERTCOUNT+1)-State_Chm%UCX_PLEVS(VERTCOUNT))\n                CURRVAL = CURRVAL * &\n                          (NOXDATA2D(JJNOX,VERTCOUNT+1,ITRAC)- &\n                           NOXDATA2D(JJNOX,VERTCOUNT,ITRAC))\n                CURRVAL = NOXDATA2D(JJNOX,VERTCOUNT+1,ITRAC) - CURRVAL\n             ENDIF\n             IF (.not.ISRATE) THEN\n                ! Reading in mixing ratios (v/v)\n                State_Chm%NOX_O(I,J,L,ITRAC) = CURRVAL\n             ELSE\n                ! J-rate (no conversion necessary)\n                State_Chm%NOX_J(I,J,L,ITRAC-2) = CURRVAL\n             ENDIF\n          ENDDO ! ITRAC\n       ENDDO ! L\n\n    ENDDO ! I\n    ENDDO ! J\n    !$OMP END PARALLEL DO\n\n    ! Cleanup\n    NOXDATA2D => NULL()\n\n  END SUBROUTINE GET_NOXCOEFF\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: settle_strat_aer\n!\n! !DESCRIPTION: Subroutine SETTLE\\_STRAT\\_AER performs gravitational settling\n!  of stratospheric aerosols. It is copied largely from GRAV\\_SETTLING in\n!  sulfate\\_mod.F90. All of this is ignored if APM is active.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SETTLE_STRAT_AER( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n#ifdef FASTJX\n    USE CMN_FJX_Mod,     ONLY : RAA\n#else\n    USE Cldj_Cmn_Mod,    ONLY : RAA\n#endif\n    USE CMN_SIZE_Mod,    ONLY : NDUST\n    USE ErrCode_Mod\n    USE ERROR_MOD,       ONLY : IT_IS_NAN,ERROR_STOP\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE Species_Mod,     ONLY : SpcConc\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE TIME_MOD,        ONLY : GET_ELAPSED_SEC, GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    INTEGER,        INTENT(INOUT) :: RC          ! Return code\n!\n! !REVISION HISTORY:\n!  11 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Common\n    INTEGER                :: I,      J,     L,        DTCHEM\n    REAL(fp)               :: DELZ,   DELZ1\n    REAL(fp)               :: P,      TEMP,  DP,       PDP\n    REAL(fp)               :: CONST,  SLIP,  VISC,     FAC1\n    REAL(fp)               :: FAC2,   FLUX,  AREA_CM2, RHB\n    REAL(fp)               :: RCM\n    REAL(fp)               :: TOT1,   TOT2,  NIT_MW_G, HNO3_MW_G\n    INTEGER                :: K\n    LOGICAL                :: NATCOL\n\n    ! Specific to each class\n    REAL(fp)               :: RWET(2),CONST_V(2)\n    REAL(fp)               :: RHO(2),RATIO_R(2),REFF(2)\n    REAL(fp)               :: VTS(State_Grid%NZ,2)\n\n    ! Used for old Seinfeld & Pandis slip factor calc\n    REAL(fp)               :: sp_Lambda, sp_Num\n\n    ! Indexing\n    INTEGER, PARAMETER     :: IBC  = 1\n    INTEGER, PARAMETER     :: ILIQ = 2\n    INTEGER, PARAMETER     :: NSETTLE = 2\n    INTEGER                :: IAERO\n    LOGICAL                :: RUNCALC\n\n    ! Partitioning\n    REAL(fp)               :: PHASEMASS(3,2)\n    REAL(fp)               :: SEDMASS\n    INTEGER                :: IDTCURRENT\n\n    ! NAT only\n    REAL(fp)               :: VFALLMAX\n    REAL(fp)               :: VNAT(State_Grid%NZ)\n    INTEGER                :: MAXALT, MINALT\n    REAL(fp)               :: BXMIN, SEDSTEP, TEMPREAL, P_0, P_ABOVE\n    REAL(fp)               :: PSED0, PSEDABOVE, INVAIR_0, INVAIR_ABOVE\n    REAL(fp)               :: XPSC_ABOVE, XPSC_0, XPSC_BELOW\n    REAL(fp)               :: XNAT_ABOVE, XNAT_0, XNAT_BELOW\n    REAL(fp)               :: XNO3_ABOVE, XNO3_0, XNO3_BELOW\n    REAL(fp)               :: XICE_ABOVE, XICE_0, XICE_BELOW\n    REAL(fp)               :: SEDPSC, SEDNAT, SEDICE, SEDQUANT\n    REAL(fp)               :: SEDH2O, SEDNO3\n    REAL(fp)               :: BELOWGRAD, ABOVEGRAD\n    INTEGER                :: LOCALPROFILE, NUMSEDSTEPS, STARTPT, ISED\n\n    ! Local variables for quantities from Input_Opt\n    LOGICAL                :: LGRAVSTRAT\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(f4), POINTER      :: STATE_PSC(:,:,:)\n    REAL(fp), POINTER      :: WERADIUS(:,:,:,:)\n\n    !=================================================================\n    ! SETTLE_STRAT_AER begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Copy fields from INPUT_OPT\n    LGRAVSTRAT  = Input_Opt%LGRAVSTRAT\n\n    ! Copy fields from species database\n    NIT_MW_G    = State_Chm%SpcData(id_NIT)%Info%MW_g  ! g/mol\n    HNO3_MW_G   = State_Chm%SpcData(id_HNO3)%Info%MW_g ! g/mol\n\n    ! Initialize pointers\n    Spc       => State_Chm%Species  ! Chemical species vector\n    STATE_PSC => State_Chm%STATE_PSC   ! PSC type (Kirner et al. 2011, GMD)\n    WERADIUS  => State_Chm%WetAeroRadi ! Aerosol Radius [cm]\n\n    ! Return if gravitational settling disabled\n    IF (.not. LGRAVSTRAT) RETURN\n\n    ! Chemistry timestep [s]\n    DTCHEM = GET_TS_CHEM()\n\n    ! First settle liquid aerosols (SLA) using scheme found\n    ! elsewhere in GEOS-Chem\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED  ) &\n    !$OMP PRIVATE( J,            I,            L,          VTS        ) &\n    !$OMP PRIVATE( VNAT,         NATCOL,       BXMIN,      MINALT     ) &\n    !$OMP PRIVATE( MAXALT,       VFALLMAX,     TEMP,       P          ) &\n    !$OMP PRIVATE( RUNCALC,      RWET,         RHO                    ) &\n    !$OMP PRIVATE( SP_NUM,       SP_LAMBDA,    VISC,       IAERO      ) &\n    !$OMP PRIVATE( DP,           PDP,          CONST,      SLIP       ) &\n    !$OMP PRIVATE( DELZ,         CONST_V,      PHASEMASS,  K          ) &\n    !$OMP PRIVATE( IDTCURRENT,   SEDMASS,      DELZ1,      SEDSTEP    ) &\n    !$OMP PRIVATE( NUMSEDSTEPS,  TEMPREAL,     ISED,       STARTPT    ) &\n    !$OMP PRIVATE( XNO3_0,       XNAT_0,       XICE_0,     XPSC_0     ) &\n    !$OMP PRIVATE( INVAIR_0,     INVAIR_ABOVE, XNO3_ABOVE, XNAT_ABOVE ) &\n    !$OMP PRIVATE( XICE_ABOVE,   XPSC_ABOVE,   P_ABOVE,    ABOVEGRAD  ) &\n    !$OMP PRIVATE( XNO3_BELOW,   XNAT_BELOW,   XICE_BELOW, XPSC_BELOW ) &\n    !$OMP PRIVATE( P_0,          PSED0,        PSEDABOVE,  BELOWGRAD  ) &\n    !$OMP PRIVATE( LOCALPROFILE, SEDQUANT,     SEDNO3,     SEDICE     ) &\n    !$OMP PRIVATE( SEDH2O,       SEDNAT,       SEDPSC                 ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize\n       DO L = 1, State_Grid%NZ\n          VTS(L,:) = 0e+0_fp\n          VNAT(L) = 0e+0_fp\n       ENDDO\n       NATCOL = .FALSE.\n\n       ! Arbitrary limits\n       BXMIN = 1.e+20_fp\n       MINALT = State_Grid%NZ+1\n       MAXALT = 0\n       VFALLMAX = 0e+0_fp\n\n       ! Loop over levels\n       DO L = 1, State_Grid%NZ\n\n          ! Temperature [K]\n          TEMP    = State_Met%T(I,J,L)\n\n          ! Pressure at center of the level [kPa]\n          ! Use moist air pressure for mean free path (ewl, 3/2/15)\n          P       = State_Met%PMID(I,J,L)  * 0.1e+0_fp\n\n          RUNCALC = State_Met%InStratMeso(I,J,L)\n\n          IF (RUNCALC) THEN\n             ! Need to translate for BC radii\n             IF ( State_Met%InChemGrid(I,J,L) ) THEN\n                RWET(IBC) = WERADIUS(I,J,L,2+NDUST)*1.e-2_fp\n             ELSE\n                ! Use defaults, assume dry (!)\n#ifdef FASTJX\n                RWET(IBC) = RAA(State_Chm%Phot%IND999,29) * 1.0e-6_fp\n#else\n                RWET(IBC) = RAA(29) * 1.0e-6_fp\n#endif\n             ENDIF\n\n             RHO(IBC) = State_Chm%SpcData(id_BCPI)%Info%Density\n\n             ! Get aerosol properties\n             RWET(ILIQ) = State_Chm%RAD_AER(I,J,L,I_SLA)*1.e-2_fp\n             RHO(ILIQ)  = State_Chm%RHO_AER(I,J,L,I_SLA)\n\n             ! Do we need to sediment NAT?\n             IF (State_Chm%NDENS_AER(I,J,L,I_SPA).gt.TINY(0e+0_fp)) THEN\n                NATCOL = .TRUE.\n                BXMIN  = MIN(BXMIN, State_Met%BXHEIGHT(I,J,L))\n                MINALT = MIN(L,MINALT)\n                MAXALT = MAX(L,MAXALT)\n             ENDIF\n          ENDIF\n\n          IF (.not.RUNCALC) THEN\n             VTS(L,:) = 0e+0_fp\n             VNAT(L) = 0e+0_fp\n          ELSE\n             ! Calculate common variables first\n             sp_Num = P * 1.e+3_fp * AVO / (RSTARG * Temp)\n             sp_Lambda = 1.e+6_fp / ( SQRT(2e+0_fp) * sp_Num * PI &\n                         * (3.7e-10_fp)**2 )\n\n             ! Viscosity [Pa*s] of air as a function of temperature\n             VISC = 1.458e-6_fp * (Temp)**(1.5e+0_fp) &\n                    / ( Temp + 110.4e+0_fp )\n\n             DO IAERO=1,2\n                IF (RWET(IAERO).le.TINY(0e+0_fp)) THEN\n                   VTS(L,IAERO) = 0e+0_fp\n                ELSE\n                   ! Dp = particle diameter [um]\n                   DP = 2.e+0_fp * RWET(IAERO) * 1.e+6_fp\n\n                   ! PdP = P * dP [hPa * um]\n                   PDp     = P * Dp\n\n                   ! Constant\n                   CONST = 2.e+0_fp * RHO(IAERO) * RWET(IAERO)**2 &\n                           * g0 / 9.e+0_fp\n\n                   !=========================================================\n                   ! NOTE: Slip correction factor calculations following\n                   ! Seinfeld, pp464 which is thought to be more accurate\n                   ! but more computation required. (rjp, 1/24/02)\n                   !\n                   ! # air molecule number density\n                   ! num = P * 1d3 * 6.023d23 / (8.314 * Temp)\n                   !\n                   ! # gas mean free path\n                   ! lamda = 1.d6/( 1.41421 * num * 3.141592 * (3.7d-10)**2 )\n                   !\n                   ! # Slip correction\n                   ! Slip = 1. + 2. * lamda * (1.257 + 0.4 * exp( -1.1 * Dp\n                   !     &     / (2. * lamda))) / Dp\n                   !\n                   ! NOTE: Eq) 3.22 pp 50 in Hinds (Aerosol Technology)\n                   ! which produces slip correction factore with small error\n                   ! compared to the above with less computation.\n                   !=========================================================\n\n                   ! Slip correction factor (as function of P*dp)\n                   ! Slip = 1.e+0_fp+(15.60e+0_fp + 7.0e+0_fp * &\n                   !           EXP(-0.059e+0_fp * PDp)) / PDp\n                   ! Reverting to Seinfeld and Pandis\n                   Slip = 1. + 2. * sp_Lambda * (1.257 + 0.4*exp(-1.1* &\n                          Dp / (2. * sp_Lambda))) / Dp\n\n                   ! Settling velocity [m/s]\n                   VTS(L,IAERO) = CONST * Slip / VISC\n                ENDIF ! RWET\n             ENDDO ! IAERO\n\n             ! Now solid PSC particles\n             IF (NATCOL) THEN\n                ! sp_Num: Air molecule#/m3\n                VNAT(L) = CALC_FALLVEL(State_Chm%RHO_AER(I,J,L,I_SPA), &\n                          State_Chm%RAD_AER(I,J,L,I_SPA),TEMP,P)\n                IF (VNAT(L).gt.VFALLMAX) VFALLMAX = VNAT(L)\n             ELSE\n                VNAT(L) = 0.e+0_fp\n             ENDIF\n          ENDIF ! RUNCALC\n       ENDDO\n\n       ! First apply simpler SLA sedimentation scheme\n       ! Handle model top condition\n       L    = State_Grid%NZ\n       DELZ = State_Met%BXHEIGHT(I,J,L)\n\n       DO IAERO=1,2\n          CONST_V(IAERO) = 1.e+0_fp / (1.e+0_fp + DTCHEM * VTS(L,IAERO) / DELZ)\n       ENDDO\n\n       ! Zero arrays\n       PHASEMASS(:,:) = 0e+0_fp\n\n       ! Only want to sediment fraction of species currently\n       ! in the aerosol\n       DO K = 1,7\n          ! Only process transported species\n          IDTCURRENT = State_Chm%AERFRACIND(K)\n          IF (IDTCURRENT.ne.0) THEN\n             ! Calculate local phase partitioning\n             ! Total upper gridbox mass\n             PHASEMASS(3,2) = Spc(IDTCURRENT)%Conc(I,J,L)\n             ! Aerosol-phase upper gridbox mass\n             PHASEMASS(2,2) = State_Chm%AERFRAC(I,J,L,K)*PHASEMASS(3,2)\n             ! Gas-phase upper gridbox mass\n             PHASEMASS(1,2) = PHASEMASS(3,2) - PHASEMASS(2,2)\n\n             ! Calculate total sedimented mass\n             SEDMASS = PHASEMASS(2,2) * (1.e+0_fp-CONST_V(ILIQ))\n\n             ! Remove from upper gridbox\n             PHASEMASS(2,2) = PHASEMASS(2,2) - SEDMASS\n             PHASEMASS(3,2) = PHASEMASS(1,2) + PHASEMASS(2,2)\n\n             ! Recalculate phase fractions\n             IF (PHASEMASS(3,2).gt.TINY(1e+0_fp)) THEN\n                State_Chm%AERFRAC(I,J,L,K) = PHASEMASS(2,2)/PHASEMASS(3,2)\n             ELSE\n                State_Chm%AERFRAC(I,J,L,K) = 0e+0_fp\n             ENDIF\n\n             ! Store result\n             Spc(IDTCURRENT)%Conc(I,J,L) = PHASEMASS(3,2)\n          ENDIF\n       ENDDO\n       Spc(id_BCPI)%Conc(I,J,L) = Spc(id_BCPI)%Conc(I,J,L) * CONST_V(IBC)\n\n       DO L = State_Grid%NZ-1,1,-1\n          IF ( State_Met%InTroposphere(I,J,L+1) ) CYCLE\n          DELZ  = State_Met%BXHEIGHT(I,J,L)\n          DELZ1 = State_Met%BXHEIGHT(I,J,L+1)\n\n          DO K=1,7\n             IDTCURRENT = State_Chm%AERFRACIND(K)\n             IF (IDTCURRENT.ne.0) THEN\n                ! Total upper gridbox mass\n                PHASEMASS(3,2) = Spc(IDTCURRENT)%Conc(I,J,L+1)\n                ! Aerosol-phase upper gridbox mass\n                PHASEMASS(2,2) = State_Chm%AERFRAC(I,J,L+1,K)*PHASEMASS(3,2)\n                ! Gas-phase upper gridbox mass\n                PHASEMASS(1,2) = PHASEMASS(3,2) - PHASEMASS(2,2)\n\n                ! Total lower gridbox mass\n                PHASEMASS(3,1) = Spc(IDTCURRENT)%Conc(I,J,L)\n                ! Aerosol-phase lower gridbox mass\n                PHASEMASS(2,1) = State_Chm%AERFRAC(I,J,L,K)*PHASEMASS(3,1)\n                ! Gas-phase lower gridbox mass\n                PHASEMASS(1,1) = PHASEMASS(3,1) - PHASEMASS(2,1)\n\n                ! New lower gridbox mass\n                PHASEMASS(2,1) = 1.e+0_fp/(1.e+0_fp+DTCHEM &\n                                 * VTS(L,ILIQ) / DELZ) &\n                                 * (PHASEMASS(2,1)+DTCHEM*VTS(L+1,ILIQ)/DELZ1 &\n                                 * PHASEMASS(2,2))\n\n                ! Calculate new total mass in lower gridbox\n                PHASEMASS(3,1) = PHASEMASS(2,1) + PHASEMASS(1,1)\n\n                ! Recalculate phase fraction\n                IF (PHASEMASS(3,1).gt.TINY(1e+0_fp)) THEN\n                   State_Chm%AERFRAC(I,J,L,K) = PHASEMASS(2,1)/PHASEMASS(3,1)\n                ELSE\n                   State_Chm%AERFRAC(I,J,L,K) = 0e+0_fp\n                ENDIF\n\n                ! Store result\n                Spc(IDTCURRENT)%Conc(I,J,L) = PHASEMASS(3,1)\n             ENDIF\n          ENDDO\n          Spc(id_BCPI)%Conc(I,J,L) = 1.e+0_fp/(1.e+0_fp+DTCHEM &\n                               * VTS(L,IBC) / DELZ) &\n                               * ( Spc(id_BCPI)%Conc(I,J,L) &\n                                   + DTCHEM * VTS(L+1,IBC) / DELZ1 &\n                                   * Spc(id_BCPI)%Conc(I,J,L+1) )\n       ENDDO\n\n       ! Now perform trapezoidal scheme for particulates\n       ! Calculate maximum allowable timestep (seconds)\n       IF (VFALLMAX.gt.TINY(1e+0_fp)) THEN\n          SEDSTEP = BXMIN/VFALLMAX\n          IF(DTCHEM.le.SEDSTEP)THEN\n             NUMSEDSTEPS = 1\n             SEDSTEP = DTCHEM\n          ELSE\n             ! Will need to run iteratively\n             ! Calculate minimum necessary number of steps, limiting to\n             ! 10 steps if excessive\n             TEMPREAL = DTCHEM/SEDSTEP\n             NUMSEDSTEPS = CEILING(TEMPREAL)\n             NUMSEDSTEPS = MIN(10,NUMSEDSTEPS)\n             SEDSTEP = DTCHEM/(NUMSEDSTEPS*1.e+0_fp)\n             VFALLMAX = BXMIN/SEDSTEP\n          ENDIF\n\n          SEDSTEPLOOP: DO ISED=1,NUMSEDSTEPS\n             STARTPT = MAX(1,MINALT-1)\n             ! XPSC is the number of molecules tied up in solid particles\n             ! per m3 in a grid box\n             L = STARTPT\n             IF (STATE_PSC(I,J,L) < 2.0e+0_f4 ) THEN\n                XNO3_0 = 0e+0_fp\n                XNAT_0 = 0e+0_fp\n                XICE_0 = 0e+0_fp\n             ELSE\n                XNO3_0 = Spc(id_NIT)%Conc(I,J,L) * AIRMW / &\n                         ( NIT_MW_G * State_Met%AD(I,J,L) )\n                XNAT_0 = XNO3_0! * 4.e+0_fp\n                XICE_0 = (State_Chm%KG_AER(I,J,L,I_SPA)- &\n                         ( ( NATMW / NIT_MW_G ) * &\n                         Spc(id_NIT)%Conc(I,J,L)))*AIRMW/(ICEMW* &\n                         State_Met%AD(I,J,L))\n             ENDIF\n             XPSC_0   = XNAT_0 + XICE_0\n             P_0      = 100.0e+0_fp * State_Met%PMID(I,J,L)\n             INVAIR_0 = AIRMW/State_Met%AD(I,J,L)\n             IF (L .lt. (State_Grid%NZ-1)) THEN\n                INVAIR_ABOVE  = AIRMW/State_Met%AD(I,J,L+1)\n                IF (STATE_PSC(I,J,L+1) < 2.0e+0_f4 ) THEN\n                   XNO3_ABOVE = 0e+0_fp\n                   XNAT_ABOVE = 0e+0_fp\n                   XICE_ABOVE = 0e+0_fp\n                ELSE\n                   XNO3_ABOVE = Spc(id_NIT)%Conc(I,J,L+1) &\n                                * INVAIR_ABOVE / NIT_MW_G\n                   ! NAT = HNO3.3H2O = 4 molecules\n                   XNAT_ABOVE = XNO3_ABOVE! * 4.e+0_fp\n                   ! XICE_ABOVE = (State_Chm%KG_AER(I,J,L+1,I_SPA)-Spc(id_NIT)%Conc(I,J,L+1)) &\n                   !                            *INVAIR_ABOVE/ICEMW\n                   XICE_ABOVE = (State_Chm%KG_AER(I,J,L+1,I_SPA)- &\n                                ( ( NATMW / NIT_MW_G ) * &\n                                Spc(id_NIT)%Conc(I,J,L+1)))*INVAIR_ABOVE/ICEMW\n                ENDIF\n                XPSC_ABOVE = XNAT_ABOVE + XICE_ABOVE\n                P_ABOVE    = 100.0e+0_fp * State_Met%PMID(I,J,L+1)\n\n                ! Replace PEDGE(I,J,L+1) - PEDGE(I,J,L+2)\n                ! with equivalent State_Met%DELP(I,J,L+1)\n                ! (ewl, 3/2/15)\n                PSEDABOVE  = VNAT(L+1) * SEDSTEP * 1.e+2_fp * &\n                             State_Met%DELP(I,J,L+1) &\n                             / State_Met%BXHEIGHT(I,J,L+1)\n                !PSEDABOVE=g0 * (1.0d3*AIRMW) * P_ABOVE * &\n                !   VNAT(L+1) / (Rd * T(I,J,L+1))*SEDSTEP\n             ELSE\n                INVAIR_ABOVE = 1.0e+0_fp\n                XNO3_ABOVE = 0.0e+0_fp\n                XNAT_ABOVE = 0.0e+0_fp\n                XICE_ABOVE = 0.0e+0_fp\n                XPSC_ABOVE = 0.0e+0_fp\n                P_ABOVE = State_Met%PEDGE(I,J,L+2) * 100.0e+0_fp\n                PSEDABOVE = 0.0e+0_fp\n             ENDIF\n             ABOVEGRAD = (XPSC_ABOVE-XPSC_0)/(P_0-P_ABOVE)\n             SED_LLOOP: DO L=STARTPT,MAXALT\n                ! Actually calculating sedimentation for the box above this\n                ! one. By the time we get around to processing a given\n                ! box, it is actually the (i-1)th box\n                ! We are therefore concerned with calculating\n                ! sedimentation *out* of the box above us and *into* this\n                ! one\n                XNO3_BELOW = XNO3_0\n                XNAT_BELOW = XNAT_0\n                XICE_BELOW = XICE_0\n                XPSC_BELOW = XPSC_0\n                XNO3_0 = XNO3_ABOVE\n                XNAT_0 = XNAT_ABOVE\n                XICE_0 = XICE_ABOVE\n                XPSC_0 = XPSC_ABOVE\n                P_0 = P_ABOVE\n                PSED0 = PSEDABOVE\n                INVAIR_0 = INVAIR_ABOVE\n\n                IF (L.lt.(State_Grid%NZ-1)) THEN\n                   INVAIR_ABOVE  = AIRMW/State_Met%AD(I,J,L+2)\n                   IF (STATE_PSC(I,J,L+2) >= 2.0e+0_f4 ) THEN\n                      XNO3_ABOVE = Spc(id_NIT)%Conc(I,J,L+2)*INVAIR_ABOVE/NIT_MW_G\n                      XNAT_ABOVE = XNO3_ABOVE! * 4.e+0_fp\n                      XICE_ABOVE = (State_Chm%KG_AER(I,J,L+2,I_SPA)- &\n                                   ( ( NATMW / NIT_MW_G )* &\n                                   Spc(id_NIT)%Conc(I,J,L+2)))*INVAIR_ABOVE/ICEMW\n                   ELSE\n                      XNO3_ABOVE = 0e+0_fp\n                      XNAT_ABOVE = 0e+0_fp\n                      XICE_ABOVE = 0e+0_fp\n                   ENDIF\n                   XPSC_ABOVE = XNAT_ABOVE + XICE_ABOVE\n                   P_ABOVE    = State_Met%PMID(I,J,L+2) * 100.0e+0_fp\n\n                   ! Replace PEDGE(I,J,L+2) - PEDGE(I,J,L+3)\n                   ! with equivalent State_Met%DELP(I,J,L+2)\n                   ! (ewl, 3/2/15)\n                   PSEDABOVE  = VNAT(L+2) * SEDSTEP * 1.e+2_fp * &\n                                State_Met%DELP(I,J,L+2) &\n                                / State_Met%BXHEIGHT(I,J,L+2)\n                   !PSEDABOVE = g0 * (1.0d3*AIRMW) * P_ABOVE * &\n                   !   VNAT(L+2)/(Rd * T(I,J,L+2))*SEDSTEP\n                ELSE\n                   INVAIR_ABOVE = 0.0e+0_fp\n                   XNO3_ABOVE = 0.0e+0_fp\n                   XNAT_ABOVE = 0.0e+0_fp\n                   XICE_ABOVE = 0.0e+0_fp\n                   XPSC_ABOVE = 0.0e+0_fp\n                   P_ABOVE = State_Met%PEDGE(I,J,L+2) * 100.0e+0_fp\n                   PSEDABOVE = 0.0e+0_fp\n                ENDIF\n                ! Note reversal of pressure values as pressure falls with\n                ! height. If a value is positive, PSC particle substance\n                ! mixing ratios are increasing with height, and vice versa\n                BELOWGRAD = ABOVEGRAD\n                ABOVEGRAD = (XPSC_ABOVE-XPSC_0)/(P_0-P_ABOVE)\n\n                ! NB: Order of following conditionals is important! Could\n                ! theoretically do without localprofile as a variable, but\n                ! should be sure to check for the possible (but phenomenally\n                ! unlikely) condition that the gradients are both zero\n                IF ((ABOVEGRAD .eq. 0e+0_fp) .and. &\n                    (BELOWGRAD .eq. 0e+0_fp)) THEN\n                   ! Extremelely unlikely case, but use standard scheme\n                   ! for flat vertical profile\n                   LOCALPROFILE = 0\n                ELSEIF ((ABOVEGRAD .le. 0e+0_fp) .and. &\n                        (BELOWGRAD .le. 0e+0_fp)) THEN\n                   ! Consistently decreasing with height - above a peak\n                   LOCALPROFILE = -1\n                ELSEIF ((ABOVEGRAD .ge. 0e+0_fp) .and. &\n                        (BELOWGRAD .ge. 0e+0_fp)) THEN\n                   ! Consistently increasing with height - below a peak\n                   LOCALPROFILE = +1\n                ELSE\n                   ! Local minmum or maximum\n                   LOCALPROFILE = 0\n                ENDIF\n\n                IF (LOCALPROFILE.eq.0) THEN\n                   ! Standard sedimentation scheme\n                   SEDQUANT = XPSC_0 * PSED0\n                   SEDNO3   = XNO3_0 * PSED0\n                   SEDICE   = XICE_0 * PSED0\n                ELSEIF (LOCALPROFILE.eq.1) THEN\n                   ! Currently below a peak\n                   ! Use gradient of bottom and centre boxes\n                   IF (XPSC_0 .le. (0.5e+0_fp * XPSC_ABOVE)) THEN\n                      ! Interpret as nearing peak; use lower gradient\n                      SEDQUANT = (XPSC_0+XPSC_BELOW)*0.5e+0_fp*PSED0\n                      SEDNO3   = (XNO3_BELOW+XNO3_0)*0.50*PSED0\n                      SEDICE   = (XICE_BELOW+XICE_0)*0.50*PSED0\n                   ELSE\n                      SEDQUANT = (XPSC_ABOVE+XPSC_0)*0.50*PSED0\n                      SEDNO3   = (XNO3_ABOVE+XNO3_0)*0.50*PSED0\n                      SEDICE   = (XICE_ABOVE+XICE_0)*0.50*PSED0\n                   ENDIF\n                ELSE\n                   ! Above a peak\n                   SEDQUANT = (XPSC_0+XPSC_BELOW)*0.5e+0_fp*PSED0\n                   SEDNO3   = (XNO3_0+XNO3_BELOW)*0.5e+0_fp*PSED0\n                   SEDICE   = (XICE_0+XICE_BELOW)*0.5e+0_fp*PSED0\n                ENDIF\n                ! Divide sedimenting quantity by the pressure difference\n                ! across the box being sedimented from\n                ! Note conversion from hPa to Pa for denominator, ie\n                ! multiply numerator by (1/100)\n                IF (L .ne. State_Grid%NZ) THEN\n\n                   ! Replace PEDGE(I,J,L+1) - PEDGE(I,J,L+2)\n                   ! with equivalent State_Met%DELP(I,J,L+1)\n                   ! (ewl, 3/2/15)\n                   SEDQUANT = (1.e-2_fp) * SEDQUANT / State_Met%DELP(I,J,L+1)\n                   SEDNO3   = (1.e-2_fp) * SEDNO3   / State_Met%DELP(I,J,L+1)\n                   SEDICE   = (1.e-2_fp) * SEDICE   / State_Met%DELP(I,J,L+1)\n                ELSE\n                   ! This shouldn't be possible?\n                   CALL ERROR_STOP('Unknown sedimentation error', 'UCX_mod.F90')\n                ENDIF\n\n                ! Apply limits so that sedimented quantity is:\n                ! Greater than or equal to zero\n                ! Less than or equal to the total available quantity\n\n                ! Note that we are calculating sedimentation using\n                ! the total ice and NAT, but are only actually\n                ! transporting the local NO3\n                SEDQUANT = MAX(0.0e+0_fp,SEDQUANT)\n                SEDNO3 = MAX(0.0e+0_fp,SEDNO3)\n                SEDICE = MAX(0.0e+0_fp,SEDICE)\n\n                ! Convert v/v to kg/box\n                SEDNO3 = SEDNO3 * NIT_MW_G / INVAIR_0\n                SEDICE = SEDICE*ICEMW/INVAIR_0\n\n                SEDNO3 = MIN(SEDNO3,Spc(id_NIT)%Conc(I,J,L+1))\n                Spc(id_NIT)%Conc(I,J,L) = Spc(id_NIT)%Conc(I,J,L) + SEDNO3\n                Spc(id_NIT)%Conc(I,J,L+1)=Spc(id_NIT)%Conc(I,J,L+1)-SEDNO3\n\n                ! Settle the ice out too\n                SEDH2O = MIN(SEDICE,Spc(id_H2O)%Conc(I,J,L+1))\n                Spc(id_H2O)%Conc(I,J,L) = Spc(id_H2O)%Conc(I,J,L) + SEDH2O\n                Spc(id_H2O)%Conc(I,J,L+1)=Spc(id_H2O)%Conc(I,J,L+1)-SEDH2O\n\n                ! Now correct aerosol totals\n                SEDNAT = SEDNO3 * NATMW / NIT_MW_G\n                SEDPSC = SEDNAT + SEDICE\n                SEDPSC = MIN(SEDPSC,State_Chm%KG_AER(I,J,L+1,I_SPA))\n                State_Chm%KG_AER(I,J,L,I_SPA) = State_Chm%KG_AER(I,J,L,I_SPA) + SEDPSC\n                State_Chm%KG_AER(I,J,L+1,I_SPA)=State_Chm%KG_AER(I,J,L+1,I_SPA)-SEDPSC\n\n             ENDDO SED_LLOOP\n          ENDDO SEDSTEPLOOP\n       ENDIF ! VFALLMAX > 0\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    Spc       => NULL()\n    STATE_PSC => NULL()\n    WERADIUS  => NULL()\n\n  END SUBROUTINE SETTLE_STRAT_AER\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_h2so4_gas\n!\n! !DESCRIPTION: Subroutine CALC\\_H2SO4\\_GAS calculates the fraction of strat.\n!  SO4 aerosol which can be considered to be gaseous H2SO4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_H2SO4_GAS( Input_Opt, State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input options\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n!\n! !REVISION HISTORY:\n!  11 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE      :: FIRST=.TRUE.\n    REAL(fp),PARAMETER :: GF_THRESHOLD = 0.0e+0_fp\n    REAL(fp),PARAMETER :: GF_RANGE     = 1.0e-8_fp\n    REAL(fp),PARAMETER :: GF_DELTAHBYR = 10156.e+0_fp\n    REAL(fp),PARAMETER :: GF_T0        = 360.e+0_fp\n    REAL(fp),PARAMETER :: GF_TC        = 905.e+0_fp\n    REAL(fp),SAVE      :: GF_LOGP0\n    REAL(fp),SAVE      :: GF_BFACTOR\n    REAL(fp),SAVE      :: GF_ATMCONV\n    REAL(fp),SAVE      :: GF_INVT0\n    REAL(fp)           :: GF_INVT,GF_LOGPSULFATE,GF_CFACTOR\n    REAL(fp)           :: GF_AFACTOR\n    REAL(fp)           :: GF_PP,GF_PVAP,GF_DIFF\n\n    INTEGER            :: I, J, L\n    REAL(fp)           :: PCENTER, PCENTER_P, TCENTER, H2SO4SUM\n    REAL(fp)           :: INVAIR\n    REAL(fp)           :: SO4_MW_G\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! CALC_H2SO4_GAS begins here!\n    !=================================================================\n\n    ! Copy fields from species database\n    SO4_MW_G = State_Chm%SpcData(id_SO4)%Info%MW_g ! g/mol\n\n    ! Point GEOS-Chem species array\n    Spc => State_Chm%Species\n\n    IF (FIRST) THEN\n       FIRST = .FALSE.\n       ! Calculate H2SO4 gas phase prefactors\n       GF_INVT0 = 1.e+0_fp/GF_T0\n       GF_LOGP0 = (-1.e+0_fp*GF_DELTAHBYR*GF_INVT0) + 16.259e+0_fp\n       GF_BFACTOR = 0.38e+0_fp/(GF_TC - GF_T0)\n       GF_ATMCONV = LOG(ATM)\n    ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( J,          I,              L       ) &\n    !$OMP PRIVATE( PCENTER,    PCENTER_P,      TCENTER ) &\n    !$OMP PRIVATE( INVAIR )                              &\n    !$OMP PRIVATE( H2SO4SUM,   GF_PP,          GF_INVT ) &\n    !$OMP PRIVATE( GF_CFACTOR, GF_LOGPSULFATE, GF_PVAP ) &\n    !$OMP PRIVATE( GF_DIFF                             ) &\n    !$OMP SCHEDULE( DYNAMIC )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n       ! Only interested in low-pressure boxes\n       TCENTER = State_Met%T(I,J,L)\n\n       ! Use moist air pressure thresholding (ewl, 3/26/15)\n       PCENTER = State_Met%PMID(I,J,L)\n       ! Use dry air partial pressure for part. P calc (ewl, 3/26/15)\n       PCENTER_P = State_Met%PMID_DRY(I,J,L)\n\n       INVAIR  = AIRMW / State_Met%AD(I,J,L)\n       IF (PCENTER.ge.1.e+2_fp) THEN\n          State_Chm%AERFRAC(I,J,L,1) = 1e+0_fp\n       ELSEIF ( State_Met%InTroposphere(I,J,L) ) THEN\n          ! Don't want to interfere with tropospheric aerosols\n          State_Chm%AERFRAC(I,J,L,1) = 1e+0_fp\n       ELSE\n          H2SO4SUM = Spc(id_SO4)%Conc(I,J,L) * INVAIR / SO4_MW_G\n          ! Use approximation from Kumala (1990)\n          ! Use dry air partial pressure (ewl, 3/26/15)\n          GF_PP = H2SO4SUM*PCENTER_P\n          GF_INVT = 1./TCENTER\n          GF_CFACTOR = 1.e+0_fp+(LOG(GF_T0*GF_INVT))-(GF_T0*GF_INVT)\n          GF_LOGPSULFATE = GF_LOGP0 + (GF_DELTAHBYR*(GF_INVT0 - &\n                           GF_INVT + (GF_BFACTOR*GF_CFACTOR)))\n          GF_LOGPSULFATE = GF_LOGPSULFATE + GF_ATMCONV\n          GF_PVAP = 1.e-2_fp * EXP(GF_LOGPSULFATE)\n          GF_DIFF = (GF_PVAP+GF_THRESHOLD) - GF_PP\n          IF (GF_DIFF .lt. 0) THEN\n             State_Chm%AERFRAC(I,J,L,1) = 1.e+0_fp\n          ELSEIF (GF_DIFF .lt. GF_RANGE) THEN\n             State_Chm%AERFRAC(I,J,L,1) = 1.e+0_fp-(GF_DIFF/GF_RANGE)\n          ELSE\n             State_Chm%AERFRAC(I,J,L,1) = 0e+0_fp\n          ENDIF\n       ENDIF\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    NULLIFY( Spc )\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### UCX: H2SO4 partitioned' )\n    ENDIF\n\n  END SUBROUTINE CALC_H2SO4_GAS\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: so4_photfrac\n!\n! !DESCRIPTION: FUNCTION SO4\\_PHOTFRAC returns the fraction of H2SO4 which\n!  is available for photolysis.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  REAL(fp) FUNCTION SO4_PHOTFRAC(I,J,L,State_Chm)\n!\n! !USES:\n!\n    USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: I,J,L      ! Location indices\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT VARIABLES:\n!\n!   REAL(fp), INTENT(OUT) :: PHOTFRAC   ! Gaseous fraction of H2SO4\n!\n! !REVISION HISTORY:\n!  11 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! SO4_PHOTFRAC begins here!\n    !=================================================================\n\n    SO4_PHOTFRAC = 1.e+0_fp - State_Chm%AERFRAC(I,J,L,1)\n\n  END FUNCTION SO4_PHOTFRAC\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_strat_aer\n!\n! !DESCRIPTION: Subroutine CALC\\_STRAT\\_AER calculates aerosol properties\n!  stratosphere using the thermodynamic parameterization described in\n!  Kirner et al. (`Simulation of polar stratospheric clouds in the\n!  chemistry-climate-model EMAC via the submodel PSC', Geosci. Mod. Dev.,\n!  4, 169-182, 2011).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_STRAT_AER( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : DEBUG_MSG\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE ERROR_MOD,          ONLY : IS_SAFE_DIV\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  13 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Limits on PSC formation\n    REAL(fp),PARAMETER      :: PSC_MAXLAT =  45.0e+0_fp\n    REAL(fp),PARAMETER      :: PSC_MINLAT = -55.0e+0_fp\n    REAL(fp),PARAMETER      :: PSC_PMAX   =  18.0e+3_fp\n    REAL(fp),PARAMETER      :: PSC_PMIN   =   5.0e+2_fp\n\n    ! Allow PSC formation outsize Kirner limits?\n    LOGICAL,PARAMETER       :: PSC_FULL   =.FALSE.\n\n    ! Saturation and nucleation properties of HNO3\n    REAL(fp), PARAMETER     :: TSATHNO3_A = -2.7836e+0_fp\n    REAL(fp), PARAMETER     :: TSATHNO3_B = -0.00088e+0_fp\n    REAL(fp), PARAMETER     :: TSATHNO3_C = 38.9855e+0_fp\n    REAL(fp), PARAMETER     :: TSATHNO3_D = -11397.0e+0_fp\n    REAL(fp), PARAMETER     :: TSATHNO3_E = 0.009179e+0_fp\n\n    ! Saturation and nucleation properties of water\n    REAL(fp), PARAMETER     :: TSATH2O_A  = -2663.5e+0_fp\n    REAL(fp), PARAMETER     :: TSATH2O_B  = 12.537e+0_fp\n\n    ! Peak pressure at which NAT can form homogeneously\n    REAL(fp), PARAMETER     :: P_MAXNAT = 1.40e+4_fp ! Pa\n\n    ! Maximum temperature for PSC formation (K)\n    REAL(fp), PARAMETER     :: T_MAX = 215.0e+0_fp\n\n    ! Limits on NAT/ice formation\n    REAL(fp), PARAMETER     :: MIN_RAD = 1.0e-7_fp ! m\n    REAL(fp), PARAMETER     :: MAX_NDENS=42.0e+3_fp ! #/m3\n\n    ! Local conditions\n    REAL(fp)                :: TCENTER, PCENTER, PCENTER_PA, DENAIR\n    REAL(fp)                :: INVAIR, TINV, TOFFSET\n\n    ! Gridbox mixing ratios and partial pressures\n    REAL(fp)                :: HNO3SUM, H2OSUM\n    REAL(fp)                :: HNO3PP,  H2OPP\n    REAL(fp)                :: PSATHNO3_SUPERCOOL\n    REAL(fp)                :: PSATH2O_SUPERSAT\n    REAL(fp)                :: PSATHNO3, PSATH2O\n    REAL(fp)                :: H2SO4SUM\n    REAL(fp)                :: ClNO3SUM, HClSUM, HOClSUM\n    REAL(fp)                :: BrNO3SUM, HBrSUM, HOBrSUM\n\n    ! Gridbox aerosol and phase data\n    REAL(fp)                :: HNO3_BOX_G, HNO3_BOX_L, HNO3_BOX_S\n    REAL(fp)                :: H2O_BOX_G,  H2O_BOX_L,  H2O_BOX_S\n    REAL(fp)                :: H2SO4_BOX_G,H2SO4_BOX_L\n    REAL(fp)                :: HCl_BOX_G,  HCl_BOX_L\n    REAL(fp)                :: HOCl_BOX_G, HOCl_BOX_L\n    REAL(fp)                :: HBr_BOX_G,  HBr_BOX_L\n    REAL(fp)                :: HOBr_BOX_G, HOBr_BOX_L\n    REAL(fp)                :: HNO3GASFRAC, HClGASFRAC, HOClGASFRAC\n    REAL(fp)                :: HBrGASFRAC, HOBrGASFRAC\n    REAL(fp)                :: VOL_NAT, VOL_ICE, VOL_SLA, VOL_TOT\n    REAL(fp)                :: RAD_AER_BOX,RHO_AER_BOX\n    REAL(fp)                :: KG_AER_BOX,NDENS_AER_BOX,SAD_AER_BOX\n    REAL(fp)                :: KG_NAT, KG_ICE, KG_NO3\n\n    ! SLA weight fractions\n    REAL(fp)                :: W_H2SO4, W_H2O, W_HNO3\n    REAL(fp)                :: W_HCl, W_HOCl, W_HBr, W_HOBr\n\n    ! Reaction prefactors\n    REAL(fp)                :: KHET_COMMON\n    REAL(fp)                :: KHET_SPECIFIC\n\n    ! Grid box location\n    REAL(fp)                :: BOX_LAT_S, BOX_LAT_N, BOX_LAT\n    LOGICAL                 :: IS_VALID, IS_POLAR, IS_STRAT\n\n    ! Local properties\n    REAL(fp), DIMENSION(11) :: GAMMA_BOX\n    INTEGER                 :: STATE_LOCAL\n\n    ! Loop variables\n    INTEGER                 :: I, J, L, K\n\n    ! Local variables for quantities from Input_Opt\n    LOGICAL                 :: LHOMNUCNAT\n    LOGICAL                 :: LSOLIDPSC\n    LOGICAL                 :: LACTIVEH2O\n\n    ! Local variables for quantities from species database\n    REAL(fp)                :: NIT_MW_G, HNO3_MW_G, H2O_MW_G\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n    REAL(fp), POINTER       :: KHETI_SLA(:,:,:,:)\n    REAL(f4), POINTER       :: STATE_PSC(:,:,:)\n\n    !=================================================================\n    ! CALC_STRAT_AER begins here!\n    !=================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n\n    ! Copy fields from INPUT_OPT\n    LHOMNUCNAT  = Input_Opt%LHOMNUCNAT\n    LSOLIDPSC   = Input_Opt%LSOLIDPSC\n    LACTIVEH2O  = Input_Opt%LACTIVEH2O\n\n    ! Copy fields from species database\n    NIT_MW_G  = State_Chm%SpcData(id_NIT)%Info%MW_g   ! g/mol\n    HNO3_MW_G = State_Chm%SpcData(id_HNO3)%Info%MW_g  ! g/mol\n    H2O_MW_G  = State_Chm%SpcData(id_H2O)%Info%MW_g   ! g/mol\n\n    ! Point to GEOS-Chem species array\n    Spc => State_Chm%Species\n\n    ! Initialize sticking coefficients for PSC reactions on SLA\n    KHETI_SLA => State_Chm%KHETI_SLA\n\n    ! Initialize gridbox PSC type (see Kirner et al. 2011, GMD)\n    STATE_PSC => State_Chm%STATE_PSC\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### UCX: start CALC_STRAT_AER' )\n    ENDIF\n\n    ! Partition H2SO4 before proceeding\n    CALL CALC_H2SO4_GAS( Input_Opt, State_Chm, State_Grid, State_Met )\n\n    ! Loop over latitude boxes first\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I,            J,                  L             ) &\n    !$OMP PRIVATE( K,            IS_POLAR,           IS_STRAT      ) &\n    !$OMP PRIVATE( PCENTER,      PCENTER_PA,         DENAIR        ) &\n    !$OMP PRIVATE( INVAIR,       PSATHNO3,           PSATH2O       ) &\n    !$OMP PRIVATE( VOL_NAT,      VOL_ICE                           ) &\n    !$OMP PRIVATE( VOL_SLA,      PSATHNO3_SUPERCOOL, TCENTER       ) &\n    !$OMP PRIVATE( TINV,         IS_VALID                          ) &\n    !$OMP PRIVATE( RAD_AER_BOX,  RHO_AER_BOX                       ) &\n    !$OMP PRIVATE( KG_AER_BOX,   NDENS_AER_BOX,      SAD_AER_BOX   ) &\n    !$OMP PRIVATE( KG_NAT,       KG_ICE,             KG_NO3        ) &\n    !$OMP PRIVATE( GAMMA_BOX,    PSATH2O_SUPERSAT,   H2OSUM        ) &\n    !$OMP PRIVATE( H2OPP,        H2O_BOX_S,          H2O_BOX_L     ) &\n    !$OMP PRIVATE( H2O_BOX_G,    H2SO4SUM,           HNO3SUM       ) &\n    !$OMP PRIVATE( HNO3PP,       HNO3_BOX_S,         HNO3_BOX_L    ) &\n    !$OMP PRIVATE( HNO3_BOX_G,   BrNO3SUM,           HBrSUM        ) &\n    !$OMP PRIVATE( HOBrSUM,      ClNO3SUM,           HClSUM        ) &\n    !$OMP PRIVATE( HOClSUM,      STATE_LOCAL,        HBrGASFRAC    ) &\n    !$OMP PRIVATE( HOBrGASFRAC,  HNO3GASFRAC,        HClGASFRAC    ) &\n    !$OMP PRIVATE( HOClGASFRAC,  TOFFSET,            W_H2SO4       ) &\n    !$OMP PRIVATE( W_H2O,        W_HCl,              W_HOCl        ) &\n    !$OMP PRIVATE( W_HBr,        W_HOBr,             W_HNO3        ) &\n    !$OMP PRIVATE( HCl_BOX_G,    HCl_BOX_L,          HOCl_BOX_G    ) &\n    !$OMP PRIVATE( HOCl_BOX_L,   H2SO4_BOX_G,        HBr_BOX_G     ) &\n    !$OMP PRIVATE( HBr_BOX_L,    HOBr_BOX_G,         HOBr_BOX_L    ) &\n    !$OMP PRIVATE( H2SO4_BOX_L,  KHET_COMMON,        KHET_SPECIFIC ) &\n    !$OMP PRIVATE( VOL_TOT,      BOX_LAT                           ) &\n    !$OMP SCHEDULE( DYNAMIC, 1                                     )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       !--------------------------------------------------------------------\n       ! Initialize met-field-related quantities\n       !--------------------------------------------------------------------\n\n       ! Now do IS_POLAR check for every grid box separately\n       ! and using mid-point instead of edges. This is to be\n       ! applicable to cube-sphere systems (ckeller, 1/16/15).\n       BOX_LAT  = State_Grid%YMid(I,J)\n       IS_POLAR = ( (BOX_LAT <= PSC_MINLAT) .OR. &\n                    (BOX_LAT >= PSC_MAXLAT)     )\n\n       ! Get local conditions\n       ! Now using dry air partial pressure (ewl, 3/2/15)\n       PCENTER    = State_Met%PMID_DRY(I,J,L)\n       PCENTER_PA = PCENTER*1.e+2_fp\n       TCENTER    = State_Met%T(I,J,L)\n       TINV       = 1.e+0_fp/TCENTER\n\n       ! Apply other limits from Kirner et al.\n       IS_STRAT =  State_Met%InStratMeso(I,J,L)\n       IS_VALID = (IS_POLAR).and.(IS_STRAT).and. &\n                  (.not.((PCENTER_PA.lt.PSC_PMIN).or. &\n                         (PCENTER_PA.gt.PSC_PMAX)))\n       IS_VALID = (IS_VALID.or.PSC_FULL)\n\n       ! Polar strat clouds in grid box\n       STATE_LOCAL  = NINT(STATE_PSC(I,J,L))\n\n       ! Calculate local air density\n       DENAIR = AVO * PCENTER_PA / (TCENTER*RSTARG)\n       INVAIR = AIRMW / State_Met%AD(I,J,L)\n\n       ! Get available NO3 mass\n       KG_NO3 = ( Spc(id_HNO3)%Conc(I,J,L) * NIT_MW_G / HNO3_MW_g ) + &\n                  Spc(id_NIT)%Conc(I,J,L)\n\n       ! Calculate HNO3 mixing ratio\n       HNO3SUM = Spc(id_HNO3)%Conc(I,J,L) * INVAIR / HNO3_MW_G\n       HNO3SUM = HNO3SUM + Spc(id_NIT)%Conc(I,J,L) * INVAIR / NIT_MW_G\n\n       ! Calculate H2O mixing ratio\n       H2OSUM = Spc(id_H2O)%Conc(I,J,L) * INVAIR / H2O_MW_G\n\n       ! Calculate partial pressures (Pa)\n       HNO3PP = PCENTER_PA * HNO3SUM\n       H2OPP  = PCENTER_PA * H2OSUM\n\n       !--------------------------------------------------------------------\n       ! Zero non-initialized PRIVATE variables for safety's sake\n       !--------------------------------------------------------------------\n       BrNO3SUM           = 0.0_fp\n       ClNO3SUM           = 0.0_fp\n       GAMMA_BOX          = 0.0_fp\n       H2O_BOX_G          = 0.0_fp\n       H2O_BOX_L          = 0.0_fp\n       H2O_BOX_S          = 0.0_fp\n       H2SO4_BOX_G        = 0.0_fp\n       H2SO4_BOX_L        = 0.0_fp\n       H2SO4SUM           = 0.0_fp\n       HBr_BOX_G          = 0.0_fp\n       HBr_BOX_L          = 0.0_fp\n       HBrGASFRAC         = 0.0_fp\n       HBrSUM             = 0.0_fp\n       HCl_BOX_G          = 0.0_fp\n       HCl_BOX_L          = 0.0_fp\n       HClGASFRAC         = 0.0_fp\n       HClSUM             = 0.0_fp\n       HOBr_BOX_G         = 0.0_fp\n       HOBr_BOX_L         = 0.0_fp\n       HOBrGASFRAC        = 0.0_fp\n       HOBrSUM            = 0.0_fp\n       HOCl_BOX_G         = 0.0_fp\n       HOCl_BOX_L         = 0.0_fp\n       HOClGASFRAC        = 0.0_fp\n       HOClSUM            = 0.0_fp\n       HNO3_BOX_G         = 0.0_fp\n       HNO3_BOX_S         = 0.0_fp\n       HNO3_BOX_L         = 0.0_fp\n       HNO3GASFRAC        = 0.0_fp\n       KG_AER_BOX         = 0.0_fp\n       KG_NAT             = 0.0_fp\n       KG_ICE             = 0.0_fp\n       KHET_COMMON        = 0.0_fp\n       KHET_SPECIFIC      = 0.0_fp\n       NDENS_AER_BOX      = 0.0_fp\n       PSATHNO3           = 0.0_fp\n       PSATH2O            = 0.0_fp\n       PSATHNO3_SUPERCOOL = 0.0_fp\n       RAD_AER_BOX        = 0.0_fp\n       RHO_AER_BOX        = 0.0_fp\n       SAD_AER_BOX        = 0.0_fp\n       TOFFSET            = 0.0_fp\n       VOL_ICE            = 0.0_fp\n       VOL_NAT            = 0.0_fp\n       VOL_SLA            = 0.0_fp\n       VOL_TOT            = 0.0_fp\n       W_HBr              = 0.0_fp\n       W_HCl              = 0.0_fp\n       W_HOBr             = 0.0_fp\n       W_HOCl             = 0.0_fp\n       W_H2O              = 0.0_fp\n       W_H2SO4            = 0.0_fp\n       W_HNO3             = 0.0_fp\n\n       !--------------------------------------------------------------------\n       ! Continue computations ...\n       !--------------------------------------------------------------------\n\n       IF (.not.IS_VALID) THEN\n          ! No PSCs (SSA only)\n          STATE_LOCAL = 0\n       ELSEIF (TCENTER.gt.T_MAX) THEN\n          ! STS/SSA only\n          STATE_LOCAL = 1\n       ELSE\n          ! Calculate saturation pressures\n          PSATHNO3 = (10.e+0_fp**(((TSATHNO3_A+(TCENTER* &\n                     TSATHNO3_B))*LOG10(H2OPP*760.0e+0_fp/ATM))+ &\n                     (TSATHNO3_C+(TSATHNO3_D*TINV)+(TSATHNO3_E* &\n                     TCENTER))))*ATM/760.0e+0_fp\n\n          PSATH2O = 10.0e+0_fp**((TSATH2O_A*TINV)+TSATH2O_B)\n\n          ! Supersaturation requirement for ice\n          PSATH2O_SUPERSAT = PSATH2O * Input_Opt%P_ICE_SUPERSAT\n\n          ! If homogeneous NAT nucleation allowed, calculate\n          ! threshold saturation pressure\n          IF (LHOMNUCNAT) THEN\n             ! Calculate as if temperature is (T+T_NAT_SUPERCOOL)\n             TOFFSET = TCENTER + Input_Opt%T_NAT_SUPERCOOL\n             PSATHNO3_SUPERCOOL = 10.e+0_fp**(((TSATHNO3_A+ &\n                     (TOFFSET*TSATHNO3_B))*LOG10(H2OPP*760.0e+0_fp/ATM))+ &\n                     (TSATHNO3_C+(TSATHNO3_D/TOFFSET)+(TSATHNO3_E* &\n                     TOFFSET)))*ATM/760.0e+0_fp\n          ELSE\n             ! Make homogeneous nucleation impossible\n             TOFFSET = 280.0e+0_fp\n             PSATHNO3_SUPERCOOL = HNO3PP + 1e+0_fp\n          ENDIF\n\n          IF (LACTIVEH2O) THEN\n             ! Only interested in sign\n             IF (STATE_LOCAL .gt. 1) THEN\n                H2O_BOX_S = H2OPP-PSATH2O\n             ELSE\n                H2O_BOX_S = H2OPP-PSATH2O_SUPERSAT\n             ENDIF\n          ELSE\n             ! Use local ice mass ratio from GEOS-5 data\n             ! Note that we are using this only for its sign!\n             H2O_BOX_S = State_Met%QI(I,J,L)\n          ENDIF\n\n          ! Ice exists/possible?\n          IF (H2O_BOX_S.gt.TINY(0e+0_fp)) THEN\n             STATE_LOCAL = 3\n             HNO3_BOX_S = HNO3PP-PSATHNO3\n          ELSE\n             ! If ice not possible could still have NAT\n             H2O_BOX_S = 0e+0_fp\n             ! 1. Homogeneous nucleation\n             IF ((LHOMNUCNAT).and.(STATE_LOCAL.eq.1)) THEN\n                HNO3_BOX_S = HNO3PP-PSATHNO3_SUPERCOOL\n             ENDIF\n             ! 2. Box formerly contained ice or NAT\n             IF (STATE_LOCAL.eq.2) THEN\n                HNO3_BOX_S = HNO3PP-PSATHNO3\n             ENDIF\n             IF (HNO3_BOX_S.gt.TINY(1e+0_fp)) THEN\n                STATE_LOCAL = 2\n             ELSE\n                STATE_LOCAL = 1\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! Store state\n       STATE_PSC(I,J,L) = REAL(STATE_LOCAL,f4)\n\n       ! Only continue if we want online solid PSCs\n       IF (LSOLIDPSC) THEN\n\n          IF (STATE_LOCAL.eq.3) THEN\n             ! Form ice PSCs\n             IF (LACTIVEH2O) THEN\n                H2O_BOX_S = (H2OPP-PSATH2O)/PCENTER_PA\n                H2O_BOX_S = MAX(0e+0_fp,H2O_BOX_S)\n                KG_ICE    = H2O_BOX_S*ICEMW*State_Met%AD(I,J,L)/AIRMW\n             ELSE\n                H2O_BOX_S = State_Met%QI(I,J,L)   * &\n                            State_Met%CLDF(I,J,L) * AIRMW / ICEMW\n                KG_ICE    = State_Met%QI(I,J,L)   * &\n                            State_Met%CLDF(I,J,L) * State_Met%AD(I,J,L)\n             ENDIF\n             VOL_ICE = H2O_BOX_S * DENAIR * (1.e-3_fp) * ICEMW / &\n                       (DENSICE*AVO) ! m3 ice/m3 air\n          ELSE\n             VOL_ICE = 0e+0_fp\n             H2O_BOX_S = 0e+0_fp\n             KG_ICE = 0e+0_fp\n          ENDIF\n\n          ! Calculate NAT if relevant\n          IF ((HNO3_BOX_S.gt.TINY(1e+0_fp)).and.(STATE_LOCAL.ge.2)) THEN\n             HNO3_BOX_S = (HNO3PP-PSATHNO3)/PCENTER_PA\n             HNO3_BOX_S = MAX(0e+0_fp,HNO3_BOX_S)\n\n             ! Calculate m3 NAT/m3 air\n             ! HNO3_BOX_S is the number of moles of HNO3\n             ! which will be frozen into HNO3.3H2O (NAT)\n             ! Therefore volume calculation must be done\n             ! with care!\n             VOL_NAT = HNO3_BOX_S * DENAIR * (1.e-3_fp) * NATMW / (DENSNAT*AVO)\n             KG_NAT  = HNO3_BOX_S * NATMW * State_Met%AD(I,J,L) / AIRMW\n\n          ELSE\n             HNO3_BOX_S = 0e+0_fp\n             VOL_NAT = 0e+0_fp\n             KG_NAT = 0e+0_fp\n          ENDIF\n\n          ! Calculate particle properties\n          IF (STATE_LOCAL.lt.2) THEN\n             ! Zero all!\n             KG_AER_BOX   = 0e+0_fp\n             RAD_AER_BOX  = 0e+0_fp\n             RHO_AER_BOX  = DENSICE\n             NDENS_AER_BOX= 0e+0_fp\n          ELSE\n             VOL_TOT = VOL_NAT + VOL_ICE\n             KG_AER_BOX = KG_NAT + KG_ICE\n             RAD_AER_BOX = MIN_RAD\n             NDENS_AER_BOX = (3.0e+0_fp*(VOL_TOT)/ &\n                             (4.0e+0_fp*PI*(RAD_AER_BOX**3.0e+0_fp)))\n             IF (NDENS_AER_BOX.gt.MAX_NDENS) THEN\n                NDENS_AER_BOX = MAX_NDENS\n                RAD_AER_BOX = (3.0e+0_fp*(VOL_TOT)/ &\n                              (4.0e+0_fp*PI*MAX_NDENS))**(1.e+0_fp/3.e+0_fp)\n             ENDIF\n\n             ! Prevent div-zero (ckeller, 1/16/15)\n             IF ( VOL_TOT > 0.0_fp ) THEN\n                RHO_AER_BOX = ((VOL_ICE*DENSICE)+(VOL_NAT*DENSNAT))/VOL_TOT\n             ELSE\n                RHO_AER_BOX = DENSICE ! Is that correct?\n             ENDIF\n          ENDIF\n\n          ! Calculate SAD (cm2/cm3)\n          SAD_AER_BOX = 4.0e-2_fp * RAD_AER_BOX * &\n                        RAD_AER_BOX * NDENS_AER_BOX * PI\n       ELSE\n          ! Solid PSCs not active\n          RAD_AER_BOX = 0e+0_fp\n          RHO_AER_BOX = 1000e+0_fp\n          KG_AER_BOX = 0e+0_fp\n          NDENS_AER_BOX = 0e+0_fp\n          SAD_AER_BOX = 0e+0_fp\n          HNO3_BOX_S = 0e+0_fp\n          H2O_BOX_S = 0e+0_fp\n       ENDIF\n\n       ! Store in outer arrays\n       State_Chm%RAD_AER(I,J,L,I_SPA)   = RAD_AER_BOX*1.e+2_fp ! cm\n       State_Chm%RHO_AER(I,J,L,I_SPA)   = RHO_AER_BOX          ! kg/m3\n       State_Chm%KG_AER(I,J,L,I_SPA)    = KG_AER_BOX           ! kg\n       State_Chm%NDENS_AER(I,J,L,I_SPA) = NDENS_AER_BOX        !#/m3\n       State_Chm%SAD_AER(I,J,L,I_SPA)   = SAD_AER_BOX          ! cm2/cm3\n\n       ! Repartition NIT and HNO3 in strat/meso\n       IF (LSOLIDPSC.and.IS_STRAT) THEN\n\n          ! Convert NAT from kg NAT to kg NO3\n          Spc(id_NIT)%Conc(I,J,L) = KG_NAT * NIT_MW_G / NATMW\n\n          ! Remove (kg NO3 as NAT) from total kg NO3\n          ! then convert to kg HNO3\n          Spc(id_HNO3)%Conc(I,J,L) = (KG_NO3-Spc(id_NIT)%Conc(I,J,L)) &\n                               * HNO3_MW_G / NIT_MW_G\n       ENDIF\n\n       ! Now start liquid aerosol consideration\n       ! Start by assuming all non-solid H2O/HNO3 is gaseous\n       HNO3_BOX_G = HNO3SUM - HNO3_BOX_S\n       HNO3_BOX_L = 0e+0_fp\n       H2O_BOX_G  = H2OSUM - H2O_BOX_S\n       H2O_BOX_L  = 0e+0_fp\n\n       ! Calculate mixing ratios of other relevant species\n       H2SO4SUM = Spc(id_SO4)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_SO4)%Info%MW_g\n       BrNO3SUM = Spc(id_BrNO3)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_BrNO3)%Info%MW_g\n       ClNO3SUM = Spc(id_ClNO3)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_ClNO3)%Info%MW_g\n       HOClSUM  = Spc(id_HOCl)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_HOCl)%Info%MW_g\n       HClSUM   = Spc(id_HCl)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_HCl)%Info%MW_g\n       HOBrSUM  = Spc(id_HOBr)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_HOBr)%Info%MW_g\n       HBrSUM   = Spc(id_HBr)%Conc(I,J,L) * INVAIR / &\n                  State_Chm%SpcData(id_HBr)%Info%MW_g\n\n       ! H2SO4 gas fraction calculated earlier throughout grid\n       ! Consider gaseoues H2SO4 to be unavailable for SLA\n       H2SO4_BOX_L = H2SO4SUM * State_Chm%AERFRAC(I,J,L,1)\n       H2SO4_BOX_G = H2SO4SUM - H2SO4_BOX_L\n\n       ! Zero local properties\n       RHO_AER_BOX   = 1000e+0_fp\n       RAD_AER_BOX   = 0e+0_fp\n       KG_AER_BOX    = 0e+0_fp\n       NDENS_AER_BOX = 0e+0_fp\n       SAD_AER_BOX   = 0e+0_fp\n       VOL_SLA       = 0e+0_fp\n       W_H2O         = 0e+0_fp\n       W_H2SO4       = 1e+0_fp\n\n       IF (.not.IS_STRAT) THEN\n          ! Use JPL 10-06/Oslo CTM data, where available,\n          ! for conventional sulfates/H2SO4\n          GAMMA_BOX(1)  = 0.1e+0_fp\n          GAMMA_BOX(2)  = 0.0e+0_fp\n          GAMMA_BOX(3)  = 0.0e+0_fp\n          GAMMA_BOX(4)  = 0.0e+0_fp\n          GAMMA_BOX(5)  = 0.3e+0_fp\n          GAMMA_BOX(6)  = 0.4e+0_fp\n          GAMMA_BOX(7)  = 0.9e+0_fp\n          GAMMA_BOX(8)  = 0.0e+0_fp\n          GAMMA_BOX(9)  = 0.0e+0_fp\n          GAMMA_BOX(10) = 0.2e+0_fp\n          GAMMA_BOX(11) = 0.0e+0_fp\n       ELSEIF (H2SO4_BOX_L.lt.1e-15_fp) THEN\n          ! No aerosol to speak of\n          DO K=1,11\n             GAMMA_BOX(K) = 0.0e+0_fp\n          ENDDO\n       ELSE\n          IF (STATE_LOCAL.eq.0) THEN\n             ! Allow binary H2SO4.nH2O only\n             CALL TERNARY( PCENTER,TCENTER,H2OSUM,H2SO4_BOX_L, &\n                           0.e+0_fp   ,HClSUM,HOClSUM,HBrSUM,HOBrSUM, &\n                           W_H2SO4,W_H2O,W_HNO3,W_HCl,W_HOCl,W_HBr,W_HOBr, &\n                           HNO3GASFRAC,HClGASFRAC,HOClGASFRAC, &\n                           HBrGASFRAC,HOBrGASFRAC,VOL_SLA,RHO_AER_BOX)\n\n             ! For safety's sake, zero out HNO3 uptake\n             HNO3GASFRAC = 1.e+0_fp\n             W_H2O = W_H2O + W_HNO3\n             W_HNO3 = 0.e+0_fp\n             HNO3_BOX_G = HNO3SUM - HNO3_BOX_S\n             HNO3_BOX_L = 0.e+0_fp\n          ELSE\n             ! As per Buchholz, use only non-NAT HNO3 for STS\n             HNO3_BOX_G = HNO3SUM - HNO3_BOX_S\n             CALL TERNARY( PCENTER,TCENTER,H2OSUM,H2SO4_BOX_L, &\n                           HNO3_BOX_G,HClSUM,HOClSUM,HBrSUM,HOBrSUM, &\n                           W_H2SO4,W_H2O,W_HNO3,W_HCl,W_HOCl,W_HBr,W_HOBr, &\n                           HNO3GASFRAC,HClGASFRAC,HOClGASFRAC, &\n                           HBrGASFRAC,HOBrGASFRAC,VOL_SLA,RHO_AER_BOX)\n\n             ! Partition HNO3 here for safety\n             HNO3_BOX_G = HNO3_BOX_G*HNO3GASFRAC\n             HNO3_BOX_L = HNO3SUM - (HNO3_BOX_G+HNO3_BOX_S)\n          ENDIF\n\n          ! Partition minor species\n          HCl_BOX_G  = HClSUM *HClGASFRAC\n          HCl_BOX_L  = HClSUM -HCl_BOX_G\n          HOCl_BOX_G = HOClSUM*HOClGASFRAC\n          HOCl_BOX_L = HOClSUM-HOCl_BOX_G\n          HBr_BOX_G  = HBrSUM *HBrGASFRAC\n          HBr_BOX_L  = HBrSUM -HBr_BOX_G\n          HOBr_BOX_G = HOBrSUM*HOBrGASFRAC\n          HOBr_BOX_L = HOBrSUM-HOBr_BOX_G\n\n          ! Calculate SLA parameters (Grainger 1995)\n          SAD_AER_BOX = SLA_VA*(VOL_SLA**0.751e+0_fp)        ! cm2/cm3\n          RAD_AER_BOX = SLA_VR*SLA_RR*(VOL_SLA**0.249e+0_fp) ! m\n          KG_AER_BOX  = RHO_AER_BOX*VOL_SLA*State_Met%AIRVOL(I,J,L) ! kg\n\n          IF (VOL_SLA.gt.1.e-30_fp) THEN\n             ! Approximate particles as spherical for calculation\n             ! of aerosol number density\n             NDENS_AER_BOX = VOL_SLA*3.e+0_fp/  &\n                             (4.e+0_fp*PI*(RAD_AER_BOX**3.e+0_fp))\n\n             ! DENAIR in #/m3 - convert to #/cm3\n             ! RHO_AER_BOX in kg/m3 - convert to g/cm3\n             ! RAD_AER_BOX in m - convert to cm\n             CALL CALC_SLA_GAMMA(DENAIR*1.e-6_fp,TCENTER,PCENTER, &\n                                 W_H2SO4,H2OSUM,HClSUM,HBrSUM,HOBrSUM, &\n                                 ClNO3SUM,BrNO3SUM,RHO_AER_BOX*1.e-3_fp, &\n                                 RAD_AER_BOX*1.e+2_fp,GAMMA_BOX)\n          ELSE\n             ! Ignore SLA\n             DO K=1,11\n                GAMMA_BOX(K) = 0.0e+0_fp\n             ENDDO\n          ENDIF\n       ENDIF\n\n       ! Store liquid fractions\n       ! Liquid H2O is removed from the sum, then it is assumed\n       ! that the pre-calculated solid H2O is taken out of this\n       ! liquid total\n       H2O_BOX_L = (98.09e+0_fp/18.02e+0_fp)*H2SO4_BOX_L * (W_H2O/W_H2SO4)\n       H2O_BOX_L = MAX(0e+0_fp,MIN(H2O_BOX_L-H2O_BOX_S,H2OSUM))\n       H2O_BOX_G = MAX(0e+0_fp,H2O_BOX_G-(H2O_BOX_L+H2O_BOX_S))\n\n       ! If very low number density, ignore settling\n       State_Chm%AERFRAC(I,J,L,2) = 0e+0_fp\n       State_Chm%AERFRAC(I,J,L,3) = 0e+0_fp\n       State_Chm%AERFRAC(I,J,L,4) = 0e+0_fp\n       State_Chm%AERFRAC(I,J,L,5) = 0e+0_fp\n       State_Chm%AERFRAC(I,J,L,6) = 0e+0_fp\n       State_Chm%AERFRAC(I,J,L,7) = 0e+0_fp\n\n       IF ((HNO3SUM.gt.1e+0_fp).and.(IS_SAFE_DIV(HNO3_BOX_L,HNO3SUM))) THEN\n          State_Chm%AERFRAC(I,J,L,2) = HNO3_BOX_L/HNO3SUM\n       ENDIF\n\n       IF ((HClSUM.gt.1e+0_fp).and.(IS_SAFE_DIV(HCl_BOX_L,HClSUM))) THEN\n          State_Chm%AERFRAC(I,J,L,3) = HCl_BOX_L/HClSUM\n       ENDIF\n\n       IF ((HOClSUM.gt.1e+0_fp).and. (IS_SAFE_DIV(HOCl_BOX_L,HOClSUM))) THEN\n          State_Chm%AERFRAC(I,J,L,4) = HOCl_BOX_L/HOClSUM\n       ENDIF\n\n       IF ((HBrSUM.gt.1e+0_fp).and.(IS_SAFE_DIV(HBr_BOX_L,HBrSUM))) THEN\n          State_Chm%AERFRAC(I,J,L,5) = HBr_BOX_L/HBrSUM\n       ENDIF\n\n       IF ((HOBrSUM.gt.1e+0_fp).and.(IS_SAFE_DIV(HOBr_BOX_L,HOBrSUM))) THEN\n          State_Chm%AERFRAC(I,J,L,6) = HOBr_BOX_L/HOBrSUM\n       ENDIF\n\n       IF ((H2OSUM.gt.1e+0_fp).and.(IS_SAFE_DIV(H2O_BOX_L,H2OSUM))) THEN\n          State_Chm%AERFRAC(I,J,L,7) = H2O_BOX_L/H2OSUM\n       ENDIF\n\n       ! Send properties to larger array\n       ! Convert sticking coefficients into\n       ! premultiplying factors ((Kirner)\n       KHET_COMMON = 0.25e+0_fp*MOLEC_SPEED(TCENTER,1e+0_fp)\n\n       ! N2O5 + H2O/HCl\n       KHET_SPECIFIC= KHET_COMMON*ISR_N2O5\n       KHETI_SLA(I,J,L,1)  = GAMMA_BOX(1 )*KHET_SPECIFIC\n       KHETI_SLA(I,J,L,2)  = GAMMA_BOX(2 )*KHET_SPECIFIC\n\n       ! ClNO3 + H2O/HCl/HBr\n       KHET_SPECIFIC= KHET_COMMON*ISR_ClNO3\n       KHETI_SLA(I,J,L,3)  = GAMMA_BOX(3 )*KHET_SPECIFIC\n       KHETI_SLA(I,J,L,4)  = GAMMA_BOX(4 )*KHET_SPECIFIC\n       KHETI_SLA(I,J,L,5)  = GAMMA_BOX(5 )*KHET_SPECIFIC\n\n       ! BrNO3 + H2O/HCl\n       KHET_SPECIFIC= KHET_COMMON*ISR_BrNO3\n       KHETI_SLA(I,J,L,6)  = GAMMA_BOX(6 )*KHET_SPECIFIC\n       KHETI_SLA(I,J,L,7)  = GAMMA_BOX(7 )*KHET_SPECIFIC\n\n       ! HOCl + HCl/HBr\n       KHET_SPECIFIC= KHET_COMMON*ISR_HOCl\n       KHETI_SLA(I,J,L,8)  = GAMMA_BOX(8 )*KHET_SPECIFIC\n       KHETI_SLA(I,J,L,9)  = GAMMA_BOX(9 )*KHET_SPECIFIC\n\n       ! HOBr + HBr/HCl\n       KHET_SPECIFIC= KHET_COMMON*ISR_HOBr\n       KHETI_SLA(I,J,L,10) = GAMMA_BOX(10)*KHET_SPECIFIC\n       KHETI_SLA(I,J,L,11) = GAMMA_BOX(11)*KHET_SPECIFIC\n\n       State_Chm%RAD_AER(I,J,L,I_SLA)  = RAD_AER_BOX*1.e+2_fp ! cm\n       State_Chm%RHO_AER(I,J,L,I_SLA)  = RHO_AER_BOX          ! kg/m3\n       State_Chm%KG_AER(I,J,L,I_SLA)   = KG_AER_BOX           ! kg\n       State_Chm%NDENS_AER(I,J,L,I_SLA)= NDENS_AER_BOX        ! #/m3\n       State_Chm%SAD_AER(I,J,L,I_SLA)  = SAD_AER_BOX          ! cm2/cm3\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointers\n    NULLIFY( Spc, STATE_PSC, KHETI_SLA )\n\n  END SUBROUTINE CALC_STRAT_AER\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_strat_opt\n!\n! !DESCRIPTION: Subroutine GET\\_STRAT\\_OPT returns local optical properties\n!  for a given stratospheric aerosol. The routine is essentially just an\n!  interface to allow external routines to \"see\" the arrays. However, local\n!  aerosol radius is adjusted from liquid to effective radius for aerosol\n!  optical depth calculations with liquid aerosols.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_STRAT_OPT (State_Chm,I,J,L,IAER,RAER,REFF,SAD,XSA)\n!\n! !USES:\n!\n    USE State_Chm_Mod,      ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    INTEGER,  INTENT(IN)  :: I, J, L    ! Grid indices\n    INTEGER,  INTENT(IN)  :: IAER       ! Aerosol index\n                                        ! 1 = Liquid aerosols\n                                        ! 2 = Solid PSC\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) :: REFF       ! Effective radius (cm)\n    REAL(fp), INTENT(OUT) :: RAER       ! Physical radius (cm)\n    REAL(fp), INTENT(OUT) :: SAD        ! Surface area density (cm2/cm3)\n    REAL(fp), INTENT(OUT) :: XSA        ! X-S area density (m2/m3)\n!\n! !REMARKS:\n!  Seb Eastham writes: \"I would edit GET_STRAT_OPT so that, when SAD is less\n!  than some small value (say 1 nm2/cm3,  which is a vanishingly small surface\n!  area), it returns SADSTRAT=XSASTRAT=0.d0 and RAER=REFF=0.1d0 for safety's\n!  sake. I think that will prevent code blow-up later on.\"\n!\n! !REVISION HISTORY:\n!  17 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! GET_STRAT_OPT begins here!\n    !=================================================================\n\n    ! Surface area density [cm2/cm3]\n    SAD  = State_Chm%SAD_AER(I,J,L,IAER)\n\n    ! Add error check: threshold is 1e-14 cm2/cm3 (bmy, 4/7/15)\n    IF ( SAD < 1e-14_fp ) THEN\n\n       !--------------------------------------------------------------\n       ! FOR SAFETY'S SAKE: Set outputs to \"safe\" values and\n       ! exit if very small SAD is encountered. (bmy, 4/7/15)\n       !--------------------------------------------------------------\n       SAD  = 0.0e+0_fp\n       XSA  = 0.0e+0_fp\n       RAER = 0.1e+0_fp\n       REFF = 0.1e+0_fp\n\n    ELSE\n\n       !--------------------------------------------------------------\n       ! Otherwise, compute RAER, REFF, XSA normally\n       !--------------------------------------------------------------\n\n       ! For SLA, convert liquid radius to effective optical radius\n       RAER = State_Chm%RAD_AER(I,J,L,IAER)\n       IF (IAER.eq.I_SLA) THEN\n          REFF = RAER/SLA_RR\n       ELSE\n          REFF = RAER\n       ENDIF\n\n       ! Standard log-normal distribution approach\n       ! Probably OK for PSCs too? Note cm2/cm3 to m2/m3 = x100\n       XSA = 0.25e+2_fp*SAD\n\n    ENDIF\n\n  END SUBROUTINE GET_STRAT_OPT\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ternary\n!\n! !DESCRIPTION: Subroutine TERNARY calculates the composition of SSA/STS\n!  aerosols using a paramaterization from Carslaw et al. \"A Thermodynamic\n!  Model of the System HCl-HNO3-H2SO4-H2O, Including Solubilities of HBr,\n!  from <200 to 328 K\". The bulk of this code was taken directly from the\n!  Global Modeling Initiative implementation by David Considine.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TERNARY( PCENTER_IN,TCENTER_IN,H2OSUM_IN,H2SO4SUM,       &\n                      HNO3SUM,HClSUM,HOClSUM,HBRSum,HOBrSUM,          &\n                      W_H2SO4,W_H2O,W_HNO3,W_HCl,W_HOCl,W_HBr,W_HOBr, &\n                      HNO3GASFRAC,HClGASFRAC,HOClGASFRAC,             &\n                      HBrGASFRAC,HOBrGASFRAC,SLA_VOL,SLA_RHO)\n!\n! !USES:\n!\n    ! Temporary - for debug\n    USE ERROR_MOD,     ONLY : IT_IS_NAN,ERROR_STOP     ! Test for NaN\n    USE ERROR_MOD,     ONLY : SAFE_EXP,SAFE_DIV, DEBUG_MSG\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: PCENTER_IN   ! Pressure (hPa)\n    REAL(fp), INTENT(IN)  :: TCENTER_IN   ! Temperature (K)\n    REAL(fp), INTENT(IN)  :: H2OSUM_IN    ! Total H2O mixing ratio\n    REAL(fp), INTENT(IN)  :: H2SO4SUM     ! Liquid H2SO4 mixing ratio\n    REAL(fp), INTENT(IN)  :: HNO3SUM      ! Total HNO3 mixing ratio\n    REAL(fp), INTENT(IN)  :: HClSUM       ! Total HCl mixing ratio\n    REAL(fp), INTENT(IN)  :: HOClSUM      ! Total HOCl mixing ratio\n    REAL(fp), INTENT(IN)  :: HBrSUM       ! Total HBr mixing ratio\n    REAL(fp), INTENT(IN)  :: HOBrSUM      ! Total HOBr mixing ratio\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) :: W_H2SO4      ! kg H2SO4/kg SLA\n    REAL(fp), INTENT(OUT) :: W_H2O        ! kg H2O  /kg SLA\n    REAL(fp), INTENT(OUT) :: W_HNO3       ! kg HNO3 /kg SLA\n    REAL(fp), INTENT(OUT) :: W_HCl        ! kg HCl  /kg SLA\n    REAL(fp), INTENT(OUT) :: W_HOCl       ! kg HOCl /kg SLA\n    REAL(fp), INTENT(OUT) :: W_HBr        ! kg HBr  /kg SLA\n    REAL(fp), INTENT(OUT) :: W_HOBr       ! kg HOBr /kg SLA\n    REAL(fp), INTENT(OUT) :: HNO3GASFRAC  ! Gas fraction HNO3\n    REAL(fp), INTENT(OUT) :: HClGASFRAC   ! Gas fraction HCl\n    REAL(fp), INTENT(OUT) :: HOClGASFRAC  ! Gas fraction HOCl\n    REAL(fp), INTENT(OUT) :: HBrGASFRAC   ! Gas fraction HBr\n    REAL(fp), INTENT(OUT) :: HOBrGASFRAC  ! Gas fraction HOBr\n    REAL(fp), INTENT(OUT) :: SLA_VOL      ! Aerosol volume (m3/m3)\n    REAL(fp), INTENT(OUT) :: SLA_RHO      ! Aer. mass density (kg/m3)\n!\n! !REVISION HISTORY:\n!  19 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Derived inputs\n    REAL(fp) :: H2OSUM\n    REAL(fp) :: TCENTER\n    REAL(fp) :: PCENTER\n\n    ! Partial pressures\n    REAL(fp) :: PATMH2O\n    REAL(fp) :: PATMHNO3\n    REAL(fp) :: PATMHCl\n    REAL(fp) :: PATMHOCl\n    REAL(fp) :: PATMHBr\n    REAL(fp) :: PATMHOBr\n\n    ! Molar densities (mol/m3)\n    REAL(fp) :: MOLDENS_H2SO4\n\n    ! Mass totals\n    REAL(fp) :: M_H2SO4,M_HNO3\n    REAL(fp) :: M_HCl,M_HOCl\n    REAL(fp) :: M_HBr,M_HOBr\n\n    ! Binary solutions denoted with BIN\n    ! Mole fractions\n    REAL(fp) :: X_H2SO4_BIN\n    REAL(fp) :: X_HNO3_BIN\n\n    ! Mass fractions\n    REAL(fp) :: M_H2SO4_BIN\n    REAL(fp) :: M_HNO3_BIN\n\n    ! Effective Henry's Law coefficients\n    REAL(fp) :: H_H2SO4_BIN\n    REAL(fp) :: H_HNO3_BIN\n    REAL(fp) :: H_HCL, H_HOCL\n    REAL(fp) :: H_HBr, H_HOBr\n\n    ! Frost point\n    REAL(fp) :: T_ICE\n\n    ! Equilibrium vapor pressure\n    REAL(fp) :: PVAP_HNO3\n    REAL(fp) :: PVAP_HCl\n    REAL(fp) :: PVAP_HBr\n    REAL(fp) :: PVAP_HOBr\n\n    ! R in m3.atm/(mol K)\n    REAL(fp), PARAMETER :: R_ATM = Rd * AIRMW * 1e-3_fp / ATM\n\n    ! Transitional variables\n    REAL(fp) :: DENSITY\n    REAL(fp) :: TEMPERATURE\n    REAL(fp) :: PR\n    REAL(fp) :: TR\n    REAL(fp) :: TT\n\n    ! Coefficients (q, k) for calculation of H* for H2SO4 and HNO3\n    REAL(fp),DIMENSION(10) :: QN,QS\n    REAL(fp),DIMENSION(7)  :: KN,KS\n\n    ! Derived parameters\n    REAL(fp) :: A,B,C,PHI\n\n    ! Error trapping\n    REAL(fp) :: TMP1,TMP2,TMP3,TMP4,TMP5,TMP6\n\n    REAL(fp), PARAMETER :: TNY = 1.0e-28_fp\n\n    ! Debug message\n    CHARACTER(LEN=255)   :: DBGMSG\n\n    ! ======================================================================\n    DATA QN/14.5734e+0_fp,0.0615994e+0_fp,-1.14895e+0_fp, &\n            0.691693e+0_fp,-0.098863e+0_fp, &\n            0.0051579e+0_fp,0.123472e+0_fp,-0.115574e+0_fp, &\n            0.0110113e+0_fp,0.0097914e+0_fp/\n    DATA QS/14.4700e+0_fp,0.0638795e+0_fp,-3.29597e+0_fp, &\n            1.778224e+0_fp,-0.223244e+0_fp, &\n            0.0086486e+0_fp,0.536695e+0_fp,-0.335164e+0_fp, &\n            0.0265153e+0_fp,0.0157550e+0_fp/\n    DATA KN/-39.136e+0_fp,6358.4e+0_fp,83.29e+0_fp, &\n            -17650.0e+0_fp,198.53e+0_fp, &\n            -11948.e+0_fp,-28.469e+0_fp/\n    DATA KS/-21.661e+0_fp,2724.2e+0_fp,51.81e+0_fp, &\n            -15732.0e+0_fp,47.004e+0_fp, &\n            -6969.0e+0_fp,-4.6183e+0_fp/\n    ! ======================================================================\n\n    SAVE QN, QS, KN, KS\n\n    !=================================================================\n    ! TERNARY begins here!\n    !=================================================================\n\n    ! Routine only valid for certain limits\n    H2OSUM = MAX(H2OSUM_IN,5.0e-7_fp)\n    PCENTER = MAX(PCENTER_IN,5.0e+0_fp)\n    TCENTER = TCENTER_IN\n\n    ! Calculate partial pressure of H2O & HNO3\n    ! PCENTER is in hPa, so need to convert ATM from Pa to hPa\n    PATMH2O  = H2OSUM  * PCENTER / (ATM*1e-2_fp)\n\n    ! Carslaw only valid for 2e-5 < PPH2O < 2e-3 (hPa)\n    PATMH2O = MAX(PATMH2O,1.9738465e-8_fp)\n    PATMH2O = MIN(PATMH2O,1.9738465e-6_fp)\n\n    PATMHNO3 = HNO3SUM * PCENTER / (ATM*1e-2_fp)\n    PATMHCl  = HClSUM  * PCENTER / (ATM*1e-2_fp)\n    PATMHOCl = HOClSUM * PCENTER / (ATM*1e-2_fp)\n    PATMHBr  = HBrSUM  * PCENTER / (ATM*1e-2_fp)\n    PATMHOBr = HOBrSUM * PCENTER / (ATM*1e-2_fp)\n\n    ! Moles of H2SO4 per m3 air\n    MOLDENS_H2SO4 = 100.e+0_fp*PCENTER*H2SO4SUM/(RSTARG*TCENTER)\n\n    ! Nucleation temperature of ice\n    T_ICE = 2668.70e+0_fp/ &\n            (10.4310e+0_fp-(LOG(PATMH2O)+LOG(760.0e+0_fp))/LOG(10.0e+0_fp))\n\n    ! Pressure relation\n    PR = LOG(PATMH2O)+18.4e+0_fp\n\n    ! Therefore if temperature lower, set to T_ICE-3\n    IF (TCENTER .lt. (T_ICE-3.0e+0_fp)) THEN\n       TCENTER = (T_ICE-3.0e+0_fp)\n    ENDIF\n\n    IF (TCENTER .lt. 185.0e+0_fp) THEN\n       TCENTER = 185.0e+0_fp\n    ENDIF\n\n    ! ??\n    TT = TCENTER * R_ATM * MOLDENS_H2SO4\n\n    ! Temperature relation\n    TR = 1.0e+4_fp/TCENTER-43.4782608e+0_fp\n\n    ! Determine H2SO4/H2O pure solution concentration\n    ! Mole fraction of H2SO4 in binary solution\n    TMP1 = (KS(1)+KS(2)/TCENTER)** &\n           2.0e+0_fp-4.0e+0_fp*(KS(3)+KS(4)/TCENTER)*(KS(5)+KS(6)/ &\n           TCENTER+KS(7)*LOG(TCENTER)-LOG(PATMH2O))\n    IF ( TMP1 > 0.0_fp ) THEN\n       X_H2SO4_BIN = 1.0e+0_fp/(2.0e+0_fp*(KS(3)+KS(4)/TCENTER))* &\n           (-KS(1)-KS(2)/TCENTER-(TMP1)**0.5e+0_fp)\n    ELSE\n       !X_H2SO4_BIN = 1.0e+0_fp/(2.0e+0_fp*(KS(3)+KS(4)/TCENTER))* &\n       !   (-KS(1)-KS(2)/TCENTER)\n       X_H2SO4_BIN = 0.0_fp\n    ENDIF\n    !X_H2SO4_BIN = 1.0e+0_fp/(2.0e+0_fp*(KS(3)+KS(4)/TCENTER))* &\n    !   (-KS(1)-KS(2)/TCENTER-((KS(1)+KS(2)/TCENTER)** &\n    !   2.0e+0_fp-4.0e+0_fp*(KS(3)+KS(4)/TCENTER)*(KS(5)+KS(6)/ &\n    !   TCENTER+KS(7)*LOG(TCENTER)-LOG(PATMH2O)))**0.5e+0_fp)\n\n    ! Molality (mol H2SO4/kg H2O) in binary solution\n    M_H2SO4_BIN = 55.51e+0_fp*X_H2SO4_BIN/(1.0e+0_fp-X_H2SO4_BIN)\n\n    IF ((TCENTER.le.215.0e+0_fp).AND.(PATMHNO3.gt.TNY)) THEN\n       ! Determine HNO3/H2SO4/H2O solution composition\n       H_H2SO4_BIN = EXP(QS(1)+QS(2)*TR**2+(QS(3)+QS(4)*TR+ &\n            QS(5)*TR**2+QS(6)*TR**3)*PR+(QS(7)+QS(8)*TR+ &\n            QS(9)*TR**2)*PR**2+QS(10)*TR*PR**3)\n       X_HNO3_BIN=1.0e+0_fp/(2.0e+0_fp*(KN(3)+KN(4)/TCENTER))* &\n            (-KN(1)-KN(2)/TCENTER-((KN(1)+KN(2)/TCENTER)** &\n            2-4.0e+0_fp*(KN(3)+KN(4)/TCENTER)*(KN(5)+ &\n            KN(6)/TCENTER+KN(7)*LOG(TCENTER)-LOG(PATMH2O) &\n            ))**0.5e+0_fp)\n       M_HNO3_BIN=55.51e+0_fp*X_HNO3_BIN/(1.0e+0_fp-X_HNO3_BIN)\n       H_HNO3_BIN=EXP(QN(1)+QN(2)*TR**2+(QN(3)+QN(4)*TR+QN(5)* &\n            TR**2+QN(6)*TR**3)*PR+(QN(7)+QN(8)*TR+QN(9)*TR**2)* &\n            PR**2+QN(10)*TR*PR**3)\n       A=(TT*H_HNO3_BIN*M_HNO3_BIN**2-TT*H_H2SO4_BIN*M_HNO3_BIN* &\n            M_H2SO4_BIN-2.0e+0_fp*M_HNO3_BIN**2*M_H2SO4_BIN+ &\n            M_HNO3_BIN*M_H2SO4_BIN**2+H_HNO3_BIN*M_HNO3_BIN* &\n            M_H2SO4_BIN*PATMHNO3-H_H2SO4_BIN*M_H2SO4_BIN**2* &\n            PATMHNO3)/(M_HNO3_BIN**2-M_HNO3_BIN*M_H2SO4_BIN)\n       B=M_H2SO4_BIN*(-2.0e+0_fp*TT*H_HNO3_BIN*M_HNO3_BIN+TT* &\n            H_H2SO4_BIN*M_H2SO4_BIN+M_HNO3_BIN*M_H2SO4_BIN- &\n            H_HNO3_BIN*M_H2SO4_BIN*PATMHNO3)/(M_HNO3_BIN- &\n            M_H2SO4_BIN)\n       C=(TT*H_HNO3_BIN*M_HNO3_BIN*M_H2SO4_BIN**2)/ &\n            (M_HNO3_BIN-M_H2SO4_BIN)\n       PHI=ATAN(SQRT(4.0e+0_fp*(A**2-3.0e+0_fp*B)**3-(-2.0e+0_fp*A**3+ &\n            9.0e+0_fp*A*B-27.0e+0_fp*C)**2)/(-2.0e+0_fp*A**3+9.0e+0_fp*A &\n            *B-27.0e+0_fp*C))\n       IF (PHI.lt.0.e+0_fp) THEN\n          PHI = PHI + PI\n       ENDIF\n       M_H2SO4=-1.0e+0_fp/3.0e+0_fp*(A+2.0e+0_fp* &\n            SQRT(A**2-3.0e+0_fp*B)* &\n            COS((PI+PHI)/3.0e+0_fp))\n       M_HNO3=M_HNO3_BIN*(1.0e+0_fp-M_H2SO4/M_H2SO4_BIN)\n       W_H2SO4 = M_H2SO4*0.098076e+0_fp/(1.0e+0_fp+M_H2SO4* &\n            0.098076e+0_fp+M_HNO3*0.063012e+0_fp)\n\n       ! Check for low H2SO4\n       IF (M_H2SO4 .lt. TNY) THEN\n          M_H2SO4 = 0.0e+0_fp\n          M_HNO3 = M_HNO3_BIN\n          W_H2SO4 = 0.0e+0_fp\n       ENDIF\n\n       PVAP_HNO3=M_HNO3/(H_HNO3_BIN*M_HNO3/(M_HNO3+ &\n                 M_H2SO4)+H_H2SO4_BIN*M_H2SO4/(M_HNO3+M_H2SO4))\n       W_HNO3 = (M_HNO3*0.063012e+0_fp)/(1.0e+0_fp+M_H2SO4* &\n                 0.098076e+0_fp+M_HNO3*0.063012e+0_fp)\n\n       HNO3GASFRAC=(1.0e+0_fp-(PATMHNO3-PVAP_HNO3)/PATMHNO3)\n\n    ELSE\n       ! Solution is pure H2SO4/H2O\n       M_H2SO4 = M_H2SO4_BIN\n       M_HNO3 = 0.0e+0_fp\n       W_H2SO4 = M_H2SO4_BIN*0.098076e+0_fp/(1.0e+0_fp+M_H2SO4_BIN* &\n                 0.098076e+0_fp)\n       W_HNO3 = 0.0e+0_fp\n       PVAP_HNO3 = 0.0e+0_fp\n       HNO3GASFRAC=1.0e+0_fp\n    ENDIF\n\n    ! ckeller: restrict values to range that prevents float invalids\n    IF ( M_H2SO4 < TNY ) M_H2SO4 = 0.0_fp\n    IF ( M_HNO3  < TNY ) M_HNO3  = 0.0_fp\n    IF ( W_HNO3  < TNY ) W_HNO3  = 0.0_fp\n\n    ! Handle HCl (Luo et al., Vapor pressures of\n    ! H2SO4/HNO3/HCl/HBr/H2O solutions to low stratospheric\n    ! temperatures, 1995)\n#ifdef MODEL_GEOS\n    IF (PATMHCL.gt.0.0e+0_fp) THEN\n       TMP1 = W_HNO3+0.610e+0_fp*W_H2SO4\n       IF ( TMP1 <= 0.0_fp ) THEN\n          TMP2 = 0.0_fp\n       ELSE\n          TMP2 = LOG(TMP1)\n       ENDIF\n       TMP3 = 36.461e+0_fp/(1000.0e+0_fp+98.076e+0_fp* &\n              M_H2SO4+63.012e+0_fp* M_HNO3)\n       IF ( TMP3 <= 0.0_fp ) THEN\n          TMP4 = 0.0_fp\n       ELSE\n          TMP4 = LOG(TMP3)\n       ENDIF\n       H_HCL = EXP(-(21.0e+0_fp+46.610e+0_fp*W_HNO3+ &\n               4.0690e+0_fp*W_H2SO4- &\n               4.8370e+0_fp*SQRT(W_HNO3)+2.1860e+0_fp* &\n               SQRT(W_H2SO4)-63.0e+0_fp* &\n               W_HNO3**2-40.170e+0_fp*W_HNO3*W_H2SO4- &\n               1.5710e+0_fp*W_H2SO4**2)- &\n               1.0e+0_fp/TCENTER*(-7437.0e+0_fp-8327.80e+0_fp* &\n               W_HNO3+1300.90e+0_fp* &\n               W_H2SO4+1087.20e+0_fp*SQRT(W_HNO3)-242.710e+0_fp* &\n               SQRT(W_H2SO4)+ &\n               18749.0e+0_fp*W_HNO3**2+18500.0e+0_fp*W_HNO3*W_H2SO4+ &\n               5632.0e+0_fp*W_H2SO4**2)-TMP2-TMP4)*(ATM*1e-2_fp)\n       !H_HCL = EXP(-(21.0e+0_fp+46.610e+0_fp*W_HNO3+ &\n       !        4.0690e+0_fp*W_H2SO4- &\n       !        4.8370e+0_fp*SQRT(W_HNO3)+2.1860e+0_fp* &\n       !        SQRT(W_H2SO4)-63.0e+0_fp* &\n       !        W_HNO3**2-40.170e+0_fp*W_HNO3*W_H2SO4- &\n       !        1.5710e+0_fp*W_H2SO4**2)- &\n       !        1.0e+0_fp/TCENTER*(-7437.0e+0_fp-8327.80e+0_fp* &\n       !        W_HNO3+1300.90e+0_fp* &\n       !        W_H2SO4+1087.20e+0_fp*SQRT(W_HNO3)-242.710e+0_fp* &\n       !        SQRT(W_H2SO4)+ &\n       !        18749.0e+0_fp*W_HNO3**2+18500.0e+0_fp*W_HNO3*W_H2SO4+ &\n       !        5632.0e+0_fp*W_H2SO4**2)-LOG(W_HNO3+0.610e+0_fp*W_H2SO4)- &\n       !        LOG(36.461e+0_fp/(1000.0e+0_fp+98.076e+0_fp* &\n       !        M_H2SO4+63.012e+0_fp* &\n       !        M_HNO3)))*(ATM*1e-2_fp)\n       IF ( M_H2SO4 <= 0.0_fp ) THEN\n          TMP1 = 0.0_fp\n       ELSE\n          TMP1 = MOLDENS_H2SO4/M_H2SO4\n       ENDIF\n       IF ( H_HCL <= 0.0_fp ) THEN\n          TMP2 = 0.0_fp\n       ELSE\n          TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HCL\n       ENDIF\n       IF ( TMP1 == 0.0_fp .AND. TMP2 == 0.0_fp ) THEN\n          M_HCl = 0.0_fp\n       ELSE\n          M_HCl = (1.0e+0_fp/R_ATM/TCENTER*PATMHCL)/(TMP1 + TMP2)\n       ENDIF\n       !M_HCl = (1.0e+0_fp/R_ATM/TCENTER*PATMHCL)/ &\n       !        (MOLDENS_H2SO4/M_H2SO4 + 1.0e+0_fp/R_ATM/TCENTER/H_HCL)\n       TMP1 = 1.0e+3_fp+98.076e+0_fp*M_H2SO4+63.012e+0_fp*M_HNO3\n       IF ( TMP1 <= 0.0_fp ) THEN\n          W_HCL=0.0_fp\n       ELSE\n          W_HCL=M_HCL*36.461e+0_fp/TMP1\n       ENDIF\n       !W_HCL=M_HCL*36.461e+0_fp/(1.0e+3_fp+98.076e+0_fp*M_H2SO4+\n       !      63.012e+0_fp*M_HNO3)\n       IF ( H_HCl <= 0.0_fp ) THEN\n          PVAP_HCl = 0.0_fp\n       ELSE\n          PVAP_HCl = M_HCl/H_HCl\n       ENDIF\n       HClGASFRAC=1.0e+0_fp-(PATMHCL-PVAP_HCL)/PATMHCL\n    ELSE\n       W_HCl=0.0e+0_fp\n       HClGASFRAC=1.0e+0_fp\n    ENDIF\n#else\n    W_HCl=0.0e+0_fp\n    HClGASFRAC=1.0e+0_fp\n    IF ( PATMHCL .gt. TNY .AND. &\n         M_H2SO4 .gt. TNY .AND. &\n         M_HNO3  .gt. TNY       ) THEN\n       TMP1 = W_HNO3+0.610e+0_fp*W_H2SO4\n       IF ( TMP1 > TNY ) THEN\n          TMP2 = LOG(TMP1)\n          TMP3 = 36.461e+0_fp/(1000.0e+0_fp+98.076e+0_fp* &\n                 M_H2SO4+63.012e+0_fp*M_HNO3)\n          IF ( TMP3 > TNY ) THEN\n             TMP4 = LOG(TMP3)\n             H_HCL = EXP(-(21.0e+0_fp+46.610e+0_fp*W_HNO3+ &\n                     4.0690e+0_fp*W_H2SO4- &\n                     4.8370e+0_fp*SQRT(W_HNO3)+2.1860e+0_fp* &\n                     SQRT(W_H2SO4)-63.0e+0_fp* &\n                     W_HNO3**2-40.170e+0_fp*W_HNO3*W_H2SO4- &\n                     1.5710e+0_fp*W_H2SO4**2)- &\n                     1.0e+0_fp/TCENTER*(-7437.0e+0_fp-8327.80e+0_fp* &\n                     W_HNO3+1300.90e+0_fp* &\n                     W_H2SO4+1087.20e+0_fp*SQRT(W_HNO3)-242.710e+0_fp* &\n                     SQRT(W_H2SO4)+ &\n                     18749.0e+0_fp*W_HNO3**2+18500.0e+0_fp*W_HNO3*W_H2SO4+ &\n                     5632.0e+0_fp*W_H2SO4**2)-TMP2-TMP4)*(ATM*1e-2_fp)\n             IF ( H_HCL > TNY ) THEN\n                TMP1 = MOLDENS_H2SO4/M_H2SO4\n                TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HCL\n                IF ( TMP1+TMP2 > TNY ) THEN\n                   M_HCl = (1.0e+0_fp/R_ATM/TCENTER*PATMHCL)/(TMP1 + TMP2)\n                   TMP1 = 1.0e+3_fp+98.076e+0_fp*M_H2SO4+63.012e+0_fp*M_HNO3\n                   W_HCL=M_HCL*36.461e+0_fp/TMP1\n                   PVAP_HCl = M_HCl/H_HCl\n                   HClGASFRAC=1.0e+0_fp-(PATMHCL-PVAP_HCL)/PATMHCL\n                ENDIF\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDIF\n#endif\n\n    ! Now HOCl\n    W_HOCl=0.0e+0_fp\n    HOClGASFRAC=1.0e+0_fp\n    IF (PATMHOCl>TNY .AND. M_H2SO4>TNY ) THEN\n       H_HOCl=EXP(6.49460e+0_fp-(-0.041070e+0_fp+54.56e+0_fp/TCENTER)* &\n              (M_H2SO4+M_HNO3)-5862.0e+0_fp*(1.0e+0_fp/298.15e+0_fp- &\n              1.0e+0_fp/TCENTER))\n\n#ifdef MODEL_GEOS\n       IF ( M_H2SO4 <= 0.0_fp ) THEN\n          TMP1 = 0.0_fp\n       ELSE\n          TMP1 = MOLDENS_H2SO4/M_H2SO4\n       ENDIF\n       IF ( H_HOCL <= 0.0_fp ) THEN\n          TMP2 = 0.0_fp\n       ELSE\n          TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HOCL\n       ENDIF\n       IF ( TMP1 == 0.0_fp .AND. TMP2 == 0.0_fp ) THEN\n          M_HOCl = 0.0_fp\n       ELSE\n          M_HOCl = (1.0e+0_fp/R_ATM/TCENTER*PATMHOCl)/(TMP1+TMP2)\n       ENDIF\n       !M_HOCl=(1.0e+0_fp/R_ATM/TCENTER*PATMHOCl)/ &\n       !   (MOLDENS_H2SO4/M_H2SO4 + 1.0e+0_fp/R_ATM/TCENTER/H_HOCL)\n       W_HOCL=M_HOCL*52.46e+0_fp/(1.0e+3_fp+98.076e+0_fp*M_H2SO4+ &\n              63.012e+0_fp*M_HNO3)\n       ! Realistically expect no gas phase removal\n       HOCLGASFRAC=1.0e+0_fp\n    ELSE\n       W_HOCl=0.0e+0_fp\n       HOClGASFRAC=1.0e+0_fp\n#else\n       IF ( H_HOCL > TNY ) THEN\n          TMP1 = MOLDENS_H2SO4/M_H2SO4\n          TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HOCL\n          IF ( TMP1+TMP2 > TNY ) THEN\n             M_HOCl = (1.0e+0_fp/R_ATM/TCENTER*PATMHOCl)/(TMP1+TMP2)\n             W_HOCL = M_HOCL*52.46e+0_fp/(1.0e+3_fp+98.076e+0_fp*M_H2SO4+ &\n                      63.012e+0_fp*M_HNO3)\n             ! Realistically expect no gas phase removal\n             HOCLGASFRAC=1.0e+0_fp\n          ENDIF\n       ENDIF\n#endif\n    ENDIF\n\n    ! Now HBr (Luo et al., Vapor pressures of\n    ! H2SO4/HNO3/HCl/HBr/H2O solutions to low stratospheric\n    ! temperatures, 1995)\n#ifdef MODEL_GEOS\n    IF (PATMHBr.gt.0.0e+0_fp) THEN\n       TMP1 = W_HNO3+0.410e+0_fp*W_H2SO4\n       IF ( TMP1 <= 0.0_fp ) THEN\n          TMP2 = 0.0_fp\n       ELSE\n          TMP2 = LOG(TMP1)\n       ENDIF\n       TMP3 = 36.461e+0_fp/(1000.0e+0_fp+98.076e+0_fp* &\n              M_H2SO4+63.012e+0_fp*M_HNO3)\n       IF ( TMP3 > 0.0_fp ) THEN\n          TMP4 = LOG(TMP3)\n       ELSE\n          TMP4 = 0.0_fp\n       ENDIF\n       H_HBr = EXP(-(17.83e+0_fp+1.02e+0_fp*W_HNO3-1.08e+0_fp*W_H2SO4+ &\n               3.9e+0_fp*SQRT(W_HNO3)+4.38e+0_fp*SQRT(W_H2SO4)-8.87e+0_fp* &\n               W_HNO3**2-17.0e+0_fp*W_HNO3*W_H2SO4+3.73e+0_fp*W_H2SO4**2)- &\n               1.0e+0_fp/TCENTER*(-8220.5e+0_fp-362.76e+0_fp* &\n               W_HNO3+658.93e+0_fp* &\n               W_H2SO4-914.0e+0_fp*SQRT(W_HNO3)-955.3e+0_fp*SQRT(W_H2SO4)+ &\n               9976.6e+0_fp*W_HNO3**2+19778.5e+0_fp*W_HNO3*W_H2SO4+ &\n               7680.0e+0_fp*W_H2SO4**2)-TMP2-TMP4)*(ATM*1e-2_fp)\n       !H_HBr = EXP(-(17.83e+0_fp+1.02e+0_fp*W_HNO3-1.08e+0_fp*W_H2SO4+ &\n       !        3.9e+0_fp*SQRT(W_HNO3)+4.38e+0_fp*SQRT(W_H2SO4)-8.87e+0_fp* &\n       !        W_HNO3**2-17.0e+0_fp*W_HNO3*W_H2SO4+3.73e+0_fp*W_H2SO4**2)- &\n       !        1.0e+0_fp/TCENTER*(-8220.5e+0_fp-362.76e+0_fp* &\n       !        W_HNO3+658.93e+0_fp* &\n       !        W_H2SO4-914.0e+0_fp*SQRT(W_HNO3)-955.3e+0_fp*SQRT(W_H2SO4)+ &\n       !        9976.6e+0_fp*W_HNO3**2+19778.5e+0_fp*W_HNO3*W_H2SO4+ &\n       !        7680.0e+0_fp*W_H2SO4**2)-LOG(W_HNO3+0.410e+0_fp*W_H2SO4)- &\n       !        LOG(36.461e+0_fp/(1000.0e+0_fp+98.076e+0_fp* &\n       !        M_H2SO4+63.012e+0_fp* &\n       !        M_HNO3)))*(ATM*1e-2_fp)\n       IF ( M_H2SO4 <= 0.0_fp ) THEN\n          TMP1 = 0.0_fp\n       ELSE\n          TMP1 = MOLDENS_H2SO4/M_H2SO4\n       ENDIF\n       IF ( H_HBr <= 0.0_fp ) THEN\n          TMP2 = 0.0_fp\n       ELSE\n          TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HBr\n       ENDIF\n       IF ( TMP1==0.0_fp .AND. TMP2==0.0_fp ) THEN\n          M_HBr = 0.0_fp\n       ELSE\n          M_HBr = (1.0e+0_fp/R_ATM/TCENTER*PATMHBr)/(TMP1+TMP2)\n       ENDIF\n       !M_HBr = (1.0e+0_fp/R_ATM/TCENTER*PATMHBr)/ &\n       !        (MOLDENS_H2SO4/M_H2SO4 + 1.0e+0_fp/R_ATM/TCENTER/H_HBr)\n       W_HBr = M_HBr*80.91e+0_fp/(1.0e+3_fp+98.076e+0_fp*M_H2SO4+ &\n               63.012e+0_fp*M_HNO3)\n       IF ( H_HBr <= 0.0_fp ) THEN\n          PVAP_HBr = 0.0_fp\n       ELSE\n          PVAP_HBr = M_HBr/H_HBr\n       ENDIF\n       HBrGASFRAC=1.0e+0_fp-(PATMHBr-PVAP_HBr)/PATMHBr\n    ELSE\n       W_HBr=0.0e+0_fp\n       HBrGASFRAC=1.0e+0_fp\n    ENDIF\n#else\n    W_HBr=0.0e+0_fp\n    HBrGASFRAC=1.0e+0_fp\n    IF (PATMHBr > TNY .AND. M_H2SO4 > TNY ) THEN\n       TMP1 = W_HNO3+0.410e+0_fp*W_H2SO4\n       IF ( TMP1 > TNY ) THEN\n          TMP2 = LOG(TMP1)\n          TMP3 = 36.461e+0_fp/(1000.0e+0_fp+98.076e+0_fp* &\n                 M_H2SO4+63.012e+0_fp*M_HNO3)\n          IF ( TMP3 > TNY ) THEN\n             TMP4 = LOG(TMP3)\n             H_HBr = EXP(-(17.83_fp+1.02_fp*W_HNO3-1.08_fp*W_H2SO4+ &\n                   3.9e+0_fp*SQRT(W_HNO3)+4.38e+0_fp*SQRT(W_H2SO4)-8.87e+0_fp* &\n                   W_HNO3**2-17.0e+0_fp*W_HNO3*W_H2SO4+3.73e+0_fp*W_H2SO4**2)- &\n                   1.0e+0_fp/TCENTER*(-8220.5e+0_fp-362.76e+0_fp* &\n                   W_HNO3+658.93e+0_fp* &\n                   W_H2SO4-914.0e+0_fp*SQRT(W_HNO3)-955.3e+0_fp*SQRT(W_H2SO4)+ &\n                   9976.6e+0_fp*W_HNO3**2+19778.5e+0_fp*W_HNO3*W_H2SO4+ &\n                   7680.0e+0_fp*W_H2SO4**2)-TMP2-TMP4)*(ATM*1e-2_fp)\n             IF ( H_HBr > TNY ) THEN\n                TMP1 = MOLDENS_H2SO4/M_H2SO4\n                TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HBr\n                IF ( TMP1+TMP2 > TNY ) THEN\n                   M_HBr = (1.0e+0_fp/R_ATM/TCENTER*PATMHBr)/(TMP1+TMP2)\n                   W_HBr = M_HBr*80.91e+0_fp/(1.0e+3_fp+98.076e+0_fp*M_H2SO4+ &\n                           63.012e+0_fp*M_HNO3)\n                   PVAP_HBr = M_HBr/H_HBr\n                   HBrGASFRAC=1.0e+0_fp-(PATMHBr-PVAP_HBr)/PATMHBr\n                ENDIF\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDIF\n#endif\n\n    ! Finally HOBr (Hanson and Ravishankara, Heterogeneous\n    ! chemistry of Bromine species in sulfuric acid under\n    ! stratospheric conditions, 1995)\n    W_HOBr=0e+0_fp\n    HOBrGASFRAC=1.0e+0_fp\n    IF (PATMHOBr > TNY .and. M_H2SO4 > TNY ) THEN\n       ! Hanson and Ravishankara state that the volume-based\n       ! Henry's Law coefficient for HOBr in H2SO4 is 10^6 M/atm.\n       ! The molality-based Henry's law constant, H_HOBr, is\n       ! therefore:\n#ifdef MODEL_GEOS\n       IF ( M_H2SO4 <= 0.0_fp ) THEN\n          H_HOBr = 0.0_fp\n       ELSE\n          H_HOBr = (1.0e+6_fp) * MOLDENS_H2SO4 / M_H2SO4\n       ENDIF\n       IF ( M_H2SO4 <= 0.0_fp ) THEN\n          TMP1 = 0.0_fp\n       ELSE\n          TMP1 = MOLDENS_H2SO4/M_H2SO4\n       ENDIF\n       IF ( H_HOBr <= 0.0_fp ) THEN\n          TMP2 = 0.0_fp\n       ELSE\n          TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HOBr\n       ENDIF\n       IF ( TMP1 == 0.0_fp .AND. TMP2 == 0.0_fp ) THEN\n          M_HOBr = 0.0_fp\n       ELSE\n          M_HOBr = (1.0e+0_fp/R_ATM/TCENTER*PATMHOBr)/(TMP1 + TMP2)\n       ENDIF\n       M_HOBr = (1.0e+0_fp/R_ATM/TCENTER*PATMHOBr)/ &\n                (MOLDENS_H2SO4/M_H2SO4 + 1.0e+0_fp/R_ATM/TCENTER/H_HOBr)\n       W_HOBr = M_HOBr*96.911e+0_fp/(1.0e+3_fp+98.076e+0_fp*M_H2SO4+ &\n                63.012e+0_fp*M_HNO3)\n       IF ( H_HOBr <= 0.0_fp ) THEN\n          PVAP_HOBr = 0.0_fp\n       ELSE\n          PVAP_HOBr = M_HOBr/H_HOBr\n       ENDIF\n       HOBrGASFRAC=1.0e+0_fp-(PATMHOBr-PVAP_HOBr)/PATMHOBr\n    ELSE\n       W_HOBr=0e+0_fp\n       HOBrGASFRAC=1.0e+0_fp\n    ENDIF\n#else\n       H_HOBr = (1.0e+6_fp) * MOLDENS_H2SO4 / M_H2SO4\n       IF ( H_HOBr > TNY ) THEN\n          TMP1 = MOLDENS_H2SO4/M_H2SO4\n          TMP2 = 1.0e+0_fp/R_ATM/TCENTER/H_HOBr\n          IF ( TMP1+TMP2 > TNY ) THEN\n             M_HOBr = (1.0e+0_fp/R_ATM/TCENTER*PATMHOBr)/(TMP1+TMP2)\n             W_HOBr = M_HOBr*96.911_fp/(1.0e+3_fp+98.076_fp*M_H2SO4+ &\n                      63.012e+0_fp*M_HNO3)\n             PVAP_HOBr = M_HOBr/H_HOBr\n             HOBrGASFRAC=1.0e+0_fp-(PATMHOBr-PVAP_HOBr)/PATMHOBr\n          ENDIF\n       ENDIF\n    ENDIF\n#endif\n\n    ! Take W_H2O as remainder\n    W_H2O = 1.e+0_fp-(W_H2SO4+W_HNO3+W_HCl+W_HOCl+W_HBr+W_HOBr)\n\n#ifdef MODEL_GEOS\n    ! restrict values to range that prevents invalids (12/29/17)\n    IF ( M_H2SO4 < 1.0e-30_fp ) M_H2SO4 = 0.0_fp\n    IF ( M_HNO3  < 1.0e-30_fp ) M_HNO3  = 0.0_fp\n#endif\n\n    ! Aerosol mass density in kg/m3 aerosol\n    SLA_RHO = CARSLAW_DENSITY(M_H2SO4,M_HNO3,TCENTER)\n\n    ! Aerosol volume in m3/m3 air\n    IF ( W_H2SO4 < TNY .OR. SLA_RHO < TNY ) THEN\n       SLA_VOL = 0.0_fp\n    ELSE\n       SLA_VOL = (MOLDENS_H2SO4*98.076e+0_fp/W_H2SO4/SLA_RHO)*1.e-3_fp\n    ENDIF\n\n  END SUBROUTINE TERNARY\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carslaw_density\n!\n! !DESCRIPTION: Function CARSLAW\\_DENSITY determines the density of a\n!  sol'n through a relationship from Carslaw et al.. Result is in kg/m3.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  REAL(fp) FUNCTION CARSLAW_DENSITY(CS,CN,T)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: CS         ! H2SO4 molality (mol H2SO4/kg solvent)\n    REAL(fp), INTENT(IN) :: CN         ! HNO3 molality (mol HNO3/kg solvent)\n    REAL(fp), INTENT(IN) :: T          ! Temperature (K)\n!\n! !REVISION HISTORY:\n!  19 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)                :: DENSS,DENSN\n\n    !=================================================================\n    ! CARSLAW_DENSITY begins here!\n    !=================================================================\n\n    DENSS=1000.0e+0_fp+123.64e+0_fp*CS-5.6e-4_fp*CS*T**2 &\n          -29.54e+0_fp*CS**1.5e+0_fp + 1.814e-4_fp*CS**1.5e+0_fp &\n          *T**2+2.343e+0_fp*CS**2  -1.487e-3_fp*CS**2*T &\n          -1.324e-5_fp*CS**2*T**2\n\n    DENSN=1000.0e+0_fp+85.107e+0_fp*CN-5.043e-4_fp*CN*T**2 &\n          -18.96e+0_fp*CN**1.5e+0_fp + 1.427e-4_fp*CN**1.5e+0_fp &\n          *T**2+1.458e+0_fp*CN**2  -1.198e-3_fp*CN**2*T &\n          -9.703e-6_fp*CN**2*T**2\n\n    ! Error trap for zeros (ckeller, 12/29/17)\n    IF ( CS == 0.0_fp .AND. CN == 0.0_fp ) THEN\n       CARSLAW_DENSITY = 0.0_fp\n    ELSE\n       CARSLAW_DENSITY=1.0e+0_fp/((1.0e+0_fp/DENSS*CS/(CS+CN) &\n                      +1.0e+0_fp/DENSN*CN/(CS+CN)))\n    ENDIF\n    RETURN\n\n  END FUNCTION CARSLAW_DENSITY\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_fallvel\n!\n! !DESCRIPTION: Function CALC\\_FALLVEL calculates the terminal velocity of a\n!  solid particle.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION CALC_FALLVEL(DENSITY,RADIUS,TCENTER,PCENTER) RESULT(VEL)\n!\n! !USES:\n!\n    USE ERROR_MOD,       ONLY : ERROR_STOP\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),INTENT(IN)   :: RADIUS  ! Particle radius (cm)\n    REAL(fp),INTENT(IN)   :: DENSITY ! Particle density (kg/m3)\n    REAL(fp),INTENT(IN)   :: TCENTER ! Local temperature (K)\n    REAL(fp),INTENT(IN)   :: PCENTER ! Local pressure (kPa)\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp)              :: VEL ! Fall velocity (m/s)\n!\n! !REMARKS:\n! (1) A remark\n!\n! !REVISION HISTORY:\n!  11 Aug 2012 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Vy ! Intermediate velocity (m/s)\n    REAL(fp),PARAMETER    :: eta=6.45e-8_fp ! Constant (kg/(msK))\n    REAL(fp)              :: val_x ! Dimensionless variable\n    REAL(fp),DIMENSION(3) :: alpha ! Auxiliary variables\n    REAL(fp)              :: PR ! Pressure times radius\n\n    !=================================================================\n    ! CALC_FALLVEL begins here!\n    !=================================================================\n\n    DATA ALPHA/1.49e-5_fp,5.02e-6_fp,2.64e-5_fp/\n\n    ! Sanity check\n    IF ((RADIUS.le.0.e+0_fp).or.(DENSITY.le.0.e+0_fp)) THEN\n       VEL=0.e+0_fp\n    ELSE\n       ! PCENTER (kPa -> Pa) = *1.d3\n       ! RADIUS  (cm  -> m ) = *1.d-2\n       ! Therefore multiply PR by 10\n       PR = PCENTER * RADIUS * 10e+0_fp\n       VAL_X = -1.0e+0_fp*PR/(ALPHA(3)*TCENTER)\n       VAL_X = ALPHA(2)*TCENTER*EXP(VAL_X)/PR\n       VAL_X = 1.0e+0_fp + VAL_X + (ALPHA(1)*TCENTER/PR)\n       Vy = g0*DENSITY*RADIUS*RADIUS*(1.e-4_fp)/(4.5*ETA*TCENTER)\n       VEL = 0.893e+0_fp * Vy * VAL_X\n    ENDIF\n\n    ! Velocities should be of the order of 0.1 m/s\n    IF (VEL.gt.10.e+0_fp) THEN\n       CALL ERROR_STOP(' Excessive fall velocity? ', ' CALC_FALLVEL, UCX_mod')\n    ENDIF\n\n  END FUNCTION CALC_FALLVEL\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cacl_sla_gamma\n!\n! !DESCRIPTION: Subroutine CALC\\_SLA\\_GAMMA calculates 11 different sticking\n!  coefficients on the surface of local stratospheric liquid aerosols,\n!  relevant to each of the 11 reactions listed in Kirner's paper.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_SLA_GAMMA( NDENS, T, P, WT_FRC, H2OSUM, HClSUM, &\n                             HBrSUM, HOBrSUM, ClNO3SUM, BrNO3SUM, &\n                             RHO, ARAD, RXNGAMMA )\n!\n! !USES:\n!\n    USE ERROR_MOD,     ONLY : IT_IS_NAN,ERROR_STOP     ! Test for NaN\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: NDENS    ! Air number density (molec/cm3)\n    REAL(fp), INTENT(IN)  :: T        ! Temperature (K)\n    REAL(fp), INTENT(IN)  :: P        ! Pressure (hPa)\n    REAL(fp), INTENT(IN)  :: WT_FRC   ! Weight fraction of H2SO4 (kg/kg)\n    REAL(fp), INTENT(IN)  :: H2OSUM   ! H2O mixing ratio\n    REAL(fp), INTENT(IN)  :: HClSUM   ! HCl mixing ratio\n    REAL(fp), INTENT(IN)  :: HBrSUM   ! HBr mixing ratio\n    REAL(fp), INTENT(IN)  :: HOBrSUM  ! HOBr mixing ratio\n    REAL(fp), INTENT(IN)  :: ClNO3SUM ! ClNO3 mixing ratio\n    REAL(fp), INTENT(IN)  :: BrNO3SUM ! BrNO3 mixing ratio\n    REAL(fp), INTENT(IN)  :: RHO      ! STS density (g/cm3)\n    REAL(fp), INTENT(IN)  :: ARAD     ! SLA radius (cm)\n!\n! !OUTPUT VARIABLES:\n!\n    REAL(fp), INTENT(OUT) :: RXNGAMMA(11) ! Premultiplying factors\n!\n! !REVISION HISTORY:\n!  10 Oct 2012 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8)               :: WT      ! Weight percentage H2SO4 (100*kg/kg)\n    REAL(f8)               :: H2OPP   ! Partial pressure of H2O (hPa)\n    REAL(f8)               :: HClPP   ! Partial pressure of HCl (atm)\n    REAL(f8)               :: HBrPP   ! Partial pressure of HBr (atm)\n    REAL(f8)               :: HOBrPP  ! Partial pressure of HOBr (atm)\n    REAL(f8)               :: ClNO3PP ! Partial p. of ClONO2 (atm)\n    REAL(f8)               :: BrNO3PP ! Partial p. of BrONO2 (atm)\n    REAL(f8)               :: PSATH2O ! Water vapor sat. pressure (hPa)\n    REAL(f8)               :: ACTH2O  ! Activity of water\n    REAL(f8)               :: MOLAL   ! Molality of H2SO4 (mol H2SO4/kg solvent)\n    REAL(f8), DIMENSION(3) :: Z       ! Parameters for H2SO4 sol'n\n    REAL(f8)               :: M_H2SO4 ! Mass of H2SO4\n\n    ! HOBr parameters\n    REAL(f8)               :: c_HOBr\n    REAL(f8)               :: SHOBr\n    REAL(f8)               :: HHOBr\n    REAL(f8)               :: DHOBr\n    REAL(f8)               :: kHOBr_HCl\n    REAL(f8)               :: GHOBrrxn\n    REAL(f8)               :: lHOBr\n    REAL(f8)               :: fHOBr\n    REAL(f8)               :: gHOBr_HCl\n\n    ! HOCl parameters\n    REAL(f8)               :: c_HOCl\n    REAL(f8)               :: SHOCl\n    REAL(f8)               :: HHOCl\n    REAL(f8)               :: DHOCl\n    REAL(f8)               :: kHOCl_HCl\n    REAL(f8)               :: GHOClrxn\n    REAL(f8)               :: lHOCl\n    REAL(f8)               :: fHOCl\n    REAL(f8)               :: gHOCl_HCl\n\n    ! ClNO3 parameters\n    REAL(f8)               :: c_ClNO3\n    REAL(f8)               :: SClNO3\n    REAL(f8)               :: HClNO3\n    REAL(f8)               :: DClNO3\n    REAL(f8)               :: GClNO3rxn\n    REAL(f8)               :: lClNO3\n    REAL(f8)               :: fClNO3\n    REAL(f8)               :: gClNO3\n    REAL(f8)               :: gClNO3_HCl\n    REAL(f8)               :: gClNO3_H2O\n\n    ! N2O5 parameters\n    REAL(f8), DIMENSION(3) :: AK\n\n    ! Other parameters\n    REAL(f8) :: kH2O,kH,khdr,GbH2O,HHCl,MHCl,kHCl,GbHCl,Gs,FHCl,Gsp\n    REAL(f8) :: GbHClp, Gb, khydr, kII, k_dl\n\n    ! Interim variables\n    REAL(f8)               :: X,A,H,T_THRESHOLD,aH\n    REAL(f8), PARAMETER    :: MAX_T_DIFF = 6.0e+0_fp\n\n    ! Control whether to run calculations\n    LOGICAL              :: HClOK, HOBrOK\n\n    ! Debug variables\n    INTEGER              :: I\n    CHARACTER(LEN=255)   :: DBGMSG\n\n    !=================================================================\n    ! CALC_SLA_GAMMA begins here!\n    !=================================================================\n\n    PSATH2O = EXP(18.452406985e+0_f8-3505.1578807e+0_f8 &\n              /T-330918.55082e+0_f8/(T*T) &\n              +12725068.262e+0_f8/(T*T*T))       ! Saturation pressure of H2O\n    H2OPP = H2OSUM * P                  ! Partial pressure of H2O\n    ACTH2O = MAX((H2OPP/PSATH2O),1.0e+0_f8) ! Water activity\n\n    ! Calculate molality of solution\n    !WT = MIN(100.0e+0_fp,100.0e+0_fp*WT_FRC) ! Convert from fraction to %\n    WT = 100.0e+0_f8*WT_FRC ! Convert from fraction to %\n    MOLAL = 1000.0e+0_f8 * (WT/98.0e+0_f8/(100.0-WT))\n\n    ! Parameters for H2SO4 solution\n    !----------------------------------------------------------\n    ! The solution density is calculated earlier, including\n    ! contributions from HNO3. This code treats it as a binary\n    ! solution - so far this is just a kludge. Need to update\n    ! all this code to acknowledge the presence of at least\n    ! HNO3 (e.g. X is still calculated based on pure H2O\n    ! solvent!)\n    !----------------------------------------------------------\n    !Z(1) =   0.12364e+0_fp-5.6d-7*T*T\n    !Z(2) =   -0.02954e+0_fp+1.814d-7*T*T\n    !Z(3) =   2.343d-3-1.487d-6*T-1.324d-8*T*T\n    !RHO  =   1.0e+0_fp+Z(1)*MOLAL+Z(2)*MOLAL**1.5+Z(3)*MOLAL*MOLAL\n    !----------------------------------------------------------\n    M_H2SO4 = RHO*WT/9.8 ! Molality (mol H2SO4/kg solvent)\n    X       = WT/(WT+(100.-WT)*98./18.)\n    A       = 169.5+5.18*WT-0.0825*WT*WT+3.27e-3_f8*WT*WT*WT\n    T_THRESHOLD = 144.11+0.166*WT-0.015*WT*WT+2.18e-4_f8*WT*WT*WT\n    IF ((T-T_THRESHOLD).gt.MAX_T_DIFF) THEN\n       H = A*T**(-1.43)*EXP(448./(T-T_THRESHOLD))\n    ELSE\n       H = A*T**(-1.43)*EXP(448./MAX_T_DIFF)\n    ENDIF\n\n    aH = EXP(60.51-0.095*WT+0.0077*WT*WT-1.61e-5_f8*WT*WT*WT &\n         -(1.76+2.52e-4_f8*WT*WT)*SQRT(T) + &\n         (-805.89+253.05*WT**0.076)/SQRT(T))\n\n    HClPP   = HClSUM  *P/(ATM*1e-2_f8) ! Note atm, not hPa\n    ClNO3PP = ClNO3SUM*P/(ATM*1e-2_f8)\n    BrNO3PP = BrNO3SUM*P/(ATM*1e-2_f8)\n    HOBrPP  = HOBrSUM *P/(ATM*1e-2_f8) ! Note atm, not hPa\n\n    ! Should we bother running calculations?\n    HClOK  = (HClPP  .gt. 1.e-30_f8)\n    HOBrOK = (HOBrPP .gt. 1.e-30_f8)\n\n    ! Reaction 1. N2O5 + H2O (hydrolysis of N2O5)\n    AK(1)=-25.5265-0.133188*WT+0.0093084*WT**2-9.0194E-5_f8*WT**3\n    AK(2)=9283.76+115.345*WT-5.19258*WT**2+0.0483464*WT**3\n    AK(3)=-851801-22191.2*WT+766.916*WT**2-6.85427*WT**3\n    RXNGAMMA(1)=exp(AK(1)+AK(2)/T+AK(3)/T**2)\n\n    ! Reaction 2. N2O5 + HCl\n    ! JPL 10-06 suggests near-zero gamma\n    !----------------------------------------------------------------------\n    ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n    ! that can cause floating-point issues (bmy, 06 Jul 2021)\n    !RXNGAMMA(2) = TINY(1e+0_f8)\n    !----------------------------------------------------------------------\n    RXNGAMMA(2) = 0.0_f8\n\n    ! Reactions 3/4. ClNO3 + H2O/HCl\n    ! Now od only if HCl concentrations are large enough\n    ! (to avoid div-by-zero errors), ckeller, 2/10/15.\n    IF (HClOK) THEN\n       c_ClNO3     =  1474.e+0_f8*SQRT(T)\n       SClNO3      =  0.306e+0_f8+24.e+0_f8/T\n       HClNO3      =  1.6e-6_f8*EXP(4710.e+0_f8/T) * EXP(-SClNO3*M_H2SO4)\n       DClNO3      =  5e-8_f8*T/h\n       kH2O        =  1.95e+10_f8*EXP(-2800.e+0_f8/T)\n       kH          =  1.22e+12_f8*EXP(-6200.e+0_f8/T)\n       khydr       =  kH2O*ACTH2O + kH*aH*ACTH2O\n       GbH2O       =  4*HClNO3*0.082*T*SQRT(DClNO3*khydr) / c_ClNO3\n       HHCl        =  (0.094e+0_f8-0.61e+0_f8*X+1.2e+0_f8*X*X) &\n                      * EXP(-8.68+(8515-10718*X**0.7)/T)\n       MHCl        =  HHCl *HClPP\n       kHCl        =  7.9e+11_f8*aH*DClNO3*MHCl\n       lClNO3      =  SQRT(DClNO3/(khydr+kHCl))\n       if (lClNO3.gt.(1.e+5_f8*arad)) then\n          ! Limiting rate\n          fClNO3   =  arad/(3.e+0_f8*lClNO3)\n       else\n          fClNO3   =  1.e+0_f8/tanh(arad/lClNO3)- lClNO3/arad\n       endif\n       GClNO3rxn   =  fClNO3*GbH2O *SQRT(1.e+0_f8+kHCl/khydr)\n       GbHCl       =  GClNO3rxn* kHCl/(kHCl+ khydr)\n       Gs          =  66.12e+0_f8*EXP(-1374.e+0_f8/T)*HClNO3*MHCl\n       FHCl        =  1.e+0_f8/(1.e+0_f8+0.612e+0_f8*(Gs+GbHCl)* &\n                      ClNO3PP/ HClPP)\n       Gsp         =  FHCl*Gs\n       GbHClp      =  FHCl*GbHCl\n       Gb          =  GbHClp  + GClNO3rxn* khydr/( kHCl+ khydr)\n       ! Catch for zero (ckeller, 12/29/17)\n       IF ( Gsp == 0.0_fp .AND. Gb == 0.0_fp ) THEN\n          !--------------------------------------------------------------\n          ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n          ! that can cause floating-point issues (bmy, 06 Jul 2021)\n          !gClNO3_HCl  =  TINY(1e+0_f8)\n          !gClNO3_H2O  =  TINY(1e+0_f8)\n          !--------------------------------------------------------------\n          gClNO3_HCl  =  0.0_f8\n          gClNO3_H2O  =  0.0_f8\n       ELSE\n          gClNO3      =  1.e+0_f8/(1.e+0_f8+1.e+0_f8/(Gsp + Gb))\n          gClNO3_HCl  =  gClNO3 *(Gsp + GbHClp)/(Gsp + Gb)\n          gClNO3_H2O  =  gClNO3 - gClNO3_HCl\n       ENDIF\n\n       !IF (HClOK) THEN\n       RXNGAMMA(3) =  gClNO3_H2O\n       RXNGAMMA(4) =  gClNO3_HCl\n    ELSE\n       !--------------------------------------------------------------\n       ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n       ! that can cause floating-point issues (bmy, 06 Jul 2021)\n       !RXNGAMMA(3) = TINY(1e+0_f8)\n       !RXNGAMMA(4) = TINY(1e+0_f8)\n       !--------------------------------------------------------------\n       RXNGAMMA(3) = 0.0_f8\n       RXNGAMMA(4) = 0.0_f8\n    ENDIF\n\n    ! Reaction 5. ClNO3 + HBr\n    ! Not present in JPL 10-06 for H2SO4\n    !----------------------------------------------------------------------\n    ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n    ! that can cause floating-point issues (bmy, 06 Jul 2021)\n    !RXNGAMMA(5) = TINY(1e+0_f8)\n    !----------------------------------------------------------------------\n    RXNGAMMA(5) = 0.0_f8\n\n    ! Reaction 6. BrNO3 + H2O\n    !RXNGAMMA(6) = 1.0/(1.0/0.88+exp(-17.832+0.245*WT))\n    RXNGAMMA(6) = 1.e+0_f8/(1.e+0_f8/0.80e+0_f8+1.e+0_f8/ &\n                  (exp(29.2e+0_f8-0.4e+0_f8*WT )+0.11))\n\n    ! Reaction 7. BrNO3 + HCl\n    RXNGAMMA(7) = 0.9e+0_f8 ! JPL 10-06\n\n    ! Reaction 8. HOCl + HCl\n    IF (HClOK) THEN\n       c_HOCl    =  MOLEC_SPEED(T,52.46e+0_fp) ! input variable, fp\n       SHOCl     =  0.0776e+0_f8+59.18e+0_f8/T\n       HHOCl     =  1.91e-6_f8*EXP(5862.4e+0_f8/T)*EXP(-SHOCl*M_H2SO4)\n       DHOCl     =  6.4e-8_f8*T/H\n       kHOCl_HCl =  1.25e+9_f8*aH*DHOCl*MHCl\n       lHOCl     =  SQRT(DHOCl/kHOCl_HCl)\n       if (lHOCl.gt.(1.e+5_f8*arad)) then\n          ! Limiting rate\n          fHOCl  = arad/(3.e+0_f8*lHOCl)\n       else\n          fHOCl  =  1.e+0_f8/tanh(arad/lHOCl)- lHOCl/arad\n       endif\n       GHOClrxn  =  4.e+0_f8*HHOCl*0.082e+0_f8*T* &\n                    sqrt(DHOCl*kHOCl_HCl)/c_HOCl\n       !IF (fHOCl.eq.0.) THEN\n       ! Catch for zero (ckeller, 12/29/17)\n       IF ((fHOCl*GHOClrxn*FHCl).eq.0.) THEN\n          !--------------------------------------------------------------------\n          ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n          ! that can cause floating-point issues (bmy, 06 Jul 2021)\n          !gHOCl_HCl =  TINY(1e+0_f8)\n          !--------------------------------------------------------------------\n          gHOCl_HCl =  0.0_f8\n       ELSE\n          gHOCl_HCl =  1.e+0_f8/(1.e+0_f8+1.e+0_f8/(fHOCl*GHOClrxn*FHCl))\n       ENDIF\n    ELSE\n       !--------------------------------------------------------------------\n       ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n       ! that can cause floating-point issues (bmy, 06 Jul 2021)\n       !gHOCl_HCl = TINY(1e+0_f8)\n       !--------------------------------------------------------------------\n       gHOCl_HCl =  0.0_f8\n    ENDIF\n\n    RXNGAMMA(8) = gHOCl_HCl\n\n    ! Reaction 9. HOCl + HBr\n    ! Not yet implemented for STS; JPL 10-06 suggests complex\n    ! relationship, not yet sufficiently well understood or\n    ! parameterized for the purposes of simulation. Ignore for now\n    !----------------------------------------------------------------------\n    ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n    ! that can cause floating-point issues (bmy, 06 Jul 2021)\n    !RXNGAMMA(9) = TINY(1e+0_f8)\n    !----------------------------------------------------------------------\n    RXNGAMMA(9) = 0.0_f8\n\n    ! Reaction 10. HOBr + HCl\n    IF ((HClOK).and.(HOBrOK)) THEN\n       c_HOBr    =  MOLEC_SPEED(T,96.91e+0_fp) ! input variable, fp\n       SHOBr     =  0.0776e+0_f8+59.18e+0_f8/T\n       !HHOBr     =  30.D0\n       HHOBR     = exp(-9.86e+0_f8+5427.e+0_f8/T)\n       DHOBr     =  1.E-8_f8\n       kII       = exp(154.e+0_f8-1.63e+0_f8*WT)*exp(-(3.85e+4_f8- &\n                   478.e+0_f8*WT)/T)\n       k_dl      = 7.5e+14_f8*(DHOBr*arad*1.e7_f8)\n       IF (kII.gt.k_dl) kII=k_dl\n       kHOBr_HCl =  kII*HHOBr*HOBrPP\n       !IF (kHOBr_HCl.eq.0.) THEN   ! catch for zero (mdy, 04/15)\n       !  kHOBr_HCl = TINY(1e+0_fp)\n       !ENDIF\n       GHOBrrxn  =  4.e+0_f8*HHCl*0.082e+0_f8*T*sqrt(DHOBr*kHOBr_HCl)/c_HOBr\n       lHOBr     =  sqrt(DHOBr/kHOBr_HCl)\n       if (lHOBr.gt.(1.e+3_f8*arad)) then\n          ! Limiting rate\n          fHOBr = arad/(3.e+0_f8*lHOBr)\n       else\n          fHOBr     =  1.e+0_f8/tanh(arad/lHOBr)- lHOBr/arad\n       endif\n       ! catch for zeros (ckeller, 12/29/17)\n       IF ((fHOBr*GHOBrrxn).eq.0.) THEN\n          !------------------------------------------------------------------\n          ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n          ! that can cause floating-point issues (bmy, 06 Jul 2021)\n          !gHOBr_HCl = TINY(1e+0_f8)\n          !------------------------------------------------------------------\n          gHOBr_HCl = 0.0_f8\n          !gHOBr_HCl =  1.e+0_fp/(1.e+0_fp+1.e+0_fp/TINY(1e+0_fp))\n       ELSE\n          gHOBr_HCl =  1.e+0_f8/(1.e+0_f8+1.e+0_f8/(fHOBr*GHOBrrxn))\n       ENDIF\n       RXNGAMMA(10) = gHOBr_HCl\n    ELSE\n       !------------------------------------------------------------------\n       ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n       ! that can cause floating-point issues (bmy, 06 Jul 2021)\n       !RXNGAMMA(10) = TINY(1e+0_f8)\n       !------------------------------------------------------------------\n       RXNGAMMA(10) = 0.0_f8\n    ENDIF\n\n    ! Reaction 11. HOBr + HBr\n    ! Data from JPL limited; ignore for now\n    !----------------------------------------------------------------------\n    ! NOTE: Use 0.0_fp instead of TINY, which is a denormal number\n    ! that can cause floating-point issues (bmy, 06 Jul 2021)\n    !RXNGAMMA(11) = TINY(1e+0_f8)\n    !----------------------------------------------------------------------\n    RXNGAMMA(11) = 0.0_f8\n\n    ! SDE 2013-10-18: DEBUG\n    DO I=1,11\n       IF (IT_IS_NAN(RXNGAMMA(I))) THEN\n          WRITE(DBGMSG,'(a,I2)') 'RXNGAMMA NaN: ', I\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'NDENS: ', NDENS\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'T: ', T\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'P: ', P\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'WT_FRC: ', WT_FRC\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'H2OSUM: ', H2OSUM\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'HClSUM: ', HClSUM\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'HBrSUM: ', HBrSUM\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'HOBrSUM: ', HOBrSUM\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'ClNO3SUM: ', ClNO3SUM\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'BrNO3SUM: ', BrNO3SUM\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'RHO: ', RHO\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          WRITE(DBGMSG,'(a,E10.4)') 'ARAD: ', ARAD\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n          CALL ERROR_STOP('BAD GAMMA','UCX_mod')\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE CALC_SLA_GAMMA\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: molec_speed\n!\n! !DESCRIPTION: Function MOLEC\\_SPEED calculates the mean velocity of gas\n!  phase particles based on temperature and molecular mass.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  REAL(fp) FUNCTION MOLEC_SPEED(T,MOLMASS)\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)          :: T       ! Temperature (K)\n    REAL(fp), INTENT(IN)          :: MOLMASS ! Molecular mass (g/mol)\n!\n! !REVISION HISTORY:\n!  10 Oct 2012 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! MOLEC_SPEED begins here!\n    !=================================================================\n\n    MOLEC_SPEED=SQRT(8.0e+0_fp*RSTARG*1e+7_fp*T/(PI*MOLMASS))\n\n  END FUNCTION MOLEC_SPEED\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_h2o_trac\n!\n! !DESCRIPTION: Subroutine SET\\_H2O\\_TRAC sets the H2O species throughout\n!  the selected domain (either troposphere only or the full grid).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_H2O_TRAC( SETSTRAT,  Input_Opt, State_Chm, State_Grid, &\n                           State_Met, RC )\n!\n! !USES:\n!\n    USE Calc_Met_Mod,       ONLY : AIRQNT\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState, Ind_\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)    :: SETSTRAT    ! Set strat H2O?\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Mar 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: I,J,L, LEVCPT\n    INTEGER           :: TPLEV\n    LOGICAL           :: READ_SPHU\n    REAL(fp)          :: SPHU_kgkg, H2OVV_moist, Ev_mid\n    REAL(fp)          :: Esat, EsatA, EsatB, EsatC, EsatD\n    CHARACTER(LEN=255):: MSG, LOC\n\n    ! Local variables for quantities from Input_Opt\n    LOGICAL           :: LACTIVEH2O\n\n    ! Empirical parameters for water vapor saturation pressure\n    ! (Source: Nordquist, 1973. \"Numerical Approximiations of\n    !  Selected Meteorological Parameters Related to Cloud Physics\"\n    !  Text quality clarifications from Stipanuk, 1973. \"Algorithms\n    !  for Generating a Skew-T, Log P Diagram and Computing Selected\n    !  Meteorological Quantities\")\n    REAL(fp), PARAMETER   :: ESATP1  = 2.3832241e+1_fp\n    REAL(fp), PARAMETER   :: ESATP2  = -5.02808e+0_fp\n    REAL(fp), PARAMETER   :: ESATP3  = 8.1328e-3_fp\n    REAL(fp), PARAMETER   :: ESATP4  = 3.49149e+0_fp\n    REAL(fp), PARAMETER   :: ESATP5  = -1.3028844e+3_fp\n    REAL(fp), PARAMETER   :: ESATP6  = -1.3816e-7_fp\n    REAL(fp), PARAMETER   :: ESATP7  = 1.1344e+1_fp\n    REAL(fp), PARAMETER   :: ESATP8  = -3.03998e-2_fp\n    REAL(fp), PARAMETER   :: ESATP9  = -2.949076e+3_fp\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    ! If H2O in strat. is not prescribed, set H2O up to tropopause\n    ! level plus a given offset (to avoid H2O leaking into\n    ! stratosphere).\n    INTEGER, PARAMETER    :: TROPPLEV_OFFSET = 0\n\n    !=================================================================\n    ! SET_H2O_TRAC begins here\n    !=================================================================\n\n    ! Assume success\n    RC  = GC_SUCCESS\n\n    ! Copy fields from INPUT_OPT\n    LACTIVEH2O = Input_Opt%LACTIVEH2O\n\n    ! Point to GEOS-Chem species array\n    Spc => State_Chm%Species\n\n    ! Error trap: make sure id_H2O is defined. There are instances\n    ! in GEOS-5 where we want to call this routine even with UCX\n    ! turned off, in which case id_H2O might be undefined.\n    ! (ckeller, 3/13/17)\n    IF ( id_H2O <= 0 ) THEN\n       id_H2O = Ind_('H2O')\n    ENDIF\n\n    ! Check that species concentration units are as expected\n    IF ( Spc(id_H2O)%Units /= KG_SPECIES_PER_KG_DRY_AIR ) THEN\n       MSG = 'Incorrect species units: '                                  // &\n              TRIM( UNIT_STR(Spc(id_H2O)%Units) )\n       LOC = 'UCX_MOD: SET_H2O_TRAC'\n       CALL GC_Error( TRIM(MSG), RC, TRIM(LOC) )\n       Spc => NULL()\n       RETURN\n    ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, TPLEV, READ_SPHU, LEVCPT) &\n    !$OMP PRIVATE( SPHU_kgkg, H2OVV_moist, Ev_mid   ) &\n    !$OMP PRIVATE( Esat, EsatA, EsatB, EsatC, EsatD )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Tropopause level for this grid box\n       TPLEV = State_Met%TropLev(I,J)\n\n       ! Between 30S-30N, find the level of cold point tropopause,\n       ! the altitude with the coldest temperature below 10 hPa\n       IF ( ABS(State_Grid%YMid(I,J)) <= 30 ) THEN\n          ! Level with minimum temperature,\n          ! use MASK to screen for >10 hPa\n          If (Input_Opt%LStaticH2OBC) Then\n             LEVCPT = MINLOC(ABS(State_Met%PMID(I,J,:) - 70), DIM=1)\n          Else\n             LEVCPT = MINLOC( State_Met%T(I,J,:), DIM=1, &\n                              MASK=(State_Met%PMID(I,J,:) >= 10) )\n          End If\n       ELSE\n          LEVCPT = -1\n       ENDIF\n\n       DO L = 1, State_Grid%NZ\n\n          ! Mark as tropospheric air everything that is at current\n          ! tropopause or offset levels above. This is to avoid H2O\n          ! leaks into the stratosphere due to jumps in the model\n          ! tropopause. The offset is 0 by default (ckeller, 11/12/17)\n          ! Logical flag determines if we are in a region where H2O from\n          ! met files should overwrite the value from the chemical solver\n          ! C. Holmes)\n          READ_SPHU = ( ( (L-TPLEV) < TROPPLEV_OFFSET ) .or. &\n                        SETSTRAT .or. ( .not. LACTIVEH2O ) .or. &\n                        (L < LEVCPT)  )\n\n          IF ( READ_SPHU ) THEN\n\n             ! Calculate specific humidity [g H2O/kg total air] as\n             ! [kg/kg]\n             SPHU_kgkg = State_Met%SPHU(I,J,L) * 1.e-3_fp\n\n             ! Set H2O species concentration [kg/kg dry] using SPHU\n             ! [kg/kg]\n             ! without using box mass (ewl, 7/18/16)\n             Spc(id_H2O)%Conc(I,J,L) = SPHU_kgkg / ( 1.0e+0_fp - SPHU_kgkg )\n\n          ELSE\n\n             ! Calculate specific humidity in [kg H2O / kg total air]\n             ! using transported H2O [kg/kg dry] (ewl, 7/18/16)\n             SPHU_kgkg =  Spc(id_H2O)%Conc(I,J,L) / &\n                          ( 1.0e+0_fp + Spc(id_H2O)%Conc(I,J,L) )\n\n             ! Set State_Met specific humidity [g/kg]\n             State_Met%SPHU(I,J,L) = SPHU_kgkg * 1.e+3_fp\n\n             ! Calculate water vapor saturation pressure [hPa] from T\n             ! (see local variables above for method reference)\n             EsatA = ESATP1 + ESATP2 * log10( State_Met%T(I,J,L) )\n             EsatB = ESATP3 * 10**( ESATP4+ESATP5/State_Met%T(I,J,L) )\n             EsatC = ESATP6 * 10**( ESATP7+ESATP8*State_Met%T(I,J,L) )\n             EsatD = ESATP9 / State_Met%T(I,J,L)\n             Esat = 10**( EsatA + EsatB + EsatC + EsatD )\n\n             ! Calculate mol water vapor per mol moist air from SPHU\n             ! Note that SPHU must be converted to [kg/kg] to use 1-SPHU\n             ! as mass dry air / mass moist air\n             H2OVV_moist = SPHU_kgkg * AIRMW &\n                       / ( SPHU_kgkg * AIRMW + (1 - SPHU_kgkg) * H2OMW )\n\n             ! Calculate water vapor partial pressure at grid box center [hPa]\n             ! Note that grid box center is defined as the arithmetic average\n             ! of the grid box pressure edges not the vertical mid-point.\n             Ev_mid = State_Met%PMID(I,J,L) * H2OVV_MOIST\n\n             ! Set State_Met relative humidity [%]\n             State_Met%RH(I,J,L) = ( Ev_mid / Esat ) * 100e+0_fp\n\n          ENDIF\n       ENDDO ! L\n    ENDDO ! I\n    ENDDO ! J\n    !$OMP END PARALLEL DO\n\n    ! If humidity was updated, update all moist-dependent air quantities\n    ! and species mixing ratio with the new moisture content (ewl, 4/29/15)\n    IF ( LActiveH2O .and. ( .not. SetStrat ) ) THEN\n       CALL AIRQNT( Input_Opt, State_Chm, State_Grid, State_Met, &\n                    RC, Update_Mixing_Ratio=.TRUE. )\n    ENDIF\n\n    ! Free pointer\n    NULLIFY( Spc )\n\n  END SUBROUTINE SET_H2O_TRAC\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ucx_h2so4phot\n!\n! !DESCRIPTION: Subroutine UCX\\_H2SO4PHOT propagates the calculated H2SO4\n!  photolysis (J) rate at the top of the chemistry grid through to the top\n!  of the transport grid, approximating H2SO4 photolysis in the mesosphere.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE UCX_H2SO4PHOT( Input_Opt, State_Chm, State_Grid, State_Met )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : SpcConc\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CHEM\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  17 Aug 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: I, J, L, IJWINDOW\n    REAL(fp)              :: GMU,SO4_IN,PHOTDELTA,DTCHEM\n    REAL(fp)              :: SO2_MW_G, SO4_MW_g, SO4_DELTA\n    LOGICAL               :: DAYCOLUMN\n    INTEGER               :: LMINPHOT\n    REAL(fp)              :: RELWT\n    LOGICAL,SAVE          :: FIRST=.TRUE.\n    INTEGER               :: ICS\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !=================================================================\n    ! UCX_H2SO4PHOT begins here!\n    !=================================================================\n\n    ! Initialize\n    PHOTDELTA = 0.0_fp\n\n    ! Copy fields from species database\n    SO2_MW_G = State_Chm%SpcData(id_SO2)%Info%MW_g ! g/mol\n    SO4_MW_G = State_Chm%SpcData(id_SO4)%Info%MW_g ! g/mol\n    RELWT    = SO2_MW_G / SO4_MW_G\n\n    ! Point to GEOS-Chem species array\n    Spc => State_Chm%Species\n\n    ! Allow for the possibility of variable timestep\n    DTCHEM = GET_TS_CHEM()\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L, DAYCOLUMN, GMU ) &\n    !$OMP PRIVATE( LMINPHOT, PHOTDELTA, SO4_IN, SO4_DELTA )\n    DO J=1,State_Grid%NY\n    DO I=1,State_Grid%NX\n\n       GMU       = State_Met%SUNCOSmid(I,J)\n       DAYCOLUMN = (GMU.gt.0e+0_fp)\n\n       IF (DAYCOLUMN) THEN\n          LMINPHOT  = State_Met%ChemGridLev(I,J)\n\n          ! Retrieve photolysis rate as a fraction of gaseous SO4\n          IF ( State_Chm%Phot%RXN_H2SO4 > 0 ) THEN\n          PHOTDELTA = State_Chm%Phot%ZPJ(LMINPHOT,State_Chm%Phot%RXN_H2SO4,I,J)&\n                      * DTCHEM\n          ENDIF\n          PHOTDELTA = MIN(1.e+0_fp,PHOTDELTA)\n\n          DO L=LMINPHOT+1,State_Grid%NZ\n             ! Apply photolysis to SO4\n             ! First retrieve gaseous fraction\n             SO4_IN = Spc(id_SO4)%Conc(I,J,L)*SO4_PHOTFRAC(I,J,L,State_Chm)\n             SO4_DELTA = PHOTDELTA*SO4_IN\n             ! Remove from SO4\n             Spc(id_SO4)%Conc(I,J,L) = Spc(id_SO4)%Conc(I,J,L) - SO4_DELTA\n             ! Add to SO2. Note change in molar mass\n             Spc(id_SO2)%Conc(I,J,L) = Spc(id_SO2)%Conc(I,J,L) + (SO4_DELTA*RELWT)\n          ENDDO\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Free pointer\n    NULLIFY( Spc )\n\n  END SUBROUTINE UCX_H2SO4PHOT\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: noxcoeff_init\n!\n! !DESCRIPTION: Subroutine NOXCOEFF\\_INIT initializes the NOX 2D interpolation\n! values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NOXCOEFF_INIT( Input_Opt, State_Grid, State_Chm )\n!\n! !USES:\n!\n    USE ERROR_MOD,          ONLY : ALLOC_ERR\n    USE ERROR_MOD,          ONLY : ERROR_STOP\n    USE FILE_MOD,           ONLY : IoError\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Chm_Mod,      ONLY : ChmState\n#if defined( MODEL_CESM )\n    USE UNITS,              ONLY : freeUnit\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN) :: Input_Opt          ! Input options\n    TYPE(GrdState),   INTENT(IN) :: State_Grid         ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),INTENT(INOUT) :: State_Chm          ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  05 Dec 2014 - C. Keller - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: I, AS, IOS\n    INTEGER            :: IMON, ITRAC, ILEV\n    INTEGER            :: IU_FILE\n\n    ! Strings\n    CHARACTER(LEN=255) :: NOX_FILE\n    CHARACTER(LEN=255) :: TARG_TRAC\n    CHARACTER(LEN=255) :: DBGMSG\n    CHARACTER(LEN=255) :: FileMsg\n    CHARACTER(LEN=255) :: GridSpec\n    CHARACTER(LEN=255) :: NOON_FILE_ROOT\n#if defined( MODEL_CESM )\n    CHARACTER(LEN=*), PARAMETER :: subname = 'NOXCOEFF_INIT'\n#endif\n\n    !=================================================================\n    ! NOXCOEFF_INIT begins here!\n    !=================================================================\n\n    ! --------------------------------------------------------------\n    ! Input data sources\n    ! --------------------------------------------------------------\n\n    ! For ASCII input, use 2x25 grid for all other grids than 4x5.\n    ! This is ok for the NOx coeffs which can be regridded on the fly\n    ! from 2x25 onto any other grid. This won't work for the 2D\n    ! boundary conditions, but those have been checked in the logical\n    ! check above (USE2DDATA).\n    IF ( TRIM(State_Grid%GridRes) == '4.0x5.0' ) THEN\n       GRIDSPEC = 'Grid4x5/InitCFC_'\n    ELSE\n       GRIDSPEC = 'Grid2x25/InitCFC_'\n    ENDIF\n    WRITE(   NOON_FILE_ROOT,'(a,a,a)') TRIM(Input_Opt%CHEM_INPUTS_DIR), &\n#ifdef MODEL_GEOS\n         'UCX_201902/NoonTime/', TRIM(GRIDSPEC)\n#else\n         'UCX_201403/NoonTime/', TRIM(GRIDSPEC)\n#endif\n\n    !=================================================================\n    ! In dry-run mode, print file paths to dryrun log and exit.\n    !=================================================================\n    IF ( Input_Opt%DryRun ) THEN\n\n       ! Loop over months and tracers\n       DO IMON  = 1,12\n          DO ITRAC = 1,6\n\n             ! Pick tracer name\n             SELECT CASE (ITRAC)\n             CASE ( 1 )\n                TARG_TRAC = 'O'\n             CASE ( 2 )\n                TARG_TRAC = 'O1D'\n             CASE ( 3 )\n                TARG_TRAC = 'JNO'\n             CASE ( 4 )\n                TARG_TRAC = 'JNO2'\n             CASE ( 5 )\n                TARG_TRAC = 'JNO3'\n             CASE ( 6 )\n                TARG_TRAC = 'JN2O'\n             END SELECT\n\n             ! Create file name for each tracer and month\n             WRITE( NOx_File, '(a,a,a,I0.2,a)' ) &\n                  TRIM(NOON_FILE_ROOT), TRIM(TARG_TRAC), '_', IMON, '.dat'\n\n             ! Test if the file exists\n             INQUIRE( FILE=TRIM( NOx_File ), EXIST=FileExists )\n\n             ! Test if the file exists and define an output string\n             IF ( FileExists ) THEN\n                FileMsg = 'UCX (SFCMR_READ): Opening'\n             ELSE\n                FileMsg = 'UCX (SFCMR_READ): REQUIRED FILE NOT FOUND'\n             ENDIF\n\n             ! Write to stdout for both regular and dry-run simulations\n             IF ( Input_Opt%amIRoot ) THEN\n                WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( NOx_File )\n300             FORMAT( a, ' ', a )\n             ENDIF\n          ENDDO\n       ENDDO\n\n       ! exit without doing any computation (dry-run only)\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! If this is a regular simulation, then read data from files\n    !=================================================================\n\n    ! Number of latitude levels of State_Chm%NOXCOEFF array. Data is only\n    ! available for 2x25 and 4x5. Use 2x25 for any different grid\n    ! and map NOx coeffs onto simulation grid when calling\n    ! GET_NOXCOEFF.\n    IF ( TRIM(State_Grid%GridRes) == '4.0x5.0' .or. &\n         TRIM(State_Grid%GridRes) == '2.0x2.5' ) THEN\n       State_Chm%JJNOXCOEFF = State_Grid%NY\n    ELSE\n       State_Chm%JJNOXCOEFF = 91\n    ENDIF\n\n    ! Fill NOx latitudes\n    ALLOCATE(State_Chm%NOXLAT(State_Chm%JJNOXCOEFF+1), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%NOXLAT' )\n\n    ! Fill manually\n    State_Chm%NOXLAT(2) = -89.0e+0_fp\n    DO I = 3,State_Chm%JJNOXCOEFF\n       State_Chm%NOXLAT(I) = State_Chm%NOXLAT(I-1) + 2e+0_fp\n    ENDDO\n    ! Overshoot to make sure that a latitude of 90.0 will be properly\n    ! matched onto State_Chm%JJNOXCOEFF.\n    State_Chm%NOXLAT(State_Chm%JJNOXCOEFF+1) = 90.5e+0_fp\n\n    ! Initialize the State_Chm%NOXCOEFF array. This array holds monthly NOx\n    ! coefficients on 51 levels and for 6 species.\n    ALLOCATE(State_Chm%NOXCOEFF(State_Chm%JJNOXCOEFF,UCX_NLEVS,6,12), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%NOXCOEFF' )\n    State_Chm%NOXCOEFF = 0.0e+0_fp\n\n#if defined( MODEL_CESM )\n    IF ( Input_Opt%amIRoot ) THEN\n#endif\n    ! Fill array\n    DO IMON  = 1,12\n    DO ITRAC = 1,6\n       SELECT CASE (ITRAC)\n       CASE ( 1 )\n          TARG_TRAC = 'O'\n       CASE ( 2 )\n          TARG_TRAC = 'O1D'\n       CASE ( 3 )\n          TARG_TRAC = 'JNO'\n       CASE ( 4 )\n          TARG_TRAC = 'JNO2'\n       CASE ( 5 )\n          TARG_TRAC = 'JNO3'\n       CASE ( 6 )\n          TARG_TRAC = 'JN2O'\n       END SELECT\n       WRITE(NOX_FILE,'(a,a,a,I0.2,a)') TRIM(NOON_FILE_ROOT), &\n            TRIM(TARG_TRAC), '_', IMON, '.dat'\n\n       ! Get a free LUN\n       IU_FILE = findFreeLUN()\n\n       IOS = 1\n\n       ! Test if the file exists\n       INQUIRE( FILE=TRIM( NOx_File ), EXIST=FileExists )\n\n       ! Define an output string\n       IF ( FileExists ) THEN\n          FileMsg = 'UCX (SFCMR_READ): Opening'\n       ELSE\n          FileMsg = 'UCX (SFCMR_READ): REQUIRED FILE NOT FOUND'\n       ENDIF\n\n       ! Print the name of the file being read to stdout (bmy, 10/23/19)\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( NOx_File )\n       ENDIF\n\n       OPEN( IU_FILE,FILE=TRIM(NOX_FILE),STATUS='OLD',IOSTAT=IOS)\n       IF ( IOS /= 0 ) THEN\n          WRITE(6,*) 'UCX_MOD: Could not read ', TRIM(NOX_FILE)\n          CALL IOERROR( IOS, IU_FILE,'UCX_MOD:NOXCOEFF_INIT')\n       ENDIF\n\n       IF ( Input_Opt%Verbose ) THEN\n          WRITE(DBGMSG,'(a,a)') ' ### UCX: Reading ', TRIM( NOX_FILE )\n          CALL DEBUG_MSG( TRIM(DBGMSG) )\n       ENDIF\n\n       ! Read in data\n       DO ILEV = 1,UCX_NLEVS\n\n          IF ( TRIM(State_Grid%GridRes) =='4.0x5.0' ) THEN\n             READ(IU_FILE, 110, IOSTAT=IOS ) State_Chm%NOXCOEFF(:,ILEV,ITRAC,IMON)\n110          FORMAT(46E10.3)\n          ELSE\n             ! Use 2x25 as default\n             READ(IU_FILE, 120, IOSTAT=IOS ) State_Chm%NOXCOEFF(:,ILEV,ITRAC,IMON)\n120          FORMAT(91E10.3)\n          ENDIF\n          IF ( IOS /= 0 ) THEN\n             WRITE(6,'(a,a,I4,a,1x,a)') 'UCX_MOD: Error reading ', &\n                  'line ', ILEV, ' in file ', TRIM( NOX_FILE )\n             CALL IOERROR( IOS, IU_FILE,'UCX_MOD:NOXCOEFF_INIT')\n          ENDIF\n       ENDDO\n\n       CLOSE(IU_FILE)\n#if defined( MODEL_CESM )\n       CALL freeUnit( IU_FILE )\n#endif\n\n    ENDDO !ITRAC\n    ENDDO !IMON\n#if defined( MODEL_CESM )\n    ENDIF\n#endif\n\n  END SUBROUTINE NOXCOEFF_INIT\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_jjnox\n!\n! !DESCRIPTION: Subroutine GET\\_JJNOX maps grid box at location IISIM, JJSIM of\n! the simulation grid onto the latitude grid of the State_Chm%NOXCOEFF array.\n!\\\\\n!\\\\\n! This routine simply returns the index of the NOx latitude vector that covers\n! the latitude value of interest. No grid box weighting, etc. is performed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_JJNOX( IISIM, JJSIM, State_Grid, State_Chm ) RESULT ( JJNOX )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Chm_Mod,  ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: IISIM    ! Latitude index on simulation grid\n    INTEGER,          INTENT(IN) :: JJSIM    ! Latitude index on simulation grid\n    TYPE(GrdState),   INTENT(IN) :: State_Grid ! Grid State object\n    TYPE(ChmState),   INTENT(IN) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT VARIABLES:\n!\n    INTEGER                      :: JJNOX    ! Latitude index on State_Chm%NOXCOEFF grid\n!\n! !REVISION HISTORY:\n!  05 Dec 2014 - C. Keller - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: I\n    REAL(fp)              :: LAT\n\n    !=================================================================\n    ! GET_JJNOX begins here!\n    !=================================================================\n\n    ! Init\n    JJNOX = -1\n\n    ! Get latitude in degrees north on simulation grid\n    LAT = State_Grid%YMid( IISIM, JJSIM )\n\n    ! Loop over all latitudes of the NOx grid until we reach the grid\n    ! box where the simulation latitude sits in.\n    DO I = 1,State_Chm%JJNOXCOEFF\n       IF ( LAT < State_Chm%NOXLAT(I+1) ) THEN\n          JJNOX = I\n          EXIT\n       ENDIF\n    ENDDO\n\n  END FUNCTION GET_JJNOX\n!EOC\n!------------------------------------------------------------------------------\n!               MIT Laboratory for Aviation and the Environment               !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_ucx\n!\n! !DESCRIPTION: Subroutine INIT\\_UCX initializes module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_UCX( Input_Opt, State_Chm, State_Diag, State_Grid )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,   ONLY : NSTRATAER\n    USE ERROR_MOD,      ONLY : ALLOC_ERR\n    USE ERROR_MOD,      ONLY : IS_SAFE_DIV\n    USE ERROR_MOD,      ONLY : ERROR_STOP\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE PhysConstants,  ONLY : PI_180\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE TIME_MOD,       ONLY : GET_YEAR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input options\n    TYPE(DgnState), INTENT(IN) :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  04 Apr 2013 - S. D. Eastham - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: FileExists\n    INTEGER            :: N, AS\n    INTEGER            :: JIN, JOUT\n    REAL(fp)           :: JMIN_IN, JMAX_IN, JDIF_IN\n    REAL(fp)           :: JMIN_OUT,JMAX_OUT,JDIF_OUT\n    REAL(fp)           :: JMIN_TMP,JMAX_TMP,JDIF_TMP\n    REAL(fp)           :: JRATIO\n    REAL(fp)           :: DEG_SUM\n\n    ! Strings\n    CHARACTER(LEN=255) :: DBGMSG, GRIDSPEC, FileMsg, FileName\n\n    ! Return code\n    INTEGER :: RC\n\n    !=================================================================\n    ! INIT_UCX begins here!\n    !=================================================================\n\n    ! Exit unless we are doing a full-chemistry or aerosol-only simulation\n    IF ( .not. Input_Opt%ITS_A_FULLCHEM_SIM                            .and. &\n         .not. Input_Opt%ITS_AN_AEROSOL_SIM ) RETURN\n\n    ! Initialize species ID flags\n    id_BCPI  = Ind_('BCPI'      )\n    id_BrNO3 = Ind_('BrNO3'     )\n    id_ClNO3 = Ind_('ClNO3'     )\n    id_H2O   = Ind_('H2O'       )\n    id_HBr   = Ind_('HBr'       )\n    id_HCl   = Ind_('HCl'       )\n    id_HNO3  = Ind_('HNO3'      )\n    id_HOBr  = Ind_('HOBr'      )\n    id_HOCl  = Ind_('HOCl'      )\n    id_N2O   = Ind_('N2O'       )\n    id_NIT   = Ind_('NIT'       )\n    id_N     = Ind_('N'         )\n    id_NO    = Ind_('NO'        )\n    id_NO2   = Ind_('NO2'       )\n    id_NO3   = Ind_('NO3'       )\n    id_O3    = Ind_('O3'        )\n    id_SO2   = Ind_('SO2'       )\n    id_SO4   = Ind_('SO4'       )\n\n    ! Print info\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6,'(a)') REPEAT( '=', 79 )\n       WRITE( 6,'(a)') 'U N I F I E D   C H E M I S T R Y'\n       WRITE( 6,'(a)') 'Routines written by SEBASTIAN D. EASTHAM'\n       WRITE( 6,'(a)') REPEAT( '=', 79 )\n    ENDIF\n\n    !=================================================================\n    ! In dry-run mode, print file path to dryrun log and return.\n    !=================================================================\n    IF ( Input_Opt%DryRun ) THEN\n\n       ! Get dry-run output from NOXCOEFF_INIT as well\n       CALL NOXCOEFF_INIT( Input_Opt, State_Grid, State_Chm )\n\n       ! Exit without doing any computation (dry-run only)\n       RETURN\n    ENDIF\n\n    !=================================================================\n    ! For regular simulations, allocate arrays\n    !=================================================================\n\n    ! Allocate arrays of input pressure levels and lat edges\n    ALLOCATE( State_Chm%UCX_PLEVS( UCX_NLEVS ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%UCX_PLEVS' )\n\n    ALLOCATE( State_Chm%UCX_LATS( UCX_NLAT+1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%UCX_LATS' )\n\n    ! Set input pressure levels (hPa)\n    State_Chm%UCX_PLEVS = (/ 0.2200e+00_fp, 0.2600e+00_fp, &\n                   0.3100e+00_fp, 0.3600e+00_fp, &\n                   0.4300e+00_fp, 0.5100e+00_fp, &\n                   0.6000e+00_fp, 0.7100e+00_fp, &\n                   0.8400e+00_fp, 0.9900e+00_fp, &\n                   1.1700e+00_fp, 1.3800e+00_fp, &\n                   1.6300e+00_fp, 1.9300e+00_fp, &\n                   2.2800e+00_fp, 2.6900e+00_fp, &\n                   3.1800e+00_fp, 3.7600e+00_fp, &\n                   4.4400e+00_fp, 5.2500e+00_fp, &\n                   6.2000e+00_fp, 7.3200e+00_fp, &\n                   8.6500e+00_fp, 1.0220e+01_fp, &\n                   1.2070e+01_fp, 1.4260e+01_fp, &\n                   1.6850e+01_fp, 1.9910e+01_fp, &\n                   2.3520e+01_fp, 2.7780e+01_fp, &\n                   3.2820e+01_fp, 3.8770e+01_fp, &\n                   4.5810e+01_fp, 5.4110e+01_fp, &\n                   6.3930e+01_fp, 7.5220e+01_fp, &\n                   8.9220e+01_fp, 1.0540e+02_fp, &\n                   1.2451e+02_fp, 1.4710e+02_fp, &\n                   1.7377e+02_fp, 2.0529e+02_fp, &\n                   2.4252e+02_fp, 2.8650e+02_fp, &\n                   3.3847e+02_fp, 3.9985e+02_fp, &\n                   4.7237e+02_fp, 5.5804e+02_fp, &\n                   6.5924e+02_fp, 7.7880e+02_fp, &\n                   9.2004e+02_fp /)\n\n    ! Set input latitude edges (degrees)\n    State_Chm%UCX_LATS(1)  = -90.0e+0_fp\n    State_Chm%UCX_LATS(2)  = (-90.0e+0_fp) + (9.5e+0_fp/2.0e+0_fp)\n    State_Chm%UCX_LATS(20) = 90.0e+0_fp\n    DO N=2,18\n       State_Chm%UCX_LATS(N+1) = State_Chm%UCX_LATS(N) + 9.5e+0_fp\n    ENDDO\n\n    ! Calculate conversion factors for SLA\n    ! Factor to convert volume (m3 SLA/m3 air) to\n    ! surface area density (cm2 SLA/cm3 air)\n    SLA_VA = (8.406e-8_fp)*(10.e+0_fp**(12.e+0_fp*0.751e+0_fp))\n\n    ! Factor to convert effective radius to\n    ! liquid radius (unitless)\n    SLA_RR = EXP(-0.173e+0_fp)\n\n    ! Factor to convert volume (m3/m3) to effective\n    ! radius (m)\n    SLA_VR = (0.357e-6_fp)*(10.e+0_fp**(12.e+0_fp*0.249))\n\n    ! Initialize NOx coefficient arrays\n    ALLOCATE( State_Chm%NOX_O( State_Grid%NX, State_Grid%NY, State_Grid%NZ, 2 ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%NOX_O' )\n    State_Chm%NOX_O = 0e+0_fp\n\n    ALLOCATE( State_Chm%NOX_J( State_Grid%NX, State_Grid%NY, State_Grid%NZ, 4 ), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%NOX_J' )\n    State_Chm%NOX_J = 0e+0_fp\n\n    ! Initialize PSC variables\n    ALLOCATE( State_Chm%RAD_AER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                       NSTRATAER ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%RAD_AER' )\n    State_Chm%RAD_AER = 0e+0_fp\n\n    ALLOCATE( State_Chm%KG_AER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                      NSTRATAER ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%KG_AER' )\n    State_Chm%KG_AER = 0e+0_fp\n\n    ALLOCATE( State_Chm%SAD_AER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                       NSTRATAER ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%SAD_AER' )\n    State_Chm%SAD_AER = 0e+0_fp\n\n    ALLOCATE( State_Chm%NDENS_AER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                         NSTRATAER ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%NDENS_AER' )\n    State_Chm%NDENS_AER = 0e+0_fp\n\n    ALLOCATE( State_Chm%RHO_AER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                       NSTRATAER ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%RHO_AER' )\n    State_Chm%RHO_AER = 0e+0_fp\n\n    ! Mass fraction of species contained in liquid aerosol\n    ! Indices: 1 - SO4\n    !          2 - HNO3\n    !          3 - HCl\n    !          4 - HOCl\n    !          5 - HBr\n    !          6 - HOBr\n    !          7 - H2O\n    ALLOCATE( State_Chm%AERFRAC( State_Grid%NX, State_Grid%NY, State_Grid%NZ,7), &\n              STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%AERFRAC' )\n    State_Chm%AERFRAC = 0e+0_fp\n\n    ALLOCATE( State_Chm%AERFRACIND( 7 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%AERFRACIND' )\n    State_Chm%AERFRACIND(1) = id_SO4\n    State_Chm%AERFRACIND(2) = id_HNO3\n    State_Chm%AERFRACIND(3) = id_HCl\n    State_Chm%AERFRACIND(4) = id_HOCl\n    State_Chm%AERFRACIND(5) = id_HBr\n    State_Chm%AERFRACIND(6) = id_HOBr\n    State_Chm%AERFRACIND(7) = id_H2O\n\n    ! H2SO4 photolysis rate at the top of the chemgrid\n    ALLOCATE( State_Chm%SO4_TOPPHOT( State_Grid%NX,State_Grid%NY ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%SO4_TOPPHOT' )\n    State_Chm%SO4_TOPPHOT = 0.e+0_fp\n\n    ALLOCATE( State_Chm%UCX_REGRID( State_Grid%NY, UCX_NLAT ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'State_Chm%UCX_REGRID' )\n    State_Chm%UCX_REGRID = 0e+0_fp\n\n    ! Calculate the scaling matrix\n    ! Note cosine (area-weighted)\n    JMAX_OUT = State_Grid%YEdge(1,1)\n    DO JOUT=1,State_Grid%NY\n       JMIN_OUT = JMAX_OUT\n       JMAX_OUT = State_Grid%YEdge(1,JOUT+1)\n       JDIF_OUT = SIN( JMAX_OUT * PI_180 ) &\n                - SIN( JMIN_OUT * PI_180 )\n       DEG_SUM = 0e+0_fp\n       DO JIN=1,UCX_NLAT\n          JMIN_IN = State_Chm%UCX_LATS(JIN)\n          JMAX_IN = State_Chm%UCX_LATS(JIN+1)\n          IF ((JMAX_OUT.ge.JMIN_IN).and.(JMIN_OUT.le.JMAX_IN)) THEN\n             JMAX_TMP = MIN(JMAX_IN,JMAX_OUT)\n             JMIN_TMP = MAX(JMIN_IN,JMIN_OUT)\n             JDIF_TMP = SIN( JMAX_TMP * PI_180 ) &\n                      - SIN( JMIN_TMP * PI_180 )\n             IF (IS_SAFE_DIV(JDIF_TMP,JDIF_OUT)) THEN\n                JRATIO = JDIF_TMP/JDIF_OUT\n                State_Chm%UCX_REGRID(JOUT,JIN) = JRATIO\n                DEG_SUM = DEG_SUM + JRATIO\n             ENDIF\n          ENDIF\n       ENDDO\n       ! Normalize\n       IF (DEG_SUM.gt.0e+0_fp) THEN\n          DO JIN=1,UCX_NLAT\n             State_Chm%UCX_REGRID(JOUT,JIN) = State_Chm%UCX_REGRID(JOUT,JIN)/DEG_SUM\n          ENDDO\n       ELSE\n          State_Chm%UCX_REGRID(JOUT,:) = 0e+0_fp\n       ENDIF\n\n       !! Debug\n       !IF ( Input_Opt%Verbose ) THEN\n       !   WRITE(DBGMSG,'(a,I03,a,3(F6.2,x))') '### UCX: Exgrid: J-', &\n       !     JOUT, '->',JMIN_OUT,JMAX_OUT,JDIF_OUT\n       !   CALL DEBUG_MSG( TRIM(DBGMSG) )\n       !   WRITE(DBGMSG,'(a,I03,a,F6.2)') '### UCX: Regrid: J-', &\n       !     JOUT, '->',DEG_SUM\n       !   CALL DEBUG_MSG( TRIM(DBGMSG) )\n       !ENDIF\n    ENDDO\n\n    ! Initialize State_Chm%NOXCOEFF arrays\n    CALL NOXCOEFF_INIT( Input_Opt, State_Grid, State_Chm )\n\n  END SUBROUTINE INIT_UCX\n!EOC\nEND MODULE UCX_MOD\n"
  },
  {
    "path": "GeosCore/uvalbedo_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: uvalbedo_mod.F90\n!\n! !DESCRIPTION: Module UVALBEDO\\_MOD contains variables and routines for\n!  reading the UV Albedo data.  This data is required by the FAST-JX photolysis\n!  module.  UV albedo data will now be obtained from the HEMCO data structure.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE UValbedo_Mod\n!\n! !USES:\n!\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Get_UValbedo\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  Herman, J.R and Celarier, E.A., \"Earth surface reflectivity climatology\n!    at 340-380 nm from TOMS data\", __J. Geophys. Res__, Vol. 102, D23,\n!    pp. 28003-28011, Dec 20, 1997.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_uvalbedo\n!\n! !DESCRIPTION: Copies the UV Albedo data from the HEMCO data structure\n!  into the State\\_Met derived type object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_UValbedo( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_Utilities_GC_Mod, ONLY : HCO_GC_EvalFld\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Met_Mod,        ONLY : MetState\n    USE State_Grid_Mod,       ONLY : GrdState\n!\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !=======================================================================\n    ! READ_UVALBEDO begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Get_UValbedo (in GeosCore/uvalbedo_mod.F90)'\n\n    ! Skip unless we are doing a fullchem or aerosol-only simulation\n    IF ( ( .not. Input_Opt%ITS_A_FULLCHEM_SIM ) .and. &\n         ( .not. Input_Opt%ITS_AN_AEROSOL_SIM ) ) THEN\n       RETURN\n    ENDIF\n\n    ! Evalulate the UV albedo from HEMCO\n    CALL HCO_GC_EvalFld( Input_Opt, State_Grid, 'UV_ALBEDO', State_Met%UVALBEDO, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not find UV_ALBEDO in HEMCO data list!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Get_UValbedo\n!EOC\nEND MODULE UValbedo_Mod\n"
  },
  {
    "path": "GeosCore/vdiff_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: vdiff_mod.F90\n!\n! !DESCRIPTION: Module VDIFF\\_MOD includes all routines for the non-local PBL\n!  mixing scheme.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Vdiff_Mod\n!\n! !USES:\n!\n  USE Error_Mod,     ONLY : Debug_Msg\n  USE PhysConstants, ONLY : AIRMW, AVO, g0, Rd, Rv, Rdg0, VON_KARMAN\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Cleanup_Vdiff\n  PUBLIC :: Do_Vdiff\n  PUBLIC :: Init_Vdiff\n  PUBLIC :: Max_PblHt_For_Vdiff\n!\n! !REMARKS:\n!  The non-local PBL mixing routine VDIFF modifies the specific humidity,\n!  (State_Met%SPHU) field.  Therefore, we must pass State_Met as an argument\n!  to DO_PBL_MIX_2 and VDIFFDR with INTENT(INOUT).\n!                                                                             .\n! !REVISION HISTORY:\n!  (1 ) This code is modified from mo_vdiff.F90 in MOZART-2.4. (lin, 5/14/09)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  ! Physical constants\n  REAL(fp), PARAMETER   :: cpair  = 1004.64_fp\n  REAL(fp), PARAMETER   :: latvap = 2.5104e+06_fp\n  REAL(fp), PARAMETER   :: rhoh2o = 1.0e+3_fp\n  REAL(fp), PARAMETER   :: tfh2o  = 273.16_fp\n  REAL(fp), PARAMETER   :: rair   = Rd\n  REAL(fp), PARAMETER   :: rh2o   = Rv\n  REAL(fp), PARAMETER   :: g      = G0\n  REAL(fp), PARAMETER   :: gravit = g0\n  REAL(fp), PARAMETER   :: zvir   = rh2o/rair - 1.0_fp\n  REAL(fp), PARAMETER   :: cappa  = Rd/cpair\n  REAL(fp), PARAMETER   :: r_g    = Rdg0\n\n  ! PBL constants\n  REAL(fp), PARAMETER   :: betam  = 15.0_fp  ! For wind gradient expression\n  REAL(fp), PARAMETER   :: betas  = 5.0_fp   ! For surface layer gradient\n  REAL(fp), PARAMETER   :: betah  = 15.0_fp  ! For temperature gradient\n  REAL(fp), PARAMETER   :: fak    = 8.50_fp  ! For surface temperature excess\n  REAL(fp), PARAMETER   :: fakn   = 7.20_fp  ! For turbulent prandtl number\n  REAL(fp), PARAMETER   :: ricr   = 0.3_fp   ! For critical richardson number\n  REAL(fp), PARAMETER   :: sffrac = 0.1_fp   ! For surface layer fraction of BL\n  REAL(fp), PARAMETER   :: vk     = VON_KARMAN\n\n  ! Derived constants\n  REAL(fp), PARAMETER   :: ccon   = fak    * sffrac * vk\n  REAL(fp), PARAMETER   :: binm   = betam  * sffrac\n  REAL(fp), PARAMETER   :: binh   = betah  * sffrac\n  REAL(fp), PARAMETER   :: onet   = 1.0_fp / 3.0_fp\n\n  ! Options\n  LOGICAL,  PARAMETER   :: divdiff = .TRUE.\n  LOGICAL,  PARAMETER   :: arvdiff = .FALSE.\n  LOGICAL,  PARAMETER   :: pblh_ar = .TRUE.\n!\n! !PRIVATE DATA MEMBERS:\n!\n  INTEGER               :: nspcmix           ! # of species for mixing\n  INTEGER               :: plev              ! # of levels\n  INTEGER               :: plevp             ! # of level edges\n  INTEGER               :: ntopfl            ! top level to which vertical\n                                             !  diffusion is applied.\n  INTEGER               :: npbl              ! max # of levels in pbl\n  REAL(fp)              :: zkmin             ! minimum kneutral*f(ri)\n  REAL(fp), ALLOCATABLE :: ml2(:)            ! mixing lengths squared\n  REAL(fp), ALLOCATABLE :: qmincg(:)         ! min. constituent concentration\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: vdiff\n!\n! !DESCRIPTION:\n!  Subroutine vdiff is the driver routine to compute vertical diffusion of\n!  momentum, moisture, trace constituents and potential temperature.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine vdiff( lat,        ip,        uwnd,       vwnd,                 &\n                    tadv,       pmid,      pint,       rpdel_arg,            &\n                    rpdeli_arg, ztodt,     zm_arg,     shflx_arg,            &\n                    sflx,       thp_arg,   pblh_arg,                         &\n                    kvh_arg,    kvm_arg,   tpert_arg,  qpert_arg,            &\n                    cgs_arg,    shp,       wvflx_arg,  plonl,                &\n                    Input_Opt,  State_Met, State_Grid, State_Chm,            &\n                    State_Diag, taux_arg,   tauy_arg,  ustar_arg,  RC        )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,          ONLY : IS_SAFE_DIV\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Grid_Mod,     ONLY : GrdState\n\n    implicit none\n!\n! !INPUT PARAMETERS:\n!\n    integer, intent(in) :: lat, ip ! latitude index, long tile index\n    integer, intent(in) :: plonl   ! number of local longitudes\n    real(fp),  intent(in) ::   &\n         ztodt                     ! 2 delta-t\n    real(fp),  intent(in) ::   &\n         uwnd(:,:,:),        &     ! u wind input\n         vwnd(:,:,:),        &     ! v wind input\n         tadv(:,:,:),        &     ! temperature input\n         pmid(:,:,:),        &     ! midpoint pressures\n         pint(:,:,:),        &     ! interface pressures\n         rpdel_arg(:,:,:),   &     ! 1./pdel  (thickness bet interfaces)\n         rpdeli_arg(:,:,:),  &     ! 1./pdeli (thickness bet midpoints)\n         zm_arg(:,:,:),      &     ! midpoint geoptl height above sfc\n         shflx_arg(:,:),     &     ! surface sensible heat flux (w/m2)\n         sflx(:,:,:),        &     ! surface constituent flux (kg/m2/s)\n         wvflx_arg(:,:)            ! water vapor flux (kg/m2/s)\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    real(fp), intent(inout) :: &\n         shp(:,:,:),         &     ! specific humidity (kg/kg)\n         thp_arg(:,:,:)            ! pot temp after vert. diffusion\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n\n    real(fp), optional, intent(inout) :: &\n         taux_arg(:,:),      &     ! x surface stress (n)\n         tauy_arg(:,:),      &     ! y surface stress (n)\n         ustar_arg(:,:)            ! surface friction velocity\n\n    real(fp), intent(inout) :: pblh_arg(:,:) ! boundary-layer height [m]\n\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,  INTENT(OUT) :: RC\n    real(fp), intent(out) :: &\n         kvh_arg(:,:,:),     &     ! coefficient for heat and tracers\n         kvm_arg(:,:,:),     &     ! coefficient for momentum\n         tpert_arg(:,:),     &     ! convective temperature excess\n         qpert_arg(:,:),     &     ! convective humidity excess\n         cgs_arg(:,:,:)            ! counter-grad star (cg/flux)\n!\n! !REMARKS:\n!  Free atmosphere diffusivities are computed first; then modified by the\n!  boundary layer scheme; then passed to individual parameterizations mvdiff,\n!  qvdiff.\n!\n!  The free atmosphere diffusivities are based on standard mixing length forms\n!  for the neutral diffusivity multiplied by functions of Richardson number.\n!  k = l^2 * |dv/dz| * f(ri). The same functions are used for momentum,\n!  potential temperature, and constitutents.\n!\n!  The stable Richardson num function (ri>0) is taken from Holtslag and\n!  Beljaars (1989), ECMWF proceedings. f = 1 / (1 + 10*ri*(1 + 8*ri)).\n!  The unstable richardson number function (ri<0) is taken from ccm1.\n!  f = sqrt(1 - 18*ri)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: &\n         i, &                   ! longitude index\n         k, l, &                ! vertical index\n         m                      ! constituent index\n    integer :: &\n         indx(plonl), &         ! array of indices of potential q<0\n         nval, &                ! num of values which meet criteria\n         ii                     ! longitude index of found points\n    real(fp) :: &\n         dvdz2 , &                 ! (du/dz)**2 + (dv/dz)**2\n         dz , &                    ! delta z between midpoints\n         fstab , &                 ! stable f(ri)\n         funst , &                 ! unstable f(ri)\n         rinub, &                  ! richardson no=(g/theta)(dtheta/dz)/\n                                   !               (du/dz**2+dv/dz**2)\n         sstab, &                  ! static stability = g/th  * dth/dz\n         kvn, &                    ! neutral kv\n         tmp2, &                   ! temporary storage\n         rcpair, &                 ! 1./cpair\n         ztodtgor, &               ! ztodt*gravit/rair\n         gorsq                     ! (gravit/rair)**2\n    real(fp) :: &\n         cah(plonl,plev), &        ! -upper diag for heat and constituts\n         cam(plonl,plev), &        ! -upper diagonal for momentum\n         cch(plonl,plev), &        ! -lower diag for heat and constits\n         ccm(plonl,plev), &        ! -lower diagonal for momentum\n         cgh(plonl,plevp), &       ! countergradient term for heat\n         cgq(plonl,plevp,nspcmix),&! countergrad term for constituent\n         cgsh(plonl,plevp), &      ! countergrad term for sh\n         kvf(plonl,plevp)          ! free atmosphere kv at interfaces\n    real(fp) :: &\n         potbar(plonl,plevp), &    ! pintm1(k)/(.5*(tm1(k)+tm1(k-1))\n         tmp1(plonl), &            ! temporary storage\n         dubot(plonl), &           ! lowest layer u change from stress\n         dvbot(plonl), &           ! lowest layer v change from stress\n         dtbot(plonl), &           ! lowest layer t change from heat flx\n         dqbot(plonl,nspcmix), &   ! lowest layer q change from const flx\n         dshbot(plonl), &          ! lowest layer sh change from wvflx\n         thx(plonl,plev), &        ! temperature input + counter gradient\n         thv(plonl,plev), &        ! virtual potential temperature\n         qmx(plonl,plev,nspcmix), &! constituents input + counter grad\n         shmx(plonl,plev), &       ! sh input + counter grad\n         zeh(plonl,plev), &        ! term in tri-diag. matrix system (t & q)\n         zem(plonl,plev), &        ! term in tri-diag. matrix system (momentum)\n         termh(plonl,plev), &      ! 1./(1.+cah(k) + cch(k) - cch(k)*zeh(k-1))\n         termm(plonl,plev)         ! 1./(1.+cam(k) + ccm(k) - ccm(k)*zem(k-1))\n    logical :: adjust(plonl)\n\n    real(fp) :: &\n         um1(plonl,plev), &        ! u wind input\n         vm1(plonl,plev), &        ! v wind input\n         tm1(plonl,plev), &        ! temperature input\n         pmidm1(plonl,plev), &     ! midpoint pressures\n         pintm1(plonl,plevp), &    ! interface pressures\n         rpdel(plonl,plev), &      ! 1./pdel  (thickness bet interfaces)\n         rpdeli(plonl,plev), &     ! 1./pdeli (thickness bet midpoints)\n         zm(plonl,plev), &         ! midpoint geoptl height above sfc\n         shflx(plonl), &           ! surface sensible heat flux (w/m2)\n         cflx(plonl,nspcmix), &    ! surface constituent flux (kg/m2/s)\n         wvflx(plonl)              ! water vapor flux (kg/m2/s)\n    real(fp) :: &\n         qp1(plonl,plev,nspcmix), &! moist, tracers after vert. diff\n         shp1(plonl,plev), &       ! specific humidity (kg/kg)\n         thp(plonl,plev)           ! pot temp after vert. diffusion\n    real(fp) :: &\n         kvh(plonl,plevp), &       ! coefficient for heat and tracers\n         kvm(plonl,plevp), &       ! coefficient for momentum\n         tpert(plonl), &           ! convective temperature excess\n         qpert(plonl), &           ! convective humidity excess\n         cgs(plonl,plevp)          ! counter-grad star (cg/flux)\n\n    real(fp) :: &\n        taux(plonl), &             ! x surface stress (n)\n        tauy(plonl), &             ! y surface stress (n)\n        ustar(plonl)               ! surface friction velocity\n\n    real(fp) :: pblh(plonl)             ! boundary-layer height [m]\n\n    real(fp) :: qp0(plonl,plev,nspcmix) ! To store initial concentration values\n\n    real(fp) :: sum_qp0, sum_qp1        ! Jintai Lin 20180809\n\n    INTEGER           :: L_REVERSE\n    REAL(fp), POINTER :: Conc(:,:,:)\n\n    !=================================================================\n    ! vdiff begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Zero/initialize local variables for safety's sake\n    indx     = 0\n    adjust   = .FALSE.\n    sum_qp0  = 0.0_fp\n    sum_qp1  = 0.0_fp\n    cah      = 0.0_fp\n    cam      = 0.0_fp\n    cch      = 0.0_fp\n    ccm      = 0.0_fp\n    cgh      = 0.0_fp\n    cgq      = 0.0_fp\n    cgs      = 0.0_fp\n    cgsh     = 0.0_fp\n    kvf      = 0.0_fp\n    potbar   = 0.0_fp\n    tmp1     = 0.0_fp\n    dubot    = 0.0_fp\n    dvbot    = 0.0_fp\n    dtbot    = 0.0_fp\n    dqbot    = 0.0_fp\n    dshbot   = 0.0_fp\n    thx      = 0.0_fp\n    thv      = 0.0_fp\n    qmx      = 0.0_fp\n    shmx     = 0.0_fp\n    zeh      = 0.0_fp\n    zem      = 0.0_fp\n    termh    = 0.0_fp\n    termm    = 0.0_fp\n    taux     = 0.0_fp\n    tauy     = 0.0_fp\n    ustar    = 0.0_fp\n    qp0      = 0.0_fp\n    um1      = uwnd(:,lat,:)\n    vm1      = vwnd(:,lat,:)\n    tm1      = tadv(:,lat,:)\n    pmidm1   = pmid(:,lat,:)\n    pintm1   = pint(:,lat,:)\n    rpdel    = rpdel_arg(:,lat,:)\n    rpdeli   = rpdeli_arg(:,lat,:)\n    zm       = zm_arg(:,lat,:)\n    shflx    = shflx_arg(:,lat)\n    cflx     = sflx(:,lat,:)\n    wvflx    = wvflx_arg(:,lat)\n!ewl    qp1      = as2(:,lat,:,:)\n!ewl    qp0      = as2(:,lat,:,:)\n    shp1     = shp(:,lat,:)\n    thp      = thp_arg(:,lat,:)\n    kvh      = kvh_arg(:,lat,:)\n    kvm      = kvm_arg(:,lat,:)\n    tpert    = tpert_arg(:,lat)\n    qpert    = qpert_arg(:,lat)\n    cgs      = cgs_arg(:,lat,:)\n    pblh     = pblh_arg(:,lat)\n\n    !### Debug\n    IF ( Input_Opt%Verbose .and. ip < 5 .and. lat < 5 ) &\n         CALL DEBUG_MSG( '### VDIFF: vdiff begins' )\n\n    IF (PRESENT(taux_arg )) taux  = taux_arg(:,lat)\n    IF (PRESENT(tauy_arg )) tauy  = tauy_arg(:,lat)\n    IF (PRESENT(ustar_arg)) ustar = ustar_arg(:,lat)\n\n    ! Set initial species concentrations\n    !$OMP PARALLEL DO                                                         &\n    !$OMP DEFAULT( SHARED                                                    )&\n    !$OMP PRIVATE( M, L, I, Conc, L_REVERSE                                  )\n    DO M = 1, nspcmix\n\n       ! Point to the species concentrations\n       Conc => State_Chm%Species(M)%Conc\n\n       ! Loop over levels (and pull out the computation\n       ! of the level in reverse order, for efficiency)\n       DO L = 1, plev\n          L_REVERSE = plev - L + 1\n\n          ! Tell OpenMP to vectorize this loop\n          !$OMP SIMD\n          DO I = 1, plonl\n             qp1(I,L,M) = Conc(I,lat,L_REVERSE)\n             qp0(I,L,M) = Conc(I,lat,L_REVERSE)\n          ENDDO\n       ENDDO\n\n       ! Free pointer\n       Conc => NULL()\n    ENDDO\n    !$OMP END PARALLEL DO\n\n! resume...\n\n!-----------------------------------------------------------------------\n! \t... convert the surface fluxes to lowest level tendencies\n!-----------------------------------------------------------------------\n    rcpair = 1.0_fp/cpair\n    do i = 1,plonl\n       tmp1(i)      = ztodt*gravit*rpdel(i,plev)\n       ! simplified treatment -- dubot and dvbot are not used under current PBL scheme, anyway\n!ccc       if (present(taux) .and. present(tauy)) then\n       if (present(taux_arg) .and. present(tauy_arg)) then\n          dubot(i)     = taux(i)*tmp1(i)\n          dvbot(i)     = tauy(i)*tmp1(i)\n       endif\n       dshbot(i)    = wvflx(i)*tmp1(i)\n       dtbot(i)     = shflx(i)*tmp1(i)*rcpair\n       kvf(i,plevp) = 0.0_fp\n    end do\n    do m = 1,nspcmix\n       dqbot(:plonl,m) = cflx(:plonl,m)*tmp1(:plonl)\n    end do\n\n!      !### Debug\n    IF ( Input_Opt%Verbose .and. ip < 5 .and. lat < 5 ) &\n         CALL DEBUG_MSG( '### VDIFF: diffusion begins' )\n\n!-----------------------------------------------------------------------\n! \t... set the vertical diffusion coefficient above the top diffusion level\n!-----------------------------------------------------------------------\n    do k = 1,ntopfl\n       kvf(:plonl,k) = 0.0_fp\n    end do\n\n!-----------------------------------------------------------------------\n! \t... compute virtual potential temperature for use in static stability\n!           calculation.  0.61 is 1. - r(water vapor)/r(dry air).  use 0.61 instead\n!           of a computed variable in order to obtain an identical simulation to\n!           case 414.\n!-----------------------------------------------------------------------\n!      call virtem( thp, shp1, thv, plonl )\n    do k = 1,plev\n       thv(:,k) = thp(:,k)*(1. + zvir*shp1(:,k))\n    end do\n\n!      !### Debug\n    IF ( Input_Opt%Verbose .and. ip < 5 .and. lat < 5 ) &\n         CALL DEBUG_MSG( '### VDIFF: compute free atmos. diffusion' )\n\n!-----------------------------------------------------------------------\n! \t... compute the free atmosphere vertical diffusion coefficients\n!           kvh = kvq = kvm.\n!-----------------------------------------------------------------------\n    do k = ntopfl,plev-1\n       do i = 1,plonl\n!-----------------------------------------------------------------------\n! \t... vertical shear squared, min value of (delta v)**2 prevents zero shear.\n!-----------------------------------------------------------------------\n          dvdz2 = (um1(i,k) - um1(i,k+1))**2 + &\n                 (vm1(i,k) - vm1(i,k+1))**2\n          dvdz2 = max( dvdz2,1.e-36_fp )\n          dz    = zm(i,k) - zm(i,k+1)\n          dvdz2 = dvdz2/(dz**2)\n!-----------------------------------------------------------------------\n! \t... static stability (use virtual potential temperature)\n!-----------------------------------------------------------------------\n          sstab = gravit*2.0_fp*(thv(i,k) - thv(i,k+1))/((thv(i,k) &\n                 + thv(i,k+1))*dz)\n!-----------------------------------------------------------------------\n! \t... richardson number, stable and unstable modifying functions\n!-----------------------------------------------------------------------\n          rinub = sstab/dvdz2\n          fstab = 1.0_fp/(1.0_fp + 10.0_fp*rinub*(1.0_fp &\n                                 + 8.0_fp*rinub))\n          funst = max( 1.0_fp - 18.0_fp*rinub,0.0_fp )\n!-----------------------------------------------------------------------\n! \t... select the appropriate function of the richardson number\n!-----------------------------------------------------------------------\n          if( rinub < 0.0_fp ) then\n             fstab = sqrt( funst )\n          end if\n!-----------------------------------------------------------------------\n! \t... neutral diffusion coefficient\n!           compute mixing length (z), where z is the interface height estimated\n!           with an 8 km scale height.\n!-----------------------------------------------------------------------\n          kvn = ml2(k)*sqrt( dvdz2 )\n!-----------------------------------------------------------------------\n! \t... full diffusion coefficient (modified by f(ri)),\n!-----------------------------------------------------------------------\n          kvf(i,k+1) = max( zkmin,kvn*fstab )\n       end do\n    end do\n\n    !### Debug\n    IF ( Input_Opt%Verbose .and. ip < 5 .and. lat < 5 ) &\n         CALL DEBUG_MSG( '### VDIFF: pbldif begins' )\n\n!-----------------------------------------------------------------------\n! \t... determine the boundary layer kvh (=kvq), kvm,\n!           counter gradient terms (cgh, cgq, cgs)\n!           boundary layer height (pblh) and\n!           the perturbation temperature and moisture (tpert and qpert)\n!           the free atmosphere kv is returned above the boundary layer top.\n!-----------------------------------------------------------------------\n\n    ! ustar must always be inputted\n!ccc    if (present(taux) .and. present(tauy)) then\n    if (present(taux_arg) .and. present(tauy_arg)) then\n       call pbldif( thp, shp1, zm, um1, vm1, &\n                    tm1, pmidm1, kvf, cflx, shflx, &\n                    kvm, kvh, &\n                    cgh, cgq, cgs, pblh, tpert, qpert, &\n                    wvflx, cgsh, plonl, &\n                    taux=taux, tauy=tauy, ustar=ustar )\n    else\n       call pbldif( thp, shp1, zm, um1, vm1, &\n                    tm1, pmidm1, kvf, cflx, shflx, &\n                    kvm, kvh, &\n                    cgh, cgq, cgs, pblh, tpert, qpert, &\n                    wvflx, cgsh, plonl, ustar=ustar )\n    endif\n\n    !### Debug\n    IF ( Input_Opt%Verbose .and. ip < 5 .and. lat < 5 ) &\n         CALL DEBUG_MSG( '### VDIFF: after pbldif' )\n\n!-----------------------------------------------------------------------\n! \t... add the counter grad terms to potential temp, specific humidity\n!           and other constituents in the bdry layer. note, npbl gives the max\n!           num of levels which are permitted to be within the boundary layer.\n!-----------------------------------------------------------------------\n!-----------------------------------------------------------------------\n! \t... first set values above boundary layer\n!-----------------------------------------------------------------------\n    do k = 1,plev-npbl\n       do i = 1,plonl\n          thx(i,k)  = thp(i,k)\n          shmx(i,k) = shp1(i,k)\n       end do\n       do m = 1,nspcmix\n          do i = 1,plonl\n             qmx(i,k,m) = qp1(i,k,m)\n          end do\n       end do\n    end do\n    do k = 2,plev\n       do i = 1,plonl\n          potbar(i,k) = pintm1(i,k)/(0.5_fp*(tm1(i,k) + tm1(i,k-1)))\n       end do\n    end do\n    do i = 1,plonl\n       potbar(i,plevp) = pintm1(i,plevp)/tm1(i,plev)\n    end do\n\n!-----------------------------------------------------------------------\n! \t... now focus on the boundary layer\n!-----------------------------------------------------------------------\n    ztodtgor = ztodt*gravit/rair\n    do k = plev-npbl+1,plev\n       do i = 1,plonl\n          tmp1(i) = ztodtgor*rpdel(i,k)\n          thx(i,k) = thp(i,k) + tmp1(i) &\n                     *(potbar(i,k+1)*kvh(i,k+1)*cgh(i,k+1) &\n                     - potbar(i,k)*kvh(i,k)*cgh(i,k))\n          shmx(i,k) = shp1(i,k) + tmp1(i) &\n                      *(potbar(i,k+1)*kvh(i,k+1)*cgsh(i,k+1) &\n                      - potbar(i,k)*kvh(i,k)*cgsh(i,k))\n       end do\n       do m = 1,nspcmix\n          do i = 1,plonl\n             qmx(i,k,m) = qp1(i,k,m) + tmp1(i) &\n                          *(potbar(i,k+1)*kvh(i,k+1)*cgq(i,k+1,m) &\n                          - potbar(i,k)*kvh(i,k)*cgq(i,k,m))\n          end do\n       end do\n    end do\n\n!-----------------------------------------------------------------------\n! \t... check for neg qs in each constituent and put the original vertical\n!           profile back if a neg value is found. a neg value implies that the\n!           quasi-equilibrium conditions assumed for the countergradient term are\n!           strongly violated.\n!-----------------------------------------------------------------------\n    do m = 1,nspcmix\n       adjust(:plonl) = .false.\n       do k = plev-npbl+1,plev\n          do i = 1,plonl\n             if( qmx(i,k,m) < qmincg(m) ) then\n                adjust(i) = .true.\n             end if\n          end do\n       end do\n!-----------------------------------------------------------------------\n! \t... find long indices of those columns for which negatives were found\n!-----------------------------------------------------------------------\n       nval = count( adjust(:plonl) )\n!-----------------------------------------------------------------------\n! \t... replace those columns with original values\n!-----------------------------------------------------------------------\n       if( nval > 0 ) then\n          do k = plev-npbl+1,plev\n             where( adjust(:plonl) )\n                qmx(:plonl,k,m) = qp1(:plonl,k,m)\n             endwhere\n          end do\n       end if\n    end do\n\n!-----------------------------------------------------------------------\n! \t... repeat above for sh\n!-----------------------------------------------------------------------\n    adjust(:plonl) = .false.\n    do k = plev-npbl+1,plev\n       do i = 1,plonl\n!-----------------------------------------------------------------------\n! \t... 1.e-12 is the value of qmin (=qmincg) used in ccm2.\n!-----------------------------------------------------------------------\n          if( shmx(i,k) < 1.0e-12_fp ) then\n             adjust(i) = .true.\n          end if\n       end do\n    end do\n!-----------------------------------------------------------------------\n! \t... find long indices of those columns for which negatives were found\n!-----------------------------------------------------------------------\n    nval = count( adjust(:plonl) )\n!-----------------------------------------------------------------------\n! \t... replace those columns with original values\n!-----------------------------------------------------------------------\n    if( nval > 0 ) then\n       do k = plev-npbl+1,plev\n          where( adjust(:plonl) )\n             shmx(:plonl,k) = shp1(:plonl,k)\n          endwhere\n       end do\n    end if\n\n!-----------------------------------------------------------------------\n! \t... determine superdiagonal (ca(k)) and subdiagonal (cc(k)) coeffs\n!           of the tridiagonal diffusion matrix. the diagonal elements are a\n!           combination of ca and cc; they are not explicitly provided to the\n!           solver\n!-----------------------------------------------------------------------\n\n    gorsq = (gravit/rair)**2\n    do k = ntopfl,plev-1\n       do i = 1,plonl\n          tmp2 = ztodt*gorsq*rpdeli(i,k)*(potbar(i,k+1)**2)\n          cah(i,k  ) = kvh(i,k+1)*tmp2*rpdel(i,k  )\n          cam(i,k  ) = kvm(i,k+1)*tmp2*rpdel(i,k  )\n          cch(i,k+1) = kvh(i,k+1)*tmp2*rpdel(i,k+1)\n          ccm(i,k+1) = kvm(i,k+1)*tmp2*rpdel(i,k+1)\n       end do\n    end do\n\n!-----------------------------------------------------------------------\n! \t... the last element of the upper diagonal is zero.\n!-----------------------------------------------------------------------\n    do i = 1,plonl\n       cah(i,plev) = 0.0_fp\n       cam(i,plev) = 0.0_fp\n    end do\n\n!-----------------------------------------------------------------------\n! \t... calculate e(k) for heat & momentum vertical diffusion.  this term is\n!           required in solution of tridiagonal matrix defined by implicit diffusion eqn.\n!-----------------------------------------------------------------------\n    do i = 1,plonl\n       termh(i,ntopfl) = 1.0_fp/(1.0_fp + cah(i,ntopfl))\n       termm(i,ntopfl) = 1.0_fp/(1.0_fp + cam(i,ntopfl))\n       zeh(i,ntopfl)   = cah(i,ntopfl)*termh(i,ntopfl)\n       zem(i,ntopfl)   = cam(i,ntopfl)*termm(i,ntopfl)\n    end do\n    do k = ntopfl+1,plev-1\n       do i = 1,plonl\n! Suspect that these lines lead to numerical instability\n!         termh(i,k) = 1.e+0_fp/(1.e+0_fp + cah(i,k) + cch(i,k) &\n!                     - cch(i,k)*zeh(i,k-1))\n!         termm(i,k) = 1.e+0_fp/(1.e+0_fp + cam(i,k) + ccm(i,k) &\n!                     - ccm(i,k)*zem(i,k-1))\n          termh(i,k) =                                                       &\n            1.0_fp / ( 1.0_fp + cah(i,k) + cch(i,k)*( 1.0_fp - zeh(i,k-1) ) )\n          termm(i,k) =                                                       &\n            1.0_fp / ( 1.0_fp + cam(i,k) + ccm(i,k)*( 1.0_fp - zem(i,k-1) ) )\n          zeh(i,k)   = cah(i,k)*termh(i,k)\n          zem(i,k)   = cam(i,k)*termm(i,k)\n       end do\n    end do\n\n    !### Debug\n    IF ( Input_Opt%Verbose .and. ip < 5 .and. lat < 5 ) &\n         CALL DEBUG_MSG( '### VDIFF: starting diffusion' )\n\n!-----------------------------------------------------------------------\n! \t... diffuse constituents\n!-----------------------------------------------------------------------\n\n    call qvdiff( nspcmix, qmx, dqbot, cch, zeh, &\n\t         termh, qp1, plonl )\n\n!-----------------------------------------------------------------------\n! \t... identify and correct constituents exceeding user defined bounds\n!-----------------------------------------------------------------------\n!      call qneg3( 'vdiff   ', lat, qp1, plonl )\n! just use a simplified treatment\n    where (qp1 < 0.0_fp)\n       qp1 = 0.0_fp\n    endwhere\n\n!-----------------------------------------------------------------------\n! Simple bug fix to ensure mass conservation - Jintai Lin 20180809\n!   Without this fix, mass is almost but not completed conserved,\n!   which is OK for full chemistry simulations but a big problem\n!   for long lived species such as CH4 and CO2\n!-----------------------------------------------------------------------\n    DO M = 1, nspcmix\n    do I = 1, plonl\n\n       ! total mass in the PBL (ignoring the v/v -> m/m conversion)\n       !   including pre-mixing mass and surface flux (emis+drydep)\n       sum_qp0 = sum(qp0(I,ntopfl:plev,M) * &\n                 State_Met%AD(I,lat,plev-ntopfl+1:1:-1)) &\n               + (cflx(I,M) * State_Grid%AREA_M2(I,lat) * ztodt)\n\n       ! total mass in the PBL (ignoring the v/v -> m/m conversion)\n       sum_qp1 = sum(qp1(I,ntopfl:plev,M) * &\n                 State_Met%AD(I,lat,plev-ntopfl+1:1:-1))\n\n       IF ( IS_SAFE_DIV( sum_qp0, sum_qp1 ) ) THEN\n          qp1(I,ntopfl:plev,M) = qp1(I,ntopfl:plev,M) * &\n                                 sum_qp0 / sum_qp1\n       ENDIF\n\n    enddo\n    ENDDO\n\n!-----------------------------------------------------------------------\n! \t... diffuse sh\n!-----------------------------------------------------------------------\n\n    call qvdiff( 1, shmx, dshbot, cch, zeh, &\n\t         termh, shp1, plonl )\n\n!-----------------------------------------------------------------------\n! \t... correct sh\n!-----------------------------------------------------------------------\n!      call shneg( 'vdiff:sh', lat, shp1, plonl )\n! just use a simplified treatment\n    where (shp1 < 1.d-12)\n       shp1 = 0.0_fp\n    endwhere\n\n!-----------------------------------------------------------------------\n! \t... diffuse potential temperature\n!-----------------------------------------------------------------------\n    call qvdiff( 1, thx, dtbot, cch, zeh, &\n\t         termh, thp, plonl )\n\n    !Output values from local variables to arguments.(ccc, 11/17/09)\n    shp(:,lat,:)     = shp1\n    thp_arg(:,lat,:) = thp\n    kvh_arg(:,lat,:) = kvh\n    kvm_arg(:,lat,:) = kvm\n    tpert_arg(:,lat) = tpert\n    qpert_arg(:,lat) = qpert\n    cgs_arg(:,lat,:)   = cgs\n    pblh_arg(:,lat)  = pblh\n\n    IF (PRESENT(taux_arg )) taux_arg(:,lat)  = taux\n    IF (PRESENT(tauy_arg )) tauy_arg(:,lat)  = tauy\n    IF (PRESENT(ustar_arg)) ustar_arg(:,lat) = ustar\n\n    ! Set species concentrations\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( M, L, I                                                  )&\n    !$OMP COLLAPSE( 3                                                       )\n    DO M = 1, nspcmix\n    DO L = 1, plev\n    DO I = 1, plonl\n       State_Chm%Species(M)%Conc(I,lat,L) = qp1(I,plev-L+1,M)\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  end subroutine vdiff\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: pbldif\n!\n! !DESCRIPTION: Subroutine PBLDIF computes the atmospheric boundary layer.\n!  The nonlocal scheme determines eddy diffusivities based on a diagnosed\n!  boundary layer height and a turbulent velocity scale. Also, countergradient\n!  effects for heat and moisture, and constituents are included, along with\n!  temperature and humidity perturbations which measure the strength of\n!  convective thermals in the lower part of the atmospheric boundary layer.\n!\\\\\n!\\\\\n! References:\n!\n!  \\begin{enumerate}\n!  \\item Holtslag, A. A. M., and B. A. Boville, 1993: \\emph{Local versus\n!         nonlocal boundary-layer diffusion in a global climate model},\n!         \\underline{J. Clim.}, \\textbf{6}, 1825-1842.\n!  \\end{enumerate}\n!\n! !INTERFACE:\n!\n  subroutine pbldif( th      ,q       ,z       ,u       ,v, &\n                     t       ,pmid    ,kvf     ,cflx    ,shflx, &\n                     kvm     ,kvh, &\n                     cgh     ,cgq     ,cgs     ,pblh    ,tpert, &\n                     qpert   ,wvflx   ,cgsh    ,plonl, &\n                     taux    ,tauy    ,ustar )\n!\n! !USES:\n!\n    implicit none\n!\n! !INPUT PARAMETERS:\n!\n    integer, intent(in) :: &\n\t plonl\n    real(fp), intent(in) :: &\n         th(plonl,plev), &          ! potential temperature [k]\n         q(plonl,plev), &           ! specific humidity [kg/kg]\n         z(plonl,plev), &           ! height above surface [m]\n         u(plonl,plev), &           ! windspeed x-direction [m/s]\n         v(plonl,plev), &           ! windspeed y-direction [m/s]\n         t(plonl,plev), &           ! temperature (used for density)\n         pmid(plonl,plev), &        ! midpoint pressures\n         kvf(plonl,plevp), &        ! free atmospheric eddy diffsvty [m2/s]\n         cflx(plonl,nspcmix), &     ! surface constituent flux (kg/m2/s)\n         wvflx(plonl), &            ! water vapor flux (kg/m2/s)\n         shflx(plonl)               ! surface heat flux (w/m2)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    real(fp), optional, intent(inout) :: &\n         taux(plonl), &            ! x surface stress (n)\n         tauy(plonl), &            ! y surface stress (n)\n         ustar(plonl)              ! surface friction velocity\n\n    real(fp), intent(inout) :: pblh(plonl)       ! boundary-layer height [m]\n!\n! !OUTPUT PARAMETERS:\n!\n    real(fp), intent(out) :: &\n         kvm(plonl,plevp), &        ! eddy diffusivity for momentum [m2/s]\n         kvh(plonl,plevp), &        ! eddy diffusivity for heat [m2/s]\n         cgh(plonl,plevp), &        ! counter-gradient term for heat [k/m]\n         cgq(plonl,plevp,nspcmix), &! counter-gradient term for constituents\n         cgsh(plonl,plevp), &       ! counter-gradient term for sh\n         cgs(plonl,plevp), &        ! counter-gradient star (cg/flux)\n         tpert(plonl), &            ! convective temperature excess\n         qpert(plonl)               ! convective humidity excess\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real(fp), parameter :: tiny = 1.0e-20_fp  !e-36    ! lower bound for wind magnitude\n\n    integer :: &\n         i, &                 ! longitude index\n         k, &                 ! level index\n         m                    ! constituent index\n    logical :: &\n         unstbl(plonl), &     ! pts w/unstbl pbl (positive virtual ht flx)\n         stblev(plonl), &     ! stable pbl with levels within pbl\n         unslev(plonl), &     ! unstbl pbl with levels within pbl\n         unssrf(plonl), &     ! unstb pbl w/lvls within srf pbl lyr\n         unsout(plonl), &     ! unstb pbl w/lvls in outer pbl lyr\n         check(plonl)         ! true=>chk if richardson no.>critcal\n    real(fp) :: &\n         heatv(plonl), &         ! surface virtual heat flux\n         thvsrf(plonl), &        ! sfc (bottom) level virtual temperature\n         thvref(plonl), &        ! reference level virtual temperature\n         tkv, &                  ! model level potential temperature\n         therm(plonl), &         ! thermal virtual temperature excess\n         phiminv(plonl), &       ! inverse phi function for momentum\n         phihinv(plonl), &       ! inverse phi function for heat\n         wm(plonl), &            ! turbulent velocity scale for momentum\n         vvk, &                  ! velocity magnitude squared\n         zm(plonl), &            ! current level height\n         zp(plonl), &            ! current level height + one level up\n         khfs(plonl), &          ! surface kinematic heat flux [mk/s]\n         kqfs(plonl,nspcmix), &  ! sfc kinematic constituent flux [m/s]\n         kshfs(plonl), &         ! sfc kinematic moisture flux [m/s]\n         zmzp                    ! level height halfway between zm and zp\n    real(fp) :: &\n         rino(plonl,plev), &     ! bulk richardson no. from level to ref lev\n         tlv(plonl), &           ! ref. level pot tmp + tmp excess\n         fak1(plonl), &          ! k*ustar*pblh\n         fak2(plonl), &          ! k*wm*pblh\n         fak3(plonl), &          ! fakn*wstr/wm\n         pblk(plonl), &          ! level eddy diffusivity for momentum\n         pr(plonl), &            ! prandtl number for eddy diffusivities\n         zl(plonl), &            ! zmzp / obukhov length\n         zh(plonl), &            ! zmzp / pblh\n         zzh(plonl), &           ! (1-(zmzp/pblh))**2\n         wstr(plonl), &          ! w*, convective velocity scale\n         rrho(plonl), &          ! 1./bottom level density (temporary)\n         obklen(plonl), &        ! obukhov length\n         ustr                    ! unbounded ustar\n    real(fp) :: &\n         term, &                 ! intermediate calculation\n         fac, &                  ! interpolation factor\n         pblmin                  ! min pbl height due to mechanical mixing\n\n    !=================================================================\n    ! pbldif begins here!\n    !=================================================================\n\n    ! Zero/initialize local variables if they are not initialized below\n    unstbl  = .FALSE.\n    stblev  = .FALSE.\n    unslev  = .FALSE.\n    unssrf  = .FALSE.\n    unsout  = .FALSE.\n    check   = .FALSE.\n    thvref  = 0.0_fp\n    tkv     = 0.0_fp\n    phiminv = 0.0_fp\n    phihinv = 0.0_fp\n    vvk     = 0.0_fp\n    zm      = 0.0_fp\n    zp      = 0.0_fp\n    khfs    = 0.0_fp\n    kqfs    = 0.0_fp\n    kshfs   = 0.0_fp\n    zmzp    = 0.0_fp\n    rino    = 0.0_fp\n    tlv     = 0.0_fp\n    fak1    = 0.0_fp\n    fak2    = 0.0_fp\n    pblk    = 0.0_fp\n    pr      = 0.0_fp\n    zl      = 0.0_fp\n    zzh     = 0.0_fp\n    wstr    = 0.0_fp\n    rrho    = 0.0_fp\n    ustr    = 0.0_fp\n    term    = 0.0_fp\n    fac     = 0.0_fp\n    pblmin  = 0.0_fp\n\n!------------------------------------------------------------------------\n! \t... compute kinematic surface fluxes\n!------------------------------------------------------------------------\n    do i = 1,plonl\n       rrho(i)  = rair*t(i,plev)/pmid(i,plev)\n       if (present(taux) .and. present(tauy)) then\n          ustr     = sqrt( sqrt( taux(i)**2 + tauy(i)**2 )*rrho(i) )\n          ustar(i) = max( ustr, 0.01_fp )\n       endif\n       khfs(i)  = shflx(i)*rrho(i)/cpair\n       kshfs(i) = wvflx(i)*rrho(i)\n    end do\n    do m = 1,nspcmix\n       kqfs(:plonl,m) = cflx(:plonl,m)*rrho(:plonl)\n    end do\n\n!------------------------------------------------------------------------\n! \t... initialize output arrays with free atmosphere values\n!------------------------------------------------------------------------\n    do k = 1,plevp\n       kvm(:,k)  = kvf(:,k)\n       kvh(:,k)  = kvf(:,k)\n       cgh(:,k)  = 0.0_fp\n       cgsh(:,k) = 0.0_fp\n       cgs(:,k)  = 0.0_fp\n    end do\n    do m = 1,nspcmix\n       do k = 1,plevp\n          cgq(:,k,m) = 0.0_fp\n       end do\n    end do\n\n!------------------------------------------------------------------------\n! \t... compute various arrays for use later:\n!------------------------------------------------------------------------\n    do i = 1,plonl\n       thvsrf(i) = th(i,plev)*(1.0_fp + 0.61_fp*q(i,plev))\n       heatv(i)  = khfs(i) + 0.61_fp*th(i,plev)*kshfs(i)\n       wm(i)     = 0.0_fp\n       therm(i)  = 0.0_fp\n       qpert(i)  = 0.0_fp\n       tpert(i)  = 0.0_fp\n       fak3(i)   = 0.0_fp\n       zh(i)     = 0.0_fp\n       obklen(i) = -thvsrf(i)*ustar(i)**3 &\n                   /(g*vk*(heatv(i) + sign( 1.0e-10_fp, heatv(i) )))\n    end do\n\n    if (pblh_ar) then  ! use archived PBLH\n\n       do i = 1,plonl\n          if( heatv(i) > 0.0_fp ) then\n             unstbl(i) = .true.\n          else\n             unstbl(i) = .false.\n          end if\n          thvref(i) = th(i,plev)*(1.0_fp + 0.61_fp*q(i,plev))\n       end do\n\n    else ! use derived PBLH\n\n!------------------------------------------------------------------------\n! \t... define first a new factor fac=100 for use in richarson number\n!           calculate virtual potential temperature first level\n!           and initialize pbl height to z1\n!------------------------------------------------------------------------\n       fac = 100.0_fp\n       do i = 1,plonl\n          thvref(i) = th(i,plev)*(1.0_fp + 0.61_fp*q(i,plev))\n          pblh(i)   = z(i,plev)\n          check(i)  = .true.\n!------------------------------------------------------------------------\n! \t... initialization of lowest level ri number\n!           (neglected in initial holtslag implementation)\n!------------------------------------------------------------------------\n          rino(i,plev) = 0.0_fp\n       end do\n\n!------------------------------------------------------------------------\n! \t... pbl height calculation:\n!           search for level of pbl. scan upward until the richardson number between\n!           the first level and the current level exceeds the \"critical\" value.\n!------------------------------------------------------------------------\n       do k = plev-1,plev-npbl+1,-1\n          do i = 1,plonl\n             if( check(i) ) then\n                vvk = (u(i,k) - u(i,plev))**2 + (v(i,k) - v(i,plev))**2 + &\n                      fac*ustar(i)**2\n                vvk = max( vvk,tiny )\n                tkv = th(i,k)*(1.0_fp + 0.61_fp*q(i,k))\n                rino(i,k) = g*(tkv - thvref(i))*(z(i,k)-z(i,plev))/ &\n                            (thvref(i)*vvk)\n                if( rino(i,k) >= ricr ) then\n                   pblh(i) = z(i,k+1) &\n                             + (ricr - rino(i,k+1)) &\n                             /(rino(i,k) - rino(i,k+1))*(z(i,k) - z(i,k+1))\n                   check(i) = .false.\n                end if\n             end if\n          end do\n       end do\n\n!------------------------------------------------------------------------\n! \t... set pbl height to maximum value where computation exceeds number of\n!           layers allowed\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( check(i) ) then\n             pblh(i) = z(i,plevp-npbl)\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... improve estimate of pbl height for the unstable points.\n!           find unstable points (virtual heat flux is positive):\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( heatv(i) > 0.0_fp ) then\n             unstbl(i) = .true.\n             check(i)  = .true.\n          else\n             unstbl(i) = .false.\n             check(i)  = .false.\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... for the unstable case, compute velocity scale and the\n!           convective temperature excess:\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( check(i) ) then\n             phiminv(i)   = (1.0_fp - binm*pblh(i)/obklen(i))**onet\n             wm(i)        = ustar(i)*phiminv(i)\n             therm(i)     = heatv(i)*fak/wm(i)\n             rino(i,plev) = 0.0_fp\n             tlv(i)       = thvref(i) + therm(i)\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... improve pblh estimate for unstable conditions using the\n!           convective temperature excess:\n!------------------------------------------------------------------------\n       do k = plev-1,plev-npbl+1,-1\n          do i = 1,plonl\n             if( check(i) ) then\n                vvk = (u(i,k) - u(i,plev))**2 + (v(i,k) - v(i,plev))**2 &\n                      + fac*ustar(i)**2\n                vvk = max( vvk,tiny )\n                tkv = th(i,k)*(1. + 0.61_fp*q(i,k))\n                rino(i,k) = g*(tkv - tlv(i))*(z(i,k)-z(i,plev)) &\n                            /(thvref(i)*vvk)\n                if( rino(i,k) >= ricr ) then\n                   pblh(i) = z(i,k+1) + (ricr - rino(i,k+1)) &\n                             /(rino(i,k) - rino(i,k+1))*(z(i,k) - z(i,k+1))\n                   check(i) = .false.\n                end if\n             end if\n          end do\n       end do\n\n!------------------------------------------------------------------------\n! \t... points for which pblh exceeds number of pbl layers allowed;\n!           set to maximum\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( check(i) ) then\n             pblh(i) = z(i,plevp-npbl)\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! pbl height must be greater than some minimum mechanical mixing depth\n! several investigators have proposed minimum mechanical mixing depth\n! relationships as a function of the local friction velocity, u*.  we\n! make use of a linear relationship of the form h = c u* where c=700.\n! the scaling arguments that give rise to this relationship most often\n! represent the coefficient c as some constant over the local coriolis\n! parameter.  here we make use of the experimental results of koracin\n! and berkowicz (1988) [blm, vol 43] for wich they recommend 0.07/f\n! where f was evaluated at 39.5 n and 52 n.  thus we use a typical mid\n! latitude value for f so that c = 0.07/f = 700.\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          pblmin  = 700.0_fp*ustar(i)\n          pblh(i) = max( pblh(i),pblmin )\n       end do\n\n    endif ! if pblh_ar\n\n!------------------------------------------------------------------------\n! \t... pblh is now available; do preparation for diffusivity calculation:\n!------------------------------------------------------------------------\n    do i = 1,plonl\n       pblk(i) = 0.0_fp\n       fak1(i) = ustar(i)*pblh(i)*vk\n!------------------------------------------------------------------------\n! \t... do additional preparation for unstable cases only, set temperature\n!           and moisture perturbations depending on stability.\n!------------------------------------------------------------------------\n       if( unstbl(i) ) then\n          phiminv(i) = (1.0_fp - binm*pblh(i)/obklen(i))**onet\n          phihinv(i) = sqrt(1.0_fp - binh*pblh(i)/obklen(i))\n          wm(i)      = ustar(i)*phiminv(i)\n          fak2(i)    = wm(i)*pblh(i)*vk\n          wstr(i)    = (heatv(i)*g*pblh(i)/thvref(i))**onet\n          fak3(i)    = fakn*wstr(i)/wm(i)\n          tpert(i)   = max( khfs(i)*fak/wm(i),0.0_fp )\n          qpert(i)   = max( kshfs(i)*fak/wm(i),0.0_fp )\n       else\n          tpert(i)   = max( khfs(i)*fak/ustar(i),0.0_fp )\n          qpert(i)   = max( kshfs(i)*fak/ustar(i),0.0_fp )\n       end if\n    end do\n\n!------------------------------------------------------------------------\n! \t... main level loop to compute the diffusivities and counter-gradient terms\n!------------------------------------------------------------------------\n    do k = plev,plev-npbl+2,-1\n!------------------------------------------------------------------------\n! \t... find levels within boundary layer\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          unslev(i) = .false.\n          stblev(i) = .false.\n          zm(i) = z(i,k)\n          zp(i) = z(i,k-1)\n! NOTE: Do not test for floating-point equality, which due to roundoff\n! may never occur. \n!          if( zkmin == 0.0_fp .and. zp(i) > pblh(i) ) then\n          if ( ( .not. ABS( zkmin ) > 0.0_fp ) .and. ( zp(i) > pblh(i) ) ) then\n             zp(i) = pblh(i)\n          end if\n          if( zm(i) < pblh(i) ) then\n             zmzp = 0.5_fp*(zm(i) + zp(i))\n             zh(i) = zmzp/pblh(i)\n             zl(i) = zmzp/obklen(i)\n             if( zh(i) <= 1.0_fp ) then\n                zzh(i) = (1.0_fp - zh(i))**2\n             else\n                zzh(i) = 0.0_fp\n             end if\n!------------------------------------------------------------------------\n! \t... stblev for points zm < plbh and stable and neutral\n!           unslev for points zm < plbh and unstable\n!------------------------------------------------------------------------\n             if( unstbl(i) ) then\n                unslev(i) = .true.\n             else\n                stblev(i) = .true.\n             end if\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... stable and neutral points; set diffusivities; counter-gradient\n!           terms zero for stable case:\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( stblev(i) ) then\n             if( zl(i) <= 1.0_fp ) then\n                pblk(i) = fak1(i)*zh(i)*zzh(i)/(1. + betas*zl(i))\n             else\n                pblk(i) = fak1(i)*zh(i)*zzh(i)/(betas + zl(i))\n             end if\n             kvm(i,k) = max( pblk(i),kvf(i,k) )\n             kvh(i,k) = kvm(i,k)\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... unssrf, unstable within surface layer of pbl\n!           unsout, unstable within outer   layer of pbl\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          unssrf(i) = .false.\n          unsout(i) = .false.\n          if( unslev(i) ) then\n             if( zh(i) < sffrac ) then\n                unssrf(i) = .true.\n             else\n                unsout(i) = .true.\n             end if\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... unstable for surface layer; counter-gradient terms zero\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( unssrf(i) ) then\n             term    = (1.0_fp - betam*zl(i))**onet\n             pblk(i) = fak1(i)*zh(i)*zzh(i)*term\n             pr(i)   = term/sqrt(1.0_fp - betah*zl(i))\n          end if\n       end do\n\n!------------------------------------------------------------------------\n! \t... unstable for outer layer; counter-gradient terms non-zero:\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( unsout(i) ) then\n             pblk(i)   = fak2(i)*zh(i)*zzh(i)\n             cgs(i,k)  = fak3(i)/(pblh(i)*wm(i))\n             cgh(i,k)  = khfs(i)*cgs(i,k)\n             pr(i)     = phiminv(i)/phihinv(i) + ccon*fak3(i)/fak\n             cgsh(i,k) = kshfs(i)*cgs(i,k)\n          end if\n       end do\n       do m = 1,nspcmix\n          do i = 1,plonl\n             if( unsout(i) ) then\n                cgq(i,k,m) = kqfs(i,m)*cgs(i,k)\n             end if\n          end do\n       end do\n\n!------------------------------------------------------------------------\n! \t... for all unstable layers, set diffusivities\n!------------------------------------------------------------------------\n       do i = 1,plonl\n          if( unslev(i) ) then\n             kvm(i,k) = max( pblk(i),kvf(i,k) )\n             kvh(i,k) = max( pblk(i)/pr(i),kvf(i,k) )\n          end if\n       end do\n\n    end do\n\n  end subroutine pbldif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: qvdiff\n!\n! !DESCRIPTION: Subroutine QVDIFF solve vertical diffusion eqtn for constituent\n!  with explicit srfc flux.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  subroutine qvdiff( ncnst, qm1, qflx, cc, ze, &\n\t             term, qp1, plonl, lat )\n!\n! !USES:\n!\n    implicit none\n!\n! !INPUT PARAMETERS:\n!\n    integer, intent(in) :: &\n         plonl\n    integer, intent(in) :: &\n         ncnst                    ! num of constituents being diffused\n    real(fp), intent(in) :: &\n         qm1(plonl,plev,ncnst), & ! initial constituent\n         qflx(plonl,ncnst), &     ! sfc q flux into lowest model level\n         cc(plonl,plev), &        ! -lower diag coeff.of tri-diag matrix\n         term(plonl,plev)         ! 1./(1. + ca(k) + cc(k) - cc(k)*ze(k-1))\n    integer, optional :: lat\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    real(fp), intent(inout) :: &\n         ze(plonl,plev)           ! term in tri-diag. matrix system\n!\n! !OUTPUT PARAMETERS:\n!\n    real(fp), intent(out) :: &\n         qp1(plonl,plev,ncnst)    ! final constituent\n!\n! !REMARKS:\n!  Procedure for solution of the implicit equation follows :\n!  Richtmyer and Morton (1967,pp 198-199)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    real(fp) :: &\n         zfq(plonl,plev,nspcmix), & ! terms appear in soln of tri-diag sys\n         tmp1d(plonl)               ! temporary workspace (1d array)\n    integer :: &\n         i, k, &               ! longitude,vertical indices\n         m                     ! constituent index\n    logical :: doPrt\n\n    !=================================================================\n    ! qvdiff begins here!\n    !=================================================================\n    doPrt = .FALSE.\n    if ( present( lat ) ) doPrt = ( lat == 6 )\n\n    ! Zero output arguments for safety's sake\n    qp1   = 0.0_fp\n\n    ! Zero local variables for safety's sake\n    zfq   = 0.0_fp\n    tmp1d = 0.0_fp\n\n!-----------------------------------------------------------------------\n! \t... calculate fq(k).  terms fq(k) and e(k) are required in solution of\n!           tridiagonal matrix defined by implicit diffusion eqn.\n!           note that only levels ntopfl through plev need be solved for.\n!           no vertical diffusion is applied above this level\n!-----------------------------------------------------------------------\n    do m = 1,ncnst\n       do i = 1,plonl\n          zfq(i,ntopfl,m) = qm1(i,ntopfl,m) * term(i,ntopfl)\n       end do\n       do k = ntopfl+1,plev-1\n          do i = 1,plonl\n             zfq(i,k,m) = (qm1(i,k,m) + ( cc(i,k) * zfq(i,k-1,m) ) )         &\n                        * term(i,k)\n          end do\n       end do\n    end do\n!-----------------------------------------------------------------------\n! \t... bottom level: (includes  surface fluxes)\n!-----------------------------------------------------------------------\n    do i = 1,plonl\n! Suspect that this line leads to numerical instability\n!       tmp1d(i) = 1.0_fp /                                                   &\n!                 (1.0_fp + cc(i,plev) - ( cc(i,plev) * ze(i,plev-1) ) )\n       tmp1d(i) = 1.0_fp / ( 1.0_fp + cc(i,plev) * ( 1.0_fp - ze(i,plev-1) ) )\n       ze(i,plev) = 0.0_fp\n    end do\n    do m = 1,ncnst\n       do i = 1,plonl\n          zfq(i,plev,m) =                                                    &\n               (qm1(i,plev,m) + qflx(i,m) + cc(i,plev)*zfq(i,plev-1,m))      &\n               * tmp1d(i)\n       end do\n    end do\n!-----------------------------------------------------------------------\n! \t... perform back substitution\n!-----------------------------------------------------------------------\n    do m = 1,ncnst\n       do i = 1,plonl\n          qp1(i,plev,m) = zfq(i,plev,m)\n       end do\n       do k = plev-1,ntopfl,-1\n          do i = 1,plonl\n             qp1(i,k,m) = zfq(i,k,m) + ( ze(i,k) * qp1(i,k+1,m) )\n          end do\n       end do\n    end do\n\n  end subroutine qvdiff\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: pbldifar\n!\n! !DESCRIPTION: Subroutine PBLDIFAR is a modified version of pbldif which only\n!  calculates cgq given cgs.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PBLDIFAR( t, pmid, cflx, cgs, cgq, plonl )\n!\n! !USES:\n!\n    implicit none\n!\n! !INPUT PARAMETERS:\n!\n    integer, intent(in) :: &\n         plonl\n    real(fp), intent(in) :: &\n         t(plonl,plev), &        ! temperature (used for density)\n         pmid(plonl,plev), &     ! midpoint pressures\n         cflx(plonl,nspcmix), &  ! surface constituent flux (kg/m2/s)\n         cgs(plonl,plevp)        ! counter-gradient star (cg/flux)\n!\n! !OUTPUT PARAMETERS:\n!\n    real(fp), intent(out) :: &\n         cgq(plonl,plevp,nspcmix) ! counter-gradient term for constituents\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: &\n         i, &                 ! longitude index\n         k, &                 ! level index\n         m                    ! constituent index\n    real(fp) :: &\n         rrho(plonl), &       ! 1./bottom level density\n         kqfs(plonl,nspcmix)  ! sfc kinematic constituent flux [m/s]\n\n    !=================================================================\n    ! pbldifar begins here!\n    !=================================================================\n\n    ! Zero output arguments for safety's sake\n    cgq  = 0.0_fp\n\n    ! Zero local variables for safety's sake\n    rrho = 0.0_fp\n    kqfs = 0.0_fp\n\n!------------------------------------------------------------------------\n! \t... compute kinematic surface fluxes\n!------------------------------------------------------------------------\n    rrho(:) = rair*t(:,plev)/pmid(:,plev)\n    do m = 1,nspcmix\n       kqfs(:,m) = cflx(:,m)*rrho(:)\n    end do\n!------------------------------------------------------------------------\n! \t... initialize output arrays with free atmosphere values\n!------------------------------------------------------------------------\n    do m = 1,nspcmix\n       do k = 1,plevp\n          cgq(:,k,m) = 0.0_fp\n       end do\n    end do\n!------------------------------------------------------------------------\n! \t... compute the counter-gradient terms:\n!------------------------------------------------------------------------\n    do k = plev,plev-npbl+2,-1\n       do m = 1,nspcmix\n          cgq(:,k,m) = kqfs(:,m)*cgs(:,k)\n       end do\n    end do\n\n  END SUBROUTINE PBLDIFAR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Vdiff\n!\n! !DESCRIPTION: Initializes fields used by the non-local BL mixing scheme.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Vdiff( Input_Opt, State_Chm, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chem State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! Init_Vdiff begins here!\n    !=================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n\n    ! Exit if this is a dry-run simulation\n    IF ( Input_Opt%DryRun ) RETURN\n\n    ! Initialize\n    plev     = State_Grid%NZ           ! # of levels\n    plevp    = State_Grid%NZ + 1       ! # of level edges\n    nspcmix  = State_Chm%nAdvect       ! # of species\n    zkmin    = 0.01_fp                 ! = minimum k = kneutral * f(ri)\n\n    ! Set the square of the mixing lengths\n    ALLOCATE( ml2(plevp), STAT=RC )\n    CALL GC_CheckVar( 'vdiff_mod:ML2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    ml2(1     ) = 0.0_fp\n    ml2(2:plev) = 900.0_fp ! = (30.0_fp)**2\n    ml2(plevp ) = 0.0_fp\n\n    ! Set the minimum mixing ratio for the counter-gradient term.\n    ! normally this should be the same as qmin.\n    ALLOCATE( qmincg(nspcmix), STAT=RC )\n    CALL GC_CheckVar( 'vdiff_mod:QMINCG', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    qmincg = 0.0_fp\n\n  END SUBROUTINE Init_Vdiff\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Max_PblHt_For_Vdiff\n!\n! !DESCRIPTION: Computes the maximum boundary layer height variables\n!  for the non-local mixing.  This was rewritten to avoid assuming the\n!  a specific grid configuration.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Max_PblHt_For_Vdiff( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt\n    TYPE(GrdState), INTENT(IN)  :: State_Grid\n    TYPE(MetState), INTENT(IN)  :: State_Met\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC\n!\n! !REMARKS:\n!  This routine contains code that was originally in Init_Vdiff.  But it\n!  has to be separated so that it can be called after the initial met fields\n!  are read from disk.  This allows us to use the surface pressure field\n!  instead of referencing the Ap and Bp parameters directly.\n!\n! !REVISION HISTORY:\n!  18 May 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: pbl_press = 400.0_fp   ! pressure cap for pbl (Pa)\n!\n! !LOCAL VARIABLES\n!\n    ! Scalars\n    INTEGER             :: K\n    REAL(fp)            :: cells_per_layer\n\n    ! Arrays\n    REAL(fp)            :: ref_pmid(State_Grid%NZ)\n\n    ! Strings\n    CHARACTER(LEN=255)  :: errMsg\n    CHARACTER(LEN=255)  :: thisLoc\n\n    !===================================================================\n    ! Max_PblHt_for_Vdiff begins here!\n    !===================================================================\n\n    ! Assume success\n    RC              = GC_SUCCESS\n\n    ! Exit if the non-local PBL mixing is not being used\n    IF ( .not. ( Input_Opt%LTURB .and. Input_Opt%LNLPBL ) ) RETURN\n\n    ! Initialize\n    ref_pmid        = 0.0_fp\n    cells_per_layer = DBLE( State_Grid%NX * State_Grid%NY )\n    errMsg          = ''\n    thisLoc         = &\n     ' -> at Max_PblHt_for_Vdiff (in module GeosCore/vdiff_mod.F90)'\n\n    ! Now use the average initial surface pressure per layer instead of\n    ! having to reference the Ap and Bp.  This should make it easier\n    ! to interface to external models such as CESM.\n    DO k = 1, plev\n       ref_pmid(plev-k+1) = SUM( State_Met%PMid(:,:,K) ) / cells_per_layer\n    ENDDO\n\n    ! Derived constants\n    ! ntopfl = top level to which v-diff is applied\n    ! npbl   = max number of levels (from bottom) in pbl\n    DO k = plev,1,-1\n       IF( ref_pmid(k) < pbl_press ) then\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Compute the number of PBL levels\n    ! Write out the message as debug output (bmy, 05 Dec 2022)\n    npbl = MAX( 1, plev - k )\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE(6,*) 'Init_Vdiff: pbl height will be limited to bottom ',npbl,  &\n            ' model levels.'\n       WRITE(6,*) 'Top is ',ref_pmid(plevp-npbl),' hpa'\n    ENDIF\n\n    ! Set the ntopfl\n    IF ( plev == 1 ) THEN\n       ntopfl = 0\n    ELSE\n       ntopfl = 1\n    ENDIF\n\n  END SUBROUTINE Max_PblHt_For_Vdiff\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: vdiffdr\n!\n! !DESCRIPTION: Subroutine VDIFFDR calculates the vertical diffusion on a\n!  latitude slice of data.\n!\n!  \\begin{enumerate}\n!  \\item The dummy argument as2 is in v\\/v. (lin, 06/04/08)\n!  \\item TCVV and TRACER\\_MW\\_KG assume 12 g/mol for all HCs. Thus, when using\n!         them to convert units of HCs to be the inputs for vdiffdr, the\n!         converted units are NOT kg/kg for concentrations and kg/m2/s for\n!         surface flux. However, since the units for both inputs are\n!         consistent, there should not be any problem. (lin, 06/04/08)\n!  \\end{enumerate}\n!\n! !INTERFACE:\n!\n  SUBROUTINE VDIFFDR( Input_Opt,  State_Chm, State_Diag, &\n                      State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GET_NDEP_MOD,       ONLY : SOIL_DRYDEP\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PBL_MIX_MOD,        ONLY : COMPUTE_PBL_HEIGHT\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : GET_TS_CONV, GET_TS_EMIS, GET_TS_CHEM\n    USE OCEAN_MERCURY_MOD,  ONLY : Fg !hma\n    USE OCEAN_MERCURY_MOD,  ONLY : OMMFP => Fp\n    USE OCEAN_MERCURY_MOD,  ONLY : LHg2HalfAerosol !cdh\n\n    implicit none\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met    ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REMARKS:\n!  (1) Need to declare the Meteorology State object (State_MET) with\n!      INTENT(INOUT).  This is because VDIFF will modify the specific\n!      humidity field. (bmy, 11/21/12)\n!                                                                            .\n!  (2) As of July 2016, we assume that all of the advected species are listed\n!      first in the species database.  This is the easiest way to pass a slab\n!      to the TPCORE routine.  This may change in the future. (bmy, 7/13/16)\n\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: I, J, L, N, NA, nAdvect, EC\n    REAL(fp)            :: dtime\n#ifdef LUO_WETDEP\n    REAL(fp)            :: F_CLD\n    REAL(fp)            :: YCLDICE, FICE, YB, volx34pi_cd, rrate, SQM, STK\n    REAL(fp)            :: log2R, DFKG, uptkrate\n    REAL(fp), PARAMETER :: ROOT_TWO_THIRDS = SQRT(2.D0/3.D0)\n#endif\n\n    ! Arrays\n    REAL(fp), TARGET    :: tpert (State_Grid%NX,State_Grid%NY)\n    REAL(fp), TARGET    :: qpert (State_Grid%NX,State_Grid%NY)\n    REAL(fp), TARGET    :: shflx (State_Grid%NX,State_Grid%NY)\n    REAL(fp), TARGET    :: pmid  (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp), TARGET    :: rpdel (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp), TARGET    :: rpdeli(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp), TARGET    :: thp   (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp), TARGET    :: t1    (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp), TARGET    :: zm    (State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n    REAL(fp), TARGET    :: cgs   (State_Grid%NX, State_Grid%NY,State_Grid%NZ+1)\n    REAL(fp), TARGET    :: pint  (State_Grid%NX, State_Grid%NY,State_Grid%NZ+1)\n    REAL(fp), TARGET    :: kvh   (State_Grid%NX, State_Grid%NY,State_Grid%NZ+1)\n    REAL(fp), TARGET    :: kvm   (State_Grid%NX, State_Grid%NY,State_Grid%NZ+1)\n\n    ! Pointers\n    REAL(fp), POINTER   :: p_pblh  (:,:    )\n    REAL(fp), POINTER   :: p_sflx  (:,:,:  )\n    REAL(fp), POINTER   :: p_um1   (:,:,:  )\n    REAL(fp), POINTER   :: p_vm1   (:,:,:  )\n    REAL(fp), POINTER   :: p_tadv  (:,:,:  )\n    REAL(fp), POINTER   :: p_hflux (:,:    )\n    REAL(fp), POINTER   :: p_ustar (:,:    )\n    REAL(fp), POINTER   :: p_pmid  (:,:,:  )\n    REAL(fp), POINTER   :: p_pint  (:,:,:  )\n    REAL(fp), POINTER   :: p_rpdel (:,:,:  )\n    REAL(fp), POINTER   :: p_rpdeli(:,:,:  )\n    REAL(fp), POINTER   :: p_zm    (:,:,:  )\n    REAL(fp), POINTER   :: p_thp   (:,:,:  )\n    REAL(fp), POINTER   :: p_kvh   (:,:,:  )\n    REAL(fp), POINTER   :: p_kvm   (:,:,:  )\n    REAL(fp), POINTER   :: p_cgs   (:,:,:  )\n    REAL(fp), POINTER   :: p_shp   (:,:,:  )\n    REAL(fp), POINTER   :: p_t1    (:,:,:  )\n\n    ! For error trapping\n    CHARACTER(LEN=255)  :: ErrMsg, ThisLoc\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: p0 = 1.e+5_fp\n\n    !=================================================================\n    ! Vdiffdr begins here!\n    !=================================================================\n\n    !### Debug info\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### VDIFFDR: VDIFFDR begins' )\n    ENDIF\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    nAdvect  =  State_Chm%nAdvect\n    ErrMsg   = ''\n    ThisLoc  = ' -> at VDIFF (in module GeosCore/vdiff_mod.F90)'\n    pmid     =  0.0_fp\n    rpdel    =  0.0_fp\n    rpdeli   =  0.0_fp\n    zm       =  0.0_fp\n    pint     =  0.0_fp\n    cgs      =  0.0_fp\n    kvh      =  0.0_fp\n    kvm      =  0.0_fp\n    tpert    =  0.0_fp\n    qpert    =  0.0_fp\n    thp      =  0.0_fp\n    shflx    =  0.0_fp\n    t1       =  0.0_fp\n    dtime    =  GET_TS_CONV()            ! second\n    shflx    =  State_Met%EFLUX / latvap ! latent heat -> water vapor flux\n\n!$OMP PARALLEL DO        &\n!$OMP DEFAULT( SHARED )  &\n!$OMP PRIVATE( I, J, L )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       DO L = 1, State_Grid%NZ\n\n          ! Convert PMID and PEDGE from hPa to Pa\n          pmid(I,J,L) = State_Met%PMID(I,J,L)  * 100.0_fp\n          pint(I,J,L) = State_Met%PEDGE(I,J,L) * 100.0_fp\n\n          ! Potential temperature [K]\n          thp(I,J,L) = State_Met%T(I,J,L)*(p0/pmid(I,J,L))**cappa\n       ENDDO\n\n       ! PEDGE at the top of the atmosphere\n       pint(I,J,State_Grid%NZ+1) = State_Met%PEDGE(I,J,State_Grid%NZ+1)     &\n                                 * 100.0_fp\n\n       ! Corrected calculation of zm.\n       ! Box height calculation now uses virtual temperature.\n       ! Therefore, use virtual temperature in hypsometric equation.\n       ! (ewl, 3/3/15)\n       do L = 1, State_Grid%NZ\n          zm(I,J,L) = SUM( State_Met%BXHEIGHT(I,J,1:L))                     &\n                    - log( pmid(I,J,L)/pint(I,J,L+1) )                      &\n                    * r_g * State_Met%TV(I,J,L)\n\n          rpdel(I,J,L) = 1.0_fp / (pint(I,J,L) - pint(I,J,L+1))\n       enddo\n\n       !rpdeli(I,J,1) = 1.e+0_fp / (PS(I,J) - pmid(I,J,1))\n       rpdeli(I,J,1) = 0.0_fp ! follow mozart setup (shown in mo_physlic.F90)\n       do L = 2, State_Grid%NZ\n          rpdeli(I,J,L) = 1.0_fp / (pmid(I,J,L-1) - pmid(I,J,L))\n       enddo\n\n    enddo\n    enddo\n!$OMP END PARALLEL DO\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### VDIFFDR: after emis. and depdrp' )\n    ENDIF\n\n    !--------------------------------------------------------------------\n    ! Now use pointers to flip arrays in the vertical (bmy, 6/22/15)\n    !--------------------------------------------------------------------\n    p_sflx   => State_Chm%SurfaceFlux\n    p_hflux  => State_Met%HFLUX\n    p_ustar  => State_Met%USTAR\n    p_pblh   => State_Met%PBL_TOP_m\n    p_um1    => State_Met%U        (:, :, State_Grid%NZ  :1:-1           )\n    p_vm1    => State_Met%V        (:, :, State_Grid%NZ  :1:-1           )\n    p_tadv   => State_Met%T        (:, :, State_Grid%NZ  :1:-1           )\n    p_pmid   => pmid               (:, :, State_Grid%NZ  :1:-1           )\n    p_rpdel  => rpdel              (:, :, State_Grid%NZ  :1:-1           )\n    p_rpdeli => rpdeli             (:, :, State_Grid%NZ  :1:-1           )\n    p_zm     => zm                 (:, :, State_Grid%NZ  :1:-1           )\n    p_thp    => thp                (:, :, State_Grid%NZ  :1:-1           )\n    p_shp    => State_Met%SPHU     (:, :, State_Grid%NZ  :1:-1           )\n    p_pint   => pint               (:, :, State_Grid%NZ+1:1:-1           )\n    p_kvh    => kvh                (:, :, State_Grid%NZ+1:1:-1           )\n    p_kvm    => kvm                (:, :, State_Grid%NZ+1:1:-1           )\n    p_cgs    => cgs                (:, :, State_Grid%NZ+1:1:-1           )\n\n    ! Convert g/kg -> kg/kg\n    p_shp              =  p_shp * 1.e-3_fp\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### VDIFFDR: before vdiff' )\n    ENDIF\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( J, EC  )\n    DO J = 1, State_Grid%NY\n       CALL Vdiff( J,                 1,         p_um1,      p_vm1,           &\n                   p_tadv,            p_pmid,    p_pint,     p_rpdel,         &\n                   p_rpdeli,          dtime,     p_zm,       p_hflux,         &\n                   p_sflx,            p_thp,     p_pblh,                      &\n                   p_kvh,             p_kvm,     tpert,      qpert,           &\n                   p_cgs,             p_shp,     shflx,      State_Grid%NX,   &\n                   Input_Opt,         State_Met, State_Grid,                  &\n                   State_Chm,         State_Diag,                             &\n                   ustar_arg=p_ustar, RC=EC                                   )\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### VDIFFDR: after vdiff' )\n    ENDIF\n\n    ! Convert kg/kg -> g/kg\n    p_shp    = p_shp * 1.0e+3_fp\n\n#ifdef LUO_WETDEP\n!$OMP PARALLEL DO DEFAULT( SHARED )      &\n!$OMP PRIVATE( I, J, L, F_CLD ) &\n!$OMP PRIVATE( YCLDICE, FICE, YB, volx34pi_cd, rrate, SQM, STK ) &\n!$OMP PRIVATE( log2R, DFKG, uptkrate )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n      IF(L>State_Met%PBL_TOP_L(I,J))THEN\n      State_Met%WUP(I,J,L)=(0.5D0*(kvh(I,J,L)+kvh(I,J,L+1))/30.D0/&\n                            0.516D0)*ROOT_TWO_THIRDS\n      ELSE\n      State_Met%WUP(I,J,L)=(0.5D0*(kvh(I,J,L)+kvh(I,J,L+1))/&\n           MAX(30.D0,(1.D0/(1.D0/(0.4D0*SUM(State_Met%BXHEIGHT(I,J,1:L)))+&\n                            1.D0/300.D0)))/&\n                            0.516D0)*ROOT_TWO_THIRDS\n      ENDIF\n      State_Met%WUP(I,J,L)=MIN(20.D0,MAX(0.2D0,State_Met%WUP(I,J,L)))\n\n      F_CLD = State_Met%CLDF(I,J,L)\n\n      IF(F_CLD>1.D-4)THEN\n        State_Met%KINC(I,J,L) = State_Met%WUP(I,J,L)*&\n                 (SQRT(F_CLD)*State_Met%BXHEIGHT(I,J,L)*&\n                 (State_Grid%DYWE_M(I,J)+State_Grid%DXSN_M(I,J))+&\n                  F_CLD*State_Grid%Area_M2(I,J))/&\n                 (1.D-30+F_CLD*State_Grid%Area_M2(I,J)*&\n                               State_Met%BXHEIGHT(I,J,L))\n      ELSE\n        State_Met%KINC(I,J,L) = 1.D-30\n        F_CLD = 1.D-4\n      ENDIF\n                \n      State_Met%KINC(I,J,L) = MAX(1.D-30,State_Met%KINC(I,J,L))\n\n      State_Met%NUMCD(I,J,L) = 1.D-30\n      State_Met%ICESF(I,J,L) = 1.D-30\n      State_Met%RADCD(I,J,L) = 20.D-4\n      State_Met%TKICE(I,J,L) = 0.D0\n\n      IF(State_Met%T(I,J,L)<237.D0 .AND. State_Met%CLDF(I,J,L)>1.D-6)THEN\n\n      YCLDICE = State_Met%QI(I,J,L)*State_Met%AIRDEN(I,J,L)*1.0D3\n      IF(YCLDICE>1.D-20)THEN\n\n        FICE=State_Met%CLDF(I,J,L)*YCLDICE/&\n        (YCLDICE+State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1.0D3)\n\n        IF(FICE>1.D-6)THEN\n          YCLDICE=YCLDICE/FICE\n          State_Met%RADCD(I,J,L) = 0.5d0*53.005d0*(YCLDICE**0.006d0)*&\n                                   exp(0.013d0*(State_Met%T(I,J,L)-273.d0))\n\n          State_Met%RADCD(I,J,L) = max(5.D0,MIN(1000.D0,State_Met%RADCD(I,J,L)))\n          State_Met%RADCD(I,J,L) = State_Met%RADCD(I,J,L)*1.D-4\n          log2R = log(State_Met%RADCD(I,J,L)*2.d0)\n\n          IF(State_Met%T(I,J,L)<218.15D0)THEN\n            volx34pi_cd = exp(-9.24318d0+0.57189d0*log2R-&\n                          0.17865d0*(log2R*log2R))\n            State_Met%ICESF(I,J,L) = exp(-2.43451d0+1.60639d0*log2R-&\n                    0.01164d0*(log2R*log2R))\n          ELSE IF(State_Met%T(I,J,L)<233.15D0)THEN\n            volx34pi_cd = exp(-6.44787d0+1.64429d0*log2R-&\n                          0.07788d0*(log2R*log2R))\n            State_Met%ICESF(I,J,L) = exp(-2.38913d0+1.40166d0*log2R-&\n                    0.05219d0*(log2R*log2R))\n          ELSE\n            volx34pi_cd = exp(-6.67252d0+1.36857d0*log2R-&\n                          0.12293d0*(log2R*log2R))\n            State_Met%ICESF(I,J,L) = exp(-2.40314d0+1.29749d0*log2R-&\n                    0.07233d0*(log2R*log2R))\n          ENDIF\n          State_Met%NUMCD(I,J,L) = YCLDICE/volx34pi_cd*1.D-6\n\n          rrate = 7.0D-3 - 4.D-3*MAX(0.D0,MIN(1.D0,(State_Met%T(I,J,L)-209.5D0)/&\n                 (220.D0-209.5D0)))\n\n          SQM = sqrt(63.D0)\n          STK = sqrt(State_Met%T(I,J,L))\n          DFKG = 9.45e+17_f8/State_Met%AIRNUMDEN(I,J,L) * STK * &\n                 SQRT(3.472e-2_f8 + 1.e+0_f8/(SQM*SQM))\n\n          uptkrate = State_Met%NUMCD(I,J,L)*State_Met%ICESF(I,J,L)/&\n                    (State_Met%RADCD(I,J,L)/DFKG+2.749064D-4*SQM/(rrate*STK))\n\n          State_Met%TKICE(I,J,L) = uptkrate*(State_Met%KINC(I,J,L)/&\n                   (State_Met%KINC(I,J,L)+(1.D0-State_Met%CLDF(I,J,L))*uptkrate))\n\n        ENDIF\n      ENDIF\n      ENDIF\n\n    ENDDO\n    ENDDO\n    ENDDO\n!$OMP END PARALLEL DO\n#endif\n\n    ! Nullify pointers\n    p_sflx   => NULL()\n    p_um1    => NULL()\n    p_vm1    => NULL()\n    p_tadv   => NULL()\n    p_hflux  => NULL()\n    p_ustar  => NULL()\n    p_pmid   => NULL()\n    p_rpdel  => NULL()\n    p_rpdeli => NULL()\n    p_zm     => NULL()\n    p_thp    => NULL()\n    p_shp    => NULL()\n    p_pint   => NULL()\n    p_kvh    => NULL()\n    p_kvm    => NULL()\n    p_cgs    => NULL()\n\n    !### Debug\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### VDIFFDR: VDIFFDR finished' )\n    ENDIF\n\n  END SUBROUTINE VDIFFDR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Vdiff\n!\n! !DESCRIPTION: Subroutine DO\\_PBL\\_MIX\\_2 is the driver routine for planetary\n!  boundary layer mixing. The PBL layer height and related quantities are\n!  always computed.   Mixing of tracers underneath the PBL top is toggled\n!  by the DO\\_TURBDAY switch.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Do_Vdiff( Input_Opt,  State_Chm, State_Diag,                    &\n                       State_Grid, State_Met, RC                            )\n!\n! !USES:\n!\n    USE Calc_Met_Mod,       ONLY : AirQnt\n    USE Diagnostics_Mod,    ONLY : Compute_Budget_Diagnostics\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TIME_MOD,           ONLY : ITS_TIME_FOR_EMIS\n    USE Time_Mod,           ONLY : Get_Ts_Dyn\n    USE Timers_Mod,         ONLY : Timer_End, Timer_Start\n    USE UnitConv_Mod\n\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid   ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met    ! Meteorology State object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  11 Feb 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: TS_Dyn\n    INTEGER            :: previous_units\n    REAL(fp)           :: DT_Dyn\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! DO_VDIFF begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS                                ! Assume success\n    ErrMsg   = ''\n    ThisLoc  = ' -> at DO_PBL_MIX_2 (in module GeosCore/vdiff_mod.F90)'\n\n    !=======================================================================\n    ! Non-local PBL mixing budget diagnostics - Part 1 of 2\n    !\n    ! WARNING: The mixing budget diagnostic includes the application\n    ! of species tendencies (emissions fluxes and dry deposition\n    ! rates) below the PBL when using non-local PBL mixing. This is\n    ! done for all species with defined emissions / dry deposition\n    ! rates, including dust. These tendencies below the PBL are\n    ! therefore not included in the emissions/dry deposition budget\n    ! diagnostics when using non-local PBL mixing. (ewl, 9/26/18)\n    !=======================================================================\n    IF ( State_Diag%Archive_BudgetMixing ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetMixingFull,               &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetMixingFull,                   &\n            isTrop      = State_Diag%Archive_BudgetMixingTrop,               &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetMixingTrop,                   &\n            isPBL       = State_Diag%Archive_BudgetMixingPBL,                &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetMixingPBL,                    &\n            isLevs      = State_Diag%Archive_BudgetMixingLevs,               &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetMixingLevs,                   &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Non-local mixing budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! PBL mixing\n    !=======================================================================\n\n    ! Do non-local PBL mixing\n    CALL VDIFFDR( Input_Opt,  State_Chm, State_Diag,                         &\n                  State_Grid, State_Met, RC                                 )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountred in \"VDIFFDR\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Debug print\n    IF( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### DO_PBL_MIX_2: after VDIFFDR' )\n    ENDIF\n\n    !=======================================================================\n    ! Update airmass etc. and mixing ratios\n    !=======================================================================\n\n    ! Update air quantities and species concentrations with updated\n    ! specific humidity (ewl, 10/28/15)\n    CALL AirQnt( Input_Opt, State_Chm, State_Grid,                           &\n                 State_Met, RC,        Update_Mixing_Ratio=.TRUE.           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountred in \"AIRQNT\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Debug print\n    IF( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### DO_PBL_MIX_2: after AIRQNT' )\n    ENDIF\n\n    !=======================================================================\n    ! Non-local PBL mixing budget diagnostics - Part 2 of 2\n    !=======================================================================\n    IF ( State_Diag%Archive_BudgetMixing ) THEN\n\n       ! Get dynamics timestep [s]\n       TS_Dyn = Get_Ts_Dyn()\n       DT_Dyn = DBLE( Ts_Dyn )\n\n       ! Compute change in column masses (after mixing - before mixing)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetMixingFull,               &\n            diagFull    = State_Diag%BudgetMixingFull,                       &\n            mapDataFull = State_Diag%Map_BudgetMixingFull,                   &\n            isTrop      = State_Diag%Archive_BudgetMixingTrop,               &\n            diagTrop    = State_Diag%BudgetMixingTrop,                       &\n            mapDataTrop = State_Diag%Map_BudgetMixingTrop,                   &\n            isPBL       = State_Diag%Archive_BudgetMixingPBL,                &\n            diagPBL     = State_Diag%BudgetMixingPBL,                        &\n            mapDataPBL  = State_Diag%Map_BudgetMixingPBL,                    &\n            isLevs      = State_Diag%Archive_BudgetMixingLevs,               &\n            diagLevs    = State_Diag%BudgetMixingLevs,                       &\n            mapDataLevs = State_Diag%Map_BudgetMixingLevs,                   &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Dyn,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Non-local mixing budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Do_Vdiff\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Vdiff\n!\n! !DESCRIPTION: Deallocates module arrays\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_VDiff( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Deallocate arrays\n    IF ( ALLOCATED( ml2 ) ) THEN\n       DEALLOCATE( ml2, STAT=RC )\n       CALL GC_CheckVar( 'vdiff_mod.F90:ML2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( qmincg ) ) THEN\n       DEALLOCATE( qmincg, STAT=RC )\n       CALL GC_CheckVar( 'vdiff_mod.F90:QMINCG', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Cleanup_Vdiff\n!EOC\nEND MODULE Vdiff_Mod\n"
  },
  {
    "path": "GeosCore/wetscav_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: wetscav_mod.F90\n!\n! !DESCRIPTION: Module WETSCAV\\_MOD contains routines and variables used in\n!  the wet scavenging of species in cloud updrafts, rainout, and washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE WETSCAV_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: COMPUTE_F\n  PUBLIC  :: DO_WETDEP\n  PUBLIC  :: INIT_WETSCAV\n  PUBLIC  :: SETUP_WETSCAV\n  PUBLIC  :: WASHOUT\n  PUBLIC  :: LS_K_RAIN\n  PUBLIC  :: LS_F_PRIME\n  PUBLIC  :: CONV_F_PRIME\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: COMPUTE_L2G\n  PRIVATE :: E_ICE\n  PRIVATE :: RAINOUT\n  PRIVATE :: GET_RAINFRAC\n  PRIVATE :: SAFETY\n  PRIVATE :: WASHFRAC_FINE_AEROSOL\n  PRIVATE :: WASHFRAC_COARSE_AEROSOL\n\n  PRIVATE :: WASHFRAC_LIQ_GAS\n  PRIVATE :: WASHFRAC_HNO3\n  PRIVATE :: GET_VUD\n#ifdef LUO_WETDEP\n  PRIVATE :: WASHFRAC_HNO3LUO\n  PRIVATE :: WASHFRAC_FINE_AEROSOLLUOPO\n  PRIVATE :: WASHFRAC_FINE_AEROSOLLUOPI\n  PRIVATE :: WASHFRAC_COARSE_AEROSOLLUO\n#endif\n!\n! !REMARKS:\n!  References:\n!  ============================================================================\n!  (1 ) Liu,H., D.J. Jacob, I. Bey and R.M. Yantosca, \"Constraints from 210Pb\n!        and 7Be on wet deposition and transport in a global three-dimensional\n!        chemical tracer model driven by assimilated meteorological fields\",\n!        JGR, Vol 106, pp 12109-12128, 2001.\n!  (2 ) D.J. Jacob, H. Liu, C. Mari, and R. M. Yantosca, \"Harvard wet\n!        deposition scheme for GMI\", Harvard Atmospheric Chemistry Modeling\n!        Group, March 2000.\n!  (3 ) Chin, M., D.J. Jacob, G.M. Gardner, M.S. Foreman-Fowler, and P.A.\n!        Spiro, \"A global three-dimensional model of tropospheric sulfate\",\n!        J. Geophys. Res., 101, 18667-18690, 1996.\n!  (4 ) Balkanski, Y  D.J. Jacob, G.M. Gardner, W.C. Graustein, and K.K.\n!        Turekian, \"Transport and Residence Times of Tropospheric Aerosols\n!        from a Global Three-Dimensional Simulation of 210Pb\", JGR, Vol 98,\n!        (D11) pp 20573-20586, 1993.\n!  (5 ) Giorgi, F, & W.L. Chaimedes, \"Rainout Lifetimes of Highly Soluble\n!        Aerosols and Gases as Inferred from Simulations With a General\n!        Circulation Model\", JGR, Vol 86 (D13) pp 14367-14376, 1986.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  ! TINY number\n  REAL(fp), PARAMETER :: TINY_FP  = TINY(1.0_fp)\n  REAL(f8), PARAMETER :: INV_T298 = 1.0_f8 / 298.15_f8\n\n\n!\n! !LOCAL VARIABLES:\n!\n  ! Define local shadow variables for values in Input_Opt\n  LOGICAL             :: LGTMM\n  LOGICAL             :: LSOILNOX\n  LOGICAL             :: LDYNOCEAN\n  LOGICAL             :: ITS_A_MERCURY_SIM\n  LOGICAL             :: ITS_A_POPS_SIM\n\n  ! Species ID flags\n  INTEGER             :: id_DUST01\n  INTEGER             :: id_H2O2\n  INTEGER             :: id_NK01\n  INTEGER             :: id_NH3\n  INTEGER             :: id_SF01\n  INTEGER             :: id_SO2\n  INTEGER             :: id_SO4\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_wetdep\n!\n! !DESCRIPTION: Subroutine DO\\_WETDEP is a driver for the wet deposition code,\n!  called from the MAIN program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_WETDEP( Input_Opt,  State_Chm, State_Diag,                   &\n                        State_Grid, State_Met, RC                           )\n!\n! !USES:\n!\n    USE Diagnostics_Mod, ONLY : Compute_Budget_Diagnostics\n    USE ErrCode_Mod\n    USE Error_Mod,       ONLY : Debug_MSG\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE PhysConstants\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE TIME_MOD,       ONLY : GET_TS_DYN\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  27 Mar 2003 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                 :: TS_Dyn\n    REAL(f8)                :: DT_Dyn\n\n    ! Strings\n    CHARACTER(LEN=255)      :: errMsg\n    CHARACTER(LEN=255)      :: thisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Do_WetDep (in module GeosCore/wetscav_mod.F90)'\n\n    ! Copy values from Input_Opt to module shadow variables\n    LGTMM             = Input_Opt%LGTMM\n    LSOILNOX          = Input_Opt%LSOILNOX\n    LDYNOCEAN         = Input_Opt%LDYNOCEAN\n    ITS_A_MERCURY_SIM = Input_Opt%ITS_A_MERCURY_SIM\n    ITS_A_POPS_SIM    = Input_Opt%ITS_A_POPS_SIM\n\n    !------------------------------------------------------------------------\n    ! WetDep budget diagnostics - Part 1 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetWetDep ) THEN\n\n       ! Get initial column masses (full, trop, PBL)\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetWetDepFull,               &\n            diagFull    = NULL(),                                            &\n            mapDataFull = State_Diag%Map_BudgetWetDepFull,                   &\n            isTrop      = State_Diag%Archive_BudgetWetDepTrop,               &\n            diagTrop    = NULL(),                                            &\n            mapDataTrop = State_Diag%Map_BudgetWetDepTrop,                   &\n            isPBL       = State_Diag%Archive_BudgetWetDepPBL,                &\n            diagPBL     = NULL(),                                            &\n            mapDataPBL  = State_Diag%Map_BudgetWetDepPBL,                    &\n            isLevs      = State_Diag%Archive_BudgetWetDepLevs,               &\n            diagLevs    = NULL(),                                            &\n            mapDataLevs = State_Diag%Map_BudgetWetDepLevs,                   &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            before_op   = .TRUE.,                                            &\n            isWetDep    = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'WetDep budget diagnostics error 1'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Only do wet deposition for large-scale + anvil precip\n    !========================================================================\n\n    !------------------------------------------\n    ! Zero diagnostic arrays in State_Diag\n    ! at the start of a new wetdep cycle\n    !\n    ! *FracLs diagnostics might need work...\n    !------------------------------------------\n!### Comment out these diagnostics for now (bmy, 6/2/20)\n!###    IF ( State_Diag%Archive_PrecipFracLS ) State_Diag%PrecipFracLS = 0.0_f4\n!###    IF ( State_Diag%Archive_RainFracLS   ) State_Diag%RainFracLS   = 0.0_f4\n!###    IF ( State_Diag%Archive_WashFracLS   ) State_Diag%WashFracLS   = 0.0_f4\n    IF ( State_Diag%Archive_WetLossLS  ) THEN\n       State_Diag%WetLossLS = 0.0_f4\n    ENDIF\n    IF ( State_Diag%Archive_SatDiagnWetLossLS  ) THEN\n       State_Diag%SatDiagnWetLossLS = 0.0_f4\n    ENDIF\n\n    !------------------------------------------\n    ! Create precip fields\n    ! (Always assume large-scale precip)\n    !------------------------------------------\n    CALL MAKE_QQ( State_Chm  = State_Chm,  &\n                  State_Grid = State_Grid, &\n                  State_Met  = State_Met,  &\n                  LS         =.TRUE.,      &\n                  RC         = RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Make_QQ\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Debug print\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### DO_WETDEP: before LS wetdep' )\n    ENDIF\n\n    !-----------------------------------------\n    ! Do wet deposition\n    ! (Always assume large-scale precip)\n    !-----------------------------------------\n    CALL WETDEP( Input_Opt  = Input_Opt,  &\n                 State_Chm  = State_Chm,  &\n                 State_Diag = State_Diag, &\n                 State_Grid = State_Grid, &\n                 State_Met  = State_Met,  &\n                 LS         = .TRUE.,     &\n                 RC         = RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Wetdep\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Debug print\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### DO_WETDEP: after LS wetdep' )\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Wet deposition budget diagnostics - Part 2 of 2\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_BudgetWetDep ) THEN\n\n       ! Timestep  for diagnostics [s]\n       TS_Dyn = Get_Ts_Dyn()\n       DT_Dyn = DBLE( TS_Dyn )\n\n       ! Compute change in column masses (after wetdep - before wetdep)\n       ! and store in diagnostic arrays.  Units are [kg/s].\n       CALL Compute_Budget_Diagnostics(                                      &\n            Input_Opt   = Input_Opt,                                         &\n            State_Chm   = State_Chm,                                         &\n            State_Diag  = State_Diag,                                        &\n            State_Grid  = State_Grid,                                        &\n            State_Met   = State_Met,                                         &\n            isFull      = State_Diag%Archive_BudgetWetDepFull,               &\n            diagFull    = State_Diag%BudgetWetDepFull,                       &\n            mapDataFull = State_Diag%Map_BudgetWetDepFull,                   &\n            isTrop      = State_Diag%Archive_BudgetWetDepTrop,               &\n            diagTrop    = State_Diag%BudgetWetDepTrop,                       &\n            mapDataTrop = State_Diag%Map_BudgetWetDepTrop,                   &\n            isPBL       = State_Diag%Archive_BudgetWetDepPBL,                &\n            diagPBL     = State_Diag%BudgetWetDepPBL,                        &\n            mapDataPBL  = State_Diag%Map_BudgetWetDepPBL,                    &\n            isLevs      = State_Diag%Archive_BudgetWetDepLevs,               &\n            diagLevs    = State_Diag%BudgetWetDepLevs,                       &\n            mapDataLevs = State_Diag%Map_BudgetWetDepLevs,                   &\n            colMass     = State_Diag%BudgetColumnMass,                       &\n            timeStep    = DT_Dyn,                                            &\n            isWetDep    = .TRUE.,                                            &\n            RC          = RC                                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'WetDep budget diagnostics error 2'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE DO_WETDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: make_qq\n!\n! !DESCRIPTION: Subroutine MAKE\\_QQ computes the large-scale or convective\n!  precipitation fields for use with WETDEP\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MAKE_QQ( State_Chm, State_Grid, State_Met, LS, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)  :: State_Chm  ! Chemistry State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met  ! Meteorology State object\n    LOGICAL,        INTENT(IN)  :: LS         ! =T, denotes large scale precip\n                                              ! =F, denotes convective precip\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!  Construct QQ and PDOWN directly from met fields.\n!                                                                             .\n!  This only applies to large-scale precip, as the #if defined\n!  block in routine DO_WETDEP prevents the wet deposition\n!  routines from being called if it is convective precip.\n!                                                                             .\n!  Met fields:\n!  =================\n!  DQRLSAN   = 3-D precip production rate  (LS+anvil) [kg/kg/s]\n!  PFILSAN   = Dwnwd flux of ice precip    (LS+anvil) [kg/m2/s]\n!  PFLLSAN   = Dwnwd flux of liquid precip (LS+anvil) [kg/m2/s]\n!  REEVAPLS  = Evap of precip'ing LS+anvil condensate [kg/kg/s]\n!                                                                             .\n!  Unit conversion for QQ:\n!  =======================\n!\n!      kg H2O   |   m^3 H2O   | AIRDEN kg air       m^3 H2O\n!   ------------+-------------+--------------- = -------------\n!    kg air * s | 1000 kg H2O |    m^3 air        m^3 air * s\n!\n!  and [m^3 H2O/m3 air] = [cm^3 H2O/cm3 air] because the same conversion\n!  factor from m^3 -> cm^3 is in both the numerator and the denominator.\n!                                                                             .\n!  Unit conversion for PDOWN:\n!  ==========================\n!                                                                             .\n!      kg H2O |   m^3 H2O   | 1e6 cm^3 |  m^2\n!   ----------+-------------+----------+--------- +\n!     m^2 * s | 1000 kg H2O |   m^3    | 1e4 cm2\n!                                                                             .\n!      kg ice |   m^3 ice   | 1e6 cm^3 |  m^2\n!   ----------+-------------+----------+---------\n!     m^2 * s |  917 kg ice |   m^3    | 1e4 cm2\n!                                                                             .\n!  = [ (PFILSAN/1000) * 100 ] + [ (PFILSAN/1000) * 100]\n!\n! !REMARKS:\n!  The PFILSAN and PFLLSAN fields are defined on level edges.\n!  Therefore, we must use L+1 to index them.\n!\n! !REVISION HISTORY:\n!  29 Feb 2000 - H. Liu, R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I, J, L\n\n    !=================================================================\n    ! Loop over surface grid boxes\n    !=================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    !$OMP PARALLEL DO        &\n    !$OMP DEFAULT( SHARED  ) &\n    !$OMP PRIVATE( I, J, L ) &\n    !$OMP COLLAPSE( 3      )\n    DO L = 1, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Rate of new precipitation formation in grid box (I,J,L)\n       ! [cm3 H2O/cm3 air/s]\n       State_Met%QQ(L,I,J) = ( State_Met%DQRLSAN(I,J,L)                 ) &\n                           * ( State_Met%MAIRDEN(I,J,L)     / 1000.0_fp )\n#ifdef LUO_WETDEP\n       ! Luo et al scheme: save QQ to State_Chm for further use\n       State_Chm%QQ3D(I,J,L) = MAX(0.0_fp,State_Met%QQ(L,I,J))\n#endif\n\n       ! Rate of re-evaporation in grid box (I,J,L)\n       ! [cm3 H2O/cm3 air/s]\n       State_Met%REEVAP(L,I,J) = ( State_Met%REEVAPLS(I,J,L)                ) &\n                               * ( State_Met%AIRDEN(I,J,L)      / 1000.0_fp )\n\n       ! Column precipitation [cm3 H2O/cm2 air/s]\n#ifdef LUO_WETDEP\n       State_Met%REEVAP(L,I,J) = MAX(0.0_fp,State_Met%REEVAP(L,I,J))\n       ! Luo et al scheme: Use level L\n       State_Met%PDOWN(L,I,J)  = ( ( State_Met%PFLLSAN(I,J,L) / 1000.0_fp )   &\n                               +   ( State_Met%PFILSAN(I,J,L) /  917.0_fp ) ) &\n                               * 100.0_fp\n       State_Met%PDOWN(L,I,J)  = MAX(0.0_fp,State_Met%PDOWN(L,I,J))\n#else\n       ! Default scheme: Use level L+1\n       State_Met%PDOWN(L,I,J)  = ( ( State_Met%PFLLSAN(I,J,L+1) / 1000.0_fp )   &\n                               +   ( State_Met%PFILSAN(I,J,L+1) /  917.0_fp ) ) &\n                               * 100.0_fp\n#endif\n\n    ENDDO\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE MAKE_QQ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: e_ice\n!\n! !DESCRIPTION: Subroutine E\\_ICE computes Eice(T), the saturation vapor\n!  pressure of ice at a given Celsius temperature.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION E_ICE( TK ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: TK      ! Temperature [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: VALUE   ! Saturation vapor pressure [hPa]\n!\n! !REMARKS:\n!  Marti & Mauersberber (GRL '93) formulation of saturation\n!  vapor pressure of ice [Pa] is: log P = A/TK + B\n!\n! !REVISION HISTORY:\n!  08 Feb 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER  :: A = -2663.5e+0_fp\n    REAL(fp), PARAMETER  :: B =  12.537e+0_fp\n\n    !=================================================================\n    ! E_ICE begins here!\n    !=================================================================\n\n    ! Saturation vap press of Ice [Pa] -- divide by 100 for [hPa]\n    IF ( TK <= TINY_FP ) THEN\n       VALUE = 0.0_fp\n    ELSE\n       VALUE = ( 10e+0_fp**( A/TK + B ) ) / 100e+0_fp\n    ENDIF\n\n  END FUNCTION E_ICE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_l2g\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_L2G computes the ratio L2G = Cliq / Cgas,\n!  which is the mixing ratio of species in the liquid phase, divided by the\n!  mixing ratio of species in the gas phase.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE COMPUTE_L2G( K0, CR, pKa, TK, H2OLIQ, pH, L2G )\n!\n! !USES:\n!\n    USE Henry_Mod, ONLY : Calc_KH\n    USE Henry_Mod, ONLY : Calc_Heff\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)  :: K0     ! Henry's solubility constant [M/atm]\n    REAL(f8), INTENT(IN)  :: CR     ! Henry's volatility constant [K]\n    REAL(f8), INTENT(IN)  :: pKa    ! Henry's pH correction factor [1]\n    REAL(fp), INTENT(IN)  :: TK     ! Temperature [K]\n    REAL(fp), INTENT(IN)  :: H2OLIQ ! Liquid water content [cm3 H2O/cm3 air]\n    REAL(f8), INTENT(IN)  :: pH     ! pH of input water\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: L2G    ! Cliq/Cgas ratio [1]\n!\n! !REMARKS:\n!  The ratio Cliq / Cgas is obtained via Henry's law.  The appropriate\n!  values of Kstar298 and H298_R must be supplied for each species.\n!  (cf Jacob et al 2000, p. 3)\n!\n! !REVISION HISTORY:\n!  23 Feb 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: RC\n    REAL(f8) :: HEFF, KH, TK_8\n\n    !=================================================================\n    ! COMPUTE_L2G begins here!\n    !=================================================================\n\n    ! Cast temperature to REAL*8\n    TK_8 = TK\n\n    ! Calculate the Henry's law constant\n    CALL CALC_KH( K0, CR, TK_8, KH, RC )\n\n    ! Calculate effective Henry's law constant, corrected for pH\n    ! (for those species that have a defined pKa value)\n    CALL CALC_HEFF( pKa, pH, KH, HEFF, RC )\n\n    ! Use Henry's Law to get the ratio:\n    ! [ mixing ratio in liquid phase / mixing ratio in gas phase ]\n    L2G   = HEFF * H2OLIQ\n\n  END SUBROUTINE COMPUTE_L2G\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_f\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_F computes F, the fraction of soluble\n!  species lost by scavenging in convective cloud updrafts.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE COMPUTE_F( N, F, ISOL, Input_Opt, State_Chm, State_Grid, &\n                        State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Species_Mod,        ONLY : Species\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n#ifdef TOMAS\n    USE Tomas_Mod,          ONLY : GetFraction\n#endif\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: N          ! Species ID\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: ISOL       ! Index for ND38 diag\n    REAL(fp),       INTENT(OUT)   :: F(:,:,:)   ! Soluble fraction of species\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  23 Feb 2000 - H. Liu, R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                  :: I, J, L\n    REAL(fp)                 :: SO2LOSS,   Ki\n#ifdef LUO_WETDEP\n    REAL(fp)                 :: LIQCOV, ICECOV\n#endif\n#ifdef TOMAS\n    REAL(fp)                 :: SOLFRAC,   XFRAC\n#endif\n\n    ! Arrays\n    REAL(fp)                 :: KcScale(3)\n\n    ! Pointers\n    REAL(fp),      POINTER   :: p_C_H2O\n    REAL(fp),      POINTER   :: p_CLDICE\n    REAL(fp),      POINTER   :: p_CLDLIQ\n    REAL(fp),      POINTER   :: p_T\n    REAL(fp),      POINTER   :: H2O2s(:,:,:)\n    REAL(fp),      POINTER   :: SO2s(:,:,:)\n#ifdef LUO_WETDEP\n    REAL(fp),      POINTER   :: p_pHcloud\n#endif\n\n    ! Objects\n    TYPE(Species), POINTER   :: SpcInfo\n!\n! !DEFINED PARAMETERS:\n!\n    ! Kc is the conversion rate from cloud condensate to precip [s^-1]\n    REAL(fp),      PARAMETER :: Kc = 5e-3_fp\n\n    !=================================================================\n    ! COMPUTE_F begins here!\n    !=================================================================\n\n    ! Assume success\n    RC         =  GC_SUCCESS\n\n    ! Initialize\n    F          =  0.0_fp\n    p_C_H2O    => NULL()\n    p_CLDICE   => NULL()\n    p_CLDLIQ   => NULL()\n    p_T        => NULL()\n    H2O2s      => State_Chm%H2O2AfterChem\n    SO2s       => State_Chm%SO2AfterChem\n    SpcInfo    => State_Chm%SpcData(N)%Info\n\n    ! ISOL is the wetdep ID (will be -999 if not a wetdep species)\n    ISOL       =  SpcInfo%WetDepId\n\n    ! Exit with F=0, ISOL=0 if this is not a wetdep species\n    IF ( .not. SpcInfo%Is_WetDep ) THEN\n       SpcInfo => NULL()\n       RETURN\n    ENDIF\n\n    ! Temperature-dependent scale factors for the KC rate\n    ! (conversion of cloud condensate -> precipitation)\n    KcScale    = SpcInfo%WD_KcScaleFac\n\n    !=================================================================\n    ! %%% SPECIAL CASE %%%\n    ! SO2 scavenges like an aerosol although it is considered\n    ! to be a gas-phase species elsewhere (e.g. dry deposition)\n    !=================================================================\n#ifdef LUO_WETDEP\n    !--------------------------------------------------------------\n    ! Soluble gas-phase species\n    !\n    ! NOTE: HNO3 scavenges like an aerosol, although it is\n    ! considered a gas-phase species elsewhere.  Compute the\n    ! fraction of HNO3 scavenged out of the column further down\n    ! in the last ELSE block.\n    !--------------------------------------------------------------\n    IF ( SpcInfo%Is_Gas .and. ( .not. SpcInfo%WD_Is_HNO3 ) ) THEN\n\n       ! No scavenging at the surface\n       F(:,:,1) = 0.0_fp\n\n       ! Start scavenging at level 2\n       DO L = 2, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Set pointers\n          p_C_H2O   => State_Met%C_H2O (I,J,L)\n          p_CLDICE  => State_Met%CLDICE(I,J,L)\n          p_CLDLIQ  => State_Met%CLDLIQ(I,J,L)\n          p_T       => State_Met%T(I,J,L)\n\n          ! Use a default cloud pH of 5.6, stored in State_Chm%phCloud\n          ! (unless this value is recomputed in sulfate chemistry)\n          p_pHcloud => State_Chm%pHcloud(I,J,L)\n\n          LIQCOV = p_CLDLIQ / MAX(1.D-4,State_Met%CLDF(I,J,L))\n          ICECOV = p_CLDICE / MAX(1.D-4,State_Met%CLDF(I,J,L))\n\n          ! Compute Ki, the loss rate of a gas-phase species from\n          ! the convective updraft (Eq. 1, Jacob et al, 2000)\n          CALL COMPUTE_Ki( SpcInfo,   p_C_H2O, ICECOV, LIQCOV,               &\n                           p_pHcloud, Kc,      p_T,    Ki                   )\n\n          ! Free pointers\n          p_C_H2O   => NULL()\n          p_CLDICE  => NULL()\n          p_CLDLIQ  => NULL()\n          p_T       => NULL()\n          p_pHcloud => NULL()\n\n          ! Compute F, the fraction of scavenged H2O2.\n          ! (Eq. 2, Jacob et al, 2000)\n          F(I,J,L) = GET_F( Input_Opt, State_Met, I, J, L, Ki )\n\n       ENDDO\n       ENDDO\n       ENDDO\n#else\n    IF ( SpcInfo%WD_Is_SO2 ) THEN\n\n       ! Default scheme: Compute fraction of SO2 scavenged\n       CALL F_AEROSOL( KC, KcScale, Input_Opt, State_Grid, State_Met, F )\n\n       !--------------------------------------------------------------\n       ! Coupled full chemistry/aerosol simulation:\n       ! Use the wet scavenging formula of Chin et al [1996],\n       ! such that a soluble fraction of SO2 is limited by the\n       ! availability of H2O2 in the precipitating grid box.\n       ! Scavenge the soluble SO2 at the same rate as the sulfate.\n       ! Update H2O2_sav and SO2_sav for use in RAINOUT, WASHOUT\n       !--------------------------------------------------------------\n       DO L = 2, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Make sure to deplete H2O2s the same as SO2s.\n          ! (dkh, rjp, bmy, 11/17/05)\n          IF ( SO2s(I,J,L) > TINY_FP ) THEN\n\n             ! Limit F\n             SO2LOSS      = MIN( H2O2s(I,J,L), SO2s(I,J,L) )\n             F(I,J,L)     = F(I,J,L) * SO2LOSS / SO2s(I,J,L)\n             F(I,J,L)     = MAX(F(I,J,L), 0e+0_fp)\n\n             ! Update saved H2O2 concentration\n             H2O2s(I,J,L) = H2O2s(I,J,L) - ( SO2s(I,J,L) * F(I,J,L) )\n             H2O2s(I,J,L) = MAX( H2O2s(I,J,L), TINY_FP )\n\n          ELSE\n\n             ! Set F = 0 if SO2s < EPSILON (dkh, rjp, bmy, 11/17/05)\n             F(I,J,L)     = 0e+0_fp\n\n          ENDIF\n\n          ! Update SO2\n          SO2s(I,J,L)     = SO2s(I,J,L) * ( 1e+0_fp - F(I,J,L) )\n          SO2s(I,J,L)     = MAX( SO2s(I,J,L), TINY_FP )\n\n       ENDDO\n       ENDDO\n       ENDDO\n\n       !=================================================================\n       ! For all other species, compute the fraction of species\n       ! scavenged in updrafts.\n       !=================================================================\n\n    !--------------------------------------------------------------\n    ! Soluble gas-phase species\n    !\n    ! NOTE: HNO3 scavenges like an aerosol, although it is\n    ! considered a gas-phase species elsewhere.  Compute the\n    ! fraction of HNO3 scavenged out of the column further down\n    ! in the last ELSE block.\n    !--------------------------------------------------------------\n    ELSE IF ( SpcInfo%Is_Gas .and. ( .not. SpcInfo%WD_Is_HNO3 ) ) THEN\n\n       ! No scavenging at the surface\n       F(:,:,1) = 0.0_fp\n\n       ! Start scavenging at level 2\n       DO L = 2, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Set pointers\n          p_C_H2O  => State_Met%C_H2O (I,J,L)\n          p_CLDICE => State_Met%CLDICE(I,J,L)\n          p_CLDLIQ => State_Met%CLDLIQ(I,J,L)\n          p_T      => State_Met%T(I,J,L)\n\n          ! Compute Ki, the loss rate of a gas-phase species from\n          ! the convective updraft (Eq. 1, Jacob et al, 2000)\n          CALL COMPUTE_Ki( SpcInfo, p_C_H2O, p_CLDICE, p_CLDLIQ,             &\n                           Kc,      p_T,     Ki                             )\n\n          ! Free pointers\n          p_C_H2O  => NULL()\n          p_CLDICE => NULL()\n          p_CLDLIQ => NULL()\n          p_T      => NULL()\n\n          ! Compute F, the fraction of scavenged H2O2.\n          ! (Eq. 2, Jacob et al, 2000)\n          F(I,J,L) = GET_F( Input_Opt, State_Met, I, J, L, Ki )\n\n       ENDDO\n       ENDDO\n       ENDDO\n#endif\n\n    !-----------------------------------------------------------\n    ! Size-resolved soluble aerosol species\n    ! (Microphysics simulations only)\n    !-----------------------------------------------------------\n    ELSE IF ( SpcInfo%MP_SizeResAer ) THEN\n\n#ifdef TOMAS\n       ! Get the fraction of species scavenged in updrafts\n       ! NOTE: The surface layer F(:,:,1) will be returned\n       ! as zero, to shut off scavenging at the surface\n       CALL F_AEROSOL( KC, KcScale, Input_Opt, State_Grid, State_Met, F )\n\n       ! Adjust F for size-resolved aerosol (multiply by XFRAC)\n       ! NOTE: Here species units are in kg/kg dry, so State_Met%AD(I,J,L)\n       ! is the unit conversion factor (Bob Yantosca, 10 Apr 2024)\n       DO L = 2, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          CALL GETFRACTION( I,           J,                   L,             &\n                            N,           .FALSE.,             State_Chm,     &\n                            State_Grid,  State_Met,           XFRAC,         &\n                            SOLFRAC,     State_Met%AD(I,J,L)                )\n          F(I,J,L) = XFRAC * F(I,J,L)\n       ENDDO\n       ENDDO\n       ENDDO\n#endif\n\n    !-----------------------------------------------------------\n    ! Size-resolved aerosol number\n    ! (Microphysics simulations only)\n    !-----------------------------------------------------------\n    ELSE IF ( SpcInfo%MP_SizeResNum ) THEN\n\n#ifdef TOMAS\n       ! Get the fraction of species scavenged in updrafts\n       ! NOTE: The surface layer F(:,:,1) will be returned\n       ! as zero, to shut off scavenging at the surface\n       CALL F_AEROSOL( KC, KcScale, Input_Opt, State_Grid, State_Met, F )\n\n       ! Adjust F for size-resolved aerosol number\n       ! (multiply by XFRAC * SOLFRAC)\n       ! NOTE: Here species units are in kg/kg dry, so State_Met%AD(I,J,L)\n       ! is the unit conversion factor (Bob Yantosca, 10 Apr 2024)\n       DO L = 2, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          CALL GETFRACTION( I,           J,                   L,             &\n                            N,           .FALSE.,             State_Chm,     &\n                            State_Grid,  State_Met,           XFRAC,         &\n                            SOLFRAC,     State_Met%AD(I,J,L)                )\n          F(I,J,L) = XFRAC * SOLFRAC * F(I,J,L)\n       ENDDO\n       ENDDO\n       ENDDO\n#endif\n\n    !-----------------------------------------------------------\n    ! Soluble aerosol species (non-size-resolved)\n    ! including the special case of HNO3 as well as H2SO4\n    ! if using TOMAS microphysics\n    !-----------------------------------------------------------\n    ELSE\n\n       ! Get the fraction of species scavenged in updrafts\n       ! NOTE: The surface layer F(:,:,1) will be returned\n       ! as zero, to shut off scavenging at the surface\n       CALL F_AEROSOL( KC, KcScale, Input_Opt, State_Grid, State_Met, F )\n\n       ! Multiply by the aerosol scavenging efficiency\n       ! For most species this is 1.0\n       ! For SOA species this is usually 0.8\n       IF ( SpcInfo%WD_AerScavEff > 0.0_fp ) THEN\n          F = F * SpcInfo%WD_AerScavEff\n       ENDIF\n\n    ENDIF\n\n    ! Nullify pointers\n    p_C_H2O   => NULL()\n    p_CLDICE  => NULL()\n    p_CLDLIQ  => NULL()\n    p_T       => NULL()\n    H2O2s     => NULL()\n    SO2s      => NULL()\n    SpcInfo   => NULL()\n\n  END SUBROUTINE COMPUTE_F\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: compute_ki\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_Ki computes the loss of species\n!  by scavenging according to Jacob et al 2000, eq. 1.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n#ifdef LUO_WETDEP\n  SUBROUTINE COMPUTE_Ki( SpcInfo, C_H2O, CLDICE, CLDLIQ,                     &\n                         pHCloud, Kc,    T,       Ki                        )\n#else\n  SUBROUTINE COMPUTE_Ki( SpcInfo, C_H2O, CLDICE, CLDLIQ, Kc, T, Ki          )\n#endif\n!\n! !USES:\n!\n    USE Species_Mod, ONLY : Species\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(Species), INTENT(IN)  :: SpcInfo  ! Species database object\n    REAL(fp),      INTENT(IN)  :: C_H2O    ! Mixing ratio of H2O [v/v]\n    REAL(fp),      INTENT(IN)  :: CLDICE   ! Cloud ice mixing ratio\n                                           !  [cm3 ice/cm3 air]\n    REAL(fp),      INTENT(IN)  :: CLDLIQ   ! Cloud liquid water mix ratio\n                                           !  [cm3 H2O/cm3 air]\n    REAL(fp),      INTENT(IN)  :: Kc       ! Rate for conversion of cloud\n                                           !  condensate -> precip [1/s]\n    REAL(fp),      INTENT(IN)  :: T        ! Temperature [K]\n#ifdef LUO_WETDEP\n    REAL(fp),      INTENT(IN)  :: pHCloud  ! pH in cloud\n#endif\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),      INTENT(OUT) :: Ki       ! Loss of species from updraft\n                                           !  (cf Eq. 1, Jacob et al, 2000)\n!\n! !REMARKS:\n!  This routine centralizes computations that are used in routines\n!  COMPUTE_F and RAINOUT.\n!\n! !REVISION HISTORY:\n!  25 Sep 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp) :: L2G,   I2G,   C_TOT, F_L, F_I\n    REAL(f8) :: K0,    CR,    pKa\n#ifdef LUO_WETDEP\n    REAL(f8) :: Hplus, Henry, Ks1,   Ks2, T_term\n#endif\n\n    !=================================================================\n    ! COMPUTE_Ki begins here!\n    !=================================================================\n\n    ! Get Henry's law parameters\n    K0   = SpcInfo%Henry_K0\n    CR   = SpcInfo%Henry_CR\n    pKa  = SpcInfo%Henry_pKa\n\n#ifdef LUO_WETDEP\n    IF ( SpcInfo%WD_is_SO2 ) THEN\n       Hplus  = 10.0_f8**( -pHCloud )\n       T_term = ( 298.15_f8 / T - 1.0_f8 )\n       Henry  = 1.22_f8    * EXP( 10.55_f8 * T_term )\n       Ks1    = 1.30e-2_f8 * EXP(  6.75_f8 * T_term )\n       Ks2    = 6.31e-8_f8 * EXP(  5.05_f8 * T_term )\n       K0     = Henry * ( 1.0_f8 + Ks1/Hplus + Ks1*Ks2/(Hplus*Hplus) )\n       CR     = 0.d0\n       pKa    = -999.0_f8\n    ENDIF\n\n    IF ( SpcInfo%ModelId == id_NH3 ) THEN\n       Hplus  = 10.0_f8**( -pHCloud )\n       T_term = ( 1.0_f8 / T ) - INV_T298\n       Henry  = 59.8_f8    * EXP(  4200.0_fp * T_term )\n       Ks1    = 1.0e-14_f8 * EXP( -6710.0_fp * T_term )\n       Ks2    = 1.7e-5_f8  * EXP( -4325.0_fp * T_term )\n       K0     = Henry * ( 1.0_f8 + ( ( Ks2* Hplus ) / Ks1 ) )\n       CR     = 0.0_f8\n       pKa    = -999.0_f8\n    ENDIF\n#endif\n\n    IF ( SpcInfo%WD_LiqAndGas ) THEN\n\n       ! For species that consider ice and liquid phases\n       ! in wet deposition, compute ice to gas ratio for by\n       ! co-condensation (Eq. 9, Jacob et al, 2000)\n       IF ( C_H2O > 0.0_fp ) THEN\n          I2G = ( CLDICE / C_H2O ) * SpcInfo%WD_ConvFacI2G\n       ELSE\n          I2G = 0.0_fp\n       ENDIF\n\n    ELSE\n\n       ! For all other species, set the ice/gas ratio to zero\n       I2G = 0.0_fp\n\n    ENDIF\n\n    ! Compute liquid to gas ratio for using\n    ! the appropriate parameters for Henry's law\n    ! (Eqs. 7, 8, and Table 1, Jacob et al, 2000)\n#ifdef LUO_WETDEP\n    CALL COMPUTE_L2G( K0, CR, pKa, T, CLDLIQ, pHCloud, L2G ) ! pH in Cloud\n#else\n    CALL COMPUTE_L2G( K0, CR, pKa, T, CLDLIQ, 4.5_f8,  L2G ) ! Default pH\n#endif\n\n    ! Fraction of species in liquid & ice phases\n    ! (Eqs. 4, 5, 6, Jacob et al, 2000)\n    C_TOT = 1.0_fp + L2G + I2G\n    F_L   = L2G / C_TOT\n    F_I   = I2G / C_TOT\n\n    ! Compute the rate constant Ki for loss of species from\n    ! convective updraft scavenging (Eq. 1, Jacob et al, 2000)\n    IF ( T >= 268.0_fp ) THEN\n       Ki = KC * ( F_L + F_I )\n\n    ELSE IF ( T > 248.0_fp  .and. T < 268.0_fp ) THEN\n       Ki = KC * ( ( SpcInfo%WD_RetFactor * F_L ) + F_I )\n\n    ELSE\n       Ki = KC * F_I\n\n    ENDIF\n\n  END SUBROUTINE COMPUTE_Ki\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: f_aerosol\n!\n! !DESCRIPTION: Subroutine F\\_AEROSOL returns the fraction of aerosol\n!  scavenged in updrafts\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE F_AEROSOL( KC, KcScale, Input_Opt, State_Grid, State_Met, F )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY: OptInput\n    USE State_Grid_Mod,     ONLY: GrdState\n    USE State_Met_Mod,      ONLY: MetState\n!\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(IN)  :: KC                   ! Cloud condensate to\n                                                        !  precipitation rate\n                                                        !  [1/s]\n    REAL(fp),       INTENT(IN)  :: KcScale(3)           ! Scale factors for Kc\n                                                        !  for 3 temperature\n                                                        !  regimes\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt            ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid           ! Grid State Object\n    TYPE(MetState), INTENT(IN)  :: State_Met            ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Fraction of aerosol scavenged in convective updrafts\n    REAL(fp),       INTENT(OUT) :: F(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n!\n! !REVISION HISTORY:\n!  07 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER  :: I, J, L\n    REAL(fp) :: TMP, FF, Scaled_KC\n\n    !=================================================================\n    ! F_AEROSOL begins here!\n    !\n    ! Aerosol species are 100% in the cloud condensate phase, so\n    ! we set K = Kc, and compute F accordingly (cf Jacob et al 2000 )\n    !=================================================================\n\n    ! Turn off scavenging in the first level by setting F = 0\n    F(:,:,1) = 0.0_fp\n\n    ! Apply scavenging in levels 2 and higher\n    DO L = 2, State_Grid%NZ\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Apply temperature-dependent scale factors to the KC rate for ..\n       IF ( State_Met%T(I,J,L) < 237.0_fp ) THEN\n\n          ! Ice: T < 237 K:\n          Scaled_KC = KC * KcScale(1)\n\n       ELSE IF ( State_Met%T(I,J,L) >= 237.0_fp  .and. &\n                 State_Met%T(I,J,L) <  258.0_fp ) THEN\n\n          ! Snow: 237 K <= T < 258 K\n          Scaled_KC = KC * KcScale(2)\n\n       ELSE\n\n          ! Rain: T > 258 K\n          Scaled_KC = KC * KcScale(3)\n\n       ENDIF\n\n       ! (Eq. 2, Jacob et al, 2000, with K = Kc)\n       ! Kc now has been scaled for impaction scavenging (bmy, 9/24/15)\n       F(I,J,L) = GET_F( Input_Opt, State_Met, I, J, L, Scaled_KC )\n\n    ENDDO\n    ENDDO\n    ENDDO\n\n  END SUBROUTINE F_AEROSOL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rainout\n!\n! !DESCRIPTION: Subroutine RAINOUT computes RAINFRAC, the fraction of soluble\n!  species lost to rainout events in precipitation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE RAINOUT( I,         J,         L,         N, &\n                      K_RAIN,    DT,        F,         RAINFRAC, &\n                      Input_Opt, State_Met, State_Chm, RC        )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Species_Mod,   ONLY : Species\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: I          ! Longitude index\n    INTEGER,        INTENT(IN)  :: J          ! Latitude index\n    INTEGER,        INTENT(IN)  :: L          ! Level index\n    INTEGER,        INTENT(IN)  :: N          ! Species number\n    REAL(fp),       INTENT(IN)  :: K_RAIN     ! Rainout rate constant [1/s]\n    REAL(fp),       INTENT(IN)  :: DT         ! Timestep for rainout event [s]\n    REAL(fp),       INTENT(IN)  :: F          ! Fraction of grid box that is\n                                              !  precipitating [unitless]\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt  ! Input options\n    TYPE(MetState), INTENT(IN)  :: State_Met  ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)  :: State_Chm  ! Chemistry State object\n\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT) :: RAINFRAC   ! Fraction of species lost\n                                              !  to rainout [unitless]\n    INTEGER,        INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Feb 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp)               :: Ki, SO2LOSS\n#ifdef LUO_WETDEP\n    REAL(fp)               :: LIQCLD, ICECLD\n    REAL(fp)               :: YCLDICE, FICE, FC, RAINRATE\n#endif\n\n    ! Pointers\n    REAL(fp),      POINTER :: p_C_H2O\n    REAL(fp),      POINTER :: p_CLDICE\n    REAL(fp),      POINTER :: p_CLDLIQ\n    REAL(fp),      POINTER :: p_T\n#ifdef LUO_WETDEP\n    REAL(fp),      POINTER :: p_pHCloud\n#endif\n    REAL(fp),      POINTER :: H2O2s(:,:,:)\n    REAL(fp),      POINTER :: SO2s(:,:,:)\n\n    ! Objects\n    TYPE(Species), POINTER :: SpcInfo\n\n    !==================================================================\n    ! RAINOUT begins here!\n    !\n    ! For aerosols, set Kc = K_RAIN and compute RAINFRAC according\n    ! to Eq. 10 of Jacob et al 2000.  Call function GET_RAINFRAC.\n    !==================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n\n    ! Set pointers\n    p_C_H2O   => State_Met%C_H2O(I,J,L)\n    p_CLDICE  => State_Met%CLDICE(I,J,L)\n    p_CLDLIQ  => State_Met%CLDLIQ(I,J,L)\n    p_T       => State_Met%T(I,J,L)\n    H2O2s     => State_Chm%H2O2AfterChem\n    SO2s      => State_Chm%SO2AfterChem\n    SpcInfo   => State_Chm%SpcData(N)%Info\n\n#ifdef LUO_WETDEP\n    ! Set pointer\n    p_pHCloud => State_Chm%pHCloud(I,J,L)\n\n    !=================================================================\n    ! %%% SPECIAL CASE %%%\n    !=================================================================\n    ! Compute rainout fraction for soluble gas-phase species\n    ! (except for HNO3 and H2SO4 which scavenge like aerosols)\n    !=================================================================\n    IF ( SpcInfo%Is_Gas                 .and. &\n         ( .not. SpcInfo%WD_Is_HNO3 )   .and. &\n         ( .not. SpcInfo%WD_Is_H2SO4 ) ) THEN\n\n       LIQCLD = p_CLDLIQ / MAX(1.D-4,State_Met%CLDF(I,J,L))\n       ICECLD = p_CLDICE / MAX(1.D-4,State_Met%CLDF(I,J,L))\n\n       ! Compute Ki, the loss rate of a gas-phase species from\n       ! the convective updraft (Eq. 1, Jacob et al, 2000)\n       CALL COMPUTE_Ki( SpcInfo,   p_C_H2O, ICECLD, LIQCLD,                  &\n                        p_pHCloud, K_RAIN,  p_T,    Ki                      )\n\n       ! Compute RAINFRAC, the fraction of rained-out H2O2\n       ! (Eq. 10, Jacob et al, 2000)\n       RAINFRAC = GET_RAINFRAC( Ki, F, DT )\n\n    !=================================================================\n    ! Compute rainout fraction for aerosol species\n    ! (including HNO3 and H2SO4 which scavenge like aerosols)\n    !=================================================================\n    ELSE\n\n       ! Compute rainout fraction for aerosol tracres\n       RAINFRAC = GET_RAINFRAC( K_RAIN, F, DT )\n\n       IF(SpcInfo%WD_Is_HNO3)THEN\n\n         IF(p_T<237.D0)THEN\n         IF(p_T>185.D0)THEN\n           RAINFRAC = (MAX(0.d0,State_Met%QI(I,J,L))+&\n                       MAX(0.d0,State_Met%QL(I,J,L)))*&\n                       State_Met%AIRDEN(I,J,L)*1.D-3*&\n                       (SpcInfo%MW_g/18.D0)/&\n                       MAX(1.D-4,State_Met%CLDF(I,J,L))*&\n                       (10.D0**(-26.4641D0*&\n                       (1.00155D0**p_T)+30.6534D0))\n           RAINFRAC = RAINFRAC/&\n                      MAX(1.D-30,(State_Chm%Species(N)%Conc(I,J,L)*&\n                          28.9644d0/SpcInfo%MW_g/&\n                         (State_Met%AIRDEN(I,J,L)*&\n                          State_Met%BXHEIGHT(I,J,L))))\n\n           RAINFRAC = MAX(0.D0,MIN(1.D0,RAINFRAC))\n         ELSE\n           CALL APPLY_RAINOUT_EFF( p_T, SpcInfo, RAINFRAC )\n         ENDIF\n         ELSE\n           CALL APPLY_RAINOUT_EFF( p_T, SpcInfo, RAINFRAC )\n         ENDIF\n\n       ELSE\n\n         CALL APPLY_RAINOUT_EFF( p_T, SpcInfo, RAINFRAC )\n\n         IF(p_T<237.D0)THEN\n         IF(State_Chm%Species(N)%Conc(I,J,L)>1.D-20)THEN\n           RAINFRAC = RAINFRAC*MAX(0.D0,&\n           MIN( (0.06*MAX(0.d0,MIN(1.d0,((237.d0-p_T)/27.d0)))*&\n              (State_Met%QI(I,J,L)+State_Met%QL(I,J,L))*&\n               State_Met%AIRDEN(I,J,L)/&\n               MAX(1.D-4,State_Met%CLDF(I,J,L))*&\n               State_Met%BXHEIGHT(I,J,L)&\n               *SpcInfo%MW_g/18.d0),&\n               State_Chm%Species(N)%Conc(I,J,L) )/&\n               State_Chm%Species(N)%Conc(I,J,L))\n         ENDIF\n         ENDIF\n\n       ENDIF\n\n    ENDIF\n    \n#ifdef LUO_WETDEP\n    IF(p_T<237.D0 .AND. State_Met%CLDF(I,J,L)>1.D-6)THEN\n\n      YCLDICE = State_Met%QI(I,J,L)*State_Met%AIRDEN(I,J,L)*1.0D3\n      IF(YCLDICE>1.D-20)THEN\n\n        FICE=State_Met%CLDF(I,J,L)*YCLDICE/&\n        (YCLDICE+State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1.0D3)\n\n        IF(FICE>1.D-6)THEN\n\n          IF(SpcInfo%WD_RainoutEff(3)>0.6D0)THEN\n            RAINFRAC = RAINFRAC*(1.D0-EXP(-MIN(100.D0,DT*State_Met%TKICE(I,J,L))))\n          ENDIF\n        ENDIF\n      ENDIF\n    ENDIF\n\n    FC=MAX(1.D-4,State_Met%CLDF(I,J,L))\n    IF(RAINFRAC>0.D0)THEN\n      RAINRATE = RAINFRAC/DT/FC\n\n      RAINFRAC = RAINFRAC*(State_Met%KINC(I,J,L)/ &\n                (State_Met%KINC(I,J,L)+ &\n                (1.D0-FC)*RAINRATE))\n    ENDIF\n#endif\n\n    ! Free pointer\n    p_pHCloud => NULL()\n#else\n    !=================================================================\n    ! %%% SPECIAL CASE %%%\n    ! SO2 scavenges like an aerosol although it is considered\n    ! to be a gas-phase species elsewhere (e.g. dry deposition)\n    !=================================================================\n    IF ( SpcInfo%WD_Is_SO2 ) THEN\n\n       ! Update SO2 and H2O2\n       IF ( SO2s(I,J,L) > TINY_FP ) THEN\n\n          ! Default scheme: Treat SO2 as an aerosol\n          ! Then apply temperature-dependent rainout efficiencies\n          ! This accounts for impaction scavenging of certain aerosols\n          RAINFRAC = GET_RAINFRAC( K_RAIN, F, DT )\n          CALL APPLY_RAINOUT_EFF( p_T, SpcInfo, RAINFRAC )\n\n          ! Limit RAINFRAC\n          SO2LOSS      = MIN( SO2s(I,J,L), H2O2s(I,J,L) )\n          RAINFRAC     = SO2LOSS * RAINFRAC / SO2s(I,J,L)\n          RAINFRAC     = MAX( RAINFRAC, 0e+0_fp )\n\n          ! Update saved H2O2 concentration\n          H2O2s(I,J,L) = H2O2s(I,J,L) - ( SO2s(I,J,L) * RAINFRAC )\n          H2O2s(I,J,L) = MAX( H2O2s(I,J,L), TINY_FP )\n\n       ELSE\n\n          ! If SO2s is not defined (i.e. if wetdep and convection\n          ! are turned off), then set\n          RAINFRAC     = 0.0_fp\n\n       ENDIF\n\n       ! Update saved SO2 concentration\n       SO2s(I,J,L)     = SO2s(I,J,L) * ( 1.0_fp - RAINFRAC )\n       SO2s(I,J,L)     = MAX( SO2s(I,J,L), TINY_FP )\n\n    !=================================================================\n    ! Compute rainout fraction for soluble gas-phase species\n    ! (except for HNO3 and H2SO4 which scavenge like aerosols)\n    !=================================================================\n    ELSE IF ( SpcInfo%Is_Gas                 .and. &\n              ( .not. SpcInfo%WD_Is_HNO3 )   .and. &\n              ( .not. SpcInfo%WD_Is_H2SO4 ) ) THEN\n\n       ! Compute Ki, the loss rate of a gas-phase species from\n       ! the convective updraft (Eq. 1, Jacob et al, 2000)\n       CALL COMPUTE_Ki( SpcInfo,  p_C_H2O, p_CLDICE, &\n                        p_CLDLIQ, K_RAIN,  p_T,      Ki )\n\n\n       ! Compute RAINFRAC, the fraction of rained-out H2O2\n       ! (Eq. 10, Jacob et al, 2000)\n       RAINFRAC = GET_RAINFRAC( Ki, F, DT )\n\n    !=================================================================\n    ! Compute rainout fraction for aerosol species\n    ! (including HNO3 and H2SO4 which scavenge like aerosols)\n    !=================================================================\n    ELSE\n\n       ! Compute rainout fraction for aerosol tracres\n       RAINFRAC = GET_RAINFRAC( K_RAIN, F, DT )\n\n       ! Apply temperature-dependent rainout efficiencies\n       ! This accounts for impaction scavenging of certain aerosols\n       CALL APPLY_RAINOUT_EFF( p_T, SpcInfo, RAINFRAC )\n\n    ENDIF\n#endif\n\n    ! Free pointers\n    p_C_H2O  => NULL()\n    p_CLDICE => NULL()\n    p_CLDLIQ => NULL()\n    p_T      => NULL()\n    H2O2s   => NULL()\n    SO2s    => NULL()\n    SpcInfo  => NULL()\n\n  END SUBROUTINE RAINOUT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: apply_rainout_eff\n!\n! !DESCRIPTION: Subroutine APPLY\\_RAINOUT\\_EFF multiplies the rainout fraction\n!  computed by RAINOUT with the rainout efficiency for one of 3 temperature\n!  ranges: (1) T < 237 K; (2) 237 K <= T < 258 K; (3) T > 258 K. The rainout\n!  efficiencies for each aerosol species are defined in the species database\n!  object (i.e. State\\_Chm%SpcData(:)%Info).\n!\\\\\n!\\\\\n!  This allows us to apply the impaction scavenging of certain aerosol species\n!  (BC, dust, HNO3) as implemented by Qiaoqiao Wang, while also suppressing\n!  rainout for other aerosol species.  The prior code achieved this by using\n!  a large and confusing IF statement, whose logic was hard to understand.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE APPLY_RAINOUT_EFF( TK, SpcInfo, RainFrac )\n!\n! !USES:\n!\n    USE Species_Mod, ONLY : Species\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),      INTENT(IN)    :: TK         ! Temperature [K]\n    TYPE(Species), INTENT(IN)    :: SpcInfo    ! Species Database object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),      INTENT(INOUT) :: RainFrac   ! Rainout fraction\n\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Apply temperature-dependent rainout efficiencies\n    ! This accounts for impaction scavenging of certain aerosols\n    IF ( TK < 237.0_fp ) THEN\n\n       ! Ice: T < 237 K\n       RainFrac = RainFrac * SpcInfo%WD_RainoutEff(1)\n\n    ELSE IF ( TK >= 237.0_fp .and. TK < 258.0_fp ) THEN\n#ifdef LUO_WETDEP\n       IF ( SpcInfo%WD_RainoutEff(2) > 0.0_fp ) THEN\n          RainFrac =                                                         &\n             RainFrac                                                     *  &\n             SpcInfo%WD_RainoutEff(1)                                     *  &\n             ( EXP( 0.46_fp * ( 273.16_fp - TK ) - 11.6_fp ) / 153.5_fp )\n       ELSE\n          RainFrac = RainFrac * SpcInfo%WD_RainoutEff(2)\n       ENDIF\n#else\n       ! Snow: 237 K <= T < 258 K\n       RainFrac = RainFrac * SpcInfo%WD_RainoutEff(2)\n#endif\n\n    ELSE\n\n       ! Liquid rain: T > 258 K\n       RainFrac = RainFrac * SpcInfo%WD_RainoutEff(3)\n\n    ENDIF\n\n  END SUBROUTINE APPLY_RAINOUT_EFF\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_rainfrac\n!\n! !DESCRIPTION: Function GET\\_RAINFRAC computes the fraction of species\n!  lost to rainout according to Jacob et al 2000.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_RAINFRAC( K, F, DT ) RESULT( RAINFRAC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: K          ! Rainout rate constant [1/s]\n    REAL(fp), INTENT(IN) :: F          ! Timestep for rainout event [s]\n    REAL(fp), INTENT(IN) :: DT         ! Fraction of grid box that is\n                                       !  undergoing precipitation [unitless]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: RAINFRAC   ! Fraction of species lost to rainout\n!\n! !REVISION HISTORY:\n!  08 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! GET_RAINFRAC begins here!\n    !=================================================================\n\n    ! (Eq. 10, Jacob et al, 2000 )\n    RAINFRAC = F * ( 1 - EXP( -K * DT ) )\n\n  END FUNCTION GET_RAINFRAC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washout\n!\n! !DESCRIPTION: Subroutine WASHOUT computes WASHFRAC, the fraction of\n!  soluble species lost to washout events in precipitation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WASHOUT( I,          J,         L,         N,                   &\n                      BXHEIGHT,   TK,        PP,        DT,                  &\n                      F,          H2O2s,     SO2s,      WASHFRAC,            &\n                      KIN,        Input_Opt, State_Chm, State_Grid,          &\n                      State_Met,                                             &\n#ifdef LUO_WETDEP\n                      pHRain,                                                &\n#endif\n#ifdef TOMAS\n                      fromWetDep,                                            &\n#endif\n                      RC                                                    )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n#ifdef APM\n    USE APM_INIT_MOD,   ONLY : APMIDS\n    USE APM_INIT_MOD,   ONLY : RDRY, RSALT, RDST, DENDST\n    USE APM_DRIV_MOD,   ONLY : GFTOT3D, DENWET3D, MWSIZE3D\n#endif\n#ifdef TOMAS\n    USE ERROR_MOD\n    USE UnitConv_Mod\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I          ! Longitude index\n    INTEGER,        INTENT(IN)    :: J          ! Latitude index\n    INTEGER,        INTENT(IN)    :: L          ! Level index\n    INTEGER,        INTENT(IN)    :: N          ! Species number (modelId)\n    REAL(fp),       INTENT(IN)    :: BXHEIGHT   ! Grid box height [m]\n    REAL(fp),       INTENT(IN)    :: TK         ! Temperature [K]\n    REAL(fp),       INTENT(IN)    :: PP         ! Precip rate thru bottom\n                                                !  of grid (I,J,L)\n                                                !  [cm3 H2O/cm2 air/s]\n    REAL(fp),       INTENT(IN)    :: DT         ! Timestep [s]\n    REAL(fp),       INTENT(IN)    :: F          ! Fraction of grid box that\n                                                !  is precipitating [1]\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid ! Grid State\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State\n#ifdef LUO_WETDEP\n    REAL(fp),       INTENT(IN)    :: pHRain\n#endif\n#ifdef TOMAS\n    LOGICAL,        INTENT(IN)    :: fromWetDep ! Called from wetdep (T/F)?\n#endif\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    REAL(fp),       INTENT(INOUT) :: H2O2s      ! H2O2 [v/v] and SO2 [v/v]\n    REAL(fp),       INTENT(INOUT) :: SO2s       ! conc's after aqueous rxns\n                                                ! are applied.  These are\n                                                ! computed in the sulfate\n                                                ! chemistry module and\n                                                ! passed here as arguments.\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: WASHFRAC   ! Fraction of species lost\n                                                !  to washout [1]\n    LOGICAL,        INTENT(OUT)   :: KIN        ! =T washout is a\n                                                !    kinetic process\n                                                ! =F washout is an\n                                                !    equilibrium process\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Feb 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(fp)               :: L2G, DZ, SO2LOSS\n    REAL(f8)               :: K0,  CR, pKa\n#ifdef APM\n    REAL(fp)               :: RIN\n#endif\n#ifdef LUO_WETDEP\n    REAL(f8)               :: Hplus, HCSO2, HCNH3, Ks1, Ks2, T_Term\n    REAL(fp)               :: WASHRATE\n#endif\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg, ThisLoc\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! WASHOUT begins here!\n    !\n    ! Call either WASHFRAC_FINE_AEROSOL, WASHFRAC_COARSE_AEROSOL,\n    ! or WASHFRAC_LIQ_GAS to compute the fraction of species lost to\n    ! washout according to Jacob et al 2000\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Washout (in module GeosCore/wetscav_mod.F90)'\n\n    ! DZ is the height of the grid box in cm\n    DZ      =  BXHEIGHT * 1e+2_fp\n\n    ! Get info about Nth species from the species database\n    SpcInfo => State_Chm%SpcData(N)%Info\n\n#ifdef TOMAS\n    !------------------------------------------------------------------------\n    ! TOMAS MICROPHYSICS ONLY:\n    ! If called from wetdep,     convert kg/m2     -> kg\n    ! If called fron convection, convert kg/kg dry -> kg\n    !------------------------------------------------------------------------\n    IF ( fromWetDep ) THEN\n       CALL ConvertBox_Kgm2_to_Kg( I, J, L, State_Chm, State_Grid, .FALSE. )\n    ELSE\n       CALL ConvertBox_KgKgDry_to_Kg( I, J, L, State_Met, State_Chm, .FALSE. )\n    ENDIF\n#endif\n\n#ifdef LUO_WETDEP\n    !=================================================================\n    ! %%% LUO WETDEP ONLY %%%\n    ! %%% SPECIAL CASE    %%%\n    ! HNO3 scavenges like an aerosol although it is considered\n    ! to be a gas-phase species elsewhere (e.g. dry deposition)\n    !=================================================================\n\n    ! Initialize\n    Hplus  = 0.0_f8\n    HCSO2  = 0.0_f8\n    HCNH3  = 0.0_f8\n    Ks1    = 0.0_f8\n    Ks2    = 0.0_f8\n    T_Term = 0.0_f8\n\n    IF ( SpcInfo%WD_Is_HNO3 ) THEN\n\n       ! Washout is a kinetic process\n       KIN      = .TRUE.\n\n       ! Get washout fraction\n       WASHFRAC = WASHFRAC_HNO3LUO( DT, F, PP, TK )\n\n    !=================================================================\n    ! %%% LUO WETDEP ONLY %%%\n    ! %%% SPECIAL CASE    %%%\n    ! SO2 scavenges like an aerosol although it is considered\n    ! to be a gas-phase species elsewhere (e.g. dry deposition)\n    !=================================================================\n    ELSE IF ( SpcInfo%WD_Is_SO2 ) THEN\n\n       Hplus = 10.0**(-pHRain)\n\n       ! Henry's constant [mol/l-atm] and Effective Henry's constant for SO2\n       HCSO2  = 1.22e+0_fp * EXP( 10.55e+0_fp&\n              * ( 298.15e+0_fp / TK - 1.e+0_fp) )\n\n       Ks1 = 1.30e-2_fp * EXP( 6.75e+0_fp&\n           * ( 298.15e+0_fp / TK - 1.e+0_fp ) )\n\n       Ks2 = 6.31e-8_fp * EXP( 5.05e+0_fp&\n           * ( 298.15e+0_fp / TK - 1.e+0_fp ) )\n\n       K0  = HCSO2*&\n             (1.e+0_fp + Ks1/Hplus + Ks1*Ks2/(Hplus*Hplus))\n\n       CR  = 0.d0\n\n       pKa = -999.d0\n\n       ! Get the washout fraction for this species\n       CALL WASHFRAC_LIQ_GAS( K0, CR, pKa, PP, pHRain, DT, &\n                              F,  DZ, TK,  WASHFRAC, KIN )\n#else\n    !=================================================================\n    ! %%% DEFAULT WETDEP SCHEME %%%\n    ! %%% SPECIAL CASE          %%%\n    ! HNO3 scavenges like an aerosol although it is considered\n    ! to be a gas-phase species elsewhere (e.g. dry deposition)\n    !=================================================================\n\n    IF ( SpcInfo%WD_Is_HNO3 ) THEN\n\n       ! Washout is a kinetic process\n       KIN      = .TRUE.\n\n       ! Get washout fraction\n       WASHFRAC = WASHFRAC_HNO3( DT, F, PP, TK )\n\n    !=================================================================\n    ! %%% DEFAULT WETDEP SCHEME %%%\n    ! %%% SPECIAL CASE          %%%\n    ! SO2 scavenges like an aerosol although it is considered\n    ! to be a gas-phase species elsewhere (e.g. dry deposition)\n    !=================================================================\n    ELSE IF ( SpcInfo%WD_Is_SO2 ) THEN\n\n       ! NOTE: Even though SO2 is not an aerosol we treat it as SO4 in\n       ! wet scavenging.  When evaporation occurs, it returns to SO4.\n       KIN      = .TRUE.\n       WASHFRAC = WASHFRAC_FINE_AEROSOL( DT, F, PP, TK )\n\n       ! Use the wet-scavenging following [Chin et al, 1996] such\n       ! that a soluble fraction of SO2 is limited by the availability\n       ! of H2O2 in the precipitating grid box.  Then scavenge the\n       ! soluble SO2 at the same rate as sulfate.\n       IF ( TK >= 268e+0_fp .AND. SO2s > TINY_FP ) THEN\n\n          ! Adjust WASHFRAC\n          SO2LOSS  = MIN( SO2s, H2O2s )\n          WASHFRAC = SO2LOSS * WASHFRAC / SO2s\n          WASHFRAC = MAX( WASHFRAC, 0e+0_fp )\n\n          ! Deplete H2O2s the same as SO2s (dkh, rjp, bmy, 11/17/05)\n          H2O2s = H2O2s - ( SO2s * WASHFRAC )\n          H2O2s = MAX( H2O2s, TINY_FP )\n\n       ELSE\n          WASHFRAC = 0e+0_fp\n\n       ENDIF\n#endif\n\n       ! Update saved SO2 concentration\n       SO2s = SO2s * ( 1e+0_fp - WASHFRAC )\n       SO2s = MAX( SO2s, TINY_FP )\n\n    !=================================================================\n    ! All other species\n    !=================================================================\n\n    !-----------------------------------------------------------------\n    ! Washout for gas-phase species\n    ! (except H2SO4, NO3, and SO2, which scavenge like aerosols;\n    ! NO3 and SO2 are handled above and H2SO4 is handled in TOMAS\n    ! block further below)\n    !-----------------------------------------------------------------\n    ELSE IF ( SpcInfo%Is_Gas .and. ( .not. SpcInfo%WD_Is_H2SO4 ) ) THEN\n\n       ! Get Henry's law parameters\n       K0  = SpcInfo%Henry_K0\n       CR  = SpcInfo%Henry_CR\n       pKa = SpcInfo%Henry_pKa\n\n       ! Washout is an equilibrium process\n       KIN = .FALSE.\n\n#ifdef LUO_WETDEP\n       IF ( SpcInfo%ModelID == id_NH3 ) THEN\n          ! NOTE: This should end in _f8\n          Hplus  = 10.0**( -pHRain )\n          T_term = ( 1.0_f8 / TK ) - INV_T298\n          HCNH3  = 59.8_fp    * EXP(  4200.0_f8 * T_term )\n          Ks1    = 1.0e-14_fp * EXP( -6710.0_f8 * T_term )\n          Ks2    = 1.7e-5_fp  * EXP( -4325.0_fp * T_term )\n          K0     = HCNH3 * ( 1.0_f8 + ( ( Ks2 * Hplus) / Ks1 ) )\n          CR     = 0.0_f8\n          pKa    = -999.0_f8\n       ENDIF\n\n       CALL WASHFRAC_LIQ_GAS( K0, CR, pKa, PP, pHRain, DT, &\n                              F,  DZ, TK,  WASHFRAC, KIN )\n#else\n       ! Get the washout fraction for this species\n       CALL WASHFRAC_LIQ_GAS( K0, CR, pKa, PP,       DT, &\n                              F,  DZ, TK,  WASHFRAC, KIN )\n#endif\n\n    !-----------------------------------------------------------------\n    ! Washout for size-resolved aerosol species or\n    ! size-resolved aerosol number (e.g. from TOMAS)\n    ! NOTE: treat H2SO4 as an aerosol for wetdep in TOMAS\n    !-----------------------------------------------------------------\n    ELSE IF ( SpcInfo%MP_SizeResAer .or. SpcInfo%MP_SizeResNum ) THEN\n#ifdef APM\n       ! Washout is a kinetic process\n       KIN = .TRUE.\n       RIN = 0.0_fp\n\n       IF(SpcInfo%Name(1:8)=='APMSPBIN')THEN\n          RIN = RDRY(N-APMIDS%id_SO4BIN1+1) * GFTOT3D(I,J,L,1)\n       ENDIF\n       IF(SpcInfo%Name(1:9)=='APMSEABIN')THEN\n          RIN = RSALT(N-APMIDS%id_SEABIN1+1) * GFTOT3D(I,J,L,2)\n       ENDIF\n       IF(SpcInfo%Name(1:9)=='APMDSTBIN')THEN\n          RIN = RDST(N-APMIDS%id_DSTBIN1+1)\n       ENDIF\n       IF(SpcInfo%Name(1:8)=='APMLVSOA')THEN\n          RIN = MWSIZE3D(I,J,1,1)\n       ENDIF\n       IF(SpcInfo%Name(1:8)=='APMCTSEA')THEN\n          RIN = MWSIZE3D(I,J,1,2)\n       ENDIF\n       IF(SpcInfo%Name(1:8)=='APMCTDST')THEN\n          RIN = MWSIZE3D(I,J,1,3)\n       ENDIF\n       CALL WASHFRAC_APMSIZE_AEROSOL(RIN, DT, F, PP, TK, WASHFRAC)\n#endif\n#ifdef TOMAS\n       ! Washout is a kinetic process\n       KIN      = .TRUE.\n\n       ! Compute washout fraction\n       CALL WASHFRAC_SIZE_AEROSOL( DT, F, PP, TK, N, I, J, L, &\n                                   State_Met, State_Chm, WASHFRAC, RC )\n#endif\n    \n    !-----------------------------------------------------------------\n    ! Washout for dust species (D. Zhang, 28 Jun 2024)\n    !-----------------------------------------------------------------\n    ELSEIF (SpcInfo%WD_Is_DSTbin) THEN\n       ! Washout is a kinetic process\n       KIN      = .TRUE.\n\n       ! Compute washout fraction\n       WASHFRAC = WASHFRAC_DUSTBIN( SpcInfo%WD_WashoutRainPara(1), SpcInfo%WD_WashoutRainPara(2), &\n                           SpcInfo%WD_WashoutSnowPara(1), SpcInfo%WD_WashoutSnowPara(2), &\n                           DT, F, PP, TK)\n    !-----------------------------------------------------------------\n    ! Washout for coarse aerosol species (Reff >= 1um)\n    !-----------------------------------------------------------------\n    ELSE IF ( ( .not. SpcInfo%WD_Is_DSTbin ) .and. SpcInfo%WD_CoarseAer ) THEN\n\n       ! Washout is a kinetic process\n       KIN      = .TRUE.\n\n       ! Compute washout fraction\n#ifdef LUO_WETDEP\n       WASHFRAC = WASHFRAC_COARSE_AEROSOLLUO( DT, F, PP, TK)\n#else\n       WASHFRAC = WASHFRAC_COARSE_AEROSOL( DT, F, PP, TK)\n#endif\n\n    !-----------------------------------------------------------------\n    ! Washout for fine-aerosol species (Reff < 1um)\n    !-----------------------------------------------------------------\n    ELSE\n\n       ! Washout is a kinetic process\n       KIN      = .TRUE.\n\n       ! Compute washout fraction\n#ifdef LUO_WETDEP\n       IF(TK>258.D0)THEN\n       ! Luo et al scheme: Compute washout fraction.  If the efficiency\n       ! for T > 258 K is less than .999, treat it as hydrophobic aerosol\n       IF ( SpcInfo%WD_RainoutEff(3) < 0.999_fp ) THEN\n          WASHFRAC = WASHFRAC_FINE_AEROSOLLUOPO( DT, F, PP, TK )\n       ELSE\n          WASHFRAC = WASHFRAC_FINE_AEROSOLLUOPI( DT, F, PP, TK )\n       ENDIF\n\n       ELSE\n          WASHFRAC = WASHFRAC_FINE_AEROSOLLUOPO( DT, F, PP, TK )\n       ENDIF\n#else\n       ! Default scheme: Compute washout fraction, but always\n       ! assume that it is for fine aerosol.\n       WASHFRAC = WASHFRAC_FINE_AEROSOL( DT, F, PP, TK )\n#endif\n\n    ENDIF\n\n#ifdef LUO_WETDEP\n    ! NOTE: Even though SO2 is not an aerosol we treat it as SO4 in\n    ! wet scavenging.  When evaporation occurs, it returns to SO4.\n    IF(SpcInfo%WD_Is_SO2)THEN\n    IF(.not.KIN)THEN\n      KIN      = .TRUE.\n      WASHFRAC = F*WASHFRAC\n    ENDIF\n    ENDIF\n\n    IF(WASHFRAC>0.D0)THEN\n      IF(KIN)THEN\n        WASHRATE = WASHFRAC/DT/F\n\n        WASHFRAC = WASHFRAC*(State_Met%KINC(I,J,L)/ &\n                  (State_Met%KINC(I,J,L)+ &\n                  (1.D0-F)*WASHRATE))\n      ELSE\n        WASHRATE = WASHFRAC/DT\n\n        WASHFRAC = WASHFRAC*(State_Met%KINC(I,J,L)/ &\n                  (State_Met%KINC(I,J,L)+ &\n                  (1.D0-F)*WASHRATE))\n    ENDIF\n    ENDIF\n#endif\n\n#ifdef TOMAS\n    !------------------------------------------------------------------------\n    ! TOMAS MICROPHYSICS ONLY:\n    ! If called from wetdep,     convert kg -> kg/m2\n    ! If called fron convection, convert kg -> kg/kg dry\n    !------------------------------------------------------------------------\n    IF ( fromWetDep ) THEN\n       CALL ConvertBox_Kg_to_Kgm2( I, J, L, State_Chm, State_Grid, .FALSE. )\n    ELSE\n       CALL ConvertBox_Kg_to_KgKgDry( I, J, L, State_Met, State_Chm, .FALSE. )\n    ENDIF\n#endif\n\n    ! Free pointer\n    SpcInfo => NULL()\n\n  END SUBROUTINE WASHOUT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_fine_aerosolluopo\n!\n! !DESCRIPTION: Function WASHFRAC\\_FINE\\_AEROSOLLUOPO returns the fraction of\n!  hydrophobic aerosol species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WASHFRAC_FINE_AEROSOLLUOPO( DT, F, PP, TK ) &\n           RESULT( WASHFRAC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: DT        ! Timestep of washout event [s]\n    REAL(fp), INTENT(IN) :: F         ! Fraction of grid box that is\n                                        !  precipitating [unitless]\n    REAL(fp), INTENT(IN) :: PP        ! Precip rate thru bottom of grid\n                                        !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n    REAL(fp), INTENT(IN) :: TK        ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: WASHFRAC  ! Fraction of soluble species\n                                        !  lost to washout [1]\n!\n! !REVISION HISTORY:\n!  08 Nov 2002 - R. Yantosca - Initial version\n!  (1 ) WASHFRAC_AEROSOL used to be an internal function to subroutine WASHOUT.\n!        This caused NaN's in the parallel loop on Altix, so we moved it to\n!        the module and now pass Iall arguments explicitly (bmy, 7/20/04)\n!  16 Sep 2010 - R. Yantosca - Added ProTeX headers\n!  21 Jan 2011 - J. Fisher & Q. Wang - Update to account for time-dependent\n!        shift in aerosol size distribution that slows washout as a rain\n!        event proceeds (see e.g. Feng et al., 2007, 2009).\n!  16 Aug 2011 - H Amos      - Remove K_WASH from input list, make a defined\n!                              parameter.\n!  20 Jan 2012 - H Amos      - rename WASHFRAC_FINE_AEROSOL to distinguish\n!                              this function from WASHFRAC_COARSE_AEROSOL\n!  04 Sep 2013 - R. Yantosca - Bug fix: Prevent div-by-zero if F=0.  Because F\n!                              multiplies the whole expression for WASHFRAC,\n!                              WASHFRAC=0 whenever F=0 anyway.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETER:\n!\n    ! Washout rate constant for aerosols: aP^b (p: mm h^-1)\n    ! K_WASH for aerosols in accumulation mode (qq,10/11/2011)\n    REAL(fp), PARAMETER :: K_WASH = 1.06e-3_fp\n\n    !=================================================================\n    ! WASHFRAC_FINE_AEROSOL begins here!\n    !=================================================================\n    IF ( ( TK >= 268e+0_fp ) .OR. ITS_A_POPS_SIM ) THEN\n\n       !---------------------------------\n       ! T >= 268K (or POPS simulation)\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F *(1e+0_fp - EXP( -5.0D-7 * &\n                  (PP / F*3.6e+4_fp )**0.7e+0_fp * DT ))\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ELSE\n\n       !---------------------------------\n       ! T < 268K\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          IF ( TK >= 248e+0_fp ) THEN\n            WASHFRAC = F *(1e+0_fp - EXP( -1.0D-5 * &\n                    (PP / F*3.6e+4_fp )**0.66e+0_fp * DT ))\n          ELSE\n            WASHFRAC = F *(1e+0_fp - EXP( -1.0D-5/5.d0 * &\n                    (PP / F*3.6e+4_fp )**0.66e+0_fp * DT ))\n          ENDIF\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ENDIF\n\n    END FUNCTION WASHFRAC_FINE_AEROSOLLUOPO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_fine_aerosolluopi\n!\n! !DESCRIPTION: Function WASHFRAC\\_FINE\\_AEROSOLLUOPI returns the fraction of\n!  soluble aerosol species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    FUNCTION WASHFRAC_FINE_AEROSOLLUOPI( DT, F, PP, TK ) &\n             RESULT( WASHFRAC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp), INTENT(IN) :: DT        ! Timestep of washout event [s]\n      REAL(fp), INTENT(IN) :: F         ! Fraction of grid box that is\n                                        !  precipitating [unitless]\n      REAL(fp), INTENT(IN) :: PP        ! Precip rate thru bottom of grid\n                                        !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n      REAL(fp), INTENT(IN) :: TK        ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n      REAL(fp)             :: WASHFRAC  ! Fraction of soluble species\n                                        !  lost to washout [1]\n!\n! !REVISION HISTORY:\n!  08 Nov 2002 - R. Yantosca - Initial version\n!  (1 ) WASHFRAC_AEROSOL used to be an internal function to subroutine WASHOUT.\n!        This caused NaN's in the parallel loop on Altix, so we moved it to\n!        the module and now pass Iall arguments explicitly (bmy, 7/20/04)\n!  16 Sep 2010 - R. Yantosca - Added ProTeX headers\n!  21 Jan 2011 - J. Fisher & Q. Wang - Update to account for time-dependent\n!        shift in aerosol size distribution that slows washout as a rain\n!        event proceeds (see e.g. Feng et al., 2007, 2009).\n!  16 Aug 2011 - H Amos      - Remove K_WASH from input list, make a defined\n!                              parameter.\n!  20 Jan 2012 - H Amos      - rename WASHFRAC_FINE_AEROSOL to distinguish\n!                              this function from WASHFRAC_COARSE_AEROSOL\n!  04 Sep 2013 - R. Yantosca - Bug fix: Prevent div-by-zero if F=0.  Because F\n!                              multiplies the whole expression for WASHFRAC,\n!                              WASHFRAC=0 whenever F=0 anyway.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETER:\n!\n    ! Washout rate constant for aerosols: aP^b (p: mm h^-1)\n    ! K_WASH for aerosols in accumulation mode (qq,10/11/2011)\n    REAL(fp), PARAMETER :: K_WASH = 1.06e-3_fp\n\n    REAL(fp)            :: RATE\n\n    !=================================================================\n    ! WASHFRAC_FINE_AEROSOLLUOPI begins here!\n    !=================================================================\n    IF ( ( TK >= 268e+0_fp ) .OR. ITS_A_POPS_SIM ) THEN\n\n       !---------------------------------\n       ! T >= 268K (or POPS simulation)\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F *(1e+0_fp - EXP( -1.0D-5 *&\n                   (PP / F*3.6e+4_fp )**0.7e+0_fp * DT ))\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ELSE\n\n       !---------------------------------\n       ! T < 268K\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          IF ( TK >= 248e+0_fp ) THEN\n            WASHFRAC = F *(1e+0_fp - EXP( -2.0D-4 *&\n                      (PP / F*3.6e+4_fp )**0.66e+0_fp * DT ))\n          ELSE\n            WASHFRAC = F *(1e+0_fp - EXP( -2.0D-4/5.d0 *&\n                      (PP / F*3.6e+4_fp )**0.66e+0_fp * DT ))\n          ENDIF\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ENDIF\n\n    END FUNCTION WASHFRAC_FINE_AEROSOLLUOPI\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_coarse_aerosolluo\n!\n! !DESCRIPTION: Function WASHFRAC\\_COARSE\\_AEROSOL returns the fraction of\n!  coarse aerosol species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    FUNCTION WASHFRAC_COARSE_AEROSOLLUO( DT, F, PP, TK ) &\n             RESULT( WASHFRAC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: DT         ! Timestep of washout event [s]\n    REAL(fp), INTENT(IN) :: F          ! Fraction of grid box that is\n                                         !  precipitating [unitless]\n    REAL(fp), INTENT(IN) :: PP         ! Precip rate thru bottom of grid\n                                         !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n    REAL(fp), INTENT(IN) :: TK         ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: WASHFRAC   ! Fraction of soluble species\n                                         !  lost to washout\n!\n! !REVISION HISTORY:\n!  08 Nov 2002 - R. Yantosca - Initial version\n!  (1 ) WASHFRAC_AEROSOL used to be an internal function to subroutine WASHOUT.\n!        This caused NaN's in the parallel loop on Altix, so we moved it to\n!        the module and now pass Iall arguments explicitly (bmy, 7/20/04)\n!  16 Sep 2010 - R. Yantosca - Added ProTeX headers\n!  16 Aug 2011 - H Amos      - Remove K_WASH from input list, make a defined\n!                              parameter.\n!  20 Jan 2012 - H Amos      - WASHFRAC_COARSE_AEROSOL created to handle\n!                              SALC and DST4\n!  04 Sep 2013 - R. Yantosca - Bug fix: Prevent div-by-zero if F=0.  Because F\n!                              multiplies the whole expression for WASHFRAC,\n!                              WASHFRAC=0 whenever F=0 anyway.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !=================================================================\n    ! WASHFRAC_COARSE_AEROSOLLUO begins here!\n    !=================================================================\n\n    IF ( TK >= 268e+0_fp .OR. ITS_A_POPS_SIM ) THEN\n\n       !---------------------------------\n       ! T >= 268K (or POPS simulation)\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F*(1.0_fp - EXP(-2.e-4_fp * (PP / F*3.6e+4_fp)&\n                    ** 0.85_fp * DT ))\n       ELSE\n          WASHFRAC = 0.0_fp\n       ENDIF\n\n    ELSE\n\n       !---------------------------------\n       ! T < 268K\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          IF ( TK >= 248e+0_fp ) THEN\n             WASHFRAC = F *(1e+0_fp - EXP( -2.0e-3_fp *&\n                       (PP / F*3.6e+4_fp )**0.7e+0_fp * DT ))\n          ELSE\n             WASHFRAC = F *(1e+0_fp - EXP( -2.0e-3_fp/5.d0 *&\n                       (PP / F*3.6e+4_fp )**0.7e+0_fp * DT ))\n          ENDIF\n       ELSE\n          WASHFRAC = 0.0_fp\n       ENDIF\n\n    ENDIF\n\n    END FUNCTION WASHFRAC_COARSE_AEROSOLLUO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_hno3luo\n!\n! !DESCRIPTION: Function WASHFRAC\\_HNO3LUO returns the fraction of HNO3\n!               species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    FUNCTION WASHFRAC_HNO3LUO( DT, F, PP, TK ) RESULT( WASHFRAC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: DT        ! Timestep of washout event [s]\n    REAL(fp), INTENT(IN) :: F         ! Fraction of grid box that is\n                                        !  precipitating [unitless]\n    REAL(fp), INTENT(IN) :: PP        ! Precip rate thru bottom of grid\n                                        !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n    REAL(fp), INTENT(IN) :: TK        ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: WASHFRAC  ! Fraction of soluble species\n\n!\n! !REVISION HISTORY:\n!  13 Aug 2011, H Amos: Initial version, modeled after WASHFRAC_AEROSOL.\n!                       Seperate function created to emphasize that the new,\n!                       updated washout coefficients from Feng et al (2007;\n!                       2009) should only be applied to aerosol species. It\n!                       was a coincidence before that the original washout\n!                       coefficients for aerosols and HNO3 were the same.\n!  16 Aug 2011, H Amos: Remove K_WASH from input list, now a defined parameter\n!  04 Sep 2013 - R. Yantosca - Bug fix: Prevent div-by-zero if F=0.  Because F\n!                              multiplies the whole expression for WASHFRAC,\n!                              WASHFRAC=0 whenever F=0 anyway.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETER:\n!\n    REAL(fp), PARAMETER :: K_WASH = 1.0_fp  ! First order washout rate\n                                              ! constant [cm^-1].\n    REAL(fp)            :: RATE\n\n    !=================================================================\n    ! WASHFRAC_HNO3LUO begins here!\n    !=================================================================\n    IF ( F > 0e+0_fp ) THEN\n       IF ( TK >= 248e+0_fp ) THEN\n          RATE = 2.D0*((PP/F)**0.62)\n       ELSE\n          RATE = 2.D0*((PP/F)**0.62)/5.d0\n       ENDIF\n          WASHFRAC = F * (1e+0_fp - EXP( - RATE * DT ))\n    ELSE\n       WASHFRAC = 0e+0_fp\n    ENDIF\n\n    END FUNCTION WASHFRAC_HNO3LUO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_fine_aerosol\n!\n! !DESCRIPTION: Function WASHFRAC\\_FINE\\_AEROSOL returns the fraction of\n!  soluble aerosol species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_dustbin\n!\n! !DESCRIPTION: Function WASHFRAC\\_DUSTBIN returns the fraction of\n!  dust species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    FUNCTION WASHFRAC_DUSTBIN( RainPara1, RainPara2, SnowPara1, SnowPara2, DT, F, PP, TK) &\n      RESULT( WASHFRAC )\n!\n! !INPUT PARAMETERS:\n!\n   REAL(fp),       INTENT(IN)  :: RainPara1   ! prefactor for washout due to rain precipotation\n   REAL(fp),       INTENT(IN)  :: RainPara2   ! Exponent for washout due to rain precipotation\n   REAL(fp),       INTENT(IN)  :: SnowPara1   ! prefactor for washout due to snow precipotation\n   REAL(fp),       INTENT(IN)  :: SnowPara2   ! Exponent for washout due to snow precipotation\n   REAL(fp),       INTENT(IN)  :: DT          ! Timestep of washout event [s]\n   REAL(fp),       INTENT(IN)  :: F           ! Fraction of grid box that is\n                                              !  precipitating [unitless]\n   REAL(fp),       INTENT(IN)  :: PP          ! Precip rate thru bottom of grid\n                                              !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n   REAL(fp),       INTENT(IN)  :: TK          ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n   REAL(fp)                    :: WASHFRAC    ! Fraction of soluble species\n!\n! !REVISION HISTORY:\n!  25 Jun 2024 - D. Zhang - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETER:\n   \n!  \n   ! Washout rate constant for aerosols: aP^b (p: mm h^-1)\n\n   !=================================================================\n   ! WASHFRAC_DUSTBIN begins here!\n   !=================================================================\n   IF ( ( TK >= 268e+0_fp ) .OR. ITS_A_POPS_SIM ) THEN\n\n      !---------------------------------\n      ! T >= 268K (or POPS simulation)\n      !---------------------------------\n      IF ( F > 0e+0_fp ) THEN\n         WASHFRAC = F *(1e+0_fp - EXP( - RainPara1 * &\n                    (PP / F*3.6e+4_fp ) ** RainPara2 * DT ))\n      ELSE\n         WASHFRAC = 0e+0_fp\n      ENDIF\n\n   ELSE\n\n      !---------------------------------\n      ! T < 268K\n      !---------------------------------\n      IF ( F > 0e+0_fp ) THEN\n         WASHFRAC = F *(1e+0_fp - EXP( - SnowPara1 * &\n                    (PP / F*3.6e+4_fp ) ** SnowPara2 * DT ))\n      ELSE\n         WASHFRAC = 0e+0_fp\n      ENDIF\n\n   ENDIF\n\nEND FUNCTION WASHFRAC_DUSTBIN\n!EOC\n\n  FUNCTION WASHFRAC_FINE_AEROSOL( DT, F, PP, TK ) &\n       RESULT( WASHFRAC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: DT        ! Timestep of washout event [s]\n    REAL(fp), INTENT(IN) :: F         ! Fraction of grid box that is\n                                      !  precipitating [unitless]\n    REAL(fp), INTENT(IN) :: PP        ! Precip rate thru bottom of grid\n                                      !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n    REAL(fp), INTENT(IN) :: TK        ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: WASHFRAC  ! Fraction of soluble species\n                                      !  lost to washout [1]\n!\n! !REVISION HISTORY:\n!  08 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETER:\n!\n    ! Washout rate constant for aerosols: aP^b (p: mm h^-1)\n    ! K_WASH for aerosols in accumulation mode (qq,10/11/2011)\n    REAL(fp), PARAMETER :: K_WASH = 1.06e-3_fp\n\n    !=================================================================\n    ! WASHFRAC_FINE_AEROSOL begins here!\n    !=================================================================\n    IF ( ( TK >= 268e+0_fp ) .OR. ITS_A_POPS_SIM ) THEN\n\n       !---------------------------------\n       ! T >= 268K (or POPS simulation)\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F *(1e+0_fp - EXP( -K_WASH * &\n                     (PP / F*3.6e+4_fp )**0.61e+0_fp * DT / 3.6e+3_fp ))\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ELSE\n\n       !---------------------------------\n       ! T < 268K\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F *(1e+0_fp - EXP( -2.6e+1_fp*K_WASH * &\n                     (PP / F*3.6e+4_fp )**0.96e+0_fp * DT / 3.6e+3_fp ))\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ENDIF\n\n  END FUNCTION WASHFRAC_FINE_AEROSOL\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_coarse_aerosol\n!\n! !DESCRIPTION: Function WASHFRAC\\_COARSE\\_AEROSOL returns the fraction of\n!  soluble aerosol species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WASHFRAC_COARSE_AEROSOL( DT, F, PP, TK ) &\n       RESULT( WASHFRAC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: DT         ! Timestep of washout event [s]\n    REAL(fp), INTENT(IN) :: F          ! Fraction of grid box that is\n                                       !  precipitating [unitless]\n    REAL(fp), INTENT(IN) :: PP         ! Precip rate thru bottom of grid\n                                       !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n    REAL(fp), INTENT(IN) :: TK         ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: WASHFRAC   ! Fraction of soluble species\n                                       !  lost to washout\n!\n! !REVISION HISTORY:\n!  08 Nov 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    !=================================================================\n    ! WASHFRAC_COARSE_AEROSOL begins here!\n    !=================================================================\n\n    IF ( TK >= 268.0_fp .OR. ITS_A_POPS_SIM ) THEN\n\n       !---------------------------------\n       ! T >= 268K (or POPS simulation)\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F*(1.0_fp - EXP(-0.92_fp * (PP / F*3.6e+4_fp) &\n                     ** 0.79_fp * DT / 3.6e+3_fp ))\n       ELSE\n          WASHFRAC = 0.0_fp\n       ENDIF\n\n    ELSE\n\n       !---------------------------------\n       ! T < 268K\n       !---------------------------------\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F *(1.0_fp - EXP( -1.57_fp * &\n                     (PP / F*3.6e+4_fp)**0.96_fp * DT / 3.6e+3_fp ))\n       ELSE\n          WASHFRAC = 0.0_fp\n       ENDIF\n\n    ENDIF\n\n  END FUNCTION WASHFRAC_COARSE_AEROSOL\n!EOC\n#ifdef TOMAS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_size_aerosol\n!\n! !DESCRIPTION: Subroutine WASHFRAC\\_SIZE\\_AEROSOL retrieves fraction of\n!  soluble aerosol species lost to washout. Size resolved version for TOMAS.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n\n  SUBROUTINE WASHFRAC_SIZE_AEROSOL( DT, F, PP, TK, N, I, J, L, &\n                                    State_Met, State_Chm, WASHFRAC, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Met_Mod,      ONLY : MetState\n    USE TOMAS_MOD,          ONLY : GETDP, STRATSCAV\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(IN)    :: DT         ! Dynamic timestep [s]\n    REAL(fp),       INTENT(IN)    :: F          ! Fraction of grid box\n                                                !  that is precipitating\n    REAL(fp),       INTENT(IN)    :: PP         ! Precip rate thru bottom\n                                                !  of grid box (I,J,L)\n                                                !  [cm3 H2O/cm2 air/s]\n    REAL(fp),       INTENT(IN)    :: TK         ! Temperature [K]\n    INTEGER,        INTENT(IN)    :: I          ! Longitude index\n    INTEGER,        INTENT(IN)    :: J          ! Latitude index\n    INTEGER,        INTENT(IN)    :: L          ! Level index\n    INTEGER,        INTENT(IN)    :: N          ! Species index\n\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),       INTENT(OUT)   :: WASHFRAC   ! Fraction of species\n                                                !  lost to washout [1]\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)       :: DPAERO ! Average diameter of particle\n    REAL(fp)       :: SCAVR  !Below-cloud scavenging coefficient (per cm rain)\n\n    !=================================================================\n    ! WASHFRAC_SIZE_AEROSOL begins here!\n    !=================================================================\n\n    IF ( TK >= 268e+0_fp ) THEN\n\n       !-------------\n       ! T >= 268K\n       !-------------\n\n       DPAERO = GETDP( I, J, L, N, State_Met, State_Chm, RC )\n       ! External function stratscav returns the scavenging rate (mm^-1)\n       ! Let scavr has a unit of cm^-1\n       SCAVR = 10.e+0_fp* STRATSCAV( DPAERO )\n\n       ! Prevent div by zero (bmy, 9/4/13)\n       IF ( F > 0e+0_fp ) THEN\n          WASHFRAC = F * ( 1e+0_fp - EXP( -SCAVR * ( PP / F ) * DT ) )\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ELSE\n\n       !-------------\n       ! T < 268K\n       !-------------\n       WASHFRAC = 0e+0_fp\n\n    ENDIF\n\n  END SUBROUTINE WASHFRAC_SIZE_AEROSOL\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_hno3\n!\n! !DESCRIPTION: Function WASHFRAC\\_HNO3 returns the fraction of HNO3\n!               species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WASHFRAC_HNO3( DT, F, PP, TK ) RESULT( WASHFRAC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: DT        ! Timestep of washout event [s]\n    REAL(fp), INTENT(IN) :: F         ! Fraction of grid box that is\n                                      !  precipitating [unitless]\n    REAL(fp), INTENT(IN) :: PP        ! Precip rate thru bottom of grid\n                                      !  box (I,J,L)  [cm3 H2O/cm2 air/s]\n    REAL(fp), INTENT(IN) :: TK        ! Temperature in grid box [K]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: WASHFRAC  ! Fraction of soluble species\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: K_WASH = 1.0_fp  ! First order washout rate\n                                              ! constant [cm^-1].\n#ifdef MODEL_GEOS\n    ! For online GEOS model only, apply for T >= 240 K (cf. Eric Fleming)\n    REAL(fp), PARAMETER :: TK_THRESHOLD = 240.0_fp\n#else\n    ! Otherwise set temperature threshold T >= 268 K\n    REAL(fp), PARAMETER :: TK_THRESHOLD = 268.0_fp\n#endif\n!\n! !LOCAL VARIABLES:\n!\n\n    !=================================================================\n    ! WASHFRAC_HNO3 begins here!\n    !=================================================================\n    IF ( TK >= TK_THRESHOLD ) THEN\n\n       !------------------------\n       ! T >= 268K: Do washout\n       !------------------------\n       IF ( F > 0e+0_fp ) THEN\n          ! Default scheme\n          WASHFRAC = F * ( 1e+0_fp - EXP( -K_WASH * (PP / F) * DT) )\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ELSE\n\n       !------------------------\n       ! T < threshold: No washout\n       !------------------------\n       WASHFRAC = 0e+0_fp\n\n    ENDIF\n\n  END FUNCTION WASHFRAC_HNO3\n#ifdef APM\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n !BOP\n!\n! !IROUTINE: washfrac_apmsize_aerosol\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WASHFRAC_APMSIZE_AEROSOL( RIN, DT, F, PP, TK, WASHFRAC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8,         INTENT(IN)    :: RIN         ! Aerosol size [m]\n    REAL*8,         INTENT(IN)    :: DT          ! Dynamic timestep [s]\n    REAL*8,         INTENT(IN)    :: F           ! Fraction of grid box\n                                                 !  that is precipitating\n    REAL*8,         INTENT(IN)    :: PP          ! Precip rate thru bottom\n                                                 !  of grid box (I,J,L)\n                                                 !  [cm3 H2O/cm2 air/s]\n    REAL*8,         INTENT(IN)    :: TK          ! Temperature [K]\n\n    REAL*8,         INTENT(OUT)   :: WASHFRAC    ! Fraction of tracer lost to washout\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: N\n    REAL*8             :: RINUM,PAR1,PAR2,PAR3,WASHRATE\n    REAL*8             :: PHOUR\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER :: K_WASH = 1.06e-3_fp\n\n    integer,parameter :: resol=100 ! number of differential scav coefs used\n\n    real*8,parameter,dimension(resol) :: A0   = (/ &\n        1.2421339D-03,  1.1542652D-03,  1.0697728D-03,  9.8944578D-04, &\n        9.1371929D-04,  8.4278590D-04,  7.7667052D-04,  7.1528548D-04, &\n        6.5846901D-04,  6.0600966D-04,  5.5766889D-04,  5.1319298D-04, &\n        4.7232405D-04,  4.3480799D-04,  4.0039657D-04,  3.6885168D-04, &\n        3.3994846D-04,  3.1347378D-04,  2.8923032D-04,  2.6703325D-04, &\n        2.4671193D-04,  2.2810873D-04,  2.1107841D-04,  1.9548827D-04, &\n        1.8121649D-04,  1.6815161D-04,  1.5619207D-04,  1.4524521D-04, &\n        1.3522667D-04,  1.2605986D-04,  1.1767508D-04,  1.1000906D-04, &\n        1.0300445D-04,  9.6609200D-05,  9.0776336D-05,  8.6302263D-05, &\n        8.1774526D-05,  7.7650854D-05,  7.3907784D-05,  7.0525143D-05, &\n        6.7486259D-05,  6.4778164D-05,  6.2440762D-05,  6.0625356D-05, &\n        5.8598430D-05,  5.7528951D-05,  5.6584556D-05,  5.5783209D-05, &\n        5.5543436D-05,  5.5543436D-05,  5.5543436D-05,  5.7475162D-05, &\n        5.8920602D-05,  6.1073444D-05,  6.4497544D-05,  6.8131062D-05, &\n        7.2558585D-05,  7.7855845D-05,  8.4144327D-05,  9.1530451D-05, &\n        1.0014767D-04,  1.1015226D-04,  1.2173151D-04,  1.3511098D-04, &\n        1.3144316D+00,  2.1080957D+01,  6.4889491D+01,  1.9500575D+02, &\n        7.2548248D+02,  9.6941400D+02,  1.1577594D+03,  1.3120109D+03, &\n        1.4584424D+03,  1.5450455D+03,  1.6161885D+03,  1.6828528D+03, &\n        1.7346022D+03,  2.3845894D+03,  2.6876754D+03,  2.7387250D+03, &\n        2.7742642D+03,  2.8069166D+03,  2.8392922D+03,  2.7104748D+03, &\n        2.0122139D+03,  1.4870979D+03,  1.1876294D+03,  8.0640117D+02, &\n        3.2910188D+02,  7.1894308D+01,  2.1724393D+00,  1.3292166D-01, &\n        1.2247745D-01,  1.1591321D-01,  1.1317314D-01,  1.1448342D-01, &\n        1.2051768D-01,  1.3249278D-01,  1.5257908D-01,  1.8452159D-01 /)\n\n    real*8,parameter,dimension(resol) :: A1   = (/ &\n        5.0580353D-03,  4.7109454D-03,  4.4035710D-03,  4.1284255D-03, &\n        3.8799211D-03,  3.6537793D-03,  3.4466705D-03,  3.2559540D-03, &\n        3.0795037D-03,  2.9155923D-03,  2.7627973D-03,  2.6199358D-03, &\n        2.4860212D-03,  2.3602081D-03,  2.2417832D-03,  2.1301353D-03, &\n        2.0247372D-03,  1.9251300D-03,  1.8309154D-03,  1.7417413D-03, &\n        1.6573005D-03,  1.5773210D-03,  1.5015609D-03,  1.4298067D-03, &\n        1.3618641D-03,  1.2975605D-03,  1.2367403D-03,  1.1792643D-03, &\n        1.1250047D-03,  1.0738467D-03,  1.0256848D-03,  9.8042322D-04, &\n        9.3797448D-04,  8.9825859D-04,  8.6120289D-04,  8.2707145D-04, &\n        7.9140109D-04,  7.5859975D-04,  7.2858162D-04,  7.0127807D-04, &\n        6.7664220D-04,  6.5465171D-04,  6.3491029D-04,  6.1917999D-04, &\n        6.0180213D-04,  5.9237683D-04,  5.8410135D-04,  5.7713998D-04, &\n        5.7521646D-04,  5.7521646D-04,  5.7521646D-04,  5.9573825D-04, &\n        6.1128457D-04,  6.3433325D-04,  6.7077811D-04,  7.0902428D-04, &\n        7.5496154D-04,  8.0921016D-04,  8.7210055D-04,  9.4417636D-04, &\n        1.0260809D-03,  1.1184538D-03,  1.2219490D-03,  1.3372226D-03, &\n        3.3669307D-06,  6.8382524D-07,  4.0853339D-07,  2.0483149D-07, &\n        7.4624009D-08,  7.0603692D-08,  7.1071154D-08,  7.2576727D-08, &\n        7.3354584D-08,  7.6011076D-08,  7.8321576D-08,  7.9914898D-08, &\n        8.1448083D-08,  6.1700605D-08,  5.6634320D-08,  5.7221333D-08, &\n        5.7962467D-08,  5.8669217D-08,  5.9349052D-08,  6.3637204D-08, &\n        8.7872021D-08,  1.2220386D-07,  1.5786685D-07,  2.4108266D-07, &\n        6.1647029D-07,  2.9680970D-06,  1.0439819D-04,  1.8745902D-03, &\n        2.2149189D-03,  2.5806136D-03,  2.9535205D-03,  3.3070670D-03, &\n        3.6059673D-03,  3.8132840D-03,  3.8954592D-03,  3.8302728D-03 /)\n\n    real*8,parameter,dimension(resol) :: A2   = (/ &\n        6.6424127D-01,  6.6576376D-01,  6.6713995D-01,  6.6839236D-01, &\n        6.6953812D-01,  6.7059130D-01,  6.7156306D-01,  6.7246240D-01, &\n        6.7329683D-01,  6.7407304D-01,  6.7479637D-01,  6.7547196D-01, &\n        6.7610345D-01,  6.7669458D-01,  6.7724858D-01,  6.7776851D-01, &\n        6.7825605D-01,  6.7871442D-01,  6.7914446D-01,  6.7954857D-01, &\n        6.7992783D-01,  6.8028357D-01,  6.8061731D-01,  6.8092889D-01, &\n        6.8121941D-01,  6.8148927D-01,  6.8173855D-01,  6.8196686D-01, &\n        6.8217380D-01,  6.8235808D-01,  6.8251825D-01,  6.8265207D-01, &\n        6.8275644D-01,  6.8282760D-01,  6.8286013D-01,  6.8282405D-01, &\n        6.8277795D-01,  6.8266725D-01,  6.8247922D-01,  6.8219803D-01, &\n        6.8180393D-01,  6.8127402D-01,  6.8056216D-01,  6.7977710D-01, &\n        6.7843974D-01,  6.7732850D-01,  6.7585803D-01,  6.7349287D-01, &\n        6.7115454D-01,  6.7115454D-01,  6.7115454D-01,  6.6188326D-01, &\n        6.5857402D-01,  6.5475758D-01,  6.5009930D-01,  6.4629666D-01, &\n        6.4264392D-01,  6.3921057D-01,  6.3599722D-01,  6.3311369D-01, &\n        6.3051789D-01,  6.2819509D-01,  6.2612153D-01,  6.2426768D-01, &\n        4.9996833D-01,  6.0034315D-01,  6.6171289D-01,  6.9929362D-01, &\n        7.2455931D-01,  7.4315159D-01,  7.5769135D-01,  7.6946300D-01, &\n        7.7915407D-01,  7.8717177D-01,  7.9378675D-01,  7.9919713D-01, &\n        8.0356028D-01,  8.0700554D-01,  8.0963902D-01,  8.1154737D-01, &\n        8.1280391D-01,  8.1342701D-01,  8.1346568D-01,  8.1291308D-01, &\n        8.1175022D-01,  8.0993808D-01,  8.0742008D-01,  8.0412217D-01, &\n        7.9996035D-01,  7.9483587D-01,  7.8800543D-01,  7.6975396D-01, &\n        7.6003299D-01,  7.4935955D-01,  7.3794038D-01,  7.2605591D-01, &\n        7.1404544D-01,  7.0226337D-01,  6.9104364D-01,  6.8066128D-01 /)\n\n    real*8,parameter,dimension(resol) :: radresol = (/ &\n        1.1220191D-03,  1.2589269D-03,  1.4125401D-03,  1.5848971D-03, &\n        1.7782848D-03,  1.9952694D-03,  2.2387304D-03,  2.5118983D-03, &\n        2.8183979D-03,  3.1622965D-03,  3.5481569D-03,  3.9810999D-03, &\n        4.4668699D-03,  5.0119134D-03,  5.6234631D-03,  6.3096331D-03, &\n        7.0795286D-03,  7.9433667D-03,  8.9126099D-03,  1.0000118D-02, &\n        1.1220323D-02,  1.2589417D-02,  1.4125566D-02,  1.5849154D-02, &\n        1.7783055D-02,  1.9952927D-02,  2.2387566D-02,  2.5119277D-02, &\n        2.8184310D-02,  3.1623334D-02,  3.5481986D-02,  3.9811466D-02, &\n        4.4669226D-02,  5.0119724D-02,  5.6235291D-02,  6.3097067D-02, &\n        7.0796117D-02,  7.9434596D-02,  8.9127131D-02,  1.0000235D-01, &\n        1.1220455D-01,  1.2589565D-01,  1.4125732D-01,  1.5849341D-01, &\n        1.7783263D-01,  1.9953163D-01,  2.2387829D-01,  2.5119573D-01, &\n        2.8184637D-01,  3.1623703D-01,  3.5482404D-01,  3.9811930D-01, &\n        4.4669750D-01,  5.0120312D-01,  5.6235945D-01,  6.3097805D-01, &\n        7.0796943D-01,  7.9435527D-01,  8.9128178D-01,  1.0000352D+00, &\n        1.1220586D+00,  1.2589712D+00,  1.4125898D+00,  1.5849527D+00, &\n        1.7783473D+00,  1.9953395D+00,  2.2388091D+00,  2.5119867D+00, &\n        2.8184969D+00,  3.1624076D+00,  3.5482817D+00,  3.9812400D+00, &\n        4.4670272D+00,  5.0120902D+00,  5.6236610D+00,  6.3098550D+00, &\n        7.0797777D+00,  7.9436460D+00,  8.9129219D+00,  1.0000469D+01, &\n        1.1220717D+01,  1.2589860D+01,  1.4126063D+01,  1.5849712D+01, &\n        1.7783680D+01,  1.9953630D+01,  2.2388355D+01,  2.5120161D+01, &\n        2.8185301D+01,  3.1624447D+01,  3.5483231D+01,  3.9812866D+01, &\n        4.4670795D+01,  5.0121487D+01,  5.6237267D+01,  6.3099289D+01, &\n        7.0798607D+01,  7.9437386D+01,  8.9130272D+01,  1.0000587D+02 /)\n\n    !=================================================================\n    ! WASHFRAC_APMSIZE_AEROSOL begins here!\n    !=================================================================\n\n    WASHFRAC = 0d0\n    IF ( TK >= 268d0 ) THEN\n       IF ( F > 0d0 ) THEN\n\n          !-------------\n          ! T >= 268K\n          !-------------\n\n          !PP cm/s\n          PHOUR=PP*3.6d4/F !mm/hour\n\n          RINUM=RIN*1.D6 !m to um\n\n          DO N=2,resol\n             IF(RINUM<=radresol(1))THEN\n                PAR1=A0(1)\n                PAR2=A1(1)\n                PAR3=A2(1)\n             ELSE IF(RINUM>radresol(resol))THEN\n                PAR1=A0(resol)\n                PAR2=A1(resol)\n                PAR3=A2(resol)\n             ELSE IF((RINUM>radresol(N-1)).AND.(RINUM<=radresol(N)))THEN\n                PAR1=A0(N)\n                PAR2=A1(N)\n                PAR3=A2(N)\n             ENDIF\n          ENDDO\n\n          WASHRATE = PAR1*(EXP(PAR2*(PHOUR**PAR3))-1.D0) !s-1\n\n          WASHFRAC = F * (1.D0-EXP(-WASHRATE*DT))\n\n       ELSE\n          WASHFRAC = 0e+0_fp\n       ENDIF\n\n    ELSE\n\n       !---------------------------------\n       ! T < 268K\n       !---------------------------------\n       WASHFRAC = 0e+0_fp\n\n    ENDIF\n\n  END SUBROUTINE WASHFRAC_APMSIZE_AEROSOL\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: washfrac_liq_gas\n!!\n! !DESCRIPTION: Subroutine WASHFRAC\\_LIQ\\_GAS returns the fraction of soluble\n!  liquid/gas phase species lost to washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n#ifdef LUO_WETDEP\n  SUBROUTINE WASHFRAC_LIQ_GAS( K0, CR, pKa, PP, pHRain, DT,&\n                               F,  DZ, TK,  WASHFRAC, KIN )\n#else\n  SUBROUTINE WASHFRAC_LIQ_GAS( K0, CR, pKa, PP,       DT, &\n                               F,  DZ, TK,  WASHFRAC, KIN )\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)  :: K0        ! Henry's solubility constant [M/atm]\n    REAL(f8), INTENT(IN)  :: CR        ! Henry's volatility constant [K]\n    REAL(f8), INTENT(IN)  :: pKa       ! Henry's pH correction [1]\n    REAL(fp), INTENT(IN)  :: PP        ! Precip rate thru bottom of the\n                                       !  grid box [cm3 H2O/cm2 air/s]\n#ifdef LUO_WETDEP\n    REAL(fp), INTENT(IN)  :: pHrain\n#endif\n    REAL(fp), INTENT(IN)  :: DT        ! Timestep for washout event [s]\n    REAL(fp), INTENT(IN)  :: F         ! Fraction of grid box that is\n                                       !  precipitating [unitless]\n    REAL(fp), INTENT(IN)  :: DZ        ! Height of grid box [cm]\n    REAL(fp), INTENT(IN)  :: TK        ! Temperature in grid box [K]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: WASHFRAC  ! Fraction of species lost to washout\n    LOGICAL,  INTENT(OUT) :: KIN       ! T = washout is a kinetic process\n                                       ! F = washout is an equilibrium process\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)            :: L2G, LP, WASHFRAC_F_14\n!\n! !DEFINED PARAMETERS\n!\n    REAL(fp), PARAMETER :: K_WASH = 1.0_fp   ! First order washout rate\n                                             ! constant [cm^-1].\n\n    !=================================================================\n    ! WASHFRAC_LIQ_GAS begins here!\n    !=================================================================\n\n    ! Start with the assumption that washout will be an\n    ! equilibrium process (H Amos, 03 Jun 2011)\n    KIN = .FALSE.\n\n    ! Suppress washout below 268 K\n    IF ( TK >= 268.0_fp ) THEN\n\n       !------------------------\n       ! T >= 268K: Do washout\n       !------------------------\n\n       ! Rainwater content in the grid box (Eq. 17, Jacob et al, 2000)\n       LP = ( PP * DT ) / ( F * DZ )\n\n       ! Compute liquid to gas ratio for H2O2, using the appropriate\n       ! parameters for Henry's law -- also use rainwater content Lp\n       ! (Eqs. 7, 8, and Table 1, Jacob et al, 2000)\n#ifdef LUO_WETDEP\n       CALL COMPUTE_L2G( K0, CR, pKa, TK, LP, pHRain, L2G )  ! pH of rain\n#else\n       CALL COMPUTE_L2G( K0, CR, pKa, TK, LP, 4.5_f8, L2G )  ! Default pH\n#endif\n\n       ! Washout fraction from Henry's law (Eq. 16, Jacob et al, 2000)\n       WASHFRAC = L2G / ( 1e+0_fp + L2G )\n\n       ! Washout fraction / F from Eq. 14, Jacob et al, 2000\n       ! Note: WASHFRAC_F_14 should match what's used for HNO3 (hma, 13aug2011)\n       WASHFRAC_F_14 = 1e+0_fp - EXP( -K_WASH * ( PP / F ) * DT )\n\n       ! Do not let the Henry's law washout fraction exceed\n       ! that of HNO3 -- this is a cap\n       IF ( WASHFRAC > WASHFRAC_F_14 ) THEN\n          WASHFRAC = F * WASHFRAC_F_14\n          KIN = .TRUE. ! washout is a kinetic process\n       ENDIF\n\n    ELSE\n\n       !------------------------\n       ! T < 268K: No washout\n       !------------------------\n       WASHFRAC = 0e+0_fp\n\n    ENDIF\n\n  END SUBROUTINE WASHFRAC_LIQ_GAS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: wetdep\n!\n! !DESCRIPTION: Subroutine WETDEP computes the downward mass flux of\n!  species due to washout and rainout of aerosols and soluble species in a\n!  column.  This subroutine implements an algorithm in which the\n!  precipitation fields come directly from the met archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WETDEP( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                     State_Met, LS, RC )\n!\n! !USES:\n!\n    USE DEPO_MERCURY_MOD, ONLY : ADD_Hg2_WD\n    USE DEPO_MERCURY_MOD, ONLY : ADD_HgP_WD\n    USE DEPO_MERCURY_MOD, ONLY : ADD_Hg2_SNOWPACK\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Diag_Mod,   ONLY : DgnState\n    USE State_Grid_Mod,   ONLY : GrdState\n    USE State_Met_Mod,    ONLY : MetState\n    USE TIME_MOD,         ONLY : GET_TS_DYN\n    USE Timers_Mod\n    USE Species_Mod,      ONLY : Species\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)    :: LS          ! =T for large-scale precip\n                                                 ! =F for convective precip\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input options\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Precipitation fields:\n!  =====================\n!                                                                             .\n!       Layer        Formation of       Precipitation\n!                     New Precip        falling down\n!      ==================================================== Top of Atm.\n!        LM           QQ(L,I,J)         PDOWN(LM,I,J)\n!                         |                   |\n!      ----------------------------------------------------\n!        LM-1         QQ(L,I,J)         PDOWN(LM-1,I,J)\n!                         |                   |\n!      -------------------V-------------------V------------\n!                        ...                 ...\n!                         |                   |\n!      -------------------V-------------------V------------\n!        3            QQ(L,I,J)         PDOWN(3,I,J)\n!                         |                   |\n!      -------------------V--------------------------------\n!        2            QQ(L,I,J)         PDOWN(2,I,J)\n!                         |                   |\n!      ----------------------------------------------------\n!        1            QQ(L,I,J)         PDOWN(1,I,J)\n!                         |                   |\n!      ===================V===================V============ Ground\n!                                                                             .\n!  Where:\n!    (a) New formation forming in grid box (I,J,L) = QQ(L,I,J)\n!    (b) Precip coming in  thru top    of layer L  = PDOWN(L+1,I,J)\n!    (c) Precip going  out thru bottom of layer L  = PDOWN(L,  I,J)\n!                                                                             .\n!  Rainout:\n!  ========\n!  Rainout occurs when there is more precipitation in grid box (I,J,L) than\n!  in grid box (I,J,L+1).  In other words, rainout occurs when the amount of\n!  rain falling through the bottom of grid box (I,J,L) is more than the amount\n!  of rain coming in through the top of grid box (I,J,L).\n!                                                                             .\n!  Soluble gases/aerosols are incorporated into the raindrops and are\n!  completely removed from grid box (I,J,NZ).  There is no evaporation\n!  and \"resuspension\" of aerosols during a rainout event.\n!                                                                             .\n!  For large-scale (a.k.a. stratiform) precipitation, the first order rate\n!  constant for rainout in the grid box (I,J,L=NZ) (cf. Eq. 12, Jacob\n!  et al, 2000) is given by:\n!                                                                             .\n!                           Q\n!       K_RAIN = K_MIN + -------    [units: s^-1]\n!                         L + W\n!                                                                             .\n!  and the areal fraction of grid box (I,J,L=NZ) that is actually\n!  experiencing large-scale precipitation (cf. Eq. 11, Jacob et al, 2000)\n!  is given by:\n!                                                                             .\n!                         Q\n!       F'     =  -------------------   [unitless]\n!                  K_RAIN * ( L + W )\n!                                                                             .\n!  Where:\n!                                                                             .\n!       K_MIN  = minimum value for K_RAIN\n!              = 1.0e-4 [s^-1]\n!                                                                             .\n!       L + W  = condensed water content in cloud\n!              = 1.5e-6 [cm3 H2O/cm3 air]\n!                                                                             .\n!       Q = QQ = rate of precipitation formation\n!                [ cm3 H2O / cm3 air / s ]\n!                                                                             .\n!  For convective precipitation, K_RAIN = 5.0e-3 [s^-1], and the expression\n!  for F' (cf. Eq. 13, Jacob et al, 2000) becomes:\n!                                                                             .\n!                                       { DT        }\n!                         FMAX * Q * MIN{ --- , 1.0 }\n!                                       { TAU       }\n!       F' = ------------------------------------------------------\n!                    { DT        }\n!             Q * MIN{ --- , 1.0 }  +  FMAX * K_RAIN * ( L + W )\n!                    { TAU       }\n!                                                                             .\n!  Where:\n!                                                                             .\n!       Q = QQ = rate of precipitation formation\n!              [cm3 H2O/cm3 air/s]\n!                                                                             .\n!       FMAX   = maximum value for F'\n!              = 0.3\n!                                                                             .\n!       DT     = dynamic time step from the CTM [s]\n!                                                                             .\n!       TAU    = duration of rainout event\n!              = 1800 s (30 min)\n!                                                                             .\n!       L + W  = condensed water content in cloud\n!              = 2.0e-6 [cm3 H2O/cm3 air]\n!                                                                             .\n!  K_RAIN and F' are needed to compute the fraction of species in grid box\n!  (I,J,L=NZ) lost to rainout.  This is done in module routine RAINOUT.\n!                                                                             .\n!  Washout:\n!  ========\n!  Washout occurs when we have evaporation (or no precipitation at all) at\n!  grid box (I,J,L), but have rain coming down from grid box (I,J,L+1).\n!                                                                             .\n! !REVISION HISTORY:\n!  20 Sep 2010 - R. Yantosca - Initial version, based on WETDEP\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd Scalars\n    LOGICAL, SAVE          :: FIRST = .TRUE.\n    LOGICAL                :: printErr\n\n    ! Scalars\n    LOGICAL                :: errPrint\n    LOGICAL                :: IS_Hg\n    LOGICAL                :: KIN\n    LOGICAL                :: IS_RAINOUT, IS_WASHOUT, IS_BOTH\n    INTEGER                :: I,     IDX,    J,         L\n    INTEGER                :: N,     NW,     Hg_Cat,    EC\n    INTEGER                :: previous_units\n    REAL(fp)               :: Q,     QDOWN,  DT,        DT_OVER_TAU\n    REAL(fp)               :: K,     K_MIN,  K_RAIN,    RAINFRAC\n    REAL(fp)               :: F,     FTOP,   F_PRIME,   WASHFRAC\n    REAL(fp)               :: LOST,  GAINED, MASS_WASH, MASS_NOWASH\n    REAL(fp)               :: ALPHA, ALPHA2, WETLOSS,   TMP\n    REAL(fp)               :: F_RAINOUT,     F_WASHOUT\n    REAL(fp)               :: DEP_HG\n    REAL(fp)               :: CNVSCL\n    REAL(fp)               :: COND_WATER_CONTENT\n\n    ! Arrays\n    ! DSpc is the accumulator array of rained-out\n    ! soluble species for a given (I,J) column\n    REAL(fp)               :: DSpc(State_Chm%nWetDep, &\n                                   State_Grid%NZ,State_Grid%NX,State_Grid%NY)\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg, ErrorMsg, ThisLoc\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! (1)  I n i t i a l i z e   V a r i a b l e s\n    !=================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    errPrint  = .TRUE.\n    ErrorMsg  = ''\n    ThisLoc   = ' -> at WetDep (in module GeosCore/wetscav_mod.F90)'\n\n    ! Is this a mercury simulation?\n    IS_Hg = ITS_A_MERCURY_SIM\n\n    ! Initialize pointers\n    SpcInfo => NULL()\n\n    ! Halt wetdep timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Wet deposition\", RC )\n    ENDIF\n\n    ! Convert species concentration to mass per unit area (kg/m2) for\n    ! wet deposition since computation is done per column (ewl, 9/8/15)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n#ifndef TOMAS\n         mapping        = State_Chm%Map_WetDep,                              &\n#endif\n         new_units      = KG_SPECIES_PER_M2,                                 &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrorMsg = 'Unit conversion error at start of WETDEP!'\n       CALL GC_Error( ErrorMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start wetdep timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Wet deposition\", RC )\n    ENDIF\n\n    ! Dynamic timestep [s]\n    DT  = GET_TS_DYN()\n\n#ifdef LUO_WETDEP\n    State_Chm%KRATE = 0.d0\n#endif\n    ! Select index for diagnostic arrays -- will archive either\n    ! large-scale or convective rainout/washout fractions\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    !%%%% NOTE: FOR GEOS-FP AND MERRA-2, WE ALWAYS ASSUME THAT   %%%%%\n    !%%%% WETDEP OPERATES ONLY ON LARGE-SCALE PRECIP.  THUS, LS  %%%%%\n    !%%%% IS ALWAYS SET TO \"TRUE\" IN THE CALLING ROUTINE, AND    %%%%%\n    !%%%% IDX WILL ALWAYS BE 1 HERE AND IN SUBSEQUENT ROUTINES.  %%%%%\n    !%%%% (bmy, 11/13/17)                                        %%%%%\n    !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n    IF ( LS ) THEN\n       IDX = 1\n    ELSE\n       IDX = 2\n    ENDIF\n\n    ! CNVSCL is the scale factor to be applied to convective large\n    ! scale precipitation: a fraction of model-resolved vertical\n    ! transport is of convective nature (especially at high model\n    ! resolution). Treating all of it as large-scale precipiation\n    ! may overestimate total washout. CNVSCL is a scale factor to\n    ! adjust the convective fraction of the precipitation. If set\n    ! to 1.0, it will yield the same result as without correction.\n    ! If set to 0.0, all convective large-scale precipitation is\n    ! suppressed (ckeller, 3/4/16).\n    CNVSCL = -1.0\n    IF ( ASSOCIATED(State_Met%CNV_FRC) ) THEN\n       CNVSCL = Input_Opt%WETD_CONV_SCAL\n       CNVSCL = MIN(MAX(CNVSCL,0.0_fp),1.0_fp)\n    ENDIF\n\n    !=================================================================\n    ! (2)  L o o p   O v e r   (I, J)   S u r f a c e   B o x e s\n    !=================================================================\n    !$OMP PARALLEL DO                                                 &\n    !$OMP DEFAULT( SHARED                                           ) &\n    !$OMP PRIVATE( I,           J,          FTOP,        L          ) &\n    !$OMP PRIVATE( NW,          ERRMSG,     F,           F_PRIME    ) &\n    !$OMP PRIVATE( F_RAINOUT,   F_WASHOUT,  K_RAIN,      Q          ) &\n    !$OMP PRIVATE( QDOWN,       IS_RAINOUT, IS_WASHOUT,  N          ) &\n    !$OMP PRIVATE( DEP_HG,      SpcInfo,    Hg_Cat,      EC         ) &\n    !$OMP PRIVATE( COND_WATER_CONTENT                               ) &\n    !$OMP COLLAPSE( 2                                               ) &\n    !$OMP SCHEDULE( DYNAMIC, 24                                     )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Initialize PRIVATE error-handling variables\n       EC        = GC_SUCCESS\n       ErrorMsg  = ''\n\n       ! Don't do wetdep in nested-grid buffer zone (lzh, 4/1/15)\n       IF ( State_Grid%NestedGrid ) THEN\n          IF ( J <=                  State_Grid%SouthBuffer ) CYCLE\n          IF ( J >   State_Grid%NY - State_Grid%NorthBuffer ) CYCLE\n          IF ( I <=                  State_Grid%WestBuffer  ) CYCLE\n          IF ( I >   State_Grid%NX - State_Grid%EastBuffer  ) CYCLE\n       ENDIF\n\n       ! Zero FTOP\n       FTOP = 0e+0_fp\n\n       ! Zero accumulator array\n       DO L  = 1, State_Grid%NZ\n       DO NW = 1, State_Chm%nWetDep\n          DSpc(NW,L,I,J) = 0e+0_fp\n       ENDDO\n       ENDDO\n\n#ifndef LUO_WETDEP\n       !==============================================================\n       ! (3)  R a i n o u t   F r o m   T o p   L a y e r\n       ! (L = State_Grid%NZ)\n       !\n       ! Skip for Luo et al scheme, since we want to avoid doing\n       ! wet scavenging in the stratosphere. (bmy, 2/19/20)\n       ! See: https://github.com/geoschem/geos-chem/issues/211\n       !==============================================================\n\n       ! Zero variables for this level\n       ERRMSG             = 'RAINOUT: Top of atm'\n       F                  = 0.0_fp\n       F_PRIME            = 0.0_fp\n       F_RAINOUT          = 0.0_fp\n       F_WASHOUT          = 0.0_fp\n       K_RAIN             = 0.0_fp\n       Q                  = 0.0_fp\n       COND_WATER_CONTENT = 0.0_fp\n\n       ! Start at the top of the atmosphere\n       L = State_Grid%NZ\n\n       ! If precip forms at (I,J,L), assume it all rains out\n       IF ( State_Met%QQ(L,I,J) > 0.0_fp ) THEN\n\n          ! Q is the new precip that is forming within grid box (I,J,L)\n          Q = State_Met%QQ(L,I,J)\n\n!---------------------------------------------------------------------------\n! Prior to 2/19/20:\n! Comment out for now, in case we need to restore this (bmy, 2/19/20)\n!#ifdef LUO_WETDEP\n!          ! Luo et al scheme: Compute the condensed water\n!          ! content instead of using a constant value.\n!          ! Then compute K_RAIN and F_RAINOUT for LS precip.\n!          COND_WATER_CONTENT = MAX(1.e-30_fp,(QQ(L,I,J)*DT+ &\n!                      State_Met%QL(I,J,L)*State_Met%AIRDEN(I,J,L)*1e-3_fp))\n!          K_RAIN    = LS_K_RAIN( QQ(L,I,J), COND_WATER_CONTENT )\n!          F_RAINOUT = MAX( 1.e-4_fp, State_Met%CLDF(I,J,L) )\n!          F_RAINOUT = F_RAINOUT * MIN(1.e+0_fp, &\n!                      QQ(L,I,J) / ( COND_WATER_CONTENT * K_RAIN) )\n!#else\n!---------------------------------------------------------------------------\n          ! Default scheme: Compute K_RAIN and F_RAINOUT for LS\n          ! precipitation (cf. Eqs. 11-13, Jacob et al, 2000).\n          ! Use COND_WATER_CONTENT = 1e-6 [cm3/cm3], which\n          ! was recommended by Qiaoqiao Wang et al [2014].\n          K_RAIN    = LS_K_RAIN(  Q,         1.0e-6_fp  )\n          F_RAINOUT = LS_F_PRIME( Q, K_RAIN, 1.0e-6_fp  )\n!---------------------------------------------------------------------------\n! Prior to 2/19/20:\n! Comment out for now, in case we need to restore this (bmy, 2/19/20)\n!#endif\n!---------------------------------------------------------------------------\n\n          ! Set F = F_RAINOUT, since there is no FTOP at L = State_Grid%NZ\n          F = F_RAINOUT\n\n          ! Adjust convective large-scale precip (ckeller, 3/4/16)\n          IF ( CNVSCL >= 0.0_fp ) THEN\n             F = ( ( 1.0_fp - State_Met%CNV_FRC(I,J) ) * F )                 &\n               + ( ( CNVSCL * State_Met%CNV_FRC(I,J) ) * F )\n          ENDIF\n\n          ! Only compute rainout if F > 0.\n          ! This helps to eliminate unnecessary CPU cycles.\n          IF ( F > 0.0_fp ) THEN\n             CALL DO_RAINOUT_ONLY( LS         = LS,                          &\n                                   I          = I,                           &\n                                   J          = J,                           &\n                                   L          = L,                           &\n                                   IDX        = IDX,                         &\n                                   ERRMSG     = ERRMSG,                      &\n                                   F_RAINOUT  = F,                           &\n                                   K_RAIN     = K_RAIN,                      &\n                                   DT         = DT,                          &\n                                   DSpc       = DSpc,                        &\n                                   Input_Opt  = Input_Opt,                   &\n                                   State_Chm  = State_Chm,                   &\n                                   State_Diag = State_Diag,                  &\n                                   State_Grid = State_Grid,                  &\n                                   State_Met  = State_Met,                   &\n                                   errPrint   = errPrint,                    &\n                                   RC         = EC                          )\n\n             ! Trap potential errors\n             IF ( EC /= GC_SUCCESS ) THEN\n                IF( errPrint ) THEN\n                   ErrorMsg = 'Error encountered in \"Do_Rainout_Only (3)\"!'\n                ENDIF\n                RC       = EC\n                errPrint = .FALSE.\n             ENDIF\n          ENDIF\n\n          ! Save FTOP for the next lower level\n          FTOP = F\n\n       ENDIF\n#endif\n\n       !==============================================================\n       ! (4)  R a i n o u t   a n d   W a s h o u t\n       !      i n   t h e   M i d d l e   L e v e l s\n       !==============================================================\n#ifdef LUO_WETDEP\n       ! Luo et al scheme: Avoid wet scavenging in the stratosphere.\n       ! See: https://github.com/geoschem/geos-chem/issues/211\n       ! (bmy, 2/19/20)\n       DO L = State_Grid%NZ-1, 1, -1\n          IF ( State_Met%InStratMeso(I,J,L) ) CYCLE\n#else\n       ! Default scheme\n       DO L = State_Grid%NZ-1, 2, -1\n#endif\n\n          ! Zero variables for each level\n          F           = 0e+0_fp\n          F_PRIME     = 0e+0_fp\n          F_RAINOUT   = 0e+0_fp\n          F_WASHOUT   = 0e+0_fp\n          K_RAIN      = 0e+0_fp\n          Q           = 0e+0_fp\n          QDOWN       = 0e+0_fp\n\n          ! If there is new precip forming w/in the grid box ...\n          IF ( State_Met%QQ(L,I,J) > 0e+0_fp ) THEN\n\n#ifdef LUO_WETDEP\n             ! Luo et al scheme: Compute the condensed water\n             ! content instead of using a defined constant value.\n             ! Then compute K_RAIN and F_PRIME for LS precip.\n             ! Now use QL and QI in formula for COND_WATER_CONTENT\n             ! (bmy, 2/7/20)\n             COND_WATER_CONTENT = ( State_Met%QQ(L,I,J) * DT ) + &\n                                  (( State_Met%QL(I,J,L) + State_Met%QI(I,J,L))&\n                                  *( State_Met%AIRDEN(I,J,L) * 1e-3_fp ) )\n             COND_WATER_CONTENT = MAX( 1e-30_fp, COND_WATER_CONTENT )\n\n             K_RAIN  = LS_K_RAIN( State_Met%QQ(L,I,J), COND_WATER_CONTENT )\n             F_PRIME = MAX(1.e-4_fp,State_Met%CLDF(I,J,L))\n             F_PRIME = F_PRIME*MIN(1.e+0_fp, &\n                       State_Met%QQ(L,I,J) / ( K_RAIN * COND_WATER_CONTENT ) )\n             State_Chm%KRATE(I,J,L) = State_Met%QQ(L,I,J)*DT/COND_WATER_CONTENT\n#else\n             ! Default scheme: Compute K_RAIN and F_RAINOUT for LS\n             ! precipitation (cf. Eqs. 11-13, Jacob et al, 2000).\n             ! Use COND_WATER_CONTENT = 1e-6 [cm3/cm3], which\n             ! was recommended by Qiaoqiao Wang et al [2014].\n             K_RAIN  = LS_K_RAIN(  State_Met%QQ(L,I,J),         1.0e-6_fp )\n             F_PRIME = LS_F_PRIME( State_Met%QQ(L,I,J), K_RAIN, 1.0e-6_fp )\n#endif\n\n          ELSE\n\n             F_PRIME = 0e+0_fp\n\n          ENDIF\n\n          ! The following block implements Qiaoqiao's changes\n          ! Calculate the fractional areas subjected to rainout and\n          ! washout. If PDOWN = 0, then all dissolved species returns\n          ! to the atmosphere. (cdh, 7/13/10)\n          IF ( State_Met%PDOWN(L,I,J) > 0e+0_fp ) THEN\n             F_RAINOUT = F_PRIME\n             ! Washout occurs where there is no rainout\n             F_WASHOUT = MAX( FTOP - F_RAINOUT, 0e+0_fp )\n          ELSE\n             F_RAINOUT = 0e+0_fp\n             F_WASHOUT = 0e+0_fp\n          ENDIF\n\n          ! Adjust convective large-scale precip (ckeller, 3/4/16)\n          IF ( CNVSCL >= 0.0_fp ) THEN\n             F_RAINOUT = ( ( 1.0_fp - State_Met%CNV_FRC(I,J) ) * F_RAINOUT ) &\n                       + ( ( CNVSCL * State_Met%CNV_FRC(I,J) ) * F_RAINOUT )\n             F_WASHOUT = ( ( 1.0_fp - State_Met%CNV_FRC(I,J) ) * F_WASHOUT ) &\n                       + ( ( CNVSCL * State_Met%CNV_FRC(I,J) ) * F_WASHOUT )\n          ENDIF\n\n\n          IF ( F_WASHOUT > 0e+0_fp ) THEN\n\n             ! QDOWN is the precip leaving thru the bottom of box (I,J,L)\n             ! Q     is the precip that is evaporating within box (I,J,L)\n             QDOWN = State_Met%PDOWN(L,I,J)\n             Q     = State_Met%REEVAP(L,I,J)\n             Q     = MAX( Q, 0e+0_fp ) ! Negative values are unphysical\n\n             !  Define PDOWN and p\n             IF ( F_RAINOUT > 0e+0_fp ) THEN\n\n                ! The precipitation causing washout\n                ! is the precip entering thru the top\n                QDOWN = State_Met%PDOWN(L+1,I,J)\n\n                !** GEOS-FP and MERRA-2 distinguish between rates of\n                ! new precipitation (field DQRLSAN) and evaporation of\n                ! precipitation (field REEVAPLS).\n                ! So the assumption below is not required. ** VPS (6/21/16)\n\n                ! The amount of precipitating water entering from above\n                ! which evaporates. If there is rainout (new precip\n                ! forming) then we have no way to estimate this, so assume\n                ! zero for now. Consequently there will be no resuspended\n                ! aerosol.\n                !Q = 0e+0_fp\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------\n          ! Determine if we have the following conditions:\n          !\n          ! (a) Rainout\n          ! (b) Washout\n          !\n          ! Note that rainout and washout can happen in the same\n          ! grid box.\n          !-----------------------------------------------------------\n\n          ! If a non-zero fraction of the grid box is\n          ! experiencing rainout...\n          IS_RAINOUT = ( F_RAINOUT > 0e+0_fp )\n\n          ! If a non-zero fraction of the grid box is\n          ! experiencing washout...\n          IS_WASHOUT = ( F_WASHOUT > 0e+0_fp )\n\n          IF ( IS_RAINOUT ) THEN\n\n             !--------------------------------------------------------\n             ! RAINOUT\n             !--------------------------------------------------------\n\n             ! Error msg for stdout\n             ERRMSG = 'RAINOUT'\n\n             ! Do rainout if we meet the above criteria\n             CALL DO_RAINOUT_ONLY( LS         = LS,                          &\n                                   I          = I,                           &\n                                   J          = J,                           &\n                                   L          = L,                           &\n                                   IDX        = IDX,                         &\n                                   ERRMSG     = ERRMSG,                      &\n                                   F_RAINOUT  = F_RAINOUT,                   &\n                                   K_RAIN     = K_RAIN,                      &\n                                   DT         = DT,                          &\n                                   DSpc       = DSpc,                        &\n                                   Input_Opt  = Input_Opt,                   &\n                                   State_Chm  = State_Chm,                   &\n                                   State_Diag = State_Diag,                  &\n                                   State_Grid = State_Grid,                  &\n                                   State_Met  = State_Met,                   &\n                                   errPrint   = errPrint,                    &\n                                   RC         = EC                          )\n\n             ! Trap potential errors\n             IF ( EC /= GC_SUCCESS ) THEN\n                IF ( errPrint ) THEN\n                   ErrorMsg = 'Error encountered in \"Do_Rainout_Only (4)!'\n                ENDIF\n                RC       = EC\n                errPrint = .FALSE.\n             ENDIF\n\n          ENDIF\n\n#ifdef LUO_WETDEP\n          ! Luo scheme: avoid double washout\n          IF ( IS_WASHOUT .AND. L > 1 ) THEN\n#else\n          ! Default scheme\n          IF ( IS_WASHOUT ) THEN\n#endif\n\n             !--------------------------------------------------------\n             ! WASHOUT ONLY\n             !--------------------------------------------------------\n\n             ! Error msg for stdout\n             ERRMSG = 'WASHOUT'\n\n             ! Do the washout\n             CALL DO_WASHOUT_ONLY( LS         = LS,              &\n                                   I          = I,               &\n                                   J          = J,               &\n                                   L          = L,               &\n                                   IDX        = IDX,             &\n                                   ERRMSG     = ERRMSG,          &\n                                   QDOWN      = QDOWN,           &\n                                   Q          = Q,               &\n                                   F_WASHOUT  = F_WASHOUT,       &\n                                   F_RAINOUT  = F_RAINOUT,       &\n                                   DT         = DT,              &\n                                   PDOWN      = State_Met%PDOWN, &\n                                   DSpc       = DSpc,            &\n                                   Input_Opt  = Input_Opt,       &\n                                   State_Chm  = State_Chm,       &\n                                   State_Diag = State_Diag,      &\n                                   State_Grid = State_Grid,      &\n                                   State_Met  = State_Met,       &\n                                   errPrint   = errPrint,        &\n                                   RC         = EC )\n\n             ! Trap potential errors\n             IF ( EC /= GC_SUCCESS ) THEN\n                IF ( errPrint ) THEN\n                   ErrorMsg = 'Error encountered in \"Do_Washout_Only (4)!'\n                ENDIF\n                RC       = EC\n                errPrint = .FALSE.\n             ENDIF\n          ENDIF\n\n          !===========================================================\n          ! (6)  N o   D o w n w a r d   P r e c i p i t a t i o n\n          !\n          ! If there is no precipitation leaving grid box (I,J,L),\n          ! then  set F, the effective area of precipitation in grid\n          ! box (I,J,L), to zero.\n          !\n          ! Also, all of the previously rained-out species that is now\n          ! coming down from grid box (I,J,L+1) will evaporate and\n          ! re-enter the atmosphere in the gas phase in grid box\n          ! (I,J,L).  This is called \"resuspension\".\n          !===========================================================\n\n          ! Check if there is precip entering grid box, but not\n          ! leaving grid box\n          IF ( F_WASHOUT == 0e+0_fp .and. F_RAINOUT == 0e+0_fp ) THEN\n\n             ! No precipitation at grid box (I,J,L), thus F = 0\n             F = 0e+0_fp\n\n             ! Error message\n             ERRMSG = 'RESUSPENSION in middle levels'\n\n             ! Re-evaporate all of the rain\n             CALL DO_COMPLETE_REEVAP( LS         = LS,                       &\n                                      I          = I,                        &\n                                      J          = J,                        &\n                                      L          = L,                        &\n                                      IDX        = IDX,                      &\n                                      ERRMSG     = ERRMSG,                   &\n                                      DT         = DT,                       &\n                                      DSpc       = DSpc,                     &\n                                      Input_Opt  = Input_Opt,                &\n                                      State_Chm  = State_Chm,                &\n                                      State_Diag = State_Diag,               &\n                                      State_Grid = State_Grid,               &\n                                      State_Met  = State_Met,                &\n                                      errPrint   = errPrint,                 &\n                                      RC         = EC                       )\n\n             ! Trap potential errors\n             IF ( EC /= GC_SUCCESS ) THEN\n                IF ( errPrint ) THEN\n                   ErrorMsg = 'Error encountered in \"Do_Complete_Reevap\" (6)!'\n                ENDIF\n                RC       = EC\n                errPrint = .FALSE.\n             ENDIF\n          ENDIF\n\n          ! Save FTOP for next level\n          FTOP = F_RAINOUT + F_WASHOUT\n\n       ENDDO\n\n       !==============================================================\n       ! (7)  W a s h o u t   i n   L e v e l   1\n       !==============================================================\n\n       ! Zero variables for this level\n       ERRMSG  = 'WASHOUT: at surface'\n       F       = 0e+0_fp\n       F_PRIME = 0e+0_fp\n       K_RAIN  = 0e+0_fp\n       Q       = 0e+0_fp\n       QDOWN   = 0e+0_fp\n\n       ! We are at the surface, set L = 1\n       L = 1\n\n       ! Washout at level 1 criteria\n       IF ( State_Met%PDOWN(L+1,I,J) > 0e+0_fp ) THEN\n\n          ! QDOWN is the precip leaving thru the bottom of box (I,J,L+1)\n          QDOWN = State_Met%PDOWN(L+1,I,J)\n\n#ifdef LUO_WETDEP\n          ! Luo et al scheme: Only consider washout\n          F = F_WASHOUT\n#else\n          ! Default scheme: Since no precip is forming within grid box\n          ! (I,J,L), F' = 0, and F = MAX( F', FTOP ) reduces to F = FTOP.\n          F = FTOP\n#endif\n\n          ! Only compute washout if F > 0.\n          IF ( F > 0e+0_fp ) THEN\n             CALL DO_WASHOUT_AT_SFC( LS         = LS,                        &\n                                     I          = I,                         &\n                                     J          = J,                         &\n                                     L          = L,                         &\n                                     IDX        = IDX,                       &\n                                     ERRMSG     = ERRMSG,                    &\n                                     QDOWN      = QDOWN,                     &\n                                     F          = F,                         &\n                                     DT         = DT,                        &\n                                     DSpc       = DSpc,                      &\n                                     Input_Opt  = Input_Opt,                 &\n                                     State_Chm  = State_Chm,                 &\n                                     State_Diag = State_Diag,                &\n                                     State_Grid = State_Grid,                &\n                                     State_Met  = State_Met,                 &\n                                     errPrint   = errPrint,                  &\n                                     RC         = EC                        )\n\n             ! Trap potential errors\n             IF ( EC /= GC_SUCCESS ) THEN\n                IF ( errPrint ) THEN\n                   ErrorMsg = 'Error encountered in \"Do_Washout_at_Sfc (7)!'\n                ENDIF\n                RC       = EC\n                errPrint = .FALSE.\n             ENDIF\n          ENDIF\n       ENDIF\n\n       !==============================================================\n       ! (8)  M e r c u r y   S i m u l a t i o n   O n l y\n       !\n       ! For the mercury simulation, we need to archive the amt of\n       ! Hg2 [kg] that is scavenged out of the column.  Also applies\n       ! to the tagged Hg simulation.\n       !\n       ! NOTES:\n       ! (a) Now moved outside the loop above for clarity and to\n       !      fix a bug where HgP scavenging was not recorded.\n       ! (b) The values of DSpc in the first layer accumulates all\n       !      scavenging and washout in the column\n       ! (c) Updates from cdh. (ccc, 5/17/10)\n       !==============================================================\n       IF ( IS_Hg ) THEN\n\n          ! Loop over soluble species and/or aerosol species\n          DO NW = 1, State_Chm%nWetDep\n\n             ! Get the species index from the wetdep index\n             N       = State_Chm%Map_WetDep(NW)\n\n             ! Amount of Hg wet-deposited out of the column\n             DEP_HG  = DSpc(NW,1,I,J)\n\n             ! Point to the Species Database entry for species N\n             SpcInfo => State_Chm%SpcData(N)%Info\n\n             ! Check if it is a gaseous Hg2 tag\n             IF ( SpcInfo%Is_Hg2 ) THEN\n\n                ! Archive wet-deposited Hg2\n                CALL ADD_Hg2_WD      ( I, J, DEP_HG  )\n                CALL ADD_Hg2_SNOWPACK( I, J, DEP_HG, &\n                                       State_Met, State_Chm, State_Diag )\n\n             ! Check if it is a HgP tag\n             ELSE IF ( SpcInfo%Is_HgP ) THEN\n\n                ! Archive wet-deposited HgP\n                CALL ADD_HgP_WD      ( I, J, DEP_HG  )\n                CALL ADD_Hg2_SNOWPACK( I, J, DEP_HG, &\n                                       State_Met, State_Chm, State_Diag )\n\n             ENDIF\n\n             ! Free pointer\n             SpcInfo => NULL()\n          ENDDO\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    ! Exit with error condition\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error( ErrorMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Halt wetdep timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Wet deposition\", RC )\n    ENDIF\n\n    ! Convert species concentration back to original unit (ewl, 9/8/15)\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n#ifndef TOMAS\n         mapping    = State_Chm%Map_WetDep,                                  &\n#endif\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Unit conversion error at end of WETDEP!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start wetdep timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Wet deposition\", RC )\n    ENDIF\n\n  END SUBROUTINE WETDEP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ls_k_rain\n!\n! !DESCRIPTION: Function LS\\_K\\_RAIN computes K\\_RAIN, the first order\n!  rainout rate constant for large-scale (a.k.a. stratiform) precipitation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION LS_K_RAIN( Q, COND_WATER ) RESULT( K_RAIN )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: Q           ! Rate of precipitation formation\n                                        !  [cm3 H2O/cm3 air/s]\n    REAL(fp), INTENT(IN) :: COND_WATER  ! Condensed water content\n                                        !  [cm3 H2O/cm3 air/s]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: K_RAIN      ! 1st order rate constant [1/s]\n!\n! !REVISION HISTORY:\n!  18 Mar 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !==================================================================\n    ! LS_K_RAIN begins here!\n    !==================================================================\n\n    ! Compute rainout rate constant K in s^-1 (Eq. 12, Jacob et al, 2000).\n    ! (1) 1.0d-4             = K_MIN, a minimum value for K_RAIN\n    ! (2) COND_WATER_CONTENT = L + W [cm3/cm3], the condensed water\n    !                          content (liquid + ice)  in the cloud,\n    !                          (cf. Jacob et al 2000, Eq. 12)\n    K_RAIN = 1.0e-4_fp + ( Q / COND_WATER )\n\n  END FUNCTION LS_K_RAIN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ls_f_prime\n!\n! !DESCRIPTION: Function LS\\_F\\_PRIME computes F', the fraction of the\n!  grid box that is precipitating during large scale (a.k.a. stratiform)\n!  precipitation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION LS_F_PRIME( Q, K_RAIN, COND_WATER ) RESULT( F_PRIME )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: Q           ! Rate of precipitation formation\n                                        !  [cm3 H2O/cm3 air/s]\n    REAL(fp), INTENT(IN) :: K_RAIN      ! 1st order rate constant [1/s]\n    REAL(fp), INTENT(IN) :: COND_WATER  ! Condensed water content\n                                        !  [cm3 H2O/cm3 air/s]\n!\n! !REMARKS:\n!\n    REAL(fp)             :: F_PRIME     ! Fraction of grid box undergoing\n                                        !  large-scale precipitation [1]\n!\n! !REVISION HISTORY:\n!  18 Mar 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !=================================================================\n    ! LS_F_PRIME begins here!\n    !=================================================================\n\n    ! Compute F', the area of the grid box undergoing precipitation\n    ! COND_WATER = L + W [cm3/cm3], the condensed water\n    !              content (liquid + ice)  in the cloud\n    !              (cf. Jacob et al 2000, Eq. 12)\n    F_PRIME = Q / ( K_RAIN * COND_WATER )\n\n  END FUNCTION LS_F_PRIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: conv_f_prime\n!\n! !DESCRIPTION: Function CONV\\_F\\_PRIME computes F', the fraction of the\n!  grid box that is precipitating during convective precipitation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION CONV_F_PRIME( Q, K_RAIN, DT ) RESULT( F_PRIME )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: Q         ! Rate of precipitation formation\n                                      !  [cm3 H2O/cm3 air/s]\n    REAL(fp), INTENT(IN) :: K_RAIN    ! 1st order rainout rate constant [1/s]\n    REAL(fp), INTENT(IN) :: DT        ! Wet deposition timestep [s]\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: F_PRIME   ! Frac. of grid box undergoing\n                                      !  convective precipitation [1]\n!\n! !REVISION HISTORY:\n!  18 Mar 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp) :: TIME\n\n    !=================================================================\n    ! CONV_F_PRIME begins here!\n    !=================================================================\n\n#ifdef LUO_WETDEP\n    TIME = DT / 1800e+0_fp\n#else\n    ! Assume the rainout event happens in 30 minutes (1800 s)\n    ! Compute the minimum of DT / 1800s and 1.0\n    TIME = MIN( DT / 1800e+0_fp, 1e+0_fp )\n#endif\n\n    ! Compute F' for convective precipitation (Eq. 13, Jacob et al, 2000)\n    ! 0.3  = FMAX, the maximum value of F' for convective precip\n    ! 2d-6 = L + W, the condensed water content [cm3 H2O/cm3 air]\n    F_PRIME = ( 0.3e+0_fp * Q * TIME ) / &\n              ( ( Q * TIME ) + ( 0.3e+0_fp * K_RAIN * 2e-6_fp ) )\n\n  END FUNCTION CONV_F_PRIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_rainout_only\n!\n! !DESCRIPTION: Subroutine DO\\_RAINOUT\\_ONLY removes species by rainout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_RAINOUT_ONLY(  LS,  I,  J, L,          IDX,                  &\n                               ERRMSG,     F_RAINOUT,  K_RAIN,               &\n                               DT,         DSpc,       Input_Opt,            &\n                               State_Chm,  State_Diag, State_Grid,           &\n                               State_Met,  errPrint,   RC                   )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,      ONLY : IT_IS_NAN             ! Test for NaN\n    USE GET_NDEP_MOD,   ONLY : SOIL_WETDEP           ! Wet deposited species\n    USE Input_Opt_Mod,  ONLY : OptInput              ! Input options type\n    USE Species_Mod,    ONLY : SpcConc               ! Species conc pointer array\n    USE State_Chm_Mod,  ONLY : ChmState              ! Chem State object\n    USE State_Diag_Mod, ONLY : DgnState              ! Diag State object\n    USE State_Grid_Mod, ONLY : GrdState              ! Grid State object\n    USE State_Met_Mod,  ONLY : MetState              ! Met State object\n#ifdef TOMAS\n    USE TOMAS_MOD,      ONLY : GETFRACTION\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)    :: LS            ! =T denotes LS precip\n    INTEGER,          INTENT(IN)    :: I             ! Longitude index\n    INTEGER,          INTENT(IN)    :: J             ! Latitude index\n    INTEGER,          INTENT(IN)    :: L             ! Level index\n    INTEGER,          INTENT(IN)    :: IDX           ! ND38 index\n    REAL(fp),         INTENT(IN)    :: F_RAINOUT     ! Fraction of grid box\n                                                     !  undergoing rainout\n    REAL(fp),         INTENT(IN)    :: K_RAIN        ! Rainout constant\n    REAL(fp),         INTENT(IN)    :: DT            ! Rainout timestep [s]\n    CHARACTER(LEN=*), INTENT(IN)    :: ERRMSG        ! Error message\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt     ! Input options\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid    ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met     ! Met State object\n    LOGICAL,          INTENT(IN)    :: errPrint      ! Print error messages?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),         INTENT(INOUT) :: DSpc(:,:,:,:) ! Accumulator array [kg]\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm     ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag    ! Diags State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REMARKS:\n!  An IF statement in WETDEP decides if this rainout is to be done (and thus\n!  if this routine will be called.  The criteria for rainout is:\n!                                                                             .\n!     There is rainout if there is new precip formation in the grid box\n!     (i.e. DQRLSAN(I,J,L) > 0) and the fraction of the grid box experiencing\n!     rainout (i.e. F_RAINOUT) is greater than or equal to the fraction of\n!     the grid box directly overhead experiencing precip (i.e. FTOP).\n!        -- Helen Amos (9/10/10)\n!\n! !REVISION HISTORY:\n!  16 Sep 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,        NW,      S\n    REAL(fp)           :: RAINFRAC, WETLOSS\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrorMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n\n#ifdef TOMAS\n    ! Scavenging fraction of 30-bin aerosols (win, 7/16/09)\n    REAL(fp)           :: TOM_SC_FRACTION(State_Chm%nTomasBins)\n    REAL(fp)           :: SOLFRAC, XFRAC\n#endif\n\n    !=======================================================================\n    ! DO_RAINOUT_ONLY begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrorMsg  = ''\n    ThisLoc   = ' -> at DO_RAINOUT_ONLY (in module GeosCore/wetscav_mod.F90)'\n\n    ! Point to the chemical species array [kg/m2]\n    Spc => State_Chm%Species\n\n    !-----------------------------------------------------------------------\n    ! HISTORY (aka netCDF diagnostics)\n    !\n    ! Archive the fraction of the box that is undergoing large-scale\n    ! precipitation (PrecipFracLs).  This includes contributions\n    ! from both rainout and washout.  Here we add the contribution\n    ! from rainout.\n    !\n    ! NOTE: We always assume large-scale precipitation, because\n    ! the LS flag is always set to TRUE in the calling routine\n    ! for both GEOS-FP and MERRA-2 meteorology.\n    !-----------------------------------------------------------------------\n\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###    ! NOTE: This diagnostic may need some work\n!###    ! Units: [1]\n!###    IF ( State_Diag%Archive_PrecipFracLS ) THEN\n!###       State_Diag%PrecipFracLS(I,J,L) = State_Diag%PrecipFracLS(I,J,L) +  &\n!###                                        F_Rainout\n!###    ENDIF\n\n    !-----------------------------------------------------------------\n    ! Loop over all wet deposition species\n    !-----------------------------------------------------------------\n    DO NW = 1, State_Chm%nWetDep\n\n       ! Get the species ID from the wetdep ID\n       N = State_Chm%Map_WetDep(NW)\n\n       ! Call subroutine RAINOUT to comptue the fraction\n       ! of species lost to rainout in grid box (I,J,L)\n       CALL RAINOUT( I, J, L, N, K_RAIN, DT, F_RAINOUT, RAINFRAC,            &\n                     Input_Opt, State_Met, State_Chm, RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          IF ( errPrint ) THEN\n             ErrorMsg = 'Error encountered in \"Rainout\"!'\n             CALL GC_Error( ErrorMsg, RC, ThisLoc )\n          ENDIF\n          Spc => NULL()\n          RETURN\n       ENDIF\n\n#ifdef TOMAS\n       ! NOTE: Here the units are kg/m2, so State_Grid%Area_M2(I,J) is\n       ! the proper unit conversion factor. (Bob Yantosca, 10 Apr 2024)\n       IF ( id_NK01 > 0 ) THEN\n\n          IF ( N >= id_NK01 .and. N < id_NK01 + State_Chm%nTomasBins ) THEN\n\n             CALL GETFRACTION( I,                      J,                   &\n                               L,                      N,                   &\n                               LS,                     State_Chm,           &\n                               State_Grid,             State_Met,           &\n                               XFRAC,                  SOLFRAC,             &\n                               State_Grid%Area_M2(I,J)                     )\n\n             RAINFRAC = RAINFRAC * XFRAC * SOLFRAC\n\n          ELSE IF ( N >= id_SF01             .and. &\n                    N <  id_DUST01 + State_Chm%nTomasBins ) THEN\n\n             CALL GETFRACTION( I,                      J,                   &\n                               L,                      N,                   &\n                               LS,                     State_Chm,           &\n                               State_Grid,             State_Met,           &\n                               XFRAC,                  SOLFRAC,             &\n                               State_Grid%Area_M2(I,J)                     )\n\n             RAINFRAC = RAINFRAC * XFRAC\n          ENDIF\n       ENDIF\n#endif\n\n       ! WETLOSS is the amount of species in grid box per unit area\n       ! (I,J,L) that is lost to rainout [kg/m2]\n       WETLOSS = Spc(N)%Conc(I,J,L) * RAINFRAC\n\n       ! Subtract the rainout loss in grid box (I,J,L) from Spc [kg/m2]\n       Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) - WETLOSS\n\n       IF ( L == State_Grid%NZ ) THEN\n\n          ! DSpc is an accumulator array for rained-out species.\n          ! The species in DSpc are in the liquid phase and will\n          ! precipitate to the levels below until a washout occurs.\n          ! Initialize DSpc at (I,J,L=State_Grid%NZ) with WETLOSS.\n          DSpc(NW,L,I,J) = WETLOSS\n\n       ELSE\n\n          ! Add to DSpc the species lost to rainout in grid box\n          ! (I,J,L) plus the species lost to rainout from grid box\n          ! (I,J,L+1), which has by now precipitated down into\n          ! grid box (I,J,L).  DSpc will continue to accumulate\n          ! rained out species in this manner until a washout\n          ! event occurs.\n          DSpc(NW,L,I,J) = DSpc(NW,L+1,I,J) + WETLOSS\n\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! (1) Archive the fraction of soluble species lost to rainout\n       !     in large-scale precipitation (RainFracLS)\n       !\n       ! (2) Archive the amount of soluble species lost to large-\n       !     scale precipitation (WetLossLS).  This includes\n       !     contributions from rainout, washout, and reevaporation.\n       !     Here we add the component from rainout.\n       !--------------------------------------------------------------------\n\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###       ! Units: [1]\n!###       IF ( State_Diag%Archive_RainFracLs .and. &\n!###            F_Rainout > 0.0_fp ) THEN\n!###          State_Diag%RainFracLs(I,J,L,NW) = RainFrac / F_Rainout\n!###       ENDIF\n\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_WetLossLS ) THEN\n          S = State_Diag%Map_WetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%WetLossLs(I,J,L,S) =                                 &\n             State_Diag%WetLossLs(I,J,L,S) + ( WetLoss / DT )                &\n                                           * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Satellite diagnostic collection\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_SatDiagnWetLossLS ) THEN\n          S = State_Diag%Map_SatDiagnWetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) =                         &\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) + ( WetLoss / DT )        &\n                                                   * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Archive wet loss in kg/m2/s\n       IF ( LSOILNOX ) THEN\n          CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm )\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Error checks (only prints if this is the first error)\n       !---------------------------------------------------------------------\n       IF ( IT_IS_NAN( Spc(N)%Conc(I,J,L) )  .or.                                  &\n            Spc(N)%Conc(I,J,L) < 0e+0_fp     .or.                                  &\n            DSpc(NW,L,I,J) < 0e+0_fp ) THEN\n\n          ! Print error message\n          IF ( errPrint ) THEN\n             CALL SAFETY( I, J, L, N, ERRMSG,                     &\n                          LS          = LS,                       &\n                          PDOWN       = State_Met%PDOWN(L,I,J),   &\n                          QQ          = State_Met%QQ(L,I,J),      &\n                          ALPHA       = 0e+0_fp,                  &\n                          ALPHA2      = 0e+0_fp,                  &\n                          RAINFRAC    = RAINFRAC,                 &\n                          WASHFRAC    = 0e+0_fp,                  &\n                          MASS_WASH   = 0e+0_fp,                  &\n                          MASS_NOWASH = 0e+0_fp,                  &\n                          WETLOSS     = WETLOSS,                  &\n                          GAINED      = 0e+0_fp,                  &\n                          LOST        = 0e+0_fp,                  &\n                          State_Grid  = State_Grid,               &\n                          DSpc        = DSpc(NW,:,I,J),           &\n                          Spc         = Spc(N)%Conc(I,J,:),       &\n                          RC          = RC )\n          ENDIF\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             IF ( errPrint ) THEN\n                ErrorMsg = 'Error encountered in \"Safety\"!'\n                CALL GC_Error( ErrorMsg, RC, ThisLoc )\n             ENDIF\n             Spc => NULL()\n             RETURN\n          ENDIF\n       ENDIF\n    ENDDO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE DO_RAINOUT_ONLY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_washout_only\n!\n! !DESCRIPTION: Subroutine DO\\_WASHOUT\\_ONLY removes species by washout.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_WASHOUT_ONLY( LS,         I,         J,         L,           &\n                              IDX,        ERRMSG,    QDOWN,     Q,           &\n                              F_WASHOUT,  F_RAINOUT, DT,        PDOWN,       &\n                              DSpc,       Input_Opt, State_Chm, State_Diag,  &\n                              State_Grid, State_Met, errPrint,  RC,          &\n                              REEVAP                                        )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD\n    USE GET_NDEP_MOD,   ONLY : SOIL_WETDEP           ! Wet deposited species\n    USE Input_Opt_Mod,  ONLY : OptInput              ! Input options\n    USE Species_Mod,    ONLY : SpcConc               ! Species conc pointer array\n    USE State_Chm_Mod,  ONLY : ChmState              ! Chemistry State object\n    USE State_Diag_Mod, ONLY : DgnState              ! Diagnostic State object\n    USE State_Grid_Mod, ONLY : GrdState              ! Grid State object\n    USE State_Met_Mod,  ONLY : MetState              ! Met State object\n#ifdef TOMAS\n    USE TOMAS_MOD,      ONLY : AQOXID\n#endif\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,OPTIONAL, INTENT(IN)    :: REEVAP        ! Do re-evaporation?\n    LOGICAL,          INTENT(IN)    :: LS            ! =T denotes LS precip\n    INTEGER,          INTENT(IN)    :: I             ! Longitude index\n    INTEGER,          INTENT(IN)    :: J             ! Latitude index\n    INTEGER,          INTENT(IN)    :: L             ! Level index\n    INTEGER,          INTENT(IN)    :: IDX           ! ND38 index\n    CHARACTER(LEN=*), INTENT(IN)    :: ERRMSG        ! Error message\n    REAL(fp),         INTENT(IN)    :: QDOWN         ! Precip leaving thru\n                                                     !  bottom of box (I,J,L)\n    REAL(fp),         INTENT(IN)    :: Q             ! Precip forming or\n                                                     ! evaporating\n                                                     ! in box (I,J,L)\n    REAL(fp),         INTENT(IN)    :: F_WASHOUT     ! Fraction of grid box\n                                                     !  undergoing washout\n    REAL(fp),         INTENT(IN)    :: F_RAINOUT     ! Fraction of grid box\n                                                     !  undergoing rainout\n    REAL(fp),         INTENT(IN)    :: DT            ! Rainout timestep [s]\n    REAL(fp),         INTENT(IN)    :: PDOWN(:,:,:)  ! Precip\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt     ! Input options\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid    ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met     ! Met State object\n    LOGICAL,          INTENT(IN)    :: errPrint      ! Print error messages\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),         INTENT(INOUT) :: DSpc(:,:,:,:) ! Accumulator array\n                                                     ! [kg/m2]\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm     ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag    ! Diags State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REMARKS:\n!  A fraction ALPHA of the raindrops falling down from grid\n!  box (I,J,L+1) to grid box (I,J,L) will evaporate along the\n!  way.  ALPHA is given by:\n!\n!             precip leaving (I,J,L+1) - precip leaving (I,J,L)\n!   ALPHA = ---------------------------------------------------\n!                      precip leaving (I,J,L+1)\n!\n!\n!                     -QQ(L,I,J) * DZ(I,J,L)\n!         =         --------------------------\n!                         PDOWN(L+1,I,J)\n!\n!  We assume that a fraction ALPHA2 = 0.5 * ALPHA of the\n!  previously rained-out aerosols and HNO3 coming down from\n!  level (I,J,L+1) will evaporate and re-enter the atmosphere\n!  in the gas phase in grid box (I,J,L).  This process is\n!  called \"resuspension\".\n!\n!  For non-aerosol species, the amount of previously rained\n!  out mass coming down from grid box (I,J,L+1) to grid box\n!  (I,J,L) is figured into the total mass available for\n!  washout in grid box (I,J,L).  We therefore do not have to\n!  use the fraction ALPHA2 to compute the resuspension.\n!\n!  NOTE from Hongyu Liu about ALPHA (hyl, 2/29/00)\n!  =============================================================\n!  If our QQ field was perfect, the evaporated amount in grid\n!  box (I,J,L) would be at most the total rain amount coming\n!  from above (i.e. PDOWN(I,J,L+1) ). But this is not true for\n!  the MOISTQ field we are using.  Sometimes the evaporation in\n!  grid box (I,J,L) can be more than the rain amount from above.\n!  The reason is our \"evaporation\" also includes the effect of\n!  cloud detrainment.  For now we cannot find a way to\n!  distinguish betweeen the two. We then decided to release\n!  aerosols in both the detrained air and the evaporated air.\n!\n!  Therefore, we should use this term in the numerator:\n!\n!                 -QQ(I,J,L) * BXHEIGHT(I,J,L)\n!\n!  instead of the term:\n!\n!                 PDOWN(L+1)-PDOWN(L)\n!\n!  Recall that in make_qq.f we have restricted PDOWN to\n!  positive values, otherwise, QQ would be equal to\n!  PDOWN(L+1)-PDOWN(L).\n!  =============================================================\n!  Update (V. Shah 6/29/16)\n!  For GEOS-FP and MERRA2 met fields we use the\n!  following term in the numerator instead:\n!\t\tREEVAP(L,I,J) * BXHEIGHT(I,J,L)\n!  =============================================================\n!\n! !REVISION HISTORY:\n!  16 Sep 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: KIN,       DO_REEVAP\n    INTEGER            :: N,         NW,          S\n    REAL(fp)           :: ALPHA,     ALPHA2,      GAINED,   LOST\n    REAL(fp)           :: MASS_WASH, MASS_NOWASH, WASHFRAC, WETLOSS\n    REAL(fp)           :: TK,        TF\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrorMsg,  ThisLoc\n\n    ! Pointers\n    ! We need to define local array to hold species concentraiton values\n    ! from the Chemistry State (State_Chm) object [kg/m2] (ewl, 9/29/15)\n    TYPE(SpcConc), POINTER  :: Spc(:)\n\n#ifdef TOMAS\n    REAL(fp)           :: REEVAPSO2  !(win, 7/16/09)\n    INTEGER            :: KMIN       !(win, 7/16/09)\n#endif\n\n    !=======================================================================\n    ! DO_WASHOUT_ONLY begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrorMsg  = ''\n    ThisLoc   = ' -> at Do_Washout_Only (in module GeosCore/wetscav_mod.F90)'\n\n    ! Point to the chemical species array [kg/m2]\n    Spc => State_Chm%Species\n\n    !-----------------------------------------------------------------------\n    ! HISTORY (aka netCDF diagnostics)\n    !\n    ! Archive the fraction of the box that is undergoing large-scale\n    ! precipitation (PrecipFracLs).  This includes contributions\n    ! from both rainout and washout.  Here we add the contribution\n    ! from washout.\n    !\n    ! NOTE: We always assume large-scale precipitation, because\n    ! the LS flag is always set to TRUE in the calling routine\n    ! for both GEOS-FP and MERRA-2 meteorology.\n    !-----------------------------------------------------------------------\n\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###    ! NOTE: This diagnostic may need some work\n!###    ! Units: [1]\n!###    IF ( State_Diag%Archive_PrecipFracLS ) THEN\n!###       State_Diag%PrecipFracLS(I,J,L) = State_Diag%PrecipFracLS(I,J,L) +  &\n!###                                        F_Washout\n!###    ENDIF\n\n    ! air temperature [K]\n    TK  = State_Met%T(I,J,L)\n\n    ! TOTAL precipitation fraction\n    TF  = F_WASHOUT + F_RAINOUT\n\n    !-----------------------------------------------------------------------\n    ! Loop over all wet deposition species\n    !-----------------------------------------------------------------------\n    DO NW = 1, State_Chm%nWetDep\n\n       ! Get the species ID from the wetdep ID\n       N           = State_Chm%Map_WetDep(NW)\n\n       ! zero local variables\n       ALPHA       = 0e+0_fp\n       ALPHA2      = 0e+0_fp\n       WASHFRAC    = 0e+0_fp\n       MASS_WASH   = 0e+0_fp\n       MASS_NOWASH = 0e+0_fp\n       WETLOSS     = 0e+0_fp\n       GAINED      = 0e+0_fp\n       LOST        = 0e+0_fp\n#ifdef TOMAS\n       REEVAPSO2   = 0.0_fp\n       KMIN        = 0\n#endif\n\n       ! Call WASHOUT to compute the fraction of\n       ! species lost to washout in grid box (I,J,L)\n       CALL WASHOUT(                                                         &\n            ! --- Input ---\n            I          = I,                                                  &\n            J          = J,                                                  &\n            L          = L,                                                  &\n            N          = N,                                                  &\n            BXHEIGHT   = State_Met%BXHEIGHT(I,J,L),                          &\n            TK         = TK,                                                 &\n            PP         = QDOWN,                                              &\n            DT         = DT,                                                 &\n            F          = TF,                                                 &\n            Input_Opt  = Input_Opt,                                          &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n#ifdef LUO_WETDEP\n            pHRain     = State_Chm%pHRain(I,J,L),                             &\n#endif\n#ifdef TOMAS\n            fromWetDep = .TRUE.,                                             &\n#endif\n            ! --- Input/Output ---\n            State_Chm  = State_Chm,                                          &\n            H2O2s      = State_Chm%H2O2AfterChem(I,J,L),                     &\n            SO2s       = State_Chm%SO2AfterChem(I,J,L),                      &\n            ! --- Output ---\n            WASHFRAC   = WASHFRAC,                                           &\n            KIN        = KIN,                                                &\n            RC         = RC                                                 )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          IF ( errPrint ) THEN\n             ErrorMsg = 'Error encountered in \"Washout\"!'\n             CALL GC_Error( ErrorMsg, RC, ThisLoc )\n          ENDIF\n          RETURN\n       ENDIF\n\n       !%%% BUG FIX (bmy, hamos, 5/26/11, 8/12/15)\n       !\n       ! Check if WASHFRAC = NaN or WASHFRAC < 0.1 %\n       !\n       ! If WASHFRAC = NaN, then DSpc = NaN and SAFETY trips because\n       ! species concentrations must be finite.WASHFRAC = NaN when F = 0.\n       ! When less than 0.1% of a soluble species is available for washout\n       ! DSpc < 0 and SAFETY trips.  (Helen Amos, 20100928)\n       !\n       ! Viral Shah wrote:\n       !  The condition requiring that the WASHFRAC>1D-3 or any number\n       !  greater than 0 for washout to occur, prevents the partial\n       !  resuspension of the dissolved mass falling from above, and leads\n       !  to an overestimate in the wet deposited mass... I recommend that\n       !  the condition on WASHFRAC should be removed.  If  this leads to\n       !  negative values of DSpc, we should add a few lines to restrict\n       !  DSpc to a minimum of 0. (mps, 5/20/15)\n       !\n       IF ( IT_IS_NAN( WASHFRAC ) ) THEN\n          CYCLE\n       ENDIF\n\n       ! Adjust WASHFRAC accordingly for aerosols.  NOTE: TF is always\n       ! > 0 since DO_WASHOUT_ONLY is only called if F_WASHOUT > 0.\n       ! We will never get a div-by-zero error here. (bmy, 5/27/11)\n       IF ( KIN ) THEN\n          WASHFRAC = WASHFRAC / TF * F_WASHOUT\n       ENDIF\n\n       !====================================================================\n       ! Washout of aerosol species --\n       ! this is modeled as a kinetic process\n       !====================================================================\n       IF ( KIN ) THEN\n\n          ! Define ALPHA, the fraction of the raindrops that\n          ! re-evaporate when falling from (I,J,L+1) to (I,J,L)\n#ifdef LUO_WETDEP\n          ALPHA = ( ABS( Q ) * State_Met%BXHEIGHT(I,J,L) * 100e+0_fp )       &\n                  / MAX( 1.D-30, PDOWN(L+1,I,J) )\n#else\n          ALPHA = ( ABS( Q ) * State_Met%BXHEIGHT(I,J,L) * 100e+0_fp )       &\n                  / ( PDOWN(L+1,I,J) )\n#endif\n\n          ! Restrict ALPHA to be less than 1 (>1 is unphysical)\n          ! (hma, 24-Dec-2010)\n          IF ( ALPHA > 1e+0_fp ) THEN\n             ALPHA = 1e+0_fp\n          ENDIF\n\n          ! ALPHA2 is the fraction of the rained-out aerosols\n          ! that gets resuspended in grid box (I,J,L)\n          ALPHA2  = 0.5e+0_fp * ALPHA\n\n          ! GAINED is the rained out aerosol coming down from\n          ! grid box (I,J,L+1) that will evaporate and re-enter\n          ! the atmosphere in the gas phase in grid box (I,J,L).\n          GAINED  = DSpc(NW,L+1,I,J) * ALPHA2\n\n          ! Amount of aerosol lost to washout in grid box\n          ! (qli, bmy, 10/29/02)\n          WETLOSS = Spc(N)%Conc(I,J,L) * WASHFRAC - GAINED\n\n          ! Remove washout losses in grid box (I,J,L) from Spc.\n          ! Add the aerosol that was reevaporated in (I,J,L).\n          ! SO2 in sulfate chemistry is wet-scavenged on the\n          ! raindrop and converted to SO4 by aqeuous chem.\n          ! If evaporation occurs then SO2 comes back as SO4\n          ! (rjp, bmy, 3/23/03)\n          IF ( N == id_SO2 ) THEN\n             Spc(id_SO4)%Conc(I,J,L) = Spc(id_SO4)%Conc(I,J,L) &\n                                 + GAINED * 96e+0_fp / 64e+0_fp\n\n#ifdef APM\n             State_Chm%PSO4_SO2APM2(I,J,L) =                                 &\n             State_Chm%PSO4_SO2APM2(I,J,L) + GAINED * 96e+0_fp / 64e+0_fp\n#endif\n\n             Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) * ( 1e+0_fp - WASHFRAC )\n\n\n#ifdef TOMAS\n!added for TOMAS (win, 7/16/09)\n\n             ! Re-evaporated portion get distributed onto\n             ! size-resolved sulfate by AQOXID (win, 7/16/09)\n             IF ( GAINED > 0e+0_fp ) THEN\n                IF ( LS ) THEN\n                   ! JKodros (6/2/15 - allow for different TOMAS bin lengths)\n#if defined( TOMAS12 )\n                   KMIN = 5\n#elif defined( TOMAS15 )\n                   KMIN = 8\n#elif defined( TOMAS30 )\n                   KMIN = 10\n#else\n                   KMIN = 20\n#endif\n\n                ELSE\n#if defined( TOMAS12 )\n                   KMIN = 3\n#elif defined( TOMAS15 )\n                   KMIN = 6\n#elif defined( TOMAS30 )\n                   KMIN = 6\n#else\n                   KMIN = 16\n#endif\n                ENDIF\n\n                ! ***NOTE*** Species concentration units are currently in\n                ! [kg/m2] which is incompatible with TOMAS. Units are\n                ! therefore converted to [kg] locally within AQOXID.\n                ! GAINED is now [kg/m2] ans so is multiplied\n                ! by area prior to passing REEVAPSO2 to AQOXID (ewl, 9/30/15)\n                REEVAPSO2 = GAINED * 96e+0_fp / 64e+0_fp\n                IF ( Spc(id_SO2)%Units == KG_SPECIES_PER_M2 ) THEN\n                   REEVAPSO2 = REEVAPSO2 * State_Grid%Area_M2(I,J)\n                ENDIF\n\n                ! NOTE: Species units are kg here\n                CALL AqOxid(                                                 &\n                     I          = I,                                         &\n                     J          = J,                                         &\n                     L          = L,                                         &\n                     fromWetDep = .TRUE.,                                    &\n                     MOXID      = REEVAPSO2,                                 &\n                     KMIN       = KMIN,                                      &\n                     Input_Opt  = Input_Opt,                                 &\n                     State_Chm  = State_Chm,                                 &\n                     State_Grid = State_Grid,                                &\n                     State_Met  = State_Met,                                 &\n                     State_Diag = State_Diag,                                &\n                     RC         = RC                                        )\n             ENDIF\n             !end -added for TOMAS  (win, 7/16/09)\n#endif\n\n          ELSE\n             Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) - WETLOSS\n          ENDIF\n\n          ! LOST is the rained out aerosol coming down from\n          ! grid box (I,J,L+1) that will remain in the liquid\n          ! phase in grid box (I,J,L) and will NOT re-evaporate.\n          LOST = DSpc(NW,L+1,I,J) - GAINED\n\n          ! Add the washed out species from grid box (I,J,L) to\n          ! DSpc.  Also add the amount of species coming down\n          ! from grid box (I,J,L+1) that does NOT re-evaporate.\n          IF ( F_RAINOUT > 0e+0_fp ) THEN\n             DSpc(NW,L,I,J) = DSpc(NW,L,  I,J) + WETLOSS\n          ELSE\n             DSpc(NW,L,I,J) = DSpc(NW,L+1,I,J) + WETLOSS\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Archive the fraction of soluble species lost to washout\n          ! in large-scale precipitation (WashFracLS)\n          !\n          ! Here we only handle the soluble aerosol species\n          !-----------------------------------------------------------------\n\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###          ! Units: [1]\n!###          IF ( State_Diag%Archive_WashFracLS .and. F_Washout > 0.0_fp ) THEN\n!###             State_Diag%WashFracLS(I,J,L,NW) = WashFrac / F_Washout\n!###          ENDIF\n\n       !====================================================================\n       ! Washout of non-aerosol species\n       ! This is modeled as an equilibrium process\n       !====================================================================\n       ELSE\n\n          ! MASS_NOWASH is the amount of non-aerosol species in\n          ! grid box (I,J,L) that is NOT available for washout.\n          MASS_NOWASH = ( 1e+0_fp - F_WASHOUT ) * Spc(N)%Conc(I,J,L)\n\n          ! MASS_WASH is the total amount of non-aerosol species\n          ! that is available for washout in grid box (I,J,L).\n          ! It consists of the mass in the precipitating\n          ! part of box (I,J,L), plus the previously rained-out\n          ! species coming down from grid box (I,J,L+1).\n          ! (Eq. 15, Jacob et al, 2000).\n          MASS_WASH = ( F_WASHOUT*Spc(N)%Conc(I,J,L) ) + DSpc(NW,L+1,I,J)\n\n          ! WETLOSS is the amount of species mass in\n          ! grid box (I,J,L) that is lost to washout.\n          ! (Eq. 16, Jacob et al, 2000)\n          WETLOSS = ( MASS_WASH - DSpc(NW,L+1,I,J) ) * WASHFRAC\n\n          ! The species left in grid box (I,J,L) is what was\n          ! in originally in the non-precipitating fraction\n          ! of the box, plus MASS_WASH, less WETLOSS.\n          Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) - WETLOSS\n\n          ! Add washout losses in grid box (I,J,L) to DSpc\n          IF ( F_RAINOUT > 0e+0_fp ) THEN\n             DSpc(NW,L,I,J) = DSpc(NW,L,  I,J) + WETLOSS\n          ELSE\n             DSpc(NW,L,I,J) = DSpc(NW,L+1,I,J) + WETLOSS\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! HISTORY (aka netCDF diagnostics)\n          !\n          ! Archive the fraction of soluble species lost to washout\n          ! in large-scale precipitation (WashFracLS)\n          !\n          ! Here we handle the non-aerosol soluble species.  We don't\n          ! have to divide by F_Washout, since this has already been\n          ! accounted for in the equations above.\n          !-----------------------------------------------------------------\n\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###          ! Units: [1]\n!###          IF ( State_Diag%Archive_WashFracLS ) THEN\n!###             State_Diag%WashFracLS(I,J,L,NW) = WashFrac\n!###          ENDIF\n\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive the amount of soluble species lost to large-scale\n       ! precipitation (WetLossLS).  This includes contributions\n       ! from rainout, washout, and reevaporation.  Here we add the\n       ! component from washout.\n       !--------------------------------------------------------------------\n\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_WetLossLS ) THEN\n          S = State_Diag%Map_WetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%WetLossLS(I,J,L,S) =                                 &\n             State_Diag%WetLossLS(I,J,L,S) + ( WetLoss / DT )                &\n                                           * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Satellite diagnostic collection\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_SatDiagnWetLossLS ) THEN\n          S = State_Diag%Map_SatDiagnWetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) =                         &\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) + ( WetLoss / DT )        &\n                                                   * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Archive wet loss in kg/m2/s\n       IF ( LSOILNOX ) THEN\n          CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm )\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Error checks\n       !---------------------------------------------------------------------\n       IF ( IT_IS_NAN( Spc(N)%Conc(I,J,L) ) .or.                             &\n            Spc(N)%Conc(I,J,L)   < 0e+0_fp  .or.                             &\n            DSpc(NW,L,I,J) < 0e+0_fp      ) THEN\n\n          ! Print error message and stop simulaton\n          IF ( errPrint ) THEN\n             CALL SAFETY( I, J, L, N, ERRMSG,                     &\n                          LS          = LS,                       &\n                          PDOWN       = State_Met%PDOWN(L+1,I,J), &\n                          QQ          = State_Met%QQ(L,I,J),      &\n                          ALPHA       = ALPHA,                    &\n                          ALPHA2      = ALPHA2,                   &\n                          RAINFRAC    = 0e+0_fp,                  &\n                          WASHFRAC    = WASHFRAC,                 &\n                          MASS_WASH   = MASS_WASH,                &\n                          MASS_NOWASH = MASS_NOWASH,              &\n                          WETLOSS     = WETLOSS,                  &\n                          GAINED      = GAINED,                   &\n                          LOST        = LOST,                     &\n                          State_Grid  = State_Grid,               &\n                          DSpc        = DSpc(NW,:,I,J),           &\n                          Spc         = Spc(N)%Conc(I,J,:),       &\n                          RC          = RC )\n          ENDIF\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             IF ( errPrint ) THEN\n                ErrorMsg = 'Error encountered in \"Safety\"!'\n                CALL GC_Error( ErrorMsg, RC, ThisLoc )\n             ENDIF\n             Spc => NULL()\n             RETURN\n          ENDIF\n       ENDIF\n    ENDDO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE DO_WASHOUT_ONLY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_complete_reevap\n!\n! !DESCRIPTION: Subroutine DO\\_COMPLETE\\_REEVAP re-evaporates all of the\n!  soluble species back into the atmosphere.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_COMPLETE_REEVAP( LS,         I,         J,                   &\n                                 L,          IDX,       ERRMSG,              &\n                                 DT,         DSpc,      errPrint,            &\n                                 Input_Opt,  State_Chm, State_Diag,          &\n                                 State_Grid, State_Met, RC                  )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,      ONLY : It_Is_Nan\n    USE GET_NDEP_MOD,   ONLY : SOIL_WETDEP           ! Wet deposited species\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : SpcConc\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n#ifdef TOMAS\n    USE TOMAS_MOD,      ONLY : AQOXID\n#endif\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)    :: LS            ! =T denotes LS precip\n    INTEGER,          INTENT(IN)    :: I             ! Longitude index\n    INTEGER,          INTENT(IN)    :: J             ! Latitude index\n    INTEGER,          INTENT(IN)    :: L             ! Level index\n    INTEGER,          INTENT(IN)    :: IDX           ! ND38 index\n    CHARACTER(LEN=*), INTENT(IN)    :: ERRMSG        ! Error message\n    REAL(fp),         INTENT(IN)    :: DT            ! Rainout timestep [s]\n    LOGICAL,          INTENT(IN)    :: errPrint      ! Print error messages\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt     ! Input options\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid    ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met     ! Met State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm     ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag    ! Diagnostic State object\n    REAL(fp),         INTENT(INOUT) :: DSpc(:,:,:,:) ! Accumulator array [kg/m2]\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  16 Sep 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N, NW, S\n    REAL(fp)           :: WETLOSS\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrorMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n\n#ifdef TOMAS\n    REAL(fp)           :: REEVAPSO2  !(win, 7/16/09)\n    INTEGER            :: KMIN       !(win, 7/16/09)\n#endif\n\n    !========================================================================\n    ! DO_COMPLETE_REEVAP begins here!\n    !========================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrorMsg  = ''\n    ThisLoc   = ' -> at Do_Complete_Reevap (in module GeosCore/wetscav_mod.F90)'\n\n    ! Point to chemical species array [kg/m2]\n    Spc => State_Chm%Species\n\n    ! Loop over wetdep species\n    DO NW = 1, State_Chm%nWetDep\n\n       ! Get the species ID from the wetdep ID\n       N = State_Chm%Map_WetDep(NW)\n\n       ! WETLOSS is the amount of species in grid box (I,J,L) per area\n       ! that is lost to rainout. (qli, bmy, 10/29/02)\n       WETLOSS = -DSpc(NW,L+1,I,J)\n\n       ! All of the rained-out species coming from grid box\n       ! (I,J,L+1) goes back into the gas phase at (I,J,L)\n       ! In evap, SO2 comes back as SO4 (rjp, bmy, 3/23/03)\n       IF ( N == id_SO2 ) THEN\n          Spc(id_SO4)%Conc(I,J,L) = Spc(id_SO4)%Conc(I,J,L) - &\n                              ( WETLOSS * 96e+0_fp / 64e+0_fp )\n\n#ifdef APM\n          State_Chm%PSO4_SO2APM2(I,J,L) =                                    &\n          State_Chm%PSO4_SO2APM2(I,J,L) - ( WETLOSS * 96e+0_fp / 64e+0_fp )\n#endif\n\n#ifdef TOMAS\n          !added for TOMAS (win, 7/16/09)\n          ! Save the amout of SO4 [kg S] added via aqueous\n          ! chem to ND05(6) diagnostic assuming it's all\n          ! by reacting with H2O2 (win, 7/16/09)\n\n          !=================================================================\n          ! sfarina - commenting out this DIAG for now... unclear if this\n          !           was even correct in the older verions because of an\n          !           error in the calculation of GAINED\n          !=================================================================\n          !IF ( ND05 > 0 .and. L <= LD05 ) &\n          !    AD05(I,J,L,6) = AD05(I,J,L,6) + ( GAINED * 32D0 / 64D0 )\n\n          ! Re-evaporated portion get distributed onto\n          ! size-resolved sulfate by AQOXID (win, 7/16/09)\n          IF ( ABS(WETLOSS) > 0e+0_fp ) THEN\n             IF ( LS ) THEN\n                ! JKodros (6/2/15) - Allow for different TOMAS bin lengths\n#if defined( TOMAS12 )\n                KMIN = 5\n#elif defined( TOMAS15 )\n                KMIN = 8\n#elif defined( TOMAS30 )\n                KIMIN = 10\n#else\n                KMIN = 20\n#endif\n\n             ELSE\n#if defined( TOMAS12 )\n                KMIN = 3\n#elif defined( TOMAS15 )\n                KMIN = 6\n#elif defined( TOMAS30 )\n                KIMIN = 6\n#else\n                KMIN = 16\n#endif\n             ENDIF\n\n             ! ***NOTE*** Species concentration units are currently in\n             ! [kg/m2] which is incompatible with TOMAS. Units are\n             ! therefore converted to [kg] locally within AQOXID.\n             ! GAINED is now [kg/m2] ans so is multiplied\n             ! by area prior to passing REEVAPSO2 to AQOXID (ewl, 9/30/15)\n             REEVAPSO2 = - ( WETLOSS * 96e+0_fp / 64e+0_fp )\n             IF ( Spc(id_SO2)%Units == KG_SPECIES_PER_M2 ) THEN\n                REEVAPSO2 = REEVAPSO2 * State_Grid%Area_M2(I,J)\n             ENDIF\n\n             CALL AqOxid(                                                    &\n                  I          = I,                                            &\n                  J          = J,                                            &\n                  L          = L,                                            &\n                  MOXID      = REEVAPSO2,                                    &\n                  KMIN       = KMIN,                                         &\n                  fromWetDep = .TRUE.,                                       &\n                  Input_Opt  = Input_Opt,                                    &\n                  State_Chm  = State_Chm,                                    &\n                  State_Grid = State_Grid,                                   &\n                  State_Met  = State_Met,                                    &\n                  State_Diag = State_Diag,                                   &\n                  RC         = RC                                           )\n          ENDIF\n          !end- added for TOMAS (win, 7/16/09)\n#endif\n\n\n       ELSE\n          Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) - WETLOSS\n       ENDIF\n\n       ! There is nothing rained out/washed out in grid box\n       ! (I,J,L), so set DSpc at grid box (I,J,L) to zero.\n       DSpc(NW,L,I,J) = 0e+0_fp\n\n       !--------------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive the amount of soluble species lost to large-scale\n       ! precipitation (WetLossLs).  This includes contributions\n       ! from rainout, washout, and reevaporation.  Here we add the\n       ! component from reevaporation (which is negative).\n       !--------------------------------------------------------------------\n\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_WetLossLs ) THEN\n          S = State_Diag%Map_WetLossLs%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%WetLossLs(I,J,L,S) =                                 &\n             State_Diag%WetLossLs(I,J,L,S) + ( WetLoss / DT )                &\n                                           * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Satellite diagnostic collection\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_SatDiagnWetLossLS ) THEN\n          S = State_Diag%Map_SatDiagnWetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) =                         &\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) + ( WetLoss / DT )        &\n                                                   * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Archive wet loss in kg/m2/s\n       IF ( LSOILNOX ) THEN\n          CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm )\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Error checks\n       !--------------------------------------------------------------------\n       IF ( IT_IS_NAN( Spc(N)%Conc(I,J,L) ) .or.                           &\n            Spc(N)%Conc(I,J,L)   < 0e+0_fp  .or.                           &\n            DSpc(NW,L,I,J) < 0e+0_fp  ) THEN\n          ! Print error message and stop simulaton\n          IF ( errPrint ) THEN\n             CALL SAFETY( I, J, L, N, ERRMSG,                                &\n                          LS          = LS,                                  &\n                          PDOWN       = 0e+0_fp,                             &\n                          QQ          = 0e+0_fp,                             &\n                          ALPHA       = 0e+0_fp,                             &\n                          ALPHA2      = 0e+0_fp,                             &\n                          RAINFRAC    = 0e+0_fp,                             &\n                          WASHFRAC    = 0e+0_fp,                             &\n                          MASS_WASH   = 0e+0_fp,                             &\n                          MASS_NOWASH = 0e+0_fp,                             &\n                          WETLOSS     = WETLOSS,                             &\n                          GAINED      = 0e+0_fp,                             &\n                          LOST        = 0e+0_fp,                             &\n                          State_Grid  = State_Grid,                          &\n                          DSpc        = DSpc(NW,:,I,J),                      &\n                          Spc         = Spc(N)%Conc(I,J,:),                  &\n                          RC          = RC                                  )\n          ENDIF\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             IF ( errPrint ) THEN\n                ErrorMsg = 'Error encountered in \"Safety\"!'\n                CALL GC_Error( ErrorMsg, RC, ThisLoc )\n             ENDIF\n             Spc => NULL()\n             RETURN\n          ENDIF\n       ENDIF\n    ENDDO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE DO_COMPLETE_REEVAP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: do_washout_at_sfc\n!\n! !DESCRIPTION: Subroutine DO\\_WASHOUT\\_AT\\_SFC washes out the species\n!  at the surface.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DO_WASHOUT_AT_SFC( LS,        I,          J,                    &\n                                L,         IDX,        ERRMSG,               &\n                                QDOWN,     F,          DT,                   &\n                                DSpc,      errPrint,   Input_Opt,            &\n                                State_Chm, State_Diag, State_Grid,           &\n                                State_Met, RC                               )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,      ONLY : IT_IS_NAN             ! Test for NaN\n    USE GET_NDEP_MOD,   ONLY : SOIL_WETDEP           ! Wet deposited species\n    USE Input_Opt_Mod,  ONLY : OptInput              ! Input options\n    USE Species_Mod,    ONLY : SpcConc               ! Species conc pointer array\n    USE State_Chm_Mod,  ONLY : ChmState              ! Chm State object\n    USE State_Diag_Mod, ONLY : DgnState              ! Diagnostic State object\n    USE State_Grid_Mod, ONLY : GrdState              ! Grid State object\n    USE State_Met_Mod,  ONLY : MetState              ! Met State object\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)    :: LS            ! =T denotes LS precip\n    INTEGER,          INTENT(IN)    :: I             ! Longitude index\n    INTEGER,          INTENT(IN)    :: J             ! Latitude index\n    INTEGER,          INTENT(IN)    :: L             ! Level index\n    INTEGER,          INTENT(IN)    :: IDX           ! ND38 index\n    CHARACTER(LEN=*), INTENT(IN)    :: ERRMSG        ! Error message\n    REAL(fp),         INTENT(IN)    :: QDOWN         ! Precip leaving thru\n                                                     !  bottom of box (I,J,L)\n    REAL(fp),         INTENT(IN)    :: F             ! Fraction of grid box\n                                                     !  undergoing precip\n    REAL(fp),         INTENT(IN)    :: DT            ! Rainout timestep [s]\n    LOGICAL,          INTENT(IN)    :: errPrint      ! Print error message?\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt     ! Input options\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid    ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met     ! Met State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),         INTENT(INOUT) :: DSpc(:,:,:,:) ! Accumulator array\n                                                     ! [kg/m2]\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm     ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag    ! Diags State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC            ! Success or failure?\n!\n! !REMARKS:\n!  Assume all of the species precipitating down from grid box (I,J,L=2) to\n!  grid box (I,J,L=1) gets washed out in grid box (I,J,L=1).\n!\n! !REVISION HISTORY:\n!  16 Sep 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: KIN\n    INTEGER            :: N,        NW,      S\n    REAL(fp)           :: WASHFRAC, WETLOSS, TMP, TK\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrorMsg, ThisLoc\n\n    ! Pointers\n    TYPE(SpcConc), POINTER  :: Spc(:)\n\n    !=======================================================================\n    ! DO_WASHOUT_AT_SFC begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrorMsg  = ''\n    ThisLoc   = ' -> at Do_Washout_at_Sfc (in module GeosCore/wetscav_mod.F90)'\n\n    ! Point to the chemical species array [kg/m2]\n    Spc => State_Chm%Species\n\n    !-----------------------------------------------------------------------\n    ! HISTORY (aka netCDF diagnostics)\n    !\n    ! Archive the fraction of the box that is undergoing large-scale\n    ! precipitation (PrecipFracLs).  This includes contributions\n    ! from both rainout and washout.  Here we add the contribution\n    ! from washout.\n    !\n    ! NOTE: We always assume large-scale precipitation, because\n    ! the LS flag is always set to TRUE in the calling routine\n    ! for both GEOS-FP and MERRA-2 meteorology.\n    !-----------------------------------------------------------------------\n\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###    ! NOTE: This diagnostic may need some work\n!###    ! Units: [1]\n!###    IF ( State_Diag%Archive_PrecipFracLS ) THEN\n!###       State_Diag%PrecipFracLS(I,J,L) = State_Diag%PrecipFracLS(I,J,L) + F\n!###    ENDIF\n\n    ! air temperature [K]\n    TK = State_Met%T(I,J,L)\n\n    !-----------------------------------------------------------------------\n    ! Loop over all wet deposition species\n    !-----------------------------------------------------------------------\n    DO NW = 1, State_Chm%nWetDep\n\n       ! Get species ID from wetdep ID\n       N = State_Chm%Map_WetDep(NW)\n\n       ! Call WASHOUT to compute the fraction of species\n       ! in grid box (I,J,L) that is lost to washout.\n       CALL WASHOUT(                                                         &\n            ! --- Input ---\n            I          = I,                                                  & \n            J          = J,                                                  & \n            L          = L,                                                  &\n            N          = N,                                                  &\n            BXHEIGHT   = State_Met%BXHEIGHT(I,J,L),                          &\n            TK         = TK,                                                 &\n            PP         = QDOWN,                                              &\n            DT         = DT,                                                 &\n            F          = F,                                                  &\n            Input_Opt  = Input_Opt,                                          &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n#ifdef LUO_WETDEP\n            pHRain     = State_Chm%pHRain(I,J,L),                            &\n#endif\n#ifdef TOMAS\n            fromWetDep = .TRUE.,                                             &\n#endif\n            ! --- Input/Output ---\n            State_Chm  = State_Chm,                                          &\n            H2O2s      = State_Chm%H2O2AfterChem(I,J,L),                     &\n            SO2s       = State_Chm%SO2AfterChem(I,J,L),                      &\n            ! --- Output ---\n            WASHFRAC   = WASHFRAC,                                           &\n            KIN        = KIN,                                                &\n            RC         = RC                                                 )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          IF ( errPrint ) THEN\n             ErrorMsg = 'Error encountered in \"Washout\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n          ENDIF\n          Spc => NULL()\n          RETURN\n       ENDIF\n\n       ! NOTE: for HNO3 and aerosols, there is an F factor\n       ! already present in WASHFRAC.  For other soluble\n       ! gases, we need to multiply by the F (hyl, bmy, 10/27/00)\n       IF ( KIN ) THEN\n          WETLOSS = Spc(N)%Conc(I,J,L) * WASHFRAC\n       ELSE\n          WETLOSS = Spc(N)%Conc(I,J,L) * WASHFRAC * F\n       ENDIF\n\n       ! Subtract WETLOSS from Spc [kg/m2]\n       Spc(N)%Conc(I,J,L) = Spc(N)%Conc(I,J,L) - WETLOSS\n\n       ! Add washout losses in grid box (I,J,L=1) to DSpc [kg/m2]\n       ! (added cdh, 4/14/2009)\n       DSpc(NW,L,I,J) = DSpc(NW,L+1,I,J) + WETLOSS\n\n       !--------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive the fraction of soluble species lost to washout\n       ! in large-scale precipitation (WashFracLS)\n       !--------------------------------------------------------------\n!### Comment out this diagnostic for now (bmy, 6/2/20)\n!###       IF ( State_Diag%Archive_WashFracLS ) THEN\n!###\n!###          ! Only divide WASHFRAC by F for aerosols, since\n!###          ! for non-aerosols this is already accounted for\n!###          IF ( KIN ) THEN\n!###             Tmp = WashFrac / F\n!###          ELSE\n!###             TMP = WashFrac\n!###          ENDIF\n!###\n!###          ! Units: [1]\n!###          State_Diag%WashFracLS(I,J,L,NW) = Tmp\n!###       ENDIF\n\n       !--------------------------------------------------------------\n       ! HISTORY (aka netCDF diagnostics)\n       !\n       ! Archive the amount of soluble species lost to large-scale\n       ! precipitation (WetLossLS).  This includes contributions\n       ! from rainout, washout, and reevaporation.  Here we add the\n       ! component from washout.\n       !--------------------------------------------------------------\n\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_WetLossLS ) THEN\n          S = State_Diag%Map_WetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%WetLossLS(I,J,L,S) =                                 &\n             State_Diag%WetLossLS(I,J,L,S) + ( WetLoss / DT )                &\n                                           * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n       ! Satellite diagnostic collection\n       ! Units: [kg/s], but eventually consider changing to [kg/m2/s]\n       IF ( State_Diag%Archive_SatDiagnWetLossLS ) THEN\n          S = State_Diag%Map_SatDiagnWetLossLS%id2slot(NW)\n          IF ( S > 0 ) THEN\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) =                         &\n             State_Diag%SatDiagnWetLossLS(I,J,L,S) + ( WetLoss / DT )        &\n                                                   * State_Grid%Area_M2(I,J)\n          ENDIF\n       ENDIF\n\n\n       ! Archive wet loss in kg/m2/s\n       IF ( LSOILNOX ) THEN\n          CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm )\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Dirty kludge to prevent wet deposition from removing\n       ! stuff from stratospheric boxes -- this can cause\n       ! negative species (rvm, bmy, 6/21/00)\n       !\n       IF ( Spc(N)%Conc(I,J,L) < 0e+0_fp .and. L > 23 ) THEN\n          WRITE ( 6, 101 ) I, J, L, N, 7\n101       FORMAT( 'WETDEP - Spc < 0 at ', 3i4, &\n                  ' for species ', i4, 'in area ', i4 )\n          PRINT*, 'Spc:', Spc(N)%Conc(I,J,:)\n          Spc(N)%Conc(I,J,L) = 0e+0_fp\n       ENDIF\n       !--------------------------------------------------------------------\n\n       !--------------------------------------------------------------------\n       ! Error checks\n       !--------------------------------------------------------------------\n       IF ( IT_IS_NAN( Spc(N)%Conc(I,J,L) )   .or. &\n            Spc(N)%Conc(I,J,L)   < 0e+0_fp        .or. &\n            DSpc(NW,L,I,J) < 0e+0_fp      ) THEN\n\n          !PRINT*, 'WASHFRAC = ', WASHFRAC\n          !PRINT*, 'F        = ', F\n\n          ! Print error message and stop simulaton\n          IF ( errPrint ) THEN\n             CALL SAFETY( I, J, L, N, ERRMSG,                                &\n                          LS          = LS,                                  &\n                          PDOWN       = 0e+0_fp,                             &\n                          QQ          = 0e+0_fp,                             &\n                          ALPHA       = 0e+0_fp,                             &\n                          ALPHA2      = 0e+0_fp,                             &\n                          RAINFRAC    = 0e+0_fp,                             &\n                          WASHFRAC    = 0e+0_fp,                             &\n                          MASS_WASH   = 0e+0_fp,                             &\n                          MASS_NOWASH = 0e+0_fp,                             &\n                          WETLOSS     = WETLOSS,                             &\n                          GAINED      = 0e+0_fp,                             &\n                          LOST        = 0e+0_fp,                             &\n                          State_Grid  = State_Grid,                          &\n                          DSpc        = DSpc(NW,:,I,J),                      &\n                          Spc         = Spc(N)%Conc(I,J,:),                  &\n                          RC          = RC                                  )\n          ENDIF\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             IF ( errPrint ) THEN\n                ErrorMsg = 'Error encountered in \"Safety\"!'\n                CALL GC_Error( ErrorMsg, RC, ThisLoc )\n             ENDIF\n             Spc => NULL()\n             RETURN\n          ENDIF\n       ENDIF\n    ENDDO\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE DO_WASHOUT_AT_SFC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: safety\n!\n! !DESCRIPTION: Subroutine SAFETY stops the run with debug output and an\n!  error message if negative species are found.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SAFETY( I,         J,           L,        N,                    &\n                     A,         LS,          PDOWN,    QQ,                   &\n                     ALPHA,     ALPHA2,      RAINFRAC, WASHFRAC,             &\n                     MASS_WASH, MASS_NOWASH, WETLOSS,  GAINED,               &\n                     LOST,      State_Grid,  DSpc,     Spc,                  &\n                     RC                                                     )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)  :: LS            !\n    INTEGER,          INTENT(IN)  :: I             !\n    INTEGER,          INTENT(IN)  :: J             !\n    INTEGER,          INTENT(IN)  :: L             !\n    INTEGER,          INTENT(IN)  :: N             !\n    CHARACTER(LEN=*), INTENT(IN)  :: A             !\n    REAL(fp),         INTENT(IN)  :: PDOWN         !\n    REAL(fp),         INTENT(IN)  :: QQ            !\n    REAL(fp),         INTENT(IN)  :: ALPHA         !\n    REAL(fp),         INTENT(IN)  :: ALPHA2        !\n    REAL(fp),         INTENT(IN)  :: RAINFRAC      !\n    REAL(fp),         INTENT(IN)  :: WASHFRAC      !\n    REAL(fp),         INTENT(IN)  :: MASS_WASH     !\n    REAL(fp),         INTENT(IN)  :: MASS_NOWASH   !\n    REAL(fp),         INTENT(IN)  :: WETLOSS       !\n    REAL(fp),         INTENT(IN)  :: GAINED        !\n    REAL(fp),         INTENT(IN)  :: LOST          !\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid    ! Grid State object\n    REAL(fp),         INTENT(IN)  :: DSpc(State_Grid%NZ)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(fp),         INTENT(INOUT) :: Spc(State_Grid%NZ)\n!\n! ! OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  18 Mar 2004 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n   \n    !======================================================================\n    ! SAFETY begins here!\n    !======================================================================\n\n    ! TL Added: 9/29/25: Start WetDep-Safety-Update \n    ! TL Added: 9/29/25: Following suggestion by yantosca (https://github.com/geoschem/geos-chem/issues/501)\n    ! TL Added: 2/9/26: Removed Print and Flush Statements and BAD following comment by yantosca (https://github.com/geoschem/geos-chem/pull/3164/changes)\n    \n    \n    ! TL Added: 9/29/25: WetDep-Safety-Update\n    IF ( MINVAL(Spc) < 0.0_fp ) THEN\n       !TL Added: 2/9/26: Wrapped Print in OMP CRITICAL following comment by yantosca (https://github.com/geoschem/geos-chem/pull/3164/changes)\n       !$OMP CRITICAL\n       PRINT*, 'Species', N, 'has a negative value',  &\n                  'at ', I, J, L, 'set to zero'\n       !$OMP END CRITICAL\n    ENDIF\n\n    WHERE ( Spc < 0.0_fp )\n       ! Fix The Negative\n       Spc = 0.0_fp\n    ENDWHERE\n    !TL Added: 9/29/25: End WetDep-Safety-Update\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = 'Error encountered in wet deposition!'\n    ThisLoc = ' -> at SAFETY (in module GeosCore/wetscav_mod.F90)'\n\n    ! Print line\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    ! Write error message and stop the run\n    WRITE ( 6, 100 ) I, J, L, N, TRIM( A )\n100 FORMAT( 'WETDEP: ERROR at ', 3i4, ' for species ', i4, ' in area ', a )\n\n    PRINT*, 'LS          : ', LS\n    PRINT*, 'PDOWN       : ', PDOWN\n    PRINT*, 'QQ          : ', QQ\n    PRINT*, 'ALPHA       : ', ALPHA\n    PRINT*, 'ALPHA2      : ', ALPHA2\n    PRINT*, 'RAINFRAC    : ', RAINFRAC\n    PRINT*, 'WASHFRAC    : ', WASHFRAC\n    PRINT*, 'MASS_WASH   : ', MASS_WASH\n    PRINT*, 'MASS_NOWASH : ', MASS_NOWASH\n    PRINT*, 'WETLOSS     : ', WETLOSS\n    PRINT*, 'GAINED      : ', GAINED\n    PRINT*, 'LOST        : ', LOST\n    PRINT*, 'DSpc(NW,:)  : ', DSpc(:)\n    PRINT*, 'Spc(I,J,:N) : ', Spc(:)\n\n    ! Print line\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    ! Return with error\n    CALL GC_Error( ErrMsg, RC, ThisLoc )\n\n  END SUBROUTINE SAFETY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_vud\n!\n! !DESCRIPTION: Function GET\\_VUD returns the vertical updraft velocity in\n!  m/s at location I, J, L.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_VUD( State_Met, Input_Opt, I, J, L ) RESULT( VUD )\n!\n! !USES:\n!\n    USE State_Met_Mod,      ONLY : MetState\n    USE Input_Opt_Mod,      ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meteorology State object\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n    INTEGER,        INTENT(IN) :: I, J, L     ! Location\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                   :: VUD    ! Vertical updraft velocity in m/s.\n!\n! !REVISION HISTORY:\n!  12 Feb 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL :: VUD_DEFINED\n\n    !=================================================================\n    ! GET_VUD begins here!\n    !=================================================================\n\n    ! Init\n    VUD_DEFINED = .FALSE.\n\n    !=================================================================\n    ! Use vertical updraft velocity from State_Met\n    ! Convert hPa/s to m/s here\n    !=================================================================\n#ifdef MODEL_GEOS\n    IF ( Input_Opt%UseOnlineVUD ) THEN\n       IF ( ASSOCIATED( State_Met%UPDVVEL ) ) THEN\n          IF ( State_Met%DELP(I,J,L)    > TINY_FP .AND. &\n               State_Met%UPDVVEL(I,J,L) > 0.0_fp       ) THEN\n\n             ! Compute VUD\n             VUD = State_Met%UPDVVEL (I,J,L) * State_Met%BXHEIGHT(I,J,L) / &\n                   State_Met%DELP    (I,J,L)\n\n             ! VUD is now defined\n             VUD_DEFINED = .TRUE.\n          ENDIF\n       ENDIF\n    ENDIF\n#else\n    IF ( ASSOCIATED( State_Met%UPDVVEL ) ) THEN\n       IF ( State_Met%DELP(I,J,L)    > TINY_FP .AND. &\n            State_Met%UPDVVEL(I,J,L) > 0.0_fp       ) THEN\n\n          ! Compute VUD\n          VUD = State_Met%UPDVVEL (I,J,L) * State_Met%BXHEIGHT(I,J,L) / &\n                State_Met%DELP    (I,J,L)\n\n          ! VUD is now defined\n          VUD_DEFINED = .TRUE.\n       ENDIF\n    ENDIF\n#endif\n\n    !=================================================================\n    ! Traditional GEOS-Chem:\n    ! Compute Vud -- 5 m/s over oceans, 10 m/s over land (or ice?)\n    ! Assume Vud is the same at all altitudes; the array can be 2-D\n    !=================================================================\n    IF ( .NOT. VUD_DEFINED ) THEN\n       IF ( State_Met%IsWater(I,J) ) THEN\n          VUD = 5e+0_fp\n       ELSE\n          VUD = 10e+0_fp\n       ENDIF\n    ENDIF\n\n  END FUNCTION GET_VUD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_f\n!\n! !DESCRIPTION: Function GET\\_F returns the scavenged fraction at location\n! I, J, L and for the given rate constant K.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_F( Input_Opt, State_Met, I, J, L, K ) RESULT( F )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt  ! Input Options object\n    TYPE(MetState), INTENT(IN) :: State_Met  ! Meteorology State object\n    INTEGER,        INTENT(IN) :: I, J, L    ! Lon, lat, level indices\n    REAL(fp),       INTENT(IN) :: K          ! Rate constant\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                   :: F          ! Fraction of species scavenged\n                                             !  out of the updraft [1]\n!\n! !REVISION HISTORY:\n!  12 Feb 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)    :: TMP, VUD\n\n    !=================================================================\n    ! GET_F begins here!\n    !=================================================================\n\n    ! Distance between grid box centers [m]\n    TMP = 0.5_fp * ( State_Met%BXHEIGHT(I,J,L-1) + State_Met%BXHEIGHT(I,J,L) )\n\n    ! Vertical updraft velocity [m/s]\n    Vud = GET_VUD( State_Met, Input_Opt, I, J, L )\n\n    ! Compute F (avoid div-by-zero errors)\n    IF ( Vud > TINY_FP ) THEN\n       F = 1.0_fp - EXP( -K * TMP / Vud )\n    ELSE\n       F = 0.0_fp\n  ENDIF\n\n  END FUNCTION GET_F\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: init_wetscav\n!\n! !DESCRIPTION: Subroutine INIT\\_WETSCAV initializes updraft velocity, cloud\n!  liquid water content, cloud ice content, and mixing ratio of water fields,\n!  which are used in the wet scavenging routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_WETSCAV( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Chm_Mod,  ONLY : Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(IN)  :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  03 Sep 2015 - R. Yantosca - Split off from the old INIT_WETSCAV\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N, N_WD\n    LOGICAL, SAVE          :: FIRST = .TRUE.\n\n    ! Strings\n    CHARACTER(LEN=9)       :: K0,  CR,  pKA\n    CHARACTER(LEN=80)      :: LINE\n\n    ! Pointers\n    TYPE(Species), POINTER :: SpcInfo\n\n    !=================================================================\n    ! INIT_WETSCAV begins here!\n    !=================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n\n    ! Exit if this is a GEOS-Chem dryrun\n    IF ( Input_Opt%DryRun ) RETURN\n\n    ! Exit if we have already executed this routine\n    IF ( .not. FIRST ) RETURN\n\n    ! Initialize\n    SpcInfo  => NULL()\n\n    ! Define species ID flags\n    id_NK01   = Ind_('NK01'  )\n    id_NH3    = Ind_('NH3'  )\n    id_SF01   = Ind_('SF01'  )\n    id_DUST01 = Ind_('DUST01')\n    id_SO2    = Ind_('SO2'  )\n    id_SO4    = Ind_('SO4'  )\n    id_H2O2   = Ind_('H2O2' )\n\n    !=================================================================\n    ! Print information about wet-depositing species\n    !=================================================================\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose                              &\n                           .and. State_Chm%nWetDep > 0 ) THEN\n\n       ! Title\n       LINE = 'INIT_WETSCAV: List of soluble species: '\n       WRITE( 6, '(/,a,/)' ) TRIM( LINE )\n\n       ! 1st line\n       LINE = '  #             Name  Species Mol Wt ' // &\n              ' Henry K0  Henry CR  Henry pKa'\n       WRITE( 6, '(a)'     ) TRIM( LINE )\n\n       ! 2nd line\n       LINE = 'ID    g/mol    M/atm      K         1'\n       WRITE( 6, '(24x,a)' ) TRIM( LINE )\n\n       ! Separator line\n       WRITE( 6, '(a)'     ) REPEAT( '-', 70 )\n\n       ! Loop over all wet-depositing species\n       DO N_WD = 1, State_Chm%nWetDep\n\n          ! Get the corresponding species ID\n          N = State_Chm%Map_WetDep(N_WD)\n\n          ! Get physical parameters from the species database object\n          SpcInfo => State_Chm%SpcData(N)%Info\n\n          ! Convert Henry's law K0 parameter to string\n          IF ( SpcInfo%Henry_K0 > 0.0_f8 ) THEN\n             WRITE( K0, '(es9.2)' ) SpcInfo%Henry_K0\n          ELSE\n             K0 = '    -    '\n          ENDIF\n\n          ! Convert Henry's law CR parameter to string\n          IF ( SpcInfo%Henry_K0 > 0.0_f8 ) THEN\n             WRITE( CR, '(es9.2)' ) SpcInfo%Henry_CR\n          ELSE\n             CR = '    -    '\n          ENDIF\n\n          ! Convert Henry's law pKa parameter to string\n          IF ( SpcInfo%Henry_pKa > 0.0_f8 ) THEN\n             WRITE( pKa, '(es9.2)' ) SpcInfo%Henry_pKa\n          ELSE\n             pKa = '    -    '\n          ENDIF\n\n          ! Write info to stdout\n          WRITE( 6, 100 ) N_WD, &\n                          TRIM( SpcInfo%Name ), &\n                          N, &\n                          SpcInfo%MW_g, &\n                          K0, CR, pKA\n100       FORMAT( i3,3x,a14,3x,i3,3x,f6.1,3(1x,a9) )\n\n          ! Free pointer\n          SpcInfo => NULL()\n\n       ENDDO\n    ENDIF\n\n    ! Reset flag\n    FIRST = .FALSE.\n\n  END SUBROUTINE INIT_WETSCAV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: setup_wetscav\n!\n! !DESCRIPTION: Subroutine SETUP\\_WETSCAV initializes updraft velocity, cloud\n!  liquid water content, cloud ice content, and mixing ratio of water fields,\n!  which are used in the wet scavenging routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SETUP_WETSCAV( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,          ONLY : Alloc_Err\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE PhysConstants,      ONLY : AIRMW\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    USE UnitConv_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  23 Feb 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL, SAVE     :: FIRST = .TRUE.\n    INTEGER           :: I, J, L\n\n    ! Pointers\n    REAL(fp), POINTER :: PL\n    REAL(fp), POINTER :: TK\n\n    !=====================================================================\n    ! Compute Vud, CLDLIQ, CLDICE, C_H2O, following Jacob et al, 2000.\n    !=====================================================================\n\n    ! Initialize\n    PL => NULL()\n    TK => NULL()\n    RC = GC_SUCCESS\n\n    ! Only do computation if wetdep or convection is turned on\n    IF ( Input_Opt%LWETD .or. Input_Opt%LCONV ) THEN\n\n       !$OMP PARALLEL DO               &\n       !$OMP DEFAULT( SHARED          )&\n       !$OMP PRIVATE( I, J, L, TK, PL )&\n       !$OMP COLLAPSE( 3              )&\n       !$OMP SCHEDULE( DYNAMIC, 24    )\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Point to Temp [K] and Pressure [hPa]\n          TK => State_Met%T(I,J,L)\n          PL => State_Met%PMID(I,J,L)\n\n#ifdef LUO_WETDEP\n          !--------------------------------------------------------------\n          ! Luo et al scheme:\n          ! Compute CLDLIQ directly from met fields\n          !--------------------------------------------------------------\n          IF ( TK >= 237.0_fp ) THEN\n             State_Met%CLDLIQ(I,J,L) = MAX(0.d0,State_Met%QL(I,J,L))*&\n                                       State_Met%AIRDEN(I,J,L) * 1e-3_fp\n          ELSE\n             State_Met%CLDLIQ(I,J,L) = 0.0_fp\n          ENDIF\n#else\n          !--------------------------------------------------------------\n          ! Default scheme:\n          ! CLDLIQ, the cloud liquid water content [cm3 H2O/cm3 air],\n          ! is a function of the local Kelvin temperature:\n          ! Tunable parameter and use 1e-6 here (qq,10/14/2011)\n          !    CLDLIQ = 1e-6                    [     T >= 268 K    ]\n          !    CLDLIQ = 1e-6 * ((T - 248) / 20) [ 248 K < T < 268 K ]\n          !    CLDLIQ = 0                       [     T <= 248 K    ]\n          !--------------------------------------------------------------\n          IF ( TK >= 268.0_fp ) THEN\n             State_Met%CLDLIQ(I,J,L) = 1e-6_fp\n\n          ELSE IF ( TK > 248.0_fp .and. TK < 268.0_fp ) THEN\n             State_Met%CLDLIQ(I,J,L) = 1e-6_fp * ((TK - 248.0_fp) / 20.0_fp )\n\n          ELSE\n             State_Met%CLDLIQ(I,J,L) = 0.0_fp\n\n          ENDIF\n#endif\n\n          State_Met%CLDLIQ(I,J,L) = MAX(State_Met%CLDLIQ(I,J,L),0.0_fp)\n\n#ifdef LUO_WETDEP\n          !--------------------------------------------------------------\n          ! Luo et al scheme:\n          ! ompute CLDICE from met fields\n          !--------------------------------------------------------------\n          State_Met%CLDICE(I,J,L) = (State_Met%QL(I,J,L)+State_Met%QI(I,J,L))* &\n                          State_Met%AIRDEN(I,J,L) * 1e-3_fp - State_Met%CLDLIQ(I,J,L)\n\n#else\n          !--------------------------------------------------------------\n          ! Default scheme:\n          ! CLDICE, the cloud ice content [cm3 ice/cm3 air] is given by:\n          !\n          !    CLDICE = 1.0e-6 - CLDLIQ\n          !--------------------------------------------------------------\n          State_Met%CLDICE(I,J,L) = 1e-6_fp - State_Met%CLDLIQ(I,J,L)\n#endif\n\n          ! Avoid negatives\n          State_Met%CLDICE(I,J,L) = MAX( State_Met%CLDICE(I,J,L), 0.0_fp )\n\n          !--------------------------------------------------------------\n          ! C_H2O is given by Dalton's Law as:\n          !\n          !       C_H2O = Eice( Tk(I,J,L) ) / P(I,J,L)\n          !\n          ! where P(L) = pressure in grid box (I,J,L)\n          !\n          ! and   Tk(I,J,L) is the Kelvin temp. of grid box (I,J,L).\n          !\n          ! and   Eice( Tk(I,J,L) ) is the saturation vapor pressure\n          !       of ice [hPa] at temperature Tk(I,J,L) -- computed in\n          !       routine E_ICE above.\n          !--------------------------------------------------------------\n          IF ( PL <= TINY_FP ) THEN\n             State_Met%C_H2O(I,J,L) = 0.0_fp\n          ELSE\n             State_Met%C_H2O(I,J,L) = E_ICE( TK ) / PL\n          ENDIF\n\n          ! Free pointers\n          PL => NULL()\n          TK => NULL()\n\n       ENDDO\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n    ENDIF\n\n    !====================================================================\n    ! We need to initialize the H2O2s and SO2s arrays to the values\n    ! of State_Chm%Species%Conc for H2O2 and SO2.  This only needs to be\n    ! done the first time this routine is called (which happens after\n    ! the restart file is read from disk). If State_Chm%H2O2AfterChem\n    ! or State_Chm%SO2AfterChem are already populated from the restart\n    ! restart file then do not overwrite. (ewl, 11/13/19)\n    !====================================================================\n    IF ( FIRST ) THEN\n\n       ! Set H2O2s to the initial H2O2 from the species array, so that we will\n       ! have nonzero values for the first call to COMPUTE_F (bmy, 1/14/03)\n       ! While State_Chm%Species%Conc are now in units of [kg/kg dry air] for\n       ! call to SETUP_WETSCAV, store H2O2s in legacy units [v/v dry air]\n       ! for now for use in sulfate_mod and WASHOUT (ewl, 10/15/15)\n       IF ( ( id_H2O2 > 0 ) .AND. &\n            ( SUM(State_Chm%H2O2AfterChem(:,:,:)) < 1e-31 ) ) THEN\n          State_Chm%H2O2AfterChem = State_Chm%Species(id_H2O2)%Conc &\n               * ( AIRMW / State_Chm%SpcData(id_H2O2)%Info%MW_g )\n       ENDIF\n\n       ! Set SO2s to the initial SO2 from the species array, so that we will\n       ! have nonzero values for the first call to COMPUTE_F (bmy, 1/14/03)\n       ! While State_Chm%Species%Conc are now in units of [kg/kg dry air] for\n       ! call to SETUP_WETSCAV, store SO2s in units [v/v dry air] for now\n       ! for use in sulfate_mod and WASHOUT (ewl, 10/15/15)\n       IF ( ( id_SO2 > 0 ) .AND. &\n            ( SUM(State_Chm%SO2AfterChem(:,:,:)) < 1e-31 ) ) THEN\n          State_Chm%SO2AfterChem = State_Chm%Species(id_SO2)%Conc &\n               * ( AIRMW / State_Chm%SpcData(id_SO2)%Info%MW_g )\n       ENDIF\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n    ENDIF\n\n  END SUBROUTINE SETUP_WETSCAV\n!EOC\nEND MODULE WETSCAV_MOD\n"
  },
  {
    "path": "GeosRad/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "GeosRad/CMakeLists.txt",
    "content": "add_library(GeosRad STATIC EXCLUDE_FROM_ALL\n\tmcica_random_numbers.F90\n\tmcica_subcol_gen_lw.F90\n\tmcica_subcol_gen_sw.F90\n\tparkind.F90\n\tparrrsw.F90\n\tparrrtm.F90\n\trrlw_cld.F90\n\trrlw_con.F90\n\trrlw_kg01.F90\n\trrlw_kg02.F90\n\trrlw_kg03.F90\n\trrlw_kg04.F90\n\trrlw_kg05.F90\n\trrlw_kg06.F90\n\trrlw_kg07.F90\n\trrlw_kg08.F90\n\trrlw_kg09.F90\n\trrlw_kg10.F90\n\trrlw_kg11.F90\n\trrlw_kg12.F90\n\trrlw_kg13.F90\n\trrlw_kg14.F90\n\trrlw_kg15.F90\n\trrlw_kg16.F90\n\trrlw_ncpar.F90\n\trrlw_ref.F90\n\trrlw_tbl.F90\n\trrlw_vsn.F90\n\trrlw_wvn.F90\n\trrsw_aer.F90\n\trrsw_cld.F90\n\trrsw_con.F90\n\trrsw_kg16.F90\n\trrsw_kg17.F90\n\trrsw_kg18.F90\n\trrsw_kg19.F90\n\trrsw_kg20.F90\n\trrsw_kg21.F90\n\trrsw_kg22.F90\n\trrsw_kg23.F90\n\trrsw_kg24.F90\n\trrsw_kg25.F90\n\trrsw_kg26.F90\n\trrsw_kg27.F90\n\trrsw_kg28.F90\n\trrsw_kg29.F90\n\trrsw_ref.F90\n\trrsw_tbl.F90\n\trrsw_vsn.F90\n\trrsw_wvn.F90\n\trrtmg_lw_cldprmc.F90\n\trrtmg_lw_init.F90\n\trrtmg_lw_k_g.F90\n\trrtmg_lw_rad.F90\n\trrtmg_lw_rtrnmc.F90\n\trrtmg_lw_setcoef.F90\n\trrtmg_lw_taumol.F90\n\trrtmg_sw_cldprmc.F90\n\trrtmg_sw_init.F90\n\trrtmg_sw_k_g.F90\n\trrtmg_sw_rad.F90\n\trrtmg_sw_reftra.F90\n\trrtmg_sw_setcoef.F90\n\trrtmg_sw_spcvmc.F90\n\trrtmg_sw_taumol.F90\n\trrtmg_sw_vrtqdr.F90\n\ttest_arr_mult.F90\n)\nif(NOT GC_EXTERNAL_CONFIG)\n        target_link_libraries(GeosRad\n\t\tPUBLIC GEOSChemBuildProperties\n\t)\nendif()\ntarget_compile_options(GeosRad \n\tPRIVATE \n\t\t$<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"Intel\">:-r8 -O1 -qoverride-limits>\n\t\t$<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"GNU\">:-fdefault-real-8 -fdefault-double-8 -O1 -override-limits -fno-range-check>\n)\n"
  },
  {
    "path": "GeosRad/Makefile.nomcica",
    "content": "#------------------------------------------------------------------------------\n#          Harvard University Atmospheric Chemistry Modeling Group            !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: Makefile (in the GeosRad/ subdirectory)\n#\n# !DESCRIPTION: This makefile compiles the RAD codes.  \n#  the MOD directory. \n#\\\\\n#\\\\\n# !REMARKS:\n# To build the programs, call \"make\" with the following syntax:\n#                                                                             .\n#   make TARGET [ OPTIONAL-FLAGS ]\n#                                                                             .\n# To display a complete list of options, type \"make help\".\n#                                                                             .\n# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n# %%% NOTE: Normally you will not have to call this Makefile directly,     %%%\n# %%% it will be called automatically from the Makefile in the directory   %%%\n# %%% just above this one!                                                 %%%\n# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#                                                                             .\n# Makefile uses the following variables:\n#                                                                             .\n# Variable   Description\n# --------   -----------\n# SHELL      Specifies the shell for \"make\" to use (usually SHELL=/bin/sh)\n# ROOTDIR    Specifies the root-level directory of the GEOS-Chem code\n# HDR        Specifies the directory where GEOS-Chem include files are found\n# LIB        Specifies the directory where library files (*.a) are stored\n# MOD        Specifies the directory where module files (*.mod) are stored\n# AR         Sys var w/ name of library creator program (i.e., \"ar\", \"ranlib\")\n# MAKE       Sys var w/ name of Make command (i.e, \"make\" or \"gmake\")\n# R8         Interprets REAL as REAL*8\n#\n# !REVISION HISTORY: \n#  08 Aug 2012 - K. Cady-Pereira - Initial version\n#  22 Aug 2012 - R. Yantosca     - Fixed typo in depend list for rrsw_kg24.o\n#  22 Aug 2012 - R. Yantosca     - Added white space for readability\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Define variables \nSHELL   = /bin/sh\nROOTDIR = ..\nHDR     = $(ROOTDIR)/Headers\nHELP    = $(ROOTDIR)/help\nLIB     = $(ROOTDIR)/lib\nMOD     = $(ROOTDIR)/mod\nGEOSDIR = $(ROOTDIR)/GeosCore\n\n# Sometimes we may need to compile RRTMG with a lower optimization setting,\n# so use the OPT variable if necessary\nOPT     = -O1 -override-limits\n\n# Include header file.  This returns variables CC, F90, FREEFORM, LD, R8,\n# as well as the default Makefile compilation rules for source code files.\ninclude $(ROOTDIR)/Makefile_header.mk\n\n#=============================================================================\n# List of files to compile (the order is important!).  We specify these as\n# a list of object files (*.o).  For each object file, the \"make\" utility\n# will find the corresponding source code file (*.F) and compile it. \n#=============================================================================\n\n# List of source files\nSRC = $(wildcard *.f90)\n\n# Replace .F and .F90 extensions with *.o\nOBJ = $(SRC:.f90=.o)\n\n#=============================================================================\n# Makefile targets: type \"make help\" for a complete listing!\n#=============================================================================\n\n.PHONY: clean help\n\nlib: $(OBJ)\n\t$(AR) crs librad.a $(OBJ)\n\tmv librad.a $(LIB)\n\nclean:\n\trm -f *.o *.mod\n\nhelp:\n\t@$(MAKE) -c $(HELP)\n\ndebug:\n\t@echo \"Obj:    $(OBJ)\"\n\t@echo \"Mod:    $(MOD)\"\n\t@echo \"FFLAGS: $(FFLAGS)\"\n\t@echo \"F90     $(F90)\"\n\n#=============================================================================\n# Dependencies listing (grep \"USE \" to get the list of module references!)\n#\n# From this list of dependencies, the \"make\" utility will figure out the\n# correct order of compilation (so we don't have to do that ourselves!)\n#=============================================================================\n\n\nparkind.o                : parkind.f90 \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nparrrtm.o                : parrrtm.f90             parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrad_driver.o             : rad_driver.f90                                    \\\n                           parkind.o               parrrtm.o                 \\\n                           parrrsw.o               rrlw_con.o                \\\n                           rrtmg_lw_rad.nomcica.o  rrtmg_sw_rad.nomcica.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_cld.o               : rrlw_cld.f90            parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_con.o               : rrlw_con.f90            parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg01.o              : rrlw_kg01.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg02.o              : rrlw_kg02.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg03.o              : rrlw_kg03.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg04.o              : rrlw_kg04.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg05.o               : rrlw_kg05.f90          parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg06.o               : rrlw_kg06.f90          parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg07.o               : rrlw_kg07.f90          parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg08.o              : rrlw_kg08.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg09.o              : rrlw_kg09.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg10.o              : rrlw_kg10.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg11.o              : rrlw_kg11.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg12.o              : rrlw_kg12.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg13.o              : rrlw_kg13.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg14.o              : rrlw_kg14.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg15.o              : rrlw_kg15.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_kg16.o              : rrlw_kg16.f90           parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_ncpar.o             : rrlw_ncpar.f90          parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\nrrlw_ref.o               : rrlw_ref.f90            parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_tbl.o               : rrlw_tbl.f90            parkind.o \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_vsn.o               : rrlw_vsn.f90 \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrlw_wvn.o               : rrlw_wvn.f90                                      \\\n                           parkind.o               parrrtm.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_cldprop.o       : rrtmg_lw_cldprop.f90                              \\\n                           parkind.o               parrrtm.o                 \\\n                           rrlw_cld.o              rrlw_vsn.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_init.o          : rrtmg_lw_init.f90                                 \\\n                           parkind.o               parrrtm.o                 \\\n                           rrlw_cld.o              rrlw_vsn.o                \\\n                           rrlw_wvn.o              rrlw_tbl.o                \\\n                           rrlw_con.o              rrtmg_lw_setcoef.o        \\\n                           rrlw_kg01.o             rrlw_kg02.o               \\\n                           rrlw_kg03.o             rrlw_kg04.o               \\\n                           rrlw_kg05.o             rrlw_kg06.o               \\\n                           rrlw_kg07.o             rrlw_kg08.o               \\\n                           rrlw_kg09.o             rrlw_kg10.o               \\\n                           rrlw_kg11.o             rrlw_kg12.o               \\\n                           rrlw_kg13.o             rrlw_kg14.o               \\\n                           rrlw_kg15.o             rrlw_kg16.o  \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_k_g.o           : rrtmg_lw_k_g.f90                                  \\\n                           parkind.o               rrlw_vsn.o                \\\n                           rrlw_kg01.o             rrlw_kg02.o               \\\n                           rrlw_kg03.o             rrlw_kg04.o               \\\n                           rrlw_kg05.o             rrlw_kg06.o               \\\n                           rrlw_kg07.o             rrlw_kg08.o               \\\n                           rrlw_kg05.o             rrlw_kg06.o               \\\n                           rrlw_kg07.o             rrlw_kg08.o               \\\n                           rrlw_kg09.o             rrlw_kg10.o               \\\n                           rrlw_kg11.o             rrlw_kg12.o               \\\n                           rrlw_kg13.o             rrlw_kg14.o               \\\n                           rrlw_kg15.o             rrlw_kg16.o   \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_rad.nomcica.o   : rrtmg_lw_rad.nomcica.f90                          \\\n                           parkind.o               parrrtm.o                 \\\n                           rrlw_cld.o              rrlw_vsn.o                \\\n                           rrlw_wvn.o              rrlw_tbl.o                \\\n                           rrlw_con.o              rrtmg_lw_setcoef.o        \\\n                           rrtmg_lw_taumol.o       rrtmg_lw_rtrn.o           \\\n                           rrtmg_lw_rtrnmr.o       rrlw_wvn.o                \\\n                           rrlw_tbl.o              rrtmg_lw_cldprop.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_rtrn.o          : rrtmg_lw_rtrn.f90                                 \\\n                           parkind.o               parrrtm.o                 \\\n                           rrlw_vsn.o              rrlw_wvn.o                \\\n                           rrlw_tbl.o              rrlw_con.o   \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_rtrnmr.o        : rrtmg_lw_rtrnmr.f90                               \\\n                           parkind.o               parrrtm.o                 \\\n                           rrlw_vsn.o              rrlw_wvn.o                \\\n                           rrlw_tbl.o              rrlw_con.o   \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_setcoef.o       : rrtmg_lw_setcoef.f90                              \\\n                           parkind.o               parrrtm.o                 \\\n                           rrlw_vsn.o              rrlw_wvn.o                \\\n                           rrlw_ref.o     \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_lw_taumol.o        : rrtmg_lw_taumol.f90                               \\\n                           parkind.o               rrlw_vsn.o                \\\n                           rrlw_vsn.o              rrlw_wvn.o                \\\n                           rrlw_con.o              rrlw_ref.o                \\\n                           rrlw_kg01.o             rrlw_kg02.o               \\\n                           rrlw_kg03.o             rrlw_kg04.o               \\\n                           rrlw_kg05.o             rrlw_kg06.o               \\\n                           rrlw_kg07.o             rrlw_kg08.o               \\\n                           rrlw_kg09.o             rrlw_kg10.o               \\\n                           rrlw_kg11.o             rrlw_kg12.o               \\\n                           rrlw_kg13.o             rrlw_kg14.o               \\\n                           rrlw_kg15.o             rrlw_kg16.o  \n\t$(F90) $(R8) -c $(OPT) $<\n\n\nparrrsw.o                : parrrsw.f90             parkind.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_aer.o               : rrsw_aer.f90                                      \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_cld.o               : rrsw_cld.f90            parkind.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\n\nrrsw_con.o               : rrsw_con.f90            parkind.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg16.o              : rrsw_kg16.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg17.o              : rrsw_kg17.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg18.o              : rrsw_kg18.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg19.o              : rrsw_kg19.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg20.o              : rrsw_kg20.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg21.o              : rrsw_kg21.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg22.o              : rrsw_kg22.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg23.o              : rrsw_kg23.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg24.o              : rrsw_kg24.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg25.o              : rrsw_kg25.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg26.o              : rrsw_kg26.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg27.o              : rrsw_kg27.f90           parkind.o                 \\\n                           parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg28.o              : rrsw_kg28.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_kg29.o              : rrsw_kg29.f90                                     \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_ref.o               : rrsw_ref.f90            parkind.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_tbl.o               : rrsw_tbl.f90            parkind.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_vsn.o               : rrsw_vsn.f90\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrsw_wvn.o               : rrsw_wvn.f90                                      \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_cldprop.o       : rrtmg_sw_cldprop.f90                              \\\n                           parkind.o               parrrsw.o                 \\\n                           rrsw_cld.o              rrsw_wvn.o                \\\n                           rrsw_vsn.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_init.o          : rrtmg_sw_init.f90                                 \\\n                           parkind.o               parrrsw.o                 \\\n                           rrsw_cld.o              rrsw_wvn.o                \\\n                           rrsw_vsn.o              rrsw_tbl.o                \\\n                           rrsw_con.o              rrsw_aer.o                \\\n                           rrsw_con.o              rrtmg_sw_setcoef.o        \\\n                           rrsw_kg16.o             rrsw_kg17.o               \\\n                           rrsw_kg18.o             rrsw_kg19.o               \\\n                           rrsw_kg20.o             rrsw_kg21.o               \\\n                           rrsw_kg22.o             rrsw_kg23.o               \\\n                           rrsw_kg24.o             rrsw_kg25.o               \\\n                           rrsw_kg26.o             rrsw_kg27.o               \\\n                           rrsw_kg28.o             rrsw_kg29.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_k_g.o           : rrtmg_sw_k_g.f90                                  \\\n                           parkind.o               rrsw_kg16.o               \\\n                           rrsw_kg17.o             rrsw_kg18.o               \\\n                           rrsw_kg19.o             rrsw_kg20.o               \\\n                           rrsw_kg21.o             rrsw_kg22.o               \\\n                           rrsw_kg23.o             rrsw_kg24.o               \\\n                           rrsw_kg25.o             rrsw_kg26.o               \\\n                           rrsw_kg27.o             rrsw_kg28.o               \\\n                           rrsw_kg29.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_rad.nomcica.o   : rrtmg_sw_rad.nomcica.f90                          \\\n                           parkind.o               parrrsw.o                 \\\n                           rrsw_wvn.o              rrsw_vsn.o                \\\n                           rrsw_con.o              rrsw_aer.o                \\\n                           rrsw_con.o              rrtmg_sw_cldprop.o        \\\n                           rrtmg_sw_init.o         rrtmg_sw_setcoef.o        \\\n                           rrtmg_sw_spcvrt.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_reftra.o        : rrtmg_sw_reftra.f90                               \\\n                           parkind.o               rrsw_vsn.o                \\\n                           rrsw_tbl.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_setcoef.o       : rrtmg_sw_setcoef.f90                              \\\n                           parkind.o               rrsw_vsn.o                \\\n                           rrsw_tbl.o              parrrsw.o                 \\\n                           rrsw_ref.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_spcvrt.o        : rrtmg_sw_spcvrt.f90                               \\\n                           parkind.o               parrrsw.o                 \\\n                           rrsw_wvn.o              rrsw_vsn.o                \\\n                           rrsw_tbl.o              rrtmg_sw_reftra.o         \\\n                           rrtmg_sw_taumol.o       rrtmg_sw_vrtqdr.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_taumol.o        : rrtmg_sw_taumol.f90                               \\\n                           parkind.o               parrrsw.o                 \\\n                           rrsw_con.o              rrsw_wvn.o                \\\n                           rrsw_vsn.o              rrsw_kg16.o               \\\n                           rrsw_kg17.o             rrsw_kg18.o  \t     \\\n                           rrsw_kg19.o             rrsw_kg20.o   \t     \\\n                           rrsw_kg21.o             rrsw_kg22.o  \t     \\\n                           rrsw_kg23.o             rrsw_kg24.o   \t     \\\n                           rrsw_kg25.o             rrsw_kg26.o  \t     \\\n                           rrsw_kg27.o             rrsw_kg28.o               \\\n                           rrsw_kg29.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\nrrtmg_sw_vrtqdr.o        : rrtmg_sw_vrtqdr.f90                               \\\n                           parkind.o               parrrsw.o\n\t$(F90) $(R8) -c $(OPT) $<\n\n\n#EOC\n"
  },
  {
    "path": "GeosRad/mcica_random_numbers.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/mcica_random_numbers.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.3 $\n!     created:   $Date: 2008/08/29 16:04:15 $\n!\n\n! Fortran-95 implementation of the Mersenne Twister 19937, following \n!   the C implementation described below (code mt19937ar-cok.c, dated 2002/2/10), \n!   adapted cosmetically by making the names more general.  \n! Users must declare one or more variables of type randomNumberSequence in the calling \n!   procedure which are then initialized using a required seed. If the \n!   variable is not initialized the random numbers will all be 0. \n! For example: \n! program testRandoms \n!   use RandomNumbers\n!   type(randomNumberSequence) :: randomNumbers\n!   integer                    :: i\n!   \n!   randomNumbers = new_RandomNumberSequence(seed = 100)\n!   do i = 1, 10\n!     print ('(f12.10, 2x)'), getRandomReal(randomNumbers)\n!   end do\n! end program testRandoms\n! \n! Fortran-95 implementation by \n!   Robert Pincus\n!   NOAA-CIRES Climate Diagnostics Center\n!   Boulder, CO 80305 \n!   email: Robert.Pincus@colorado.edu\n!\n! This documentation in the original C program reads:\n! -------------------------------------------------------------\n!    A C-program for MT19937, with initialization improved 2002/2/10.\n!    Coded by Takuji Nishimura and Makoto Matsumoto.\n!    This is a faster version by taking Shawn Cokus's optimization,\n!    Matthe Bellew's simplification, Isaku Wada's real version.\n! \n!    Before using, initialize the state by using init_genrand(seed) \n!    or init_by_array(init_key, key_length).\n! \n!    Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura,\n!    All rights reserved.                          \n! \n!    Redistribution and use in source and binary forms, with or without\n!    modification, are permitted provided that the following conditions\n!    are met:\n! \n!      1. Redistributions of source code must retain the above copyright\n!         notice, this list of conditions and the following disclaimer.\n! \n!      2. Redistributions in binary form must reproduce the above copyright\n!         notice, this list of conditions and the following disclaimer in the\n!         documentation and/or other materials provided with the distribution.\n! \n!      3. The names of its contributors may not be used to endorse or promote \n!         products derived from this software without specific prior written \n!         permission.\n! \n!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\n!    \"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\n!    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\n!    A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR\n!    CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,\n!    EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,\n!    PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR\n!    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF\n!    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING\n!    NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\n!    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n! \n! \n!    Any feedback is very welcome.\n!    http://www.math.keio.ac.jp/matumoto/emt.html\n!    email: matumoto@math.keio.ac.jp\n! -------------------------------------------------------------\n\n  module MersenneTwister\n! -------------------------------------------------------------\n\n  use parkind, only : im => kind_im, rb => kind_rb \n\n  implicit none\n  private\n  \n  ! Algorithm parameters\n  ! -------\n  ! Period parameters\n  integer(kind=im), parameter :: blockSize = 624,         &\n                        M         = 397,         &\n                        MATRIX_A  = -1727483681, & ! constant vector a         (0x9908b0dfUL)\n                        UMASK     = -2147483648, & ! most significant w-r bits (0x80000000UL)\n                        LMASK     =  2147483647    ! least significant r bits  (0x7fffffffUL)\n  ! Tempering parameters\n  integer(kind=im), parameter :: TMASKB= -1658038656, & ! (0x9d2c5680UL)\n                        TMASKC= -272236544     ! (0xefc60000UL)\n  ! -------\n\n  ! The type containing the state variable  \n  type randomNumberSequence\n    integer(kind=im)                            :: currentElement ! = blockSize\n    integer(kind=im), dimension(0:blockSize -1) :: state ! = 0\n  end type randomNumberSequence\n\n  interface new_RandomNumberSequence\n    module procedure initialize_scalar, initialize_vector\n  end interface new_RandomNumberSequence \n\n  public :: randomNumberSequence\n  public :: new_RandomNumberSequence, finalize_RandomNumberSequence, &\n            getRandomInt, getRandomPositiveInt, getRandomReal\n! -------------------------------------------------------------\ncontains\n  ! -------------------------------------------------------------\n  ! Private functions\n  ! ---------------------------\n  function mixbits(u, v)\n    integer(kind=im), intent( in) :: u, v\n    integer(kind=im)              :: mixbits\n    \n    mixbits = ior(iand(u, UMASK), iand(v, LMASK))\n  end function mixbits\n  ! ---------------------------\n  function twist(u, v)\n    integer(kind=im), intent( in) :: u, v\n    integer(kind=im)              :: twist\n\n    ! Local variable\n    integer(kind=im), parameter, dimension(0:1) :: t_matrix = (/ 0_im, MATRIX_A /)\n    \n    twist = ieor(ishft(mixbits(u, v), -1_im), t_matrix(iand(v, 1_im)))\n    twist = ieor(ishft(mixbits(u, v), -1_im), t_matrix(iand(v, 1_im)))\n  end function twist\n  ! ---------------------------\n  subroutine nextState(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    \n    ! Local variables\n    integer(kind=im) :: k\n    \n    do k = 0, blockSize - M - 1\n      twister%state(k) = ieor(twister%state(k + M), &\n                              twist(twister%state(k), twister%state(k + 1_im)))\n    end do \n    do k = blockSize - M, blockSize - 2\n      twister%state(k) = ieor(twister%state(k + M - blockSize), &\n                              twist(twister%state(k), twister%state(k + 1_im)))\n    end do \n    twister%state(blockSize - 1_im) = ieor(twister%state(M - 1_im), &\n                                        twist(twister%state(blockSize - 1_im), twister%state(0_im)))\n    twister%currentElement = 0_im\n\n  end subroutine nextState\n  ! ---------------------------\n  elemental function temper(y)\n    integer(kind=im), intent(in) :: y\n    integer(kind=im)             :: temper\n    \n    integer(kind=im) :: x\n    \n    ! Tempering\n    x      = ieor(y, ishft(y, -11))\n    x      = ieor(x, iand(ishft(x,  7), TMASKB))\n    x      = ieor(x, iand(ishft(x, 15), TMASKC))\n    temper = ieor(x, ishft(x, -18))\n  end function temper\n  ! -------------------------------------------------------------\n  ! Public (but hidden) functions\n  ! --------------------\n  function initialize_scalar(seed) result(twister)\n    integer(kind=im),       intent(in   ) :: seed\n    type(randomNumberSequence)                :: twister \n    \n    integer(kind=im) :: i\n    ! See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. In the previous versions, \n    !   MSBs of the seed affect only MSBs of the array state[].                       \n    !   2002/01/09 modified by Makoto Matsumoto            \n    \n    twister%state(0) = iand(seed, -1_im)\n    do i = 1,  blockSize - 1 ! ubound(twister%state)\n       twister%state(i) = 1812433253_im * ieor(twister%state(i-1), &\n                                            ishft(twister%state(i-1), -30_im)) + i\n       twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n    end do\n    twister%currentElement = blockSize\n  end function initialize_scalar\n  ! -------------------------------------------------------------\n  function initialize_vector(seed) result(twister)\n    integer(kind=im), dimension(0:), intent(in) :: seed\n    type(randomNumberSequence)                      :: twister \n    \n    integer(kind=im) :: i, j, k, nFirstLoop, nWraps\n    \n    nWraps  = 0\n    twister = initialize_scalar(19650218_im)\n    \n    nFirstLoop = max(blockSize, size(seed))\n    do k = 1, nFirstLoop\n       i = mod(k + nWraps, blockSize)\n       j = mod(k - 1,      size(seed))\n       if(i == 0) then\n         twister%state(i) = twister%state(blockSize - 1)\n         twister%state(1) = ieor(twister%state(1),                                 &\n                                 ieor(twister%state(1-1),                          & \n                                      ishft(twister%state(1-1), -30_im)) * 1664525_im) + & \n                            seed(j) + j ! Non-linear\n         twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n         nWraps = nWraps + 1\n       else\n         twister%state(i) = ieor(twister%state(i),                                 &\n                                 ieor(twister%state(i-1),                          & \n                                      ishft(twister%state(i-1), -30_im)) * 1664525_im) + & \n                            seed(j) + j ! Non-linear\n         twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n      end if\n    end do\n    \n    !\n    ! Walk through the state array, beginning where we left off in the block above\n    ! \n    do i = mod(nFirstLoop, blockSize) + nWraps + 1, blockSize - 1\n      twister%state(i) = ieor(twister%state(i),                                 &\n                              ieor(twister%state(i-1),                          & \n                                   ishft(twister%state(i-1), -30_im)) * 1566083941_im) - i ! Non-linear\n      twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n    end do\n    \n    twister%state(0) = twister%state(blockSize - 1) \n    \n    do i = 1, mod(nFirstLoop, blockSize) + nWraps\n      twister%state(i) = ieor(twister%state(i),                                 &\n                              ieor(twister%state(i-1),                          & \n                                   ishft(twister%state(i-1), -30_im)) * 1566083941_im) - i ! Non-linear\n      twister%state(i) = iand(twister%state(i), -1_im) ! for >32 bit machines\n    end do\n    \n    twister%state(0) = UMASK \n    twister%currentElement = blockSize\n    \n  end function initialize_vector\n  ! -------------------------------------------------------------\n  ! Public functions\n  ! --------------------\n  function getRandomInt(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    integer(kind=im)                        :: getRandomInt\n    ! Generate a random integer on the interval [0,0xffffffff]\n    !   Equivalent to genrand_int32 in the C code. \n    !   Fortran doesn't have a type that's unsigned like C does, \n    !   so this is integers in the range -2**31 - 2**31\n    ! All functions for getting random numbers call this one, \n    !   then manipulate the result\n    \n    if(twister%currentElement >= blockSize) call nextState(twister)\n      \n    getRandomInt = temper(twister%state(twister%currentElement))\n    twister%currentElement = twister%currentElement + 1\n  \n  end function getRandomInt\n  ! --------------------\n  function getRandomPositiveInt(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    integer(kind=im)                        :: getRandomPositiveInt\n    ! Generate a random integer on the interval [0,0x7fffffff]\n    !   or [0,2**31]\n    !   Equivalent to genrand_int31 in the C code. \n    \n    ! Local integers\n    integer(kind=im) :: localInt\n\n    localInt = getRandomInt(twister)\n    getRandomPositiveInt = ishft(localInt, -1)\n  \n  end function getRandomPositiveInt\n  ! --------------------\n!! mji - modified Jan 2007, double converted to rrtmg real kind type\n  function getRandomReal(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n!    double precision             :: getRandomReal\n    real(kind=rb)             :: getRandomReal\n    ! Generate a random number on [0,1]\n    !   Equivalent to genrand_real1 in the C code\n    !   The result is stored as double precision but has 32 bit resolution\n    \n    integer(kind=im) :: localInt\n    \n    localInt = getRandomInt(twister)\n    if(localInt < 0) then\n!      getRandomReal = dble(localInt + 2.0d0**32)/(2.0d0**32 - 1.0d0)\n      getRandomReal = (localInt + 2.0**32_rb)/(2.0**32_rb - 1.0_rb)\n    else\n!      getRandomReal = dble(localInt            )/(2.0d0**32 - 1.0d0)\n      getRandomReal = (localInt            )/(2.0**32_rb - 1.0_rb)\n    end if\n\n  end function getRandomReal\n  ! --------------------\n  subroutine finalize_RandomNumberSequence(twister)\n    type(randomNumberSequence), intent(inout) :: twister\n    \n      twister%currentElement = blockSize\n      twister%state(:) = 0_im\n  end subroutine finalize_RandomNumberSequence\n\n  ! --------------------  \n  \n  end module MersenneTwister\n\n\n  module mcica_random_numbers\n\n  ! Generic module to wrap random number generators. \n  !   The module defines a type that identifies the particular stream of random \n  !   numbers, and has procedures for initializing it and getting real numbers \n  !   in the range 0 to 1. \n  ! This version uses the Mersenne Twister to generate random numbers on [0, 1]. \n  !\n  use MersenneTwister, only: randomNumberSequence, & ! The random number engine.\n                             new_RandomNumberSequence, getRandomReal\n!! mji\n!!  use time_manager_mod, only: time_type, get_date\n\n  use parkind, only : im => kind_im, rb => kind_rb \n\n  implicit none\n  private\n  \n  type randomNumberStream\n    type(randomNumberSequence) :: theNumbers\n  end type randomNumberStream\n  \n  interface getRandomNumbers\n    module procedure getRandomNumber_Scalar, getRandomNumber_1D, getRandomNumber_2D\n  end interface getRandomNumbers\n  \n  interface initializeRandomNumberStream\n    module procedure initializeRandomNumberStream_S, initializeRandomNumberStream_V\n  end interface initializeRandomNumberStream\n\n  public :: randomNumberStream,                             &\n            initializeRandomNumberStream, getRandomNumbers\n!! mji\n!!            initializeRandomNumberStream, getRandomNumbers, &\n!!            constructSeed\ncontains\n  ! ---------------------------------------------------------\n  ! Initialization\n  ! ---------------------------------------------------------\n  function initializeRandomNumberStream_S(seed) result(new) \n    integer(kind=im), intent( in)     :: seed\n    type(randomNumberStream) :: new\n    \n    new%theNumbers = new_RandomNumberSequence(seed)\n    \n  end function initializeRandomNumberStream_S\n  ! ---------------------------------------------------------\n  function initializeRandomNumberStream_V(seed) result(new) \n    integer(kind=im), dimension(:), intent( in) :: seed\n    type(randomNumberStream)           :: new\n    \n    new%theNumbers = new_RandomNumberSequence(seed)\n    \n  end function initializeRandomNumberStream_V\n  ! ---------------------------------------------------------\n  ! Procedures for drawing random numbers\n  ! ---------------------------------------------------------\n  subroutine getRandomNumber_Scalar(stream, number)\n    type(randomNumberStream), intent(inout) :: stream\n    real(kind=rb),                     intent(  out) :: number\n    \n    number = getRandomReal(stream%theNumbers)\n  end subroutine getRandomNumber_Scalar\n  ! ---------------------------------------------------------\n  subroutine getRandomNumber_1D(stream, numbers)\n    type(randomNumberStream), intent(inout) :: stream\n    real(kind=rb), dimension(:),       intent(  out) :: numbers\n    \n    ! Local variables\n    integer(kind=im) :: i\n    \n    do i = 1, size(numbers)\n      numbers(i) = getRandomReal(stream%theNumbers)\n    end do\n  end subroutine getRandomNumber_1D\n  ! ---------------------------------------------------------\n  subroutine getRandomNumber_2D(stream, numbers)\n    type(randomNumberStream), intent(inout) :: stream\n    real(kind=rb), dimension(:, :),    intent(  out) :: numbers\n    \n    ! Local variables\n    integer(kind=im) :: i\n    \n    do i = 1, size(numbers, 2)\n      call getRandomNumber_1D(stream, numbers(:, i))\n    end do\n  end subroutine getRandomNumber_2D\n! mji\n!  ! ---------------------------------------------------------\n!  ! Constructing a unique seed from grid cell index and model date/time\n!  !   Once we have the GFDL stuff we'll add the year, month, day, hour, minute\n!  ! ---------------------------------------------------------\n!  function constructSeed(i, j, time) result(seed)\n!    integer(kind=im),         intent( in)  :: i, j\n!    type(time_type), intent( in) :: time\n!    integer(kind=im), dimension(8) :: seed\n!    \n!    ! Local variables\n!    integer(kind=im) :: year, month, day, hour, minute, second\n!    \n!    \n!    call get_date(time, year, month, day, hour, minute, second)\n!    seed = (/ i, j, year, month, day, hour, minute, second /)\n!  end function constructSeed\n\n  end module mcica_random_numbers\n\n\n"
  },
  {
    "path": "GeosRad/mcica_subcol_gen_lw.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/mcica_subcol_gen_lw.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.6 $\n!     created:   $Date: 2009/05/22 21:04:30 $\n!\n\n      module mcica_subcol_gen_lw\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2006-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.\n! Two options are possible:\n! 1) Input cloud physical properties: cloud fraction, ice and liquid water\n!    paths, ice fraction, and particle sizes.  Output will be stochastic\n!    arrays of these variables.  (inflag = 1)\n! 2) Input cloud optical properties directly: cloud optical depth, single\n!    scattering albedo and asymmetry parameter.  Output will be stochastic\n!    arrays of these variables.  (inflag = 0; longwave scattering is not\n!    yet available, ssac and asmc are for future expansion)\n\n! --------- Modules ----------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : nbndlw, ngptlw\n      use rrlw_con, only: grav\n      use rrlw_wvn, only: ngb\n      use rrlw_vsn\n\n      implicit none\n\n! public interfaces/functions/subroutines\n      public :: mcica_subcol_lw, generate_stochastic_clouds \n\n      contains\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      recursive subroutine mcica_subcol_lw(ncol, nlay, icld, permuteseed, irng, play, &\n                       cldfrac, ciwp, clwp, rei, rel, tauc, cldfmcl, &\n                       ciwpmcl, clwpmcl, reicmcl, relqmcl, taucmcl)\n\n! ----- Input -----\n! Control\n      integer(kind=im), intent(in) :: ncol            ! number of columns\n      integer(kind=im), intent(in) :: nlay            ! number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag\n      integer(kind=im), intent(in) :: permuteseed     ! if the cloud generator is called multiple times, \n                                                      ! permute the seed between each call.\n                                                      ! between calls for LW and SW, recommended\n                                                      ! permuteseed differes by 'ngpt'\n      integer(kind=im), intent(inout) :: irng         ! flag for random number generator\n                                                      !  0 = kissvec\n                                                      !  1 = Mersenne Twister\n\n! Atmosphere\n      real(kind=rb), intent(in) :: play(ncol,nlay)          ! layer pressures (mb) \n                                                      !    Dimensions: (ncol,nlay)\n\n! Atmosphere/clouds - cldprop\n      real(kind=rb), intent(in) :: cldfrac(ncol,nlay)       ! layer cloud fraction\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauc(nbndlw,ncol,nlay)        ! in-cloud optical depth\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n!      real(kind=rb), intent(in) :: ssac(ngptlw,ncol,nlay)       ! in-cloud single scattering albedo\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n!      real(kind=rb), intent(in) :: asmc(ngptlw,ncol,nlay)       ! in-cloud asymmetry parameter\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwp(ncol,nlay)          ! in-cloud ice water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: clwp(ncol,nlay)          ! in-cloud liquid water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: rei(ncol,nlay)           ! cloud ice particle size\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: rel(ncol,nlay)           ! cloud liquid particle size\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Output -----\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb), intent(out) :: cldfmcl(ngptlw,ncol,nlay)    ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(out) :: ciwpmcl(ngptlw,ncol,nlay)    ! in-cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(out) :: clwpmcl(ngptlw,ncol,nlay)    ! in-cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(out) :: relqmcl(ncol,nlay)      ! liquid particle size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: reicmcl(ncol,nlay)      ! ice partcle size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: taucmcl(ngptlw,ncol,nlay)    ! in-cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n!      real(kind=rb), intent(out) :: ssacmcl(ngptlw,ncol,nlay)   ! in-cloud single scattering albedo [mcica]\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n!      real(kind=rb), intent(out) :: asmcmcl(ngptlw,ncol,nlay)   ! in-cloud asymmetry parameter [mcica]\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n\n! ----- Local -----\n\n! Stochastic cloud generator variables [mcica]\n      integer(kind=im), parameter :: nsubclw = ngptlw ! number of sub-columns (g-point intervals)\n      integer(kind=im) :: ilev                        ! loop index\n\n      real(kind=rb) :: pmid(ncol, nlay)               ! layer pressures (Pa) \n!      real(kind=rb) :: pdel(ncol, nlay)              ! layer pressure thickness (Pa) \n!      real(kind=rb) :: qi(ncol, nlay)                ! ice water (specific humidity)\n!      real(kind=rb) :: ql(ncol, nlay)                ! liq water (specific humidity)\n\n\n! Return if clear sky; or stop if icld out of range\n      if (icld.eq.0) return\n      if (icld.lt.0.or.icld.gt.3) then \n         stop 'MCICA_SUBCOL: INVALID ICLD'\n      endif \n\n! NOTE: For GCM mode, permuteseed must be offset between LW and SW by at least the number of subcolumns\n\n\n! Pass particle sizes to new arrays, no subcolumns for these properties yet\n! Convert pressures from mb to Pa\n\n      reicmcl(:ncol,:nlay) = rei(:ncol,:nlay)\n      relqmcl(:ncol,:nlay) = rel(:ncol,:nlay)\n      pmid(:ncol,:nlay) = play(:ncol,:nlay)*1.e2_rb\n\n! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components \n\n!      cwp =  (q * pdel * 1000.) / gravit)\n!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2\n!           = (g m-2)\n!\n!      q  = (cwp * gravit) / (pdel *1000.)\n!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)\n!         =  kg/kg\n\n!      do ilev = 1, nlay\n!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)\n!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)\n!      enddo\n\n!  Generate the stochastic subcolumns of cloud optical properties for the longwave;\n      call generate_stochastic_clouds (ncol, nlay, nsubclw, icld, irng, pmid, cldfrac, clwp, ciwp, tauc, &\n                               cldfmcl, clwpmcl, ciwpmcl, taucmcl, permuteseed)\n      end subroutine mcica_subcol_lw\n\n\n!-------------------------------------------------------------------------------------------------\n      recursive subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, tauc, &\n                                   cld_stoch, clwp_stoch, ciwp_stoch, tauc_stoch, changeSeed) \n!-------------------------------------------------------------------------------------------------\n\n  !----------------------------------------------------------------------------------------------------------------\n  ! ---------------------\n  ! Contact: Cecile Hannay (hannay@ucar.edu)\n  ! \n  ! Original code: Based on Raisanen et al., QJRMS, 2004.\n  ! \n  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default\n  !   random number generator, which can be changed to the optional kissvec random number generator\n  !   with flag 'irng'. Some extra functionality has been commented or removed.  \n  !   Michael J. Iacono, AER, Inc., February 2007\n  !\n  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.\n  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one \n  ! and uniform cloud liquid and cloud ice concentration.\n  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer \n  ! and obeys an overlap assumption in the vertical.   \n  ! \n  ! Overlap assumption:\n  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. \n  !  The default option is maximum-random (option 3)\n  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap\n  !  This is set with the variable \"overlap\" \n  !mji - Exponential overlap option (overlap=4) has been deactivated in this version\n  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) \n  ! \n  ! Seed:\n  !  If the stochastic cloud generator is called several times during the same timestep, \n  !  one should change the seed between the call to insure that the subcolumns are different.\n  !  This is done by changing the argument 'changeSeed'\n  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,\n  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call \n  !\n  ! PDF assumption:\n  !  We can use arbitrary complicated PDFS. \n  !  In the present version, we produce homogeneuous clouds (the simplest case).  \n  !  Future developments include using the PDF scheme of Ben Johnson. \n  !\n  ! History file:\n  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)\n  !  nsubcol = number of subcolumns\n  !  overlap = overlap type (1-3)\n  !  Zo = length scale \n  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S\" means Stochastic)\n  !  CLDLIQ_S = mean of the subcolumn cloud water\n  !  CLDICE_S = mean of the subcolumn cloud ice \n  !\n  ! Note:\n  !   Here: we force that the cloud condensate to be consistent with the cloud fraction \n  !   i.e we only have cloud condensate when the cell is cloudy. \n  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations \n  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction \n  !   without cloud condensate or the opposite).\n  !---------------------------------------------------------------------------------------------------------------\n\n      use mcica_random_numbers\n! The Mersenne Twister random number engine\n      use MersenneTwister, only: randomNumberSequence, &   \n                                 new_RandomNumberSequence, getRandomReal\n\n      type(randomNumberSequence) :: randomNumbers\n\n! -- Arguments\n\n      integer(kind=im), intent(in) :: ncol            ! number of columns\n      integer(kind=im), intent(in) :: nlay            ! number of layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag\n      integer(kind=im), intent(inout) :: irng         ! flag for random number generator\n                                                      !  0 = kissvec\n                                                      !  1 = Mersenne Twister\n      integer(kind=im), intent(in) :: nsubcol         ! number of sub-columns (g-point intervals)\n      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting seed\n\n! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state \n      real(kind=rb), intent(in) :: pmid(:,:)          ! layer pressure (Pa)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cld(:,:)           ! cloud fraction \n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n!      real(kind=rb), intent(in) :: ssac(:,:,:)       ! in-cloud single scattering albedo\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n                                                      !   inactive - for future expansion\n!      real(kind=rb), intent(in) :: asmc(:,:,:)       ! in-cloud asymmetry parameter\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n                                                      !   inactive - for future expansion\n\n      real(kind=rb), intent(out) :: cld_stoch(:,:,:)  ! subcolumn cloud fraction \n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(out) :: clwp_stoch(:,:,:) ! subcolumn in-cloud liquid water path\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(out) :: ciwp_stoch(:,:,:) ! subcolumn in-cloud ice water path\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(out) :: tauc_stoch(:,:,:) ! subcolumn in-cloud optical depth\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n!      real(kind=rb), intent(out) :: ssac_stoch(:,:,:)! subcolumn in-cloud single scattering albedo\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n                                                      !   inactive - for future expansion\n!      real(kind=rb), intent(out) :: asmc_stoch(:,:,:)! subcolumn in-cloud asymmetry parameter\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n                                                      !   inactive - for future expansion\n\n! -- Local variables\n      real(kind=rb) :: cldf(ncol,nlay)                ! cloud fraction \n    \n! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive\n!      real(kind=rb) :: mean_cld_stoch(ncol, nlay)    ! cloud fraction \n!      real(kind=rb) :: mean_clwp_stoch(ncol, nlay)   ! cloud water\n!      real(kind=rb) :: mean_ciwp_stoch(ncol, nlay)   ! cloud ice\n!      real(kind=rb) :: mean_tauc_stoch(ncol, nlay)   ! cloud optical depth\n!      real(kind=rb) :: mean_ssac_stoch(ncol, nlay)   ! cloud single scattering albedo\n!      real(kind=rb) :: mean_asmc_stoch(ncol, nlay)   ! cloud asymmetry parameter\n\n! Set overlap\n      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum/random,\n                                                      ! 3 = maximum overlap, \n!      real(kind=rb), parameter  :: Zo = 2500._rb        ! length scale (m) \n!      real(kind=rb) :: zm(ncol,nlay)                 ! Height of midpoints (above surface)\n!      real(kind=rb), dimension(nlay) :: alpha=0.0_rb    ! overlap parameter  \n\n! Constants (min value for cloud fraction and cloud water and ice)\n      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction\n!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)\n\n! Variables related to random number and seed \n      real(kind=rb), dimension(nsubcol, ncol, nlay) :: CDF, CDF2      ! random numbers\n      integer(kind=im), dimension(ncol) :: seed1, seed2, seed3, seed4 ! seed to create random number (kissvec)\n      real(kind=rb), dimension(ncol) :: rand_num      ! random number (kissvec)\n      integer(kind=im) :: iseed                       ! seed to create random number (Mersenne Teister)\n      real(kind=rb) :: rand_num_mt                    ! random number (Mersenne Twister)\n\n! Flag to identify cloud fraction in subcolumns\n      logical,  dimension(nsubcol, ncol, nlay) :: iscloudy   ! flag that says whether a gridbox is cloudy\n\n! Indices\n      integer(kind=im) :: ilev, isubcol, i, n         ! indices\n\n!------------------------------------------------------------------------------------------ \n\n! Check that irng is in bounds; if not, set to default\n      if (irng .ne. 0) irng = 1\n\n! Pass input cloud overlap setting to local variable\n      overlap = icld\n\n! Ensure that cloud fractions are in bounds \n      do ilev = 1, nlay\n         do i = 1, ncol\n            cldf(i,ilev) = cld(i,ilev)\n            if (cldf(i,ilev) < cldmin) then\n               cldf(i,ilev) = 0._rb\n            endif\n         enddo\n      enddo\n\n! ----- Create seed  --------\n   \n! Advance randum number generator by changeseed values\n      if (irng.eq.0) then   \n! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  \n! Must use pmid from bottom four layers. \n         do i=1,ncol\n            if (pmid(i,1).lt.pmid(i,2)) then \n               stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'\n            endif \n            seed1(i) = (pmid(i,1) - int(pmid(i,1)))  * 1000000000_im\n            seed2(i) = (pmid(i,2) - int(pmid(i,2)))  * 1000000000_im\n            seed3(i) = (pmid(i,3) - int(pmid(i,3)))  * 1000000000_im\n            seed4(i) = (pmid(i,4) - int(pmid(i,4)))  * 1000000000_im\n          enddo\n         do i=1,changeSeed\n            call kissvec(seed1, seed2, seed3, seed4, rand_num)\n         enddo\n      elseif (irng.eq.1) then\n         randomNumbers = new_RandomNumberSequence(seed = changeSeed)\n      endif \n\n\n! ------ Apply overlap assumption --------\n\n! generate the random numbers  \n\n      select case (overlap)\n\n      case(1) \n! Random overlap\n! i) pick a random value at every level\n  \n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               do ilev = 1,nlay\n                  call kissvec(seed1, seed2, seed3, seed4, rand_num)  ! we get different random number for each level\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  do ilev = 1, nlay\n                     rand_num_mt = getRandomReal(randomNumbers)\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n      case(2) \n! Maximum-Random overlap\n! i) pick a random number for top layer.\n! ii) walk down the column: \n!    - if the layer above is cloudy, we use the same random number than in the layer above\n!    - if the layer above is clear, we use a new random number \n\n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               do ilev = 1,nlay\n                  call kissvec(seed1, seed2, seed3, seed4, rand_num) \n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  do ilev = 1, nlay\n                     rand_num_mt = getRandomReal(randomNumbers)\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n         do ilev = 2,nlay\n            do i = 1, ncol\n               do isubcol = 1, nsubcol\n                  if (CDF(isubcol, i, ilev-1) > 1._rb - cldf(i,ilev-1) ) then\n                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev-1) \n                  else\n                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev) * (1._rb - cldf(i,ilev-1)) \n                  endif\n               enddo\n            enddo\n         enddo\n       \n      case(3) \n! Maximum overlap\n! i) pick the same random numebr at every level  \n\n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               call kissvec(seed1, seed2, seed3, seed4, rand_num)\n               do ilev = 1,nlay\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  rand_num_mt = getRandomReal(randomNumbers)\n                  do ilev = 1, nlay\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n!    case(4) - inactive\n!       ! Exponential overlap: weighting between maximum and random overlap increases with the distance. \n!       ! The random numbers for exponential overlap verify:\n!       ! j=1   RAN(j)=RND1\n!       ! j>1   if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1)\n!       !                                 RAN(j) = RND2\n!       ! alpha is obtained from the equation\n!       ! alpha = exp(- (Zi-Zj-1)/Zo) where Zo is a characteristic length scale    \n\n\n!       ! compute alpha\n!       zm    = state%zm     \n!       alpha(:, 1) = 0.\n!       do ilev = 2,nlay\n!          alpha(:, ilev) = exp( -( zm (:, ilev-1) -  zm (:, ilev)) / Zo)\n!       end do\n       \n!       ! generate 2 streams of random numbers\n!       do isubcol = 1,nsubcol\n!          do ilev = 1,nlay\n!             call kissvec(seed1, seed2, seed3, seed4, rand_num)\n!             CDF(isubcol, :, ilev) = rand_num\n!             call kissvec(seed1, seed2, seed3, seed4, rand_num)\n!             CDF2(isubcol, :, ilev) = rand_num\n!          end do\n!       end do\n\n!       ! generate random numbers\n!       do ilev = 2,nlay\n!          where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )\n!             CDF(:,:,ilev) = CDF(:,:,ilev-1) \n!          end where\n!       end do\n\n      end select\n\n \n! -- generate subcolumns for homogeneous clouds -----\n      do ilev = 1,nlay\n         iscloudy(:,:,ilev) = (CDF(:,:,ilev) >= 1._rb - spread(cldf(:,ilev), dim=1, nCopies=nsubcol) )\n      enddo\n      \n\n! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;\n! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;\n! where there is a cloud, define the subcolumn cloud properties, \n! otherwise set these to zero\n\n      do ilev = 1,nlay\n         do i = 1, ncol\n            do isubcol = 1, nsubcol\n               if (iscloudy(isubcol,i,ilev) ) then\n                  cld_stoch(isubcol,i,ilev) = 1._rb\n                  clwp_stoch(isubcol,i,ilev) = clwp(i,ilev)\n                  ciwp_stoch(isubcol,i,ilev) = ciwp(i,ilev)\n                  n = ngb(isubcol)\n                  tauc_stoch(isubcol,i,ilev) = tauc(n,i,ilev)\n!                  ssac_stoch(isubcol,i,ilev) = ssac(n,i,ilev)\n!                  asmc_stoch(isubcol,i,ilev) = asmc(n,i,ilev)\n               else\n                  cld_stoch(isubcol,i,ilev) = 0._rb\n                  clwp_stoch(isubcol,i,ilev) = 0._rb\n                  ciwp_stoch(isubcol,i,ilev) = 0._rb\n                  tauc_stoch(isubcol,i,ilev) = 0._rb\n!                  ssac_stoch(isubcol,i,ilev) = 1._rb\n!                  asmc_stoch(isubcol,i,ilev) = 1._rb\n               endif\n            enddo\n         enddo\n      enddo\n\n! -- compute the means of the subcolumns ---\n!      mean_cld_stoch(:,:) = 0._rb\n!      mean_clwp_stoch(:,:) = 0._rb\n!      mean_ciwp_stoch(:,:) = 0._rb\n!      mean_tauc_stoch(:,:) = 0._rb\n!      mean_ssac_stoch(:,:) = 0._rb\n!      mean_asmc_stoch(:,:) = 0._rb\n!      do i = 1, nsubcol\n!         mean_cld_stoch(:,:) =  cld_stoch(i,:,:) + mean_cld_stoch(:,:) \n!         mean_clwp_stoch(:,:) =  clwp_stoch( i,:,:) + mean_clwp_stoch(:,:) \n!         mean_ciwp_stoch(:,:) =  ciwp_stoch( i,:,:) + mean_ciwp_stoch(:,:) \n!         mean_tauc_stoch(:,:) =  tauc_stoch( i,:,:) + mean_tauc_stoch(:,:) \n!         mean_ssac_stoch(:,:) =  ssac_stoch( i,:,:) + mean_ssac_stoch(:,:) \n!         mean_asmc_stoch(:,:) =  asmc_stoch( i,:,:) + mean_asmc_stoch(:,:) \n!      end do\n!      mean_cld_stoch(:,:) = mean_cld_stoch(:,:) / nsubcol\n!      mean_clwp_stoch(:,:) = mean_clwp_stoch(:,:) / nsubcol\n!      mean_ciwp_stoch(:,:) = mean_ciwp_stoch(:,:) / nsubcol\n!      mean_tauc_stoch(:,:) = mean_tauc_stoch(:,:) / nsubcol\n!      mean_ssac_stoch(:,:) = mean_ssac_stoch(:,:) / nsubcol\n!      mean_asmc_stoch(:,:) = mean_asmc_stoch(:,:) / nsubcol\n\n      end subroutine generate_stochastic_clouds\n\n\n!------------------------------------------------------------------\n! Private subroutines\n!------------------------------------------------------------------\n\n!-------------------------------------------------------------------------------------------------- \n      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)\n!-------------------------------------------------------------------------------------------------- \n\n! public domain code\n! made available from http://www.fortran.com/\n! downloaded by pjr on 03/16/04 for NCAR CAM\n! converted to vector form, functions inlined by pjr,mvr on 05/10/2004\n\n! The  KISS (Keep It Simple Stupid) random number generator. Combines:\n! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.\n! (2) A 3-shift shift-register generator, period 2^32-1,\n! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59\n!  Overall period>2^123; \n!\n      real(kind=rb), dimension(:), intent(inout)  :: ran_arr\n      integer(kind=im), dimension(:), intent(inout) :: seed1,seed2,seed3,seed4\n      integer(kind=im) :: i,sz,kiss\n      integer(kind=im) :: m, k, n\n\n! inline function \n      m(k, n) = ieor (k, ishft (k, n) )\n\n      sz = size(ran_arr)\n      do i = 1, sz\n         seed1(i) = 69069_im * seed1(i) + 1327217885_im\n         seed2(i) = m (m (m (seed2(i), 13_im), - 17_im), 5_im)\n         seed3(i) = 18000_im * iand (seed3(i), 65535_im) + ishft (seed3(i), - 16_im)\n         seed4(i) = 30903_im * iand (seed4(i), 65535_im) + ishft (seed4(i), - 16_im)\n         kiss = seed1(i) + seed2(i) + ishft (seed3(i), 16_im) + seed4(i)\n         ran_arr(i) = kiss*2.328306e-10_rb + 0.5_rb\n      end do\n    \n      end subroutine kissvec\n\n      end module mcica_subcol_gen_lw\n\n"
  },
  {
    "path": "GeosRad/mcica_subcol_gen_sw.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/mcica_subcol_gen_sw.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.6 $\n!     created:   $Date: 2009/02/09 19:45:52 $\n!\n\n      module mcica_subcol_gen_sw\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2006-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! Purpose: Create McICA stochastic arrays for cloud physical or optical properties.   \n! Two options are possible:\n! 1) Input cloud physical properties: cloud fraction, ice and liquid water\n!    paths, ice fraction, and particle sizes.  Output will be stochastic\n!    arrays of these variables.  (inflag = 1)\n! 2) Input cloud optical properties directly: cloud optical depth, single\n!    scattering albedo and asymmetry parameter.  Output will be stochastic\n!    arrays of these variables.  (inflag = 0)\n\n! --------- Modules ----------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, ngptsw\n      use rrsw_con, only: grav\n      use rrsw_wvn, only: ngb\n      use rrsw_vsn\n\n      implicit none\n\n! public interfaces/functions/subroutines\n      public :: mcica_subcol_sw, generate_stochastic_clouds_sw\n\n      contains\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      subroutine mcica_subcol_sw(ncol, nlay, icld, permuteseed, irng, play, &\n                       cldfrac, ciwp, clwp, rei, rel, tauc, ssac, asmc, fsfc, &\n                       cldfmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, &\n                       taucmcl, ssacmcl, asmcmcl, fsfcmcl)\n\n! ----- Input -----\n! Control\n      integer(kind=im), intent(in) :: ncol            ! number of columns\n      integer(kind=im), intent(in) :: nlay            ! number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag\n      integer(kind=im), intent(in) :: permuteseed     ! if the cloud generator is called multiple times,\n                                                      ! permute the seed between each call;\n                                                      ! between calls for LW and SW, recommended\n                                                      ! permuteseed differs by 'ngpt'\n      integer(kind=im), intent(inout) :: irng         ! flag for random number generator\n                                                      !  0 = kissvec\n                                                      !  1 = Mersenne Twister\n        \n! Atmosphere\n      real(kind=rb), intent(in) :: play(ncol,nlay)          ! layer pressures (mb) \n                                                      !    Dimensions: (ncol,nlay)\n\n! Atmosphere/clouds - cldprop\n      real(kind=rb), intent(in) :: cldfrac(ncol,nlay)       ! layer cloud fraction\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauc(nbndsw,ncol,nlay)        ! in-cloud optical depth\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ssac(nbndsw,ncol,nlay)        ! in-cloud single scattering albedo (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: asmc(nbndsw,ncol,nlay)        ! in-cloud asymmetry parameter (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: fsfc(nbndsw,ncol,nlay)        ! in-cloud forward scattering fraction (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwp(ncol,nlay)          ! in-cloud ice water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: clwp(ncol,nlay)          ! in-cloud liquid water path\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: rei(ncol,nlay)           ! cloud ice particle size\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: rel(ncol,nlay)           ! cloud liquid particle size\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Output -----\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb), intent(out) :: cldfmcl(ngptsw,ncol,nlay)    ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ciwpmcl(ngptsw,ncol,nlay)    ! in-cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: clwpmcl(ngptsw,ncol,nlay)    ! in-cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: relqmcl(ncol,nlay)      ! liquid particle size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: reicmcl(ncol,nlay)      ! ice partcle size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: taucmcl(ngptsw,ncol,nlay)    ! in-cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ssacmcl(ngptsw,ncol,nlay)    ! in-cloud single scattering albedo [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: asmcmcl(ngptsw,ncol,nlay)    ! in-cloud asymmetry parameter [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: fsfcmcl(ngptsw,ncol,nlay)    ! in-cloud forward scattering fraction [mcica]\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n\n! ----- Local -----\n\n! Stochastic cloud generator variables [mcica]\n      integer(kind=im), parameter :: nsubcsw = ngptsw ! number of sub-columns (g-point intervals)\n      integer(kind=im) :: ilev                        ! loop index\n\n      real(kind=rb) :: pmid(ncol,nlay)                ! layer pressures (Pa) \n!      real(kind=rb) :: pdel(ncol,nlay)               ! layer pressure thickness (Pa) \n!      real(kind=rb) :: qi(ncol,nlay)                 ! ice water (specific humidity)\n!      real(kind=rb) :: ql(ncol,nlay)                 ! liq water (specific humidity)\n\n\n! Return if clear sky; or stop if icld out of range\n      if (icld.eq.0) return\n      if (icld.lt.0.or.icld.gt.3) then \n         stop 'MCICA_SUBCOL: INVALID ICLD'\n      endif \n\n! NOTE: For GCM mode, permuteseed must be offset between LW and SW by at least number of subcolumns\n\n\n! Pass particle sizes to new arrays, no subcolumns for these properties yet\n! Convert pressures from mb to Pa\n\n      reicmcl(:ncol,:nlay) = rei(:ncol,:nlay)\n      relqmcl(:ncol,:nlay) = rel(:ncol,:nlay)\n      pmid(:ncol,:nlay) = play(:ncol,:nlay)*1.e2_rb\n\n! Convert input ice and liquid cloud water paths to specific humidity ice and liquid components \n\n!      cwp =  (q * pdel * 1000.) / gravit)\n!           = (kg/kg * kg m-1 s-2 *1000.) / m s-2\n!           = (g m-2)\n!\n!      q  = (cwp * gravit) / (pdel *1000.)\n!         = (g m-2 * m s-2) / (kg m-1 s-2 * 1000.)\n!         =  kg/kg\n\n!      do ilev = 1, nlay\n!         qi(ilev) = (ciwp(ilev) * grav) / (pdel(ilev) * 1000._rb)\n!         ql(ilev) = (clwp(ilev) * grav) / (pdel(ilev) * 1000._rb)\n!      enddo\n\n!  Generate the stochastic subcolumns of cloud optical properties for the shortwave;\n      call generate_stochastic_clouds_sw (ncol, nlay, nsubcsw, icld, irng, pmid, cldfrac, clwp, ciwp, &\n                               tauc, ssac, asmc, fsfc, cldfmcl, clwpmcl, ciwpmcl, &\n                               taucmcl, ssacmcl, asmcmcl, fsfcmcl, permuteseed)\n\n      end subroutine mcica_subcol_sw\n\n\n!-------------------------------------------------------------------------------------------------\n      subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, &\n                               tauc, ssac, asmc, fsfc, cld_stoch, clwp_stoch, ciwp_stoch, &\n                               tauc_stoch, ssac_stoch, asmc_stoch, fsfc_stoch, changeSeed) \n!-------------------------------------------------------------------------------------------------\n\n  !----------------------------------------------------------------------------------------------------------------\n  ! ---------------------\n  ! Contact: Cecile Hannay (hannay@ucar.edu)\n  ! \n  ! Original code: Based on Raisanen et al., QJRMS, 2004.\n  !\n  ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default\n  !   random number generator, which can be changed to the optional kissvec random number generator\n  !   with flag 'irng'. Some extra functionality has been commented or removed.  \n  !   Michael J. Iacono, AER, Inc., February 2007\n  !\n  ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns.\n  ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one \n  ! and uniform cloud liquid and cloud ice concentration.\n  ! The ensemble as a whole reproduces the probability function of cloud liquid and ice within each layer \n  ! and obeys an overlap assumption in the vertical.   \n  ! \n  ! Overlap assumption:\n  !  The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. \n  !  The default option is maximum-random (option 3)\n  !  The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap\n  !  This is set with the variable \"overlap\" \n  !mji - Exponential overlap option (overlap=4) has been deactivated in this version\n  !  The exponential overlap uses also a length scale, Zo. (real,    parameter  :: Zo = 2500. ) \n  ! \n  ! Seed:\n  !  If the stochastic cloud generator is called several times during the same timestep, \n  !  one should change the seed between the call to insure that the subcolumns are different.\n  !  This is done by changing the argument 'changeSeed'\n  !  For example, if one wants to create a set of columns for the shortwave and another set for the longwave ,\n  !  use 'changeSeed = 1' for the first call and'changeSeed = 2' for the second call \n  !\n  ! PDF assumption:\n  !  We can use arbitrary complicated PDFS. \n  !  In the present version, we produce homogeneuous clouds (the simplest case).  \n  !  Future developments include using the PDF scheme of Ben Johnson. \n  !\n  ! History file:\n  !  Option to add diagnostics variables in the history file. (using FINCL in the namelist)\n  !  nsubcol = number of subcolumns\n  !  overlap = overlap type (1-3)\n  !  Zo = length scale \n  !  CLOUD_S = mean of the subcolumn cloud fraction ('_S\" means Stochastic)\n  !  CLDLIQ_S = mean of the subcolumn cloud water\n  !  CLDICE_S = mean of the subcolumn cloud ice \n  !\n  ! Note:\n  !   Here: we force that the cloud condensate to be consistent with the cloud fraction \n  !   i.e we only have cloud condensate when the cell is cloudy. \n  !   In CAM: The cloud condensate and the cloud fraction are obtained from 2 different equations \n  !   and the 2 quantities can be inconsistent (i.e. CAM can produce cloud fraction \n  !   without cloud condensate or the opposite).\n  !---------------------------------------------------------------------------------------------------------------\n\n      use mcica_random_numbers\n! The Mersenne Twister random number engine\n      use MersenneTwister, only: randomNumberSequence, &   \n                                 new_RandomNumberSequence, getRandomReal\n\n      type(randomNumberSequence) :: randomNumbers\n\n! -- Arguments\n\n      integer(kind=im), intent(in) :: ncol            ! number of layers\n      integer(kind=im), intent(in) :: nlay            ! number of layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud, cloud overlap flag\n      integer(kind=im), intent(inout) :: irng         ! flag for random number generator\n                                                      !  0 = kissvec\n                                                      !  1 = Mersenne Twister\n      integer(kind=im), intent(in) :: nsubcol         ! number of sub-columns (g-point intervals)\n      integer(kind=im), optional, intent(in) :: changeSeed     ! allows permuting seed\n\n! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state \n      real(kind=rb), intent(in) :: pmid(:,:)          ! layer pressure (Pa)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cld(:,:)           ! cloud fraction \n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: clwp(:,:)          ! in-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ciwp(:,:)          ! in-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauc(:,:,:)        ! in-cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ssac(:,:,:)        ! in-cloud single scattering albedo (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: asmc(:,:,:)        ! in-cloud asymmetry parameter (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n      real(kind=rb), intent(in) :: fsfc(:,:,:)        ! in-cloud forward scattering fraction (non-delta scaled)\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n\n      real(kind=rb), intent(out) :: cld_stoch(:,:,:)  ! subcolumn cloud fraction \n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: clwp_stoch(:,:,:) ! subcolumn in-cloud liquid water path\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ciwp_stoch(:,:,:) ! subcolumn in-cloud ice water path\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: tauc_stoch(:,:,:) ! subcolumn in-cloud optical depth\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: ssac_stoch(:,:,:) ! subcolumn in-cloud single scattering albedo\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: asmc_stoch(:,:,:) ! subcolumn in-cloud asymmetry parameter\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(out) :: fsfc_stoch(:,:,:) ! subcolumn in-cloud forward scattering fraction\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n\n! -- Local variables\n      real(kind=rb) :: cldf(ncol,nlay)                ! cloud fraction \n                                                      !    Dimensions: (ncol,nlay)\n\n! Mean over the subcolumns (cloud fraction, cloud water , cloud ice) - inactive\n!      real(kind=rb) :: mean_cld_stoch(ncol,nlay)     ! cloud fraction \n!      real(kind=rb) :: mean_clwp_stoch(ncol,nlay)    ! cloud water\n!      real(kind=rb) :: mean_ciwp_stoch(ncol,nlay)    ! cloud ice\n!      real(kind=rb) :: mean_tauc_stoch(ncol,nlay)    ! cloud optical depth\n!      real(kind=rb) :: mean_ssac_stoch(ncol,nlay)    ! cloud single scattering albedo\n!      real(kind=rb) :: mean_asmc_stoch(ncol,nlay)    ! cloud asymmetry parameter\n!      real(kind=rb) :: mean_fsfc_stoch(ncol,nlay)    ! cloud forward scattering fraction\n\n! Set overlap\n      integer(kind=im) :: overlap                     ! 1 = random overlap, 2 = maximum/random,\n                                                      ! 3 = maximum overlap, \n!      real(kind=rb), parameter  :: Zo = 2500._rb        ! length scale (m) \n!      real(kind=rb) :: zm(ncon,nlay)                    ! Height of midpoints (above surface)\n!      real(kind=rb), dimension(nlay) :: alpha=0.0_rb    ! overlap parameter  \n\n! Constants (min value for cloud fraction and cloud water and ice)\n      real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction\n!      real(kind=rb), parameter :: qmin   = 1.0e-10_rb   ! min cloud water and cloud ice (not used)\n\n! Variables related to random number and seed \n      real(kind=rb), dimension(nsubcol, ncol, nlay) :: CDF, CDF2       ! random numbers\n      integer(kind=im), dimension(ncol) :: seed1, seed2, seed3, seed4  ! seed to create random number\n      real(kind=rb), dimension(ncol) :: rand_num       ! random number (kissvec)\n      integer(kind=im) :: iseed                        ! seed to create random number (Mersenne Twister)\n      real(kind=rb) :: rand_num_mt                     ! random number (Mersenne Twister)\n\n! Flag to identify cloud fraction in subcolumns\n      logical,  dimension(nsubcol, ncol, nlay) :: isCloudy   ! flag that says whether a gridbox is cloudy\n\n! Indices\n      integer(kind=im) :: ilev, isubcol, i, n, ngbm    ! indices\n\n!------------------------------------------------------------------------------------------ \n\n! Check that irng is in bounds; if not, set to default\n      if (irng .ne. 0) irng = 1\n\n! Pass input cloud overlap setting to local variable\n      overlap = icld\n\n! Ensure that cloud fractions are in bounds \n      do ilev = 1, nlay\n         do i = 1, ncol\n            cldf(i,ilev) = cld(i,ilev)\n            if (cldf(i,ilev) < cldmin) then\n               cldf(i,ilev) = 0._rb\n            endif\n         enddo\n      enddo\n\n! ----- Create seed  --------\n   \n! Advance randum number generator by changeseed values\n      if (irng.eq.0) then   \n! For kissvec, create a seed that depends on the state of the columns. Maybe not the best way, but it works.  \n! Must use pmid from bottom four layers. \n         do i=1,ncol\n            if (pmid(i,1).lt.pmid(i,2)) then\n               stop 'MCICA_SUBCOL: KISSVEC SEED GENERATOR REQUIRES PMID FROM BOTTOM FOUR LAYERS.'\n            endif\n            seed1(i) = (pmid(i,1) - int(pmid(i,1)))  * 1000000000_im\n            seed2(i) = (pmid(i,2) - int(pmid(i,2)))  * 1000000000_im\n            seed3(i) = (pmid(i,3) - int(pmid(i,3)))  * 1000000000_im\n            seed4(i) = (pmid(i,4) - int(pmid(i,4)))  * 1000000000_im\n          enddo\n         do i=1,changeSeed\n            call kissvec(seed1, seed2, seed3, seed4, rand_num)\n         enddo\n      elseif (irng.eq.1) then\n         randomNumbers = new_RandomNumberSequence(seed = changeSeed)\n      endif \n\n\n! ------ Apply overlap assumption --------\n\n! generate the random numbers  \n\n      select case (overlap)\n\n      case(1) \n! Random overlap\n! i) pick a random value at every level\n  \n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               do ilev = 1,nlay\n                  call kissvec(seed1, seed2, seed3, seed4, rand_num)\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  do ilev = 1, nlay\n                     rand_num_mt = getRandomReal(randomNumbers)\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n      case(2) \n! Maximum-Random overlap\n! i) pick  a random number for top layer.\n! ii) walk down the column: \n!    - if the layer above is cloudy, we use the same random number than in the layer above\n!    - if the layer above is clear, we use a new random number \n\n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               do ilev = 1,nlay\n                  call kissvec(seed1, seed2, seed3, seed4, rand_num)\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  do ilev = 1, nlay\n                     rand_num_mt = getRandomReal(randomNumbers)\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n         do ilev = 2,nlay\n            do i = 1, ncol\n               do isubcol = 1, nsubcol\n                  if (CDF(isubcol, i, ilev-1) > 1._rb - cldf(i,ilev-1) ) then\n                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev-1) \n                  else\n                     CDF(isubcol,i,ilev) = CDF(isubcol,i,ilev) * (1._rb - cldf(i,ilev-1)) \n                  endif\n               enddo\n            enddo\n         enddo\n\n      case(3) \n! Maximum overlap\n! i) pick same random numebr at every level  \n\n         if (irng.eq.0) then \n            do isubcol = 1,nsubcol\n               call kissvec(seed1, seed2, seed3, seed4, rand_num)\n               do ilev = 1,nlay\n                  CDF(isubcol,:,ilev) = rand_num\n               enddo\n            enddo\n         elseif (irng.eq.1) then\n            do isubcol = 1, nsubcol\n               do i = 1, ncol\n                  rand_num_mt = getRandomReal(randomNumbers)\n                  do ilev = 1, nlay\n                     CDF(isubcol,i,ilev) = rand_num_mt\n                  enddo\n               enddo\n             enddo\n         endif\n\n!    case(4)  - inactive\n!       ! Exponential overlap: weighting between maximum and random overlap increases with the distance. \n!       ! The random numbers for exponential overlap verify:\n!       ! j=1   RAN(j)=RND1\n!       ! j>1   if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1)\n!       !                                 RAN(j) = RND2\n!       ! alpha is obtained from the equation\n!       ! alpha = exp(- (Zi-Zj-1)/Zo) where Zo is a characteristic length scale    \n\n\n!       ! compute alpha\n!       zm    = state%zm     \n!       alpha(:, 1) = 0._rb\n!       do ilev = 2,nlay\n!          alpha(:, ilev) = exp( -( zm (:, ilev-1) -  zm (:, ilev)) / Zo)\n!       end do\n       \n!       ! generate 2 streams of random numbers\n!       do isubcol = 1,nsubcol\n!          do ilev = 1,nlay\n!             call kissvec(seed1, seed2, seed3, seed4, rand_num)\n!             CDF(isubcol, :, ilev) = rand_num\n!             call kissvec(seed1, seed2, seed3, seed4, rand_num)\n!             CDF2(isubcol, :, ilev) = rand_num\n!          end do\n!       end do\n\n!       ! generate random numbers\n!       do ilev = 2,nlay\n!          where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) )\n!             CDF(:,:,ilev) = CDF(:,:,ilev-1) \n!          end where\n!       end do\n\n      end select\n\n \n! -- generate subcolumns for homogeneous clouds -----\n      do ilev = 1, nlay\n         isCloudy(:,:,ilev) = (CDF(:,:,ilev) >= 1._rb - spread(cldf(:,ilev), dim=1, nCopies=nsubcol) )\n      enddo\n\n! where the subcolumn is cloudy, the subcolumn cloud fraction is 1;\n! where the subcolumn is not cloudy, the subcolumn cloud fraction is 0;\n! where there is a cloud, define the subcolumn cloud properties,\n! otherwise set these to zero\n\n      ngbm = ngb(1) - 1\n      do ilev = 1,nlay\n         do i = 1, ncol\n            do isubcol = 1, nsubcol\n               if ( iscloudy(isubcol,i,ilev) ) then\n                  cld_stoch(isubcol,i,ilev) = 1._rb\n                  clwp_stoch(isubcol,i,ilev) = clwp(i,ilev)\n                  ciwp_stoch(isubcol,i,ilev) = ciwp(i,ilev)\n                  n = ngb(isubcol) - ngbm\n                  tauc_stoch(isubcol,i,ilev) = tauc(n,i,ilev)\n                  ssac_stoch(isubcol,i,ilev) = ssac(n,i,ilev)\n                  asmc_stoch(isubcol,i,ilev) = asmc(n,i,ilev)\n                  fsfc_stoch(isubcol,i,ilev) = fsfc(n,i,ilev)\n               else\n                  cld_stoch(isubcol,i,ilev) = 0._rb\n                  clwp_stoch(isubcol,i,ilev) = 0._rb\n                  ciwp_stoch(isubcol,i,ilev) = 0._rb\n                  tauc_stoch(isubcol,i,ilev) = 0._rb\n                  ssac_stoch(isubcol,i,ilev) = 1._rb\n                  asmc_stoch(isubcol,i,ilev) = 0._rb\n                  fsfc_stoch(isubcol,i,ilev) = 0._rb\n               endif\n            enddo\n         enddo\n      enddo\n\n! -- compute the means of the subcolumns ---\n!      mean_cld_stoch(:,:) = 0._rb\n!      mean_clwp_stoch(:,:) = 0._rb\n!      mean_ciwp_stoch(:,:) = 0._rb\n!      mean_tauc_stoch(:,:) = 0._rb\n!      mean_ssac_stoch(:,:) = 0._rb\n!      mean_asmc_stoch(:,:) = 0._rb\n!      mean_fsfc_stoch(:,:) = 0._rb\n!      do i = 1, nsubcol\n!         mean_cld_stoch(:,:) =  cld_stoch(i,:,:) + mean_cld_stoch(:,:) \n!         mean_clwp_stoch(:,:) =  clwp_stoch( i,:,:) + mean_clwp_stoch(:,:) \n!         mean_ciwp_stoch(:,:) =  ciwp_stoch( i,:,:) + mean_ciwp_stoch(:,:) \n!         mean_tauc_stoch(:,:) =  tauc_stoch( i,:,:) + mean_tauc_stoch(:,:) \n!         mean_ssac_stoch(:,:) =  ssac_stoch( i,:,:) + mean_ssac_stoch(:,:) \n!         mean_asmc_stoch(:,:) =  asmc_stoch( i,:,:) + mean_asmc_stoch(:,:) \n!         mean_fsfc_stoch(:,:) =  fsfc_stoch( i,:,:) + mean_fsfc_stoch(:,:) \n!      end do\n!      mean_cld_stoch(:,:) = mean_cld_stoch(:,:) / nsubcol\n!      mean_clwp_stoch(:,:) = mean_clwp_stoch(:,:) / nsubcol\n!      mean_ciwp_stoch(:,:) = mean_ciwp_stoch(:,:) / nsubcol\n!      mean_tauc_stoch(:,:) = mean_tauc_stoch(:,:) / nsubcol\n!      mean_ssac_stoch(:,:) = mean_ssac_stoch(:,:) / nsubcol\n!      mean_asmc_stoch(:,:) = mean_asmc_stoch(:,:) / nsubcol\n!      mean_fsfc_stoch(:,:) = mean_fsfc_stoch(:,:) / nsubcol\n\n      end subroutine generate_stochastic_clouds_sw\n\n\n!-------------------------------------------------------------------------------------------------- \n      subroutine kissvec(seed1,seed2,seed3,seed4,ran_arr)\n!-------------------------------------------------------------------------------------------------- \n\n! public domain code\n! made available from http://www.fortran.com/\n! downloaded by pjr on 03/16/04 for NCAR CAM\n! converted to vector form, functions inlined by pjr,mvr on 05/10/2004\n\n! The  KISS (Keep It Simple Stupid) random number generator. Combines:\n! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32.\n! (2) A 3-shift shift-register generator, period 2^32-1,\n! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59\n!  Overall period>2^123; \n!\n      real(kind=rb), dimension(:), intent(inout)  :: ran_arr\n      integer(kind=im), dimension(:), intent(inout) :: seed1,seed2,seed3,seed4\n      integer(kind=im) :: i,sz,kiss\n      integer(kind=im) :: m, k, n\n\n! inline function \n      m(k, n) = ieor (k, ishft (k, n) )\n\n      sz = size(ran_arr)\n      do i = 1, sz\n         seed1(i) = 69069_im * seed1(i) + 1327217885_im\n         seed2(i) = m (m (m (seed2(i), 13_im), - 17_im), 5_im)\n         seed3(i) = 18000_im * iand (seed3(i), 65535_im) + ishft (seed3(i), - 16_im)\n         seed4(i) = 30903_im * iand (seed4(i), 65535_im) + ishft (seed4(i), - 16_im)\n         kiss = seed1(i) + seed2(i) + ishft (seed3(i), 16_im) + seed4(i)\n         ran_arr(i) = kiss*2.328306e-10_rb + 0.5_rb\n      end do\n    \n      end subroutine kissvec\n\n      end module mcica_subcol_gen_sw\n\n\n"
  },
  {
    "path": "GeosRad/parkind.F90",
    "content": "      module parkind\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg kinds\n! Define integer and real kinds for various types.\n!\n! Initial version: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!\n!     integer kinds\n!     -------------\n!\n      integer, parameter :: kind_ib = selected_int_kind(13)  ! 8 byte integer\n      integer, parameter :: kind_im = selected_int_kind(6)   ! 4 byte integer\n      integer, parameter :: kind_in = kind(1)                ! native integer\n\n!\n!     real kinds\n!     ----------\n!\n      integer, parameter :: kind_rb = selected_real_kind(12) ! 8 byte real\n      integer, parameter :: kind_rm = selected_real_kind(6)  ! 4 byte real\n      integer, parameter :: kind_rn = kind(1.0)              ! native real\n\n      end module parkind\n"
  },
  {
    "path": "GeosRad/parrrsw.F90",
    "content": "\n      module parrrsw\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw main parameters\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! mxlay  :  integer: maximum number of layers\n! mg     :  integer: number of original g-intervals per spectral band\n! nbndsw :  integer: number of spectral bands\n! naerec :  integer: number of aerosols (iaer=6, ecmwf aerosol option)\n! ngptsw :  integer: total number of reduced g-intervals for rrtmg_lw\n! ngNN   :  integer: number of reduced g-intervals per spectral band\n! ngsNN  :  integer: cumulative number of g-intervals per band\n!------------------------------------------------------------------\n\n      integer(kind=im), parameter :: mxlay  = 203    !jplay, klev\n      integer(kind=im), parameter :: mg     = 16     !jpg\n      integer(kind=im), parameter :: nbndsw = 14     !jpsw, ksw\n      integer(kind=im), parameter :: naerec  = 6     !jpaer\n      integer(kind=im), parameter :: mxmol  = 38\n      integer(kind=im), parameter :: nstr   = 2\n      integer(kind=im), parameter :: nmol   = 7\n! Use for 112 g-point model   \n      integer(kind=im), parameter :: ngptsw = 112    !jpgpt\n! Use for 224 g-point model   \n!      integer(kind=im), parameter :: ngptsw = 224   !jpgpt\n\n! may need to rename these - from v2.6\n      integer(kind=im), parameter :: jpband   = 29\n      integer(kind=im), parameter :: jpb1     = 16   !istart\n      integer(kind=im), parameter :: jpb2     = 29   !iend\n\n      integer(kind=im), parameter :: jmcmu    = 32\n      integer(kind=im), parameter :: jmumu    = 32\n      integer(kind=im), parameter :: jmphi    = 3\n      integer(kind=im), parameter :: jmxang   = 4\n      integer(kind=im), parameter :: jmxstr   = 16\n! ^\n\n! Use for 112 g-point model   \n      integer(kind=im), parameter :: ng16 = 6\n      integer(kind=im), parameter :: ng17 = 12\n      integer(kind=im), parameter :: ng18 = 8\n      integer(kind=im), parameter :: ng19 = 8\n      integer(kind=im), parameter :: ng20 = 10\n      integer(kind=im), parameter :: ng21 = 10\n      integer(kind=im), parameter :: ng22 = 2\n      integer(kind=im), parameter :: ng23 = 10\n      integer(kind=im), parameter :: ng24 = 8\n      integer(kind=im), parameter :: ng25 = 6\n      integer(kind=im), parameter :: ng26 = 6\n      integer(kind=im), parameter :: ng27 = 8\n      integer(kind=im), parameter :: ng28 = 6\n      integer(kind=im), parameter :: ng29 = 12\n\n      integer(kind=im), parameter :: ngs16 = 6\n      integer(kind=im), parameter :: ngs17 = 18\n      integer(kind=im), parameter :: ngs18 = 26\n      integer(kind=im), parameter :: ngs19 = 34\n      integer(kind=im), parameter :: ngs20 = 44\n      integer(kind=im), parameter :: ngs21 = 54\n      integer(kind=im), parameter :: ngs22 = 56\n      integer(kind=im), parameter :: ngs23 = 66\n      integer(kind=im), parameter :: ngs24 = 74\n      integer(kind=im), parameter :: ngs25 = 80\n      integer(kind=im), parameter :: ngs26 = 86\n      integer(kind=im), parameter :: ngs27 = 94\n      integer(kind=im), parameter :: ngs28 = 100\n      integer(kind=im), parameter :: ngs29 = 112\n\n! Use for 224 g-point model   \n!      integer(kind=im), parameter :: ng16 = 16\n!      integer(kind=im), parameter :: ng17 = 16\n!      integer(kind=im), parameter :: ng18 = 16\n!      integer(kind=im), parameter :: ng19 = 16\n!      integer(kind=im), parameter :: ng20 = 16\n!      integer(kind=im), parameter :: ng21 = 16\n!      integer(kind=im), parameter :: ng22 = 16\n!      integer(kind=im), parameter :: ng23 = 16\n!      integer(kind=im), parameter :: ng24 = 16\n!      integer(kind=im), parameter :: ng25 = 16\n!      integer(kind=im), parameter :: ng26 = 16\n!      integer(kind=im), parameter :: ng27 = 16\n!      integer(kind=im), parameter :: ng28 = 16\n!      integer(kind=im), parameter :: ng29 = 16\n\n!      integer(kind=im), parameter :: ngs16 = 16\n!      integer(kind=im), parameter :: ngs17 = 32\n!      integer(kind=im), parameter :: ngs18 = 48\n!      integer(kind=im), parameter :: ngs19 = 64\n!      integer(kind=im), parameter :: ngs20 = 80\n!      integer(kind=im), parameter :: ngs21 = 96\n!      integer(kind=im), parameter :: ngs22 = 112\n!      integer(kind=im), parameter :: ngs23 = 128\n!      integer(kind=im), parameter :: ngs24 = 144\n!      integer(kind=im), parameter :: ngs25 = 160\n!      integer(kind=im), parameter :: ngs26 = 176\n!      integer(kind=im), parameter :: ngs27 = 192\n!      integer(kind=im), parameter :: ngs28 = 208\n!      integer(kind=im), parameter :: ngs29 = 224\n\n! Source function solar constant\n      real(kind=rb), parameter :: rrsw_scon = 1.36822e+03     ! W/m2\n \n      end module parrrsw\n\n\n"
  },
  {
    "path": "GeosRad/parrrtm.F90",
    "content": "\n      module parrrtm\n\n      use parkind ,only : im => kind_im\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw main parameters\n!\n! Initial version:  JJMorcrette, ECMWF, Jul 1998\n! Revised: MJIacono, AER, Jun 2006\n! Revised: MJIacono, AER, Aug 2007\n! Revised: MJIacono, AER, Aug 2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! mxlay  :  integer: maximum number of layers\n! mg     :  integer: number of original g-intervals per spectral band\n! nbndlw :  integer: number of spectral bands\n! maxxsec:  integer: maximum number of cross-section molecules\n!                    (e.g. cfcs)\n! maxinpx:  integer: \n! ngptlw :  integer: total number of reduced g-intervals for rrtmg_lw\n! ngNN   :  integer: number of reduced g-intervals per spectral band\n! ngsNN  :  integer: cumulative number of g-intervals per band\n!------------------------------------------------------------------\n\n      integer(kind=im), parameter :: mxlay  = 203\n      integer(kind=im), parameter :: mg     = 16\n      integer(kind=im), parameter :: nbndlw = 16\n      integer(kind=im), parameter :: maxxsec= 4\n      integer(kind=im), parameter :: mxmol  = 38\n      integer(kind=im), parameter :: maxinpx= 38\n      integer(kind=im), parameter :: nmol   = 7\n! Use for 140 g-point model \n      integer(kind=im), parameter :: ngptlw = 140\n! Use for 256 g-point model \n!      integer(kind=im), parameter :: ngptlw = 256\n\n! Use for 140 g-point model\n      integer(kind=im), parameter :: ng1  = 10\n      integer(kind=im), parameter :: ng2  = 12\n      integer(kind=im), parameter :: ng3  = 16\n      integer(kind=im), parameter :: ng4  = 14\n      integer(kind=im), parameter :: ng5  = 16\n      integer(kind=im), parameter :: ng6  = 8\n      integer(kind=im), parameter :: ng7  = 12\n      integer(kind=im), parameter :: ng8  = 8\n      integer(kind=im), parameter :: ng9  = 12\n      integer(kind=im), parameter :: ng10 = 6\n      integer(kind=im), parameter :: ng11 = 8\n      integer(kind=im), parameter :: ng12 = 8\n      integer(kind=im), parameter :: ng13 = 4\n      integer(kind=im), parameter :: ng14 = 2\n      integer(kind=im), parameter :: ng15 = 2\n      integer(kind=im), parameter :: ng16 = 2\n\n      integer(kind=im), parameter :: ngs1  = 10\n      integer(kind=im), parameter :: ngs2  = 22\n      integer(kind=im), parameter :: ngs3  = 38\n      integer(kind=im), parameter :: ngs4  = 52\n      integer(kind=im), parameter :: ngs5  = 68\n      integer(kind=im), parameter :: ngs6  = 76\n      integer(kind=im), parameter :: ngs7  = 88\n      integer(kind=im), parameter :: ngs8  = 96\n      integer(kind=im), parameter :: ngs9  = 108\n      integer(kind=im), parameter :: ngs10 = 114\n      integer(kind=im), parameter :: ngs11 = 122\n      integer(kind=im), parameter :: ngs12 = 130\n      integer(kind=im), parameter :: ngs13 = 134\n      integer(kind=im), parameter :: ngs14 = 136\n      integer(kind=im), parameter :: ngs15 = 138\n\n! Use for 256 g-point model\n!      integer(kind=im), parameter :: ng1  = 16\n!      integer(kind=im), parameter :: ng2  = 16\n!      integer(kind=im), parameter :: ng3  = 16\n!      integer(kind=im), parameter :: ng4  = 16\n!      integer(kind=im), parameter :: ng5  = 16\n!      integer(kind=im), parameter :: ng6  = 16\n!      integer(kind=im), parameter :: ng7  = 16\n!      integer(kind=im), parameter :: ng8  = 16\n!      integer(kind=im), parameter :: ng9  = 16\n!      integer(kind=im), parameter :: ng10 = 16\n!      integer(kind=im), parameter :: ng11 = 16\n!      integer(kind=im), parameter :: ng12 = 16\n!      integer(kind=im), parameter :: ng13 = 16\n!      integer(kind=im), parameter :: ng14 = 16\n!      integer(kind=im), parameter :: ng15 = 16\n!      integer(kind=im), parameter :: ng16 = 16\n\n!      integer(kind=im), parameter :: ngs1  = 16\n!      integer(kind=im), parameter :: ngs2  = 32\n!      integer(kind=im), parameter :: ngs3  = 48\n!      integer(kind=im), parameter :: ngs4  = 64\n!      integer(kind=im), parameter :: ngs5  = 80\n!      integer(kind=im), parameter :: ngs6  = 96\n!      integer(kind=im), parameter :: ngs7  = 112\n!      integer(kind=im), parameter :: ngs8  = 128\n!      integer(kind=im), parameter :: ngs9  = 144\n!      integer(kind=im), parameter :: ngs10 = 160\n!      integer(kind=im), parameter :: ngs11 = 176\n!      integer(kind=im), parameter :: ngs12 = 192\n!      integer(kind=im), parameter :: ngs13 = 208\n!      integer(kind=im), parameter :: ngs14 = 224\n!      integer(kind=im), parameter :: ngs15 = 240\n!      integer(kind=im), parameter :: ngs16 = 256\n\n      end module parrrtm\n"
  },
  {
    "path": "GeosRad/rad_driver.F90.safe",
    "content": "!------------------------------------------------------------------------------\n!             Atmospheric and Environmental Research (AER Corp.)\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: \n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nSUBROUTINE rad_driver( IIPAR, JJPAR,   NLAY, NCOL, T,     TSKIN,    &\n                       AVGW,  SUNCOS,  DOY,   PEDGE, PCENTER,  &\n                       O3VMR, CH4VMR,TAUCLD,CLDFR,CLIQWP,CICEWP, &\n                       RELIQ,REICE,lw_uflux,lw_dflux,sw_uflux,sw_dflux) \n!\n! !USES:\n\n        use parkind, only : im=>kind_im, rb=>kind_rb\n        use rrlw_con, only: gascon, avogad\n        use parrrtm, only : nbndlw\n        use parrrsw, only : nbndsw,naerec\n        use rrtmg_lw_rad, only : rrtmg_lw\n        use rrtmg_sw_rad, only : rrtmg_sw\n\n        implicit none\n\n!\n\n!\n! !INPUT PARAMETERS: \n!\n  ! Scalars\n  REAL*8,  INTENT(IN) :: DOY\n  INTEGER, INTENT(IN) :: IIPAR\n  INTEGER, INTENT(IN) :: JJPAR\n  INTEGER, INTENT(IN) :: NCOL      !! NCOL = IIPAR*JJPAR\n  INTEGER, INTENT(IN) :: NLAY      !! NLAY = LLPAR\n\n  ! 2-D Arrays\n  REAL*8,  INTENT(IN) :: TSKIN  (IIPAR,JJPAR      )\n  REAL*8,  INTENT(IN) :: SUNCOS (IIPAR*JJPAR      )\n  real (kind=rb), intent(in)   :: o3vmr(ncol,nlay)\n  real (kind=rb), intent(in)   :: ch4vmr(ncol,nlay)\n  real (kind=rb), intent(in)   :: taucld(ncol,nlay)\n  real (kind=rb), intent(in)   :: cldfr(ncol,nlay)\n\n! Common cloud variables\n  real (kind=rb), intent(in)  :: cicewp(ncol,nlay)\n  real (kind=rb), intent(in) :: cliqwp(ncol,nlay)\n  real (kind=rb), intent(in) :: reice(ncol,nlay)\n  real (kind=rb), intent(in) :: reliq(ncol,nlay)\n\n  ! 3-D arrays\n  REAL*8,  INTENT(IN) :: AVGW   (IIPAR,JJPAR,NLAY)\n  REAL*8,  INTENT(IN) :: PEDGE  (IIPAR,JJPAR,NLAY)\n  REAL*8,  INTENT(IN) :: PCENTER(IIPAR,JJPAR,NLAY)\n  REAL*8,  INTENT(IN) :: T      (IIPAR,JJPAR,NLAY)\n!\n! !OUTPUT PARAMETERS:\n  REAL*8, INTENT(INOUT)    :: LW_UFLUX(ncol,nlay+1)\n  REAL*8, INTENT(INOUT)    :: LW_DFLUX(ncol,nlay+1)\n  REAL*8, INTENT(INOUT)    :: SW_UFLUX(ncol,nlay+1)\n  REAL*8, INTENT(INOUT)    :: SW_DFLUX(ncol,nlay+1)\n!\n\n!\n! !RETURN VALUE:\n!\n\n!\n! !REMARKS:\n! \n! \n! !REVISION HISTORY: \n!  01 Oct 1995 - R. Yantosca - Initial version\n!  08 Dec 2009 - R. Yantosca - Added ProTeX headers\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n\n\n  ! Flags and dimensions\n  integer (kind=im) :: icld, idrv\n  integer (kind=im) :: inflglw, iceflglw,liqflglw\n  integer (kind=im) :: inflgsw, iceflgsw,liqflgsw\n\n\n! Profile variables\n  real (kind=rb)  :: play(ncol,nlay)\n  real (kind=rb)  :: plev(ncol,nlay+1)\n  real (kind=rb)  :: tlay(ncol,nlay)\n  real (kind=rb)  :: tlev(ncol,nlay+1)\n  real (kind=rb)  :: h2ovmr(ncol,nlay)\n  real (kind=rb)  :: co2vmr(ncol,nlay)\n  real (kind=rb)  :: n2ovmr(ncol,nlay)\n  real (kind=rb)  :: o2vmr(ncol,nlay)\n  real (kind=rb)  :: cfc11vmr(ncol,nlay)\n  real (kind=rb)  :: cfc12vmr(ncol,nlay)\n  real (kind=rb)  :: cfc22vmr(ncol,nlay)\n  real (kind=rb)  :: ccl4vmr(ncol,nlay)\n  \n  \n! LW Surface variables\n  real (kind=rb)  :: emis(ncol,nbndlw)\n  real (kind=rb)  :: tsfc(ncol)\n\n!  LW Cloud variables\n  real (kind=rb)  :: taucld_lw(nbndlw,ncol,nlay)\n\n! SW Surface variables\n  real(kind=rb)  :: asdir(ncol)          ! UV/vis surface albedo direct rad\n                                         !    Dimensions: (ncol)\n  real(kind=rb) :: aldir(ncol)           ! Near-IR surface albedo direct rad\n                                         !    Dimensions: (ncol)             \n  real(kind=rb) :: asdif(ncol)           ! UV/vis surface albedo: diffuse rad\n                                         !    Dimensions: (ncol)\n  real(kind=rb) :: aldif(ncol)           ! Near-IR surface albedo: diffuse rad\n                                         !    Dimensions: (ncol)\n! SW solar variables\n  integer(kind=im) :: dyofyr               ! Day of the year (used to get Earth/Sun\n                                               !  distance if adjflx not provided)\n  real(kind=rb)  :: adjes=1.0              ! Flux adjustment for Earth/Sun distance\n  real(kind=rb)  :: coszen(ncol)           ! Cosine of solar zenith angle\n                                               !    Dimensions: (ncol)\n  real(kind=rb)  :: scon=1368.22           ! Solar constant (W/m2)\n\n! SW cloud variables\n\n   real(kind=rb)  :: taucld_sw(nbndsw,ncol,nlay)   ! In-cloud optical depth\n                                                       !    Dimensions: (nbndsw,ncol,nlay)\n   real(kind=rb)  :: ssacld(nbndsw,ncol,nlay)      ! In-cloud single scattering albedo\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n   real(kind=rb)  :: asmcld(nbndsw,ncol,nlay)      ! In-cloud asymmetry parameter\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n   real(kind=rb)  :: fsfcld(nbndsw,ncol,nlay)      ! In-cloud forward scattering fraction\n                                                      !    Dimensions: (nbndsw,ncol,nlay)\n\n! Aerosol variables\n!  LW\n  real (kind=rb)  :: tauaer_lw(ncol,nlay,nbndlw)\n\n!SW\n   real(kind=rb)   :: tauaer_sw(ncol,nlay,nbndsw)  ! Aerosol optical depth (iaer=10 only)\n                                                      !    Dimensions: (ncol,nlay,nbndsw)\n                                                      ! (non-delta scaled)      \n   real(kind=rb)   :: ssaaer(ncol,nlay,nbndsw)     ! Aerosol single scattering albedo (iaer=10 only)\n                                                      !    Dimensions: (ncol,nlay,nbndsw)\n                                                      ! (non-delta scaled)      \n\n   real(kind=rb) :: asmaer(ncol,nlay,nbndsw)       ! Aerosol asymmetry parameter (iaer=10 only)\n                                                      !    Dimensions: !    (ncol,nlay,nbndsw)\n   real(kind=rb) :: ecaer(ncol,nlay,naerec)        ! Aerosol optical depth at 0.55 micron (iaer=6 only)\n                                                      !    Dimensions: !    (ncol,nlay,naerec)\n\n\n! Longwave Flux variables\n  real(kind=rb)  :: uflx(ncol,nlay+1)         ! Total sky longwave upward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n\n  real(kind=rb) :: dflx(ncol,nlay+1) ! Total sky longwave downward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: hr(ncol,nlay)   ! Total sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay)\n  real(kind=rb) :: uflxc(ncol,nlay+1)! Clear sky longwave upward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: dflxc(ncol,nlay+1)! Clear sky longwave downward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: hrc(ncol,nlay) ! Clear sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay)\n\n!- Optional Output\n  real(kind=rb) :: duflx_dt(ncol,nlay)\n                                                      ! change in upward  longwave flux  (w/m2/k)\n                                                      ! with respect to  surface  temperature\n                                                      !    Dimensions:     (ncol,nlay)\n  real(kind=rb) :: duflxc_dt(ncol,nlay)\n                                                      ! change in clear  sky upward  longwave flux  (w/m2/k)\n                                                      ! with respect to  surface  temperature\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay)\n\n! Shortwave flux variables\n! ----- Output -----\n\n  real(kind=rb)  :: swuflx(ncol,nlay+1)       ! Total sky shortwave upward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: swdflx(ncol,nlay+1)       ! Total sky shortwave downward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: swhr(ncol,nlay)         ! Total sky shortwave radiative heating rate (K/d)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay)\n  real(kind=rb) :: swuflxc(ncol,nlay+1)      ! Clear sky shortwave upward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: swdflxc(ncol,nlay+1)      ! Clear sky shortwave downward flux (W/m2)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay+1)\n  real(kind=rb) :: swhrc(ncol,nlay)        ! Clear sky shortwave radiative heating rate (K/d)\n                                                      !    Dimensions:\n                                                      !    (ncol,nlay)\n\n\n! Local variables\n  integer  :: i, j, l, ib, jloop, ijloop\n  real*8 :: gcair \n  real*8 :: rhoa, rhob, rhosum\n  real*8 :: hr_temp\n  real (kind=rb)   :: cldfr_sw(ncol,nlay)\n\n! Pressure related variables\n  real*8   :: plev_temp(ncol,nlay)\n\n   \n!Shape array for reshaping arrays from 3D to 2D (nlon,nlat,nlay) to (ncol,nlay)\n  integer :: ishape1(1) \n  integer :: ishape2(2) \n\n  ishape1(1) = ncol\n  ishape2(1) = ncol\n  ishape2(2) = nlay\n\n  print *,'rad_driver'\n! Gridding is somewhat difficult\n! GC provides variables at the center of grid boxes (including T and P)\n! I will assume these are layer values (in RRTMG language) and calculate\n! the values at the edges and call them level values (sort of backwards\n! from what we usually do)\n\n\n\n! Reshape arrays from GC to reduce to 2D\n       h2ovmr = reshape(avgw,ishape2)\n       tlay = reshape(t,ishape2)\n       play = reshape(pcenter,ishape2)\n       plev_temp = reshape(pedge,ishape2)\n       tsfc = reshape(tskin,ishape1)\n\n! Get level values\n       gcair = 1.0e-3*gascon/avogad\n       do i=1,ncol\n          plev(i,1) = plev_temp(i,1)     ! set lowest level to surface pressure\n          tlev(i,1) = tlay(i,1)     ! set lowest level to layer temperature  (KLUDGE)\n          plev(i,nlay+1) = play(i,nlay)\n          tlev(i,nlay+1) = tlay(i,nlay)\n          do l=2,nlay\n             rhoa = play(i,l-1)/(gcair*tlay(i,l-1))\n             rhob = play(i,l)/(gcair*tlay(i,l))\n             rhosum = rhoa+rhob\n             plev(i,l) = (rhoa*play(i,l-1)+rhob*play(i,l))/rhosum\n             tlev(i,l) = (rhoa*tlay(i,l-1)+rhob*tlay(i,l))/rhosum\n          end do\n       end do\n\n! Fill co2, n2o and o2 arrays with reasonable atmospheric values   \n\n       co2vmr(:,:) = 3.90e-4\n       n2ovmr(:,:) = 3.20e-7\n       o2vmr(:,:) =  0.209\n       emis(:,:) = 0.99\n       \n\n! Turn off CFCs, aerosols for now\n       cfc11vmr(:,:) = 0.0\n       cfc12vmr(:,:) = 0.0\n       cfc22vmr(:,:) = 0.0\n       ccl4vmr(:,:) = 0.0\n\n\n       asdir(:) = 0.01\n       aldir(:) = 0.01\n       asdif(:) = 0.01\n       aldif(:) = 0.01\n\n       \n       ssacld(:,:,:) = 0.0\n       asmcld(:,:,:) = 0.0\n       fsfcld(:,:,:) = 0.0\n\n       tauaer_lw (:,:,:) = 0.0\n       tauaer_sw (:,:,:) = 0.0\n       ssaaer(:,:,:) = 0.0\n       asmaer(:,:,:) = 0.0\n\n!  Cloud setup for clear\n!      idrv = 0\n!      icld = 0\n!      inflglw = 0\n!      inflgsw = 0\n!      do ib=1,nbndlw\n!         taucld_lw(ib,:,:) = 0.0\n!         taucld_sw(ib,:,:) = 0.0\n!      end do\n!      iceflglw = 0       !Streamer\n!      liqflglw = 0       !Hu and Stamnes\n!      iceflgsw = 0       !Streamer\n!      liqflgsw = 0       !Hu and Stamnes\n\n!  Cloud setup for grey cloud\n!      idrv = 0\n!      icld = 1\n!      inflglw = 0\n!      inflgsw = 0\n!      do ib=1,nbndlw\n!         taucld_lw(ib,:,:) = taucld(:,:)\n!         taucld_sw(ib,:,:) = taucld(:,:)\n!      end do\n!      iceflglw = 0       !Streamer\n!      liqflglw = 0       !Hu and Stamnes\n!      iceflgsw = 0       !Streamer\n!      liqflgsw = 0       !Hu and Stamnes\n\n!  Cloud setup for spectral cloud\n       idrv = 0\n       icld = 1\n       inflglw = 2\n       inflgsw = 2\n       do ib=1,nbndlw\n          taucld_lw(ib,:,:) = 0.0\n          taucld_sw(ib,:,:) = 0.0\n       end do\n       iceflglw = 2       !Streamer\n       liqflglw = 1       !Hu and Stamnes\n       iceflgsw = 2       !Streamer\n       liqflgsw = 1       !Hu and Stamnes\n\n\n! Set solar variables\n       coszen = suncos\n       dyofyr = doy\n\n\n! Initialize fluxes to avoid nasty surprises\n        uflx(:,:) = 0.0 \n        dflx(:,:) = 0.0 \n        hr(:,:) = 0.0 \n        uflxc(:,:) = 0.0 \n        dflxc(:,:) = 0.0 \n        hrc(:,:) = 0.0 \n        duflx_dt(:,:) = 0.0 \n        duflxc_dt(:,:) = 0.0 \n\n        swuflx(:,:) = 0.0 \n        swdflx(:,:) = 0.0 \n        swhr(:,:) = 0.0 \n        swuflxc(:,:) = 0.0 \n        swdflxc(:,:) = 0.0 \n        swhrc(:,:) = 0.0 \n\n        open (86,file='RRTMG_OUTPUT',form='formatted')\n        print *,'will call rrtmg_lw'\n        call rrtmg_lw &\n            (ncol    ,nlay    ,icld    ,idrv    , &\n             play    ,plev    ,tlay    ,tlev    ,tsfc    , &\n             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &\n             cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &\n             inflglw ,iceflglw,liqflglw,cldfr   , &\n             taucld_lw  ,cicewp  ,cliqwp  ,reice   ,reliq   , &\n             tauaer_lw  , &\n             uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &\n             duflx_dt,duflxc_dt )\n         \n       do ib=1,nbndsw\n          cldfr_sw(:,:) = 1.0\n       end do\n\n        print *,'will call rrtmg_sw'\n        call rrtmg_sw &\n            (ncol    ,nlay    ,icld    , &\n             play    ,plev    ,tlay    ,tlev    ,tsfc    , &\n             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &\n             asdir   ,asdif   ,aldir   ,aldif   , &  \n             coszen  ,adjes   ,dyofyr  ,scon    , &  \n             inflgsw ,iceflgsw,liqflgsw,cldfr_sw   , &  \n             taucld_sw  ,ssacld  ,asmcld  ,fsfcld  , &  \n             cicewp  ,cliqwp  ,reice   ,reliq   , &  \n             tauaer_sw  ,ssaaer  ,asmaer  ,ecaer   , &  \n             swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc)\n!\n             lw_uflux = uflx\n             lw_dflux = dflx\n             sw_uflux = swuflx\n             sw_dflux = swdflx\n!         \n             do i=1,ncol,10\n                write (86,100) i,tsfc(i),  coszen(i), maxval(taucld_lw(1,i,:)*cldfr(i,:)), &\n                uflx(i,1),uflx(i,nlay+1),dflx(i,1),dflx(i,nlay+1), &\n                swuflx(i,1),swuflx(i,nlay+1),swdflx(i,1),swdflx(i,nlay+1)\n             end do\n             close(86)\n\n!       \n\n100          format (i10,3f10.2,8f15.3)\n\n\n        return\n\n        end subroutine rad_driver\n"
  },
  {
    "path": "GeosRad/rrlw_cld.F90",
    "content": "      module rrlw_cld\n\n      use parkind, only : rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw cloud property coefficients\n\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! abscld1:  real   : \n! absice0:  real   : \n! absice1:  real   : \n! absice2:  real   : \n! absice3:  real   : \n! absliq0:  real   : \n! absliq1:  real   : \n!------------------------------------------------------------------\n\n      real(kind=rb) :: abscld1\n      real(kind=rb) , dimension(2) :: absice0\n      real(kind=rb) , dimension(2,5) :: absice1\n      real(kind=rb) , dimension(43,16) :: absice2\n      real(kind=rb) , dimension(46,16) :: absice3\n      real(kind=rb) :: absliq0\n      real(kind=rb) , dimension(58,16) :: absliq1\n\n      end module rrlw_cld\n\n"
  },
  {
    "path": "GeosRad/rrlw_con.F90",
    "content": "      module rrlw_con\n\n      use parkind, only : rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw constants\n\n! Initial version: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! fluxfac:  real   : radiance to flux conversion factor \n! heatfac:  real   : flux to heating rate conversion factor\n!oneminus:  real   : 1.-1.e-6\n! pi     :  real   : pi\n! grav   :  real   : acceleration of gravity\n! planck :  real   : planck constant\n! boltz  :  real   : boltzmann constant\n! clight :  real   : speed of light\n! avogad :  real   : avogadro constant \n! alosmt :  real   : loschmidt constant\n! gascon :  real   : molar gas constant\n! radcn1 :  real   : first radiation constant\n! radcn2 :  real   : second radiation constant\n! sbcnst :  real   : stefan-boltzmann constant\n!  secdy :  real   : seconds per day  \n!------------------------------------------------------------------\n\n      real(kind=rb) :: fluxfac, heatfac\n      real(kind=rb) :: oneminus, pi, grav\n      real(kind=rb) :: planck, boltz, clight\n      real(kind=rb) :: avogad, alosmt, gascon\n      real(kind=rb) :: radcn1, radcn2\n      real(kind=rb) :: sbcnst, secdy\n\n      end module rrlw_con\n\n"
  },
  {
    "path": "GeosRad/rrlw_kg01.F90",
    "content": "      module rrlw_kg01\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 1\n! band 1:  10-250 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real\n! kao     : real     \n! kbo     : real     \n! kao_mn2 : real     \n! kbo_mn2 : real     \n! selfrefo: real     \n! forrefo : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no1  = 16\n\n      real(kind=rb) :: fracrefao(no1)  , fracrefbo(no1)\n      real(kind=rb) :: kao(5,13,no1)\n      real(kind=rb) :: kbo(5,13:59,no1)\n      real(kind=rb) :: kao_mn2(19,no1) , kbo_mn2(19,no1)\n      real(kind=rb) :: selfrefo(10,no1), forrefo(4,no1)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 1\n! band 1:  10-250 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! ka_mn2  : real     \n! kb_mn2  : real     \n! selfref : real     \n! forref  : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng1  = 10\n\n      real(kind=rb) :: fracrefa(ng1)  , fracrefb(ng1)\n      real(kind=rb) :: ka(5,13,ng1)   , absa(65,ng1)\n      real(kind=rb) :: kb(5,13:59,ng1), absb(235,ng1)\n      real(kind=rb) :: ka_mn2(19,ng1) , kb_mn2(19,ng1)\n      real(kind=rb) :: selfref(10,ng1), forref(4,ng1)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg01\n\n\n\n\n"
  },
  {
    "path": "GeosRad/rrlw_kg02.F90",
    "content": "      module rrlw_kg02\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 2\n! band 2:  250-500 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no2  = 16\n\n      real(kind=rb) :: fracrefao(no2)   , fracrefbo(no2)\n      real(kind=rb) :: kao(5,13,no2)\n      real(kind=rb) :: kbo(5,13:59,no2)\n      real(kind=rb) :: selfrefo(10,no2) , forrefo(4,no2)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 2\n! band 2:  250-500 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n!\n! refparam: real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng2  = 12\n\n      real(kind=rb) :: fracrefa(ng2)  , fracrefb(ng2)\n      real(kind=rb) :: ka(5,13,ng2)   , absa(65,ng2)\n      real(kind=rb) :: kb(5,13:59,ng2), absb(235,ng2)\n      real(kind=rb) :: selfref(10,ng2), forref(4,ng2)\n\n      real(kind=rb) :: refparam(13)\n\n      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg02\n\n\n"
  },
  {
    "path": "GeosRad/rrlw_kg03.F90",
    "content": "      module rrlw_kg03\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 3\n! band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real\n! kao     : real     \n! kbo     : real     \n! kao_mn2o: real     \n! kbo_mn2o: real     \n! selfrefo: real     \n! forrefo : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no3  = 16\n\n      real(kind=rb) :: fracrefao(no3,9) ,fracrefbo(no3,5)\n      real(kind=rb) :: kao(9,5,13,no3)\n      real(kind=rb) :: kbo(5,5,13:59,no3)\n      real(kind=rb) :: kao_mn2o(9,19,no3), kbo_mn2o(5,19,no3)\n      real(kind=rb) :: selfrefo(10,no3)\n      real(kind=rb) :: forrefo(4,no3)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 3\n! band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real\n! ka      : real     \n! kb      : real     \n! ka_mn2o : real     \n! kb_mn2o : real     \n! selfref : real     \n! forref  : real\n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng3  = 16\n\n      real(kind=rb) :: fracrefa(ng3,9) ,fracrefb(ng3,5)\n      real(kind=rb) :: ka(9,5,13,ng3)  ,absa(585,ng3)\n      real(kind=rb) :: kb(5,5,13:59,ng3),absb(1175,ng3)\n      real(kind=rb) :: ka_mn2o(9,19,ng3), kb_mn2o(5,19,ng3)\n      real(kind=rb) :: selfref(10,ng3)\n      real(kind=rb) :: forref(4,ng3)\n\n      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))\n\n      end module rrlw_kg03\n\n\n"
  },
  {
    "path": "GeosRad/rrlw_kg04.F90",
    "content": "      module rrlw_kg04\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 4\n! band 4:  630-700 cm-1 (low - h2o,co2; high - o3,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no4  = 16\n\n      real(kind=rb) :: fracrefao(no4,9)  ,fracrefbo(no4,5)\n      real(kind=rb) :: kao(9,5,13,no4)\n      real(kind=rb) :: kbo(5,5,13:59,no4)\n      real(kind=rb) :: selfrefo(10,no4)  ,forrefo(4,no4)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 4\n! band 4:  630-700 cm-1 (low - h2o,co2; high - o3,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! absa    : real\n! absb    : real\n!fracrefa : real    \n!fracrefb : real\n! ka      : real     \n! kb      : real     \n! selfref : real     \n! forref  : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng4  = 14\n\n      real(kind=rb) :: fracrefa(ng4,9)  ,fracrefb(ng4,5)\n      real(kind=rb) :: ka(9,5,13,ng4)   ,absa(585,ng4)\n      real(kind=rb) :: kb(5,5,13:59,ng4),absb(1175,ng4)\n      real(kind=rb) :: selfref(10,ng4)  ,forref(4,ng4)\n\n      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))\n\n      end module rrlw_kg04\n"
  },
  {
    "path": "GeosRad/rrlw_kg05.F90",
    "content": "      module rrlw_kg05\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 5\n! band 5:  700-820 cm-1 (low - h2o,co2; high - o3,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real\n! kao     : real     \n! kbo     : real     \n! kao_mo3 : real     \n! selfrefo: real     \n! forrefo : real     \n! ccl4o   : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no5  = 16\n\n      real(kind=rb) :: fracrefao(no5,9) ,fracrefbo(no5,5)\n      real(kind=rb) :: kao(9,5,13,no5)\n      real(kind=rb) :: kbo(5,5,13:59,no5)\n      real(kind=rb) :: kao_mo3(9,19,no5)\n      real(kind=rb) :: selfrefo(10,no5)\n      real(kind=rb) :: forrefo(4,no5)\n      real(kind=rb) :: ccl4o(no5)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 5\n! band 5:  700-820 cm-1 (low - h2o,co2; high - o3,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real\n! ka      : real     \n! kb      : real     \n! ka_mo3  : real     \n! selfref : real     \n! forref  : real     \n! ccl4    : real\n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng5  = 16\n\n      real(kind=rb) :: fracrefa(ng5,9) ,fracrefb(ng5,5)\n      real(kind=rb) :: ka(9,5,13,ng5)   ,absa(585,ng5)\n      real(kind=rb) :: kb(5,5,13:59,ng5),absb(1175,ng5)\n      real(kind=rb) :: ka_mo3(9,19,ng5)\n      real(kind=rb) :: selfref(10,ng5)\n      real(kind=rb) :: forref(4,ng5)\n      real(kind=rb) :: ccl4(ng5)\n      \n      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,1,13,1),absb(1,1))\n\n      end module rrlw_kg05\n\n"
  },
  {
    "path": "GeosRad/rrlw_kg06.F90",
    "content": "      module rrlw_kg06\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 6\n! band 6:  820-980 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n! kao     : real     \n! kao_mco2: real     \n! selfrefo: real     \n! forrefo : real     \n!cfc11adjo: real\n! cfc12o  : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no6  = 16\n\n      real(kind=rb) , dimension(no6) :: fracrefao\n      real(kind=rb) :: kao(5,13,no6)\n      real(kind=rb) :: kao_mco2(19,no6)\n      real(kind=rb) :: selfrefo(10,no6)\n      real(kind=rb) :: forrefo(4,no6)\n\n      real(kind=rb) , dimension(no6) :: cfc11adjo\n      real(kind=rb) , dimension(no6) :: cfc12o\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 6\n! band 6:  820-980 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n! ka      : real     \n! ka_mco2 : real     \n! selfref : real     \n! forref  : real     \n!cfc11adj : real\n! cfc12   : real\n!\n! absa    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng6  = 8\n\n      real(kind=rb) , dimension(ng6) :: fracrefa\n      real(kind=rb) :: ka(5,13,ng6),absa(65,ng6)\n      real(kind=rb) :: ka_mco2(19,ng6)\n      real(kind=rb) :: selfref(10,ng6)\n      real(kind=rb) :: forref(4,ng6)\n\n      real(kind=rb) , dimension(ng6) :: cfc11adj\n      real(kind=rb) , dimension(ng6) :: cfc12\n\n      equivalence (ka(1,1,1),absa(1,1))\n\n      end module rrlw_kg06\n"
  },
  {
    "path": "GeosRad/rrlw_kg07.F90",
    "content": "      module rrlw_kg07\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 7\n! band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! kao_mco2: real     \n! kbo_mco2: real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no7  = 16\n\n      real(kind=rb) , dimension(no7) :: fracrefbo\n      real(kind=rb) :: fracrefao(no7,9)\n      real(kind=rb) :: kao(9,5,13,no7)\n      real(kind=rb) :: kbo(5,13:59,no7)\n      real(kind=rb) :: kao_mco2(9,19,no7)\n      real(kind=rb) :: kbo_mco2(19,no7)\n      real(kind=rb) :: selfrefo(10,no7)\n      real(kind=rb) :: forrefo(4,no7)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 7\n! band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real    \n! ka      : real     \n! kb      : real     \n! ka_mco2 : real     \n! kb_mco2 : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng7  = 12\n\n      real(kind=rb) , dimension(ng7) :: fracrefb\n      real(kind=rb) :: fracrefa(ng7,9)\n      real(kind=rb) :: ka(9,5,13,ng7) ,absa(585,ng7)\n      real(kind=rb) :: kb(5,13:59,ng7),absb(235,ng7)\n      real(kind=rb) :: ka_mco2(9,19,ng7)\n      real(kind=rb) :: kb_mco2(19,ng7)\n      real(kind=rb) :: selfref(10,ng7)\n      real(kind=rb) :: forref(4,ng7)\n\n      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg07\n"
  },
  {
    "path": "GeosRad/rrlw_kg08.F90",
    "content": "      module rrlw_kg08\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 8\n! band 8:  1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! kao_mco2: real     \n! kbo_mco2: real     \n! kao_mn2o: real     \n! kbo_mn2o: real     \n! kao_mo3 : real     \n! selfrefo: real     \n! forrefo : real     \n! cfc12o  : real     \n!cfc22adjo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no8  = 16\n\n      real(kind=rb) , dimension(no8) :: fracrefao\n      real(kind=rb) , dimension(no8) :: fracrefbo\n      real(kind=rb) , dimension(no8) :: cfc12o\n      real(kind=rb) , dimension(no8) :: cfc22adjo\n\n      real(kind=rb) :: kao(5,13,no8)\n      real(kind=rb) :: kao_mco2(19,no8)\n      real(kind=rb) :: kao_mn2o(19,no8)\n      real(kind=rb) :: kao_mo3(19,no8)\n      real(kind=rb) :: kbo(5,13:59,no8)\n      real(kind=rb) :: kbo_mco2(19,no8)\n      real(kind=rb) :: kbo_mn2o(19,no8)\n      real(kind=rb) :: selfrefo(10,no8)\n      real(kind=rb) :: forrefo(4,no8)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 8\n! band 8:  1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real    \n! ka      : real     \n! kb      : real     \n! ka_mco2 : real     \n! kb_mco2 : real     \n! ka_mn2o : real     \n! kb_mn2o : real     \n! ka_mo3  : real     \n! selfref : real     \n! forref  : real     \n! cfc12   : real     \n! cfc22adj: real     \n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng8  = 8\n\n      real(kind=rb) , dimension(ng8) :: fracrefa\n      real(kind=rb) , dimension(ng8) :: fracrefb\n      real(kind=rb) , dimension(ng8) :: cfc12\n      real(kind=rb) , dimension(ng8) :: cfc22adj\n\n      real(kind=rb) :: ka(5,13,ng8)    ,absa(65,ng8)\n      real(kind=rb) :: kb(5,13:59,ng8) ,absb(235,ng8)\n      real(kind=rb) :: ka_mco2(19,ng8)\n      real(kind=rb) :: ka_mn2o(19,ng8)\n      real(kind=rb) :: ka_mo3(19,ng8)\n      real(kind=rb) :: kb_mco2(19,ng8)\n      real(kind=rb) :: kb_mn2o(19,ng8)\n      real(kind=rb) :: selfref(10,ng8)\n      real(kind=rb) :: forref(4,ng8)\n\n      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg08\n\n"
  },
  {
    "path": "GeosRad/rrlw_kg09.F90",
    "content": "      module rrlw_kg09\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 9\n! band 9:  1180-1390 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! kao_mn2o: real     \n! kbo_mn2o: real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no9  = 16\n\n      real(kind=rb) , dimension(no9) :: fracrefbo\n\n      real(kind=rb) :: fracrefao(no9,9)\n      real(kind=rb) :: kao(9,5,13,no9)\n      real(kind=rb) :: kbo(5,13:59,no9)\n      real(kind=rb) :: kao_mn2o(9,19,no9)\n      real(kind=rb) :: kbo_mn2o(19,no9)\n      real(kind=rb) :: selfrefo(10,no9)\n      real(kind=rb) :: forrefo(4,no9)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 9\n! band 9:  1180-1390 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real    \n! ka      : real     \n! kb      : real     \n! ka_mn2o : real     \n! kb_mn2o : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng9  = 12\n\n      real(kind=rb) , dimension(ng9) :: fracrefb\n      real(kind=rb) :: fracrefa(ng9,9)\n      real(kind=rb) :: ka(9,5,13,ng9) ,absa(585,ng9)\n      real(kind=rb) :: kb(5,13:59,ng9) ,absb(235,ng9)\n      real(kind=rb) :: ka_mn2o(9,19,ng9)\n      real(kind=rb) :: kb_mn2o(19,ng9)\n      real(kind=rb) :: selfref(10,ng9)\n      real(kind=rb) :: forref(4,ng9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg09\n"
  },
  {
    "path": "GeosRad/rrlw_kg10.F90",
    "content": "      module rrlw_kg10\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 10\n! band 10:  1390-1480 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no10 = 16\n\n      real(kind=rb) , dimension(no10) :: fracrefao\n      real(kind=rb) , dimension(no10) :: fracrefbo\n\n      real(kind=rb) :: kao(5,13,no10)\n      real(kind=rb) :: kbo(5,13:59,no10)\n      real(kind=rb) :: selfrefo(10,no10)\n      real(kind=rb) :: forrefo(4,no10)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 10\n! band 10:  1390-1480 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng10 = 6\n\n      real(kind=rb) , dimension(ng10) :: fracrefa\n      real(kind=rb) , dimension(ng10) :: fracrefb\n\n      real(kind=rb) :: ka(5,13,ng10)   , absa(65,ng10)\n      real(kind=rb) :: kb(5,13:59,ng10), absb(235,ng10)\n      real(kind=rb) :: selfref(10,ng10)\n      real(kind=rb) :: forref(4,ng10)\n\n      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg10\n"
  },
  {
    "path": "GeosRad/rrlw_kg11.F90",
    "content": "      module rrlw_kg11\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 11\n! band 11:  1480-1800 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! kao_mo2 : real     \n! kbo_mo2 : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no11 = 16\n\n      real(kind=rb) , dimension(no11) :: fracrefao\n      real(kind=rb) , dimension(no11) :: fracrefbo\n\n      real(kind=rb) :: kao(5,13,no11)\n      real(kind=rb) :: kbo(5,13:59,no11)\n      real(kind=rb) :: kao_mo2(19,no11)\n      real(kind=rb) :: kbo_mo2(19,no11)\n      real(kind=rb) :: selfrefo(10,no11)\n      real(kind=rb) :: forrefo(4,no11)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 11\n! band 11:  1480-1800 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real    \n! ka      : real     \n! kb      : real     \n! ka_mo2  : real     \n! kb_mo2  : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng11 = 8\n\n      real(kind=rb) , dimension(ng11) :: fracrefa\n      real(kind=rb) , dimension(ng11) :: fracrefb\n\n      real(kind=rb) :: ka(5,13,ng11)   , absa(65,ng11)\n      real(kind=rb) :: kb(5,13:59,ng11), absb(235,ng11)\n      real(kind=rb) :: ka_mo2(19,ng11)\n      real(kind=rb) :: kb_mo2(19,ng11)\n      real(kind=rb) :: selfref(10,ng11)\n      real(kind=rb) :: forref(4,ng11)\n\n      equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg11\n"
  },
  {
    "path": "GeosRad/rrlw_kg12.F90",
    "content": "      module rrlw_kg12\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 12\n! band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n! kao     : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no12 = 16\n\n      real(kind=rb) :: fracrefao(no12,9)\n      real(kind=rb) :: kao(9,5,13,no12)\n      real(kind=rb) :: selfrefo(10,no12)\n      real(kind=rb) :: forrefo(4,no12)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 12\n! band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n! ka      : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng12 = 8\n\n      real(kind=rb) :: fracrefa(ng12,9)\n      real(kind=rb) :: ka(9,5,13,ng12) ,absa(585,ng12)\n      real(kind=rb) :: selfref(10,ng12)\n      real(kind=rb) :: forref(4,ng12)\n\n      equivalence (ka(1,1,1,1),absa(1,1))\n\n      end module rrlw_kg12\n"
  },
  {
    "path": "GeosRad/rrlw_kg13.F90",
    "content": "      module rrlw_kg13\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 13\n! band 13:  2080-2250 cm-1 (low - h2o,n2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n! kao     : real     \n! kao_mco2: real     \n! kao_mco : real     \n! kbo_mo3 : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no13 = 16\n\n      real(kind=rb) , dimension(no13) :: fracrefbo\n\n      real(kind=rb) :: fracrefao(no13,9)\n      real(kind=rb) :: kao(9,5,13,no13)\n      real(kind=rb) :: kao_mco2(9,19,no13)\n      real(kind=rb) :: kao_mco(9,19,no13)\n      real(kind=rb) :: kbo_mo3(19,no13)\n      real(kind=rb) :: selfrefo(10,no13)\n      real(kind=rb) :: forrefo(4,no13)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 13\n! band 13:  2080-2250 cm-1 (low - h2o,n2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n! ka      : real     \n! ka_mco2 : real     \n! ka_mco  : real     \n! kb_mo3  : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng13 = 4\n\n      real(kind=rb) , dimension(ng13) :: fracrefb\n\n      real(kind=rb) :: fracrefa(ng13,9)\n      real(kind=rb) :: ka(9,5,13,ng13) ,absa(585,ng13)\n      real(kind=rb) :: ka_mco2(9,19,ng13)\n      real(kind=rb) :: ka_mco(9,19,ng13)\n      real(kind=rb) :: kb_mo3(19,ng13)\n      real(kind=rb) :: selfref(10,ng13)\n      real(kind=rb) :: forref(4,ng13)\n\n      equivalence (ka(1,1,1,1),absa(1,1))\n\n      end module rrlw_kg13\n"
  },
  {
    "path": "GeosRad/rrlw_kg14.F90",
    "content": "      module rrlw_kg14\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 14\n! band 14:  2250-2380 cm-1 (low - co2; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n!fracrefbo: real    \n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no14 = 16\n\n      real(kind=rb) , dimension(no14) :: fracrefao\n      real(kind=rb) , dimension(no14) :: fracrefbo\n\n      real(kind=rb) :: kao(5,13,no14)\n      real(kind=rb) :: kbo(5,13:59,no14)\n      real(kind=rb) :: selfrefo(10,no14)\n      real(kind=rb) :: forrefo(4,no14)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 14\n! band 14:  2250-2380 cm-1 (low - co2; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n!fracrefb : real    \n! ka      : real     \n! kb      : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng14 = 2\n\n      real(kind=rb) , dimension(ng14) :: fracrefa\n      real(kind=rb) , dimension(ng14) :: fracrefb\n\n      real(kind=rb) :: ka(5,13,ng14)   ,absa(65,ng14)\n      real(kind=rb) :: kb(5,13:59,ng14),absb(235,ng14)\n      real(kind=rb) :: selfref(10,ng14)\n      real(kind=rb) :: forref(4,ng14)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg14\n"
  },
  {
    "path": "GeosRad/rrlw_kg15.F90",
    "content": "      module rrlw_kg15\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 15\n! band 15:  2380-2600 cm-1 (low - n2o,co2; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n! kao     : real     \n! kao_mn2 : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no15 = 16\n\n      real(kind=rb) :: fracrefao(no15,9)\n      real(kind=rb) :: kao(9,5,13,no15)\n      real(kind=rb) :: kao_mn2(9,19,no15)\n      real(kind=rb) :: selfrefo(10,no15)\n      real(kind=rb) :: forrefo(4,no15)\n\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 15\n! band 15:  2380-2600 cm-1 (low - n2o,co2; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n! ka      : real     \n! ka_mn2  : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng15 = 2\n\n      real(kind=rb) :: fracrefa(ng15,9)\n      real(kind=rb) :: ka(9,5,13,ng15) ,absa(585,ng15)\n      real(kind=rb) :: ka_mn2(9,19,ng15)\n      real(kind=rb) :: selfref(10,ng15)\n      real(kind=rb) :: forref(4,ng15)\n\n      equivalence (ka(1,1,1,1),absa(1,1))\n\n      end module rrlw_kg15\n"
  },
  {
    "path": "GeosRad/rrlw_kg16.F90",
    "content": "      module rrlw_kg16\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_lw ORIGINAL abs. coefficients for interval 16\n! band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefao: real    \n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no16 = 16\n\n      real(kind=rb) , dimension(no16) :: fracrefbo\n\n      real(kind=rb) :: fracrefao(no16,9)\n      real(kind=rb) :: kao(9,5,13,no16)\n      real(kind=rb) :: kbo(5,13:59,no16)\n      real(kind=rb) :: selfrefo(10,no16)\n      real(kind=rb) :: forrefo(4,no16)\n\n!-----------------------------------------------------------------\n! rrtmg_lw COMBINED abs. coefficients for interval 16\n! band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!fracrefa : real    \n! ka      : real     \n! kb      : real     \n! selfref : real     \n! forref  : real     \n!\n! absa    : real\n! absb    : real\n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: ng16 = 2\n\n      real(kind=rb) , dimension(ng16) :: fracrefb\n\n      real(kind=rb) :: fracrefa(ng16,9)\n      real(kind=rb) :: ka(9,5,13,ng16) ,absa(585,ng16)\n      real(kind=rb) :: kb(5,13:59,ng16), absb(235,ng16)\n      real(kind=rb) :: selfref(10,ng16)\n      real(kind=rb) :: forref(4,ng16)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrlw_kg16\n\n"
  },
  {
    "path": "GeosRad/rrlw_ncpar.F90",
    "content": "module rrlw_ncpar\n\tuse parkind ,only : im => kind_im, rb => kind_rb\n\n\timplicit none\n        save\n\t\n        real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air\n                                        \t\t ! at constant pressure at 273 K\n                                        \t\t ! (J kg-1 K-1)\n\n\t\n\tinteger(kind=im), parameter :: maxAbsorberNameLength = 5, &\n                          Absorber              = 12\n    character(len = maxAbsorberNameLength), dimension(Absorber), parameter :: &\n    AbsorberNames = (/        &\n     \t\t\t\t'N2   ',  &\n     \t\t\t\t'CCL4 ',  &\n     \t\t\t\t'CFC11',  &\n     \t\t\t\t'CFC12',  &\n     \t\t\t\t'CFC22',  &\n     \t\t\t\t'H2O  ',  &\n     \t\t\t\t'CO2  ',  &\n     \t\t\t\t'O3   ',  &\n     \t\t\t\t'N2O  ',  & \n     \t\t\t\t'CO   ',  &\n     \t\t\t\t'CH4  ',  &\n     \t\t\t\t'O2   '  /)\n\t\n\tinteger(kind=im), dimension(40) :: status\n\tinteger(kind=im) :: i\n\tinteger(kind=im), parameter :: keylower  = 9,   &\n\t\t\t\t\t\t  keyupper  = 5,   &\n\t\t\t\t\t\t  Tdiff     = 5,   &\n\t\t\t\t\t\t  ps        = 59,  &\n\t\t\t\t\t\t  plower    = 13,  &\n\t\t\t\t\t\t  pupper    = 47,  &\n\t\t\t\t\t\t  Tself     = 10,  &\n\t\t\t\t\t\t  Tforeign  = 4,   &\n\t\t\t\t\t\t  pforeign  = 4,   &\n\t\t\t\t\t\t  T         = 19,  &\n\t\t\t\t\t\t  Tplanck   = 181, &\n\t\t\t\t\t\t  band      = 16,  &\n\t\t\t\t\t\t  GPoint    = 16,  &\n\t\t\t\t\t\t  GPointSet = 2\n\t\t\t\t\t\t  \n\tcontains \n\t\n\tsubroutine getAbsorberIndex(AbsorberName,AbsorberIndex)\n\t\tcharacter(len = *), intent(in) :: AbsorberName\n\t\tinteger(kind=im), intent(out)           :: AbsorberIndex\n\t\t\n\t\tinteger(kind=im) :: m\n\t\n\t\tAbsorberIndex = -1\n\t\tdo m = 1, Absorber\n\t\t\tif (trim(AbsorberNames(m)) == trim(AbsorberName)) then\n\t\t\t\tAbsorberIndex = m\n\t\t\tend if\n\t\tend do\n\t\t\n\t\tif (AbsorberIndex == -1) then\n\t\t\tprint*, \"Absorber name index lookup failed.\"\n\t\tend if\n\tend subroutine getAbsorberIndex\n\nend module rrlw_ncpar\n"
  },
  {
    "path": "GeosRad/rrlw_ref.F90",
    "content": "      module rrlw_ref\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw reference atmosphere \n! Based on standard mid-latitude summer profile\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! pref   :  real   : Reference pressure levels\n! preflog:  real   : Reference pressure levels, ln(pref)\n! tref   :  real   : Reference temperature levels for MLS profile\n! chi_mls:  real   : \n!------------------------------------------------------------------\n\n      real(kind=rb) , dimension(59) :: pref\n      real(kind=rb) , dimension(59) :: preflog\n      real(kind=rb) , dimension(59) :: tref\n      real(kind=rb) :: chi_mls(7,59)\n\n      end module rrlw_ref\n"
  },
  {
    "path": "GeosRad/rrlw_tbl.F90",
    "content": "      module rrlw_tbl\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw exponential lookup table arrays\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, Jun 2006\n! Revised: MJIacono, AER, Aug 2007\n! Revised: MJIacono, AER, Aug 2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! ntbl   :  integer: Lookup table dimension\n! tblint :  real   : Lookup table conversion factor\n! tau_tbl:  real   : Clear-sky optical depth (used in cloudy radiative\n!                    transfer)\n! exp_tbl:  real   : Transmittance lookup table\n! tfn_tbl:  real   : Tau transition function; i.e. the transition of\n!                    the Planck function from that for the mean layer\n!                    temperature to that for the layer boundary\n!                    temperature as a function of optical depth.\n!                    The \"linear in tau\" method is used to make \n!                    the table.\n! pade   :  real   : Pade constant   \n! bpade  :  real   : Inverse of Pade constant   \n!------------------------------------------------------------------\n\n      integer(kind=im), parameter :: ntbl = 10000\n\n      real(kind=rb), parameter :: tblint = 10000.0_rb\n\n      real(kind=rb) , dimension(0:ntbl) :: tau_tbl\n      real(kind=rb) , dimension(0:ntbl) :: exp_tbl\n      real(kind=rb) , dimension(0:ntbl) :: tfn_tbl\n\n      real(kind=rb), parameter :: pade = 0.278_rb\n      real(kind=rb) :: bpade\n\n      end module rrlw_tbl\n\n"
  },
  {
    "path": "GeosRad/rrlw_vsn.F90",
    "content": "      module rrlw_vsn\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw version information\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n!hnamrtm :character: \n!hnamini :character: \n!hnamcld :character: \n!hnamclc :character: \n!hnamrtr :character: \n!hnamrtx :character: \n!hnamrtc :character: \n!hnamset :character: \n!hnamtau :character: \n!hnamatm :character: \n!hnamutl :character: \n!hnamext :character: \n!hnamkg  :character: \n!\n! hvrrtm :character: \n! hvrini :character: \n! hvrcld :character: \n! hvrclc :character: \n! hvrrtr :character: \n! hvrrtx :character: \n! hvrrtc :character: \n! hvrset :character: \n! hvrtau :character: \n! hvratm :character: \n! hvrutl :character: \n! hvrext :character: \n! hvrkg  :character: \n!------------------------------------------------------------------\n\n      character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrtr,hvrrtx, &\n                   hvrrtc,hvrset,hvrtau,hvratm,hvrutl,hvrext\n      character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrtr,hnamrtx, &\n                   hnamrtc,hnamset,hnamtau,hnamatm,hnamutl,hnamext\n\n      character*18 hvrkg\n      character*20 hnamkg\n\n      end module rrlw_vsn\n\n"
  },
  {
    "path": "GeosRad/rrlw_wvn.F90",
    "content": "      module rrlw_wvn\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : nbndlw, mg, ngptlw, maxinpx\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_lw spectral information\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! ng     :  integer: Number of original g-intervals in each spectral band\n! nspa   :  integer: For the lower atmosphere, the number of reference\n!                    atmospheres that are stored for each spectral band\n!                    per pressure level and temperature.  Each of these\n!                    atmospheres has different relative amounts of the \n!                    key species for the band (i.e. different binary\n!                    species parameters).\n! nspb   :  integer: Same as nspa for the upper atmosphere\n!wavenum1:  real   : Spectral band lower boundary in wavenumbers\n!wavenum2:  real   : Spectral band upper boundary in wavenumbers\n! delwave:  real   : Spectral band width in wavenumbers\n! totplnk:  real   : Integrated Planck value for each band; (band 16\n!                    includes total from 2600 cm-1 to infinity)\n!                    Used for calculation across total spectrum\n!totplk16:  real   : Integrated Planck value for band 16 (2600-3250 cm-1)\n!                    Used for calculation in band 16 only if \n!                    individual band output requested\n!totplnkderiv: real: Integrated Planck function derivative with respect\n!                    to temperature for each band; (band 16\n!                    includes total from 2600 cm-1 to infinity)\n!                    Used for calculation across total spectrum\n!totplk16deriv:real: Integrated Planck function derivative with respect\n!                    to temperature for band 16 (2600-3250 cm-1)\n!                    Used for calculation in band 16 only if \n!                    individual band output requested\n!\n! ngc    :  integer: The number of new g-intervals in each band\n! ngs    :  integer: The cumulative sum of new g-intervals for each band\n! ngm    :  integer: The index of each new g-interval relative to the\n!                    original 16 g-intervals in each band\n! ngn    :  integer: The number of original g-intervals that are \n!                    combined to make each new g-intervals in each band\n! ngb    :  integer: The band index for each new g-interval\n! wt     :  real   : RRTM weights for the original 16 g-intervals\n! rwgt   :  real   : Weights for combining original 16 g-intervals \n!                    (256 total) into reduced set of g-intervals \n!                    (140 total)\n! nxmol  :  integer: Number of cross-section molecules\n! ixindx :  integer: Flag for active cross-sections in calculation\n!------------------------------------------------------------------\n\n      integer(kind=im) :: ng(nbndlw)\n      integer(kind=im) :: nspa(nbndlw)\n      integer(kind=im) :: nspb(nbndlw)\n\n      real(kind=rb) :: wavenum1(nbndlw)\n      real(kind=rb) :: wavenum2(nbndlw)\n      real(kind=rb) :: delwave(nbndlw)\n\n      real(kind=rb) :: totplnk(181,nbndlw)\n      real(kind=rb) :: totplk16(181)\n\n      real(kind=rb) :: totplnkderiv(181,nbndlw)\n      real(kind=rb) :: totplk16deriv(181)\n\n      integer(kind=im) :: ngc(nbndlw)\n      integer(kind=im) :: ngs(nbndlw)\n      integer(kind=im) :: ngn(ngptlw)\n      integer(kind=im) :: ngb(ngptlw)\n      integer(kind=im) :: ngm(nbndlw*mg)\n\n      real(kind=rb) :: wt(mg)\n      real(kind=rb) :: rwgt(nbndlw*mg)\n\n      integer(kind=im) :: nxmol\n      integer(kind=im) :: ixindx(maxinpx)\n\n      end module rrlw_wvn\n"
  },
  {
    "path": "GeosRad/rrsw_aer.F90",
    "content": "      module rrsw_aer\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, naerec\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw aerosol optical properties\n!\n!  Data derived from six ECMWF aerosol types and defined for\n!  the rrtmg_sw spectral intervals\n!\n! Initial: J.-J. Morcrette, ECMWF, mar2003\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n!\n!-- The six ECMWF aerosol types are respectively:\n!\n!  1/ continental average                 2/ maritime\n!  3/ desert                              4/ urban\n!  5/ volcanic active                     6/ stratospheric background\n!\n! computed from Hess and Koepke (con, mar, des, urb)\n!          from Bonnel et al.   (vol, str)\n!\n! rrtmg_sw 14 spectral intervals (microns):\n!  3.846 -  3.077\n!  3.077 -  2.500\n!  2.500 -  2.150\n!  2.150 -  1.942\n!  1.942 -  1.626\n!  1.626 -  1.299\n!  1.299 -  1.242\n!  1.242 -  0.7782\n!  0.7782-  0.6250\n!  0.6250-  0.4415\n!  0.4415-  0.3448\n!  0.3448-  0.2632\n!  0.2632-  0.2000\n! 12.195 -  3.846\n!\n!------------------------------------------------------------------\n!\n!  name     type     purpose\n! -----   : ----   : ----------------------------------------------\n! rsrtaua : real   : ratio of average optical thickness in \n!                    spectral band to that at 0.55 micron\n! rsrpiza : real   : average single scattering albedo (unitless)\n! rsrasya : real   : average asymmetry parameter (unitless)\n!------------------------------------------------------------------\n\n      real(kind=rb) :: rsrtaua(nbndsw,naerec)\n      real(kind=rb) :: rsrpiza(nbndsw,naerec)\n      real(kind=rb) :: rsrasya(nbndsw,naerec)\n\n      end module rrsw_aer\n\n"
  },
  {
    "path": "GeosRad/rrsw_cld.F90",
    "content": "      module rrsw_cld\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw cloud property coefficients\n!\n! Initial: J.-J. Morcrette, ECMWF, oct1999\n! Revised: J. Delamere/MJIacono, AER, aug2005\n! Revised: MJIacono, AER, nov2005\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n!\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! xxxliq1 : real   : optical properties (extinction coefficient, single \n!                    scattering albedo, assymetry factor) from\n!                    Hu & Stamnes, j. clim., 6, 728-742, 1993.  \n! xxxice2 : real   : optical properties (extinction coefficient, single \n!                    scattering albedo, assymetry factor) from streamer v3.0,\n!                    Key, streamer user's guide, cooperative institude \n!                    for meteorological studies, 95 pp., 2001.\n! xxxice3 : real   : optical properties (extinction coefficient, single \n!                    scattering albedo, assymetry factor) from\n!                    Fu, j. clim., 9, 1996.\n! xbari   : real   : optical property coefficients for five spectral \n!                    intervals (2857-4000, 4000-5263, 5263-7692, 7692-14285,\n!                    and 14285-40000 wavenumbers) following \n!                    Ebert and Curry, jgr, 97, 3831-3836, 1992.\n!------------------------------------------------------------------\n\n      real(kind=rb) :: extliq1(58,16:29), ssaliq1(58,16:29), asyliq1(58,16:29)\n      real(kind=rb) :: extice2(43,16:29), ssaice2(43,16:29), asyice2(43,16:29)\n      real(kind=rb) :: extice3(46,16:29), ssaice3(46,16:29), asyice3(46,16:29)\n      real(kind=rb) :: fdlice3(46,16:29)\n      real(kind=rb) :: abari(5),bbari(5),cbari(5),dbari(5),ebari(5),fbari(5)\n\n      end module rrsw_cld\n\n"
  },
  {
    "path": "GeosRad/rrsw_con.F90",
    "content": "      module rrsw_con\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw constants\n\n! Initial version: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! fluxfac:  real   : radiance to flux conversion factor \n! heatfac:  real   : flux to heating rate conversion factor\n!oneminus:  real   : 1.-1.e-6\n! pi     :  real   : pi\n! grav   :  real   : acceleration of gravity\n! planck :  real   : planck constant\n! boltz  :  real   : boltzmann constant\n! clight :  real   : speed of light\n! avogad :  real   : avogadro constant \n! alosmt :  real   : loschmidt constant\n! gascon :  real   : molar gas constant\n! radcn1 :  real   : first radiation constant\n! radcn2 :  real   : second radiation constant\n! sbcnst :  real   : stefan-boltzmann constant\n!  secdy :  real   : seconds per day\n!------------------------------------------------------------------\n\n      real(kind=rb) :: fluxfac, heatfac\n      real(kind=rb) :: oneminus, pi, grav\n      real(kind=rb) :: planck, boltz, clight\n      real(kind=rb) :: avogad, alosmt, gascon\n      real(kind=rb) :: radcn1, radcn2\n      real(kind=rb) :: sbcnst, secdy\n\n      end module rrsw_con\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg16.F90",
    "content": "      module rrsw_kg16\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng16\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 16\n! band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no16 = 16\n\n      real(kind=rb) :: kao(9,5,13,no16)\n      real(kind=rb) :: kbo(5,13:59,no16)\n      real(kind=rb) :: selfrefo(10,no16), forrefo(3,no16)\n      real(kind=rb) :: sfluxrefo(no16)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat1\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 16\n! band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng16) , absa(585,ng16)\n      real(kind=rb) :: kb(5,13:59,ng16), absb(235,ng16)\n      real(kind=rb) :: selfref(10,ng16), forref(3,ng16)\n      real(kind=rb) :: sfluxref(ng16)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg16\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg17.F90",
    "content": "      module rrsw_kg17\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng17\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 17\n! band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no17 = 16\n\n      real(kind=rb) :: kao(9,5,13,no17)\n      real(kind=rb) :: kbo(5,5,13:59,no17)\n      real(kind=rb) :: selfrefo(10,no17), forrefo(4,no17)\n      real(kind=rb) :: sfluxrefo(no17,5)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 17\n! band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng17) , absa(585,ng17)\n      real(kind=rb) :: kb(5,5,13:59,ng17), absb(1175,ng17)\n      real(kind=rb) :: selfref(10,ng17), forref(4,ng17)\n      real(kind=rb) :: sfluxref(ng17,5)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))\n\n      end module rrsw_kg17\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg18.F90",
    "content": "      module rrsw_kg18\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng18\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 18\n! band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no18 = 16\n\n      real(kind=rb) :: kao(9,5,13,no18)\n      real(kind=rb) :: kbo(5,13:59,no18)\n      real(kind=rb) :: selfrefo(10,no18), forrefo(3,no18)\n      real(kind=rb) :: sfluxrefo(no18,9)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 18\n! band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng18), absa(585,ng18)\n      real(kind=rb) :: kb(5,13:59,ng18), absb(235,ng18)\n      real(kind=rb) :: selfref(10,ng18), forref(3,ng18)\n      real(kind=rb) :: sfluxref(ng18,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg18\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg19.F90",
    "content": "      module rrsw_kg19\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng19\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 19\n! band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no19 = 16\n\n      real(kind=rb) :: kao(9,5,13,no19)\n      real(kind=rb) :: kbo(5,13:59,no19)\n      real(kind=rb) :: selfrefo(10,no19), forrefo(3,no19)\n      real(kind=rb) :: sfluxrefo(no19,9)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 19\n! band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng19), absa(585,ng19)\n      real(kind=rb) :: kb(5,13:59,ng19), absb(235,ng19)\n      real(kind=rb) :: selfref(10,ng19), forref(3,ng19)\n      real(kind=rb) :: sfluxref(ng19,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg19\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg20.F90",
    "content": "      module rrsw_kg20\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng20\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 20\n! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n! absch4o : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no20 = 16\n\n      real(kind=rb) :: kao(5,13,no20)\n      real(kind=rb) :: kbo(5,13:59,no20)\n      real(kind=rb) :: selfrefo(10,no20), forrefo(4,no20)\n      real(kind=rb) :: sfluxrefo(no20)\n      real(kind=rb) :: absch4o(no20)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl \n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 20\n! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n! absch4  : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng20), absa(65,ng20)\n      real(kind=rb) :: kb(5,13:59,ng20), absb(235,ng20)\n      real(kind=rb) :: selfref(10,ng20), forref(4,ng20)\n      real(kind=rb) :: sfluxref(ng20)\n      real(kind=rb) :: absch4(ng20)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg20\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg21.F90",
    "content": "      module rrsw_kg21\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng21\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 21\n! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no21 = 16\n\n      real(kind=rb) :: kao(9,5,13,no21)\n      real(kind=rb) :: kbo(5,5,13:59,no21)\n      real(kind=rb) :: selfrefo(10,no21), forrefo(4,no21)\n      real(kind=rb) :: sfluxrefo(no21,9)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 21\n! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng21), absa(585,ng21)\n      real(kind=rb) :: kb(5,5,13:59,ng21), absb(1175,ng21)\n      real(kind=rb) :: selfref(10,ng21), forref(4,ng21)\n      real(kind=rb) :: sfluxref(ng21,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))\n\n      end module rrsw_kg21\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg22.F90",
    "content": "      module rrsw_kg22\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng22\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 22\n! band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no22 = 16\n\n      real(kind=rb) :: kao(9,5,13,no22)\n      real(kind=rb) :: kbo(5,13:59,no22)\n      real(kind=rb) :: selfrefo(10,no22), forrefo(3,no22)\n      real(kind=rb) :: sfluxrefo(no22,9)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 22\n! band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng22), absa(585,ng22)\n      real(kind=rb) :: kb(5,13:59,ng22), absb(235,ng22)\n      real(kind=rb) :: selfref(10,ng22), forref(3,ng22)\n      real(kind=rb) :: sfluxref(ng22,9)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg22\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg23.F90",
    "content": "      module rrsw_kg23\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng23\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 23\n! band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no23 = 16\n\n      real(kind=rb) :: kao(5,13,no23)\n      real(kind=rb) :: selfrefo(10,no23), forrefo(3,no23)\n      real(kind=rb) :: sfluxrefo(no23)\n      real(kind=rb) :: raylo(no23)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: givfac\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 23\n! band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng23), absa(65,ng23)\n      real(kind=rb) :: selfref(10,ng23), forref(3,ng23)\n      real(kind=rb) :: sfluxref(ng23), rayl(ng23)\n\n      equivalence (ka(1,1,1),absa(1,1))\n\n      end module rrsw_kg23\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg24.F90",
    "content": "      module rrsw_kg24\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng24\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 24\n! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real\n!sfluxrefo: real     \n! abso3ao : real     \n! abso3bo : real     \n! raylao  : real     \n! raylbo  : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no24 = 16\n\n      real(kind=rb) :: kao(9,5,13,no24)\n      real(kind=rb) :: kbo(5,13:59,no24)\n      real(kind=rb) :: selfrefo(10,no24), forrefo(3,no24)\n      real(kind=rb) :: sfluxrefo(no24,9)\n      real(kind=rb) :: abso3ao(no24), abso3bo(no24)\n      real(kind=rb) :: raylao(no24,9), raylbo(no24)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 24\n! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! selfref : real     \n! forref  : real\n! sfluxref: real     \n! abso3a  : real     \n! abso3b  : real     \n! rayla   : real     \n! raylb   : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng24), absa(585,ng24)\n      real(kind=rb) :: kb(5,13:59,ng24), absb(235,ng24)\n      real(kind=rb) :: selfref(10,ng24), forref(3,ng24)\n      real(kind=rb) :: sfluxref(ng24,9)\n      real(kind=rb) :: abso3a(ng24), abso3b(ng24)\n      real(kind=rb) :: rayla(ng24,9), raylb(ng24)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg24\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg25.F90",
    "content": "      module rrsw_kg25\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng25\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 25\n! band 25: 16000-22650 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n!sfluxrefo: real     \n! abso3ao : real     \n! abso3bo : real     \n! raylo   : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no25 = 16\n\n      real(kind=rb) :: kao(5,13,no25)\n      real(kind=rb) :: sfluxrefo(no25)\n      real(kind=rb) :: abso3ao(no25), abso3bo(no25)\n      real(kind=rb) :: raylo(no25)\n\n      integer(kind=im) :: layreffr\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 25\n! band 25: 16000-22650 cm-1 (low - h2o; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! absa    : real\n! sfluxref: real     \n! abso3a  : real     \n! abso3b  : real     \n! rayl    : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng25), absa(65,ng25)\n      real(kind=rb) :: sfluxref(ng25)\n      real(kind=rb) :: abso3a(ng25), abso3b(ng25)\n      real(kind=rb) :: rayl(ng25)\n\n      equivalence (ka(1,1,1),absa(1,1))\n\n      end module rrsw_kg25\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg26.F90",
    "content": "      module rrsw_kg26\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng26\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 26\n! band 26: 22650-29000 cm-1 (low - nothing; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n!sfluxrefo: real     \n! raylo   : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no26 = 16\n\n      real(kind=rb) :: sfluxrefo(no26)\n      real(kind=rb) :: raylo(no26)\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 26\n! band 26: 22650-29000 cm-1 (low - nothing; high - nothing)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! sfluxref: real     \n! rayl    : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: sfluxref(ng26)\n      real(kind=rb) :: rayl(ng26)\n\n      end module rrsw_kg26\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg27.F90",
    "content": "      module rrsw_kg27\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng27\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 27\n! band 27: 29000-38000 cm-1 (low - o3; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n!sfluxrefo: real     \n! raylo   : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no27 = 16\n\n      real(kind=rb) :: kao(5,13,no27)\n      real(kind=rb) :: kbo(5,13:59,no27)\n      real(kind=rb) :: sfluxrefo(no27)\n      real(kind=rb) :: raylo(no27)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: scalekur\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 27\n! band 27: 29000-38000 cm-1 (low - o3; high - o3)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! absa    : real\n! absb    : real\n! sfluxref: real     \n! rayl    : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng27), absa(65,ng27)\n      real(kind=rb) :: kb(5,13:59,ng27), absb(235,ng27)\n      real(kind=rb) :: sfluxref(ng27)\n      real(kind=rb) :: rayl(ng27)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg27\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg28.F90",
    "content": "      module rrsw_kg28\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng28\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 28\n! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n!sfluxrefo: real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no28 = 16\n\n      real(kind=rb) :: kao(9,5,13,no28)\n      real(kind=rb) :: kbo(5,5,13:59,no28)\n      real(kind=rb) :: sfluxrefo(no28,5)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl, strrat\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 28\n! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! sfluxref: real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(9,5,13,ng28), absa(585,ng28)\n      real(kind=rb) :: kb(5,5,13:59,ng28), absb(1175,ng28)\n      real(kind=rb) :: sfluxref(ng28,5)\n\n      equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1))\n\n      end module rrsw_kg28\n\n"
  },
  {
    "path": "GeosRad/rrsw_kg29.F90",
    "content": "      module rrsw_kg29\n\n      use parkind ,only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ng29\n\n      implicit none\n      save\n\n!-----------------------------------------------------------------\n! rrtmg_sw ORIGINAL abs. coefficients for interval 29\n! band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! kao     : real     \n! kbo     : real     \n! selfrefo: real     \n! forrefo : real     \n!sfluxrefo: real     \n! absh2oo : real     \n! absco2o : real     \n!-----------------------------------------------------------------\n\n      integer(kind=im), parameter :: no29 = 16\n\n      real(kind=rb) :: kao(5,13,no29)\n      real(kind=rb) :: kbo(5,13:59,no29)\n      real(kind=rb) :: selfrefo(10,no29), forrefo(4,no29)\n      real(kind=rb) :: sfluxrefo(no29)\n      real(kind=rb) :: absh2oo(no29), absco2o(no29)\n\n      integer(kind=im) :: layreffr\n      real(kind=rb) :: rayl\n\n!-----------------------------------------------------------------\n! rrtmg_sw COMBINED abs. coefficients for interval 29\n! band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!\n! Initial version:  JJMorcrette, ECMWF, oct1999\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!-----------------------------------------------------------------\n!\n!  name     type     purpose\n!  ----   : ----   : ---------------------------------------------\n! ka      : real     \n! kb      : real     \n! selfref : real     \n! forref  : real     \n! sfluxref: real     \n! absh2o  : real     \n! absco2  : real     \n!-----------------------------------------------------------------\n\n      real(kind=rb) :: ka(5,13,ng29), absa(65,ng29)\n      real(kind=rb) :: kb(5,13:59,ng29), absb(235,ng29)\n      real(kind=rb) :: selfref(10,ng29), forref(4,ng29)\n      real(kind=rb) :: sfluxref(ng29)\n      real(kind=rb) :: absh2o(ng29), absco2(ng29)\n\n      equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))\n\n      end module rrsw_kg29\n\n"
  },
  {
    "path": "GeosRad/rrsw_ref.F90",
    "content": "      module rrsw_ref\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw reference atmosphere \n! Based on standard mid-latitude summer profile\n!\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jun2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! pref   :  real   : Reference pressure levels\n! preflog:  real   : Reference pressure levels, ln(pref)\n! tref   :  real   : Reference temperature levels for MLS profile\n!------------------------------------------------------------------\n\n      real(kind=rb) , dimension(59) :: pref\n      real(kind=rb) , dimension(59) :: preflog\n      real(kind=rb) , dimension(59) :: tref\n\n      end module rrsw_ref\n"
  },
  {
    "path": "GeosRad/rrsw_tbl.F90",
    "content": "      module rrsw_tbl\n\n      use parkind, only : im => kind_im, rb => kind_rb\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw lookup table arrays\n\n! Initial version: MJIacono, AER, may2007\n! Revised: MJIacono, AER, aug2007\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! ntbl   :  integer: Lookup table dimension\n! tblint :  real   : Lookup table conversion factor\n! tau_tbl:  real   : Clear-sky optical depth \n! exp_tbl:  real   : Exponential lookup table for transmittance\n! od_lo  :  real   : Value of tau below which expansion is used\n!                  : in place of lookup table\n! pade   :  real   : Pade approximation constant\n! bpade  :  real   : Inverse of Pade constant\n!------------------------------------------------------------------\n\n      integer(kind=im), parameter :: ntbl = 10000\n\n      real(kind=rb), parameter :: tblint = 10000.0_rb\n\n      real(kind=rb), parameter :: od_lo = 0.06_rb\n\n      real(kind=rb) :: tau_tbl\n      real(kind=rb) , dimension(0:ntbl) :: exp_tbl\n\n      real(kind=rb), parameter :: pade = 0.278_rb\n      real(kind=rb) :: bpade\n\n      end module rrsw_tbl\n\n"
  },
  {
    "path": "GeosRad/rrsw_vsn.F90",
    "content": "      module rrsw_vsn\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw version information\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n!hnamrtm :character: \n!hnamini :character: \n!hnamcld :character: \n!hnamclc :character: \n!hnamrft :character: \n!hnamspv :character: \n!hnamspc :character: \n!hnamset :character: \n!hnamtau :character: \n!hnamvqd :character: \n!hnamatm :character: \n!hnamutl :character: \n!hnamext :character: \n!hnamkg  :character: \n!\n! hvrrtm :character: \n! hvrini :character: \n! hvrcld :character: \n! hvrclc :character: \n! hvrrft :character: \n! hvrspv :character: \n! hvrspc :character: \n! hvrset :character: \n! hvrtau :character: \n! hvrvqd :character: \n! hvratm :character: \n! hvrutl :character: \n! hvrext :character: \n! hvrkg  :character: \n!------------------------------------------------------------------\n\n      character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrft,hvrspv, &\n                   hvrspc,hvrset,hvrtau,hvrvqd,hvratm,hvrutl,hvrext\n      character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrft,hnamspv, &\n                   hnamspc,hnamset,hnamtau,hnamvqd,hnamatm,hnamutl,hnamext\n\n      character*18 hvrkg\n      character*20 hnamkg\n\n      end module rrsw_vsn\n\n"
  },
  {
    "path": "GeosRad/rrsw_wvn.F90",
    "content": "      module rrsw_wvn\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, mg, ngptsw, jpb1, jpb2\n\n      implicit none\n      save\n\n!------------------------------------------------------------------\n! rrtmg_sw spectral information\n\n! Initial version:  JJMorcrette, ECMWF, jul1998\n! Revised: MJIacono, AER, jul2006\n! Revised: MJIacono, AER, aug2008\n!------------------------------------------------------------------\n\n!  name     type     purpose\n! -----  :  ----   : ----------------------------------------------\n! ng     :  integer: Number of original g-intervals in each spectral band\n! nspa   :  integer: \n! nspb   :  integer: \n!wavenum1:  real   : Spectral band lower boundary in wavenumbers\n!wavenum2:  real   : Spectral band upper boundary in wavenumbers\n! delwave:  real   : Spectral band width in wavenumbers\n!\n! ngc    :  integer: The number of new g-intervals in each band\n! ngs    :  integer: The cumulative sum of new g-intervals for each band\n! ngm    :  integer: The index of each new g-interval relative to the\n!                    original 16 g-intervals in each band\n! ngn    :  integer: The number of original g-intervals that are \n!                    combined to make each new g-intervals in each band\n! ngb    :  integer: The band index for each new g-interval\n! wt     :  real   : RRTM weights for the original 16 g-intervals\n! rwgt   :  real   : Weights for combining original 16 g-intervals \n!                    (224 total) into reduced set of g-intervals \n!                    (112 total)\n!------------------------------------------------------------------\n\n      integer(kind=im) :: ng(jpb1:jpb2)\n      integer(kind=im) :: nspa(jpb1:jpb2)\n      integer(kind=im) :: nspb(jpb1:jpb2)\n\n      real(kind=rb) :: wavenum1(jpb1:jpb2)\n      real(kind=rb) :: wavenum2(jpb1:jpb2)\n      real(kind=rb) :: delwave(jpb1:jpb2)\n\n      integer(kind=im) :: ngc(nbndsw)\n      integer(kind=im) :: ngs(nbndsw)\n      integer(kind=im) :: ngn(ngptsw)\n      integer(kind=im) :: ngb(ngptsw)\n      integer(kind=im) :: ngm(nbndsw*mg)\n\n      real(kind=rb) :: wt(mg)\n      real(kind=rb) :: rwgt(nbndsw*mg)\n\n      end module rrsw_wvn\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_cldprmc.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_cldprmc.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.8 $\n!     created:   $Date: 2009/05/22 21:04:30 $\n!\n      module rrtmg_lw_cldprmc\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! --------- Modules ----------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : ngptlw, nbndlw\n      use rrlw_cld, only: abscld1, absliq0, absliq1, &\n                          absice0, absice1, absice2, absice3\n      use rrlw_wvn, only: ngb\n      use rrlw_vsn, only: hvrclc, hnamclc\n\n      implicit none\n\n      contains\n\n! ------------------------------------------------------------------------------\n      subroutine cldprmc(nlayers, inflag, iceflag, liqflag, cldfmc, &\n                         ciwpmc, clwpmc, reicmc, relqmc, ncbands, taucmc)\n! ------------------------------------------------------------------------------\n\n! Purpose:  Compute the cloud optical depth(s) for each cloudy layer.\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: inflag          ! see definitions\n      integer(kind=im), intent(in) :: iceflag         ! see definitions\n      integer(kind=im), intent(in) :: liqflag         ! see definitions\n\n      real(kind=rb), intent(in) :: cldfmc(:,:)        ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptlw,nlayers)\n      real(kind=rb), intent(in) :: ciwpmc(:,:)        ! cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptlw,nlayers)\n      real(kind=rb), intent(in) :: clwpmc(:,:)        ! cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptlw,nlayers)\n      real(kind=rb), intent(in) :: relqmc(:)          ! liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: reicmc(:)          ! ice particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of reicmc depends on setting of iceflag:\n                                                      ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec must be >= 10.0 microns\n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n\n! ------- Output -------\n\n      integer(kind=im), intent(out) :: ncbands        ! number of cloud spectral bands\n      real(kind=rb), intent(inout) :: taucmc(:,:)     ! cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptlw,nlayers)\n\n! ------- Local -------\n\n      integer(kind=im) :: lay                         ! Layer index\n      integer(kind=im) :: ib                          ! spectral band index\n      integer(kind=im) :: ig                          ! g-point interval index\n      integer(kind=im) :: index \n      integer(kind=im) :: icb(nbndlw)\n\n      real(kind=rb) :: abscoice(ngptlw)               ! ice absorption coefficients\n      real(kind=rb) :: abscoliq(ngptlw)               ! liquid absorption coefficients\n      real(kind=rb) :: cwp                            ! cloud water path\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor                         ! \n      real(kind=rb) :: fint                           ! \n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb), parameter :: eps = 1.e-6_rb      ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n\n! ------- Definitions -------\n\n!     Explanation of the method for each value of INFLAG.  Values of\n!     0 or 1 for INFLAG do not distingish being liquid and ice clouds.\n!     INFLAG = 2 does distinguish between liquid and ice clouds, and\n!     requires further user input to specify the method to be used to \n!     compute the aborption due to each.\n!     INFLAG = 0:  For each cloudy layer, the cloud fraction and (gray)\n!                  optical depth are input.  \n!     INFLAG = 1:  For each cloudy layer, the cloud fraction and cloud\n!                  water path (g/m2) are input.  The (gray) cloud optical \n!                  depth is computed as in CCM2.\n!     INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud \n!                  water path (g/m2), and cloud ice fraction are input.\n!       ICEFLAG = 0:  The ice effective radius (microns) is input and the\n!                     optical depths due to ice clouds are computed as in CCM3.\n!       ICEFLAG = 1:  The ice effective radius (microns) is input and the\n!                     optical depths due to ice clouds are computed as in \n!                     Ebert and Curry, JGR, 97, 3831-3836 (1992).  The \n!                     spectral regions in this work have been matched with\n!                     the spectral bands in RRTM to as great an extent \n!                     as possible:  \n!                     E&C 1      IB = 5      RRTM bands 9-16\n!                     E&C 2      IB = 4      RRTM bands 6-8\n!                     E&C 3      IB = 3      RRTM bands 3-5\n!                     E&C 4      IB = 2      RRTM band 2\n!                     E&C 5      IB = 1      RRTM band 1\n!       ICEFLAG = 2:  The ice effective radius (microns) is input and the\n!                     optical properties due to ice clouds are computed from\n!                     the optical properties stored in the RT code,\n!                     STREAMER v3.0 (Reference: Key. J., Streamer \n!                     User's Guide, Cooperative Institute for\n!                     Meteorological Satellite Studies, 2001, 96 pp.).\n!                     Valid range of values for re are between 5.0 and\n!                     131.0 micron.\n!       ICEFLAG = 3: The ice generalized effective size (dge) is input\n!                    and the optical properties, are calculated as in\n!                    Q. Fu, J. Climate, (1998). Q. Fu provided high resolution\n!                    tables which were appropriately averaged for the\n!                    bands in RRTM_LW.  Linear interpolation is used to\n!                    get the coefficients from the stored tables.\n!                    Valid range of values for dge are between 5.0 and\n!                    140.0 micron.\n!       LIQFLAG = 0:  The optical depths due to water clouds are computed as\n!                     in CCM3.\n!       LIQFLAG = 1:  The water droplet effective radius (microns) is input \n!                     and the optical depths due to water clouds are computed \n!                     as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).\n!                     The values for absorption coefficients appropriate for\n!                     the spectral bands in RRTM have been obtained for a \n!                     range of effective radii by an averaging procedure \n!                     based on the work of J. Pinto (private communication).\n!                     Linear interpolation is used to get the absorption \n!                     coefficients for the input effective radius.\n\n      data icb /1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5/\n\n      hvrclc = '$Revision: 1.8 $'\n\n      ncbands = 1\n! This initialization is done in rrtmg_lw_subcol.F90.\n!      do lay = 1, nlayers\n!         do ig = 1, ngptlw\n!            taucmc(ig,lay) = 0.0_rb\n!         enddo\n!      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n        do ig = 1, ngptlw\n          cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)\n          if (cldfmc(ig,lay) .ge. cldmin .and. &\n             (cwp .ge. cldmin .or. taucmc(ig,lay) .ge. cldmin)) then\n\n! Ice clouds and water clouds combined.\n            if (inflag .eq. 0) then\n! Cloud optical depth already defined in taucmc, return to main program\n               return\n\n            elseif(inflag .eq. 1) then \n                stop 'INFLAG = 1 OPTION NOT AVAILABLE WITH MCICA'\n!               cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)\n!               taucmc(ig,lay) = abscld1 * cwp\n\n! Separate treatement of ice clouds and water clouds.\n            elseif(inflag .eq. 2) then\n               radice = reicmc(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n               if (ciwpmc(ig,lay) .eq. 0.0_rb) then\n                  abscoice(ig) = 0.0_rb\n\n               elseif (iceflag .eq. 0) then\n                  if (radice .lt. 10.0_rb) then\n                       write(6,*) 'ICE RADIUS TOO SMALL'\n                  endif\n                  abscoice(ig) = absice0(1) + absice0(2)/radice\n\n               elseif (iceflag .eq. 1) then\n                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) then\n                  write(6,*) 'ICE RADIUS OUT OF BOUNDS',radice,cldfmc(ig,lay)\n                  endif\n                  ncbands = 5\n                  ib = icb(ngb(ig))\n                  abscoice(ig) = absice1(1,ib) + absice1(2,ib)/radice\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n               elseif (iceflag .eq. 2) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) then\n                     write(6,*)  'ICE RADIUS OUT OF BOUNDS',radice,cldfmc(ig,lay)\n                  endif\n                     ncbands = 16\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 43) index = 42\n                     fint = factor - float(index)\n                     ib = ngb(ig)\n                     abscoice(ig) = &\n                         absice2(index,ib) + fint * &\n                         (absice2(index+1,ib) - (absice2(index,ib))) \n               \n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n               elseif (iceflag .eq. 3) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) then\n               write(6,*) 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                 endif\n                     ncbands = 16\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 46) index = 45\n                     fint = factor - float(index)\n                     ib = ngb(ig)\n                     abscoice(ig) = &\n                         absice3(index,ib) + fint * &\n                         (absice3(index+1,ib) - (absice3(index,ib)))\n   \n               endif\n                  \n! Calculation of absorption coefficients due to water clouds.\n               if (clwpmc(ig,lay) .eq. 0.0_rb) then\n                  abscoliq(ig) = 0.0_rb\n\n               elseif (liqflag .eq. 0) then\n                   abscoliq(ig) = absliq0\n\n               elseif (liqflag .eq. 1) then\n                  radliq = relqmc(lay)\n                  if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) then\n               write(6,*) 'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS',radliq,cldfmc(ig,lay)\n                  endif\n                  index = int(radliq - 1.5_rb)\n                  if (index .eq. 0) index = 1\n                  if (index .eq. 58) index = 57\n                  fint = radliq - 1.5_rb - float(index)\n                  ib = ngb(ig)\n                  abscoliq(ig) = &\n                        absliq1(index,ib) + fint * &\n                        (absliq1(index+1,ib) - (absliq1(index,ib)))\n               endif\n\n               taucmc(ig,lay) = ciwpmc(ig,lay) * abscoice(ig) + &\n                                clwpmc(ig,lay) * abscoliq(ig)\n\n            endif\n         endif\n         enddo\n      enddo\n\n      end subroutine cldprmc\n\n      end module rrtmg_lw_cldprmc\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_cldprop.F90.safe",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_cldprop.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.8 $\n!     created:   $Date: 2009/05/22 21:04:30 $\n!\n      module rrtmg_lw_cldprop\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! --------- Modules ----------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : nbndlw\n      use rrlw_cld, only: abscld1, absliq0, absliq1, &\n                          absice0, absice1, absice2, absice3\n      use rrlw_vsn, only: hvrcld, hnamcld\n\n      implicit none\n\n      contains\n\n! ------------------------------------------------------------------------------\n      subroutine cldprop(nlayers, inflag, iceflag, liqflag, cldfrac, tauc, &\n                         ciwp, clwp, rei, rel, ncbands, taucloud)\n! ------------------------------------------------------------------------------\n\n! Purpose:  Compute the cloud optical depth(s) for each cloudy layer.\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: inflag          ! see definitions\n      integer(kind=im), intent(in) :: iceflag         ! see definitions\n      integer(kind=im), intent(in) :: liqflag         ! see definitions\n\n      real(kind=rb), intent(in) :: cldfrac(:)         ! cloud fraction\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ciwp(:)            ! cloud ice water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: clwp(:)            ! cloud liquid water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle effective size (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of rei depends on setting of iceflag:\n                                                      ! iceflag = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec must be >= 10.0 microns\n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tauc(:,:)          ! cloud optical depth\n                                                      !    Dimensions: (nbndlw,nlayers)\n\n! ------- Output -------\n\n      integer(kind=im), intent(out) :: ncbands        ! number of cloud spectral bands\n      real(kind=rb), intent(out) :: taucloud(:,:)     ! cloud optical depth\n                                                      !    Dimensions: (nlayers,nbndlw)\n\n! ------- Local -------\n\n      integer(kind=im) :: lay                         ! Layer index\n      integer(kind=im) :: ib                          ! spectral band index\n      integer(kind=im) :: index \n      integer(kind=im) :: iceind\n      integer(kind=im) :: liqind\n      integer(kind=im) :: icb(nbndlw,0:2)\n\n      real(kind=rb) :: abscoice(nbndlw)               ! ice absorption coefficients\n      real(kind=rb) :: abscoliq(nbndlw)               ! liquid absorption coefficients\n      real(kind=rb) :: cwp                            ! cloud water path\n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor                         ! \n      real(kind=rb) :: fint                           ! \n      real(kind=rb) :: tauctot(nlayers)               ! band integrated cloud optical depth\n      real(kind=rb), parameter :: eps = 1.e-6_rb      ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n\n! ------- Definitions -------\n\n!     Explanation of the method for each value of INFLAG.  Values of\n!     0 or 1 for INFLAG do not distingish being liquid and ice clouds.\n!     INFLAG = 2 does distinguish between liquid and ice clouds, and\n!     requires further user input to specify the method to be used to \n!     compute the aborption due to each.\n!     INFLAG = 0:  For each cloudy layer, the cloud fraction and (gray)\n!                  optical depth are input.  \n!     INFLAG = 1:  For each cloudy layer, the cloud fraction and cloud\n!                  water path (g/m2) are input.  The (gray) cloud optical \n!                  depth is computed as in CCM2.\n!     INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud \n!                  water path (g/m2), and cloud ice fraction are input.\n!       ICEFLAG = 0:  The ice effective radius (microns) is input and the\n!                     optical depths due to ice clouds are computed as in CCM3.\n!       ICEFLAG = 1:  The ice effective radius (microns) is input and the\n!                     optical depths due to ice clouds are computed as in \n!                     Ebert and Curry, JGR, 97, 3831-3836 (1992).  The \n!                     spectral regions in this work have been matched with\n!                     the spectral bands in RRTM to as great an extent \n!                     as possible:  \n!                     E&C 1      IB = 5      RRTM bands 9-16\n!                     E&C 2      IB = 4      RRTM bands 6-8\n!                     E&C 3      IB = 3      RRTM bands 3-5\n!                     E&C 4      IB = 2      RRTM band 2\n!                     E&C 5      IB = 1      RRTM band 1\n!       ICEFLAG = 2:  The ice effective radius (microns) is input and the\n!                     optical properties due to ice clouds are computed from\n!                     the optical properties stored in the RT code,\n!                     STREAMER v3.0 (Reference: Key. J., Streamer \n!                     User's Guide, Cooperative Institute for\n!                     Meteorological Satellite Studies, 2001, 96 pp.).\n!                     Valid range of values for re are between 5.0 and\n!                     131.0 micron.\n!       ICEFLAG = 3: The ice generalized effective size (dge) is input\n!                    and the optical properties, are calculated as in\n!                    Q. Fu, J. Climate, (1998). Q. Fu provided high resolution\n!                    tables which were appropriately averaged for the\n!                    bands in RRTM_LW.  Linear interpolation is used to\n!                    get the coefficients from the stored tables.\n!                    Valid range of values for dge are between 5.0 and\n!                    140.0 micron.\n!       LIQFLAG = 0:  The optical depths due to water clouds are computed as\n!                     in CCM3.\n!       LIQFLAG = 1:  The water droplet effective radius (microns) is input \n!                     and the optical depths due to water clouds are computed \n!                     as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).\n!                     The values for absorption coefficients appropriate for\n!                     the spectral bands in RRTM have been obtained for a \n!                     range of effective radii by an averaging procedure \n!                     based on the work of J. Pinto (private communication).\n!                     Linear interpolation is used to get the absorption \n!                     coefficients for the input effective radius.\n\n      data icb /1,1,1,1,1,1,1,1,1, 1, 1, 1, 1, 1, 1, 1, &\n                1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5, &\n                1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/\n\n      hvrcld = '$Revision: 1.8 $'\n\n      ncbands = 1\n      tauctot(:) = 0._rb\n\n      do lay = 1, nlayers\n         do ib = 1, nbndlw\n            taucloud(lay,ib) = 0.0_rb\n            tauctot(lay) = tauctot(lay) + tauc(ib,lay)\n         enddo\n      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n         cwp = ciwp(lay) + clwp(lay)\n         if (cldfrac(lay) .ge. cldmin .and. &\n            (cwp .ge. cldmin .or. tauctot(lay) .ge. cldmin)) then\n\n! Ice clouds and water clouds combined.\n            if (inflag .eq. 0) then\n               ncbands = 16\n               do ib = 1, ncbands\n                  taucloud(lay,ib) = tauc(ib,lay)\n               end do\n\n            elseif (inflag .eq. 1) then\n               ncbands = 16\n               do ib = 1, ncbands\n                  taucloud(lay,ib) = abscld1 * cwp\n               end do\n\n! Separate treatement of ice clouds and water clouds.\n            elseif (inflag .eq. 2) then\n               radice = rei(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n               if (ciwp(lay) .eq. 0.0_rb) then\n                  abscoice(1) = 0.0_rb\n                  iceind = 0\n\n               elseif (iceflag .eq. 0) then\n                  if (radice .lt. 10.0_rb) stop 'ICE RADIUS TOO SMALL'\n                  abscoice(1) = absice0(1) + absice0(2)/radice\n                  iceind = 0\n\n               elseif (iceflag .eq. 1) then\n                  if (radice .lt. 13.0_rb .or. radice .gt. 130._rb) stop &\n                       'ICE RADIUS OUT OF BOUNDS'\n                  ncbands = 5\n                  do ib = 1, ncbands\n                     abscoice(ib) = absice1(1,ib) + absice1(2,ib)/radice\n                  enddo\n                  iceind = 1\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n               elseif (iceflag .eq. 2) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'\n                     ncbands = 16\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .ge. 43) index = 42\n                     fint = factor - float(index)\n                     do ib = 1, ncbands\n                        abscoice(ib) = &\n                            absice2(index,ib) + fint * &\n                            (absice2(index+1,ib) - (absice2(index,ib)))\n                     enddo\n                     iceind = 2\n\n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n               elseif (iceflag .eq. 3) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                     ncbands = 16\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 46) index = 45\n                     fint = factor - float(index)\n                     do ib = 1, ncbands\n                        abscoice(ib) = &\n                          absice3(index,ib) + fint * &\n                          (absice3(index+1,ib) - (absice3(index,ib)))\n                     enddo\n                     iceind = 2\n   \n               endif\n                  \n! Calculation of absorption coefficients due to water clouds.\n               if (clwp(lay) .eq. 0.0_rb) then\n                  abscoliq(1) = 0.0_rb\n                  liqind = 0\n                  if (iceind .eq. 1) iceind = 2\n\n               elseif (liqflag .eq. 0) then\n                  abscoliq(1) = absliq0\n                  liqind = 0\n                  if (iceind .eq. 1) iceind = 2\n\n               elseif (liqflag .eq. 1) then\n                  radliq = rel(lay)\n                  if (radliq .lt. 2.5_rb .or. radliq .gt. 60._rb) stop &\n                       'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'\n                  index = int(radliq - 1.5_rb)\n                  if (index .eq. 0) index = 1\n                  if (index .ge. 58) index = 57\n                  fint = radliq - 1.5_rb - float(index)\n \n! Adde by KCP 8/28/12\n                  if (fint.gt.1) fint = 1.0\n                  ncbands = 16\n                  do ib = 1, ncbands\n                     abscoliq(ib) = &\n                         absliq1(index,ib) + fint * &\n                         (absliq1(index+1,ib) - (absliq1(index,ib)))\n                  enddo\n                  liqind = 2\n               endif\n\n               do ib = 1, ncbands\n                  taucloud(lay,ib) = ciwp(lay) * abscoice(icb(ib,iceind)) + &\n                                     clwp(lay) * abscoliq(icb(ib,liqind))\n               enddo\n            endif\n         endif\n      enddo\n\n      end subroutine cldprop\n\n      end module rrtmg_lw_cldprop\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_init.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_init.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/11/12 20:52:25 $\n!\n      module rrtmg_lw_init\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrlw_wvn\n      use rrtmg_lw_setcoef, only: lwatmref, lwavplank, lwavplankderiv\n\n      implicit none\n\n      contains\n\n! **************************************************************************\n!      subroutine rrtmg_lw_ini(cpdair)\n      subroutine rrtmg_lw_ini\n! **************************************************************************\n!\n!  Original version:       Michael J. Iacono; July, 1998\n!  First revision for GCMs:   September, 1998\n!  Second revision for RRTM_V3.0:  September, 2002\n!\n!  This subroutine performs calculations necessary for the initialization\n!  of the longwave model.  Lookup tables are computed for use in the LW\n!  radiative transfer, and input absorption coefficient data for each\n!  spectral band are reduced from 256 g-point intervals to 140.\n! **************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw\n      use rrlw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl, tfn_tbl\n      use rrlw_vsn, only: hvrini, hnamini\n\n      real(kind=rb), parameter :: cpdair=1003.5     ! Specific heat capacity of dry air\n                                                    ! at constant pressure at 273 K\n                                                    ! (J kg-1 K-1)\n\n! ------- Local -------\n\n      integer(kind=im) :: itr, ibnd, igc, ig, ind, ipr \n      integer(kind=im) :: igcsm, iprsm\n\n      real(kind=rb) :: wtsum, wtsm(mg)        !\n      real(kind=rb) :: tfn                    !\n\n      real(kind=rb), parameter :: expeps = 1.e-20_rb   ! Smallest value for exponential table\n\n! ------- Definitions -------\n!     Arrays for 10000-point look-up tables:\n!     TAU_TBL Clear-sky optical depth (used in cloudy radiative transfer)\n!     EXP_TBL Exponential lookup table for ransmittance\n!     TFN_TBL Tau transition function; i.e. the transition of the Planck\n!             function from that for the mean layer temperature to that for\n!             the layer boundary temperature as a function of optical depth.\n!             The \"linear in tau\" method is used to make the table.\n!     PADE    Pade approximation constant (= 0.278)\n!     BPADE   Inverse of the Pade approximation constant\n!\n\n      hvrini = '$Revision: 1.5 $'\n\n! Initialize model data\n      call lwdatinit(cpdair)\n      call lwcmbdat               ! g-point interval reduction data\n      call lwcldpr                ! cloud optical properties\n      call lwatmref               ! reference MLS profile\n      call lwavplank              ! Planck function \n      call lwavplankderiv         ! Planck function derivative wrt temp\n      call lw_kgb01               ! molecular absorption coefficients\n      call lw_kgb02\n      call lw_kgb03\n      call lw_kgb04\n      call lw_kgb05\n      call lw_kgb06\n      call lw_kgb07\n      call lw_kgb08\n      call lw_kgb09\n      call lw_kgb10\n      call lw_kgb11\n      call lw_kgb12\n      call lw_kgb13\n      call lw_kgb14\n      call lw_kgb15\n      call lw_kgb16\n\n! Compute lookup tables for transmittance, tau transition function,\n! and clear sky tau (for the cloudy sky radiative transfer).  Tau is \n! computed as a function of the tau transition function, transmittance \n! is calculated as a function of tau, and the tau transition function \n! is calculated using the linear in tau formulation at values of tau \n! above 0.01.  TF is approximated as tau/6 for tau < 0.01.  All tables \n! are computed at intervals of 0.001.  The inverse of the constant used\n! in the Pade approximation to the tau transition function is set to b.\n\n      tau_tbl(0) = 0.0_rb\n      tau_tbl(ntbl) = 1.e10_rb\n      exp_tbl(0) = 1.0_rb\n      exp_tbl(ntbl) = expeps\n      tfn_tbl(0) = 0.0_rb\n      tfn_tbl(ntbl) = 1.0_rb\n      bpade = 1.0_rb / pade\n      do itr = 1, ntbl-1\n         tfn = float(itr) / float(ntbl)\n         tau_tbl(itr) = bpade * tfn / (1._rb - tfn)\n         exp_tbl(itr) = exp(-tau_tbl(itr))\n         if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps\n         if (tau_tbl(itr) .lt. 0.06_rb) then\n            tfn_tbl(itr) = tau_tbl(itr)/6._rb\n         else\n            tfn_tbl(itr) = 1._rb-2._rb*((1._rb/tau_tbl(itr))-(exp_tbl(itr)/(1.-exp_tbl(itr))))\n         endif\n      enddo\n\n! Perform g-point reduction from 16 per band (256 total points) to\n! a band dependant number (140 total points) for all absorption\n! coefficient input data and Planck fraction input data.\n! Compute relative weighting for new g-point combinations.\n\n      igcsm = 0\n      do ibnd = 1,nbndlw\n         iprsm = 0\n         if (ngc(ibnd).lt.mg) then\n            do igc = 1,ngc(ibnd) \n               igcsm = igcsm + 1\n               wtsum = 0._rb\n               do ipr = 1, ngn(igcsm)\n                  iprsm = iprsm + 1\n                  wtsum = wtsum + wt(iprsm)\n               enddo\n               wtsm(igc) = wtsum\n            enddo\n            do ig = 1, ng(ibnd)\n               ind = (ibnd-1)*mg + ig\n               rwgt(ind) = wt(ig)/wtsm(ngm(ind))\n            enddo\n         else\n            do ig = 1, ng(ibnd)\n               igcsm = igcsm + 1\n               ind = (ibnd-1)*mg + ig\n               rwgt(ind) = 1.0_rb\n            enddo\n         endif\n      enddo\n\n! Reduce g-points for absorption coefficient data in each LW spectral band.\n\n      call cmbgb1\n      call cmbgb2\n      call cmbgb3\n      call cmbgb4\n      call cmbgb5\n      call cmbgb6\n      call cmbgb7\n      call cmbgb8\n      call cmbgb9\n      call cmbgb10\n      call cmbgb11\n      call cmbgb12\n      call cmbgb13\n      call cmbgb14\n      call cmbgb15\n      call cmbgb16\n\n      end subroutine rrtmg_lw_ini\n\n!***************************************************************************\n      subroutine lwdatinit(cpdair)\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use parrrtm, only : maxxsec, maxinpx\n      use rrlw_con, only: heatfac, grav, planck, boltz, &\n                          clight, avogad, alosmt, gascon, radcn1, radcn2, &\n                          sbcnst, secdy \n      use rrlw_vsn\n\n      save \n \n      real(kind=rb), intent(in) :: cpdair      ! Specific heat capacity of dry air\n                                               ! at constant pressure at 273 K\n                                               ! (J kg-1 K-1)\n\n! Longwave spectral band limits (wavenumbers)\n      wavenum1(:) = (/ 10._rb, 350._rb, 500._rb, 630._rb, 700._rb, 820._rb, &\n                      980._rb,1080._rb,1180._rb,1390._rb,1480._rb,1800._rb, &\n                     2080._rb,2250._rb,2380._rb,2600._rb/)\n      wavenum2(:) = (/350._rb, 500._rb, 630._rb, 700._rb, 820._rb, 980._rb, &\n                     1080._rb,1180._rb,1390._rb,1480._rb,1800._rb,2080._rb, &\n                     2250._rb,2380._rb,2600._rb,3250._rb/)\n      delwave(:) =  (/340._rb, 150._rb, 130._rb,  70._rb, 120._rb, 160._rb, &\n                      100._rb, 100._rb, 210._rb,  90._rb, 320._rb, 280._rb, &\n                      170._rb, 130._rb, 220._rb, 650._rb/)\n\n! Spectral band information\n      ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/)\n      nspa(:) = (/1,1,9,9,9,1,9,1,9,1,1,9,9,1,9,9/)\n      nspb(:) = (/1,1,5,5,5,0,1,1,1,1,1,0,0,1,0,0/)\n\n!     nxmol     - number of cross-sections input by user\n!     ixindx(i) - index of cross-section molecule corresponding to Ith\n!                 cross-section specified by user\n!                 = 0 -- not allowed in rrtm\n!                 = 1 -- ccl4\n!                 = 2 -- cfc11\n!                 = 3 -- cfc12\n!                 = 4 -- cfc22\n      nxmol = 4\n      ixindx(1) = 1\n      ixindx(2) = 2\n      ixindx(3) = 3\n      ixindx(4) = 4\n      ixindx(5:maxinpx) = 0\n\n! Fundamental physical constants from NIST 2002\n\n      grav = 9.8066_rb                        ! Acceleration of gravity\n                                              ! (m s-2)\n      planck = 6.62606876e-27_rb              ! Planck constant\n                                              ! (ergs s; g cm2 s-1)\n      boltz = 1.3806503e-16_rb                ! Boltzmann constant\n                                              ! (ergs K-1; g cm2 s-2 K-1)\n      clight = 2.99792458e+10_rb              ! Speed of light in a vacuum  \n                                              ! (cm s-1)\n      avogad = 6.02214199e+23_rb              ! Avogadro constant\n                                              ! (mol-1)\n      alosmt = 2.6867775e+19_rb               ! Loschmidt constant\n                                              ! (cm-3)\n      gascon = 8.31447200e+07_rb              ! Molar gas constant\n                                              ! (ergs mol-1 K-1)\n      radcn1 = 1.191042722e-12_rb             ! First radiation constant\n                                              ! (W cm2 sr-1)\n      radcn2 = 1.4387752_rb                   ! Second radiation constant\n                                              ! (cm K)\n      sbcnst = 5.670400e-04_rb                ! Stefan-Boltzmann constant\n                                              ! (W cm-2 K-4)\n      secdy = 8.6400e4_rb                     ! Number of seconds per day\n                                              ! (s d-1)\n!\n!     units are generally cgs\n!\n!     The first and second radiation constants are taken from NIST.\n!     They were previously obtained from the relations:\n!          radcn1 = 2.*planck*clight*clight*1.e-07\n!          radcn2 = planck*clight/boltz\n\n!     Heatfac is the factor by which delta-flux / delta-pressure is\n!     multiplied, with flux in W/m-2 and pressure in mbar, to get \n!     the heating rate in units of degrees/day.  It is equal to:\n!     Original value:\n!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)\n!           Here, cpdair (1.004) is in units of J g-1 K-1, and the \n!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.\n!        =  (9.8066)(86400)(1e-5)/(1.004)\n!      heatfac = 8.4391_rb\n!\n!     Modified value for consistency with CAM3:\n!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)\n!           Here, cpdair (1.00464) is in units of J g-1 K-1, and the\n!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.\n!        =  (9.80616)(86400)(1e-5)/(1.00464)\n!      heatfac = 8.43339130434_rb\n!\n!     Calculated value:\n!        (grav) x (#sec/day) / (specific heat of dry air at const. p x 1.e2)\n!           Here, cpdair is in units of J kg-1 K-1, and the constant (1.e2) \n!           converts mb to Pa when heatfac is multiplied by W m-2 mb-1. \n      heatfac = grav * secdy / (cpdair * 1.e2_rb)\n\n      end subroutine lwdatinit\n\n!***************************************************************************\n      subroutine lwcmbdat\n!***************************************************************************\n\n      save\n \n! ------- Definitions -------\n!     Arrays for the g-point reduction from 256 to 140 for the 16 LW bands:\n!     This mapping from 256 to 140 points has been carefully selected to \n!     minimize the effect on the resulting fluxes and cooling rates, and\n!     caution should be used if the mapping is modified.  The full 256\n!     g-point set can be restored with ngptlw=256, ngc=16*16, ngn=256*1., etc.\n!     ngptlw  The total number of new g-points\n!     ngc     The number of new g-points in each band\n!     ngs     The cumulative sum of new g-points for each band\n!     ngm     The index of each new g-point relative to the original\n!             16 g-points for each band.  \n!     ngn     The number of original g-points that are combined to make\n!             each new g-point in each band.\n!     ngb     The band index for each new g-point.\n!     wt      RRTM weights for 16 g-points.\n\n! ------- Data statements -------\n      ngc(:) = (/10,12,16,14,16,8,12,8,12,6,8,8,4,2,2,2/)\n      ngs(:) = (/10,22,38,52,68,76,88,96,108,114,122,130,134,136,138,140/)\n      ngm(:) = (/1,2,3,3,4,4,5,5,6,6,7,7,8,8,9,10, &          ! band 1\n                 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &     ! band 2\n                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 3\n                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, &    ! band 4\n                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 5\n                 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 6\n                 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, &      ! band 7\n                 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 8\n                 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &     ! band 9\n                 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! band 10\n                 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, &           ! band 11\n                 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 12\n                 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, &           ! band 13\n                 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 14\n                 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 15\n                 1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2/)            ! band 16\n      ngn(:) = (/1,1,2,2,2,2,2,2,1,1, &                       ! band 1\n                 1,1,1,1,1,1,1,1,2,2,2,2, &                   ! band 2\n                 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 3\n                 1,1,1,1,1,1,1,1,1,1,1,1,1,3, &               ! band 4\n                 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 5\n                 2,2,2,2,2,2,2,2, &                           ! band 6\n                 2,2,1,1,1,1,1,1,1,1,2,2, &                   ! band 7\n                 2,2,2,2,2,2,2,2, &                           ! band 8\n                 1,1,1,1,1,1,1,1,2,2,2,2, &                   ! band 9\n                 2,2,2,2,4,4, &                               ! band 10\n                 1,1,2,2,2,2,3,3, &                           ! band 11\n                 1,1,1,1,2,2,4,4, &                           ! band 12\n                 3,3,4,6, &                                   ! band 13\n                 8,8, &                                       ! band 14\n                 8,8, &                                       ! band 15\n                 4,12/)                                       ! band 16\n      ngb(:) = (/1,1,1,1,1,1,1,1,1,1, &                       ! band 1\n                 2,2,2,2,2,2,2,2,2,2,2,2, &                   ! band 2\n                 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &           ! band 3\n                 4,4,4,4,4,4,4,4,4,4,4,4,4,4, &               ! band 4\n                 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, &           ! band 5\n                 6,6,6,6,6,6,6,6, &                           ! band 6\n                 7,7,7,7,7,7,7,7,7,7,7,7, &                   ! band 7\n                 8,8,8,8,8,8,8,8, &                           ! band 8\n                 9,9,9,9,9,9,9,9,9,9,9,9, &                   ! band 9\n                 10,10,10,10,10,10, &                         ! band 10\n                 11,11,11,11,11,11,11,11, &                   ! band 11\n                 12,12,12,12,12,12,12,12, &                   ! band 12\n                 13,13,13,13, &                               ! band 13\n                 14,14, &                                     ! band 14\n                 15,15, &                                     ! band 15\n                 16,16/)                                      ! band 16\n      wt(:) = (/ 0.1527534276_rb, 0.1491729617_rb, 0.1420961469_rb, &\n                 0.1316886544_rb, 0.1181945205_rb, 0.1019300893_rb, &\n                 0.0832767040_rb, 0.0626720116_rb, 0.0424925000_rb, &\n                 0.0046269894_rb, 0.0038279891_rb, 0.0030260086_rb, &\n                 0.0022199750_rb, 0.0014140010_rb, 0.0005330000_rb, &\n                 0.0000750000_rb/)\n\n      end subroutine lwcmbdat\n\n!***************************************************************************\n      subroutine cmbgb1\n!***************************************************************************\n!\n!  Original version:    MJIacono; July 1998\n!  Revision for GCMs:   MJIacono; September 1998\n!  Revision for RRTMG:  MJIacono, September 2002\n!  Revision for F90 reformatting:  MJIacono, June 2006\n!\n!  The subroutines CMBGB1->CMBGB16 input the absorption coefficient\n!  data for each band, which are defined for 16 g-points and 16 spectral\n!  bands. The data are combined with appropriate weighting following the\n!  g-point mapping arrays specified in RRTMINIT.  Plank fraction data\n!  in arrays FRACREFA and FRACREFB are combined without weighting.  All\n!  g-point reduced data are put into new arrays for use in RRTM.\n!\n!  band 1:  10-350 cm-1 (low key - h2o; low minor - n2)\n!                       (high key - h2o; high minor - n2)\n!  note: previous versions of rrtm band 1: \n!        10-250 cm-1 (low - h2o; high - h2o)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng1\n      use rrlw_kg01, only: fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, &\n                           selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mn2, kb_mn2, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumk1, sumk2, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(1)\n               sumk = 0.\n               do ipr = 1, ngn(igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(1)\n               sumk = 0.\n               do ipr = 1, ngn(igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk1 = 0.\n            sumk2 = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk1 = sumk1 + kao_mn2(jt,iprsm)*rwgt(iprsm)\n               sumk2 = sumk2 + kbo_mn2(jt,iprsm)*rwgt(iprsm)\n            enddo\n            ka_mn2(jt,igc) = sumk1\n            kb_mn2(jt,igc) = sumk2\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(1)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(igc)\n            iprsm = iprsm + 1\n            sumf1= sumf1+ fracrefao(iprsm)\n            sumf2= sumf2+ fracrefbo(iprsm)\n         enddo\n         fracrefa(igc) = sumf1\n         fracrefb(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb1\n\n!***************************************************************************\n      subroutine cmbgb2\n!***************************************************************************\n!\n!     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)\n!\n!     note: previous version of rrtm band 2: \n!           250 - 500 cm-1 (low - h2o; high - h2o)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng2\n      use rrlw_kg02, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(2)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(1)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+16)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(2)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(1)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+16)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(2)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(1)+igc)\n            iprsm = iprsm + 1\n            sumf1= sumf1+ fracrefao(iprsm)\n            sumf2= sumf2+ fracrefbo(iprsm)\n         enddo\n         fracrefa(igc) = sumf1\n         fracrefb(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb2\n\n!***************************************************************************\n      subroutine cmbgb3\n!***************************************************************************\n!\n!     band 3:  500-630 cm-1 (low key - h2o,co2; low minor - n2o)\n!                           (high key - h2o,co2; high minor - n2o)\n!\n! old band 3:  500-630 cm-1 (low - h2o,co2; high - h2o,co2)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng3\n      use rrlw_kg03, only: fracrefao, fracrefbo, kao, kbo, kao_mn2o, kbo_mn2o, &\n                           selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mn2o, kb_mn2o, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(3)\n                 sumk = 0.\n                  do ipr = 1, ngn(ngs(2)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(3)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(2)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+32)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,9\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(3)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(2)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao_mn2o(jn,jt,iprsm)*rwgt(iprsm+32)\n               enddo\n               ka_mn2o(jn,jt,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(3)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(2)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo_mn2o(jn,jt,iprsm)*rwgt(iprsm+32)\n               enddo\n               kb_mn2o(jn,jt,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefbo(iprsm,jp)\n            enddo\n            fracrefb(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb3\n\n!***************************************************************************\n      subroutine cmbgb4\n!***************************************************************************\n!\n!     band 4:  630-700 cm-1 (low key - h2o,co2; high key - o3,co2)\n!\n! old band 4:  630-700 cm-1 (low - h2o,co2; high - o3,co2)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng4\n      use rrlw_kg04, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(4)\n                 sumk = 0.\n                  do ipr = 1, ngn(ngs(3)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(4)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(3)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+48)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefbo(iprsm,jp)\n            enddo\n            fracrefb(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb4\n\n!***************************************************************************\n      subroutine cmbgb5\n!***************************************************************************\n!\n!     band 5:  700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4)\n!                           (high key - o3,co2)\n!\n! old band 5:  700-820 cm-1 (low - h2o,co2; high - o3,co2)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng5\n      use rrlw_kg05, only: fracrefao, fracrefbo, kao, kbo, kao_mo3, ccl4o, &\n                           selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mo3, ccl4, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(5)\n                 sumk = 0.\n                  do ipr = 1, ngn(ngs(4)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+64)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(5)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(4)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+64)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,9\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(5)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(4)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao_mo3(jn,jt,iprsm)*rwgt(iprsm+64)\n               enddo\n               ka_mo3(jn,jt,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefbo(iprsm,jp)\n            enddo\n            fracrefb(igc,jp) = sumf\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(5)\n         sumk = 0.\n         do ipr = 1, ngn(ngs(4)+igc)\n            iprsm = iprsm + 1\n            sumk = sumk + ccl4o(iprsm)*rwgt(iprsm+64)\n         enddo\n         ccl4(igc) = sumk\n      enddo\n\n      end subroutine cmbgb5\n\n!***************************************************************************\n      subroutine cmbgb6\n!***************************************************************************\n!\n!     band 6:  820-980 cm-1 (low key - h2o; low minor - co2)\n!                           (high key - nothing; high minor - cfc11, cfc12)\n!\n! old band 6:  820-980 cm-1 (low - h2o; high - nothing)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng6\n      use rrlw_kg06, only: fracrefao, kao, kao_mco2, cfc11adjo, cfc12o, &\n                           selfrefo, forrefo, &\n                           fracrefa, absa, ka, ka_mco2, cfc11adj, cfc12, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf, sumk1, sumk2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(6)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(5)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+80)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + kao_mco2(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            ka_mco2(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(6)\n         sumf = 0.\n         sumk1= 0.\n         sumk2= 0.\n         do ipr = 1, ngn(ngs(5)+igc)\n            iprsm = iprsm + 1\n            sumf = sumf + fracrefao(iprsm)\n            sumk1= sumk1+ cfc11adjo(iprsm)*rwgt(iprsm+80)\n            sumk2= sumk2+ cfc12o(iprsm)*rwgt(iprsm+80)\n         enddo\n         fracrefa(igc) = sumf\n         cfc11adj(igc) = sumk1\n         cfc12(igc) = sumk2\n      enddo\n\n      end subroutine cmbgb6\n\n!***************************************************************************\n      subroutine cmbgb7\n!***************************************************************************\n!\n!     band 7:  980-1080 cm-1 (low key - h2o,o3; low minor - co2)\n!                            (high key - o3; high minor - co2)\n!\n! old band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng7\n      use rrlw_kg07, only: fracrefao, fracrefbo, kao, kbo, kao_mco2, kbo_mco2, &\n                           selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, ka_mco2, kb_mco2, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(7)\n                 sumk = 0.\n                  do ipr = 1, ngn(ngs(6)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(7)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(6)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,9\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(7)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(6)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao_mco2(jn,jt,iprsm)*rwgt(iprsm+96)\n               enddo\n               ka_mco2(jn,jt,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + kbo_mco2(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            kb_mco2(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(7)\n         sumf = 0.\n         do ipr = 1, ngn(ngs(6)+igc)\n            iprsm = iprsm + 1\n            sumf = sumf + fracrefbo(iprsm)\n         enddo\n         fracrefb(igc) = sumf\n      enddo\n\n      end subroutine cmbgb7\n\n!***************************************************************************\n      subroutine cmbgb8\n!***************************************************************************\n!\n!     band 8:  1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o)\n!                             (high key - o3; high minor - co2, n2o)\n!\n! old band 8:  1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng8\n      use rrlw_kg08, only: fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, &\n                           kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, &\n                           cfc12o, cfc22adjo, &\n                           fracrefa, fracrefb, absa, ka, ka_mco2, ka_mn2o, &\n                           ka_mo3, absb, kb, kb_mco2, kb_mn2o, selfref, forref, &\n                           cfc12, cfc22adj\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumk1, sumk2, sumk3, sumk4, sumk5, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(8)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(7)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(8)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(7)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+112)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk1 = 0.\n            sumk2 = 0.\n            sumk3 = 0.\n            sumk4 = 0.\n            sumk5 = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk1 = sumk1 + kao_mco2(jt,iprsm)*rwgt(iprsm+112)\n               sumk2 = sumk2 + kbo_mco2(jt,iprsm)*rwgt(iprsm+112)\n               sumk3 = sumk3 + kao_mo3(jt,iprsm)*rwgt(iprsm+112)\n               sumk4 = sumk4 + kao_mn2o(jt,iprsm)*rwgt(iprsm+112)\n               sumk5 = sumk5 + kbo_mn2o(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            ka_mco2(jt,igc) = sumk1\n            kb_mco2(jt,igc) = sumk2\n            ka_mo3(jt,igc) = sumk3\n            ka_mn2o(jt,igc) = sumk4\n            kb_mn2o(jt,igc) = sumk5\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(8)\n         sumf1= 0.\n         sumf2= 0.\n         sumk1= 0.\n         sumk2= 0.\n         do ipr = 1, ngn(ngs(7)+igc)\n            iprsm = iprsm + 1\n            sumf1= sumf1+ fracrefao(iprsm)\n            sumf2= sumf2+ fracrefbo(iprsm)\n            sumk1= sumk1+ cfc12o(iprsm)*rwgt(iprsm+112)\n            sumk2= sumk2+ cfc22adjo(iprsm)*rwgt(iprsm+112)\n         enddo\n         fracrefa(igc) = sumf1\n         fracrefb(igc) = sumf2\n         cfc12(igc) = sumk1\n         cfc22adj(igc) = sumk2\n      enddo\n\n      end subroutine cmbgb8\n\n!***************************************************************************\n      subroutine cmbgb9\n!***************************************************************************\n!\n!     band 9:  1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o)\n!                             (high key - ch4; high minor - n2o)!\n\n! old band 9:  1180-1390 cm-1 (low - h2o,ch4; high - ch4)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng9\n      use rrlw_kg09, only: fracrefao, fracrefbo, kao, kao_mn2o, &\n                           kbo, kbo_mn2o, selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, ka_mn2o, &\n                           absb, kb, kb_mn2o, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(9)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(8)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(9)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(8)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,9\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(9)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(8)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao_mn2o(jn,jt,iprsm)*rwgt(iprsm+128)\n               enddo\n               ka_mn2o(jn,jt,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + kbo_mn2o(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            kb_mn2o(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(9)\n         sumf = 0.\n         do ipr = 1, ngn(ngs(8)+igc)\n            iprsm = iprsm + 1\n            sumf = sumf + fracrefbo(iprsm)\n         enddo\n         fracrefb(igc) = sumf\n      enddo\n\n      end subroutine cmbgb9\n\n!***************************************************************************\n      subroutine cmbgb10\n!***************************************************************************\n!\n!     band 10:  1390-1480 cm-1 (low key - h2o; high key - h2o)\n!\n! old band 10:  1390-1480 cm-1 (low - h2o; high - h2o)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng10\n      use rrlw_kg10, only: fracrefao, fracrefbo, kao, kbo, &\n                           selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(10)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(9)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(10)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(9)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+144)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(10)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(9)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+144)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(10)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(9)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+144)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(10)\n         sumf1= 0.\n         sumf2= 0.\n         do ipr = 1, ngn(ngs(9)+igc)\n            iprsm = iprsm + 1\n            sumf1= sumf1+ fracrefao(iprsm)\n            sumf2= sumf2+ fracrefbo(iprsm)\n         enddo\n         fracrefa(igc) = sumf1\n         fracrefb(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb10\n\n!***************************************************************************\n      subroutine cmbgb11\n!***************************************************************************\n!\n!     band 11:  1480-1800 cm-1 (low - h2o; low minor - o2)\n!                              (high key - h2o; high minor - o2)\n!\n! old band 11:  1480-1800 cm-1 (low - h2o; low minor - o2)\n!                              (high key - h2o; high minor - o2)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng11\n      use rrlw_kg11, only: fracrefao, fracrefbo, kao, kao_mo2, &\n                           kbo, kbo_mo2, selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, ka_mo2, &\n                           absb, kb, kb_mo2, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumk1, sumk2, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(11)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(10)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+160)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(11)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(10)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+160)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(11)\n            sumk1 = 0.\n            sumk2 = 0.\n            do ipr = 1, ngn(ngs(10)+igc)\n               iprsm = iprsm + 1\n               sumk1 = sumk1 + kao_mo2(jt,iprsm)*rwgt(iprsm+160)\n               sumk2 = sumk2 + kbo_mo2(jt,iprsm)*rwgt(iprsm+160)\n            enddo\n            ka_mo2(jt,igc) = sumk1\n            kb_mo2(jt,igc) = sumk2\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(11)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(10)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+160)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(11)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(10)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+160)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(11)\n         sumf1= 0.\n         sumf2= 0.\n         do ipr = 1, ngn(ngs(10)+igc)\n            iprsm = iprsm + 1\n            sumf1= sumf1+ fracrefao(iprsm)\n            sumf2= sumf2+ fracrefbo(iprsm)\n         enddo\n         fracrefa(igc) = sumf1\n         fracrefb(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb11\n\n!***************************************************************************\n      subroutine cmbgb12\n!***************************************************************************\n!\n!     band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)\n!\n! old band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng12\n      use rrlw_kg12, only: fracrefao, kao, selfrefo, forrefo, &\n                           fracrefa, absa, ka, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(12)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(11)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+176)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(12)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(11)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+176)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(12)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(11)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+176)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(12)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(11)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb12\n\n!***************************************************************************\n      subroutine cmbgb13\n!***************************************************************************\n!\n!     band 13:  2080-2250 cm-1 (low key - h2o,n2o; high minor - o3 minor)\n!\n! old band 13:  2080-2250 cm-1 (low - h2o,n2o; high - nothing)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng13\n      use rrlw_kg13, only: fracrefao, fracrefbo, kao, kao_mco2, kao_mco, &\n                           kbo_mo3, selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, ka_mco2, ka_mco, &\n                           kb_mo3, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumk1, sumk2, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(13)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(12)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,9\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(13)\n              sumk1 = 0.\n              sumk2 = 0.\n               do ipr = 1, ngn(ngs(12)+igc)\n                  iprsm = iprsm + 1\n                  sumk1 = sumk1 + kao_mco2(jn,jt,iprsm)*rwgt(iprsm+192)\n                  sumk2 = sumk2 + kao_mco(jn,jt,iprsm)*rwgt(iprsm+192)\n               enddo\n               ka_mco2(jn,jt,igc) = sumk1\n               ka_mco(jn,jt,igc) = sumk2\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,19\n         iprsm = 0\n         do igc = 1,ngc(13)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(12)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + kbo_mo3(jt,iprsm)*rwgt(iprsm+192)\n            enddo\n            kb_mo3(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(13)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(12)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+192)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(13)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(12)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+192)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(13)\n         sumf = 0.\n         do ipr = 1, ngn(ngs(12)+igc)\n            iprsm = iprsm + 1\n            sumf = sumf + fracrefbo(iprsm)\n         enddo\n         fracrefb(igc) = sumf\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(13)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(12)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb13\n\n!***************************************************************************\n      subroutine cmbgb14\n!***************************************************************************\n!\n!     band 14:  2250-2380 cm-1 (low - co2; high - co2)\n!\n! old band 14:  2250-2380 cm-1 (low - co2; high - co2)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng14\n      use rrlw_kg14, only: fracrefao, fracrefbo, kao, kbo, &\n                           selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, &\n                           selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(14)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(13)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(14)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(13)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(14)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(13)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(14)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(13)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(14)\n         sumf1= 0.\n         sumf2= 0.\n         do ipr = 1, ngn(ngs(13)+igc)\n            iprsm = iprsm + 1\n            sumf1= sumf1+ fracrefao(iprsm)\n            sumf2= sumf2+ fracrefbo(iprsm)\n         enddo\n         fracrefa(igc) = sumf1\n         fracrefb(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb14\n\n!***************************************************************************\n      subroutine cmbgb15\n!***************************************************************************\n!\n!     band 15:  2380-2600 cm-1 (low - n2o,co2; low minor - n2)\n!                              (high - nothing)\n!\n! old band 15:  2380-2600 cm-1 (low - n2o,co2; high - nothing)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng15\n      use rrlw_kg15, only: fracrefao, kao, kao_mn2, selfrefo, forrefo, &\n                           fracrefa, absa, ka, ka_mn2, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(15)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(14)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+224)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,9\n         do jt = 1,19\n            iprsm = 0\n            do igc = 1,ngc(15)\n              sumk = 0.\n               do ipr = 1, ngn(ngs(14)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao_mn2(jn,jt,iprsm)*rwgt(iprsm+224)\n               enddo\n               ka_mn2(jn,jt,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(15)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(14)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+224)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(15)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(14)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+224)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(15)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(14)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb15\n\n!***************************************************************************\n      subroutine cmbgb16\n!***************************************************************************\n!\n!     band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)\n!\n! old band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)\n!***************************************************************************\n\n      use parrrtm, only : mg, nbndlw, ngptlw, ng16\n      use rrlw_kg16, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, &\n                           fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm \n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(16)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(15)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+240)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(16)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(15)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+240)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(16)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(15)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+240)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(16)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(15)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+240)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(16)\n         sumf = 0.\n         do ipr = 1, ngn(ngs(15)+igc)\n            iprsm = iprsm + 1\n            sumf = sumf + fracrefbo(iprsm)\n         enddo\n         fracrefb(igc) = sumf\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(16)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(15)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + fracrefao(iprsm,jp)\n            enddo\n            fracrefa(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb16\n\n!***************************************************************************\n      subroutine lwcldpr\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use rrlw_cld, only: abscld1, absliq0, absliq1, &\n                          absice0, absice1, absice2, absice3\n\n      save\n\n! ABSCLDn is the liquid water absorption coefficient (m2/g). \n! For INFLAG = 1.\n      abscld1 = 0.0602410_rb\n!  \n! Everything below is for INFLAG = 2.\n\n! ABSICEn(J,IB) are the parameters needed to compute the liquid water \n! absorption coefficient in spectral region IB for ICEFLAG=n.  The units\n! of ABSICEn(1,IB) are m2/g and ABSICEn(2,IB) has units (microns (m2/g)).\n! For ICEFLAG = 0.\n\n      absice0(:)= (/0.005_rb,  1.0_rb/)\n\n! For ICEFLAG = 1.\n      absice1(1,:) = (/0.0036_rb, 0.0068_rb, 0.0003_rb, 0.0016_rb, 0.0020_rb/)\n      absice1(2,:) = (/1.136_rb , 0.600_rb , 1.338_rb , 1.166_rb , 1.118_rb /)\n\n! For ICEFLAG = 2.  In each band, the absorption\n! coefficients are listed for a range of effective radii from 5.0\n! to 131.0 microns in increments of 3.0 microns.\n! Spherical Ice Particle Parameterization\n! absorption units (abs coef/iwc): [(m^-1)/(g m^-3)]\n      absice2(:,1) = (/ &\n! band 1\n       7.798999e-02_rb,6.340479e-02_rb,5.417973e-02_rb,4.766245e-02_rb,4.272663e-02_rb, &\n       3.880939e-02_rb,3.559544e-02_rb,3.289241e-02_rb,3.057511e-02_rb,2.855800e-02_rb, &\n       2.678022e-02_rb,2.519712e-02_rb,2.377505e-02_rb,2.248806e-02_rb,2.131578e-02_rb, &\n       2.024194e-02_rb,1.925337e-02_rb,1.833926e-02_rb,1.749067e-02_rb,1.670007e-02_rb, &\n       1.596113e-02_rb,1.526845e-02_rb,1.461739e-02_rb,1.400394e-02_rb,1.342462e-02_rb, &\n       1.287639e-02_rb,1.235656e-02_rb,1.186279e-02_rb,1.139297e-02_rb,1.094524e-02_rb, &\n       1.051794e-02_rb,1.010956e-02_rb,9.718755e-03_rb,9.344316e-03_rb,8.985139e-03_rb, &\n       8.640223e-03_rb,8.308656e-03_rb,7.989606e-03_rb,7.682312e-03_rb,7.386076e-03_rb, &\n       7.100255e-03_rb,6.824258e-03_rb,6.557540e-03_rb/)\n      absice2(:,2) = (/ &\n! band 2\n       2.784879e-02_rb,2.709863e-02_rb,2.619165e-02_rb,2.529230e-02_rb,2.443225e-02_rb, &\n       2.361575e-02_rb,2.284021e-02_rb,2.210150e-02_rb,2.139548e-02_rb,2.071840e-02_rb, &\n       2.006702e-02_rb,1.943856e-02_rb,1.883064e-02_rb,1.824120e-02_rb,1.766849e-02_rb, &\n       1.711099e-02_rb,1.656737e-02_rb,1.603647e-02_rb,1.551727e-02_rb,1.500886e-02_rb, &\n       1.451045e-02_rb,1.402132e-02_rb,1.354084e-02_rb,1.306842e-02_rb,1.260355e-02_rb, &\n       1.214575e-02_rb,1.169460e-02_rb,1.124971e-02_rb,1.081072e-02_rb,1.037731e-02_rb, &\n       9.949167e-03_rb,9.526021e-03_rb,9.107615e-03_rb,8.693714e-03_rb,8.284096e-03_rb, &\n       7.878558e-03_rb,7.476910e-03_rb,7.078974e-03_rb,6.684586e-03_rb,6.293589e-03_rb, &\n       5.905839e-03_rb,5.521200e-03_rb,5.139543e-03_rb/)\n      absice2(:,3) = (/ &\n! band 3\n       1.065397e-01_rb,8.005726e-02_rb,6.546428e-02_rb,5.589131e-02_rb,4.898681e-02_rb, &\n       4.369932e-02_rb,3.947901e-02_rb,3.600676e-02_rb,3.308299e-02_rb,3.057561e-02_rb, &\n       2.839325e-02_rb,2.647040e-02_rb,2.475872e-02_rb,2.322164e-02_rb,2.183091e-02_rb, &\n       2.056430e-02_rb,1.940407e-02_rb,1.833586e-02_rb,1.734787e-02_rb,1.643034e-02_rb, &\n       1.557512e-02_rb,1.477530e-02_rb,1.402501e-02_rb,1.331924e-02_rb,1.265364e-02_rb, &\n       1.202445e-02_rb,1.142838e-02_rb,1.086257e-02_rb,1.032445e-02_rb,9.811791e-03_rb, &\n       9.322587e-03_rb,8.855053e-03_rb,8.407591e-03_rb,7.978763e-03_rb,7.567273e-03_rb, &\n       7.171949e-03_rb,6.791728e-03_rb,6.425642e-03_rb,6.072809e-03_rb,5.732424e-03_rb, &\n       5.403748e-03_rb,5.086103e-03_rb,4.778865e-03_rb/)\n      absice2(:,4) = (/ &\n! band 4\n       1.804566e-01_rb,1.168987e-01_rb,8.680442e-02_rb,6.910060e-02_rb,5.738174e-02_rb, &\n       4.902332e-02_rb,4.274585e-02_rb,3.784923e-02_rb,3.391734e-02_rb,3.068690e-02_rb, &\n       2.798301e-02_rb,2.568480e-02_rb,2.370600e-02_rb,2.198337e-02_rb,2.046940e-02_rb, &\n       1.912777e-02_rb,1.793016e-02_rb,1.685420e-02_rb,1.588193e-02_rb,1.499882e-02_rb, &\n       1.419293e-02_rb,1.345440e-02_rb,1.277496e-02_rb,1.214769e-02_rb,1.156669e-02_rb, &\n       1.102694e-02_rb,1.052412e-02_rb,1.005451e-02_rb,9.614854e-03_rb,9.202335e-03_rb, &\n       8.814470e-03_rb,8.449077e-03_rb,8.104223e-03_rb,7.778195e-03_rb,7.469466e-03_rb, &\n       7.176671e-03_rb,6.898588e-03_rb,6.634117e-03_rb,6.382264e-03_rb,6.142134e-03_rb, &\n       5.912913e-03_rb,5.693862e-03_rb,5.484308e-03_rb/)\n      absice2(:,5) = (/ &\n! band 5\n       2.131806e-01_rb,1.311372e-01_rb,9.407171e-02_rb,7.299442e-02_rb,5.941273e-02_rb, &\n       4.994043e-02_rb,4.296242e-02_rb,3.761113e-02_rb,3.337910e-02_rb,2.994978e-02_rb, &\n       2.711556e-02_rb,2.473461e-02_rb,2.270681e-02_rb,2.095943e-02_rb,1.943839e-02_rb, &\n       1.810267e-02_rb,1.692057e-02_rb,1.586719e-02_rb,1.492275e-02_rb,1.407132e-02_rb, &\n       1.329989e-02_rb,1.259780e-02_rb,1.195618e-02_rb,1.136761e-02_rb,1.082583e-02_rb, &\n       1.032552e-02_rb,9.862158e-03_rb,9.431827e-03_rb,9.031157e-03_rb,8.657217e-03_rb, &\n       8.307449e-03_rb,7.979609e-03_rb,7.671724e-03_rb,7.382048e-03_rb,7.109032e-03_rb, &\n       6.851298e-03_rb,6.607615e-03_rb,6.376881e-03_rb,6.158105e-03_rb,5.950394e-03_rb, &\n       5.752942e-03_rb,5.565019e-03_rb,5.385963e-03_rb/)\n      absice2(:,6) = (/ &\n! band 6\n       1.546177e-01_rb,1.039251e-01_rb,7.910347e-02_rb,6.412429e-02_rb,5.399997e-02_rb, &\n       4.664937e-02_rb,4.104237e-02_rb,3.660781e-02_rb,3.300218e-02_rb,3.000586e-02_rb, &\n       2.747148e-02_rb,2.529633e-02_rb,2.340647e-02_rb,2.174723e-02_rb,2.027731e-02_rb, &\n       1.896487e-02_rb,1.778492e-02_rb,1.671761e-02_rb,1.574692e-02_rb,1.485978e-02_rb, &\n       1.404543e-02_rb,1.329489e-02_rb,1.260066e-02_rb,1.195636e-02_rb,1.135657e-02_rb, &\n       1.079664e-02_rb,1.027257e-02_rb,9.780871e-03_rb,9.318505e-03_rb,8.882815e-03_rb, &\n       8.471458e-03_rb,8.082364e-03_rb,7.713696e-03_rb,7.363817e-03_rb,7.031264e-03_rb, &\n       6.714725e-03_rb,6.413021e-03_rb,6.125086e-03_rb,5.849958e-03_rb,5.586764e-03_rb, &\n       5.334707e-03_rb,5.093066e-03_rb,4.861179e-03_rb/)\n      absice2(:,7) = (/ &\n! band 7\n       7.583404e-02_rb,6.181558e-02_rb,5.312027e-02_rb,4.696039e-02_rb,4.225986e-02_rb, &\n       3.849735e-02_rb,3.538340e-02_rb,3.274182e-02_rb,3.045798e-02_rb,2.845343e-02_rb, &\n       2.667231e-02_rb,2.507353e-02_rb,2.362606e-02_rb,2.230595e-02_rb,2.109435e-02_rb, &\n       1.997617e-02_rb,1.893916e-02_rb,1.797328e-02_rb,1.707016e-02_rb,1.622279e-02_rb, &\n       1.542523e-02_rb,1.467241e-02_rb,1.395997e-02_rb,1.328414e-02_rb,1.264164e-02_rb, &\n       1.202958e-02_rb,1.144544e-02_rb,1.088697e-02_rb,1.035218e-02_rb,9.839297e-03_rb, &\n       9.346733e-03_rb,8.873057e-03_rb,8.416980e-03_rb,7.977335e-03_rb,7.553066e-03_rb, &\n       7.143210e-03_rb,6.746888e-03_rb,6.363297e-03_rb,5.991700e-03_rb,5.631422e-03_rb, &\n       5.281840e-03_rb,4.942378e-03_rb,4.612505e-03_rb/)\n      absice2(:,8) = (/ &\n! band 8\n       9.022185e-02_rb,6.922700e-02_rb,5.710674e-02_rb,4.898377e-02_rb,4.305946e-02_rb, &\n       3.849553e-02_rb,3.484183e-02_rb,3.183220e-02_rb,2.929794e-02_rb,2.712627e-02_rb, &\n       2.523856e-02_rb,2.357810e-02_rb,2.210286e-02_rb,2.078089e-02_rb,1.958747e-02_rb, &\n       1.850310e-02_rb,1.751218e-02_rb,1.660205e-02_rb,1.576232e-02_rb,1.498440e-02_rb, &\n       1.426107e-02_rb,1.358624e-02_rb,1.295474e-02_rb,1.236212e-02_rb,1.180456e-02_rb, &\n       1.127874e-02_rb,1.078175e-02_rb,1.031106e-02_rb,9.864433e-03_rb,9.439878e-03_rb, &\n       9.035637e-03_rb,8.650140e-03_rb,8.281981e-03_rb,7.929895e-03_rb,7.592746e-03_rb, &\n       7.269505e-03_rb,6.959238e-03_rb,6.661100e-03_rb,6.374317e-03_rb,6.098185e-03_rb, &\n       5.832059e-03_rb,5.575347e-03_rb,5.327504e-03_rb/)\n      absice2(:,9) = (/ &\n! band 9\n       1.294087e-01_rb,8.788217e-02_rb,6.728288e-02_rb,5.479720e-02_rb,4.635049e-02_rb, &\n       4.022253e-02_rb,3.555576e-02_rb,3.187259e-02_rb,2.888498e-02_rb,2.640843e-02_rb, &\n       2.431904e-02_rb,2.253038e-02_rb,2.098024e-02_rb,1.962267e-02_rb,1.842293e-02_rb, &\n       1.735426e-02_rb,1.639571e-02_rb,1.553060e-02_rb,1.474552e-02_rb,1.402953e-02_rb, &\n       1.337363e-02_rb,1.277033e-02_rb,1.221336e-02_rb,1.169741e-02_rb,1.121797e-02_rb, &\n       1.077117e-02_rb,1.035369e-02_rb,9.962643e-03_rb,9.595509e-03_rb,9.250088e-03_rb, &\n       8.924447e-03_rb,8.616876e-03_rb,8.325862e-03_rb,8.050057e-03_rb,7.788258e-03_rb, &\n       7.539388e-03_rb,7.302478e-03_rb,7.076656e-03_rb,6.861134e-03_rb,6.655197e-03_rb, &\n       6.458197e-03_rb,6.269543e-03_rb,6.088697e-03_rb/)\n      absice2(:,10) = (/ &\n! band 10\n       1.593628e-01_rb,1.014552e-01_rb,7.458955e-02_rb,5.903571e-02_rb,4.887582e-02_rb, &\n       4.171159e-02_rb,3.638480e-02_rb,3.226692e-02_rb,2.898717e-02_rb,2.631256e-02_rb, &\n       2.408925e-02_rb,2.221156e-02_rb,2.060448e-02_rb,1.921325e-02_rb,1.799699e-02_rb, &\n       1.692456e-02_rb,1.597177e-02_rb,1.511961e-02_rb,1.435289e-02_rb,1.365933e-02_rb, &\n       1.302890e-02_rb,1.245334e-02_rb,1.192576e-02_rb,1.144037e-02_rb,1.099230e-02_rb, &\n       1.057739e-02_rb,1.019208e-02_rb,9.833302e-03_rb,9.498395e-03_rb,9.185047e-03_rb, &\n       8.891237e-03_rb,8.615185e-03_rb,8.355325e-03_rb,8.110267e-03_rb,7.878778e-03_rb, &\n       7.659759e-03_rb,7.452224e-03_rb,7.255291e-03_rb,7.068166e-03_rb,6.890130e-03_rb, &\n       6.720536e-03_rb,6.558794e-03_rb,6.404371e-03_rb/)\n      absice2(:,11) = (/ &\n! band 11\n       1.656227e-01_rb,1.032129e-01_rb,7.487359e-02_rb,5.871431e-02_rb,4.828355e-02_rb, &\n       4.099989e-02_rb,3.562924e-02_rb,3.150755e-02_rb,2.824593e-02_rb,2.560156e-02_rb, &\n       2.341503e-02_rb,2.157740e-02_rb,2.001169e-02_rb,1.866199e-02_rb,1.748669e-02_rb, &\n       1.645421e-02_rb,1.554015e-02_rb,1.472535e-02_rb,1.399457e-02_rb,1.333553e-02_rb, &\n       1.273821e-02_rb,1.219440e-02_rb,1.169725e-02_rb,1.124104e-02_rb,1.082096e-02_rb, &\n       1.043290e-02_rb,1.007336e-02_rb,9.739338e-03_rb,9.428223e-03_rb,9.137756e-03_rb, &\n       8.865964e-03_rb,8.611115e-03_rb,8.371686e-03_rb,8.146330e-03_rb,7.933852e-03_rb, &\n       7.733187e-03_rb,7.543386e-03_rb,7.363597e-03_rb,7.193056e-03_rb,7.031072e-03_rb, &\n       6.877024e-03_rb,6.730348e-03_rb,6.590531e-03_rb/)\n      absice2(:,12) = (/ &\n! band 12\n       9.194591e-02_rb,6.446867e-02_rb,4.962034e-02_rb,4.042061e-02_rb,3.418456e-02_rb, &\n       2.968856e-02_rb,2.629900e-02_rb,2.365572e-02_rb,2.153915e-02_rb,1.980791e-02_rb, &\n       1.836689e-02_rb,1.714979e-02_rb,1.610900e-02_rb,1.520946e-02_rb,1.442476e-02_rb, &\n       1.373468e-02_rb,1.312345e-02_rb,1.257858e-02_rb,1.209010e-02_rb,1.164990e-02_rb, &\n       1.125136e-02_rb,1.088901e-02_rb,1.055827e-02_rb,1.025531e-02_rb,9.976896e-03_rb, &\n       9.720255e-03_rb,9.483022e-03_rb,9.263160e-03_rb,9.058902e-03_rb,8.868710e-03_rb, &\n       8.691240e-03_rb,8.525312e-03_rb,8.369886e-03_rb,8.224042e-03_rb,8.086961e-03_rb, &\n       7.957917e-03_rb,7.836258e-03_rb,7.721400e-03_rb,7.612821e-03_rb,7.510045e-03_rb, &\n       7.412648e-03_rb,7.320242e-03_rb,7.232476e-03_rb/)\n      absice2(:,13) = (/ &\n! band 13\n       1.437021e-01_rb,8.872535e-02_rb,6.392420e-02_rb,4.991833e-02_rb,4.096790e-02_rb, &\n       3.477881e-02_rb,3.025782e-02_rb,2.681909e-02_rb,2.412102e-02_rb,2.195132e-02_rb, &\n       2.017124e-02_rb,1.868641e-02_rb,1.743044e-02_rb,1.635529e-02_rb,1.542540e-02_rb, &\n       1.461388e-02_rb,1.390003e-02_rb,1.326766e-02_rb,1.270395e-02_rb,1.219860e-02_rb, &\n       1.174326e-02_rb,1.133107e-02_rb,1.095637e-02_rb,1.061442e-02_rb,1.030126e-02_rb, &\n       1.001352e-02_rb,9.748340e-03_rb,9.503256e-03_rb,9.276155e-03_rb,9.065205e-03_rb, &\n       8.868808e-03_rb,8.685571e-03_rb,8.514268e-03_rb,8.353820e-03_rb,8.203272e-03_rb, &\n       8.061776e-03_rb,7.928578e-03_rb,7.803001e-03_rb,7.684443e-03_rb,7.572358e-03_rb, &\n       7.466258e-03_rb,7.365701e-03_rb,7.270286e-03_rb/)\n      absice2(:,14) = (/ &\n! band 14\n       1.288870e-01_rb,8.160295e-02_rb,5.964745e-02_rb,4.703790e-02_rb,3.888637e-02_rb, &\n       3.320115e-02_rb,2.902017e-02_rb,2.582259e-02_rb,2.330224e-02_rb,2.126754e-02_rb, &\n       1.959258e-02_rb,1.819130e-02_rb,1.700289e-02_rb,1.598320e-02_rb,1.509942e-02_rb, &\n       1.432666e-02_rb,1.364572e-02_rb,1.304156e-02_rb,1.250220e-02_rb,1.201803e-02_rb, &\n       1.158123e-02_rb,1.118537e-02_rb,1.082513e-02_rb,1.049605e-02_rb,1.019440e-02_rb, &\n       9.916989e-03_rb,9.661116e-03_rb,9.424457e-03_rb,9.205005e-03_rb,9.001022e-03_rb, &\n       8.810992e-03_rb,8.633588e-03_rb,8.467646e-03_rb,8.312137e-03_rb,8.166151e-03_rb, &\n       8.028878e-03_rb,7.899597e-03_rb,7.777663e-03_rb,7.662498e-03_rb,7.553581e-03_rb, &\n       7.450444e-03_rb,7.352662e-03_rb,7.259851e-03_rb/)\n      absice2(:,15) = (/ &\n! band 15\n       8.254229e-02_rb,5.808787e-02_rb,4.492166e-02_rb,3.675028e-02_rb,3.119623e-02_rb, &\n       2.718045e-02_rb,2.414450e-02_rb,2.177073e-02_rb,1.986526e-02_rb,1.830306e-02_rb, &\n       1.699991e-02_rb,1.589698e-02_rb,1.495199e-02_rb,1.413374e-02_rb,1.341870e-02_rb, &\n       1.278883e-02_rb,1.223002e-02_rb,1.173114e-02_rb,1.128322e-02_rb,1.087900e-02_rb, &\n       1.051254e-02_rb,1.017890e-02_rb,9.873991e-03_rb,9.594347e-03_rb,9.337044e-03_rb, &\n       9.099589e-03_rb,8.879842e-03_rb,8.675960e-03_rb,8.486341e-03_rb,8.309594e-03_rb, &\n       8.144500e-03_rb,7.989986e-03_rb,7.845109e-03_rb,7.709031e-03_rb,7.581007e-03_rb, &\n       7.460376e-03_rb,7.346544e-03_rb,7.238978e-03_rb,7.137201e-03_rb,7.040780e-03_rb, &\n       6.949325e-03_rb,6.862483e-03_rb,6.779931e-03_rb/)\n      absice2(:,16) = (/ &\n! band 16\n       1.382062e-01_rb,8.643227e-02_rb,6.282935e-02_rb,4.934783e-02_rb,4.063891e-02_rb, &\n       3.455591e-02_rb,3.007059e-02_rb,2.662897e-02_rb,2.390631e-02_rb,2.169972e-02_rb, &\n       1.987596e-02_rb,1.834393e-02_rb,1.703924e-02_rb,1.591513e-02_rb,1.493679e-02_rb, &\n       1.407780e-02_rb,1.331775e-02_rb,1.264061e-02_rb,1.203364e-02_rb,1.148655e-02_rb, &\n       1.099099e-02_rb,1.054006e-02_rb,1.012807e-02_rb,9.750215e-03_rb,9.402477e-03_rb, &\n       9.081428e-03_rb,8.784143e-03_rb,8.508107e-03_rb,8.251146e-03_rb,8.011373e-03_rb, &\n       7.787140e-03_rb,7.577002e-03_rb,7.379687e-03_rb,7.194071e-03_rb,7.019158e-03_rb, &\n       6.854061e-03_rb,6.697986e-03_rb,6.550224e-03_rb,6.410138e-03_rb,6.277153e-03_rb, &\n       6.150751e-03_rb,6.030462e-03_rb,5.915860e-03_rb/)\n\n! ICEFLAG = 3; Fu parameterization. Particle size 5 - 140 micron in \n! increments of 3 microns.\n! units = m2/g\n! Hexagonal Ice Particle Parameterization\n! absorption units (abs coef/iwc): [(m^-1)/(g m^-3)]\n      absice3(:,1) = (/ &\n! band 1\n       3.110649e-03_rb,4.666352e-02_rb,6.606447e-02_rb,6.531678e-02_rb,6.012598e-02_rb, &\n       5.437494e-02_rb,4.906411e-02_rb,4.441146e-02_rb,4.040585e-02_rb,3.697334e-02_rb, &\n       3.403027e-02_rb,3.149979e-02_rb,2.931596e-02_rb,2.742365e-02_rb,2.577721e-02_rb, &\n       2.433888e-02_rb,2.307732e-02_rb,2.196644e-02_rb,2.098437e-02_rb,2.011264e-02_rb, &\n       1.933561e-02_rb,1.863992e-02_rb,1.801407e-02_rb,1.744812e-02_rb,1.693346e-02_rb, &\n       1.646252e-02_rb,1.602866e-02_rb,1.562600e-02_rb,1.524933e-02_rb,1.489399e-02_rb, &\n       1.455580e-02_rb,1.423098e-02_rb,1.391612e-02_rb,1.360812e-02_rb,1.330413e-02_rb, &\n       1.300156e-02_rb,1.269801e-02_rb,1.239127e-02_rb,1.207928e-02_rb,1.176014e-02_rb, &\n       1.143204e-02_rb,1.109334e-02_rb,1.074243e-02_rb,1.037786e-02_rb,9.998198e-03_rb, &\n       9.602126e-03_rb/)\n      absice3(:,2) = (/ &\n! band 2\n       3.984966e-04_rb,1.681097e-02_rb,2.627680e-02_rb,2.767465e-02_rb,2.700722e-02_rb, &\n       2.579180e-02_rb,2.448677e-02_rb,2.323890e-02_rb,2.209096e-02_rb,2.104882e-02_rb, &\n       2.010547e-02_rb,1.925003e-02_rb,1.847128e-02_rb,1.775883e-02_rb,1.710358e-02_rb, &\n       1.649769e-02_rb,1.593449e-02_rb,1.540829e-02_rb,1.491429e-02_rb,1.444837e-02_rb, &\n       1.400704e-02_rb,1.358729e-02_rb,1.318654e-02_rb,1.280258e-02_rb,1.243346e-02_rb, &\n       1.207750e-02_rb,1.173325e-02_rb,1.139941e-02_rb,1.107487e-02_rb,1.075861e-02_rb, &\n       1.044975e-02_rb,1.014753e-02_rb,9.851229e-03_rb,9.560240e-03_rb,9.274003e-03_rb, &\n       8.992020e-03_rb,8.713845e-03_rb,8.439074e-03_rb,8.167346e-03_rb,7.898331e-03_rb, &\n       7.631734e-03_rb,7.367286e-03_rb,7.104742e-03_rb,6.843882e-03_rb,6.584504e-03_rb, &\n       6.326424e-03_rb/)\n      absice3(:,3) = (/ &\n! band 3\n       6.933163e-02_rb,8.540475e-02_rb,7.701816e-02_rb,6.771158e-02_rb,5.986953e-02_rb, &\n       5.348120e-02_rb,4.824962e-02_rb,4.390563e-02_rb,4.024411e-02_rb,3.711404e-02_rb, &\n       3.440426e-02_rb,3.203200e-02_rb,2.993478e-02_rb,2.806474e-02_rb,2.638464e-02_rb, &\n       2.486516e-02_rb,2.348288e-02_rb,2.221890e-02_rb,2.105780e-02_rb,1.998687e-02_rb, &\n       1.899552e-02_rb,1.807490e-02_rb,1.721750e-02_rb,1.641693e-02_rb,1.566773e-02_rb, &\n       1.496515e-02_rb,1.430509e-02_rb,1.368398e-02_rb,1.309865e-02_rb,1.254634e-02_rb, &\n       1.202456e-02_rb,1.153114e-02_rb,1.106409e-02_rb,1.062166e-02_rb,1.020224e-02_rb, &\n       9.804381e-03_rb,9.426771e-03_rb,9.068205e-03_rb,8.727578e-03_rb,8.403876e-03_rb, &\n       8.096160e-03_rb,7.803564e-03_rb,7.525281e-03_rb,7.260560e-03_rb,7.008697e-03_rb, &\n       6.769036e-03_rb/)\n      absice3(:,4) = (/ &\n! band 4\n       1.765735e-01_rb,1.382700e-01_rb,1.095129e-01_rb,8.987475e-02_rb,7.591185e-02_rb, &\n       6.554169e-02_rb,5.755500e-02_rb,5.122083e-02_rb,4.607610e-02_rb,4.181475e-02_rb, &\n       3.822697e-02_rb,3.516432e-02_rb,3.251897e-02_rb,3.021073e-02_rb,2.817876e-02_rb, &\n       2.637607e-02_rb,2.476582e-02_rb,2.331871e-02_rb,2.201113e-02_rb,2.082388e-02_rb, &\n       1.974115e-02_rb,1.874983e-02_rb,1.783894e-02_rb,1.699922e-02_rb,1.622280e-02_rb, &\n       1.550296e-02_rb,1.483390e-02_rb,1.421064e-02_rb,1.362880e-02_rb,1.308460e-02_rb, &\n       1.257468e-02_rb,1.209611e-02_rb,1.164628e-02_rb,1.122287e-02_rb,1.082381e-02_rb, &\n       1.044725e-02_rb,1.009154e-02_rb,9.755166e-03_rb,9.436783e-03_rb,9.135163e-03_rb, &\n       8.849193e-03_rb,8.577856e-03_rb,8.320225e-03_rb,8.075451e-03_rb,7.842755e-03_rb, &\n       7.621418e-03_rb/)\n      absice3(:,5) = (/ &\n! band 5\n       2.339673e-01_rb,1.692124e-01_rb,1.291656e-01_rb,1.033837e-01_rb,8.562949e-02_rb, &\n       7.273526e-02_rb,6.298262e-02_rb,5.537015e-02_rb,4.927787e-02_rb,4.430246e-02_rb, &\n       4.017061e-02_rb,3.669072e-02_rb,3.372455e-02_rb,3.116995e-02_rb,2.894977e-02_rb, &\n       2.700471e-02_rb,2.528842e-02_rb,2.376420e-02_rb,2.240256e-02_rb,2.117959e-02_rb, &\n       2.007567e-02_rb,1.907456e-02_rb,1.816271e-02_rb,1.732874e-02_rb,1.656300e-02_rb, &\n       1.585725e-02_rb,1.520445e-02_rb,1.459852e-02_rb,1.403419e-02_rb,1.350689e-02_rb, &\n       1.301260e-02_rb,1.254781e-02_rb,1.210941e-02_rb,1.169468e-02_rb,1.130118e-02_rb, &\n       1.092675e-02_rb,1.056945e-02_rb,1.022757e-02_rb,9.899560e-03_rb,9.584021e-03_rb, &\n       9.279705e-03_rb,8.985479e-03_rb,8.700322e-03_rb,8.423306e-03_rb,8.153590e-03_rb, &\n       7.890412e-03_rb/)\n      absice3(:,6) = (/ &\n! band 6\n       1.145369e-01_rb,1.174566e-01_rb,9.917866e-02_rb,8.332990e-02_rb,7.104263e-02_rb, &\n       6.153370e-02_rb,5.405472e-02_rb,4.806281e-02_rb,4.317918e-02_rb,3.913795e-02_rb, &\n       3.574916e-02_rb,3.287437e-02_rb,3.041067e-02_rb,2.828017e-02_rb,2.642292e-02_rb, &\n       2.479206e-02_rb,2.335051e-02_rb,2.206851e-02_rb,2.092195e-02_rb,1.989108e-02_rb, &\n       1.895958e-02_rb,1.811385e-02_rb,1.734245e-02_rb,1.663573e-02_rb,1.598545e-02_rb, &\n       1.538456e-02_rb,1.482700e-02_rb,1.430750e-02_rb,1.382150e-02_rb,1.336499e-02_rb, &\n       1.293447e-02_rb,1.252685e-02_rb,1.213939e-02_rb,1.176968e-02_rb,1.141555e-02_rb, &\n       1.107508e-02_rb,1.074655e-02_rb,1.042839e-02_rb,1.011923e-02_rb,9.817799e-03_rb, &\n       9.522962e-03_rb,9.233688e-03_rb,8.949041e-03_rb,8.668171e-03_rb,8.390301e-03_rb, &\n       8.114723e-03_rb/)\n      absice3(:,7) = (/ &\n! band 7\n       1.222345e-02_rb,5.344230e-02_rb,5.523465e-02_rb,5.128759e-02_rb,4.676925e-02_rb, &\n       4.266150e-02_rb,3.910561e-02_rb,3.605479e-02_rb,3.342843e-02_rb,3.115052e-02_rb, &\n       2.915776e-02_rb,2.739935e-02_rb,2.583499e-02_rb,2.443266e-02_rb,2.316681e-02_rb, &\n       2.201687e-02_rb,2.096619e-02_rb,2.000112e-02_rb,1.911044e-02_rb,1.828481e-02_rb, &\n       1.751641e-02_rb,1.679866e-02_rb,1.612598e-02_rb,1.549360e-02_rb,1.489742e-02_rb, &\n       1.433392e-02_rb,1.380002e-02_rb,1.329305e-02_rb,1.281068e-02_rb,1.235084e-02_rb, &\n       1.191172e-02_rb,1.149171e-02_rb,1.108936e-02_rb,1.070341e-02_rb,1.033271e-02_rb, &\n       9.976220e-03_rb,9.633021e-03_rb,9.302273e-03_rb,8.983216e-03_rb,8.675161e-03_rb, &\n       8.377478e-03_rb,8.089595e-03_rb,7.810986e-03_rb,7.541170e-03_rb,7.279706e-03_rb, &\n       7.026186e-03_rb/)\n      absice3(:,8) = (/ &\n! band 8\n       6.711058e-02_rb,6.918198e-02_rb,6.127484e-02_rb,5.411944e-02_rb,4.836902e-02_rb, &\n       4.375293e-02_rb,3.998077e-02_rb,3.683587e-02_rb,3.416508e-02_rb,3.186003e-02_rb, &\n       2.984290e-02_rb,2.805671e-02_rb,2.645895e-02_rb,2.501733e-02_rb,2.370689e-02_rb, &\n       2.250808e-02_rb,2.140532e-02_rb,2.038609e-02_rb,1.944018e-02_rb,1.855918e-02_rb, &\n       1.773609e-02_rb,1.696504e-02_rb,1.624106e-02_rb,1.555990e-02_rb,1.491793e-02_rb, &\n       1.431197e-02_rb,1.373928e-02_rb,1.319743e-02_rb,1.268430e-02_rb,1.219799e-02_rb, &\n       1.173682e-02_rb,1.129925e-02_rb,1.088393e-02_rb,1.048961e-02_rb,1.011516e-02_rb, &\n       9.759543e-03_rb,9.421813e-03_rb,9.101089e-03_rb,8.796559e-03_rb,8.507464e-03_rb, &\n       8.233098e-03_rb,7.972798e-03_rb,7.725942e-03_rb,7.491940e-03_rb,7.270238e-03_rb, &\n       7.060305e-03_rb/)\n      absice3(:,9) = (/ &\n! band 9\n       1.236780e-01_rb,9.222386e-02_rb,7.383997e-02_rb,6.204072e-02_rb,5.381029e-02_rb, &\n       4.770678e-02_rb,4.296928e-02_rb,3.916131e-02_rb,3.601540e-02_rb,3.335878e-02_rb, &\n       3.107493e-02_rb,2.908247e-02_rb,2.732282e-02_rb,2.575276e-02_rb,2.433968e-02_rb, &\n       2.305852e-02_rb,2.188966e-02_rb,2.081757e-02_rb,1.982974e-02_rb,1.891599e-02_rb, &\n       1.806794e-02_rb,1.727865e-02_rb,1.654227e-02_rb,1.585387e-02_rb,1.520924e-02_rb, &\n       1.460476e-02_rb,1.403730e-02_rb,1.350416e-02_rb,1.300293e-02_rb,1.253153e-02_rb, &\n       1.208808e-02_rb,1.167094e-02_rb,1.127862e-02_rb,1.090979e-02_rb,1.056323e-02_rb, &\n       1.023786e-02_rb,9.932665e-03_rb,9.646744e-03_rb,9.379250e-03_rb,9.129409e-03_rb, &\n       8.896500e-03_rb,8.679856e-03_rb,8.478852e-03_rb,8.292904e-03_rb,8.121463e-03_rb, &\n       7.964013e-03_rb/)\n      absice3(:,10) = (/ &\n! band 10\n       1.655966e-01_rb,1.134205e-01_rb,8.714344e-02_rb,7.129241e-02_rb,6.063739e-02_rb, &\n       5.294203e-02_rb,4.709309e-02_rb,4.247476e-02_rb,3.871892e-02_rb,3.559206e-02_rb, &\n       3.293893e-02_rb,3.065226e-02_rb,2.865558e-02_rb,2.689288e-02_rb,2.532221e-02_rb, &\n       2.391150e-02_rb,2.263582e-02_rb,2.147549e-02_rb,2.041476e-02_rb,1.944089e-02_rb, &\n       1.854342e-02_rb,1.771371e-02_rb,1.694456e-02_rb,1.622989e-02_rb,1.556456e-02_rb, &\n       1.494415e-02_rb,1.436491e-02_rb,1.382354e-02_rb,1.331719e-02_rb,1.284339e-02_rb, &\n       1.239992e-02_rb,1.198486e-02_rb,1.159647e-02_rb,1.123323e-02_rb,1.089375e-02_rb, &\n       1.057679e-02_rb,1.028124e-02_rb,1.000607e-02_rb,9.750376e-03_rb,9.513303e-03_rb, &\n       9.294082e-03_rb,9.092003e-03_rb,8.906412e-03_rb,8.736702e-03_rb,8.582314e-03_rb, &\n       8.442725e-03_rb/)\n      absice3(:,11) = (/ &\n! band 11\n       1.775615e-01_rb,1.180046e-01_rb,8.929607e-02_rb,7.233500e-02_rb,6.108333e-02_rb, &\n       5.303642e-02_rb,4.696927e-02_rb,4.221206e-02_rb,3.836768e-02_rb,3.518576e-02_rb, &\n       3.250063e-02_rb,3.019825e-02_rb,2.819758e-02_rb,2.643943e-02_rb,2.487953e-02_rb, &\n       2.348414e-02_rb,2.222705e-02_rb,2.108762e-02_rb,2.004936e-02_rb,1.909892e-02_rb, &\n       1.822539e-02_rb,1.741975e-02_rb,1.667449e-02_rb,1.598330e-02_rb,1.534084e-02_rb, &\n       1.474253e-02_rb,1.418446e-02_rb,1.366325e-02_rb,1.317597e-02_rb,1.272004e-02_rb, &\n       1.229321e-02_rb,1.189350e-02_rb,1.151915e-02_rb,1.116859e-02_rb,1.084042e-02_rb, &\n       1.053338e-02_rb,1.024636e-02_rb,9.978326e-03_rb,9.728357e-03_rb,9.495613e-03_rb, &\n       9.279327e-03_rb,9.078798e-03_rb,8.893383e-03_rb,8.722488e-03_rb,8.565568e-03_rb, &\n       8.422115e-03_rb/)\n      absice3(:,12) = (/ &\n! band 12\n       9.465447e-02_rb,6.432047e-02_rb,5.060973e-02_rb,4.267283e-02_rb,3.741843e-02_rb, &\n       3.363096e-02_rb,3.073531e-02_rb,2.842405e-02_rb,2.651789e-02_rb,2.490518e-02_rb, &\n       2.351273e-02_rb,2.229056e-02_rb,2.120335e-02_rb,2.022541e-02_rb,1.933763e-02_rb, &\n       1.852546e-02_rb,1.777763e-02_rb,1.708528e-02_rb,1.644134e-02_rb,1.584009e-02_rb, &\n       1.527684e-02_rb,1.474774e-02_rb,1.424955e-02_rb,1.377957e-02_rb,1.333549e-02_rb, &\n       1.291534e-02_rb,1.251743e-02_rb,1.214029e-02_rb,1.178265e-02_rb,1.144337e-02_rb, &\n       1.112148e-02_rb,1.081609e-02_rb,1.052642e-02_rb,1.025178e-02_rb,9.991540e-03_rb, &\n       9.745130e-03_rb,9.512038e-03_rb,9.291797e-03_rb,9.083980e-03_rb,8.888195e-03_rb, &\n       8.704081e-03_rb,8.531306e-03_rb,8.369560e-03_rb,8.218558e-03_rb,8.078032e-03_rb, &\n       7.947730e-03_rb/)\n      absice3(:,13) = (/ &\n! band 13\n       1.560311e-01_rb,9.961097e-02_rb,7.502949e-02_rb,6.115022e-02_rb,5.214952e-02_rb, &\n       4.578149e-02_rb,4.099731e-02_rb,3.724174e-02_rb,3.419343e-02_rb,3.165356e-02_rb, &\n       2.949251e-02_rb,2.762222e-02_rb,2.598073e-02_rb,2.452322e-02_rb,2.321642e-02_rb, &\n       2.203516e-02_rb,2.096002e-02_rb,1.997579e-02_rb,1.907036e-02_rb,1.823401e-02_rb, &\n       1.745879e-02_rb,1.673819e-02_rb,1.606678e-02_rb,1.544003e-02_rb,1.485411e-02_rb, &\n       1.430574e-02_rb,1.379215e-02_rb,1.331092e-02_rb,1.285996e-02_rb,1.243746e-02_rb, &\n       1.204183e-02_rb,1.167164e-02_rb,1.132567e-02_rb,1.100281e-02_rb,1.070207e-02_rb, &\n       1.042258e-02_rb,1.016352e-02_rb,9.924197e-03_rb,9.703953e-03_rb,9.502199e-03_rb, &\n       9.318400e-03_rb,9.152066e-03_rb,9.002749e-03_rb,8.870038e-03_rb,8.753555e-03_rb, &\n       8.652951e-03_rb/)\n      absice3(:,14) = (/ &\n! band 14\n       1.559547e-01_rb,9.896700e-02_rb,7.441231e-02_rb,6.061469e-02_rb,5.168730e-02_rb, &\n       4.537821e-02_rb,4.064106e-02_rb,3.692367e-02_rb,3.390714e-02_rb,3.139438e-02_rb, &\n       2.925702e-02_rb,2.740783e-02_rb,2.578547e-02_rb,2.434552e-02_rb,2.305506e-02_rb, &\n       2.188910e-02_rb,2.082842e-02_rb,1.985789e-02_rb,1.896553e-02_rb,1.814165e-02_rb, &\n       1.737839e-02_rb,1.666927e-02_rb,1.600891e-02_rb,1.539279e-02_rb,1.481712e-02_rb, &\n       1.427865e-02_rb,1.377463e-02_rb,1.330266e-02_rb,1.286068e-02_rb,1.244689e-02_rb, &\n       1.205973e-02_rb,1.169780e-02_rb,1.135989e-02_rb,1.104492e-02_rb,1.075192e-02_rb, &\n       1.048004e-02_rb,1.022850e-02_rb,9.996611e-03_rb,9.783753e-03_rb,9.589361e-03_rb, &\n       9.412924e-03_rb,9.253977e-03_rb,9.112098e-03_rb,8.986903e-03_rb,8.878039e-03_rb, &\n       8.785184e-03_rb/)\n      absice3(:,15) = (/ &\n! band 15\n       1.102926e-01_rb,7.176622e-02_rb,5.530316e-02_rb,4.606056e-02_rb,4.006116e-02_rb, &\n       3.579628e-02_rb,3.256909e-02_rb,3.001360e-02_rb,2.791920e-02_rb,2.615617e-02_rb, &\n       2.464023e-02_rb,2.331426e-02_rb,2.213817e-02_rb,2.108301e-02_rb,2.012733e-02_rb, &\n       1.925493e-02_rb,1.845331e-02_rb,1.771269e-02_rb,1.702531e-02_rb,1.638493e-02_rb, &\n       1.578648e-02_rb,1.522579e-02_rb,1.469940e-02_rb,1.420442e-02_rb,1.373841e-02_rb, &\n       1.329931e-02_rb,1.288535e-02_rb,1.249502e-02_rb,1.212700e-02_rb,1.178015e-02_rb, &\n       1.145348e-02_rb,1.114612e-02_rb,1.085730e-02_rb,1.058633e-02_rb,1.033263e-02_rb, &\n       1.009564e-02_rb,9.874895e-03_rb,9.669960e-03_rb,9.480449e-03_rb,9.306014e-03_rb, &\n       9.146339e-03_rb,9.001138e-03_rb,8.870154e-03_rb,8.753148e-03_rb,8.649907e-03_rb, &\n       8.560232e-03_rb/)\n      absice3(:,16) = (/ &\n! band 16\n       1.688344e-01_rb,1.077072e-01_rb,7.994467e-02_rb,6.403862e-02_rb,5.369850e-02_rb, &\n       4.641582e-02_rb,4.099331e-02_rb,3.678724e-02_rb,3.342069e-02_rb,3.065831e-02_rb, &\n       2.834557e-02_rb,2.637680e-02_rb,2.467733e-02_rb,2.319286e-02_rb,2.188299e-02_rb, &\n       2.071701e-02_rb,1.967121e-02_rb,1.872692e-02_rb,1.786931e-02_rb,1.708641e-02_rb, &\n       1.636846e-02_rb,1.570743e-02_rb,1.509665e-02_rb,1.453052e-02_rb,1.400433e-02_rb, &\n       1.351407e-02_rb,1.305631e-02_rb,1.262810e-02_rb,1.222688e-02_rb,1.185044e-02_rb, &\n       1.149683e-02_rb,1.116436e-02_rb,1.085153e-02_rb,1.055701e-02_rb,1.027961e-02_rb, &\n       1.001831e-02_rb,9.772141e-03_rb,9.540280e-03_rb,9.321966e-03_rb,9.116517e-03_rb, &\n       8.923315e-03_rb,8.741803e-03_rb,8.571472e-03_rb,8.411860e-03_rb,8.262543e-03_rb, &\n       8.123136e-03_rb/)\n\n! For LIQFLAG = 0.\n      absliq0 = 0.0903614_rb\n\n! For LIQFLAG = 1.  In each band, the absorption\n! coefficients are listed for a range of effective radii from 2.5\n! to 59.5 microns in increments of 1.0 micron.\n      absliq1(:, 1) = (/ &\n! band  1\n       1.64047e-03_rb, 6.90533e-02_rb, 7.72017e-02_rb, 7.78054e-02_rb, 7.69523e-02_rb, &\n       7.58058e-02_rb, 7.46400e-02_rb, 7.35123e-02_rb, 7.24162e-02_rb, 7.13225e-02_rb, &\n       6.99145e-02_rb, 6.66409e-02_rb, 6.36582e-02_rb, 6.09425e-02_rb, 5.84593e-02_rb, &\n       5.61743e-02_rb, 5.40571e-02_rb, 5.20812e-02_rb, 5.02245e-02_rb, 4.84680e-02_rb, &\n       4.67959e-02_rb, 4.51944e-02_rb, 4.36516e-02_rb, 4.21570e-02_rb, 4.07015e-02_rb, &\n       3.92766e-02_rb, 3.78747e-02_rb, 3.64886e-02_rb, 3.53632e-02_rb, 3.41992e-02_rb, &\n       3.31016e-02_rb, 3.20643e-02_rb, 3.10817e-02_rb, 3.01490e-02_rb, 2.92620e-02_rb, &\n       2.84171e-02_rb, 2.76108e-02_rb, 2.68404e-02_rb, 2.61031e-02_rb, 2.53966e-02_rb, &\n       2.47189e-02_rb, 2.40678e-02_rb, 2.34418e-02_rb, 2.28392e-02_rb, 2.22586e-02_rb, &\n       2.16986e-02_rb, 2.11580e-02_rb, 2.06356e-02_rb, 2.01305e-02_rb, 1.96417e-02_rb, &\n       1.91682e-02_rb, 1.87094e-02_rb, 1.82643e-02_rb, 1.78324e-02_rb, 1.74129e-02_rb, &\n       1.70052e-02_rb, 1.66088e-02_rb, 1.62231e-02_rb/)\n      absliq1(:, 2) = (/ &\n! band  2\n       2.19486e-01_rb, 1.80687e-01_rb, 1.59150e-01_rb, 1.44731e-01_rb, 1.33703e-01_rb, &\n       1.24355e-01_rb, 1.15756e-01_rb, 1.07318e-01_rb, 9.86119e-02_rb, 8.92739e-02_rb, &\n       8.34911e-02_rb, 7.70773e-02_rb, 7.15240e-02_rb, 6.66615e-02_rb, 6.23641e-02_rb, &\n       5.85359e-02_rb, 5.51020e-02_rb, 5.20032e-02_rb, 4.91916e-02_rb, 4.66283e-02_rb, &\n       4.42813e-02_rb, 4.21236e-02_rb, 4.01330e-02_rb, 3.82905e-02_rb, 3.65797e-02_rb, &\n       3.49869e-02_rb, 3.35002e-02_rb, 3.21090e-02_rb, 3.08957e-02_rb, 2.97601e-02_rb, &\n       2.86966e-02_rb, 2.76984e-02_rb, 2.67599e-02_rb, 2.58758e-02_rb, 2.50416e-02_rb, &\n       2.42532e-02_rb, 2.35070e-02_rb, 2.27997e-02_rb, 2.21284e-02_rb, 2.14904e-02_rb, &\n       2.08834e-02_rb, 2.03051e-02_rb, 1.97536e-02_rb, 1.92271e-02_rb, 1.87239e-02_rb, &\n       1.82425e-02_rb, 1.77816e-02_rb, 1.73399e-02_rb, 1.69162e-02_rb, 1.65094e-02_rb, &\n       1.61187e-02_rb, 1.57430e-02_rb, 1.53815e-02_rb, 1.50334e-02_rb, 1.46981e-02_rb, &\n       1.43748e-02_rb, 1.40628e-02_rb, 1.37617e-02_rb/)\n      absliq1(:, 3) = (/ &\n! band  3\n       2.95174e-01_rb, 2.34765e-01_rb, 1.98038e-01_rb, 1.72114e-01_rb, 1.52083e-01_rb, &\n       1.35654e-01_rb, 1.21613e-01_rb, 1.09252e-01_rb, 9.81263e-02_rb, 8.79448e-02_rb, &\n       8.12566e-02_rb, 7.44563e-02_rb, 6.86374e-02_rb, 6.36042e-02_rb, 5.92094e-02_rb, &\n       5.53402e-02_rb, 5.19087e-02_rb, 4.88455e-02_rb, 4.60951e-02_rb, 4.36124e-02_rb, &\n       4.13607e-02_rb, 3.93096e-02_rb, 3.74338e-02_rb, 3.57119e-02_rb, 3.41261e-02_rb, &\n       3.26610e-02_rb, 3.13036e-02_rb, 3.00425e-02_rb, 2.88497e-02_rb, 2.78077e-02_rb, &\n       2.68317e-02_rb, 2.59158e-02_rb, 2.50545e-02_rb, 2.42430e-02_rb, 2.34772e-02_rb, &\n       2.27533e-02_rb, 2.20679e-02_rb, 2.14181e-02_rb, 2.08011e-02_rb, 2.02145e-02_rb, &\n       1.96561e-02_rb, 1.91239e-02_rb, 1.86161e-02_rb, 1.81311e-02_rb, 1.76673e-02_rb, &\n       1.72234e-02_rb, 1.67981e-02_rb, 1.63903e-02_rb, 1.59989e-02_rb, 1.56230e-02_rb, &\n       1.52615e-02_rb, 1.49138e-02_rb, 1.45791e-02_rb, 1.42565e-02_rb, 1.39455e-02_rb, &\n       1.36455e-02_rb, 1.33559e-02_rb, 1.30761e-02_rb/)\n      absliq1(:, 4) = (/ &\n! band  4\n       3.00925e-01_rb, 2.36949e-01_rb, 1.96947e-01_rb, 1.68692e-01_rb, 1.47190e-01_rb, &\n       1.29986e-01_rb, 1.15719e-01_rb, 1.03568e-01_rb, 9.30028e-02_rb, 8.36658e-02_rb, &\n       7.71075e-02_rb, 7.07002e-02_rb, 6.52284e-02_rb, 6.05024e-02_rb, 5.63801e-02_rb, &\n       5.27534e-02_rb, 4.95384e-02_rb, 4.66690e-02_rb, 4.40925e-02_rb, 4.17664e-02_rb, &\n       3.96559e-02_rb, 3.77326e-02_rb, 3.59727e-02_rb, 3.43561e-02_rb, 3.28662e-02_rb, &\n       3.14885e-02_rb, 3.02110e-02_rb, 2.90231e-02_rb, 2.78948e-02_rb, 2.69109e-02_rb, &\n       2.59884e-02_rb, 2.51217e-02_rb, 2.43058e-02_rb, 2.35364e-02_rb, 2.28096e-02_rb, &\n       2.21218e-02_rb, 2.14700e-02_rb, 2.08515e-02_rb, 2.02636e-02_rb, 1.97041e-02_rb, &\n       1.91711e-02_rb, 1.86625e-02_rb, 1.81769e-02_rb, 1.77126e-02_rb, 1.72683e-02_rb, &\n       1.68426e-02_rb, 1.64344e-02_rb, 1.60427e-02_rb, 1.56664e-02_rb, 1.53046e-02_rb, &\n       1.49565e-02_rb, 1.46214e-02_rb, 1.42985e-02_rb, 1.39871e-02_rb, 1.36866e-02_rb, &\n       1.33965e-02_rb, 1.31162e-02_rb, 1.28453e-02_rb/)\n      absliq1(:, 5) = (/ &\n! band  5\n       2.64691e-01_rb, 2.12018e-01_rb, 1.78009e-01_rb, 1.53539e-01_rb, 1.34721e-01_rb, &\n       1.19580e-01_rb, 1.06996e-01_rb, 9.62772e-02_rb, 8.69710e-02_rb, 7.87670e-02_rb, &\n       7.29272e-02_rb, 6.70920e-02_rb, 6.20977e-02_rb, 5.77732e-02_rb, 5.39910e-02_rb, &\n       5.06538e-02_rb, 4.76866e-02_rb, 4.50301e-02_rb, 4.26374e-02_rb, 4.04704e-02_rb, &\n       3.84981e-02_rb, 3.66948e-02_rb, 3.50394e-02_rb, 3.35141e-02_rb, 3.21038e-02_rb, &\n       3.07957e-02_rb, 2.95788e-02_rb, 2.84438e-02_rb, 2.73790e-02_rb, 2.64390e-02_rb, &\n       2.55565e-02_rb, 2.47263e-02_rb, 2.39437e-02_rb, 2.32047e-02_rb, 2.25056e-02_rb, &\n       2.18433e-02_rb, 2.12149e-02_rb, 2.06177e-02_rb, 2.00495e-02_rb, 1.95081e-02_rb, &\n       1.89917e-02_rb, 1.84984e-02_rb, 1.80269e-02_rb, 1.75755e-02_rb, 1.71431e-02_rb, &\n       1.67283e-02_rb, 1.63303e-02_rb, 1.59478e-02_rb, 1.55801e-02_rb, 1.52262e-02_rb, &\n       1.48853e-02_rb, 1.45568e-02_rb, 1.42400e-02_rb, 1.39342e-02_rb, 1.36388e-02_rb, &\n       1.33533e-02_rb, 1.30773e-02_rb, 1.28102e-02_rb/)\n      absliq1(:, 6) = (/ &\n! band  6\n       8.81182e-02_rb, 1.06745e-01_rb, 9.79753e-02_rb, 8.99625e-02_rb, 8.35200e-02_rb, &\n       7.81899e-02_rb, 7.35939e-02_rb, 6.94696e-02_rb, 6.56266e-02_rb, 6.19148e-02_rb, &\n       5.83355e-02_rb, 5.49306e-02_rb, 5.19642e-02_rb, 4.93325e-02_rb, 4.69659e-02_rb, &\n       4.48148e-02_rb, 4.28431e-02_rb, 4.10231e-02_rb, 3.93332e-02_rb, 3.77563e-02_rb, &\n       3.62785e-02_rb, 3.48882e-02_rb, 3.35758e-02_rb, 3.23333e-02_rb, 3.11536e-02_rb, &\n       3.00310e-02_rb, 2.89601e-02_rb, 2.79365e-02_rb, 2.70502e-02_rb, 2.62618e-02_rb, &\n       2.55025e-02_rb, 2.47728e-02_rb, 2.40726e-02_rb, 2.34013e-02_rb, 2.27583e-02_rb, &\n       2.21422e-02_rb, 2.15522e-02_rb, 2.09869e-02_rb, 2.04453e-02_rb, 1.99260e-02_rb, &\n       1.94280e-02_rb, 1.89501e-02_rb, 1.84913e-02_rb, 1.80506e-02_rb, 1.76270e-02_rb, &\n       1.72196e-02_rb, 1.68276e-02_rb, 1.64500e-02_rb, 1.60863e-02_rb, 1.57357e-02_rb, &\n       1.53975e-02_rb, 1.50710e-02_rb, 1.47558e-02_rb, 1.44511e-02_rb, 1.41566e-02_rb, &\n       1.38717e-02_rb, 1.35960e-02_rb, 1.33290e-02_rb/)\n      absliq1(:, 7) = (/ &\n! band  7\n       4.32174e-02_rb, 7.36078e-02_rb, 6.98340e-02_rb, 6.65231e-02_rb, 6.41948e-02_rb, &\n       6.23551e-02_rb, 6.06638e-02_rb, 5.88680e-02_rb, 5.67124e-02_rb, 5.38629e-02_rb, &\n       4.99579e-02_rb, 4.86289e-02_rb, 4.70120e-02_rb, 4.52854e-02_rb, 4.35466e-02_rb, &\n       4.18480e-02_rb, 4.02169e-02_rb, 3.86658e-02_rb, 3.71992e-02_rb, 3.58168e-02_rb, &\n       3.45155e-02_rb, 3.32912e-02_rb, 3.21390e-02_rb, 3.10538e-02_rb, 3.00307e-02_rb, &\n       2.90651e-02_rb, 2.81524e-02_rb, 2.72885e-02_rb, 2.62821e-02_rb, 2.55744e-02_rb, &\n       2.48799e-02_rb, 2.42029e-02_rb, 2.35460e-02_rb, 2.29108e-02_rb, 2.22981e-02_rb, &\n       2.17079e-02_rb, 2.11402e-02_rb, 2.05945e-02_rb, 2.00701e-02_rb, 1.95663e-02_rb, &\n       1.90824e-02_rb, 1.86174e-02_rb, 1.81706e-02_rb, 1.77411e-02_rb, 1.73281e-02_rb, &\n       1.69307e-02_rb, 1.65483e-02_rb, 1.61801e-02_rb, 1.58254e-02_rb, 1.54835e-02_rb, &\n       1.51538e-02_rb, 1.48358e-02_rb, 1.45288e-02_rb, 1.42322e-02_rb, 1.39457e-02_rb, &\n       1.36687e-02_rb, 1.34008e-02_rb, 1.31416e-02_rb/)\n      absliq1(:, 8) = (/ &\n! band  8\n       1.41881e-01_rb, 7.15419e-02_rb, 6.30335e-02_rb, 6.11132e-02_rb, 6.01931e-02_rb, &\n       5.92420e-02_rb, 5.78968e-02_rb, 5.58876e-02_rb, 5.28923e-02_rb, 4.84462e-02_rb, &\n       4.60839e-02_rb, 4.56013e-02_rb, 4.45410e-02_rb, 4.31866e-02_rb, 4.17026e-02_rb, &\n       4.01850e-02_rb, 3.86892e-02_rb, 3.72461e-02_rb, 3.58722e-02_rb, 3.45749e-02_rb, &\n       3.33564e-02_rb, 3.22155e-02_rb, 3.11494e-02_rb, 3.01541e-02_rb, 2.92253e-02_rb, &\n       2.83584e-02_rb, 2.75488e-02_rb, 2.67925e-02_rb, 2.57692e-02_rb, 2.50704e-02_rb, &\n       2.43918e-02_rb, 2.37350e-02_rb, 2.31005e-02_rb, 2.24888e-02_rb, 2.18996e-02_rb, &\n       2.13325e-02_rb, 2.07870e-02_rb, 2.02623e-02_rb, 1.97577e-02_rb, 1.92724e-02_rb, &\n       1.88056e-02_rb, 1.83564e-02_rb, 1.79241e-02_rb, 1.75079e-02_rb, 1.71070e-02_rb, &\n       1.67207e-02_rb, 1.63482e-02_rb, 1.59890e-02_rb, 1.56424e-02_rb, 1.53077e-02_rb, &\n       1.49845e-02_rb, 1.46722e-02_rb, 1.43702e-02_rb, 1.40782e-02_rb, 1.37955e-02_rb, &\n       1.35219e-02_rb, 1.32569e-02_rb, 1.30000e-02_rb/)\n      absliq1(:, 9) = (/ &\n! band  9\n       6.72726e-02_rb, 6.61013e-02_rb, 6.47866e-02_rb, 6.33780e-02_rb, 6.18985e-02_rb, &\n       6.03335e-02_rb, 5.86136e-02_rb, 5.65876e-02_rb, 5.39839e-02_rb, 5.03536e-02_rb, &\n       4.71608e-02_rb, 4.63630e-02_rb, 4.50313e-02_rb, 4.34526e-02_rb, 4.17876e-02_rb, &\n       4.01261e-02_rb, 3.85171e-02_rb, 3.69860e-02_rb, 3.55442e-02_rb, 3.41954e-02_rb, &\n       3.29384e-02_rb, 3.17693e-02_rb, 3.06832e-02_rb, 2.96745e-02_rb, 2.87374e-02_rb, &\n       2.78662e-02_rb, 2.70557e-02_rb, 2.63008e-02_rb, 2.52450e-02_rb, 2.45424e-02_rb, &\n       2.38656e-02_rb, 2.32144e-02_rb, 2.25885e-02_rb, 2.19873e-02_rb, 2.14099e-02_rb, &\n       2.08554e-02_rb, 2.03230e-02_rb, 1.98116e-02_rb, 1.93203e-02_rb, 1.88482e-02_rb, &\n       1.83944e-02_rb, 1.79578e-02_rb, 1.75378e-02_rb, 1.71335e-02_rb, 1.67440e-02_rb, &\n       1.63687e-02_rb, 1.60069e-02_rb, 1.56579e-02_rb, 1.53210e-02_rb, 1.49958e-02_rb, &\n       1.46815e-02_rb, 1.43778e-02_rb, 1.40841e-02_rb, 1.37999e-02_rb, 1.35249e-02_rb, &\n       1.32585e-02_rb, 1.30004e-02_rb, 1.27502e-02_rb/)\n      absliq1(:,10) = (/ &\n! band 10\n       7.97040e-02_rb, 7.63844e-02_rb, 7.36499e-02_rb, 7.13525e-02_rb, 6.93043e-02_rb, &\n       6.72807e-02_rb, 6.50227e-02_rb, 6.22395e-02_rb, 5.86093e-02_rb, 5.37815e-02_rb, &\n       5.14682e-02_rb, 4.97214e-02_rb, 4.77392e-02_rb, 4.56961e-02_rb, 4.36858e-02_rb, &\n       4.17569e-02_rb, 3.99328e-02_rb, 3.82224e-02_rb, 3.66265e-02_rb, 3.51416e-02_rb, &\n       3.37617e-02_rb, 3.24798e-02_rb, 3.12887e-02_rb, 3.01812e-02_rb, 2.91505e-02_rb, &\n       2.81900e-02_rb, 2.72939e-02_rb, 2.64568e-02_rb, 2.54165e-02_rb, 2.46832e-02_rb, &\n       2.39783e-02_rb, 2.33017e-02_rb, 2.26531e-02_rb, 2.20314e-02_rb, 2.14359e-02_rb, &\n       2.08653e-02_rb, 2.03187e-02_rb, 1.97947e-02_rb, 1.92924e-02_rb, 1.88106e-02_rb, &\n       1.83483e-02_rb, 1.79043e-02_rb, 1.74778e-02_rb, 1.70678e-02_rb, 1.66735e-02_rb, &\n       1.62941e-02_rb, 1.59286e-02_rb, 1.55766e-02_rb, 1.52371e-02_rb, 1.49097e-02_rb, &\n       1.45937e-02_rb, 1.42885e-02_rb, 1.39936e-02_rb, 1.37085e-02_rb, 1.34327e-02_rb, &\n       1.31659e-02_rb, 1.29075e-02_rb, 1.26571e-02_rb/)\n      absliq1(:,11) = (/ &\n! band 11\n       1.49438e-01_rb, 1.33535e-01_rb, 1.21542e-01_rb, 1.11743e-01_rb, 1.03263e-01_rb, &\n       9.55774e-02_rb, 8.83382e-02_rb, 8.12943e-02_rb, 7.42533e-02_rb, 6.70609e-02_rb, &\n       6.38761e-02_rb, 5.97788e-02_rb, 5.59841e-02_rb, 5.25318e-02_rb, 4.94132e-02_rb, &\n       4.66014e-02_rb, 4.40644e-02_rb, 4.17706e-02_rb, 3.96910e-02_rb, 3.77998e-02_rb, &\n       3.60742e-02_rb, 3.44947e-02_rb, 3.30442e-02_rb, 3.17079e-02_rb, 3.04730e-02_rb, &\n       2.93283e-02_rb, 2.82642e-02_rb, 2.72720e-02_rb, 2.61789e-02_rb, 2.53277e-02_rb, &\n       2.45237e-02_rb, 2.37635e-02_rb, 2.30438e-02_rb, 2.23615e-02_rb, 2.17140e-02_rb, &\n       2.10987e-02_rb, 2.05133e-02_rb, 1.99557e-02_rb, 1.94241e-02_rb, 1.89166e-02_rb, &\n       1.84317e-02_rb, 1.79679e-02_rb, 1.75238e-02_rb, 1.70983e-02_rb, 1.66901e-02_rb, &\n       1.62983e-02_rb, 1.59219e-02_rb, 1.55599e-02_rb, 1.52115e-02_rb, 1.48761e-02_rb, &\n       1.45528e-02_rb, 1.42411e-02_rb, 1.39402e-02_rb, 1.36497e-02_rb, 1.33690e-02_rb, &\n       1.30976e-02_rb, 1.28351e-02_rb, 1.25810e-02_rb/)\n      absliq1(:,12) = (/ &\n! band 12\n       3.71985e-02_rb, 3.88586e-02_rb, 3.99070e-02_rb, 4.04351e-02_rb, 4.04610e-02_rb, &\n       3.99834e-02_rb, 3.89953e-02_rb, 3.74886e-02_rb, 3.54551e-02_rb, 3.28870e-02_rb, &\n       3.32576e-02_rb, 3.22444e-02_rb, 3.12384e-02_rb, 3.02584e-02_rb, 2.93146e-02_rb, &\n       2.84120e-02_rb, 2.75525e-02_rb, 2.67361e-02_rb, 2.59618e-02_rb, 2.52280e-02_rb, &\n       2.45327e-02_rb, 2.38736e-02_rb, 2.32487e-02_rb, 2.26558e-02_rb, 2.20929e-02_rb, &\n       2.15579e-02_rb, 2.10491e-02_rb, 2.05648e-02_rb, 1.99749e-02_rb, 1.95704e-02_rb, &\n       1.91731e-02_rb, 1.87839e-02_rb, 1.84032e-02_rb, 1.80315e-02_rb, 1.76689e-02_rb, &\n       1.73155e-02_rb, 1.69712e-02_rb, 1.66362e-02_rb, 1.63101e-02_rb, 1.59928e-02_rb, &\n       1.56842e-02_rb, 1.53840e-02_rb, 1.50920e-02_rb, 1.48080e-02_rb, 1.45318e-02_rb, &\n       1.42631e-02_rb, 1.40016e-02_rb, 1.37472e-02_rb, 1.34996e-02_rb, 1.32586e-02_rb, &\n       1.30239e-02_rb, 1.27954e-02_rb, 1.25728e-02_rb, 1.23559e-02_rb, 1.21445e-02_rb, &\n       1.19385e-02_rb, 1.17376e-02_rb, 1.15417e-02_rb/)\n      absliq1(:,13) = (/ &\n! band 13\n       3.11868e-02_rb, 4.48357e-02_rb, 4.90224e-02_rb, 4.96406e-02_rb, 4.86806e-02_rb, &\n       4.69610e-02_rb, 4.48630e-02_rb, 4.25795e-02_rb, 4.02138e-02_rb, 3.78236e-02_rb, &\n       3.74266e-02_rb, 3.60384e-02_rb, 3.47074e-02_rb, 3.34434e-02_rb, 3.22499e-02_rb, &\n       3.11264e-02_rb, 3.00704e-02_rb, 2.90784e-02_rb, 2.81463e-02_rb, 2.72702e-02_rb, &\n       2.64460e-02_rb, 2.56698e-02_rb, 2.49381e-02_rb, 2.42475e-02_rb, 2.35948e-02_rb, &\n       2.29774e-02_rb, 2.23925e-02_rb, 2.18379e-02_rb, 2.11793e-02_rb, 2.07076e-02_rb, &\n       2.02470e-02_rb, 1.97981e-02_rb, 1.93613e-02_rb, 1.89367e-02_rb, 1.85243e-02_rb, &\n       1.81240e-02_rb, 1.77356e-02_rb, 1.73588e-02_rb, 1.69935e-02_rb, 1.66392e-02_rb, &\n       1.62956e-02_rb, 1.59624e-02_rb, 1.56393e-02_rb, 1.53259e-02_rb, 1.50219e-02_rb, &\n       1.47268e-02_rb, 1.44404e-02_rb, 1.41624e-02_rb, 1.38925e-02_rb, 1.36302e-02_rb, &\n       1.33755e-02_rb, 1.31278e-02_rb, 1.28871e-02_rb, 1.26530e-02_rb, 1.24253e-02_rb, &\n       1.22038e-02_rb, 1.19881e-02_rb, 1.17782e-02_rb/)\n      absliq1(:,14) = (/ &\n! band 14\n       1.58988e-02_rb, 3.50652e-02_rb, 4.00851e-02_rb, 4.07270e-02_rb, 3.98101e-02_rb, &\n       3.83306e-02_rb, 3.66829e-02_rb, 3.50327e-02_rb, 3.34497e-02_rb, 3.19609e-02_rb, &\n       3.13712e-02_rb, 3.03348e-02_rb, 2.93415e-02_rb, 2.83973e-02_rb, 2.75037e-02_rb, &\n       2.66604e-02_rb, 2.58654e-02_rb, 2.51161e-02_rb, 2.44100e-02_rb, 2.37440e-02_rb, &\n       2.31154e-02_rb, 2.25215e-02_rb, 2.19599e-02_rb, 2.14282e-02_rb, 2.09242e-02_rb, &\n       2.04459e-02_rb, 1.99915e-02_rb, 1.95594e-02_rb, 1.90254e-02_rb, 1.86598e-02_rb, &\n       1.82996e-02_rb, 1.79455e-02_rb, 1.75983e-02_rb, 1.72584e-02_rb, 1.69260e-02_rb, &\n       1.66013e-02_rb, 1.62843e-02_rb, 1.59752e-02_rb, 1.56737e-02_rb, 1.53799e-02_rb, &\n       1.50936e-02_rb, 1.48146e-02_rb, 1.45429e-02_rb, 1.42782e-02_rb, 1.40203e-02_rb, &\n       1.37691e-02_rb, 1.35243e-02_rb, 1.32858e-02_rb, 1.30534e-02_rb, 1.28270e-02_rb, &\n       1.26062e-02_rb, 1.23909e-02_rb, 1.21810e-02_rb, 1.19763e-02_rb, 1.17766e-02_rb, &\n       1.15817e-02_rb, 1.13915e-02_rb, 1.12058e-02_rb/)\n      absliq1(:,15) = (/ &\n! band 15\n       5.02079e-03_rb, 2.17615e-02_rb, 2.55449e-02_rb, 2.59484e-02_rb, 2.53650e-02_rb, &\n       2.45281e-02_rb, 2.36843e-02_rb, 2.29159e-02_rb, 2.22451e-02_rb, 2.16716e-02_rb, &\n       2.11451e-02_rb, 2.05817e-02_rb, 2.00454e-02_rb, 1.95372e-02_rb, 1.90567e-02_rb, &\n       1.86028e-02_rb, 1.81742e-02_rb, 1.77693e-02_rb, 1.73866e-02_rb, 1.70244e-02_rb, &\n       1.66815e-02_rb, 1.63563e-02_rb, 1.60477e-02_rb, 1.57544e-02_rb, 1.54755e-02_rb, &\n       1.52097e-02_rb, 1.49564e-02_rb, 1.47146e-02_rb, 1.43684e-02_rb, 1.41728e-02_rb, &\n       1.39762e-02_rb, 1.37797e-02_rb, 1.35838e-02_rb, 1.33891e-02_rb, 1.31961e-02_rb, &\n       1.30051e-02_rb, 1.28164e-02_rb, 1.26302e-02_rb, 1.24466e-02_rb, 1.22659e-02_rb, &\n       1.20881e-02_rb, 1.19131e-02_rb, 1.17412e-02_rb, 1.15723e-02_rb, 1.14063e-02_rb, &\n       1.12434e-02_rb, 1.10834e-02_rb, 1.09264e-02_rb, 1.07722e-02_rb, 1.06210e-02_rb, &\n       1.04725e-02_rb, 1.03269e-02_rb, 1.01839e-02_rb, 1.00436e-02_rb, 9.90593e-03_rb, &\n       9.77080e-03_rb, 9.63818e-03_rb, 9.50800e-03_rb/)\n      absliq1(:,16) = (/ &\n! band 16\n       5.64971e-02_rb, 9.04736e-02_rb, 8.11726e-02_rb, 7.05450e-02_rb, 6.20052e-02_rb, &\n       5.54286e-02_rb, 5.03503e-02_rb, 4.63791e-02_rb, 4.32290e-02_rb, 4.06959e-02_rb, &\n       3.74690e-02_rb, 3.52964e-02_rb, 3.33799e-02_rb, 3.16774e-02_rb, 3.01550e-02_rb, &\n       2.87856e-02_rb, 2.75474e-02_rb, 2.64223e-02_rb, 2.53953e-02_rb, 2.44542e-02_rb, &\n       2.35885e-02_rb, 2.27894e-02_rb, 2.20494e-02_rb, 2.13622e-02_rb, 2.07222e-02_rb, &\n       2.01246e-02_rb, 1.95654e-02_rb, 1.90408e-02_rb, 1.84398e-02_rb, 1.80021e-02_rb, &\n       1.75816e-02_rb, 1.71775e-02_rb, 1.67889e-02_rb, 1.64152e-02_rb, 1.60554e-02_rb, &\n       1.57089e-02_rb, 1.53751e-02_rb, 1.50531e-02_rb, 1.47426e-02_rb, 1.44428e-02_rb, &\n       1.41532e-02_rb, 1.38734e-02_rb, 1.36028e-02_rb, 1.33410e-02_rb, 1.30875e-02_rb, &\n       1.28420e-02_rb, 1.26041e-02_rb, 1.23735e-02_rb, 1.21497e-02_rb, 1.19325e-02_rb, &\n       1.17216e-02_rb, 1.15168e-02_rb, 1.13177e-02_rb, 1.11241e-02_rb, 1.09358e-02_rb, &\n       1.07525e-02_rb, 1.05741e-02_rb, 1.04003e-02_rb/)\n\n      end subroutine lwcldpr\n\n      end module rrtmg_lw_init\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_k_g.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_k_g.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/05/22 21:04:30 $\n!\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! **************************************************************************\n!      subroutine lw_kgbnn\n! **************************************************************************\n!  RRTM Longwave Radiative Transfer Model\n!  Atmospheric and Environmental Research, Inc., Cambridge, MA\n!\n!  Original version:   E. J. Mlawer, et al.\n!  Revision for GCMs:  Michael J. Iacono; October, 2002\n!  Revision for F90 formatting:  Michael J. Iacono; June 2006\n!\n!  This file contains 16 subroutines that include the \n!  absorption coefficients and other data for each of the 16 longwave\n!  spectral bands used in RRTM.  Here, the data are defined for 16\n!  g-points, or sub-intervals, per band.  These data are combined and\n!  weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce\n!  the total number of g-points from 256 to 140 for use in the GCM.\n! **************************************************************************\n      subroutine lw_kgb01\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg01, only : fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, &\n                            selfrefo, forrefo\n      use rrlw_vsn, only: hvrkg, hnamkg\n\n      implicit none\n      save\n\n      hvrkg = '$Revision: 1.4 $'\n\n! Planck fraction mapping level: P = 212.7250 mbar, T = 223.06 K\n      fracrefao(:) = (/ &\n        2.1227E-01_rb,1.8897E-01_rb,1.3934E-01_rb,1.1557E-01_rb,9.5282E-02_rb,8.3359E-02_rb, &\n        6.5333E-02_rb,5.2016E-02_rb,3.4272E-02_rb,4.0257E-03_rb,3.1857E-03_rb,2.6014E-03_rb, &\n        1.9141E-03_rb,1.2612E-03_rb,5.3169E-04_rb,7.6476E-05_rb/)\n\n! Planck fraction mapping level: P = 212.7250 mbar, T = 223.06 K\n! These Planck fractions were calculated using lower atmosphere\n! parameters.\n      fracrefbo(:) = (/ &\n        2.1227E-01_rb,1.8897E-01_rb,1.3934E-01_rb,1.1557E-01_rb,9.5282E-02_rb,8.3359E-02_rb, &\n        6.5333E-02_rb,5.2016E-02_rb,3.4272E-02_rb,4.0257E-03_rb,3.1857E-03_rb,2.6014E-03_rb, &\n        1.9141E-03_rb,1.2612E-03_rb,5.3169E-04_rb,7.6476E-05_rb/)\n\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels > ~100mb and temperatures.  The first\n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the corresponding TREF for this  pressure level, \n!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, \n!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second \n!     index, JP, runs from 1 to 13 and refers to the corresponding \n!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  \n!     The third index, IG, goes from 1 to 16, and tells us which \n!     g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &1.1936e-01_rb,1.2127e-01_rb,1.2290e-01_rb,1.2324e-01_rb,1.2302e-01_rb/)\n      kao(:, 2, 1) = (/ &\n     &9.3666e-02_rb,9.6336e-02_rb,9.8457e-02_rb,9.9155e-02_rb,9.9330e-02_rb/)\n      kao(:, 3, 1) = (/ &\n     &7.3480e-02_rb,7.5571e-02_rb,7.7998e-02_rb,7.9619e-02_rb,8.0000e-02_rb/)\n      kao(:, 4, 1) = (/ &\n     &5.8417e-02_rb,6.0062e-02_rb,6.2150e-02_rb,6.4024e-02_rb,6.4943e-02_rb/)\n      kao(:, 5, 1) = (/ &\n     &4.6742e-02_rb,4.8171e-02_rb,4.9840e-02_rb,5.1580e-02_rb,5.2974e-02_rb/)\n      kao(:, 6, 1) = (/ &\n     &3.7093e-02_rb,3.8712e-02_rb,4.0031e-02_rb,4.1473e-02_rb,4.2868e-02_rb/)\n      kao(:, 7, 1) = (/ &\n     &2.9515e-02_rb,3.1114e-02_rb,3.2344e-02_rb,3.3496e-02_rb,3.4715e-02_rb/)\n      kao(:, 8, 1) = (/ &\n     &2.3548e-02_rb,2.5012e-02_rb,2.6176e-02_rb,2.7253e-02_rb,2.8263e-02_rb/)\n      kao(:, 9, 1) = (/ &\n     &1.9136e-02_rb,2.0420e-02_rb,2.1607e-02_rb,2.2607e-02_rb,2.3502e-02_rb/)\n      kao(:,10, 1) = (/ &\n     &1.6947e-02_rb,1.8986e-02_rb,2.0617e-02_rb,2.1896e-02_rb,2.2928e-02_rb/)\n      kao(:,11, 1) = (/ &\n     &1.4724e-02_rb,1.6490e-02_rb,1.8468e-02_rb,1.9875e-02_rb,2.1095e-02_rb/)\n      kao(:,12, 1) = (/ &\n     &1.2332e-02_rb,1.3992e-02_rb,1.5549e-02_rb,1.7137e-02_rb,1.8190e-02_rb/)\n      kao(:,13, 1) = (/ &\n     &1.0144e-02_rb,1.1539e-02_rb,1.2861e-02_rb,1.4225e-02_rb,1.5224e-02_rb/)\n      kao(:, 1, 2) = (/ &\n     &3.5138e-01_rb,3.5502e-01_rb,3.5774e-01_rb,3.5894e-01_rb,3.5740e-01_rb/)\n      kao(:, 2, 2) = (/ &\n     &2.8740e-01_rb,2.8961e-01_rb,2.9119e-01_rb,2.9268e-01_rb,2.9128e-01_rb/)\n      kao(:, 3, 2) = (/ &\n     &2.3142e-01_rb,2.3495e-01_rb,2.3595e-01_rb,2.3731e-01_rb,2.3828e-01_rb/)\n      kao(:, 4, 2) = (/ &\n     &1.8684e-01_rb,1.9090e-01_rb,1.9387e-01_rb,1.9355e-01_rb,1.9518e-01_rb/)\n      kao(:, 5, 2) = (/ &\n     &1.5108e-01_rb,1.5525e-01_rb,1.5832e-01_rb,1.5904e-01_rb,1.5962e-01_rb/)\n      kao(:, 6, 2) = (/ &\n     &1.2219e-01_rb,1.2585e-01_rb,1.2901e-01_rb,1.3090e-01_rb,1.3158e-01_rb/)\n      kao(:, 7, 2) = (/ &\n     &9.8743e-02_rb,1.0185e-01_rb,1.0506e-01_rb,1.0763e-01_rb,1.0820e-01_rb/)\n      kao(:, 8, 2) = (/ &\n     &7.9966e-02_rb,8.2922e-02_rb,8.5859e-02_rb,8.8462e-02_rb,8.9282e-02_rb/)\n      kao(:, 9, 2) = (/ &\n     &6.5726e-02_rb,6.8954e-02_rb,7.1786e-02_rb,7.3678e-02_rb,7.5233e-02_rb/)\n      kao(:,10, 2) = (/ &\n     &6.0011e-02_rb,6.2230e-02_rb,6.5254e-02_rb,6.7031e-02_rb,6.9052e-02_rb/)\n      kao(:,11, 2) = (/ &\n     &5.5743e-02_rb,5.7099e-02_rb,5.8802e-02_rb,6.0875e-02_rb,6.2690e-02_rb/)\n      kao(:,12, 2) = (/ &\n     &4.9598e-02_rb,5.1234e-02_rb,5.2659e-02_rb,5.3951e-02_rb,5.5431e-02_rb/)\n      kao(:,13, 2) = (/ &\n     &4.1938e-02_rb,4.3540e-02_rb,4.4990e-02_rb,4.6074e-02_rb,4.6999e-02_rb/)\n      kao(:, 1, 3) = (/ &\n     &8.4590e-01_rb,8.4151e-01_rb,8.3682e-01_rb,8.3729e-01_rb,8.3944e-01_rb/)\n      kao(:, 2, 3) = (/ &\n     &6.8809e-01_rb,6.8696e-01_rb,6.8512e-01_rb,6.8470e-01_rb,6.8864e-01_rb/)\n      kao(:, 3, 3) = (/ &\n     &5.6065e-01_rb,5.5891e-01_rb,5.5871e-01_rb,5.5784e-01_rb,5.6029e-01_rb/)\n      kao(:, 4, 3) = (/ &\n     &4.6097e-01_rb,4.6021e-01_rb,4.5874e-01_rb,4.6110e-01_rb,4.6088e-01_rb/)\n      kao(:, 5, 3) = (/ &\n     &3.8076e-01_rb,3.8128e-01_rb,3.8007e-01_rb,3.8126e-01_rb,3.8214e-01_rb/)\n      kao(:, 6, 3) = (/ &\n     &3.1396e-01_rb,3.1576e-01_rb,3.1554e-01_rb,3.1478e-01_rb,3.1602e-01_rb/)\n      kao(:, 7, 3) = (/ &\n     &2.5841e-01_rb,2.6039e-01_rb,2.6160e-01_rb,2.6034e-01_rb,2.6147e-01_rb/)\n      kao(:, 8, 3) = (/ &\n     &2.1354e-01_rb,2.1540e-01_rb,2.1664e-01_rb,2.1675e-01_rb,2.1689e-01_rb/)\n      kao(:, 9, 3) = (/ &\n     &1.8409e-01_rb,1.8340e-01_rb,1.8423e-01_rb,1.8535e-01_rb,1.8550e-01_rb/)\n      kao(:,10, 3) = (/ &\n     &1.7687e-01_rb,1.8149e-01_rb,1.8138e-01_rb,1.8043e-01_rb,1.8050e-01_rb/)\n      kao(:,11, 3) = (/ &\n     &1.6660e-01_rb,1.6980e-01_rb,1.7005e-01_rb,1.7156e-01_rb,1.6983e-01_rb/)\n      kao(:,12, 3) = (/ &\n     &1.4699e-01_rb,1.5037e-01_rb,1.5032e-01_rb,1.5012e-01_rb,1.5041e-01_rb/)\n      kao(:,13, 3) = (/ &\n     &1.2497e-01_rb,1.2733e-01_rb,1.2732e-01_rb,1.2710e-01_rb,1.2722e-01_rb/)\n      kao(:, 1, 4) = (/ &\n     &1.8528e+00_rb,1.8358e+00_rb,1.8100e+00_rb,1.7728e+00_rb,1.7348e+00_rb/)\n      kao(:, 2, 4) = (/ &\n     &1.5191e+00_rb,1.5067e+00_rb,1.4864e+00_rb,1.4586e+00_rb,1.4273e+00_rb/)\n      kao(:, 3, 4) = (/ &\n     &1.2421e+00_rb,1.2332e+00_rb,1.2184e+00_rb,1.1999e+00_rb,1.1763e+00_rb/)\n      kao(:, 4, 4) = (/ &\n     &1.0235e+00_rb,1.0199e+00_rb,1.0105e+00_rb,9.9649e-01_rb,9.8141e-01_rb/)\n      kao(:, 5, 4) = (/ &\n     &8.4444e-01_rb,8.4579e-01_rb,8.4104e-01_rb,8.3201e-01_rb,8.2148e-01_rb/)\n      kao(:, 6, 4) = (/ &\n     &6.9623e-01_rb,7.0066e-01_rb,6.9879e-01_rb,6.9507e-01_rb,6.8745e-01_rb/)\n      kao(:, 7, 4) = (/ &\n     &5.7271e-01_rb,5.7848e-01_rb,5.7971e-01_rb,5.7773e-01_rb,5.7376e-01_rb/)\n      kao(:, 8, 4) = (/ &\n     &4.7082e-01_rb,4.7730e-01_rb,4.8061e-01_rb,4.7996e-01_rb,4.7783e-01_rb/)\n      kao(:, 9, 4) = (/ &\n     &3.8997e-01_rb,3.9821e-01_rb,4.0249e-01_rb,4.0315e-01_rb,4.0145e-01_rb/)\n      kao(:,10, 4) = (/ &\n     &3.5012e-01_rb,3.4335e-01_rb,3.3833e-01_rb,3.3654e-01_rb,3.3448e-01_rb/)\n      kao(:,11, 4) = (/ &\n     &3.1060e-01_rb,3.1084e-01_rb,3.0440e-01_rb,2.9201e-01_rb,2.8482e-01_rb/)\n      kao(:,12, 4) = (/ &\n     &2.7883e-01_rb,2.7190e-01_rb,2.6805e-01_rb,2.5917e-01_rb,2.4860e-01_rb/)\n      kao(:,13, 4) = (/ &\n     &2.3244e-01_rb,2.2666e-01_rb,2.2365e-01_rb,2.1647e-01_rb,2.0828e-01_rb/)\n      kao(:, 1, 5) = (/ &\n     &3.3225e+00_rb,3.2784e+00_rb,3.2423e+00_rb,3.2074e+00_rb,3.1704e+00_rb/)\n      kao(:, 2, 5) = (/ &\n     &2.7581e+00_rb,2.7256e+00_rb,2.6962e+00_rb,2.6686e+00_rb,2.6375e+00_rb/)\n      kao(:, 3, 5) = (/ &\n     &2.2798e+00_rb,2.2570e+00_rb,2.2330e+00_rb,2.2089e+00_rb,2.1829e+00_rb/)\n      kao(:, 4, 5) = (/ &\n     &1.8979e+00_rb,1.8796e+00_rb,1.8601e+00_rb,1.8393e+00_rb,1.8181e+00_rb/)\n      kao(:, 5, 5) = (/ &\n     &1.5861e+00_rb,1.5695e+00_rb,1.5550e+00_rb,1.5372e+00_rb,1.5203e+00_rb/)\n      kao(:, 6, 5) = (/ &\n     &1.3252e+00_rb,1.3124e+00_rb,1.3013e+00_rb,1.2872e+00_rb,1.2740e+00_rb/)\n      kao(:, 7, 5) = (/ &\n     &1.1027e+00_rb,1.0966e+00_rb,1.0870e+00_rb,1.0776e+00_rb,1.0667e+00_rb/)\n      kao(:, 8, 5) = (/ &\n     &9.1563e-01_rb,9.1410e-01_rb,9.0764e-01_rb,8.9982e-01_rb,8.9251e-01_rb/)\n      kao(:, 9, 5) = (/ &\n     &7.6595e-01_rb,7.6784e-01_rb,7.6494e-01_rb,7.5888e-01_rb,7.5288e-01_rb/)\n      kao(:,10, 5) = (/ &\n     &6.3388e-01_rb,6.4169e-01_rb,6.4724e-01_rb,6.4562e-01_rb,6.3971e-01_rb/)\n      kao(:,11, 5) = (/ &\n     &5.2794e-01_rb,5.2411e-01_rb,5.2455e-01_rb,5.2936e-01_rb,5.2927e-01_rb/)\n      kao(:,12, 5) = (/ &\n     &4.3721e-01_rb,4.3826e-01_rb,4.3490e-01_rb,4.3598e-01_rb,4.3794e-01_rb/)\n      kao(:,13, 5) = (/ &\n     &3.6693e-01_rb,3.6670e-01_rb,3.6374e-01_rb,3.6513e-01_rb,3.6694e-01_rb/)\n      kao(:, 1, 6) = (/ &\n     &6.6283e+00_rb,6.5357e+00_rb,6.4205e+00_rb,6.3046e+00_rb,6.1937e+00_rb/)\n      kao(:, 2, 6) = (/ &\n     &5.5921e+00_rb,5.5122e+00_rb,5.4227e+00_rb,5.3355e+00_rb,5.2548e+00_rb/)\n      kao(:, 3, 6) = (/ &\n     &4.6918e+00_rb,4.6295e+00_rb,4.5667e+00_rb,4.5016e+00_rb,4.4390e+00_rb/)\n      kao(:, 4, 6) = (/ &\n     &3.9477e+00_rb,3.9046e+00_rb,3.8607e+00_rb,3.8148e+00_rb,3.7628e+00_rb/)\n      kao(:, 5, 6) = (/ &\n     &3.3255e+00_rb,3.2963e+00_rb,3.2647e+00_rb,3.2299e+00_rb,3.1875e+00_rb/)\n      kao(:, 6, 6) = (/ &\n     &2.7972e+00_rb,2.7784e+00_rb,2.7561e+00_rb,2.7282e+00_rb,2.6941e+00_rb/)\n      kao(:, 7, 6) = (/ &\n     &2.3458e+00_rb,2.3342e+00_rb,2.3185e+00_rb,2.2969e+00_rb,2.2704e+00_rb/)\n      kao(:, 8, 6) = (/ &\n     &1.9572e+00_rb,1.9527e+00_rb,1.9423e+00_rb,1.9266e+00_rb,1.9056e+00_rb/)\n      kao(:, 9, 6) = (/ &\n     &1.6385e+00_rb,1.6357e+00_rb,1.6281e+00_rb,1.6171e+00_rb,1.6000e+00_rb/)\n      kao(:,10, 6) = (/ &\n     &1.4144e+00_rb,1.4143e+00_rb,1.4078e+00_rb,1.4009e+00_rb,1.3895e+00_rb/)\n      kao(:,11, 6) = (/ &\n     &1.1820e+00_rb,1.1847e+00_rb,1.1842e+00_rb,1.1773e+00_rb,1.1681e+00_rb/)\n      kao(:,12, 6) = (/ &\n     &9.7725e-01_rb,9.8091e-01_rb,9.8204e-01_rb,9.7703e-01_rb,9.7159e-01_rb/)\n      kao(:,13, 6) = (/ &\n     &8.1815e-01_rb,8.2185e-01_rb,8.2056e-01_rb,8.1693e-01_rb,8.1119e-01_rb/)\n      kao(:, 1, 7) = (/ &\n     &1.4313e+01_rb,1.4082e+01_rb,1.3850e+01_rb,1.3623e+01_rb,1.3382e+01_rb/)\n      kao(:, 2, 7) = (/ &\n     &1.2515e+01_rb,1.2314e+01_rb,1.2108e+01_rb,1.1882e+01_rb,1.1633e+01_rb/)\n      kao(:, 3, 7) = (/ &\n     &1.0802e+01_rb,1.0631e+01_rb,1.0439e+01_rb,1.0228e+01_rb,1.0005e+01_rb/)\n      kao(:, 4, 7) = (/ &\n     &9.2958e+00_rb,9.1469e+00_rb,8.9753e+00_rb,8.7884e+00_rb,8.6020e+00_rb/)\n      kao(:, 5, 7) = (/ &\n     &7.9646e+00_rb,7.8400e+00_rb,7.6929e+00_rb,7.5385e+00_rb,7.3901e+00_rb/)\n      kao(:, 6, 7) = (/ &\n     &6.7986e+00_rb,6.6983e+00_rb,6.5761e+00_rb,6.4518e+00_rb,6.3346e+00_rb/)\n      kao(:, 7, 7) = (/ &\n     &5.7703e+00_rb,5.6909e+00_rb,5.5962e+00_rb,5.4989e+00_rb,5.4062e+00_rb/)\n      kao(:, 8, 7) = (/ &\n     &4.8763e+00_rb,4.8159e+00_rb,4.7441e+00_rb,4.6692e+00_rb,4.5978e+00_rb/)\n      kao(:, 9, 7) = (/ &\n     &4.0868e+00_rb,4.0475e+00_rb,3.9918e+00_rb,3.9346e+00_rb,3.8784e+00_rb/)\n      kao(:,10, 7) = (/ &\n     &3.5589e+00_rb,3.5215e+00_rb,3.4698e+00_rb,3.4096e+00_rb,3.3531e+00_rb/)\n      kao(:,11, 7) = (/ &\n     &3.0702e+00_rb,3.0357e+00_rb,2.9927e+00_rb,2.9456e+00_rb,2.8950e+00_rb/)\n      kao(:,12, 7) = (/ &\n     &2.6022e+00_rb,2.5722e+00_rb,2.5392e+00_rb,2.5002e+00_rb,2.4548e+00_rb/)\n      kao(:,13, 7) = (/ &\n     &2.1727e+00_rb,2.1507e+00_rb,2.1220e+00_rb,2.0892e+00_rb,2.0541e+00_rb/)\n      kao(:, 1, 8) = (/ &\n     &3.4174e+01_rb,3.3741e+01_rb,3.3273e+01_rb,3.2762e+01_rb,3.2231e+01_rb/)\n      kao(:, 2, 8) = (/ &\n     &3.1501e+01_rb,3.1077e+01_rb,3.0621e+01_rb,3.0167e+01_rb,2.9717e+01_rb/)\n      kao(:, 3, 8) = (/ &\n     &2.8624e+01_rb,2.8247e+01_rb,2.7846e+01_rb,2.7455e+01_rb,2.7037e+01_rb/)\n      kao(:, 4, 8) = (/ &\n     &2.5860e+01_rb,2.5530e+01_rb,2.5179e+01_rb,2.4813e+01_rb,2.4424e+01_rb/)\n      kao(:, 5, 8) = (/ &\n     &2.3133e+01_rb,2.2868e+01_rb,2.2552e+01_rb,2.2222e+01_rb,2.1874e+01_rb/)\n      kao(:, 6, 8) = (/ &\n     &2.0417e+01_rb,2.0203e+01_rb,1.9954e+01_rb,1.9685e+01_rb,1.9370e+01_rb/)\n      kao(:, 7, 8) = (/ &\n     &1.7808e+01_rb,1.7656e+01_rb,1.7468e+01_rb,1.7234e+01_rb,1.6957e+01_rb/)\n      kao(:, 8, 8) = (/ &\n     &1.5349e+01_rb,1.5257e+01_rb,1.5109e+01_rb,1.4918e+01_rb,1.4683e+01_rb/)\n      kao(:, 9, 8) = (/ &\n     &1.3085e+01_rb,1.3031e+01_rb,1.2930e+01_rb,1.2779e+01_rb,1.2590e+01_rb/)\n      kao(:,10, 8) = (/ &\n     &1.0971e+01_rb,1.0917e+01_rb,1.0852e+01_rb,1.0748e+01_rb,1.0603e+01_rb/)\n      kao(:,11, 8) = (/ &\n     &9.5673e+00_rb,9.4985e+00_rb,9.4337e+00_rb,9.3153e+00_rb,9.1800e+00_rb/)\n      kao(:,12, 8) = (/ &\n     &8.2885e+00_rb,8.2471e+00_rb,8.1591e+00_rb,8.0541e+00_rb,7.9348e+00_rb/)\n      kao(:,13, 8) = (/ &\n     &7.1017e+00_rb,7.0462e+00_rb,6.9629e+00_rb,6.8569e+00_rb,6.7518e+00_rb/)\n      kao(:, 1, 9) = (/ &\n     &9.9761e+01_rb,9.8762e+01_rb,9.7605e+01_rb,9.6340e+01_rb,9.4995e+01_rb/)\n      kao(:, 2, 9) = (/ &\n     &9.9948e+01_rb,9.8866e+01_rb,9.7644e+01_rb,9.6363e+01_rb,9.4985e+01_rb/)\n      kao(:, 3, 9) = (/ &\n     &9.9007e+01_rb,9.8007e+01_rb,9.6838e+01_rb,9.5570e+01_rb,9.4251e+01_rb/)\n      kao(:, 4, 9) = (/ &\n     &9.6662e+01_rb,9.5791e+01_rb,9.4804e+01_rb,9.3746e+01_rb,9.2558e+01_rb/)\n      kao(:, 5, 9) = (/ &\n     &9.3093e+01_rb,9.2470e+01_rb,9.1704e+01_rb,9.0779e+01_rb,8.9739e+01_rb/)\n      kao(:, 6, 9) = (/ &\n     &8.8508e+01_rb,8.8114e+01_rb,8.7530e+01_rb,8.6816e+01_rb,8.5948e+01_rb/)\n      kao(:, 7, 9) = (/ &\n     &8.2974e+01_rb,8.2771e+01_rb,8.2394e+01_rb,8.1879e+01_rb,8.1118e+01_rb/)\n      kao(:, 8, 9) = (/ &\n     &7.6684e+01_rb,7.6645e+01_rb,7.6457e+01_rb,7.6020e+01_rb,7.5326e+01_rb/)\n      kao(:, 9, 9) = (/ &\n     &6.9973e+01_rb,7.0055e+01_rb,6.9978e+01_rb,6.9596e+01_rb,6.8941e+01_rb/)\n      kao(:,10, 9) = (/ &\n     &6.2676e+01_rb,6.2928e+01_rb,6.2907e+01_rb,6.2549e+01_rb,6.1993e+01_rb/)\n      kao(:,11, 9) = (/ &\n     &5.5263e+01_rb,5.5480e+01_rb,5.5306e+01_rb,5.4944e+01_rb,5.4442e+01_rb/)\n      kao(:,12, 9) = (/ &\n     &4.8636e+01_rb,4.8624e+01_rb,4.8458e+01_rb,4.8148e+01_rb,4.7712e+01_rb/)\n      kao(:,13, 9) = (/ &\n     &4.2167e+01_rb,4.2169e+01_rb,4.2037e+01_rb,4.1794e+01_rb,4.1453e+01_rb/)\n      kao(:, 1,10) = (/ &\n     &2.2059e+02_rb,2.1997e+02_rb,2.1921e+02_rb,2.1843e+02_rb,2.1743e+02_rb/)\n      kao(:, 2,10) = (/ &\n     &2.3102e+02_rb,2.3132e+02_rb,2.3151e+02_rb,2.3081e+02_rb,2.3008e+02_rb/)\n      kao(:, 3,10) = (/ &\n     &2.4111e+02_rb,2.4197e+02_rb,2.4166e+02_rb,2.4016e+02_rb,2.3836e+02_rb/)\n      kao(:, 4,10) = (/ &\n     &2.5158e+02_rb,2.5229e+02_rb,2.5082e+02_rb,2.4795e+02_rb,2.4522e+02_rb/)\n      kao(:, 5,10) = (/ &\n     &2.5765e+02_rb,2.5772e+02_rb,2.5582e+02_rb,2.5268e+02_rb,2.4923e+02_rb/)\n      kao(:, 6,10) = (/ &\n     &2.5856e+02_rb,2.5749e+02_rb,2.5502e+02_rb,2.5166e+02_rb,2.4826e+02_rb/)\n      kao(:, 7,10) = (/ &\n     &2.5368e+02_rb,2.5237e+02_rb,2.4999e+02_rb,2.4711e+02_rb,2.4470e+02_rb/)\n      kao(:, 8,10) = (/ &\n     &2.4476e+02_rb,2.4415e+02_rb,2.4213e+02_rb,2.4060e+02_rb,2.3968e+02_rb/)\n      kao(:, 9,10) = (/ &\n     &2.3178e+02_rb,2.3169e+02_rb,2.3048e+02_rb,2.3066e+02_rb,2.3132e+02_rb/)\n      kao(:,10,10) = (/ &\n     &2.1736e+02_rb,2.1726e+02_rb,2.1730e+02_rb,2.1880e+02_rb,2.1934e+02_rb/)\n      kao(:,11,10) = (/ &\n     &2.0114e+02_rb,2.0172e+02_rb,2.0351e+02_rb,2.0457e+02_rb,2.0387e+02_rb/)\n      kao(:,12,10) = (/ &\n     &1.8488e+02_rb,1.8650e+02_rb,1.8715e+02_rb,1.8619e+02_rb,1.8458e+02_rb/)\n      kao(:,13,10) = (/ &\n     &1.7142e+02_rb,1.7281e+02_rb,1.7236e+02_rb,1.7114e+02_rb,1.6934e+02_rb/)\n      kao(:, 1,11) = (/ &\n     &2.9459e+02_rb,2.9267e+02_rb,2.9151e+02_rb,2.8931e+02_rb,2.8695e+02_rb/)\n      kao(:, 2,11) = (/ &\n     &3.1654e+02_rb,3.1722e+02_rb,3.1773e+02_rb,3.1519e+02_rb,3.1185e+02_rb/)\n      kao(:, 3,11) = (/ &\n     &3.3345e+02_rb,3.3361e+02_rb,3.3487e+02_rb,3.3474e+02_rb,3.3330e+02_rb/)\n      kao(:, 4,11) = (/ &\n     &3.4222e+02_rb,3.4143e+02_rb,3.4230e+02_rb,3.4254e+02_rb,3.4132e+02_rb/)\n      kao(:, 5,11) = (/ &\n     &3.5206e+02_rb,3.5057e+02_rb,3.4997e+02_rb,3.4857e+02_rb,3.4588e+02_rb/)\n      kao(:, 6,11) = (/ &\n     &3.6028e+02_rb,3.6070e+02_rb,3.6119e+02_rb,3.5790e+02_rb,3.5262e+02_rb/)\n      kao(:, 7,11) = (/ &\n     &3.6620e+02_rb,3.6652e+02_rb,3.6631e+02_rb,3.6276e+02_rb,3.5799e+02_rb/)\n      kao(:, 8,11) = (/ &\n     &3.6855e+02_rb,3.6845e+02_rb,3.6741e+02_rb,3.6316e+02_rb,3.5815e+02_rb/)\n      kao(:, 9,11) = (/ &\n     &3.6490e+02_rb,3.6506e+02_rb,3.6353e+02_rb,3.5922e+02_rb,3.5455e+02_rb/)\n      kao(:,10,11) = (/ &\n     &3.5317e+02_rb,3.5433e+02_rb,3.5339e+02_rb,3.5013e+02_rb,3.4719e+02_rb/)\n      kao(:,11,11) = (/ &\n     &3.3639e+02_rb,3.3748e+02_rb,3.3591e+02_rb,3.3444e+02_rb,3.3466e+02_rb/)\n      kao(:,12,11) = (/ &\n     &3.1388e+02_rb,3.1454e+02_rb,3.1501e+02_rb,3.1656e+02_rb,3.1666e+02_rb/)\n      kao(:,13,11) = (/ &\n     &2.9044e+02_rb,2.9107e+02_rb,2.9274e+02_rb,2.9324e+02_rb,2.9124e+02_rb/)\n      kao(:, 1,12) = (/ &\n     &3.8243e+02_rb,3.8335e+02_rb,3.8560e+02_rb,3.8967e+02_rb,3.9390e+02_rb/)\n      kao(:, 2,12) = (/ &\n     &4.2476e+02_rb,4.2018e+02_rb,4.1643e+02_rb,4.1764e+02_rb,4.1841e+02_rb/)\n      kao(:, 3,12) = (/ &\n     &4.5902e+02_rb,4.5366e+02_rb,4.4789e+02_rb,4.4616e+02_rb,4.4366e+02_rb/)\n      kao(:, 4,12) = (/ &\n     &4.8576e+02_rb,4.8192e+02_rb,4.7838e+02_rb,4.7712e+02_rb,4.7436e+02_rb/)\n      kao(:, 5,12) = (/ &\n     &5.0548e+02_rb,5.0130e+02_rb,4.9886e+02_rb,4.9965e+02_rb,4.9992e+02_rb/)\n      kao(:, 6,12) = (/ &\n     &5.2714e+02_rb,5.1902e+02_rb,5.1379e+02_rb,5.1543e+02_rb,5.1780e+02_rb/)\n      kao(:, 7,12) = (/ &\n     &5.5149e+02_rb,5.4136e+02_rb,5.3395e+02_rb,5.3343e+02_rb,5.3337e+02_rb/)\n      kao(:, 8,12) = (/ &\n     &5.7260e+02_rb,5.6332e+02_rb,5.5702e+02_rb,5.5596e+02_rb,5.5242e+02_rb/)\n      kao(:, 9,12) = (/ &\n     &5.8640e+02_rb,5.7843e+02_rb,5.7443e+02_rb,5.7374e+02_rb,5.6970e+02_rb/)\n      kao(:,10,12) = (/ &\n     &5.9437e+02_rb,5.8760e+02_rb,5.8375e+02_rb,5.8166e+02_rb,5.7639e+02_rb/)\n      kao(:,11,12) = (/ &\n     &5.8998e+02_rb,5.8468e+02_rb,5.8336e+02_rb,5.7943e+02_rb,5.7161e+02_rb/)\n      kao(:,12,12) = (/ &\n     &5.7429e+02_rb,5.7360e+02_rb,5.7128e+02_rb,5.6564e+02_rb,5.6011e+02_rb/)\n      kao(:,13,12) = (/ &\n     &5.5035e+02_rb,5.5083e+02_rb,5.4893e+02_rb,5.4549e+02_rb,5.4357e+02_rb/)\n      kao(:, 1,13) = (/ &\n     &4.9343e+02_rb,4.9586e+02_rb,4.9750e+02_rb,4.9873e+02_rb,4.9898e+02_rb/)\n      kao(:, 2,13) = (/ &\n     &5.4485e+02_rb,5.4781e+02_rb,5.5082e+02_rb,5.5168e+02_rb,5.5417e+02_rb/)\n      kao(:, 3,13) = (/ &\n     &6.1399e+02_rb,6.1257e+02_rb,6.1216e+02_rb,6.1051e+02_rb,6.1193e+02_rb/)\n      kao(:, 4,13) = (/ &\n     &6.9330e+02_rb,6.8682e+02_rb,6.8040e+02_rb,6.7417e+02_rb,6.7247e+02_rb/)\n      kao(:, 5,13) = (/ &\n     &7.6881e+02_rb,7.6265e+02_rb,7.5375e+02_rb,7.4386e+02_rb,7.3721e+02_rb/)\n      kao(:, 6,13) = (/ &\n     &8.3052e+02_rb,8.2987e+02_rb,8.2363e+02_rb,8.1336e+02_rb,8.0445e+02_rb/)\n      kao(:, 7,13) = (/ &\n     &8.8082e+02_rb,8.8344e+02_rb,8.8117e+02_rb,8.7395e+02_rb,8.6653e+02_rb/)\n      kao(:, 8,13) = (/ &\n     &9.2485e+02_rb,9.2603e+02_rb,9.2355e+02_rb,9.1727e+02_rb,9.1414e+02_rb/)\n      kao(:, 9,13) = (/ &\n     &9.7276e+02_rb,9.7146e+02_rb,9.6566e+02_rb,9.5635e+02_rb,9.5212e+02_rb/)\n      kao(:,10,13) = (/ &\n     &1.0175e+03_rb,1.0163e+03_rb,1.0069e+03_rb,9.9610e+02_rb,9.9075e+02_rb/)\n      kao(:,11,13) = (/ &\n     &1.0564e+03_rb,1.0547e+03_rb,1.0423e+03_rb,1.0316e+03_rb,1.0272e+03_rb/)\n      kao(:,12,13) = (/ &\n     &1.0856e+03_rb,1.0807e+03_rb,1.0716e+03_rb,1.0657e+03_rb,1.0617e+03_rb/)\n      kao(:,13,13) = (/ &\n     &1.1006e+03_rb,1.0930e+03_rb,1.0868e+03_rb,1.0845e+03_rb,1.0783e+03_rb/)\n      kao(:, 1,14) = (/ &\n     &7.0211e+02_rb,7.0175e+02_rb,7.0131e+02_rb,6.9909e+02_rb,6.9776e+02_rb/)\n      kao(:, 2,14) = (/ &\n     &7.9113e+02_rb,7.9461e+02_rb,7.9834e+02_rb,7.9969e+02_rb,7.9813e+02_rb/)\n      kao(:, 3,14) = (/ &\n     &8.8896e+02_rb,8.9686e+02_rb,9.0679e+02_rb,9.1320e+02_rb,9.1562e+02_rb/)\n      kao(:, 4,14) = (/ &\n     &9.9457e+02_rb,1.0048e+03_rb,1.0163e+03_rb,1.0256e+03_rb,1.0309e+03_rb/)\n      kao(:, 5,14) = (/ &\n     &1.1171e+03_rb,1.1226e+03_rb,1.1342e+03_rb,1.1464e+03_rb,1.1541e+03_rb/)\n      kao(:, 6,14) = (/ &\n     &1.2650e+03_rb,1.2607e+03_rb,1.2659e+03_rb,1.2764e+03_rb,1.2854e+03_rb/)\n      kao(:, 7,14) = (/ &\n     &1.4362e+03_rb,1.4239e+03_rb,1.4228e+03_rb,1.4266e+03_rb,1.4315e+03_rb/)\n      kao(:, 8,14) = (/ &\n     &1.6263e+03_rb,1.6088e+03_rb,1.5994e+03_rb,1.5975e+03_rb,1.5958e+03_rb/)\n      kao(:, 9,14) = (/ &\n     &1.8039e+03_rb,1.7901e+03_rb,1.7817e+03_rb,1.7757e+03_rb,1.7698e+03_rb/)\n      kao(:,10,14) = (/ &\n     &1.9623e+03_rb,1.9495e+03_rb,1.9467e+03_rb,1.9462e+03_rb,1.9411e+03_rb/)\n      kao(:,11,14) = (/ &\n     &2.1010e+03_rb,2.0894e+03_rb,2.0912e+03_rb,2.0963e+03_rb,2.0914e+03_rb/)\n      kao(:,12,14) = (/ &\n     &2.2319e+03_rb,2.2209e+03_rb,2.2201e+03_rb,2.2217e+03_rb,2.2137e+03_rb/)\n      kao(:,13,14) = (/ &\n     &2.3516e+03_rb,2.3425e+03_rb,2.3393e+03_rb,2.3344e+03_rb,2.3274e+03_rb/)\n      kao(:, 1,15) = (/ &\n     &1.0409e+03_rb,1.0602e+03_rb,1.0710e+03_rb,1.0853e+03_rb,1.1018e+03_rb/)\n      kao(:, 2,15) = (/ &\n     &1.2151e+03_rb,1.2303e+03_rb,1.2347e+03_rb,1.2478e+03_rb,1.2680e+03_rb/)\n      kao(:, 3,15) = (/ &\n     &1.4193e+03_rb,1.4320e+03_rb,1.4382e+03_rb,1.4463e+03_rb,1.4605e+03_rb/)\n      kao(:, 4,15) = (/ &\n     &1.6341e+03_rb,1.6472e+03_rb,1.6601e+03_rb,1.6700e+03_rb,1.6846e+03_rb/)\n      kao(:, 5,15) = (/ &\n     &1.8786e+03_rb,1.8904e+03_rb,1.9028e+03_rb,1.9104e+03_rb,1.9250e+03_rb/)\n      kao(:, 6,15) = (/ &\n     &2.1492e+03_rb,2.1663e+03_rb,2.1776e+03_rb,2.1833e+03_rb,2.1940e+03_rb/)\n      kao(:, 7,15) = (/ &\n     &2.4310e+03_rb,2.4567e+03_rb,2.4727e+03_rb,2.4804e+03_rb,2.4891e+03_rb/)\n      kao(:, 8,15) = (/ &\n     &2.7261e+03_rb,2.7552e+03_rb,2.7803e+03_rb,2.7970e+03_rb,2.8141e+03_rb/)\n      kao(:, 9,15) = (/ &\n     &3.0867e+03_rb,3.0994e+03_rb,3.1170e+03_rb,3.1402e+03_rb,3.1679e+03_rb/)\n      kao(:,10,15) = (/ &\n     &3.5269e+03_rb,3.5204e+03_rb,3.5225e+03_rb,3.5345e+03_rb,3.5601e+03_rb/)\n      kao(:,11,15) = (/ &\n     &4.0271e+03_rb,4.0096e+03_rb,4.0024e+03_rb,4.0052e+03_rb,4.0246e+03_rb/)\n      kao(:,12,15) = (/ &\n     &4.5798e+03_rb,4.5585e+03_rb,4.5503e+03_rb,4.5442e+03_rb,4.5532e+03_rb/)\n      kao(:,13,15) = (/ &\n     &5.1911e+03_rb,5.1717e+03_rb,5.1553e+03_rb,5.1395e+03_rb,5.1397e+03_rb/)\n      kao(:, 1,16) = (/ &\n     &1.2071e+03_rb,1.2414e+03_rb,1.3062e+03_rb,1.3645e+03_rb,1.4123e+03_rb/)\n      kao(:, 2,16) = (/ &\n     &1.4670e+03_rb,1.4886e+03_rb,1.5547e+03_rb,1.6269e+03_rb,1.6875e+03_rb/)\n      kao(:, 3,16) = (/ &\n     &1.7847e+03_rb,1.7994e+03_rb,1.8394e+03_rb,1.9097e+03_rb,1.9863e+03_rb/)\n      kao(:, 4,16) = (/ &\n     &2.1409e+03_rb,2.1717e+03_rb,2.1953e+03_rb,2.2438e+03_rb,2.3059e+03_rb/)\n      kao(:, 5,16) = (/ &\n     &2.5417e+03_rb,2.5918e+03_rb,2.6196e+03_rb,2.6591e+03_rb,2.7124e+03_rb/)\n      kao(:, 6,16) = (/ &\n     &3.0242e+03_rb,3.0688e+03_rb,3.1113e+03_rb,3.1534e+03_rb,3.2074e+03_rb/)\n      kao(:, 7,16) = (/ &\n     &3.6491e+03_rb,3.6695e+03_rb,3.6939e+03_rb,3.7229e+03_rb,3.7906e+03_rb/)\n      kao(:, 8,16) = (/ &\n     &4.4223e+03_rb,4.4232e+03_rb,4.4297e+03_rb,4.4268e+03_rb,4.4608e+03_rb/)\n      kao(:, 9,16) = (/ &\n     &5.3502e+03_rb,5.3400e+03_rb,5.3338e+03_rb,5.3140e+03_rb,5.2816e+03_rb/)\n      kao(:,10,16) = (/ &\n     &6.4333e+03_rb,6.4257e+03_rb,6.4093e+03_rb,6.3744e+03_rb,6.3162e+03_rb/)\n      kao(:,11,16) = (/ &\n     &7.6805e+03_rb,7.6778e+03_rb,7.6466e+03_rb,7.5865e+03_rb,7.5106e+03_rb/)\n      kao(:,12,16) = (/ &\n     &9.1073e+03_rb,9.0972e+03_rb,9.0428e+03_rb,8.9445e+03_rb,8.8997e+03_rb/)\n      kao(:,13,16) = (/ &\n     &1.0699e+04_rb,1.0668e+04_rb,1.0580e+04_rb,1.0493e+04_rb,1.0473e+04_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &1.0144e-02_rb,1.1539e-02_rb,1.2861e-02_rb,1.4225e-02_rb,1.5224e-02_rb/)\n      kbo(:,14, 1) = (/ &\n     &8.4327e-03_rb,9.5989e-03_rb,1.0734e-02_rb,1.1890e-02_rb,1.2872e-02_rb/)\n      kbo(:,15, 1) = (/ &\n     &6.9967e-03_rb,7.9676e-03_rb,8.9559e-03_rb,9.9119e-03_rb,1.0533e-02_rb/)\n      kbo(:,16, 1) = (/ &\n     &5.7988e-03_rb,6.6068e-03_rb,7.4553e-03_rb,8.2402e-03_rb,8.5310e-03_rb/)\n      kbo(:,17, 1) = (/ &\n     &4.8055e-03_rb,5.4781e-03_rb,6.1884e-03_rb,6.8148e-03_rb,6.9563e-03_rb/)\n      kbo(:,18, 1) = (/ &\n     &3.9877e-03_rb,4.5423e-03_rb,5.1325e-03_rb,5.5098e-03_rb,5.6946e-03_rb/)\n      kbo(:,19, 1) = (/ &\n     &3.3110e-03_rb,3.7880e-03_rb,4.2806e-03_rb,4.4996e-03_rb,4.6784e-03_rb/)\n      kbo(:,20, 1) = (/ &\n     &2.7631e-03_rb,3.1756e-03_rb,3.5803e-03_rb,3.7100e-03_rb,3.8598e-03_rb/)\n      kbo(:,21, 1) = (/ &\n     &2.3113e-03_rb,2.6584e-03_rb,2.9347e-03_rb,3.0481e-03_rb,3.1824e-03_rb/)\n      kbo(:,22, 1) = (/ &\n     &1.9510e-03_rb,2.2389e-03_rb,2.4076e-03_rb,2.5106e-03_rb,2.6293e-03_rb/)\n      kbo(:,23, 1) = (/ &\n     &1.6490e-03_rb,1.8833e-03_rb,1.9839e-03_rb,2.0707e-03_rb,2.1757e-03_rb/)\n      kbo(:,24, 1) = (/ &\n     &1.3921e-03_rb,1.5822e-03_rb,1.6416e-03_rb,1.7136e-03_rb,1.8019e-03_rb/)\n      kbo(:,25, 1) = (/ &\n     &1.1754e-03_rb,1.2986e-03_rb,1.3546e-03_rb,1.4184e-03_rb,1.4951e-03_rb/)\n      kbo(:,26, 1) = (/ &\n     &9.9384e-04_rb,1.0692e-03_rb,1.1181e-03_rb,1.1767e-03_rb,1.2423e-03_rb/)\n      kbo(:,27, 1) = (/ &\n     &8.3932e-04_rb,8.8446e-04_rb,9.2496e-04_rb,9.7555e-04_rb,1.0286e-03_rb/)\n      kbo(:,28, 1) = (/ &\n     &7.0655e-04_rb,7.3418e-04_rb,7.6647e-04_rb,8.0853e-04_rb,8.5091e-04_rb/)\n      kbo(:,29, 1) = (/ &\n     &5.8016e-04_rb,6.0558e-04_rb,6.3439e-04_rb,6.6940e-04_rb,7.0187e-04_rb/)\n      kbo(:,30, 1) = (/ &\n     &4.7757e-04_rb,4.9924e-04_rb,5.2442e-04_rb,5.5397e-04_rb,5.7829e-04_rb/)\n      kbo(:,31, 1) = (/ &\n     &3.9420e-04_rb,4.1123e-04_rb,4.3298e-04_rb,4.5563e-04_rb,4.7437e-04_rb/)\n      kbo(:,32, 1) = (/ &\n     &3.2571e-04_rb,3.3960e-04_rb,3.5704e-04_rb,3.7387e-04_rb,3.8849e-04_rb/)\n      kbo(:,33, 1) = (/ &\n     &2.6741e-04_rb,2.8027e-04_rb,2.9349e-04_rb,3.0636e-04_rb,3.1790e-04_rb/)\n      kbo(:,34, 1) = (/ &\n     &2.2029e-04_rb,2.3073e-04_rb,2.4120e-04_rb,2.5116e-04_rb,2.5977e-04_rb/)\n      kbo(:,35, 1) = (/ &\n     &1.8092e-04_rb,1.8913e-04_rb,1.9723e-04_rb,2.0490e-04_rb,2.1120e-04_rb/)\n      kbo(:,36, 1) = (/ &\n     &1.4775e-04_rb,1.5426e-04_rb,1.6038e-04_rb,1.6643e-04_rb,1.7137e-04_rb/)\n      kbo(:,37, 1) = (/ &\n     &1.2005e-04_rb,1.2534e-04_rb,1.3001e-04_rb,1.3495e-04_rb,1.3888e-04_rb/)\n      kbo(:,38, 1) = (/ &\n     &9.7560e-05_rb,1.0177e-04_rb,1.0540e-04_rb,1.0924e-04_rb,1.1256e-04_rb/)\n      kbo(:,39, 1) = (/ &\n     &7.9344e-05_rb,8.2615e-05_rb,8.5368e-05_rb,8.8405e-05_rb,9.1186e-05_rb/)\n      kbo(:,40, 1) = (/ &\n     &6.4575e-05_rb,6.7008e-05_rb,6.9369e-05_rb,7.1740e-05_rb,7.4003e-05_rb/)\n      kbo(:,41, 1) = (/ &\n     &5.2697e-05_rb,5.4334e-05_rb,5.6409e-05_rb,5.8228e-05_rb,6.0014e-05_rb/)\n      kbo(:,42, 1) = (/ &\n     &4.3089e-05_rb,4.4120e-05_rb,4.5815e-05_rb,4.7218e-05_rb,4.8658e-05_rb/)\n      kbo(:,43, 1) = (/ &\n     &3.4429e-05_rb,3.5847e-05_rb,3.7149e-05_rb,3.8380e-05_rb,3.9479e-05_rb/)\n      kbo(:,44, 1) = (/ &\n     &2.7169e-05_rb,2.9300e-05_rb,3.0128e-05_rb,3.1175e-05_rb,3.2021e-05_rb/)\n      kbo(:,45, 1) = (/ &\n     &2.1411e-05_rb,2.3782e-05_rb,2.4360e-05_rb,2.5287e-05_rb,2.6025e-05_rb/)\n      kbo(:,46, 1) = (/ &\n     &1.6754e-05_rb,1.8795e-05_rb,1.9931e-05_rb,2.0532e-05_rb,2.1145e-05_rb/)\n      kbo(:,47, 1) = (/ &\n     &1.3067e-05_rb,1.4757e-05_rb,1.6247e-05_rb,1.6575e-05_rb,1.7184e-05_rb/)\n      kbo(:,48, 1) = (/ &\n     &1.0193e-05_rb,1.1527e-05_rb,1.2841e-05_rb,1.3599e-05_rb,1.3946e-05_rb/)\n      kbo(:,49, 1) = (/ &\n     &7.9417e-06_rb,8.9971e-06_rb,1.0112e-05_rb,1.1045e-05_rb,1.1285e-05_rb/)\n      kbo(:,50, 1) = (/ &\n     &6.1950e-06_rb,7.0678e-06_rb,7.9571e-06_rb,8.7859e-06_rb,9.3116e-06_rb/)\n      kbo(:,51, 1) = (/ &\n     &4.8121e-06_rb,5.5540e-06_rb,6.2634e-06_rb,6.9968e-06_rb,7.5750e-06_rb/)\n      kbo(:,52, 1) = (/ &\n     &3.7732e-06_rb,4.3400e-06_rb,4.9368e-06_rb,5.5255e-06_rb,6.0507e-06_rb/)\n      kbo(:,53, 1) = (/ &\n     &2.9588e-06_rb,3.3855e-06_rb,3.8934e-06_rb,4.3558e-06_rb,4.8377e-06_rb/)\n      kbo(:,54, 1) = (/ &\n     &2.2637e-06_rb,2.6550e-06_rb,3.0640e-06_rb,3.4670e-06_rb,3.8645e-06_rb/)\n      kbo(:,55, 1) = (/ &\n     &1.7394e-06_rb,2.1318e-06_rb,2.4092e-06_rb,2.7718e-06_rb,3.0969e-06_rb/)\n      kbo(:,56, 1) = (/ &\n     &1.3379e-06_rb,1.6962e-06_rb,1.9182e-06_rb,2.2019e-06_rb,2.5057e-06_rb/)\n      kbo(:,57, 1) = (/ &\n     &1.0894e-06_rb,1.3086e-06_rb,1.5250e-06_rb,1.7825e-06_rb,2.0078e-06_rb/)\n      kbo(:,58, 1) = (/ &\n     &8.2505e-07_rb,1.0180e-06_rb,1.2548e-06_rb,1.4584e-06_rb,1.7398e-06_rb/)\n      kbo(:,59, 1) = (/ &\n     &7.1802e-07_rb,8.6784e-07_rb,1.0974e-06_rb,1.3504e-06_rb,1.4314e-06_rb/)\n      kbo(:,13, 2) = (/ &\n     &4.1938e-02_rb,4.3540e-02_rb,4.4990e-02_rb,4.6074e-02_rb,4.6999e-02_rb/)\n      kbo(:,14, 2) = (/ &\n     &3.5928e-02_rb,3.7447e-02_rb,3.8935e-02_rb,3.9816e-02_rb,4.0666e-02_rb/)\n      kbo(:,15, 2) = (/ &\n     &3.0539e-02_rb,3.1836e-02_rb,3.3086e-02_rb,3.4096e-02_rb,3.5203e-02_rb/)\n      kbo(:,16, 2) = (/ &\n     &2.5542e-02_rb,2.6607e-02_rb,2.7654e-02_rb,2.8622e-02_rb,2.9849e-02_rb/)\n      kbo(:,17, 2) = (/ &\n     &2.1059e-02_rb,2.2159e-02_rb,2.3097e-02_rb,2.3970e-02_rb,2.5021e-02_rb/)\n      kbo(:,18, 2) = (/ &\n     &1.7420e-02_rb,1.8344e-02_rb,1.9223e-02_rb,2.0092e-02_rb,2.0887e-02_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.4527e-02_rb,1.5294e-02_rb,1.6071e-02_rb,1.6950e-02_rb,1.7660e-02_rb/)\n      kbo(:,20, 2) = (/ &\n     &1.2057e-02_rb,1.2740e-02_rb,1.3375e-02_rb,1.4212e-02_rb,1.4836e-02_rb/)\n      kbo(:,21, 2) = (/ &\n     &1.0024e-02_rb,1.0630e-02_rb,1.1202e-02_rb,1.1918e-02_rb,1.2460e-02_rb/)\n      kbo(:,22, 2) = (/ &\n     &8.3586e-03_rb,8.8721e-03_rb,9.4319e-03_rb,1.0016e-02_rb,1.0451e-02_rb/)\n      kbo(:,23, 2) = (/ &\n     &7.0023e-03_rb,7.4292e-03_rb,7.9425e-03_rb,8.4001e-03_rb,8.6668e-03_rb/)\n      kbo(:,24, 2) = (/ &\n     &5.8805e-03_rb,6.2414e-03_rb,6.6855e-03_rb,7.0380e-03_rb,7.1881e-03_rb/)\n      kbo(:,25, 2) = (/ &\n     &4.9300e-03_rb,5.2659e-03_rb,5.6130e-03_rb,5.8139e-03_rb,5.9744e-03_rb/)\n      kbo(:,26, 2) = (/ &\n     &4.1346e-03_rb,4.4268e-03_rb,4.6994e-03_rb,4.8189e-03_rb,4.9700e-03_rb/)\n      kbo(:,27, 2) = (/ &\n     &3.4478e-03_rb,3.6949e-03_rb,3.8760e-03_rb,3.9800e-03_rb,4.1083e-03_rb/)\n      kbo(:,28, 2) = (/ &\n     &2.8662e-03_rb,3.0720e-03_rb,3.1855e-03_rb,3.2844e-03_rb,3.3841e-03_rb/)\n      kbo(:,29, 2) = (/ &\n     &2.3700e-03_rb,2.5289e-03_rb,2.6049e-03_rb,2.6846e-03_rb,2.7555e-03_rb/)\n      kbo(:,30, 2) = (/ &\n     &1.9529e-03_rb,2.0734e-03_rb,2.1236e-03_rb,2.1766e-03_rb,2.2279e-03_rb/)\n      kbo(:,31, 2) = (/ &\n     &1.5951e-03_rb,1.6761e-03_rb,1.7103e-03_rb,1.7458e-03_rb,1.7856e-03_rb/)\n      kbo(:,32, 2) = (/ &\n     &1.2965e-03_rb,1.3546e-03_rb,1.3767e-03_rb,1.4016e-03_rb,1.4345e-03_rb/)\n      kbo(:,33, 2) = (/ &\n     &1.0497e-03_rb,1.0916e-03_rb,1.1061e-03_rb,1.1259e-03_rb,1.1490e-03_rb/)\n      kbo(:,34, 2) = (/ &\n     &8.5263e-04_rb,8.8439e-04_rb,8.9299e-04_rb,9.0901e-04_rb,9.2683e-04_rb/)\n      kbo(:,35, 2) = (/ &\n     &6.8961e-04_rb,7.1452e-04_rb,7.2125e-04_rb,7.3408e-04_rb,7.4718e-04_rb/)\n      kbo(:,36, 2) = (/ &\n     &5.5538e-04_rb,5.7454e-04_rb,5.8468e-04_rb,5.9295e-04_rb,6.0312e-04_rb/)\n      kbo(:,37, 2) = (/ &\n     &4.4687e-04_rb,4.6228e-04_rb,4.7485e-04_rb,4.8052e-04_rb,4.8826e-04_rb/)\n      kbo(:,38, 2) = (/ &\n     &3.5911e-04_rb,3.7176e-04_rb,3.8278e-04_rb,3.8998e-04_rb,3.9487e-04_rb/)\n      kbo(:,39, 2) = (/ &\n     &2.8825e-04_rb,2.9868e-04_rb,3.0761e-04_rb,3.1500e-04_rb,3.2065e-04_rb/)\n      kbo(:,40, 2) = (/ &\n     &2.3221e-04_rb,2.4117e-04_rb,2.4916e-04_rb,2.5539e-04_rb,2.6149e-04_rb/)\n      kbo(:,41, 2) = (/ &\n     &1.8711e-04_rb,1.9520e-04_rb,2.0184e-04_rb,2.0732e-04_rb,2.1208e-04_rb/)\n      kbo(:,42, 2) = (/ &\n     &1.5044e-04_rb,1.5806e-04_rb,1.6349e-04_rb,1.6813e-04_rb,1.7186e-04_rb/)\n      kbo(:,43, 2) = (/ &\n     &1.2147e-04_rb,1.2754e-04_rb,1.3202e-04_rb,1.3603e-04_rb,1.3922e-04_rb/)\n      kbo(:,44, 2) = (/ &\n     &9.7631e-05_rb,1.0254e-04_rb,1.0664e-04_rb,1.1000e-04_rb,1.1278e-04_rb/)\n      kbo(:,45, 2) = (/ &\n     &7.8551e-05_rb,8.2386e-05_rb,8.6252e-05_rb,8.8821e-05_rb,9.1113e-05_rb/)\n      kbo(:,46, 2) = (/ &\n     &6.3082e-05_rb,6.6217e-05_rb,6.9264e-05_rb,7.1597e-05_rb,7.3596e-05_rb/)\n      kbo(:,47, 2) = (/ &\n     &5.0668e-05_rb,5.3148e-05_rb,5.5648e-05_rb,5.8023e-05_rb,5.9460e-05_rb/)\n      kbo(:,48, 2) = (/ &\n     &4.0723e-05_rb,4.2652e-05_rb,4.4714e-05_rb,4.6562e-05_rb,4.8110e-05_rb/)\n      kbo(:,49, 2) = (/ &\n     &3.2577e-05_rb,3.4241e-05_rb,3.5845e-05_rb,3.7418e-05_rb,3.8704e-05_rb/)\n      kbo(:,50, 2) = (/ &\n     &2.6548e-05_rb,2.7645e-05_rb,2.8887e-05_rb,3.0243e-05_rb,3.1285e-05_rb/)\n      kbo(:,51, 2) = (/ &\n     &2.1632e-05_rb,2.2305e-05_rb,2.3402e-05_rb,2.4420e-05_rb,2.5424e-05_rb/)\n      kbo(:,52, 2) = (/ &\n     &1.7494e-05_rb,1.8158e-05_rb,1.8946e-05_rb,1.9746e-05_rb,2.0626e-05_rb/)\n      kbo(:,53, 2) = (/ &\n     &1.4060e-05_rb,1.4924e-05_rb,1.5296e-05_rb,1.6047e-05_rb,1.6661e-05_rb/)\n      kbo(:,54, 2) = (/ &\n     &1.1502e-05_rb,1.2189e-05_rb,1.2591e-05_rb,1.3072e-05_rb,1.3585e-05_rb/)\n      kbo(:,55, 2) = (/ &\n     &9.4731e-06_rb,9.9000e-06_rb,1.0499e-05_rb,1.0730e-05_rb,1.1201e-05_rb/)\n      kbo(:,56, 2) = (/ &\n     &7.7842e-06_rb,8.0609e-06_rb,8.6328e-06_rb,8.9073e-06_rb,9.2258e-06_rb/)\n      kbo(:,57, 2) = (/ &\n     &6.1271e-06_rb,6.6999e-06_rb,7.0368e-06_rb,7.4466e-06_rb,7.6395e-06_rb/)\n      kbo(:,58, 2) = (/ &\n     &4.7873e-06_rb,5.5615e-06_rb,5.7470e-06_rb,6.1637e-06_rb,6.3705e-06_rb/)\n      kbo(:,59, 2) = (/ &\n     &3.8649e-06_rb,4.5966e-06_rb,4.7965e-06_rb,5.1490e-06_rb,5.3880e-06_rb/)\n      kbo(:,13, 3) = (/ &\n     &1.2497e-01_rb,1.2733e-01_rb,1.2732e-01_rb,1.2710e-01_rb,1.2722e-01_rb/)\n      kbo(:,14, 3) = (/ &\n     &1.0770e-01_rb,1.1044e-01_rb,1.0994e-01_rb,1.0972e-01_rb,1.0842e-01_rb/)\n      kbo(:,15, 3) = (/ &\n     &9.2313e-02_rb,9.4782e-02_rb,9.3928e-02_rb,9.2439e-02_rb,9.0946e-02_rb/)\n      kbo(:,16, 3) = (/ &\n     &7.7737e-02_rb,7.9134e-02_rb,7.7340e-02_rb,7.6811e-02_rb,7.6114e-02_rb/)\n      kbo(:,17, 3) = (/ &\n     &6.5446e-02_rb,6.4598e-02_rb,6.3955e-02_rb,6.3795e-02_rb,6.3695e-02_rb/)\n      kbo(:,18, 3) = (/ &\n     &5.3197e-02_rb,5.2989e-02_rb,5.2755e-02_rb,5.2824e-02_rb,5.2780e-02_rb/)\n      kbo(:,19, 3) = (/ &\n     &4.3741e-02_rb,4.3850e-02_rb,4.3971e-02_rb,4.3934e-02_rb,4.3215e-02_rb/)\n      kbo(:,20, 3) = (/ &\n     &3.6203e-02_rb,3.6356e-02_rb,3.6481e-02_rb,3.6039e-02_rb,3.5482e-02_rb/)\n      kbo(:,21, 3) = (/ &\n     &2.9983e-02_rb,3.0109e-02_rb,3.0136e-02_rb,2.9600e-02_rb,2.9205e-02_rb/)\n      kbo(:,22, 3) = (/ &\n     &2.4798e-02_rb,2.4802e-02_rb,2.4628e-02_rb,2.4239e-02_rb,2.4061e-02_rb/)\n      kbo(:,23, 3) = (/ &\n     &2.0477e-02_rb,2.0405e-02_rb,2.0149e-02_rb,1.9990e-02_rb,1.9997e-02_rb/)\n      kbo(:,24, 3) = (/ &\n     &1.6953e-02_rb,1.6782e-02_rb,1.6632e-02_rb,1.6618e-02_rb,1.6673e-02_rb/)\n      kbo(:,25, 3) = (/ &\n     &1.3995e-02_rb,1.3802e-02_rb,1.3748e-02_rb,1.3853e-02_rb,1.3849e-02_rb/)\n      kbo(:,26, 3) = (/ &\n     &1.1507e-02_rb,1.1388e-02_rb,1.1372e-02_rb,1.1472e-02_rb,1.1479e-02_rb/)\n      kbo(:,27, 3) = (/ &\n     &9.4100e-03_rb,9.3552e-03_rb,9.3927e-03_rb,9.4480e-03_rb,9.4683e-03_rb/)\n      kbo(:,28, 3) = (/ &\n     &7.6709e-03_rb,7.6555e-03_rb,7.7364e-03_rb,7.7513e-03_rb,7.7691e-03_rb/)\n      kbo(:,29, 3) = (/ &\n     &6.2318e-03_rb,6.2179e-03_rb,6.2783e-03_rb,6.2823e-03_rb,6.2984e-03_rb/)\n      kbo(:,30, 3) = (/ &\n     &5.0369e-03_rb,5.0223e-03_rb,5.0690e-03_rb,5.0675e-03_rb,5.0877e-03_rb/)\n      kbo(:,31, 3) = (/ &\n     &4.0270e-03_rb,4.0248e-03_rb,4.0530e-03_rb,4.0550e-03_rb,4.0668e-03_rb/)\n      kbo(:,32, 3) = (/ &\n     &3.2266e-03_rb,3.2233e-03_rb,3.2444e-03_rb,3.2484e-03_rb,3.2485e-03_rb/)\n      kbo(:,33, 3) = (/ &\n     &2.5826e-03_rb,2.5793e-03_rb,2.5980e-03_rb,2.5954e-03_rb,2.5860e-03_rb/)\n      kbo(:,34, 3) = (/ &\n     &2.0751e-03_rb,2.0785e-03_rb,2.0913e-03_rb,2.0819e-03_rb,2.0719e-03_rb/)\n      kbo(:,35, 3) = (/ &\n     &1.6732e-03_rb,1.6746e-03_rb,1.6840e-03_rb,1.6712e-03_rb,1.6630e-03_rb/)\n      kbo(:,36, 3) = (/ &\n     &1.3540e-03_rb,1.3534e-03_rb,1.3539e-03_rb,1.3458e-03_rb,1.3380e-03_rb/)\n      kbo(:,37, 3) = (/ &\n     &1.1025e-03_rb,1.0986e-03_rb,1.0965e-03_rb,1.0906e-03_rb,1.0838e-03_rb/)\n      kbo(:,38, 3) = (/ &\n     &8.9827e-04_rb,8.9144e-04_rb,8.8894e-04_rb,8.8260e-04_rb,8.7601e-04_rb/)\n      kbo(:,39, 3) = (/ &\n     &7.3039e-04_rb,7.2351e-04_rb,7.1956e-04_rb,7.1446e-04_rb,7.0735e-04_rb/)\n      kbo(:,40, 3) = (/ &\n     &6.0257e-04_rb,5.9335e-04_rb,5.8899e-04_rb,5.8497e-04_rb,5.7809e-04_rb/)\n      kbo(:,41, 3) = (/ &\n     &4.9748e-04_rb,4.8829e-04_rb,4.8330e-04_rb,4.7897e-04_rb,4.7418e-04_rb/)\n      kbo(:,42, 3) = (/ &\n     &4.0962e-04_rb,4.0192e-04_rb,3.9631e-04_rb,3.9272e-04_rb,3.8922e-04_rb/)\n      kbo(:,43, 3) = (/ &\n     &3.3511e-04_rb,3.3335e-04_rb,3.2739e-04_rb,3.2309e-04_rb,3.2009e-04_rb/)\n      kbo(:,44, 3) = (/ &\n     &2.7494e-04_rb,2.7440e-04_rb,2.7166e-04_rb,2.6681e-04_rb,2.6291e-04_rb/)\n      kbo(:,45, 3) = (/ &\n     &2.2409e-04_rb,2.2465e-04_rb,2.2546e-04_rb,2.2120e-04_rb,2.1688e-04_rb/)\n      kbo(:,46, 3) = (/ &\n     &1.8344e-04_rb,1.8445e-04_rb,1.8370e-04_rb,1.8435e-04_rb,1.8060e-04_rb/)\n      kbo(:,47, 3) = (/ &\n     &1.5220e-04_rb,1.5094e-04_rb,1.5093e-04_rb,1.5107e-04_rb,1.5073e-04_rb/)\n      kbo(:,48, 3) = (/ &\n     &1.2685e-04_rb,1.2406e-04_rb,1.2418e-04_rb,1.2347e-04_rb,1.2407e-04_rb/)\n      kbo(:,49, 3) = (/ &\n     &1.0283e-04_rb,1.0360e-04_rb,1.0186e-04_rb,1.0181e-04_rb,1.0123e-04_rb/)\n      kbo(:,50, 3) = (/ &\n     &8.3231e-05_rb,8.5593e-05_rb,8.4616e-05_rb,8.3839e-05_rb,8.3224e-05_rb/)\n      kbo(:,51, 3) = (/ &\n     &6.6892e-05_rb,7.0153e-05_rb,7.0699e-05_rb,6.9691e-05_rb,6.9167e-05_rb/)\n      kbo(:,52, 3) = (/ &\n     &5.4090e-05_rb,5.6975e-05_rb,5.8223e-05_rb,5.8345e-05_rb,5.7364e-05_rb/)\n      kbo(:,53, 3) = (/ &\n     &4.3363e-05_rb,4.5702e-05_rb,4.7865e-05_rb,4.7887e-05_rb,4.7945e-05_rb/)\n      kbo(:,54, 3) = (/ &\n     &3.4722e-05_rb,3.7579e-05_rb,3.9122e-05_rb,3.9883e-05_rb,3.9754e-05_rb/)\n      kbo(:,55, 3) = (/ &\n     &2.7984e-05_rb,3.0530e-05_rb,3.1930e-05_rb,3.3227e-05_rb,3.3134e-05_rb/)\n      kbo(:,56, 3) = (/ &\n     &2.2565e-05_rb,2.4737e-05_rb,2.6495e-05_rb,2.7386e-05_rb,2.7845e-05_rb/)\n      kbo(:,57, 3) = (/ &\n     &1.8624e-05_rb,1.9996e-05_rb,2.1604e-05_rb,2.2454e-05_rb,2.3200e-05_rb/)\n      kbo(:,58, 3) = (/ &\n     &1.5567e-05_rb,1.6215e-05_rb,1.7630e-05_rb,1.8795e-05_rb,1.9192e-05_rb/)\n      kbo(:,59, 3) = (/ &\n     &1.3180e-05_rb,1.3591e-05_rb,1.4748e-05_rb,1.5698e-05_rb,1.6153e-05_rb/)\n      kbo(:,13, 4) = (/ &\n     &2.3244e-01_rb,2.2666e-01_rb,2.2365e-01_rb,2.1647e-01_rb,2.0828e-01_rb/)\n      kbo(:,14, 4) = (/ &\n     &1.9358e-01_rb,1.8830e-01_rb,1.8743e-01_rb,1.8019e-01_rb,1.7506e-01_rb/)\n      kbo(:,15, 4) = (/ &\n     &1.6047e-01_rb,1.5782e-01_rb,1.5488e-01_rb,1.5178e-01_rb,1.4896e-01_rb/)\n      kbo(:,16, 4) = (/ &\n     &1.3221e-01_rb,1.3030e-01_rb,1.2930e-01_rb,1.2731e-01_rb,1.2502e-01_rb/)\n      kbo(:,17, 4) = (/ &\n     &1.0863e-01_rb,1.0862e-01_rb,1.0815e-01_rb,1.0706e-01_rb,1.0464e-01_rb/)\n      kbo(:,18, 4) = (/ &\n     &9.0031e-02_rb,9.0210e-02_rb,9.0179e-02_rb,8.8891e-02_rb,8.7072e-02_rb/)\n      kbo(:,19, 4) = (/ &\n     &7.4933e-02_rb,7.5517e-02_rb,7.5432e-02_rb,7.4716e-02_rb,7.4259e-02_rb/)\n      kbo(:,20, 4) = (/ &\n     &6.2292e-02_rb,6.2900e-02_rb,6.2796e-02_rb,6.2799e-02_rb,6.2655e-02_rb/)\n      kbo(:,21, 4) = (/ &\n     &5.1753e-02_rb,5.2259e-02_rb,5.2338e-02_rb,5.2648e-02_rb,5.2692e-02_rb/)\n      kbo(:,22, 4) = (/ &\n     &4.2879e-02_rb,4.3337e-02_rb,4.3671e-02_rb,4.3911e-02_rb,4.3964e-02_rb/)\n      kbo(:,23, 4) = (/ &\n     &3.5511e-02_rb,3.5957e-02_rb,3.6400e-02_rb,3.6560e-02_rb,3.6588e-02_rb/)\n      kbo(:,24, 4) = (/ &\n     &2.9490e-02_rb,3.0002e-02_rb,3.0363e-02_rb,3.0503e-02_rb,3.0607e-02_rb/)\n      kbo(:,25, 4) = (/ &\n     &2.4491e-02_rb,2.5028e-02_rb,2.5370e-02_rb,2.5485e-02_rb,2.5616e-02_rb/)\n      kbo(:,26, 4) = (/ &\n     &2.0405e-02_rb,2.0858e-02_rb,2.1166e-02_rb,2.1267e-02_rb,2.1358e-02_rb/)\n      kbo(:,27, 4) = (/ &\n     &1.6966e-02_rb,1.7305e-02_rb,1.7522e-02_rb,1.7603e-02_rb,1.7664e-02_rb/)\n      kbo(:,28, 4) = (/ &\n     &1.4041e-02_rb,1.4283e-02_rb,1.4398e-02_rb,1.4482e-02_rb,1.4540e-02_rb/)\n      kbo(:,29, 4) = (/ &\n     &1.1473e-02_rb,1.1643e-02_rb,1.1712e-02_rb,1.1784e-02_rb,1.1808e-02_rb/)\n      kbo(:,30, 4) = (/ &\n     &9.3128e-03_rb,9.4393e-03_rb,9.4816e-03_rb,9.5274e-03_rb,9.5277e-03_rb/)\n      kbo(:,31, 4) = (/ &\n     &7.5018e-03_rb,7.5697e-03_rb,7.5938e-03_rb,7.6234e-03_rb,7.6068e-03_rb/)\n      kbo(:,32, 4) = (/ &\n     &6.0276e-03_rb,6.0587e-03_rb,6.0760e-03_rb,6.0793e-03_rb,6.0890e-03_rb/)\n      kbo(:,33, 4) = (/ &\n     &4.8317e-03_rb,4.8465e-03_rb,4.8480e-03_rb,4.8590e-03_rb,4.8679e-03_rb/)\n      kbo(:,34, 4) = (/ &\n     &3.8930e-03_rb,3.8936e-03_rb,3.8908e-03_rb,3.9081e-03_rb,3.9148e-03_rb/)\n      kbo(:,35, 4) = (/ &\n     &3.1327e-03_rb,3.1329e-03_rb,3.1313e-03_rb,3.1437e-03_rb,3.1485e-03_rb/)\n      kbo(:,36, 4) = (/ &\n     &2.5288e-03_rb,2.5255e-03_rb,2.5228e-03_rb,2.5303e-03_rb,2.5349e-03_rb/)\n      kbo(:,37, 4) = (/ &\n     &2.0481e-03_rb,2.0483e-03_rb,2.0398e-03_rb,2.0467e-03_rb,2.0499e-03_rb/)\n      kbo(:,38, 4) = (/ &\n     &1.6558e-03_rb,1.6596e-03_rb,1.6492e-03_rb,1.6534e-03_rb,1.6569e-03_rb/)\n      kbo(:,39, 4) = (/ &\n     &1.3374e-03_rb,1.3400e-03_rb,1.3351e-03_rb,1.3347e-03_rb,1.3383e-03_rb/)\n      kbo(:,40, 4) = (/ &\n     &1.0845e-03_rb,1.0921e-03_rb,1.0887e-03_rb,1.0875e-03_rb,1.0897e-03_rb/)\n      kbo(:,41, 4) = (/ &\n     &8.8154e-04_rb,8.8864e-04_rb,8.8779e-04_rb,8.8674e-04_rb,8.8749e-04_rb/)\n      kbo(:,42, 4) = (/ &\n     &7.1843e-04_rb,7.2263e-04_rb,7.2341e-04_rb,7.2250e-04_rb,7.2207e-04_rb/)\n      kbo(:,43, 4) = (/ &\n     &5.8799e-04_rb,5.8635e-04_rb,5.8966e-04_rb,5.8857e-04_rb,5.8778e-04_rb/)\n      kbo(:,44, 4) = (/ &\n     &4.7968e-04_rb,4.7905e-04_rb,4.7843e-04_rb,4.7895e-04_rb,4.7900e-04_rb/)\n      kbo(:,45, 4) = (/ &\n     &3.9220e-04_rb,3.9274e-04_rb,3.8844e-04_rb,3.8841e-04_rb,3.8937e-04_rb/)\n      kbo(:,46, 4) = (/ &\n     &3.2002e-04_rb,3.2007e-04_rb,3.1928e-04_rb,3.1499e-04_rb,3.1489e-04_rb/)\n      kbo(:,47, 4) = (/ &\n     &2.6159e-04_rb,2.6272e-04_rb,2.6214e-04_rb,2.5941e-04_rb,2.5552e-04_rb/)\n      kbo(:,48, 4) = (/ &\n     &2.1397e-04_rb,2.1500e-04_rb,2.1426e-04_rb,2.1370e-04_rb,2.0956e-04_rb/)\n      kbo(:,49, 4) = (/ &\n     &1.7795e-04_rb,1.7554e-04_rb,1.7551e-04_rb,1.7452e-04_rb,1.7328e-04_rb/)\n      kbo(:,50, 4) = (/ &\n     &1.4762e-04_rb,1.4610e-04_rb,1.4428e-04_rb,1.4351e-04_rb,1.4273e-04_rb/)\n      kbo(:,51, 4) = (/ &\n     &1.2354e-04_rb,1.2144e-04_rb,1.1938e-04_rb,1.1805e-04_rb,1.1688e-04_rb/)\n      kbo(:,52, 4) = (/ &\n     &1.0353e-04_rb,1.0111e-04_rb,9.9958e-05_rb,9.7469e-05_rb,9.6574e-05_rb/)\n      kbo(:,53, 4) = (/ &\n     &8.8311e-05_rb,8.4522e-05_rb,8.3164e-05_rb,8.1847e-05_rb,7.9623e-05_rb/)\n      kbo(:,54, 4) = (/ &\n     &7.5002e-05_rb,7.1277e-05_rb,6.9429e-05_rb,6.8546e-05_rb,6.7044e-05_rb/)\n      kbo(:,55, 4) = (/ &\n     &6.4688e-05_rb,6.1558e-05_rb,5.8597e-05_rb,5.7310e-05_rb,5.6741e-05_rb/)\n      kbo(:,56, 4) = (/ &\n     &5.4545e-05_rb,5.2835e-05_rb,4.9722e-05_rb,4.8222e-05_rb,4.7437e-05_rb/)\n      kbo(:,57, 4) = (/ &\n     &4.5567e-05_rb,4.5770e-05_rb,4.3541e-05_rb,4.1141e-05_rb,3.9867e-05_rb/)\n      kbo(:,58, 4) = (/ &\n     &3.8423e-05_rb,3.8314e-05_rb,3.7767e-05_rb,3.5438e-05_rb,3.3984e-05_rb/)\n      kbo(:,59, 4) = (/ &\n     &3.2695e-05_rb,3.2545e-05_rb,3.2199e-05_rb,3.0741e-05_rb,2.9151e-05_rb/)\n      kbo(:,13, 5) = (/ &\n     &3.6693e-01_rb,3.6670e-01_rb,3.6374e-01_rb,3.6513e-01_rb,3.6694e-01_rb/)\n      kbo(:,14, 5) = (/ &\n     &3.1193e-01_rb,3.1009e-01_rb,3.0785e-01_rb,3.1108e-01_rb,3.1338e-01_rb/)\n      kbo(:,15, 5) = (/ &\n     &2.6635e-01_rb,2.6398e-01_rb,2.6603e-01_rb,2.6792e-01_rb,2.6974e-01_rb/)\n      kbo(:,16, 5) = (/ &\n     &2.2560e-01_rb,2.2536e-01_rb,2.2722e-01_rb,2.2790e-01_rb,2.2934e-01_rb/)\n      kbo(:,17, 5) = (/ &\n     &1.9102e-01_rb,1.9205e-01_rb,1.9235e-01_rb,1.9256e-01_rb,1.9454e-01_rb/)\n      kbo(:,18, 5) = (/ &\n     &1.6220e-01_rb,1.6268e-01_rb,1.6247e-01_rb,1.6354e-01_rb,1.6555e-01_rb/)\n      kbo(:,19, 5) = (/ &\n     &1.3796e-01_rb,1.3803e-01_rb,1.3823e-01_rb,1.3977e-01_rb,1.4117e-01_rb/)\n      kbo(:,20, 5) = (/ &\n     &1.1636e-01_rb,1.1631e-01_rb,1.1719e-01_rb,1.1821e-01_rb,1.1915e-01_rb/)\n      kbo(:,21, 5) = (/ &\n     &9.7502e-02_rb,9.7703e-02_rb,9.8615e-02_rb,9.9561e-02_rb,1.0025e-01_rb/)\n      kbo(:,22, 5) = (/ &\n     &8.1562e-02_rb,8.1981e-02_rb,8.2659e-02_rb,8.3450e-02_rb,8.3918e-02_rb/)\n      kbo(:,23, 5) = (/ &\n     &6.8080e-02_rb,6.8683e-02_rb,6.9366e-02_rb,6.9894e-02_rb,7.0282e-02_rb/)\n      kbo(:,24, 5) = (/ &\n     &5.7119e-02_rb,5.7682e-02_rb,5.8192e-02_rb,5.8547e-02_rb,5.9029e-02_rb/)\n      kbo(:,25, 5) = (/ &\n     &4.7811e-02_rb,4.8293e-02_rb,4.8606e-02_rb,4.8996e-02_rb,4.9473e-02_rb/)\n      kbo(:,26, 5) = (/ &\n     &3.9890e-02_rb,4.0316e-02_rb,4.0576e-02_rb,4.1016e-02_rb,4.1455e-02_rb/)\n      kbo(:,27, 5) = (/ &\n     &3.3117e-02_rb,3.3470e-02_rb,3.3770e-02_rb,3.4189e-02_rb,3.4527e-02_rb/)\n      kbo(:,28, 5) = (/ &\n     &2.7406e-02_rb,2.7694e-02_rb,2.7971e-02_rb,2.8332e-02_rb,2.8599e-02_rb/)\n      kbo(:,29, 5) = (/ &\n     &2.2401e-02_rb,2.2630e-02_rb,2.2890e-02_rb,2.3150e-02_rb,2.3396e-02_rb/)\n      kbo(:,30, 5) = (/ &\n     &1.8227e-02_rb,1.8399e-02_rb,1.8623e-02_rb,1.8850e-02_rb,1.9028e-02_rb/)\n      kbo(:,31, 5) = (/ &\n     &1.4683e-02_rb,1.4830e-02_rb,1.5011e-02_rb,1.5187e-02_rb,1.5326e-02_rb/)\n      kbo(:,32, 5) = (/ &\n     &1.1826e-02_rb,1.1971e-02_rb,1.2101e-02_rb,1.2245e-02_rb,1.2313e-02_rb/)\n      kbo(:,33, 5) = (/ &\n     &9.5307e-03_rb,9.6419e-03_rb,9.7421e-03_rb,9.8284e-03_rb,9.8826e-03_rb/)\n      kbo(:,34, 5) = (/ &\n     &7.7176e-03_rb,7.8031e-03_rb,7.8838e-03_rb,7.9405e-03_rb,7.9679e-03_rb/)\n      kbo(:,35, 5) = (/ &\n     &6.2512e-03_rb,6.3124e-03_rb,6.3712e-03_rb,6.4126e-03_rb,6.4324e-03_rb/)\n      kbo(:,36, 5) = (/ &\n     &5.0560e-03_rb,5.1076e-03_rb,5.1576e-03_rb,5.1918e-03_rb,5.2018e-03_rb/)\n      kbo(:,37, 5) = (/ &\n     &4.0965e-03_rb,4.1427e-03_rb,4.1869e-03_rb,4.2164e-03_rb,4.2222e-03_rb/)\n      kbo(:,38, 5) = (/ &\n     &3.3169e-03_rb,3.3541e-03_rb,3.3940e-03_rb,3.4174e-03_rb,3.4236e-03_rb/)\n      kbo(:,39, 5) = (/ &\n     &2.6806e-03_rb,2.7157e-03_rb,2.7440e-03_rb,2.7658e-03_rb,2.7739e-03_rb/)\n      kbo(:,40, 5) = (/ &\n     &2.1766e-03_rb,2.2105e-03_rb,2.2356e-03_rb,2.2533e-03_rb,2.2654e-03_rb/)\n      kbo(:,41, 5) = (/ &\n     &1.7690e-03_rb,1.7997e-03_rb,1.8217e-03_rb,1.8373e-03_rb,1.8492e-03_rb/)\n      kbo(:,42, 5) = (/ &\n     &1.4370e-03_rb,1.4625e-03_rb,1.4833e-03_rb,1.4970e-03_rb,1.5072e-03_rb/)\n      kbo(:,43, 5) = (/ &\n     &1.1671e-03_rb,1.1863e-03_rb,1.2051e-03_rb,1.2193e-03_rb,1.2276e-03_rb/)\n      kbo(:,44, 5) = (/ &\n     &9.4820e-04_rb,9.6187e-04_rb,9.7830e-04_rb,9.9143e-04_rb,9.9963e-04_rb/)\n      kbo(:,45, 5) = (/ &\n     &7.6916e-04_rb,7.7831e-04_rb,7.9153e-04_rb,8.0495e-04_rb,8.1281e-04_rb/)\n      kbo(:,46, 5) = (/ &\n     &6.2348e-04_rb,6.3114e-04_rb,6.4009e-04_rb,6.5199e-04_rb,6.6002e-04_rb/)\n      kbo(:,47, 5) = (/ &\n     &5.0390e-04_rb,5.1138e-04_rb,5.1807e-04_rb,5.2655e-04_rb,5.3606e-04_rb/)\n      kbo(:,48, 5) = (/ &\n     &4.0606e-04_rb,4.1379e-04_rb,4.1952e-04_rb,4.2537e-04_rb,4.3314e-04_rb/)\n      kbo(:,49, 5) = (/ &\n     &3.2659e-04_rb,3.3285e-04_rb,3.3902e-04_rb,3.4315e-04_rb,3.4880e-04_rb/)\n      kbo(:,50, 5) = (/ &\n     &2.6466e-04_rb,2.6781e-04_rb,2.7393e-04_rb,2.7826e-04_rb,2.8216e-04_rb/)\n      kbo(:,51, 5) = (/ &\n     &2.1507e-04_rb,2.1721e-04_rb,2.2109e-04_rb,2.2570e-04_rb,2.2911e-04_rb/)\n      kbo(:,52, 5) = (/ &\n     &1.7470e-04_rb,1.7639e-04_rb,1.7813e-04_rb,1.8197e-04_rb,1.8512e-04_rb/)\n      kbo(:,53, 5) = (/ &\n     &1.4115e-04_rb,1.4348e-04_rb,1.4425e-04_rb,1.4633e-04_rb,1.4939e-04_rb/)\n      kbo(:,54, 5) = (/ &\n     &1.1575e-04_rb,1.1704e-04_rb,1.1812e-04_rb,1.1890e-04_rb,1.2106e-04_rb/)\n      kbo(:,55, 5) = (/ &\n     &9.4726e-05_rb,9.5455e-05_rb,9.6825e-05_rb,9.7465e-05_rb,9.8412e-05_rb/)\n      kbo(:,56, 5) = (/ &\n     &7.9719e-05_rb,7.8475e-05_rb,7.9571e-05_rb,8.0057e-05_rb,8.0565e-05_rb/)\n      kbo(:,57, 5) = (/ &\n     &6.7373e-05_rb,6.4174e-05_rb,6.4600e-05_rb,6.5492e-05_rb,6.6130e-05_rb/)\n      kbo(:,58, 5) = (/ &\n     &5.8248e-05_rb,5.4990e-05_rb,5.3012e-05_rb,5.3610e-05_rb,5.4283e-05_rb/)\n      kbo(:,59, 5) = (/ &\n     &5.0210e-05_rb,4.6885e-05_rb,4.4678e-05_rb,4.4690e-05_rb,4.5330e-05_rb/)\n      kbo(:,13, 6) = (/ &\n     &8.1815e-01_rb,8.2185e-01_rb,8.2056e-01_rb,8.1693e-01_rb,8.1119e-01_rb/)\n      kbo(:,14, 6) = (/ &\n     &6.9938e-01_rb,7.0403e-01_rb,7.0310e-01_rb,6.9893e-01_rb,6.9382e-01_rb/)\n      kbo(:,15, 6) = (/ &\n     &6.0306e-01_rb,6.0562e-01_rb,6.0433e-01_rb,6.0124e-01_rb,5.9539e-01_rb/)\n      kbo(:,16, 6) = (/ &\n     &5.1717e-01_rb,5.1741e-01_rb,5.1602e-01_rb,5.1303e-01_rb,5.0799e-01_rb/)\n      kbo(:,17, 6) = (/ &\n     &4.3954e-01_rb,4.3996e-01_rb,4.3917e-01_rb,4.3585e-01_rb,4.3144e-01_rb/)\n      kbo(:,18, 6) = (/ &\n     &3.7098e-01_rb,3.7164e-01_rb,3.7046e-01_rb,3.6778e-01_rb,3.6412e-01_rb/)\n      kbo(:,19, 6) = (/ &\n     &3.1410e-01_rb,3.1452e-01_rb,3.1318e-01_rb,3.1054e-01_rb,3.0829e-01_rb/)\n      kbo(:,20, 6) = (/ &\n     &2.6425e-01_rb,2.6434e-01_rb,2.6287e-01_rb,2.6129e-01_rb,2.6054e-01_rb/)\n      kbo(:,21, 6) = (/ &\n     &2.2166e-01_rb,2.2161e-01_rb,2.2078e-01_rb,2.2017e-01_rb,2.1929e-01_rb/)\n      kbo(:,22, 6) = (/ &\n     &1.8499e-01_rb,1.8512e-01_rb,1.8480e-01_rb,1.8474e-01_rb,1.8395e-01_rb/)\n      kbo(:,23, 6) = (/ &\n     &1.5462e-01_rb,1.5460e-01_rb,1.5448e-01_rb,1.5440e-01_rb,1.5366e-01_rb/)\n      kbo(:,24, 6) = (/ &\n     &1.2929e-01_rb,1.2940e-01_rb,1.2953e-01_rb,1.2932e-01_rb,1.2872e-01_rb/)\n      kbo(:,25, 6) = (/ &\n     &1.0802e-01_rb,1.0819e-01_rb,1.0834e-01_rb,1.0817e-01_rb,1.0761e-01_rb/)\n      kbo(:,26, 6) = (/ &\n     &9.0060e-02_rb,9.0350e-02_rb,9.0334e-02_rb,9.0150e-02_rb,8.9781e-02_rb/)\n      kbo(:,27, 6) = (/ &\n     &7.4680e-02_rb,7.4863e-02_rb,7.4908e-02_rb,7.4831e-02_rb,7.4608e-02_rb/)\n      kbo(:,28, 6) = (/ &\n     &6.1687e-02_rb,6.1865e-02_rb,6.1970e-02_rb,6.1917e-02_rb,6.1874e-02_rb/)\n      kbo(:,29, 6) = (/ &\n     &5.0513e-02_rb,5.0701e-02_rb,5.0801e-02_rb,5.0773e-02_rb,5.0734e-02_rb/)\n      kbo(:,30, 6) = (/ &\n     &4.1201e-02_rb,4.1379e-02_rb,4.1449e-02_rb,4.1422e-02_rb,4.1408e-02_rb/)\n      kbo(:,31, 6) = (/ &\n     &3.3339e-02_rb,3.3480e-02_rb,3.3517e-02_rb,3.3503e-02_rb,3.3496e-02_rb/)\n      kbo(:,32, 6) = (/ &\n     &2.6941e-02_rb,2.7025e-02_rb,2.7045e-02_rb,2.7032e-02_rb,2.7041e-02_rb/)\n      kbo(:,33, 6) = (/ &\n     &2.1746e-02_rb,2.1784e-02_rb,2.1791e-02_rb,2.1788e-02_rb,2.1780e-02_rb/)\n      kbo(:,34, 6) = (/ &\n     &1.7618e-02_rb,1.7652e-02_rb,1.7653e-02_rb,1.7651e-02_rb,1.7645e-02_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.4278e-02_rb,1.4314e-02_rb,1.4305e-02_rb,1.4306e-02_rb,1.4294e-02_rb/)\n      kbo(:,36, 6) = (/ &\n     &1.1580e-02_rb,1.1612e-02_rb,1.1606e-02_rb,1.1608e-02_rb,1.1605e-02_rb/)\n      kbo(:,37, 6) = (/ &\n     &9.4219e-03_rb,9.4537e-03_rb,9.4624e-03_rb,9.4565e-03_rb,9.4577e-03_rb/)\n      kbo(:,38, 6) = (/ &\n     &7.6536e-03_rb,7.6870e-03_rb,7.7033e-03_rb,7.6954e-03_rb,7.6994e-03_rb/)\n      kbo(:,39, 6) = (/ &\n     &6.2054e-03_rb,6.2357e-03_rb,6.2573e-03_rb,6.2573e-03_rb,6.2600e-03_rb/)\n      kbo(:,40, 6) = (/ &\n     &5.0787e-03_rb,5.1000e-03_rb,5.1231e-03_rb,5.1304e-03_rb,5.1270e-03_rb/)\n      kbo(:,41, 6) = (/ &\n     &4.1553e-03_rb,4.1734e-03_rb,4.1950e-03_rb,4.2100e-03_rb,4.2073e-03_rb/)\n      kbo(:,42, 6) = (/ &\n     &3.3951e-03_rb,3.4115e-03_rb,3.4321e-03_rb,3.4456e-03_rb,3.4459e-03_rb/)\n      kbo(:,43, 6) = (/ &\n     &2.7739e-03_rb,2.7892e-03_rb,2.8063e-03_rb,2.8198e-03_rb,2.8248e-03_rb/)\n      kbo(:,44, 6) = (/ &\n     &2.2638e-03_rb,2.2784e-03_rb,2.2918e-03_rb,2.3046e-03_rb,2.3113e-03_rb/)\n      kbo(:,45, 6) = (/ &\n     &1.8451e-03_rb,1.8580e-03_rb,1.8678e-03_rb,1.8806e-03_rb,1.8860e-03_rb/)\n      kbo(:,46, 6) = (/ &\n     &1.5013e-03_rb,1.5134e-03_rb,1.5237e-03_rb,1.5316e-03_rb,1.5391e-03_rb/)\n      kbo(:,47, 6) = (/ &\n     &1.2205e-03_rb,1.2340e-03_rb,1.2429e-03_rb,1.2503e-03_rb,1.2568e-03_rb/)\n      kbo(:,48, 6) = (/ &\n     &9.8959e-04_rb,1.0036e-03_rb,1.0115e-03_rb,1.0182e-03_rb,1.0235e-03_rb/)\n      kbo(:,49, 6) = (/ &\n     &8.0128e-04_rb,8.1327e-04_rb,8.2211e-04_rb,8.2807e-04_rb,8.3181e-04_rb/)\n      kbo(:,50, 6) = (/ &\n     &6.5077e-04_rb,6.6049e-04_rb,6.6942e-04_rb,6.7493e-04_rb,6.7909e-04_rb/)\n      kbo(:,51, 6) = (/ &\n     &5.2860e-04_rb,5.3765e-04_rb,5.4562e-04_rb,5.5099e-04_rb,5.5519e-04_rb/)\n      kbo(:,52, 6) = (/ &\n     &4.2741e-04_rb,4.3678e-04_rb,4.4379e-04_rb,4.4944e-04_rb,4.5321e-04_rb/)\n      kbo(:,53, 6) = (/ &\n     &3.4420e-04_rb,3.5368e-04_rb,3.5979e-04_rb,3.6513e-04_rb,3.6858e-04_rb/)\n      kbo(:,54, 6) = (/ &\n     &2.7911e-04_rb,2.8752e-04_rb,2.9393e-04_rb,2.9865e-04_rb,3.0238e-04_rb/)\n      kbo(:,55, 6) = (/ &\n     &2.2659e-04_rb,2.3415e-04_rb,2.4084e-04_rb,2.4534e-04_rb,2.4896e-04_rb/)\n      kbo(:,56, 6) = (/ &\n     &1.8317e-04_rb,1.9078e-04_rb,1.9656e-04_rb,2.0135e-04_rb,2.0466e-04_rb/)\n      kbo(:,57, 6) = (/ &\n     &1.4828e-04_rb,1.5527e-04_rb,1.6035e-04_rb,1.6503e-04_rb,1.6825e-04_rb/)\n      kbo(:,58, 6) = (/ &\n     &1.1818e-04_rb,1.2542e-04_rb,1.3082e-04_rb,1.3476e-04_rb,1.3831e-04_rb/)\n      kbo(:,59, 6) = (/ &\n     &9.6673e-05_rb,1.0368e-04_rb,1.0861e-04_rb,1.1211e-04_rb,1.1553e-04_rb/)\n      kbo(:,13, 7) = (/ &\n     &2.1727e+00_rb,2.1507e+00_rb,2.1220e+00_rb,2.0892e+00_rb,2.0541e+00_rb/)\n      kbo(:,14, 7) = (/ &\n     &1.7980e+00_rb,1.7753e+00_rb,1.7493e+00_rb,1.7241e+00_rb,1.6941e+00_rb/)\n      kbo(:,15, 7) = (/ &\n     &1.5327e+00_rb,1.5148e+00_rb,1.4951e+00_rb,1.4705e+00_rb,1.4480e+00_rb/)\n      kbo(:,16, 7) = (/ &\n     &1.3007e+00_rb,1.2909e+00_rb,1.2720e+00_rb,1.2527e+00_rb,1.2359e+00_rb/)\n      kbo(:,17, 7) = (/ &\n     &1.1117e+00_rb,1.1002e+00_rb,1.0859e+00_rb,1.0728e+00_rb,1.0608e+00_rb/)\n      kbo(:,18, 7) = (/ &\n     &9.4895e-01_rb,9.3669e-01_rb,9.2658e-01_rb,9.1630e-01_rb,9.0461e-01_rb/)\n      kbo(:,19, 7) = (/ &\n     &8.0771e-01_rb,7.9960e-01_rb,7.9052e-01_rb,7.8134e-01_rb,7.7103e-01_rb/)\n      kbo(:,20, 7) = (/ &\n     &6.8397e-01_rb,6.7733e-01_rb,6.6931e-01_rb,6.6104e-01_rb,6.5276e-01_rb/)\n      kbo(:,21, 7) = (/ &\n     &5.7680e-01_rb,5.7078e-01_rb,5.6416e-01_rb,5.5706e-01_rb,5.4996e-01_rb/)\n      kbo(:,22, 7) = (/ &\n     &4.8402e-01_rb,4.7901e-01_rb,4.7292e-01_rb,4.6701e-01_rb,4.6224e-01_rb/)\n      kbo(:,23, 7) = (/ &\n     &4.0435e-01_rb,4.0004e-01_rb,3.9588e-01_rb,3.9219e-01_rb,3.8835e-01_rb/)\n      kbo(:,24, 7) = (/ &\n     &3.3766e-01_rb,3.3478e-01_rb,3.3178e-01_rb,3.2887e-01_rb,3.2604e-01_rb/)\n      kbo(:,25, 7) = (/ &\n     &2.8141e-01_rb,2.7941e-01_rb,2.7716e-01_rb,2.7469e-01_rb,2.7266e-01_rb/)\n      kbo(:,26, 7) = (/ &\n     &2.3429e-01_rb,2.3260e-01_rb,2.3087e-01_rb,2.2897e-01_rb,2.2751e-01_rb/)\n      kbo(:,27, 7) = (/ &\n     &1.9420e-01_rb,1.9275e-01_rb,1.9122e-01_rb,1.8991e-01_rb,1.8923e-01_rb/)\n      kbo(:,28, 7) = (/ &\n     &1.6015e-01_rb,1.5905e-01_rb,1.5800e-01_rb,1.5718e-01_rb,1.5696e-01_rb/)\n      kbo(:,29, 7) = (/ &\n     &1.3094e-01_rb,1.3014e-01_rb,1.2944e-01_rb,1.2906e-01_rb,1.2899e-01_rb/)\n      kbo(:,30, 7) = (/ &\n     &1.0666e-01_rb,1.0604e-01_rb,1.0563e-01_rb,1.0549e-01_rb,1.0548e-01_rb/)\n      kbo(:,31, 7) = (/ &\n     &8.6275e-02_rb,8.5845e-02_rb,8.5617e-02_rb,8.5505e-02_rb,8.5535e-02_rb/)\n      kbo(:,32, 7) = (/ &\n     &6.9798e-02_rb,6.9528e-02_rb,6.9393e-02_rb,6.9336e-02_rb,6.9374e-02_rb/)\n      kbo(:,33, 7) = (/ &\n     &5.6418e-02_rb,5.6253e-02_rb,5.6185e-02_rb,5.6126e-02_rb,5.6165e-02_rb/)\n      kbo(:,34, 7) = (/ &\n     &4.5866e-02_rb,4.5727e-02_rb,4.5682e-02_rb,4.5616e-02_rb,4.5707e-02_rb/)\n      kbo(:,35, 7) = (/ &\n     &3.7274e-02_rb,3.7180e-02_rb,3.7143e-02_rb,3.7120e-02_rb,3.7200e-02_rb/)\n      kbo(:,36, 7) = (/ &\n     &3.0350e-02_rb,3.0274e-02_rb,3.0257e-02_rb,3.0235e-02_rb,3.0299e-02_rb/)\n      kbo(:,37, 7) = (/ &\n     &2.4821e-02_rb,2.4753e-02_rb,2.4742e-02_rb,2.4741e-02_rb,2.4790e-02_rb/)\n      kbo(:,38, 7) = (/ &\n     &2.0268e-02_rb,2.0223e-02_rb,2.0196e-02_rb,2.0200e-02_rb,2.0236e-02_rb/)\n      kbo(:,39, 7) = (/ &\n     &1.6521e-02_rb,1.6487e-02_rb,1.6459e-02_rb,1.6462e-02_rb,1.6499e-02_rb/)\n      kbo(:,40, 7) = (/ &\n     &1.3551e-02_rb,1.3542e-02_rb,1.3531e-02_rb,1.3538e-02_rb,1.3571e-02_rb/)\n      kbo(:,41, 7) = (/ &\n     &1.1139e-02_rb,1.1135e-02_rb,1.1130e-02_rb,1.1141e-02_rb,1.1171e-02_rb/)\n      kbo(:,42, 7) = (/ &\n     &9.1492e-03_rb,9.1515e-03_rb,9.1518e-03_rb,9.1649e-03_rb,9.1900e-03_rb/)\n      kbo(:,43, 7) = (/ &\n     &7.5083e-03_rb,7.5191e-03_rb,7.5258e-03_rb,7.5334e-03_rb,7.5552e-03_rb/)\n      kbo(:,44, 7) = (/ &\n     &6.1594e-03_rb,6.1707e-03_rb,6.1785e-03_rb,6.1865e-03_rb,6.2090e-03_rb/)\n      kbo(:,45, 7) = (/ &\n     &5.0436e-03_rb,5.0526e-03_rb,5.0656e-03_rb,5.0711e-03_rb,5.0867e-03_rb/)\n      kbo(:,46, 7) = (/ &\n     &4.1291e-03_rb,4.1408e-03_rb,4.1483e-03_rb,4.1539e-03_rb,4.1670e-03_rb/)\n      kbo(:,47, 7) = (/ &\n     &3.3808e-03_rb,3.3903e-03_rb,3.4014e-03_rb,3.4059e-03_rb,3.4179e-03_rb/)\n      kbo(:,48, 7) = (/ &\n     &2.7630e-03_rb,2.7730e-03_rb,2.7794e-03_rb,2.7876e-03_rb,2.7961e-03_rb/)\n      kbo(:,49, 7) = (/ &\n     &2.2529e-03_rb,2.2614e-03_rb,2.2681e-03_rb,2.2743e-03_rb,2.2825e-03_rb/)\n      kbo(:,50, 7) = (/ &\n     &1.8409e-03_rb,1.8507e-03_rb,1.8571e-03_rb,1.8629e-03_rb,1.8694e-03_rb/)\n      kbo(:,51, 7) = (/ &\n     &1.5059e-03_rb,1.5160e-03_rb,1.5224e-03_rb,1.5287e-03_rb,1.5343e-03_rb/)\n      kbo(:,52, 7) = (/ &\n     &1.2303e-03_rb,1.2392e-03_rb,1.2461e-03_rb,1.2522e-03_rb,1.2570e-03_rb/)\n      kbo(:,53, 7) = (/ &\n     &1.0020e-03_rb,1.0115e-03_rb,1.0178e-03_rb,1.0227e-03_rb,1.0281e-03_rb/)\n      kbo(:,54, 7) = (/ &\n     &8.2130e-04_rb,8.3060e-04_rb,8.3778e-04_rb,8.4304e-04_rb,8.4741e-04_rb/)\n      kbo(:,55, 7) = (/ &\n     &6.7498e-04_rb,6.8670e-04_rb,6.9292e-04_rb,6.9895e-04_rb,7.0313e-04_rb/)\n      kbo(:,56, 7) = (/ &\n     &5.5427e-04_rb,5.6524e-04_rb,5.7318e-04_rb,5.7892e-04_rb,5.8355e-04_rb/)\n      kbo(:,57, 7) = (/ &\n     &4.5437e-04_rb,4.6585e-04_rb,4.7333e-04_rb,4.7899e-04_rb,4.8346e-04_rb/)\n      kbo(:,58, 7) = (/ &\n     &3.7314e-04_rb,3.8385e-04_rb,3.9164e-04_rb,3.9732e-04_rb,4.0183e-04_rb/)\n      kbo(:,59, 7) = (/ &\n     &3.1164e-04_rb,3.2163e-04_rb,3.2929e-04_rb,3.3498e-04_rb,3.3967e-04_rb/)\n      kbo(:,13, 8) = (/ &\n     &7.1017e+00_rb,7.0462e+00_rb,6.9629e+00_rb,6.8569e+00_rb,6.7518e+00_rb/)\n      kbo(:,14, 8) = (/ &\n     &5.9884e+00_rb,5.9470e+00_rb,5.8924e+00_rb,5.8216e+00_rb,5.7342e+00_rb/)\n      kbo(:,15, 8) = (/ &\n     &4.9849e+00_rb,4.9563e+00_rb,4.9071e+00_rb,4.8502e+00_rb,4.7771e+00_rb/)\n      kbo(:,16, 8) = (/ &\n     &4.1453e+00_rb,4.1136e+00_rb,4.0790e+00_rb,4.0345e+00_rb,3.9753e+00_rb/)\n      kbo(:,17, 8) = (/ &\n     &3.5269e+00_rb,3.5022e+00_rb,3.4717e+00_rb,3.4323e+00_rb,3.3830e+00_rb/)\n      kbo(:,18, 8) = (/ &\n     &3.0258e+00_rb,3.0139e+00_rb,2.9887e+00_rb,2.9518e+00_rb,2.9096e+00_rb/)\n      kbo(:,19, 8) = (/ &\n     &2.6100e+00_rb,2.6057e+00_rb,2.5839e+00_rb,2.5531e+00_rb,2.5181e+00_rb/)\n      kbo(:,20, 8) = (/ &\n     &2.2532e+00_rb,2.2444e+00_rb,2.2242e+00_rb,2.2015e+00_rb,2.1737e+00_rb/)\n      kbo(:,21, 8) = (/ &\n     &1.9361e+00_rb,1.9257e+00_rb,1.9080e+00_rb,1.8885e+00_rb,1.8663e+00_rb/)\n      kbo(:,22, 8) = (/ &\n     &1.6493e+00_rb,1.6394e+00_rb,1.6256e+00_rb,1.6084e+00_rb,1.5911e+00_rb/)\n      kbo(:,23, 8) = (/ &\n     &1.3971e+00_rb,1.3901e+00_rb,1.3774e+00_rb,1.3628e+00_rb,1.3482e+00_rb/)\n      kbo(:,24, 8) = (/ &\n     &1.1828e+00_rb,1.1757e+00_rb,1.1653e+00_rb,1.1541e+00_rb,1.1420e+00_rb/)\n      kbo(:,25, 8) = (/ &\n     &9.9841e-01_rb,9.9173e-01_rb,9.8314e-01_rb,9.7419e-01_rb,9.6526e-01_rb/)\n      kbo(:,26, 8) = (/ &\n     &8.3815e-01_rb,8.3237e-01_rb,8.2631e-01_rb,8.2072e-01_rb,8.1439e-01_rb/)\n      kbo(:,27, 8) = (/ &\n     &6.9885e-01_rb,6.9534e-01_rb,6.9172e-01_rb,6.8787e-01_rb,6.8202e-01_rb/)\n      kbo(:,28, 8) = (/ &\n     &5.8056e-01_rb,5.7858e-01_rb,5.7609e-01_rb,5.7252e-01_rb,5.6730e-01_rb/)\n      kbo(:,29, 8) = (/ &\n     &4.7795e-01_rb,4.7646e-01_rb,4.7447e-01_rb,4.7127e-01_rb,4.6716e-01_rb/)\n      kbo(:,30, 8) = (/ &\n     &3.9180e-01_rb,3.9040e-01_rb,3.8874e-01_rb,3.8567e-01_rb,3.8256e-01_rb/)\n      kbo(:,31, 8) = (/ &\n     &3.1850e-01_rb,3.1735e-01_rb,3.1544e-01_rb,3.1324e-01_rb,3.1109e-01_rb/)\n      kbo(:,32, 8) = (/ &\n     &2.5851e-01_rb,2.5736e-01_rb,2.5590e-01_rb,2.5439e-01_rb,2.5264e-01_rb/)\n      kbo(:,33, 8) = (/ &\n     &2.0938e-01_rb,2.0841e-01_rb,2.0741e-01_rb,2.0615e-01_rb,2.0501e-01_rb/)\n      kbo(:,34, 8) = (/ &\n     &1.7037e-01_rb,1.6964e-01_rb,1.6891e-01_rb,1.6812e-01_rb,1.6728e-01_rb/)\n      kbo(:,35, 8) = (/ &\n     &1.3875e-01_rb,1.3827e-01_rb,1.3776e-01_rb,1.3724e-01_rb,1.3661e-01_rb/)\n      kbo(:,36, 8) = (/ &\n     &1.1324e-01_rb,1.1288e-01_rb,1.1260e-01_rb,1.1226e-01_rb,1.1182e-01_rb/)\n      kbo(:,37, 8) = (/ &\n     &9.2766e-02_rb,9.2595e-02_rb,9.2422e-02_rb,9.2186e-02_rb,9.1910e-02_rb/)\n      kbo(:,38, 8) = (/ &\n     &7.5939e-02_rb,7.5826e-02_rb,7.5761e-02_rb,7.5637e-02_rb,7.5518e-02_rb/)\n      kbo(:,39, 8) = (/ &\n     &6.2076e-02_rb,6.2014e-02_rb,6.2019e-02_rb,6.2000e-02_rb,6.1957e-02_rb/)\n      kbo(:,40, 8) = (/ &\n     &5.1067e-02_rb,5.1119e-02_rb,5.1147e-02_rb,5.1217e-02_rb,5.1232e-02_rb/)\n      kbo(:,41, 8) = (/ &\n     &4.2004e-02_rb,4.2110e-02_rb,4.2194e-02_rb,4.2288e-02_rb,4.2348e-02_rb/)\n      kbo(:,42, 8) = (/ &\n     &3.4565e-02_rb,3.4686e-02_rb,3.4772e-02_rb,3.4891e-02_rb,3.5001e-02_rb/)\n      kbo(:,43, 8) = (/ &\n     &2.8439e-02_rb,2.8558e-02_rb,2.8651e-02_rb,2.8781e-02_rb,2.8908e-02_rb/)\n      kbo(:,44, 8) = (/ &\n     &2.3381e-02_rb,2.3495e-02_rb,2.3607e-02_rb,2.3736e-02_rb,2.3863e-02_rb/)\n      kbo(:,45, 8) = (/ &\n     &1.9178e-02_rb,1.9302e-02_rb,1.9411e-02_rb,1.9527e-02_rb,1.9645e-02_rb/)\n      kbo(:,46, 8) = (/ &\n     &1.5718e-02_rb,1.5824e-02_rb,1.5935e-02_rb,1.6052e-02_rb,1.6161e-02_rb/)\n      kbo(:,47, 8) = (/ &\n     &1.2888e-02_rb,1.2994e-02_rb,1.3091e-02_rb,1.3201e-02_rb,1.3310e-02_rb/)\n      kbo(:,48, 8) = (/ &\n     &1.0534e-02_rb,1.0644e-02_rb,1.0741e-02_rb,1.0828e-02_rb,1.0922e-02_rb/)\n      kbo(:,49, 8) = (/ &\n     &8.5773e-03_rb,8.6840e-03_rb,8.7716e-03_rb,8.8561e-03_rb,8.9344e-03_rb/)\n      kbo(:,50, 8) = (/ &\n     &7.0118e-03_rb,7.1121e-03_rb,7.1954e-03_rb,7.2655e-03_rb,7.3372e-03_rb/)\n      kbo(:,51, 8) = (/ &\n     &5.7344e-03_rb,5.8326e-03_rb,5.9098e-03_rb,5.9770e-03_rb,6.0423e-03_rb/)\n      kbo(:,52, 8) = (/ &\n     &4.6784e-03_rb,4.7703e-03_rb,4.8415e-03_rb,4.9016e-03_rb,4.9646e-03_rb/)\n      kbo(:,53, 8) = (/ &\n     &3.8084e-03_rb,3.8892e-03_rb,3.9565e-03_rb,4.0107e-03_rb,4.0624e-03_rb/)\n      kbo(:,54, 8) = (/ &\n     &3.1302e-03_rb,3.1988e-03_rb,3.2604e-03_rb,3.3140e-03_rb,3.3627e-03_rb/)\n      kbo(:,55, 8) = (/ &\n     &2.5815e-03_rb,2.6417e-03_rb,2.7045e-03_rb,2.7548e-03_rb,2.8045e-03_rb/)\n      kbo(:,56, 8) = (/ &\n     &2.1299e-03_rb,2.1858e-03_rb,2.2412e-03_rb,2.2906e-03_rb,2.3394e-03_rb/)\n      kbo(:,57, 8) = (/ &\n     &1.7549e-03_rb,1.8058e-03_rb,1.8577e-03_rb,1.9050e-03_rb,1.9496e-03_rb/)\n      kbo(:,58, 8) = (/ &\n     &1.4508e-03_rb,1.4946e-03_rb,1.5437e-03_rb,1.5867e-03_rb,1.6288e-03_rb/)\n      kbo(:,59, 8) = (/ &\n     &1.2226e-03_rb,1.2669e-03_rb,1.3143e-03_rb,1.3547e-03_rb,1.3969e-03_rb/)\n      kbo(:,13, 9) = (/ &\n     &4.2167e+01_rb,4.2169e+01_rb,4.2037e+01_rb,4.1794e+01_rb,4.1453e+01_rb/)\n      kbo(:,14, 9) = (/ &\n     &3.6302e+01_rb,3.6287e+01_rb,3.6134e+01_rb,3.5895e+01_rb,3.5553e+01_rb/)\n      kbo(:,15, 9) = (/ &\n     &3.1018e+01_rb,3.0974e+01_rb,3.0831e+01_rb,3.0595e+01_rb,3.0284e+01_rb/)\n      kbo(:,16, 9) = (/ &\n     &2.6381e+01_rb,2.6327e+01_rb,2.6171e+01_rb,2.5940e+01_rb,2.5630e+01_rb/)\n      kbo(:,17, 9) = (/ &\n     &2.2159e+01_rb,2.2069e+01_rb,2.1921e+01_rb,2.1709e+01_rb,2.1443e+01_rb/)\n      kbo(:,18, 9) = (/ &\n     &1.8546e+01_rb,1.8422e+01_rb,1.8249e+01_rb,1.8049e+01_rb,1.7832e+01_rb/)\n      kbo(:,19, 9) = (/ &\n     &1.5581e+01_rb,1.5418e+01_rb,1.5257e+01_rb,1.5071e+01_rb,1.4880e+01_rb/)\n      kbo(:,20, 9) = (/ &\n     &1.3153e+01_rb,1.2997e+01_rb,1.2837e+01_rb,1.2663e+01_rb,1.2482e+01_rb/)\n      kbo(:,21, 9) = (/ &\n     &1.1154e+01_rb,1.1003e+01_rb,1.0876e+01_rb,1.0723e+01_rb,1.0559e+01_rb/)\n      kbo(:,22, 9) = (/ &\n     &9.6248e+00_rb,9.4985e+00_rb,9.3603e+00_rb,9.2175e+00_rb,9.0746e+00_rb/)\n      kbo(:,23, 9) = (/ &\n     &8.3452e+00_rb,8.2318e+00_rb,8.1134e+00_rb,7.9935e+00_rb,7.8653e+00_rb/)\n      kbo(:,24, 9) = (/ &\n     &7.2560e+00_rb,7.1534e+00_rb,7.0580e+00_rb,6.9498e+00_rb,6.8440e+00_rb/)\n      kbo(:,25, 9) = (/ &\n     &6.3013e+00_rb,6.2279e+00_rb,6.1411e+00_rb,6.0460e+00_rb,5.9566e+00_rb/)\n      kbo(:,26, 9) = (/ &\n     &5.4473e+00_rb,5.3837e+00_rb,5.3066e+00_rb,5.2353e+00_rb,5.1609e+00_rb/)\n      kbo(:,27, 9) = (/ &\n     &4.6665e+00_rb,4.6055e+00_rb,4.5477e+00_rb,4.4876e+00_rb,4.4277e+00_rb/)\n      kbo(:,28, 9) = (/ &\n     &3.9616e+00_rb,3.9145e+00_rb,3.8668e+00_rb,3.8180e+00_rb,3.7694e+00_rb/)\n      kbo(:,29, 9) = (/ &\n     &3.3226e+00_rb,3.2862e+00_rb,3.2469e+00_rb,3.2091e+00_rb,3.1718e+00_rb/)\n      kbo(:,30, 9) = (/ &\n     &2.7659e+00_rb,2.7390e+00_rb,2.7094e+00_rb,2.6815e+00_rb,2.6543e+00_rb/)\n      kbo(:,31, 9) = (/ &\n     &2.2826e+00_rb,2.2617e+00_rb,2.2409e+00_rb,2.2203e+00_rb,2.1979e+00_rb/)\n      kbo(:,32, 9) = (/ &\n     &1.8802e+00_rb,1.8648e+00_rb,1.8493e+00_rb,1.8340e+00_rb,1.8168e+00_rb/)\n      kbo(:,33, 9) = (/ &\n     &1.5466e+00_rb,1.5353e+00_rb,1.5232e+00_rb,1.5114e+00_rb,1.4999e+00_rb/)\n      kbo(:,34, 9) = (/ &\n     &1.2752e+00_rb,1.2674e+00_rb,1.2588e+00_rb,1.2512e+00_rb,1.2426e+00_rb/)\n      kbo(:,35, 9) = (/ &\n     &1.0520e+00_rb,1.0466e+00_rb,1.0412e+00_rb,1.0356e+00_rb,1.0296e+00_rb/)\n      kbo(:,36, 9) = (/ &\n     &8.6897e-01_rb,8.6546e-01_rb,8.6220e-01_rb,8.5818e-01_rb,8.5421e-01_rb/)\n      kbo(:,37, 9) = (/ &\n     &7.1978e-01_rb,7.1767e-01_rb,7.1572e-01_rb,7.1373e-01_rb,7.1176e-01_rb/)\n      kbo(:,38, 9) = (/ &\n     &5.9482e-01_rb,5.9396e-01_rb,5.9353e-01_rb,5.9295e-01_rb,5.9232e-01_rb/)\n      kbo(:,39, 9) = (/ &\n     &4.9071e-01_rb,4.9116e-01_rb,4.9162e-01_rb,4.9173e-01_rb,4.9201e-01_rb/)\n      kbo(:,40, 9) = (/ &\n     &4.0707e-01_rb,4.0846e-01_rb,4.0948e-01_rb,4.1018e-01_rb,4.1089e-01_rb/)\n      kbo(:,41, 9) = (/ &\n     &3.3813e-01_rb,3.3959e-01_rb,3.4089e-01_rb,3.4218e-01_rb,3.4329e-01_rb/)\n      kbo(:,42, 9) = (/ &\n     &2.8061e-01_rb,2.8231e-01_rb,2.8363e-01_rb,2.8501e-01_rb,2.8630e-01_rb/)\n      kbo(:,43, 9) = (/ &\n     &2.3284e-01_rb,2.3448e-01_rb,2.3606e-01_rb,2.3737e-01_rb,2.3893e-01_rb/)\n      kbo(:,44, 9) = (/ &\n     &1.9306e-01_rb,1.9456e-01_rb,1.9627e-01_rb,1.9759e-01_rb,1.9913e-01_rb/)\n      kbo(:,45, 9) = (/ &\n     &1.5984e-01_rb,1.6139e-01_rb,1.6282e-01_rb,1.6435e-01_rb,1.6569e-01_rb/)\n      kbo(:,46, 9) = (/ &\n     &1.3218e-01_rb,1.3367e-01_rb,1.3504e-01_rb,1.3656e-01_rb,1.3780e-01_rb/)\n      kbo(:,47, 9) = (/ &\n     &1.0925e-01_rb,1.1079e-01_rb,1.1209e-01_rb,1.1337e-01_rb,1.1463e-01_rb/)\n      kbo(:,48, 9) = (/ &\n     &9.0249e-02_rb,9.1522e-02_rb,9.2774e-02_rb,9.3960e-02_rb,9.5177e-02_rb/)\n      kbo(:,49, 9) = (/ &\n     &7.4377e-02_rb,7.5400e-02_rb,7.6569e-02_rb,7.7633e-02_rb,7.8742e-02_rb/)\n      kbo(:,50, 9) = (/ &\n     &6.1418e-02_rb,6.2415e-02_rb,6.3422e-02_rb,6.4413e-02_rb,6.5389e-02_rb/)\n      kbo(:,51, 9) = (/ &\n     &5.0729e-02_rb,5.1644e-02_rb,5.2564e-02_rb,5.3444e-02_rb,5.4353e-02_rb/)\n      kbo(:,52, 9) = (/ &\n     &4.1908e-02_rb,4.2660e-02_rb,4.3502e-02_rb,4.4323e-02_rb,4.5095e-02_rb/)\n      kbo(:,53, 9) = (/ &\n     &3.4462e-02_rb,3.5223e-02_rb,3.5939e-02_rb,3.6640e-02_rb,3.7360e-02_rb/)\n      kbo(:,54, 9) = (/ &\n     &2.8588e-02_rb,2.9269e-02_rb,2.9929e-02_rb,3.0560e-02_rb,3.1160e-02_rb/)\n      kbo(:,55, 9) = (/ &\n     &2.3807e-02_rb,2.4406e-02_rb,2.4997e-02_rb,2.5573e-02_rb,2.6196e-02_rb/)\n      kbo(:,56, 9) = (/ &\n     &1.9841e-02_rb,2.0395e-02_rb,2.0945e-02_rb,2.1491e-02_rb,2.2006e-02_rb/)\n      kbo(:,57, 9) = (/ &\n     &1.6519e-02_rb,1.7032e-02_rb,1.7546e-02_rb,1.8054e-02_rb,1.8550e-02_rb/)\n      kbo(:,58, 9) = (/ &\n     &1.3793e-02_rb,1.4292e-02_rb,1.4753e-02_rb,1.5213e-02_rb,1.5695e-02_rb/)\n      kbo(:,59, 9) = (/ &\n     &1.1809e-02_rb,1.2269e-02_rb,1.2713e-02_rb,1.3163e-02_rb,1.3635e-02_rb/)\n      kbo(:,13,10) = (/ &\n     &1.7142e+02_rb,1.7281e+02_rb,1.7236e+02_rb,1.7114e+02_rb,1.6934e+02_rb/)\n      kbo(:,14,10) = (/ &\n     &1.5574e+02_rb,1.5556e+02_rb,1.5469e+02_rb,1.5334e+02_rb,1.5193e+02_rb/)\n      kbo(:,15,10) = (/ &\n     &1.3728e+02_rb,1.3704e+02_rb,1.3637e+02_rb,1.3560e+02_rb,1.3459e+02_rb/)\n      kbo(:,16,10) = (/ &\n     &1.1953e+02_rb,1.1932e+02_rb,1.1895e+02_rb,1.1818e+02_rb,1.1715e+02_rb/)\n      kbo(:,17,10) = (/ &\n     &1.0359e+02_rb,1.0375e+02_rb,1.0320e+02_rb,1.0240e+02_rb,1.0131e+02_rb/)\n      kbo(:,18,10) = (/ &\n     &8.8878e+01_rb,8.9020e+01_rb,8.8706e+01_rb,8.7973e+01_rb,8.6746e+01_rb/)\n      kbo(:,19,10) = (/ &\n     &7.4020e+01_rb,7.4305e+01_rb,7.4019e+01_rb,7.3466e+01_rb,7.2562e+01_rb/)\n      kbo(:,20,10) = (/ &\n     &6.0721e+01_rb,6.1015e+01_rb,6.0921e+01_rb,6.0532e+01_rb,5.9983e+01_rb/)\n      kbo(:,21,10) = (/ &\n     &5.0465e+01_rb,5.0665e+01_rb,5.0241e+01_rb,4.9849e+01_rb,4.9385e+01_rb/)\n      kbo(:,22,10) = (/ &\n     &4.0819e+01_rb,4.0731e+01_rb,4.0529e+01_rb,4.0271e+01_rb,3.9749e+01_rb/)\n      kbo(:,23,10) = (/ &\n     &3.4205e+01_rb,3.4202e+01_rb,3.4020e+01_rb,3.3582e+01_rb,3.3186e+01_rb/)\n      kbo(:,24,10) = (/ &\n     &2.9307e+01_rb,2.9168e+01_rb,2.8849e+01_rb,2.8552e+01_rb,2.8160e+01_rb/)\n      kbo(:,25,10) = (/ &\n     &2.5427e+01_rb,2.5125e+01_rb,2.4814e+01_rb,2.4511e+01_rb,2.4195e+01_rb/)\n      kbo(:,26,10) = (/ &\n     &2.2227e+01_rb,2.1953e+01_rb,2.1723e+01_rb,2.1344e+01_rb,2.1061e+01_rb/)\n      kbo(:,27,10) = (/ &\n     &1.9562e+01_rb,1.9387e+01_rb,1.9087e+01_rb,1.8779e+01_rb,1.8567e+01_rb/)\n      kbo(:,28,10) = (/ &\n     &1.7147e+01_rb,1.6935e+01_rb,1.6668e+01_rb,1.6479e+01_rb,1.6263e+01_rb/)\n      kbo(:,29,10) = (/ &\n     &1.4781e+01_rb,1.4573e+01_rb,1.4404e+01_rb,1.4242e+01_rb,1.4093e+01_rb/)\n      kbo(:,30,10) = (/ &\n     &1.2615e+01_rb,1.2471e+01_rb,1.2325e+01_rb,1.2193e+01_rb,1.2047e+01_rb/)\n      kbo(:,31,10) = (/ &\n     &1.0637e+01_rb,1.0540e+01_rb,1.0405e+01_rb,1.0303e+01_rb,1.0219e+01_rb/)\n      kbo(:,32,10) = (/ &\n     &8.9113e+00_rb,8.8364e+00_rb,8.7502e+00_rb,8.6801e+00_rb,8.6141e+00_rb/)\n      kbo(:,33,10) = (/ &\n     &7.4220e+00_rb,7.3714e+00_rb,7.3296e+00_rb,7.2916e+00_rb,7.2335e+00_rb/)\n      kbo(:,34,10) = (/ &\n     &6.2166e+00_rb,6.1844e+00_rb,6.1565e+00_rb,6.1097e+00_rb,6.0839e+00_rb/)\n      kbo(:,35,10) = (/ &\n     &5.1978e+00_rb,5.1804e+00_rb,5.1597e+00_rb,5.1357e+00_rb,5.1182e+00_rb/)\n      kbo(:,36,10) = (/ &\n     &4.3470e+00_rb,4.3385e+00_rb,4.3233e+00_rb,4.3177e+00_rb,4.3104e+00_rb/)\n      kbo(:,37,10) = (/ &\n     &3.6398e+00_rb,3.6424e+00_rb,3.6345e+00_rb,3.6386e+00_rb,3.6334e+00_rb/)\n      kbo(:,38,10) = (/ &\n     &3.0434e+00_rb,3.0512e+00_rb,3.0559e+00_rb,3.0639e+00_rb,3.0639e+00_rb/)\n      kbo(:,39,10) = (/ &\n     &2.5458e+00_rb,2.5538e+00_rb,2.5569e+00_rb,2.5728e+00_rb,2.5769e+00_rb/)\n      kbo(:,40,10) = (/ &\n     &2.1317e+00_rb,2.1438e+00_rb,2.1539e+00_rb,2.1706e+00_rb,2.1835e+00_rb/)\n      kbo(:,41,10) = (/ &\n     &1.7848e+00_rb,1.8052e+00_rb,1.8158e+00_rb,1.8336e+00_rb,1.8470e+00_rb/)\n      kbo(:,42,10) = (/ &\n     &1.4932e+00_rb,1.5091e+00_rb,1.5289e+00_rb,1.5466e+00_rb,1.5621e+00_rb/)\n      kbo(:,43,10) = (/ &\n     &1.2466e+00_rb,1.2672e+00_rb,1.2843e+00_rb,1.3063e+00_rb,1.3216e+00_rb/)\n      kbo(:,44,10) = (/ &\n     &1.0395e+00_rb,1.0592e+00_rb,1.0758e+00_rb,1.0990e+00_rb,1.1149e+00_rb/)\n      kbo(:,45,10) = (/ &\n     &8.6570e-01_rb,8.8331e-01_rb,9.0051e-01_rb,9.1956e-01_rb,9.3855e-01_rb/)\n      kbo(:,46,10) = (/ &\n     &7.2006e-01_rb,7.3467e-01_rb,7.5104e-01_rb,7.6845e-01_rb,7.8787e-01_rb/)\n      kbo(:,47,10) = (/ &\n     &5.9818e-01_rb,6.0970e-01_rb,6.2444e-01_rb,6.4248e-01_rb,6.5898e-01_rb/)\n      kbo(:,48,10) = (/ &\n     &4.9441e-01_rb,5.0661e-01_rb,5.1925e-01_rb,5.3379e-01_rb,5.5029e-01_rb/)\n      kbo(:,49,10) = (/ &\n     &4.0883e-01_rb,4.1946e-01_rb,4.3019e-01_rb,4.4310e-01_rb,4.5870e-01_rb/)\n      kbo(:,50,10) = (/ &\n     &3.3724e-01_rb,3.4698e-01_rb,3.5791e-01_rb,3.6811e-01_rb,3.8262e-01_rb/)\n      kbo(:,51,10) = (/ &\n     &2.7937e-01_rb,2.8820e-01_rb,2.9748e-01_rb,3.0671e-01_rb,3.1956e-01_rb/)\n      kbo(:,52,10) = (/ &\n     &2.3100e-01_rb,2.3806e-01_rb,2.4610e-01_rb,2.5504e-01_rb,2.6621e-01_rb/)\n      kbo(:,53,10) = (/ &\n     &1.9108e-01_rb,1.9654e-01_rb,2.0325e-01_rb,2.1194e-01_rb,2.2154e-01_rb/)\n      kbo(:,54,10) = (/ &\n     &1.5899e-01_rb,1.6347e-01_rb,1.6947e-01_rb,1.7655e-01_rb,1.8610e-01_rb/)\n      kbo(:,55,10) = (/ &\n     &1.3326e-01_rb,1.3696e-01_rb,1.4221e-01_rb,1.4834e-01_rb,1.5647e-01_rb/)\n      kbo(:,56,10) = (/ &\n     &1.1049e-01_rb,1.1469e-01_rb,1.1935e-01_rb,1.2428e-01_rb,1.3176e-01_rb/)\n      kbo(:,57,10) = (/ &\n     &9.2761e-02_rb,9.6003e-02_rb,9.9705e-02_rb,1.0515e-01_rb,1.1098e-01_rb/)\n      kbo(:,58,10) = (/ &\n     &7.7951e-02_rb,8.0603e-02_rb,8.4255e-02_rb,8.8708e-02_rb,9.3824e-02_rb/)\n      kbo(:,59,10) = (/ &\n     &6.6831e-02_rb,6.9853e-02_rb,7.3196e-02_rb,7.7714e-02_rb,8.2447e-02_rb/)\n      kbo(:,13,11) = (/ &\n     &2.9044e+02_rb,2.9107e+02_rb,2.9274e+02_rb,2.9324e+02_rb,2.9124e+02_rb/)\n      kbo(:,14,11) = (/ &\n     &2.7118e+02_rb,2.7257e+02_rb,2.7251e+02_rb,2.7007e+02_rb,2.6710e+02_rb/)\n      kbo(:,15,11) = (/ &\n     &2.5062e+02_rb,2.5131e+02_rb,2.4974e+02_rb,2.4698e+02_rb,2.4378e+02_rb/)\n      kbo(:,16,11) = (/ &\n     &2.2673e+02_rb,2.2541e+02_rb,2.2341e+02_rb,2.2106e+02_rb,2.1873e+02_rb/)\n      kbo(:,17,11) = (/ &\n     &1.9976e+02_rb,1.9861e+02_rb,1.9716e+02_rb,1.9539e+02_rb,1.9362e+02_rb/)\n      kbo(:,18,11) = (/ &\n     &1.7313e+02_rb,1.7242e+02_rb,1.7179e+02_rb,1.7065e+02_rb,1.6917e+02_rb/)\n      kbo(:,19,11) = (/ &\n     &1.5014e+02_rb,1.4982e+02_rb,1.4894e+02_rb,1.4750e+02_rb,1.4584e+02_rb/)\n      kbo(:,20,11) = (/ &\n     &1.2916e+02_rb,1.2859e+02_rb,1.2771e+02_rb,1.2637e+02_rb,1.2459e+02_rb/)\n      kbo(:,21,11) = (/ &\n     &1.0806e+02_rb,1.0775e+02_rb,1.0718e+02_rb,1.0610e+02_rb,1.0475e+02_rb/)\n      kbo(:,22,11) = (/ &\n     &8.9165e+01_rb,8.9073e+01_rb,8.8652e+01_rb,8.7815e+01_rb,8.6979e+01_rb/)\n      kbo(:,23,11) = (/ &\n     &7.2556e+01_rb,7.2172e+01_rb,7.1575e+01_rb,7.1058e+01_rb,7.0305e+01_rb/)\n      kbo(:,24,11) = (/ &\n     &5.8830e+01_rb,5.8306e+01_rb,5.7758e+01_rb,5.7080e+01_rb,5.6291e+01_rb/)\n      kbo(:,25,11) = (/ &\n     &4.9821e+01_rb,4.9499e+01_rb,4.8965e+01_rb,4.8414e+01_rb,4.7810e+01_rb/)\n      kbo(:,26,11) = (/ &\n     &4.2622e+01_rb,4.2267e+01_rb,4.1876e+01_rb,4.1470e+01_rb,4.0806e+01_rb/)\n      kbo(:,27,11) = (/ &\n     &3.6706e+01_rb,3.6324e+01_rb,3.5968e+01_rb,3.5540e+01_rb,3.5058e+01_rb/)\n      kbo(:,28,11) = (/ &\n     &3.1978e+01_rb,3.1566e+01_rb,3.1237e+01_rb,3.0772e+01_rb,3.0454e+01_rb/)\n      kbo(:,29,11) = (/ &\n     &2.7828e+01_rb,2.7575e+01_rb,2.7171e+01_rb,2.6860e+01_rb,2.6508e+01_rb/)\n      kbo(:,30,11) = (/ &\n     &2.4147e+01_rb,2.3835e+01_rb,2.3571e+01_rb,2.3332e+01_rb,2.3114e+01_rb/)\n      kbo(:,31,11) = (/ &\n     &2.0703e+01_rb,2.0408e+01_rb,2.0254e+01_rb,2.0067e+01_rb,1.9883e+01_rb/)\n      kbo(:,32,11) = (/ &\n     &1.7639e+01_rb,1.7476e+01_rb,1.7324e+01_rb,1.7159e+01_rb,1.7076e+01_rb/)\n      kbo(:,33,11) = (/ &\n     &1.4975e+01_rb,1.4865e+01_rb,1.4744e+01_rb,1.4668e+01_rb,1.4624e+01_rb/)\n      kbo(:,34,11) = (/ &\n     &1.2711e+01_rb,1.2631e+01_rb,1.2589e+01_rb,1.2550e+01_rb,1.2508e+01_rb/)\n      kbo(:,35,11) = (/ &\n     &1.0751e+01_rb,1.0723e+01_rb,1.0704e+01_rb,1.0702e+01_rb,1.0681e+01_rb/)\n      kbo(:,36,11) = (/ &\n     &9.0814e+00_rb,9.0752e+00_rb,9.0908e+00_rb,9.1081e+00_rb,9.1217e+00_rb/)\n      kbo(:,37,11) = (/ &\n     &7.6820e+00_rb,7.7040e+00_rb,7.7379e+00_rb,7.7515e+00_rb,7.7864e+00_rb/)\n      kbo(:,38,11) = (/ &\n     &6.4923e+00_rb,6.5176e+00_rb,6.5490e+00_rb,6.5779e+00_rb,6.6281e+00_rb/)\n      kbo(:,39,11) = (/ &\n     &5.4567e+00_rb,5.4975e+00_rb,5.5468e+00_rb,5.5843e+00_rb,5.6396e+00_rb/)\n      kbo(:,40,11) = (/ &\n     &4.6201e+00_rb,4.6597e+00_rb,4.7074e+00_rb,4.7531e+00_rb,4.8054e+00_rb/)\n      kbo(:,41,11) = (/ &\n     &3.8974e+00_rb,3.9399e+00_rb,3.9967e+00_rb,4.0418e+00_rb,4.1011e+00_rb/)\n      kbo(:,42,11) = (/ &\n     &3.2907e+00_rb,3.3361e+00_rb,3.3839e+00_rb,3.4382e+00_rb,3.4997e+00_rb/)\n      kbo(:,43,11) = (/ &\n     &2.7732e+00_rb,2.8146e+00_rb,2.8677e+00_rb,2.9201e+00_rb,2.9866e+00_rb/)\n      kbo(:,44,11) = (/ &\n     &2.3284e+00_rb,2.3728e+00_rb,2.4251e+00_rb,2.4785e+00_rb,2.5440e+00_rb/)\n      kbo(:,45,11) = (/ &\n     &1.9528e+00_rb,1.9951e+00_rb,2.0498e+00_rb,2.1003e+00_rb,2.1644e+00_rb/)\n      kbo(:,46,11) = (/ &\n     &1.6318e+00_rb,1.6755e+00_rb,1.7227e+00_rb,1.7737e+00_rb,1.8354e+00_rb/)\n      kbo(:,47,11) = (/ &\n     &1.3599e+00_rb,1.4032e+00_rb,1.4486e+00_rb,1.4978e+00_rb,1.5556e+00_rb/)\n      kbo(:,48,11) = (/ &\n     &1.1311e+00_rb,1.1685e+00_rb,1.2136e+00_rb,1.2615e+00_rb,1.3144e+00_rb/)\n      kbo(:,49,11) = (/ &\n     &9.3555e-01_rb,9.7341e-01_rb,1.0126e+00_rb,1.0587e+00_rb,1.1063e+00_rb/)\n      kbo(:,50,11) = (/ &\n     &7.7693e-01_rb,8.0966e-01_rb,8.4684e-01_rb,8.9020e-01_rb,9.3317e-01_rb/)\n      kbo(:,51,11) = (/ &\n     &6.4536e-01_rb,6.7488e-01_rb,7.0604e-01_rb,7.4875e-01_rb,7.8723e-01_rb/)\n      kbo(:,52,11) = (/ &\n     &5.3457e-01_rb,5.5971e-01_rb,5.9092e-01_rb,6.2609e-01_rb,6.6312e-01_rb/)\n      kbo(:,53,11) = (/ &\n     &4.4222e-01_rb,4.6435e-01_rb,4.9056e-01_rb,5.2208e-01_rb,5.5614e-01_rb/)\n      kbo(:,54,11) = (/ &\n     &3.6743e-01_rb,3.8638e-01_rb,4.1127e-01_rb,4.3844e-01_rb,4.6892e-01_rb/)\n      kbo(:,55,11) = (/ &\n     &3.0658e-01_rb,3.2360e-01_rb,3.4391e-01_rb,3.6924e-01_rb,3.9670e-01_rb/)\n      kbo(:,56,11) = (/ &\n     &2.5551e-01_rb,2.6954e-01_rb,2.8819e-01_rb,3.1080e-01_rb,3.3508e-01_rb/)\n      kbo(:,57,11) = (/ &\n     &2.1322e-01_rb,2.2632e-01_rb,2.4139e-01_rb,2.5957e-01_rb,2.8310e-01_rb/)\n      kbo(:,58,11) = (/ &\n     &1.7898e-01_rb,1.8948e-01_rb,2.0228e-01_rb,2.1870e-01_rb,2.4000e-01_rb/)\n      kbo(:,59,11) = (/ &\n     &1.5351e-01_rb,1.6320e-01_rb,1.7439e-01_rb,1.8953e-01_rb,2.0982e-01_rb/)\n      kbo(:,13,12) = (/ &\n     &5.5035e+02_rb,5.5083e+02_rb,5.4893e+02_rb,5.4549e+02_rb,5.4357e+02_rb/)\n      kbo(:,14,12) = (/ &\n     &5.1666e+02_rb,5.1747e+02_rb,5.1731e+02_rb,5.1865e+02_rb,5.1926e+02_rb/)\n      kbo(:,15,12) = (/ &\n     &4.8259e+02_rb,4.8322e+02_rb,4.8500e+02_rb,4.8625e+02_rb,4.8440e+02_rb/)\n      kbo(:,16,12) = (/ &\n     &4.4814e+02_rb,4.5080e+02_rb,4.5253e+02_rb,4.5080e+02_rb,4.4664e+02_rb/)\n      kbo(:,17,12) = (/ &\n     &4.1611e+02_rb,4.1780e+02_rb,4.1594e+02_rb,4.1174e+02_rb,4.0672e+02_rb/)\n      kbo(:,18,12) = (/ &\n     &3.8097e+02_rb,3.8017e+02_rb,3.7694e+02_rb,3.7269e+02_rb,3.6847e+02_rb/)\n      kbo(:,19,12) = (/ &\n     &3.3900e+02_rb,3.3735e+02_rb,3.3499e+02_rb,3.3205e+02_rb,3.2864e+02_rb/)\n      kbo(:,20,12) = (/ &\n     &2.9644e+02_rb,2.9567e+02_rb,2.9387e+02_rb,2.9171e+02_rb,2.8914e+02_rb/)\n      kbo(:,21,12) = (/ &\n     &2.5711e+02_rb,2.5659e+02_rb,2.5545e+02_rb,2.5349e+02_rb,2.5090e+02_rb/)\n      kbo(:,22,12) = (/ &\n     &2.2227e+02_rb,2.2144e+02_rb,2.1973e+02_rb,2.1742e+02_rb,2.1472e+02_rb/)\n      kbo(:,23,12) = (/ &\n     &1.8874e+02_rb,1.8786e+02_rb,1.8655e+02_rb,1.8434e+02_rb,1.8190e+02_rb/)\n      kbo(:,24,12) = (/ &\n     &1.5708e+02_rb,1.5682e+02_rb,1.5564e+02_rb,1.5414e+02_rb,1.5250e+02_rb/)\n      kbo(:,25,12) = (/ &\n     &1.2691e+02_rb,1.2649e+02_rb,1.2582e+02_rb,1.2476e+02_rb,1.2335e+02_rb/)\n      kbo(:,26,12) = (/ &\n     &1.0261e+02_rb,1.0208e+02_rb,1.0124e+02_rb,1.0027e+02_rb,9.9263e+01_rb/)\n      kbo(:,27,12) = (/ &\n     &8.5769e+01_rb,8.4989e+01_rb,8.4207e+01_rb,8.3351e+01_rb,8.2249e+01_rb/)\n      kbo(:,28,12) = (/ &\n     &7.3314e+01_rb,7.2801e+01_rb,7.2005e+01_rb,7.1293e+01_rb,7.0277e+01_rb/)\n      kbo(:,29,12) = (/ &\n     &6.2526e+01_rb,6.2052e+01_rb,6.1497e+01_rb,6.0774e+01_rb,6.0060e+01_rb/)\n      kbo(:,30,12) = (/ &\n     &5.3636e+01_rb,5.3199e+01_rb,5.2692e+01_rb,5.1970e+01_rb,5.1392e+01_rb/)\n      kbo(:,31,12) = (/ &\n     &4.6032e+01_rb,4.5690e+01_rb,4.5122e+01_rb,4.4615e+01_rb,4.4345e+01_rb/)\n      kbo(:,32,12) = (/ &\n     &3.9736e+01_rb,3.9262e+01_rb,3.8850e+01_rb,3.8552e+01_rb,3.8247e+01_rb/)\n      kbo(:,33,12) = (/ &\n     &3.4154e+01_rb,3.3807e+01_rb,3.3534e+01_rb,3.3264e+01_rb,3.3008e+01_rb/)\n      kbo(:,34,12) = (/ &\n     &2.9451e+01_rb,2.9219e+01_rb,2.9024e+01_rb,2.8833e+01_rb,2.8685e+01_rb/)\n      kbo(:,35,12) = (/ &\n     &2.5346e+01_rb,2.5246e+01_rb,2.5119e+01_rb,2.4977e+01_rb,2.4976e+01_rb/)\n      kbo(:,36,12) = (/ &\n     &2.1817e+01_rb,2.1779e+01_rb,2.1703e+01_rb,2.1681e+01_rb,2.1750e+01_rb/)\n      kbo(:,37,12) = (/ &\n     &1.8813e+01_rb,1.8767e+01_rb,1.8799e+01_rb,1.8847e+01_rb,1.8941e+01_rb/)\n      kbo(:,38,12) = (/ &\n     &1.6125e+01_rb,1.6141e+01_rb,1.6208e+01_rb,1.6337e+01_rb,1.6455e+01_rb/)\n      kbo(:,39,12) = (/ &\n     &1.3770e+01_rb,1.3861e+01_rb,1.3953e+01_rb,1.4099e+01_rb,1.4238e+01_rb/)\n      kbo(:,40,12) = (/ &\n     &1.1787e+01_rb,1.1887e+01_rb,1.2028e+01_rb,1.2178e+01_rb,1.2352e+01_rb/)\n      kbo(:,41,12) = (/ &\n     &1.0073e+01_rb,1.0213e+01_rb,1.0351e+01_rb,1.0547e+01_rb,1.0724e+01_rb/)\n      kbo(:,42,12) = (/ &\n     &8.5925e+00_rb,8.7331e+00_rb,8.9300e+00_rb,9.0948e+00_rb,9.2833e+00_rb/)\n      kbo(:,43,12) = (/ &\n     &7.3118e+00_rb,7.4895e+00_rb,7.6577e+00_rb,7.8465e+00_rb,8.0457e+00_rb/)\n      kbo(:,44,12) = (/ &\n     &6.2222e+00_rb,6.3886e+00_rb,6.5774e+00_rb,6.7646e+00_rb,6.9710e+00_rb/)\n      kbo(:,45,12) = (/ &\n     &5.2923e+00_rb,5.4528e+00_rb,5.6365e+00_rb,5.8147e+00_rb,6.0122e+00_rb/)\n      kbo(:,46,12) = (/ &\n     &4.4844e+00_rb,4.6394e+00_rb,4.8198e+00_rb,4.9986e+00_rb,5.1861e+00_rb/)\n      kbo(:,47,12) = (/ &\n     &3.7915e+00_rb,3.9458e+00_rb,4.1119e+00_rb,4.2905e+00_rb,4.4702e+00_rb/)\n      kbo(:,48,12) = (/ &\n     &3.2031e+00_rb,3.3449e+00_rb,3.4984e+00_rb,3.6554e+00_rb,3.8276e+00_rb/)\n      kbo(:,49,12) = (/ &\n     &2.6829e+00_rb,2.8156e+00_rb,2.9666e+00_rb,3.1113e+00_rb,3.2647e+00_rb/)\n      kbo(:,50,12) = (/ &\n     &2.2570e+00_rb,2.3778e+00_rb,2.5052e+00_rb,2.6542e+00_rb,2.7988e+00_rb/)\n      kbo(:,51,12) = (/ &\n     &1.8957e+00_rb,2.0048e+00_rb,2.1275e+00_rb,2.2538e+00_rb,2.3944e+00_rb/)\n      kbo(:,52,12) = (/ &\n     &1.5859e+00_rb,1.6936e+00_rb,1.7982e+00_rb,1.9164e+00_rb,2.0433e+00_rb/)\n      kbo(:,53,12) = (/ &\n     &1.3268e+00_rb,1.4138e+00_rb,1.5132e+00_rb,1.6183e+00_rb,1.7346e+00_rb/)\n      kbo(:,54,12) = (/ &\n     &1.1132e+00_rb,1.1981e+00_rb,1.2847e+00_rb,1.3880e+00_rb,1.4926e+00_rb/)\n      kbo(:,55,12) = (/ &\n     &9.3399e-01_rb,1.0137e+00_rb,1.0949e+00_rb,1.1891e+00_rb,1.2944e+00_rb/)\n      kbo(:,56,12) = (/ &\n     &7.8822e-01_rb,8.5806e-01_rb,9.3275e-01_rb,1.0165e+00_rb,1.1194e+00_rb/)\n      kbo(:,57,12) = (/ &\n     &6.5846e-01_rb,7.2237e-01_rb,7.9487e-01_rb,8.7625e-01_rb,9.6708e-01_rb/)\n      kbo(:,58,12) = (/ &\n     &5.5082e-01_rb,6.0932e-01_rb,6.7677e-01_rb,7.5228e-01_rb,8.3907e-01_rb/)\n      kbo(:,59,12) = (/ &\n     &4.7097e-01_rb,5.2693e-01_rb,5.8955e-01_rb,6.6574e-01_rb,7.5245e-01_rb/)\n      kbo(:,13,13) = (/ &\n     &1.1006e+03_rb,1.0930e+03_rb,1.0868e+03_rb,1.0845e+03_rb,1.0783e+03_rb/)\n      kbo(:,14,13) = (/ &\n     &1.0959e+03_rb,1.0919e+03_rb,1.0910e+03_rb,1.0859e+03_rb,1.0743e+03_rb/)\n      kbo(:,15,13) = (/ &\n     &1.0739e+03_rb,1.0736e+03_rb,1.0715e+03_rb,1.0637e+03_rb,1.0554e+03_rb/)\n      kbo(:,16,13) = (/ &\n     &1.0348e+03_rb,1.0368e+03_rb,1.0336e+03_rb,1.0297e+03_rb,1.0251e+03_rb/)\n      kbo(:,17,13) = (/ &\n     &9.8104e+02_rb,9.8318e+02_rb,9.8416e+02_rb,9.8388e+02_rb,9.8177e+02_rb/)\n      kbo(:,18,13) = (/ &\n     &9.1939e+02_rb,9.2259e+02_rb,9.2492e+02_rb,9.2597e+02_rb,9.2235e+02_rb/)\n      kbo(:,19,13) = (/ &\n     &8.5744e+02_rb,8.6138e+02_rb,8.6320e+02_rb,8.6092e+02_rb,8.5380e+02_rb/)\n      kbo(:,20,13) = (/ &\n     &7.9222e+02_rb,7.9480e+02_rb,7.9309e+02_rb,7.8688e+02_rb,7.7879e+02_rb/)\n      kbo(:,21,13) = (/ &\n     &7.2352e+02_rb,7.2196e+02_rb,7.1706e+02_rb,7.1061e+02_rb,7.0329e+02_rb/)\n      kbo(:,22,13) = (/ &\n     &6.4947e+02_rb,6.4590e+02_rb,6.4130e+02_rb,6.3579e+02_rb,6.2875e+02_rb/)\n      kbo(:,23,13) = (/ &\n     &5.7230e+02_rb,5.6958e+02_rb,5.6554e+02_rb,5.6079e+02_rb,5.5572e+02_rb/)\n      kbo(:,24,13) = (/ &\n     &4.9907e+02_rb,4.9687e+02_rb,4.9379e+02_rb,4.8982e+02_rb,4.8472e+02_rb/)\n      kbo(:,25,13) = (/ &\n     &4.3090e+02_rb,4.2914e+02_rb,4.2610e+02_rb,4.2208e+02_rb,4.1721e+02_rb/)\n      kbo(:,26,13) = (/ &\n     &3.6834e+02_rb,3.6617e+02_rb,3.6313e+02_rb,3.5932e+02_rb,3.5509e+02_rb/)\n      kbo(:,27,13) = (/ &\n     &3.0815e+02_rb,3.0692e+02_rb,3.0435e+02_rb,3.0103e+02_rb,2.9773e+02_rb/)\n      kbo(:,28,13) = (/ &\n     &2.5402e+02_rb,2.5274e+02_rb,2.5083e+02_rb,2.4862e+02_rb,2.4624e+02_rb/)\n      kbo(:,29,13) = (/ &\n     &2.0985e+02_rb,2.0878e+02_rb,2.0729e+02_rb,2.0573e+02_rb,2.0375e+02_rb/)\n      kbo(:,30,13) = (/ &\n     &1.7400e+02_rb,1.7284e+02_rb,1.7160e+02_rb,1.7041e+02_rb,1.6891e+02_rb/)\n      kbo(:,31,13) = (/ &\n     &1.4590e+02_rb,1.4515e+02_rb,1.4409e+02_rb,1.4281e+02_rb,1.4174e+02_rb/)\n      kbo(:,32,13) = (/ &\n     &1.2352e+02_rb,1.2281e+02_rb,1.2185e+02_rb,1.2095e+02_rb,1.2000e+02_rb/)\n      kbo(:,33,13) = (/ &\n     &1.0504e+02_rb,1.0445e+02_rb,1.0374e+02_rb,1.0318e+02_rb,1.0254e+02_rb/)\n      kbo(:,34,13) = (/ &\n     &8.9914e+01_rb,8.9264e+01_rb,8.8774e+01_rb,8.8232e+01_rb,8.7968e+01_rb/)\n      kbo(:,35,13) = (/ &\n     &7.7137e+01_rb,7.6673e+01_rb,7.6351e+01_rb,7.5989e+01_rb,7.5812e+01_rb/)\n      kbo(:,36,13) = (/ &\n     &6.6630e+01_rb,6.6370e+01_rb,6.6000e+01_rb,6.5870e+01_rb,6.5834e+01_rb/)\n      kbo(:,37,13) = (/ &\n     &5.7835e+01_rb,5.7711e+01_rb,5.7500e+01_rb,5.7478e+01_rb,5.7625e+01_rb/)\n      kbo(:,38,13) = (/ &\n     &5.0326e+01_rb,5.0239e+01_rb,5.0196e+01_rb,5.0287e+01_rb,5.0433e+01_rb/)\n      kbo(:,39,13) = (/ &\n     &4.3783e+01_rb,4.3749e+01_rb,4.3859e+01_rb,4.3984e+01_rb,4.4262e+01_rb/)\n      kbo(:,40,13) = (/ &\n     &3.8311e+01_rb,3.8366e+01_rb,3.8494e+01_rb,3.8770e+01_rb,3.9082e+01_rb/)\n      kbo(:,41,13) = (/ &\n     &3.3505e+01_rb,3.3696e+01_rb,3.3809e+01_rb,3.4139e+01_rb,3.4534e+01_rb/)\n      kbo(:,42,13) = (/ &\n     &2.9251e+01_rb,2.9507e+01_rb,2.9744e+01_rb,3.0106e+01_rb,3.0543e+01_rb/)\n      kbo(:,43,13) = (/ &\n     &2.5517e+01_rb,2.5852e+01_rb,2.6152e+01_rb,2.6566e+01_rb,2.7067e+01_rb/)\n      kbo(:,44,13) = (/ &\n     &2.2216e+01_rb,2.2648e+01_rb,2.3006e+01_rb,2.3424e+01_rb,2.3903e+01_rb/)\n      kbo(:,45,13) = (/ &\n     &1.9313e+01_rb,1.9753e+01_rb,2.0163e+01_rb,2.0601e+01_rb,2.1122e+01_rb/)\n      kbo(:,46,13) = (/ &\n     &1.6765e+01_rb,1.7207e+01_rb,1.7660e+01_rb,1.8173e+01_rb,1.8710e+01_rb/)\n      kbo(:,47,13) = (/ &\n     &1.4512e+01_rb,1.4984e+01_rb,1.5402e+01_rb,1.5957e+01_rb,1.6479e+01_rb/)\n      kbo(:,48,13) = (/ &\n     &1.2486e+01_rb,1.2967e+01_rb,1.3459e+01_rb,1.3983e+01_rb,1.4524e+01_rb/)\n      kbo(:,49,13) = (/ &\n     &1.0733e+01_rb,1.1206e+01_rb,1.1665e+01_rb,1.2207e+01_rb,1.2773e+01_rb/)\n      kbo(:,50,13) = (/ &\n     &9.2157e+00_rb,9.6749e+00_rb,1.0151e+01_rb,1.0704e+01_rb,1.1247e+01_rb/)\n      kbo(:,51,13) = (/ &\n     &7.9591e+00_rb,8.3907e+00_rb,8.8535e+00_rb,9.3811e+00_rb,9.9247e+00_rb/)\n      kbo(:,52,13) = (/ &\n     &6.8068e+00_rb,7.2371e+00_rb,7.6934e+00_rb,8.2063e+00_rb,8.7553e+00_rb/)\n      kbo(:,53,13) = (/ &\n     &5.7967e+00_rb,6.2085e+00_rb,6.6421e+00_rb,7.1263e+00_rb,7.6815e+00_rb/)\n      kbo(:,54,13) = (/ &\n     &4.9653e+00_rb,5.3639e+00_rb,5.8069e+00_rb,6.2889e+00_rb,6.8002e+00_rb/)\n      kbo(:,55,13) = (/ &\n     &4.2889e+00_rb,4.6915e+00_rb,5.1242e+00_rb,5.6024e+00_rb,6.0981e+00_rb/)\n      kbo(:,56,13) = (/ &\n     &3.6900e+00_rb,4.0833e+00_rb,4.5086e+00_rb,4.9809e+00_rb,5.4831e+00_rb/)\n      kbo(:,57,13) = (/ &\n     &3.1898e+00_rb,3.5703e+00_rb,3.9801e+00_rb,4.4470e+00_rb,4.9431e+00_rb/)\n      kbo(:,58,13) = (/ &\n     &2.7316e+00_rb,3.0989e+00_rb,3.5187e+00_rb,3.9710e+00_rb,4.4675e+00_rb/)\n      kbo(:,59,13) = (/ &\n     &2.4661e+00_rb,2.8142e+00_rb,3.2518e+00_rb,3.7206e+00_rb,4.2604e+00_rb/)\n      kbo(:,13,14) = (/ &\n     &2.3516e+03_rb,2.3425e+03_rb,2.3393e+03_rb,2.3344e+03_rb,2.3274e+03_rb/)\n      kbo(:,14,14) = (/ &\n     &2.4560e+03_rb,2.4460e+03_rb,2.4416e+03_rb,2.4361e+03_rb,2.4328e+03_rb/)\n      kbo(:,15,14) = (/ &\n     &2.5504e+03_rb,2.5434e+03_rb,2.5388e+03_rb,2.5327e+03_rb,2.5248e+03_rb/)\n      kbo(:,16,14) = (/ &\n     &2.6346e+03_rb,2.6312e+03_rb,2.6203e+03_rb,2.6088e+03_rb,2.5971e+03_rb/)\n      kbo(:,17,14) = (/ &\n     &2.7008e+03_rb,2.6935e+03_rb,2.6794e+03_rb,2.6636e+03_rb,2.6477e+03_rb/)\n      kbo(:,18,14) = (/ &\n     &2.7305e+03_rb,2.7239e+03_rb,2.7111e+03_rb,2.6981e+03_rb,2.6813e+03_rb/)\n      kbo(:,19,14) = (/ &\n     &2.7180e+03_rb,2.7110e+03_rb,2.7049e+03_rb,2.6968e+03_rb,2.6814e+03_rb/)\n      kbo(:,20,14) = (/ &\n     &2.6672e+03_rb,2.6665e+03_rb,2.6675e+03_rb,2.6606e+03_rb,2.6429e+03_rb/)\n      kbo(:,21,14) = (/ &\n     &2.5815e+03_rb,2.5893e+03_rb,2.5905e+03_rb,2.5819e+03_rb,2.5661e+03_rb/)\n      kbo(:,22,14) = (/ &\n     &2.4673e+03_rb,2.4773e+03_rb,2.4773e+03_rb,2.4699e+03_rb,2.4562e+03_rb/)\n      kbo(:,23,14) = (/ &\n     &2.3326e+03_rb,2.3404e+03_rb,2.3409e+03_rb,2.3341e+03_rb,2.3220e+03_rb/)\n      kbo(:,24,14) = (/ &\n     &2.1770e+03_rb,2.1831e+03_rb,2.1839e+03_rb,2.1779e+03_rb,2.1650e+03_rb/)\n      kbo(:,25,14) = (/ &\n     &2.0113e+03_rb,2.0166e+03_rb,2.0154e+03_rb,2.0063e+03_rb,1.9910e+03_rb/)\n      kbo(:,26,14) = (/ &\n     &1.8365e+03_rb,1.8415e+03_rb,1.8363e+03_rb,1.8253e+03_rb,1.8117e+03_rb/)\n      kbo(:,27,14) = (/ &\n     &1.6595e+03_rb,1.6581e+03_rb,1.6515e+03_rb,1.6428e+03_rb,1.6322e+03_rb/)\n      kbo(:,28,14) = (/ &\n     &1.4809e+03_rb,1.4771e+03_rb,1.4724e+03_rb,1.4658e+03_rb,1.4569e+03_rb/)\n      kbo(:,29,14) = (/ &\n     &1.3089e+03_rb,1.3068e+03_rb,1.3044e+03_rb,1.2991e+03_rb,1.2930e+03_rb/)\n      kbo(:,30,14) = (/ &\n     &1.1460e+03_rb,1.1478e+03_rb,1.1472e+03_rb,1.1450e+03_rb,1.1415e+03_rb/)\n      kbo(:,31,14) = (/ &\n     &9.9693e+02_rb,1.0002e+03_rb,1.0008e+03_rb,1.0017e+03_rb,1.0008e+03_rb/)\n      kbo(:,32,14) = (/ &\n     &8.6070e+02_rb,8.6544e+02_rb,8.6833e+02_rb,8.7044e+02_rb,8.7331e+02_rb/)\n      kbo(:,33,14) = (/ &\n     &7.4260e+02_rb,7.4642e+02_rb,7.5058e+02_rb,7.5528e+02_rb,7.5991e+02_rb/)\n      kbo(:,34,14) = (/ &\n     &6.3829e+02_rb,6.4348e+02_rb,6.4940e+02_rb,6.5551e+02_rb,6.6078e+02_rb/)\n      kbo(:,35,14) = (/ &\n     &5.4846e+02_rb,5.5540e+02_rb,5.6285e+02_rb,5.6932e+02_rb,5.7603e+02_rb/)\n      kbo(:,36,14) = (/ &\n     &4.7198e+02_rb,4.7993e+02_rb,4.8784e+02_rb,4.9478e+02_rb,5.0307e+02_rb/)\n      kbo(:,37,14) = (/ &\n     &4.0498e+02_rb,4.1318e+02_rb,4.2147e+02_rb,4.2948e+02_rb,4.3820e+02_rb/)\n      kbo(:,38,14) = (/ &\n     &3.4831e+02_rb,3.5680e+02_rb,3.6471e+02_rb,3.7305e+02_rb,3.8282e+02_rb/)\n      kbo(:,39,14) = (/ &\n     &3.0154e+02_rb,3.0929e+02_rb,3.1734e+02_rb,3.2632e+02_rb,3.3596e+02_rb/)\n      kbo(:,40,14) = (/ &\n     &2.6084e+02_rb,2.6836e+02_rb,2.7578e+02_rb,2.8455e+02_rb,2.9457e+02_rb/)\n      kbo(:,41,14) = (/ &\n     &2.2737e+02_rb,2.3379e+02_rb,2.4131e+02_rb,2.4917e+02_rb,2.5928e+02_rb/)\n      kbo(:,42,14) = (/ &\n     &1.9807e+02_rb,2.0493e+02_rb,2.1238e+02_rb,2.2005e+02_rb,2.2904e+02_rb/)\n      kbo(:,43,14) = (/ &\n     &1.7261e+02_rb,1.7936e+02_rb,1.8667e+02_rb,1.9473e+02_rb,2.0355e+02_rb/)\n      kbo(:,44,14) = (/ &\n     &1.5104e+02_rb,1.5759e+02_rb,1.6444e+02_rb,1.7229e+02_rb,1.8143e+02_rb/)\n      kbo(:,45,14) = (/ &\n     &1.3320e+02_rb,1.3908e+02_rb,1.4536e+02_rb,1.5288e+02_rb,1.6210e+02_rb/)\n      kbo(:,46,14) = (/ &\n     &1.1788e+02_rb,1.2339e+02_rb,1.2957e+02_rb,1.3630e+02_rb,1.4477e+02_rb/)\n      kbo(:,47,14) = (/ &\n     &1.0441e+02_rb,1.0994e+02_rb,1.1542e+02_rb,1.2186e+02_rb,1.2998e+02_rb/)\n      kbo(:,48,14) = (/ &\n     &9.2989e+01_rb,9.8393e+01_rb,1.0367e+02_rb,1.0970e+02_rb,1.1684e+02_rb/)\n      kbo(:,49,14) = (/ &\n     &8.3245e+01_rb,8.8109e+01_rb,9.3736e+01_rb,9.8882e+01_rb,1.0570e+02_rb/)\n      kbo(:,50,14) = (/ &\n     &7.4420e+01_rb,7.9603e+01_rb,8.4592e+01_rb,9.0187e+01_rb,9.6226e+01_rb/)\n      kbo(:,51,14) = (/ &\n     &6.6553e+01_rb,7.2000e+01_rb,7.7144e+01_rb,8.2193e+01_rb,8.8503e+01_rb/)\n      kbo(:,52,14) = (/ &\n     &5.9519e+01_rb,6.4793e+01_rb,7.0321e+01_rb,7.5806e+01_rb,8.1580e+01_rb/)\n      kbo(:,53,14) = (/ &\n     &5.3233e+01_rb,5.8402e+01_rb,6.4217e+01_rb,6.9900e+01_rb,7.5580e+01_rb/)\n      kbo(:,54,14) = (/ &\n     &4.7589e+01_rb,5.2923e+01_rb,5.8451e+01_rb,6.4196e+01_rb,7.0322e+01_rb/)\n      kbo(:,55,14) = (/ &\n     &4.2742e+01_rb,4.7820e+01_rb,5.3445e+01_rb,5.9447e+01_rb,6.5405e+01_rb/)\n      kbo(:,56,14) = (/ &\n     &3.8175e+01_rb,4.3483e+01_rb,4.9069e+01_rb,5.5046e+01_rb,6.1266e+01_rb/)\n      kbo(:,57,14) = (/ &\n     &3.4510e+01_rb,3.9326e+01_rb,4.4806e+01_rb,5.1166e+01_rb,5.7169e+01_rb/)\n      kbo(:,58,14) = (/ &\n     &3.1419e+01_rb,3.6120e+01_rb,4.1281e+01_rb,4.7436e+01_rb,5.4030e+01_rb/)\n      kbo(:,59,14) = (/ &\n     &3.0087e+01_rb,3.4624e+01_rb,3.9514e+01_rb,4.5129e+01_rb,5.1873e+01_rb/)\n      kbo(:,13,15) = (/ &\n     &5.1911e+03_rb,5.1717e+03_rb,5.1553e+03_rb,5.1395e+03_rb,5.1397e+03_rb/)\n      kbo(:,14,15) = (/ &\n     &5.8547e+03_rb,5.8285e+03_rb,5.7963e+03_rb,5.7766e+03_rb,5.7715e+03_rb/)\n      kbo(:,15,15) = (/ &\n     &6.5298e+03_rb,6.4858e+03_rb,6.4506e+03_rb,6.4312e+03_rb,6.4243e+03_rb/)\n      kbo(:,16,15) = (/ &\n     &7.2117e+03_rb,7.1510e+03_rb,7.1189e+03_rb,7.1000e+03_rb,7.0870e+03_rb/)\n      kbo(:,17,15) = (/ &\n     &7.8953e+03_rb,7.8291e+03_rb,7.7890e+03_rb,7.7670e+03_rb,7.7489e+03_rb/)\n      kbo(:,18,15) = (/ &\n     &8.5855e+03_rb,8.5208e+03_rb,8.4668e+03_rb,8.4206e+03_rb,8.3980e+03_rb/)\n      kbo(:,19,15) = (/ &\n     &9.2674e+03_rb,9.2049e+03_rb,9.1326e+03_rb,9.0736e+03_rb,9.0525e+03_rb/)\n      kbo(:,20,15) = (/ &\n     &9.9108e+03_rb,9.8356e+03_rb,9.7636e+03_rb,9.7141e+03_rb,9.6905e+03_rb/)\n      kbo(:,21,15) = (/ &\n     &1.0486e+04_rb,1.0415e+04_rb,1.0355e+04_rb,1.0317e+04_rb,1.0287e+04_rb/)\n      kbo(:,22,15) = (/ &\n     &1.0985e+04_rb,1.0920e+04_rb,1.0875e+04_rb,1.0845e+04_rb,1.0804e+04_rb/)\n      kbo(:,23,15) = (/ &\n     &1.1398e+04_rb,1.1342e+04_rb,1.1308e+04_rb,1.1276e+04_rb,1.1234e+04_rb/)\n      kbo(:,24,15) = (/ &\n     &1.1709e+04_rb,1.1672e+04_rb,1.1645e+04_rb,1.1614e+04_rb,1.1576e+04_rb/)\n      kbo(:,25,15) = (/ &\n     &1.1914e+04_rb,1.1896e+04_rb,1.1878e+04_rb,1.1862e+04_rb,1.1837e+04_rb/)\n      kbo(:,26,15) = (/ &\n     &1.2040e+04_rb,1.2031e+04_rb,1.2029e+04_rb,1.2020e+04_rb,1.1998e+04_rb/)\n      kbo(:,27,15) = (/ &\n     &1.2071e+04_rb,1.2081e+04_rb,1.2089e+04_rb,1.2085e+04_rb,1.2069e+04_rb/)\n      kbo(:,28,15) = (/ &\n     &1.2021e+04_rb,1.2058e+04_rb,1.2068e+04_rb,1.2068e+04_rb,1.2073e+04_rb/)\n      kbo(:,29,15) = (/ &\n     &1.1886e+04_rb,1.1940e+04_rb,1.1970e+04_rb,1.1995e+04_rb,1.2017e+04_rb/)\n      kbo(:,30,15) = (/ &\n     &1.1676e+04_rb,1.1749e+04_rb,1.1808e+04_rb,1.1861e+04_rb,1.1908e+04_rb/)\n      kbo(:,31,15) = (/ &\n     &1.1416e+04_rb,1.1515e+04_rb,1.1609e+04_rb,1.1694e+04_rb,1.1764e+04_rb/)\n      kbo(:,32,15) = (/ &\n     &1.1108e+04_rb,1.1250e+04_rb,1.1385e+04_rb,1.1503e+04_rb,1.1598e+04_rb/)\n      kbo(:,33,15) = (/ &\n     &1.0773e+04_rb,1.0963e+04_rb,1.1141e+04_rb,1.1294e+04_rb,1.1425e+04_rb/)\n      kbo(:,34,15) = (/ &\n     &1.0438e+04_rb,1.0673e+04_rb,1.0885e+04_rb,1.1077e+04_rb,1.1249e+04_rb/)\n      kbo(:,35,15) = (/ &\n     &1.0089e+04_rb,1.0368e+04_rb,1.0621e+04_rb,1.0852e+04_rb,1.1064e+04_rb/)\n      kbo(:,36,15) = (/ &\n     &9.7201e+03_rb,1.0041e+04_rb,1.0341e+04_rb,1.0614e+04_rb,1.0861e+04_rb/)\n      kbo(:,37,15) = (/ &\n     &9.3163e+03_rb,9.6805e+03_rb,1.0024e+04_rb,1.0342e+04_rb,1.0632e+04_rb/)\n      kbo(:,38,15) = (/ &\n     &8.9272e+03_rb,9.3307e+03_rb,9.7169e+03_rb,1.0074e+04_rb,1.0402e+04_rb/)\n      kbo(:,39,15) = (/ &\n     &8.5526e+03_rb,8.9993e+03_rb,9.4206e+03_rb,9.8154e+03_rb,1.0180e+04_rb/)\n      kbo(:,40,15) = (/ &\n     &8.1494e+03_rb,8.6355e+03_rb,9.0962e+03_rb,9.5285e+03_rb,9.9305e+03_rb/)\n      kbo(:,41,15) = (/ &\n     &7.7529e+03_rb,8.2788e+03_rb,8.7766e+03_rb,9.2446e+03_rb,9.6773e+03_rb/)\n      kbo(:,42,15) = (/ &\n     &7.3760e+03_rb,7.9339e+03_rb,8.4681e+03_rb,8.9681e+03_rb,9.4340e+03_rb/)\n      kbo(:,43,15) = (/ &\n     &6.9819e+03_rb,7.5721e+03_rb,8.1409e+03_rb,8.6746e+03_rb,9.1691e+03_rb/)\n      kbo(:,44,15) = (/ &\n     &6.5827e+03_rb,7.2081e+03_rb,7.8084e+03_rb,8.3740e+03_rb,8.8982e+03_rb/)\n      kbo(:,45,15) = (/ &\n     &6.1901e+03_rb,6.8485e+03_rb,7.4795e+03_rb,8.0786e+03_rb,8.6303e+03_rb/)\n      kbo(:,46,15) = (/ &\n     &5.8024e+03_rb,6.4801e+03_rb,7.1413e+03_rb,7.7702e+03_rb,8.3548e+03_rb/)\n      kbo(:,47,15) = (/ &\n     &5.3938e+03_rb,6.0870e+03_rb,6.7778e+03_rb,7.4341e+03_rb,8.0495e+03_rb/)\n      kbo(:,48,15) = (/ &\n     &5.0092e+03_rb,5.7052e+03_rb,6.4111e+03_rb,7.0962e+03_rb,7.7409e+03_rb/)\n      kbo(:,49,15) = (/ &\n     &4.6045e+03_rb,5.3446e+03_rb,6.0469e+03_rb,6.7562e+03_rb,7.4302e+03_rb/)\n      kbo(:,50,15) = (/ &\n     &4.2414e+03_rb,4.9940e+03_rb,5.7177e+03_rb,6.4318e+03_rb,7.1308e+03_rb/)\n      kbo(:,51,15) = (/ &\n     &3.9058e+03_rb,4.6435e+03_rb,5.4144e+03_rb,6.1320e+03_rb,6.8340e+03_rb/)\n      kbo(:,52,15) = (/ &\n     &3.5828e+03_rb,4.3242e+03_rb,5.0835e+03_rb,5.8308e+03_rb,6.5455e+03_rb/)\n      kbo(:,53,15) = (/ &\n     &3.2733e+03_rb,3.9950e+03_rb,4.7590e+03_rb,5.5300e+03_rb,6.2613e+03_rb/)\n      kbo(:,54,15) = (/ &\n     &2.9973e+03_rb,3.7033e+03_rb,4.4798e+03_rb,5.2468e+03_rb,6.0054e+03_rb/)\n      kbo(:,55,15) = (/ &\n     &2.7347e+03_rb,3.4529e+03_rb,4.2020e+03_rb,4.9932e+03_rb,5.7360e+03_rb/)\n      kbo(:,56,15) = (/ &\n     &2.4953e+03_rb,3.1956e+03_rb,3.9366e+03_rb,4.7176e+03_rb,5.4818e+03_rb/)\n      kbo(:,57,15) = (/ &\n     &2.2617e+03_rb,2.9413e+03_rb,3.6881e+03_rb,4.4499e+03_rb,5.2349e+03_rb/)\n      kbo(:,58,15) = (/ &\n     &2.0370e+03_rb,2.7148e+03_rb,3.4460e+03_rb,4.2224e+03_rb,4.9906e+03_rb/)\n      kbo(:,59,15) = (/ &\n     &1.9478e+03_rb,2.6130e+03_rb,3.3529e+03_rb,4.1205e+03_rb,4.8990e+03_rb/)\n      kbo(:,13,16) = (/ &\n     &1.0699e+04_rb,1.0668e+04_rb,1.0580e+04_rb,1.0493e+04_rb,1.0473e+04_rb/)\n      kbo(:,14,16) = (/ &\n     &1.2469e+04_rb,1.2443e+04_rb,1.2338e+04_rb,1.2279e+04_rb,1.2260e+04_rb/)\n      kbo(:,15,16) = (/ &\n     &1.4513e+04_rb,1.4466e+04_rb,1.4361e+04_rb,1.4360e+04_rb,1.4376e+04_rb/)\n      kbo(:,16,16) = (/ &\n     &1.6769e+04_rb,1.6706e+04_rb,1.6727e+04_rb,1.6775e+04_rb,1.6795e+04_rb/)\n      kbo(:,17,16) = (/ &\n     &1.9233e+04_rb,1.9285e+04_rb,1.9387e+04_rb,1.9445e+04_rb,1.9443e+04_rb/)\n      kbo(:,18,16) = (/ &\n     &2.2082e+04_rb,2.2141e+04_rb,2.2296e+04_rb,2.2362e+04_rb,2.2373e+04_rb/)\n      kbo(:,19,16) = (/ &\n     &2.5392e+04_rb,2.5419e+04_rb,2.5533e+04_rb,2.5623e+04_rb,2.5622e+04_rb/)\n      kbo(:,20,16) = (/ &\n     &2.9227e+04_rb,2.9228e+04_rb,2.9232e+04_rb,2.9272e+04_rb,2.9286e+04_rb/)\n      kbo(:,21,16) = (/ &\n     &3.3689e+04_rb,3.3556e+04_rb,3.3511e+04_rb,3.3436e+04_rb,3.3399e+04_rb/)\n      kbo(:,22,16) = (/ &\n     &3.8640e+04_rb,3.8494e+04_rb,3.8304e+04_rb,3.8118e+04_rb,3.8006e+04_rb/)\n      kbo(:,23,16) = (/ &\n     &4.4135e+04_rb,4.3894e+04_rb,4.3600e+04_rb,4.3191e+04_rb,4.3063e+04_rb/)\n      kbo(:,24,16) = (/ &\n     &5.0120e+04_rb,4.9723e+04_rb,4.9276e+04_rb,4.8847e+04_rb,4.8550e+04_rb/)\n      kbo(:,25,16) = (/ &\n     &5.6400e+04_rb,5.5824e+04_rb,5.5260e+04_rb,5.4753e+04_rb,5.4318e+04_rb/)\n      kbo(:,26,16) = (/ &\n     &6.2742e+04_rb,6.2101e+04_rb,6.1449e+04_rb,6.0838e+04_rb,6.0246e+04_rb/)\n      kbo(:,27,16) = (/ &\n     &6.9256e+04_rb,6.8498e+04_rb,6.7755e+04_rb,6.7035e+04_rb,6.6255e+04_rb/)\n      kbo(:,28,16) = (/ &\n     &7.5845e+04_rb,7.4890e+04_rb,7.4038e+04_rb,7.3125e+04_rb,7.2119e+04_rb/)\n      kbo(:,29,16) = (/ &\n     &8.2416e+04_rb,8.1292e+04_rb,8.0172e+04_rb,7.8988e+04_rb,7.7733e+04_rb/)\n      kbo(:,30,16) = (/ &\n     &8.8923e+04_rb,8.7524e+04_rb,8.6114e+04_rb,8.4633e+04_rb,8.3083e+04_rb/)\n      kbo(:,31,16) = (/ &\n     &9.5128e+04_rb,9.3474e+04_rb,9.1409e+04_rb,8.9609e+04_rb,8.8121e+04_rb/)\n      kbo(:,32,16) = (/ &\n     &1.0109e+05_rb,9.9056e+04_rb,9.6959e+04_rb,9.4838e+04_rb,9.2728e+04_rb/)\n      kbo(:,33,16) = (/ &\n     &1.0668e+05_rb,1.0426e+05_rb,1.0177e+05_rb,9.9309e+04_rb,9.6864e+04_rb/)\n      kbo(:,34,16) = (/ &\n     &1.1181e+05_rb,1.0901e+05_rb,1.0619e+05_rb,1.0339e+05_rb,1.0062e+05_rb/)\n      kbo(:,35,16) = (/ &\n     &1.1669e+05_rb,1.1352e+05_rb,1.1036e+05_rb,1.0724e+05_rb,1.0414e+05_rb/)\n      kbo(:,36,16) = (/ &\n     &1.2143e+05_rb,1.1741e+05_rb,1.1444e+05_rb,1.1099e+05_rb,1.0759e+05_rb/)\n      kbo(:,37,16) = (/ &\n     &1.2629e+05_rb,1.2248e+05_rb,1.1868e+05_rb,1.1492e+05_rb,1.1120e+05_rb/)\n      kbo(:,38,16) = (/ &\n     &1.3077e+05_rb,1.2669e+05_rb,1.2260e+05_rb,1.1857e+05_rb,1.1458e+05_rb/)\n      kbo(:,39,16) = (/ &\n     &1.3413e+05_rb,1.3013e+05_rb,1.2620e+05_rb,1.2191e+05_rb,1.1768e+05_rb/)\n      kbo(:,40,16) = (/ &\n     &1.3905e+05_rb,1.3448e+05_rb,1.2993e+05_rb,1.2540e+05_rb,1.2095e+05_rb/)\n      kbo(:,41,16) = (/ &\n     &1.4302e+05_rb,1.3822e+05_rb,1.3346e+05_rb,1.2873e+05_rb,1.2407e+05_rb/)\n      kbo(:,42,16) = (/ &\n     &1.4675e+05_rb,1.4173e+05_rb,1.3673e+05_rb,1.3182e+05_rb,1.2698e+05_rb/)\n      kbo(:,43,16) = (/ &\n     &1.5047e+05_rb,1.4528e+05_rb,1.4010e+05_rb,1.3500e+05_rb,1.2941e+05_rb/)\n      kbo(:,44,16) = (/ &\n     &1.5413e+05_rb,1.4878e+05_rb,1.4344e+05_rb,1.3816e+05_rb,1.3300e+05_rb/)\n      kbo(:,45,16) = (/ &\n     &1.5764e+05_rb,1.5214e+05_rb,1.4665e+05_rb,1.4055e+05_rb,1.3586e+05_rb/)\n      kbo(:,46,16) = (/ &\n     &1.6104e+05_rb,1.5546e+05_rb,1.4981e+05_rb,1.4422e+05_rb,1.3874e+05_rb/)\n      kbo(:,47,16) = (/ &\n     &1.6453e+05_rb,1.5891e+05_rb,1.5314e+05_rb,1.4742e+05_rb,1.4180e+05_rb/)\n      kbo(:,48,16) = (/ &\n     &1.6775e+05_rb,1.6219e+05_rb,1.5640e+05_rb,1.5054e+05_rb,1.4481e+05_rb/)\n      kbo(:,49,16) = (/ &\n     &1.7104e+05_rb,1.6528e+05_rb,1.5957e+05_rb,1.5363e+05_rb,1.4773e+05_rb/)\n      kbo(:,50,16) = (/ &\n     &1.7401e+05_rb,1.6818e+05_rb,1.6240e+05_rb,1.5648e+05_rb,1.5051e+05_rb/)\n      kbo(:,51,16) = (/ &\n     &1.7667e+05_rb,1.7104e+05_rb,1.6499e+05_rb,1.5912e+05_rb,1.5318e+05_rb/)\n      kbo(:,52,16) = (/ &\n     &1.7922e+05_rb,1.7356e+05_rb,1.6772e+05_rb,1.6169e+05_rb,1.5572e+05_rb/)\n      kbo(:,53,16) = (/ &\n     &1.8153e+05_rb,1.7622e+05_rb,1.7035e+05_rb,1.6422e+05_rb,1.5819e+05_rb/)\n      kbo(:,54,16) = (/ &\n     &1.8363e+05_rb,1.7848e+05_rb,1.7259e+05_rb,1.6657e+05_rb,1.6042e+05_rb/)\n      kbo(:,55,16) = (/ &\n     &1.8551e+05_rb,1.8043e+05_rb,1.7479e+05_rb,1.6867e+05_rb,1.6267e+05_rb/)\n      kbo(:,56,16) = (/ &\n     &1.8723e+05_rb,1.8233e+05_rb,1.7687e+05_rb,1.7089e+05_rb,1.6480e+05_rb/)\n      kbo(:,57,16) = (/ &\n     &1.8886e+05_rb,1.8420e+05_rb,1.7883e+05_rb,1.7299e+05_rb,1.6681e+05_rb/)\n      kbo(:,58,16) = (/ &\n     &1.9037e+05_rb,1.8581e+05_rb,1.8067e+05_rb,1.7477e+05_rb,1.6881e+05_rb/)\n      kbo(:,59,16) = (/ &\n     &1.9100e+05_rb,1.8659e+05_rb,1.8132e+05_rb,1.7562e+05_rb,1.6956e+05_rb/)\n\n      kao_mn2(:, 1) = (/ &\n     & 5.12042e-08_rb, 5.51239e-08_rb, 5.93436e-08_rb, 6.38863e-08_rb, 6.87767e-08_rb, &\n     & 7.40415e-08_rb, 7.97093e-08_rb, 8.58110e-08_rb, 9.23797e-08_rb, 9.94513e-08_rb, &\n     & 1.07064e-07_rb, 1.15260e-07_rb, 1.24083e-07_rb, 1.33581e-07_rb, 1.43807e-07_rb, &\n     & 1.54815e-07_rb, 1.66666e-07_rb, 1.79424e-07_rb, 1.93159e-07_rb/)\n      kao_mn2(:, 2) = (/ &\n     & 2.30938e-07_rb, 2.41696e-07_rb, 2.52955e-07_rb, 2.64738e-07_rb, 2.77071e-07_rb, &\n     & 2.89978e-07_rb, 3.03486e-07_rb, 3.17623e-07_rb, 3.32419e-07_rb, 3.47904e-07_rb, &\n     & 3.64111e-07_rb, 3.81072e-07_rb, 3.98824e-07_rb, 4.17402e-07_rb, 4.36846e-07_rb, &\n     & 4.57196e-07_rb, 4.78494e-07_rb, 5.00784e-07_rb, 5.24112e-07_rb/)\n      kao_mn2(:, 3) = (/ &\n     & 6.70458e-07_rb, 7.04274e-07_rb, 7.39795e-07_rb, 7.77109e-07_rb, 8.16304e-07_rb, &\n     & 8.57476e-07_rb, 9.00724e-07_rb, 9.46154e-07_rb, 9.93876e-07_rb, 1.04400e-06_rb, &\n     & 1.09666e-06_rb, 1.15197e-06_rb, 1.21008e-06_rb, 1.27111e-06_rb, 1.33522e-06_rb, &\n     & 1.40256e-06_rb, 1.47331e-06_rb, 1.54761e-06_rb, 1.62567e-06_rb/)\n      kao_mn2(:, 4) = (/ &\n     & 1.84182e-06_rb, 1.89203e-06_rb, 1.94360e-06_rb, 1.99658e-06_rb, 2.05101e-06_rb, &\n     & 2.10692e-06_rb, 2.16435e-06_rb, 2.22335e-06_rb, 2.28396e-06_rb, 2.34622e-06_rb, &\n     & 2.41017e-06_rb, 2.47587e-06_rb, 2.54337e-06_rb, 2.61270e-06_rb, 2.68392e-06_rb, &\n     & 2.75708e-06_rb, 2.83224e-06_rb, 2.90944e-06_rb, 2.98875e-06_rb/)\n      kao_mn2(:, 5) = (/ &\n     & 3.41996e-06_rb, 3.32758e-06_rb, 3.23770e-06_rb, 3.15024e-06_rb, 3.06515e-06_rb, &\n     & 2.98235e-06_rb, 2.90180e-06_rb, 2.82341e-06_rb, 2.74715e-06_rb, 2.67294e-06_rb, &\n     & 2.60074e-06_rb, 2.53049e-06_rb, 2.46214e-06_rb, 2.39563e-06_rb, 2.33092e-06_rb, &\n     & 2.26796e-06_rb, 2.20670e-06_rb, 2.14709e-06_rb, 2.08910e-06_rb/)\n      kao_mn2(:, 6) = (/ &\n     & 3.38746e-06_rb, 3.25966e-06_rb, 3.13669e-06_rb, 3.01836e-06_rb, 2.90449e-06_rb, &\n     & 2.79491e-06_rb, 2.68947e-06_rb, 2.58801e-06_rb, 2.49037e-06_rb, 2.39642e-06_rb, &\n     & 2.30601e-06_rb, 2.21902e-06_rb, 2.13530e-06_rb, 2.05475e-06_rb, 1.97723e-06_rb, &\n     & 1.90264e-06_rb, 1.83086e-06_rb, 1.76179e-06_rb, 1.69532e-06_rb/)\n      kao_mn2(:, 7) = (/ &\n     & 3.17530e-06_rb, 3.07196e-06_rb, 2.97199e-06_rb, 2.87527e-06_rb, 2.78170e-06_rb, &\n     & 2.69118e-06_rb, 2.60360e-06_rb, 2.51887e-06_rb, 2.43690e-06_rb, 2.35759e-06_rb, &\n     & 2.28087e-06_rb, 2.20664e-06_rb, 2.13483e-06_rb, 2.06536e-06_rb, 1.99814e-06_rb, &\n     & 1.93312e-06_rb, 1.87021e-06_rb, 1.80934e-06_rb, 1.75046e-06_rb/)\n      kao_mn2(:, 8) = (/ &\n     & 2.84701e-06_rb, 2.77007e-06_rb, 2.69521e-06_rb, 2.62237e-06_rb, 2.55150e-06_rb, &\n     & 2.48254e-06_rb, 2.41545e-06_rb, 2.35017e-06_rb, 2.28666e-06_rb, 2.22486e-06_rb, &\n     & 2.16473e-06_rb, 2.10623e-06_rb, 2.04930e-06_rb, 1.99392e-06_rb, 1.94003e-06_rb, &\n     & 1.88760e-06_rb, 1.83659e-06_rb, 1.78695e-06_rb, 1.73866e-06_rb/)\n      kao_mn2(:, 9) = (/ &\n     & 2.79917e-06_rb, 2.73207e-06_rb, 2.66658e-06_rb, 2.60266e-06_rb, 2.54027e-06_rb, &\n     & 2.47937e-06_rb, 2.41994e-06_rb, 2.36192e-06_rb, 2.30530e-06_rb, 2.25004e-06_rb, &\n     & 2.19610e-06_rb, 2.14346e-06_rb, 2.09208e-06_rb, 2.04193e-06_rb, 1.99298e-06_rb, &\n     & 1.94520e-06_rb, 1.89857e-06_rb, 1.85306e-06_rb, 1.80864e-06_rb/)\n      kao_mn2(:,10) = (/ &\n     & 2.74910e-06_rb, 2.64462e-06_rb, 2.54412e-06_rb, 2.44743e-06_rb, 2.35442e-06_rb, &\n     & 2.26495e-06_rb, 2.17887e-06_rb, 2.09606e-06_rb, 2.01641e-06_rb, 1.93978e-06_rb, &\n     & 1.86606e-06_rb, 1.79514e-06_rb, 1.72692e-06_rb, 1.66129e-06_rb, 1.59815e-06_rb, &\n     & 1.53742e-06_rb, 1.47899e-06_rb, 1.42278e-06_rb, 1.36871e-06_rb/)\n      kao_mn2(:,11) = (/ &\n     & 2.63952e-06_rb, 2.60263e-06_rb, 2.56626e-06_rb, 2.53039e-06_rb, 2.49503e-06_rb, &\n     & 2.46016e-06_rb, 2.42578e-06_rb, 2.39188e-06_rb, 2.35845e-06_rb, 2.32549e-06_rb, &\n     & 2.29299e-06_rb, 2.26094e-06_rb, 2.22934e-06_rb, 2.19819e-06_rb, 2.16747e-06_rb, &\n     & 2.13717e-06_rb, 2.10731e-06_rb, 2.07786e-06_rb, 2.04882e-06_rb/)\n      kao_mn2(:,12) = (/ &\n     & 2.94106e-06_rb, 2.82819e-06_rb, 2.71966e-06_rb, 2.61528e-06_rb, 2.51492e-06_rb, &\n     & 2.41841e-06_rb, 2.32560e-06_rb, 2.23635e-06_rb, 2.15053e-06_rb, 2.06800e-06_rb, &\n     & 1.98863e-06_rb, 1.91232e-06_rb, 1.83893e-06_rb, 1.76836e-06_rb, 1.70049e-06_rb, &\n     & 1.63524e-06_rb, 1.57248e-06_rb, 1.51214e-06_rb, 1.45411e-06_rb/)\n      kao_mn2(:,13) = (/ &\n     & 2.94607e-06_rb, 2.87369e-06_rb, 2.80309e-06_rb, 2.73422e-06_rb, 2.66705e-06_rb, &\n     & 2.60152e-06_rb, 2.53760e-06_rb, 2.47526e-06_rb, 2.41445e-06_rb, 2.35513e-06_rb, &\n     & 2.29726e-06_rb, 2.24082e-06_rb, 2.18577e-06_rb, 2.13207e-06_rb, 2.07969e-06_rb, &\n     & 2.02859e-06_rb, 1.97875e-06_rb, 1.93014e-06_rb, 1.88272e-06_rb/)\n      kao_mn2(:,14) = (/ &\n     & 2.58051e-06_rb, 2.48749e-06_rb, 2.39782e-06_rb, 2.31139e-06_rb, 2.22807e-06_rb, &\n     & 2.14775e-06_rb, 2.07033e-06_rb, 1.99570e-06_rb, 1.92376e-06_rb, 1.85441e-06_rb, &\n     & 1.78756e-06_rb, 1.72313e-06_rb, 1.66101e-06_rb, 1.60114e-06_rb, 1.54342e-06_rb, &\n     & 1.48778e-06_rb, 1.43415e-06_rb, 1.38245e-06_rb, 1.33262e-06_rb/)\n      kao_mn2(:,15) = (/ &\n     & 3.03447e-06_rb, 2.88559e-06_rb, 2.74401e-06_rb, 2.60938e-06_rb, 2.48135e-06_rb, &\n     & 2.35961e-06_rb, 2.24384e-06_rb, 2.13375e-06_rb, 2.02906e-06_rb, 1.92951e-06_rb, &\n     & 1.83484e-06_rb, 1.74481e-06_rb, 1.65921e-06_rb, 1.57780e-06_rb, 1.50039e-06_rb, &\n     & 1.42677e-06_rb, 1.35677e-06_rb, 1.29020e-06_rb, 1.22690e-06_rb/)\n      kao_mn2(:,16) = (/ &\n     & 1.48655e-06_rb, 1.48283e-06_rb, 1.47913e-06_rb, 1.47543e-06_rb, 1.47174e-06_rb, &\n     & 1.46806e-06_rb, 1.46439e-06_rb, 1.46072e-06_rb, 1.45707e-06_rb, 1.45343e-06_rb, &\n     & 1.44979e-06_rb, 1.44617e-06_rb, 1.44255e-06_rb, 1.43894e-06_rb, 1.43534e-06_rb, &\n     & 1.43176e-06_rb, 1.42817e-06_rb, 1.42460e-06_rb, 1.42104e-06_rb/)\n      kbo_mn2(:, 1) = (/ &\n     & 5.12042e-08_rb, 5.51239e-08_rb, 5.93436e-08_rb, 6.38863e-08_rb, 6.87767e-08_rb, &\n     & 7.40415e-08_rb, 7.97093e-08_rb, 8.58110e-08_rb, 9.23797e-08_rb, 9.94513e-08_rb, &\n     & 1.07064e-07_rb, 1.15260e-07_rb, 1.24083e-07_rb, 1.33581e-07_rb, 1.43807e-07_rb, &\n     & 1.54815e-07_rb, 1.66666e-07_rb, 1.79424e-07_rb, 1.93159e-07_rb/)\n      kbo_mn2(:, 2) = (/ &\n     & 2.30938e-07_rb, 2.41696e-07_rb, 2.52955e-07_rb, 2.64738e-07_rb, 2.77071e-07_rb, &\n     & 2.89978e-07_rb, 3.03486e-07_rb, 3.17623e-07_rb, 3.32419e-07_rb, 3.47904e-07_rb, &\n     & 3.64111e-07_rb, 3.81072e-07_rb, 3.98824e-07_rb, 4.17402e-07_rb, 4.36846e-07_rb, &\n     & 4.57196e-07_rb, 4.78494e-07_rb, 5.00784e-07_rb, 5.24112e-07_rb/)\n      kbo_mn2(:, 3) = (/ &\n     & 6.70458e-07_rb, 7.04274e-07_rb, 7.39795e-07_rb, 7.77109e-07_rb, 8.16304e-07_rb, &\n     & 8.57476e-07_rb, 9.00724e-07_rb, 9.46154e-07_rb, 9.93876e-07_rb, 1.04400e-06_rb, &\n     & 1.09666e-06_rb, 1.15197e-06_rb, 1.21008e-06_rb, 1.27111e-06_rb, 1.33522e-06_rb, &\n     & 1.40256e-06_rb, 1.47331e-06_rb, 1.54761e-06_rb, 1.62567e-06_rb/)\n      kbo_mn2(:, 4) = (/ &\n     & 1.84182e-06_rb, 1.89203e-06_rb, 1.94360e-06_rb, 1.99658e-06_rb, 2.05101e-06_rb, &\n     & 2.10692e-06_rb, 2.16435e-06_rb, 2.22335e-06_rb, 2.28396e-06_rb, 2.34622e-06_rb, &\n     & 2.41017e-06_rb, 2.47587e-06_rb, 2.54337e-06_rb, 2.61270e-06_rb, 2.68392e-06_rb, &\n     & 2.75708e-06_rb, 2.83224e-06_rb, 2.90944e-06_rb, 2.98875e-06_rb/)\n      kbo_mn2(:, 5) = (/ &\n     & 3.41996e-06_rb, 3.32758e-06_rb, 3.23770e-06_rb, 3.15024e-06_rb, 3.06515e-06_rb, &\n     & 2.98235e-06_rb, 2.90180e-06_rb, 2.82341e-06_rb, 2.74715e-06_rb, 2.67294e-06_rb, &\n     & 2.60074e-06_rb, 2.53049e-06_rb, 2.46214e-06_rb, 2.39563e-06_rb, 2.33092e-06_rb, &\n     & 2.26796e-06_rb, 2.20670e-06_rb, 2.14709e-06_rb, 2.08910e-06_rb/)\n      kbo_mn2(:, 6) = (/ &\n     & 3.38746e-06_rb, 3.25966e-06_rb, 3.13669e-06_rb, 3.01836e-06_rb, 2.90449e-06_rb, &\n     & 2.79491e-06_rb, 2.68947e-06_rb, 2.58801e-06_rb, 2.49037e-06_rb, 2.39642e-06_rb, &\n     & 2.30601e-06_rb, 2.21902e-06_rb, 2.13530e-06_rb, 2.05475e-06_rb, 1.97723e-06_rb, &\n     & 1.90264e-06_rb, 1.83086e-06_rb, 1.76179e-06_rb, 1.69532e-06_rb/)\n      kbo_mn2(:, 7) = (/ &\n     & 3.17530e-06_rb, 3.07196e-06_rb, 2.97199e-06_rb, 2.87527e-06_rb, 2.78170e-06_rb, &\n     & 2.69118e-06_rb, 2.60360e-06_rb, 2.51887e-06_rb, 2.43690e-06_rb, 2.35759e-06_rb, &\n     & 2.28087e-06_rb, 2.20664e-06_rb, 2.13483e-06_rb, 2.06536e-06_rb, 1.99814e-06_rb, &\n     & 1.93312e-06_rb, 1.87021e-06_rb, 1.80934e-06_rb, 1.75046e-06_rb/)\n      kbo_mn2(:, 8) = (/ &\n     & 2.84701e-06_rb, 2.77007e-06_rb, 2.69521e-06_rb, 2.62237e-06_rb, 2.55150e-06_rb, &\n     & 2.48254e-06_rb, 2.41545e-06_rb, 2.35017e-06_rb, 2.28666e-06_rb, 2.22486e-06_rb, &\n     & 2.16473e-06_rb, 2.10623e-06_rb, 2.04930e-06_rb, 1.99392e-06_rb, 1.94003e-06_rb, &\n     & 1.88760e-06_rb, 1.83659e-06_rb, 1.78695e-06_rb, 1.73866e-06_rb/)\n      kbo_mn2(:, 9) = (/ &\n     & 2.79917e-06_rb, 2.73207e-06_rb, 2.66658e-06_rb, 2.60266e-06_rb, 2.54027e-06_rb, &\n     & 2.47937e-06_rb, 2.41994e-06_rb, 2.36192e-06_rb, 2.30530e-06_rb, 2.25004e-06_rb, &\n     & 2.19610e-06_rb, 2.14346e-06_rb, 2.09208e-06_rb, 2.04193e-06_rb, 1.99298e-06_rb, &\n     & 1.94520e-06_rb, 1.89857e-06_rb, 1.85306e-06_rb, 1.80864e-06_rb/)\n      kbo_mn2(:,10) = (/ &\n     & 2.74910e-06_rb, 2.64462e-06_rb, 2.54412e-06_rb, 2.44743e-06_rb, 2.35442e-06_rb, &\n     & 2.26495e-06_rb, 2.17887e-06_rb, 2.09606e-06_rb, 2.01641e-06_rb, 1.93978e-06_rb, &\n     & 1.86606e-06_rb, 1.79514e-06_rb, 1.72692e-06_rb, 1.66129e-06_rb, 1.59815e-06_rb, &\n     & 1.53742e-06_rb, 1.47899e-06_rb, 1.42278e-06_rb, 1.36871e-06_rb/)\n      kbo_mn2(:,11) = (/ &\n     & 2.63952e-06_rb, 2.60263e-06_rb, 2.56626e-06_rb, 2.53039e-06_rb, 2.49503e-06_rb, &\n     & 2.46016e-06_rb, 2.42578e-06_rb, 2.39188e-06_rb, 2.35845e-06_rb, 2.32549e-06_rb, &\n     & 2.29299e-06_rb, 2.26094e-06_rb, 2.22934e-06_rb, 2.19819e-06_rb, 2.16747e-06_rb, &\n     & 2.13717e-06_rb, 2.10731e-06_rb, 2.07786e-06_rb, 2.04882e-06_rb/)\n      kbo_mn2(:,12) = (/ &\n     & 2.94106e-06_rb, 2.82819e-06_rb, 2.71966e-06_rb, 2.61528e-06_rb, 2.51492e-06_rb, &\n     & 2.41841e-06_rb, 2.32560e-06_rb, 2.23635e-06_rb, 2.15053e-06_rb, 2.06800e-06_rb, &\n     & 1.98863e-06_rb, 1.91232e-06_rb, 1.83893e-06_rb, 1.76836e-06_rb, 1.70049e-06_rb, &\n     & 1.63524e-06_rb, 1.57248e-06_rb, 1.51214e-06_rb, 1.45411e-06_rb/)\n      kbo_mn2(:,13) = (/ &\n     & 2.94607e-06_rb, 2.87369e-06_rb, 2.80309e-06_rb, 2.73422e-06_rb, 2.66705e-06_rb, &\n     & 2.60152e-06_rb, 2.53760e-06_rb, 2.47526e-06_rb, 2.41445e-06_rb, 2.35513e-06_rb, &\n     & 2.29726e-06_rb, 2.24082e-06_rb, 2.18577e-06_rb, 2.13207e-06_rb, 2.07969e-06_rb, &\n     & 2.02859e-06_rb, 1.97875e-06_rb, 1.93014e-06_rb, 1.88272e-06_rb/)\n      kbo_mn2(:,14) = (/ &\n     & 2.58051e-06_rb, 2.48749e-06_rb, 2.39782e-06_rb, 2.31139e-06_rb, 2.22807e-06_rb, &\n     & 2.14775e-06_rb, 2.07033e-06_rb, 1.99570e-06_rb, 1.92376e-06_rb, 1.85441e-06_rb, &\n     & 1.78756e-06_rb, 1.72313e-06_rb, 1.66101e-06_rb, 1.60114e-06_rb, 1.54342e-06_rb, &\n     & 1.48778e-06_rb, 1.43415e-06_rb, 1.38245e-06_rb, 1.33262e-06_rb/)\n      kbo_mn2(:,15) = (/ &\n     & 3.03447e-06_rb, 2.88559e-06_rb, 2.74401e-06_rb, 2.60938e-06_rb, 2.48135e-06_rb, &\n     & 2.35961e-06_rb, 2.24384e-06_rb, 2.13375e-06_rb, 2.02906e-06_rb, 1.92951e-06_rb, &\n     & 1.83484e-06_rb, 1.74481e-06_rb, 1.65921e-06_rb, 1.57780e-06_rb, 1.50039e-06_rb, &\n     & 1.42677e-06_rb, 1.35677e-06_rb, 1.29020e-06_rb, 1.22690e-06_rb/)\n      kbo_mn2(:,16) = (/ &\n     & 1.48655e-06_rb, 1.48283e-06_rb, 1.47913e-06_rb, 1.47543e-06_rb, 1.47174e-06_rb, &\n     & 1.46806e-06_rb, 1.46439e-06_rb, 1.46072e-06_rb, 1.45707e-06_rb, 1.45343e-06_rb, &\n     & 1.44979e-06_rb, 1.44617e-06_rb, 1.44255e-06_rb, 1.43894e-06_rb, 1.43534e-06_rb, &\n     & 1.43176e-06_rb, 1.42817e-06_rb, 1.42460e-06_rb, 1.42104e-06_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &3.6742e-02_rb,1.0664e-01_rb,2.6132e-01_rb,2.7906e-01_rb,2.8151e-01_rb,2.7465e-01_rb, &\n     &2.8530e-01_rb,2.9123e-01_rb,3.0697e-01_rb,3.1801e-01_rb,3.2444e-01_rb,2.7746e-01_rb, &\n     &3.1994e-01_rb,2.9750e-01_rb,2.1226e-01_rb,1.2847e-01_rb/)\n      forrefo(2,:) = (/ &\n     &4.0450e-02_rb,1.1085e-01_rb,2.9205e-01_rb,3.1934e-01_rb,3.1739e-01_rb,3.1450e-01_rb, &\n     &3.2797e-01_rb,3.2223e-01_rb,3.3099e-01_rb,3.4800e-01_rb,3.4046e-01_rb,3.5700e-01_rb, &\n     &3.8264e-01_rb,3.6679e-01_rb,3.3481e-01_rb,3.2113e-01_rb/)\n      forrefo(3,:) = (/ &\n     &4.6952e-02_rb,1.1999e-01_rb,3.1473e-01_rb,3.7015e-01_rb,3.6913e-01_rb,3.6352e-01_rb, &\n     &3.7754e-01_rb,3.7402e-01_rb,3.7113e-01_rb,3.7720e-01_rb,3.8365e-01_rb,4.0876e-01_rb, &\n     &4.2968e-01_rb,4.4186e-01_rb,4.3468e-01_rb,4.7083e-01_rb/)\n      forrefo(4,:) = (/ &\n     &7.0645e-02_rb,1.6618e-01_rb,2.8516e-01_rb,3.1819e-01_rb,3.0131e-01_rb,2.9552e-01_rb, &\n     &2.8972e-01_rb,2.9348e-01_rb,2.8668e-01_rb,2.8483e-01_rb,2.8130e-01_rb,2.7757e-01_rb, &\n     &2.9735e-01_rb,3.1684e-01_rb,3.0681e-01_rb,3.6778e-01_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 2.16803e+00_rb, 1.98236e+00_rb, 1.81260e+00_rb, 1.65737e+00_rb, 1.51544e+00_rb, &\n     & 1.38567e+00_rb, 1.26700e+00_rb, 1.15850e+00_rb, 1.05929e+00_rb, 9.68576e-01_rb/)\n      selfrefo(:, 2) = (/ &\n     & 3.70149e+00_rb, 3.43145e+00_rb, 3.18110e+00_rb, 2.94902e+00_rb, 2.73387e+00_rb, &\n     & 2.53441e+00_rb, 2.34951e+00_rb, 2.17810e+00_rb, 2.01919e+00_rb, 1.87188e+00_rb/)\n      selfrefo(:, 3) = (/ &\n     & 6.17433e+00_rb, 5.62207e+00_rb, 5.11920e+00_rb, 4.66131e+00_rb, 4.24438e+00_rb, &\n     & 3.86474e+00_rb, 3.51906e+00_rb, 3.20430e+00_rb, 2.91769e+00_rb, 2.65672e+00_rb/)\n      selfrefo(:, 4) = (/ &\n     & 6.56459e+00_rb, 5.94787e+00_rb, 5.38910e+00_rb, 4.88282e+00_rb, 4.42410e+00_rb, &\n     & 4.00848e+00_rb, 3.63190e+00_rb, 3.29070e+00_rb, 2.98155e+00_rb, 2.70145e+00_rb/)\n      selfrefo(:, 5) = (/ &\n     & 6.49581e+00_rb, 5.91114e+00_rb, 5.37910e+00_rb, 4.89494e+00_rb, 4.45436e+00_rb, &\n     & 4.05344e+00_rb, 3.68860e+00_rb, 3.35660e+00_rb, 3.05448e+00_rb, 2.77956e+00_rb/)\n      selfrefo(:, 6) = (/ &\n     & 6.50189e+00_rb, 5.89381e+00_rb, 5.34260e+00_rb, 4.84294e+00_rb, 4.39001e+00_rb, &\n     & 3.97944e+00_rb, 3.60727e+00_rb, 3.26990e+00_rb, 2.96409e+00_rb, 2.68687e+00_rb/)\n      selfrefo(:, 7) = (/ &\n     & 6.64768e+00_rb, 6.01719e+00_rb, 5.44650e+00_rb, 4.92993e+00_rb, 4.46236e+00_rb, &\n     & 4.03914e+00_rb, 3.65605e+00_rb, 3.30930e+00_rb, 2.99543e+00_rb, 2.71134e+00_rb/)\n      selfrefo(:, 8) = (/ &\n     & 6.43744e+00_rb, 5.87166e+00_rb, 5.35560e+00_rb, 4.88490e+00_rb, 4.45557e+00_rb, &\n     & 4.06397e+00_rb, 3.70679e+00_rb, 3.38100e+00_rb, 3.08384e+00_rb, 2.81281e+00_rb/)\n      selfrefo(:, 9) = (/ &\n     & 6.55466e+00_rb, 5.99777e+00_rb, 5.48820e+00_rb, 5.02192e+00_rb, 4.59525e+00_rb, &\n     & 4.20484e+00_rb, 3.84759e+00_rb, 3.52070e+00_rb, 3.22158e+00_rb, 2.94787e+00_rb/)\n      selfrefo(:,10) = (/ &\n     & 6.84510e+00_rb, 6.26933e+00_rb, 5.74200e+00_rb, 5.25902e+00_rb, 4.81667e+00_rb, &\n     & 4.41152e+00_rb, 4.04046e+00_rb, 3.70060e+00_rb, 3.38933e+00_rb, 3.10424e+00_rb/)\n      selfrefo(:,11) = (/ &\n     & 6.83128e+00_rb, 6.25536e+00_rb, 5.72800e+00_rb, 5.24510e+00_rb, 4.80291e+00_rb, &\n     & 4.39799e+00_rb, 4.02722e+00_rb, 3.68770e+00_rb, 3.37681e+00_rb, 3.09212e+00_rb/)\n      selfrefo(:,12) = (/ &\n     & 7.35969e+00_rb, 6.61719e+00_rb, 5.94960e+00_rb, 5.34936e+00_rb, 4.80968e+00_rb, &\n     & 4.32445e+00_rb, 3.88817e+00_rb, 3.49590e+00_rb, 3.14321e+00_rb, 2.82610e+00_rb/)\n      selfrefo(:,13) = (/ &\n     & 7.50064e+00_rb, 6.80749e+00_rb, 6.17840e+00_rb, 5.60744e+00_rb, 5.08925e+00_rb, &\n     & 4.61894e+00_rb, 4.19210e+00_rb, 3.80470e+00_rb, 3.45310e+00_rb, 3.13399e+00_rb/)\n      selfrefo(:,14) = (/ &\n     & 7.40801e+00_rb, 6.71328e+00_rb, 6.08370e+00_rb, 5.51316e+00_rb, 4.99613e+00_rb, &\n     & 4.52759e+00_rb, 4.10298e+00_rb, 3.71820e+00_rb, 3.36950e+00_rb, 3.05351e+00_rb/)\n      selfrefo(:,15) = (/ &\n     & 7.51895e+00_rb, 6.68846e+00_rb, 5.94970e+00_rb, 5.29254e+00_rb, 4.70796e+00_rb, &\n     & 4.18795e+00_rb, 3.72538e+00_rb, 3.31390e+00_rb, 2.94787e+00_rb, 2.62227e+00_rb/)\n      selfrefo(:,16) = (/ &\n     & 7.84774e+00_rb, 6.80673e+00_rb, 5.90380e+00_rb, 5.12065e+00_rb, 4.44138e+00_rb, &\n     & 3.85223e+00_rb, 3.34122e+00_rb, 2.89800e+00_rb, 2.51357e+00_rb, 2.18014e+00_rb/)\n\n      end subroutine lw_kgb01\n\n! **************************************************************************\n      subroutine lw_kgb02\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg02, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level: P = 1053.630 mbar, T = 294.2 K\n      fracrefao(:) = (/ &\n        1.6388e-01_rb, 1.5241e-01_rb, 1.4290e-01_rb, 1.2864e-01_rb, &\n        1.1615e-01_rb, 1.0047e-01_rb, 8.0013e-02_rb, 6.0445e-02_rb, &\n        4.0530e-02_rb, 4.3879e-03_rb, 3.5726e-03_rb, 2.7669e-03_rb, &\n        2.0078e-03_rb, 1.2864e-03_rb, 4.7630e-04_rb, 6.9109e-05_rb/)\n\n! Planck fraction mapping level: P = 3.206e-2 mb, T = 197.92 K\n      fracrefbo(:) = (/ &\n        1.4697e-01_rb, 1.4826e-01_rb, 1.4278e-01_rb, 1.3320e-01_rb, &\n        1.1965e-01_rb, 1.0297e-01_rb, 8.4170e-02_rb, 6.3282e-02_rb, &\n        4.2868e-02_rb, 4.6644e-03_rb, 3.8619e-03_rb, 3.0533e-03_rb, &\n        2.2359e-03_rb, 1.4226e-03_rb, 5.3642e-04_rb, 7.6316e-05_rb/)\n\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels > ~100mb and temperatures.  The first\n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the corresponding TREF for this  pressure level, \n!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, \n!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second \n!     index, JP, runs from 1 to 13 and refers to the corresponding \n!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  \n!     The third index, IG, goes from 1 to 16, and tells us which \n!     g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &4.9444e-03_rb,5.9459e-03_rb,7.0909e-03_rb,8.2082e-03_rb,9.2071e-03_rb/)\n      kao(:, 2, 1) = (/ &\n     &3.6253e-03_rb,4.3860e-03_rb,5.2541e-03_rb,6.0419e-03_rb,6.8835e-03_rb/)\n      kao(:, 3, 1) = (/ &\n     &2.5338e-03_rb,3.0985e-03_rb,3.7400e-03_rb,4.2996e-03_rb,4.9675e-03_rb/)\n      kao(:, 4, 1) = (/ &\n     &1.7755e-03_rb,2.1973e-03_rb,2.6664e-03_rb,3.1111e-03_rb,3.6091e-03_rb/)\n      kao(:, 5, 1) = (/ &\n     &1.2565e-03_rb,1.5789e-03_rb,1.9196e-03_rb,2.3096e-03_rb,2.6519e-03_rb/)\n      kao(:, 6, 1) = (/ &\n     &8.8624e-04_rb,1.1175e-03_rb,1.3818e-03_rb,1.6934e-03_rb,1.9635e-03_rb/)\n      kao(:, 7, 1) = (/ &\n     &6.2843e-04_rb,7.9253e-04_rb,1.0012e-03_rb,1.2222e-03_rb,1.4734e-03_rb/)\n      kao(:, 8, 1) = (/ &\n     &4.5023e-04_rb,5.6483e-04_rb,7.1568e-04_rb,8.9026e-04_rb,1.0929e-03_rb/)\n      kao(:, 9, 1) = (/ &\n     &3.2520e-04_rb,4.0407e-04_rb,5.1209e-04_rb,6.4949e-04_rb,7.9581e-04_rb/)\n      kao(:,10, 1) = (/ &\n     &2.4126e-04_rb,2.9581e-04_rb,3.7404e-04_rb,4.7585e-04_rb,5.9085e-04_rb/)\n      kao(:,11, 1) = (/ &\n     &1.9501e-04_rb,2.4152e-04_rb,3.0649e-04_rb,3.9104e-04_rb,4.8881e-04_rb/)\n      kao(:,12, 1) = (/ &\n     &1.5881e-04_rb,1.9763e-04_rb,2.5177e-04_rb,3.2441e-04_rb,4.0632e-04_rb/)\n      kao(:,13, 1) = (/ &\n     &1.3003e-04_rb,1.6216e-04_rb,2.0768e-04_rb,2.6864e-04_rb,3.3497e-04_rb/)\n      kao(:, 1, 2) = (/ &\n     &1.0027e-02_rb,1.1791e-02_rb,1.3932e-02_rb,1.6666e-02_rb,2.0126e-02_rb/)\n      kao(:, 2, 2) = (/ &\n     &7.4056e-03_rb,8.8285e-03_rb,1.0460e-02_rb,1.2669e-02_rb,1.5282e-02_rb/)\n      kao(:, 3, 2) = (/ &\n     &5.2661e-03_rb,6.2928e-03_rb,7.5540e-03_rb,9.2387e-03_rb,1.1182e-02_rb/)\n      kao(:, 4, 2) = (/ &\n     &3.7830e-03_rb,4.5144e-03_rb,5.4622e-03_rb,6.6869e-03_rb,8.1435e-03_rb/)\n      kao(:, 5, 2) = (/ &\n     &2.7480e-03_rb,3.3042e-03_rb,3.9726e-03_rb,4.8258e-03_rb,5.9510e-03_rb/)\n      kao(:, 6, 2) = (/ &\n     &2.0063e-03_rb,2.3984e-03_rb,2.8713e-03_rb,3.4864e-03_rb,4.3135e-03_rb/)\n      kao(:, 7, 2) = (/ &\n     &1.4846e-03_rb,1.7453e-03_rb,2.0981e-03_rb,2.5444e-03_rb,3.1056e-03_rb/)\n      kao(:, 8, 2) = (/ &\n     &1.1210e-03_rb,1.2879e-03_rb,1.5449e-03_rb,1.8524e-03_rb,2.2562e-03_rb/)\n      kao(:, 9, 2) = (/ &\n     &8.5574e-04_rb,9.6423e-04_rb,1.1336e-03_rb,1.3659e-03_rb,1.6594e-03_rb/)\n      kao(:,10, 2) = (/ &\n     &6.6848e-04_rb,7.4016e-04_rb,8.5479e-04_rb,1.0274e-03_rb,1.2343e-03_rb/)\n      kao(:,11, 2) = (/ &\n     &5.5022e-04_rb,6.0473e-04_rb,6.9963e-04_rb,8.4106e-04_rb,1.0097e-03_rb/)\n      kao(:,12, 2) = (/ &\n     &4.4972e-04_rb,4.9436e-04_rb,5.7239e-04_rb,6.8738e-04_rb,8.3038e-04_rb/)\n      kao(:,13, 2) = (/ &\n     &3.6745e-04_rb,4.0460e-04_rb,4.6828e-04_rb,5.6427e-04_rb,6.8387e-04_rb/)\n      kao(:, 1, 3) = (/ &\n     &2.0475e-02_rb,2.4886e-02_rb,2.8056e-02_rb,3.1687e-02_rb,3.6011e-02_rb/)\n      kao(:, 2, 3) = (/ &\n     &1.5293e-02_rb,1.8649e-02_rb,2.1197e-02_rb,2.4106e-02_rb,2.7485e-02_rb/)\n      kao(:, 3, 3) = (/ &\n     &1.0918e-02_rb,1.3480e-02_rb,1.5496e-02_rb,1.7769e-02_rb,2.0398e-02_rb/)\n      kao(:, 4, 3) = (/ &\n     &7.7395e-03_rb,9.6625e-03_rb,1.1379e-02_rb,1.3130e-02_rb,1.5170e-02_rb/)\n      kao(:, 5, 3) = (/ &\n     &5.4995e-03_rb,6.9063e-03_rb,8.5233e-03_rb,9.8125e-03_rb,1.1368e-02_rb/)\n      kao(:, 6, 3) = (/ &\n     &3.9002e-03_rb,4.9307e-03_rb,6.2037e-03_rb,7.3100e-03_rb,8.4689e-03_rb/)\n      kao(:, 7, 3) = (/ &\n     &2.7369e-03_rb,3.5078e-03_rb,4.4352e-03_rb,5.5098e-03_rb,6.3463e-03_rb/)\n      kao(:, 8, 3) = (/ &\n     &1.9294e-03_rb,2.5028e-03_rb,3.1751e-03_rb,4.0255e-03_rb,4.7593e-03_rb/)\n      kao(:, 9, 3) = (/ &\n     &1.2806e-03_rb,1.7659e-03_rb,2.2786e-03_rb,2.8933e-03_rb,3.6112e-03_rb/)\n      kao(:,10, 3) = (/ &\n     &8.6429e-04_rb,1.2871e-03_rb,1.6661e-03_rb,2.1207e-03_rb,2.6956e-03_rb/)\n      kao(:,11, 3) = (/ &\n     &7.0989e-04_rb,1.0555e-03_rb,1.3691e-03_rb,1.7450e-03_rb,2.2184e-03_rb/)\n      kao(:,12, 3) = (/ &\n     &5.8630e-04_rb,8.6615e-04_rb,1.1265e-03_rb,1.4357e-03_rb,1.8221e-03_rb/)\n      kao(:,13, 3) = (/ &\n     &4.8372e-04_rb,7.1031e-04_rb,9.2618e-04_rb,1.1787e-03_rb,1.4998e-03_rb/)\n      kao(:, 1, 4) = (/ &\n     &3.4150e-02_rb,4.0367e-02_rb,4.9280e-02_rb,5.9100e-02_rb,6.9499e-02_rb/)\n      kao(:, 2, 4) = (/ &\n     &2.5504e-02_rb,3.0447e-02_rb,3.7321e-02_rb,4.4944e-02_rb,5.3298e-02_rb/)\n      kao(:, 3, 4) = (/ &\n     &1.8371e-02_rb,2.2085e-02_rb,2.7226e-02_rb,3.2994e-02_rb,3.9403e-02_rb/)\n      kao(:, 4, 4) = (/ &\n     &1.3235e-02_rb,1.6046e-02_rb,1.9813e-02_rb,2.4156e-02_rb,2.9082e-02_rb/)\n      kao(:, 5, 4) = (/ &\n     &9.5998e-03_rb,1.1709e-02_rb,1.4338e-02_rb,1.7707e-02_rb,2.1505e-02_rb/)\n      kao(:, 6, 4) = (/ &\n     &6.9022e-03_rb,8.5630e-03_rb,1.0395e-02_rb,1.2869e-02_rb,1.5787e-02_rb/)\n      kao(:, 7, 4) = (/ &\n     &5.0622e-03_rb,6.1861e-03_rb,7.5642e-03_rb,9.2835e-03_rb,1.1530e-02_rb/)\n      kao(:, 8, 4) = (/ &\n     &3.7734e-03_rb,4.4956e-03_rb,5.5749e-03_rb,6.7721e-03_rb,8.4253e-03_rb/)\n      kao(:, 9, 4) = (/ &\n     &2.9619e-03_rb,3.3315e-03_rb,4.0621e-03_rb,4.9694e-03_rb,6.1117e-03_rb/)\n      kao(:,10, 4) = (/ &\n     &2.2204e-03_rb,2.5123e-03_rb,3.0176e-03_rb,3.7321e-03_rb,4.5545e-03_rb/)\n      kao(:,11, 4) = (/ &\n     &1.8288e-03_rb,2.0602e-03_rb,2.4838e-03_rb,3.0685e-03_rb,3.7508e-03_rb/)\n      kao(:,12, 4) = (/ &\n     &1.5051e-03_rb,1.6916e-03_rb,2.0466e-03_rb,2.5239e-03_rb,3.0905e-03_rb/)\n      kao(:,13, 4) = (/ &\n     &1.2373e-03_rb,1.3907e-03_rb,1.6848e-03_rb,2.0764e-03_rb,2.5455e-03_rb/)\n      kao(:, 1, 5) = (/ &\n     &7.4128e-02_rb,9.0328e-02_rb,1.0845e-01_rb,1.2842e-01_rb,1.4993e-01_rb/)\n      kao(:, 2, 5) = (/ &\n     &5.6421e-02_rb,6.8932e-02_rb,8.3294e-02_rb,9.9111e-02_rb,1.1617e-01_rb/)\n      kao(:, 3, 5) = (/ &\n     &4.0916e-02_rb,5.0385e-02_rb,6.1257e-02_rb,7.3474e-02_rb,8.6732e-02_rb/)\n      kao(:, 4, 5) = (/ &\n     &2.9430e-02_rb,3.6556e-02_rb,4.4742e-02_rb,5.4199e-02_rb,6.4580e-02_rb/)\n      kao(:, 5, 5) = (/ &\n     &2.1212e-02_rb,2.6602e-02_rb,3.2780e-02_rb,4.0084e-02_rb,4.8236e-02_rb/)\n      kao(:, 6, 5) = (/ &\n     &1.5151e-02_rb,1.9129e-02_rb,2.3897e-02_rb,2.9436e-02_rb,3.5798e-02_rb/)\n      kao(:, 7, 5) = (/ &\n     &1.0718e-02_rb,1.3802e-02_rb,1.7389e-02_rb,2.1505e-02_rb,2.6440e-02_rb/)\n      kao(:, 8, 5) = (/ &\n     &7.4917e-03_rb,9.9125e-03_rb,1.2578e-02_rb,1.5770e-02_rb,1.9483e-02_rb/)\n      kao(:, 9, 5) = (/ &\n     &5.1168e-03_rb,7.0368e-03_rb,9.1089e-03_rb,1.1527e-02_rb,1.4293e-02_rb/)\n      kao(:,10, 5) = (/ &\n     &3.6983e-03_rb,5.0627e-03_rb,6.6991e-03_rb,8.5275e-03_rb,1.0696e-02_rb/)\n      kao(:,11, 5) = (/ &\n     &3.0484e-03_rb,4.1916e-03_rb,5.5346e-03_rb,7.0513e-03_rb,8.8498e-03_rb/)\n      kao(:,12, 5) = (/ &\n     &2.5174e-03_rb,3.4714e-03_rb,4.5718e-03_rb,5.8341e-03_rb,7.3195e-03_rb/)\n      kao(:,13, 5) = (/ &\n     &2.0770e-03_rb,2.8684e-03_rb,3.7718e-03_rb,4.8192e-03_rb,6.0412e-03_rb/)\n      kao(:, 1, 6) = (/ &\n     &2.0613e-01_rb,2.5157e-01_rb,3.0178e-01_rb,3.5683e-01_rb,4.1542e-01_rb/)\n      kao(:, 2, 6) = (/ &\n     &1.5819e-01_rb,1.9432e-01_rb,2.3452e-01_rb,2.7858e-01_rb,3.2587e-01_rb/)\n      kao(:, 3, 6) = (/ &\n     &1.1531e-01_rb,1.4306e-01_rb,1.7435e-01_rb,2.0876e-01_rb,2.4632e-01_rb/)\n      kao(:, 4, 6) = (/ &\n     &8.3284e-02_rb,1.0444e-01_rb,1.2864e-01_rb,1.5560e-01_rb,1.8535e-01_rb/)\n      kao(:, 5, 6) = (/ &\n     &6.0166e-02_rb,7.6315e-02_rb,9.4937e-02_rb,1.1604e-01_rb,1.3958e-01_rb/)\n      kao(:, 6, 6) = (/ &\n     &4.3003e-02_rb,5.5230e-02_rb,6.9447e-02_rb,8.5781e-02_rb,1.0424e-01_rb/)\n      kao(:, 7, 6) = (/ &\n     &3.0490e-02_rb,3.9769e-02_rb,5.0618e-02_rb,6.3200e-02_rb,7.7597e-02_rb/)\n      kao(:, 8, 6) = (/ &\n     &2.1570e-02_rb,2.8573e-02_rb,3.6803e-02_rb,4.6437e-02_rb,5.7626e-02_rb/)\n      kao(:, 9, 6) = (/ &\n     &1.5155e-02_rb,2.0450e-02_rb,2.6673e-02_rb,3.4004e-02_rb,4.2620e-02_rb/)\n      kao(:,10, 6) = (/ &\n     &1.0852e-02_rb,1.4893e-02_rb,1.9668e-02_rb,2.5324e-02_rb,3.1992e-02_rb/)\n      kao(:,11, 6) = (/ &\n     &9.0511e-03_rb,1.2422e-02_rb,1.6374e-02_rb,2.1084e-02_rb,2.6643e-02_rb/)\n      kao(:,12, 6) = (/ &\n     &7.5332e-03_rb,1.0338e-02_rb,1.3623e-02_rb,1.7531e-02_rb,2.2174e-02_rb/)\n      kao(:,13, 6) = (/ &\n     &6.2568e-03_rb,8.5754e-03_rb,1.1313e-02_rb,1.4562e-02_rb,1.8439e-02_rb/)\n      kao(:, 1, 7) = (/ &\n     &6.4924e-01_rb,7.7307e-01_rb,9.0386e-01_rb,1.0388e+00_rb,1.1773e+00_rb/)\n      kao(:, 2, 7) = (/ &\n     &5.0577e-01_rb,6.0786e-01_rb,7.1639e-01_rb,8.2855e-01_rb,9.4493e-01_rb/)\n      kao(:, 3, 7) = (/ &\n     &3.7384e-01_rb,4.5638e-01_rb,5.4361e-01_rb,6.3563e-01_rb,7.3108e-01_rb/)\n      kao(:, 4, 7) = (/ &\n     &2.7157e-01_rb,3.3769e-01_rb,4.0798e-01_rb,4.8298e-01_rb,5.6158e-01_rb/)\n      kao(:, 5, 7) = (/ &\n     &1.9648e-01_rb,2.4838e-01_rb,3.0521e-01_rb,3.6590e-01_rb,4.3005e-01_rb/)\n      kao(:, 6, 7) = (/ &\n     &1.3966e-01_rb,1.7987e-01_rb,2.2524e-01_rb,2.7405e-01_rb,3.2593e-01_rb/)\n      kao(:, 7, 7) = (/ &\n     &9.8353e-02_rb,1.2917e-01_rb,1.6445e-01_rb,2.0365e-01_rb,2.4531e-01_rb/)\n      kao(:, 8, 7) = (/ &\n     &6.8795e-02_rb,9.2244e-02_rb,1.1951e-01_rb,1.5053e-01_rb,1.8392e-01_rb/)\n      kao(:, 9, 7) = (/ &\n     &4.7720e-02_rb,6.5374e-02_rb,8.6294e-02_rb,1.1044e-01_rb,1.3721e-01_rb/)\n      kao(:,10, 7) = (/ &\n     &3.3881e-02_rb,4.7211e-02_rb,6.3377e-02_rb,8.2294e-02_rb,1.0374e-01_rb/)\n      kao(:,11, 7) = (/ &\n     &2.8304e-02_rb,3.9386e-02_rb,5.2911e-02_rb,6.8671e-02_rb,8.6477e-02_rb/)\n      kao(:,12, 7) = (/ &\n     &2.3643e-02_rb,3.2849e-02_rb,4.4121e-02_rb,5.7246e-02_rb,7.2052e-02_rb/)\n      kao(:,13, 7) = (/ &\n     &1.9678e-02_rb,2.7339e-02_rb,3.6693e-02_rb,4.7583e-02_rb,5.9838e-02_rb/)\n      kao(:, 1, 8) = (/ &\n     &1.5852e+00_rb,1.8937e+00_rb,2.2233e+00_rb,2.5759e+00_rb,2.9447e+00_rb/)\n      kao(:, 2, 8) = (/ &\n     &1.3020e+00_rb,1.5608e+00_rb,1.8408e+00_rb,2.1415e+00_rb,2.4614e+00_rb/)\n      kao(:, 3, 8) = (/ &\n     &1.0126e+00_rb,1.2239e+00_rb,1.4553e+00_rb,1.7040e+00_rb,1.9702e+00_rb/)\n      kao(:, 4, 8) = (/ &\n     &7.6856e-01_rb,9.4025e-01_rb,1.1316e+00_rb,1.3386e+00_rb,1.5605e+00_rb/)\n      kao(:, 5, 8) = (/ &\n     &5.7616e-01_rb,7.1359e-01_rb,8.6832e-01_rb,1.0388e+00_rb,1.2228e+00_rb/)\n      kao(:, 6, 8) = (/ &\n     &4.2350e-01_rb,5.3268e-01_rb,6.5605e-01_rb,7.9334e-01_rb,9.4223e-01_rb/)\n      kao(:, 7, 8) = (/ &\n     &3.0686e-01_rb,3.9225e-01_rb,4.9010e-01_rb,5.9944e-01_rb,7.1967e-01_rb/)\n      kao(:, 8, 8) = (/ &\n     &2.2070e-01_rb,2.8688e-01_rb,3.6348e-01_rb,4.5007e-01_rb,5.4597e-01_rb/)\n      kao(:, 9, 8) = (/ &\n     &1.5750e-01_rb,2.0832e-01_rb,2.6774e-01_rb,3.3584e-01_rb,4.1169e-01_rb/)\n      kao(:,10, 8) = (/ &\n     &1.1458e-01_rb,1.5398e-01_rb,2.0047e-01_rb,2.5420e-01_rb,3.1452e-01_rb/)\n      kao(:,11, 8) = (/ &\n     &9.6352e-02_rb,1.2945e-01_rb,1.6850e-01_rb,2.1343e-01_rb,2.6418e-01_rb/)\n      kao(:,12, 8) = (/ &\n     &8.0859e-02_rb,1.0869e-01_rb,1.4142e-01_rb,1.7905e-01_rb,2.2159e-01_rb/)\n      kao(:,13, 8) = (/ &\n     &6.7685e-02_rb,9.1028e-02_rb,1.1838e-01_rb,1.4990e-01_rb,1.8559e-01_rb/)\n      kao(:, 1, 9) = (/ &\n     &5.2550e+00_rb,6.3269e+00_rb,7.5188e+00_rb,8.8046e+00_rb,1.0194e+01_rb/)\n      kao(:, 2, 9) = (/ &\n     &4.6603e+00_rb,5.6500e+00_rb,6.7441e+00_rb,7.9369e+00_rb,9.2112e+00_rb/)\n      kao(:, 3, 9) = (/ &\n     &3.9124e+00_rb,4.7902e+00_rb,5.7591e+00_rb,6.8243e+00_rb,7.9677e+00_rb/)\n      kao(:, 4, 9) = (/ &\n     &3.2096e+00_rb,3.9597e+00_rb,4.8029e+00_rb,5.7377e+00_rb,6.7626e+00_rb/)\n      kao(:, 5, 9) = (/ &\n     &2.5970e+00_rb,3.2435e+00_rb,3.9726e+00_rb,4.7826e+00_rb,5.6814e+00_rb/)\n      kao(:, 6, 9) = (/ &\n     &2.0409e+00_rb,2.5854e+00_rb,3.2065e+00_rb,3.9078e+00_rb,4.6887e+00_rb/)\n      kao(:, 7, 9) = (/ &\n     &1.5708e+00_rb,2.0187e+00_rb,2.5381e+00_rb,3.1327e+00_rb,3.8016e+00_rb/)\n      kao(:, 8, 9) = (/ &\n     &1.1892e+00_rb,1.5546e+00_rb,1.9836e+00_rb,2.4782e+00_rb,3.0361e+00_rb/)\n      kao(:, 9, 9) = (/ &\n     &8.8412e-01_rb,1.1765e+00_rb,1.5263e+00_rb,1.9325e+00_rb,2.3921e+00_rb/)\n      kao(:,10, 9) = (/ &\n     &6.6160e-01_rb,8.9598e-01_rb,1.1789e+00_rb,1.5110e+00_rb,1.8897e+00_rb/)\n      kao(:,11, 9) = (/ &\n     &5.6952e-01_rb,7.7339e-01_rb,1.0185e+00_rb,1.3041e+00_rb,1.6292e+00_rb/)\n      kao(:,12, 9) = (/ &\n     &4.8820e-01_rb,6.6319e-01_rb,8.7290e-01_rb,1.1167e+00_rb,1.3956e+00_rb/)\n      kao(:,13, 9) = (/ &\n     &4.1555e-01_rb,5.6459e-01_rb,7.4208e-01_rb,9.4959e-01_rb,1.1894e+00_rb/)\n      kao(:, 1,10) = (/ &\n     &1.2977e+01_rb,1.5399e+01_rb,1.8084e+01_rb,2.1107e+01_rb,2.4279e+01_rb/)\n      kao(:, 2,10) = (/ &\n     &1.2242e+01_rb,1.4713e+01_rb,1.7530e+01_rb,2.0660e+01_rb,2.4161e+01_rb/)\n      kao(:, 3,10) = (/ &\n     &1.0793e+01_rb,1.3120e+01_rb,1.5954e+01_rb,1.9118e+01_rb,2.2561e+01_rb/)\n      kao(:, 4,10) = (/ &\n     &9.2115e+00_rb,1.1467e+01_rb,1.4090e+01_rb,1.6870e+01_rb,1.9865e+01_rb/)\n      kao(:, 5,10) = (/ &\n     &7.7076e+00_rb,9.6964e+00_rb,1.2018e+01_rb,1.4581e+01_rb,1.7283e+01_rb/)\n      kao(:, 6,10) = (/ &\n     &6.3938e+00_rb,8.1632e+00_rb,1.0170e+01_rb,1.2328e+01_rb,1.4702e+01_rb/)\n      kao(:, 7,10) = (/ &\n     &5.2643e+00_rb,6.8431e+00_rb,8.5879e+00_rb,1.0497e+01_rb,1.2599e+01_rb/)\n      kao(:, 8,10) = (/ &\n     &4.2306e+00_rb,5.5592e+00_rb,7.0542e+00_rb,8.7515e+00_rb,1.0687e+01_rb/)\n      kao(:, 9,10) = (/ &\n     &3.3029e+00_rb,4.4196e+00_rb,5.6740e+00_rb,7.1182e+00_rb,8.8343e+00_rb/)\n      kao(:,10,10) = (/ &\n     &2.6002e+00_rb,3.5171e+00_rb,4.6049e+00_rb,5.8654e+00_rb,7.3550e+00_rb/)\n      kao(:,11,10) = (/ &\n     &2.3411e+00_rb,3.1582e+00_rb,4.1576e+00_rb,5.3440e+00_rb,6.7154e+00_rb/)\n      kao(:,12,10) = (/ &\n     &2.0671e+00_rb,2.8097e+00_rb,3.7158e+00_rb,4.7938e+00_rb,5.9967e+00_rb/)\n      kao(:,13,10) = (/ &\n     &1.8130e+00_rb,2.4724e+00_rb,3.2908e+00_rb,4.2191e+00_rb,5.2351e+00_rb/)\n      kao(:, 1,11) = (/ &\n     &1.7369e+01_rb,2.0982e+01_rb,2.4652e+01_rb,2.8692e+01_rb,3.3179e+01_rb/)\n      kao(:, 2,11) = (/ &\n     &1.6823e+01_rb,2.0457e+01_rb,2.4236e+01_rb,2.8171e+01_rb,3.2333e+01_rb/)\n      kao(:, 3,11) = (/ &\n     &1.5375e+01_rb,1.8905e+01_rb,2.2457e+01_rb,2.6420e+01_rb,3.0766e+01_rb/)\n      kao(:, 4,11) = (/ &\n     &1.3375e+01_rb,1.6618e+01_rb,2.0128e+01_rb,2.4207e+01_rb,2.8664e+01_rb/)\n      kao(:, 5,11) = (/ &\n     &1.1552e+01_rb,1.4477e+01_rb,1.7747e+01_rb,2.1616e+01_rb,2.5966e+01_rb/)\n      kao(:, 6,11) = (/ &\n     &9.7662e+00_rb,1.2339e+01_rb,1.5425e+01_rb,1.9082e+01_rb,2.3024e+01_rb/)\n      kao(:, 7,11) = (/ &\n     &8.0435e+00_rb,1.0356e+01_rb,1.3162e+01_rb,1.6422e+01_rb,1.9976e+01_rb/)\n      kao(:, 8,11) = (/ &\n     &6.6475e+00_rb,8.6800e+00_rb,1.1208e+01_rb,1.4127e+01_rb,1.7194e+01_rb/)\n      kao(:, 9,11) = (/ &\n     &5.4286e+00_rb,7.1938e+00_rb,9.4274e+00_rb,1.1995e+01_rb,1.4788e+01_rb/)\n      kao(:,10,11) = (/ &\n     &4.4519e+00_rb,5.9777e+00_rb,7.8591e+00_rb,1.0067e+01_rb,1.2572e+01_rb/)\n      kao(:,11,11) = (/ &\n     &4.1097e+00_rb,5.5519e+00_rb,7.2615e+00_rb,9.2610e+00_rb,1.1615e+01_rb/)\n      kao(:,12,11) = (/ &\n     &3.7565e+00_rb,5.0648e+00_rb,6.6341e+00_rb,8.4916e+00_rb,1.0710e+01_rb/)\n      kao(:,13,11) = (/ &\n     &3.3842e+00_rb,4.5598e+00_rb,5.9909e+00_rb,7.7387e+00_rb,9.7720e+00_rb/)\n      kao(:, 1,12) = (/ &\n     &2.2275e+01_rb,2.7471e+01_rb,3.3492e+01_rb,4.0225e+01_rb,4.7465e+01_rb/)\n      kao(:, 2,12) = (/ &\n     &2.2476e+01_rb,2.7446e+01_rb,3.3072e+01_rb,3.9336e+01_rb,4.6205e+01_rb/)\n      kao(:, 3,12) = (/ &\n     &2.1150e+01_rb,2.6276e+01_rb,3.1885e+01_rb,3.7595e+01_rb,4.3863e+01_rb/)\n      kao(:, 4,12) = (/ &\n     &1.9455e+01_rb,2.4367e+01_rb,2.9875e+01_rb,3.5713e+01_rb,4.1802e+01_rb/)\n      kao(:, 5,12) = (/ &\n     &1.7406e+01_rb,2.2244e+01_rb,2.7648e+01_rb,3.3299e+01_rb,3.9489e+01_rb/)\n      kao(:, 6,12) = (/ &\n     &1.5271e+01_rb,1.9641e+01_rb,2.4614e+01_rb,3.0133e+01_rb,3.6348e+01_rb/)\n      kao(:, 7,12) = (/ &\n     &1.3343e+01_rb,1.7102e+01_rb,2.1495e+01_rb,2.6582e+01_rb,3.2562e+01_rb/)\n      kao(:, 8,12) = (/ &\n     &1.1399e+01_rb,1.4767e+01_rb,1.8657e+01_rb,2.3239e+01_rb,2.8870e+01_rb/)\n      kao(:, 9,12) = (/ &\n     &9.4462e+00_rb,1.2437e+01_rb,1.5942e+01_rb,2.0083e+01_rb,2.5175e+01_rb/)\n      kao(:,10,12) = (/ &\n     &7.9561e+00_rb,1.0576e+01_rb,1.3751e+01_rb,1.7625e+01_rb,2.2224e+01_rb/)\n      kao(:,11,12) = (/ &\n     &7.6703e+00_rb,1.0214e+01_rb,1.3362e+01_rb,1.7172e+01_rb,2.1565e+01_rb/)\n      kao(:,12,12) = (/ &\n     &7.3002e+00_rb,9.7613e+00_rb,1.2808e+01_rb,1.6448e+01_rb,2.0508e+01_rb/)\n      kao(:,13,12) = (/ &\n     &6.8227e+00_rb,9.1662e+00_rb,1.2005e+01_rb,1.5291e+01_rb,1.9104e+01_rb/)\n      kao(:, 1,13) = (/ &\n     &2.8154e+01_rb,3.5750e+01_rb,4.4791e+01_rb,5.4873e+01_rb,6.6140e+01_rb/)\n      kao(:, 2,13) = (/ &\n     &2.8745e+01_rb,3.6229e+01_rb,4.5340e+01_rb,5.5950e+01_rb,6.7860e+01_rb/)\n      kao(:, 3,13) = (/ &\n     &2.8731e+01_rb,3.5740e+01_rb,4.4190e+01_rb,5.4581e+01_rb,6.6390e+01_rb/)\n      kao(:, 4,13) = (/ &\n     &2.7586e+01_rb,3.5028e+01_rb,4.3053e+01_rb,5.2513e+01_rb,6.3590e+01_rb/)\n      kao(:, 5,13) = (/ &\n     &2.6083e+01_rb,3.3437e+01_rb,4.1632e+01_rb,5.0781e+01_rb,6.1113e+01_rb/)\n      kao(:, 6,13) = (/ &\n     &2.3829e+01_rb,3.1109e+01_rb,3.9228e+01_rb,4.8371e+01_rb,5.8278e+01_rb/)\n      kao(:, 7,13) = (/ &\n     &2.1209e+01_rb,2.8372e+01_rb,3.6376e+01_rb,4.5363e+01_rb,5.5372e+01_rb/)\n      kao(:, 8,13) = (/ &\n     &1.8790e+01_rb,2.5354e+01_rb,3.3043e+01_rb,4.1793e+01_rb,5.1443e+01_rb/)\n      kao(:, 9,13) = (/ &\n     &1.6798e+01_rb,2.2642e+01_rb,2.9578e+01_rb,3.7822e+01_rb,4.7058e+01_rb/)\n      kao(:,10,13) = (/ &\n     &1.4972e+01_rb,2.0558e+01_rb,2.6854e+01_rb,3.4253e+01_rb,4.2864e+01_rb/)\n      kao(:,11,13) = (/ &\n     &1.5310e+01_rb,2.0781e+01_rb,2.6920e+01_rb,3.4183e+01_rb,4.2625e+01_rb/)\n      kao(:,12,13) = (/ &\n     &1.5266e+01_rb,2.0520e+01_rb,2.6628e+01_rb,3.3712e+01_rb,4.2182e+01_rb/)\n      kao(:,13,13) = (/ &\n     &1.4957e+01_rb,1.9939e+01_rb,2.5957e+01_rb,3.3111e+01_rb,4.1486e+01_rb/)\n      kao(:, 1,14) = (/ &\n     &4.6330e+01_rb,6.0030e+01_rb,7.5480e+01_rb,9.2536e+01_rb,1.1059e+02_rb/)\n      kao(:, 2,14) = (/ &\n     &4.4855e+01_rb,5.8960e+01_rb,7.5059e+01_rb,9.2958e+01_rb,1.1209e+02_rb/)\n      kao(:, 3,14) = (/ &\n     &4.1447e+01_rb,5.4787e+01_rb,7.1113e+01_rb,8.9291e+01_rb,1.0911e+02_rb/)\n      kao(:, 4,14) = (/ &\n     &3.9104e+01_rb,5.0668e+01_rb,6.5934e+01_rb,8.3732e+01_rb,1.0396e+02_rb/)\n      kao(:, 5,14) = (/ &\n     &3.8023e+01_rb,4.8275e+01_rb,6.1835e+01_rb,7.8920e+01_rb,9.8684e+01_rb/)\n      kao(:, 6,14) = (/ &\n     &3.6671e+01_rb,4.6928e+01_rb,5.9373e+01_rb,7.4910e+01_rb,9.4120e+01_rb/)\n      kao(:, 7,14) = (/ &\n     &3.4713e+01_rb,4.5254e+01_rb,5.8164e+01_rb,7.3270e+01_rb,9.1067e+01_rb/)\n      kao(:, 8,14) = (/ &\n     &3.2317e+01_rb,4.2931e+01_rb,5.6350e+01_rb,7.1845e+01_rb,8.9533e+01_rb/)\n      kao(:, 9,14) = (/ &\n     &2.9466e+01_rb,3.9947e+01_rb,5.3450e+01_rb,6.9454e+01_rb,8.7436e+01_rb/)\n      kao(:,10,14) = (/ &\n     &2.7304e+01_rb,3.7491e+01_rb,5.1151e+01_rb,6.7458e+01_rb,8.6217e+01_rb/)\n      kao(:,11,14) = (/ &\n     &2.9371e+01_rb,4.0579e+01_rb,5.5614e+01_rb,7.3135e+01_rb,9.3406e+01_rb/)\n      kao(:,12,14) = (/ &\n     &3.1557e+01_rb,4.3832e+01_rb,5.9668e+01_rb,7.8288e+01_rb,9.9282e+01_rb/)\n      kao(:,13,14) = (/ &\n     &3.3702e+01_rb,4.7002e+01_rb,6.3302e+01_rb,8.2327e+01_rb,1.0363e+02_rb/)\n      kao(:, 1,15) = (/ &\n     &7.1097e+01_rb,9.1809e+01_rb,1.1513e+02_rb,1.4077e+02_rb,1.6931e+02_rb/)\n      kao(:, 2,15) = (/ &\n     &7.6481e+01_rb,9.9988e+01_rb,1.2655e+02_rb,1.5641e+02_rb,1.9001e+02_rb/)\n      kao(:, 3,15) = (/ &\n     &7.6089e+01_rb,1.0186e+02_rb,1.3121e+02_rb,1.6509e+02_rb,2.0316e+02_rb/)\n      kao(:, 4,15) = (/ &\n     &7.1689e+01_rb,9.8693e+01_rb,1.3061e+02_rb,1.6745e+02_rb,2.0924e+02_rb/)\n      kao(:, 5,15) = (/ &\n     &6.5396e+01_rb,9.2850e+01_rb,1.2644e+02_rb,1.6569e+02_rb,2.1030e+02_rb/)\n      kao(:, 6,15) = (/ &\n     &5.9839e+01_rb,8.4120e+01_rb,1.1791e+02_rb,1.5835e+02_rb,2.0497e+02_rb/)\n      kao(:, 7,15) = (/ &\n     &5.7504e+01_rb,7.7966e+01_rb,1.0776e+02_rb,1.4729e+02_rb,1.9476e+02_rb/)\n      kao(:, 8,15) = (/ &\n     &5.7004e+01_rb,7.5268e+01_rb,1.0086e+02_rb,1.3678e+02_rb,1.8339e+02_rb/)\n      kao(:, 9,15) = (/ &\n     &5.5577e+01_rb,7.3906e+01_rb,9.7044e+01_rb,1.2904e+02_rb,1.7226e+02_rb/)\n      kao(:,10,15) = (/ &\n     &5.5416e+01_rb,7.4211e+01_rb,9.6440e+01_rb,1.2687e+02_rb,1.6750e+02_rb/)\n      kao(:,11,15) = (/ &\n     &6.2860e+01_rb,8.4332e+01_rb,1.0913e+02_rb,1.4265e+02_rb,1.8694e+02_rb/)\n      kao(:,12,15) = (/ &\n     &7.1048e+01_rb,9.5286e+01_rb,1.2362e+02_rb,1.6046e+02_rb,2.0975e+02_rb/)\n      kao(:,13,15) = (/ &\n     &7.9451e+01_rb,1.0631e+02_rb,1.3951e+02_rb,1.8076e+02_rb,2.3534e+02_rb/)\n      kao(:, 1,16) = (/ &\n     &7.6064e+01_rb,1.0164e+02_rb,1.3126e+02_rb,1.6469e+02_rb,2.0152e+02_rb/)\n      kao(:, 2,16) = (/ &\n     &8.3803e+01_rb,1.1323e+02_rb,1.4816e+02_rb,1.8796e+02_rb,2.3219e+02_rb/)\n      kao(:, 3,16) = (/ &\n     &8.7402e+01_rb,1.1813e+02_rb,1.5778e+02_rb,2.0377e+02_rb,2.5553e+02_rb/)\n      kao(:, 4,16) = (/ &\n     &8.7865e+01_rb,1.1968e+02_rb,1.6142e+02_rb,2.1263e+02_rb,2.7144e+02_rb/)\n      kao(:, 5,16) = (/ &\n     &8.6499e+01_rb,1.2062e+02_rb,1.6367e+02_rb,2.1790e+02_rb,2.8301e+02_rb/)\n      kao(:, 6,16) = (/ &\n     &8.2494e+01_rb,1.1893e+02_rb,1.6400e+02_rb,2.2086e+02_rb,2.8964e+02_rb/)\n      kao(:, 7,16) = (/ &\n     &7.7078e+01_rb,1.1526e+02_rb,1.6302e+02_rb,2.2306e+02_rb,2.9645e+02_rb/)\n      kao(:, 8,16) = (/ &\n     &7.0841e+01_rb,1.1011e+02_rb,1.6059e+02_rb,2.2458e+02_rb,3.0342e+02_rb/)\n      kao(:, 9,16) = (/ &\n     &7.4013e+01_rb,1.0313e+02_rb,1.5566e+02_rb,2.2324e+02_rb,3.0785e+02_rb/)\n      kao(:,10,16) = (/ &\n     &8.3043e+01_rb,1.0119e+02_rb,1.5304e+02_rb,2.2535e+02_rb,3.1705e+02_rb/)\n      kao(:,11,16) = (/ &\n     &1.0007e+02_rb,1.2237e+02_rb,1.8107e+02_rb,2.6762e+02_rb,3.7672e+02_rb/)\n      kao(:,12,16) = (/ &\n     &1.1998e+02_rb,1.4801e+02_rb,2.1370e+02_rb,3.1623e+02_rb,4.4496e+02_rb/)\n      kao(:,13,16) = (/ &\n     &1.4282e+02_rb,1.7830e+02_rb,2.5018e+02_rb,3.7037e+02_rb,5.2070e+02_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &1.3000e-04_rb,1.6216e-04_rb,2.0768e-04_rb,2.6864e-04_rb,3.3497e-04_rb/)\n      kbo(:,14, 1) = (/ &\n     &1.0850e-04_rb,1.3602e-04_rb,1.7553e-04_rb,2.2686e-04_rb,2.8162e-04_rb/)\n      kbo(:,15, 1) = (/ &\n     &9.0864e-05_rb,1.1476e-04_rb,1.4832e-04_rb,1.9081e-04_rb,2.3698e-04_rb/)\n      kbo(:,16, 1) = (/ &\n     &7.6202e-05_rb,9.6897e-05_rb,1.2521e-04_rb,1.6032e-04_rb,1.9925e-04_rb/)\n      kbo(:,17, 1) = (/ &\n     &6.3984e-05_rb,8.1671e-05_rb,1.0565e-04_rb,1.3448e-04_rb,1.6696e-04_rb/)\n      kbo(:,18, 1) = (/ &\n     &5.3749e-05_rb,6.8759e-05_rb,8.9036e-05_rb,1.1274e-04_rb,1.3824e-04_rb/)\n      kbo(:,19, 1) = (/ &\n     &4.5160e-05_rb,5.7874e-05_rb,7.4954e-05_rb,9.4487e-05_rb,1.1485e-04_rb/)\n      kbo(:,20, 1) = (/ &\n     &3.8050e-05_rb,4.8934e-05_rb,6.3376e-05_rb,7.9393e-05_rb,9.5565e-05_rb/)\n      kbo(:,21, 1) = (/ &\n     &3.2121e-05_rb,4.1368e-05_rb,5.3585e-05_rb,6.6749e-05_rb,7.9704e-05_rb/)\n      kbo(:,22, 1) = (/ &\n     &2.7597e-05_rb,3.5606e-05_rb,4.6066e-05_rb,5.6919e-05_rb,6.7252e-05_rb/)\n      kbo(:,23, 1) = (/ &\n     &2.3703e-05_rb,3.0672e-05_rb,3.9251e-05_rb,4.8622e-05_rb,5.6783e-05_rb/)\n      kbo(:,24, 1) = (/ &\n     &2.0444e-05_rb,2.6471e-05_rb,3.3535e-05_rb,4.1441e-05_rb,4.8070e-05_rb/)\n      kbo(:,25, 1) = (/ &\n     &1.7691e-05_rb,2.2899e-05_rb,2.8737e-05_rb,3.4776e-05_rb,4.0820e-05_rb/)\n      kbo(:,26, 1) = (/ &\n     &1.5391e-05_rb,1.9900e-05_rb,2.4708e-05_rb,2.9438e-05_rb,3.4884e-05_rb/)\n      kbo(:,27, 1) = (/ &\n     &1.3401e-05_rb,1.7231e-05_rb,2.1300e-05_rb,2.5041e-05_rb,2.9843e-05_rb/)\n      kbo(:,28, 1) = (/ &\n     &1.1671e-05_rb,1.4827e-05_rb,1.8383e-05_rb,2.1307e-05_rb,2.5549e-05_rb/)\n      kbo(:,29, 1) = (/ &\n     &1.0183e-05_rb,1.2798e-05_rb,1.5535e-05_rb,1.8197e-05_rb,2.1838e-05_rb/)\n      kbo(:,30, 1) = (/ &\n     &8.8844e-06_rb,1.1043e-05_rb,1.3172e-05_rb,1.5593e-05_rb,1.8678e-05_rb/)\n      kbo(:,31, 1) = (/ &\n     &7.7313e-06_rb,9.5518e-06_rb,1.1237e-05_rb,1.3382e-05_rb,1.5999e-05_rb/)\n      kbo(:,32, 1) = (/ &\n     &6.6794e-06_rb,8.2781e-06_rb,9.5924e-06_rb,1.1496e-05_rb,1.3717e-05_rb/)\n      kbo(:,33, 1) = (/ &\n     &5.7815e-06_rb,7.0042e-06_rb,8.2098e-06_rb,9.8489e-06_rb,1.1766e-05_rb/)\n      kbo(:,34, 1) = (/ &\n     &4.9641e-06_rb,5.9235e-06_rb,7.0090e-06_rb,8.3895e-06_rb,1.0037e-05_rb/)\n      kbo(:,35, 1) = (/ &\n     &4.1780e-06_rb,4.9520e-06_rb,5.8797e-06_rb,7.0288e-06_rb,8.4123e-06_rb/)\n      kbo(:,36, 1) = (/ &\n     &3.4370e-06_rb,4.0690e-06_rb,4.8335e-06_rb,5.7766e-06_rb,6.9140e-06_rb/)\n      kbo(:,37, 1) = (/ &\n     &2.7366e-06_rb,3.2617e-06_rb,3.8617e-06_rb,4.6224e-06_rb,5.5308e-06_rb/)\n      kbo(:,38, 1) = (/ &\n     &2.1763e-06_rb,2.6155e-06_rb,3.0811e-06_rb,3.6939e-06_rb,4.4152e-06_rb/)\n      kbo(:,39, 1) = (/ &\n     &1.7313e-06_rb,2.1017e-06_rb,2.4606e-06_rb,2.9519e-06_rb,3.5266e-06_rb/)\n      kbo(:,40, 1) = (/ &\n     &1.3469e-06_rb,1.6693e-06_rb,1.9344e-06_rb,2.3182e-06_rb,2.7667e-06_rb/)\n      kbo(:,41, 1) = (/ &\n     &1.0461e-06_rb,1.2927e-06_rb,1.5201e-06_rb,1.8107e-06_rb,2.1653e-06_rb/)\n      kbo(:,42, 1) = (/ &\n     &8.0658e-07_rb,1.0022e-06_rb,1.1943e-06_rb,1.4143e-06_rb,1.6945e-06_rb/)\n      kbo(:,43, 1) = (/ &\n     &6.1022e-07_rb,7.6847e-07_rb,9.3637e-07_rb,1.0945e-06_rb,1.3137e-06_rb/)\n      kbo(:,44, 1) = (/ &\n     &4.5840e-07_rb,5.8613e-07_rb,7.2558e-07_rb,8.4731e-07_rb,1.0130e-06_rb/)\n      kbo(:,45, 1) = (/ &\n     &3.4424e-07_rb,4.4504e-07_rb,5.5242e-07_rb,6.5691e-07_rb,7.7925e-07_rb/)\n      kbo(:,46, 1) = (/ &\n     &2.5697e-07_rb,3.3261e-07_rb,4.1921e-07_rb,5.1218e-07_rb,5.9773e-07_rb/)\n      kbo(:,47, 1) = (/ &\n     &1.8987e-07_rb,2.4567e-07_rb,3.1544e-07_rb,3.9053e-07_rb,4.5787e-07_rb/)\n      kbo(:,48, 1) = (/ &\n     &1.4058e-07_rb,1.8138e-07_rb,2.3483e-07_rb,2.9330e-07_rb,3.5197e-07_rb/)\n      kbo(:,49, 1) = (/ &\n     &1.0462e-07_rb,1.3385e-07_rb,1.7347e-07_rb,2.2053e-07_rb,2.7396e-07_rb/)\n      kbo(:,50, 1) = (/ &\n     &7.9205e-08_rb,9.9611e-08_rb,1.2890e-07_rb,1.6695e-07_rb,2.0670e-07_rb/)\n      kbo(:,51, 1) = (/ &\n     &6.0628e-08_rb,7.4396e-08_rb,9.6049e-08_rb,1.2454e-07_rb,1.5638e-07_rb/)\n      kbo(:,52, 1) = (/ &\n     &4.5002e-08_rb,5.5943e-08_rb,7.1532e-08_rb,9.2844e-08_rb,1.1852e-07_rb/)\n      kbo(:,53, 1) = (/ &\n     &3.2555e-08_rb,4.2490e-08_rb,5.3383e-08_rb,6.9149e-08_rb,8.9727e-08_rb/)\n      kbo(:,54, 1) = (/ &\n     &2.3696e-08_rb,3.2653e-08_rb,4.0140e-08_rb,5.1914e-08_rb,6.7441e-08_rb/)\n      kbo(:,55, 1) = (/ &\n     &1.7247e-08_rb,2.4546e-08_rb,3.0469e-08_rb,3.9087e-08_rb,5.0840e-08_rb/)\n      kbo(:,56, 1) = (/ &\n     &1.2515e-08_rb,1.8025e-08_rb,2.3296e-08_rb,2.9456e-08_rb,3.8300e-08_rb/)\n      kbo(:,57, 1) = (/ &\n     &9.0211e-09_rb,1.3183e-08_rb,1.7891e-08_rb,2.2220e-08_rb,2.8857e-08_rb/)\n      kbo(:,58, 1) = (/ &\n     &6.4935e-09_rb,9.6472e-09_rb,1.3706e-08_rb,1.6858e-08_rb,2.1803e-08_rb/)\n      kbo(:,59, 1) = (/ &\n     &5.0413e-09_rb,7.5477e-09_rb,1.0800e-08_rb,1.3392e-08_rb,1.7290e-08_rb/)\n      kbo(:,13, 2) = (/ &\n     &3.6782e-04_rb,4.0460e-04_rb,4.6828e-04_rb,5.6427e-04_rb,6.8387e-04_rb/)\n      kbo(:,14, 2) = (/ &\n     &3.0206e-04_rb,3.3534e-04_rb,3.8904e-04_rb,4.6908e-04_rb,5.7354e-04_rb/)\n      kbo(:,15, 2) = (/ &\n     &2.4903e-04_rb,2.7718e-04_rb,3.2574e-04_rb,3.9271e-04_rb,4.8202e-04_rb/)\n      kbo(:,16, 2) = (/ &\n     &2.0570e-04_rb,2.3043e-04_rb,2.7323e-04_rb,3.2940e-04_rb,4.0539e-04_rb/)\n      kbo(:,17, 2) = (/ &\n     &1.6973e-04_rb,1.9226e-04_rb,2.2908e-04_rb,2.7627e-04_rb,3.4057e-04_rb/)\n      kbo(:,18, 2) = (/ &\n     &1.4059e-04_rb,1.6018e-04_rb,1.9182e-04_rb,2.3171e-04_rb,2.8730e-04_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.1617e-04_rb,1.3358e-04_rb,1.6042e-04_rb,1.9424e-04_rb,2.4177e-04_rb/)\n      kbo(:,20, 2) = (/ &\n     &9.6546e-05_rb,1.1187e-04_rb,1.3461e-04_rb,1.6319e-04_rb,2.0430e-04_rb/)\n      kbo(:,21, 2) = (/ &\n     &8.0465e-05_rb,9.3512e-05_rb,1.1260e-04_rb,1.3712e-04_rb,1.7240e-04_rb/)\n      kbo(:,22, 2) = (/ &\n     &6.7521e-05_rb,7.9100e-05_rb,9.4853e-05_rb,1.1694e-04_rb,1.4756e-04_rb/)\n      kbo(:,23, 2) = (/ &\n     &5.6632e-05_rb,6.7211e-05_rb,8.0875e-05_rb,9.9624e-05_rb,1.2638e-04_rb/)\n      kbo(:,24, 2) = (/ &\n     &4.7866e-05_rb,5.7310e-05_rb,6.9154e-05_rb,8.5301e-05_rb,1.0831e-04_rb/)\n      kbo(:,25, 2) = (/ &\n     &4.0652e-05_rb,4.8933e-05_rb,5.9257e-05_rb,7.3835e-05_rb,9.2951e-05_rb/)\n      kbo(:,26, 2) = (/ &\n     &3.4655e-05_rb,4.1694e-05_rb,5.0935e-05_rb,6.3979e-05_rb,8.0042e-05_rb/)\n      kbo(:,27, 2) = (/ &\n     &2.9633e-05_rb,3.5562e-05_rb,4.3853e-05_rb,5.5348e-05_rb,6.8920e-05_rb/)\n      kbo(:,28, 2) = (/ &\n     &2.5432e-05_rb,3.0614e-05_rb,3.7665e-05_rb,4.7871e-05_rb,5.9328e-05_rb/)\n      kbo(:,29, 2) = (/ &\n     &2.1848e-05_rb,2.6432e-05_rb,3.2844e-05_rb,4.1383e-05_rb,5.1047e-05_rb/)\n      kbo(:,30, 2) = (/ &\n     &1.8680e-05_rb,2.2782e-05_rb,2.8578e-05_rb,3.5766e-05_rb,4.3772e-05_rb/)\n      kbo(:,31, 2) = (/ &\n     &1.5971e-05_rb,1.9690e-05_rb,2.4825e-05_rb,3.0907e-05_rb,3.7564e-05_rb/)\n      kbo(:,32, 2) = (/ &\n     &1.3804e-05_rb,1.6977e-05_rb,2.1562e-05_rb,2.6712e-05_rb,3.2275e-05_rb/)\n      kbo(:,33, 2) = (/ &\n     &1.1945e-05_rb,1.4856e-05_rb,1.8696e-05_rb,2.3037e-05_rb,2.7659e-05_rb/)\n      kbo(:,34, 2) = (/ &\n     &1.0252e-05_rb,1.2851e-05_rb,1.6075e-05_rb,1.9670e-05_rb,2.3561e-05_rb/)\n      kbo(:,35, 2) = (/ &\n     &8.6288e-06_rb,1.0847e-05_rb,1.3532e-05_rb,1.6502e-05_rb,1.9733e-05_rb/)\n      kbo(:,36, 2) = (/ &\n     &7.0970e-06_rb,8.9246e-06_rb,1.1130e-05_rb,1.3564e-05_rb,1.6217e-05_rb/)\n      kbo(:,37, 2) = (/ &\n     &5.6546e-06_rb,7.0912e-06_rb,8.8667e-06_rb,1.0842e-05_rb,1.2980e-05_rb/)\n      kbo(:,38, 2) = (/ &\n     &4.4964e-06_rb,5.6180e-06_rb,7.0484e-06_rb,8.6481e-06_rb,1.0377e-05_rb/)\n      kbo(:,39, 2) = (/ &\n     &3.5794e-06_rb,4.4460e-06_rb,5.6006e-06_rb,6.9055e-06_rb,8.2935e-06_rb/)\n      kbo(:,40, 2) = (/ &\n     &2.7849e-06_rb,3.4244e-06_rb,4.3497e-06_rb,5.3888e-06_rb,6.5103e-06_rb/)\n      kbo(:,41, 2) = (/ &\n     &2.1634e-06_rb,2.6661e-06_rb,3.3623e-06_rb,4.1856e-06_rb,5.0849e-06_rb/)\n      kbo(:,42, 2) = (/ &\n     &1.6951e-06_rb,2.0688e-06_rb,2.5958e-06_rb,3.2479e-06_rb,3.9733e-06_rb/)\n      kbo(:,43, 2) = (/ &\n     &1.3156e-06_rb,1.5889e-06_rb,1.9703e-06_rb,2.4872e-06_rb,3.0727e-06_rb/)\n      kbo(:,44, 2) = (/ &\n     &1.0083e-06_rb,1.2108e-06_rb,1.4918e-06_rb,1.8898e-06_rb,2.3484e-06_rb/)\n      kbo(:,45, 2) = (/ &\n     &7.7597e-07_rb,9.3178e-07_rb,1.1396e-06_rb,1.4323e-06_rb,1.7919e-06_rb/)\n      kbo(:,46, 2) = (/ &\n     &5.9640e-07_rb,7.1743e-07_rb,8.6664e-07_rb,1.0739e-06_rb,1.3585e-06_rb/)\n      kbo(:,47, 2) = (/ &\n     &4.5875e-07_rb,5.4303e-07_rb,6.5202e-07_rb,8.0415e-07_rb,1.0165e-06_rb/)\n      kbo(:,48, 2) = (/ &\n     &3.5634e-07_rb,4.1385e-07_rb,4.9968e-07_rb,6.0505e-07_rb,7.5779e-07_rb/)\n      kbo(:,49, 2) = (/ &\n     &2.7966e-07_rb,3.1607e-07_rb,3.7849e-07_rb,4.5539e-07_rb,5.6073e-07_rb/)\n      kbo(:,50, 2) = (/ &\n     &2.2335e-07_rb,2.4619e-07_rb,2.8832e-07_rb,3.4563e-07_rb,4.2520e-07_rb/)\n      kbo(:,51, 2) = (/ &\n     &1.6810e-07_rb,1.9184e-07_rb,2.2126e-07_rb,2.6681e-07_rb,3.2272e-07_rb/)\n      kbo(:,52, 2) = (/ &\n     &1.2477e-07_rb,1.5183e-07_rb,1.7051e-07_rb,2.0325e-07_rb,2.4465e-07_rb/)\n      kbo(:,53, 2) = (/ &\n     &9.1697e-08_rb,1.2163e-07_rb,1.3293e-07_rb,1.5546e-07_rb,1.8654e-07_rb/)\n      kbo(:,54, 2) = (/ &\n     &6.8066e-08_rb,9.0724e-08_rb,1.0426e-07_rb,1.1988e-07_rb,1.4459e-07_rb/)\n      kbo(:,55, 2) = (/ &\n     &5.0853e-08_rb,6.8116e-08_rb,8.2949e-08_rb,9.3086e-08_rb,1.1106e-07_rb/)\n      kbo(:,56, 2) = (/ &\n     &3.8097e-08_rb,5.0708e-08_rb,6.6601e-08_rb,7.3097e-08_rb,8.5626e-08_rb/)\n      kbo(:,57, 2) = (/ &\n     &2.8575e-08_rb,3.7778e-08_rb,5.0543e-08_rb,5.7226e-08_rb,6.6193e-08_rb/)\n      kbo(:,58, 2) = (/ &\n     &2.1274e-08_rb,2.8319e-08_rb,3.8061e-08_rb,4.5485e-08_rb,5.1336e-08_rb/)\n      kbo(:,59, 2) = (/ &\n     &1.6785e-08_rb,2.2389e-08_rb,3.0047e-08_rb,3.6850e-08_rb,4.1308e-08_rb/)\n      kbo(:,13, 3) = (/ &\n     &4.8329e-04_rb,7.1031e-04_rb,9.2618e-04_rb,1.1787e-03_rb,1.4998e-03_rb/)\n      kbo(:,14, 3) = (/ &\n     &4.1573e-04_rb,5.9621e-04_rb,7.7781e-04_rb,9.9253e-04_rb,1.2561e-03_rb/)\n      kbo(:,15, 3) = (/ &\n     &3.5745e-04_rb,5.0356e-04_rb,6.5391e-04_rb,8.3999e-04_rb,1.0559e-03_rb/)\n      kbo(:,16, 3) = (/ &\n     &3.0758e-04_rb,4.2512e-04_rb,5.5063e-04_rb,7.1032e-04_rb,8.8405e-04_rb/)\n      kbo(:,17, 3) = (/ &\n     &2.6428e-04_rb,3.5939e-04_rb,4.6476e-04_rb,5.9990e-04_rb,7.3444e-04_rb/)\n      kbo(:,18, 3) = (/ &\n     &2.2620e-04_rb,3.0371e-04_rb,3.9242e-04_rb,5.0569e-04_rb,6.1057e-04_rb/)\n      kbo(:,19, 3) = (/ &\n     &1.9349e-04_rb,2.5703e-04_rb,3.3045e-04_rb,4.2572e-04_rb,5.0885e-04_rb/)\n      kbo(:,20, 3) = (/ &\n     &1.6601e-04_rb,2.1679e-04_rb,2.7938e-04_rb,3.5877e-04_rb,4.2456e-04_rb/)\n      kbo(:,21, 3) = (/ &\n     &1.3973e-04_rb,1.8356e-04_rb,2.3660e-04_rb,3.0163e-04_rb,3.5438e-04_rb/)\n      kbo(:,22, 3) = (/ &\n     &1.2024e-04_rb,1.5775e-04_rb,2.0424e-04_rb,2.5718e-04_rb,2.9870e-04_rb/)\n      kbo(:,23, 3) = (/ &\n     &1.0421e-04_rb,1.3581e-04_rb,1.7576e-04_rb,2.1785e-04_rb,2.5256e-04_rb/)\n      kbo(:,24, 3) = (/ &\n     &9.0642e-05_rb,1.1736e-04_rb,1.5142e-04_rb,1.8334e-04_rb,2.1432e-04_rb/)\n      kbo(:,25, 3) = (/ &\n     &7.8653e-05_rb,1.0139e-04_rb,1.3046e-04_rb,1.5520e-04_rb,1.8200e-04_rb/)\n      kbo(:,26, 3) = (/ &\n     &6.8347e-05_rb,8.8330e-05_rb,1.1221e-04_rb,1.3139e-04_rb,1.5501e-04_rb/)\n      kbo(:,27, 3) = (/ &\n     &5.9438e-05_rb,7.7110e-05_rb,9.6484e-05_rb,1.1163e-04_rb,1.3198e-04_rb/)\n      kbo(:,28, 3) = (/ &\n     &5.1865e-05_rb,6.7062e-05_rb,8.1622e-05_rb,9.5189e-05_rb,1.1250e-04_rb/)\n      kbo(:,29, 3) = (/ &\n     &4.5229e-05_rb,5.8248e-05_rb,6.9371e-05_rb,8.1305e-05_rb,9.5987e-05_rb/)\n      kbo(:,30, 3) = (/ &\n     &3.9548e-05_rb,5.0236e-05_rb,5.8927e-05_rb,6.9361e-05_rb,8.1985e-05_rb/)\n      kbo(:,31, 3) = (/ &\n     &3.4672e-05_rb,4.3357e-05_rb,5.0119e-05_rb,5.9230e-05_rb,7.0087e-05_rb/)\n      kbo(:,32, 3) = (/ &\n     &3.0291e-05_rb,3.6761e-05_rb,4.2859e-05_rb,5.0621e-05_rb,5.9826e-05_rb/)\n      kbo(:,33, 3) = (/ &\n     &2.6343e-05_rb,3.1291e-05_rb,3.6685e-05_rb,4.3251e-05_rb,5.1136e-05_rb/)\n      kbo(:,34, 3) = (/ &\n     &2.2619e-05_rb,2.6479e-05_rb,3.1160e-05_rb,3.6817e-05_rb,4.3454e-05_rb/)\n      kbo(:,35, 3) = (/ &\n     &1.9044e-05_rb,2.2094e-05_rb,2.6069e-05_rb,3.0814e-05_rb,3.6332e-05_rb/)\n      kbo(:,36, 3) = (/ &\n     &1.5660e-05_rb,1.8150e-05_rb,2.1420e-05_rb,2.5318e-05_rb,2.9845e-05_rb/)\n      kbo(:,37, 3) = (/ &\n     &1.2481e-05_rb,1.4567e-05_rb,1.7160e-05_rb,2.0273e-05_rb,2.3924e-05_rb/)\n      kbo(:,38, 3) = (/ &\n     &9.9229e-06_rb,1.1707e-05_rb,1.3728e-05_rb,1.6208e-05_rb,1.9147e-05_rb/)\n      kbo(:,39, 3) = (/ &\n     &7.8980e-06_rb,9.3824e-06_rb,1.0994e-05_rb,1.2956e-05_rb,1.5319e-05_rb/)\n      kbo(:,40, 3) = (/ &\n     &6.1214e-06_rb,7.4148e-06_rb,8.6411e-06_rb,1.0203e-05_rb,1.2052e-05_rb/)\n      kbo(:,41, 3) = (/ &\n     &4.7079e-06_rb,5.8792e-06_rb,6.7814e-06_rb,8.0075e-06_rb,9.4649e-06_rb/)\n      kbo(:,42, 3) = (/ &\n     &3.6048e-06_rb,4.5698e-06_rb,5.3449e-06_rb,6.2854e-06_rb,7.4263e-06_rb/)\n      kbo(:,43, 3) = (/ &\n     &2.7216e-06_rb,3.5076e-06_rb,4.1783e-06_rb,4.8932e-06_rb,5.7661e-06_rb/)\n      kbo(:,44, 3) = (/ &\n     &2.0468e-06_rb,2.6504e-06_rb,3.2648e-06_rb,3.7820e-06_rb,4.4701e-06_rb/)\n      kbo(:,45, 3) = (/ &\n     &1.5361e-06_rb,1.9893e-06_rb,2.5184e-06_rb,2.9393e-06_rb,3.4602e-06_rb/)\n      kbo(:,46, 3) = (/ &\n     &1.1503e-06_rb,1.4832e-06_rb,1.9137e-06_rb,2.2823e-06_rb,2.6719e-06_rb/)\n      kbo(:,47, 3) = (/ &\n     &8.3777e-07_rb,1.0971e-06_rb,1.4217e-06_rb,1.7739e-06_rb,2.0443e-06_rb/)\n      kbo(:,48, 3) = (/ &\n     &6.1407e-07_rb,8.0972e-07_rb,1.0453e-06_rb,1.3363e-06_rb,1.5776e-06_rb/)\n      kbo(:,49, 3) = (/ &\n     &4.3890e-07_rb,5.9676e-07_rb,7.7449e-07_rb,1.0018e-06_rb,1.2151e-06_rb/)\n      kbo(:,50, 3) = (/ &\n     &3.0232e-07_rb,4.3632e-07_rb,5.7501e-07_rb,7.4600e-07_rb,9.3964e-07_rb/)\n      kbo(:,51, 3) = (/ &\n     &2.1820e-07_rb,3.2558e-07_rb,4.2933e-07_rb,5.5411e-07_rb,7.1236e-07_rb/)\n      kbo(:,52, 3) = (/ &\n     &1.6142e-07_rb,2.3096e-07_rb,3.1815e-07_rb,4.1428e-07_rb,5.3670e-07_rb/)\n      kbo(:,53, 3) = (/ &\n     &1.2239e-07_rb,1.5927e-07_rb,2.3415e-07_rb,3.0848e-07_rb,4.0010e-07_rb/)\n      kbo(:,54, 3) = (/ &\n     &9.4287e-08_rb,1.1772e-07_rb,1.7609e-07_rb,2.3226e-07_rb,2.9972e-07_rb/)\n      kbo(:,55, 3) = (/ &\n     &7.3559e-08_rb,8.8158e-08_rb,1.2627e-07_rb,1.7401e-07_rb,2.2659e-07_rb/)\n      kbo(:,56, 3) = (/ &\n     &5.7474e-08_rb,6.7419e-08_rb,8.9064e-08_rb,1.2949e-07_rb,1.7067e-07_rb/)\n      kbo(:,57, 3) = (/ &\n     &4.5317e-08_rb,5.2043e-08_rb,6.5424e-08_rb,9.7761e-08_rb,1.2882e-07_rb/)\n      kbo(:,58, 3) = (/ &\n     &3.4988e-08_rb,4.0617e-08_rb,4.8970e-08_rb,7.1601e-08_rb,9.7431e-08_rb/)\n      kbo(:,59, 3) = (/ &\n     &2.8131e-08_rb,3.2653e-08_rb,3.8986e-08_rb,5.5678e-08_rb,7.6933e-08_rb/)\n      kbo(:,13, 4) = (/ &\n     &1.2375e-03_rb,1.3907e-03_rb,1.6848e-03_rb,2.0764e-03_rb,2.5455e-03_rb/)\n      kbo(:,14, 4) = (/ &\n     &1.0352e-03_rb,1.1626e-03_rb,1.4153e-03_rb,1.7410e-03_rb,2.1410e-03_rb/)\n      kbo(:,15, 4) = (/ &\n     &8.6916e-04_rb,9.7450e-04_rb,1.1918e-03_rb,1.4617e-03_rb,1.8090e-03_rb/)\n      kbo(:,16, 4) = (/ &\n     &7.1556e-04_rb,8.1812e-04_rb,1.0040e-03_rb,1.2311e-03_rb,1.5286e-03_rb/)\n      kbo(:,17, 4) = (/ &\n     &5.8965e-04_rb,6.8521e-04_rb,8.4372e-04_rb,1.0375e-03_rb,1.2976e-03_rb/)\n      kbo(:,18, 4) = (/ &\n     &4.8726e-04_rb,5.7342e-04_rb,7.0979e-04_rb,8.7350e-04_rb,1.0996e-03_rb/)\n      kbo(:,19, 4) = (/ &\n     &4.0346e-04_rb,4.7923e-04_rb,5.9512e-04_rb,7.3474e-04_rb,9.2909e-04_rb/)\n      kbo(:,20, 4) = (/ &\n     &3.3252e-04_rb,4.0340e-04_rb,5.0129e-04_rb,6.2120e-04_rb,7.8738e-04_rb/)\n      kbo(:,21, 4) = (/ &\n     &2.7824e-04_rb,3.3959e-04_rb,4.2206e-04_rb,5.2456e-04_rb,6.6651e-04_rb/)\n      kbo(:,22, 4) = (/ &\n     &2.3686e-04_rb,2.9111e-04_rb,3.6067e-04_rb,4.4836e-04_rb,5.7225e-04_rb/)\n      kbo(:,23, 4) = (/ &\n     &2.0203e-04_rb,2.4985e-04_rb,3.0880e-04_rb,3.8545e-04_rb,4.9113e-04_rb/)\n      kbo(:,24, 4) = (/ &\n     &1.7215e-04_rb,2.1409e-04_rb,2.6491e-04_rb,3.3340e-04_rb,4.2129e-04_rb/)\n      kbo(:,25, 4) = (/ &\n     &1.4744e-04_rb,1.8341e-04_rb,2.2761e-04_rb,2.8826e-04_rb,3.6138e-04_rb/)\n      kbo(:,26, 4) = (/ &\n     &1.2712e-04_rb,1.5795e-04_rb,1.9671e-04_rb,2.5046e-04_rb,3.1109e-04_rb/)\n      kbo(:,27, 4) = (/ &\n     &1.1012e-04_rb,1.3626e-04_rb,1.6969e-04_rb,2.1697e-04_rb,2.6764e-04_rb/)\n      kbo(:,28, 4) = (/ &\n     &9.5268e-05_rb,1.1775e-04_rb,1.4811e-04_rb,1.8739e-04_rb,2.3002e-04_rb/)\n      kbo(:,29, 4) = (/ &\n     &8.1990e-05_rb,1.0183e-04_rb,1.2887e-04_rb,1.6155e-04_rb,1.9779e-04_rb/)\n      kbo(:,30, 4) = (/ &\n     &7.0812e-05_rb,8.8197e-05_rb,1.1209e-04_rb,1.3932e-04_rb,1.6990e-04_rb/)\n      kbo(:,31, 4) = (/ &\n     &6.1297e-05_rb,7.6242e-05_rb,9.7371e-05_rb,1.2004e-04_rb,1.4578e-04_rb/)\n      kbo(:,32, 4) = (/ &\n     &5.3068e-05_rb,6.6743e-05_rb,8.4358e-05_rb,1.0341e-04_rb,1.2514e-04_rb/)\n      kbo(:,33, 4) = (/ &\n     &4.6021e-05_rb,5.8210e-05_rb,7.2823e-05_rb,8.9095e-05_rb,1.0732e-04_rb/)\n      kbo(:,34, 4) = (/ &\n     &3.9611e-05_rb,5.0325e-05_rb,6.2484e-05_rb,7.6131e-05_rb,9.1418e-05_rb/)\n      kbo(:,35, 4) = (/ &\n     &3.3314e-05_rb,4.2493e-05_rb,5.2519e-05_rb,6.3851e-05_rb,7.6543e-05_rb/)\n      kbo(:,36, 4) = (/ &\n     &2.7397e-05_rb,3.4956e-05_rb,4.3170e-05_rb,5.2466e-05_rb,6.2879e-05_rb/)\n      kbo(:,37, 4) = (/ &\n     &2.1842e-05_rb,2.7769e-05_rb,3.4424e-05_rb,4.1912e-05_rb,5.0314e-05_rb/)\n      kbo(:,38, 4) = (/ &\n     &1.7352e-05_rb,2.1971e-05_rb,2.7389e-05_rb,3.3429e-05_rb,4.0195e-05_rb/)\n      kbo(:,39, 4) = (/ &\n     &1.3770e-05_rb,1.7414e-05_rb,2.1778e-05_rb,2.6648e-05_rb,3.2100e-05_rb/)\n      kbo(:,40, 4) = (/ &\n     &1.0696e-05_rb,1.3450e-05_rb,1.6968e-05_rb,2.0795e-05_rb,2.5164e-05_rb/)\n      kbo(:,41, 4) = (/ &\n     &8.2926e-06_rb,1.0301e-05_rb,1.3150e-05_rb,1.6196e-05_rb,1.9663e-05_rb/)\n      kbo(:,42, 4) = (/ &\n     &6.4321e-06_rb,7.9930e-06_rb,1.0153e-05_rb,1.2599e-05_rb,1.5345e-05_rb/)\n      kbo(:,43, 4) = (/ &\n     &4.9294e-06_rb,6.1147e-06_rb,7.7222e-06_rb,9.6711e-06_rb,1.1840e-05_rb/)\n      kbo(:,44, 4) = (/ &\n     &3.7796e-06_rb,4.6518e-06_rb,5.8136e-06_rb,7.3808e-06_rb,9.0677e-06_rb/)\n      kbo(:,45, 4) = (/ &\n     &2.8649e-06_rb,3.5446e-06_rb,4.4045e-06_rb,5.6003e-06_rb,6.9419e-06_rb/)\n      kbo(:,46, 4) = (/ &\n     &2.1636e-06_rb,2.6897e-06_rb,3.3348e-06_rb,4.2109e-06_rb,5.2785e-06_rb/)\n      kbo(:,47, 4) = (/ &\n     &1.6423e-06_rb,2.0325e-06_rb,2.5019e-06_rb,3.1092e-06_rb,3.9697e-06_rb/)\n      kbo(:,48, 4) = (/ &\n     &1.2438e-06_rb,1.5176e-06_rb,1.8805e-06_rb,2.3386e-06_rb,2.9598e-06_rb/)\n      kbo(:,49, 4) = (/ &\n     &9.6637e-07_rb,1.1421e-06_rb,1.4184e-06_rb,1.7520e-06_rb,2.2027e-06_rb/)\n      kbo(:,50, 4) = (/ &\n     &7.6681e-07_rb,8.7015e-07_rb,1.0718e-06_rb,1.3233e-06_rb,1.6436e-06_rb/)\n      kbo(:,51, 4) = (/ &\n     &5.7638e-07_rb,6.6674e-07_rb,8.0765e-07_rb,1.0019e-06_rb,1.2448e-06_rb/)\n      kbo(:,52, 4) = (/ &\n     &4.3579e-07_rb,5.2641e-07_rb,6.1480e-07_rb,7.6360e-07_rb,9.4101e-07_rb/)\n      kbo(:,53, 4) = (/ &\n     &3.2630e-07_rb,4.1175e-07_rb,4.6866e-07_rb,5.7670e-07_rb,7.1273e-07_rb/)\n      kbo(:,54, 4) = (/ &\n     &2.4508e-07_rb,3.1226e-07_rb,3.6234e-07_rb,4.3785e-07_rb,5.4334e-07_rb/)\n      kbo(:,55, 4) = (/ &\n     &1.8867e-07_rb,2.3849e-07_rb,2.8812e-07_rb,3.3656e-07_rb,4.1795e-07_rb/)\n      kbo(:,56, 4) = (/ &\n     &1.3888e-07_rb,1.8052e-07_rb,2.2770e-07_rb,2.5896e-07_rb,3.1922e-07_rb/)\n      kbo(:,57, 4) = (/ &\n     &9.9211e-08_rb,1.3628e-07_rb,1.7309e-07_rb,2.0040e-07_rb,2.4315e-07_rb/)\n      kbo(:,58, 4) = (/ &\n     &7.2311e-08_rb,1.0440e-07_rb,1.3249e-07_rb,1.5839e-07_rb,1.8707e-07_rb/)\n      kbo(:,59, 4) = (/ &\n     &5.6449e-08_rb,8.3969e-08_rb,1.0579e-07_rb,1.2870e-07_rb,1.4987e-07_rb/)\n      kbo(:,13, 5) = (/ &\n     &2.0768e-03_rb,2.8684e-03_rb,3.7718e-03_rb,4.8192e-03_rb,6.0412e-03_rb/)\n      kbo(:,14, 5) = (/ &\n     &1.7564e-03_rb,2.4332e-03_rb,3.1824e-03_rb,4.0625e-03_rb,5.0889e-03_rb/)\n      kbo(:,15, 5) = (/ &\n     &1.4908e-03_rb,2.0712e-03_rb,2.6934e-03_rb,3.4353e-03_rb,4.2909e-03_rb/)\n      kbo(:,16, 5) = (/ &\n     &1.2837e-03_rb,1.7624e-03_rb,2.2850e-03_rb,2.9120e-03_rb,3.6366e-03_rb/)\n      kbo(:,17, 5) = (/ &\n     &1.1007e-03_rb,1.4970e-03_rb,1.9372e-03_rb,2.4633e-03_rb,3.0868e-03_rb/)\n      kbo(:,18, 5) = (/ &\n     &9.3998e-04_rb,1.2697e-03_rb,1.6378e-03_rb,2.0802e-03_rb,2.6082e-03_rb/)\n      kbo(:,19, 5) = (/ &\n     &8.0100e-04_rb,1.0742e-03_rb,1.3849e-03_rb,1.7569e-03_rb,2.2030e-03_rb/)\n      kbo(:,20, 5) = (/ &\n     &6.8663e-04_rb,9.1195e-04_rb,1.1757e-03_rb,1.4883e-03_rb,1.8647e-03_rb/)\n      kbo(:,21, 5) = (/ &\n     &5.8705e-04_rb,7.7399e-04_rb,9.9752e-04_rb,1.2607e-03_rb,1.5771e-03_rb/)\n      kbo(:,22, 5) = (/ &\n     &5.1050e-04_rb,6.6826e-04_rb,8.5880e-04_rb,1.0835e-03_rb,1.3514e-03_rb/)\n      kbo(:,23, 5) = (/ &\n     &4.4216e-04_rb,5.7700e-04_rb,7.3906e-04_rb,9.3102e-04_rb,1.1572e-03_rb/)\n      kbo(:,24, 5) = (/ &\n     &3.8397e-04_rb,4.9926e-04_rb,6.3682e-04_rb,8.0099e-04_rb,9.9155e-04_rb/)\n      kbo(:,25, 5) = (/ &\n     &3.3452e-04_rb,4.3352e-04_rb,5.4972e-04_rb,6.8946e-04_rb,8.5204e-04_rb/)\n      kbo(:,26, 5) = (/ &\n     &2.9253e-04_rb,3.7705e-04_rb,4.7637e-04_rb,5.9546e-04_rb,7.3410e-04_rb/)\n      kbo(:,27, 5) = (/ &\n     &2.5516e-04_rb,3.2740e-04_rb,4.1271e-04_rb,5.1423e-04_rb,6.3183e-04_rb/)\n      kbo(:,28, 5) = (/ &\n     &2.2216e-04_rb,2.8389e-04_rb,3.5748e-04_rb,4.4367e-04_rb,5.4344e-04_rb/)\n      kbo(:,29, 5) = (/ &\n     &1.9425e-04_rb,2.4642e-04_rb,3.0966e-04_rb,3.8285e-04_rb,4.6743e-04_rb/)\n      kbo(:,30, 5) = (/ &\n     &1.6916e-04_rb,2.1405e-04_rb,2.6782e-04_rb,3.3008e-04_rb,4.0176e-04_rb/)\n      kbo(:,31, 5) = (/ &\n     &1.4722e-04_rb,1.8596e-04_rb,2.3162e-04_rb,2.8455e-04_rb,3.4535e-04_rb/)\n      kbo(:,32, 5) = (/ &\n     &1.2822e-04_rb,1.6146e-04_rb,2.0021e-04_rb,2.4528e-04_rb,2.9677e-04_rb/)\n      kbo(:,33, 5) = (/ &\n     &1.1158e-04_rb,1.4011e-04_rb,1.7313e-04_rb,2.1133e-04_rb,2.5496e-04_rb/)\n      kbo(:,34, 5) = (/ &\n     &9.6356e-05_rb,1.2055e-04_rb,1.4854e-04_rb,1.8079e-04_rb,2.1758e-04_rb/)\n      kbo(:,35, 5) = (/ &\n     &8.1343e-05_rb,1.0151e-04_rb,1.2490e-04_rb,1.5178e-04_rb,1.8239e-04_rb/)\n      kbo(:,36, 5) = (/ &\n     &6.6965e-05_rb,8.3520e-05_rb,1.0275e-04_rb,1.2482e-04_rb,1.4993e-04_rb/)\n      kbo(:,37, 5) = (/ &\n     &5.3206e-05_rb,6.6545e-05_rb,8.1990e-05_rb,9.9764e-05_rb,1.2001e-04_rb/)\n      kbo(:,38, 5) = (/ &\n     &4.2208e-05_rb,5.2902e-05_rb,6.5299e-05_rb,7.9577e-05_rb,9.5895e-05_rb/)\n      kbo(:,39, 5) = (/ &\n     &3.3472e-05_rb,4.2041e-05_rb,5.1984e-05_rb,6.3462e-05_rb,7.6593e-05_rb/)\n      kbo(:,40, 5) = (/ &\n     &2.5925e-05_rb,3.2660e-05_rb,4.0509e-05_rb,4.9627e-05_rb,6.0037e-05_rb/)\n      kbo(:,41, 5) = (/ &\n     &2.0003e-05_rb,2.5267e-05_rb,3.1469e-05_rb,3.8672e-05_rb,4.6923e-05_rb/)\n      kbo(:,42, 5) = (/ &\n     &1.5411e-05_rb,1.9519e-05_rb,2.4420e-05_rb,3.0101e-05_rb,3.6637e-05_rb/)\n      kbo(:,43, 5) = (/ &\n     &1.1687e-05_rb,1.4867e-05_rb,1.8698e-05_rb,2.3140e-05_rb,2.8269e-05_rb/)\n      kbo(:,44, 5) = (/ &\n     &8.7679e-06_rb,1.1261e-05_rb,1.4209e-05_rb,1.7673e-05_rb,2.1693e-05_rb/)\n      kbo(:,45, 5) = (/ &\n     &6.5931e-06_rb,8.5087e-06_rb,1.0776e-05_rb,1.3478e-05_rb,1.6614e-05_rb/)\n      kbo(:,46, 5) = (/ &\n     &4.9080e-06_rb,6.3755e-06_rb,8.1160e-06_rb,1.0213e-05_rb,1.2647e-05_rb/)\n      kbo(:,47, 5) = (/ &\n     &3.5919e-06_rb,4.7038e-06_rb,6.0534e-06_rb,7.6485e-06_rb,9.5281e-06_rb/)\n      kbo(:,48, 5) = (/ &\n     &2.6062e-06_rb,3.4739e-06_rb,4.4987e-06_rb,5.7085e-06_rb,7.1618e-06_rb/)\n      kbo(:,49, 5) = (/ &\n     &1.8621e-06_rb,2.5496e-06_rb,3.3246e-06_rb,4.2578e-06_rb,5.3684e-06_rb/)\n      kbo(:,50, 5) = (/ &\n     &1.3311e-06_rb,1.8748e-06_rb,2.4717e-06_rb,3.1893e-06_rb,4.0386e-06_rb/)\n      kbo(:,51, 5) = (/ &\n     &9.8374e-07_rb,1.3665e-06_rb,1.8393e-06_rb,2.3887e-06_rb,3.0388e-06_rb/)\n      kbo(:,52, 5) = (/ &\n     &7.2293e-07_rb,9.8525e-07_rb,1.3616e-06_rb,1.7795e-06_rb,2.2858e-06_rb/)\n      kbo(:,53, 5) = (/ &\n     &5.3539e-07_rb,7.1322e-07_rb,1.0025e-06_rb,1.3275e-06_rb,1.7157e-06_rb/)\n      kbo(:,54, 5) = (/ &\n     &3.9532e-07_rb,5.3074e-07_rb,7.3585e-07_rb,9.9485e-07_rb,1.2941e-06_rb/)\n      kbo(:,55, 5) = (/ &\n     &2.9574e-07_rb,3.9534e-07_rb,5.3898e-07_rb,7.4534e-07_rb,9.7510e-07_rb/)\n      kbo(:,56, 5) = (/ &\n     &2.2158e-07_rb,2.9575e-07_rb,3.9553e-07_rb,5.5662e-07_rb,7.3612e-07_rb/)\n      kbo(:,57, 5) = (/ &\n     &1.7387e-07_rb,2.1999e-07_rb,2.9597e-07_rb,4.1152e-07_rb,5.5434e-07_rb/)\n      kbo(:,58, 5) = (/ &\n     &1.3813e-07_rb,1.6569e-07_rb,2.2197e-07_rb,3.0386e-07_rb,4.1774e-07_rb/)\n      kbo(:,59, 5) = (/ &\n     &1.1153e-07_rb,1.3014e-07_rb,1.7513e-07_rb,2.3832e-07_rb,3.3096e-07_rb/)\n      kbo(:,13, 6) = (/ &\n     &6.2563e-03_rb,8.5754e-03_rb,1.1313e-02_rb,1.4562e-02_rb,1.8439e-02_rb/)\n      kbo(:,14, 6) = (/ &\n     &5.3407e-03_rb,7.2874e-03_rb,9.6031e-03_rb,1.2344e-02_rb,1.5616e-02_rb/)\n      kbo(:,15, 6) = (/ &\n     &4.5624e-03_rb,6.2026e-03_rb,8.1616e-03_rb,1.0480e-02_rb,1.3236e-02_rb/)\n      kbo(:,16, 6) = (/ &\n     &3.8957e-03_rb,5.2793e-03_rb,6.9259e-03_rb,8.8846e-03_rb,1.1202e-02_rb/)\n      kbo(:,17, 6) = (/ &\n     &3.3209e-03_rb,4.4815e-03_rb,5.8698e-03_rb,7.5204e-03_rb,9.4486e-03_rb/)\n      kbo(:,18, 6) = (/ &\n     &2.8290e-03_rb,3.8089e-03_rb,4.9773e-03_rb,6.3684e-03_rb,7.9890e-03_rb/)\n      kbo(:,19, 6) = (/ &\n     &2.4112e-03_rb,3.2462e-03_rb,4.2316e-03_rb,5.4060e-03_rb,6.7720e-03_rb/)\n      kbo(:,20, 6) = (/ &\n     &2.0691e-03_rb,2.7791e-03_rb,3.6122e-03_rb,4.6028e-03_rb,5.7715e-03_rb/)\n      kbo(:,21, 6) = (/ &\n     &1.7739e-03_rb,2.3724e-03_rb,3.0729e-03_rb,3.9123e-03_rb,4.9081e-03_rb/)\n      kbo(:,22, 6) = (/ &\n     &1.5468e-03_rb,2.0535e-03_rb,2.6512e-03_rb,3.3770e-03_rb,4.2260e-03_rb/)\n      kbo(:,23, 6) = (/ &\n     &1.3475e-03_rb,1.7768e-03_rb,2.2959e-03_rb,2.9141e-03_rb,3.6373e-03_rb/)\n      kbo(:,24, 6) = (/ &\n     &1.1752e-03_rb,1.5439e-03_rb,1.9895e-03_rb,2.5170e-03_rb,3.1328e-03_rb/)\n      kbo(:,25, 6) = (/ &\n     &1.0263e-03_rb,1.3444e-03_rb,1.7264e-03_rb,2.1761e-03_rb,2.6990e-03_rb/)\n      kbo(:,26, 6) = (/ &\n     &9.0166e-04_rb,1.1758e-03_rb,1.5031e-03_rb,1.8871e-03_rb,2.3306e-03_rb/)\n      kbo(:,27, 6) = (/ &\n     &7.9141e-04_rb,1.0269e-03_rb,1.3074e-03_rb,1.6348e-03_rb,2.0092e-03_rb/)\n      kbo(:,28, 6) = (/ &\n     &6.9371e-04_rb,8.9592e-04_rb,1.1355e-03_rb,1.4137e-03_rb,1.7327e-03_rb/)\n      kbo(:,29, 6) = (/ &\n     &6.0795e-04_rb,7.8166e-04_rb,9.8572e-04_rb,1.2233e-03_rb,1.4938e-03_rb/)\n      kbo(:,30, 6) = (/ &\n     &5.3230e-04_rb,6.8106e-04_rb,8.5522e-04_rb,1.0576e-03_rb,1.2859e-03_rb/)\n      kbo(:,31, 6) = (/ &\n     &4.6592e-04_rb,5.9303e-04_rb,7.4221e-04_rb,9.1346e-04_rb,1.1061e-03_rb/)\n      kbo(:,32, 6) = (/ &\n     &4.0751e-04_rb,5.1643e-04_rb,6.4366e-04_rb,7.8848e-04_rb,9.5095e-04_rb/)\n      kbo(:,33, 6) = (/ &\n     &3.5610e-04_rb,4.4934e-04_rb,5.5753e-04_rb,6.8015e-04_rb,8.1668e-04_rb/)\n      kbo(:,34, 6) = (/ &\n     &3.0849e-04_rb,3.8773e-04_rb,4.7909e-04_rb,5.8242e-04_rb,6.9697e-04_rb/)\n      kbo(:,35, 6) = (/ &\n     &2.6100e-04_rb,3.2729e-04_rb,4.0344e-04_rb,4.8961e-04_rb,5.8449e-04_rb/)\n      kbo(:,36, 6) = (/ &\n     &2.1525e-04_rb,2.6972e-04_rb,3.3236e-04_rb,4.0320e-04_rb,4.8106e-04_rb/)\n      kbo(:,37, 6) = (/ &\n     &1.7127e-04_rb,2.1505e-04_rb,2.6562e-04_rb,3.2288e-04_rb,3.8605e-04_rb/)\n      kbo(:,38, 6) = (/ &\n     &1.3592e-04_rb,1.7107e-04_rb,2.1184e-04_rb,2.5803e-04_rb,3.0917e-04_rb/)\n      kbo(:,39, 6) = (/ &\n     &1.0785e-04_rb,1.3607e-04_rb,1.6885e-04_rb,2.0614e-04_rb,2.4755e-04_rb/)\n      kbo(:,40, 6) = (/ &\n     &8.3445e-05_rb,1.0573e-04_rb,1.3174e-04_rb,1.6145e-04_rb,1.9465e-04_rb/)\n      kbo(:,41, 6) = (/ &\n     &6.4274e-05_rb,8.1836e-05_rb,1.0238e-04_rb,1.2600e-04_rb,1.5256e-04_rb/)\n      kbo(:,42, 6) = (/ &\n     &4.9425e-05_rb,6.3242e-05_rb,7.9461e-05_rb,9.8197e-05_rb,1.1940e-04_rb/)\n      kbo(:,43, 6) = (/ &\n     &3.7393e-05_rb,4.8142e-05_rb,6.0818e-05_rb,7.5575e-05_rb,9.2337e-05_rb/)\n      kbo(:,44, 6) = (/ &\n     &2.8031e-05_rb,3.6364e-05_rb,4.6223e-05_rb,5.7754e-05_rb,7.0960e-05_rb/)\n      kbo(:,45, 6) = (/ &\n     &2.0952e-05_rb,2.7396e-05_rb,3.5050e-05_rb,4.4048e-05_rb,5.4413e-05_rb/)\n      kbo(:,46, 6) = (/ &\n     &1.5504e-05_rb,2.0469e-05_rb,2.6380e-05_rb,3.3353e-05_rb,4.1465e-05_rb/)\n      kbo(:,47, 6) = (/ &\n     &1.1285e-05_rb,1.5071e-05_rb,1.9596e-05_rb,2.4961e-05_rb,3.1243e-05_rb/)\n      kbo(:,48, 6) = (/ &\n     &8.1713e-06_rb,1.1048e-05_rb,1.4507e-05_rb,1.8626e-05_rb,2.3478e-05_rb/)\n      kbo(:,49, 6) = (/ &\n     &5.8892e-06_rb,8.0594e-06_rb,1.0700e-05_rb,1.3854e-05_rb,1.7591e-05_rb/)\n      kbo(:,50, 6) = (/ &\n     &4.2527e-06_rb,5.8989e-06_rb,7.9160e-06_rb,1.0341e-05_rb,1.3223e-05_rb/)\n      kbo(:,51, 6) = (/ &\n     &3.0672e-06_rb,4.3146e-06_rb,5.8537e-06_rb,7.7179e-06_rb,9.9420e-06_rb/)\n      kbo(:,52, 6) = (/ &\n     &2.1919e-06_rb,3.1415e-06_rb,4.3130e-06_rb,5.7435e-06_rb,7.4576e-06_rb/)\n      kbo(:,53, 6) = (/ &\n     &1.5489e-06_rb,2.2740e-06_rb,3.1638e-06_rb,4.2575e-06_rb,5.5767e-06_rb/)\n      kbo(:,54, 6) = (/ &\n     &1.1055e-06_rb,1.6569e-06_rb,2.3353e-06_rb,3.1738e-06_rb,4.1929e-06_rb/)\n      kbo(:,55, 6) = (/ &\n     &7.7959e-07_rb,1.2025e-06_rb,1.7241e-06_rb,2.3677e-06_rb,3.1567e-06_rb/)\n      kbo(:,56, 6) = (/ &\n     &5.5393e-07_rb,8.6666e-07_rb,1.2673e-06_rb,1.7619e-06_rb,2.3695e-06_rb/)\n      kbo(:,57, 6) = (/ &\n     &3.8362e-07_rb,6.2174e-07_rb,9.3002e-07_rb,1.3068e-06_rb,1.7740e-06_rb/)\n      kbo(:,58, 6) = (/ &\n     &2.6381e-07_rb,4.4330e-07_rb,6.7991e-07_rb,9.7066e-07_rb,1.3310e-06_rb/)\n      kbo(:,59, 6) = (/ &\n     &2.0120e-07_rb,3.4415e-07_rb,5.3237e-07_rb,7.6501e-07_rb,1.0533e-06_rb/)\n      kbo(:,13, 7) = (/ &\n     &1.9678e-02_rb,2.7339e-02_rb,3.6693e-02_rb,4.7583e-02_rb,5.9838e-02_rb/)\n      kbo(:,14, 7) = (/ &\n     &1.6855e-02_rb,2.3332e-02_rb,3.1200e-02_rb,4.0354e-02_rb,5.0549e-02_rb/)\n      kbo(:,15, 7) = (/ &\n     &1.4447e-02_rb,1.9926e-02_rb,2.6539e-02_rb,3.4203e-02_rb,4.2741e-02_rb/)\n      kbo(:,16, 7) = (/ &\n     &1.2375e-02_rb,1.7007e-02_rb,2.2570e-02_rb,2.9011e-02_rb,3.6155e-02_rb/)\n      kbo(:,17, 7) = (/ &\n     &1.0572e-02_rb,1.4480e-02_rb,1.9148e-02_rb,2.4557e-02_rb,3.0543e-02_rb/)\n      kbo(:,18, 7) = (/ &\n     &9.0187e-03_rb,1.2308e-02_rb,1.6230e-02_rb,2.0762e-02_rb,2.5754e-02_rb/)\n      kbo(:,19, 7) = (/ &\n     &7.6960e-03_rb,1.0462e-02_rb,1.3757e-02_rb,1.7553e-02_rb,2.1712e-02_rb/)\n      kbo(:,20, 7) = (/ &\n     &6.5947e-03_rb,8.9295e-03_rb,1.1707e-02_rb,1.4880e-02_rb,1.8332e-02_rb/)\n      kbo(:,21, 7) = (/ &\n     &5.6518e-03_rb,7.6362e-03_rb,9.9897e-03_rb,1.2646e-02_rb,1.5515e-02_rb/)\n      kbo(:,22, 7) = (/ &\n     &4.9551e-03_rb,6.6562e-03_rb,8.6611e-03_rb,1.0883e-02_rb,1.3285e-02_rb/)\n      kbo(:,23, 7) = (/ &\n     &4.3463e-03_rb,5.8019e-03_rb,7.4874e-03_rb,9.3424e-03_rb,1.1393e-02_rb/)\n      kbo(:,24, 7) = (/ &\n     &3.8088e-03_rb,5.0439e-03_rb,6.4617e-03_rb,8.0406e-03_rb,9.7631e-03_rb/)\n      kbo(:,25, 7) = (/ &\n     &3.3364e-03_rb,4.3855e-03_rb,5.5891e-03_rb,6.9199e-03_rb,8.3730e-03_rb/)\n      kbo(:,26, 7) = (/ &\n     &2.9302e-03_rb,3.8269e-03_rb,4.8484e-03_rb,5.9724e-03_rb,7.1930e-03_rb/)\n      kbo(:,27, 7) = (/ &\n     &2.5694e-03_rb,3.3414e-03_rb,4.2035e-03_rb,5.1445e-03_rb,6.1710e-03_rb/)\n      kbo(:,28, 7) = (/ &\n     &2.2557e-03_rb,2.9117e-03_rb,3.6362e-03_rb,4.4284e-03_rb,5.2859e-03_rb/)\n      kbo(:,29, 7) = (/ &\n     &1.9791e-03_rb,2.5337e-03_rb,3.1431e-03_rb,3.8083e-03_rb,4.5227e-03_rb/)\n      kbo(:,30, 7) = (/ &\n     &1.7348e-03_rb,2.2004e-03_rb,2.7128e-03_rb,3.2695e-03_rb,3.8671e-03_rb/)\n      kbo(:,31, 7) = (/ &\n     &1.5168e-03_rb,1.9090e-03_rb,2.3389e-03_rb,2.8042e-03_rb,3.3063e-03_rb/)\n      kbo(:,32, 7) = (/ &\n     &1.3245e-03_rb,1.6546e-03_rb,2.0148e-03_rb,2.4067e-03_rb,2.8256e-03_rb/)\n      kbo(:,33, 7) = (/ &\n     &1.1547e-03_rb,1.4322e-03_rb,1.7355e-03_rb,2.0639e-03_rb,2.4127e-03_rb/)\n      kbo(:,34, 7) = (/ &\n     &9.9732e-04_rb,1.2299e-03_rb,1.4851e-03_rb,1.7585e-03_rb,2.0486e-03_rb/)\n      kbo(:,35, 7) = (/ &\n     &8.4240e-04_rb,1.0365e-03_rb,1.2482e-03_rb,1.4745e-03_rb,1.7149e-03_rb/)\n      kbo(:,36, 7) = (/ &\n     &6.9459e-04_rb,8.5479e-04_rb,1.0290e-03_rb,1.2151e-03_rb,1.4131e-03_rb/)\n      kbo(:,37, 7) = (/ &\n     &5.5418e-04_rb,6.8431e-04_rb,8.2605e-04_rb,9.7772e-04_rb,1.1393e-03_rb/)\n      kbo(:,38, 7) = (/ &\n     &4.4103e-04_rb,5.4666e-04_rb,6.6164e-04_rb,7.8531e-04_rb,9.1717e-04_rb/)\n      kbo(:,39, 7) = (/ &\n     &3.5078e-04_rb,4.3647e-04_rb,5.2986e-04_rb,6.3056e-04_rb,7.3809e-04_rb/)\n      kbo(:,40, 7) = (/ &\n     &2.7223e-04_rb,3.4099e-04_rb,4.1623e-04_rb,4.9763e-04_rb,5.8479e-04_rb/)\n      kbo(:,41, 7) = (/ &\n     &2.1016e-04_rb,2.6529e-04_rb,3.2578e-04_rb,3.9146e-04_rb,4.6190e-04_rb/)\n      kbo(:,42, 7) = (/ &\n     &1.6186e-04_rb,2.0599e-04_rb,2.5454e-04_rb,3.0749e-04_rb,3.6441e-04_rb/)\n      kbo(:,43, 7) = (/ &\n     &1.2244e-04_rb,1.5755e-04_rb,1.9631e-04_rb,2.3871e-04_rb,2.8458e-04_rb/)\n      kbo(:,44, 7) = (/ &\n     &9.1656e-05_rb,1.1940e-04_rb,1.5021e-04_rb,1.8408e-04_rb,2.2084e-04_rb/)\n      kbo(:,45, 7) = (/ &\n     &6.8343e-05_rb,9.0130e-05_rb,1.1460e-04_rb,1.4155e-04_rb,1.7102e-04_rb/)\n      kbo(:,46, 7) = (/ &\n     &5.0438e-05_rb,6.7336e-05_rb,8.6692e-05_rb,1.0813e-04_rb,1.3160e-04_rb/)\n      kbo(:,47, 7) = (/ &\n     &3.6553e-05_rb,4.9462e-05_rb,6.4648e-05_rb,8.1563e-05_rb,1.0018e-04_rb/)\n      kbo(:,48, 7) = (/ &\n     &2.6343e-05_rb,3.6142e-05_rb,4.7933e-05_rb,6.1264e-05_rb,7.5986e-05_rb/)\n      kbo(:,49, 7) = (/ &\n     &1.8866e-05_rb,2.6263e-05_rb,3.5311e-05_rb,4.5778e-05_rb,5.7425e-05_rb/)\n      kbo(:,50, 7) = (/ &\n     &1.3557e-05_rb,1.9139e-05_rb,2.6064e-05_rb,3.4268e-05_rb,4.3473e-05_rb/)\n      kbo(:,51, 7) = (/ &\n     &9.7297e-06_rb,1.3926e-05_rb,1.9216e-05_rb,2.5597e-05_rb,3.2867e-05_rb/)\n      kbo(:,52, 7) = (/ &\n     &6.9563e-06_rb,1.0085e-05_rb,1.4103e-05_rb,1.9022e-05_rb,2.4754e-05_rb/)\n      kbo(:,53, 7) = (/ &\n     &4.9502e-06_rb,7.2644e-06_rb,1.0302e-05_rb,1.4070e-05_rb,1.8558e-05_rb/)\n      kbo(:,54, 7) = (/ &\n     &3.5499e-06_rb,5.2696e-06_rb,7.5685e-06_rb,1.0462e-05_rb,1.3965e-05_rb/)\n      kbo(:,55, 7) = (/ &\n     &2.5517e-06_rb,3.8332e-06_rb,5.5671e-06_rb,7.7870e-06_rb,1.0502e-05_rb/)\n      kbo(:,56, 7) = (/ &\n     &1.8250e-06_rb,2.7802e-06_rb,4.0807e-06_rb,5.7760e-06_rb,7.8765e-06_rb/)\n      kbo(:,57, 7) = (/ &\n     &1.3020e-06_rb,2.0096e-06_rb,2.9783e-06_rb,4.2688e-06_rb,5.8872e-06_rb/)\n      kbo(:,58, 7) = (/ &\n     &9.3216e-07_rb,1.4580e-06_rb,2.1842e-06_rb,3.1634e-06_rb,4.4097e-06_rb/)\n      kbo(:,59, 7) = (/ &\n     &7.2634e-07_rb,1.1405e-06_rb,1.7167e-06_rb,2.4950e-06_rb,3.4919e-06_rb/)\n      kbo(:,13, 8) = (/ &\n     &6.7703e-02_rb,9.1028e-02_rb,1.1838e-01_rb,1.4990e-01_rb,1.8559e-01_rb/)\n      kbo(:,14, 8) = (/ &\n     &5.8222e-02_rb,7.8007e-02_rb,1.0118e-01_rb,1.2784e-01_rb,1.5811e-01_rb/)\n      kbo(:,15, 8) = (/ &\n     &5.0069e-02_rb,6.6838e-02_rb,8.6469e-02_rb,1.0901e-01_rb,1.3468e-01_rb/)\n      kbo(:,16, 8) = (/ &\n     &4.3038e-02_rb,5.7247e-02_rb,7.3838e-02_rb,9.2876e-02_rb,1.1462e-01_rb/)\n      kbo(:,17, 8) = (/ &\n     &3.6905e-02_rb,4.8922e-02_rb,6.2921e-02_rb,7.8980e-02_rb,9.7249e-02_rb/)\n      kbo(:,18, 8) = (/ &\n     &3.1539e-02_rb,4.1670e-02_rb,5.3450e-02_rb,6.6951e-02_rb,8.2335e-02_rb/)\n      kbo(:,19, 8) = (/ &\n     &2.6840e-02_rb,3.5366e-02_rb,4.5264e-02_rb,5.6569e-02_rb,6.9496e-02_rb/)\n      kbo(:,20, 8) = (/ &\n     &2.2918e-02_rb,3.0090e-02_rb,3.8404e-02_rb,4.7928e-02_rb,5.8831e-02_rb/)\n      kbo(:,21, 8) = (/ &\n     &1.9556e-02_rb,2.5586e-02_rb,3.2570e-02_rb,4.0587e-02_rb,4.9753e-02_rb/)\n      kbo(:,22, 8) = (/ &\n     &1.6988e-02_rb,2.2111e-02_rb,2.8028e-02_rb,3.4852e-02_rb,4.2609e-02_rb/)\n      kbo(:,23, 8) = (/ &\n     &1.4811e-02_rb,1.9201e-02_rb,2.4269e-02_rb,3.0112e-02_rb,3.6663e-02_rb/)\n      kbo(:,24, 8) = (/ &\n     &1.2965e-02_rb,1.6745e-02_rb,2.1118e-02_rb,2.6093e-02_rb,3.1689e-02_rb/)\n      kbo(:,25, 8) = (/ &\n     &1.1393e-02_rb,1.4643e-02_rb,1.8383e-02_rb,2.2644e-02_rb,2.7400e-02_rb/)\n      kbo(:,26, 8) = (/ &\n     &1.0038e-02_rb,1.2830e-02_rb,1.6015e-02_rb,1.9632e-02_rb,2.3704e-02_rb/)\n      kbo(:,27, 8) = (/ &\n     &8.8123e-03_rb,1.1178e-02_rb,1.3890e-02_rb,1.6992e-02_rb,2.0492e-02_rb/)\n      kbo(:,28, 8) = (/ &\n     &7.6974e-03_rb,9.7127e-03_rb,1.2040e-02_rb,1.4716e-02_rb,1.7696e-02_rb/)\n      kbo(:,29, 8) = (/ &\n     &6.7206e-03_rb,8.4382e-03_rb,1.0458e-02_rb,1.2740e-02_rb,1.5282e-02_rb/)\n      kbo(:,30, 8) = (/ &\n     &5.8552e-03_rb,7.3524e-03_rb,9.0759e-03_rb,1.1022e-02_rb,1.3175e-02_rb/)\n      kbo(:,31, 8) = (/ &\n     &5.1145e-03_rb,6.3996e-03_rb,7.8758e-03_rb,9.5283e-03_rb,1.1351e-02_rb/)\n      kbo(:,32, 8) = (/ &\n     &4.4686e-03_rb,5.5753e-03_rb,6.8326e-03_rb,8.2331e-03_rb,9.7798e-03_rb/)\n      kbo(:,33, 8) = (/ &\n     &3.9075e-03_rb,4.8544e-03_rb,5.9240e-03_rb,7.1154e-03_rb,8.4216e-03_rb/)\n      kbo(:,34, 8) = (/ &\n     &3.3885e-03_rb,4.1943e-03_rb,5.1017e-03_rb,6.1096e-03_rb,7.2102e-03_rb/)\n      kbo(:,35, 8) = (/ &\n     &2.8755e-03_rb,3.5515e-03_rb,4.3142e-03_rb,5.1540e-03_rb,6.0867e-03_rb/)\n      kbo(:,36, 8) = (/ &\n     &2.3819e-03_rb,2.9429e-03_rb,3.5744e-03_rb,4.2743e-03_rb,5.0503e-03_rb/)\n      kbo(:,37, 8) = (/ &\n     &1.9080e-03_rb,2.3651e-03_rb,2.8794e-03_rb,3.4539e-03_rb,4.0906e-03_rb/)\n      kbo(:,38, 8) = (/ &\n     &1.5252e-03_rb,1.8961e-03_rb,2.3154e-03_rb,2.7875e-03_rb,3.3076e-03_rb/)\n      kbo(:,39, 8) = (/ &\n     &1.2186e-03_rb,1.5204e-03_rb,1.8625e-03_rb,2.2483e-03_rb,2.6746e-03_rb/)\n      kbo(:,40, 8) = (/ &\n     &9.5047e-04_rb,1.1919e-03_rb,1.4679e-03_rb,1.7800e-03_rb,2.1255e-03_rb/)\n      kbo(:,41, 8) = (/ &\n     &7.3797e-04_rb,9.3055e-04_rb,1.1523e-03_rb,1.4042e-03_rb,1.6837e-03_rb/)\n      kbo(:,42, 8) = (/ &\n     &5.7195e-04_rb,7.2531e-04_rb,9.0341e-04_rb,1.1062e-03_rb,1.3320e-03_rb/)\n      kbo(:,43, 8) = (/ &\n     &4.3632e-04_rb,5.5716e-04_rb,6.9866e-04_rb,8.6074e-04_rb,1.0421e-03_rb/)\n      kbo(:,44, 8) = (/ &\n     &3.2967e-04_rb,4.2439e-04_rb,5.3607e-04_rb,6.6494e-04_rb,8.0995e-04_rb/)\n      kbo(:,45, 8) = (/ &\n     &2.4830e-04_rb,3.2230e-04_rb,4.1025e-04_rb,5.1229e-04_rb,6.2794e-04_rb/)\n      kbo(:,46, 8) = (/ &\n     &1.8517e-04_rb,2.4270e-04_rb,3.1143e-04_rb,3.9189e-04_rb,4.8363e-04_rb/)\n      kbo(:,47, 8) = (/ &\n     &1.3585e-04_rb,1.8008e-04_rb,2.3317e-04_rb,2.9603e-04_rb,3.6826e-04_rb/)\n      kbo(:,48, 8) = (/ &\n     &9.9135e-05_rb,1.3301e-04_rb,1.7388e-04_rb,2.2278e-04_rb,2.7947e-04_rb/)\n      kbo(:,49, 8) = (/ &\n     &7.1904e-05_rb,9.7733e-05_rb,1.2918e-04_rb,1.6699e-04_rb,2.1129e-04_rb/)\n      kbo(:,50, 8) = (/ &\n     &5.2307e-05_rb,7.2019e-05_rb,9.6216e-05_rb,1.2554e-04_rb,1.6020e-04_rb/)\n      kbo(:,51, 8) = (/ &\n     &3.7969e-05_rb,5.2997e-05_rb,7.1620e-05_rb,9.4315e-05_rb,1.2143e-04_rb/)\n      kbo(:,52, 8) = (/ &\n     &2.7413e-05_rb,3.8825e-05_rb,5.3093e-05_rb,7.0665e-05_rb,9.1720e-05_rb/)\n      kbo(:,53, 8) = (/ &\n     &1.9654e-05_rb,2.8289e-05_rb,3.9179e-05_rb,5.2708e-05_rb,6.9024e-05_rb/)\n      kbo(:,54, 8) = (/ &\n     &1.4176e-05_rb,2.0734e-05_rb,2.9077e-05_rb,3.9534e-05_rb,5.2234e-05_rb/)\n      kbo(:,55, 8) = (/ &\n     &1.0223e-05_rb,1.5194e-05_rb,2.1592e-05_rb,2.9664e-05_rb,3.9585e-05_rb/)\n      kbo(:,56, 8) = (/ &\n     &7.3305e-06_rb,1.1089e-05_rb,1.5976e-05_rb,2.2196e-05_rb,2.9906e-05_rb/)\n      kbo(:,57, 8) = (/ &\n     &5.2231e-06_rb,8.0475e-06_rb,1.1769e-05_rb,1.6548e-05_rb,2.2524e-05_rb/)\n      kbo(:,58, 8) = (/ &\n     &3.7230e-06_rb,5.8489e-06_rb,8.6848e-06_rb,1.2363e-05_rb,1.6999e-05_rb/)\n      kbo(:,59, 8) = (/ &\n     &2.8893e-06_rb,4.5778e-06_rb,6.8447e-06_rb,9.7955e-06_rb,1.3534e-05_rb/)\n      kbo(:,13, 9) = (/ &\n     &4.1576e-01_rb,5.6459e-01_rb,7.4208e-01_rb,9.4959e-01_rb,1.1894e+00_rb/)\n      kbo(:,14, 9) = (/ &\n     &3.6259e-01_rb,4.8996e-01_rb,6.4236e-01_rb,8.2178e-01_rb,1.0273e+00_rb/)\n      kbo(:,15, 9) = (/ &\n     &3.1572e-01_rb,4.2505e-01_rb,5.5650e-01_rb,7.1044e-01_rb,8.8534e-01_rb/)\n      kbo(:,16, 9) = (/ &\n     &2.7461e-01_rb,3.6869e-01_rb,4.8148e-01_rb,6.1276e-01_rb,7.6136e-01_rb/)\n      kbo(:,17, 9) = (/ &\n     &2.3842e-01_rb,3.1920e-01_rb,4.1566e-01_rb,5.2724e-01_rb,6.5339e-01_rb/)\n      kbo(:,18, 9) = (/ &\n     &2.0643e-01_rb,2.7580e-01_rb,3.5808e-01_rb,4.5284e-01_rb,5.5957e-01_rb/)\n      kbo(:,19, 9) = (/ &\n     &1.7844e-01_rb,2.3768e-01_rb,3.0746e-01_rb,3.8778e-01_rb,4.7826e-01_rb/)\n      kbo(:,20, 9) = (/ &\n     &1.5457e-01_rb,2.0515e-01_rb,2.6455e-01_rb,3.3275e-01_rb,4.0945e-01_rb/)\n      kbo(:,21, 9) = (/ &\n     &1.3372e-01_rb,1.7673e-01_rb,2.2718e-01_rb,2.8500e-01_rb,3.5014e-01_rb/)\n      kbo(:,22, 9) = (/ &\n     &1.1755e-01_rb,1.5455e-01_rb,1.9772e-01_rb,2.4719e-01_rb,3.0287e-01_rb/)\n      kbo(:,23, 9) = (/ &\n     &1.0319e-01_rb,1.3488e-01_rb,1.7188e-01_rb,2.1417e-01_rb,2.6161e-01_rb/)\n      kbo(:,24, 9) = (/ &\n     &9.0543e-02_rb,1.1778e-01_rb,1.4943e-01_rb,1.8553e-01_rb,2.2596e-01_rb/)\n      kbo(:,25, 9) = (/ &\n     &7.9491e-02_rb,1.0285e-01_rb,1.2998e-01_rb,1.6082e-01_rb,1.9540e-01_rb/)\n      kbo(:,26, 9) = (/ &\n     &7.0023e-02_rb,9.0152e-02_rb,1.1342e-01_rb,1.3988e-01_rb,1.6957e-01_rb/)\n      kbo(:,27, 9) = (/ &\n     &6.1675e-02_rb,7.9028e-02_rb,9.9049e-02_rb,1.2176e-01_rb,1.4715e-01_rb/)\n      kbo(:,28, 9) = (/ &\n     &5.4332e-02_rb,6.9290e-02_rb,8.6538e-02_rb,1.0602e-01_rb,1.2768e-01_rb/)\n      kbo(:,29, 9) = (/ &\n     &4.8016e-02_rb,6.0968e-02_rb,7.5734e-02_rb,9.2386e-02_rb,1.1090e-01_rb/)\n      kbo(:,30, 9) = (/ &\n     &4.2494e-02_rb,5.3680e-02_rb,6.6413e-02_rb,8.0729e-02_rb,9.6539e-02_rb/)\n      kbo(:,31, 9) = (/ &\n     &3.7548e-02_rb,4.7237e-02_rb,5.8255e-02_rb,7.0556e-02_rb,8.4102e-02_rb/)\n      kbo(:,32, 9) = (/ &\n     &3.3189e-02_rb,4.1551e-02_rb,5.1044e-02_rb,6.1646e-02_rb,7.3306e-02_rb/)\n      kbo(:,33, 9) = (/ &\n     &2.9274e-02_rb,3.6514e-02_rb,4.4704e-02_rb,5.3824e-02_rb,6.3833e-02_rb/)\n      kbo(:,34, 9) = (/ &\n     &2.5627e-02_rb,3.1864e-02_rb,3.8903e-02_rb,4.6747e-02_rb,5.5596e-02_rb/)\n      kbo(:,35, 9) = (/ &\n     &2.1952e-02_rb,2.7259e-02_rb,3.3247e-02_rb,4.0073e-02_rb,4.7679e-02_rb/)\n      kbo(:,36, 9) = (/ &\n     &1.8347e-02_rb,2.2808e-02_rb,2.7904e-02_rb,3.3738e-02_rb,4.0178e-02_rb/)\n      kbo(:,37, 9) = (/ &\n     &1.4833e-02_rb,1.8504e-02_rb,2.2807e-02_rb,2.7664e-02_rb,3.3111e-02_rb/)\n      kbo(:,38, 9) = (/ &\n     &1.1957e-02_rb,1.5000e-02_rb,1.8592e-02_rb,2.2638e-02_rb,2.7241e-02_rb/)\n      kbo(:,39, 9) = (/ &\n     &9.6263e-03_rb,1.2169e-02_rb,1.5133e-02_rb,1.8540e-02_rb,2.2409e-02_rb/)\n      kbo(:,40, 9) = (/ &\n     &7.5755e-03_rb,9.6595e-03_rb,1.2095e-02_rb,1.4919e-02_rb,1.8126e-02_rb/)\n      kbo(:,41, 9) = (/ &\n     &5.9308e-03_rb,7.6313e-03_rb,9.6291e-03_rb,1.1965e-02_rb,1.4606e-02_rb/)\n      kbo(:,42, 9) = (/ &\n     &4.6365e-03_rb,6.0158e-03_rb,7.6539e-03_rb,9.5769e-03_rb,1.1776e-02_rb/)\n      kbo(:,43, 9) = (/ &\n     &3.5646e-03_rb,4.6692e-03_rb,5.9951e-03_rb,7.5584e-03_rb,9.3611e-03_rb/)\n      kbo(:,44, 9) = (/ &\n     &2.7083e-03_rb,3.5831e-03_rb,4.6545e-03_rb,5.9178e-03_rb,7.3883e-03_rb/)\n      kbo(:,45, 9) = (/ &\n     &2.0498e-03_rb,2.7405e-03_rb,3.5962e-03_rb,4.6175e-03_rb,5.8123e-03_rb/)\n      kbo(:,46, 9) = (/ &\n     &1.5335e-03_rb,2.0746e-03_rb,2.7520e-03_rb,3.5687e-03_rb,4.5390e-03_rb/)\n      kbo(:,47, 9) = (/ &\n     &1.1263e-03_rb,1.5445e-03_rb,2.0740e-03_rb,2.7200e-03_rb,3.4958e-03_rb/)\n      kbo(:,48, 9) = (/ &\n     &8.2184e-04_rb,1.1429e-03_rb,1.5538e-03_rb,2.0625e-03_rb,2.6781e-03_rb/)\n      kbo(:,49, 9) = (/ &\n     &5.9594e-04_rb,8.3975e-04_rb,1.1570e-03_rb,1.5542e-03_rb,2.0406e-03_rb/)\n      kbo(:,50, 9) = (/ &\n     &4.3385e-04_rb,6.1951e-04_rb,8.6528e-04_rb,1.1761e-03_rb,1.5615e-03_rb/)\n      kbo(:,51, 9) = (/ &\n     &3.1545e-04_rb,4.5652e-04_rb,6.4640e-04_rb,8.8983e-04_rb,1.1948e-03_rb/)\n      kbo(:,52, 9) = (/ &\n     &2.2788e-04_rb,3.3444e-04_rb,4.7984e-04_rb,6.6976e-04_rb,9.1050e-04_rb/)\n      kbo(:,53, 9) = (/ &\n     &1.6338e-04_rb,2.4338e-04_rb,3.5401e-04_rb,5.0057e-04_rb,6.8907e-04_rb/)\n      kbo(:,54, 9) = (/ &\n     &1.1823e-04_rb,1.7879e-04_rb,2.6356e-04_rb,3.7767e-04_rb,5.2615e-04_rb/)\n      kbo(:,55, 9) = (/ &\n     &8.5773e-05_rb,1.3160e-04_rb,1.9666e-04_rb,2.8549e-04_rb,4.0286e-04_rb/)\n      kbo(:,56, 9) = (/ &\n     &6.1815e-05_rb,9.6294e-05_rb,1.4602e-04_rb,2.1495e-04_rb,3.0724e-04_rb/)\n      kbo(:,57, 9) = (/ &\n     &4.4282e-05_rb,7.0071e-05_rb,1.0785e-04_rb,1.6097e-04_rb,2.3304e-04_rb/)\n      kbo(:,58, 9) = (/ &\n     &3.1779e-05_rb,5.1099e-05_rb,7.9795e-05_rb,1.2084e-04_rb,1.7730e-04_rb/)\n      kbo(:,59, 9) = (/ &\n     &2.4962e-05_rb,4.0511e-05_rb,6.3843e-05_rb,9.7519e-05_rb,1.4426e-04_rb/)\n      kbo(:,13,10) = (/ &\n     &1.8139e+00_rb,2.4724e+00_rb,3.2908e+00_rb,4.2191e+00_rb,5.2351e+00_rb/)\n      kbo(:,14,10) = (/ &\n     &1.6219e+00_rb,2.2181e+00_rb,2.9298e+00_rb,3.7301e+00_rb,4.6329e+00_rb/)\n      kbo(:,15,10) = (/ &\n     &1.4445e+00_rb,1.9645e+00_rb,2.5717e+00_rb,3.2739e+00_rb,4.0834e+00_rb/)\n      kbo(:,16,10) = (/ &\n     &1.2756e+00_rb,1.7196e+00_rb,2.2454e+00_rb,2.8649e+00_rb,3.5710e+00_rb/)\n      kbo(:,17,10) = (/ &\n     &1.1121e+00_rb,1.4934e+00_rb,1.9517e+00_rb,2.4879e+00_rb,3.0883e+00_rb/)\n      kbo(:,18,10) = (/ &\n     &9.6871e-01_rb,1.2953e+00_rb,1.6900e+00_rb,2.1475e+00_rb,2.6630e+00_rb/)\n      kbo(:,19,10) = (/ &\n     &8.4238e-01_rb,1.1243e+00_rb,1.4633e+00_rb,1.8537e+00_rb,2.2906e+00_rb/)\n      kbo(:,20,10) = (/ &\n     &7.3459e-01_rb,9.7958e-01_rb,1.2711e+00_rb,1.6026e+00_rb,1.9721e+00_rb/)\n      kbo(:,21,10) = (/ &\n     &6.4101e-01_rb,8.5278e-01_rb,1.0998e+00_rb,1.3825e+00_rb,1.6970e+00_rb/)\n      kbo(:,22,10) = (/ &\n     &5.6942e-01_rb,7.5220e-01_rb,9.6596e-01_rb,1.2079e+00_rb,1.4762e+00_rb/)\n      kbo(:,23,10) = (/ &\n     &5.0503e-01_rb,6.6296e-01_rb,8.4599e-01_rb,1.0531e+00_rb,1.2851e+00_rb/)\n      kbo(:,24,10) = (/ &\n     &4.4682e-01_rb,5.8292e-01_rb,7.4005e-01_rb,9.1863e-01_rb,1.1187e+00_rb/)\n      kbo(:,25,10) = (/ &\n     &3.9593e-01_rb,5.1361e-01_rb,6.4951e-01_rb,8.0398e-01_rb,9.7427e-01_rb/)\n      kbo(:,26,10) = (/ &\n     &3.5212e-01_rb,4.5450e-01_rb,5.7266e-01_rb,7.0571e-01_rb,8.5181e-01_rb/)\n      kbo(:,27,10) = (/ &\n     &3.1284e-01_rb,4.0173e-01_rb,5.0408e-01_rb,6.1838e-01_rb,7.4572e-01_rb/)\n      kbo(:,28,10) = (/ &\n     &2.7721e-01_rb,3.5447e-01_rb,4.4231e-01_rb,5.4145e-01_rb,6.5404e-01_rb/)\n      kbo(:,29,10) = (/ &\n     &2.4517e-01_rb,3.1175e-01_rb,3.8832e-01_rb,4.7588e-01_rb,5.7437e-01_rb/)\n      kbo(:,30,10) = (/ &\n     &2.1578e-01_rb,2.7344e-01_rb,3.4039e-01_rb,4.1657e-01_rb,5.0271e-01_rb/)\n      kbo(:,31,10) = (/ &\n     &1.9067e-01_rb,2.4099e-01_rb,2.9914e-01_rb,3.6552e-01_rb,4.4046e-01_rb/)\n      kbo(:,32,10) = (/ &\n     &1.6874e-01_rb,2.1279e-01_rb,2.6352e-01_rb,3.2154e-01_rb,3.8678e-01_rb/)\n      kbo(:,33,10) = (/ &\n     &1.4979e-01_rb,1.8828e-01_rb,2.3277e-01_rb,2.8345e-01_rb,3.4103e-01_rb/)\n      kbo(:,34,10) = (/ &\n     &1.3170e-01_rb,1.6528e-01_rb,2.0425e-01_rb,2.4841e-01_rb,2.9642e-01_rb/)\n      kbo(:,35,10) = (/ &\n     &1.1324e-01_rb,1.4235e-01_rb,1.7590e-01_rb,2.1287e-01_rb,2.5375e-01_rb/)\n      kbo(:,36,10) = (/ &\n     &9.5231e-02_rb,1.1973e-01_rb,1.4778e-01_rb,1.7871e-01_rb,2.1338e-01_rb/)\n      kbo(:,37,10) = (/ &\n     &7.7445e-02_rb,9.7552e-02_rb,1.1991e-01_rb,1.4578e-01_rb,1.7559e-01_rb/)\n      kbo(:,38,10) = (/ &\n     &6.2913e-02_rb,7.9354e-02_rb,9.7396e-02_rb,1.1872e-01_rb,1.4502e-01_rb/)\n      kbo(:,39,10) = (/ &\n     &5.1069e-02_rb,6.4406e-02_rb,7.9431e-02_rb,9.7751e-02_rb,1.1994e-01_rb/)\n      kbo(:,40,10) = (/ &\n     &4.0487e-02_rb,5.1192e-02_rb,6.3494e-02_rb,7.8782e-02_rb,9.6672e-02_rb/)\n      kbo(:,41,10) = (/ &\n     &3.1933e-02_rb,4.0574e-02_rb,5.0815e-02_rb,6.3454e-02_rb,7.7908e-02_rb/)\n      kbo(:,42,10) = (/ &\n     &2.5104e-02_rb,3.2117e-02_rb,4.0690e-02_rb,5.1132e-02_rb,6.3360e-02_rb/)\n      kbo(:,43,10) = (/ &\n     &1.9359e-02_rb,2.4985e-02_rb,3.2134e-02_rb,4.0672e-02_rb,5.0944e-02_rb/)\n      kbo(:,44,10) = (/ &\n     &1.4822e-02_rb,1.9377e-02_rb,2.5087e-02_rb,3.2083e-02_rb,4.0842e-02_rb/)\n      kbo(:,45,10) = (/ &\n     &1.1292e-02_rb,1.4912e-02_rb,1.9592e-02_rb,2.5310e-02_rb,3.2495e-02_rb/)\n      kbo(:,46,10) = (/ &\n     &8.5215e-03_rb,1.1374e-02_rb,1.5134e-02_rb,1.9829e-02_rb,2.5701e-02_rb/)\n      kbo(:,47,10) = (/ &\n     &6.3304e-03_rb,8.5539e-03_rb,1.1519e-02_rb,1.5304e-02_rb,2.0043e-02_rb/)\n      kbo(:,48,10) = (/ &\n     &4.6596e-03_rb,6.3842e-03_rb,8.7184e-03_rb,1.1727e-02_rb,1.5575e-02_rb/)\n      kbo(:,49,10) = (/ &\n     &3.3978e-03_rb,4.7268e-03_rb,6.5354e-03_rb,8.9194e-03_rb,1.1986e-02_rb/)\n      kbo(:,50,10) = (/ &\n     &2.4889e-03_rb,3.5204e-03_rb,4.9247e-03_rb,6.8240e-03_rb,9.2921e-03_rb/)\n      kbo(:,51,10) = (/ &\n     &1.8182e-03_rb,2.6209e-03_rb,3.7132e-03_rb,5.2128e-03_rb,7.2010e-03_rb/)\n      kbo(:,52,10) = (/ &\n     &1.3186e-03_rb,1.9376e-03_rb,2.7823e-03_rb,3.9639e-03_rb,5.5462e-03_rb/)\n      kbo(:,53,10) = (/ &\n     &9.4728e-04_rb,1.4218e-03_rb,2.0704e-03_rb,2.9919e-03_rb,4.2442e-03_rb/)\n      kbo(:,54,10) = (/ &\n     &6.9069e-04_rb,1.0561e-03_rb,1.5627e-03_rb,2.2955e-03_rb,3.3049e-03_rb/)\n      kbo(:,55,10) = (/ &\n     &5.0377e-04_rb,7.8848e-04_rb,1.1876e-03_rb,1.7754e-03_rb,2.5917e-03_rb/)\n      kbo(:,56,10) = (/ &\n     &3.6627e-04_rb,5.8682e-04_rb,8.9763e-04_rb,1.3649e-03_rb,2.0311e-03_rb/)\n      kbo(:,57,10) = (/ &\n     &2.6429e-04_rb,4.3296e-04_rb,6.7428e-04_rb,1.0407e-03_rb,1.5759e-03_rb/)\n      kbo(:,58,10) = (/ &\n     &1.9120e-04_rb,3.1987e-04_rb,5.0621e-04_rb,7.9436e-04_rb,1.2215e-03_rb/)\n      kbo(:,59,10) = (/ &\n     &1.5379e-04_rb,2.5891e-04_rb,4.1558e-04_rb,6.6123e-04_rb,1.0327e-03_rb/)\n      kbo(:,13,11) = (/ &\n     &3.3861e+00_rb,4.5598e+00_rb,5.9909e+00_rb,7.7387e+00_rb,9.7720e+00_rb/)\n      kbo(:,14,11) = (/ &\n     &3.0835e+00_rb,4.1638e+00_rb,5.4907e+00_rb,7.0868e+00_rb,8.8764e+00_rb/)\n      kbo(:,15,11) = (/ &\n     &2.7946e+00_rb,3.7805e+00_rb,4.9918e+00_rb,6.3780e+00_rb,7.9256e+00_rb/)\n      kbo(:,16,11) = (/ &\n     &2.5106e+00_rb,3.4021e+00_rb,4.4602e+00_rb,5.6582e+00_rb,7.0321e+00_rb/)\n      kbo(:,17,11) = (/ &\n     &2.2366e+00_rb,3.0111e+00_rb,3.9217e+00_rb,4.9755e+00_rb,6.2040e+00_rb/)\n      kbo(:,18,11) = (/ &\n     &1.9672e+00_rb,2.6349e+00_rb,3.4220e+00_rb,4.3497e+00_rb,5.4155e+00_rb/)\n      kbo(:,19,11) = (/ &\n     &1.7131e+00_rb,2.2896e+00_rb,2.9754e+00_rb,3.7775e+00_rb,4.6830e+00_rb/)\n      kbo(:,20,11) = (/ &\n     &1.4996e+00_rb,1.9951e+00_rb,2.5864e+00_rb,3.2729e+00_rb,4.0503e+00_rb/)\n      kbo(:,21,11) = (/ &\n     &1.3113e+00_rb,1.7407e+00_rb,2.2502e+00_rb,2.8371e+00_rb,3.4967e+00_rb/)\n      kbo(:,22,11) = (/ &\n     &1.1682e+00_rb,1.5452e+00_rb,1.9872e+00_rb,2.4911e+00_rb,3.0547e+00_rb/)\n      kbo(:,23,11) = (/ &\n     &1.0421e+00_rb,1.3707e+00_rb,1.7516e+00_rb,2.1846e+00_rb,2.6659e+00_rb/)\n      kbo(:,24,11) = (/ &\n     &9.2979e-01_rb,1.2143e+00_rb,1.5435e+00_rb,1.9148e+00_rb,2.3275e+00_rb/)\n      kbo(:,25,11) = (/ &\n     &8.2875e-01_rb,1.0753e+00_rb,1.3588e+00_rb,1.6784e+00_rb,2.0353e+00_rb/)\n      kbo(:,26,11) = (/ &\n     &7.3934e-01_rb,9.5318e-01_rb,1.1984e+00_rb,1.4754e+00_rb,1.7853e+00_rb/)\n      kbo(:,27,11) = (/ &\n     &6.5883e-01_rb,8.4429e-01_rb,1.0568e+00_rb,1.2987e+00_rb,1.5650e+00_rb/)\n      kbo(:,28,11) = (/ &\n     &5.8647e-01_rb,7.4845e-01_rb,9.3430e-01_rb,1.1424e+00_rb,1.3714e+00_rb/)\n      kbo(:,29,11) = (/ &\n     &5.2333e-01_rb,6.6481e-01_rb,8.2647e-01_rb,1.0068e+00_rb,1.2071e+00_rb/)\n      kbo(:,30,11) = (/ &\n     &4.6646e-01_rb,5.9039e-01_rb,7.3092e-01_rb,8.8855e-01_rb,1.0662e+00_rb/)\n      kbo(:,31,11) = (/ &\n     &4.1617e-01_rb,5.2426e-01_rb,6.4699e-01_rb,7.8730e-01_rb,9.4645e-01_rb/)\n      kbo(:,32,11) = (/ &\n     &3.7143e-01_rb,4.6600e-01_rb,5.7506e-01_rb,6.9984e-01_rb,8.4024e-01_rb/)\n      kbo(:,33,11) = (/ &\n     &3.3164e-01_rb,4.1539e-01_rb,5.1227e-01_rb,6.2282e-01_rb,7.4734e-01_rb/)\n      kbo(:,34,11) = (/ &\n     &2.9391e-01_rb,3.6839e-01_rb,4.5381e-01_rb,5.5129e-01_rb,6.6077e-01_rb/)\n      kbo(:,35,11) = (/ &\n     &2.5539e-01_rb,3.2000e-01_rb,3.9467e-01_rb,4.7981e-01_rb,5.7557e-01_rb/)\n      kbo(:,36,11) = (/ &\n     &2.1634e-01_rb,2.7190e-01_rb,3.3604e-01_rb,4.0953e-01_rb,4.9314e-01_rb/)\n      kbo(:,37,11) = (/ &\n     &1.7643e-01_rb,2.2324e-01_rb,2.7784e-01_rb,3.4019e-01_rb,4.0996e-01_rb/)\n      kbo(:,38,11) = (/ &\n     &1.4359e-01_rb,1.8284e-01_rb,2.2947e-01_rb,2.8247e-01_rb,3.3992e-01_rb/)\n      kbo(:,39,11) = (/ &\n     &1.1703e-01_rb,1.4999e-01_rb,1.8946e-01_rb,2.3346e-01_rb,2.8235e-01_rb/)\n      kbo(:,40,11) = (/ &\n     &9.2508e-02_rb,1.1962e-01_rb,1.5225e-01_rb,1.8852e-01_rb,2.3037e-01_rb/)\n      kbo(:,41,11) = (/ &\n     &7.2812e-02_rb,9.4920e-02_rb,1.2149e-01_rb,1.5155e-01_rb,1.8718e-01_rb/)\n      kbo(:,42,11) = (/ &\n     &5.7212e-02_rb,7.5261e-02_rb,9.6717e-02_rb,1.2163e-01_rb,1.5109e-01_rb/)\n      kbo(:,43,11) = (/ &\n     &4.4118e-02_rb,5.8641e-02_rb,7.5812e-02_rb,9.6186e-02_rb,1.2035e-01_rb/)\n      kbo(:,44,11) = (/ &\n     &3.3705e-02_rb,4.5203e-02_rb,5.8991e-02_rb,7.5535e-02_rb,9.5312e-02_rb/)\n      kbo(:,45,11) = (/ &\n     &2.5795e-02_rb,3.4826e-02_rb,4.5764e-02_rb,5.9102e-02_rb,7.5973e-02_rb/)\n      kbo(:,46,11) = (/ &\n     &1.9500e-02_rb,2.6666e-02_rb,3.5264e-02_rb,4.5887e-02_rb,6.0050e-02_rb/)\n      kbo(:,47,11) = (/ &\n     &1.4478e-02_rb,2.0069e-02_rb,2.6758e-02_rb,3.5119e-02_rb,4.6750e-02_rb/)\n      kbo(:,48,11) = (/ &\n     &1.0673e-02_rb,1.5022e-02_rb,2.0274e-02_rb,2.6837e-02_rb,3.6213e-02_rb/)\n      kbo(:,49,11) = (/ &\n     &7.8044e-03_rb,1.1183e-02_rb,1.5301e-02_rb,2.0457e-02_rb,2.8037e-02_rb/)\n      kbo(:,50,11) = (/ &\n     &5.7286e-03_rb,8.3541e-03_rb,1.1590e-02_rb,1.5692e-02_rb,2.1700e-02_rb/)\n      kbo(:,51,11) = (/ &\n     &4.2038e-03_rb,6.2320e-03_rb,8.7867e-03_rb,1.2044e-02_rb,1.6737e-02_rb/)\n      kbo(:,52,11) = (/ &\n     &3.0623e-03_rb,4.6247e-03_rb,6.6271e-03_rb,9.2102e-03_rb,1.2933e-02_rb/)\n      kbo(:,53,11) = (/ &\n     &2.2163e-03_rb,3.3976e-03_rb,4.9642e-03_rb,7.0028e-03_rb,9.9664e-03_rb/)\n      kbo(:,54,11) = (/ &\n     &1.6196e-03_rb,2.5242e-03_rb,3.7641e-03_rb,5.3709e-03_rb,7.7537e-03_rb/)\n      kbo(:,55,11) = (/ &\n     &1.1913e-03_rb,1.8900e-03_rb,2.8670e-03_rb,4.1465e-03_rb,6.0719e-03_rb/)\n      kbo(:,56,11) = (/ &\n     &8.6854e-04_rb,1.4072e-03_rb,2.1797e-03_rb,3.2039e-03_rb,4.7482e-03_rb/)\n      kbo(:,57,11) = (/ &\n     &6.2940e-04_rb,1.0423e-03_rb,1.6521e-03_rb,2.4738e-03_rb,3.7243e-03_rb/)\n      kbo(:,58,11) = (/ &\n     &4.5766e-04_rb,7.7541e-04_rb,1.2578e-03_rb,1.9222e-03_rb,2.9509e-03_rb/)\n      kbo(:,59,11) = (/ &\n     &3.7158e-04_rb,6.4512e-04_rb,1.0666e-03_rb,1.6673e-03_rb,2.6085e-03_rb/)\n      kbo(:,13,12) = (/ &\n     &6.8265e+00_rb,9.1662e+00_rb,1.2005e+01_rb,1.5291e+01_rb,1.9104e+01_rb/)\n      kbo(:,14,12) = (/ &\n     &6.4505e+00_rb,8.6663e+00_rb,1.1302e+01_rb,1.4372e+01_rb,1.8022e+01_rb/)\n      kbo(:,15,12) = (/ &\n     &6.0333e+00_rb,8.0721e+00_rb,1.0531e+01_rb,1.3476e+01_rb,1.6920e+01_rb/)\n      kbo(:,16,12) = (/ &\n     &5.5683e+00_rb,7.4562e+00_rb,9.7508e+00_rb,1.2490e+01_rb,1.5606e+01_rb/)\n      kbo(:,17,12) = (/ &\n     &5.0713e+00_rb,6.8025e+00_rb,8.9065e+00_rb,1.1361e+01_rb,1.4093e+01_rb/)\n      kbo(:,18,12) = (/ &\n     &4.5774e+00_rb,6.1450e+00_rb,8.0133e+00_rb,1.0144e+01_rb,1.2548e+01_rb/)\n      kbo(:,19,12) = (/ &\n     &4.0864e+00_rb,5.4694e+00_rb,7.0931e+00_rb,8.9659e+00_rb,1.1117e+01_rb/)\n      kbo(:,20,12) = (/ &\n     &3.6294e+00_rb,4.8248e+00_rb,6.2421e+00_rb,7.9048e+00_rb,9.7882e+00_rb/)\n      kbo(:,21,12) = (/ &\n     &3.1876e+00_rb,4.2266e+00_rb,5.4689e+00_rb,6.9148e+00_rb,8.5415e+00_rb/)\n      kbo(:,22,12) = (/ &\n     &2.8446e+00_rb,3.7580e+00_rb,4.8472e+00_rb,6.1036e+00_rb,7.5044e+00_rb/)\n      kbo(:,23,12) = (/ &\n     &2.5375e+00_rb,3.3389e+00_rb,4.2884e+00_rb,5.3709e+00_rb,6.5794e+00_rb/)\n      kbo(:,24,12) = (/ &\n     &2.2687e+00_rb,2.9742e+00_rb,3.7979e+00_rb,4.7327e+00_rb,5.7691e+00_rb/)\n      kbo(:,25,12) = (/ &\n     &2.0354e+00_rb,2.6539e+00_rb,3.3704e+00_rb,4.1780e+00_rb,5.0680e+00_rb/)\n      kbo(:,26,12) = (/ &\n     &1.8347e+00_rb,2.3795e+00_rb,3.0035e+00_rb,3.7009e+00_rb,4.4678e+00_rb/)\n      kbo(:,27,12) = (/ &\n     &1.6539e+00_rb,2.1288e+00_rb,2.6709e+00_rb,3.2754e+00_rb,3.9447e+00_rb/)\n      kbo(:,28,12) = (/ &\n     &1.4848e+00_rb,1.8995e+00_rb,2.3700e+00_rb,2.8962e+00_rb,3.4805e+00_rb/)\n      kbo(:,29,12) = (/ &\n     &1.3323e+00_rb,1.6945e+00_rb,2.1064e+00_rb,2.5664e+00_rb,3.0755e+00_rb/)\n      kbo(:,30,12) = (/ &\n     &1.1951e+00_rb,1.5124e+00_rb,1.8729e+00_rb,2.2771e+00_rb,2.7207e+00_rb/)\n      kbo(:,31,12) = (/ &\n     &1.0723e+00_rb,1.3520e+00_rb,1.6707e+00_rb,2.0245e+00_rb,2.4134e+00_rb/)\n      kbo(:,32,12) = (/ &\n     &9.6436e-01_rb,1.2123e+00_rb,1.4924e+00_rb,1.8027e+00_rb,2.1488e+00_rb/)\n      kbo(:,33,12) = (/ &\n     &8.6875e-01_rb,1.0883e+00_rb,1.3350e+00_rb,1.6111e+00_rb,1.9241e+00_rb/)\n      kbo(:,34,12) = (/ &\n     &7.7744e-01_rb,9.7074e-01_rb,1.1897e+00_rb,1.4382e+00_rb,1.7216e+00_rb/)\n      kbo(:,35,12) = (/ &\n     &6.8108e-01_rb,8.5081e-01_rb,1.0447e+00_rb,1.2673e+00_rb,1.5231e+00_rb/)\n      kbo(:,36,12) = (/ &\n     &5.8251e-01_rb,7.3036e-01_rb,9.0117e-01_rb,1.0985e+00_rb,1.3262e+00_rb/)\n      kbo(:,37,12) = (/ &\n     &4.8147e-01_rb,6.0751e-01_rb,7.5487e-01_rb,9.2714e-01_rb,1.1257e+00_rb/)\n      kbo(:,38,12) = (/ &\n     &3.9749e-01_rb,5.0467e-01_rb,6.3154e-01_rb,7.8124e-01_rb,9.5438e-01_rb/)\n      kbo(:,39,12) = (/ &\n     &3.2829e-01_rb,4.1995e-01_rb,5.2901e-01_rb,6.5861e-01_rb,8.0986e-01_rb/)\n      kbo(:,40,12) = (/ &\n     &2.6399e-01_rb,3.4098e-01_rb,4.3333e-01_rb,5.4338e-01_rb,6.7333e-01_rb/)\n      kbo(:,41,12) = (/ &\n     &2.1121e-01_rb,2.7554e-01_rb,3.5340e-01_rb,4.4699e-01_rb,5.5819e-01_rb/)\n      kbo(:,42,12) = (/ &\n     &1.6875e-01_rb,2.2242e-01_rb,2.8790e-01_rb,3.6718e-01_rb,4.6248e-01_rb/)\n      kbo(:,43,12) = (/ &\n     &1.3242e-01_rb,1.7649e-01_rb,2.3091e-01_rb,2.9729e-01_rb,3.7802e-01_rb/)\n      kbo(:,44,12) = (/ &\n     &1.0268e-01_rb,1.3874e-01_rb,1.8350e-01_rb,2.3873e-01_rb,3.0615e-01_rb/)\n      kbo(:,45,12) = (/ &\n     &7.9157e-02_rb,1.0857e-01_rb,1.4543e-01_rb,1.9132e-01_rb,2.4703e-01_rb/)\n      kbo(:,46,12) = (/ &\n     &6.0349e-02_rb,8.3945e-02_rb,1.1412e-01_rb,1.5200e-01_rb,1.9783e-01_rb/)\n      kbo(:,47,12) = (/ &\n     &4.5026e-02_rb,6.3638e-02_rb,8.7982e-02_rb,1.1888e-01_rb,1.5630e-01_rb/)\n      kbo(:,48,12) = (/ &\n     &3.3400e-02_rb,4.7982e-02_rb,6.7403e-02_rb,9.2494e-02_rb,1.2316e-01_rb/)\n      kbo(:,49,12) = (/ &\n     &2.4633e-02_rb,3.5960e-02_rb,5.1349e-02_rb,7.1624e-02_rb,9.6517e-02_rb/)\n      kbo(:,50,12) = (/ &\n     &1.8199e-02_rb,2.7006e-02_rb,3.9181e-02_rb,5.5479e-02_rb,7.5913e-02_rb/)\n      kbo(:,51,12) = (/ &\n     &1.3397e-02_rb,2.0251e-02_rb,2.9827e-02_rb,4.2894e-02_rb,5.9697e-02_rb/)\n      kbo(:,52,12) = (/ &\n     &9.8047e-03_rb,1.5092e-02_rb,2.2613e-02_rb,3.3016e-02_rb,4.6660e-02_rb/)\n      kbo(:,53,12) = (/ &\n     &7.1233e-03_rb,1.1184e-02_rb,1.7048e-02_rb,2.5317e-02_rb,3.6316e-02_rb/)\n      kbo(:,54,12) = (/ &\n     &5.1904e-03_rb,8.3108e-03_rb,1.2872e-02_rb,1.9462e-02_rb,2.8342e-02_rb/)\n      kbo(:,55,12) = (/ &\n     &3.7706e-03_rb,6.1523e-03_rb,9.6915e-03_rb,1.4909e-02_rb,2.2083e-02_rb/)\n      kbo(:,56,12) = (/ &\n     &2.7214e-03_rb,4.5313e-03_rb,7.2581e-03_rb,1.1344e-02_rb,1.7112e-02_rb/)\n      kbo(:,57,12) = (/ &\n     &1.9679e-03_rb,3.3305e-03_rb,5.4024e-03_rb,8.5896e-03_rb,1.3181e-02_rb/)\n      kbo(:,58,12) = (/ &\n     &1.4312e-03_rb,2.4830e-03_rb,4.0992e-03_rb,6.5707e-03_rb,1.0148e-02_rb/)\n      kbo(:,59,12) = (/ &\n     &1.1735e-03_rb,2.0715e-03_rb,3.4672e-03_rb,5.6187e-03_rb,8.6747e-03_rb/)\n      kbo(:,13,13) = (/ &\n     &1.4965e+01_rb,1.9939e+01_rb,2.5957e+01_rb,3.3111e+01_rb,4.1486e+01_rb/)\n      kbo(:,14,13) = (/ &\n     &1.4891e+01_rb,1.9752e+01_rb,2.5714e+01_rb,3.2877e+01_rb,4.1201e+01_rb/)\n      kbo(:,15,13) = (/ &\n     &1.4632e+01_rb,1.9464e+01_rb,2.5349e+01_rb,3.2327e+01_rb,4.0239e+01_rb/)\n      kbo(:,16,13) = (/ &\n     &1.4224e+01_rb,1.8920e+01_rb,2.4612e+01_rb,3.1240e+01_rb,3.8764e+01_rb/)\n      kbo(:,17,13) = (/ &\n     &1.3596e+01_rb,1.8071e+01_rb,2.3399e+01_rb,2.9603e+01_rb,3.6827e+01_rb/)\n      kbo(:,18,13) = (/ &\n     &1.2765e+01_rb,1.6956e+01_rb,2.1940e+01_rb,2.7801e+01_rb,3.4621e+01_rb/)\n      kbo(:,19,13) = (/ &\n     &1.1845e+01_rb,1.5708e+01_rb,2.0355e+01_rb,2.5828e+01_rb,3.2043e+01_rb/)\n      kbo(:,20,13) = (/ &\n     &1.0881e+01_rb,1.4480e+01_rb,1.8761e+01_rb,2.3735e+01_rb,2.9355e+01_rb/)\n      kbo(:,21,13) = (/ &\n     &9.9388e+00_rb,1.3181e+01_rb,1.7060e+01_rb,2.1504e+01_rb,2.6520e+01_rb/)\n      kbo(:,22,13) = (/ &\n     &9.1395e+00_rb,1.2102e+01_rb,1.5540e+01_rb,1.9513e+01_rb,2.4061e+01_rb/)\n      kbo(:,23,13) = (/ &\n     &8.3446e+00_rb,1.0972e+01_rb,1.4055e+01_rb,1.7623e+01_rb,2.1727e+01_rb/)\n      kbo(:,24,13) = (/ &\n     &7.5591e+00_rb,9.8924e+00_rb,1.2651e+01_rb,1.5869e+01_rb,1.9520e+01_rb/)\n      kbo(:,25,13) = (/ &\n     &6.8143e+00_rb,8.8970e+00_rb,1.1359e+01_rb,1.4218e+01_rb,1.7424e+01_rb/)\n      kbo(:,26,13) = (/ &\n     &6.1698e+00_rb,8.0210e+00_rb,1.0220e+01_rb,1.2729e+01_rb,1.5532e+01_rb/)\n      kbo(:,27,13) = (/ &\n     &5.5728e+00_rb,7.2306e+00_rb,9.1639e+00_rb,1.1369e+01_rb,1.3833e+01_rb/)\n      kbo(:,28,13) = (/ &\n     &5.0450e+00_rb,6.5146e+00_rb,8.2221e+00_rb,1.0165e+01_rb,1.2320e+01_rb/)\n      kbo(:,29,13) = (/ &\n     &4.5820e+00_rb,5.8856e+00_rb,7.3962e+00_rb,9.1032e+00_rb,1.0999e+01_rb/)\n      kbo(:,30,13) = (/ &\n     &4.1619e+00_rb,5.3258e+00_rb,6.6581e+00_rb,8.1640e+00_rb,9.8348e+00_rb/)\n      kbo(:,31,13) = (/ &\n     &3.7986e+00_rb,4.8336e+00_rb,6.0169e+00_rb,7.3498e+00_rb,8.8372e+00_rb/)\n      kbo(:,32,13) = (/ &\n     &3.4747e+00_rb,4.3988e+00_rb,5.4556e+00_rb,6.6497e+00_rb,7.9860e+00_rb/)\n      kbo(:,33,13) = (/ &\n     &3.1806e+00_rb,4.0134e+00_rb,4.9644e+00_rb,6.0424e+00_rb,7.2445e+00_rb/)\n      kbo(:,34,13) = (/ &\n     &2.8901e+00_rb,3.6383e+00_rb,4.4979e+00_rb,5.4687e+00_rb,6.5591e+00_rb/)\n      kbo(:,35,13) = (/ &\n     &2.5701e+00_rb,3.2361e+00_rb,4.0067e+00_rb,4.8794e+00_rb,5.8576e+00_rb/)\n      kbo(:,36,13) = (/ &\n     &2.2323e+00_rb,2.8199e+00_rb,3.4998e+00_rb,4.2791e+00_rb,5.1575e+00_rb/)\n      kbo(:,37,13) = (/ &\n     &1.8736e+00_rb,2.3827e+00_rb,2.9738e+00_rb,3.6564e+00_rb,4.4360e+00_rb/)\n      kbo(:,38,13) = (/ &\n     &1.5728e+00_rb,2.0148e+00_rb,2.5311e+00_rb,3.1303e+00_rb,3.8226e+00_rb/)\n      kbo(:,39,13) = (/ &\n     &1.3237e+00_rb,1.7072e+00_rb,2.1603e+00_rb,2.6914e+00_rb,3.3072e+00_rb/)\n      kbo(:,40,13) = (/ &\n     &1.0847e+00_rb,1.4132e+00_rb,1.8059e+00_rb,2.2702e+00_rb,2.8143e+00_rb/)\n      kbo(:,41,13) = (/ &\n     &8.8581e-01_rb,1.1668e+00_rb,1.5064e+00_rb,1.9133e+00_rb,2.3935e+00_rb/)\n      kbo(:,42,13) = (/ &\n     &7.2374e-01_rb,9.6367e-01_rb,1.2577e+00_rb,1.6144e+00_rb,2.0403e+00_rb/)\n      kbo(:,43,13) = (/ &\n     &5.8123e-01_rb,7.8367e-01_rb,1.0353e+00_rb,1.3440e+00_rb,1.7177e+00_rb/)\n      kbo(:,44,13) = (/ &\n     &4.6198e-01_rb,6.3195e-01_rb,8.4539e-01_rb,1.1117e+00_rb,1.4376e+00_rb/)\n      kbo(:,45,13) = (/ &\n     &3.6584e-01_rb,5.0822e-01_rb,6.8932e-01_rb,9.1864e-01_rb,1.2028e+00_rb/)\n      kbo(:,46,13) = (/ &\n     &2.8644e-01_rb,4.0442e-01_rb,5.5738e-01_rb,7.5306e-01_rb,9.9957e-01_rb/)\n      kbo(:,47,13) = (/ &\n     &2.1956e-01_rb,3.1585e-01_rb,4.4303e-01_rb,6.0814e-01_rb,8.1897e-01_rb/)\n      kbo(:,48,13) = (/ &\n     &1.6674e-01_rb,2.4495e-01_rb,3.5019e-01_rb,4.8911e-01_rb,6.6858e-01_rb/)\n      kbo(:,49,13) = (/ &\n     &1.2553e-01_rb,1.8856e-01_rb,2.7515e-01_rb,3.9103e-01_rb,5.4421e-01_rb/)\n      kbo(:,50,13) = (/ &\n     &9.4665e-02_rb,1.4544e-01_rb,2.1677e-01_rb,3.1374e-01_rb,4.4454e-01_rb/)\n      kbo(:,51,13) = (/ &\n     &7.1191e-02_rb,1.1194e-01_rb,1.7036e-01_rb,2.5168e-01_rb,3.6277e-01_rb/)\n      kbo(:,52,13) = (/ &\n     &5.3052e-02_rb,8.5501e-02_rb,1.3304e-01_rb,2.0087e-01_rb,2.9517e-01_rb/)\n      kbo(:,53,13) = (/ &\n     &3.9132e-02_rb,6.4715e-02_rb,1.0314e-01_rb,1.5924e-01_rb,2.3881e-01_rb/)\n      kbo(:,54,13) = (/ &\n     &2.9043e-02_rb,4.9273e-02_rb,8.0552e-02_rb,1.2707e-01_rb,1.9473e-01_rb/)\n      kbo(:,55,13) = (/ &\n     &2.1525e-02_rb,3.7498e-02_rb,6.2875e-02_rb,1.0150e-01_rb,1.5889e-01_rb/)\n      kbo(:,56,13) = (/ &\n     &1.5833e-02_rb,2.8322e-02_rb,4.8765e-02_rb,8.0651e-02_rb,1.2905e-01_rb/)\n      kbo(:,57,13) = (/ &\n     &1.1526e-02_rb,2.1205e-02_rb,3.7510e-02_rb,6.3651e-02_rb,1.0431e-01_rb/)\n      kbo(:,58,13) = (/ &\n     &8.3779e-03_rb,1.5855e-02_rb,2.8776e-02_rb,5.0260e-02_rb,8.4604e-02_rb/)\n      kbo(:,59,13) = (/ &\n     &6.7851e-03_rb,1.3119e-02_rb,2.4293e-02_rb,4.3321e-02_rb,7.4531e-02_rb/)\n      kbo(:,13,14) = (/ &\n     &3.3721e+01_rb,4.7002e+01_rb,6.3302e+01_rb,8.2327e+01_rb,1.0363e+02_rb/)\n      kbo(:,14,14) = (/ &\n     &3.6911e+01_rb,5.0874e+01_rb,6.7511e+01_rb,8.6774e+01_rb,1.0872e+02_rb/)\n      kbo(:,15,14) = (/ &\n     &3.9962e+01_rb,5.4067e+01_rb,7.0780e+01_rb,9.0289e+01_rb,1.1312e+02_rb/)\n      kbo(:,16,14) = (/ &\n     &4.2338e+01_rb,5.6683e+01_rb,7.3332e+01_rb,9.3095e+01_rb,1.1626e+02_rb/)\n      kbo(:,17,14) = (/ &\n     &4.3916e+01_rb,5.8217e+01_rb,7.5023e+01_rb,9.4925e+01_rb,1.1793e+02_rb/)\n      kbo(:,18,14) = (/ &\n     &4.4576e+01_rb,5.8845e+01_rb,7.5702e+01_rb,9.5514e+01_rb,1.1830e+02_rb/)\n      kbo(:,19,14) = (/ &\n     &4.4328e+01_rb,5.8466e+01_rb,7.5196e+01_rb,9.4726e+01_rb,1.1748e+02_rb/)\n      kbo(:,20,14) = (/ &\n     &4.3798e+01_rb,5.7631e+01_rb,7.4169e+01_rb,9.3518e+01_rb,1.1584e+02_rb/)\n      kbo(:,21,14) = (/ &\n     &4.2847e+01_rb,5.6429e+01_rb,7.2627e+01_rb,9.1567e+01_rb,1.1316e+02_rb/)\n      kbo(:,22,14) = (/ &\n     &4.2232e+01_rb,5.5705e+01_rb,7.1694e+01_rb,9.0118e+01_rb,1.1101e+02_rb/)\n      kbo(:,23,14) = (/ &\n     &4.1301e+01_rb,5.4371e+01_rb,6.9797e+01_rb,8.7676e+01_rb,1.0772e+02_rb/)\n      kbo(:,24,14) = (/ &\n     &4.0036e+01_rb,5.2522e+01_rb,6.7301e+01_rb,8.4384e+01_rb,1.0387e+02_rb/)\n      kbo(:,25,14) = (/ &\n     &3.8535e+01_rb,5.0451e+01_rb,6.4572e+01_rb,8.0891e+01_rb,9.9814e+01_rb/)\n      kbo(:,26,14) = (/ &\n     &3.6990e+01_rb,4.8476e+01_rb,6.1896e+01_rb,7.7604e+01_rb,9.5632e+01_rb/)\n      kbo(:,27,14) = (/ &\n     &3.5439e+01_rb,4.6349e+01_rb,5.9201e+01_rb,7.4166e+01_rb,9.1237e+01_rb/)\n      kbo(:,28,14) = (/ &\n     &3.3799e+01_rb,4.4185e+01_rb,5.6512e+01_rb,7.0702e+01_rb,8.6988e+01_rb/)\n      kbo(:,29,14) = (/ &\n     &3.2225e+01_rb,4.2139e+01_rb,5.3908e+01_rb,6.7503e+01_rb,8.3109e+01_rb/)\n      kbo(:,30,14) = (/ &\n     &3.0748e+01_rb,4.0218e+01_rb,5.1459e+01_rb,6.4621e+01_rb,7.9612e+01_rb/)\n      kbo(:,31,14) = (/ &\n     &2.9425e+01_rb,3.8499e+01_rb,4.9352e+01_rb,6.2118e+01_rb,7.6745e+01_rb/)\n      kbo(:,32,14) = (/ &\n     &2.8242e+01_rb,3.7039e+01_rb,4.7648e+01_rb,6.0092e+01_rb,7.4536e+01_rb/)\n      kbo(:,33,14) = (/ &\n     &2.7263e+01_rb,3.5883e+01_rb,4.6290e+01_rb,5.8616e+01_rb,7.3025e+01_rb/)\n      kbo(:,34,14) = (/ &\n     &2.6245e+01_rb,3.4728e+01_rb,4.4963e+01_rb,5.7211e+01_rb,7.1614e+01_rb/)\n      kbo(:,35,14) = (/ &\n     &2.4792e+01_rb,3.3010e+01_rb,4.3016e+01_rb,5.5082e+01_rb,6.9332e+01_rb/)\n      kbo(:,36,14) = (/ &\n     &2.2854e+01_rb,3.0681e+01_rb,4.0335e+01_rb,5.2076e+01_rb,6.5971e+01_rb/)\n      kbo(:,37,14) = (/ &\n     &2.0215e+01_rb,2.7477e+01_rb,3.6561e+01_rb,4.7698e+01_rb,6.0990e+01_rb/)\n      kbo(:,38,14) = (/ &\n     &1.7901e+01_rb,2.4657e+01_rb,3.3200e+01_rb,4.3777e+01_rb,5.6518e+01_rb/)\n      kbo(:,39,14) = (/ &\n     &1.5916e+01_rb,2.2229e+01_rb,3.0285e+01_rb,4.0352e+01_rb,5.2594e+01_rb/)\n      kbo(:,40,14) = (/ &\n     &1.3687e+01_rb,1.9453e+01_rb,2.6865e+01_rb,3.6273e+01_rb,4.7801e+01_rb/)\n      kbo(:,41,14) = (/ &\n     &1.1706e+01_rb,1.6957e+01_rb,2.3775e+01_rb,3.2529e+01_rb,4.3345e+01_rb/)\n      kbo(:,42,14) = (/ &\n     &1.0015e+01_rb,1.4777e+01_rb,2.1056e+01_rb,2.9181e+01_rb,3.9336e+01_rb/)\n      kbo(:,43,14) = (/ &\n     &8.3602e+00_rb,1.2595e+01_rb,1.8289e+01_rb,2.5700e+01_rb,3.5139e+01_rb/)\n      kbo(:,44,14) = (/ &\n     &6.8842e+00_rb,1.0588e+01_rb,1.5702e+01_rb,2.2421e+01_rb,3.1090e+01_rb/)\n      kbo(:,45,14) = (/ &\n     &5.6505e+00_rb,8.8697e+00_rb,1.3428e+01_rb,1.9525e+01_rb,2.7445e+01_rb/)\n      kbo(:,46,14) = (/ &\n     &4.5669e+00_rb,7.3282e+00_rb,1.1331e+01_rb,1.6810e+01_rb,2.3987e+01_rb/)\n      kbo(:,47,14) = (/ &\n     &3.5910e+00_rb,5.9011e+00_rb,9.3338e+00_rb,1.4162e+01_rb,2.0590e+01_rb/)\n      kbo(:,48,14) = (/ &\n     &2.8046e+00_rb,4.7156e+00_rb,7.6334e+00_rb,1.1848e+01_rb,1.7577e+01_rb/)\n      kbo(:,49,14) = (/ &\n     &2.1748e+00_rb,3.7383e+00_rb,6.1955e+00_rb,9.8356e+00_rb,1.4909e+01_rb/)\n      kbo(:,50,14) = (/ &\n     &1.6968e+00_rb,2.9824e+00_rb,5.0552e+00_rb,8.1970e+00_rb,1.2692e+01_rb/)\n      kbo(:,51,14) = (/ &\n     &1.3228e+00_rb,2.3793e+00_rb,4.1196e+00_rb,6.8244e+00_rb,1.0784e+01_rb/)\n      kbo(:,52,14) = (/ &\n     &1.0245e+00_rb,1.8865e+00_rb,3.3355e+00_rb,5.6478e+00_rb,9.1028e+00_rb/)\n      kbo(:,53,14) = (/ &\n     &7.8728e-01_rb,1.4840e+00_rb,2.6816e+00_rb,4.6391e+00_rb,7.6341e+00_rb/)\n      kbo(:,54,14) = (/ &\n     &6.1018e-01_rb,1.1815e+00_rb,2.1812e+00_rb,3.8474e+00_rb,6.4584e+00_rb/)\n      kbo(:,55,14) = (/ &\n     &4.7246e-01_rb,9.4354e-01_rb,1.7799e+00_rb,3.1974e+00_rb,5.4714e+00_rb/)\n      kbo(:,56,14) = (/ &\n     &3.6268e-01_rb,7.4897e-01_rb,1.4435e+00_rb,2.6438e+00_rb,4.6110e+00_rb/)\n      kbo(:,57,14) = (/ &\n     &2.7617e-01_rb,5.8818e-01_rb,1.1638e+00_rb,2.1763e+00_rb,3.8632e+00_rb/)\n      kbo(:,58,14) = (/ &\n     &2.1026e-01_rb,4.6281e-01_rb,9.4334e-01_rb,1.8002e+00_rb,3.2506e+00_rb/)\n      kbo(:,59,14) = (/ &\n     &1.8510e-01_rb,4.1578e-01_rb,8.6198e-01_rb,1.6609e+00_rb,3.0231e+00_rb/)\n      kbo(:,13,15) = (/ &\n     &7.9497e+01_rb,1.0631e+02_rb,1.3951e+02_rb,1.8076e+02_rb,2.3534e+02_rb/)\n      kbo(:,14,15) = (/ &\n     &9.0008e+01_rb,1.2102e+02_rb,1.6070e+02_rb,2.0844e+02_rb,2.6891e+02_rb/)\n      kbo(:,15,15) = (/ &\n     &1.0142e+02_rb,1.3773e+02_rb,1.8424e+02_rb,2.3942e+02_rb,3.0596e+02_rb/)\n      kbo(:,16,15) = (/ &\n     &1.1444e+02_rb,1.5595e+02_rb,2.0951e+02_rb,2.7261e+02_rb,3.4599e+02_rb/)\n      kbo(:,17,15) = (/ &\n     &1.2871e+02_rb,1.7599e+02_rb,2.3611e+02_rb,3.0737e+02_rb,3.8849e+02_rb/)\n      kbo(:,18,15) = (/ &\n     &1.4444e+02_rb,1.9729e+02_rb,2.6334e+02_rb,3.4204e+02_rb,4.3103e+02_rb/)\n      kbo(:,19,15) = (/ &\n     &1.6121e+02_rb,2.1913e+02_rb,2.9095e+02_rb,3.7632e+02_rb,4.7170e+02_rb/)\n      kbo(:,20,15) = (/ &\n     &1.7880e+02_rb,2.4196e+02_rb,3.1956e+02_rb,4.1027e+02_rb,5.1312e+02_rb/)\n      kbo(:,21,15) = (/ &\n     &1.9582e+02_rb,2.6409e+02_rb,3.4675e+02_rb,4.4276e+02_rb,5.5264e+02_rb/)\n      kbo(:,22,15) = (/ &\n     &2.1631e+02_rb,2.9018e+02_rb,3.7825e+02_rb,4.8067e+02_rb,5.9651e+02_rb/)\n      kbo(:,23,15) = (/ &\n     &2.3693e+02_rb,3.1638e+02_rb,4.0986e+02_rb,5.1726e+02_rb,6.3877e+02_rb/)\n      kbo(:,24,15) = (/ &\n     &2.5815e+02_rb,3.4252e+02_rb,4.4099e+02_rb,5.5343e+02_rb,6.7985e+02_rb/)\n      kbo(:,25,15) = (/ &\n     &2.7940e+02_rb,3.6830e+02_rb,4.7141e+02_rb,5.8880e+02_rb,7.2036e+02_rb/)\n      kbo(:,26,15) = (/ &\n     &3.0147e+02_rb,3.9459e+02_rb,5.0246e+02_rb,6.2482e+02_rb,7.6276e+02_rb/)\n      kbo(:,27,15) = (/ &\n     &3.2318e+02_rb,4.2065e+02_rb,5.3313e+02_rb,6.6087e+02_rb,8.0529e+02_rb/)\n      kbo(:,28,15) = (/ &\n     &3.4508e+02_rb,4.4657e+02_rb,5.6379e+02_rb,6.9725e+02_rb,8.4792e+02_rb/)\n      kbo(:,29,15) = (/ &\n     &3.6777e+02_rb,4.7381e+02_rb,5.9626e+02_rb,7.3554e+02_rb,8.9251e+02_rb/)\n      kbo(:,30,15) = (/ &\n     &3.9103e+02_rb,5.0185e+02_rb,6.2997e+02_rb,7.7485e+02_rb,9.3819e+02_rb/)\n      kbo(:,31,15) = (/ &\n     &4.1560e+02_rb,5.3166e+02_rb,6.6523e+02_rb,8.1615e+02_rb,9.8559e+02_rb/)\n      kbo(:,32,15) = (/ &\n     &4.4194e+02_rb,5.6341e+02_rb,7.0244e+02_rb,8.5957e+02_rb,1.0345e+03_rb/)\n      kbo(:,33,15) = (/ &\n     &4.7004e+02_rb,5.9690e+02_rb,7.4161e+02_rb,9.0465e+02_rb,1.0849e+03_rb/)\n      kbo(:,34,15) = (/ &\n     &4.9560e+02_rb,6.2720e+02_rb,7.7702e+02_rb,9.4526e+02_rb,1.1301e+03_rb/)\n      kbo(:,35,15) = (/ &\n     &5.1020e+02_rb,6.4498e+02_rb,7.9798e+02_rb,9.6921e+02_rb,1.1571e+03_rb/)\n      kbo(:,36,15) = (/ &\n     &5.1153e+02_rb,6.4732e+02_rb,8.0146e+02_rb,9.7374e+02_rb,1.1629e+03_rb/)\n      kbo(:,37,15) = (/ &\n     &4.9411e+02_rb,6.2784e+02_rb,7.8019e+02_rb,9.5084e+02_rb,1.1384e+03_rb/)\n      kbo(:,38,15) = (/ &\n     &4.7607e+02_rb,6.0738e+02_rb,7.5785e+02_rb,9.2634e+02_rb,1.1122e+03_rb/)\n      kbo(:,39,15) = (/ &\n     &4.5860e+02_rb,5.8729e+02_rb,7.3571e+02_rb,9.0212e+02_rb,1.0835e+03_rb/)\n      kbo(:,40,15) = (/ &\n     &4.2990e+02_rb,5.5385e+02_rb,6.9803e+02_rb,8.6039e+02_rb,1.0406e+03_rb/)\n      kbo(:,41,15) = (/ &\n     &4.0087e+02_rb,5.1992e+02_rb,6.5921e+02_rb,8.1732e+02_rb,9.9347e+02_rb/)\n      kbo(:,42,15) = (/ &\n     &3.7298e+02_rb,4.8724e+02_rb,6.2146e+02_rb,7.7537e+02_rb,9.4699e+02_rb/)\n      kbo(:,43,15) = (/ &\n     &3.4053e+02_rb,4.4909e+02_rb,5.7712e+02_rb,7.2520e+02_rb,8.9154e+02_rb/)\n      kbo(:,44,15) = (/ &\n     &3.0753e+02_rb,4.1020e+02_rb,5.3144e+02_rb,6.7302e+02_rb,8.3358e+02_rb/)\n      kbo(:,45,15) = (/ &\n     &2.7654e+02_rb,3.7323e+02_rb,4.8808e+02_rb,6.2285e+02_rb,7.7741e+02_rb/)\n      kbo(:,46,15) = (/ &\n     &2.4531e+02_rb,3.3622e+02_rb,4.4437e+02_rb,5.7189e+02_rb,7.1969e+02_rb/)\n      kbo(:,47,15) = (/ &\n     &2.1302e+02_rb,2.9761e+02_rb,3.9853e+02_rb,5.1809e+02_rb,6.5783e+02_rb/)\n      kbo(:,48,15) = (/ &\n     &1.8355e+02_rb,2.6147e+02_rb,3.5562e+02_rb,4.6754e+02_rb,5.9909e+02_rb/)\n      kbo(:,49,15) = (/ &\n     &1.5701e+02_rb,2.2791e+02_rb,3.1569e+02_rb,4.2021e+02_rb,5.4365e+02_rb/)\n      kbo(:,50,15) = (/ &\n     &1.3468e+02_rb,1.9893e+02_rb,2.8071e+02_rb,3.7858e+02_rb,4.9472e+02_rb/)\n      kbo(:,51,15) = (/ &\n     &1.1526e+02_rb,1.7331e+02_rb,2.4880e+02_rb,3.4068e+02_rb,4.5000e+02_rb/)\n      kbo(:,52,15) = (/ &\n     &9.7991e+01_rb,1.5012e+02_rb,2.1915e+02_rb,3.0532e+02_rb,4.0798e+02_rb/)\n      kbo(:,53,15) = (/ &\n     &8.2622e+01_rb,1.2914e+02_rb,1.9179e+02_rb,2.7194e+02_rb,3.6825e+02_rb/)\n      kbo(:,54,15) = (/ &\n     &7.0111e+01_rb,1.1182e+02_rb,1.6882e+02_rb,2.4316e+02_rb,3.3408e+02_rb/)\n      kbo(:,55,15) = (/ &\n     &5.9451e+01_rb,9.6898e+01_rb,1.4869e+02_rb,2.1737e+02_rb,3.0323e+02_rb/)\n      kbo(:,56,15) = (/ &\n     &4.9982e+01_rb,8.3446e+01_rb,1.3033e+02_rb,1.9338e+02_rb,2.7397e+02_rb/)\n      kbo(:,57,15) = (/ &\n     &4.1621e+01_rb,7.1384e+01_rb,1.1363e+02_rb,1.7127e+02_rb,2.4633e+02_rb/)\n      kbo(:,58,15) = (/ &\n     &3.4650e+01_rb,6.1162e+01_rb,9.9313e+01_rb,1.5200e+02_rb,2.2168e+02_rb/)\n      kbo(:,59,15) = (/ &\n     &3.2067e+01_rb,5.7347e+01_rb,9.3961e+01_rb,1.4472e+02_rb,2.1224e+02_rb/)\n      kbo(:,13,16) = (/ &\n     &1.4292e+02_rb,1.7830e+02_rb,2.5018e+02_rb,3.7037e+02_rb,5.2070e+02_rb/)\n      kbo(:,14,16) = (/ &\n     &1.7229e+02_rb,2.1935e+02_rb,3.0306e+02_rb,4.4388e+02_rb,6.2020e+02_rb/)\n      kbo(:,15,16) = (/ &\n     &2.0873e+02_rb,2.6972e+02_rb,3.6756e+02_rb,5.2712e+02_rb,7.3393e+02_rb/)\n      kbo(:,16,16) = (/ &\n     &2.5439e+02_rb,3.3072e+02_rb,4.4570e+02_rb,6.2226e+02_rb,8.6517e+02_rb/)\n      kbo(:,17,16) = (/ &\n     &3.0902e+02_rb,4.0145e+02_rb,5.3763e+02_rb,7.3415e+02_rb,1.0082e+03_rb/)\n      kbo(:,18,16) = (/ &\n     &3.7239e+02_rb,4.8343e+02_rb,6.4354e+02_rb,8.6401e+02_rb,1.1697e+03_rb/)\n      kbo(:,19,16) = (/ &\n     &4.4344e+02_rb,5.7744e+02_rb,7.6245e+02_rb,1.0126e+03_rb,1.3544e+03_rb/)\n      kbo(:,20,16) = (/ &\n     &5.2591e+02_rb,6.8473e+02_rb,8.9843e+02_rb,1.1879e+03_rb,1.5662e+03_rb/)\n      kbo(:,21,16) = (/ &\n     &6.1975e+02_rb,8.0389e+02_rb,1.0527e+03_rb,1.3850e+03_rb,1.8066e+03_rb/)\n      kbo(:,22,16) = (/ &\n     &7.3890e+02_rb,9.5515e+02_rb,1.2474e+03_rb,1.6302e+03_rb,2.1130e+03_rb/)\n      kbo(:,23,16) = (/ &\n     &8.7503e+02_rb,1.1289e+03_rb,1.4705e+03_rb,1.9102e+03_rb,2.4554e+03_rb/)\n      kbo(:,24,16) = (/ &\n     &1.0277e+03_rb,1.3283e+03_rb,1.7241e+03_rb,2.2247e+03_rb,2.8319e+03_rb/)\n      kbo(:,25,16) = (/ &\n     &1.2034e+03_rb,1.5543e+03_rb,2.0073e+03_rb,2.5693e+03_rb,3.2356e+03_rb/)\n      kbo(:,26,16) = (/ &\n     &1.4042e+03_rb,1.8088e+03_rb,2.3218e+03_rb,2.9229e+03_rb,3.6714e+03_rb/)\n      kbo(:,27,16) = (/ &\n     &1.6234e+03_rb,2.0833e+03_rb,2.6544e+03_rb,3.3382e+03_rb,4.1196e+03_rb/)\n      kbo(:,28,16) = (/ &\n     &1.8563e+03_rb,2.3730e+03_rb,3.0002e+03_rb,3.7388e+03_rb,4.5730e+03_rb/)\n      kbo(:,29,16) = (/ &\n     &2.1060e+03_rb,2.6609e+03_rb,3.3576e+03_rb,4.1487e+03_rb,5.0295e+03_rb/)\n      kbo(:,30,16) = (/ &\n     &2.3669e+03_rb,2.9882e+03_rb,3.7190e+03_rb,4.5573e+03_rb,5.4823e+03_rb/)\n      kbo(:,31,16) = (/ &\n     &2.6382e+03_rb,3.3079e+03_rb,4.0851e+03_rb,4.9669e+03_rb,5.9326e+03_rb/)\n      kbo(:,32,16) = (/ &\n     &2.9162e+03_rb,3.6311e+03_rb,4.4535e+03_rb,5.3188e+03_rb,6.3774e+03_rb/)\n      kbo(:,33,16) = (/ &\n     &3.1977e+03_rb,3.9546e+03_rb,4.8182e+03_rb,5.7741e+03_rb,6.8136e+03_rb/)\n      kbo(:,34,16) = (/ &\n     &3.4540e+03_rb,4.2467e+03_rb,5.1445e+03_rb,6.1305e+03_rb,7.1986e+03_rb/)\n      kbo(:,35,16) = (/ &\n     &3.6329e+03_rb,4.4502e+03_rb,5.3698e+03_rb,6.3759e+03_rb,7.4635e+03_rb/)\n      kbo(:,36,16) = (/ &\n     &3.7190e+03_rb,4.5470e+03_rb,5.4751e+03_rb,6.4918e+03_rb,7.5883e+03_rb/)\n      kbo(:,37,16) = (/ &\n     &3.6766e+03_rb,4.4979e+03_rb,5.4194e+03_rb,6.4326e+03_rb,7.5253e+03_rb/)\n      kbo(:,38,16) = (/ &\n     &3.6175e+03_rb,4.4311e+03_rb,5.3444e+03_rb,6.3514e+03_rb,7.4384e+03_rb/)\n      kbo(:,39,16) = (/ &\n     &3.5511e+03_rb,4.3577e+03_rb,5.2603e+03_rb,6.2593e+03_rb,7.3011e+03_rb/)\n      kbo(:,40,16) = (/ &\n     &3.4038e+03_rb,4.1899e+03_rb,5.0730e+03_rb,6.0546e+03_rb,7.1202e+03_rb/)\n      kbo(:,41,16) = (/ &\n     &3.2449e+03_rb,4.0090e+03_rb,4.8718e+03_rb,5.8306e+03_rb,6.8794e+03_rb/)\n      kbo(:,42,16) = (/ &\n     &3.0878e+03_rb,3.8270e+03_rb,4.6679e+03_rb,5.6043e+03_rb,6.6342e+03_rb/)\n      kbo(:,43,16) = (/ &\n     &2.8974e+03_rb,3.6038e+03_rb,4.4171e+03_rb,5.3250e+03_rb,6.3295e+03_rb/)\n      kbo(:,44,16) = (/ &\n     &2.6963e+03_rb,3.3670e+03_rb,4.1477e+03_rb,5.0263e+03_rb,5.9993e+03_rb/)\n      kbo(:,45,16) = (/ &\n     &2.5060e+03_rb,3.1396e+03_rb,3.8862e+03_rb,4.7337e+03_rb,5.6766e+03_rb/)\n      kbo(:,46,16) = (/ &\n     &2.3164e+03_rb,2.9079e+03_rb,3.6158e+03_rb,4.4299e+03_rb,5.3398e+03_rb/)\n      kbo(:,47,16) = (/ &\n     &2.1174e+03_rb,2.6621e+03_rb,3.3261e+03_rb,4.0998e+03_rb,4.9727e+03_rb/)\n      kbo(:,48,16) = (/ &\n     &1.9329e+03_rb,2.4347e+03_rb,3.0518e+03_rb,3.7834e+03_rb,4.6186e+03_rb/)\n      kbo(:,49,16) = (/ &\n     &1.7595e+03_rb,2.2251e+03_rb,2.7943e+03_rb,3.4811e+03_rb,4.2776e+03_rb/)\n      kbo(:,50,16) = (/ &\n     &1.6082e+03_rb,2.0431e+03_rb,2.5690e+03_rb,3.2137e+03_rb,3.9707e+03_rb/)\n      kbo(:,51,16) = (/ &\n     &1.4710e+03_rb,1.8773e+03_rb,2.3673e+03_rb,2.9684e+03_rb,3.6854e+03_rb/)\n      kbo(:,52,16) = (/ &\n     &1.3426e+03_rb,1.7222e+03_rb,2.1800e+03_rb,2.7371e+03_rb,3.4141e+03_rb/)\n      kbo(:,53,16) = (/ &\n     &1.2224e+03_rb,1.5765e+03_rb,2.0045e+03_rb,2.5219e+03_rb,3.1562e+03_rb/)\n      kbo(:,54,16) = (/ &\n     &1.1196e+03_rb,1.4516e+03_rb,1.8541e+03_rb,2.3387e+03_rb,2.9325e+03_rb/)\n      kbo(:,55,16) = (/ &\n     &1.0267e+03_rb,1.3387e+03_rb,1.7175e+03_rb,2.1745e+03_rb,2.7302e+03_rb/)\n      kbo(:,56,16) = (/ &\n     &9.3987e+02_rb,1.2326e+03_rb,1.5894e+03_rb,2.0202e+03_rb,2.5405e+03_rb/)\n      kbo(:,57,16) = (/ &\n     &8.5792e+02_rb,1.1333e+03_rb,1.4474e+03_rb,1.8742e+03_rb,2.3631e+03_rb/)\n      kbo(:,58,16) = (/ &\n     &7.8443e+02_rb,1.0443e+03_rb,1.3605e+03_rb,1.7435e+03_rb,2.2055e+03_rb/)\n      kbo(:,59,16) = (/ &\n     &7.5656e+02_rb,1.0103e+03_rb,1.3189e+03_rb,1.6936e+03_rb,2.1455e+03_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &2.8549e-03_rb,4.8281e-03_rb,6.2570e-03_rb,8.2731e-03_rb,7.9056e-03_rb,7.7840e-03_rb, &\n     &1.0115e-02_rb,9.6599e-03_rb,1.0153e-02_rb,1.0921e-02_rb,1.2408e-02_rb,1.3496e-02_rb, &\n     &1.5059e-02_rb,1.4636e-02_rb,1.6483e-02_rb,1.2394e-02_rb/)\n      forrefo(2,:) = (/ &\n     &3.0036e-03_rb,5.1093e-03_rb,5.7317e-03_rb,9.2246e-03_rb,8.9829e-03_rb,8.6477e-03_rb, &\n     &1.1448e-02_rb,1.0391e-02_rb,1.0211e-02_rb,1.2921e-02_rb,1.2726e-02_rb,1.2426e-02_rb, &\n     &1.4609e-02_rb,1.5783e-02_rb,1.6617e-02_rb,1.6858e-02_rb/)\n      forrefo(3,:) = (/ &\n     &3.0771e-03_rb,5.1206e-03_rb,5.8426e-03_rb,9.5727e-03_rb,1.0338e-02_rb,9.3737e-03_rb, &\n     &1.2805e-02_rb,1.1272e-02_rb,1.1353e-02_rb,1.1837e-02_rb,1.1550e-02_rb,1.3020e-02_rb, &\n     &1.3536e-02_rb,1.6226e-02_rb,1.6039e-02_rb,2.2578e-02_rb/)\n      forrefo(4,:) = (/ &\n     &3.3072e-03_rb,5.0240e-03_rb,6.8474e-03_rb,8.2736e-03_rb,8.6151e-03_rb,8.6762e-03_rb, &\n     &1.1476e-02_rb,1.0246e-02_rb,1.0819e-02_rb,1.0640e-02_rb,1.0545e-02_rb,1.0533e-02_rb, &\n     &1.0496e-02_rb,1.0142e-02_rb,9.7979e-03_rb,1.5255e-02_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 7.25695e-01_rb, 6.53591e-01_rb, 5.88650e-01_rb, 5.30162e-01_rb, 4.77485e-01_rb, &\n     & 4.30042e-01_rb, 3.87313e-01_rb, 3.48830e-01_rb, 3.14170e-01_rb, 2.82954e-01_rb/)\n      selfrefo(:, 2) = (/ &\n     & 9.61996e-01_rb, 8.77853e-01_rb, 8.01070e-01_rb, 7.31003e-01_rb, 6.67064e-01_rb, &\n     & 6.08718e-01_rb, 5.55476e-01_rb, 5.06890e-01_rb, 4.62554e-01_rb, 4.22096e-01_rb/)\n      selfrefo(:, 3) = (/ &\n     & 9.72584e-01_rb, 9.02658e-01_rb, 8.37760e-01_rb, 7.77527e-01_rb, 7.21626e-01_rb, &\n     & 6.69743e-01_rb, 6.21591e-01_rb, 5.76900e-01_rb, 5.35423e-01_rb, 4.96927e-01_rb/)\n      selfrefo(:, 4) = (/ &\n     & 1.24790e+00_rb, 1.14353e+00_rb, 1.04790e+00_rb, 9.60263e-01_rb, 8.79956e-01_rb, &\n     & 8.06364e-01_rb, 7.38927e-01_rb, 6.77130e-01_rb, 6.20501e-01_rb, 5.68608e-01_rb/)\n      selfrefo(:, 5) = (/ &\n     & 1.23574e+00_rb, 1.12928e+00_rb, 1.03200e+00_rb, 9.43096e-01_rb, 8.61851e-01_rb, &\n     & 7.87605e-01_rb, 7.19755e-01_rb, 6.57750e-01_rb, 6.01087e-01_rb, 5.49305e-01_rb/)\n      selfrefo(:, 6) = (/ &\n     & 1.20921e+00_rb, 1.10660e+00_rb, 1.01270e+00_rb, 9.26766e-01_rb, 8.48124e-01_rb, &\n     & 7.76155e-01_rb, 7.10293e-01_rb, 6.50020e-01_rb, 5.94861e-01_rb, 5.44384e-01_rb/)\n      selfrefo(:, 7) = (/ &\n     & 1.38112e+00_rb, 1.26727e+00_rb, 1.16280e+00_rb, 1.06694e+00_rb, 9.78990e-01_rb, &\n     & 8.98287e-01_rb, 8.24236e-01_rb, 7.56290e-01_rb, 6.93945e-01_rb, 6.36739e-01_rb/)\n      selfrefo(:, 8) = (/ &\n     & 1.30321e+00_rb, 1.20127e+00_rb, 1.10730e+00_rb, 1.02068e+00_rb, 9.40840e-01_rb, &\n     & 8.67243e-01_rb, 7.99403e-01_rb, 7.36870e-01_rb, 6.79229e-01_rb, 6.26096e-01_rb/)\n      selfrefo(:, 9) = (/ &\n     & 1.26713e+00_rb, 1.17927e+00_rb, 1.09750e+00_rb, 1.02140e+00_rb, 9.50575e-01_rb, &\n     & 8.84662e-01_rb, 8.23319e-01_rb, 7.66230e-01_rb, 7.13099e-01_rb, 6.63653e-01_rb/)\n      selfrefo(:,10) = (/ &\n     & 1.49824e+00_rb, 1.37053e+00_rb, 1.25370e+00_rb, 1.14683e+00_rb, 1.04908e+00_rb, &\n     & 9.59651e-01_rb, 8.77849e-01_rb, 8.03020e-01_rb, 7.34569e-01_rb, 6.71954e-01_rb/)\n      selfrefo(:,11) = (/ &\n     & 1.44786e+00_rb, 1.34594e+00_rb, 1.25120e+00_rb, 1.16313e+00_rb, 1.08125e+00_rb, &\n     & 1.00514e+00_rb, 9.34392e-01_rb, 8.68620e-01_rb, 8.07477e-01_rb, 7.50639e-01_rb/)\n      selfrefo(:,12) = (/ &\n     & 1.38460e+00_rb, 1.30437e+00_rb, 1.22880e+00_rb, 1.15760e+00_rb, 1.09053e+00_rb, &\n     & 1.02735e+00_rb, 9.67825e-01_rb, 9.11750e-01_rb, 8.58924e-01_rb, 8.09159e-01_rb/)\n      selfrefo(:,13) = (/ &\n     & 1.51953e+00_rb, 1.42822e+00_rb, 1.34240e+00_rb, 1.26173e+00_rb, 1.18592e+00_rb, &\n     & 1.11465e+00_rb, 1.04768e+00_rb, 9.84720e-01_rb, 9.25548e-01_rb, 8.69932e-01_rb/)\n      selfrefo(:,14) = (/ &\n     & 1.62608e+00_rb, 1.51021e+00_rb, 1.40260e+00_rb, 1.30266e+00_rb, 1.20983e+00_rb, &\n     & 1.12363e+00_rb, 1.04356e+00_rb, 9.69200e-01_rb, 9.00138e-01_rb, 8.35998e-01_rb/)\n      selfrefo(:,15) = (/ &\n     & 1.65383e+00_rb, 1.54808e+00_rb, 1.44910e+00_rb, 1.35644e+00_rb, 1.26971e+00_rb, &\n     & 1.18853e+00_rb, 1.11254e+00_rb, 1.04140e+00_rb, 9.74813e-01_rb, 9.12484e-01_rb/)\n      selfrefo(:,16) = (/ &\n     & 1.78105e+00_rb, 1.61421e+00_rb, 1.46300e+00_rb, 1.32595e+00_rb, 1.20174e+00_rb, &\n     & 1.08917e+00_rb, 9.87141e-01_rb, 8.94670e-01_rb, 8.10861e-01_rb, 7.34904e-01_rb/)\n\n      end subroutine lw_kgb02\n\n! **************************************************************************\n      subroutine lw_kgb03\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg03, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, &\n                            kbo_mn2o, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level: P=212.7250 mbar, T = 223.06 K\n      fracrefao(:, 1) = (/ &\n     &   1.6251e-01_rb,1.5572e-01_rb,1.4557e-01_rb,1.3208e-01_rb,1.1582e-01_rb,9.6895e-02_rb, &\n     &   7.8720e-02_rb,5.8462e-02_rb,3.9631e-02_rb,4.3001e-03_rb,3.5555e-03_rb,2.8101e-03_rb, &\n     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 2) = (/ &\n     &   1.6006e-01_rb,1.5576e-01_rb,1.4609e-01_rb,1.3276e-01_rb,1.1594e-01_rb,9.7336e-02_rb, &\n     &   7.9035e-02_rb,5.8696e-02_rb,3.9723e-02_rb,4.3001e-03_rb,3.5555e-03_rb,2.8101e-03_rb, &\n     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 3) = (/ &\n     &   1.5952e-01_rb,1.5566e-01_rb,1.4590e-01_rb,1.3294e-01_rb,1.1599e-01_rb,9.7511e-02_rb, &\n     &   7.9127e-02_rb,5.8888e-02_rb,3.9874e-02_rb,4.3001e-03_rb,3.5555e-03_rb,2.8102e-03_rb, &\n     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 4) = (/ &\n     &   1.5907e-01_rb,1.5541e-01_rb,1.4585e-01_rb,1.3316e-01_rb,1.1596e-01_rb,9.7647e-02_rb, &\n     &   7.9243e-02_rb,5.9024e-02_rb,4.0028e-02_rb,4.3112e-03_rb,3.5555e-03_rb,2.8102e-03_rb, &\n     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 5) = (/ &\n     &   1.5862e-01_rb,1.5517e-01_rb,1.4588e-01_rb,1.3328e-01_rb,1.1585e-01_rb,9.7840e-02_rb, &\n     &   7.9364e-02_rb,5.9174e-02_rb,4.0160e-02_rb,4.3403e-03_rb,3.5900e-03_rb,2.8102e-03_rb, &\n     &   2.0547e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 6) = (/ &\n     &   1.5830e-01_rb,1.5490e-01_rb,1.4582e-01_rb,1.3331e-01_rb,1.1567e-01_rb,9.8079e-02_rb, &\n     &   7.9510e-02_rb,5.9369e-02_rb,4.0326e-02_rb,4.3343e-03_rb,3.5908e-03_rb,2.8527e-03_rb, &\n     &   2.0655e-03_rb,1.3109e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 7) = (/ &\n     &   1.5789e-01_rb,1.5435e-01_rb,1.4595e-01_rb,1.3304e-01_rb,1.1566e-01_rb,9.8426e-02_rb, &\n     &   7.9704e-02_rb,5.9618e-02_rb,4.0520e-02_rb,4.3812e-03_rb,3.6147e-03_rb,2.8395e-03_rb, &\n     &   2.1301e-03_rb,1.3145e-03_rb,4.9403e-04_rb,6.9515e-05_rb/)\n      fracrefao(:, 8) = (/ &\n     &   1.5704e-01_rb,1.5398e-01_rb,1.4564e-01_rb,1.3222e-01_rb,1.1586e-01_rb,9.9230e-02_rb, &\n     &   8.0011e-02_rb,6.0149e-02_rb,4.0790e-02_rb,4.4253e-03_rb,3.6534e-03_rb,2.9191e-03_rb, &\n     &   2.1373e-03_rb,1.3558e-03_rb,5.1631e-04_rb,7.8794e-05_rb/)\n      fracrefao(:, 9) = (/ &\n     &   1.5270e-01_rb,1.5126e-01_rb,1.4264e-01_rb,1.3106e-01_rb,1.1740e-01_rb,1.0137e-01_rb, &\n     &   8.3057e-02_rb,6.2282e-02_rb,4.2301e-02_rb,4.6486e-03_rb,3.8159e-03_rb,3.0472e-03_rb, &\n     &   2.2870e-03_rb,1.4818e-03_rb,5.6773e-04_rb,7.8794e-05_rb/)\n\n! Planck fraction mapping level: p = 95.8 mbar, t = 215.7 k\n      fracrefbo(:, 1) = (/ &\n     &   1.6413e-01_rb,1.5665e-01_rb,1.4606e-01_rb,1.3184e-01_rb,1.1517e-01_rb,9.6243e-02_rb, &\n     &   7.7982e-02_rb,5.8165e-02_rb,3.9311e-02_rb,4.2586e-03_rb,3.5189e-03_rb,2.7793e-03_rb, &\n     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)\n      fracrefbo(:, 2) = (/ &\n     &   1.6254e-01_rb,1.5674e-01_rb,1.4652e-01_rb,1.3221e-01_rb,1.1535e-01_rb,9.6439e-02_rb, &\n     &   7.8155e-02_rb,5.8254e-02_rb,3.9343e-02_rb,4.2586e-03_rb,3.5189e-03_rb,2.7793e-03_rb, &\n     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)\n      fracrefbo(:, 3) = (/ &\n     &   1.6177e-01_rb,1.5664e-01_rb,1.4669e-01_rb,1.3242e-01_rb,1.1541e-01_rb,9.6536e-02_rb, &\n     &   7.8257e-02_rb,5.8387e-02_rb,3.9431e-02_rb,4.2587e-03_rb,3.5189e-03_rb,2.7793e-03_rb, &\n     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)\n      fracrefbo(:, 4) = (/ &\n     &   1.6077e-01_rb,1.5679e-01_rb,1.4648e-01_rb,1.3273e-01_rb,1.1546e-01_rb,9.6779e-02_rb, &\n     &   7.8371e-02_rb,5.8546e-02_rb,3.9611e-02_rb,4.2772e-03_rb,3.5190e-03_rb,2.7793e-03_rb, &\n     &   2.0376e-03_rb,1.2938e-03_rb,4.8853e-04_rb,6.8745e-05_rb/)\n      fracrefbo(:, 5) = (/ &\n     &   1.6067e-01_rb,1.5608e-01_rb,1.4247e-01_rb,1.2881e-01_rb,1.1449e-01_rb,9.8802e-02_rb, &\n     &   8.0828e-02_rb,6.0977e-02_rb,4.1494e-02_rb,4.5116e-03_rb,3.7290e-03_rb,2.9460e-03_rb, &\n     &   2.1948e-03_rb,1.3778e-03_rb,5.4552e-04_rb,7.9969e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &3.1886e-07_rb,1.8969e-04_rb,4.1239e-04_rb,6.4667e-04_rb,8.5292e-04_rb,1.1836e-03_rb, &\n     &1.4006e-03_rb,1.5411e-03_rb,8.3293e-04_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &4.3208e-07_rb,2.2286e-04_rb,4.4627e-04_rb,7.2330e-04_rb,9.3694e-04_rb,1.2337e-03_rb, &\n     &1.5482e-03_rb,1.7773e-03_rb,1.0038e-03_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &5.8834e-07_rb,2.6143e-04_rb,5.0441e-04_rb,7.7424e-04_rb,1.0403e-03_rb,1.3331e-03_rb, &\n     &1.7908e-03_rb,2.0845e-03_rb,1.1619e-03_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &7.9926e-07_rb,3.0532e-04_rb,5.7655e-04_rb,8.4667e-04_rb,1.1189e-03_rb,1.4849e-03_rb, &\n     &1.7793e-03_rb,2.3392e-03_rb,1.2758e-03_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &1.0726e-06_rb,3.5559e-04_rb,6.6472e-04_rb,9.5586e-04_rb,1.2287e-03_rb,1.5629e-03_rb, &\n     &1.9684e-03_rb,2.6521e-03_rb,1.4781e-03_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &3.7301e-07_rb,1.5101e-04_rb,3.0613e-04_rb,5.2444e-04_rb,6.6785e-04_rb,9.0347e-04_rb, &\n     &1.1047e-03_rb,1.2717e-03_rb,6.0920e-04_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &5.0464e-07_rb,1.7900e-04_rb,3.4606e-04_rb,5.4112e-04_rb,7.7706e-04_rb,9.3108e-04_rb, &\n     &1.2909e-03_rb,1.4671e-03_rb,7.3637e-04_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &6.9109e-07_rb,2.1210e-04_rb,4.0308e-04_rb,5.9670e-04_rb,8.3572e-04_rb,1.0539e-03_rb, &\n     &1.2895e-03_rb,1.6281e-03_rb,8.3917e-04_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &9.4449e-07_rb,2.4973e-04_rb,4.6862e-04_rb,6.7662e-04_rb,9.0294e-04_rb,1.1388e-03_rb, &\n     &1.4230e-03_rb,1.8780e-03_rb,9.5236e-04_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &1.2785e-06_rb,2.9283e-04_rb,5.4407e-04_rb,7.7522e-04_rb,1.0053e-03_rb,1.2254e-03_rb, &\n     &1.5592e-03_rb,1.9031e-03_rb,1.1164e-03_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &5.5921e-07_rb,1.1924e-04_rb,2.2509e-04_rb,3.4318e-04_rb,5.2308e-04_rb,6.5616e-04_rb, &\n     &8.5230e-04_rb,1.0069e-03_rb,4.1268e-04_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &7.5055e-07_rb,1.4483e-04_rb,2.6805e-04_rb,3.9345e-04_rb,5.4245e-04_rb,7.6863e-04_rb, &\n     &8.6931e-04_rb,1.1266e-03_rb,5.0829e-04_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &1.0282e-06_rb,1.7418e-04_rb,3.1823e-04_rb,4.6052e-04_rb,6.0646e-04_rb,8.0699e-04_rb, &\n     &9.9010e-04_rb,1.2822e-03_rb,5.8353e-04_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &1.4165e-06_rb,2.0776e-04_rb,3.7640e-04_rb,5.3896e-04_rb,6.9736e-04_rb,8.7108e-04_rb, &\n     &1.0948e-03_rb,1.3035e-03_rb,6.8429e-04_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &1.9344e-06_rb,2.4744e-04_rb,4.4263e-04_rb,6.2983e-04_rb,8.0258e-04_rb,9.7503e-04_rb, &\n     &1.1651e-03_rb,1.4497e-03_rb,8.1461e-04_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &8.5732e-07_rb,9.6467e-05_rb,1.7424e-04_rb,2.5100e-04_rb,3.3065e-04_rb,4.8724e-04_rb, &\n     &6.0299e-04_rb,7.8582e-04_rb,2.9808e-04_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &1.1308e-06_rb,1.1826e-04_rb,2.1303e-04_rb,3.0261e-04_rb,3.9186e-04_rb,5.0849e-04_rb, &\n     &7.0322e-04_rb,8.2275e-04_rb,3.5462e-04_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &1.5409e-06_rb,1.4413e-04_rb,2.5818e-04_rb,3.6263e-04_rb,4.6469e-04_rb,5.7592e-04_rb, &\n     &7.3867e-04_rb,8.7496e-04_rb,4.2760e-04_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &2.1300e-06_rb,1.7563e-04_rb,3.1026e-04_rb,4.3228e-04_rb,5.4859e-04_rb,6.6681e-04_rb, &\n     &7.9581e-04_rb,9.9932e-04_rb,5.0892e-04_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &2.9291e-06_rb,2.1272e-04_rb,3.6864e-04_rb,5.1165e-04_rb,6.4677e-04_rb,7.7619e-04_rb, &\n     &8.9814e-04_rb,1.0897e-03_rb,6.0064e-04_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &1.2415e-06_rb,7.8277e-05_rb,1.3778e-04_rb,1.9284e-04_rb,2.4740e-04_rb,3.0422e-04_rb, &\n     &4.5046e-04_rb,5.5097e-04_rb,2.1557e-04_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &1.5909e-06_rb,9.7521e-05_rb,1.7125e-04_rb,2.3852e-04_rb,3.0221e-04_rb,3.6563e-04_rb, &\n     &4.6525e-04_rb,6.1320e-04_rb,2.5987e-04_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &2.1423e-06_rb,1.2163e-04_rb,2.0881e-04_rb,2.9129e-04_rb,3.6625e-04_rb,4.3908e-04_rb, &\n     &5.2524e-04_rb,7.1422e-04_rb,3.1853e-04_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &2.9538e-06_rb,1.5072e-04_rb,2.5416e-04_rb,3.5255e-04_rb,4.4063e-04_rb,5.2156e-04_rb, &\n     &6.0639e-04_rb,7.4820e-04_rb,3.8686e-04_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &4.0808e-06_rb,1.8492e-04_rb,3.0793e-04_rb,4.2155e-04_rb,5.2630e-04_rb,6.1892e-04_rb, &\n     &7.0820e-04_rb,8.0049e-04_rb,4.6257e-04_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &1.7276e-06_rb,6.3066e-05_rb,1.0985e-04_rb,1.5043e-04_rb,1.8792e-04_rb,2.2547e-04_rb, &\n     &2.7278e-04_rb,4.0029e-04_rb,1.5625e-04_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &2.1189e-06_rb,8.0476e-05_rb,1.3664e-04_rb,1.8841e-04_rb,2.3492e-04_rb,2.7888e-04_rb, &\n     &3.2236e-04_rb,4.6057e-04_rb,1.9653e-04_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &2.7917e-06_rb,1.0200e-04_rb,1.6954e-04_rb,2.3141e-04_rb,2.8961e-04_rb,3.4143e-04_rb, &\n     &3.9023e-04_rb,4.8352e-04_rb,2.3947e-04_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &3.8168e-06_rb,1.2811e-04_rb,2.1054e-04_rb,2.8370e-04_rb,3.5217e-04_rb,4.1385e-04_rb, &\n     &4.6780e-04_rb,5.3253e-04_rb,2.9421e-04_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &5.2799e-06_rb,1.5893e-04_rb,2.5910e-04_rb,3.4517e-04_rb,4.2434e-04_rb,4.9842e-04_rb, &\n     &5.5728e-04_rb,6.1195e-04_rb,3.4978e-04_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &2.6141e-06_rb,5.1662e-05_rb,8.7249e-05_rb,1.2099e-04_rb,1.4820e-04_rb,1.7386e-04_rb, &\n     &1.9973e-04_rb,2.8823e-04_rb,1.2462e-04_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &3.0451e-06_rb,6.6903e-05_rb,1.1099e-04_rb,1.5079e-04_rb,1.8779e-04_rb,2.1746e-04_rb, &\n     &2.4532e-04_rb,2.8791e-04_rb,1.5686e-04_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &3.8821e-06_rb,8.6234e-05_rb,1.4155e-04_rb,1.8817e-04_rb,2.3079e-04_rb,2.7142e-04_rb, &\n     &3.0362e-04_rb,3.3424e-04_rb,1.9309e-04_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &5.2168e-06_rb,1.0990e-04_rb,1.7879e-04_rb,2.3488e-04_rb,2.8585e-04_rb,3.3138e-04_rb, &\n     &3.7038e-04_rb,4.0029e-04_rb,2.2841e-04_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &7.1879e-06_rb,1.3891e-04_rb,2.2275e-04_rb,2.9114e-04_rb,3.5068e-04_rb,4.0298e-04_rb, &\n     &4.4929e-04_rb,4.7758e-04_rb,2.7333e-04_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &4.8895e-06_rb,4.6642e-05_rb,7.3353e-05_rb,9.8230e-05_rb,1.2186e-04_rb,1.4040e-04_rb, &\n     &1.5472e-04_rb,1.7158e-04_rb,1.2116e-04_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &5.4032e-06_rb,6.0479e-05_rb,9.5191e-05_rb,1.2606e-04_rb,1.5260e-04_rb,1.7774e-04_rb, &\n     &1.9641e-04_rb,2.0965e-04_rb,1.4264e-04_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &6.5997e-06_rb,7.8772e-05_rb,1.2353e-04_rb,1.6212e-04_rb,1.9427e-04_rb,2.2313e-04_rb, &\n     &2.4636e-04_rb,2.5986e-04_rb,1.7188e-04_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &8.6548e-06_rb,1.0205e-04_rb,1.5903e-04_rb,2.0720e-04_rb,2.4581e-04_rb,2.7759e-04_rb, &\n     &3.0314e-04_rb,3.2037e-04_rb,2.0203e-04_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &1.1792e-05_rb,1.3168e-04_rb,2.0236e-04_rb,2.6066e-04_rb,3.0759e-04_rb,3.4497e-04_rb, &\n     &3.7389e-04_rb,3.8968e-04_rb,2.4008e-04_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &1.7686e-05_rb,6.2925e-05_rb,8.5198e-05_rb,1.0213e-04_rb,1.1543e-04_rb,1.2780e-04_rb, &\n     &1.3994e-04_rb,1.4164e-04_rb,1.0306e-04_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &1.8629e-05_rb,7.9145e-05_rb,1.0839e-04_rb,1.3177e-04_rb,1.5002e-04_rb,1.6481e-04_rb, &\n     &1.7578e-04_rb,1.8331e-04_rb,1.3692e-04_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &2.1655e-05_rb,1.0259e-04_rb,1.4047e-04_rb,1.7139e-04_rb,1.9624e-04_rb,2.1451e-04_rb, &\n     &2.2698e-04_rb,2.2863e-04_rb,1.7350e-04_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &2.7461e-05_rb,1.3575e-04_rb,1.8409e-04_rb,2.2366e-04_rb,2.5484e-04_rb,2.7815e-04_rb, &\n     &2.9152e-04_rb,2.8719e-04_rb,2.1425e-04_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &3.6727e-05_rb,1.8189e-04_rb,2.4258e-04_rb,2.9022e-04_rb,3.2921e-04_rb,3.5617e-04_rb, &\n     &3.6983e-04_rb,3.5850e-04_rb,2.5866e-04_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &7.2663e-05_rb,1.2805e-04_rb,1.4610e-04_rb,1.5523e-04_rb,1.5931e-04_rb,1.5768e-04_rb, &\n     &1.4950e-04_rb,1.3593e-04_rb,1.1207e-04_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &7.4019e-05_rb,1.5108e-04_rb,1.7625e-04_rb,1.9103e-04_rb,1.9729e-04_rb,1.9817e-04_rb, &\n     &1.9144e-04_rb,1.7408e-04_rb,1.5499e-04_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &8.2403e-05_rb,1.8863e-04_rb,2.2414e-04_rb,2.4536e-04_rb,2.5373e-04_rb,2.5549e-04_rb, &\n     &2.4939e-04_rb,2.2811e-04_rb,2.0551e-04_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &1.0093e-04_rb,2.4723e-04_rb,2.9626e-04_rb,3.2296e-04_rb,3.3348e-04_rb,3.3522e-04_rb, &\n     &3.2677e-04_rb,2.9826e-04_rb,2.6379e-04_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &1.3200e-04_rb,3.3367e-04_rb,4.0011e-04_rb,4.3332e-04_rb,4.4493e-04_rb,4.4261e-04_rb, &\n     &4.2611e-04_rb,3.8581e-04_rb,3.2912e-04_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &1.0393e-04_rb,1.5840e-04_rb,1.7203e-04_rb,1.7648e-04_rb,1.7454e-04_rb,1.6667e-04_rb, &\n     &1.5308e-04_rb,1.2939e-04_rb,1.0993e-04_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &1.0623e-04_rb,1.8473e-04_rb,2.0510e-04_rb,2.1424e-04_rb,2.1529e-04_rb,2.0732e-04_rb, &\n     &1.9332e-04_rb,1.6735e-04_rb,1.5034e-04_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &1.1880e-04_rb,2.2821e-04_rb,2.5935e-04_rb,2.7369e-04_rb,2.7717e-04_rb,2.6782e-04_rb, &\n     &2.5002e-04_rb,2.1993e-04_rb,1.9822e-04_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &1.4561e-04_rb,2.9665e-04_rb,3.4318e-04_rb,3.6287e-04_rb,3.6642e-04_rb,3.5386e-04_rb, &\n     &3.2944e-04_rb,2.8811e-04_rb,2.5319e-04_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &1.9054e-04_rb,3.9809e-04_rb,4.6486e-04_rb,4.9198e-04_rb,4.9373e-04_rb,4.7462e-04_rb, &\n     &4.3676e-04_rb,3.7664e-04_rb,3.1222e-04_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &1.1070e-04_rb,1.5948e-04_rb,1.6935e-04_rb,1.7123e-04_rb,1.6742e-04_rb,1.5636e-04_rb, &\n     &1.4108e-04_rb,1.1641e-04_rb,9.3609e-05_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &1.1350e-04_rb,1.8499e-04_rb,2.0156e-04_rb,2.0690e-04_rb,2.0458e-04_rb,1.9450e-04_rb, &\n     &1.7678e-04_rb,1.4985e-04_rb,1.2839e-04_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &1.2733e-04_rb,2.2735e-04_rb,2.5402e-04_rb,2.6442e-04_rb,2.6348e-04_rb,2.5189e-04_rb, &\n     &2.2992e-04_rb,1.9655e-04_rb,1.6928e-04_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &1.5627e-04_rb,2.9456e-04_rb,3.3549e-04_rb,3.5142e-04_rb,3.5055e-04_rb,3.3475e-04_rb, &\n     &3.0473e-04_rb,2.5892e-04_rb,2.1653e-04_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &2.0441e-04_rb,3.9462e-04_rb,4.5461e-04_rb,4.7637e-04_rb,4.7456e-04_rb,4.5071e-04_rb, &\n     &4.0805e-04_rb,3.4047e-04_rb,2.6779e-04_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &9.4796e-05_rb,1.3566e-04_rb,1.4361e-04_rb,1.4479e-04_rb,1.4118e-04_rb,1.3147e-04_rb, &\n     &1.1819e-04_rb,9.7170e-05_rb,7.6303e-05_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &9.7387e-05_rb,1.5742e-04_rb,1.7115e-04_rb,1.7535e-04_rb,1.7300e-04_rb,1.6383e-04_rb, &\n     &1.4824e-04_rb,1.2513e-04_rb,1.0469e-04_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &1.0948e-04_rb,1.9354e-04_rb,2.1601e-04_rb,2.2450e-04_rb,2.2321e-04_rb,2.1287e-04_rb, &\n     &1.9350e-04_rb,1.6433e-04_rb,1.3819e-04_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &1.3445e-04_rb,2.5083e-04_rb,2.8549e-04_rb,2.9847e-04_rb,2.9725e-04_rb,2.8343e-04_rb, &\n     &2.5763e-04_rb,2.1720e-04_rb,1.7601e-04_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &1.7573e-04_rb,3.3657e-04_rb,3.8710e-04_rb,4.0560e-04_rb,4.0357e-04_rb,3.8257e-04_rb, &\n     &3.4653e-04_rb,2.8685e-04_rb,2.1855e-04_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &1.3073e-06_rb,4.2059e-04_rb,6.7561e-04_rb,8.6609e-04_rb,1.3520e-03_rb,1.6085e-03_rb, &\n     &2.0908e-03_rb,3.5262e-03_rb,1.7846e-03_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &1.8197e-06_rb,5.0768e-04_rb,8.4110e-04_rb,1.0238e-03_rb,1.3765e-03_rb,1.9239e-03_rb, &\n     &2.2997e-03_rb,3.5756e-03_rb,2.0767e-03_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &2.5084e-06_rb,6.1290e-04_rb,1.0202e-03_rb,1.2693e-03_rb,1.5516e-03_rb,2.0078e-03_rb, &\n     &2.5461e-03_rb,3.4922e-03_rb,2.2668e-03_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &3.4224e-06_rb,7.3392e-04_rb,1.2104e-03_rb,1.5455e-03_rb,1.8866e-03_rb,2.1966e-03_rb, &\n     &2.9624e-03_rb,3.8708e-03_rb,2.5909e-03_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &4.5990e-06_rb,8.7030e-04_rb,1.4253e-03_rb,1.8395e-03_rb,2.2537e-03_rb,2.6314e-03_rb, &\n     &3.0779e-03_rb,4.2442e-03_rb,2.9663e-03_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &1.5178e-06_rb,3.4269e-04_rb,6.0748e-04_rb,7.1986e-04_rb,9.3674e-04_rb,1.3121e-03_rb, &\n     &1.6102e-03_rb,2.4069e-03_rb,1.3247e-03_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &2.1299e-06_rb,4.2524e-04_rb,7.3703e-04_rb,9.3776e-04_rb,1.0398e-03_rb,1.4367e-03_rb, &\n     &1.7353e-03_rb,2.4061e-03_rb,1.5243e-03_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &2.9612e-06_rb,5.1753e-04_rb,8.8626e-04_rb,1.1500e-03_rb,1.2896e-03_rb,1.5263e-03_rb, &\n     &2.0876e-03_rb,2.6389e-03_rb,1.6966e-03_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &4.0897e-06_rb,6.2596e-04_rb,1.0597e-03_rb,1.3843e-03_rb,1.5850e-03_rb,1.8098e-03_rb, &\n     &2.1268e-03_rb,2.8656e-03_rb,1.9584e-03_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &5.5687e-06_rb,7.4555e-04_rb,1.2600e-03_rb,1.6347e-03_rb,1.9070e-03_rb,2.1914e-03_rb, &\n     &2.4166e-03_rb,3.3007e-03_rb,2.2669e-03_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &2.2234e-06_rb,2.7444e-04_rb,5.0085e-04_rb,6.9534e-04_rb,7.7629e-04_rb,8.8854e-04_rb, &\n     &1.1917e-03_rb,1.5373e-03_rb,9.1595e-04_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &3.1317e-06_rb,3.4263e-04_rb,6.2257e-04_rb,8.4941e-04_rb,1.0127e-03_rb,1.0143e-03_rb, &\n     &1.3362e-03_rb,1.6583e-03_rb,1.0393e-03_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &4.4080e-06_rb,4.2422e-04_rb,7.6347e-04_rb,1.0279e-03_rb,1.2387e-03_rb,1.2967e-03_rb, &\n     &1.3932e-03_rb,1.8408e-03_rb,1.2152e-03_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &6.1670e-06_rb,5.2130e-04_rb,9.2425e-04_rb,1.2412e-03_rb,1.4849e-03_rb,1.6022e-03_rb, &\n     &1.6415e-03_rb,2.0935e-03_rb,1.4201e-03_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &8.5264e-06_rb,6.3507e-04_rb,1.1072e-03_rb,1.4843e-03_rb,1.7747e-03_rb,1.9362e-03_rb, &\n     &2.0233e-03_rb,2.1572e-03_rb,1.6619e-03_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &3.2835e-06_rb,2.2111e-04_rb,3.9199e-04_rb,5.4782e-04_rb,7.1479e-04_rb,7.6154e-04_rb, &\n     &8.2345e-04_rb,1.0888e-03_rb,6.1749e-04_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &4.6177e-06_rb,2.8239e-04_rb,4.9392e-04_rb,6.9299e-04_rb,8.7089e-04_rb,1.0035e-03_rb, &\n     &9.4113e-04_rb,1.2776e-03_rb,7.2212e-04_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &6.5470e-06_rb,3.5777e-04_rb,6.1550e-04_rb,8.6066e-04_rb,1.0686e-03_rb,1.2181e-03_rb, &\n     &1.2204e-03_rb,1.3196e-03_rb,8.5856e-04_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &9.2896e-06_rb,4.4826e-04_rb,7.6106e-04_rb,1.0547e-03_rb,1.2989e-03_rb,1.4671e-03_rb, &\n     &1.5260e-03_rb,1.4238e-03_rb,1.0237e-03_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &1.3071e-05_rb,5.5733e-04_rb,9.3625e-04_rb,1.2821e-03_rb,1.5559e-03_rb,1.7516e-03_rb, &\n     &1.8364e-03_rb,1.7115e-03_rb,1.2165e-03_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &4.5002e-06_rb,1.7869e-04_rb,3.1112e-04_rb,4.2906e-04_rb,5.3570e-04_rb,6.6321e-04_rb, &\n     &6.6606e-04_rb,8.0088e-04_rb,4.3845e-04_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &6.2709e-06_rb,2.3526e-04_rb,3.9946e-04_rb,5.4822e-04_rb,6.8446e-04_rb,8.1650e-04_rb, &\n     &8.9841e-04_rb,8.3661e-04_rb,5.3250e-04_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &8.9215e-06_rb,3.0515e-04_rb,5.1007e-04_rb,6.9053e-04_rb,8.5739e-04_rb,1.0092e-03_rb, &\n     &1.0997e-03_rb,9.5118e-04_rb,6.4123e-04_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &1.2814e-05_rb,3.9188e-04_rb,6.4418e-04_rb,8.6120e-04_rb,1.0618e-03_rb,1.2430e-03_rb, &\n     &1.3327e-03_rb,1.2360e-03_rb,7.6830e-04_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &1.8376e-05_rb,4.9865e-04_rb,8.0644e-04_rb,1.0670e-03_rb,1.3038e-03_rb,1.5043e-03_rb, &\n     &1.6049e-03_rb,1.5432e-03_rb,9.1314e-04_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &5.7892e-06_rb,1.4663e-04_rb,2.4065e-04_rb,3.3064e-04_rb,4.1135e-04_rb,4.8169e-04_rb, &\n     &5.8379e-04_rb,5.7710e-04_rb,3.1814e-04_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &7.9690e-06_rb,1.9590e-04_rb,3.2041e-04_rb,4.3222e-04_rb,5.3334e-04_rb,6.2056e-04_rb, &\n     &7.1751e-04_rb,6.6758e-04_rb,3.9067e-04_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &1.1323e-05_rb,2.6004e-04_rb,4.1914e-04_rb,5.5855e-04_rb,6.8140e-04_rb,7.8989e-04_rb, &\n     &8.8852e-04_rb,8.8775e-04_rb,4.8310e-04_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &1.6358e-05_rb,3.4053e-04_rb,5.4044e-04_rb,7.1305e-04_rb,8.6088e-04_rb,9.8765e-04_rb, &\n     &1.0974e-03_rb,1.1000e-03_rb,5.7948e-04_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &2.3775e-05_rb,4.4089e-04_rb,6.9082e-04_rb,9.0148e-04_rb,1.0783e-03_rb,1.2236e-03_rb, &\n     &1.3409e-03_rb,1.3317e-03_rb,6.9627e-04_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &8.0091e-06_rb,1.2605e-04_rb,1.9716e-04_rb,2.5635e-04_rb,3.1697e-04_rb,3.6727e-04_rb, &\n     &4.1064e-04_rb,4.3234e-04_rb,2.4150e-04_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &1.0776e-05_rb,1.7034e-04_rb,2.6589e-04_rb,3.4715e-04_rb,4.2062e-04_rb,4.8583e-04_rb, &\n     &5.3757e-04_rb,5.9551e-04_rb,2.9725e-04_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &1.5189e-05_rb,2.2959e-04_rb,3.5476e-04_rb,4.5964e-04_rb,5.5426e-04_rb,6.3049e-04_rb, &\n     &6.9328e-04_rb,7.3902e-04_rb,3.6802e-04_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &2.2007e-05_rb,3.0657e-04_rb,4.6692e-04_rb,5.9983e-04_rb,7.1322e-04_rb,8.0913e-04_rb, &\n     &8.7898e-04_rb,9.1398e-04_rb,4.5358e-04_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &3.2377e-05_rb,4.0363e-04_rb,6.0728e-04_rb,7.7481e-04_rb,9.1139e-04_rb,1.0238e-03_rb, &\n     &1.0988e-03_rb,1.1244e-03_rb,5.4283e-04_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &1.3646e-05_rb,1.1718e-04_rb,1.7739e-04_rb,2.2327e-04_rb,2.5768e-04_rb,2.9227e-04_rb, &\n     &3.2168e-04_rb,3.3945e-04_rb,2.0435e-04_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &1.7797e-05_rb,1.5982e-04_rb,2.4160e-04_rb,3.0351e-04_rb,3.5441e-04_rb,3.9644e-04_rb, &\n     &4.3035e-04_rb,4.4547e-04_rb,2.6027e-04_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &2.4726e-05_rb,2.1816e-04_rb,3.2650e-04_rb,4.0893e-04_rb,4.7479e-04_rb,5.2784e-04_rb, &\n     &5.6990e-04_rb,5.8414e-04_rb,3.2342e-04_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &3.5739e-05_rb,2.9719e-04_rb,4.3967e-04_rb,5.4459e-04_rb,6.2961e-04_rb,6.9435e-04_rb, &\n     &7.4016e-04_rb,7.4703e-04_rb,3.9508e-04_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &5.2993e-05_rb,4.0333e-04_rb,5.8500e-04_rb,7.1845e-04_rb,8.2505e-04_rb,9.0108e-04_rb, &\n     &9.4665e-04_rb,9.4587e-04_rb,4.7280e-04_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &4.5250e-05_rb,1.4686e-04_rb,2.0230e-04_rb,2.4828e-04_rb,2.8036e-04_rb,2.9801e-04_rb, &\n     &2.9921e-04_rb,2.8815e-04_rb,2.4577e-04_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &5.6592e-05_rb,2.0110e-04_rb,2.8181e-04_rb,3.4405e-04_rb,3.8167e-04_rb,4.0863e-04_rb, &\n     &4.1514e-04_rb,3.9115e-04_rb,3.2441e-04_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &7.7017e-05_rb,2.8027e-04_rb,3.9316e-04_rb,4.7187e-04_rb,5.1925e-04_rb,5.5669e-04_rb, &\n     &5.6308e-04_rb,5.3177e-04_rb,4.1003e-04_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &1.1025e-04_rb,3.9471e-04_rb,5.4612e-04_rb,6.4824e-04_rb,7.1055e-04_rb,7.5245e-04_rb, &\n     &7.5557e-04_rb,7.0714e-04_rb,5.0547e-04_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &1.6377e-04_rb,5.5266e-04_rb,7.5260e-04_rb,8.8463e-04_rb,9.6217e-04_rb,1.0084e-03_rb, &\n     &1.0010e-03_rb,9.2831e-04_rb,5.9992e-04_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &1.7408e-04_rb,2.8709e-04_rb,3.2527e-04_rb,3.4835e-04_rb,3.5894e-04_rb,3.5919e-04_rb, &\n     &3.5263e-04_rb,3.1484e-04_rb,2.7571e-04_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &2.0961e-04_rb,3.6816e-04_rb,4.3143e-04_rb,4.6881e-04_rb,4.9659e-04_rb,5.0147e-04_rb, &\n     &4.9272e-04_rb,4.3339e-04_rb,3.8859e-04_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &2.7776e-04_rb,5.0192e-04_rb,5.9603e-04_rb,6.5181e-04_rb,6.9357e-04_rb,7.0312e-04_rb, &\n     &6.7864e-04_rb,5.9253e-04_rb,5.1467e-04_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &3.9424e-04_rb,7.1243e-04_rb,8.4498e-04_rb,9.2473e-04_rb,9.7484e-04_rb,9.8216e-04_rb, &\n     &9.3644e-04_rb,8.0724e-04_rb,6.5632e-04_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &5.8403e-04_rb,1.0226e-03_rb,1.2011e-03_rb,1.3089e-03_rb,1.3689e-03_rb,1.3686e-03_rb, &\n     &1.2847e-03_rb,1.0916e-03_rb,8.0745e-04_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &2.5093e-04_rb,3.5665e-04_rb,3.8701e-04_rb,3.9631e-04_rb,3.9372e-04_rb,3.8144e-04_rb, &\n     &3.5373e-04_rb,3.1423e-04_rb,3.0104e-04_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &3.0561e-04_rb,4.5397e-04_rb,5.0521e-04_rb,5.3017e-04_rb,5.3366e-04_rb,5.2816e-04_rb, &\n     &4.9620e-04_rb,4.3115e-04_rb,4.1409e-04_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &4.0935e-04_rb,6.2197e-04_rb,6.9995e-04_rb,7.3845e-04_rb,7.4646e-04_rb,7.4054e-04_rb, &\n     &7.0035e-04_rb,5.8985e-04_rb,5.4448e-04_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &5.8584e-04_rb,8.9030e-04_rb,1.0016e-03_rb,1.0495e-03_rb,1.0645e-03_rb,1.0487e-03_rb, &\n     &9.8184e-04_rb,8.1405e-04_rb,6.7706e-04_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &8.7589e-04_rb,1.3050e-03_rb,1.4464e-03_rb,1.5053e-03_rb,1.5175e-03_rb,1.4779e-03_rb, &\n     &1.3691e-03_rb,1.1154e-03_rb,8.3668e-04_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &2.6981e-04_rb,3.6165e-04_rb,3.8393e-04_rb,3.8621e-04_rb,3.7773e-04_rb,3.5863e-04_rb, &\n     &3.2723e-04_rb,2.8136e-04_rb,2.7937e-04_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &3.3189e-04_rb,4.6172e-04_rb,5.0224e-04_rb,5.1546e-04_rb,5.1134e-04_rb,4.9419e-04_rb, &\n     &4.6078e-04_rb,3.9503e-04_rb,3.8165e-04_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &4.4945e-04_rb,6.3614e-04_rb,7.0015e-04_rb,7.2309e-04_rb,7.1840e-04_rb,6.9882e-04_rb, &\n     &6.5062e-04_rb,5.4697e-04_rb,5.0283e-04_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &6.4949e-04_rb,9.2459e-04_rb,1.0096e-03_rb,1.0404e-03_rb,1.0301e-03_rb,9.9704e-04_rb, &\n     &9.2064e-04_rb,7.5726e-04_rb,6.3715e-04_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &9.7948e-04_rb,1.3695e-03_rb,1.4755e-03_rb,1.5098e-03_rb,1.4823e-03_rb,1.4173e-03_rb, &\n     &1.2918e-03_rb,1.0472e-03_rb,7.8120e-04_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &2.3347e-04_rb,3.0984e-04_rb,3.2740e-04_rb,3.2836e-04_rb,3.1964e-04_rb,3.0307e-04_rb, &\n     &2.7562e-04_rb,2.3564e-04_rb,2.3674e-04_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &2.9027e-04_rb,3.9857e-04_rb,4.3170e-04_rb,4.4144e-04_rb,4.3482e-04_rb,4.1943e-04_rb, &\n     &3.8943e-04_rb,3.3194e-04_rb,3.2365e-04_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &3.9524e-04_rb,5.5472e-04_rb,6.0676e-04_rb,6.2319e-04_rb,6.1597e-04_rb,5.9710e-04_rb, &\n     &5.5278e-04_rb,4.6213e-04_rb,4.2552e-04_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &5.7486e-04_rb,8.1393e-04_rb,8.8216e-04_rb,9.0454e-04_rb,8.9206e-04_rb,8.5566e-04_rb, &\n     &7.8499e-04_rb,6.4422e-04_rb,5.3476e-04_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &8.7246e-04_rb,1.2122e-03_rb,1.2989e-03_rb,1.3221e-03_rb,1.2955e-03_rb,1.2260e-03_rb, &\n     &1.1071e-03_rb,8.9174e-04_rb,6.5849e-04_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &5.2546e-06_rb,7.1189e-04_rb,1.0882e-03_rb,1.5407e-03_rb,1.6694e-03_rb,2.0484e-03_rb, &\n     &2.8523e-03_rb,4.1696e-03_rb,2.5067e-03_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &7.7092e-06_rb,8.7649e-04_rb,1.3426e-03_rb,1.8360e-03_rb,2.2345e-03_rb,2.3018e-03_rb, &\n     &2.9500e-03_rb,4.8247e-03_rb,2.8678e-03_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &1.1096e-05_rb,1.0569e-03_rb,1.6133e-03_rb,2.2145e-03_rb,2.7396e-03_rb,3.0159e-03_rb, &\n     &3.2179e-03_rb,5.1113e-03_rb,3.6024e-03_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &1.5736e-05_rb,1.2601e-03_rb,1.9380e-03_rb,2.6510e-03_rb,3.2424e-03_rb,3.7893e-03_rb, &\n     &3.9992e-03_rb,5.0794e-03_rb,4.4455e-03_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &2.1768e-05_rb,1.4881e-03_rb,2.3013e-03_rb,3.1272e-03_rb,3.8505e-03_rb,4.4934e-03_rb, &\n     &5.1336e-03_rb,5.8796e-03_rb,5.3642e-03_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &6.4189e-06_rb,6.4436e-04_rb,9.4389e-04_rb,1.2239e-03_rb,1.5862e-03_rb,1.5943e-03_rb, &\n     &2.1761e-03_rb,2.9768e-03_rb,1.8319e-03_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &9.5139e-06_rb,7.9863e-04_rb,1.1748e-03_rb,1.5104e-03_rb,1.9094e-03_rb,2.0876e-03_rb, &\n     &2.2172e-03_rb,3.3690e-03_rb,2.2079e-03_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &1.3920e-05_rb,9.7738e-04_rb,1.4337e-03_rb,1.8422e-03_rb,2.2904e-03_rb,2.6664e-03_rb, &\n     &2.6655e-03_rb,3.3322e-03_rb,2.7973e-03_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &1.9815e-05_rb,1.1745e-03_rb,1.7255e-03_rb,2.2150e-03_rb,2.7638e-03_rb,3.1950e-03_rb, &\n     &3.5144e-03_rb,3.6601e-03_rb,3.4291e-03_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &2.7567e-05_rb,1.3937e-03_rb,2.0553e-03_rb,2.6513e-03_rb,3.2736e-03_rb,3.7952e-03_rb, &\n     &4.2837e-03_rb,4.4922e-03_rb,4.1160e-03_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &9.6319e-06_rb,5.9789e-04_rb,9.0789e-04_rb,1.1077e-03_rb,1.2525e-03_rb,1.5120e-03_rb, &\n     &1.4959e-03_rb,2.1276e-03_rb,1.3456e-03_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &1.4531e-05_rb,7.5640e-04_rb,1.1412e-03_rb,1.3989e-03_rb,1.5703e-03_rb,1.7944e-03_rb, &\n     &1.9386e-03_rb,2.1696e-03_rb,1.7109e-03_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &2.1457e-05_rb,9.3610e-04_rb,1.4115e-03_rb,1.7272e-03_rb,1.9369e-03_rb,2.2003e-03_rb, &\n     &2.5012e-03_rb,2.3167e-03_rb,2.1265e-03_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &3.1112e-05_rb,1.1388e-03_rb,1.7200e-03_rb,2.0901e-03_rb,2.3590e-03_rb,2.6864e-03_rb, &\n     &2.9768e-03_rb,2.9114e-03_rb,2.5844e-03_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &4.3735e-05_rb,1.3632e-03_rb,2.0663e-03_rb,2.5031e-03_rb,2.8359e-03_rb,3.2124e-03_rb, &\n     &3.5643e-03_rb,3.8138e-03_rb,3.0766e-03_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &1.4332e-05_rb,5.0481e-04_rb,8.3885e-04_rb,1.0386e-03_rb,1.1528e-03_rb,1.2153e-03_rb, &\n     &1.3236e-03_rb,1.3236e-03_rb,9.9177e-04_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &2.1745e-05_rb,6.5797e-04_rb,1.0771e-03_rb,1.3282e-03_rb,1.4860e-03_rb,1.5492e-03_rb, &\n     &1.6188e-03_rb,1.5468e-03_rb,1.2757e-03_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &3.2667e-05_rb,8.3614e-04_rb,1.3479e-03_rb,1.6673e-03_rb,1.8582e-03_rb,1.9416e-03_rb, &\n     &2.0036e-03_rb,2.1024e-03_rb,1.5754e-03_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &4.8093e-05_rb,1.0472e-03_rb,1.6541e-03_rb,2.0462e-03_rb,2.2910e-03_rb,2.3927e-03_rb, &\n     &2.4569e-03_rb,2.6010e-03_rb,1.9210e-03_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &6.8610e-05_rb,1.2933e-03_rb,1.9995e-03_rb,2.4752e-03_rb,2.7858e-03_rb,2.9107e-03_rb, &\n     &2.9847e-03_rb,3.0912e-03_rb,2.3242e-03_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &1.9357e-05_rb,4.3188e-04_rb,6.9760e-04_rb,9.1881e-04_rb,1.0444e-03_rb,1.0861e-03_rb, &\n     &1.0808e-03_rb,1.0528e-03_rb,7.6202e-04_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &2.9833e-05_rb,5.6548e-04_rb,9.1440e-04_rb,1.2005e-03_rb,1.3604e-03_rb,1.4256e-03_rb, &\n     &1.3945e-03_rb,1.3872e-03_rb,9.4421e-04_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &4.5578e-05_rb,7.2730e-04_rb,1.1762e-03_rb,1.5269e-03_rb,1.7329e-03_rb,1.8168e-03_rb, &\n     &1.7751e-03_rb,1.6935e-03_rb,1.1652e-03_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &6.7915e-05_rb,9.2227e-04_rb,1.4839e-03_rb,1.8964e-03_rb,2.1540e-03_rb,2.2580e-03_rb, &\n     &2.2284e-03_rb,2.0768e-03_rb,1.4187e-03_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &9.8232e-05_rb,1.1614e-03_rb,1.8417e-03_rb,2.3162e-03_rb,2.6333e-03_rb,2.7678e-03_rb, &\n     &2.7278e-03_rb,2.5343e-03_rb,1.7135e-03_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &2.4087e-05_rb,3.6023e-04_rb,5.7620e-04_rb,7.4775e-04_rb,8.9007e-04_rb,9.5429e-04_rb, &\n     &9.1764e-04_rb,8.4636e-04_rb,5.7959e-04_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &3.7139e-05_rb,4.8232e-04_rb,7.6564e-04_rb,9.9341e-04_rb,1.1781e-03_rb,1.2665e-03_rb, &\n     &1.2330e-03_rb,1.0918e-03_rb,7.2688e-04_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &5.7836e-05_rb,6.3457e-04_rb,9.9482e-04_rb,1.2902e-03_rb,1.5235e-03_rb,1.6284e-03_rb, &\n     &1.5983e-03_rb,1.4005e-03_rb,8.9110e-04_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &8.7827e-05_rb,8.3029e-04_rb,1.2776e-03_rb,1.6365e-03_rb,1.9214e-03_rb,2.0538e-03_rb, &\n     &2.0181e-03_rb,1.7675e-03_rb,1.0912e-03_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &1.2951e-04_rb,1.0725e-03_rb,1.6206e-03_rb,2.0554e-03_rb,2.3768e-03_rb,2.5369e-03_rb, &\n     &2.5004e-03_rb,2.2047e-03_rb,1.3222e-03_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &3.1610e-05_rb,3.0736e-04_rb,4.8099e-04_rb,6.1875e-04_rb,7.2425e-04_rb,8.0714e-04_rb, &\n     &8.2765e-04_rb,7.1397e-04_rb,4.2627e-04_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &4.8734e-05_rb,4.2352e-04_rb,6.5473e-04_rb,8.3909e-04_rb,9.8036e-04_rb,1.0919e-03_rb, &\n     &1.1195e-03_rb,9.5621e-04_rb,5.5009e-04_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &7.5777e-05_rb,5.7189e-04_rb,8.6982e-04_rb,1.1085e-03_rb,1.2941e-03_rb,1.4332e-03_rb, &\n     &1.4595e-03_rb,1.2666e-03_rb,6.8930e-04_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &1.1758e-04_rb,7.6635e-04_rb,1.1428e-03_rb,1.4431e-03_rb,1.6723e-03_rb,1.8359e-03_rb, &\n     &1.8555e-03_rb,1.6214e-03_rb,8.4503e-04_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &1.7719e-04_rb,1.0176e-03_rb,1.4892e-03_rb,1.8529e-03_rb,2.1284e-03_rb,2.3074e-03_rb, &\n     &2.3192e-03_rb,2.0277e-03_rb,1.0269e-03_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &5.0016e-05_rb,3.0350e-04_rb,4.3130e-04_rb,5.4117e-04_rb,6.2740e-04_rb,6.8603e-04_rb, &\n     &7.1531e-04_rb,6.7206e-04_rb,3.4534e-04_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &7.6305e-05_rb,4.2110e-04_rb,6.0202e-04_rb,7.5262e-04_rb,8.6967e-04_rb,9.4998e-04_rb, &\n     &9.8539e-04_rb,9.2682e-04_rb,4.4615e-04_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &1.1911e-04_rb,5.8304e-04_rb,8.2209e-04_rb,1.0213e-03_rb,1.1738e-03_rb,1.2774e-03_rb, &\n     &1.3191e-03_rb,1.2307e-03_rb,5.5948e-04_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &1.8649e-04_rb,7.9923e-04_rb,1.1102e-03_rb,1.3602e-03_rb,1.5530e-03_rb,1.6805e-03_rb, &\n     &1.7288e-03_rb,1.5932e-03_rb,6.8951e-04_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &2.8664e-04_rb,1.0891e-03_rb,1.4894e-03_rb,1.7956e-03_rb,2.0238e-03_rb,2.1795e-03_rb, &\n     &2.2144e-03_rb,2.0105e-03_rb,8.3262e-04_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &1.5293e-04_rb,4.6711e-04_rb,5.9429e-04_rb,6.7143e-04_rb,7.0270e-04_rb,7.2578e-04_rb, &\n     &7.2031e-04_rb,6.7023e-04_rb,4.6857e-04_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &2.2743e-04_rb,6.5435e-04_rb,8.3260e-04_rb,9.2221e-04_rb,9.8476e-04_rb,1.0204e-03_rb, &\n     &1.0235e-03_rb,9.4955e-04_rb,5.6708e-04_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &3.5601e-04_rb,9.4855e-04_rb,1.1602e-03_rb,1.2875e-03_rb,1.3640e-03_rb,1.4067e-03_rb, &\n     &1.4070e-03_rb,1.3032e-03_rb,6.4714e-04_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &5.5911e-04_rb,1.3606e-03_rb,1.6272e-03_rb,1.7782e-03_rb,1.8671e-03_rb,1.9159e-03_rb, &\n     &1.8899e-03_rb,1.7374e-03_rb,7.3858e-04_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &8.7081e-04_rb,1.9356e-03_rb,2.2669e-03_rb,2.4429e-03_rb,2.5498e-03_rb,2.5834e-03_rb, &\n     &2.5150e-03_rb,2.2763e-03_rb,8.7139e-04_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &5.5025e-04_rb,9.1638e-04_rb,1.0524e-03_rb,1.1151e-03_rb,1.1173e-03_rb,1.0672e-03_rb, &\n     &9.7649e-04_rb,7.7345e-04_rb,6.5002e-04_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &7.9126e-04_rb,1.3002e-03_rb,1.4860e-03_rb,1.5598e-03_rb,1.5441e-03_rb,1.5015e-03_rb, &\n     &1.3399e-03_rb,1.0909e-03_rb,8.3499e-04_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &1.2237e-03_rb,1.9321e-03_rb,2.1587e-03_rb,2.2526e-03_rb,2.2235e-03_rb,2.1040e-03_rb, &\n     &1.8744e-03_rb,1.5238e-03_rb,1.0298e-03_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &1.9295e-03_rb,2.9068e-03_rb,3.1939e-03_rb,3.2884e-03_rb,3.1828e-03_rb,2.9739e-03_rb, &\n     &2.6100e-03_rb,2.0967e-03_rb,1.2389e-03_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &3.0420e-03_rb,4.3560e-03_rb,4.6911e-03_rb,4.7252e-03_rb,4.5246e-03_rb,4.1666e-03_rb, &\n     &3.6292e-03_rb,2.8608e-03_rb,1.4677e-03_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &8.0124e-04_rb,1.1600e-03_rb,1.2577e-03_rb,1.2913e-03_rb,1.2758e-03_rb,1.1948e-03_rb, &\n     &1.0607e-03_rb,8.2464e-04_rb,6.8579e-04_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &1.1673e-03_rb,1.6642e-03_rb,1.8003e-03_rb,1.8395e-03_rb,1.7987e-03_rb,1.6759e-03_rb, &\n     &1.4977e-03_rb,1.1597e-03_rb,8.7714e-04_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &1.8208e-03_rb,2.5072e-03_rb,2.6736e-03_rb,2.6935e-03_rb,2.6255e-03_rb,2.4196e-03_rb, &\n     &2.1072e-03_rb,1.6350e-03_rb,1.1070e-03_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &2.8872e-03_rb,3.8298e-03_rb,4.0028e-03_rb,4.0090e-03_rb,3.8400e-03_rb,3.4828e-03_rb, &\n     &2.9827e-03_rb,2.2825e-03_rb,1.3306e-03_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &4.5758e-03_rb,5.8214e-03_rb,5.9954e-03_rb,5.8806e-03_rb,5.5457e-03_rb,4.9671e-03_rb, &\n     &4.1979e-03_rb,3.1537e-03_rb,1.5896e-03_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &8.6957e-04_rb,1.1918e-03_rb,1.2597e-03_rb,1.2688e-03_rb,1.2375e-03_rb,1.1513e-03_rb, &\n     &1.0110e-03_rb,7.8620e-04_rb,6.6607e-04_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &1.2841e-03_rb,1.7262e-03_rb,1.8227e-03_rb,1.8310e-03_rb,1.7702e-03_rb,1.6364e-03_rb, &\n     &1.4379e-03_rb,1.0990e-03_rb,8.6314e-04_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &2.0183e-03_rb,2.6229e-03_rb,2.7286e-03_rb,2.7135e-03_rb,2.6112e-03_rb,2.3987e-03_rb, &\n     &2.0472e-03_rb,1.5496e-03_rb,1.0681e-03_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &3.2212e-03_rb,4.0504e-03_rb,4.1472e-03_rb,4.0702e-03_rb,3.8583e-03_rb,3.4748e-03_rb, &\n     &2.9262e-03_rb,2.1914e-03_rb,1.2601e-03_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &5.1511e-03_rb,6.2196e-03_rb,6.2591e-03_rb,6.0402e-03_rb,5.6302e-03_rb,4.9946e-03_rb, &\n     &4.1641e-03_rb,3.0581e-03_rb,1.4932e-03_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &7.5570e-04_rb,1.0245e-03_rb,1.0772e-03_rb,1.0860e-03_rb,1.0524e-03_rb,9.7557e-04_rb, &\n     &8.5610e-04_rb,6.6220e-04_rb,5.7960e-04_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &1.1289e-03_rb,1.4995e-03_rb,1.5736e-03_rb,1.5761e-03_rb,1.5191e-03_rb,1.4055e-03_rb, &\n     &1.2213e-03_rb,9.3390e-04_rb,7.5295e-04_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &1.7891e-03_rb,2.2942e-03_rb,2.3709e-03_rb,2.3513e-03_rb,2.2646e-03_rb,2.0616e-03_rb, &\n     &1.7545e-03_rb,1.3283e-03_rb,9.2119e-04_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &2.8872e-03_rb,3.5675e-03_rb,3.6372e-03_rb,3.5628e-03_rb,3.3407e-03_rb,3.0031e-03_rb, &\n     &2.5207e-03_rb,1.8863e-03_rb,1.0888e-03_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &4.6509e-03_rb,5.5327e-03_rb,5.4994e-03_rb,5.2862e-03_rb,4.8993e-03_rb,4.3534e-03_rb, &\n     &3.6092e-03_rb,2.6447e-03_rb,1.2715e-03_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &2.0197e-05_rb,1.1667e-03_rb,1.8703e-03_rb,2.3597e-03_rb,2.8442e-03_rb,3.3004e-03_rb, &\n     &3.9209e-03_rb,5.1050e-03_rb,4.4032e-03_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &2.9878e-05_rb,1.4283e-03_rb,2.2934e-03_rb,2.9621e-03_rb,3.4763e-03_rb,4.1665e-03_rb, &\n     &4.8948e-03_rb,5.8620e-03_rb,5.4661e-03_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &4.2867e-05_rb,1.7152e-03_rb,2.7742e-03_rb,3.5744e-03_rb,4.2361e-03_rb,5.0272e-03_rb, &\n     &5.9642e-03_rb,7.9378e-03_rb,6.6044e-03_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &5.9869e-05_rb,2.0335e-03_rb,3.2827e-03_rb,4.2442e-03_rb,5.1046e-03_rb,5.9179e-03_rb, &\n     &7.1401e-03_rb,9.6601e-03_rb,7.8490e-03_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &8.1517e-05_rb,2.3834e-03_rb,3.8440e-03_rb,4.9959e-03_rb,6.0214e-03_rb,7.0692e-03_rb, &\n     &8.4265e-03_rb,1.1443e-02_rb,9.2888e-03_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &2.5366e-05_rb,1.0671e-03_rb,1.6131e-03_rb,2.1123e-03_rb,2.3685e-03_rb,2.7185e-03_rb, &\n     &3.0418e-03_rb,3.4879e-03_rb,3.3143e-03_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &3.7671e-05_rb,1.3088e-03_rb,2.0014e-03_rb,2.6106e-03_rb,3.0312e-03_rb,3.3873e-03_rb, &\n     &3.9017e-03_rb,4.5215e-03_rb,4.1143e-03_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &5.4541e-05_rb,1.5795e-03_rb,2.4306e-03_rb,3.1726e-03_rb,3.7137e-03_rb,4.1208e-03_rb, &\n     &4.7737e-03_rb,5.7376e-03_rb,4.9901e-03_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &7.7056e-05_rb,1.8857e-03_rb,2.9009e-03_rb,3.7836e-03_rb,4.4364e-03_rb,5.0235e-03_rb, &\n     &5.6427e-03_rb,6.9365e-03_rb,5.9848e-03_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &1.0566e-04_rb,2.2344e-03_rb,3.4137e-03_rb,4.4552e-03_rb,5.2671e-03_rb,5.9853e-03_rb, &\n     &6.7249e-03_rb,8.2397e-03_rb,7.1296e-03_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &3.9558e-05_rb,1.0742e-03_rb,1.5248e-03_rb,1.8501e-03_rb,2.1830e-03_rb,2.3261e-03_rb, &\n     &2.4391e-03_rb,2.5890e-03_rb,2.3829e-03_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &5.9594e-05_rb,1.3476e-03_rb,1.8940e-03_rb,2.3182e-03_rb,2.7486e-03_rb,3.0410e-03_rb, &\n     &3.0839e-03_rb,3.3287e-03_rb,2.9662e-03_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &8.7495e-05_rb,1.6651e-03_rb,2.3108e-03_rb,2.8515e-03_rb,3.3798e-03_rb,3.7359e-03_rb, &\n     &3.8327e-03_rb,4.1905e-03_rb,3.5949e-03_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &1.2450e-04_rb,2.0293e-03_rb,2.7849e-03_rb,3.4502e-03_rb,4.0760e-03_rb,4.5002e-03_rb, &\n     &4.7432e-03_rb,5.0708e-03_rb,4.3551e-03_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &1.7405e-04_rb,2.4316e-03_rb,3.3182e-03_rb,4.1142e-03_rb,4.8387e-03_rb,5.3673e-03_rb, &\n     &5.6716e-03_rb,6.0036e-03_rb,5.2554e-03_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &6.0993e-05_rb,1.0865e-03_rb,1.5064e-03_rb,1.7956e-03_rb,1.9492e-03_rb,2.0758e-03_rb, &\n     &2.1376e-03_rb,1.9974e-03_rb,1.7194e-03_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &9.3739e-05_rb,1.3938e-03_rb,1.9090e-03_rb,2.2655e-03_rb,2.4714e-03_rb,2.6468e-03_rb, &\n     &2.7998e-03_rb,2.5993e-03_rb,2.1766e-03_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &1.3999e-04_rb,1.7512e-03_rb,2.3888e-03_rb,2.8018e-03_rb,3.0687e-03_rb,3.3097e-03_rb, &\n     &3.4825e-03_rb,3.2297e-03_rb,2.6912e-03_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &2.0284e-04_rb,2.1576e-03_rb,2.9507e-03_rb,3.4179e-03_rb,3.7408e-03_rb,4.0628e-03_rb, &\n     &4.2589e-03_rb,4.0554e-03_rb,3.2822e-03_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &2.8653e-04_rb,2.6101e-03_rb,3.5917e-03_rb,4.1189e-03_rb,4.5031e-03_rb,4.8876e-03_rb, &\n     &5.1085e-03_rb,4.9728e-03_rb,3.9394e-03_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &8.6213e-05_rb,1.0235e-03_rb,1.4463e-03_rb,1.6932e-03_rb,1.8586e-03_rb,1.8899e-03_rb, &\n     &1.8325e-03_rb,1.6931e-03_rb,1.2167e-03_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &1.3497e-04_rb,1.3639e-03_rb,1.8867e-03_rb,2.1813e-03_rb,2.3731e-03_rb,2.4352e-03_rb, &\n     &2.3757e-03_rb,2.2169e-03_rb,1.5707e-03_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &2.0469e-04_rb,1.7684e-03_rb,2.3970e-03_rb,2.7679e-03_rb,2.9816e-03_rb,3.0549e-03_rb, &\n     &3.0098e-03_rb,2.8798e-03_rb,1.9802e-03_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &3.0118e-04_rb,2.2412e-03_rb,2.9952e-03_rb,3.4514e-03_rb,3.7055e-03_rb,3.7675e-03_rb, &\n     &3.7358e-03_rb,3.5681e-03_rb,2.4524e-03_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &4.3178e-04_rb,2.7692e-03_rb,3.6699e-03_rb,4.2507e-03_rb,4.5341e-03_rb,4.5904e-03_rb, &\n     &4.5606e-03_rb,4.3497e-03_rb,2.9904e-03_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &1.1224e-04_rb,9.6248e-04_rb,1.3486e-03_rb,1.5651e-03_rb,1.6739e-03_rb,1.7217e-03_rb, &\n     &1.6200e-03_rb,1.3812e-03_rb,9.3024e-04_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &1.7788e-04_rb,1.2979e-03_rb,1.7963e-03_rb,2.0621e-03_rb,2.2013e-03_rb,2.2377e-03_rb, &\n     &2.1278e-03_rb,1.8809e-03_rb,1.2042e-03_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &2.7340e-04_rb,1.7148e-03_rb,2.3323e-03_rb,2.6619e-03_rb,2.8238e-03_rb,2.8631e-03_rb, &\n     &2.7284e-03_rb,2.4183e-03_rb,1.5217e-03_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &4.0959e-04_rb,2.2331e-03_rb,2.9678e-03_rb,3.3799e-03_rb,3.5736e-03_rb,3.5928e-03_rb, &\n     &3.4271e-03_rb,3.0552e-03_rb,1.8843e-03_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &5.9620e-04_rb,2.8328e-03_rb,3.7008e-03_rb,4.1972e-03_rb,4.4330e-03_rb,4.4525e-03_rb, &\n     &4.2185e-03_rb,3.7711e-03_rb,2.2988e-03_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &1.5344e-04_rb,9.2316e-04_rb,1.2773e-03_rb,1.5000e-03_rb,1.6102e-03_rb,1.6127e-03_rb, &\n     &1.5115e-03_rb,1.2377e-03_rb,7.0764e-04_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &2.4398e-04_rb,1.2809e-03_rb,1.7477e-03_rb,2.0347e-03_rb,2.1522e-03_rb,2.1311e-03_rb, &\n     &1.9950e-03_rb,1.6669e-03_rb,9.1774e-04_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &3.8058e-04_rb,1.7477e-03_rb,2.3440e-03_rb,2.6829e-03_rb,2.8039e-03_rb,2.7555e-03_rb, &\n     &2.5876e-03_rb,2.1763e-03_rb,1.1586e-03_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &5.7739e-04_rb,2.3349e-03_rb,3.0698e-03_rb,3.4470e-03_rb,3.5790e-03_rb,3.5331e-03_rb, &\n     &3.3054e-03_rb,2.7805e-03_rb,1.4458e-03_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &8.5208e-04_rb,3.0383e-03_rb,3.9002e-03_rb,4.3347e-03_rb,4.5004e-03_rb,4.4415e-03_rb, &\n     &4.1236e-03_rb,3.4788e-03_rb,1.7825e-03_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &2.5035e-04_rb,9.8089e-04_rb,1.3026e-03_rb,1.5173e-03_rb,1.6357e-03_rb,1.6535e-03_rb, &\n     &1.5386e-03_rb,1.2613e-03_rb,5.4812e-04_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &3.9983e-04_rb,1.4074e-03_rb,1.8431e-03_rb,2.1183e-03_rb,2.2695e-03_rb,2.2610e-03_rb, &\n     &2.0892e-03_rb,1.6966e-03_rb,7.0487e-04_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &6.2524e-04_rb,1.9883e-03_rb,2.5535e-03_rb,2.8971e-03_rb,3.0599e-03_rb,3.0259e-03_rb, &\n     &2.7534e-03_rb,2.2128e-03_rb,8.9347e-04_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &9.6475e-04_rb,2.7489e-03_rb,3.4725e-03_rb,3.8856e-03_rb,4.0355e-03_rb,3.9357e-03_rb, &\n     &3.5484e-03_rb,2.8450e-03_rb,1.1141e-03_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &1.4492e-03_rb,3.7234e-03_rb,4.6023e-03_rb,5.0761e-03_rb,5.1898e-03_rb,5.0041e-03_rb, &\n     &4.4962e-03_rb,3.6082e-03_rb,1.3876e-03_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &7.7717e-04_rb,1.6076e-03_rb,1.9327e-03_rb,2.0950e-03_rb,2.1727e-03_rb,2.1507e-03_rb, &\n     &2.0239e-03_rb,1.6619e-03_rb,6.5283e-04_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &1.2257e-03_rb,2.4216e-03_rb,2.8205e-03_rb,3.0706e-03_rb,3.1558e-03_rb,3.0893e-03_rb, &\n     &2.8639e-03_rb,2.3215e-03_rb,8.1326e-04_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &1.9258e-03_rb,3.5788e-03_rb,4.1331e-03_rb,4.4121e-03_rb,4.4825e-03_rb,4.3456e-03_rb, &\n     &3.9751e-03_rb,3.1546e-03_rb,1.0072e-03_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &3.0058e-03_rb,5.1816e-03_rb,5.8926e-03_rb,6.2133e-03_rb,6.2513e-03_rb,5.9943e-03_rb, &\n     &5.4160e-03_rb,4.1735e-03_rb,1.2133e-03_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &4.5860e-03_rb,7.3561e-03_rb,8.1694e-03_rb,8.5315e-03_rb,8.5009e-03_rb,8.0696e-03_rb, &\n     &7.1597e-03_rb,5.3914e-03_rb,1.4524e-03_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &2.7632e-03_rb,3.7578e-03_rb,3.8929e-03_rb,3.8648e-03_rb,3.7150e-03_rb,3.4386e-03_rb, &\n     &2.9824e-03_rb,2.3042e-03_rb,1.1595e-03_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &4.3618e-03_rb,5.8439e-03_rb,6.0237e-03_rb,5.9173e-03_rb,5.6198e-03_rb,5.0739e-03_rb, &\n     &4.3966e-03_rb,3.3846e-03_rb,1.3310e-03_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &6.8076e-03_rb,8.8616e-03_rb,9.0867e-03_rb,8.8297e-03_rb,8.2980e-03_rb,7.5120e-03_rb, &\n     &6.4366e-03_rb,4.8357e-03_rb,1.4427e-03_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &1.0727e-02_rb,1.3247e-02_rb,1.3386e-02_rb,1.2895e-02_rb,1.2079e-02_rb,1.0841e-02_rb, &\n     &9.1826e-03_rb,6.8074e-03_rb,1.5623e-03_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &1.6578e-02_rb,1.9641e-02_rb,1.9517e-02_rb,1.8627e-02_rb,1.7184e-02_rb,1.5227e-02_rb, &\n     &1.2710e-02_rb,9.3140e-03_rb,1.8266e-03_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &4.3397e-03_rb,5.2633e-03_rb,5.2314e-03_rb,5.0017e-03_rb,4.6314e-03_rb,4.1308e-03_rb, &\n     &3.4621e-03_rb,2.5597e-03_rb,1.2582e-03_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &6.6934e-03_rb,8.1477e-03_rb,8.0949e-03_rb,7.7188e-03_rb,7.1188e-03_rb,6.2977e-03_rb, &\n     &5.1713e-03_rb,3.7779e-03_rb,1.4574e-03_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &1.0432e-02_rb,1.2428e-02_rb,1.2196e-02_rb,1.1560e-02_rb,1.0566e-02_rb,9.2464e-03_rb, &\n     &7.6156e-03_rb,5.5141e-03_rb,1.6582e-03_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &1.6491e-02_rb,1.8759e-02_rb,1.8258e-02_rb,1.7109e-02_rb,1.5472e-02_rb,1.3463e-02_rb, &\n     &1.0963e-02_rb,7.7973e-03_rb,1.8335e-03_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &2.5430e-02_rb,2.8078e-02_rb,2.7002e-02_rb,2.5032e-02_rb,2.2392e-02_rb,1.9261e-02_rb, &\n     &1.5474e-02_rb,1.0784e-02_rb,2.0075e-03_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &4.9273e-03_rb,5.7931e-03_rb,5.6746e-03_rb,5.3611e-03_rb,4.8847e-03_rb,4.2709e-03_rb, &\n     &3.4855e-03_rb,2.4889e-03_rb,1.1526e-03_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &7.6884e-03_rb,8.9132e-03_rb,8.6777e-03_rb,8.1782e-03_rb,7.4327e-03_rb,6.4648e-03_rb, &\n     &5.2372e-03_rb,3.6981e-03_rb,1.3373e-03_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &1.2107e-02_rb,1.3711e-02_rb,1.3177e-02_rb,1.2250e-02_rb,1.1036e-02_rb,9.5160e-03_rb, &\n     &7.6801e-03_rb,5.4155e-03_rb,1.5194e-03_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &1.8869e-02_rb,2.0811e-02_rb,1.9833e-02_rb,1.8325e-02_rb,1.6361e-02_rb,1.3983e-02_rb, &\n     &1.1160e-02_rb,7.6837e-03_rb,1.7468e-03_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &2.9063e-02_rb,3.1131e-02_rb,2.9461e-02_rb,2.6993e-02_rb,2.3838e-02_rb,2.0192e-02_rb, &\n     &1.5924e-02_rb,1.0737e-02_rb,1.9884e-03_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &4.3869e-03_rb,5.1798e-03_rb,5.0989e-03_rb,4.8169e-03_rb,4.3794e-03_rb,3.7839e-03_rb, &\n     &3.0521e-03_rb,2.1587e-03_rb,9.4784e-04_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &6.9481e-03_rb,8.0525e-03_rb,7.8458e-03_rb,7.3314e-03_rb,6.6078e-03_rb,5.7100e-03_rb, &\n     &4.5663e-03_rb,3.2136e-03_rb,1.0961e-03_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &1.1021e-02_rb,1.2458e-02_rb,1.1977e-02_rb,1.1021e-02_rb,9.8258e-03_rb,8.4083e-03_rb, &\n     &6.7419e-03_rb,4.6947e-03_rb,1.2238e-03_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &1.7310e-02_rb,1.8923e-02_rb,1.8001e-02_rb,1.6509e-02_rb,1.4657e-02_rb,1.2419e-02_rb, &\n     &9.8548e-03_rb,6.6916e-03_rb,1.4326e-03_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &2.6619e-02_rb,2.8296e-02_rb,2.6623e-02_rb,2.4187e-02_rb,2.1294e-02_rb,1.7939e-02_rb, &\n     &1.4103e-02_rb,9.4141e-03_rb,1.6712e-03_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &1.5033e-04_rb,2.0446e-03_rb,3.1681e-03_rb,4.0928e-03_rb,4.9645e-03_rb,5.8752e-03_rb, &\n     &6.8891e-03_rb,9.7460e-03_rb,8.2375e-03_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &2.0389e-04_rb,2.4966e-03_rb,3.8465e-03_rb,4.9929e-03_rb,6.1245e-03_rb,7.2940e-03_rb, &\n     &8.7776e-03_rb,1.1499e-02_rb,1.0182e-02_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &2.6769e-04_rb,3.0079e-03_rb,4.6076e-03_rb,5.9938e-03_rb,7.3703e-03_rb,8.8250e-03_rb, &\n     &1.0916e-02_rb,1.3468e-02_rb,1.2268e-02_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &3.4024e-04_rb,3.5831e-03_rb,5.4751e-03_rb,7.1124e-03_rb,8.7423e-03_rb,1.0600e-02_rb, &\n     &1.2985e-02_rb,1.6757e-02_rb,1.4652e-02_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &4.2020e-04_rb,4.2180e-03_rb,6.4294e-03_rb,8.3453e-03_rb,1.0248e-02_rb,1.2449e-02_rb, &\n     &1.5350e-02_rb,1.9955e-02_rb,1.7214e-02_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &1.8399e-04_rb,1.8419e-03_rb,2.8498e-03_rb,3.5822e-03_rb,4.2442e-03_rb,4.8814e-03_rb, &\n     &5.3141e-03_rb,6.9582e-03_rb,6.1890e-03_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &2.5292e-04_rb,2.2771e-03_rb,3.4958e-03_rb,4.3938e-03_rb,5.2283e-03_rb,6.0330e-03_rb, &\n     &6.8353e-03_rb,8.0230e-03_rb,7.6976e-03_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &3.3540e-04_rb,2.7711e-03_rb,4.2257e-03_rb,5.3109e-03_rb,6.3352e-03_rb,7.3450e-03_rb, &\n     &8.3567e-03_rb,1.0142e-02_rb,9.3716e-03_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &4.2928e-04_rb,3.3267e-03_rb,5.0595e-03_rb,6.3597e-03_rb,7.5719e-03_rb,8.7753e-03_rb, &\n     &1.0137e-02_rb,1.2487e-02_rb,1.1226e-02_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &5.3326e-04_rb,3.9397e-03_rb,5.9807e-03_rb,7.5174e-03_rb,8.9383e-03_rb,1.0365e-02_rb, &\n     &1.1992e-02_rb,1.4789e-02_rb,1.3251e-02_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &2.8126e-04_rb,1.8765e-03_rb,2.6588e-03_rb,3.3485e-03_rb,3.8221e-03_rb,4.1636e-03_rb, &\n     &4.4682e-03_rb,4.4846e-03_rb,4.3919e-03_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &3.9449e-04_rb,2.3306e-03_rb,3.3231e-03_rb,4.1650e-03_rb,4.7241e-03_rb,5.1684e-03_rb, &\n     &5.5884e-03_rb,5.9167e-03_rb,5.5074e-03_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &5.3269e-04_rb,2.8500e-03_rb,4.0835e-03_rb,5.0834e-03_rb,5.7677e-03_rb,6.3235e-03_rb, &\n     &6.8829e-03_rb,7.4745e-03_rb,6.8347e-03_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &6.9304e-04_rb,3.4418e-03_rb,4.9465e-03_rb,6.1263e-03_rb,6.9668e-03_rb,7.6366e-03_rb, &\n     &8.3133e-03_rb,9.1010e-03_rb,8.2831e-03_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &8.7133e-04_rb,4.1178e-03_rb,5.9088e-03_rb,7.3026e-03_rb,8.3125e-03_rb,9.0996e-03_rb, &\n     &9.9113e-03_rb,1.0888e-02_rb,9.8539e-03_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &4.2942e-04_rb,2.1209e-03_rb,2.6611e-03_rb,3.0954e-03_rb,3.5092e-03_rb,3.7795e-03_rb, &\n     &3.7536e-03_rb,3.6803e-03_rb,3.1833e-03_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &6.1278e-04_rb,2.6801e-03_rb,3.3648e-03_rb,3.9108e-03_rb,4.4289e-03_rb,4.7305e-03_rb, &\n     &4.7677e-03_rb,4.7187e-03_rb,4.0112e-03_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &8.4431e-04_rb,3.3316e-03_rb,4.1648e-03_rb,4.8597e-03_rb,5.4829e-03_rb,5.8484e-03_rb, &\n     &5.9135e-03_rb,5.9451e-03_rb,4.9891e-03_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &1.1175e-03_rb,4.0506e-03_rb,5.0747e-03_rb,5.9647e-03_rb,6.6966e-03_rb,7.1102e-03_rb, &\n     &7.2127e-03_rb,7.2668e-03_rb,6.0794e-03_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &1.4334e-03_rb,4.8948e-03_rb,6.1056e-03_rb,7.2069e-03_rb,8.0737e-03_rb,8.5555e-03_rb, &\n     &8.6934e-03_rb,8.7560e-03_rb,7.1896e-03_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &6.0926e-04_rb,2.3529e-03_rb,2.8355e-03_rb,3.0797e-03_rb,3.2149e-03_rb,3.3400e-03_rb, &\n     &3.3910e-03_rb,2.9801e-03_rb,2.2681e-03_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &8.8131e-04_rb,3.0196e-03_rb,3.6353e-03_rb,3.9718e-03_rb,4.1316e-03_rb,4.2694e-03_rb, &\n     &4.3037e-03_rb,3.9012e-03_rb,2.9392e-03_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &1.2303e-03_rb,3.8066e-03_rb,4.5787e-03_rb,4.9631e-03_rb,5.1972e-03_rb,5.3645e-03_rb, &\n     &5.3804e-03_rb,4.9263e-03_rb,3.6983e-03_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &1.6619e-03_rb,4.7363e-03_rb,5.6662e-03_rb,6.1253e-03_rb,6.4225e-03_rb,6.6560e-03_rb, &\n     &6.6051e-03_rb,6.0844e-03_rb,4.5482e-03_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &2.1681e-03_rb,5.8273e-03_rb,6.8808e-03_rb,7.4389e-03_rb,7.8269e-03_rb,8.1204e-03_rb, &\n     &8.0166e-03_rb,7.4003e-03_rb,5.4950e-03_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &8.3319e-04_rb,2.4541e-03_rb,2.9309e-03_rb,3.1239e-03_rb,3.1232e-03_rb,3.0304e-03_rb, &\n     &2.8953e-03_rb,2.6232e-03_rb,1.6854e-03_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &1.2038e-03_rb,3.2544e-03_rb,3.8397e-03_rb,4.0740e-03_rb,4.0835e-03_rb,3.9879e-03_rb, &\n     &3.7753e-03_rb,3.4082e-03_rb,2.1468e-03_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &1.6852e-03_rb,4.1990e-03_rb,4.9217e-03_rb,5.1945e-03_rb,5.2325e-03_rb,5.0738e-03_rb, &\n     &4.7918e-03_rb,4.2939e-03_rb,2.6825e-03_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &2.3055e-03_rb,5.2874e-03_rb,6.1886e-03_rb,6.5148e-03_rb,6.5533e-03_rb,6.3614e-03_rb, &\n     &5.9949e-03_rb,5.3440e-03_rb,3.2990e-03_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &3.0550e-03_rb,6.5592e-03_rb,7.6795e-03_rb,8.0591e-03_rb,8.0426e-03_rb,7.8256e-03_rb, &\n     &7.4185e-03_rb,6.5412e-03_rb,4.0170e-03_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &1.2030e-03_rb,2.7895e-03_rb,3.1932e-03_rb,3.3085e-03_rb,3.2497e-03_rb,3.0373e-03_rb, &\n     &2.6860e-03_rb,2.2491e-03_rb,1.3507e-03_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &1.7561e-03_rb,3.7366e-03_rb,4.1989e-03_rb,4.3780e-03_rb,4.3275e-03_rb,4.0454e-03_rb, &\n     &3.5823e-03_rb,2.9962e-03_rb,1.7424e-03_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &2.4695e-03_rb,4.8641e-03_rb,5.4890e-03_rb,5.7046e-03_rb,5.6266e-03_rb,5.2456e-03_rb, &\n     &4.6755e-03_rb,3.8694e-03_rb,2.1970e-03_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &3.4036e-03_rb,6.2572e-03_rb,7.0247e-03_rb,7.3182e-03_rb,7.1220e-03_rb,6.6595e-03_rb, &\n     &5.9470e-03_rb,4.8905e-03_rb,2.7089e-03_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &4.5461e-03_rb,7.9331e-03_rb,8.8637e-03_rb,9.1326e-03_rb,8.9102e-03_rb,8.3275e-03_rb, &\n     &7.4120e-03_rb,6.0989e-03_rb,3.2778e-03_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &2.0449e-03_rb,3.7053e-03_rb,4.0860e-03_rb,4.1499e-03_rb,3.9922e-03_rb,3.6227e-03_rb, &\n     &3.0421e-03_rb,2.2282e-03_rb,1.0954e-03_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &3.0260e-03_rb,5.1232e-03_rb,5.5625e-03_rb,5.5873e-03_rb,5.3321e-03_rb,4.8458e-03_rb, &\n     &4.0703e-03_rb,3.0319e-03_rb,1.4218e-03_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &4.3499e-03_rb,6.8685e-03_rb,7.3484e-03_rb,7.3183e-03_rb,6.9565e-03_rb,6.3086e-03_rb, &\n     &5.3805e-03_rb,3.9991e-03_rb,1.7827e-03_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &6.0988e-03_rb,9.0048e-03_rb,9.4728e-03_rb,9.3798e-03_rb,8.9487e-03_rb,8.1669e-03_rb, &\n     &6.9162e-03_rb,5.1727e-03_rb,2.2090e-03_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &8.2301e-03_rb,1.1592e-02_rb,1.2058e-02_rb,1.1936e-02_rb,1.1386e-02_rb,1.0345e-02_rb, &\n     &8.7069e-03_rb,6.5415e-03_rb,2.6879e-03_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &6.4341e-03_rb,8.4932e-03_rb,8.6319e-03_rb,8.3108e-03_rb,7.7018e-03_rb,6.7763e-03_rb, &\n     &5.5115e-03_rb,3.7767e-03_rb,9.5475e-04_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &9.6759e-03_rb,1.2213e-02_rb,1.2266e-02_rb,1.1725e-02_rb,1.0741e-02_rb,9.3855e-03_rb, &\n     &7.5654e-03_rb,5.1517e-03_rb,1.1933e-03_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &1.4274e-02_rb,1.7116e-02_rb,1.6970e-02_rb,1.6030e-02_rb,1.4545e-02_rb,1.2624e-02_rb, &\n     &1.0092e-02_rb,6.8273e-03_rb,1.4956e-03_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &2.0348e-02_rb,2.3456e-02_rb,2.2925e-02_rb,2.1415e-02_rb,1.9260e-02_rb,1.6502e-02_rb, &\n     &1.3098e-02_rb,8.8597e-03_rb,1.8913e-03_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &2.7947e-02_rb,3.1392e-02_rb,3.0350e-02_rb,2.8042e-02_rb,2.4920e-02_rb,2.1171e-02_rb, &\n     &1.6720e-02_rb,1.1275e-02_rb,2.3159e-03_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &2.3218e-02_rb,2.4547e-02_rb,2.3456e-02_rb,2.1452e-02_rb,1.8855e-02_rb,1.5703e-02_rb, &\n     &1.2047e-02_rb,7.7884e-03_rb,1.4115e-03_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &3.5352e-02_rb,3.6479e-02_rb,3.4471e-02_rb,3.1299e-02_rb,2.7239e-02_rb,2.2668e-02_rb, &\n     &1.7318e-02_rb,1.0990e-02_rb,1.7428e-03_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &5.3041e-02_rb,5.3290e-02_rb,4.9753e-02_rb,4.4634e-02_rb,3.8593e-02_rb,3.1830e-02_rb, &\n     &2.4004e-02_rb,1.5032e-02_rb,2.1711e-03_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &7.6819e-02_rb,7.5905e-02_rb,7.0118e-02_rb,6.2386e-02_rb,5.3448e-02_rb,4.3595e-02_rb, &\n     &3.2572e-02_rb,2.0010e-02_rb,2.6405e-03_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &1.0741e-01_rb,1.0446e-01_rb,9.5780e-02_rb,8.4676e-02_rb,7.2117e-02_rb,5.8406e-02_rb, &\n     &4.3338e-02_rb,2.6148e-02_rb,3.0152e-03_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &3.5267e-02_rb,3.5419e-02_rb,3.3018e-02_rb,2.9652e-02_rb,2.5661e-02_rb,2.1081e-02_rb, &\n     &1.5812e-02_rb,9.8203e-03_rb,1.5039e-03_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &5.4088e-02_rb,5.3137e-02_rb,4.9102e-02_rb,4.3719e-02_rb,3.7498e-02_rb,3.0622e-02_rb, &\n     &2.2914e-02_rb,1.4036e-02_rb,1.8588e-03_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &8.1309e-02_rb,7.8515e-02_rb,7.1873e-02_rb,6.3455e-02_rb,5.4008e-02_rb,4.3709e-02_rb, &\n     &3.2277e-02_rb,1.9424e-02_rb,2.2498e-03_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &1.1800e-01_rb,1.1244e-01_rb,1.0217e-01_rb,8.9567e-02_rb,7.5664e-02_rb,6.0559e-02_rb, &\n     &4.4387e-02_rb,2.6353e-02_rb,2.7248e-03_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &1.6472e-01_rb,1.5538e-01_rb,1.4035e-01_rb,1.2265e-01_rb,1.0315e-01_rb,8.2131e-02_rb, &\n     &5.9771e-02_rb,3.4979e-02_rb,3.2176e-03_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &3.9647e-02_rb,3.8955e-02_rb,3.5866e-02_rb,3.1882e-02_rb,2.7372e-02_rb,2.2283e-02_rb, &\n     &1.6581e-02_rb,1.0137e-02_rb,1.4428e-03_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &6.1147e-02_rb,5.9154e-02_rb,5.3991e-02_rb,4.7633e-02_rb,4.0515e-02_rb,3.2821e-02_rb, &\n     &2.4231e-02_rb,1.4611e-02_rb,1.7795e-03_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &9.1962e-02_rb,8.7537e-02_rb,7.9486e-02_rb,6.9739e-02_rb,5.8957e-02_rb,4.7222e-02_rb, &\n     &3.4488e-02_rb,2.0425e-02_rb,2.1548e-03_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &1.3375e-01_rb,1.2593e-01_rb,1.1362e-01_rb,9.8983e-02_rb,8.2938e-02_rb,6.5961e-02_rb, &\n     &4.7849e-02_rb,2.7977e-02_rb,2.5823e-03_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &1.8619e-01_rb,1.7389e-01_rb,1.5614e-01_rb,1.3563e-01_rb,1.1356e-01_rb,8.9900e-02_rb, &\n     &6.4743e-02_rb,3.7437e-02_rb,3.0416e-03_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &3.5348e-02_rb,3.4594e-02_rb,3.1651e-02_rb,2.8032e-02_rb,2.3972e-02_rb,1.9476e-02_rb, &\n     &1.4520e-02_rb,8.8483e-03_rb,1.2073e-03_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &5.4657e-02_rb,5.2717e-02_rb,4.7880e-02_rb,4.2169e-02_rb,3.5919e-02_rb,2.9028e-02_rb, &\n     &2.1424e-02_rb,1.2832e-02_rb,1.4997e-03_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &8.2593e-02_rb,7.8668e-02_rb,7.1038e-02_rb,6.2226e-02_rb,5.2555e-02_rb,4.1980e-02_rb, &\n     &3.0595e-02_rb,1.8057e-02_rb,1.8484e-03_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &1.1968e-01_rb,1.1269e-01_rb,1.0134e-01_rb,8.8277e-02_rb,7.4125e-02_rb,5.9019e-02_rb, &\n     &4.2726e-02_rb,2.4879e-02_rb,2.2113e-03_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &1.6694e-01_rb,1.5606e-01_rb,1.3993e-01_rb,1.2146e-01_rb,1.0158e-01_rb,8.0368e-02_rb, &\n     &5.7742e-02_rb,3.3361e-02_rb,2.6209e-03_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &5.8710e-04_rb,3.7447e-03_rb,5.6598e-03_rb,7.4215e-03_rb,9.2308e-03_rb,1.1302e-02_rb, &\n     &1.3745e-02_rb,1.7130e-02_rb,1.6376e-02_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &7.1095e-04_rb,4.5295e-03_rb,6.8956e-03_rb,9.1329e-03_rb,1.1441e-02_rb,1.4069e-02_rb, &\n     &1.7260e-02_rb,2.1984e-02_rb,2.0159e-02_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &8.4824e-04_rb,5.3994e-03_rb,8.2567e-03_rb,1.1010e-02_rb,1.3909e-02_rb,1.7204e-02_rb, &\n     &2.1091e-02_rb,2.7132e-02_rb,2.4524e-02_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &9.9962e-04_rb,6.3675e-03_rb,9.7929e-03_rb,1.3116e-02_rb,1.6664e-02_rb,2.0670e-02_rb, &\n     &2.5520e-02_rb,3.3009e-02_rb,2.9504e-02_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &1.1677e-03_rb,7.4449e-03_rb,1.1517e-02_rb,1.5476e-02_rb,1.9740e-02_rb,2.4530e-02_rb, &\n     &3.0349e-02_rb,3.9385e-02_rb,3.5028e-02_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &7.3151e-04_rb,3.6448e-03_rb,5.2016e-03_rb,6.6421e-03_rb,7.9400e-03_rb,9.1018e-03_rb, &\n     &1.0516e-02_rb,1.2549e-02_rb,1.2514e-02_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &8.8990e-04_rb,4.4216e-03_rb,6.3659e-03_rb,8.1663e-03_rb,9.8302e-03_rb,1.1392e-02_rb, &\n     &1.3321e-02_rb,1.6283e-02_rb,1.5469e-02_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &1.0714e-03_rb,5.2883e-03_rb,7.6564e-03_rb,9.8457e-03_rb,1.1909e-02_rb,1.3940e-02_rb, &\n     &1.6405e-02_rb,2.0166e-02_rb,1.8847e-02_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &1.2782e-03_rb,6.2637e-03_rb,9.0995e-03_rb,1.1738e-02_rb,1.4242e-02_rb,1.6761e-02_rb, &\n     &1.9871e-02_rb,2.4604e-02_rb,2.2753e-02_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &1.5101e-03_rb,7.3491e-03_rb,1.0728e-02_rb,1.3865e-02_rb,1.6850e-02_rb,1.9892e-02_rb, &\n     &2.3687e-02_rb,2.9581e-02_rb,2.7171e-02_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &1.1614e-03_rb,3.9286e-03_rb,5.2992e-03_rb,6.2920e-03_rb,7.1803e-03_rb,7.9571e-03_rb, &\n     &8.5455e-03_rb,9.0349e-03_rb,9.0567e-03_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &1.4526e-03_rb,4.8338e-03_rb,6.5076e-03_rb,7.7704e-03_rb,8.9197e-03_rb,9.9629e-03_rb, &\n     &1.0799e-02_rb,1.1625e-02_rb,1.1298e-02_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &1.7725e-03_rb,5.8343e-03_rb,7.8680e-03_rb,9.4298e-03_rb,1.0866e-02_rb,1.2179e-02_rb, &\n     &1.3264e-02_rb,1.4525e-02_rb,1.3847e-02_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &2.1368e-03_rb,6.9576e-03_rb,9.3967e-03_rb,1.1298e-02_rb,1.3038e-02_rb,1.4633e-02_rb, &\n     &1.6013e-02_rb,1.7774e-02_rb,1.6807e-02_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &2.5530e-03_rb,8.2213e-03_rb,1.1119e-02_rb,1.3386e-02_rb,1.5467e-02_rb,1.7396e-02_rb, &\n     &1.9105e-02_rb,2.1405e-02_rb,2.0198e-02_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &1.8393e-03_rb,4.2719e-03_rb,5.6108e-03_rb,6.4238e-03_rb,6.8867e-03_rb,7.1924e-03_rb, &\n     &7.4060e-03_rb,7.2862e-03_rb,6.3156e-03_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &2.3510e-03_rb,5.3330e-03_rb,6.9923e-03_rb,7.9801e-03_rb,8.5829e-03_rb,9.0352e-03_rb, &\n     &9.3670e-03_rb,9.3790e-03_rb,7.9787e-03_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &2.9328e-03_rb,6.5477e-03_rb,8.5524e-03_rb,9.7522e-03_rb,1.0523e-02_rb,1.1105e-02_rb, &\n     &1.1571e-02_rb,1.1684e-02_rb,9.9124e-03_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &3.6136e-03_rb,7.9708e-03_rb,1.0306e-02_rb,1.1748e-02_rb,1.2708e-02_rb,1.3440e-02_rb, &\n     &1.4032e-02_rb,1.4271e-02_rb,1.2172e-02_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &4.3442e-03_rb,9.5761e-03_rb,1.2277e-02_rb,1.3997e-02_rb,1.5163e-02_rb,1.6053e-02_rb, &\n     &1.6795e-02_rb,1.7163e-02_rb,1.4922e-02_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &2.6688e-03_rb,4.8052e-03_rb,5.7832e-03_rb,6.4797e-03_rb,6.8502e-03_rb,6.8218e-03_rb, &\n     &6.5242e-03_rb,6.0722e-03_rb,4.6753e-03_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &3.4688e-03_rb,6.1297e-03_rb,7.3230e-03_rb,8.1782e-03_rb,8.6322e-03_rb,8.6195e-03_rb, &\n     &8.3126e-03_rb,7.8540e-03_rb,5.9385e-03_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &4.4058e-03_rb,7.6630e-03_rb,9.1013e-03_rb,1.0147e-02_rb,1.0667e-02_rb,1.0680e-02_rb, &\n     &1.0355e-02_rb,9.8543e-03_rb,7.3828e-03_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &5.5115e-03_rb,9.4361e-03_rb,1.1163e-02_rb,1.2385e-02_rb,1.2986e-02_rb,1.3010e-02_rb, &\n     &1.2662e-02_rb,1.2099e-02_rb,9.0803e-03_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &6.7862e-03_rb,1.1482e-02_rb,1.3563e-02_rb,1.4942e-02_rb,1.5588e-02_rb,1.5643e-02_rb, &\n     &1.5261e-02_rb,1.4627e-02_rb,1.1026e-02_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &3.5724e-03_rb,5.4370e-03_rb,6.0294e-03_rb,6.3914e-03_rb,6.6047e-03_rb,6.5232e-03_rb, &\n     &6.0277e-03_rb,5.0661e-03_rb,3.1530e-03_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &4.7182e-03_rb,7.1382e-03_rb,7.8365e-03_rb,8.2706e-03_rb,8.5053e-03_rb,8.3495e-03_rb, &\n     &7.7282e-03_rb,6.6198e-03_rb,4.1407e-03_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &6.1150e-03_rb,9.1981e-03_rb,9.9430e-03_rb,1.0464e-02_rb,1.0671e-02_rb,1.0482e-02_rb, &\n     &9.6931e-03_rb,8.3868e-03_rb,5.3331e-03_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &7.7447e-03_rb,1.1494e-02_rb,1.2445e-02_rb,1.3024e-02_rb,1.3207e-02_rb,1.2894e-02_rb, &\n     &1.1946e-02_rb,1.0395e-02_rb,6.6921e-03_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &9.6796e-03_rb,1.4190e-02_rb,1.5330e-02_rb,1.5967e-02_rb,1.6158e-02_rb,1.5661e-02_rb, &\n     &1.4492e-02_rb,1.2674e-02_rb,8.2498e-03_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &4.9616e-03_rb,6.6121e-03_rb,6.8416e-03_rb,6.8101e-03_rb,6.6768e-03_rb,6.3696e-03_rb, &\n     &5.8141e-03_rb,4.6733e-03_rb,2.5227e-03_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &6.6954e-03_rb,8.8189e-03_rb,9.1778e-03_rb,9.1281e-03_rb,8.8939e-03_rb,8.4196e-03_rb, &\n     &7.6478e-03_rb,6.1227e-03_rb,3.2129e-03_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &8.9023e-03_rb,1.1584e-02_rb,1.1984e-02_rb,1.1899e-02_rb,1.1446e-02_rb,1.0830e-02_rb, &\n     &9.7223e-03_rb,7.7935e-03_rb,4.0071e-03_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &1.1382e-02_rb,1.4883e-02_rb,1.5340e-02_rb,1.5077e-02_rb,1.4572e-02_rb,1.3613e-02_rb, &\n     &1.2124e-02_rb,9.7242e-03_rb,4.9238e-03_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &1.4371e-02_rb,1.8723e-02_rb,1.9154e-02_rb,1.8910e-02_rb,1.8193e-02_rb,1.6854e-02_rb, &\n     &1.4917e-02_rb,1.1939e-02_rb,6.0317e-03_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &8.7001e-03_rb,9.7747e-03_rb,9.5071e-03_rb,8.9379e-03_rb,8.2227e-03_rb,7.2962e-03_rb, &\n     &6.1868e-03_rb,4.7953e-03_rb,2.0794e-03_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &1.1618e-02_rb,1.3178e-02_rb,1.2958e-02_rb,1.2245e-02_rb,1.1180e-02_rb,9.8759e-03_rb, &\n     &8.4959e-03_rb,6.4689e-03_rb,2.6798e-03_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &1.5351e-02_rb,1.7665e-02_rb,1.7319e-02_rb,1.6267e-02_rb,1.4838e-02_rb,1.3188e-02_rb, &\n     &1.1167e-02_rb,8.4425e-03_rb,3.4113e-03_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &2.0092e-02_rb,2.2911e-02_rb,2.2431e-02_rb,2.1181e-02_rb,1.9393e-02_rb,1.7119e-02_rb, &\n     &1.4369e-02_rb,1.0695e-02_rb,4.2567e-03_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &2.5625e-02_rb,2.9136e-02_rb,2.8640e-02_rb,2.6980e-02_rb,2.4612e-02_rb,2.1703e-02_rb, &\n     &1.8202e-02_rb,1.3310e-02_rb,5.2101e-03_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &2.8411e-02_rb,2.7805e-02_rb,2.5436e-02_rb,2.2677e-02_rb,1.9516e-02_rb,1.5867e-02_rb, &\n     &1.1958e-02_rb,7.5969e-03_rb,2.0612e-03_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &3.8814e-02_rb,3.7908e-02_rb,3.4867e-02_rb,3.0948e-02_rb,2.6641e-02_rb,2.1668e-02_rb, &\n     &1.6345e-02_rb,1.0429e-02_rb,2.5903e-03_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &5.1537e-02_rb,5.0347e-02_rb,4.6262e-02_rb,4.1144e-02_rb,3.5324e-02_rb,2.8924e-02_rb, &\n     &2.1923e-02_rb,1.4064e-02_rb,3.2116e-03_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &6.6909e-02_rb,6.5234e-02_rb,6.0364e-02_rb,5.3943e-02_rb,4.6443e-02_rb,3.8124e-02_rb, &\n     &2.8947e-02_rb,1.8549e-02_rb,3.8623e-03_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &8.6078e-02_rb,8.4018e-02_rb,7.7843e-02_rb,6.9506e-02_rb,5.9853e-02_rb,4.9159e-02_rb, &\n     &3.7146e-02_rb,2.3977e-02_rb,4.6095e-03_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &1.0479e-01_rb,9.4804e-02_rb,8.4158e-02_rb,7.2419e-02_rb,5.9897e-02_rb,4.7014e-02_rb, &\n     &3.3513e-02_rb,1.8915e-02_rb,2.3959e-03_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &1.4593e-01_rb,1.3214e-01_rb,1.1705e-01_rb,1.0074e-01_rb,8.3547e-02_rb,6.5542e-02_rb, &\n     &4.6772e-02_rb,2.6375e-02_rb,2.8756e-03_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &1.9678e-01_rb,1.7825e-01_rb,1.5773e-01_rb,1.3590e-01_rb,1.1277e-01_rb,8.8462e-02_rb, &\n     &6.3144e-02_rb,3.5733e-02_rb,3.4719e-03_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &2.5901e-01_rb,2.3451e-01_rb,2.0787e-01_rb,1.7931e-01_rb,1.4891e-01_rb,1.1693e-01_rb, &\n     &8.3230e-02_rb,4.7067e-02_rb,4.3129e-03_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &3.3485e-01_rb,3.0286e-01_rb,2.6808e-01_rb,2.3135e-01_rb,1.9236e-01_rb,1.5087e-01_rb, &\n     &1.0672e-01_rb,6.0498e-02_rb,5.2412e-03_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &1.5729e-01_rb,1.4058e-01_rb,1.2399e-01_rb,1.0596e-01_rb,8.6953e-02_rb,6.7449e-02_rb, &\n     &4.7388e-02_rb,2.6098e-02_rb,2.4928e-03_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &2.1957e-01_rb,1.9641e-01_rb,1.7272e-01_rb,1.4763e-01_rb,1.2135e-01_rb,9.4358e-02_rb, &\n     &6.6246e-02_rb,3.6579e-02_rb,3.1141e-03_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &2.9796e-01_rb,2.6647e-01_rb,2.3432e-01_rb,2.0028e-01_rb,1.6476e-01_rb,1.2810e-01_rb, &\n     &8.9989e-02_rb,4.9741e-02_rb,3.7347e-03_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &3.9483e-01_rb,3.5349e-01_rb,3.1058e-01_rb,2.6565e-01_rb,2.1911e-01_rb,1.7032e-01_rb, &\n     &1.1939e-01_rb,6.5674e-02_rb,4.4794e-03_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &5.1293e-01_rb,4.5889e-01_rb,4.0288e-01_rb,3.4402e-01_rb,2.8339e-01_rb,2.1998e-01_rb, &\n     &1.5383e-01_rb,8.4493e-02_rb,5.3916e-03_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &1.7496e-01_rb,1.5620e-01_rb,1.3720e-01_rb,1.1692e-01_rb,9.5664e-02_rb,7.3896e-02_rb, &\n     &5.1517e-02_rb,2.8131e-02_rb,2.4011e-03_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &2.4535e-01_rb,2.1911e-01_rb,1.9222e-01_rb,1.6394e-01_rb,1.3439e-01_rb,1.0379e-01_rb, &\n     &7.2409e-02_rb,3.9528e-02_rb,2.9367e-03_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &3.3489e-01_rb,2.9916e-01_rb,2.6204e-01_rb,2.2337e-01_rb,1.8311e-01_rb,1.4171e-01_rb, &\n     &9.8967e-02_rb,5.4062e-02_rb,3.5110e-03_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &4.4645e-01_rb,3.9881e-01_rb,3.4940e-01_rb,2.9764e-01_rb,2.4438e-01_rb,1.8899e-01_rb, &\n     &1.3169e-01_rb,7.1745e-02_rb,4.2744e-03_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &5.8440e-01_rb,5.2135e-01_rb,4.5608e-01_rb,3.8804e-01_rb,3.1784e-01_rb,2.4555e-01_rb, &\n     &1.7082e-01_rb,9.2836e-02_rb,5.0546e-03_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &1.5548e-01_rb,1.3934e-01_rb,1.2226e-01_rb,1.0396e-01_rb,8.5068e-02_rb,6.5711e-02_rb, &\n     &4.5702e-02_rb,2.4873e-02_rb,2.0740e-03_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &2.1897e-01_rb,1.9631e-01_rb,1.7240e-01_rb,1.4676e-01_rb,1.2003e-01_rb,9.2645e-02_rb, &\n     &6.4538e-02_rb,3.5191e-02_rb,2.5124e-03_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &3.0093e-01_rb,2.6954e-01_rb,2.3618e-01_rb,2.0119e-01_rb,1.6478e-01_rb,1.2740e-01_rb, &\n     &8.8848e-02_rb,4.8366e-02_rb,3.0385e-03_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &4.0480e-01_rb,3.6240e-01_rb,3.1715e-01_rb,2.6983e-01_rb,2.2076e-01_rb,1.7039e-01_rb, &\n     &1.1847e-01_rb,6.4388e-02_rb,3.6949e-03_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &5.3109e-01_rb,4.7451e-01_rb,4.1461e-01_rb,3.5239e-01_rb,2.8790e-01_rb,2.2202e-01_rb, &\n     &1.5435e-01_rb,8.3628e-02_rb,4.3087e-03_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &1.3848e-03_rb,7.4265e-03_rb,1.1328e-02_rb,1.5765e-02_rb,2.0617e-02_rb,2.5760e-02_rb, &\n     &3.1394e-02_rb,3.9174e-02_rb,3.7962e-02_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &1.6671e-03_rb,8.9945e-03_rb,1.3803e-02_rb,1.9211e-02_rb,2.5130e-02_rb,3.1434e-02_rb, &\n     &3.8541e-02_rb,4.9244e-02_rb,4.6325e-02_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &1.9714e-03_rb,1.0738e-02_rb,1.6621e-02_rb,2.3153e-02_rb,3.0242e-02_rb,3.7827e-02_rb, &\n     &4.6470e-02_rb,6.0286e-02_rb,5.5806e-02_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &2.3028e-03_rb,1.2683e-02_rb,1.9788e-02_rb,2.7634e-02_rb,3.6042e-02_rb,4.5063e-02_rb, &\n     &5.5400e-02_rb,7.2329e-02_rb,6.6551e-02_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &2.6597e-03_rb,1.4839e-02_rb,2.3341e-02_rb,3.2680e-02_rb,4.2600e-02_rb,5.3211e-02_rb, &\n     &6.5429e-02_rb,8.5816e-02_rb,7.8751e-02_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &1.7365e-03_rb,7.5104e-03_rb,1.0855e-02_rb,1.3649e-02_rb,1.6794e-02_rb,2.0487e-02_rb, &\n     &2.4622e-02_rb,2.9785e-02_rb,2.9296e-02_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &2.1191e-03_rb,9.1841e-03_rb,1.3246e-02_rb,1.6722e-02_rb,2.0613e-02_rb,2.5164e-02_rb, &\n     &3.0319e-02_rb,3.7310e-02_rb,3.6002e-02_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &2.5333e-03_rb,1.1030e-02_rb,1.5921e-02_rb,2.0206e-02_rb,2.4966e-02_rb,3.0432e-02_rb, &\n     &3.6701e-02_rb,4.5559e-02_rb,4.3603e-02_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &2.9828e-03_rb,1.3051e-02_rb,1.8932e-02_rb,2.4145e-02_rb,2.9915e-02_rb,3.6454e-02_rb, &\n     &4.3919e-02_rb,5.4674e-02_rb,5.2233e-02_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &3.4709e-03_rb,1.5291e-02_rb,2.2279e-02_rb,2.8573e-02_rb,3.5520e-02_rb,4.3284e-02_rb, &\n     &5.2127e-02_rb,6.5008e-02_rb,6.1979e-02_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &2.8092e-03_rb,8.4318e-03_rb,1.1352e-02_rb,1.3672e-02_rb,1.5434e-02_rb,1.6834e-02_rb, &\n     &1.8680e-02_rb,2.1551e-02_rb,2.1437e-02_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &3.4524e-03_rb,1.0436e-02_rb,1.4060e-02_rb,1.6891e-02_rb,1.9071e-02_rb,2.0847e-02_rb, &\n     &2.3206e-02_rb,2.6955e-02_rb,2.6565e-02_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &4.1827e-03_rb,1.2653e-02_rb,1.7072e-02_rb,2.0477e-02_rb,2.3160e-02_rb,2.5389e-02_rb, &\n     &2.8361e-02_rb,3.3016e-02_rb,3.2451e-02_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &4.9958e-03_rb,1.5103e-02_rb,2.0380e-02_rb,2.4512e-02_rb,2.7790e-02_rb,3.0621e-02_rb, &\n     &3.4270e-02_rb,3.9878e-02_rb,3.9158e-02_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &5.8802e-03_rb,1.7776e-02_rb,2.4055e-02_rb,2.9030e-02_rb,3.2999e-02_rb,3.6516e-02_rb, &\n     &4.0970e-02_rb,4.7651e-02_rb,4.6784e-02_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &4.5589e-03_rb,1.0079e-02_rb,1.2337e-02_rb,1.3994e-02_rb,1.5249e-02_rb,1.6070e-02_rb, &\n     &1.6321e-02_rb,1.6191e-02_rb,1.5492e-02_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &5.6834e-03_rb,1.2638e-02_rb,1.5464e-02_rb,1.7583e-02_rb,1.9154e-02_rb,2.0166e-02_rb, &\n     &2.0456e-02_rb,2.0438e-02_rb,1.9456e-02_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &6.9619e-03_rb,1.5492e-02_rb,1.8969e-02_rb,2.1612e-02_rb,2.3568e-02_rb,2.4770e-02_rb, &\n     &2.5120e-02_rb,2.5223e-02_rb,2.3997e-02_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &8.4006e-03_rb,1.8644e-02_rb,2.2892e-02_rb,2.6108e-02_rb,2.8487e-02_rb,2.9981e-02_rb, &\n     &3.0457e-02_rb,3.0724e-02_rb,2.9183e-02_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &1.0053e-02_rb,2.2099e-02_rb,2.7239e-02_rb,3.1080e-02_rb,3.3975e-02_rb,3.5831e-02_rb, &\n     &3.6496e-02_rb,3.6989e-02_rb,3.5086e-02_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &6.7689e-03_rb,1.1903e-02_rb,1.3648e-02_rb,1.4571e-02_rb,1.5091e-02_rb,1.5249e-02_rb, &\n     &1.4963e-02_rb,1.3941e-02_rb,1.1072e-02_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &8.5889e-03_rb,1.5080e-02_rb,1.7390e-02_rb,1.8530e-02_rb,1.9222e-02_rb,1.9473e-02_rb, &\n     &1.9084e-02_rb,1.7764e-02_rb,1.3833e-02_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &1.0679e-02_rb,1.8745e-02_rb,2.1599e-02_rb,2.3039e-02_rb,2.3924e-02_rb,2.4268e-02_rb, &\n     &2.3807e-02_rb,2.2090e-02_rb,1.7335e-02_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &1.3055e-02_rb,2.2828e-02_rb,2.6303e-02_rb,2.8136e-02_rb,2.9230e-02_rb,2.9685e-02_rb, &\n     &2.9170e-02_rb,2.7046e-02_rb,2.1372e-02_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &1.5751e-02_rb,2.7271e-02_rb,3.1547e-02_rb,3.3833e-02_rb,3.5204e-02_rb,3.5707e-02_rb, &\n     &3.5181e-02_rb,3.2654e-02_rb,2.6029e-02_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &9.2094e-03_rb,1.3724e-02_rb,1.5036e-02_rb,1.5371e-02_rb,1.5106e-02_rb,1.4473e-02_rb, &\n     &1.3532e-02_rb,1.2020e-02_rb,8.1670e-03_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &1.1986e-02_rb,1.7634e-02_rb,1.9365e-02_rb,1.9834e-02_rb,1.9516e-02_rb,1.8750e-02_rb, &\n     &1.7602e-02_rb,1.5593e-02_rb,1.0511e-02_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &1.5180e-02_rb,2.2067e-02_rb,2.4393e-02_rb,2.4963e-02_rb,2.4596e-02_rb,2.3680e-02_rb, &\n     &2.2274e-02_rb,1.9750e-02_rb,1.3124e-02_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &1.8879e-02_rb,2.7272e-02_rb,3.0068e-02_rb,3.0821e-02_rb,3.0411e-02_rb,2.9355e-02_rb, &\n     &2.7616e-02_rb,2.4539e-02_rb,1.6137e-02_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &2.3118e-02_rb,3.3049e-02_rb,3.6382e-02_rb,3.7419e-02_rb,3.7019e-02_rb,3.5790e-02_rb, &\n     &3.3628e-02_rb,2.9915e-02_rb,1.9032e-02_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &1.3180e-02_rb,1.6672e-02_rb,1.7592e-02_rb,1.7458e-02_rb,1.6513e-02_rb,1.5058e-02_rb, &\n     &1.3095e-02_rb,1.0650e-02_rb,5.4642e-03_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &1.7434e-02_rb,2.2125e-02_rb,2.3174e-02_rb,2.2835e-02_rb,2.1611e-02_rb,1.9729e-02_rb, &\n     &1.7181e-02_rb,1.4117e-02_rb,7.1375e-03_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &2.2566e-02_rb,2.8274e-02_rb,2.9519e-02_rb,2.9093e-02_rb,2.7592e-02_rb,2.5177e-02_rb, &\n     &2.2032e-02_rb,1.8185e-02_rb,9.3084e-03_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &2.8653e-02_rb,3.5321e-02_rb,3.6780e-02_rb,3.6287e-02_rb,3.4434e-02_rb,3.1535e-02_rb, &\n     &2.7705e-02_rb,2.2900e-02_rb,1.1848e-02_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &3.5765e-02_rb,4.3430e-02_rb,4.5100e-02_rb,4.4435e-02_rb,4.2245e-02_rb,3.8834e-02_rb, &\n     &3.4253e-02_rb,2.8260e-02_rb,1.4688e-02_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &2.1747e-02_rb,2.4454e-02_rb,2.4292e-02_rb,2.3080e-02_rb,2.1111e-02_rb,1.8543e-02_rb, &\n     &1.5300e-02_rb,1.1054e-02_rb,4.8558e-03_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &3.0389e-02_rb,3.3327e-02_rb,3.2926e-02_rb,3.1134e-02_rb,2.8533e-02_rb,2.5003e-02_rb, &\n     &2.0402e-02_rb,1.4724e-02_rb,6.1788e-03_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &4.0290e-02_rb,4.3505e-02_rb,4.2950e-02_rb,4.0676e-02_rb,3.7191e-02_rb,3.2422e-02_rb, &\n     &2.6427e-02_rb,1.9111e-02_rb,7.6799e-03_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &5.2072e-02_rb,5.5809e-02_rb,5.4895e-02_rb,5.1714e-02_rb,4.6978e-02_rb,4.0907e-02_rb, &\n     &3.3411e-02_rb,2.4362e-02_rb,9.3208e-03_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &6.6160e-02_rb,7.0258e-02_rb,6.8654e-02_rb,6.4320e-02_rb,5.8240e-02_rb,5.0667e-02_rb, &\n     &4.1561e-02_rb,3.0531e-02_rb,1.1097e-02_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &6.9879e-02_rb,6.6386e-02_rb,6.1416e-02_rb,5.4862e-02_rb,4.7283e-02_rb,3.9112e-02_rb, &\n     &2.9846e-02_rb,1.9026e-02_rb,5.0281e-03_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &9.7072e-02_rb,9.2199e-02_rb,8.5540e-02_rb,7.6855e-02_rb,6.6492e-02_rb,5.4707e-02_rb, &\n     &4.1549e-02_rb,2.6366e-02_rb,6.3749e-03_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &1.3274e-01_rb,1.2639e-01_rb,1.1670e-01_rb,1.0412e-01_rb,8.9576e-02_rb,7.3400e-02_rb, &\n     &5.5548e-02_rb,3.5017e-02_rb,7.9283e-03_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &1.7725e-01_rb,1.6726e-01_rb,1.5276e-01_rb,1.3606e-01_rb,1.1668e-01_rb,9.5385e-02_rb, &\n     &7.1895e-02_rb,4.5017e-02_rb,9.7700e-03_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &2.2900e-01_rb,2.1469e-01_rb,1.9562e-01_rb,1.7346e-01_rb,1.4892e-01_rb,1.2126e-01_rb, &\n     &9.1015e-02_rb,5.6621e-02_rb,1.1851e-02_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &2.6110e-01_rb,2.3191e-01_rb,2.0431e-01_rb,1.7643e-01_rb,1.4693e-01_rb,1.1545e-01_rb, &\n     &8.1908e-02_rb,4.6480e-02_rb,5.5448e-03_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &3.6304e-01_rb,3.2305e-01_rb,2.8523e-01_rb,2.4612e-01_rb,2.0468e-01_rb,1.6117e-01_rb, &\n     &1.1489e-01_rb,6.5350e-02_rb,7.0032e-03_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &5.0185e-01_rb,4.4688e-01_rb,3.9417e-01_rb,3.3909e-01_rb,2.8117e-01_rb,2.2056e-01_rb, &\n     &1.5648e-01_rb,8.9037e-02_rb,8.6105e-03_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &6.7448e-01_rb,6.0038e-01_rb,5.2817e-01_rb,4.5305e-01_rb,3.7479e-01_rb,2.9367e-01_rb, &\n     &2.0933e-01_rb,1.1852e-01_rb,1.0215e-02_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &8.8770e-01_rb,7.8961e-01_rb,6.9429e-01_rb,5.9500e-01_rb,4.9158e-01_rb,3.8401e-01_rb, &\n     &2.7292e-01_rb,1.5364e-01_rb,1.2140e-02_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &4.0532e-01_rb,3.5824e-01_rb,3.1239e-01_rb,2.6732e-01_rb,2.2024e-01_rb,1.7123e-01_rb, &\n     &1.1969e-01_rb,6.6094e-02_rb,5.4214e-03_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &5.6606e-01_rb,5.0050e-01_rb,4.3693e-01_rb,3.7301e-01_rb,3.0650e-01_rb,2.3759e-01_rb, &\n     &1.6618e-01_rb,9.1406e-02_rb,6.5476e-03_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &7.7109e-01_rb,6.8230e-01_rb,5.9547e-01_rb,5.0803e-01_rb,4.1719e-01_rb,3.2299e-01_rb, &\n     &2.2593e-01_rb,1.2450e-01_rb,7.8892e-03_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &1.0345e+00_rb,9.1439e-01_rb,7.9746e-01_rb,6.7877e-01_rb,5.5627e-01_rb,4.3053e-01_rb, &\n     &3.0103e-01_rb,1.6533e-01_rb,9.6823e-03_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &1.3462e+00_rb,1.1891e+00_rb,1.0362e+00_rb,8.8065e-01_rb,7.2071e-01_rb,5.5791e-01_rb, &\n     &3.9044e-01_rb,2.1464e-01_rb,1.1736e-02_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &4.6420e-01_rb,4.0988e-01_rb,3.5698e-01_rb,3.0422e-01_rb,2.4918e-01_rb,1.9252e-01_rb, &\n     &1.3423e-01_rb,7.3160e-02_rb,4.7396e-03_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &6.5450e-01_rb,5.7811e-01_rb,5.0333e-01_rb,4.2804e-01_rb,3.4996e-01_rb,2.7019e-01_rb, &\n     &1.8778e-01_rb,1.0212e-01_rb,5.9506e-03_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &8.9348e-01_rb,7.8900e-01_rb,6.8666e-01_rb,5.8272e-01_rb,4.7603e-01_rb,3.6677e-01_rb, &\n     &2.5473e-01_rb,1.3789e-01_rb,7.3179e-03_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &1.1756e+00_rb,1.0374e+00_rb,9.0174e-01_rb,7.6533e-01_rb,6.2509e-01_rb,4.8180e-01_rb, &\n     &3.3511e-01_rb,1.8185e-01_rb,8.9523e-03_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &1.5297e+00_rb,1.3494e+00_rb,1.1729e+00_rb,9.9401e-01_rb,8.1052e-01_rb,6.2387e-01_rb, &\n     &4.3290e-01_rb,2.3433e-01_rb,1.0845e-02_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &4.2167e-01_rb,3.7276e-01_rb,3.2553e-01_rb,2.7726e-01_rb,2.2695e-01_rb,1.7522e-01_rb, &\n     &1.2184e-01_rb,6.6143e-02_rb,4.0030e-03_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &6.0140e-01_rb,5.3188e-01_rb,4.6380e-01_rb,3.9365e-01_rb,3.2184e-01_rb,2.4778e-01_rb, &\n     &1.7190e-01_rb,9.3023e-02_rb,5.1104e-03_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &8.1807e-01_rb,7.2295e-01_rb,6.3004e-01_rb,5.3457e-01_rb,4.3643e-01_rb,3.3605e-01_rb, &\n     &2.3292e-01_rb,1.2549e-01_rb,6.4347e-03_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &1.0778e+00_rb,9.5216e-01_rb,8.2890e-01_rb,7.0211e-01_rb,5.7259e-01_rb,4.4078e-01_rb, &\n     &3.0511e-01_rb,1.6456e-01_rb,7.8490e-03_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &1.3868e+00_rb,1.2246e+00_rb,1.0647e+00_rb,9.0150e-01_rb,7.3547e-01_rb,5.6615e-01_rb, &\n     &3.9191e-01_rb,2.1135e-01_rb,9.6903e-03_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &3.5696e-03_rb,1.6007e-02_rb,2.9119e-02_rb,4.2110e-02_rb,5.4860e-02_rb,6.8076e-02_rb, &\n     &8.3917e-02_rb,1.0558e-01_rb,1.0534e-01_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &4.2863e-03_rb,1.9722e-02_rb,3.5791e-02_rb,5.1660e-02_rb,6.7170e-02_rb,8.3493e-02_rb, &\n     &1.0314e-01_rb,1.2980e-01_rb,1.2936e-01_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &5.0567e-03_rb,2.3939e-02_rb,4.3341e-02_rb,6.2437e-02_rb,8.1028e-02_rb,1.0094e-01_rb, &\n     &1.2485e-01_rb,1.5697e-01_rb,1.5657e-01_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &5.8865e-03_rb,2.8699e-02_rb,5.1840e-02_rb,7.4548e-02_rb,9.6669e-02_rb,1.2066e-01_rb, &\n     &1.4947e-01_rb,1.8794e-01_rb,1.8748e-01_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &6.7695e-03_rb,3.4031e-02_rb,6.1358e-02_rb,8.8096e-02_rb,1.1420e-01_rb,1.4289e-01_rb, &\n     &1.7720e-01_rb,2.2237e-01_rb,2.2240e-01_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &4.7118e-03_rb,1.5877e-02_rb,2.5399e-02_rb,3.5918e-02_rb,4.6457e-02_rb,5.6939e-02_rb, &\n     &6.8068e-02_rb,8.4536e-02_rb,8.5555e-02_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &5.7108e-03_rb,1.9571e-02_rb,3.1487e-02_rb,4.4433e-02_rb,5.7366e-02_rb,7.0154e-02_rb, &\n     &8.4052e-02_rb,1.0472e-01_rb,1.0570e-01_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &6.7866e-03_rb,2.3743e-02_rb,3.8403e-02_rb,5.4069e-02_rb,6.9657e-02_rb,8.4997e-02_rb, &\n     &1.0211e-01_rb,1.2762e-01_rb,1.2838e-01_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &7.9436e-03_rb,2.8460e-02_rb,4.6231e-02_rb,6.4990e-02_rb,8.3598e-02_rb,1.0182e-01_rb, &\n     &1.2260e-01_rb,1.5356e-01_rb,1.5440e-01_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &9.1873e-03_rb,3.3722e-02_rb,5.4999e-02_rb,7.7194e-02_rb,9.9137e-02_rb,1.2068e-01_rb, &\n     &1.4584e-01_rb,1.8285e-01_rb,1.8375e-01_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &7.9289e-03_rb,1.8898e-02_rb,2.5653e-02_rb,3.1610e-02_rb,3.8347e-02_rb,4.5822e-02_rb, &\n     &5.3494e-02_rb,6.2174e-02_rb,6.4789e-02_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &9.7250e-03_rb,2.3378e-02_rb,3.1960e-02_rb,3.9650e-02_rb,4.8157e-02_rb,5.7463e-02_rb, &\n     &6.6987e-02_rb,7.7905e-02_rb,8.1125e-02_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &1.1690e-02_rb,2.8477e-02_rb,3.9050e-02_rb,4.8735e-02_rb,5.9251e-02_rb,7.0590e-02_rb, &\n     &8.2118e-02_rb,9.5596e-02_rb,9.9562e-02_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &1.3819e-02_rb,3.4230e-02_rb,4.7053e-02_rb,5.8936e-02_rb,7.1761e-02_rb,8.5391e-02_rb, &\n     &9.9148e-02_rb,1.1547e-01_rb,1.2059e-01_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &1.6126e-02_rb,4.0610e-02_rb,5.5935e-02_rb,7.0350e-02_rb,8.5758e-02_rb,1.0193e-01_rb, &\n     &1.1815e-01_rb,1.3794e-01_rb,1.4428e-01_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &1.3217e-02_rb,2.3479e-02_rb,2.9539e-02_rb,3.3751e-02_rb,3.6721e-02_rb,3.9161e-02_rb, &\n     &4.2339e-02_rb,4.7025e-02_rb,4.7847e-02_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &1.6447e-02_rb,2.9417e-02_rb,3.7093e-02_rb,4.2546e-02_rb,4.6456e-02_rb,4.9765e-02_rb, &\n     &5.3922e-02_rb,5.9724e-02_rb,6.0703e-02_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &2.0055e-02_rb,3.6163e-02_rb,4.5727e-02_rb,5.2541e-02_rb,5.7472e-02_rb,6.1844e-02_rb, &\n     &6.7058e-02_rb,7.4090e-02_rb,7.5241e-02_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &2.4006e-02_rb,4.3785e-02_rb,5.5469e-02_rb,6.3755e-02_rb,6.9920e-02_rb,7.5527e-02_rb, &\n     &8.2000e-02_rb,9.0387e-02_rb,9.1968e-02_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &2.8301e-02_rb,5.2295e-02_rb,6.6272e-02_rb,7.6263e-02_rb,8.3883e-02_rb,9.0941e-02_rb, &\n     &9.8884e-02_rb,1.0876e-01_rb,1.1102e-01_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &1.9932e-02_rb,2.8909e-02_rb,3.3929e-02_rb,3.6963e-02_rb,3.8599e-02_rb,3.9090e-02_rb, &\n     &3.8100e-02_rb,3.6647e-02_rb,3.4570e-02_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &2.5221e-02_rb,3.6867e-02_rb,4.3184e-02_rb,4.7147e-02_rb,4.9394e-02_rb,5.0060e-02_rb, &\n     &4.9016e-02_rb,4.7379e-02_rb,4.4959e-02_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &3.1232e-02_rb,4.5824e-02_rb,5.3773e-02_rb,5.8918e-02_rb,6.1826e-02_rb,6.2626e-02_rb, &\n     &6.1399e-02_rb,5.9643e-02_rb,5.6358e-02_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &3.7911e-02_rb,5.5890e-02_rb,6.5835e-02_rb,7.2317e-02_rb,7.5820e-02_rb,7.6769e-02_rb, &\n     &7.5408e-02_rb,7.3611e-02_rb,6.9498e-02_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &4.5225e-02_rb,6.7203e-02_rb,7.9322e-02_rb,8.7058e-02_rb,9.1394e-02_rb,9.2728e-02_rb, &\n     &9.1290e-02_rb,8.9467e-02_rb,8.4545e-02_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &2.7668e-02_rb,3.4842e-02_rb,3.8147e-02_rb,3.9719e-02_rb,4.0056e-02_rb,3.9073e-02_rb, &\n     &3.6625e-02_rb,3.2055e-02_rb,2.4026e-02_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &3.5525e-02_rb,4.5073e-02_rb,4.9553e-02_rb,5.1630e-02_rb,5.2026e-02_rb,5.0818e-02_rb, &\n     &4.7728e-02_rb,4.1935e-02_rb,3.1627e-02_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &4.4689e-02_rb,5.6776e-02_rb,6.2560e-02_rb,6.5413e-02_rb,6.6041e-02_rb,6.4568e-02_rb, &\n     &6.0721e-02_rb,5.3252e-02_rb,4.0421e-02_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &5.5122e-02_rb,7.0187e-02_rb,7.7371e-02_rb,8.1166e-02_rb,8.2060e-02_rb,8.0200e-02_rb, &\n     &7.5289e-02_rb,6.6107e-02_rb,5.0711e-02_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &6.6674e-02_rb,8.5247e-02_rb,9.4184e-02_rb,9.8741e-02_rb,9.9891e-02_rb,9.7702e-02_rb, &\n     &9.1660e-02_rb,8.0784e-02_rb,6.3321e-02_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &4.0056e-02_rb,4.4898e-02_rb,4.5971e-02_rb,4.5352e-02_rb,4.3659e-02_rb,4.0747e-02_rb, &\n     &3.6554e-02_rb,3.0205e-02_rb,1.8196e-02_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &5.2185e-02_rb,5.8633e-02_rb,6.0480e-02_rb,6.0085e-02_rb,5.7874e-02_rb,5.4080e-02_rb, &\n     &4.8546e-02_rb,4.0072e-02_rb,2.4060e-02_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &6.6434e-02_rb,7.5122e-02_rb,7.7544e-02_rb,7.7216e-02_rb,7.4584e-02_rb,6.9858e-02_rb, &\n     &6.2703e-02_rb,5.1788e-02_rb,3.0507e-02_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &8.3239e-02_rb,9.4089e-02_rb,9.7312e-02_rb,9.7000e-02_rb,9.3885e-02_rb,8.8076e-02_rb, &\n     &7.9042e-02_rb,6.5047e-02_rb,3.6382e-02_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &1.0221e-01_rb,1.1561e-01_rb,1.1992e-01_rb,1.1954e-01_rb,1.1572e-01_rb,1.0845e-01_rb, &\n     &9.7278e-02_rb,8.0126e-02_rb,4.5426e-02_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &6.9306e-02_rb,6.9494e-02_rb,6.7600e-02_rb,6.3267e-02_rb,5.7322e-02_rb,5.0091e-02_rb, &\n     &4.1741e-02_rb,3.1433e-02_rb,1.2053e-02_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &9.1357e-02_rb,9.2237e-02_rb,8.9335e-02_rb,8.3857e-02_rb,7.6444e-02_rb,6.7451e-02_rb, &\n     &5.6474e-02_rb,4.2659e-02_rb,1.6127e-02_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &1.1801e-01_rb,1.1955e-01_rb,1.1588e-01_rb,1.0908e-01_rb,9.9881e-02_rb,8.8243e-02_rb, &\n     &7.4146e-02_rb,5.6165e-02_rb,2.1600e-02_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &1.4950e-01_rb,1.5197e-01_rb,1.4749e-01_rb,1.3894e-01_rb,1.2736e-01_rb,1.1271e-01_rb, &\n     &9.4953e-02_rb,7.1880e-02_rb,2.7972e-02_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &1.8646e-01_rb,1.8942e-01_rb,1.8392e-01_rb,1.7346e-01_rb,1.5924e-01_rb,1.4113e-01_rb, &\n     &1.1856e-01_rb,8.9580e-02_rb,3.5566e-02_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &2.2096e-01_rb,1.9931e-01_rb,1.8126e-01_rb,1.6106e-01_rb,1.3834e-01_rb,1.1283e-01_rb, &\n     &8.4790e-02_rb,5.3465e-02_rb,1.3124e-02_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &3.0111e-01_rb,2.7269e-01_rb,2.4731e-01_rb,2.1828e-01_rb,1.8616e-01_rb,1.5202e-01_rb, &\n     &1.1457e-01_rb,7.2434e-02_rb,1.6890e-02_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &3.9547e-01_rb,3.5811e-01_rb,3.2380e-01_rb,2.8636e-01_rb,2.4465e-01_rb,1.9968e-01_rb, &\n     &1.5075e-01_rb,9.6319e-02_rb,2.1030e-02_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &5.0622e-01_rb,4.6008e-01_rb,4.1701e-01_rb,3.6806e-01_rb,3.1477e-01_rb,2.5740e-01_rb, &\n     &1.9504e-01_rb,1.2517e-01_rb,2.5567e-02_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &6.3970e-01_rb,5.8282e-01_rb,5.2753e-01_rb,4.6589e-01_rb,3.9821e-01_rb,3.2594e-01_rb, &\n     &2.4744e-01_rb,1.5892e-01_rb,3.0707e-02_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &7.9609e-01_rb,6.9877e-01_rb,6.0631e-01_rb,5.1323e-01_rb,4.2176e-01_rb,3.3040e-01_rb, &\n     &2.3557e-01_rb,1.3340e-01_rb,1.8364e-02_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &1.1185e+00_rb,9.8179e-01_rb,8.5163e-01_rb,7.2111e-01_rb,5.9292e-01_rb,4.6368e-01_rb, &\n     &3.2777e-01_rb,1.8494e-01_rb,2.2731e-02_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &1.4977e+00_rb,1.3152e+00_rb,1.1422e+00_rb,9.6927e-01_rb,7.9815e-01_rb,6.2269e-01_rb, &\n     &4.4054e-01_rb,2.4719e-01_rb,2.7714e-02_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &1.9588e+00_rb,1.7209e+00_rb,1.4963e+00_rb,1.2699e+00_rb,1.0440e+00_rb,8.1231e-01_rb, &\n     &5.7215e-01_rb,3.2165e-01_rb,3.3541e-02_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &2.4948e+00_rb,2.1931e+00_rb,1.9066e+00_rb,1.6194e+00_rb,1.3305e+00_rb,1.0363e+00_rb, &\n     &7.3187e-01_rb,4.1258e-01_rb,3.9461e-02_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &1.1786e+00_rb,1.0326e+00_rb,8.9194e-01_rb,7.5040e-01_rb,6.1100e-01_rb,4.7311e-01_rb, &\n     &3.3100e-01_rb,1.8184e-01_rb,1.9912e-02_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &1.6577e+00_rb,1.4527e+00_rb,1.2557e+00_rb,1.0583e+00_rb,8.6330e-01_rb,6.6758e-01_rb, &\n     &4.6659e-01_rb,2.5585e-01_rb,2.4574e-02_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &2.2529e+00_rb,1.9745e+00_rb,1.7078e+00_rb,1.4395e+00_rb,1.1743e+00_rb,9.0668e-01_rb, &\n     &6.3142e-01_rb,3.4477e-01_rb,2.9771e-02_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &2.9660e+00_rb,2.6012e+00_rb,2.2499e+00_rb,1.8975e+00_rb,1.5469e+00_rb,1.1941e+00_rb, &\n     &8.2956e-01_rb,4.5247e-01_rb,3.5340e-02_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &3.8252e+00_rb,3.3560e+00_rb,2.9025e+00_rb,2.4493e+00_rb,1.9962e+00_rb,1.5364e+00_rb, &\n     &1.0662e+00_rb,5.8207e-01_rb,4.0740e-02_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &1.3334e+00_rb,1.1683e+00_rb,1.0080e+00_rb,8.4695e-01_rb,6.8881e-01_rb,5.3043e-01_rb, &\n     &3.6715e-01_rb,1.9749e-01_rb,1.8810e-02_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &1.8510e+00_rb,1.6221e+00_rb,1.4015e+00_rb,1.1795e+00_rb,9.6045e-01_rb,7.4002e-01_rb, &\n     &5.1281e-01_rb,2.7717e-01_rb,2.2865e-02_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &2.5252e+00_rb,2.2140e+00_rb,1.9140e+00_rb,1.6128e+00_rb,1.3137e+00_rb,1.0115e+00_rb, &\n     &6.9957e-01_rb,3.7776e-01_rb,2.7421e-02_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &3.3724e+00_rb,2.9581e+00_rb,2.5564e+00_rb,2.1530e+00_rb,1.7520e+00_rb,1.3471e+00_rb, &\n     &9.2947e-01_rb,5.0112e-01_rb,3.2393e-02_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &4.3792e+00_rb,3.8422e+00_rb,3.3210e+00_rb,2.7983e+00_rb,2.2755e+00_rb,1.7461e+00_rb, &\n     &1.2059e+00_rb,6.4752e-01_rb,3.7070e-02_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &1.2116e+00_rb,1.0627e+00_rb,9.1758e-01_rb,7.7277e-01_rb,6.2996e-01_rb,4.8487e-01_rb, &\n     &3.3536e-01_rb,1.7964e-01_rb,1.5468e-02_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &1.6818e+00_rb,1.4755e+00_rb,1.2746e+00_rb,1.0748e+00_rb,8.7634e-01_rb,6.7377e-01_rb, &\n     &4.6518e-01_rb,2.4901e-01_rb,1.8709e-02_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &2.2861e+00_rb,2.0071e+00_rb,1.7358e+00_rb,1.4644e+00_rb,1.1940e+00_rb,9.1837e-01_rb, &\n     &6.3513e-01_rb,3.4226e-01_rb,2.2464e-02_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &3.0747e+00_rb,2.7003e+00_rb,2.3365e+00_rb,1.9712e+00_rb,1.6050e+00_rb,1.2324e+00_rb, &\n     &8.5082e-01_rb,4.5761e-01_rb,2.6279e-02_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &4.0462e+00_rb,3.5547e+00_rb,3.0752e+00_rb,2.5948e+00_rb,2.1107e+00_rb,1.6188e+00_rb, &\n     &1.1159e+00_rb,5.9825e-01_rb,3.0261e-02_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &7.9433e-03_rb,4.9696e-02_rb,8.9399e-02_rb,1.2891e-01_rb,1.7031e-01_rb,2.1327e-01_rb, &\n     &2.5635e-01_rb,2.9834e-01_rb,3.4005e-01_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &9.5773e-03_rb,6.0610e-02_rb,1.0882e-01_rb,1.5730e-01_rb,2.0827e-01_rb,2.6089e-01_rb, &\n     &3.1374e-01_rb,3.6559e-01_rb,4.1584e-01_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &1.1355e-02_rb,7.2723e-02_rb,1.3048e-01_rb,1.8917e-01_rb,2.5096e-01_rb,3.1435e-01_rb, &\n     &3.7828e-01_rb,4.4211e-01_rb,5.0107e-01_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &1.3277e-02_rb,8.6204e-02_rb,1.5483e-01_rb,2.2520e-01_rb,2.9933e-01_rb,3.7480e-01_rb, &\n     &4.5117e-01_rb,5.2865e-01_rb,5.9762e-01_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &1.5326e-02_rb,1.0116e-01_rb,1.8188e-01_rb,2.6559e-01_rb,3.5380e-01_rb,4.4327e-01_rb, &\n     &5.3402e-01_rb,6.2664e-01_rb,7.0640e-01_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &1.1776e-02_rb,4.7878e-02_rb,8.4972e-02_rb,1.1878e-01_rb,1.5366e-01_rb,1.9061e-01_rb, &\n     &2.3033e-01_rb,2.7211e-01_rb,3.0314e-01_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &1.4294e-02_rb,5.8956e-02_rb,1.0416e-01_rb,1.4559e-01_rb,1.8871e-01_rb,2.3457e-01_rb, &\n     &2.8358e-01_rb,3.3549e-01_rb,3.7290e-01_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &1.7066e-02_rb,7.1345e-02_rb,1.2565e-01_rb,1.7589e-01_rb,2.2857e-01_rb,2.8471e-01_rb, &\n     &3.4402e-01_rb,4.0658e-01_rb,4.5272e-01_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &2.0089e-02_rb,8.5201e-02_rb,1.4972e-01_rb,2.1022e-01_rb,2.7384e-01_rb,3.4170e-01_rb, &\n     &4.1272e-01_rb,4.8704e-01_rb,5.4350e-01_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &2.3307e-02_rb,1.0059e-01_rb,1.7602e-01_rb,2.4834e-01_rb,3.2442e-01_rb,4.0570e-01_rb, &\n     &4.8998e-01_rb,5.7844e-01_rb,6.4523e-01_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &2.2348e-02_rb,5.0240e-02_rb,8.0496e-02_rb,1.1072e-01_rb,1.3814e-01_rb,1.6488e-01_rb, &\n     &1.9401e-01_rb,2.2881e-01_rb,2.5470e-01_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &2.7442e-02_rb,6.2748e-02_rb,1.0008e-01_rb,1.3702e-01_rb,1.7047e-01_rb,2.0379e-01_rb, &\n     &2.4015e-01_rb,2.8371e-01_rb,3.1563e-01_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &3.3066e-02_rb,7.6711e-02_rb,1.2229e-01_rb,1.6700e-01_rb,2.0740e-01_rb,2.4849e-01_rb, &\n     &2.9339e-01_rb,3.4685e-01_rb,3.8604e-01_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &3.9269e-02_rb,9.2366e-02_rb,1.4749e-01_rb,2.0103e-01_rb,2.4924e-01_rb,2.9944e-01_rb, &\n     &3.5443e-01_rb,4.1958e-01_rb,4.6663e-01_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &4.5933e-02_rb,1.0972e-01_rb,1.7562e-01_rb,2.3869e-01_rb,2.9592e-01_rb,3.5671e-01_rb, &\n     &4.2354e-01_rb,5.0205e-01_rb,5.5762e-01_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &4.2106e-02_rb,6.4369e-02_rb,8.4555e-02_rb,1.0542e-01_rb,1.2690e-01_rb,1.4750e-01_rb, &\n     &1.6487e-01_rb,1.8576e-01_rb,2.0651e-01_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &5.2576e-02_rb,8.1026e-02_rb,1.0683e-01_rb,1.3280e-01_rb,1.5950e-01_rb,1.8491e-01_rb, &\n     &2.0655e-01_rb,2.3307e-01_rb,2.5966e-01_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &6.4079e-02_rb,9.9622e-02_rb,1.3194e-01_rb,1.6392e-01_rb,1.9672e-01_rb,2.2769e-01_rb, &\n     &2.5451e-01_rb,2.8781e-01_rb,3.2142e-01_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &7.6781e-02_rb,1.2036e-01_rb,1.6040e-01_rb,1.9955e-01_rb,2.3909e-01_rb,2.7584e-01_rb, &\n     &3.0872e-01_rb,3.5017e-01_rb,3.9149e-01_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &9.0605e-02_rb,1.4314e-01_rb,1.9223e-01_rb,2.3943e-01_rb,2.8645e-01_rb,3.2911e-01_rb, &\n     &3.6945e-01_rb,4.2071e-01_rb,4.7061e-01_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &7.1850e-02_rb,8.9617e-02_rb,1.0358e-01_rb,1.1417e-01_rb,1.2410e-01_rb,1.3445e-01_rb, &\n     &1.4500e-01_rb,1.5289e-01_rb,1.6393e-01_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &9.1160e-02_rb,1.1411e-01_rb,1.3218e-01_rb,1.4610e-01_rb,1.5890e-01_rb,1.7194e-01_rb, &\n     &1.8487e-01_rb,1.9440e-01_rb,2.0899e-01_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &1.1266e-01_rb,1.4163e-01_rb,1.6452e-01_rb,1.8216e-01_rb,1.9856e-01_rb,2.1504e-01_rb, &\n     &2.3093e-01_rb,2.4255e-01_rb,2.6179e-01_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &1.3642e-01_rb,1.7249e-01_rb,2.0078e-01_rb,2.2297e-01_rb,2.4396e-01_rb,2.6433e-01_rb, &\n     &2.8347e-01_rb,2.9753e-01_rb,3.2213e-01_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &1.6239e-01_rb,2.0660e-01_rb,2.4114e-01_rb,2.6894e-01_rb,2.9484e-01_rb,3.1958e-01_rb, &\n     &3.4207e-01_rb,3.5958e-01_rb,3.9095e-01_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &1.1140e-01_rb,1.2144e-01_rb,1.3218e-01_rb,1.3718e-01_rb,1.3653e-01_rb,1.3402e-01_rb, &\n     &1.3174e-01_rb,1.2946e-01_rb,1.2677e-01_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &1.4420e-01_rb,1.5827e-01_rb,1.7119e-01_rb,1.7776e-01_rb,1.7742e-01_rb,1.7454e-01_rb, &\n     &1.7134e-01_rb,1.6760e-01_rb,1.6399e-01_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &1.8124e-01_rb,2.0002e-01_rb,2.1589e-01_rb,2.2389e-01_rb,2.2423e-01_rb,2.2127e-01_rb, &\n     &2.1711e-01_rb,2.1204e-01_rb,2.0793e-01_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &2.2248e-01_rb,2.4636e-01_rb,2.6609e-01_rb,2.7594e-01_rb,2.7715e-01_rb,2.7479e-01_rb, &\n     &2.7017e-01_rb,2.6283e-01_rb,2.5856e-01_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &2.6774e-01_rb,2.9748e-01_rb,3.2183e-01_rb,3.3450e-01_rb,3.3675e-01_rb,3.3499e-01_rb, &\n     &3.3006e-01_rb,3.2020e-01_rb,3.1680e-01_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &1.7732e-01_rb,1.7534e-01_rb,1.7803e-01_rb,1.7714e-01_rb,1.7022e-01_rb,1.5702e-01_rb, &\n     &1.3821e-01_rb,1.1726e-01_rb,9.2624e-02_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &2.3477e-01_rb,2.3316e-01_rb,2.3664e-01_rb,2.3403e-01_rb,2.2497e-01_rb,2.0771e-01_rb, &\n     &1.8285e-01_rb,1.5521e-01_rb,1.2312e-01_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &3.0054e-01_rb,2.9947e-01_rb,3.0371e-01_rb,2.9989e-01_rb,2.8797e-01_rb,2.6596e-01_rb, &\n     &2.3476e-01_rb,1.9945e-01_rb,1.5929e-01_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &3.7459e-01_rb,3.7495e-01_rb,3.7937e-01_rb,3.7465e-01_rb,3.5915e-01_rb,3.3235e-01_rb, &\n     &2.9471e-01_rb,2.5108e-01_rb,2.0370e-01_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &4.5653e-01_rb,4.5857e-01_rb,4.6346e-01_rb,4.5781e-01_rb,4.3887e-01_rb,4.0748e-01_rb, &\n     &3.6268e-01_rb,3.0976e-01_rb,2.5195e-01_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &3.3219e-01_rb,3.0467e-01_rb,2.8618e-01_rb,2.6721e-01_rb,2.4601e-01_rb,2.1811e-01_rb, &\n     &1.8145e-01_rb,1.3269e-01_rb,6.6401e-02_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &4.4950e-01_rb,4.1374e-01_rb,3.8999e-01_rb,3.6461e-01_rb,3.3388e-01_rb,2.9490e-01_rb, &\n     &2.4508e-01_rb,1.7935e-01_rb,9.0026e-02_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &5.8717e-01_rb,5.4166e-01_rb,5.1100e-01_rb,4.7736e-01_rb,4.3579e-01_rb,3.8461e-01_rb, &\n     &3.1925e-01_rb,2.3358e-01_rb,1.1833e-01_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &7.4406e-01_rb,6.8778e-01_rb,6.4996e-01_rb,6.0622e-01_rb,5.5241e-01_rb,4.8728e-01_rb, &\n     &4.0419e-01_rb,2.9657e-01_rb,1.5189e-01_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &9.1907e-01_rb,8.5125e-01_rb,8.0569e-01_rb,7.5012e-01_rb,6.8369e-01_rb,6.0185e-01_rb, &\n     &4.9995e-01_rb,3.6832e-01_rb,1.9101e-01_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &1.1485e+00_rb,1.0089e+00_rb,8.7880e-01_rb,7.5762e-01_rb,6.3622e-01_rb,5.1377e-01_rb, &\n     &3.9068e-01_rb,2.5323e-01_rb,5.4057e-02_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &1.5919e+00_rb,1.3983e+00_rb,1.2193e+00_rb,1.0539e+00_rb,8.8759e-01_rb,7.1827e-01_rb, &\n     &5.4603e-01_rb,3.5236e-01_rb,7.3567e-02_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &2.1202e+00_rb,1.8629e+00_rb,1.6282e+00_rb,1.4084e+00_rb,1.1875e+00_rb,9.6283e-01_rb, &\n     &7.2992e-01_rb,4.6911e-01_rb,9.7269e-02_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &2.7354e+00_rb,2.4050e+00_rb,2.1038e+00_rb,1.8214e+00_rb,1.5366e+00_rb,1.2471e+00_rb, &\n     &9.4177e-01_rb,6.0391e-01_rb,1.2338e-01_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &3.4317e+00_rb,3.0176e+00_rb,2.6421e+00_rb,2.2877e+00_rb,1.9310e+00_rb,1.5677e+00_rb, &\n     &1.1814e+00_rb,7.5635e-01_rb,1.5353e-01_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &4.4436e+00_rb,3.8882e+00_rb,3.3348e+00_rb,2.7888e+00_rb,2.2477e+00_rb,1.7134e+00_rb, &\n     &1.1871e+00_rb,6.5782e-01_rb,7.0663e-02_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &6.2997e+00_rb,5.5124e+00_rb,4.7288e+00_rb,3.9559e+00_rb,3.1897e+00_rb,2.4334e+00_rb, &\n     &1.6915e+00_rb,9.3954e-01_rb,8.7418e-02_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &8.5619e+00_rb,7.4925e+00_rb,6.4279e+00_rb,5.3771e+00_rb,4.3365e+00_rb,3.3136e+00_rb, &\n     &2.3060e+00_rb,1.2843e+00_rb,1.0436e-01_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &1.1219e+01_rb,9.8180e+00_rb,8.4228e+00_rb,7.0486e+00_rb,5.6898e+00_rb,4.3532e+00_rb, &\n     &3.0319e+00_rb,1.6916e+00_rb,1.2593e-01_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &1.4295e+01_rb,1.2510e+01_rb,1.0734e+01_rb,8.9819e+00_rb,7.2530e+00_rb,5.5514e+00_rb, &\n     &3.8643e+00_rb,2.1564e+00_rb,1.5004e-01_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &7.0050e+00_rb,6.1296e+00_rb,5.2549e+00_rb,4.3868e+00_rb,3.5242e+00_rb,2.6669e+00_rb, &\n     &1.8245e+00_rb,9.8168e-01_rb,8.5745e-02_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &9.9554e+00_rb,8.7114e+00_rb,7.4687e+00_rb,6.2351e+00_rb,5.0098e+00_rb,3.7942e+00_rb, &\n     &2.5980e+00_rb,1.4001e+00_rb,1.0478e-01_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &1.3533e+01_rb,1.1842e+01_rb,1.0152e+01_rb,8.4771e+00_rb,6.8123e+00_rb,5.1640e+00_rb, &\n     &3.5405e+00_rb,1.9111e+00_rb,1.2573e-01_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &1.7771e+01_rb,1.5551e+01_rb,1.3333e+01_rb,1.1134e+01_rb,8.9512e+00_rb,6.7876e+00_rb, &\n     &4.6577e+00_rb,2.5172e+00_rb,1.4855e-01_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &2.2680e+01_rb,1.9846e+01_rb,1.7019e+01_rb,1.4214e+01_rb,1.1430e+01_rb,8.6745e+00_rb, &\n     &5.9538e+00_rb,3.2175e+00_rb,1.7203e-01_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &8.1047e+00_rb,7.0920e+00_rb,6.0802e+00_rb,5.0761e+00_rb,4.0767e+00_rb,3.0841e+00_rb, &\n     &2.1058e+00_rb,1.1266e+00_rb,9.0852e-02_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &1.1567e+01_rb,1.0121e+01_rb,8.6775e+00_rb,7.2441e+00_rb,5.8181e+00_rb,4.4027e+00_rb, &\n     &3.0080e+00_rb,1.6091e+00_rb,1.1081e-01_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &1.5756e+01_rb,1.3787e+01_rb,1.1820e+01_rb,9.8684e+00_rb,7.9263e+00_rb,6.0014e+00_rb, &\n     &4.1030e+00_rb,2.1969e+00_rb,1.3256e-01_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &2.0731e+01_rb,1.8141e+01_rb,1.5554e+01_rb,1.2989e+01_rb,1.0436e+01_rb,7.9047e+00_rb, &\n     &5.4071e+00_rb,2.8962e+00_rb,1.5690e-01_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &2.6483e+01_rb,2.3176e+01_rb,1.9872e+01_rb,1.6594e+01_rb,1.3339e+01_rb,1.0111e+01_rb, &\n     &6.9150e+00_rb,3.7095e+00_rb,1.8186e-01_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &7.4699e+00_rb,6.5364e+00_rb,5.6062e+00_rb,4.6835e+00_rb,3.7650e+00_rb,2.8555e+00_rb, &\n     &1.9560e+00_rb,1.0515e+00_rb,8.5273e-02_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &1.0680e+01_rb,9.3454e+00_rb,8.0165e+00_rb,6.6976e+00_rb,5.3854e+00_rb,4.0877e+00_rb, &\n     &2.8036e+00_rb,1.5078e+00_rb,1.0411e-01_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &1.4620e+01_rb,1.2793e+01_rb,1.0973e+01_rb,9.1678e+00_rb,7.3735e+00_rb,5.5972e+00_rb, &\n     &3.8382e+00_rb,2.0618e+00_rb,1.2386e-01_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &1.9258e+01_rb,1.6852e+01_rb,1.4455e+01_rb,1.2079e+01_rb,9.7197e+00_rb,7.3817e+00_rb, &\n     &5.0639e+00_rb,2.7225e+00_rb,1.4610e-01_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &2.4621e+01_rb,2.1546e+01_rb,1.8485e+01_rb,1.5448e+01_rb,1.2432e+01_rb,9.4454e+00_rb, &\n     &6.4771e+00_rb,3.4853e+00_rb,1.7007e-01_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &1.3879e-02_rb,1.0986e-01_rb,1.9192e-01_rb,2.8700e-01_rb,3.8129e-01_rb,4.7527e-01_rb, &\n     &5.7067e-01_rb,6.6779e-01_rb,7.6243e-01_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &1.6954e-02_rb,1.3303e-01_rb,2.3564e-01_rb,3.5200e-01_rb,4.6702e-01_rb,5.8054e-01_rb, &\n     &6.9523e-01_rb,8.1372e-01_rb,9.3367e-01_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &2.0369e-02_rb,1.5906e-01_rb,2.8523e-01_rb,4.2640e-01_rb,5.6627e-01_rb,7.0405e-01_rb, &\n     &8.3748e-01_rb,9.6604e-01_rb,1.1321e+00_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &2.4061e-02_rb,1.8742e-01_rb,3.4065e-01_rb,5.0987e-01_rb,6.7810e-01_rb,8.4492e-01_rb, &\n     &1.0078e+00_rb,1.1403e+00_rb,1.3558e+00_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &2.7911e-02_rb,2.1680e-01_rb,4.0347e-01_rb,6.0365e-01_rb,8.0163e-01_rb,9.9663e-01_rb, &\n     &1.1842e+00_rb,1.3430e+00_rb,1.6028e+00_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &2.2158e-02_rb,1.1276e-01_rb,1.8891e-01_rb,2.7518e-01_rb,3.6524e-01_rb,4.5317e-01_rb, &\n     &5.3652e-01_rb,6.1296e-01_rb,7.3020e-01_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &2.7256e-02_rb,1.3808e-01_rb,2.3100e-01_rb,3.4051e-01_rb,4.5180e-01_rb,5.6015e-01_rb, &\n     &6.6160e-01_rb,7.4973e-01_rb,9.0314e-01_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &3.2742e-02_rb,1.6645e-01_rb,2.7575e-01_rb,4.1007e-01_rb,5.4427e-01_rb,6.7555e-01_rb, &\n     &8.0050e-01_rb,9.1019e-01_rb,1.0879e+00_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &3.8593e-02_rb,1.9807e-01_rb,3.2475e-01_rb,4.8552e-01_rb,6.4531e-01_rb,8.0341e-01_rb, &\n     &9.5786e-01_rb,1.0994e+00_rb,1.2898e+00_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &4.4713e-02_rb,2.3139e-01_rb,3.8401e-01_rb,5.7431e-01_rb,7.6329e-01_rb,9.5026e-01_rb, &\n     &1.1317e+00_rb,1.3007e+00_rb,1.5256e+00_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &4.4889e-02_rb,1.1945e-01_rb,1.9910e-01_rb,2.6592e-01_rb,3.2716e-01_rb,4.0820e-01_rb, &\n     &4.8832e-01_rb,5.6450e-01_rb,6.5333e-01_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &5.6096e-02_rb,1.4847e-01_rb,2.4845e-01_rb,3.3071e-01_rb,4.1171e-01_rb,5.1418e-01_rb, &\n     &6.1578e-01_rb,7.1081e-01_rb,8.2224e-01_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &6.8702e-02_rb,1.8161e-01_rb,3.0124e-01_rb,3.9617e-01_rb,5.0089e-01_rb,6.2554e-01_rb, &\n     &7.4933e-01_rb,8.6662e-01_rb,1.0003e+00_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &8.1949e-02_rb,2.1813e-01_rb,3.5788e-01_rb,4.6675e-01_rb,6.0112e-01_rb,7.4982e-01_rb, &\n     &8.9722e-01_rb,1.0369e+00_rb,1.1996e+00_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &9.5752e-02_rb,2.5792e-01_rb,4.1860e-01_rb,5.4742e-01_rb,7.1669e-01_rb,8.9255e-01_rb, &\n     &1.0648e+00_rb,1.2234e+00_rb,1.4293e+00_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &9.2779e-02_rb,1.3647e-01_rb,2.0374e-01_rb,2.6880e-01_rb,3.2474e-01_rb,3.6630e-01_rb, &\n     &4.2915e-01_rb,4.9644e-01_rb,5.7357e-01_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &1.1604e-01_rb,1.7477e-01_rb,2.5924e-01_rb,3.4288e-01_rb,4.1143e-01_rb,4.5661e-01_rb, &\n     &5.3933e-01_rb,6.2792e-01_rb,7.1853e-01_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &1.4325e-01_rb,2.1810e-01_rb,3.2204e-01_rb,4.2345e-01_rb,5.0270e-01_rb,5.5390e-01_rb, &\n     &6.5839e-01_rb,7.6862e-01_rb,8.7526e-01_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &1.7320e-01_rb,2.6694e-01_rb,3.8938e-01_rb,5.0945e-01_rb,6.0406e-01_rb,6.6936e-01_rb, &\n     &8.0058e-01_rb,9.3405e-01_rb,1.0639e+00_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &2.0528e-01_rb,3.2153e-01_rb,4.6268e-01_rb,6.0392e-01_rb,7.1636e-01_rb,8.0678e-01_rb, &\n     &9.6596e-01_rb,1.1248e+00_rb,1.2848e+00_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &1.7241e-01_rb,1.8815e-01_rb,2.2088e-01_rb,2.6810e-01_rb,3.2220e-01_rb,3.6810e-01_rb, &\n     &3.9585e-01_rb,4.3476e-01_rb,4.9559e-01_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &2.1928e-01_rb,2.4297e-01_rb,2.8762e-01_rb,3.4907e-01_rb,4.1506e-01_rb,4.6919e-01_rb, &\n     &4.9756e-01_rb,5.5222e-01_rb,6.2884e-01_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &2.7265e-01_rb,3.0607e-01_rb,3.6483e-01_rb,4.4370e-01_rb,5.1761e-01_rb,5.7690e-01_rb, &\n     &6.0530e-01_rb,6.7866e-01_rb,7.7290e-01_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &3.3288e-01_rb,3.7610e-01_rb,4.5166e-01_rb,5.4662e-01_rb,6.2951e-01_rb,6.9865e-01_rb, &\n     &7.2973e-01_rb,8.2842e-01_rb,9.4575e-01_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &3.9915e-01_rb,4.5195e-01_rb,5.4707e-01_rb,6.6103e-01_rb,7.5773e-01_rb,8.3891e-01_rb, &\n     &8.7097e-01_rb,1.0005e+00_rb,1.1404e+00_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &2.9778e-01_rb,2.8967e-01_rb,2.9242e-01_rb,2.9076e-01_rb,3.1606e-01_rb,3.5216e-01_rb, &\n     &3.7514e-01_rb,3.6360e-01_rb,4.0286e-01_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &3.8364e-01_rb,3.7347e-01_rb,3.8384e-01_rb,3.8402e-01_rb,4.1811e-01_rb,4.6141e-01_rb, &\n     &4.8908e-01_rb,4.6937e-01_rb,5.2349e-01_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &4.8196e-01_rb,4.7366e-01_rb,4.8805e-01_rb,4.9747e-01_rb,5.3761e-01_rb,5.8138e-01_rb, &\n     &6.1239e-01_rb,5.8662e-01_rb,6.5890e-01_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &5.9004e-01_rb,5.9246e-01_rb,6.0698e-01_rb,6.2535e-01_rb,6.7125e-01_rb,7.1432e-01_rb, &\n     &7.4926e-01_rb,7.2627e-01_rb,8.2202e-01_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &7.1225e-01_rb,7.2336e-01_rb,7.3969e-01_rb,7.6299e-01_rb,8.2248e-01_rb,8.6951e-01_rb, &\n     &9.0679e-01_rb,8.7991e-01_rb,1.0003e+00_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &5.2983e-01_rb,4.8709e-01_rb,4.4813e-01_rb,4.1883e-01_rb,3.8710e-01_rb,3.5910e-01_rb, &\n     &3.5198e-01_rb,3.4364e-01_rb,3.2708e-01_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &6.9820e-01_rb,6.4182e-01_rb,5.9773e-01_rb,5.6199e-01_rb,5.1585e-01_rb,4.8198e-01_rb, &\n     &4.7538e-01_rb,4.5593e-01_rb,4.2838e-01_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &8.9166e-01_rb,8.2011e-01_rb,7.7520e-01_rb,7.2195e-01_rb,6.6977e-01_rb,6.2908e-01_rb, &\n     &6.1720e-01_rb,5.8358e-01_rb,5.4876e-01_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &1.1048e+00_rb,1.0150e+00_rb,9.7493e-01_rb,9.0555e-01_rb,8.5261e-01_rb,7.9496e-01_rb, &\n     &7.7495e-01_rb,7.2954e-01_rb,6.9328e-01_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &1.3386e+00_rb,1.2295e+00_rb,1.1950e+00_rb,1.1151e+00_rb,1.0543e+00_rb,9.8064e-01_rb, &\n     &9.5591e-01_rb,8.9484e-01_rb,8.5404e-01_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &1.0881e+00_rb,9.5225e-01_rb,8.5699e-01_rb,7.4043e-01_rb,6.3719e-01_rb,5.4699e-01_rb, &\n     &4.4366e-01_rb,3.3722e-01_rb,2.5365e-01_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &1.4729e+00_rb,1.2892e+00_rb,1.1603e+00_rb,1.0057e+00_rb,8.7735e-01_rb,7.4624e-01_rb, &\n     &6.0685e-01_rb,4.5839e-01_rb,3.4968e-01_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &1.9193e+00_rb,1.6816e+00_rb,1.5156e+00_rb,1.3265e+00_rb,1.1534e+00_rb,9.7741e-01_rb, &\n     &7.9951e-01_rb,6.0809e-01_rb,4.5275e-01_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &2.4196e+00_rb,2.1220e+00_rb,1.9097e+00_rb,1.6942e+00_rb,1.4693e+00_rb,1.2439e+00_rb, &\n     &1.0194e+00_rb,7.8139e-01_rb,5.7536e-01_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &2.9662e+00_rb,2.6064e+00_rb,2.3390e+00_rb,2.0966e+00_rb,1.8122e+00_rb,1.5517e+00_rb, &\n     &1.2698e+00_rb,9.8175e-01_rb,7.1420e-01_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &4.0693e+00_rb,3.5609e+00_rb,3.0521e+00_rb,2.5470e+00_rb,2.0946e+00_rb,1.6231e+00_rb, &\n     &1.1342e+00_rb,6.9341e-01_rb,2.3254e-01_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &5.6525e+00_rb,4.9459e+00_rb,4.2396e+00_rb,3.5367e+00_rb,2.9143e+00_rb,2.2533e+00_rb, &\n     &1.5867e+00_rb,9.6567e-01_rb,2.9706e-01_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &7.5336e+00_rb,6.5921e+00_rb,5.6502e+00_rb,4.7197e+00_rb,3.8915e+00_rb,3.0030e+00_rb, &\n     &2.1420e+00_rb,1.2862e+00_rb,3.6402e-01_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &9.6696e+00_rb,8.4608e+00_rb,7.2526e+00_rb,6.0675e+00_rb,4.9886e+00_rb,3.8558e+00_rb, &\n     &2.7779e+00_rb,1.6618e+00_rb,4.0961e-01_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &1.2059e+01_rb,1.0552e+01_rb,9.0447e+00_rb,7.5858e+00_rb,6.2136e+00_rb,4.8233e+00_rb, &\n     &3.4799e+00_rb,2.0915e+00_rb,3.7531e-01_rb/)\n      kao(:, 1,10,10) = (/ &\n     &1.7088e+01_rb,1.4952e+01_rb,1.2816e+01_rb,1.0681e+01_rb,8.5444e+00_rb,6.4081e+00_rb, &\n     &4.3169e+00_rb,2.2612e+00_rb,1.5325e-01_rb/)\n      kao(:, 2,10,10) = (/ &\n     &2.4265e+01_rb,2.1232e+01_rb,1.8199e+01_rb,1.5167e+01_rb,1.2132e+01_rb,9.0996e+00_rb, &\n     &6.1194e+00_rb,3.2115e+00_rb,2.0907e-01_rb/)\n      kao(:, 3,10,10) = (/ &\n     &3.2859e+01_rb,2.8752e+01_rb,2.4646e+01_rb,2.0537e+01_rb,1.6430e+01_rb,1.2323e+01_rb, &\n     &8.2885e+00_rb,4.3528e+00_rb,2.8093e-01_rb/)\n      kao(:, 4,10,10) = (/ &\n     &4.2869e+01_rb,3.7512e+01_rb,3.2153e+01_rb,2.6795e+01_rb,2.1435e+01_rb,1.6077e+01_rb, &\n     &1.0833e+01_rb,5.6764e+00_rb,3.4638e-01_rb/)\n      kao(:, 5,10,10) = (/ &\n     &5.4098e+01_rb,4.7336e+01_rb,4.0575e+01_rb,3.3816e+01_rb,2.7052e+01_rb,2.0291e+01_rb, &\n     &1.3707e+01_rb,7.1952e+00_rb,4.8935e-01_rb/)\n      kao(:, 1,11,10) = (/ &\n     &2.9317e+01_rb,2.5652e+01_rb,2.1987e+01_rb,1.8324e+01_rb,1.4658e+01_rb,1.0994e+01_rb, &\n     &7.3313e+00_rb,3.7877e+00_rb,2.2554e-01_rb/)\n      kao(:, 2,11,10) = (/ &\n     &4.1549e+01_rb,3.6355e+01_rb,3.1162e+01_rb,2.5968e+01_rb,2.0775e+01_rb,1.5581e+01_rb, &\n     &1.0388e+01_rb,5.3868e+00_rb,2.3983e-01_rb/)\n      kao(:, 3,11,10) = (/ &\n     &5.6191e+01_rb,4.9168e+01_rb,4.2143e+01_rb,3.5117e+01_rb,2.8096e+01_rb,2.1071e+01_rb, &\n     &1.4052e+01_rb,7.2903e+00_rb,2.8347e-01_rb/)\n      kao(:, 4,11,10) = (/ &\n     &7.3162e+01_rb,6.4016e+01_rb,5.4871e+01_rb,4.5729e+01_rb,3.6583e+01_rb,2.7439e+01_rb, &\n     &1.8309e+01_rb,9.4965e+00_rb,3.4363e-01_rb/)\n      kao(:, 5,11,10) = (/ &\n     &9.2126e+01_rb,8.0611e+01_rb,6.9095e+01_rb,5.7582e+01_rb,4.6068e+01_rb,3.4554e+01_rb, &\n     &2.3073e+01_rb,1.1954e+01_rb,4.6470e-01_rb/)\n      kao(:, 1,12,10) = (/ &\n     &3.6684e+01_rb,3.2099e+01_rb,2.7514e+01_rb,2.2927e+01_rb,1.8342e+01_rb,1.3757e+01_rb, &\n     &9.1743e+00_rb,4.7217e+00_rb,2.6068e-01_rb/)\n      kao(:, 2,12,10) = (/ &\n     &5.1868e+01_rb,4.5387e+01_rb,3.8901e+01_rb,3.2419e+01_rb,2.5934e+01_rb,1.9452e+01_rb, &\n     &1.2967e+01_rb,6.6916e+00_rb,2.7916e-01_rb/)\n      kao(:, 3,12,10) = (/ &\n     &7.0081e+01_rb,6.1322e+01_rb,5.2561e+01_rb,4.3801e+01_rb,3.5043e+01_rb,2.6282e+01_rb, &\n     &1.7526e+01_rb,9.0530e+00_rb,3.3145e-01_rb/)\n      kao(:, 4,12,10) = (/ &\n     &9.0957e+01_rb,7.9591e+01_rb,6.8227e+01_rb,5.6859e+01_rb,4.5488e+01_rb,3.4114e+01_rb, &\n     &2.2760e+01_rb,1.1751e+01_rb,3.6053e-01_rb/)\n      kao(:, 5,12,10) = (/ &\n     &1.1478e+02_rb,1.0044e+02_rb,8.6086e+01_rb,7.1743e+01_rb,5.7394e+01_rb,4.3046e+01_rb, &\n     &2.8737e+01_rb,1.4814e+01_rb,4.5144e-01_rb/)\n      kao(:, 1,13,10) = (/ &\n     &3.5965e+01_rb,3.1472e+01_rb,2.6975e+01_rb,2.2479e+01_rb,1.7984e+01_rb,1.3488e+01_rb, &\n     &9.0232e+00_rb,4.6648e+00_rb,2.4705e-01_rb/)\n      kao(:, 2,13,10) = (/ &\n     &5.0800e+01_rb,4.4451e+01_rb,3.8101e+01_rb,3.1752e+01_rb,2.5403e+01_rb,1.9053e+01_rb, &\n     &1.2739e+01_rb,6.5982e+00_rb,2.8941e-01_rb/)\n      kao(:, 3,13,10) = (/ &\n     &6.8393e+01_rb,5.9846e+01_rb,5.1296e+01_rb,4.2746e+01_rb,3.4199e+01_rb,2.5650e+01_rb, &\n     &1.7151e+01_rb,8.8890e+00_rb,3.3776e-01_rb/)\n      kao(:, 4,13,10) = (/ &\n     &8.8957e+01_rb,7.7837e+01_rb,6.6721e+01_rb,5.5604e+01_rb,4.4485e+01_rb,3.3364e+01_rb, &\n     &2.2331e+01_rb,1.1554e+01_rb,3.9400e-01_rb/)\n      kao(:, 5,13,10) = (/ &\n     &1.1248e+02_rb,9.8422e+01_rb,8.4359e+01_rb,7.0296e+01_rb,5.6240e+01_rb,4.2182e+01_rb, &\n     &2.8274e+01_rb,1.4614e+01_rb,4.6294e-01_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &2.0991e-02_rb,1.4510e-01_rb,2.7530e-01_rb,4.1253e-01_rb,5.4888e-01_rb,6.8317e-01_rb, &\n     &8.1040e-01_rb,9.0204e-01_rb,1.0977e+00_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &2.6377e-02_rb,1.7420e-01_rb,3.3534e-01_rb,5.0284e-01_rb,6.6978e-01_rb,8.3508e-01_rb, &\n     &9.9362e-01_rb,1.1152e+00_rb,1.3395e+00_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &3.2301e-02_rb,2.0470e-01_rb,4.0014e-01_rb,5.9936e-01_rb,7.9730e-01_rb,9.9294e-01_rb, &\n     &1.1840e+00_rb,1.3371e+00_rb,1.5943e+00_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &3.8610e-02_rb,2.3990e-01_rb,4.7445e-01_rb,7.0939e-01_rb,9.4186e-01_rb,1.1687e+00_rb, &\n     &1.3842e+00_rb,1.5657e+00_rb,1.8832e+00_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &4.5285e-02_rb,2.8044e-01_rb,5.5866e-01_rb,8.3454e-01_rb,1.1074e+00_rb,1.3742e+00_rb, &\n     &1.6243e+00_rb,1.8087e+00_rb,2.2141e+00_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &3.0334e-02_rb,1.5806e-01_rb,2.5391e-01_rb,3.8056e-01_rb,5.0695e-01_rb,6.3318e-01_rb, &\n     &7.5908e-01_rb,8.7813e-01_rb,1.0138e+00_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &3.8224e-02_rb,1.9234e-01_rb,3.1173e-01_rb,4.6706e-01_rb,6.2209e-01_rb,7.7707e-01_rb, &\n     &9.3334e-01_rb,1.0857e+00_rb,1.2438e+00_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &4.7042e-02_rb,2.2793e-01_rb,3.7775e-01_rb,5.6573e-01_rb,7.5275e-01_rb,9.3856e-01_rb, &\n     &1.1227e+00_rb,1.3034e+00_rb,1.5049e+00_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &5.6790e-02_rb,2.6663e-01_rb,4.5515e-01_rb,6.8101e-01_rb,9.0489e-01_rb,1.1244e+00_rb, &\n     &1.3363e+00_rb,1.5352e+00_rb,1.8090e+00_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &6.7198e-02_rb,3.0909e-01_rb,5.3855e-01_rb,8.0620e-01_rb,1.0720e+00_rb,1.3339e+00_rb, &\n     &1.5872e+00_rb,1.8075e+00_rb,2.1432e+00_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &5.8386e-02_rb,1.7533e-01_rb,2.7134e-01_rb,3.4280e-01_rb,4.5327e-01_rb,5.6550e-01_rb, &\n     &6.7606e-01_rb,7.8244e-01_rb,9.0646e-01_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &7.4136e-02_rb,2.1912e-01_rb,3.3311e-01_rb,4.2266e-01_rb,5.6203e-01_rb,7.0075e-01_rb, &\n     &8.3707e-01_rb,9.6959e-01_rb,1.1236e+00_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &9.1573e-02_rb,2.6509e-01_rb,4.0096e-01_rb,5.1730e-01_rb,6.8812e-01_rb,8.5747e-01_rb, &\n     &1.0237e+00_rb,1.1823e+00_rb,1.3753e+00_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &1.1115e-01_rb,3.1410e-01_rb,4.7626e-01_rb,6.2447e-01_rb,8.3118e-01_rb,1.0365e+00_rb, &\n     &1.2383e+00_rb,1.4280e+00_rb,1.6615e+00_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &1.3245e-01_rb,3.6725e-01_rb,5.5683e-01_rb,7.4336e-01_rb,9.8988e-01_rb,1.2355e+00_rb, &\n     &1.4780e+00_rb,1.7132e+00_rb,1.9788e+00_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &1.1641e-01_rb,1.9770e-01_rb,2.9439e-01_rb,3.7525e-01_rb,4.3722e-01_rb,5.0094e-01_rb, &\n     &6.0009e-01_rb,6.9731e-01_rb,8.0196e-01_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &1.4966e-01_rb,2.5765e-01_rb,3.7252e-01_rb,4.6834e-01_rb,5.4216e-01_rb,6.3606e-01_rb, &\n     &7.6075e-01_rb,8.7975e-01_rb,1.0184e+00_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &1.8710e-01_rb,3.2245e-01_rb,4.5679e-01_rb,5.7205e-01_rb,6.6194e-01_rb,7.9151e-01_rb, &\n     &9.4643e-01_rb,1.0919e+00_rb,1.2671e+00_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &2.2853e-01_rb,3.9201e-01_rb,5.5041e-01_rb,6.8810e-01_rb,7.8876e-01_rb,9.5787e-01_rb, &\n     &1.1458e+00_rb,1.3241e+00_rb,1.5335e+00_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &2.7304e-01_rb,4.6530e-01_rb,6.5411e-01_rb,8.1513e-01_rb,9.2682e-01_rb,1.1406e+00_rb, &\n     &1.3653e+00_rb,1.5825e+00_rb,1.8252e+00_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &2.2361e-01_rb,2.4318e-01_rb,3.1539e-01_rb,3.9443e-01_rb,4.5716e-01_rb,5.0109e-01_rb, &\n     &5.2154e-01_rb,6.0679e-01_rb,6.9571e-01_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &2.8781e-01_rb,3.2451e-01_rb,4.1536e-01_rb,5.0630e-01_rb,5.8344e-01_rb,6.3855e-01_rb, &\n     &6.7297e-01_rb,7.8266e-01_rb,8.9726e-01_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &3.6159e-01_rb,4.1915e-01_rb,5.2707e-01_rb,6.2976e-01_rb,7.2674e-01_rb,7.9740e-01_rb, &\n     &8.4985e-01_rb,9.8938e-01_rb,1.1325e+00_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &4.4416e-01_rb,5.2452e-01_rb,6.5017e-01_rb,7.6880e-01_rb,8.8658e-01_rb,9.6270e-01_rb, &\n     &1.0399e+00_rb,1.2125e+00_rb,1.3846e+00_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &5.3394e-01_rb,6.3638e-01_rb,7.8407e-01_rb,9.2197e-01_rb,1.0572e+00_rb,1.1328e+00_rb, &\n     &1.2555e+00_rb,1.4611e+00_rb,1.6711e+00_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &3.9154e-01_rb,3.6960e-01_rb,3.6660e-01_rb,4.0826e-01_rb,4.6123e-01_rb,5.0084e-01_rb, &\n     &5.2154e-01_rb,5.2728e-01_rb,6.0320e-01_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &5.1275e-01_rb,4.8556e-01_rb,4.9732e-01_rb,5.4788e-01_rb,6.0699e-01_rb,6.5333e-01_rb, &\n     &6.7418e-01_rb,6.8648e-01_rb,7.8580e-01_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &6.5141e-01_rb,6.2128e-01_rb,6.5130e-01_rb,7.0712e-01_rb,7.7202e-01_rb,8.3303e-01_rb, &\n     &8.5314e-01_rb,8.6953e-01_rb,9.9315e-01_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &8.1112e-01_rb,7.6989e-01_rb,8.2193e-01_rb,8.8492e-01_rb,9.6073e-01_rb,1.0362e+00_rb, &\n     &1.0443e+00_rb,1.0666e+00_rb,1.2159e+00_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &9.8628e-01_rb,9.3596e-01_rb,1.0065e+00_rb,1.0840e+00_rb,1.1687e+00_rb,1.2489e+00_rb, &\n     &1.2474e+00_rb,1.2983e+00_rb,1.4796e+00_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &6.9811e-01_rb,6.2404e-01_rb,5.7431e-01_rb,5.2596e-01_rb,5.0219e-01_rb,5.1011e-01_rb, &\n     &5.2289e-01_rb,4.9946e-01_rb,5.0228e-01_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &9.3257e-01_rb,8.3430e-01_rb,7.6751e-01_rb,7.1360e-01_rb,6.8353e-01_rb,6.8813e-01_rb, &\n     &6.9358e-01_rb,6.6018e-01_rb,6.7200e-01_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &1.1984e+00_rb,1.0755e+00_rb,9.9660e-01_rb,9.4008e-01_rb,8.9760e-01_rb,8.9906e-01_rb, &\n     &8.9631e-01_rb,8.4016e-01_rb,8.6247e-01_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &1.5061e+00_rb,1.3555e+00_rb,1.2704e+00_rb,1.2009e+00_rb,1.1418e+00_rb,1.1469e+00_rb, &\n     &1.1302e+00_rb,1.0283e+00_rb,1.0687e+00_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &1.8551e+00_rb,1.6736e+00_rb,1.5791e+00_rb,1.4850e+00_rb,1.4175e+00_rb,1.4225e+00_rb, &\n     &1.3804e+00_rb,1.2333e+00_rb,1.3098e+00_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &1.4751e+00_rb,1.2907e+00_rb,1.1413e+00_rb,9.9788e-01_rb,8.3765e-01_rb,7.0312e-01_rb, &\n     &5.8437e-01_rb,5.1212e-01_rb,4.0848e-01_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &2.0110e+00_rb,1.7597e+00_rb,1.5595e+00_rb,1.3603e+00_rb,1.1539e+00_rb,9.7291e-01_rb, &\n     &7.9698e-01_rb,7.0110e-01_rb,5.5259e-01_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &2.6286e+00_rb,2.3001e+00_rb,2.0385e+00_rb,1.7785e+00_rb,1.5362e+00_rb,1.2889e+00_rb, &\n     &1.0590e+00_rb,9.2250e-01_rb,7.2275e-01_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &3.3350e+00_rb,2.9182e+00_rb,2.5850e+00_rb,2.2617e+00_rb,1.9780e+00_rb,1.6580e+00_rb, &\n     &1.3758e+00_rb,1.1729e+00_rb,9.1532e-01_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &4.1346e+00_rb,3.6181e+00_rb,3.2106e+00_rb,2.8264e+00_rb,2.4835e+00_rb,2.0714e+00_rb, &\n     &1.7385e+00_rb,1.4468e+00_rb,1.1430e+00_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &5.7681e+00_rb,5.0468e+00_rb,4.3260e+00_rb,3.6050e+00_rb,2.9109e+00_rb,2.2673e+00_rb, &\n     &1.5776e+00_rb,9.1302e-01_rb,3.3856e-01_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &8.0519e+00_rb,7.0463e+00_rb,6.0395e+00_rb,5.0331e+00_rb,4.0586e+00_rb,3.1762e+00_rb, &\n     &2.2073e+00_rb,1.2968e+00_rb,3.9705e-01_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &1.0740e+01_rb,9.3971e+00_rb,8.0549e+00_rb,6.7129e+00_rb,5.4190e+00_rb,4.2355e+00_rb, &\n     &2.9531e+00_rb,1.7521e+00_rb,4.0437e-01_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &1.3840e+01_rb,1.2110e+01_rb,1.0380e+01_rb,8.6502e+00_rb,7.0077e+00_rb,5.4549e+00_rb, &\n     &3.8354e+00_rb,2.2704e+00_rb,5.4385e-01_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &1.7291e+01_rb,1.5129e+01_rb,1.2969e+01_rb,1.0808e+01_rb,8.7913e+00_rb,6.8118e+00_rb, &\n     &4.8594e+00_rb,2.8643e+00_rb,9.3844e-01_rb/)\n      kao(:, 1,10,11) = (/ &\n     &2.5281e+01_rb,2.2121e+01_rb,1.8961e+01_rb,1.5801e+01_rb,1.2641e+01_rb,9.4806e+00_rb, &\n     &6.3207e+00_rb,3.2921e+00_rb,2.8225e-01_rb/)\n      kao(:, 2,10,11) = (/ &\n     &3.6089e+01_rb,3.1577e+01_rb,2.7066e+01_rb,2.2555e+01_rb,1.8044e+01_rb,1.3532e+01_rb, &\n     &9.0226e+00_rb,4.7197e+00_rb,3.9375e-01_rb/)\n      kao(:, 3,10,11) = (/ &\n     &4.8997e+01_rb,4.2873e+01_rb,3.6749e+01_rb,3.0623e+01_rb,2.4498e+01_rb,1.8373e+01_rb, &\n     &1.2249e+01_rb,6.4130e+00_rb,6.0950e-01_rb/)\n      kao(:, 4,10,11) = (/ &\n     &6.4090e+01_rb,5.6079e+01_rb,4.8068e+01_rb,4.0059e+01_rb,3.2048e+01_rb,2.4036e+01_rb, &\n     &1.6029e+01_rb,8.3902e+00_rb,8.3229e-01_rb/)\n      kao(:, 5,10,11) = (/ &\n     &8.0977e+01_rb,7.0856e+01_rb,6.0735e+01_rb,5.0611e+01_rb,4.0489e+01_rb,3.0368e+01_rb, &\n     &2.0260e+01_rb,1.0591e+01_rb,9.6456e-01_rb/)\n      kao(:, 1,11,11) = (/ &\n     &4.5405e+01_rb,3.9730e+01_rb,3.4055e+01_rb,2.8379e+01_rb,2.2704e+01_rb,1.7027e+01_rb, &\n     &1.1352e+01_rb,5.7629e+00_rb,2.2978e-01_rb/)\n      kao(:, 2,11,11) = (/ &\n     &6.4516e+01_rb,5.6450e+01_rb,4.8385e+01_rb,4.0321e+01_rb,3.2258e+01_rb,2.4193e+01_rb, &\n     &1.6129e+01_rb,8.1743e+00_rb,3.8450e-01_rb/)\n      kao(:, 3,11,11) = (/ &\n     &8.7570e+01_rb,7.6629e+01_rb,6.5678e+01_rb,5.4738e+01_rb,4.3785e+01_rb,3.2840e+01_rb, &\n     &2.1894e+01_rb,1.1105e+01_rb,5.0528e-01_rb/)\n      kao(:, 4,11,11) = (/ &\n     &1.1421e+02_rb,9.9924e+01_rb,8.5650e+01_rb,7.1372e+01_rb,5.7099e+01_rb,4.2826e+01_rb, &\n     &2.8549e+01_rb,1.4506e+01_rb,6.3580e-01_rb/)\n      kao(:, 5,11,11) = (/ &\n     &1.4404e+02_rb,1.2604e+02_rb,1.0803e+02_rb,9.0033e+01_rb,7.2026e+01_rb,5.4020e+01_rb, &\n     &3.6011e+01_rb,1.8334e+01_rb,7.9612e-01_rb/)\n      kao(:, 1,12,11) = (/ &\n     &5.9271e+01_rb,5.1859e+01_rb,4.4453e+01_rb,3.7044e+01_rb,2.9635e+01_rb,2.2226e+01_rb, &\n     &1.4818e+01_rb,7.4861e+00_rb,2.2024e-01_rb/)\n      kao(:, 2,12,11) = (/ &\n     &8.4185e+01_rb,7.3665e+01_rb,6.3138e+01_rb,5.2615e+01_rb,4.2094e+01_rb,3.1570e+01_rb, &\n     &2.1046e+01_rb,1.0615e+01_rb,3.8802e-01_rb/)\n      kao(:, 3,12,11) = (/ &\n     &1.1399e+02_rb,9.9749e+01_rb,8.5496e+01_rb,7.1245e+01_rb,5.6997e+01_rb,4.2749e+01_rb, &\n     &2.8499e+01_rb,1.4383e+01_rb,4.9342e-01_rb/)\n      kao(:, 4,12,11) = (/ &\n     &1.4842e+02_rb,1.2987e+02_rb,1.1132e+02_rb,9.2770e+01_rb,7.4216e+01_rb,5.5662e+01_rb, &\n     &3.7107e+01_rb,1.8761e+01_rb,6.8194e-01_rb/)\n      kao(:, 5,12,11) = (/ &\n     &1.8694e+02_rb,1.6356e+02_rb,1.4020e+02_rb,1.1683e+02_rb,9.3474e+01_rb,7.0107e+01_rb, &\n     &4.6738e+01_rb,2.3682e+01_rb,7.5051e-01_rb/)\n      kao(:, 1,13,11) = (/ &\n     &6.1162e+01_rb,5.3516e+01_rb,4.5871e+01_rb,3.8225e+01_rb,3.0581e+01_rb,2.2936e+01_rb, &\n     &1.5291e+01_rb,7.7722e+00_rb,3.0501e-01_rb/)\n      kao(:, 2,13,11) = (/ &\n     &8.6643e+01_rb,7.5815e+01_rb,6.4984e+01_rb,5.4153e+01_rb,4.3324e+01_rb,3.2493e+01_rb, &\n     &2.1662e+01_rb,1.1016e+01_rb,3.8069e-01_rb/)\n      kao(:, 3,13,11) = (/ &\n     &1.1697e+02_rb,1.0235e+02_rb,8.7727e+01_rb,7.3107e+01_rb,5.8486e+01_rb,4.3863e+01_rb, &\n     &2.9242e+01_rb,1.4879e+01_rb,4.9510e-01_rb/)\n      kao(:, 4,13,11) = (/ &\n     &1.5186e+02_rb,1.3288e+02_rb,1.1389e+02_rb,9.4916e+01_rb,7.5936e+01_rb,5.6949e+01_rb, &\n     &3.7967e+01_rb,1.9342e+01_rb,5.7912e-01_rb/)\n      kao(:, 5,13,11) = (/ &\n     &1.9078e+02_rb,1.6694e+02_rb,1.4309e+02_rb,1.1924e+02_rb,9.5394e+01_rb,7.1546e+01_rb, &\n     &4.7697e+01_rb,2.4327e+01_rb,6.7000e-01_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &4.4327e-02_rb,1.9901e-01_rb,3.9567e-01_rb,5.8848e-01_rb,7.7476e-01_rb,9.4853e-01_rb, &\n     &1.0934e+00_rb,1.1527e+00_rb,1.5495e+00_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &5.3905e-02_rb,2.4740e-01_rb,4.9242e-01_rb,7.3367e-01_rb,9.6823e-01_rb,1.1892e+00_rb, &\n     &1.3767e+00_rb,1.4534e+00_rb,1.9364e+00_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &6.4069e-02_rb,2.9762e-01_rb,5.9267e-01_rb,8.8396e-01_rb,1.1680e+00_rb,1.4379e+00_rb, &\n     &1.6734e+00_rb,1.7853e+00_rb,2.3359e+00_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &7.4599e-02_rb,3.4908e-01_rb,6.9548e-01_rb,1.0378e+00_rb,1.3725e+00_rb,1.6921e+00_rb, &\n     &1.9734e+00_rb,2.1192e+00_rb,2.7449e+00_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &8.5274e-02_rb,4.0394e-01_rb,8.0404e-01_rb,1.1983e+00_rb,1.5830e+00_rb,1.9477e+00_rb, &\n     &2.2662e+00_rb,2.4521e+00_rb,3.1659e+00_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &6.1665e-02_rb,2.1077e-01_rb,3.8355e-01_rb,5.7339e-01_rb,7.6055e-01_rb,9.4236e-01_rb, &\n     &1.1091e+00_rb,1.2168e+00_rb,1.5210e+00_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &7.6234e-02_rb,2.5639e-01_rb,4.7826e-01_rb,7.1532e-01_rb,9.5007e-01_rb,1.1793e+00_rb, &\n     &1.3941e+00_rb,1.5452e+00_rb,1.9001e+00_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &9.1892e-02_rb,3.0376e-01_rb,5.7761e-01_rb,8.6445e-01_rb,1.1488e+00_rb,1.4281e+00_rb, &\n     &1.6923e+00_rb,1.8917e+00_rb,2.2975e+00_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &1.0837e-01_rb,3.5273e-01_rb,6.8106e-01_rb,1.0192e+00_rb,1.3548e+00_rb,1.6858e+00_rb, &\n     &2.0012e+00_rb,2.2488e+00_rb,2.7094e+00_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &1.2523e-01_rb,4.0526e-01_rb,7.9735e-01_rb,1.1921e+00_rb,1.5816e+00_rb,1.9625e+00_rb, &\n     &2.3213e+00_rb,2.6087e+00_rb,3.1625e+00_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &1.1120e-01_rb,2.4868e-01_rb,3.6808e-01_rb,5.1840e-01_rb,6.9017e-01_rb,8.6056e-01_rb, &\n     &1.0271e+00_rb,1.1758e+00_rb,1.3802e+00_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &1.4053e-01_rb,3.1536e-01_rb,4.5583e-01_rb,6.5442e-01_rb,8.7173e-01_rb,1.0879e+00_rb, &\n     &1.3003e+00_rb,1.4947e+00_rb,1.7433e+00_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &1.7249e-01_rb,3.8643e-01_rb,5.4830e-01_rb,7.9885e-01_rb,1.0645e+00_rb,1.3292e+00_rb, &\n     &1.5905e+00_rb,1.8338e+00_rb,2.1288e+00_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &2.0676e-01_rb,4.5780e-01_rb,6.4549e-01_rb,9.5437e-01_rb,1.2710e+00_rb,1.5864e+00_rb, &\n     &1.8970e+00_rb,2.1896e+00_rb,2.5411e+00_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &2.4212e-01_rb,5.2871e-01_rb,7.5484e-01_rb,1.1269e+00_rb,1.5000e+00_rb,1.8700e+00_rb, &\n     &2.2336e+00_rb,2.5647e+00_rb,2.9987e+00_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &2.0092e-01_rb,3.0566e-01_rb,4.3321e-01_rb,5.2770e-01_rb,6.0160e-01_rb,7.5023e-01_rb, &\n     &8.9870e-01_rb,1.0432e+00_rb,1.2013e+00_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &2.6071e-01_rb,3.8703e-01_rb,5.5757e-01_rb,6.5930e-01_rb,7.6619e-01_rb,9.5732e-01_rb, &\n     &1.1477e+00_rb,1.3364e+00_rb,1.5321e+00_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &3.2640e-01_rb,4.7994e-01_rb,6.8737e-01_rb,7.9575e-01_rb,9.4617e-01_rb,1.1821e+00_rb, &\n     &1.4178e+00_rb,1.6541e+00_rb,1.8914e+00_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &3.9855e-01_rb,5.8348e-01_rb,8.2078e-01_rb,9.3830e-01_rb,1.1490e+00_rb,1.4352e+00_rb, &\n     &1.7207e+00_rb,2.0041e+00_rb,2.2963e+00_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &4.7570e-01_rb,6.9415e-01_rb,9.5472e-01_rb,1.0922e+00_rb,1.3776e+00_rb,1.7196e+00_rb, &\n     &2.0594e+00_rb,2.3902e+00_rb,2.7528e+00_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &3.3247e-01_rb,3.9594e-01_rb,4.9056e-01_rb,5.8813e-01_rb,6.5607e-01_rb,6.8035e-01_rb, &\n     &7.9032e-01_rb,9.1840e-01_rb,1.0557e+00_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &4.4282e-01_rb,5.1203e-01_rb,6.4486e-01_rb,7.7152e-01_rb,8.4090e-01_rb,8.6628e-01_rb, &\n     &1.0179e+00_rb,1.1841e+00_rb,1.3589e+00_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &5.6912e-01_rb,6.3900e-01_rb,8.2247e-01_rb,9.6727e-01_rb,1.0369e+00_rb,1.0698e+00_rb, &\n     &1.2706e+00_rb,1.4785e+00_rb,1.6959e+00_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &7.0931e-01_rb,7.8069e-01_rb,1.0153e+00_rb,1.1726e+00_rb,1.2423e+00_rb,1.3043e+00_rb, &\n     &1.5604e+00_rb,1.8146e+00_rb,2.0829e+00_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &8.5949e-01_rb,9.3825e-01_rb,1.2105e+00_rb,1.3829e+00_rb,1.4592e+00_rb,1.5748e+00_rb, &\n     &1.8870e+00_rb,2.1938e+00_rb,2.5189e+00_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &5.2509e-01_rb,5.1721e-01_rb,5.7378e-01_rb,6.3384e-01_rb,6.9692e-01_rb,7.3419e-01_rb, &\n     &7.1864e-01_rb,7.9317e-01_rb,9.0866e-01_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &7.0957e-01_rb,6.9625e-01_rb,7.6638e-01_rb,8.5821e-01_rb,9.3314e-01_rb,9.6244e-01_rb, &\n     &9.2911e-01_rb,1.0410e+00_rb,1.1915e+00_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &9.2892e-01_rb,9.0647e-01_rb,9.9421e-01_rb,1.1180e+00_rb,1.1912e+00_rb,1.2074e+00_rb, &\n     &1.1606e+00_rb,1.3214e+00_rb,1.5144e+00_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &1.1749e+00_rb,1.1432e+00_rb,1.2560e+00_rb,1.3977e+00_rb,1.4686e+00_rb,1.4691e+00_rb, &\n     &1.4281e+00_rb,1.6462e+00_rb,1.8876e+00_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &1.4442e+00_rb,1.4016e+00_rb,1.5480e+00_rb,1.6922e+00_rb,1.7621e+00_rb,1.7564e+00_rb, &\n     &1.7321e+00_rb,2.0105e+00_rb,2.3048e+00_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &9.1849e-01_rb,8.0624e-01_rb,7.9050e-01_rb,7.5675e-01_rb,7.6178e-01_rb,7.8133e-01_rb, &\n     &7.7608e-01_rb,6.9116e-01_rb,7.7991e-01_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &1.2413e+00_rb,1.0918e+00_rb,1.0769e+00_rb,1.0420e+00_rb,1.0608e+00_rb,1.0726e+00_rb, &\n     &1.0404e+00_rb,9.1318e-01_rb,1.0358e+00_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &1.6444e+00_rb,1.4500e+00_rb,1.4209e+00_rb,1.3929e+00_rb,1.4200e+00_rb,1.3992e+00_rb, &\n     &1.3321e+00_rb,1.1740e+00_rb,1.3388e+00_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &2.1122e+00_rb,1.8669e+00_rb,1.8040e+00_rb,1.8049e+00_rb,1.8188e+00_rb,1.7570e+00_rb, &\n     &1.6501e+00_rb,1.4861e+00_rb,1.6989e+00_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &2.6250e+00_rb,2.3265e+00_rb,2.2289e+00_rb,2.2673e+00_rb,2.2456e+00_rb,2.1426e+00_rb, &\n     &2.0040e+00_rb,1.8373e+00_rb,2.0997e+00_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &1.9827e+00_rb,1.7349e+00_rb,1.4981e+00_rb,1.3371e+00_rb,1.1453e+00_rb,9.6602e-01_rb, &\n     &8.7309e-01_rb,7.7254e-01_rb,6.6571e-01_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &2.7151e+00_rb,2.3758e+00_rb,2.0507e+00_rb,1.8313e+00_rb,1.5691e+00_rb,1.3551e+00_rb, &\n     &1.2325e+00_rb,1.0537e+00_rb,8.9966e-01_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &3.5997e+00_rb,3.1499e+00_rb,2.7291e+00_rb,2.4373e+00_rb,2.1034e+00_rb,1.8593e+00_rb, &\n     &1.6579e+00_rb,1.3773e+00_rb,1.1789e+00_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &4.6665e+00_rb,4.0832e+00_rb,3.5519e+00_rb,3.1544e+00_rb,2.7468e+00_rb,2.4617e+00_rb, &\n     &2.1388e+00_rb,1.7464e+00_rb,1.5079e+00_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &5.8669e+00_rb,5.1335e+00_rb,4.4792e+00_rb,3.9559e+00_rb,3.4817e+00_rb,3.1241e+00_rb, &\n     &2.6649e+00_rb,2.1629e+00_rb,1.8732e+00_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &8.0387e+00_rb,7.0340e+00_rb,6.0293e+00_rb,5.0245e+00_rb,4.0196e+00_rb,3.0957e+00_rb, &\n     &2.1773e+00_rb,1.2357e+00_rb,4.2050e-01_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &1.1280e+01_rb,9.8705e+00_rb,8.4601e+00_rb,7.0501e+00_rb,5.6402e+00_rb,4.3334e+00_rb, &\n     &3.0492e+00_rb,1.7467e+00_rb,4.6837e-01_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &1.5202e+01_rb,1.3302e+01_rb,1.1401e+01_rb,9.5008e+00_rb,7.6009e+00_rb,5.8446e+00_rb, &\n     &4.1033e+00_rb,2.4072e+00_rb,9.0067e-01_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &1.9804e+01_rb,1.7328e+01_rb,1.4853e+01_rb,1.2377e+01_rb,9.9040e+00_rb,7.6319e+00_rb, &\n     &5.3589e+00_rb,3.2206e+00_rb,1.3277e+00_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &2.5091e+01_rb,2.1955e+01_rb,1.8819e+01_rb,1.5683e+01_rb,1.2554e+01_rb,9.6970e+00_rb, &\n     &6.8190e+00_rb,4.1412e+00_rb,1.6570e+00_rb/)\n      kao(:, 1,10,12) = (/ &\n     &3.6853e+01_rb,3.2247e+01_rb,2.7641e+01_rb,2.3035e+01_rb,1.8427e+01_rb,1.3820e+01_rb, &\n     &9.2142e+00_rb,4.7017e+00_rb,5.2096e-01_rb/)\n      kao(:, 2,10,12) = (/ &\n     &5.2866e+01_rb,4.6255e+01_rb,3.9648e+01_rb,3.3040e+01_rb,2.6431e+01_rb,1.9825e+01_rb, &\n     &1.3217e+01_rb,6.7223e+00_rb,8.5705e-01_rb/)\n      kao(:, 3,10,12) = (/ &\n     &7.2440e+01_rb,6.3382e+01_rb,5.4326e+01_rb,4.5272e+01_rb,3.6218e+01_rb,2.7164e+01_rb, &\n     &1.8108e+01_rb,9.2103e+00_rb,9.7984e-01_rb/)\n      kao(:, 4,10,12) = (/ &\n     &9.5327e+01_rb,8.3414e+01_rb,7.1501e+01_rb,5.9582e+01_rb,4.7667e+01_rb,3.5750e+01_rb, &\n     &2.3834e+01_rb,1.2146e+01_rb,1.1774e+00_rb/)\n      kao(:, 5,10,12) = (/ &\n     &1.2143e+02_rb,1.0625e+02_rb,9.1069e+01_rb,7.5889e+01_rb,6.0713e+01_rb,4.5537e+01_rb, &\n     &3.0358e+01_rb,1.5516e+01_rb,1.3416e+00_rb/)\n      kao(:, 1,11,12) = (/ &\n     &6.9348e+01_rb,6.0680e+01_rb,5.2012e+01_rb,4.3342e+01_rb,3.4673e+01_rb,2.6006e+01_rb, &\n     &1.7338e+01_rb,8.6702e+00_rb,3.0466e-01_rb/)\n      kao(:, 2,11,12) = (/ &\n     &9.9352e+01_rb,8.6930e+01_rb,7.4511e+01_rb,6.2093e+01_rb,4.9676e+01_rb,3.7257e+01_rb, &\n     &2.4839e+01_rb,1.2419e+01_rb,6.8510e-01_rb/)\n      kao(:, 3,11,12) = (/ &\n     &1.3563e+02_rb,1.1868e+02_rb,1.0173e+02_rb,8.4769e+01_rb,6.7818e+01_rb,5.0866e+01_rb, &\n     &3.3908e+01_rb,1.6957e+01_rb,1.0467e+00_rb/)\n      kao(:, 4,11,12) = (/ &\n     &1.7753e+02_rb,1.5535e+02_rb,1.3315e+02_rb,1.1096e+02_rb,8.8765e+01_rb,6.6576e+01_rb, &\n     &4.4384e+01_rb,2.2206e+01_rb,1.3289e+00_rb/)\n      kao(:, 5,11,12) = (/ &\n     &2.2508e+02_rb,1.9694e+02_rb,1.6881e+02_rb,1.4068e+02_rb,1.1255e+02_rb,8.4405e+01_rb, &\n     &5.6267e+01_rb,2.8168e+01_rb,1.6371e+00_rb/)\n      kao(:, 1,12,12) = (/ &\n     &9.5815e+01_rb,8.3836e+01_rb,7.1860e+01_rb,5.9885e+01_rb,4.7907e+01_rb,3.5931e+01_rb, &\n     &2.3953e+01_rb,1.1977e+01_rb,2.4035e-01_rb/)\n      kao(:, 2,12,12) = (/ &\n     &1.3694e+02_rb,1.1982e+02_rb,1.0270e+02_rb,8.5588e+01_rb,6.8468e+01_rb,5.1352e+01_rb, &\n     &3.4234e+01_rb,1.7118e+01_rb,5.7126e-01_rb/)\n      kao(:, 3,12,12) = (/ &\n     &1.8607e+02_rb,1.6282e+02_rb,1.3956e+02_rb,1.1630e+02_rb,9.3038e+01_rb,6.9781e+01_rb, &\n     &4.6518e+01_rb,2.3259e+01_rb,8.8813e-01_rb/)\n      kao(:, 4,12,12) = (/ &\n     &2.4268e+02_rb,2.1235e+02_rb,1.8201e+02_rb,1.5168e+02_rb,1.2134e+02_rb,9.1010e+01_rb, &\n     &6.0670e+01_rb,3.0335e+01_rb,1.1237e+00_rb/)\n      kao(:, 5,12,12) = (/ &\n     &3.0642e+02_rb,2.6813e+02_rb,2.2982e+02_rb,1.9152e+02_rb,1.5322e+02_rb,1.1491e+02_rb, &\n     &7.6606e+01_rb,3.8310e+01_rb,1.5308e+00_rb/)\n      kao(:, 1,13,12) = (/ &\n     &1.0396e+02_rb,9.0973e+01_rb,7.7973e+01_rb,6.4982e+01_rb,5.1984e+01_rb,3.8991e+01_rb, &\n     &2.5992e+01_rb,1.3003e+01_rb,2.8896e-01_rb/)\n      kao(:, 2,13,12) = (/ &\n     &1.4817e+02_rb,1.2965e+02_rb,1.1113e+02_rb,9.2604e+01_rb,7.4089e+01_rb,5.5562e+01_rb, &\n     &3.7043e+01_rb,1.8523e+01_rb,6.4071e-01_rb/)\n      kao(:, 3,13,12) = (/ &\n     &2.0056e+02_rb,1.7549e+02_rb,1.5042e+02_rb,1.2535e+02_rb,1.0028e+02_rb,7.5210e+01_rb, &\n     &5.0138e+01_rb,2.5080e+01_rb,7.6073e-01_rb/)\n      kao(:, 4,13,12) = (/ &\n     &2.6107e+02_rb,2.2842e+02_rb,1.9581e+02_rb,1.6317e+02_rb,1.3054e+02_rb,9.7901e+01_rb, &\n     &6.5267e+01_rb,3.2665e+01_rb,1.0550e+00_rb/)\n      kao(:, 5,13,12) = (/ &\n     &3.2818e+02_rb,2.8717e+02_rb,2.4613e+02_rb,2.0512e+02_rb,1.6409e+02_rb,1.2307e+02_rb, &\n     &8.2040e+01_rb,4.1093e+01_rb,1.4069e+00_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &8.9189e-02_rb,2.7547e-01_rb,5.4755e-01_rb,8.1466e-01_rb,1.0734e+00_rb,1.3167e+00_rb, &\n     &1.5262e+00_rb,1.6545e+00_rb,2.1467e+00_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &1.0564e-01_rb,3.3448e-01_rb,6.6333e-01_rb,9.8354e-01_rb,1.2897e+00_rb,1.5719e+00_rb, &\n     &1.8097e+00_rb,1.9474e+00_rb,2.5794e+00_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &1.2232e-01_rb,4.0251e-01_rb,7.9745e-01_rb,1.1809e+00_rb,1.5463e+00_rb,1.8798e+00_rb, &\n     &2.1512e+00_rb,2.2853e+00_rb,3.0925e+00_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &1.3906e-01_rb,4.8151e-01_rb,9.5370e-01_rb,1.4117e+00_rb,1.8477e+00_rb,2.2440e+00_rb, &\n     &2.5627e+00_rb,2.7054e+00_rb,3.6953e+00_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &1.5537e-01_rb,5.6891e-01_rb,1.1282e+00_rb,1.6723e+00_rb,2.1918e+00_rb,2.6654e+00_rb, &\n     &3.0480e+00_rb,3.1989e+00_rb,4.3834e+00_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &1.2651e-01_rb,2.7511e-01_rb,5.4811e-01_rb,8.1792e-01_rb,1.0822e+00_rb,1.3369e+00_rb, &\n     &1.5702e+00_rb,1.7388e+00_rb,2.1643e+00_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &1.5153e-01_rb,3.4384e-01_rb,6.8417e-01_rb,1.0197e+00_rb,1.3466e+00_rb,1.6574e+00_rb, &\n     &1.9318e+00_rb,2.0933e+00_rb,2.6930e+00_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &1.7716e-01_rb,4.2323e-01_rb,8.4160e-01_rb,1.2530e+00_rb,1.6525e+00_rb,2.0285e+00_rb, &\n     &2.3523e+00_rb,2.5052e+00_rb,3.3049e+00_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &2.0304e-01_rb,5.0914e-01_rb,1.0128e+00_rb,1.5083e+00_rb,1.9894e+00_rb,2.4425e+00_rb, &\n     &2.8273e+00_rb,2.9947e+00_rb,3.9785e+00_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &2.2856e-01_rb,5.9708e-01_rb,1.1882e+00_rb,1.7705e+00_rb,2.3375e+00_rb,2.8753e+00_rb, &\n     &3.3417e+00_rb,3.5598e+00_rb,4.6746e+00_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &2.3155e-01_rb,3.6106e-01_rb,5.1524e-01_rb,7.7074e-01_rb,1.0237e+00_rb,1.2717e+00_rb, &\n     &1.5079e+00_rb,1.7067e+00_rb,2.0474e+00_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &2.8222e-01_rb,4.3122e-01_rb,6.6114e-01_rb,9.8854e-01_rb,1.3120e+00_rb,1.6278e+00_rb, &\n     &1.9248e+00_rb,2.1616e+00_rb,2.6238e+00_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &3.3490e-01_rb,5.0925e-01_rb,8.3049e-01_rb,1.2417e+00_rb,1.6476e+00_rb,2.0430e+00_rb, &\n     &2.4133e+00_rb,2.6954e+00_rb,3.2949e+00_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &3.8898e-01_rb,5.9951e-01_rb,1.0132e+00_rb,1.5151e+00_rb,2.0114e+00_rb,2.4964e+00_rb, &\n     &2.9531e+00_rb,3.3043e+00_rb,4.0224e+00_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &4.4295e-01_rb,6.9228e-01_rb,1.1941e+00_rb,1.7863e+00_rb,2.3719e+00_rb,2.9449e+00_rb, &\n     &3.4879e+00_rb,3.9170e+00_rb,4.7434e+00_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &4.2438e-01_rb,5.0777e-01_rb,6.1519e-01_rb,7.0596e-01_rb,9.3438e-01_rb,1.1645e+00_rb, &\n     &1.3892e+00_rb,1.5946e+00_rb,1.8686e+00_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &5.2911e-01_rb,6.2653e-01_rb,7.5903e-01_rb,9.2591e-01_rb,1.2320e+00_rb,1.5352e+00_rb, &\n     &1.8307e+00_rb,2.0955e+00_rb,2.4637e+00_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &6.3945e-01_rb,7.5086e-01_rb,9.2902e-01_rb,1.1816e+00_rb,1.5728e+00_rb,1.9600e+00_rb, &\n     &2.3380e+00_rb,2.6793e+00_rb,3.1453e+00_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &7.5432e-01_rb,8.7946e-01_rb,1.1073e+00_rb,1.4569e+00_rb,1.9394e+00_rb,2.4183e+00_rb, &\n     &2.8875e+00_rb,3.3173e+00_rb,3.8782e+00_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &8.7134e-01_rb,1.0123e+00_rb,1.2829e+00_rb,1.7403e+00_rb,2.3172e+00_rb,2.8902e+00_rb, &\n     &3.4528e+00_rb,3.9744e+00_rb,4.6335e+00_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &7.1207e-01_rb,6.8711e-01_rb,8.3241e-01_rb,8.6529e-01_rb,8.8550e-01_rb,1.0406e+00_rb, &\n     &1.2451e+00_rb,1.4407e+00_rb,1.6670e+00_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &9.0944e-01_rb,8.8418e-01_rb,1.0384e+00_rb,1.0957e+00_rb,1.1610e+00_rb,1.4029e+00_rb, &\n     &1.6788e+00_rb,1.9429e+00_rb,2.2472e+00_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &1.1217e+00_rb,1.1051e+00_rb,1.2550e+00_rb,1.3677e+00_rb,1.4770e+00_rb,1.8154e+00_rb, &\n     &2.1738e+00_rb,2.5182e+00_rb,2.9077e+00_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &1.3460e+00_rb,1.3429e+00_rb,1.4887e+00_rb,1.6567e+00_rb,1.8206e+00_rb,2.2609e+00_rb, &\n     &2.7082e+00_rb,3.1425e+00_rb,3.6199e+00_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &1.5795e+00_rb,1.5881e+00_rb,1.7517e+00_rb,1.9324e+00_rb,2.1859e+00_rb,2.7284e+00_rb, &\n     &3.2694e+00_rb,3.7971e+00_rb,4.3676e+00_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &1.1023e+00_rb,9.7526e-01_rb,1.0617e+00_rb,1.1008e+00_rb,1.0651e+00_rb,1.0178e+00_rb, &\n     &1.0836e+00_rb,1.2590e+00_rb,1.4474e+00_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &1.4464e+00_rb,1.2819e+00_rb,1.3748e+00_rb,1.4078e+00_rb,1.3857e+00_rb,1.3476e+00_rb, &\n     &1.4882e+00_rb,1.7304e+00_rb,1.9875e+00_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &1.8308e+00_rb,1.6242e+00_rb,1.7155e+00_rb,1.7456e+00_rb,1.7675e+00_rb,1.7237e+00_rb, &\n     &1.9554e+00_rb,2.2760e+00_rb,2.6094e+00_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &2.2453e+00_rb,1.9975e+00_rb,2.0781e+00_rb,2.1295e+00_rb,2.1828e+00_rb,2.1327e+00_rb, &\n     &2.4652e+00_rb,2.8713e+00_rb,3.2893e+00_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &2.6836e+00_rb,2.3986e+00_rb,2.4577e+00_rb,2.5567e+00_rb,2.5877e+00_rb,2.5663e+00_rb, &\n     &3.0104e+00_rb,3.5064e+00_rb,4.0161e+00_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &1.7788e+00_rb,1.5565e+00_rb,1.4296e+00_rb,1.4541e+00_rb,1.3809e+00_rb,1.2482e+00_rb, &\n     &1.1009e+00_rb,1.0852e+00_rb,1.2442e+00_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &2.4100e+00_rb,2.1089e+00_rb,1.9246e+00_rb,1.9363e+00_rb,1.8185e+00_rb,1.6636e+00_rb, &\n     &1.4819e+00_rb,1.5124e+00_rb,1.7324e+00_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &3.1319e+00_rb,2.7405e+00_rb,2.5003e+00_rb,2.4636e+00_rb,2.3111e+00_rb,2.1652e+00_rb, &\n     &1.9114e+00_rb,2.0080e+00_rb,2.2982e+00_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &3.9360e+00_rb,3.4440e+00_rb,3.1598e+00_rb,3.0372e+00_rb,2.8747e+00_rb,2.7334e+00_rb, &\n     &2.3814e+00_rb,2.5579e+00_rb,2.9254e+00_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &4.8010e+00_rb,4.2009e+00_rb,3.8764e+00_rb,3.6526e+00_rb,3.5065e+00_rb,3.3078e+00_rb, &\n     &2.8824e+00_rb,3.1625e+00_rb,3.6156e+00_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &3.4656e+00_rb,3.0324e+00_rb,2.5993e+00_rb,2.2536e+00_rb,2.0768e+00_rb,1.8323e+00_rb, &\n     &1.4794e+00_rb,1.1100e+00_rb,1.0719e+00_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &4.7953e+00_rb,4.1960e+00_rb,3.5964e+00_rb,3.1195e+00_rb,2.8558e+00_rb,2.4960e+00_rb, &\n     &2.0234e+00_rb,1.5264e+00_rb,1.5151e+00_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &6.4119e+00_rb,5.6106e+00_rb,4.8091e+00_rb,4.1637e+00_rb,3.7658e+00_rb,3.2529e+00_rb, &\n     &2.6777e+00_rb,1.9921e+00_rb,2.0306e+00_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &8.2532e+00_rb,7.2211e+00_rb,6.1898e+00_rb,5.3688e+00_rb,4.7948e+00_rb,4.1025e+00_rb, &\n     &3.4458e+00_rb,2.5062e+00_rb,2.6143e+00_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &1.0283e+01_rb,8.9971e+00_rb,7.7118e+00_rb,6.7087e+00_rb,5.9163e+00_rb,5.0630e+00_rb, &\n     &4.2877e+00_rb,3.0597e+00_rb,3.2702e+00_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &1.3039e+01_rb,1.1409e+01_rb,9.7786e+00_rb,8.1486e+00_rb,6.5192e+00_rb,4.9000e+00_rb, &\n     &3.5526e+00_rb,2.2083e+00_rb,6.1249e-01_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &1.8190e+01_rb,1.5916e+01_rb,1.3643e+01_rb,1.1369e+01_rb,9.0953e+00_rb,6.8331e+00_rb, &\n     &4.9544e+00_rb,3.0917e+00_rb,1.3174e+00_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &2.4717e+01_rb,2.1628e+01_rb,1.8538e+01_rb,1.5449e+01_rb,1.2359e+01_rb,9.2996e+00_rb, &\n     &6.7414e+00_rb,4.1578e+00_rb,1.7841e+00_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &3.2573e+01_rb,2.8503e+01_rb,2.4432e+01_rb,2.0359e+01_rb,1.6288e+01_rb,1.2267e+01_rb, &\n     &8.8606e+00_rb,5.4011e+00_rb,2.3241e+00_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &4.1562e+01_rb,3.6368e+01_rb,3.1173e+01_rb,2.5977e+01_rb,2.0781e+01_rb,1.5678e+01_rb, &\n     &1.1261e+01_rb,6.8301e+00_rb,2.9541e+00_rb/)\n      kao(:, 1,10,13) = (/ &\n     &5.7951e+01_rb,5.0708e+01_rb,4.3464e+01_rb,3.6220e+01_rb,2.8976e+01_rb,2.1732e+01_rb, &\n     &1.4488e+01_rb,7.2520e+00_rb,5.6538e-01_rb/)\n      kao(:, 2,10,13) = (/ &\n     &8.1306e+01_rb,7.1141e+01_rb,6.0979e+01_rb,5.0813e+01_rb,4.0652e+01_rb,3.0489e+01_rb, &\n     &2.0326e+01_rb,1.0163e+01_rb,6.5761e-01_rb/)\n      kao(:, 3,10,13) = (/ &\n     &1.1158e+02_rb,9.7625e+01_rb,8.3679e+01_rb,6.9730e+01_rb,5.5786e+01_rb,4.1839e+01_rb, &\n     &2.7893e+01_rb,1.3953e+01_rb,1.0530e+00_rb/)\n      kao(:, 4,10,13) = (/ &\n     &1.4877e+02_rb,1.3018e+02_rb,1.1158e+02_rb,9.2984e+01_rb,7.4388e+01_rb,5.5791e+01_rb, &\n     &3.7194e+01_rb,1.8619e+01_rb,1.0469e+00_rb/)\n      kao(:, 5,10,13) = (/ &\n     &1.9259e+02_rb,1.6851e+02_rb,1.4444e+02_rb,1.2037e+02_rb,9.6298e+01_rb,7.2222e+01_rb, &\n     &4.8145e+01_rb,2.4115e+01_rb,9.0336e-01_rb/)\n      kao(:, 1,11,13) = (/ &\n     &1.0724e+02_rb,9.3834e+01_rb,8.0425e+01_rb,6.7028e+01_rb,5.3621e+01_rb,4.0215e+01_rb, &\n     &2.6808e+01_rb,1.3405e+01_rb,7.5947e-01_rb/)\n      kao(:, 2,11,13) = (/ &\n     &1.5135e+02_rb,1.3244e+02_rb,1.1352e+02_rb,9.4596e+01_rb,7.5677e+01_rb,5.6758e+01_rb, &\n     &3.7839e+01_rb,1.8919e+01_rb,7.7568e-01_rb/)\n      kao(:, 3,11,13) = (/ &\n     &2.0634e+02_rb,1.8056e+02_rb,1.5476e+02_rb,1.2896e+02_rb,1.0317e+02_rb,7.7384e+01_rb, &\n     &5.1587e+01_rb,2.5792e+01_rb,1.1446e+00_rb/)\n      kao(:, 4,11,13) = (/ &\n     &2.7388e+02_rb,2.3963e+02_rb,2.0540e+02_rb,1.7116e+02_rb,1.3692e+02_rb,1.0270e+02_rb, &\n     &6.8464e+01_rb,3.4233e+01_rb,1.4967e+00_rb/)\n      kao(:, 5,11,13) = (/ &\n     &3.5254e+02_rb,3.0844e+02_rb,2.6442e+02_rb,2.2035e+02_rb,1.7628e+02_rb,1.3220e+02_rb, &\n     &8.8134e+01_rb,4.4067e+01_rb,1.3951e+00_rb/)\n      kao(:, 1,12,13) = (/ &\n     &1.4929e+02_rb,1.3063e+02_rb,1.1197e+02_rb,9.3306e+01_rb,7.4648e+01_rb,5.5984e+01_rb, &\n     &3.7322e+01_rb,1.8661e+01_rb,7.7179e-01_rb/)\n      kao(:, 2,12,13) = (/ &\n     &2.1213e+02_rb,1.8562e+02_rb,1.5909e+02_rb,1.3258e+02_rb,1.0606e+02_rb,7.9546e+01_rb, &\n     &5.3033e+01_rb,2.6517e+01_rb,8.3102e-01_rb/)\n      kao(:, 3,12,13) = (/ &\n     &2.8848e+02_rb,2.5242e+02_rb,2.1635e+02_rb,1.8030e+02_rb,1.4425e+02_rb,1.0818e+02_rb, &\n     &7.2116e+01_rb,3.6059e+01_rb,1.2769e+00_rb/)\n      kao(:, 4,12,13) = (/ &\n     &3.7976e+02_rb,3.3226e+02_rb,2.8481e+02_rb,2.3733e+02_rb,1.8986e+02_rb,1.4240e+02_rb, &\n     &9.4932e+01_rb,4.7464e+01_rb,1.6812e+00_rb/)\n      kao(:, 5,12,13) = (/ &\n     &4.8508e+02_rb,4.2444e+02_rb,3.6380e+02_rb,3.0318e+02_rb,2.4253e+02_rb,1.8190e+02_rb, &\n     &1.2127e+02_rb,6.0633e+01_rb,1.6837e+00_rb/)\n      kao(:, 1,13,13) = (/ &\n     &1.6844e+02_rb,1.4739e+02_rb,1.2633e+02_rb,1.0528e+02_rb,8.4219e+01_rb,6.3167e+01_rb, &\n     &4.2110e+01_rb,2.1055e+01_rb,6.4746e-01_rb/)\n      kao(:, 2,13,13) = (/ &\n     &2.3974e+02_rb,2.0978e+02_rb,1.7981e+02_rb,1.4983e+02_rb,1.1987e+02_rb,8.9901e+01_rb, &\n     &5.9937e+01_rb,2.9967e+01_rb,7.7977e-01_rb/)\n      kao(:, 3,13,13) = (/ &\n     &3.2617e+02_rb,2.8540e+02_rb,2.4462e+02_rb,2.0386e+02_rb,1.6309e+02_rb,1.2231e+02_rb, &\n     &8.1544e+01_rb,4.0770e+01_rb,1.5118e+00_rb/)\n      kao(:, 4,13,13) = (/ &\n     &4.2665e+02_rb,3.7332e+02_rb,3.1999e+02_rb,2.6667e+02_rb,2.1333e+02_rb,1.5999e+02_rb, &\n     &1.0667e+02_rb,5.3332e+01_rb,1.6652e+00_rb/)\n      kao(:, 5,13,13) = (/ &\n     &5.4098e+02_rb,4.7336e+02_rb,4.0573e+02_rb,3.3811e+02_rb,2.7048e+02_rb,2.0286e+02_rb, &\n     &1.3525e+02_rb,6.7619e+01_rb,1.7274e+00_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &1.4473e-01_rb,4.5196e-01_rb,8.9698e-01_rb,1.3316e+00_rb,1.7483e+00_rb,2.1329e+00_rb, &\n     &2.4492e+00_rb,2.5366e+00_rb,3.4967e+00_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &1.6846e-01_rb,5.5554e-01_rb,1.1039e+00_rb,1.6417e+00_rb,2.1611e+00_rb,2.6456e+00_rb, &\n     &3.0463e+00_rb,3.1695e+00_rb,4.3222e+00_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &1.9174e-01_rb,6.6749e-01_rb,1.3276e+00_rb,1.9756e+00_rb,2.6027e+00_rb,3.1886e+00_rb, &\n     &3.6789e+00_rb,3.8433e+00_rb,5.2055e+00_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &2.1490e-01_rb,7.8476e-01_rb,1.5609e+00_rb,2.3233e+00_rb,3.0639e+00_rb,3.7563e+00_rb, &\n     &4.3396e+00_rb,4.5493e+00_rb,6.1279e+00_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &2.3691e-01_rb,9.0765e-01_rb,1.8042e+00_rb,2.6834e+00_rb,3.5348e+00_rb,4.3362e+00_rb, &\n     &5.0160e+00_rb,5.2774e+00_rb,7.0696e+00_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &2.1296e-01_rb,4.6215e-01_rb,9.1984e-01_rb,1.3706e+00_rb,1.8091e+00_rb,2.2245e+00_rb, &\n     &2.5860e+00_rb,2.7730e+00_rb,3.6182e+00_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &2.5016e-01_rb,5.6432e-01_rb,1.1237e+00_rb,1.6756e+00_rb,2.2151e+00_rb,2.7294e+00_rb, &\n     &3.1864e+00_rb,3.4606e+00_rb,4.4301e+00_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &2.8692e-01_rb,6.7375e-01_rb,1.3425e+00_rb,2.0033e+00_rb,2.6512e+00_rb,3.2743e+00_rb, &\n     &3.8384e+00_rb,4.2145e+00_rb,5.3023e+00_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &3.2327e-01_rb,7.9645e-01_rb,1.5866e+00_rb,2.3669e+00_rb,3.1323e+00_rb,3.8679e+00_rb, &\n     &4.5425e+00_rb,5.0100e+00_rb,6.2645e+00_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &3.5851e-01_rb,9.3518e-01_rb,1.8621e+00_rb,2.7777e+00_rb,3.6730e+00_rb,4.5297e+00_rb, &\n     &5.3029e+00_rb,5.8281e+00_rb,7.3458e+00_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &4.0569e-01_rb,4.7346e-01_rb,9.0139e-01_rb,1.3483e+00_rb,1.7892e+00_rb,2.2204e+00_rb, &\n     &2.6252e+00_rb,2.9358e+00_rb,3.5784e+00_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &4.8357e-01_rb,5.7585e-01_rb,1.1016e+00_rb,1.6482e+00_rb,2.1888e+00_rb,2.7185e+00_rb, &\n     &3.2205e+00_rb,3.6184e+00_rb,4.3777e+00_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &5.6184e-01_rb,6.8539e-01_rb,1.3182e+00_rb,1.9726e+00_rb,2.6206e+00_rb,3.2555e+00_rb, &\n     &3.8616e+00_rb,4.3597e+00_rb,5.2411e+00_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &6.3937e-01_rb,8.0074e-01_rb,1.5659e+00_rb,2.3420e+00_rb,3.1101e+00_rb,3.8617e+00_rb, &\n     &4.5735e+00_rb,5.1595e+00_rb,6.2201e+00_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &7.1542e-01_rb,9.3290e-01_rb,1.8594e+00_rb,2.7803e+00_rb,3.6907e+00_rb,4.5815e+00_rb, &\n     &5.4228e+00_rb,6.0997e+00_rb,7.3811e+00_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &7.7613e-01_rb,7.2482e-01_rb,8.8213e-01_rb,1.2906e+00_rb,1.7174e+00_rb,2.1406e+00_rb, &\n     &2.5536e+00_rb,2.9272e+00_rb,3.4348e+00_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &9.4054e-01_rb,9.0136e-01_rb,1.0781e+00_rb,1.5850e+00_rb,2.1098e+00_rb,2.6295e+00_rb, &\n     &3.1372e+00_rb,3.6020e+00_rb,4.2194e+00_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &1.1095e+00_rb,1.0843e+00_rb,1.2887e+00_rb,1.9170e+00_rb,2.5512e+00_rb,3.1791e+00_rb, &\n     &3.7919e+00_rb,4.3511e+00_rb,5.1021e+00_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &1.2791e+00_rb,1.2603e+00_rb,1.5382e+00_rb,2.3038e+00_rb,3.0649e+00_rb,3.8173e+00_rb, &\n     &4.5513e+00_rb,5.2083e+00_rb,6.1294e+00_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &1.4465e+00_rb,1.4292e+00_rb,1.8362e+00_rb,2.7499e+00_rb,3.6579e+00_rb,4.5561e+00_rb, &\n     &5.4280e+00_rb,6.2050e+00_rb,7.3150e+00_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &1.3553e+00_rb,1.1859e+00_rb,1.1889e+00_rb,1.2820e+00_rb,1.6126e+00_rb,2.0133e+00_rb, &\n     &2.4100e+00_rb,2.7917e+00_rb,3.2251e+00_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &1.6746e+00_rb,1.4653e+00_rb,1.4722e+00_rb,1.5790e+00_rb,2.0132e+00_rb,2.5133e+00_rb, &\n     &3.0071e+00_rb,3.4795e+00_rb,4.0262e+00_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &2.0071e+00_rb,1.7563e+00_rb,1.7644e+00_rb,1.8926e+00_rb,2.4705e+00_rb,3.0826e+00_rb, &\n     &3.6880e+00_rb,4.2630e+00_rb,4.9404e+00_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &2.3461e+00_rb,2.0539e+00_rb,2.0623e+00_rb,2.2628e+00_rb,3.0107e+00_rb,3.7562e+00_rb, &\n     &4.4918e+00_rb,5.1850e+00_rb,6.0203e+00_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &2.6832e+00_rb,2.3569e+00_rb,2.3578e+00_rb,2.7266e+00_rb,3.6306e+00_rb,4.5292e+00_rb, &\n     &5.4146e+00_rb,6.2480e+00_rb,7.2595e+00_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &2.1798e+00_rb,1.9076e+00_rb,1.6634e+00_rb,1.6610e+00_rb,1.6126e+00_rb,1.8086e+00_rb, &\n     &2.1681e+00_rb,2.5212e+00_rb,2.8955e+00_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &2.7568e+00_rb,2.4124e+00_rb,2.1319e+00_rb,2.0890e+00_rb,2.0379e+00_rb,2.3402e+00_rb, &\n     &2.8045e+00_rb,3.2592e+00_rb,3.7464e+00_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &3.3653e+00_rb,2.9447e+00_rb,2.6494e+00_rb,2.5260e+00_rb,2.4774e+00_rb,2.9464e+00_rb, &\n     &3.5300e+00_rb,4.0980e+00_rb,4.7178e+00_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &3.9980e+00_rb,3.4981e+00_rb,3.2081e+00_rb,2.9759e+00_rb,2.9694e+00_rb,3.6441e+00_rb, &\n     &4.3643e+00_rb,5.0633e+00_rb,5.8364e+00_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &4.6371e+00_rb,4.0569e+00_rb,3.7676e+00_rb,3.4231e+00_rb,3.5724e+00_rb,4.4465e+00_rb, &\n     &5.3245e+00_rb,6.1747e+00_rb,7.1186e+00_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &3.6500e+00_rb,3.1940e+00_rb,2.7377e+00_rb,2.3521e+00_rb,2.2005e+00_rb,1.9226e+00_rb, &\n     &1.8951e+00_rb,2.2032e+00_rb,2.5224e+00_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &4.7380e+00_rb,4.1460e+00_rb,3.5535e+00_rb,3.0746e+00_rb,2.8560e+00_rb,2.4862e+00_rb, &\n     &2.5325e+00_rb,2.9498e+00_rb,3.3790e+00_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &5.9099e+00_rb,5.1713e+00_rb,4.4326e+00_rb,3.9038e+00_rb,3.5341e+00_rb,3.0823e+00_rb, &\n     &3.2930e+00_rb,3.8333e+00_rb,4.3949e+00_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &7.1406e+00_rb,6.2480e+00_rb,5.3561e+00_rb,4.7936e+00_rb,4.2290e+00_rb,3.7296e+00_rb, &\n     &4.1867e+00_rb,4.8720e+00_rb,5.5890e+00_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &8.4067e+00_rb,7.3559e+00_rb,6.3050e+00_rb,5.6953e+00_rb,4.9319e+00_rb,4.4981e+00_rb, &\n     &5.2053e+00_rb,6.0551e+00_rb,6.9478e+00_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &7.2793e+00_rb,6.3695e+00_rb,5.4593e+00_rb,4.5496e+00_rb,3.6668e+00_rb,3.0739e+00_rb, &\n     &2.3812e+00_rb,1.8850e+00_rb,2.1414e+00_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &9.7148e+00_rb,8.5004e+00_rb,7.2858e+00_rb,6.0719e+00_rb,4.9067e+00_rb,4.1050e+00_rb, &\n     &3.1504e+00_rb,2.5960e+00_rb,2.9698e+00_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &1.2408e+01_rb,1.0858e+01_rb,9.3058e+00_rb,7.7549e+00_rb,6.3008e+00_rb,5.2586e+00_rb, &\n     &3.9820e+00_rb,3.4865e+00_rb,3.9886e+00_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &1.5301e+01_rb,1.3388e+01_rb,1.1476e+01_rb,9.5632e+00_rb,7.8364e+00_rb,6.4696e+00_rb, &\n     &4.8601e+00_rb,4.5513e+00_rb,5.2081e+00_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &1.8319e+01_rb,1.6029e+01_rb,1.3740e+01_rb,1.1449e+01_rb,9.4798e+00_rb,7.7150e+00_rb, &\n     &5.8215e+00_rb,5.7877e+00_rb,6.6226e+00_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &2.7093e+01_rb,2.3706e+01_rb,2.0321e+01_rb,1.6934e+01_rb,1.3547e+01_rb,1.0161e+01_rb, &\n     &6.7735e+00_rb,3.8947e+00_rb,1.7904e+00_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &3.7356e+01_rb,3.2687e+01_rb,2.8017e+01_rb,2.3347e+01_rb,1.8679e+01_rb,1.4008e+01_rb, &\n     &9.3393e+00_rb,5.3672e+00_rb,2.5563e+00_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &4.9010e+01_rb,4.2883e+01_rb,3.6757e+01_rb,3.0630e+01_rb,2.4505e+01_rb,1.8379e+01_rb, &\n     &1.2257e+01_rb,7.0400e+00_rb,3.5347e+00_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &6.1735e+01_rb,5.4018e+01_rb,4.6300e+01_rb,3.8583e+01_rb,3.0868e+01_rb,2.3150e+01_rb, &\n     &1.5458e+01_rb,8.8071e+00_rb,4.7393e+00_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &7.5284e+01_rb,6.5873e+01_rb,5.6463e+01_rb,4.7052e+01_rb,3.7640e+01_rb,2.8233e+01_rb, &\n     &1.8889e+01_rb,1.0654e+01_rb,6.1635e+00_rb/)\n      kao(:, 1,10,14) = (/ &\n     &1.1501e+02_rb,1.0064e+02_rb,8.6262e+01_rb,7.1883e+01_rb,5.7506e+01_rb,4.3130e+01_rb, &\n     &2.8755e+01_rb,1.4378e+01_rb,5.7116e-01_rb/)\n      kao(:, 2,10,14) = (/ &\n     &1.6323e+02_rb,1.4283e+02_rb,1.2242e+02_rb,1.0202e+02_rb,8.1614e+01_rb,6.1213e+01_rb, &\n     &4.0807e+01_rb,2.0405e+01_rb,4.6944e-01_rb/)\n      kao(:, 3,10,14) = (/ &\n     &2.1950e+02_rb,1.9206e+02_rb,1.6462e+02_rb,1.3718e+02_rb,1.0975e+02_rb,8.2311e+01_rb, &\n     &5.4875e+01_rb,2.7438e+01_rb,1.0245e+00_rb/)\n      kao(:, 4,10,14) = (/ &\n     &2.8264e+02_rb,2.4730e+02_rb,2.1197e+02_rb,1.7666e+02_rb,1.4132e+02_rb,1.0599e+02_rb, &\n     &7.0664e+01_rb,3.5330e+01_rb,2.8560e+00_rb/)\n      kao(:, 5,10,14) = (/ &\n     &3.5102e+02_rb,3.0716e+02_rb,2.6326e+02_rb,2.1939e+02_rb,1.7551e+02_rb,1.3164e+02_rb, &\n     &8.7759e+01_rb,4.3879e+01_rb,5.5928e+00_rb/)\n      kao(:, 1,11,14) = (/ &\n     &2.0513e+02_rb,1.7948e+02_rb,1.5384e+02_rb,1.2821e+02_rb,1.0256e+02_rb,7.6924e+01_rb, &\n     &5.1281e+01_rb,2.5640e+01_rb,9.4489e-01_rb/)\n      kao(:, 2,11,14) = (/ &\n     &2.8915e+02_rb,2.5300e+02_rb,2.1687e+02_rb,1.8072e+02_rb,1.4458e+02_rb,1.0844e+02_rb, &\n     &7.2287e+01_rb,3.6146e+01_rb,1.0101e+00_rb/)\n      kao(:, 3,11,14) = (/ &\n     &3.8981e+02_rb,3.4108e+02_rb,2.9236e+02_rb,2.4364e+02_rb,1.9490e+02_rb,1.4617e+02_rb, &\n     &9.7460e+01_rb,4.8730e+01_rb,5.8913e-01_rb/)\n      kao(:, 4,11,14) = (/ &\n     &5.0429e+02_rb,4.4124e+02_rb,3.7819e+02_rb,3.1515e+02_rb,2.5212e+02_rb,1.8910e+02_rb, &\n     &1.2606e+02_rb,6.3034e+01_rb,1.0227e+00_rb/)\n      kao(:, 5,11,14) = (/ &\n     &6.2985e+02_rb,5.5113e+02_rb,4.7241e+02_rb,3.9368e+02_rb,3.1495e+02_rb,2.3621e+02_rb, &\n     &1.5747e+02_rb,7.8734e+01_rb,3.1704e+00_rb/)\n      kao(:, 1,12,14) = (/ &\n     &2.7480e+02_rb,2.4043e+02_rb,2.0609e+02_rb,1.7173e+02_rb,1.3740e+02_rb,1.0305e+02_rb, &\n     &6.8696e+01_rb,3.4350e+01_rb,1.0331e+00_rb/)\n      kao(:, 2,12,14) = (/ &\n     &3.8434e+02_rb,3.3629e+02_rb,2.8824e+02_rb,2.4020e+02_rb,1.9217e+02_rb,1.4412e+02_rb, &\n     &9.6082e+01_rb,4.8041e+01_rb,1.0697e+00_rb/)\n      kao(:, 3,12,14) = (/ &\n     &5.1835e+02_rb,4.5357e+02_rb,3.8876e+02_rb,3.2398e+02_rb,2.5917e+02_rb,1.9438e+02_rb, &\n     &1.2959e+02_rb,6.4795e+01_rb,6.6152e-01_rb/)\n      kao(:, 4,12,14) = (/ &\n     &6.7292e+02_rb,5.8878e+02_rb,5.0467e+02_rb,4.2055e+02_rb,3.3645e+02_rb,2.5234e+02_rb, &\n     &1.6823e+02_rb,8.4112e+01_rb,1.1390e+00_rb/)\n      kao(:, 5,12,14) = (/ &\n     &8.4273e+02_rb,7.3739e+02_rb,6.3205e+02_rb,5.2668e+02_rb,4.2135e+02_rb,3.1602e+02_rb, &\n     &2.1069e+02_rb,1.0534e+02_rb,2.2409e+00_rb/)\n      kao(:, 1,13,14) = (/ &\n     &2.9725e+02_rb,2.6009e+02_rb,2.2295e+02_rb,1.8578e+02_rb,1.4862e+02_rb,1.1147e+02_rb, &\n     &7.4314e+01_rb,3.7158e+01_rb,8.5883e-01_rb/)\n      kao(:, 2,13,14) = (/ &\n     &4.1294e+02_rb,3.6134e+02_rb,3.0971e+02_rb,2.5809e+02_rb,2.0649e+02_rb,1.5487e+02_rb, &\n     &1.0324e+02_rb,5.1621e+01_rb,7.4403e-01_rb/)\n      kao(:, 3,13,14) = (/ &\n     &5.5484e+02_rb,4.8548e+02_rb,4.1611e+02_rb,3.4677e+02_rb,2.7741e+02_rb,2.0806e+02_rb, &\n     &1.3871e+02_rb,6.9351e+01_rb,6.5779e-01_rb/)\n      kao(:, 4,13,14) = (/ &\n     &7.2016e+02_rb,6.3017e+02_rb,5.4015e+02_rb,4.5013e+02_rb,3.6010e+02_rb,2.7007e+02_rb, &\n     &1.8004e+02_rb,9.0025e+01_rb,1.1133e+00_rb/)\n      kao(:, 5,13,14) = (/ &\n     &9.0551e+02_rb,7.9235e+02_rb,6.7916e+02_rb,5.6596e+02_rb,4.5276e+02_rb,3.3958e+02_rb, &\n     &2.2638e+02_rb,1.1319e+02_rb,2.5474e+00_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &1.6993e-01_rb,6.2319e-01_rb,1.2302e+00_rb,1.8117e+00_rb,2.3534e+00_rb,2.8224e+00_rb, &\n     &3.1427e+00_rb,3.0683e+00_rb,4.7067e+00_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &1.9652e-01_rb,7.8355e-01_rb,1.5463e+00_rb,2.2775e+00_rb,2.9572e+00_rb,3.5450e+00_rb, &\n     &3.9419e+00_rb,3.8320e+00_rb,5.9144e+00_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &2.2200e-01_rb,9.5617e-01_rb,1.8872e+00_rb,2.7806e+00_rb,3.6114e+00_rb,4.3315e+00_rb, &\n     &4.8212e+00_rb,4.6828e+00_rb,7.2228e+00_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &2.4720e-01_rb,1.1411e+00_rb,2.2528e+00_rb,3.3193e+00_rb,4.3116e+00_rb,5.1713e+00_rb, &\n     &5.7552e+00_rb,5.5959e+00_rb,8.6231e+00_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &2.7067e-01_rb,1.3368e+00_rb,2.6392e+00_rb,3.8885e+00_rb,5.0531e+00_rb,6.0617e+00_rb, &\n     &6.7490e+00_rb,6.5681e+00_rb,1.0106e+01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &2.5495e-01_rb,6.7714e-01_rb,1.3429e+00_rb,1.9911e+00_rb,2.6102e+00_rb,3.1741e+00_rb, &\n     &3.6176e+00_rb,3.6989e+00_rb,5.2204e+00_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &2.9713e-01_rb,8.6139e-01_rb,1.7085e+00_rb,2.5326e+00_rb,3.3191e+00_rb,4.0358e+00_rb, &\n     &4.5977e+00_rb,4.6904e+00_rb,6.6382e+00_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &3.3791e-01_rb,1.0632e+00_rb,2.1089e+00_rb,3.1273e+00_rb,4.0996e+00_rb,4.9862e+00_rb, &\n     &5.6823e+00_rb,5.7948e+00_rb,8.1990e+00_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &3.7751e-01_rb,1.2778e+00_rb,2.5347e+00_rb,3.7591e+00_rb,4.9277e+00_rb,5.9944e+00_rb, &\n     &6.8345e+00_rb,6.9830e+00_rb,9.8554e+00_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &4.1544e-01_rb,1.5054e+00_rb,2.9855e+00_rb,4.4278e+00_rb,5.8067e+00_rb,7.0647e+00_rb, &\n     &8.0557e+00_rb,8.2364e+00_rb,1.1613e+01_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &4.9608e-01_rb,6.8984e-01_rb,1.3746e+00_rb,2.0502e+00_rb,2.7121e+00_rb,3.3455e+00_rb, &\n     &3.9122e+00_rb,4.2490e+00_rb,5.4242e+00_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &5.8591e-01_rb,8.9422e-01_rb,1.7812e+00_rb,2.6579e+00_rb,3.5151e+00_rb,4.3360e+00_rb, &\n     &5.0694e+00_rb,5.5020e+00_rb,7.0303e+00_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &6.7409e-01_rb,1.1231e+00_rb,2.2377e+00_rb,3.3379e+00_rb,4.4153e+00_rb,5.4452e+00_rb, &\n     &6.3666e+00_rb,6.9097e+00_rb,8.8307e+00_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &7.5926e-01_rb,1.3688e+00_rb,2.7271e+00_rb,4.0692e+00_rb,5.3814e+00_rb,6.6410e+00_rb, &\n     &7.7706e+00_rb,8.4452e+00_rb,1.0763e+01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &8.4200e-01_rb,1.6284e+00_rb,3.2443e+00_rb,4.8405e+00_rb,6.4040e+00_rb,7.9036e+00_rb, &\n     &9.2460e+00_rb,1.0057e+01_rb,1.2808e+01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &9.7215e-01_rb,8.5067e-01_rb,1.3532e+00_rb,2.0247e+00_rb,2.6895e+00_rb,3.3419e+00_rb, &\n     &3.9624e+00_rb,4.4662e+00_rb,5.3791e+00_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &1.1632e+00_rb,1.0264e+00_rb,1.7937e+00_rb,2.6847e+00_rb,3.5667e+00_rb,4.4317e+00_rb, &\n     &5.2538e+00_rb,5.9212e+00_rb,7.1333e+00_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &1.3574e+00_rb,1.2217e+00_rb,2.2951e+00_rb,3.4352e+00_rb,4.5625e+00_rb,5.6686e+00_rb, &\n     &6.7222e+00_rb,7.5788e+00_rb,9.1250e+00_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &1.5473e+00_rb,1.4621e+00_rb,2.8487e+00_rb,4.2635e+00_rb,5.6651e+00_rb,7.0387e+00_rb, &\n     &8.3491e+00_rb,9.4177e+00_rb,1.1330e+01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &1.7305e+00_rb,1.7312e+00_rb,3.4330e+00_rb,5.1366e+00_rb,6.8257e+00_rb,8.4825e+00_rb, &\n     &1.0065e+01_rb,1.1356e+01_rb,1.3651e+01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &1.7388e+00_rb,1.5215e+00_rb,1.3772e+00_rb,1.9641e+00_rb,2.6140e+00_rb,3.2573e+00_rb, &\n     &3.8853e+00_rb,4.4515e+00_rb,5.2280e+00_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &2.1169e+00_rb,1.8521e+00_rb,1.7962e+00_rb,2.6470e+00_rb,3.5230e+00_rb,4.3915e+00_rb, &\n     &5.2396e+00_rb,6.0117e+00_rb,7.0460e+00_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &2.5041e+00_rb,2.1909e+00_rb,2.3110e+00_rb,3.4553e+00_rb,4.5986e+00_rb,5.7308e+00_rb, &\n     &6.8405e+00_rb,7.8473e+00_rb,9.1972e+00_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &2.8915e+00_rb,2.5301e+00_rb,2.9136e+00_rb,4.3640e+00_rb,5.8101e+00_rb,7.2418e+00_rb, &\n     &8.6447e+00_rb,9.9184e+00_rb,1.1620e+01_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &3.2655e+00_rb,2.8574e+00_rb,3.5660e+00_rb,5.3438e+00_rb,7.1123e+00_rb,8.8675e+00_rb, &\n     &1.0583e+01_rb,1.2152e+01_rb,1.4224e+01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &2.8657e+00_rb,2.5077e+00_rb,2.1495e+00_rb,1.9426e+00_rb,2.5509e+00_rb,3.1827e+00_rb, &\n     &3.8069e+00_rb,4.3973e+00_rb,5.1017e+00_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &3.5656e+00_rb,3.1200e+00_rb,2.6742e+00_rb,2.5857e+00_rb,3.4175e+00_rb,4.2650e+00_rb, &\n     &5.1021e+00_rb,5.8962e+00_rb,6.8350e+00_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &4.2807e+00_rb,3.7458e+00_rb,3.2105e+00_rb,3.3891e+00_rb,4.4929e+00_rb,5.6082e+00_rb, &\n     &6.7100e+00_rb,7.7616e+00_rb,8.9857e+00_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &5.0170e+00_rb,4.3893e+00_rb,3.7667e+00_rb,4.3378e+00_rb,5.7738e+00_rb,7.2087e+00_rb, &\n     &8.6270e+00_rb,9.9837e+00_rb,1.1548e+01_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &5.7403e+00_rb,5.0226e+00_rb,4.3725e+00_rb,5.3984e+00_rb,7.1936e+00_rb,8.9774e+00_rb, &\n     &1.0747e+01_rb,1.2440e+01_rb,1.4387e+01_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &4.9113e+00_rb,4.2974e+00_rb,3.6835e+00_rb,3.0697e+00_rb,2.6153e+00_rb,3.1091e+00_rb, &\n     &3.7251e+00_rb,4.3239e+00_rb,4.9783e+00_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &6.2562e+00_rb,5.4743e+00_rb,4.6920e+00_rb,3.9102e+00_rb,3.4334e+00_rb,4.1812e+00_rb, &\n     &5.0095e+00_rb,5.8168e+00_rb,6.6958e+00_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &7.6604e+00_rb,6.7031e+00_rb,5.7453e+00_rb,4.7880e+00_rb,4.4844e+00_rb,5.5063e+00_rb, &\n     &6.5975e+00_rb,7.6628e+00_rb,8.8178e+00_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &9.1018e+00_rb,7.9643e+00_rb,6.8268e+00_rb,5.7331e+00_rb,5.7498e+00_rb,7.0854e+00_rb, &\n     &8.4900e+00_rb,9.8659e+00_rb,1.1347e+01_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &1.0558e+01_rb,9.2378e+00_rb,7.9183e+00_rb,6.7553e+00_rb,7.1878e+00_rb,8.8933e+00_rb, &\n     &1.0658e+01_rb,1.2385e+01_rb,1.4238e+01_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &1.0009e+01_rb,8.7571e+00_rb,7.5061e+00_rb,6.2547e+00_rb,5.0042e+00_rb,3.7993e+00_rb, &\n     &3.6112e+00_rb,4.2052e+00_rb,4.8194e+00_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &1.3089e+01_rb,1.1454e+01_rb,9.8171e+00_rb,8.1811e+00_rb,6.5451e+00_rb,5.0064e+00_rb, &\n     &4.9059e+00_rb,5.7129e+00_rb,6.5481e+00_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &1.6387e+01_rb,1.4339e+01_rb,1.2290e+01_rb,1.0242e+01_rb,8.1941e+00_rb,6.3517e+00_rb, &\n     &6.5066e+00_rb,7.5778e+00_rb,8.6840e+00_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &1.9809e+01_rb,1.7333e+01_rb,1.4856e+01_rb,1.2381e+01_rb,9.9047e+00_rb,7.9569e+00_rb, &\n     &8.4189e+00_rb,9.8052e+00_rb,1.1235e+01_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &2.3310e+01_rb,2.0396e+01_rb,1.7482e+01_rb,1.4569e+01_rb,1.1654e+01_rb,9.7998e+00_rb, &\n     &1.0613e+01_rb,1.2362e+01_rb,1.4162e+01_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &3.8130e+01_rb,3.3362e+01_rb,2.8596e+01_rb,2.3830e+01_rb,1.9065e+01_rb,1.4298e+01_rb, &\n     &9.5322e+00_rb,4.9254e+00_rb,4.5210e+00_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &5.1350e+01_rb,4.4933e+01_rb,3.8514e+01_rb,3.2094e+01_rb,2.5677e+01_rb,1.9258e+01_rb, &\n     &1.2838e+01_rb,6.6242e+00_rb,6.3225e+00_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &6.5865e+01_rb,5.7633e+01_rb,4.9398e+01_rb,4.1167e+01_rb,3.2931e+01_rb,2.4701e+01_rb, &\n     &1.6465e+01_rb,8.5406e+00_rb,8.4711e+00_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &8.1194e+01_rb,7.1041e+01_rb,6.0891e+01_rb,5.0738e+01_rb,4.0591e+01_rb,3.0449e+01_rb, &\n     &2.0297e+01_rb,1.0902e+01_rb,1.1050e+01_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &9.6976e+01_rb,8.4851e+01_rb,7.2734e+01_rb,6.0609e+01_rb,4.8485e+01_rb,3.6366e+01_rb, &\n     &2.4244e+01_rb,1.3609e+01_rb,1.4022e+01_rb/)\n      kao(:, 1,10,15) = (/ &\n     &1.6495e+02_rb,1.4434e+02_rb,1.2371e+02_rb,1.0308e+02_rb,8.2478e+01_rb,6.1862e+01_rb, &\n     &4.1240e+01_rb,2.0620e+01_rb,1.6305e+00_rb/)\n      kao(:, 2,10,15) = (/ &\n     &2.2828e+02_rb,1.9973e+02_rb,1.7121e+02_rb,1.4267e+02_rb,1.1414e+02_rb,8.5604e+01_rb, &\n     &5.7062e+01_rb,2.8536e+01_rb,5.3393e+00_rb/)\n      kao(:, 3,10,15) = (/ &\n     &2.9925e+02_rb,2.6184e+02_rb,2.2444e+02_rb,1.8703e+02_rb,1.4963e+02_rb,1.1222e+02_rb, &\n     &7.4815e+01_rb,3.7408e+01_rb,8.3308e+00_rb/)\n      kao(:, 4,10,15) = (/ &\n     &3.7719e+02_rb,3.3003e+02_rb,2.8287e+02_rb,2.3573e+02_rb,1.8859e+02_rb,1.4144e+02_rb, &\n     &9.4294e+01_rb,4.7146e+01_rb,1.0953e+01_rb/)\n      kao(:, 5,10,15) = (/ &\n     &4.5955e+02_rb,4.0214e+02_rb,3.4467e+02_rb,2.8724e+02_rb,2.2979e+02_rb,1.7235e+02_rb, &\n     &1.1490e+02_rb,5.7448e+01_rb,1.3975e+01_rb/)\n      kao(:, 1,11,15) = (/ &\n     &2.9347e+02_rb,2.5677e+02_rb,2.2010e+02_rb,1.8342e+02_rb,1.4673e+02_rb,1.1005e+02_rb, &\n     &7.3365e+01_rb,3.6685e+01_rb,2.5030e-01_rb/)\n      kao(:, 2,11,15) = (/ &\n     &4.0846e+02_rb,3.5738e+02_rb,3.0635e+02_rb,2.5530e+02_rb,2.0423e+02_rb,1.5319e+02_rb, &\n     &1.0212e+02_rb,5.1058e+01_rb,2.2261e+00_rb/)\n      kao(:, 3,11,15) = (/ &\n     &5.3934e+02_rb,4.7191e+02_rb,4.0450e+02_rb,3.3708e+02_rb,2.6969e+02_rb,2.0225e+02_rb, &\n     &1.3483e+02_rb,6.7419e+01_rb,7.0745e+00_rb/)\n      kao(:, 4,11,15) = (/ &\n     &6.8280e+02_rb,5.9745e+02_rb,5.1209e+02_rb,4.2676e+02_rb,3.4141e+02_rb,2.5605e+02_rb, &\n     &1.7070e+02_rb,8.5353e+01_rb,1.1909e+01_rb/)\n      kao(:, 5,11,15) = (/ &\n     &8.3619e+02_rb,7.3167e+02_rb,6.2713e+02_rb,5.2262e+02_rb,4.1810e+02_rb,3.1359e+02_rb, &\n     &2.0904e+02_rb,1.0453e+02_rb,1.5372e+01_rb/)\n      kao(:, 1,12,15) = (/ &\n     &3.9587e+02_rb,3.4637e+02_rb,2.9690e+02_rb,2.4742e+02_rb,1.9794e+02_rb,1.4844e+02_rb, &\n     &9.8964e+01_rb,4.9484e+01_rb,3.4642e-05_rb/)\n      kao(:, 2,12,15) = (/ &\n     &5.5272e+02_rb,4.8359e+02_rb,4.1455e+02_rb,3.4543e+02_rb,2.7636e+02_rb,2.0725e+02_rb, &\n     &1.3818e+02_rb,6.9086e+01_rb,1.7207e+00_rb/)\n      kao(:, 3,12,15) = (/ &\n     &7.3408e+02_rb,6.4226e+02_rb,5.5052e+02_rb,4.5884e+02_rb,3.6704e+02_rb,2.7529e+02_rb, &\n     &1.8352e+02_rb,9.1757e+01_rb,6.4555e+00_rb/)\n      kao(:, 4,12,15) = (/ &\n     &9.3778e+02_rb,8.2044e+02_rb,7.0331e+02_rb,5.8607e+02_rb,4.6883e+02_rb,3.5166e+02_rb, &\n     &2.3443e+02_rb,1.1722e+02_rb,1.0884e+01_rb/)\n      kao(:, 5,12,15) = (/ &\n     &1.1629e+03_rb,1.0175e+03_rb,8.7216e+02_rb,7.2684e+02_rb,5.8142e+02_rb,4.3609e+02_rb, &\n     &2.9073e+02_rb,1.4537e+02_rb,1.6871e+01_rb/)\n      kao(:, 1,13,15) = (/ &\n     &4.3408e+02_rb,3.7980e+02_rb,3.2553e+02_rb,2.7129e+02_rb,2.1704e+02_rb,1.6278e+02_rb, &\n     &1.0851e+02_rb,5.4254e+01_rb,3.3387e-01_rb/)\n      kao(:, 2,13,15) = (/ &\n     &6.1113e+02_rb,5.3482e+02_rb,4.5841e+02_rb,3.8201e+02_rb,3.0560e+02_rb,2.2920e+02_rb, &\n     &1.5279e+02_rb,7.6397e+01_rb,3.4060e+00_rb/)\n      kao(:, 3,13,15) = (/ &\n     &8.2033e+02_rb,7.1780e+02_rb,6.1525e+02_rb,5.1272e+02_rb,4.1017e+02_rb,3.0764e+02_rb, &\n     &2.0509e+02_rb,1.0254e+02_rb,7.3848e+00_rb/)\n      kao(:, 4,13,15) = (/ &\n     &1.0623e+03_rb,9.2952e+02_rb,7.9671e+02_rb,6.6390e+02_rb,5.3111e+02_rb,3.9834e+02_rb, &\n     &2.6556e+02_rb,1.3278e+02_rb,1.3310e+01_rb/)\n      kao(:, 5,13,15) = (/ &\n     &1.3308e+03_rb,1.1645e+03_rb,9.9813e+02_rb,8.3174e+02_rb,6.6542e+02_rb,4.9907e+02_rb, &\n     &3.3271e+02_rb,1.6635e+02_rb,1.8499e+01_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &1.7254e-01_rb,6.6462e-01_rb,1.3115e+00_rb,1.9318e+00_rb,2.5084e+00_rb,3.0076e+00_rb, &\n     &3.3449e+00_rb,3.2523e+00_rb,5.0169e+00_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &1.9945e-01_rb,8.1688e-01_rb,1.6118e+00_rb,2.3741e+00_rb,3.0836e+00_rb,3.6966e+00_rb, &\n     &4.1116e+00_rb,3.9980e+00_rb,6.1673e+00_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &2.2510e-01_rb,1.0070e+00_rb,1.9841e+00_rb,2.9159e+00_rb,3.7748e+00_rb,4.5037e+00_rb, &\n     &4.9689e+00_rb,4.7883e+00_rb,7.5495e+00_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &2.5048e-01_rb,1.2252e+00_rb,2.4140e+00_rb,3.5479e+00_rb,4.5928e+00_rb,5.4806e+00_rb, &\n     &6.0471e+00_rb,5.7831e+00_rb,9.1856e+00_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &2.7413e-01_rb,1.4585e+00_rb,2.8735e+00_rb,4.2233e+00_rb,5.4678e+00_rb,6.4913e+00_rb, &\n     &7.1996e+00_rb,6.8835e+00_rb,1.0936e+01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &2.5949e-01_rb,7.4073e-01_rb,1.4685e+00_rb,2.1764e+00_rb,2.8509e+00_rb,3.4639e+00_rb, &\n     &3.9405e+00_rb,4.0097e+00_rb,5.7017e+00_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &3.0220e-01_rb,9.2128e-01_rb,1.8172e+00_rb,2.6931e+00_rb,3.5460e+00_rb,4.3080e+00_rb, &\n     &4.9007e+00_rb,4.9876e+00_rb,7.0918e+00_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &3.4341e-01_rb,1.1291e+00_rb,2.2360e+00_rb,3.3088e+00_rb,4.3252e+00_rb,5.2383e+00_rb, &\n     &5.9360e+00_rb,6.0318e+00_rb,8.6502e+00_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &3.8325e-01_rb,1.3874e+00_rb,2.7481e+00_rb,4.0666e+00_rb,5.3159e+00_rb,6.4367e+00_rb, &\n     &7.2790e+00_rb,7.3059e+00_rb,1.0632e+01_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &4.2153e-01_rb,1.6660e+00_rb,3.2992e+00_rb,4.8823e+00_rb,6.3819e+00_rb,7.7290e+00_rb, &\n     &8.7410e+00_rb,8.7737e+00_rb,1.2764e+01_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &5.0644e-01_rb,7.8255e-01_rb,1.5587e+00_rb,2.3239e+00_rb,3.0716e+00_rb,3.7848e+00_rb, &\n     &4.4177e+00_rb,4.7740e+00_rb,6.1431e+00_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &5.9759e-01_rb,9.9169e-01_rb,1.9751e+00_rb,2.9450e+00_rb,3.8926e+00_rb,4.7966e+00_rb, &\n     &5.5986e+00_rb,6.0493e+00_rb,7.7852e+00_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &6.8696e-01_rb,1.2186e+00_rb,2.4265e+00_rb,3.6186e+00_rb,4.7825e+00_rb,5.8630e+00_rb, &\n     &6.8786e+00_rb,7.4328e+00_rb,9.5649e+00_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &7.7291e-01_rb,1.5044e+00_rb,2.9942e+00_rb,4.4622e+00_rb,5.8918e+00_rb,7.2471e+00_rb, &\n     &8.4308e+00_rb,9.0321e+00_rb,1.1784e+01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &8.5655e-01_rb,1.8308e+00_rb,3.6443e+00_rb,5.4303e+00_rb,7.1696e+00_rb,8.8191e+00_rb, &\n     &1.0261e+01_rb,1.0994e+01_rb,1.4339e+01_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &9.9660e-01_rb,8.7187e-01_rb,1.6058e+00_rb,2.4020e+00_rb,3.1900e+00_rb,3.9596e+00_rb, &\n     &4.6884e+00_rb,5.2602e+00_rb,6.3800e+00_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &1.1909e+00_rb,1.0454e+00_rb,2.0813e+00_rb,3.1135e+00_rb,4.1338e+00_rb,5.1320e+00_rb, &\n     &6.0754e+00_rb,6.8176e+00_rb,8.2675e+00_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &1.3883e+00_rb,1.3053e+00_rb,2.6054e+00_rb,3.8972e+00_rb,5.1746e+00_rb,6.4245e+00_rb, &\n     &7.6056e+00_rb,8.5415e+00_rb,1.0349e+01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &1.5813e+00_rb,1.6017e+00_rb,3.1965e+00_rb,4.7803e+00_rb,6.3446e+00_rb,7.8728e+00_rb, &\n     &9.3118e+00_rb,1.0423e+01_rb,1.2689e+01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &1.7666e+00_rb,1.9742e+00_rb,3.9398e+00_rb,5.8918e+00_rb,7.8191e+00_rb,9.6976e+00_rb, &\n     &1.1463e+01_rb,1.2804e+01_rb,1.5638e+01_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &1.7905e+00_rb,1.5668e+00_rb,1.6306e+00_rb,2.4424e+00_rb,3.2499e+00_rb,4.0478e+00_rb, &\n     &4.8237e+00_rb,5.5141e+00_rb,6.4998e+00_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &2.1763e+00_rb,1.9041e+00_rb,2.1658e+00_rb,3.2440e+00_rb,4.3166e+00_rb,5.3771e+00_rb, &\n     &6.4071e+00_rb,7.3247e+00_rb,8.6332e+00_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &2.5702e+00_rb,2.2488e+00_rb,2.7671e+00_rb,4.1446e+00_rb,5.5145e+00_rb,6.8692e+00_rb, &\n     &8.1862e+00_rb,9.3584e+00_rb,1.1029e+01_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &2.9652e+00_rb,2.5941e+00_rb,3.4291e+00_rb,5.1370e+00_rb,6.8346e+00_rb,8.5115e+00_rb, &\n     &1.0142e+01_rb,1.1590e+01_rb,1.3669e+01_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &3.3442e+00_rb,2.9260e+00_rb,4.2225e+00_rb,6.3231e+00_rb,8.4117e+00_rb,1.0473e+01_rb, &\n     &1.2473e+01_rb,1.4226e+01_rb,1.6823e+01_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &2.9659e+00_rb,2.5957e+00_rb,2.2251e+00_rb,2.4192e+00_rb,3.2212e+00_rb,4.0191e+00_rb, &\n     &4.8055e+00_rb,5.5432e+00_rb,6.4424e+00_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &3.6832e+00_rb,3.2223e+00_rb,2.7616e+00_rb,3.3057e+00_rb,4.4026e+00_rb,5.4931e+00_rb, &\n     &6.5666e+00_rb,7.5768e+00_rb,8.8051e+00_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &4.4116e+00_rb,3.8604e+00_rb,3.3096e+00_rb,4.3238e+00_rb,5.7589e+00_rb,7.1852e+00_rb, &\n     &8.5905e+00_rb,9.9138e+00_rb,1.1518e+01_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &5.1628e+00_rb,4.5167e+00_rb,3.8530e+00_rb,5.4598e+00_rb,7.2711e+00_rb,9.0722e+00_rb, &\n     &1.0846e+01_rb,1.2515e+01_rb,1.4542e+01_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &5.8968e+00_rb,5.1602e+00_rb,4.5054e+00_rb,6.7527e+00_rb,8.9935e+00_rb,1.1218e+01_rb, &\n     &1.3409e+01_rb,1.5457e+01_rb,1.7987e+01_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &5.1220e+00_rb,4.4578e+00_rb,3.8412e+00_rb,3.1847e+00_rb,3.1367e+00_rb,3.9170e+00_rb, &\n     &4.6915e+00_rb,5.4417e+00_rb,6.2734e+00_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &6.5146e+00_rb,5.7005e+00_rb,4.8852e+00_rb,4.0720e+00_rb,4.4224e+00_rb,5.5237e+00_rb, &\n     &6.6151e+00_rb,7.6744e+00_rb,8.8447e+00_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &7.9642e+00_rb,6.9679e+00_rb,5.9715e+00_rb,4.9772e+00_rb,5.9352e+00_rb,7.4116e+00_rb, &\n     &8.8775e+00_rb,1.0298e+01_rb,1.1870e+01_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &9.4454e+00_rb,8.2650e+00_rb,7.0847e+00_rb,5.9047e+00_rb,7.6537e+00_rb,9.5584e+00_rb, &\n     &1.1448e+01_rb,1.3281e+01_rb,1.5307e+01_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &1.0942e+01_rb,9.5731e+00_rb,8.2052e+00_rb,7.1985e+00_rb,9.5915e+00_rb,1.1978e+01_rb, &\n     &1.4344e+01_rb,1.6634e+01_rb,1.9183e+01_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &1.0533e+01_rb,9.2146e+00_rb,7.8983e+00_rb,6.5814e+00_rb,5.2661e+00_rb,3.9493e+00_rb, &\n     &4.5315e+00_rb,5.2737e+00_rb,6.0497e+00_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &1.3750e+01_rb,1.2032e+01_rb,1.0313e+01_rb,8.5934e+00_rb,6.8745e+00_rb,5.4846e+00_rb, &\n     &6.5763e+00_rb,7.6139e+00_rb,8.7787e+00_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &1.7175e+01_rb,1.5029e+01_rb,1.2881e+01_rb,1.0735e+01_rb,8.5883e+00_rb,7.5634e+00_rb, &\n     &9.0692e+00_rb,1.0555e+01_rb,1.2107e+01_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &2.0707e+01_rb,1.8120e+01_rb,1.5532e+01_rb,1.2944e+01_rb,1.0356e+01_rb,9.9766e+00_rb, &\n     &1.1963e+01_rb,1.3921e+01_rb,1.5970e+01_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &2.4320e+01_rb,2.1282e+01_rb,1.8238e+01_rb,1.5200e+01_rb,1.2161e+01_rb,1.2723e+01_rb, &\n     &1.5254e+01_rb,1.7752e+01_rb,2.0364e+01_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &4.0363e+01_rb,3.5318e+01_rb,3.0273e+01_rb,2.5227e+01_rb,2.0181e+01_rb,1.5134e+01_rb, &\n     &1.0090e+01_rb,5.4212e+00_rb,6.1996e+00_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &5.4231e+01_rb,4.7444e+01_rb,4.0667e+01_rb,3.3896e+01_rb,2.7114e+01_rb,2.0336e+01_rb, &\n     &1.3557e+01_rb,7.4876e+00_rb,8.5638e+00_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &6.9375e+01_rb,6.0706e+01_rb,5.2030e+01_rb,4.3363e+01_rb,3.4693e+01_rb,2.6019e+01_rb, &\n     &1.7346e+01_rb,1.0642e+01_rb,1.2169e+01_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &8.5364e+01_rb,7.4694e+01_rb,6.4003e+01_rb,5.3349e+01_rb,4.2675e+01_rb,3.2007e+01_rb, &\n     &2.1338e+01_rb,1.4379e+01_rb,1.6444e+01_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &1.0173e+02_rb,8.9011e+01_rb,7.6294e+01_rb,6.3578e+01_rb,5.0858e+01_rb,3.8147e+01_rb, &\n     &2.5431e+01_rb,1.8715e+01_rb,2.1406e+01_rb/)\n      kao(:, 1,10,16) = (/ &\n     &1.7518e+02_rb,1.5326e+02_rb,1.3138e+02_rb,1.0946e+02_rb,8.7589e+01_rb,6.5684e+01_rb, &\n     &4.3795e+01_rb,2.1898e+01_rb,6.6096e+00_rb/)\n      kao(:, 2,10,16) = (/ &\n     &2.4209e+02_rb,2.1181e+02_rb,1.8152e+02_rb,1.5127e+02_rb,1.2102e+02_rb,9.0779e+01_rb, &\n     &6.0510e+01_rb,3.0258e+01_rb,8.7477e+00_rb/)\n      kao(:, 3,10,16) = (/ &\n     &3.1702e+02_rb,2.7739e+02_rb,2.3777e+02_rb,1.9810e+02_rb,1.5849e+02_rb,1.1888e+02_rb, &\n     &7.9249e+01_rb,3.9623e+01_rb,1.2377e+01_rb/)\n      kao(:, 4,10,16) = (/ &\n     &3.9791e+02_rb,3.4817e+02_rb,2.9841e+02_rb,2.4869e+02_rb,1.9896e+02_rb,1.4923e+02_rb, &\n     &9.9472e+01_rb,4.9736e+01_rb,1.7102e+01_rb/)\n      kao(:, 5,10,16) = (/ &\n     &4.8342e+02_rb,4.2295e+02_rb,3.6251e+02_rb,3.0211e+02_rb,2.4169e+02_rb,1.8128e+02_rb, &\n     &1.2083e+02_rb,6.0427e+01_rb,2.2752e+01_rb/)\n      kao(:, 1,11,16) = (/ &\n     &3.1380e+02_rb,2.7453e+02_rb,2.3526e+02_rb,1.9609e+02_rb,1.5686e+02_rb,1.1764e+02_rb, &\n     &7.8455e+01_rb,3.9219e+01_rb,4.1702e-05_rb/)\n      kao(:, 2,11,16) = (/ &\n     &4.3458e+02_rb,3.8032e+02_rb,3.2596e+02_rb,2.7165e+02_rb,2.1736e+02_rb,1.6300e+02_rb, &\n     &1.0866e+02_rb,5.4331e+01_rb,1.0603e+01_rb/)\n      kao(:, 3,11,16) = (/ &\n     &5.7279e+02_rb,5.0121e+02_rb,4.2963e+02_rb,3.5802e+02_rb,2.8639e+02_rb,2.1479e+02_rb, &\n     &1.4321e+02_rb,7.1606e+01_rb,1.4737e+01_rb/)\n      kao(:, 4,11,16) = (/ &\n     &7.2603e+02_rb,6.3199e+02_rb,5.4450e+02_rb,4.5379e+02_rb,3.6299e+02_rb,2.7226e+02_rb, &\n     &1.8150e+02_rb,9.0755e+01_rb,2.0418e+01_rb/)\n      kao(:, 5,11,16) = (/ &\n     &8.9810e+02_rb,7.8584e+02_rb,6.7355e+02_rb,5.6126e+02_rb,4.4901e+02_rb,3.3674e+02_rb, &\n     &2.2451e+02_rb,1.1225e+02_rb,2.7345e+01_rb/)\n      kao(:, 1,12,16) = (/ &\n     &4.2564e+02_rb,3.7252e+02_rb,3.1927e+02_rb,2.6605e+02_rb,2.1287e+02_rb,1.5962e+02_rb, &\n     &1.0643e+02_rb,5.3212e+01_rb,3.3974e-05_rb/)\n      kao(:, 2,12,16) = (/ &\n     &5.9696e+02_rb,5.2232e+02_rb,4.4774e+02_rb,3.7307e+02_rb,2.9847e+02_rb,2.2385e+02_rb, &\n     &1.4924e+02_rb,7.4619e+01_rb,1.2841e+01_rb/)\n      kao(:, 3,12,16) = (/ &\n     &8.0130e+02_rb,7.0109e+02_rb,6.0095e+02_rb,5.0082e+02_rb,4.0064e+02_rb,3.0049e+02_rb, &\n     &2.0030e+02_rb,1.0016e+02_rb,1.7604e+01_rb/)\n      kao(:, 4,12,16) = (/ &\n     &1.0424e+03_rb,9.1209e+02_rb,7.8186e+02_rb,6.5151e+02_rb,5.2121e+02_rb,3.9092e+02_rb, &\n     &2.6059e+02_rb,1.3030e+02_rb,2.4408e+01_rb/)\n      kao(:, 5,12,16) = (/ &\n     &1.3107e+03_rb,1.1467e+03_rb,9.8296e+02_rb,8.1915e+02_rb,6.5538e+02_rb,4.9148e+02_rb, &\n     &3.2766e+02_rb,1.6385e+02_rb,3.2853e+01_rb/)\n      kao(:, 1,13,16) = (/ &\n     &4.8122e+02_rb,4.2105e+02_rb,3.6087e+02_rb,3.0076e+02_rb,2.4060e+02_rb,1.8046e+02_rb, &\n     &1.2030e+02_rb,6.0148e+01_rb,7.3993e+00_rb/)\n      kao(:, 2,13,16) = (/ &\n     &6.9206e+02_rb,6.0557e+02_rb,5.1907e+02_rb,4.3255e+02_rb,3.4603e+02_rb,2.5955e+02_rb, &\n     &1.7302e+02_rb,8.6508e+01_rb,1.5501e+01_rb/)\n      kao(:, 3,13,16) = (/ &\n     &9.4703e+02_rb,8.2867e+02_rb,7.1030e+02_rb,5.9189e+02_rb,4.7354e+02_rb,3.5512e+02_rb, &\n     &2.3675e+02_rb,1.1838e+02_rb,2.1029e+01_rb/)\n      kao(:, 4,13,16) = (/ &\n     &1.2338e+03_rb,1.0854e+03_rb,9.3026e+02_rb,7.7526e+02_rb,6.2018e+02_rb,4.6513e+02_rb, &\n     &3.1009e+02_rb,1.5423e+02_rb,2.9122e+01_rb/)\n      kao(:, 5,13,16) = (/ &\n     &1.5695e+03_rb,1.3734e+03_rb,1.1772e+03_rb,9.8104e+02_rb,7.8484e+02_rb,5.8860e+02_rb, &\n     &3.9240e+02_rb,1.9620e+02_rb,3.9289e+01_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:, 1,13, 1) = (/ &\n     &9.4796e-05_rb,1.4361e-04_rb,1.4118e-04_rb,1.1819e-04_rb,7.6303e-05_rb/)\n      kbo(:, 2,13, 1) = (/ &\n     &9.7387e-05_rb,1.7115e-04_rb,1.7300e-04_rb,1.4824e-04_rb,1.0469e-04_rb/)\n      kbo(:, 3,13, 1) = (/ &\n     &1.0951e-04_rb,2.1604e-04_rb,2.2323e-04_rb,1.9350e-04_rb,1.3818e-04_rb/)\n      kbo(:, 4,13, 1) = (/ &\n     &1.3449e-04_rb,2.8552e-04_rb,2.9728e-04_rb,2.5764e-04_rb,1.7597e-04_rb/)\n      kbo(:, 5,13, 1) = (/ &\n     &1.7577e-04_rb,3.8714e-04_rb,4.0359e-04_rb,3.4654e-04_rb,2.1851e-04_rb/)\n      kbo(:, 1,14, 1) = (/ &\n     &7.9000e-05_rb,1.2113e-04_rb,1.1920e-04_rb,9.9664e-05_rb,6.3646e-05_rb/)\n      kbo(:, 2,14, 1) = (/ &\n     &8.1870e-05_rb,1.4526e-04_rb,1.4705e-04_rb,1.2557e-04_rb,8.6376e-05_rb/)\n      kbo(:, 3,14, 1) = (/ &\n     &9.2975e-05_rb,1.8451e-04_rb,1.9063e-04_rb,1.6489e-04_rb,1.1348e-04_rb/)\n      kbo(:, 4,14, 1) = (/ &\n     &1.1499e-04_rb,2.4478e-04_rb,2.5460e-04_rb,2.2031e-04_rb,1.4451e-04_rb/)\n      kbo(:, 5,14, 1) = (/ &\n     &1.5077e-04_rb,3.3228e-04_rb,3.4580e-04_rb,2.9716e-04_rb,1.7798e-04_rb/)\n      kbo(:, 1,15, 1) = (/ &\n     &6.3146e-05_rb,9.9373e-05_rb,9.8373e-05_rb,8.2691e-05_rb,5.2397e-05_rb/)\n      kbo(:, 2,15, 1) = (/ &\n     &6.6078e-05_rb,1.2006e-04_rb,1.2228e-04_rb,1.0469e-04_rb,7.0411e-05_rb/)\n      kbo(:, 3,15, 1) = (/ &\n     &7.5821e-05_rb,1.5360e-04_rb,1.5869e-04_rb,1.3814e-04_rb,9.1603e-05_rb/)\n      kbo(:, 4,15, 1) = (/ &\n     &9.4372e-05_rb,2.0448e-04_rb,2.1279e-04_rb,1.8521e-04_rb,1.1587e-04_rb/)\n      kbo(:, 5,15, 1) = (/ &\n     &1.2416e-04_rb,2.7753e-04_rb,2.8967e-04_rb,2.5010e-04_rb,1.4409e-04_rb/)\n      kbo(:, 1,16, 1) = (/ &\n     &4.9335e-05_rb,8.0237e-05_rb,8.0247e-05_rb,6.8036e-05_rb,4.2623e-05_rb/)\n      kbo(:, 2,16, 1) = (/ &\n     &5.2173e-05_rb,9.7834e-05_rb,1.0022e-04_rb,8.6725e-05_rb,5.7211e-05_rb/)\n      kbo(:, 3,16, 1) = (/ &\n     &6.0461e-05_rb,1.2605e-04_rb,1.3061e-04_rb,1.1470e-04_rb,7.4324e-05_rb/)\n      kbo(:, 4,16, 1) = (/ &\n     &7.5694e-05_rb,1.6827e-04_rb,1.7572e-04_rb,1.5404e-04_rb,9.3686e-05_rb/)\n      kbo(:, 5,16, 1) = (/ &\n     &9.9955e-05_rb,2.2866e-04_rb,2.3956e-04_rb,2.0826e-04_rb,1.1548e-04_rb/)\n      kbo(:, 1,17, 1) = (/ &\n     &3.8266e-05_rb,6.4449e-05_rb,6.5172e-05_rb,5.5789e-05_rb,3.5130e-05_rb/)\n      kbo(:, 2,17, 1) = (/ &\n     &4.0895e-05_rb,7.9297e-05_rb,8.1758e-05_rb,7.1548e-05_rb,4.6781e-05_rb/)\n      kbo(:, 3,17, 1) = (/ &\n     &4.7807e-05_rb,1.0278e-04_rb,1.0697e-04_rb,9.4840e-05_rb,6.0133e-05_rb/)\n      kbo(:, 4,17, 1) = (/ &\n     &6.0159e-05_rb,1.3765e-04_rb,1.4446e-04_rb,1.2759e-04_rb,7.5139e-05_rb/)\n      kbo(:, 5,17, 1) = (/ &\n     &7.9747e-05_rb,1.8704e-04_rb,1.9692e-04_rb,1.7259e-04_rb,9.1648e-05_rb/)\n      kbo(:, 1,18, 1) = (/ &\n     &2.9184e-05_rb,5.1211e-05_rb,5.2362e-05_rb,4.5451e-05_rb,2.8937e-05_rb/)\n      kbo(:, 2,18, 1) = (/ &\n     &3.1502e-05_rb,6.3605e-05_rb,6.6096e-05_rb,5.8591e-05_rb,3.8202e-05_rb/)\n      kbo(:, 3,18, 1) = (/ &\n     &3.7129e-05_rb,8.2865e-05_rb,8.6932e-05_rb,7.7931e-05_rb,4.8777e-05_rb/)\n      kbo(:, 4,18, 1) = (/ &\n     &4.6953e-05_rb,1.1128e-04_rb,1.1763e-04_rb,1.0496e-04_rb,6.0806e-05_rb/)\n      kbo(:, 5,18, 1) = (/ &\n     &6.2502e-05_rb,1.5129e-04_rb,1.6025e-04_rb,1.4184e-04_rb,7.4536e-05_rb/)\n      kbo(:, 1,19, 1) = (/ &\n     &2.2672e-05_rb,4.1242e-05_rb,4.2527e-05_rb,3.7342e-05_rb,2.3934e-05_rb/)\n      kbo(:, 2,19, 1) = (/ &\n     &2.4699e-05_rb,5.1600e-05_rb,5.3953e-05_rb,4.8350e-05_rb,3.1473e-05_rb/)\n      kbo(:, 3,19, 1) = (/ &\n     &2.9334e-05_rb,6.7547e-05_rb,7.1294e-05_rb,6.4461e-05_rb,4.0025e-05_rb/)\n      kbo(:, 4,19, 1) = (/ &\n     &3.7286e-05_rb,9.0838e-05_rb,9.6625e-05_rb,8.6862e-05_rb,4.9869e-05_rb/)\n      kbo(:, 5,19, 1) = (/ &\n     &4.9822e-05_rb,1.2352e-04_rb,1.3152e-04_rb,1.1713e-04_rb,6.1219e-05_rb/)\n      kbo(:, 1,20, 1) = (/ &\n     &1.8003e-05_rb,3.3802e-05_rb,3.5042e-05_rb,3.1068e-05_rb,2.0074e-05_rb/)\n      kbo(:, 2,20, 1) = (/ &\n     &1.9811e-05_rb,4.2600e-05_rb,4.4765e-05_rb,4.0426e-05_rb,2.6188e-05_rb/)\n      kbo(:, 3,20, 1) = (/ &\n     &2.3740e-05_rb,5.5990e-05_rb,5.9400e-05_rb,5.4019e-05_rb,3.3275e-05_rb/)\n      kbo(:, 4,20, 1) = (/ &\n     &3.0362e-05_rb,7.5435e-05_rb,8.0630e-05_rb,7.2808e-05_rb,4.1380e-05_rb/)\n      kbo(:, 5,20, 1) = (/ &\n     &4.0743e-05_rb,1.0263e-04_rb,1.0963e-04_rb,9.7998e-05_rb,5.0442e-05_rb/)\n      kbo(:, 1,21, 1) = (/ &\n     &1.4410e-05_rb,2.7872e-05_rb,2.9027e-05_rb,2.5943e-05_rb,1.6820e-05_rb/)\n      kbo(:, 2,21, 1) = (/ &\n     &1.6018e-05_rb,3.5348e-05_rb,3.7320e-05_rb,3.3900e-05_rb,2.1893e-05_rb/)\n      kbo(:, 3,21, 1) = (/ &\n     &1.9364e-05_rb,4.6630e-05_rb,4.9701e-05_rb,4.5376e-05_rb,2.7723e-05_rb/)\n      kbo(:, 4,21, 1) = (/ &\n     &2.4923e-05_rb,6.2936e-05_rb,6.7505e-05_rb,6.1129e-05_rb,3.4253e-05_rb/)\n      kbo(:, 5,21, 1) = (/ &\n     &3.3581e-05_rb,8.5657e-05_rb,9.1740e-05_rb,8.2183e-05_rb,4.1502e-05_rb/)\n      kbo(:, 1,22, 1) = (/ &\n     &1.1606e-05_rb,2.3345e-05_rb,2.4458e-05_rb,2.2044e-05_rb,1.4341e-05_rb/)\n      kbo(:, 2,22, 1) = (/ &\n     &1.3108e-05_rb,2.9860e-05_rb,3.1703e-05_rb,2.8973e-05_rb,1.8544e-05_rb/)\n      kbo(:, 3,22, 1) = (/ &\n     &1.6058e-05_rb,3.9598e-05_rb,4.2399e-05_rb,3.8843e-05_rb,2.3272e-05_rb/)\n      kbo(:, 4,22, 1) = (/ &\n     &2.0871e-05_rb,5.3592e-05_rb,5.7668e-05_rb,5.2303e-05_rb,2.8594e-05_rb/)\n      kbo(:, 5,22, 1) = (/ &\n     &2.8287e-05_rb,7.2910e-05_rb,7.8274e-05_rb,7.0191e-05_rb,3.4495e-05_rb/)\n      kbo(:, 1,23, 1) = (/ &\n     &9.3973e-06_rb,1.9636e-05_rb,2.0704e-05_rb,1.8793e-05_rb,1.2204e-05_rb/)\n      kbo(:, 2,23, 1) = (/ &\n     &1.0787e-05_rb,2.5322e-05_rb,2.7025e-05_rb,2.4831e-05_rb,1.5654e-05_rb/)\n      kbo(:, 3,23, 1) = (/ &\n     &1.3385e-05_rb,3.3729e-05_rb,3.6290e-05_rb,3.3307e-05_rb,1.9609e-05_rb/)\n      kbo(:, 4,23, 1) = (/ &\n     &1.7566e-05_rb,4.5745e-05_rb,4.9368e-05_rb,4.4833e-05_rb,2.3893e-05_rb/)\n      kbo(:, 5,23, 1) = (/ &\n     &2.3931e-05_rb,6.2215e-05_rb,6.6919e-05_rb,6.0045e-05_rb,2.8668e-05_rb/)\n      kbo(:, 1,24, 1) = (/ &\n     &7.7170e-06_rb,1.6679e-05_rb,1.7685e-05_rb,1.6128e-05_rb,1.0358e-05_rb/)\n      kbo(:, 2,24, 1) = (/ &\n     &9.0120e-06_rb,2.1659e-05_rb,2.3221e-05_rb,2.1395e-05_rb,1.3206e-05_rb/)\n      kbo(:, 3,24, 1) = (/ &\n     &1.1319e-05_rb,2.8989e-05_rb,3.1289e-05_rb,2.8717e-05_rb,1.6361e-05_rb/)\n      kbo(:, 4,24, 1) = (/ &\n     &1.4992e-05_rb,3.9385e-05_rb,4.2555e-05_rb,3.8633e-05_rb,1.9891e-05_rb/)\n      kbo(:, 5,24, 1) = (/ &\n     &2.0520e-05_rb,5.3479e-05_rb,5.7600e-05_rb,5.1654e-05_rb,2.3746e-05_rb/)\n      kbo(:, 1,25, 1) = (/ &\n     &6.3838e-06_rb,1.4248e-05_rb,1.5168e-05_rb,1.3906e-05_rb,8.8251e-06_rb/)\n      kbo(:, 2,25, 1) = (/ &\n     &7.5878e-06_rb,1.8635e-05_rb,2.0050e-05_rb,1.8513e-05_rb,1.1119e-05_rb/)\n      kbo(:, 3,25, 1) = (/ &\n     &9.6475e-06_rb,2.5052e-05_rb,2.7110e-05_rb,2.4846e-05_rb,1.3734e-05_rb/)\n      kbo(:, 4,25, 1) = (/ &\n     &1.2889e-05_rb,3.4075e-05_rb,3.6834e-05_rb,3.3385e-05_rb,1.6609e-05_rb/)\n      kbo(:, 5,25, 1) = (/ &\n     &1.7706e-05_rb,4.6181e-05_rb,4.9751e-05_rb,4.4544e-05_rb,1.9735e-05_rb/)\n      kbo(:, 1,26, 1) = (/ &\n     &5.3393e-06_rb,1.2288e-05_rb,1.3132e-05_rb,1.2096e-05_rb,7.5264e-06_rb/)\n      kbo(:, 2,26, 1) = (/ &\n     &6.4609e-06_rb,1.6189e-05_rb,1.7467e-05_rb,1.6131e-05_rb,9.4332e-06_rb/)\n      kbo(:, 3,26, 1) = (/ &\n     &8.3200e-06_rb,2.1853e-05_rb,2.3681e-05_rb,2.1653e-05_rb,1.1593e-05_rb/)\n      kbo(:, 4,26, 1) = (/ &\n     &1.1209e-05_rb,2.9737e-05_rb,3.2133e-05_rb,2.9046e-05_rb,1.3941e-05_rb/)\n      kbo(:, 5,26, 1) = (/ &\n     &1.5443e-05_rb,4.0196e-05_rb,4.3302e-05_rb,3.8639e-05_rb,1.6481e-05_rb/)\n      kbo(:, 1,27, 1) = (/ &\n     &4.5029e-06_rb,1.0646e-05_rb,1.1429e-05_rb,1.0549e-05_rb,6.4263e-06_rb/)\n      kbo(:, 2,27, 1) = (/ &\n     &5.5408e-06_rb,1.4124e-05_rb,1.5272e-05_rb,1.4080e-05_rb,8.0128e-06_rb/)\n      kbo(:, 3,27, 1) = (/ &\n     &7.2235e-06_rb,1.9128e-05_rb,2.0734e-05_rb,1.8902e-05_rb,9.7874e-06_rb/)\n      kbo(:, 4,27, 1) = (/ &\n     &9.8044e-06_rb,2.6022e-05_rb,2.8102e-05_rb,2.5321e-05_rb,1.1642e-05_rb/)\n      kbo(:, 5,27, 1) = (/ &\n     &1.3531e-05_rb,3.5058e-05_rb,3.7762e-05_rb,3.3580e-05_rb,1.3712e-05_rb/)\n      kbo(:, 1,28, 1) = (/ &\n     &3.8267e-06_rb,9.2605e-06_rb,9.9753e-06_rb,9.2087e-06_rb,5.4910e-06_rb/)\n      kbo(:, 2,28, 1) = (/ &\n     &4.7813e-06_rb,1.2361e-05_rb,1.3381e-05_rb,1.2301e-05_rb,6.7809e-06_rb/)\n      kbo(:, 3,28, 1) = (/ &\n     &6.3052e-06_rb,1.6784e-05_rb,1.8184e-05_rb,1.6520e-05_rb,8.1872e-06_rb/)\n      kbo(:, 4,28, 1) = (/ &\n     &8.6092e-06_rb,2.2800e-05_rb,2.4603e-05_rb,2.2078e-05_rb,9.6541e-06_rb/)\n      kbo(:, 5,28, 1) = (/ &\n     &1.1891e-05_rb,3.0613e-05_rb,3.2964e-05_rb,2.9199e-05_rb,1.1371e-05_rb/)\n      kbo(:, 1,29, 1) = (/ &\n     &3.2554e-06_rb,8.0646e-06_rb,8.7115e-06_rb,8.0443e-06_rb,4.6597e-06_rb/)\n      kbo(:, 2,29, 1) = (/ &\n     &4.1267e-06_rb,1.0826e-05_rb,1.1737e-05_rb,1.0754e-05_rb,5.7169e-06_rb/)\n      kbo(:, 3,29, 1) = (/ &\n     &5.4998e-06_rb,1.4722e-05_rb,1.5944e-05_rb,1.4441e-05_rb,6.8326e-06_rb/)\n      kbo(:, 4,29, 1) = (/ &\n     &7.5454e-06_rb,1.9957e-05_rb,2.1533e-05_rb,1.9256e-05_rb,8.0674e-06_rb/)\n      kbo(:, 5,29, 1) = (/ &\n     &1.0421e-05_rb,2.6692e-05_rb,2.8752e-05_rb,2.5378e-05_rb,9.4635e-06_rb/)\n      kbo(:, 1,30, 1) = (/ &\n     &2.7722e-06_rb,7.0257e-06_rb,7.6070e-06_rb,7.0209e-06_rb,3.9148e-06_rb/)\n      kbo(:, 2,30, 1) = (/ &\n     &3.5629e-06_rb,9.4753e-06_rb,1.0287e-05_rb,9.3951e-06_rb,4.7641e-06_rb/)\n      kbo(:, 3,30, 1) = (/ &\n     &4.7932e-06_rb,1.2893e-05_rb,1.3959e-05_rb,1.2600e-05_rb,5.6708e-06_rb/)\n      kbo(:, 4,30, 1) = (/ &\n     &6.5982e-06_rb,1.7431e-05_rb,1.8810e-05_rb,1.6759e-05_rb,6.6902e-06_rb/)\n      kbo(:, 5,30, 1) = (/ &\n     &9.1066e-06_rb,2.3231e-05_rb,2.5041e-05_rb,2.2031e-05_rb,7.8394e-06_rb/)\n      kbo(:, 1,31, 1) = (/ &\n     &2.3506e-06_rb,6.1052e-06_rb,6.6305e-06_rb,6.1196e-06_rb,3.2861e-06_rb/)\n      kbo(:, 2,31, 1) = (/ &\n     &3.0616e-06_rb,8.2670e-06_rb,8.9874e-06_rb,8.1933e-06_rb,3.9690e-06_rb/)\n      kbo(:, 3,31, 1) = (/ &\n     &4.1518e-06_rb,1.1245e-05_rb,1.2180e-05_rb,1.0973e-05_rb,4.7077e-06_rb/)\n      kbo(:, 4,31, 1) = (/ &\n     &5.7278e-06_rb,1.5154e-05_rb,1.6366e-05_rb,1.4549e-05_rb,5.5398e-06_rb/)\n      kbo(:, 5,31, 1) = (/ &\n     &7.8906e-06_rb,2.0109e-05_rb,2.1708e-05_rb,1.9053e-05_rb,6.4566e-06_rb/)\n      kbo(:, 1,32, 1) = (/ &\n     &2.0097e-06_rb,5.3323e-06_rb,5.8021e-06_rb,5.3502e-06_rb,2.7241e-06_rb/)\n      kbo(:, 2,32, 1) = (/ &\n     &2.6508e-06_rb,7.2383e-06_rb,7.8773e-06_rb,7.1648e-06_rb,3.2755e-06_rb/)\n      kbo(:, 3,32, 1) = (/ &\n     &3.6184e-06_rb,9.8348e-06_rb,1.0656e-05_rb,9.5737e-06_rb,3.8774e-06_rb/)\n      kbo(:, 4,32, 1) = (/ &\n     &4.9951e-06_rb,1.3205e-05_rb,1.4271e-05_rb,1.2656e-05_rb,4.5194e-06_rb/)\n      kbo(:, 5,32, 1) = (/ &\n     &6.8654e-06_rb,1.7445e-05_rb,1.8860e-05_rb,1.6511e-05_rb,5.2597e-06_rb/)\n      kbo(:, 1,33, 1) = (/ &\n     &1.7307e-06_rb,4.6719e-06_rb,5.0926e-06_rb,4.6864e-06_rb,2.2504e-06_rb/)\n      kbo(:, 2,33, 1) = (/ &\n     &2.3079e-06_rb,6.3540e-06_rb,6.9152e-06_rb,6.2764e-06_rb,2.6926e-06_rb/)\n      kbo(:, 3,33, 1) = (/ &\n     &3.1665e-06_rb,8.6147e-06_rb,9.3343e-06_rb,8.3614e-06_rb,3.1814e-06_rb/)\n      kbo(:, 4,33, 1) = (/ &\n     &4.3731e-06_rb,1.1528e-05_rb,1.2464e-05_rb,1.1023e-05_rb,3.7164e-06_rb/)\n      kbo(:, 5,33, 1) = (/ &\n     &5.9878e-06_rb,1.5151e-05_rb,1.6400e-05_rb,1.4316e-05_rb,4.2974e-06_rb/)\n      kbo(:, 1,34, 1) = (/ &\n     &1.4981e-06_rb,4.0834e-06_rb,4.4531e-06_rb,4.0843e-06_rb,1.8539e-06_rb/)\n      kbo(:, 2,34, 1) = (/ &\n     &2.0150e-06_rb,5.5569e-06_rb,6.0419e-06_rb,5.4716e-06_rb,2.2285e-06_rb/)\n      kbo(:, 3,34, 1) = (/ &\n     &2.7725e-06_rb,7.5151e-06_rb,8.1387e-06_rb,7.2690e-06_rb,2.6334e-06_rb/)\n      kbo(:, 4,34, 1) = (/ &\n     &3.8256e-06_rb,1.0019e-05_rb,1.0836e-05_rb,9.5549e-06_rb,3.0709e-06_rb/)\n      kbo(:, 5,34, 1) = (/ &\n     &5.2217e-06_rb,1.3116e-05_rb,1.4207e-05_rb,1.2368e-05_rb,3.5492e-06_rb/)\n      kbo(:, 1,35, 1) = (/ &\n     &1.2683e-06_rb,3.4717e-06_rb,3.7843e-06_rb,3.4639e-06_rb,1.5033e-06_rb/)\n      kbo(:, 2,35, 1) = (/ &\n     &1.7130e-06_rb,4.7242e-06_rb,5.1321e-06_rb,4.6386e-06_rb,1.8045e-06_rb/)\n      kbo(:, 3,35, 1) = (/ &\n     &2.3598e-06_rb,6.3794e-06_rb,6.9043e-06_rb,6.1552e-06_rb,2.1312e-06_rb/)\n      kbo(:, 4,35, 1) = (/ &\n     &3.2533e-06_rb,8.4861e-06_rb,9.1773e-06_rb,8.0771e-06_rb,2.4797e-06_rb/)\n      kbo(:, 5,35, 1) = (/ &\n     &4.4317e-06_rb,1.1084e-05_rb,1.2009e-05_rb,1.0436e-05_rb,2.8460e-06_rb/)\n      kbo(:, 1,36, 1) = (/ &\n     &1.0446e-06_rb,2.8596e-06_rb,3.1142e-06_rb,2.8488e-06_rb,1.1841e-06_rb/)\n      kbo(:, 2,36, 1) = (/ &\n     &1.4115e-06_rb,3.8911e-06_rb,4.2236e-06_rb,3.8148e-06_rb,1.4188e-06_rb/)\n      kbo(:, 3,36, 1) = (/ &\n     &1.9447e-06_rb,5.2529e-06_rb,5.6822e-06_rb,5.0612e-06_rb,1.6763e-06_rb/)\n      kbo(:, 4,36, 1) = (/ &\n     &2.6806e-06_rb,6.9854e-06_rb,7.5506e-06_rb,6.6402e-06_rb,1.9492e-06_rb/)\n      kbo(:, 5,36, 1) = (/ &\n     &3.6503e-06_rb,9.1210e-06_rb,9.8800e-06_rb,8.5784e-06_rb,2.2478e-06_rb/)\n      kbo(:, 1,37, 1) = (/ &\n     &8.3141e-07_rb,2.2606e-06_rb,2.4589e-06_rb,2.2521e-06_rb,9.1953e-07_rb/)\n      kbo(:, 2,37, 1) = (/ &\n     &1.1186e-06_rb,3.0759e-06_rb,3.3374e-06_rb,3.0170e-06_rb,1.1075e-06_rb/)\n      kbo(:, 3,37, 1) = (/ &\n     &1.5392e-06_rb,4.1590e-06_rb,4.4972e-06_rb,4.0085e-06_rb,1.3109e-06_rb/)\n      kbo(:, 4,37, 1) = (/ &\n     &2.1232e-06_rb,5.5433e-06_rb,5.9872e-06_rb,5.2697e-06_rb,1.5318e-06_rb/)\n      kbo(:, 5,37, 1) = (/ &\n     &2.8971e-06_rb,7.2549e-06_rb,7.8520e-06_rb,6.8216e-06_rb,1.7720e-06_rb/)\n      kbo(:, 1,38, 1) = (/ &\n     &6.6100e-07_rb,1.7834e-06_rb,1.9371e-06_rb,1.7763e-06_rb,7.1225e-07_rb/)\n      kbo(:, 2,38, 1) = (/ &\n     &8.8499e-07_rb,2.4255e-06_rb,2.6307e-06_rb,2.3793e-06_rb,8.6302e-07_rb/)\n      kbo(:, 3,38, 1) = (/ &\n     &1.2155e-06_rb,3.2848e-06_rb,3.5503e-06_rb,3.1675e-06_rb,1.0267e-06_rb/)\n      kbo(:, 4,38, 1) = (/ &\n     &1.6779e-06_rb,4.3885e-06_rb,4.7364e-06_rb,4.1721e-06_rb,1.2041e-06_rb/)\n      kbo(:, 5,38, 1) = (/ &\n     &2.2938e-06_rb,5.7578e-06_rb,6.2256e-06_rb,5.4129e-06_rb,1.3941e-06_rb/)\n      kbo(:, 1,39, 1) = (/ &\n     &5.2622e-07_rb,1.4074e-06_rb,1.5268e-06_rb,1.4013e-06_rb,5.4821e-07_rb/)\n      kbo(:, 2,39, 1) = (/ &\n     &7.0069e-07_rb,1.9130e-06_rb,2.0737e-06_rb,1.8765e-06_rb,6.6832e-07_rb/)\n      kbo(:, 3,39, 1) = (/ &\n     &9.6029e-07_rb,2.5942e-06_rb,2.8023e-06_rb,2.5024e-06_rb,8.0073e-07_rb/)\n      kbo(:, 4,39, 1) = (/ &\n     &1.3259e-06_rb,3.4737e-06_rb,3.7464e-06_rb,3.3022e-06_rb,9.3841e-07_rb/)\n      kbo(:, 5,39, 1) = (/ &\n     &1.8162e-06_rb,4.5691e-06_rb,4.9354e-06_rb,4.2944e-06_rb,1.0896e-06_rb/)\n      kbo(:, 1,40, 1) = (/ &\n     &4.1271e-07_rb,1.0842e-06_rb,1.1736e-06_rb,1.0777e-06_rb,4.1787e-07_rb/)\n      kbo(:, 2,40, 1) = (/ &\n     &5.4389e-07_rb,1.4709e-06_rb,1.5926e-06_rb,1.4421e-06_rb,5.1017e-07_rb/)\n      kbo(:, 3,40, 1) = (/ &\n     &7.4188e-07_rb,1.9982e-06_rb,2.1561e-06_rb,1.9284e-06_rb,6.1575e-07_rb/)\n      kbo(:, 4,40, 1) = (/ &\n     &1.0242e-06_rb,2.6854e-06_rb,2.8924e-06_rb,2.5529e-06_rb,7.2613e-07_rb/)\n      kbo(:, 5,40, 1) = (/ &\n     &1.4067e-06_rb,3.5476e-06_rb,3.8249e-06_rb,3.3331e-06_rb,8.4610e-07_rb/)\n      kbo(:, 1,41, 1) = (/ &\n     &3.2432e-07_rb,8.3392e-07_rb,9.0025e-07_rb,8.2659e-07_rb,3.1699e-07_rb/)\n      kbo(:, 2,41, 1) = (/ &\n     &4.2215e-07_rb,1.1277e-06_rb,1.2186e-06_rb,1.1049e-06_rb,3.8959e-07_rb/)\n      kbo(:, 3,41, 1) = (/ &\n     &5.7203e-07_rb,1.5335e-06_rb,1.6530e-06_rb,1.4808e-06_rb,4.7229e-07_rb/)\n      kbo(:, 4,41, 1) = (/ &\n     &7.8892e-07_rb,2.0682e-06_rb,2.2251e-06_rb,1.9663e-06_rb,5.6019e-07_rb/)\n      kbo(:, 5,41, 1) = (/ &\n     &1.0862e-06_rb,2.7447e-06_rb,2.9535e-06_rb,2.5776e-06_rb,6.5591e-07_rb/)\n      kbo(:, 1,42, 1) = (/ &\n     &2.5587e-07_rb,6.4253e-07_rb,6.9167e-07_rb,6.3420e-07_rb,2.3952e-07_rb/)\n      kbo(:, 2,42, 1) = (/ &\n     &3.2863e-07_rb,8.6497e-07_rb,9.3264e-07_rb,8.4649e-07_rb,2.9775e-07_rb/)\n      kbo(:, 3,42, 1) = (/ &\n     &4.4164e-07_rb,1.1761e-06_rb,1.2667e-06_rb,1.1361e-06_rb,3.6120e-07_rb/)\n      kbo(:, 4,42, 1) = (/ &\n     &6.0774e-07_rb,1.5914e-06_rb,1.7100e-06_rb,1.5131e-06_rb,4.3157e-07_rb/)\n      kbo(:, 5,42, 1) = (/ &\n     &8.3802e-07_rb,2.1211e-06_rb,2.2785e-06_rb,1.9912e-06_rb,5.0721e-07_rb/)\n      kbo(:, 1,43, 1) = (/ &\n     &2.0233e-07_rb,4.9120e-07_rb,5.2639e-07_rb,4.8089e-07_rb,1.7965e-07_rb/)\n      kbo(:, 2,43, 1) = (/ &\n     &2.5538e-07_rb,6.5692e-07_rb,7.0547e-07_rb,6.4075e-07_rb,2.2496e-07_rb/)\n      kbo(:, 3,43, 1) = (/ &\n     &3.3917e-07_rb,8.9179e-07_rb,9.5869e-07_rb,8.5986e-07_rb,2.7469e-07_rb/)\n      kbo(:, 4,43, 1) = (/ &\n     &4.6446e-07_rb,1.2101e-06_rb,1.2978e-06_rb,1.1498e-06_rb,3.3044e-07_rb/)\n      kbo(:, 5,43, 1) = (/ &\n     &6.4112e-07_rb,1.6212e-06_rb,1.7373e-06_rb,1.5201e-06_rb,3.9028e-07_rb/)\n      kbo(:, 1,44, 1) = (/ &\n     &1.6122e-07_rb,3.7551e-07_rb,3.9960e-07_rb,3.6377e-07_rb,1.3351e-07_rb/)\n      kbo(:, 2,44, 1) = (/ &\n     &1.9938e-07_rb,4.9773e-07_rb,5.3195e-07_rb,4.8258e-07_rb,1.6857e-07_rb/)\n      kbo(:, 3,44, 1) = (/ &\n     &2.6075e-07_rb,6.7334e-07_rb,7.2162e-07_rb,6.4719e-07_rb,2.0768e-07_rb/)\n      kbo(:, 4,44, 1) = (/ &\n     &3.5440e-07_rb,9.1528e-07_rb,9.7926e-07_rb,8.6831e-07_rb,2.5128e-07_rb/)\n      kbo(:, 5,44, 1) = (/ &\n     &4.8882e-07_rb,1.2321e-06_rb,1.3171e-06_rb,1.1536e-06_rb,2.9843e-07_rb/)\n      kbo(:, 1,45, 1) = (/ &\n     &1.2988e-07_rb,2.8870e-07_rb,3.0532e-07_rb,2.7582e-07_rb,9.8684e-08_rb/)\n      kbo(:, 2,45, 1) = (/ &\n     &1.5689e-07_rb,3.7846e-07_rb,4.0235e-07_rb,3.6402e-07_rb,1.2561e-07_rb/)\n      kbo(:, 3,45, 1) = (/ &\n     &2.0165e-07_rb,5.0920e-07_rb,5.4343e-07_rb,4.8733e-07_rb,1.5620e-07_rb/)\n      kbo(:, 4,45, 1) = (/ &\n     &2.7120e-07_rb,6.9216e-07_rb,7.3881e-07_rb,6.5533e-07_rb,1.9009e-07_rb/)\n      kbo(:, 5,45, 1) = (/ &\n     &3.7310e-07_rb,9.3568e-07_rb,9.9762e-07_rb,8.7425e-07_rb,2.2785e-07_rb/)\n      kbo(:, 1,46, 1) = (/ &\n     &1.0564e-07_rb,2.2197e-07_rb,2.3290e-07_rb,2.0875e-07_rb,7.2454e-08_rb/)\n      kbo(:, 2,46, 1) = (/ &\n     &1.2404e-07_rb,2.8745e-07_rb,3.0379e-07_rb,2.7335e-07_rb,9.2971e-08_rb/)\n      kbo(:, 3,46, 1) = (/ &\n     &1.5624e-07_rb,3.8369e-07_rb,4.0737e-07_rb,3.6500e-07_rb,1.1671e-07_rb/)\n      kbo(:, 4,46, 1) = (/ &\n     &2.0727e-07_rb,5.2051e-07_rb,5.5407e-07_rb,4.9156e-07_rb,1.4314e-07_rb/)\n      kbo(:, 5,46, 1) = (/ &\n     &2.8357e-07_rb,7.0586e-07_rb,7.5047e-07_rb,6.5798e-07_rb,1.7235e-07_rb/)\n      kbo(:, 1,47, 1) = (/ &\n     &8.6916e-08_rb,1.7066e-07_rb,1.7731e-07_rb,1.5740e-07_rb,5.2956e-08_rb/)\n      kbo(:, 2,47, 1) = (/ &\n     &9.8603e-08_rb,2.1737e-07_rb,2.2800e-07_rb,2.0365e-07_rb,6.8355e-08_rb/)\n      kbo(:, 3,47, 1) = (/ &\n     &1.2114e-07_rb,2.8693e-07_rb,3.0257e-07_rb,2.7060e-07_rb,8.6098e-08_rb/)\n      kbo(:, 4,47, 1) = (/ &\n     &1.5770e-07_rb,3.8735e-07_rb,4.1075e-07_rb,3.6401e-07_rb,1.0681e-07_rb/)\n      kbo(:, 5,47, 1) = (/ &\n     &2.1366e-07_rb,5.2607e-07_rb,5.5766e-07_rb,4.8899e-07_rb,1.2936e-07_rb/)\n      kbo(:, 1,48, 1) = (/ &\n     &7.2690e-08_rb,1.3243e-07_rb,1.3635e-07_rb,1.1959e-07_rb,3.9422e-08_rb/)\n      kbo(:, 2,48, 1) = (/ &\n     &7.9634e-08_rb,1.6556e-07_rb,1.7235e-07_rb,1.5270e-07_rb,4.9882e-08_rb/)\n      kbo(:, 3,48, 1) = (/ &\n     &9.5002e-08_rb,2.1570e-07_rb,2.2592e-07_rb,2.0102e-07_rb,6.3148e-08_rb/)\n      kbo(:, 4,48, 1) = (/ &\n     &1.2105e-07_rb,2.8907e-07_rb,3.0482e-07_rb,2.6976e-07_rb,7.9242e-08_rb/)\n      kbo(:, 5,48, 1) = (/ &\n     &1.6180e-07_rb,3.9224e-07_rb,4.1437e-07_rb,3.6322e-07_rb,9.6936e-08_rb/)\n      kbo(:, 1,49, 1) = (/ &\n     &6.1774e-08_rb,1.0401e-07_rb,1.0607e-07_rb,9.1394e-08_rb,2.9238e-08_rb/)\n      kbo(:, 2,49, 1) = (/ &\n     &6.5366e-08_rb,1.2732e-07_rb,1.3151e-07_rb,1.1526e-07_rb,3.6075e-08_rb/)\n      kbo(:, 3,49, 1) = (/ &\n     &7.5416e-08_rb,1.6321e-07_rb,1.6967e-07_rb,1.4985e-07_rb,4.6286e-08_rb/)\n      kbo(:, 4,49, 1) = (/ &\n     &9.3863e-08_rb,2.1656e-07_rb,2.2682e-07_rb,2.0018e-07_rb,5.8261e-08_rb/)\n      kbo(:, 5,49, 1) = (/ &\n     &1.2334e-07_rb,2.9285e-07_rb,3.0807e-07_rb,2.6986e-07_rb,7.1843e-08_rb/)\n      kbo(:, 1,50, 1) = (/ &\n     &5.3206e-08_rb,8.3103e-08_rb,8.3626e-08_rb,7.1042e-08_rb,2.0418e-08_rb/)\n      kbo(:, 2,50, 1) = (/ &\n     &5.4599e-08_rb,9.9314e-08_rb,1.0171e-07_rb,8.8074e-08_rb,2.6669e-08_rb/)\n      kbo(:, 3,50, 1) = (/ &\n     &6.0981e-08_rb,1.2515e-07_rb,1.2917e-07_rb,1.1305e-07_rb,3.4171e-08_rb/)\n      kbo(:, 4,50, 1) = (/ &\n     &7.3992e-08_rb,1.6416e-07_rb,1.7066e-07_rb,1.4995e-07_rb,4.3100e-08_rb/)\n      kbo(:, 5,50, 1) = (/ &\n     &9.5401e-08_rb,2.2074e-07_rb,2.3106e-07_rb,2.0200e-07_rb,5.3679e-08_rb/)\n      kbo(:, 1,51, 1) = (/ &\n     &4.6282e-08_rb,6.7151e-08_rb,6.6436e-08_rb,5.6117e-08_rb,1.4310e-08_rb/)\n      kbo(:, 2,51, 1) = (/ &\n     &4.6293e-08_rb,7.8464e-08_rb,7.9611e-08_rb,6.7952e-08_rb,2.0313e-08_rb/)\n      kbo(:, 3,51, 1) = (/ &\n     &5.0084e-08_rb,9.7036e-08_rb,9.9288e-08_rb,8.6023e-08_rb,2.5137e-08_rb/)\n      kbo(:, 4,51, 1) = (/ &\n     &5.9071e-08_rb,1.2553e-07_rb,1.2948e-07_rb,1.1300e-07_rb,3.2036e-08_rb/)\n      kbo(:, 5,51, 1) = (/ &\n     &7.4640e-08_rb,1.6747e-07_rb,1.7423e-07_rb,1.5170e-07_rb,4.0217e-08_rb/)\n      kbo(:, 1,52, 1) = (/ &\n     &4.0629e-08_rb,5.4875e-08_rb,5.3346e-08_rb,4.4940e-08_rb,9.9095e-09_rb/)\n      kbo(:, 2,52, 1) = (/ &\n     &3.9810e-08_rb,6.2753e-08_rb,6.2779e-08_rb,5.3045e-08_rb,1.4355e-08_rb/)\n      kbo(:, 3,52, 1) = (/ &\n     &4.1749e-08_rb,7.5935e-08_rb,7.6945e-08_rb,6.5932e-08_rb,1.8547e-08_rb/)\n      kbo(:, 4,52, 1) = (/ &\n     &4.7734e-08_rb,9.6672e-08_rb,9.8927e-08_rb,8.5559e-08_rb,2.3788e-08_rb/)\n      kbo(:, 5,52, 1) = (/ &\n     &5.9002e-08_rb,1.2763e-07_rb,1.3186e-07_rb,1.1423e-07_rb,2.9932e-08_rb/)\n      kbo(:, 1,53, 1) = (/ &\n     &3.5975e-08_rb,4.5399e-08_rb,4.2771e-08_rb,3.6200e-08_rb,6.7635e-09_rb/)\n      kbo(:, 2,53, 1) = (/ &\n     &3.4672e-08_rb,5.0776e-08_rb,4.9763e-08_rb,4.1778e-08_rb,1.0001e-08_rb/)\n      kbo(:, 3,53, 1) = (/ &\n     &3.5325e-08_rb,6.0020e-08_rb,6.0156e-08_rb,5.0998e-08_rb,1.3726e-08_rb/)\n      kbo(:, 4,53, 1) = (/ &\n     &3.9133e-08_rb,7.5038e-08_rb,7.6143e-08_rb,6.5063e-08_rb,1.7480e-08_rb/)\n      kbo(:, 5,53, 1) = (/ &\n     &4.7140e-08_rb,9.7792e-08_rb,1.0026e-07_rb,8.6276e-08_rb,2.2211e-08_rb/)\n      kbo(:, 1,54, 1) = (/ &\n     &3.2026e-08_rb,3.8173e-08_rb,3.4913e-08_rb,2.9554e-08_rb,4.7895e-09_rb/)\n      kbo(:, 2,54, 1) = (/ &\n     &3.0459e-08_rb,4.1712e-08_rb,4.0172e-08_rb,3.3417e-08_rb,7.2202e-09_rb/)\n      kbo(:, 3,54, 1) = (/ &\n     &3.0344e-08_rb,4.8248e-08_rb,4.7728e-08_rb,3.9999e-08_rb,1.0387e-08_rb/)\n      kbo(:, 4,54, 1) = (/ &\n     &3.2650e-08_rb,5.9169e-08_rb,5.9453e-08_rb,5.0241e-08_rb,1.3202e-08_rb/)\n      kbo(:, 5,54, 1) = (/ &\n     &3.8298e-08_rb,7.6040e-08_rb,7.7304e-08_rb,6.5975e-08_rb,1.6815e-08_rb/)\n      kbo(:, 1,55, 1) = (/ &\n     &2.8677e-08_rb,3.2441e-08_rb,2.8748e-08_rb,2.4151e-08_rb,3.5459e-09_rb/)\n      kbo(:, 2,55, 1) = (/ &\n     &2.6981e-08_rb,3.4720e-08_rb,3.2391e-08_rb,2.6974e-08_rb,5.3560e-09_rb/)\n      kbo(:, 3,55, 1) = (/ &\n     &2.6409e-08_rb,3.9355e-08_rb,3.8167e-08_rb,3.1739e-08_rb,7.7448e-09_rb/)\n      kbo(:, 4,55, 1) = (/ &\n     &2.7649e-08_rb,4.7215e-08_rb,4.6970e-08_rb,3.9144e-08_rb,1.0056e-08_rb/)\n      kbo(:, 5,55, 1) = (/ &\n     &3.1553e-08_rb,5.9776e-08_rb,6.0219e-08_rb,5.0851e-08_rb,1.2897e-08_rb/)\n      kbo(:, 1,56, 1) = (/ &\n     &2.5871e-08_rb,2.7896e-08_rb,2.4025e-08_rb,1.9941e-08_rb,2.5789e-09_rb/)\n      kbo(:, 2,56, 1) = (/ &\n     &2.4111e-08_rb,2.9230e-08_rb,2.6562e-08_rb,2.2012e-08_rb,3.9211e-09_rb/)\n      kbo(:, 3,56, 1) = (/ &\n     &2.3260e-08_rb,3.2443e-08_rb,3.0891e-08_rb,2.5392e-08_rb,5.7991e-09_rb/)\n      kbo(:, 4,56, 1) = (/ &\n     &2.3744e-08_rb,3.8105e-08_rb,3.7441e-08_rb,3.0750e-08_rb,7.7370e-09_rb/)\n      kbo(:, 5,56, 1) = (/ &\n     &2.6357e-08_rb,4.7419e-08_rb,4.7264e-08_rb,3.9435e-08_rb,9.8948e-09_rb/)\n      kbo(:, 1,57, 1) = (/ &\n     &2.3535e-08_rb,2.4259e-08_rb,2.0309e-08_rb,1.6435e-08_rb,1.8424e-09_rb/)\n      kbo(:, 2,57, 1) = (/ &\n     &2.1750e-08_rb,2.4981e-08_rb,2.1975e-08_rb,1.7965e-08_rb,2.8485e-09_rb/)\n      kbo(:, 3,57, 1) = (/ &\n     &2.0716e-08_rb,2.7095e-08_rb,2.5073e-08_rb,2.0518e-08_rb,4.3296e-09_rb/)\n      kbo(:, 4,57, 1) = (/ &\n     &2.0688e-08_rb,3.1150e-08_rb,2.9998e-08_rb,2.4389e-08_rb,6.0949e-09_rb/)\n      kbo(:, 5,57, 1) = (/ &\n     &2.2336e-08_rb,3.7957e-08_rb,3.7415e-08_rb,3.0783e-08_rb,7.5649e-09_rb/)\n      kbo(:, 1,58, 1) = (/ &\n     &1.0425e-08_rb,1.1830e-08_rb,1.1340e-08_rb,1.0982e-08_rb,1.3443e-09_rb/)\n      kbo(:, 2,58, 1) = (/ &\n     &9.5648e-09_rb,1.2002e-08_rb,1.2045e-08_rb,1.1710e-08_rb,2.0849e-09_rb/)\n      kbo(:, 3,58, 1) = (/ &\n     &9.0146e-09_rb,1.2747e-08_rb,1.3512e-08_rb,1.3201e-08_rb,3.2654e-09_rb/)\n      kbo(:, 4,58, 1) = (/ &\n     &8.8493e-09_rb,1.4369e-08_rb,1.5929e-08_rb,1.5466e-08_rb,4.7356e-09_rb/)\n      kbo(:, 5,58, 1) = (/ &\n     &9.3086e-09_rb,1.7138e-08_rb,1.9573e-08_rb,1.9214e-08_rb,5.8278e-09_rb/)\n      kbo(:, 1,59, 1) = (/ &\n     &9.0380e-09_rb,1.0080e-08_rb,9.6059e-09_rb,9.1584e-09_rb,1.1081e-09_rb/)\n      kbo(:, 2,59, 1) = (/ &\n     &8.2691e-09_rb,1.0165e-08_rb,1.0115e-08_rb,9.7014e-09_rb,1.7533e-09_rb/)\n      kbo(:, 3,59, 1) = (/ &\n     &7.7641e-09_rb,1.0688e-08_rb,1.1200e-08_rb,1.0889e-08_rb,2.7394e-09_rb/)\n      kbo(:, 4,59, 1) = (/ &\n     &7.5756e-09_rb,1.1927e-08_rb,1.3083e-08_rb,1.2667e-08_rb,3.9313e-09_rb/)\n      kbo(:, 5,59, 1) = (/ &\n     &7.8886e-09_rb,1.4088e-08_rb,1.5992e-08_rb,1.5688e-08_rb,4.8202e-09_rb/)\n      kbo(:, 1,13, 2) = (/ &\n     &2.3347e-04_rb,3.2740e-04_rb,3.1964e-04_rb,2.7562e-04_rb,2.3674e-04_rb/)\n      kbo(:, 2,13, 2) = (/ &\n     &2.9027e-04_rb,4.3170e-04_rb,4.3482e-04_rb,3.8943e-04_rb,3.2365e-04_rb/)\n      kbo(:, 3,13, 2) = (/ &\n     &3.9534e-04_rb,6.0684e-04_rb,6.1602e-04_rb,5.5281e-04_rb,4.2550e-04_rb/)\n      kbo(:, 4,13, 2) = (/ &\n     &5.7501e-04_rb,8.8229e-04_rb,8.9214e-04_rb,7.8504e-04_rb,5.3481e-04_rb/)\n      kbo(:, 5,13, 2) = (/ &\n     &8.7274e-04_rb,1.2992e-03_rb,1.2957e-03_rb,1.1072e-03_rb,6.5845e-04_rb/)\n      kbo(:, 1,14, 2) = (/ &\n     &2.0019e-04_rb,2.7999e-04_rb,2.7248e-04_rb,2.3561e-04_rb,2.0892e-04_rb/)\n      kbo(:, 2,14, 2) = (/ &\n     &2.5252e-04_rb,3.7448e-04_rb,3.7546e-04_rb,3.3478e-04_rb,2.8574e-04_rb/)\n      kbo(:, 3,14, 2) = (/ &\n     &3.4599e-04_rb,5.3246e-04_rb,5.3788e-04_rb,4.7751e-04_rb,3.6978e-04_rb/)\n      kbo(:, 4,14, 2) = (/ &\n     &5.0873e-04_rb,7.7992e-04_rb,7.8607e-04_rb,6.8145e-04_rb,4.6369e-04_rb/)\n      kbo(:, 5,14, 2) = (/ &\n     &7.7937e-04_rb,1.1544e-03_rb,1.1464e-03_rb,9.6300e-04_rb,5.7084e-04_rb/)\n      kbo(:, 1,15, 2) = (/ &\n     &1.6496e-04_rb,2.3313e-04_rb,2.2745e-04_rb,1.9815e-04_rb,1.7191e-04_rb/)\n      kbo(:, 2,15, 2) = (/ &\n     &2.0995e-04_rb,3.1642e-04_rb,3.1725e-04_rb,2.8352e-04_rb,2.3300e-04_rb/)\n      kbo(:, 3,15, 2) = (/ &\n     &2.9058e-04_rb,4.5406e-04_rb,4.6090e-04_rb,4.0582e-04_rb,3.0079e-04_rb/)\n      kbo(:, 4,15, 2) = (/ &\n     &4.3180e-04_rb,6.6786e-04_rb,6.7439e-04_rb,5.7938e-04_rb,3.7802e-04_rb/)\n      kbo(:, 5,15, 2) = (/ &\n     &6.6674e-04_rb,9.9697e-04_rb,9.8451e-04_rb,8.2076e-04_rb,4.7099e-04_rb/)\n      kbo(:, 1,16, 2) = (/ &\n     &1.3273e-04_rb,1.9160e-04_rb,1.8863e-04_rb,1.6534e-04_rb,1.4034e-04_rb/)\n      kbo(:, 2,16, 2) = (/ &\n     &1.7022e-04_rb,2.6274e-04_rb,2.6590e-04_rb,2.3774e-04_rb,1.8655e-04_rb/)\n      kbo(:, 3,16, 2) = (/ &\n     &2.3798e-04_rb,3.7894e-04_rb,3.8748e-04_rb,3.4032e-04_rb,2.3998e-04_rb/)\n      kbo(:, 4,16, 2) = (/ &\n     &3.5812e-04_rb,5.6381e-04_rb,5.6807e-04_rb,4.8599e-04_rb,3.0617e-04_rb/)\n      kbo(:, 5,16, 2) = (/ &\n     &5.5540e-04_rb,8.4478e-04_rb,8.3109e-04_rb,6.8770e-04_rb,3.7973e-04_rb/)\n      kbo(:, 1,17, 2) = (/ &\n     &1.0577e-04_rb,1.5680e-04_rb,1.5536e-04_rb,1.3786e-04_rb,1.1416e-04_rb/)\n      kbo(:, 2,17, 2) = (/ &\n     &1.3659e-04_rb,2.1658e-04_rb,2.2147e-04_rb,1.9766e-04_rb,1.5136e-04_rb/)\n      kbo(:, 3,17, 2) = (/ &\n     &1.9353e-04_rb,3.1591e-04_rb,3.2447e-04_rb,2.8337e-04_rb,1.9661e-04_rb/)\n      kbo(:, 4,17, 2) = (/ &\n     &2.9393e-04_rb,4.7241e-04_rb,4.7609e-04_rb,4.0460e-04_rb,2.4887e-04_rb/)\n      kbo(:, 5,17, 2) = (/ &\n     &4.5598e-04_rb,7.0740e-04_rb,6.9589e-04_rb,5.7452e-04_rb,3.0304e-04_rb/)\n      kbo(:, 1,18, 2) = (/ &\n     &8.2750e-05_rb,1.2686e-04_rb,1.2742e-04_rb,1.1403e-04_rb,9.3961e-05_rb/)\n      kbo(:, 2,18, 2) = (/ &\n     &1.0793e-04_rb,1.7707e-04_rb,1.8353e-04_rb,1.6336e-04_rb,1.2524e-04_rb/)\n      kbo(:, 3,18, 2) = (/ &\n     &1.5481e-04_rb,2.6078e-04_rb,2.6950e-04_rb,2.3444e-04_rb,1.6211e-04_rb/)\n      kbo(:, 4,18, 2) = (/ &\n     &2.3641e-04_rb,3.9024e-04_rb,3.9536e-04_rb,3.3586e-04_rb,2.0255e-04_rb/)\n      kbo(:, 5,18, 2) = (/ &\n     &3.6699e-04_rb,5.8299e-04_rb,5.7531e-04_rb,4.7694e-04_rb,2.4459e-04_rb/)\n      kbo(:, 1,19, 2) = (/ &\n     &6.5789e-05_rb,1.0377e-04_rb,1.0573e-04_rb,9.4747e-05_rb,7.8309e-05_rb/)\n      kbo(:, 2,19, 2) = (/ &\n     &8.6739e-05_rb,1.4667e-04_rb,1.5321e-04_rb,1.3630e-04_rb,1.0400e-04_rb/)\n      kbo(:, 3,19, 2) = (/ &\n     &1.2570e-04_rb,2.1696e-04_rb,2.2493e-04_rb,1.9585e-04_rb,1.3355e-04_rb/)\n      kbo(:, 4,19, 2) = (/ &\n     &1.9254e-04_rb,3.2492e-04_rb,3.2972e-04_rb,2.8110e-04_rb,1.6478e-04_rb/)\n      kbo(:, 5,19, 2) = (/ &\n     &2.9952e-04_rb,4.8402e-04_rb,4.8010e-04_rb,3.9892e-04_rb,1.9831e-04_rb/)\n      kbo(:, 1,20, 2) = (/ &\n     &5.3588e-05_rb,8.6632e-05_rb,8.9247e-05_rb,8.0067e-05_rb,6.5775e-05_rb/)\n      kbo(:, 2,20, 2) = (/ &\n     &7.1606e-05_rb,1.2377e-04_rb,1.3011e-04_rb,1.1561e-04_rb,8.7374e-05_rb/)\n      kbo(:, 3,20, 2) = (/ &\n     &1.0490e-04_rb,1.8400e-04_rb,1.9125e-04_rb,1.6630e-04_rb,1.1025e-04_rb/)\n      kbo(:, 4,20, 2) = (/ &\n     &1.6107e-04_rb,2.7570e-04_rb,2.7972e-04_rb,2.3864e-04_rb,1.3590e-04_rb/)\n      kbo(:, 5,20, 2) = (/ &\n     &2.5044e-04_rb,4.0870e-04_rb,4.0643e-04_rb,3.3832e-04_rb,1.6243e-04_rb/)\n      kbo(:, 1,21, 2) = (/ &\n     &4.3995e-05_rb,7.2776e-05_rb,7.5695e-05_rb,6.8050e-05_rb,5.5495e-05_rb/)\n      kbo(:, 2,21, 2) = (/ &\n     &5.9611e-05_rb,1.0482e-04_rb,1.1056e-04_rb,9.8202e-05_rb,7.3158e-05_rb/)\n      kbo(:, 3,21, 2) = (/ &\n     &8.7989e-05_rb,1.5634e-04_rb,1.6268e-04_rb,1.4172e-04_rb,9.0987e-05_rb/)\n      kbo(:, 4,21, 2) = (/ &\n     &1.3548e-04_rb,2.3394e-04_rb,2.3798e-04_rb,2.0295e-04_rb,1.1189e-04_rb/)\n      kbo(:, 5,21, 2) = (/ &\n     &2.1032e-04_rb,3.4525e-04_rb,3.4399e-04_rb,2.8683e-04_rb,1.3326e-04_rb/)\n      kbo(:, 1,22, 2) = (/ &\n     &3.6803e-05_rb,6.2518e-05_rb,6.5746e-05_rb,5.8989e-05_rb,4.7547e-05_rb/)\n      kbo(:, 2,22, 2) = (/ &\n     &5.0761e-05_rb,9.1003e-05_rb,9.6193e-05_rb,8.5393e-05_rb,6.0785e-05_rb/)\n      kbo(:, 3,22, 2) = (/ &\n     &7.5680e-05_rb,1.3601e-04_rb,1.4124e-04_rb,1.2316e-04_rb,7.5929e-05_rb/)\n      kbo(:, 4,22, 2) = (/ &\n     &1.1711e-04_rb,2.0303e-04_rb,2.0625e-04_rb,1.7599e-04_rb,9.2008e-05_rb/)\n      kbo(:, 5,22, 2) = (/ &\n     &1.8108e-04_rb,2.9768e-04_rb,2.9683e-04_rb,2.4768e-04_rb,1.0998e-04_rb/)\n      kbo(:, 1,23, 2) = (/ &\n     &3.1003e-05_rb,5.3823e-05_rb,5.7061e-05_rb,5.1271e-05_rb,4.0280e-05_rb/)\n      kbo(:, 2,23, 2) = (/ &\n     &4.3496e-05_rb,7.9103e-05_rb,8.3635e-05_rb,7.4369e-05_rb,5.0624e-05_rb/)\n      kbo(:, 3,23, 2) = (/ &\n     &6.5401e-05_rb,1.1830e-04_rb,1.2269e-04_rb,1.0707e-04_rb,6.2127e-05_rb/)\n      kbo(:, 4,23, 2) = (/ &\n     &1.0147e-04_rb,1.7576e-04_rb,1.7852e-04_rb,1.5248e-04_rb,7.5578e-05_rb/)\n      kbo(:, 5,23, 2) = (/ &\n     &1.5625e-04_rb,2.5690e-04_rb,2.5634e-04_rb,2.1357e-04_rb,9.0733e-05_rb/)\n      kbo(:, 1,24, 2) = (/ &\n     &2.6471e-05_rb,4.6863e-05_rb,4.9818e-05_rb,4.4807e-05_rb,3.2886e-05_rb/)\n      kbo(:, 2,24, 2) = (/ &\n     &3.7731e-05_rb,6.9280e-05_rb,7.2915e-05_rb,6.4892e-05_rb,4.1198e-05_rb/)\n      kbo(:, 3,24, 2) = (/ &\n     &5.7248e-05_rb,1.0347e-04_rb,1.0698e-04_rb,9.3403e-05_rb,5.0808e-05_rb/)\n      kbo(:, 4,24, 2) = (/ &\n     &8.8791e-05_rb,1.5319e-04_rb,1.5530e-04_rb,1.3247e-04_rb,6.1812e-05_rb/)\n      kbo(:, 5,24, 2) = (/ &\n     &1.3624e-04_rb,2.2303e-04_rb,2.2220e-04_rb,1.8474e-04_rb,7.4324e-05_rb/)\n      kbo(:, 1,25, 2) = (/ &\n     &2.2808e-05_rb,4.1048e-05_rb,4.3589e-05_rb,3.9316e-05_rb,2.6891e-05_rb/)\n      kbo(:, 2,25, 2) = (/ &\n     &3.2985e-05_rb,6.0936e-05_rb,6.3907e-05_rb,5.6898e-05_rb,3.3888e-05_rb/)\n      kbo(:, 3,25, 2) = (/ &\n     &5.0481e-05_rb,9.0713e-05_rb,9.3687e-05_rb,8.1693e-05_rb,4.1615e-05_rb/)\n      kbo(:, 4,25, 2) = (/ &\n     &7.8151e-05_rb,1.3406e-04_rb,1.3563e-04_rb,1.1547e-04_rb,5.0834e-05_rb/)\n      kbo(:, 5,25, 2) = (/ &\n     &1.1946e-04_rb,1.9452e-04_rb,1.9337e-04_rb,1.6037e-04_rb,6.0346e-05_rb/)\n      kbo(:, 1,26, 2) = (/ &\n     &1.9934e-05_rb,3.6349e-05_rb,3.8562e-05_rb,3.4809e-05_rb,2.2369e-05_rb/)\n      kbo(:, 2,26, 2) = (/ &\n     &2.9291e-05_rb,5.4051e-05_rb,5.6667e-05_rb,5.0301e-05_rb,2.7895e-05_rb/)\n      kbo(:, 3,26, 2) = (/ &\n     &4.5044e-05_rb,8.0419e-05_rb,8.2812e-05_rb,7.2007e-05_rb,3.4611e-05_rb/)\n      kbo(:, 4,26, 2) = (/ &\n     &6.9643e-05_rb,1.1855e-04_rb,1.1958e-04_rb,1.0144e-04_rb,4.1836e-05_rb/)\n      kbo(:, 5,26, 2) = (/ &\n     &1.0589e-04_rb,1.7128e-04_rb,1.6969e-04_rb,1.4033e-04_rb,4.9219e-05_rb/)\n      kbo(:, 1,27, 2) = (/ &\n     &1.7559e-05_rb,3.2313e-05_rb,3.4216e-05_rb,3.0835e-05_rb,1.8255e-05_rb/)\n      kbo(:, 2,27, 2) = (/ &\n     &2.6182e-05_rb,4.8079e-05_rb,5.0267e-05_rb,4.4498e-05_rb,2.3042e-05_rb/)\n      kbo(:, 3,27, 2) = (/ &\n     &4.0350e-05_rb,7.1540e-05_rb,7.3359e-05_rb,6.3538e-05_rb,2.8359e-05_rb/)\n      kbo(:, 4,27, 2) = (/ &\n     &6.2227e-05_rb,1.0500e-04_rb,1.0550e-04_rb,8.9231e-05_rb,3.3804e-05_rb/)\n      kbo(:, 5,27, 2) = (/ &\n     &9.4129e-05_rb,1.5114e-04_rb,1.4903e-04_rb,1.2285e-04_rb,4.0082e-05_rb/)\n      kbo(:, 1,28, 2) = (/ &\n     &1.5570e-05_rb,2.8729e-05_rb,3.0391e-05_rb,2.7331e-05_rb,1.4928e-05_rb/)\n      kbo(:, 2,28, 2) = (/ &\n     &2.3454e-05_rb,4.2868e-05_rb,4.4647e-05_rb,3.9416e-05_rb,1.8685e-05_rb/)\n      kbo(:, 3,28, 2) = (/ &\n     &3.6218e-05_rb,6.3627e-05_rb,6.4995e-05_rb,5.6106e-05_rb,2.2770e-05_rb/)\n      kbo(:, 4,28, 2) = (/ &\n     &5.5686e-05_rb,9.3113e-05_rb,9.3100e-05_rb,7.8497e-05_rb,2.7363e-05_rb/)\n      kbo(:, 5,28, 2) = (/ &\n     &8.3686e-05_rb,1.3339e-04_rb,1.3104e-04_rb,1.0755e-04_rb,3.2541e-05_rb/)\n      kbo(:, 1,29, 2) = (/ &\n     &1.3843e-05_rb,2.5623e-05_rb,2.7065e-05_rb,2.4295e-05_rb,1.2134e-05_rb/)\n      kbo(:, 2,29, 2) = (/ &\n     &2.1009e-05_rb,3.8248e-05_rb,3.9732e-05_rb,3.4977e-05_rb,1.5044e-05_rb/)\n      kbo(:, 3,29, 2) = (/ &\n     &3.2483e-05_rb,5.6676e-05_rb,5.7569e-05_rb,4.9592e-05_rb,1.8408e-05_rb/)\n      kbo(:, 4,29, 2) = (/ &\n     &4.9712e-05_rb,8.2574e-05_rb,8.2234e-05_rb,6.9025e-05_rb,2.2259e-05_rb/)\n      kbo(:, 5,29, 2) = (/ &\n     &7.4303e-05_rb,1.1753e-04_rb,1.1526e-04_rb,9.4159e-05_rb,2.6343e-05_rb/)\n      kbo(:, 1,30, 2) = (/ &\n     &1.2283e-05_rb,2.2826e-05_rb,2.4077e-05_rb,2.1586e-05_rb,9.7017e-06_rb/)\n      kbo(:, 2,30, 2) = (/ &\n     &1.8796e-05_rb,3.4070e-05_rb,3.5216e-05_rb,3.0990e-05_rb,1.2060e-05_rb/)\n      kbo(:, 3,30, 2) = (/ &\n     &2.9052e-05_rb,5.0361e-05_rb,5.0950e-05_rb,4.3716e-05_rb,1.4847e-05_rb/)\n      kbo(:, 4,30, 2) = (/ &\n     &4.4245e-05_rb,7.2929e-05_rb,7.2487e-05_rb,6.0571e-05_rb,1.7868e-05_rb/)\n      kbo(:, 5,30, 2) = (/ &\n     &6.5686e-05_rb,1.0336e-04_rb,1.0108e-04_rb,8.2235e-05_rb,2.0877e-05_rb/)\n      kbo(:, 1,31, 2) = (/ &\n     &1.0864e-05_rb,2.0303e-05_rb,2.1341e-05_rb,1.9138e-05_rb,7.8312e-06_rb/)\n      kbo(:, 2,31, 2) = (/ &\n     &1.6718e-05_rb,3.0263e-05_rb,3.1180e-05_rb,2.7363e-05_rb,9.6909e-06_rb/)\n      kbo(:, 3,31, 2) = (/ &\n     &2.5784e-05_rb,4.4485e-05_rb,4.4959e-05_rb,3.8436e-05_rb,1.1703e-05_rb/)\n      kbo(:, 4,31, 2) = (/ &\n     &3.9035e-05_rb,6.4113e-05_rb,6.3593e-05_rb,5.2930e-05_rb,1.4083e-05_rb/)\n      kbo(:, 5,31, 2) = (/ &\n     &5.7600e-05_rb,9.0427e-05_rb,8.8190e-05_rb,7.1491e-05_rb,1.6696e-05_rb/)\n      kbo(:, 1,32, 2) = (/ &\n     &9.6861e-06_rb,1.8129e-05_rb,1.9009e-05_rb,1.7005e-05_rb,6.3389e-06_rb/)\n      kbo(:, 2,32, 2) = (/ &\n     &1.4957e-05_rb,2.6929e-05_rb,2.7692e-05_rb,2.4209e-05_rb,7.7689e-06_rb/)\n      kbo(:, 3,32, 2) = (/ &\n     &2.2989e-05_rb,3.9434e-05_rb,3.9744e-05_rb,3.3837e-05_rb,9.3738e-06_rb/)\n      kbo(:, 4,32, 2) = (/ &\n     &3.4606e-05_rb,5.6545e-05_rb,5.5926e-05_rb,4.6356e-05_rb,1.1253e-05_rb/)\n      kbo(:, 5,32, 2) = (/ &\n     &5.0712e-05_rb,7.9301e-05_rb,7.7059e-05_rb,6.2285e-05_rb,1.3276e-05_rb/)\n      kbo(:, 1,33, 2) = (/ &\n     &8.6881e-06_rb,1.6215e-05_rb,1.6965e-05_rb,1.5122e-05_rb,5.0839e-06_rb/)\n      kbo(:, 2,33, 2) = (/ &\n     &1.3426e-05_rb,2.4037e-05_rb,2.4628e-05_rb,2.1434e-05_rb,6.2318e-06_rb/)\n      kbo(:, 3,33, 2) = (/ &\n     &2.0550e-05_rb,3.5027e-05_rb,3.5160e-05_rb,2.9820e-05_rb,7.5123e-06_rb/)\n      kbo(:, 4,33, 2) = (/ &\n     &3.0762e-05_rb,4.9971e-05_rb,4.9236e-05_rb,4.0640e-05_rb,8.9286e-06_rb/)\n      kbo(:, 5,33, 2) = (/ &\n     &4.4719e-05_rb,6.9592e-05_rb,6.7432e-05_rb,5.4322e-05_rb,1.0569e-05_rb/)\n      kbo(:, 1,34, 2) = (/ &\n     &7.7791e-06_rb,1.4442e-05_rb,1.5046e-05_rb,1.3360e-05_rb,4.1600e-06_rb/)\n      kbo(:, 2,34, 2) = (/ &\n     &1.2019e-05_rb,2.1346e-05_rb,2.1771e-05_rb,1.8857e-05_rb,5.0353e-06_rb/)\n      kbo(:, 3,34, 2) = (/ &\n     &1.8324e-05_rb,3.0972e-05_rb,3.0949e-05_rb,2.6117e-05_rb,6.0447e-06_rb/)\n      kbo(:, 4,34, 2) = (/ &\n     &2.7261e-05_rb,4.3932e-05_rb,4.3157e-05_rb,3.5442e-05_rb,7.1905e-06_rb/)\n      kbo(:, 5,34, 2) = (/ &\n     &3.9385e-05_rb,6.0888e-05_rb,5.8795e-05_rb,4.7179e-05_rb,8.5133e-06_rb/)\n      kbo(:, 1,35, 2) = (/ &\n     &6.6949e-06_rb,1.2390e-05_rb,1.2873e-05_rb,1.1410e-05_rb,3.2837e-06_rb/)\n      kbo(:, 2,35, 2) = (/ &\n     &1.0342e-05_rb,1.8289e-05_rb,1.8599e-05_rb,1.6068e-05_rb,4.0072e-06_rb/)\n      kbo(:, 3,35, 2) = (/ &\n     &1.5729e-05_rb,2.6447e-05_rb,2.6382e-05_rb,2.2198e-05_rb,4.8111e-06_rb/)\n      kbo(:, 4,35, 2) = (/ &\n     &2.3326e-05_rb,3.7424e-05_rb,3.6694e-05_rb,3.0052e-05_rb,5.7503e-06_rb/)\n      kbo(:, 5,35, 2) = (/ &\n     &3.3582e-05_rb,5.1735e-05_rb,4.9852e-05_rb,3.9921e-05_rb,6.8317e-06_rb/)\n      kbo(:, 1,36, 2) = (/ &\n     &5.5116e-06_rb,1.0195e-05_rb,1.0585e-05_rb,9.3814e-06_rb,2.5556e-06_rb/)\n      kbo(:, 2,36, 2) = (/ &\n     &8.5137e-06_rb,1.5037e-05_rb,1.5296e-05_rb,1.3209e-05_rb,3.1325e-06_rb/)\n      kbo(:, 3,36, 2) = (/ &\n     &1.2948e-05_rb,2.1753e-05_rb,2.1694e-05_rb,1.8250e-05_rb,3.7680e-06_rb/)\n      kbo(:, 4,36, 2) = (/ &\n     &1.9198e-05_rb,3.0787e-05_rb,3.0171e-05_rb,2.4706e-05_rb,4.5193e-06_rb/)\n      kbo(:, 5,36, 2) = (/ &\n     &2.7624e-05_rb,4.2550e-05_rb,4.0975e-05_rb,3.2811e-05_rb,5.3463e-06_rb/)\n      kbo(:, 1,37, 2) = (/ &\n     &4.2943e-06_rb,7.9625e-06_rb,8.2825e-06_rb,7.3555e-06_rb,1.9862e-06_rb/)\n      kbo(:, 2,37, 2) = (/ &\n     &6.6379e-06_rb,1.1772e-05_rb,1.1998e-05_rb,1.0386e-05_rb,2.4388e-06_rb/)\n      kbo(:, 3,37, 2) = (/ &\n     &1.0124e-05_rb,1.7087e-05_rb,1.7068e-05_rb,1.4395e-05_rb,2.9448e-06_rb/)\n      kbo(:, 4,37, 2) = (/ &\n     &1.5070e-05_rb,2.4266e-05_rb,2.3812e-05_rb,1.9543e-05_rb,3.5287e-06_rb/)\n      kbo(:, 5,37, 2) = (/ &\n     &2.1767e-05_rb,3.3653e-05_rb,3.2450e-05_rb,2.6024e-05_rb,4.1879e-06_rb/)\n      kbo(:, 1,38, 2) = (/ &\n     &3.3357e-06_rb,6.1963e-06_rb,6.4603e-06_rb,5.7499e-06_rb,1.5402e-06_rb/)\n      kbo(:, 2,38, 2) = (/ &\n     &5.1578e-06_rb,9.1863e-06_rb,9.3819e-06_rb,8.1434e-06_rb,1.8945e-06_rb/)\n      kbo(:, 3,38, 2) = (/ &\n     &7.8901e-06_rb,1.3380e-05_rb,1.3389e-05_rb,1.1321e-05_rb,2.2920e-06_rb/)\n      kbo(:, 4,38, 2) = (/ &\n     &1.1791e-05_rb,1.9066e-05_rb,1.8739e-05_rb,1.5418e-05_rb,2.7521e-06_rb/)\n      kbo(:, 5,38, 2) = (/ &\n     &1.7101e-05_rb,2.6537e-05_rb,2.5629e-05_rb,2.0591e-05_rb,3.2788e-06_rb/)\n      kbo(:, 1,39, 2) = (/ &\n     &2.5925e-06_rb,4.8221e-06_rb,5.0377e-06_rb,4.4928e-06_rb,1.1896e-06_rb/)\n      kbo(:, 2,39, 2) = (/ &\n     &4.0080e-06_rb,7.1657e-06_rb,7.3339e-06_rb,6.3822e-06_rb,1.4636e-06_rb/)\n      kbo(:, 3,39, 2) = (/ &\n     &6.1480e-06_rb,1.0471e-05_rb,1.0498e-05_rb,8.8998e-06_rb,1.7757e-06_rb/)\n      kbo(:, 4,39, 2) = (/ &\n     &9.2224e-06_rb,1.4975e-05_rb,1.4740e-05_rb,1.2159e-05_rb,2.1407e-06_rb/)\n      kbo(:, 5,39, 2) = (/ &\n     &1.3430e-05_rb,2.0919e-05_rb,2.0232e-05_rb,1.6286e-05_rb,2.5517e-06_rb/)\n      kbo(:, 1,40, 2) = (/ &\n     &1.9503e-06_rb,3.6256e-06_rb,3.7983e-06_rb,3.3983e-06_rb,9.0970e-07_rb/)\n      kbo(:, 2,40, 2) = (/ &\n     &3.0096e-06_rb,5.4072e-06_rb,5.5509e-06_rb,4.8509e-06_rb,1.1295e-06_rb/)\n      kbo(:, 3,40, 2) = (/ &\n     &4.6341e-06_rb,7.9436e-06_rb,7.9881e-06_rb,6.7974e-06_rb,1.3749e-06_rb/)\n      kbo(:, 4,40, 2) = (/ &\n     &6.9959e-06_rb,1.1429e-05_rb,1.1278e-05_rb,9.3390e-06_rb,1.6560e-06_rb/)\n      kbo(:, 5,40, 2) = (/ &\n     &1.0262e-05_rb,1.6061e-05_rb,1.5575e-05_rb,1.2573e-05_rb,1.9765e-06_rb/)\n      kbo(:, 1,41, 2) = (/ &\n     &1.4645e-06_rb,2.7131e-06_rb,2.8491e-06_rb,2.5571e-06_rb,6.9451e-07_rb/)\n      kbo(:, 2,41, 2) = (/ &\n     &2.2502e-06_rb,4.0586e-06_rb,4.1799e-06_rb,3.6674e-06_rb,8.6660e-07_rb/)\n      kbo(:, 3,41, 2) = (/ &\n     &3.4750e-06_rb,5.9931e-06_rb,6.0465e-06_rb,5.1654e-06_rb,1.0602e-06_rb/)\n      kbo(:, 4,41, 2) = (/ &\n     &5.2792e-06_rb,8.6774e-06_rb,8.5850e-06_rb,7.1396e-06_rb,1.2820e-06_rb/)\n      kbo(:, 5,41, 2) = (/ &\n     &7.8024e-06_rb,1.2273e-05_rb,1.1934e-05_rb,9.6653e-06_rb,1.5281e-06_rb/)\n      kbo(:, 1,42, 2) = (/ &\n     &1.1030e-06_rb,2.0298e-06_rb,2.1354e-06_rb,1.9220e-06_rb,5.2769e-07_rb/)\n      kbo(:, 2,42, 2) = (/ &\n     &1.6830e-06_rb,3.0429e-06_rb,3.1437e-06_rb,2.7680e-06_rb,6.5992e-07_rb/)\n      kbo(:, 3,42, 2) = (/ &\n     &2.6031e-06_rb,4.5149e-06_rb,4.5688e-06_rb,3.9192e-06_rb,8.1465e-07_rb/)\n      kbo(:, 4,42, 2) = (/ &\n     &3.9772e-06_rb,6.5768e-06_rb,6.5252e-06_rb,5.4495e-06_rb,9.8750e-07_rb/)\n      kbo(:, 5,42, 2) = (/ &\n     &5.9212e-06_rb,9.3604e-06_rb,9.1253e-06_rb,7.4182e-06_rb,1.1776e-06_rb/)\n      kbo(:, 1,43, 2) = (/ &\n     &8.2428e-07_rb,1.4953e-06_rb,1.5737e-06_rb,1.4196e-06_rb,3.9479e-07_rb/)\n      kbo(:, 2,43, 2) = (/ &\n     &1.2422e-06_rb,2.2430e-06_rb,2.3243e-06_rb,2.0532e-06_rb,4.9846e-07_rb/)\n      kbo(:, 3,43, 2) = (/ &\n     &1.9204e-06_rb,3.3444e-06_rb,3.3959e-06_rb,2.9263e-06_rb,6.1792e-07_rb/)\n      kbo(:, 4,43, 2) = (/ &\n     &2.9515e-06_rb,4.9083e-06_rb,4.8847e-06_rb,4.0977e-06_rb,7.5196e-07_rb/)\n      kbo(:, 5,43, 2) = (/ &\n     &4.4328e-06_rb,7.0409e-06_rb,6.8831e-06_rb,5.6178e-06_rb,9.0060e-07_rb/)\n      kbo(:, 1,44, 2) = (/ &\n     &6.1791e-07_rb,1.0964e-06_rb,1.1526e-06_rb,1.0396e-06_rb,2.9276e-07_rb/)\n      kbo(:, 2,44, 2) = (/ &\n     &9.1458e-07_rb,1.6410e-06_rb,1.7044e-06_rb,1.5103e-06_rb,3.7305e-07_rb/)\n      kbo(:, 3,44, 2) = (/ &\n     &1.4081e-06_rb,2.4567e-06_rb,2.5035e-06_rb,2.1667e-06_rb,4.6414e-07_rb/)\n      kbo(:, 4,44, 2) = (/ &\n     &2.1742e-06_rb,3.6323e-06_rb,3.6267e-06_rb,3.0560e-06_rb,5.6825e-07_rb/)\n      kbo(:, 5,44, 2) = (/ &\n     &3.2939e-06_rb,5.2553e-06_rb,5.1516e-06_rb,4.2228e-06_rb,6.8470e-07_rb/)\n      kbo(:, 1,45, 2) = (/ &\n     &4.6818e-07_rb,8.0720e-07_rb,8.4515e-07_rb,7.6099e-07_rb,2.1643e-07_rb/)\n      kbo(:, 2,45, 2) = (/ &\n     &6.7728e-07_rb,1.2013e-06_rb,1.2493e-06_rb,1.1096e-06_rb,2.7840e-07_rb/)\n      kbo(:, 3,45, 2) = (/ &\n     &1.0340e-06_rb,1.8032e-06_rb,1.8431e-06_rb,1.6011e-06_rb,3.4809e-07_rb/)\n      kbo(:, 4,45, 2) = (/ &\n     &1.6004e-06_rb,2.6834e-06_rb,2.6875e-06_rb,2.2740e-06_rb,4.2767e-07_rb/)\n      kbo(:, 5,45, 2) = (/ &\n     &2.4431e-06_rb,3.9144e-06_rb,3.8469e-06_rb,3.1675e-06_rb,5.1847e-07_rb/)\n      kbo(:, 1,46, 2) = (/ &\n     &3.5715e-07_rb,5.9421e-07_rb,6.1734e-07_rb,5.5305e-07_rb,1.5800e-07_rb/)\n      kbo(:, 2,46, 2) = (/ &\n     &5.0187e-07_rb,8.7381e-07_rb,9.0848e-07_rb,8.0843e-07_rb,2.0563e-07_rb/)\n      kbo(:, 3,46, 2) = (/ &\n     &7.5515e-07_rb,1.3118e-06_rb,1.3445e-06_rb,1.1721e-06_rb,2.5967e-07_rb/)\n      kbo(:, 4,46, 2) = (/ &\n     &1.1677e-06_rb,1.9633e-06_rb,1.9726e-06_rb,1.6766e-06_rb,3.2108e-07_rb/)\n      kbo(:, 5,46, 2) = (/ &\n     &1.7950e-06_rb,2.8885e-06_rb,2.8468e-06_rb,2.3553e-06_rb,3.9011e-07_rb/)\n      kbo(:, 1,47, 2) = (/ &\n     &2.7398e-07_rb,4.3581e-07_rb,4.4704e-07_rb,3.9668e-07_rb,1.1323e-07_rb/)\n      kbo(:, 2,47, 2) = (/ &\n     &3.7103e-07_rb,6.2850e-07_rb,6.5163e-07_rb,5.8000e-07_rb,1.4990e-07_rb/)\n      kbo(:, 3,47, 2) = (/ &\n     &5.4577e-07_rb,9.3956e-07_rb,9.6531e-07_rb,8.4415e-07_rb,1.9262e-07_rb/)\n      kbo(:, 4,47, 2) = (/ &\n     &8.3895e-07_rb,1.4116e-06_rb,1.4241e-06_rb,1.2169e-06_rb,2.3951e-07_rb/)\n      kbo(:, 5,47, 2) = (/ &\n     &1.2964e-06_rb,2.0956e-06_rb,2.0729e-06_rb,1.7247e-06_rb,2.9208e-07_rb/)\n      kbo(:, 1,48, 2) = (/ &\n     &2.1387e-07_rb,3.2471e-07_rb,3.2631e-07_rb,2.8559e-07_rb,7.9995e-08_rb/)\n      kbo(:, 2,48, 2) = (/ &\n     &2.7873e-07_rb,4.5569e-07_rb,4.6902e-07_rb,4.1584e-07_rb,1.0856e-07_rb/)\n      kbo(:, 3,48, 2) = (/ &\n     &3.9810e-07_rb,6.7425e-07_rb,6.9287e-07_rb,6.0740e-07_rb,1.4073e-07_rb/)\n      kbo(:, 4,48, 2) = (/ &\n     &6.0448e-07_rb,1.0143e-06_rb,1.0265e-06_rb,8.8097e-07_rb,1.7712e-07_rb/)\n      kbo(:, 5,48, 2) = (/ &\n     &9.3542e-07_rb,1.5166e-06_rb,1.5052e-06_rb,1.2587e-06_rb,2.1758e-07_rb/)\n      kbo(:, 1,49, 2) = (/ &\n     &1.6983e-07_rb,2.4624e-07_rb,2.4047e-07_rb,2.0742e-07_rb,5.5874e-08_rb/)\n      kbo(:, 2,49, 2) = (/ &\n     &2.1316e-07_rb,3.3392e-07_rb,3.3939e-07_rb,2.9852e-07_rb,7.7373e-08_rb/)\n      kbo(:, 3,49, 2) = (/ &\n     &2.9400e-07_rb,4.8579e-07_rb,4.9802e-07_rb,4.3681e-07_rb,1.0173e-07_rb/)\n      kbo(:, 4,49, 2) = (/ &\n     &4.3777e-07_rb,7.2867e-07_rb,7.3912e-07_rb,6.3632e-07_rb,1.2966e-07_rb/)\n      kbo(:, 5,49, 2) = (/ &\n     &6.7522e-07_rb,1.0953e-06_rb,1.0905e-06_rb,9.1600e-07_rb,1.6042e-07_rb/)\n      kbo(:, 1,50, 2) = (/ &\n     &1.3748e-07_rb,1.9105e-07_rb,1.8074e-07_rb,1.5294e-07_rb,4.0734e-08_rb/)\n      kbo(:, 2,50, 2) = (/ &\n     &1.6685e-07_rb,2.5027e-07_rb,2.4971e-07_rb,2.1712e-07_rb,5.5541e-08_rb/)\n      kbo(:, 3,50, 2) = (/ &\n     &2.2205e-07_rb,3.5580e-07_rb,3.6241e-07_rb,3.1709e-07_rb,7.4088e-08_rb/)\n      kbo(:, 4,50, 2) = (/ &\n     &3.2265e-07_rb,5.2953e-07_rb,5.3723e-07_rb,4.6323e-07_rb,9.5830e-08_rb/)\n      kbo(:, 5,50, 2) = (/ &\n     &4.9355e-07_rb,7.9777e-07_rb,7.9617e-07_rb,6.7111e-07_rb,1.2000e-07_rb/)\n      kbo(:, 1,51, 2) = (/ &\n     &1.1310e-07_rb,1.5095e-07_rb,1.3873e-07_rb,1.1416e-07_rb,2.8930e-08_rb/)\n      kbo(:, 2,51, 2) = (/ &\n     &1.3297e-07_rb,1.9104e-07_rb,1.8603e-07_rb,1.5944e-07_rb,3.9649e-08_rb/)\n      kbo(:, 3,51, 2) = (/ &\n     &1.7089e-07_rb,2.6387e-07_rb,2.6609e-07_rb,2.3142e-07_rb,5.4118e-08_rb/)\n      kbo(:, 4,51, 2) = (/ &\n     &2.4121e-07_rb,3.8782e-07_rb,3.9262e-07_rb,3.3860e-07_rb,7.0920e-08_rb/)\n      kbo(:, 5,51, 2) = (/ &\n     &3.6391e-07_rb,5.8370e-07_rb,5.8331e-07_rb,4.9304e-07_rb,8.9643e-08_rb/)\n      kbo(:, 1,52, 2) = (/ &\n     &9.4432e-08_rb,1.2100e-07_rb,1.0830e-07_rb,8.6173e-08_rb,2.0454e-08_rb/)\n      kbo(:, 2,52, 2) = (/ &\n     &1.0754e-07_rb,1.4816e-07_rb,1.4031e-07_rb,1.1784e-07_rb,2.8884e-08_rb/)\n      kbo(:, 3,52, 2) = (/ &\n     &1.3365e-07_rb,1.9803e-07_rb,1.9664e-07_rb,1.6925e-07_rb,3.9314e-08_rb/)\n      kbo(:, 4,52, 2) = (/ &\n     &1.8256e-07_rb,2.8565e-07_rb,2.8767e-07_rb,2.4757e-07_rb,5.1552e-08_rb/)\n      kbo(:, 5,52, 2) = (/ &\n     &2.7006e-07_rb,4.2782e-07_rb,4.2750e-07_rb,3.6187e-07_rb,6.6239e-08_rb/)\n      kbo(:, 1,53, 2) = (/ &\n     &7.9939e-08_rb,9.8272e-08_rb,8.6307e-08_rb,6.6012e-08_rb,1.4604e-08_rb/)\n      kbo(:, 2,53, 2) = (/ &\n     &8.8279e-08_rb,1.1673e-07_rb,1.0758e-07_rb,8.7937e-08_rb,2.0451e-08_rb/)\n      kbo(:, 3,53, 2) = (/ &\n     &1.0623e-07_rb,1.5078e-07_rb,1.4654e-07_rb,1.2425e-07_rb,2.8208e-08_rb/)\n      kbo(:, 4,53, 2) = (/ &\n     &1.4011e-07_rb,2.1203e-07_rb,2.1153e-07_rb,1.8129e-07_rb,3.7255e-08_rb/)\n      kbo(:, 5,53, 2) = (/ &\n     &2.0211e-07_rb,3.1443e-07_rb,3.1357e-07_rb,2.6539e-07_rb,4.8314e-08_rb/)\n      kbo(:, 1,54, 2) = (/ &\n     &6.8612e-08_rb,8.0858e-08_rb,7.0080e-08_rb,5.1088e-08_rb,1.0952e-08_rb/)\n      kbo(:, 2,54, 2) = (/ &\n     &7.3786e-08_rb,9.3902e-08_rb,8.4431e-08_rb,6.7059e-08_rb,1.4950e-08_rb/)\n      kbo(:, 3,54, 2) = (/ &\n     &8.6236e-08_rb,1.1751e-07_rb,1.1148e-07_rb,9.2909e-08_rb,2.0689e-08_rb/)\n      kbo(:, 4,54, 2) = (/ &\n     &1.1017e-07_rb,1.6065e-07_rb,1.5823e-07_rb,1.3458e-07_rb,2.7837e-08_rb/)\n      kbo(:, 5,54, 2) = (/ &\n     &1.5462e-07_rb,2.3495e-07_rb,2.3325e-07_rb,1.9698e-07_rb,3.6383e-08_rb/)\n      kbo(:, 1,55, 2) = (/ &\n     &5.9732e-08_rb,6.7403e-08_rb,5.7777e-08_rb,3.9915e-08_rb,8.5037e-09_rb/)\n      kbo(:, 2,55, 2) = (/ &\n     &6.2576e-08_rb,7.6690e-08_rb,6.7863e-08_rb,5.1930e-08_rb,1.1059e-08_rb/)\n      kbo(:, 3,55, 2) = (/ &\n     &7.1126e-08_rb,9.3200e-08_rb,8.6382e-08_rb,7.0395e-08_rb,1.5573e-08_rb/)\n      kbo(:, 4,55, 2) = (/ &\n     &8.8230e-08_rb,1.2378e-07_rb,1.1984e-07_rb,1.0085e-07_rb,2.1225e-08_rb/)\n      kbo(:, 5,55, 2) = (/ &\n     &1.2026e-07_rb,1.7765e-07_rb,1.7500e-07_rb,1.4721e-07_rb,2.7783e-08_rb/)\n      kbo(:, 1,56, 2) = (/ &\n     &5.2687e-08_rb,5.6857e-08_rb,4.7895e-08_rb,3.2001e-08_rb,6.6275e-09_rb/)\n      kbo(:, 2,56, 2) = (/ &\n     &5.3766e-08_rb,6.3415e-08_rb,5.5171e-08_rb,4.0341e-08_rb,8.2176e-09_rb/)\n      kbo(:, 3,56, 2) = (/ &\n     &5.9487e-08_rb,7.5070e-08_rb,6.7900e-08_rb,5.3874e-08_rb,1.1605e-08_rb/)\n      kbo(:, 4,56, 2) = (/ &\n     &7.1736e-08_rb,9.6663e-08_rb,9.1606e-08_rb,7.5983e-08_rb,1.6105e-08_rb/)\n      kbo(:, 5,56, 2) = (/ &\n     &9.4811e-08_rb,1.3547e-07_rb,1.3204e-07_rb,1.1036e-07_rb,2.1203e-08_rb/)\n      kbo(:, 1,57, 2) = (/ &\n     &4.7030e-08_rb,4.8568e-08_rb,3.9988e-08_rb,2.6219e-08_rb,4.9408e-09_rb/)\n      kbo(:, 2,57, 2) = (/ &\n     &4.6811e-08_rb,5.3015e-08_rb,4.5546e-08_rb,3.1769e-08_rb,6.1353e-09_rb/)\n      kbo(:, 3,57, 2) = (/ &\n     &5.0494e-08_rb,6.1370e-08_rb,5.4487e-08_rb,4.1710e-08_rb,8.6536e-09_rb/)\n      kbo(:, 4,57, 2) = (/ &\n     &5.9216e-08_rb,7.6592e-08_rb,7.0994e-08_rb,5.7693e-08_rb,1.1916e-08_rb/)\n      kbo(:, 5,57, 2) = (/ &\n     &7.5908e-08_rb,1.0451e-07_rb,1.0035e-07_rb,8.3097e-08_rb,1.6230e-08_rb/)\n      kbo(:, 1,58, 2) = (/ &\n     &2.0524e-08_rb,2.3377e-08_rb,2.2103e-08_rb,1.7291e-08_rb,3.6303e-09_rb/)\n      kbo(:, 2,58, 2) = (/ &\n     &2.0023e-08_rb,2.5008e-08_rb,2.4831e-08_rb,2.0273e-08_rb,4.7070e-09_rb/)\n      kbo(:, 3,58, 2) = (/ &\n     &2.1076e-08_rb,2.8356e-08_rb,2.8987e-08_rb,2.5840e-08_rb,6.5048e-09_rb/)\n      kbo(:, 4,58, 2) = (/ &\n     &2.4072e-08_rb,3.4377e-08_rb,3.6577e-08_rb,3.5144e-08_rb,8.9689e-09_rb/)\n      kbo(:, 5,58, 2) = (/ &\n     &3.0004e-08_rb,4.5626e-08_rb,5.0474e-08_rb,4.9976e-08_rb,1.2428e-08_rb/)\n      kbo(:, 1,59, 2) = (/ &\n     &1.7700e-08_rb,1.9843e-08_rb,1.8643e-08_rb,1.4520e-08_rb,2.9679e-09_rb/)\n      kbo(:, 2,59, 2) = (/ &\n     &1.7149e-08_rb,2.1008e-08_rb,2.0747e-08_rb,1.6830e-08_rb,3.9081e-09_rb/)\n      kbo(:, 3,59, 2) = (/ &\n     &1.7873e-08_rb,2.3612e-08_rb,2.4046e-08_rb,2.1098e-08_rb,5.4593e-09_rb/)\n      kbo(:, 4,59, 2) = (/ &\n     &2.0201e-08_rb,2.8287e-08_rb,2.9905e-08_rb,2.8473e-08_rb,7.4791e-09_rb/)\n      kbo(:, 5,59, 2) = (/ &\n     &2.4905e-08_rb,3.7065e-08_rb,4.0703e-08_rb,4.0125e-08_rb,1.0391e-08_rb/)\n      kbo(:, 1,13, 3) = (/ &\n     &7.5570e-04_rb,1.0772e-03_rb,1.0524e-03_rb,8.5610e-04_rb,5.7960e-04_rb/)\n      kbo(:, 2,13, 3) = (/ &\n     &1.1289e-03_rb,1.5736e-03_rb,1.5191e-03_rb,1.2213e-03_rb,7.5295e-04_rb/)\n      kbo(:, 3,13, 3) = (/ &\n     &1.7896e-03_rb,2.3714e-03_rb,2.2650e-03_rb,1.7547e-03_rb,9.2113e-04_rb/)\n      kbo(:, 4,13, 3) = (/ &\n     &2.8881e-03_rb,3.6381e-03_rb,3.3414e-03_rb,2.5211e-03_rb,1.0886e-03_rb/)\n      kbo(:, 5,13, 3) = (/ &\n     &4.6526e-03_rb,5.5012e-03_rb,4.9005e-03_rb,3.6099e-03_rb,1.2715e-03_rb/)\n      kbo(:, 1,14, 3) = (/ &\n     &6.5628e-04_rb,9.2369e-04_rb,9.0249e-04_rb,7.3144e-04_rb,5.2166e-04_rb/)\n      kbo(:, 2,14, 3) = (/ &\n     &1.0001e-03_rb,1.3681e-03_rb,1.3197e-03_rb,1.0469e-03_rb,6.6148e-04_rb/)\n      kbo(:, 3,14, 3) = (/ &\n     &1.6037e-03_rb,2.0859e-03_rb,1.9738e-03_rb,1.5151e-03_rb,7.9350e-04_rb/)\n      kbo(:, 4,14, 3) = (/ &\n     &2.6225e-03_rb,3.2284e-03_rb,2.9281e-03_rb,2.1941e-03_rb,9.2716e-04_rb/)\n      kbo(:, 5,14, 3) = (/ &\n     &4.2437e-03_rb,4.9002e-03_rb,4.3187e-03_rb,3.1691e-03_rb,1.0609e-03_rb/)\n      kbo(:, 1,15, 3) = (/ &\n     &5.5021e-04_rb,7.7058e-04_rb,7.4997e-04_rb,6.0721e-04_rb,4.5513e-04_rb/)\n      kbo(:, 2,15, 3) = (/ &\n     &8.5046e-04_rb,1.1533e-03_rb,1.1173e-03_rb,8.7626e-04_rb,5.6093e-04_rb/)\n      kbo(:, 3,15, 3) = (/ &\n     &1.3828e-03_rb,1.7898e-03_rb,1.6630e-03_rb,1.2772e-03_rb,6.6129e-04_rb/)\n      kbo(:, 4,15, 3) = (/ &\n     &2.2885e-03_rb,2.7671e-03_rb,2.4977e-03_rb,1.8674e-03_rb,7.6057e-04_rb/)\n      kbo(:, 5,15, 3) = (/ &\n     &3.7000e-03_rb,4.2354e-03_rb,3.7118e-03_rb,2.7146e-03_rb,8.7024e-04_rb/)\n      kbo(:, 1,16, 3) = (/ &\n     &4.5181e-04_rb,6.3192e-04_rb,6.1748e-04_rb,4.9522e-04_rb,3.6566e-04_rb/)\n      kbo(:, 2,16, 3) = (/ &\n     &7.0837e-04_rb,9.6443e-04_rb,9.2028e-04_rb,7.2449e-04_rb,4.4224e-04_rb/)\n      kbo(:, 3,16, 3) = (/ &\n     &1.1719e-03_rb,1.5071e-03_rb,1.3916e-03_rb,1.0704e-03_rb,5.1878e-04_rb/)\n      kbo(:, 4,16, 3) = (/ &\n     &1.9347e-03_rb,2.3410e-03_rb,2.1054e-03_rb,1.5750e-03_rb,5.9381e-04_rb/)\n      kbo(:, 5,16, 3) = (/ &\n     &3.1267e-03_rb,3.5933e-03_rb,3.1446e-03_rb,2.3012e-03_rb,6.8790e-04_rb/)\n      kbo(:, 1,17, 3) = (/ &\n     &3.7149e-04_rb,5.2008e-04_rb,5.0762e-04_rb,4.0757e-04_rb,2.8847e-04_rb/)\n      kbo(:, 2,17, 3) = (/ &\n     &5.8832e-04_rb,8.0612e-04_rb,7.6169e-04_rb,6.0348e-04_rb,3.4723e-04_rb/)\n      kbo(:, 3,17, 3) = (/ &\n     &9.7995e-04_rb,1.2582e-03_rb,1.1654e-03_rb,8.9803e-04_rb,4.0483e-04_rb/)\n      kbo(:, 4,17, 3) = (/ &\n     &1.6147e-03_rb,1.9685e-03_rb,1.7733e-03_rb,1.3298e-03_rb,4.7136e-04_rb/)\n      kbo(:, 5,17, 3) = (/ &\n     &2.6071e-03_rb,3.0247e-03_rb,2.6450e-03_rb,1.9458e-03_rb,5.5921e-04_rb/)\n      kbo(:, 1,18, 3) = (/ &\n     &3.0061e-04_rb,4.2884e-04_rb,4.1648e-04_rb,3.3754e-04_rb,2.3127e-04_rb/)\n      kbo(:, 2,18, 3) = (/ &\n     &4.8246e-04_rb,6.6793e-04_rb,6.3270e-04_rb,5.0432e-04_rb,2.7279e-04_rb/)\n      kbo(:, 3,18, 3) = (/ &\n     &8.0392e-04_rb,1.0486e-03_rb,9.7147e-04_rb,7.5301e-04_rb,3.2007e-04_rb/)\n      kbo(:, 4,18, 3) = (/ &\n     &1.3260e-03_rb,1.6386e-03_rb,1.4792e-03_rb,1.1164e-03_rb,3.8144e-04_rb/)\n      kbo(:, 5,18, 3) = (/ &\n     &2.1473e-03_rb,2.5126e-03_rb,2.2067e-03_rb,1.6276e-03_rb,4.4653e-04_rb/)\n      kbo(:, 1,19, 3) = (/ &\n     &2.4724e-04_rb,3.5910e-04_rb,3.4734e-04_rb,2.8349e-04_rb,1.8511e-04_rb/)\n      kbo(:, 2,19, 3) = (/ &\n     &4.0125e-04_rb,5.6017e-04_rb,5.3189e-04_rb,4.2493e-04_rb,2.2055e-04_rb/)\n      kbo(:, 3,19, 3) = (/ &\n     &6.6924e-04_rb,8.8342e-04_rb,8.2067e-04_rb,6.3860e-04_rb,2.6260e-04_rb/)\n      kbo(:, 4,19, 3) = (/ &\n     &1.1061e-03_rb,1.3792e-03_rb,1.2462e-03_rb,9.4376e-04_rb,3.1226e-04_rb/)\n      kbo(:, 5,19, 3) = (/ &\n     &1.7964e-03_rb,2.1126e-03_rb,1.8583e-03_rb,1.3721e-03_rb,3.6746e-04_rb/)\n      kbo(:, 1,20, 3) = (/ &\n     &2.0934e-04_rb,3.0700e-04_rb,2.9722e-04_rb,2.4267e-04_rb,1.4926e-04_rb/)\n      kbo(:, 2,20, 3) = (/ &\n     &3.4260e-04_rb,4.8187e-04_rb,4.5763e-04_rb,3.6566e-04_rb,1.7991e-04_rb/)\n      kbo(:, 3,20, 3) = (/ &\n     &5.7163e-04_rb,7.5991e-04_rb,7.0644e-04_rb,5.4990e-04_rb,2.1557e-04_rb/)\n      kbo(:, 4,20, 3) = (/ &\n     &9.4873e-04_rb,1.1845e-03_rb,1.0719e-03_rb,8.1150e-04_rb,2.5564e-04_rb/)\n      kbo(:, 5,20, 3) = (/ &\n     &1.5383e-03_rb,1.8175e-03_rb,1.5965e-03_rb,1.1755e-03_rb,3.0407e-04_rb/)\n      kbo(:, 1,21, 3) = (/ &\n     &1.7843e-04_rb,2.6350e-04_rb,2.5564e-04_rb,2.0870e-04_rb,1.2133e-04_rb/)\n      kbo(:, 2,21, 3) = (/ &\n     &2.9332e-04_rb,4.1557e-04_rb,3.9544e-04_rb,3.1597e-04_rb,1.4677e-04_rb/)\n      kbo(:, 3,21, 3) = (/ &\n     &4.9132e-04_rb,6.5537e-04_rb,6.0874e-04_rb,4.7437e-04_rb,1.7728e-04_rb/)\n      kbo(:, 4,21, 3) = (/ &\n     &8.1854e-04_rb,1.0220e-03_rb,9.2374e-04_rb,6.9881e-04_rb,2.1085e-04_rb/)\n      kbo(:, 5,21, 3) = (/ &\n     &1.3233e-03_rb,1.5674e-03_rb,1.3737e-03_rb,1.0105e-03_rb,2.5000e-04_rb/)\n      kbo(:, 1,22, 3) = (/ &\n     &1.5600e-04_rb,2.3165e-04_rb,2.2455e-04_rb,1.8380e-04_rb,9.8965e-05_rb/)\n      kbo(:, 2,22, 3) = (/ &\n     &2.5879e-04_rb,3.6647e-04_rb,3.4891e-04_rb,2.7934e-04_rb,1.2038e-04_rb/)\n      kbo(:, 3,22, 3) = (/ &\n     &4.3583e-04_rb,5.7888e-04_rb,5.3753e-04_rb,4.1782e-04_rb,1.4492e-04_rb/)\n      kbo(:, 4,22, 3) = (/ &\n     &7.2393e-04_rb,9.0328e-04_rb,8.1451e-04_rb,6.1366e-04_rb,1.7404e-04_rb/)\n      kbo(:, 5,22, 3) = (/ &\n     &1.1641e-03_rb,1.3807e-03_rb,1.2062e-03_rb,8.8532e-04_rb,2.0548e-04_rb/)\n      kbo(:, 1,23, 3) = (/ &\n     &1.3677e-04_rb,2.0433e-04_rb,1.9788e-04_rb,1.6232e-04_rb,8.0071e-05_rb/)\n      kbo(:, 2,23, 3) = (/ &\n     &2.2851e-04_rb,3.2392e-04_rb,3.0774e-04_rb,2.4623e-04_rb,9.8059e-05_rb/)\n      kbo(:, 3,23, 3) = (/ &\n     &3.8639e-04_rb,5.1167e-04_rb,4.7457e-04_rb,3.6749e-04_rb,1.1880e-04_rb/)\n      kbo(:, 4,23, 3) = (/ &\n     &6.3801e-04_rb,7.9694e-04_rb,7.1675e-04_rb,5.3954e-04_rb,1.4295e-04_rb/)\n      kbo(:, 5,23, 3) = (/ &\n     &1.0211e-03_rb,1.2096e-03_rb,1.0561e-03_rb,7.7552e-04_rb,1.6841e-04_rb/)\n      kbo(:, 1,24, 3) = (/ &\n     &1.2065e-04_rb,1.8059e-04_rb,1.7513e-04_rb,1.4381e-04_rb,6.4790e-05_rb/)\n      kbo(:, 2,24, 3) = (/ &\n     &2.0387e-04_rb,2.8742e-04_rb,2.7331e-04_rb,2.1771e-04_rb,7.9169e-05_rb/)\n      kbo(:, 3,24, 3) = (/ &\n     &3.4413e-04_rb,4.5518e-04_rb,4.2044e-04_rb,3.2458e-04_rb,9.5995e-05_rb/)\n      kbo(:, 4,24, 3) = (/ &\n     &5.6569e-04_rb,7.0542e-04_rb,6.3169e-04_rb,4.7542e-04_rb,1.1593e-04_rb/)\n      kbo(:, 5,24, 3) = (/ &\n     &8.9817e-04_rb,1.0616e-03_rb,9.2695e-04_rb,6.8043e-04_rb,1.3621e-04_rb/)\n      kbo(:, 1,25, 3) = (/ &\n     &1.0740e-04_rb,1.6092e-04_rb,1.5588e-04_rb,1.2763e-04_rb,5.2835e-05_rb/)\n      kbo(:, 2,25, 3) = (/ &\n     &1.8277e-04_rb,2.5653e-04_rb,2.4346e-04_rb,1.9325e-04_rb,6.4708e-05_rb/)\n      kbo(:, 3,25, 3) = (/ &\n     &3.0775e-04_rb,4.0577e-04_rb,3.7301e-04_rb,2.8766e-04_rb,7.8479e-05_rb/)\n      kbo(:, 4,25, 3) = (/ &\n     &5.0348e-04_rb,6.2434e-04_rb,5.5838e-04_rb,4.1972e-04_rb,9.2999e-05_rb/)\n      kbo(:, 5,25, 3) = (/ &\n     &7.9236e-04_rb,9.3393e-04_rb,8.1486e-04_rb,5.9712e-04_rb,1.1091e-04_rb/)\n      kbo(:, 1,26, 3) = (/ &\n     &9.7543e-05_rb,1.4515e-04_rb,1.4079e-04_rb,1.1469e-04_rb,4.3203e-05_rb/)\n      kbo(:, 2,26, 3) = (/ &\n     &1.6637e-04_rb,2.3211e-04_rb,2.1906e-04_rb,1.7338e-04_rb,5.3501e-05_rb/)\n      kbo(:, 3,26, 3) = (/ &\n     &2.7898e-04_rb,3.6497e-04_rb,3.3420e-04_rb,2.5717e-04_rb,6.4391e-05_rb/)\n      kbo(:, 4,26, 3) = (/ &\n     &4.5278e-04_rb,5.5785e-04_rb,4.9753e-04_rb,3.7293e-04_rb,7.6357e-05_rb/)\n      kbo(:, 5,26, 3) = (/ &\n     &7.0495e-04_rb,8.2859e-04_rb,7.2055e-04_rb,5.2702e-04_rb,9.1483e-05_rb/)\n      kbo(:, 1,27, 3) = (/ &\n     &8.8905e-05_rb,1.3136e-04_rb,1.2690e-04_rb,1.0312e-04_rb,3.5556e-05_rb/)\n      kbo(:, 2,27, 3) = (/ &\n     &1.5157e-04_rb,2.0993e-04_rb,1.9708e-04_rb,1.5550e-04_rb,4.3708e-05_rb/)\n      kbo(:, 3,27, 3) = (/ &\n     &2.5313e-04_rb,3.2779e-04_rb,2.9943e-04_rb,2.2974e-04_rb,5.2449e-05_rb/)\n      kbo(:, 4,27, 3) = (/ &\n     &4.0707e-04_rb,4.9850e-04_rb,4.4267e-04_rb,3.3107e-04_rb,6.3153e-05_rb/)\n      kbo(:, 5,27, 3) = (/ &\n     &6.2804e-04_rb,7.3434e-04_rb,6.3748e-04_rb,4.6470e-04_rb,7.4410e-05_rb/)\n      kbo(:, 1,28, 3) = (/ &\n     &8.1071e-05_rb,1.1893e-04_rb,1.1441e-04_rb,9.2670e-05_rb,2.9048e-05_rb/)\n      kbo(:, 2,28, 3) = (/ &\n     &1.3818e-04_rb,1.8937e-04_rb,1.7730e-04_rb,1.3932e-04_rb,3.5467e-05_rb/)\n      kbo(:, 3,28, 3) = (/ &\n     &2.2925e-04_rb,2.9449e-04_rb,2.6762e-04_rb,2.0484e-04_rb,4.2994e-05_rb/)\n      kbo(:, 4,28, 3) = (/ &\n     &3.6544e-04_rb,4.4427e-04_rb,3.9356e-04_rb,2.9338e-04_rb,5.1335e-05_rb/)\n      kbo(:, 5,28, 3) = (/ &\n     &5.5873e-04_rb,6.5113e-04_rb,5.6346e-04_rb,4.0933e-04_rb,6.0144e-05_rb/)\n      kbo(:, 1,29, 3) = (/ &\n     &7.4203e-05_rb,1.0781e-04_rb,1.0341e-04_rb,8.3458e-05_rb,2.3671e-05_rb/)\n      kbo(:, 2,29, 3) = (/ &\n     &1.2605e-04_rb,1.7113e-04_rb,1.5936e-04_rb,1.2487e-04_rb,2.9121e-05_rb/)\n      kbo(:, 3,29, 3) = (/ &\n     &2.0703e-04_rb,2.6395e-04_rb,2.3919e-04_rb,1.8248e-04_rb,3.5057e-05_rb/)\n      kbo(:, 4,29, 3) = (/ &\n     &3.2741e-04_rb,3.9598e-04_rb,3.4952e-04_rb,2.5961e-04_rb,4.1444e-05_rb/)\n      kbo(:, 5,29, 3) = (/ &\n     &4.9624e-04_rb,5.7661e-04_rb,4.9724e-04_rb,3.6006e-04_rb,4.8751e-05_rb/)\n      kbo(:, 1,30, 3) = (/ &\n     &6.7677e-05_rb,9.7468e-05_rb,9.3138e-05_rb,7.4923e-05_rb,1.9287e-05_rb/)\n      kbo(:, 2,30, 3) = (/ &\n     &1.1431e-04_rb,1.5374e-04_rb,1.4284e-04_rb,1.1153e-04_rb,2.3591e-05_rb/)\n      kbo(:, 3,30, 3) = (/ &\n     &1.8623e-04_rb,2.3583e-04_rb,2.1291e-04_rb,1.6193e-04_rb,2.8158e-05_rb/)\n      kbo(:, 4,30, 3) = (/ &\n     &2.9180e-04_rb,3.5163e-04_rb,3.0921e-04_rb,2.2892e-04_rb,3.3328e-05_rb/)\n      kbo(:, 5,30, 3) = (/ &\n     &4.3918e-04_rb,5.0854e-04_rb,4.3751e-04_rb,3.1569e-04_rb,3.9501e-05_rb/)\n      kbo(:, 1,31, 3) = (/ &\n     &6.1393e-05_rb,8.7694e-05_rb,8.3630e-05_rb,6.7048e-05_rb,1.5382e-05_rb/)\n      kbo(:, 2,31, 3) = (/ &\n     &1.0290e-04_rb,1.3743e-04_rb,1.2731e-04_rb,9.9241e-05_rb,1.8651e-05_rb/)\n      kbo(:, 3,31, 3) = (/ &\n     &1.6626e-04_rb,2.0956e-04_rb,1.8851e-04_rb,1.4301e-04_rb,2.2748e-05_rb/)\n      kbo(:, 4,31, 3) = (/ &\n     &2.5819e-04_rb,3.1016e-04_rb,2.7211e-04_rb,2.0081e-04_rb,2.7039e-05_rb/)\n      kbo(:, 5,31, 3) = (/ &\n     &3.8535e-04_rb,4.4535e-04_rb,3.8254e-04_rb,2.7522e-04_rb,3.1790e-05_rb/)\n      kbo(:, 1,32, 3) = (/ &\n     &5.5908e-05_rb,7.9178e-05_rb,7.5227e-05_rb,6.0166e-05_rb,1.2301e-05_rb/)\n      kbo(:, 2,32, 3) = (/ &\n     &9.3029e-05_rb,1.2336e-04_rb,1.1373e-04_rb,8.8415e-05_rb,1.5236e-05_rb/)\n      kbo(:, 3,32, 3) = (/ &\n     &1.4900e-04_rb,1.8677e-04_rb,1.6744e-04_rb,1.2652e-04_rb,1.8544e-05_rb/)\n      kbo(:, 4,32, 3) = (/ &\n     &2.2938e-04_rb,2.7443e-04_rb,2.4002e-04_rb,1.7648e-04_rb,2.2012e-05_rb/)\n      kbo(:, 5,32, 3) = (/ &\n     &3.3936e-04_rb,3.9112e-04_rb,3.3532e-04_rb,2.4040e-04_rb,2.5885e-05_rb/)\n      kbo(:, 1,33, 3) = (/ &\n     &5.1027e-05_rb,7.1592e-05_rb,6.7752e-05_rb,5.3984e-05_rb,1.0069e-05_rb/)\n      kbo(:, 2,33, 3) = (/ &\n     &8.4306e-05_rb,1.1082e-04_rb,1.0178e-04_rb,7.8786e-05_rb,1.2424e-05_rb/)\n      kbo(:, 3,33, 3) = (/ &\n     &1.3378e-04_rb,1.6666e-04_rb,1.4886e-04_rb,1.1198e-04_rb,1.5017e-05_rb/)\n      kbo(:, 4,33, 3) = (/ &\n     &2.0407e-04_rb,2.4310e-04_rb,2.1204e-04_rb,1.5519e-04_rb,1.7833e-05_rb/)\n      kbo(:, 5,33, 3) = (/ &\n     &2.9932e-04_rb,3.4399e-04_rb,2.9425e-04_rb,2.1002e-04_rb,2.0751e-05_rb/)\n      kbo(:, 1,34, 3) = (/ &\n     &4.6423e-05_rb,6.4385e-05_rb,6.0651e-05_rb,4.8084e-05_rb,8.2313e-06_rb/)\n      kbo(:, 2,34, 3) = (/ &\n     &7.6075e-05_rb,9.9124e-05_rb,9.0586e-05_rb,6.9780e-05_rb,1.0168e-05_rb/)\n      kbo(:, 3,34, 3) = (/ &\n     &1.1981e-04_rb,1.4811e-04_rb,1.3176e-04_rb,9.8597e-05_rb,1.2205e-05_rb/)\n      kbo(:, 4,34, 3) = (/ &\n     &1.8123e-04_rb,2.1472e-04_rb,1.8662e-04_rb,1.3590e-04_rb,1.4492e-05_rb/)\n      kbo(:, 5,34, 3) = (/ &\n     &2.6376e-04_rb,3.0190e-04_rb,2.5753e-04_rb,1.8301e-04_rb,1.6946e-05_rb/)\n      kbo(:, 1,35, 3) = (/ &\n     &4.0215e-05_rb,5.5516e-05_rb,5.2178e-05_rb,4.1265e-05_rb,6.6300e-06_rb/)\n      kbo(:, 2,35, 3) = (/ &\n     &6.5646e-05_rb,8.5207e-05_rb,7.7691e-05_rb,5.9694e-05_rb,8.1351e-06_rb/)\n      kbo(:, 3,35, 3) = (/ &\n     &1.0298e-04_rb,1.2694e-04_rb,1.1266e-04_rb,8.4059e-05_rb,9.8103e-06_rb/)\n      kbo(:, 4,35, 3) = (/ &\n     &1.5503e-04_rb,1.8334e-04_rb,1.5905e-04_rb,1.1551e-04_rb,1.1630e-05_rb/)\n      kbo(:, 5,35, 3) = (/ &\n     &2.2476e-04_rb,2.5697e-04_rb,2.1886e-04_rb,1.5514e-04_rb,1.3591e-05_rb/)\n      kbo(:, 1,36, 3) = (/ &\n     &3.2994e-05_rb,4.5660e-05_rb,4.2930e-05_rb,3.3969e-05_rb,5.1542e-06_rb/)\n      kbo(:, 2,36, 3) = (/ &\n     &5.3916e-05_rb,7.0104e-05_rb,6.3946e-05_rb,4.9132e-05_rb,6.3498e-06_rb/)\n      kbo(:, 3,36, 3) = (/ &\n     &8.4552e-05_rb,1.0443e-04_rb,9.2717e-05_rb,6.9170e-05_rb,7.6665e-06_rb/)\n      kbo(:, 4,36, 3) = (/ &\n     &1.2731e-04_rb,1.5086e-04_rb,1.3088e-04_rb,9.4999e-05_rb,9.0883e-06_rb/)\n      kbo(:, 5,36, 3) = (/ &\n     &1.8455e-04_rb,2.1131e-04_rb,1.8000e-04_rb,1.2756e-04_rb,1.0606e-05_rb/)\n      kbo(:, 1,37, 3) = (/ &\n     &2.5429e-05_rb,3.5502e-05_rb,3.3507e-05_rb,2.6612e-05_rb,3.9872e-06_rb/)\n      kbo(:, 2,37, 3) = (/ &\n     &4.1789e-05_rb,5.4774e-05_rb,5.0118e-05_rb,3.8644e-05_rb,4.9244e-06_rb/)\n      kbo(:, 3,37, 3) = (/ &\n     &6.5920e-05_rb,8.1963e-05_rb,7.2974e-05_rb,5.4610e-05_rb,5.9794e-06_rb/)\n      kbo(:, 4,37, 3) = (/ &\n     &9.9825e-05_rb,1.1892e-04_rb,1.0339e-04_rb,7.5254e-05_rb,7.1021e-06_rb/)\n      kbo(:, 5,37, 3) = (/ &\n     &1.4543e-04_rb,1.6731e-04_rb,1.4273e-04_rb,1.0135e-04_rb,8.2993e-06_rb/)\n      kbo(:, 1,38, 3) = (/ &\n     &1.9510e-05_rb,2.7499e-05_rb,2.6048e-05_rb,2.0774e-05_rb,3.0726e-06_rb/)\n      kbo(:, 2,38, 3) = (/ &\n     &3.2252e-05_rb,4.2623e-05_rb,3.9146e-05_rb,3.0291e-05_rb,3.8102e-06_rb/)\n      kbo(:, 3,38, 3) = (/ &\n     &5.1187e-05_rb,6.4097e-05_rb,5.7223e-05_rb,4.2970e-05_rb,4.6390e-06_rb/)\n      kbo(:, 4,38, 3) = (/ &\n     &7.8004e-05_rb,9.3430e-05_rb,8.1421e-05_rb,5.9437e-05_rb,5.5099e-06_rb/)\n      kbo(:, 5,38, 3) = (/ &\n     &1.1424e-04_rb,1.3207e-04_rb,1.1286e-04_rb,8.0305e-05_rb,6.4580e-06_rb/)\n      kbo(:, 1,39, 3) = (/ &\n     &1.4955e-05_rb,2.1282e-05_rb,2.0237e-05_rb,1.6208e-05_rb,2.3414e-06_rb/)\n      kbo(:, 2,39, 3) = (/ &\n     &2.4867e-05_rb,3.3144e-05_rb,3.0547e-05_rb,2.3724e-05_rb,2.9298e-06_rb/)\n      kbo(:, 3,39, 3) = (/ &\n     &3.9718e-05_rb,5.0092e-05_rb,4.4848e-05_rb,3.3792e-05_rb,3.5597e-06_rb/)\n      kbo(:, 4,39, 3) = (/ &\n     &6.0902e-05_rb,7.3365e-05_rb,6.4080e-05_rb,4.6913e-05_rb,4.2665e-06_rb/)\n      kbo(:, 5,39, 3) = (/ &\n     &8.9673e-05_rb,1.0416e-04_rb,8.9163e-05_rb,6.3592e-05_rb,5.0003e-06_rb/)\n      kbo(:, 1,40, 3) = (/ &\n     &1.0973e-05_rb,1.5834e-05_rb,1.5141e-05_rb,1.2207e-05_rb,1.7695e-06_rb/)\n      kbo(:, 2,40, 3) = (/ &\n     &1.8417e-05_rb,2.4851e-05_rb,2.3037e-05_rb,1.7992e-05_rb,2.2304e-06_rb/)\n      kbo(:, 3,40, 3) = (/ &\n     &2.9718e-05_rb,3.7867e-05_rb,3.4065e-05_rb,2.5810e-05_rb,2.7325e-06_rb/)\n      kbo(:, 4,40, 3) = (/ &\n     &4.6050e-05_rb,5.5927e-05_rb,4.9024e-05_rb,3.6065e-05_rb,3.2836e-06_rb/)\n      kbo(:, 5,40, 3) = (/ &\n     &6.8462e-05_rb,8.0022e-05_rb,6.8684e-05_rb,4.9179e-05_rb,3.8780e-06_rb/)\n      kbo(:, 1,41, 3) = (/ &\n     &7.9936e-06_rb,1.1702e-05_rb,1.1250e-05_rb,9.1326e-06_rb,1.3289e-06_rb/)\n      kbo(:, 2,41, 3) = (/ &\n     &1.3541e-05_rb,1.8510e-05_rb,1.7261e-05_rb,1.3563e-05_rb,1.6876e-06_rb/)\n      kbo(:, 3,41, 3) = (/ &\n     &2.2085e-05_rb,2.8450e-05_rb,2.5728e-05_rb,1.9606e-05_rb,2.0896e-06_rb/)\n      kbo(:, 4,41, 3) = (/ &\n     &3.4599e-05_rb,4.2393e-05_rb,3.7310e-05_rb,2.7591e-05_rb,2.5142e-06_rb/)\n      kbo(:, 5,41, 3) = (/ &\n     &5.1973e-05_rb,6.1166e-05_rb,5.2649e-05_rb,3.7859e-05_rb,2.9985e-06_rb/)\n      kbo(:, 1,42, 3) = (/ &\n     &5.8131e-06_rb,8.6287e-06_rb,8.3395e-06_rb,6.8180e-06_rb,9.9321e-07_rb/)\n      kbo(:, 2,42, 3) = (/ &\n     &9.9286e-06_rb,1.3753e-05_rb,1.2903e-05_rb,1.0201e-05_rb,1.2739e-06_rb/)\n      kbo(:, 3,42, 3) = (/ &\n     &1.6369e-05_rb,2.1324e-05_rb,1.9387e-05_rb,1.4861e-05_rb,1.5862e-06_rb/)\n      kbo(:, 4,42, 3) = (/ &\n     &2.5917e-05_rb,3.2058e-05_rb,2.8333e-05_rb,2.1064e-05_rb,1.9289e-06_rb/)\n      kbo(:, 5,42, 3) = (/ &\n     &3.9355e-05_rb,4.6652e-05_rb,4.0275e-05_rb,2.9099e-05_rb,2.3091e-06_rb/)\n      kbo(:, 1,43, 3) = (/ &\n     &4.1379e-06_rb,6.2276e-06_rb,6.0505e-06_rb,4.9862e-06_rb,7.3153e-07_rb/)\n      kbo(:, 2,43, 3) = (/ &\n     &7.1228e-06_rb,1.0012e-05_rb,9.4538e-06_rb,7.5288e-06_rb,9.4466e-07_rb/)\n      kbo(:, 3,43, 3) = (/ &\n     &1.1889e-05_rb,1.5688e-05_rb,1.4350e-05_rb,1.1075e-05_rb,1.1892e-06_rb/)\n      kbo(:, 4,43, 3) = (/ &\n     &1.9074e-05_rb,2.3844e-05_rb,2.1179e-05_rb,1.5845e-05_rb,1.4637e-06_rb/)\n      kbo(:, 5,43, 3) = (/ &\n     &2.9351e-05_rb,3.5073e-05_rb,3.0382e-05_rb,2.2068e-05_rb,1.7581e-06_rb/)\n      kbo(:, 1,44, 3) = (/ &\n     &2.9204e-06_rb,4.4462e-06_rb,4.3423e-06_rb,3.6069e-06_rb,5.3481e-07_rb/)\n      kbo(:, 2,44, 3) = (/ &\n     &5.0527e-06_rb,7.2110e-06_rb,6.8508e-06_rb,5.4982e-06_rb,6.9481e-07_rb/)\n      kbo(:, 3,44, 3) = (/ &\n     &8.5402e-06_rb,1.1419e-05_rb,1.0515e-05_rb,8.1724e-06_rb,8.8543e-07_rb/)\n      kbo(:, 4,44, 3) = (/ &\n     &1.3894e-05_rb,1.7562e-05_rb,1.5682e-05_rb,1.1814e-05_rb,1.0984e-06_rb/)\n      kbo(:, 5,44, 3) = (/ &\n     &2.1692e-05_rb,2.6150e-05_rb,2.2738e-05_rb,1.6619e-05_rb,1.3258e-06_rb/)\n      kbo(:, 1,45, 3) = (/ &\n     &2.0654e-06_rb,3.1706e-06_rb,3.1106e-06_rb,2.6027e-06_rb,3.8843e-07_rb/)\n      kbo(:, 2,45, 3) = (/ &\n     &3.5785e-06_rb,5.1800e-06_rb,4.9498e-06_rb,4.0029e-06_rb,5.0552e-07_rb/)\n      kbo(:, 3,45, 3) = (/ &\n     &6.1156e-06_rb,8.2899e-06_rb,7.6825e-06_rb,6.0114e-06_rb,6.4899e-07_rb/)\n      kbo(:, 4,45, 3) = (/ &\n     &1.0090e-05_rb,1.2899e-05_rb,1.1584e-05_rb,8.7849e-06_rb,8.1182e-07_rb/)\n      kbo(:, 5,45, 3) = (/ &\n     &1.5974e-05_rb,1.9436e-05_rb,1.6972e-05_rb,1.2481e-05_rb,9.9260e-07_rb/)\n      kbo(:, 1,46, 3) = (/ &\n     &1.4538e-06_rb,2.2381e-06_rb,2.2044e-06_rb,1.8570e-06_rb,2.7780e-07_rb/)\n      kbo(:, 2,46, 3) = (/ &\n     &2.5054e-06_rb,3.6761e-06_rb,3.5333e-06_rb,2.8803e-06_rb,3.6666e-07_rb/)\n      kbo(:, 3,46, 3) = (/ &\n     &4.3205e-06_rb,5.9430e-06_rb,5.5451e-06_rb,4.3709e-06_rb,4.7052e-07_rb/)\n      kbo(:, 4,46, 3) = (/ &\n     &7.2299e-06_rb,9.3616e-06_rb,8.4601e-06_rb,6.4628e-06_rb,5.9539e-07_rb/)\n      kbo(:, 5,46, 3) = (/ &\n     &1.1621e-05_rb,1.4285e-05_rb,1.2535e-05_rb,9.2836e-06_rb,7.3565e-07_rb/)\n      kbo(:, 1,47, 3) = (/ &\n     &1.0143e-06_rb,1.5538e-06_rb,1.5325e-06_rb,1.2979e-06_rb,1.9733e-07_rb/)\n      kbo(:, 2,47, 3) = (/ &\n     &1.7208e-06_rb,2.5538e-06_rb,2.4694e-06_rb,2.0305e-06_rb,2.6304e-07_rb/)\n      kbo(:, 3,47, 3) = (/ &\n     &2.9828e-06_rb,4.1702e-06_rb,3.9202e-06_rb,3.1167e-06_rb,3.4065e-07_rb/)\n      kbo(:, 4,47, 3) = (/ &\n     &5.0644e-06_rb,6.6541e-06_rb,6.0593e-06_rb,4.6660e-06_rb,4.3326e-07_rb/)\n      kbo(:, 5,47, 3) = (/ &\n     &8.2782e-06_rb,1.0300e-05_rb,9.0956e-06_rb,6.7879e-06_rb,5.4017e-07_rb/)\n      kbo(:, 1,48, 3) = (/ &\n     &7.2030e-07_rb,1.0845e-06_rb,1.0676e-06_rb,9.0611e-07_rb,1.3761e-07_rb/)\n      kbo(:, 2,48, 3) = (/ &\n     &1.1872e-06_rb,1.7730e-06_rb,1.7228e-06_rb,1.4271e-06_rb,1.8706e-07_rb/)\n      kbo(:, 3,48, 3) = (/ &\n     &2.0561e-06_rb,2.9161e-06_rb,2.7609e-06_rb,2.2135e-06_rb,2.4544e-07_rb/)\n      kbo(:, 4,48, 3) = (/ &\n     &3.5327e-06_rb,4.7102e-06_rb,4.3223e-06_rb,3.3540e-06_rb,3.1231e-07_rb/)\n      kbo(:, 5,48, 3) = (/ &\n     &5.8701e-06_rb,7.3943e-06_rb,6.5729e-06_rb,4.9432e-06_rb,3.9364e-07_rb/)\n      kbo(:, 1,49, 3) = (/ &\n     &5.2463e-07_rb,7.6406e-07_rb,7.4789e-07_rb,6.3224e-07_rb,9.4269e-08_rb/)\n      kbo(:, 2,49, 3) = (/ &\n     &8.2733e-07_rb,1.2326e-06_rb,1.2007e-06_rb,1.0005e-06_rb,1.3092e-07_rb/)\n      kbo(:, 3,49, 3) = (/ &\n     &1.4174e-06_rb,2.0342e-06_rb,1.9376e-06_rb,1.5657e-06_rb,1.7460e-07_rb/)\n      kbo(:, 4,49, 3) = (/ &\n     &2.4552e-06_rb,3.3221e-06_rb,3.0702e-06_rb,2.4004e-06_rb,2.2553e-07_rb/)\n      kbo(:, 5,49, 3) = (/ &\n     &4.1423e-06_rb,5.2851e-06_rb,4.7305e-06_rb,3.5840e-06_rb,2.8424e-07_rb/)\n      kbo(:, 1,50, 3) = (/ &\n     &3.9659e-07_rb,5.5178e-07_rb,5.3440e-07_rb,4.4722e-07_rb,6.5930e-08_rb/)\n      kbo(:, 2,50, 3) = (/ &\n     &5.9210e-07_rb,8.7140e-07_rb,8.4803e-07_rb,7.0817e-07_rb,9.3562e-08_rb/)\n      kbo(:, 3,50, 3) = (/ &\n     &9.9396e-07_rb,1.4345e-06_rb,1.3722e-06_rb,1.1160e-06_rb,1.2619e-07_rb/)\n      kbo(:, 4,50, 3) = (/ &\n     &1.7258e-06_rb,2.3624e-06_rb,2.1973e-06_rb,1.7292e-06_rb,1.6444e-07_rb/)\n      kbo(:, 5,50, 3) = (/ &\n     &2.9480e-06_rb,3.8052e-06_rb,3.4270e-06_rb,2.6131e-06_rb,2.0855e-07_rb/)\n      kbo(:, 1,51, 3) = (/ &\n     &3.0780e-07_rb,4.0724e-07_rb,3.8772e-07_rb,3.1909e-07_rb,4.7152e-08_rb/)\n      kbo(:, 2,51, 3) = (/ &\n     &4.3389e-07_rb,6.2376e-07_rb,6.0442e-07_rb,5.0387e-07_rb,6.6848e-08_rb/)\n      kbo(:, 3,51, 3) = (/ &\n     &7.0578e-07_rb,1.0183e-06_rb,9.7661e-07_rb,7.9773e-07_rb,9.1673e-08_rb/)\n      kbo(:, 4,51, 3) = (/ &\n     &1.2202e-06_rb,1.6857e-06_rb,1.5762e-06_rb,1.2481e-06_rb,1.2080e-07_rb/)\n      kbo(:, 5,51, 3) = (/ &\n     &2.1050e-06_rb,2.7463e-06_rb,2.4878e-06_rb,1.9078e-06_rb,1.5488e-07_rb/)\n      kbo(:, 1,52, 3) = (/ &\n     &2.4467e-07_rb,3.0672e-07_rb,2.8540e-07_rb,2.2927e-07_rb,3.3766e-08_rb/)\n      kbo(:, 2,52, 3) = (/ &\n     &3.2577e-07_rb,4.5139e-07_rb,4.3382e-07_rb,3.5906e-07_rb,4.7409e-08_rb/)\n      kbo(:, 3,52, 3) = (/ &\n     &5.0672e-07_rb,7.2555e-07_rb,6.9595e-07_rb,5.7001e-07_rb,6.5991e-08_rb/)\n      kbo(:, 4,52, 3) = (/ &\n     &8.6516e-07_rb,1.2018e-06_rb,1.1289e-06_rb,8.9884e-07_rb,8.8646e-08_rb/)\n      kbo(:, 5,52, 3) = (/ &\n     &1.5011e-06_rb,1.9777e-06_rb,1.8012e-06_rb,1.3890e-06_rb,1.1411e-07_rb/)\n      kbo(:, 1,53, 3) = (/ &\n     &1.9893e-07_rb,2.3655e-07_rb,2.1398e-07_rb,1.6650e-07_rb,2.3697e-08_rb/)\n      kbo(:, 2,53, 3) = (/ &\n     &2.5083e-07_rb,3.3159e-07_rb,3.1422e-07_rb,2.5680e-07_rb,3.3792e-08_rb/)\n      kbo(:, 3,53, 3) = (/ &\n     &3.6925e-07_rb,5.1963e-07_rb,4.9710e-07_rb,4.0705e-07_rb,4.7057e-08_rb/)\n      kbo(:, 4,53, 3) = (/ &\n     &6.1624e-07_rb,8.5716e-07_rb,8.0760e-07_rb,6.4558e-07_rb,6.4327e-08_rb/)\n      kbo(:, 5,53, 3) = (/ &\n     &1.0701e-06_rb,1.4207e-06_rb,1.3006e-06_rb,1.0081e-06_rb,8.3703e-08_rb/)\n      kbo(:, 1,54, 3) = (/ &\n     &1.6569e-07_rb,1.8826e-07_rb,1.6516e-07_rb,1.2463e-07_rb,1.7341e-08_rb/)\n      kbo(:, 2,54, 3) = (/ &\n     &1.9916e-07_rb,2.5095e-07_rb,2.3323e-07_rb,1.8716e-07_rb,2.4743e-08_rb/)\n      kbo(:, 3,54, 3) = (/ &\n     &2.7800e-07_rb,3.8083e-07_rb,3.6198e-07_rb,2.9489e-07_rb,3.4593e-08_rb/)\n      kbo(:, 4,54, 3) = (/ &\n     &4.4953e-07_rb,6.2218e-07_rb,5.8637e-07_rb,4.6947e-07_rb,4.7657e-08_rb/)\n      kbo(:, 5,54, 3) = (/ &\n     &7.7653e-07_rb,1.0348e-06_rb,9.5106e-07_rb,7.3964e-07_rb,6.2914e-08_rb/)\n      kbo(:, 1,55, 3) = (/ &\n     &1.4043e-07_rb,1.5348e-07_rb,1.3050e-07_rb,9.5790e-08_rb,1.3021e-08_rb/)\n      kbo(:, 2,55, 3) = (/ &\n     &1.6195e-07_rb,1.9454e-07_rb,1.7661e-07_rb,1.3842e-07_rb,1.8310e-08_rb/)\n      kbo(:, 3,55, 3) = (/ &\n     &2.1498e-07_rb,2.8400e-07_rb,2.6714e-07_rb,2.1561e-07_rb,2.5769e-08_rb/)\n      kbo(:, 4,55, 3) = (/ &\n     &3.3384e-07_rb,4.5663e-07_rb,4.2946e-07_rb,3.4367e-07_rb,3.5731e-08_rb/)\n      kbo(:, 5,55, 3) = (/ &\n     &5.6980e-07_rb,7.5956e-07_rb,6.9954e-07_rb,5.4544e-07_rb,4.7978e-08_rb/)\n      kbo(:, 1,56, 3) = (/ &\n     &1.2086e-07_rb,1.2723e-07_rb,1.0539e-07_rb,7.4446e-08_rb,9.2261e-09_rb/)\n      kbo(:, 2,56, 3) = (/ &\n     &1.3434e-07_rb,1.5407e-07_rb,1.3616e-07_rb,1.0396e-07_rb,1.3447e-08_rb/)\n      kbo(:, 3,56, 3) = (/ &\n     &1.7000e-07_rb,2.1506e-07_rb,1.9916e-07_rb,1.5861e-07_rb,1.9233e-08_rb/)\n      kbo(:, 4,56, 3) = (/ &\n     &2.5155e-07_rb,3.3746e-07_rb,3.1592e-07_rb,2.5204e-07_rb,2.6859e-08_rb/)\n      kbo(:, 5,56, 3) = (/ &\n     &4.2088e-07_rb,5.5907e-07_rb,5.1525e-07_rb,4.0220e-07_rb,3.6549e-08_rb/)\n      kbo(:, 1,57, 3) = (/ &\n     &1.0553e-07_rb,1.0707e-07_rb,8.7153e-08_rb,5.8944e-08_rb,6.8033e-09_rb/)\n      kbo(:, 2,57, 3) = (/ &\n     &1.1362e-07_rb,1.2487e-07_rb,1.0708e-07_rb,7.9506e-08_rb,9.8943e-09_rb/)\n      kbo(:, 3,57, 3) = (/ &\n     &1.3729e-07_rb,1.6577e-07_rb,1.5039e-07_rb,1.1755e-07_rb,1.4310e-08_rb/)\n      kbo(:, 4,57, 3) = (/ &\n     &1.9303e-07_rb,2.5185e-07_rb,2.3386e-07_rb,1.8533e-07_rb,2.0155e-08_rb/)\n      kbo(:, 5,57, 3) = (/ &\n     &3.1378e-07_rb,4.1313e-07_rb,3.8025e-07_rb,2.9656e-07_rb,2.7619e-08_rb/)\n      kbo(:, 1,58, 3) = (/ &\n     &4.5186e-08_rb,5.0890e-08_rb,4.7832e-08_rb,3.7472e-08_rb,5.1696e-09_rb/)\n      kbo(:, 2,58, 3) = (/ &\n     &4.7401e-08_rb,5.7618e-08_rb,5.6357e-08_rb,4.8955e-08_rb,7.4243e-09_rb/)\n      kbo(:, 3,58, 3) = (/ &\n     &5.5010e-08_rb,7.2882e-08_rb,7.5797e-08_rb,7.0136e-08_rb,1.0687e-08_rb/)\n      kbo(:, 4,58, 3) = (/ &\n     &7.3718e-08_rb,1.0653e-07_rb,1.1470e-07_rb,1.0884e-07_rb,1.5198e-08_rb/)\n      kbo(:, 5,58, 3) = (/ &\n     &1.1547e-07_rb,1.7203e-07_rb,1.8517e-07_rb,1.7422e-07_rb,2.1153e-08_rb/)\n      kbo(:, 1,59, 3) = (/ &\n     &3.8720e-08_rb,4.3027e-08_rb,4.0190e-08_rb,3.1252e-08_rb,4.1397e-09_rb/)\n      kbo(:, 2,59, 3) = (/ &\n     &4.0213e-08_rb,4.8103e-08_rb,4.6638e-08_rb,4.0062e-08_rb,6.0380e-09_rb/)\n      kbo(:, 3,59, 3) = (/ &\n     &4.5994e-08_rb,5.9694e-08_rb,6.1452e-08_rb,5.6505e-08_rb,8.8443e-09_rb/)\n      kbo(:, 4,59, 3) = (/ &\n     &6.0487e-08_rb,8.5685e-08_rb,9.1743e-08_rb,8.6818e-08_rb,1.2879e-08_rb/)\n      kbo(:, 5,59, 3) = (/ &\n     &9.3188e-08_rb,1.3722e-07_rb,1.4752e-07_rb,1.3892e-07_rb,1.7999e-08_rb/)\n      kbo(:, 1,13, 4) = (/ &\n     &4.3869e-03_rb,5.0989e-03_rb,4.3794e-03_rb,3.0521e-03_rb,9.4784e-04_rb/)\n      kbo(:, 2,13, 4) = (/ &\n     &6.9481e-03_rb,7.8458e-03_rb,6.6078e-03_rb,4.5663e-03_rb,1.0961e-03_rb/)\n      kbo(:, 3,13, 4) = (/ &\n     &1.1023e-02_rb,1.1980e-02_rb,9.8280e-03_rb,6.7431e-03_rb,1.2240e-03_rb/)\n      kbo(:, 4,13, 4) = (/ &\n     &1.7316e-02_rb,1.8007e-02_rb,1.4661e-02_rb,9.8568e-03_rb,1.4326e-03_rb/)\n      kbo(:, 5,13, 4) = (/ &\n     &2.6628e-02_rb,2.6632e-02_rb,2.1301e-02_rb,1.4107e-02_rb,1.6715e-03_rb/)\n      kbo(:, 1,14, 4) = (/ &\n     &3.8856e-03_rb,4.5615e-03_rb,3.8907e-03_rb,2.6924e-03_rb,7.6763e-04_rb/)\n      kbo(:, 2,14, 4) = (/ &\n     &6.2253e-03_rb,7.0528e-03_rb,5.8968e-03_rb,4.0418e-03_rb,8.6051e-04_rb/)\n      kbo(:, 3,14, 4) = (/ &\n     &1.0002e-02_rb,1.0752e-02_rb,8.8582e-03_rb,6.0065e-03_rb,1.0065e-03_rb/)\n      kbo(:, 4,14, 4) = (/ &\n     &1.5699e-02_rb,1.6229e-02_rb,1.3163e-02_rb,8.7970e-03_rb,1.2227e-03_rb/)\n      kbo(:, 5,14, 4) = (/ &\n     &2.4269e-02_rb,2.4030e-02_rb,1.9137e-02_rb,1.2536e-02_rb,1.4474e-03_rb/)\n      kbo(:, 1,15, 4) = (/ &\n     &3.2659e-03_rb,3.8770e-03_rb,3.3101e-03_rb,2.3048e-03_rb,5.7573e-04_rb/)\n      kbo(:, 2,15, 4) = (/ &\n     &5.3241e-03_rb,6.0372e-03_rb,5.0494e-03_rb,3.4916e-03_rb,6.8321e-04_rb/)\n      kbo(:, 3,15, 4) = (/ &\n     &8.6002e-03_rb,9.2086e-03_rb,7.6334e-03_rb,5.1974e-03_rb,8.4736e-04_rb/)\n      kbo(:, 4,15, 4) = (/ &\n     &1.3547e-02_rb,1.3992e-02_rb,1.1347e-02_rb,7.5834e-03_rb,1.0287e-03_rb/)\n      kbo(:, 5,15, 4) = (/ &\n     &2.1009e-02_rb,2.0762e-02_rb,1.6574e-02_rb,1.0811e-02_rb,1.2066e-03_rb/)\n      kbo(:, 1,16, 4) = (/ &\n     &2.6697e-03_rb,3.2234e-03_rb,2.7529e-03_rb,1.9451e-03_rb,4.4184e-04_rb/)\n      kbo(:, 2,16, 4) = (/ &\n     &4.4186e-03_rb,5.0347e-03_rb,4.2523e-03_rb,2.9486e-03_rb,5.5826e-04_rb/)\n      kbo(:, 3,16, 4) = (/ &\n     &7.1546e-03_rb,7.7280e-03_rb,6.4040e-03_rb,4.4001e-03_rb,6.8881e-04_rb/)\n      kbo(:, 4,16, 4) = (/ &\n     &1.1406e-02_rb,1.1811e-02_rb,9.5855e-03_rb,6.4241e-03_rb,8.3295e-04_rb/)\n      kbo(:, 5,16, 4) = (/ &\n     &1.7781e-02_rb,1.7577e-02_rb,1.4001e-02_rb,9.1645e-03_rb,9.7098e-04_rb/)\n      kbo(:, 1,17, 4) = (/ &\n     &2.1896e-03_rb,2.6538e-03_rb,2.2904e-03_rb,1.6414e-03_rb,3.5480e-04_rb/)\n      kbo(:, 2,17, 4) = (/ &\n     &3.6444e-03_rb,4.1897e-03_rb,3.5440e-03_rb,2.4805e-03_rb,4.4971e-04_rb/)\n      kbo(:, 3,17, 4) = (/ &\n     &5.9916e-03_rb,6.4686e-03_rb,5.3743e-03_rb,3.6974e-03_rb,5.5799e-04_rb/)\n      kbo(:, 4,17, 4) = (/ &\n     &9.5963e-03_rb,9.9128e-03_rb,8.0553e-03_rb,5.4068e-03_rb,6.7241e-04_rb/)\n      kbo(:, 5,17, 4) = (/ &\n     &1.5025e-02_rb,1.4809e-02_rb,1.1810e-02_rb,7.7160e-03_rb,7.7063e-04_rb/)\n      kbo(:, 1,18, 4) = (/ &\n     &1.7997e-03_rb,2.1886e-03_rb,1.9082e-03_rb,1.3670e-03_rb,2.9021e-04_rb/)\n      kbo(:, 2,18, 4) = (/ &\n     &3.0120e-03_rb,3.4746e-03_rb,2.9450e-03_rb,2.0706e-03_rb,3.7282e-04_rb/)\n      kbo(:, 3,18, 4) = (/ &\n     &4.9798e-03_rb,5.3990e-03_rb,4.4938e-03_rb,3.0816e-03_rb,4.5930e-04_rb/)\n      kbo(:, 4,18, 4) = (/ &\n     &8.0081e-03_rb,8.2644e-03_rb,6.7223e-03_rb,4.5032e-03_rb,5.4734e-04_rb/)\n      kbo(:, 5,18, 4) = (/ &\n     &1.2492e-02_rb,1.2373e-02_rb,9.8644e-03_rb,6.4255e-03_rb,6.3020e-04_rb/)\n      kbo(:, 1,19, 4) = (/ &\n     &1.5064e-03_rb,1.8451e-03_rb,1.6056e-03_rb,1.1522e-03_rb,2.4682e-04_rb/)\n      kbo(:, 2,19, 4) = (/ &\n     &2.5474e-03_rb,2.9294e-03_rb,2.4915e-03_rb,1.7507e-03_rb,3.1538e-04_rb/)\n      kbo(:, 3,19, 4) = (/ &\n     &4.2186e-03_rb,4.5798e-03_rb,3.8063e-03_rb,2.5988e-03_rb,3.8674e-04_rb/)\n      kbo(:, 4,19, 4) = (/ &\n     &6.8019e-03_rb,7.0063e-03_rb,5.6982e-03_rb,3.8032e-03_rb,4.6124e-04_rb/)\n      kbo(:, 5,19, 4) = (/ &\n     &1.0595e-02_rb,1.0486e-02_rb,8.3528e-03_rb,5.4249e-03_rb,5.3320e-04_rb/)\n      kbo(:, 1,20, 4) = (/ &\n     &1.3102e-03_rb,1.5983e-03_rb,1.3859e-03_rb,9.9291e-04_rb,2.1228e-04_rb/)\n      kbo(:, 2,20, 4) = (/ &\n     &2.2269e-03_rb,2.5410e-03_rb,2.1563e-03_rb,1.5072e-03_rb,2.6816e-04_rb/)\n      kbo(:, 3,20, 4) = (/ &\n     &3.6896e-03_rb,3.9778e-03_rb,3.2977e-03_rb,2.2454e-03_rb,3.2819e-04_rb/)\n      kbo(:, 4,20, 4) = (/ &\n     &5.9414e-03_rb,6.0960e-03_rb,4.9353e-03_rb,3.2744e-03_rb,3.9225e-04_rb/)\n      kbo(:, 5,20, 4) = (/ &\n     &9.2578e-03_rb,9.1102e-03_rb,7.2255e-03_rb,4.6712e-03_rb,4.5336e-04_rb/)\n      kbo(:, 1,21, 4) = (/ &\n     &1.1473e-03_rb,1.3888e-03_rb,1.2016e-03_rb,8.6011e-04_rb,1.8127e-04_rb/)\n      kbo(:, 2,21, 4) = (/ &\n     &1.9565e-03_rb,2.2181e-03_rb,1.8746e-03_rb,1.3038e-03_rb,2.2830e-04_rb/)\n      kbo(:, 3,21, 4) = (/ &\n     &3.2520e-03_rb,3.4808e-03_rb,2.8694e-03_rb,1.9461e-03_rb,2.7800e-04_rb/)\n      kbo(:, 4,21, 4) = (/ &\n     &5.2204e-03_rb,5.3317e-03_rb,4.2972e-03_rb,2.8342e-03_rb,3.3105e-04_rb/)\n      kbo(:, 5,21, 4) = (/ &\n     &8.1069e-03_rb,7.9508e-03_rb,6.2747e-03_rb,4.0360e-03_rb,3.8585e-04_rb/)\n      kbo(:, 1,22, 4) = (/ &\n     &1.0382e-03_rb,1.2396e-03_rb,1.0678e-03_rb,7.6273e-04_rb,1.5466e-04_rb/)\n      kbo(:, 2,22, 4) = (/ &\n     &1.7720e-03_rb,1.9893e-03_rb,1.6695e-03_rb,1.1556e-03_rb,1.9356e-04_rb/)\n      kbo(:, 3,22, 4) = (/ &\n     &2.9369e-03_rb,3.1200e-03_rb,2.5557e-03_rb,1.7237e-03_rb,2.3624e-04_rb/)\n      kbo(:, 4,22, 4) = (/ &\n     &4.6992e-03_rb,4.7636e-03_rb,3.8178e-03_rb,2.5063e-03_rb,2.7855e-04_rb/)\n      kbo(:, 5,22, 4) = (/ &\n     &7.2282e-03_rb,7.0542e-03_rb,5.5487e-03_rb,3.5490e-03_rb,3.2630e-04_rb/)\n      kbo(:, 1,23, 4) = (/ &\n     &9.4131e-04_rb,1.1095e-03_rb,9.5148e-04_rb,6.7660e-04_rb,1.3244e-04_rb/)\n      kbo(:, 2,23, 4) = (/ &\n     &1.6035e-03_rb,1.7844e-03_rb,1.4894e-03_rb,1.0262e-03_rb,1.6442e-04_rb/)\n      kbo(:, 3,23, 4) = (/ &\n     &2.6522e-03_rb,2.7950e-03_rb,2.2775e-03_rb,1.5271e-03_rb,2.0008e-04_rb/)\n      kbo(:, 4,23, 4) = (/ &\n     &4.2106e-03_rb,4.2402e-03_rb,3.3871e-03_rb,2.2131e-03_rb,2.3445e-04_rb/)\n      kbo(:, 5,23, 4) = (/ &\n     &6.4196e-03_rb,6.2427e-03_rb,4.8940e-03_rb,3.1130e-03_rb,2.7496e-04_rb/)\n      kbo(:, 1,24, 4) = (/ &\n     &8.5493e-04_rb,1.0008e-03_rb,8.5274e-04_rb,6.0213e-04_rb,1.1224e-04_rb/)\n      kbo(:, 2,24, 4) = (/ &\n     &1.4576e-03_rb,1.6070e-03_rb,1.3354e-03_rb,9.1642e-04_rb,1.3965e-04_rb/)\n      kbo(:, 3,24, 4) = (/ &\n     &2.4005e-03_rb,2.5083e-03_rb,2.0375e-03_rb,1.3606e-03_rb,1.6869e-04_rb/)\n      kbo(:, 4,24, 4) = (/ &\n     &3.7805e-03_rb,3.7882e-03_rb,3.0168e-03_rb,1.9590e-03_rb,1.9824e-04_rb/)\n      kbo(:, 5,24, 4) = (/ &\n     &5.7340e-03_rb,5.5429e-03_rb,4.3252e-03_rb,2.7397e-03_rb,2.2899e-04_rb/)\n      kbo(:, 1,25, 4) = (/ &\n     &7.8083e-04_rb,9.0613e-04_rb,7.6855e-04_rb,5.3955e-04_rb,9.3397e-05_rb/)\n      kbo(:, 2,25, 4) = (/ &\n     &1.3293e-03_rb,1.4516e-03_rb,1.2021e-03_rb,8.2125e-04_rb,1.1644e-04_rb/)\n      kbo(:, 3,25, 4) = (/ &\n     &2.1730e-03_rb,2.2546e-03_rb,1.8276e-03_rb,1.2136e-03_rb,1.4039e-04_rb/)\n      kbo(:, 4,25, 4) = (/ &\n     &3.3994e-03_rb,3.3901e-03_rb,2.6854e-03_rb,1.7374e-03_rb,1.6529e-04_rb/)\n      kbo(:, 5,25, 4) = (/ &\n     &5.1177e-03_rb,4.9296e-03_rb,3.8308e-03_rb,2.4138e-03_rb,1.9292e-04_rb/)\n      kbo(:, 1,26, 4) = (/ &\n     &7.2414e-04_rb,8.2998e-04_rb,6.9991e-04_rb,4.8962e-04_rb,7.9259e-05_rb/)\n      kbo(:, 2,26, 4) = (/ &\n     &1.2259e-03_rb,1.3255e-03_rb,1.0917e-03_rb,7.4177e-04_rb,9.7580e-05_rb/)\n      kbo(:, 3,26, 4) = (/ &\n     &1.9848e-03_rb,2.0462e-03_rb,1.6503e-03_rb,1.0895e-03_rb,1.1629e-04_rb/)\n      kbo(:, 4,26, 4) = (/ &\n     &3.0863e-03_rb,3.0554e-03_rb,2.4123e-03_rb,1.5502e-03_rb,1.3732e-04_rb/)\n      kbo(:, 5,26, 4) = (/ &\n     &4.5999e-03_rb,4.4081e-03_rb,3.4159e-03_rb,2.1402e-03_rb,1.6386e-04_rb/)\n      kbo(:, 1,27, 4) = (/ &\n     &6.7040e-04_rb,7.6049e-04_rb,6.3931e-04_rb,4.4424e-04_rb,6.5890e-05_rb/)\n      kbo(:, 2,27, 4) = (/ &\n     &1.1282e-03_rb,1.2096e-03_rb,9.9105e-04_rb,6.6941e-04_rb,8.0876e-05_rb/)\n      kbo(:, 3,27, 4) = (/ &\n     &1.8147e-03_rb,1.8556e-03_rb,1.4889e-03_rb,9.7714e-04_rb,9.6344e-05_rb/)\n      kbo(:, 4,27, 4) = (/ &\n     &2.7940e-03_rb,2.7516e-03_rb,2.1627e-03_rb,1.3811e-03_rb,1.1546e-04_rb/)\n      kbo(:, 5,27, 4) = (/ &\n     &4.1206e-03_rb,3.9340e-03_rb,3.0363e-03_rb,1.8956e-03_rb,1.3791e-04_rb/)\n      kbo(:, 1,28, 4) = (/ &\n     &6.1963e-04_rb,6.9617e-04_rb,5.8205e-04_rb,4.0239e-04_rb,5.3842e-05_rb/)\n      kbo(:, 2,28, 4) = (/ &\n     &1.0354e-03_rb,1.1013e-03_rb,8.9815e-04_rb,6.0298e-04_rb,6.6022e-05_rb/)\n      kbo(:, 3,28, 4) = (/ &\n     &1.6516e-03_rb,1.6797e-03_rb,1.3412e-03_rb,8.7507e-04_rb,8.0123e-05_rb/)\n      kbo(:, 4,28, 4) = (/ &\n     &2.5197e-03_rb,2.4709e-03_rb,1.9338e-03_rb,1.2274e-03_rb,9.7074e-05_rb/)\n      kbo(:, 5,28, 4) = (/ &\n     &3.6744e-03_rb,3.4958e-03_rb,2.6900e-03_rb,1.6731e-03_rb,1.1603e-04_rb/)\n      kbo(:, 1,29, 4) = (/ &\n     &5.7255e-04_rb,6.3719e-04_rb,5.3001e-04_rb,3.6415e-04_rb,4.3783e-05_rb/)\n      kbo(:, 2,29, 4) = (/ &\n     &9.4899e-04_rb,1.0006e-03_rb,8.1341e-04_rb,5.4243e-04_rb,5.3930e-05_rb/)\n      kbo(:, 3,29, 4) = (/ &\n     &1.4973e-03_rb,1.5143e-03_rb,1.2048e-03_rb,7.8083e-04_rb,6.6803e-05_rb/)\n      kbo(:, 4,29, 4) = (/ &\n     &2.2572e-03_rb,2.2044e-03_rb,1.7199e-03_rb,1.0861e-03_rb,8.0985e-05_rb/)\n      kbo(:, 5,29, 4) = (/ &\n     &3.2527e-03_rb,3.0849e-03_rb,2.3685e-03_rb,1.4686e-03_rb,9.6201e-05_rb/)\n      kbo(:, 1,30, 4) = (/ &\n     &5.2637e-04_rb,5.8081e-04_rb,4.8010e-04_rb,3.2816e-04_rb,3.5536e-05_rb/)\n      kbo(:, 2,30, 4) = (/ &\n     &8.6289e-04_rb,9.0357e-04_rb,7.3215e-04_rb,4.8521e-04_rb,4.4824e-05_rb/)\n      kbo(:, 3,30, 4) = (/ &\n     &1.3456e-03_rb,1.3553e-03_rb,1.0747e-03_rb,6.9223e-04_rb,5.5319e-05_rb/)\n      kbo(:, 4,30, 4) = (/ &\n     &2.0065e-03_rb,1.9507e-03_rb,1.5172e-03_rb,9.5518e-04_rb,6.6828e-05_rb/)\n      kbo(:, 5,30, 4) = (/ &\n     &2.8573e-03_rb,2.7008e-03_rb,2.0712e-03_rb,1.2802e-03_rb,7.9313e-05_rb/)\n      kbo(:, 1,31, 4) = (/ &\n     &4.7945e-04_rb,5.2447e-04_rb,4.3249e-04_rb,2.9383e-04_rb,2.9390e-05_rb/)\n      kbo(:, 2,31, 4) = (/ &\n     &7.7587e-04_rb,8.0972e-04_rb,6.5328e-04_rb,4.3065e-04_rb,3.6906e-05_rb/)\n      kbo(:, 3,31, 4) = (/ &\n     &1.1974e-03_rb,1.2004e-03_rb,9.4868e-04_rb,6.0827e-04_rb,4.5016e-05_rb/)\n      kbo(:, 4,31, 4) = (/ &\n     &1.7617e-03_rb,1.7074e-03_rb,1.3255e-03_rb,8.3172e-04_rb,5.4252e-05_rb/)\n      kbo(:, 5,31, 4) = (/ &\n     &2.4825e-03_rb,2.3423e-03_rb,1.7933e-03_rb,1.1061e-03_rb,6.4138e-05_rb/)\n      kbo(:, 1,32, 4) = (/ &\n     &4.3738e-04_rb,4.7509e-04_rb,3.9041e-04_rb,2.6369e-04_rb,2.4019e-05_rb/)\n      kbo(:, 2,32, 4) = (/ &\n     &6.9937e-04_rb,7.2599e-04_rb,5.8354e-04_rb,3.8245e-04_rb,2.9892e-05_rb/)\n      kbo(:, 3,32, 4) = (/ &\n     &1.0660e-03_rb,1.0639e-03_rb,8.3776e-04_rb,5.3497e-04_rb,3.6437e-05_rb/)\n      kbo(:, 4,32, 4) = (/ &\n     &1.5490e-03_rb,1.4965e-03_rb,1.1588e-03_rb,7.2497e-04_rb,4.3698e-05_rb/)\n      kbo(:, 5,32, 4) = (/ &\n     &2.1609e-03_rb,2.0352e-03_rb,1.5553e-03_rb,9.5666e-04_rb,5.1532e-05_rb/)\n      kbo(:, 1,33, 4) = (/ &\n     &3.9889e-04_rb,4.2999e-04_rb,3.5197e-04_rb,2.3634e-04_rb,1.9311e-05_rb/)\n      kbo(:, 2,33, 4) = (/ &\n     &6.2991e-04_rb,6.5021e-04_rb,5.2059e-04_rb,3.3932e-04_rb,2.4117e-05_rb/)\n      kbo(:, 3,33, 4) = (/ &\n     &9.4755e-04_rb,9.4129e-04_rb,7.3904e-04_rb,4.6991e-04_rb,2.9354e-05_rb/)\n      kbo(:, 4,33, 4) = (/ &\n     &1.3617e-03_rb,1.3113e-03_rb,1.0129e-03_rb,6.3180e-04_rb,3.5029e-05_rb/)\n      kbo(:, 5,33, 4) = (/ &\n     &1.8805e-03_rb,1.7688e-03_rb,1.3485e-03_rb,8.2760e-04_rb,4.1309e-05_rb/)\n      kbo(:, 1,34, 4) = (/ &\n     &3.6214e-04_rb,3.8716e-04_rb,3.1549e-04_rb,2.1059e-04_rb,1.5692e-05_rb/)\n      kbo(:, 2,34, 4) = (/ &\n     &5.6474e-04_rb,5.7963e-04_rb,4.6204e-04_rb,2.9966e-04_rb,1.9450e-05_rb/)\n      kbo(:, 3,34, 4) = (/ &\n     &8.4034e-04_rb,8.3067e-04_rb,6.4971e-04_rb,4.1144e-04_rb,2.3693e-05_rb/)\n      kbo(:, 4,34, 4) = (/ &\n     &1.1957e-03_rb,1.1475e-03_rb,8.8389e-04_rb,5.4962e-04_rb,2.8253e-05_rb/)\n      kbo(:, 5,34, 4) = (/ &\n     &1.6380e-03_rb,1.5373e-03_rb,1.1695e-03_rb,7.1576e-04_rb,3.2957e-05_rb/)\n      kbo(:, 1,35, 4) = (/ &\n     &3.1359e-04_rb,3.3446e-04_rb,2.7193e-04_rb,1.8091e-04_rb,1.2437e-05_rb/)\n      kbo(:, 2,35, 4) = (/ &\n     &4.8583e-04_rb,4.9752e-04_rb,3.9566e-04_rb,2.5593e-04_rb,1.5305e-05_rb/)\n      kbo(:, 3,35, 4) = (/ &\n     &7.1875e-04_rb,7.0909e-04_rb,5.5358e-04_rb,3.4993e-04_rb,1.8635e-05_rb/)\n      kbo(:, 4,35, 4) = (/ &\n     &1.0171e-03_rb,9.7513e-04_rb,7.5023e-04_rb,4.6569e-04_rb,2.2205e-05_rb/)\n      kbo(:, 5,35, 4) = (/ &\n     &1.3872e-03_rb,1.3015e-03_rb,9.8912e-04_rb,6.0449e-04_rb,2.6045e-05_rb/)\n      kbo(:, 1,36, 4) = (/ &\n     &2.5808e-04_rb,2.7599e-04_rb,2.2440e-04_rb,1.4937e-04_rb,9.6631e-06_rb/)\n      kbo(:, 2,36, 4) = (/ &\n     &3.9964e-04_rb,4.1003e-04_rb,3.2602e-04_rb,2.1097e-04_rb,1.1834e-05_rb/)\n      kbo(:, 3,36, 4) = (/ &\n     &5.9092e-04_rb,5.8383e-04_rb,4.5590e-04_rb,2.8824e-04_rb,1.4353e-05_rb/)\n      kbo(:, 4,36, 4) = (/ &\n     &8.3595e-04_rb,8.0277e-04_rb,6.1763e-04_rb,3.8334e-04_rb,1.7189e-05_rb/)\n      kbo(:, 5,36, 4) = (/ &\n     &1.1396e-03_rb,1.0707e-03_rb,8.1375e-04_rb,4.9743e-04_rb,2.0326e-05_rb/)\n      kbo(:, 1,37, 4) = (/ &\n     &2.0121e-04_rb,2.1647e-04_rb,1.7647e-04_rb,1.1785e-04_rb,7.4310e-06_rb/)\n      kbo(:, 2,37, 4) = (/ &\n     &3.1330e-04_rb,3.2327e-04_rb,2.5768e-04_rb,1.6717e-04_rb,9.1199e-06_rb/)\n      kbo(:, 3,37, 4) = (/ &\n     &4.6580e-04_rb,4.6262e-04_rb,3.6181e-04_rb,2.2919e-04_rb,1.1050e-05_rb/)\n      kbo(:, 4,37, 4) = (/ &\n     &6.6212e-04_rb,6.3859e-04_rb,4.9190e-04_rb,3.0576e-04_rb,1.3280e-05_rb/)\n      kbo(:, 5,37, 4) = (/ &\n     &9.0672e-04_rb,8.5472e-04_rb,6.5027e-04_rb,3.9796e-04_rb,1.5719e-05_rb/)\n      kbo(:, 1,38, 4) = (/ &\n     &1.5610e-04_rb,1.6913e-04_rb,1.3823e-04_rb,9.2645e-05_rb,5.6716e-06_rb/)\n      kbo(:, 2,38, 4) = (/ &\n     &2.4467e-04_rb,2.5398e-04_rb,2.0295e-04_rb,1.3206e-04_rb,6.9811e-06_rb/)\n      kbo(:, 3,38, 4) = (/ &\n     &3.6591e-04_rb,3.6541e-04_rb,2.8633e-04_rb,1.8175e-04_rb,8.4645e-06_rb/)\n      kbo(:, 4,38, 4) = (/ &\n     &5.2302e-04_rb,5.0671e-04_rb,3.9077e-04_rb,2.4331e-04_rb,1.0160e-05_rb/)\n      kbo(:, 5,38, 4) = (/ &\n     &7.1953e-04_rb,6.8071e-04_rb,5.1841e-04_rb,3.1771e-04_rb,1.2087e-05_rb/)\n      kbo(:, 1,39, 4) = (/ &\n     &1.2096e-04_rb,1.3199e-04_rb,1.0815e-04_rb,7.2736e-05_rb,4.3132e-06_rb/)\n      kbo(:, 2,39, 4) = (/ &\n     &1.9086e-04_rb,1.9937e-04_rb,1.5970e-04_rb,1.0426e-04_rb,5.3181e-06_rb/)\n      kbo(:, 3,39, 4) = (/ &\n     &2.8720e-04_rb,2.8844e-04_rb,2.2641e-04_rb,1.4405e-04_rb,6.4566e-06_rb/)\n      kbo(:, 4,39, 4) = (/ &\n     &4.1286e-04_rb,4.0180e-04_rb,3.1020e-04_rb,1.9350e-04_rb,7.7296e-06_rb/)\n      kbo(:, 5,39, 4) = (/ &\n     &5.7063e-04_rb,5.4191e-04_rb,4.1317e-04_rb,2.5355e-04_rb,9.2083e-06_rb/)\n      kbo(:, 1,40, 4) = (/ &\n     &9.0120e-05_rb,9.9405e-05_rb,8.1774e-05_rb,5.5348e-05_rb,3.2802e-06_rb/)\n      kbo(:, 2,40, 4) = (/ &\n     &1.4396e-04_rb,1.5172e-04_rb,1.2199e-04_rb,8.0081e-05_rb,4.0450e-06_rb/)\n      kbo(:, 3,40, 4) = (/ &\n     &2.1897e-04_rb,2.2172e-04_rb,1.7453e-04_rb,1.1150e-04_rb,4.9391e-06_rb/)\n      kbo(:, 4,40, 4) = (/ &\n     &3.1818e-04_rb,3.1148e-04_rb,2.4096e-04_rb,1.5075e-04_rb,5.9260e-06_rb/)\n      kbo(:, 5,40, 4) = (/ &\n     &4.4338e-04_rb,4.2299e-04_rb,3.2304e-04_rb,1.9869e-04_rb,7.0429e-06_rb/)\n      kbo(:, 1,41, 4) = (/ &\n     &6.6586e-05_rb,7.4344e-05_rb,6.1391e-05_rb,4.1826e-05_rb,2.4789e-06_rb/)\n      kbo(:, 2,41, 4) = (/ &\n     &1.0786e-04_rb,1.1471e-04_rb,9.2627e-05_rb,6.1134e-05_rb,3.0831e-06_rb/)\n      kbo(:, 3,41, 4) = (/ &\n     &1.6588e-04_rb,1.6943e-04_rb,1.3383e-04_rb,8.5899e-05_rb,3.7712e-06_rb/)\n      kbo(:, 4,41, 4) = (/ &\n     &2.4383e-04_rb,2.4037e-04_rb,1.8645e-04_rb,1.1700e-04_rb,4.5478e-06_rb/)\n      kbo(:, 5,41, 4) = (/ &\n     &3.4300e-04_rb,3.2889e-04_rb,2.5168e-04_rb,1.5514e-04_rb,5.3910e-06_rb/)\n      kbo(:, 1,42, 4) = (/ &\n     &4.8998e-05_rb,5.5419e-05_rb,4.5947e-05_rb,3.1516e-05_rb,1.8667e-06_rb/)\n      kbo(:, 2,42, 4) = (/ &\n     &8.0484e-05_rb,8.6481e-05_rb,7.0103e-05_rb,4.6544e-05_rb,2.3354e-06_rb/)\n      kbo(:, 3,42, 4) = (/ &\n     &1.2531e-04_rb,1.2923e-04_rb,1.0238e-04_rb,6.6044e-05_rb,2.8708e-06_rb/)\n      kbo(:, 4,42, 4) = (/ &\n     &1.8633e-04_rb,1.8503e-04_rb,1.4397e-04_rb,9.0645e-05_rb,3.4606e-06_rb/)\n      kbo(:, 5,42, 4) = (/ &\n     &2.6476e-04_rb,2.5534e-04_rb,1.9578e-04_rb,1.2098e-04_rb,4.1084e-06_rb/)\n      kbo(:, 1,43, 4) = (/ &\n     &3.5242e-05_rb,4.0436e-05_rb,3.3714e-05_rb,2.3281e-05_rb,1.3919e-06_rb/)\n      kbo(:, 2,43, 4) = (/ &\n     &5.8897e-05_rb,6.4054e-05_rb,5.2168e-05_rb,3.4865e-05_rb,1.7548e-06_rb/)\n      kbo(:, 3,43, 4) = (/ &\n     &9.3170e-05_rb,9.7046e-05_rb,7.7251e-05_rb,5.0106e-05_rb,2.1668e-06_rb/)\n      kbo(:, 4,43, 4) = (/ &\n     &1.4048e-04_rb,1.4075e-04_rb,1.0986e-04_rb,6.9448e-05_rb,2.6074e-06_rb/)\n      kbo(:, 5,43, 4) = (/ &\n     &2.0220e-04_rb,1.9644e-04_rb,1.5089e-04_rb,9.3492e-05_rb,3.1278e-06_rb/)\n      kbo(:, 1,44, 4) = (/ &\n     &2.5004e-05_rb,2.9138e-05_rb,2.4437e-05_rb,1.6989e-05_rb,1.0250e-06_rb/)\n      kbo(:, 2,44, 4) = (/ &\n     &4.2585e-05_rb,4.6938e-05_rb,3.8422e-05_rb,2.5865e-05_rb,1.3112e-06_rb/)\n      kbo(:, 3,44, 4) = (/ &\n     &6.8563e-05_rb,7.2232e-05_rb,5.7761e-05_rb,3.7700e-05_rb,1.6186e-06_rb/)\n      kbo(:, 4,44, 4) = (/ &\n     &1.0501e-04_rb,1.0630e-04_rb,8.3253e-05_rb,5.2860e-05_rb,1.9651e-06_rb/)\n      kbo(:, 5,44, 4) = (/ &\n     &1.5343e-04_rb,1.5019e-04_rb,1.1567e-04_rb,7.1872e-05_rb,2.3710e-06_rb/)\n      kbo(:, 1,45, 4) = (/ &\n     &1.7648e-05_rb,2.0899e-05_rb,1.7624e-05_rb,1.2332e-05_rb,7.4778e-07_rb/)\n      kbo(:, 2,45, 4) = (/ &\n     &3.0648e-05_rb,3.4228e-05_rb,2.8145e-05_rb,1.9101e-05_rb,9.7150e-07_rb/)\n      kbo(:, 3,45, 4) = (/ &\n     &5.0244e-05_rb,5.3520e-05_rb,4.3001e-05_rb,2.8243e-05_rb,1.2073e-06_rb/)\n      kbo(:, 4,45, 4) = (/ &\n     &7.8191e-05_rb,7.9995e-05_rb,6.2888e-05_rb,4.0157e-05_rb,1.4831e-06_rb/)\n      kbo(:, 5,45, 4) = (/ &\n     &1.1605e-04_rb,1.1449e-04_rb,8.8448e-05_rb,5.5140e-05_rb,1.7858e-06_rb/)\n      kbo(:, 1,46, 4) = (/ &\n     &1.2241e-05_rb,1.4754e-05_rb,1.2528e-05_rb,8.8151e-06_rb,5.3848e-07_rb/)\n      kbo(:, 2,46, 4) = (/ &\n     &2.1731e-05_rb,2.4625e-05_rb,2.0352e-05_rb,1.3921e-05_rb,7.0792e-07_rb/)\n      kbo(:, 3,46, 4) = (/ &\n     &3.6328e-05_rb,3.9139e-05_rb,3.1626e-05_rb,2.0940e-05_rb,8.9555e-07_rb/)\n      kbo(:, 4,46, 4) = (/ &\n     &5.7531e-05_rb,5.9510e-05_rb,4.7024e-05_rb,3.0210e-05_rb,1.1090e-06_rb/)\n      kbo(:, 5,46, 4) = (/ &\n     &8.6821e-05_rb,8.6443e-05_rb,6.7046e-05_rb,4.1968e-05_rb,1.3451e-06_rb/)\n      kbo(:, 1,47, 4) = (/ &\n     &8.2449e-06_rb,1.0146e-05_rb,8.6807e-06_rb,6.1518e-06_rb,3.8332e-07_rb/)\n      kbo(:, 2,47, 4) = (/ &\n     &1.4999e-05_rb,1.7293e-05_rb,1.4384e-05_rb,9.9184e-06_rb,5.1069e-07_rb/)\n      kbo(:, 3,47, 4) = (/ &\n     &2.5663e-05_rb,2.8031e-05_rb,2.2776e-05_rb,1.5214e-05_rb,6.5507e-07_rb/)\n      kbo(:, 4,47, 4) = (/ &\n     &4.1483e-05_rb,4.3442e-05_rb,3.4514e-05_rb,2.2339e-05_rb,8.2140e-07_rb/)\n      kbo(:, 5,47, 4) = (/ &\n     &6.3807e-05_rb,6.4263e-05_rb,5.0034e-05_rb,3.1504e-05_rb,1.0057e-06_rb/)\n      kbo(:, 1,48, 4) = (/ &\n     &5.5161e-06_rb,6.9345e-06_rb,5.9711e-06_rb,4.2630e-06_rb,2.7090e-07_rb/)\n      kbo(:, 2,48, 4) = (/ &\n     &1.0274e-05_rb,1.2067e-05_rb,1.0101e-05_rb,7.0075e-06_rb,3.6468e-07_rb/)\n      kbo(:, 3,48, 4) = (/ &\n     &1.7999e-05_rb,1.9964e-05_rb,1.6291e-05_rb,1.0982e-05_rb,4.7593e-07_rb/)\n      kbo(:, 4,48, 4) = (/ &\n     &2.9748e-05_rb,3.1502e-05_rb,2.5173e-05_rb,1.6424e-05_rb,6.0510e-07_rb/)\n      kbo(:, 5,48, 4) = (/ &\n     &4.6627e-05_rb,4.7519e-05_rb,3.7159e-05_rb,2.3556e-05_rb,7.4697e-07_rb/)\n      kbo(:, 1,49, 4) = (/ &\n     &3.6712e-06_rb,4.7085e-06_rb,4.0821e-06_rb,2.9344e-06_rb,1.8902e-07_rb/)\n      kbo(:, 2,49, 4) = (/ &\n     &6.9808e-06_rb,8.3574e-06_rb,7.0495e-06_rb,4.9158e-06_rb,2.5862e-07_rb/)\n      kbo(:, 3,49, 4) = (/ &\n     &1.2533e-05_rb,1.4129e-05_rb,1.1598e-05_rb,7.8741e-06_rb,3.4164e-07_rb/)\n      kbo(:, 4,49, 4) = (/ &\n     &2.1199e-05_rb,2.2725e-05_rb,1.8253e-05_rb,1.2008e-05_rb,4.3895e-07_rb/)\n      kbo(:, 5,49, 4) = (/ &\n     &3.3893e-05_rb,3.4945e-05_rb,2.7461e-05_rb,1.7529e-05_rb,5.4985e-07_rb/)\n      kbo(:, 1,50, 4) = (/ &\n     &2.4835e-06_rb,3.2299e-06_rb,2.8168e-06_rb,2.0358e-06_rb,1.3342e-07_rb/)\n      kbo(:, 2,50, 4) = (/ &\n     &4.7895e-06_rb,5.8338e-06_rb,4.9516e-06_rb,3.4721e-06_rb,1.8475e-07_rb/)\n      kbo(:, 3,50, 4) = (/ &\n     &8.7933e-06_rb,1.0062e-05_rb,8.3077e-06_rb,5.6722e-06_rb,2.4761e-07_rb/)\n      kbo(:, 4,50, 4) = (/ &\n     &1.5202e-05_rb,1.6503e-05_rb,1.3305e-05_rb,8.8168e-06_rb,3.2240e-07_rb/)\n      kbo(:, 5,50, 4) = (/ &\n     &2.4800e-05_rb,2.5828e-05_rb,2.0397e-05_rb,1.3093e-05_rb,4.0814e-07_rb/)\n      kbo(:, 1,51, 4) = (/ &\n     &1.7011e-06_rb,2.2256e-06_rb,1.9504e-06_rb,1.4154e-06_rb,9.4900e-08_rb/)\n      kbo(:, 2,51, 4) = (/ &\n     &3.2953e-06_rb,4.0790e-06_rb,3.4794e-06_rb,2.4537e-06_rb,1.3273e-07_rb/)\n      kbo(:, 3,51, 4) = (/ &\n     &6.1746e-06_rb,7.1689e-06_rb,5.9544e-06_rb,4.0832e-06_rb,1.8014e-07_rb/)\n      kbo(:, 4,51, 4) = (/ &\n     &1.0912e-05_rb,1.1993e-05_rb,9.7046e-06_rb,6.4754e-06_rb,2.3777e-07_rb/)\n      kbo(:, 5,51, 4) = (/ &\n     &1.8173e-05_rb,1.9097e-05_rb,1.5144e-05_rb,9.7867e-06_rb,3.0334e-07_rb/)\n      kbo(:, 1,52, 4) = (/ &\n     &1.1779e-06_rb,1.5381e-06_rb,1.3497e-06_rb,9.8158e-07_rb,6.6305e-08_rb/)\n      kbo(:, 2,52, 4) = (/ &\n     &2.2623e-06_rb,2.8412e-06_rb,2.4342e-06_rb,1.7266e-06_rb,9.4865e-08_rb/)\n      kbo(:, 3,52, 4) = (/ &\n     &4.3170e-06_rb,5.0854e-06_rb,4.2468e-06_rb,2.9260e-06_rb,1.3026e-07_rb/)\n      kbo(:, 4,52, 4) = (/ &\n     &7.7969e-06_rb,8.6772e-06_rb,7.0531e-06_rb,4.7333e-06_rb,1.7384e-07_rb/)\n      kbo(:, 5,52, 4) = (/ &\n     &1.3261e-05_rb,1.4075e-05_rb,1.1203e-05_rb,7.2837e-06_rb,2.2485e-07_rb/)\n      kbo(:, 1,53, 4) = (/ &\n     &8.3089e-07_rb,1.0687e-06_rb,9.3518e-07_rb,6.7997e-07_rb,4.5831e-08_rb/)\n      kbo(:, 2,53, 4) = (/ &\n     &1.5556e-06_rb,1.9711e-06_rb,1.6966e-06_rb,1.2083e-06_rb,6.7497e-08_rb/)\n      kbo(:, 3,53, 4) = (/ &\n     &3.0048e-06_rb,3.5908e-06_rb,3.0131e-06_rb,2.0844e-06_rb,9.3485e-08_rb/)\n      kbo(:, 4,53, 4) = (/ &\n     &5.5438e-06_rb,6.2468e-06_rb,5.1016e-06_rb,3.4387e-06_rb,1.2594e-07_rb/)\n      kbo(:, 5,53, 4) = (/ &\n     &9.6328e-06_rb,1.0329e-05_rb,8.2446e-06_rb,5.3978e-06_rb,1.6450e-07_rb/)\n      kbo(:, 1,54, 4) = (/ &\n     &6.1034e-07_rb,7.6407e-07_rb,6.6371e-07_rb,4.8016e-07_rb,3.1960e-08_rb/)\n      kbo(:, 2,54, 4) = (/ &\n     &1.0977e-06_rb,1.3930e-06_rb,1.2021e-06_rb,8.5784e-07_rb,4.9012e-08_rb/)\n      kbo(:, 3,54, 4) = (/ &\n     &2.1270e-06_rb,2.5705e-06_rb,2.1637e-06_rb,1.5024e-06_rb,6.8673e-08_rb/)\n      kbo(:, 4,54, 4) = (/ &\n     &3.9965e-06_rb,4.5514e-06_rb,3.7320e-06_rb,2.5226e-06_rb,9.3587e-08_rb/)\n      kbo(:, 5,54, 4) = (/ &\n     &7.0830e-06_rb,7.6654e-06_rb,6.1329e-06_rb,4.0351e-06_rb,1.2382e-07_rb/)\n      kbo(:, 1,55, 4) = (/ &\n     &4.6385e-07_rb,5.5921e-07_rb,4.8019e-07_rb,3.4337e-07_rb,2.2394e-08_rb/)\n      kbo(:, 2,55, 4) = (/ &\n     &7.8989e-07_rb,9.9640e-07_rb,8.5986e-07_rb,6.1313e-07_rb,3.5977e-08_rb/)\n      kbo(:, 3,55, 4) = (/ &\n     &1.5192e-06_rb,1.8516e-06_rb,1.5624e-06_rb,1.0878e-06_rb,5.1500e-08_rb/)\n      kbo(:, 4,55, 4) = (/ &\n     &2.8980e-06_rb,3.3321e-06_rb,2.7426e-06_rb,1.8581e-06_rb,7.0762e-08_rb/)\n      kbo(:, 5,55, 4) = (/ &\n     &5.2356e-06_rb,5.7136e-06_rb,4.5826e-06_rb,3.0253e-06_rb,9.4338e-08_rb/)\n      kbo(:, 1,56, 4) = (/ &\n     &3.6371e-07_rb,4.1822e-07_rb,3.5281e-07_rb,2.4786e-07_rb,1.6072e-08_rb/)\n      kbo(:, 2,56, 4) = (/ &\n     &5.7786e-07_rb,7.1776e-07_rb,6.1684e-07_rb,4.3889e-07_rb,2.6450e-08_rb/)\n      kbo(:, 3,56, 4) = (/ &\n     &1.0893e-06_rb,1.3335e-06_rb,1.1271e-06_rb,7.8636e-07_rb,3.8603e-08_rb/)\n      kbo(:, 4,56, 4) = (/ &\n     &2.1010e-06_rb,2.4368e-06_rb,2.0114e-06_rb,1.3652e-06_rb,5.3303e-08_rb/)\n      kbo(:, 5,56, 4) = (/ &\n     &3.8675e-06_rb,4.2536e-06_rb,3.4205e-06_rb,2.2622e-06_rb,7.1626e-08_rb/)\n      kbo(:, 1,57, 4) = (/ &\n     &2.9431e-07_rb,3.2133e-07_rb,2.6457e-07_rb,1.8146e-07_rb,1.1259e-08_rb/)\n      kbo(:, 2,57, 4) = (/ &\n     &4.3212e-07_rb,5.2280e-07_rb,4.4601e-07_rb,3.1527e-07_rb,1.9122e-08_rb/)\n      kbo(:, 3,57, 4) = (/ &\n     &7.8679e-07_rb,9.6129e-07_rb,8.1340e-07_rb,5.6766e-07_rb,2.8681e-08_rb/)\n      kbo(:, 4,57, 4) = (/ &\n     &1.5240e-06_rb,1.7810e-06_rb,1.4725e-06_rb,1.0013e-06_rb,4.0212e-08_rb/)\n      kbo(:, 5,57, 4) = (/ &\n     &2.8546e-06_rb,3.1617e-06_rb,2.5494e-06_rb,1.6875e-06_rb,5.4480e-08_rb/)\n      kbo(:, 1,58, 4) = (/ &\n     &1.1920e-07_rb,1.4193e-07_rb,1.3380e-07_rb,1.0782e-07_rb,7.9525e-09_rb/)\n      kbo(:, 2,58, 4) = (/ &\n     &1.6186e-07_rb,2.1696e-07_rb,2.1477e-07_rb,1.8165e-07_rb,1.3814e-08_rb/)\n      kbo(:, 3,58, 4) = (/ &\n     &2.8087e-07_rb,3.9076e-07_rb,3.8760e-07_rb,3.2679e-07_rb,2.1394e-08_rb/)\n      kbo(:, 4,58, 4) = (/ &\n     &5.4191e-07_rb,7.3009e-07_rb,7.0916e-07_rb,5.8413e-07_rb,3.0724e-08_rb/)\n      kbo(:, 5,58, 4) = (/ &\n     &1.0299e-06_rb,1.3167e-06_rb,1.2488e-06_rb,1.0008e-06_rb,4.1885e-08_rb/)\n      kbo(:, 1,59, 4) = (/ &\n     &1.0039e-07_rb,1.1714e-07_rb,1.0974e-07_rb,8.7504e-08_rb,6.4674e-09_rb/)\n      kbo(:, 2,59, 4) = (/ &\n     &1.3241e-07_rb,1.7435e-07_rb,1.7189e-07_rb,1.4496e-07_rb,1.1458e-08_rb/)\n      kbo(:, 3,59, 4) = (/ &\n     &2.2493e-07_rb,3.1060e-07_rb,3.0841e-07_rb,2.6052e-07_rb,1.7735e-08_rb/)\n      kbo(:, 4,59, 4) = (/ &\n     &4.3202e-07_rb,5.8172e-07_rb,5.6654e-07_rb,4.6829e-07_rb,2.5818e-08_rb/)\n      kbo(:, 5,59, 4) = (/ &\n     &8.2523e-07_rb,1.0563e-06_rb,1.0053e-06_rb,8.0852e-07_rb,3.5572e-08_rb/)\n      kbo(:, 1,13, 5) = (/ &\n     &3.5348e-02_rb,3.1651e-02_rb,2.3972e-02_rb,1.4520e-02_rb,1.2073e-03_rb/)\n      kbo(:, 2,13, 5) = (/ &\n     &5.4657e-02_rb,4.7880e-02_rb,3.5919e-02_rb,2.1424e-02_rb,1.4997e-03_rb/)\n      kbo(:, 3,13, 5) = (/ &\n     &8.2602e-02_rb,7.1045e-02_rb,5.2562e-02_rb,3.0599e-02_rb,1.8487e-03_rb/)\n      kbo(:, 4,13, 5) = (/ &\n     &1.1970e-01_rb,1.0136e-01_rb,7.4139e-02_rb,4.2733e-02_rb,2.2117e-03_rb/)\n      kbo(:, 5,13, 5) = (/ &\n     &1.6697e-01_rb,1.3996e-01_rb,1.0160e-01_rb,5.7755e-02_rb,2.6210e-03_rb/)\n      kbo(:, 1,14, 5) = (/ &\n     &3.1413e-02_rb,2.7971e-02_rb,2.1089e-02_rb,1.2782e-02_rb,9.9834e-04_rb/)\n      kbo(:, 2,14, 5) = (/ &\n     &4.9001e-02_rb,4.2669e-02_rb,3.1890e-02_rb,1.8901e-02_rb,1.2749e-03_rb/)\n      kbo(:, 3,14, 5) = (/ &\n     &7.3648e-02_rb,6.3169e-02_rb,4.6557e-02_rb,2.7140e-02_rb,1.5545e-03_rb/)\n      kbo(:, 4,14, 5) = (/ &\n     &1.0633e-01_rb,9.0035e-02_rb,6.5788e-02_rb,3.7842e-02_rb,1.8680e-03_rb/)\n      kbo(:, 5,14, 5) = (/ &\n     &1.4847e-01_rb,1.2452e-01_rb,9.0180e-02_rb,5.1123e-02_rb,2.2124e-03_rb/)\n      kbo(:, 1,15, 5) = (/ &\n     &2.6691e-02_rb,2.3767e-02_rb,1.7918e-02_rb,1.0846e-02_rb,8.4376e-04_rb/)\n      kbo(:, 2,15, 5) = (/ &\n     &4.1563e-02_rb,3.6328e-02_rb,2.7130e-02_rb,1.6082e-02_rb,1.0611e-03_rb/)\n      kbo(:, 3,15, 5) = (/ &\n     &6.2559e-02_rb,5.3858e-02_rb,3.9632e-02_rb,2.3133e-02_rb,1.2845e-03_rb/)\n      kbo(:, 4,15, 5) = (/ &\n     &9.0477e-02_rb,7.6844e-02_rb,5.6216e-02_rb,3.2223e-02_rb,1.5617e-03_rb/)\n      kbo(:, 5,15, 5) = (/ &\n     &1.2655e-01_rb,1.0613e-01_rb,7.6652e-02_rb,4.3561e-02_rb,1.9061e-03_rb/)\n      kbo(:, 1,16, 5) = (/ &\n     &2.1986e-02_rb,1.9716e-02_rb,1.4938e-02_rb,9.0172e-03_rb,6.9426e-04_rb/)\n      kbo(:, 2,16, 5) = (/ &\n     &3.4448e-02_rb,3.0201e-02_rb,2.2563e-02_rb,1.3402e-02_rb,8.6528e-04_rb/)\n      kbo(:, 3,16, 5) = (/ &\n     &5.1943e-02_rb,4.4837e-02_rb,3.3116e-02_rb,1.9274e-02_rb,1.0580e-03_rb/)\n      kbo(:, 4,16, 5) = (/ &\n     &7.5192e-02_rb,6.4048e-02_rb,4.6767e-02_rb,2.6829e-02_rb,1.3132e-03_rb/)\n      kbo(:, 5,16, 5) = (/ &\n     &1.0492e-01_rb,8.8109e-02_rb,6.3827e-02_rb,3.6312e-02_rb,1.6006e-03_rb/)\n      kbo(:, 1,17, 5) = (/ &\n     &1.8067e-02_rb,1.6242e-02_rb,1.2317e-02_rb,7.4587e-03_rb,5.8084e-04_rb/)\n      kbo(:, 2,17, 5) = (/ &\n     &2.8443e-02_rb,2.5054e-02_rb,1.8720e-02_rb,1.1098e-02_rb,7.2334e-04_rb/)\n      kbo(:, 3,17, 5) = (/ &\n     &4.2795e-02_rb,3.7062e-02_rb,2.7408e-02_rb,1.5965e-02_rb,9.0099e-04_rb/)\n      kbo(:, 4,17, 5) = (/ &\n     &6.1919e-02_rb,5.2891e-02_rb,3.8653e-02_rb,2.2221e-02_rb,1.1193e-03_rb/)\n      kbo(:, 5,17, 5) = (/ &\n     &8.6219e-02_rb,7.2608e-02_rb,5.2687e-02_rb,2.9957e-02_rb,1.3671e-03_rb/)\n      kbo(:, 1,18, 5) = (/ &\n     &1.4708e-02_rb,1.3327e-02_rb,1.0113e-02_rb,6.1290e-03_rb,4.8316e-04_rb/)\n      kbo(:, 2,18, 5) = (/ &\n     &2.3136e-02_rb,2.0491e-02_rb,1.5341e-02_rb,9.1147e-03_rb,6.0374e-04_rb/)\n      kbo(:, 3,18, 5) = (/ &\n     &3.4747e-02_rb,3.0283e-02_rb,2.2393e-02_rb,1.3077e-02_rb,7.6598e-04_rb/)\n      kbo(:, 4,18, 5) = (/ &\n     &5.0288e-02_rb,4.3057e-02_rb,3.1490e-02_rb,1.8130e-02_rb,9.5069e-04_rb/)\n      kbo(:, 5,18, 5) = (/ &\n     &6.9756e-02_rb,5.9005e-02_rb,4.2850e-02_rb,2.4412e-02_rb,1.1633e-03_rb/)\n      kbo(:, 1,19, 5) = (/ &\n     &1.2271e-02_rb,1.1130e-02_rb,8.4511e-03_rb,5.1168e-03_rb,4.1293e-04_rb/)\n      kbo(:, 2,19, 5) = (/ &\n     &1.9205e-02_rb,1.7036e-02_rb,1.2763e-02_rb,7.5902e-03_rb,5.1993e-04_rb/)\n      kbo(:, 3,19, 5) = (/ &\n     &2.8789e-02_rb,2.5103e-02_rb,1.8579e-02_rb,1.0864e-02_rb,6.5561e-04_rb/)\n      kbo(:, 4,19, 5) = (/ &\n     &4.1470e-02_rb,3.5549e-02_rb,2.6049e-02_rb,1.5006e-02_rb,8.1395e-04_rb/)\n      kbo(:, 5,19, 5) = (/ &\n     &5.7470e-02_rb,4.8743e-02_rb,3.5383e-02_rb,2.0175e-02_rb,9.9598e-04_rb/)\n      kbo(:, 1,20, 5) = (/ &\n     &1.0604e-02_rb,9.5861e-03_rb,7.2655e-03_rb,4.3823e-03_rb,3.5617e-04_rb/)\n      kbo(:, 2,20, 5) = (/ &\n     &1.6495e-02_rb,1.4613e-02_rb,1.0934e-02_rb,6.4798e-03_rb,4.4865e-04_rb/)\n      kbo(:, 3,20, 5) = (/ &\n     &2.4651e-02_rb,2.1430e-02_rb,1.5803e-02_rb,9.2155e-03_rb,5.6360e-04_rb/)\n      kbo(:, 4,20, 5) = (/ &\n     &3.5214e-02_rb,3.0218e-02_rb,2.2119e-02_rb,1.2722e-02_rb,7.0046e-04_rb/)\n      kbo(:, 5,20, 5) = (/ &\n     &4.8685e-02_rb,4.1243e-02_rb,2.9948e-02_rb,1.7048e-02_rb,8.5450e-04_rb/)\n      kbo(:, 1,21, 5) = (/ &\n     &9.2365e-03_rb,8.3349e-03_rb,6.3064e-03_rb,3.7870e-03_rb,3.0556e-04_rb/)\n      kbo(:, 2,21, 5) = (/ &\n     &1.4270e-02_rb,1.2642e-02_rb,9.4383e-03_rb,5.5694e-03_rb,3.8499e-04_rb/)\n      kbo(:, 3,21, 5) = (/ &\n     &2.1188e-02_rb,1.8415e-02_rb,1.3582e-02_rb,7.8888e-03_rb,4.8632e-04_rb/)\n      kbo(:, 4,21, 5) = (/ &\n     &3.0204e-02_rb,2.5895e-02_rb,1.8922e-02_rb,1.0859e-02_rb,6.0144e-04_rb/)\n      kbo(:, 5,21, 5) = (/ &\n     &4.1738e-02_rb,3.5266e-02_rb,2.5553e-02_rb,1.4491e-02_rb,7.3167e-04_rb/)\n      kbo(:, 1,22, 5) = (/ &\n     &8.2084e-03_rb,7.4154e-03_rb,5.5986e-03_rb,3.3447e-03_rb,2.6030e-04_rb/)\n      kbo(:, 2,22, 5) = (/ &\n     &1.2593e-02_rb,1.1132e-02_rb,8.2855e-03_rb,4.8830e-03_rb,3.3150e-04_rb/)\n      kbo(:, 3,22, 5) = (/ &\n     &1.8558e-02_rb,1.6118e-02_rb,1.1879e-02_rb,6.8818e-03_rb,4.1718e-04_rb/)\n      kbo(:, 4,22, 5) = (/ &\n     &2.6423e-02_rb,2.2608e-02_rb,1.6490e-02_rb,9.4242e-03_rb,5.1837e-04_rb/)\n      kbo(:, 5,22, 5) = (/ &\n     &3.6423e-02_rb,3.0712e-02_rb,2.2210e-02_rb,1.2556e-02_rb,6.2757e-04_rb/)\n      kbo(:, 1,23, 5) = (/ &\n     &7.2962e-03_rb,6.5767e-03_rb,4.9576e-03_rb,2.9518e-03_rb,2.2147e-04_rb/)\n      kbo(:, 2,23, 5) = (/ &\n     &1.1116e-02_rb,9.7878e-03_rb,7.2822e-03_rb,4.2736e-03_rb,2.8452e-04_rb/)\n      kbo(:, 3,23, 5) = (/ &\n     &1.6294e-02_rb,1.4142e-02_rb,1.0397e-02_rb,6.0039e-03_rb,3.5768e-04_rb/)\n      kbo(:, 4,23, 5) = (/ &\n     &2.3164e-02_rb,1.9768e-02_rb,1.4383e-02_rb,8.1899e-03_rb,4.4507e-04_rb/)\n      kbo(:, 5,23, 5) = (/ &\n     &3.1815e-02_rb,2.6782e-02_rb,1.9341e-02_rb,1.0913e-02_rb,5.3593e-04_rb/)\n      kbo(:, 1,24, 5) = (/ &\n     &6.5132e-03_rb,5.8530e-03_rb,4.4011e-03_rb,2.6156e-03_rb,1.8866e-04_rb/)\n      kbo(:, 2,24, 5) = (/ &\n     &9.8979e-03_rb,8.6925e-03_rb,6.4521e-03_rb,3.7670e-03_rb,2.4398e-04_rb/)\n      kbo(:, 3,24, 5) = (/ &\n     &1.4458e-02_rb,1.2498e-02_rb,9.1615e-03_rb,5.2667e-03_rb,3.0838e-04_rb/)\n      kbo(:, 4,24, 5) = (/ &\n     &2.0434e-02_rb,1.7400e-02_rb,1.2635e-02_rb,7.1775e-03_rb,3.8038e-04_rb/)\n      kbo(:, 5,24, 5) = (/ &\n     &2.8011e-02_rb,2.3552e-02_rb,1.6988e-02_rb,9.5542e-03_rb,4.5842e-04_rb/)\n      kbo(:, 1,25, 5) = (/ &\n     &5.8496e-03_rb,5.2463e-03_rb,3.9347e-03_rb,2.3271e-03_rb,1.6445e-04_rb/)\n      kbo(:, 2,25, 5) = (/ &\n     &8.8417e-03_rb,7.7604e-03_rb,5.7347e-03_rb,3.3321e-03_rb,2.1081e-04_rb/)\n      kbo(:, 3,25, 5) = (/ &\n     &1.2868e-02_rb,1.1077e-02_rb,8.0978e-03_rb,4.6433e-03_rb,2.6559e-04_rb/)\n      kbo(:, 4,25, 5) = (/ &\n     &1.8100e-02_rb,1.5382e-02_rb,1.1156e-02_rb,6.3115e-03_rb,3.2583e-04_rb/)\n      kbo(:, 5,25, 5) = (/ &\n     &2.4695e-02_rb,2.0722e-02_rb,1.4925e-02_rb,8.3824e-03_rb,3.9105e-04_rb/)\n      kbo(:, 1,26, 5) = (/ &\n     &5.3224e-03_rb,4.7440e-03_rb,3.5455e-03_rb,2.0856e-03_rb,1.4273e-04_rb/)\n      kbo(:, 2,26, 5) = (/ &\n     &7.9880e-03_rb,6.9773e-03_rb,5.1401e-03_rb,2.9750e-03_rb,1.8261e-04_rb/)\n      kbo(:, 3,26, 5) = (/ &\n     &1.1564e-02_rb,9.9215e-03_rb,7.2343e-03_rb,4.1334e-03_rb,2.2903e-04_rb/)\n      kbo(:, 4,26, 5) = (/ &\n     &1.6157e-02_rb,1.3698e-02_rb,9.9057e-03_rb,5.5934e-03_rb,2.7897e-04_rb/)\n      kbo(:, 5,26, 5) = (/ &\n     &2.1895e-02_rb,1.8349e-02_rb,1.3199e-02_rb,7.3992e-03_rb,3.3238e-04_rb/)\n      kbo(:, 1,27, 5) = (/ &\n     &4.8372e-03_rb,4.2909e-03_rb,3.1935e-03_rb,1.8703e-03_rb,1.2222e-04_rb/)\n      kbo(:, 2,27, 5) = (/ &\n     &7.2219e-03_rb,6.2785e-03_rb,4.6150e-03_rb,2.6594e-03_rb,1.5564e-04_rb/)\n      kbo(:, 3,27, 5) = (/ &\n     &1.0384e-02_rb,8.8912e-03_rb,6.4664e-03_rb,3.6778e-03_rb,1.9361e-04_rb/)\n      kbo(:, 4,27, 5) = (/ &\n     &1.4401e-02_rb,1.2183e-02_rb,8.7984e-03_rb,4.9566e-03_rb,2.3445e-04_rb/)\n      kbo(:, 5,27, 5) = (/ &\n     &1.9400e-02_rb,1.6243e-02_rb,1.1670e-02_rb,6.5316e-03_rb,2.7869e-04_rb/)\n      kbo(:, 1,28, 5) = (/ &\n     &4.3907e-03_rb,3.8800e-03_rb,2.8785e-03_rb,1.6793e-03_rb,1.0352e-04_rb/)\n      kbo(:, 2,28, 5) = (/ &\n     &6.5180e-03_rb,5.6500e-03_rb,4.1431e-03_rb,2.3781e-03_rb,1.3090e-04_rb/)\n      kbo(:, 3,28, 5) = (/ &\n     &9.2995e-03_rb,7.9428e-03_rb,5.7641e-03_rb,3.2684e-03_rb,1.6163e-04_rb/)\n      kbo(:, 4,28, 5) = (/ &\n     &1.2806e-02_rb,1.0816e-02_rb,7.7992e-03_rb,4.3863e-03_rb,1.9422e-04_rb/)\n      kbo(:, 5,28, 5) = (/ &\n     &1.7155e-02_rb,1.4361e-02_rb,1.0305e-02_rb,5.7599e-03_rb,2.3020e-04_rb/)\n      kbo(:, 1,29, 5) = (/ &\n     &3.9730e-03_rb,3.5033e-03_rb,2.5903e-03_rb,1.5043e-03_rb,8.6138e-05_rb/)\n      kbo(:, 2,29, 5) = (/ &\n     &5.8501e-03_rb,5.0589e-03_rb,3.6981e-03_rb,2.1165e-03_rb,1.0866e-04_rb/)\n      kbo(:, 3,29, 5) = (/ &\n     &8.2752e-03_rb,7.0540e-03_rb,5.1122e-03_rb,2.8938e-03_rb,1.3206e-04_rb/)\n      kbo(:, 4,29, 5) = (/ &\n     &1.1323e-02_rb,9.5548e-03_rb,6.8809e-03_rb,3.8639e-03_rb,1.5770e-04_rb/)\n      kbo(:, 5,29, 5) = (/ &\n     &1.5087e-02_rb,1.2624e-02_rb,9.0498e-03_rb,5.0491e-03_rb,1.8805e-04_rb/)\n      kbo(:, 1,30, 5) = (/ &\n     &3.5719e-03_rb,3.1399e-03_rb,2.3162e-03_rb,1.3392e-03_rb,7.1373e-05_rb/)\n      kbo(:, 2,30, 5) = (/ &\n     &5.2107e-03_rb,4.4986e-03_rb,3.2816e-03_rb,1.8730e-03_rb,8.8119e-05_rb/)\n      kbo(:, 3,30, 5) = (/ &\n     &7.3165e-03_rb,6.2315e-03_rb,4.5078e-03_rb,2.5469e-03_rb,1.0662e-04_rb/)\n      kbo(:, 4,30, 5) = (/ &\n     &9.9520e-03_rb,8.3892e-03_rb,6.0327e-03_rb,3.3847e-03_rb,1.2803e-04_rb/)\n      kbo(:, 5,30, 5) = (/ &\n     &1.3166e-02_rb,1.1029e-02_rb,7.9003e-03_rb,4.4030e-03_rb,1.5121e-04_rb/)\n      kbo(:, 1,31, 5) = (/ &\n     &3.1788e-03_rb,2.7864e-03_rb,2.0507e-03_rb,1.1825e-03_rb,5.7200e-05_rb/)\n      kbo(:, 2,31, 5) = (/ &\n     &4.5964e-03_rb,3.9617e-03_rb,2.8849e-03_rb,1.6429e-03_rb,7.0401e-05_rb/)\n      kbo(:, 3,31, 5) = (/ &\n     &6.4014e-03_rb,5.4495e-03_rb,3.9350e-03_rb,2.2208e-03_rb,8.5247e-05_rb/)\n      kbo(:, 4,31, 5) = (/ &\n     &8.6375e-03_rb,7.2878e-03_rb,5.2393e-03_rb,2.9385e-03_rb,1.0146e-04_rb/)\n      kbo(:, 5,31, 5) = (/ &\n     &1.1347e-02_rb,9.5229e-03_rb,6.8169e-03_rb,3.7997e-03_rb,1.1891e-04_rb/)\n      kbo(:, 1,32, 5) = (/ &\n     &2.8359e-03_rb,2.4792e-03_rb,1.8198e-03_rb,1.0462e-03_rb,4.5712e-05_rb/)\n      kbo(:, 2,32, 5) = (/ &\n     &4.0627e-03_rb,3.4962e-03_rb,2.5410e-03_rb,1.4431e-03_rb,5.6022e-05_rb/)\n      kbo(:, 3,32, 5) = (/ &\n     &5.6078e-03_rb,4.7711e-03_rb,3.4442e-03_rb,1.9418e-03_rb,6.7267e-05_rb/)\n      kbo(:, 4,32, 5) = (/ &\n     &7.5047e-03_rb,6.3406e-03_rb,4.5581e-03_rb,2.5548e-03_rb,7.9547e-05_rb/)\n      kbo(:, 5,32, 5) = (/ &\n     &9.7792e-03_rb,8.2213e-03_rb,5.8868e-03_rb,3.2848e-03_rb,9.2763e-05_rb/)\n      kbo(:, 1,33, 5) = (/ &\n     &2.5284e-03_rb,2.2057e-03_rb,1.6155e-03_rb,9.2588e-04_rb,3.6267e-05_rb/)\n      kbo(:, 2,33, 5) = (/ &\n     &3.5886e-03_rb,3.0844e-03_rb,2.2382e-03_rb,1.2695e-03_rb,4.4003e-05_rb/)\n      kbo(:, 3,33, 5) = (/ &\n     &4.9097e-03_rb,4.1805e-03_rb,3.0157e-03_rb,1.6993e-03_rb,5.2825e-05_rb/)\n      kbo(:, 4,33, 5) = (/ &\n     &6.5165e-03_rb,5.5167e-03_rb,3.9645e-03_rb,2.2215e-03_rb,6.1889e-05_rb/)\n      kbo(:, 5,33, 5) = (/ &\n     &8.4209e-03_rb,7.0899e-03_rb,5.0775e-03_rb,2.8354e-03_rb,7.2610e-05_rb/)\n      kbo(:, 1,34, 5) = (/ &\n     &2.2520e-03_rb,1.9602e-03_rb,1.4328e-03_rb,8.1868e-04_rb,2.9417e-05_rb/)\n      kbo(:, 2,34, 5) = (/ &\n     &3.1681e-03_rb,2.7215e-03_rb,1.9717e-03_rb,1.1166e-03_rb,3.5490e-05_rb/)\n      kbo(:, 3,34, 5) = (/ &\n     &4.2977e-03_rb,3.6615e-03_rb,2.6403e-03_rb,1.4869e-03_rb,4.1854e-05_rb/)\n      kbo(:, 4,34, 5) = (/ &\n     &5.6597e-03_rb,4.7967e-03_rb,3.4462e-03_rb,1.9298e-03_rb,4.9348e-05_rb/)\n      kbo(:, 5,34, 5) = (/ &\n     &7.2681e-03_rb,6.1253e-03_rb,4.3873e-03_rb,2.4514e-03_rb,5.8186e-05_rb/)\n      kbo(:, 1,35, 5) = (/ &\n     &1.9366e-03_rb,1.6854e-03_rb,1.2304e-03_rb,7.0199e-04_rb,2.3008e-05_rb/)\n      kbo(:, 2,35, 5) = (/ &\n     &2.7102e-03_rb,2.3296e-03_rb,1.6872e-03_rb,9.5490e-04_rb,2.7664e-05_rb/)\n      kbo(:, 3,35, 5) = (/ &\n     &3.6574e-03_rb,3.1206e-03_rb,2.2499e-03_rb,1.2662e-03_rb,3.3089e-05_rb/)\n      kbo(:, 4,35, 5) = (/ &\n     &4.7963e-03_rb,4.0694e-03_rb,2.9228e-03_rb,1.6371e-03_rb,3.9372e-05_rb/)\n      kbo(:, 5,35, 5) = (/ &\n     &6.1352e-03_rb,5.1795e-03_rb,3.7111e-03_rb,2.0740e-03_rb,4.6276e-05_rb/)\n      kbo(:, 1,36, 5) = (/ &\n     &1.6034e-03_rb,1.3976e-03_rb,1.0202e-03_rb,5.8186e-04_rb,1.7663e-05_rb/)\n      kbo(:, 2,36, 5) = (/ &\n     &2.2421e-03_rb,1.9307e-03_rb,1.3983e-03_rb,7.9118e-04_rb,2.1547e-05_rb/)\n      kbo(:, 3,36, 5) = (/ &\n     &3.0206e-03_rb,2.5824e-03_rb,1.8623e-03_rb,1.0484e-03_rb,2.5886e-05_rb/)\n      kbo(:, 4,36, 5) = (/ &\n     &3.9570e-03_rb,3.3630e-03_rb,2.4161e-03_rb,1.3541e-03_rb,3.0872e-05_rb/)\n      kbo(:, 5,36, 5) = (/ &\n     &5.0582e-03_rb,4.2785e-03_rb,3.0668e-03_rb,1.7150e-03_rb,3.6301e-05_rb/)\n      kbo(:, 1,37, 5) = (/ &\n     &1.2748e-03_rb,1.1146e-03_rb,8.1407e-04_rb,4.6450e-04_rb,1.3581e-05_rb/)\n      kbo(:, 2,37, 5) = (/ &\n     &1.7898e-03_rb,1.5447e-03_rb,1.1192e-03_rb,6.3354e-04_rb,1.6729e-05_rb/)\n      kbo(:, 3,37, 5) = (/ &\n     &2.4187e-03_rb,2.0714e-03_rb,1.4947e-03_rb,8.4187e-04_rb,2.0205e-05_rb/)\n      kbo(:, 4,37, 5) = (/ &\n     &3.1762e-03_rb,2.7057e-03_rb,1.9449e-03_rb,1.0902e-03_rb,2.4038e-05_rb/)\n      kbo(:, 5,37, 5) = (/ &\n     &4.0701e-03_rb,3.4504e-03_rb,2.4741e-03_rb,1.3836e-03_rb,2.8365e-05_rb/)\n      kbo(:, 1,38, 5) = (/ &\n     &1.0102e-03_rb,8.8559e-04_rb,6.4741e-04_rb,3.6947e-04_rb,1.0412e-05_rb/)\n      kbo(:, 2,38, 5) = (/ &\n     &1.4249e-03_rb,1.2327e-03_rb,8.9319e-04_rb,5.0584e-04_rb,1.2901e-05_rb/)\n      kbo(:, 3,38, 5) = (/ &\n     &1.9318e-03_rb,1.6579e-03_rb,1.1967e-03_rb,6.7434e-04_rb,1.5672e-05_rb/)\n      kbo(:, 4,38, 5) = (/ &\n     &2.5434e-03_rb,2.1714e-03_rb,1.5616e-03_rb,8.7562e-04_rb,1.8795e-05_rb/)\n      kbo(:, 5,38, 5) = (/ &\n     &3.2683e-03_rb,2.7765e-03_rb,1.9923e-03_rb,1.1142e-03_rb,2.2145e-05_rb/)\n      kbo(:, 1,39, 5) = (/ &\n     &7.9946e-04_rb,7.0298e-04_rb,5.1416e-04_rb,2.9368e-04_rb,7.9720e-06_rb/)\n      kbo(:, 2,39, 5) = (/ &\n     &1.1333e-03_rb,9.8290e-04_rb,7.1255e-04_rb,4.0353e-04_rb,9.9223e-06_rb/)\n      kbo(:, 3,39, 5) = (/ &\n     &1.5418e-03_rb,1.3259e-03_rb,9.5739e-04_rb,5.3970e-04_rb,1.2141e-05_rb/)\n      kbo(:, 4,39, 5) = (/ &\n     &2.0355e-03_rb,1.7418e-03_rb,1.2533e-03_rb,7.0303e-04_rb,1.4591e-05_rb/)\n      kbo(:, 5,39, 5) = (/ &\n     &2.6233e-03_rb,2.2332e-03_rb,1.6027e-03_rb,8.9673e-04_rb,1.7278e-05_rb/)\n      kbo(:, 1,40, 5) = (/ &\n     &6.1558e-04_rb,5.4339e-04_rb,3.9799e-04_rb,2.2761e-04_rb,6.0679e-06_rb/)\n      kbo(:, 2,40, 5) = (/ &\n     &8.8100e-04_rb,7.6638e-04_rb,5.5623e-04_rb,3.1507e-04_rb,7.6104e-06_rb/)\n      kbo(:, 3,40, 5) = (/ &\n     &1.2072e-03_rb,1.0404e-03_rb,7.5136e-04_rb,4.2373e-04_rb,9.3444e-06_rb/)\n      kbo(:, 4,40, 5) = (/ &\n     &1.6029e-03_rb,1.3742e-03_rb,9.8944e-04_rb,5.5501e-04_rb,1.1318e-05_rb/)\n      kbo(:, 5,40, 5) = (/ &\n     &2.0762e-03_rb,1.7710e-03_rb,1.2711e-03_rb,7.1134e-04_rb,1.3497e-05_rb/)\n      kbo(:, 1,41, 5) = (/ &\n     &4.7150e-04_rb,4.1786e-04_rb,3.0641e-04_rb,1.7559e-04_rb,4.6077e-06_rb/)\n      kbo(:, 2,41, 5) = (/ &\n     &6.8147e-04_rb,5.9486e-04_rb,4.3209e-04_rb,2.4498e-04_rb,5.8135e-06_rb/)\n      kbo(:, 3,41, 5) = (/ &\n     &9.4213e-04_rb,8.1372e-04_rb,5.8780e-04_rb,3.3145e-04_rb,7.1715e-06_rb/)\n      kbo(:, 4,41, 5) = (/ &\n     &1.2582e-03_rb,1.0809e-03_rb,7.7844e-04_rb,4.3685e-04_rb,8.7285e-06_rb/)\n      kbo(:, 5,41, 5) = (/ &\n     &1.6388e-03_rb,1.4010e-03_rb,1.0055e-03_rb,5.6266e-04_rb,1.0465e-05_rb/)\n      kbo(:, 1,42, 5) = (/ &\n     &3.6009e-04_rb,3.2039e-04_rb,2.3540e-04_rb,1.3511e-04_rb,3.4818e-06_rb/)\n      kbo(:, 2,42, 5) = (/ &\n     &5.2591e-04_rb,4.6075e-04_rb,3.3505e-04_rb,1.9005e-04_rb,4.4174e-06_rb/)\n      kbo(:, 3,42, 5) = (/ &\n     &7.3377e-04_rb,6.3539e-04_rb,4.5927e-04_rb,2.5904e-04_rb,5.4797e-06_rb/)\n      kbo(:, 4,42, 5) = (/ &\n     &9.8665e-04_rb,8.4900e-04_rb,6.1152e-04_rb,3.4335e-04_rb,6.7219e-06_rb/)\n      kbo(:, 5,42, 5) = (/ &\n     &1.2919e-03_rb,1.1071e-03_rb,7.9454e-04_rb,4.4455e-04_rb,8.0996e-06_rb/)\n      kbo(:, 1,43, 5) = (/ &\n     &2.7068e-04_rb,2.4195e-04_rb,1.7816e-04_rb,1.0249e-04_rb,2.5837e-06_rb/)\n      kbo(:, 2,43, 5) = (/ &\n     &4.0104e-04_rb,3.5254e-04_rb,2.5672e-04_rb,1.4582e-04_rb,3.3146e-06_rb/)\n      kbo(:, 3,43, 5) = (/ &\n     &5.6618e-04_rb,4.9150e-04_rb,3.5538e-04_rb,2.0045e-04_rb,4.1432e-06_rb/)\n      kbo(:, 4,43, 5) = (/ &\n     &7.6835e-04_rb,6.6216e-04_rb,4.7675e-04_rb,2.6781e-04_rb,5.1315e-06_rb/)\n      kbo(:, 5,43, 5) = (/ &\n     &1.0127e-03_rb,8.6923e-04_rb,6.2405e-04_rb,3.4899e-04_rb,6.1983e-06_rb/)\n      kbo(:, 1,44, 5) = (/ &\n     &2.0139e-04_rb,1.8106e-04_rb,1.3358e-04_rb,7.7094e-05_rb,1.8960e-06_rb/)\n      kbo(:, 2,44, 5) = (/ &\n     &3.0345e-04_rb,2.6774e-04_rb,1.9525e-04_rb,1.1112e-04_rb,2.4595e-06_rb/)\n      kbo(:, 3,44, 5) = (/ &\n     &4.3439e-04_rb,3.7822e-04_rb,2.7355e-04_rb,1.5433e-04_rb,3.1158e-06_rb/)\n      kbo(:, 4,44, 5) = (/ &\n     &5.9600e-04_rb,5.1425e-04_rb,3.7025e-04_rb,2.0795e-04_rb,3.8746e-06_rb/)\n      kbo(:, 5,44, 5) = (/ &\n     &7.9184e-04_rb,6.8038e-04_rb,4.8839e-04_rb,2.7303e-04_rb,4.7113e-06_rb/)\n      kbo(:, 1,45, 5) = (/ &\n     &1.4924e-04_rb,1.3479e-04_rb,9.9739e-05_rb,5.7756e-05_rb,1.3827e-06_rb/)\n      kbo(:, 2,45, 5) = (/ &\n     &2.2880e-04_rb,2.0270e-04_rb,1.4808e-04_rb,8.4395e-05_rb,1.8081e-06_rb/)\n      kbo(:, 3,45, 5) = (/ &\n     &3.3229e-04_rb,2.9032e-04_rb,2.1015e-04_rb,1.1857e-04_rb,2.3261e-06_rb/)\n      kbo(:, 4,45, 5) = (/ &\n     &4.6152e-04_rb,3.9893e-04_rb,2.8721e-04_rb,1.6120e-04_rb,2.9080e-06_rb/)\n      kbo(:, 5,45, 5) = (/ &\n     &6.1857e-04_rb,5.3204e-04_rb,3.8190e-04_rb,2.1341e-04_rb,3.5612e-06_rb/)\n      kbo(:, 1,46, 5) = (/ &\n     &1.0906e-04_rb,9.9059e-05_rb,7.3477e-05_rb,4.2734e-05_rb,1.0024e-06_rb/)\n      kbo(:, 2,46, 5) = (/ &\n     &1.7043e-04_rb,1.5165e-04_rb,1.1108e-04_rb,6.3473e-05_rb,1.3227e-06_rb/)\n      kbo(:, 3,46, 5) = (/ &\n     &2.5193e-04_rb,2.2079e-04_rb,1.6005e-04_rb,9.0376e-05_rb,1.7191e-06_rb/)\n      kbo(:, 4,46, 5) = (/ &\n     &3.5457e-04_rb,3.0711e-04_rb,2.2121e-04_rb,1.2412e-04_rb,2.1640e-06_rb/)\n      kbo(:, 5,46, 5) = (/ &\n     &4.8016e-04_rb,4.1350e-04_rb,2.9669e-04_rb,1.6585e-04_rb,2.6681e-06_rb/)\n      kbo(:, 1,47, 5) = (/ &\n     &7.7791e-05_rb,7.1164e-05_rb,5.2966e-05_rb,3.0950e-05_rb,7.1979e-07_rb/)\n      kbo(:, 2,47, 5) = (/ &\n     &1.2436e-04_rb,1.1134e-04_rb,8.1758e-05_rb,4.6856e-05_rb,9.5466e-07_rb/)\n      kbo(:, 3,47, 5) = (/ &\n     &1.8767e-04_rb,1.6518e-04_rb,1.1995e-04_rb,6.7855e-05_rb,1.2553e-06_rb/)\n      kbo(:, 4,47, 5) = (/ &\n     &2.6877e-04_rb,2.3350e-04_rb,1.6823e-04_rb,9.4438e-05_rb,1.6001e-06_rb/)\n      kbo(:, 5,47, 5) = (/ &\n     &3.6855e-04_rb,3.1774e-04_rb,2.2797e-04_rb,1.2742e-04_rb,1.9855e-06_rb/)\n      kbo(:, 1,48, 5) = (/ &\n     &5.5044e-05_rb,5.0693e-05_rb,3.7891e-05_rb,2.2267e-05_rb,5.1420e-07_rb/)\n      kbo(:, 2,48, 5) = (/ &\n     &9.0215e-05_rb,8.1170e-05_rb,5.9770e-05_rb,3.4413e-05_rb,6.9075e-07_rb/)\n      kbo(:, 3,48, 5) = (/ &\n     &1.3907e-04_rb,1.2292e-04_rb,8.9447e-05_rb,5.0716e-05_rb,9.0307e-07_rb/)\n      kbo(:, 4,48, 5) = (/ &\n     &2.0282e-04_rb,1.7688e-04_rb,1.2753e-04_rb,7.1593e-05_rb,1.1665e-06_rb/)\n      kbo(:, 5,48, 5) = (/ &\n     &2.8252e-04_rb,2.4382e-04_rb,1.7492e-04_rb,9.7702e-05_rb,1.4649e-06_rb/)\n      kbo(:, 1,49, 5) = (/ &\n     &3.8587e-05_rb,3.5798e-05_rb,2.6873e-05_rb,1.5895e-05_rb,3.6284e-07_rb/)\n      kbo(:, 2,49, 5) = (/ &\n     &6.4973e-05_rb,5.8784e-05_rb,4.3404e-05_rb,2.5118e-05_rb,4.9340e-07_rb/)\n      kbo(:, 3,49, 5) = (/ &\n     &1.0247e-04_rb,9.0960e-05_rb,6.6355e-05_rb,3.7720e-05_rb,6.5251e-07_rb/)\n      kbo(:, 4,49, 5) = (/ &\n     &1.5241e-04_rb,1.3334e-04_rb,9.6283e-05_rb,5.4131e-05_rb,8.4176e-07_rb/)\n      kbo(:, 5,49, 5) = (/ &\n     &2.1585e-04_rb,1.8661e-04_rb,1.3387e-04_rb,7.4762e-05_rb,1.0688e-06_rb/)\n      kbo(:, 1,50, 5) = (/ &\n     &2.7204e-05_rb,2.5412e-05_rb,1.9146e-05_rb,1.1397e-05_rb,2.5753e-07_rb/)\n      kbo(:, 2,50, 5) = (/ &\n     &4.7009e-05_rb,4.2778e-05_rb,3.1689e-05_rb,1.8416e-05_rb,3.5668e-07_rb/)\n      kbo(:, 3,50, 5) = (/ &\n     &7.5923e-05_rb,6.7680e-05_rb,4.9459e-05_rb,2.8188e-05_rb,4.7630e-07_rb/)\n      kbo(:, 4,50, 5) = (/ &\n     &1.1516e-04_rb,1.0107e-04_rb,7.3089e-05_rb,4.1129e-05_rb,6.1736e-07_rb/)\n      kbo(:, 5,50, 5) = (/ &\n     &1.6568e-04_rb,1.4364e-04_rb,1.0307e-04_rb,5.7556e-05_rb,7.8811e-07_rb/)\n      kbo(:, 1,51, 5) = (/ &\n     &1.9132e-05_rb,1.8022e-05_rb,1.3620e-05_rb,8.1585e-06_rb,1.8251e-07_rb/)\n      kbo(:, 2,51, 5) = (/ &\n     &3.4015e-05_rb,3.1104e-05_rb,2.3112e-05_rb,1.3493e-05_rb,2.5742e-07_rb/)\n      kbo(:, 3,51, 5) = (/ &\n     &5.6251e-05_rb,5.0351e-05_rb,3.6864e-05_rb,2.1082e-05_rb,3.4853e-07_rb/)\n      kbo(:, 4,51, 5) = (/ &\n     &8.7117e-05_rb,7.6686e-05_rb,5.5526e-05_rb,3.1296e-05_rb,4.5614e-07_rb/)\n      kbo(:, 5,51, 5) = (/ &\n     &1.2742e-04_rb,1.1075e-04_rb,7.9490e-05_rb,4.4386e-05_rb,5.8324e-07_rb/)\n      kbo(:, 1,52, 5) = (/ &\n     &1.3343e-05_rb,1.2680e-05_rb,9.6205e-06_rb,5.7937e-06_rb,1.2757e-07_rb/)\n      kbo(:, 2,52, 5) = (/ &\n     &2.4457e-05_rb,2.2489e-05_rb,1.6762e-05_rb,9.8342e-06_rb,1.8427e-07_rb/)\n      kbo(:, 3,52, 5) = (/ &\n     &4.1490e-05_rb,3.7272e-05_rb,2.7347e-05_rb,1.5697e-05_rb,2.5311e-07_rb/)\n      kbo(:, 4,52, 5) = (/ &\n     &6.5698e-05_rb,5.8019e-05_rb,4.2067e-05_rb,2.3741e-05_rb,3.3454e-07_rb/)\n      kbo(:, 5,52, 5) = (/ &\n     &9.7769e-05_rb,8.5199e-05_rb,6.1200e-05_rb,3.4184e-05_rb,4.3074e-07_rb/)\n      kbo(:, 1,53, 5) = (/ &\n     &9.2286e-06_rb,8.8438e-06_rb,6.7394e-06_rb,4.0796e-06_rb,8.7990e-08_rb/)\n      kbo(:, 2,53, 5) = (/ &\n     &1.7462e-05_rb,1.6145e-05_rb,1.2071e-05_rb,7.1204e-06_rb,1.3004e-07_rb/)\n      kbo(:, 3,53, 5) = (/ &\n     &3.0397e-05_rb,2.7436e-05_rb,2.0177e-05_rb,1.1626e-05_rb,1.8173e-07_rb/)\n      kbo(:, 4,53, 5) = (/ &\n     &4.9319e-05_rb,4.3681e-05_rb,3.1722e-05_rb,1.7943e-05_rb,2.4392e-07_rb/)\n      kbo(:, 5,53, 5) = (/ &\n     &7.4848e-05_rb,6.5369e-05_rb,4.7021e-05_rb,2.6269e-05_rb,3.1719e-07_rb/)\n      kbo(:, 1,54, 5) = (/ &\n     &6.4770e-06_rb,6.2515e-06_rb,4.7770e-06_rb,2.9074e-06_rb,6.2611e-08_rb/)\n      kbo(:, 2,54, 5) = (/ &\n     &1.2608e-05_rb,1.1724e-05_rb,8.7837e-06_rb,5.2044e-06_rb,9.4222e-08_rb/)\n      kbo(:, 3,54, 5) = (/ &\n     &2.2532e-05_rb,2.0405e-05_rb,1.5043e-05_rb,8.6950e-06_rb,1.3411e-07_rb/)\n      kbo(:, 4,54, 5) = (/ &\n     &3.7397e-05_rb,3.3212e-05_rb,2.4145e-05_rb,1.3685e-05_rb,1.8245e-07_rb/)\n      kbo(:, 5,54, 5) = (/ &\n     &5.7878e-05_rb,5.0645e-05_rb,3.6444e-05_rb,2.0382e-05_rb,2.3871e-07_rb/)\n      kbo(:, 1,55, 5) = (/ &\n     &4.5852e-06_rb,4.4390e-06_rb,3.4016e-06_rb,2.0767e-06_rb,4.4961e-08_rb/)\n      kbo(:, 2,55, 5) = (/ &\n     &9.1363e-06_rb,8.5468e-06_rb,6.4138e-06_rb,3.8136e-06_rb,6.9204e-08_rb/)\n      kbo(:, 3,55, 5) = (/ &\n     &1.6770e-05_rb,1.5238e-05_rb,1.1251e-05_rb,6.5245e-06_rb,1.0020e-07_rb/)\n      kbo(:, 4,55, 5) = (/ &\n     &2.8475e-05_rb,2.5343e-05_rb,1.8439e-05_rb,1.0474e-05_rb,1.3796e-07_rb/)\n      kbo(:, 5,55, 5) = (/ &\n     &4.4988e-05_rb,3.9423e-05_rb,2.8373e-05_rb,1.5872e-05_rb,1.8258e-07_rb/)\n      kbo(:, 1,56, 5) = (/ &\n     &3.2543e-06_rb,3.1469e-06_rb,2.4158e-06_rb,1.4787e-06_rb,3.1932e-08_rb/)\n      kbo(:, 2,56, 5) = (/ &\n     &6.5989e-06_rb,6.2038e-06_rb,4.6696e-06_rb,2.7831e-06_rb,5.0531e-08_rb/)\n      kbo(:, 3,56, 5) = (/ &\n     &1.2453e-05_rb,1.1352e-05_rb,8.3945e-06_rb,4.8820e-06_rb,7.4538e-08_rb/)\n      kbo(:, 4,56, 5) = (/ &\n     &2.1655e-05_rb,1.9314e-05_rb,1.4065e-05_rb,8.0028e-06_rb,1.0397e-07_rb/)\n      kbo(:, 5,56, 5) = (/ &\n     &3.4950e-05_rb,3.0673e-05_rb,2.2085e-05_rb,1.2363e-05_rb,1.3925e-07_rb/)\n      kbo(:, 1,57, 5) = (/ &\n     &2.3166e-06_rb,2.2390e-06_rb,1.7142e-06_rb,1.0504e-06_rb,2.2682e-08_rb/)\n      kbo(:, 2,57, 5) = (/ &\n     &4.7540e-06_rb,4.4892e-06_rb,3.3846e-06_rb,2.0245e-06_rb,3.6988e-08_rb/)\n      kbo(:, 3,57, 5) = (/ &\n     &9.2246e-06_rb,8.4320e-06_rb,6.2438e-06_rb,3.6425e-06_rb,5.5328e-08_rb/)\n      kbo(:, 4,57, 5) = (/ &\n     &1.6448e-05_rb,1.4704e-05_rb,1.0717e-05_rb,6.1069e-06_rb,7.8210e-08_rb/)\n      kbo(:, 5,57, 5) = (/ &\n     &2.7140e-05_rb,2.3849e-05_rb,1.7182e-05_rb,9.6233e-06_rb,1.0611e-07_rb/)\n      kbo(:, 1,58, 5) = (/ &\n     &8.1594e-07_rb,9.0016e-07_rb,8.0661e-07_rb,5.9543e-07_rb,1.6269e-08_rb/)\n      kbo(:, 2,58, 5) = (/ &\n     &1.6728e-06_rb,1.8193e-06_rb,1.6122e-06_rb,1.1689e-06_rb,2.7161e-08_rb/)\n      kbo(:, 3,58, 5) = (/ &\n     &3.3325e-06_rb,3.5076e-06_rb,3.0497e-06_rb,2.1581e-06_rb,4.1468e-08_rb/)\n      kbo(:, 4,58, 5) = (/ &\n     &6.0908e-06_rb,6.2615e-06_rb,5.3621e-06_rb,3.7018e-06_rb,5.9556e-08_rb/)\n      kbo(:, 5,58, 5) = (/ &\n     &1.0274e-05_rb,1.0375e-05_rb,8.7754e-06_rb,5.9519e-06_rb,8.1351e-08_rb/)\n      kbo(:, 1,59, 5) = (/ &\n     &6.5199e-07_rb,7.1682e-07_rb,6.4285e-07_rb,4.7533e-07_rb,1.3398e-08_rb/)\n      kbo(:, 2,59, 5) = (/ &\n     &1.3361e-06_rb,1.4531e-06_rb,1.2913e-06_rb,9.4099e-07_rb,2.2445e-08_rb/)\n      kbo(:, 3,59, 5) = (/ &\n     &2.6852e-06_rb,2.8341e-06_rb,2.4717e-06_rb,1.7572e-06_rb,3.4660e-08_rb/)\n      kbo(:, 4,59, 5) = (/ &\n     &4.9575e-06_rb,5.1104e-06_rb,4.3915e-06_rb,3.0485e-06_rb,4.9566e-08_rb/)\n      kbo(:, 5,59, 5) = (/ &\n     &8.4320e-06_rb,8.5398e-06_rb,7.2464e-06_rb,4.9418e-06_rb,6.8105e-08_rb/)\n      kbo(:, 1,13, 6) = (/ &\n     &1.5548e-01_rb,1.2226e-01_rb,8.5068e-02_rb,4.5702e-02_rb,2.0740e-03_rb/)\n      kbo(:, 2,13, 6) = (/ &\n     &2.1897e-01_rb,1.7240e-01_rb,1.2003e-01_rb,6.4538e-02_rb,2.5124e-03_rb/)\n      kbo(:, 3,13, 6) = (/ &\n     &3.0095e-01_rb,2.3621e-01_rb,1.6479e-01_rb,8.8859e-02_rb,3.0382e-03_rb/)\n      kbo(:, 4,13, 6) = (/ &\n     &4.0485e-01_rb,3.1719e-01_rb,2.2079e-01_rb,1.1848e-01_rb,3.6959e-03_rb/)\n      kbo(:, 5,13, 6) = (/ &\n     &5.3118e-01_rb,4.1467e-01_rb,2.8796e-01_rb,1.5438e-01_rb,4.3103e-03_rb/)\n      kbo(:, 1,14, 6) = (/ &\n     &1.3732e-01_rb,1.0825e-01_rb,7.5397e-02_rb,4.0495e-02_rb,1.7538e-03_rb/)\n      kbo(:, 2,14, 6) = (/ &\n     &1.9463e-01_rb,1.5344e-01_rb,1.0670e-01_rb,5.7417e-02_rb,2.1725e-03_rb/)\n      kbo(:, 3,14, 6) = (/ &\n     &2.6896e-01_rb,2.1173e-01_rb,1.4739e-01_rb,7.9254e-02_rb,2.6810e-03_rb/)\n      kbo(:, 4,14, 6) = (/ &\n     &3.6294e-01_rb,2.8446e-01_rb,1.9761e-01_rb,1.0591e-01_rb,3.1748e-03_rb/)\n      kbo(:, 5,14, 6) = (/ &\n     &4.7752e-01_rb,3.7323e-01_rb,2.5905e-01_rb,1.3864e-01_rb,3.7684e-03_rb/)\n      kbo(:, 1,15, 6) = (/ &\n     &1.1609e-01_rb,9.1864e-02_rb,6.4056e-02_rb,3.4496e-02_rb,1.4724e-03_rb/)\n      kbo(:, 2,15, 6) = (/ &\n     &1.6575e-01_rb,1.3099e-01_rb,9.1234e-02_rb,4.9161e-02_rb,1.8695e-03_rb/)\n      kbo(:, 3,15, 6) = (/ &\n     &2.2962e-01_rb,1.8109e-01_rb,1.2603e-01_rb,6.7814e-02_rb,2.2935e-03_rb/)\n      kbo(:, 4,15, 6) = (/ &\n     &3.1077e-01_rb,2.4430e-01_rb,1.6934e-01_rb,9.0957e-02_rb,2.7633e-03_rb/)\n      kbo(:, 5,15, 6) = (/ &\n     &4.0968e-01_rb,3.2160e-01_rb,2.2302e-01_rb,1.1925e-01_rb,3.2819e-03_rb/)\n      kbo(:, 1,16, 6) = (/ &\n     &9.6387e-02_rb,7.6493e-02_rb,5.3335e-02_rb,2.8835e-02_rb,1.2273e-03_rb/)\n      kbo(:, 2,16, 6) = (/ &\n     &1.3769e-01_rb,1.0917e-01_rb,7.6074e-02_rb,4.1117e-02_rb,1.5607e-03_rb/)\n      kbo(:, 3,16, 6) = (/ &\n     &1.9131e-01_rb,1.5123e-01_rb,1.0523e-01_rb,5.6738e-02_rb,1.9638e-03_rb/)\n      kbo(:, 4,16, 6) = (/ &\n     &2.5899e-01_rb,2.0399e-01_rb,1.4165e-01_rb,7.6203e-02_rb,2.3618e-03_rb/)\n      kbo(:, 5,16, 6) = (/ &\n     &3.4214e-01_rb,2.6934e-01_rb,1.8675e-01_rb,1.0014e-01_rb,2.8281e-03_rb/)\n      kbo(:, 1,17, 6) = (/ &\n     &7.9271e-02_rb,6.3126e-02_rb,4.4100e-02_rb,2.3917e-02_rb,1.0217e-03_rb/)\n      kbo(:, 2,17, 6) = (/ &\n     &1.1345e-01_rb,9.0182e-02_rb,6.2977e-02_rb,3.4156e-02_rb,1.3299e-03_rb/)\n      kbo(:, 3,17, 6) = (/ &\n     &1.5797e-01_rb,1.2511e-01_rb,8.7087e-02_rb,4.7059e-02_rb,1.6628e-03_rb/)\n      kbo(:, 4,17, 6) = (/ &\n     &2.1402e-01_rb,1.6897e-01_rb,1.1752e-01_rb,6.3332e-02_rb,2.0151e-03_rb/)\n      kbo(:, 5,17, 6) = (/ &\n     &2.8305e-01_rb,2.2332e-01_rb,1.5502e-01_rb,8.3415e-02_rb,2.4638e-03_rb/)\n      kbo(:, 1,18, 6) = (/ &\n     &6.4211e-02_rb,5.1302e-02_rb,3.5902e-02_rb,1.9554e-02_rb,8.7983e-04_rb/)\n      kbo(:, 2,18, 6) = (/ &\n     &9.2120e-02_rb,7.3433e-02_rb,5.1355e-02_rb,2.7890e-02_rb,1.1536e-03_rb/)\n      kbo(:, 3,18, 6) = (/ &\n     &1.2833e-01_rb,1.0186e-01_rb,7.1081e-02_rb,3.8483e-02_rb,1.4378e-03_rb/)\n      kbo(:, 4,18, 6) = (/ &\n     &1.7390e-01_rb,1.3787e-01_rb,9.6012e-02_rb,5.1930e-02_rb,1.7641e-03_rb/)\n      kbo(:, 5,18, 6) = (/ &\n     &2.3011e-01_rb,1.8206e-01_rb,1.2668e-01_rb,6.8404e-02_rb,2.1654e-03_rb/)\n      kbo(:, 1,19, 6) = (/ &\n     &5.2788e-02_rb,4.2299e-02_rb,2.9673e-02_rb,1.6227e-02_rb,7.6310e-04_rb/)\n      kbo(:, 2,19, 6) = (/ &\n     &7.5889e-02_rb,6.0648e-02_rb,4.2457e-02_rb,2.3108e-02_rb,1.0035e-03_rb/)\n      kbo(:, 3,19, 6) = (/ &\n     &1.0575e-01_rb,8.4190e-02_rb,5.8852e-02_rb,3.1993e-02_rb,1.2648e-03_rb/)\n      kbo(:, 4,19, 6) = (/ &\n     &1.4328e-01_rb,1.1394e-01_rb,7.9533e-02_rb,4.3155e-02_rb,1.5714e-03_rb/)\n      kbo(:, 5,19, 6) = (/ &\n     &1.8940e-01_rb,1.5028e-01_rb,1.0488e-01_rb,5.6817e-02_rb,1.9149e-03_rb/)\n      kbo(:, 1,20, 6) = (/ &\n     &4.4520e-02_rb,3.5758e-02_rb,2.5128e-02_rb,1.3753e-02_rb,6.6571e-04_rb/)\n      kbo(:, 2,20, 6) = (/ &\n     &6.4045e-02_rb,5.1271e-02_rb,3.5901e-02_rb,1.9582e-02_rb,8.7391e-04_rb/)\n      kbo(:, 3,20, 6) = (/ &\n     &8.9082e-02_rb,7.1164e-02_rb,4.9821e-02_rb,2.7122e-02_rb,1.1092e-03_rb/)\n      kbo(:, 4,20, 6) = (/ &\n     &1.2061e-01_rb,9.6051e-02_rb,6.7127e-02_rb,3.6518e-02_rb,1.3635e-03_rb/)\n      kbo(:, 5,20, 6) = (/ &\n     &1.5922e-01_rb,1.2658e-01_rb,8.8405e-02_rb,4.7977e-02_rb,1.6664e-03_rb/)\n      kbo(:, 1,21, 6) = (/ &\n     &3.7777e-02_rb,3.0383e-02_rb,2.1331e-02_rb,1.1694e-02_rb,5.7845e-04_rb/)\n      kbo(:, 2,21, 6) = (/ &\n     &5.4331e-02_rb,4.3484e-02_rb,3.0481e-02_rb,1.6684e-02_rb,7.5762e-04_rb/)\n      kbo(:, 3,21, 6) = (/ &\n     &7.5428e-02_rb,6.0294e-02_rb,4.2245e-02_rb,2.3058e-02_rb,9.5396e-04_rb/)\n      kbo(:, 4,21, 6) = (/ &\n     &1.0181e-01_rb,8.1193e-02_rb,5.6844e-02_rb,3.0978e-02_rb,1.1796e-03_rb/)\n      kbo(:, 5,21, 6) = (/ &\n     &1.3419e-01_rb,1.0693e-01_rb,7.4825e-02_rb,4.0693e-02_rb,1.4376e-03_rb/)\n      kbo(:, 1,22, 6) = (/ &\n     &3.2832e-02_rb,2.6387e-02_rb,1.8543e-02_rb,1.0190e-02_rb,5.0764e-04_rb/)\n      kbo(:, 2,22, 6) = (/ &\n     &4.6987e-02_rb,3.7684e-02_rb,2.6458e-02_rb,1.4480e-02_rb,6.6076e-04_rb/)\n      kbo(:, 3,22, 6) = (/ &\n     &6.5046e-02_rb,5.2018e-02_rb,3.6448e-02_rb,1.9932e-02_rb,8.2689e-04_rb/)\n      kbo(:, 4,22, 6) = (/ &\n     &8.7447e-02_rb,6.9814e-02_rb,4.8898e-02_rb,2.6679e-02_rb,1.0180e-03_rb/)\n      kbo(:, 5,22, 6) = (/ &\n     &1.1504e-01_rb,9.1878e-02_rb,6.4286e-02_rb,3.4972e-02_rb,1.2412e-03_rb/)\n      kbo(:, 1,23, 6) = (/ &\n     &2.8625e-02_rb,2.3013e-02_rb,1.6180e-02_rb,8.8954e-03_rb,4.4551e-04_rb/)\n      kbo(:, 2,23, 6) = (/ &\n     &4.0740e-02_rb,3.2715e-02_rb,2.2979e-02_rb,1.2589e-02_rb,5.7081e-04_rb/)\n      kbo(:, 3,23, 6) = (/ &\n     &5.6140e-02_rb,4.4931e-02_rb,3.1539e-02_rb,1.7244e-02_rb,7.1483e-04_rb/)\n      kbo(:, 4,23, 6) = (/ &\n     &7.5282e-02_rb,6.0221e-02_rb,4.2218e-02_rb,2.3054e-02_rb,8.7570e-04_rb/)\n      kbo(:, 5,23, 6) = (/ &\n     &9.9200e-02_rb,7.9197e-02_rb,5.5422e-02_rb,3.0138e-02_rb,1.0690e-03_rb/)\n      kbo(:, 1,24, 6) = (/ &\n     &2.5225e-02_rb,2.0294e-02_rb,1.4276e-02_rb,7.8427e-03_rb,3.8602e-04_rb/)\n      kbo(:, 2,24, 6) = (/ &\n     &3.5712e-02_rb,2.8695e-02_rb,2.0149e-02_rb,1.1049e-02_rb,4.9372e-04_rb/)\n      kbo(:, 3,24, 6) = (/ &\n     &4.9060e-02_rb,3.9310e-02_rb,2.7586e-02_rb,1.5091e-02_rb,6.1539e-04_rb/)\n      kbo(:, 4,24, 6) = (/ &\n     &6.5785e-02_rb,5.2643e-02_rb,3.6889e-02_rb,2.0124e-02_rb,7.5365e-04_rb/)\n      kbo(:, 5,24, 6) = (/ &\n     &8.6520e-02_rb,6.9119e-02_rb,4.8335e-02_rb,2.6295e-02_rb,9.2000e-04_rb/)\n      kbo(:, 1,25, 6) = (/ &\n     &2.2344e-02_rb,1.7976e-02_rb,1.2645e-02_rb,6.9412e-03_rb,3.3195e-04_rb/)\n      kbo(:, 2,25, 6) = (/ &\n     &3.1531e-02_rb,2.5281e-02_rb,1.7784e-02_rb,9.7415e-03_rb,4.2393e-04_rb/)\n      kbo(:, 3,25, 6) = (/ &\n     &4.3153e-02_rb,3.4621e-02_rb,2.4312e-02_rb,1.3288e-02_rb,5.2565e-04_rb/)\n      kbo(:, 4,25, 6) = (/ &\n     &5.7875e-02_rb,4.6285e-02_rb,3.2426e-02_rb,1.7676e-02_rb,6.4832e-04_rb/)\n      kbo(:, 5,25, 6) = (/ &\n     &7.6134e-02_rb,6.0793e-02_rb,4.2524e-02_rb,2.3109e-02_rb,7.8380e-04_rb/)\n      kbo(:, 1,26, 6) = (/ &\n     &1.9994e-02_rb,1.6102e-02_rb,1.1323e-02_rb,6.2216e-03_rb,2.8629e-04_rb/)\n      kbo(:, 2,26, 6) = (/ &\n     &2.8079e-02_rb,2.2581e-02_rb,1.5869e-02_rb,8.6875e-03_rb,3.6314e-04_rb/)\n      kbo(:, 3,26, 6) = (/ &\n     &3.8417e-02_rb,3.0834e-02_rb,2.1637e-02_rb,1.1805e-02_rb,4.5229e-04_rb/)\n      kbo(:, 4,26, 6) = (/ &\n     &5.1448e-02_rb,4.1174e-02_rb,2.8844e-02_rb,1.5712e-02_rb,5.5890e-04_rb/)\n      kbo(:, 5,26, 6) = (/ &\n     &6.7708e-02_rb,5.4151e-02_rb,3.7876e-02_rb,2.0559e-02_rb,6.6983e-04_rb/)\n      kbo(:, 1,27, 6) = (/ &\n     &1.7896e-02_rb,1.4429e-02_rb,1.0152e-02_rb,5.5772e-03_rb,2.4427e-04_rb/)\n      kbo(:, 2,27, 6) = (/ &\n     &2.5042e-02_rb,2.0157e-02_rb,1.4173e-02_rb,7.7571e-03_rb,3.0979e-04_rb/)\n      kbo(:, 3,27, 6) = (/ &\n     &3.4208e-02_rb,2.7475e-02_rb,1.9284e-02_rb,1.0527e-02_rb,3.8671e-04_rb/)\n      kbo(:, 4,27, 6) = (/ &\n     &4.5837e-02_rb,3.6717e-02_rb,2.5729e-02_rb,1.4005e-02_rb,4.7399e-04_rb/)\n      kbo(:, 5,27, 6) = (/ &\n     &6.0284e-02_rb,4.8205e-02_rb,3.3722e-02_rb,1.8275e-02_rb,5.6657e-04_rb/)\n      kbo(:, 1,28, 6) = (/ &\n     &1.6009e-02_rb,1.2912e-02_rb,9.0950e-03_rb,4.9907e-03_rb,2.0749e-04_rb/)\n      kbo(:, 2,28, 6) = (/ &\n     &2.2344e-02_rb,1.7993e-02_rb,1.2646e-02_rb,6.9273e-03_rb,2.6196e-04_rb/)\n      kbo(:, 3,28, 6) = (/ &\n     &3.0516e-02_rb,2.4521e-02_rb,1.7216e-02_rb,9.3897e-03_rb,3.2594e-04_rb/)\n      kbo(:, 4,28, 6) = (/ &\n     &4.0856e-02_rb,3.2755e-02_rb,2.2958e-02_rb,1.2475e-02_rb,3.9748e-04_rb/)\n      kbo(:, 5,28, 6) = (/ &\n     &5.3627e-02_rb,4.2900e-02_rb,3.0014e-02_rb,1.6247e-02_rb,4.7387e-04_rb/)\n      kbo(:, 1,29, 6) = (/ &\n     &1.4262e-02_rb,1.1522e-02_rb,8.1115e-03_rb,4.4530e-03_rb,1.7407e-04_rb/)\n      kbo(:, 2,29, 6) = (/ &\n     &1.9887e-02_rb,1.6027e-02_rb,1.1276e-02_rb,6.1687e-03_rb,2.1854e-04_rb/)\n      kbo(:, 3,29, 6) = (/ &\n     &2.7141e-02_rb,2.1827e-02_rb,1.5323e-02_rb,8.3518e-03_rb,2.7116e-04_rb/)\n      kbo(:, 4,29, 6) = (/ &\n     &3.6246e-02_rb,2.9092e-02_rb,2.0386e-02_rb,1.1064e-02_rb,3.2874e-04_rb/)\n      kbo(:, 5,29, 6) = (/ &\n     &4.7427e-02_rb,3.8019e-02_rb,2.6585e-02_rb,1.4385e-02_rb,3.8972e-04_rb/)\n      kbo(:, 1,30, 6) = (/ &\n     &1.2676e-02_rb,1.0246e-02_rb,7.2173e-03_rb,3.9637e-03_rb,1.4416e-04_rb/)\n      kbo(:, 2,30, 6) = (/ &\n     &1.7653e-02_rb,1.4244e-02_rb,1.0017e-02_rb,5.4770e-03_rb,1.8113e-04_rb/)\n      kbo(:, 3,30, 6) = (/ &\n     &2.4022e-02_rb,1.9341e-02_rb,1.3583e-02_rb,7.3998e-03_rb,2.2282e-04_rb/)\n      kbo(:, 4,30, 6) = (/ &\n     &3.1996e-02_rb,2.5721e-02_rb,1.8027e-02_rb,9.7785e-03_rb,2.6784e-04_rb/)\n      kbo(:, 5,30, 6) = (/ &\n     &4.1773e-02_rb,3.3512e-02_rb,2.3450e-02_rb,1.2688e-02_rb,3.1737e-04_rb/)\n      kbo(:, 1,31, 6) = (/ &\n     &1.1178e-02_rb,9.0514e-03_rb,6.3801e-03_rb,3.5048e-03_rb,1.1770e-04_rb/)\n      kbo(:, 2,31, 6) = (/ &\n     &1.5523e-02_rb,1.2547e-02_rb,8.8303e-03_rb,4.8276e-03_rb,1.4724e-04_rb/)\n      kbo(:, 3,31, 6) = (/ &\n     &2.1060e-02_rb,1.6992e-02_rb,1.1943e-02_rb,6.5025e-03_rb,1.7875e-04_rb/)\n      kbo(:, 4,31, 6) = (/ &\n     &2.7976e-02_rb,2.2531e-02_rb,1.5799e-02_rb,8.5667e-03_rb,2.1450e-04_rb/)\n      kbo(:, 5,31, 6) = (/ &\n     &3.6405e-02_rb,2.9271e-02_rb,2.0490e-02_rb,1.1088e-02_rb,2.5503e-04_rb/)\n      kbo(:, 1,32, 6) = (/ &\n     &9.9013e-03_rb,8.0343e-03_rb,5.6674e-03_rb,3.1129e-03_rb,9.6361e-05_rb/)\n      kbo(:, 2,32, 6) = (/ &\n     &1.3706e-02_rb,1.1101e-02_rb,7.8125e-03_rb,4.2746e-03_rb,1.1902e-04_rb/)\n      kbo(:, 3,32, 6) = (/ &\n     &1.8546e-02_rb,1.4995e-02_rb,1.0536e-02_rb,5.7328e-03_rb,1.4373e-04_rb/)\n      kbo(:, 4,32, 6) = (/ &\n     &2.4550e-02_rb,1.9811e-02_rb,1.3886e-02_rb,7.5313e-03_rb,1.7332e-04_rb/)\n      kbo(:, 5,32, 6) = (/ &\n     &3.1853e-02_rb,2.5667e-02_rb,1.7969e-02_rb,9.7246e-03_rb,2.0625e-04_rb/)\n      kbo(:, 1,33, 6) = (/ &\n     &8.7980e-03_rb,7.1519e-03_rb,5.0451e-03_rb,2.7712e-03_rb,7.8202e-05_rb/)\n      kbo(:, 2,33, 6) = (/ &\n     &1.2135e-02_rb,9.8435e-03_rb,6.9325e-03_rb,3.7902e-03_rb,9.6250e-05_rb/)\n      kbo(:, 3,33, 6) = (/ &\n     &1.6367e-02_rb,1.3251e-02_rb,9.3075e-03_rb,5.0637e-03_rb,1.1723e-04_rb/)\n      kbo(:, 4,33, 6) = (/ &\n     &2.1594e-02_rb,1.7451e-02_rb,1.2238e-02_rb,6.6390e-03_rb,1.4129e-04_rb/)\n      kbo(:, 5,33, 6) = (/ &\n     &2.7922e-02_rb,2.2553e-02_rb,1.5798e-02_rb,8.5480e-03_rb,1.6598e-04_rb/)\n      kbo(:, 1,34, 6) = (/ &\n     &7.8297e-03_rb,6.3727e-03_rb,4.4952e-03_rb,2.4671e-03_rb,6.3879e-05_rb/)\n      kbo(:, 2,34, 6) = (/ &\n     &1.0770e-02_rb,8.7510e-03_rb,6.1616e-03_rb,3.3644e-03_rb,7.9137e-05_rb/)\n      kbo(:, 3,34, 6) = (/ &\n     &1.4484e-02_rb,1.1741e-02_rb,8.2482e-03_rb,4.4844e-03_rb,9.6600e-05_rb/)\n      kbo(:, 4,34, 6) = (/ &\n     &1.9050e-02_rb,1.5427e-02_rb,1.0820e-02_rb,5.8678e-03_rb,1.1495e-04_rb/)\n      kbo(:, 5,34, 6) = (/ &\n     &2.4524e-02_rb,1.9867e-02_rb,1.3919e-02_rb,7.5292e-03_rb,1.3453e-04_rb/)\n      kbo(:, 1,35, 6) = (/ &\n     &6.7630e-03_rb,5.5126e-03_rb,3.8884e-03_rb,2.1340e-03_rb,5.1721e-05_rb/)\n      kbo(:, 2,35, 6) = (/ &\n     &9.2985e-03_rb,7.5662e-03_rb,5.3252e-03_rb,2.9070e-03_rb,6.4032e-05_rb/)\n      kbo(:, 3,35, 6) = (/ &\n     &1.2489e-02_rb,1.0141e-02_rb,7.1246e-03_rb,3.8749e-03_rb,7.6974e-05_rb/)\n      kbo(:, 4,35, 6) = (/ &\n     &1.6400e-02_rb,1.3312e-02_rb,9.3389e-03_rb,5.0659e-03_rb,9.1148e-05_rb/)\n      kbo(:, 5,35, 6) = (/ &\n     &2.1049e-02_rb,1.7098e-02_rb,1.1985e-02_rb,6.4857e-03_rb,1.0683e-04_rb/)\n      kbo(:, 1,36, 6) = (/ &\n     &5.6496e-03_rb,4.6119e-03_rb,3.2530e-03_rb,1.7852e-03_rb,4.0312e-05_rb/)\n      kbo(:, 2,36, 6) = (/ &\n     &7.7767e-03_rb,6.3372e-03_rb,4.4630e-03_rb,2.4380e-03_rb,4.9929e-05_rb/)\n      kbo(:, 3,36, 6) = (/ &\n     &1.0461e-02_rb,8.5144e-03_rb,5.9836e-03_rb,3.2549e-03_rb,6.0118e-05_rb/)\n      kbo(:, 4,36, 6) = (/ &\n     &1.3740e-02_rb,1.1182e-02_rb,7.8492e-03_rb,4.2598e-03_rb,7.1064e-05_rb/)\n      kbo(:, 5,36, 6) = (/ &\n     &1.7612e-02_rb,1.4350e-02_rb,1.0064e-02_rb,5.4485e-03_rb,8.3577e-05_rb/)\n      kbo(:, 1,37, 6) = (/ &\n     &4.5423e-03_rb,3.7134e-03_rb,2.6216e-03_rb,1.4392e-03_rb,3.1256e-05_rb/)\n      kbo(:, 2,37, 6) = (/ &\n     &6.2879e-03_rb,5.1321e-03_rb,3.6149e-03_rb,1.9739e-03_rb,3.8734e-05_rb/)\n      kbo(:, 3,37, 6) = (/ &\n     &8.4900e-03_rb,6.9227e-03_rb,4.8667e-03_rb,2.6482e-03_rb,4.6682e-05_rb/)\n      kbo(:, 4,37, 6) = (/ &\n     &1.1183e-02_rb,9.1172e-03_rb,6.4017e-03_rb,3.4761e-03_rb,5.5592e-05_rb/)\n      kbo(:, 5,37, 6) = (/ &\n     &1.4352e-02_rb,1.1719e-02_rb,8.2209e-03_rb,4.4549e-03_rb,6.5503e-05_rb/)\n      kbo(:, 1,38, 6) = (/ &\n     &3.6392e-03_rb,2.9801e-03_rb,2.1050e-03_rb,1.1562e-03_rb,2.4090e-05_rb/)\n      kbo(:, 2,38, 6) = (/ &\n     &5.0658e-03_rb,4.1416e-03_rb,2.9194e-03_rb,1.5946e-03_rb,2.9868e-05_rb/)\n      kbo(:, 3,38, 6) = (/ &\n     &6.8711e-03_rb,5.6107e-03_rb,3.9454e-03_rb,2.1481e-03_rb,3.6072e-05_rb/)\n      kbo(:, 4,38, 6) = (/ &\n     &9.0731e-03_rb,7.4127e-03_rb,5.2066e-03_rb,2.8281e-03_rb,4.3140e-05_rb/)\n      kbo(:, 5,38, 6) = (/ &\n     &1.1663e-02_rb,9.5418e-03_rb,6.6954e-03_rb,3.6310e-03_rb,5.1139e-05_rb/)\n      kbo(:, 1,39, 6) = (/ &\n     &2.9118e-03_rb,2.3886e-03_rb,1.6882e-03_rb,9.2755e-04_rb,1.8391e-05_rb/)\n      kbo(:, 2,39, 6) = (/ &\n     &4.0750e-03_rb,3.3381e-03_rb,2.3540e-03_rb,1.2863e-03_rb,2.2806e-05_rb/)\n      kbo(:, 3,39, 6) = (/ &\n     &5.5513e-03_rb,4.5420e-03_rb,3.1948e-03_rb,1.7397e-03_rb,2.7682e-05_rb/)\n      kbo(:, 4,39, 6) = (/ &\n     &7.3492e-03_rb,6.0179e-03_rb,4.2285e-03_rb,2.2979e-03_rb,3.3352e-05_rb/)\n      kbo(:, 5,39, 6) = (/ &\n     &9.4667e-03_rb,7.7616e-03_rb,5.4485e-03_rb,2.9560e-03_rb,3.9651e-05_rb/)\n      kbo(:, 1,40, 6) = (/ &\n     &2.2712e-03_rb,1.8658e-03_rb,1.3192e-03_rb,7.2479e-04_rb,1.3995e-05_rb/)\n      kbo(:, 2,40, 6) = (/ &\n     &3.2040e-03_rb,2.6288e-03_rb,1.8549e-03_rb,1.0140e-03_rb,1.7455e-05_rb/)\n      kbo(:, 3,40, 6) = (/ &\n     &4.3985e-03_rb,3.6050e-03_rb,2.5372e-03_rb,1.3813e-03_rb,2.1295e-05_rb/)\n      kbo(:, 4,40, 6) = (/ &\n     &5.8565e-03_rb,4.8013e-03_rb,3.3753e-03_rb,1.8342e-03_rb,2.5756e-05_rb/)\n      kbo(:, 5,40, 6) = (/ &\n     &7.5776e-03_rb,6.2219e-03_rb,4.3685e-03_rb,2.3699e-03_rb,3.0715e-05_rb/)\n      kbo(:, 1,41, 6) = (/ &\n     &1.7612e-03_rb,1.4492e-03_rb,1.0250e-03_rb,5.6325e-04_rb,1.0604e-05_rb/)\n      kbo(:, 2,41, 6) = (/ &\n     &2.5080e-03_rb,2.0608e-03_rb,1.4546e-03_rb,7.9552e-04_rb,1.3310e-05_rb/)\n      kbo(:, 3,41, 6) = (/ &\n     &3.4681e-03_rb,2.8477e-03_rb,2.0051e-03_rb,1.0923e-03_rb,1.6349e-05_rb/)\n      kbo(:, 4,41, 6) = (/ &\n     &4.6501e-03_rb,3.8188e-03_rb,2.6845e-03_rb,1.4588e-03_rb,1.9855e-05_rb/)\n      kbo(:, 5,41, 6) = (/ &\n     &6.0491e-03_rb,4.9741e-03_rb,3.4944e-03_rb,1.8953e-03_rb,2.3793e-05_rb/)\n      kbo(:, 1,42, 6) = (/ &\n     &1.3619e-03_rb,1.1225e-03_rb,7.9390e-04_rb,4.3654e-04_rb,7.9892e-06_rb/)\n      kbo(:, 2,42, 6) = (/ &\n     &1.9585e-03_rb,1.6109e-03_rb,1.1375e-03_rb,6.2244e-04_rb,1.0111e-05_rb/)\n      kbo(:, 3,42, 6) = (/ &\n     &2.7289e-03_rb,2.2437e-03_rb,1.5805e-03_rb,8.6127e-04_rb,1.2500e-05_rb/)\n      kbo(:, 4,42, 6) = (/ &\n     &3.6852e-03_rb,3.0311e-03_rb,2.1316e-03_rb,1.1583e-03_rb,1.5248e-05_rb/)\n      kbo(:, 5,42, 6) = (/ &\n     &4.8235e-03_rb,3.9702e-03_rb,2.7892e-03_rb,1.5134e-03_rb,1.8350e-05_rb/)\n      kbo(:, 1,43, 6) = (/ &\n     &1.0392e-03_rb,8.5695e-04_rb,6.0598e-04_rb,3.3332e-04_rb,5.9552e-06_rb/)\n      kbo(:, 2,43, 6) = (/ &\n     &1.5101e-03_rb,1.2436e-03_rb,8.7832e-04_rb,4.8071e-04_rb,7.5961e-06_rb/)\n      kbo(:, 3,43, 6) = (/ &\n     &2.1254e-03_rb,1.7498e-03_rb,1.2325e-03_rb,6.7181e-04_rb,9.4477e-06_rb/)\n      kbo(:, 4,43, 6) = (/ &\n     &2.8974e-03_rb,2.3860e-03_rb,1.6788e-03_rb,9.1195e-04_rb,1.1585e-05_rb/)\n      kbo(:, 5,43, 6) = (/ &\n     &3.8244e-03_rb,3.1517e-03_rb,2.2140e-03_rb,1.2005e-03_rb,1.4013e-05_rb/)\n      kbo(:, 1,44, 6) = (/ &\n     &7.8683e-04_rb,6.4875e-04_rb,4.5878e-04_rb,2.5223e-04_rb,4.3968e-06_rb/)\n      kbo(:, 2,44, 6) = (/ &\n     &1.1559e-03_rb,9.5305e-04_rb,6.7277e-04_rb,3.6830e-04_rb,5.6394e-06_rb/)\n      kbo(:, 3,44, 6) = (/ &\n     &1.6454e-03_rb,1.3558e-03_rb,9.5534e-04_rb,5.2055e-04_rb,7.0859e-06_rb/)\n      kbo(:, 4,44, 6) = (/ &\n     &2.2669e-03_rb,1.8686e-03_rb,1.3148e-03_rb,7.1399e-04_rb,8.7462e-06_rb/)\n      kbo(:, 5,44, 6) = (/ &\n     &3.0201e-03_rb,2.4917e-03_rb,1.7509e-03_rb,9.4904e-04_rb,1.0639e-05_rb/)\n      kbo(:, 1,45, 6) = (/ &\n     &5.9365e-04_rb,4.8959e-04_rb,3.4607e-04_rb,1.9020e-04_rb,3.2229e-06_rb/)\n      kbo(:, 2,45, 6) = (/ &\n     &8.8218e-04_rb,7.2803e-04_rb,5.1390e-04_rb,2.8115e-04_rb,4.1709e-06_rb/)\n      kbo(:, 3,45, 6) = (/ &\n     &1.2705e-03_rb,1.0482e-03_rb,7.3838e-04_rb,4.0225e-04_rb,5.2818e-06_rb/)\n      kbo(:, 4,45, 6) = (/ &\n     &1.7692e-03_rb,1.4597e-03_rb,1.0269e-03_rb,5.5768e-04_rb,6.5567e-06_rb/)\n      kbo(:, 5,45, 6) = (/ &\n     &2.3806e-03_rb,1.9657e-03_rb,1.3812e-03_rb,7.4841e-04_rb,8.0347e-06_rb/)\n      kbo(:, 1,46, 6) = (/ &\n     &4.4335e-04_rb,3.6560e-04_rb,2.5820e-04_rb,1.4186e-04_rb,2.3394e-06_rb/)\n      kbo(:, 2,46, 6) = (/ &\n     &6.6652e-04_rb,5.5048e-04_rb,3.8857e-04_rb,2.1254e-04_rb,3.0543e-06_rb/)\n      kbo(:, 3,46, 6) = (/ &\n     &9.7139e-04_rb,8.0233e-04_rb,5.6521e-04_rb,3.0796e-04_rb,3.9016e-06_rb/)\n      kbo(:, 4,46, 6) = (/ &\n     &1.3697e-03_rb,1.1313e-03_rb,7.9539e-04_rb,4.3177e-04_rb,4.8930e-06_rb/)\n      kbo(:, 5,46, 6) = (/ &\n     &1.8630e-03_rb,1.5401e-03_rb,1.0822e-03_rb,5.8603e-04_rb,6.0211e-06_rb/)\n      kbo(:, 1,47, 6) = (/ &\n     &3.2494e-04_rb,2.6781e-04_rb,1.8906e-04_rb,1.0379e-04_rb,1.6703e-06_rb/)\n      kbo(:, 2,47, 6) = (/ &\n     &4.9477e-04_rb,4.0876e-04_rb,2.8822e-04_rb,1.5780e-04_rb,2.2235e-06_rb/)\n      kbo(:, 3,47, 6) = (/ &\n     &7.3190e-04_rb,6.0441e-04_rb,4.2581e-04_rb,2.3196e-04_rb,2.8600e-06_rb/)\n      kbo(:, 4,47, 6) = (/ &\n     &1.0450e-03_rb,8.6362e-04_rb,6.0711e-04_rb,3.2954e-04_rb,3.6203e-06_rb/)\n      kbo(:, 5,47, 6) = (/ &\n     &1.4403e-03_rb,1.1920e-03_rb,8.3715e-04_rb,4.5311e-04_rb,4.4864e-06_rb/)\n      kbo(:, 1,48, 6) = (/ &\n     &2.3680e-04_rb,1.9527e-04_rb,1.3764e-04_rb,7.5497e-05_rb,1.1789e-06_rb/)\n      kbo(:, 2,48, 6) = (/ &\n     &3.6634e-04_rb,3.0233e-04_rb,2.1313e-04_rb,1.1661e-04_rb,1.5963e-06_rb/)\n      kbo(:, 3,48, 6) = (/ &\n     &5.4895e-04_rb,4.5372e-04_rb,3.1944e-04_rb,1.7402e-04_rb,2.0888e-06_rb/)\n      kbo(:, 4,48, 6) = (/ &\n     &7.9543e-04_rb,6.5717e-04_rb,4.6181e-04_rb,2.5062e-04_rb,2.6621e-06_rb/)\n      kbo(:, 5,48, 6) = (/ &\n     &1.1099e-03_rb,9.1890e-04_rb,6.4520e-04_rb,3.4917e-04_rb,3.3226e-06_rb/)\n      kbo(:, 1,49, 6) = (/ &\n     &1.7167e-04_rb,1.4156e-04_rb,9.9697e-05_rb,5.4621e-05_rb,8.2177e-07_rb/)\n      kbo(:, 2,49, 6) = (/ &\n     &2.6978e-04_rb,2.2270e-04_rb,1.5688e-04_rb,8.5772e-05_rb,1.1335e-06_rb/)\n      kbo(:, 3,49, 6) = (/ &\n     &4.1033e-04_rb,3.3911e-04_rb,2.3859e-04_rb,1.2993e-04_rb,1.5022e-06_rb/)\n      kbo(:, 4,49, 6) = (/ &\n     &6.0289e-04_rb,4.9870e-04_rb,3.5040e-04_rb,1.9001e-04_rb,1.9421e-06_rb/)\n      kbo(:, 5,49, 6) = (/ &\n     &8.5268e-04_rb,7.0612e-04_rb,4.9559e-04_rb,2.6808e-04_rb,2.4464e-06_rb/)\n      kbo(:, 1,50, 6) = (/ &\n     &1.2531e-04_rb,1.0333e-04_rb,7.2754e-05_rb,3.9781e-05_rb,5.8260e-07_rb/)\n      kbo(:, 2,50, 6) = (/ &\n     &2.0028e-04_rb,1.6520e-04_rb,1.1625e-04_rb,6.3517e-05_rb,8.1312e-07_rb/)\n      kbo(:, 3,50, 6) = (/ &\n     &3.0881e-04_rb,2.5524e-04_rb,1.7955e-04_rb,9.7765e-05_rb,1.0963e-06_rb/)\n      kbo(:, 4,50, 6) = (/ &\n     &4.6015e-04_rb,3.8061e-04_rb,2.6731e-04_rb,1.4488e-04_rb,1.4340e-06_rb/)\n      kbo(:, 5,50, 6) = (/ &\n     &6.5988e-04_rb,5.4636e-04_rb,3.8320e-04_rb,2.0709e-04_rb,1.8202e-06_rb/)\n      kbo(:, 1,51, 6) = (/ &\n     &9.1633e-05_rb,7.5509e-05_rb,5.3128e-05_rb,2.9020e-05_rb,4.1464e-07_rb/)\n      kbo(:, 2,51, 6) = (/ &\n     &1.4891e-04_rb,1.2270e-04_rb,8.6279e-05_rb,4.7099e-05_rb,5.8807e-07_rb/)\n      kbo(:, 3,51, 6) = (/ &\n     &2.3292e-04_rb,1.9249e-04_rb,1.3529e-04_rb,7.3646e-05_rb,8.0371e-07_rb/)\n      kbo(:, 4,51, 6) = (/ &\n     &3.5233e-04_rb,2.9123e-04_rb,2.0433e-04_rb,1.1072e-04_rb,1.0615e-06_rb/)\n      kbo(:, 5,51, 6) = (/ &\n     &5.1166e-04_rb,4.2368e-04_rb,2.9697e-04_rb,1.6038e-04_rb,1.3623e-06_rb/)\n      kbo(:, 1,52, 6) = (/ &\n     &6.6748e-05_rb,5.4951e-05_rb,3.8637e-05_rb,2.1072e-05_rb,2.9423e-07_rb/)\n      kbo(:, 2,52, 6) = (/ &\n     &1.1034e-04_rb,9.0898e-05_rb,6.3804e-05_rb,3.4773e-05_rb,4.2185e-07_rb/)\n      kbo(:, 3,52, 6) = (/ &\n     &1.7525e-04_rb,1.4472e-04_rb,1.0161e-04_rb,5.5277e-05_rb,5.8386e-07_rb/)\n      kbo(:, 4,52, 6) = (/ &\n     &2.6896e-04_rb,2.2246e-04_rb,1.5598e-04_rb,8.4497e-05_rb,7.8029e-07_rb/)\n      kbo(:, 5,52, 6) = (/ &\n     &3.9638e-04_rb,3.2814e-04_rb,2.2978e-04_rb,1.2397e-04_rb,1.0114e-06_rb/)\n      kbo(:, 1,53, 6) = (/ &\n     &4.8387e-05_rb,3.9789e-05_rb,2.7956e-05_rb,1.5224e-05_rb,2.0710e-07_rb/)\n      kbo(:, 2,53, 6) = (/ &\n     &8.1422e-05_rb,6.7055e-05_rb,4.7034e-05_rb,2.5569e-05_rb,3.0032e-07_rb/)\n      kbo(:, 3,53, 6) = (/ &\n     &1.3143e-04_rb,1.0846e-04_rb,7.6092e-05_rb,4.1325e-05_rb,4.2132e-07_rb/)\n      kbo(:, 4,53, 6) = (/ &\n     &2.0478e-04_rb,1.6937e-04_rb,1.1872e-04_rb,6.4236e-05_rb,5.6954e-07_rb/)\n      kbo(:, 5,53, 6) = (/ &\n     &3.0662e-04_rb,2.5374e-04_rb,1.7755e-04_rb,9.5705e-05_rb,7.4673e-07_rb/)\n      kbo(:, 1,54, 6) = (/ &\n     &3.5548e-05_rb,2.9201e-05_rb,2.0499e-05_rb,1.1142e-05_rb,1.4888e-07_rb/)\n      kbo(:, 2,54, 6) = (/ &\n     &6.0867e-05_rb,5.0080e-05_rb,3.5102e-05_rb,1.9053e-05_rb,2.1957e-07_rb/)\n      kbo(:, 3,54, 6) = (/ &\n     &9.9905e-05_rb,8.2294e-05_rb,5.7679e-05_rb,3.1278e-05_rb,3.1167e-07_rb/)\n      kbo(:, 4,54, 6) = (/ &\n     &1.5784e-04_rb,1.3048e-04_rb,9.1376e-05_rb,4.9396e-05_rb,4.2569e-07_rb/)\n      kbo(:, 5,54, 6) = (/ &\n     &2.3990e-04_rb,1.9844e-04_rb,1.3879e-04_rb,7.4726e-05_rb,5.6432e-07_rb/)\n      kbo(:, 1,55, 6) = (/ &\n     &2.6254e-05_rb,2.1551e-05_rb,1.5109e-05_rb,8.2013e-06_rb,1.0776e-07_rb/)\n      kbo(:, 2,55, 6) = (/ &\n     &4.5756e-05_rb,3.7594e-05_rb,2.6330e-05_rb,1.4266e-05_rb,1.6227e-07_rb/)\n      kbo(:, 3,55, 6) = (/ &\n     &7.6387e-05_rb,6.2840e-05_rb,4.3983e-05_rb,2.3813e-05_rb,2.3322e-07_rb/)\n      kbo(:, 4,55, 6) = (/ &\n     &1.2233e-04_rb,1.0105e-04_rb,7.0729e-05_rb,3.8184e-05_rb,3.2242e-07_rb/)\n      kbo(:, 5,55, 6) = (/ &\n     &1.8866e-04_rb,1.5604e-04_rb,1.0907e-04_rb,5.8660e-05_rb,4.3190e-07_rb/)\n      kbo(:, 1,56, 6) = (/ &\n     &1.9352e-05_rb,1.5886e-05_rb,1.1124e-05_rb,6.0284e-06_rb,7.7832e-08_rb/)\n      kbo(:, 2,56, 6) = (/ &\n     &3.4378e-05_rb,2.8197e-05_rb,1.9721e-05_rb,1.0667e-05_rb,1.1948e-07_rb/)\n      kbo(:, 3,56, 6) = (/ &\n     &5.8349e-05_rb,4.7950e-05_rb,3.3520e-05_rb,1.8111e-05_rb,1.7363e-07_rb/)\n      kbo(:, 4,56, 6) = (/ &\n     &9.4866e-05_rb,7.8290e-05_rb,5.4723e-05_rb,2.9510e-05_rb,2.4385e-07_rb/)\n      kbo(:, 5,56, 6) = (/ &\n     &1.4839e-04_rb,1.2273e-04_rb,8.5680e-05_rb,4.6045e-05_rb,3.3022e-07_rb/)\n      kbo(:, 1,57, 6) = (/ &\n     &1.4255e-05_rb,1.1680e-05_rb,8.1776e-06_rb,4.4235e-06_rb,5.5927e-08_rb/)\n      kbo(:, 2,57, 6) = (/ &\n     &2.5815e-05_rb,2.1132e-05_rb,1.4763e-05_rb,7.9663e-06_rb,8.7522e-08_rb/)\n      kbo(:, 3,57, 6) = (/ &\n     &4.4552e-05_rb,3.6579e-05_rb,2.5531e-05_rb,1.3761e-05_rb,1.2925e-07_rb/)\n      kbo(:, 4,57, 6) = (/ &\n     &7.3589e-05_rb,6.0640e-05_rb,4.2341e-05_rb,2.2797e-05_rb,1.8364e-07_rb/)\n      kbo(:, 5,57, 6) = (/ &\n     &1.1687e-04_rb,9.6565e-05_rb,6.7349e-05_rb,3.6145e-05_rb,2.5190e-07_rb/)\n      kbo(:, 1,58, 6) = (/ &\n     &5.1283e-06_rb,4.8164e-06_rb,3.9533e-06_rb,2.5844e-06_rb,4.0411e-08_rb/)\n      kbo(:, 2,58, 6) = (/ &\n     &9.4663e-06_rb,8.8829e-06_rb,7.2756e-06_rb,4.7397e-06_rb,6.4616e-08_rb/)\n      kbo(:, 3,58, 6) = (/ &\n     &1.6608e-05_rb,1.5628e-05_rb,1.2791e-05_rb,8.3232e-06_rb,9.6916e-08_rb/)\n      kbo(:, 4,58, 6) = (/ &\n     &2.7869e-05_rb,2.6331e-05_rb,2.1549e-05_rb,1.4010e-05_rb,1.3884e-07_rb/)\n      kbo(:, 5,58, 6) = (/ &\n     &4.4916e-05_rb,4.2582e-05_rb,3.4830e-05_rb,2.2586e-05_rb,1.9305e-07_rb/)\n      kbo(:, 1,59, 6) = (/ &\n     &4.1166e-06_rb,3.8763e-06_rb,3.1932e-06_rb,2.0984e-06_rb,3.3138e-08_rb/)\n      kbo(:, 2,59, 6) = (/ &\n     &7.6679e-06_rb,7.2183e-06_rb,5.9356e-06_rb,3.8849e-06_rb,5.3542e-08_rb/)\n      kbo(:, 3,59, 6) = (/ &\n     &1.3578e-05_rb,1.2809e-05_rb,1.0527e-05_rb,6.8844e-06_rb,8.1037e-08_rb/)\n      kbo(:, 4,59, 6) = (/ &\n     &2.2972e-05_rb,2.1775e-05_rb,1.7891e-05_rb,1.1690e-05_rb,1.1735e-07_rb/)\n      kbo(:, 5,59, 6) = (/ &\n     &3.7296e-05_rb,3.5490e-05_rb,2.9150e-05_rb,1.9007e-05_rb,1.6270e-07_rb/)\n      kbo(:, 1,13, 7) = (/ &\n     &4.2167e-01_rb,3.2553e-01_rb,2.2695e-01_rb,1.2184e-01_rb,4.0030e-03_rb/)\n      kbo(:, 2,13, 7) = (/ &\n     &6.0140e-01_rb,4.6380e-01_rb,3.2184e-01_rb,1.7190e-01_rb,5.1104e-03_rb/)\n      kbo(:, 3,13, 7) = (/ &\n     &8.1816e-01_rb,6.3015e-01_rb,4.3650e-01_rb,2.3296e-01_rb,6.4365e-03_rb/)\n      kbo(:, 4,13, 7) = (/ &\n     &1.0780e+00_rb,8.2908e-01_rb,5.7271e-01_rb,3.0519e-01_rb,7.8514e-03_rb/)\n      kbo(:, 5,13, 7) = (/ &\n     &1.3871e+00_rb,1.0650e+00_rb,7.3566e-01_rb,3.9202e-01_rb,9.6931e-03_rb/)\n      kbo(:, 1,14, 7) = (/ &\n     &3.8425e-01_rb,2.9801e-01_rb,2.0688e-01_rb,1.1055e-01_rb,3.4668e-03_rb/)\n      kbo(:, 2,14, 7) = (/ &\n     &5.4386e-01_rb,4.2093e-01_rb,2.9177e-01_rb,1.5544e-01_rb,4.5429e-03_rb/)\n      kbo(:, 3,14, 7) = (/ &\n     &7.3998e-01_rb,5.7137e-01_rb,3.9497e-01_rb,2.0995e-01_rb,5.6171e-03_rb/)\n      kbo(:, 4,14, 7) = (/ &\n     &9.7642e-01_rb,7.5246e-01_rb,5.1952e-01_rb,2.7577e-01_rb,6.9867e-03_rb/)\n      kbo(:, 5,14, 7) = (/ &\n     &1.2610e+00_rb,9.7017e-01_rb,6.6888e-01_rb,3.5427e-01_rb,8.6535e-03_rb/)\n      kbo(:, 1,15, 7) = (/ &\n     &3.3299e-01_rb,2.5933e-01_rb,1.7991e-01_rb,9.5905e-02_rb,2.9886e-03_rb/)\n      kbo(:, 2,15, 7) = (/ &\n     &4.6962e-01_rb,3.6448e-01_rb,2.5234e-01_rb,1.3421e-01_rb,3.8718e-03_rb/)\n      kbo(:, 3,15, 7) = (/ &\n     &6.3987e-01_rb,4.9512e-01_rb,3.4211e-01_rb,1.8150e-01_rb,4.8805e-03_rb/)\n      kbo(:, 4,15, 7) = (/ &\n     &8.4586e-01_rb,6.5388e-01_rb,4.5155e-01_rb,2.3908e-01_rb,6.1279e-03_rb/)\n      kbo(:, 5,15, 7) = (/ &\n     &1.0948e+00_rb,8.4428e-01_rb,5.8246e-01_rb,3.0839e-01_rb,7.4849e-03_rb/)\n      kbo(:, 1,16, 7) = (/ &\n     &2.8051e-01_rb,2.1899e-01_rb,1.5183e-01_rb,8.0896e-02_rb,2.5509e-03_rb/)\n      kbo(:, 2,16, 7) = (/ &\n     &3.9506e-01_rb,3.0781e-01_rb,2.1302e-01_rb,1.1324e-01_rb,3.3108e-03_rb/)\n      kbo(:, 3,16, 7) = (/ &\n     &5.3870e-01_rb,4.1855e-01_rb,2.8938e-01_rb,1.5357e-01_rb,4.2013e-03_rb/)\n      kbo(:, 4,16, 7) = (/ &\n     &7.1526e-01_rb,5.5449e-01_rb,3.8283e-01_rb,2.0269e-01_rb,5.1902e-03_rb/)\n      kbo(:, 5,16, 7) = (/ &\n     &9.2727e-01_rb,7.1785e-01_rb,4.9548e-01_rb,2.6200e-01_rb,6.4068e-03_rb/)\n      kbo(:, 1,17, 7) = (/ &\n     &2.3378e-01_rb,1.8318e-01_rb,1.2698e-01_rb,6.7717e-02_rb,2.1927e-03_rb/)\n      kbo(:, 2,17, 7) = (/ &\n     &3.2948e-01_rb,2.5742e-01_rb,1.7822e-01_rb,9.4896e-02_rb,2.8584e-03_rb/)\n      kbo(:, 3,17, 7) = (/ &\n     &4.5000e-01_rb,3.5080e-01_rb,2.4241e-01_rb,1.2872e-01_rb,3.6126e-03_rb/)\n      kbo(:, 4,17, 7) = (/ &\n     &5.9887e-01_rb,4.6579e-01_rb,3.2151e-01_rb,1.7042e-01_rb,4.5208e-03_rb/)\n      kbo(:, 5,17, 7) = (/ &\n     &7.7711e-01_rb,6.0357e-01_rb,4.1660e-01_rb,2.2035e-01_rb,5.5539e-03_rb/)\n      kbo(:, 1,18, 7) = (/ &\n     &1.9227e-01_rb,1.5110e-01_rb,1.0483e-01_rb,5.6032e-02_rb,1.9220e-03_rb/)\n      kbo(:, 2,18, 7) = (/ &\n     &2.7135e-01_rb,2.1238e-01_rb,1.4707e-01_rb,7.8382e-02_rb,2.4923e-03_rb/)\n      kbo(:, 3,18, 7) = (/ &\n     &3.7049e-01_rb,2.8960e-01_rb,2.0022e-01_rb,1.0642e-01_rb,3.1976e-03_rb/)\n      kbo(:, 4,18, 7) = (/ &\n     &4.9231e-01_rb,3.8398e-01_rb,2.6515e-01_rb,1.4069e-01_rb,3.9529e-03_rb/)\n      kbo(:, 5,18, 7) = (/ &\n     &6.4035e-01_rb,4.9892e-01_rb,3.4418e-01_rb,1.8220e-01_rb,4.8074e-03_rb/)\n      kbo(:, 1,19, 7) = (/ &\n     &1.6097e-01_rb,1.2681e-01_rb,8.7983e-02_rb,4.7067e-02_rb,1.6998e-03_rb/)\n      kbo(:, 2,19, 7) = (/ &\n     &2.2674e-01_rb,1.7812e-01_rb,1.2337e-01_rb,6.5758e-02_rb,2.2148e-03_rb/)\n      kbo(:, 3,19, 7) = (/ &\n     &3.0942e-01_rb,2.4239e-01_rb,1.6768e-01_rb,8.9247e-02_rb,2.8171e-03_rb/)\n      kbo(:, 4,19, 7) = (/ &\n     &4.1121e-01_rb,3.2156e-01_rb,2.2226e-01_rb,1.1805e-01_rb,3.4852e-03_rb/)\n      kbo(:, 5,19, 7) = (/ &\n     &5.3661e-01_rb,4.1891e-01_rb,2.8897e-01_rb,1.5308e-01_rb,4.2703e-03_rb/)\n      kbo(:, 1,20, 7) = (/ &\n     &1.3816e-01_rb,1.0899e-01_rb,7.5568e-02_rb,4.0384e-02_rb,1.5084e-03_rb/)\n      kbo(:, 2,20, 7) = (/ &\n     &1.9390e-01_rb,1.5237e-01_rb,1.0558e-01_rb,5.6347e-02_rb,1.9533e-03_rb/)\n      kbo(:, 3,20, 7) = (/ &\n     &2.6431e-01_rb,2.0734e-01_rb,1.4349e-01_rb,7.6381e-02_rb,2.4829e-03_rb/)\n      kbo(:, 4,20, 7) = (/ &\n     &3.5230e-01_rb,2.7579e-01_rb,1.9049e-01_rb,1.0107e-01_rb,3.1175e-03_rb/)\n      kbo(:, 5,20, 7) = (/ &\n     &4.5959e-01_rb,3.5917e-01_rb,2.4774e-01_rb,1.3132e-01_rb,3.8257e-03_rb/)\n      kbo(:, 1,21, 7) = (/ &\n     &1.1885e-01_rb,9.3725e-02_rb,6.5041e-02_rb,3.4803e-02_rb,1.3411e-03_rb/)\n      kbo(:, 2,21, 7) = (/ &\n     &1.6635e-01_rb,1.3102e-01_rb,9.0813e-02_rb,4.8481e-02_rb,1.7301e-03_rb/)\n      kbo(:, 3,21, 7) = (/ &\n     &2.2707e-01_rb,1.7845e-01_rb,1.2348e-01_rb,6.5731e-02_rb,2.2027e-03_rb/)\n      kbo(:, 4,21, 7) = (/ &\n     &3.0299e-01_rb,2.3748e-01_rb,1.6403e-01_rb,8.7154e-02_rb,2.7646e-03_rb/)\n      kbo(:, 5,21, 7) = (/ &\n     &3.9491e-01_rb,3.0909e-01_rb,2.1323e-01_rb,1.1320e-01_rb,3.3663e-03_rb/)\n      kbo(:, 1,22, 7) = (/ &\n     &1.0371e-01_rb,8.1936e-02_rb,5.6886e-02_rb,3.0452e-02_rb,1.1973e-03_rb/)\n      kbo(:, 2,22, 7) = (/ &\n     &1.4515e-01_rb,1.1443e-01_rb,7.9345e-02_rb,4.2377e-02_rb,1.5408e-03_rb/)\n      kbo(:, 3,22, 7) = (/ &\n     &1.9815e-01_rb,1.5584e-01_rb,1.0788e-01_rb,5.7461e-02_rb,1.9609e-03_rb/)\n      kbo(:, 4,22, 7) = (/ &\n     &2.6352e-01_rb,2.0697e-01_rb,1.4313e-01_rb,7.6128e-02_rb,2.4333e-03_rb/)\n      kbo(:, 5,22, 7) = (/ &\n     &3.4221e-01_rb,2.6821e-01_rb,1.8537e-01_rb,9.8647e-02_rb,2.9393e-03_rb/)\n      kbo(:, 1,23, 7) = (/ &\n     &9.0639e-02_rb,7.1734e-02_rb,4.9824e-02_rb,2.6695e-02_rb,1.0611e-03_rb/)\n      kbo(:, 2,23, 7) = (/ &\n     &1.2684e-01_rb,1.0014e-01_rb,6.9426e-02_rb,3.7107e-02_rb,1.3714e-03_rb/)\n      kbo(:, 3,23, 7) = (/ &\n     &1.7268e-01_rb,1.3597e-01_rb,9.4123e-02_rb,5.0237e-02_rb,1.7212e-03_rb/)\n      kbo(:, 4,23, 7) = (/ &\n     &2.2866e-01_rb,1.7972e-01_rb,1.2432e-01_rb,6.6277e-02_rb,2.1161e-03_rb/)\n      kbo(:, 5,23, 7) = (/ &\n     &2.9584e-01_rb,2.3227e-01_rb,1.6067e-01_rb,8.5547e-02_rb,2.5346e-03_rb/)\n      kbo(:, 1,24, 7) = (/ &\n     &8.0071e-02_rb,6.3444e-02_rb,4.4064e-02_rb,2.3644e-02_rb,9.3348e-04_rb/)\n      kbo(:, 2,24, 7) = (/ &\n     &1.1181e-01_rb,8.8354e-02_rb,6.1271e-02_rb,3.2794e-02_rb,1.1882e-03_rb/)\n      kbo(:, 3,24, 7) = (/ &\n     &1.5149e-01_rb,1.1939e-01_rb,8.2725e-02_rb,4.4223e-02_rb,1.4832e-03_rb/)\n      kbo(:, 4,24, 7) = (/ &\n     &1.9978e-01_rb,1.5722e-01_rb,1.0888e-01_rb,5.8128e-02_rb,1.8190e-03_rb/)\n      kbo(:, 5,24, 7) = (/ &\n     &2.5770e-01_rb,2.0260e-01_rb,1.4030e-01_rb,7.4844e-02_rb,2.1747e-03_rb/)\n      kbo(:, 1,25, 7) = (/ &\n     &7.0951e-02_rb,5.6269e-02_rb,3.9108e-02_rb,2.1016e-02_rb,8.0964e-04_rb/)\n      kbo(:, 2,25, 7) = (/ &\n     &9.8623e-02_rb,7.8013e-02_rb,5.4088e-02_rb,2.9015e-02_rb,1.0247e-03_rb/)\n      kbo(:, 3,25, 7) = (/ &\n     &1.3295e-01_rb,1.0488e-01_rb,7.2709e-02_rb,3.8919e-02_rb,1.2776e-03_rb/)\n      kbo(:, 4,25, 7) = (/ &\n     &1.7470e-01_rb,1.3764e-01_rb,9.5373e-02_rb,5.0958e-02_rb,1.5592e-03_rb/)\n      kbo(:, 5,25, 7) = (/ &\n     &2.2493e-01_rb,1.7708e-01_rb,1.2270e-01_rb,6.5502e-02_rb,1.8657e-03_rb/)\n      kbo(:, 1,26, 7) = (/ &\n     &6.3451e-02_rb,5.0352e-02_rb,3.4999e-02_rb,1.8811e-02_rb,7.0696e-04_rb/)\n      kbo(:, 2,26, 7) = (/ &\n     &8.7646e-02_rb,6.9321e-02_rb,4.8128e-02_rb,2.5820e-02_rb,8.9108e-04_rb/)\n      kbo(:, 3,26, 7) = (/ &\n     &1.1756e-01_rb,9.2804e-02_rb,6.4336e-02_rb,3.4465e-02_rb,1.1063e-03_rb/)\n      kbo(:, 4,26, 7) = (/ &\n     &1.5401e-01_rb,1.2150e-01_rb,8.4218e-02_rb,4.5022e-02_rb,1.3420e-03_rb/)\n      kbo(:, 5,26, 7) = (/ &\n     &1.9847e-01_rb,1.5626e-01_rb,1.0822e-01_rb,5.7833e-02_rb,1.6057e-03_rb/)\n      kbo(:, 1,27, 7) = (/ &\n     &5.6793e-02_rb,4.5057e-02_rb,3.1339e-02_rb,1.6842e-02_rb,6.0571e-04_rb/)\n      kbo(:, 2,27, 7) = (/ &\n     &7.8027e-02_rb,6.1732e-02_rb,4.2853e-02_rb,2.2968e-02_rb,7.6180e-04_rb/)\n      kbo(:, 3,27, 7) = (/ &\n     &1.0421e-01_rb,8.2314e-02_rb,5.7109e-02_rb,3.0579e-02_rb,9.4573e-04_rb/)\n      kbo(:, 4,27, 7) = (/ &\n     &1.3651e-01_rb,1.0769e-01_rb,7.4645e-02_rb,3.9915e-02_rb,1.1425e-03_rb/)\n      kbo(:, 5,27, 7) = (/ &\n     &1.7591e-01_rb,1.3862e-01_rb,9.6018e-02_rb,5.1325e-02_rb,1.3608e-03_rb/)\n      kbo(:, 1,28, 7) = (/ &\n     &5.0832e-02_rb,4.0335e-02_rb,2.8062e-02_rb,1.5080e-02_rb,5.0959e-04_rb/)\n      kbo(:, 2,28, 7) = (/ &\n     &6.9491e-02_rb,5.4973e-02_rb,3.8187e-02_rb,2.0466e-02_rb,6.4488e-04_rb/)\n      kbo(:, 3,28, 7) = (/ &\n     &9.2684e-02_rb,7.3230e-02_rb,5.0823e-02_rb,2.7216e-02_rb,7.9606e-04_rb/)\n      kbo(:, 4,28, 7) = (/ &\n     &1.2155e-01_rb,9.5886e-02_rb,6.6455e-02_rb,3.5548e-02_rb,9.5678e-04_rb/)\n      kbo(:, 5,28, 7) = (/ &\n     &1.5688e-01_rb,1.2363e-01_rb,8.5583e-02_rb,4.5732e-02_rb,1.1415e-03_rb/)\n      kbo(:, 1,29, 7) = (/ &\n     &4.5296e-02_rb,3.5922e-02_rb,2.4992e-02_rb,1.3423e-02_rb,4.2743e-04_rb/)\n      kbo(:, 2,29, 7) = (/ &\n     &6.1694e-02_rb,4.8833e-02_rb,3.3922e-02_rb,1.8191e-02_rb,5.3907e-04_rb/)\n      kbo(:, 3,29, 7) = (/ &\n     &8.2276e-02_rb,6.5053e-02_rb,4.5148e-02_rb,2.4171e-02_rb,6.5935e-04_rb/)\n      kbo(:, 4,29, 7) = (/ &\n     &1.0791e-01_rb,8.5197e-02_rb,5.9066e-02_rb,3.1598e-02_rb,7.9358e-04_rb/)\n      kbo(:, 5,29, 7) = (/ &\n     &1.3964e-01_rb,1.1005e-01_rb,7.6235e-02_rb,4.0713e-02_rb,9.4519e-04_rb/)\n      kbo(:, 1,30, 7) = (/ &\n     &4.0185e-02_rb,3.1886e-02_rb,2.2195e-02_rb,1.1919e-02_rb,3.5485e-04_rb/)\n      kbo(:, 2,30, 7) = (/ &\n     &5.4626e-02_rb,4.3278e-02_rb,3.0084e-02_rb,1.6135e-02_rb,4.4303e-04_rb/)\n      kbo(:, 3,30, 7) = (/ &\n     &7.2953e-02_rb,5.7701e-02_rb,4.0048e-02_rb,2.1442e-02_rb,5.4169e-04_rb/)\n      kbo(:, 4,30, 7) = (/ &\n     &9.5812e-02_rb,7.5701e-02_rb,5.2497e-02_rb,2.8075e-02_rb,6.5509e-04_rb/)\n      kbo(:, 5,30, 7) = (/ &\n     &1.2402e-01_rb,9.7862e-02_rb,6.7806e-02_rb,3.6235e-02_rb,7.7850e-04_rb/)\n      kbo(:, 1,31, 7) = (/ &\n     &3.5348e-02_rb,2.8090e-02_rb,1.9559e-02_rb,1.0513e-02_rb,2.9039e-04_rb/)\n      kbo(:, 2,31, 7) = (/ &\n     &4.8053e-02_rb,3.8118e-02_rb,2.6496e-02_rb,1.4221e-02_rb,3.5964e-04_rb/)\n      kbo(:, 3,31, 7) = (/ &\n     &6.4212e-02_rb,5.0845e-02_rb,3.5309e-02_rb,1.8919e-02_rb,4.4117e-04_rb/)\n      kbo(:, 4,31, 7) = (/ &\n     &8.4429e-02_rb,6.6772e-02_rb,4.6322e-02_rb,2.4787e-02_rb,5.3116e-04_rb/)\n      kbo(:, 5,31, 7) = (/ &\n     &1.0928e-01_rb,8.6339e-02_rb,5.9901e-02_rb,3.2032e-02_rb,6.3348e-04_rb/)\n      kbo(:, 1,32, 7) = (/ &\n     &3.1311e-02_rb,2.4896e-02_rb,1.7336e-02_rb,9.3247e-03_rb,2.3608e-04_rb/)\n      kbo(:, 2,32, 7) = (/ &\n     &4.2575e-02_rb,3.3801e-02_rb,2.3511e-02_rb,1.2616e-02_rb,2.9452e-04_rb/)\n      kbo(:, 3,32, 7) = (/ &\n     &5.6935e-02_rb,4.5129e-02_rb,3.1359e-02_rb,1.6809e-02_rb,3.6093e-04_rb/)\n      kbo(:, 4,32, 7) = (/ &\n     &7.4842e-02_rb,5.9256e-02_rb,4.1156e-02_rb,2.2039e-02_rb,4.3435e-04_rb/)\n      kbo(:, 5,32, 7) = (/ &\n     &9.6933e-02_rb,7.6740e-02_rb,5.3274e-02_rb,2.8476e-02_rb,5.1533e-04_rb/)\n      kbo(:, 1,33, 7) = (/ &\n     &2.7886e-02_rb,2.2206e-02_rb,1.5465e-02_rb,8.3176e-03_rb,1.9330e-04_rb/)\n      kbo(:, 2,33, 7) = (/ &\n     &3.7954e-02_rb,3.0161e-02_rb,2.0981e-02_rb,1.1260e-02_rb,2.4048e-04_rb/)\n      kbo(:, 3,33, 7) = (/ &\n     &5.0729e-02_rb,4.0269e-02_rb,2.7996e-02_rb,1.5008e-02_rb,2.9283e-04_rb/)\n      kbo(:, 4,33, 7) = (/ &\n     &6.6680e-02_rb,5.2910e-02_rb,3.6768e-02_rb,1.9685e-02_rb,3.5174e-04_rb/)\n      kbo(:, 5,33, 7) = (/ &\n     &8.6325e-02_rb,6.8491e-02_rb,4.7579e-02_rb,2.5448e-02_rb,4.1781e-04_rb/)\n      kbo(:, 1,34, 7) = (/ &\n     &2.4971e-02_rb,1.9901e-02_rb,1.3860e-02_rb,7.4508e-03_rb,1.5943e-04_rb/)\n      kbo(:, 2,34, 7) = (/ &\n     &3.3993e-02_rb,2.7044e-02_rb,1.8817e-02_rb,1.0102e-02_rb,1.9737e-04_rb/)\n      kbo(:, 3,34, 7) = (/ &\n     &4.5431e-02_rb,3.6116e-02_rb,2.5118e-02_rb,1.3468e-02_rb,2.4097e-04_rb/)\n      kbo(:, 4,34, 7) = (/ &\n     &5.9751e-02_rb,4.7485e-02_rb,3.3007e-02_rb,1.7673e-02_rb,2.8983e-04_rb/)\n      kbo(:, 5,34, 7) = (/ &\n     &7.7416e-02_rb,6.1530e-02_rb,4.2751e-02_rb,2.2863e-02_rb,3.4328e-04_rb/)\n      kbo(:, 1,35, 7) = (/ &\n     &2.1796e-02_rb,1.7387e-02_rb,1.2111e-02_rb,6.5084e-03_rb,1.2835e-04_rb/)\n      kbo(:, 2,35, 7) = (/ &\n     &2.9698e-02_rb,2.3666e-02_rb,1.6479e-02_rb,8.8433e-03_rb,1.5863e-04_rb/)\n      kbo(:, 3,35, 7) = (/ &\n     &3.9760e-02_rb,3.1675e-02_rb,2.2035e-02_rb,1.1812e-02_rb,1.9396e-04_rb/)\n      kbo(:, 4,35, 7) = (/ &\n     &5.2402e-02_rb,4.1735e-02_rb,2.9029e-02_rb,1.5538e-02_rb,2.3292e-04_rb/)\n      kbo(:, 5,35, 7) = (/ &\n     &6.8053e-02_rb,5.4173e-02_rb,3.7664e-02_rb,2.0141e-02_rb,2.7598e-04_rb/)\n      kbo(:, 1,36, 7) = (/ &\n     &1.8439e-02_rb,1.4736e-02_rb,1.0269e-02_rb,5.5181e-03_rb,1.0059e-04_rb/)\n      kbo(:, 2,36, 7) = (/ &\n     &2.5228e-02_rb,2.0135e-02_rb,1.4024e-02_rb,7.5257e-03_rb,1.2421e-04_rb/)\n      kbo(:, 3,36, 7) = (/ &\n     &3.3891e-02_rb,2.7058e-02_rb,1.8832e-02_rb,1.0097e-02_rb,1.5179e-04_rb/)\n      kbo(:, 4,36, 7) = (/ &\n     &4.4855e-02_rb,3.5783e-02_rb,2.4899e-02_rb,1.3331e-02_rb,1.8254e-04_rb/)\n      kbo(:, 5,36, 7) = (/ &\n     &5.8411e-02_rb,4.6611e-02_rb,3.2419e-02_rb,1.7335e-02_rb,2.1654e-04_rb/)\n      kbo(:, 1,37, 7) = (/ &\n     &1.5025e-02_rb,1.2025e-02_rb,8.3808e-03_rb,4.5043e-03_rb,7.8293e-05_rb/)\n      kbo(:, 2,37, 7) = (/ &\n     &2.0678e-02_rb,1.6540e-02_rb,1.1522e-02_rb,6.1849e-03_rb,9.7252e-05_rb/)\n      kbo(:, 3,37, 7) = (/ &\n     &2.7964e-02_rb,2.2364e-02_rb,1.5572e-02_rb,8.3486e-03_rb,1.1926e-04_rb/)\n      kbo(:, 4,37, 7) = (/ &\n     &3.7225e-02_rb,2.9764e-02_rb,2.0719e-02_rb,1.1092e-02_rb,1.4386e-04_rb/)\n      kbo(:, 5,37, 7) = (/ &\n     &4.8779e-02_rb,3.9013e-02_rb,2.7143e-02_rb,1.4513e-02_rb,1.7127e-04_rb/)\n      kbo(:, 1,38, 7) = (/ &\n     &1.2194e-02_rb,9.7772e-03_rb,6.8154e-03_rb,3.6630e-03_rb,6.0721e-05_rb/)\n      kbo(:, 2,38, 7) = (/ &\n     &1.6892e-02_rb,1.3540e-02_rb,9.4349e-03_rb,5.0655e-03_rb,7.5931e-05_rb/)\n      kbo(:, 3,38, 7) = (/ &\n     &2.2993e-02_rb,1.8427e-02_rb,1.2834e-02_rb,6.8825e-03_rb,9.3480e-05_rb/)\n      kbo(:, 4,38, 7) = (/ &\n     &3.0804e-02_rb,2.4686e-02_rb,1.7192e-02_rb,9.2065e-03_rb,1.1312e-04_rb/)\n      kbo(:, 5,38, 7) = (/ &\n     &4.0626e-02_rb,3.2569e-02_rb,2.2673e-02_rb,1.2127e-02_rb,1.3481e-04_rb/)\n      kbo(:, 1,39, 7) = (/ &\n     &9.8863e-03_rb,7.9385e-03_rb,5.5336e-03_rb,2.9753e-03_rb,4.6829e-05_rb/)\n      kbo(:, 2,39, 7) = (/ &\n     &1.3782e-02_rb,1.1068e-02_rb,7.7135e-03_rb,4.1426e-03_rb,5.8903e-05_rb/)\n      kbo(:, 3,39, 7) = (/ &\n     &1.8884e-02_rb,1.5163e-02_rb,1.0568e-02_rb,5.6692e-03_rb,7.2758e-05_rb/)\n      kbo(:, 4,39, 7) = (/ &\n     &2.5472e-02_rb,2.0459e-02_rb,1.4252e-02_rb,7.6329e-03_rb,8.8280e-05_rb/)\n      kbo(:, 5,39, 7) = (/ &\n     &3.3793e-02_rb,2.7159e-02_rb,1.8912e-02_rb,1.0123e-02_rb,1.0549e-04_rb/)\n      kbo(:, 1,40, 7) = (/ &\n     &7.8183e-03_rb,6.2872e-03_rb,4.3840e-03_rb,2.3583e-03_rb,3.5934e-05_rb/)\n      kbo(:, 2,40, 7) = (/ &\n     &1.1002e-02_rb,8.8456e-03_rb,6.1665e-03_rb,3.3129e-03_rb,4.5505e-05_rb/)\n      kbo(:, 3,40, 7) = (/ &\n     &1.5204e-02_rb,1.2224e-02_rb,8.5201e-03_rb,4.5727e-03_rb,5.6603e-05_rb/)\n      kbo(:, 4,40, 7) = (/ &\n     &2.0667e-02_rb,1.6639e-02_rb,1.1596e-02_rb,6.2148e-03_rb,6.8922e-05_rb/)\n      kbo(:, 5,40, 7) = (/ &\n     &2.7656e-02_rb,2.2280e-02_rb,1.5521e-02_rb,8.3102e-03_rb,8.2779e-05_rb/)\n      kbo(:, 1,41, 7) = (/ &\n     &6.1500e-03_rb,4.9524e-03_rb,3.4538e-03_rb,1.8579e-03_rb,2.7494e-05_rb/)\n      kbo(:, 2,41, 7) = (/ &\n     &8.7326e-03_rb,7.0361e-03_rb,4.9035e-03_rb,2.6349e-03_rb,3.5036e-05_rb/)\n      kbo(:, 3,41, 7) = (/ &\n     &1.2182e-02_rb,9.8121e-03_rb,6.8364e-03_rb,3.6704e-03_rb,4.3900e-05_rb/)\n      kbo(:, 4,41, 7) = (/ &\n     &1.6698e-02_rb,1.3470e-02_rb,9.3901e-03_rb,5.0360e-03_rb,5.3809e-05_rb/)\n      kbo(:, 5,41, 7) = (/ &\n     &2.2541e-02_rb,1.8202e-02_rb,1.2686e-02_rb,6.7978e-03_rb,6.4784e-05_rb/)\n      kbo(:, 1,42, 7) = (/ &\n     &4.8216e-03_rb,3.8878e-03_rb,2.7121e-03_rb,1.4585e-03_rb,2.0930e-05_rb/)\n      kbo(:, 2,42, 7) = (/ &\n     &6.9151e-03_rb,5.5793e-03_rb,3.8882e-03_rb,2.0902e-03_rb,2.6862e-05_rb/)\n      kbo(:, 3,42, 7) = (/ &\n     &9.7317e-03_rb,7.8533e-03_rb,5.4747e-03_rb,2.9388e-03_rb,3.3897e-05_rb/)\n      kbo(:, 4,42, 7) = (/ &\n     &1.3459e-02_rb,1.0876e-02_rb,7.5844e-03_rb,4.0697e-03_rb,4.1759e-05_rb/)\n      kbo(:, 5,42, 7) = (/ &\n     &1.8320e-02_rb,1.4838e-02_rb,1.0343e-02_rb,5.5456e-03_rb,5.0540e-05_rb/)\n      kbo(:, 1,43, 7) = (/ &\n     &3.7271e-03_rb,3.0076e-03_rb,2.0983e-03_rb,1.1283e-03_rb,1.5715e-05_rb/)\n      kbo(:, 2,43, 7) = (/ &\n     &5.4034e-03_rb,4.3650e-03_rb,3.0427e-03_rb,1.6347e-03_rb,2.0366e-05_rb/)\n      kbo(:, 3,43, 7) = (/ &\n     &7.6865e-03_rb,6.2120e-03_rb,4.3312e-03_rb,2.3251e-03_rb,2.5938e-05_rb/)\n      kbo(:, 4,43, 7) = (/ &\n     &1.0735e-02_rb,8.6871e-03_rb,6.0565e-03_rb,3.2504e-03_rb,3.2151e-05_rb/)\n      kbo(:, 5,43, 7) = (/ &\n     &1.4744e-02_rb,1.1965e-02_rb,8.3459e-03_rb,4.4756e-03_rb,3.9126e-05_rb/)\n      kbo(:, 1,44, 7) = (/ &\n     &2.8560e-03_rb,2.3067e-03_rb,1.6088e-03_rb,8.6423e-04_rb,1.1691e-05_rb/)\n      kbo(:, 2,44, 7) = (/ &\n     &4.1914e-03_rb,3.3878e-03_rb,2.3617e-03_rb,1.2680e-03_rb,1.5336e-05_rb/)\n      kbo(:, 3,44, 7) = (/ &\n     &6.0257e-03_rb,4.8753e-03_rb,3.3991e-03_rb,1.8248e-03_rb,1.9674e-05_rb/)\n      kbo(:, 4,44, 7) = (/ &\n     &8.5074e-03_rb,6.8953e-03_rb,4.8067e-03_rb,2.5783e-03_rb,2.4601e-05_rb/)\n      kbo(:, 5,44, 7) = (/ &\n     &1.1798e-02_rb,9.5893e-03_rb,6.6876e-03_rb,3.5866e-03_rb,3.0110e-05_rb/)\n      kbo(:, 1,45, 7) = (/ &\n     &2.1795e-03_rb,1.7620e-03_rb,1.2288e-03_rb,6.5976e-04_rb,8.6355e-06_rb/)\n      kbo(:, 2,45, 7) = (/ &\n     &3.2384e-03_rb,2.6190e-03_rb,1.8255e-03_rb,9.8000e-04_rb,1.1470e-05_rb/)\n      kbo(:, 3,45, 7) = (/ &\n     &4.7095e-03_rb,3.8135e-03_rb,2.6589e-03_rb,1.4269e-03_rb,1.4819e-05_rb/)\n      kbo(:, 4,45, 7) = (/ &\n     &6.7188e-03_rb,5.4533e-03_rb,3.8021e-03_rb,2.0391e-03_rb,1.8692e-05_rb/)\n      kbo(:, 5,45, 7) = (/ &\n     &9.4160e-03_rb,7.6627e-03_rb,5.3428e-03_rb,2.8648e-03_rb,2.3071e-05_rb/)\n      kbo(:, 1,46, 7) = (/ &\n     &1.6442e-03_rb,1.3301e-03_rb,9.2731e-04_rb,4.9724e-04_rb,6.3123e-06_rb/)\n      kbo(:, 2,46, 7) = (/ &\n     &2.4756e-03_rb,2.0038e-03_rb,1.3961e-03_rb,7.4858e-04_rb,8.4887e-06_rb/)\n      kbo(:, 3,46, 7) = (/ &\n     &3.6430e-03_rb,2.9527e-03_rb,2.0584e-03_rb,1.1034e-03_rb,1.1065e-05_rb/)\n      kbo(:, 4,46, 7) = (/ &\n     &5.2551e-03_rb,4.2702e-03_rb,2.9775e-03_rb,1.5960e-03_rb,1.4093e-05_rb/)\n      kbo(:, 5,46, 7) = (/ &\n     &7.4490e-03_rb,6.0700e-03_rb,4.2323e-03_rb,2.2675e-03_rb,1.7540e-05_rb/)\n      kbo(:, 1,47, 7) = (/ &\n     &1.2145e-03_rb,9.8337e-04_rb,6.8536e-04_rb,3.6730e-04_rb,4.5517e-06_rb/)\n      kbo(:, 2,47, 7) = (/ &\n     &1.8591e-03_rb,1.5045e-03_rb,1.0482e-03_rb,5.6130e-04_rb,6.1946e-06_rb/)\n      kbo(:, 3,47, 7) = (/ &\n     &2.7714e-03_rb,2.2470e-03_rb,1.5654e-03_rb,8.3875e-04_rb,8.1842e-06_rb/)\n      kbo(:, 4,47, 7) = (/ &\n     &4.0468e-03_rb,3.2903e-03_rb,2.2941e-03_rb,1.2283e-03_rb,1.0514e-05_rb/)\n      kbo(:, 5,47, 7) = (/ &\n     &5.8053e-03_rb,4.7349e-03_rb,3.3018e-03_rb,1.7685e-03_rb,1.3244e-05_rb/)\n      kbo(:, 1,48, 7) = (/ &\n     &8.9209e-04_rb,7.2273e-04_rb,5.0348e-04_rb,2.6958e-04_rb,3.2450e-06_rb/)\n      kbo(:, 2,48, 7) = (/ &\n     &1.3877e-03_rb,1.1243e-03_rb,7.8261e-04_rb,4.1863e-04_rb,4.4867e-06_rb/)\n      kbo(:, 3,48, 7) = (/ &\n     &2.0991e-03_rb,1.7020e-03_rb,1.1852e-03_rb,6.3416e-04_rb,6.0052e-06_rb/)\n      kbo(:, 4,48, 7) = (/ &\n     &3.1030e-03_rb,2.5246e-03_rb,1.7595e-03_rb,9.4166e-04_rb,7.8064e-06_rb/)\n      kbo(:, 5,48, 7) = (/ &\n     &4.5012e-03_rb,3.6752e-03_rb,2.5627e-03_rb,1.3716e-03_rb,9.9188e-06_rb/)\n      kbo(:, 1,49, 7) = (/ &\n     &6.5052e-04_rb,5.2741e-04_rb,3.6738e-04_rb,1.9665e-04_rb,2.2928e-06_rb/)\n      kbo(:, 2,49, 7) = (/ &\n     &1.0291e-03_rb,8.3378e-04_rb,5.8035e-04_rb,3.1024e-04_rb,3.2141e-06_rb/)\n      kbo(:, 3,49, 7) = (/ &\n     &1.5816e-03_rb,1.2832e-03_rb,8.9291e-04_rb,4.7687e-04_rb,4.3608e-06_rb/)\n      kbo(:, 4,49, 7) = (/ &\n     &2.3687e-03_rb,1.9273e-03_rb,1.3422e-03_rb,7.1737e-04_rb,5.7390e-06_rb/)\n      kbo(:, 5,49, 7) = (/ &\n     &3.4765e-03_rb,2.8403e-03_rb,1.9797e-03_rb,1.0580e-03_rb,7.3616e-06_rb/)\n      kbo(:, 1,50, 7) = (/ &\n     &4.7889e-04_rb,3.8798e-04_rb,2.7009e-04_rb,1.4448e-04_rb,1.6356e-06_rb/)\n      kbo(:, 2,50, 7) = (/ &\n     &7.6956e-04_rb,6.2385e-04_rb,4.3396e-04_rb,2.3170e-04_rb,2.3299e-06_rb/)\n      kbo(:, 3,50, 7) = (/ &\n     &1.1998e-03_rb,9.7385e-04_rb,6.7714e-04_rb,3.6138e-04_rb,3.2007e-06_rb/)\n      kbo(:, 4,50, 7) = (/ &\n     &1.8222e-03_rb,1.4833e-03_rb,1.0320e-03_rb,5.5070e-04_rb,4.2632e-06_rb/)\n      kbo(:, 5,50, 7) = (/ &\n     &2.7064e-03_rb,2.2113e-03_rb,1.5405e-03_rb,8.2234e-04_rb,5.5273e-06_rb/)\n      kbo(:, 1,51, 7) = (/ &\n     &3.5344e-04_rb,2.8635e-04_rb,1.9912e-04_rb,1.0636e-04_rb,1.1680e-06_rb/)\n      kbo(:, 2,51, 7) = (/ &\n     &5.7631e-04_rb,4.6738e-04_rb,3.2502e-04_rb,1.7332e-04_rb,1.6902e-06_rb/)\n      kbo(:, 3,51, 7) = (/ &\n     &9.1142e-04_rb,7.3982e-04_rb,5.1424e-04_rb,2.7410e-04_rb,2.3543e-06_rb/)\n      kbo(:, 4,51, 7) = (/ &\n     &1.4045e-03_rb,1.1437e-03_rb,7.9544e-04_rb,4.2395e-04_rb,3.1729e-06_rb/)\n      kbo(:, 5,51, 7) = (/ &\n     &2.1131e-03_rb,1.7268e-03_rb,1.2023e-03_rb,6.4090e-04_rb,4.1620e-06_rb/)\n      kbo(:, 1,52, 7) = (/ &\n     &2.5933e-04_rb,2.1020e-04_rb,1.4608e-04_rb,7.7951e-05_rb,8.2759e-07_rb/)\n      kbo(:, 2,52, 7) = (/ &\n     &4.3070e-04_rb,3.4917e-04_rb,2.4257e-04_rb,1.2919e-04_rb,1.2165e-06_rb/)\n      kbo(:, 3,52, 7) = (/ &\n     &6.9048e-04_rb,5.6079e-04_rb,3.8962e-04_rb,2.0733e-04_rb,1.7208e-06_rb/)\n      kbo(:, 4,52, 7) = (/ &\n     &1.0785e-03_rb,8.7815e-04_rb,6.1039e-04_rb,3.2491e-04_rb,2.3474e-06_rb/)\n      kbo(:, 5,52, 7) = (/ &\n     &1.6449e-03_rb,1.3448e-03_rb,9.3585e-04_rb,4.9830e-04_rb,3.1177e-06_rb/)\n      kbo(:, 1,53, 7) = (/ &\n     &1.8893e-04_rb,1.5324e-04_rb,1.0643e-04_rb,5.6765e-05_rb,5.8012e-07_rb/)\n      kbo(:, 2,53, 7) = (/ &\n     &3.2030e-04_rb,2.5977e-04_rb,1.8033e-04_rb,9.5988e-05_rb,8.6790e-07_rb/)\n      kbo(:, 3,53, 7) = (/ &\n     &5.2133e-04_rb,4.2303e-04_rb,2.9359e-04_rb,1.5604e-04_rb,1.2459e-06_rb/)\n      kbo(:, 4,53, 7) = (/ &\n     &8.2474e-04_rb,6.7149e-04_rb,4.6612e-04_rb,2.4781e-04_rb,1.7256e-06_rb/)\n      kbo(:, 5,53, 7) = (/ &\n     &1.2742e-03_rb,1.0424e-03_rb,7.2493e-04_rb,3.8558e-04_rb,2.3164e-06_rb/)\n      kbo(:, 1,54, 7) = (/ &\n     &1.3969e-04_rb,1.1317e-04_rb,7.8561e-05_rb,4.1870e-05_rb,4.1563e-07_rb/)\n      kbo(:, 2,54, 7) = (/ &\n     &2.4197e-04_rb,1.9607e-04_rb,1.3602e-04_rb,7.2325e-05_rb,6.3273e-07_rb/)\n      kbo(:, 3,54, 7) = (/ &\n     &4.0015e-04_rb,3.2487e-04_rb,2.2527e-04_rb,1.1951e-04_rb,9.2081e-07_rb/)\n      kbo(:, 4,54, 7) = (/ &\n     &6.4075e-04_rb,5.2162e-04_rb,3.6218e-04_rb,1.9219e-04_rb,1.2926e-06_rb/)\n      kbo(:, 5,54, 7) = (/ &\n     &1.0011e-03_rb,8.1978e-04_rb,5.6992e-04_rb,3.0275e-04_rb,1.7539e-06_rb/)\n      kbo(:, 1,55, 7) = (/ &\n     &1.0370e-04_rb,8.4064e-05_rb,5.8320e-05_rb,3.1035e-05_rb,3.0125e-07_rb/)\n      kbo(:, 2,55, 7) = (/ &\n     &1.8386e-04_rb,1.4899e-04_rb,1.0330e-04_rb,5.4881e-05_rb,4.6624e-07_rb/)\n      kbo(:, 3,55, 7) = (/ &\n     &3.0954e-04_rb,2.5123e-04_rb,1.7413e-04_rb,9.2312e-05_rb,6.8850e-07_rb/)\n      kbo(:, 4,55, 7) = (/ &\n     &5.0203e-04_rb,4.0855e-04_rb,2.8330e-04_rb,1.5019e-04_rb,9.7772e-07_rb/)\n      kbo(:, 5,55, 7) = (/ &\n     &7.9354e-04_rb,6.4976e-04_rb,4.5113e-04_rb,2.3954e-04_rb,1.3409e-06_rb/)\n      kbo(:, 1,56, 7) = (/ &\n     &7.6693e-05_rb,6.2162e-05_rb,4.3120e-05_rb,2.2933e-05_rb,2.1684e-07_rb/)\n      kbo(:, 2,56, 7) = (/ &\n     &1.3934e-04_rb,1.1294e-04_rb,7.8219e-05_rb,4.1520e-05_rb,3.4179e-07_rb/)\n      kbo(:, 3,56, 7) = (/ &\n     &2.3910e-04_rb,1.9403e-04_rb,1.3441e-04_rb,7.1189e-05_rb,5.1274e-07_rb/)\n      kbo(:, 4,56, 7) = (/ &\n     &3.9378e-04_rb,3.2054e-04_rb,2.2198e-04_rb,1.1748e-04_rb,7.3840e-07_rb/)\n      kbo(:, 5,56, 7) = (/ &\n     &6.2957e-04_rb,5.1531e-04_rb,3.5753e-04_rb,1.8952e-04_rb,1.0222e-06_rb/)\n      kbo(:, 1,57, 7) = (/ &\n     &5.6535e-05_rb,4.5829e-05_rb,3.1754e-05_rb,1.6880e-05_rb,1.5535e-07_rb/)\n      kbo(:, 2,57, 7) = (/ &\n     &1.0543e-04_rb,8.5393e-05_rb,5.9099e-05_rb,3.1336e-05_rb,2.4941e-07_rb/)\n      kbo(:, 3,57, 7) = (/ &\n     &1.8447e-04_rb,1.4976e-04_rb,1.0364e-04_rb,5.4850e-05_rb,3.7980e-07_rb/)\n      kbo(:, 4,57, 7) = (/ &\n     &3.0910e-04_rb,2.5132e-04_rb,1.7397e-04_rb,9.1976e-05_rb,5.5506e-07_rb/)\n      kbo(:, 5,57, 7) = (/ &\n     &4.9998e-04_rb,4.0888e-04_rb,2.8341e-04_rb,1.4999e-04_rb,7.7934e-07_rb/)\n      kbo(:, 1,58, 7) = (/ &\n     &2.0338e-05_rb,1.8913e-05_rb,1.5378e-05_rb,9.8853e-06_rb,1.1183e-07_rb/)\n      kbo(:, 2,58, 7) = (/ &\n     &3.8917e-05_rb,3.6144e-05_rb,2.9335e-05_rb,1.8800e-05_rb,1.8309e-07_rb/)\n      kbo(:, 3,58, 7) = (/ &\n     &6.9478e-05_rb,6.4684e-05_rb,5.2517e-05_rb,3.3620e-05_rb,2.8333e-07_rb/)\n      kbo(:, 4,58, 7) = (/ &\n     &1.1843e-04_rb,1.1052e-04_rb,8.9713e-05_rb,5.7328e-05_rb,4.1951e-07_rb/)\n      kbo(:, 5,58, 7) = (/ &\n     &1.9434e-04_rb,1.8218e-04_rb,1.4806e-04_rb,9.4685e-05_rb,5.9796e-07_rb/)\n      kbo(:, 1,59, 7) = (/ &\n     &1.6486e-05_rb,1.5394e-05_rb,1.2565e-05_rb,8.1204e-06_rb,9.1178e-08_rb/)\n      kbo(:, 2,59, 7) = (/ &\n     &3.1937e-05_rb,2.9800e-05_rb,2.4292e-05_rb,1.5665e-05_rb,1.5065e-07_rb/)\n      kbo(:, 3,59, 7) = (/ &\n     &5.7683e-05_rb,5.3905e-05_rb,4.3942e-05_rb,2.8299e-05_rb,2.3496e-07_rb/)\n      kbo(:, 4,59, 7) = (/ &\n     &9.9323e-05_rb,9.3088e-05_rb,7.5927e-05_rb,4.8813e-05_rb,3.4922e-07_rb/)\n      kbo(:, 5,59, 7) = (/ &\n     &1.6451e-04_rb,1.5507e-04_rb,1.2661e-04_rb,8.1439e-05_rb,5.0093e-07_rb/)\n      kbo(:, 1,13, 8) = (/ &\n     &1.2116e+00_rb,9.1758e-01_rb,6.2996e-01_rb,3.3536e-01_rb,1.5468e-02_rb/)\n      kbo(:, 2,13, 8) = (/ &\n     &1.6818e+00_rb,1.2746e+00_rb,8.7634e-01_rb,4.6518e-01_rb,1.8709e-02_rb/)\n      kbo(:, 3,13, 8) = (/ &\n     &2.2865e+00_rb,1.7360e+00_rb,1.1942e+00_rb,6.3525e-01_rb,2.2469e-02_rb/)\n      kbo(:, 4,13, 8) = (/ &\n     &3.0754e+00_rb,2.3371e+00_rb,1.6054e+00_rb,8.5102e-01_rb,2.6288e-02_rb/)\n      kbo(:, 5,13, 8) = (/ &\n     &4.0473e+00_rb,3.0761e+00_rb,2.1113e+00_rb,1.1162e+00_rb,3.0276e-02_rb/)\n      kbo(:, 1,14, 8) = (/ &\n     &1.1078e+00_rb,8.4059e-01_rb,5.7946e-01_rb,3.0612e-01_rb,1.2063e-02_rb/)\n      kbo(:, 2,14, 8) = (/ &\n     &1.5335e+00_rb,1.1661e+00_rb,8.0499e-01_rb,4.2627e-01_rb,1.4718e-02_rb/)\n      kbo(:, 3,14, 8) = (/ &\n     &2.0884e+00_rb,1.5886e+00_rb,1.0949e+00_rb,5.8050e-01_rb,1.7857e-02_rb/)\n      kbo(:, 4,14, 8) = (/ &\n     &2.8120e+00_rb,2.1413e+00_rb,1.4745e+00_rb,7.8098e-01_rb,2.1007e-02_rb/)\n      kbo(:, 5,14, 8) = (/ &\n     &3.6989e+00_rb,2.8189e+00_rb,1.9396e+00_rb,1.0257e+00_rb,2.4295e-02_rb/)\n      kbo(:, 1,15, 8) = (/ &\n     &9.7042e-01_rb,7.3947e-01_rb,5.1034e-01_rb,2.6949e-01_rb,9.7938e-03_rb/)\n      kbo(:, 2,15, 8) = (/ &\n     &1.3436e+00_rb,1.0262e+00_rb,7.0874e-01_rb,3.7517e-01_rb,1.2203e-02_rb/)\n      kbo(:, 3,15, 8) = (/ &\n     &1.8449e+00_rb,1.4109e+00_rb,9.7248e-01_rb,5.1316e-01_rb,1.4807e-02_rb/)\n      kbo(:, 4,15, 8) = (/ &\n     &2.4626e+00_rb,1.8840e+00_rb,1.3006e+00_rb,6.9030e-01_rb,1.7518e-02_rb/)\n      kbo(:, 5,15, 8) = (/ &\n     &3.2241e+00_rb,2.4640e+00_rb,1.6957e+00_rb,8.9766e-01_rb,2.0767e-02_rb/)\n      kbo(:, 1,16, 8) = (/ &\n     &8.2995e-01_rb,6.3671e-01_rb,4.3954e-01_rb,2.3206e-01_rb,8.0720e-03_rb/)\n      kbo(:, 2,16, 8) = (/ &\n     &1.1570e+00_rb,8.8835e-01_rb,6.1260e-01_rb,3.2369e-01_rb,1.0091e-02_rb/)\n      kbo(:, 3,16, 8) = (/ &\n     &1.5781e+00_rb,1.2128e+00_rb,8.3725e-01_rb,4.4354e-01_rb,1.2349e-02_rb/)\n      kbo(:, 4,16, 8) = (/ &\n     &2.1038e+00_rb,1.6176e+00_rb,1.1171e+00_rb,5.9216e-01_rb,1.4755e-02_rb/)\n      kbo(:, 5,16, 8) = (/ &\n     &2.7385e+00_rb,2.1023e+00_rb,1.4490e+00_rb,7.6892e-01_rb,1.7667e-02_rb/)\n      kbo(:, 1,17, 8) = (/ &\n     &7.0692e-01_rb,5.4586e-01_rb,3.7661e-01_rb,1.9889e-01_rb,6.7483e-03_rb/)\n      kbo(:, 2,17, 8) = (/ &\n     &9.8295e-01_rb,7.5893e-01_rb,5.2307e-01_rb,2.7659e-01_rb,8.4850e-03_rb/)\n      kbo(:, 3,17, 8) = (/ &\n     &1.3367e+00_rb,1.0327e+00_rb,7.1373e-01_rb,3.7884e-01_rb,1.0478e-02_rb/)\n      kbo(:, 4,17, 8) = (/ &\n     &1.7756e+00_rb,1.3697e+00_rb,9.4344e-01_rb,4.9980e-01_rb,1.2797e-02_rb/)\n      kbo(:, 5,17, 8) = (/ &\n     &2.3127e+00_rb,1.7838e+00_rb,1.2303e+00_rb,6.5347e-01_rb,1.5355e-02_rb/)\n      kbo(:, 1,18, 8) = (/ &\n     &5.9108e-01_rb,4.5836e-01_rb,3.1625e-01_rb,1.6744e-01_rb,5.7287e-03_rb/)\n      kbo(:, 2,18, 8) = (/ &\n     &8.2052e-01_rb,6.3681e-01_rb,4.3945e-01_rb,2.3289e-01_rb,7.3032e-03_rb/)\n      kbo(:, 3,18, 8) = (/ &\n     &1.1131e+00_rb,8.6338e-01_rb,5.9577e-01_rb,3.1578e-01_rb,9.0895e-03_rb/)\n      kbo(:, 4,18, 8) = (/ &\n     &1.4765e+00_rb,1.1444e+00_rb,7.8909e-01_rb,4.1827e-01_rb,1.1179e-02_rb/)\n      kbo(:, 5,18, 8) = (/ &\n     &1.9250e+00_rb,1.4898e+00_rb,1.0284e+00_rb,5.4576e-01_rb,1.3498e-02_rb/)\n      kbo(:, 1,19, 8) = (/ &\n     &5.0114e-01_rb,3.9028e-01_rb,2.6968e-01_rb,1.4303e-01_rb,5.0299e-03_rb/)\n      kbo(:, 2,19, 8) = (/ &\n     &6.9768e-01_rb,5.4308e-01_rb,3.7493e-01_rb,1.9896e-01_rb,6.4752e-03_rb/)\n      kbo(:, 3,19, 8) = (/ &\n     &9.4555e-01_rb,7.3537e-01_rb,5.0733e-01_rb,2.6864e-01_rb,8.1323e-03_rb/)\n      kbo(:, 4,19, 8) = (/ &\n     &1.2515e+00_rb,9.7204e-01_rb,6.7090e-01_rb,3.5577e-01_rb,1.0007e-02_rb/)\n      kbo(:, 5,19, 8) = (/ &\n     &1.6326e+00_rb,1.2674e+00_rb,8.7478e-01_rb,4.6363e-01_rb,1.2144e-02_rb/)\n      kbo(:, 1,20, 8) = (/ &\n     &4.3618e-01_rb,3.4070e-01_rb,2.3544e-01_rb,1.2514e-01_rb,4.4918e-03_rb/)\n      kbo(:, 2,20, 8) = (/ &\n     &6.0844e-01_rb,4.7506e-01_rb,3.2779e-01_rb,1.7405e-01_rb,5.8213e-03_rb/)\n      kbo(:, 3,20, 8) = (/ &\n     &8.2504e-01_rb,6.4315e-01_rb,4.4377e-01_rb,2.3521e-01_rb,7.3449e-03_rb/)\n      kbo(:, 4,20, 8) = (/ &\n     &1.0904e+00_rb,8.4892e-01_rb,5.8560e-01_rb,3.1033e-01_rb,9.1136e-03_rb/)\n      kbo(:, 5,20, 8) = (/ &\n     &1.4182e+00_rb,1.1040e+00_rb,7.6212e-01_rb,4.0404e-01_rb,1.1084e-02_rb/)\n      kbo(:, 1,21, 8) = (/ &\n     &3.8157e-01_rb,2.9889e-01_rb,2.0662e-01_rb,1.0989e-01_rb,4.0172e-03_rb/)\n      kbo(:, 2,21, 8) = (/ &\n     &5.3249e-01_rb,4.1652e-01_rb,2.8764e-01_rb,1.5288e-01_rb,5.2442e-03_rb/)\n      kbo(:, 3,21, 8) = (/ &\n     &7.2280e-01_rb,5.6456e-01_rb,3.8951e-01_rb,2.0661e-01_rb,6.6692e-03_rb/)\n      kbo(:, 4,21, 8) = (/ &\n     &9.5675e-01_rb,7.4634e-01_rb,5.1474e-01_rb,2.7285e-01_rb,8.2754e-03_rb/)\n      kbo(:, 5,21, 8) = (/ &\n     &1.2430e+00_rb,9.6862e-01_rb,6.6782e-01_rb,3.5364e-01_rb,1.0090e-02_rb/)\n      kbo(:, 1,22, 8) = (/ &\n     &3.4101e-01_rb,2.6749e-01_rb,1.8491e-01_rb,9.8339e-02_rb,3.6398e-03_rb/)\n      kbo(:, 2,22, 8) = (/ &\n     &4.7480e-01_rb,3.7184e-01_rb,2.5674e-01_rb,1.3643e-01_rb,4.7506e-03_rb/)\n      kbo(:, 3,22, 8) = (/ &\n     &6.4273e-01_rb,5.0295e-01_rb,3.4722e-01_rb,1.8435e-01_rb,6.0333e-03_rb/)\n      kbo(:, 4,22, 8) = (/ &\n     &8.5104e-01_rb,6.6530e-01_rb,4.5905e-01_rb,2.4340e-01_rb,7.4888e-03_rb/)\n      kbo(:, 5,22, 8) = (/ &\n     &1.1079e+00_rb,8.6526e-01_rb,5.9621e-01_rb,3.1544e-01_rb,9.1269e-03_rb/)\n      kbo(:, 1,23, 8) = (/ &\n     &3.0421e-01_rb,2.3897e-01_rb,1.6516e-01_rb,8.7923e-02_rb,3.2631e-03_rb/)\n      kbo(:, 2,23, 8) = (/ &\n     &4.2200e-01_rb,3.3116e-01_rb,2.2888e-01_rb,1.2169e-01_rb,4.2529e-03_rb/)\n      kbo(:, 3,23, 8) = (/ &\n     &5.7072e-01_rb,4.4747e-01_rb,3.0900e-01_rb,1.6407e-01_rb,5.3912e-03_rb/)\n      kbo(:, 4,23, 8) = (/ &\n     &7.5672e-01_rb,5.9253e-01_rb,4.0891e-01_rb,2.1688e-01_rb,6.6960e-03_rb/)\n      kbo(:, 5,23, 8) = (/ &\n     &9.8731e-01_rb,7.7239e-01_rb,5.3220e-01_rb,2.8204e-01_rb,8.2651e-03_rb/)\n      kbo(:, 1,24, 8) = (/ &\n     &2.7335e-01_rb,2.1493e-01_rb,1.4863e-01_rb,7.9120e-02_rb,2.9206e-03_rb/)\n      kbo(:, 2,24, 8) = (/ &\n     &3.7818e-01_rb,2.9704e-01_rb,2.0533e-01_rb,1.0922e-01_rb,3.7959e-03_rb/)\n      kbo(:, 3,24, 8) = (/ &\n     &5.1197e-01_rb,4.0167e-01_rb,2.7730e-01_rb,1.4723e-01_rb,4.8218e-03_rb/)\n      kbo(:, 4,24, 8) = (/ &\n     &6.8021e-01_rb,5.3323e-01_rb,3.6769e-01_rb,1.9508e-01_rb,6.0367e-03_rb/)\n      kbo(:, 5,24, 8) = (/ &\n     &8.8740e-01_rb,6.9520e-01_rb,4.7892e-01_rb,2.5373e-01_rb,7.4083e-03_rb/)\n      kbo(:, 1,25, 8) = (/ &\n     &2.4667e-01_rb,1.9408e-01_rb,1.3424e-01_rb,7.1436e-02_rb,2.6098e-03_rb/)\n      kbo(:, 2,25, 8) = (/ &\n     &3.4107e-01_rb,2.6809e-01_rb,1.8527e-01_rb,9.8480e-02_rb,3.3820e-03_rb/)\n      kbo(:, 3,25, 8) = (/ &\n     &4.6237e-01_rb,3.6308e-01_rb,2.5057e-01_rb,1.3298e-01_rb,4.3157e-03_rb/)\n      kbo(:, 4,25, 8) = (/ &\n     &6.1385e-01_rb,4.8168e-01_rb,3.3224e-01_rb,1.7632e-01_rb,5.3399e-03_rb/)\n      kbo(:, 5,25, 8) = (/ &\n     &7.9905e-01_rb,6.2682e-01_rb,4.3186e-01_rb,2.2913e-01_rb,6.4913e-03_rb/)\n      kbo(:, 1,26, 8) = (/ &\n     &2.2404e-01_rb,1.7649e-01_rb,1.2214e-01_rb,6.5022e-02_rb,2.3384e-03_rb/)\n      kbo(:, 2,26, 8) = (/ &\n     &3.1013e-01_rb,2.4403e-01_rb,1.6870e-01_rb,8.9741e-02_rb,3.0179e-03_rb/)\n      kbo(:, 3,26, 8) = (/ &\n     &4.2049e-01_rb,3.3066e-01_rb,2.2838e-01_rb,1.2138e-01_rb,3.8039e-03_rb/)\n      kbo(:, 4,26, 8) = (/ &\n     &5.5790e-01_rb,4.3821e-01_rb,3.0237e-01_rb,1.6056e-01_rb,4.6658e-03_rb/)\n      kbo(:, 5,26, 8) = (/ &\n     &7.2377e-01_rb,5.6837e-01_rb,3.9196e-01_rb,2.0795e-01_rb,5.6275e-03_rb/)\n      kbo(:, 1,27, 8) = (/ &\n     &2.0411e-01_rb,1.6088e-01_rb,1.1131e-01_rb,5.9303e-02_rb,2.0568e-03_rb/)\n      kbo(:, 2,27, 8) = (/ &\n     &2.8256e-01_rb,2.2260e-01_rb,1.5392e-01_rb,8.1961e-02_rb,2.6349e-03_rb/)\n      kbo(:, 3,27, 8) = (/ &\n     &3.8251e-01_rb,3.0112e-01_rb,2.0805e-01_rb,1.1068e-01_rb,3.2772e-03_rb/)\n      kbo(:, 4,27, 8) = (/ &\n     &5.0562e-01_rb,3.9785e-01_rb,2.7464e-01_rb,1.4598e-01_rb,4.0077e-03_rb/)\n      kbo(:, 5,27, 8) = (/ &\n     &6.5445e-01_rb,5.1441e-01_rb,3.5497e-01_rb,1.8851e-01_rb,4.8055e-03_rb/)\n      kbo(:, 1,28, 8) = (/ &\n     &1.8628e-01_rb,1.4699e-01_rb,1.0171e-01_rb,5.4235e-02_rb,1.7799e-03_rb/)\n      kbo(:, 2,28, 8) = (/ &\n     &2.5749e-01_rb,2.0322e-01_rb,1.4053e-01_rb,7.4881e-02_rb,2.2515e-03_rb/)\n      kbo(:, 3,28, 8) = (/ &\n     &3.4728e-01_rb,2.7380e-01_rb,1.8920e-01_rb,1.0075e-01_rb,2.7863e-03_rb/)\n      kbo(:, 4,28, 8) = (/ &\n     &4.5755e-01_rb,3.6044e-01_rb,2.4894e-01_rb,1.3243e-01_rb,3.3903e-03_rb/)\n      kbo(:, 5,28, 8) = (/ &\n     &5.9045e-01_rb,4.6494e-01_rb,3.2101e-01_rb,1.7052e-01_rb,4.0404e-03_rb/)\n      kbo(:, 1,29, 8) = (/ &\n     &1.6897e-01_rb,1.3358e-01_rb,9.2501e-02_rb,4.9422e-02_rb,1.5070e-03_rb/)\n      kbo(:, 2,29, 8) = (/ &\n     &2.3294e-01_rb,1.8406e-01_rb,1.2733e-01_rb,6.7942e-02_rb,1.8975e-03_rb/)\n      kbo(:, 3,29, 8) = (/ &\n     &3.1307e-01_rb,2.4704e-01_rb,1.7081e-01_rb,9.1043e-02_rb,2.3375e-03_rb/)\n      kbo(:, 4,29, 8) = (/ &\n     &4.1126e-01_rb,3.2432e-01_rb,2.2417e-01_rb,1.1931e-01_rb,2.8199e-03_rb/)\n      kbo(:, 5,29, 8) = (/ &\n     &5.2992e-01_rb,4.1770e-01_rb,2.8860e-01_rb,1.5337e-01_rb,3.3535e-03_rb/)\n      kbo(:, 1,30, 8) = (/ &\n     &1.5242e-01_rb,1.2071e-01_rb,8.3664e-02_rb,4.4778e-02_rb,1.2669e-03_rb/)\n      kbo(:, 2,30, 8) = (/ &\n     &2.0927e-01_rb,1.6559e-01_rb,1.1465e-01_rb,6.1290e-02_rb,1.5824e-03_rb/)\n      kbo(:, 3,30, 8) = (/ &\n     &2.8036e-01_rb,2.2167e-01_rb,1.5340e-01_rb,8.1865e-02_rb,1.9342e-03_rb/)\n      kbo(:, 4,30, 8) = (/ &\n     &3.6796e-01_rb,2.9065e-01_rb,2.0100e-01_rb,1.0707e-01_rb,2.3143e-03_rb/)\n      kbo(:, 5,30, 8) = (/ &\n     &4.7407e-01_rb,3.7431e-01_rb,2.5849e-01_rb,1.3745e-01_rb,2.7612e-03_rb/)\n      kbo(:, 1,31, 8) = (/ &\n     &1.3611e-01_rb,1.0796e-01_rb,7.4865e-02_rb,4.0122e-02_rb,1.0479e-03_rb/)\n      kbo(:, 2,31, 8) = (/ &\n     &1.8611e-01_rb,1.4751e-01_rb,1.0224e-01_rb,5.4734e-02_rb,1.2997e-03_rb/)\n      kbo(:, 3,31, 8) = (/ &\n     &2.4882e-01_rb,1.9706e-01_rb,1.3650e-01_rb,7.2954e-02_rb,1.5789e-03_rb/)\n      kbo(:, 4,31, 8) = (/ &\n     &3.2631e-01_rb,2.5819e-01_rb,1.7872e-01_rb,9.5286e-02_rb,1.8990e-03_rb/)\n      kbo(:, 5,31, 8) = (/ &\n     &4.2088e-01_rb,3.3264e-01_rb,2.2986e-01_rb,1.2231e-01_rb,2.2523e-03_rb/)\n      kbo(:, 1,32, 8) = (/ &\n     &1.2210e-01_rb,9.6994e-02_rb,6.7326e-02_rb,3.6123e-02_rb,8.5904e-04_rb/)\n      kbo(:, 2,32, 8) = (/ &\n     &1.6652e-01_rb,1.3210e-01_rb,9.1670e-02_rb,4.9107e-02_rb,1.0623e-03_rb/)\n      kbo(:, 3,32, 8) = (/ &\n     &2.2222e-01_rb,1.7626e-01_rb,1.2220e-01_rb,6.5357e-02_rb,1.2931e-03_rb/)\n      kbo(:, 4,32, 8) = (/ &\n     &2.9160e-01_rb,2.3096e-01_rb,1.5993e-01_rb,8.5342e-02_rb,1.5468e-03_rb/)\n      kbo(:, 5,32, 8) = (/ &\n     &3.7617e-01_rb,2.9768e-01_rb,2.0589e-01_rb,1.0971e-01_rb,1.8394e-03_rb/)\n      kbo(:, 1,33, 8) = (/ &\n     &1.0986e-01_rb,8.7382e-02_rb,6.0737e-02_rb,3.2609e-02_rb,7.0177e-04_rb/)\n      kbo(:, 2,33, 8) = (/ &\n     &1.4961e-01_rb,1.1887e-01_rb,8.2542e-02_rb,4.4260e-02_rb,8.6489e-04_rb/)\n      kbo(:, 3,33, 8) = (/ &\n     &1.9974e-01_rb,1.5861e-01_rb,1.0995e-01_rb,5.8836e-02_rb,1.0533e-03_rb/)\n      kbo(:, 4,33, 8) = (/ &\n     &2.6219e-01_rb,2.0793e-01_rb,1.4396e-01_rb,7.6884e-02_rb,1.2624e-03_rb/)\n      kbo(:, 5,33, 8) = (/ &\n     &3.3855e-01_rb,2.6852e-01_rb,1.8574e-01_rb,9.9060e-02_rb,1.4976e-03_rb/)\n      kbo(:, 1,34, 8) = (/ &\n     &9.9355e-02_rb,7.9091e-02_rb,5.5001e-02_rb,2.9534e-02_rb,5.8155e-04_rb/)\n      kbo(:, 2,34, 8) = (/ &\n     &1.3530e-01_rb,1.0764e-01_rb,7.4771e-02_rb,4.0076e-02_rb,7.1503e-04_rb/)\n      kbo(:, 3,34, 8) = (/ &\n     &1.8087e-01_rb,1.4373e-01_rb,9.9666e-02_rb,5.3339e-02_rb,8.6827e-04_rb/)\n      kbo(:, 4,34, 8) = (/ &\n     &2.3750e-01_rb,1.8867e-01_rb,1.3063e-01_rb,6.9822e-02_rb,1.0409e-03_rb/)\n      kbo(:, 5,34, 8) = (/ &\n     &3.0762e-01_rb,2.4432e-01_rb,1.6897e-01_rb,9.0140e-02_rb,1.2357e-03_rb/)\n      kbo(:, 1,35, 8) = (/ &\n     &8.7519e-02_rb,6.9769e-02_rb,4.8552e-02_rb,2.6085e-02_rb,4.6868e-04_rb/)\n      kbo(:, 2,35, 8) = (/ &\n     &1.1953e-01_rb,9.5204e-02_rb,6.6129e-02_rb,3.5470e-02_rb,5.7740e-04_rb/)\n      kbo(:, 3,35, 8) = (/ &\n     &1.6035e-01_rb,1.2756e-01_rb,8.8463e-02_rb,4.7361e-02_rb,7.0118e-04_rb/)\n      kbo(:, 4,35, 8) = (/ &\n     &2.1123e-01_rb,1.6801e-01_rb,1.1639e-01_rb,6.2235e-02_rb,8.4220e-04_rb/)\n      kbo(:, 5,35, 8) = (/ &\n     &2.7484e-01_rb,2.1861e-01_rb,1.5121e-01_rb,8.0717e-02_rb,1.0033e-03_rb/)\n      kbo(:, 1,36, 8) = (/ &\n     &7.4849e-02_rb,5.9737e-02_rb,4.1593e-02_rb,2.2353e-02_rb,3.6660e-04_rb/)\n      kbo(:, 2,36, 8) = (/ &\n     &1.0278e-01_rb,8.1972e-02_rb,5.6955e-02_rb,3.0544e-02_rb,4.5336e-04_rb/)\n      kbo(:, 3,36, 8) = (/ &\n     &1.3843e-01_rb,1.1029e-01_rb,7.6519e-02_rb,4.1000e-02_rb,5.5390e-04_rb/)\n      kbo(:, 4,36, 8) = (/ &\n     &1.8385e-01_rb,1.4649e-01_rb,1.0149e-01_rb,5.4257e-02_rb,6.6682e-04_rb/)\n      kbo(:, 5,36, 8) = (/ &\n     &2.4059e-01_rb,1.9160e-01_rb,1.3256e-01_rb,7.0808e-02_rb,7.9593e-04_rb/)\n      kbo(:, 1,37, 8) = (/ &\n     &6.1778e-02_rb,4.9350e-02_rb,3.4377e-02_rb,1.8481e-02_rb,2.8834e-04_rb/)\n      kbo(:, 2,37, 8) = (/ &\n     &8.5595e-02_rb,6.8343e-02_rb,4.7513e-02_rb,2.5474e-02_rb,3.5693e-04_rb/)\n      kbo(:, 3,37, 8) = (/ &\n     &1.1627e-01_rb,9.2744e-02_rb,6.4387e-02_rb,3.4481e-02_rb,4.3707e-04_rb/)\n      kbo(:, 4,37, 8) = (/ &\n     &1.5562e-01_rb,1.2411e-01_rb,8.6025e-02_rb,4.6007e-02_rb,5.2965e-04_rb/)\n      kbo(:, 5,37, 8) = (/ &\n     &2.0514e-01_rb,1.6357e-01_rb,1.1324e-01_rb,6.0461e-02_rb,6.3315e-04_rb/)\n      kbo(:, 1,38, 8) = (/ &\n     &5.0881e-02_rb,4.0678e-02_rb,2.8356e-02_rb,1.5247e-02_rb,2.2603e-04_rb/)\n      kbo(:, 2,38, 8) = (/ &\n     &7.1115e-02_rb,5.6873e-02_rb,3.9548e-02_rb,2.1211e-02_rb,2.8054e-04_rb/)\n      kbo(:, 3,38, 8) = (/ &\n     &9.7490e-02_rb,7.7896e-02_rb,5.4103e-02_rb,2.8959e-02_rb,3.4399e-04_rb/)\n      kbo(:, 4,38, 8) = (/ &\n     &1.3157e-01_rb,1.0506e-01_rb,7.2849e-02_rb,3.8945e-02_rb,4.1860e-04_rb/)\n      kbo(:, 5,38, 8) = (/ &\n     &1.7483e-01_rb,1.3966e-01_rb,9.6758e-02_rb,5.1645e-02_rb,5.0365e-04_rb/)\n      kbo(:, 1,39, 8) = (/ &\n     &4.1872e-02_rb,3.3548e-02_rb,2.3398e-02_rb,1.2576e-02_rb,1.7614e-04_rb/)\n      kbo(:, 2,39, 8) = (/ &\n     &5.9094e-02_rb,4.7316e-02_rb,3.2924e-02_rb,1.7662e-02_rb,2.1952e-04_rb/)\n      kbo(:, 3,39, 8) = (/ &\n     &8.1814e-02_rb,6.5458e-02_rb,4.5468e-02_rb,2.4343e-02_rb,2.7005e-04_rb/)\n      kbo(:, 4,39, 8) = (/ &\n     &1.1129e-01_rb,8.9026e-02_rb,6.1776e-02_rb,3.3031e-02_rb,3.3030e-04_rb/)\n      kbo(:, 5,39, 8) = (/ &\n     &1.4922e-01_rb,1.1944e-01_rb,8.2784e-02_rb,4.4132e-02_rb,4.0030e-04_rb/)\n      kbo(:, 1,40, 8) = (/ &\n     &3.3647e-02_rb,2.6996e-02_rb,1.8830e-02_rb,1.0123e-02_rb,1.3664e-04_rb/)\n      kbo(:, 2,40, 8) = (/ &\n     &4.8077e-02_rb,3.8535e-02_rb,2.6836e-02_rb,1.4394e-02_rb,1.7115e-04_rb/)\n      kbo(:, 3,40, 8) = (/ &\n     &6.7356e-02_rb,5.3948e-02_rb,3.7498e-02_rb,2.0063e-02_rb,2.1194e-04_rb/)\n      kbo(:, 4,40, 8) = (/ &\n     &9.2612e-02_rb,7.4161e-02_rb,5.1473e-02_rb,2.7514e-02_rb,2.6017e-04_rb/)\n      kbo(:, 5,40, 8) = (/ &\n     &1.2534e-01_rb,1.0040e-01_rb,6.9623e-02_rb,3.7148e-02_rb,3.1694e-04_rb/)\n      kbo(:, 1,41, 8) = (/ &\n     &2.6919e-02_rb,2.1625e-02_rb,1.5091e-02_rb,8.1073e-03_rb,1.0569e-04_rb/)\n      kbo(:, 2,41, 8) = (/ &\n     &3.8959e-02_rb,3.1258e-02_rb,2.1769e-02_rb,1.1674e-02_rb,1.3335e-04_rb/)\n      kbo(:, 3,41, 8) = (/ &\n     &5.5227e-02_rb,4.4304e-02_rb,3.0810e-02_rb,1.6485e-02_rb,1.6620e-04_rb/)\n      kbo(:, 4,41, 8) = (/ &\n     &7.6819e-02_rb,6.1609e-02_rb,4.2770e-02_rb,2.2843e-02_rb,2.0484e-04_rb/)\n      kbo(:, 5,41, 8) = (/ &\n     &1.0504e-01_rb,8.4290e-02_rb,5.8439e-02_rb,3.1171e-02_rb,2.5031e-04_rb/)\n      kbo(:, 1,42, 8) = (/ &\n     &2.1470e-02_rb,1.7281e-02_rb,1.2058e-02_rb,6.4788e-03_rb,8.1238e-05_rb/)\n      kbo(:, 2,42, 8) = (/ &\n     &3.1494e-02_rb,2.5316e-02_rb,1.7631e-02_rb,9.4523e-03_rb,1.0344e-04_rb/)\n      kbo(:, 3,42, 8) = (/ &\n     &4.5222e-02_rb,3.6333e-02_rb,2.5262e-02_rb,1.3522e-02_rb,1.2977e-04_rb/)\n      kbo(:, 4,42, 8) = (/ &\n     &6.3644e-02_rb,5.1128e-02_rb,3.5506e-02_rb,1.8951e-02_rb,1.6105e-04_rb/)\n      kbo(:, 5,42, 8) = (/ &\n     &8.7974e-02_rb,7.0671e-02_rb,4.9043e-02_rb,2.6143e-02_rb,1.9719e-04_rb/)\n      kbo(:, 1,43, 8) = (/ &\n     &1.6861e-02_rb,1.3590e-02_rb,9.4853e-03_rb,5.0945e-03_rb,6.1844e-05_rb/)\n      kbo(:, 2,43, 8) = (/ &\n     &2.5102e-02_rb,2.0210e-02_rb,1.4080e-02_rb,7.5450e-03_rb,7.9573e-05_rb/)\n      kbo(:, 3,43, 8) = (/ &\n     &3.6570e-02_rb,2.9430e-02_rb,2.0473e-02_rb,1.0954e-02_rb,1.0063e-04_rb/)\n      kbo(:, 4,43, 8) = (/ &\n     &5.2231e-02_rb,4.1980e-02_rb,2.9163e-02_rb,1.5562e-02_rb,1.2552e-04_rb/)\n      kbo(:, 5,43, 8) = (/ &\n     &7.3055e-02_rb,5.8741e-02_rb,4.0761e-02_rb,2.1719e-02_rb,1.5491e-04_rb/)\n      kbo(:, 1,44, 8) = (/ &\n     &1.3112e-02_rb,1.0583e-02_rb,7.3867e-03_rb,3.9656e-03_rb,4.6708e-05_rb/)\n      kbo(:, 2,44, 8) = (/ &\n     &1.9838e-02_rb,1.5995e-02_rb,1.1144e-02_rb,5.9703e-03_rb,6.0776e-05_rb/)\n      kbo(:, 3,44, 8) = (/ &\n     &2.9345e-02_rb,2.3649e-02_rb,1.6458e-02_rb,8.7984e-03_rb,7.7487e-05_rb/)\n      kbo(:, 4,44, 8) = (/ &\n     &4.2542e-02_rb,3.4237e-02_rb,2.3782e-02_rb,1.2696e-02_rb,9.7391e-05_rb/)\n      kbo(:, 5,44, 8) = (/ &\n     &6.0327e-02_rb,4.8544e-02_rb,3.3677e-02_rb,1.7934e-02_rb,1.2115e-04_rb/)\n      kbo(:, 1,45, 8) = (/ &\n     &1.0146e-02_rb,8.1985e-03_rb,5.7225e-03_rb,3.0712e-03_rb,3.5068e-05_rb/)\n      kbo(:, 2,45, 8) = (/ &\n     &1.5607e-02_rb,1.2601e-02_rb,8.7806e-03_rb,4.7019e-03_rb,4.6144e-05_rb/)\n      kbo(:, 3,45, 8) = (/ &\n     &2.3451e-02_rb,1.8930e-02_rb,1.3177e-02_rb,7.0434e-03_rb,5.9457e-05_rb/)\n      kbo(:, 4,45, 8) = (/ &\n     &3.4514e-02_rb,2.7825e-02_rb,1.9327e-02_rb,1.0311e-02_rb,7.5434e-05_rb/)\n      kbo(:, 5,45, 8) = (/ &\n     &4.9675e-02_rb,4.0043e-02_rb,2.7784e-02_rb,1.4786e-02_rb,9.4540e-05_rb/)\n      kbo(:, 1,46, 8) = (/ &\n     &7.7351e-03_rb,6.2590e-03_rb,4.3712e-03_rb,2.3470e-03_rb,2.6024e-05_rb/)\n      kbo(:, 2,46, 8) = (/ &\n     &1.2117e-02_rb,9.8019e-03_rb,6.8312e-03_rb,3.6581e-03_rb,3.4737e-05_rb/)\n      kbo(:, 3,46, 8) = (/ &\n     &1.8521e-02_rb,1.4972e-02_rb,1.0423e-02_rb,5.5707e-03_rb,4.5227e-05_rb/)\n      kbo(:, 4,46, 8) = (/ &\n     &2.7718e-02_rb,2.2376e-02_rb,1.5549e-02_rb,8.2942e-03_rb,5.8064e-05_rb/)\n      kbo(:, 5,46, 8) = (/ &\n     &4.0521e-02_rb,3.2720e-02_rb,2.2708e-02_rb,1.2084e-02_rb,7.3480e-05_rb/)\n      kbo(:, 1,47, 8) = (/ &\n     &5.7592e-03_rb,4.6672e-03_rb,3.2593e-03_rb,1.7501e-03_rb,1.9095e-05_rb/)\n      kbo(:, 2,47, 8) = (/ &\n     &9.2060e-03_rb,7.4576e-03_rb,5.1997e-03_rb,2.7848e-03_rb,2.5839e-05_rb/)\n      kbo(:, 3,47, 8) = (/ &\n     &1.4346e-02_rb,1.1614e-02_rb,8.0835e-03_rb,4.3208e-03_rb,3.4203e-05_rb/)\n      kbo(:, 4,47, 8) = (/ &\n     &2.1845e-02_rb,1.7678e-02_rb,1.2284e-02_rb,6.5493e-03_rb,4.4407e-05_rb/)\n      kbo(:, 5,47, 8) = (/ &\n     &3.2496e-02_rb,2.6280e-02_rb,1.8234e-02_rb,9.7018e-03_rb,5.6773e-05_rb/)\n      kbo(:, 1,48, 8) = (/ &\n     &4.2511e-03_rb,3.4498e-03_rb,2.4093e-03_rb,1.2936e-03_rb,1.3859e-05_rb/)\n      kbo(:, 2,48, 8) = (/ &\n     &6.9347e-03_rb,5.6254e-03_rb,3.9226e-03_rb,2.1019e-03_rb,1.9117e-05_rb/)\n      kbo(:, 3,48, 8) = (/ &\n     &1.1018e-02_rb,8.9390e-03_rb,6.2242e-03_rb,3.3284e-03_rb,2.5648e-05_rb/)\n      kbo(:, 4,48, 8) = (/ &\n     &1.7113e-02_rb,1.3870e-02_rb,9.6439e-03_rb,5.1401e-03_rb,3.3736e-05_rb/)\n      kbo(:, 5,48, 8) = (/ &\n     &2.5919e-02_rb,2.1005e-02_rb,1.4575e-02_rb,7.7539e-03_rb,4.3617e-05_rb/)\n      kbo(:, 1,49, 8) = (/ &\n     &3.1098e-03_rb,2.5273e-03_rb,1.7645e-03_rb,9.4708e-04_rb,9.9370e-06_rb/)\n      kbo(:, 2,49, 8) = (/ &\n     &5.1784e-03_rb,4.2068e-03_rb,2.9339e-03_rb,1.5725e-03_rb,1.3987e-05_rb/)\n      kbo(:, 3,49, 8) = (/ &\n     &8.3947e-03_rb,6.8228e-03_rb,4.7538e-03_rb,2.5418e-03_rb,1.9085e-05_rb/)\n      kbo(:, 4,49, 8) = (/ &\n     &1.3293e-02_rb,1.0799e-02_rb,7.5113e-03_rb,4.0058e-03_rb,2.5451e-05_rb/)\n      kbo(:, 5,49, 8) = (/ &\n     &2.0521e-02_rb,1.6668e-02_rb,1.1574e-02_rb,6.1522e-03_rb,3.3363e-05_rb/)\n      kbo(:, 1,50, 8) = (/ &\n     &2.2918e-03_rb,1.8636e-03_rb,1.3008e-03_rb,6.9789e-04_rb,7.1979e-06_rb/)\n      kbo(:, 2,50, 8) = (/ &\n     &3.8913e-03_rb,3.1670e-03_rb,2.2089e-03_rb,1.1842e-03_rb,1.0331e-05_rb/)\n      kbo(:, 3,50, 8) = (/ &\n     &6.4390e-03_rb,5.2441e-03_rb,3.6531e-03_rb,1.9538e-03_rb,1.4344e-05_rb/)\n      kbo(:, 4,50, 8) = (/ &\n     &1.0397e-02_rb,8.4649e-03_rb,5.8892e-03_rb,3.1423e-03_rb,1.9397e-05_rb/)\n      kbo(:, 5,50, 8) = (/ &\n     &1.6371e-02_rb,1.3317e-02_rb,9.2504e-03_rb,4.9185e-03_rb,2.5741e-05_rb/)\n      kbo(:, 1,51, 8) = (/ &\n     &1.6928e-03_rb,1.3767e-03_rb,9.6023e-04_rb,5.1382e-04_rb,5.2246e-06_rb/)\n      kbo(:, 2,51, 8) = (/ &\n     &2.9272e-03_rb,2.3839e-03_rb,1.6628e-03_rb,8.9103e-04_rb,7.6388e-06_rb/)\n      kbo(:, 3,51, 8) = (/ &\n     &4.9429e-03_rb,4.0319e-03_rb,2.8087e-03_rb,1.5020e-03_rb,1.0781e-05_rb/)\n      kbo(:, 4,51, 8) = (/ &\n     &8.1364e-03_rb,6.6389e-03_rb,4.6188e-03_rb,2.4654e-03_rb,1.4827e-05_rb/)\n      kbo(:, 5,51, 8) = (/ &\n     &1.3068e-02_rb,1.0656e-02_rb,7.4020e-03_rb,3.9372e-03_rb,1.9921e-05_rb/)\n      kbo(:, 1,52, 8) = (/ &\n     &1.2399e-03_rb,1.0091e-03_rb,7.0357e-04_rb,3.7650e-04_rb,3.7522e-06_rb/)\n      kbo(:, 2,52, 8) = (/ &\n     &2.1899e-03_rb,1.7829e-03_rb,1.2430e-03_rb,6.6579e-04_rb,5.6100e-06_rb/)\n      kbo(:, 3,52, 8) = (/ &\n     &3.7665e-03_rb,3.0795e-03_rb,2.1447e-03_rb,1.1464e-03_rb,8.0632e-06_rb/)\n      kbo(:, 4,52, 8) = (/ &\n     &6.3261e-03_rb,5.1729e-03_rb,3.5994e-03_rb,1.9224e-03_rb,1.1265e-05_rb/)\n      kbo(:, 5,52, 8) = (/ &\n     &1.0363e-02_rb,8.4710e-03_rb,5.8842e-03_rb,3.1302e-03_rb,1.5370e-05_rb/)\n      kbo(:, 1,53, 8) = (/ &\n     &9.0216e-04_rb,7.3408e-04_rb,5.1164e-04_rb,2.7340e-04_rb,2.6590e-06_rb/)\n      kbo(:, 2,53, 8) = (/ &\n     &1.6262e-03_rb,1.3270e-03_rb,9.2425e-04_rb,4.9425e-04_rb,4.0810e-06_rb/)\n      kbo(:, 3,53, 8) = (/ &\n     &2.8513e-03_rb,2.3327e-03_rb,1.6237e-03_rb,8.6789e-04_rb,5.9668e-06_rb/)\n      kbo(:, 4,53, 8) = (/ &\n     &4.8843e-03_rb,4.0007e-03_rb,2.7846e-03_rb,1.4866e-03_rb,8.4879e-06_rb/)\n      kbo(:, 5,53, 8) = (/ &\n     &8.1619e-03_rb,6.6885e-03_rb,4.6478e-03_rb,2.4735e-03_rb,1.1744e-05_rb/)\n      kbo(:, 1,54, 8) = (/ &\n     &6.6939e-04_rb,5.4497e-04_rb,3.7910e-04_rb,2.0225e-04_rb,1.9239e-06_rb/)\n      kbo(:, 2,54, 8) = (/ &\n     &1.2278e-03_rb,1.0030e-03_rb,6.9836e-04_rb,3.7314e-04_rb,3.0194e-06_rb/)\n      kbo(:, 3,54, 8) = (/ &\n     &2.1984e-03_rb,1.7996e-03_rb,1.2511e-03_rb,6.6777e-04_rb,4.5056e-06_rb/)\n      kbo(:, 4,54, 8) = (/ &\n     &3.8331e-03_rb,3.1457e-03_rb,2.1886e-03_rb,1.1687e-03_rb,6.4964e-06_rb/)\n      kbo(:, 5,54, 8) = (/ &\n     &6.5432e-03_rb,5.3709e-03_rb,3.7307e-03_rb,1.9859e-03_rb,9.1107e-06_rb/)\n      kbo(:, 1,55, 8) = (/ &\n     &5.0111e-04_rb,4.0755e-04_rb,2.8321e-04_rb,1.5081e-04_rb,1.4025e-06_rb/)\n      kbo(:, 2,55, 8) = (/ &\n     &9.3502e-04_rb,7.6365e-04_rb,5.3113e-04_rb,2.8338e-04_rb,2.2498e-06_rb/)\n      kbo(:, 3,55, 8) = (/ &\n     &1.7077e-03_rb,1.3993e-03_rb,9.7261e-04_rb,5.1891e-04_rb,3.4289e-06_rb/)\n      kbo(:, 4,55, 8) = (/ &\n     &3.0342e-03_rb,2.4941e-03_rb,1.7338e-03_rb,9.2454e-04_rb,5.0131e-06_rb/)\n      kbo(:, 5,55, 8) = (/ &\n     &5.2834e-03_rb,4.3447e-03_rb,3.0182e-03_rb,1.6053e-03_rb,7.1210e-06_rb/)\n      kbo(:, 1,56, 8) = (/ &\n     &3.7616e-04_rb,3.0519e-04_rb,2.1170e-04_rb,1.1247e-04_rb,1.0140e-06_rb/)\n      kbo(:, 2,56, 8) = (/ &\n     &7.1281e-04_rb,5.8173e-04_rb,4.0420e-04_rb,2.1505e-04_rb,1.6673e-06_rb/)\n      kbo(:, 3,56, 8) = (/ &\n     &1.3229e-03_rb,1.0846e-03_rb,7.5367e-04_rb,4.0126e-04_rb,2.5921e-06_rb/)\n      kbo(:, 4,56, 8) = (/ &\n     &2.4034e-03_rb,1.9754e-03_rb,1.3714e-03_rb,7.3027e-04_rb,3.8577e-06_rb/)\n      kbo(:, 5,56, 8) = (/ &\n     &4.2589e-03_rb,3.5089e-03_rb,2.4364e-03_rb,1.2956e-03_rb,5.5656e-06_rb/)\n      kbo(:, 1,57, 8) = (/ &\n     &2.8163e-04_rb,2.2851e-04_rb,1.5825e-04_rb,8.3801e-05_rb,7.2920e-07_rb/)\n      kbo(:, 2,57, 8) = (/ &\n     &5.4316e-04_rb,4.4288e-04_rb,3.0736e-04_rb,1.6324e-04_rb,1.2275e-06_rb/)\n      kbo(:, 3,57, 8) = (/ &\n     &1.0242e-03_rb,8.3907e-04_rb,5.8250e-04_rb,3.0984e-04_rb,1.9504e-06_rb/)\n      kbo(:, 4,57, 8) = (/ &\n     &1.8977e-03_rb,1.5630e-03_rb,1.0848e-03_rb,5.7691e-04_rb,2.9526e-06_rb/)\n      kbo(:, 5,57, 8) = (/ &\n     &3.4290e-03_rb,2.8298e-03_rb,1.9639e-03_rb,1.0437e-03_rb,4.3203e-06_rb/)\n      kbo(:, 1,58, 8) = (/ &\n     &1.0299e-04_rb,9.5896e-05_rb,7.7844e-05_rb,4.9788e-05_rb,5.2623e-07_rb/)\n      kbo(:, 2,58, 8) = (/ &\n     &2.0307e-04_rb,1.9013e-04_rb,1.5450e-04_rb,9.9035e-05_rb,9.0616e-07_rb/)\n      kbo(:, 3,58, 8) = (/ &\n     &3.8839e-04_rb,3.6515e-04_rb,2.9695e-04_rb,1.9078e-04_rb,1.4737e-06_rb/)\n      kbo(:, 4,58, 8) = (/ &\n     &7.3294e-04_rb,6.9303e-04_rb,5.6426e-04_rb,3.6255e-04_rb,2.2710e-06_rb/)\n      kbo(:, 5,58, 8) = (/ &\n     &1.3532e-03_rb,1.2806e-03_rb,1.0426e-03_rb,6.7017e-04_rb,3.3698e-06_rb/)\n      kbo(:, 1,59, 8) = (/ &\n     &8.5450e-05_rb,7.9848e-05_rb,6.5073e-05_rb,4.1875e-05_rb,4.3253e-07_rb/)\n      kbo(:, 2,59, 8) = (/ &\n     &1.7170e-04_rb,1.6133e-04_rb,1.3170e-04_rb,8.4866e-05_rb,7.5223e-07_rb/)\n      kbo(:, 3,59, 8) = (/ &\n     &3.3324e-04_rb,3.1480e-04_rb,2.5716e-04_rb,1.6610e-04_rb,1.2329e-06_rb/)\n      kbo(:, 4,59, 8) = (/ &\n     &6.4000e-04_rb,6.0786e-04_rb,4.9691e-04_rb,3.2112e-04_rb,1.9165e-06_rb/)\n      kbo(:, 5,59, 8) = (/ &\n     &1.2020e-03_rb,1.1456e-03_rb,9.3584e-04_rb,6.0398e-04_rb,2.8638e-06_rb/)\n      kbo(:, 1,13, 9) = (/ &\n     &7.4699e+00_rb,5.6062e+00_rb,3.7650e+00_rb,1.9560e+00_rb,8.5273e-02_rb/)\n      kbo(:, 2,13, 9) = (/ &\n     &1.0680e+01_rb,8.0165e+00_rb,5.3854e+00_rb,2.8036e+00_rb,1.0411e-01_rb/)\n      kbo(:, 3,13, 9) = (/ &\n     &1.4623e+01_rb,1.0976e+01_rb,7.3752e+00_rb,3.8391e+00_rb,1.2390e-01_rb/)\n      kbo(:, 4,13, 9) = (/ &\n     &1.9264e+01_rb,1.4459e+01_rb,9.7226e+00_rb,5.0654e+00_rb,1.4616e-01_rb/)\n      kbo(:, 5,13, 9) = (/ &\n     &2.4629e+01_rb,1.8491e+01_rb,1.2437e+01_rb,6.4792e+00_rb,1.7014e-01_rb/)\n      kbo(:, 1,14, 9) = (/ &\n     &6.8938e+00_rb,5.1783e+00_rb,3.4875e+00_rb,1.8264e+00_rb,7.6714e-02_rb/)\n      kbo(:, 2,14, 9) = (/ &\n     &9.8527e+00_rb,7.4006e+00_rb,4.9851e+00_rb,2.6106e+00_rb,9.2077e-02_rb/)\n      kbo(:, 3,14, 9) = (/ &\n     &1.3464e+01_rb,1.0115e+01_rb,6.8188e+00_rb,3.5707e+00_rb,1.0926e-01_rb/)\n      kbo(:, 4,14, 9) = (/ &\n     &1.7717e+01_rb,1.3311e+01_rb,8.9749e+00_rb,4.7000e+00_rb,1.2815e-01_rb/)\n      kbo(:, 5,14, 9) = (/ &\n     &2.2681e+01_rb,1.7041e+01_rb,1.1492e+01_rb,6.0178e+00_rb,1.4885e-01_rb/)\n      kbo(:, 1,15, 9) = (/ &\n     &6.1047e+00_rb,4.5908e+00_rb,3.1074e+00_rb,1.6392e+00_rb,6.2768e-02_rb/)\n      kbo(:, 2,15, 9) = (/ &\n     &8.7019e+00_rb,6.5442e+00_rb,4.4301e+00_rb,2.3356e+00_rb,7.5768e-02_rb/)\n      kbo(:, 3,15, 9) = (/ &\n     &1.1847e+01_rb,8.9091e+00_rb,6.0354e+00_rb,3.1840e+00_rb,9.0152e-02_rb/)\n      kbo(:, 4,15, 9) = (/ &\n     &1.5627e+01_rb,1.1753e+01_rb,7.9592e+00_rb,4.1918e+00_rb,1.0596e-01_rb/)\n      kbo(:, 5,15, 9) = (/ &\n     &2.0065e+01_rb,1.5096e+01_rb,1.0229e+01_rb,5.3867e+00_rb,1.2348e-01_rb/)\n      kbo(:, 1,16, 9) = (/ &\n     &5.2710e+00_rb,3.9706e+00_rb,2.7052e+00_rb,1.4383e+00_rb,5.0640e-02_rb/)\n      kbo(:, 2,16, 9) = (/ &\n     &7.4843e+00_rb,5.6386e+00_rb,3.8435e+00_rb,2.0428e+00_rb,6.0690e-02_rb/)\n      kbo(:, 3,16, 9) = (/ &\n     &1.0203e+01_rb,7.6869e+00_rb,5.2380e+00_rb,2.7809e+00_rb,7.2017e-02_rb/)\n      kbo(:, 4,16, 9) = (/ &\n     &1.3478e+01_rb,1.0155e+01_rb,6.9170e+00_rb,3.6687e+00_rb,8.5243e-02_rb/)\n      kbo(:, 5,16, 9) = (/ &\n     &1.7365e+01_rb,1.3088e+01_rb,8.9123e+00_rb,4.7182e+00_rb,9.9040e-02_rb/)\n      kbo(:, 1,17, 9) = (/ &\n     &4.4902e+00_rb,3.3911e+00_rb,2.3244e+00_rb,1.2481e+00_rb,4.0283e-02_rb/)\n      kbo(:, 2,17, 9) = (/ &\n     &6.3739e+00_rb,4.8152e+00_rb,3.3005e+00_rb,1.7693e+00_rb,4.9025e-02_rb/)\n      kbo(:, 3,17, 9) = (/ &\n     &8.7028e+00_rb,6.5740e+00_rb,4.5022e+00_rb,2.4070e+00_rb,5.9283e-02_rb/)\n      kbo(:, 4,17, 9) = (/ &\n     &1.1530e+01_rb,8.7139e+00_rb,5.9683e+00_rb,3.1839e+00_rb,7.0217e-02_rb/)\n      kbo(:, 5,17, 9) = (/ &\n     &1.4910e+01_rb,1.1266e+01_rb,7.7058e+00_rb,4.0973e+00_rb,8.1092e-02_rb/)\n      kbo(:, 1,18, 9) = (/ &\n     &3.7512e+00_rb,2.8459e+00_rb,1.9612e+00_rb,1.0622e+00_rb,3.4382e-02_rb/)\n      kbo(:, 2,18, 9) = (/ &\n     &5.3265e+00_rb,4.0412e+00_rb,2.7835e+00_rb,1.5026e+00_rb,4.2209e-02_rb/)\n      kbo(:, 3,18, 9) = (/ &\n     &7.2937e+00_rb,5.5341e+00_rb,3.8093e+00_rb,2.0485e+00_rb,5.1165e-02_rb/)\n      kbo(:, 4,18, 9) = (/ &\n     &9.7044e+00_rb,7.3625e+00_rb,5.0637e+00_rb,2.7136e+00_rb,6.0247e-02_rb/)\n      kbo(:, 5,18, 9) = (/ &\n     &1.2597e+01_rb,9.5561e+00_rb,6.5653e+00_rb,3.5052e+00_rb,7.0721e-02_rb/)\n      kbo(:, 1,19, 9) = (/ &\n     &3.1949e+00_rb,2.4358e+00_rb,1.6862e+00_rb,9.1523e-01_rb,2.9755e-02_rb/)\n      kbo(:, 2,19, 9) = (/ &\n     &4.5382e+00_rb,3.4601e+00_rb,2.3940e+00_rb,1.2945e+00_rb,3.7026e-02_rb/)\n      kbo(:, 3,19, 9) = (/ &\n     &6.2344e+00_rb,4.7532e+00_rb,3.2851e+00_rb,1.7697e+00_rb,4.5045e-02_rb/)\n      kbo(:, 4,19, 9) = (/ &\n     &8.3349e+00_rb,6.3521e+00_rb,4.3827e+00_rb,2.3518e+00_rb,5.3532e-02_rb/)\n      kbo(:, 5,19, 9) = (/ &\n     &1.0858e+01_rb,8.2689e+00_rb,5.6978e+00_rb,3.0490e+00_rb,6.2338e-02_rb/)\n      kbo(:, 1,20, 9) = (/ &\n     &2.7983e+00_rb,2.1430e+00_rb,1.4907e+00_rb,8.0787e-01_rb,2.6638e-02_rb/)\n      kbo(:, 2,20, 9) = (/ &\n     &3.9801e+00_rb,3.0473e+00_rb,2.1167e+00_rb,1.1423e+00_rb,3.3344e-02_rb/)\n      kbo(:, 3,20, 9) = (/ &\n     &5.4854e+00_rb,4.1978e+00_rb,2.9095e+00_rb,1.5650e+00_rb,4.0067e-02_rb/)\n      kbo(:, 4,20, 9) = (/ &\n     &7.3522e+00_rb,5.6240e+00_rb,3.8910e+00_rb,2.0868e+00_rb,4.7603e-02_rb/)\n      kbo(:, 5,20, 9) = (/ &\n     &9.6006e+00_rb,7.3375e+00_rb,5.0662e+00_rb,2.7087e+00_rb,5.5504e-02_rb/)\n      kbo(:, 1,21, 9) = (/ &\n     &2.4723e+00_rb,1.9017e+00_rb,1.3269e+00_rb,7.1717e-01_rb,2.3842e-02_rb/)\n      kbo(:, 2,21, 9) = (/ &\n     &3.5234e+00_rb,2.7089e+00_rb,1.8854e+00_rb,1.0156e+00_rb,2.9423e-02_rb/)\n      kbo(:, 3,21, 9) = (/ &\n     &4.8624e+00_rb,3.7359e+00_rb,2.5948e+00_rb,1.3934e+00_rb,3.5538e-02_rb/)\n      kbo(:, 4,21, 9) = (/ &\n     &6.5245e+00_rb,5.0095e+00_rb,3.4715e+00_rb,1.8586e+00_rb,4.1992e-02_rb/)\n      kbo(:, 5,21, 9) = (/ &\n     &8.5269e+00_rb,6.5419e+00_rb,4.5264e+00_rb,2.4180e+00_rb,4.9380e-02_rb/)\n      kbo(:, 1,22, 9) = (/ &\n     &2.2453e+00_rb,1.7353e+00_rb,1.2110e+00_rb,6.5234e-01_rb,2.1295e-02_rb/)\n      kbo(:, 2,22, 9) = (/ &\n     &3.1933e+00_rb,2.4664e+00_rb,1.7176e+00_rb,9.2252e-01_rb,2.6174e-02_rb/)\n      kbo(:, 3,22, 9) = (/ &\n     &4.4012e+00_rb,3.3958e+00_rb,2.3595e+00_rb,1.2638e+00_rb,3.1657e-02_rb/)\n      kbo(:, 4,22, 9) = (/ &\n     &5.8834e+00_rb,4.5350e+00_rb,3.1467e+00_rb,1.6824e+00_rb,3.7644e-02_rb/)\n      kbo(:, 5,22, 9) = (/ &\n     &7.6501e+00_rb,5.8912e+00_rb,4.0828e+00_rb,2.1806e+00_rb,4.4263e-02_rb/)\n      kbo(:, 1,23, 9) = (/ &\n     &2.0571e+00_rb,1.5967e+00_rb,1.1115e+00_rb,5.9605e-01_rb,1.8827e-02_rb/)\n      kbo(:, 2,23, 9) = (/ &\n     &2.9057e+00_rb,2.2535e+00_rb,1.5681e+00_rb,8.3999e-01_rb,2.3337e-02_rb/)\n      kbo(:, 3,23, 9) = (/ &\n     &3.9800e+00_rb,3.0833e+00_rb,2.1434e+00_rb,1.1464e+00_rb,2.8190e-02_rb/)\n      kbo(:, 4,23, 9) = (/ &\n     &5.2885e+00_rb,4.0922e+00_rb,2.8421e+00_rb,1.5182e+00_rb,3.3828e-02_rb/)\n      kbo(:, 5,23, 9) = (/ &\n     &6.8471e+00_rb,5.2918e+00_rb,3.6724e+00_rb,1.9594e+00_rb,3.9956e-02_rb/)\n      kbo(:, 1,24, 9) = (/ &\n     &1.9070e+00_rb,1.4857e+00_rb,1.0329e+00_rb,5.5181e-01_rb,1.6663e-02_rb/)\n      kbo(:, 2,24, 9) = (/ &\n     &2.6677e+00_rb,2.0773e+00_rb,1.4448e+00_rb,7.7214e-01_rb,2.0662e-02_rb/)\n      kbo(:, 3,24, 9) = (/ &\n     &3.6252e+00_rb,2.8187e+00_rb,1.9595e+00_rb,1.0463e+00_rb,2.5179e-02_rb/)\n      kbo(:, 4,24, 9) = (/ &\n     &4.7921e+00_rb,3.7213e+00_rb,2.5847e+00_rb,1.3784e+00_rb,3.0300e-02_rb/)\n      kbo(:, 5,24, 9) = (/ &\n     &6.1875e+00_rb,4.7981e+00_rb,3.3299e+00_rb,1.7738e+00_rb,3.5858e-02_rb/)\n      kbo(:, 1,25, 9) = (/ &\n     &1.7679e+00_rb,1.3823e+00_rb,9.6005e-01_rb,5.1215e-01_rb,1.4756e-02_rb/)\n      kbo(:, 2,25, 9) = (/ &\n     &2.4506e+00_rb,1.9149e+00_rb,1.3310e+00_rb,7.1009e-01_rb,1.8413e-02_rb/)\n      kbo(:, 3,25, 9) = (/ &\n     &3.3092e+00_rb,2.5821e+00_rb,1.7930e+00_rb,9.5566e-01_rb,2.2613e-02_rb/)\n      kbo(:, 4,25, 9) = (/ &\n     &4.3581e+00_rb,3.3956e+00_rb,2.3561e+00_rb,1.2539e+00_rb,2.7407e-02_rb/)\n      kbo(:, 5,25, 9) = (/ &\n     &5.6148e+00_rb,4.3684e+00_rb,3.0296e+00_rb,1.6108e+00_rb,3.2730e-02_rb/)\n      kbo(:, 1,26, 9) = (/ &\n     &1.6550e+00_rb,1.2970e+00_rb,8.9910e-01_rb,4.7856e-01_rb,1.3235e-02_rb/)\n      kbo(:, 2,26, 9) = (/ &\n     &2.2724e+00_rb,1.7804e+00_rb,1.2348e+00_rb,6.5702e-01_rb,1.6632e-02_rb/)\n      kbo(:, 3,26, 9) = (/ &\n     &3.0501e+00_rb,2.3862e+00_rb,1.6545e+00_rb,8.7945e-01_rb,2.0602e-02_rb/)\n      kbo(:, 4,26, 9) = (/ &\n     &3.9998e+00_rb,3.1253e+00_rb,2.1658e+00_rb,1.1505e+00_rb,2.5120e-02_rb/)\n      kbo(:, 5,26, 9) = (/ &\n     &5.1417e+00_rb,4.0125e+00_rb,2.7805e+00_rb,1.4756e+00_rb,3.0188e-02_rb/)\n      kbo(:, 1,27, 9) = (/ &\n     &1.5517e+00_rb,1.2181e+00_rb,8.4303e-01_rb,4.4762e-01_rb,1.1922e-02_rb/)\n      kbo(:, 2,27, 9) = (/ &\n     &2.1187e+00_rb,1.6625e+00_rb,1.1508e+00_rb,6.1078e-01_rb,1.5090e-02_rb/)\n      kbo(:, 3,27, 9) = (/ &\n     &2.8285e+00_rb,2.2174e+00_rb,1.5344e+00_rb,8.1390e-01_rb,1.8733e-02_rb/)\n      kbo(:, 4,27, 9) = (/ &\n     &3.6946e+00_rb,2.8938e+00_rb,2.0026e+00_rb,1.0611e+00_rb,2.2964e-02_rb/)\n      kbo(:, 5,27, 9) = (/ &\n     &4.7297e+00_rb,3.7026e+00_rb,2.5639e+00_rb,1.3585e+00_rb,2.7799e-02_rb/)\n      kbo(:, 1,28, 9) = (/ &\n     &1.4557e+00_rb,1.1450e+00_rb,7.9124e-01_rb,4.1922e-01_rb,1.0671e-02_rb/)\n      kbo(:, 2,28, 9) = (/ &\n     &1.9807e+00_rb,1.5572e+00_rb,1.0762e+00_rb,5.7024e-01_rb,1.3585e-02_rb/)\n      kbo(:, 3,28, 9) = (/ &\n     &2.6353e+00_rb,2.0694e+00_rb,1.4297e+00_rb,7.5652e-01_rb,1.7012e-02_rb/)\n      kbo(:, 4,28, 9) = (/ &\n     &3.4268e+00_rb,2.6900e+00_rb,1.8600e+00_rb,9.8357e-01_rb,2.1005e-02_rb/)\n      kbo(:, 5,28, 9) = (/ &\n     &4.3754e+00_rb,3.4337e+00_rb,2.3745e+00_rb,1.2550e+00_rb,2.5556e-02_rb/)\n      kbo(:, 1,29, 9) = (/ &\n     &1.3575e+00_rb,1.0707e+00_rb,7.3899e-01_rb,3.9163e-01_rb,9.5187e-03_rb/)\n      kbo(:, 2,29, 9) = (/ &\n     &1.8443e+00_rb,1.4534e+00_rb,1.0029e+00_rb,5.3089e-01_rb,1.2207e-02_rb/)\n      kbo(:, 3,29, 9) = (/ &\n     &2.4443e+00_rb,1.9245e+00_rb,1.3293e+00_rb,7.0249e-01_rb,1.5292e-02_rb/)\n      kbo(:, 4,29, 9) = (/ &\n     &3.1715e+00_rb,2.4958e+00_rb,1.7237e+00_rb,9.1036e-01_rb,1.8851e-02_rb/)\n      kbo(:, 5,29, 9) = (/ &\n     &4.0410e+00_rb,3.1790e+00_rb,2.1964e+00_rb,1.1590e+00_rb,2.3121e-02_rb/)\n      kbo(:, 1,30, 9) = (/ &\n     &1.2615e+00_rb,9.9705e-01_rb,6.8810e-01_rb,3.6451e-01_rb,8.4241e-03_rb/)\n      kbo(:, 2,30, 9) = (/ &\n     &1.7102e+00_rb,1.3510e+00_rb,9.3203e-01_rb,4.9262e-01_rb,1.0769e-02_rb/)\n      kbo(:, 3,30, 9) = (/ &\n     &2.2602e+00_rb,1.7845e+00_rb,1.2315e+00_rb,6.5024e-01_rb,1.3569e-02_rb/)\n      kbo(:, 4,30, 9) = (/ &\n     &2.9275e+00_rb,2.3103e+00_rb,1.5947e+00_rb,8.4085e-01_rb,1.6868e-02_rb/)\n      kbo(:, 5,30, 9) = (/ &\n     &3.7272e+00_rb,2.9401e+00_rb,2.0301e+00_rb,1.0701e+00_rb,2.0720e-02_rb/)\n      kbo(:, 1,31, 9) = (/ &\n     &1.1628e+00_rb,9.2130e-01_rb,6.3548e-01_rb,3.3629e-01_rb,7.3212e-03_rb/)\n      kbo(:, 2,31, 9) = (/ &\n     &1.5710e+00_rb,1.2442e+00_rb,8.5840e-01_rb,4.5341e-01_rb,9.4089e-03_rb/)\n      kbo(:, 3,31, 9) = (/ &\n     &2.0741e+00_rb,1.6418e+00_rb,1.1326e+00_rb,5.9743e-01_rb,1.1908e-02_rb/)\n      kbo(:, 4,31, 9) = (/ &\n     &2.6838e+00_rb,2.1236e+00_rb,1.4650e+00_rb,7.7246e-01_rb,1.4841e-02_rb/)\n      kbo(:, 5,31, 9) = (/ &\n     &3.4158e+00_rb,2.7036e+00_rb,1.8662e+00_rb,9.8360e-01_rb,1.8280e-02_rb/)\n      kbo(:, 1,32, 9) = (/ &\n     &1.0770e+00_rb,8.5530e-01_rb,5.8998e-01_rb,3.1205e-01_rb,6.3886e-03_rb/)\n      kbo(:, 2,32, 9) = (/ &\n     &1.4521e+00_rb,1.1529e+00_rb,7.9467e-01_rb,4.1942e-01_rb,8.2479e-03_rb/)\n      kbo(:, 3,32, 9) = (/ &\n     &1.9141e+00_rb,1.5187e+00_rb,1.0473e+00_rb,5.5229e-01_rb,1.0468e-02_rb/)\n      kbo(:, 4,32, 9) = (/ &\n     &2.4773e+00_rb,1.9665e+00_rb,1.3565e+00_rb,7.1494e-01_rb,1.3077e-02_rb/)\n      kbo(:, 5,32, 9) = (/ &\n     &3.1536e+00_rb,2.5044e+00_rb,1.7279e+00_rb,9.1011e-01_rb,1.6196e-02_rb/)\n      kbo(:, 1,33, 9) = (/ &\n     &1.0004e+00_rb,7.9686e-01_rb,5.4943e-01_rb,2.9036e-01_rb,5.6169e-03_rb/)\n      kbo(:, 2,33, 9) = (/ &\n     &1.3472e+00_rb,1.0720e+00_rb,7.3887e-01_rb,3.9002e-01_rb,7.2464e-03_rb/)\n      kbo(:, 3,33, 9) = (/ &\n     &1.7767e+00_rb,1.4145e+00_rb,9.7493e-01_rb,5.1400e-01_rb,9.1682e-03_rb/)\n      kbo(:, 4,33, 9) = (/ &\n     &2.3006e+00_rb,1.8321e+00_rb,1.2634e+00_rb,6.6568e-01_rb,1.1493e-02_rb/)\n      kbo(:, 5,33, 9) = (/ &\n     &2.9306e+00_rb,2.3339e+00_rb,1.6102e+00_rb,8.4827e-01_rb,1.4147e-02_rb/)\n      kbo(:, 1,34, 9) = (/ &\n     &9.3256e-01_rb,7.4416e-01_rb,5.1264e-01_rb,2.7079e-01_rb,4.9465e-03_rb/)\n      kbo(:, 2,34, 9) = (/ &\n     &1.2561e+00_rb,1.0020e+00_rb,6.9034e-01_rb,3.6434e-01_rb,6.3960e-03_rb/)\n      kbo(:, 3,34, 9) = (/ &\n     &1.6587e+00_rb,1.3239e+00_rb,9.1206e-01_rb,4.8092e-01_rb,8.1576e-03_rb/)\n      kbo(:, 4,34, 9) = (/ &\n     &2.1501e+00_rb,1.7167e+00_rb,1.1837e+00_rb,6.2351e-01_rb,1.0194e-02_rb/)\n      kbo(:, 5,34, 9) = (/ &\n     &2.7413e+00_rb,2.1905e+00_rb,1.5115e+00_rb,7.9635e-01_rb,1.2542e-02_rb/)\n      kbo(:, 1,35, 9) = (/ &\n     &8.4840e-01_rb,6.7846e-01_rb,4.6725e-01_rb,2.4678e-01_rb,4.2581e-03_rb/)\n      kbo(:, 2,35, 9) = (/ &\n     &1.1466e+00_rb,9.1713e-01_rb,6.3179e-01_rb,3.3319e-01_rb,5.5317e-03_rb/)\n      kbo(:, 3,35, 9) = (/ &\n     &1.5185e+00_rb,1.2151e+00_rb,8.3727e-01_rb,4.4133e-01_rb,7.0625e-03_rb/)\n      kbo(:, 4,35, 9) = (/ &\n     &1.9737e+00_rb,1.5810e+00_rb,1.0899e+00_rb,5.7421e-01_rb,8.8571e-03_rb/)\n      kbo(:, 5,35, 9) = (/ &\n     &2.5262e+00_rb,2.0251e+00_rb,1.3975e+00_rb,7.3625e-01_rb,1.0897e-02_rb/)\n      kbo(:, 1,36, 9) = (/ &\n     &7.5165e-01_rb,6.0226e-01_rb,4.1465e-01_rb,2.1892e-01_rb,3.5512e-03_rb/)\n      kbo(:, 2,36, 9) = (/ &\n     &1.0210e+00_rb,8.1866e-01_rb,5.6371e-01_rb,2.9729e-01_rb,4.6496e-03_rb/)\n      kbo(:, 3,36, 9) = (/ &\n     &1.3584e+00_rb,1.0902e+00_rb,7.5109e-01_rb,3.9583e-01_rb,5.9580e-03_rb/)\n      kbo(:, 4,36, 9) = (/ &\n     &1.7752e+00_rb,1.4261e+00_rb,9.8305e-01_rb,5.1817e-01_rb,7.4947e-03_rb/)\n      kbo(:, 5,36, 9) = (/ &\n     &2.2842e+00_rb,1.8370e+00_rb,1.2679e+00_rb,6.6806e-01_rb,9.2616e-03_rb/)\n      kbo(:, 1,37, 9) = (/ &\n     &6.4071e-01_rb,5.1457e-01_rb,3.5423e-01_rb,1.8691e-01_rb,2.9273e-03_rb/)\n      kbo(:, 2,37, 9) = (/ &\n     &8.7819e-01_rb,7.0566e-01_rb,4.8576e-01_rb,2.5612e-01_rb,3.8482e-03_rb/)\n      kbo(:, 3,37, 9) = (/ &\n     &1.1781e+00_rb,9.4755e-01_rb,6.5255e-01_rb,3.4395e-01_rb,4.9507e-03_rb/)\n      kbo(:, 4,37, 9) = (/ &\n     &1.5513e+00_rb,1.2498e+00_rb,8.6132e-01_rb,4.5404e-01_rb,6.2679e-03_rb/)\n      kbo(:, 5,37, 9) = (/ &\n     &2.0117e+00_rb,1.6227e+00_rb,1.1201e+00_rb,5.9042e-01_rb,7.7688e-03_rb/)\n      kbo(:, 1,38, 9) = (/ &\n     &5.4507e-01_rb,4.3885e-01_rb,3.0197e-01_rb,1.5934e-01_rb,2.3915e-03_rb/)\n      kbo(:, 2,38, 9) = (/ &\n     &7.5435e-01_rb,6.0772e-01_rb,4.1826e-01_rb,2.2053e-01_rb,3.1638e-03_rb/)\n      kbo(:, 3,38, 9) = (/ &\n     &1.0211e+00_rb,8.2323e-01_rb,5.6695e-01_rb,2.9883e-01_rb,4.0903e-03_rb/)\n      kbo(:, 4,38, 9) = (/ &\n     &1.3557e+00_rb,1.0950e+00_rb,7.5476e-01_rb,3.9799e-01_rb,5.2077e-03_rb/)\n      kbo(:, 5,38, 9) = (/ &\n     &1.7730e+00_rb,1.4345e+00_rb,9.9017e-01_rb,5.2203e-01_rb,6.5004e-03_rb/)\n      kbo(:, 1,39, 9) = (/ &\n     &4.6353e-01_rb,3.7406e-01_rb,2.5754e-01_rb,1.3588e-01_rb,1.9343e-03_rb/)\n      kbo(:, 2,39, 9) = (/ &\n     &6.4812e-01_rb,5.2360e-01_rb,3.6039e-01_rb,1.9002e-01_rb,2.5847e-03_rb/)\n      kbo(:, 3,39, 9) = (/ &\n     &8.8607e-01_rb,7.1665e-01_rb,4.9365e-01_rb,2.6013e-01_rb,3.3630e-03_rb/)\n      kbo(:, 4,39, 9) = (/ &\n     &1.1877e+00_rb,9.6199e-01_rb,6.6338e-01_rb,3.4986e-01_rb,4.2963e-03_rb/)\n      kbo(:, 5,39, 9) = (/ &\n     &1.5671e+00_rb,1.2712e+00_rb,8.7761e-01_rb,4.6286e-01_rb,5.3839e-03_rb/)\n      kbo(:, 1,40, 9) = (/ &\n     &3.8448e-01_rb,3.1107e-01_rb,2.1410e-01_rb,1.1297e-01_rb,1.5568e-03_rb/)\n      kbo(:, 2,40, 9) = (/ &\n     &5.4501e-01_rb,4.4126e-01_rb,3.0380e-01_rb,1.6009e-01_rb,2.1042e-03_rb/)\n      kbo(:, 3,40, 9) = (/ &\n     &7.5403e-01_rb,6.1132e-01_rb,4.2098e-01_rb,2.2180e-01_rb,2.7494e-03_rb/)\n      kbo(:, 4,40, 9) = (/ &\n     &1.0220e+00_rb,8.2995e-01_rb,5.7215e-01_rb,3.0165e-01_rb,3.5443e-03_rb/)\n      kbo(:, 5,40, 9) = (/ &\n     &1.3627e+00_rb,1.1080e+00_rb,7.6492e-01_rb,4.0348e-01_rb,4.4643e-03_rb/)\n      kbo(:, 1,41, 9) = (/ &\n     &3.1745e-01_rb,2.5733e-01_rb,1.7713e-01_rb,9.3436e-02_rb,1.2472e-03_rb/)\n      kbo(:, 2,41, 9) = (/ &\n     &4.5638e-01_rb,3.7042e-01_rb,2.5491e-01_rb,1.3436e-01_rb,1.6993e-03_rb/)\n      kbo(:, 3,41, 9) = (/ &\n     &6.3982e-01_rb,5.1972e-01_rb,3.5784e-01_rb,1.8851e-01_rb,2.2393e-03_rb/)\n      kbo(:, 4,41, 9) = (/ &\n     &8.7763e-01_rb,7.1397e-01_rb,4.9232e-01_rb,2.5948e-01_rb,2.9086e-03_rb/)\n      kbo(:, 5,41, 9) = (/ &\n     &1.1829e+00_rb,9.6420e-01_rb,6.6569e-01_rb,3.5114e-01_rb,3.6948e-03_rb/)\n      kbo(:, 1,42, 9) = (/ &\n     &2.6148e-01_rb,2.1244e-01_rb,1.4620e-01_rb,7.7106e-02_rb,9.9249e-04_rb/)\n      kbo(:, 2,42, 9) = (/ &\n     &3.8152e-01_rb,3.1036e-01_rb,2.1367e-01_rb,1.1258e-01_rb,1.3669e-03_rb/)\n      kbo(:, 3,42, 9) = (/ &\n     &5.4219e-01_rb,4.4152e-01_rb,3.0416e-01_rb,1.6017e-01_rb,1.8223e-03_rb/)\n      kbo(:, 4,42, 9) = (/ &\n     &7.5310e-01_rb,6.1412e-01_rb,4.2345e-01_rb,2.2321e-01_rb,2.3766e-03_rb/)\n      kbo(:, 5,42, 9) = (/ &\n     &1.0272e+00_rb,8.3945e-01_rb,5.7960e-01_rb,3.0577e-01_rb,3.0463e-03_rb/)\n      kbo(:, 1,43, 9) = (/ &\n     &2.1184e-01_rb,1.7233e-01_rb,1.1866e-01_rb,6.2577e-02_rb,7.7589e-04_rb/)\n      kbo(:, 2,43, 9) = (/ &\n     &3.1451e-01_rb,2.5652e-01_rb,1.7660e-01_rb,9.2987e-02_rb,1.0831e-03_rb/)\n      kbo(:, 3,43, 9) = (/ &\n     &4.5438e-01_rb,3.7074e-01_rb,2.5543e-01_rb,1.3448e-01_rb,1.4611e-03_rb/)\n      kbo(:, 4,43, 9) = (/ &\n     &6.4007e-01_rb,5.2328e-01_rb,3.6079e-01_rb,1.9007e-01_rb,1.9178e-03_rb/)\n      kbo(:, 5,43, 9) = (/ &\n     &8.8479e-01_rb,7.2477e-01_rb,5.0046e-01_rb,2.6398e-01_rb,2.4774e-03_rb/)\n      kbo(:, 1,44, 9) = (/ &\n     &1.6982e-01_rb,1.3846e-01_rb,9.5299e-02_rb,5.0248e-02_rb,5.9857e-04_rb/)\n      kbo(:, 2,44, 9) = (/ &\n     &2.5706e-01_rb,2.1005e-01_rb,1.4462e-01_rb,7.6126e-02_rb,8.4785e-04_rb/)\n      kbo(:, 3,44, 9) = (/ &\n     &3.7786e-01_rb,3.0904e-01_rb,2.1286e-01_rb,1.1204e-01_rb,1.1605e-03_rb/)\n      kbo(:, 4,44, 9) = (/ &\n     &5.4071e-01_rb,4.4303e-01_rb,3.0555e-01_rb,1.6090e-01_rb,1.5453e-03_rb/)\n      kbo(:, 5,44, 9) = (/ &\n     &7.5841e-01_rb,6.2258e-01_rb,4.2996e-01_rb,2.2675e-01_rb,1.9959e-03_rb/)\n      kbo(:, 1,45, 9) = (/ &\n     &1.3545e-01_rb,1.1062e-01_rb,7.6155e-02_rb,4.0151e-02_rb,4.5711e-04_rb/)\n      kbo(:, 2,45, 9) = (/ &\n     &2.0919e-01_rb,1.7120e-01_rb,1.1790e-01_rb,6.2073e-02_rb,6.5798e-04_rb/)\n      kbo(:, 3,45, 9) = (/ &\n     &3.1316e-01_rb,2.5663e-01_rb,1.7679e-01_rb,9.2995e-02_rb,9.1164e-04_rb/)\n      kbo(:, 4,45, 9) = (/ &\n     &4.5567e-01_rb,3.7416e-01_rb,2.5813e-01_rb,1.3590e-01_rb,1.2287e-03_rb/)\n      kbo(:, 5,45, 9) = (/ &\n     &6.4919e-01_rb,5.3401e-01_rb,3.6882e-01_rb,1.9448e-01_rb,1.6029e-03_rb/)\n      kbo(:, 1,46, 9) = (/ &\n     &1.0668e-01_rb,8.7165e-02_rb,6.0007e-02_rb,3.1628e-02_rb,3.4444e-04_rb/)\n      kbo(:, 2,46, 9) = (/ &\n     &1.6793e-01_rb,1.3770e-01_rb,9.4805e-02_rb,4.9929e-02_rb,5.0372e-04_rb/)\n      kbo(:, 3,46, 9) = (/ &\n     &2.5640e-01_rb,2.1057e-01_rb,1.4511e-01_rb,7.6324e-02_rb,7.0786e-04_rb/)\n      kbo(:, 4,46, 9) = (/ &\n     &3.8014e-01_rb,3.1276e-01_rb,2.1587e-01_rb,1.1362e-01_rb,9.6784e-04_rb/)\n      kbo(:, 5,46, 9) = (/ &\n     &5.5078e-01_rb,4.5406e-01_rb,3.1364e-01_rb,1.6534e-01_rb,1.2803e-03_rb/)\n      kbo(:, 1,47, 9) = (/ &\n     &8.2159e-02_rb,6.7194e-02_rb,4.6255e-02_rb,2.4369e-02_rb,2.5696e-04_rb/)\n      kbo(:, 2,47, 9) = (/ &\n     &1.3183e-01_rb,1.0829e-01_rb,7.4558e-02_rb,3.9260e-02_rb,3.8064e-04_rb/)\n      kbo(:, 3,47, 9) = (/ &\n     &2.0579e-01_rb,1.6932e-01_rb,1.1664e-01_rb,6.1365e-02_rb,5.4299e-04_rb/)\n      kbo(:, 4,47, 9) = (/ &\n     &3.1127e-01_rb,2.5673e-01_rb,1.7713e-01_rb,9.3234e-02_rb,7.5354e-04_rb/)\n      kbo(:, 5,47, 9) = (/ &\n     &4.5944e-01_rb,3.7947e-01_rb,2.6220e-01_rb,1.3818e-01_rb,1.0123e-03_rb/)\n      kbo(:, 1,48, 9) = (/ &\n     &6.2805e-02_rb,5.1372e-02_rb,3.5337e-02_rb,1.8627e-02_rb,1.8799e-04_rb/)\n      kbo(:, 2,48, 9) = (/ &\n     &1.0282e-01_rb,8.4440e-02_rb,5.8150e-02_rb,3.0624e-02_rb,2.8497e-04_rb/)\n      kbo(:, 3,48, 9) = (/ &\n     &1.6397e-01_rb,1.3516e-01_rb,9.3148e-02_rb,4.8994e-02_rb,4.1296e-04_rb/)\n      kbo(:, 4,48, 9) = (/ &\n     &2.5353e-01_rb,2.0948e-01_rb,1.4454e-01_rb,7.6030e-02_rb,5.7970e-04_rb/)\n      kbo(:, 5,48, 9) = (/ &\n     &3.8151e-01_rb,3.1578e-01_rb,2.1823e-01_rb,1.1499e-01_rb,7.9062e-04_rb/)\n      kbo(:, 1,49, 9) = (/ &\n     &4.7675e-02_rb,3.9033e-02_rb,2.6875e-02_rb,1.4167e-02_rb,1.3591e-04_rb/)\n      kbo(:, 2,49, 9) = (/ &\n     &7.9683e-02_rb,6.5540e-02_rb,4.5120e-02_rb,2.3756e-02_rb,2.0952e-04_rb/)\n      kbo(:, 3,49, 9) = (/ &\n     &1.2966e-01_rb,1.0708e-01_rb,7.3804e-02_rb,3.8837e-02_rb,3.0991e-04_rb/)\n      kbo(:, 4,49, 9) = (/ &\n     &2.0506e-01_rb,1.6980e-01_rb,1.1714e-01_rb,6.1628e-02_rb,4.4095e-04_rb/)\n      kbo(:, 5,49, 9) = (/ &\n     &3.1515e-01_rb,2.6147e-01_rb,1.8074e-01_rb,9.5226e-02_rb,6.0820e-04_rb/)\n      kbo(:, 1,50, 9) = (/ &\n     &3.6548e-02_rb,2.9943e-02_rb,2.0610e-02_rb,1.0865e-02_rb,9.9917e-05_rb/)\n      kbo(:, 2,50, 9) = (/ &\n     &6.2279e-02_rb,5.1209e-02_rb,3.5254e-02_rb,1.8566e-02_rb,1.5653e-04_rb/)\n      kbo(:, 3,50, 9) = (/ &\n     &1.0318e-01_rb,8.5332e-02_rb,5.8808e-02_rb,3.0962e-02_rb,2.3703e-04_rb/)\n      kbo(:, 4,50, 9) = (/ &\n     &1.6688e-01_rb,1.3839e-01_rb,9.5487e-02_rb,5.0236e-02_rb,3.4171e-04_rb/)\n      kbo(:, 5,50, 9) = (/ &\n     &2.6185e-01_rb,2.1767e-01_rb,1.5045e-01_rb,7.9263e-02_rb,4.7617e-04_rb/)\n      kbo(:, 1,51, 9) = (/ &\n     &2.7952e-02_rb,2.2969e-02_rb,1.5811e-02_rb,8.3417e-03_rb,7.4671e-05_rb/)\n      kbo(:, 2,51, 9) = (/ &\n     &4.8817e-02_rb,4.0171e-02_rb,2.7641e-02_rb,1.4555e-02_rb,1.1814e-04_rb/)\n      kbo(:, 3,51, 9) = (/ &\n     &8.2508e-02_rb,6.8219e-02_rb,4.6983e-02_rb,2.4707e-02_rb,1.8096e-04_rb/)\n      kbo(:, 4,51, 9) = (/ &\n     &1.3588e-01_rb,1.1285e-01_rb,7.7859e-02_rb,4.0970e-02_rb,2.6754e-04_rb/)\n      kbo(:, 5,51, 9) = (/ &\n     &2.1776e-01_rb,1.8131e-01_rb,1.2532e-01_rb,6.5999e-02_rb,3.7856e-04_rb/)\n      kbo(:, 1,52, 9) = (/ &\n     &2.1199e-02_rb,1.7459e-02_rb,1.2025e-02_rb,6.3452e-03_rb,5.5107e-05_rb/)\n      kbo(:, 2,52, 9) = (/ &\n     &3.8088e-02_rb,3.1354e-02_rb,2.1571e-02_rb,1.1353e-02_rb,8.8069e-05_rb/)\n      kbo(:, 3,52, 9) = (/ &\n     &6.5619e-02_rb,5.4321e-02_rb,3.7416e-02_rb,1.9692e-02_rb,1.3680e-04_rb/)\n      kbo(:, 4,52, 9) = (/ &\n     &1.1018e-01_rb,9.1593e-02_rb,6.3191e-02_rb,3.3254e-02_rb,2.0641e-04_rb/)\n      kbo(:, 5,52, 9) = (/ &\n     &1.8039e-01_rb,1.5044e-01_rb,1.0398e-01_rb,5.4762e-02_rb,2.9766e-04_rb/)\n      kbo(:, 1,53, 9) = (/ &\n     &1.5917e-02_rb,1.3124e-02_rb,9.0469e-03_rb,4.7728e-03_rb,4.0227e-05_rb/)\n      kbo(:, 2,53, 9) = (/ &\n     &2.9453e-02_rb,2.4295e-02_rb,1.6728e-02_rb,8.8064e-03_rb,6.5428e-05_rb/)\n      kbo(:, 3,53, 9) = (/ &\n     &5.2020e-02_rb,4.3058e-02_rb,2.9653e-02_rb,1.5599e-02_rb,1.0270e-04_rb/)\n      kbo(:, 4,53, 9) = (/ &\n     &8.9031e-02_rb,7.3955e-02_rb,5.0990e-02_rb,2.6843e-02_rb,1.5632e-04_rb/)\n      kbo(:, 5,53, 9) = (/ &\n     &1.4878e-01_rb,1.2427e-01_rb,8.5889e-02_rb,4.5242e-02_rb,2.3095e-04_rb/)\n      kbo(:, 1,54, 9) = (/ &\n     &1.2118e-02_rb,1.0014e-02_rb,6.9093e-03_rb,3.6479e-03_rb,3.0413e-05_rb/)\n      kbo(:, 2,54, 9) = (/ &\n     &2.3157e-02_rb,1.9122e-02_rb,1.3172e-02_rb,6.9364e-03_rb,5.0720e-05_rb/)\n      kbo(:, 3,54, 9) = (/ &\n     &4.1929e-02_rb,3.4711e-02_rb,2.3913e-02_rb,1.2578e-02_rb,8.0499e-05_rb/)\n      kbo(:, 4,54, 9) = (/ &\n     &7.3182e-02_rb,6.0821e-02_rb,4.1911e-02_rb,2.2054e-02_rb,1.2452e-04_rb/)\n      kbo(:, 5,54, 9) = (/ &\n     &1.2434e-01_rb,1.0391e-01_rb,7.1807e-02_rb,3.7810e-02_rb,1.8706e-04_rb/)\n      kbo(:, 1,55, 9) = (/ &\n     &9.2663e-03_rb,7.6785e-03_rb,5.3030e-03_rb,2.7962e-03_rb,2.3331e-05_rb/)\n      kbo(:, 2,55, 9) = (/ &\n     &1.8303e-02_rb,1.5169e-02_rb,1.0453e-02_rb,5.5039e-03_rb,4.0062e-05_rb/)\n      kbo(:, 3,55, 9) = (/ &\n     &3.4131e-02_rb,2.8258e-02_rb,1.9454e-02_rb,1.0230e-02_rb,6.4887e-05_rb/)\n      kbo(:, 4,55, 9) = (/ &\n     &6.0672e-02_rb,5.0398e-02_rb,3.4733e-02_rb,1.8270e-02_rb,1.0169e-04_rb/)\n      kbo(:, 5,55, 9) = (/ &\n     &1.0468e-01_rb,8.7488e-02_rb,6.0450e-02_rb,3.1810e-02_rb,1.5537e-04_rb/)\n      kbo(:, 1,56, 9) = (/ &\n     &7.0383e-03_rb,5.8452e-03_rb,4.0381e-03_rb,2.1288e-03_rb,1.7811e-05_rb/)\n      kbo(:, 2,56, 9) = (/ &\n     &1.4408e-02_rb,1.1966e-02_rb,8.2523e-03_rb,4.3448e-03_rb,3.1488e-05_rb/)\n      kbo(:, 3,56, 9) = (/ &\n     &2.7695e-02_rb,2.2953e-02_rb,1.5811e-02_rb,8.3080e-03_rb,5.2239e-05_rb/)\n      kbo(:, 4,56, 9) = (/ &\n     &5.0327e-02_rb,4.1815e-02_rb,2.8827e-02_rb,1.5149e-02_rb,8.2952e-05_rb/)\n      kbo(:, 5,56, 9) = (/ &\n     &8.8477e-02_rb,7.3786e-02_rb,5.0905e-02_rb,2.6783e-02_rb,1.2900e-04_rb/)\n      kbo(:, 1,57, 9) = (/ &\n     &5.2984e-03_rb,4.4048e-03_rb,3.0442e-03_rb,1.6062e-03_rb,1.3485e-05_rb/)\n      kbo(:, 2,57, 9) = (/ &\n     &1.1277e-02_rb,9.3839e-03_rb,6.4745e-03_rb,3.4126e-03_rb,2.4664e-05_rb/)\n      kbo(:, 3,57, 9) = (/ &\n     &2.2383e-02_rb,1.8598e-02_rb,1.2810e-02_rb,6.7278e-03_rb,4.2073e-05_rb/)\n      kbo(:, 4,57, 9) = (/ &\n     &4.1793e-02_rb,3.4722e-02_rb,2.3901e-02_rb,1.2561e-02_rb,6.8099e-05_rb/)\n      kbo(:, 5,57, 9) = (/ &\n     &7.4879e-02_rb,6.2449e-02_rb,4.3075e-02_rb,2.2643e-02_rb,1.0701e-04_rb/)\n      kbo(:, 1,58, 9) = (/ &\n     &1.9422e-03_rb,1.8562e-03_rb,1.5070e-03_rb,9.6178e-04_rb,1.0242e-05_rb/)\n      kbo(:, 2,58, 9) = (/ &\n     &4.2963e-03_rb,4.1126e-03_rb,3.3378e-03_rb,2.1278e-03_rb,1.9475e-05_rb/)\n      kbo(:, 3,58, 9) = (/ &\n     &8.8321e-03_rb,8.4312e-03_rb,6.8267e-03_rb,4.3437e-03_rb,3.4347e-05_rb/)\n      kbo(:, 4,58, 9) = (/ &\n     &1.7006e-02_rb,1.6220e-02_rb,1.3112e-02_rb,8.3245e-03_rb,5.6453e-05_rb/)\n      kbo(:, 5,58, 9) = (/ &\n     &3.1001e-02_rb,2.9664e-02_rb,2.4013e-02_rb,1.5274e-02_rb,9.0315e-05_rb/)\n      kbo(:, 1,59, 9) = (/ &\n     &1.6680e-03_rb,1.5995e-03_rb,1.3049e-03_rb,8.3836e-04_rb,9.2179e-06_rb/)\n      kbo(:, 2,59, 9) = (/ &\n     &3.7712e-03_rb,3.6258e-03_rb,2.9561e-03_rb,1.8979e-03_rb,1.8017e-05_rb/)\n      kbo(:, 3,59, 9) = (/ &\n     &7.9144e-03_rb,7.6082e-03_rb,6.1886e-03_rb,3.9647e-03_rb,3.2435e-05_rb/)\n      kbo(:, 4,59, 9) = (/ &\n     &1.5562e-02_rb,1.4917e-02_rb,1.2127e-02_rb,7.7579e-03_rb,5.4862e-05_rb/)\n      kbo(:, 5,59, 9) = (/ &\n     &2.8789e-02_rb,2.7607e-02_rb,2.2446e-02_rb,1.4356e-02_rb,8.9155e-05_rb/)\n      kbo(:, 1,13,10) = (/ &\n     &3.5965e+01_rb,2.6975e+01_rb,1.7984e+01_rb,9.0232e+00_rb,2.4705e-01_rb/)\n      kbo(:, 2,13,10) = (/ &\n     &5.0800e+01_rb,3.8101e+01_rb,2.5403e+01_rb,1.2739e+01_rb,2.8941e-01_rb/)\n      kbo(:, 3,13,10) = (/ &\n     &6.8409e+01_rb,5.1309e+01_rb,3.4208e+01_rb,1.7156e+01_rb,3.3771e-01_rb/)\n      kbo(:, 4,13,10) = (/ &\n     &8.8981e+01_rb,6.6739e+01_rb,4.4497e+01_rb,2.2337e+01_rb,3.9418e-01_rb/)\n      kbo(:, 5,13,10) = (/ &\n     &1.1252e+02_rb,8.4389e+01_rb,5.6260e+01_rb,2.8284e+01_rb,4.6348e-01_rb/)\n      kbo(:, 1,14,10) = (/ &\n     &3.4773e+01_rb,2.6079e+01_rb,1.7386e+01_rb,8.7850e+00_rb,2.3514e-01_rb/)\n      kbo(:, 2,14,10) = (/ &\n     &4.8754e+01_rb,3.6565e+01_rb,2.4376e+01_rb,1.2316e+01_rb,2.9035e-01_rb/)\n      kbo(:, 3,14,10) = (/ &\n     &6.5535e+01_rb,4.9151e+01_rb,3.2769e+01_rb,1.6566e+01_rb,3.5401e-01_rb/)\n      kbo(:, 4,14,10) = (/ &\n     &8.5152e+01_rb,6.3871e+01_rb,4.2583e+01_rb,2.1543e+01_rb,4.0952e-01_rb/)\n      kbo(:, 5,14,10) = (/ &\n     &1.0714e+02_rb,8.0354e+01_rb,5.3570e+01_rb,2.7127e+01_rb,4.6861e-01_rb/)\n      kbo(:, 1,15,10) = (/ &\n     &3.1708e+01_rb,2.3780e+01_rb,1.5854e+01_rb,8.0780e+00_rb,2.2725e-01_rb/)\n      kbo(:, 2,15,10) = (/ &\n     &4.4299e+01_rb,3.3227e+01_rb,2.2149e+01_rb,1.1301e+01_rb,2.7237e-01_rb/)\n      kbo(:, 3,15,10) = (/ &\n     &5.9451e+01_rb,4.4587e+01_rb,2.9727e+01_rb,1.5175e+01_rb,3.1480e-01_rb/)\n      kbo(:, 4,15,10) = (/ &\n     &7.6914e+01_rb,5.7688e+01_rb,3.8460e+01_rb,1.9633e+01_rb,3.5895e-01_rb/)\n      kbo(:, 5,15,10) = (/ &\n     &9.6187e+01_rb,7.2137e+01_rb,4.8097e+01_rb,2.4537e+01_rb,4.0136e-01_rb/)\n      kbo(:, 1,16,10) = (/ &\n     &2.8000e+01_rb,2.1001e+01_rb,1.4008e+01_rb,7.1879e+00_rb,1.8684e-01_rb/)\n      kbo(:, 2,16,10) = (/ &\n     &3.8983e+01_rb,2.9238e+01_rb,1.9500e+01_rb,1.0007e+01_rb,2.3111e-01_rb/)\n      kbo(:, 3,16,10) = (/ &\n     &5.2090e+01_rb,3.9071e+01_rb,2.6063e+01_rb,1.3380e+01_rb,2.7168e-01_rb/)\n      kbo(:, 4,16,10) = (/ &\n     &6.6962e+01_rb,5.0223e+01_rb,3.3517e+01_rb,1.7217e+01_rb,3.1091e-01_rb/)\n      kbo(:, 5,16,10) = (/ &\n     &8.3570e+01_rb,6.2687e+01_rb,4.1858e+01_rb,2.1531e+01_rb,3.6276e-01_rb/)\n      kbo(:, 1,17,10) = (/ &\n     &2.4264e+01_rb,1.8198e+01_rb,1.2195e+01_rb,6.2664e+00_rb,1.7021e-01_rb/)\n      kbo(:, 2,17,10) = (/ &\n     &3.3645e+01_rb,2.5234e+01_rb,1.6913e+01_rb,8.7049e+00_rb,1.9751e-01_rb/)\n      kbo(:, 3,17,10) = (/ &\n     &4.4643e+01_rb,3.3486e+01_rb,2.2452e+01_rb,1.1586e+01_rb,2.2201e-01_rb/)\n      kbo(:, 4,17,10) = (/ &\n     &5.7207e+01_rb,4.2902e+01_rb,2.8791e+01_rb,1.4899e+01_rb,2.5554e-01_rb/)\n      kbo(:, 5,17,10) = (/ &\n     &7.1193e+01_rb,5.3402e+01_rb,3.5856e+01_rb,1.8608e+01_rb,2.9547e-01_rb/)\n      kbo(:, 1,18,10) = (/ &\n     &2.0477e+01_rb,1.5356e+01_rb,1.0367e+01_rb,5.3622e+00_rb,1.3534e-01_rb/)\n      kbo(:, 2,18,10) = (/ &\n     &2.8178e+01_rb,2.1132e+01_rb,1.4278e+01_rb,7.4149e+00_rb,1.5634e-01_rb/)\n      kbo(:, 3,18,10) = (/ &\n     &3.7210e+01_rb,2.7911e+01_rb,1.8862e+01_rb,9.8384e+00_rb,1.8020e-01_rb/)\n      kbo(:, 4,18,10) = (/ &\n     &4.7546e+01_rb,3.5659e+01_rb,2.4100e+01_rb,1.2600e+01_rb,2.1507e-01_rb/)\n      kbo(:, 5,18,10) = (/ &\n     &5.8973e+01_rb,4.4229e+01_rb,2.9880e+01_rb,1.5650e+01_rb,2.3467e-01_rb/)\n      kbo(:, 1,19,10) = (/ &\n     &1.7373e+01_rb,1.3040e+01_rb,8.8390e+00_rb,4.6588e+00_rb,1.1972e-01_rb/)\n      kbo(:, 2,19,10) = (/ &\n     &2.3793e+01_rb,1.7857e+01_rb,1.2109e+01_rb,6.3963e+00_rb,1.3774e-01_rb/)\n      kbo(:, 3,19,10) = (/ &\n     &3.1336e+01_rb,2.3520e+01_rb,1.5961e+01_rb,8.4390e+00_rb,1.6091e-01_rb/)\n      kbo(:, 4,19,10) = (/ &\n     &3.9866e+01_rb,2.9935e+01_rb,2.0331e+01_rb,1.0756e+01_rb,1.7955e-01_rb/)\n      kbo(:, 5,19,10) = (/ &\n     &4.9495e+01_rb,3.7175e+01_rb,2.5257e+01_rb,1.3339e+01_rb,2.0663e-01_rb/)\n      kbo(:, 1,20,10) = (/ &\n     &1.5037e+01_rb,1.1322e+01_rb,7.6844e+00_rb,4.1127e+00_rb,1.0485e-01_rb/)\n      kbo(:, 2,20,10) = (/ &\n     &2.0515e+01_rb,1.5450e+01_rb,1.0499e+01_rb,5.6182e+00_rb,1.2148e-01_rb/)\n      kbo(:, 3,20,10) = (/ &\n     &2.6886e+01_rb,2.0252e+01_rb,1.3792e+01_rb,7.3741e+00_rb,1.4561e-01_rb/)\n      kbo(:, 4,20,10) = (/ &\n     &3.4287e+01_rb,2.5832e+01_rb,1.7615e+01_rb,9.3860e+00_rb,1.6294e-01_rb/)\n      kbo(:, 5,20,10) = (/ &\n     &4.2841e+01_rb,3.2278e+01_rb,2.2023e+01_rb,1.1711e+01_rb,1.8624e-01_rb/)\n      kbo(:, 1,21,10) = (/ &\n     &1.3152e+01_rb,9.9438e+00_rb,6.7780e+00_rb,3.6471e+00_rb,9.1853e-02_rb/)\n      kbo(:, 2,21,10) = (/ &\n     &1.7866e+01_rb,1.3511e+01_rb,9.2298e+00_rb,4.9595e+00_rb,1.1141e-01_rb/)\n      kbo(:, 3,21,10) = (/ &\n     &2.3469e+01_rb,1.7747e+01_rb,1.2135e+01_rb,6.5086e+00_rb,1.2785e-01_rb/)\n      kbo(:, 4,21,10) = (/ &\n     &3.0120e+01_rb,2.2761e+01_rb,1.5567e+01_rb,8.3305e+00_rb,1.5176e-01_rb/)\n      kbo(:, 5,21,10) = (/ &\n     &3.7884e+01_rb,2.8609e+01_rb,1.9560e+01_rb,1.0448e+01_rb,1.7309e-01_rb/)\n      kbo(:, 1,22,10) = (/ &\n     &1.1757e+01_rb,8.9118e+00_rb,6.1382e+00_rb,3.3115e+00_rb,8.1057e-02_rb/)\n      kbo(:, 2,22,10) = (/ &\n     &1.5980e+01_rb,1.2109e+01_rb,8.3336e+00_rb,4.4832e+00_rb,9.8906e-02_rb/)\n      kbo(:, 3,22,10) = (/ &\n     &2.1108e+01_rb,1.5991e+01_rb,1.0992e+01_rb,5.8971e+00_rb,1.1586e-01_rb/)\n      kbo(:, 4,22,10) = (/ &\n     &2.7285e+01_rb,2.0659e+01_rb,1.4174e+01_rb,7.5863e+00_rb,1.3507e-01_rb/)\n      kbo(:, 5,22,10) = (/ &\n     &3.4676e+01_rb,2.6248e+01_rb,1.7966e+01_rb,9.5810e+00_rb,1.5851e-01_rb/)\n      kbo(:, 1,23,10) = (/ &\n     &1.0481e+01_rb,7.9685e+00_rb,5.5490e+00_rb,2.9996e+00_rb,7.4309e-02_rb/)\n      kbo(:, 2,23,10) = (/ &\n     &1.4420e+01_rb,1.0955e+01_rb,7.5878e+00_rb,4.0805e+00_rb,8.6253e-02_rb/)\n      kbo(:, 3,23,10) = (/ &\n     &1.9219e+01_rb,1.4600e+01_rb,1.0073e+01_rb,5.3977e+00_rb,1.0580e-01_rb/)\n      kbo(:, 4,23,10) = (/ &\n     &2.5108e+01_rb,1.9069e+01_rb,1.3115e+01_rb,7.0020e+00_rb,1.2265e-01_rb/)\n      kbo(:, 5,23,10) = (/ &\n     &3.2043e+01_rb,2.4337e+01_rb,1.6704e+01_rb,8.8942e+00_rb,1.4381e-01_rb/)\n      kbo(:, 1,24,10) = (/ &\n     &9.5276e+00_rb,7.2768e+00_rb,5.0826e+00_rb,2.7465e+00_rb,6.4655e-02_rb/)\n      kbo(:, 2,24,10) = (/ &\n     &1.3271e+01_rb,1.0121e+01_rb,7.0214e+00_rb,3.7657e+00_rb,7.9291e-02_rb/)\n      kbo(:, 3,24,10) = (/ &\n     &1.7863e+01_rb,1.3622e+01_rb,9.4201e+00_rb,5.0307e+00_rb,9.5461e-02_rb/)\n      kbo(:, 4,24,10) = (/ &\n     &2.3325e+01_rb,1.7783e+01_rb,1.2273e+01_rb,6.5420e+00_rb,1.1274e-01_rb/)\n      kbo(:, 5,24,10) = (/ &\n     &2.9564e+01_rb,2.2536e+01_rb,1.5537e+01_rb,8.2816e+00_rb,1.3418e-01_rb/)\n      kbo(:, 1,25,10) = (/ &\n     &8.8160e+00_rb,6.7673e+00_rb,4.7220e+00_rb,2.5379e+00_rb,5.8489e-02_rb/)\n      kbo(:, 2,25,10) = (/ &\n     &1.2357e+01_rb,9.4685e+00_rb,6.5735e+00_rb,3.5130e+00_rb,7.2064e-02_rb/)\n      kbo(:, 3,25,10) = (/ &\n     &1.6557e+01_rb,1.2678e+01_rb,8.7976e+00_rb,4.6917e+00_rb,8.6281e-02_rb/)\n      kbo(:, 4,25,10) = (/ &\n     &2.1444e+01_rb,1.6408e+01_rb,1.1376e+01_rb,6.0717e+00_rb,1.0416e-01_rb/)\n      kbo(:, 5,25,10) = (/ &\n     &2.7072e+01_rb,2.0703e+01_rb,1.4347e+01_rb,7.6551e+00_rb,1.2572e-01_rb/)\n      kbo(:, 1,26,10) = (/ &\n     &8.2437e+00_rb,6.3645e+00_rb,4.4442e+00_rb,2.3799e+00_rb,5.3046e-02_rb/)\n      kbo(:, 2,26,10) = (/ &\n     &1.1483e+01_rb,8.8437e+00_rb,6.1605e+00_rb,3.2883e+00_rb,6.5278e-02_rb/)\n      kbo(:, 3,26,10) = (/ &\n     &1.5261e+01_rb,1.1739e+01_rb,8.1695e+00_rb,4.3593e+00_rb,8.0191e-02_rb/)\n      kbo(:, 4,26,10) = (/ &\n     &1.9700e+01_rb,1.5135e+01_rb,1.0534e+01_rb,5.6197e+00_rb,9.7601e-02_rb/)\n      kbo(:, 5,26,10) = (/ &\n     &2.4857e+01_rb,1.9072e+01_rb,1.3248e+01_rb,7.0653e+00_rb,1.1704e-01_rb/)\n      kbo(:, 1,27,10) = (/ &\n     &7.7081e+00_rb,5.9885e+00_rb,4.1814e+00_rb,2.2306e+00_rb,4.7409e-02_rb/)\n      kbo(:, 2,27,10) = (/ &\n     &1.0576e+01_rb,8.1915e+00_rb,5.7182e+00_rb,3.0504e+00_rb,5.8512e-02_rb/)\n      kbo(:, 3,27,10) = (/ &\n     &1.4014e+01_rb,1.0837e+01_rb,7.5629e+00_rb,4.0315e+00_rb,7.3955e-02_rb/)\n      kbo(:, 4,27,10) = (/ &\n     &1.8113e+01_rb,1.3973e+01_rb,9.7390e+00_rb,5.1847e+00_rb,9.0794e-02_rb/)\n      kbo(:, 5,27,10) = (/ &\n     &2.2862e+01_rb,1.7593e+01_rb,1.2246e+01_rb,6.5228e+00_rb,1.0871e-01_rb/)\n      kbo(:, 1,28,10) = (/ &\n     &7.2063e+00_rb,5.6196e+00_rb,3.9203e+00_rb,2.0882e+00_rb,4.3129e-02_rb/)\n      kbo(:, 2,28,10) = (/ &\n     &9.7817e+00_rb,7.6085e+00_rb,5.3084e+00_rb,2.8196e+00_rb,5.4812e-02_rb/)\n      kbo(:, 3,28,10) = (/ &\n     &1.2904e+01_rb,1.0029e+01_rb,7.0025e+00_rb,3.7236e+00_rb,6.8395e-02_rb/)\n      kbo(:, 4,28,10) = (/ &\n     &1.6696e+01_rb,1.2935e+01_rb,9.0135e+00_rb,4.7943e+00_rb,8.2716e-02_rb/)\n      kbo(:, 5,28,10) = (/ &\n     &2.1096e+01_rb,1.6309e+01_rb,1.1368e+01_rb,6.0506e+00_rb,9.9935e-02_rb/)\n      kbo(:, 1,29,10) = (/ &\n     &6.7278e+00_rb,5.2636e+00_rb,3.6717e+00_rb,1.9437e+00_rb,3.9266e-02_rb/)\n      kbo(:, 2,29,10) = (/ &\n     &9.0515e+00_rb,7.0710e+00_rb,4.9355e+00_rb,2.6130e+00_rb,4.9834e-02_rb/)\n      kbo(:, 3,29,10) = (/ &\n     &1.1919e+01_rb,9.2978e+00_rb,6.4770e+00_rb,3.4412e+00_rb,6.2077e-02_rb/)\n      kbo(:, 4,29,10) = (/ &\n     &1.5380e+01_rb,1.1978e+01_rb,8.3499e+00_rb,4.4362e+00_rb,7.6798e-02_rb/)\n      kbo(:, 5,29,10) = (/ &\n     &1.9420e+01_rb,1.5097e+01_rb,1.0536e+01_rb,5.6045e+00_rb,9.1669e-02_rb/)\n      kbo(:, 1,30,10) = (/ &\n     &6.2882e+00_rb,4.9355e+00_rb,3.4323e+00_rb,1.8115e+00_rb,3.5713e-02_rb/)\n      kbo(:, 2,30,10) = (/ &\n     &8.4169e+00_rb,6.5906e+00_rb,4.5841e+00_rb,2.4262e+00_rb,4.5752e-02_rb/)\n      kbo(:, 3,30,10) = (/ &\n     &1.1024e+01_rb,8.6363e+00_rb,6.0145e+00_rb,3.1864e+00_rb,5.7473e-02_rb/)\n      kbo(:, 4,30,10) = (/ &\n     &1.4192e+01_rb,1.1103e+01_rb,7.7439e+00_rb,4.1120e+00_rb,7.0729e-02_rb/)\n      kbo(:, 5,30,10) = (/ &\n     &1.7890e+01_rb,1.3978e+01_rb,9.7651e+00_rb,5.1860e+00_rb,8.5534e-02_rb/)\n      kbo(:, 1,31,10) = (/ &\n     &5.8439e+00_rb,4.6051e+00_rb,3.1957e+00_rb,1.6863e+00_rb,3.2654e-02_rb/)\n      kbo(:, 2,31,10) = (/ &\n     &7.8033e+00_rb,6.1378e+00_rb,4.2622e+00_rb,2.2515e+00_rb,4.2183e-02_rb/)\n      kbo(:, 3,31,10) = (/ &\n     &1.0196e+01_rb,8.0235e+00_rb,5.5836e+00_rb,2.9533e+00_rb,5.3011e-02_rb/)\n      kbo(:, 4,31,10) = (/ &\n     &1.3072e+01_rb,1.0286e+01_rb,7.1778e+00_rb,3.8005e+00_rb,6.4875e-02_rb/)\n      kbo(:, 5,31,10) = (/ &\n     &1.6463e+01_rb,1.2924e+01_rb,9.0292e+00_rb,4.7849e+00_rb,7.7772e-02_rb/)\n      kbo(:, 1,32,10) = (/ &\n     &5.4664e+00_rb,4.3291e+00_rb,2.9999e+00_rb,1.5808e+00_rb,2.9923e-02_rb/)\n      kbo(:, 2,32,10) = (/ &\n     &7.2874e+00_rb,5.7710e+00_rb,4.0068e+00_rb,2.1122e+00_rb,3.8267e-02_rb/)\n      kbo(:, 3,32,10) = (/ &\n     &9.5041e+00_rb,7.5231e+00_rb,5.2374e+00_rb,2.7661e+00_rb,4.7331e-02_rb/)\n      kbo(:, 4,32,10) = (/ &\n     &1.2176e+01_rb,9.6156e+00_rb,6.7066e+00_rb,3.5449e+00_rb,5.8625e-02_rb/)\n      kbo(:, 5,32,10) = (/ &\n     &1.5322e+01_rb,1.2084e+01_rb,8.4483e+00_rb,4.4709e+00_rb,6.9340e-02_rb/)\n      kbo(:, 1,33,10) = (/ &\n     &5.1512e+00_rb,4.0967e+00_rb,2.8362e+00_rb,1.4933e+00_rb,2.6393e-02_rb/)\n      kbo(:, 2,33,10) = (/ &\n     &6.8599e+00_rb,5.4552e+00_rb,3.7902e+00_rb,1.9993e+00_rb,3.4040e-02_rb/)\n      kbo(:, 3,33,10) = (/ &\n     &8.9395e+00_rb,7.1038e+00_rb,4.9489e+00_rb,2.6104e+00_rb,4.2820e-02_rb/)\n      kbo(:, 4,33,10) = (/ &\n     &1.1449e+01_rb,9.0816e+00_rb,6.3367e+00_rb,3.3421e+00_rb,5.1919e-02_rb/)\n      kbo(:, 5,33,10) = (/ &\n     &1.4423e+01_rb,1.1426e+01_rb,7.9850e+00_rb,4.2179e+00_rb,6.2402e-02_rb/)\n      kbo(:, 1,34,10) = (/ &\n     &4.8646e+00_rb,3.8880e+00_rb,2.6932e+00_rb,1.4194e+00_rb,2.3781e-02_rb/)\n      kbo(:, 2,34,10) = (/ &\n     &6.4672e+00_rb,5.1782e+00_rb,3.6018e+00_rb,1.8962e+00_rb,3.0492e-02_rb/)\n      kbo(:, 3,34,10) = (/ &\n     &8.4535e+00_rb,6.7497e+00_rb,4.7054e+00_rb,2.4770e+00_rb,3.8339e-02_rb/)\n      kbo(:, 4,34,10) = (/ &\n     &1.0856e+01_rb,8.6484e+00_rb,6.0350e+00_rb,3.1793e+00_rb,4.6570e-02_rb/)\n      kbo(:, 5,34,10) = (/ &\n     &1.3723e+01_rb,1.0909e+01_rb,7.6246e+00_rb,4.0214e+00_rb,5.6226e-02_rb/)\n      kbo(:, 1,35,10) = (/ &\n     &4.4902e+00_rb,3.6079e+00_rb,2.5027e+00_rb,1.3156e+00_rb,2.1238e-02_rb/)\n      kbo(:, 2,35,10) = (/ &\n     &5.9918e+00_rb,4.8154e+00_rb,3.3497e+00_rb,1.7639e+00_rb,2.7153e-02_rb/)\n      kbo(:, 3,35,10) = (/ &\n     &7.8693e+00_rb,6.3098e+00_rb,4.3964e+00_rb,2.3124e+00_rb,3.3573e-02_rb/)\n      kbo(:, 4,35,10) = (/ &\n     &1.0156e+01_rb,8.1193e+00_rb,5.6658e+00_rb,2.9812e+00_rb,4.1298e-02_rb/)\n      kbo(:, 5,35,10) = (/ &\n     &1.2867e+01_rb,1.0277e+01_rb,7.1860e+00_rb,3.7872e+00_rb,4.9619e-02_rb/)\n      kbo(:, 1,36,10) = (/ &\n     &4.0317e+00_rb,3.2575e+00_rb,2.2591e+00_rb,1.1864e+00_rb,1.8322e-02_rb/)\n      kbo(:, 2,36,10) = (/ &\n     &5.4230e+00_rb,4.3764e+00_rb,3.0444e+00_rb,1.6008e+00_rb,2.3437e-02_rb/)\n      kbo(:, 3,36,10) = (/ &\n     &7.1807e+00_rb,5.7770e+00_rb,4.0236e+00_rb,2.1147e+00_rb,2.8934e-02_rb/)\n      kbo(:, 4,36,10) = (/ &\n     &9.3214e+00_rb,7.4860e+00_rb,5.2247e+00_rb,2.7453e+00_rb,3.5476e-02_rb/)\n      kbo(:, 5,36,10) = (/ &\n     &1.1871e+01_rb,9.5152e+00_rb,6.6538e+00_rb,3.5057e+00_rb,4.2476e-02_rb/)\n      kbo(:, 1,37,10) = (/ &\n     &3.4945e+00_rb,2.8322e+00_rb,1.9642e+00_rb,1.0316e+00_rb,1.5292e-02_rb/)\n      kbo(:, 2,37,10) = (/ &\n     &4.7474e+00_rb,3.8477e+00_rb,2.6749e+00_rb,1.4057e+00_rb,1.9829e-02_rb/)\n      kbo(:, 3,37,10) = (/ &\n     &6.3563e+00_rb,5.1351e+00_rb,3.5754e+00_rb,1.8774e+00_rb,2.4925e-02_rb/)\n      kbo(:, 4,37,10) = (/ &\n     &8.3333e+00_rb,6.7182e+00_rb,4.6872e+00_rb,2.4610e+00_rb,3.0513e-02_rb/)\n      kbo(:, 5,37,10) = (/ &\n     &1.0705e+01_rb,8.6094e+00_rb,6.0143e+00_rb,3.1664e+00_rb,3.6834e-02_rb/)\n      kbo(:, 1,38,10) = (/ &\n     &3.0288e+00_rb,2.4619e+00_rb,1.7084e+00_rb,8.9674e-01_rb,1.2715e-02_rb/)\n      kbo(:, 2,38,10) = (/ &\n     &4.1608e+00_rb,3.3834e+00_rb,2.3515e+00_rb,1.2353e+00_rb,1.6555e-02_rb/)\n      kbo(:, 3,38,10) = (/ &\n     &5.6346e+00_rb,4.5721e+00_rb,3.1807e+00_rb,1.6688e+00_rb,2.1253e-02_rb/)\n      kbo(:, 4,38,10) = (/ &\n     &7.4639e+00_rb,6.0370e+00_rb,4.2092e+00_rb,2.2090e+00_rb,2.6215e-02_rb/)\n      kbo(:, 5,38,10) = (/ &\n     &9.6723e+00_rb,7.8054e+00_rb,5.4498e+00_rb,2.8669e+00_rb,3.1673e-02_rb/)\n      kbo(:, 1,39,10) = (/ &\n     &2.6346e+00_rb,2.1501e+00_rb,1.4897e+00_rb,7.8179e-01_rb,1.0494e-02_rb/)\n      kbo(:, 2,39,10) = (/ &\n     &3.6623e+00_rb,2.9868e+00_rb,2.0748e+00_rb,1.0900e+00_rb,1.3801e-02_rb/)\n      kbo(:, 3,39,10) = (/ &\n     &5.0149e+00_rb,4.0819e+00_rb,2.8376e+00_rb,1.4889e+00_rb,1.7948e-02_rb/)\n      kbo(:, 4,39,10) = (/ &\n     &6.7074e+00_rb,5.4432e+00_rb,3.7906e+00_rb,1.9883e+00_rb,2.2190e-02_rb/)\n      kbo(:, 5,39,10) = (/ &\n     &8.7675e+00_rb,7.1019e+00_rb,4.9572e+00_rb,2.6054e+00_rb,2.6961e-02_rb/)\n      kbo(:, 1,40,10) = (/ &\n     &2.2414e+00_rb,1.8312e+00_rb,1.2669e+00_rb,6.6464e-01_rb,8.6033e-03_rb/)\n      kbo(:, 2,40,10) = (/ &\n     &3.1461e+00_rb,2.5731e+00_rb,1.7855e+00_rb,9.3826e-01_rb,1.1425e-02_rb/)\n      kbo(:, 3,40,10) = (/ &\n     &4.3645e+00_rb,3.5639e+00_rb,2.4772e+00_rb,1.3001e+00_rb,1.5150e-02_rb/)\n      kbo(:, 4,40,10) = (/ &\n     &5.9195e+00_rb,4.8196e+00_rb,3.3561e+00_rb,1.7603e+00_rb,1.8984e-02_rb/)\n      kbo(:, 5,40,10) = (/ &\n     &7.8344e+00_rb,6.3662e+00_rb,4.4409e+00_rb,2.3324e+00_rb,2.3286e-02_rb/)\n      kbo(:, 1,41,10) = (/ &\n     &1.9009e+00_rb,1.5581e+00_rb,1.0772e+00_rb,5.6390e-01_rb,7.0145e-03_rb/)\n      kbo(:, 2,41,10) = (/ &\n     &2.6997e+00_rb,2.2094e+00_rb,1.5334e+00_rb,8.0488e-01_rb,9.5005e-03_rb/)\n      kbo(:, 3,41,10) = (/ &\n     &3.7885e+00_rb,3.1035e+00_rb,2.1567e+00_rb,1.1320e+00_rb,1.2665e-02_rb/)\n      kbo(:, 4,41,10) = (/ &\n     &5.2083e+00_rb,4.2587e+00_rb,2.9632e+00_rb,1.5552e+00_rb,1.6096e-02_rb/)\n      kbo(:, 5,41,10) = (/ &\n     &6.9899e+00_rb,5.6957e+00_rb,3.9715e+00_rb,2.0851e+00_rb,2.0007e-02_rb/)\n      kbo(:, 1,42,10) = (/ &\n     &1.6073e+00_rb,1.3214e+00_rb,9.1410e-01_rb,4.7869e-01_rb,5.6658e-03_rb/)\n      kbo(:, 2,42,10) = (/ &\n     &2.3166e+00_rb,1.9016e+00_rb,1.3175e+00_rb,6.9100e-01_rb,7.8082e-03_rb/)\n      kbo(:, 3,42,10) = (/ &\n     &3.2935e+00_rb,2.7045e+00_rb,1.8773e+00_rb,9.8575e-01_rb,1.0484e-02_rb/)\n      kbo(:, 4,42,10) = (/ &\n     &4.5881e+00_rb,3.7639e+00_rb,2.6177e+00_rb,1.3737e+00_rb,1.3601e-02_rb/)\n      kbo(:, 5,42,10) = (/ &\n     &6.2370e+00_rb,5.0967e+00_rb,3.5534e+00_rb,1.8654e+00_rb,1.7039e-02_rb/)\n      kbo(:, 1,43,10) = (/ &\n     &1.3404e+00_rb,1.1058e+00_rb,7.6461e-01_rb,4.0031e-01_rb,4.4847e-03_rb/)\n      kbo(:, 2,43,10) = (/ &\n     &1.9669e+00_rb,1.6173e+00_rb,1.1194e+00_rb,5.8704e-01_rb,6.2717e-03_rb/)\n      kbo(:, 3,43,10) = (/ &\n     &2.8361e+00_rb,2.3337e+00_rb,1.6185e+00_rb,8.4949e-01_rb,8.5308e-03_rb/)\n      kbo(:, 4,43,10) = (/ &\n     &4.0094e+00_rb,3.2948e+00_rb,2.2900e+00_rb,1.2020e+00_rb,1.1259e-02_rb/)\n      kbo(:, 5,43,10) = (/ &\n     &5.5262e+00_rb,4.5280e+00_rb,3.1542e+00_rb,1.6556e+00_rb,1.4384e-02_rb/)\n      kbo(:, 1,44,10) = (/ &\n     &1.1066e+00_rb,9.1547e-01_rb,6.3275e-01_rb,3.3150e-01_rb,3.4897e-03_rb/)\n      kbo(:, 2,44,10) = (/ &\n     &1.6542e+00_rb,1.3635e+00_rb,9.4399e-01_rb,4.9494e-01_rb,4.9430e-03_rb/)\n      kbo(:, 3,44,10) = (/ &\n     &2.4266e+00_rb,2.0020e+00_rb,1.3887e+00_rb,7.2847e-01_rb,6.8682e-03_rb/)\n      kbo(:, 4,44,10) = (/ &\n     &3.4886e+00_rb,2.8708e+00_rb,1.9931e+00_rb,1.0459e+00_rb,9.1381e-03_rb/)\n      kbo(:, 5,44,10) = (/ &\n     &4.8773e+00_rb,4.0046e+00_rb,2.7873e+00_rb,1.4630e+00_rb,1.1960e-02_rb/)\n      kbo(:, 1,45,10) = (/ &\n     &9.0739e-01_rb,7.5424e-01_rb,5.2128e-01_rb,2.7273e-01_rb,2.7098e-03_rb/)\n      kbo(:, 2,45,10) = (/ &\n     &1.3852e+00_rb,1.1467e+00_rb,7.9304e-01_rb,4.1578e-01_rb,3.8548e-03_rb/)\n      kbo(:, 3,45,10) = (/ &\n     &2.0713e+00_rb,1.7151e+00_rb,1.1892e+00_rb,6.2426e-01_rb,5.4604e-03_rb/)\n      kbo(:, 4,45,10) = (/ &\n     &3.0326e+00_rb,2.5006e+00_rb,1.7345e+00_rb,9.0988e-01_rb,7.3887e-03_rb/)\n      kbo(:, 5,45,10) = (/ &\n     &4.3008e+00_rb,3.5387e+00_rb,2.4612e+00_rb,1.2914e+00_rb,9.7321e-03_rb/)\n      kbo(:, 1,46,10) = (/ &\n     &7.3199e-01_rb,6.1145e-01_rb,4.2240e-01_rb,2.2117e-01_rb,2.0785e-03_rb/)\n      kbo(:, 2,46,10) = (/ &\n     &1.1438e+00_rb,9.5098e-01_rb,6.5833e-01_rb,3.4471e-01_rb,2.9805e-03_rb/)\n      kbo(:, 3,46,10) = (/ &\n     &1.7481e+00_rb,1.4525e+00_rb,1.0068e+00_rb,5.2845e-01_rb,4.2717e-03_rb/)\n      kbo(:, 4,46,10) = (/ &\n     &2.6098e+00_rb,2.1582e+00_rb,1.4963e+00_rb,7.8501e-01_rb,5.8631e-03_rb/)\n      kbo(:, 5,46,10) = (/ &\n     &3.7663e+00_rb,3.1031e+00_rb,2.1564e+00_rb,1.1312e+00_rb,7.7831e-03_rb/)\n      kbo(:, 1,47,10) = (/ &\n     &5.7232e-01_rb,4.8032e-01_rb,3.3210e-01_rb,1.7403e-01_rb,1.5461e-03_rb/)\n      kbo(:, 2,47,10) = (/ &\n     &9.2386e-01_rb,7.7116e-01_rb,5.3364e-01_rb,2.7934e-01_rb,2.3209e-03_rb/)\n      kbo(:, 3,47,10) = (/ &\n     &1.4429e+00_rb,1.2024e+00_rb,8.3406e-01_rb,4.3757e-01_rb,3.2763e-03_rb/)\n      kbo(:, 4,47,10) = (/ &\n     &2.2047e+00_rb,1.8273e+00_rb,1.2675e+00_rb,6.6495e-01_rb,4.5628e-03_rb/)\n      kbo(:, 5,47,10) = (/ &\n     &3.2456e+00_rb,2.6812e+00_rb,1.8614e+00_rb,9.7623e-01_rb,6.1070e-03_rb/)\n      kbo(:, 1,48,10) = (/ &\n     &4.4270e-01_rb,3.7313e-01_rb,2.5809e-01_rb,1.3535e-01_rb,1.1374e-03_rb/)\n      kbo(:, 2,48,10) = (/ &\n     &7.3749e-01_rb,6.1935e-01_rb,4.2906e-01_rb,2.2453e-01_rb,1.7379e-03_rb/)\n      kbo(:, 3,48,10) = (/ &\n     &1.1839e+00_rb,9.8928e-01_rb,6.8613e-01_rb,3.6002e-01_rb,2.5032e-03_rb/)\n      kbo(:, 4,48,10) = (/ &\n     &1.8512e+00_rb,1.5395e+00_rb,1.0677e+00_rb,5.6075e-01_rb,3.5238e-03_rb/)\n      kbo(:, 5,48,10) = (/ &\n     &2.7862e+00_rb,2.3065e+00_rb,1.6009e+00_rb,8.3981e-01_rb,4.7398e-03_rb/)\n      kbo(:, 1,49,10) = (/ &\n     &3.3829e-01_rb,2.8482e-01_rb,1.9699e-01_rb,1.0339e-01_rb,8.1861e-04_rb/)\n      kbo(:, 2,49,10) = (/ &\n     &5.8200e-01_rb,4.9068e-01_rb,3.4013e-01_rb,1.7816e-01_rb,1.2634e-03_rb/)\n      kbo(:, 3,49,10) = (/ &\n     &9.6365e-01_rb,8.0857e-01_rb,5.6081e-01_rb,2.9418e-01_rb,1.8795e-03_rb/)\n      kbo(:, 4,49,10) = (/ &\n     &1.5457e+00_rb,1.2894e+00_rb,8.9458e-01_rb,4.6973e-01_rb,2.7104e-03_rb/)\n      kbo(:, 5,49,10) = (/ &\n     &2.3812e+00_rb,1.9755e+00_rb,1.3708e+00_rb,7.1925e-01_rb,3.6105e-03_rb/)\n      kbo(:, 1,50,10) = (/ &\n     &2.5998e-01_rb,2.1962e-01_rb,1.5188e-01_rb,7.9506e-02_rb,6.0363e-04_rb/)\n      kbo(:, 2,50,10) = (/ &\n     &4.5974e-01_rb,3.8940e-01_rb,2.6982e-01_rb,1.4155e-01_rb,9.5023e-04_rb/)\n      kbo(:, 3,50,10) = (/ &\n     &7.8578e-01_rb,6.6189e-01_rb,4.5931e-01_rb,2.4091e-01_rb,1.4366e-03_rb/)\n      kbo(:, 4,50,10) = (/ &\n     &1.2930e+00_rb,1.0829e+00_rb,7.5147e-01_rb,3.9450e-01_rb,2.1250e-03_rb/)\n      kbo(:, 5,50,10) = (/ &\n     &2.0418e+00_rb,1.6990e+00_rb,1.1790e+00_rb,6.1880e-01_rb,2.8716e-03_rb/)\n      kbo(:, 1,51,10) = (/ &\n     &2.0132e-01_rb,1.6910e-01_rb,1.1674e-01_rb,6.1107e-02_rb,4.4485e-04_rb/)\n      kbo(:, 2,51,10) = (/ &\n     &3.6041e-01_rb,3.0656e-01_rb,2.1282e-01_rb,1.1161e-01_rb,7.3157e-04_rb/)\n      kbo(:, 3,51,10) = (/ &\n     &6.3582e-01_rb,5.3869e-01_rb,3.7423e-01_rb,1.9656e-01_rb,1.1225e-03_rb/)\n      kbo(:, 4,51,10) = (/ &\n     &1.0802e+00_rb,9.0777e-01_rb,6.3030e-01_rb,3.3074e-01_rb,1.6531e-03_rb/)\n      kbo(:, 5,51,10) = (/ &\n     &1.7498e+00_rb,1.4602e+00_rb,1.0135e+00_rb,5.3219e-01_rb,2.3172e-03_rb/)\n      kbo(:, 1,52,10) = (/ &\n     &1.5547e-01_rb,1.3052e-01_rb,9.0061e-02_rb,4.7075e-02_rb,3.3160e-04_rb/)\n      kbo(:, 2,52,10) = (/ &\n     &2.8347e-01_rb,2.4049e-01_rb,1.6666e-01_rb,8.7433e-02_rb,5.5078e-04_rb/)\n      kbo(:, 3,52,10) = (/ &\n     &5.1184e-01_rb,4.3501e-01_rb,3.0211e-01_rb,1.5868e-01_rb,8.7008e-04_rb/)\n      kbo(:, 4,52,10) = (/ &\n     &8.9697e-01_rb,7.5690e-01_rb,5.2561e-01_rb,2.7576e-01_rb,1.2672e-03_rb/)\n      kbo(:, 5,52,10) = (/ &\n     &1.4927e+00_rb,1.2493e+00_rb,8.6741e-01_rb,4.5551e-01_rb,1.8458e-03_rb/)\n      kbo(:, 1,53,10) = (/ &\n     &1.2003e-01_rb,1.0051e-01_rb,6.9268e-02_rb,3.6248e-02_rb,2.4457e-04_rb/)\n      kbo(:, 2,53,10) = (/ &\n     &2.2120e-01_rb,1.8754e-01_rb,1.2989e-01_rb,6.8226e-02_rb,4.0791e-04_rb/)\n      kbo(:, 3,53,10) = (/ &\n     &4.0694e-01_rb,3.4775e-01_rb,2.4176e-01_rb,1.2712e-01_rb,6.5057e-04_rb/)\n      kbo(:, 4,53,10) = (/ &\n     &7.3824e-01_rb,6.2670e-01_rb,4.3556e-01_rb,2.2862e-01_rb,9.8738e-04_rb/)\n      kbo(:, 5,53,10) = (/ &\n     &1.2666e+00_rb,1.0632e+00_rb,7.3852e-01_rb,3.8765e-01_rb,1.4077e-03_rb/)\n      kbo(:, 1,54,10) = (/ &\n     &9.3960e-02_rb,7.8771e-02_rb,5.4240e-02_rb,2.8401e-02_rb,1.9316e-04_rb/)\n      kbo(:, 2,54,10) = (/ &\n     &1.7676e-01_rb,1.4984e-01_rb,1.0336e-01_rb,5.4121e-02_rb,3.1568e-04_rb/)\n      kbo(:, 3,54,10) = (/ &\n     &3.2867e-01_rb,2.7969e-01_rb,1.9447e-01_rb,1.0231e-01_rb,5.2512e-04_rb/)\n      kbo(:, 4,54,10) = (/ &\n     &6.0965e-01_rb,5.1980e-01_rb,3.6169e-01_rb,1.9003e-01_rb,8.0976e-04_rb/)\n      kbo(:, 5,54,10) = (/ &\n     &1.0822e+00_rb,9.1223e-01_rb,6.3374e-01_rb,3.3269e-01_rb,1.1750e-03_rb/)\n      kbo(:, 1,55,10) = (/ &\n     &7.3906e-02_rb,6.2107e-02_rb,4.2864e-02_rb,2.2445e-02_rb,1.5599e-04_rb/)\n      kbo(:, 2,55,10) = (/ &\n     &1.4369e-01_rb,1.2050e-01_rb,8.3134e-02_rb,4.3567e-02_rb,2.5335e-04_rb/)\n      kbo(:, 3,55,10) = (/ &\n     &2.6760e-01_rb,2.2827e-01_rb,1.5835e-01_rb,8.3096e-02_rb,4.2909e-04_rb/)\n      kbo(:, 4,55,10) = (/ &\n     &5.0351e-01_rb,4.3105e-01_rb,3.0006e-01_rb,1.5782e-01_rb,6.9202e-04_rb/)\n      kbo(:, 5,55,10) = (/ &\n     &9.2458e-01_rb,7.8288e-01_rb,5.4396e-01_rb,2.8582e-01_rb,1.0207e-03_rb/)\n      kbo(:, 1,56,10) = (/ &\n     &5.7777e-02_rb,4.8496e-02_rb,3.3489e-02_rb,1.7579e-02_rb,1.2442e-04_rb/)\n      kbo(:, 2,56,10) = (/ &\n     &1.1665e-01_rb,9.7805e-02_rb,6.7433e-02_rb,3.5342e-02_rb,2.0689e-04_rb/)\n      kbo(:, 3,56,10) = (/ &\n     &2.1880e-01_rb,1.8636e-01_rb,1.2905e-01_rb,6.7804e-02_rb,3.5149e-04_rb/)\n      kbo(:, 4,56,10) = (/ &\n     &4.1579e-01_rb,3.5633e-01_rb,2.4779e-01_rb,1.3043e-01_rb,5.7437e-04_rb/)\n      kbo(:, 5,56,10) = (/ &\n     &7.8392e-01_rb,6.6810e-01_rb,4.6498e-01_rb,2.4434e-01_rb,8.7392e-04_rb/)\n      kbo(:, 1,57,10) = (/ &\n     &4.4962e-02_rb,3.7745e-02_rb,2.6020e-02_rb,1.3669e-02_rb,1.0074e-04_rb/)\n      kbo(:, 2,57,10) = (/ &\n     &9.3975e-02_rb,7.9039e-02_rb,5.4468e-02_rb,2.8583e-02_rb,1.6888e-04_rb/)\n      kbo(:, 3,57,10) = (/ &\n     &1.8083e-01_rb,1.5305e-01_rb,1.0598e-01_rb,5.5519e-02_rb,2.8180e-04_rb/)\n      kbo(:, 4,57,10) = (/ &\n     &3.4541e-01_rb,2.9431e-01_rb,2.0476e-01_rb,1.0780e-01_rb,4.7931e-04_rb/)\n      kbo(:, 5,57,10) = (/ &\n     &6.6212e-01_rb,5.6589e-01_rb,3.9390e-01_rb,2.0726e-01_rb,7.5979e-04_rb/)\n      kbo(:, 1,58,10) = (/ &\n     &1.7062e-02_rb,1.6422e-02_rb,1.3301e-02_rb,8.4676e-03_rb,8.2142e-05_rb/)\n      kbo(:, 2,58,10) = (/ &\n     &3.7044e-02_rb,3.5791e-02_rb,2.8933e-02_rb,1.8344e-02_rb,1.3979e-04_rb/)\n      kbo(:, 3,58,10) = (/ &\n     &7.3627e-02_rb,7.1176e-02_rb,5.7648e-02_rb,3.6534e-02_rb,2.3072e-04_rb/)\n      kbo(:, 4,58,10) = (/ &\n     &1.4036e-01_rb,1.3776e-01_rb,1.1219e-01_rb,7.1459e-02_rb,4.0521e-04_rb/)\n      kbo(:, 5,58,10) = (/ &\n     &2.7375e-01_rb,2.6857e-01_rb,2.1925e-01_rb,1.3965e-01_rb,6.6868e-04_rb/)\n      kbo(:, 1,59,10) = (/ &\n     &1.5026e-02_rb,1.4620e-02_rb,1.1891e-02_rb,7.6139e-03_rb,7.7772e-05_rb/)\n      kbo(:, 2,59,10) = (/ &\n     &3.3598e-02_rb,3.2618e-02_rb,2.6475e-02_rb,1.6873e-02_rb,1.3363e-04_rb/)\n      kbo(:, 3,59,10) = (/ &\n     &6.7778e-02_rb,6.5724e-02_rb,5.3548e-02_rb,3.4085e-02_rb,2.3127e-04_rb/)\n      kbo(:, 4,59,10) = (/ &\n     &1.2973e-01_rb,1.2749e-01_rb,1.0439e-01_rb,6.6705e-02_rb,3.9949e-04_rb/)\n      kbo(:, 5,59,10) = (/ &\n     &2.5383e-01_rb,2.5006e-01_rb,2.0520e-01_rb,1.3156e-01_rb,6.6551e-04_rb/)\n      kbo(:, 1,13,11) = (/ &\n     &6.1162e+01_rb,4.5871e+01_rb,3.0581e+01_rb,1.5291e+01_rb,3.0501e-01_rb/)\n      kbo(:, 2,13,11) = (/ &\n     &8.6643e+01_rb,6.4984e+01_rb,4.3324e+01_rb,2.1662e+01_rb,3.8069e-01_rb/)\n      kbo(:, 3,13,11) = (/ &\n     &1.1700e+02_rb,8.7751e+01_rb,5.8502e+01_rb,2.9250e+01_rb,4.9491e-01_rb/)\n      kbo(:, 4,13,11) = (/ &\n     &1.5190e+02_rb,1.1392e+02_rb,7.5955e+01_rb,3.7977e+01_rb,5.7908e-01_rb/)\n      kbo(:, 5,13,11) = (/ &\n     &1.9085e+02_rb,1.4314e+02_rb,9.5429e+01_rb,4.7715e+01_rb,6.6979e-01_rb/)\n      kbo(:, 1,14,11) = (/ &\n     &6.2014e+01_rb,4.6511e+01_rb,3.1007e+01_rb,1.5504e+01_rb,3.5592e-01_rb/)\n      kbo(:, 2,14,11) = (/ &\n     &8.7238e+01_rb,6.5431e+01_rb,4.3621e+01_rb,2.1811e+01_rb,3.9219e-01_rb/)\n      kbo(:, 3,14,11) = (/ &\n     &1.1714e+02_rb,8.7851e+01_rb,5.8570e+01_rb,2.9287e+01_rb,4.4292e-01_rb/)\n      kbo(:, 4,14,11) = (/ &\n     &1.5139e+02_rb,1.1354e+02_rb,7.5699e+01_rb,3.7864e+01_rb,5.2460e-01_rb/)\n      kbo(:, 5,14,11) = (/ &\n     &1.8982e+02_rb,1.4235e+02_rb,9.4908e+01_rb,4.7484e+01_rb,6.6257e-01_rb/)\n      kbo(:, 1,15,11) = (/ &\n     &5.9186e+01_rb,4.4388e+01_rb,2.9592e+01_rb,1.4841e+01_rb,3.2021e-01_rb/)\n      kbo(:, 2,15,11) = (/ &\n     &8.2638e+01_rb,6.1979e+01_rb,4.1319e+01_rb,2.0713e+01_rb,3.7708e-01_rb/)\n      kbo(:, 3,15,11) = (/ &\n     &1.1028e+02_rb,8.2716e+01_rb,5.5144e+01_rb,2.7652e+01_rb,4.6488e-01_rb/)\n      kbo(:, 4,15,11) = (/ &\n     &1.4201e+02_rb,1.0651e+02_rb,7.1008e+01_rb,3.5635e+01_rb,5.3643e-01_rb/)\n      kbo(:, 5,15,11) = (/ &\n     &1.7780e+02_rb,1.3336e+02_rb,8.8908e+01_rb,4.4680e+01_rb,6.1809e-01_rb/)\n      kbo(:, 1,16,11) = (/ &\n     &5.3877e+01_rb,4.0407e+01_rb,2.6940e+01_rb,1.3617e+01_rb,3.0459e-01_rb/)\n      kbo(:, 2,16,11) = (/ &\n     &7.4732e+01_rb,5.6052e+01_rb,3.7368e+01_rb,1.8895e+01_rb,3.6381e-01_rb/)\n      kbo(:, 3,16,11) = (/ &\n     &9.9303e+01_rb,7.4473e+01_rb,4.9649e+01_rb,2.5124e+01_rb,4.2325e-01_rb/)\n      kbo(:, 4,16,11) = (/ &\n     &1.2768e+02_rb,9.5754e+01_rb,6.3837e+01_rb,3.2325e+01_rb,4.7285e-01_rb/)\n      kbo(:, 5,16,11) = (/ &\n     &1.5927e+02_rb,1.1945e+02_rb,7.9632e+01_rb,4.0351e+01_rb,5.0976e-01_rb/)\n      kbo(:, 1,17,11) = (/ &\n     &4.7648e+01_rb,3.5735e+01_rb,2.3823e+01_rb,1.2164e+01_rb,2.5744e-01_rb/)\n      kbo(:, 2,17,11) = (/ &\n     &6.5724e+01_rb,4.9293e+01_rb,3.2863e+01_rb,1.6792e+01_rb,3.1059e-01_rb/)\n      kbo(:, 3,17,11) = (/ &\n     &8.7138e+01_rb,6.5349e+01_rb,4.3569e+01_rb,2.2270e+01_rb,3.5847e-01_rb/)\n      kbo(:, 4,17,11) = (/ &\n     &1.1169e+02_rb,8.3769e+01_rb,5.5845e+01_rb,2.8543e+01_rb,4.0184e-01_rb/)\n      kbo(:, 5,17,11) = (/ &\n     &1.3846e+02_rb,1.0385e+02_rb,6.9237e+01_rb,3.5386e+01_rb,4.6254e-01_rb/)\n      kbo(:, 1,18,11) = (/ &\n     &4.0731e+01_rb,3.0550e+01_rb,2.0398e+01_rb,1.0482e+01_rb,2.2929e-01_rb/)\n      kbo(:, 2,18,11) = (/ &\n     &5.6038e+01_rb,4.2027e+01_rb,2.8058e+01_rb,1.4421e+01_rb,2.6841e-01_rb/)\n      kbo(:, 3,18,11) = (/ &\n     &7.4130e+01_rb,5.5602e+01_rb,3.7127e+01_rb,1.9095e+01_rb,3.0083e-01_rb/)\n      kbo(:, 4,18,11) = (/ &\n     &9.4414e+01_rb,7.0811e+01_rb,4.7323e+01_rb,2.4371e+01_rb,3.4142e-01_rb/)\n      kbo(:, 5,18,11) = (/ &\n     &1.1687e+02_rb,8.7655e+01_rb,5.8604e+01_rb,3.0228e+01_rb,3.9932e-01_rb/)\n      kbo(:, 1,19,11) = (/ &\n     &3.5043e+01_rb,2.6281e+01_rb,1.7645e+01_rb,9.0880e+00_rb,1.9041e-01_rb/)\n      kbo(:, 2,19,11) = (/ &\n     &4.8095e+01_rb,3.6072e+01_rb,2.4224e+01_rb,1.2500e+01_rb,2.2005e-01_rb/)\n      kbo(:, 3,19,11) = (/ &\n     &6.3280e+01_rb,4.7465e+01_rb,3.1884e+01_rb,1.6505e+01_rb,2.5190e-01_rb/)\n      kbo(:, 4,19,11) = (/ &\n     &8.0459e+01_rb,6.0352e+01_rb,4.0562e+01_rb,2.1050e+01_rb,3.0347e-01_rb/)\n      kbo(:, 5,19,11) = (/ &\n     &9.9405e+01_rb,7.4555e+01_rb,5.0141e+01_rb,2.6072e+01_rb,3.3814e-01_rb/)\n      kbo(:, 1,20,11) = (/ &\n     &3.0698e+01_rb,2.3028e+01_rb,1.5559e+01_rb,8.0744e+00_rb,1.6851e-01_rb/)\n      kbo(:, 2,20,11) = (/ &\n     &4.1938e+01_rb,3.1449e+01_rb,2.1266e+01_rb,1.1075e+01_rb,1.9604e-01_rb/)\n      kbo(:, 3,20,11) = (/ &\n     &5.4971e+01_rb,4.1226e+01_rb,2.7873e+01_rb,1.4553e+01_rb,2.3334e-01_rb/)\n      kbo(:, 4,20,11) = (/ &\n     &6.9683e+01_rb,5.2264e+01_rb,3.5322e+01_rb,1.8474e+01_rb,2.8155e-01_rb/)\n      kbo(:, 5,20,11) = (/ &\n     &8.5796e+01_rb,6.4350e+01_rb,4.3496e+01_rb,2.2781e+01_rb,3.1819e-01_rb/)\n      kbo(:, 1,21,11) = (/ &\n     &2.6961e+01_rb,2.0239e+01_rb,1.3721e+01_rb,7.2357e+00_rb,1.5633e-01_rb/)\n      kbo(:, 2,21,11) = (/ &\n     &3.6624e+01_rb,2.7486e+01_rb,1.8642e+01_rb,9.8382e+00_rb,1.8477e-01_rb/)\n      kbo(:, 3,21,11) = (/ &\n     &4.7842e+01_rb,3.5913e+01_rb,2.4362e+01_rb,1.2852e+01_rb,2.2793e-01_rb/)\n      kbo(:, 4,21,11) = (/ &\n     &6.0403e+01_rb,4.5355e+01_rb,3.0794e+01_rb,1.6247e+01_rb,2.5875e-01_rb/)\n      kbo(:, 5,21,11) = (/ &\n     &7.4328e+01_rb,5.5827e+01_rb,3.7921e+01_rb,1.9978e+01_rb,3.0003e-01_rb/)\n      kbo(:, 1,22,11) = (/ &\n     &2.4106e+01_rb,1.8145e+01_rb,1.2318e+01_rb,6.5788e+00_rb,1.4346e-01_rb/)\n      kbo(:, 2,22,11) = (/ &\n     &3.2489e+01_rb,2.4455e+01_rb,1.6620e+01_rb,8.8645e+00_rb,1.7673e-01_rb/)\n      kbo(:, 3,22,11) = (/ &\n     &4.2111e+01_rb,3.1704e+01_rb,2.1585e+01_rb,1.1502e+01_rb,2.1135e-01_rb/)\n      kbo(:, 4,22,11) = (/ &\n     &5.3091e+01_rb,3.9979e+01_rb,2.7248e+01_rb,1.4479e+01_rb,2.4545e-01_rb/)\n      kbo(:, 5,22,11) = (/ &\n     &6.5531e+01_rb,4.9344e+01_rb,3.3661e+01_rb,1.7840e+01_rb,2.8184e-01_rb/)\n      kbo(:, 1,23,11) = (/ &\n     &2.1586e+01_rb,1.6314e+01_rb,1.1115e+01_rb,5.9696e+00_rb,1.3118e-01_rb/)\n      kbo(:, 2,23,11) = (/ &\n     &2.8872e+01_rb,2.1824e+01_rb,1.4900e+01_rb,7.9884e+00_rb,1.6791e-01_rb/)\n      kbo(:, 3,23,11) = (/ &\n     &3.7392e+01_rb,2.8256e+01_rb,1.9318e+01_rb,1.0333e+01_rb,1.9239e-01_rb/)\n      kbo(:, 4,23,11) = (/ &\n     &4.7286e+01_rb,3.5715e+01_rb,2.4417e+01_rb,1.3025e+01_rb,2.2854e-01_rb/)\n      kbo(:, 5,23,11) = (/ &\n     &5.8587e+01_rb,4.4225e+01_rb,3.0228e+01_rb,1.6103e+01_rb,2.6383e-01_rb/)\n      kbo(:, 1,24,11) = (/ &\n     &1.9610e+01_rb,1.4859e+01_rb,1.0204e+01_rb,5.4843e+00_rb,1.2305e-01_rb/)\n      kbo(:, 2,24,11) = (/ &\n     &2.6168e+01_rb,1.9825e+01_rb,1.3617e+01_rb,7.3028e+00_rb,1.4696e-01_rb/)\n      kbo(:, 3,24,11) = (/ &\n     &3.4009e+01_rb,2.5754e+01_rb,1.7666e+01_rb,9.4475e+00_rb,1.7619e-01_rb/)\n      kbo(:, 4,24,11) = (/ &\n     &4.3202e+01_rb,3.2697e+01_rb,2.2398e+01_rb,1.1966e+01_rb,2.0711e-01_rb/)\n      kbo(:, 5,24,11) = (/ &\n     &5.3950e+01_rb,4.0810e+01_rb,2.7914e+01_rb,1.4881e+01_rb,2.4491e-01_rb/)\n      kbo(:, 1,25,11) = (/ &\n     &1.7913e+01_rb,1.3599e+01_rb,9.4137e+00_rb,5.0616e+00_rb,1.1244e-01_rb/)\n      kbo(:, 2,25,11) = (/ &\n     &2.4002e+01_rb,1.8218e+01_rb,1.2577e+01_rb,6.7433e+00_rb,1.3574e-01_rb/)\n      kbo(:, 3,25,11) = (/ &\n     &3.1373e+01_rb,2.3808e+01_rb,1.6390e+01_rb,8.7732e+00_rb,1.6587e-01_rb/)\n      kbo(:, 4,25,11) = (/ &\n     &4.0212e+01_rb,3.0510e+01_rb,2.0949e+01_rb,1.1182e+01_rb,1.9353e-01_rb/)\n      kbo(:, 5,25,11) = (/ &\n     &5.0507e+01_rb,3.8314e+01_rb,2.6252e+01_rb,1.3993e+01_rb,2.2689e-01_rb/)\n      kbo(:, 1,26,11) = (/ &\n     &1.6610e+01_rb,1.2648e+01_rb,8.7899e+00_rb,4.7180e+00_rb,1.0410e-01_rb/)\n      kbo(:, 2,26,11) = (/ &\n     &2.2395e+01_rb,1.7048e+01_rb,1.1804e+01_rb,6.3257e+00_rb,1.2812e-01_rb/)\n      kbo(:, 3,26,11) = (/ &\n     &2.9495e+01_rb,2.2453e+01_rb,1.5498e+01_rb,8.2851e+00_rb,1.5321e-01_rb/)\n      kbo(:, 4,26,11) = (/ &\n     &3.7868e+01_rb,2.8829e+01_rb,1.9854e+01_rb,1.0593e+01_rb,1.8381e-01_rb/)\n      kbo(:, 5,26,11) = (/ &\n     &4.7321e+01_rb,3.6030e+01_rb,2.4795e+01_rb,1.3247e+01_rb,2.1577e-01_rb/)\n      kbo(:, 1,27,11) = (/ &\n     &1.5552e+01_rb,1.1893e+01_rb,8.2787e+00_rb,4.4401e+00_rb,9.5478e-02_rb/)\n      kbo(:, 2,27,11) = (/ &\n     &2.1129e+01_rb,1.6157e+01_rb,1.1211e+01_rb,5.9970e+00_rb,1.1930e-01_rb/)\n      kbo(:, 3,27,11) = (/ &\n     &2.7798e+01_rb,2.1248e+01_rb,1.4714e+01_rb,7.8588e+00_rb,1.4147e-01_rb/)\n      kbo(:, 4,27,11) = (/ &\n     &3.5437e+01_rb,2.7084e+01_rb,1.8740e+01_rb,1.0024e+01_rb,1.6966e-01_rb/)\n      kbo(:, 5,27,11) = (/ &\n     &4.4196e+01_rb,3.3778e+01_rb,2.3350e+01_rb,1.2494e+01_rb,2.0142e-01_rb/)\n      kbo(:, 1,28,11) = (/ &\n     &1.4683e+01_rb,1.1292e+01_rb,7.8718e+00_rb,4.2106e+00_rb,8.7356e-02_rb/)\n      kbo(:, 2,28,11) = (/ &\n     &1.9886e+01_rb,1.5281e+01_rb,1.0638e+01_rb,5.6861e+00_rb,1.0714e-01_rb/)\n      kbo(:, 3,28,11) = (/ &\n     &2.5973e+01_rb,1.9937e+01_rb,1.3871e+01_rb,7.4210e+00_rb,1.3061e-01_rb/)\n      kbo(:, 4,28,11) = (/ &\n     &3.3032e+01_rb,2.5345e+01_rb,1.7630e+01_rb,9.4399e+00_rb,1.5744e-01_rb/)\n      kbo(:, 5,28,11) = (/ &\n     &4.1210e+01_rb,3.1582e+01_rb,2.1933e+01_rb,1.1759e+01_rb,1.8456e-01_rb/)\n      kbo(:, 1,29,11) = (/ &\n     &1.3790e+01_rb,1.0662e+01_rb,7.4451e+00_rb,3.9766e+00_rb,7.8021e-02_rb/)\n      kbo(:, 2,29,11) = (/ &\n     &1.8507e+01_rb,1.4288e+01_rb,9.9758e+00_rb,5.3363e+00_rb,9.5820e-02_rb/)\n      kbo(:, 3,29,11) = (/ &\n     &2.4091e+01_rb,1.8575e+01_rb,1.2977e+01_rb,6.9398e+00_rb,1.1898e-01_rb/)\n      kbo(:, 4,29,11) = (/ &\n     &3.0652e+01_rb,2.3593e+01_rb,1.6474e+01_rb,8.8251e+00_rb,1.4373e-01_rb/)\n      kbo(:, 5,29,11) = (/ &\n     &3.8268e+01_rb,2.9419e+01_rb,2.0534e+01_rb,1.1026e+01_rb,1.6837e-01_rb/)\n      kbo(:, 1,30,11) = (/ &\n     &1.2835e+01_rb,9.9842e+00_rb,6.9893e+00_rb,3.7286e+00_rb,6.9765e-02_rb/)\n      kbo(:, 2,30,11) = (/ &\n     &1.7126e+01_rb,1.3305e+01_rb,9.3238e+00_rb,4.9785e+00_rb,8.7990e-02_rb/)\n      kbo(:, 3,30,11) = (/ &\n     &2.2319e+01_rb,1.7278e+01_rb,1.2100e+01_rb,6.4728e+00_rb,1.0830e-01_rb/)\n      kbo(:, 4,30,11) = (/ &\n     &2.8412e+01_rb,2.1956e+01_rb,1.5383e+01_rb,8.2493e+00_rb,1.2854e-01_rb/)\n      kbo(:, 5,30,11) = (/ &\n     &3.5540e+01_rb,2.7422e+01_rb,1.9221e+01_rb,1.0332e+01_rb,1.5041e-01_rb/)\n      kbo(:, 1,31,11) = (/ &\n     &1.1866e+01_rb,9.2840e+00_rb,6.5153e+00_rb,3.4693e+00_rb,6.2880e-02_rb/)\n      kbo(:, 2,31,11) = (/ &\n     &1.5808e+01_rb,1.2342e+01_rb,8.6596e+00_rb,4.6193e+00_rb,7.8616e-02_rb/)\n      kbo(:, 3,31,11) = (/ &\n     &2.0587e+01_rb,1.6022e+01_rb,1.1250e+01_rb,6.0171e+00_rb,9.4908e-02_rb/)\n      kbo(:, 4,31,11) = (/ &\n     &2.6251e+01_rb,2.0378e+01_rb,1.4318e+01_rb,7.6818e+00_rb,1.1384e-01_rb/)\n      kbo(:, 5,31,11) = (/ &\n     &3.2893e+01_rb,2.5487e+01_rb,1.7928e+01_rb,9.6467e+00_rb,1.3241e-01_rb/)\n      kbo(:, 1,32,11) = (/ &\n     &1.1095e+01_rb,8.7224e+00_rb,6.1226e+00_rb,3.2519e+00_rb,5.6839e-02_rb/)\n      kbo(:, 2,32,11) = (/ &\n     &1.4751e+01_rb,1.1560e+01_rb,8.1226e+00_rb,4.3325e+00_rb,7.0855e-02_rb/)\n      kbo(:, 3,32,11) = (/ &\n     &1.9205e+01_rb,1.5015e+01_rb,1.0554e+01_rb,5.6424e+00_rb,8.5721e-02_rb/)\n      kbo(:, 4,32,11) = (/ &\n     &2.4504e+01_rb,1.9119e+01_rb,1.3461e+01_rb,7.2214e+00_rb,1.0137e-01_rb/)\n      kbo(:, 5,32,11) = (/ &\n     &3.0723e+01_rb,2.3918e+01_rb,1.6887e+01_rb,9.0922e+00_rb,1.2101e-01_rb/)\n      kbo(:, 1,33,11) = (/ &\n     &1.0469e+01_rb,8.2653e+00_rb,5.8027e+00_rb,3.0803e+00_rb,5.1389e-02_rb/)\n      kbo(:, 2,33,11) = (/ &\n     &1.3905e+01_rb,1.0963e+01_rb,7.7038e+00_rb,4.0998e+00_rb,6.3408e-02_rb/)\n      kbo(:, 3,33,11) = (/ &\n     &1.8080e+01_rb,1.4209e+01_rb,9.9969e+00_rb,5.3421e+00_rb,7.7128e-02_rb/)\n      kbo(:, 4,33,11) = (/ &\n     &2.3055e+01_rb,1.8085e+01_rb,1.2765e+01_rb,6.8504e+00_rb,9.2141e-02_rb/)\n      kbo(:, 5,33,11) = (/ &\n     &2.8901e+01_rb,2.2629e+01_rb,1.6031e+01_rb,8.6400e+00_rb,1.0949e-01_rb/)\n      kbo(:, 1,34,11) = (/ &\n     &9.9524e+00_rb,7.8988e+00_rb,5.5437e+00_rb,2.9382e+00_rb,4.7321e-02_rb/)\n      kbo(:, 2,34,11) = (/ &\n     &1.3224e+01_rb,1.0461e+01_rb,7.3463e+00_rb,3.9087e+00_rb,5.8418e-02_rb/)\n      kbo(:, 3,34,11) = (/ &\n     &1.7166e+01_rb,1.3560e+01_rb,9.5537e+00_rb,5.1034e+00_rb,7.0181e-02_rb/)\n      kbo(:, 4,34,11) = (/ &\n     &2.1887e+01_rb,1.7264e+01_rb,1.2211e+01_rb,6.5526e+00_rb,8.4706e-02_rb/)\n      kbo(:, 5,34,11) = (/ &\n     &2.7487e+01_rb,2.1622e+01_rb,1.5350e+01_rb,8.2698e+00_rb,9.8588e-02_rb/)\n      kbo(:, 1,35,11) = (/ &\n     &9.2896e+00_rb,7.3988e+00_rb,5.1836e+00_rb,2.7478e+00_rb,4.1417e-02_rb/)\n      kbo(:, 2,35,11) = (/ &\n     &1.2346e+01_rb,9.8120e+00_rb,6.8895e+00_rb,3.6621e+00_rb,5.1614e-02_rb/)\n      kbo(:, 3,35,11) = (/ &\n     &1.6038e+01_rb,1.2737e+01_rb,8.9856e+00_rb,4.7992e+00_rb,6.2173e-02_rb/)\n      kbo(:, 4,35,11) = (/ &\n     &2.0501e+01_rb,1.6246e+01_rb,1.1507e+01_rb,6.1715e+00_rb,7.4346e-02_rb/)\n      kbo(:, 5,35,11) = (/ &\n     &2.5865e+01_rb,2.0429e+01_rb,1.4515e+01_rb,7.8139e+00_rb,8.6989e-02_rb/)\n      kbo(:, 1,36,11) = (/ &\n     &8.4641e+00_rb,6.7680e+00_rb,4.7384e+00_rb,2.5089e+00_rb,3.5370e-02_rb/)\n      kbo(:, 2,36,11) = (/ &\n     &1.1283e+01_rb,9.0077e+00_rb,6.3272e+00_rb,3.3586e+00_rb,4.3427e-02_rb/)\n      kbo(:, 3,36,11) = (/ &\n     &1.4709e+01_rb,1.1740e+01_rb,8.2852e+00_rb,4.4192e+00_rb,5.3699e-02_rb/)\n      kbo(:, 4,36,11) = (/ &\n     &1.8892e+01_rb,1.5035e+01_rb,1.0652e+01_rb,5.7082e+00_rb,6.4287e-02_rb/)\n      kbo(:, 5,36,11) = (/ &\n     &2.3976e+01_rb,1.9028e+01_rb,1.3526e+01_rb,7.2706e+00_rb,7.5870e-02_rb/)\n      kbo(:, 1,37,11) = (/ &\n     &7.4506e+00_rb,5.9897e+00_rb,4.1905e+00_rb,2.2153e+00_rb,2.9963e-02_rb/)\n      kbo(:, 2,37,11) = (/ &\n     &1.0029e+01_rb,8.0389e+00_rb,5.6426e+00_rb,2.9898e+00_rb,3.7220e-02_rb/)\n      kbo(:, 3,37,11) = (/ &\n     &1.3144e+01_rb,1.0534e+01_rb,7.4309e+00_rb,3.9559e+00_rb,4.6416e-02_rb/)\n      kbo(:, 4,37,11) = (/ &\n     &1.6999e+01_rb,1.3585e+01_rb,9.6217e+00_rb,5.1490e+00_rb,5.5486e-02_rb/)\n      kbo(:, 5,37,11) = (/ &\n     &2.1741e+01_rb,1.7327e+01_rb,1.2322e+01_rb,6.6152e+00_rb,6.5816e-02_rb/)\n      kbo(:, 1,38,11) = (/ &\n     &6.5566e+00_rb,5.3014e+00_rb,3.7057e+00_rb,1.9579e+00_rb,2.5356e-02_rb/)\n      kbo(:, 2,38,11) = (/ &\n     &8.9151e+00_rb,7.1841e+00_rb,5.0400e+00_rb,2.6656e+00_rb,3.1891e-02_rb/)\n      kbo(:, 3,38,11) = (/ &\n     &1.1778e+01_rb,9.4689e+00_rb,6.6768e+00_rb,3.5488e+00_rb,3.9709e-02_rb/)\n      kbo(:, 4,38,11) = (/ &\n     &1.5333e+01_rb,1.2304e+01_rb,8.7122e+00_rb,4.6542e+00_rb,4.7360e-02_rb/)\n      kbo(:, 5,38,11) = (/ &\n     &1.9762e+01_rb,1.5812e+01_rb,1.1244e+01_rb,6.0319e+00_rb,5.6650e-02_rb/)\n      kbo(:, 1,39,11) = (/ &\n     &5.7815e+00_rb,4.6987e+00_rb,3.2839e+00_rb,1.7336e+00_rb,2.1361e-02_rb/)\n      kbo(:, 2,39,11) = (/ &\n     &7.9403e+00_rb,6.4302e+00_rb,4.5109e+00_rb,2.3848e+00_rb,2.6909e-02_rb/)\n      kbo(:, 3,39,11) = (/ &\n     &1.0589e+01_rb,8.5486e+00_rb,6.0232e+00_rb,3.1966e+00_rb,3.3274e-02_rb/)\n      kbo(:, 4,39,11) = (/ &\n     &1.3890e+01_rb,1.1188e+01_rb,7.9191e+00_rb,4.2244e+00_rb,4.0390e-02_rb/)\n      kbo(:, 5,39,11) = (/ &\n     &1.8032e+01_rb,1.4487e+01_rb,1.0297e+01_rb,5.5201e+00_rb,4.8824e-02_rb/)\n      kbo(:, 1,40,11) = (/ &\n     &4.9663e+00_rb,4.0580e+00_rb,2.8368e+00_rb,1.4961e+00_rb,1.7977e-02_rb/)\n      kbo(:, 2,40,11) = (/ &\n     &6.9269e+00_rb,5.6391e+00_rb,3.9540e+00_rb,2.0894e+00_rb,2.2949e-02_rb/)\n      kbo(:, 3,40,11) = (/ &\n     &9.3578e+00_rb,7.5891e+00_rb,5.3452e+00_rb,2.8327e+00_rb,2.8350e-02_rb/)\n      kbo(:, 4,40,11) = (/ &\n     &1.2407e+01_rb,1.0028e+01_rb,7.0894e+00_rb,3.7744e+00_rb,3.4399e-02_rb/)\n      kbo(:, 5,40,11) = (/ &\n     &1.6240e+01_rb,1.3091e+01_rb,9.2991e+00_rb,4.9787e+00_rb,4.2027e-02_rb/)\n      kbo(:, 1,41,11) = (/ &\n     &4.2485e+00_rb,3.4862e+00_rb,2.4352e+00_rb,1.2849e+00_rb,1.5088e-02_rb/)\n      kbo(:, 2,41,11) = (/ &\n     &6.0166e+00_rb,4.9271e+00_rb,3.4537e+00_rb,1.8243e+00_rb,1.9453e-02_rb/)\n      kbo(:, 3,41,11) = (/ &\n     &8.2485e+00_rb,6.7221e+00_rb,4.7321e+00_rb,2.5060e+00_rb,2.4198e-02_rb/)\n      kbo(:, 4,41,11) = (/ &\n     &1.1066e+01_rb,8.9791e+00_rb,6.3459e+00_rb,3.3734e+00_rb,2.9570e-02_rb/)\n      kbo(:, 5,41,11) = (/ &\n     &1.4636e+01_rb,1.1834e+01_rb,8.3996e+00_rb,4.4886e+00_rb,3.6128e-02_rb/)\n      kbo(:, 1,42,11) = (/ &\n     &3.6346e+00_rb,2.9948e+00_rb,2.0896e+00_rb,1.1018e+00_rb,1.2599e-02_rb/)\n      kbo(:, 2,42,11) = (/ &\n     &5.2244e+00_rb,4.2974e+00_rb,3.0116e+00_rb,1.5911e+00_rb,1.6323e-02_rb/)\n      kbo(:, 3,42,11) = (/ &\n     &7.2643e+00_rb,5.9499e+00_rb,4.1877e+00_rb,2.2172e+00_rb,2.0619e-02_rb/)\n      kbo(:, 4,42,11) = (/ &\n     &9.8747e+00_rb,8.0447e+00_rb,5.6854e+00_rb,3.0206e+00_rb,2.5282e-02_rb/)\n      kbo(:, 5,42,11) = (/ &\n     &1.3206e+01_rb,1.0716e+01_rb,7.6001e+00_rb,4.0544e+00_rb,3.0876e-02_rb/)\n      kbo(:, 1,43,11) = (/ &\n     &3.0660e+00_rb,2.5370e+00_rb,1.7687e+00_rb,9.3216e-01_rb,1.0308e-02_rb/)\n      kbo(:, 2,43,11) = (/ &\n     &4.4856e+00_rb,3.7056e+00_rb,2.5945e+00_rb,1.3700e+00_rb,1.3601e-02_rb/)\n      kbo(:, 3,43,11) = (/ &\n     &6.3372e+00_rb,5.2140e+00_rb,3.6676e+00_rb,1.9419e+00_rb,1.7306e-02_rb/)\n      kbo(:, 4,43,11) = (/ &\n     &8.7409e+00_rb,7.1536e+00_rb,5.0545e+00_rb,2.6839e+00_rb,2.1526e-02_rb/)\n      kbo(:, 5,43,11) = (/ &\n     &1.1846e+01_rb,9.6432e+00_rb,6.8374e+00_rb,3.6437e+00_rb,2.6238e-02_rb/)\n      kbo(:, 1,44,11) = (/ &\n     &2.5664e+00_rb,2.1306e+00_rb,1.4853e+00_rb,7.8185e-01_rb,8.3390e-03_rb/)\n      kbo(:, 2,44,11) = (/ &\n     &3.8265e+00_rb,3.1748e+00_rb,2.2204e+00_rb,1.1717e+00_rb,1.1111e-02_rb/)\n      kbo(:, 3,44,11) = (/ &\n     &5.5006e+00_rb,4.5418e+00_rb,3.1915e+00_rb,1.6892e+00_rb,1.4312e-02_rb/)\n      kbo(:, 4,44,11) = (/ &\n     &7.6990e+00_rb,6.3295e+00_rb,4.4707e+00_rb,2.3728e+00_rb,1.8022e-02_rb/)\n      kbo(:, 5,44,11) = (/ &\n     &1.0590e+01_rb,8.6508e+00_rb,6.1308e+00_rb,3.2656e+00_rb,2.2284e-02_rb/)\n      kbo(:, 1,45,11) = (/ &\n     &2.1449e+00_rb,1.7852e+00_rb,1.2434e+00_rb,6.5459e-01_rb,6.5374e-03_rb/)\n      kbo(:, 2,45,11) = (/ &\n     &3.2586e+00_rb,2.7120e+00_rb,1.8962e+00_rb,1.0002e+00_rb,8.9661e-03_rb/)\n      kbo(:, 3,45,11) = (/ &\n     &4.7677e+00_rb,3.9512e+00_rb,2.7729e+00_rb,1.4668e+00_rb,1.1723e-02_rb/)\n      kbo(:, 4,45,11) = (/ &\n     &6.7759e+00_rb,5.5907e+00_rb,3.9459e+00_rb,2.0943e+00_rb,1.4893e-02_rb/)\n      kbo(:, 5,45,11) = (/ &\n     &9.4617e+00_rb,7.7574e+00_rb,5.4954e+00_rb,2.9257e+00_rb,1.8879e-02_rb/)\n      kbo(:, 1,46,11) = (/ &\n     &1.7693e+00_rb,1.4778e+00_rb,1.0286e+00_rb,5.4110e-01_rb,5.0474e-03_rb/)\n      kbo(:, 2,46,11) = (/ &\n     &2.7478e+00_rb,2.2930e+00_rb,1.6009e+00_rb,8.4457e-01_rb,7.0726e-03_rb/)\n      kbo(:, 3,46,11) = (/ &\n     &4.0941e+00_rb,3.4053e+00_rb,2.3875e+00_rb,1.2626e+00_rb,9.5023e-03_rb/)\n      kbo(:, 4,46,11) = (/ &\n     &5.9189e+00_rb,4.8999e+00_rb,3.4535e+00_rb,1.8324e+00_rb,1.2322e-02_rb/)\n      kbo(:, 5,46,11) = (/ &\n     &8.3887e+00_rb,6.9026e+00_rb,4.8893e+00_rb,2.6020e+00_rb,1.5617e-02_rb/)\n      kbo(:, 1,47,11) = (/ &\n     &1.4241e+00_rb,1.1941e+00_rb,8.3002e-01_rb,4.3643e-01_rb,3.7828e-03_rb/)\n      kbo(:, 2,47,11) = (/ &\n     &2.2698e+00_rb,1.8986e+00_rb,1.3247e+00_rb,6.9822e-01_rb,5.4676e-03_rb/)\n      kbo(:, 3,47,11) = (/ &\n     &3.4547e+00_rb,2.8836e+00_rb,2.0196e+00_rb,1.0678e+00_rb,7.6213e-03_rb/)\n      kbo(:, 4,47,11) = (/ &\n     &5.0871e+00_rb,4.2288e+00_rb,2.9766e+00_rb,1.5778e+00_rb,9.9658e-03_rb/)\n      kbo(:, 5,47,11) = (/ &\n     &7.3321e+00_rb,6.0542e+00_rb,4.2837e+00_rb,2.2790e+00_rb,1.3055e-02_rb/)\n      kbo(:, 1,48,11) = (/ &\n     &1.1337e+00_rb,9.5606e-01_rb,6.6479e-01_rb,3.4941e-01_rb,2.8319e-03_rb/)\n      kbo(:, 2,48,11) = (/ &\n     &1.8661e+00_rb,1.5653e+00_rb,1.0902e+00_rb,5.7432e-01_rb,4.1758e-03_rb/)\n      kbo(:, 3,48,11) = (/ &\n     &2.9045e+00_rb,2.4321e+00_rb,1.7012e+00_rb,8.9870e-01_rb,5.9617e-03_rb/)\n      kbo(:, 4,48,11) = (/ &\n     &4.3570e+00_rb,3.6357e+00_rb,2.5565e+00_rb,1.3546e+00_rb,7.9840e-03_rb/)\n      kbo(:, 5,48,11) = (/ &\n     &6.3922e+00_rb,5.2980e+00_rb,3.7432e+00_rb,1.9904e+00_rb,1.0519e-02_rb/)\n      kbo(:, 1,49,11) = (/ &\n     &8.9211e-01_rb,7.5781e-01_rb,5.2674e-01_rb,2.7699e-01_rb,2.0587e-03_rb/)\n      kbo(:, 2,49,11) = (/ &\n     &1.5203e+00_rb,1.2812e+00_rb,8.9206e-01_rb,4.6970e-01_rb,3.1077e-03_rb/)\n      kbo(:, 3,49,11) = (/ &\n     &2.4343e+00_rb,2.0415e+00_rb,1.4265e+00_rb,7.5292e-01_rb,4.5062e-03_rb/)\n      kbo(:, 4,49,11) = (/ &\n     &3.7205e+00_rb,3.1142e+00_rb,2.1868e+00_rb,1.1585e+00_rb,6.1377e-03_rb/)\n      kbo(:, 5,49,11) = (/ &\n     &5.5564e+00_rb,4.6243e+00_rb,3.2638e+00_rb,1.7346e+00_rb,8.3879e-03_rb/)\n      kbo(:, 1,50,11) = (/ &\n     &6.9944e-01_rb,5.9730e-01_rb,4.1544e-01_rb,2.1892e-01_rb,1.5159e-03_rb/)\n      kbo(:, 2,50,11) = (/ &\n     &1.2386e+00_rb,1.0495e+00_rb,7.3105e-01_rb,3.8493e-01_rb,2.3639e-03_rb/)\n      kbo(:, 3,50,11) = (/ &\n     &2.0475e+00_rb,1.7233e+00_rb,1.2030e+00_rb,6.3443e-01_rb,3.5129e-03_rb/)\n      kbo(:, 4,50,11) = (/ &\n     &3.1987e+00_rb,2.6838e+00_rb,1.8828e+00_rb,9.9721e-01_rb,4.9131e-03_rb/)\n      kbo(:, 5,50,11) = (/ &\n     &4.8613e+00_rb,4.0604e+00_rb,2.8638e+00_rb,1.5216e+00_rb,6.8102e-03_rb/)\n      kbo(:, 1,51,11) = (/ &\n     &5.4324e-01_rb,4.6725e-01_rb,3.2546e-01_rb,1.7172e-01_rb,1.1297e-03_rb/)\n      kbo(:, 2,51,11) = (/ &\n     &1.0054e+00_rb,8.5632e-01_rb,5.9623e-01_rb,3.1426e-01_rb,1.7844e-03_rb/)\n      kbo(:, 3,51,11) = (/ &\n     &1.7180e+00_rb,1.4523e+00_rb,1.0136e+00_rb,5.3456e-01_rb,2.7288e-03_rb/)\n      kbo(:, 4,51,11) = (/ &\n     &2.7560e+00_rb,2.3178e+00_rb,1.6244e+00_rb,8.6011e-01_rb,3.9147e-03_rb/)\n      kbo(:, 5,51,11) = (/ &\n     &4.2636e+00_rb,3.5725e+00_rb,2.5176e+00_rb,1.3376e+00_rb,5.4601e-03_rb/)\n      kbo(:, 1,52,11) = (/ &\n     &4.1659e-01_rb,3.6012e-01_rb,2.5102e-01_rb,1.3270e-01_rb,8.3775e-04_rb/)\n      kbo(:, 2,52,11) = (/ &\n     &8.0451e-01_rb,6.9074e-01_rb,4.8148e-01_rb,2.5404e-01_rb,1.3424e-03_rb/)\n      kbo(:, 3,52,11) = (/ &\n     &1.4303e+00_rb,1.2146e+00_rb,8.4783e-01_rb,4.4730e-01_rb,2.0961e-03_rb/)\n      kbo(:, 4,52,11) = (/ &\n     &2.3661e+00_rb,1.9968e+00_rb,1.3985e+00_rb,7.3984e-01_rb,3.0912e-03_rb/)\n      kbo(:, 5,52,11) = (/ &\n     &3.7364e+00_rb,3.1393e+00_rb,2.2101e+00_rb,1.1738e+00_rb,4.3230e-03_rb/)\n      kbo(:, 1,53,11) = (/ &\n     &3.1784e-01_rb,2.7470e-01_rb,1.9112e-01_rb,1.0099e-01_rb,6.0100e-04_rb/)\n      kbo(:, 2,53,11) = (/ &\n     &6.3733e-01_rb,5.5043e-01_rb,3.8376e-01_rb,2.0263e-01_rb,1.0152e-03_rb/)\n      kbo(:, 3,53,11) = (/ &\n     &1.1810e+00_rb,1.0077e+00_rb,7.0333e-01_rb,3.7118e-01_rb,1.5799e-03_rb/)\n      kbo(:, 4,53,11) = (/ &\n     &2.0184e+00_rb,1.7109e+00_rb,1.1985e+00_rb,6.3377e-01_rb,2.3636e-03_rb/)\n      kbo(:, 5,53,11) = (/ &\n     &3.2693e+00_rb,2.7525e+00_rb,1.9355e+00_rb,1.0278e+00_rb,3.4086e-03_rb/)\n      kbo(:, 1,54,11) = (/ &\n     &2.4587e-01_rb,2.1298e-01_rb,1.4829e-01_rb,7.8206e-02_rb,4.4874e-04_rb/)\n      kbo(:, 2,54,11) = (/ &\n     &5.0524e-01_rb,4.3896e-01_rb,3.0674e-01_rb,1.6236e-01_rb,7.8054e-04_rb/)\n      kbo(:, 3,54,11) = (/ &\n     &9.7870e-01_rb,8.4204e-01_rb,5.8784e-01_rb,3.1052e-01_rb,1.2701e-03_rb/)\n      kbo(:, 4,54,11) = (/ &\n     &1.7368e+00_rb,1.4787e+00_rb,1.0357e+00_rb,5.4775e-01_rb,1.9340e-03_rb/)\n      kbo(:, 5,54,11) = (/ &\n     &2.8933e+00_rb,2.4419e+00_rb,1.7163e+00_rb,9.1082e-01_rb,2.8443e-03_rb/)\n      kbo(:, 1,55,11) = (/ &\n     &1.9418e-01_rb,1.6698e-01_rb,1.1582e-01_rb,6.0924e-02_rb,3.5209e-04_rb/)\n      kbo(:, 2,55,11) = (/ &\n     &3.9791e-01_rb,3.4892e-01_rb,2.4392e-01_rb,1.2929e-01_rb,6.3188e-04_rb/)\n      kbo(:, 3,55,11) = (/ &\n     &8.0845e-01_rb,6.9946e-01_rb,4.8912e-01_rb,2.5894e-01_rb,1.0591e-03_rb/)\n      kbo(:, 4,55,11) = (/ &\n     &1.4970e+00_rb,1.2804e+00_rb,8.9678e-01_rb,4.7424e-01_rb,1.6138e-03_rb/)\n      kbo(:, 5,55,11) = (/ &\n     &2.5700e+00_rb,2.1774e+00_rb,1.5304e+00_rb,8.1150e-01_rb,2.4277e-03_rb/)\n      kbo(:, 1,56,11) = (/ &\n     &1.5370e-01_rb,1.3145e-01_rb,9.1321e-02_rb,4.8124e-02_rb,2.7531e-04_rb/)\n      kbo(:, 2,56,11) = (/ &\n     &3.1616e-01_rb,2.7583e-01_rb,1.9245e-01_rb,1.0171e-01_rb,5.0269e-04_rb/)\n      kbo(:, 3,56,11) = (/ &\n     &6.6199e-01_rb,5.7649e-01_rb,4.0352e-01_rb,2.1386e-01_rb,8.6775e-04_rb/)\n      kbo(:, 4,56,11) = (/ &\n     &1.2822e+00_rb,1.1021e+00_rb,7.7256e-01_rb,4.0891e-01_rb,1.3519e-03_rb/)\n      kbo(:, 5,56,11) = (/ &\n     &2.2783e+00_rb,1.9368e+00_rb,1.3622e+00_rb,7.2221e-01_rb,2.0801e-03_rb/)\n      kbo(:, 1,57,11) = (/ &\n     &1.2165e-01_rb,1.0433e-01_rb,7.2303e-02_rb,3.8009e-02_rb,2.1938e-04_rb/)\n      kbo(:, 2,57,11) = (/ &\n     &2.5198e-01_rb,2.1938e-01_rb,1.5311e-01_rb,8.0877e-02_rb,3.9875e-04_rb/)\n      kbo(:, 3,57,11) = (/ &\n     &5.3606e-01_rb,4.7039e-01_rb,3.2945e-01_rb,1.7508e-01_rb,6.9954e-04_rb/)\n      kbo(:, 4,57,11) = (/ &\n     &1.0880e+00_rb,9.4273e-01_rb,6.6142e-01_rb,3.5027e-01_rb,1.1454e-03_rb/)\n      kbo(:, 5,57,11) = (/ &\n     &2.0139e+00_rb,1.7191e+00_rb,1.2097e+00_rb,6.4100e-01_rb,1.7901e-03_rb/)\n      kbo(:, 1,58,11) = (/ &\n     &4.6919e-02_rb,4.6268e-02_rb,3.7584e-02_rb,2.3911e-02_rb,1.7988e-04_rb/)\n      kbo(:, 2,58,11) = (/ &\n     &9.9628e-02_rb,9.8832e-02_rb,8.0744e-02_rb,5.1438e-02_rb,3.2482e-04_rb/)\n      kbo(:, 3,58,11) = (/ &\n     &2.1097e-01_rb,2.1358e-01_rb,1.7570e-01_rb,1.1318e-01_rb,5.8194e-04_rb/)\n      kbo(:, 4,58,11) = (/ &\n     &4.4837e-01_rb,4.4802e-01_rb,3.6936e-01_rb,2.3727e-01_rb,9.7962e-04_rb/)\n      kbo(:, 5,58,11) = (/ &\n     &8.6568e-01_rb,8.5230e-01_rb,7.0456e-01_rb,4.5178e-01_rb,1.5789e-03_rb/)\n      kbo(:, 1,59,11) = (/ &\n     &4.1955e-02_rb,4.1496e-02_rb,3.3924e-02_rb,2.1748e-02_rb,1.7054e-04_rb/)\n      kbo(:, 2,59,11) = (/ &\n     &9.0096e-02_rb,8.9872e-02_rb,7.3696e-02_rb,4.7378e-02_rb,3.1638e-04_rb/)\n      kbo(:, 3,59,11) = (/ &\n     &1.9169e-01_rb,1.9390e-01_rb,1.6037e-01_rb,1.0394e-01_rb,5.9374e-04_rb/)\n      kbo(:, 4,59,11) = (/ &\n     &4.1170e-01_rb,4.1459e-01_rb,3.4386e-01_rb,2.2297e-01_rb,1.0082e-03_rb/)\n      kbo(:, 5,59,11) = (/ &\n     &8.1839e-01_rb,8.1107e-01_rb,6.7470e-01_rb,4.3624e-01_rb,1.6869e-03_rb/)\n      kbo(:, 1,13,12) = (/ &\n     &1.0396e+02_rb,7.7973e+01_rb,5.1984e+01_rb,2.5992e+01_rb,2.8896e-01_rb/)\n      kbo(:, 2,13,12) = (/ &\n     &1.4817e+02_rb,1.1113e+02_rb,7.4089e+01_rb,3.7043e+01_rb,6.4071e-01_rb/)\n      kbo(:, 3,13,12) = (/ &\n     &2.0061e+02_rb,1.5046e+02_rb,1.0030e+02_rb,5.0152e+01_rb,7.6116e-01_rb/)\n      kbo(:, 4,13,12) = (/ &\n     &2.6114e+02_rb,1.9586e+02_rb,1.3057e+02_rb,6.5284e+01_rb,1.0553e+00_rb/)\n      kbo(:, 5,13,12) = (/ &\n     &3.2831e+02_rb,2.4622e+02_rb,1.6415e+02_rb,8.2071e+01_rb,1.4067e+00_rb/)\n      kbo(:, 1,14,12) = (/ &\n     &1.1135e+02_rb,8.3512e+01_rb,5.5676e+01_rb,2.7839e+01_rb,4.1053e-01_rb/)\n      kbo(:, 2,14,12) = (/ &\n     &1.5695e+02_rb,1.1771e+02_rb,7.8475e+01_rb,3.9240e+01_rb,6.2372e-01_rb/)\n      kbo(:, 3,14,12) = (/ &\n     &2.1121e+02_rb,1.5841e+02_rb,1.0560e+02_rb,5.2802e+01_rb,8.0301e-01_rb/)\n      kbo(:, 4,14,12) = (/ &\n     &2.7313e+02_rb,2.0485e+02_rb,1.3657e+02_rb,6.8283e+01_rb,1.0170e+00_rb/)\n      kbo(:, 5,14,12) = (/ &\n     &3.4124e+02_rb,2.5592e+02_rb,1.7062e+02_rb,8.5308e+01_rb,1.1064e+00_rb/)\n      kbo(:, 1,15,12) = (/ &\n     &1.1186e+02_rb,8.3897e+01_rb,5.5935e+01_rb,2.7966e+01_rb,4.8952e-01_rb/)\n      kbo(:, 2,15,12) = (/ &\n     &1.5638e+02_rb,1.1729e+02_rb,7.8194e+01_rb,3.9097e+01_rb,5.8507e-01_rb/)\n      kbo(:, 3,15,12) = (/ &\n     &2.0878e+02_rb,1.5659e+02_rb,1.0439e+02_rb,5.2197e+01_rb,6.7687e-01_rb/)\n      kbo(:, 4,15,12) = (/ &\n     &2.6790e+02_rb,2.0092e+02_rb,1.3395e+02_rb,6.6979e+01_rb,7.8981e-01_rb/)\n      kbo(:, 5,15,12) = (/ &\n     &3.3305e+02_rb,2.4981e+02_rb,1.6654e+02_rb,8.3272e+01_rb,9.5540e-01_rb/)\n      kbo(:, 1,16,12) = (/ &\n     &1.0741e+02_rb,8.0552e+01_rb,5.3706e+01_rb,2.6852e+01_rb,4.1874e-01_rb/)\n      kbo(:, 2,16,12) = (/ &\n     &1.4898e+02_rb,1.1174e+02_rb,7.4489e+01_rb,3.7244e+01_rb,5.0405e-01_rb/)\n      kbo(:, 3,16,12) = (/ &\n     &1.9721e+02_rb,1.4789e+02_rb,9.8599e+01_rb,4.9301e+01_rb,6.1901e-01_rb/)\n      kbo(:, 4,16,12) = (/ &\n     &2.5144e+02_rb,1.8859e+02_rb,1.2573e+02_rb,6.2879e+01_rb,7.4947e-01_rb/)\n      kbo(:, 5,16,12) = (/ &\n     &3.1058e+02_rb,2.3295e+02_rb,1.5529e+02_rb,7.7686e+01_rb,8.7491e-01_rb/)\n      kbo(:, 1,17,12) = (/ &\n     &9.9838e+01_rb,7.4879e+01_rb,4.9919e+01_rb,2.5012e+01_rb,3.9338e-01_rb/)\n      kbo(:, 2,17,12) = (/ &\n     &1.3717e+02_rb,1.0287e+02_rb,6.8583e+01_rb,3.4361e+01_rb,4.7893e-01_rb/)\n      kbo(:, 3,17,12) = (/ &\n     &1.8052e+02_rb,1.3539e+02_rb,9.0259e+01_rb,4.5242e+01_rb,5.7262e-01_rb/)\n      kbo(:, 4,17,12) = (/ &\n     &2.2880e+02_rb,1.7160e+02_rb,1.1440e+02_rb,5.7395e+01_rb,6.8306e-01_rb/)\n      kbo(:, 5,17,12) = (/ &\n     &2.8220e+02_rb,2.1165e+02_rb,1.4109e+02_rb,7.0870e+01_rb,7.6022e-01_rb/)\n      kbo(:, 1,18,12) = (/ &\n     &8.8836e+01_rb,6.6627e+01_rb,4.4421e+01_rb,2.2423e+01_rb,3.7355e-01_rb/)\n      kbo(:, 2,18,12) = (/ &\n     &1.2136e+02_rb,9.1017e+01_rb,6.0679e+01_rb,3.0651e+01_rb,4.3123e-01_rb/)\n      kbo(:, 3,18,12) = (/ &\n     &1.5857e+02_rb,1.1893e+02_rb,7.9284e+01_rb,4.0088e+01_rb,5.1039e-01_rb/)\n      kbo(:, 4,18,12) = (/ &\n     &2.0050e+02_rb,1.5036e+02_rb,1.0025e+02_rb,5.0735e+01_rb,5.8388e-01_rb/)\n      kbo(:, 5,18,12) = (/ &\n     &2.4631e+02_rb,1.8473e+02_rb,1.2316e+02_rb,6.2388e+01_rb,6.7078e-01_rb/)\n      kbo(:, 1,19,12) = (/ &\n     &7.8886e+01_rb,5.9167e+01_rb,3.9445e+01_rb,2.0119e+01_rb,3.3866e-01_rb/)\n      kbo(:, 2,19,12) = (/ &\n     &1.0689e+02_rb,8.0167e+01_rb,5.3444e+01_rb,2.7289e+01_rb,4.0283e-01_rb/)\n      kbo(:, 3,19,12) = (/ &\n     &1.3921e+02_rb,1.0440e+02_rb,6.9601e+01_rb,3.5553e+01_rb,4.5001e-01_rb/)\n      kbo(:, 4,19,12) = (/ &\n     &1.7541e+02_rb,1.3156e+02_rb,8.7714e+01_rb,4.4793e+01_rb,5.0843e-01_rb/)\n      kbo(:, 5,19,12) = (/ &\n     &2.1523e+02_rb,1.6142e+02_rb,1.0764e+02_rb,5.4993e+01_rb,5.9607e-01_rb/)\n      kbo(:, 1,20,12) = (/ &\n     &7.0328e+01_rb,5.2750e+01_rb,3.5209e+01_rb,1.8081e+01_rb,3.1237e-01_rb/)\n      kbo(:, 2,20,12) = (/ &\n     &9.4812e+01_rb,7.1110e+01_rb,4.7453e+01_rb,2.4387e+01_rb,3.6655e-01_rb/)\n      kbo(:, 3,20,12) = (/ &\n     &1.2307e+02_rb,9.2305e+01_rb,6.1607e+01_rb,3.1685e+01_rb,4.1127e-01_rb/)\n      kbo(:, 4,20,12) = (/ &\n     &1.5482e+02_rb,1.1612e+02_rb,7.7556e+01_rb,3.9922e+01_rb,4.7264e-01_rb/)\n      kbo(:, 5,20,12) = (/ &\n     &1.8921e+02_rb,1.4190e+02_rb,9.4818e+01_rb,4.8866e+01_rb,5.5288e-01_rb/)\n      kbo(:, 1,21,12) = (/ &\n     &6.2329e+01_rb,4.6745e+01_rb,3.1314e+01_rb,1.6132e+01_rb,2.8533e-01_rb/)\n      kbo(:, 2,21,12) = (/ &\n     &8.3734e+01_rb,6.2791e+01_rb,4.2073e+01_rb,2.1717e+01_rb,3.3097e-01_rb/)\n      kbo(:, 3,21,12) = (/ &\n     &1.0843e+02_rb,8.1321e+01_rb,5.4516e+01_rb,2.8198e+01_rb,3.8205e-01_rb/)\n      kbo(:, 4,21,12) = (/ &\n     &1.3597e+02_rb,1.0198e+02_rb,6.8398e+01_rb,3.5455e+01_rb,4.6172e-01_rb/)\n      kbo(:, 5,21,12) = (/ &\n     &1.6566e+02_rb,1.2424e+02_rb,8.3370e+01_rb,4.3320e+01_rb,5.2289e-01_rb/)\n      kbo(:, 1,22,12) = (/ &\n     &5.5853e+01_rb,4.1896e+01_rb,2.8239e+01_rb,1.4630e+01_rb,2.6479e-01_rb/)\n      kbo(:, 2,22,12) = (/ &\n     &7.4659e+01_rb,5.5993e+01_rb,3.7758e+01_rb,1.9621e+01_rb,3.0587e-01_rb/)\n      kbo(:, 3,22,12) = (/ &\n     &9.6287e+01_rb,7.2215e+01_rb,4.8710e+01_rb,2.5388e+01_rb,3.6961e-01_rb/)\n      kbo(:, 4,22,12) = (/ &\n     &1.2002e+02_rb,9.0023e+01_rb,6.0736e+01_rb,3.1753e+01_rb,4.4273e-01_rb/)\n      kbo(:, 5,22,12) = (/ &\n     &1.4596e+02_rb,1.0947e+02_rb,7.3878e+01_rb,3.8690e+01_rb,5.0560e-01_rb/)\n      kbo(:, 1,23,12) = (/ &\n     &4.9987e+01_rb,3.7501e+01_rb,2.5418e+01_rb,1.3325e+01_rb,2.4880e-01_rb/)\n      kbo(:, 2,23,12) = (/ &\n     &6.6514e+01_rb,4.9903e+01_rb,3.3828e+01_rb,1.7769e+01_rb,2.9089e-01_rb/)\n      kbo(:, 3,23,12) = (/ &\n     &8.5155e+01_rb,6.3887e+01_rb,4.3325e+01_rb,2.2796e+01_rb,3.6730e-01_rb/)\n      kbo(:, 4,23,12) = (/ &\n     &1.0588e+02_rb,7.9440e+01_rb,5.3898e+01_rb,2.8390e+01_rb,4.2226e-01_rb/)\n      kbo(:, 5,23,12) = (/ &\n     &1.2867e+02_rb,9.6554e+01_rb,6.5521e+01_rb,3.4526e+01_rb,4.8786e-01_rb/)\n      kbo(:, 1,24,12) = (/ &\n     &4.5237e+01_rb,3.3990e+01_rb,2.3082e+01_rb,1.2266e+01_rb,2.3374e-01_rb/)\n      kbo(:, 2,24,12) = (/ &\n     &5.9731e+01_rb,4.4882e+01_rb,3.0518e+01_rb,1.6222e+01_rb,2.9093e-01_rb/)\n      kbo(:, 3,24,12) = (/ &\n     &7.6147e+01_rb,5.7227e+01_rb,3.8961e+01_rb,2.0700e+01_rb,3.4607e-01_rb/)\n      kbo(:, 4,24,12) = (/ &\n     &9.4592e+01_rb,7.1092e+01_rb,4.8449e+01_rb,2.5703e+01_rb,4.0338e-01_rb/)\n      kbo(:, 5,24,12) = (/ &\n     &1.1508e+02_rb,8.6507e+01_rb,5.8986e+01_rb,3.1241e+01_rb,4.6347e-01_rb/)\n      kbo(:, 1,25,12) = (/ &\n     &4.1207e+01_rb,3.1054e+01_rb,2.1145e+01_rb,1.1344e+01_rb,2.1959e-01_rb/)\n      kbo(:, 2,25,12) = (/ &\n     &5.4029e+01_rb,4.0717e+01_rb,2.7774e+01_rb,1.4878e+01_rb,2.7843e-01_rb/)\n      kbo(:, 3,25,12) = (/ &\n     &6.8735e+01_rb,5.1802e+01_rb,3.5391e+01_rb,1.8919e+01_rb,3.2302e-01_rb/)\n      kbo(:, 4,25,12) = (/ &\n     &8.5416e+01_rb,6.4368e+01_rb,4.4030e+01_rb,2.3485e+01_rb,3.8140e-01_rb/)\n      kbo(:, 5,25,12) = (/ &\n     &1.0430e+02_rb,7.8570e+01_rb,5.3767e+01_rb,2.8613e+01_rb,4.3338e-01_rb/)\n      kbo(:, 1,26,12) = (/ &\n     &3.7870e+01_rb,2.8646e+01_rb,1.9592e+01_rb,1.0560e+01_rb,2.1067e-01_rb/)\n      kbo(:, 2,26,12) = (/ &\n     &4.9486e+01_rb,3.7425e+01_rb,2.5645e+01_rb,1.3791e+01_rb,2.5277e-01_rb/)\n      kbo(:, 3,26,12) = (/ &\n     &6.2993e+01_rb,4.7626e+01_rb,3.2666e+01_rb,1.7516e+01_rb,3.0077e-01_rb/)\n      kbo(:, 4,26,12) = (/ &\n     &7.8659e+01_rb,5.9439e+01_rb,4.0756e+01_rb,2.1814e+01_rb,3.5095e-01_rb/)\n      kbo(:, 5,26,12) = (/ &\n     &9.6658e+01_rb,7.2997e+01_rb,5.0039e+01_rb,2.6742e+01_rb,4.0727e-01_rb/)\n      kbo(:, 1,27,12) = (/ &\n     &3.5089e+01_rb,2.6619e+01_rb,1.8325e+01_rb,9.8881e+00_rb,1.9876e-01_rb/)\n      kbo(:, 2,27,12) = (/ &\n     &4.5899e+01_rb,3.4800e+01_rb,2.3944e+01_rb,1.2890e+01_rb,2.3298e-01_rb/)\n      kbo(:, 3,27,12) = (/ &\n     &5.8737e+01_rb,4.4506e+01_rb,3.0596e+01_rb,1.6445e+01_rb,2.8191e-01_rb/)\n      kbo(:, 4,27,12) = (/ &\n     &7.3770e+01_rb,5.5858e+01_rb,3.8369e+01_rb,2.0601e+01_rb,3.2481e-01_rb/)\n      kbo(:, 5,27,12) = (/ &\n     &9.1107e+01_rb,6.8940e+01_rb,4.7296e+01_rb,2.5356e+01_rb,3.8171e-01_rb/)\n      kbo(:, 1,28,12) = (/ &\n     &3.2818e+01_rb,2.4943e+01_rb,1.7280e+01_rb,9.3226e+00_rb,1.7817e-01_rb/)\n      kbo(:, 2,28,12) = (/ &\n     &4.3184e+01_rb,3.2811e+01_rb,2.2668e+01_rb,1.2208e+01_rb,2.1857e-01_rb/)\n      kbo(:, 3,28,12) = (/ &\n     &5.5616e+01_rb,4.2235e+01_rb,2.9105e+01_rb,1.5656e+01_rb,2.5762e-01_rb/)\n      kbo(:, 4,28,12) = (/ &\n     &7.0259e+01_rb,5.3319e+01_rb,3.6659e+01_rb,1.9693e+01_rb,3.0371e-01_rb/)\n      kbo(:, 5,28,12) = (/ &\n     &8.7123e+01_rb,6.6079e+01_rb,4.5396e+01_rb,2.4379e+01_rb,3.5478e-01_rb/)\n      kbo(:, 1,29,12) = (/ &\n     &3.0859e+01_rb,2.3511e+01_rb,1.6360e+01_rb,8.8280e+00_rb,1.6679e-01_rb/)\n      kbo(:, 2,29,12) = (/ &\n     &4.0867e+01_rb,3.1128e+01_rb,2.1584e+01_rb,1.1631e+01_rb,2.0451e-01_rb/)\n      kbo(:, 3,29,12) = (/ &\n     &5.2915e+01_rb,4.0294e+01_rb,2.7845e+01_rb,1.4987e+01_rb,2.3670e-01_rb/)\n      kbo(:, 4,29,12) = (/ &\n     &6.7028e+01_rb,5.1030e+01_rb,3.5190e+01_rb,1.8944e+01_rb,2.7999e-01_rb/)\n      kbo(:, 5,29,12) = (/ &\n     &8.3169e+01_rb,6.3273e+01_rb,4.3571e+01_rb,2.3474e+01_rb,3.2963e-01_rb/)\n      kbo(:, 1,30,12) = (/ &\n     &2.9181e+01_rb,2.2308e+01_rb,1.5570e+01_rb,8.4046e+00_rb,1.5217e-01_rb/)\n      kbo(:, 2,30,12) = (/ &\n     &3.8810e+01_rb,2.9664e+01_rb,2.0634e+01_rb,1.1131e+01_rb,1.8255e-01_rb/)\n      kbo(:, 3,30,12) = (/ &\n     &5.0316e+01_rb,3.8456e+01_rb,2.6686e+01_rb,1.4393e+01_rb,2.1489e-01_rb/)\n      kbo(:, 4,30,12) = (/ &\n     &6.3652e+01_rb,4.8625e+01_rb,3.3675e+01_rb,1.8188e+01_rb,2.5258e-01_rb/)\n      kbo(:, 5,30,12) = (/ &\n     &7.8956e+01_rb,6.0282e+01_rb,4.1671e+01_rb,2.2569e+01_rb,2.9642e-01_rb/)\n      kbo(:, 1,31,12) = (/ &\n     &2.7538e+01_rb,2.1159e+01_rb,1.4815e+01_rb,8.0002e+00_rb,1.3523e-01_rb/)\n      kbo(:, 2,31,12) = (/ &\n     &3.6621e+01_rb,2.8123e+01_rb,1.9646e+01_rb,1.0617e+01_rb,1.6072e-01_rb/)\n      kbo(:, 3,31,12) = (/ &\n     &4.7347e+01_rb,3.6341e+01_rb,2.5341e+01_rb,1.3718e+01_rb,1.9204e-01_rb/)\n      kbo(:, 4,31,12) = (/ &\n     &5.9881e+01_rb,4.5936e+01_rb,3.1977e+01_rb,1.7350e+01_rb,2.2658e-01_rb/)\n      kbo(:, 5,31,12) = (/ &\n     &7.4375e+01_rb,5.6987e+01_rb,3.9602e+01_rb,2.1563e+01_rb,2.6205e-01_rb/)\n      kbo(:, 1,32,12) = (/ &\n     &2.6147e+01_rb,2.0200e+01_rb,1.4192e+01_rb,7.6720e+00_rb,1.1829e-01_rb/)\n      kbo(:, 2,32,12) = (/ &\n     &3.4618e+01_rb,2.6728e+01_rb,1.8768e+01_rb,1.0173e+01_rb,1.4448e-01_rb/)\n      kbo(:, 3,32,12) = (/ &\n     &4.4733e+01_rb,3.4488e+01_rb,2.4181e+01_rb,1.3140e+01_rb,1.7290e-01_rb/)\n      kbo(:, 4,32,12) = (/ &\n     &5.6644e+01_rb,4.3620e+01_rb,3.0542e+01_rb,1.6653e+01_rb,2.0200e-01_rb/)\n      kbo(:, 5,32,12) = (/ &\n     &7.0667e+01_rb,5.4331e+01_rb,3.7949e+01_rb,2.0755e+01_rb,2.3023e-01_rb/)\n      kbo(:, 1,33,12) = (/ &\n     &2.4867e+01_rb,1.9325e+01_rb,1.3642e+01_rb,7.3884e+00_rb,1.0477e-01_rb/)\n      kbo(:, 2,33,12) = (/ &\n     &3.2857e+01_rb,2.5486e+01_rb,1.7993e+01_rb,9.7748e+00_rb,1.2807e-01_rb/)\n      kbo(:, 3,33,12) = (/ &\n     &4.2482e+01_rb,3.2899e+01_rb,2.3208e+01_rb,1.2658e+01_rb,1.5122e-01_rb/)\n      kbo(:, 4,33,12) = (/ &\n     &5.4028e+01_rb,4.1749e+01_rb,2.9378e+01_rb,1.6087e+01_rb,1.7656e-01_rb/)\n      kbo(:, 5,33,12) = (/ &\n     &6.7699e+01_rb,5.2220e+01_rb,3.6682e+01_rb,2.0157e+01_rb,2.0029e-01_rb/)\n      kbo(:, 1,34,12) = (/ &\n     &2.3698e+01_rb,1.8505e+01_rb,1.3121e+01_rb,7.1187e+00_rb,9.5888e-02_rb/)\n      kbo(:, 2,34,12) = (/ &\n     &3.1359e+01_rb,2.4427e+01_rb,1.7335e+01_rb,9.4402e+00_rb,1.1540e-01_rb/)\n      kbo(:, 3,34,12) = (/ &\n     &4.0701e+01_rb,3.1624e+01_rb,2.2413e+01_rb,1.2266e+01_rb,1.3371e-01_rb/)\n      kbo(:, 4,34,12) = (/ &\n     &5.2041e+01_rb,4.0338e+01_rb,2.8530e+01_rb,1.5676e+01_rb,1.5490e-01_rb/)\n      kbo(:, 5,34,12) = (/ &\n     &6.5491e+01_rb,5.0663e+01_rb,3.5768e+01_rb,1.9755e+01_rb,1.8157e-01_rb/)\n      kbo(:, 1,35,12) = (/ &\n     &2.2108e+01_rb,1.7359e+01_rb,1.2354e+01_rb,6.7085e+00_rb,8.3925e-02_rb/)\n      kbo(:, 2,35,12) = (/ &\n     &2.9390e+01_rb,2.2999e+01_rb,1.6388e+01_rb,8.9464e+00_rb,9.9962e-02_rb/)\n      kbo(:, 3,35,12) = (/ &\n     &3.8435e+01_rb,2.9966e+01_rb,2.1324e+01_rb,1.1694e+01_rb,1.1806e-01_rb/)\n      kbo(:, 4,35,12) = (/ &\n     &4.9418e+01_rb,3.8439e+01_rb,2.7323e+01_rb,1.5063e+01_rb,1.3630e-01_rb/)\n      kbo(:, 5,35,12) = (/ &\n     &6.2546e+01_rb,4.8535e+01_rb,3.4447e+01_rb,1.9092e+01_rb,1.6585e-01_rb/)\n      kbo(:, 1,36,12) = (/ &\n     &2.0129e+01_rb,1.5891e+01_rb,1.1346e+01_rb,6.1643e+00_rb,7.2166e-02_rb/)\n      kbo(:, 2,36,12) = (/ &\n     &2.6967e+01_rb,2.1198e+01_rb,1.5154e+01_rb,8.2858e+00_rb,8.5917e-02_rb/)\n      kbo(:, 3,36,12) = (/ &\n     &3.5568e+01_rb,2.7847e+01_rb,1.9901e+01_rb,1.0934e+01_rb,1.0193e-01_rb/)\n      kbo(:, 4,36,12) = (/ &\n     &4.6092e+01_rb,3.5975e+01_rb,2.5697e+01_rb,1.4200e+01_rb,1.2167e-01_rb/)\n      kbo(:, 5,36,12) = (/ &\n     &5.8785e+01_rb,4.5750e+01_rb,3.2634e+01_rb,1.8141e+01_rb,1.4958e-01_rb/)\n      kbo(:, 1,37,12) = (/ &\n     &1.7737e+01_rb,1.4074e+01_rb,1.0069e+01_rb,5.4659e+00_rb,6.3045e-02_rb/)\n      kbo(:, 2,37,12) = (/ &\n     &2.3991e+01_rb,1.8955e+01_rb,1.3586e+01_rb,7.4275e+00_rb,7.4702e-02_rb/)\n      kbo(:, 3,37,12) = (/ &\n     &3.1985e+01_rb,2.5160e+01_rb,1.8048e+01_rb,9.9281e+00_rb,8.9095e-02_rb/)\n      kbo(:, 4,37,12) = (/ &\n     &4.1889e+01_rb,3.2824e+01_rb,2.3555e+01_rb,1.3031e+01_rb,1.0656e-01_rb/)\n      kbo(:, 5,37,12) = (/ &\n     &5.3988e+01_rb,4.2162e+01_rb,3.0205e+01_rb,1.6815e+01_rb,1.3149e-01_rb/)\n      kbo(:, 1,38,12) = (/ &\n     &1.5671e+01_rb,1.2491e+01_rb,8.9462e+00_rb,4.8489e+00_rb,5.4067e-02_rb/)\n      kbo(:, 2,38,12) = (/ &\n     &2.1387e+01_rb,1.6974e+01_rb,1.2184e+01_rb,6.6604e+00_rb,6.5509e-02_rb/)\n      kbo(:, 3,38,12) = (/ &\n     &2.8785e+01_rb,2.2756e+01_rb,1.6373e+01_rb,9.0146e+00_rb,7.7568e-02_rb/)\n      kbo(:, 4,38,12) = (/ &\n     &3.8117e+01_rb,2.9996e+01_rb,2.1601e+01_rb,1.1967e+01_rb,9.4071e-02_rb/)\n      kbo(:, 5,38,12) = (/ &\n     &4.9667e+01_rb,3.8921e+01_rb,2.7995e+01_rb,1.5610e+01_rb,1.1469e-01_rb/)\n      kbo(:, 1,39,12) = (/ &\n     &1.3901e+01_rb,1.1137e+01_rb,7.9846e+00_rb,4.3195e+00_rb,4.6183e-02_rb/)\n      kbo(:, 2,39,12) = (/ &\n     &1.9150e+01_rb,1.5270e+01_rb,1.0976e+01_rb,5.9905e+00_rb,5.6093e-02_rb/)\n      kbo(:, 3,39,12) = (/ &\n     &2.6010e+01_rb,2.0653e+01_rb,1.4897e+01_rb,8.2086e+00_rb,6.7656e-02_rb/)\n      kbo(:, 4,39,12) = (/ &\n     &3.4809e+01_rb,2.7511e+01_rb,1.9872e+01_rb,1.1026e+01_rb,8.1649e-02_rb/)\n      kbo(:, 5,39,12) = (/ &\n     &4.5848e+01_rb,3.6052e+01_rb,2.6039e+01_rb,1.4537e+01_rb,9.9747e-02_rb/)\n      kbo(:, 1,40,12) = (/ &\n     &1.2081e+01_rb,9.7243e+00_rb,6.9733e+00_rb,3.7653e+00_rb,3.9581e-02_rb/)\n      kbo(:, 2,40,12) = (/ &\n     &1.6838e+01_rb,1.3484e+01_rb,9.6953e+00_rb,5.2801e+00_rb,4.8568e-02_rb/)\n      kbo(:, 3,40,12) = (/ &\n     &2.3104e+01_rb,1.8425e+01_rb,1.3302e+01_rb,7.3218e+00_rb,5.8955e-02_rb/)\n      kbo(:, 4,40,12) = (/ &\n     &3.1273e+01_rb,2.4818e+01_rb,1.7967e+01_rb,9.9757e+00_rb,7.0859e-02_rb/)\n      kbo(:, 5,40,12) = (/ &\n     &4.1711e+01_rb,3.2920e+01_rb,2.3848e+01_rb,1.3319e+01_rb,8.6539e-02_rb/)\n      kbo(:, 1,41,12) = (/ &\n     &1.0485e+01_rb,8.4800e+00_rb,6.0787e+00_rb,3.2769e+00_rb,3.3606e-02_rb/)\n      kbo(:, 2,41,12) = (/ &\n     &1.4786e+01_rb,1.1894e+01_rb,8.5576e+00_rb,4.6493e+00_rb,4.1457e-02_rb/)\n      kbo(:, 3,41,12) = (/ &\n     &2.0530e+01_rb,1.6437e+01_rb,1.1871e+01_rb,6.5218e+00_rb,5.0842e-02_rb/)\n      kbo(:, 4,41,12) = (/ &\n     &2.8093e+01_rb,2.2374e+01_rb,1.6223e+01_rb,9.0068e+00_rb,6.1229e-02_rb/)\n      kbo(:, 5,41,12) = (/ &\n     &3.7921e+01_rb,3.0039e+01_rb,2.1812e+01_rb,1.2190e+01_rb,7.5282e-02_rb/)\n      kbo(:, 1,42,12) = (/ &\n     &9.1079e+00_rb,7.3993e+00_rb,5.3023e+00_rb,2.8534e+00_rb,2.8075e-02_rb/)\n      kbo(:, 2,42,12) = (/ &\n     &1.3005e+01_rb,1.0510e+01_rb,7.5619e+00_rb,4.1019e+00_rb,3.5441e-02_rb/)\n      kbo(:, 3,42,12) = (/ &\n     &1.8277e+01_rb,1.4697e+01_rb,1.0617e+01_rb,5.8190e+00_rb,4.3089e-02_rb/)\n      kbo(:, 4,42,12) = (/ &\n     &2.5289e+01_rb,2.0221e+01_rb,1.4670e+01_rb,8.1365e+00_rb,5.2317e-02_rb/)\n      kbo(:, 5,42,12) = (/ &\n     &3.4535e+01_rb,2.7452e+01_rb,1.9969e+01_rb,1.1164e+01_rb,6.5436e-02_rb/)\n      kbo(:, 1,43,12) = (/ &\n     &7.8247e+00_rb,6.3834e+00_rb,4.5697e+00_rb,2.4551e+00_rb,2.3117e-02_rb/)\n      kbo(:, 2,43,12) = (/ &\n     &1.1336e+01_rb,9.1978e+00_rb,6.6143e+00_rb,3.5804e+00_rb,2.9659e-02_rb/)\n      kbo(:, 3,43,12) = (/ &\n     &1.6137e+01_rb,1.3030e+01_rb,9.4153e+00_rb,5.1449e+00_rb,3.6857e-02_rb/)\n      kbo(:, 4,43,12) = (/ &\n     &2.2622e+01_rb,1.8150e+01_rb,1.3165e+01_rb,7.2856e+00_rb,4.4557e-02_rb/)\n      kbo(:, 5,43,12) = (/ &\n     &3.1253e+01_rb,2.4925e+01_rb,1.8144e+01_rb,1.0136e+01_rb,5.5864e-02_rb/)\n      kbo(:, 1,44,12) = (/ &\n     &6.6782e+00_rb,5.4729e+00_rb,3.9116e+00_rb,2.0984e+00_rb,1.9194e-02_rb/)\n      kbo(:, 2,44,12) = (/ &\n     &9.8370e+00_rb,8.0127e+00_rb,5.7576e+00_rb,3.1087e+00_rb,2.4741e-02_rb/)\n      kbo(:, 3,44,12) = (/ &\n     &1.4194e+01_rb,1.1506e+01_rb,8.3119e+00_rb,4.5308e+00_rb,3.1291e-02_rb/)\n      kbo(:, 4,44,12) = (/ &\n     &2.0172e+01_rb,1.6246e+01_rb,1.1781e+01_rb,6.4997e+00_rb,3.7622e-02_rb/)\n      kbo(:, 5,44,12) = (/ &\n     &2.8219e+01_rb,2.2570e+01_rb,1.6428e+01_rb,9.1628e+00_rb,4.7831e-02_rb/)\n      kbo(:, 1,45,12) = (/ &\n     &5.6770e+00_rb,4.6794e+00_rb,3.3425e+00_rb,1.7902e+00_rb,1.5806e-02_rb/)\n      kbo(:, 2,45,12) = (/ &\n     &8.5322e+00_rb,6.9760e+00_rb,5.0078e+00_rb,2.6991e+00_rb,2.0417e-02_rb/)\n      kbo(:, 3,45,12) = (/ &\n     &1.2498e+01_rb,1.0162e+01_rb,7.3367e+00_rb,3.9899e+00_rb,2.6093e-02_rb/)\n      kbo(:, 4,45,12) = (/ &\n     &1.7997e+01_rb,1.4548e+01_rb,1.0552e+01_rb,5.8018e+00_rb,3.2356e-02_rb/)\n      kbo(:, 5,45,12) = (/ &\n     &2.5510e+01_rb,2.0455e+01_rb,1.4885e+01_rb,8.2823e+00_rb,4.0610e-02_rb/)\n      kbo(:, 1,46,12) = (/ &\n     &4.7638e+00_rb,3.9496e+00_rb,2.8218e+00_rb,1.5105e+00_rb,1.2604e-02_rb/)\n      kbo(:, 2,46,12) = (/ &\n     &7.3248e+00_rb,6.0189e+00_rb,4.3157e+00_rb,2.3220e+00_rb,1.6943e-02_rb/)\n      kbo(:, 3,46,12) = (/ &\n     &1.0931e+01_rb,8.9155e+00_rb,6.4285e+00_rb,3.4858e+00_rb,2.1734e-02_rb/)\n      kbo(:, 4,46,12) = (/ &\n     &1.5948e+01_rb,1.2933e+01_rb,9.3805e+00_rb,5.1432e+00_rb,2.7407e-02_rb/)\n      kbo(:, 5,46,12) = (/ &\n     &2.2923e+01_rb,1.8438e+01_rb,1.3407e+01_rb,7.4358e+00_rb,3.4309e-02_rb/)\n      kbo(:, 1,47,12) = (/ &\n     &3.9080e+00_rb,3.2569e+00_rb,2.3263e+00_rb,1.2446e+00_rb,1.0169e-02_rb/)\n      kbo(:, 2,47,12) = (/ &\n     &6.1567e+00_rb,5.0883e+00_rb,3.6497e+00_rb,1.9607e+00_rb,1.3733e-02_rb/)\n      kbo(:, 3,47,12) = (/ &\n     &9.4053e+00_rb,7.6982e+00_rb,5.5432e+00_rb,2.9978e+00_rb,1.8162e-02_rb/)\n      kbo(:, 4,47,12) = (/ &\n     &1.3941e+01_rb,1.1337e+01_rb,8.2150e+00_rb,4.4897e+00_rb,2.3207e-02_rb/)\n      kbo(:, 5,47,12) = (/ &\n     &2.0314e+01_rb,1.6396e+01_rb,1.1915e+01_rb,6.5825e+00_rb,2.8974e-02_rb/)\n      kbo(:, 1,48,12) = (/ &\n     &3.1887e+00_rb,2.6690e+00_rb,1.9049e+00_rb,1.0177e+00_rb,7.9795e-03_rb/)\n      kbo(:, 2,48,12) = (/ &\n     &5.1425e+00_rb,4.2754e+00_rb,3.0657e+00_rb,1.6476e+00_rb,1.1064e-02_rb/)\n      kbo(:, 3,48,12) = (/ &\n     &8.0497e+00_rb,6.6225e+00_rb,4.7642e+00_rb,2.5722e+00_rb,1.4743e-02_rb/)\n      kbo(:, 4,48,12) = (/ &\n     &1.2183e+01_rb,9.9349e+00_rb,7.1838e+00_rb,3.9122e+00_rb,1.9211e-02_rb/)\n      kbo(:, 5,48,12) = (/ &\n     &1.7984e+01_rb,1.4555e+01_rb,1.0573e+01_rb,5.8220e+00_rb,2.4214e-02_rb/)\n      kbo(:, 1,49,12) = (/ &\n     &2.5869e+00_rb,2.1741e+00_rb,1.5486e+00_rb,8.2603e-01_rb,6.2330e-03_rb/)\n      kbo(:, 2,49,12) = (/ &\n     &4.2741e+00_rb,3.5702e+00_rb,2.5591e+00_rb,1.3745e+00_rb,8.6780e-03_rb/)\n      kbo(:, 3,49,12) = (/ &\n     &6.8485e+00_rb,5.6671e+00_rb,4.0787e+00_rb,2.1997e+00_rb,1.1935e-02_rb/)\n      kbo(:, 4,49,12) = (/ &\n     &1.0623e+01_rb,8.6880e+00_rb,6.2733e+00_rb,3.4054e+00_rb,1.5780e-02_rb/)\n      kbo(:, 5,49,12) = (/ &\n     &1.5914e+01_rb,1.2906e+01_rb,9.3651e+00_rb,5.1392e+00_rb,2.0415e-02_rb/)\n      kbo(:, 1,50,12) = (/ &\n     &2.1098e+00_rb,1.7804e+00_rb,1.2663e+00_rb,6.7426e-01_rb,4.8509e-03_rb/)\n      kbo(:, 2,50,12) = (/ &\n     &3.5764e+00_rb,2.9999e+00_rb,2.1487e+00_rb,1.1529e+00_rb,6.9665e-03_rb/)\n      kbo(:, 3,50,12) = (/ &\n     &5.8619e+00_rb,4.8746e+00_rb,3.5094e+00_rb,1.8934e+00_rb,9.7336e-03_rb/)\n      kbo(:, 4,50,12) = (/ &\n     &9.3128e+00_rb,7.6488e+00_rb,5.5163e+00_rb,2.9881e+00_rb,1.3124e-02_rb/)\n      kbo(:, 5,50,12) = (/ &\n     &1.4210e+01_rb,1.1543e+01_rb,8.3635e+00_rb,4.5727e+00_rb,1.7352e-02_rb/)\n      kbo(:, 1,51,12) = (/ &\n     &1.7153e+00_rb,1.4551e+00_rb,1.0341e+00_rb,5.4981e-01_rb,3.8011e-03_rb/)\n      kbo(:, 2,51,12) = (/ &\n     &2.9969e+00_rb,2.5231e+00_rb,1.8054e+00_rb,9.6765e-01_rb,5.5539e-03_rb/)\n      kbo(:, 3,51,12) = (/ &\n     &5.0265e+00_rb,4.1972e+00_rb,3.0205e+00_rb,1.6294e+00_rb,8.0318e-03_rb/)\n      kbo(:, 4,51,12) = (/ &\n     &8.1641e+00_rb,6.7342e+00_rb,4.8593e+00_rb,2.6284e+00_rb,1.0987e-02_rb/)\n      kbo(:, 5,51,12) = (/ &\n     &1.2731e+01_rb,1.0364e+01_rb,7.4966e+00_rb,4.0842e+00_rb,1.4784e-02_rb/)\n      kbo(:, 1,52,12) = (/ &\n     &1.3829e+00_rb,1.1793e+00_rb,8.3692e-01_rb,4.4489e-01_rb,2.9111e-03_rb/)\n      kbo(:, 2,52,12) = (/ &\n     &2.5001e+00_rb,2.1140e+00_rb,1.5110e+00_rb,8.0824e-01_rb,4.4285e-03_rb/)\n      kbo(:, 3,52,12) = (/ &\n     &4.2993e+00_rb,3.6038e+00_rb,2.5920e+00_rb,1.3972e+00_rb,6.4988e-03_rb/)\n      kbo(:, 4,52,12) = (/ &\n     &7.1362e+00_rb,5.9093e+00_rb,4.2654e+00_rb,2.3076e+00_rb,9.0777e-03_rb/)\n      kbo(:, 5,52,12) = (/ &\n     &1.1388e+01_rb,9.2949e+00_rb,6.7113e+00_rb,3.6475e+00_rb,1.2584e-02_rb/)\n      kbo(:, 1,53,12) = (/ &\n     &1.0996e+00_rb,9.4448e-01_rb,6.6999e-01_rb,3.5618e-01_rb,2.1752e-03_rb/)\n      kbo(:, 2,53,12) = (/ &\n     &2.0714e+00_rb,1.7598e+00_rb,1.2567e+00_rb,6.7105e-01_rb,3.4164e-03_rb/)\n      kbo(:, 3,53,12) = (/ &\n     &3.6653e+00_rb,3.0827e+00_rb,2.2148e+00_rb,1.1926e+00_rb,5.1289e-03_rb/)\n      kbo(:, 4,53,12) = (/ &\n     &6.2207e+00_rb,5.1680e+00_rb,3.7282e+00_rb,2.0166e+00_rb,7.4836e-03_rb/)\n      kbo(:, 5,53,12) = (/ &\n     &1.0144e+01_rb,8.3054e+00_rb,5.9967e+00_rb,3.2508e+00_rb,1.0390e-02_rb/)\n      kbo(:, 1,54,12) = (/ &\n     &8.8096e-01_rb,7.6003e-01_rb,5.3828e-01_rb,2.8652e-01_rb,1.7028e-03_rb/)\n      kbo(:, 2,54,12) = (/ &\n     &1.7342e+00_rb,1.4790e+00_rb,1.0559e+00_rb,5.6372e-01_rb,2.7715e-03_rb/)\n      kbo(:, 3,54,12) = (/ &\n     &3.1660e+00_rb,2.6700e+00_rb,1.9162e+00_rb,1.0305e+00_rb,4.2409e-03_rb/)\n      kbo(:, 4,54,12) = (/ &\n     &5.4916e+00_rb,4.5733e+00_rb,3.2967e+00_rb,1.7833e+00_rb,6.3614e-03_rb/)\n      kbo(:, 5,54,12) = (/ &\n     &9.1316e+00_rb,7.4962e+00_rb,5.4128e+00_rb,2.9325e+00_rb,9.0996e-03_rb/)\n      kbo(:, 1,55,12) = (/ &\n     &7.0080e-01_rb,6.0941e-01_rb,4.3132e-01_rb,2.2991e-01_rb,1.3497e-03_rb/)\n      kbo(:, 2,55,12) = (/ &\n     &1.4554e+00_rb,1.2471e+00_rb,8.8937e-01_rb,4.7463e-01_rb,2.3282e-03_rb/)\n      kbo(:, 3,55,12) = (/ &\n     &2.7458e+00_rb,2.3243e+00_rb,1.6671e+00_rb,8.9493e-01_rb,3.6585e-03_rb/)\n      kbo(:, 4,55,12) = (/ &\n     &4.8778e+00_rb,4.0704e+00_rb,2.9318e+00_rb,1.5851e+00_rb,5.5673e-03_rb/)\n      kbo(:, 5,55,12) = (/ &\n     &8.2670e+00_rb,6.7971e+00_rb,4.9063e+00_rb,2.6581e+00_rb,8.0481e-03_rb/)\n      kbo(:, 1,56,12) = (/ &\n     &5.5050e-01_rb,4.8277e-01_rb,3.4128e-01_rb,1.8181e-01_rb,1.0666e-03_rb/)\n      kbo(:, 2,56,12) = (/ &\n     &1.2088e+00_rb,1.0426e+00_rb,7.4350e-01_rb,3.9744e-01_rb,1.9421e-03_rb/)\n      kbo(:, 3,56,12) = (/ &\n     &2.3753e+00_rb,2.0178e+00_rb,1.4463e+00_rb,7.7559e-01_rb,3.1486e-03_rb/)\n      kbo(:, 4,56,12) = (/ &\n     &4.3336e+00_rb,3.6227e+00_rb,2.6061e+00_rb,1.4075e+00_rb,4.8772e-03_rb/)\n      kbo(:, 5,56,12) = (/ &\n     &7.4871e+00_rb,6.1648e+00_rb,4.4455e+00_rb,2.4084e+00_rb,7.2633e-03_rb/)\n      kbo(:, 1,57,12) = (/ &\n     &4.2691e-01_rb,3.7593e-01_rb,2.6606e-01_rb,1.4195e-01_rb,8.3793e-04_rb/)\n      kbo(:, 2,57,12) = (/ &\n     &9.9567e-01_rb,8.6325e-01_rb,6.1463e-01_rb,3.2859e-01_rb,1.6242e-03_rb/)\n      kbo(:, 3,57,12) = (/ &\n     &2.0486e+00_rb,1.7449e+00_rb,1.2502e+00_rb,6.7018e-01_rb,2.7399e-03_rb/)\n      kbo(:, 4,57,12) = (/ &\n     &3.8496e+00_rb,3.2234e+00_rb,2.3159e+00_rb,1.2492e+00_rb,4.2649e-03_rb/)\n      kbo(:, 5,57,12) = (/ &\n     &6.7867e+00_rb,5.5927e+00_rb,4.0285e+00_rb,2.1823e+00_rb,6.5093e-03_rb/)\n      kbo(:, 1,58,12) = (/ &\n     &1.6356e-01_rb,1.6482e-01_rb,1.3630e-01_rb,8.7916e-02_rb,6.5877e-04_rb/)\n      kbo(:, 2,58,12) = (/ &\n     &3.9653e-01_rb,3.9771e-01_rb,3.3219e-01_rb,2.1522e-01_rb,1.3561e-03_rb/)\n      kbo(:, 3,58,12) = (/ &\n     &8.5978e-01_rb,8.4388e-01_rb,7.0959e-01_rb,4.6009e-01_rb,2.4231e-03_rb/)\n      kbo(:, 4,58,12) = (/ &\n     &1.6685e+00_rb,1.6071e+00_rb,1.3546e+00_rb,8.8295e-01_rb,3.8944e-03_rb/)\n      kbo(:, 5,58,12) = (/ &\n     &3.0057e+00_rb,2.8445e+00_rb,2.4022e+00_rb,1.5741e+00_rb,5.9596e-03_rb/)\n      kbo(:, 1,59,12) = (/ &\n     &1.4551e-01_rb,1.4725e-01_rb,1.2251e-01_rb,7.9561e-02_rb,6.8074e-04_rb/)\n      kbo(:, 2,59,12) = (/ &\n     &3.6080e-01_rb,3.6451e-01_rb,3.0649e-01_rb,2.0003e-01_rb,1.4324e-03_rb/)\n      kbo(:, 3,59,12) = (/ &\n     &8.0811e-01_rb,7.9823e-01_rb,6.7489e-01_rb,4.4138e-01_rb,2.5709e-03_rb/)\n      kbo(:, 4,59,12) = (/ &\n     &1.6058e+00_rb,1.5512e+00_rb,1.3138e+00_rb,8.6244e-01_rb,4.2753e-03_rb/)\n      kbo(:, 5,59,12) = (/ &\n     &2.9249e+00_rb,2.7730e+00_rb,2.3517e+00_rb,1.5520e+00_rb,6.3367e-03_rb/)\n      kbo(:, 1,13,13) = (/ &\n     &1.6844e+02_rb,1.2633e+02_rb,8.4219e+01_rb,4.2110e+01_rb,6.4746e-01_rb/)\n      kbo(:, 2,13,13) = (/ &\n     &2.3974e+02_rb,1.7981e+02_rb,1.1987e+02_rb,5.9937e+01_rb,7.7977e-01_rb/)\n      kbo(:, 3,13,13) = (/ &\n     &3.2626e+02_rb,2.4469e+02_rb,1.6313e+02_rb,8.1566e+01_rb,1.5118e+00_rb/)\n      kbo(:, 4,13,13) = (/ &\n     &4.2676e+02_rb,3.2006e+02_rb,2.1338e+02_rb,1.0669e+02_rb,1.6642e+00_rb/)\n      kbo(:, 5,13,13) = (/ &\n     &5.4119e+02_rb,4.0589e+02_rb,2.7059e+02_rb,1.3530e+02_rb,1.7313e+00_rb/)\n      kbo(:, 1,14,13) = (/ &\n     &1.9041e+02_rb,1.4281e+02_rb,9.5205e+01_rb,4.7604e+01_rb,4.8593e-01_rb/)\n      kbo(:, 2,14,13) = (/ &\n     &2.6943e+02_rb,2.0207e+02_rb,1.3472e+02_rb,6.7360e+01_rb,1.0523e+00_rb/)\n      kbo(:, 3,14,13) = (/ &\n     &3.6326e+02_rb,2.7244e+02_rb,1.8162e+02_rb,9.0813e+01_rb,1.4658e+00_rb/)\n      kbo(:, 4,14,13) = (/ &\n     &4.7082e+02_rb,3.5312e+02_rb,2.3542e+02_rb,1.1771e+02_rb,1.6120e+00_rb/)\n      kbo(:, 5,14,13) = (/ &\n     &5.9086e+02_rb,4.4312e+02_rb,2.9542e+02_rb,1.4771e+02_rb,1.8462e+00_rb/)\n      kbo(:, 1,15,13) = (/ &\n     &2.0331e+02_rb,1.5249e+02_rb,1.0165e+02_rb,5.0828e+01_rb,7.0211e-01_rb/)\n      kbo(:, 2,15,13) = (/ &\n     &2.8491e+02_rb,2.1369e+02_rb,1.4246e+02_rb,7.1232e+01_rb,1.1193e+00_rb/)\n      kbo(:, 3,15,13) = (/ &\n     &3.8104e+02_rb,2.8579e+02_rb,1.9054e+02_rb,9.5263e+01_rb,1.3482e+00_rb/)\n      kbo(:, 4,15,13) = (/ &\n     &4.8986e+02_rb,3.6740e+02_rb,2.4492e+02_rb,1.2246e+02_rb,1.6094e+00_rb/)\n      kbo(:, 5,15,13) = (/ &\n     &6.0932e+02_rb,4.5699e+02_rb,3.0468e+02_rb,1.5233e+02_rb,1.6798e+00_rb/)\n      kbo(:, 1,16,13) = (/ &\n     &2.0774e+02_rb,1.5583e+02_rb,1.0388e+02_rb,5.1937e+01_rb,8.3999e-01_rb/)\n      kbo(:, 2,16,13) = (/ &\n     &2.8883e+02_rb,2.1662e+02_rb,1.4442e+02_rb,7.2209e+01_rb,1.0268e+00_rb/)\n      kbo(:, 3,16,13) = (/ &\n     &3.8302e+02_rb,2.8729e+02_rb,1.9153e+02_rb,9.5770e+01_rb,1.2054e+00_rb/)\n      kbo(:, 4,16,13) = (/ &\n     &4.8856e+02_rb,3.6642e+02_rb,2.4427e+02_rb,1.2213e+02_rb,1.2630e+00_rb/)\n      kbo(:, 5,16,13) = (/ &\n     &6.0471e+02_rb,4.5354e+02_rb,3.0235e+02_rb,1.5118e+02_rb,1.5611e+00_rb/)\n      kbo(:, 1,17,13) = (/ &\n     &2.0589e+02_rb,1.5442e+02_rb,1.0294e+02_rb,5.1473e+01_rb,7.0898e-01_rb/)\n      kbo(:, 2,17,13) = (/ &\n     &2.8383e+02_rb,2.1287e+02_rb,1.4191e+02_rb,7.0957e+01_rb,8.7566e-01_rb/)\n      kbo(:, 3,17,13) = (/ &\n     &3.7354e+02_rb,2.8016e+02_rb,1.8678e+02_rb,9.3389e+01_rb,1.0083e+00_rb/)\n      kbo(:, 4,17,13) = (/ &\n     &4.7406e+02_rb,3.5553e+02_rb,2.3702e+02_rb,1.1851e+02_rb,1.2409e+00_rb/)\n      kbo(:, 5,17,13) = (/ &\n     &5.8252e+02_rb,4.3688e+02_rb,2.9126e+02_rb,1.4563e+02_rb,1.5701e+00_rb/)\n      kbo(:, 1,18,13) = (/ &\n     &1.9631e+02_rb,1.4723e+02_rb,9.8151e+01_rb,4.9076e+01_rb,6.5277e-01_rb/)\n      kbo(:, 2,18,13) = (/ &\n     &2.6794e+02_rb,2.0095e+02_rb,1.3397e+02_rb,6.6983e+01_rb,7.9253e-01_rb/)\n      kbo(:, 3,18,13) = (/ &\n     &3.5060e+02_rb,2.6297e+02_rb,1.7531e+02_rb,8.7658e+01_rb,9.7984e-01_rb/)\n      kbo(:, 4,18,13) = (/ &\n     &4.4214e+02_rb,3.3161e+02_rb,2.2107e+02_rb,1.1054e+02_rb,1.2414e+00_rb/)\n      kbo(:, 5,18,13) = (/ &\n     &5.4117e+02_rb,4.0586e+02_rb,2.7058e+02_rb,1.3530e+02_rb,1.5487e+00_rb/)\n      kbo(:, 1,19,13) = (/ &\n     &1.8546e+02_rb,1.3909e+02_rb,9.2728e+01_rb,4.6396e+01_rb,6.1789e-01_rb/)\n      kbo(:, 2,19,13) = (/ &\n     &2.5191e+02_rb,1.8893e+02_rb,1.2596e+02_rb,6.3020e+01_rb,7.3049e-01_rb/)\n      kbo(:, 3,19,13) = (/ &\n     &3.2752e+02_rb,2.4563e+02_rb,1.6376e+02_rb,8.1963e+01_rb,9.1418e-01_rb/)\n      kbo(:, 4,19,13) = (/ &\n     &4.1109e+02_rb,3.0832e+02_rb,2.0555e+02_rb,1.0295e+02_rb,1.1663e+00_rb/)\n      kbo(:, 5,19,13) = (/ &\n     &5.0069e+02_rb,3.7554e+02_rb,2.5035e+02_rb,1.2551e+02_rb,1.4682e+00_rb/)\n      kbo(:, 1,20,13) = (/ &\n     &1.7660e+02_rb,1.3245e+02_rb,8.8301e+01_rb,4.4344e+01_rb,5.8624e-01_rb/)\n      kbo(:, 2,20,13) = (/ &\n     &2.3782e+02_rb,1.7835e+02_rb,1.1891e+02_rb,5.9734e+01_rb,7.0627e-01_rb/)\n      kbo(:, 3,20,13) = (/ &\n     &3.0729e+02_rb,2.3046e+02_rb,1.5365e+02_rb,7.7248e+01_rb,8.6369e-01_rb/)\n      kbo(:, 4,20,13) = (/ &\n     &3.8357e+02_rb,2.8768e+02_rb,1.9179e+02_rb,9.6513e+01_rb,1.0255e+00_rb/)\n      kbo(:, 5,20,13) = (/ &\n     &4.6652e+02_rb,3.4991e+02_rb,2.3327e+02_rb,1.1751e+02_rb,1.3105e+00_rb/)\n      kbo(:, 1,21,13) = (/ &\n     &1.6552e+02_rb,1.2414e+02_rb,8.2761e+01_rb,4.1834e+01_rb,5.4233e-01_rb/)\n      kbo(:, 2,21,13) = (/ &\n     &2.2144e+02_rb,1.6608e+02_rb,1.1072e+02_rb,5.6006e+01_rb,6.6551e-01_rb/)\n      kbo(:, 3,21,13) = (/ &\n     &2.8447e+02_rb,2.1334e+02_rb,1.4223e+02_rb,7.2029e+01_rb,7.8267e-01_rb/)\n      kbo(:, 4,21,13) = (/ &\n     &3.5426e+02_rb,2.6570e+02_rb,1.7714e+02_rb,8.9791e+01_rb,9.3322e-01_rb/)\n      kbo(:, 5,21,13) = (/ &\n     &4.3028e+02_rb,3.2271e+02_rb,2.1513e+02_rb,1.0915e+02_rb,1.1469e+00_rb/)\n      kbo(:, 1,22,13) = (/ &\n     &1.5536e+02_rb,1.1652e+02_rb,7.7681e+01_rb,3.9611e+01_rb,5.1617e-01_rb/)\n      kbo(:, 2,22,13) = (/ &\n     &2.0596e+02_rb,1.5446e+02_rb,1.0298e+02_rb,5.2572e+01_rb,6.2474e-01_rb/)\n      kbo(:, 3,22,13) = (/ &\n     &2.6312e+02_rb,1.9733e+02_rb,1.3157e+02_rb,6.7220e+01_rb,7.4033e-01_rb/)\n      kbo(:, 4,22,13) = (/ &\n     &3.2670e+02_rb,2.4500e+02_rb,1.6337e+02_rb,8.3538e+01_rb,8.8562e-01_rb/)\n      kbo(:, 5,22,13) = (/ &\n     &3.9539e+02_rb,2.9656e+02_rb,1.9778e+02_rb,1.0126e+02_rb,1.0777e+00_rb/)\n      kbo(:, 1,23,13) = (/ &\n     &1.4370e+02_rb,1.0779e+02_rb,7.1941e+01_rb,3.6979e+01_rb,5.0881e-01_rb/)\n      kbo(:, 2,23,13) = (/ &\n     &1.8910e+02_rb,1.4182e+02_rb,9.4675e+01_rb,4.8747e+01_rb,5.9561e-01_rb/)\n      kbo(:, 3,23,13) = (/ &\n     &2.4065e+02_rb,1.8048e+02_rb,1.2051e+02_rb,6.2134e+01_rb,7.0317e-01_rb/)\n      kbo(:, 4,23,13) = (/ &\n     &2.9775e+02_rb,2.2332e+02_rb,1.4916e+02_rb,7.6994e+01_rb,8.5956e-01_rb/)\n      kbo(:, 5,23,13) = (/ &\n     &3.5987e+02_rb,2.6990e+02_rb,1.8034e+02_rb,9.3182e+01_rb,1.0114e+00_rb/)\n      kbo(:, 1,24,13) = (/ &\n     &1.3242e+02_rb,9.9313e+01_rb,6.6507e+01_rb,3.4403e+01_rb,4.7778e-01_rb/)\n      kbo(:, 2,24,13) = (/ &\n     &1.7334e+02_rb,1.3001e+02_rb,8.7073e+01_rb,4.5133e+01_rb,5.5652e-01_rb/)\n      kbo(:, 3,24,13) = (/ &\n     &2.1981e+02_rb,1.6486e+02_rb,1.1045e+02_rb,5.7389e+01_rb,6.8303e-01_rb/)\n      kbo(:, 4,24,13) = (/ &\n     &2.7150e+02_rb,2.0360e+02_rb,1.3644e+02_rb,7.1035e+01_rb,8.3312e-01_rb/)\n      kbo(:, 5,24,13) = (/ &\n     &3.2837e+02_rb,2.4630e+02_rb,1.6509e+02_rb,8.6103e+01_rb,9.5638e-01_rb/)\n      kbo(:, 1,25,13) = (/ &\n     &1.2137e+02_rb,9.1042e+01_rb,6.1224e+01_rb,3.1886e+01_rb,4.5611e-01_rb/)\n      kbo(:, 2,25,13) = (/ &\n     &1.5823e+02_rb,1.1867e+02_rb,7.9841e+01_rb,4.1707e+01_rb,5.3430e-01_rb/)\n      kbo(:, 3,25,13) = (/ &\n     &2.0017e+02_rb,1.5012e+02_rb,1.0102e+02_rb,5.2903e+01_rb,6.6826e-01_rb/)\n      kbo(:, 4,25,13) = (/ &\n     &2.4727e+02_rb,1.8545e+02_rb,1.2481e+02_rb,6.5530e+01_rb,7.9106e-01_rb/)\n      kbo(:, 5,25,13) = (/ &\n     &2.9868e+02_rb,2.2401e+02_rb,1.5081e+02_rb,7.9363e+01_rb,9.2773e-01_rb/)\n      kbo(:, 1,26,13) = (/ &\n     &1.1166e+02_rb,8.3750e+01_rb,5.6641e+01_rb,2.9761e+01_rb,4.3741e-01_rb/)\n      kbo(:, 2,26,13) = (/ &\n     &1.4505e+02_rb,1.0880e+02_rb,7.3586e+01_rb,3.8778e+01_rb,5.3620e-01_rb/)\n      kbo(:, 3,26,13) = (/ &\n     &1.8336e+02_rb,1.3753e+02_rb,9.3041e+01_rb,4.9168e+01_rb,6.5727e-01_rb/)\n      kbo(:, 4,26,13) = (/ &\n     &2.2613e+02_rb,1.6961e+02_rb,1.1481e+02_rb,6.0809e+01_rb,7.5877e-01_rb/)\n      kbo(:, 5,26,13) = (/ &\n     &2.7339e+02_rb,2.0507e+02_rb,1.3883e+02_rb,7.3616e+01_rb,9.0221e-01_rb/)\n      kbo(:, 1,27,13) = (/ &\n     &1.0286e+02_rb,7.7197e+01_rb,5.2520e+01_rb,2.7881e+01_rb,4.2067e-01_rb/)\n      kbo(:, 2,27,13) = (/ &\n     &1.3339e+02_rb,1.0010e+02_rb,6.8159e+01_rb,3.6272e+01_rb,5.2994e-01_rb/)\n      kbo(:, 3,27,13) = (/ &\n     &1.6841e+02_rb,1.2640e+02_rb,8.6087e+01_rb,4.5886e+01_rb,6.2144e-01_rb/)\n      kbo(:, 4,27,13) = (/ &\n     &2.0796e+02_rb,1.5610e+02_rb,1.0629e+02_rb,5.6702e+01_rb,7.2963e-01_rb/)\n      kbo(:, 5,27,13) = (/ &\n     &2.5159e+02_rb,1.8888e+02_rb,1.2865e+02_rb,6.8691e+01_rb,8.6563e-01_rb/)\n      kbo(:, 1,28,13) = (/ &\n     &9.5256e+01_rb,7.1619e+01_rb,4.8936e+01_rb,2.6277e+01_rb,4.0676e-01_rb/)\n      kbo(:, 2,28,13) = (/ &\n     &1.2337e+02_rb,9.2726e+01_rb,6.3443e+01_rb,3.4072e+01_rb,4.9978e-01_rb/)\n      kbo(:, 3,28,13) = (/ &\n     &1.5583e+02_rb,1.1712e+02_rb,8.0174e+01_rb,4.3046e+01_rb,5.7218e-01_rb/)\n      kbo(:, 4,28,13) = (/ &\n     &1.9223e+02_rb,1.4447e+02_rb,9.8926e+01_rb,5.3164e+01_rb,6.9683e-01_rb/)\n      kbo(:, 5,28,13) = (/ &\n     &2.3315e+02_rb,1.7521e+02_rb,1.1992e+02_rb,6.4418e+01_rb,8.1878e-01_rb/)\n      kbo(:, 1,29,13) = (/ &\n     &8.8532e+01_rb,6.6695e+01_rb,4.5757e+01_rb,2.4810e+01_rb,3.8492e-01_rb/)\n      kbo(:, 2,29,13) = (/ &\n     &1.1463e+02_rb,8.6325e+01_rb,5.9300e+01_rb,3.2087e+01_rb,4.4646e-01_rb/)\n      kbo(:, 3,29,13) = (/ &\n     &1.4438e+02_rb,1.0869e+02_rb,7.4772e+01_rb,4.0468e+01_rb,5.3953e-01_rb/)\n      kbo(:, 4,29,13) = (/ &\n     &1.7851e+02_rb,1.3434e+02_rb,9.2412e+01_rb,4.9954e+01_rb,6.4107e-01_rb/)\n      kbo(:, 5,29,13) = (/ &\n     &2.1752e+02_rb,1.6365e+02_rb,1.1246e+02_rb,6.0724e+01_rb,7.6365e-01_rb/)\n      kbo(:, 1,30,13) = (/ &\n     &8.2710e+01_rb,6.2476e+01_rb,4.3045e+01_rb,2.3511e+01_rb,3.4189e-01_rb/)\n      kbo(:, 2,30,13) = (/ &\n     &1.0675e+02_rb,8.0586e+01_rb,5.5620e+01_rb,3.0345e+01_rb,4.0578e-01_rb/)\n      kbo(:, 3,30,13) = (/ &\n     &1.3482e+02_rb,1.0169e+02_rb,7.0226e+01_rb,3.8224e+01_rb,5.0418e-01_rb/)\n      kbo(:, 4,30,13) = (/ &\n     &1.6752e+02_rb,1.2628e+02_rb,8.7179e+01_rb,4.7334e+01_rb,5.9789e-01_rb/)\n      kbo(:, 5,30,13) = (/ &\n     &2.0548e+02_rb,1.5477e+02_rb,1.0678e+02_rb,5.7811e+01_rb,7.2304e-01_rb/)\n      kbo(:, 1,31,13) = (/ &\n     &7.6989e+01_rb,5.8322e+01_rb,4.0414e+01_rb,2.2252e+01_rb,3.0592e-01_rb/)\n      kbo(:, 2,31,13) = (/ &\n     &9.9596e+01_rb,7.5380e+01_rb,5.2274e+01_rb,2.8707e+01_rb,3.7677e-01_rb/)\n      kbo(:, 3,31,13) = (/ &\n     &1.2653e+02_rb,9.5656e+01_rb,6.6313e+01_rb,3.6293e+01_rb,4.5864e-01_rb/)\n      kbo(:, 4,31,13) = (/ &\n     &1.5839e+02_rb,1.1960e+02_rb,8.2835e+01_rb,4.5152e+01_rb,5.5168e-01_rb/)\n      kbo(:, 5,31,13) = (/ &\n     &1.9525e+02_rb,1.4733e+02_rb,1.0199e+02_rb,5.5418e+01_rb,6.7878e-01_rb/)\n      kbo(:, 1,32,13) = (/ &\n     &7.2617e+01_rb,5.5198e+01_rb,3.8454e+01_rb,2.1285e+01_rb,2.7831e-01_rb/)\n      kbo(:, 2,32,13) = (/ &\n     &9.4496e+01_rb,7.1727e+01_rb,4.9927e+01_rb,2.7539e+01_rb,3.4616e-01_rb/)\n      kbo(:, 3,32,13) = (/ &\n     &1.2095e+02_rb,9.1662e+01_rb,6.3739e+01_rb,3.5032e+01_rb,4.1226e-01_rb/)\n      kbo(:, 4,32,13) = (/ &\n     &1.5220e+02_rb,1.1521e+02_rb,8.0042e+01_rb,4.3833e+01_rb,5.1531e-01_rb/)\n      kbo(:, 5,32,13) = (/ &\n     &1.8837e+02_rb,1.4240e+02_rb,9.8836e+01_rb,5.3991e+01_rb,6.4895e-01_rb/)\n      kbo(:, 1,33,13) = (/ &\n     &6.9586e+01_rb,5.3075e+01_rb,3.7119e+01_rb,2.0620e+01_rb,2.5421e-01_rb/)\n      kbo(:, 2,33,13) = (/ &\n     &9.1190e+01_rb,6.9432e+01_rb,4.8467e+01_rb,2.6834e+01_rb,3.0964e-01_rb/)\n      kbo(:, 3,33,13) = (/ &\n     &1.1725e+02_rb,8.9117e+01_rb,6.2134e+01_rb,3.4318e+01_rb,3.8320e-01_rb/)\n      kbo(:, 4,33,13) = (/ &\n     &1.4810e+02_rb,1.1236e+02_rb,7.8257e+01_rb,4.3108e+01_rb,4.8588e-01_rb/)\n      kbo(:, 5,33,13) = (/ &\n     &1.8404e+02_rb,1.3940e+02_rb,9.6928e+01_rb,5.3246e+01_rb,6.2021e-01_rb/)\n      kbo(:, 1,34,13) = (/ &\n     &6.7703e+01_rb,5.1785e+01_rb,3.6334e+01_rb,2.0214e+01_rb,2.2826e-01_rb/)\n      kbo(:, 2,34,13) = (/ &\n     &8.9165e+01_rb,6.8046e+01_rb,4.7643e+01_rb,2.6485e+01_rb,2.7978e-01_rb/)\n      kbo(:, 3,34,13) = (/ &\n     &1.1511e+02_rb,8.7692e+01_rb,6.1290e+01_rb,3.4007e+01_rb,3.5723e-01_rb/)\n      kbo(:, 4,34,13) = (/ &\n     &1.4598e+02_rb,1.1096e+02_rb,7.7422e+01_rb,4.2877e+01_rb,4.6377e-01_rb/)\n      kbo(:, 5,34,13) = (/ &\n     &1.8238e+02_rb,1.3836e+02_rb,9.6327e+01_rb,5.3168e+01_rb,5.7690e-01_rb/)\n      kbo(:, 1,35,13) = (/ &\n     &6.4861e+01_rb,4.9746e+01_rb,3.5026e+01_rb,1.9551e+01_rb,2.0156e-01_rb/)\n      kbo(:, 2,35,13) = (/ &\n     &8.5976e+01_rb,6.5785e+01_rb,4.6175e+01_rb,2.5782e+01_rb,2.5401e-01_rb/)\n      kbo(:, 3,35,13) = (/ &\n     &1.1165e+02_rb,8.5245e+01_rb,5.9716e+01_rb,3.3273e+01_rb,3.2846e-01_rb/)\n      kbo(:, 4,35,13) = (/ &\n     &1.4250e+02_rb,1.0853e+02_rb,7.5838e+01_rb,4.2162e+01_rb,4.2675e-01_rb/)\n      kbo(:, 5,35,13) = (/ &\n     &1.7910e+02_rb,1.3608e+02_rb,9.4891e+01_rb,5.2581e+01_rb,5.2256e-01_rb/)\n      kbo(:, 1,36,13) = (/ &\n     &6.0764e+01_rb,4.6732e+01_rb,3.3052e+01_rb,1.8514e+01_rb,1.7227e-01_rb/)\n      kbo(:, 2,36,13) = (/ &\n     &8.1347e+01_rb,6.2416e+01_rb,4.3933e+01_rb,2.4619e+01_rb,2.3170e-01_rb/)\n      kbo(:, 3,36,13) = (/ &\n     &1.0653e+02_rb,8.1514e+01_rb,5.7203e+01_rb,3.2018e+01_rb,2.9859e-01_rb/)\n      kbo(:, 4,36,13) = (/ &\n     &1.3711e+02_rb,1.0461e+02_rb,7.3196e+01_rb,4.0838e+01_rb,3.8265e-01_rb/)\n      kbo(:, 5,36,13) = (/ &\n     &1.7349e+02_rb,1.3202e+02_rb,9.2179e+01_rb,5.1271e+01_rb,4.7154e-01_rb/)\n      kbo(:, 1,37,13) = (/ &\n     &5.5040e+01_rb,4.2456e+01_rb,3.0166e+01_rb,1.6967e+01_rb,1.4686e-01_rb/)\n      kbo(:, 2,37,13) = (/ &\n     &7.4751e+01_rb,5.7522e+01_rb,4.0627e+01_rb,2.2828e+01_rb,1.9745e-01_rb/)\n      kbo(:, 3,37,13) = (/ &\n     &9.9126e+01_rb,7.6001e+01_rb,5.3446e+01_rb,3.0003e+01_rb,2.5830e-01_rb/)\n      kbo(:, 4,37,13) = (/ &\n     &1.2888e+02_rb,9.8527e+01_rb,6.9056e+01_rb,3.8643e+01_rb,3.3278e-01_rb/)\n      kbo(:, 5,37,13) = (/ &\n     &1.6453e+02_rb,1.2541e+02_rb,8.7685e+01_rb,4.8918e+01_rb,4.1260e-01_rb/)\n      kbo(:, 1,38,13) = (/ &\n     &4.9859e+01_rb,3.8586e+01_rb,2.7550e+01_rb,1.5547e+01_rb,1.2396e-01_rb/)\n      kbo(:, 2,38,13) = (/ &\n     &6.8738e+01_rb,5.3032e+01_rb,3.7612e+01_rb,2.1200e+01_rb,1.6720e-01_rb/)\n      kbo(:, 3,38,13) = (/ &\n     &9.2373e+01_rb,7.0999e+01_rb,5.0053e+01_rb,2.8170e+01_rb,2.2370e-01_rb/)\n      kbo(:, 4,38,13) = (/ &\n     &1.2130e+02_rb,9.2918e+01_rb,6.5279e+01_rb,3.6626e+01_rb,2.8704e-01_rb/)\n      kbo(:, 5,38,13) = (/ &\n     &1.5627e+02_rb,1.1930e+02_rb,8.3547e+01_rb,4.6739e+01_rb,3.6180e-01_rb/)\n      kbo(:, 1,39,13) = (/ &\n     &4.5302e+01_rb,3.5171e+01_rb,2.5236e+01_rb,1.4286e+01_rb,1.0568e-01_rb/)\n      kbo(:, 2,39,13) = (/ &\n     &6.3391e+01_rb,4.9041e+01_rb,3.4923e+01_rb,1.9751e+01_rb,1.4249e-01_rb/)\n      kbo(:, 3,39,13) = (/ &\n     &8.6323e+01_rb,6.6507e+01_rb,4.7040e+01_rb,2.6533e+01_rb,1.9303e-01_rb/)\n      kbo(:, 4,39,13) = (/ &\n     &1.1457e+02_rb,8.7914e+01_rb,6.1899e+01_rb,3.4824e+01_rb,2.4868e-01_rb/)\n      kbo(:, 5,39,13) = (/ &\n     &1.4887e+02_rb,1.1383e+02_rb,7.9847e+01_rb,4.4779e+01_rb,3.1416e-01_rb/)\n      kbo(:, 1,40,13) = (/ &\n     &4.0177e+01_rb,3.1298e+01_rb,2.2565e+01_rb,1.2805e+01_rb,8.8138e-02_rb/)\n      kbo(:, 2,40,13) = (/ &\n     &5.7199e+01_rb,4.4376e+01_rb,3.1743e+01_rb,1.8006e+01_rb,1.1856e-01_rb/)\n      kbo(:, 3,40,13) = (/ &\n     &7.9150e+01_rb,6.1135e+01_rb,4.3398e+01_rb,2.4540e+01_rb,1.6359e-01_rb/)\n      kbo(:, 4,40,13) = (/ &\n     &1.0651e+02_rb,8.1890e+01_rb,5.7786e+01_rb,3.2576e+01_rb,2.1421e-01_rb/)\n      kbo(:, 5,40,13) = (/ &\n     &1.3985e+02_rb,1.0710e+02_rb,7.5255e+01_rb,4.2282e+01_rb,2.7560e-01_rb/)\n      kbo(:, 1,41,13) = (/ &\n     &3.5483e+01_rb,2.7745e+01_rb,2.0104e+01_rb,1.1435e+01_rb,7.4578e-02_rb/)\n      kbo(:, 2,41,13) = (/ &\n     &5.1443e+01_rb,4.0033e+01_rb,2.8766e+01_rb,1.6358e+01_rb,1.0080e-01_rb/)\n      kbo(:, 3,41,13) = (/ &\n     &7.2353e+01_rb,5.6024e+01_rb,3.9928e+01_rb,2.2644e+01_rb,1.3798e-01_rb/)\n      kbo(:, 4,41,13) = (/ &\n     &9.8821e+01_rb,7.6124e+01_rb,5.3862e+01_rb,3.0414e+01_rb,1.8395e-01_rb/)\n      kbo(:, 5,41,13) = (/ &\n     &1.3121e+02_rb,1.0062e+02_rb,7.0817e+01_rb,3.9858e+01_rb,2.3971e-01_rb/)\n      kbo(:, 1,42,13) = (/ &\n     &3.1312e+01_rb,2.4582e+01_rb,1.7898e+01_rb,1.0203e+01_rb,6.3311e-02_rb/)\n      kbo(:, 2,42,13) = (/ &\n     &4.6257e+01_rb,3.6106e+01_rb,2.6059e+01_rb,1.4850e+01_rb,8.5987e-02_rb/)\n      kbo(:, 3,42,13) = (/ &\n     &6.6134e+01_rb,5.1324e+01_rb,3.6711e+01_rb,2.0879e+01_rb,1.1696e-01_rb/)\n      kbo(:, 4,42,13) = (/ &\n     &9.1649e+01_rb,7.0739e+01_rb,5.0191e+01_rb,2.8396e+01_rb,1.5868e-01_rb/)\n      kbo(:, 5,42,13) = (/ &\n     &1.2315e+02_rb,9.4550e+01_rb,6.6649e+01_rb,3.7570e+01_rb,2.0886e-01_rb/)\n      kbo(:, 1,43,13) = (/ &\n     &2.7228e+01_rb,2.1458e+01_rb,1.5694e+01_rb,8.9614e+00_rb,5.3608e-02_rb/)\n      kbo(:, 2,43,13) = (/ &\n     &4.1053e+01_rb,3.2140e+01_rb,2.3306e+01_rb,1.3302e+01_rb,7.1800e-02_rb/)\n      kbo(:, 3,43,13) = (/ &\n     &5.9801e+01_rb,4.6516e+01_rb,3.3390e+01_rb,1.9030e+01_rb,9.7105e-02_rb/)\n      kbo(:, 4,43,13) = (/ &\n     &8.4239e+01_rb,6.5135e+01_rb,4.6335e+01_rb,2.6274e+01_rb,1.3391e-01_rb/)\n      kbo(:, 5,43,13) = (/ &\n     &1.1479e+02_rb,8.8247e+01_rb,6.2314e+01_rb,3.5145e+01_rb,1.7840e-01_rb/)\n      kbo(:, 1,44,13) = (/ &\n     &2.3465e+01_rb,1.8562e+01_rb,1.3638e+01_rb,7.7925e+00_rb,4.4874e-02_rb/)\n      kbo(:, 2,44,13) = (/ &\n     &3.6146e+01_rb,2.8382e+01_rb,2.0672e+01_rb,1.1814e+01_rb,5.9063e-02_rb/)\n      kbo(:, 3,44,13) = (/ &\n     &5.3714e+01_rb,4.1873e+01_rb,3.0165e+01_rb,1.7212e+01_rb,7.9828e-02_rb/)\n      kbo(:, 4,44,13) = (/ &\n     &7.6981e+01_rb,5.9614e+01_rb,4.2519e+01_rb,2.4160e+01_rb,1.1248e-01_rb/)\n      kbo(:, 5,44,13) = (/ &\n     &1.0651e+02_rb,8.1983e+01_rb,5.8013e+01_rb,3.2734e+01_rb,1.4901e-01_rb/)\n      kbo(:, 1,45,13) = (/ &\n     &2.0186e+01_rb,1.6021e+01_rb,1.1808e+01_rb,6.7511e+00_rb,3.7575e-02_rb/)\n      kbo(:, 2,45,13) = (/ &\n     &3.1735e+01_rb,2.4996e+01_rb,1.8280e+01_rb,1.0459e+01_rb,4.9524e-02_rb/)\n      kbo(:, 3,45,13) = (/ &\n     &4.8111e+01_rb,3.7595e+01_rb,2.7182e+01_rb,1.5526e+01_rb,6.7700e-02_rb/)\n      kbo(:, 4,45,13) = (/ &\n     &7.0180e+01_rb,5.4438e+01_rb,3.8926e+01_rb,2.2155e+01_rb,9.2168e-02_rb/)\n      kbo(:, 5,45,13) = (/ &\n     &9.8620e+01_rb,7.6015e+01_rb,5.3889e+01_rb,3.0449e+01_rb,1.2546e-01_rb/)\n      kbo(:, 1,46,13) = (/ &\n     &1.7168e+01_rb,1.3674e+01_rb,1.0102e+01_rb,5.7721e+00_rb,3.1506e-02_rb/)\n      kbo(:, 2,46,13) = (/ &\n     &2.7551e+01_rb,2.1759e+01_rb,1.5975e+01_rb,9.1472e+00_rb,4.1368e-02_rb/)\n      kbo(:, 3,46,13) = (/ &\n     &4.2631e+01_rb,3.3389e+01_rb,2.4233e+01_rb,1.3855e+01_rb,5.6581e-02_rb/)\n      kbo(:, 4,46,13) = (/ &\n     &6.3374e+01_rb,4.9245e+01_rb,3.5311e+01_rb,2.0117e+01_rb,7.4981e-02_rb/)\n      kbo(:, 5,46,13) = (/ &\n     &9.0545e+01_rb,6.9872e+01_rb,4.9627e+01_rb,2.8091e+01_rb,1.0356e-01_rb/)\n      kbo(:, 1,47,13) = (/ &\n     &1.4285e+01_rb,1.1420e+01_rb,8.4474e+00_rb,4.8173e+00_rb,2.6647e-02_rb/)\n      kbo(:, 2,47,13) = (/ &\n     &2.3421e+01_rb,1.8547e+01_rb,1.3658e+01_rb,7.8222e+00_rb,3.5142e-02_rb/)\n      kbo(:, 3,47,13) = (/ &\n     &3.7014e+01_rb,2.9064e+01_rb,2.1182e+01_rb,1.2119e+01_rb,4.6223e-02_rb/)\n      kbo(:, 4,47,13) = (/ &\n     &5.6196e+01_rb,4.3754e+01_rb,3.1477e+01_rb,1.7951e+01_rb,6.2561e-02_rb/)\n      kbo(:, 5,47,13) = (/ &\n     &8.1804e+01_rb,6.3215e+01_rb,4.5000e+01_rb,2.5512e+01_rb,8.4936e-02_rb/)\n      kbo(:, 1,48,13) = (/ &\n     &1.1839e+01_rb,9.5013e+00_rb,7.0342e+00_rb,3.9991e+00_rb,2.2276e-02_rb/)\n      kbo(:, 2,48,13) = (/ &\n     &1.9820e+01_rb,1.5737e+01_rb,1.1620e+01_rb,6.6464e+00_rb,2.9148e-02_rb/)\n      kbo(:, 3,48,13) = (/ &\n     &3.1994e+01_rb,2.5174e+01_rb,1.8417e+01_rb,1.0540e+01_rb,3.8297e-02_rb/)\n      kbo(:, 4,48,13) = (/ &\n     &4.9572e+01_rb,3.8675e+01_rb,2.7923e+01_rb,1.5936e+01_rb,5.2300e-02_rb/)\n      kbo(:, 5,48,13) = (/ &\n     &7.3600e+01_rb,5.6966e+01_rb,4.0638e+01_rb,2.3068e+01_rb,6.9650e-02_rb/)\n      kbo(:, 1,49,13) = (/ &\n     &9.7471e+00_rb,7.8584e+00_rb,5.8267e+00_rb,3.3020e+00_rb,1.8196e-02_rb/)\n      kbo(:, 2,49,13) = (/ &\n     &1.6704e+01_rb,1.3302e+01_rb,9.8376e+00_rb,5.6165e+00_rb,2.4552e-02_rb/)\n      kbo(:, 3,49,13) = (/ &\n     &2.7532e+01_rb,2.1706e+01_rb,1.5922e+01_rb,9.1112e+00_rb,3.1859e-02_rb/)\n      kbo(:, 4,49,13) = (/ &\n     &4.3516e+01_rb,3.4017e+01_rb,2.4645e+01_rb,1.4071e+01_rb,4.2368e-02_rb/)\n      kbo(:, 5,49,13) = (/ &\n     &6.5913e+01_rb,5.1094e+01_rb,3.6540e+01_rb,2.0762e+01_rb,5.7956e-02_rb/)\n      kbo(:, 1,50,13) = (/ &\n     &8.0804e+00_rb,6.5442e+00_rb,4.8528e+00_rb,2.7471e+00_rb,1.5480e-02_rb/)\n      kbo(:, 2,50,13) = (/ &\n     &1.4208e+01_rb,1.1343e+01_rb,8.3916e+00_rb,4.7793e+00_rb,2.1108e-02_rb/)\n      kbo(:, 3,50,13) = (/ &\n     &2.3865e+01_rb,1.8845e+01_rb,1.3856e+01_rb,7.9173e+00_rb,2.8070e-02_rb/)\n      kbo(:, 4,50,13) = (/ &\n     &3.8439e+01_rb,3.0084e+01_rb,2.1861e+01_rb,1.2484e+01_rb,3.6716e-02_rb/)\n      kbo(:, 5,50,13) = (/ &\n     &5.9311e+01_rb,4.6040e+01_rb,3.3007e+01_rb,1.8765e+01_rb,4.7982e-02_rb/)\n      kbo(:, 1,51,13) = (/ &\n     &6.6974e+00_rb,5.4506e+00_rb,4.0401e+00_rb,2.2835e+00_rb,1.2897e-02_rb/)\n      kbo(:, 2,51,13) = (/ &\n     &1.2105e+01_rb,9.6894e+00_rb,7.1742e+00_rb,4.0729e+00_rb,1.8234e-02_rb/)\n      kbo(:, 3,51,13) = (/ &\n     &2.0726e+01_rb,1.6392e+01_rb,1.2076e+01_rb,6.8856e+00_rb,2.4297e-02_rb/)\n      kbo(:, 4,51,13) = (/ &\n     &3.4010e+01_rb,2.6646e+01_rb,1.9402e+01_rb,1.1077e+01_rb,3.1447e-02_rb/)\n      kbo(:, 5,51,13) = (/ &\n     &5.3414e+01_rb,4.1508e+01_rb,2.9825e+01_rb,1.6965e+01_rb,4.1659e-02_rb/)\n      kbo(:, 1,52,13) = (/ &\n     &5.5139e+00_rb,4.5099e+00_rb,3.3452e+00_rb,1.8859e+00_rb,1.0839e-02_rb/)\n      kbo(:, 2,52,13) = (/ &\n     &1.0265e+01_rb,8.2392e+00_rb,6.1066e+00_rb,3.4594e+00_rb,1.5307e-02_rb/)\n      kbo(:, 3,52,13) = (/ &\n     &1.7969e+01_rb,1.4231e+01_rb,1.0492e+01_rb,5.9702e+00_rb,2.0782e-02_rb/)\n      kbo(:, 4,52,13) = (/ &\n     &3.0022e+01_rb,2.3539e+01_rb,1.7173e+01_rb,9.7942e+00_rb,2.7615e-02_rb/)\n      kbo(:, 5,52,13) = (/ &\n     &4.7976e+01_rb,3.7311e+01_rb,2.6868e+01_rb,1.5284e+01_rb,3.5883e-02_rb/)\n      kbo(:, 1,53,13) = (/ &\n     &4.5089e+00_rb,3.7050e+00_rb,2.7486e+00_rb,1.5449e+00_rb,8.8988e-03_rb/)\n      kbo(:, 2,53,13) = (/ &\n     &8.6595e+00_rb,6.9701e+00_rb,5.1646e+00_rb,2.9217e+00_rb,1.2928e-02_rb/)\n      kbo(:, 3,53,13) = (/ &\n     &1.5539e+01_rb,1.2324e+01_rb,9.0856e+00_rb,5.1569e+00_rb,1.7922e-02_rb/)\n      kbo(:, 4,53,13) = (/ &\n     &2.6425e+01_rb,2.0735e+01_rb,1.5153e+01_rb,8.6253e+00_rb,2.3907e-02_rb/)\n      kbo(:, 5,53,13) = (/ &\n     &4.2979e+01_rb,3.3444e+01_rb,2.4119e+01_rb,1.3719e+01_rb,3.1307e-02_rb/)\n      kbo(:, 1,54,13) = (/ &\n     &3.7369e+00_rb,3.0844e+00_rb,2.2855e+00_rb,1.2806e+00_rb,7.5969e-03_rb/)\n      kbo(:, 2,54,13) = (/ &\n     &7.3945e+00_rb,5.9700e+00_rb,4.4241e+00_rb,2.4976e+00_rb,1.1170e-02_rb/)\n      kbo(:, 3,54,13) = (/ &\n     &1.3610e+01_rb,1.0807e+01_rb,7.9714e+00_rb,4.5128e+00_rb,1.6129e-02_rb/)\n      kbo(:, 4,54,13) = (/ &\n     &2.3560e+01_rb,1.8494e+01_rb,1.3530e+01_rb,7.6837e+00_rb,2.1838e-02_rb/)\n      kbo(:, 5,54,13) = (/ &\n     &3.8949e+01_rb,3.0311e+01_rb,2.1882e+01_rb,1.2434e+01_rb,2.8239e-02_rb/)\n      kbo(:, 1,55,13) = (/ &\n     &3.1147e+00_rb,2.5777e+00_rb,1.9050e+00_rb,1.0637e+00_rb,6.5369e-03_rb/)\n      kbo(:, 2,55,13) = (/ &\n     &6.3439e+00_rb,5.1347e+00_rb,3.8054e+00_rb,2.1454e+00_rb,1.0024e-02_rb/)\n      kbo(:, 3,55,13) = (/ &\n     &1.1985e+01_rb,9.5229e+00_rb,7.0258e+00_rb,3.9713e+00_rb,1.4330e-02_rb/)\n      kbo(:, 4,55,13) = (/ &\n     &2.1145e+01_rb,1.6600e+01_rb,1.2148e+01_rb,6.8814e+00_rb,1.9929e-02_rb/)\n      kbo(:, 5,55,13) = (/ &\n     &3.5505e+01_rb,2.7628e+01_rb,1.9956e+01_rb,1.1323e+01_rb,2.6070e-02_rb/)\n      kbo(:, 1,56,13) = (/ &\n     &2.5841e+00_rb,2.1412e+00_rb,1.5792e+00_rb,8.7847e-01_rb,5.7272e-03_rb/)\n      kbo(:, 2,56,13) = (/ &\n     &5.4279e+00_rb,4.4047e+00_rb,3.2621e+00_rb,1.8370e+00_rb,9.0085e-03_rb/)\n      kbo(:, 3,56,13) = (/ &\n     &1.0541e+01_rb,8.3802e+00_rb,6.1801e+00_rb,3.4870e+00_rb,1.2894e-02_rb/)\n      kbo(:, 4,56,13) = (/ &\n     &1.8998e+01_rb,1.4914e+01_rb,1.0910e+01_rb,6.1631e+00_rb,1.8216e-02_rb/)\n      kbo(:, 5,56,13) = (/ &\n     &3.2387e+01_rb,2.5195e+01_rb,1.8200e+01_rb,1.0311e+01_rb,2.5017e-02_rb/)\n      kbo(:, 1,57,13) = (/ &\n     &2.1273e+00_rb,1.7663e+00_rb,1.2997e+00_rb,7.2182e-01_rb,4.9990e-03_rb/)\n      kbo(:, 2,57,13) = (/ &\n     &4.6288e+00_rb,3.7653e+00_rb,2.7876e+00_rb,1.5653e+00_rb,7.9939e-03_rb/)\n      kbo(:, 3,57,13) = (/ &\n     &9.2459e+00_rb,7.3572e+00_rb,5.4258e+00_rb,3.0550e+00_rb,1.1761e-02_rb/)\n      kbo(:, 4,57,13) = (/ &\n     &1.7067e+01_rb,1.3395e+01_rb,9.7952e+00_rb,5.5222e+00_rb,1.6851e-02_rb/)\n      kbo(:, 5,57,13) = (/ &\n     &2.9574e+01_rb,2.2993e+01_rb,1.6606e+01_rb,9.3912e+00_rb,2.2852e-02_rb/)\n      kbo(:, 1,58,13) = (/ &\n     &8.4744e-01_rb,8.1145e-01_rb,7.0194e-01_rb,4.7172e-01_rb,4.4639e-03_rb/)\n      kbo(:, 2,58,13) = (/ &\n     &1.9303e+00_rb,1.8049e+00_rb,1.5645e+00_rb,1.0595e+00_rb,7.1718e-03_rb/)\n      kbo(:, 3,58,13) = (/ &\n     &3.9593e+00_rb,3.6185e+00_rb,3.1318e+00_rb,2.1308e+00_rb,1.0759e-02_rb/)\n      kbo(:, 4,58,13) = (/ &\n     &7.4878e+00_rb,6.7423e+00_rb,5.7807e+00_rb,3.9390e+00_rb,1.5270e-02_rb/)\n      kbo(:, 5,58,13) = (/ &\n     &1.3201e+01_rb,1.1774e+01_rb,9.9717e+00_rb,6.8098e+00_rb,2.1046e-02_rb/)\n      kbo(:, 1,59,13) = (/ &\n     &7.8389e-01_rb,7.5361e-01_rb,6.5545e-01_rb,4.4390e-01_rb,4.7731e-03_rb/)\n      kbo(:, 2,59,13) = (/ &\n     &1.8316e+00_rb,1.7144e+00_rb,1.4906e+00_rb,1.0154e+00_rb,7.3182e-03_rb/)\n      kbo(:, 3,59,13) = (/ &\n     &3.8012e+00_rb,3.4796e+00_rb,3.0220e+00_rb,2.0697e+00_rb,1.0970e-02_rb/)\n      kbo(:, 4,59,13) = (/ &\n     &7.2668e+00_rb,6.5534e+00_rb,5.6332e+00_rb,3.8611e+00_rb,1.5317e-02_rb/)\n      kbo(:, 5,59,13) = (/ &\n     &1.2911e+01_rb,1.1536e+01_rb,9.7915e+00_rb,6.7229e+00_rb,2.2015e-02_rb/)\n      kbo(:, 1,13,14) = (/ &\n     &2.9725e+02_rb,2.2295e+02_rb,1.4862e+02_rb,7.4314e+01_rb,8.5883e-01_rb/)\n      kbo(:, 2,13,14) = (/ &\n     &4.1294e+02_rb,3.0971e+02_rb,2.0649e+02_rb,1.0324e+02_rb,7.4403e-01_rb/)\n      kbo(:, 3,13,14) = (/ &\n     &5.5502e+02_rb,4.1625e+02_rb,2.7751e+02_rb,1.3875e+02_rb,6.6008e-01_rb/)\n      kbo(:, 4,13,14) = (/ &\n     &7.2029e+02_rb,5.4024e+02_rb,3.6017e+02_rb,1.8008e+02_rb,1.1155e+00_rb/)\n      kbo(:, 5,13,14) = (/ &\n     &9.0592e+02_rb,6.7946e+02_rb,4.5296e+02_rb,2.2648e+02_rb,2.5465e+00_rb/)\n      kbo(:, 1,14,14) = (/ &\n     &3.2435e+02_rb,2.4326e+02_rb,1.6217e+02_rb,8.1092e+01_rb,7.8098e-01_rb/)\n      kbo(:, 2,14,14) = (/ &\n     &4.4892e+02_rb,3.3668e+02_rb,2.2444e+02_rb,1.1223e+02_rb,5.4602e-01_rb/)\n      kbo(:, 3,14,14) = (/ &\n     &6.0099e+02_rb,4.5075e+02_rb,3.0049e+02_rb,1.5025e+02_rb,1.0325e+00_rb/)\n      kbo(:, 4,14,14) = (/ &\n     &7.7937e+02_rb,5.8453e+02_rb,3.8969e+02_rb,1.9485e+02_rb,1.5016e+00_rb/)\n      kbo(:, 5,14,14) = (/ &\n     &9.8034e+02_rb,7.3527e+02_rb,4.9018e+02_rb,2.4510e+02_rb,3.4894e+00_rb/)\n      kbo(:, 1,15,14) = (/ &\n     &3.4430e+02_rb,2.5823e+02_rb,1.7215e+02_rb,8.6071e+01_rb,4.7442e-01_rb/)\n      kbo(:, 2,15,14) = (/ &\n     &4.7694e+02_rb,3.5770e+02_rb,2.3846e+02_rb,1.1924e+02_rb,9.8957e-01_rb/)\n      kbo(:, 3,15,14) = (/ &\n     &6.3659e+02_rb,4.7745e+02_rb,3.1829e+02_rb,1.5915e+02_rb,1.3277e+00_rb/)\n      kbo(:, 4,15,14) = (/ &\n     &8.2316e+02_rb,6.1735e+02_rb,4.1157e+02_rb,2.0578e+02_rb,2.6545e+00_rb/)\n      kbo(:, 5,15,14) = (/ &\n     &1.0339e+03_rb,7.7536e+02_rb,5.1695e+02_rb,2.5844e+02_rb,4.8753e+00_rb/)\n      kbo(:, 1,16,14) = (/ &\n     &3.6224e+02_rb,2.7168e+02_rb,1.8111e+02_rb,9.0555e+01_rb,8.6361e-01_rb/)\n      kbo(:, 2,16,14) = (/ &\n     &5.0155e+02_rb,3.7615e+02_rb,2.5077e+02_rb,1.2539e+02_rb,1.3098e+00_rb/)\n      kbo(:, 3,16,14) = (/ &\n     &6.6682e+02_rb,5.0012e+02_rb,3.3343e+02_rb,1.6672e+02_rb,2.0810e+00_rb/)\n      kbo(:, 4,16,14) = (/ &\n     &8.5980e+02_rb,6.4485e+02_rb,4.2990e+02_rb,2.1496e+02_rb,4.0118e+00_rb/)\n      kbo(:, 5,16,14) = (/ &\n     &1.0768e+03_rb,8.0756e+02_rb,5.3838e+02_rb,2.6919e+02_rb,6.0151e+00_rb/)\n      kbo(:, 1,17,14) = (/ &\n     &3.8011e+02_rb,2.8509e+02_rb,1.9007e+02_rb,9.5029e+01_rb,1.2720e+00_rb/)\n      kbo(:, 2,17,14) = (/ &\n     &5.2601e+02_rb,3.9448e+02_rb,2.6301e+02_rb,1.3150e+02_rb,1.5543e+00_rb/)\n      kbo(:, 3,17,14) = (/ &\n     &6.9761e+02_rb,5.2320e+02_rb,3.4880e+02_rb,1.7439e+02_rb,2.9841e+00_rb/)\n      kbo(:, 4,17,14) = (/ &\n     &8.9515e+02_rb,6.7136e+02_rb,4.4757e+02_rb,2.2378e+02_rb,4.6409e+00_rb/)\n      kbo(:, 5,17,14) = (/ &\n     &1.1181e+03_rb,8.3857e+02_rb,5.5903e+02_rb,2.7954e+02_rb,6.6157e+00_rb/)\n      kbo(:, 1,18,14) = (/ &\n     &3.9222e+02_rb,2.9415e+02_rb,1.9611e+02_rb,9.8051e+01_rb,1.3802e+00_rb/)\n      kbo(:, 2,18,14) = (/ &\n     &5.4105e+02_rb,4.0577e+02_rb,2.7053e+02_rb,1.3526e+02_rb,2.0079e+00_rb/)\n      kbo(:, 3,18,14) = (/ &\n     &7.1441e+02_rb,5.3583e+02_rb,3.5723e+02_rb,1.7861e+02_rb,3.3624e+00_rb/)\n      kbo(:, 4,18,14) = (/ &\n     &9.1265e+02_rb,6.8450e+02_rb,4.5632e+02_rb,2.2816e+02_rb,4.9650e+00_rb/)\n      kbo(:, 5,18,14) = (/ &\n     &1.1336e+03_rb,8.5015e+02_rb,5.6679e+02_rb,2.8338e+02_rb,6.8761e+00_rb/)\n      kbo(:, 1,19,14) = (/ &\n     &4.0839e+02_rb,3.0630e+02_rb,2.0420e+02_rb,1.0209e+02_rb,1.4198e+00_rb/)\n      kbo(:, 2,19,14) = (/ &\n     &5.5968e+02_rb,4.1977e+02_rb,2.7985e+02_rb,1.3992e+02_rb,2.2241e+00_rb/)\n      kbo(:, 3,19,14) = (/ &\n     &7.3637e+02_rb,5.5226e+02_rb,3.6818e+02_rb,1.8410e+02_rb,3.5653e+00_rb/)\n      kbo(:, 4,19,14) = (/ &\n     &9.3504e+02_rb,7.0126e+02_rb,4.6751e+02_rb,2.3375e+02_rb,5.1035e+00_rb/)\n      kbo(:, 5,19,14) = (/ &\n     &1.1560e+03_rb,8.6697e+02_rb,5.7801e+02_rb,2.8901e+02_rb,6.9044e+00_rb/)\n      kbo(:, 1,20,14) = (/ &\n     &4.2971e+02_rb,3.2229e+02_rb,2.1485e+02_rb,1.0743e+02_rb,1.5393e+00_rb/)\n      kbo(:, 2,20,14) = (/ &\n     &5.8587e+02_rb,4.3942e+02_rb,2.9293e+02_rb,1.4647e+02_rb,2.2601e+00_rb/)\n      kbo(:, 3,20,14) = (/ &\n     &7.6617e+02_rb,5.7464e+02_rb,3.8311e+02_rb,1.9155e+02_rb,3.5353e+00_rb/)\n      kbo(:, 4,20,14) = (/ &\n     &9.6798e+02_rb,7.2594e+02_rb,4.8398e+02_rb,2.4197e+02_rb,5.0919e+00_rb/)\n      kbo(:, 5,20,14) = (/ &\n     &1.1898e+03_rb,8.9235e+02_rb,5.9489e+02_rb,2.9744e+02_rb,6.7835e+00_rb/)\n      kbo(:, 1,21,14) = (/ &\n     &4.4889e+02_rb,3.3666e+02_rb,2.2444e+02_rb,1.1222e+02_rb,1.6427e+00_rb/)\n      kbo(:, 2,21,14) = (/ &\n     &6.0830e+02_rb,4.5623e+02_rb,3.0417e+02_rb,1.5208e+02_rb,2.2298e+00_rb/)\n      kbo(:, 3,21,14) = (/ &\n     &7.9080e+02_rb,5.9312e+02_rb,3.9541e+02_rb,1.9769e+02_rb,3.4367e+00_rb/)\n      kbo(:, 4,21,14) = (/ &\n     &9.9371e+02_rb,7.4527e+02_rb,4.9684e+02_rb,2.4842e+02_rb,4.8609e+00_rb/)\n      kbo(:, 5,21,14) = (/ &\n     &1.2155e+03_rb,9.1159e+02_rb,6.0771e+02_rb,3.0387e+02_rb,6.5479e+00_rb/)\n      kbo(:, 1,22,14) = (/ &\n     &4.7127e+02_rb,3.5343e+02_rb,2.3563e+02_rb,1.1782e+02_rb,1.6925e+00_rb/)\n      kbo(:, 2,22,14) = (/ &\n     &6.3239e+02_rb,4.7428e+02_rb,3.1618e+02_rb,1.5809e+02_rb,2.2427e+00_rb/)\n      kbo(:, 3,22,14) = (/ &\n     &8.1553e+02_rb,6.1164e+02_rb,4.0775e+02_rb,2.0390e+02_rb,3.3409e+00_rb/)\n      kbo(:, 4,22,14) = (/ &\n     &1.0189e+03_rb,7.6417e+02_rb,5.0944e+02_rb,2.5480e+02_rb,4.6697e+00_rb/)\n      kbo(:, 5,22,14) = (/ &\n     &1.2378e+03_rb,9.2835e+02_rb,6.1890e+02_rb,3.0965e+02_rb,6.2760e+00_rb/)\n      kbo(:, 1,23,14) = (/ &\n     &4.8713e+02_rb,3.6534e+02_rb,2.4356e+02_rb,1.2192e+02_rb,1.6599e+00_rb/)\n      kbo(:, 2,23,14) = (/ &\n     &6.4775e+02_rb,4.8583e+02_rb,3.2387e+02_rb,1.6212e+02_rb,2.1938e+00_rb/)\n      kbo(:, 3,23,14) = (/ &\n     &8.3023e+02_rb,6.2268e+02_rb,4.1512e+02_rb,2.0786e+02_rb,3.2003e+00_rb/)\n      kbo(:, 4,23,14) = (/ &\n     &1.0300e+03_rb,7.7249e+02_rb,5.1499e+02_rb,2.5803e+02_rb,4.4341e+00_rb/)\n      kbo(:, 5,23,14) = (/ &\n     &1.2450e+03_rb,9.3374e+02_rb,6.2249e+02_rb,3.1208e+02_rb,5.9729e+00_rb/)\n      kbo(:, 1,24,14) = (/ &\n     &5.0112e+02_rb,3.7583e+02_rb,2.5056e+02_rb,1.2575e+02_rb,1.5724e+00_rb/)\n      kbo(:, 2,24,14) = (/ &\n     &6.6153e+02_rb,4.9614e+02_rb,3.3076e+02_rb,1.6604e+02_rb,2.1250e+00_rb/)\n      kbo(:, 3,24,14) = (/ &\n     &8.4162e+02_rb,6.3120e+02_rb,4.2079e+02_rb,2.1132e+02_rb,3.0488e+00_rb/)\n      kbo(:, 4,24,14) = (/ &\n     &1.0387e+03_rb,7.7903e+02_rb,5.1934e+02_rb,2.6092e+02_rb,4.1964e+00_rb/)\n      kbo(:, 5,24,14) = (/ &\n     &1.2497e+03_rb,9.3727e+02_rb,6.2485e+02_rb,3.1407e+02_rb,5.6661e+00_rb/)\n      kbo(:, 1,25,14) = (/ &\n     &5.0957e+02_rb,3.8217e+02_rb,2.5479e+02_rb,1.2836e+02_rb,1.4865e+00_rb/)\n      kbo(:, 2,25,14) = (/ &\n     &6.6771e+02_rb,5.0078e+02_rb,3.3385e+02_rb,1.6824e+02_rb,2.0184e+00_rb/)\n      kbo(:, 3,25,14) = (/ &\n     &8.4466e+02_rb,6.3351e+02_rb,4.2233e+02_rb,2.1290e+02_rb,2.8760e+00_rb/)\n      kbo(:, 4,25,14) = (/ &\n     &1.0379e+03_rb,7.7843e+02_rb,5.1895e+02_rb,2.6171e+02_rb,3.9646e+00_rb/)\n      kbo(:, 5,25,14) = (/ &\n     &1.2454e+03_rb,9.3411e+02_rb,6.2273e+02_rb,3.1409e+02_rb,5.3432e+00_rb/)\n      kbo(:, 1,26,14) = (/ &\n     &5.1543e+02_rb,3.8657e+02_rb,2.5772e+02_rb,1.3040e+02_rb,1.4310e+00_rb/)\n      kbo(:, 2,26,14) = (/ &\n     &6.7055e+02_rb,5.0292e+02_rb,3.3528e+02_rb,1.6969e+02_rb,1.9779e+00_rb/)\n      kbo(:, 3,26,14) = (/ &\n     &8.4393e+02_rb,6.3294e+02_rb,4.2195e+02_rb,2.1362e+02_rb,2.7140e+00_rb/)\n      kbo(:, 4,26,14) = (/ &\n     &1.0339e+03_rb,7.7538e+02_rb,5.1691e+02_rb,2.6173e+02_rb,3.7614e+00_rb/)\n      kbo(:, 5,26,14) = (/ &\n     &1.2377e+03_rb,9.2822e+02_rb,6.1881e+02_rb,3.1339e+02_rb,5.0524e+00_rb/)\n      kbo(:, 1,27,14) = (/ &\n     &5.1680e+02_rb,3.8760e+02_rb,2.5844e+02_rb,1.3139e+02_rb,1.4644e+00_rb/)\n      kbo(:, 2,27,14) = (/ &\n     &6.6877e+02_rb,5.0158e+02_rb,3.3442e+02_rb,1.7006e+02_rb,1.9743e+00_rb/)\n      kbo(:, 3,27,14) = (/ &\n     &8.3912e+02_rb,6.2935e+02_rb,4.1964e+02_rb,2.1343e+02_rb,2.6423e+00_rb/)\n      kbo(:, 4,27,14) = (/ &\n     &1.0255e+03_rb,7.6907e+02_rb,5.1284e+02_rb,2.6091e+02_rb,3.5939e+00_rb/)\n      kbo(:, 5,27,14) = (/ &\n     &1.2273e+03_rb,9.2048e+02_rb,6.1378e+02_rb,3.1226e+02_rb,4.8265e+00_rb/)\n      kbo(:, 1,28,14) = (/ &\n     &5.1471e+02_rb,3.8604e+02_rb,2.5761e+02_rb,1.3161e+02_rb,1.4975e+00_rb/)\n      kbo(:, 2,28,14) = (/ &\n     &6.6390e+02_rb,4.9793e+02_rb,3.3227e+02_rb,1.6984e+02_rb,1.9755e+00_rb/)\n      kbo(:, 3,28,14) = (/ &\n     &8.3099e+02_rb,6.2328e+02_rb,4.1590e+02_rb,2.1266e+02_rb,2.6592e+00_rb/)\n      kbo(:, 4,28,14) = (/ &\n     &1.0159e+03_rb,7.6197e+02_rb,5.0842e+02_rb,2.5994e+02_rb,3.4854e+00_rb/)\n      kbo(:, 5,28,14) = (/ &\n     &1.2168e+03_rb,9.1262e+02_rb,6.0898e+02_rb,3.1138e+02_rb,4.6837e+00_rb/)\n      kbo(:, 1,29,14) = (/ &\n     &5.0817e+02_rb,3.8113e+02_rb,2.5474e+02_rb,1.3092e+02_rb,1.4861e+00_rb/)\n      kbo(:, 2,29,14) = (/ &\n     &6.5385e+02_rb,4.9038e+02_rb,3.2768e+02_rb,1.6851e+02_rb,1.9807e+00_rb/)\n      kbo(:, 3,29,14) = (/ &\n     &8.1862e+02_rb,6.1397e+02_rb,4.1013e+02_rb,2.1090e+02_rb,2.6083e+00_rb/)\n      kbo(:, 4,29,14) = (/ &\n     &1.0015e+03_rb,7.5115e+02_rb,5.0169e+02_rb,2.5799e+02_rb,3.4366e+00_rb/)\n      kbo(:, 5,29,14) = (/ &\n     &1.2004e+03_rb,9.0023e+02_rb,6.0130e+02_rb,3.0911e+02_rb,4.6309e+00_rb/)\n      kbo(:, 1,30,14) = (/ &\n     &4.9890e+02_rb,3.7416e+02_rb,2.5051e+02_rb,1.2967e+02_rb,1.4792e+00_rb/)\n      kbo(:, 2,30,14) = (/ &\n     &6.4183e+02_rb,4.8137e+02_rb,3.2213e+02_rb,1.6671e+02_rb,1.9639e+00_rb/)\n      kbo(:, 3,30,14) = (/ &\n     &8.0457e+02_rb,6.0342e+02_rb,4.0369e+02_rb,2.0889e+02_rb,2.5564e+00_rb/)\n      kbo(:, 4,30,14) = (/ &\n     &9.8521e+02_rb,7.3890e+02_rb,4.9415e+02_rb,2.5564e+02_rb,3.4162e+00_rb/)\n      kbo(:, 5,30,14) = (/ &\n     &1.1820e+03_rb,8.8651e+02_rb,5.9274e+02_rb,3.0646e+02_rb,4.6345e+00_rb/)\n      kbo(:, 1,31,14) = (/ &\n     &4.8682e+02_rb,3.6513e+02_rb,2.4494e+02_rb,1.2775e+02_rb,1.4549e+00_rb/)\n      kbo(:, 2,31,14) = (/ &\n     &6.2686e+02_rb,4.7014e+02_rb,3.1520e+02_rb,1.6432e+02_rb,1.8973e+00_rb/)\n      kbo(:, 3,31,14) = (/ &\n     &7.8640e+02_rb,5.8981e+02_rb,3.9524e+02_rb,2.0591e+02_rb,2.5203e+00_rb/)\n      kbo(:, 4,31,14) = (/ &\n     &9.6406e+02_rb,7.2305e+02_rb,4.8423e+02_rb,2.5217e+02_rb,3.4800e+00_rb/)\n      kbo(:, 5,31,14) = (/ &\n     &1.1586e+03_rb,8.6894e+02_rb,5.8171e+02_rb,3.0260e+02_rb,4.7311e+00_rb/)\n      kbo(:, 1,32,14) = (/ &\n     &4.7960e+02_rb,3.5970e+02_rb,2.4176e+02_rb,1.2713e+02_rb,1.4049e+00_rb/)\n      kbo(:, 2,32,14) = (/ &\n     &6.1788e+02_rb,4.6339e+02_rb,3.1125e+02_rb,1.6347e+02_rb,1.8610e+00_rb/)\n      kbo(:, 3,32,14) = (/ &\n     &7.7566e+02_rb,5.8175e+02_rb,3.9047e+02_rb,2.0479e+02_rb,2.5736e+00_rb/)\n      kbo(:, 4,32,14) = (/ &\n     &9.5231e+02_rb,7.1420e+02_rb,4.7904e+02_rb,2.5086e+02_rb,3.5724e+00_rb/)\n      kbo(:, 5,32,14) = (/ &\n     &1.1464e+03_rb,8.5978e+02_rb,5.7626e+02_rb,3.0128e+02_rb,4.8525e+00_rb/)\n      kbo(:, 1,33,14) = (/ &\n     &4.7673e+02_rb,3.5758e+02_rb,2.4086e+02_rb,1.2764e+02_rb,1.3592e+00_rb/)\n      kbo(:, 2,33,14) = (/ &\n     &6.1463e+02_rb,4.6099e+02_rb,3.1024e+02_rb,1.6404e+02_rb,1.8844e+00_rb/)\n      kbo(:, 3,33,14) = (/ &\n     &7.7253e+02_rb,5.7937e+02_rb,3.8948e+02_rb,2.0544e+02_rb,2.6672e+00_rb/)\n      kbo(:, 4,33,14) = (/ &\n     &9.4922e+02_rb,7.1189e+02_rb,4.7815e+02_rb,2.5158e+02_rb,3.7054e+00_rb/)\n      kbo(:, 5,33,14) = (/ &\n     &1.1446e+03_rb,8.5842e+02_rb,5.7603e+02_rb,3.0239e+02_rb,5.0353e+00_rb/)\n      kbo(:, 1,34,14) = (/ &\n     &4.7829e+02_rb,3.5882e+02_rb,2.4214e+02_rb,1.2917e+02_rb,1.3360e+00_rb/)\n      kbo(:, 2,34,14) = (/ &\n     &6.1765e+02_rb,4.6331e+02_rb,3.1226e+02_rb,1.6594e+02_rb,1.9203e+00_rb/)\n      kbo(:, 3,34,14) = (/ &\n     &7.7743e+02_rb,5.8310e+02_rb,3.9256e+02_rb,2.0792e+02_rb,2.7349e+00_rb/)\n      kbo(:, 4,34,14) = (/ &\n     &9.5686e+02_rb,7.1762e+02_rb,4.8256e+02_rb,2.5475e+02_rb,3.8031e+00_rb/)\n      kbo(:, 5,34,14) = (/ &\n     &1.1550e+03_rb,8.6629e+02_rb,5.8189e+02_rb,3.0631e+02_rb,5.2021e+00_rb/)\n      kbo(:, 1,35,14) = (/ &\n     &4.7226e+02_rb,3.5443e+02_rb,2.3957e+02_rb,1.2851e+02_rb,1.3086e+00_rb/)\n      kbo(:, 2,35,14) = (/ &\n     &6.1214e+02_rb,4.5923e+02_rb,3.0998e+02_rb,1.6546e+02_rb,1.9154e+00_rb/)\n      kbo(:, 3,35,14) = (/ &\n     &7.7280e+02_rb,5.7976e+02_rb,3.9077e+02_rb,2.0773e+02_rb,2.7357e+00_rb/)\n      kbo(:, 4,35,14) = (/ &\n     &9.5397e+02_rb,7.1554e+02_rb,4.8165e+02_rb,2.5508e+02_rb,3.8286e+00_rb/)\n      kbo(:, 5,35,14) = (/ &\n     &1.1540e+03_rb,8.6552e+02_rb,5.8187e+02_rb,3.0708e+02_rb,5.2636e+00_rb/)\n      kbo(:, 1,36,14) = (/ &\n     &4.5693e+02_rb,3.4301e+02_rb,2.3220e+02_rb,1.2520e+02_rb,1.2533e+00_rb/)\n      kbo(:, 2,36,14) = (/ &\n     &5.9574e+02_rb,4.4710e+02_rb,3.0221e+02_rb,1.6199e+02_rb,1.8411e+00_rb/)\n      kbo(:, 3,36,14) = (/ &\n     &7.5609e+02_rb,5.6723e+02_rb,3.8282e+02_rb,2.0421e+02_rb,2.6504e+00_rb/)\n      kbo(:, 4,36,14) = (/ &\n     &9.3751e+02_rb,7.0328e+02_rb,4.7386e+02_rb,2.5165e+02_rb,3.7407e+00_rb/)\n      kbo(:, 5,36,14) = (/ &\n     &1.1381e+03_rb,8.5353e+02_rb,5.7430e+02_rb,3.0378e+02_rb,5.1704e+00_rb/)\n      kbo(:, 1,37,14) = (/ &\n     &4.2922e+02_rb,3.2232e+02_rb,2.1847e+02_rb,1.1834e+02_rb,1.1213e+00_rb/)\n      kbo(:, 2,37,14) = (/ &\n     &5.6522e+02_rb,4.2422e+02_rb,2.8713e+02_rb,1.5453e+02_rb,1.6760e+00_rb/)\n      kbo(:, 3,37,14) = (/ &\n     &7.2332e+02_rb,5.4281e+02_rb,3.6673e+02_rb,1.9621e+02_rb,2.4344e+00_rb/)\n      kbo(:, 4,37,14) = (/ &\n     &9.0338e+02_rb,6.7777e+02_rb,4.5711e+02_rb,2.4334e+02_rb,3.4735e+00_rb/)\n      kbo(:, 5,37,14) = (/ &\n     &1.1034e+03_rb,8.2764e+02_rb,5.5725e+02_rb,2.9534e+02_rb,4.8510e+00_rb/)\n      kbo(:, 1,38,14) = (/ &\n     &4.0355e+02_rb,3.0314e+02_rb,2.0578e+02_rb,1.1195e+02_rb,1.0088e+00_rb/)\n      kbo(:, 2,38,14) = (/ &\n     &5.3660e+02_rb,4.0286e+02_rb,2.7296e+02_rb,1.4742e+02_rb,1.5281e+00_rb/)\n      kbo(:, 3,38,14) = (/ &\n     &6.9245e+02_rb,5.1973e+02_rb,3.5152e+02_rb,1.8858e+02_rb,2.2407e+00_rb/)\n      kbo(:, 4,38,14) = (/ &\n     &8.7113e+02_rb,6.5360e+02_rb,4.4117e+02_rb,2.3535e+02_rb,3.2324e+00_rb/)\n      kbo(:, 5,38,14) = (/ &\n     &1.0703e+03_rb,8.0291e+02_rb,5.4092e+02_rb,2.8714e+02_rb,4.5526e+00_rb/)\n      kbo(:, 1,39,14) = (/ &\n     &3.8048e+02_rb,2.8595e+02_rb,1.9433e+02_rb,1.0614e+02_rb,9.1242e-01_rb/)\n      kbo(:, 2,39,14) = (/ &\n     &5.1067e+02_rb,3.8348e+02_rb,2.6010e+02_rb,1.4089e+02_rb,1.4025e+00_rb/)\n      kbo(:, 3,39,14) = (/ &\n     &6.6451e+02_rb,4.9880e+02_rb,3.3759e+02_rb,1.8159e+02_rb,2.0765e+00_rb/)\n      kbo(:, 4,39,14) = (/ &\n     &8.4141e+02_rb,6.3140e+02_rb,4.2638e+02_rb,2.2792e+02_rb,3.0229e+00_rb/)\n      kbo(:, 5,39,14) = (/ &\n     &1.0396e+03_rb,7.7992e+02_rb,5.2571e+02_rb,2.7947e+02_rb,4.2952e+00_rb/)\n      kbo(:, 1,40,14) = (/ &\n     &3.5133e+02_rb,2.6415e+02_rb,1.7970e+02_rb,9.8495e+01_rb,7.8366e-01_rb/)\n      kbo(:, 2,40,14) = (/ &\n     &4.7771e+02_rb,3.5880e+02_rb,2.4356e+02_rb,1.3227e+02_rb,1.2276e+00_rb/)\n      kbo(:, 3,40,14) = (/ &\n     &6.2817e+02_rb,4.7163e+02_rb,3.1937e+02_rb,1.7209e+02_rb,1.8434e+00_rb/)\n      kbo(:, 4,40,14) = (/ &\n     &8.0277e+02_rb,6.0241e+02_rb,4.0711e+02_rb,2.1788e+02_rb,2.7123e+00_rb/)\n      kbo(:, 5,40,14) = (/ &\n     &9.9978e+02_rb,7.5011e+02_rb,5.0577e+02_rb,2.6911e+02_rb,3.8911e+00_rb/)\n      kbo(:, 1,41,14) = (/ &\n     &3.2342e+02_rb,2.4324e+02_rb,1.6567e+02_rb,9.1094e+01_rb,6.6818e-01_rb/)\n      kbo(:, 2,41,14) = (/ &\n     &4.4573e+02_rb,3.3493e+02_rb,2.2747e+02_rb,1.2382e+02_rb,1.0662e+00_rb/)\n      kbo(:, 3,41,14) = (/ &\n     &5.9252e+02_rb,4.4488e+02_rb,3.0145e+02_rb,1.6269e+02_rb,1.6310e+00_rb/)\n      kbo(:, 4,41,14) = (/ &\n     &7.6447e+02_rb,5.7369e+02_rb,3.8787e+02_rb,2.0780e+02_rb,2.4231e+00_rb/)\n      kbo(:, 5,41,14) = (/ &\n     &9.6002e+02_rb,7.2027e+02_rb,4.8589e+02_rb,2.5869e+02_rb,3.5110e+00_rb/)\n      kbo(:, 1,42,14) = (/ &\n     &2.9741e+02_rb,2.2375e+02_rb,1.5256e+02_rb,8.4130e+01_rb,5.7099e-01_rb/)\n      kbo(:, 2,42,14) = (/ &\n     &4.1545e+02_rb,3.1224e+02_rb,2.1217e+02_rb,1.1576e+02_rb,9.2628e-01_rb/)\n      kbo(:, 3,42,14) = (/ &\n     &5.5858e+02_rb,4.1944e+02_rb,2.8433e+02_rb,1.5367e+02_rb,1.4426e+00_rb/)\n      kbo(:, 4,42,14) = (/ &\n     &7.2759e+02_rb,5.4609e+02_rb,3.6933e+02_rb,1.9808e+02_rb,2.1657e+00_rb/)\n      kbo(:, 5,42,14) = (/ &\n     &9.2131e+02_rb,6.9128e+02_rb,4.6648e+02_rb,2.4850e+02_rb,3.1673e+00_rb/)\n      kbo(:, 1,43,14) = (/ &\n     &2.7012e+02_rb,2.0330e+02_rb,1.3875e+02_rb,7.6704e+01_rb,4.7188e-01_rb/)\n      kbo(:, 2,43,14) = (/ &\n     &3.8333e+02_rb,2.8816e+02_rb,1.9596e+02_rb,1.0707e+02_rb,7.8390e-01_rb/)\n      kbo(:, 3,43,14) = (/ &\n     &5.2268e+02_rb,3.9255e+02_rb,2.6617e+02_rb,1.4400e+02_rb,1.2434e+00_rb/)\n      kbo(:, 4,43,14) = (/ &\n     &6.8847e+02_rb,5.1676e+02_rb,3.4954e+02_rb,1.8752e+02_rb,1.8919e+00_rb/)\n      kbo(:, 5,43,14) = (/ &\n     &8.8050e+02_rb,6.6068e+02_rb,4.4591e+02_rb,2.3760e+02_rb,2.7970e+00_rb/)\n      kbo(:, 1,44,14) = (/ &\n     &2.4333e+02_rb,1.8320e+02_rb,1.2513e+02_rb,6.9324e+01_rb,3.8543e-01_rb/)\n      kbo(:, 2,44,14) = (/ &\n     &3.5160e+02_rb,2.6439e+02_rb,1.7983e+02_rb,9.8391e+01_rb,6.5410e-01_rb/)\n      kbo(:, 3,44,14) = (/ &\n     &4.8672e+02_rb,3.6559e+02_rb,2.4794e+02_rb,1.3422e+02_rb,1.0574e+00_rb/)\n      kbo(:, 4,44,14) = (/ &\n     &6.4907e+02_rb,4.8721e+02_rb,3.2959e+02_rb,1.7683e+02_rb,1.6338e+00_rb/)\n      kbo(:, 5,44,14) = (/ &\n     &8.3935e+02_rb,6.2981e+02_rb,4.2512e+02_rb,2.2646e+02_rb,2.4460e+00_rb/)\n      kbo(:, 1,45,14) = (/ &\n     &2.1826e+02_rb,1.6439e+02_rb,1.1240e+02_rb,6.2387e+01_rb,3.1362e-01_rb/)\n      kbo(:, 2,45,14) = (/ &\n     &3.2151e+02_rb,2.4179e+02_rb,1.6452e+02_rb,9.0130e+01_rb,5.4229e-01_rb/)\n      kbo(:, 3,45,14) = (/ &\n     &4.5202e+02_rb,3.3957e+02_rb,2.3034e+02_rb,1.2476e+02_rb,8.9432e-01_rb/)\n      kbo(:, 4,45,14) = (/ &\n     &6.1098e+02_rb,4.5864e+02_rb,3.1027e+02_rb,1.6648e+02_rb,1.4094e+00_rb/)\n      kbo(:, 5,45,14) = (/ &\n     &7.9903e+02_rb,5.9956e+02_rb,4.0465e+02_rb,2.1549e+02_rb,2.1336e+00_rb/)\n      kbo(:, 1,46,14) = (/ &\n     &1.9334e+02_rb,1.4567e+02_rb,9.9705e+01_rb,5.5445e+01_rb,2.5106e-01_rb/)\n      kbo(:, 2,46,14) = (/ &\n     &2.9084e+02_rb,2.1878e+02_rb,1.4895e+02_rb,8.1712e+01_rb,4.4167e-01_rb/)\n      kbo(:, 3,46,14) = (/ &\n     &4.1605e+02_rb,3.1260e+02_rb,2.1206e+02_rb,1.1494e+02_rb,7.4589e-01_rb/)\n      kbo(:, 4,46,14) = (/ &\n     &5.7087e+02_rb,4.2857e+02_rb,2.8993e+02_rb,1.5559e+02_rb,1.1995e+00_rb/)\n      kbo(:, 5,46,14) = (/ &\n     &7.5566e+02_rb,5.6703e+02_rb,3.8272e+02_rb,2.0372e+02_rb,1.8420e+00_rb/)\n      kbo(:, 1,47,14) = (/ &\n     &1.6734e+02_rb,1.2615e+02_rb,8.6467e+01_rb,4.8182e+01_rb,1.9607e-01_rb/)\n      kbo(:, 2,47,14) = (/ &\n     &2.5798e+02_rb,1.9414e+02_rb,1.3227e+02_rb,7.2690e+01_rb,3.4728e-01_rb/)\n      kbo(:, 3,47,14) = (/ &\n     &3.7682e+02_rb,2.8319e+02_rb,1.9216e+02_rb,1.0425e+02_rb,6.0496e-01_rb/)\n      kbo(:, 4,47,14) = (/ &\n     &5.2596e+02_rb,3.9489e+02_rb,2.6718e+02_rb,1.4343e+02_rb,9.9190e-01_rb/)\n      kbo(:, 5,47,14) = (/ &\n     &7.0637e+02_rb,5.3006e+02_rb,3.5776e+02_rb,1.9039e+02_rb,1.5539e+00_rb/)\n      kbo(:, 1,48,14) = (/ &\n     &1.4359e+02_rb,1.0831e+02_rb,7.4350e+01_rb,4.1515e+01_rb,1.5112e-01_rb/)\n      kbo(:, 2,48,14) = (/ &\n     &2.2736e+02_rb,1.7115e+02_rb,1.1670e+02_rb,6.4242e+01_rb,2.7228e-01_rb/)\n      kbo(:, 3,48,14) = (/ &\n     &3.3955e+02_rb,2.5527e+02_rb,1.7326e+02_rb,9.4064e+01_rb,4.8587e-01_rb/)\n      kbo(:, 4,48,14) = (/ &\n     &4.8257e+02_rb,3.6236e+02_rb,2.4521e+02_rb,1.3165e+02_rb,8.1598e-01_rb/)\n      kbo(:, 5,48,14) = (/ &\n     &6.5841e+02_rb,4.9408e+02_rb,3.3351e+02_rb,1.7744e+02_rb,1.3043e+00_rb/)\n      kbo(:, 1,49,14) = (/ &\n     &1.2205e+02_rb,9.2102e+01_rb,6.3332e+01_rb,3.5432e+01_rb,1.1595e-01_rb/)\n      kbo(:, 2,49,14) = (/ &\n     &1.9899e+02_rb,1.4985e+02_rb,1.0228e+02_rb,5.6393e+01_rb,2.1177e-01_rb/)\n      kbo(:, 3,49,14) = (/ &\n     &3.0425e+02_rb,2.2876e+02_rb,1.5534e+02_rb,8.4415e+01_rb,3.8749e-01_rb/)\n      kbo(:, 4,49,14) = (/ &\n     &4.4104e+02_rb,3.3122e+02_rb,2.2413e+02_rb,1.2036e+02_rb,6.6950e-01_rb/)\n      kbo(:, 5,49,14) = (/ &\n     &6.1182e+02_rb,4.5914e+02_rb,3.0987e+02_rb,1.6480e+02_rb,1.0872e+00_rb/)\n      kbo(:, 1,50,14) = (/ &\n     &1.0410e+02_rb,7.8601e+01_rb,5.4134e+01_rb,3.0320e+01_rb,8.9437e-02_rb/)\n      kbo(:, 2,50,14) = (/ &\n     &1.7476e+02_rb,1.3166e+02_rb,8.9943e+01_rb,4.9647e+01_rb,1.6487e-01_rb/)\n      kbo(:, 3,50,14) = (/ &\n     &2.7363e+02_rb,2.0578e+02_rb,1.3977e+02_rb,7.5998e+01_rb,3.0880e-01_rb/)\n      kbo(:, 4,50,14) = (/ &\n     &4.0470e+02_rb,3.0398e+02_rb,2.0569e+02_rb,1.1045e+02_rb,5.4711e-01_rb/)\n      kbo(:, 5,50,14) = (/ &\n     &5.7059e+02_rb,4.2823e+02_rb,2.8900e+02_rb,1.5363e+02_rb,9.1135e-01_rb/)\n      kbo(:, 1,51,14) = (/ &\n     &8.8591e+01_rb,6.6918e+01_rb,4.6161e+01_rb,2.5881e+01_rb,7.0825e-02_rb/)\n      kbo(:, 2,51,14) = (/ &\n     &1.5315e+02_rb,1.1542e+02_rb,7.8914e+01_rb,4.3611e+01_rb,1.2808e-01_rb/)\n      kbo(:, 3,51,14) = (/ &\n     &2.4591e+02_rb,1.8497e+02_rb,1.2567e+02_rb,6.8391e+01_rb,2.4633e-01_rb/)\n      kbo(:, 4,51,14) = (/ &\n     &3.7125e+02_rb,2.7889e+02_rb,1.8871e+02_rb,1.0133e+02_rb,4.4644e-01_rb/)\n      kbo(:, 5,51,14) = (/ &\n     &5.3232e+02_rb,3.9953e+02_rb,2.6959e+02_rb,1.4324e+02_rb,7.6098e-01_rb/)\n      kbo(:, 1,52,14) = (/ &\n     &7.4832e+01_rb,5.6551e+01_rb,3.9072e+01_rb,2.1921e+01_rb,5.8568e-02_rb/)\n      kbo(:, 2,52,14) = (/ &\n     &1.3340e+02_rb,1.0056e+02_rb,6.8804e+01_rb,3.8048e+01_rb,9.9737e-02_rb/)\n      kbo(:, 3,52,14) = (/ &\n     &2.2000e+02_rb,1.6553e+02_rb,1.1251e+02_rb,6.1251e+01_rb,1.9573e-01_rb/)\n      kbo(:, 4,52,14) = (/ &\n     &3.3944e+02_rb,2.5503e+02_rb,1.7256e+02_rb,9.2621e+01_rb,3.6167e-01_rb/)\n      kbo(:, 5,52,14) = (/ &\n     &4.9563e+02_rb,3.7201e+02_rb,2.5099e+02_rb,1.3326e+02_rb,6.3209e-01_rb/)\n      kbo(:, 1,53,14) = (/ &\n     &6.2655e+01_rb,4.7378e+01_rb,3.2786e+01_rb,1.8402e+01_rb,5.0324e-02_rb/)\n      kbo(:, 2,53,14) = (/ &\n     &1.1533e+02_rb,8.6961e+01_rb,5.9562e+01_rb,3.2947e+01_rb,7.6555e-02_rb/)\n      kbo(:, 3,53,14) = (/ &\n     &1.9565e+02_rb,1.4725e+02_rb,1.0014e+02_rb,5.4560e+01_rb,1.5441e-01_rb/)\n      kbo(:, 4,53,14) = (/ &\n     &3.0901e+02_rb,2.3220e+02_rb,1.5711e+02_rb,8.4327e+01_rb,2.9159e-01_rb/)\n      kbo(:, 5,53,14) = (/ &\n     &4.6024e+02_rb,3.4547e+02_rb,2.3304e+02_rb,1.2363e+02_rb,5.2012e-01_rb/)\n      kbo(:, 1,54,14) = (/ &\n     &5.3046e+01_rb,4.0133e+01_rb,2.7816e+01_rb,1.5611e+01_rb,4.2542e-02_rb/)\n      kbo(:, 2,54,14) = (/ &\n     &1.0074e+02_rb,7.5982e+01_rb,5.2075e+01_rb,2.8803e+01_rb,6.4322e-02_rb/)\n      kbo(:, 3,54,14) = (/ &\n     &1.7557e+02_rb,1.3215e+02_rb,8.9882e+01_rb,4.8976e+01_rb,1.2163e-01_rb/)\n      kbo(:, 4,54,14) = (/ &\n     &2.8382e+02_rb,2.1329e+02_rb,1.4431e+02_rb,7.7417e+01_rb,2.3542e-01_rb/)\n      kbo(:, 5,54,14) = (/ &\n     &4.3075e+02_rb,3.2335e+02_rb,2.1806e+02_rb,1.1557e+02_rb,4.2927e-01_rb/)\n      kbo(:, 1,55,14) = (/ &\n     &4.5010e+01_rb,3.4076e+01_rb,2.3656e+01_rb,1.3271e+01_rb,3.8508e-02_rb/)\n      kbo(:, 2,55,14) = (/ &\n     &8.8262e+01_rb,6.6580e+01_rb,4.5655e+01_rb,2.5232e+01_rb,5.7123e-02_rb/)\n      kbo(:, 3,55,14) = (/ &\n     &1.5805e+02_rb,1.1897e+02_rb,8.0930e+01_rb,4.4073e+01_rb,9.5519e-02_rb/)\n      kbo(:, 4,55,14) = (/ &\n     &2.6161e+02_rb,1.9662e+02_rb,1.3302e+02_rb,7.1301e+01_rb,1.9000e-01_rb/)\n      kbo(:, 5,55,14) = (/ &\n     &4.0466e+02_rb,3.0378e+02_rb,2.0480e+02_rb,1.0841e+02_rb,3.5396e-01_rb/)\n      kbo(:, 1,56,14) = (/ &\n     &3.7999e+01_rb,2.8791e+01_rb,2.0014e+01_rb,1.1214e+01_rb,3.4994e-02_rb/)\n      kbo(:, 2,56,14) = (/ &\n     &7.7059e+01_rb,5.8140e+01_rb,3.9888e+01_rb,2.2021e+01_rb,5.1685e-02_rb/)\n      kbo(:, 3,56,14) = (/ &\n     &1.4187e+02_rb,1.0680e+02_rb,7.2655e+01_rb,3.9531e+01_rb,7.7408e-02_rb/)\n      kbo(:, 4,56,14) = (/ &\n     &2.4069e+02_rb,1.8091e+02_rb,1.2237e+02_rb,6.5530e+01_rb,1.5216e-01_rb/)\n      kbo(:, 5,56,14) = (/ &\n     &3.8007e+02_rb,2.8533e+02_rb,1.9230e+02_rb,1.0164e+02_rb,2.8842e-01_rb/)\n      kbo(:, 1,57,14) = (/ &\n     &3.1951e+01_rb,2.4226e+01_rb,1.6863e+01_rb,9.4281e+00_rb,3.3086e-02_rb/)\n      kbo(:, 2,57,14) = (/ &\n     &6.6995e+01_rb,5.0555e+01_rb,3.4699e+01_rb,1.9133e+01_rb,4.5516e-02_rb/)\n      kbo(:, 3,57,14) = (/ &\n     &1.2705e+02_rb,9.5650e+01_rb,6.5062e+01_rb,3.5359e+01_rb,6.7958e-02_rb/)\n      kbo(:, 4,57,14) = (/ &\n     &2.2106e+02_rb,1.6616e+02_rb,1.1237e+02_rb,6.0096e+01_rb,1.2025e-01_rb/)\n      kbo(:, 5,57,14) = (/ &\n     &3.5683e+02_rb,2.6789e+02_rb,1.8049e+02_rb,9.5240e+01_rb,2.3463e-01_rb/)\n      kbo(:, 1,58,14) = (/ &\n     &1.3120e+01_rb,1.1427e+01_rb,9.3421e+00_rb,6.3041e+00_rb,2.9290e-02_rb/)\n      kbo(:, 2,58,14) = (/ &\n     &2.8375e+01_rb,2.4586e+01_rb,1.9815e+01_rb,1.3205e+01_rb,4.1783e-02_rb/)\n      kbo(:, 3,58,14) = (/ &\n     &5.5462e+01_rb,4.7938e+01_rb,3.8264e+01_rb,2.5126e+01_rb,6.2497e-02_rb/)\n      kbo(:, 4,58,14) = (/ &\n     &9.8962e+01_rb,8.5397e+01_rb,6.7764e+01_rb,4.3784e+01_rb,9.9579e-02_rb/)\n      kbo(:, 5,58,14) = (/ &\n     &1.6330e+02_rb,1.4075e+02_rb,1.1126e+02_rb,7.0923e+01_rb,1.9106e-01_rb/)\n      kbo(:, 1,59,14) = (/ &\n     &1.2384e+01_rb,1.0821e+01_rb,8.8760e+00_rb,6.0092e+00_rb,2.9802e-02_rb/)\n      kbo(:, 2,59,14) = (/ &\n     &2.7135e+01_rb,2.3592e+01_rb,1.9085e+01_rb,1.2767e+01_rb,4.3735e-02_rb/)\n      kbo(:, 3,59,14) = (/ &\n     &5.3692e+01_rb,4.6568e+01_rb,3.7314e+01_rb,2.4591e+01_rb,6.7061e-02_rb/)\n      kbo(:, 4,59,14) = (/ &\n     &9.6831e+01_rb,8.3852e+01_rb,6.6810e+01_rb,4.3324e+01_rb,1.0825e-01_rb/)\n      kbo(:, 5,59,14) = (/ &\n     &1.6129e+02_rb,1.3951e+02_rb,1.1076e+02_rb,7.0881e+01_rb,1.7652e-01_rb/)\n      kbo(:, 1,13,15) = (/ &\n     &4.3408e+02_rb,3.2553e+02_rb,2.1704e+02_rb,1.0851e+02_rb,3.3387e-01_rb/)\n      kbo(:, 2,13,15) = (/ &\n     &6.1113e+02_rb,4.5841e+02_rb,3.0560e+02_rb,1.5279e+02_rb,3.4060e+00_rb/)\n      kbo(:, 3,13,15) = (/ &\n     &8.2062e+02_rb,6.1547e+02_rb,4.1031e+02_rb,2.0516e+02_rb,7.3889e+00_rb/)\n      kbo(:, 4,13,15) = (/ &\n     &1.0625e+03_rb,7.9684e+02_rb,5.3120e+02_rb,2.6560e+02_rb,1.3324e+01_rb/)\n      kbo(:, 5,13,15) = (/ &\n     &1.3314e+03_rb,9.9861e+02_rb,6.6575e+02_rb,3.3287e+02_rb,1.8510e+01_rb/)\n      kbo(:, 1,14,15) = (/ &\n     &4.8927e+02_rb,3.6696e+02_rb,2.4465e+02_rb,1.2233e+02_rb,1.4639e+00_rb/)\n      kbo(:, 2,14,15) = (/ &\n     &6.9247e+02_rb,5.1938e+02_rb,3.4624e+02_rb,1.7311e+02_rb,5.0161e+00_rb/)\n      kbo(:, 3,14,15) = (/ &\n     &9.3693e+02_rb,7.0263e+02_rb,4.6839e+02_rb,2.3422e+02_rb,9.2136e+00_rb/)\n      kbo(:, 4,14,15) = (/ &\n     &1.2198e+03_rb,9.1484e+02_rb,6.0989e+02_rb,3.0495e+02_rb,1.6015e+01_rb/)\n      kbo(:, 5,14,15) = (/ &\n     &1.5424e+03_rb,1.1568e+03_rb,7.7122e+02_rb,3.8560e+02_rb,2.0607e+01_rb/)\n      kbo(:, 1,15,15) = (/ &\n     &5.4419e+02_rb,4.0815e+02_rb,2.7209e+02_rb,1.3605e+02_rb,3.3205e+00_rb/)\n      kbo(:, 2,15,15) = (/ &\n     &7.6785e+02_rb,5.7588e+02_rb,3.8392e+02_rb,1.9198e+02_rb,6.4585e+00_rb/)\n      kbo(:, 3,15,15) = (/ &\n     &1.0420e+03_rb,7.8154e+02_rb,5.2102e+02_rb,2.6050e+02_rb,1.2593e+01_rb/)\n      kbo(:, 4,15,15) = (/ &\n     &1.3650e+03_rb,1.0239e+03_rb,6.8254e+02_rb,3.4127e+02_rb,1.7743e+01_rb/)\n      kbo(:, 5,15,15) = (/ &\n     &1.7328e+03_rb,1.2995e+03_rb,8.6636e+02_rb,4.3319e+02_rb,2.2779e+01_rb/)\n      kbo(:, 1,16,15) = (/ &\n     &5.9961e+02_rb,4.4968e+02_rb,2.9978e+02_rb,1.4989e+02_rb,4.3949e+00_rb/)\n      kbo(:, 2,16,15) = (/ &\n     &8.4044e+02_rb,6.3032e+02_rb,4.2019e+02_rb,2.1011e+02_rb,9.1201e+00_rb/)\n      kbo(:, 3,16,15) = (/ &\n     &1.1438e+03_rb,8.5770e+02_rb,5.7195e+02_rb,2.8595e+02_rb,1.4709e+01_rb/)\n      kbo(:, 4,16,15) = (/ &\n     &1.4993e+03_rb,1.1245e+03_rb,7.4965e+02_rb,3.7484e+02_rb,1.9517e+01_rb/)\n      kbo(:, 5,16,15) = (/ &\n     &1.9026e+03_rb,1.4270e+03_rb,9.5133e+02_rb,4.7569e+02_rb,2.4995e+01_rb/)\n      kbo(:, 1,17,15) = (/ &\n     &6.5740e+02_rb,4.9304e+02_rb,3.2868e+02_rb,1.6434e+02_rb,5.9877e+00_rb/)\n      kbo(:, 2,17,15) = (/ &\n     &9.1769e+02_rb,6.8825e+02_rb,4.5884e+02_rb,2.2941e+02_rb,1.1589e+01_rb/)\n      kbo(:, 3,17,15) = (/ &\n     &1.2441e+03_rb,9.3311e+02_rb,6.2203e+02_rb,3.1103e+02_rb,1.6070e+01_rb/)\n      kbo(:, 4,17,15) = (/ &\n     &1.6286e+03_rb,1.2214e+03_rb,8.1435e+02_rb,4.0716e+02_rb,2.1263e+01_rb/)\n      kbo(:, 5,17,15) = (/ &\n     &2.0647e+03_rb,1.5485e+03_rb,1.0323e+03_rb,5.1617e+02_rb,2.7194e+01_rb/)\n      kbo(:, 1,18,15) = (/ &\n     &7.0743e+02_rb,5.3056e+02_rb,3.5371e+02_rb,1.7685e+02_rb,7.5465e+00_rb/)\n      kbo(:, 2,18,15) = (/ &\n     &9.8473e+02_rb,7.3856e+02_rb,4.9235e+02_rb,2.4618e+02_rb,1.2708e+01_rb/)\n      kbo(:, 3,18,15) = (/ &\n     &1.3299e+03_rb,9.9741e+02_rb,6.6495e+02_rb,3.3248e+02_rb,1.7433e+01_rb/)\n      kbo(:, 4,18,15) = (/ &\n     &1.7379e+03_rb,1.3034e+03_rb,8.6887e+02_rb,4.3447e+02_rb,2.2996e+01_rb/)\n      kbo(:, 5,18,15) = (/ &\n     &2.2009e+03_rb,1.6506e+03_rb,1.1004e+03_rb,5.5020e+02_rb,2.9358e+01_rb/)\n      kbo(:, 1,19,15) = (/ &\n     &7.7797e+02_rb,5.8347e+02_rb,3.8898e+02_rb,1.9449e+02_rb,8.9058e+00_rb/)\n      kbo(:, 2,19,15) = (/ &\n     &1.0795e+03_rb,8.0964e+02_rb,5.3974e+02_rb,2.6988e+02_rb,1.3760e+01_rb/)\n      kbo(:, 3,19,15) = (/ &\n     &1.4503e+03_rb,1.0877e+03_rb,7.2515e+02_rb,3.6258e+02_rb,1.8739e+01_rb/)\n      kbo(:, 4,19,15) = (/ &\n     &1.8906e+03_rb,1.4179e+03_rb,9.4523e+02_rb,4.7263e+02_rb,2.4641e+01_rb/)\n      kbo(:, 5,19,15) = (/ &\n     &2.3863e+03_rb,1.7897e+03_rb,1.1933e+03_rb,5.9656e+02_rb,3.1485e+01_rb/)\n      kbo(:, 1,20,15) = (/ &\n     &8.7874e+02_rb,6.5907e+02_rb,4.3939e+02_rb,2.1969e+02_rb,9.7556e+00_rb/)\n      kbo(:, 2,20,15) = (/ &\n     &1.2128e+03_rb,9.0962e+02_rb,6.0638e+02_rb,3.0319e+02_rb,1.4896e+01_rb/)\n      kbo(:, 3,20,15) = (/ &\n     &1.6209e+03_rb,1.2157e+03_rb,8.1051e+02_rb,4.0524e+02_rb,2.0180e+01_rb/)\n      kbo(:, 4,20,15) = (/ &\n     &2.1009e+03_rb,1.5756e+03_rb,1.0504e+03_rb,5.2525e+02_rb,2.6433e+01_rb/)\n      kbo(:, 5,20,15) = (/ &\n     &2.6410e+03_rb,1.9808e+03_rb,1.3205e+03_rb,6.6026e+02_rb,3.3724e+01_rb/)\n      kbo(:, 1,21,15) = (/ &\n     &9.9673e+02_rb,7.4761e+02_rb,4.9839e+02_rb,2.4919e+02_rb,1.0524e+01_rb/)\n      kbo(:, 2,21,15) = (/ &\n     &1.3673e+03_rb,1.0255e+03_rb,6.8366e+02_rb,3.4184e+02_rb,1.6075e+01_rb/)\n      kbo(:, 3,21,15) = (/ &\n     &1.8166e+03_rb,1.3625e+03_rb,9.0829e+02_rb,4.5412e+02_rb,2.1690e+01_rb/)\n      kbo(:, 4,21,15) = (/ &\n     &2.3404e+03_rb,1.7553e+03_rb,1.1702e+03_rb,5.8508e+02_rb,2.8346e+01_rb/)\n      kbo(:, 5,21,15) = (/ &\n     &2.9258e+03_rb,2.1942e+03_rb,1.4629e+03_rb,7.3140e+02_rb,3.6033e+01_rb/)\n      kbo(:, 1,22,15) = (/ &\n     &1.1483e+03_rb,8.6125e+02_rb,5.7415e+02_rb,2.8707e+02_rb,1.1768e+01_rb/)\n      kbo(:, 2,22,15) = (/ &\n     &1.5630e+03_rb,1.1723e+03_rb,7.8152e+02_rb,3.9076e+02_rb,1.7624e+01_rb/)\n      kbo(:, 3,22,15) = (/ &\n     &2.0593e+03_rb,1.5445e+03_rb,1.0296e+03_rb,5.1484e+02_rb,2.3654e+01_rb/)\n      kbo(:, 4,22,15) = (/ &\n     &2.6282e+03_rb,1.9711e+03_rb,1.3140e+03_rb,6.5702e+02_rb,3.0777e+01_rb/)\n      kbo(:, 5,22,15) = (/ &\n     &3.2625e+03_rb,2.4468e+03_rb,1.6313e+03_rb,8.1566e+02_rb,3.8871e+01_rb/)\n      kbo(:, 1,23,15) = (/ &\n     &1.3167e+03_rb,9.8756e+02_rb,6.5833e+02_rb,3.2919e+02_rb,1.3119e+01_rb/)\n      kbo(:, 2,23,15) = (/ &\n     &1.7766e+03_rb,1.3324e+03_rb,8.8830e+02_rb,4.4413e+02_rb,1.9267e+01_rb/)\n      kbo(:, 3,23,15) = (/ &\n     &2.3173e+03_rb,1.7380e+03_rb,1.1586e+03_rb,5.7933e+02_rb,2.5707e+01_rb/)\n      kbo(:, 4,23,15) = (/ &\n     &2.9343e+03_rb,2.2007e+03_rb,1.4671e+03_rb,7.3355e+02_rb,3.3186e+01_rb/)\n      kbo(:, 5,23,15) = (/ &\n     &3.6141e+03_rb,2.7105e+03_rb,1.8070e+03_rb,9.0351e+02_rb,4.1634e+01_rb/)\n      kbo(:, 1,24,15) = (/ &\n     &1.5139e+03_rb,1.1354e+03_rb,7.5695e+02_rb,3.7848e+02_rb,1.4766e+01_rb/)\n      kbo(:, 2,24,15) = (/ &\n     &2.0213e+03_rb,1.5159e+03_rb,1.0107e+03_rb,5.0532e+02_rb,2.1039e+01_rb/)\n      kbo(:, 3,24,15) = (/ &\n     &2.6132e+03_rb,1.9598e+03_rb,1.3066e+03_rb,6.5328e+02_rb,2.7799e+01_rb/)\n      kbo(:, 4,24,15) = (/ &\n     &3.2798e+03_rb,2.4598e+03_rb,1.6399e+03_rb,8.1993e+02_rb,3.5585e+01_rb/)\n      kbo(:, 5,24,15) = (/ &\n     &4.0096e+03_rb,3.0073e+03_rb,2.0048e+03_rb,1.0024e+03_rb,4.4343e+01_rb/)\n      kbo(:, 1,25,15) = (/ &\n     &1.7311e+03_rb,1.2983e+03_rb,8.6555e+02_rb,4.3279e+02_rb,1.6410e+01_rb/)\n      kbo(:, 2,25,15) = (/ &\n     &2.2880e+03_rb,1.7160e+03_rb,1.1440e+03_rb,5.7204e+02_rb,2.2852e+01_rb/)\n      kbo(:, 3,25,15) = (/ &\n     &2.9293e+03_rb,2.1970e+03_rb,1.4646e+03_rb,7.3234e+02_rb,2.9897e+01_rb/)\n      kbo(:, 4,25,15) = (/ &\n     &3.6441e+03_rb,2.7331e+03_rb,1.8220e+03_rb,9.1101e+02_rb,3.8003e+01_rb/)\n      kbo(:, 5,25,15) = (/ &\n     &4.4209e+03_rb,3.3157e+03_rb,2.2104e+03_rb,1.1052e+03_rb,4.7037e+01_rb/)\n      kbo(:, 1,26,15) = (/ &\n     &1.9753e+03_rb,1.4814e+03_rb,9.8766e+02_rb,4.9382e+02_rb,1.8018e+01_rb/)\n      kbo(:, 2,26,15) = (/ &\n     &2.5844e+03_rb,1.9383e+03_rb,1.2922e+03_rb,6.4606e+02_rb,2.4551e+01_rb/)\n      kbo(:, 3,26,15) = (/ &\n     &3.2758e+03_rb,2.4567e+03_rb,1.6379e+03_rb,8.1896e+02_rb,3.2091e+01_rb/)\n      kbo(:, 4,26,15) = (/ &\n     &4.0392e+03_rb,3.0293e+03_rb,2.0196e+03_rb,1.0098e+03_rb,4.0504e+01_rb/)\n      kbo(:, 5,26,15) = (/ &\n     &4.8643e+03_rb,3.6484e+03_rb,2.4323e+03_rb,1.2161e+03_rb,4.9853e+01_rb/)\n      kbo(:, 1,27,15) = (/ &\n     &2.2372e+03_rb,1.6779e+03_rb,1.1187e+03_rb,5.5932e+02_rb,1.9412e+01_rb/)\n      kbo(:, 2,27,15) = (/ &\n     &2.8964e+03_rb,2.1723e+03_rb,1.4482e+03_rb,7.2410e+02_rb,2.6199e+01_rb/)\n      kbo(:, 3,27,15) = (/ &\n     &3.6363e+03_rb,2.7272e+03_rb,1.8181e+03_rb,9.0912e+02_rb,3.4164e+01_rb/)\n      kbo(:, 4,27,15) = (/ &\n     &4.4487e+03_rb,3.3365e+03_rb,2.2244e+03_rb,1.1122e+03_rb,4.3003e+01_rb/)\n      kbo(:, 5,27,15) = (/ &\n     &5.3193e+03_rb,3.9894e+03_rb,2.6596e+03_rb,1.3298e+03_rb,5.2701e+01_rb/)\n      kbo(:, 1,28,15) = (/ &\n     &2.5116e+03_rb,1.8837e+03_rb,1.2558e+03_rb,6.2784e+02_rb,2.0876e+01_rb/)\n      kbo(:, 2,28,15) = (/ &\n     &3.2189e+03_rb,2.4142e+03_rb,1.6096e+03_rb,8.0476e+02_rb,2.7949e+01_rb/)\n      kbo(:, 3,28,15) = (/ &\n     &4.0085e+03_rb,3.0060e+03_rb,2.0042e+03_rb,1.0021e+03_rb,3.6156e+01_rb/)\n      kbo(:, 4,28,15) = (/ &\n     &4.8660e+03_rb,3.6495e+03_rb,2.4329e+03_rb,1.2165e+03_rb,4.5448e+01_rb/)\n      kbo(:, 5,28,15) = (/ &\n     &5.7764e+03_rb,4.3322e+03_rb,2.8883e+03_rb,1.4442e+03_rb,5.5591e+01_rb/)\n      kbo(:, 1,29,15) = (/ &\n     &2.7788e+03_rb,2.0842e+03_rb,1.3895e+03_rb,6.9477e+02_rb,2.2561e+01_rb/)\n      kbo(:, 2,29,15) = (/ &\n     &3.5298e+03_rb,2.6472e+03_rb,1.7648e+03_rb,8.8246e+02_rb,2.9936e+01_rb/)\n      kbo(:, 3,29,15) = (/ &\n     &4.3597e+03_rb,3.2696e+03_rb,2.1798e+03_rb,1.0899e+03_rb,3.8464e+01_rb/)\n      kbo(:, 4,29,15) = (/ &\n     &5.2526e+03_rb,3.9395e+03_rb,2.6263e+03_rb,1.3131e+03_rb,4.8125e+01_rb/)\n      kbo(:, 5,29,15) = (/ &\n     &6.1956e+03_rb,4.6467e+03_rb,3.0979e+03_rb,1.5489e+03_rb,5.8615e+01_rb/)\n      kbo(:, 1,30,15) = (/ &\n     &3.0369e+03_rb,2.2777e+03_rb,1.5185e+03_rb,7.5926e+02_rb,2.4413e+01_rb/)\n      kbo(:, 2,30,15) = (/ &\n     &3.8244e+03_rb,2.8684e+03_rb,1.9122e+03_rb,9.5609e+02_rb,3.2061e+01_rb/)\n      kbo(:, 3,30,15) = (/ &\n     &4.6859e+03_rb,3.5141e+03_rb,2.3430e+03_rb,1.1715e+03_rb,4.0933e+01_rb/)\n      kbo(:, 4,30,15) = (/ &\n     &5.6065e+03_rb,4.2050e+03_rb,2.8032e+03_rb,1.4016e+03_rb,5.0897e+01_rb/)\n      kbo(:, 5,30,15) = (/ &\n     &6.5717e+03_rb,4.9287e+03_rb,3.2858e+03_rb,1.6429e+03_rb,6.1721e+01_rb/)\n      kbo(:, 1,31,15) = (/ &\n     &3.2648e+03_rb,2.4486e+03_rb,1.6324e+03_rb,8.1618e+02_rb,2.6426e+01_rb/)\n      kbo(:, 2,31,15) = (/ &\n     &4.0756e+03_rb,3.0566e+03_rb,2.0378e+03_rb,1.0190e+03_rb,3.4471e+01_rb/)\n      kbo(:, 3,31,15) = (/ &\n     &4.9563e+03_rb,3.7173e+03_rb,2.4782e+03_rb,1.2392e+03_rb,4.3666e+01_rb/)\n      kbo(:, 4,31,15) = (/ &\n     &5.8911e+03_rb,4.4181e+03_rb,2.9455e+03_rb,1.4727e+03_rb,5.3750e+01_rb/)\n      kbo(:, 5,31,15) = (/ &\n     &6.8637e+03_rb,5.1477e+03_rb,3.4319e+03_rb,1.7160e+03_rb,6.4980e+01_rb/)\n      kbo(:, 1,32,15) = (/ &\n     &3.4972e+03_rb,2.6230e+03_rb,1.7487e+03_rb,8.7434e+02_rb,2.8607e+01_rb/)\n      kbo(:, 2,32,15) = (/ &\n     &4.3306e+03_rb,3.2480e+03_rb,2.1653e+03_rb,1.0827e+03_rb,3.6943e+01_rb/)\n      kbo(:, 3,32,15) = (/ &\n     &5.2288e+03_rb,3.9216e+03_rb,2.6144e+03_rb,1.3072e+03_rb,4.6342e+01_rb/)\n      kbo(:, 4,32,15) = (/ &\n     &6.1756e+03_rb,4.6314e+03_rb,3.0875e+03_rb,1.5439e+03_rb,5.6744e+01_rb/)\n      kbo(:, 5,32,15) = (/ &\n     &7.1543e+03_rb,5.3657e+03_rb,3.5769e+03_rb,1.7884e+03_rb,6.8387e+01_rb/)\n      kbo(:, 1,33,15) = (/ &\n     &3.7323e+03_rb,2.7993e+03_rb,1.8662e+03_rb,9.3310e+02_rb,3.0880e+01_rb/)\n      kbo(:, 2,33,15) = (/ &\n     &4.5855e+03_rb,3.4391e+03_rb,2.2927e+03_rb,1.1463e+03_rb,3.9458e+01_rb/)\n      kbo(:, 3,33,15) = (/ &\n     &5.4988e+03_rb,4.1239e+03_rb,2.7494e+03_rb,1.3747e+03_rb,4.9066e+01_rb/)\n      kbo(:, 4,33,15) = (/ &\n     &6.4556e+03_rb,4.8415e+03_rb,3.2279e+03_rb,1.6139e+03_rb,5.9834e+01_rb/)\n      kbo(:, 5,33,15) = (/ &\n     &7.4364e+03_rb,5.5775e+03_rb,3.7183e+03_rb,1.8591e+03_rb,7.1936e+01_rb/)\n      kbo(:, 1,34,15) = (/ &\n     &3.9743e+03_rb,2.9808e+03_rb,1.9872e+03_rb,9.9359e+02_rb,3.2850e+01_rb/)\n      kbo(:, 2,34,15) = (/ &\n     &4.8517e+03_rb,3.6384e+03_rb,2.4257e+03_rb,1.2129e+03_rb,4.1615e+01_rb/)\n      kbo(:, 3,34,15) = (/ &\n     &5.7848e+03_rb,4.3386e+03_rb,2.8923e+03_rb,1.4462e+03_rb,5.1514e+01_rb/)\n      kbo(:, 4,34,15) = (/ &\n     &6.7566e+03_rb,5.0673e+03_rb,3.3783e+03_rb,1.6891e+03_rb,6.2632e+01_rb/)\n      kbo(:, 5,34,15) = (/ &\n     &7.7467e+03_rb,5.8099e+03_rb,3.8734e+03_rb,1.9367e+03_rb,7.5129e+01_rb/)\n      kbo(:, 1,35,15) = (/ &\n     &4.1392e+03_rb,3.1044e+03_rb,2.0697e+03_rb,1.0348e+03_rb,3.4005e+01_rb/)\n      kbo(:, 2,35,15) = (/ &\n     &5.0338e+03_rb,3.7756e+03_rb,2.5169e+03_rb,1.2585e+03_rb,4.2889e+01_rb/)\n      kbo(:, 3,35,15) = (/ &\n     &5.9824e+03_rb,4.4867e+03_rb,2.9910e+03_rb,1.4955e+03_rb,5.2983e+01_rb/)\n      kbo(:, 4,35,15) = (/ &\n     &6.9652e+03_rb,5.2239e+03_rb,3.4826e+03_rb,1.7414e+03_rb,6.4327e+01_rb/)\n      kbo(:, 5,35,15) = (/ &\n     &7.9642e+03_rb,5.9733e+03_rb,3.9822e+03_rb,1.9911e+03_rb,7.7087e+01_rb/)\n      kbo(:, 1,36,15) = (/ &\n     &4.2146e+03_rb,3.1608e+03_rb,2.1072e+03_rb,1.0536e+03_rb,3.4225e+01_rb/)\n      kbo(:, 2,36,15) = (/ &\n     &5.1200e+03_rb,3.8401e+03_rb,2.5599e+03_rb,1.2800e+03_rb,4.3139e+01_rb/)\n      kbo(:, 3,36,15) = (/ &\n     &6.0791e+03_rb,4.5594e+03_rb,3.0396e+03_rb,1.5198e+03_rb,5.3291e+01_rb/)\n      kbo(:, 4,36,15) = (/ &\n     &7.0718e+03_rb,5.3037e+03_rb,3.5357e+03_rb,1.7679e+03_rb,6.4713e+01_rb/)\n      kbo(:, 5,36,15) = (/ &\n     &8.0803e+03_rb,6.0601e+03_rb,4.0401e+03_rb,2.0201e+03_rb,7.7535e+01_rb/)\n      kbo(:, 1,37,15) = (/ &\n     &4.1830e+03_rb,3.1372e+03_rb,2.0915e+03_rb,1.0457e+03_rb,3.3171e+01_rb/)\n      kbo(:, 2,37,15) = (/ &\n     &5.0955e+03_rb,3.8218e+03_rb,2.5477e+03_rb,1.2739e+03_rb,4.1938e+01_rb/)\n      kbo(:, 3,37,15) = (/ &\n     &6.0651e+03_rb,4.5490e+03_rb,3.0327e+03_rb,1.5163e+03_rb,5.1957e+01_rb/)\n      kbo(:, 4,37,15) = (/ &\n     &7.0708e+03_rb,5.3029e+03_rb,3.5354e+03_rb,1.7678e+03_rb,6.3244e+01_rb/)\n      kbo(:, 5,37,15) = (/ &\n     &8.0937e+03_rb,6.0708e+03_rb,4.0470e+03_rb,2.0235e+03_rb,7.5914e+01_rb/)\n      kbo(:, 1,38,15) = (/ &\n     &4.1367e+03_rb,3.1023e+03_rb,2.0683e+03_rb,1.0342e+03_rb,3.2061e+01_rb/)\n      kbo(:, 2,38,15) = (/ &\n     &5.0552e+03_rb,3.7913e+03_rb,2.5275e+03_rb,1.2638e+03_rb,4.0668e+01_rb/)\n      kbo(:, 3,38,15) = (/ &\n     &6.0331e+03_rb,4.5250e+03_rb,3.0168e+03_rb,1.5083e+03_rb,5.0542e+01_rb/)\n      kbo(:, 4,38,15) = (/ &\n     &7.0503e+03_rb,5.2874e+03_rb,3.5252e+03_rb,1.7626e+03_rb,6.1670e+01_rb/)\n      kbo(:, 5,38,15) = (/ &\n     &8.0886e+03_rb,6.0662e+03_rb,4.0441e+03_rb,2.0220e+03_rb,7.4175e+01_rb/)\n      kbo(:, 1,39,15) = (/ &\n     &4.0836e+03_rb,3.0625e+03_rb,2.0418e+03_rb,1.0208e+03_rb,3.0973e+01_rb/)\n      kbo(:, 2,39,15) = (/ &\n     &5.0068e+03_rb,3.7549e+03_rb,2.5034e+03_rb,1.2516e+03_rb,3.9423e+01_rb/)\n      kbo(:, 3,39,15) = (/ &\n     &5.9917e+03_rb,4.4934e+03_rb,2.9959e+03_rb,1.4979e+03_rb,4.9140e+01_rb/)\n      kbo(:, 4,39,15) = (/ &\n     &7.0190e+03_rb,5.2646e+03_rb,3.5096e+03_rb,1.7548e+03_rb,6.0110e+01_rb/)\n      kbo(:, 5,39,15) = (/ &\n     &8.0703e+03_rb,6.0526e+03_rb,4.0352e+03_rb,2.0176e+03_rb,7.2442e+01_rb/)\n      kbo(:, 1,40,15) = (/ &\n     &3.9731e+03_rb,2.9800e+03_rb,1.9865e+03_rb,9.9327e+02_rb,2.9119e+01_rb/)\n      kbo(:, 2,40,15) = (/ &\n     &4.9010e+03_rb,3.6760e+03_rb,2.4505e+03_rb,1.2252e+03_rb,3.7284e+01_rb/)\n      kbo(:, 3,40,15) = (/ &\n     &5.8967e+03_rb,4.4226e+03_rb,2.9482e+03_rb,1.4742e+03_rb,4.6706e+01_rb/)\n      kbo(:, 4,40,15) = (/ &\n     &6.9401e+03_rb,5.2049e+03_rb,3.4701e+03_rb,1.7350e+03_rb,5.7383e+01_rb/)\n      kbo(:, 5,40,15) = (/ &\n     &8.0134e+03_rb,6.0096e+03_rb,4.0066e+03_rb,2.0033e+03_rb,6.9395e+01_rb/)\n      kbo(:, 1,41,15) = (/ &\n     &3.8503e+03_rb,2.8877e+03_rb,1.9252e+03_rb,9.6258e+02_rb,2.7224e+01_rb/)\n      kbo(:, 2,41,15) = (/ &\n     &4.7815e+03_rb,3.5862e+03_rb,2.3908e+03_rb,1.1953e+03_rb,3.5101e+01_rb/)\n      kbo(:, 3,41,15) = (/ &\n     &5.7872e+03_rb,4.3401e+03_rb,2.8935e+03_rb,1.4467e+03_rb,4.4197e+01_rb/)\n      kbo(:, 4,41,15) = (/ &\n     &6.8458e+03_rb,5.1341e+03_rb,3.4225e+03_rb,1.7115e+03_rb,5.4583e+01_rb/)\n      kbo(:, 5,41,15) = (/ &\n     &7.9396e+03_rb,5.9547e+03_rb,3.9699e+03_rb,1.9849e+03_rb,6.6259e+01_rb/)\n      kbo(:, 1,42,15) = (/ &\n     &3.7218e+03_rb,2.7913e+03_rb,1.8581e+03_rb,9.3043e+02_rb,2.5397e+01_rb/)\n      kbo(:, 2,42,15) = (/ &\n     &4.6552e+03_rb,3.4913e+03_rb,2.3275e+03_rb,1.1638e+03_rb,3.2985e+01_rb/)\n      kbo(:, 3,42,15) = (/ &\n     &5.6676e+03_rb,4.2515e+03_rb,2.8342e+03_rb,1.4169e+03_rb,4.1777e+01_rb/)\n      kbo(:, 4,42,15) = (/ &\n     &6.7404e+03_rb,5.0552e+03_rb,3.3706e+03_rb,1.6852e+03_rb,5.1833e+01_rb/)\n      kbo(:, 5,42,15) = (/ &\n     &7.8548e+03_rb,5.8911e+03_rb,3.9277e+03_rb,1.9637e+03_rb,6.3188e+01_rb/)\n      kbo(:, 1,43,15) = (/ &\n     &3.5738e+03_rb,2.6801e+03_rb,1.7870e+03_rb,8.9342e+02_rb,2.3264e+01_rb/)\n      kbo(:, 2,43,15) = (/ &\n     &4.5111e+03_rb,3.3834e+03_rb,2.2559e+03_rb,1.1277e+03_rb,3.0494e+01_rb/)\n      kbo(:, 3,43,15) = (/ &\n     &5.5364e+03_rb,4.1522e+03_rb,2.7681e+03_rb,1.3841e+03_rb,3.8909e+01_rb/)\n      kbo(:, 4,43,15) = (/ &\n     &6.6297e+03_rb,4.9723e+03_rb,3.3147e+03_rb,1.6574e+03_rb,4.8575e+01_rb/)\n      kbo(:, 5,43,15) = (/ &\n     &7.7713e+03_rb,5.8285e+03_rb,3.8856e+03_rb,1.9429e+03_rb,5.9539e+01_rb/)\n      kbo(:, 1,44,15) = (/ &\n     &3.4144e+03_rb,2.5608e+03_rb,1.7072e+03_rb,8.5364e+02_rb,2.1065e+01_rb/)\n      kbo(:, 2,44,15) = (/ &\n     &4.3569e+03_rb,3.2674e+03_rb,2.1784e+03_rb,1.0893e+03_rb,2.7929e+01_rb/)\n      kbo(:, 3,44,15) = (/ &\n     &5.3944e+03_rb,4.0458e+03_rb,2.6971e+03_rb,1.3486e+03_rb,3.5943e+01_rb/)\n      kbo(:, 4,44,15) = (/ &\n     &6.5105e+03_rb,4.8828e+03_rb,3.2554e+03_rb,1.6276e+03_rb,4.5182e+01_rb/)\n      kbo(:, 5,44,15) = (/ &\n     &7.6829e+03_rb,5.7622e+03_rb,3.8414e+03_rb,1.9208e+03_rb,5.5715e+01_rb/)\n      kbo(:, 1,45,15) = (/ &\n     &3.2505e+03_rb,2.4379e+03_rb,1.6254e+03_rb,8.1271e+02_rb,1.8984e+01_rb/)\n      kbo(:, 2,45,15) = (/ &\n     &4.1974e+03_rb,3.1481e+03_rb,2.0989e+03_rb,1.0493e+03_rb,2.5493e+01_rb/)\n      kbo(:, 3,45,15) = (/ &\n     &5.2466e+03_rb,3.9350e+03_rb,2.6232e+03_rb,1.3117e+03_rb,3.3113e+01_rb/)\n      kbo(:, 4,45,15) = (/ &\n     &6.3833e+03_rb,4.7875e+03_rb,3.1918e+03_rb,1.5958e+03_rb,4.1930e+01_rb/)\n      kbo(:, 5,45,15) = (/ &\n     &7.5868e+03_rb,5.6901e+03_rb,3.7934e+03_rb,1.8967e+03_rb,5.2027e+01_rb/)\n      kbo(:, 1,46,15) = (/ &\n     &3.0662e+03_rb,2.2996e+03_rb,1.5331e+03_rb,7.6672e+02_rb,1.6905e+01_rb/)\n      kbo(:, 2,46,15) = (/ &\n     &4.0155e+03_rb,3.0116e+03_rb,2.0079e+03_rb,1.0039e+03_rb,2.3041e+01_rb/)\n      kbo(:, 3,46,15) = (/ &\n     &5.0741e+03_rb,3.8056e+03_rb,2.5370e+03_rb,1.2685e+03_rb,3.0241e+01_rb/)\n      kbo(:, 4,46,15) = (/ &\n     &6.2294e+03_rb,4.6721e+03_rb,3.1149e+03_rb,1.5573e+03_rb,3.8622e+01_rb/)\n      kbo(:, 5,46,15) = (/ &\n     &7.4637e+03_rb,5.5978e+03_rb,3.7320e+03_rb,1.8660e+03_rb,4.8257e+01_rb/)\n      kbo(:, 1,47,15) = (/ &\n     &2.8472e+03_rb,2.1354e+03_rb,1.4236e+03_rb,7.1208e+02_rb,1.4723e+01_rb/)\n      kbo(:, 2,47,15) = (/ &\n     &3.7952e+03_rb,2.8464e+03_rb,1.8976e+03_rb,9.4874e+02_rb,2.0451e+01_rb/)\n      kbo(:, 3,47,15) = (/ &\n     &4.8581e+03_rb,3.6436e+03_rb,2.4290e+03_rb,1.2145e+03_rb,2.7203e+01_rb/)\n      kbo(:, 4,47,15) = (/ &\n     &6.0303e+03_rb,4.5227e+03_rb,3.0151e+03_rb,1.5075e+03_rb,3.5112e+01_rb/)\n      kbo(:, 5,47,15) = (/ &\n     &7.2931e+03_rb,5.4698e+03_rb,3.6467e+03_rb,1.8233e+03_rb,4.4239e+01_rb/)\n      kbo(:, 1,48,15) = (/ &\n     &2.6253e+03_rb,1.9691e+03_rb,1.3127e+03_rb,6.5679e+02_rb,1.2715e+01_rb/)\n      kbo(:, 2,48,15) = (/ &\n     &3.5692e+03_rb,2.6769e+03_rb,1.7846e+03_rb,8.9231e+02_rb,1.8030e+01_rb/)\n      kbo(:, 3,48,15) = (/ &\n     &4.6375e+03_rb,3.4782e+03_rb,2.3188e+03_rb,1.1595e+03_rb,2.4364e+01_rb/)\n      kbo(:, 4,48,15) = (/ &\n     &5.8244e+03_rb,4.3683e+03_rb,2.9120e+03_rb,1.4560e+03_rb,3.1792e+01_rb/)\n      kbo(:, 5,48,15) = (/ &\n     &7.1141e+03_rb,5.3356e+03_rb,3.5570e+03_rb,1.7785e+03_rb,4.0424e+01_rb/)\n      kbo(:, 1,49,15) = (/ &\n     &2.4040e+03_rb,1.8030e+03_rb,1.2020e+03_rb,6.0155e+02_rb,1.0861e+01_rb/)\n      kbo(:, 2,49,15) = (/ &\n     &3.3401e+03_rb,2.5051e+03_rb,1.6700e+03_rb,8.3512e+02_rb,1.5777e+01_rb/)\n      kbo(:, 3,49,15) = (/ &\n     &4.4127e+03_rb,3.3095e+03_rb,2.2063e+03_rb,1.1031e+03_rb,2.1693e+01_rb/)\n      kbo(:, 4,49,15) = (/ &\n     &5.6115e+03_rb,4.2087e+03_rb,2.8058e+03_rb,1.4030e+03_rb,2.8659e+01_rb/)\n      kbo(:, 5,49,15) = (/ &\n     &6.9274e+03_rb,5.1956e+03_rb,3.4636e+03_rb,1.7318e+03_rb,3.6808e+01_rb/)\n      kbo(:, 1,50,15) = (/ &\n     &2.2030e+03_rb,1.6523e+03_rb,1.1015e+03_rb,5.5137e+02_rb,9.2813e+00_rb/)\n      kbo(:, 2,50,15) = (/ &\n     &3.1297e+03_rb,2.3473e+03_rb,1.5649e+03_rb,7.8265e+02_rb,1.3818e+01_rb/)\n      kbo(:, 3,50,15) = (/ &\n     &4.2081e+03_rb,3.1561e+03_rb,2.1041e+03_rb,1.0519e+03_rb,1.9341e+01_rb/)\n      kbo(:, 4,50,15) = (/ &\n     &5.4214e+03_rb,4.0660e+03_rb,2.7107e+03_rb,1.3553e+03_rb,2.5902e+01_rb/)\n      kbo(:, 5,50,15) = (/ &\n     &6.7641e+03_rb,5.0731e+03_rb,3.3821e+03_rb,1.6910e+03_rb,3.3602e+01_rb/)\n      kbo(:, 1,51,15) = (/ &\n     &2.0128e+03_rb,1.5096e+03_rb,1.0064e+03_rb,5.0390e+02_rb,7.8927e+00_rb/)\n      kbo(:, 2,51,15) = (/ &\n     &2.9276e+03_rb,2.1957e+03_rb,1.4638e+03_rb,7.3206e+02_rb,1.2046e+01_rb/)\n      kbo(:, 3,51,15) = (/ &\n     &4.0098e+03_rb,3.0073e+03_rb,2.0049e+03_rb,1.0025e+03_rb,1.7204e+01_rb/)\n      kbo(:, 4,51,15) = (/ &\n     &5.2399e+03_rb,3.9299e+03_rb,2.6200e+03_rb,1.3100e+03_rb,2.3387e+01_rb/)\n      kbo(:, 5,51,15) = (/ &\n     &6.6101e+03_rb,4.9575e+03_rb,3.3050e+03_rb,1.6525e+03_rb,3.0654e+01_rb/)\n      kbo(:, 1,52,15) = (/ &\n     &1.8272e+03_rb,1.3704e+03_rb,9.1373e+02_rb,4.5761e+02_rb,6.6428e+00_rb/)\n      kbo(:, 2,52,15) = (/ &\n     &2.7256e+03_rb,2.0442e+03_rb,1.3627e+03_rb,6.8167e+02_rb,1.0409e+01_rb/)\n      kbo(:, 3,52,15) = (/ &\n     &3.8098e+03_rb,2.8573e+03_rb,1.9049e+03_rb,9.5240e+02_rb,1.5205e+01_rb/)\n      kbo(:, 4,52,15) = (/ &\n     &5.0575e+03_rb,3.7931e+03_rb,2.5288e+03_rb,1.2643e+03_rb,2.1008e+01_rb/)\n      kbo(:, 5,52,15) = (/ &\n     &6.4544e+03_rb,4.8408e+03_rb,3.2272e+03_rb,1.6135e+03_rb,2.7863e+01_rb/)\n      kbo(:, 1,53,15) = (/ &\n     &1.6455e+03_rb,1.2341e+03_rb,8.2275e+02_rb,4.1218e+02_rb,5.5292e+00_rb/)\n      kbo(:, 2,53,15) = (/ &\n     &2.5225e+03_rb,1.8919e+03_rb,1.2613e+03_rb,6.3102e+02_rb,8.9199e+00_rb/)\n      kbo(:, 3,53,15) = (/ &\n     &3.6054e+03_rb,2.7042e+03_rb,1.8028e+03_rb,9.0141e+02_rb,1.3342e+01_rb/)\n      kbo(:, 4,53,15) = (/ &\n     &4.8703e+03_rb,3.6527e+03_rb,2.4352e+03_rb,1.2176e+03_rb,1.8766e+01_rb/)\n      kbo(:, 5,53,15) = (/ &\n     &6.2970e+03_rb,4.7228e+03_rb,3.1485e+03_rb,1.5742e+03_rb,2.5231e+01_rb/)\n      kbo(:, 1,54,15) = (/ &\n     &1.4905e+03_rb,1.1179e+03_rb,7.4526e+02_rb,3.7343e+02_rb,4.6241e+00_rb/)\n      kbo(:, 2,54,15) = (/ &\n     &2.3494e+03_rb,1.7621e+03_rb,1.1747e+03_rb,5.8778e+02_rb,7.6666e+00_rb/)\n      kbo(:, 3,54,15) = (/ &\n     &3.4317e+03_rb,2.5738e+03_rb,1.7159e+03_rb,8.5793e+02_rb,1.1744e+01_rb/)\n      kbo(:, 4,54,15) = (/ &\n     &4.7173e+03_rb,3.5380e+03_rb,2.3587e+03_rb,1.1793e+03_rb,1.6836e+01_rb/)\n      kbo(:, 5,54,15) = (/ &\n     &6.1810e+03_rb,4.6357e+03_rb,3.0905e+03_rb,1.5452e+03_rb,2.2955e+01_rb/)\n      kbo(:, 1,55,15) = (/ &\n     &1.3503e+03_rb,1.0127e+03_rb,6.7517e+02_rb,3.3837e+02_rb,3.8496e+00_rb/)\n      kbo(:, 2,55,15) = (/ &\n     &2.1922e+03_rb,1.6441e+03_rb,1.0961e+03_rb,5.4853e+02_rb,6.5708e+00_rb/)\n      kbo(:, 3,55,15) = (/ &\n     &3.2739e+03_rb,2.4554e+03_rb,1.6370e+03_rb,8.1853e+02_rb,1.0320e+01_rb/)\n      kbo(:, 4,55,15) = (/ &\n     &4.5818e+03_rb,3.4364e+03_rb,2.2910e+03_rb,1.1455e+03_rb,1.5094e+01_rb/)\n      kbo(:, 5,55,15) = (/ &\n     &6.0888e+03_rb,4.5666e+03_rb,3.0444e+03_rb,1.5222e+03_rb,2.0876e+01_rb/)\n      kbo(:, 1,56,15) = (/ &\n     &1.2164e+03_rb,9.1227e+02_rb,6.0818e+02_rb,3.0487e+02_rb,3.1724e+00_rb/)\n      kbo(:, 2,56,15) = (/ &\n     &2.0376e+03_rb,1.5282e+03_rb,1.0188e+03_rb,5.0989e+02_rb,5.5890e+00_rb/)\n      kbo(:, 3,56,15) = (/ &\n     &3.1175e+03_rb,2.3381e+03_rb,1.5588e+03_rb,7.7947e+02_rb,9.0060e+00_rb/)\n      kbo(:, 4,56,15) = (/ &\n     &4.4491e+03_rb,3.3368e+03_rb,2.2246e+03_rb,1.1123e+03_rb,1.3463e+01_rb/)\n      kbo(:, 5,56,15) = (/ &\n     &6.0027e+03_rb,4.5020e+03_rb,3.0014e+03_rb,1.5007e+03_rb,1.8912e+01_rb/)\n      kbo(:, 1,57,15) = (/ &\n     &1.0889e+03_rb,8.1664e+02_rb,5.4443e+02_rb,2.7298e+02_rb,2.5821e+00_rb/)\n      kbo(:, 2,57,15) = (/ &\n     &1.8871e+03_rb,1.4154e+03_rb,9.4357e+02_rb,4.7231e+02_rb,4.7102e+00_rb/)\n      kbo(:, 3,57,15) = (/ &\n     &2.9648e+03_rb,2.2236e+03_rb,1.4824e+03_rb,7.4131e+02_rb,7.7911e+00_rb/)\n      kbo(:, 4,57,15) = (/ &\n     &4.3194e+03_rb,3.2395e+03_rb,2.1597e+03_rb,1.0798e+03_rb,1.1924e+01_rb/)\n      kbo(:, 5,57,15) = (/ &\n     &5.9252e+03_rb,4.4439e+03_rb,2.9626e+03_rb,1.4813e+03_rb,1.7058e+01_rb/)\n      kbo(:, 1,58,15) = (/ &\n     &4.7296e+02_rb,4.0724e+02_rb,3.1867e+02_rb,1.9341e+02_rb,2.1052e+00_rb/)\n      kbo(:, 2,58,15) = (/ &\n     &8.4958e+02_rb,7.3152e+02_rb,5.7242e+02_rb,3.4682e+02_rb,3.9643e+00_rb/)\n      kbo(:, 3,58,15) = (/ &\n     &1.3719e+03_rb,1.1812e+03_rb,9.2434e+02_rb,5.5948e+02_rb,6.7352e+00_rb/)\n      kbo(:, 4,58,15) = (/ &\n     &2.0410e+03_rb,1.7574e+03_rb,1.3752e+03_rb,8.3221e+02_rb,1.0550e+01_rb/)\n      kbo(:, 5,58,15) = (/ &\n     &2.8472e+03_rb,2.4515e+03_rb,1.9184e+03_rb,1.1609e+03_rb,1.5395e+01_rb/)\n      kbo(:, 1,59,15) = (/ &\n     &4.5680e+02_rb,3.9477e+02_rb,3.1046e+02_rb,1.8976e+02_rb,1.9256e+00_rb/)\n      kbo(:, 2,59,15) = (/ &\n     &8.3327e+02_rb,7.2012e+02_rb,5.6632e+02_rb,3.4555e+02_rb,3.6779e+00_rb/)\n      kbo(:, 3,59,15) = (/ &\n     &1.3611e+03_rb,1.1763e+03_rb,9.2510e+02_rb,5.6393e+02_rb,6.3201e+00_rb/)\n      kbo(:, 4,59,15) = (/ &\n     &2.0429e+03_rb,1.7655e+03_rb,1.3884e+03_rb,8.4623e+02_rb,9.9804e+00_rb/)\n      kbo(:, 5,59,15) = (/ &\n     &2.8700e+03_rb,2.4803e+03_rb,1.9506e+03_rb,1.1889e+03_rb,1.4739e+01_rb/)\n      kbo(:, 1,13,16) = (/ &\n     &4.8122e+02_rb,3.6087e+02_rb,2.4060e+02_rb,1.2030e+02_rb,7.3993e+00_rb/)\n      kbo(:, 2,13,16) = (/ &\n     &6.9206e+02_rb,5.1907e+02_rb,3.4603e+02_rb,1.7302e+02_rb,1.5501e+01_rb/)\n      kbo(:, 3,13,16) = (/ &\n     &9.4738e+02_rb,7.1056e+02_rb,4.7372e+02_rb,2.3683e+02_rb,2.1040e+01_rb/)\n      kbo(:, 4,13,16) = (/ &\n     &1.2406e+03_rb,9.3042e+02_rb,6.2029e+02_rb,3.1014e+02_rb,2.9139e+01_rb/)\n      kbo(:, 5,13,16) = (/ &\n     &1.5703e+03_rb,1.1778e+03_rb,7.8522e+02_rb,3.9259e+02_rb,3.9308e+01_rb/)\n      kbo(:, 1,14,16) = (/ &\n     &5.7576e+02_rb,4.3182e+02_rb,2.8788e+02_rb,1.4394e+02_rb,1.4009e+01_rb/)\n      kbo(:, 2,14,16) = (/ &\n     &8.3244e+02_rb,6.2431e+02_rb,4.1619e+02_rb,2.0809e+02_rb,1.9135e+01_rb/)\n      kbo(:, 3,14,16) = (/ &\n     &1.1392e+03_rb,8.5436e+02_rb,5.6956e+02_rb,2.8480e+02_rb,2.5798e+01_rb/)\n      kbo(:, 4,14,16) = (/ &\n     &1.4970e+03_rb,1.1226e+03_rb,7.4844e+02_rb,3.7423e+02_rb,3.5612e+01_rb/)\n      kbo(:, 5,14,16) = (/ &\n     &1.8999e+03_rb,1.4249e+03_rb,9.4985e+02_rb,4.7498e+02_rb,4.7897e+01_rb/)\n      kbo(:, 1,15,16) = (/ &\n     &6.7686e+02_rb,5.0758e+02_rb,3.3845e+02_rb,1.6922e+02_rb,1.7232e+01_rb/)\n      kbo(:, 2,15,16) = (/ &\n     &9.7585e+02_rb,7.3193e+02_rb,4.8790e+02_rb,2.4395e+02_rb,2.3521e+01_rb/)\n      kbo(:, 3,15,16) = (/ &\n     &1.3377e+03_rb,1.0032e+03_rb,6.6881e+02_rb,3.3441e+02_rb,3.1740e+01_rb/)\n      kbo(:, 4,15,16) = (/ &\n     &1.7575e+03_rb,1.3181e+03_rb,8.7876e+02_rb,4.3935e+02_rb,4.3321e+01_rb/)\n      kbo(:, 5,15,16) = (/ &\n     &2.2308e+03_rb,1.6730e+03_rb,1.1154e+03_rb,5.5774e+02_rb,5.7999e+01_rb/)\n      kbo(:, 1,16,16) = (/ &\n     &7.8637e+02_rb,5.8983e+02_rb,3.9321e+02_rb,1.9661e+02_rb,2.1088e+01_rb/)\n      kbo(:, 2,16,16) = (/ &\n     &1.1333e+03_rb,8.4995e+02_rb,5.6666e+02_rb,2.8332e+02_rb,2.8690e+01_rb/)\n      kbo(:, 3,16,16) = (/ &\n     &1.5497e+03_rb,1.1623e+03_rb,7.7493e+02_rb,3.8745e+02_rb,3.8949e+01_rb/)\n      kbo(:, 4,16,16) = (/ &\n     &2.0330e+03_rb,1.5247e+03_rb,1.0164e+03_rb,5.0821e+02_rb,5.2500e+01_rb/)\n      kbo(:, 5,16,16) = (/ &\n     &2.5789e+03_rb,1.9342e+03_rb,1.2895e+03_rb,6.4478e+02_rb,6.9505e+01_rb/)\n      kbo(:, 1,17,16) = (/ &\n     &9.1371e+02_rb,6.8529e+02_rb,4.5686e+02_rb,2.2843e+02_rb,2.5518e+01_rb/)\n      kbo(:, 2,17,16) = (/ &\n     &1.3116e+03_rb,9.8366e+02_rb,6.5574e+02_rb,3.2788e+02_rb,3.4904e+01_rb/)\n      kbo(:, 3,17,16) = (/ &\n     &1.7880e+03_rb,1.3410e+03_rb,8.9396e+02_rb,4.4698e+02_rb,4.7412e+01_rb/)\n      kbo(:, 4,17,16) = (/ &\n     &2.3411e+03_rb,1.7558e+03_rb,1.1705e+03_rb,5.8526e+02_rb,6.3218e+01_rb/)\n      kbo(:, 5,17,16) = (/ &\n     &2.9603e+03_rb,2.2204e+03_rb,1.4801e+03_rb,7.4006e+02_rb,8.2344e+01_rb/)\n      kbo(:, 1,18,16) = (/ &\n     &1.0453e+03_rb,7.8401e+02_rb,5.2267e+02_rb,2.6132e+02_rb,3.0565e+01_rb/)\n      kbo(:, 2,18,16) = (/ &\n     &1.4935e+03_rb,1.1202e+03_rb,7.4674e+02_rb,3.7341e+02_rb,4.2204e+01_rb/)\n      kbo(:, 3,18,16) = (/ &\n     &2.0309e+03_rb,1.5232e+03_rb,1.0154e+03_rb,5.0502e+02_rb,5.7127e+01_rb/)\n      kbo(:, 4,18,16) = (/ &\n     &2.6479e+03_rb,1.9862e+03_rb,1.3241e+03_rb,6.6202e+02_rb,7.5429e+01_rb/)\n      kbo(:, 5,18,16) = (/ &\n     &3.3399e+03_rb,2.5049e+03_rb,1.6700e+03_rb,8.3500e+02_rb,9.7021e+01_rb/)\n      kbo(:, 1,19,16) = (/ &\n     &1.2157e+03_rb,9.1179e+02_rb,6.0790e+02_rb,3.0394e+02_rb,3.6497e+01_rb/)\n      kbo(:, 2,19,16) = (/ &\n     &1.7308e+03_rb,1.2981e+03_rb,8.6539e+02_rb,4.3270e+02_rb,5.0186e+01_rb/)\n      kbo(:, 3,19,16) = (/ &\n     &2.3421e+03_rb,1.7565e+03_rb,1.1710e+03_rb,5.8556e+02_rb,6.7960e+01_rb/)\n      kbo(:, 4,19,16) = (/ &\n     &3.0436e+03_rb,2.2829e+03_rb,1.5219e+03_rb,7.6093e+02_rb,8.8940e+01_rb/)\n      kbo(:, 5,19,16) = (/ &\n     &3.8257e+03_rb,2.8691e+03_rb,1.9129e+03_rb,9.5637e+02_rb,1.1320e+02_rb/)\n      kbo(:, 1,20,16) = (/ &\n     &1.4499e+03_rb,1.0875e+03_rb,7.2502e+02_rb,3.6250e+02_rb,4.3451e+01_rb/)\n      kbo(:, 2,20,16) = (/ &\n     &2.0494e+03_rb,1.5371e+03_rb,1.0247e+03_rb,5.1236e+02_rb,5.9923e+01_rb/)\n      kbo(:, 3,20,16) = (/ &\n     &2.7595e+03_rb,2.0695e+03_rb,1.3797e+03_rb,6.8984e+02_rb,8.0107e+01_rb/)\n      kbo(:, 4,20,16) = (/ &\n     &3.5702e+03_rb,2.6775e+03_rb,1.7850e+03_rb,8.9253e+02_rb,1.0388e+02_rb/)\n      kbo(:, 5,20,16) = (/ &\n     &4.4675e+03_rb,3.3505e+03_rb,2.2337e+03_rb,1.1168e+03_rb,1.3102e+02_rb/)\n      kbo(:, 1,21,16) = (/ &\n     &1.7354e+03_rb,1.3015e+03_rb,8.6762e+02_rb,4.3383e+02_rb,5.1121e+01_rb/)\n      kbo(:, 2,21,16) = (/ &\n     &2.4333e+03_rb,1.8248e+03_rb,1.2166e+03_rb,6.0831e+02_rb,7.0122e+01_rb/)\n      kbo(:, 3,21,16) = (/ &\n     &3.2566e+03_rb,2.4426e+03_rb,1.6283e+03_rb,8.1420e+02_rb,9.3037e+01_rb/)\n      kbo(:, 4,21,16) = (/ &\n     &4.1875e+03_rb,3.1404e+03_rb,2.0937e+03_rb,1.0468e+03_rb,1.1968e+02_rb/)\n      kbo(:, 5,21,16) = (/ &\n     &5.2269e+03_rb,3.9201e+03_rb,2.6133e+03_rb,1.3066e+03_rb,1.4963e+02_rb/)\n      kbo(:, 1,22,16) = (/ &\n     &2.1136e+03_rb,1.5853e+03_rb,1.0569e+03_rb,5.2844e+02_rb,6.0581e+01_rb/)\n      kbo(:, 2,22,16) = (/ &\n     &2.9316e+03_rb,2.1987e+03_rb,1.4659e+03_rb,7.3292e+02_rb,8.2385e+01_rb/)\n      kbo(:, 3,22,16) = (/ &\n     &3.8802e+03_rb,2.9101e+03_rb,1.9401e+03_rb,9.7007e+02_rb,1.0823e+02_rb/)\n      kbo(:, 4,22,16) = (/ &\n     &4.9544e+03_rb,3.7156e+03_rb,2.4770e+03_rb,1.2386e+03_rb,1.3781e+02_rb/)\n      kbo(:, 5,22,16) = (/ &\n     &6.1512e+03_rb,4.6135e+03_rb,3.0579e+03_rb,1.5378e+03_rb,1.7127e+02_rb/)\n      kbo(:, 1,23,16) = (/ &\n     &2.5612e+03_rb,1.9208e+03_rb,1.2805e+03_rb,6.4031e+02_rb,7.0795e+01_rb/)\n      kbo(:, 2,23,16) = (/ &\n     &3.5078e+03_rb,2.6308e+03_rb,1.7538e+03_rb,8.7684e+02_rb,9.5347e+01_rb/)\n      kbo(:, 3,23,16) = (/ &\n     &4.5972e+03_rb,3.4475e+03_rb,2.2984e+03_rb,1.1493e+03_rb,1.2411e+02_rb/)\n      kbo(:, 4,23,16) = (/ &\n     &5.8246e+03_rb,4.3680e+03_rb,2.9119e+03_rb,1.4559e+03_rb,1.5734e+02_rb/)\n      kbo(:, 5,23,16) = (/ &\n     &7.1749e+03_rb,5.3812e+03_rb,3.5874e+03_rb,1.7937e+03_rb,1.9485e+02_rb/)\n      kbo(:, 1,24,16) = (/ &\n     &3.1040e+03_rb,2.3279e+03_rb,1.5520e+03_rb,7.7603e+02_rb,8.1731e+01_rb/)\n      kbo(:, 2,24,16) = (/ &\n     &4.2015e+03_rb,3.1511e+03_rb,2.1007e+03_rb,1.0503e+03_rb,1.0915e+02_rb/)\n      kbo(:, 3,24,16) = (/ &\n     &5.4526e+03_rb,4.0896e+03_rb,2.7263e+03_rb,1.3632e+03_rb,1.4142e+02_rb/)\n      kbo(:, 4,24,16) = (/ &\n     &6.8486e+03_rb,5.1365e+03_rb,3.4243e+03_rb,1.7120e+03_rb,1.7856e+02_rb/)\n      kbo(:, 5,24,16) = (/ &\n     &8.3592e+03_rb,6.2694e+03_rb,4.1793e+03_rb,2.0896e+03_rb,2.2042e+02_rb/)\n      kbo(:, 1,25,16) = (/ &\n     &3.7353e+03_rb,2.8011e+03_rb,1.8675e+03_rb,9.3379e+02_rb,9.3752e+01_rb/)\n      kbo(:, 2,25,16) = (/ &\n     &4.9915e+03_rb,3.7438e+03_rb,2.4959e+03_rb,1.2479e+03_rb,1.2447e+02_rb/)\n      kbo(:, 3,25,16) = (/ &\n     &6.4159e+03_rb,4.8120e+03_rb,3.2081e+03_rb,1.6040e+03_rb,1.6041e+02_rb/)\n      kbo(:, 4,25,16) = (/ &\n     &7.9803e+03_rb,5.9849e+03_rb,3.9899e+03_rb,1.9951e+03_rb,2.0157e+02_rb/)\n      kbo(:, 5,25,16) = (/ &\n     &9.6532e+03_rb,7.2408e+03_rb,4.8272e+03_rb,2.4135e+03_rb,2.4756e+02_rb/)\n      kbo(:, 1,26,16) = (/ &\n     &4.4736e+03_rb,3.3551e+03_rb,2.2367e+03_rb,1.1183e+03_rb,1.0731e+02_rb/)\n      kbo(:, 2,26,16) = (/ &\n     &5.9023e+03_rb,4.4264e+03_rb,2.9511e+03_rb,1.4756e+03_rb,1.4156e+02_rb/)\n      kbo(:, 3,26,16) = (/ &\n     &7.5046e+03_rb,5.6279e+03_rb,3.7521e+03_rb,1.8761e+03_rb,1.8123e+02_rb/)\n      kbo(:, 4,26,16) = (/ &\n     &9.2412e+03_rb,6.9304e+03_rb,4.6207e+03_rb,2.3102e+03_rb,2.2639e+02_rb/)\n      kbo(:, 5,26,16) = (/ &\n     &1.1070e+04_rb,8.3029e+03_rb,5.5351e+03_rb,2.7676e+03_rb,2.7645e+02_rb/)\n      kbo(:, 1,27,16) = (/ &\n     &5.2658e+03_rb,3.9745e+03_rb,2.6497e+03_rb,1.3248e+03_rb,1.2199e+02_rb/)\n      kbo(:, 2,27,16) = (/ &\n     &6.9046e+03_rb,5.1781e+03_rb,3.4305e+03_rb,1.7261e+03_rb,1.5967e+02_rb/)\n      kbo(:, 3,27,16) = (/ &\n     &8.6809e+03_rb,6.5105e+03_rb,4.3403e+03_rb,2.1700e+03_rb,2.0317e+02_rb/)\n      kbo(:, 4,27,16) = (/ &\n     &1.0514e+04_rb,7.9337e+03_rb,5.2893e+03_rb,2.6448e+03_rb,2.5202e+02_rb/)\n      kbo(:, 5,27,16) = (/ &\n     &1.2548e+04_rb,9.4115e+03_rb,6.2746e+03_rb,3.1373e+03_rb,3.0568e+02_rb/)\n      kbo(:, 1,28,16) = (/ &\n     &6.2040e+03_rb,4.6529e+03_rb,3.1020e+03_rb,1.5511e+03_rb,1.3749e+02_rb/)\n      kbo(:, 2,28,16) = (/ &\n     &7.9799e+03_rb,5.9854e+03_rb,3.9901e+03_rb,1.9952e+03_rb,1.7869e+02_rb/)\n      kbo(:, 3,28,16) = (/ &\n     &9.9157e+03_rb,7.4385e+03_rb,4.9578e+03_rb,2.4793e+03_rb,2.2573e+02_rb/)\n      kbo(:, 4,28,16) = (/ &\n     &1.1961e+04_rb,8.9706e+03_rb,5.9799e+03_rb,2.9900e+03_rb,2.7806e+02_rb/)\n      kbo(:, 5,28,16) = (/ &\n     &1.4060e+04_rb,1.0545e+04_rb,7.0300e+03_rb,3.5151e+03_rb,3.3499e+02_rb/)\n      kbo(:, 1,29,16) = (/ &\n     &7.1341e+03_rb,5.3506e+03_rb,3.5671e+03_rb,1.7835e+03_rb,1.5398e+02_rb/)\n      kbo(:, 2,29,16) = (/ &\n     &9.0577e+03_rb,6.7935e+03_rb,4.5290e+03_rb,2.2643e+03_rb,1.9863e+02_rb/)\n      kbo(:, 3,29,16) = (/ &\n     &1.1122e+04_rb,8.3426e+03_rb,5.5615e+03_rb,2.7806e+03_rb,2.4903e+02_rb/)\n      kbo(:, 4,29,16) = (/ &\n     &1.3280e+04_rb,9.9609e+03_rb,6.6400e+03_rb,3.3199e+03_rb,3.0450e+02_rb/)\n      kbo(:, 5,29,16) = (/ &\n     &1.5478e+04_rb,1.1609e+04_rb,7.7394e+03_rb,3.8697e+03_rb,3.6431e+02_rb/)\n      kbo(:, 1,30,16) = (/ &\n     &8.0566e+03_rb,6.0423e+03_rb,4.0284e+03_rb,2.0142e+03_rb,1.7115e+02_rb/)\n      kbo(:, 2,30,16) = (/ &\n     &1.0101e+04_rb,7.5759e+03_rb,5.0505e+03_rb,2.5252e+03_rb,2.1901e+02_rb/)\n      kbo(:, 3,30,16) = (/ &\n     &1.2267e+04_rb,9.1995e+03_rb,6.1334e+03_rb,3.0668e+03_rb,2.7243e+02_rb/)\n      kbo(:, 4,30,16) = (/ &\n     &1.4511e+04_rb,1.0883e+04_rb,7.2556e+03_rb,3.6279e+03_rb,3.3082e+02_rb/)\n      kbo(:, 5,30,16) = (/ &\n     &1.6772e+04_rb,1.2579e+04_rb,8.3858e+03_rb,4.1931e+03_rb,3.9317e+02_rb/)\n      kbo(:, 1,31,16) = (/ &\n     &8.8982e+03_rb,6.6739e+03_rb,4.4493e+03_rb,2.2245e+03_rb,1.8901e+02_rb/)\n      kbo(:, 2,31,16) = (/ &\n     &1.1025e+04_rb,8.2681e+03_rb,5.5122e+03_rb,2.7560e+03_rb,2.3984e+02_rb/)\n      kbo(:, 3,31,16) = (/ &\n     &1.3250e+04_rb,9.9387e+03_rb,6.6258e+03_rb,3.3127e+03_rb,2.9609e+02_rb/)\n      kbo(:, 4,31,16) = (/ &\n     &1.5535e+04_rb,1.1652e+04_rb,7.7678e+03_rb,3.8841e+03_rb,3.5699e+02_rb/)\n      kbo(:, 5,31,16) = (/ &\n     &1.7813e+04_rb,1.3361e+04_rb,8.9075e+03_rb,4.4535e+03_rb,4.2172e+02_rb/)\n      kbo(:, 1,32,16) = (/ &\n     &9.7468e+03_rb,7.3100e+03_rb,4.8729e+03_rb,2.4366e+03_rb,2.0736e+02_rb/)\n      kbo(:, 2,32,16) = (/ &\n     &1.1942e+04_rb,8.9562e+03_rb,5.9708e+03_rb,2.9855e+03_rb,2.6092e+02_rb/)\n      kbo(:, 3,32,16) = (/ &\n     &1.4217e+04_rb,1.0663e+04_rb,7.1086e+03_rb,3.5542e+03_rb,3.1978e+02_rb/)\n      kbo(:, 4,32,16) = (/ &\n     &1.6526e+04_rb,1.2394e+04_rb,8.2625e+03_rb,4.1313e+03_rb,3.8300e+02_rb/)\n      kbo(:, 5,32,16) = (/ &\n     &1.8815e+04_rb,1.4111e+04_rb,9.4077e+03_rb,4.7034e+03_rb,4.4968e+02_rb/)\n      kbo(:, 1,33,16) = (/ &\n     &1.0585e+04_rb,7.8868e+03_rb,5.2924e+03_rb,2.6461e+03_rb,2.2603e+02_rb/)\n      kbo(:, 2,33,16) = (/ &\n     &1.2835e+04_rb,9.6280e+03_rb,6.4182e+03_rb,3.2091e+03_rb,2.8215e+02_rb/)\n      kbo(:, 3,33,16) = (/ &\n     &1.5147e+04_rb,1.1359e+04_rb,7.5723e+03_rb,3.7863e+03_rb,3.3983e+02_rb/)\n      kbo(:, 4,33,16) = (/ &\n     &1.7461e+04_rb,1.3096e+04_rb,8.7313e+03_rb,4.3654e+03_rb,4.0847e+02_rb/)\n      kbo(:, 5,33,16) = (/ &\n     &1.9631e+04_rb,1.4815e+04_rb,9.8770e+03_rb,4.9389e+03_rb,4.7201e+02_rb/)\n      kbo(:, 1,34,16) = (/ &\n     &1.1432e+04_rb,8.5737e+03_rb,5.7158e+03_rb,2.8579e+03_rb,2.4293e+02_rb/)\n      kbo(:, 2,34,16) = (/ &\n     &1.3656e+04_rb,1.0308e+04_rb,6.8715e+03_rb,3.4360e+03_rb,3.0114e+02_rb/)\n      kbo(:, 3,34,16) = (/ &\n     &1.6096e+04_rb,1.2073e+04_rb,8.0473e+03_rb,4.0240e+03_rb,3.6423e+02_rb/)\n      kbo(:, 4,34,16) = (/ &\n     &1.8435e+04_rb,1.3744e+04_rb,9.2181e+03_rb,4.6088e+03_rb,4.3111e+02_rb/)\n      kbo(:, 5,34,16) = (/ &\n     &2.0743e+04_rb,1.5458e+04_rb,1.0371e+04_rb,5.1857e+03_rb,5.0086e+02_rb/)\n      kbo(:, 1,35,16) = (/ &\n     &1.2052e+04_rb,9.0391e+03_rb,6.0261e+03_rb,3.0130e+03_rb,2.5425e+02_rb/)\n      kbo(:, 2,35,16) = (/ &\n     &1.4410e+04_rb,1.0808e+04_rb,7.2046e+03_rb,3.6026e+03_rb,3.1392e+02_rb/)\n      kbo(:, 3,35,16) = (/ &\n     &1.6796e+04_rb,1.2598e+04_rb,8.3987e+03_rb,4.1994e+03_rb,3.7832e+02_rb/)\n      kbo(:, 4,35,16) = (/ &\n     &1.9160e+04_rb,1.4370e+04_rb,9.5799e+03_rb,4.7904e+03_rb,4.4634e+02_rb/)\n      kbo(:, 5,35,16) = (/ &\n     &2.1483e+04_rb,1.6114e+04_rb,1.0742e+04_rb,5.3711e+03_rb,5.1708e+02_rb/)\n      kbo(:, 1,36,16) = (/ &\n     &1.2411e+04_rb,9.3078e+03_rb,6.2050e+03_rb,3.1026e+03_rb,2.5887e+02_rb/)\n      kbo(:, 2,36,16) = (/ &\n     &1.4808e+04_rb,1.1106e+04_rb,7.4043e+03_rb,3.7021e+03_rb,3.1927e+02_rb/)\n      kbo(:, 3,36,16) = (/ &\n     &1.7228e+04_rb,1.2921e+04_rb,8.6130e+03_rb,4.3067e+03_rb,3.8442e+02_rb/)\n      kbo(:, 4,36,16) = (/ &\n     &1.9618e+04_rb,1.4714e+04_rb,9.8092e+03_rb,4.9047e+03_rb,4.5297e+02_rb/)\n      kbo(:, 5,36,16) = (/ &\n     &2.1965e+04_rb,1.6474e+04_rb,1.0982e+04_rb,5.4915e+03_rb,5.1909e+02_rb/)\n      kbo(:, 1,37,16) = (/ &\n     &1.2464e+04_rb,9.3487e+03_rb,6.2318e+03_rb,3.1159e+03_rb,2.5416e+02_rb/)\n      kbo(:, 2,37,16) = (/ &\n     &1.4910e+04_rb,1.1181e+04_rb,7.4551e+03_rb,3.7272e+03_rb,3.1436e+02_rb/)\n      kbo(:, 3,37,16) = (/ &\n     &1.7377e+04_rb,1.3033e+04_rb,8.6893e+03_rb,4.3442e+03_rb,3.7942e+02_rb/)\n      kbo(:, 4,37,16) = (/ &\n     &1.9817e+04_rb,1.4862e+04_rb,9.9088e+03_rb,4.9531e+03_rb,4.4815e+02_rb/)\n      kbo(:, 5,37,16) = (/ &\n     &2.2212e+04_rb,1.6660e+04_rb,1.1107e+04_rb,5.5531e+03_rb,5.1970e+02_rb/)\n      kbo(:, 1,38,16) = (/ &\n     &1.2455e+04_rb,9.3421e+03_rb,6.2277e+03_rb,3.1139e+03_rb,2.4843e+02_rb/)\n      kbo(:, 2,38,16) = (/ &\n     &1.4944e+04_rb,1.1208e+04_rb,7.4715e+03_rb,3.7356e+03_rb,3.0837e+02_rb/)\n      kbo(:, 3,38,16) = (/ &\n     &1.7458e+04_rb,1.3093e+04_rb,8.7289e+03_rb,4.3646e+03_rb,3.7326e+02_rb/)\n      kbo(:, 4,38,16) = (/ &\n     &1.9945e+04_rb,1.4959e+04_rb,9.9720e+03_rb,4.9866e+03_rb,4.4198e+02_rb/)\n      kbo(:, 5,38,16) = (/ &\n     &2.2391e+04_rb,1.6792e+04_rb,1.1195e+04_rb,5.5974e+03_rb,5.1349e+02_rb/)\n      kbo(:, 1,39,16) = (/ &\n     &1.2406e+04_rb,9.3076e+03_rb,6.2035e+03_rb,3.1024e+03_rb,2.4239e+02_rb/)\n      kbo(:, 2,39,16) = (/ &\n     &1.4934e+04_rb,1.1200e+04_rb,7.4672e+03_rb,3.7337e+03_rb,3.0193e+02_rb/)\n      kbo(:, 3,39,16) = (/ &\n     &1.7492e+04_rb,1.3118e+04_rb,8.7456e+03_rb,4.3725e+03_rb,3.6650e+02_rb/)\n      kbo(:, 4,39,16) = (/ &\n     &2.0028e+04_rb,1.5022e+04_rb,1.0013e+04_rb,5.0072e+03_rb,4.3512e+02_rb/)\n      kbo(:, 5,39,16) = (/ &\n     &2.2512e+04_rb,1.6885e+04_rb,1.1257e+04_rb,5.6280e+03_rb,5.0671e+02_rb/)\n      kbo(:, 1,40,16) = (/ &\n     &1.2191e+04_rb,9.1428e+03_rb,6.0955e+03_rb,3.0476e+03_rb,2.3031e+02_rb/)\n      kbo(:, 2,40,16) = (/ &\n     &1.4768e+04_rb,1.1076e+04_rb,7.3840e+03_rb,3.6920e+03_rb,2.8879e+02_rb/)\n      kbo(:, 3,40,16) = (/ &\n     &1.7391e+04_rb,1.3044e+04_rb,8.6959e+03_rb,4.3483e+03_rb,3.5253e+02_rb/)\n      kbo(:, 4,40,16) = (/ &\n     &2.0001e+04_rb,1.5001e+04_rb,1.0001e+04_rb,5.0007e+03_rb,4.2055e+02_rb/)\n      kbo(:, 5,40,16) = (/ &\n     &2.2559e+04_rb,1.6919e+04_rb,1.1281e+04_rb,5.6404e+03_rb,4.9160e+02_rb/)\n      kbo(:, 1,41,16) = (/ &\n     &1.1918e+04_rb,8.9381e+03_rb,5.9590e+03_rb,2.9794e+03_rb,2.1766e+02_rb/)\n      kbo(:, 2,41,16) = (/ &\n     &1.4546e+04_rb,1.0910e+04_rb,7.2239e+03_rb,3.6364e+03_rb,2.7473e+02_rb/)\n      kbo(:, 3,41,16) = (/ &\n     &1.7237e+04_rb,1.2927e+04_rb,8.6187e+03_rb,4.3092e+03_rb,3.3421e+02_rb/)\n      kbo(:, 4,41,16) = (/ &\n     &1.9925e+04_rb,1.4942e+04_rb,9.9613e+03_rb,4.9808e+03_rb,4.0468e+02_rb/)\n      kbo(:, 5,41,16) = (/ &\n     &2.2566e+04_rb,1.6925e+04_rb,1.1282e+04_rb,5.6408e+03_rb,4.7546e+02_rb/)\n      kbo(:, 1,42,16) = (/ &\n     &1.1611e+04_rb,8.7088e+03_rb,5.8053e+03_rb,2.9027e+03_rb,2.0505e+02_rb/)\n      kbo(:, 2,42,16) = (/ &\n     &1.4284e+04_rb,1.0639e+04_rb,7.1417e+03_rb,3.5709e+03_rb,2.6066e+02_rb/)\n      kbo(:, 3,42,16) = (/ &\n     &1.7038e+04_rb,1.2778e+04_rb,8.5196e+03_rb,4.2591e+03_rb,3.2228e+02_rb/)\n      kbo(:, 4,42,16) = (/ &\n     &1.9799e+04_rb,1.4850e+04_rb,9.8997e+03_rb,4.9502e+03_rb,3.8865e+02_rb/)\n      kbo(:, 5,42,16) = (/ &\n     &2.2525e+04_rb,1.6894e+04_rb,1.1262e+04_rb,5.6311e+03_rb,4.5874e+02_rb/)\n      kbo(:, 1,43,16) = (/ &\n     &1.1239e+04_rb,8.4296e+03_rb,5.6199e+03_rb,2.8098e+03_rb,1.8981e+02_rb/)\n      kbo(:, 2,43,16) = (/ &\n     &1.3966e+04_rb,1.0473e+04_rb,6.9839e+03_rb,3.4914e+03_rb,2.4348e+02_rb/)\n      kbo(:, 3,43,16) = (/ &\n     &1.6803e+04_rb,1.2602e+04_rb,8.4011e+03_rb,4.2005e+03_rb,3.0350e+02_rb/)\n      kbo(:, 4,43,16) = (/ &\n     &1.9668e+04_rb,1.4751e+04_rb,9.8339e+03_rb,4.9166e+03_rb,3.6865e+02_rb/)\n      kbo(:, 5,43,16) = (/ &\n     &2.2506e+04_rb,1.6879e+04_rb,1.1254e+04_rb,5.6261e+03_rb,4.3789e+02_rb/)\n      kbo(:, 1,44,16) = (/ &\n     &1.0825e+04_rb,8.1186e+03_rb,5.4125e+03_rb,2.7064e+03_rb,1.7391e+02_rb/)\n      kbo(:, 2,44,16) = (/ &\n     &1.3603e+04_rb,1.0202e+04_rb,6.8014e+03_rb,3.4006e+03_rb,2.2526e+02_rb/)\n      kbo(:, 3,44,16) = (/ &\n     &1.6530e+04_rb,1.2398e+04_rb,8.2649e+03_rb,4.1327e+03_rb,2.8337e+02_rb/)\n      kbo(:, 4,44,16) = (/ &\n     &1.9511e+04_rb,1.4634e+04_rb,9.7557e+03_rb,4.8778e+03_rb,3.4703e+02_rb/)\n      kbo(:, 5,44,16) = (/ &\n     &2.2482e+04_rb,1.6861e+04_rb,1.1241e+04_rb,5.6203e+03_rb,4.1512e+02_rb/)\n      kbo(:, 1,45,16) = (/ &\n     &1.0398e+04_rb,7.7989e+03_rb,5.1994e+03_rb,2.5997e+03_rb,1.5876e+02_rb/)\n      kbo(:, 2,45,16) = (/ &\n     &1.3207e+04_rb,9.9052e+03_rb,6.6032e+03_rb,3.3018e+03_rb,2.0761e+02_rb/)\n      kbo(:, 3,45,16) = (/ &\n     &1.6220e+04_rb,1.2165e+04_rb,8.1095e+03_rb,4.0543e+03_rb,2.6368e+02_rb/)\n      kbo(:, 4,45,16) = (/ &\n     &1.9318e+04_rb,1.4390e+04_rb,9.6588e+03_rb,4.8297e+03_rb,3.2574e+02_rb/)\n      kbo(:, 5,45,16) = (/ &\n     &2.2424e+04_rb,1.6818e+04_rb,1.1212e+04_rb,5.6061e+03_rb,3.9259e+02_rb/)\n      kbo(:, 1,46,16) = (/ &\n     &9.9189e+03_rb,7.4400e+03_rb,4.9600e+03_rb,2.4797e+03_rb,1.4342e+02_rb/)\n      kbo(:, 2,46,16) = (/ &\n     &1.2731e+04_rb,9.5482e+03_rb,6.3653e+03_rb,3.1826e+03_rb,1.8954e+02_rb/)\n      kbo(:, 3,46,16) = (/ &\n     &1.5820e+04_rb,1.1865e+04_rb,7.9099e+03_rb,3.9548e+03_rb,2.4324e+02_rb/)\n      kbo(:, 4,46,16) = (/ &\n     &1.9036e+04_rb,1.4277e+04_rb,9.5173e+03_rb,4.7590e+03_rb,3.0340e+02_rb/)\n      kbo(:, 5,46,16) = (/ &\n     &2.2283e+04_rb,1.6712e+04_rb,1.1068e+04_rb,5.5708e+03_rb,3.6873e+02_rb/)\n      kbo(:, 1,47,16) = (/ &\n     &9.3465e+03_rb,7.0098e+03_rb,4.6733e+03_rb,2.3366e+03_rb,1.2741e+02_rb/)\n      kbo(:, 2,47,16) = (/ &\n     &1.2131e+04_rb,9.0979e+03_rb,6.0653e+03_rb,3.0325e+03_rb,1.7033e+02_rb/)\n      kbo(:, 3,47,16) = (/ &\n     &1.5279e+04_rb,1.1459e+04_rb,7.6395e+03_rb,3.8199e+03_rb,2.2121e+02_rb/)\n      kbo(:, 4,47,16) = (/ &\n     &1.8609e+04_rb,1.3956e+04_rb,9.3042e+03_rb,4.6522e+03_rb,2.7888e+02_rb/)\n      kbo(:, 5,47,16) = (/ &\n     &2.2011e+04_rb,1.6508e+04_rb,1.1006e+04_rb,5.5025e+03_rb,3.4244e+02_rb/)\n      kbo(:, 1,48,16) = (/ &\n     &8.7925e+03_rb,6.5945e+03_rb,4.3966e+03_rb,2.1981e+03_rb,1.1262e+02_rb/)\n      kbo(:, 2,48,16) = (/ &\n     &1.1529e+04_rb,8.6468e+03_rb,5.7644e+03_rb,2.8824e+03_rb,1.5232e+02_rb/)\n      kbo(:, 3,48,16) = (/ &\n     &1.4702e+04_rb,1.1027e+04_rb,7.3513e+03_rb,3.6755e+03_rb,2.0009e+02_rb/)\n      kbo(:, 4,48,16) = (/ &\n     &1.8139e+04_rb,1.3604e+04_rb,9.0700e+03_rb,4.5350e+03_rb,2.5528e+02_rb/)\n      kbo(:, 5,48,16) = (/ &\n     &2.1696e+04_rb,1.6272e+04_rb,1.0846e+04_rb,5.4236e+03_rb,3.1666e+02_rb/)\n      kbo(:, 1,49,16) = (/ &\n     &8.2532e+03_rb,6.1899e+03_rb,4.1262e+03_rb,2.0633e+03_rb,9.9158e+01_rb/)\n      kbo(:, 2,49,16) = (/ &\n     &1.0925e+04_rb,8.1939e+03_rb,5.4625e+03_rb,2.7312e+03_rb,1.3556e+02_rb/)\n      kbo(:, 3,49,16) = (/ &\n     &1.4098e+04_rb,1.0574e+04_rb,7.0499e+03_rb,3.5250e+03_rb,1.8015e+02_rb/)\n      kbo(:, 4,49,16) = (/ &\n     &1.7628e+04_rb,1.3221e+04_rb,8.8139e+03_rb,4.4071e+03_rb,2.3258e+02_rb/)\n      kbo(:, 5,49,16) = (/ &\n     &2.1334e+04_rb,1.6000e+04_rb,1.0668e+04_rb,5.3338e+03_rb,2.8877e+02_rb/)\n      kbo(:, 1,50,16) = (/ &\n     &7.7886e+03_rb,5.8414e+03_rb,3.8943e+03_rb,1.9471e+03_rb,8.7562e+01_rb/)\n      kbo(:, 2,50,16) = (/ &\n     &1.0399e+04_rb,7.7996e+03_rb,5.1995e+03_rb,2.6000e+03_rb,1.2099e+02_rb/)\n      kbo(:, 3,50,16) = (/ &\n     &1.3554e+04_rb,1.0165e+04_rb,6.7769e+03_rb,3.3882e+03_rb,1.6257e+02_rb/)\n      kbo(:, 4,50,16) = (/ &\n     &1.7158e+04_rb,1.2869e+04_rb,8.5791e+03_rb,4.2889e+03_rb,2.1215e+02_rb/)\n      kbo(:, 5,50,16) = (/ &\n     &2.1011e+04_rb,1.5758e+04_rb,1.0505e+04_rb,5.2531e+03_rb,2.6885e+02_rb/)\n      kbo(:, 1,51,16) = (/ &\n     &7.3653e+03_rb,5.5240e+03_rb,3.6827e+03_rb,1.8412e+03_rb,7.7231e+01_rb/)\n      kbo(:, 2,51,16) = (/ &\n     &9.9189e+03_rb,7.4392e+03_rb,4.9594e+03_rb,2.4660e+03_rb,1.0798e+02_rb/)\n      kbo(:, 3,51,16) = (/ &\n     &1.3047e+04_rb,9.7852e+03_rb,6.5235e+03_rb,3.2615e+03_rb,1.4656e+02_rb/)\n      kbo(:, 4,51,16) = (/ &\n     &1.6702e+04_rb,1.2527e+04_rb,8.3510e+03_rb,4.1752e+03_rb,1.9328e+02_rb/)\n      kbo(:, 5,51,16) = (/ &\n     &2.0693e+04_rb,1.5520e+04_rb,1.0347e+04_rb,5.1734e+03_rb,2.4760e+02_rb/)\n      kbo(:, 1,52,16) = (/ &\n     &6.9562e+03_rb,5.2172e+03_rb,3.4778e+03_rb,1.7389e+03_rb,6.7762e+01_rb/)\n      kbo(:, 2,52,16) = (/ &\n     &9.4563e+03_rb,7.0922e+03_rb,4.7284e+03_rb,2.3642e+03_rb,9.6034e+01_rb/)\n      kbo(:, 3,52,16) = (/ &\n     &1.2544e+04_rb,9.4081e+03_rb,6.2721e+03_rb,3.1358e+03_rb,1.3163e+02_rb/)\n      kbo(:, 4,52,16) = (/ &\n     &1.6228e+04_rb,1.2171e+04_rb,8.1139e+03_rb,4.0563e+03_rb,1.7544e+02_rb/)\n      kbo(:, 5,52,16) = (/ &\n     &2.0214e+04_rb,1.5266e+04_rb,1.0177e+04_rb,5.0897e+03_rb,2.2714e+02_rb/)\n      kbo(:, 1,53,16) = (/ &\n     &6.5707e+03_rb,4.8896e+03_rb,3.2854e+03_rb,1.6428e+03_rb,5.9086e+01_rb/)\n      kbo(:, 2,53,16) = (/ &\n     &9.0178e+03_rb,6.7633e+03_rb,4.5088e+03_rb,2.2544e+03_rb,8.4973e+01_rb/)\n      kbo(:, 3,53,16) = (/ &\n     &1.2063e+04_rb,9.0476e+03_rb,6.0317e+03_rb,3.0159e+03_rb,1.1770e+02_rb/)\n      kbo(:, 4,53,16) = (/ &\n     &1.5755e+04_rb,1.1816e+04_rb,7.8772e+03_rb,3.9386e+03_rb,1.5858e+02_rb/)\n      kbo(:, 5,53,16) = (/ &\n     &1.9999e+04_rb,1.4999e+04_rb,9.9995e+03_rb,5.0000e+03_rb,2.0751e+02_rb/)\n      kbo(:, 1,54,16) = (/ &\n     &6.2721e+03_rb,4.7041e+03_rb,3.1362e+03_rb,1.5681e+03_rb,5.1875e+01_rb/)\n      kbo(:, 2,54,16) = (/ &\n     &8.6741e+03_rb,6.5056e+03_rb,4.3370e+03_rb,2.1682e+03_rb,7.5628e+01_rb/)\n      kbo(:, 3,54,16) = (/ &\n     &1.1700e+04_rb,8.7748e+03_rb,5.8499e+03_rb,2.9249e+03_rb,1.0596e+02_rb/)\n      kbo(:, 4,54,16) = (/ &\n     &1.5404e+04_rb,1.1553e+04_rb,7.7020e+03_rb,3.8510e+03_rb,1.4404e+02_rb/)\n      kbo(:, 5,54,16) = (/ &\n     &1.9752e+04_rb,1.4814e+04_rb,9.8758e+03_rb,4.9379e+03_rb,1.9030e+02_rb/)\n      kbo(:, 1,55,16) = (/ &\n     &6.0231e+03_rb,4.5173e+03_rb,3.0116e+03_rb,1.5058e+03_rb,4.5583e+01_rb/)\n      kbo(:, 2,55,16) = (/ &\n     &8.3823e+03_rb,6.2868e+03_rb,4.1912e+03_rb,2.0956e+03_rb,6.7362e+01_rb/)\n      kbo(:, 3,55,16) = (/ &\n     &1.1398e+04_rb,8.5488e+03_rb,5.6992e+03_rb,2.8496e+03_rb,9.5542e+01_rb/)\n      kbo(:, 4,55,16) = (/ &\n     &1.5124e+04_rb,1.1343e+04_rb,7.5617e+03_rb,3.7808e+03_rb,1.3099e+02_rb/)\n      kbo(:, 5,55,16) = (/ &\n     &1.9568e+04_rb,1.4676e+04_rb,9.7841e+03_rb,4.8920e+03_rb,1.7464e+02_rb/)\n      kbo(:, 1,56,16) = (/ &\n     &5.7989e+03_rb,4.3492e+03_rb,2.8995e+03_rb,1.4497e+03_rb,3.9828e+01_rb/)\n      kbo(:, 2,56,16) = (/ &\n     &8.1232e+03_rb,6.0924e+03_rb,4.0616e+03_rb,2.0308e+03_rb,5.9729e+01_rb/)\n      kbo(:, 3,56,16) = (/ &\n     &1.1139e+04_rb,8.3546e+03_rb,5.5697e+03_rb,2.7849e+03_rb,8.5801e+01_rb/)\n      kbo(:, 4,56,16) = (/ &\n     &1.4890e+04_rb,1.1167e+04_rb,7.4448e+03_rb,3.7224e+03_rb,1.1874e+02_rb/)\n      kbo(:, 5,56,16) = (/ &\n     &1.9429e+04_rb,1.4572e+04_rb,9.7148e+03_rb,4.8574e+03_rb,1.5988e+02_rb/)\n      kbo(:, 1,57,16) = (/ &\n     &5.6021e+03_rb,4.2016e+03_rb,2.8010e+03_rb,1.4005e+03_rb,3.4593e+01_rb/)\n      kbo(:, 2,57,16) = (/ &\n     &7.9032e+03_rb,5.9274e+03_rb,3.9516e+03_rb,1.9758e+03_rb,5.2766e+01_rb/)\n      kbo(:, 3,57,16) = (/ &\n     &1.0919e+04_rb,8.1889e+03_rb,5.4593e+03_rb,2.7295e+03_rb,7.6784e+01_rb/)\n      kbo(:, 4,57,16) = (/ &\n     &1.4709e+04_rb,1.1031e+04_rb,7.3542e+03_rb,3.6771e+03_rb,1.0741e+02_rb/)\n      kbo(:, 5,57,16) = (/ &\n     &1.9344e+04_rb,1.4508e+04_rb,9.6719e+03_rb,4.8359e+03_rb,1.4582e+02_rb/)\n      kbo(:, 1,58,16) = (/ &\n     &2.6461e+03_rb,2.2784e+03_rb,1.7829e+03_rb,1.0638e+03_rb,3.0084e+01_rb/)\n      kbo(:, 2,58,16) = (/ &\n     &3.7547e+03_rb,3.2329e+03_rb,2.5298e+03_rb,1.5309e+03_rb,4.6706e+01_rb/)\n      kbo(:, 3,58,16) = (/ &\n     &5.2182e+03_rb,4.4930e+03_rb,3.5159e+03_rb,2.1276e+03_rb,6.8855e+01_rb/)\n      kbo(:, 4,58,16) = (/ &\n     &7.0852e+03_rb,6.1006e+03_rb,4.7738e+03_rb,2.8889e+03_rb,9.7411e+01_rb/)\n      kbo(:, 5,58,16) = (/ &\n     &9.3867e+03_rb,8.0822e+03_rb,6.3244e+03_rb,3.8273e+03_rb,1.3335e+02_rb/)\n      kbo(:, 1,59,16) = (/ &\n     &2.6519e+03_rb,2.2918e+03_rb,1.8023e+03_rb,1.0985e+03_rb,2.8399e+01_rb/)\n      kbo(:, 2,59,16) = (/ &\n     &3.7709e+03_rb,3.2589e+03_rb,2.5629e+03_rb,1.5620e+03_rb,4.4429e+01_rb/)\n      kbo(:, 3,59,16) = (/ &\n     &5.2534e+03_rb,4.5401e+03_rb,3.5704e+03_rb,2.1761e+03_rb,6.5844e+01_rb/)\n      kbo(:, 4,59,16) = (/ &\n     &7.1555e+03_rb,6.1839e+03_rb,4.8632e+03_rb,2.9640e+03_rb,9.3608e+01_rb/)\n      kbo(:, 5,59,16) = (/ &\n     &9.5069e+03_rb,8.2160e+03_rb,6.4613e+03_rb,3.9381e+03_rb,1.2854e+02_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n      kao_mn2o( 1, :, 1) = (/ &\n     & 1.28178e-05_rb, 1.55472e-05_rb, 1.88578e-05_rb, 2.28735e-05_rb, 2.77442e-05_rb, &\n     & 3.36520e-05_rb, 4.08179e-05_rb, 4.95098e-05_rb, 6.00525e-05_rb, 7.28401e-05_rb, &\n     & 8.83508e-05_rb, 1.07164e-04_rb, 1.29984e-04_rb, 1.57663e-04_rb, 1.91236e-04_rb, &\n     & 2.31958e-04_rb, 2.81352e-04_rb, 3.41263e-04_rb, 4.13932e-04_rb/)\n      kao_mn2o( 2, :, 1) = (/ &\n     & 1.00725e-01_rb, 1.04470e-01_rb, 1.08355e-01_rb, 1.12384e-01_rb, 1.16563e-01_rb, &\n     & 1.20898e-01_rb, 1.25394e-01_rb, 1.30057e-01_rb, 1.34893e-01_rb, 1.39909e-01_rb, &\n     & 1.45112e-01_rb, 1.50508e-01_rb, 1.56104e-01_rb, 1.61909e-01_rb, 1.67930e-01_rb, &\n     & 1.74175e-01_rb, 1.80652e-01_rb, 1.87369e-01_rb, 1.94337e-01_rb/)\n      kao_mn2o( 3, :, 1) = (/ &\n     & 1.94143e-01_rb, 1.97380e-01_rb, 2.00670e-01_rb, 2.04016e-01_rb, 2.07417e-01_rb, &\n     & 2.10875e-01_rb, 2.14390e-01_rb, 2.17964e-01_rb, 2.21598e-01_rb, 2.25292e-01_rb, &\n     & 2.29048e-01_rb, 2.32867e-01_rb, 2.36749e-01_rb, 2.40696e-01_rb, 2.44708e-01_rb, &\n     & 2.48788e-01_rb, 2.52936e-01_rb, 2.57152e-01_rb, 2.61439e-01_rb/)\n      kao_mn2o( 4, :, 1) = (/ &\n     & 2.98127e-01_rb, 3.00016e-01_rb, 3.01916e-01_rb, 3.03829e-01_rb, 3.05754e-01_rb, &\n     & 3.07691e-01_rb, 3.09640e-01_rb, 3.11601e-01_rb, 3.13575e-01_rb, 3.15562e-01_rb, &\n     & 3.17561e-01_rb, 3.19572e-01_rb, 3.21597e-01_rb, 3.23634e-01_rb, 3.25684e-01_rb, &\n     & 3.27748e-01_rb, 3.29824e-01_rb, 3.31913e-01_rb, 3.34016e-01_rb/)\n      kao_mn2o( 5, :, 1) = (/ &\n     & 4.45029e-01_rb, 4.45243e-01_rb, 4.45458e-01_rb, 4.45673e-01_rb, 4.45889e-01_rb, &\n     & 4.46104e-01_rb, 4.46319e-01_rb, 4.46535e-01_rb, 4.46750e-01_rb, 4.46966e-01_rb, &\n     & 4.47182e-01_rb, 4.47398e-01_rb, 4.47614e-01_rb, 4.47830e-01_rb, 4.48046e-01_rb, &\n     & 4.48262e-01_rb, 4.48479e-01_rb, 4.48695e-01_rb, 4.48912e-01_rb/)\n      kao_mn2o( 6, :, 1) = (/ &\n     & 7.15677e-01_rb, 7.14564e-01_rb, 7.13452e-01_rb, 7.12342e-01_rb, 7.11234e-01_rb, &\n     & 7.10127e-01_rb, 7.09022e-01_rb, 7.07919e-01_rb, 7.06818e-01_rb, 7.05718e-01_rb, &\n     & 7.04620e-01_rb, 7.03524e-01_rb, 7.02429e-01_rb, 7.01336e-01_rb, 7.00245e-01_rb, &\n     & 6.99156e-01_rb, 6.98068e-01_rb, 6.96982e-01_rb, 6.95898e-01_rb/)\n      kao_mn2o( 7, :, 1) = (/ &\n     & 9.89605e-01_rb, 9.85128e-01_rb, 9.80671e-01_rb, 9.76234e-01_rb, 9.71817e-01_rb, &\n     & 9.67421e-01_rb, 9.63044e-01_rb, 9.58687e-01_rb, 9.54350e-01_rb, 9.50032e-01_rb, &\n     & 9.45734e-01_rb, 9.41455e-01_rb, 9.37196e-01_rb, 9.32956e-01_rb, 9.28735e-01_rb, &\n     & 9.24533e-01_rb, 9.20350e-01_rb, 9.16187e-01_rb, 9.12042e-01_rb/)\n      kao_mn2o( 8, :, 1) = (/ &\n     & 1.12229e+00_rb, 1.11502e+00_rb, 1.10779e+00_rb, 1.10061e+00_rb, 1.09348e+00_rb, &\n     & 1.08639e+00_rb, 1.07935e+00_rb, 1.07235e+00_rb, 1.06540e+00_rb, 1.05850e+00_rb, &\n     & 1.05164e+00_rb, 1.04482e+00_rb, 1.03805e+00_rb, 1.03132e+00_rb, 1.02464e+00_rb, &\n     & 1.01799e+00_rb, 1.01140e+00_rb, 1.00484e+00_rb, 9.98328e-01_rb/)\n      kao_mn2o( 9, :, 1) = (/ &\n     & 7.20959e-01_rb, 7.22839e-01_rb, 7.24723e-01_rb, 7.26612e-01_rb, 7.28506e-01_rb, &\n     & 7.30405e-01_rb, 7.32309e-01_rb, 7.34218e-01_rb, 7.36132e-01_rb, 7.38051e-01_rb, &\n     & 7.39975e-01_rb, 7.41904e-01_rb, 7.43838e-01_rb, 7.45777e-01_rb, 7.47721e-01_rb, &\n     & 7.49670e-01_rb, 7.51624e-01_rb, 7.53584e-01_rb, 7.55548e-01_rb/)\n      kao_mn2o( 1, :, 2) = (/ &\n     & 1.62152e-03_rb, 1.81627e-03_rb, 2.03443e-03_rb, 2.27878e-03_rb, 2.55248e-03_rb, &\n     & 2.85906e-03_rb, 3.20245e-03_rb, 3.58710e-03_rb, 4.01794e-03_rb, 4.50053e-03_rb, &\n     & 5.04109e-03_rb, 5.64657e-03_rb, 6.32477e-03_rb, 7.08444e-03_rb, 7.93534e-03_rb, &\n     & 8.88845e-03_rb, 9.95603e-03_rb, 1.11518e-02_rb, 1.24913e-02_rb/)\n      kao_mn2o( 2, :, 2) = (/ &\n     & 3.73716e-01_rb, 3.72491e-01_rb, 3.71271e-01_rb, 3.70054e-01_rb, 3.68841e-01_rb, &\n     & 3.67633e-01_rb, 3.66428e-01_rb, 3.65227e-01_rb, 3.64031e-01_rb, 3.62838e-01_rb, &\n     & 3.61649e-01_rb, 3.60464e-01_rb, 3.59283e-01_rb, 3.58106e-01_rb, 3.56932e-01_rb, &\n     & 3.55763e-01_rb, 3.54597e-01_rb, 3.53435e-01_rb, 3.52277e-01_rb/)\n      kao_mn2o( 3, :, 2) = (/ &\n     & 5.46240e-01_rb, 5.42972e-01_rb, 5.39724e-01_rb, 5.36495e-01_rb, 5.33285e-01_rb, &\n     & 5.30095e-01_rb, 5.26923e-01_rb, 5.23771e-01_rb, 5.20637e-01_rb, 5.17523e-01_rb, &\n     & 5.14426e-01_rb, 5.11349e-01_rb, 5.08290e-01_rb, 5.05249e-01_rb, 5.02226e-01_rb, &\n     & 4.99221e-01_rb, 4.96235e-01_rb, 4.93266e-01_rb, 4.90315e-01_rb/)\n      kao_mn2o( 4, :, 2) = (/ &\n     & 8.35399e-01_rb, 8.36766e-01_rb, 8.38135e-01_rb, 8.39507e-01_rb, 8.40880e-01_rb, &\n     & 8.42256e-01_rb, 8.43635e-01_rb, 8.45015e-01_rb, 8.46398e-01_rb, 8.47783e-01_rb, &\n     & 8.49170e-01_rb, 8.50559e-01_rb, 8.51951e-01_rb, 8.53345e-01_rb, 8.54742e-01_rb, &\n     & 8.56140e-01_rb, 8.57541e-01_rb, 8.58944e-01_rb, 8.60350e-01_rb/)\n      kao_mn2o( 5, :, 2) = (/ &\n     & 1.04433e+00_rb, 1.04864e+00_rb, 1.05297e+00_rb, 1.05731e+00_rb, 1.06168e+00_rb, &\n     & 1.06606e+00_rb, 1.07046e+00_rb, 1.07488e+00_rb, 1.07932e+00_rb, 1.08377e+00_rb, &\n     & 1.08824e+00_rb, 1.09274e+00_rb, 1.09725e+00_rb, 1.10178e+00_rb, 1.10632e+00_rb, &\n     & 1.11089e+00_rb, 1.11547e+00_rb, 1.12008e+00_rb, 1.12470e+00_rb/)\n      kao_mn2o( 6, :, 2) = (/ &\n     & 1.22341e+00_rb, 1.22885e+00_rb, 1.23431e+00_rb, 1.23980e+00_rb, 1.24531e+00_rb, &\n     & 1.25084e+00_rb, 1.25640e+00_rb, 1.26199e+00_rb, 1.26760e+00_rb, 1.27323e+00_rb, &\n     & 1.27889e+00_rb, 1.28458e+00_rb, 1.29029e+00_rb, 1.29602e+00_rb, 1.30178e+00_rb, &\n     & 1.30757e+00_rb, 1.31338e+00_rb, 1.31922e+00_rb, 1.32508e+00_rb/)\n      kao_mn2o( 7, :, 2) = (/ &\n     & 1.67595e+00_rb, 1.68296e+00_rb, 1.69000e+00_rb, 1.69707e+00_rb, 1.70417e+00_rb, &\n     & 1.71130e+00_rb, 1.71846e+00_rb, 1.72565e+00_rb, 1.73287e+00_rb, 1.74012e+00_rb, &\n     & 1.74740e+00_rb, 1.75471e+00_rb, 1.76206e+00_rb, 1.76943e+00_rb, 1.77683e+00_rb, &\n     & 1.78426e+00_rb, 1.79173e+00_rb, 1.79922e+00_rb, 1.80675e+00_rb/)\n      kao_mn2o( 8, :, 2) = (/ &\n     & 2.76890e+00_rb, 2.76981e+00_rb, 2.77072e+00_rb, 2.77163e+00_rb, 2.77254e+00_rb, &\n     & 2.77345e+00_rb, 2.77436e+00_rb, 2.77527e+00_rb, 2.77618e+00_rb, 2.77709e+00_rb, &\n     & 2.77800e+00_rb, 2.77891e+00_rb, 2.77982e+00_rb, 2.78074e+00_rb, 2.78165e+00_rb, &\n     & 2.78256e+00_rb, 2.78348e+00_rb, 2.78439e+00_rb, 2.78530e+00_rb/)\n      kao_mn2o( 9, :, 2) = (/ &\n     & 8.00944e-01_rb, 7.95531e-01_rb, 7.90155e-01_rb, 7.84815e-01_rb, 7.79511e-01_rb, &\n     & 7.74243e-01_rb, 7.69011e-01_rb, 7.63813e-01_rb, 7.58652e-01_rb, 7.53525e-01_rb, &\n     & 7.48432e-01_rb, 7.43374e-01_rb, 7.38350e-01_rb, 7.33360e-01_rb, 7.28404e-01_rb, &\n     & 7.23482e-01_rb, 7.18592e-01_rb, 7.13736e-01_rb, 7.08912e-01_rb/)\n      kao_mn2o( 1, :, 3) = (/ &\n     & 5.26578e-02_rb, 5.59000e-02_rb, 5.93419e-02_rb, 6.29957e-02_rb, 6.68744e-02_rb, &\n     & 7.09920e-02_rb, 7.53631e-02_rb, 8.00034e-02_rb, 8.49294e-02_rb, 9.01586e-02_rb, &\n     & 9.57099e-02_rb, 1.01603e-01_rb, 1.07859e-01_rb, 1.14500e-01_rb, 1.21550e-01_rb, &\n     & 1.29034e-01_rb, 1.36979e-01_rb, 1.45413e-01_rb, 1.54366e-01_rb/)\n      kao_mn2o( 2, :, 3) = (/ &\n     & 8.18393e-01_rb, 8.20623e-01_rb, 8.22860e-01_rb, 8.25103e-01_rb, 8.27352e-01_rb, &\n     & 8.29608e-01_rb, 8.31869e-01_rb, 8.34137e-01_rb, 8.36410e-01_rb, 8.38690e-01_rb, &\n     & 8.40976e-01_rb, 8.43269e-01_rb, 8.45567e-01_rb, 8.47872e-01_rb, 8.50183e-01_rb, &\n     & 8.52501e-01_rb, 8.54825e-01_rb, 8.57155e-01_rb, 8.59491e-01_rb/)\n      kao_mn2o( 3, :, 3) = (/ &\n     & 1.02454e+00_rb, 1.03210e+00_rb, 1.03972e+00_rb, 1.04740e+00_rb, 1.05514e+00_rb, &\n     & 1.06293e+00_rb, 1.07077e+00_rb, 1.07868e+00_rb, 1.08665e+00_rb, 1.09467e+00_rb, &\n     & 1.10275e+00_rb, 1.11089e+00_rb, 1.11910e+00_rb, 1.12736e+00_rb, 1.13568e+00_rb, &\n     & 1.14407e+00_rb, 1.15252e+00_rb, 1.16103e+00_rb, 1.16960e+00_rb/)\n      kao_mn2o( 4, :, 3) = (/ &\n     & 1.11755e+00_rb, 1.12348e+00_rb, 1.12944e+00_rb, 1.13543e+00_rb, 1.14146e+00_rb, &\n     & 1.14752e+00_rb, 1.15360e+00_rb, 1.15972e+00_rb, 1.16588e+00_rb, 1.17206e+00_rb, &\n     & 1.17828e+00_rb, 1.18453e+00_rb, 1.19082e+00_rb, 1.19714e+00_rb, 1.20349e+00_rb, &\n     & 1.20988e+00_rb, 1.21630e+00_rb, 1.22275e+00_rb, 1.22924e+00_rb/)\n      kao_mn2o( 5, :, 3) = (/ &\n     & 1.41993e+00_rb, 1.42353e+00_rb, 1.42713e+00_rb, 1.43074e+00_rb, 1.43436e+00_rb, &\n     & 1.43799e+00_rb, 1.44163e+00_rb, 1.44528e+00_rb, 1.44894e+00_rb, 1.45261e+00_rb, &\n     & 1.45628e+00_rb, 1.45997e+00_rb, 1.46367e+00_rb, 1.46737e+00_rb, 1.47108e+00_rb, &\n     & 1.47481e+00_rb, 1.47854e+00_rb, 1.48228e+00_rb, 1.48603e+00_rb/)\n      kao_mn2o( 6, :, 3) = (/ &\n     & 1.37725e+00_rb, 1.38029e+00_rb, 1.38334e+00_rb, 1.38640e+00_rb, 1.38947e+00_rb, &\n     & 1.39254e+00_rb, 1.39562e+00_rb, 1.39870e+00_rb, 1.40179e+00_rb, 1.40489e+00_rb, &\n     & 1.40800e+00_rb, 1.41111e+00_rb, 1.41423e+00_rb, 1.41736e+00_rb, 1.42049e+00_rb, &\n     & 1.42363e+00_rb, 1.42678e+00_rb, 1.42993e+00_rb, 1.43309e+00_rb/)\n      kao_mn2o( 7, :, 3) = (/ &\n     & 1.34579e+00_rb, 1.34584e+00_rb, 1.34589e+00_rb, 1.34594e+00_rb, 1.34599e+00_rb, &\n     & 1.34603e+00_rb, 1.34608e+00_rb, 1.34613e+00_rb, 1.34618e+00_rb, 1.34623e+00_rb, &\n     & 1.34627e+00_rb, 1.34632e+00_rb, 1.34637e+00_rb, 1.34642e+00_rb, 1.34647e+00_rb, &\n     & 1.34651e+00_rb, 1.34656e+00_rb, 1.34661e+00_rb, 1.34666e+00_rb/)\n      kao_mn2o( 8, :, 3) = (/ &\n     & 9.15268e-01_rb, 9.12779e-01_rb, 9.10298e-01_rb, 9.07823e-01_rb, 9.05355e-01_rb, &\n     & 9.02893e-01_rb, 9.00438e-01_rb, 8.97990e-01_rb, 8.95549e-01_rb, 8.93114e-01_rb, &\n     & 8.90686e-01_rb, 8.88264e-01_rb, 8.85849e-01_rb, 8.83441e-01_rb, 8.81039e-01_rb, &\n     & 8.78644e-01_rb, 8.76255e-01_rb, 8.73873e-01_rb, 8.71497e-01_rb/)\n      kao_mn2o( 9, :, 3) = (/ &\n     & 1.12514e+00_rb, 1.13523e+00_rb, 1.14541e+00_rb, 1.15568e+00_rb, 1.16604e+00_rb, &\n     & 1.17649e+00_rb, 1.18704e+00_rb, 1.19768e+00_rb, 1.20841e+00_rb, 1.21925e+00_rb, &\n     & 1.23018e+00_rb, 1.24121e+00_rb, 1.25233e+00_rb, 1.26356e+00_rb, 1.27489e+00_rb, &\n     & 1.28632e+00_rb, 1.29785e+00_rb, 1.30948e+00_rb, 1.32122e+00_rb/)\n      kao_mn2o( 1, :, 4) = (/ &\n     & 4.65135e-01_rb, 4.69677e-01_rb, 4.74264e-01_rb, 4.78895e-01_rb, 4.83572e-01_rb, &\n     & 4.88294e-01_rb, 4.93063e-01_rb, 4.97878e-01_rb, 5.02740e-01_rb, 5.07649e-01_rb, &\n     & 5.12607e-01_rb, 5.17613e-01_rb, 5.22667e-01_rb, 5.27771e-01_rb, 5.32925e-01_rb, &\n     & 5.38130e-01_rb, 5.43385e-01_rb, 5.48691e-01_rb, 5.54049e-01_rb/)\n      kao_mn2o( 2, :, 4) = (/ &\n     & 9.71592e-01_rb, 9.74472e-01_rb, 9.77360e-01_rb, 9.80257e-01_rb, 9.83163e-01_rb, &\n     & 9.86077e-01_rb, 9.89000e-01_rb, 9.91931e-01_rb, 9.94871e-01_rb, 9.97820e-01_rb, &\n     & 1.00078e+00_rb, 1.00374e+00_rb, 1.00672e+00_rb, 1.00970e+00_rb, 1.01270e+00_rb, &\n     & 1.01570e+00_rb, 1.01871e+00_rb, 1.02173e+00_rb, 1.02476e+00_rb/)\n      kao_mn2o( 3, :, 4) = (/ &\n     & 1.48090e+00_rb, 1.48238e+00_rb, 1.48385e+00_rb, 1.48532e+00_rb, 1.48680e+00_rb, &\n     & 1.48828e+00_rb, 1.48976e+00_rb, 1.49124e+00_rb, 1.49272e+00_rb, 1.49420e+00_rb, &\n     & 1.49569e+00_rb, 1.49717e+00_rb, 1.49866e+00_rb, 1.50015e+00_rb, 1.50164e+00_rb, &\n     & 1.50313e+00_rb, 1.50463e+00_rb, 1.50612e+00_rb, 1.50762e+00_rb/)\n      kao_mn2o( 4, :, 4) = (/ &\n     & 1.50599e+00_rb, 1.50541e+00_rb, 1.50483e+00_rb, 1.50426e+00_rb, 1.50368e+00_rb, &\n     & 1.50310e+00_rb, 1.50252e+00_rb, 1.50195e+00_rb, 1.50137e+00_rb, 1.50079e+00_rb, &\n     & 1.50022e+00_rb, 1.49964e+00_rb, 1.49906e+00_rb, 1.49849e+00_rb, 1.49791e+00_rb, &\n     & 1.49734e+00_rb, 1.49676e+00_rb, 1.49619e+00_rb, 1.49561e+00_rb/)\n      kao_mn2o( 5, :, 4) = (/ &\n     & 1.25396e+00_rb, 1.25230e+00_rb, 1.25065e+00_rb, 1.24900e+00_rb, 1.24735e+00_rb, &\n     & 1.24570e+00_rb, 1.24405e+00_rb, 1.24241e+00_rb, 1.24077e+00_rb, 1.23913e+00_rb, &\n     & 1.23749e+00_rb, 1.23586e+00_rb, 1.23423e+00_rb, 1.23260e+00_rb, 1.23097e+00_rb, &\n     & 1.22934e+00_rb, 1.22772e+00_rb, 1.22610e+00_rb, 1.22448e+00_rb/)\n      kao_mn2o( 6, :, 4) = (/ &\n     & 1.27104e+00_rb, 1.26416e+00_rb, 1.25731e+00_rb, 1.25050e+00_rb, 1.24373e+00_rb, &\n     & 1.23700e+00_rb, 1.23030e+00_rb, 1.22364e+00_rb, 1.21701e+00_rb, 1.21043e+00_rb, &\n     & 1.20387e+00_rb, 1.19735e+00_rb, 1.19087e+00_rb, 1.18442e+00_rb, 1.17801e+00_rb, &\n     & 1.17163e+00_rb, 1.16529e+00_rb, 1.15898e+00_rb, 1.15270e+00_rb/)\n      kao_mn2o( 7, :, 4) = (/ &\n     & 9.57877e-01_rb, 9.49712e-01_rb, 9.41617e-01_rb, 9.33591e-01_rb, 9.25633e-01_rb, &\n     & 9.17743e-01_rb, 9.09920e-01_rb, 9.02164e-01_rb, 8.94473e-01_rb, 8.86849e-01_rb, &\n     & 8.79289e-01_rb, 8.71794e-01_rb, 8.64363e-01_rb, 8.56995e-01_rb, 8.49690e-01_rb, &\n     & 8.42447e-01_rb, 8.35266e-01_rb, 8.28147e-01_rb, 8.21087e-01_rb/)\n      kao_mn2o( 8, :, 4) = (/ &\n     & 4.75787e-01_rb, 4.77208e-01_rb, 4.78633e-01_rb, 4.80063e-01_rb, 4.81496e-01_rb, &\n     & 4.82934e-01_rb, 4.84377e-01_rb, 4.85823e-01_rb, 4.87274e-01_rb, 4.88730e-01_rb, &\n     & 4.90189e-01_rb, 4.91653e-01_rb, 4.93122e-01_rb, 4.94595e-01_rb, 4.96072e-01_rb, &\n     & 4.97553e-01_rb, 4.99039e-01_rb, 5.00530e-01_rb, 5.02025e-01_rb/)\n      kao_mn2o( 9, :, 4) = (/ &\n     & 2.42533e+00_rb, 2.41357e+00_rb, 2.40188e+00_rb, 2.39024e+00_rb, 2.37866e+00_rb, &\n     & 2.36713e+00_rb, 2.35566e+00_rb, 2.34425e+00_rb, 2.33289e+00_rb, 2.32158e+00_rb, &\n     & 2.31033e+00_rb, 2.29914e+00_rb, 2.28800e+00_rb, 2.27691e+00_rb, 2.26588e+00_rb, &\n     & 2.25490e+00_rb, 2.24397e+00_rb, 2.23310e+00_rb, 2.22228e+00_rb/)\n      kao_mn2o( 1, :, 5) = (/ &\n     & 1.53885e+00_rb, 1.53590e+00_rb, 1.53297e+00_rb, 1.53004e+00_rb, 1.52711e+00_rb, &\n     & 1.52419e+00_rb, 1.52128e+00_rb, 1.51837e+00_rb, 1.51547e+00_rb, 1.51257e+00_rb, &\n     & 1.50968e+00_rb, 1.50679e+00_rb, 1.50391e+00_rb, 1.50104e+00_rb, 1.49817e+00_rb, &\n     & 1.49530e+00_rb, 1.49245e+00_rb, 1.48959e+00_rb, 1.48675e+00_rb/)\n      kao_mn2o( 2, :, 5) = (/ &\n     & 1.83368e+00_rb, 1.83530e+00_rb, 1.83692e+00_rb, 1.83854e+00_rb, 1.84016e+00_rb, &\n     & 1.84178e+00_rb, 1.84340e+00_rb, 1.84503e+00_rb, 1.84665e+00_rb, 1.84828e+00_rb, &\n     & 1.84991e+00_rb, 1.85154e+00_rb, 1.85317e+00_rb, 1.85480e+00_rb, 1.85644e+00_rb, &\n     & 1.85807e+00_rb, 1.85971e+00_rb, 1.86135e+00_rb, 1.86299e+00_rb/)\n      kao_mn2o( 3, :, 5) = (/ &\n     & 1.49593e+00_rb, 1.49279e+00_rb, 1.48965e+00_rb, 1.48652e+00_rb, 1.48340e+00_rb, &\n     & 1.48028e+00_rb, 1.47717e+00_rb, 1.47406e+00_rb, 1.47096e+00_rb, 1.46787e+00_rb, &\n     & 1.46479e+00_rb, 1.46171e+00_rb, 1.45863e+00_rb, 1.45557e+00_rb, 1.45251e+00_rb, &\n     & 1.44946e+00_rb, 1.44641e+00_rb, 1.44337e+00_rb, 1.44033e+00_rb/)\n      kao_mn2o( 4, :, 5) = (/ &\n     & 1.40048e+00_rb, 1.39228e+00_rb, 1.38413e+00_rb, 1.37603e+00_rb, 1.36798e+00_rb, &\n     & 1.35997e+00_rb, 1.35201e+00_rb, 1.34410e+00_rb, 1.33623e+00_rb, 1.32841e+00_rb, &\n     & 1.32064e+00_rb, 1.31291e+00_rb, 1.30522e+00_rb, 1.29758e+00_rb, 1.28999e+00_rb, &\n     & 1.28244e+00_rb, 1.27493e+00_rb, 1.26747e+00_rb, 1.26005e+00_rb/)\n      kao_mn2o( 5, :, 5) = (/ &\n     & 1.22253e+00_rb, 1.21202e+00_rb, 1.20160e+00_rb, 1.19126e+00_rb, 1.18102e+00_rb, &\n     & 1.17087e+00_rb, 1.16080e+00_rb, 1.15082e+00_rb, 1.14092e+00_rb, 1.13111e+00_rb, &\n     & 1.12139e+00_rb, 1.11174e+00_rb, 1.10219e+00_rb, 1.09271e+00_rb, 1.08331e+00_rb, &\n     & 1.07400e+00_rb, 1.06476e+00_rb, 1.05561e+00_rb, 1.04653e+00_rb/)\n      kao_mn2o( 6, :, 5) = (/ &\n     & 1.07930e+00_rb, 1.06998e+00_rb, 1.06075e+00_rb, 1.05159e+00_rb, 1.04251e+00_rb, &\n     & 1.03352e+00_rb, 1.02459e+00_rb, 1.01575e+00_rb, 1.00698e+00_rb, 9.98291e-01_rb, &\n     & 9.89674e-01_rb, 9.81131e-01_rb, 9.72663e-01_rb, 9.64267e-01_rb, 9.55944e-01_rb, &\n     & 9.47692e-01_rb, 9.39512e-01_rb, 9.31402e-01_rb, 9.23363e-01_rb/)\n      kao_mn2o( 7, :, 5) = (/ &\n     & 7.87066e-01_rb, 7.82767e-01_rb, 7.78490e-01_rb, 7.74237e-01_rb, 7.70008e-01_rb, &\n     & 7.65801e-01_rb, 7.61617e-01_rb, 7.57457e-01_rb, 7.53319e-01_rb, 7.49203e-01_rb, &\n     & 7.45110e-01_rb, 7.41040e-01_rb, 7.36991e-01_rb, 7.32965e-01_rb, 7.28961e-01_rb, &\n     & 7.24979e-01_rb, 7.21018e-01_rb, 7.17079e-01_rb, 7.13161e-01_rb/)\n      kao_mn2o( 8, :, 5) = (/ &\n     & 3.83362e-01_rb, 3.84405e-01_rb, 3.85452e-01_rb, 3.86501e-01_rb, 3.87552e-01_rb, &\n     & 3.88607e-01_rb, 3.89665e-01_rb, 3.90725e-01_rb, 3.91788e-01_rb, 3.92855e-01_rb, &\n     & 3.93924e-01_rb, 3.94996e-01_rb, 3.96071e-01_rb, 3.97149e-01_rb, 3.98229e-01_rb, &\n     & 3.99313e-01_rb, 4.00400e-01_rb, 4.01489e-01_rb, 4.02582e-01_rb/)\n      kao_mn2o( 9, :, 5) = (/ &\n     & 8.97278e-01_rb, 8.92873e-01_rb, 8.88490e-01_rb, 8.84128e-01_rb, 8.79787e-01_rb, &\n     & 8.75468e-01_rb, 8.71170e-01_rb, 8.66893e-01_rb, 8.62637e-01_rb, 8.58402e-01_rb, &\n     & 8.54187e-01_rb, 8.49994e-01_rb, 8.45821e-01_rb, 8.41668e-01_rb, 8.37536e-01_rb, &\n     & 8.33424e-01_rb, 8.29333e-01_rb, 8.25261e-01_rb, 8.21209e-01_rb/)\n      kao_mn2o( 1, :, 6) = (/ &\n     & 1.83809e+00_rb, 1.84036e+00_rb, 1.84264e+00_rb, 1.84491e+00_rb, 1.84720e+00_rb, &\n     & 1.84948e+00_rb, 1.85177e+00_rb, 1.85406e+00_rb, 1.85635e+00_rb, 1.85864e+00_rb, &\n     & 1.86094e+00_rb, 1.86324e+00_rb, 1.86555e+00_rb, 1.86785e+00_rb, 1.87016e+00_rb, &\n     & 1.87247e+00_rb, 1.87479e+00_rb, 1.87711e+00_rb, 1.87943e+00_rb/)\n      kao_mn2o( 2, :, 6) = (/ &\n     & 1.82624e+00_rb, 1.81564e+00_rb, 1.80510e+00_rb, 1.79463e+00_rb, 1.78421e+00_rb, &\n     & 1.77386e+00_rb, 1.76356e+00_rb, 1.75333e+00_rb, 1.74315e+00_rb, 1.73304e+00_rb, &\n     & 1.72298e+00_rb, 1.71298e+00_rb, 1.70304e+00_rb, 1.69316e+00_rb, 1.68333e+00_rb, &\n     & 1.67356e+00_rb, 1.66385e+00_rb, 1.65419e+00_rb, 1.64459e+00_rb/)\n      kao_mn2o( 3, :, 6) = (/ &\n     & 1.35442e+00_rb, 1.34174e+00_rb, 1.32918e+00_rb, 1.31673e+00_rb, 1.30440e+00_rb, &\n     & 1.29219e+00_rb, 1.28010e+00_rb, 1.26811e+00_rb, 1.25624e+00_rb, 1.24448e+00_rb, &\n     & 1.23283e+00_rb, 1.22129e+00_rb, 1.20985e+00_rb, 1.19853e+00_rb, 1.18731e+00_rb, &\n     & 1.17619e+00_rb, 1.16518e+00_rb, 1.15427e+00_rb, 1.14347e+00_rb/)\n      kao_mn2o( 4, :, 6) = (/ &\n     & 1.10510e+00_rb, 1.09473e+00_rb, 1.08446e+00_rb, 1.07429e+00_rb, 1.06420e+00_rb, &\n     & 1.05422e+00_rb, 1.04433e+00_rb, 1.03453e+00_rb, 1.02482e+00_rb, 1.01520e+00_rb, &\n     & 1.00568e+00_rb, 9.96238e-01_rb, 9.86890e-01_rb, 9.77629e-01_rb, 9.68455e-01_rb, &\n     & 9.59367e-01_rb, 9.50365e-01_rb, 9.41447e-01_rb, 9.32612e-01_rb/)\n      kao_mn2o( 5, :, 6) = (/ &\n     & 1.01083e+00_rb, 1.00221e+00_rb, 9.93656e-01_rb, 9.85178e-01_rb, 9.76772e-01_rb, &\n     & 9.68437e-01_rb, 9.60174e-01_rb, 9.51981e-01_rb, 9.43859e-01_rb, 9.35805e-01_rb, &\n     & 9.27821e-01_rb, 9.19904e-01_rb, 9.12055e-01_rb, 9.04273e-01_rb, 8.96557e-01_rb, &\n     & 8.88907e-01_rb, 8.81323e-01_rb, 8.73803e-01_rb, 8.66347e-01_rb/)\n      kao_mn2o( 6, :, 6) = (/ &\n     & 5.91415e-01_rb, 5.90427e-01_rb, 5.89441e-01_rb, 5.88457e-01_rb, 5.87474e-01_rb, &\n     & 5.86493e-01_rb, 5.85514e-01_rb, 5.84536e-01_rb, 5.83559e-01_rb, 5.82585e-01_rb, &\n     & 5.81612e-01_rb, 5.80640e-01_rb, 5.79671e-01_rb, 5.78703e-01_rb, 5.77736e-01_rb, &\n     & 5.76771e-01_rb, 5.75808e-01_rb, 5.74846e-01_rb, 5.73886e-01_rb/)\n      kao_mn2o( 7, :, 6) = (/ &\n     & 3.68189e-01_rb, 3.70029e-01_rb, 3.71877e-01_rb, 3.73735e-01_rb, 3.75603e-01_rb, &\n     & 3.77479e-01_rb, 3.79365e-01_rb, 3.81260e-01_rb, 3.83165e-01_rb, 3.85079e-01_rb, &\n     & 3.87003e-01_rb, 3.88937e-01_rb, 3.90880e-01_rb, 3.92833e-01_rb, 3.94795e-01_rb, &\n     & 3.96768e-01_rb, 3.98750e-01_rb, 4.00742e-01_rb, 4.02744e-01_rb/)\n      kao_mn2o( 8, :, 6) = (/ &\n     & 2.98721e-01_rb, 2.99932e-01_rb, 3.01149e-01_rb, 3.02370e-01_rb, 3.03597e-01_rb, &\n     & 3.04828e-01_rb, 3.06064e-01_rb, 3.07306e-01_rb, 3.08552e-01_rb, 3.09804e-01_rb, &\n     & 3.11060e-01_rb, 3.12322e-01_rb, 3.13589e-01_rb, 3.14860e-01_rb, 3.16138e-01_rb, &\n     & 3.17420e-01_rb, 3.18707e-01_rb, 3.20000e-01_rb, 3.21298e-01_rb/)\n      kao_mn2o( 9, :, 6) = (/ &\n     & 3.76116e-01_rb, 3.77276e-01_rb, 3.78439e-01_rb, 3.79606e-01_rb, 3.80777e-01_rb, &\n     & 3.81951e-01_rb, 3.83129e-01_rb, 3.84310e-01_rb, 3.85495e-01_rb, 3.86684e-01_rb, &\n     & 3.87876e-01_rb, 3.89072e-01_rb, 3.90272e-01_rb, 3.91475e-01_rb, 3.92682e-01_rb, &\n     & 3.93893e-01_rb, 3.95107e-01_rb, 3.96326e-01_rb, 3.97548e-01_rb/)\n      kao_mn2o( 1, :, 7) = (/ &\n     & 3.22705e+00_rb, 3.21966e+00_rb, 3.21230e+00_rb, 3.20494e+00_rb, 3.19761e+00_rb, &\n     & 3.19029e+00_rb, 3.18299e+00_rb, 3.17571e+00_rb, 3.16844e+00_rb, 3.16119e+00_rb, &\n     & 3.15395e+00_rb, 3.14673e+00_rb, 3.13953e+00_rb, 3.13235e+00_rb, 3.12518e+00_rb, &\n     & 3.11803e+00_rb, 3.11089e+00_rb, 3.10377e+00_rb, 3.09667e+00_rb/)\n      kao_mn2o( 2, :, 7) = (/ &\n     & 1.43811e+00_rb, 1.42367e+00_rb, 1.40938e+00_rb, 1.39522e+00_rb, 1.38121e+00_rb, &\n     & 1.36735e+00_rb, 1.35362e+00_rb, 1.34002e+00_rb, 1.32657e+00_rb, 1.31325e+00_rb, &\n     & 1.30006e+00_rb, 1.28701e+00_rb, 1.27408e+00_rb, 1.26129e+00_rb, 1.24862e+00_rb, &\n     & 1.23609e+00_rb, 1.22367e+00_rb, 1.21139e+00_rb, 1.19922e+00_rb/)\n      kao_mn2o( 3, :, 7) = (/ &\n     & 1.22586e+00_rb, 1.21639e+00_rb, 1.20700e+00_rb, 1.19767e+00_rb, 1.18842e+00_rb, &\n     & 1.17924e+00_rb, 1.17014e+00_rb, 1.16110e+00_rb, 1.15213e+00_rb, 1.14323e+00_rb, &\n     & 1.13440e+00_rb, 1.12564e+00_rb, 1.11695e+00_rb, 1.10832e+00_rb, 1.09976e+00_rb, &\n     & 1.09127e+00_rb, 1.08284e+00_rb, 1.07447e+00_rb, 1.06618e+00_rb/)\n      kao_mn2o( 4, :, 7) = (/ &\n     & 7.94380e-01_rb, 7.92795e-01_rb, 7.91213e-01_rb, 7.89634e-01_rb, 7.88059e-01_rb, &\n     & 7.86486e-01_rb, 7.84917e-01_rb, 7.83351e-01_rb, 7.81787e-01_rb, 7.80227e-01_rb, &\n     & 7.78671e-01_rb, 7.77117e-01_rb, 7.75566e-01_rb, 7.74019e-01_rb, 7.72474e-01_rb, &\n     & 7.70933e-01_rb, 7.69394e-01_rb, 7.67859e-01_rb, 7.66327e-01_rb/)\n      kao_mn2o( 5, :, 7) = (/ &\n     & 4.46935e-01_rb, 4.49760e-01_rb, 4.52602e-01_rb, 4.55462e-01_rb, 4.58340e-01_rb, &\n     & 4.61237e-01_rb, 4.64152e-01_rb, 4.67085e-01_rb, 4.70037e-01_rb, 4.73007e-01_rb, &\n     & 4.75996e-01_rb, 4.79004e-01_rb, 4.82031e-01_rb, 4.85078e-01_rb, 4.88143e-01_rb, &\n     & 4.91228e-01_rb, 4.94332e-01_rb, 4.97456e-01_rb, 5.00600e-01_rb/)\n      kao_mn2o( 6, :, 7) = (/ &\n     & 4.20211e-01_rb, 4.21711e-01_rb, 4.23216e-01_rb, 4.24726e-01_rb, 4.26242e-01_rb, &\n     & 4.27763e-01_rb, 4.29290e-01_rb, 4.30822e-01_rb, 4.32359e-01_rb, 4.33902e-01_rb, &\n     & 4.35450e-01_rb, 4.37004e-01_rb, 4.38564e-01_rb, 4.40129e-01_rb, 4.41700e-01_rb, &\n     & 4.43276e-01_rb, 4.44858e-01_rb, 4.46445e-01_rb, 4.48038e-01_rb/)\n      kao_mn2o( 7, :, 7) = (/ &\n     & 3.42094e-01_rb, 3.43589e-01_rb, 3.45091e-01_rb, 3.46600e-01_rb, 3.48115e-01_rb, &\n     & 3.49637e-01_rb, 3.51165e-01_rb, 3.52700e-01_rb, 3.54242e-01_rb, 3.55791e-01_rb, &\n     & 3.57346e-01_rb, 3.58908e-01_rb, 3.60477e-01_rb, 3.62053e-01_rb, 3.63636e-01_rb, &\n     & 3.65225e-01_rb, 3.66822e-01_rb, 3.68426e-01_rb, 3.70036e-01_rb/)\n      kao_mn2o( 8, :, 7) = (/ &\n     & 2.94919e-01_rb, 2.97460e-01_rb, 3.00022e-01_rb, 3.02606e-01_rb, 3.05212e-01_rb, &\n     & 3.07841e-01_rb, 3.10492e-01_rb, 3.13167e-01_rb, 3.15864e-01_rb, 3.18584e-01_rb, &\n     & 3.21328e-01_rb, 3.24096e-01_rb, 3.26887e-01_rb, 3.29703e-01_rb, 3.32543e-01_rb, &\n     & 3.35407e-01_rb, 3.38296e-01_rb, 3.41210e-01_rb, 3.44148e-01_rb/)\n      kao_mn2o( 9, :, 7) = (/ &\n     & 2.97441e-01_rb, 2.99207e-01_rb, 3.00984e-01_rb, 3.02772e-01_rb, 3.04570e-01_rb, &\n     & 3.06379e-01_rb, 3.08199e-01_rb, 3.10029e-01_rb, 3.11870e-01_rb, 3.13723e-01_rb, &\n     & 3.15586e-01_rb, 3.17460e-01_rb, 3.19345e-01_rb, 3.21242e-01_rb, 3.23150e-01_rb, &\n     & 3.25069e-01_rb, 3.27000e-01_rb, 3.28942e-01_rb, 3.30895e-01_rb/)\n      kao_mn2o( 1, :, 8) = (/ &\n     & 2.14641e+00_rb, 2.12585e+00_rb, 2.10549e+00_rb, 2.08532e+00_rb, 2.06534e+00_rb, &\n     & 2.04556e+00_rb, 2.02596e+00_rb, 2.00656e+00_rb, 1.98733e+00_rb, 1.96830e+00_rb, &\n     & 1.94944e+00_rb, 1.93077e+00_rb, 1.91227e+00_rb, 1.89395e+00_rb, 1.87581e+00_rb, &\n     & 1.85784e+00_rb, 1.84004e+00_rb, 1.82242e+00_rb, 1.80496e+00_rb/)\n      kao_mn2o( 2, :, 8) = (/ &\n     & 8.83687e-01_rb, 8.83170e-01_rb, 8.82654e-01_rb, 8.82137e-01_rb, 8.81621e-01_rb, &\n     & 8.81106e-01_rb, 8.80590e-01_rb, 8.80075e-01_rb, 8.79560e-01_rb, 8.79046e-01_rb, &\n     & 8.78531e-01_rb, 8.78017e-01_rb, 8.77504e-01_rb, 8.76990e-01_rb, 8.76477e-01_rb, &\n     & 8.75965e-01_rb, 8.75452e-01_rb, 8.74940e-01_rb, 8.74428e-01_rb/)\n      kao_mn2o( 3, :, 8) = (/ &\n     & 4.49840e-01_rb, 4.52683e-01_rb, 4.55543e-01_rb, 4.58421e-01_rb, 4.61318e-01_rb, &\n     & 4.64233e-01_rb, 4.67166e-01_rb, 4.70118e-01_rb, 4.73088e-01_rb, 4.76078e-01_rb, &\n     & 4.79086e-01_rb, 4.82113e-01_rb, 4.85159e-01_rb, 4.88225e-01_rb, 4.91310e-01_rb, &\n     & 4.94414e-01_rb, 4.97538e-01_rb, 5.00682e-01_rb, 5.03845e-01_rb/)\n      kao_mn2o( 4, :, 8) = (/ &\n     & 3.92292e-01_rb, 3.93574e-01_rb, 3.94861e-01_rb, 3.96151e-01_rb, 3.97446e-01_rb, &\n     & 3.98746e-01_rb, 4.00049e-01_rb, 4.01357e-01_rb, 4.02669e-01_rb, 4.03985e-01_rb, &\n     & 4.05306e-01_rb, 4.06630e-01_rb, 4.07960e-01_rb, 4.09293e-01_rb, 4.10631e-01_rb, &\n     & 4.11973e-01_rb, 4.13320e-01_rb, 4.14671e-01_rb, 4.16027e-01_rb/)\n      kao_mn2o( 5, :, 8) = (/ &\n     & 3.38920e-01_rb, 3.41151e-01_rb, 3.43397e-01_rb, 3.45658e-01_rb, 3.47934e-01_rb, &\n     & 3.50225e-01_rb, 3.52531e-01_rb, 3.54852e-01_rb, 3.57189e-01_rb, 3.59541e-01_rb, &\n     & 3.61908e-01_rb, 3.64291e-01_rb, 3.66689e-01_rb, 3.69104e-01_rb, 3.71534e-01_rb, &\n     & 3.73980e-01_rb, 3.76443e-01_rb, 3.78921e-01_rb, 3.81416e-01_rb/)\n      kao_mn2o( 6, :, 8) = (/ &\n     & 3.01673e-01_rb, 3.04752e-01_rb, 3.07863e-01_rb, 3.11005e-01_rb, 3.14180e-01_rb, &\n     & 3.17387e-01_rb, 3.20626e-01_rb, 3.23899e-01_rb, 3.27205e-01_rb, 3.30545e-01_rb, &\n     & 3.33919e-01_rb, 3.37328e-01_rb, 3.40771e-01_rb, 3.44249e-01_rb, 3.47763e-01_rb, &\n     & 3.51313e-01_rb, 3.54899e-01_rb, 3.58521e-01_rb, 3.62181e-01_rb/)\n      kao_mn2o( 7, :, 8) = (/ &\n     & 2.99381e-01_rb, 3.02431e-01_rb, 3.05512e-01_rb, 3.08624e-01_rb, 3.11768e-01_rb, &\n     & 3.14945e-01_rb, 3.18153e-01_rb, 3.21394e-01_rb, 3.24668e-01_rb, 3.27976e-01_rb, &\n     & 3.31317e-01_rb, 3.34693e-01_rb, 3.38102e-01_rb, 3.41547e-01_rb, 3.45026e-01_rb, &\n     & 3.48541e-01_rb, 3.52092e-01_rb, 3.55679e-01_rb, 3.59302e-01_rb/)\n      kao_mn2o( 8, :, 8) = (/ &\n     & 2.87559e-01_rb, 2.89153e-01_rb, 2.90756e-01_rb, 2.92367e-01_rb, 2.93987e-01_rb, &\n     & 2.95617e-01_rb, 2.97255e-01_rb, 2.98902e-01_rb, 3.00559e-01_rb, 3.02225e-01_rb, &\n     & 3.03899e-01_rb, 3.05584e-01_rb, 3.07277e-01_rb, 3.08980e-01_rb, 3.10693e-01_rb, &\n     & 3.12414e-01_rb, 3.14146e-01_rb, 3.15887e-01_rb, 3.17638e-01_rb/)\n      kao_mn2o( 9, :, 8) = (/ &\n     & 2.96238e-01_rb, 2.97588e-01_rb, 2.98945e-01_rb, 3.00309e-01_rb, 3.01678e-01_rb, &\n     & 3.03054e-01_rb, 3.04436e-01_rb, 3.05824e-01_rb, 3.07219e-01_rb, 3.08620e-01_rb, &\n     & 3.10027e-01_rb, 3.11441e-01_rb, 3.12861e-01_rb, 3.14288e-01_rb, 3.15721e-01_rb, &\n     & 3.17161e-01_rb, 3.18607e-01_rb, 3.20060e-01_rb, 3.21520e-01_rb/)\n      kao_mn2o( 1, :, 9) = (/ &\n     & 1.56483e+00_rb, 1.55792e+00_rb, 1.55105e+00_rb, 1.54420e+00_rb, 1.53739e+00_rb, &\n     & 1.53060e+00_rb, 1.52384e+00_rb, 1.51712e+00_rb, 1.51042e+00_rb, 1.50376e+00_rb, &\n     & 1.49712e+00_rb, 1.49051e+00_rb, 1.48393e+00_rb, 1.47738e+00_rb, 1.47086e+00_rb, &\n     & 1.46437e+00_rb, 1.45791e+00_rb, 1.45147e+00_rb, 1.44507e+00_rb/)\n      kao_mn2o( 2, :, 9) = (/ &\n     & 4.09526e-01_rb, 4.10301e-01_rb, 4.11078e-01_rb, 4.11857e-01_rb, 4.12637e-01_rb, &\n     & 4.13418e-01_rb, 4.14201e-01_rb, 4.14986e-01_rb, 4.15771e-01_rb, 4.16559e-01_rb, &\n     & 4.17348e-01_rb, 4.18138e-01_rb, 4.18930e-01_rb, 4.19723e-01_rb, 4.20518e-01_rb, &\n     & 4.21315e-01_rb, 4.22112e-01_rb, 4.22912e-01_rb, 4.23713e-01_rb/)\n      kao_mn2o( 3, :, 9) = (/ &\n     & 3.35672e-01_rb, 3.38982e-01_rb, 3.42326e-01_rb, 3.45702e-01_rb, 3.49111e-01_rb, &\n     & 3.52554e-01_rb, 3.56031e-01_rb, 3.59543e-01_rb, 3.63089e-01_rb, 3.66670e-01_rb, &\n     & 3.70286e-01_rb, 3.73938e-01_rb, 3.77626e-01_rb, 3.81350e-01_rb, 3.85111e-01_rb, &\n     & 3.88909e-01_rb, 3.92745e-01_rb, 3.96618e-01_rb, 4.00530e-01_rb/)\n      kao_mn2o( 4, :, 9) = (/ &\n     & 3.19130e-01_rb, 3.23028e-01_rb, 3.26973e-01_rb, 3.30966e-01_rb, 3.35008e-01_rb, &\n     & 3.39100e-01_rb, 3.43241e-01_rb, 3.47433e-01_rb, 3.51676e-01_rb, 3.55971e-01_rb, &\n     & 3.60319e-01_rb, 3.64719e-01_rb, 3.69173e-01_rb, 3.73682e-01_rb, 3.78246e-01_rb, &\n     & 3.82865e-01_rb, 3.87541e-01_rb, 3.92274e-01_rb, 3.97065e-01_rb/)\n      kao_mn2o( 5, :, 9) = (/ &\n     & 3.04385e-01_rb, 3.07155e-01_rb, 3.09949e-01_rb, 3.12770e-01_rb, 3.15616e-01_rb, &\n     & 3.18488e-01_rb, 3.21386e-01_rb, 3.24310e-01_rb, 3.27261e-01_rb, 3.30239e-01_rb, &\n     & 3.33244e-01_rb, 3.36276e-01_rb, 3.39336e-01_rb, 3.42424e-01_rb, 3.45540e-01_rb, &\n     & 3.48684e-01_rb, 3.51857e-01_rb, 3.55059e-01_rb, 3.58289e-01_rb/)\n      kao_mn2o( 6, :, 9) = (/ &\n     & 2.98789e-01_rb, 3.00996e-01_rb, 3.03220e-01_rb, 3.05460e-01_rb, 3.07717e-01_rb, &\n     & 3.09990e-01_rb, 3.12281e-01_rb, 3.14588e-01_rb, 3.16912e-01_rb, 3.19253e-01_rb, &\n     & 3.21612e-01_rb, 3.23988e-01_rb, 3.26382e-01_rb, 3.28793e-01_rb, 3.31222e-01_rb, &\n     & 3.33669e-01_rb, 3.36134e-01_rb, 3.38618e-01_rb, 3.41119e-01_rb/)\n      kao_mn2o( 7, :, 9) = (/ &\n     & 3.08712e-01_rb, 3.10491e-01_rb, 3.12281e-01_rb, 3.14080e-01_rb, 3.15890e-01_rb, &\n     & 3.17710e-01_rb, 3.19541e-01_rb, 3.21382e-01_rb, 3.23234e-01_rb, 3.25097e-01_rb, &\n     & 3.26970e-01_rb, 3.28854e-01_rb, 3.30749e-01_rb, 3.32655e-01_rb, 3.34572e-01_rb, &\n     & 3.36500e-01_rb, 3.38439e-01_rb, 3.40390e-01_rb, 3.42351e-01_rb/)\n      kao_mn2o( 8, :, 9) = (/ &\n     & 3.10571e-01_rb, 3.12262e-01_rb, 3.13961e-01_rb, 3.15670e-01_rb, 3.17388e-01_rb, &\n     & 3.19115e-01_rb, 3.20852e-01_rb, 3.22598e-01_rb, 3.24354e-01_rb, 3.26120e-01_rb, &\n     & 3.27895e-01_rb, 3.29679e-01_rb, 3.31474e-01_rb, 3.33278e-01_rb, 3.35092e-01_rb, &\n     & 3.36915e-01_rb, 3.38749e-01_rb, 3.40593e-01_rb, 3.42447e-01_rb/)\n      kao_mn2o( 9, :, 9) = (/ &\n     & 3.16436e-01_rb, 3.18200e-01_rb, 3.19974e-01_rb, 3.21759e-01_rb, 3.23553e-01_rb, &\n     & 3.25357e-01_rb, 3.27172e-01_rb, 3.28996e-01_rb, 3.30831e-01_rb, 3.32675e-01_rb, &\n     & 3.34530e-01_rb, 3.36396e-01_rb, 3.38272e-01_rb, 3.40158e-01_rb, 3.42055e-01_rb, &\n     & 3.43962e-01_rb, 3.45880e-01_rb, 3.47809e-01_rb, 3.49749e-01_rb/)\n      kao_mn2o( 1, :,10) = (/ &\n     & 7.68616e-01_rb, 7.63263e-01_rb, 7.57948e-01_rb, 7.52669e-01_rb, 7.47428e-01_rb, &\n     & 7.42223e-01_rb, 7.37054e-01_rb, 7.31921e-01_rb, 7.26824e-01_rb, 7.21762e-01_rb, &\n     & 7.16736e-01_rb, 7.11744e-01_rb, 7.06788e-01_rb, 7.01866e-01_rb, 6.96978e-01_rb, &\n     & 6.92124e-01_rb, 6.87304e-01_rb, 6.82517e-01_rb, 6.77764e-01_rb/)\n      kao_mn2o( 2, :,10) = (/ &\n     & 4.97271e-01_rb, 5.10054e-01_rb, 5.23165e-01_rb, 5.36614e-01_rb, 5.50408e-01_rb, &\n     & 5.64556e-01_rb, 5.79069e-01_rb, 5.93954e-01_rb, 6.09222e-01_rb, 6.24883e-01_rb, &\n     & 6.40946e-01_rb, 6.57422e-01_rb, 6.74321e-01_rb, 6.91655e-01_rb, 7.09435e-01_rb, &\n     & 7.27671e-01_rb, 7.46377e-01_rb, 7.65563e-01_rb, 7.85242e-01_rb/)\n      kao_mn2o( 3, :,10) = (/ &\n     & 2.44443e-01_rb, 2.47096e-01_rb, 2.49778e-01_rb, 2.52489e-01_rb, 2.55229e-01_rb, &\n     & 2.57999e-01_rb, 2.60799e-01_rb, 2.63630e-01_rb, 2.66491e-01_rb, 2.69383e-01_rb, &\n     & 2.72307e-01_rb, 2.75262e-01_rb, 2.78250e-01_rb, 2.81269e-01_rb, 2.84322e-01_rb, &\n     & 2.87408e-01_rb, 2.90527e-01_rb, 2.93680e-01_rb, 2.96868e-01_rb/)\n      kao_mn2o( 4, :,10) = (/ &\n     & 2.01964e-01_rb, 2.02869e-01_rb, 2.03777e-01_rb, 2.04690e-01_rb, 2.05606e-01_rb, &\n     & 2.06527e-01_rb, 2.07452e-01_rb, 2.08381e-01_rb, 2.09314e-01_rb, 2.10251e-01_rb, &\n     & 2.11193e-01_rb, 2.12139e-01_rb, 2.13089e-01_rb, 2.14043e-01_rb, 2.15002e-01_rb, &\n     & 2.15964e-01_rb, 2.16932e-01_rb, 2.17903e-01_rb, 2.18879e-01_rb/)\n      kao_mn2o( 5, :,10) = (/ &\n     & 2.56972e-01_rb, 2.56837e-01_rb, 2.56702e-01_rb, 2.56567e-01_rb, 2.56432e-01_rb, &\n     & 2.56297e-01_rb, 2.56162e-01_rb, 2.56027e-01_rb, 2.55893e-01_rb, 2.55758e-01_rb, &\n     & 2.55624e-01_rb, 2.55489e-01_rb, 2.55355e-01_rb, 2.55220e-01_rb, 2.55086e-01_rb, &\n     & 2.54952e-01_rb, 2.54818e-01_rb, 2.54684e-01_rb, 2.54550e-01_rb/)\n      kao_mn2o( 6, :,10) = (/ &\n     & 2.57322e-01_rb, 2.57187e-01_rb, 2.57052e-01_rb, 2.56917e-01_rb, 2.56782e-01_rb, &\n     & 2.56647e-01_rb, 2.56512e-01_rb, 2.56377e-01_rb, 2.56243e-01_rb, 2.56108e-01_rb, &\n     & 2.55974e-01_rb, 2.55839e-01_rb, 2.55705e-01_rb, 2.55570e-01_rb, 2.55436e-01_rb, &\n     & 2.55302e-01_rb, 2.55168e-01_rb, 2.55034e-01_rb, 2.54900e-01_rb/)\n      kao_mn2o( 7, :,10) = (/ &\n     & 2.56551e-01_rb, 2.56421e-01_rb, 2.56291e-01_rb, 2.56161e-01_rb, 2.56030e-01_rb, &\n     & 2.55900e-01_rb, 2.55770e-01_rb, 2.55640e-01_rb, 2.55511e-01_rb, 2.55381e-01_rb, &\n     & 2.55251e-01_rb, 2.55121e-01_rb, 2.54992e-01_rb, 2.54862e-01_rb, 2.54733e-01_rb, &\n     & 2.54603e-01_rb, 2.54474e-01_rb, 2.54345e-01_rb, 2.54215e-01_rb/)\n      kao_mn2o( 8, :,10) = (/ &\n     & 2.73629e-01_rb, 2.73460e-01_rb, 2.73291e-01_rb, 2.73122e-01_rb, 2.72953e-01_rb, &\n     & 2.72784e-01_rb, 2.72615e-01_rb, 2.72447e-01_rb, 2.72279e-01_rb, 2.72110e-01_rb, &\n     & 2.71942e-01_rb, 2.71774e-01_rb, 2.71606e-01_rb, 2.71438e-01_rb, 2.71270e-01_rb, &\n     & 2.71102e-01_rb, 2.70935e-01_rb, 2.70767e-01_rb, 2.70600e-01_rb/)\n      kao_mn2o( 9, :,10) = (/ &\n     & 2.57294e-01_rb, 2.57149e-01_rb, 2.57004e-01_rb, 2.56860e-01_rb, 2.56715e-01_rb, &\n     & 2.56570e-01_rb, 2.56426e-01_rb, 2.56282e-01_rb, 2.56137e-01_rb, 2.55993e-01_rb, &\n     & 2.55849e-01_rb, 2.55705e-01_rb, 2.55561e-01_rb, 2.55417e-01_rb, 2.55273e-01_rb, &\n     & 2.55129e-01_rb, 2.54986e-01_rb, 2.54842e-01_rb, 2.54698e-01_rb/)\n      kao_mn2o( 1, :,11) = (/ &\n     & 6.91062e-01_rb, 6.84151e-01_rb, 6.77309e-01_rb, 6.70535e-01_rb, 6.63829e-01_rb, &\n     & 6.57190e-01_rb, 6.50617e-01_rb, 6.44111e-01_rb, 6.37669e-01_rb, 6.31292e-01_rb, &\n     & 6.24978e-01_rb, 6.18728e-01_rb, 6.12540e-01_rb, 6.06414e-01_rb, 6.00349e-01_rb, &\n     & 5.94345e-01_rb, 5.88401e-01_rb, 5.82517e-01_rb, 5.76691e-01_rb/)\n      kao_mn2o( 2, :,11) = (/ &\n     & 1.98698e-01_rb, 2.01182e-01_rb, 2.03698e-01_rb, 2.06244e-01_rb, 2.08823e-01_rb, &\n     & 2.11433e-01_rb, 2.14077e-01_rb, 2.16753e-01_rb, 2.19463e-01_rb, 2.22207e-01_rb, &\n     & 2.24985e-01_rb, 2.27798e-01_rb, 2.30646e-01_rb, 2.33529e-01_rb, 2.36449e-01_rb, &\n     & 2.39405e-01_rb, 2.42398e-01_rb, 2.45429e-01_rb, 2.48497e-01_rb/)\n      kao_mn2o( 3, :,11) = (/ &\n     & 2.11950e-01_rb, 2.13560e-01_rb, 2.15184e-01_rb, 2.16819e-01_rb, 2.18467e-01_rb, &\n     & 2.20127e-01_rb, 2.21800e-01_rb, 2.23486e-01_rb, 2.25185e-01_rb, 2.26896e-01_rb, &\n     & 2.28621e-01_rb, 2.30358e-01_rb, 2.32109e-01_rb, 2.33873e-01_rb, 2.35651e-01_rb, &\n     & 2.37442e-01_rb, 2.39247e-01_rb, 2.41065e-01_rb, 2.42897e-01_rb/)\n      kao_mn2o( 4, :,11) = (/ &\n     & 3.14210e-01_rb, 3.13143e-01_rb, 3.12080e-01_rb, 3.11021e-01_rb, 3.09965e-01_rb, &\n     & 3.08913e-01_rb, 3.07864e-01_rb, 3.06819e-01_rb, 3.05777e-01_rb, 3.04739e-01_rb, &\n     & 3.03705e-01_rb, 3.02674e-01_rb, 3.01646e-01_rb, 3.00622e-01_rb, 2.99602e-01_rb, &\n     & 2.98584e-01_rb, 2.97571e-01_rb, 2.96561e-01_rb, 2.95554e-01_rb/)\n      kao_mn2o( 5, :,11) = (/ &\n     & 3.13536e-01_rb, 3.12459e-01_rb, 3.11386e-01_rb, 3.10316e-01_rb, 3.09250e-01_rb, &\n     & 3.08188e-01_rb, 3.07129e-01_rb, 3.06074e-01_rb, 3.05022e-01_rb, 3.03974e-01_rb, &\n     & 3.02930e-01_rb, 3.01889e-01_rb, 3.00852e-01_rb, 2.99819e-01_rb, 2.98789e-01_rb, &\n     & 2.97762e-01_rb, 2.96739e-01_rb, 2.95720e-01_rb, 2.94704e-01_rb/)\n      kao_mn2o( 6, :,11) = (/ &\n     & 3.13215e-01_rb, 3.12123e-01_rb, 3.11034e-01_rb, 3.09949e-01_rb, 3.08867e-01_rb, &\n     & 3.07790e-01_rb, 3.06716e-01_rb, 3.05646e-01_rb, 3.04579e-01_rb, 3.03517e-01_rb, &\n     & 3.02458e-01_rb, 3.01403e-01_rb, 3.00351e-01_rb, 2.99303e-01_rb, 2.98259e-01_rb, &\n     & 2.97219e-01_rb, 2.96182e-01_rb, 2.95148e-01_rb, 2.94119e-01_rb/)\n      kao_mn2o( 7, :,11) = (/ &\n     & 3.14236e-01_rb, 3.13123e-01_rb, 3.12014e-01_rb, 3.10908e-01_rb, 3.09806e-01_rb, &\n     & 3.08709e-01_rb, 3.07615e-01_rb, 3.06525e-01_rb, 3.05439e-01_rb, 3.04357e-01_rb, &\n     & 3.03278e-01_rb, 3.02204e-01_rb, 3.01133e-01_rb, 3.00066e-01_rb, 2.99003e-01_rb, &\n     & 2.97944e-01_rb, 2.96888e-01_rb, 2.95836e-01_rb, 2.94788e-01_rb/)\n      kao_mn2o( 8, :,11) = (/ &\n     & 2.97453e-01_rb, 2.96420e-01_rb, 2.95391e-01_rb, 2.94366e-01_rb, 2.93344e-01_rb, &\n     & 2.92325e-01_rb, 2.91311e-01_rb, 2.90299e-01_rb, 2.89291e-01_rb, 2.88287e-01_rb, &\n     & 2.87286e-01_rb, 2.86289e-01_rb, 2.85295e-01_rb, 2.84304e-01_rb, 2.83317e-01_rb, &\n     & 2.82334e-01_rb, 2.81354e-01_rb, 2.80377e-01_rb, 2.79404e-01_rb/)\n      kao_mn2o( 9, :,11) = (/ &\n     & 3.12694e-01_rb, 3.11622e-01_rb, 3.10554e-01_rb, 3.09489e-01_rb, 3.08428e-01_rb, &\n     & 3.07370e-01_rb, 3.06316e-01_rb, 3.05266e-01_rb, 3.04220e-01_rb, 3.03177e-01_rb, &\n     & 3.02137e-01_rb, 3.01101e-01_rb, 3.00069e-01_rb, 2.99040e-01_rb, 2.98015e-01_rb, &\n     & 2.96993e-01_rb, 2.95975e-01_rb, 2.94960e-01_rb, 2.93949e-01_rb/)\n      kao_mn2o( 1, :,12) = (/ &\n     & 5.30796e-01_rb, 5.50444e-01_rb, 5.70818e-01_rb, 5.91947e-01_rb, 6.13857e-01_rb, &\n     & 6.36579e-01_rb, 6.60142e-01_rb, 6.84577e-01_rb, 7.09916e-01_rb, 7.36194e-01_rb, &\n     & 7.63444e-01_rb, 7.91702e-01_rb, 8.21007e-01_rb, 8.51396e-01_rb, 8.82910e-01_rb, &\n     & 9.15591e-01_rb, 9.49481e-01_rb, 9.84626e-01_rb, 1.02107e+00_rb/)\n      kao_mn2o( 2, :,12) = (/ &\n     & 1.38469e-01_rb, 1.40959e-01_rb, 1.43493e-01_rb, 1.46073e-01_rb, 1.48699e-01_rb, &\n     & 1.51373e-01_rb, 1.54094e-01_rb, 1.56865e-01_rb, 1.59685e-01_rb, 1.62556e-01_rb, &\n     & 1.65478e-01_rb, 1.68454e-01_rb, 1.71482e-01_rb, 1.74565e-01_rb, 1.77704e-01_rb, &\n     & 1.80899e-01_rb, 1.84151e-01_rb, 1.87462e-01_rb, 1.90833e-01_rb/)\n      kao_mn2o( 3, :,12) = (/ &\n     & 1.50741e-01_rb, 1.50855e-01_rb, 1.50969e-01_rb, 1.51084e-01_rb, 1.51198e-01_rb, &\n     & 1.51313e-01_rb, 1.51427e-01_rb, 1.51542e-01_rb, 1.51657e-01_rb, 1.51772e-01_rb, &\n     & 1.51887e-01_rb, 1.52002e-01_rb, 1.52117e-01_rb, 1.52233e-01_rb, 1.52348e-01_rb, &\n     & 1.52463e-01_rb, 1.52579e-01_rb, 1.52695e-01_rb, 1.52810e-01_rb/)\n      kao_mn2o( 4, :,12) = (/ &\n     & 1.80444e-01_rb, 1.79944e-01_rb, 1.79445e-01_rb, 1.78948e-01_rb, 1.78452e-01_rb, &\n     & 1.77958e-01_rb, 1.77465e-01_rb, 1.76973e-01_rb, 1.76483e-01_rb, 1.75994e-01_rb, &\n     & 1.75506e-01_rb, 1.75020e-01_rb, 1.74535e-01_rb, 1.74051e-01_rb, 1.73569e-01_rb, &\n     & 1.73088e-01_rb, 1.72609e-01_rb, 1.72131e-01_rb, 1.71654e-01_rb/)\n      kao_mn2o( 5, :,12) = (/ &\n     & 1.80595e-01_rb, 1.80033e-01_rb, 1.79474e-01_rb, 1.78916e-01_rb, 1.78359e-01_rb, &\n     & 1.77805e-01_rb, 1.77252e-01_rb, 1.76701e-01_rb, 1.76152e-01_rb, 1.75604e-01_rb, &\n     & 1.75058e-01_rb, 1.74514e-01_rb, 1.73971e-01_rb, 1.73430e-01_rb, 1.72891e-01_rb, &\n     & 1.72354e-01_rb, 1.71818e-01_rb, 1.71284e-01_rb, 1.70751e-01_rb/)\n      kao_mn2o( 6, :,12) = (/ &\n     & 1.79904e-01_rb, 1.79254e-01_rb, 1.78607e-01_rb, 1.77962e-01_rb, 1.77320e-01_rb, &\n     & 1.76680e-01_rb, 1.76042e-01_rb, 1.75406e-01_rb, 1.74773e-01_rb, 1.74142e-01_rb, &\n     & 1.73513e-01_rb, 1.72887e-01_rb, 1.72262e-01_rb, 1.71640e-01_rb, 1.71021e-01_rb, &\n     & 1.70403e-01_rb, 1.69788e-01_rb, 1.69175e-01_rb, 1.68564e-01_rb/)\n      kao_mn2o( 7, :,12) = (/ &\n     & 1.78712e-01_rb, 1.77868e-01_rb, 1.77027e-01_rb, 1.76190e-01_rb, 1.75357e-01_rb, &\n     & 1.74528e-01_rb, 1.73703e-01_rb, 1.72882e-01_rb, 1.72064e-01_rb, 1.71251e-01_rb, &\n     & 1.70441e-01_rb, 1.69636e-01_rb, 1.68834e-01_rb, 1.68036e-01_rb, 1.67241e-01_rb, &\n     & 1.66451e-01_rb, 1.65664e-01_rb, 1.64881e-01_rb, 1.64101e-01_rb/)\n      kao_mn2o( 8, :,12) = (/ &\n     & 1.72346e-01_rb, 1.70873e-01_rb, 1.69413e-01_rb, 1.67965e-01_rb, 1.66530e-01_rb, &\n     & 1.65107e-01_rb, 1.63696e-01_rb, 1.62297e-01_rb, 1.60910e-01_rb, 1.59535e-01_rb, &\n     & 1.58171e-01_rb, 1.56819e-01_rb, 1.55479e-01_rb, 1.54150e-01_rb, 1.52833e-01_rb, &\n     & 1.51527e-01_rb, 1.50232e-01_rb, 1.48948e-01_rb, 1.47675e-01_rb/)\n      kao_mn2o( 9, :,12) = (/ &\n     & 1.80517e-01_rb, 1.79951e-01_rb, 1.79386e-01_rb, 1.78823e-01_rb, 1.78262e-01_rb, &\n     & 1.77702e-01_rb, 1.77144e-01_rb, 1.76588e-01_rb, 1.76034e-01_rb, 1.75481e-01_rb, &\n     & 1.74931e-01_rb, 1.74382e-01_rb, 1.73834e-01_rb, 1.73289e-01_rb, 1.72745e-01_rb, &\n     & 1.72202e-01_rb, 1.71662e-01_rb, 1.71123e-01_rb, 1.70586e-01_rb/)\n      kao_mn2o( 1, :,13) = (/ &\n     & 2.41966e-01_rb, 2.50534e-01_rb, 2.59406e-01_rb, 2.68591e-01_rb, 2.78102e-01_rb, &\n     & 2.87950e-01_rb, 2.98146e-01_rb, 3.08704e-01_rb, 3.19635e-01_rb, 3.30953e-01_rb, &\n     & 3.42672e-01_rb, 3.54806e-01_rb, 3.67370e-01_rb, 3.80379e-01_rb, 3.93848e-01_rb, &\n     & 4.07794e-01_rb, 4.22234e-01_rb, 4.37186e-01_rb, 4.52667e-01_rb/)\n      kao_mn2o( 2, :,13) = (/ &\n     & 1.54385e-01_rb, 1.54015e-01_rb, 1.53646e-01_rb, 1.53279e-01_rb, 1.52912e-01_rb, &\n     & 1.52545e-01_rb, 1.52180e-01_rb, 1.51816e-01_rb, 1.51452e-01_rb, 1.51089e-01_rb, &\n     & 1.50728e-01_rb, 1.50367e-01_rb, 1.50007e-01_rb, 1.49647e-01_rb, 1.49289e-01_rb, &\n     & 1.48932e-01_rb, 1.48575e-01_rb, 1.48219e-01_rb, 1.47864e-01_rb/)\n      kao_mn2o( 3, :,13) = (/ &\n     & 2.00518e-01_rb, 1.94901e-01_rb, 1.89442e-01_rb, 1.84136e-01_rb, 1.78978e-01_rb, &\n     & 1.73965e-01_rb, 1.69092e-01_rb, 1.64356e-01_rb, 1.59752e-01_rb, 1.55278e-01_rb, &\n     & 1.50928e-01_rb, 1.46701e-01_rb, 1.42592e-01_rb, 1.38598e-01_rb, 1.34715e-01_rb, &\n     & 1.30942e-01_rb, 1.27274e-01_rb, 1.23709e-01_rb, 1.20244e-01_rb/)\n      kao_mn2o( 4, :,13) = (/ &\n     & 2.03974e-01_rb, 1.98258e-01_rb, 1.92703e-01_rb, 1.87302e-01_rb, 1.82054e-01_rb, &\n     & 1.76952e-01_rb, 1.71993e-01_rb, 1.67173e-01_rb, 1.62489e-01_rb, 1.57935e-01_rb, &\n     & 1.53509e-01_rb, 1.49207e-01_rb, 1.45026e-01_rb, 1.40962e-01_rb, 1.37012e-01_rb, &\n     & 1.33172e-01_rb, 1.29440e-01_rb, 1.25813e-01_rb, 1.22287e-01_rb/)\n      kao_mn2o( 5, :,13) = (/ &\n     & 2.09410e-01_rb, 2.03543e-01_rb, 1.97841e-01_rb, 1.92298e-01_rb, 1.86911e-01_rb, &\n     & 1.81674e-01_rb, 1.76585e-01_rb, 1.71637e-01_rb, 1.66829e-01_rb, 1.62155e-01_rb, &\n     & 1.57612e-01_rb, 1.53196e-01_rb, 1.48904e-01_rb, 1.44733e-01_rb, 1.40678e-01_rb, &\n     & 1.36736e-01_rb, 1.32906e-01_rb, 1.29182e-01_rb, 1.25563e-01_rb/)\n      kao_mn2o( 6, :,13) = (/ &\n     & 2.19808e-01_rb, 2.13643e-01_rb, 2.07651e-01_rb, 2.01827e-01_rb, 1.96166e-01_rb, &\n     & 1.90664e-01_rb, 1.85317e-01_rb, 1.80119e-01_rb, 1.75067e-01_rb, 1.70157e-01_rb, &\n     & 1.65385e-01_rb, 1.60746e-01_rb, 1.56238e-01_rb, 1.51856e-01_rb, 1.47596e-01_rb, &\n     & 1.43457e-01_rb, 1.39433e-01_rb, 1.35523e-01_rb, 1.31722e-01_rb/)\n      kao_mn2o( 7, :,13) = (/ &\n     & 2.47074e-01_rb, 2.40127e-01_rb, 2.33375e-01_rb, 2.26813e-01_rb, 2.20436e-01_rb, &\n     & 2.14238e-01_rb, 2.08215e-01_rb, 2.02360e-01_rb, 1.96671e-01_rb, 1.91141e-01_rb, &\n     & 1.85767e-01_rb, 1.80544e-01_rb, 1.75467e-01_rb, 1.70534e-01_rb, 1.65739e-01_rb, &\n     & 1.61079e-01_rb, 1.56550e-01_rb, 1.52148e-01_rb, 1.47870e-01_rb/)\n      kao_mn2o( 8, :,13) = (/ &\n     & 2.55282e-01_rb, 2.48105e-01_rb, 2.41130e-01_rb, 2.34350e-01_rb, 2.27762e-01_rb, &\n     & 2.21358e-01_rb, 2.15135e-01_rb, 2.09086e-01_rb, 2.03208e-01_rb, 1.97495e-01_rb, &\n     & 1.91942e-01_rb, 1.86546e-01_rb, 1.81301e-01_rb, 1.76204e-01_rb, 1.71250e-01_rb, &\n     & 1.66435e-01_rb, 1.61756e-01_rb, 1.57208e-01_rb, 1.52788e-01_rb/)\n      kao_mn2o( 9, :,13) = (/ &\n     & 2.09991e-01_rb, 2.04103e-01_rb, 1.98380e-01_rb, 1.92818e-01_rb, 1.87411e-01_rb, &\n     & 1.82156e-01_rb, 1.77048e-01_rb, 1.72084e-01_rb, 1.67259e-01_rb, 1.62569e-01_rb, &\n     & 1.58010e-01_rb, 1.53580e-01_rb, 1.49273e-01_rb, 1.45087e-01_rb, 1.41019e-01_rb, &\n     & 1.37065e-01_rb, 1.33222e-01_rb, 1.29486e-01_rb, 1.25855e-01_rb/)\n      kao_mn2o( 1, :,14) = (/ &\n     & 9.08340e-02_rb, 9.50421e-02_rb, 9.94452e-02_rb, 1.04052e-01_rb, 1.08873e-01_rb, &\n     & 1.13917e-01_rb, 1.19194e-01_rb, 1.24716e-01_rb, 1.30494e-01_rb, 1.36540e-01_rb, &\n     & 1.42865e-01_rb, 1.49484e-01_rb, 1.56409e-01_rb, 1.63655e-01_rb, 1.71237e-01_rb, &\n     & 1.79170e-01_rb, 1.87471e-01_rb, 1.96156e-01_rb, 2.05243e-01_rb/)\n      kao_mn2o( 2, :,14) = (/ &\n     & 3.36945e-02_rb, 3.45144e-02_rb, 3.53542e-02_rb, 3.62144e-02_rb, 3.70956e-02_rb, &\n     & 3.79982e-02_rb, 3.89228e-02_rb, 3.98698e-02_rb, 4.08399e-02_rb, 4.18336e-02_rb, &\n     & 4.28515e-02_rb, 4.38942e-02_rb, 4.49622e-02_rb, 4.60562e-02_rb, 4.71769e-02_rb, &\n     & 4.83248e-02_rb, 4.95006e-02_rb, 5.07051e-02_rb, 5.19388e-02_rb/)\n      kao_mn2o( 3, :,14) = (/ &\n     & 9.11678e-02_rb, 8.85761e-02_rb, 8.60580e-02_rb, 8.36116e-02_rb, 8.12347e-02_rb, &\n     & 7.89253e-02_rb, 7.66817e-02_rb, 7.45017e-02_rb, 7.23838e-02_rb, 7.03261e-02_rb, &\n     & 6.83269e-02_rb, 6.63845e-02_rb, 6.44973e-02_rb, 6.26638e-02_rb, 6.08824e-02_rb, &\n     & 5.91516e-02_rb, 5.74700e-02_rb, 5.58363e-02_rb, 5.42490e-02_rb/)\n      kao_mn2o( 4, :,14) = (/ &\n     & 8.43999e-02_rb, 8.20004e-02_rb, 7.96692e-02_rb, 7.74042e-02_rb, 7.52037e-02_rb, &\n     & 7.30656e-02_rb, 7.09884e-02_rb, 6.89702e-02_rb, 6.70094e-02_rb, 6.51044e-02_rb, &\n     & 6.32535e-02_rb, 6.14552e-02_rb, 5.97081e-02_rb, 5.80106e-02_rb, 5.63614e-02_rb, &\n     & 5.47590e-02_rb, 5.32022e-02_rb, 5.16897e-02_rb, 5.02202e-02_rb/)\n      kao_mn2o( 5, :,14) = (/ &\n     & 7.41279e-02_rb, 7.20196e-02_rb, 6.99712e-02_rb, 6.79811e-02_rb, 6.60476e-02_rb, &\n     & 6.41691e-02_rb, 6.23440e-02_rb, 6.05708e-02_rb, 5.88481e-02_rb, 5.71743e-02_rb, &\n     & 5.55482e-02_rb, 5.39683e-02_rb, 5.24334e-02_rb, 5.09421e-02_rb, 4.94932e-02_rb, &\n     & 4.80855e-02_rb, 4.67179e-02_rb, 4.53891e-02_rb, 4.40982e-02_rb/)\n      kao_mn2o( 6, :,14) = (/ &\n     & 5.66805e-02_rb, 5.50676e-02_rb, 5.35006e-02_rb, 5.19782e-02_rb, 5.04991e-02_rb, &\n     & 4.90621e-02_rb, 4.76659e-02_rb, 4.63096e-02_rb, 4.49918e-02_rb, 4.37115e-02_rb, &\n     & 4.24676e-02_rb, 4.12592e-02_rb, 4.00851e-02_rb, 3.89444e-02_rb, 3.78362e-02_rb, &\n     & 3.67595e-02_rb, 3.57135e-02_rb, 3.46972e-02_rb, 3.37099e-02_rb/)\n      kao_mn2o( 7, :,14) = (/ &\n     & 1.23018e-02_rb, 1.19517e-02_rb, 1.16116e-02_rb, 1.12811e-02_rb, 1.09601e-02_rb, &\n     & 1.06482e-02_rb, 1.03452e-02_rb, 1.00508e-02_rb, 9.76474e-03_rb, 9.48685e-03_rb, &\n     & 9.21687e-03_rb, 8.95458e-03_rb, 8.69974e-03_rb, 8.45216e-03_rb, 8.21163e-03_rb, &\n     & 7.97794e-03_rb, 7.75091e-03_rb, 7.53033e-03_rb, 7.31603e-03_rb/)\n      kao_mn2o( 8, :,14) = (/ &\n     & 3.22403e-07_rb, 3.75986e-07_rb, 4.38475e-07_rb, 5.11349e-07_rb, 5.96335e-07_rb, &\n     & 6.95446e-07_rb, 8.11028e-07_rb, 9.45821e-07_rb, 1.10302e-06_rb, 1.28634e-06_rb, &\n     & 1.50012e-06_rb, 1.74944e-06_rb, 2.04020e-06_rb, 2.37928e-06_rb, 2.77472e-06_rb, &\n     & 3.23587e-06_rb, 3.77367e-06_rb, 4.40085e-06_rb, 5.13227e-06_rb/)\n      kao_mn2o( 9, :,14) = (/ &\n     & 7.33052e-02_rb, 7.12199e-02_rb, 6.91939e-02_rb, 6.72255e-02_rb, 6.53131e-02_rb, &\n     & 6.34551e-02_rb, 6.16500e-02_rb, 5.98963e-02_rb, 5.81924e-02_rb, 5.65370e-02_rb, &\n     & 5.49287e-02_rb, 5.33661e-02_rb, 5.18480e-02_rb, 5.03730e-02_rb, 4.89401e-02_rb, &\n     & 4.75479e-02_rb, 4.61953e-02_rb, 4.48811e-02_rb, 4.36044e-02_rb/)\n      kao_mn2o( 1, :,15) = (/ &\n     & 8.80247e-02_rb, 9.01793e-02_rb, 9.23868e-02_rb, 9.46482e-02_rb, 9.69650e-02_rb, &\n     & 9.93385e-02_rb, 1.01770e-01_rb, 1.04261e-01_rb, 1.06813e-01_rb, 1.09428e-01_rb, &\n     & 1.12107e-01_rb, 1.14851e-01_rb, 1.17662e-01_rb, 1.20542e-01_rb, 1.23493e-01_rb, &\n     & 1.26516e-01_rb, 1.29613e-01_rb, 1.32785e-01_rb, 1.36036e-01_rb/)\n      kao_mn2o( 2, :,15) = (/ &\n     & 3.89107e-07_rb, 4.53768e-07_rb, 5.29173e-07_rb, 6.17109e-07_rb, 7.19658e-07_rb, &\n     & 8.39248e-07_rb, 9.78710e-07_rb, 1.14135e-06_rb, 1.33101e-06_rb, 1.55220e-06_rb, &\n     & 1.81013e-06_rb, 2.11094e-06_rb, 2.46172e-06_rb, 2.87080e-06_rb, 3.34786e-06_rb, &\n     & 3.90420e-06_rb, 4.55298e-06_rb, 5.30958e-06_rb, 6.19190e-06_rb/)\n      kao_mn2o( 3, :,15) = (/ &\n     & 3.86537e-07_rb, 4.50763e-07_rb, 5.25662e-07_rb, 6.13006e-07_rb, 7.14863e-07_rb, &\n     & 8.33644e-07_rb, 9.72162e-07_rb, 1.13370e-06_rb, 1.32207e-06_rb, 1.54175e-06_rb, &\n     & 1.79792e-06_rb, 2.09666e-06_rb, 2.44504e-06_rb, 2.85131e-06_rb, 3.32508e-06_rb, &\n     & 3.87758e-06_rb, 4.52188e-06_rb, 5.27323e-06_rb, 6.14943e-06_rb/)\n      kao_mn2o( 4, :,15) = (/ &\n     & 3.81913e-07_rb, 4.45369e-07_rb, 5.19369e-07_rb, 6.05664e-07_rb, 7.06297e-07_rb, &\n     & 8.23651e-07_rb, 9.60503e-07_rb, 1.12009e-06_rb, 1.30620e-06_rb, 1.52323e-06_rb, &\n     & 1.77632e-06_rb, 2.07147e-06_rb, 2.41565e-06_rb, 2.81701e-06_rb, 3.28507e-06_rb, &\n     & 3.83090e-06_rb, 4.46741e-06_rb, 5.20969e-06_rb, 6.07529e-06_rb/)\n      kao_mn2o( 5, :,15) = (/ &\n     & 3.77265e-07_rb, 4.39951e-07_rb, 5.13053e-07_rb, 5.98303e-07_rb, 6.97717e-07_rb, &\n     & 8.13650e-07_rb, 9.48846e-07_rb, 1.10651e-06_rb, 1.29036e-06_rb, 1.50477e-06_rb, &\n     & 1.75480e-06_rb, 2.04638e-06_rb, 2.38641e-06_rb, 2.78294e-06_rb, 3.24535e-06_rb, &\n     & 3.78460e-06_rb, 4.41345e-06_rb, 5.14679e-06_rb, 6.00198e-06_rb/)\n      kao_mn2o( 6, :,15) = (/ &\n     & 3.77877e-07_rb, 4.40670e-07_rb, 5.13897e-07_rb, 5.99292e-07_rb, 6.98878e-07_rb, &\n     & 8.15012e-07_rb, 9.50444e-07_rb, 1.10838e-06_rb, 1.29256e-06_rb, 1.50735e-06_rb, &\n     & 1.75783e-06_rb, 2.04993e-06_rb, 2.39057e-06_rb, 2.78782e-06_rb, 3.25107e-06_rb, &\n     & 3.79131e-06_rb, 4.42132e-06_rb, 5.15602e-06_rb, 6.01280e-06_rb/)\n      kao_mn2o( 7, :,15) = (/ &\n     & 3.80495e-07_rb, 4.43726e-07_rb, 5.17465e-07_rb, 6.03458e-07_rb, 7.03741e-07_rb, &\n     & 8.20689e-07_rb, 9.57072e-07_rb, 1.11612e-06_rb, 1.30160e-06_rb, 1.51790e-06_rb, &\n     & 1.77014e-06_rb, 2.06430e-06_rb, 2.40735e-06_rb, 2.80741e-06_rb, 3.27394e-06_rb, &\n     & 3.81801e-06_rb, 4.45249e-06_rb, 5.19241e-06_rb, 6.05528e-06_rb/)\n      kao_mn2o( 8, :,15) = (/ &\n     & 3.87881e-07_rb, 4.52329e-07_rb, 5.27486e-07_rb, 6.15129e-07_rb, 7.17335e-07_rb, &\n     & 8.36523e-07_rb, 9.75515e-07_rb, 1.13760e-06_rb, 1.32662e-06_rb, 1.54704e-06_rb, &\n     & 1.80409e-06_rb, 2.10384e-06_rb, 2.45340e-06_rb, 2.86105e-06_rb, 3.33642e-06_rb, &\n     & 3.89078e-06_rb, 4.53725e-06_rb, 5.29112e-06_rb, 6.17026e-06_rb/)\n      kao_mn2o( 9, :,15) = (/ &\n     & 3.77265e-07_rb, 4.39951e-07_rb, 5.13053e-07_rb, 5.98303e-07_rb, 6.97717e-07_rb, &\n     & 8.13650e-07_rb, 9.48846e-07_rb, 1.10651e-06_rb, 1.29036e-06_rb, 1.50477e-06_rb, &\n     & 1.75480e-06_rb, 2.04638e-06_rb, 2.38641e-06_rb, 2.78294e-06_rb, 3.24535e-06_rb, &\n     & 3.78460e-06_rb, 4.41345e-06_rb, 5.14679e-06_rb, 6.00198e-06_rb/)\n      kao_mn2o( 1, :,16) = (/ &\n     & 8.84606e-02_rb, 9.05971e-02_rb, 9.27852e-02_rb, 9.50261e-02_rb, 9.73212e-02_rb, &\n     & 9.96717e-02_rb, 1.02079e-01_rb, 1.04544e-01_rb, 1.07069e-01_rb, 1.09655e-01_rb, &\n     & 1.12304e-01_rb, 1.15016e-01_rb, 1.17794e-01_rb, 1.20639e-01_rb, 1.23553e-01_rb, &\n     & 1.26537e-01_rb, 1.29593e-01_rb, 1.32723e-01_rb, 1.35928e-01_rb/)\n      kao_mn2o( 2, :,16) = (/ &\n     & 8.13898e-07_rb, 9.49130e-07_rb, 1.10683e-06_rb, 1.29073e-06_rb, 1.50519e-06_rb, &\n     & 1.75528e-06_rb, 2.04693e-06_rb, 2.38703e-06_rb, 2.78364e-06_rb, 3.24615e-06_rb, &\n     & 3.78551e-06_rb, 4.41449e-06_rb, 5.14796e-06_rb, 6.00331e-06_rb, 7.00078e-06_rb, &\n     & 8.16398e-06_rb, 9.52045e-06_rb, 1.11023e-05_rb, 1.29470e-05_rb/)\n      kao_mn2o( 3, :,16) = (/ &\n     & 8.32666e-07_rb, 9.71021e-07_rb, 1.13237e-06_rb, 1.32052e-06_rb, 1.53994e-06_rb, &\n     & 1.79581e-06_rb, 2.09420e-06_rb, 2.44217e-06_rb, 2.84796e-06_rb, 3.32117e-06_rb, &\n     & 3.87302e-06_rb, 4.51656e-06_rb, 5.26703e-06_rb, 6.14219e-06_rb, 7.16277e-06_rb, &\n     & 8.35294e-06_rb, 9.74086e-06_rb, 1.13594e-05_rb, 1.32468e-05_rb/)\n      kao_mn2o( 4, :,16) = (/ &\n     & 8.70348e-07_rb, 1.01496e-06_rb, 1.18360e-06_rb, 1.38026e-06_rb, 1.60959e-06_rb, &\n     & 1.87703e-06_rb, 2.18890e-06_rb, 2.55259e-06_rb, 2.97671e-06_rb, 3.47130e-06_rb, &\n     & 4.04807e-06_rb, 4.72067e-06_rb, 5.50502e-06_rb, 6.41970e-06_rb, 7.48635e-06_rb, &\n     & 8.73023e-06_rb, 1.01808e-05_rb, 1.18724e-05_rb, 1.38450e-05_rb/)\n      kao_mn2o( 5, :,16) = (/ &\n     & 9.07957e-07_rb, 1.05882e-06_rb, 1.23475e-06_rb, 1.43991e-06_rb, 1.67916e-06_rb, &\n     & 1.95816e-06_rb, 2.28352e-06_rb, 2.66294e-06_rb, 3.10541e-06_rb, 3.62139e-06_rb, &\n     & 4.22310e-06_rb, 4.92480e-06_rb, 5.74308e-06_rb, 6.69733e-06_rb, 7.81013e-06_rb, &\n     & 9.10784e-06_rb, 1.06212e-05_rb, 1.23859e-05_rb, 1.44439e-05_rb/)\n      kao_mn2o( 6, :,16) = (/ &\n     & 8.59072e-04_rb, 9.19773e-04_rb, 9.84764e-04_rb, 1.05435e-03_rb, 1.12885e-03_rb, &\n     & 1.20861e-03_rb, 1.29401e-03_rb, 1.38544e-03_rb, 1.48334e-03_rb, 1.58815e-03_rb, &\n     & 1.70037e-03_rb, 1.82052e-03_rb, 1.94915e-03_rb, 2.08688e-03_rb, 2.23434e-03_rb, &\n     & 2.39222e-03_rb, 2.56125e-03_rb, 2.74223e-03_rb, 2.93599e-03_rb/)\n      kao_mn2o( 7, :,16) = (/ &\n     & 9.17294e-07_rb, 1.06971e-06_rb, 1.24746e-06_rb, 1.45474e-06_rb, 1.69646e-06_rb, &\n     & 1.97835e-06_rb, 2.30708e-06_rb, 2.69043e-06_rb, 3.13748e-06_rb, 3.65880e-06_rb, &\n     & 4.26676e-06_rb, 4.97574e-06_rb, 5.80251e-06_rb, 6.76667e-06_rb, 7.89104e-06_rb, &\n     & 9.20223e-06_rb, 1.07313e-05_rb, 1.25144e-05_rb, 1.45939e-05_rb/)\n      kao_mn2o( 8, :,16) = (/ &\n     & 9.17341e-07_rb, 1.06977e-06_rb, 1.24752e-06_rb, 1.45480e-06_rb, 1.69653e-06_rb, &\n     & 1.97843e-06_rb, 2.30716e-06_rb, 2.69051e-06_rb, 3.13757e-06_rb, 3.65890e-06_rb, &\n     & 4.26686e-06_rb, 4.97584e-06_rb, 5.80261e-06_rb, 6.76677e-06_rb, 7.89113e-06_rb, &\n     & 9.20231e-06_rb, 1.07314e-05_rb, 1.25145e-05_rb, 1.45939e-05_rb/)\n      kao_mn2o( 9, :,16) = (/ &\n     & 9.07957e-07_rb, 1.05882e-06_rb, 1.23475e-06_rb, 1.43991e-06_rb, 1.67916e-06_rb, &\n     & 1.95816e-06_rb, 2.28352e-06_rb, 2.66294e-06_rb, 3.10541e-06_rb, 3.62139e-06_rb, &\n     & 4.22310e-06_rb, 4.92480e-06_rb, 5.74308e-06_rb, 6.69733e-06_rb, 7.81013e-06_rb, &\n     & 9.10784e-06_rb, 1.06212e-05_rb, 1.23859e-05_rb, 1.44439e-05_rb/)\n\n!     The array KBO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level above 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amounts ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 to \n!     that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n      kbo_mn2o( 1, :, 1) = (/ &\n     & 7.72009e-08_rb, 1.15883e-07_rb, 1.73947e-07_rb, 2.61104e-07_rb, 3.91932e-07_rb, &\n     & 5.88311e-07_rb, 8.83088e-07_rb, 1.32556e-06_rb, 1.98975e-06_rb, 2.98672e-06_rb, &\n     & 4.48324e-06_rb, 6.72960e-06_rb, 1.01015e-05_rb, 1.51629e-05_rb, 2.27604e-05_rb, &\n     & 3.41646e-05_rb, 5.12831e-05_rb, 7.69787e-05_rb, 1.15549e-04_rb/)\n      kbo_mn2o( 2, :, 1) = (/ &\n     & 1.29932e-05_rb, 1.78207e-05_rb, 2.44419e-05_rb, 3.35232e-05_rb, 4.59786e-05_rb, &\n     & 6.30617e-05_rb, 8.64920e-05_rb, 1.18628e-04_rb, 1.62703e-04_rb, 2.23155e-04_rb, &\n     & 3.06067e-04_rb, 4.19784e-04_rb, 5.75753e-04_rb, 7.89671e-04_rb, 1.08307e-03_rb, &\n     & 1.48548e-03_rb, 2.03740e-03_rb, 2.79439e-03_rb, 3.83262e-03_rb/)\n      kbo_mn2o( 3, :, 1) = (/ &\n     & 6.44518e-05_rb, 8.10996e-05_rb, 1.02047e-04_rb, 1.28406e-04_rb, 1.61573e-04_rb, &\n     & 2.03307e-04_rb, 2.55821e-04_rb, 3.21899e-04_rb, 4.05045e-04_rb, 5.09667e-04_rb, &\n     & 6.41313e-04_rb, 8.06964e-04_rb, 1.01540e-03_rb, 1.27768e-03_rb, 1.60770e-03_rb, &\n     & 2.02296e-03_rb, 2.54549e-03_rb, 3.20298e-03_rb, 4.03031e-03_rb/)\n      kbo_mn2o( 4, :, 1) = (/ &\n     & 3.23454e-04_rb, 3.82112e-04_rb, 4.51408e-04_rb, 5.33270e-04_rb, 6.29978e-04_rb, &\n     & 7.44223e-04_rb, 8.79187e-04_rb, 1.03863e-03_rb, 1.22698e-03_rb, 1.44949e-03_rb, &\n     & 1.71235e-03_rb, 2.02289e-03_rb, 2.38974e-03_rb, 2.82311e-03_rb, 3.33508e-03_rb, &\n     & 3.93989e-03_rb, 4.65439e-03_rb, 5.49845e-03_rb, 6.49558e-03_rb/)\n      kbo_mn2o( 5, :, 1) = (/ &\n     & 1.45978e-04_rb, 1.75646e-04_rb, 2.11344e-04_rb, 2.54296e-04_rb, 3.05978e-04_rb, &\n     & 3.68163e-04_rb, 4.42986e-04_rb, 5.33017e-04_rb, 6.41344e-04_rb, 7.71687e-04_rb, &\n     & 9.28522e-04_rb, 1.11723e-03_rb, 1.34429e-03_rb, 1.61750e-03_rb, 1.94623e-03_rb, &\n     & 2.34177e-03_rb, 2.81770e-03_rb, 3.39035e-03_rb, 4.07939e-03_rb/)\n      kbo_mn2o( 1, :, 2) = (/ &\n     & 1.94527e-04_rb, 2.38609e-04_rb, 2.92680e-04_rb, 3.59005e-04_rb, 4.40360e-04_rb, &\n     & 5.40150e-04_rb, 6.62554e-04_rb, 8.12697e-04_rb, 9.96864e-04_rb, 1.22276e-03_rb, &\n     & 1.49986e-03_rb, 1.83974e-03_rb, 2.25665e-03_rb, 2.76803e-03_rb, 3.39530e-03_rb, &\n     & 4.16472e-03_rb, 5.10849e-03_rb, 6.26613e-03_rb, 7.68611e-03_rb/)\n      kbo_mn2o( 2, :, 2) = (/ &\n     & 7.49615e-04_rb, 8.82716e-04_rb, 1.03945e-03_rb, 1.22401e-03_rb, 1.44135e-03_rb, &\n     & 1.69727e-03_rb, 1.99863e-03_rb, 2.35351e-03_rb, 2.77139e-03_rb, 3.26347e-03_rb, &\n     & 3.84293e-03_rb, 4.52528e-03_rb, 5.32878e-03_rb, 6.27495e-03_rb, 7.38911e-03_rb, &\n     & 8.70111e-03_rb, 1.02461e-02_rb, 1.20653e-02_rb, 1.42076e-02_rb/)\n      kbo_mn2o( 3, :, 2) = (/ &\n     & 1.39162e-03_rb, 1.59859e-03_rb, 1.83634e-03_rb, 2.10946e-03_rb, 2.42319e-03_rb, &\n     & 2.78358e-03_rb, 3.19758e-03_rb, 3.67314e-03_rb, 4.21944e-03_rb, 4.84698e-03_rb, &\n     & 5.56786e-03_rb, 6.39595e-03_rb, 7.34720e-03_rb, 8.43992e-03_rb, 9.69516e-03_rb, &\n     & 1.11371e-02_rb, 1.27935e-02_rb, 1.46962e-02_rb, 1.68819e-02_rb/)\n      kbo_mn2o( 4, :, 2) = (/ &\n     & 2.42354e-03_rb, 2.73623e-03_rb, 3.08926e-03_rb, 3.48783e-03_rb, 3.93783e-03_rb, &\n     & 4.44589e-03_rb, 5.01950e-03_rb, 5.66712e-03_rb, 6.39829e-03_rb, 7.22379e-03_rb, &\n     & 8.15581e-03_rb, 9.20807e-03_rb, 1.03961e-02_rb, 1.17374e-02_rb, 1.32517e-02_rb, &\n     & 1.49615e-02_rb, 1.68918e-02_rb, 1.90712e-02_rb, 2.15318e-02_rb/)\n      kbo_mn2o( 5, :, 2) = (/ &\n     & 1.39908e-03_rb, 1.59133e-03_rb, 1.81000e-03_rb, 2.05872e-03_rb, 2.34161e-03_rb, &\n     & 2.66338e-03_rb, 3.02937e-03_rb, 3.44564e-03_rb, 3.91912e-03_rb, 4.45766e-03_rb, &\n     & 5.07021e-03_rb, 5.76693e-03_rb, 6.55938e-03_rb, 7.46073e-03_rb, 8.48594e-03_rb, &\n     & 9.65202e-03_rb, 1.09783e-02_rb, 1.24869e-02_rb, 1.42028e-02_rb/)\n      kbo_mn2o( 1, :, 3) = (/ &\n     & 8.74797e-03_rb, 9.66828e-03_rb, 1.06854e-02_rb, 1.18095e-02_rb, 1.30519e-02_rb, &\n     & 1.44250e-02_rb, 1.59426e-02_rb, 1.76198e-02_rb, 1.94735e-02_rb, 2.15221e-02_rb, &\n     & 2.37863e-02_rb, 2.62887e-02_rb, 2.90544e-02_rb, 3.21110e-02_rb, 3.54891e-02_rb, &\n     & 3.92227e-02_rb, 4.33491e-02_rb, 4.79095e-02_rb, 5.29497e-02_rb/)\n      kbo_mn2o( 2, :, 3) = (/ &\n     & 1.43974e-02_rb, 1.56118e-02_rb, 1.69286e-02_rb, 1.83564e-02_rb, 1.99047e-02_rb, &\n     & 2.15836e-02_rb, 2.34041e-02_rb, 2.53781e-02_rb, 2.75187e-02_rb, 2.98397e-02_rb, &\n     & 3.23566e-02_rb, 3.50857e-02_rb, 3.80451e-02_rb, 4.12540e-02_rb, 4.47336e-02_rb, &\n     & 4.85067e-02_rb, 5.25980e-02_rb, 5.70344e-02_rb, 6.18450e-02_rb/)\n      kbo_mn2o( 3, :, 3) = (/ &\n     & 1.83051e-02_rb, 1.96851e-02_rb, 2.11692e-02_rb, 2.27651e-02_rb, 2.44813e-02_rb, &\n     & 2.63270e-02_rb, 2.83117e-02_rb, 3.04461e-02_rb, 3.27414e-02_rb, 3.52097e-02_rb, &\n     & 3.78642e-02_rb, 4.07187e-02_rb, 4.37884e-02_rb, 4.70896e-02_rb, 5.06396e-02_rb, &\n     & 5.44573e-02_rb, 5.85628e-02_rb, 6.29777e-02_rb, 6.77256e-02_rb/)\n      kbo_mn2o( 4, :, 3) = (/ &\n     & 2.81258e-02_rb, 2.97806e-02_rb, 3.15328e-02_rb, 3.33880e-02_rb, 3.53524e-02_rb, &\n     & 3.74324e-02_rb, 3.96348e-02_rb, 4.19667e-02_rb, 4.44358e-02_rb, 4.70502e-02_rb, &\n     & 4.98185e-02_rb, 5.27496e-02_rb, 5.58531e-02_rb, 5.91393e-02_rb, 6.26187e-02_rb, &\n     & 6.63030e-02_rb, 7.02039e-02_rb, 7.43344e-02_rb, 7.87079e-02_rb/)\n      kbo_mn2o( 5, :, 3) = (/ &\n     & 8.82958e-03_rb, 9.53842e-03_rb, 1.03042e-02_rb, 1.11314e-02_rb, 1.20250e-02_rb, &\n     & 1.29904e-02_rb, 1.40333e-02_rb, 1.51599e-02_rb, 1.63769e-02_rb, 1.76917e-02_rb, &\n     & 1.91120e-02_rb, 2.06463e-02_rb, 2.23038e-02_rb, 2.40944e-02_rb, 2.60287e-02_rb, &\n     & 2.81183e-02_rb, 3.03757e-02_rb, 3.28142e-02_rb, 3.54486e-02_rb/)\n      kbo_mn2o( 1, :, 4) = (/ &\n     & 1.18673e-01_rb, 1.22983e-01_rb, 1.27449e-01_rb, 1.32077e-01_rb, 1.36874e-01_rb, &\n     & 1.41845e-01_rb, 1.46996e-01_rb, 1.52334e-01_rb, 1.57866e-01_rb, 1.63599e-01_rb, &\n     & 1.69541e-01_rb, 1.75698e-01_rb, 1.82078e-01_rb, 1.88691e-01_rb, 1.95543e-01_rb, &\n     & 2.02645e-01_rb, 2.10004e-01_rb, 2.17631e-01_rb, 2.25534e-01_rb/)\n      kbo_mn2o( 2, :, 4) = (/ &\n     & 1.32161e-01_rb, 1.36550e-01_rb, 1.41084e-01_rb, 1.45769e-01_rb, 1.50610e-01_rb, &\n     & 1.55611e-01_rb, 1.60779e-01_rb, 1.66118e-01_rb, 1.71634e-01_rb, 1.77334e-01_rb, &\n     & 1.83223e-01_rb, 1.89307e-01_rb, 1.95594e-01_rb, 2.02089e-01_rb, 2.08800e-01_rb, &\n     & 2.15734e-01_rb, 2.22898e-01_rb, 2.30300e-01_rb, 2.37947e-01_rb/)\n      kbo_mn2o( 3, :, 4) = (/ &\n     & 1.44384e-01_rb, 1.48820e-01_rb, 1.53392e-01_rb, 1.58104e-01_rb, 1.62962e-01_rb, &\n     & 1.67968e-01_rb, 1.73128e-01_rb, 1.78447e-01_rb, 1.83929e-01_rb, 1.89580e-01_rb, &\n     & 1.95404e-01_rb, 2.01407e-01_rb, 2.07594e-01_rb, 2.13972e-01_rb, 2.20546e-01_rb, &\n     & 2.27321e-01_rb, 2.34305e-01_rb, 2.41503e-01_rb, 2.48922e-01_rb/)\n      kbo_mn2o( 4, :, 4) = (/ &\n     & 1.58026e-01_rb, 1.62626e-01_rb, 1.67360e-01_rb, 1.72232e-01_rb, 1.77245e-01_rb, &\n     & 1.82405e-01_rb, 1.87714e-01_rb, 1.93179e-01_rb, 1.98802e-01_rb, 2.04589e-01_rb, &\n     & 2.10544e-01_rb, 2.16673e-01_rb, 2.22980e-01_rb, 2.29471e-01_rb, 2.36151e-01_rb, &\n     & 2.43025e-01_rb, 2.50100e-01_rb, 2.57380e-01_rb, 2.64872e-01_rb/)\n      kbo_mn2o( 5, :, 4) = (/ &\n     & 4.04885e-02_rb, 4.16064e-02_rb, 4.27551e-02_rb, 4.39355e-02_rb, 4.51485e-02_rb, &\n     & 4.63950e-02_rb, 4.76759e-02_rb, 4.89921e-02_rb, 5.03448e-02_rb, 5.17347e-02_rb, &\n     & 5.31630e-02_rb, 5.46308e-02_rb, 5.61391e-02_rb, 5.76890e-02_rb, 5.92817e-02_rb, &\n     & 6.09184e-02_rb, 6.26003e-02_rb, 6.43286e-02_rb, 6.61047e-02_rb/)\n      kbo_mn2o( 1, :, 5) = (/ &\n     & 3.97757e-01_rb, 4.01082e-01_rb, 4.04434e-01_rb, 4.07814e-01_rb, 4.11223e-01_rb, &\n     & 4.14659e-01_rb, 4.18125e-01_rb, 4.21620e-01_rb, 4.25144e-01_rb, 4.28697e-01_rb, &\n     & 4.32280e-01_rb, 4.35893e-01_rb, 4.39536e-01_rb, 4.43209e-01_rb, 4.46913e-01_rb, &\n     & 4.50649e-01_rb, 4.54415e-01_rb, 4.58213e-01_rb, 4.62043e-01_rb/)\n      kbo_mn2o( 2, :, 5) = (/ &\n     & 3.99425e-01_rb, 4.02035e-01_rb, 4.04662e-01_rb, 4.07306e-01_rb, 4.09968e-01_rb, &\n     & 4.12647e-01_rb, 4.15343e-01_rb, 4.18057e-01_rb, 4.20789e-01_rb, 4.23539e-01_rb, &\n     & 4.26307e-01_rb, 4.29092e-01_rb, 4.31896e-01_rb, 4.34719e-01_rb, 4.37559e-01_rb, &\n     & 4.40419e-01_rb, 4.43296e-01_rb, 4.46193e-01_rb, 4.49109e-01_rb/)\n      kbo_mn2o( 3, :, 5) = (/ &\n     & 4.00527e-01_rb, 4.02848e-01_rb, 4.05182e-01_rb, 4.07530e-01_rb, 4.09892e-01_rb, &\n     & 4.12267e-01_rb, 4.14656e-01_rb, 4.17058e-01_rb, 4.19475e-01_rb, 4.21906e-01_rb, &\n     & 4.24351e-01_rb, 4.26809e-01_rb, 4.29283e-01_rb, 4.31770e-01_rb, 4.34272e-01_rb, &\n     & 4.36788e-01_rb, 4.39319e-01_rb, 4.41865e-01_rb, 4.44426e-01_rb/)\n      kbo_mn2o( 4, :, 5) = (/ &\n     & 4.11455e-01_rb, 4.13077e-01_rb, 4.14705e-01_rb, 4.16340e-01_rb, 4.17981e-01_rb, &\n     & 4.19629e-01_rb, 4.21283e-01_rb, 4.22944e-01_rb, 4.24611e-01_rb, 4.26285e-01_rb, &\n     & 4.27966e-01_rb, 4.29653e-01_rb, 4.31346e-01_rb, 4.33047e-01_rb, 4.34754e-01_rb, &\n     & 4.36468e-01_rb, 4.38188e-01_rb, 4.39916e-01_rb, 4.41650e-01_rb/)\n      kbo_mn2o( 5, :, 5) = (/ &\n     & 8.65576e-02_rb, 8.83622e-02_rb, 9.02044e-02_rb, 9.20850e-02_rb, 9.40049e-02_rb, &\n     & 9.59647e-02_rb, 9.79655e-02_rb, 1.00008e-01_rb, 1.02093e-01_rb, 1.04221e-01_rb, &\n     & 1.06394e-01_rb, 1.08612e-01_rb, 1.10877e-01_rb, 1.13188e-01_rb, 1.15548e-01_rb, &\n     & 1.17957e-01_rb, 1.20417e-01_rb, 1.22927e-01_rb, 1.25490e-01_rb/)\n      kbo_mn2o( 1, :, 6) = (/ &\n     & 6.98675e-01_rb, 7.00999e-01_rb, 7.03331e-01_rb, 7.05671e-01_rb, 7.08019e-01_rb, &\n     & 7.10375e-01_rb, 7.12738e-01_rb, 7.15110e-01_rb, 7.17489e-01_rb, 7.19876e-01_rb, &\n     & 7.22271e-01_rb, 7.24674e-01_rb, 7.27085e-01_rb, 7.29504e-01_rb, 7.31931e-01_rb, &\n     & 7.34366e-01_rb, 7.36809e-01_rb, 7.39261e-01_rb, 7.41720e-01_rb/)\n      kbo_mn2o( 2, :, 6) = (/ &\n     & 6.98858e-01_rb, 7.01424e-01_rb, 7.03999e-01_rb, 7.06583e-01_rb, 7.09177e-01_rb, &\n     & 7.11780e-01_rb, 7.14393e-01_rb, 7.17016e-01_rb, 7.19648e-01_rb, 7.22289e-01_rb, &\n     & 7.24941e-01_rb, 7.27602e-01_rb, 7.30273e-01_rb, 7.32954e-01_rb, 7.35644e-01_rb, &\n     & 7.38345e-01_rb, 7.41055e-01_rb, 7.43775e-01_rb, 7.46506e-01_rb/)\n      kbo_mn2o( 3, :, 6) = (/ &\n     & 7.08151e-01_rb, 7.10727e-01_rb, 7.13311e-01_rb, 7.15905e-01_rb, 7.18508e-01_rb, &\n     & 7.21121e-01_rb, 7.23743e-01_rb, 7.26375e-01_rb, 7.29017e-01_rb, 7.31668e-01_rb, &\n     & 7.34329e-01_rb, 7.36999e-01_rb, 7.39679e-01_rb, 7.42369e-01_rb, 7.45068e-01_rb, &\n     & 7.47778e-01_rb, 7.50497e-01_rb, 7.53226e-01_rb, 7.55965e-01_rb/)\n      kbo_mn2o( 4, :, 6) = (/ &\n     & 7.22269e-01_rb, 7.24981e-01_rb, 7.27704e-01_rb, 7.30437e-01_rb, 7.33180e-01_rb, &\n     & 7.35933e-01_rb, 7.38697e-01_rb, 7.41471e-01_rb, 7.44256e-01_rb, 7.47051e-01_rb, &\n     & 7.49856e-01_rb, 7.52672e-01_rb, 7.55499e-01_rb, 7.58336e-01_rb, 7.61184e-01_rb, &\n     & 7.64043e-01_rb, 7.66912e-01_rb, 7.69792e-01_rb, 7.72683e-01_rb/)\n      kbo_mn2o( 5, :, 6) = (/ &\n     & 1.75877e-01_rb, 1.78578e-01_rb, 1.81321e-01_rb, 1.84107e-01_rb, 1.86935e-01_rb, &\n     & 1.89806e-01_rb, 1.92722e-01_rb, 1.95682e-01_rb, 1.98688e-01_rb, 2.01740e-01_rb, &\n     & 2.04839e-01_rb, 2.07986e-01_rb, 2.11181e-01_rb, 2.14425e-01_rb, 2.17719e-01_rb, &\n     & 2.21063e-01_rb, 2.24459e-01_rb, 2.27907e-01_rb, 2.31408e-01_rb/)\n      kbo_mn2o( 1, :, 7) = (/ &\n     & 1.82985e+00_rb, 1.83684e+00_rb, 1.84386e+00_rb, 1.85091e+00_rb, 1.85798e+00_rb, &\n     & 1.86508e+00_rb, 1.87221e+00_rb, 1.87937e+00_rb, 1.88655e+00_rb, 1.89376e+00_rb, &\n     & 1.90100e+00_rb, 1.90827e+00_rb, 1.91556e+00_rb, 1.92288e+00_rb, 1.93023e+00_rb, &\n     & 1.93761e+00_rb, 1.94502e+00_rb, 1.95245e+00_rb, 1.95991e+00_rb/)\n      kbo_mn2o( 2, :, 7) = (/ &\n     & 1.83229e+00_rb, 1.83943e+00_rb, 1.84659e+00_rb, 1.85379e+00_rb, 1.86100e+00_rb, &\n     & 1.86825e+00_rb, 1.87553e+00_rb, 1.88283e+00_rb, 1.89016e+00_rb, 1.89753e+00_rb, &\n     & 1.90492e+00_rb, 1.91233e+00_rb, 1.91978e+00_rb, 1.92726e+00_rb, 1.93476e+00_rb, &\n     & 1.94230e+00_rb, 1.94986e+00_rb, 1.95746e+00_rb, 1.96508e+00_rb/)\n      kbo_mn2o( 3, :, 7) = (/ &\n     & 1.84946e+00_rb, 1.85707e+00_rb, 1.86471e+00_rb, 1.87238e+00_rb, 1.88008e+00_rb, &\n     & 1.88781e+00_rb, 1.89558e+00_rb, 1.90338e+00_rb, 1.91120e+00_rb, 1.91907e+00_rb, &\n     & 1.92696e+00_rb, 1.93489e+00_rb, 1.94285e+00_rb, 1.95084e+00_rb, 1.95886e+00_rb, &\n     & 1.96692e+00_rb, 1.97501e+00_rb, 1.98313e+00_rb, 1.99129e+00_rb/)\n      kbo_mn2o( 4, :, 7) = (/ &\n     & 1.88354e+00_rb, 1.89167e+00_rb, 1.89983e+00_rb, 1.90803e+00_rb, 1.91626e+00_rb, &\n     & 1.92453e+00_rb, 1.93283e+00_rb, 1.94117e+00_rb, 1.94955e+00_rb, 1.95796e+00_rb, &\n     & 1.96641e+00_rb, 1.97489e+00_rb, 1.98341e+00_rb, 1.99197e+00_rb, 2.00056e+00_rb, &\n     & 2.00920e+00_rb, 2.01787e+00_rb, 2.02657e+00_rb, 2.03532e+00_rb/)\n      kbo_mn2o( 5, :, 7) = (/ &\n     & 3.35154e-01_rb, 3.43258e-01_rb, 3.51557e-01_rb, 3.60058e-01_rb, 3.68764e-01_rb, &\n     & 3.77680e-01_rb, 3.86812e-01_rb, 3.96164e-01_rb, 4.05743e-01_rb, 4.15553e-01_rb, &\n     & 4.25601e-01_rb, 4.35892e-01_rb, 4.46431e-01_rb, 4.57225e-01_rb, 4.68280e-01_rb, &\n     & 4.79603e-01_rb, 4.91199e-01_rb, 5.03075e-01_rb, 5.15239e-01_rb/)\n      kbo_mn2o( 1, :, 8) = (/ &\n     & 4.46843e+00_rb, 4.49793e+00_rb, 4.52763e+00_rb, 4.55752e+00_rb, 4.58761e+00_rb, &\n     & 4.61790e+00_rb, 4.64839e+00_rb, 4.67908e+00_rb, 4.70997e+00_rb, 4.74106e+00_rb, &\n     & 4.77236e+00_rb, 4.80387e+00_rb, 4.83559e+00_rb, 4.86751e+00_rb, 4.89965e+00_rb, &\n     & 4.93200e+00_rb, 4.96456e+00_rb, 4.99733e+00_rb, 5.03033e+00_rb/)\n      kbo_mn2o( 2, :, 8) = (/ &\n     & 4.44347e+00_rb, 4.47278e+00_rb, 4.50228e+00_rb, 4.53198e+00_rb, 4.56188e+00_rb, &\n     & 4.59197e+00_rb, 4.62227e+00_rb, 4.65276e+00_rb, 4.68345e+00_rb, 4.71435e+00_rb, &\n     & 4.74544e+00_rb, 4.77675e+00_rb, 4.80826e+00_rb, 4.83998e+00_rb, 4.87191e+00_rb, &\n     & 4.90405e+00_rb, 4.93640e+00_rb, 4.96896e+00_rb, 5.00174e+00_rb/)\n      kbo_mn2o( 3, :, 8) = (/ &\n     & 4.43138e+00_rb, 4.46017e+00_rb, 4.48916e+00_rb, 4.51834e+00_rb, 4.54770e+00_rb, &\n     & 4.57725e+00_rb, 4.60700e+00_rb, 4.63694e+00_rb, 4.66708e+00_rb, 4.69741e+00_rb, &\n     & 4.72793e+00_rb, 4.75866e+00_rb, 4.78958e+00_rb, 4.82071e+00_rb, 4.85204e+00_rb, &\n     & 4.88357e+00_rb, 4.91531e+00_rb, 4.94725e+00_rb, 4.97941e+00_rb/)\n      kbo_mn2o( 4, :, 8) = (/ &\n     & 4.47437e+00_rb, 4.50396e+00_rb, 4.53375e+00_rb, 4.56374e+00_rb, 4.59392e+00_rb, &\n     & 4.62431e+00_rb, 4.65490e+00_rb, 4.68569e+00_rb, 4.71668e+00_rb, 4.74788e+00_rb, &\n     & 4.77928e+00_rb, 4.81089e+00_rb, 4.84271e+00_rb, 4.87474e+00_rb, 4.90698e+00_rb, &\n     & 4.93944e+00_rb, 4.97211e+00_rb, 5.00500e+00_rb, 5.03810e+00_rb/)\n      kbo_mn2o( 5, :, 8) = (/ &\n     & 8.82838e-01_rb, 8.92257e-01_rb, 9.01777e-01_rb, 9.11398e-01_rb, 9.21122e-01_rb, &\n     & 9.30950e-01_rb, 9.40883e-01_rb, 9.50921e-01_rb, 9.61067e-01_rb, 9.71321e-01_rb, &\n     & 9.81685e-01_rb, 9.92159e-01_rb, 1.00274e+00_rb, 1.01344e+00_rb, 1.02426e+00_rb, &\n     & 1.03518e+00_rb, 1.04623e+00_rb, 1.05739e+00_rb, 1.06867e+00_rb/)\n      kbo_mn2o( 1, :, 9) = (/ &\n     & 7.92826e+00_rb, 7.83168e+00_rb, 7.73628e+00_rb, 7.64204e+00_rb, 7.54895e+00_rb, &\n     & 7.45699e+00_rb, 7.36616e+00_rb, 7.27643e+00_rb, 7.18779e+00_rb, 7.10023e+00_rb, &\n     & 7.01374e+00_rb, 6.92831e+00_rb, 6.84391e+00_rb, 6.76054e+00_rb, 6.67819e+00_rb, &\n     & 6.59684e+00_rb, 6.51648e+00_rb, 6.43710e+00_rb, 6.35869e+00_rb/)\n      kbo_mn2o( 2, :, 9) = (/ &\n     & 7.89244e+00_rb, 7.79570e+00_rb, 7.70014e+00_rb, 7.60576e+00_rb, 7.51253e+00_rb, &\n     & 7.42045e+00_rb, 7.32949e+00_rb, 7.23965e+00_rb, 7.15091e+00_rb, 7.06325e+00_rb, &\n     & 6.97668e+00_rb, 6.89116e+00_rb, 6.80669e+00_rb, 6.72326e+00_rb, 6.64085e+00_rb, &\n     & 6.55945e+00_rb, 6.47904e+00_rb, 6.39963e+00_rb, 6.32118e+00_rb/)\n      kbo_mn2o( 3, :, 9) = (/ &\n     & 7.79799e+00_rb, 7.70076e+00_rb, 7.60474e+00_rb, 7.50991e+00_rb, 7.41627e+00_rb, &\n     & 7.32379e+00_rb, 7.23247e+00_rb, 7.14229e+00_rb, 7.05323e+00_rb, 6.96528e+00_rb, &\n     & 6.87843e+00_rb, 6.79266e+00_rb, 6.70797e+00_rb, 6.62432e+00_rb, 6.54172e+00_rb, &\n     & 6.46015e+00_rb, 6.37960e+00_rb, 6.30005e+00_rb, 6.22150e+00_rb/)\n      kbo_mn2o( 4, :, 9) = (/ &\n     & 7.53750e+00_rb, 7.43715e+00_rb, 7.33814e+00_rb, 7.24045e+00_rb, 7.14406e+00_rb, &\n     & 7.04895e+00_rb, 6.95510e+00_rb, 6.86251e+00_rb, 6.77115e+00_rb, 6.68101e+00_rb, &\n     & 6.59206e+00_rb, 6.50430e+00_rb, 6.41771e+00_rb, 6.33227e+00_rb, 6.24797e+00_rb, &\n     & 6.16479e+00_rb, 6.08272e+00_rb, 6.00174e+00_rb, 5.92184e+00_rb/)\n      kbo_mn2o( 5, :, 9) = (/ &\n     & 5.06319e+00_rb, 5.08595e+00_rb, 5.10881e+00_rb, 5.13177e+00_rb, 5.15483e+00_rb, &\n     & 5.17800e+00_rb, 5.20127e+00_rb, 5.22464e+00_rb, 5.24813e+00_rb, 5.27171e+00_rb, &\n     & 5.29540e+00_rb, 5.31920e+00_rb, 5.34311e+00_rb, 5.36712e+00_rb, 5.39124e+00_rb, &\n     & 5.41547e+00_rb, 5.43981e+00_rb, 5.46426e+00_rb, 5.48882e+00_rb/)\n      kbo_mn2o( 1, :,10) = (/ &\n     & 1.05265e+00_rb, 1.03986e+00_rb, 1.02723e+00_rb, 1.01475e+00_rb, 1.00243e+00_rb, &\n     & 9.90250e-01_rb, 9.78220e-01_rb, 9.66338e-01_rb, 9.54599e-01_rb, 9.43003e-01_rb, &\n     & 9.31548e-01_rb, 9.20232e-01_rb, 9.09054e-01_rb, 8.98011e-01_rb, 8.87102e-01_rb, &\n     & 8.76326e-01_rb, 8.65681e-01_rb, 8.55165e-01_rb, 8.44777e-01_rb/)\n      kbo_mn2o( 2, :,10) = (/ &\n     & 1.05246e+00_rb, 1.03973e+00_rb, 1.02714e+00_rb, 1.01471e+00_rb, 1.00243e+00_rb, &\n     & 9.90303e-01_rb, 9.78319e-01_rb, 9.66480e-01_rb, 9.54784e-01_rb, 9.43230e-01_rb, &\n     & 9.31815e-01_rb, 9.20539e-01_rb, 9.09399e-01_rb, 8.98394e-01_rb, 8.87522e-01_rb, &\n     & 8.76782e-01_rb, 8.66171e-01_rb, 8.55690e-01_rb, 8.45335e-01_rb/)\n      kbo_mn2o( 3, :,10) = (/ &\n     & 1.05236e+00_rb, 1.03963e+00_rb, 1.02704e+00_rb, 1.01461e+00_rb, 1.00233e+00_rb, &\n     & 9.90203e-01_rb, 9.78219e-01_rb, 9.66380e-01_rb, 9.54684e-01_rb, 9.43130e-01_rb, &\n     & 9.31715e-01_rb, 9.20439e-01_rb, 9.09300e-01_rb, 8.98295e-01_rb, 8.87423e-01_rb, &\n     & 8.76683e-01_rb, 8.66073e-01_rb, 8.55591e-01_rb, 8.45236e-01_rb/)\n      kbo_mn2o( 4, :,10) = (/ &\n     & 9.30836e-01_rb, 9.21099e-01_rb, 9.11464e-01_rb, 9.01930e-01_rb, 8.92495e-01_rb, &\n     & 8.83159e-01_rb, 8.73921e-01_rb, 8.64779e-01_rb, 8.55733e-01_rb, 8.46781e-01_rb, &\n     & 8.37923e-01_rb, 8.29158e-01_rb, 8.20485e-01_rb, 8.11902e-01_rb, 8.03409e-01_rb, &\n     & 7.95005e-01_rb, 7.86689e-01_rb, 7.78460e-01_rb, 7.70316e-01_rb/)\n      kbo_mn2o( 5, :,10) = (/ &\n     & 1.65786e+01_rb, 1.66541e+01_rb, 1.67299e+01_rb, 1.68062e+01_rb, 1.68827e+01_rb, &\n     & 1.69596e+01_rb, 1.70369e+01_rb, 1.71145e+01_rb, 1.71925e+01_rb, 1.72708e+01_rb, &\n     & 1.73495e+01_rb, 1.74285e+01_rb, 1.75079e+01_rb, 1.75877e+01_rb, 1.76678e+01_rb, &\n     & 1.77483e+01_rb, 1.78291e+01_rb, 1.79103e+01_rb, 1.79919e+01_rb/)\n      kbo_mn2o( 1, :,11) = (/ &\n     & 1.74239e-01_rb, 1.77873e-01_rb, 1.81583e-01_rb, 1.85370e-01_rb, 1.89236e-01_rb, &\n     & 1.93182e-01_rb, 1.97211e-01_rb, 2.01324e-01_rb, 2.05523e-01_rb, 2.09809e-01_rb, &\n     & 2.14185e-01_rb, 2.18652e-01_rb, 2.23212e-01_rb, 2.27867e-01_rb, 2.32620e-01_rb, &\n     & 2.37471e-01_rb, 2.42424e-01_rb, 2.47479e-01_rb, 2.52641e-01_rb/)\n      kbo_mn2o( 2, :,11) = (/ &\n     & 1.74114e-01_rb, 1.77756e-01_rb, 1.81475e-01_rb, 1.85271e-01_rb, 1.89147e-01_rb, &\n     & 1.93104e-01_rb, 1.97144e-01_rb, 2.01268e-01_rb, 2.05479e-01_rb, 2.09778e-01_rb, &\n     & 2.14166e-01_rb, 2.18647e-01_rb, 2.23221e-01_rb, 2.27890e-01_rb, 2.32658e-01_rb, &\n     & 2.37525e-01_rb, 2.42494e-01_rb, 2.47567e-01_rb, 2.52746e-01_rb/)\n      kbo_mn2o( 3, :,11) = (/ &\n     & 1.74142e-01_rb, 1.77780e-01_rb, 1.81494e-01_rb, 1.85286e-01_rb, 1.89157e-01_rb, &\n     & 1.93108e-01_rb, 1.97143e-01_rb, 2.01261e-01_rb, 2.05466e-01_rb, 2.09759e-01_rb, &\n     & 2.14141e-01_rb, 2.18615e-01_rb, 2.23182e-01_rb, 2.27845e-01_rb, 2.32605e-01_rb, &\n     & 2.37464e-01_rb, 2.42425e-01_rb, 2.47490e-01_rb, 2.52661e-01_rb/)\n      kbo_mn2o( 4, :,11) = (/ &\n     & 1.74074e-01_rb, 1.77716e-01_rb, 1.81435e-01_rb, 1.85231e-01_rb, 1.89107e-01_rb, &\n     & 1.93064e-01_rb, 1.97104e-01_rb, 2.01229e-01_rb, 2.05439e-01_rb, 2.09738e-01_rb, &\n     & 2.14127e-01_rb, 2.18607e-01_rb, 2.23181e-01_rb, 2.27852e-01_rb, 2.32619e-01_rb, &\n     & 2.37487e-01_rb, 2.42456e-01_rb, 2.47529e-01_rb, 2.52709e-01_rb/)\n      kbo_mn2o( 5, :,11) = (/ &\n     & 2.31905e+01_rb, 2.33011e+01_rb, 2.34123e+01_rb, 2.35240e+01_rb, 2.36362e+01_rb, &\n     & 2.37489e+01_rb, 2.38622e+01_rb, 2.39760e+01_rb, 2.40904e+01_rb, 2.42053e+01_rb, &\n     & 2.43208e+01_rb, 2.44368e+01_rb, 2.45533e+01_rb, 2.46705e+01_rb, 2.47881e+01_rb, &\n     & 2.49064e+01_rb, 2.50252e+01_rb, 2.51446e+01_rb, 2.52645e+01_rb/)\n      kbo_mn2o( 1, :,12) = (/ &\n     & 1.60269e-01_rb, 1.62873e-01_rb, 1.65519e-01_rb, 1.68208e-01_rb, 1.70940e-01_rb, &\n     & 1.73717e-01_rb, 1.76540e-01_rb, 1.79408e-01_rb, 1.82322e-01_rb, 1.85284e-01_rb, &\n     & 1.88295e-01_rb, 1.91354e-01_rb, 1.94462e-01_rb, 1.97622e-01_rb, 2.00832e-01_rb, &\n     & 2.04095e-01_rb, 2.07411e-01_rb, 2.10780e-01_rb, 2.14205e-01_rb/)\n      kbo_mn2o( 2, :,12) = (/ &\n     & 1.60497e-01_rb, 1.63096e-01_rb, 1.65738e-01_rb, 1.68422e-01_rb, 1.71150e-01_rb, &\n     & 1.73922e-01_rb, 1.76738e-01_rb, 1.79601e-01_rb, 1.82510e-01_rb, 1.85466e-01_rb, &\n     & 1.88469e-01_rb, 1.91522e-01_rb, 1.94624e-01_rb, 1.97776e-01_rb, 2.00979e-01_rb, &\n     & 2.04234e-01_rb, 2.07542e-01_rb, 2.10903e-01_rb, 2.14319e-01_rb/)\n      kbo_mn2o( 3, :,12) = (/ &\n     & 1.60407e-01_rb, 1.63006e-01_rb, 1.65648e-01_rb, 1.68332e-01_rb, 1.71060e-01_rb, &\n     & 1.73832e-01_rb, 1.76649e-01_rb, 1.79511e-01_rb, 1.82420e-01_rb, 1.85376e-01_rb, &\n     & 1.88380e-01_rb, 1.91433e-01_rb, 1.94535e-01_rb, 1.97687e-01_rb, 2.00891e-01_rb, &\n     & 2.04146e-01_rb, 2.07454e-01_rb, 2.10816e-01_rb, 2.14232e-01_rb/)\n      kbo_mn2o( 4, :,12) = (/ &\n     & 1.60475e-01_rb, 1.63070e-01_rb, 1.65706e-01_rb, 1.68386e-01_rb, 1.71109e-01_rb, &\n     & 1.73876e-01_rb, 1.76687e-01_rb, 1.79544e-01_rb, 1.82448e-01_rb, 1.85398e-01_rb, &\n     & 1.88396e-01_rb, 1.91442e-01_rb, 1.94538e-01_rb, 1.97684e-01_rb, 2.00881e-01_rb, &\n     & 2.04129e-01_rb, 2.07430e-01_rb, 2.10784e-01_rb, 2.14192e-01_rb/)\n      kbo_mn2o( 5, :,12) = (/ &\n     & 3.25743e+01_rb, 3.27992e+01_rb, 3.30256e+01_rb, 3.32536e+01_rb, 3.34832e+01_rb, &\n     & 3.37143e+01_rb, 3.39471e+01_rb, 3.41815e+01_rb, 3.44174e+01_rb, 3.46550e+01_rb, &\n     & 3.48943e+01_rb, 3.51352e+01_rb, 3.53778e+01_rb, 3.56220e+01_rb, 3.58679e+01_rb, &\n     & 3.61156e+01_rb, 3.63649e+01_rb, 3.66159e+01_rb, 3.68687e+01_rb/)\n      kbo_mn2o( 1, :,13) = (/ &\n     & 2.01846e-01_rb, 2.03110e-01_rb, 2.04381e-01_rb, 2.05660e-01_rb, 2.06947e-01_rb, &\n     & 2.08242e-01_rb, 2.09546e-01_rb, 2.10857e-01_rb, 2.12177e-01_rb, 2.13505e-01_rb, &\n     & 2.14841e-01_rb, 2.16186e-01_rb, 2.17539e-01_rb, 2.18900e-01_rb, 2.20270e-01_rb, &\n     & 2.21649e-01_rb, 2.23036e-01_rb, 2.24432e-01_rb, 2.25837e-01_rb/)\n      kbo_mn2o( 2, :,13) = (/ &\n     & 2.01756e-01_rb, 2.03020e-01_rb, 2.04291e-01_rb, 2.05570e-01_rb, 2.06857e-01_rb, &\n     & 2.08152e-01_rb, 2.09456e-01_rb, 2.10767e-01_rb, 2.12087e-01_rb, 2.13415e-01_rb, &\n     & 2.14751e-01_rb, 2.16096e-01_rb, 2.17449e-01_rb, 2.18810e-01_rb, 2.20181e-01_rb, &\n     & 2.21559e-01_rb, 2.22946e-01_rb, 2.24342e-01_rb, 2.25747e-01_rb/)\n      kbo_mn2o( 3, :,13) = (/ &\n     & 2.01836e-01_rb, 2.03100e-01_rb, 2.04371e-01_rb, 2.05650e-01_rb, 2.06937e-01_rb, &\n     & 2.08232e-01_rb, 2.09536e-01_rb, 2.10847e-01_rb, 2.12167e-01_rb, 2.13495e-01_rb, &\n     & 2.14831e-01_rb, 2.16176e-01_rb, 2.17529e-01_rb, 2.18890e-01_rb, 2.20260e-01_rb, &\n     & 2.21639e-01_rb, 2.23026e-01_rb, 2.24422e-01_rb, 2.25827e-01_rb/)\n      kbo_mn2o( 4, :,13) = (/ &\n     & 2.01845e-01_rb, 2.03103e-01_rb, 2.04370e-01_rb, 2.05644e-01_rb, 2.06926e-01_rb, &\n     & 2.08217e-01_rb, 2.09515e-01_rb, 2.10822e-01_rb, 2.12136e-01_rb, 2.13459e-01_rb, &\n     & 2.14790e-01_rb, 2.16129e-01_rb, 2.17477e-01_rb, 2.18833e-01_rb, 2.20198e-01_rb, &\n     & 2.21571e-01_rb, 2.22952e-01_rb, 2.24343e-01_rb, 2.25741e-01_rb/)\n      kbo_mn2o( 5, :,13) = (/ &\n     & 5.34154e+01_rb, 5.31954e+01_rb, 5.29763e+01_rb, 5.27582e+01_rb, 5.25409e+01_rb, &\n     & 5.23245e+01_rb, 5.21090e+01_rb, 5.18943e+01_rb, 5.16806e+01_rb, 5.14677e+01_rb, &\n     & 5.12558e+01_rb, 5.10446e+01_rb, 5.08344e+01_rb, 5.06250e+01_rb, 5.04165e+01_rb, &\n     & 5.02089e+01_rb, 5.00021e+01_rb, 4.97961e+01_rb, 4.95910e+01_rb/)\n      kbo_mn2o( 1, :,14) = (/ &\n     & 2.87818e-02_rb, 3.17868e-02_rb, 3.51056e-02_rb, 3.87708e-02_rb, 4.28187e-02_rb, &\n     & 4.72893e-02_rb, 5.22266e-02_rb, 5.76794e-02_rb, 6.37015e-02_rb, 7.03523e-02_rb, &\n     & 7.76976e-02_rb, 8.58097e-02_rb, 9.47688e-02_rb, 1.04663e-01_rb, 1.15591e-01_rb, &\n     & 1.27659e-01_rb, 1.40988e-01_rb, 1.55708e-01_rb, 1.71965e-01_rb/)\n      kbo_mn2o( 2, :,14) = (/ &\n     & 2.88500e-02_rb, 3.18494e-02_rb, 3.51606e-02_rb, 3.88161e-02_rb, 4.28517e-02_rb, &\n     & 4.73068e-02_rb, 5.22251e-02_rb, 5.76547e-02_rb, 6.36488e-02_rb, 7.02661e-02_rb, &\n     & 7.75714e-02_rb, 8.56362e-02_rb, 9.45395e-02_rb, 1.04368e-01_rb, 1.15219e-01_rb, &\n     & 1.27198e-01_rb, 1.40422e-01_rb, 1.55021e-01_rb, 1.71138e-01_rb/)\n      kbo_mn2o( 3, :,14) = (/ &\n     & 2.88036e-02_rb, 3.18109e-02_rb, 3.51322e-02_rb, 3.88002e-02_rb, 4.28512e-02_rb, &\n     & 4.73252e-02_rb, 5.22663e-02_rb, 5.77232e-02_rb, 6.37499e-02_rb, 7.04058e-02_rb, &\n     & 7.77567e-02_rb, 8.58751e-02_rb, 9.48410e-02_rb, 1.04743e-01_rb, 1.15679e-01_rb, &\n     & 1.27757e-01_rb, 1.41095e-01_rb, 1.55827e-01_rb, 1.72096e-01_rb/)\n      kbo_mn2o( 4, :,14) = (/ &\n     & 2.87750e-02_rb, 3.17783e-02_rb, 3.50951e-02_rb, 3.87580e-02_rb, 4.28033e-02_rb, &\n     & 4.72708e-02_rb, 5.22046e-02_rb, 5.76533e-02_rb, 6.36707e-02_rb, 7.03162e-02_rb, &\n     & 7.76553e-02_rb, 8.57604e-02_rb, 9.47114e-02_rb, 1.04597e-01_rb, 1.15514e-01_rb, &\n     & 1.27570e-01_rb, 1.40885e-01_rb, 1.55589e-01_rb, 1.71829e-01_rb/)\n      kbo_mn2o( 5, :,14) = (/ &\n     & 1.11848e+02_rb, 1.09489e+02_rb, 1.07179e+02_rb, 1.04918e+02_rb, 1.02705e+02_rb, &\n     & 1.00538e+02_rb, 9.84175e+01_rb, 9.63414e+01_rb, 9.43091e+01_rb, 9.23196e+01_rb, &\n     & 9.03722e+01_rb, 8.84658e+01_rb, 8.65996e+01_rb, 8.47728e+01_rb, 8.29845e+01_rb, &\n     & 8.12339e+01_rb, 7.95203e+01_rb, 7.78428e+01_rb, 7.62007e+01_rb/)\n      kbo_mn2o( 1, :,15) = (/ &\n     & 1.52234e-02_rb, 1.69256e-02_rb, 1.88181e-02_rb, 2.09222e-02_rb, 2.32617e-02_rb, &\n     & 2.58626e-02_rb, 2.87545e-02_rb, 3.19696e-02_rb, 3.55443e-02_rb, 3.95187e-02_rb, &\n     & 4.39374e-02_rb, 4.88503e-02_rb, 5.43124e-02_rb, 6.03854e-02_rb, 6.71373e-02_rb, &\n     & 7.46443e-02_rb, 8.29906e-02_rb, 9.22701e-02_rb, 1.02587e-01_rb/)\n      kbo_mn2o( 2, :,15) = (/ &\n     & 1.52234e-02_rb, 1.69256e-02_rb, 1.88181e-02_rb, 2.09222e-02_rb, 2.32617e-02_rb, &\n     & 2.58626e-02_rb, 2.87545e-02_rb, 3.19696e-02_rb, 3.55443e-02_rb, 3.95187e-02_rb, &\n     & 4.39374e-02_rb, 4.88503e-02_rb, 5.43124e-02_rb, 6.03854e-02_rb, 6.71373e-02_rb, &\n     & 7.46443e-02_rb, 8.29906e-02_rb, 9.22701e-02_rb, 1.02587e-01_rb/)\n      kbo_mn2o( 3, :,15) = (/ &\n     & 1.52076e-02_rb, 1.69049e-02_rb, 1.87916e-02_rb, 2.08890e-02_rb, 2.32203e-02_rb, &\n     & 2.58119e-02_rb, 2.86928e-02_rb, 3.18951e-02_rb, 3.54549e-02_rb, 3.94120e-02_rb, &\n     & 4.38107e-02_rb, 4.87003e-02_rb, 5.41357e-02_rb, 6.01777e-02_rb, 6.68940e-02_rb, &\n     & 7.43600e-02_rb, 8.26593e-02_rb, 9.18847e-02_rb, 1.02140e-01_rb/)\n      kbo_mn2o( 4, :,15) = (/ &\n     & 1.52422e-02_rb, 1.69488e-02_rb, 1.88464e-02_rb, 2.09565e-02_rb, 2.33028e-02_rb, &\n     & 2.59118e-02_rb, 2.88129e-02_rb, 3.20389e-02_rb, 3.56260e-02_rb, 3.96148e-02_rb, &\n     & 4.40501e-02_rb, 4.89821e-02_rb, 5.44662e-02_rb, 6.05643e-02_rb, 6.73452e-02_rb, &\n     & 7.48853e-02_rb, 8.32696e-02_rb, 9.25927e-02_rb, 1.02959e-01_rb/)\n      kbo_mn2o( 5, :,15) = (/ &\n     & 6.94782e+01_rb, 6.73469e+01_rb, 6.52810e+01_rb, 6.32785e+01_rb, 6.13373e+01_rb, &\n     & 5.94558e+01_rb, 5.76319e+01_rb, 5.58640e+01_rb, 5.41503e+01_rb, 5.24892e+01_rb, &\n     & 5.08791e+01_rb, 4.93183e+01_rb, 4.78055e+01_rb, 4.63390e+01_rb, 4.49175e+01_rb, &\n     & 4.35396e+01_rb, 4.22040e+01_rb, 4.09094e+01_rb, 3.96544e+01_rb/)\n      kbo_mn2o( 1, :,16) = (/ &\n     & 1.08257e-02_rb, 1.15188e-02_rb, 1.22563e-02_rb, 1.30410e-02_rb, 1.38759e-02_rb, &\n     & 1.47643e-02_rb, 1.57096e-02_rb, 1.67154e-02_rb, 1.77857e-02_rb, 1.89244e-02_rb, &\n     & 2.01360e-02_rb, 2.14252e-02_rb, 2.27970e-02_rb, 2.42565e-02_rb, 2.58096e-02_rb, &\n     & 2.74620e-02_rb, 2.92203e-02_rb, 3.10911e-02_rb, 3.30817e-02_rb/)\n      kbo_mn2o( 2, :,16) = (/ &\n     & 1.08257e-02_rb, 1.15188e-02_rb, 1.22563e-02_rb, 1.30410e-02_rb, 1.38759e-02_rb, &\n     & 1.47643e-02_rb, 1.57096e-02_rb, 1.67154e-02_rb, 1.77857e-02_rb, 1.89244e-02_rb, &\n     & 2.01360e-02_rb, 2.14252e-02_rb, 2.27970e-02_rb, 2.42565e-02_rb, 2.58096e-02_rb, &\n     & 2.74620e-02_rb, 2.92203e-02_rb, 3.10911e-02_rb, 3.30817e-02_rb/)\n      kbo_mn2o( 3, :,16) = (/ &\n     & 1.08257e-02_rb, 1.15188e-02_rb, 1.22563e-02_rb, 1.30410e-02_rb, 1.38759e-02_rb, &\n     & 1.47643e-02_rb, 1.57096e-02_rb, 1.67154e-02_rb, 1.77857e-02_rb, 1.89244e-02_rb, &\n     & 2.01360e-02_rb, 2.14252e-02_rb, 2.27970e-02_rb, 2.42565e-02_rb, 2.58096e-02_rb, &\n     & 2.74620e-02_rb, 2.92203e-02_rb, 3.10911e-02_rb, 3.30817e-02_rb/)\n      kbo_mn2o( 4, :,16) = (/ &\n     & 1.08263e-02_rb, 1.15191e-02_rb, 1.22562e-02_rb, 1.30404e-02_rb, 1.38749e-02_rb, &\n     & 1.47627e-02_rb, 1.57073e-02_rb, 1.67124e-02_rb, 1.77818e-02_rb, 1.89196e-02_rb, &\n     & 2.01302e-02_rb, 2.14183e-02_rb, 2.27888e-02_rb, 2.42470e-02_rb, 2.57986e-02_rb, &\n     & 2.74494e-02_rb, 2.92058e-02_rb, 3.10746e-02_rb, 3.30630e-02_rb/)\n      kbo_mn2o( 5, :,16) = (/ &\n     & 4.53450e-08_rb, 5.75193e-08_rb, 7.29620e-08_rb, 9.25509e-08_rb, 1.17399e-07_rb, &\n     & 1.48918e-07_rb, 1.88900e-07_rb, 2.39616e-07_rb, 3.03948e-07_rb, 3.85551e-07_rb, &\n     & 4.89064e-07_rb, 6.20369e-07_rb, 7.86925e-07_rb, 9.98199e-07_rb, 1.26619e-06_rb, &\n     & 1.60614e-06_rb, 2.03736e-06_rb, 2.58435e-06_rb, 3.27819e-06_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &9.0039e-04_rb,1.1081e-03_rb,1.0732e-03_rb,1.1881e-03_rb,1.2488e-03_rb,1.3170e-03_rb, &\n     &1.3317e-03_rb,1.3168e-03_rb,1.3369e-03_rb,1.4228e-03_rb,1.5385e-03_rb,1.7376e-03_rb, &\n     &1.7122e-03_rb,1.9002e-03_rb,1.8881e-03_rb,2.1595e-03_rb/)\n      forrefo(2,:) = (/ &\n     &1.2726e-03_rb,1.3680e-03_rb,1.2494e-03_rb,1.2049e-03_rb,1.2048e-03_rb,1.1256e-03_rb, &\n     &1.1170e-03_rb,1.0697e-03_rb,1.1177e-03_rb,1.1883e-03_rb,1.2219e-03_rb,1.2179e-03_rb, &\n     &1.5692e-03_rb,1.9103e-03_rb,2.0219e-03_rb,1.6937e-03_rb/)\n      forrefo(3,:) = (/ &\n     &1.5527e-03_rb,1.6477e-03_rb,1.4973e-03_rb,1.3400e-03_rb,1.0820e-03_rb,9.3315e-04_rb, &\n     &8.8132e-04_rb,8.1508e-04_rb,8.3559e-04_rb,7.6492e-04_rb,8.2343e-04_rb,7.1274e-04_rb, &\n     &6.6011e-04_rb,6.7179e-04_rb,6.7039e-04_rb,6.7021e-04_rb/)\n      forrefo(4,:) = (/ &\n     &1.6763e-03_rb,1.6066e-03_rb,1.3927e-03_rb,1.2087e-03_rb,9.8463e-04_rb,8.8414e-04_rb, &\n     &8.0976e-04_rb,7.8758e-04_rb,7.7376e-04_rb,7.5785e-04_rb,7.4152e-04_rb,7.3814e-04_rb, &\n     &7.4278e-04_rb,7.1745e-04_rb,6.7216e-04_rb,6.4097e-04_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 5.11926e-01_rb, 4.32863e-01_rb, 3.66010e-01_rb, 3.09482e-01_rb, 2.61685e-01_rb, &\n     & 2.21269e-01_rb, 1.87096e-01_rb, 1.58200e-01_rb, 1.33767e-01_rb, 1.13108e-01_rb/)\n      selfrefo(:, 2) = (/ &\n     & 5.02863e-01_rb, 4.35008e-01_rb, 3.76310e-01_rb, 3.25532e-01_rb, 2.81606e-01_rb, &\n     & 2.43607e-01_rb, 2.10736e-01_rb, 1.82300e-01_rb, 1.57701e-01_rb, 1.36422e-01_rb/)\n      selfrefo(:, 3) = (/ &\n     & 4.57628e-01_rb, 3.99663e-01_rb, 3.49040e-01_rb, 3.04829e-01_rb, 2.66218e-01_rb, &\n     & 2.32498e-01_rb, 2.03049e-01_rb, 1.77330e-01_rb, 1.54869e-01_rb, 1.35252e-01_rb/)\n      selfrefo(:, 4) = (/ &\n     & 4.28634e-01_rb, 3.81736e-01_rb, 3.39970e-01_rb, 3.02773e-01_rb, 2.69647e-01_rb, &\n     & 2.40144e-01_rb, 2.13870e-01_rb, 1.90470e-01_rb, 1.69630e-01_rb, 1.51071e-01_rb/)\n      selfrefo(:, 5) = (/ &\n     & 4.21002e-01_rb, 3.77493e-01_rb, 3.38480e-01_rb, 3.03499e-01_rb, 2.72133e-01_rb, &\n     & 2.44009e-01_rb, 2.18792e-01_rb, 1.96180e-01_rb, 1.75905e-01_rb, 1.57726e-01_rb/)\n      selfrefo(:, 6) = (/ &\n     & 3.97517e-01_rb, 3.61167e-01_rb, 3.28140e-01_rb, 2.98133e-01_rb, 2.70871e-01_rb, &\n     & 2.46101e-01_rb, 2.23597e-01_rb, 2.03150e-01_rb, 1.84573e-01_rb, 1.67695e-01_rb/)\n      selfrefo(:, 7) = (/ &\n     & 3.92114e-01_rb, 3.57554e-01_rb, 3.26040e-01_rb, 2.97304e-01_rb, 2.71100e-01_rb, &\n     & 2.47206e-01_rb, 2.25418e-01_rb, 2.05550e-01_rb, 1.87433e-01_rb, 1.70913e-01_rb/)\n      selfrefo(:, 8) = (/ &\n     & 3.79555e-01_rb, 3.47264e-01_rb, 3.17720e-01_rb, 2.90690e-01_rb, 2.65959e-01_rb, &\n     & 2.43332e-01_rb, 2.22631e-01_rb, 2.03690e-01_rb, 1.86361e-01_rb, 1.70506e-01_rb/)\n      selfrefo(:, 9) = (/ &\n     & 3.92644e-01_rb, 3.58048e-01_rb, 3.26500e-01_rb, 2.97732e-01_rb, 2.71498e-01_rb, &\n     & 2.47576e-01_rb, 2.25762e-01_rb, 2.05870e-01_rb, 1.87731e-01_rb, 1.71190e-01_rb/)\n      selfrefo(:,10) = (/ &\n     & 4.06542e-01_rb, 3.71200e-01_rb, 3.38930e-01_rb, 3.09465e-01_rb, 2.82562e-01_rb, &\n     & 2.57998e-01_rb, 2.35569e-01_rb, 2.15090e-01_rb, 1.96391e-01_rb, 1.79318e-01_rb/)\n      selfrefo(:,11) = (/ &\n     & 4.09672e-01_rb, 3.76237e-01_rb, 3.45530e-01_rb, 3.17329e-01_rb, 2.91430e-01_rb, &\n     & 2.67645e-01_rb, 2.45801e-01_rb, 2.25740e-01_rb, 2.07316e-01_rb, 1.90396e-01_rb/)\n      selfrefo(:,12) = (/ &\n     & 3.85140e-01_rb, 3.61989e-01_rb, 3.40230e-01_rb, 3.19779e-01_rb, 3.00557e-01_rb, &\n     & 2.82490e-01_rb, 2.65510e-01_rb, 2.49550e-01_rb, 2.34549e-01_rb, 2.20451e-01_rb/)\n      selfrefo(:,13) = (/ &\n     & 4.87349e-01_rb, 4.42192e-01_rb, 4.01220e-01_rb, 3.64044e-01_rb, 3.30313e-01_rb, &\n     & 2.99707e-01_rb, 2.71937e-01_rb, 2.46740e-01_rb, 2.23878e-01_rb, 2.03134e-01_rb/)\n      selfrefo(:,14) = (/ &\n     & 5.64339e-01_rb, 5.06194e-01_rb, 4.54040e-01_rb, 4.07259e-01_rb, 3.65298e-01_rb, &\n     & 3.27661e-01_rb, 2.93901e-01_rb, 2.63620e-01_rb, 2.36459e-01_rb, 2.12096e-01_rb/)\n      selfrefo(:,15) = (/ &\n     & 5.91123e-01_rb, 5.26420e-01_rb, 4.68800e-01_rb, 4.17486e-01_rb, 3.71790e-01_rb, &\n     & 3.31095e-01_rb, 2.94854e-01_rb, 2.62580e-01_rb, 2.33839e-01_rb, 2.08243e-01_rb/)\n      selfrefo(:,16) = (/ &\n     & 5.04590e-01_rb, 4.65235e-01_rb, 4.28950e-01_rb, 3.95495e-01_rb, 3.64649e-01_rb, &\n     & 3.36209e-01_rb, 3.09987e-01_rb, 2.85810e-01_rb, 2.63519e-01_rb, 2.42966e-01_rb/)\n\n      end subroutine lw_kgb03 \n\n! **************************************************************************\n      subroutine lw_kgb04\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg04, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 142.5940 mbar, T = 215.70 K\n      fracrefao(:, 1) = (/ &\n     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9744e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 2) = (/ &\n     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2392e-02_rb,4.2146e-02_rb,4.5906e-03_rb,3.7965e-03_rb,2.9745e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 3) = (/ &\n     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9745e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 4) = (/ &\n     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7964e-03_rb,2.9744e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 5) = (/ &\n     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9744e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 6) = (/ &\n     &   1.5572e-01_rb,1.4925e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7965e-03_rb,2.9744e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 7) = (/ &\n     &   1.5572e-01_rb,1.4926e-01_rb,1.4107e-01_rb,1.3126e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5908e-03_rb,3.7964e-03_rb,2.9745e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 8) = (/ &\n     &   1.5571e-01_rb,1.4926e-01_rb,1.4107e-01_rb,1.3125e-01_rb,1.1791e-01_rb,1.0173e-01_rb, &\n     &   8.2949e-02_rb,6.2393e-02_rb,4.2146e-02_rb,4.5907e-03_rb,3.7964e-03_rb,2.9744e-03_rb, &\n     &   2.2074e-03_rb,1.4063e-03_rb,5.3012e-04_rb,7.4595e-05_rb/)\n      fracrefao(:, 9) = (/ &\n     &   1.5952e-01_rb,1.5155e-01_rb,1.4217e-01_rb,1.3077e-01_rb,1.1667e-01_rb,1.0048e-01_rb, &\n     &   8.1511e-02_rb,6.1076e-02_rb,4.1111e-02_rb,4.4432e-03_rb,3.6910e-03_rb,2.9076e-03_rb, &\n     &   2.1329e-03_rb,1.3566e-03_rb,5.2235e-04_rb,7.9935e-05_rb/)\n\n! Planck fraction mapping level : P = 95.58350 mb, T = 215.70 K\n      fracrefbo(:, 1) = (/ &\n     &   1.5558e-01_rb,1.4931e-01_rb,1.4104e-01_rb,1.3124e-01_rb,1.1793e-01_rb,1.0160e-01_rb, &\n     &   8.3142e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &\n     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)\n      fracrefbo(:, 2) = (/ &\n     &   1.5558e-01_rb,1.4932e-01_rb,1.4104e-01_rb,1.3124e-01_rb,1.1792e-01_rb,1.0159e-01_rb, &\n     &   8.3142e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &\n     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)\n      fracrefbo(:, 3) = (/ &\n     &   1.5558e-01_rb,1.4933e-01_rb,1.4103e-01_rb,1.3124e-01_rb,1.1792e-01_rb,1.0159e-01_rb, &\n     &   8.3142e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &\n     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)\n      fracrefbo(:, 4) = (/ &\n     &   1.5569e-01_rb,1.4926e-01_rb,1.4102e-01_rb,1.3122e-01_rb,1.1791e-01_rb,1.0159e-01_rb, &\n     &   8.3141e-02_rb,6.2403e-02_rb,4.2170e-02_rb,4.5935e-03_rb,3.7976e-03_rb,2.9986e-03_rb, &\n     &   2.1890e-03_rb,1.4061e-03_rb,5.3005e-04_rb,7.4587e-05_rb/)\n      fracrefbo(:, 5) = (/ &\n     &   1.5947e-01_rb,1.5132e-01_rb,1.4195e-01_rb,1.3061e-01_rb,1.1680e-01_rb,1.0054e-01_rb, &\n     &   8.1785e-02_rb,6.1212e-02_rb,4.1276e-02_rb,4.4424e-03_rb,3.6628e-03_rb,2.8943e-03_rb, &\n     &   2.1134e-03_rb,1.3457e-03_rb,5.1024e-04_rb,7.3998e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &1.0697e-02_rb,1.0151e-02_rb,9.2549e-03_rb,8.2645e-03_rb,7.2061e-03_rb,6.0662e-03_rb, &\n     &4.9816e-03_rb,4.8867e-03_rb,2.0269e-04_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &1.1677e-02_rb,1.1138e-02_rb,1.0216e-02_rb,9.1909e-03_rb,8.0553e-03_rb,6.8223e-03_rb, &\n     &5.5408e-03_rb,4.6854e-03_rb,2.3825e-04_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &1.2605e-02_rb,1.2092e-02_rb,1.1179e-02_rb,1.0121e-02_rb,8.9159e-03_rb,7.6027e-03_rb, &\n     &6.0392e-03_rb,4.3498e-03_rb,2.8245e-04_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &1.3484e-02_rb,1.3046e-02_rb,1.2153e-02_rb,1.1041e-02_rb,9.7806e-03_rb,8.2921e-03_rb, &\n     &6.5023e-03_rb,4.3023e-03_rb,3.0318e-04_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &1.4330e-02_rb,1.3997e-02_rb,1.3114e-02_rb,1.1943e-02_rb,1.0557e-02_rb,8.8567e-03_rb, &\n     &6.8709e-03_rb,4.3577e-03_rb,3.2751e-04_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &1.3833e-02_rb,1.2806e-02_rb,1.1465e-02_rb,1.0025e-02_rb,8.5208e-03_rb,6.9589e-03_rb, &\n     &5.3336e-03_rb,4.2294e-03_rb,1.4419e-04_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &1.5144e-02_rb,1.4068e-02_rb,1.2644e-02_rb,1.1119e-02_rb,9.5204e-03_rb,7.8236e-03_rb, &\n     &6.0220e-03_rb,4.4086e-03_rb,1.7355e-04_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &1.6397e-02_rb,1.5299e-02_rb,1.3819e-02_rb,1.2230e-02_rb,1.0525e-02_rb,8.6894e-03_rb, &\n     &6.7322e-03_rb,4.5883e-03_rb,2.1022e-04_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &1.7608e-02_rb,1.6518e-02_rb,1.5010e-02_rb,1.3349e-02_rb,1.1524e-02_rb,9.5665e-03_rb, &\n     &7.3586e-03_rb,4.7702e-03_rb,2.1845e-04_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &1.8795e-02_rb,1.7739e-02_rb,1.6211e-02_rb,1.4458e-02_rb,1.2504e-02_rb,1.0367e-02_rb, &\n     &7.8746e-03_rb,4.9505e-03_rb,2.4452e-04_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &2.3349e-02_rb,2.1073e-02_rb,1.8534e-02_rb,1.5886e-02_rb,1.3154e-02_rb,1.0346e-02_rb, &\n     &7.4749e-03_rb,4.5440e-03_rb,9.5522e-05_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &2.5718e-02_rb,2.3272e-02_rb,2.0503e-02_rb,1.7622e-02_rb,1.4648e-02_rb,1.1596e-02_rb, &\n     &8.4531e-03_rb,5.1652e-03_rb,1.1957e-04_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &2.8025e-02_rb,2.5421e-02_rb,2.2452e-02_rb,1.9353e-02_rb,1.6163e-02_rb,1.2876e-02_rb, &\n     &9.4440e-03_rb,5.8151e-03_rb,1.4638e-04_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &3.0273e-02_rb,2.7542e-02_rb,2.4400e-02_rb,2.1110e-02_rb,1.7713e-02_rb,1.4169e-02_rb, &\n     &1.0445e-02_rb,6.4078e-03_rb,1.5375e-04_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &3.2488e-02_rb,2.9668e-02_rb,2.6366e-02_rb,2.2912e-02_rb,1.9285e-02_rb,1.5463e-02_rb, &\n     &1.1411e-02_rb,6.9035e-03_rb,1.7414e-04_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &3.9680e-02_rb,3.5246e-02_rb,3.0687e-02_rb,2.5989e-02_rb,2.1199e-02_rb,1.6340e-02_rb, &\n     &1.1394e-02_rb,6.3232e-03_rb,6.3142e-05_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &4.4067e-02_rb,3.9245e-02_rb,3.4186e-02_rb,2.8983e-02_rb,2.3690e-02_rb,1.8315e-02_rb, &\n     &1.2835e-02_rb,7.2156e-03_rb,8.2154e-05_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &4.8382e-02_rb,4.3189e-02_rb,3.7634e-02_rb,3.1955e-02_rb,2.6184e-02_rb,2.0317e-02_rb, &\n     &1.4329e-02_rb,8.1343e-03_rb,1.0015e-04_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &5.2631e-02_rb,4.7051e-02_rb,4.1069e-02_rb,3.4945e-02_rb,2.8716e-02_rb,2.2361e-02_rb, &\n     &1.5856e-02_rb,9.0735e-03_rb,1.0763e-04_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &5.6812e-02_rb,5.0879e-02_rb,4.4486e-02_rb,3.7949e-02_rb,3.1266e-02_rb,2.4439e-02_rb, &\n     &1.7397e-02_rb,9.9865e-03_rb,1.2433e-04_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &6.1659e-02_rb,5.4360e-02_rb,4.7000e-02_rb,3.9571e-02_rb,3.2046e-02_rb,2.4431e-02_rb, &\n     &1.6731e-02_rb,8.9002e-03_rb,4.4135e-05_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &6.9177e-02_rb,6.1077e-02_rb,5.2885e-02_rb,4.4540e-02_rb,3.6083e-02_rb,2.7553e-02_rb, &\n     &1.8920e-02_rb,1.0138e-02_rb,5.7278e-05_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &7.6561e-02_rb,6.7721e-02_rb,5.8676e-02_rb,4.9436e-02_rb,4.0109e-02_rb,3.0675e-02_rb, &\n     &2.1149e-02_rb,1.1429e-02_rb,6.8177e-05_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &8.3855e-02_rb,7.4287e-02_rb,6.4398e-02_rb,5.4317e-02_rb,4.4139e-02_rb,3.3855e-02_rb, &\n     &2.3434e-02_rb,1.2758e-02_rb,7.5655e-05_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &9.1112e-02_rb,8.0836e-02_rb,7.0093e-02_rb,5.9205e-02_rb,4.8195e-02_rb,3.7076e-02_rb, &\n     &2.5757e-02_rb,1.4110e-02_rb,8.9921e-05_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &8.8882e-02_rb,7.8094e-02_rb,6.7257e-02_rb,5.6376e-02_rb,4.5468e-02_rb,3.4471e-02_rb, &\n     &2.3372e-02_rb,1.2141e-02_rb,3.4008e-05_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &1.0088e-01_rb,8.8690e-02_rb,7.6454e-02_rb,6.4166e-02_rb,5.1764e-02_rb,3.9256e-02_rb, &\n     &2.6651e-02_rb,1.3906e-02_rb,4.1496e-05_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &1.1268e-01_rb,9.9170e-02_rb,8.5584e-02_rb,7.1867e-02_rb,5.7997e-02_rb,4.4019e-02_rb, &\n     &2.9951e-02_rb,1.5714e-02_rb,4.7587e-05_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &1.2443e-01_rb,1.0961e-01_rb,9.4686e-02_rb,7.9524e-02_rb,6.4216e-02_rb,4.8825e-02_rb, &\n     &3.3307e-02_rb,1.7586e-02_rb,5.4734e-05_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &1.3608e-01_rb,1.2003e-01_rb,1.0372e-01_rb,8.7155e-02_rb,7.0466e-02_rb,5.3660e-02_rb, &\n     &3.6716e-02_rb,1.9490e-02_rb,6.4532e-05_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &1.3393e-01_rb,1.1743e-01_rb,1.0091e-01_rb,8.4366e-02_rb,6.7796e-02_rb,5.1191e-02_rb, &\n     &3.4487e-02_rb,1.7647e-02_rb,2.6258e-05_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &1.5385e-01_rb,1.3496e-01_rb,1.1603e-01_rb,9.7081e-02_rb,7.8079e-02_rb,5.8981e-02_rb, &\n     &3.9763e-02_rb,2.0387e-02_rb,3.2089e-05_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &1.7362e-01_rb,1.5237e-01_rb,1.3107e-01_rb,1.0975e-01_rb,8.8299e-02_rb,6.6730e-02_rb, &\n     &4.5023e-02_rb,2.3161e-02_rb,4.0067e-05_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &1.9325e-01_rb,1.6971e-01_rb,1.4609e-01_rb,1.2238e-01_rb,9.8509e-02_rb,7.4481e-02_rb, &\n     &5.0334e-02_rb,2.5995e-02_rb,4.6630e-05_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &2.1303e-01_rb,1.8717e-01_rb,1.6126e-01_rb,1.3511e-01_rb,1.0879e-01_rb,8.2319e-02_rb, &\n     &5.5720e-02_rb,2.8900e-02_rb,5.5874e-05_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &2.4085e-01_rb,2.1093e-01_rb,1.8102e-01_rb,1.5107e-01_rb,1.2112e-01_rb,9.1137e-02_rb, &\n     &6.1112e-02_rb,3.0964e-02_rb,2.6704e-05_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &2.8040e-01_rb,2.4563e-01_rb,2.1082e-01_rb,1.7598e-01_rb,1.4114e-01_rb,1.0627e-01_rb, &\n     &7.1313e-02_rb,3.6159e-02_rb,3.4463e-05_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &3.1986e-01_rb,2.8024e-01_rb,2.4058e-01_rb,2.0091e-01_rb,1.6119e-01_rb,1.2143e-01_rb, &\n     &8.1504e-02_rb,4.1377e-02_rb,4.2885e-05_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &3.5910e-01_rb,3.1468e-01_rb,2.7026e-01_rb,2.2578e-01_rb,1.8126e-01_rb,1.3658e-01_rb, &\n     &9.1734e-02_rb,4.6641e-02_rb,5.1508e-05_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &3.9881e-01_rb,3.4958e-01_rb,3.0035e-01_rb,2.5107e-01_rb,2.0163e-01_rb,1.5198e-01_rb, &\n     &1.0212e-01_rb,5.2034e-02_rb,5.9872e-05_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &8.1251e-01_rb,7.1113e-01_rb,6.0978e-01_rb,5.0834e-01_rb,4.0692e-01_rb,3.0549e-01_rb, &\n     &2.0401e-01_rb,1.0247e-01_rb,4.2060e-05_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &9.6024e-01_rb,8.4039e-01_rb,7.2060e-01_rb,6.0079e-01_rb,4.8095e-01_rb,3.6106e-01_rb, &\n     &2.4120e-01_rb,1.2123e-01_rb,5.7363e-05_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &1.1088e+00_rb,9.7056e-01_rb,8.3222e-01_rb,6.9393e-01_rb,5.5555e-01_rb,4.1720e-01_rb, &\n     &2.7875e-01_rb,1.4021e-01_rb,7.4113e-05_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &1.2568e+00_rb,1.1001e+00_rb,9.4342e-01_rb,7.8665e-01_rb,6.2985e-01_rb,4.7311e-01_rb, &\n     &3.1630e-01_rb,1.5915e-01_rb,9.2862e-05_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &1.4062e+00_rb,1.2309e+00_rb,1.0557e+00_rb,8.8039e-01_rb,7.0513e-01_rb,5.2977e-01_rb, &\n     &3.5432e-01_rb,1.7839e-01_rb,1.0954e-04_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &3.0868e+00_rb,2.7010e+00_rb,2.3154e+00_rb,1.9296e+00_rb,1.5440e+00_rb,1.1583e+00_rb, &\n     &7.7257e-01_rb,3.8682e-01_rb,7.9650e-05_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &3.6992e+00_rb,3.2371e+00_rb,2.7749e+00_rb,2.3126e+00_rb,1.8504e+00_rb,1.3883e+00_rb, &\n     &9.2595e-01_rb,4.6361e-01_rb,1.1315e-04_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &4.3239e+00_rb,3.7838e+00_rb,3.2436e+00_rb,2.7034e+00_rb,2.1630e+00_rb,1.6228e+00_rb, &\n     &1.0824e+00_rb,5.4204e-01_rb,1.4419e-04_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &4.9483e+00_rb,4.3302e+00_rb,3.7121e+00_rb,3.0937e+00_rb,2.4754e+00_rb,1.8572e+00_rb, &\n     &1.2389e+00_rb,6.2062e-01_rb,1.7752e-04_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &5.5745e+00_rb,4.8780e+00_rb,4.1816e+00_rb,3.4855e+00_rb,2.7890e+00_rb,2.0926e+00_rb, &\n     &1.3962e+00_rb,6.9963e-01_rb,2.1449e-04_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &4.4731e+00_rb,3.9138e+00_rb,3.3549e+00_rb,2.7960e+00_rb,2.2371e+00_rb,1.6781e+00_rb, &\n     &1.1191e+00_rb,5.6013e-01_rb,1.1739e-04_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &5.3673e+00_rb,4.6967e+00_rb,4.0260e+00_rb,3.3552e+00_rb,2.6847e+00_rb,2.0138e+00_rb, &\n     &1.3431e+00_rb,6.7224e-01_rb,1.4272e-04_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &6.2805e+00_rb,5.4954e+00_rb,4.7109e+00_rb,3.9260e+00_rb,3.1412e+00_rb,2.3563e+00_rb, &\n     &1.5716e+00_rb,7.8663e-01_rb,1.8731e-04_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &7.1941e+00_rb,6.2951e+00_rb,5.3963e+00_rb,4.4973e+00_rb,3.5984e+00_rb,2.6993e+00_rb, &\n     &1.8005e+00_rb,9.0138e-01_rb,2.2429e-04_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &8.1084e+00_rb,7.0952e+00_rb,6.0822e+00_rb,5.0692e+00_rb,4.0560e+00_rb,3.0428e+00_rb, &\n     &2.0297e+00_rb,1.0163e+00_rb,2.6588e-04_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &4.8324e+00_rb,4.2285e+00_rb,3.6244e+00_rb,3.0205e+00_rb,2.4167e+00_rb,1.8130e+00_rb, &\n     &1.2091e+00_rb,6.0509e-01_rb,1.2228e-04_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &5.8007e+00_rb,5.0761e+00_rb,4.3512e+00_rb,3.6264e+00_rb,2.9012e+00_rb,2.1763e+00_rb, &\n     &1.4515e+00_rb,7.2651e-01_rb,1.6183e-04_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &6.7955e+00_rb,5.9463e+00_rb,5.0972e+00_rb,4.2481e+00_rb,3.3989e+00_rb,2.5498e+00_rb, &\n     &1.7005e+00_rb,8.5109e-01_rb,1.9622e-04_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &7.7871e+00_rb,6.8141e+00_rb,5.8412e+00_rb,4.8680e+00_rb,3.8949e+00_rb,2.9218e+00_rb, &\n     &1.9487e+00_rb,9.7554e-01_rb,2.4527e-04_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &8.7731e+00_rb,7.6770e+00_rb,6.5805e+00_rb,5.4843e+00_rb,4.3883e+00_rb,3.2921e+00_rb, &\n     &2.1959e+00_rb,1.0994e+00_rb,2.9421e-04_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &4.1936e+00_rb,3.6695e+00_rb,3.1456e+00_rb,2.6217e+00_rb,2.0976e+00_rb,1.5735e+00_rb, &\n     &1.0495e+00_rb,5.2527e-01_rb,1.1808e-04_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &5.0398e+00_rb,4.4101e+00_rb,3.7804e+00_rb,3.1506e+00_rb,2.5209e+00_rb,1.8912e+00_rb, &\n     &1.2614e+00_rb,6.3136e-01_rb,1.5519e-04_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &5.9030e+00_rb,5.1655e+00_rb,4.4278e+00_rb,3.6903e+00_rb,2.9527e+00_rb,2.2152e+00_rb, &\n     &1.4774e+00_rb,7.3950e-01_rb,1.9283e-04_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &6.7598e+00_rb,5.9151e+00_rb,5.0706e+00_rb,4.2260e+00_rb,3.3815e+00_rb,2.5368e+00_rb, &\n     &1.6919e+00_rb,8.4706e-01_rb,2.3479e-04_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &7.6160e+00_rb,6.6645e+00_rb,5.7130e+00_rb,4.7615e+00_rb,3.8100e+00_rb,2.8583e+00_rb, &\n     &1.9066e+00_rb,9.5472e-01_rb,2.9034e-04_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &2.4501e-02_rb,2.2546e-02_rb,2.0206e-02_rb,1.7580e-02_rb,1.4733e-02_rb,1.1757e-02_rb, &\n     &8.5871e-03_rb,4.9715e-03_rb,4.1358e-04_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &2.5392e-02_rb,2.3504e-02_rb,2.1061e-02_rb,1.8282e-02_rb,1.5340e-02_rb,1.2238e-02_rb, &\n     &8.8921e-03_rb,5.1114e-03_rb,3.8966e-04_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &2.6027e-02_rb,2.4221e-02_rb,2.1673e-02_rb,1.8830e-02_rb,1.5807e-02_rb,1.2525e-02_rb, &\n     &9.1668e-03_rb,5.5997e-03_rb,3.7711e-04_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &2.6673e-02_rb,2.4919e-02_rb,2.2282e-02_rb,1.9349e-02_rb,1.6139e-02_rb,1.2835e-02_rb, &\n     &9.4247e-03_rb,5.9143e-03_rb,4.3807e-04_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &2.7193e-02_rb,2.5447e-02_rb,2.2733e-02_rb,1.9712e-02_rb,1.6469e-02_rb,1.3190e-02_rb, &\n     &9.7078e-03_rb,6.2746e-03_rb,5.1500e-04_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &3.1935e-02_rb,2.8971e-02_rb,2.5689e-02_rb,2.2139e-02_rb,1.8357e-02_rb,1.4398e-02_rb, &\n     &1.0314e-02_rb,5.7860e-03_rb,2.7704e-04_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &3.3322e-02_rb,3.0388e-02_rb,2.6935e-02_rb,2.3180e-02_rb,1.9196e-02_rb,1.5076e-02_rb, &\n     &1.0778e-02_rb,6.0195e-03_rb,2.7933e-04_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &3.4372e-02_rb,3.1484e-02_rb,2.7888e-02_rb,2.3966e-02_rb,1.9860e-02_rb,1.5585e-02_rb, &\n     &1.1079e-02_rb,6.3448e-03_rb,2.7118e-04_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &3.5247e-02_rb,3.2382e-02_rb,2.8654e-02_rb,2.4627e-02_rb,2.0404e-02_rb,1.5949e-02_rb, &\n     &1.1392e-02_rb,6.6539e-03_rb,3.3360e-04_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &3.6022e-02_rb,3.3132e-02_rb,2.9304e-02_rb,2.5200e-02_rb,2.0861e-02_rb,1.6331e-02_rb, &\n     &1.1785e-02_rb,6.9927e-03_rb,3.9477e-04_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &5.5981e-02_rb,4.9895e-02_rb,4.3680e-02_rb,3.7190e-02_rb,3.0485e-02_rb,2.3562e-02_rb, &\n     &1.6425e-02_rb,9.0449e-03_rb,1.7015e-04_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &5.8799e-02_rb,5.2631e-02_rb,4.6091e-02_rb,3.9226e-02_rb,3.2137e-02_rb,2.4836e-02_rb, &\n     &1.7301e-02_rb,9.5109e-03_rb,1.8305e-04_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &6.0996e-02_rb,5.4813e-02_rb,4.8006e-02_rb,4.0820e-02_rb,3.3414e-02_rb,2.5787e-02_rb, &\n     &1.7985e-02_rb,9.8187e-03_rb,1.8905e-04_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &6.2707e-02_rb,5.6481e-02_rb,4.9388e-02_rb,4.1983e-02_rb,3.4344e-02_rb,2.6526e-02_rb, &\n     &1.8461e-02_rb,1.0117e-02_rb,2.4096e-04_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &6.4195e-02_rb,5.7890e-02_rb,5.0593e-02_rb,4.2977e-02_rb,3.5166e-02_rb,2.7170e-02_rb, &\n     &1.8910e-02_rb,1.0511e-02_rb,2.9172e-04_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &1.0046e-01_rb,8.8696e-02_rb,7.6950e-02_rb,6.5010e-02_rb,5.2854e-02_rb,4.0445e-02_rb, &\n     &2.7753e-02_rb,1.4715e-02_rb,1.1527e-04_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &1.0584e-01_rb,9.3644e-02_rb,8.1343e-02_rb,6.8725e-02_rb,5.5817e-02_rb,4.2663e-02_rb, &\n     &2.9258e-02_rb,1.5519e-02_rb,1.2102e-04_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &1.1041e-01_rb,9.7926e-02_rb,8.5123e-02_rb,7.1882e-02_rb,5.8341e-02_rb,4.4558e-02_rb, &\n     &3.0554e-02_rb,1.6224e-02_rb,1.3450e-04_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &1.1403e-01_rb,1.0136e-01_rb,8.8078e-02_rb,7.4319e-02_rb,6.0266e-02_rb,4.6028e-02_rb, &\n     &3.1549e-02_rb,1.6730e-02_rb,1.7483e-04_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &1.1675e-01_rb,1.0391e-01_rb,9.0226e-02_rb,7.6062e-02_rb,6.1699e-02_rb,4.7119e-02_rb, &\n     &3.2315e-02_rb,1.7160e-02_rb,2.1415e-04_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &1.6440e-01_rb,1.4448e-01_rb,1.2464e-01_rb,1.0475e-01_rb,8.4706e-02_rb,6.4458e-02_rb, &\n     &4.3883e-02_rb,2.2824e-02_rb,7.5213e-05_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &1.7418e-01_rb,1.5330e-01_rb,1.3243e-01_rb,1.1140e-01_rb,9.0109e-02_rb,6.8519e-02_rb, &\n     &4.6576e-02_rb,2.4202e-02_rb,8.0510e-05_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &1.8254e-01_rb,1.6088e-01_rb,1.3912e-01_rb,1.1702e-01_rb,9.4586e-02_rb,7.1837e-02_rb, &\n     &4.8767e-02_rb,2.5350e-02_rb,9.6196e-05_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &1.8937e-01_rb,1.6713e-01_rb,1.4454e-01_rb,1.2155e-01_rb,9.8195e-02_rb,7.4514e-02_rb, &\n     &5.0569e-02_rb,2.6308e-02_rb,1.2696e-04_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &1.9452e-01_rb,1.7183e-01_rb,1.4864e-01_rb,1.2495e-01_rb,1.0086e-01_rb,7.6520e-02_rb, &\n     &5.1964e-02_rb,2.7040e-02_rb,1.5611e-04_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &2.4921e-01_rb,2.1859e-01_rb,1.8798e-01_rb,1.5740e-01_rb,1.2679e-01_rb,9.6030e-02_rb, &\n     &6.5011e-02_rb,3.3513e-02_rb,4.7816e-05_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &2.6657e-01_rb,2.3398e-01_rb,2.0147e-01_rb,1.6890e-01_rb,1.3619e-01_rb,1.0322e-01_rb, &\n     &6.9866e-02_rb,3.5915e-02_rb,5.5771e-05_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &2.8078e-01_rb,2.4667e-01_rb,2.1258e-01_rb,1.7831e-01_rb,1.4376e-01_rb,1.0887e-01_rb, &\n     &7.3553e-02_rb,3.7752e-02_rb,7.2324e-05_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &2.9281e-01_rb,2.5752e-01_rb,2.2202e-01_rb,1.8622e-01_rb,1.5008e-01_rb,1.1356e-01_rb, &\n     &7.6693e-02_rb,3.9339e-02_rb,9.1831e-05_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &3.0221e-01_rb,2.6598e-01_rb,2.2929e-01_rb,1.9231e-01_rb,1.5490e-01_rb,1.1717e-01_rb, &\n     &7.9072e-02_rb,4.0614e-02_rb,1.1670e-04_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &3.9471e-01_rb,3.4576e-01_rb,2.9687e-01_rb,2.4797e-01_rb,1.9909e-01_rb,1.5016e-01_rb, &\n     &1.0112e-01_rb,5.1719e-02_rb,4.5280e-05_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &4.2660e-01_rb,3.7391e-01_rb,3.2118e-01_rb,2.6853e-01_rb,2.1577e-01_rb,1.6297e-01_rb, &\n     &1.0986e-01_rb,5.6145e-02_rb,5.4459e-05_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &4.5301e-01_rb,3.9723e-01_rb,3.4149e-01_rb,2.8568e-01_rb,2.2975e-01_rb,1.7359e-01_rb, &\n     &1.1695e-01_rb,5.9583e-02_rb,6.4819e-05_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &4.7467e-01_rb,4.1649e-01_rb,3.5820e-01_rb,2.9973e-01_rb,2.4109e-01_rb,1.8208e-01_rb, &\n     &1.2251e-01_rb,6.2380e-02_rb,7.8660e-05_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &4.9199e-01_rb,4.3192e-01_rb,3.7144e-01_rb,3.1090e-01_rb,2.5000e-01_rb,1.8865e-01_rb, &\n     &1.2686e-01_rb,6.4563e-02_rb,9.4184e-05_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &7.4598e-01_rb,6.5300e-01_rb,5.6009e-01_rb,4.6718e-01_rb,3.7433e-01_rb,2.8142e-01_rb, &\n     &1.8848e-01_rb,9.5403e-02_rb,4.9176e-05_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &8.1434e-01_rb,7.1301e-01_rb,6.1173e-01_rb,5.1044e-01_rb,4.0917e-01_rb,3.0788e-01_rb, &\n     &2.0653e-01_rb,1.0477e-01_rb,6.1468e-05_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &8.7268e-01_rb,7.6440e-01_rb,6.5604e-01_rb,5.4759e-01_rb,4.3920e-01_rb,3.3065e-01_rb, &\n     &2.2200e-01_rb,1.1269e-01_rb,7.5902e-05_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &9.2025e-01_rb,8.0619e-01_rb,6.9208e-01_rb,5.7794e-01_rb,4.6363e-01_rb,3.4928e-01_rb, &\n     &2.3455e-01_rb,1.1876e-01_rb,9.2466e-05_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &9.5892e-01_rb,8.4025e-01_rb,7.2136e-01_rb,6.0245e-01_rb,4.8344e-01_rb,3.6420e-01_rb, &\n     &2.4431e-01_rb,1.2353e-01_rb,1.1186e-04_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &2.6457e+00_rb,2.3152e+00_rb,1.9846e+00_rb,1.6541e+00_rb,1.3236e+00_rb,9.9317e-01_rb, &\n     &6.6276e-01_rb,3.3240e-01_rb,8.9892e-05_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &2.9186e+00_rb,2.5541e+00_rb,2.1896e+00_rb,1.8252e+00_rb,1.4607e+00_rb,1.0963e+00_rb, &\n     &7.3190e-01_rb,3.6751e-01_rb,1.0914e-04_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &3.1587e+00_rb,2.7643e+00_rb,2.3700e+00_rb,1.9759e+00_rb,1.5816e+00_rb,1.1873e+00_rb, &\n     &7.9301e-01_rb,3.9869e-01_rb,1.2624e-04_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &3.3556e+00_rb,2.9370e+00_rb,2.5183e+00_rb,2.0996e+00_rb,1.6808e+00_rb,1.2622e+00_rb, &\n     &8.4339e-01_rb,4.2436e-01_rb,1.5596e-04_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &3.5177e+00_rb,3.0788e+00_rb,2.6401e+00_rb,2.2013e+00_rb,1.7625e+00_rb,1.3234e+00_rb, &\n     &8.8445e-01_rb,4.4528e-01_rb,1.9369e-04_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &1.0501e+01_rb,9.1884e+00_rb,7.8763e+00_rb,6.5637e+00_rb,5.2509e+00_rb,3.9387e+00_rb, &\n     &2.6260e+00_rb,1.3137e+00_rb,1.7951e-04_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &1.1694e+01_rb,1.0233e+01_rb,8.7714e+00_rb,7.3095e+00_rb,5.8477e+00_rb,4.3863e+00_rb, &\n     &2.9249e+00_rb,1.4636e+00_rb,2.1880e-04_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &1.2771e+01_rb,1.1175e+01_rb,9.5787e+00_rb,7.9832e+00_rb,6.3867e+00_rb,4.7910e+00_rb, &\n     &3.1952e+00_rb,1.5993e+00_rb,2.5504e-04_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &1.3661e+01_rb,1.1954e+01_rb,1.0247e+01_rb,8.5403e+00_rb,6.8331e+00_rb,5.1260e+00_rb, &\n     &3.4191e+00_rb,1.7121e+00_rb,3.1556e-04_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &1.4403e+01_rb,1.2603e+01_rb,1.0804e+01_rb,9.0041e+00_rb,7.2046e+00_rb,5.4047e+00_rb, &\n     &3.6050e+00_rb,1.8055e+00_rb,3.5095e-04_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &1.5305e+01_rb,1.3391e+01_rb,1.1479e+01_rb,9.5654e+00_rb,7.6527e+00_rb,5.7399e+00_rb, &\n     &3.8269e+00_rb,1.9139e+00_rb,2.5263e-04_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &1.7053e+01_rb,1.4921e+01_rb,1.2790e+01_rb,1.0658e+01_rb,8.5272e+00_rb,6.3954e+00_rb, &\n     &4.2646e+00_rb,2.1334e+00_rb,3.2671e-04_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &1.8597e+01_rb,1.6273e+01_rb,1.3949e+01_rb,1.1625e+01_rb,9.3007e+00_rb,6.9759e+00_rb, &\n     &4.6520e+00_rb,2.3277e+00_rb,3.9618e-04_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &1.9894e+01_rb,1.7409e+01_rb,1.4922e+01_rb,1.2436e+01_rb,9.9497e+00_rb,7.4632e+00_rb, &\n     &4.9771e+00_rb,2.4907e+00_rb,4.6029e-04_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &2.0957e+01_rb,1.8337e+01_rb,1.5718e+01_rb,1.3099e+01_rb,1.0480e+01_rb,7.8611e+00_rb, &\n     &5.2427e+00_rb,2.6238e+00_rb,5.1000e-04_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &1.6595e+01_rb,1.4521e+01_rb,1.2446e+01_rb,1.0372e+01_rb,8.2975e+00_rb,6.2234e+00_rb, &\n     &4.1492e+00_rb,2.0749e+00_rb,2.8721e-04_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &1.8487e+01_rb,1.6178e+01_rb,1.3866e+01_rb,1.1556e+01_rb,9.2444e+00_rb,6.9339e+00_rb, &\n     &4.6231e+00_rb,2.3126e+00_rb,3.5210e-04_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &2.0157e+01_rb,1.7638e+01_rb,1.5119e+01_rb,1.2600e+01_rb,1.0080e+01_rb,7.5607e+00_rb, &\n     &5.0414e+00_rb,2.5223e+00_rb,4.4248e-04_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &2.1568e+01_rb,1.8872e+01_rb,1.6176e+01_rb,1.3480e+01_rb,1.0785e+01_rb,8.0897e+00_rb, &\n     &5.3945e+00_rb,2.6993e+00_rb,5.0244e-04_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &2.2671e+01_rb,1.9838e+01_rb,1.7004e+01_rb,1.4170e+01_rb,1.1337e+01_rb,8.5042e+00_rb, &\n     &5.6711e+00_rb,2.8381e+00_rb,5.5567e-04_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &1.4451e+01_rb,1.2644e+01_rb,1.0838e+01_rb,9.0321e+00_rb,7.2259e+00_rb,5.4197e+00_rb, &\n     &3.6133e+00_rb,1.8070e+00_rb,2.7932e-04_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &1.6097e+01_rb,1.4085e+01_rb,1.2073e+01_rb,1.0061e+01_rb,8.0489e+00_rb,6.0372e+00_rb, &\n     &4.0253e+00_rb,2.0137e+00_rb,3.2799e-04_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &1.7564e+01_rb,1.5369e+01_rb,1.3173e+01_rb,1.0978e+01_rb,8.7826e+00_rb,6.5876e+00_rb, &\n     &4.3925e+00_rb,2.1975e+00_rb,4.0780e-04_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &1.8771e+01_rb,1.6426e+01_rb,1.4079e+01_rb,1.1733e+01_rb,9.3868e+00_rb,7.0409e+00_rb, &\n     &4.6954e+00_rb,2.3495e+00_rb,5.0230e-04_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &1.9694e+01_rb,1.7232e+01_rb,1.4771e+01_rb,1.2310e+01_rb,9.8489e+00_rb,7.3875e+00_rb, &\n     &4.9264e+00_rb,2.4656e+00_rb,5.5102e-04_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &3.7564e-02_rb,3.3492e-02_rb,2.9385e-02_rb,2.5064e-02_rb,2.0679e-02_rb,1.6159e-02_rb, &\n     &1.1502e-02_rb,6.5367e-03_rb,3.9794e-04_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &3.6916e-02_rb,3.3151e-02_rb,2.9160e-02_rb,2.5018e-02_rb,2.0751e-02_rb,1.6389e-02_rb, &\n     &1.1901e-02_rb,7.2678e-03_rb,5.4686e-04_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &3.6399e-02_rb,3.2903e-02_rb,2.9031e-02_rb,2.5012e-02_rb,2.0900e-02_rb,1.6718e-02_rb, &\n     &1.2389e-02_rb,8.0801e-03_rb,7.4220e-04_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &3.6126e-02_rb,3.2782e-02_rb,2.9047e-02_rb,2.5198e-02_rb,2.1279e-02_rb,1.7152e-02_rb, &\n     &1.3045e-02_rb,8.9482e-03_rb,8.9478e-04_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &3.5996e-02_rb,3.2833e-02_rb,2.9270e-02_rb,2.5593e-02_rb,2.1712e-02_rb,1.7723e-02_rb, &\n     &1.3812e-02_rb,9.7243e-03_rb,1.0975e-03_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &4.9545e-02_rb,4.3840e-02_rb,3.8273e-02_rb,3.2472e-02_rb,2.6558e-02_rb,2.0510e-02_rb, &\n     &1.4332e-02_rb,7.7992e-03_rb,3.0769e-04_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &4.8709e-02_rb,4.3359e-02_rb,3.7969e-02_rb,3.2304e-02_rb,2.6513e-02_rb,2.0603e-02_rb, &\n     &1.4626e-02_rb,8.4051e-03_rb,4.1476e-04_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &4.8165e-02_rb,4.3120e-02_rb,3.7795e-02_rb,3.2248e-02_rb,2.6570e-02_rb,2.0838e-02_rb, &\n     &1.4977e-02_rb,8.9685e-03_rb,5.6832e-04_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &4.7962e-02_rb,4.3077e-02_rb,3.7844e-02_rb,3.2393e-02_rb,2.6873e-02_rb,2.1238e-02_rb, &\n     &1.5407e-02_rb,9.6431e-03_rb,6.7745e-04_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &4.8025e-02_rb,4.3378e-02_rb,3.8202e-02_rb,3.2847e-02_rb,2.7374e-02_rb,2.1742e-02_rb, &\n     &1.5999e-02_rb,1.0391e-02_rb,8.3539e-04_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &8.8120e-02_rb,7.7386e-02_rb,6.6977e-02_rb,5.6500e-02_rb,4.5838e-02_rb,3.5027e-02_rb, &\n     &2.3995e-02_rb,1.2704e-02_rb,2.2676e-04_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &8.6799e-02_rb,7.6419e-02_rb,6.6419e-02_rb,5.6119e-02_rb,4.5623e-02_rb,3.4916e-02_rb, &\n     &2.4025e-02_rb,1.3004e-02_rb,3.0168e-04_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &8.6001e-02_rb,7.6005e-02_rb,6.6184e-02_rb,5.6008e-02_rb,4.5591e-02_rb,3.4990e-02_rb, &\n     &2.4263e-02_rb,1.3424e-02_rb,3.9676e-04_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &8.5691e-02_rb,7.5994e-02_rb,6.6270e-02_rb,5.6158e-02_rb,4.5788e-02_rb,3.5296e-02_rb, &\n     &2.4707e-02_rb,1.3830e-02_rb,4.9186e-04_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &8.6172e-02_rb,7.6716e-02_rb,6.6965e-02_rb,5.6820e-02_rb,4.6489e-02_rb,3.5977e-02_rb, &\n     &2.5332e-02_rb,1.4387e-02_rb,6.1173e-04_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &1.6100e-01_rb,1.4106e-01_rb,1.2117e-01_rb,1.0160e-01_rb,8.1953e-02_rb,6.2189e-02_rb, &\n     &4.2184e-02_rb,2.1860e-02_rb,1.5920e-04_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &1.5854e-01_rb,1.3897e-01_rb,1.1977e-01_rb,1.0067e-01_rb,8.1408e-02_rb,6.1866e-02_rb, &\n     &4.2083e-02_rb,2.1896e-02_rb,2.1901e-04_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &1.5713e-01_rb,1.3793e-01_rb,1.1924e-01_rb,1.0046e-01_rb,8.1310e-02_rb,6.1926e-02_rb, &\n     &4.2176e-02_rb,2.2134e-02_rb,2.8281e-04_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &1.5680e-01_rb,1.3795e-01_rb,1.1956e-01_rb,1.0071e-01_rb,8.1588e-02_rb,6.2136e-02_rb, &\n     &4.2469e-02_rb,2.2574e-02_rb,3.5509e-04_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &1.5807e-01_rb,1.3940e-01_rb,1.2093e-01_rb,1.0191e-01_rb,8.2580e-02_rb,6.3036e-02_rb, &\n     &4.3252e-02_rb,2.3169e-02_rb,4.4437e-04_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &2.7295e-01_rb,2.3896e-01_rb,2.0497e-01_rb,1.7107e-01_rb,1.3742e-01_rb,1.0372e-01_rb, &\n     &6.9897e-02_rb,3.5756e-02_rb,1.1345e-04_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &2.6909e-01_rb,2.3567e-01_rb,2.0228e-01_rb,1.6922e-01_rb,1.3618e-01_rb,1.0303e-01_rb, &\n     &6.9598e-02_rb,3.5741e-02_rb,1.5887e-04_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &2.6654e-01_rb,2.3348e-01_rb,2.0077e-01_rb,1.6833e-01_rb,1.3583e-01_rb,1.0288e-01_rb, &\n     &6.9627e-02_rb,3.5834e-02_rb,2.0432e-04_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &2.6633e-01_rb,2.3346e-01_rb,2.0125e-01_rb,1.6903e-01_rb,1.3632e-01_rb,1.0334e-01_rb, &\n     &6.9968e-02_rb,3.6152e-02_rb,2.5784e-04_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &2.6868e-01_rb,2.3592e-01_rb,2.0366e-01_rb,1.7109e-01_rb,1.3803e-01_rb,1.0467e-01_rb, &\n     &7.0932e-02_rb,3.6877e-02_rb,3.2436e-04_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &4.3357e-01_rb,3.7951e-01_rb,3.2542e-01_rb,2.7129e-01_rb,2.1728e-01_rb,1.6346e-01_rb, &\n     &1.0964e-01_rb,5.5662e-02_rb,8.3325e-05_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &4.2794e-01_rb,3.7459e-01_rb,3.2123e-01_rb,2.6798e-01_rb,2.1494e-01_rb,1.6197e-01_rb, &\n     &1.0894e-01_rb,5.5488e-02_rb,1.1433e-04_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &4.2362e-01_rb,3.7090e-01_rb,3.1822e-01_rb,2.6585e-01_rb,2.1359e-01_rb,1.6133e-01_rb, &\n     &1.0870e-01_rb,5.5444e-02_rb,1.4294e-04_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &4.2356e-01_rb,3.7092e-01_rb,3.1860e-01_rb,2.6656e-01_rb,2.1457e-01_rb,1.6217e-01_rb, &\n     &1.0928e-01_rb,5.5858e-02_rb,1.8487e-04_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &4.2732e-01_rb,3.7444e-01_rb,3.2213e-01_rb,2.6992e-01_rb,2.1742e-01_rb,1.6433e-01_rb, &\n     &1.1084e-01_rb,5.6756e-02_rb,2.3367e-04_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &7.2201e-01_rb,6.3185e-01_rb,5.4168e-01_rb,4.5148e-01_rb,3.6131e-01_rb,2.7123e-01_rb, &\n     &1.8131e-01_rb,9.1347e-02_rb,6.1051e-05_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &7.1295e-01_rb,6.2391e-01_rb,5.3487e-01_rb,4.4585e-01_rb,3.5694e-01_rb,2.6824e-01_rb, &\n     &1.7961e-01_rb,9.0876e-02_rb,8.2662e-05_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &7.0704e-01_rb,6.1882e-01_rb,5.3061e-01_rb,4.4252e-01_rb,3.5463e-01_rb,2.6681e-01_rb, &\n     &1.7908e-01_rb,9.0926e-02_rb,1.0796e-04_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &7.0657e-01_rb,6.1841e-01_rb,5.3039e-01_rb,4.4278e-01_rb,3.5513e-01_rb,2.6769e-01_rb, &\n     &1.7995e-01_rb,9.1305e-02_rb,1.3920e-04_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &7.1310e-01_rb,6.2430e-01_rb,5.3600e-01_rb,4.4782e-01_rb,3.5976e-01_rb,2.7158e-01_rb, &\n     &1.8261e-01_rb,9.2814e-02_rb,1.7572e-04_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &1.4344e+00_rb,1.2551e+00_rb,1.0759e+00_rb,8.9667e-01_rb,7.1735e-01_rb,5.3821e-01_rb, &\n     &3.5899e-01_rb,1.8011e-01_rb,7.5748e-05_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &1.4191e+00_rb,1.2419e+00_rb,1.0645e+00_rb,8.8713e-01_rb,7.0979e-01_rb,5.3268e-01_rb, &\n     &3.5557e-01_rb,1.7867e-01_rb,9.9921e-05_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &1.4086e+00_rb,1.2327e+00_rb,1.0566e+00_rb,8.8065e-01_rb,7.0478e-01_rb,5.2920e-01_rb, &\n     &3.5364e-01_rb,1.7813e-01_rb,1.2236e-04_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &1.4087e+00_rb,1.2327e+00_rb,1.0568e+00_rb,8.8106e-01_rb,7.0553e-01_rb,5.2998e-01_rb, &\n     &3.5460e-01_rb,1.7919e-01_rb,1.5414e-04_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &1.4217e+00_rb,1.2444e+00_rb,1.0672e+00_rb,8.9025e-01_rb,7.1327e-01_rb,5.3627e-01_rb, &\n     &3.5965e-01_rb,1.8202e-01_rb,1.9115e-04_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &5.3656e+00_rb,4.6949e+00_rb,4.0244e+00_rb,3.3536e+00_rb,2.6829e+00_rb,2.0124e+00_rb, &\n     &1.3418e+00_rb,6.7121e-01_rb,1.2938e-04_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &5.3249e+00_rb,4.6593e+00_rb,3.9938e+00_rb,3.3284e+00_rb,2.6628e+00_rb,1.9972e+00_rb, &\n     &1.3317e+00_rb,6.6623e-01_rb,1.6248e-04_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &5.2842e+00_rb,4.6238e+00_rb,3.9633e+00_rb,3.3029e+00_rb,2.6426e+00_rb,1.9822e+00_rb, &\n     &1.3219e+00_rb,6.6174e-01_rb,2.1505e-04_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &5.2909e+00_rb,4.6297e+00_rb,3.9685e+00_rb,3.3074e+00_rb,2.6461e+00_rb,1.9850e+00_rb, &\n     &1.3243e+00_rb,6.6344e-01_rb,2.5323e-04_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &5.3328e+00_rb,4.6665e+00_rb,4.0003e+00_rb,3.3342e+00_rb,2.6682e+00_rb,2.0021e+00_rb, &\n     &1.3361e+00_rb,6.6998e-01_rb,2.8724e-04_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &2.2338e+01_rb,1.9545e+01_rb,1.6753e+01_rb,1.3961e+01_rb,1.1170e+01_rb,8.3767e+00_rb, &\n     &5.5849e+00_rb,2.7925e+00_rb,2.7123e-04_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &2.2247e+01_rb,1.9467e+01_rb,1.6686e+01_rb,1.3905e+01_rb,1.1124e+01_rb,8.3431e+00_rb, &\n     &5.5623e+00_rb,2.7817e+00_rb,3.3076e-04_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &2.2079e+01_rb,1.9319e+01_rb,1.6560e+01_rb,1.3800e+01_rb,1.1040e+01_rb,8.2801e+00_rb, &\n     &5.5205e+00_rb,2.7607e+00_rb,4.2235e-04_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &2.2133e+01_rb,1.9366e+01_rb,1.6600e+01_rb,1.3833e+01_rb,1.1067e+01_rb,8.3005e+00_rb, &\n     &5.5343e+00_rb,2.7680e+00_rb,4.8628e-04_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &2.2337e+01_rb,1.9545e+01_rb,1.6754e+01_rb,1.3962e+01_rb,1.1171e+01_rb,8.3788e+00_rb, &\n     &5.5873e+00_rb,2.7956e+00_rb,6.0636e-04_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &3.2372e+01_rb,2.8324e+01_rb,2.4279e+01_rb,2.0232e+01_rb,1.6186e+01_rb,1.2140e+01_rb, &\n     &8.0929e+00_rb,4.0469e+00_rb,3.8659e-04_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &3.2225e+01_rb,2.8197e+01_rb,2.4169e+01_rb,2.0141e+01_rb,1.6113e+01_rb,1.2085e+01_rb, &\n     &8.0568e+00_rb,4.0284e+00_rb,4.6837e-04_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &3.2089e+01_rb,2.8078e+01_rb,2.4068e+01_rb,2.0057e+01_rb,1.6046e+01_rb,1.2035e+01_rb, &\n     &8.0232e+00_rb,4.0121e+00_rb,5.6676e-04_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &3.2281e+01_rb,2.8246e+01_rb,2.4212e+01_rb,2.0176e+01_rb,1.6141e+01_rb,1.2106e+01_rb, &\n     &8.0716e+00_rb,4.0370e+00_rb,7.3031e-04_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &3.2736e+01_rb,2.8646e+01_rb,2.4553e+01_rb,2.0462e+01_rb,1.6370e+01_rb,1.2278e+01_rb, &\n     &8.1864e+00_rb,4.0949e+00_rb,8.3516e-04_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &3.4882e+01_rb,3.0522e+01_rb,2.6162e+01_rb,2.1802e+01_rb,1.7441e+01_rb,1.3081e+01_rb, &\n     &8.7208e+00_rb,4.3607e+00_rb,4.1853e-04_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &3.4744e+01_rb,3.0400e+01_rb,2.6058e+01_rb,2.1715e+01_rb,1.7372e+01_rb,1.3029e+01_rb, &\n     &8.6862e+00_rb,4.3435e+00_rb,5.1635e-04_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &3.4694e+01_rb,3.0356e+01_rb,2.6020e+01_rb,2.1683e+01_rb,1.7347e+01_rb,1.3010e+01_rb, &\n     &8.6737e+00_rb,4.3374e+00_rb,5.8258e-04_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &3.4999e+01_rb,3.0625e+01_rb,2.6249e+01_rb,2.1876e+01_rb,1.7501e+01_rb,1.3126e+01_rb, &\n     &8.7513e+00_rb,4.3768e+00_rb,7.2545e-04_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &3.5658e+01_rb,3.1201e+01_rb,2.6744e+01_rb,2.2288e+01_rb,1.7831e+01_rb,1.3374e+01_rb, &\n     &8.9165e+00_rb,4.4593e+00_rb,9.3950e-04_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &3.0168e+01_rb,2.6399e+01_rb,2.2627e+01_rb,1.8855e+01_rb,1.5085e+01_rb,1.1314e+01_rb, &\n     &7.5425e+00_rb,3.7715e+00_rb,4.1524e-04_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &3.0082e+01_rb,2.6321e+01_rb,2.2562e+01_rb,1.8800e+01_rb,1.5040e+01_rb,1.1280e+01_rb, &\n     &7.5203e+00_rb,3.7604e+00_rb,5.1897e-04_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &3.0098e+01_rb,2.6336e+01_rb,2.2574e+01_rb,1.8812e+01_rb,1.5049e+01_rb,1.1287e+01_rb, &\n     &7.5253e+00_rb,3.7634e+00_rb,6.3490e-04_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &3.0488e+01_rb,2.6677e+01_rb,2.2867e+01_rb,1.9056e+01_rb,1.5245e+01_rb,1.1434e+01_rb, &\n     &7.6233e+00_rb,3.8122e+00_rb,7.3304e-04_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &3.1139e+01_rb,2.7247e+01_rb,2.3355e+01_rb,1.9463e+01_rb,1.5570e+01_rb,1.1678e+01_rb, &\n     &7.7859e+00_rb,3.8940e+00_rb,8.6573e-04_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &5.2057e-02_rb,4.6191e-02_rb,4.0791e-02_rb,3.5264e-02_rb,2.9386e-02_rb,2.3311e-02_rb, &\n     &1.6933e-02_rb,9.9741e-03_rb,9.4742e-04_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &5.1799e-02_rb,4.6370e-02_rb,4.1424e-02_rb,3.5942e-02_rb,3.0151e-02_rb,2.4090e-02_rb, &\n     &1.7827e-02_rb,1.1138e-02_rb,1.1643e-03_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &5.1774e-02_rb,4.6875e-02_rb,4.2240e-02_rb,3.6825e-02_rb,3.1105e-02_rb,2.5101e-02_rb, &\n     &1.8967e-02_rb,1.2189e-02_rb,1.4467e-03_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &5.2049e-02_rb,4.7822e-02_rb,4.3286e-02_rb,3.7962e-02_rb,3.2336e-02_rb,2.6505e-02_rb, &\n     &2.0163e-02_rb,1.3176e-02_rb,1.8457e-03_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &5.2435e-02_rb,4.8877e-02_rb,4.4449e-02_rb,3.9288e-02_rb,3.3894e-02_rb,2.7971e-02_rb, &\n     &2.1357e-02_rb,1.4142e-02_rb,2.2765e-03_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &6.9283e-02_rb,6.1124e-02_rb,5.3312e-02_rb,4.5637e-02_rb,3.7639e-02_rb,2.9444e-02_rb, &\n     &2.0926e-02_rb,1.1987e-02_rb,6.7708e-04_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &6.9230e-02_rb,6.1365e-02_rb,5.4052e-02_rb,4.6528e-02_rb,3.8569e-02_rb,3.0382e-02_rb, &\n     &2.1758e-02_rb,1.2938e-02_rb,8.4618e-04_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &6.9474e-02_rb,6.2065e-02_rb,5.5235e-02_rb,4.7695e-02_rb,3.9803e-02_rb,3.1502e-02_rb, &\n     &2.2924e-02_rb,1.3989e-02_rb,1.0726e-03_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &7.0041e-02_rb,6.3262e-02_rb,5.6631e-02_rb,4.9140e-02_rb,4.1246e-02_rb,3.2954e-02_rb, &\n     &2.4393e-02_rb,1.5061e-02_rb,1.3926e-03_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &7.0798e-02_rb,6.4648e-02_rb,5.8174e-02_rb,5.0781e-02_rb,4.2976e-02_rb,3.4744e-02_rb, &\n     &2.5864e-02_rb,1.6092e-02_rb,1.7223e-03_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &1.2468e-01_rb,1.0948e-01_rb,9.4277e-02_rb,7.9471e-02_rb,6.4703e-02_rb,4.9713e-02_rb, &\n     &3.4483e-02_rb,1.8729e-02_rb,4.6220e-04_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &1.2473e-01_rb,1.0972e-01_rb,9.4939e-02_rb,8.0505e-02_rb,6.5924e-02_rb,5.0895e-02_rb, &\n     &3.5571e-02_rb,1.9546e-02_rb,5.8785e-04_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &1.2557e-01_rb,1.1074e-01_rb,9.6443e-02_rb,8.2330e-02_rb,6.7617e-02_rb,5.2547e-02_rb, &\n     &3.6938e-02_rb,2.0666e-02_rb,7.7467e-04_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &1.2675e-01_rb,1.1231e-01_rb,9.8604e-02_rb,8.4502e-02_rb,6.9700e-02_rb,5.4472e-02_rb, &\n     &3.8553e-02_rb,2.2075e-02_rb,9.9922e-04_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &1.2846e-01_rb,1.1449e-01_rb,1.0119e-01_rb,8.7016e-02_rb,7.2084e-02_rb,5.6669e-02_rb, &\n     &4.0555e-02_rb,2.3518e-02_rb,1.2453e-03_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &2.3029e-01_rb,2.0185e-01_rb,1.7335e-01_rb,1.4485e-01_rb,1.1669e-01_rb,8.8611e-02_rb, &\n     &6.0409e-02_rb,3.1699e-02_rb,3.0371e-04_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &2.2988e-01_rb,2.0158e-01_rb,1.7329e-01_rb,1.4525e-01_rb,1.1751e-01_rb,8.9738e-02_rb, &\n     &6.1449e-02_rb,3.2569e-02_rb,4.0236e-04_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &2.3229e-01_rb,2.0393e-01_rb,1.7566e-01_rb,1.4780e-01_rb,1.2020e-01_rb,9.2062e-02_rb, &\n     &6.3397e-02_rb,3.3957e-02_rb,5.4454e-04_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &2.3507e-01_rb,2.0665e-01_rb,1.7868e-01_rb,1.5121e-01_rb,1.2350e-01_rb,9.4964e-02_rb, &\n     &6.5854e-02_rb,3.5604e-02_rb,7.0998e-04_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &2.3825e-01_rb,2.0990e-01_rb,1.8240e-01_rb,1.5515e-01_rb,1.2704e-01_rb,9.8075e-02_rb, &\n     &6.8384e-02_rb,3.7494e-02_rb,8.9536e-04_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &3.8945e-01_rb,3.4103e-01_rb,2.9259e-01_rb,2.4415e-01_rb,1.9571e-01_rb,1.4754e-01_rb, &\n     &9.9565e-02_rb,5.1352e-02_rb,2.0409e-04_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &3.8981e-01_rb,3.4147e-01_rb,2.9305e-01_rb,2.4466e-01_rb,1.9659e-01_rb,1.4875e-01_rb, &\n     &1.0088e-01_rb,5.2387e-02_rb,2.7339e-04_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &3.9497e-01_rb,3.4612e-01_rb,2.9724e-01_rb,2.4861e-01_rb,2.0028e-01_rb,1.5226e-01_rb, &\n     &1.0369e-01_rb,5.4177e-02_rb,3.7984e-04_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &4.0149e-01_rb,3.5204e-01_rb,3.0270e-01_rb,2.5382e-01_rb,2.0546e-01_rb,1.5684e-01_rb, &\n     &1.0724e-01_rb,5.6458e-02_rb,5.0160e-04_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &4.0773e-01_rb,3.5786e-01_rb,3.0839e-01_rb,2.5956e-01_rb,2.1090e-01_rb,1.6141e-01_rb, &\n     &1.1086e-01_rb,5.8838e-02_rb,6.4384e-04_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &6.2109e-01_rb,5.4370e-01_rb,4.6619e-01_rb,3.8877e-01_rb,3.1132e-01_rb,2.3383e-01_rb, &\n     &1.5671e-01_rb,7.9602e-02_rb,1.3341e-04_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &6.2314e-01_rb,5.4556e-01_rb,4.6793e-01_rb,3.9037e-01_rb,3.1270e-01_rb,2.3534e-01_rb, &\n     &1.5827e-01_rb,8.0992e-02_rb,1.8152e-04_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &6.2957e-01_rb,5.5136e-01_rb,4.7308e-01_rb,3.9475e-01_rb,3.1676e-01_rb,2.3906e-01_rb, &\n     &1.6147e-01_rb,8.3225e-02_rb,2.5970e-04_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &6.4091e-01_rb,5.6147e-01_rb,4.8196e-01_rb,4.0265e-01_rb,3.2370e-01_rb,2.4515e-01_rb, &\n     &1.6638e-01_rb,8.6255e-02_rb,3.5139e-04_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &6.5388e-01_rb,5.7307e-01_rb,4.9223e-01_rb,4.1191e-01_rb,3.3205e-01_rb,2.5237e-01_rb, &\n     &1.7171e-01_rb,8.9448e-02_rb,4.5531e-04_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &1.0457e+00_rb,9.1519e-01_rb,7.8460e-01_rb,6.5401e-01_rb,5.2349e-01_rb,3.9292e-01_rb, &\n     &2.6230e-01_rb,1.3220e-01_rb,1.0032e-04_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &1.0500e+00_rb,9.1906e-01_rb,7.8807e-01_rb,6.5699e-01_rb,5.2599e-01_rb,3.9492e-01_rb, &\n     &2.6410e-01_rb,1.3358e-01_rb,1.3899e-04_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &1.0598e+00_rb,9.2774e-01_rb,7.9565e-01_rb,6.6349e-01_rb,5.3130e-01_rb,3.9936e-01_rb, &\n     &2.6782e-01_rb,1.3620e-01_rb,1.8444e-04_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &1.0743e+00_rb,9.4059e-01_rb,8.0685e-01_rb,6.7311e-01_rb,5.3945e-01_rb,4.0621e-01_rb, &\n     &2.7331e-01_rb,1.3995e-01_rb,2.4657e-04_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &1.0996e+00_rb,9.6289e-01_rb,8.2608e-01_rb,6.8953e-01_rb,5.5342e-01_rb,4.1738e-01_rb, &\n     &2.8182e-01_rb,1.4485e-01_rb,3.2431e-04_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &2.1071e+00_rb,1.8438e+00_rb,1.5804e+00_rb,1.3173e+00_rb,1.0540e+00_rb,7.9071e-01_rb, &\n     &5.2749e-01_rb,2.6416e-01_rb,1.1085e-04_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &2.1142e+00_rb,1.8501e+00_rb,1.5861e+00_rb,1.3219e+00_rb,1.0578e+00_rb,7.9379e-01_rb, &\n     &5.2971e-01_rb,2.6585e-01_rb,1.4810e-04_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &2.1318e+00_rb,1.8656e+00_rb,1.5995e+00_rb,1.3333e+00_rb,1.0671e+00_rb,8.0094e-01_rb, &\n     &5.3475e-01_rb,2.6918e-01_rb,1.9501e-04_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &2.1555e+00_rb,1.8865e+00_rb,1.6175e+00_rb,1.3486e+00_rb,1.0795e+00_rb,8.1059e-01_rb, &\n     &5.4205e-01_rb,2.7386e-01_rb,2.4224e-04_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &2.2062e+00_rb,1.9311e+00_rb,1.6560e+00_rb,1.3807e+00_rb,1.1056e+00_rb,8.3087e-01_rb, &\n     &5.5626e-01_rb,2.8214e-01_rb,2.8558e-04_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &7.9972e+00_rb,6.9979e+00_rb,5.9979e+00_rb,4.9986e+00_rb,3.9987e+00_rb,2.9994e+00_rb, &\n     &1.9999e+00_rb,1.0002e+00_rb,1.8668e-04_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &8.0128e+00_rb,7.0114e+00_rb,6.0097e+00_rb,5.0085e+00_rb,4.0070e+00_rb,3.0056e+00_rb, &\n     &2.0042e+00_rb,1.0027e+00_rb,2.5150e-04_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &8.0805e+00_rb,7.0702e+00_rb,6.0607e+00_rb,5.0509e+00_rb,4.0412e+00_rb,3.0319e+00_rb, &\n     &2.0219e+00_rb,1.0119e+00_rb,3.0396e-04_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &8.1743e+00_rb,7.1533e+00_rb,6.1315e+00_rb,5.1108e+00_rb,4.0892e+00_rb,3.0678e+00_rb, &\n     &2.0462e+00_rb,1.0247e+00_rb,3.5321e-04_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &8.3409e+00_rb,7.2988e+00_rb,6.2567e+00_rb,5.2146e+00_rb,4.1728e+00_rb,3.1306e+00_rb, &\n     &2.0885e+00_rb,1.0471e+00_rb,4.4198e-04_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &3.3771e+01_rb,2.9548e+01_rb,2.5328e+01_rb,2.1105e+01_rb,1.6886e+01_rb,1.2665e+01_rb, &\n     &8.4427e+00_rb,4.2216e+00_rb,4.3200e-04_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &3.3810e+01_rb,2.9587e+01_rb,2.5358e+01_rb,2.1131e+01_rb,1.6905e+01_rb,1.2680e+01_rb, &\n     &8.4534e+00_rb,4.2274e+00_rb,5.4393e-04_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &3.4144e+01_rb,2.9876e+01_rb,2.5609e+01_rb,2.1340e+01_rb,1.7073e+01_rb,1.2805e+01_rb, &\n     &8.5375e+00_rb,4.2697e+00_rb,6.4726e-04_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &3.4577e+01_rb,3.0255e+01_rb,2.5934e+01_rb,2.1613e+01_rb,1.7291e+01_rb,1.2969e+01_rb, &\n     &8.6471e+00_rb,4.3251e+00_rb,7.9967e-04_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &3.5279e+01_rb,3.0869e+01_rb,2.6459e+01_rb,2.2050e+01_rb,1.7642e+01_rb,1.3232e+01_rb, &\n     &8.8233e+00_rb,4.4139e+00_rb,8.8613e-04_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &4.9379e+01_rb,4.3210e+01_rb,3.7035e+01_rb,3.0865e+01_rb,2.4692e+01_rb,1.8519e+01_rb, &\n     &1.2346e+01_rb,6.1734e+00_rb,5.9531e-04_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &4.9664e+01_rb,4.3455e+01_rb,3.7247e+01_rb,3.1040e+01_rb,2.4833e+01_rb,1.8625e+01_rb, &\n     &1.2417e+01_rb,6.2092e+00_rb,7.3911e-04_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &5.0351e+01_rb,4.4056e+01_rb,3.7762e+01_rb,3.1470e+01_rb,2.5175e+01_rb,1.8882e+01_rb, &\n     &1.2589e+01_rb,6.2954e+00_rb,9.0535e-04_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &5.1310e+01_rb,4.4899e+01_rb,3.8484e+01_rb,3.2071e+01_rb,2.5657e+01_rb,1.9244e+01_rb, &\n     &1.2831e+01_rb,6.4171e+00_rb,1.0300e-03_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &5.2691e+01_rb,4.6105e+01_rb,3.9519e+01_rb,3.2933e+01_rb,2.6348e+01_rb,1.9763e+01_rb, &\n     &1.3176e+01_rb,6.5918e+00_rb,1.3056e-03_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &5.3682e+01_rb,4.6971e+01_rb,4.0260e+01_rb,3.3552e+01_rb,2.6842e+01_rb,2.0131e+01_rb, &\n     &1.3420e+01_rb,6.7107e+00_rb,5.9618e-04_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &5.4209e+01_rb,4.7433e+01_rb,4.0657e+01_rb,3.3879e+01_rb,2.7104e+01_rb,2.0329e+01_rb, &\n     &1.3553e+01_rb,6.7772e+00_rb,7.6649e-04_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &5.5191e+01_rb,4.8293e+01_rb,4.1395e+01_rb,3.4495e+01_rb,2.7597e+01_rb,2.0697e+01_rb, &\n     &1.3799e+01_rb,6.9009e+00_rb,9.6570e-04_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &5.6606e+01_rb,4.9530e+01_rb,4.2455e+01_rb,3.5382e+01_rb,2.8306e+01_rb,2.1230e+01_rb, &\n     &1.4154e+01_rb,7.0794e+00_rb,1.1503e-03_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &5.8604e+01_rb,5.1279e+01_rb,4.3956e+01_rb,3.6631e+01_rb,2.9306e+01_rb,2.1982e+01_rb, &\n     &1.4657e+01_rb,7.3321e+00_rb,1.3037e-03_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &4.6897e+01_rb,4.1036e+01_rb,3.5173e+01_rb,2.9311e+01_rb,2.3449e+01_rb,1.7586e+01_rb, &\n     &1.1724e+01_rb,5.8626e+00_rb,5.3404e-04_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &4.7510e+01_rb,4.1569e+01_rb,3.5631e+01_rb,2.9695e+01_rb,2.3756e+01_rb,1.7817e+01_rb, &\n     &1.1878e+01_rb,5.9396e+00_rb,7.0585e-04_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &4.8599e+01_rb,4.2525e+01_rb,3.6450e+01_rb,3.0375e+01_rb,2.4299e+01_rb,1.8226e+01_rb, &\n     &1.2152e+01_rb,6.0774e+00_rb,8.6599e-04_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &5.0122e+01_rb,4.3856e+01_rb,3.7591e+01_rb,3.1328e+01_rb,2.5063e+01_rb,1.8798e+01_rb, &\n     &1.2534e+01_rb,6.2697e+00_rb,1.0053e-03_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &5.2215e+01_rb,4.5689e+01_rb,3.9164e+01_rb,3.2638e+01_rb,2.6111e+01_rb,1.9586e+01_rb, &\n     &1.3060e+01_rb,6.5334e+00_rb,1.2313e-03_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &8.2901e-02_rb,7.3924e-02_rb,6.4657e-02_rb,5.5597e-02_rb,4.6472e-02_rb,3.6796e-02_rb, &\n     &2.6709e-02_rb,1.5948e-02_rb,1.7802e-03_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &8.3370e-02_rb,7.4618e-02_rb,6.5698e-02_rb,5.7019e-02_rb,4.7812e-02_rb,3.7978e-02_rb, &\n     &2.7855e-02_rb,1.7146e-02_rb,2.3935e-03_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &8.4235e-02_rb,7.5730e-02_rb,6.7257e-02_rb,5.8667e-02_rb,4.9229e-02_rb,3.9298e-02_rb, &\n     &2.8966e-02_rb,1.8334e-02_rb,3.0382e-03_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &8.5176e-02_rb,7.7019e-02_rb,6.8972e-02_rb,6.0287e-02_rb,5.0680e-02_rb,4.0612e-02_rb, &\n     &3.0271e-02_rb,1.9679e-02_rb,3.7478e-03_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &8.6230e-02_rb,7.8450e-02_rb,7.0705e-02_rb,6.1832e-02_rb,5.2066e-02_rb,4.2065e-02_rb, &\n     &3.1638e-02_rb,2.1127e-02_rb,4.5344e-03_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &1.1319e-01_rb,1.0032e-01_rb,8.7141e-02_rb,7.4086e-02_rb,6.1196e-02_rb,4.7903e-02_rb, &\n     &3.4053e-02_rb,1.9479e-02_rb,1.3324e-03_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &1.1444e-01_rb,1.0174e-01_rb,8.8783e-02_rb,7.6019e-02_rb,6.3135e-02_rb,4.9508e-02_rb, &\n     &3.5403e-02_rb,2.0488e-02_rb,1.7827e-03_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &1.1608e-01_rb,1.0349e-01_rb,9.0802e-02_rb,7.8322e-02_rb,6.5118e-02_rb,5.1198e-02_rb, &\n     &3.6801e-02_rb,2.1623e-02_rb,2.2789e-03_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &1.1786e-01_rb,1.0545e-01_rb,9.3147e-02_rb,8.0587e-02_rb,6.7042e-02_rb,5.2943e-02_rb, &\n     &3.8201e-02_rb,2.2798e-02_rb,2.8272e-03_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &1.1969e-01_rb,1.0757e-01_rb,9.5567e-02_rb,8.2763e-02_rb,6.8961e-02_rb,5.4626e-02_rb, &\n     &3.9785e-02_rb,2.4020e-02_rb,3.4454e-03_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &2.0690e-01_rb,1.8215e-01_rb,1.5725e-01_rb,1.3219e-01_rb,1.0725e-01_rb,8.2467e-02_rb, &\n     &5.7330e-02_rb,3.1338e-02_rb,9.1573e-04_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &2.1013e-01_rb,1.8537e-01_rb,1.6026e-01_rb,1.3517e-01_rb,1.1017e-01_rb,8.5255e-02_rb, &\n     &5.9448e-02_rb,3.2689e-02_rb,1.2507e-03_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &2.1385e-01_rb,1.8904e-01_rb,1.6379e-01_rb,1.3865e-01_rb,1.1374e-01_rb,8.8133e-02_rb, &\n     &6.1604e-02_rb,3.4070e-02_rb,1.6182e-03_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &2.1772e-01_rb,1.9276e-01_rb,1.6753e-01_rb,1.4253e-01_rb,1.1723e-01_rb,9.0813e-02_rb, &\n     &6.3766e-02_rb,3.5513e-02_rb,2.0311e-03_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &2.2143e-01_rb,1.9638e-01_rb,1.7123e-01_rb,1.4633e-01_rb,1.2052e-01_rb,9.3556e-02_rb, &\n     &6.5944e-02_rb,3.7115e-02_rb,2.5088e-03_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &3.8507e-01_rb,3.3780e-01_rb,2.9048e-01_rb,2.4314e-01_rb,1.9570e-01_rb,1.4827e-01_rb, &\n     &1.0100e-01_rb,5.3296e-02_rb,6.2147e-04_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &3.9146e-01_rb,3.4379e-01_rb,2.9605e-01_rb,2.4819e-01_rb,2.0018e-01_rb,1.5228e-01_rb, &\n     &1.0449e-01_rb,5.5540e-02_rb,8.6088e-04_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &3.9930e-01_rb,3.5111e-01_rb,3.0278e-01_rb,2.5411e-01_rb,2.0550e-01_rb,1.5718e-01_rb, &\n     &1.0825e-01_rb,5.7768e-02_rb,1.1308e-03_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &4.0750e-01_rb,3.5883e-01_rb,3.0957e-01_rb,2.6026e-01_rb,2.1112e-01_rb,1.6215e-01_rb, &\n     &1.1175e-01_rb,5.9905e-02_rb,1.4435e-03_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &4.1540e-01_rb,3.6624e-01_rb,3.1618e-01_rb,2.6641e-01_rb,2.1709e-01_rb,1.6699e-01_rb, &\n     &1.1521e-01_rb,6.2079e-02_rb,1.8081e-03_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &6.6039e-01_rb,5.7849e-01_rb,4.9659e-01_rb,4.1465e-01_rb,3.3268e-01_rb,2.5068e-01_rb, &\n     &1.6878e-01_rb,8.6906e-02_rb,4.1392e-04_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &6.7138e-01_rb,5.8843e-01_rb,5.0538e-01_rb,4.2238e-01_rb,3.3940e-01_rb,2.5633e-01_rb, &\n     &1.7334e-01_rb,9.0010e-02_rb,5.9039e-04_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &6.8434e-01_rb,6.0014e-01_rb,5.1596e-01_rb,4.3167e-01_rb,3.4721e-01_rb,2.6273e-01_rb, &\n     &1.7850e-01_rb,9.3277e-02_rb,7.8856e-04_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &6.9935e-01_rb,6.1381e-01_rb,5.2821e-01_rb,4.4224e-01_rb,3.5606e-01_rb,2.7005e-01_rb, &\n     &1.8435e-01_rb,9.6630e-02_rb,1.0256e-03_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &7.1524e-01_rb,6.2827e-01_rb,5.4104e-01_rb,4.5319e-01_rb,3.6550e-01_rb,2.7828e-01_rb, &\n     &1.9025e-01_rb,9.9988e-02_rb,1.3023e-03_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &1.0605e+00_rb,9.2835e-01_rb,7.9638e-01_rb,6.6416e-01_rb,5.3204e-01_rb,3.9988e-01_rb, &\n     &2.6772e-01_rb,1.3599e-01_rb,2.6665e-04_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &1.0793e+00_rb,9.4508e-01_rb,8.1097e-01_rb,6.7669e-01_rb,5.4239e-01_rb,4.0816e-01_rb, &\n     &2.7396e-01_rb,1.4011e-01_rb,3.9578e-04_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &1.0996e+00_rb,9.6312e-01_rb,8.2674e-01_rb,6.9026e-01_rb,5.5385e-01_rb,4.1734e-01_rb, &\n     &2.8093e-01_rb,1.4437e-01_rb,5.4281e-04_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &1.1270e+00_rb,9.8758e-01_rb,8.4814e-01_rb,7.0877e-01_rb,5.6910e-01_rb,4.2937e-01_rb, &\n     &2.8968e-01_rb,1.4948e-01_rb,7.1692e-04_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &1.1549e+00_rb,1.0125e+00_rb,8.7022e-01_rb,7.2764e-01_rb,5.8478e-01_rb,4.4170e-01_rb, &\n     &2.9907e-01_rb,1.5477e-01_rb,9.2735e-04_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &1.7902e+00_rb,1.5666e+00_rb,1.3432e+00_rb,1.1198e+00_rb,8.9630e-01_rb,6.7291e-01_rb, &\n     &4.4939e-01_rb,2.2594e-01_rb,1.7788e-04_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &1.8253e+00_rb,1.5977e+00_rb,1.3701e+00_rb,1.1424e+00_rb,9.1476e-01_rb,6.8709e-01_rb, &\n     &4.5936e-01_rb,2.3207e-01_rb,2.6007e-04_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &1.8661e+00_rb,1.6335e+00_rb,1.4010e+00_rb,1.1685e+00_rb,9.3601e-01_rb,7.0359e-01_rb, &\n     &4.7118e-01_rb,2.3911e-01_rb,3.6579e-04_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &1.9131e+00_rb,1.6751e+00_rb,1.4368e+00_rb,1.1989e+00_rb,9.6095e-01_rb,7.2299e-01_rb, &\n     &4.8503e-01_rb,2.4706e-01_rb,4.9009e-04_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &1.9618e+00_rb,1.7182e+00_rb,1.4745e+00_rb,1.2310e+00_rb,9.8739e-01_rb,7.4364e-01_rb, &\n     &4.9951e-01_rb,2.5543e-01_rb,6.4417e-04_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &3.6222e+00_rb,3.1697e+00_rb,2.7175e+00_rb,2.2647e+00_rb,1.8122e+00_rb,1.3595e+00_rb, &\n     &9.0703e-01_rb,4.5436e-01_rb,1.7700e-04_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &3.6989e+00_rb,3.2367e+00_rb,2.7747e+00_rb,2.3129e+00_rb,1.8509e+00_rb,1.3888e+00_rb, &\n     &9.2689e-01_rb,4.6487e-01_rb,2.2396e-04_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &3.7900e+00_rb,3.3168e+00_rb,2.8434e+00_rb,2.3702e+00_rb,1.8972e+00_rb,1.4240e+00_rb, &\n     &9.5085e-01_rb,4.7797e-01_rb,2.7417e-04_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &3.8908e+00_rb,3.4054e+00_rb,2.9198e+00_rb,2.4343e+00_rb,1.9488e+00_rb,1.4634e+00_rb, &\n     &9.7805e-01_rb,4.9296e-01_rb,3.4875e-04_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &3.9856e+00_rb,3.4886e+00_rb,2.9916e+00_rb,2.4947e+00_rb,1.9978e+00_rb,1.5012e+00_rb, &\n     &1.0044e+00_rb,5.0758e-01_rb,4.5934e-04_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &1.3794e+01_rb,1.2070e+01_rb,1.0346e+01_rb,8.6224e+00_rb,6.8983e+00_rb,5.1738e+00_rb, &\n     &3.4497e+00_rb,1.7256e+00_rb,2.3317e-04_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &1.4093e+01_rb,1.2332e+01_rb,1.0571e+01_rb,8.8090e+00_rb,7.0478e+00_rb,5.2864e+00_rb, &\n     &3.5250e+00_rb,1.7636e+00_rb,2.9550e-04_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &1.4464e+01_rb,1.2658e+01_rb,1.0848e+01_rb,9.0415e+00_rb,7.2337e+00_rb,5.4264e+00_rb, &\n     &3.6184e+00_rb,1.8107e+00_rb,3.8639e-04_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &1.4855e+01_rb,1.2999e+01_rb,1.1143e+01_rb,9.2862e+00_rb,7.4306e+00_rb,5.5737e+00_rb, &\n     &3.7173e+00_rb,1.8614e+00_rb,5.0786e-04_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &1.5210e+01_rb,1.3311e+01_rb,1.1410e+01_rb,9.5097e+00_rb,7.6091e+00_rb,5.7087e+00_rb, &\n     &3.8087e+00_rb,1.9087e+00_rb,5.8982e-04_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &5.8496e+01_rb,5.1180e+01_rb,4.3867e+01_rb,3.6556e+01_rb,2.9247e+01_rb,2.1935e+01_rb, &\n     &1.4623e+01_rb,7.3123e+00_rb,5.6403e-04_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &5.9786e+01_rb,5.2317e+01_rb,4.4840e+01_rb,3.7369e+01_rb,2.9895e+01_rb,2.2423e+01_rb, &\n     &1.4947e+01_rb,7.4749e+00_rb,6.9685e-04_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &6.1366e+01_rb,5.3692e+01_rb,4.6022e+01_rb,3.8353e+01_rb,3.0682e+01_rb,2.3012e+01_rb, &\n     &1.5344e+01_rb,7.6729e+00_rb,8.6661e-04_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &6.3002e+01_rb,5.5128e+01_rb,4.7254e+01_rb,3.9377e+01_rb,3.1505e+01_rb,2.3630e+01_rb, &\n     &1.5753e+01_rb,7.8780e+00_rb,1.0403e-03_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &6.4493e+01_rb,5.6436e+01_rb,4.8374e+01_rb,4.0310e+01_rb,3.2253e+01_rb,2.4189e+01_rb, &\n     &1.6127e+01_rb,8.0668e+00_rb,1.2361e-03_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &8.7182e+01_rb,7.6287e+01_rb,6.5394e+01_rb,5.4493e+01_rb,4.3594e+01_rb,3.2696e+01_rb, &\n     &2.1798e+01_rb,1.0900e+01_rb,7.4362e-04_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &8.9336e+01_rb,7.8172e+01_rb,6.7002e+01_rb,5.5836e+01_rb,4.4668e+01_rb,3.3502e+01_rb, &\n     &2.2335e+01_rb,1.1168e+01_rb,9.0702e-04_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &9.1581e+01_rb,8.0131e+01_rb,6.8688e+01_rb,5.7237e+01_rb,4.5792e+01_rb,3.4345e+01_rb, &\n     &2.2896e+01_rb,1.1449e+01_rb,1.0809e-03_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &9.3839e+01_rb,8.2107e+01_rb,7.0383e+01_rb,5.8658e+01_rb,4.6921e+01_rb,3.5193e+01_rb, &\n     &2.3462e+01_rb,1.1732e+01_rb,1.3235e-03_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &9.5958e+01_rb,8.3967e+01_rb,7.1970e+01_rb,5.9973e+01_rb,4.7982e+01_rb,3.5987e+01_rb, &\n     &2.3994e+01_rb,1.1998e+01_rb,1.5458e-03_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &9.6680e+01_rb,8.4597e+01_rb,7.2516e+01_rb,6.0430e+01_rb,4.8347e+01_rb,3.6257e+01_rb, &\n     &2.4172e+01_rb,1.2087e+01_rb,8.8792e-04_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &9.9039e+01_rb,8.6662e+01_rb,7.4284e+01_rb,6.1903e+01_rb,4.9522e+01_rb,3.7144e+01_rb, &\n     &2.4762e+01_rb,1.2382e+01_rb,1.0348e-03_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &1.0152e+02_rb,8.8834e+01_rb,7.6150e+01_rb,6.3450e+01_rb,5.0765e+01_rb,3.8071e+01_rb, &\n     &2.5383e+01_rb,1.2692e+01_rb,1.2734e-03_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &1.0389e+02_rb,9.0902e+01_rb,7.7912e+01_rb,6.4935e+01_rb,5.1946e+01_rb,3.8960e+01_rb, &\n     &2.5973e+01_rb,1.2989e+01_rb,1.5461e-03_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &1.0614e+02_rb,9.2872e+01_rb,7.9616e+01_rb,6.6343e+01_rb,5.3076e+01_rb,3.9807e+01_rb, &\n     &2.6538e+01_rb,1.3271e+01_rb,1.7863e-03_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &8.5924e+01_rb,7.5190e+01_rb,6.4446e+01_rb,5.3705e+01_rb,4.2964e+01_rb,3.2222e+01_rb, &\n     &2.1482e+01_rb,1.0742e+01_rb,9.3650e-04_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &8.8011e+01_rb,7.7009e+01_rb,6.6010e+01_rb,5.5012e+01_rb,4.4009e+01_rb,3.3008e+01_rb, &\n     &2.2004e+01_rb,1.1003e+01_rb,1.0453e-03_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &9.0165e+01_rb,7.8893e+01_rb,6.7623e+01_rb,5.6350e+01_rb,4.5080e+01_rb,3.3811e+01_rb, &\n     &2.2542e+01_rb,1.1273e+01_rb,1.2632e-03_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &9.2294e+01_rb,8.0759e+01_rb,6.9218e+01_rb,5.7683e+01_rb,4.6146e+01_rb,3.4609e+01_rb, &\n     &2.3075e+01_rb,1.1539e+01_rb,1.5901e-03_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &9.4515e+01_rb,8.2699e+01_rb,7.0891e+01_rb,5.9075e+01_rb,4.7260e+01_rb,3.5445e+01_rb, &\n     &2.3631e+01_rb,1.1818e+01_rb,1.9283e-03_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &1.3664e-01_rb,1.2142e-01_rb,1.0604e-01_rb,9.0673e-02_rb,7.5307e-02_rb,5.9951e-02_rb, &\n     &4.4049e-02_rb,2.7037e-02_rb,3.4200e-03_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &1.3479e-01_rb,1.2041e-01_rb,1.0581e-01_rb,9.1114e-02_rb,7.6669e-02_rb,6.1851e-02_rb, &\n     &4.6009e-02_rb,2.9151e-02_rb,4.4244e-03_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &1.3313e-01_rb,1.1956e-01_rb,1.0561e-01_rb,9.1887e-02_rb,7.8237e-02_rb,6.3771e-02_rb, &\n     &4.8109e-02_rb,3.1604e-02_rb,5.5644e-03_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &1.3195e-01_rb,1.1904e-01_rb,1.0583e-01_rb,9.3212e-02_rb,7.9889e-02_rb,6.5652e-02_rb, &\n     &5.0318e-02_rb,3.4334e-02_rb,6.8097e-03_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &1.3100e-01_rb,1.1871e-01_rb,1.0645e-01_rb,9.4491e-02_rb,8.1510e-02_rb,6.7455e-02_rb, &\n     &5.2648e-02_rb,3.7142e-02_rb,8.1798e-03_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &1.8948e-01_rb,1.6745e-01_rb,1.4512e-01_rb,1.2300e-01_rb,1.0098e-01_rb,7.9021e-02_rb, &\n     &5.6595e-02_rb,3.3068e-02_rb,2.5064e-03_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &1.8719e-01_rb,1.6582e-01_rb,1.4439e-01_rb,1.2310e-01_rb,1.0186e-01_rb,8.0667e-02_rb, &\n     &5.8428e-02_rb,3.4918e-02_rb,3.2805e-03_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &1.8550e-01_rb,1.6475e-01_rb,1.4416e-01_rb,1.2351e-01_rb,1.0330e-01_rb,8.2465e-02_rb, &\n     &6.0314e-02_rb,3.6962e-02_rb,4.1499e-03_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &1.8451e-01_rb,1.6460e-01_rb,1.4454e-01_rb,1.2487e-01_rb,1.0515e-01_rb,8.4419e-02_rb, &\n     &6.2353e-02_rb,3.9320e-02_rb,5.1265e-03_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &1.8423e-01_rb,1.6501e-01_rb,1.4553e-01_rb,1.2672e-01_rb,1.0715e-01_rb,8.6338e-02_rb, &\n     &6.4353e-02_rb,4.1893e-02_rb,6.2102e-03_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &3.5249e-01_rb,3.0976e-01_rb,2.6683e-01_rb,2.2378e-01_rb,1.8098e-01_rb,1.3846e-01_rb, &\n     &9.6219e-02_rb,5.2862e-02_rb,1.7476e-03_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &3.4945e-01_rb,3.0729e-01_rb,2.6503e-01_rb,2.2304e-01_rb,1.8135e-01_rb,1.3971e-01_rb, &\n     &9.8147e-02_rb,5.4704e-02_rb,2.3082e-03_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &3.4786e-01_rb,3.0616e-01_rb,2.6475e-01_rb,2.2367e-01_rb,1.8257e-01_rb,1.4178e-01_rb, &\n     &1.0043e-01_rb,5.6633e-02_rb,2.9556e-03_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &3.4805e-01_rb,3.0690e-01_rb,2.6623e-01_rb,2.2552e-01_rb,1.8508e-01_rb,1.4480e-01_rb, &\n     &1.0306e-01_rb,5.8846e-02_rb,3.6970e-03_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &3.5013e-01_rb,3.0948e-01_rb,2.6918e-01_rb,2.2850e-01_rb,1.8865e-01_rb,1.4799e-01_rb, &\n     &1.0568e-01_rb,6.1131e-02_rb,4.5281e-03_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &6.6623e-01_rb,5.8386e-01_rb,5.0153e-01_rb,4.1899e-01_rb,3.3640e-01_rb,2.5407e-01_rb, &\n     &1.7225e-01_rb,9.1058e-02_rb,1.1958e-03_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &6.6340e-01_rb,5.8167e-01_rb,4.9974e-01_rb,4.1776e-01_rb,3.3619e-01_rb,2.5503e-01_rb, &\n     &1.7423e-01_rb,9.3289e-02_rb,1.6080e-03_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &6.6480e-01_rb,5.8306e-01_rb,5.0121e-01_rb,4.1990e-01_rb,3.3893e-01_rb,2.5818e-01_rb, &\n     &1.7768e-01_rb,9.5987e-02_rb,2.0929e-03_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &6.7003e-01_rb,5.8789e-01_rb,5.0627e-01_rb,4.2518e-01_rb,3.4417e-01_rb,2.6306e-01_rb, &\n     &1.8230e-01_rb,9.9134e-02_rb,2.6527e-03_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &6.7815e-01_rb,5.9566e-01_rb,5.1416e-01_rb,4.3281e-01_rb,3.5098e-01_rb,2.6952e-01_rb, &\n     &1.8764e-01_rb,1.0249e-01_rb,3.2896e-03_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &1.1550e+00_rb,1.0112e+00_rb,8.6772e-01_rb,7.2399e-01_rb,5.8018e-01_rb,4.3620e-01_rb, &\n     &2.9244e-01_rb,1.4976e-01_rb,8.1069e-04_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &1.1564e+00_rb,1.0128e+00_rb,8.6891e-01_rb,7.2534e-01_rb,5.8147e-01_rb,4.3781e-01_rb, &\n     &2.9477e-01_rb,1.5282e-01_rb,1.1157e-03_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &1.1669e+00_rb,1.0223e+00_rb,8.7752e-01_rb,7.3265e-01_rb,5.8799e-01_rb,4.4399e-01_rb, &\n     &3.0054e-01_rb,1.5735e-01_rb,1.4779e-03_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &1.1830e+00_rb,1.0368e+00_rb,8.9030e-01_rb,7.4407e-01_rb,5.9861e-01_rb,4.5354e-01_rb, &\n     &3.0826e-01_rb,1.6275e-01_rb,1.9001e-03_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &1.2016e+00_rb,1.0534e+00_rb,9.0529e-01_rb,7.5813e-01_rb,6.1140e-01_rb,4.6432e-01_rb, &\n     &3.1746e-01_rb,1.6866e-01_rb,2.3885e-03_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &1.8728e+00_rb,1.6394e+00_rb,1.4057e+00_rb,1.1724e+00_rb,9.3873e-01_rb,7.0502e-01_rb, &\n     &4.7119e-01_rb,2.3746e-01_rb,5.3401e-04_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &1.8855e+00_rb,1.6506e+00_rb,1.4159e+00_rb,1.1808e+00_rb,9.4575e-01_rb,7.1049e-01_rb, &\n     &4.7534e-01_rb,2.4122e-01_rb,7.5510e-04_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &1.9127e+00_rb,1.6747e+00_rb,1.4367e+00_rb,1.1985e+00_rb,9.6017e-01_rb,7.2202e-01_rb, &\n     &4.8438e-01_rb,2.4807e-01_rb,1.0228e-03_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &1.9458e+00_rb,1.7041e+00_rb,1.4622e+00_rb,1.2202e+00_rb,9.7826e-01_rb,7.3694e-01_rb, &\n     &4.9644e-01_rb,2.5634e-01_rb,1.3413e-03_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &1.9819e+00_rb,1.7360e+00_rb,1.4899e+00_rb,1.2440e+00_rb,9.9883e-01_rb,7.5442e-01_rb, &\n     &5.0981e-01_rb,2.6524e-01_rb,1.7130e-03_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &3.1956e+00_rb,2.7964e+00_rb,2.3973e+00_rb,1.9983e+00_rb,1.5994e+00_rb,1.2005e+00_rb, &\n     &8.0140e-01_rb,4.0204e-01_rb,3.4739e-04_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &3.2319e+00_rb,2.8287e+00_rb,2.4254e+00_rb,2.0219e+00_rb,1.6186e+00_rb,1.2150e+00_rb, &\n     &8.1138e-01_rb,4.0767e-01_rb,4.9767e-04_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &3.2870e+00_rb,2.8773e+00_rb,2.4673e+00_rb,2.0573e+00_rb,1.6471e+00_rb,1.2367e+00_rb, &\n     &8.2648e-01_rb,4.1699e-01_rb,6.8883e-04_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &3.3536e+00_rb,2.9357e+00_rb,2.5178e+00_rb,2.0997e+00_rb,1.6816e+00_rb,1.2633e+00_rb, &\n     &8.4550e-01_rb,4.2915e-01_rb,9.2075e-04_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &3.4247e+00_rb,2.9983e+00_rb,2.5718e+00_rb,2.1451e+00_rb,1.7185e+00_rb,1.2924e+00_rb, &\n     &8.6745e-01_rb,4.4266e-01_rb,1.1994e-03_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &6.5522e+00_rb,5.7333e+00_rb,4.9154e+00_rb,4.0958e+00_rb,3.2773e+00_rb,2.4586e+00_rb, &\n     &1.6399e+00_rb,8.2128e-01_rb,2.5000e-04_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &6.6534e+00_rb,5.8224e+00_rb,4.9909e+00_rb,4.1598e+00_rb,3.3284e+00_rb,2.4975e+00_rb, &\n     &1.6667e+00_rb,8.3486e-01_rb,3.5933e-04_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &6.7871e+00_rb,5.9396e+00_rb,5.0919e+00_rb,4.2443e+00_rb,3.3968e+00_rb,2.5492e+00_rb, &\n     &1.7012e+00_rb,8.5283e-01_rb,4.9387e-04_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &6.9317e+00_rb,6.0662e+00_rb,5.2009e+00_rb,4.3357e+00_rb,3.4705e+00_rb,2.6048e+00_rb, &\n     &1.7389e+00_rb,8.7334e-01_rb,6.4756e-04_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &7.0935e+00_rb,6.2081e+00_rb,5.3230e+00_rb,4.4380e+00_rb,3.5524e+00_rb,2.6671e+00_rb, &\n     &1.7815e+00_rb,8.9762e-01_rb,8.2195e-04_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &2.5444e+01_rb,2.2265e+01_rb,1.9084e+01_rb,1.5904e+01_rb,1.2723e+01_rb,9.5428e+00_rb, &\n     &6.3622e+00_rb,3.1820e+00_rb,4.0178e-04_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &2.5907e+01_rb,2.2668e+01_rb,1.9432e+01_rb,1.6194e+01_rb,1.2956e+01_rb,9.7177e+00_rb, &\n     &6.4794e+00_rb,3.2416e+00_rb,4.9820e-04_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &2.6491e+01_rb,2.3181e+01_rb,1.9870e+01_rb,1.6559e+01_rb,1.3249e+01_rb,9.9392e+00_rb, &\n     &6.6274e+00_rb,3.3163e+00_rb,5.8675e-04_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &2.7100e+01_rb,2.3714e+01_rb,2.0326e+01_rb,1.6941e+01_rb,1.3555e+01_rb,1.0168e+01_rb, &\n     &6.7813e+00_rb,3.3943e+00_rb,7.0841e-04_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &2.7765e+01_rb,2.4297e+01_rb,2.0827e+01_rb,1.7358e+01_rb,1.3889e+01_rb,1.0420e+01_rb, &\n     &6.9499e+00_rb,3.4794e+00_rb,8.5424e-04_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &1.1023e+02_rb,9.6432e+01_rb,8.2664e+01_rb,6.8898e+01_rb,5.5114e+01_rb,4.1339e+01_rb, &\n     &2.7555e+01_rb,1.3778e+01_rb,8.1537e-04_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &1.1247e+02_rb,9.8427e+01_rb,8.4346e+01_rb,7.0300e+01_rb,5.6236e+01_rb,4.2180e+01_rb, &\n     &2.8118e+01_rb,1.4061e+01_rb,9.9310e-04_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &1.1514e+02_rb,1.0076e+02_rb,8.6358e+01_rb,7.1971e+01_rb,5.7576e+01_rb,4.3183e+01_rb, &\n     &2.8789e+01_rb,1.4396e+01_rb,1.1831e-03_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &1.1802e+02_rb,1.0327e+02_rb,8.8510e+01_rb,7.3765e+01_rb,5.9016e+01_rb,4.4263e+01_rb, &\n     &2.9511e+01_rb,1.4759e+01_rb,1.3868e-03_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &1.2130e+02_rb,1.0614e+02_rb,9.0978e+01_rb,7.5815e+01_rb,6.0657e+01_rb,4.5493e+01_rb, &\n     &3.0333e+01_rb,1.5172e+01_rb,1.7070e-03_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &1.6690e+02_rb,1.4603e+02_rb,1.2516e+02_rb,1.0431e+02_rb,8.3442e+01_rb,6.2583e+01_rb, &\n     &4.1722e+01_rb,2.0862e+01_rb,1.5727e-03_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &1.7086e+02_rb,1.4949e+02_rb,1.2814e+02_rb,1.0678e+02_rb,8.5424e+01_rb,6.4067e+01_rb, &\n     &4.2718e+01_rb,2.1360e+01_rb,1.6234e-03_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &1.7519e+02_rb,1.5329e+02_rb,1.3139e+02_rb,1.0949e+02_rb,8.7589e+01_rb,6.5698e+01_rb, &\n     &4.3799e+01_rb,2.1903e+01_rb,1.7884e-03_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &1.8016e+02_rb,1.5762e+02_rb,1.3510e+02_rb,1.1259e+02_rb,9.0076e+01_rb,6.7557e+01_rb, &\n     &4.5039e+01_rb,2.2524e+01_rb,2.1215e-03_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &1.8518e+02_rb,1.6203e+02_rb,1.3888e+02_rb,1.1573e+02_rb,9.2591e+01_rb,6.9449e+01_rb, &\n     &4.6302e+01_rb,2.3157e+01_rb,2.4813e-03_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &1.8707e+02_rb,1.6368e+02_rb,1.4030e+02_rb,1.1692e+02_rb,9.3541e+01_rb,7.0153e+01_rb, &\n     &4.6766e+01_rb,2.3384e+01_rb,1.9770e-03_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &1.9183e+02_rb,1.6788e+02_rb,1.4389e+02_rb,1.1990e+02_rb,9.5932e+01_rb,7.1949e+01_rb, &\n     &4.7966e+01_rb,2.3985e+01_rb,2.1043e-03_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &1.9710e+02_rb,1.7246e+02_rb,1.4784e+02_rb,1.2320e+02_rb,9.8552e+01_rb,7.3917e+01_rb, &\n     &4.9278e+01_rb,2.4644e+01_rb,2.2289e-03_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &2.0265e+02_rb,1.7731e+02_rb,1.5198e+02_rb,1.2666e+02_rb,1.0133e+02_rb,7.5997e+01_rb, &\n     &5.0665e+01_rb,2.5338e+01_rb,2.5070e-03_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &2.0830e+02_rb,1.8227e+02_rb,1.5623e+02_rb,1.3019e+02_rb,1.0416e+02_rb,7.8120e+01_rb, &\n     &5.2086e+01_rb,2.6047e+01_rb,2.9426e-03_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &1.6768e+02_rb,1.4672e+02_rb,1.2576e+02_rb,1.0480e+02_rb,8.3836e+01_rb,6.2874e+01_rb, &\n     &4.1918e+01_rb,2.0960e+01_rb,1.9900e-03_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &1.7225e+02_rb,1.5072e+02_rb,1.2919e+02_rb,1.0767e+02_rb,8.6132e+01_rb,6.4601e+01_rb, &\n     &4.3064e+01_rb,2.1534e+01_rb,2.2115e-03_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &1.7710e+02_rb,1.5497e+02_rb,1.3283e+02_rb,1.1069e+02_rb,8.8549e+01_rb,6.6413e+01_rb, &\n     &4.4281e+01_rb,2.2144e+01_rb,2.4087e-03_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &1.8201e+02_rb,1.5926e+02_rb,1.3651e+02_rb,1.1376e+02_rb,9.1007e+01_rb,6.8257e+01_rb, &\n     &4.5512e+01_rb,2.2758e+01_rb,2.6872e-03_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &1.8703e+02_rb,1.6366e+02_rb,1.4029e+02_rb,1.1690e+02_rb,9.3529e+01_rb,7.0144e+01_rb, &\n     &4.6769e+01_rb,2.3390e+01_rb,2.9430e-03_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &2.6412e-01_rb,2.3209e-01_rb,2.0136e-01_rb,1.7041e-01_rb,1.3987e-01_rb,1.0997e-01_rb, &\n     &7.9977e-02_rb,4.8294e-02_rb,7.1406e-03_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &2.6114e-01_rb,2.3041e-01_rb,2.0084e-01_rb,1.7141e-01_rb,1.4253e-01_rb,1.1370e-01_rb, &\n     &8.4426e-02_rb,5.2292e-02_rb,9.2339e-03_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &2.5746e-01_rb,2.2846e-01_rb,2.0043e-01_rb,1.7294e-01_rb,1.4558e-01_rb,1.1774e-01_rb, &\n     &8.8686e-02_rb,5.6161e-02_rb,1.1607e-02_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &2.5329e-01_rb,2.2641e-01_rb,2.0046e-01_rb,1.7465e-01_rb,1.4868e-01_rb,1.2202e-01_rb, &\n     &9.2933e-02_rb,6.0129e-02_rb,1.4258e-02_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &2.4914e-01_rb,2.2449e-01_rb,2.0080e-01_rb,1.7670e-01_rb,1.5234e-01_rb,1.2632e-01_rb, &\n     &9.7469e-02_rb,6.4803e-02_rb,1.7193e-02_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &3.8226e-01_rb,3.3530e-01_rb,2.8943e-01_rb,2.4384e-01_rb,1.9786e-01_rb,1.5259e-01_rb, &\n     &1.0817e-01_rb,6.3161e-02_rb,5.4372e-03_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &3.7769e-01_rb,3.3226e-01_rb,2.8798e-01_rb,2.4326e-01_rb,1.9923e-01_rb,1.5589e-01_rb, &\n     &1.1262e-01_rb,6.7329e-02_rb,7.0870e-03_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &3.7182e-01_rb,3.2842e-01_rb,2.8559e-01_rb,2.4304e-01_rb,2.0123e-01_rb,1.5952e-01_rb, &\n     &1.1734e-01_rb,7.1516e-02_rb,8.9693e-03_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &3.6545e-01_rb,3.2421e-01_rb,2.8324e-01_rb,2.4318e-01_rb,2.0343e-01_rb,1.6337e-01_rb, &\n     &1.2179e-01_rb,7.5704e-02_rb,1.1062e-02_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &3.5934e-01_rb,3.2018e-01_rb,2.8184e-01_rb,2.4404e-01_rb,2.0628e-01_rb,1.6781e-01_rb, &\n     &1.2654e-01_rb,8.0391e-02_rb,1.3382e-02_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &7.3419e-01_rb,6.4302e-01_rb,5.5249e-01_rb,4.6249e-01_rb,3.7279e-01_rb,2.8244e-01_rb, &\n     &1.9254e-01_rb,1.0461e-01_rb,3.8320e-03_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &7.2438e-01_rb,6.3531e-01_rb,5.4697e-01_rb,4.5910e-01_rb,3.7055e-01_rb,2.8234e-01_rb, &\n     &1.9553e-01_rb,1.0953e-01_rb,5.0607e-03_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &7.1308e-01_rb,6.2644e-01_rb,5.4060e-01_rb,4.5437e-01_rb,3.6826e-01_rb,2.8333e-01_rb, &\n     &1.9916e-01_rb,1.1441e-01_rb,6.4784e-03_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &7.0097e-01_rb,6.1696e-01_rb,5.3353e-01_rb,4.4963e-01_rb,3.6700e-01_rb,2.8530e-01_rb, &\n     &2.0351e-01_rb,1.1914e-01_rb,8.0908e-03_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &6.8962e-01_rb,6.0838e-01_rb,5.2688e-01_rb,4.4648e-01_rb,3.6708e-01_rb,2.8814e-01_rb, &\n     &2.0859e-01_rb,1.2387e-01_rb,9.8988e-03_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &1.4238e+00_rb,1.2465e+00_rb,1.0693e+00_rb,8.9242e-01_rb,7.1591e-01_rb,5.3976e-01_rb, &\n     &3.6322e-01_rb,1.8668e-01_rb,2.6351e-03_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &1.4051e+00_rb,1.2306e+00_rb,1.0566e+00_rb,8.8285e-01_rb,7.0951e-01_rb,5.3582e-01_rb, &\n     &3.6165e-01_rb,1.8980e-01_rb,3.5337e-03_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &1.3826e+00_rb,1.2117e+00_rb,1.0413e+00_rb,8.7137e-01_rb,7.0120e-01_rb,5.3024e-01_rb, &\n     &3.6085e-01_rb,1.9367e-01_rb,4.5912e-03_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &1.3609e+00_rb,1.1937e+00_rb,1.0271e+00_rb,8.6049e-01_rb,6.9280e-01_rb,5.2650e-01_rb, &\n     &3.6231e-01_rb,1.9848e-01_rb,5.8142e-03_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &1.3409e+00_rb,1.1773e+00_rb,1.0140e+00_rb,8.4932e-01_rb,6.8606e-01_rb,5.2486e-01_rb, &\n     &3.6482e-01_rb,2.0369e-01_rb,7.2048e-03_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &2.5206e+00_rb,2.2062e+00_rb,1.8917e+00_rb,1.5773e+00_rb,1.2631e+00_rb,9.4923e-01_rb, &\n     &6.3588e-01_rb,3.2194e-01_rb,1.8039e-03_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &2.4864e+00_rb,2.1765e+00_rb,1.8669e+00_rb,1.5575e+00_rb,1.2483e+00_rb,9.3953e-01_rb, &\n     &6.3051e-01_rb,3.2080e-01_rb,2.4598e-03_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &2.4502e+00_rb,2.1455e+00_rb,1.8410e+00_rb,1.5370e+00_rb,1.2333e+00_rb,9.2942e-01_rb, &\n     &6.2403e-01_rb,3.2160e-01_rb,3.2471e-03_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &2.4176e+00_rb,2.1177e+00_rb,1.8181e+00_rb,1.5189e+00_rb,1.2193e+00_rb,9.1845e-01_rb, &\n     &6.1937e-01_rb,3.2415e-01_rb,4.1727e-03_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &2.3943e+00_rb,2.0977e+00_rb,1.8015e+00_rb,1.5055e+00_rb,1.2082e+00_rb,9.1210e-01_rb, &\n     &6.1892e-01_rb,3.2856e-01_rb,5.2383e-03_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &4.1535e+00_rb,3.6349e+00_rb,3.1163e+00_rb,2.5976e+00_rb,2.0789e+00_rb,1.5604e+00_rb, &\n     &1.0424e+00_rb,5.2499e-01_rb,1.2119e-03_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &4.0999e+00_rb,3.5882e+00_rb,3.0765e+00_rb,2.5650e+00_rb,2.0536e+00_rb,1.5426e+00_rb, &\n     &1.0319e+00_rb,5.2076e-01_rb,1.6878e-03_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &4.0501e+00_rb,3.5452e+00_rb,3.0400e+00_rb,2.5354e+00_rb,2.0310e+00_rb,1.5269e+00_rb, &\n     &1.0226e+00_rb,5.1681e-01_rb,2.2703e-03_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &4.0172e+00_rb,3.5170e+00_rb,3.0163e+00_rb,2.5163e+00_rb,2.0166e+00_rb,1.5168e+00_rb, &\n     &1.0153e+00_rb,5.1695e-01_rb,2.9634e-03_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &4.0047e+00_rb,3.5059e+00_rb,3.0081e+00_rb,2.5099e+00_rb,2.0120e+00_rb,1.5128e+00_rb, &\n     &1.0149e+00_rb,5.2194e-01_rb,3.7748e-03_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &7.1454e+00_rb,6.2526e+00_rb,5.3597e+00_rb,4.4669e+00_rb,3.5744e+00_rb,2.6816e+00_rb, &\n     &1.7891e+00_rb,8.9724e-01_rb,7.5005e-04_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &7.0662e+00_rb,6.1833e+00_rb,5.3006e+00_rb,4.4177e+00_rb,3.5356e+00_rb,2.6534e+00_rb, &\n     &1.7715e+00_rb,8.9007e-01_rb,1.0984e-03_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &7.0091e+00_rb,6.1337e+00_rb,5.2586e+00_rb,4.3836e+00_rb,3.5085e+00_rb,2.6339e+00_rb, &\n     &1.7596e+00_rb,8.8470e-01_rb,1.5427e-03_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &6.9967e+00_rb,6.1229e+00_rb,5.2499e+00_rb,4.3767e+00_rb,3.5037e+00_rb,2.6314e+00_rb, &\n     &1.7589e+00_rb,8.8464e-01_rb,2.0814e-03_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &7.0262e+00_rb,6.1495e+00_rb,5.2733e+00_rb,4.3969e+00_rb,3.5208e+00_rb,2.6451e+00_rb, &\n     &1.7672e+00_rb,8.9234e-01_rb,2.7067e-03_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &1.4691e+01_rb,1.2856e+01_rb,1.1019e+01_rb,9.1832e+00_rb,7.3472e+00_rb,5.5112e+00_rb, &\n     &3.6752e+00_rb,1.8392e+00_rb,5.0466e-04_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &1.4561e+01_rb,1.2741e+01_rb,1.0922e+01_rb,9.1018e+00_rb,7.2824e+00_rb,5.4631e+00_rb, &\n     &3.6434e+00_rb,1.8247e+00_rb,7.0108e-04_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &1.4517e+01_rb,1.2702e+01_rb,1.0889e+01_rb,9.0751e+00_rb,7.2609e+00_rb,5.4474e+00_rb, &\n     &3.6338e+00_rb,1.8215e+00_rb,9.5134e-04_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &1.4592e+01_rb,1.2768e+01_rb,1.0945e+01_rb,9.1223e+00_rb,7.2994e+00_rb,5.4774e+00_rb, &\n     &3.6552e+00_rb,1.8334e+00_rb,1.2923e-03_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &1.4780e+01_rb,1.2933e+01_rb,1.1086e+01_rb,9.2409e+00_rb,7.3952e+00_rb,5.5498e+00_rb, &\n     &3.7048e+00_rb,1.8578e+00_rb,1.7359e-03_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &5.6885e+01_rb,4.9776e+01_rb,4.2665e+01_rb,3.5554e+01_rb,2.8444e+01_rb,2.1332e+01_rb, &\n     &1.4224e+01_rb,7.1126e+00_rb,6.2609e-04_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &5.6580e+01_rb,4.9509e+01_rb,4.2436e+01_rb,3.5363e+01_rb,2.8291e+01_rb,2.1219e+01_rb, &\n     &1.4147e+01_rb,7.0751e+00_rb,8.0177e-04_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &5.6732e+01_rb,4.9637e+01_rb,4.2548e+01_rb,3.5458e+01_rb,2.8366e+01_rb,2.1276e+01_rb, &\n     &1.4184e+01_rb,7.0949e+00_rb,1.0220e-03_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &5.7468e+01_rb,5.0286e+01_rb,4.3101e+01_rb,3.5920e+01_rb,2.8736e+01_rb,2.1553e+01_rb, &\n     &1.4371e+01_rb,7.1892e+00_rb,1.2387e-03_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &5.8635e+01_rb,5.1306e+01_rb,4.3977e+01_rb,3.6648e+01_rb,2.9321e+01_rb,2.1992e+01_rb, &\n     &1.4665e+01_rb,7.3378e+00_rb,1.5501e-03_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &2.4487e+02_rb,2.1424e+02_rb,1.8364e+02_rb,1.5304e+02_rb,1.2243e+02_rb,9.1825e+01_rb, &\n     &6.1214e+01_rb,3.0606e+01_rb,1.7354e-03_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &2.4490e+02_rb,2.1431e+02_rb,1.8369e+02_rb,1.5309e+02_rb,1.2247e+02_rb,9.1851e+01_rb, &\n     &6.1230e+01_rb,3.0619e+01_rb,1.7748e-03_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &2.4755e+02_rb,2.1661e+02_rb,1.8568e+02_rb,1.5472e+02_rb,1.2378e+02_rb,9.2834e+01_rb, &\n     &6.1889e+01_rb,3.0945e+01_rb,1.9607e-03_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &2.5293e+02_rb,2.2132e+02_rb,1.8970e+02_rb,1.5807e+02_rb,1.2647e+02_rb,9.4852e+01_rb, &\n     &6.3238e+01_rb,3.1620e+01_rb,2.3523e-03_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &2.5940e+02_rb,2.2699e+02_rb,1.9456e+02_rb,1.6213e+02_rb,1.2971e+02_rb,9.7282e+01_rb, &\n     &6.4856e+01_rb,3.2431e+01_rb,2.7354e-03_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &3.6899e+02_rb,3.2288e+02_rb,2.7677e+02_rb,2.3063e+02_rb,1.8452e+02_rb,1.3837e+02_rb, &\n     &9.2255e+01_rb,4.6125e+01_rb,2.1265e-03_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &3.7335e+02_rb,3.2670e+02_rb,2.8002e+02_rb,2.3334e+02_rb,1.8669e+02_rb,1.4002e+02_rb, &\n     &9.3341e+01_rb,4.6674e+01_rb,3.2080e-03_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &3.8233e+02_rb,3.3453e+02_rb,2.8674e+02_rb,2.3896e+02_rb,1.9116e+02_rb,1.4337e+02_rb, &\n     &9.5577e+01_rb,4.7794e+01_rb,3.4910e-03_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &3.9299e+02_rb,3.4383e+02_rb,2.9472e+02_rb,2.4561e+02_rb,1.9648e+02_rb,1.4736e+02_rb, &\n     &9.8242e+01_rb,4.9120e+01_rb,3.8208e-03_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &4.0483e+02_rb,3.5423e+02_rb,3.0363e+02_rb,2.5301e+02_rb,2.0242e+02_rb,1.5182e+02_rb, &\n     &1.0121e+02_rb,5.0609e+01_rb,4.2123e-03_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &4.1937e+02_rb,3.6695e+02_rb,3.1452e+02_rb,2.6211e+02_rb,2.0969e+02_rb,1.5726e+02_rb, &\n     &1.0485e+02_rb,5.2423e+01_rb,2.2784e-03_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &4.2956e+02_rb,3.7586e+02_rb,3.2216e+02_rb,2.6848e+02_rb,2.1478e+02_rb,1.6108e+02_rb, &\n     &1.0739e+02_rb,5.3697e+01_rb,3.5938e-03_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &4.4222e+02_rb,3.8693e+02_rb,3.3164e+02_rb,2.7638e+02_rb,2.2109e+02_rb,1.6582e+02_rb, &\n     &1.1055e+02_rb,5.5277e+01_rb,4.4037e-03_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &4.5624e+02_rb,3.9921e+02_rb,3.4220e+02_rb,2.8517e+02_rb,2.2812e+02_rb,1.7109e+02_rb, &\n     &1.1406e+02_rb,5.7035e+01_rb,4.5266e-03_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &4.7013e+02_rb,4.1136e+02_rb,3.5259e+02_rb,2.9384e+02_rb,2.3506e+02_rb,1.7630e+02_rb, &\n     &1.1754e+02_rb,5.8765e+01_rb,5.1545e-03_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &3.8573e+02_rb,3.3753e+02_rb,2.8932e+02_rb,2.4110e+02_rb,1.9287e+02_rb,1.4465e+02_rb, &\n     &9.6435e+01_rb,4.8220e+01_rb,2.4127e-03_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &3.9713e+02_rb,3.4748e+02_rb,2.9784e+02_rb,2.4821e+02_rb,1.9856e+02_rb,1.4893e+02_rb, &\n     &9.9282e+01_rb,4.9641e+01_rb,3.8706e-03_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &4.1029e+02_rb,3.5900e+02_rb,3.0771e+02_rb,2.5644e+02_rb,2.0514e+02_rb,1.5386e+02_rb, &\n     &1.0257e+02_rb,5.1288e+01_rb,4.7695e-03_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &4.2344e+02_rb,3.7050e+02_rb,3.1756e+02_rb,2.6463e+02_rb,2.1170e+02_rb,1.5878e+02_rb, &\n     &1.0586e+02_rb,5.2932e+01_rb,4.9706e-03_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &4.3615e+02_rb,3.8165e+02_rb,3.2713e+02_rb,2.7260e+02_rb,2.1808e+02_rb,1.6356e+02_rb, &\n     &1.0904e+02_rb,5.4523e+01_rb,5.6617e-03_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &5.2022e-01_rb,4.5635e-01_rb,3.9252e-01_rb,3.3010e-01_rb,2.6823e-01_rb,2.0567e-01_rb, &\n     &1.4452e-01_rb,8.4865e-02_rb,1.8396e-02_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &5.2177e-01_rb,4.5789e-01_rb,3.9474e-01_rb,3.3342e-01_rb,2.7114e-01_rb,2.1031e-01_rb, &\n     &1.5104e-01_rb,9.2174e-02_rb,2.3774e-02_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &5.2246e-01_rb,4.5863e-01_rb,3.9708e-01_rb,3.3604e-01_rb,2.7541e-01_rb,2.1692e-01_rb, &\n     &1.5876e-01_rb,9.9961e-02_rb,3.0156e-02_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &5.2222e-01_rb,4.5904e-01_rb,3.9936e-01_rb,3.3918e-01_rb,2.8145e-01_rb,2.2396e-01_rb, &\n     &1.6789e-01_rb,1.0815e-01_rb,3.7634e-02_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &5.2130e-01_rb,4.5967e-01_rb,4.0135e-01_rb,3.4393e-01_rb,2.8807e-01_rb,2.3225e-01_rb, &\n     &1.7760e-01_rb,1.1669e-01_rb,4.6345e-02_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &8.1852e-01_rb,7.1745e-01_rb,6.1633e-01_rb,5.1564e-01_rb,4.1643e-01_rb,3.1732e-01_rb, &\n     &2.1786e-01_rb,1.2067e-01_rb,1.4675e-02_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &8.1998e-01_rb,7.1886e-01_rb,6.1787e-01_rb,5.1883e-01_rb,4.2047e-01_rb,3.2108e-01_rb, &\n     &2.2369e-01_rb,1.2867e-01_rb,1.9122e-02_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &8.2161e-01_rb,7.2051e-01_rb,6.2063e-01_rb,5.2305e-01_rb,4.2413e-01_rb,3.2660e-01_rb, &\n     &2.3145e-01_rb,1.3782e-01_rb,2.4473e-02_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &8.2149e-01_rb,7.2071e-01_rb,6.2301e-01_rb,5.2587e-01_rb,4.2865e-01_rb,3.3407e-01_rb, &\n     &2.4032e-01_rb,1.4761e-01_rb,3.0869e-02_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &8.1957e-01_rb,7.1986e-01_rb,6.2436e-01_rb,5.2838e-01_rb,4.3462e-01_rb,3.4210e-01_rb, &\n     &2.5070e-01_rb,1.5726e-01_rb,3.8311e-02_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &1.7050e+00_rb,1.4932e+00_rb,1.2814e+00_rb,1.0695e+00_rb,8.5775e-01_rb,6.4751e-01_rb, &\n     &4.3833e-01_rb,2.2806e-01_rb,1.0910e-02_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &1.7093e+00_rb,1.4971e+00_rb,1.2848e+00_rb,1.0726e+00_rb,8.6216e-01_rb,6.5288e-01_rb, &\n     &4.4261e-01_rb,2.3435e-01_rb,1.4370e-02_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &1.7123e+00_rb,1.5000e+00_rb,1.2874e+00_rb,1.0764e+00_rb,8.6711e-01_rb,6.5794e-01_rb, &\n     &4.4842e-01_rb,2.4360e-01_rb,1.8590e-02_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &1.7121e+00_rb,1.4998e+00_rb,1.2880e+00_rb,1.0792e+00_rb,8.7145e-01_rb,6.6223e-01_rb, &\n     &4.5614e-01_rb,2.5394e-01_rb,2.3699e-02_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &1.7072e+00_rb,1.4957e+00_rb,1.2869e+00_rb,1.0807e+00_rb,8.7401e-01_rb,6.6818e-01_rb, &\n     &4.6582e-01_rb,2.6619e-01_rb,2.9551e-02_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &3.5671e+00_rb,3.1226e+00_rb,2.6780e+00_rb,2.2334e+00_rb,1.7887e+00_rb,1.3439e+00_rb, &\n     &9.0030e-01_rb,4.5879e-01_rb,7.8646e-03_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &3.5784e+00_rb,3.1324e+00_rb,2.6867e+00_rb,2.2405e+00_rb,1.7945e+00_rb,1.3495e+00_rb, &\n     &9.0658e-01_rb,4.6395e-01_rb,1.0548e-02_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &3.5832e+00_rb,3.1369e+00_rb,2.6902e+00_rb,2.2437e+00_rb,1.7981e+00_rb,1.3549e+00_rb, &\n     &9.1305e-01_rb,4.7036e-01_rb,1.3834e-02_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &3.5802e+00_rb,3.1343e+00_rb,2.6882e+00_rb,2.2430e+00_rb,1.8006e+00_rb,1.3596e+00_rb, &\n     &9.1785e-01_rb,4.7927e-01_rb,1.7787e-02_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &3.5714e+00_rb,3.1267e+00_rb,2.6827e+00_rb,2.2417e+00_rb,1.8022e+00_rb,1.3635e+00_rb, &\n     &9.2392e-01_rb,4.9076e-01_rb,2.2306e-02_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &6.7418e+00_rb,5.9003e+00_rb,5.0587e+00_rb,4.2171e+00_rb,3.3754e+00_rb,2.5338e+00_rb, &\n     &1.6921e+00_rb,8.5173e-01_rb,5.5269e-03_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &6.7656e+00_rb,5.9212e+00_rb,5.0765e+00_rb,4.2319e+00_rb,3.3873e+00_rb,2.5428e+00_rb, &\n     &1.6990e+00_rb,8.5857e-01_rb,7.5732e-03_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &6.7746e+00_rb,5.9289e+00_rb,5.0835e+00_rb,4.2380e+00_rb,3.3924e+00_rb,2.5474e+00_rb, &\n     &1.7057e+00_rb,8.6548e-01_rb,1.0137e-02_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &6.7641e+00_rb,5.9200e+00_rb,5.0759e+00_rb,4.2320e+00_rb,3.3891e+00_rb,2.5487e+00_rb, &\n     &1.7099e+00_rb,8.7100e-01_rb,1.3219e-02_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &6.7413e+00_rb,5.9008e+00_rb,5.0606e+00_rb,4.2207e+00_rb,3.3833e+00_rb,2.5475e+00_rb, &\n     &1.7128e+00_rb,8.7813e-01_rb,1.6736e-02_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &1.1755e+01_rb,1.0287e+01_rb,8.8182e+00_rb,7.3494e+00_rb,5.8812e+00_rb,4.4127e+00_rb, &\n     &2.9442e+00_rb,1.4757e+00_rb,3.7670e-03_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &1.1790e+01_rb,1.0318e+01_rb,8.8444e+00_rb,7.3718e+00_rb,5.8990e+00_rb,4.4261e+00_rb, &\n     &2.9535e+00_rb,1.4824e+00_rb,5.2756e-03_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &1.1802e+01_rb,1.0328e+01_rb,8.8538e+00_rb,7.3796e+00_rb,5.9055e+00_rb,4.4312e+00_rb, &\n     &2.9580e+00_rb,1.4892e+00_rb,7.2031e-03_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &1.1771e+01_rb,1.0301e+01_rb,8.8310e+00_rb,7.3612e+00_rb,5.8917e+00_rb,4.4224e+00_rb, &\n     &2.9568e+00_rb,1.4927e+00_rb,9.5398e-03_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &1.1717e+01_rb,1.0254e+01_rb,8.7912e+00_rb,7.3292e+00_rb,5.8672e+00_rb,4.4080e+00_rb, &\n     &2.9504e+00_rb,1.4942e+00_rb,1.2264e-02_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &2.1201e+01_rb,1.8552e+01_rb,1.5902e+01_rb,1.3253e+01_rb,1.0604e+01_rb,7.9546e+00_rb, &\n     &5.3049e+00_rb,2.6554e+00_rb,2.5163e-03_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &2.1258e+01_rb,1.8602e+01_rb,1.5945e+01_rb,1.3288e+01_rb,1.0632e+01_rb,7.9754e+00_rb, &\n     &5.3196e+00_rb,2.6631e+00_rb,3.6166e-03_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &2.1271e+01_rb,1.8614e+01_rb,1.5957e+01_rb,1.3298e+01_rb,1.0640e+01_rb,7.9825e+00_rb, &\n     &5.3244e+00_rb,2.6683e+00_rb,5.0339e-03_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &2.1213e+01_rb,1.8564e+01_rb,1.5913e+01_rb,1.3262e+01_rb,1.0612e+01_rb,7.9619e+00_rb, &\n     &5.3122e+00_rb,2.6672e+00_rb,6.7768e-03_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &2.1089e+01_rb,1.8455e+01_rb,1.5820e+01_rb,1.3186e+01_rb,1.0552e+01_rb,7.9178e+00_rb, &\n     &5.2873e+00_rb,2.6593e+00_rb,8.8413e-03_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &4.5180e+01_rb,3.9535e+01_rb,3.3887e+01_rb,2.8239e+01_rb,2.2591e+01_rb,1.6944e+01_rb, &\n     &1.1298e+01_rb,5.6517e+00_rb,1.3715e-03_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &4.5290e+01_rb,3.9627e+01_rb,3.3969e+01_rb,2.8308e+01_rb,2.2647e+01_rb,1.6987e+01_rb, &\n     &1.1327e+01_rb,5.6660e+00_rb,2.0845e-03_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &4.5261e+01_rb,3.9605e+01_rb,3.3948e+01_rb,2.8290e+01_rb,2.2633e+01_rb,1.6977e+01_rb, &\n     &1.1320e+01_rb,5.6637e+00_rb,3.2057e-03_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &4.5126e+01_rb,3.9486e+01_rb,3.3848e+01_rb,2.8205e+01_rb,2.2567e+01_rb,1.6928e+01_rb, &\n     &1.1288e+01_rb,5.6493e+00_rb,4.5853e-03_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &4.4865e+01_rb,3.9259e+01_rb,3.3651e+01_rb,2.8046e+01_rb,2.2438e+01_rb,1.6832e+01_rb, &\n     &1.1226e+01_rb,5.6233e+00_rb,6.2243e-03_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &1.7982e+02_rb,1.5734e+02_rb,1.3487e+02_rb,1.1239e+02_rb,8.9912e+01_rb,6.7434e+01_rb, &\n     &4.4957e+01_rb,2.2481e+01_rb,1.3106e-03_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &1.7996e+02_rb,1.5746e+02_rb,1.3497e+02_rb,1.1247e+02_rb,8.9976e+01_rb,6.7488e+01_rb, &\n     &4.4992e+01_rb,2.2498e+01_rb,1.6404e-03_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &1.7965e+02_rb,1.5719e+02_rb,1.3473e+02_rb,1.1228e+02_rb,8.9821e+01_rb,6.7370e+01_rb, &\n     &4.4914e+01_rb,2.2461e+01_rb,2.0268e-03_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &1.7888e+02_rb,1.5653e+02_rb,1.3416e+02_rb,1.1181e+02_rb,8.9443e+01_rb,6.7088e+01_rb, &\n     &4.4727e+01_rb,2.2367e+01_rb,2.6824e-03_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &1.7801e+02_rb,1.5576e+02_rb,1.3351e+02_rb,1.1126e+02_rb,8.9014e+01_rb,6.6762e+01_rb, &\n     &4.4512e+01_rb,2.2261e+01_rb,3.2961e-03_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &7.9186e+02_rb,6.9285e+02_rb,5.9387e+02_rb,4.9485e+02_rb,3.9587e+02_rb,2.9692e+02_rb, &\n     &1.9795e+02_rb,9.8980e+01_rb,2.6434e-03_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &7.9156e+02_rb,6.9260e+02_rb,5.9370e+02_rb,4.9476e+02_rb,3.9580e+02_rb,2.9685e+02_rb, &\n     &1.9789e+02_rb,9.8956e+01_rb,3.6689e-03_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &7.8897e+02_rb,6.9037e+02_rb,5.9173e+02_rb,4.9309e+02_rb,3.9450e+02_rb,2.9589e+02_rb, &\n     &1.9725e+02_rb,9.8635e+01_rb,4.1214e-03_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &7.8518e+02_rb,6.8703e+02_rb,5.8889e+02_rb,4.9073e+02_rb,3.9258e+02_rb,2.9444e+02_rb, &\n     &1.9631e+02_rb,9.8149e+01_rb,4.6533e-03_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &7.8271e+02_rb,6.8490e+02_rb,5.8707e+02_rb,4.8922e+02_rb,3.9137e+02_rb,2.9354e+02_rb, &\n     &1.9568e+02_rb,9.7851e+01_rb,5.3114e-03_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &1.2023e+03_rb,1.0521e+03_rb,9.0173e+02_rb,7.5144e+02_rb,6.0116e+02_rb,4.5091e+02_rb, &\n     &3.0058e+02_rb,1.5029e+02_rb,2.8585e-03_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &1.1987e+03_rb,1.0489e+03_rb,8.9906e+02_rb,7.4919e+02_rb,5.9938e+02_rb,4.4951e+02_rb, &\n     &2.9969e+02_rb,1.4984e+02_rb,4.2381e-03_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &1.1938e+03_rb,1.0446e+03_rb,8.9539e+02_rb,7.4611e+02_rb,5.9694e+02_rb,4.4768e+02_rb, &\n     &2.9847e+02_rb,1.4923e+02_rb,6.1776e-03_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &1.1919e+03_rb,1.0429e+03_rb,8.9396e+02_rb,7.4498e+02_rb,5.9597e+02_rb,4.4698e+02_rb, &\n     &2.9797e+02_rb,1.4900e+02_rb,6.8124e-03_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &1.1943e+03_rb,1.0450e+03_rb,8.9567e+02_rb,7.4646e+02_rb,5.9716e+02_rb,4.4786e+02_rb, &\n     &2.9857e+02_rb,1.4929e+02_rb,7.2330e-03_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &1.3468e+03_rb,1.1784e+03_rb,1.0101e+03_rb,8.4170e+02_rb,6.7334e+02_rb,5.0503e+02_rb, &\n     &3.3668e+02_rb,1.6834e+02_rb,3.2180e-03_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &1.3417e+03_rb,1.1740e+03_rb,1.0062e+03_rb,8.3855e+02_rb,6.7082e+02_rb,5.0314e+02_rb, &\n     &3.3541e+02_rb,1.6772e+02_rb,4.6846e-03_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &1.3409e+03_rb,1.1734e+03_rb,1.0058e+03_rb,8.3814e+02_rb,6.7048e+02_rb,5.0287e+02_rb, &\n     &3.3524e+02_rb,1.6763e+02_rb,6.5606e-03_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &1.3471e+03_rb,1.1787e+03_rb,1.0103e+03_rb,8.4192e+02_rb,6.7354e+02_rb,5.0515e+02_rb, &\n     &3.3677e+02_rb,1.6839e+02_rb,8.6936e-03_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &1.3615e+03_rb,1.1913e+03_rb,1.0211e+03_rb,8.5093e+02_rb,6.8072e+02_rb,5.1056e+02_rb, &\n     &3.4035e+02_rb,1.7018e+02_rb,9.2918e-03_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &1.2096e+03_rb,1.0584e+03_rb,9.0717e+02_rb,7.5599e+02_rb,6.0478e+02_rb,4.5359e+02_rb, &\n     &3.0240e+02_rb,1.5119e+02_rb,3.1447e-03_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &1.2095e+03_rb,1.0583e+03_rb,9.0711e+02_rb,7.5597e+02_rb,6.0474e+02_rb,4.5355e+02_rb, &\n     &3.0238e+02_rb,1.5119e+02_rb,4.9163e-03_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &1.2161e+03_rb,1.0641e+03_rb,9.1208e+02_rb,7.6006e+02_rb,6.0804e+02_rb,4.5603e+02_rb, &\n     &3.0401e+02_rb,1.5201e+02_rb,6.8865e-03_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &1.2328e+03_rb,1.0787e+03_rb,9.2458e+02_rb,7.7050e+02_rb,6.1637e+02_rb,4.6230e+02_rb, &\n     &3.0819e+02_rb,1.5410e+02_rb,9.4613e-03_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &1.2601e+03_rb,1.1026e+03_rb,9.4505e+02_rb,7.8755e+02_rb,6.3004e+02_rb,4.7254e+02_rb, &\n     &3.1501e+02_rb,1.5751e+02_rb,1.0283e-02_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &1.0370e+00_rb,9.0857e-01_rb,7.8023e-01_rb,6.5192e-01_rb,5.2457e-01_rb,4.0025e-01_rb, &\n     &2.7828e-01_rb,1.5804e-01_rb,5.8897e-02_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &1.0492e+00_rb,9.1962e-01_rb,7.9014e-01_rb,6.6101e-01_rb,5.3535e-01_rb,4.1219e-01_rb, &\n     &2.9064e-01_rb,1.7381e-01_rb,7.6414e-02_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &1.0617e+00_rb,9.3102e-01_rb,8.0032e-01_rb,6.7200e-01_rb,5.4761e-01_rb,4.2620e-01_rb, &\n     &3.0674e-01_rb,1.9538e-01_rb,9.6701e-02_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &1.0715e+00_rb,9.3980e-01_rb,8.0850e-01_rb,6.8264e-01_rb,5.6043e-01_rb,4.4205e-01_rb, &\n     &3.2592e-01_rb,2.2229e-01_rb,1.1943e-01_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &1.0801e+00_rb,9.4751e-01_rb,8.1733e-01_rb,6.9368e-01_rb,5.7613e-01_rb,4.6079e-01_rb, &\n     &3.5014e-01_rb,2.5319e-01_rb,1.4487e-01_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &1.7442e+00_rb,1.5272e+00_rb,1.3102e+00_rb,1.0933e+00_rb,8.7649e-01_rb,6.6091e-01_rb, &\n     &4.4902e-01_rb,2.3891e-01_rb,5.2362e-02_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &1.7617e+00_rb,1.5427e+00_rb,1.3238e+00_rb,1.1049e+00_rb,8.8687e-01_rb,6.7276e-01_rb, &\n     &4.6180e-01_rb,2.5188e-01_rb,6.8691e-02_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &1.7768e+00_rb,1.5563e+00_rb,1.3359e+00_rb,1.1155e+00_rb,8.9933e-01_rb,6.8666e-01_rb, &\n     &4.7568e-01_rb,2.6925e-01_rb,8.7599e-02_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &1.7902e+00_rb,1.5683e+00_rb,1.3467e+00_rb,1.1272e+00_rb,9.1292e-01_rb,7.0212e-01_rb, &\n     &4.9313e-01_rb,2.9218e-01_rb,1.0892e-01_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &1.8007e+00_rb,1.5781e+00_rb,1.3558e+00_rb,1.1390e+00_rb,9.2668e-01_rb,7.1895e-01_rb, &\n     &5.1345e-01_rb,3.2009e-01_rb,1.3290e-01_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &3.9769e+00_rb,3.4805e+00_rb,2.9839e+00_rb,2.4875e+00_rb,1.9912e+00_rb,1.4948e+00_rb, &\n     &9.9892e-01_rb,5.0928e-01_rb,4.2777e-02_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &4.0084e+00_rb,3.5082e+00_rb,3.0084e+00_rb,2.5082e+00_rb,2.0082e+00_rb,1.5084e+00_rb, &\n     &1.0123e+00_rb,5.2189e-01_rb,5.7041e-02_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &4.0345e+00_rb,3.5316e+00_rb,3.0286e+00_rb,2.5259e+00_rb,2.0232e+00_rb,1.5223e+00_rb, &\n     &1.0275e+00_rb,5.3508e-01_rb,7.3780e-02_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &4.0588e+00_rb,3.5535e+00_rb,3.0482e+00_rb,2.5430e+00_rb,2.0380e+00_rb,1.5389e+00_rb, &\n     &1.0447e+00_rb,5.5284e-01_rb,9.2939e-02_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &4.0766e+00_rb,3.5694e+00_rb,3.0624e+00_rb,2.5553e+00_rb,2.0517e+00_rb,1.5545e+00_rb, &\n     &1.0614e+00_rb,5.7409e-01_rb,1.1487e-01_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &9.2347e+00_rb,8.0808e+00_rb,6.9267e+00_rb,5.7730e+00_rb,4.6191e+00_rb,3.4653e+00_rb, &\n     &2.3115e+00_rb,1.1586e+00_rb,3.3639e-02_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &9.3231e+00_rb,8.1587e+00_rb,6.9942e+00_rb,5.8295e+00_rb,4.6650e+00_rb,3.5006e+00_rb, &\n     &2.3364e+00_rb,1.1757e+00_rb,4.5584e-02_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &9.3883e+00_rb,8.2160e+00_rb,7.0435e+00_rb,5.8714e+00_rb,4.6992e+00_rb,3.5271e+00_rb, &\n     &2.3555e+00_rb,1.1930e+00_rb,5.9759e-02_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &9.4383e+00_rb,8.2599e+00_rb,7.0821e+00_rb,5.9042e+00_rb,4.7261e+00_rb,3.5482e+00_rb, &\n     &2.3742e+00_rb,1.2110e+00_rb,7.6294e-02_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &9.4750e+00_rb,8.2926e+00_rb,7.1106e+00_rb,5.9283e+00_rb,4.7463e+00_rb,3.5648e+00_rb, &\n     &2.3926e+00_rb,1.2283e+00_rb,9.5542e-02_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &1.9585e+01_rb,1.7137e+01_rb,1.4689e+01_rb,1.2242e+01_rb,9.7941e+00_rb,7.3465e+00_rb, &\n     &4.8988e+00_rb,2.4515e+00_rb,2.6102e-02_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &1.9780e+01_rb,1.7309e+01_rb,1.4837e+01_rb,1.2365e+01_rb,9.8932e+00_rb,7.4216e+00_rb, &\n     &4.9500e+00_rb,2.4789e+00_rb,3.5859e-02_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &1.9935e+01_rb,1.7444e+01_rb,1.4954e+01_rb,1.2463e+01_rb,9.9721e+00_rb,7.4814e+00_rb, &\n     &4.9911e+00_rb,2.5017e+00_rb,4.7575e-02_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &2.0051e+01_rb,1.7546e+01_rb,1.5041e+01_rb,1.2537e+01_rb,1.0032e+01_rb,7.5273e+00_rb, &\n     &5.0227e+00_rb,2.5239e+00_rb,6.1484e-02_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &2.0135e+01_rb,1.7620e+01_rb,1.5106e+01_rb,1.2591e+01_rb,1.0076e+01_rb,7.5609e+00_rb, &\n     &5.0463e+00_rb,2.5450e+00_rb,7.7952e-02_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &3.8631e+01_rb,3.3801e+01_rb,2.8974e+01_rb,2.4144e+01_rb,1.9316e+01_rb,1.4488e+01_rb, &\n     &9.6597e+00_rb,4.8315e+00_rb,1.9604e-02_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &3.9022e+01_rb,3.4145e+01_rb,2.9268e+01_rb,2.4390e+01_rb,1.9513e+01_rb,1.4636e+01_rb, &\n     &9.7595e+00_rb,4.8831e+00_rb,2.7435e-02_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &3.9348e+01_rb,3.4431e+01_rb,2.9514e+01_rb,2.4596e+01_rb,1.9679e+01_rb,1.4761e+01_rb, &\n     &9.8442e+00_rb,4.9267e+00_rb,3.6949e-02_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &3.9594e+01_rb,3.4646e+01_rb,2.9698e+01_rb,2.4751e+01_rb,1.9803e+01_rb,1.4855e+01_rb, &\n     &9.9079e+00_rb,4.9603e+00_rb,4.8442e-02_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &3.9770e+01_rb,3.4801e+01_rb,2.9832e+01_rb,2.4862e+01_rb,1.9893e+01_rb,1.4924e+01_rb, &\n     &9.9544e+00_rb,4.9871e+00_rb,6.2169e-02_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &7.9230e+01_rb,6.9326e+01_rb,5.9424e+01_rb,4.9520e+01_rb,3.9617e+01_rb,2.9713e+01_rb, &\n     &1.9810e+01_rb,9.9063e+00_rb,1.4333e-02_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &8.0053e+01_rb,7.0047e+01_rb,6.0041e+01_rb,5.0034e+01_rb,4.0029e+01_rb,3.0023e+01_rb, &\n     &2.0018e+01_rb,1.0011e+01_rb,2.0474e-02_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &8.0747e+01_rb,7.0654e+01_rb,6.0562e+01_rb,5.0470e+01_rb,4.0378e+01_rb,3.0286e+01_rb, &\n     &2.0193e+01_rb,1.0101e+01_rb,2.8098e-02_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &8.1303e+01_rb,7.1142e+01_rb,6.0980e+01_rb,5.0819e+01_rb,4.0658e+01_rb,3.0496e+01_rb, &\n     &2.0334e+01_rb,1.0173e+01_rb,3.7439e-02_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &8.1680e+01_rb,7.1472e+01_rb,6.1265e+01_rb,5.1057e+01_rb,4.0847e+01_rb,3.0638e+01_rb, &\n     &2.0431e+01_rb,1.0223e+01_rb,4.8718e-02_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &1.9140e+02_rb,1.6747e+02_rb,1.4355e+02_rb,1.1962e+02_rb,9.5701e+01_rb,7.1775e+01_rb, &\n     &4.7850e+01_rb,2.3927e+01_rb,1.0137e-02_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &1.9353e+02_rb,1.6934e+02_rb,1.4515e+02_rb,1.2096e+02_rb,9.6769e+01_rb,7.2577e+01_rb, &\n     &4.8385e+01_rb,2.4195e+01_rb,1.4960e-02_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &1.9528e+02_rb,1.7086e+02_rb,1.4646e+02_rb,1.2205e+02_rb,9.7642e+01_rb,7.3231e+01_rb, &\n     &4.8824e+01_rb,2.4416e+01_rb,2.0883e-02_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &1.9672e+02_rb,1.7213e+02_rb,1.4754e+02_rb,1.2295e+02_rb,9.8361e+01_rb,7.3773e+01_rb, &\n     &4.9186e+01_rb,2.4598e+01_rb,2.8267e-02_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &1.9763e+02_rb,1.7293e+02_rb,1.4824e+02_rb,1.2352e+02_rb,9.8820e+01_rb,7.4120e+01_rb, &\n     &4.9417e+01_rb,2.4716e+01_rb,3.7324e-02_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &8.5696e+02_rb,7.4986e+02_rb,6.4272e+02_rb,5.3561e+02_rb,4.2849e+02_rb,3.2137e+02_rb, &\n     &2.1425e+02_rb,1.0712e+02_rb,4.9710e-03_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &8.6661e+02_rb,7.5827e+02_rb,6.4996e+02_rb,5.4164e+02_rb,4.3331e+02_rb,3.2498e+02_rb, &\n     &2.1666e+02_rb,1.0833e+02_rb,7.7324e-03_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &8.7472e+02_rb,7.6537e+02_rb,6.5602e+02_rb,5.4669e+02_rb,4.3735e+02_rb,3.2801e+02_rb, &\n     &2.1868e+02_rb,1.0935e+02_rb,1.2302e-02_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &8.8128e+02_rb,7.7113e+02_rb,6.6095e+02_rb,5.5081e+02_rb,4.4064e+02_rb,3.3048e+02_rb, &\n     &2.2033e+02_rb,1.1017e+02_rb,1.8205e-02_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &8.8594e+02_rb,7.7518e+02_rb,6.6448e+02_rb,5.5372e+02_rb,4.4298e+02_rb,3.3223e+02_rb, &\n     &2.2150e+02_rb,1.1076e+02_rb,2.5853e-02_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &4.2110e+03_rb,3.6847e+03_rb,3.1582e+03_rb,2.6319e+03_rb,2.1055e+03_rb,1.5792e+03_rb, &\n     &1.0527e+03_rb,5.2637e+02_rb,5.0235e-03_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &4.2578e+03_rb,3.7256e+03_rb,3.1934e+03_rb,2.6613e+03_rb,2.1289e+03_rb,1.5967e+03_rb, &\n     &1.0645e+03_rb,5.3224e+02_rb,7.3952e-03_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &4.2976e+03_rb,3.7604e+03_rb,3.2232e+03_rb,2.6860e+03_rb,2.1488e+03_rb,1.6116e+03_rb, &\n     &1.0744e+03_rb,5.3720e+02_rb,1.0255e-02_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &4.3279e+03_rb,3.7869e+03_rb,3.2460e+03_rb,2.7049e+03_rb,2.1640e+03_rb,1.6230e+03_rb, &\n     &1.0820e+03_rb,5.4099e+02_rb,1.2154e-02_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &4.3496e+03_rb,3.8060e+03_rb,3.2622e+03_rb,2.7186e+03_rb,2.1748e+03_rb,1.6311e+03_rb, &\n     &1.0874e+03_rb,5.4372e+02_rb,1.4719e-02_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &7.1173e+03_rb,6.2277e+03_rb,5.3380e+03_rb,4.4482e+03_rb,3.5586e+03_rb,2.6690e+03_rb, &\n     &1.7793e+03_rb,8.8967e+02_rb,4.7950e-03_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &7.1866e+03_rb,6.2881e+03_rb,5.3900e+03_rb,4.4917e+03_rb,3.5933e+03_rb,2.6950e+03_rb, &\n     &1.7967e+03_rb,8.9836e+02_rb,1.0381e-02_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &7.2420e+03_rb,6.3363e+03_rb,5.4313e+03_rb,4.5262e+03_rb,3.6209e+03_rb,2.7156e+03_rb, &\n     &1.8104e+03_rb,9.0520e+02_rb,1.1192e-02_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &7.2818e+03_rb,6.3715e+03_rb,5.4613e+03_rb,4.5511e+03_rb,3.6409e+03_rb,2.7307e+03_rb, &\n     &1.8205e+03_rb,9.1025e+02_rb,1.5145e-02_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &7.3078e+03_rb,6.3944e+03_rb,5.4808e+03_rb,4.5675e+03_rb,3.6540e+03_rb,2.7404e+03_rb, &\n     &1.8270e+03_rb,9.1351e+02_rb,1.9391e-02_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &8.7768e+03_rb,7.6797e+03_rb,6.5826e+03_rb,5.4853e+03_rb,4.3884e+03_rb,3.2912e+03_rb, &\n     &2.1942e+03_rb,1.0970e+03_rb,4.5625e-03_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &8.8507e+03_rb,7.7442e+03_rb,6.6378e+03_rb,5.5316e+03_rb,4.4251e+03_rb,3.3189e+03_rb, &\n     &2.2126e+03_rb,1.1063e+03_rb,8.7877e-03_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &8.9020e+03_rb,7.7891e+03_rb,6.6765e+03_rb,5.5638e+03_rb,4.4512e+03_rb,3.3383e+03_rb, &\n     &2.2256e+03_rb,1.1128e+03_rb,1.5209e-02_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &8.9305e+03_rb,7.8144e+03_rb,6.6981e+03_rb,5.5817e+03_rb,4.4653e+03_rb,3.3489e+03_rb, &\n     &2.2326e+03_rb,1.1163e+03_rb,1.7795e-02_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &8.9442e+03_rb,7.8262e+03_rb,6.7079e+03_rb,5.5901e+03_rb,4.4720e+03_rb,3.3539e+03_rb, &\n     &2.2360e+03_rb,1.1180e+03_rb,2.1474e-02_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &8.5284e+03_rb,7.4622e+03_rb,6.3962e+03_rb,5.3302e+03_rb,4.2643e+03_rb,3.1981e+03_rb, &\n     &2.1321e+03_rb,1.0660e+03_rb,6.4304e-03_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &8.5795e+03_rb,7.5072e+03_rb,6.4348e+03_rb,5.3623e+03_rb,4.2900e+03_rb,3.2173e+03_rb, &\n     &2.1449e+03_rb,1.0725e+03_rb,8.8022e-03_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &8.6101e+03_rb,7.5338e+03_rb,6.4575e+03_rb,5.3813e+03_rb,4.3050e+03_rb,3.2288e+03_rb, &\n     &2.1525e+03_rb,1.0763e+03_rb,1.7025e-02_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &8.6267e+03_rb,7.5481e+03_rb,6.4701e+03_rb,5.3916e+03_rb,4.3132e+03_rb,3.2351e+03_rb, &\n     &2.1567e+03_rb,1.0783e+03_rb,2.0223e-02_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &8.6229e+03_rb,7.5451e+03_rb,6.4669e+03_rb,5.3892e+03_rb,4.3114e+03_rb,3.2335e+03_rb, &\n     &2.1558e+03_rb,1.0779e+03_rb,2.3841e-02_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &3.0277e+00_rb,2.6495e+00_rb,2.2716e+00_rb,1.8933e+00_rb,1.5153e+00_rb,1.1372e+00_rb, &\n     &7.5951e-01_rb,4.2431e-01_rb,1.1653e-01_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &3.0877e+00_rb,2.7021e+00_rb,2.3167e+00_rb,1.9311e+00_rb,1.5454e+00_rb,1.1599e+00_rb, &\n     &7.9480e-01_rb,4.6158e-01_rb,1.5133e-01_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &3.1443e+00_rb,2.7514e+00_rb,2.3589e+00_rb,1.9665e+00_rb,1.5738e+00_rb,1.1839e+00_rb, &\n     &8.4936e-01_rb,4.8883e-01_rb,1.8963e-01_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &3.1902e+00_rb,2.7921e+00_rb,2.3935e+00_rb,1.9952e+00_rb,1.5971e+00_rb,1.2268e+00_rb, &\n     &8.9927e-01_rb,5.1426e-01_rb,2.3885e-01_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &3.2311e+00_rb,2.8275e+00_rb,2.4242e+00_rb,2.0206e+00_rb,1.6182e+00_rb,1.2846e+00_rb, &\n     &9.3468e-01_rb,5.5470e-01_rb,2.9337e-01_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &4.5362e+00_rb,3.9696e+00_rb,3.4027e+00_rb,2.8358e+00_rb,2.2692e+00_rb,1.7025e+00_rb, &\n     &1.1358e+00_rb,5.9446e-01_rb,1.1450e-01_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &4.6490e+00_rb,4.0681e+00_rb,3.4874e+00_rb,2.9068e+00_rb,2.3258e+00_rb,1.7450e+00_rb, &\n     &1.1656e+00_rb,6.4847e-01_rb,1.4911e-01_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &4.7559e+00_rb,4.1617e+00_rb,3.5676e+00_rb,2.9735e+00_rb,2.3793e+00_rb,1.7851e+00_rb, &\n     &1.2174e+00_rb,6.9018e-01_rb,1.9066e-01_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &4.8499e+00_rb,4.2438e+00_rb,3.6378e+00_rb,3.0322e+00_rb,2.4263e+00_rb,1.8213e+00_rb, &\n     &1.2864e+00_rb,7.2155e-01_rb,2.3838e-01_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &4.9283e+00_rb,4.3130e+00_rb,3.6972e+00_rb,3.0815e+00_rb,2.4657e+00_rb,1.8737e+00_rb, &\n     &1.3480e+00_rb,7.6180e-01_rb,2.9224e-01_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &9.1512e+00_rb,8.0077e+00_rb,6.8647e+00_rb,5.7202e+00_rb,4.5764e+00_rb,3.4330e+00_rb, &\n     &2.2893e+00_rb,1.1456e+00_rb,1.0238e-01_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &9.4295e+00_rb,8.2512e+00_rb,7.0726e+00_rb,5.8941e+00_rb,4.7160e+00_rb,3.5376e+00_rb, &\n     &2.3591e+00_rb,1.1894e+00_rb,1.3683e-01_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &9.6929e+00_rb,8.4812e+00_rb,7.2704e+00_rb,6.0594e+00_rb,4.8479e+00_rb,3.6364e+00_rb, &\n     &2.4250e+00_rb,1.2581e+00_rb,1.7750e-01_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &9.9289e+00_rb,8.6885e+00_rb,7.4477e+00_rb,6.2066e+00_rb,4.9652e+00_rb,3.7251e+00_rb, &\n     &2.4842e+00_rb,1.3376e+00_rb,2.2412e-01_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &1.0116e+01_rb,8.8511e+00_rb,7.5880e+00_rb,6.3233e+00_rb,5.0592e+00_rb,3.7951e+00_rb, &\n     &2.5511e+00_rb,1.3941e+00_rb,2.7545e-01_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &1.9425e+01_rb,1.6997e+01_rb,1.4568e+01_rb,1.2141e+01_rb,9.7127e+00_rb,7.2856e+00_rb, &\n     &4.8569e+00_rb,2.4292e+00_rb,8.5208e-02_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &1.9954e+01_rb,1.7460e+01_rb,1.4965e+01_rb,1.2471e+01_rb,9.9767e+00_rb,7.4831e+00_rb, &\n     &4.9893e+00_rb,2.4954e+00_rb,1.1708e-01_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &2.0423e+01_rb,1.7870e+01_rb,1.5318e+01_rb,1.2764e+01_rb,1.0212e+01_rb,7.6596e+00_rb, &\n     &5.1068e+00_rb,2.5544e+00_rb,1.5673e-01_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &2.0864e+01_rb,1.8257e+01_rb,1.5649e+01_rb,1.3042e+01_rb,1.0433e+01_rb,7.8250e+00_rb, &\n     &5.2173e+00_rb,2.6098e+00_rb,2.0293e-01_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &2.1248e+01_rb,1.8592e+01_rb,1.5938e+01_rb,1.3281e+01_rb,1.0624e+01_rb,7.9692e+00_rb, &\n     &5.3131e+00_rb,2.6931e+00_rb,2.5421e-01_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &4.0147e+01_rb,3.5130e+01_rb,3.0111e+01_rb,2.5093e+01_rb,2.0073e+01_rb,1.5056e+01_rb, &\n     &1.0038e+01_rb,5.0189e+00_rb,6.8359e-02_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &4.0924e+01_rb,3.5810e+01_rb,3.0692e+01_rb,2.5576e+01_rb,2.0461e+01_rb,1.5346e+01_rb, &\n     &1.0232e+01_rb,5.1160e+00_rb,9.6926e-02_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &4.1536e+01_rb,3.6343e+01_rb,3.1153e+01_rb,2.5962e+01_rb,2.0769e+01_rb,1.5577e+01_rb, &\n     &1.0385e+01_rb,5.1928e+00_rb,1.3304e-01_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &4.2166e+01_rb,3.6896e+01_rb,3.1624e+01_rb,2.6353e+01_rb,2.1083e+01_rb,1.5813e+01_rb, &\n     &1.0542e+01_rb,5.2715e+00_rb,1.7579e-01_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &4.2771e+01_rb,3.7425e+01_rb,3.2079e+01_rb,2.6732e+01_rb,2.1385e+01_rb,1.6040e+01_rb, &\n     &1.0693e+01_rb,5.3473e+00_rb,2.2393e-01_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &8.0027e+01_rb,7.0022e+01_rb,6.0023e+01_rb,5.0019e+01_rb,4.0013e+01_rb,3.0011e+01_rb, &\n     &2.0007e+01_rb,1.0004e+01_rb,5.3924e-02_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &8.1173e+01_rb,7.1024e+01_rb,6.0878e+01_rb,5.0731e+01_rb,4.0584e+01_rb,3.0439e+01_rb, &\n     &2.0293e+01_rb,1.0147e+01_rb,7.8165e-02_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &8.2280e+01_rb,7.1996e+01_rb,6.1710e+01_rb,5.1425e+01_rb,4.1141e+01_rb,3.0855e+01_rb, &\n     &2.0570e+01_rb,1.0285e+01_rb,1.0934e-01_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &8.3115e+01_rb,7.2722e+01_rb,6.2336e+01_rb,5.1947e+01_rb,4.1558e+01_rb,3.1167e+01_rb, &\n     &2.0778e+01_rb,1.0390e+01_rb,1.4595e-01_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &8.3819e+01_rb,7.3349e+01_rb,6.2867e+01_rb,5.2391e+01_rb,4.1913e+01_rb,3.1434e+01_rb, &\n     &2.0957e+01_rb,1.0479e+01_rb,1.8806e-01_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &1.6996e+02_rb,1.4871e+02_rb,1.2747e+02_rb,1.0622e+02_rb,8.4977e+01_rb,6.3734e+01_rb, &\n     &4.2490e+01_rb,2.1246e+01_rb,4.2588e-02_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &1.7243e+02_rb,1.5088e+02_rb,1.2932e+02_rb,1.0776e+02_rb,8.6211e+01_rb,6.4660e+01_rb, &\n     &4.3106e+01_rb,2.1553e+01_rb,6.2851e-02_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &1.7457e+02_rb,1.5274e+02_rb,1.3092e+02_rb,1.0910e+02_rb,8.7283e+01_rb,6.5459e+01_rb, &\n     &4.3641e+01_rb,2.1821e+01_rb,8.8704e-02_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &1.7636e+02_rb,1.5432e+02_rb,1.3227e+02_rb,1.1023e+02_rb,8.8183e+01_rb,6.6138e+01_rb, &\n     &4.4090e+01_rb,2.2046e+01_rb,1.1966e-01_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &1.7764e+02_rb,1.5544e+02_rb,1.3323e+02_rb,1.1102e+02_rb,8.8816e+01_rb,6.6613e+01_rb, &\n     &4.4410e+01_rb,2.2206e+01_rb,1.5600e-01_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &4.3531e+02_rb,3.8090e+02_rb,3.2647e+02_rb,2.7207e+02_rb,2.1766e+02_rb,1.6325e+02_rb, &\n     &1.0883e+02_rb,5.4412e+01_rb,3.2634e-02_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &4.4098e+02_rb,3.8585e+02_rb,3.3074e+02_rb,2.7562e+02_rb,2.2050e+02_rb,1.6536e+02_rb, &\n     &1.1025e+02_rb,5.5123e+01_rb,4.9788e-02_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &4.4650e+02_rb,3.9069e+02_rb,3.3490e+02_rb,2.7906e+02_rb,2.2325e+02_rb,1.6744e+02_rb, &\n     &1.1162e+02_rb,5.5816e+01_rb,7.2094e-02_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &4.5108e+02_rb,3.9470e+02_rb,3.3831e+02_rb,2.8194e+02_rb,2.2555e+02_rb,1.6915e+02_rb, &\n     &1.1277e+02_rb,5.6387e+01_rb,9.8901e-02_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &4.5442e+02_rb,3.9761e+02_rb,3.4081e+02_rb,2.8400e+02_rb,2.2721e+02_rb,1.7040e+02_rb, &\n     &1.1360e+02_rb,5.6798e+01_rb,1.3038e-01_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &2.1147e+03_rb,1.8504e+03_rb,1.5860e+03_rb,1.3217e+03_rb,1.0574e+03_rb,7.9304e+02_rb, &\n     &5.2867e+02_rb,2.6435e+02_rb,1.9424e-02_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &2.1442e+03_rb,1.8762e+03_rb,1.6082e+03_rb,1.3401e+03_rb,1.0721e+03_rb,8.0408e+02_rb, &\n     &5.3608e+02_rb,2.6803e+02_rb,3.6865e-02_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &2.1685e+03_rb,1.8976e+03_rb,1.6264e+03_rb,1.3553e+03_rb,1.0842e+03_rb,8.1317e+02_rb, &\n     &5.4213e+02_rb,2.7107e+02_rb,5.5684e-02_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &2.1886e+03_rb,1.9151e+03_rb,1.6415e+03_rb,1.3680e+03_rb,1.0943e+03_rb,8.2077e+02_rb, &\n     &5.4720e+02_rb,2.7360e+02_rb,7.8135e-02_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &2.2035e+03_rb,1.9281e+03_rb,1.6526e+03_rb,1.3772e+03_rb,1.1018e+03_rb,8.2634e+02_rb, &\n     &5.5093e+02_rb,2.7546e+02_rb,1.0558e-01_rb/)\n      kao(:, 1,10,10) = (/ &\n     &1.1340e+04_rb,9.9225e+03_rb,8.5053e+03_rb,7.0882e+03_rb,5.6700e+03_rb,4.2524e+03_rb, &\n     &2.8350e+03_rb,1.4175e+03_rb,1.1591e-02_rb/)\n      kao(:, 2,10,10) = (/ &\n     &1.1483e+04_rb,1.0048e+04_rb,8.6127e+03_rb,7.1771e+03_rb,5.7419e+03_rb,4.3066e+03_rb, &\n     &2.8709e+03_rb,1.4354e+03_rb,1.2588e-02_rb/)\n      kao(:, 3,10,10) = (/ &\n     &1.1610e+04_rb,1.0159e+04_rb,8.7071e+03_rb,7.2559e+03_rb,5.8048e+03_rb,4.3532e+03_rb, &\n     &2.9023e+03_rb,1.4511e+03_rb,2.5538e-02_rb/)\n      kao(:, 4,10,10) = (/ &\n     &1.1702e+04_rb,1.0239e+04_rb,8.7766e+03_rb,7.3135e+03_rb,5.8511e+03_rb,4.3884e+03_rb, &\n     &2.9255e+03_rb,1.4628e+03_rb,4.5275e-02_rb/)\n      kao(:, 5,10,10) = (/ &\n     &1.1737e+04_rb,1.0270e+04_rb,8.8031e+03_rb,7.3358e+03_rb,5.8688e+03_rb,4.4014e+03_rb, &\n     &2.9344e+03_rb,1.4670e+03_rb,5.8192e-02_rb/)\n      kao(:, 1,11,10) = (/ &\n     &2.0903e+04_rb,1.8291e+04_rb,1.5678e+04_rb,1.3065e+04_rb,1.0451e+04_rb,7.8389e+03_rb, &\n     &5.2261e+03_rb,2.6129e+03_rb,7.1886e-03_rb/)\n      kao(:, 2,11,10) = (/ &\n     &2.1095e+04_rb,1.8459e+04_rb,1.5821e+04_rb,1.3184e+04_rb,1.0548e+04_rb,7.9109e+03_rb, &\n     &5.2736e+03_rb,2.6368e+03_rb,6.0460e-03_rb/)\n      kao(:, 3,11,10) = (/ &\n     &2.1210e+04_rb,1.8559e+04_rb,1.5908e+04_rb,1.3256e+04_rb,1.0605e+04_rb,7.9536e+03_rb, &\n     &5.3027e+03_rb,2.6511e+03_rb,2.6262e-02_rb/)\n      kao(:, 4,11,10) = (/ &\n     &2.1260e+04_rb,1.8603e+04_rb,1.5945e+04_rb,1.3287e+04_rb,1.0630e+04_rb,7.9726e+03_rb, &\n     &5.3149e+03_rb,2.6575e+03_rb,3.1824e-02_rb/)\n      kao(:, 5,11,10) = (/ &\n     &2.1221e+04_rb,1.8569e+04_rb,1.5915e+04_rb,1.3263e+04_rb,1.0611e+04_rb,7.9580e+03_rb, &\n     &5.3053e+03_rb,2.6525e+03_rb,4.2831e-02_rb/)\n      kao(:, 1,12,10) = (/ &\n     &2.8005e+04_rb,2.4506e+04_rb,2.1003e+04_rb,1.7504e+04_rb,1.4003e+04_rb,1.0502e+04_rb, &\n     &7.0018e+03_rb,3.5007e+03_rb,1.9282e-02_rb/)\n      kao(:, 2,12,10) = (/ &\n     &2.8178e+04_rb,2.4656e+04_rb,2.1135e+04_rb,1.7611e+04_rb,1.4090e+04_rb,1.0567e+04_rb, &\n     &7.0445e+03_rb,3.5221e+03_rb,8.6382e-03_rb/)\n      kao(:, 3,12,10) = (/ &\n     &2.8205e+04_rb,2.4680e+04_rb,2.1153e+04_rb,1.7628e+04_rb,1.4103e+04_rb,1.0577e+04_rb, &\n     &7.0512e+03_rb,3.5256e+03_rb,2.9773e-02_rb/)\n      kao(:, 4,12,10) = (/ &\n     &2.8170e+04_rb,2.4648e+04_rb,2.1126e+04_rb,1.7606e+04_rb,1.4084e+04_rb,1.0563e+04_rb, &\n     &7.0421e+03_rb,3.5211e+03_rb,3.9720e-02_rb/)\n      kao(:, 5,12,10) = (/ &\n     &2.8047e+04_rb,2.4540e+04_rb,2.1034e+04_rb,1.7529e+04_rb,1.4023e+04_rb,1.0517e+04_rb, &\n     &7.0115e+03_rb,3.5058e+03_rb,4.1794e-02_rb/)\n      kao(:, 1,13,10) = (/ &\n     &2.9533e+04_rb,2.5841e+04_rb,2.2150e+04_rb,1.8457e+04_rb,1.4766e+04_rb,1.1075e+04_rb, &\n     &7.3833e+03_rb,3.6917e+03_rb,1.5098e-03_rb/)\n      kao(:, 2,13,10) = (/ &\n     &2.9558e+04_rb,2.5865e+04_rb,2.2169e+04_rb,1.8475e+04_rb,1.4779e+04_rb,1.1085e+04_rb, &\n     &7.3900e+03_rb,3.6949e+03_rb,1.2533e-02_rb/)\n      kao(:, 3,13,10) = (/ &\n     &2.9540e+04_rb,2.5844e+04_rb,2.2155e+04_rb,1.8463e+04_rb,1.4769e+04_rb,1.1077e+04_rb, &\n     &7.3851e+03_rb,3.6924e+03_rb,1.7410e-02_rb/)\n      kao(:, 4,13,10) = (/ &\n     &2.9338e+04_rb,2.5670e+04_rb,2.2004e+04_rb,1.8336e+04_rb,1.4669e+04_rb,1.1002e+04_rb, &\n     &7.3346e+03_rb,3.6671e+03_rb,4.5009e-02_rb/)\n      kao(:, 5,13,10) = (/ &\n     &2.9073e+04_rb,2.5440e+04_rb,2.1806e+04_rb,1.8171e+04_rb,1.4537e+04_rb,1.0903e+04_rb, &\n     &7.2684e+03_rb,3.6344e+03_rb,5.0725e-02_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &5.0284e+00_rb,4.3997e+00_rb,3.7713e+00_rb,3.1433e+00_rb,2.5148e+00_rb,1.8867e+00_rb, &\n     &1.2585e+00_rb,6.3034e-01_rb,1.3324e-01_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &5.0428e+00_rb,4.4122e+00_rb,3.7822e+00_rb,3.1521e+00_rb,2.5223e+00_rb,1.8921e+00_rb, &\n     &1.2620e+00_rb,6.6040e-01_rb,1.7160e-01_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &5.0450e+00_rb,4.4148e+00_rb,3.7841e+00_rb,3.1540e+00_rb,2.5234e+00_rb,1.8930e+00_rb, &\n     &1.2629e+00_rb,7.0553e-01_rb,2.2033e-01_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &5.0314e+00_rb,4.4027e+00_rb,3.7741e+00_rb,3.1454e+00_rb,2.5166e+00_rb,1.8879e+00_rb, &\n     &1.2828e+00_rb,7.2981e-01_rb,2.7819e-01_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &5.0061e+00_rb,4.3808e+00_rb,3.7550e+00_rb,3.1298e+00_rb,2.5041e+00_rb,1.8785e+00_rb, &\n     &1.3311e+00_rb,7.4514e-01_rb,3.4945e-01_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &7.7109e+00_rb,6.7474e+00_rb,5.7839e+00_rb,4.8201e+00_rb,3.8564e+00_rb,2.8926e+00_rb, &\n     &1.9289e+00_rb,9.6516e-01_rb,1.3538e-01_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &7.7553e+00_rb,6.7857e+00_rb,5.8167e+00_rb,4.8473e+00_rb,3.8784e+00_rb,2.9091e+00_rb, &\n     &1.9400e+00_rb,9.7434e-01_rb,1.7899e-01_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &7.7777e+00_rb,6.8060e+00_rb,5.8332e+00_rb,4.8617e+00_rb,3.8897e+00_rb,2.9178e+00_rb, &\n     &1.9457e+00_rb,1.0175e+00_rb,2.2662e-01_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &7.7756e+00_rb,6.8039e+00_rb,5.8323e+00_rb,4.8602e+00_rb,3.8885e+00_rb,2.9169e+00_rb, &\n     &1.9452e+00_rb,1.0634e+00_rb,2.8531e-01_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &7.7495e+00_rb,6.7817e+00_rb,5.8131e+00_rb,4.8446e+00_rb,3.8758e+00_rb,2.9075e+00_rb, &\n     &1.9643e+00_rb,1.0863e+00_rb,3.5634e-01_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &1.5932e+01_rb,1.3941e+01_rb,1.1949e+01_rb,9.9578e+00_rb,7.9671e+00_rb,5.9754e+00_rb, &\n     &3.9840e+00_rb,1.9926e+00_rb,1.2714e-01_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &1.6076e+01_rb,1.4067e+01_rb,1.2058e+01_rb,1.0048e+01_rb,8.0387e+00_rb,6.0296e+00_rb, &\n     &4.0199e+00_rb,2.0105e+00_rb,1.7056e-01_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &1.6164e+01_rb,1.4145e+01_rb,1.2124e+01_rb,1.0103e+01_rb,8.0829e+00_rb,6.0627e+00_rb, &\n     &4.0424e+00_rb,2.0217e+00_rb,2.2135e-01_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &1.6211e+01_rb,1.4185e+01_rb,1.2159e+01_rb,1.0132e+01_rb,8.1062e+00_rb,6.0800e+00_rb, &\n     &4.0538e+00_rb,2.0361e+00_rb,2.7967e-01_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &1.6213e+01_rb,1.4187e+01_rb,1.2160e+01_rb,1.0134e+01_rb,8.1068e+00_rb,6.0810e+00_rb, &\n     &4.0544e+00_rb,2.0887e+00_rb,3.5085e-01_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &3.3505e+01_rb,2.9316e+01_rb,2.5128e+01_rb,2.0940e+01_rb,1.6753e+01_rb,1.2564e+01_rb, &\n     &8.3770e+00_rb,4.1888e+00_rb,1.1343e-01_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &3.3957e+01_rb,2.9712e+01_rb,2.5469e+01_rb,2.1224e+01_rb,1.6979e+01_rb,1.2735e+01_rb, &\n     &8.4899e+00_rb,4.2456e+00_rb,1.5601e-01_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &3.4273e+01_rb,2.9992e+01_rb,2.5707e+01_rb,2.1421e+01_rb,1.7138e+01_rb,1.2854e+01_rb, &\n     &8.5693e+00_rb,4.2852e+00_rb,2.0536e-01_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &3.4537e+01_rb,3.0216e+01_rb,2.5901e+01_rb,2.1585e+01_rb,1.7269e+01_rb,1.2951e+01_rb, &\n     &8.6346e+00_rb,4.3178e+00_rb,2.6462e-01_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &3.4713e+01_rb,3.0370e+01_rb,2.6032e+01_rb,2.1696e+01_rb,1.7356e+01_rb,1.3018e+01_rb, &\n     &8.6791e+00_rb,4.3400e+00_rb,3.3230e-01_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &6.4813e+01_rb,5.6712e+01_rb,4.8608e+01_rb,4.0507e+01_rb,3.2408e+01_rb,2.4306e+01_rb, &\n     &1.6204e+01_rb,8.1017e+00_rb,9.6356e-02_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &6.6164e+01_rb,5.7895e+01_rb,4.9623e+01_rb,4.1352e+01_rb,3.3084e+01_rb,2.4813e+01_rb, &\n     &1.6542e+01_rb,8.2707e+00_rb,1.3652e-01_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &6.7228e+01_rb,5.8826e+01_rb,5.0425e+01_rb,4.2018e+01_rb,3.3613e+01_rb,2.5211e+01_rb, &\n     &1.6808e+01_rb,8.4044e+00_rb,1.8472e-01_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &6.8035e+01_rb,5.9536e+01_rb,5.1024e+01_rb,4.2523e+01_rb,3.4019e+01_rb,2.5513e+01_rb, &\n     &1.7010e+01_rb,8.5064e+00_rb,2.4242e-01_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &6.8554e+01_rb,5.9987e+01_rb,5.1420e+01_rb,4.2849e+01_rb,3.4277e+01_rb,2.5710e+01_rb, &\n     &1.7140e+01_rb,8.5702e+00_rb,3.0919e-01_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &1.1801e+02_rb,1.0326e+02_rb,8.8506e+01_rb,7.3757e+01_rb,5.9002e+01_rb,4.4254e+01_rb, &\n     &2.9503e+01_rb,1.4751e+01_rb,7.7344e-02_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &1.2108e+02_rb,1.0594e+02_rb,9.0808e+01_rb,7.5672e+01_rb,6.0541e+01_rb,4.5406e+01_rb, &\n     &3.0271e+01_rb,1.5134e+01_rb,1.1263e-01_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &1.2354e+02_rb,1.0810e+02_rb,9.2652e+01_rb,7.7213e+01_rb,6.1769e+01_rb,4.6330e+01_rb, &\n     &3.0886e+01_rb,1.5443e+01_rb,1.5682e-01_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &1.2526e+02_rb,1.0960e+02_rb,9.3943e+01_rb,7.8284e+01_rb,6.2629e+01_rb,4.6975e+01_rb, &\n     &3.1316e+01_rb,1.5657e+01_rb,2.1207e-01_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &1.2664e+02_rb,1.1081e+02_rb,9.4976e+01_rb,7.9149e+01_rb,6.3321e+01_rb,4.7490e+01_rb, &\n     &3.1658e+01_rb,1.5831e+01_rb,2.7724e-01_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &2.3249e+02_rb,2.0341e+02_rb,1.7435e+02_rb,1.4529e+02_rb,1.1624e+02_rb,8.7178e+01_rb, &\n     &5.8117e+01_rb,2.9059e+01_rb,6.0308e-02_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &2.3796e+02_rb,2.0820e+02_rb,1.7846e+02_rb,1.4871e+02_rb,1.1897e+02_rb,8.9231e+01_rb, &\n     &5.9488e+01_rb,2.9745e+01_rb,9.0208e-02_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &2.4226e+02_rb,2.1197e+02_rb,1.8170e+02_rb,1.5141e+02_rb,1.2113e+02_rb,9.0843e+01_rb, &\n     &6.0568e+01_rb,3.0281e+01_rb,1.2927e-01_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &2.4544e+02_rb,2.1477e+02_rb,1.8409e+02_rb,1.5341e+02_rb,1.2272e+02_rb,9.2044e+01_rb, &\n     &6.1361e+01_rb,3.0682e+01_rb,1.7878e-01_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &2.4764e+02_rb,2.1668e+02_rb,1.8573e+02_rb,1.5477e+02_rb,1.2381e+02_rb,9.2866e+01_rb, &\n     &6.1907e+01_rb,3.0956e+01_rb,2.3824e-01_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &5.7428e+02_rb,5.0249e+02_rb,4.3070e+02_rb,3.5893e+02_rb,2.8714e+02_rb,2.1536e+02_rb, &\n     &1.4357e+02_rb,7.1786e+01_rb,4.7227e-02_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &5.8499e+02_rb,5.1190e+02_rb,4.3878e+02_rb,3.6564e+02_rb,2.9252e+02_rb,2.1939e+02_rb, &\n     &1.4626e+02_rb,7.3130e+01_rb,7.2171e-02_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &5.9291e+02_rb,5.1879e+02_rb,4.4470e+02_rb,3.7058e+02_rb,2.9645e+02_rb,2.2235e+02_rb, &\n     &1.4822e+02_rb,7.4114e+01_rb,1.0536e-01_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &5.9816e+02_rb,5.2341e+02_rb,4.4862e+02_rb,3.7386e+02_rb,2.9908e+02_rb,2.2431e+02_rb, &\n     &1.4954e+02_rb,7.4773e+01_rb,1.4833e-01_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &6.0144e+02_rb,5.2627e+02_rb,4.5109e+02_rb,3.7590e+02_rb,3.0070e+02_rb,2.2554e+02_rb, &\n     &1.5036e+02_rb,7.5181e+01_rb,1.9981e-01_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &2.7514e+03_rb,2.4073e+03_rb,2.0635e+03_rb,1.7196e+03_rb,1.3757e+03_rb,1.0318e+03_rb, &\n     &6.8788e+02_rb,3.4393e+02_rb,3.3107e-02_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &2.7973e+03_rb,2.4476e+03_rb,2.0979e+03_rb,1.7482e+03_rb,1.3986e+03_rb,1.0490e+03_rb, &\n     &6.9932e+02_rb,3.4966e+02_rb,5.6998e-02_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &2.8265e+03_rb,2.4731e+03_rb,2.1197e+03_rb,1.7664e+03_rb,1.4131e+03_rb,1.0599e+03_rb, &\n     &7.0662e+02_rb,3.5330e+02_rb,8.5901e-02_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &2.8388e+03_rb,2.4841e+03_rb,2.1291e+03_rb,1.7743e+03_rb,1.4194e+03_rb,1.0646e+03_rb, &\n     &7.0974e+02_rb,3.5484e+02_rb,1.2233e-01_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &2.8373e+03_rb,2.4828e+03_rb,2.1280e+03_rb,1.7734e+03_rb,1.4187e+03_rb,1.0640e+03_rb, &\n     &7.0933e+02_rb,3.5467e+02_rb,1.6642e-01_rb/)\n      kao(:, 1,10,11) = (/ &\n     &1.4796e+04_rb,1.2947e+04_rb,1.1097e+04_rb,9.2476e+03_rb,7.3982e+03_rb,5.5489e+03_rb, &\n     &3.6992e+03_rb,1.8496e+03_rb,1.7335e-02_rb/)\n      kao(:, 2,10,11) = (/ &\n     &1.4975e+04_rb,1.3103e+04_rb,1.1231e+04_rb,9.3585e+03_rb,7.4871e+03_rb,5.6155e+03_rb, &\n     &3.7435e+03_rb,1.8717e+03_rb,3.1226e-02_rb/)\n      kao(:, 3,10,11) = (/ &\n     &1.5074e+04_rb,1.3189e+04_rb,1.1305e+04_rb,9.4210e+03_rb,7.5370e+03_rb,5.6528e+03_rb, &\n     &3.7685e+03_rb,1.8842e+03_rb,4.3228e-02_rb/)\n      kao(:, 4,10,11) = (/ &\n     &1.5109e+04_rb,1.3220e+04_rb,1.1331e+04_rb,9.4424e+03_rb,7.5542e+03_rb,5.6659e+03_rb, &\n     &3.7773e+03_rb,1.8886e+03_rb,5.6685e-02_rb/)\n      kao(:, 5,10,11) = (/ &\n     &1.5082e+04_rb,1.3196e+04_rb,1.1311e+04_rb,9.4257e+03_rb,7.5405e+03_rb,5.6555e+03_rb, &\n     &3.7704e+03_rb,1.8852e+03_rb,8.6311e-02_rb/)\n      kao(:, 1,11,11) = (/ &\n     &2.7889e+04_rb,2.4402e+04_rb,2.0916e+04_rb,1.7430e+04_rb,1.3944e+04_rb,1.0458e+04_rb, &\n     &6.9720e+03_rb,3.4860e+03_rb,1.1432e-02_rb/)\n      kao(:, 2,11,11) = (/ &\n     &2.8116e+04_rb,2.4602e+04_rb,2.1087e+04_rb,1.7573e+04_rb,1.4058e+04_rb,1.0543e+04_rb, &\n     &7.0292e+03_rb,3.5144e+03_rb,1.1075e-02_rb/)\n      kao(:, 3,11,11) = (/ &\n     &2.8224e+04_rb,2.4695e+04_rb,2.1166e+04_rb,1.7640e+04_rb,1.4112e+04_rb,1.0583e+04_rb, &\n     &7.0560e+03_rb,3.5276e+03_rb,4.6547e-02_rb/)\n      kao(:, 4,11,11) = (/ &\n     &2.8217e+04_rb,2.4690e+04_rb,2.1162e+04_rb,1.7636e+04_rb,1.4108e+04_rb,1.0581e+04_rb, &\n     &7.0540e+03_rb,3.5272e+03_rb,6.2488e-02_rb/)\n      kao(:, 5,11,11) = (/ &\n     &2.8126e+04_rb,2.4609e+04_rb,2.1093e+04_rb,1.7578e+04_rb,1.4063e+04_rb,1.0547e+04_rb, &\n     &7.0311e+03_rb,3.5155e+03_rb,7.5051e-02_rb/)\n      kao(:, 1,12,11) = (/ &\n     &3.8808e+04_rb,3.3958e+04_rb,2.9106e+04_rb,2.4255e+04_rb,1.9403e+04_rb,1.4552e+04_rb, &\n     &9.7020e+03_rb,4.8510e+03_rb,3.0879e-04_rb/)\n      kao(:, 2,12,11) = (/ &\n     &3.8964e+04_rb,3.4093e+04_rb,2.9222e+04_rb,2.4351e+04_rb,1.9482e+04_rb,1.4612e+04_rb, &\n     &9.7411e+03_rb,4.8703e+03_rb,1.3840e-02_rb/)\n      kao(:, 3,12,11) = (/ &\n     &3.8935e+04_rb,3.4067e+04_rb,2.9198e+04_rb,2.4333e+04_rb,1.9466e+04_rb,1.4600e+04_rb, &\n     &9.7333e+03_rb,4.8667e+03_rb,2.1306e-02_rb/)\n      kao(:, 4,12,11) = (/ &\n     &3.8831e+04_rb,3.3979e+04_rb,2.9123e+04_rb,2.4270e+04_rb,1.9417e+04_rb,1.4562e+04_rb, &\n     &9.7077e+03_rb,4.8538e+03_rb,6.5973e-02_rb/)\n      kao(:, 5,12,11) = (/ &\n     &3.8549e+04_rb,3.3728e+04_rb,2.8909e+04_rb,2.4091e+04_rb,1.9273e+04_rb,1.4455e+04_rb, &\n     &9.6358e+03_rb,4.8182e+03_rb,7.9959e-02_rb/)\n      kao(:, 1,13,11) = (/ &\n     &4.2486e+04_rb,3.7175e+04_rb,3.1864e+04_rb,2.6552e+04_rb,2.1242e+04_rb,1.5932e+04_rb, &\n     &1.0621e+04_rb,5.3106e+03_rb,2.4053e-04_rb/)\n      kao(:, 2,13,11) = (/ &\n     &4.2536e+04_rb,3.7221e+04_rb,3.1903e+04_rb,2.6585e+04_rb,2.1268e+04_rb,1.5951e+04_rb, &\n     &1.0634e+04_rb,5.3169e+03_rb,2.3604e-02_rb/)\n      kao(:, 3,13,11) = (/ &\n     &4.2342e+04_rb,3.7047e+04_rb,3.1757e+04_rb,2.6467e+04_rb,2.1172e+04_rb,1.5879e+04_rb, &\n     &1.0585e+04_rb,5.2925e+03_rb,1.5018e-02_rb/)\n      kao(:, 4,13,11) = (/ &\n     &4.2048e+04_rb,3.6792e+04_rb,3.1537e+04_rb,2.6281e+04_rb,2.1024e+04_rb,1.5767e+04_rb, &\n     &1.0512e+04_rb,5.2560e+03_rb,5.3807e-02_rb/)\n      kao(:, 5,13,11) = (/ &\n     &4.1662e+04_rb,3.6457e+04_rb,3.1248e+04_rb,2.6040e+04_rb,2.0833e+04_rb,1.5623e+04_rb, &\n     &1.0416e+04_rb,5.2082e+03_rb,6.8318e-02_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &7.2849e+00_rb,6.3745e+00_rb,5.4643e+00_rb,4.5537e+00_rb,3.6431e+00_rb,2.7326e+00_rb, &\n     &1.8223e+00_rb,9.1190e-01_rb,1.6091e-01_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &7.1530e+00_rb,6.2588e+00_rb,5.3648e+00_rb,4.4709e+00_rb,3.5770e+00_rb,2.6830e+00_rb, &\n     &1.7891e+00_rb,8.9548e-01_rb,2.2421e-01_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &7.0158e+00_rb,6.1389e+00_rb,5.2624e+00_rb,4.3853e+00_rb,3.5089e+00_rb,2.6317e+00_rb, &\n     &1.7551e+00_rb,9.0204e-01_rb,3.0513e-01_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &6.8752e+00_rb,6.0158e+00_rb,5.1568e+00_rb,4.2975e+00_rb,3.4386e+00_rb,2.5792e+00_rb, &\n     &1.7200e+00_rb,9.2056e-01_rb,4.0130e-01_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &6.7312e+00_rb,5.8897e+00_rb,5.0486e+00_rb,4.2075e+00_rb,3.3663e+00_rb,2.5251e+00_rb, &\n     &1.6886e+00_rb,9.1312e-01_rb,5.1163e-01_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &1.1380e+01_rb,9.9571e+00_rb,8.5349e+00_rb,7.1126e+00_rb,5.6896e+00_rb,4.2680e+00_rb, &\n     &2.8456e+00_rb,1.4234e+00_rb,1.6023e-01_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &1.1190e+01_rb,9.7913e+00_rb,8.3926e+00_rb,6.9944e+00_rb,5.5956e+00_rb,4.1971e+00_rb, &\n     &2.7983e+00_rb,1.3998e+00_rb,2.1092e-01_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &1.0994e+01_rb,9.6196e+00_rb,8.2451e+00_rb,6.8714e+00_rb,5.4970e+00_rb,4.1233e+00_rb, &\n     &2.7491e+00_rb,1.3753e+00_rb,2.8249e-01_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &1.0789e+01_rb,9.4404e+00_rb,8.0917e+00_rb,6.7431e+00_rb,5.3950e+00_rb,4.0464e+00_rb, &\n     &2.6980e+00_rb,1.3854e+00_rb,3.7167e-01_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &1.0574e+01_rb,9.2528e+00_rb,7.9306e+00_rb,6.6095e+00_rb,5.2877e+00_rb,3.9662e+00_rb, &\n     &2.6446e+00_rb,1.3862e+00_rb,4.7628e-01_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &2.4019e+01_rb,2.1015e+01_rb,1.8012e+01_rb,1.5011e+01_rb,1.2010e+01_rb,9.0070e+00_rb, &\n     &6.0051e+00_rb,3.0029e+00_rb,1.5458e-01_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &2.3668e+01_rb,2.0712e+01_rb,1.7752e+01_rb,1.4794e+01_rb,1.1835e+01_rb,8.8764e+00_rb, &\n     &5.9181e+00_rb,2.9594e+00_rb,2.0548e-01_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &2.3299e+01_rb,2.0389e+01_rb,1.7475e+01_rb,1.4563e+01_rb,1.1650e+01_rb,8.7378e+00_rb, &\n     &5.8256e+00_rb,2.9134e+00_rb,2.6510e-01_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &2.2895e+01_rb,2.0033e+01_rb,1.7172e+01_rb,1.4310e+01_rb,1.1449e+01_rb,8.5868e+00_rb, &\n     &5.7250e+00_rb,2.8629e+00_rb,3.4340e-01_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &2.2457e+01_rb,1.9650e+01_rb,1.6845e+01_rb,1.4036e+01_rb,1.1229e+01_rb,8.4225e+00_rb, &\n     &5.6152e+00_rb,2.8081e+00_rb,4.3834e-01_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &5.1943e+01_rb,4.5448e+01_rb,3.8958e+01_rb,3.2464e+01_rb,2.5972e+01_rb,1.9479e+01_rb, &\n     &1.2986e+01_rb,6.4930e+00_rb,1.4248e-01_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &5.1352e+01_rb,4.4935e+01_rb,3.8514e+01_rb,3.2094e+01_rb,2.5675e+01_rb,1.9257e+01_rb, &\n     &1.2838e+01_rb,6.4195e+00_rb,1.9502e-01_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &5.0623e+01_rb,4.4294e+01_rb,3.7964e+01_rb,3.1639e+01_rb,2.5309e+01_rb,1.8983e+01_rb, &\n     &1.2655e+01_rb,6.3280e+00_rb,2.5898e-01_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &4.9799e+01_rb,4.3576e+01_rb,3.7352e+01_rb,3.1124e+01_rb,2.4901e+01_rb,1.8676e+01_rb, &\n     &1.2451e+01_rb,6.2257e+00_rb,3.3035e-01_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &4.8898e+01_rb,4.2791e+01_rb,3.6677e+01_rb,3.0566e+01_rb,2.4452e+01_rb,1.8340e+01_rb, &\n     &1.2226e+01_rb,6.1134e+00_rb,4.1835e-01_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &1.0373e+02_rb,9.0759e+01_rb,7.7796e+01_rb,6.4826e+01_rb,5.1857e+01_rb,3.8894e+01_rb, &\n     &2.5931e+01_rb,1.2966e+01_rb,1.2887e-01_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &1.0276e+02_rb,8.9908e+01_rb,7.7065e+01_rb,6.4222e+01_rb,5.1382e+01_rb,3.8535e+01_rb, &\n     &2.5690e+01_rb,1.2845e+01_rb,1.8027e-01_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &1.0148e+02_rb,8.8794e+01_rb,7.6113e+01_rb,6.3420e+01_rb,5.0736e+01_rb,3.8055e+01_rb, &\n     &2.5371e+01_rb,1.2686e+01_rb,2.4350e-01_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &9.9981e+01_rb,8.7486e+01_rb,7.4989e+01_rb,6.2492e+01_rb,4.9992e+01_rb,3.7496e+01_rb, &\n     &2.4996e+01_rb,1.2498e+01_rb,3.1895e-01_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &9.8403e+01_rb,8.6098e+01_rb,7.3801e+01_rb,6.1498e+01_rb,4.9199e+01_rb,3.6902e+01_rb, &\n     &2.4598e+01_rb,1.2301e+01_rb,4.0491e-01_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &1.9449e+02_rb,1.7021e+02_rb,1.4589e+02_rb,1.2157e+02_rb,9.7258e+01_rb,7.2943e+01_rb, &\n     &4.8628e+01_rb,2.4314e+01_rb,1.1014e-01_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &1.9309e+02_rb,1.6897e+02_rb,1.4483e+02_rb,1.2070e+02_rb,9.6559e+01_rb,7.2419e+01_rb, &\n     &4.8279e+01_rb,2.4139e+01_rb,1.6004e-01_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &1.9140e+02_rb,1.6747e+02_rb,1.4356e+02_rb,1.1963e+02_rb,9.5709e+01_rb,7.1777e+01_rb, &\n     &4.7853e+01_rb,2.3926e+01_rb,2.2190e-01_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &1.8899e+02_rb,1.6537e+02_rb,1.4174e+02_rb,1.1810e+02_rb,9.4493e+01_rb,7.0867e+01_rb, &\n     &4.7246e+01_rb,2.3622e+01_rb,2.9571e-01_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &1.8566e+02_rb,1.6245e+02_rb,1.3925e+02_rb,1.1603e+02_rb,9.2834e+01_rb,6.9623e+01_rb, &\n     &4.6415e+01_rb,2.3209e+01_rb,3.8274e-01_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &3.8417e+02_rb,3.3613e+02_rb,2.8811e+02_rb,2.4009e+02_rb,1.9205e+02_rb,1.4405e+02_rb, &\n     &9.6037e+01_rb,4.8023e+01_rb,9.0335e-02_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &3.8253e+02_rb,3.3473e+02_rb,2.8690e+02_rb,2.3908e+02_rb,1.9128e+02_rb,1.4345e+02_rb, &\n     &9.5632e+01_rb,4.7816e+01_rb,1.3557e-01_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &3.7949e+02_rb,3.3204e+02_rb,2.8460e+02_rb,2.3719e+02_rb,1.8975e+02_rb,1.4230e+02_rb, &\n     &9.4872e+01_rb,4.7438e+01_rb,1.9476e-01_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &3.7465e+02_rb,3.2783e+02_rb,2.8099e+02_rb,2.3416e+02_rb,1.8732e+02_rb,1.4050e+02_rb, &\n     &9.3670e+01_rb,4.6831e+01_rb,2.6694e-01_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &3.6931e+02_rb,3.2313e+02_rb,2.7696e+02_rb,2.3080e+02_rb,1.8464e+02_rb,1.3849e+02_rb, &\n     &9.2317e+01_rb,4.6160e+01_rb,3.5213e-01_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &9.0810e+02_rb,7.9455e+02_rb,6.8107e+02_rb,5.6755e+02_rb,4.5403e+02_rb,3.4053e+02_rb, &\n     &2.2701e+02_rb,1.1352e+02_rb,7.1564e-02_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &9.0605e+02_rb,7.9275e+02_rb,6.7956e+02_rb,5.6628e+02_rb,4.5302e+02_rb,3.3978e+02_rb, &\n     &2.2652e+02_rb,1.1325e+02_rb,1.1086e-01_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &9.0093e+02_rb,7.8832e+02_rb,6.7569e+02_rb,5.6306e+02_rb,4.5046e+02_rb,3.3783e+02_rb, &\n     &2.2521e+02_rb,1.1262e+02_rb,1.6463e-01_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &8.9363e+02_rb,7.8197e+02_rb,6.7027e+02_rb,5.5850e+02_rb,4.4681e+02_rb,3.3513e+02_rb, &\n     &2.2342e+02_rb,1.1170e+02_rb,2.3145e-01_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &8.8174e+02_rb,7.7148e+02_rb,6.6129e+02_rb,5.5110e+02_rb,4.4085e+02_rb,3.3064e+02_rb, &\n     &2.2045e+02_rb,1.1021e+02_rb,3.1429e-01_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &4.0575e+03_rb,3.5502e+03_rb,3.0431e+03_rb,2.5358e+03_rb,2.0286e+03_rb,1.5215e+03_rb, &\n     &1.0143e+03_rb,5.0720e+02_rb,5.5603e-02_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &4.0575e+03_rb,3.5503e+03_rb,3.0431e+03_rb,2.5359e+03_rb,2.0286e+03_rb,1.5216e+03_rb, &\n     &1.0143e+03_rb,5.0715e+02_rb,8.8381e-02_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &4.0490e+03_rb,3.5425e+03_rb,3.0365e+03_rb,2.5303e+03_rb,2.0243e+03_rb,1.5183e+03_rb, &\n     &1.0122e+03_rb,5.0611e+02_rb,1.3462e-01_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &4.0163e+03_rb,3.5141e+03_rb,3.0122e+03_rb,2.5100e+03_rb,2.0082e+03_rb,1.5061e+03_rb, &\n     &1.0041e+03_rb,5.0202e+02_rb,1.9418e-01_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &3.9738e+03_rb,3.4768e+03_rb,2.9801e+03_rb,2.4835e+03_rb,1.9868e+03_rb,1.4900e+03_rb, &\n     &9.9338e+02_rb,4.9668e+02_rb,2.7001e-01_rb/)\n      kao(:, 1,10,12) = (/ &\n     &2.0782e+04_rb,1.8184e+04_rb,1.5586e+04_rb,1.2989e+04_rb,1.0391e+04_rb,7.7931e+03_rb, &\n     &5.1956e+03_rb,2.5977e+03_rb,1.5076e-02_rb/)\n      kao(:, 2,10,12) = (/ &\n     &2.0847e+04_rb,1.8242e+04_rb,1.5636e+04_rb,1.3030e+04_rb,1.0424e+04_rb,7.8180e+03_rb, &\n     &5.2120e+03_rb,2.6061e+03_rb,3.9283e-02_rb/)\n      kao(:, 3,10,12) = (/ &\n     &2.0776e+04_rb,1.8179e+04_rb,1.5582e+04_rb,1.2985e+04_rb,1.0387e+04_rb,7.7905e+03_rb, &\n     &5.1937e+03_rb,2.5968e+03_rb,5.3678e-02_rb/)\n      kao(:, 4,10,12) = (/ &\n     &2.0635e+04_rb,1.8055e+04_rb,1.5476e+04_rb,1.2897e+04_rb,1.0317e+04_rb,7.7379e+03_rb, &\n     &5.1584e+03_rb,2.5793e+03_rb,8.4869e-02_rb/)\n      kao(:, 5,10,12) = (/ &\n     &2.0468e+04_rb,1.7910e+04_rb,1.5352e+04_rb,1.2793e+04_rb,1.0235e+04_rb,7.6761e+03_rb, &\n     &5.1174e+03_rb,2.5585e+03_rb,1.7840e-01_rb/)\n      kao(:, 1,11,12) = (/ &\n     &3.8086e+04_rb,3.3327e+04_rb,2.8563e+04_rb,2.3804e+04_rb,1.9042e+04_rb,1.4282e+04_rb, &\n     &9.5217e+03_rb,4.7607e+03_rb,3.5535e-02_rb/)\n      kao(:, 2,11,12) = (/ &\n     &3.8167e+04_rb,3.3395e+04_rb,2.8624e+04_rb,2.3853e+04_rb,1.9083e+04_rb,1.4312e+04_rb, &\n     &9.5414e+03_rb,4.7707e+03_rb,2.0336e-02_rb/)\n      kao(:, 3,11,12) = (/ &\n     &3.8095e+04_rb,3.3333e+04_rb,2.8571e+04_rb,2.3809e+04_rb,1.9048e+04_rb,1.4285e+04_rb, &\n     &9.5235e+03_rb,4.7617e+03_rb,7.3058e-02_rb/)\n      kao(:, 4,11,12) = (/ &\n     &3.7840e+04_rb,3.3110e+04_rb,2.8380e+04_rb,2.3651e+04_rb,1.8921e+04_rb,1.4191e+04_rb, &\n     &9.4603e+03_rb,4.7302e+03_rb,9.2342e-02_rb/)\n      kao(:, 5,11,12) = (/ &\n     &3.7466e+04_rb,3.2782e+04_rb,2.8098e+04_rb,2.3416e+04_rb,1.8732e+04_rb,1.4049e+04_rb, &\n     &9.3659e+03_rb,4.6831e+03_rb,1.1387e-01_rb/)\n      kao(:, 1,12,12) = (/ &\n     &5.3068e+04_rb,4.6434e+04_rb,3.9801e+04_rb,3.3167e+04_rb,2.6533e+04_rb,1.9901e+04_rb, &\n     &1.3266e+04_rb,6.6334e+03_rb,5.3631e-05_rb/)\n      kao(:, 2,12,12) = (/ &\n     &5.2912e+04_rb,4.6296e+04_rb,3.9684e+04_rb,3.3067e+04_rb,2.6455e+04_rb,1.9841e+04_rb, &\n     &1.3228e+04_rb,6.6136e+03_rb,3.3045e-02_rb/)\n      kao(:, 3,12,12) = (/ &\n     &5.2742e+04_rb,4.6150e+04_rb,3.9556e+04_rb,3.2963e+04_rb,2.6372e+04_rb,1.9779e+04_rb, &\n     &1.3186e+04_rb,6.5925e+03_rb,2.4038e-02_rb/)\n      kao(:, 4,12,12) = (/ &\n     &5.2329e+04_rb,4.5788e+04_rb,3.9248e+04_rb,3.2707e+04_rb,2.6165e+04_rb,1.9623e+04_rb, &\n     &1.3082e+04_rb,6.5410e+03_rb,8.8033e-02_rb/)\n      kao(:, 5,12,12) = (/ &\n     &5.1702e+04_rb,4.5237e+04_rb,3.8772e+04_rb,3.2311e+04_rb,2.5848e+04_rb,1.9386e+04_rb, &\n     &1.2925e+04_rb,6.4623e+03_rb,1.0528e-01_rb/)\n      kao(:, 1,13,12) = (/ &\n     &5.9181e+04_rb,5.1784e+04_rb,4.4385e+04_rb,3.6986e+04_rb,2.9590e+04_rb,2.2192e+04_rb, &\n     &1.4795e+04_rb,7.3976e+03_rb,6.3472e-05_rb/)\n      kao(:, 2,13,12) = (/ &\n     &5.9042e+04_rb,5.1661e+04_rb,4.4282e+04_rb,3.6901e+04_rb,2.9521e+04_rb,2.2141e+04_rb, &\n     &1.4760e+04_rb,7.3802e+03_rb,8.2093e-03_rb/)\n      kao(:, 3,13,12) = (/ &\n     &5.8661e+04_rb,5.1328e+04_rb,4.3997e+04_rb,3.6663e+04_rb,2.9331e+04_rb,2.1998e+04_rb, &\n     &1.4665e+04_rb,7.3324e+03_rb,2.9843e-02_rb/)\n      kao(:, 4,13,12) = (/ &\n     &5.8145e+04_rb,5.0874e+04_rb,4.3608e+04_rb,3.6342e+04_rb,2.9072e+04_rb,2.1804e+04_rb, &\n     &1.4536e+04_rb,7.2678e+03_rb,5.7821e-02_rb/)\n      kao(:, 5,13,12) = (/ &\n     &5.7447e+04_rb,5.0266e+04_rb,4.3086e+04_rb,3.5905e+04_rb,2.8722e+04_rb,2.1542e+04_rb, &\n     &1.4361e+04_rb,7.1808e+03_rb,1.1510e-01_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &9.2441e+00_rb,8.0893e+00_rb,6.9334e+00_rb,5.7782e+00_rb,4.6228e+00_rb,3.4672e+00_rb, &\n     &2.3119e+00_rb,1.1567e+00_rb,2.2855e-01_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &8.8623e+00_rb,7.7552e+00_rb,6.6473e+00_rb,5.5397e+00_rb,4.4320e+00_rb,3.3245e+00_rb, &\n     &2.2168e+00_rb,1.1091e+00_rb,3.2335e-01_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &8.4833e+00_rb,7.4233e+00_rb,6.3625e+00_rb,5.3026e+00_rb,4.2423e+00_rb,3.1825e+00_rb, &\n     &2.1219e+00_rb,1.0618e+00_rb,4.4367e-01_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &8.1215e+00_rb,7.1065e+00_rb,6.0917e+00_rb,5.0761e+00_rb,4.0614e+00_rb,3.0468e+00_rb, &\n     &2.0316e+00_rb,1.0641e+00_rb,5.9167e-01_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &7.7672e+00_rb,6.7964e+00_rb,5.8258e+00_rb,4.8545e+00_rb,3.8845e+00_rb,2.9137e+00_rb, &\n     &1.9430e+00_rb,1.0446e+00_rb,7.6901e-01_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &1.4699e+01_rb,1.2863e+01_rb,1.1024e+01_rb,9.1876e+00_rb,7.3499e+00_rb,5.5129e+00_rb, &\n     &3.6758e+00_rb,1.8383e+00_rb,2.1901e-01_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &1.4081e+01_rb,1.2321e+01_rb,1.0561e+01_rb,8.8012e+00_rb,7.0414e+00_rb,5.2809e+00_rb, &\n     &3.5211e+00_rb,1.7613e+00_rb,3.1665e-01_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &1.3470e+01_rb,1.1786e+01_rb,1.0102e+01_rb,8.4178e+00_rb,6.7345e+00_rb,5.0512e+00_rb, &\n     &3.3678e+00_rb,1.6847e+00_rb,4.4141e-01_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &1.2871e+01_rb,1.1263e+01_rb,9.6542e+00_rb,8.0452e+00_rb,6.4365e+00_rb,4.8276e+00_rb, &\n     &3.2187e+00_rb,1.6111e+00_rb,5.9558e-01_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &1.2298e+01_rb,1.0761e+01_rb,9.2242e+00_rb,7.6869e+00_rb,6.1502e+00_rb,4.6127e+00_rb, &\n     &3.0756e+00_rb,1.6035e+00_rb,7.7652e-01_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &3.1779e+01_rb,2.7807e+01_rb,2.3834e+01_rb,1.9863e+01_rb,1.5890e+01_rb,1.1918e+01_rb, &\n     &7.9454e+00_rb,3.9733e+00_rb,1.9638e-01_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &3.0431e+01_rb,2.6628e+01_rb,2.2823e+01_rb,1.9020e+01_rb,1.5217e+01_rb,1.1412e+01_rb, &\n     &7.6086e+00_rb,3.8049e+00_rb,2.7736e-01_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &2.9103e+01_rb,2.5465e+01_rb,2.1826e+01_rb,1.8188e+01_rb,1.4551e+01_rb,1.0914e+01_rb, &\n     &7.2766e+00_rb,3.6387e+00_rb,3.9551e-01_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &2.7810e+01_rb,2.4334e+01_rb,2.0858e+01_rb,1.7381e+01_rb,1.3906e+01_rb,1.0429e+01_rb, &\n     &6.9532e+00_rb,3.4769e+00_rb,5.4452e-01_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &2.6585e+01_rb,2.3262e+01_rb,1.9938e+01_rb,1.6616e+01_rb,1.3293e+01_rb,9.9693e+00_rb, &\n     &6.6465e+00_rb,3.3243e+00_rb,7.1925e-01_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &7.0542e+01_rb,6.1725e+01_rb,5.2909e+01_rb,4.4087e+01_rb,3.5272e+01_rb,2.6453e+01_rb, &\n     &1.7635e+01_rb,8.8184e+00_rb,1.8199e-01_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &6.7511e+01_rb,5.9069e+01_rb,5.0634e+01_rb,4.2192e+01_rb,3.3755e+01_rb,2.5317e+01_rb, &\n     &1.6878e+01_rb,8.4389e+00_rb,2.4599e-01_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &6.4633e+01_rb,5.6554e+01_rb,4.8477e+01_rb,4.0397e+01_rb,3.2316e+01_rb,2.4237e+01_rb, &\n     &1.6158e+01_rb,8.0799e+00_rb,3.3970e-01_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &6.1828e+01_rb,5.4103e+01_rb,4.6370e+01_rb,3.8643e+01_rb,3.0915e+01_rb,2.3186e+01_rb, &\n     &1.5458e+01_rb,7.7299e+00_rb,4.6987e-01_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &5.9112e+01_rb,5.1730e+01_rb,4.4337e+01_rb,3.6946e+01_rb,2.9558e+01_rb,2.2169e+01_rb, &\n     &1.4779e+01_rb,7.3903e+00_rb,6.3062e-01_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &1.4439e+02_rb,1.2634e+02_rb,1.0830e+02_rb,9.0248e+01_rb,7.2199e+01_rb,5.4151e+01_rb, &\n     &3.6099e+01_rb,1.8050e+01_rb,1.6579e-01_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &1.3838e+02_rb,1.2109e+02_rb,1.0378e+02_rb,8.6480e+01_rb,6.9180e+01_rb,5.1890e+01_rb, &\n     &3.4593e+01_rb,1.7299e+01_rb,2.2988e-01_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &1.3259e+02_rb,1.1602e+02_rb,9.9432e+01_rb,8.2860e+01_rb,6.6285e+01_rb,4.9718e+01_rb, &\n     &3.3146e+01_rb,1.6573e+01_rb,3.1063e-01_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &1.2697e+02_rb,1.1110e+02_rb,9.5219e+01_rb,7.9357e+01_rb,6.3482e+01_rb,4.7609e+01_rb, &\n     &3.1740e+01_rb,1.5871e+01_rb,4.1510e-01_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &1.2152e+02_rb,1.0632e+02_rb,9.1129e+01_rb,7.5942e+01_rb,6.0752e+01_rb,4.5568e+01_rb, &\n     &3.0378e+01_rb,1.5190e+01_rb,5.5503e-01_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &2.7815e+02_rb,2.4339e+02_rb,2.0862e+02_rb,1.7384e+02_rb,1.3908e+02_rb,1.0430e+02_rb, &\n     &6.9541e+01_rb,3.4769e+01_rb,1.4932e-01_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &2.6703e+02_rb,2.3365e+02_rb,2.0028e+02_rb,1.6690e+02_rb,1.3351e+02_rb,1.0014e+02_rb, &\n     &6.6764e+01_rb,3.3381e+01_rb,2.1038e-01_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &2.5610e+02_rb,2.2409e+02_rb,1.9207e+02_rb,1.6007e+02_rb,1.2805e+02_rb,9.6039e+01_rb, &\n     &6.4025e+01_rb,3.2016e+01_rb,2.9193e-01_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &2.4602e+02_rb,2.1527e+02_rb,1.8451e+02_rb,1.5376e+02_rb,1.2300e+02_rb,9.2253e+01_rb, &\n     &6.1503e+01_rb,3.0752e+01_rb,3.8735e-01_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &2.3698e+02_rb,2.0737e+02_rb,1.7775e+02_rb,1.4811e+02_rb,1.1849e+02_rb,8.8866e+01_rb, &\n     &5.9248e+01_rb,2.9622e+01_rb,5.0567e-01_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &5.6531e+02_rb,4.9465e+02_rb,4.2396e+02_rb,3.5331e+02_rb,2.8267e+02_rb,2.1198e+02_rb, &\n     &1.4132e+02_rb,7.0665e+01_rb,1.3236e-01_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &5.4477e+02_rb,4.7663e+02_rb,4.0854e+02_rb,3.4045e+02_rb,2.7236e+02_rb,2.0426e+02_rb, &\n     &1.3618e+02_rb,6.8089e+01_rb,1.9224e-01_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &5.2553e+02_rb,4.5986e+02_rb,3.9416e+02_rb,3.2848e+02_rb,2.6277e+02_rb,1.9706e+02_rb, &\n     &1.3138e+02_rb,6.5693e+01_rb,2.7007e-01_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &5.0736e+02_rb,4.4395e+02_rb,3.8050e+02_rb,3.1709e+02_rb,2.5367e+02_rb,1.9026e+02_rb, &\n     &1.2684e+02_rb,6.3421e+01_rb,3.6853e-01_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &4.8966e+02_rb,4.2846e+02_rb,3.6727e+02_rb,3.0605e+02_rb,2.4484e+02_rb,1.8364e+02_rb, &\n     &1.2242e+02_rb,6.1208e+01_rb,4.8516e-01_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &1.3865e+03_rb,1.2132e+03_rb,1.0399e+03_rb,8.6656e+02_rb,6.9323e+02_rb,5.1995e+02_rb, &\n     &3.4663e+02_rb,1.7332e+02_rb,1.1342e-01_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &1.3418e+03_rb,1.1740e+03_rb,1.0063e+03_rb,8.3858e+02_rb,6.7084e+02_rb,5.0312e+02_rb, &\n     &3.3544e+02_rb,1.6771e+02_rb,1.7153e-01_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &1.2982e+03_rb,1.1360e+03_rb,9.7362e+02_rb,8.1138e+02_rb,6.4912e+02_rb,4.8683e+02_rb, &\n     &3.2456e+02_rb,1.6229e+02_rb,2.4648e-01_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &1.2554e+03_rb,1.0986e+03_rb,9.4155e+02_rb,7.8470e+02_rb,6.2776e+02_rb,4.7081e+02_rb, &\n     &3.1388e+02_rb,1.5694e+02_rb,3.4456e-01_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &1.2173e+03_rb,1.0650e+03_rb,9.1289e+02_rb,7.6069e+02_rb,6.0860e+02_rb,4.5645e+02_rb, &\n     &3.0428e+02_rb,1.5215e+02_rb,4.6320e-01_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &6.4287e+03_rb,5.6254e+03_rb,4.8220e+03_rb,4.0184e+03_rb,3.2146e+03_rb,2.4108e+03_rb, &\n     &1.6072e+03_rb,8.0366e+02_rb,9.3435e-02_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &6.2433e+03_rb,5.4627e+03_rb,4.6824e+03_rb,3.9018e+03_rb,3.1215e+03_rb,2.3411e+03_rb, &\n     &1.5608e+03_rb,7.8032e+02_rb,1.4681e-01_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &6.0612e+03_rb,5.3034e+03_rb,4.5455e+03_rb,3.7883e+03_rb,3.0305e+03_rb,2.2728e+03_rb, &\n     &1.5153e+03_rb,7.5756e+02_rb,2.1819e-01_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &5.8977e+03_rb,5.1604e+03_rb,4.4231e+03_rb,3.6861e+03_rb,2.9487e+03_rb,2.2117e+03_rb, &\n     &1.4744e+03_rb,7.3720e+02_rb,3.1394e-01_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &5.7293e+03_rb,5.0131e+03_rb,4.2969e+03_rb,3.5807e+03_rb,2.8646e+03_rb,2.1484e+03_rb, &\n     &1.4323e+03_rb,7.1617e+02_rb,4.3083e-01_rb/)\n      kao(:, 1,10,13) = (/ &\n     &3.3200e+04_rb,2.9050e+04_rb,2.4899e+04_rb,2.0749e+04_rb,1.6600e+04_rb,1.2450e+04_rb, &\n     &8.2998e+03_rb,4.1501e+03_rb,1.3035e-02_rb/)\n      kao(:, 2,10,13) = (/ &\n     &3.2379e+04_rb,2.8331e+04_rb,2.4286e+04_rb,2.0236e+04_rb,1.6189e+04_rb,1.2142e+04_rb, &\n     &8.0946e+03_rb,4.0474e+03_rb,6.4014e-02_rb/)\n      kao(:, 3,10,13) = (/ &\n     &3.1566e+04_rb,2.7621e+04_rb,2.3674e+04_rb,1.9730e+04_rb,1.5784e+04_rb,1.1837e+04_rb, &\n     &7.8919e+03_rb,3.9461e+03_rb,1.0897e-01_rb/)\n      kao(:, 4,10,13) = (/ &\n     &3.0728e+04_rb,2.6888e+04_rb,2.3048e+04_rb,1.9205e+04_rb,1.5364e+04_rb,1.1523e+04_rb, &\n     &7.6820e+03_rb,3.8409e+03_rb,2.5342e-01_rb/)\n      kao(:, 5,10,13) = (/ &\n     &2.9824e+04_rb,2.6098e+04_rb,2.2369e+04_rb,1.8641e+04_rb,1.4913e+04_rb,1.1185e+04_rb, &\n     &7.4563e+03_rb,3.7282e+03_rb,3.9865e-01_rb/)\n      kao(:, 1,11,13) = (/ &\n     &5.8997e+04_rb,5.1626e+04_rb,4.4246e+04_rb,3.6876e+04_rb,2.9498e+04_rb,2.2124e+04_rb, &\n     &1.4750e+04_rb,7.3749e+03_rb,3.4853e-05_rb/)\n      kao(:, 2,11,13) = (/ &\n     &5.7601e+04_rb,5.0403e+04_rb,4.3203e+04_rb,3.6002e+04_rb,2.8802e+04_rb,2.1601e+04_rb, &\n     &1.4400e+04_rb,7.2004e+03_rb,3.9149e-02_rb/)\n      kao(:, 3,11,13) = (/ &\n     &5.6184e+04_rb,4.9162e+04_rb,4.2136e+04_rb,3.5117e+04_rb,2.8092e+04_rb,2.1068e+04_rb, &\n     &1.4046e+04_rb,7.0226e+03_rb,4.1745e-02_rb/)\n      kao(:, 4,11,13) = (/ &\n     &5.4639e+04_rb,4.7807e+04_rb,4.0979e+04_rb,3.4149e+04_rb,2.7319e+04_rb,2.0489e+04_rb, &\n     &1.3659e+04_rb,6.8303e+03_rb,1.4397e-01_rb/)\n      kao(:, 5,11,13) = (/ &\n     &5.3017e+04_rb,4.6389e+04_rb,3.9763e+04_rb,3.3137e+04_rb,2.6509e+04_rb,1.9881e+04_rb, &\n     &1.3255e+04_rb,6.6269e+03_rb,2.2772e-01_rb/)\n      kao(:, 1,12,13) = (/ &\n     &7.7971e+04_rb,6.8226e+04_rb,5.8475e+04_rb,4.8732e+04_rb,3.8985e+04_rb,2.9238e+04_rb, &\n     &1.9491e+04_rb,9.7458e+03_rb,2.6211e-05_rb/)\n      kao(:, 2,12,13) = (/ &\n     &7.6358e+04_rb,6.6812e+04_rb,5.7265e+04_rb,4.7721e+04_rb,3.8180e+04_rb,2.8631e+04_rb, &\n     &1.9088e+04_rb,9.5449e+03_rb,1.6658e-02_rb/)\n      kao(:, 3,12,13) = (/ &\n     &7.4598e+04_rb,6.5272e+04_rb,5.5949e+04_rb,4.6623e+04_rb,3.7300e+04_rb,2.7976e+04_rb, &\n     &1.8650e+04_rb,9.3250e+03_rb,6.1472e-02_rb/)\n      kao(:, 4,12,13) = (/ &\n     &7.2683e+04_rb,6.3600e+04_rb,5.4513e+04_rb,4.5429e+04_rb,3.6343e+04_rb,2.7256e+04_rb, &\n     &1.8171e+04_rb,9.0852e+03_rb,8.7020e-02_rb/)\n      kao(:, 5,12,13) = (/ &\n     &7.0749e+04_rb,6.1901e+04_rb,5.3059e+04_rb,4.4221e+04_rb,3.5375e+04_rb,2.6529e+04_rb, &\n     &1.7687e+04_rb,8.8438e+03_rb,2.2135e-01_rb/)\n      kao(:, 1,13,13) = (/ &\n     &8.4389e+04_rb,7.3841e+04_rb,6.3292e+04_rb,5.2741e+04_rb,4.2193e+04_rb,3.1646e+04_rb, &\n     &2.1097e+04_rb,1.0548e+04_rb,3.5977e-05_rb/)\n      kao(:, 2,13,13) = (/ &\n     &8.2810e+04_rb,7.2462e+04_rb,6.2107e+04_rb,5.1755e+04_rb,4.1404e+04_rb,3.1055e+04_rb, &\n     &2.0703e+04_rb,1.0351e+04_rb,2.8201e-02_rb/)\n      kao(:, 3,13,13) = (/ &\n     &8.1175e+04_rb,7.1028e+04_rb,6.0878e+04_rb,5.0733e+04_rb,4.0585e+04_rb,3.0440e+04_rb, &\n     &2.0293e+04_rb,1.0147e+04_rb,3.8140e-02_rb/)\n      kao(:, 4,13,13) = (/ &\n     &7.9409e+04_rb,6.9476e+04_rb,5.9554e+04_rb,4.9626e+04_rb,3.9700e+04_rb,2.9777e+04_rb, &\n     &1.9850e+04_rb,9.9254e+03_rb,1.0573e-01_rb/)\n      kao(:, 5,13,13) = (/ &\n     &7.7670e+04_rb,6.7959e+04_rb,5.8251e+04_rb,4.8545e+04_rb,3.8836e+04_rb,2.9127e+04_rb, &\n     &1.9417e+04_rb,9.7081e+03_rb,2.2322e-01_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &1.0586e+01_rb,9.2639e+00_rb,7.9401e+00_rb,6.6170e+00_rb,5.2941e+00_rb,3.9707e+00_rb, &\n     &2.6478e+00_rb,1.3250e+00_rb,4.3918e-01_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &1.0067e+01_rb,8.8090e+00_rb,7.5510e+00_rb,6.2924e+00_rb,5.0343e+00_rb,3.7761e+00_rb, &\n     &2.5179e+00_rb,1.2597e+00_rb,5.9709e-01_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &9.5510e+00_rb,8.3580e+00_rb,7.1635e+00_rb,5.9699e+00_rb,4.7763e+00_rb,3.5829e+00_rb, &\n     &2.3891e+00_rb,1.1957e+00_rb,7.8623e-01_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &9.0745e+00_rb,7.9402e+00_rb,6.8068e+00_rb,5.6724e+00_rb,4.5382e+00_rb,3.4039e+00_rb, &\n     &2.2698e+00_rb,1.1544e+00_rb,1.0064e+00_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &8.6119e+00_rb,7.5354e+00_rb,6.4586e+00_rb,5.3823e+00_rb,4.3069e+00_rb,3.2305e+00_rb, &\n     &2.1544e+00_rb,1.1513e+00_rb,1.2568e+00_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &1.7127e+01_rb,1.4988e+01_rb,1.2847e+01_rb,1.0706e+01_rb,8.5644e+00_rb,6.4237e+00_rb, &\n     &4.2830e+00_rb,2.1424e+00_rb,4.0087e-01_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &1.6266e+01_rb,1.4233e+01_rb,1.2199e+01_rb,1.0167e+01_rb,8.1334e+00_rb,6.1003e+00_rb, &\n     &4.0675e+00_rb,2.0344e+00_rb,5.5811e-01_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &1.5417e+01_rb,1.3492e+01_rb,1.1564e+01_rb,9.6364e+00_rb,7.7096e+00_rb,5.7829e+00_rb, &\n     &3.8557e+00_rb,1.9285e+00_rb,7.4958e-01_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &1.4610e+01_rb,1.2785e+01_rb,1.0958e+01_rb,9.1323e+00_rb,7.3057e+00_rb,5.4803e+00_rb, &\n     &3.6538e+00_rb,1.8278e+00_rb,9.7668e-01_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &1.3849e+01_rb,1.2118e+01_rb,1.0388e+01_rb,8.6567e+00_rb,6.9253e+00_rb,5.1944e+00_rb, &\n     &3.4637e+00_rb,1.7621e+00_rb,1.2463e+00_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &3.7731e+01_rb,3.3014e+01_rb,2.8298e+01_rb,2.3584e+01_rb,1.8865e+01_rb,1.4149e+01_rb, &\n     &9.4337e+00_rb,4.7180e+00_rb,3.4082e-01_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &3.5785e+01_rb,3.1314e+01_rb,2.6842e+01_rb,2.2368e+01_rb,1.7895e+01_rb,1.3421e+01_rb, &\n     &8.9480e+00_rb,4.4747e+00_rb,4.8919e-01_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &3.3896e+01_rb,2.9659e+01_rb,2.5426e+01_rb,2.1185e+01_rb,1.6948e+01_rb,1.2712e+01_rb, &\n     &8.4759e+00_rb,4.2386e+00_rb,6.7406e-01_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &3.2057e+01_rb,2.8051e+01_rb,2.4047e+01_rb,2.0037e+01_rb,1.6031e+01_rb,1.2024e+01_rb, &\n     &8.0158e+00_rb,4.0086e+00_rb,8.9895e-01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &3.0352e+01_rb,2.6560e+01_rb,2.2767e+01_rb,1.8972e+01_rb,1.5176e+01_rb,1.1383e+01_rb, &\n     &7.5899e+00_rb,3.7954e+00_rb,1.1745e+00_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &8.5512e+01_rb,7.4816e+01_rb,6.4130e+01_rb,5.3439e+01_rb,4.2750e+01_rb,3.2066e+01_rb, &\n     &2.1376e+01_rb,1.0689e+01_rb,2.7979e-01_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &8.0825e+01_rb,7.0719e+01_rb,6.0615e+01_rb,5.0514e+01_rb,4.0410e+01_rb,3.0306e+01_rb, &\n     &2.0206e+01_rb,1.0104e+01_rb,4.1456e-01_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &7.6512e+01_rb,6.6951e+01_rb,5.7383e+01_rb,4.7821e+01_rb,3.8259e+01_rb,2.8694e+01_rb, &\n     &1.9130e+01_rb,9.5655e+00_rb,5.8875e-01_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &7.2339e+01_rb,6.3299e+01_rb,5.4254e+01_rb,4.5213e+01_rb,3.6173e+01_rb,2.7127e+01_rb, &\n     &1.8087e+01_rb,9.0435e+00_rb,8.0998e-01_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &6.8331e+01_rb,5.9800e+01_rb,5.1253e+01_rb,4.2714e+01_rb,3.4172e+01_rb,2.5627e+01_rb, &\n     &1.7086e+01_rb,8.5443e+00_rb,1.0852e+00_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &1.7862e+02_rb,1.5630e+02_rb,1.3397e+02_rb,1.1164e+02_rb,8.9317e+01_rb,6.6992e+01_rb, &\n     &4.4659e+01_rb,2.2329e+01_rb,2.4222e-01_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &1.6866e+02_rb,1.4756e+02_rb,1.2649e+02_rb,1.0541e+02_rb,8.4332e+01_rb,6.3244e+01_rb, &\n     &4.2162e+01_rb,2.1082e+01_rb,3.4856e-01_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &1.5941e+02_rb,1.3948e+02_rb,1.1955e+02_rb,9.9631e+01_rb,7.9709e+01_rb,5.9780e+01_rb, &\n     &3.9852e+01_rb,1.9927e+01_rb,5.0734e-01_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &1.5067e+02_rb,1.3184e+02_rb,1.1302e+02_rb,9.4183e+01_rb,7.5341e+01_rb,5.6507e+01_rb, &\n     &3.7674e+01_rb,1.8837e+01_rb,7.2180e-01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &1.4230e+02_rb,1.2451e+02_rb,1.0671e+02_rb,8.8935e+01_rb,7.1153e+01_rb,5.3363e+01_rb, &\n     &3.5577e+01_rb,1.7789e+01_rb,9.9362e-01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &3.5096e+02_rb,3.0703e+02_rb,2.6318e+02_rb,2.1933e+02_rb,1.7546e+02_rb,1.3159e+02_rb, &\n     &8.7733e+01_rb,4.3865e+01_rb,2.1734e-01_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &3.3138e+02_rb,2.8996e+02_rb,2.4854e+02_rb,2.0711e+02_rb,1.6569e+02_rb,1.2426e+02_rb, &\n     &8.2845e+01_rb,4.1423e+01_rb,3.0507e-01_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &3.1254e+02_rb,2.7346e+02_rb,2.3441e+02_rb,1.9532e+02_rb,1.5627e+02_rb,1.1720e+02_rb, &\n     &7.8130e+01_rb,3.9066e+01_rb,4.3270e-01_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &2.9529e+02_rb,2.5841e+02_rb,2.2148e+02_rb,1.8456e+02_rb,1.4764e+02_rb,1.1074e+02_rb, &\n     &7.3826e+01_rb,3.6914e+01_rb,6.2701e-01_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &2.7880e+02_rb,2.4396e+02_rb,2.0911e+02_rb,1.7424e+02_rb,1.3940e+02_rb,1.0455e+02_rb, &\n     &6.9706e+01_rb,3.4852e+01_rb,8.8890e-01_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &7.2513e+02_rb,6.3446e+02_rb,5.4381e+02_rb,4.5320e+02_rb,3.6257e+02_rb,2.7191e+02_rb, &\n     &1.8128e+02_rb,9.0650e+01_rb,1.9831e-01_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &6.8456e+02_rb,5.9902e+02_rb,5.1343e+02_rb,4.2785e+02_rb,3.4230e+02_rb,2.5672e+02_rb, &\n     &1.7115e+02_rb,8.5572e+01_rb,2.7818e-01_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &6.4547e+02_rb,5.6482e+02_rb,4.8412e+02_rb,4.0342e+02_rb,3.2273e+02_rb,2.4204e+02_rb, &\n     &1.6137e+02_rb,8.0688e+01_rb,3.8833e-01_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &6.0978e+02_rb,5.3357e+02_rb,4.5735e+02_rb,3.8114e+02_rb,3.0489e+02_rb,2.2868e+02_rb, &\n     &1.5246e+02_rb,7.6224e+01_rb,5.4866e-01_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &5.7729e+02_rb,5.0509e+02_rb,4.3294e+02_rb,3.6078e+02_rb,2.8862e+02_rb,2.1646e+02_rb, &\n     &1.4432e+02_rb,7.2163e+01_rb,7.7837e-01_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &1.7967e+03_rb,1.5721e+03_rb,1.3476e+03_rb,1.1230e+03_rb,8.9837e+02_rb,6.7379e+02_rb, &\n     &4.4917e+02_rb,2.2458e+02_rb,1.7788e-01_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &1.7006e+03_rb,1.4881e+03_rb,1.2754e+03_rb,1.0629e+03_rb,8.5028e+02_rb,6.3778e+02_rb, &\n     &4.2515e+02_rb,2.1258e+02_rb,2.5421e-01_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &1.6106e+03_rb,1.4094e+03_rb,1.2079e+03_rb,1.0068e+03_rb,8.0532e+02_rb,6.0404e+02_rb, &\n     &4.0268e+02_rb,2.0135e+02_rb,3.5995e-01_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &1.5246e+03_rb,1.3340e+03_rb,1.1435e+03_rb,9.5278e+02_rb,7.6226e+02_rb,5.7172e+02_rb, &\n     &3.8114e+02_rb,1.9058e+02_rb,4.9908e-01_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &1.4465e+03_rb,1.2656e+03_rb,1.0849e+03_rb,9.0407e+02_rb,7.2320e+02_rb,5.4242e+02_rb, &\n     &3.6158e+02_rb,1.8081e+02_rb,6.9586e-01_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &8.4840e+03_rb,7.4233e+03_rb,6.3628e+03_rb,5.3023e+03_rb,4.2423e+03_rb,3.1813e+03_rb, &\n     &2.1210e+03_rb,1.0605e+03_rb,1.5591e-01_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &8.0479e+03_rb,7.0418e+03_rb,6.0359e+03_rb,5.0301e+03_rb,4.0241e+03_rb,3.0180e+03_rb, &\n     &2.0121e+03_rb,1.0060e+03_rb,2.2879e-01_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &7.6325e+03_rb,6.6786e+03_rb,5.7241e+03_rb,4.7707e+03_rb,3.8161e+03_rb,2.8622e+03_rb, &\n     &1.9081e+03_rb,9.5403e+02_rb,3.3113e-01_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &7.2431e+03_rb,6.3376e+03_rb,5.4325e+03_rb,4.5268e+03_rb,3.6217e+03_rb,2.7162e+03_rb, &\n     &1.8109e+03_rb,9.0539e+02_rb,4.6545e-01_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &6.8956e+03_rb,6.0340e+03_rb,5.1720e+03_rb,4.3099e+03_rb,3.4482e+03_rb,2.5859e+03_rb, &\n     &1.7240e+03_rb,8.6204e+02_rb,6.4091e-01_rb/)\n      kao(:, 1,10,14) = (/ &\n     &4.4703e+04_rb,3.9114e+04_rb,3.3523e+04_rb,2.7938e+04_rb,2.2351e+04_rb,1.6764e+04_rb, &\n     &1.1175e+04_rb,5.5874e+03_rb,4.1455e-02_rb/)\n      kao(:, 2,10,14) = (/ &\n     &4.2474e+04_rb,3.7167e+04_rb,3.1854e+04_rb,2.6544e+04_rb,2.1238e+04_rb,1.5927e+04_rb, &\n     &1.0619e+04_rb,5.3089e+03_rb,6.6750e-02_rb/)\n      kao(:, 3,10,14) = (/ &\n     &4.0460e+04_rb,3.5405e+04_rb,3.0347e+04_rb,2.5289e+04_rb,2.0232e+04_rb,1.5174e+04_rb, &\n     &1.0116e+04_rb,5.0578e+03_rb,2.7442e-01_rb/)\n      kao(:, 4,10,14) = (/ &\n     &3.8625e+04_rb,3.3797e+04_rb,2.8970e+04_rb,2.4141e+04_rb,1.9313e+04_rb,1.4484e+04_rb, &\n     &9.6562e+03_rb,4.8282e+03_rb,4.4714e-01_rb/)\n      kao(:, 5,10,14) = (/ &\n     &3.6998e+04_rb,3.2375e+04_rb,2.7750e+04_rb,2.3124e+04_rb,1.8498e+04_rb,1.3874e+04_rb, &\n     &9.2495e+03_rb,4.6247e+03_rb,6.1795e-01_rb/)\n      kao(:, 1,11,14) = (/ &\n     &8.0689e+04_rb,7.0605e+04_rb,6.0514e+04_rb,5.0431e+04_rb,4.0345e+04_rb,3.0258e+04_rb, &\n     &2.0175e+04_rb,1.0088e+04_rb,2.7556e-05_rb/)\n      kao(:, 2,11,14) = (/ &\n     &7.7103e+04_rb,6.7463e+04_rb,5.7832e+04_rb,4.8186e+04_rb,3.8550e+04_rb,2.8913e+04_rb, &\n     &1.9275e+04_rb,9.6376e+03_rb,4.0930e-02_rb/)\n      kao(:, 3,11,14) = (/ &\n     &7.3820e+04_rb,6.4596e+04_rb,5.5369e+04_rb,4.6139e+04_rb,3.6913e+04_rb,2.7687e+04_rb, &\n     &1.8457e+04_rb,9.2272e+03_rb,8.1894e-02_rb/)\n      kao(:, 4,11,14) = (/ &\n     &7.1047e+04_rb,6.2162e+04_rb,5.3281e+04_rb,4.4402e+04_rb,3.5522e+04_rb,2.6643e+04_rb, &\n     &1.7761e+04_rb,8.8802e+03_rb,2.3203e-01_rb/)\n      kao(:, 5,11,14) = (/ &\n     &6.8729e+04_rb,6.0139e+04_rb,5.1549e+04_rb,4.2956e+04_rb,3.4366e+04_rb,2.5774e+04_rb, &\n     &1.7184e+04_rb,8.5912e+03_rb,5.4821e-01_rb/)\n      kao(:, 1,12,14) = (/ &\n     &1.0931e+05_rb,9.5652e+04_rb,8.1990e+04_rb,6.8319e+04_rb,5.4655e+04_rb,4.0991e+04_rb, &\n     &2.7328e+04_rb,1.3665e+04_rb,2.8846e-05_rb/)\n      kao(:, 2,12,14) = (/ &\n     &1.0521e+05_rb,9.2062e+04_rb,7.8903e+04_rb,6.5759e+04_rb,5.2606e+04_rb,3.9453e+04_rb, &\n     &2.6301e+04_rb,1.3151e+04_rb,4.7358e-02_rb/)\n      kao(:, 3,12,14) = (/ &\n     &1.0163e+05_rb,8.8927e+04_rb,7.6219e+04_rb,6.3520e+04_rb,5.0816e+04_rb,3.8110e+04_rb, &\n     &2.5405e+04_rb,1.2704e+04_rb,2.4382e-02_rb/)\n      kao(:, 4,12,14) = (/ &\n     &9.8710e+04_rb,8.6365e+04_rb,7.4034e+04_rb,6.1691e+04_rb,4.9353e+04_rb,3.7016e+04_rb, &\n     &2.4677e+04_rb,1.2338e+04_rb,1.4381e-01_rb/)\n      kao(:, 5,12,14) = (/ &\n     &9.6361e+04_rb,8.4318e+04_rb,7.2271e+04_rb,6.0231e+04_rb,4.8183e+04_rb,3.6135e+04_rb, &\n     &2.4090e+04_rb,1.2044e+04_rb,3.4843e-01_rb/)\n      kao(:, 1,13,14) = (/ &\n     &1.2026e+05_rb,1.0522e+05_rb,9.0197e+04_rb,7.5158e+04_rb,6.0121e+04_rb,4.5095e+04_rb, &\n     &3.0062e+04_rb,1.5030e+04_rb,2.3562e-05_rb/)\n      kao(:, 2,13,14) = (/ &\n     &1.1659e+05_rb,1.0201e+05_rb,8.7436e+04_rb,7.2864e+04_rb,5.8293e+04_rb,4.3717e+04_rb, &\n     &2.9144e+04_rb,1.4573e+04_rb,1.6351e-02_rb/)\n      kao(:, 3,13,14) = (/ &\n     &1.1367e+05_rb,9.9464e+04_rb,8.5255e+04_rb,7.1046e+04_rb,5.6835e+04_rb,4.2627e+04_rb, &\n     &2.8420e+04_rb,1.4209e+04_rb,2.9522e-02_rb/)\n      kao(:, 4,13,14) = (/ &\n     &1.1129e+05_rb,9.7380e+04_rb,8.3472e+04_rb,6.9552e+04_rb,5.5648e+04_rb,4.1732e+04_rb, &\n     &2.7823e+04_rb,1.3911e+04_rb,7.5810e-02_rb/)\n      kao(:, 5,13,14) = (/ &\n     &1.0918e+05_rb,9.5534e+04_rb,8.1880e+04_rb,6.8241e+04_rb,5.4595e+04_rb,4.0946e+04_rb, &\n     &2.7297e+04_rb,1.3648e+04_rb,2.4333e-01_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &1.0978e+01_rb,9.6088e+00_rb,8.2350e+00_rb,6.8632e+00_rb,5.4910e+00_rb,4.1182e+00_rb, &\n     &2.7459e+00_rb,1.3741e+00_rb,7.5097e-01_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &1.0420e+01_rb,9.1192e+00_rb,7.8159e+00_rb,6.5136e+00_rb,5.2114e+00_rb,3.9092e+00_rb, &\n     &2.6067e+00_rb,1.3044e+00_rb,1.0341e+00_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &9.8688e+00_rb,8.6360e+00_rb,7.4026e+00_rb,6.1689e+00_rb,4.9358e+00_rb,3.7018e+00_rb, &\n     &2.4689e+00_rb,1.2355e+00_rb,1.3726e+00_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &9.3623e+00_rb,8.1910e+00_rb,7.0229e+00_rb,5.8526e+00_rb,4.6825e+00_rb,3.5124e+00_rb, &\n     &2.3423e+00_rb,1.1838e+00_rb,1.7645e+00_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &8.8716e+00_rb,7.7621e+00_rb,6.6540e+00_rb,5.5450e+00_rb,4.4367e+00_rb,3.3283e+00_rb, &\n     &2.2197e+00_rb,1.4532e+00_rb,2.2082e+00_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &1.7872e+01_rb,1.5635e+01_rb,1.3402e+01_rb,1.1169e+01_rb,8.9360e+00_rb,6.7019e+00_rb, &\n     &4.4692e+00_rb,2.2349e+00_rb,7.8713e-01_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &1.6936e+01_rb,1.4818e+01_rb,1.2703e+01_rb,1.0586e+01_rb,8.4684e+00_rb,6.3517e+00_rb, &\n     &4.2352e+00_rb,2.1186e+00_rb,1.1015e+00_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &1.6019e+01_rb,1.4019e+01_rb,1.2014e+01_rb,1.0011e+01_rb,8.0107e+00_rb,6.0080e+00_rb, &\n     &4.0069e+00_rb,2.0039e+00_rb,1.4812e+00_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &1.5152e+01_rb,1.3257e+01_rb,1.1364e+01_rb,9.4698e+00_rb,7.5770e+00_rb,5.6829e+00_rb, &\n     &3.7895e+00_rb,1.8958e+00_rb,1.9253e+00_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &1.4341e+01_rb,1.2547e+01_rb,1.0755e+01_rb,8.9625e+00_rb,7.1702e+00_rb,5.3783e+00_rb, &\n     &3.5866e+00_rb,1.8251e+00_rb,2.4314e+00_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &3.9644e+01_rb,3.4688e+01_rb,2.9736e+01_rb,2.4782e+01_rb,1.9827e+01_rb,1.4870e+01_rb, &\n     &9.9132e+00_rb,4.9569e+00_rb,7.5098e-01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &3.7522e+01_rb,3.2831e+01_rb,2.8147e+01_rb,2.3453e+01_rb,1.8762e+01_rb,1.4073e+01_rb, &\n     &9.3827e+00_rb,4.6920e+00_rb,1.0782e+00_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &3.5460e+01_rb,3.1027e+01_rb,2.6599e+01_rb,2.2162e+01_rb,1.7731e+01_rb,1.3300e+01_rb, &\n     &8.8666e+00_rb,4.4344e+00_rb,1.4809e+00_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &3.3460e+01_rb,2.9273e+01_rb,2.5092e+01_rb,2.0911e+01_rb,1.6733e+01_rb,1.2547e+01_rb, &\n     &8.3663e+00_rb,4.1837e+00_rb,1.9598e+00_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &3.1621e+01_rb,2.7670e+01_rb,2.3718e+01_rb,1.9764e+01_rb,1.5811e+01_rb,1.1859e+01_rb, &\n     &7.9074e+00_rb,3.9548e+00_rb,2.5132e+00_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &9.0592e+01_rb,7.9274e+01_rb,6.7952e+01_rb,5.6623e+01_rb,4.5292e+01_rb,3.3974e+01_rb, &\n     &2.2650e+01_rb,1.1327e+01_rb,6.7358e-01_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &8.5357e+01_rb,7.4682e+01_rb,6.4009e+01_rb,5.3347e+01_rb,4.2676e+01_rb,3.2015e+01_rb, &\n     &2.1340e+01_rb,1.0671e+01_rb,9.9693e-01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &8.0608e+01_rb,7.0531e+01_rb,6.0449e+01_rb,5.0384e+01_rb,4.0308e+01_rb,3.0230e+01_rb, &\n     &2.0154e+01_rb,1.0079e+01_rb,1.4044e+00_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &7.6021e+01_rb,6.6519e+01_rb,5.7017e+01_rb,4.7513e+01_rb,3.8009e+01_rb,2.8510e+01_rb, &\n     &1.9006e+01_rb,9.5047e+00_rb,1.8983e+00_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &7.1646e+01_rb,6.2695e+01_rb,5.3735e+01_rb,4.4783e+01_rb,3.5822e+01_rb,2.6870e+01_rb, &\n     &1.7917e+01_rb,8.9586e+00_rb,2.4776e+00_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &1.9065e+02_rb,1.6683e+02_rb,1.4299e+02_rb,1.1917e+02_rb,9.5320e+01_rb,7.1489e+01_rb, &\n     &4.7665e+01_rb,2.3834e+01_rb,5.8170e-01_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &1.7924e+02_rb,1.5681e+02_rb,1.3443e+02_rb,1.1201e+02_rb,8.9613e+01_rb,6.7209e+01_rb, &\n     &4.4814e+01_rb,2.2406e+01_rb,8.9003e-01_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &1.6878e+02_rb,1.4769e+02_rb,1.2660e+02_rb,1.0549e+02_rb,8.4396e+01_rb,6.3295e+01_rb, &\n     &4.2198e+01_rb,2.1098e+01_rb,1.2889e+00_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &1.5901e+02_rb,1.3914e+02_rb,1.1927e+02_rb,9.9403e+01_rb,7.9524e+01_rb,5.9641e+01_rb, &\n     &3.9759e+01_rb,1.9881e+01_rb,1.7818e+00_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &1.4967e+02_rb,1.3098e+02_rb,1.1227e+02_rb,9.3560e+01_rb,7.4846e+01_rb,5.6123e+01_rb, &\n     &3.7423e+01_rb,1.8714e+01_rb,2.3703e+00_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &3.7689e+02_rb,3.2969e+02_rb,2.8264e+02_rb,2.3553e+02_rb,1.8841e+02_rb,1.4134e+02_rb, &\n     &9.4214e+01_rb,4.7104e+01_rb,4.7634e-01_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &3.5386e+02_rb,3.0960e+02_rb,2.6540e+02_rb,2.2119e+02_rb,1.7694e+02_rb,1.3270e+02_rb, &\n     &8.8456e+01_rb,4.4232e+01_rb,7.5759e-01_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &3.3202e+02_rb,2.9052e+02_rb,2.4901e+02_rb,2.0752e+02_rb,1.6601e+02_rb,1.2451e+02_rb, &\n     &8.3003e+01_rb,4.1506e+01_rb,1.1321e+00_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &3.1280e+02_rb,2.7368e+02_rb,2.3460e+02_rb,1.9550e+02_rb,1.5640e+02_rb,1.1729e+02_rb, &\n     &7.8200e+01_rb,3.9102e+01_rb,1.6067e+00_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &2.9457e+02_rb,2.5772e+02_rb,2.2093e+02_rb,1.8412e+02_rb,1.4729e+02_rb,1.1048e+02_rb, &\n     &7.3641e+01_rb,3.6825e+01_rb,2.1838e+00_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &7.8539e+02_rb,6.8719e+02_rb,5.8900e+02_rb,4.9081e+02_rb,3.9268e+02_rb,2.9449e+02_rb, &\n     &1.9633e+02_rb,9.8167e+01_rb,3.8693e-01_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &7.3697e+02_rb,6.4481e+02_rb,5.5276e+02_rb,4.6063e+02_rb,3.6848e+02_rb,2.7636e+02_rb, &\n     &1.8426e+02_rb,9.2135e+01_rb,6.2265e-01_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &6.9166e+02_rb,6.0516e+02_rb,5.1875e+02_rb,4.3231e+02_rb,3.4580e+02_rb,2.5935e+02_rb, &\n     &1.7293e+02_rb,8.6458e+01_rb,9.6225e-01_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &6.5012e+02_rb,5.6880e+02_rb,4.8758e+02_rb,4.0634e+02_rb,3.2506e+02_rb,2.4380e+02_rb, &\n     &1.6251e+02_rb,8.1260e+01_rb,1.4063e+00_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &6.1251e+02_rb,5.3595e+02_rb,4.5937e+02_rb,3.8280e+02_rb,3.0627e+02_rb,2.2970e+02_rb, &\n     &1.5314e+02_rb,7.6572e+01_rb,1.9665e+00_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &1.9678e+03_rb,1.7217e+03_rb,1.4759e+03_rb,1.2298e+03_rb,9.8389e+02_rb,7.3793e+02_rb, &\n     &4.9200e+02_rb,2.4597e+02_rb,3.3326e-01_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &1.8454e+03_rb,1.6147e+03_rb,1.3840e+03_rb,1.1533e+03_rb,9.2274e+02_rb,6.9199e+02_rb, &\n     &4.6133e+02_rb,2.3066e+02_rb,5.2281e-01_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &1.7316e+03_rb,1.5151e+03_rb,1.2986e+03_rb,1.0821e+03_rb,8.6576e+02_rb,6.4926e+02_rb, &\n     &4.3287e+02_rb,2.1643e+02_rb,8.0537e-01_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &1.6274e+03_rb,1.4239e+03_rb,1.2204e+03_rb,1.0169e+03_rb,8.1360e+02_rb,6.1025e+02_rb, &\n     &4.0681e+02_rb,2.0342e+02_rb,1.2167e+00_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &1.5364e+03_rb,1.3443e+03_rb,1.1523e+03_rb,9.6013e+02_rb,7.6820e+02_rb,5.7614e+02_rb, &\n     &3.8407e+02_rb,1.9205e+02_rb,1.7524e+00_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &9.3073e+03_rb,8.1544e+03_rb,6.9894e+03_rb,5.8248e+03_rb,4.6604e+03_rb,3.4950e+03_rb, &\n     &2.3299e+03_rb,1.1651e+03_rb,2.9954e-01_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &8.7551e+03_rb,7.6608e+03_rb,6.5662e+03_rb,5.4720e+03_rb,4.3776e+03_rb,3.2831e+03_rb, &\n     &2.1886e+03_rb,1.0944e+03_rb,4.5642e-01_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &8.2482e+03_rb,7.2167e+03_rb,6.1860e+03_rb,5.1552e+03_rb,4.1239e+03_rb,3.0929e+03_rb, &\n     &2.0618e+03_rb,1.0309e+03_rb,6.9066e-01_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &7.8082e+03_rb,6.8324e+03_rb,5.8568e+03_rb,4.8805e+03_rb,3.9039e+03_rb,2.9280e+03_rb, &\n     &1.9520e+03_rb,9.7612e+02_rb,1.0400e+00_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &7.4317e+03_rb,6.5021e+03_rb,5.5734e+03_rb,4.6446e+03_rb,3.7157e+03_rb,2.7869e+03_rb, &\n     &1.8578e+03_rb,9.2892e+02_rb,1.5452e+00_rb/)\n      kao(:, 1,10,15) = (/ &\n     &4.9432e+04_rb,4.3258e+04_rb,3.7074e+04_rb,3.0897e+04_rb,2.4721e+04_rb,1.8537e+04_rb, &\n     &1.2358e+04_rb,6.1790e+03_rb,1.8223e-01_rb/)\n      kao(:, 2,10,15) = (/ &\n     &4.6742e+04_rb,4.0903e+04_rb,3.5058e+04_rb,2.9212e+04_rb,2.3371e+04_rb,1.7528e+04_rb, &\n     &1.1686e+04_rb,5.8428e+03_rb,4.2300e-01_rb/)\n      kao(:, 3,10,15) = (/ &\n     &4.4467e+04_rb,3.8905e+04_rb,3.3347e+04_rb,2.7787e+04_rb,2.2232e+04_rb,1.6675e+04_rb, &\n     &1.1116e+04_rb,5.5580e+03_rb,6.2837e-01_rb/)\n      kao(:, 4,10,15) = (/ &\n     &4.2571e+04_rb,3.7248e+04_rb,3.1929e+04_rb,2.6604e+04_rb,2.1284e+04_rb,1.5965e+04_rb, &\n     &1.0643e+04_rb,5.3212e+03_rb,9.2886e-01_rb/)\n      kao(:, 5,10,15) = (/ &\n     &4.1045e+04_rb,3.5912e+04_rb,3.0783e+04_rb,2.5652e+04_rb,2.0522e+04_rb,1.5392e+04_rb, &\n     &1.0261e+04_rb,5.1304e+03_rb,1.3856e+00_rb/)\n      kao(:, 1,11,15) = (/ &\n     &9.0769e+04_rb,7.9427e+04_rb,6.8076e+04_rb,5.6731e+04_rb,4.5387e+04_rb,3.4039e+04_rb, &\n     &2.2692e+04_rb,1.1348e+04_rb,6.3351e-06_rb/)\n      kao(:, 2,11,15) = (/ &\n     &8.7118e+04_rb,7.6228e+04_rb,6.5339e+04_rb,5.4453e+04_rb,4.3558e+04_rb,3.2668e+04_rb, &\n     &2.1780e+04_rb,1.0890e+04_rb,1.2897e-01_rb/)\n      kao(:, 3,11,15) = (/ &\n     &8.4111e+04_rb,7.3597e+04_rb,6.3086e+04_rb,5.2568e+04_rb,4.2058e+04_rb,3.1544e+04_rb, &\n     &2.1027e+04_rb,1.0514e+04_rb,3.6063e-01_rb/)\n      kao(:, 4,11,15) = (/ &\n     &8.1812e+04_rb,7.1584e+04_rb,6.1356e+04_rb,5.1132e+04_rb,4.0904e+04_rb,3.0678e+04_rb, &\n     &2.0453e+04_rb,1.0225e+04_rb,8.1674e-01_rb/)\n      kao(:, 5,11,15) = (/ &\n     &7.9895e+04_rb,6.9910e+04_rb,5.9923e+04_rb,4.9935e+04_rb,3.9950e+04_rb,2.9961e+04_rb, &\n     &1.9975e+04_rb,9.9870e+03_rb,1.4894e+00_rb/)\n      kao(:, 1,12,15) = (/ &\n     &1.2814e+05_rb,1.1213e+05_rb,9.6104e+04_rb,8.0085e+04_rb,6.4069e+04_rb,4.8051e+04_rb, &\n     &3.2036e+04_rb,1.6017e+04_rb,4.6990e-06_rb/)\n      kao(:, 2,12,15) = (/ &\n     &1.2486e+05_rb,1.0925e+05_rb,9.3637e+04_rb,7.8034e+04_rb,6.2430e+04_rb,4.6820e+04_rb, &\n     &3.1210e+04_rb,1.5606e+04_rb,1.4051e-05_rb/)\n      kao(:, 3,12,15) = (/ &\n     &1.2228e+05_rb,1.0700e+05_rb,9.1710e+04_rb,7.6429e+04_rb,6.1136e+04_rb,4.5856e+04_rb, &\n     &3.0569e+04_rb,1.5285e+04_rb,1.5080e-01_rb/)\n      kao(:, 4,12,15) = (/ &\n     &1.2022e+05_rb,1.0520e+05_rb,9.0163e+04_rb,7.5135e+04_rb,6.0115e+04_rb,4.5084e+04_rb, &\n     &3.0055e+04_rb,1.5027e+04_rb,4.4115e-01_rb/)\n      kao(:, 5,12,15) = (/ &\n     &1.1876e+05_rb,1.0392e+05_rb,8.9071e+04_rb,7.4229e+04_rb,5.9383e+04_rb,4.4534e+04_rb, &\n     &2.9691e+04_rb,1.4845e+04_rb,1.2230e+00_rb/)\n      kao(:, 1,13,15) = (/ &\n     &1.4959e+05_rb,1.3089e+05_rb,1.1219e+05_rb,9.3492e+04_rb,7.4791e+04_rb,5.6100e+04_rb, &\n     &3.7396e+04_rb,1.8698e+04_rb,1.6068e-05_rb/)\n      kao(:, 2,13,15) = (/ &\n     &1.4739e+05_rb,1.2897e+05_rb,1.1053e+05_rb,9.2121e+04_rb,7.3693e+04_rb,5.5270e+04_rb, &\n     &3.6845e+04_rb,1.8424e+04_rb,2.4216e-05_rb/)\n      kao(:, 3,13,15) = (/ &\n     &1.4569e+05_rb,1.2748e+05_rb,1.0927e+05_rb,9.1057e+04_rb,7.2849e+04_rb,5.4630e+04_rb, &\n     &3.6423e+04_rb,1.8211e+04_rb,2.3267e-01_rb/)\n      kao(:, 4,13,15) = (/ &\n     &1.4449e+05_rb,1.2643e+05_rb,1.0837e+05_rb,9.0297e+04_rb,7.2240e+04_rb,5.4184e+04_rb, &\n     &3.6121e+04_rb,1.8059e+04_rb,3.2297e-01_rb/)\n      kao(:, 5,13,15) = (/ &\n     &1.4334e+05_rb,1.2542e+05_rb,1.0750e+05_rb,8.9583e+04_rb,7.1673e+04_rb,5.3754e+04_rb, &\n     &3.5834e+04_rb,1.7916e+04_rb,9.5703e-01_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &1.1012e+01_rb,9.6385e+00_rb,8.2597e+00_rb,6.8841e+00_rb,5.5077e+00_rb,4.1310e+00_rb, &\n     &2.7545e+00_rb,1.3780e+00_rb,8.0170e-01_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &1.0449e+01_rb,9.1438e+00_rb,7.8382e+00_rb,6.5335e+00_rb,5.2262e+00_rb,3.9202e+00_rb, &\n     &2.6149e+00_rb,1.3083e+00_rb,1.1089e+00_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &9.8963e+00_rb,8.6604e+00_rb,7.4233e+00_rb,6.1853e+00_rb,4.9489e+00_rb,3.7122e+00_rb, &\n     &2.4757e+00_rb,1.2390e+00_rb,1.4762e+00_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &9.3879e+00_rb,8.2127e+00_rb,7.0407e+00_rb,5.8670e+00_rb,4.6947e+00_rb,3.5210e+00_rb, &\n     &2.3483e+00_rb,1.2086e+00_rb,1.9022e+00_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &8.8935e+00_rb,7.7813e+00_rb,6.6705e+00_rb,5.5589e+00_rb,4.4480e+00_rb,3.3366e+00_rb, &\n     &2.2250e+00_rb,1.5141e+00_rb,2.3892e+00_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &1.7937e+01_rb,1.5695e+01_rb,1.3452e+01_rb,1.1211e+01_rb,8.9664e+00_rb,6.7267e+00_rb, &\n     &4.4861e+00_rb,2.2435e+00_rb,8.6848e-01_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &1.6997e+01_rb,1.4871e+01_rb,1.2749e+01_rb,1.0624e+01_rb,8.4984e+00_rb,6.3745e+00_rb, &\n     &4.2497e+00_rb,2.1262e+00_rb,1.2205e+00_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &1.6073e+01_rb,1.4067e+01_rb,1.2054e+01_rb,1.0046e+01_rb,8.0383e+00_rb,6.0294e+00_rb, &\n     &4.0202e+00_rb,2.0108e+00_rb,1.6477e+00_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &1.5204e+01_rb,1.3304e+01_rb,1.1402e+01_rb,9.4999e+00_rb,7.6031e+00_rb,5.7017e+00_rb, &\n     &3.8022e+00_rb,1.9021e+00_rb,2.1539e+00_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &1.4385e+01_rb,1.2589e+01_rb,1.0791e+01_rb,8.9907e+00_rb,7.1928e+00_rb,5.3962e+00_rb, &\n     &3.5994e+00_rb,1.9006e+00_rb,2.7317e+00_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &3.9826e+01_rb,3.4837e+01_rb,2.9874e+01_rb,2.4893e+01_rb,1.9916e+01_rb,1.4937e+01_rb, &\n     &9.9605e+00_rb,4.9801e+00_rb,8.6605e-01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &3.7687e+01_rb,3.2981e+01_rb,2.8272e+01_rb,2.3555e+01_rb,1.8843e+01_rb,1.4136e+01_rb, &\n     &9.4254e+00_rb,4.7126e+00_rb,1.2506e+00_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &3.5608e+01_rb,3.1162e+01_rb,2.6711e+01_rb,2.2256e+01_rb,1.7812e+01_rb,1.3358e+01_rb, &\n     &8.9032e+00_rb,4.4535e+00_rb,1.7305e+00_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &3.3599e+01_rb,2.9402e+01_rb,2.5206e+01_rb,2.1000e+01_rb,1.6804e+01_rb,1.2601e+01_rb, &\n     &8.4019e+00_rb,4.2020e+00_rb,2.3040e+00_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &3.1757e+01_rb,2.7783e+01_rb,2.3809e+01_rb,1.9848e+01_rb,1.5875e+01_rb,1.1908e+01_rb, &\n     &7.9407e+00_rb,3.9713e+00_rb,2.9736e+00_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &9.1010e+01_rb,7.9617e+01_rb,6.8261e+01_rb,5.6883e+01_rb,4.5501e+01_rb,3.4135e+01_rb, &\n     &2.2756e+01_rb,1.1381e+01_rb,8.2098e-01_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &8.5710e+01_rb,7.5003e+01_rb,6.4275e+01_rb,5.3587e+01_rb,4.2849e+01_rb,3.2139e+01_rb, &\n     &2.1425e+01_rb,1.0717e+01_rb,1.2260e+00_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &8.0903e+01_rb,7.0806e+01_rb,6.0673e+01_rb,5.0561e+01_rb,4.0455e+01_rb,3.0343e+01_rb, &\n     &2.0221e+01_rb,1.0019e+01_rb,1.7427e+00_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &7.6250e+01_rb,6.6729e+01_rb,5.7190e+01_rb,4.7658e+01_rb,3.8119e+01_rb,2.8596e+01_rb, &\n     &1.9064e+01_rb,9.5357e+00_rb,2.3756e+00_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &7.1845e+01_rb,6.2892e+01_rb,5.3881e+01_rb,4.4904e+01_rb,3.5931e+01_rb,2.6946e+01_rb, &\n     &1.7968e+01_rb,8.9829e+00_rb,3.1270e+00_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &1.9171e+02_rb,1.6775e+02_rb,1.4380e+02_rb,1.1981e+02_rb,9.5875e+01_rb,7.1871e+01_rb, &\n     &4.7928e+01_rb,2.3964e+01_rb,7.5940e-01_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &1.8016e+02_rb,1.5760e+02_rb,1.3509e+02_rb,1.1260e+02_rb,9.0071e+01_rb,6.7551e+01_rb, &\n     &4.5046e+01_rb,2.2517e+01_rb,1.1757e+00_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &1.6962e+02_rb,1.4839e+02_rb,1.2718e+02_rb,1.0601e+02_rb,8.4813e+01_rb,6.3608e+01_rb, &\n     &4.2403e+01_rb,2.1198e+01_rb,1.7223e+00_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &1.5982e+02_rb,1.3980e+02_rb,1.1984e+02_rb,9.9881e+01_rb,7.9889e+01_rb,5.9924e+01_rb, &\n     &3.9950e+01_rb,1.9975e+01_rb,2.4076e+00_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &1.5041e+02_rb,1.3158e+02_rb,1.1281e+02_rb,9.3993e+01_rb,7.5196e+01_rb,5.6401e+01_rb, &\n     &3.7598e+01_rb,1.8805e+01_rb,3.2368e+00_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &3.8096e+02_rb,3.3337e+02_rb,2.8576e+02_rb,2.3807e+02_rb,1.9047e+02_rb,1.4289e+02_rb, &\n     &9.5250e+01_rb,4.7621e+01_rb,6.7593e-01_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &3.5801e+02_rb,3.1325e+02_rb,2.6851e+02_rb,2.2376e+02_rb,1.7905e+02_rb,1.3426e+02_rb, &\n     &8.9499e+01_rb,4.4742e+01_rb,1.0913e+00_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &3.3608e+02_rb,2.9405e+02_rb,2.5208e+02_rb,2.1010e+02_rb,1.6803e+02_rb,1.2602e+02_rb, &\n     &8.4040e+01_rb,4.2005e+01_rb,1.6542e+00_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &3.1667e+02_rb,2.7704e+02_rb,2.3752e+02_rb,1.9794e+02_rb,1.5835e+02_rb,1.1877e+02_rb, &\n     &7.9157e+01_rb,3.9584e+01_rb,2.3801e+00_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &2.9810e+02_rb,2.6093e+02_rb,2.2364e+02_rb,1.8637e+02_rb,1.4910e+02_rb,1.1183e+02_rb, &\n     &7.4550e+01_rb,3.7278e+01_rb,3.2789e+00_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &7.9749e+02_rb,6.9796e+02_rb,5.9825e+02_rb,4.9855e+02_rb,3.9886e+02_rb,2.9907e+02_rb, &\n     &1.9939e+02_rb,9.9689e+01_rb,5.8719e-01_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &7.4948e+02_rb,6.5592e+02_rb,5.6211e+02_rb,4.6855e+02_rb,3.7478e+02_rb,2.8116e+02_rb, &\n     &1.8738e+02_rb,9.3692e+01_rb,9.9296e-01_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &7.0403e+02_rb,6.1598e+02_rb,5.2804e+02_rb,4.4008e+02_rb,3.5206e+02_rb,2.6406e+02_rb, &\n     &1.7605e+02_rb,8.8000e+01_rb,1.5629e+00_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &6.6205e+02_rb,5.7919e+02_rb,4.9648e+02_rb,4.1378e+02_rb,3.3107e+02_rb,2.4827e+02_rb, &\n     &1.6552e+02_rb,8.2766e+01_rb,2.3202e+00_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &6.2380e+02_rb,5.4580e+02_rb,4.6792e+02_rb,3.8985e+02_rb,3.1191e+02_rb,2.3394e+02_rb, &\n     &1.5598e+02_rb,7.7978e+01_rb,3.2803e+00_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &2.0029e+03_rb,1.7526e+03_rb,1.5027e+03_rb,1.2518e+03_rb,1.0017e+03_rb,7.5137e+02_rb, &\n     &5.0076e+02_rb,2.5041e+02_rb,5.0039e-01_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &1.8839e+03_rb,1.6487e+03_rb,1.4132e+03_rb,1.1775e+03_rb,9.4211e+02_rb,7.0656e+02_rb, &\n     &4.7103e+02_rb,2.3550e+02_rb,8.8968e-01_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &1.7724e+03_rb,1.5508e+03_rb,1.3295e+03_rb,1.1080e+03_rb,8.8638e+02_rb,6.6461e+02_rb, &\n     &4.4304e+02_rb,2.2162e+02_rb,1.4586e+00_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &1.6681e+03_rb,1.4594e+03_rb,1.2510e+03_rb,1.0422e+03_rb,8.3394e+02_rb,6.2548e+02_rb, &\n     &4.1698e+02_rb,2.0850e+02_rb,2.2386e+00_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &1.5734e+03_rb,1.3768e+03_rb,1.1803e+03_rb,9.8337e+02_rb,7.8678e+02_rb,5.9008e+02_rb, &\n     &3.9340e+02_rb,1.9668e+02_rb,3.2542e+00_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &9.5422e+03_rb,8.3482e+03_rb,7.1572e+03_rb,5.9648e+03_rb,4.7724e+03_rb,3.5785e+03_rb, &\n     &2.3856e+03_rb,1.1929e+03_rb,4.1531e-01_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &8.9979e+03_rb,7.8727e+03_rb,6.7481e+03_rb,5.6240e+03_rb,4.4988e+03_rb,3.3743e+03_rb, &\n     &2.2493e+03_rb,1.1247e+03_rb,7.8014e-01_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &8.4879e+03_rb,7.4273e+03_rb,6.3662e+03_rb,5.3047e+03_rb,4.2442e+03_rb,3.1830e+03_rb, &\n     &2.1217e+03_rb,1.0610e+03_rb,1.3368e+00_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &8.0145e+03_rb,7.0116e+03_rb,6.0099e+03_rb,5.0094e+03_rb,4.0072e+03_rb,3.0052e+03_rb, &\n     &2.0036e+03_rb,1.0018e+03_rb,2.1276e+00_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &7.6138e+03_rb,6.6618e+03_rb,5.7100e+03_rb,4.7582e+03_rb,3.8067e+03_rb,2.8551e+03_rb, &\n     &1.9031e+03_rb,9.5177e+02_rb,3.1866e+00_rb/)\n      kao(:, 1,10,16) = (/ &\n     &5.0991e+04_rb,4.4616e+04_rb,3.8235e+04_rb,3.1865e+04_rb,2.5493e+04_rb,1.9119e+04_rb, &\n     &1.2748e+04_rb,6.3734e+03_rb,3.5386e-01_rb/)\n      kao(:, 2,10,16) = (/ &\n     &4.8246e+04_rb,4.2216e+04_rb,3.6189e+04_rb,3.0155e+04_rb,2.4122e+04_rb,1.8092e+04_rb, &\n     &1.2062e+04_rb,6.0316e+03_rb,7.0256e-01_rb/)\n      kao(:, 3,10,16) = (/ &\n     &4.5828e+04_rb,4.0101e+04_rb,3.4373e+04_rb,2.8642e+04_rb,2.2916e+04_rb,1.7187e+04_rb, &\n     &1.1458e+04_rb,5.7294e+03_rb,1.2547e+00_rb/)\n      kao(:, 4,10,16) = (/ &\n     &4.3978e+04_rb,3.8481e+04_rb,3.2983e+04_rb,2.7486e+04_rb,2.1988e+04_rb,1.6492e+04_rb, &\n     &1.0995e+04_rb,5.4969e+03_rb,2.0651e+00_rb/)\n      kao(:, 5,10,16) = (/ &\n     &4.2519e+04_rb,3.7205e+04_rb,3.1889e+04_rb,2.6577e+04_rb,2.1264e+04_rb,1.5948e+04_rb, &\n     &1.0631e+04_rb,5.3154e+03_rb,3.1779e+00_rb/)\n      kao(:, 1,11,16) = (/ &\n     &9.4155e+04_rb,8.2392e+04_rb,7.0618e+04_rb,5.8856e+04_rb,4.7081e+04_rb,3.5308e+04_rb, &\n     &2.3542e+04_rb,1.1770e+04_rb,6.1346e-06_rb/)\n      kao(:, 2,11,16) = (/ &\n     &9.0590e+04_rb,7.9258e+04_rb,6.7935e+04_rb,5.6620e+04_rb,4.5292e+04_rb,3.3967e+04_rb, &\n     &2.2646e+04_rb,1.1323e+04_rb,3.3281e-01_rb/)\n      kao(:, 3,11,16) = (/ &\n     &8.8119e+04_rb,7.7104e+04_rb,6.6094e+04_rb,5.5078e+04_rb,4.4061e+04_rb,3.3053e+04_rb, &\n     &2.2031e+04_rb,1.1015e+04_rb,1.5023e+00_rb/)\n      kao(:, 4,11,16) = (/ &\n     &8.6175e+04_rb,7.5401e+04_rb,6.4627e+04_rb,5.3860e+04_rb,4.3092e+04_rb,3.2317e+04_rb, &\n     &2.1545e+04_rb,1.0771e+04_rb,2.4696e+00_rb/)\n      kao(:, 5,11,16) = (/ &\n     &8.4570e+04_rb,7.4002e+04_rb,6.3432e+04_rb,5.2859e+04_rb,4.2288e+04_rb,3.1714e+04_rb, &\n     &2.1142e+04_rb,1.0572e+04_rb,3.7979e+00_rb/)\n      kao(:, 1,12,16) = (/ &\n     &1.3547e+05_rb,1.1853e+05_rb,1.0160e+05_rb,8.4660e+04_rb,6.7729e+04_rb,5.0794e+04_rb, &\n     &3.3867e+04_rb,1.6929e+04_rb,5.0265e-06_rb/)\n      kao(:, 2,12,16) = (/ &\n     &1.3284e+05_rb,1.1623e+05_rb,9.9623e+04_rb,8.3023e+04_rb,6.6416e+04_rb,4.9810e+04_rb, &\n     &3.3206e+04_rb,1.6603e+04_rb,9.0705e-06_rb/)\n      kao(:, 3,12,16) = (/ &\n     &1.3111e+05_rb,1.1471e+05_rb,9.8324e+04_rb,8.1946e+04_rb,6.5544e+04_rb,4.9165e+04_rb, &\n     &3.2777e+04_rb,1.6388e+04_rb,1.7901e+00_rb/)\n      kao(:, 4,12,16) = (/ &\n     &1.2947e+05_rb,1.1329e+05_rb,9.7103e+04_rb,8.0920e+04_rb,6.4734e+04_rb,4.8090e+04_rb, &\n     &3.2370e+04_rb,1.6184e+04_rb,2.9393e+00_rb/)\n      kao(:, 5,12,16) = (/ &\n     &1.2773e+05_rb,1.1176e+05_rb,9.5799e+04_rb,7.9830e+04_rb,6.3866e+04_rb,4.7901e+04_rb, &\n     &3.1932e+04_rb,1.5966e+04_rb,4.5138e+00_rb/)\n      kao(:, 1,13,16) = (/ &\n     &1.6206e+05_rb,1.4180e+05_rb,1.2155e+05_rb,1.0128e+05_rb,8.1025e+04_rb,6.0775e+04_rb, &\n     &4.0514e+04_rb,2.0257e+04_rb,4.1164e-06_rb/)\n      kao(:, 2,13,16) = (/ &\n     &1.6103e+05_rb,1.4091e+05_rb,1.2078e+05_rb,1.0065e+05_rb,8.0525e+04_rb,6.0389e+04_rb, &\n     &4.0260e+04_rb,2.0131e+04_rb,7.4285e-06_rb/)\n      kao(:, 3,13,16) = (/ &\n     &1.6003e+05_rb,1.4003e+05_rb,1.2001e+05_rb,1.0001e+05_rb,8.0009e+04_rb,6.0009e+04_rb, &\n     &4.0005e+04_rb,2.0004e+04_rb,8.7132e-01_rb/)\n      kao(:, 4,13,16) = (/ &\n     &1.5863e+05_rb,1.3882e+05_rb,1.1899e+05_rb,9.9157e+04_rb,7.9319e+04_rb,5.9492e+04_rb, &\n     &3.9661e+04_rb,1.9830e+04_rb,3.4650e+00_rb/)\n      kao(:, 5,13,16) = (/ &\n     &1.5756e+05_rb,1.3786e+05_rb,1.1816e+05_rb,9.8476e+04_rb,7.8780e+04_rb,5.9085e+04_rb, &\n     &3.9388e+04_rb,1.9695e+04_rb,5.3123e+00_rb/) \n\n!     The array KBO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels  < ~100mb, temperatures, and ratios\n!     of H2O to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index, JT, which\n!     runs from 1 to 5, corresponds to different temperatures.  More \n!     specifically, JT = 3 means that the data are for the corresponding \n!     reference temperature TREF for this  pressure level, JT = 2 refers \n!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and\n!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and\n!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is\n!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to\n!     16, and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:, 1,13, 1) = (/ &\n     &1.9283e+01_rb,1.4533e+01_rb,9.7765e+00_rb,4.9986e+00_rb,1.2562e-02_rb/)\n      kbo(:, 2,13, 1) = (/ &\n     &2.3187e+01_rb,1.7461e+01_rb,1.1734e+01_rb,5.9860e+00_rb,1.4622e-02_rb/)\n      kbo(:, 3,13, 1) = (/ &\n     &2.7169e+01_rb,2.0447e+01_rb,1.3724e+01_rb,6.9897e+00_rb,1.6755e-02_rb/)\n      kbo(:, 4,13, 1) = (/ &\n     &3.1114e+01_rb,2.3405e+01_rb,1.5695e+01_rb,7.9803e+00_rb,1.8932e-02_rb/)\n      kbo(:, 5,13, 1) = (/ &\n     &3.5056e+01_rb,2.6360e+01_rb,1.7664e+01_rb,8.9659e+00_rb,2.1071e-02_rb/)\n      kbo(:, 1,14, 1) = (/ &\n     &1.0180e+01_rb,7.7052e+00_rb,5.2175e+00_rb,2.7059e+00_rb,1.0725e-02_rb/)\n      kbo(:, 2,14, 1) = (/ &\n     &1.2216e+01_rb,9.2332e+00_rb,6.2420e+00_rb,3.2235e+00_rb,1.2472e-02_rb/)\n      kbo(:, 3,14, 1) = (/ &\n     &1.4258e+01_rb,1.0764e+01_rb,7.2673e+00_rb,3.7434e+00_rb,1.4271e-02_rb/)\n      kbo(:, 4,14, 1) = (/ &\n     &1.6297e+01_rb,1.2292e+01_rb,8.2867e+00_rb,4.2597e+00_rb,1.6035e-02_rb/)\n      kbo(:, 5,14, 1) = (/ &\n     &1.8337e+01_rb,1.3822e+01_rb,9.3061e+00_rb,4.7742e+00_rb,1.7777e-02_rb/)\n      kbo(:, 1,15, 1) = (/ &\n     &5.4843e+00_rb,4.1814e+00_rb,2.8583e+00_rb,1.5122e+00_rb,9.1712e-03_rb/)\n      kbo(:, 2,15, 1) = (/ &\n     &6.5509e+00_rb,4.9839e+00_rb,3.3981e+00_rb,1.7878e+00_rb,1.0654e-02_rb/)\n      kbo(:, 3,15, 1) = (/ &\n     &7.6172e+00_rb,5.7836e+00_rb,3.9371e+00_rb,2.0620e+00_rb,1.2109e-02_rb/)\n      kbo(:, 4,15, 1) = (/ &\n     &8.6919e+00_rb,6.5886e+00_rb,4.4776e+00_rb,2.3372e+00_rb,1.3585e-02_rb/)\n      kbo(:, 5,15, 1) = (/ &\n     &9.7770e+00_rb,7.4027e+00_rb,5.0231e+00_rb,2.6136e+00_rb,1.5008e-02_rb/)\n      kbo(:, 1,16, 1) = (/ &\n     &3.5143e+00_rb,2.7004e+00_rb,1.8632e+00_rb,1.0005e+00_rb,7.8549e-03_rb/)\n      kbo(:, 2,16, 1) = (/ &\n     &4.1782e+00_rb,3.2010e+00_rb,2.2008e+00_rb,1.1754e+00_rb,9.0596e-03_rb/)\n      kbo(:, 3,16, 1) = (/ &\n     &4.8461e+00_rb,3.7036e+00_rb,2.5395e+00_rb,1.3499e+00_rb,1.0291e-02_rb/)\n      kbo(:, 4,16, 1) = (/ &\n     &5.5241e+00_rb,4.2125e+00_rb,2.8833e+00_rb,1.5266e+00_rb,1.1500e-02_rb/)\n      kbo(:, 5,16, 1) = (/ &\n     &6.2095e+00_rb,4.7270e+00_rb,3.2297e+00_rb,1.7035e+00_rb,1.2669e-02_rb/)\n      kbo(:, 1,17, 1) = (/ &\n     &2.3317e+00_rb,1.8082e+00_rb,1.2606e+00_rb,6.8451e-01_rb,6.6638e-03_rb/)\n      kbo(:, 2,17, 1) = (/ &\n     &2.7625e+00_rb,2.1339e+00_rb,1.4816e+00_rb,7.9994e-01_rb,7.6839e-03_rb/)\n      kbo(:, 3,17, 1) = (/ &\n     &3.1980e+00_rb,2.4632e+00_rb,1.7043e+00_rb,9.1671e-01_rb,8.7134e-03_rb/)\n      kbo(:, 4,17, 1) = (/ &\n     &3.6437e+00_rb,2.7995e+00_rb,1.9319e+00_rb,1.0349e+00_rb,9.7011e-03_rb/)\n      kbo(:, 5,17, 1) = (/ &\n     &4.0944e+00_rb,3.1388e+00_rb,2.1608e+00_rb,1.1535e+00_rb,1.0621e-02_rb/)\n      kbo(:, 1,18, 1) = (/ &\n     &1.5862e+00_rb,1.2436e+00_rb,8.7489e-01_rb,4.7986e-01_rb,5.6356e-03_rb/)\n      kbo(:, 2,18, 1) = (/ &\n     &1.8744e+00_rb,1.4623e+00_rb,1.0242e+00_rb,5.5874e-01_rb,6.4918e-03_rb/)\n      kbo(:, 3,18, 1) = (/ &\n     &2.1671e+00_rb,1.6845e+00_rb,1.1763e+00_rb,6.3905e-01_rb,7.3340e-03_rb/)\n      kbo(:, 4,18, 1) = (/ &\n     &2.4666e+00_rb,1.9117e+00_rb,1.3311e+00_rb,7.2008e-01_rb,8.1312e-03_rb/)\n      kbo(:, 5,18, 1) = (/ &\n     &2.7713e+00_rb,2.1418e+00_rb,1.4869e+00_rb,8.0122e-01_rb,8.8525e-03_rb/)\n      kbo(:, 1,19, 1) = (/ &\n     &1.0610e+00_rb,8.4360e-01_rb,5.9805e-01_rb,3.3172e-01_rb,4.7490e-03_rb/)\n      kbo(:, 2,19, 1) = (/ &\n     &1.2512e+00_rb,9.8882e-01_rb,6.9811e-01_rb,3.8521e-01_rb,5.4538e-03_rb/)\n      kbo(:, 3,19, 1) = (/ &\n     &1.4451e+00_rb,1.1370e+00_rb,8.0056e-01_rb,4.3959e-01_rb,6.1291e-03_rb/)\n      kbo(:, 4,19, 1) = (/ &\n     &1.6437e+00_rb,1.2883e+00_rb,9.0437e-01_rb,4.9444e-01_rb,6.7635e-03_rb/)\n      kbo(:, 5,19, 1) = (/ &\n     &1.8467e+00_rb,1.4425e+00_rb,1.0099e+00_rb,5.4929e-01_rb,7.3353e-03_rb/)\n      kbo(:, 1,20, 1) = (/ &\n     &7.7133e-01_rb,6.2032e-01_rb,4.4197e-01_rb,2.4707e-01_rb,4.0032e-03_rb/)\n      kbo(:, 2,20, 1) = (/ &\n     &9.0743e-01_rb,7.2503e-01_rb,5.1466e-01_rb,2.8622e-01_rb,4.5715e-03_rb/)\n      kbo(:, 3,20, 1) = (/ &\n     &1.0470e+00_rb,8.3267e-01_rb,5.8918e-01_rb,3.2603e-01_rb,5.1125e-03_rb/)\n      kbo(:, 4,20, 1) = (/ &\n     &1.1900e+00_rb,9.4226e-01_rb,6.6481e-01_rb,3.6603e-01_rb,5.6145e-03_rb/)\n      kbo(:, 5,20, 1) = (/ &\n     &1.3362e+00_rb,1.0539e+00_rb,7.4130e-01_rb,4.0582e-01_rb,6.0699e-03_rb/)\n      kbo(:, 1,21, 1) = (/ &\n     &5.7866e-01_rb,4.6986e-01_rb,3.3621e-01_rb,1.8917e-01_rb,3.3621e-03_rb/)\n      kbo(:, 2,21, 1) = (/ &\n     &6.7950e-01_rb,5.4811e-01_rb,3.9072e-01_rb,2.1877e-01_rb,3.8183e-03_rb/)\n      kbo(:, 3,21, 1) = (/ &\n     &7.8326e-01_rb,6.2869e-01_rb,4.4658e-01_rb,2.4873e-01_rb,4.2512e-03_rb/)\n      kbo(:, 4,21, 1) = (/ &\n     &8.8933e-01_rb,7.1063e-01_rb,5.0334e-01_rb,2.7872e-01_rb,4.6532e-03_rb/)\n      kbo(:, 5,21, 1) = (/ &\n     &9.9790e-01_rb,7.9397e-01_rb,5.6013e-01_rb,3.0841e-01_rb,5.0189e-03_rb/)\n      kbo(:, 1,22, 1) = (/ &\n     &4.5035e-01_rb,3.6838e-01_rb,2.6449e-01_rb,1.4961e-01_rb,2.8371e-03_rb/)\n      kbo(:, 2,22, 1) = (/ &\n     &5.2710e-01_rb,4.2854e-01_rb,3.0641e-01_rb,1.7248e-01_rb,3.2033e-03_rb/)\n      kbo(:, 3,22, 1) = (/ &\n     &6.0621e-01_rb,4.9027e-01_rb,3.4931e-01_rb,1.9546e-01_rb,3.5507e-03_rb/)\n      kbo(:, 4,22, 1) = (/ &\n     &6.8687e-01_rb,5.5302e-01_rb,3.9268e-01_rb,2.1836e-01_rb,3.8721e-03_rb/)\n      kbo(:, 5,22, 1) = (/ &\n     &7.6986e-01_rb,6.1676e-01_rb,4.3619e-01_rb,2.4105e-01_rb,4.1644e-03_rb/)\n      kbo(:, 1,23, 1) = (/ &\n     &3.5288e-01_rb,2.9059e-01_rb,2.0929e-01_rb,1.1896e-01_rb,2.3878e-03_rb/)\n      kbo(:, 2,23, 1) = (/ &\n     &4.1165e-01_rb,3.3703e-01_rb,2.4169e-01_rb,1.3668e-01_rb,2.6830e-03_rb/)\n      kbo(:, 3,23, 1) = (/ &\n     &4.7210e-01_rb,3.8447e-01_rb,2.7478e-01_rb,1.5435e-01_rb,2.9616e-03_rb/)\n      kbo(:, 4,23, 1) = (/ &\n     &5.3412e-01_rb,4.3294e-01_rb,3.0818e-01_rb,1.7203e-01_rb,3.2196e-03_rb/)\n      kbo(:, 5,23, 1) = (/ &\n     &5.9758e-01_rb,4.8162e-01_rb,3.4147e-01_rb,1.8925e-01_rb,3.4517e-03_rb/)\n      kbo(:, 1,24, 1) = (/ &\n     &2.7554e-01_rb,2.2847e-01_rb,1.6509e-01_rb,9.4305e-02_rb,2.0058e-03_rb/)\n      kbo(:, 2,24, 1) = (/ &\n     &3.2038e-01_rb,2.6411e-01_rb,1.9003e-01_rb,1.0793e-01_rb,2.2440e-03_rb/)\n      kbo(:, 3,24, 1) = (/ &\n     &3.6644e-01_rb,3.0049e-01_rb,2.1543e-01_rb,1.2148e-01_rb,2.4688e-03_rb/)\n      kbo(:, 4,24, 1) = (/ &\n     &4.1394e-01_rb,3.3761e-01_rb,2.4100e-01_rb,1.3500e-01_rb,2.6754e-03_rb/)\n      kbo(:, 5,24, 1) = (/ &\n     &4.6205e-01_rb,3.7459e-01_rb,2.6626e-01_rb,1.4798e-01_rb,2.8597e-03_rb/)\n      kbo(:, 1,25, 1) = (/ &\n     &2.1831e-01_rb,1.8211e-01_rb,1.3197e-01_rb,7.5672e-02_rb,1.6848e-03_rb/)\n      kbo(:, 2,25, 1) = (/ &\n     &2.5300e-01_rb,2.0977e-01_rb,1.5139e-01_rb,8.6229e-02_rb,1.8770e-03_rb/)\n      kbo(:, 3,25, 1) = (/ &\n     &2.8861e-01_rb,2.3809e-01_rb,1.7109e-01_rb,9.6778e-02_rb,2.0567e-03_rb/)\n      kbo(:, 4,25, 1) = (/ &\n     &3.2559e-01_rb,2.6686e-01_rb,1.9096e-01_rb,1.0719e-01_rb,2.2230e-03_rb/)\n      kbo(:, 5,25, 1) = (/ &\n     &3.6217e-01_rb,2.9511e-01_rb,2.1013e-01_rb,1.1707e-01_rb,2.3678e-03_rb/)\n      kbo(:, 1,26, 1) = (/ &\n     &1.7639e-01_rb,1.4786e-01_rb,1.0735e-01_rb,6.1680e-02_rb,1.4167e-03_rb/)\n      kbo(:, 2,26, 1) = (/ &\n     &2.0373e-01_rb,1.6972e-01_rb,1.2271e-01_rb,7.0008e-02_rb,1.5712e-03_rb/)\n      kbo(:, 3,26, 1) = (/ &\n     &2.3189e-01_rb,1.9218e-01_rb,1.3830e-01_rb,7.8351e-02_rb,1.7155e-03_rb/)\n      kbo(:, 4,26, 1) = (/ &\n     &2.6096e-01_rb,2.1478e-01_rb,1.5388e-01_rb,8.6437e-02_rb,1.8482e-03_rb/)\n      kbo(:, 5,26, 1) = (/ &\n     &2.8921e-01_rb,2.3658e-01_rb,1.6864e-01_rb,9.4016e-02_rb,1.9628e-03_rb/)\n      kbo(:, 1,27, 1) = (/ &\n     &1.4816e-01_rb,1.2446e-01_rb,9.0381e-02_rb,5.1884e-02_rb,1.1905e-03_rb/)\n      kbo(:, 2,27, 1) = (/ &\n     &1.7052e-01_rb,1.4243e-01_rb,1.0297e-01_rb,5.8708e-02_rb,1.3153e-03_rb/)\n      kbo(:, 3,27, 1) = (/ &\n     &1.9369e-01_rb,1.6085e-01_rb,1.1575e-01_rb,6.5493e-02_rb,1.4309e-03_rb/)\n      kbo(:, 4,27, 1) = (/ &\n     &2.1729e-01_rb,1.7923e-01_rb,1.2834e-01_rb,7.1951e-02_rb,1.5370e-03_rb/)\n      kbo(:, 5,27, 1) = (/ &\n     &2.3994e-01_rb,1.9663e-01_rb,1.4015e-01_rb,7.7968e-02_rb,1.6265e-03_rb/)\n      kbo(:, 1,28, 1) = (/ &\n     &1.2786e-01_rb,1.0743e-01_rb,7.7947e-02_rb,4.4624e-02_rb,1.0001e-03_rb/)\n      kbo(:, 2,28, 1) = (/ &\n     &1.4668e-01_rb,1.2262e-01_rb,8.8533e-02_rb,5.0350e-02_rb,1.1007e-03_rb/)\n      kbo(:, 3,28, 1) = (/ &\n     &1.6624e-01_rb,1.3809e-01_rb,9.9259e-02_rb,5.5949e-02_rb,1.1936e-03_rb/)\n      kbo(:, 4,28, 1) = (/ &\n     &1.8582e-01_rb,1.5336e-01_rb,1.0964e-01_rb,6.1251e-02_rb,1.2774e-03_rb/)\n      kbo(:, 5,28, 1) = (/ &\n     &2.0447e-01_rb,1.6760e-01_rb,1.1929e-01_rb,6.6127e-02_rb,1.3481e-03_rb/)\n      kbo(:, 1,29, 1) = (/ &\n     &1.1723e-01_rb,9.8203e-02_rb,7.1006e-02_rb,4.0413e-02_rb,8.4082e-04_rb/)\n      kbo(:, 2,29, 1) = (/ &\n     &1.3410e-01_rb,1.1181e-01_rb,8.0444e-02_rb,4.5462e-02_rb,9.2201e-04_rb/)\n      kbo(:, 3,29, 1) = (/ &\n     &1.5159e-01_rb,1.2556e-01_rb,8.9943e-02_rb,5.0342e-02_rb,9.9652e-04_rb/)\n      kbo(:, 4,29, 1) = (/ &\n     &1.6878e-01_rb,1.3892e-01_rb,9.8991e-02_rb,5.4945e-02_rb,1.0624e-03_rb/)\n      kbo(:, 5,29, 1) = (/ &\n     &1.8506e-01_rb,1.5133e-01_rb,1.0733e-01_rb,5.9130e-02_rb,1.1186e-03_rb/)\n      kbo(:, 1,30, 1) = (/ &\n     &1.1017e-01_rb,9.1915e-02_rb,6.6158e-02_rb,3.7385e-02_rb,7.0716e-04_rb/)\n      kbo(:, 2,30, 1) = (/ &\n     &1.2571e-01_rb,1.0438e-01_rb,7.4791e-02_rb,4.1937e-02_rb,7.7222e-04_rb/)\n      kbo(:, 3,30, 1) = (/ &\n     &1.4165e-01_rb,1.1688e-01_rb,8.3361e-02_rb,4.6295e-02_rb,8.3205e-04_rb/)\n      kbo(:, 4,30, 1) = (/ &\n     &1.5709e-01_rb,1.2882e-01_rb,9.1412e-02_rb,5.0358e-02_rb,8.8422e-04_rb/)\n      kbo(:, 5,30, 1) = (/ &\n     &1.7161e-01_rb,1.3989e-01_rb,9.8798e-02_rb,5.4060e-02_rb,9.2829e-04_rb/)\n      kbo(:, 1,31, 1) = (/ &\n     &1.0894e-01_rb,9.0338e-02_rb,6.4636e-02_rb,3.6175e-02_rb,5.9489e-04_rb/)\n      kbo(:, 2,31, 1) = (/ &\n     &1.2399e-01_rb,1.0230e-01_rb,7.2900e-02_rb,4.0465e-02_rb,6.4753e-04_rb/)\n      kbo(:, 3,31, 1) = (/ &\n     &1.3920e-01_rb,1.1419e-01_rb,8.0980e-02_rb,4.4552e-02_rb,6.9507e-04_rb/)\n      kbo(:, 4,31, 1) = (/ &\n     &1.5373e-01_rb,1.2537e-01_rb,8.8479e-02_rb,4.8317e-02_rb,7.3661e-04_rb/)\n      kbo(:, 5,31, 1) = (/ &\n     &1.6735e-01_rb,1.3577e-01_rb,9.5380e-02_rb,5.1770e-02_rb,7.7104e-04_rb/)\n      kbo(:, 1,32, 1) = (/ &\n     &1.0900e-01_rb,8.9827e-02_rb,6.3903e-02_rb,3.5410e-02_rb,5.0043e-04_rb/)\n      kbo(:, 2,32, 1) = (/ &\n     &1.2373e-01_rb,1.0144e-01_rb,7.1880e-02_rb,3.9506e-02_rb,5.4269e-04_rb/)\n      kbo(:, 3,32, 1) = (/ &\n     &1.3829e-01_rb,1.1278e-01_rb,7.9528e-02_rb,4.3367e-02_rb,5.8080e-04_rb/)\n      kbo(:, 4,32, 1) = (/ &\n     &1.5213e-01_rb,1.2340e-01_rb,8.6611e-02_rb,4.6908e-02_rb,6.1297e-04_rb/)\n      kbo(:, 5,32, 1) = (/ &\n     &1.6513e-01_rb,1.3334e-01_rb,9.3188e-02_rb,5.0191e-02_rb,6.4067e-04_rb/)\n      kbo(:, 1,33, 1) = (/ &\n     &1.1105e-01_rb,9.0919e-02_rb,6.4301e-02_rb,3.5277e-02_rb,4.2055e-04_rb/)\n      kbo(:, 2,33, 1) = (/ &\n     &1.2562e-01_rb,1.0235e-01_rb,7.2096e-02_rb,3.9245e-02_rb,4.5474e-04_rb/)\n      kbo(:, 3,33, 1) = (/ &\n     &1.3981e-01_rb,1.1334e-01_rb,7.9473e-02_rb,4.2949e-02_rb,4.8461e-04_rb/)\n      kbo(:, 4,33, 1) = (/ &\n     &1.5326e-01_rb,1.2363e-01_rb,8.6303e-02_rb,4.6360e-02_rb,5.1014e-04_rb/)\n      kbo(:, 5,33, 1) = (/ &\n     &1.6587e-01_rb,1.3331e-01_rb,9.2704e-02_rb,4.9561e-02_rb,5.3252e-04_rb/)\n      kbo(:, 1,34, 1) = (/ &\n     &1.0980e-01_rb,8.9454e-02_rb,6.2967e-02_rb,3.4264e-02_rb,3.5179e-04_rb/)\n      kbo(:, 2,34, 1) = (/ &\n     &1.2374e-01_rb,1.0037e-01_rb,7.0363e-02_rb,3.8004e-02_rb,3.7955e-04_rb/)\n      kbo(:, 3,34, 1) = (/ &\n     &1.3725e-01_rb,1.1080e-01_rb,7.7340e-02_rb,4.1494e-02_rb,4.0292e-04_rb/)\n      kbo(:, 4,34, 1) = (/ &\n     &1.5005e-01_rb,1.2058e-01_rb,8.3803e-02_rb,4.4722e-02_rb,4.2388e-04_rb/)\n      kbo(:, 5,34, 1) = (/ &\n     &1.6190e-01_rb,1.2971e-01_rb,8.9844e-02_rb,4.7765e-02_rb,4.4175e-04_rb/)\n      kbo(:, 1,35, 1) = (/ &\n     &1.0733e-01_rb,8.7091e-02_rb,6.1056e-02_rb,3.2994e-02_rb,2.9230e-04_rb/)\n      kbo(:, 2,35, 1) = (/ &\n     &1.2074e-01_rb,9.7561e-02_rb,6.8117e-02_rb,3.6550e-02_rb,3.1434e-04_rb/)\n      kbo(:, 3,35, 1) = (/ &\n     &1.3369e-01_rb,1.0755e-01_rb,7.4768e-02_rb,3.9873e-02_rb,3.3363e-04_rb/)\n      kbo(:, 4,35, 1) = (/ &\n     &1.4588e-01_rb,1.1689e-01_rb,8.0950e-02_rb,4.2958e-02_rb,3.5062e-04_rb/)\n      kbo(:, 5,35, 1) = (/ &\n     &1.5707e-01_rb,1.2552e-01_rb,8.6668e-02_rb,4.5847e-02_rb,3.6479e-04_rb/)\n      kbo(:, 1,36, 1) = (/ &\n     &1.0289e-01_rb,8.3241e-02_rb,5.8159e-02_rb,3.1253e-02_rb,2.4069e-04_rb/)\n      kbo(:, 2,36, 1) = (/ &\n     &1.1571e-01_rb,9.3253e-02_rb,6.4895e-02_rb,3.4641e-02_rb,2.5868e-04_rb/)\n      kbo(:, 3,36, 1) = (/ &\n     &1.2815e-01_rb,1.0284e-01_rb,7.1277e-02_rb,3.7824e-02_rb,2.7449e-04_rb/)\n      kbo(:, 4,36, 1) = (/ &\n     &1.3974e-01_rb,1.1174e-01_rb,7.7168e-02_rb,4.0766e-02_rb,2.8849e-04_rb/)\n      kbo(:, 5,36, 1) = (/ &\n     &1.5033e-01_rb,1.1990e-01_rb,8.2576e-02_rb,4.3496e-02_rb,2.9983e-04_rb/)\n      kbo(:, 1,37, 1) = (/ &\n     &9.4340e-02_rb,7.6226e-02_rb,5.3140e-02_rb,2.8456e-02_rb,1.9559e-04_rb/)\n      kbo(:, 2,37, 1) = (/ &\n     &1.0634e-01_rb,8.5612e-02_rb,5.9452e-02_rb,3.1630e-02_rb,2.1059e-04_rb/)\n      kbo(:, 3,37, 1) = (/ &\n     &1.1803e-01_rb,9.4641e-02_rb,6.5469e-02_rb,3.4631e-02_rb,2.2381e-04_rb/)\n      kbo(:, 4,37, 1) = (/ &\n     &1.2893e-01_rb,1.0302e-01_rb,7.1019e-02_rb,3.7400e-02_rb,2.3549e-04_rb/)\n      kbo(:, 5,37, 1) = (/ &\n     &1.3882e-01_rb,1.1066e-01_rb,7.6074e-02_rb,3.9944e-02_rb,2.4505e-04_rb/)\n      kbo(:, 1,38, 1) = (/ &\n     &8.7666e-02_rb,7.0724e-02_rb,4.9189e-02_rb,2.6244e-02_rb,1.5881e-04_rb/)\n      kbo(:, 2,38, 1) = (/ &\n     &9.9075e-02_rb,7.9666e-02_rb,5.5208e-02_rb,2.9270e-02_rb,1.7135e-04_rb/)\n      kbo(:, 3,38, 1) = (/ &\n     &1.1022e-01_rb,8.8294e-02_rb,6.0961e-02_rb,3.2140e-02_rb,1.8248e-04_rb/)\n      kbo(:, 4,38, 1) = (/ &\n     &1.2063e-01_rb,9.6310e-02_rb,6.6270e-02_rb,3.4786e-02_rb,1.9228e-04_rb/)\n      kbo(:, 5,38, 1) = (/ &\n     &1.3002e-01_rb,1.0355e-01_rb,7.1058e-02_rb,3.7188e-02_rb,2.0028e-04_rb/)\n      kbo(:, 1,39, 1) = (/ &\n     &8.3319e-02_rb,6.7083e-02_rb,4.6540e-02_rb,2.4732e-02_rb,1.2903e-04_rb/)\n      kbo(:, 2,39, 1) = (/ &\n     &9.4409e-02_rb,7.5788e-02_rb,5.2401e-02_rb,2.7679e-02_rb,1.3958e-04_rb/)\n      kbo(:, 3,39, 1) = (/ &\n     &1.0530e-01_rb,8.4225e-02_rb,5.8027e-02_rb,3.0486e-02_rb,1.4894e-04_rb/)\n      kbo(:, 4,39, 1) = (/ &\n     &1.1544e-01_rb,9.2061e-02_rb,6.3226e-02_rb,3.3071e-02_rb,1.5713e-04_rb/)\n      kbo(:, 5,39, 1) = (/ &\n     &1.2457e-01_rb,9.9102e-02_rb,6.7879e-02_rb,3.5400e-02_rb,1.6372e-04_rb/)\n      kbo(:, 1,40, 1) = (/ &\n     &7.3382e-02_rb,5.9091e-02_rb,4.0949e-02_rb,2.1720e-02_rb,1.0369e-04_rb/)\n      kbo(:, 2,40, 1) = (/ &\n     &8.3492e-02_rb,6.7054e-02_rb,4.6317e-02_rb,2.4422e-02_rb,1.1258e-04_rb/)\n      kbo(:, 3,40, 1) = (/ &\n     &9.3502e-02_rb,7.4845e-02_rb,5.1514e-02_rb,2.7021e-02_rb,1.2049e-04_rb/)\n      kbo(:, 4,40, 1) = (/ &\n     &1.0289e-01_rb,8.2115e-02_rb,5.6339e-02_rb,2.9419e-02_rb,1.2744e-04_rb/)\n      kbo(:, 5,40, 1) = (/ &\n     &1.1132e-01_rb,8.8604e-02_rb,6.0629e-02_rb,3.1559e-02_rb,1.3317e-04_rb/)\n      kbo(:, 1,41, 1) = (/ &\n     &6.4289e-02_rb,5.1783e-02_rb,3.5851e-02_rb,1.8983e-02_rb,8.3205e-05_rb/)\n      kbo(:, 2,41, 1) = (/ &\n     &7.3486e-02_rb,5.9047e-02_rb,4.0756e-02_rb,2.1456e-02_rb,9.0601e-05_rb/)\n      kbo(:, 3,41, 1) = (/ &\n     &8.2657e-02_rb,6.6211e-02_rb,4.5539e-02_rb,2.3850e-02_rb,9.7309e-05_rb/)\n      kbo(:, 4,41, 1) = (/ &\n     &9.1325e-02_rb,7.2956e-02_rb,5.0013e-02_rb,2.6075e-02_rb,1.0320e-04_rb/)\n      kbo(:, 5,41, 1) = (/ &\n     &9.9149e-02_rb,7.8969e-02_rb,5.3991e-02_rb,2.8057e-02_rb,1.0825e-04_rb/)\n      kbo(:, 1,42, 1) = (/ &\n     &5.6899e-02_rb,4.5812e-02_rb,3.1686e-02_rb,1.6747e-02_rb,6.6719e-05_rb/)\n      kbo(:, 2,42, 1) = (/ &\n     &6.5316e-02_rb,5.2494e-02_rb,3.6198e-02_rb,1.9026e-02_rb,7.2862e-05_rb/)\n      kbo(:, 3,42, 1) = (/ &\n     &7.3779e-02_rb,5.9136e-02_rb,4.0639e-02_rb,2.1249e-02_rb,7.8557e-05_rb/)\n      kbo(:, 4,42, 1) = (/ &\n     &8.1877e-02_rb,6.5448e-02_rb,4.4826e-02_rb,2.3334e-02_rb,8.3575e-05_rb/)\n      kbo(:, 5,42, 1) = (/ &\n     &8.9207e-02_rb,7.1094e-02_rb,4.8562e-02_rb,2.5195e-02_rb,8.7912e-05_rb/)\n      kbo(:, 1,43, 1) = (/ &\n     &5.0334e-02_rb,4.0495e-02_rb,2.7979e-02_rb,1.4764e-02_rb,5.3104e-05_rb/)\n      kbo(:, 2,43, 1) = (/ &\n     &5.8063e-02_rb,4.6679e-02_rb,3.2159e-02_rb,1.6880e-02_rb,5.8298e-05_rb/)\n      kbo(:, 3,43, 1) = (/ &\n     &6.5961e-02_rb,5.2905e-02_rb,3.6327e-02_rb,1.8968e-02_rb,6.3123e-05_rb/)\n      kbo(:, 4,43, 1) = (/ &\n     &7.3585e-02_rb,5.8862e-02_rb,4.0291e-02_rb,2.0945e-02_rb,6.7425e-05_rb/)\n      kbo(:, 5,43, 1) = (/ &\n     &8.0560e-02_rb,6.4257e-02_rb,4.3859e-02_rb,2.2720e-02_rb,7.1177e-05_rb/)\n      kbo(:, 1,44, 1) = (/ &\n     &4.4899e-02_rb,3.6074e-02_rb,2.4891e-02_rb,1.3115e-02_rb,4.2029e-05_rb/)\n      kbo(:, 2,44, 1) = (/ &\n     &5.2065e-02_rb,4.1850e-02_rb,2.8809e-02_rb,1.5097e-02_rb,4.6479e-05_rb/)\n      kbo(:, 3,44, 1) = (/ &\n     &5.9485e-02_rb,4.7740e-02_rb,3.2758e-02_rb,1.7077e-02_rb,5.0599e-05_rb/)\n      kbo(:, 4,44, 1) = (/ &\n     &6.6781e-02_rb,5.3454e-02_rb,3.6566e-02_rb,1.8982e-02_rb,5.4263e-05_rb/)\n      kbo(:, 5,44, 1) = (/ &\n     &7.3522e-02_rb,5.8690e-02_rb,4.0031e-02_rb,2.0702e-02_rb,5.7530e-05_rb/)\n      kbo(:, 1,45, 1) = (/ &\n     &4.0792e-02_rb,3.2725e-02_rb,2.2543e-02_rb,1.1850e-02_rb,3.3244e-05_rb/)\n      kbo(:, 2,45, 1) = (/ &\n     &4.7552e-02_rb,3.8195e-02_rb,2.6267e-02_rb,1.3739e-02_rb,3.7011e-05_rb/)\n      kbo(:, 3,45, 1) = (/ &\n     &5.4656e-02_rb,4.3858e-02_rb,3.0076e-02_rb,1.5653e-02_rb,4.0475e-05_rb/)\n      kbo(:, 4,45, 1) = (/ &\n     &6.1725e-02_rb,4.9413e-02_rb,3.3782e-02_rb,1.7505e-02_rb,4.3662e-05_rb/)\n      kbo(:, 5,45, 1) = (/ &\n     &6.8362e-02_rb,5.4599e-02_rb,3.7216e-02_rb,1.9215e-02_rb,4.6426e-05_rb/)\n      kbo(:, 1,46, 1) = (/ &\n     &3.7210e-02_rb,2.9813e-02_rb,2.0505e-02_rb,1.0753e-02_rb,2.6192e-05_rb/)\n      kbo(:, 2,46, 1) = (/ &\n     &4.3666e-02_rb,3.5023e-02_rb,2.4062e-02_rb,1.2564e-02_rb,2.9338e-05_rb/)\n      kbo(:, 3,46, 1) = (/ &\n     &5.0484e-02_rb,4.0487e-02_rb,2.7746e-02_rb,1.4418e-02_rb,3.2269e-05_rb/)\n      kbo(:, 4,46, 1) = (/ &\n     &5.7389e-02_rb,4.5948e-02_rb,3.1393e-02_rb,1.6243e-02_rb,3.5047e-05_rb/)\n      kbo(:, 5,46, 1) = (/ &\n     &6.3983e-02_rb,5.1116e-02_rb,3.4828e-02_rb,1.7955e-02_rb,3.7412e-05_rb/)\n      kbo(:, 1,47, 1) = (/ &\n     &3.3307e-02_rb,2.6647e-02_rb,1.8307e-02_rb,9.5851e-03_rb,2.0446e-05_rb/)\n      kbo(:, 2,47, 1) = (/ &\n     &3.9395e-02_rb,3.1552e-02_rb,2.1654e-02_rb,1.1293e-02_rb,2.3124e-05_rb/)\n      kbo(:, 3,47, 1) = (/ &\n     &4.5832e-02_rb,3.6752e-02_rb,2.5172e-02_rb,1.3065e-02_rb,2.5601e-05_rb/)\n      kbo(:, 4,47, 1) = (/ &\n     &5.2491e-02_rb,4.2052e-02_rb,2.8722e-02_rb,1.4843e-02_rb,2.7940e-05_rb/)\n      kbo(:, 5,47, 1) = (/ &\n     &5.8958e-02_rb,4.7137e-02_rb,3.2108e-02_rb,1.6536e-02_rb,3.0007e-05_rb/)\n      kbo(:, 1,48, 1) = (/ &\n     &3.0577e-02_rb,2.4411e-02_rb,1.6745e-02_rb,8.7495e-03_rb,1.5922e-05_rb/)\n      kbo(:, 2,48, 1) = (/ &\n     &3.6464e-02_rb,2.9147e-02_rb,1.9975e-02_rb,1.0397e-02_rb,1.8148e-05_rb/)\n      kbo(:, 3,48, 1) = (/ &\n     &4.2691e-02_rb,3.4197e-02_rb,2.3406e-02_rb,1.2132e-02_rb,2.0290e-05_rb/)\n      kbo(:, 4,48, 1) = (/ &\n     &4.9243e-02_rb,3.9438e-02_rb,2.6932e-02_rb,1.3903e-02_rb,2.2244e-05_rb/)\n      kbo(:, 5,48, 1) = (/ &\n     &5.5751e-02_rb,4.4571e-02_rb,3.0355e-02_rb,1.5610e-02_rb,2.4044e-05_rb/)\n      kbo(:, 1,49, 1) = (/ &\n     &2.9139e-02_rb,2.3202e-02_rb,1.5887e-02_rb,8.2788e-03_rb,1.2379e-05_rb/)\n      kbo(:, 2,49, 1) = (/ &\n     &3.5049e-02_rb,2.7954e-02_rb,1.9124e-02_rb,9.9302e-03_rb,1.4214e-05_rb/)\n      kbo(:, 3,49, 1) = (/ &\n     &4.1342e-02_rb,3.3034e-02_rb,2.2588e-02_rb,1.1686e-02_rb,1.6044e-05_rb/)\n      kbo(:, 4,49, 1) = (/ &\n     &4.8011e-02_rb,3.8402e-02_rb,2.6208e-02_rb,1.3508e-02_rb,1.7733e-05_rb/)\n      kbo(:, 5,49, 1) = (/ &\n     &5.4790e-02_rb,4.3771e-02_rb,2.9799e-02_rb,1.5302e-02_rb,1.9282e-05_rb/)\n      kbo(:, 1,50, 1) = (/ &\n     &2.6464e-02_rb,2.1057e-02_rb,1.4400e-02_rb,7.4918e-03_rb,9.6160e-06_rb/)\n      kbo(:, 2,50, 1) = (/ &\n     &3.2138e-02_rb,2.5589e-02_rb,1.7489e-02_rb,9.0674e-03_rb,1.1117e-05_rb/)\n      kbo(:, 3,50, 1) = (/ &\n     &3.8201e-02_rb,3.0472e-02_rb,2.0816e-02_rb,1.0758e-02_rb,1.2650e-05_rb/)\n      kbo(:, 4,50, 1) = (/ &\n     &4.4627e-02_rb,3.5684e-02_rb,2.4344e-02_rb,1.2533e-02_rb,1.4094e-05_rb/)\n      kbo(:, 5,50, 1) = (/ &\n     &5.1304e-02_rb,4.1009e-02_rb,2.7917e-02_rb,1.4322e-02_rb,1.5452e-05_rb/)\n      kbo(:, 1,51, 1) = (/ &\n     &2.3471e-02_rb,1.8670e-02_rb,1.2760e-02_rb,6.6303e-03_rb,7.4600e-06_rb/)\n      kbo(:, 2,51, 1) = (/ &\n     &2.8809e-02_rb,2.2911e-02_rb,1.5642e-02_rb,8.0988e-03_rb,8.6870e-06_rb/)\n      kbo(:, 3,51, 1) = (/ &\n     &3.4515e-02_rb,2.7502e-02_rb,1.8771e-02_rb,9.6885e-03_rb,9.9502e-06_rb/)\n      kbo(:, 4,51, 1) = (/ &\n     &4.0564e-02_rb,3.2426e-02_rb,2.2116e-02_rb,1.1378e-02_rb,1.1172e-05_rb/)\n      kbo(:, 5,51, 1) = (/ &\n     &4.6952e-02_rb,3.7546e-02_rb,2.5560e-02_rb,1.3107e-02_rb,1.2317e-05_rb/)\n      kbo(:, 1,52, 1) = (/ &\n     &2.1330e-02_rb,1.6945e-02_rb,1.1569e-02_rb,6.0043e-03_rb,5.7740e-06_rb/)\n      kbo(:, 2,52, 1) = (/ &\n     &2.6486e-02_rb,2.1033e-02_rb,1.4344e-02_rb,7.4158e-03_rb,6.7739e-06_rb/)\n      kbo(:, 3,52, 1) = (/ &\n     &3.1984e-02_rb,2.5459e-02_rb,1.7358e-02_rb,8.9483e-03_rb,7.8163e-06_rb/)\n      kbo(:, 4,52, 1) = (/ &\n     &3.7859e-02_rb,3.0220e-02_rb,2.0602e-02_rb,1.0589e-02_rb,8.8379e-06_rb/)\n      kbo(:, 5,52, 1) = (/ &\n     &4.4095e-02_rb,3.5255e-02_rb,2.3994e-02_rb,1.2295e-02_rb,9.8102e-06_rb/)\n      kbo(:, 1,53, 1) = (/ &\n     &2.0104e-02_rb,1.5937e-02_rb,1.0867e-02_rb,5.6295e-03_rb,4.4532e-06_rb/)\n      kbo(:, 2,53, 1) = (/ &\n     &2.5267e-02_rb,2.0039e-02_rb,1.3647e-02_rb,7.0429e-03_rb,5.2727e-06_rb/)\n      kbo(:, 3,53, 1) = (/ &\n     &3.0800e-02_rb,2.4464e-02_rb,1.6661e-02_rb,8.5763e-03_rb,6.1352e-06_rb/)\n      kbo(:, 4,53, 1) = (/ &\n     &3.6739e-02_rb,2.9255e-02_rb,1.9925e-02_rb,1.0232e-02_rb,6.9843e-06_rb/)\n      kbo(:, 5,53, 1) = (/ &\n     &4.3045e-02_rb,3.4379e-02_rb,2.3392e-02_rb,1.1975e-02_rb,7.8095e-06_rb/)\n      kbo(:, 1,54, 1) = (/ &\n     &1.6441e-02_rb,1.3030e-02_rb,8.8847e-03_rb,4.6022e-03_rb,3.4230e-06_rb/)\n      kbo(:, 2,54, 1) = (/ &\n     &2.0888e-02_rb,1.6582e-02_rb,1.1293e-02_rb,5.8278e-03_rb,4.0956e-06_rb/)\n      kbo(:, 3,54, 1) = (/ &\n     &2.5721e-02_rb,2.0433e-02_rb,1.3910e-02_rb,7.1575e-03_rb,4.7876e-06_rb/)\n      kbo(:, 4,54, 1) = (/ &\n     &3.0904e-02_rb,2.4618e-02_rb,1.6759e-02_rb,8.6032e-03_rb,5.4982e-06_rb/)\n      kbo(:, 5,54, 1) = (/ &\n     &3.6412e-02_rb,2.9120e-02_rb,1.9814e-02_rb,1.0143e-02_rb,6.1750e-06_rb/)\n      kbo(:, 1,55, 1) = (/ &\n     &1.2258e-02_rb,9.7268e-03_rb,6.6366e-03_rb,3.4428e-03_rb,2.6213e-06_rb/)\n      kbo(:, 2,55, 1) = (/ &\n     &1.5748e-02_rb,1.2527e-02_rb,8.5365e-03_rb,4.4115e-03_rb,3.1717e-06_rb/)\n      kbo(:, 3,55, 1) = (/ &\n     &1.9594e-02_rb,1.5595e-02_rb,1.0619e-02_rb,5.4666e-03_rb,3.7237e-06_rb/)\n      kbo(:, 4,55, 1) = (/ &\n     &2.3710e-02_rb,1.8931e-02_rb,1.2889e-02_rb,6.6186e-03_rb,4.3031e-06_rb/)\n      kbo(:, 5,55, 1) = (/ &\n     &2.8112e-02_rb,2.2537e-02_rb,1.5336e-02_rb,7.8537e-03_rb,4.8648e-06_rb/)\n      kbo(:, 1,56, 1) = (/ &\n     &9.1055e-03_rb,7.2363e-03_rb,4.9401e-03_rb,2.5664e-03_rb,1.9997e-06_rb/)\n      kbo(:, 2,56, 1) = (/ &\n     &1.1834e-02_rb,9.4303e-03_rb,6.4310e-03_rb,3.3278e-03_rb,2.4479e-06_rb/)\n      kbo(:, 3,56, 1) = (/ &\n     &1.4882e-02_rb,1.1870e-02_rb,8.0848e-03_rb,4.1651e-03_rb,2.8963e-06_rb/)\n      kbo(:, 4,56, 1) = (/ &\n     &1.8155e-02_rb,1.4526e-02_rb,9.8917e-03_rb,5.0809e-03_rb,3.3616e-06_rb/)\n      kbo(:, 5,56, 1) = (/ &\n     &2.1671e-02_rb,1.7405e-02_rb,1.1845e-02_rb,6.0691e-03_rb,3.8293e-06_rb/)\n      kbo(:, 1,57, 1) = (/ &\n     &6.7286e-03_rb,5.3591e-03_rb,3.6618e-03_rb,1.9048e-03_rb,1.5179e-06_rb/)\n      kbo(:, 2,57, 1) = (/ &\n     &8.8620e-03_rb,7.0733e-03_rb,4.8264e-03_rb,2.5013e-03_rb,1.8807e-06_rb/)\n      kbo(:, 3,57, 1) = (/ &\n     &1.1265e-02_rb,9.0088e-03_rb,6.1382e-03_rb,3.1650e-03_rb,2.2483e-06_rb/)\n      kbo(:, 4,57, 1) = (/ &\n     &1.3873e-02_rb,1.1116e-02_rb,7.5709e-03_rb,3.8911e-03_rb,2.6184e-06_rb/)\n      kbo(:, 5,57, 1) = (/ &\n     &1.6676e-02_rb,1.3415e-02_rb,9.1296e-03_rb,4.6803e-03_rb,3.0020e-06_rb/)\n      kbo(:, 1,58, 1) = (/ &\n     &1.3112e-03_rb,1.2811e-03_rb,1.1274e-03_rb,8.2340e-04_rb,1.1519e-06_rb/)\n      kbo(:, 2,58, 1) = (/ &\n     &1.7518e-03_rb,1.7126e-03_rb,1.5045e-03_rb,1.0941e-03_rb,1.4467e-06_rb/)\n      kbo(:, 3,58, 1) = (/ &\n     &2.2498e-03_rb,2.2053e-03_rb,1.9345e-03_rb,1.3994e-03_rb,1.7445e-06_rb/)\n      kbo(:, 4,58, 1) = (/ &\n     &2.7980e-03_rb,2.7467e-03_rb,2.4064e-03_rb,1.7337e-03_rb,2.0427e-06_rb/)\n      kbo(:, 5,58, 1) = (/ &\n     &3.3868e-03_rb,3.3394e-03_rb,2.9224e-03_rb,2.0998e-03_rb,2.3542e-06_rb/)\n      kbo(:, 1,59, 1) = (/ &\n     &1.2094e-03_rb,1.1351e-03_rb,9.3340e-04_rb,6.0964e-04_rb,9.0654e-07_rb/)\n      kbo(:, 2,59, 1) = (/ &\n     &1.6257e-03_rb,1.5254e-03_rb,1.2509e-03_rb,8.1260e-04_rb,1.1440e-06_rb/)\n      kbo(:, 3,59, 1) = (/ &\n     &2.0981e-03_rb,1.9741e-03_rb,1.6151e-03_rb,1.0426e-03_rb,1.3852e-06_rb/)\n      kbo(:, 4,59, 1) = (/ &\n     &2.6203e-03_rb,2.4691e-03_rb,2.0150e-03_rb,1.2943e-03_rb,1.6270e-06_rb/)\n      kbo(:, 5,59, 1) = (/ &\n     &3.1814e-03_rb,3.0122e-03_rb,2.4540e-03_rb,1.5709e-03_rb,1.8687e-06_rb/)\n      kbo(:, 1,13, 2) = (/ &\n     &6.6529e+01_rb,4.9985e+01_rb,3.3446e+01_rb,1.6923e+01_rb,3.5914e-02_rb/)\n      kbo(:, 2,13, 2) = (/ &\n     &7.4095e+01_rb,5.5661e+01_rb,3.7226e+01_rb,1.8804e+01_rb,3.9958e-02_rb/)\n      kbo(:, 3,13, 2) = (/ &\n     &8.0840e+01_rb,6.0720e+01_rb,4.0598e+01_rb,2.0484e+01_rb,4.3881e-02_rb/)\n      kbo(:, 4,13, 2) = (/ &\n     &8.6396e+01_rb,6.4888e+01_rb,4.3378e+01_rb,2.1867e+01_rb,4.7563e-02_rb/)\n      kbo(:, 5,13, 2) = (/ &\n     &9.0642e+01_rb,6.8073e+01_rb,4.5503e+01_rb,2.2931e+01_rb,5.1188e-02_rb/)\n      kbo(:, 1,14, 2) = (/ &\n     &3.4987e+01_rb,2.6327e+01_rb,1.7678e+01_rb,9.0444e+00_rb,3.1025e-02_rb/)\n      kbo(:, 2,14, 2) = (/ &\n     &3.8934e+01_rb,2.9288e+01_rb,1.9648e+01_rb,1.0023e+01_rb,3.4459e-02_rb/)\n      kbo(:, 3,14, 2) = (/ &\n     &4.2399e+01_rb,3.1888e+01_rb,2.1376e+01_rb,1.0881e+01_rb,3.7786e-02_rb/)\n      kbo(:, 4,14, 2) = (/ &\n     &4.5141e+01_rb,3.3946e+01_rb,2.2749e+01_rb,1.1559e+01_rb,4.1037e-02_rb/)\n      kbo(:, 5,14, 2) = (/ &\n     &4.7193e+01_rb,3.5485e+01_rb,2.3775e+01_rb,1.2071e+01_rb,4.3970e-02_rb/)\n      kbo(:, 1,15, 2) = (/ &\n     &1.8797e+01_rb,1.4186e+01_rb,9.5905e+00_rb,4.9916e+00_rb,2.6741e-02_rb/)\n      kbo(:, 2,15, 2) = (/ &\n     &2.0897e+01_rb,1.5761e+01_rb,1.0636e+01_rb,5.5075e+00_rb,2.9658e-02_rb/)\n      kbo(:, 3,15, 2) = (/ &\n     &2.2675e+01_rb,1.7093e+01_rb,1.1518e+01_rb,5.9424e+00_rb,3.2475e-02_rb/)\n      kbo(:, 4,15, 2) = (/ &\n     &2.4040e+01_rb,1.8121e+01_rb,1.2200e+01_rb,6.2773e+00_rb,3.5159e-02_rb/)\n      kbo(:, 5,15, 2) = (/ &\n     &2.5038e+01_rb,1.8870e+01_rb,1.2700e+01_rb,6.5270e+00_rb,3.7635e-02_rb/)\n      kbo(:, 1,16, 2) = (/ &\n     &1.2062e+01_rb,9.1374e+00_rb,6.2260e+00_rb,3.2778e+00_rb,2.3010e-02_rb/)\n      kbo(:, 2,16, 2) = (/ &\n     &1.3368e+01_rb,1.0114e+01_rb,6.8731e+00_rb,3.5955e+00_rb,2.5515e-02_rb/)\n      kbo(:, 3,16, 2) = (/ &\n     &1.4432e+01_rb,1.0911e+01_rb,7.4005e+00_rb,3.8523e+00_rb,2.7873e-02_rb/)\n      kbo(:, 4,16, 2) = (/ &\n     &1.5210e+01_rb,1.1498e+01_rb,7.7878e+00_rb,4.0427e+00_rb,3.0096e-02_rb/)\n      kbo(:, 5,16, 2) = (/ &\n     &1.5795e+01_rb,1.1938e+01_rb,8.0810e+00_rb,4.1897e+00_rb,3.2123e-02_rb/)\n      kbo(:, 1,17, 2) = (/ &\n     &8.0343e+00_rb,6.1202e+00_rb,4.2057e+00_rb,2.2416e+00_rb,1.9722e-02_rb/)\n      kbo(:, 2,17, 2) = (/ &\n     &8.8550e+00_rb,6.7335e+00_rb,4.6112e+00_rb,2.4399e+00_rb,2.1833e-02_rb/)\n      kbo(:, 3,17, 2) = (/ &\n     &9.5028e+00_rb,7.2176e+00_rb,4.9290e+00_rb,2.5918e+00_rb,2.3771e-02_rb/)\n      kbo(:, 4,17, 2) = (/ &\n     &9.9681e+00_rb,7.5665e+00_rb,5.1592e+00_rb,2.7054e+00_rb,2.5587e-02_rb/)\n      kbo(:, 5,17, 2) = (/ &\n     &1.0341e+01_rb,7.8464e+00_rb,5.3464e+00_rb,2.7998e+00_rb,2.7262e-02_rb/)\n      kbo(:, 1,18, 2) = (/ &\n     &5.4784e+00_rb,4.2063e+00_rb,2.9118e+00_rb,1.5707e+00_rb,1.6843e-02_rb/)\n      kbo(:, 2,18, 2) = (/ &\n     &6.0003e+00_rb,4.5949e+00_rb,3.1671e+00_rb,1.6950e+00_rb,1.8568e-02_rb/)\n      kbo(:, 3,18, 2) = (/ &\n     &6.4044e+00_rb,4.8955e+00_rb,3.3617e+00_rb,1.7866e+00_rb,2.0170e-02_rb/)\n      kbo(:, 4,18, 2) = (/ &\n     &6.7000e+00_rb,5.1163e+00_rb,3.5087e+00_rb,1.8600e+00_rb,2.1658e-02_rb/)\n      kbo(:, 5,18, 2) = (/ &\n     &6.9467e+00_rb,5.3017e+00_rb,3.6339e+00_rb,1.9245e+00_rb,2.2992e-02_rb/)\n      kbo(:, 1,19, 2) = (/ &\n     &3.6607e+00_rb,2.8397e+00_rb,1.9832e+00_rb,1.0810e+00_rb,1.4294e-02_rb/)\n      kbo(:, 2,19, 2) = (/ &\n     &3.9888e+00_rb,3.0825e+00_rb,2.1422e+00_rb,1.1564e+00_rb,1.5700e-02_rb/)\n      kbo(:, 3,19, 2) = (/ &\n     &4.2403e+00_rb,3.2678e+00_rb,2.2604e+00_rb,1.2129e+00_rb,1.7026e-02_rb/)\n      kbo(:, 4,19, 2) = (/ &\n     &4.4304e+00_rb,3.4105e+00_rb,2.3562e+00_rb,1.2611e+00_rb,1.8223e-02_rb/)\n      kbo(:, 5,19, 2) = (/ &\n     &4.5892e+00_rb,3.5305e+00_rb,2.4376e+00_rb,1.3052e+00_rb,1.9250e-02_rb/)\n      kbo(:, 1,20, 2) = (/ &\n     &2.6484e+00_rb,2.0725e+00_rb,1.4576e+00_rb,7.9887e-01_rb,1.2095e-02_rb/)\n      kbo(:, 2,20, 2) = (/ &\n     &2.8723e+00_rb,2.2377e+00_rb,1.5638e+00_rb,8.4850e-01_rb,1.3258e-02_rb/)\n      kbo(:, 3,20, 2) = (/ &\n     &3.0432e+00_rb,2.3620e+00_rb,1.6433e+00_rb,8.8749e-01_rb,1.4323e-02_rb/)\n      kbo(:, 4,20, 2) = (/ &\n     &3.1766e+00_rb,2.4628e+00_rb,1.7113e+00_rb,9.2233e-01_rb,1.5251e-02_rb/)\n      kbo(:, 5,20, 2) = (/ &\n     &3.2896e+00_rb,2.5490e+00_rb,1.7710e+00_rb,9.5551e-01_rb,1.6040e-02_rb/)\n      kbo(:, 1,21, 2) = (/ &\n     &1.9737e+00_rb,1.5589e+00_rb,1.1005e+00_rb,6.0564e-01_rb,1.0202e-02_rb/)\n      kbo(:, 2,21, 2) = (/ &\n     &2.1324e+00_rb,1.6743e+00_rb,1.1736e+00_rb,6.4004e-01_rb,1.1146e-02_rb/)\n      kbo(:, 3,21, 2) = (/ &\n     &2.2543e+00_rb,1.7630e+00_rb,1.2313e+00_rb,6.6865e-01_rb,1.1981e-02_rb/)\n      kbo(:, 4,21, 2) = (/ &\n     &2.3508e+00_rb,1.8360e+00_rb,1.2809e+00_rb,6.9497e-01_rb,1.2686e-02_rb/)\n      kbo(:, 5,21, 2) = (/ &\n     &2.4312e+00_rb,1.8986e+00_rb,1.3258e+00_rb,7.2010e-01_rb,1.3291e-02_rb/)\n      kbo(:, 1,22, 2) = (/ &\n     &1.5156e+00_rb,1.2064e+00_rb,8.5276e-01_rb,4.7037e-01_rb,8.6256e-03_rb/)\n      kbo(:, 2,22, 2) = (/ &\n     &1.6299e+00_rb,1.2880e+00_rb,9.0439e-01_rb,4.9507e-01_rb,9.3659e-03_rb/)\n      kbo(:, 3,22, 2) = (/ &\n     &1.7167e+00_rb,1.3521e+00_rb,9.4701e-01_rb,5.1663e-01_rb,1.0004e-02_rb/)\n      kbo(:, 4,22, 2) = (/ &\n     &1.7876e+00_rb,1.4059e+00_rb,9.8421e-01_rb,5.3690e-01_rb,1.0541e-02_rb/)\n      kbo(:, 5,22, 2) = (/ &\n     &1.8482e+00_rb,1.4540e+00_rb,1.0190e+00_rb,5.5667e-01_rb,1.1012e-02_rb/)\n      kbo(:, 1,23, 2) = (/ &\n     &1.1701e+00_rb,9.3735e-01_rb,6.6344e-01_rb,3.6672e-01_rb,7.2585e-03_rb/)\n      kbo(:, 2,23, 2) = (/ &\n     &1.2526e+00_rb,9.9560e-01_rb,7.0066e-01_rb,3.8497e-01_rb,7.8298e-03_rb/)\n      kbo(:, 3,23, 2) = (/ &\n     &1.3157e+00_rb,1.0429e+00_rb,7.3247e-01_rb,4.0155e-01_rb,8.3206e-03_rb/)\n      kbo(:, 4,23, 2) = (/ &\n     &1.3685e+00_rb,1.0835e+00_rb,7.6114e-01_rb,4.1717e-01_rb,8.7383e-03_rb/)\n      kbo(:, 5,23, 2) = (/ &\n     &1.4146e+00_rb,1.1207e+00_rb,7.8818e-01_rb,4.3301e-01_rb,9.1036e-03_rb/)\n      kbo(:, 1,24, 2) = (/ &\n     &8.9949e-01_rb,7.2462e-01_rb,5.1357e-01_rb,2.8470e-01_rb,6.0789e-03_rb/)\n      kbo(:, 2,24, 2) = (/ &\n     &9.5867e-01_rb,7.6639e-01_rb,5.4063e-01_rb,2.9829e-01_rb,6.5218e-03_rb/)\n      kbo(:, 3,24, 2) = (/ &\n     &1.0042e+00_rb,8.0114e-01_rb,5.6436e-01_rb,3.1100e-01_rb,6.9029e-03_rb/)\n      kbo(:, 4,24, 2) = (/ &\n     &1.0431e+00_rb,8.3179e-01_rb,5.8619e-01_rb,3.2299e-01_rb,7.2295e-03_rb/)\n      kbo(:, 5,24, 2) = (/ &\n     &1.0790e+00_rb,8.6138e-01_rb,6.0791e-01_rb,3.3588e-01_rb,7.5120e-03_rb/)\n      kbo(:, 1,25, 2) = (/ &\n     &7.0112e-01_rb,5.6715e-01_rb,4.0233e-01_rb,2.2369e-01_rb,5.0763e-03_rb/)\n      kbo(:, 2,25, 2) = (/ &\n     &7.4350e-01_rb,5.9764e-01_rb,4.2250e-01_rb,2.3404e-01_rb,5.4222e-03_rb/)\n      kbo(:, 3,25, 2) = (/ &\n     &7.7710e-01_rb,6.2349e-01_rb,4.4048e-01_rb,2.4369e-01_rb,5.7195e-03_rb/)\n      kbo(:, 4,25, 2) = (/ &\n     &8.0619e-01_rb,6.4737e-01_rb,4.5753e-01_rb,2.5334e-01_rb,5.9744e-03_rb/)\n      kbo(:, 5,25, 2) = (/ &\n     &8.3531e-01_rb,6.7147e-01_rb,4.7545e-01_rb,2.6391e-01_rb,6.1951e-03_rb/)\n      kbo(:, 1,26, 2) = (/ &\n     &5.5605e-01_rb,4.5118e-01_rb,3.2039e-01_rb,1.7855e-01_rb,4.2346e-03_rb/)\n      kbo(:, 2,26, 2) = (/ &\n     &5.8683e-01_rb,4.7392e-01_rb,3.3566e-01_rb,1.8647e-01_rb,4.5042e-03_rb/)\n      kbo(:, 3,26, 2) = (/ &\n     &6.1229e-01_rb,4.9380e-01_rb,3.4972e-01_rb,1.9404e-01_rb,4.7382e-03_rb/)\n      kbo(:, 4,26, 2) = (/ &\n     &6.3488e-01_rb,5.1281e-01_rb,3.6343e-01_rb,2.0206e-01_rb,4.9373e-03_rb/)\n      kbo(:, 5,26, 2) = (/ &\n     &6.5886e-01_rb,5.3298e-01_rb,3.7847e-01_rb,2.1092e-01_rb,5.1112e-03_rb/)\n      kbo(:, 1,27, 2) = (/ &\n     &4.5766e-01_rb,3.7194e-01_rb,2.6418e-01_rb,1.4728e-01_rb,3.5266e-03_rb/)\n      kbo(:, 2,27, 2) = (/ &\n     &4.8116e-01_rb,3.8971e-01_rb,2.7627e-01_rb,1.5359e-01_rb,3.7388e-03_rb/)\n      kbo(:, 3,27, 2) = (/ &\n     &5.0141e-01_rb,4.0592e-01_rb,2.8779e-01_rb,1.5989e-01_rb,3.9220e-03_rb/)\n      kbo(:, 4,27, 2) = (/ &\n     &5.1998e-01_rb,4.2171e-01_rb,2.9940e-01_rb,1.6680e-01_rb,4.0803e-03_rb/)\n      kbo(:, 5,27, 2) = (/ &\n     &5.4049e-01_rb,4.3926e-01_rb,3.1241e-01_rb,1.7445e-01_rb,4.2171e-03_rb/)\n      kbo(:, 1,28, 2) = (/ &\n     &3.8656e-01_rb,3.1440e-01_rb,2.2322e-01_rb,1.2431e-01_rb,2.9341e-03_rb/)\n      kbo(:, 2,28, 2) = (/ &\n     &4.0539e-01_rb,3.2888e-01_rb,2.3321e-01_rb,1.2952e-01_rb,3.1008e-03_rb/)\n      kbo(:, 3,28, 2) = (/ &\n     &4.2208e-01_rb,3.4256e-01_rb,2.4291e-01_rb,1.3505e-01_rb,3.2456e-03_rb/)\n      kbo(:, 4,28, 2) = (/ &\n     &4.3788e-01_rb,3.5618e-01_rb,2.5311e-01_rb,1.4108e-01_rb,3.3707e-03_rb/)\n      kbo(:, 5,28, 2) = (/ &\n     &4.5599e-01_rb,3.7197e-01_rb,2.6475e-01_rb,1.4784e-01_rb,3.4778e-03_rb/)\n      kbo(:, 1,29, 2) = (/ &\n     &3.4663e-01_rb,2.8147e-01_rb,1.9935e-01_rb,1.1053e-01_rb,2.4407e-03_rb/)\n      kbo(:, 2,29, 2) = (/ &\n     &3.6288e-01_rb,2.9416e-01_rb,2.0825e-01_rb,1.1525e-01_rb,2.5726e-03_rb/)\n      kbo(:, 3,29, 2) = (/ &\n     &3.7738e-01_rb,3.0636e-01_rb,2.1696e-01_rb,1.2034e-01_rb,2.6876e-03_rb/)\n      kbo(:, 4,29, 2) = (/ &\n     &3.9208e-01_rb,3.1911e-01_rb,2.2648e-01_rb,1.2589e-01_rb,2.7881e-03_rb/)\n      kbo(:, 5,29, 2) = (/ &\n     &4.0886e-01_rb,3.3389e-01_rb,2.3740e-01_rb,1.3220e-01_rb,2.8698e-03_rb/)\n      kbo(:, 1,30, 2) = (/ &\n     &3.1859e-01_rb,2.5807e-01_rb,1.8226e-01_rb,1.0052e-01_rb,2.0286e-03_rb/)\n      kbo(:, 2,30, 2) = (/ &\n     &3.3300e-01_rb,2.6960e-01_rb,1.9038e-01_rb,1.0493e-01_rb,2.1345e-03_rb/)\n      kbo(:, 3,30, 2) = (/ &\n     &3.4608e-01_rb,2.8079e-01_rb,1.9849e-01_rb,1.0968e-01_rb,2.2264e-03_rb/)\n      kbo(:, 4,30, 2) = (/ &\n     &3.6002e-01_rb,2.9303e-01_rb,2.0760e-01_rb,1.1495e-01_rb,2.3052e-03_rb/)\n      kbo(:, 5,30, 2) = (/ &\n     &3.7616e-01_rb,3.0718e-01_rb,2.1802e-01_rb,1.2086e-01_rb,2.3703e-03_rb/)\n      kbo(:, 1,31, 2) = (/ &\n     &3.0804e-01_rb,2.4854e-01_rb,1.7488e-01_rb,9.5771e-02_rb,1.6879e-03_rb/)\n      kbo(:, 2,31, 2) = (/ &\n     &3.2148e-01_rb,2.5954e-01_rb,1.8261e-01_rb,1.0007e-01_rb,1.7724e-03_rb/)\n      kbo(:, 3,31, 2) = (/ &\n     &3.3418e-01_rb,2.7047e-01_rb,1.9064e-01_rb,1.0472e-01_rb,1.8461e-03_rb/)\n      kbo(:, 4,31, 2) = (/ &\n     &3.4816e-01_rb,2.8282e-01_rb,1.9976e-01_rb,1.0990e-01_rb,1.9082e-03_rb/)\n      kbo(:, 5,31, 2) = (/ &\n     &3.6451e-01_rb,2.9706e-01_rb,2.1019e-01_rb,1.1572e-01_rb,1.9578e-03_rb/)\n      kbo(:, 1,32, 2) = (/ &\n     &3.0134e-01_rb,2.4222e-01_rb,1.6982e-01_rb,9.2391e-02_rb,1.4045e-03_rb/)\n      kbo(:, 2,32, 2) = (/ &\n     &3.1413e-01_rb,2.5288e-01_rb,1.7732e-01_rb,9.6600e-02_rb,1.4719e-03_rb/)\n      kbo(:, 3,32, 2) = (/ &\n     &3.2677e-01_rb,2.6386e-01_rb,1.8545e-01_rb,1.0123e-01_rb,1.5309e-03_rb/)\n      kbo(:, 4,32, 2) = (/ &\n     &3.4104e-01_rb,2.7646e-01_rb,1.9466e-01_rb,1.0637e-01_rb,1.5796e-03_rb/)\n      kbo(:, 5,32, 2) = (/ &\n     &3.5782e-01_rb,2.9105e-01_rb,2.0529e-01_rb,1.1222e-01_rb,1.6199e-03_rb/)\n      kbo(:, 1,33, 2) = (/ &\n     &3.0007e-01_rb,2.4036e-01_rb,1.6789e-01_rb,9.0749e-02_rb,1.1692e-03_rb/)\n      kbo(:, 2,33, 2) = (/ &\n     &3.1257e-01_rb,2.5093e-01_rb,1.7540e-01_rb,9.4970e-02_rb,1.2231e-03_rb/)\n      kbo(:, 3,33, 2) = (/ &\n     &3.2551e-01_rb,2.6224e-01_rb,1.8373e-01_rb,9.9635e-02_rb,1.2703e-03_rb/)\n      kbo(:, 4,33, 2) = (/ &\n     &3.4043e-01_rb,2.7535e-01_rb,1.9325e-01_rb,1.0486e-01_rb,1.3103e-03_rb/)\n      kbo(:, 5,33, 2) = (/ &\n     &3.5814e-01_rb,2.9066e-01_rb,2.0432e-01_rb,1.1086e-01_rb,1.3413e-03_rb/)\n      kbo(:, 1,34, 2) = (/ &\n     &2.9092e-01_rb,2.3257e-01_rb,1.6200e-01_rb,8.7114e-02_rb,9.7104e-04_rb/)\n      kbo(:, 2,34, 2) = (/ &\n     &3.0301e-01_rb,2.4286e-01_rb,1.6939e-01_rb,9.1256e-02_rb,1.0146e-03_rb/)\n      kbo(:, 3,34, 2) = (/ &\n     &3.1600e-01_rb,2.5431e-01_rb,1.7773e-01_rb,9.5863e-02_rb,1.0532e-03_rb/)\n      kbo(:, 4,34, 2) = (/ &\n     &3.3116e-01_rb,2.6756e-01_rb,1.8732e-01_rb,1.0106e-01_rb,1.0840e-03_rb/)\n      kbo(:, 5,34, 2) = (/ &\n     &3.4944e-01_rb,2.8336e-01_rb,1.9862e-01_rb,1.0710e-01_rb,1.1076e-03_rb/)\n      kbo(:, 1,35, 2) = (/ &\n     &2.8133e-01_rb,2.2448e-01_rb,1.5598e-01_rb,8.3470e-02_rb,8.0326e-04_rb/)\n      kbo(:, 2,35, 2) = (/ &\n     &2.9315e-01_rb,2.3461e-01_rb,1.6327e-01_rb,8.7518e-02_rb,8.3948e-04_rb/)\n      kbo(:, 3,35, 2) = (/ &\n     &3.0606e-01_rb,2.4602e-01_rb,1.7152e-01_rb,9.2018e-02_rb,8.6953e-04_rb/)\n      kbo(:, 4,35, 2) = (/ &\n     &3.2135e-01_rb,2.5937e-01_rb,1.8112e-01_rb,9.7174e-02_rb,8.9330e-04_rb/)\n      kbo(:, 5,35, 2) = (/ &\n     &3.3996e-01_rb,2.7548e-01_rb,1.9256e-01_rb,1.0324e-01_rb,9.1326e-04_rb/)\n      kbo(:, 1,36, 2) = (/ &\n     &2.6927e-01_rb,2.1450e-01_rb,1.4871e-01_rb,7.9228e-02_rb,6.6044e-04_rb/)\n      kbo(:, 2,36, 2) = (/ &\n     &2.8072e-01_rb,2.2434e-01_rb,1.5577e-01_rb,8.3114e-02_rb,6.9019e-04_rb/)\n      kbo(:, 3,36, 2) = (/ &\n     &2.9329e-01_rb,2.3546e-01_rb,1.6379e-01_rb,8.7445e-02_rb,7.1471e-04_rb/)\n      kbo(:, 4,36, 2) = (/ &\n     &3.0843e-01_rb,2.4872e-01_rb,1.7326e-01_rb,9.2498e-02_rb,7.3506e-04_rb/)\n      kbo(:, 5,36, 2) = (/ &\n     &3.2685e-01_rb,2.6470e-01_rb,1.8459e-01_rb,9.8476e-02_rb,7.5121e-04_rb/)\n      kbo(:, 1,37, 2) = (/ &\n     &2.4965e-01_rb,1.9865e-01_rb,1.3749e-01_rb,7.2983e-02_rb,5.3914e-04_rb/)\n      kbo(:, 2,37, 2) = (/ &\n     &2.6042e-01_rb,2.0789e-01_rb,1.4407e-01_rb,7.6575e-02_rb,5.6372e-04_rb/)\n      kbo(:, 3,37, 2) = (/ &\n     &2.7217e-01_rb,2.1833e-01_rb,1.5157e-01_rb,8.0593e-02_rb,5.8448e-04_rb/)\n      kbo(:, 4,37, 2) = (/ &\n     &2.8633e-01_rb,2.3076e-01_rb,1.6043e-01_rb,8.5310e-02_rb,6.0216e-04_rb/)\n      kbo(:, 5,37, 2) = (/ &\n     &3.0356e-01_rb,2.4582e-01_rb,1.7110e-01_rb,9.0929e-02_rb,6.1615e-04_rb/)\n      kbo(:, 1,38, 2) = (/ &\n     &2.3485e-01_rb,1.8661e-01_rb,1.2891e-01_rb,6.8178e-02_rb,4.3970e-04_rb/)\n      kbo(:, 2,38, 2) = (/ &\n     &2.4515e-01_rb,1.9543e-01_rb,1.3515e-01_rb,7.1546e-02_rb,4.6052e-04_rb/)\n      kbo(:, 3,38, 2) = (/ &\n     &2.5629e-01_rb,2.0533e-01_rb,1.4225e-01_rb,7.5330e-02_rb,4.7811e-04_rb/)\n      kbo(:, 4,38, 2) = (/ &\n     &2.6971e-01_rb,2.1715e-01_rb,1.5065e-01_rb,7.9788e-02_rb,4.9330e-04_rb/)\n      kbo(:, 5,38, 2) = (/ &\n     &2.8605e-01_rb,2.3151e-01_rb,1.6083e-01_rb,8.5133e-02_rb,5.0547e-04_rb/)\n      kbo(:, 1,39, 2) = (/ &\n     &2.2602e-01_rb,1.7927e-01_rb,1.2358e-01_rb,6.5103e-02_rb,3.5893e-04_rb/)\n      kbo(:, 2,39, 2) = (/ &\n     &2.3611e-01_rb,1.8789e-01_rb,1.2965e-01_rb,6.8347e-02_rb,3.7626e-04_rb/)\n      kbo(:, 3,39, 2) = (/ &\n     &2.4693e-01_rb,1.9751e-01_rb,1.3653e-01_rb,7.1994e-02_rb,3.9112e-04_rb/)\n      kbo(:, 4,39, 2) = (/ &\n     &2.5998e-01_rb,2.0903e-01_rb,1.4470e-01_rb,7.6316e-02_rb,4.0431e-04_rb/)\n      kbo(:, 5,39, 2) = (/ &\n     &2.7577e-01_rb,2.2297e-01_rb,1.5458e-01_rb,8.1500e-02_rb,4.1520e-04_rb/)\n      kbo(:, 1,40, 2) = (/ &\n     &2.0347e-01_rb,1.6128e-01_rb,1.1107e-01_rb,5.8373e-02_rb,2.9088e-04_rb/)\n      kbo(:, 2,40, 2) = (/ &\n     &2.1275e-01_rb,1.6921e-01_rb,1.1659e-01_rb,6.1296e-02_rb,3.0550e-04_rb/)\n      kbo(:, 3,40, 2) = (/ &\n     &2.2248e-01_rb,1.7787e-01_rb,1.2279e-01_rb,6.4562e-02_rb,3.1830e-04_rb/)\n      kbo(:, 4,40, 2) = (/ &\n     &2.3419e-01_rb,1.8824e-01_rb,1.3013e-01_rb,6.8434e-02_rb,3.2975e-04_rb/)\n      kbo(:, 5,40, 2) = (/ &\n     &2.4824e-01_rb,2.0081e-01_rb,1.3903e-01_rb,7.3098e-02_rb,3.3913e-04_rb/)\n      kbo(:, 1,41, 2) = (/ &\n     &1.8258e-01_rb,1.4470e-01_rb,9.9535e-02_rb,5.2202e-02_rb,2.3535e-04_rb/)\n      kbo(:, 2,41, 2) = (/ &\n     &1.9113e-01_rb,1.5197e-01_rb,1.0458e-01_rb,5.4844e-02_rb,2.4773e-04_rb/)\n      kbo(:, 3,41, 2) = (/ &\n     &1.9995e-01_rb,1.5977e-01_rb,1.1015e-01_rb,5.7766e-02_rb,2.5866e-04_rb/)\n      kbo(:, 4,41, 2) = (/ &\n     &2.1035e-01_rb,1.6906e-01_rb,1.1672e-01_rb,6.1215e-02_rb,2.6866e-04_rb/)\n      kbo(:, 5,41, 2) = (/ &\n     &2.2281e-01_rb,1.8031e-01_rb,1.2469e-01_rb,6.5393e-02_rb,2.7675e-04_rb/)\n      kbo(:, 1,42, 2) = (/ &\n     &1.6555e-01_rb,1.3118e-01_rb,9.0125e-02_rb,4.7172e-02_rb,1.9035e-04_rb/)\n      kbo(:, 2,42, 2) = (/ &\n     &1.7351e-01_rb,1.3791e-01_rb,9.4797e-02_rb,4.9586e-02_rb,2.0086e-04_rb/)\n      kbo(:, 3,42, 2) = (/ &\n     &1.8167e-01_rb,1.4504e-01_rb,9.9843e-02_rb,5.2229e-02_rb,2.1016e-04_rb/)\n      kbo(:, 4,42, 2) = (/ &\n     &1.9101e-01_rb,1.5346e-01_rb,1.0581e-01_rb,5.5333e-02_rb,2.1875e-04_rb/)\n      kbo(:, 5,42, 2) = (/ &\n     &2.0220e-01_rb,1.6362e-01_rb,1.1299e-01_rb,5.9103e-02_rb,2.2587e-04_rb/)\n      kbo(:, 1,43, 2) = (/ &\n     &1.5093e-01_rb,1.1961e-01_rb,8.2075e-02_rb,4.2874e-02_rb,1.5326e-04_rb/)\n      kbo(:, 2,43, 2) = (/ &\n     &1.5853e-01_rb,1.2589e-01_rb,8.6428e-02_rb,4.5110e-02_rb,1.6227e-04_rb/)\n      kbo(:, 3,43, 2) = (/ &\n     &1.6609e-01_rb,1.3244e-01_rb,9.1034e-02_rb,4.7504e-02_rb,1.7029e-04_rb/)\n      kbo(:, 4,43, 2) = (/ &\n     &1.7452e-01_rb,1.4008e-01_rb,9.6428e-02_rb,5.0296e-02_rb,1.7773e-04_rb/)\n      kbo(:, 5,43, 2) = (/ &\n     &1.8456e-01_rb,1.4921e-01_rb,1.0290e-01_rb,5.3684e-02_rb,1.8398e-04_rb/)\n      kbo(:, 1,44, 2) = (/ &\n     &1.3921e-01_rb,1.1030e-01_rb,7.5620e-02_rb,3.9420e-02_rb,1.2316e-04_rb/)\n      kbo(:, 2,44, 2) = (/ &\n     &1.4661e-01_rb,1.1628e-01_rb,7.9723e-02_rb,4.1521e-02_rb,1.3084e-04_rb/)\n      kbo(:, 3,44, 2) = (/ &\n     &1.5377e-01_rb,1.2242e-01_rb,8.4004e-02_rb,4.3727e-02_rb,1.3764e-04_rb/)\n      kbo(:, 4,44, 2) = (/ &\n     &1.6148e-01_rb,1.2941e-01_rb,8.8933e-02_rb,4.6269e-02_rb,1.4416e-04_rb/)\n      kbo(:, 5,44, 2) = (/ &\n     &1.7060e-01_rb,1.3772e-01_rb,9.4815e-02_rb,4.9343e-02_rb,1.4964e-04_rb/)\n      kbo(:, 1,45, 2) = (/ &\n     &1.3086e-01_rb,1.0364e-01_rb,7.0980e-02_rb,3.6935e-02_rb,9.8771e-05_rb/)\n      kbo(:, 2,45, 2) = (/ &\n     &1.3832e-01_rb,1.0957e-01_rb,7.5010e-02_rb,3.8986e-02_rb,1.0533e-04_rb/)\n      kbo(:, 3,45, 2) = (/ &\n     &1.4520e-01_rb,1.1543e-01_rb,7.9072e-02_rb,4.1056e-02_rb,1.1127e-04_rb/)\n      kbo(:, 4,45, 2) = (/ &\n     &1.5249e-01_rb,1.2195e-01_rb,8.3674e-02_rb,4.3425e-02_rb,1.1690e-04_rb/)\n      kbo(:, 5,45, 2) = (/ &\n     &1.6094e-01_rb,1.2967e-01_rb,8.9124e-02_rb,4.6256e-02_rb,1.2176e-04_rb/)\n      kbo(:, 1,46, 2) = (/ &\n     &1.2395e-01_rb,9.8133e-02_rb,6.7135e-02_rb,3.4876e-02_rb,7.8972e-05_rb/)\n      kbo(:, 2,46, 2) = (/ &\n     &1.3154e-01_rb,1.0413e-01_rb,7.1186e-02_rb,3.6923e-02_rb,8.4580e-05_rb/)\n      kbo(:, 3,46, 2) = (/ &\n     &1.3835e-01_rb,1.0981e-01_rb,7.5111e-02_rb,3.8913e-02_rb,8.9707e-05_rb/)\n      kbo(:, 4,46, 2) = (/ &\n     &1.4539e-01_rb,1.1598e-01_rb,7.9454e-02_rb,4.1140e-02_rb,9.4570e-05_rb/)\n      kbo(:, 5,46, 2) = (/ &\n     &1.5328e-01_rb,1.2322e-01_rb,8.4552e-02_rb,4.3768e-02_rb,9.8952e-05_rb/)\n      kbo(:, 1,47, 2) = (/ &\n     &1.1561e-01_rb,9.1621e-02_rb,6.2646e-02_rb,3.2504e-02_rb,6.2836e-05_rb/)\n      kbo(:, 2,47, 2) = (/ &\n     &1.2359e-01_rb,9.7799e-02_rb,6.6803e-02_rb,3.4586e-02_rb,6.7612e-05_rb/)\n      kbo(:, 3,47, 2) = (/ &\n     &1.3036e-01_rb,1.0330e-01_rb,7.0567e-02_rb,3.6497e-02_rb,7.2040e-05_rb/)\n      kbo(:, 4,47, 2) = (/ &\n     &1.3710e-01_rb,1.0912e-01_rb,7.4632e-02_rb,3.8567e-02_rb,7.6196e-05_rb/)\n      kbo(:, 5,47, 2) = (/ &\n     &1.4440e-01_rb,1.1580e-01_rb,7.9334e-02_rb,4.0981e-02_rb,8.0080e-05_rb/)\n      kbo(:, 1,48, 2) = (/ &\n     &1.1035e-01_rb,8.7581e-02_rb,5.9868e-02_rb,3.1032e-02_rb,4.9884e-05_rb/)\n      kbo(:, 2,48, 2) = (/ &\n     &1.1928e-01_rb,9.4310e-02_rb,6.4353e-02_rb,3.3267e-02_rb,5.4019e-05_rb/)\n      kbo(:, 3,48, 2) = (/ &\n     &1.2628e-01_rb,9.9898e-02_rb,6.8156e-02_rb,3.5187e-02_rb,5.7777e-05_rb/)\n      kbo(:, 4,48, 2) = (/ &\n     &1.3294e-01_rb,1.0557e-01_rb,7.2080e-02_rb,3.7168e-02_rb,6.1393e-05_rb/)\n      kbo(:, 5,48, 2) = (/ &\n     &1.3996e-01_rb,1.1191e-01_rb,7.6553e-02_rb,3.9465e-02_rb,6.4815e-05_rb/)\n      kbo(:, 1,49, 2) = (/ &\n     &1.0914e-01_rb,8.6684e-02_rb,5.9236e-02_rb,3.0679e-02_rb,3.9521e-05_rb/)\n      kbo(:, 2,49, 2) = (/ &\n     &1.1962e-01_rb,9.4485e-02_rb,6.4406e-02_rb,3.3233e-02_rb,4.3077e-05_rb/)\n      kbo(:, 3,49, 2) = (/ &\n     &1.2732e-01_rb,1.0058e-01_rb,6.8523e-02_rb,3.5308e-02_rb,4.6318e-05_rb/)\n      kbo(:, 4,49, 2) = (/ &\n     &1.3429e-01_rb,1.0636e-01_rb,7.2504e-02_rb,3.7320e-02_rb,4.9451e-05_rb/)\n      kbo(:, 5,49, 2) = (/ &\n     &1.4147e-01_rb,1.1268e-01_rb,7.6951e-02_rb,3.9591e-02_rb,5.2405e-05_rb/)\n      kbo(:, 1,50, 2) = (/ &\n     &1.0267e-01_rb,8.1582e-02_rb,5.5735e-02_rb,2.8850e-02_rb,3.1268e-05_rb/)\n      kbo(:, 2,50, 2) = (/ &\n     &1.1402e-01_rb,9.0165e-02_rb,6.1437e-02_rb,3.1671e-02_rb,3.4319e-05_rb/)\n      kbo(:, 3,50, 2) = (/ &\n     &1.2234e-01_rb,9.6602e-02_rb,6.5766e-02_rb,3.3840e-02_rb,3.7076e-05_rb/)\n      kbo(:, 4,50, 2) = (/ &\n     &1.2939e-01_rb,1.0230e-01_rb,6.9668e-02_rb,3.5813e-02_rb,3.9737e-05_rb/)\n      kbo(:, 5,50, 2) = (/ &\n     &1.3639e-01_rb,1.0837e-01_rb,7.3903e-02_rb,3.7967e-02_rb,4.2232e-05_rb/)\n      kbo(:, 1,51, 2) = (/ &\n     &9.4284e-02_rb,7.4953e-02_rb,5.1186e-02_rb,2.6482e-02_rb,2.4659e-05_rb/)\n      kbo(:, 2,51, 2) = (/ &\n     &1.0593e-01_rb,8.3948e-02_rb,5.7209e-02_rb,2.9486e-02_rb,2.7298e-05_rb/)\n      kbo(:, 3,51, 2) = (/ &\n     &1.1492e-01_rb,9.0727e-02_rb,6.1733e-02_rb,3.1740e-02_rb,2.9657e-05_rb/)\n      kbo(:, 4,51, 2) = (/ &\n     &1.2197e-01_rb,9.6371e-02_rb,6.5573e-02_rb,3.3673e-02_rb,3.1882e-05_rb/)\n      kbo(:, 5,51, 2) = (/ &\n     &1.2870e-01_rb,1.0212e-01_rb,6.9569e-02_rb,3.5694e-02_rb,3.4030e-05_rb/)\n      kbo(:, 1,52, 2) = (/ &\n     &8.8743e-02_rb,7.0542e-02_rb,4.8148e-02_rb,2.4885e-02_rb,1.9415e-05_rb/)\n      kbo(:, 2,52, 2) = (/ &\n     &1.0078e-01_rb,7.9976e-02_rb,5.4503e-02_rb,2.8085e-02_rb,2.1689e-05_rb/)\n      kbo(:, 3,52, 2) = (/ &\n     &1.1078e-01_rb,8.7454e-02_rb,5.9476e-02_rb,3.0551e-02_rb,2.3703e-05_rb/)\n      kbo(:, 4,52, 2) = (/ &\n     &1.1817e-01_rb,9.3325e-02_rb,6.3448e-02_rb,3.2545e-02_rb,2.5596e-05_rb/)\n      kbo(:, 5,52, 2) = (/ &\n     &1.2490e-01_rb,9.8940e-02_rb,6.7340e-02_rb,3.4514e-02_rb,2.7422e-05_rb/)\n      kbo(:, 1,53, 2) = (/ &\n     &8.6662e-02_rb,6.8864e-02_rb,4.6962e-02_rb,2.4236e-02_rb,1.5263e-05_rb/)\n      kbo(:, 2,53, 2) = (/ &\n     &9.9515e-02_rb,7.8952e-02_rb,5.3787e-02_rb,2.7692e-02_rb,1.7200e-05_rb/)\n      kbo(:, 3,53, 2) = (/ &\n     &1.1085e-01_rb,8.7554e-02_rb,5.9520e-02_rb,3.0542e-02_rb,1.8920e-05_rb/)\n      kbo(:, 4,53, 2) = (/ &\n     &1.1918e-01_rb,9.4022e-02_rb,6.3885e-02_rb,3.2726e-02_rb,2.0582e-05_rb/)\n      kbo(:, 5,53, 2) = (/ &\n     &1.2628e-01_rb,9.9818e-02_rb,6.7862e-02_rb,3.4747e-02_rb,2.2128e-05_rb/)\n      kbo(:, 1,54, 2) = (/ &\n     &7.3195e-02_rb,5.8286e-02_rb,3.9755e-02_rb,2.0520e-02_rb,1.1967e-05_rb/)\n      kbo(:, 2,54, 2) = (/ &\n     &8.4972e-02_rb,6.7544e-02_rb,4.6023e-02_rb,2.3702e-02_rb,1.3585e-05_rb/)\n      kbo(:, 3,54, 2) = (/ &\n     &9.5709e-02_rb,7.5855e-02_rb,5.1595e-02_rb,2.6489e-02_rb,1.5051e-05_rb/)\n      kbo(:, 4,54, 2) = (/ &\n     &1.0394e-01_rb,8.2096e-02_rb,5.5779e-02_rb,2.8575e-02_rb,1.6406e-05_rb/)\n      kbo(:, 5,54, 2) = (/ &\n     &1.1051e-01_rb,8.7391e-02_rb,5.9394e-02_rb,3.0393e-02_rb,1.7745e-05_rb/)\n      kbo(:, 1,55, 2) = (/ &\n     &5.6277e-02_rb,4.4947e-02_rb,3.0672e-02_rb,1.5850e-02_rb,9.3585e-06_rb/)\n      kbo(:, 2,55, 2) = (/ &\n     &6.6102e-02_rb,5.2729e-02_rb,3.5949e-02_rb,1.8531e-02_rb,1.0684e-05_rb/)\n      kbo(:, 3,55, 2) = (/ &\n     &7.5193e-02_rb,5.9877e-02_rb,4.0765e-02_rb,2.0959e-02_rb,1.1938e-05_rb/)\n      kbo(:, 4,55, 2) = (/ &\n     &8.2620e-02_rb,6.5458e-02_rb,4.4488e-02_rb,2.2798e-02_rb,1.3050e-05_rb/)\n      kbo(:, 5,55, 2) = (/ &\n     &8.8216e-02_rb,6.9936e-02_rb,4.7530e-02_rb,2.4316e-02_rb,1.4154e-05_rb/)\n      kbo(:, 1,56, 2) = (/ &\n     &4.3039e-02_rb,3.4453e-02_rb,2.3524e-02_rb,1.2170e-02_rb,7.2880e-06_rb/)\n      kbo(:, 2,56, 2) = (/ &\n     &5.1258e-02_rb,4.1038e-02_rb,2.7994e-02_rb,1.4446e-02_rb,8.3961e-06_rb/)\n      kbo(:, 3,56, 2) = (/ &\n     &5.8906e-02_rb,4.7098e-02_rb,3.2089e-02_rb,1.6519e-02_rb,9.4488e-06_rb/)\n      kbo(:, 4,56, 2) = (/ &\n     &6.5506e-02_rb,5.2094e-02_rb,3.5421e-02_rb,1.8161e-02_rb,1.0382e-05_rb/)\n      kbo(:, 5,56, 2) = (/ &\n     &7.0360e-02_rb,5.5940e-02_rb,3.8018e-02_rb,1.9445e-02_rb,1.1248e-05_rb/)\n      kbo(:, 1,57, 2) = (/ &\n     &3.2674e-02_rb,2.6237e-02_rb,1.7922e-02_rb,9.2805e-03_rb,5.6715e-06_rb/)\n      kbo(:, 2,57, 2) = (/ &\n     &3.9609e-02_rb,3.1835e-02_rb,2.1730e-02_rb,1.1223e-02_rb,6.5904e-06_rb/)\n      kbo(:, 3,57, 2) = (/ &\n     &4.6006e-02_rb,3.6922e-02_rb,2.5172e-02_rb,1.2973e-02_rb,7.4542e-06_rb/)\n      kbo(:, 4,57, 2) = (/ &\n     &5.1740e-02_rb,4.1352e-02_rb,2.8137e-02_rb,1.4436e-02_rb,8.2537e-06_rb/)\n      kbo(:, 5,57, 2) = (/ &\n     &5.6054e-02_rb,4.4686e-02_rb,3.0382e-02_rb,1.5541e-02_rb,8.9675e-06_rb/)\n      kbo(:, 1,58, 2) = (/ &\n     &6.5163e-03_rb,6.4215e-03_rb,5.6470e-03_rb,4.1032e-03_rb,4.4127e-06_rb/)\n      kbo(:, 2,58, 2) = (/ &\n     &8.0617e-03_rb,7.9508e-03_rb,6.9853e-03_rb,5.0619e-03_rb,5.1550e-06_rb/)\n      kbo(:, 3,58, 2) = (/ &\n     &9.4685e-03_rb,9.3297e-03_rb,8.1872e-03_rb,5.9187e-03_rb,5.8809e-06_rb/)\n      kbo(:, 4,58, 2) = (/ &\n     &1.0753e-02_rb,1.0568e-02_rb,9.2585e-03_rb,6.6629e-03_rb,6.5571e-06_rb/)\n      kbo(:, 5,58, 2) = (/ &\n     &1.1773e-02_rb,1.1514e-02_rb,1.0073e-02_rb,7.2198e-03_rb,7.1478e-06_rb/)\n      kbo(:, 1,59, 2) = (/ &\n     &6.0678e-03_rb,5.7484e-03_rb,4.7181e-03_rb,3.0625e-03_rb,3.5292e-06_rb/)\n      kbo(:, 2,59, 2) = (/ &\n     &7.5775e-03_rb,7.1843e-03_rb,5.8871e-03_rb,3.8076e-03_rb,4.1244e-06_rb/)\n      kbo(:, 3,59, 2) = (/ &\n     &8.9504e-03_rb,8.4793e-03_rb,6.9385e-03_rb,4.4706e-03_rb,4.7056e-06_rb/)\n      kbo(:, 4,59, 2) = (/ &\n     &1.0202e-02_rb,9.6400e-03_rb,7.8732e-03_rb,5.0416e-03_rb,5.2546e-06_rb/)\n      kbo(:, 5,59, 2) = (/ &\n     &1.1221e-02_rb,1.0539e-02_rb,8.5853e-03_rb,5.4711e-03_rb,5.7591e-06_rb/)\n      kbo(:, 1,13, 3) = (/ &\n     &1.3886e+02_rb,1.0424e+02_rb,6.9618e+01_rb,3.4998e+01_rb,6.8908e-02_rb/)\n      kbo(:, 2,13, 3) = (/ &\n     &1.3847e+02_rb,1.0394e+02_rb,6.9423e+01_rb,3.4905e+01_rb,7.3584e-02_rb/)\n      kbo(:, 3,13, 3) = (/ &\n     &1.3854e+02_rb,1.0400e+02_rb,6.9461e+01_rb,3.4924e+01_rb,7.8137e-02_rb/)\n      kbo(:, 4,13, 3) = (/ &\n     &1.4034e+02_rb,1.0534e+02_rb,7.0354e+01_rb,3.5368e+01_rb,8.2835e-02_rb/)\n      kbo(:, 5,13, 3) = (/ &\n     &1.4333e+02_rb,1.0759e+02_rb,7.1853e+01_rb,3.6116e+01_rb,8.7500e-02_rb/)\n      kbo(:, 1,14, 3) = (/ &\n     &7.1765e+01_rb,5.3918e+01_rb,3.6073e+01_rb,1.8228e+01_rb,5.9867e-02_rb/)\n      kbo(:, 2,14, 3) = (/ &\n     &7.1567e+01_rb,5.3771e+01_rb,3.5977e+01_rb,1.8183e+01_rb,6.3947e-02_rb/)\n      kbo(:, 3,14, 3) = (/ &\n     &7.1902e+01_rb,5.4021e+01_rb,3.6141e+01_rb,1.8266e+01_rb,6.8160e-02_rb/)\n      kbo(:, 4,14, 3) = (/ &\n     &7.3101e+01_rb,5.4919e+01_rb,3.6739e+01_rb,1.8569e+01_rb,7.2138e-02_rb/)\n      kbo(:, 5,14, 3) = (/ &\n     &7.4813e+01_rb,5.6202e+01_rb,3.7593e+01_rb,1.8992e+01_rb,7.6299e-02_rb/)\n      kbo(:, 1,15, 3) = (/ &\n     &3.7762e+01_rb,2.8418e+01_rb,1.9073e+01_rb,9.7323e+00_rb,5.1937e-02_rb/)\n      kbo(:, 2,15, 3) = (/ &\n     &3.7725e+01_rb,2.8390e+01_rb,1.9057e+01_rb,9.7303e+00_rb,5.5591e-02_rb/)\n      kbo(:, 3,15, 3) = (/ &\n     &3.8048e+01_rb,2.8634e+01_rb,1.9221e+01_rb,9.8224e+00_rb,5.9263e-02_rb/)\n      kbo(:, 4,15, 3) = (/ &\n     &3.8784e+01_rb,2.9182e+01_rb,1.9585e+01_rb,1.0010e+01_rb,6.2883e-02_rb/)\n      kbo(:, 5,15, 3) = (/ &\n     &3.9804e+01_rb,2.9945e+01_rb,2.0089e+01_rb,1.0260e+01_rb,6.6326e-02_rb/)\n      kbo(:, 1,16, 3) = (/ &\n     &2.3667e+01_rb,1.7845e+01_rb,1.2024e+01_rb,6.2150e+00_rb,4.4961e-02_rb/)\n      kbo(:, 2,16, 3) = (/ &\n     &2.3710e+01_rb,1.7881e+01_rb,1.2053e+01_rb,6.2413e+00_rb,4.8227e-02_rb/)\n      kbo(:, 3,16, 3) = (/ &\n     &2.3983e+01_rb,1.8085e+01_rb,1.2193e+01_rb,6.3263e+00_rb,5.1418e-02_rb/)\n      kbo(:, 4,16, 3) = (/ &\n     &2.4541e+01_rb,1.8499e+01_rb,1.2468e+01_rb,6.4708e+00_rb,5.4587e-02_rb/)\n      kbo(:, 5,16, 3) = (/ &\n     &2.5247e+01_rb,1.9026e+01_rb,1.2815e+01_rb,6.6457e+00_rb,5.7578e-02_rb/)\n      kbo(:, 1,17, 3) = (/ &\n     &1.5411e+01_rb,1.1654e+01_rb,7.9029e+00_rb,4.1290e+00_rb,3.8761e-02_rb/)\n      kbo(:, 2,17, 3) = (/ &\n     &1.5483e+01_rb,1.1712e+01_rb,7.9484e+00_rb,4.1656e+00_rb,4.1564e-02_rb/)\n      kbo(:, 3,17, 3) = (/ &\n     &1.5715e+01_rb,1.1885e+01_rb,8.0713e+00_rb,4.2451e+00_rb,4.4369e-02_rb/)\n      kbo(:, 4,17, 3) = (/ &\n     &1.6109e+01_rb,1.2177e+01_rb,8.2663e+00_rb,4.3534e+00_rb,4.7100e-02_rb/)\n      kbo(:, 5,17, 3) = (/ &\n     &1.6611e+01_rb,1.2551e+01_rb,8.5125e+00_rb,4.4825e+00_rb,4.9594e-02_rb/)\n      kbo(:, 1,18, 3) = (/ &\n     &1.0325e+01_rb,7.8390e+00_rb,5.3612e+00_rb,2.8294e+00_rb,3.3186e-02_rb/)\n      kbo(:, 2,18, 3) = (/ &\n     &1.0398e+01_rb,7.8984e+00_rb,5.4111e+00_rb,2.8675e+00_rb,3.5625e-02_rb/)\n      kbo(:, 3,18, 3) = (/ &\n     &1.0571e+01_rb,8.0297e+00_rb,5.5102e+00_rb,2.9332e+00_rb,3.8042e-02_rb/)\n      kbo(:, 4,18, 3) = (/ &\n     &1.0854e+01_rb,8.2395e+00_rb,5.6528e+00_rb,3.0140e+00_rb,4.0327e-02_rb/)\n      kbo(:, 5,18, 3) = (/ &\n     &1.1221e+01_rb,8.5111e+00_rb,5.8333e+00_rb,3.1124e+00_rb,4.2414e-02_rb/)\n      kbo(:, 1,19, 3) = (/ &\n     &6.8208e+00_rb,5.2153e+00_rb,3.5957e+00_rb,1.9227e+00_rb,2.8261e-02_rb/)\n      kbo(:, 2,19, 3) = (/ &\n     &6.8751e+00_rb,5.2621e+00_rb,3.6379e+00_rb,1.9560e+00_rb,3.0383e-02_rb/)\n      kbo(:, 3,19, 3) = (/ &\n     &7.0006e+00_rb,5.3588e+00_rb,3.7145e+00_rb,2.0054e+00_rb,3.2394e-02_rb/)\n      kbo(:, 4,19, 3) = (/ &\n     &7.2016e+00_rb,5.5069e+00_rb,3.8180e+00_rb,2.0649e+00_rb,3.4293e-02_rb/)\n      kbo(:, 5,19, 3) = (/ &\n     &7.4662e+00_rb,5.7018e+00_rb,3.9518e+00_rb,2.1403e+00_rb,3.6047e-02_rb/)\n      kbo(:, 1,20, 3) = (/ &\n     &4.8794e+00_rb,3.7616e+00_rb,2.6099e+00_rb,1.4082e+00_rb,2.4010e-02_rb/)\n      kbo(:, 2,20, 3) = (/ &\n     &4.9222e+00_rb,3.8008e+00_rb,2.6471e+00_rb,1.4364e+00_rb,2.5795e-02_rb/)\n      kbo(:, 3,20, 3) = (/ &\n     &5.0241e+00_rb,3.8811e+00_rb,2.7106e+00_rb,1.4758e+00_rb,2.7487e-02_rb/)\n      kbo(:, 4,20, 3) = (/ &\n     &5.1822e+00_rb,3.9983e+00_rb,2.7942e+00_rb,1.5252e+00_rb,2.9078e-02_rb/)\n      kbo(:, 5,20, 3) = (/ &\n     &5.3938e+00_rb,4.1543e+00_rb,2.9036e+00_rb,1.5872e+00_rb,3.0457e-02_rb/)\n      kbo(:, 1,21, 3) = (/ &\n     &3.5976e+00_rb,2.7957e+00_rb,1.9525e+00_rb,1.0602e+00_rb,2.0310e-02_rb/)\n      kbo(:, 2,21, 3) = (/ &\n     &3.6356e+00_rb,2.8321e+00_rb,1.9867e+00_rb,1.0846e+00_rb,2.1803e-02_rb/)\n      kbo(:, 3,21, 3) = (/ &\n     &3.7222e+00_rb,2.9011e+00_rb,2.0401e+00_rb,1.1175e+00_rb,2.3227e-02_rb/)\n      kbo(:, 4,21, 3) = (/ &\n     &3.8497e+00_rb,2.9972e+00_rb,2.1098e+00_rb,1.1593e+00_rb,2.4505e-02_rb/)\n      kbo(:, 5,21, 3) = (/ &\n     &4.0214e+00_rb,3.1255e+00_rb,2.2004e+00_rb,1.2111e+00_rb,2.5550e-02_rb/)\n      kbo(:, 1,22, 3) = (/ &\n     &2.7203e+00_rb,2.1314e+00_rb,1.4964e+00_rb,8.1782e-01_rb,1.7205e-02_rb/)\n      kbo(:, 2,22, 3) = (/ &\n     &2.7584e+00_rb,2.1682e+00_rb,1.5287e+00_rb,8.3963e-01_rb,1.8458e-02_rb/)\n      kbo(:, 3,22, 3) = (/ &\n     &2.8354e+00_rb,2.2296e+00_rb,1.5749e+00_rb,8.6850e-01_rb,1.9598e-02_rb/)\n      kbo(:, 4,22, 3) = (/ &\n     &2.9415e+00_rb,2.3111e+00_rb,1.6346e+00_rb,9.0426e-01_rb,2.0559e-02_rb/)\n      kbo(:, 5,22, 3) = (/ &\n     &3.0867e+00_rb,2.4212e+00_rb,1.7134e+00_rb,9.4960e-01_rb,2.1311e-02_rb/)\n      kbo(:, 1,23, 3) = (/ &\n     &2.0695e+00_rb,1.6369e+00_rb,1.1532e+00_rb,6.3485e-01_rb,1.4544e-02_rb/)\n      kbo(:, 2,23, 3) = (/ &\n     &2.1080e+00_rb,1.6730e+00_rb,1.1833e+00_rb,6.5423e-01_rb,1.5557e-02_rb/)\n      kbo(:, 3,23, 3) = (/ &\n     &2.1745e+00_rb,1.7262e+00_rb,1.2233e+00_rb,6.7947e-01_rb,1.6419e-02_rb/)\n      kbo(:, 4,23, 3) = (/ &\n     &2.2647e+00_rb,1.7970e+00_rb,1.2752e+00_rb,7.1089e-01_rb,1.7120e-02_rb/)\n      kbo(:, 5,23, 3) = (/ &\n     &2.3823e+00_rb,1.8879e+00_rb,1.3412e+00_rb,7.4903e-01_rb,1.7674e-02_rb/)\n      kbo(:, 1,24, 3) = (/ &\n     &1.5697e+00_rb,1.2531e+00_rb,8.8637e-01_rb,4.9139e-01_rb,1.2257e-02_rb/)\n      kbo(:, 2,24, 3) = (/ &\n     &1.6055e+00_rb,1.2864e+00_rb,9.1332e-01_rb,5.0866e-01_rb,1.3031e-02_rb/)\n      kbo(:, 3,24, 3) = (/ &\n     &1.6631e+00_rb,1.3329e+00_rb,9.4834e-01_rb,5.3086e-01_rb,1.3670e-02_rb/)\n      kbo(:, 4,24, 3) = (/ &\n     &1.7374e+00_rb,1.3923e+00_rb,9.9245e-01_rb,5.5764e-01_rb,1.4194e-02_rb/)\n      kbo(:, 5,24, 3) = (/ &\n     &1.8327e+00_rb,1.4671e+00_rb,1.0467e+00_rb,5.8890e-01_rb,1.4611e-02_rb/)\n      kbo(:, 1,25, 3) = (/ &\n     &1.2086e+00_rb,9.7309e-01_rb,6.9155e-01_rb,3.8568e-01_rb,1.0281e-02_rb/)\n      kbo(:, 2,25, 3) = (/ &\n     &1.2420e+00_rb,1.0035e+00_rb,7.1528e-01_rb,4.0109e-01_rb,1.0857e-02_rb/)\n      kbo(:, 3,25, 3) = (/ &\n     &1.2906e+00_rb,1.0433e+00_rb,7.4566e-01_rb,4.2042e-01_rb,1.1339e-02_rb/)\n      kbo(:, 4,25, 3) = (/ &\n     &1.3533e+00_rb,1.0941e+00_rb,7.8339e-01_rb,4.4308e-01_rb,1.1737e-02_rb/)\n      kbo(:, 5,25, 3) = (/ &\n     &1.4315e+00_rb,1.1563e+00_rb,8.2868e-01_rb,4.6855e-01_rb,1.2054e-02_rb/)\n      kbo(:, 1,26, 3) = (/ &\n     &9.4867e-01_rb,7.6987e-01_rb,5.4929e-01_rb,3.0788e-01_rb,8.5827e-03_rb/)\n      kbo(:, 2,26, 3) = (/ &\n     &9.7957e-01_rb,7.9721e-01_rb,5.7050e-01_rb,3.2189e-01_rb,9.0225e-03_rb/)\n      kbo(:, 3,26, 3) = (/ &\n     &1.0209e+00_rb,8.3198e-01_rb,5.9699e-01_rb,3.3862e-01_rb,9.3908e-03_rb/)\n      kbo(:, 4,26, 3) = (/ &\n     &1.0742e+00_rb,8.7561e-01_rb,6.2951e-01_rb,3.5776e-01_rb,9.6952e-03_rb/)\n      kbo(:, 5,26, 3) = (/ &\n     &1.1410e+00_rb,9.2907e-01_rb,6.6837e-01_rb,3.7907e-01_rb,9.9345e-03_rb/)\n      kbo(:, 1,27, 3) = (/ &\n     &7.7558e-01_rb,6.3324e-01_rb,4.5279e-01_rb,2.5468e-01_rb,7.1414e-03_rb/)\n      kbo(:, 2,27, 3) = (/ &\n     &8.0374e-01_rb,6.5793e-01_rb,4.7219e-01_rb,2.6746e-01_rb,7.4832e-03_rb/)\n      kbo(:, 3,27, 3) = (/ &\n     &8.4002e-01_rb,6.8874e-01_rb,4.9567e-01_rb,2.8203e-01_rb,7.7674e-03_rb/)\n      kbo(:, 4,27, 3) = (/ &\n     &8.8798e-01_rb,7.2827e-01_rb,5.2483e-01_rb,2.9866e-01_rb,7.9993e-03_rb/)\n      kbo(:, 5,27, 3) = (/ &\n     &9.4670e-01_rb,7.7585e-01_rb,5.5890e-01_rb,3.1722e-01_rb,8.1810e-03_rb/)\n      kbo(:, 1,28, 3) = (/ &\n     &6.5247e-01_rb,5.3505e-01_rb,3.8309e-01_rb,2.1606e-01_rb,5.9313e-03_rb/)\n      kbo(:, 2,28, 3) = (/ &\n     &6.7805e-01_rb,5.5765e-01_rb,4.0088e-01_rb,2.2763e-01_rb,6.1964e-03_rb/)\n      kbo(:, 3,28, 3) = (/ &\n     &7.1138e-01_rb,5.8602e-01_rb,4.2234e-01_rb,2.4051e-01_rb,6.4170e-03_rb/)\n      kbo(:, 4,28, 3) = (/ &\n     &7.5565e-01_rb,6.2271e-01_rb,4.4913e-01_rb,2.5531e-01_rb,6.5956e-03_rb/)\n      kbo(:, 5,28, 3) = (/ &\n     &8.0810e-01_rb,6.6536e-01_rb,4.7931e-01_rb,2.7186e-01_rb,6.7356e-03_rb/)\n      kbo(:, 1,29, 3) = (/ &\n     &5.8359e-01_rb,4.7922e-01_rb,3.4299e-01_rb,1.9330e-01_rb,4.9222e-03_rb/)\n      kbo(:, 2,29, 3) = (/ &\n     &6.0836e-01_rb,5.0105e-01_rb,3.5992e-01_rb,2.0402e-01_rb,5.1279e-03_rb/)\n      kbo(:, 3,29, 3) = (/ &\n     &6.4169e-01_rb,5.2929e-01_rb,3.8096e-01_rb,2.1613e-01_rb,5.2989e-03_rb/)\n      kbo(:, 4,29, 3) = (/ &\n     &6.8418e-01_rb,5.6479e-01_rb,4.0659e-01_rb,2.3010e-01_rb,5.4376e-03_rb/)\n      kbo(:, 5,29, 3) = (/ &\n     &7.3388e-01_rb,6.0487e-01_rb,4.3487e-01_rb,2.4554e-01_rb,5.5459e-03_rb/)\n      kbo(:, 1,30, 3) = (/ &\n     &5.3559e-01_rb,4.3987e-01_rb,3.1446e-01_rb,1.7681e-01_rb,4.0812e-03_rb/)\n      kbo(:, 2,30, 3) = (/ &\n     &5.6092e-01_rb,4.6195e-01_rb,3.3123e-01_rb,1.8699e-01_rb,4.2410e-03_rb/)\n      kbo(:, 3,30, 3) = (/ &\n     &5.9467e-01_rb,4.9061e-01_rb,3.5234e-01_rb,1.9880e-01_rb,4.3756e-03_rb/)\n      kbo(:, 4,30, 3) = (/ &\n     &6.3620e-01_rb,5.2529e-01_rb,3.7692e-01_rb,2.1218e-01_rb,4.4820e-03_rb/)\n      kbo(:, 5,30, 3) = (/ &\n     &6.8416e-01_rb,5.6390e-01_rb,4.0420e-01_rb,2.2692e-01_rb,4.5637e-03_rb/)\n      kbo(:, 1,31, 3) = (/ &\n     &5.1816e-01_rb,4.2464e-01_rb,3.0261e-01_rb,1.6922e-01_rb,3.3825e-03_rb/)\n      kbo(:, 2,31, 3) = (/ &\n     &5.4536e-01_rb,4.4814e-01_rb,3.2013e-01_rb,1.7945e-01_rb,3.5084e-03_rb/)\n      kbo(:, 3,31, 3) = (/ &\n     &5.8079e-01_rb,4.7822e-01_rb,3.4203e-01_rb,1.9145e-01_rb,3.6133e-03_rb/)\n      kbo(:, 4,31, 3) = (/ &\n     &6.2360e-01_rb,5.1355e-01_rb,3.6685e-01_rb,2.0495e-01_rb,3.6964e-03_rb/)\n      kbo(:, 5,31, 3) = (/ &\n     &6.7136e-01_rb,5.5242e-01_rb,3.9433e-01_rb,2.1968e-01_rb,3.7632e-03_rb/)\n      kbo(:, 1,32, 3) = (/ &\n     &5.0836e-01_rb,4.1565e-01_rb,2.9513e-01_rb,1.6401e-01_rb,2.8023e-03_rb/)\n      kbo(:, 2,32, 3) = (/ &\n     &5.3755e-01_rb,4.4081e-01_rb,3.1373e-01_rb,1.7458e-01_rb,2.9031e-03_rb/)\n      kbo(:, 3,32, 3) = (/ &\n     &5.7518e-01_rb,4.7260e-01_rb,3.3647e-01_rb,1.8685e-01_rb,2.9841e-03_rb/)\n      kbo(:, 4,32, 3) = (/ &\n     &6.1917e-01_rb,5.0863e-01_rb,3.6188e-01_rb,2.0060e-01_rb,3.0523e-03_rb/)\n      kbo(:, 5,32, 3) = (/ &\n     &6.6737e-01_rb,5.4799e-01_rb,3.8954e-01_rb,2.1543e-01_rb,3.1032e-03_rb/)\n      kbo(:, 1,33, 3) = (/ &\n     &5.0907e-01_rb,4.1513e-01_rb,2.9365e-01_rb,1.6205e-01_rb,2.3233e-03_rb/)\n      kbo(:, 2,33, 3) = (/ &\n     &5.4095e-01_rb,4.4243e-01_rb,3.1363e-01_rb,1.7315e-01_rb,2.4017e-03_rb/)\n      kbo(:, 3,33, 3) = (/ &\n     &5.8099e-01_rb,4.7617e-01_rb,3.3742e-01_rb,1.8595e-01_rb,2.4676e-03_rb/)\n      kbo(:, 4,33, 3) = (/ &\n     &6.2648e-01_rb,5.1328e-01_rb,3.6375e-01_rb,2.0009e-01_rb,2.5196e-03_rb/)\n      kbo(:, 5,33, 3) = (/ &\n     &6.7646e-01_rb,5.5394e-01_rb,3.9218e-01_rb,2.1533e-01_rb,2.5609e-03_rb/)\n      kbo(:, 1,34, 3) = (/ &\n     &4.9704e-01_rb,4.0480e-01_rb,2.8555e-01_rb,1.5673e-01_rb,1.9225e-03_rb/)\n      kbo(:, 2,34, 3) = (/ &\n     &5.3069e-01_rb,4.3364e-01_rb,3.0643e-01_rb,1.6807e-01_rb,1.9847e-03_rb/)\n      kbo(:, 3,34, 3) = (/ &\n     &5.7151e-01_rb,4.6776e-01_rb,3.3046e-01_rb,1.8101e-01_rb,2.0370e-03_rb/)\n      kbo(:, 4,34, 3) = (/ &\n     &6.1711e-01_rb,5.0510e-01_rb,3.5686e-01_rb,1.9508e-01_rb,2.0801e-03_rb/)\n      kbo(:, 5,34, 3) = (/ &\n     &6.6746e-01_rb,5.4585e-01_rb,3.8550e-01_rb,2.1045e-01_rb,2.1144e-03_rb/)\n      kbo(:, 1,35, 3) = (/ &\n     &4.8386e-01_rb,3.9362e-01_rb,2.7689e-01_rb,1.5116e-01_rb,1.5847e-03_rb/)\n      kbo(:, 2,35, 3) = (/ &\n     &5.1832e-01_rb,4.2323e-01_rb,2.9822e-01_rb,1.6263e-01_rb,1.6362e-03_rb/)\n      kbo(:, 3,35, 3) = (/ &\n     &5.5929e-01_rb,4.5721e-01_rb,3.2219e-01_rb,1.7550e-01_rb,1.6795e-03_rb/)\n      kbo(:, 4,35, 3) = (/ &\n     &6.0482e-01_rb,4.9463e-01_rb,3.4852e-01_rb,1.8949e-01_rb,1.7156e-03_rb/)\n      kbo(:, 5,35, 3) = (/ &\n     &6.5512e-01_rb,5.3534e-01_rb,3.7729e-01_rb,2.0487e-01_rb,1.7410e-03_rb/)\n      kbo(:, 1,36, 3) = (/ &\n     &4.6553e-01_rb,3.7836e-01_rb,2.6548e-01_rb,1.4421e-01_rb,1.3024e-03_rb/)\n      kbo(:, 2,36, 3) = (/ &\n     &4.9953e-01_rb,4.0773e-01_rb,2.8657e-01_rb,1.5552e-01_rb,1.3449e-03_rb/)\n      kbo(:, 3,36, 3) = (/ &\n     &5.3980e-01_rb,4.4109e-01_rb,3.1015e-01_rb,1.6814e-01_rb,1.3813e-03_rb/)\n      kbo(:, 4,36, 3) = (/ &\n     &5.8461e-01_rb,4.7793e-01_rb,3.3603e-01_rb,1.8187e-01_rb,1.4105e-03_rb/)\n      kbo(:, 5,36, 3) = (/ &\n     &6.3401e-01_rb,5.1804e-01_rb,3.6447e-01_rb,1.9702e-01_rb,1.4329e-03_rb/)\n      kbo(:, 1,37, 3) = (/ &\n     &4.3247e-01_rb,3.5136e-01_rb,2.4603e-01_rb,1.3313e-01_rb,1.0644e-03_rb/)\n      kbo(:, 2,37, 3) = (/ &\n     &4.6409e-01_rb,3.7893e-01_rb,2.6588e-01_rb,1.4378e-01_rb,1.1011e-03_rb/)\n      kbo(:, 3,37, 3) = (/ &\n     &5.0193e-01_rb,4.1040e-01_rb,2.8814e-01_rb,1.5568e-01_rb,1.1313e-03_rb/)\n      kbo(:, 4,37, 3) = (/ &\n     &5.4423e-01_rb,4.4538e-01_rb,3.1275e-01_rb,1.6870e-01_rb,1.1563e-03_rb/)\n      kbo(:, 5,37, 3) = (/ &\n     &5.9125e-01_rb,4.8359e-01_rb,3.3982e-01_rb,1.8310e-01_rb,1.1762e-03_rb/)\n      kbo(:, 1,38, 3) = (/ &\n     &4.0752e-01_rb,3.3084e-01_rb,2.3116e-01_rb,1.2457e-01_rb,8.6985e-04_rb/)\n      kbo(:, 2,38, 3) = (/ &\n     &4.3734e-01_rb,3.5701e-01_rb,2.5006e-01_rb,1.3472e-01_rb,9.0011e-04_rb/)\n      kbo(:, 3,38, 3) = (/ &\n     &4.7342e-01_rb,3.8717e-01_rb,2.7137e-01_rb,1.4611e-01_rb,9.2699e-04_rb/)\n      kbo(:, 4,38, 3) = (/ &\n     &5.1398e-01_rb,4.2080e-01_rb,2.9507e-01_rb,1.5862e-01_rb,9.4795e-04_rb/)\n      kbo(:, 5,38, 3) = (/ &\n     &5.5926e-01_rb,4.5769e-01_rb,3.2123e-01_rb,1.7252e-01_rb,9.6539e-04_rb/)\n      kbo(:, 1,39, 3) = (/ &\n     &3.9286e-01_rb,3.1853e-01_rb,2.2204e-01_rb,1.1910e-01_rb,7.1027e-04_rb/)\n      kbo(:, 2,39, 3) = (/ &\n     &4.2168e-01_rb,3.4392e-01_rb,2.4040e-01_rb,1.2899e-01_rb,7.3606e-04_rb/)\n      kbo(:, 3,39, 3) = (/ &\n     &4.5685e-01_rb,3.7344e-01_rb,2.6129e-01_rb,1.4014e-01_rb,7.5956e-04_rb/)\n      kbo(:, 4,39, 3) = (/ &\n     &4.9667e-01_rb,4.0652e-01_rb,2.8462e-01_rb,1.5245e-01_rb,7.7770e-04_rb/)\n      kbo(:, 5,39, 3) = (/ &\n     &5.4133e-01_rb,4.4296e-01_rb,3.1045e-01_rb,1.6619e-01_rb,7.9334e-04_rb/)\n      kbo(:, 1,40, 3) = (/ &\n     &3.5355e-01_rb,2.8669e-01_rb,1.9956e-01_rb,1.0673e-01_rb,5.7721e-04_rb/)\n      kbo(:, 2,40, 3) = (/ &\n     &3.7907e-01_rb,3.0944e-01_rb,2.1608e-01_rb,1.1569e-01_rb,5.9933e-04_rb/)\n      kbo(:, 3,40, 3) = (/ &\n     &4.1075e-01_rb,3.3635e-01_rb,2.3514e-01_rb,1.2587e-01_rb,6.1943e-04_rb/)\n      kbo(:, 4,40, 3) = (/ &\n     &4.4707e-01_rb,3.6668e-01_rb,2.5658e-01_rb,1.3717e-01_rb,6.3526e-04_rb/)\n      kbo(:, 5,40, 3) = (/ &\n     &4.8803e-01_rb,4.0025e-01_rb,2.8039e-01_rb,1.4981e-01_rb,6.4905e-04_rb/)\n      kbo(:, 1,41, 3) = (/ &\n     &3.1722e-01_rb,2.5721e-01_rb,1.7878e-01_rb,9.5352e-02_rb,4.6830e-04_rb/)\n      kbo(:, 2,41, 3) = (/ &\n     &3.3984e-01_rb,2.7762e-01_rb,1.9366e-01_rb,1.0349e-01_rb,4.8763e-04_rb/)\n      kbo(:, 3,41, 3) = (/ &\n     &3.6801e-01_rb,3.0195e-01_rb,2.1092e-01_rb,1.1268e-01_rb,5.0461e-04_rb/)\n      kbo(:, 4,41, 3) = (/ &\n     &4.0101e-01_rb,3.2964e-01_rb,2.3053e-01_rb,1.2303e-01_rb,5.1866e-04_rb/)\n      kbo(:, 5,41, 3) = (/ &\n     &4.3854e-01_rb,3.6057e-01_rb,2.5249e-01_rb,1.3467e-01_rb,5.3060e-04_rb/)\n      kbo(:, 1,42, 3) = (/ &\n     &2.8780e-01_rb,2.3320e-01_rb,1.6182e-01_rb,8.6050e-02_rb,3.7987e-04_rb/)\n      kbo(:, 2,42, 3) = (/ &\n     &3.0806e-01_rb,2.5171e-01_rb,1.7535e-01_rb,9.3494e-02_rb,3.9649e-04_rb/)\n      kbo(:, 3,42, 3) = (/ &\n     &3.3326e-01_rb,2.7383e-01_rb,1.9111e-01_rb,1.0188e-01_rb,4.1103e-04_rb/)\n      kbo(:, 4,42, 3) = (/ &\n     &3.6352e-01_rb,2.9931e-01_rb,2.0921e-01_rb,1.1145e-01_rb,4.2329e-04_rb/)\n      kbo(:, 5,42, 3) = (/ &\n     &3.9814e-01_rb,3.2805e-01_rb,2.2962e-01_rb,1.2223e-01_rb,4.3386e-04_rb/)\n      kbo(:, 1,43, 3) = (/ &\n     &2.6265e-01_rb,2.1245e-01_rb,1.4714e-01_rb,7.7969e-02_rb,3.0714e-04_rb/)\n      kbo(:, 2,43, 3) = (/ &\n     &2.8068e-01_rb,2.2918e-01_rb,1.5940e-01_rb,8.4750e-02_rb,3.2151e-04_rb/)\n      kbo(:, 3,43, 3) = (/ &\n     &3.0314e-01_rb,2.4932e-01_rb,1.7384e-01_rb,9.2466e-02_rb,3.3415e-04_rb/)\n      kbo(:, 4,43, 3) = (/ &\n     &3.3080e-01_rb,2.7269e-01_rb,1.9045e-01_rb,1.0127e-01_rb,3.4470e-04_rb/)\n      kbo(:, 5,43, 3) = (/ &\n     &3.6272e-01_rb,2.9942e-01_rb,2.0942e-01_rb,1.1129e-01_rb,3.5407e-04_rb/)\n      kbo(:, 1,44, 3) = (/ &\n     &2.4281e-01_rb,1.9594e-01_rb,1.3540e-01_rb,7.1467e-02_rb,2.4789e-04_rb/)\n      kbo(:, 2,44, 3) = (/ &\n     &2.5884e-01_rb,2.1103e-01_rb,1.4648e-01_rb,7.7626e-02_rb,2.6014e-04_rb/)\n      kbo(:, 3,44, 3) = (/ &\n     &2.7897e-01_rb,2.2939e-01_rb,1.5978e-01_rb,8.4794e-02_rb,2.7117e-04_rb/)\n      kbo(:, 4,44, 3) = (/ &\n     &3.0448e-01_rb,2.5115e-01_rb,1.7522e-01_rb,9.2989e-02_rb,2.8049e-04_rb/)\n      kbo(:, 5,44, 3) = (/ &\n     &3.3408e-01_rb,2.7612e-01_rb,1.9297e-01_rb,1.0236e-01_rb,2.8861e-04_rb/)\n      kbo(:, 1,45, 3) = (/ &\n     &2.2924e-01_rb,1.8447e-01_rb,1.2716e-01_rb,6.6832e-02_rb,2.0004e-04_rb/)\n      kbo(:, 2,45, 3) = (/ &\n     &2.4373e-01_rb,1.9820e-01_rb,1.3728e-01_rb,7.2484e-02_rb,2.1065e-04_rb/)\n      kbo(:, 3,45, 3) = (/ &\n     &2.6228e-01_rb,2.1536e-01_rb,1.4978e-01_rb,7.9297e-02_rb,2.1996e-04_rb/)\n      kbo(:, 4,45, 3) = (/ &\n     &2.8578e-01_rb,2.3573e-01_rb,1.6427e-01_rb,8.6976e-02_rb,2.2795e-04_rb/)\n      kbo(:, 5,45, 3) = (/ &\n     &3.1387e-01_rb,2.5954e-01_rb,1.8123e-01_rb,9.5940e-02_rb,2.3501e-04_rb/)\n      kbo(:, 1,46, 3) = (/ &\n     &2.1864e-01_rb,1.7537e-01_rb,1.2059e-01_rb,6.3114e-02_rb,1.6106e-04_rb/)\n      kbo(:, 2,46, 3) = (/ &\n     &2.3164e-01_rb,1.8773e-01_rb,1.2971e-01_rb,6.8234e-02_rb,1.7008e-04_rb/)\n      kbo(:, 3,46, 3) = (/ &\n     &2.4878e-01_rb,2.0380e-01_rb,1.4148e-01_rb,7.4690e-02_rb,1.7817e-04_rb/)\n      kbo(:, 4,46, 3) = (/ &\n     &2.7041e-01_rb,2.2298e-01_rb,1.5518e-01_rb,8.1986e-02_rb,1.8514e-04_rb/)\n      kbo(:, 5,46, 3) = (/ &\n     &2.9717e-01_rb,2.4573e-01_rb,1.7143e-01_rb,9.0585e-02_rb,1.9112e-04_rb/)\n      kbo(:, 1,47, 3) = (/ &\n     &2.0666e-01_rb,1.6515e-01_rb,1.1329e-01_rb,5.9056e-02_rb,1.2901e-04_rb/)\n      kbo(:, 2,47, 3) = (/ &\n     &2.1779e-01_rb,1.7589e-01_rb,1.2122e-01_rb,6.3515e-02_rb,1.3680e-04_rb/)\n      kbo(:, 3,47, 3) = (/ &\n     &2.3320e-01_rb,1.9053e-01_rb,1.3198e-01_rb,6.9466e-02_rb,1.4384e-04_rb/)\n      kbo(:, 4,47, 3) = (/ &\n     &2.5274e-01_rb,2.0828e-01_rb,1.4478e-01_rb,7.6351e-02_rb,1.4999e-04_rb/)\n      kbo(:, 5,47, 3) = (/ &\n     &2.7761e-01_rb,2.2954e-01_rb,1.5995e-01_rb,8.4385e-02_rb,1.5514e-04_rb/)\n      kbo(:, 1,48, 3) = (/ &\n     &2.0159e-01_rb,1.6032e-01_rb,1.0970e-01_rb,5.6945e-02_rb,1.0330e-04_rb/)\n      kbo(:, 2,48, 3) = (/ &\n     &2.1094e-01_rb,1.6966e-01_rb,1.1661e-01_rb,6.0834e-02_rb,1.0997e-04_rb/)\n      kbo(:, 3,48, 3) = (/ &\n     &2.2505e-01_rb,1.8313e-01_rb,1.2656e-01_rb,6.6365e-02_rb,1.1606e-04_rb/)\n      kbo(:, 4,48, 3) = (/ &\n     &2.4321e-01_rb,1.9993e-01_rb,1.3877e-01_rb,7.3027e-02_rb,1.2143e-04_rb/)\n      kbo(:, 5,48, 3) = (/ &\n     &2.6669e-01_rb,2.2023e-01_rb,1.5323e-01_rb,8.0709e-02_rb,1.2582e-04_rb/)\n      kbo(:, 1,49, 3) = (/ &\n     &2.0550e-01_rb,1.6255e-01_rb,1.1090e-01_rb,5.7322e-02_rb,8.2624e-05_rb/)\n      kbo(:, 2,49, 3) = (/ &\n     &2.1330e-01_rb,1.7068e-01_rb,1.1698e-01_rb,6.0751e-02_rb,8.8378e-05_rb/)\n      kbo(:, 3,49, 3) = (/ &\n     &2.2651e-01_rb,1.8330e-01_rb,1.2630e-01_rb,6.5972e-02_rb,9.3615e-05_rb/)\n      kbo(:, 4,49, 3) = (/ &\n     &2.4409e-01_rb,1.9975e-01_rb,1.3835e-01_rb,7.2591e-02_rb,9.8246e-05_rb/)\n      kbo(:, 5,49, 3) = (/ &\n     &2.6685e-01_rb,2.1980e-01_rb,1.5269e-01_rb,8.0258e-02_rb,1.0201e-04_rb/)\n      kbo(:, 1,50, 3) = (/ &\n     &2.0001e-01_rb,1.5763e-01_rb,1.0735e-01_rb,5.5313e-02_rb,6.6052e-05_rb/)\n      kbo(:, 2,50, 3) = (/ &\n     &2.0622e-01_rb,1.6433e-01_rb,1.1239e-01_rb,5.8166e-02_rb,7.0964e-05_rb/)\n      kbo(:, 3,50, 3) = (/ &\n     &2.1782e-01_rb,1.7560e-01_rb,1.2070e-01_rb,6.2821e-02_rb,7.5460e-05_rb/)\n      kbo(:, 4,50, 3) = (/ &\n     &2.3393e-01_rb,1.9090e-01_rb,1.3196e-01_rb,6.9056e-02_rb,7.9402e-05_rb/)\n      kbo(:, 5,50, 3) = (/ &\n     &2.5520e-01_rb,2.0998e-01_rb,1.4571e-01_rb,7.6464e-02_rb,8.2692e-05_rb/)\n      kbo(:, 1,51, 3) = (/ &\n     &1.9065e-01_rb,1.4985e-01_rb,1.0188e-01_rb,5.2372e-02_rb,5.2796e-05_rb/)\n      kbo(:, 2,51, 3) = (/ &\n     &1.9564e-01_rb,1.5535e-01_rb,1.0604e-01_rb,5.4717e-02_rb,5.6909e-05_rb/)\n      kbo(:, 3,51, 3) = (/ &\n     &2.0531e-01_rb,1.6500e-01_rb,1.1319e-01_rb,5.8726e-02_rb,6.0736e-05_rb/)\n      kbo(:, 4,51, 3) = (/ &\n     &2.1974e-01_rb,1.7886e-01_rb,1.2342e-01_rb,6.4424e-02_rb,6.4172e-05_rb/)\n      kbo(:, 5,51, 3) = (/ &\n     &2.3909e-01_rb,1.9652e-01_rb,1.3622e-01_rb,7.1393e-02_rb,6.6971e-05_rb/)\n      kbo(:, 1,52, 3) = (/ &\n     &1.8687e-01_rb,1.4652e-01_rb,9.9463e-02_rb,5.1012e-02_rb,4.2174e-05_rb/)\n      kbo(:, 2,52, 3) = (/ &\n     &1.9141e-01_rb,1.5137e-01_rb,1.0312e-01_rb,5.3053e-02_rb,4.5594e-05_rb/)\n      kbo(:, 3,52, 3) = (/ &\n     &1.9940e-01_rb,1.5962e-01_rb,1.0927e-01_rb,5.6516e-02_rb,4.8848e-05_rb/)\n      kbo(:, 4,52, 3) = (/ &\n     &2.1252e-01_rb,1.7228e-01_rb,1.1865e-01_rb,6.1768e-02_rb,5.1771e-05_rb/)\n      kbo(:, 5,52, 3) = (/ &\n     &2.3051e-01_rb,1.8896e-01_rb,1.3079e-01_rb,6.8431e-02_rb,5.4234e-05_rb/)\n      kbo(:, 1,53, 3) = (/ &\n     &1.9049e-01_rb,1.4907e-01_rb,1.0107e-01_rb,5.1727e-02_rb,3.3675e-05_rb/)\n      kbo(:, 2,53, 3) = (/ &\n     &1.9537e-01_rb,1.5387e-01_rb,1.0462e-01_rb,5.3675e-02_rb,3.6498e-05_rb/)\n      kbo(:, 3,53, 3) = (/ &\n     &2.0221e-01_rb,1.6109e-01_rb,1.1002e-01_rb,5.6715e-02_rb,3.9286e-05_rb/)\n      kbo(:, 4,53, 3) = (/ &\n     &2.1438e-01_rb,1.7292e-01_rb,1.1878e-01_rb,6.1645e-02_rb,4.1745e-05_rb/)\n      kbo(:, 5,53, 3) = (/ &\n     &2.3164e-01_rb,1.8913e-01_rb,1.3065e-01_rb,6.8198e-02_rb,4.3903e-05_rb/)\n      kbo(:, 1,54, 3) = (/ &\n     &1.6750e-01_rb,1.3117e-01_rb,8.8914e-02_rb,4.5482e-02_rb,2.6834e-05_rb/)\n      kbo(:, 2,54, 3) = (/ &\n     &1.7260e-01_rb,1.3577e-01_rb,9.2225e-02_rb,4.7257e-02_rb,2.9152e-05_rb/)\n      kbo(:, 3,54, 3) = (/ &\n     &1.7790e-01_rb,1.4144e-01_rb,9.6473e-02_rb,4.9632e-02_rb,3.1487e-05_rb/)\n      kbo(:, 4,54, 3) = (/ &\n     &1.8750e-01_rb,1.5107e-01_rb,1.0362e-01_rb,5.3663e-02_rb,3.3610e-05_rb/)\n      kbo(:, 5,54, 3) = (/ &\n     &2.0185e-01_rb,1.6484e-01_rb,1.1376e-01_rb,5.9292e-02_rb,3.5416e-05_rb/)\n      kbo(:, 1,55, 3) = (/ &\n     &1.3399e-01_rb,1.0522e-01_rb,7.1343e-02_rb,3.6503e-02_rb,2.1364e-05_rb/)\n      kbo(:, 2,55, 3) = (/ &\n     &1.3914e-01_rb,1.0951e-01_rb,7.4357e-02_rb,3.8080e-02_rb,2.3275e-05_rb/)\n      kbo(:, 3,55, 3) = (/ &\n     &1.4309e-01_rb,1.1374e-01_rb,7.7519e-02_rb,3.9837e-02_rb,2.5155e-05_rb/)\n      kbo(:, 4,55, 3) = (/ &\n     &1.4990e-01_rb,1.2087e-01_rb,8.2841e-02_rb,4.2848e-02_rb,2.6955e-05_rb/)\n      kbo(:, 5,55, 3) = (/ &\n     &1.6076e-01_rb,1.3155e-01_rb,9.0755e-02_rb,4.7259e-02_rb,2.8512e-05_rb/)\n      kbo(:, 1,56, 3) = (/ &\n     &1.0674e-01_rb,8.4150e-02_rb,5.7088e-02_rb,2.9230e-02_rb,1.7018e-05_rb/)\n      kbo(:, 2,56, 3) = (/ &\n     &1.1202e-01_rb,8.8284e-02_rb,5.9924e-02_rb,3.0675e-02_rb,1.8552e-05_rb/)\n      kbo(:, 3,56, 3) = (/ &\n     &1.1522e-01_rb,9.1603e-02_rb,6.2380e-02_rb,3.2028e-02_rb,2.0079e-05_rb/)\n      kbo(:, 4,56, 3) = (/ &\n     &1.2002e-01_rb,9.6801e-02_rb,6.6273e-02_rb,3.4240e-02_rb,2.1582e-05_rb/)\n      kbo(:, 5,56, 3) = (/ &\n     &1.2813e-01_rb,1.0499e-01_rb,7.2382e-02_rb,3.7660e-02_rb,2.2972e-05_rb/)\n      kbo(:, 1,57, 3) = (/ &\n     &8.4657e-02_rb,6.6996e-02_rb,4.5488e-02_rb,2.3320e-02_rb,1.3524e-05_rb/)\n      kbo(:, 2,57, 3) = (/ &\n     &8.9961e-02_rb,7.1035e-02_rb,4.8219e-02_rb,2.4686e-02_rb,1.4787e-05_rb/)\n      kbo(:, 3,57, 3) = (/ &\n     &9.2828e-02_rb,7.3808e-02_rb,5.0230e-02_rb,2.5772e-02_rb,1.6030e-05_rb/)\n      kbo(:, 4,57, 3) = (/ &\n     &9.6271e-02_rb,7.7620e-02_rb,5.3068e-02_rb,2.7385e-02_rb,1.7279e-05_rb/)\n      kbo(:, 5,57, 3) = (/ &\n     &1.0221e-01_rb,8.3835e-02_rb,5.7725e-02_rb,3.0004e-02_rb,1.8442e-05_rb/)\n      kbo(:, 1,58, 3) = (/ &\n     &1.7656e-02_rb,1.7150e-02_rb,1.4988e-02_rb,1.0779e-02_rb,1.0747e-05_rb/)\n      kbo(:, 2,58, 3) = (/ &\n     &1.9015e-02_rb,1.8411e-02_rb,1.6077e-02_rb,1.1536e-02_rb,1.1805e-05_rb/)\n      kbo(:, 3,58, 3) = (/ &\n     &1.9736e-02_rb,1.9199e-02_rb,1.6794e-02_rb,1.2067e-02_rb,1.2808e-05_rb/)\n      kbo(:, 4,58, 3) = (/ &\n     &2.0419e-02_rb,2.0127e-02_rb,1.7678e-02_rb,1.2766e-02_rb,1.3807e-05_rb/)\n      kbo(:, 5,58, 3) = (/ &\n     &2.1547e-02_rb,2.1640e-02_rb,1.9143e-02_rb,1.3925e-02_rb,1.4766e-05_rb/)\n      kbo(:, 1,59, 3) = (/ &\n     &1.6768e-02_rb,1.5635e-02_rb,1.2738e-02_rb,8.1686e-03_rb,8.6706e-06_rb/)\n      kbo(:, 2,59, 3) = (/ &\n     &1.8151e-02_rb,1.6868e-02_rb,1.3724e-02_rb,8.7749e-03_rb,9.5360e-06_rb/)\n      kbo(:, 3,59, 3) = (/ &\n     &1.8900e-02_rb,1.7641e-02_rb,1.4372e-02_rb,9.2015e-03_rb,1.0356e-05_rb/)\n      kbo(:, 4,59, 3) = (/ &\n     &1.9564e-02_rb,1.8529e-02_rb,1.5159e-02_rb,9.7488e-03_rb,1.1149e-05_rb/)\n      kbo(:, 5,59, 3) = (/ &\n     &2.0620e-02_rb,1.9962e-02_rb,1.6458e-02_rb,1.0647e-02_rb,1.1905e-05_rb/)\n      kbo(:, 1,13, 4) = (/ &\n     &2.1586e+02_rb,1.6199e+02_rb,1.0811e+02_rb,5.4245e+01_rb,1.2105e-01_rb/)\n      kbo(:, 2,13, 4) = (/ &\n     &2.1869e+02_rb,1.6410e+02_rb,1.0952e+02_rb,5.4940e+01_rb,1.2618e-01_rb/)\n      kbo(:, 3,13, 4) = (/ &\n     &2.2370e+02_rb,1.6786e+02_rb,1.1202e+02_rb,5.6190e+01_rb,1.3118e-01_rb/)\n      kbo(:, 4,13, 4) = (/ &\n     &2.3070e+02_rb,1.7312e+02_rb,1.1553e+02_rb,5.7947e+01_rb,1.3630e-01_rb/)\n      kbo(:, 5,13, 4) = (/ &\n     &2.4034e+02_rb,1.8034e+02_rb,1.2035e+02_rb,6.0352e+01_rb,1.4080e-01_rb/)\n      kbo(:, 1,14, 4) = (/ &\n     &1.1263e+02_rb,8.4567e+01_rb,5.6502e+01_rb,2.8444e+01_rb,1.0638e-01_rb/)\n      kbo(:, 2,14, 4) = (/ &\n     &1.1465e+02_rb,8.6072e+01_rb,5.7500e+01_rb,2.8941e+01_rb,1.1108e-01_rb/)\n      kbo(:, 3,14, 4) = (/ &\n     &1.1796e+02_rb,8.8560e+01_rb,5.9161e+01_rb,2.9768e+01_rb,1.1550e-01_rb/)\n      kbo(:, 4,14, 4) = (/ &\n     &1.2248e+02_rb,9.1950e+01_rb,6.1421e+01_rb,3.0896e+01_rb,1.2021e-01_rb/)\n      kbo(:, 5,14, 4) = (/ &\n     &1.2816e+02_rb,9.6211e+01_rb,6.4260e+01_rb,3.2312e+01_rb,1.2485e-01_rb/)\n      kbo(:, 1,15, 4) = (/ &\n     &5.9854e+01_rb,4.4984e+01_rb,3.0119e+01_rb,1.5274e+01_rb,9.2887e-02_rb/)\n      kbo(:, 2,15, 4) = (/ &\n     &6.1271e+01_rb,4.6045e+01_rb,3.0823e+01_rb,1.5619e+01_rb,9.7129e-02_rb/)\n      kbo(:, 3,15, 4) = (/ &\n     &6.3412e+01_rb,4.7652e+01_rb,3.1894e+01_rb,1.6144e+01_rb,1.0153e-01_rb/)\n      kbo(:, 4,15, 4) = (/ &\n     &6.6234e+01_rb,4.9767e+01_rb,3.3302e+01_rb,1.6842e+01_rb,1.0585e-01_rb/)\n      kbo(:, 5,15, 4) = (/ &\n     &6.9392e+01_rb,5.2133e+01_rb,3.4876e+01_rb,1.7625e+01_rb,1.1025e-01_rb/)\n      kbo(:, 1,16, 4) = (/ &\n     &3.7898e+01_rb,2.8521e+01_rb,1.9151e+01_rb,9.8246e+00_rb,8.0720e-02_rb/)\n      kbo(:, 2,16, 4) = (/ &\n     &3.9024e+01_rb,2.9361e+01_rb,1.9706e+01_rb,1.0088e+01_rb,8.4821e-02_rb/)\n      kbo(:, 3,16, 4) = (/ &\n     &4.0630e+01_rb,3.0565e+01_rb,2.0505e+01_rb,1.0472e+01_rb,8.9056e-02_rb/)\n      kbo(:, 4,16, 4) = (/ &\n     &4.2559e+01_rb,3.2011e+01_rb,2.1467e+01_rb,1.0943e+01_rb,9.3186e-02_rb/)\n      kbo(:, 5,16, 4) = (/ &\n     &4.4564e+01_rb,3.3513e+01_rb,2.2465e+01_rb,1.1432e+01_rb,9.7171e-02_rb/)\n      kbo(:, 1,17, 4) = (/ &\n     &2.4925e+01_rb,1.8792e+01_rb,1.2674e+01_rb,6.6287e+00_rb,6.9974e-02_rb/)\n      kbo(:, 2,17, 4) = (/ &\n     &2.5814e+01_rb,1.9454e+01_rb,1.3108e+01_rb,6.8325e+00_rb,7.3907e-02_rb/)\n      kbo(:, 3,17, 4) = (/ &\n     &2.6980e+01_rb,2.0330e+01_rb,1.3687e+01_rb,7.1100e+00_rb,7.7821e-02_rb/)\n      kbo(:, 4,17, 4) = (/ &\n     &2.8287e+01_rb,2.1307e+01_rb,1.4334e+01_rb,7.4176e+00_rb,8.1565e-02_rb/)\n      kbo(:, 5,17, 4) = (/ &\n     &2.9635e+01_rb,2.2318e+01_rb,1.5005e+01_rb,7.7402e+00_rb,8.5222e-02_rb/)\n      kbo(:, 1,18, 4) = (/ &\n     &1.6833e+01_rb,1.2726e+01_rb,8.6533e+00_rb,4.6132e+00_rb,6.0568e-02_rb/)\n      kbo(:, 2,18, 4) = (/ &\n     &1.7515e+01_rb,1.3234e+01_rb,8.9835e+00_rb,4.7781e+00_rb,6.4137e-02_rb/)\n      kbo(:, 3,18, 4) = (/ &\n     &1.8359e+01_rb,1.3866e+01_rb,9.3947e+00_rb,4.9795e+00_rb,6.7564e-02_rb/)\n      kbo(:, 4,18, 4) = (/ &\n     &1.9269e+01_rb,1.4545e+01_rb,9.8365e+00_rb,5.1909e+00_rb,7.0941e-02_rb/)\n      kbo(:, 5,18, 4) = (/ &\n     &2.0186e+01_rb,1.5233e+01_rb,1.0291e+01_rb,5.4115e+00_rb,7.4160e-02_rb/)\n      kbo(:, 1,19, 4) = (/ &\n     &1.1200e+01_rb,8.5062e+00_rb,5.8670e+00_rb,3.1832e+00_rb,5.2174e-02_rb/)\n      kbo(:, 2,19, 4) = (/ &\n     &1.1703e+01_rb,8.8805e+00_rb,6.1092e+00_rb,3.3121e+00_rb,5.5280e-02_rb/)\n      kbo(:, 3,19, 4) = (/ &\n     &1.2289e+01_rb,9.3153e+00_rb,6.3897e+00_rb,3.4520e+00_rb,5.8298e-02_rb/)\n      kbo(:, 4,19, 4) = (/ &\n     &1.2879e+01_rb,9.7549e+00_rb,6.6727e+00_rb,3.5951e+00_rb,6.1230e-02_rb/)\n      kbo(:, 5,19, 4) = (/ &\n     &1.3509e+01_rb,1.0228e+01_rb,6.9797e+00_rb,3.7461e+00_rb,6.3987e-02_rb/)\n      kbo(:, 1,20, 4) = (/ &\n     &8.1017e+00_rb,6.1940e+00_rb,4.3223e+00_rb,2.3773e+00_rb,4.4725e-02_rb/)\n      kbo(:, 2,20, 4) = (/ &\n     &8.4816e+00_rb,6.4735e+00_rb,4.5091e+00_rb,2.4775e+00_rb,4.7408e-02_rb/)\n      kbo(:, 3,20, 4) = (/ &\n     &8.8970e+00_rb,6.7793e+00_rb,4.7079e+00_rb,2.5791e+00_rb,5.0027e-02_rb/)\n      kbo(:, 4,20, 4) = (/ &\n     &9.3252e+00_rb,7.0958e+00_rb,4.9137e+00_rb,2.6856e+00_rb,5.2539e-02_rb/)\n      kbo(:, 5,20, 4) = (/ &\n     &9.8057e+00_rb,7.4546e+00_rb,5.1456e+00_rb,2.8027e+00_rb,5.4910e-02_rb/)\n      kbo(:, 1,21, 4) = (/ &\n     &6.0501e+00_rb,4.6688e+00_rb,3.2884e+00_rb,1.8254e+00_rb,3.8136e-02_rb/)\n      kbo(:, 2,21, 4) = (/ &\n     &6.3357e+00_rb,4.8779e+00_rb,3.4312e+00_rb,1.9011e+00_rb,4.0441e-02_rb/)\n      kbo(:, 3,21, 4) = (/ &\n     &6.6449e+00_rb,5.1029e+00_rb,3.5792e+00_rb,1.9785e+00_rb,4.2660e-02_rb/)\n      kbo(:, 4,21, 4) = (/ &\n     &6.9762e+00_rb,5.3455e+00_rb,3.7404e+00_rb,2.0617e+00_rb,4.4823e-02_rb/)\n      kbo(:, 5,21, 4) = (/ &\n     &7.3528e+00_rb,5.6235e+00_rb,3.9228e+00_rb,2.1569e+00_rb,4.6872e-02_rb/)\n      kbo(:, 1,22, 4) = (/ &\n     &4.6404e+00_rb,3.6182e+00_rb,2.5692e+00_rb,1.4322e+00_rb,3.2495e-02_rb/)\n      kbo(:, 2,22, 4) = (/ &\n     &4.8647e+00_rb,3.7820e+00_rb,2.6806e+00_rb,1.4906e+00_rb,3.4441e-02_rb/)\n      kbo(:, 3,22, 4) = (/ &\n     &5.1076e+00_rb,3.9577e+00_rb,2.7989e+00_rb,1.5529e+00_rb,3.6349e-02_rb/)\n      kbo(:, 4,22, 4) = (/ &\n     &5.3767e+00_rb,4.1547e+00_rb,2.9316e+00_rb,1.6226e+00_rb,3.8200e-02_rb/)\n      kbo(:, 5,22, 4) = (/ &\n     &5.6763e+00_rb,4.3747e+00_rb,3.0789e+00_rb,1.7012e+00_rb,3.9814e-02_rb/)\n      kbo(:, 1,23, 4) = (/ &\n     &3.5795e+00_rb,2.8211e+00_rb,2.0153e+00_rb,1.1263e+00_rb,2.7571e-02_rb/)\n      kbo(:, 2,23, 4) = (/ &\n     &3.7577e+00_rb,2.9513e+00_rb,2.1035e+00_rb,1.1732e+00_rb,2.9222e-02_rb/)\n      kbo(:, 3,23, 4) = (/ &\n     &3.9530e+00_rb,3.0936e+00_rb,2.2016e+00_rb,1.2254e+00_rb,3.0874e-02_rb/)\n      kbo(:, 4,23, 4) = (/ &\n     &4.1701e+00_rb,3.2524e+00_rb,2.3097e+00_rb,1.2838e+00_rb,3.2339e-02_rb/)\n      kbo(:, 5,23, 4) = (/ &\n     &4.4121e+00_rb,3.4311e+00_rb,2.4318e+00_rb,1.3490e+00_rb,3.3498e-02_rb/)\n      kbo(:, 1,24, 4) = (/ &\n     &2.7499e+00_rb,2.1929e+00_rb,1.5716e+00_rb,8.8208e-01_rb,2.3328e-02_rb/)\n      kbo(:, 2,24, 4) = (/ &\n     &2.8912e+00_rb,2.2961e+00_rb,1.6422e+00_rb,9.2052e-01_rb,2.4747e-02_rb/)\n      kbo(:, 3,24, 4) = (/ &\n     &3.0489e+00_rb,2.4127e+00_rb,1.7231e+00_rb,9.6426e-01_rb,2.6067e-02_rb/)\n      kbo(:, 4,24, 4) = (/ &\n     &3.2231e+00_rb,2.5412e+00_rb,1.8120e+00_rb,1.0128e+00_rb,2.7124e-02_rb/)\n      kbo(:, 5,24, 4) = (/ &\n     &3.4149e+00_rb,2.6844e+00_rb,1.9115e+00_rb,1.0663e+00_rb,2.7906e-02_rb/)\n      kbo(:, 1,25, 4) = (/ &\n     &2.1432e+00_rb,1.7277e+00_rb,1.2393e+00_rb,6.9912e-01_rb,1.9707e-02_rb/)\n      kbo(:, 2,25, 4) = (/ &\n     &2.2580e+00_rb,1.8124e+00_rb,1.2983e+00_rb,7.3186e-01_rb,2.0862e-02_rb/)\n      kbo(:, 3,25, 4) = (/ &\n     &2.3862e+00_rb,1.9090e+00_rb,1.3657e+00_rb,7.6856e-01_rb,2.1834e-02_rb/)\n      kbo(:, 4,25, 4) = (/ &\n     &2.5268e+00_rb,2.0149e+00_rb,1.4403e+00_rb,8.0968e-01_rb,2.2567e-02_rb/)\n      kbo(:, 5,25, 4) = (/ &\n     &2.6782e+00_rb,2.1290e+00_rb,1.5196e+00_rb,8.5344e-01_rb,2.3120e-02_rb/)\n      kbo(:, 1,26, 4) = (/ &\n     &1.7021e+00_rb,1.3844e+00_rb,9.9410e-01_rb,5.6358e-01_rb,1.6610e-02_rb/)\n      kbo(:, 2,26, 4) = (/ &\n     &1.7967e+00_rb,1.4558e+00_rb,1.0446e+00_rb,5.9163e-01_rb,1.7478e-02_rb/)\n      kbo(:, 3,26, 4) = (/ &\n     &1.9029e+00_rb,1.5366e+00_rb,1.1015e+00_rb,6.2314e-01_rb,1.8168e-02_rb/)\n      kbo(:, 4,26, 4) = (/ &\n     &2.0167e+00_rb,1.6240e+00_rb,1.1633e+00_rb,6.5758e-01_rb,1.8695e-02_rb/)\n      kbo(:, 5,26, 4) = (/ &\n     &2.1386e+00_rb,1.7169e+00_rb,1.2284e+00_rb,6.9400e-01_rb,1.9096e-02_rb/)\n      kbo(:, 1,27, 4) = (/ &\n     &1.4057e+00_rb,1.1500e+00_rb,8.2663e-01_rb,4.7009e-01_rb,1.3925e-02_rb/)\n      kbo(:, 2,27, 4) = (/ &\n     &1.4879e+00_rb,1.2132e+00_rb,8.7128e-01_rb,4.9476e-01_rb,1.4552e-02_rb/)\n      kbo(:, 3,27, 4) = (/ &\n     &1.5769e+00_rb,1.2821e+00_rb,9.2036e-01_rb,5.2229e-01_rb,1.5059e-02_rb/)\n      kbo(:, 4,27, 4) = (/ &\n     &1.6734e+00_rb,1.3576e+00_rb,9.7388e-01_rb,5.5224e-01_rb,1.5448e-02_rb/)\n      kbo(:, 5,27, 4) = (/ &\n     &1.7761e+00_rb,1.4364e+00_rb,1.0297e+00_rb,5.8351e-01_rb,1.5741e-02_rb/)\n      kbo(:, 1,28, 4) = (/ &\n     &1.1944e+00_rb,9.8092e-01_rb,7.0555e-01_rb,4.0148e-01_rb,1.1607e-02_rb/)\n      kbo(:, 2,28, 4) = (/ &\n     &1.2669e+00_rb,1.0377e+00_rb,7.4577e-01_rb,4.2386e-01_rb,1.2073e-02_rb/)\n      kbo(:, 3,28, 4) = (/ &\n     &1.3434e+00_rb,1.0982e+00_rb,7.8916e-01_rb,4.4819e-01_rb,1.2454e-02_rb/)\n      kbo(:, 4,28, 4) = (/ &\n     &1.4276e+00_rb,1.1642e+00_rb,8.3605e-01_rb,4.7463e-01_rb,1.2747e-02_rb/)\n      kbo(:, 5,28, 4) = (/ &\n     &1.5174e+00_rb,1.2340e+00_rb,8.8572e-01_rb,5.0242e-01_rb,1.2962e-02_rb/)\n      kbo(:, 1,29, 4) = (/ &\n     &1.0796e+00_rb,8.8738e-01_rb,6.3729e-01_rb,3.6140e-01_rb,9.6469e-03_rb/)\n      kbo(:, 2,29, 4) = (/ &\n     &1.1462e+00_rb,9.4012e-01_rb,6.7481e-01_rb,3.8241e-01_rb,1.0006e-02_rb/)\n      kbo(:, 3,29, 4) = (/ &\n     &1.2166e+00_rb,9.9676e-01_rb,7.1549e-01_rb,4.0534e-01_rb,1.0291e-02_rb/)\n      kbo(:, 4,29, 4) = (/ &\n     &1.2950e+00_rb,1.0580e+00_rb,7.5913e-01_rb,4.2989e-01_rb,1.0512e-02_rb/)\n      kbo(:, 5,29, 4) = (/ &\n     &1.3796e+00_rb,1.1246e+00_rb,8.0670e-01_rb,4.5638e-01_rb,1.0678e-02_rb/)\n      kbo(:, 1,30, 4) = (/ &\n     &1.0009e+00_rb,8.2254e-01_rb,5.8934e-01_rb,3.3271e-01_rb,8.0058e-03_rb/)\n      kbo(:, 2,30, 4) = (/ &\n     &1.0631e+00_rb,8.7256e-01_rb,6.2533e-01_rb,3.5305e-01_rb,8.2800e-03_rb/)\n      kbo(:, 3,30, 4) = (/ &\n     &1.1308e+00_rb,9.2710e-01_rb,6.6420e-01_rb,3.7481e-01_rb,8.4963e-03_rb/)\n      kbo(:, 4,30, 4) = (/ &\n     &1.2063e+00_rb,9.8617e-01_rb,7.0646e-01_rb,3.9833e-01_rb,8.6678e-03_rb/)\n      kbo(:, 5,30, 4) = (/ &\n     &1.2872e+00_rb,1.0507e+00_rb,7.5301e-01_rb,4.2433e-01_rb,8.7939e-03_rb/)\n      kbo(:, 1,31, 4) = (/ &\n     &9.7660e-01_rb,8.0084e-01_rb,5.7177e-01_rb,3.2070e-01_rb,6.6382e-03_rb/)\n      kbo(:, 2,31, 4) = (/ &\n     &1.0374e+00_rb,8.5014e-01_rb,6.0734e-01_rb,3.4069e-01_rb,6.8456e-03_rb/)\n      kbo(:, 3,31, 4) = (/ &\n     &1.1075e+00_rb,9.0581e-01_rb,6.4681e-01_rb,3.6261e-01_rb,7.0127e-03_rb/)\n      kbo(:, 4,31, 4) = (/ &\n     &1.1834e+00_rb,9.6644e-01_rb,6.9039e-01_rb,3.8675e-01_rb,7.1469e-03_rb/)\n      kbo(:, 5,31, 4) = (/ &\n     &1.2660e+00_rb,1.0326e+00_rb,7.3825e-01_rb,4.1334e-01_rb,7.2367e-03_rb/)\n      kbo(:, 1,32, 4) = (/ &\n     &9.6422e-01_rb,7.8878e-01_rb,5.6132e-01_rb,3.1280e-01_rb,5.4958e-03_rb/)\n      kbo(:, 2,32, 4) = (/ &\n     &1.0268e+00_rb,8.3964e-01_rb,5.9767e-01_rb,3.3295e-01_rb,5.6574e-03_rb/)\n      kbo(:, 3,32, 4) = (/ &\n     &1.0993e+00_rb,8.9729e-01_rb,6.3870e-01_rb,3.5556e-01_rb,5.7908e-03_rb/)\n      kbo(:, 4,32, 4) = (/ &\n     &1.1769e+00_rb,9.5960e-01_rb,6.8365e-01_rb,3.8056e-01_rb,5.8892e-03_rb/)\n      kbo(:, 5,32, 4) = (/ &\n     &1.2618e+00_rb,1.0283e+00_rb,7.3351e-01_rb,4.0808e-01_rb,5.9563e-03_rb/)\n      kbo(:, 1,33, 4) = (/ &\n     &9.7044e-01_rb,7.9175e-01_rb,5.6148e-01_rb,3.1071e-01_rb,4.5479e-03_rb/)\n      kbo(:, 2,33, 4) = (/ &\n     &1.0377e+00_rb,8.4609e-01_rb,5.9989e-01_rb,3.3169e-01_rb,4.6770e-03_rb/)\n      kbo(:, 3,33, 4) = (/ &\n     &1.1127e+00_rb,9.0612e-01_rb,6.4309e-01_rb,3.5556e-01_rb,4.7785e-03_rb/)\n      kbo(:, 4,33, 4) = (/ &\n     &1.1941e+00_rb,9.7205e-01_rb,6.9062e-01_rb,3.8191e-01_rb,4.8530e-03_rb/)\n      kbo(:, 5,33, 4) = (/ &\n     &1.2827e+00_rb,1.0440e+00_rb,7.4287e-01_rb,4.1072e-01_rb,4.9022e-03_rb/)\n      kbo(:, 1,34, 4) = (/ &\n     &9.5216e-01_rb,7.7596e-01_rb,5.4886e-01_rb,3.0190e-01_rb,3.7602e-03_rb/)\n      kbo(:, 2,34, 4) = (/ &\n     &1.0214e+00_rb,8.3168e-01_rb,5.8836e-01_rb,3.2354e-01_rb,3.8612e-03_rb/)\n      kbo(:, 3,34, 4) = (/ &\n     &1.0976e+00_rb,8.9321e-01_rb,6.3261e-01_rb,3.4797e-01_rb,3.9398e-03_rb/)\n      kbo(:, 4,34, 4) = (/ &\n     &1.1802e+00_rb,9.6059e-01_rb,6.8153e-01_rb,3.7517e-01_rb,3.9961e-03_rb/)\n      kbo(:, 5,34, 4) = (/ &\n     &1.2700e+00_rb,1.0340e+00_rb,7.3462e-01_rb,4.0436e-01_rb,4.0321e-03_rb/)\n      kbo(:, 1,35, 4) = (/ &\n     &9.3109e-01_rb,7.5807e-01_rb,5.3485e-01_rb,2.9258e-01_rb,3.0990e-03_rb/)\n      kbo(:, 2,35, 4) = (/ &\n     &1.0014e+00_rb,8.1463e-01_rb,5.7510e-01_rb,3.1470e-01_rb,3.1794e-03_rb/)\n      kbo(:, 3,35, 4) = (/ &\n     &1.0779e+00_rb,8.7703e-01_rb,6.2017e-01_rb,3.3965e-01_rb,3.2414e-03_rb/)\n      kbo(:, 4,35, 4) = (/ &\n     &1.1611e+00_rb,9.4542e-01_rb,6.6993e-01_rb,3.6723e-01_rb,3.2866e-03_rb/)\n      kbo(:, 5,35, 4) = (/ &\n     &1.2524e+00_rb,1.0199e+00_rb,7.2388e-01_rb,3.9699e-01_rb,3.3190e-03_rb/)\n      kbo(:, 1,36, 4) = (/ &\n     &8.9907e-01_rb,7.3170e-01_rb,5.1516e-01_rb,2.8053e-01_rb,2.5454e-03_rb/)\n      kbo(:, 2,36, 4) = (/ &\n     &9.6904e-01_rb,7.8811e-01_rb,5.5541e-01_rb,3.0260e-01_rb,2.6116e-03_rb/)\n      kbo(:, 3,36, 4) = (/ &\n     &1.0454e+00_rb,8.5074e-01_rb,6.0077e-01_rb,3.2780e-01_rb,2.6639e-03_rb/)\n      kbo(:, 4,36, 4) = (/ &\n     &1.1275e+00_rb,9.1876e-01_rb,6.5041e-01_rb,3.5533e-01_rb,2.7017e-03_rb/)\n      kbo(:, 5,36, 4) = (/ &\n     &1.2188e+00_rb,9.9337e-01_rb,7.0446e-01_rb,3.8526e-01_rb,2.7298e-03_rb/)\n      kbo(:, 1,37, 4) = (/ &\n     &8.3748e-01_rb,6.8208e-01_rb,4.7958e-01_rb,2.6026e-01_rb,2.0819e-03_rb/)\n      kbo(:, 2,37, 4) = (/ &\n     &9.0437e-01_rb,7.3619e-01_rb,5.1822e-01_rb,2.8144e-01_rb,2.1383e-03_rb/)\n      kbo(:, 3,37, 4) = (/ &\n     &9.7724e-01_rb,7.9645e-01_rb,5.6196e-01_rb,3.0574e-01_rb,2.1835e-03_rb/)\n      kbo(:, 4,37, 4) = (/ &\n     &1.0560e+00_rb,8.6198e-01_rb,6.0986e-01_rb,3.3246e-01_rb,2.2167e-03_rb/)\n      kbo(:, 5,37, 4) = (/ &\n     &1.1435e+00_rb,9.3399e-01_rb,6.6218e-01_rb,3.6148e-01_rb,2.2423e-03_rb/)\n      kbo(:, 1,38, 4) = (/ &\n     &7.9164e-01_rb,6.4489e-01_rb,4.5275e-01_rb,2.4481e-01_rb,1.7033e-03_rb/)\n      kbo(:, 2,38, 4) = (/ &\n     &8.5631e-01_rb,6.9735e-01_rb,4.9025e-01_rb,2.6537e-01_rb,1.7520e-03_rb/)\n      kbo(:, 3,38, 4) = (/ &\n     &9.2681e-01_rb,7.5605e-01_rb,5.3294e-01_rb,2.8911e-01_rb,1.7893e-03_rb/)\n      kbo(:, 4,38, 4) = (/ &\n     &1.0032e+00_rb,8.1986e-01_rb,5.7959e-01_rb,3.1521e-01_rb,1.8197e-03_rb/)\n      kbo(:, 5,38, 4) = (/ &\n     &1.0885e+00_rb,8.9047e-01_rb,6.3102e-01_rb,3.4379e-01_rb,1.8432e-03_rb/)\n      kbo(:, 1,39, 4) = (/ &\n     &7.6561e-01_rb,6.2337e-01_rb,4.3685e-01_rb,2.3531e-01_rb,1.3951e-03_rb/)\n      kbo(:, 2,39, 4) = (/ &\n     &8.2959e-01_rb,6.7544e-01_rb,4.7411e-01_rb,2.5572e-01_rb,1.4362e-03_rb/)\n      kbo(:, 3,39, 4) = (/ &\n     &8.9955e-01_rb,7.3386e-01_rb,5.1664e-01_rb,2.7941e-01_rb,1.4681e-03_rb/)\n      kbo(:, 4,39, 4) = (/ &\n     &9.7533e-01_rb,7.9745e-01_rb,5.6319e-01_rb,3.0547e-01_rb,1.4952e-03_rb/)\n      kbo(:, 5,39, 4) = (/ &\n     &1.0606e+00_rb,8.6829e-01_rb,6.1487e-01_rb,3.3424e-01_rb,1.5163e-03_rb/)\n      kbo(:, 1,40, 4) = (/ &\n     &6.9042e-01_rb,5.6314e-01_rb,3.9439e-01_rb,2.1202e-01_rb,1.1367e-03_rb/)\n      kbo(:, 2,40, 4) = (/ &\n     &7.4888e-01_rb,6.1108e-01_rb,4.2878e-01_rb,2.3085e-01_rb,1.1721e-03_rb/)\n      kbo(:, 3,40, 4) = (/ &\n     &8.1362e-01_rb,6.6539e-01_rb,4.6832e-01_rb,2.5287e-01_rb,1.1998e-03_rb/)\n      kbo(:, 4,40, 4) = (/ &\n     &8.8373e-01_rb,7.2479e-01_rb,5.1188e-01_rb,2.7730e-01_rb,1.2242e-03_rb/)\n      kbo(:, 5,40, 4) = (/ &\n     &9.6254e-01_rb,7.9070e-01_rb,5.6015e-01_rb,3.0430e-01_rb,1.2434e-03_rb/)\n      kbo(:, 1,41, 4) = (/ &\n     &6.2032e-01_rb,5.0688e-01_rb,3.5482e-01_rb,1.9040e-01_rb,9.2546e-04_rb/)\n      kbo(:, 2,41, 4) = (/ &\n     &6.7393e-01_rb,5.5118e-01_rb,3.8660e-01_rb,2.0779e-01_rb,9.5549e-04_rb/)\n      kbo(:, 3,41, 4) = (/ &\n     &7.3329e-01_rb,6.0114e-01_rb,4.2302e-01_rb,2.2810e-01_rb,9.8005e-04_rb/)\n      kbo(:, 4,41, 4) = (/ &\n     &7.9788e-01_rb,6.5636e-01_rb,4.6356e-01_rb,2.5084e-01_rb,1.0016e-03_rb/)\n      kbo(:, 5,41, 4) = (/ &\n     &8.7082e-01_rb,7.1789e-01_rb,5.0871e-01_rb,2.7615e-01_rb,1.0188e-03_rb/)\n      kbo(:, 1,42, 4) = (/ &\n     &5.6327e-01_rb,4.6093e-01_rb,3.2241e-01_rb,1.7266e-01_rb,7.5328e-04_rb/)\n      kbo(:, 2,42, 4) = (/ &\n     &6.1295e-01_rb,5.0232e-01_rb,3.5212e-01_rb,1.8890e-01_rb,7.7877e-04_rb/)\n      kbo(:, 3,42, 4) = (/ &\n     &6.6777e-01_rb,5.4861e-01_rb,3.8590e-01_rb,2.0776e-01_rb,8.0043e-04_rb/)\n      kbo(:, 4,42, 4) = (/ &\n     &7.2797e-01_rb,6.0039e-01_rb,4.2397e-01_rb,2.2912e-01_rb,8.1936e-04_rb/)\n      kbo(:, 5,42, 4) = (/ &\n     &7.9621e-01_rb,6.5839e-01_rb,4.6656e-01_rb,2.5303e-01_rb,8.3483e-04_rb/)\n      kbo(:, 1,43, 4) = (/ &\n     &5.1362e-01_rb,4.2068e-01_rb,2.9391e-01_rb,1.5704e-01_rb,6.1131e-04_rb/)\n      kbo(:, 2,43, 4) = (/ &\n     &5.5956e-01_rb,4.5932e-01_rb,3.2171e-01_rb,1.7223e-01_rb,6.3359e-04_rb/)\n      kbo(:, 3,43, 4) = (/ &\n     &6.1053e-01_rb,5.0241e-01_rb,3.5315e-01_rb,1.8977e-01_rb,6.5237e-04_rb/)\n      kbo(:, 4,43, 4) = (/ &\n     &6.6664e-01_rb,5.5084e-01_rb,3.8881e-01_rb,2.0981e-01_rb,6.6921e-04_rb/)\n      kbo(:, 5,43, 4) = (/ &\n     &7.3047e-01_rb,6.0544e-01_rb,4.2894e-01_rb,2.3232e-01_rb,6.8300e-04_rb/)\n      kbo(:, 1,44, 4) = (/ &\n     &4.7369e-01_rb,3.8803e-01_rb,2.7069e-01_rb,1.4426e-01_rb,4.9540e-04_rb/)\n      kbo(:, 2,44, 4) = (/ &\n     &5.1629e-01_rb,4.2426e-01_rb,2.9688e-01_rb,1.5856e-01_rb,5.1475e-04_rb/)\n      kbo(:, 3,44, 4) = (/ &\n     &5.6430e-01_rb,4.6484e-01_rb,3.2640e-01_rb,1.7499e-01_rb,5.3131e-04_rb/)\n      kbo(:, 4,44, 4) = (/ &\n     &6.1717e-01_rb,5.1049e-01_rb,3.6006e-01_rb,1.9393e-01_rb,5.4642e-04_rb/)\n      kbo(:, 5,44, 4) = (/ &\n     &6.7746e-01_rb,5.6241e-01_rb,3.9820e-01_rb,2.1537e-01_rb,5.5870e-04_rb/)\n      kbo(:, 1,45, 4) = (/ &\n     &4.4552e-01_rb,3.6469e-01_rb,2.5398e-01_rb,1.3497e-01_rb,4.0119e-04_rb/)\n      kbo(:, 2,45, 4) = (/ &\n     &4.8593e-01_rb,3.9940e-01_rb,2.7911e-01_rb,1.4871e-01_rb,4.1803e-04_rb/)\n      kbo(:, 3,45, 4) = (/ &\n     &5.3210e-01_rb,4.3837e-01_rb,3.0742e-01_rb,1.6436e-01_rb,4.3281e-04_rb/)\n      kbo(:, 4,45, 4) = (/ &\n     &5.8266e-01_rb,4.8202e-01_rb,3.3961e-01_rb,1.8254e-01_rb,4.4586e-04_rb/)\n      kbo(:, 5,45, 4) = (/ &\n     &6.4061e-01_rb,5.3215e-01_rb,3.7643e-01_rb,2.0327e-01_rb,4.5687e-04_rb/)\n      kbo(:, 1,46, 4) = (/ &\n     &4.2249e-01_rb,3.4536e-01_rb,2.4007e-01_rb,1.2719e-01_rb,3.2444e-04_rb/)\n      kbo(:, 2,46, 4) = (/ &\n     &4.6085e-01_rb,3.7858e-01_rb,2.6416e-01_rb,1.4037e-01_rb,3.3911e-04_rb/)\n      kbo(:, 3,46, 4) = (/ &\n     &5.0558e-01_rb,4.1641e-01_rb,2.9158e-01_rb,1.5550e-01_rb,3.5210e-04_rb/)\n      kbo(:, 4,46, 4) = (/ &\n     &5.5446e-01_rb,4.5852e-01_rb,3.2261e-01_rb,1.7296e-01_rb,3.6323e-04_rb/)\n      kbo(:, 5,46, 4) = (/ &\n     &6.1034e-01_rb,5.0695e-01_rb,3.5817e-01_rb,1.9305e-01_rb,3.7330e-04_rb/)\n      kbo(:, 1,47, 4) = (/ &\n     &3.9554e-01_rb,3.2291e-01_rb,2.2401e-01_rb,1.1833e-01_rb,2.6160e-04_rb/)\n      kbo(:, 2,47, 4) = (/ &\n     &4.3146e-01_rb,3.5412e-01_rb,2.4668e-01_rb,1.3078e-01_rb,2.7433e-04_rb/)\n      kbo(:, 3,47, 4) = (/ &\n     &4.7369e-01_rb,3.9022e-01_rb,2.7284e-01_rb,1.4515e-01_rb,2.8554e-04_rb/)\n      kbo(:, 4,47, 4) = (/ &\n     &5.2055e-01_rb,4.3044e-01_rb,3.0232e-01_rb,1.6167e-01_rb,2.9527e-04_rb/)\n      kbo(:, 5,47, 4) = (/ &\n     &5.7336e-01_rb,4.7635e-01_rb,3.3620e-01_rb,1.8084e-01_rb,3.0428e-04_rb/)\n      kbo(:, 1,48, 4) = (/ &\n     &3.8090e-01_rb,3.1036e-01_rb,2.1482e-01_rb,1.1310e-01_rb,2.1085e-04_rb/)\n      kbo(:, 2,48, 4) = (/ &\n     &4.1533e-01_rb,3.4019e-01_rb,2.3651e-01_rb,1.2501e-01_rb,2.2180e-04_rb/)\n      kbo(:, 3,48, 4) = (/ &\n     &4.5614e-01_rb,3.7537e-01_rb,2.6197e-01_rb,1.3898e-01_rb,2.3143e-04_rb/)\n      kbo(:, 4,48, 4) = (/ &\n     &5.0246e-01_rb,4.1492e-01_rb,2.9081e-01_rb,1.5505e-01_rb,2.3998e-04_rb/)\n      kbo(:, 5,48, 4) = (/ &\n     &5.5365e-01_rb,4.5945e-01_rb,3.2372e-01_rb,1.7366e-01_rb,2.4799e-04_rb/)\n      kbo(:, 1,49, 4) = (/ &\n     &3.8223e-01_rb,3.1052e-01_rb,2.1444e-01_rb,1.1246e-01_rb,1.6987e-04_rb/)\n      kbo(:, 2,49, 4) = (/ &\n     &4.1659e-01_rb,3.4001e-01_rb,2.3576e-01_rb,1.2419e-01_rb,1.7919e-04_rb/)\n      kbo(:, 3,49, 4) = (/ &\n     &4.5734e-01_rb,3.7525e-01_rb,2.6133e-01_rb,1.3821e-01_rb,1.8743e-04_rb/)\n      kbo(:, 4,49, 4) = (/ &\n     &5.0487e-01_rb,4.1574e-01_rb,2.9072e-01_rb,1.5448e-01_rb,1.9508e-04_rb/)\n      kbo(:, 5,49, 4) = (/ &\n     &5.5695e-01_rb,4.6079e-01_rb,3.2385e-01_rb,1.7317e-01_rb,2.0224e-04_rb/)\n      kbo(:, 1,50, 4) = (/ &\n     &3.6631e-01_rb,2.9712e-01_rb,2.0481e-01_rb,1.0712e-01_rb,1.3672e-04_rb/)\n      kbo(:, 2,50, 4) = (/ &\n     &3.9879e-01_rb,3.2486e-01_rb,2.2483e-01_rb,1.1811e-01_rb,1.4458e-04_rb/)\n      kbo(:, 3,50, 4) = (/ &\n     &4.3761e-01_rb,3.5858e-01_rb,2.4934e-01_rb,1.3160e-01_rb,1.5166e-04_rb/)\n      kbo(:, 4,50, 4) = (/ &\n     &4.8398e-01_rb,3.9821e-01_rb,2.7799e-01_rb,1.4737e-01_rb,1.5830e-04_rb/)\n      kbo(:, 5,50, 4) = (/ &\n     &5.3499e-01_rb,4.4212e-01_rb,3.1022e-01_rb,1.6549e-01_rb,1.6465e-04_rb/)\n      kbo(:, 1,51, 4) = (/ &\n     &3.4406e-01_rb,2.7861e-01_rb,1.9179e-01_rb,1.0006e-01_rb,1.0998e-04_rb/)\n      kbo(:, 2,51, 4) = (/ &\n     &3.7372e-01_rb,3.0420e-01_rb,2.1018e-01_rb,1.1015e-01_rb,1.1652e-04_rb/)\n      kbo(:, 3,51, 4) = (/ &\n     &4.0998e-01_rb,3.3570e-01_rb,2.3310e-01_rb,1.2281e-01_rb,1.2263e-04_rb/)\n      kbo(:, 4,51, 4) = (/ &\n     &4.5397e-01_rb,3.7347e-01_rb,2.6041e-01_rb,1.3780e-01_rb,1.2829e-04_rb/)\n      kbo(:, 5,51, 4) = (/ &\n     &5.0293e-01_rb,4.1560e-01_rb,2.9124e-01_rb,1.5503e-01_rb,1.3386e-04_rb/)\n      kbo(:, 1,52, 4) = (/ &\n     &3.3305e-01_rb,2.6887e-01_rb,1.8470e-01_rb,9.6116e-02_rb,8.8414e-05_rb/)\n      kbo(:, 2,52, 4) = (/ &\n     &3.6030e-01_rb,2.9285e-01_rb,2.0201e-01_rb,1.0559e-01_rb,9.3941e-05_rb/)\n      kbo(:, 3,52, 4) = (/ &\n     &3.9501e-01_rb,3.2288e-01_rb,2.2382e-01_rb,1.1765e-01_rb,9.9142e-05_rb/)\n      kbo(:, 4,52, 4) = (/ &\n     &4.3753e-01_rb,3.5954e-01_rb,2.5031e-01_rb,1.3217e-01_rb,1.0404e-04_rb/)\n      kbo(:, 5,52, 4) = (/ &\n     &4.8592e-01_rb,4.0113e-01_rb,2.8062e-01_rb,1.4902e-01_rb,1.0887e-04_rb/)\n      kbo(:, 1,53, 4) = (/ &\n     &3.3673e-01_rb,2.7062e-01_rb,1.8541e-01_rb,9.6126e-02_rb,7.1043e-05_rb/)\n      kbo(:, 2,53, 4) = (/ &\n     &3.6211e-01_rb,2.9355e-01_rb,2.0209e-01_rb,1.0535e-01_rb,7.5715e-05_rb/)\n      kbo(:, 3,53, 4) = (/ &\n     &3.9659e-01_rb,3.2308e-01_rb,2.2347e-01_rb,1.1715e-01_rb,8.0134e-05_rb/)\n      kbo(:, 4,53, 4) = (/ &\n     &4.3895e-01_rb,3.5976e-01_rb,2.5000e-01_rb,1.3170e-01_rb,8.4354e-05_rb/)\n      kbo(:, 5,53, 4) = (/ &\n     &4.8875e-01_rb,4.0230e-01_rb,2.8086e-01_rb,1.4875e-01_rb,8.8431e-05_rb/)\n      kbo(:, 1,54, 4) = (/ &\n     &2.9565e-01_rb,2.3718e-01_rb,1.6225e-01_rb,8.3929e-02_rb,5.7062e-05_rb/)\n      kbo(:, 2,54, 4) = (/ &\n     &3.1566e-01_rb,2.5610e-01_rb,1.7621e-01_rb,9.1726e-02_rb,6.0930e-05_rb/)\n      kbo(:, 3,54, 4) = (/ &\n     &3.4501e-01_rb,2.8145e-01_rb,1.9453e-01_rb,1.0184e-01_rb,6.4630e-05_rb/)\n      kbo(:, 4,54, 4) = (/ &\n     &3.8166e-01_rb,3.1342e-01_rb,2.1772e-01_rb,1.1458e-01_rb,6.8122e-05_rb/)\n      kbo(:, 5,54, 4) = (/ &\n     &4.2580e-01_rb,3.5139e-01_rb,2.4524e-01_rb,1.2978e-01_rb,7.1556e-05_rb/)\n      kbo(:, 1,55, 4) = (/ &\n     &2.3763e-01_rb,1.9054e-01_rb,1.3023e-01_rb,6.7270e-02_rb,4.5734e-05_rb/)\n      kbo(:, 2,55, 4) = (/ &\n     &2.5160e-01_rb,2.0457e-01_rb,1.4076e-01_rb,7.3233e-02_rb,4.8936e-05_rb/)\n      kbo(:, 3,55, 4) = (/ &\n     &2.7408e-01_rb,2.2452e-01_rb,1.5520e-01_rb,8.1193e-02_rb,5.2040e-05_rb/)\n      kbo(:, 4,55, 4) = (/ &\n     &3.0302e-01_rb,2.4999e-01_rb,1.7374e-01_rb,9.1409e-02_rb,5.4914e-05_rb/)\n      kbo(:, 5,55, 4) = (/ &\n     &3.3851e-01_rb,2.8105e-01_rb,1.9629e-01_rb,1.0386e-01_rb,5.7717e-05_rb/)\n      kbo(:, 1,56, 4) = (/ &\n     &1.9160e-01_rb,1.5340e-01_rb,1.0472e-01_rb,5.4007e-02_rb,3.6625e-05_rb/)\n      kbo(:, 2,56, 4) = (/ &\n     &2.0095e-01_rb,1.6357e-01_rb,1.1247e-01_rb,5.8467e-02_rb,3.9320e-05_rb/)\n      kbo(:, 3,56, 4) = (/ &\n     &2.1781e-01_rb,1.7908e-01_rb,1.2379e-01_rb,6.4708e-02_rb,4.1872e-05_rb/)\n      kbo(:, 4,56, 4) = (/ &\n     &2.4047e-01_rb,1.9929e-01_rb,1.3856e-01_rb,7.2864e-02_rb,4.4297e-05_rb/)\n      kbo(:, 5,56, 4) = (/ &\n     &2.6886e-01_rb,2.2463e-01_rb,1.5695e-01_rb,8.3003e-02_rb,4.6496e-05_rb/)\n      kbo(:, 1,57, 4) = (/ &\n     &1.5488e-01_rb,1.2382e-01_rb,8.4407e-02_rb,4.3459e-02_rb,2.9307e-05_rb/)\n      kbo(:, 2,57, 4) = (/ &\n     &1.6082e-01_rb,1.3093e-01_rb,8.9925e-02_rb,4.6681e-02_rb,3.1559e-05_rb/)\n      kbo(:, 3,57, 4) = (/ &\n     &1.7312e-01_rb,1.4284e-01_rb,9.8719e-02_rb,5.1558e-02_rb,3.3681e-05_rb/)\n      kbo(:, 4,57, 4) = (/ &\n     &1.9084e-01_rb,1.5883e-01_rb,1.1043e-01_rb,5.8031e-02_rb,3.5680e-05_rb/)\n      kbo(:, 5,57, 4) = (/ &\n     &2.1336e-01_rb,1.7931e-01_rb,1.2534e-01_rb,6.6236e-02_rb,3.7524e-05_rb/)\n      kbo(:, 1,58, 4) = (/ &\n     &3.3087e-02_rb,3.2322e-02_rb,2.8310e-02_rb,2.0395e-02_rb,2.3455e-05_rb/)\n      kbo(:, 2,58, 4) = (/ &\n     &3.4053e-02_rb,3.3907e-02_rb,2.9921e-02_rb,2.1729e-02_rb,2.5336e-05_rb/)\n      kbo(:, 3,58, 4) = (/ &\n     &3.6376e-02_rb,3.6839e-02_rb,3.2736e-02_rb,2.3935e-02_rb,2.7095e-05_rb/)\n      kbo(:, 4,58, 4) = (/ &\n     &4.0009e-02_rb,4.0914e-02_rb,3.6586e-02_rb,2.6918e-02_rb,2.8737e-05_rb/)\n      kbo(:, 5,58, 4) = (/ &\n     &4.4706e-02_rb,4.6236e-02_rb,4.1585e-02_rb,3.0778e-02_rb,3.0324e-05_rb/)\n      kbo(:, 1,59, 4) = (/ &\n     &3.1774e-02_rb,2.9779e-02_rb,2.4302e-02_rb,1.5595e-02_rb,1.9010e-05_rb/)\n      kbo(:, 2,59, 4) = (/ &\n     &3.2644e-02_rb,3.1267e-02_rb,2.5718e-02_rb,1.6636e-02_rb,2.0536e-05_rb/)\n      kbo(:, 3,59, 4) = (/ &\n     &3.4800e-02_rb,3.4041e-02_rb,2.8207e-02_rb,1.8368e-02_rb,2.1957e-05_rb/)\n      kbo(:, 4,59, 4) = (/ &\n     &3.8295e-02_rb,3.7946e-02_rb,3.1647e-02_rb,2.0746e-02_rb,2.3288e-05_rb/)\n      kbo(:, 5,59, 4) = (/ &\n     &4.2857e-02_rb,4.3069e-02_rb,3.6135e-02_rb,2.3842e-02_rb,2.4528e-05_rb/)\n      kbo(:, 1,13, 5) = (/ &\n     &3.9549e+02_rb,2.9672e+02_rb,1.9794e+02_rb,9.9160e+01_rb,2.1101e-01_rb/)\n      kbo(:, 2,13, 5) = (/ &\n     &4.0510e+02_rb,3.0393e+02_rb,2.0275e+02_rb,1.0157e+02_rb,2.1805e-01_rb/)\n      kbo(:, 3,13, 5) = (/ &\n     &4.1502e+02_rb,3.1136e+02_rb,2.0770e+02_rb,1.0405e+02_rb,2.2406e-01_rb/)\n      kbo(:, 4,13, 5) = (/ &\n     &4.2481e+02_rb,3.1871e+02_rb,2.1261e+02_rb,1.0651e+02_rb,2.2934e-01_rb/)\n      kbo(:, 5,13, 5) = (/ &\n     &4.3504e+02_rb,3.2638e+02_rb,2.1772e+02_rb,1.0907e+02_rb,2.3453e-01_rb/)\n      kbo(:, 1,14, 5) = (/ &\n     &2.0979e+02_rb,1.5743e+02_rb,1.0508e+02_rb,5.2736e+01_rb,1.8842e-01_rb/)\n      kbo(:, 2,14, 5) = (/ &\n     &2.1502e+02_rb,1.6136e+02_rb,1.0770e+02_rb,5.4046e+01_rb,1.9486e-01_rb/)\n      kbo(:, 3,14, 5) = (/ &\n     &2.2030e+02_rb,1.6532e+02_rb,1.1034e+02_rb,5.5365e+01_rb,2.0050e-01_rb/)\n      kbo(:, 4,14, 5) = (/ &\n     &2.2600e+02_rb,1.6960e+02_rb,1.1320e+02_rb,5.6802e+01_rb,2.0562e-01_rb/)\n      kbo(:, 5,14, 5) = (/ &\n     &2.3272e+02_rb,1.7464e+02_rb,1.1657e+02_rb,5.8488e+01_rb,2.1024e-01_rb/)\n      kbo(:, 1,15, 5) = (/ &\n     &1.1299e+02_rb,8.4842e+01_rb,5.6692e+01_rb,2.8544e+01_rb,1.6706e-01_rb/)\n      kbo(:, 2,15, 5) = (/ &\n     &1.1594e+02_rb,8.7050e+01_rb,5.8163e+01_rb,2.9281e+01_rb,1.7285e-01_rb/)\n      kbo(:, 3,15, 5) = (/ &\n     &1.1912e+02_rb,8.9439e+01_rb,5.9757e+01_rb,3.0081e+01_rb,1.7816e-01_rb/)\n      kbo(:, 4,15, 5) = (/ &\n     &1.2274e+02_rb,9.2159e+01_rb,6.1575e+01_rb,3.0997e+01_rb,1.8306e-01_rb/)\n      kbo(:, 5,15, 5) = (/ &\n     &1.2711e+02_rb,9.5434e+01_rb,6.3760e+01_rb,3.2089e+01_rb,1.8793e-01_rb/)\n      kbo(:, 1,16, 5) = (/ &\n     &7.2342e+01_rb,5.4353e+01_rb,3.6365e+01_rb,1.8388e+01_rb,1.4721e-01_rb/)\n      kbo(:, 2,16, 5) = (/ &\n     &7.4310e+01_rb,5.5827e+01_rb,3.7348e+01_rb,1.8883e+01_rb,1.5241e-01_rb/)\n      kbo(:, 3,16, 5) = (/ &\n     &7.6651e+01_rb,5.7588e+01_rb,3.8528e+01_rb,1.9478e+01_rb,1.5739e-01_rb/)\n      kbo(:, 4,16, 5) = (/ &\n     &7.9417e+01_rb,5.9665e+01_rb,3.9914e+01_rb,2.0174e+01_rb,1.6237e-01_rb/)\n      kbo(:, 5,16, 5) = (/ &\n     &8.2509e+01_rb,6.1984e+01_rb,4.1462e+01_rb,2.0947e+01_rb,1.6729e-01_rb/)\n      kbo(:, 1,17, 5) = (/ &\n     &4.7912e+01_rb,3.6032e+01_rb,2.4156e+01_rb,1.2312e+01_rb,1.2867e-01_rb/)\n      kbo(:, 2,17, 5) = (/ &\n     &4.9396e+01_rb,3.7145e+01_rb,2.4898e+01_rb,1.2683e+01_rb,1.3345e-01_rb/)\n      kbo(:, 3,17, 5) = (/ &\n     &5.1211e+01_rb,3.8509e+01_rb,2.5812e+01_rb,1.3139e+01_rb,1.3833e-01_rb/)\n      kbo(:, 4,17, 5) = (/ &\n     &5.3243e+01_rb,4.0036e+01_rb,2.6830e+01_rb,1.3649e+01_rb,1.4345e-01_rb/)\n      kbo(:, 5,17, 5) = (/ &\n     &5.5359e+01_rb,4.1621e+01_rb,2.7887e+01_rb,1.4174e+01_rb,1.4839e-01_rb/)\n      kbo(:, 1,18, 5) = (/ &\n     &3.2517e+01_rb,2.4486e+01_rb,1.6464e+01_rb,8.5255e+00_rb,1.1175e-01_rb/)\n      kbo(:, 2,18, 5) = (/ &\n     &3.3702e+01_rb,2.5376e+01_rb,1.7056e+01_rb,8.8105e+00_rb,1.1647e-01_rb/)\n      kbo(:, 3,18, 5) = (/ &\n     &3.5055e+01_rb,2.6392e+01_rb,1.7736e+01_rb,9.1463e+00_rb,1.2136e-01_rb/)\n      kbo(:, 4,18, 5) = (/ &\n     &3.6466e+01_rb,2.7452e+01_rb,1.8446e+01_rb,9.5008e+00_rb,1.2627e-01_rb/)\n      kbo(:, 5,18, 5) = (/ &\n     &3.7955e+01_rb,2.8569e+01_rb,1.9189e+01_rb,9.8619e+00_rb,1.3101e-01_rb/)\n      kbo(:, 1,19, 5) = (/ &\n     &2.1727e+01_rb,1.6393e+01_rb,1.1086e+01_rb,5.8761e+00_rb,9.6819e-02_rb/)\n      kbo(:, 2,19, 5) = (/ &\n     &2.2617e+01_rb,1.7062e+01_rb,1.1530e+01_rb,6.0896e+00_rb,1.0144e-01_rb/)\n      kbo(:, 3,19, 5) = (/ &\n     &2.3543e+01_rb,1.7760e+01_rb,1.1998e+01_rb,6.3260e+00_rb,1.0605e-01_rb/)\n      kbo(:, 4,19, 5) = (/ &\n     &2.4512e+01_rb,1.8488e+01_rb,1.2483e+01_rb,6.5653e+00_rb,1.1055e-01_rb/)\n      kbo(:, 5,19, 5) = (/ &\n     &2.5548e+01_rb,1.9265e+01_rb,1.2998e+01_rb,6.8170e+00_rb,1.1478e-01_rb/)\n      kbo(:, 1,20, 5) = (/ &\n     &1.5756e+01_rb,1.1916e+01_rb,8.1383e+00_rb,4.3914e+00_rb,8.3853e-02_rb/)\n      kbo(:, 2,20, 5) = (/ &\n     &1.6431e+01_rb,1.2425e+01_rb,8.4724e+00_rb,4.5624e+00_rb,8.8103e-02_rb/)\n      kbo(:, 3,20, 5) = (/ &\n     &1.7121e+01_rb,1.2945e+01_rb,8.8179e+00_rb,4.7428e+00_rb,9.2252e-02_rb/)\n      kbo(:, 4,20, 5) = (/ &\n     &1.7848e+01_rb,1.3492e+01_rb,9.1779e+00_rb,4.9264e+00_rb,9.6228e-02_rb/)\n      kbo(:, 5,20, 5) = (/ &\n     &1.8606e+01_rb,1.4060e+01_rb,9.5528e+00_rb,5.1134e+00_rb,9.9993e-02_rb/)\n      kbo(:, 1,21, 5) = (/ &\n     &1.1787e+01_rb,8.9459e+00_rb,6.1836e+00_rb,3.3861e+00_rb,7.2353e-02_rb/)\n      kbo(:, 2,21, 5) = (/ &\n     &1.2303e+01_rb,9.3354e+00_rb,6.4401e+00_rb,3.5254e+00_rb,7.6084e-02_rb/)\n      kbo(:, 3,21, 5) = (/ &\n     &1.2826e+01_rb,9.7292e+00_rb,6.7034e+00_rb,3.6681e+00_rb,7.9750e-02_rb/)\n      kbo(:, 4,21, 5) = (/ &\n     &1.3367e+01_rb,1.0136e+01_rb,6.9714e+00_rb,3.8111e+00_rb,8.3233e-02_rb/)\n      kbo(:, 5,21, 5) = (/ &\n     &1.3957e+01_rb,1.0578e+01_rb,7.2613e+00_rb,3.9589e+00_rb,8.6478e-02_rb/)\n      kbo(:, 1,22, 5) = (/ &\n     &9.0718e+00_rb,6.9242e+00_rb,4.8361e+00_rb,2.6781e+00_rb,6.2307e-02_rb/)\n      kbo(:, 2,22, 5) = (/ &\n     &9.4616e+00_rb,7.2180e+00_rb,5.0370e+00_rb,2.7912e+00_rb,6.5577e-02_rb/)\n      kbo(:, 3,22, 5) = (/ &\n     &9.8598e+00_rb,7.5169e+00_rb,5.2399e+00_rb,2.9065e+00_rb,6.8755e-02_rb/)\n      kbo(:, 4,22, 5) = (/ &\n     &1.0285e+01_rb,7.8355e+00_rb,5.4531e+00_rb,3.0213e+00_rb,7.1732e-02_rb/)\n      kbo(:, 5,22, 5) = (/ &\n     &1.0774e+01_rb,8.1994e+00_rb,5.6924e+00_rb,3.1454e+00_rb,7.4544e-02_rb/)\n      kbo(:, 1,23, 5) = (/ &\n     &7.0162e+00_rb,5.3998e+00_rb,3.8098e+00_rb,2.1262e+00_rb,5.3397e-02_rb/)\n      kbo(:, 2,23, 5) = (/ &\n     &7.3118e+00_rb,5.6231e+00_rb,3.9665e+00_rb,2.2161e+00_rb,5.6221e-02_rb/)\n      kbo(:, 3,23, 5) = (/ &\n     &7.6257e+00_rb,5.8582e+00_rb,4.1301e+00_rb,2.3090e+00_rb,5.8902e-02_rb/)\n      kbo(:, 4,23, 5) = (/ &\n     &7.9740e+00_rb,6.1181e+00_rb,4.3060e+00_rb,2.4033e+00_rb,6.1507e-02_rb/)\n      kbo(:, 5,23, 5) = (/ &\n     &8.3852e+00_rb,6.4219e+00_rb,4.5083e+00_rb,2.5100e+00_rb,6.3983e-02_rb/)\n      kbo(:, 1,24, 5) = (/ &\n     &5.3945e+00_rb,4.1959e+00_rb,2.9887e+00_rb,1.6764e+00_rb,4.5562e-02_rb/)\n      kbo(:, 2,24, 5) = (/ &\n     &5.6263e+00_rb,4.3723e+00_rb,3.1153e+00_rb,1.7491e+00_rb,4.7953e-02_rb/)\n      kbo(:, 3,24, 5) = (/ &\n     &5.8803e+00_rb,4.5632e+00_rb,3.2505e+00_rb,1.8236e+00_rb,5.0272e-02_rb/)\n      kbo(:, 4,24, 5) = (/ &\n     &6.1740e+00_rb,4.7820e+00_rb,3.4008e+00_rb,1.9048e+00_rb,5.2561e-02_rb/)\n      kbo(:, 5,24, 5) = (/ &\n     &6.5136e+00_rb,5.0303e+00_rb,3.5679e+00_rb,1.9952e+00_rb,5.4580e-02_rb/)\n      kbo(:, 1,25, 5) = (/ &\n     &4.2050e+00_rb,3.3091e+00_rb,2.3724e+00_rb,1.3359e+00_rb,3.8734e-02_rb/)\n      kbo(:, 2,25, 5) = (/ &\n     &4.3935e+00_rb,3.4537e+00_rb,2.4783e+00_rb,1.3955e+00_rb,4.0785e-02_rb/)\n      kbo(:, 3,25, 5) = (/ &\n     &4.6090e+00_rb,3.6169e+00_rb,2.5944e+00_rb,1.4600e+00_rb,4.2817e-02_rb/)\n      kbo(:, 4,25, 5) = (/ &\n     &4.8571e+00_rb,3.8012e+00_rb,2.7227e+00_rb,1.5304e+00_rb,4.4658e-02_rb/)\n      kbo(:, 5,25, 5) = (/ &\n     &5.1379e+00_rb,4.0071e+00_rb,2.8658e+00_rb,1.6091e+00_rb,4.6106e-02_rb/)\n      kbo(:, 1,26, 5) = (/ &\n     &3.3393e+00_rb,2.6590e+00_rb,1.9126e+00_rb,1.0812e+00_rb,3.2872e-02_rb/)\n      kbo(:, 2,26, 5) = (/ &\n     &3.4998e+00_rb,2.7840e+00_rb,2.0042e+00_rb,1.1322e+00_rb,3.4655e-02_rb/)\n      kbo(:, 3,26, 5) = (/ &\n     &3.6839e+00_rb,2.9244e+00_rb,2.1044e+00_rb,1.1892e+00_rb,3.6289e-02_rb/)\n      kbo(:, 4,26, 5) = (/ &\n     &3.8971e+00_rb,3.0834e+00_rb,2.2165e+00_rb,1.2514e+00_rb,3.7614e-02_rb/)\n      kbo(:, 5,26, 5) = (/ &\n     &4.1266e+00_rb,3.2542e+00_rb,2.3379e+00_rb,1.3199e+00_rb,3.8535e-02_rb/)\n      kbo(:, 1,27, 5) = (/ &\n     &2.7587e+00_rb,2.2186e+00_rb,1.5971e+00_rb,9.0467e-01_rb,2.7863e-02_rb/)\n      kbo(:, 2,27, 5) = (/ &\n     &2.9012e+00_rb,2.3317e+00_rb,1.6793e+00_rb,9.5148e-01_rb,2.9310e-02_rb/)\n      kbo(:, 3,27, 5) = (/ &\n     &3.0653e+00_rb,2.4577e+00_rb,1.7694e+00_rb,1.0026e+00_rb,3.0500e-02_rb/)\n      kbo(:, 4,27, 5) = (/ &\n     &3.2491e+00_rb,2.5968e+00_rb,1.8696e+00_rb,1.0593e+00_rb,3.1389e-02_rb/)\n      kbo(:, 5,27, 5) = (/ &\n     &3.4443e+00_rb,2.7432e+00_rb,1.9752e+00_rb,1.1204e+00_rb,3.1994e-02_rb/)\n      kbo(:, 1,28, 5) = (/ &\n     &2.3461e+00_rb,1.9019e+00_rb,1.3684e+00_rb,7.7601e-01_rb,2.3534e-02_rb/)\n      kbo(:, 2,28, 5) = (/ &\n     &2.4760e+00_rb,2.0059e+00_rb,1.4439e+00_rb,8.1944e-01_rb,2.4611e-02_rb/)\n      kbo(:, 3,28, 5) = (/ &\n     &2.6235e+00_rb,2.1209e+00_rb,1.5268e+00_rb,8.6687e-01_rb,2.5434e-02_rb/)\n      kbo(:, 4,28, 5) = (/ &\n     &2.7836e+00_rb,2.2441e+00_rb,1.6160e+00_rb,9.1849e-01_rb,2.6044e-02_rb/)\n      kbo(:, 5,28, 5) = (/ &\n     &2.9562e+00_rb,2.3753e+00_rb,1.7120e+00_rb,9.7389e-01_rb,2.6449e-02_rb/)\n      kbo(:, 1,29, 5) = (/ &\n     &2.1229e+00_rb,1.7281e+00_rb,1.2411e+00_rb,7.0258e-01_rb,1.9767e-02_rb/)\n      kbo(:, 2,29, 5) = (/ &\n     &2.2483e+00_rb,1.8286e+00_rb,1.3142e+00_rb,7.4438e-01_rb,2.0526e-02_rb/)\n      kbo(:, 3,29, 5) = (/ &\n     &2.3867e+00_rb,1.9376e+00_rb,1.3932e+00_rb,7.8990e-01_rb,2.1121e-02_rb/)\n      kbo(:, 4,29, 5) = (/ &\n     &2.5370e+00_rb,2.0544e+00_rb,1.4782e+00_rb,8.3936e-01_rb,2.1540e-02_rb/)\n      kbo(:, 5,29, 5) = (/ &\n     &2.7005e+00_rb,2.1808e+00_rb,1.5709e+00_rb,8.9251e-01_rb,2.1826e-02_rb/)\n      kbo(:, 1,30, 5) = (/ &\n     &1.9731e+00_rb,1.6098e+00_rb,1.1534e+00_rb,6.5097e-01_rb,1.6498e-02_rb/)\n      kbo(:, 2,30, 5) = (/ &\n     &2.0958e+00_rb,1.7088e+00_rb,1.2257e+00_rb,6.9208e-01_rb,1.7054e-02_rb/)\n      kbo(:, 3,30, 5) = (/ &\n     &2.2285e+00_rb,1.8139e+00_rb,1.3022e+00_rb,7.3642e-01_rb,1.7482e-02_rb/)\n      kbo(:, 4,30, 5) = (/ &\n     &2.3729e+00_rb,1.9280e+00_rb,1.3861e+00_rb,7.8518e-01_rb,1.7790e-02_rb/)\n      kbo(:, 5,30, 5) = (/ &\n     &2.5353e+00_rb,2.0546e+00_rb,1.4785e+00_rb,8.3767e-01_rb,1.7989e-02_rb/)\n      kbo(:, 1,31, 5) = (/ &\n     &1.9340e+00_rb,1.5772e+00_rb,1.1264e+00_rb,6.3182e-01_rb,1.3731e-02_rb/)\n      kbo(:, 2,31, 5) = (/ &\n     &2.0574e+00_rb,1.6773e+00_rb,1.1995e+00_rb,6.7358e-01_rb,1.4152e-02_rb/)\n      kbo(:, 3,31, 5) = (/ &\n     &2.1914e+00_rb,1.7848e+00_rb,1.2781e+00_rb,7.1915e-01_rb,1.4466e-02_rb/)\n      kbo(:, 4,31, 5) = (/ &\n     &2.3406e+00_rb,1.9025e+00_rb,1.3648e+00_rb,7.6925e-01_rb,1.4687e-02_rb/)\n      kbo(:, 5,31, 5) = (/ &\n     &2.5107e+00_rb,2.0354e+00_rb,1.4612e+00_rb,8.2397e-01_rb,1.4843e-02_rb/)\n      kbo(:, 1,32, 5) = (/ &\n     &1.9204e+00_rb,1.5654e+00_rb,1.1148e+00_rb,6.2147e-01_rb,1.1411e-02_rb/)\n      kbo(:, 2,32, 5) = (/ &\n     &2.0455e+00_rb,1.6672e+00_rb,1.1895e+00_rb,6.6431e-01_rb,1.1723e-02_rb/)\n      kbo(:, 3,32, 5) = (/ &\n     &2.1839e+00_rb,1.7785e+00_rb,1.2711e+00_rb,7.1180e-01_rb,1.1953e-02_rb/)\n      kbo(:, 4,32, 5) = (/ &\n     &2.3424e+00_rb,1.9038e+00_rb,1.3629e+00_rb,7.6419e-01_rb,1.2125e-02_rb/)\n      kbo(:, 5,32, 5) = (/ &\n     &2.5216e+00_rb,2.0435e+00_rb,1.4643e+00_rb,8.2232e-01_rb,1.2240e-02_rb/)\n      kbo(:, 1,33, 5) = (/ &\n     &1.9423e+00_rb,1.5823e+00_rb,1.1236e+00_rb,6.2280e-01_rb,9.4667e-03_rb/)\n      kbo(:, 2,33, 5) = (/ &\n     &2.0728e+00_rb,1.6884e+00_rb,1.2018e+00_rb,6.6778e-01_rb,9.6991e-03_rb/)\n      kbo(:, 3,33, 5) = (/ &\n     &2.2222e+00_rb,1.8079e+00_rb,1.2892e+00_rb,7.1818e-01_rb,9.8807e-03_rb/)\n      kbo(:, 4,33, 5) = (/ &\n     &2.3928e+00_rb,1.9430e+00_rb,1.3880e+00_rb,7.7444e-01_rb,1.0013e-02_rb/)\n      kbo(:, 5,33, 5) = (/ &\n     &2.5873e+00_rb,2.0935e+00_rb,1.4975e+00_rb,8.3717e-01_rb,1.0093e-02_rb/)\n      kbo(:, 1,34, 5) = (/ &\n     &1.9127e+00_rb,1.5588e+00_rb,1.1053e+00_rb,6.1048e-01_rb,7.8309e-03_rb/)\n      kbo(:, 2,34, 5) = (/ &\n     &2.0473e+00_rb,1.6687e+00_rb,1.1862e+00_rb,6.5698e-01_rb,8.0168e-03_rb/)\n      kbo(:, 3,34, 5) = (/ &\n     &2.2050e+00_rb,1.7947e+00_rb,1.2785e+00_rb,7.0977e-01_rb,8.1571e-03_rb/)\n      kbo(:, 4,34, 5) = (/ &\n     &2.3844e+00_rb,1.9366e+00_rb,1.3818e+00_rb,7.6872e-01_rb,8.2588e-03_rb/)\n      kbo(:, 5,34, 5) = (/ &\n     &2.5878e+00_rb,2.0945e+00_rb,1.4977e+00_rb,8.3524e-01_rb,8.3102e-03_rb/)\n      kbo(:, 1,35, 5) = (/ &\n     &1.8762e+00_rb,1.5298e+00_rb,1.0833e+00_rb,5.9624e-01_rb,6.4645e-03_rb/)\n      kbo(:, 2,35, 5) = (/ &\n     &2.0161e+00_rb,1.6440e+00_rb,1.1673e+00_rb,6.4448e-01_rb,6.6144e-03_rb/)\n      kbo(:, 3,35, 5) = (/ &\n     &2.1796e+00_rb,1.7750e+00_rb,1.2632e+00_rb,6.9909e-01_rb,6.7276e-03_rb/)\n      kbo(:, 4,35, 5) = (/ &\n     &2.3668e+00_rb,1.9227e+00_rb,1.3710e+00_rb,7.6090e-01_rb,6.8022e-03_rb/)\n      kbo(:, 5,35, 5) = (/ &\n     &2.5757e+00_rb,2.0863e+00_rb,1.4915e+00_rb,8.3029e-01_rb,6.8468e-03_rb/)\n      kbo(:, 1,36, 5) = (/ &\n     &1.8177e+00_rb,1.4833e+00_rb,1.0492e+00_rb,5.7567e-01_rb,5.3254e-03_rb/)\n      kbo(:, 2,36, 5) = (/ &\n     &1.9605e+00_rb,1.6001e+00_rb,1.1349e+00_rb,6.2477e-01_rb,5.4464e-03_rb/)\n      kbo(:, 3,36, 5) = (/ &\n     &2.1269e+00_rb,1.7343e+00_rb,1.2332e+00_rb,6.8062e-01_rb,5.5407e-03_rb/)\n      kbo(:, 4,36, 5) = (/ &\n     &2.3182e+00_rb,1.8849e+00_rb,1.3435e+00_rb,7.4416e-01_rb,5.6019e-03_rb/)\n      kbo(:, 5,36, 5) = (/ &\n     &2.5291e+00_rb,2.0513e+00_rb,1.4663e+00_rb,8.1509e-01_rb,5.6408e-03_rb/)\n      kbo(:, 1,37, 5) = (/ &\n     &1.6997e+00_rb,1.3894e+00_rb,9.8190e-01_rb,5.3748e-01_rb,4.3666e-03_rb/)\n      kbo(:, 2,37, 5) = (/ &\n     &1.8378e+00_rb,1.5030e+00_rb,1.0654e+00_rb,5.8540e-01_rb,4.4691e-03_rb/)\n      kbo(:, 3,37, 5) = (/ &\n     &1.9994e+00_rb,1.6341e+00_rb,1.1617e+00_rb,6.4019e-01_rb,4.5481e-03_rb/)\n      kbo(:, 4,37, 5) = (/ &\n     &2.1860e+00_rb,1.7826e+00_rb,1.2707e+00_rb,7.0283e-01_rb,4.6056e-03_rb/)\n      kbo(:, 5,37, 5) = (/ &\n     &2.3914e+00_rb,1.9456e+00_rb,1.3911e+00_rb,7.7270e-01_rb,4.6416e-03_rb/)\n      kbo(:, 1,38, 5) = (/ &\n     &1.6123e+00_rb,1.3193e+00_rb,9.3139e-01_rb,5.0849e-01_rb,3.5784e-03_rb/)\n      kbo(:, 2,38, 5) = (/ &\n     &1.7479e+00_rb,1.4316e+00_rb,1.0139e+00_rb,5.5580e-01_rb,3.6670e-03_rb/)\n      kbo(:, 3,38, 5) = (/ &\n     &1.9074e+00_rb,1.5615e+00_rb,1.1092e+00_rb,6.1015e-01_rb,3.7371e-03_rb/)\n      kbo(:, 4,38, 5) = (/ &\n     &2.0911e+00_rb,1.7089e+00_rb,1.2176e+00_rb,6.7256e-01_rb,3.7869e-03_rb/)\n      kbo(:, 5,38, 5) = (/ &\n     &2.2948e+00_rb,1.8712e+00_rb,1.3379e+00_rb,7.4236e-01_rb,3.8180e-03_rb/)\n      kbo(:, 1,39, 5) = (/ &\n     &1.5653e+00_rb,1.2809e+00_rb,9.0306e-01_rb,4.9152e-01_rb,2.9339e-03_rb/)\n      kbo(:, 2,39, 5) = (/ &\n     &1.7011e+00_rb,1.3939e+00_rb,9.8605e-01_rb,5.3903e-01_rb,3.0110e-03_rb/)\n      kbo(:, 3,39, 5) = (/ &\n     &1.8625e+00_rb,1.5257e+00_rb,1.0827e+00_rb,5.9416e-01_rb,3.0720e-03_rb/)\n      kbo(:, 4,39, 5) = (/ &\n     &2.0480e+00_rb,1.6749e+00_rb,1.1927e+00_rb,6.5763e-01_rb,3.1176e-03_rb/)\n      kbo(:, 5,39, 5) = (/ &\n     &2.2545e+00_rb,1.8403e+00_rb,1.3150e+00_rb,7.2854e-01_rb,3.1424e-03_rb/)\n      kbo(:, 1,40, 5) = (/ &\n     &1.4161e+00_rb,1.1618e+00_rb,8.1883e-01_rb,4.4506e-01_rb,2.3961e-03_rb/)\n      kbo(:, 2,40, 5) = (/ &\n     &1.5422e+00_rb,1.2675e+00_rb,8.9661e-01_rb,4.8961e-01_rb,2.4634e-03_rb/)\n      kbo(:, 3,40, 5) = (/ &\n     &1.6929e+00_rb,1.3914e+00_rb,9.8762e-01_rb,5.4178e-01_rb,2.5182e-03_rb/)\n      kbo(:, 4,40, 5) = (/ &\n     &1.8671e+00_rb,1.5327e+00_rb,1.0918e+00_rb,6.0196e-01_rb,2.5595e-03_rb/)\n      kbo(:, 5,40, 5) = (/ &\n     &2.0610e+00_rb,1.6900e+00_rb,1.2084e+00_rb,6.6961e-01_rb,2.5831e-03_rb/)\n      kbo(:, 1,41, 5) = (/ &\n     &1.2765e+00_rb,1.0500e+00_rb,7.3977e-01_rb,4.0158e-01_rb,1.9558e-03_rb/)\n      kbo(:, 2,41, 5) = (/ &\n     &1.3934e+00_rb,1.1486e+00_rb,8.1252e-01_rb,4.4320e-01_rb,2.0159e-03_rb/)\n      kbo(:, 3,41, 5) = (/ &\n     &1.5329e+00_rb,1.2644e+00_rb,8.9774e-01_rb,4.9220e-01_rb,2.0644e-03_rb/)\n      kbo(:, 4,41, 5) = (/ &\n     &1.6957e+00_rb,1.3977e+00_rb,9.9605e-01_rb,5.4916e-01_rb,2.0998e-03_rb/)\n      kbo(:, 5,41, 5) = (/ &\n     &1.8778e+00_rb,1.5466e+00_rb,1.1067e+00_rb,6.1346e-01_rb,2.1224e-03_rb/)\n      kbo(:, 1,42, 5) = (/ &\n     &1.1627e+00_rb,9.5841e-01_rb,6.7494e-01_rb,3.6583e-01_rb,1.5975e-03_rb/)\n      kbo(:, 2,42, 5) = (/ &\n     &1.2723e+00_rb,1.0513e+00_rb,7.4339e-01_rb,4.0496e-01_rb,1.6498e-03_rb/)\n      kbo(:, 3,42, 5) = (/ &\n     &1.4029e+00_rb,1.1604e+00_rb,8.2397e-01_rb,4.5136e-01_rb,1.6921e-03_rb/)\n      kbo(:, 4,42, 5) = (/ &\n     &1.5564e+00_rb,1.2873e+00_rb,9.1770e-01_rb,5.0574e-01_rb,1.7229e-03_rb/)\n      kbo(:, 5,42, 5) = (/ &\n     &1.7292e+00_rb,1.4295e+00_rb,1.0235e+00_rb,5.6732e-01_rb,1.7439e-03_rb/)\n      kbo(:, 1,43, 5) = (/ &\n     &1.0630e+00_rb,8.7767e-01_rb,6.1763e-01_rb,3.3410e-01_rb,1.3020e-03_rb/)\n      kbo(:, 2,43, 5) = (/ &\n     &1.1654e+00_rb,9.6474e-01_rb,6.8178e-01_rb,3.7078e-01_rb,1.3472e-03_rb/)\n      kbo(:, 3,43, 5) = (/ &\n     &1.2879e+00_rb,1.0676e+00_rb,7.5775e-01_rb,4.1456e-01_rb,1.3843e-03_rb/)\n      kbo(:, 4,43, 5) = (/ &\n     &1.4323e+00_rb,1.1883e+00_rb,8.4702e-01_rb,4.6628e-01_rb,1.4122e-03_rb/)\n      kbo(:, 5,43, 5) = (/ &\n     &1.5961e+00_rb,1.3241e+00_rb,9.4813e-01_rb,5.2525e-01_rb,1.4316e-03_rb/)\n      kbo(:, 1,44, 5) = (/ &\n     &9.8265e-01_rb,8.1189e-01_rb,5.7078e-01_rb,3.0805e-01_rb,1.0595e-03_rb/)\n      kbo(:, 2,44, 5) = (/ &\n     &1.0790e+00_rb,8.9402e-01_rb,6.3105e-01_rb,3.4248e-01_rb,1.0984e-03_rb/)\n      kbo(:, 3,44, 5) = (/ &\n     &1.1944e+00_rb,9.9169e-01_rb,7.0312e-01_rb,3.8396e-01_rb,1.1318e-03_rb/)\n      kbo(:, 4,44, 5) = (/ &\n     &1.3318e+00_rb,1.1077e+00_rb,7.8899e-01_rb,4.3356e-01_rb,1.1566e-03_rb/)\n      kbo(:, 5,44, 5) = (/ &\n     &1.4887e+00_rb,1.2383e+00_rb,8.8644e-01_rb,4.9053e-01_rb,1.1752e-03_rb/)\n      kbo(:, 1,45, 5) = (/ &\n     &9.2676e-01_rb,7.6543e-01_rb,5.3731e-01_rb,2.8917e-01_rb,8.6207e-04_rb/)\n      kbo(:, 2,45, 5) = (/ &\n     &1.0188e+00_rb,8.4420e-01_rb,5.9503e-01_rb,3.2211e-01_rb,8.9589e-04_rb/)\n      kbo(:, 3,45, 5) = (/ &\n     &1.1295e+00_rb,9.3840e-01_rb,6.6449e-01_rb,3.6207e-01_rb,9.2491e-04_rb/)\n      kbo(:, 4,45, 5) = (/ &\n     &1.2624e+00_rb,1.0512e+00_rb,7.4797e-01_rb,4.1011e-01_rb,9.4724e-04_rb/)\n      kbo(:, 5,45, 5) = (/ &\n     &1.4159e+00_rb,1.1794e+00_rb,8.4359e-01_rb,4.6598e-01_rb,9.6431e-04_rb/)\n      kbo(:, 1,46, 5) = (/ &\n     &8.8115e-01_rb,7.2712e-01_rb,5.0946e-01_rb,2.7333e-01_rb,7.0044e-04_rb/)\n      kbo(:, 2,46, 5) = (/ &\n     &9.6873e-01_rb,8.0252e-01_rb,5.6477e-01_rb,3.0486e-01_rb,7.2940e-04_rb/)\n      kbo(:, 3,46, 5) = (/ &\n     &1.0759e+00_rb,8.9393e-01_rb,6.3210e-01_rb,3.4344e-01_rb,7.5456e-04_rb/)\n      kbo(:, 4,46, 5) = (/ &\n     &1.2051e+00_rb,1.0038e+00_rb,7.1323e-01_rb,3.9017e-01_rb,7.7543e-04_rb/)\n      kbo(:, 5,46, 5) = (/ &\n     &1.3559e+00_rb,1.1306e+00_rb,8.0761e-01_rb,4.4513e-01_rb,7.9123e-04_rb/)\n      kbo(:, 1,47, 5) = (/ &\n     &8.2708e-01_rb,6.8179e-01_rb,4.7670e-01_rb,2.5496e-01_rb,5.6723e-04_rb/)\n      kbo(:, 2,47, 5) = (/ &\n     &9.0841e-01_rb,7.5254e-01_rb,5.2877e-01_rb,2.8459e-01_rb,5.9237e-04_rb/)\n      kbo(:, 3,47, 5) = (/ &\n     &1.0102e+00_rb,8.3938e-01_rb,5.9264e-01_rb,3.2108e-01_rb,6.1461e-04_rb/)\n      kbo(:, 4,47, 5) = (/ &\n     &1.1336e+00_rb,9.4433e-01_rb,6.7005e-01_rb,3.6564e-01_rb,6.3367e-04_rb/)\n      kbo(:, 5,47, 5) = (/ &\n     &1.2789e+00_rb,1.0675e+00_rb,7.6147e-01_rb,4.1873e-01_rb,6.4826e-04_rb/)\n      kbo(:, 1,48, 5) = (/ &\n     &7.9882e-01_rb,6.5670e-01_rb,4.5801e-01_rb,2.4404e-01_rb,4.5910e-04_rb/)\n      kbo(:, 2,48, 5) = (/ &\n     &8.7602e-01_rb,7.2469e-01_rb,5.0814e-01_rb,2.7259e-01_rb,4.8082e-04_rb/)\n      kbo(:, 3,48, 5) = (/ &\n     &9.7485e-01_rb,8.0906e-01_rb,5.6998e-01_rb,3.0783e-01_rb,5.0059e-04_rb/)\n      kbo(:, 4,48, 5) = (/ &\n     &1.0951e+00_rb,9.1136e-01_rb,6.4533e-01_rb,3.5105e-01_rb,5.1769e-04_rb/)\n      kbo(:, 5,48, 5) = (/ &\n     &1.2389e+00_rb,1.0335e+00_rb,7.3563e-01_rb,4.0331e-01_rb,5.3087e-04_rb/)\n      kbo(:, 1,49, 5) = (/ &\n     &8.0402e-01_rb,6.5823e-01_rb,4.5761e-01_rb,2.4276e-01_rb,3.7137e-04_rb/)\n      kbo(:, 2,49, 5) = (/ &\n     &8.8031e-01_rb,7.2577e-01_rb,5.0751e-01_rb,2.7123e-01_rb,3.9017e-04_rb/)\n      kbo(:, 3,49, 5) = (/ &\n     &9.7946e-01_rb,8.1065e-01_rb,5.6941e-01_rb,3.0628e-01_rb,4.0777e-04_rb/)\n      kbo(:, 4,49, 5) = (/ &\n     &1.1011e+00_rb,9.1410e-01_rb,6.4521e-01_rb,3.4961e-01_rb,4.2272e-04_rb/)\n      kbo(:, 5,49, 5) = (/ &\n     &1.2484e+00_rb,1.0389e+00_rb,7.3730e-01_rb,4.0277e-01_rb,4.3479e-04_rb/)\n      kbo(:, 1,50, 5) = (/ &\n     &7.7254e-01_rb,6.3104e-01_rb,4.3765e-01_rb,2.3137e-01_rb,3.0017e-04_rb/)\n      kbo(:, 2,50, 5) = (/ &\n     &8.4478e-01_rb,6.9541e-01_rb,4.8529e-01_rb,2.5862e-01_rb,3.1617e-04_rb/)\n      kbo(:, 3,50, 5) = (/ &\n     &9.3925e-01_rb,7.7679e-01_rb,5.4465e-01_rb,2.9213e-01_rb,3.3160e-04_rb/)\n      kbo(:, 4,50, 5) = (/ &\n     &1.0567e+00_rb,8.7678e-01_rb,6.1788e-01_rb,3.3395e-01_rb,3.4487e-04_rb/)\n      kbo(:, 5,50, 5) = (/ &\n     &1.2008e+00_rb,9.9924e-01_rb,7.0798e-01_rb,3.8577e-01_rb,3.5577e-04_rb/)\n      kbo(:, 1,51, 5) = (/ &\n     &7.2669e-01_rb,5.9284e-01_rb,4.1030e-01_rb,2.1627e-01_rb,2.4246e-04_rb/)\n      kbo(:, 2,51, 5) = (/ &\n     &7.9410e-01_rb,6.5300e-01_rb,4.5497e-01_rb,2.4184e-01_rb,2.5602e-04_rb/)\n      kbo(:, 3,51, 5) = (/ &\n     &8.8167e-01_rb,7.2916e-01_rb,5.1056e-01_rb,2.7327e-01_rb,2.6933e-04_rb/)\n      kbo(:, 4,51, 5) = (/ &\n     &9.9265e-01_rb,8.2410e-01_rb,5.8011e-01_rb,3.1286e-01_rb,2.8099e-04_rb/)\n      kbo(:, 5,51, 5) = (/ &\n     &1.1303e+00_rb,9.4117e-01_rb,6.6603e-01_rb,3.6222e-01_rb,2.9075e-04_rb/)\n      kbo(:, 1,52, 5) = (/ &\n     &7.0293e-01_rb,5.7224e-01_rb,3.9526e-01_rb,2.0761e-01_rb,1.9566e-04_rb/)\n      kbo(:, 2,52, 5) = (/ &\n     &7.6814e-01_rb,6.3021e-01_rb,4.3806e-01_rb,2.3215e-01_rb,2.0717e-04_rb/)\n      kbo(:, 3,52, 5) = (/ &\n     &8.5099e-01_rb,7.0282e-01_rb,4.9133e-01_rb,2.6231e-01_rb,2.1874e-04_rb/)\n      kbo(:, 4,52, 5) = (/ &\n     &9.5857e-01_rb,7.9517e-01_rb,5.5876e-01_rb,3.0061e-01_rb,2.2893e-04_rb/)\n      kbo(:, 5,52, 5) = (/ &\n     &1.0928e+00_rb,9.0923e-01_rb,6.4230e-01_rb,3.4850e-01_rb,2.3751e-04_rb/)\n      kbo(:, 1,53, 5) = (/ &\n     &7.0799e-01_rb,5.7451e-01_rb,3.9589e-01_rb,2.0725e-01_rb,1.5775e-04_rb/)\n      kbo(:, 2,53, 5) = (/ &\n     &7.7421e-01_rb,6.3284e-01_rb,4.3870e-01_rb,2.3160e-01_rb,1.6771e-04_rb/)\n      kbo(:, 3,53, 5) = (/ &\n     &8.5551e-01_rb,7.0456e-01_rb,4.9136e-01_rb,2.6152e-01_rb,1.7761e-04_rb/)\n      kbo(:, 4,53, 5) = (/ &\n     &9.6362e-01_rb,7.9737e-01_rb,5.5891e-01_rb,2.9974e-01_rb,1.8647e-04_rb/)\n      kbo(:, 5,53, 5) = (/ &\n     &1.0993e+00_rb,9.1246e-01_rb,6.4296e-01_rb,3.4771e-01_rb,1.9425e-04_rb/)\n      kbo(:, 1,54, 5) = (/ &\n     &6.1781e-01_rb,5.0174e-01_rb,3.4551e-01_rb,1.8062e-01_rb,1.2698e-04_rb/)\n      kbo(:, 2,54, 5) = (/ &\n     &6.7617e-01_rb,5.5332e-01_rb,3.8324e-01_rb,2.0204e-01_rb,1.3548e-04_rb/)\n      kbo(:, 3,54, 5) = (/ &\n     &7.4609e-01_rb,6.1568e-01_rb,4.2927e-01_rb,2.2831e-01_rb,1.4360e-04_rb/)\n      kbo(:, 4,54, 5) = (/ &\n     &8.3975e-01_rb,6.9703e-01_rb,4.8868e-01_rb,2.6191e-01_rb,1.5134e-04_rb/)\n      kbo(:, 5,54, 5) = (/ &\n     &9.5851e-01_rb,7.9875e-01_rb,5.6310e-01_rb,3.0440e-01_rb,1.5803e-04_rb/)\n      kbo(:, 1,55, 5) = (/ &\n     &4.9218e-01_rb,4.0097e-01_rb,2.7614e-01_rb,1.4430e-01_rb,1.0197e-04_rb/)\n      kbo(:, 2,55, 5) = (/ &\n     &5.3911e-01_rb,4.4293e-01_rb,3.0686e-01_rb,1.6168e-01_rb,1.0930e-04_rb/)\n      kbo(:, 3,55, 5) = (/ &\n     &5.9446e-01_rb,4.9291e-01_rb,3.4401e-01_rb,1.8302e-01_rb,1.1592e-04_rb/)\n      kbo(:, 4,55, 5) = (/ &\n     &6.6816e-01_rb,5.5826e-01_rb,3.9205e-01_rb,2.1030e-01_rb,1.2249e-04_rb/)\n      kbo(:, 5,55, 5) = (/ &\n     &7.6300e-01_rb,6.4076e-01_rb,4.5273e-01_rb,2.4510e-01_rb,1.2815e-04_rb/)\n      kbo(:, 1,56, 5) = (/ &\n     &3.9213e-01_rb,3.2040e-01_rb,2.2062e-01_rb,1.1519e-01_rb,8.1886e-05_rb/)\n      kbo(:, 2,56, 5) = (/ &\n     &4.2970e-01_rb,3.5433e-01_rb,2.4555e-01_rb,1.2928e-01_rb,8.8029e-05_rb/)\n      kbo(:, 3,56, 5) = (/ &\n     &4.7372e-01_rb,3.9458e-01_rb,2.7557e-01_rb,1.4657e-01_rb,9.3592e-05_rb/)\n      kbo(:, 4,56, 5) = (/ &\n     &5.3136e-01_rb,4.4682e-01_rb,3.1425e-01_rb,1.6867e-01_rb,9.8924e-05_rb/)\n      kbo(:, 5,56, 5) = (/ &\n     &6.0680e-01_rb,5.1356e-01_rb,3.6377e-01_rb,1.9714e-01_rb,1.0388e-04_rb/)\n      kbo(:, 1,57, 5) = (/ &\n     &3.1256e-01_rb,2.5603e-01_rb,1.7627e-01_rb,9.1926e-02_rb,6.5686e-05_rb/)\n      kbo(:, 2,57, 5) = (/ &\n     &3.4230e-01_rb,2.8322e-01_rb,1.9630e-01_rb,1.0325e-01_rb,7.0810e-05_rb/)\n      kbo(:, 3,57, 5) = (/ &\n     &3.7748e-01_rb,3.1574e-01_rb,2.2058e-01_rb,1.1723e-01_rb,7.5533e-05_rb/)\n      kbo(:, 4,57, 5) = (/ &\n     &4.2229e-01_rb,3.5725e-01_rb,2.5162e-01_rb,1.3506e-01_rb,7.9907e-05_rb/)\n      kbo(:, 5,57, 5) = (/ &\n     &4.8209e-01_rb,4.1127e-01_rb,2.9188e-01_rb,1.5833e-01_rb,8.4096e-05_rb/)\n      kbo(:, 1,58, 5) = (/ &\n     &6.5834e-02_rb,6.6132e-02_rb,5.8548e-02_rb,4.2734e-02_rb,5.2667e-05_rb/)\n      kbo(:, 2,58, 5) = (/ &\n     &7.1968e-02_rb,7.3109e-02_rb,6.5197e-02_rb,4.8002e-02_rb,5.6984e-05_rb/)\n      kbo(:, 3,58, 5) = (/ &\n     &7.9437e-02_rb,8.1656e-02_rb,7.3428e-02_rb,5.4631e-02_rb,6.0874e-05_rb/)\n      kbo(:, 4,58, 5) = (/ &\n     &8.8662e-02_rb,9.2383e-02_rb,8.3809e-02_rb,6.3035e-02_rb,6.4619e-05_rb/)\n      kbo(:, 5,58, 5) = (/ &\n     &1.0118e-01_rb,1.0653e-01_rb,9.7458e-02_rb,7.4110e-02_rb,6.7988e-05_rb/)\n      kbo(:, 1,59, 5) = (/ &\n     &6.3055e-02_rb,6.1069e-02_rb,5.0451e-02_rb,3.2825e-02_rb,4.2796e-05_rb/)\n      kbo(:, 2,59, 5) = (/ &\n     &6.8995e-02_rb,6.7782e-02_rb,5.6462e-02_rb,3.7059e-02_rb,4.6289e-05_rb/)\n      kbo(:, 3,59, 5) = (/ &\n     &7.6280e-02_rb,7.6111e-02_rb,6.4009e-02_rb,4.2464e-02_rb,4.9459e-05_rb/)\n      kbo(:, 4,59, 5) = (/ &\n     &8.5284e-02_rb,8.6606e-02_rb,7.3583e-02_rb,4.9384e-02_rb,5.2442e-05_rb/)\n      kbo(:, 5,59, 5) = (/ &\n     &9.7585e-02_rb,1.0050e-01_rb,8.6230e-02_rb,5.8574e-02_rb,5.5198e-05_rb/)\n      kbo(:, 1,13, 6) = (/ &\n     &7.7180e+02_rb,5.7896e+02_rb,3.8611e+02_rb,1.9327e+02_rb,3.6289e-01_rb/)\n      kbo(:, 2,13, 6) = (/ &\n     &7.9285e+02_rb,5.9474e+02_rb,3.9664e+02_rb,1.9853e+02_rb,3.7298e-01_rb/)\n      kbo(:, 3,13, 6) = (/ &\n     &8.1518e+02_rb,6.1149e+02_rb,4.0780e+02_rb,2.0411e+02_rb,3.8121e-01_rb/)\n      kbo(:, 4,13, 6) = (/ &\n     &8.3776e+02_rb,6.2842e+02_rb,4.1908e+02_rb,2.0974e+02_rb,3.8734e-01_rb/)\n      kbo(:, 5,13, 6) = (/ &\n     &8.6087e+02_rb,6.4575e+02_rb,4.3063e+02_rb,2.1551e+02_rb,3.9230e-01_rb/)\n      kbo(:, 1,14, 6) = (/ &\n     &4.1395e+02_rb,3.1056e+02_rb,2.0718e+02_rb,1.0380e+02_rb,3.3381e-01_rb/)\n      kbo(:, 2,14, 6) = (/ &\n     &4.2539e+02_rb,3.1915e+02_rb,2.1290e+02_rb,1.0666e+02_rb,3.4169e-01_rb/)\n      kbo(:, 3,14, 6) = (/ &\n     &4.3723e+02_rb,3.2803e+02_rb,2.1882e+02_rb,1.0962e+02_rb,3.4947e-01_rb/)\n      kbo(:, 4,14, 6) = (/ &\n     &4.4927e+02_rb,3.3705e+02_rb,2.2483e+02_rb,1.1261e+02_rb,3.5567e-01_rb/)\n      kbo(:, 5,14, 6) = (/ &\n     &4.6195e+02_rb,3.4656e+02_rb,2.3117e+02_rb,1.1578e+02_rb,3.6065e-01_rb/)\n      kbo(:, 1,15, 6) = (/ &\n     &2.2585e+02_rb,1.6949e+02_rb,1.1313e+02_rb,5.6770e+01_rb,3.0356e-01_rb/)\n      kbo(:, 2,15, 6) = (/ &\n     &2.3201e+02_rb,1.7411e+02_rb,1.1621e+02_rb,5.8311e+01_rb,3.1091e-01_rb/)\n      kbo(:, 3,15, 6) = (/ &\n     &2.3839e+02_rb,1.7889e+02_rb,1.1939e+02_rb,5.9899e+01_rb,3.1810e-01_rb/)\n      kbo(:, 4,15, 6) = (/ &\n     &2.4502e+02_rb,1.8386e+02_rb,1.2270e+02_rb,6.1544e+01_rb,3.2391e-01_rb/)\n      kbo(:, 5,15, 6) = (/ &\n     &2.5289e+02_rb,1.8977e+02_rb,1.2664e+02_rb,6.3520e+01_rb,3.2850e-01_rb/)\n      kbo(:, 1,16, 6) = (/ &\n     &1.4635e+02_rb,1.0986e+02_rb,7.3372e+01_rb,3.6890e+01_rb,2.7344e-01_rb/)\n      kbo(:, 2,16, 6) = (/ &\n     &1.5031e+02_rb,1.1283e+02_rb,7.5356e+01_rb,3.7881e+01_rb,2.8092e-01_rb/)\n      kbo(:, 3,16, 6) = (/ &\n     &1.5444e+02_rb,1.1592e+02_rb,7.7407e+01_rb,3.8900e+01_rb,2.8781e-01_rb/)\n      kbo(:, 4,16, 6) = (/ &\n     &1.5922e+02_rb,1.1951e+02_rb,7.9797e+01_rb,4.0091e+01_rb,2.9332e-01_rb/)\n      kbo(:, 5,16, 6) = (/ &\n     &1.6548e+02_rb,1.2420e+02_rb,8.2930e+01_rb,4.1661e+01_rb,2.9808e-01_rb/)\n      kbo(:, 1,17, 6) = (/ &\n     &9.8142e+01_rb,7.3705e+01_rb,4.9268e+01_rb,2.4840e+01_rb,2.4429e-01_rb/)\n      kbo(:, 2,17, 6) = (/ &\n     &1.0076e+02_rb,7.5668e+01_rb,5.0576e+01_rb,2.5493e+01_rb,2.5184e-01_rb/)\n      kbo(:, 3,17, 6) = (/ &\n     &1.0378e+02_rb,7.7926e+01_rb,5.2073e+01_rb,2.6235e+01_rb,2.5821e-01_rb/)\n      kbo(:, 4,17, 6) = (/ &\n     &1.0768e+02_rb,8.0849e+01_rb,5.4024e+01_rb,2.7211e+01_rb,2.6339e-01_rb/)\n      kbo(:, 5,17, 6) = (/ &\n     &1.1267e+02_rb,8.4599e+01_rb,5.6526e+01_rb,2.8462e+01_rb,2.6841e-01_rb/)\n      kbo(:, 1,18, 6) = (/ &\n     &6.7329e+01_rb,5.0594e+01_rb,3.3862e+01_rb,1.7162e+01_rb,2.1677e-01_rb/)\n      kbo(:, 2,18, 6) = (/ &\n     &6.9224e+01_rb,5.2009e+01_rb,3.4803e+01_rb,1.7627e+01_rb,2.2376e-01_rb/)\n      kbo(:, 3,18, 6) = (/ &\n     &7.1671e+01_rb,5.3842e+01_rb,3.6019e+01_rb,1.8223e+01_rb,2.2981e-01_rb/)\n      kbo(:, 4,18, 6) = (/ &\n     &7.4922e+01_rb,5.6283e+01_rb,3.7648e+01_rb,1.9036e+01_rb,2.3516e-01_rb/)\n      kbo(:, 5,18, 6) = (/ &\n     &7.8609e+01_rb,5.9048e+01_rb,3.9493e+01_rb,1.9956e+01_rb,2.4055e-01_rb/)\n      kbo(:, 1,19, 6) = (/ &\n     &4.5351e+01_rb,3.4111e+01_rb,2.2879e+01_rb,1.1748e+01_rb,1.9068e-01_rb/)\n      kbo(:, 2,19, 6) = (/ &\n     &4.6788e+01_rb,3.5180e+01_rb,2.3587e+01_rb,1.2086e+01_rb,1.9727e-01_rb/)\n      kbo(:, 3,19, 6) = (/ &\n     &4.8819e+01_rb,3.6704e+01_rb,2.4596e+01_rb,1.2571e+01_rb,2.0322e-01_rb/)\n      kbo(:, 4,19, 6) = (/ &\n     &5.1243e+01_rb,3.8523e+01_rb,2.5810e+01_rb,1.3165e+01_rb,2.0895e-01_rb/)\n      kbo(:, 5,19, 6) = (/ &\n     &5.3759e+01_rb,4.0411e+01_rb,2.7071e+01_rb,1.3784e+01_rb,2.1468e-01_rb/)\n      kbo(:, 1,20, 6) = (/ &\n     &3.3050e+01_rb,2.4885e+01_rb,1.6741e+01_rb,8.7700e+00_rb,1.6695e-01_rb/)\n      kbo(:, 2,20, 6) = (/ &\n     &3.4346e+01_rb,2.5850e+01_rb,1.7375e+01_rb,9.0666e+00_rb,1.7321e-01_rb/)\n      kbo(:, 3,20, 6) = (/ &\n     &3.6031e+01_rb,2.7114e+01_rb,1.8213e+01_rb,9.4660e+00_rb,1.7929e-01_rb/)\n      kbo(:, 4,20, 6) = (/ &\n     &3.7866e+01_rb,2.8491e+01_rb,1.9130e+01_rb,9.9045e+00_rb,1.8515e-01_rb/)\n      kbo(:, 5,20, 6) = (/ &\n     &3.9713e+01_rb,2.9876e+01_rb,2.0052e+01_rb,1.0350e+01_rb,1.9066e-01_rb/)\n      kbo(:, 1,21, 6) = (/ &\n     &2.4844e+01_rb,1.8731e+01_rb,1.2673e+01_rb,6.7851e+00_rb,1.4553e-01_rb/)\n      kbo(:, 2,21, 6) = (/ &\n     &2.6012e+01_rb,1.9600e+01_rb,1.3239e+01_rb,7.0557e+00_rb,1.5180e-01_rb/)\n      kbo(:, 3,21, 6) = (/ &\n     &2.7347e+01_rb,2.0602e+01_rb,1.3900e+01_rb,7.3743e+00_rb,1.5767e-01_rb/)\n      kbo(:, 4,21, 6) = (/ &\n     &2.8734e+01_rb,2.1643e+01_rb,1.4586e+01_rb,7.7037e+00_rb,1.6319e-01_rb/)\n      kbo(:, 5,21, 6) = (/ &\n     &3.0137e+01_rb,2.2696e+01_rb,1.5284e+01_rb,8.0405e+00_rb,1.6831e-01_rb/)\n      kbo(:, 1,22, 6) = (/ &\n     &1.9244e+01_rb,1.4532e+01_rb,9.9298e+00_rb,5.4125e+00_rb,1.2703e-01_rb/)\n      kbo(:, 2,22, 6) = (/ &\n     &2.0224e+01_rb,1.5263e+01_rb,1.0402e+01_rb,5.6515e+00_rb,1.3287e-01_rb/)\n      kbo(:, 3,22, 6) = (/ &\n     &2.1278e+01_rb,1.6053e+01_rb,1.0915e+01_rb,5.9058e+00_rb,1.3815e-01_rb/)\n      kbo(:, 4,22, 6) = (/ &\n     &2.2359e+01_rb,1.6864e+01_rb,1.1443e+01_rb,6.1676e+00_rb,1.4315e-01_rb/)\n      kbo(:, 5,22, 6) = (/ &\n     &2.3448e+01_rb,1.7683e+01_rb,1.1980e+01_rb,6.4316e+00_rb,1.4780e-01_rb/)\n      kbo(:, 1,23, 6) = (/ &\n     &1.5003e+01_rb,1.1361e+01_rb,7.8631e+00_rb,4.3544e+00_rb,1.1053e-01_rb/)\n      kbo(:, 2,23, 6) = (/ &\n     &1.5788e+01_rb,1.1946e+01_rb,8.2434e+00_rb,4.5541e+00_rb,1.1564e-01_rb/)\n      kbo(:, 3,23, 6) = (/ &\n     &1.6609e+01_rb,1.2560e+01_rb,8.6387e+00_rb,4.7603e+00_rb,1.2034e-01_rb/)\n      kbo(:, 4,23, 6) = (/ &\n     &1.7444e+01_rb,1.3184e+01_rb,9.0429e+00_rb,4.9691e+00_rb,1.2479e-01_rb/)\n      kbo(:, 5,23, 6) = (/ &\n     &1.8318e+01_rb,1.3840e+01_rb,9.4687e+00_rb,5.1869e+00_rb,1.2894e-01_rb/)\n      kbo(:, 1,24, 6) = (/ &\n     &1.1642e+01_rb,8.8646e+00_rb,6.2180e+00_rb,3.4890e+00_rb,9.5642e-02_rb/)\n      kbo(:, 2,24, 6) = (/ &\n     &1.2250e+01_rb,9.3143e+00_rb,6.5164e+00_rb,3.6525e+00_rb,1.0007e-01_rb/)\n      kbo(:, 3,24, 6) = (/ &\n     &1.2878e+01_rb,9.7800e+00_rb,6.8207e+00_rb,3.8184e+00_rb,1.0423e-01_rb/)\n      kbo(:, 4,24, 6) = (/ &\n     &1.3534e+01_rb,1.0267e+01_rb,7.1387e+00_rb,3.9893e+00_rb,1.0818e-01_rb/)\n      kbo(:, 5,24, 6) = (/ &\n     &1.4255e+01_rb,1.0806e+01_rb,7.4905e+00_rb,4.1737e+00_rb,1.1190e-01_rb/)\n      kbo(:, 1,25, 6) = (/ &\n     &9.1475e+00_rb,7.0241e+00_rb,4.9880e+00_rb,2.8234e+00_rb,8.2353e-02_rb/)\n      kbo(:, 2,25, 6) = (/ &\n     &9.6194e+00_rb,7.3705e+00_rb,5.2236e+00_rb,2.9556e+00_rb,8.6208e-02_rb/)\n      kbo(:, 3,25, 6) = (/ &\n     &1.0118e+01_rb,7.7356e+00_rb,5.4684e+00_rb,3.0922e+00_rb,8.9882e-02_rb/)\n      kbo(:, 4,25, 6) = (/ &\n     &1.0662e+01_rb,8.1371e+00_rb,5.7357e+00_rb,3.2382e+00_rb,9.3407e-02_rb/)\n      kbo(:, 5,25, 6) = (/ &\n     &1.1279e+01_rb,8.5947e+00_rb,6.0377e+00_rb,3.4015e+00_rb,9.6770e-02_rb/)\n      kbo(:, 1,26, 6) = (/ &\n     &7.3112e+00_rb,5.6725e+00_rb,4.0689e+00_rb,2.3123e+00_rb,7.0640e-02_rb/)\n      kbo(:, 2,26, 6) = (/ &\n     &7.6950e+00_rb,5.9535e+00_rb,4.2634e+00_rb,2.4227e+00_rb,7.4010e-02_rb/)\n      kbo(:, 3,26, 6) = (/ &\n     &8.1066e+00_rb,6.2538e+00_rb,4.4719e+00_rb,2.5387e+00_rb,7.7271e-02_rb/)\n      kbo(:, 4,26, 6) = (/ &\n     &8.5794e+00_rb,6.6014e+00_rb,4.7086e+00_rb,2.6686e+00_rb,8.0450e-02_rb/)\n      kbo(:, 5,26, 6) = (/ &\n     &9.1099e+00_rb,6.9909e+00_rb,4.9735e+00_rb,2.8158e+00_rb,8.3380e-02_rb/)\n      kbo(:, 1,27, 6) = (/ &\n     &6.0744e+00_rb,4.7606e+00_rb,3.4368e+00_rb,1.9534e+00_rb,6.0404e-02_rb/)\n      kbo(:, 2,27, 6) = (/ &\n     &6.4010e+00_rb,4.9996e+00_rb,3.6064e+00_rb,2.0495e+00_rb,6.3391e-02_rb/)\n      kbo(:, 3,27, 6) = (/ &\n     &6.7712e+00_rb,5.2713e+00_rb,3.7979e+00_rb,2.1556e+00_rb,6.6293e-02_rb/)\n      kbo(:, 4,27, 6) = (/ &\n     &7.1986e+00_rb,5.5846e+00_rb,4.0153e+00_rb,2.2772e+00_rb,6.9007e-02_rb/)\n      kbo(:, 5,27, 6) = (/ &\n     &7.6755e+00_rb,5.9357e+00_rb,4.2585e+00_rb,2.4127e+00_rb,7.1247e-02_rb/)\n      kbo(:, 1,28, 6) = (/ &\n     &5.1866e+00_rb,4.1033e+00_rb,2.9724e+00_rb,1.6878e+00_rb,5.1571e-02_rb/)\n      kbo(:, 2,28, 6) = (/ &\n     &5.4861e+00_rb,4.3239e+00_rb,3.1305e+00_rb,1.7765e+00_rb,5.4219e-02_rb/)\n      kbo(:, 3,28, 6) = (/ &\n     &5.8320e+00_rb,4.5795e+00_rb,3.3130e+00_rb,1.8782e+00_rb,5.6690e-02_rb/)\n      kbo(:, 4,28, 6) = (/ &\n     &6.2247e+00_rb,4.8686e+00_rb,3.5188e+00_rb,1.9940e+00_rb,5.8750e-02_rb/)\n      kbo(:, 5,28, 6) = (/ &\n     &6.6558e+00_rb,5.1871e+00_rb,3.7446e+00_rb,2.1214e+00_rb,6.0243e-02_rb/)\n      kbo(:, 1,29, 6) = (/ &\n     &4.7142e+00_rb,3.7524e+00_rb,2.7162e+00_rb,1.5365e+00_rb,4.4039e-02_rb/)\n      kbo(:, 2,29, 6) = (/ &\n     &5.0090e+00_rb,3.9723e+00_rb,2.8754e+00_rb,1.6258e+00_rb,4.6277e-02_rb/)\n      kbo(:, 3,29, 6) = (/ &\n     &5.3480e+00_rb,4.2236e+00_rb,3.0565e+00_rb,1.7286e+00_rb,4.8156e-02_rb/)\n      kbo(:, 4,29, 6) = (/ &\n     &5.7292e+00_rb,4.5074e+00_rb,3.2622e+00_rb,1.8442e+00_rb,4.9560e-02_rb/)\n      kbo(:, 5,29, 6) = (/ &\n     &6.1329e+00_rb,4.8058e+00_rb,3.4771e+00_rb,1.9687e+00_rb,5.0487e-02_rb/)\n      kbo(:, 1,30, 6) = (/ &\n     &4.4038e+00_rb,3.5211e+00_rb,2.5447e+00_rb,1.4336e+00_rb,3.7528e-02_rb/)\n      kbo(:, 2,30, 6) = (/ &\n     &4.6996e+00_rb,3.7441e+00_rb,2.7067e+00_rb,1.5257e+00_rb,3.9262e-02_rb/)\n      kbo(:, 3,30, 6) = (/ &\n     &5.0396e+00_rb,3.9983e+00_rb,2.8921e+00_rb,1.6308e+00_rb,4.0573e-02_rb/)\n      kbo(:, 4,30, 6) = (/ &\n     &5.4089e+00_rb,4.2744e+00_rb,3.0942e+00_rb,1.7467e+00_rb,4.1475e-02_rb/)\n      kbo(:, 5,30, 6) = (/ &\n     &5.8026e+00_rb,4.5655e+00_rb,3.3058e+00_rb,1.8693e+00_rb,4.2084e-02_rb/)\n      kbo(:, 1,31, 6) = (/ &\n     &4.3406e+00_rb,3.4756e+00_rb,2.5043e+00_rb,1.4029e+00_rb,3.1837e-02_rb/)\n      kbo(:, 2,31, 6) = (/ &\n     &4.6530e+00_rb,3.7116e+00_rb,2.6766e+00_rb,1.5014e+00_rb,3.3063e-02_rb/)\n      kbo(:, 3,31, 6) = (/ &\n     &5.0025e+00_rb,3.9754e+00_rb,2.8716e+00_rb,1.6130e+00_rb,3.3948e-02_rb/)\n      kbo(:, 4,31, 6) = (/ &\n     &5.3785e+00_rb,4.2562e+00_rb,3.0774e+00_rb,1.7319e+00_rb,3.4570e-02_rb/)\n      kbo(:, 5,31, 6) = (/ &\n     &5.7889e+00_rb,4.5595e+00_rb,3.2989e+00_rb,1.8598e+00_rb,3.4986e-02_rb/)\n      kbo(:, 1,32, 6) = (/ &\n     &4.3396e+00_rb,3.4769e+00_rb,2.4992e+00_rb,1.3933e+00_rb,2.6827e-02_rb/)\n      kbo(:, 2,32, 6) = (/ &\n     &4.6714e+00_rb,3.7286e+00_rb,2.6844e+00_rb,1.4997e+00_rb,2.7685e-02_rb/)\n      kbo(:, 3,32, 6) = (/ &\n     &5.0312e+00_rb,4.0002e+00_rb,2.8855e+00_rb,1.6156e+00_rb,2.8303e-02_rb/)\n      kbo(:, 4,32, 6) = (/ &\n     &5.4256e+00_rb,4.2946e+00_rb,3.1010e+00_rb,1.7399e+00_rb,2.8748e-02_rb/)\n      kbo(:, 5,32, 6) = (/ &\n     &5.8665e+00_rb,4.6212e+00_rb,3.3393e+00_rb,1.8767e+00_rb,2.9064e-02_rb/)\n      kbo(:, 1,33, 6) = (/ &\n     &4.4332e+00_rb,3.5489e+00_rb,2.5452e+00_rb,1.4121e+00_rb,2.2496e-02_rb/)\n      kbo(:, 2,33, 6) = (/ &\n     &4.7823e+00_rb,3.8149e+00_rb,2.7429e+00_rb,1.5266e+00_rb,2.3111e-02_rb/)\n      kbo(:, 3,33, 6) = (/ &\n     &5.1647e+00_rb,4.1029e+00_rb,2.9548e+00_rb,1.6483e+00_rb,2.3573e-02_rb/)\n      kbo(:, 4,33, 6) = (/ &\n     &5.5917e+00_rb,4.4208e+00_rb,3.1884e+00_rb,1.7830e+00_rb,2.3904e-02_rb/)\n      kbo(:, 5,33, 6) = (/ &\n     &6.0743e+00_rb,4.7788e+00_rb,3.4474e+00_rb,1.9321e+00_rb,2.4134e-02_rb/)\n      kbo(:, 1,34, 6) = (/ &\n     &4.4125e+00_rb,3.5356e+00_rb,2.5335e+00_rb,1.4023e+00_rb,1.8787e-02_rb/)\n      kbo(:, 2,34, 6) = (/ &\n     &4.7724e+00_rb,3.8103e+00_rb,2.7374e+00_rb,1.5195e+00_rb,1.9239e-02_rb/)\n      kbo(:, 3,34, 6) = (/ &\n     &5.1721e+00_rb,4.1112e+00_rb,2.9584e+00_rb,1.6475e+00_rb,1.9590e-02_rb/)\n      kbo(:, 4,34, 6) = (/ &\n     &5.6244e+00_rb,4.4492e+00_rb,3.2069e+00_rb,1.7903e+00_rb,1.9843e-02_rb/)\n      kbo(:, 5,34, 6) = (/ &\n     &6.1384e+00_rb,4.8292e+00_rb,3.4834e+00_rb,1.9492e+00_rb,2.0036e-02_rb/)\n      kbo(:, 1,35, 6) = (/ &\n     &4.3717e+00_rb,3.5073e+00_rb,2.5119e+00_rb,1.3871e+00_rb,1.5622e-02_rb/)\n      kbo(:, 2,35, 6) = (/ &\n     &4.7431e+00_rb,3.7911e+00_rb,2.7216e+00_rb,1.5076e+00_rb,1.5975e-02_rb/)\n      kbo(:, 3,35, 6) = (/ &\n     &5.1596e+00_rb,4.1047e+00_rb,2.9535e+00_rb,1.6419e+00_rb,1.6252e-02_rb/)\n      kbo(:, 4,35, 6) = (/ &\n     &5.6365e+00_rb,4.4612e+00_rb,3.2141e+00_rb,1.7918e+00_rb,1.6461e-02_rb/)\n      kbo(:, 5,35, 6) = (/ &\n     &6.1774e+00_rb,4.8609e+00_rb,3.5048e+00_rb,1.9589e+00_rb,1.6599e-02_rb/)\n      kbo(:, 1,36, 6) = (/ &\n     &4.2736e+00_rb,3.4354e+00_rb,2.4585e+00_rb,1.3548e+00_rb,1.2936e-02_rb/)\n      kbo(:, 2,36, 6) = (/ &\n     &4.6496e+00_rb,3.7234e+00_rb,2.6724e+00_rb,1.4783e+00_rb,1.3228e-02_rb/)\n      kbo(:, 3,36, 6) = (/ &\n     &5.0769e+00_rb,4.0460e+00_rb,2.9111e+00_rb,1.6163e+00_rb,1.3462e-02_rb/)\n      kbo(:, 4,36, 6) = (/ &\n     &5.5708e+00_rb,4.4155e+00_rb,3.1813e+00_rb,1.7716e+00_rb,1.3637e-02_rb/)\n      kbo(:, 5,36, 6) = (/ &\n     &6.1338e+00_rb,4.8311e+00_rb,3.4822e+00_rb,1.9445e+00_rb,1.3753e-02_rb/)\n      kbo(:, 1,37, 6) = (/ &\n     &4.0234e+00_rb,3.2473e+00_rb,2.3232e+00_rb,1.2788e+00_rb,1.0671e-02_rb/)\n      kbo(:, 2,37, 6) = (/ &\n     &4.3892e+00_rb,3.5290e+00_rb,2.5324e+00_rb,1.3998e+00_rb,1.0924e-02_rb/)\n      kbo(:, 3,37, 6) = (/ &\n     &4.8090e+00_rb,3.8477e+00_rb,2.7688e+00_rb,1.5370e+00_rb,1.1122e-02_rb/)\n      kbo(:, 4,37, 6) = (/ &\n     &5.2982e+00_rb,4.2143e+00_rb,3.0374e+00_rb,1.6915e+00_rb,1.1275e-02_rb/)\n      kbo(:, 5,37, 6) = (/ &\n     &5.8599e+00_rb,4.6308e+00_rb,3.3399e+00_rb,1.8652e+00_rb,1.1382e-02_rb/)\n      kbo(:, 1,38, 6) = (/ &\n     &3.8405e+00_rb,3.1094e+00_rb,2.2232e+00_rb,1.2223e+00_rb,8.8011e-03_rb/)\n      kbo(:, 2,38, 6) = (/ &\n     &4.2026e+00_rb,3.3894e+00_rb,2.4317e+00_rb,1.3429e+00_rb,9.0204e-03_rb/)\n      kbo(:, 3,38, 6) = (/ &\n     &4.6223e+00_rb,3.7094e+00_rb,2.6688e+00_rb,1.4805e+00_rb,9.1889e-03_rb/)\n      kbo(:, 4,38, 6) = (/ &\n     &5.1135e+00_rb,4.0786e+00_rb,2.9400e+00_rb,1.6366e+00_rb,9.3266e-03_rb/)\n      kbo(:, 5,38, 6) = (/ &\n     &5.6812e+00_rb,4.4997e+00_rb,3.2457e+00_rb,1.8125e+00_rb,9.4327e-03_rb/)\n      kbo(:, 1,39, 6) = (/ &\n     &3.7513e+00_rb,3.0429e+00_rb,2.1735e+00_rb,1.1927e+00_rb,7.2681e-03_rb/)\n      kbo(:, 2,39, 6) = (/ &\n     &4.1185e+00_rb,3.3272e+00_rb,2.3853e+00_rb,1.3156e+00_rb,7.4517e-03_rb/)\n      kbo(:, 3,39, 6) = (/ &\n     &4.5480e+00_rb,3.6554e+00_rb,2.6285e+00_rb,1.4564e+00_rb,7.6013e-03_rb/)\n      kbo(:, 4,39, 6) = (/ &\n     &5.0522e+00_rb,4.0351e+00_rb,2.9074e+00_rb,1.6167e+00_rb,7.7185e-03_rb/)\n      kbo(:, 5,39, 6) = (/ &\n     &5.6411e+00_rb,4.4721e+00_rb,3.2250e+00_rb,1.7992e+00_rb,7.8245e-03_rb/)\n      kbo(:, 1,40, 6) = (/ &\n     &3.4100e+00_rb,2.7806e+00_rb,1.9856e+00_rb,1.0896e+00_rb,5.9768e-03_rb/)\n      kbo(:, 2,40, 6) = (/ &\n     &3.7541e+00_rb,3.0505e+00_rb,2.1868e+00_rb,1.2067e+00_rb,6.1348e-03_rb/)\n      kbo(:, 3,40, 6) = (/ &\n     &4.1600e+00_rb,3.3636e+00_rb,2.4194e+00_rb,1.3415e+00_rb,6.2676e-03_rb/)\n      kbo(:, 4,40, 6) = (/ &\n     &4.6404e+00_rb,3.7278e+00_rb,2.6880e+00_rb,1.4963e+00_rb,6.3713e-03_rb/)\n      kbo(:, 5,40, 6) = (/ &\n     &5.2035e+00_rb,4.1476e+00_rb,2.9948e+00_rb,1.6730e+00_rb,6.4667e-03_rb/)\n      kbo(:, 1,41, 6) = (/ &\n     &3.0891e+00_rb,2.5323e+00_rb,1.8076e+00_rb,9.9199e-01_rb,4.9106e-03_rb/)\n      kbo(:, 2,41, 6) = (/ &\n     &3.4100e+00_rb,2.7866e+00_rb,1.9972e+00_rb,1.1027e+00_rb,5.0459e-03_rb/)\n      kbo(:, 3,41, 6) = (/ &\n     &3.7913e+00_rb,3.0833e+00_rb,2.2185e+00_rb,1.2311e+00_rb,5.1622e-03_rb/)\n      kbo(:, 4,41, 6) = (/ &\n     &4.2439e+00_rb,3.4304e+00_rb,2.4754e+00_rb,1.3795e+00_rb,5.2594e-03_rb/)\n      kbo(:, 5,41, 6) = (/ &\n     &4.7807e+00_rb,3.8337e+00_rb,2.7715e+00_rb,1.5507e+00_rb,5.3436e-03_rb/)\n      kbo(:, 1,42, 6) = (/ &\n     &2.8278e+00_rb,2.3283e+00_rb,1.6611e+00_rb,9.1142e-01_rb,4.0331e-03_rb/)\n      kbo(:, 2,42, 6) = (/ &\n     &3.1295e+00_rb,2.5702e+00_rb,1.8417e+00_rb,1.0169e+00_rb,4.1507e-03_rb/)\n      kbo(:, 3,42, 6) = (/ &\n     &3.4910e+00_rb,2.8544e+00_rb,2.0536e+00_rb,1.1401e+00_rb,4.2525e-03_rb/)\n      kbo(:, 4,42, 6) = (/ &\n     &3.9235e+00_rb,3.1883e+00_rb,2.3016e+00_rb,1.2837e+00_rb,4.3408e-03_rb/)\n      kbo(:, 5,42, 6) = (/ &\n     &4.4380e+00_rb,3.5784e+00_rb,2.5896e+00_rb,1.4506e+00_rb,4.4170e-03_rb/)\n      kbo(:, 1,43, 6) = (/ &\n     &2.5971e+00_rb,2.1460e+00_rb,1.5298e+00_rb,8.3854e-01_rb,3.3049e-03_rb/)\n      kbo(:, 2,43, 6) = (/ &\n     &2.8799e+00_rb,2.3759e+00_rb,1.7013e+00_rb,9.3880e-01_rb,3.4092e-03_rb/)\n      kbo(:, 3,43, 6) = (/ &\n     &3.2202e+00_rb,2.6461e+00_rb,1.9035e+00_rb,1.0566e+00_rb,3.5003e-03_rb/)\n      kbo(:, 4,43, 6) = (/ &\n     &3.6329e+00_rb,2.9678e+00_rb,2.1426e+00_rb,1.1949e+00_rb,3.5773e-03_rb/)\n      kbo(:, 5,43, 6) = (/ &\n     &4.1275e+00_rb,3.3455e+00_rb,2.4216e+00_rb,1.3572e+00_rb,3.6480e-03_rb/)\n      kbo(:, 1,44, 6) = (/ &\n     &2.4109e+00_rb,1.9983e+00_rb,1.4225e+00_rb,7.7812e-01_rb,2.7054e-03_rb/)\n      kbo(:, 2,44, 6) = (/ &\n     &2.6776e+00_rb,2.2170e+00_rb,1.5862e+00_rb,8.7403e-01_rb,2.7971e-03_rb/)\n      kbo(:, 3,44, 6) = (/ &\n     &3.0022e+00_rb,2.4769e+00_rb,1.7806e+00_rb,9.8740e-01_rb,2.8773e-03_rb/)\n      kbo(:, 4,44, 6) = (/ &\n     &3.3965e+00_rb,2.7871e+00_rb,2.0115e+00_rb,1.1213e+00_rb,2.9478e-03_rb/)\n      kbo(:, 5,44, 6) = (/ &\n     &3.8747e+00_rb,3.1555e+00_rb,2.2836e+00_rb,1.2791e+00_rb,3.0101e-03_rb/)\n      kbo(:, 1,45, 6) = (/ &\n     &2.2815e+00_rb,1.8944e+00_rb,1.3464e+00_rb,7.3467e-01_rb,2.2130e-03_rb/)\n      kbo(:, 2,45, 6) = (/ &\n     &2.5401e+00_rb,2.1081e+00_rb,1.5065e+00_rb,8.2816e-01_rb,2.2948e-03_rb/)\n      kbo(:, 3,45, 6) = (/ &\n     &2.8533e+00_rb,2.3602e+00_rb,1.6948e+00_rb,9.3826e-01_rb,2.3656e-03_rb/)\n      kbo(:, 4,45, 6) = (/ &\n     &3.2382e+00_rb,2.6655e+00_rb,1.9218e+00_rb,1.0700e+00_rb,2.4291e-03_rb/)\n      kbo(:, 5,45, 6) = (/ &\n     &3.7076e+00_rb,3.0298e+00_rb,2.1912e+00_rb,1.2259e+00_rb,2.4852e-03_rb/)\n      kbo(:, 1,46, 6) = (/ &\n     &2.1752e+00_rb,1.8075e+00_rb,1.2824e+00_rb,6.9758e-01_rb,1.8083e-03_rb/)\n      kbo(:, 2,46, 6) = (/ &\n     &2.4262e+00_rb,2.0168e+00_rb,1.4391e+00_rb,7.8916e-01_rb,1.8803e-03_rb/)\n      kbo(:, 3,46, 6) = (/ &\n     &2.7306e+00_rb,2.2636e+00_rb,1.6229e+00_rb,8.9649e-01_rb,1.9453e-03_rb/)\n      kbo(:, 4,46, 6) = (/ &\n     &3.1079e+00_rb,2.5651e+00_rb,1.8473e+00_rb,1.0263e+00_rb,2.0023e-03_rb/)\n      kbo(:, 5,46, 6) = (/ &\n     &3.5715e+00_rb,2.9262e+00_rb,2.1144e+00_rb,1.1808e+00_rb,2.0547e-03_rb/)\n      kbo(:, 1,47, 6) = (/ &\n     &2.0439e+00_rb,1.6998e+00_rb,1.2039e+00_rb,6.5284e-01_rb,1.4728e-03_rb/)\n      kbo(:, 2,47, 6) = (/ &\n     &2.2849e+00_rb,1.9026e+00_rb,1.3552e+00_rb,7.4124e-01_rb,1.5378e-03_rb/)\n      kbo(:, 3,47, 6) = (/ &\n     &2.5739e+00_rb,2.1396e+00_rb,1.5317e+00_rb,8.4434e-01_rb,1.5971e-03_rb/)\n      kbo(:, 4,47, 6) = (/ &\n     &2.9355e+00_rb,2.4308e+00_rb,1.7484e+00_rb,9.6939e-01_rb,1.6478e-03_rb/)\n      kbo(:, 5,47, 6) = (/ &\n     &3.3837e+00_rb,2.7824e+00_rb,2.0088e+00_rb,1.1198e+00_rb,1.6945e-03_rb/)\n      kbo(:, 1,48, 6) = (/ &\n     &1.9729e+00_rb,1.6396e+00_rb,1.1585e+00_rb,6.2585e-01_rb,1.1998e-03_rb/)\n      kbo(:, 2,48, 6) = (/ &\n     &2.2114e+00_rb,1.8415e+00_rb,1.3088e+00_rb,7.1328e-01_rb,1.2575e-03_rb/)\n      kbo(:, 3,48, 6) = (/ &\n     &2.4937e+00_rb,2.0747e+00_rb,1.4825e+00_rb,8.1439e-01_rb,1.3096e-03_rb/)\n      kbo(:, 4,48, 6) = (/ &\n     &2.8486e+00_rb,2.3616e+00_rb,1.6960e+00_rb,9.3764e-01_rb,1.3556e-03_rb/)\n      kbo(:, 5,48, 6) = (/ &\n     &3.2936e+00_rb,2.7131e+00_rb,1.9561e+00_rb,1.0874e+00_rb,1.3979e-03_rb/)\n      kbo(:, 1,49, 6) = (/ &\n     &1.9817e+00_rb,1.6421e+00_rb,1.1570e+00_rb,6.2210e-01_rb,9.7602e-04_rb/)\n      kbo(:, 2,49, 6) = (/ &\n     &2.2272e+00_rb,1.8506e+00_rb,1.3118e+00_rb,7.1147e-01_rb,1.0279e-03_rb/)\n      kbo(:, 3,49, 6) = (/ &\n     &2.5150e+00_rb,2.0896e+00_rb,1.4898e+00_rb,8.1454e-01_rb,1.0745e-03_rb/)\n      kbo(:, 4,49, 6) = (/ &\n     &2.8769e+00_rb,2.3813e+00_rb,1.7067e+00_rb,9.3965e-01_rb,1.1160e-03_rb/)\n      kbo(:, 5,49, 6) = (/ &\n     &3.3353e+00_rb,2.7446e+00_rb,1.9747e+00_rb,1.0933e+00_rb,1.1545e-03_rb/)\n      kbo(:, 1,50, 6) = (/ &\n     &1.8978e+00_rb,1.5720e+00_rb,1.1055e+00_rb,5.9245e-01_rb,7.9308e-04_rb/)\n      kbo(:, 2,50, 6) = (/ &\n     &2.1399e+00_rb,1.7779e+00_rb,1.2580e+00_rb,6.8007e-01_rb,8.3888e-04_rb/)\n      kbo(:, 3,50, 6) = (/ &\n     &2.4218e+00_rb,2.0138e+00_rb,1.4333e+00_rb,7.8150e-01_rb,8.7996e-04_rb/)\n      kbo(:, 4,50, 6) = (/ &\n     &2.7742e+00_rb,2.2995e+00_rb,1.6455e+00_rb,9.0381e-01_rb,9.1698e-04_rb/)\n      kbo(:, 5,50, 6) = (/ &\n     &3.2255e+00_rb,2.6590e+00_rb,1.9107e+00_rb,1.0555e+00_rb,9.5164e-04_rb/)\n      kbo(:, 1,51, 6) = (/ &\n     &1.7787e+00_rb,1.4741e+00_rb,1.0351e+00_rb,5.5321e-01_rb,6.4322e-04_rb/)\n      kbo(:, 2,51, 6) = (/ &\n     &2.0121e+00_rb,1.6731e+00_rb,1.1819e+00_rb,6.3736e-01_rb,6.8396e-04_rb/)\n      kbo(:, 3,51, 6) = (/ &\n     &2.2825e+00_rb,1.9012e+00_rb,1.3514e+00_rb,7.3514e-01_rb,7.1977e-04_rb/)\n      kbo(:, 4,51, 6) = (/ &\n     &2.6184e+00_rb,2.1760e+00_rb,1.5550e+00_rb,8.5263e-01_rb,7.5276e-04_rb/)\n      kbo(:, 5,51, 6) = (/ &\n     &3.0526e+00_rb,2.5248e+00_rb,1.8126e+00_rb,9.9966e-01_rb,7.8322e-04_rb/)\n      kbo(:, 1,52, 6) = (/ &\n     &1.7138e+00_rb,1.4190e+00_rb,9.9450e-01_rb,5.2987e-01_rb,5.2154e-04_rb/)\n      kbo(:, 2,52, 6) = (/ &\n     &1.9434e+00_rb,1.6150e+00_rb,1.1387e+00_rb,6.1204e-01_rb,5.5749e-04_rb/)\n      kbo(:, 3,52, 6) = (/ &\n     &2.2115e+00_rb,1.8422e+00_rb,1.3069e+00_rb,7.0863e-01_rb,5.8864e-04_rb/)\n      kbo(:, 4,52, 6) = (/ &\n     &2.5398e+00_rb,2.1125e+00_rb,1.5071e+00_rb,8.2393e-01_rb,6.1775e-04_rb/)\n      kbo(:, 5,52, 6) = (/ &\n     &2.9672e+00_rb,2.4581e+00_rb,1.7623e+00_rb,9.6952e-01_rb,6.4493e-04_rb/)\n      kbo(:, 1,53, 6) = (/ &\n     &1.7198e+00_rb,1.4203e+00_rb,9.9324e-01_rb,5.2715e-01_rb,4.2262e-04_rb/)\n      kbo(:, 2,53, 6) = (/ &\n     &1.9529e+00_rb,1.6185e+00_rb,1.1384e+00_rb,6.0925e-01_rb,4.5399e-04_rb/)\n      kbo(:, 3,53, 6) = (/ &\n     &2.2293e+00_rb,1.8530e+00_rb,1.3116e+00_rb,7.0805e-01_rb,4.8128e-04_rb/)\n      kbo(:, 4,53, 6) = (/ &\n     &2.5636e+00_rb,2.1294e+00_rb,1.5160e+00_rb,8.2535e-01_rb,5.0713e-04_rb/)\n      kbo(:, 5,53, 6) = (/ &\n     &3.0004e+00_rb,2.4827e+00_rb,1.7770e+00_rb,9.7383e-01_rb,5.3111e-04_rb/)\n      kbo(:, 1,54, 6) = (/ &\n     &1.4969e+00_rb,1.2401e+00_rb,8.6613e-01_rb,4.5904e-01_rb,3.4135e-04_rb/)\n      kbo(:, 2,54, 6) = (/ &\n     &1.7004e+00_rb,1.4146e+00_rb,9.9400e-01_rb,5.3139e-01_rb,3.6835e-04_rb/)\n      kbo(:, 3,54, 6) = (/ &\n     &1.9475e+00_rb,1.6269e+00_rb,1.1506e+00_rb,6.2081e-01_rb,3.9232e-04_rb/)\n      kbo(:, 4,54, 6) = (/ &\n     &2.2441e+00_rb,1.8758e+00_rb,1.3350e+00_rb,7.2699e-01_rb,4.1441e-04_rb/)\n      kbo(:, 5,54, 6) = (/ &\n     &2.6322e+00_rb,2.1931e+00_rb,1.5695e+00_rb,8.6094e-01_rb,4.3501e-04_rb/)\n      kbo(:, 1,55, 6) = (/ &\n     &1.1902e+00_rb,9.9203e-01_rb,6.9261e-01_rb,3.6696e-01_rb,2.7539e-04_rb/)\n      kbo(:, 2,55, 6) = (/ &\n     &1.3514e+00_rb,1.1327e+00_rb,7.9579e-01_rb,4.2578e-01_rb,2.9805e-04_rb/)\n      kbo(:, 3,55, 6) = (/ &\n     &1.5528e+00_rb,1.3090e+00_rb,9.2585e-01_rb,5.0048e-01_rb,3.1883e-04_rb/)\n      kbo(:, 4,55, 6) = (/ &\n     &1.7945e+00_rb,1.5161e+00_rb,1.0797e+00_rb,5.8958e-01_rb,3.3758e-04_rb/)\n      kbo(:, 5,55, 6) = (/ &\n     &2.1091e+00_rb,1.7786e+00_rb,1.2743e+00_rb,7.0161e-01_rb,3.5497e-04_rb/)\n      kbo(:, 1,56, 6) = (/ &\n     &9.4564e-01_rb,7.9256e-01_rb,5.5332e-01_rb,2.9317e-01_rb,2.2189e-04_rb/)\n      kbo(:, 2,56, 6) = (/ &\n     &1.0727e+00_rb,9.0556e-01_rb,6.3622e-01_rb,3.4063e-01_rb,2.4090e-04_rb/)\n      kbo(:, 3,56, 6) = (/ &\n     &1.2368e+00_rb,1.0514e+00_rb,7.4402e-01_rb,4.0280e-01_rb,2.5859e-04_rb/)\n      kbo(:, 4,56, 6) = (/ &\n     &1.4335e+00_rb,1.2238e+00_rb,8.7212e-01_rb,4.7748e-01_rb,2.7478e-04_rb/)\n      kbo(:, 5,56, 6) = (/ &\n     &1.6876e+00_rb,1.4404e+00_rb,1.0331e+00_rb,5.7092e-01_rb,2.8964e-04_rb/)\n      kbo(:, 1,57, 6) = (/ &\n     &7.5151e-01_rb,6.3315e-01_rb,4.4196e-01_rb,2.3414e-01_rb,1.7834e-04_rb/)\n      kbo(:, 2,57, 6) = (/ &\n     &8.5091e-01_rb,7.2306e-01_rb,5.0804e-01_rb,2.7214e-01_rb,1.9471e-04_rb/)\n      kbo(:, 3,57, 6) = (/ &\n     &9.8353e-01_rb,8.4281e-01_rb,5.9656e-01_rb,3.2337e-01_rb,2.0961e-04_rb/)\n      kbo(:, 4,57, 6) = (/ &\n     &1.1433e+00_rb,9.8609e-01_rb,7.0325e-01_rb,3.8594e-01_rb,2.2327e-04_rb/)\n      kbo(:, 5,57, 6) = (/ &\n     &1.3484e+00_rb,1.1650e+00_rb,8.3657e-01_rb,4.6393e-01_rb,2.3604e-04_rb/)\n      kbo(:, 1,58, 6) = (/ &\n     &1.5793e-01_rb,1.6356e-01_rb,1.4683e-01_rb,1.0896e-01_rb,1.4326e-04_rb/)\n      kbo(:, 2,58, 6) = (/ &\n     &1.7834e-01_rb,1.8665e-01_rb,1.6872e-01_rb,1.2675e-01_rb,1.5731e-04_rb/)\n      kbo(:, 3,58, 6) = (/ &\n     &2.0650e-01_rb,2.1828e-01_rb,1.9887e-01_rb,1.5129e-01_rb,1.6986e-04_rb/)\n      kbo(:, 4,58, 6) = (/ &\n     &2.4084e-01_rb,2.5688e-01_rb,2.3602e-01_rb,1.8197e-01_rb,1.8127e-04_rb/)\n      kbo(:, 5,58, 6) = (/ &\n     &2.8453e-01_rb,3.0466e-01_rb,2.8209e-01_rb,2.2013e-01_rb,1.9222e-04_rb/)\n      kbo(:, 1,59, 6) = (/ &\n     &1.5159e-01_rb,1.5229e-01_rb,1.2764e-01_rb,8.4631e-02_rb,1.1680e-04_rb/)\n      kbo(:, 2,59, 6) = (/ &\n     &1.7166e-01_rb,1.7481e-01_rb,1.4781e-01_rb,9.9479e-02_rb,1.2840e-04_rb/)\n      kbo(:, 3,59, 6) = (/ &\n     &1.9953e-01_rb,2.0595e-01_rb,1.7587e-01_rb,1.2013e-01_rb,1.3871e-04_rb/)\n      kbo(:, 4,59, 6) = (/ &\n     &2.3377e-01_rb,2.4439e-01_rb,2.1097e-01_rb,1.4631e-01_rb,1.4804e-04_rb/)\n      kbo(:, 5,59, 6) = (/ &\n     &2.7769e-01_rb,2.9243e-01_rb,2.5484e-01_rb,1.7920e-01_rb,1.5678e-04_rb/)\n      kbo(:, 1,13, 7) = (/ &\n     &1.7755e+03_rb,1.3317e+03_rb,8.8796e+02_rb,4.4421e+02_rb,6.5972e-01_rb/)\n      kbo(:, 2,13, 7) = (/ &\n     &1.8279e+03_rb,1.3710e+03_rb,9.1418e+02_rb,4.5731e+02_rb,6.6173e-01_rb/)\n      kbo(:, 3,13, 7) = (/ &\n     &1.8885e+03_rb,1.4165e+03_rb,9.4446e+02_rb,4.7244e+02_rb,6.6577e-01_rb/)\n      kbo(:, 4,13, 7) = (/ &\n     &1.9490e+03_rb,1.4619e+03_rb,9.7472e+02_rb,4.8757e+02_rb,6.7090e-01_rb/)\n      kbo(:, 5,13, 7) = (/ &\n     &2.0075e+03_rb,1.5058e+03_rb,1.0040e+03_rb,5.0220e+02_rb,6.7193e-01_rb/)\n      kbo(:, 1,14, 7) = (/ &\n     &9.7594e+02_rb,7.3206e+02_rb,4.8819e+02_rb,2.4432e+02_rb,6.3121e-01_rb/)\n      kbo(:, 2,14, 7) = (/ &\n     &1.0087e+03_rb,7.5661e+02_rb,5.0455e+02_rb,2.5249e+02_rb,6.3502e-01_rb/)\n      kbo(:, 3,14, 7) = (/ &\n     &1.0415e+03_rb,7.8124e+02_rb,5.2096e+02_rb,2.6069e+02_rb,6.3710e-01_rb/)\n      kbo(:, 4,14, 7) = (/ &\n     &1.0744e+03_rb,8.0589e+02_rb,5.3739e+02_rb,2.6890e+02_rb,6.4004e-01_rb/)\n      kbo(:, 5,14, 7) = (/ &\n     &1.1054e+03_rb,8.2913e+02_rb,5.5288e+02_rb,2.7664e+02_rb,6.4122e-01_rb/)\n      kbo(:, 1,15, 7) = (/ &\n     &5.4478e+02_rb,4.0870e+02_rb,2.7262e+02_rb,1.3654e+02_rb,5.9523e-01_rb/)\n      kbo(:, 2,15, 7) = (/ &\n     &5.6305e+02_rb,4.2240e+02_rb,2.8175e+02_rb,1.4110e+02_rb,6.0003e-01_rb/)\n      kbo(:, 3,15, 7) = (/ &\n     &5.8123e+02_rb,4.3603e+02_rb,2.9083e+02_rb,1.4563e+02_rb,6.0181e-01_rb/)\n      kbo(:, 4,15, 7) = (/ &\n     &5.9882e+02_rb,4.4922e+02_rb,2.9962e+02_rb,1.5002e+02_rb,6.0320e-01_rb/)\n      kbo(:, 5,15, 7) = (/ &\n     &6.1530e+02_rb,4.6158e+02_rb,3.0785e+02_rb,1.5413e+02_rb,6.0492e-01_rb/)\n      kbo(:, 1,16, 7) = (/ &\n     &3.5993e+02_rb,2.7006e+02_rb,1.8020e+02_rb,9.0332e+01_rb,5.5493e-01_rb/)\n      kbo(:, 2,16, 7) = (/ &\n     &3.7215e+02_rb,2.7922e+02_rb,1.8629e+02_rb,9.3372e+01_rb,5.5851e-01_rb/)\n      kbo(:, 3,16, 7) = (/ &\n     &3.8394e+02_rb,2.8806e+02_rb,1.9218e+02_rb,9.6308e+01_rb,5.6035e-01_rb/)\n      kbo(:, 4,16, 7) = (/ &\n     &3.9518e+02_rb,2.9649e+02_rb,1.9779e+02_rb,9.9106e+01_rb,5.6267e-01_rb/)\n      kbo(:, 5,16, 7) = (/ &\n     &4.0564e+02_rb,3.0433e+02_rb,2.0302e+02_rb,1.0171e+02_rb,5.6476e-01_rb/)\n      kbo(:, 1,17, 7) = (/ &\n     &2.4595e+02_rb,1.8458e+02_rb,1.2320e+02_rb,6.1838e+01_rb,5.0905e-01_rb/)\n      kbo(:, 2,17, 7) = (/ &\n     &2.5413e+02_rb,1.9070e+02_rb,1.2728e+02_rb,6.3868e+01_rb,5.1185e-01_rb/)\n      kbo(:, 3,17, 7) = (/ &\n     &2.6187e+02_rb,1.9651e+02_rb,1.3115e+02_rb,6.5795e+01_rb,5.1474e-01_rb/)\n      kbo(:, 4,17, 7) = (/ &\n     &2.6921e+02_rb,2.0201e+02_rb,1.3481e+02_rb,6.7615e+01_rb,5.1865e-01_rb/)\n      kbo(:, 5,17, 7) = (/ &\n     &2.7688e+02_rb,2.0776e+02_rb,1.3865e+02_rb,6.9531e+01_rb,5.2170e-01_rb/)\n      kbo(:, 1,18, 7) = (/ &\n     &1.7164e+02_rb,1.2884e+02_rb,8.6050e+01_rb,4.3266e+01_rb,4.6055e-01_rb/)\n      kbo(:, 2,18, 7) = (/ &\n     &1.7713e+02_rb,1.3296e+02_rb,8.8791e+01_rb,4.4628e+01_rb,4.6405e-01_rb/)\n      kbo(:, 3,18, 7) = (/ &\n     &1.8233e+02_rb,1.3686e+02_rb,9.1384e+01_rb,4.5916e+01_rb,4.6825e-01_rb/)\n      kbo(:, 4,18, 7) = (/ &\n     &1.8765e+02_rb,1.4084e+02_rb,9.4032e+01_rb,4.7229e+01_rb,4.7329e-01_rb/)\n      kbo(:, 5,18, 7) = (/ &\n     &1.9405e+02_rb,1.4564e+02_rb,9.7227e+01_rb,4.8824e+01_rb,4.7705e-01_rb/)\n      kbo(:, 1,19, 7) = (/ &\n     &1.1725e+02_rb,8.8048e+01_rb,5.8853e+01_rb,2.9674e+01_rb,4.1247e-01_rb/)\n      kbo(:, 2,19, 7) = (/ &\n     &1.2086e+02_rb,9.0759e+01_rb,6.0656e+01_rb,3.0566e+01_rb,4.1661e-01_rb/)\n      kbo(:, 3,19, 7) = (/ &\n     &1.2440e+02_rb,9.3403e+01_rb,6.2413e+01_rb,3.1438e+01_rb,4.2213e-01_rb/)\n      kbo(:, 4,19, 7) = (/ &\n     &1.2864e+02_rb,9.6587e+01_rb,6.4532e+01_rb,3.2489e+01_rb,4.2779e-01_rb/)\n      kbo(:, 5,19, 7) = (/ &\n     &1.3396e+02_rb,1.0057e+02_rb,6.7181e+01_rb,3.3807e+01_rb,4.3260e-01_rb/)\n      kbo(:, 1,20, 7) = (/ &\n     &8.6468e+01_rb,6.4964e+01_rb,4.3467e+01_rb,2.2017e+01_rb,3.6582e-01_rb/)\n      kbo(:, 2,20, 7) = (/ &\n     &8.9024e+01_rb,6.6879e+01_rb,4.4738e+01_rb,2.2636e+01_rb,3.7131e-01_rb/)\n      kbo(:, 3,20, 7) = (/ &\n     &9.1943e+01_rb,6.9064e+01_rb,4.6188e+01_rb,2.3347e+01_rb,3.7766e-01_rb/)\n      kbo(:, 4,20, 7) = (/ &\n     &9.5737e+01_rb,7.1906e+01_rb,4.8080e+01_rb,2.4283e+01_rb,3.8413e-01_rb/)\n      kbo(:, 5,20, 7) = (/ &\n     &1.0032e+02_rb,7.5342e+01_rb,5.0362e+01_rb,2.5410e+01_rb,3.9048e-01_rb/)\n      kbo(:, 1,21, 7) = (/ &\n     &6.5580e+01_rb,4.9300e+01_rb,3.3030e+01_rb,1.6896e+01_rb,3.2248e-01_rb/)\n      kbo(:, 2,21, 7) = (/ &\n     &6.7679e+01_rb,5.0870e+01_rb,3.4072e+01_rb,1.7386e+01_rb,3.2902e-01_rb/)\n      kbo(:, 3,21, 7) = (/ &\n     &7.0353e+01_rb,5.2872e+01_rb,3.5398e+01_rb,1.8022e+01_rb,3.3617e-01_rb/)\n      kbo(:, 4,21, 7) = (/ &\n     &7.3710e+01_rb,5.5384e+01_rb,3.7067e+01_rb,1.8833e+01_rb,3.4337e-01_rb/)\n      kbo(:, 5,21, 7) = (/ &\n     &7.7378e+01_rb,5.8129e+01_rb,3.8887e+01_rb,1.9718e+01_rb,3.5091e-01_rb/)\n      kbo(:, 1,22, 7) = (/ &\n     &5.0990e+01_rb,3.8360e+01_rb,2.5747e+01_rb,1.3390e+01_rb,2.8355e-01_rb/)\n      kbo(:, 2,22, 7) = (/ &\n     &5.2937e+01_rb,3.9813e+01_rb,2.6706e+01_rb,1.3827e+01_rb,2.9084e-01_rb/)\n      kbo(:, 3,22, 7) = (/ &\n     &5.5472e+01_rb,4.1712e+01_rb,2.7965e+01_rb,1.4417e+01_rb,2.9863e-01_rb/)\n      kbo(:, 4,22, 7) = (/ &\n     &5.8295e+01_rb,4.3822e+01_rb,2.9362e+01_rb,1.5079e+01_rb,3.0668e-01_rb/)\n      kbo(:, 5,22, 7) = (/ &\n     &6.1215e+01_rb,4.6005e+01_rb,3.0807e+01_rb,1.5766e+01_rb,3.1501e-01_rb/)\n      kbo(:, 1,23, 7) = (/ &\n     &3.9928e+01_rb,3.0064e+01_rb,2.0251e+01_rb,1.0753e+01_rb,2.4875e-01_rb/)\n      kbo(:, 2,23, 7) = (/ &\n     &4.1783e+01_rb,3.1450e+01_rb,2.1160e+01_rb,1.1173e+01_rb,2.5662e-01_rb/)\n      kbo(:, 3,23, 7) = (/ &\n     &4.3954e+01_rb,3.3072e+01_rb,2.2227e+01_rb,1.1670e+01_rb,2.6505e-01_rb/)\n      kbo(:, 4,23, 7) = (/ &\n     &4.6239e+01_rb,3.4779e+01_rb,2.3350e+01_rb,1.2195e+01_rb,2.7351e-01_rb/)\n      kbo(:, 5,23, 7) = (/ &\n     &4.8555e+01_rb,3.6509e+01_rb,2.4489e+01_rb,1.2725e+01_rb,2.8191e-01_rb/)\n      kbo(:, 1,24, 7) = (/ &\n     &3.1198e+01_rb,2.3518e+01_rb,1.5962e+01_rb,8.6666e+00_rb,2.1812e-01_rb/)\n      kbo(:, 2,24, 7) = (/ &\n     &3.2836e+01_rb,2.4742e+01_rb,1.6752e+01_rb,9.0412e+00_rb,2.2642e-01_rb/)\n      kbo(:, 3,24, 7) = (/ &\n     &3.4586e+01_rb,2.6047e+01_rb,1.7597e+01_rb,9.4445e+00_rb,2.3475e-01_rb/)\n      kbo(:, 4,24, 7) = (/ &\n     &3.6388e+01_rb,2.7390e+01_rb,1.8470e+01_rb,9.8567e+00_rb,2.4289e-01_rb/)\n      kbo(:, 5,24, 7) = (/ &\n     &3.8237e+01_rb,2.8772e+01_rb,1.9370e+01_rb,1.0281e+01_rb,2.5096e-01_rb/)\n      kbo(:, 1,25, 7) = (/ &\n     &2.4765e+01_rb,1.8701e+01_rb,1.2839e+01_rb,7.1044e+00_rb,1.9118e-01_rb/)\n      kbo(:, 2,25, 7) = (/ &\n     &2.6117e+01_rb,1.9708e+01_rb,1.3481e+01_rb,7.4248e+00_rb,1.9923e-01_rb/)\n      kbo(:, 3,25, 7) = (/ &\n     &2.7518e+01_rb,2.0749e+01_rb,1.4145e+01_rb,7.7545e+00_rb,2.0704e-01_rb/)\n      kbo(:, 4,25, 7) = (/ &\n     &2.8948e+01_rb,2.1814e+01_rb,1.4825e+01_rb,8.0892e+00_rb,2.1475e-01_rb/)\n      kbo(:, 5,25, 7) = (/ &\n     &3.0459e+01_rb,2.2943e+01_rb,1.5551e+01_rb,8.4409e+00_rb,2.2240e-01_rb/)\n      kbo(:, 1,26, 7) = (/ &\n     &1.9997e+01_rb,1.5145e+01_rb,1.0541e+01_rb,5.9203e+00_rb,1.6734e-01_rb/)\n      kbo(:, 2,26, 7) = (/ &\n     &2.1098e+01_rb,1.5958e+01_rb,1.1060e+01_rb,6.1929e+00_rb,1.7471e-01_rb/)\n      kbo(:, 3,26, 7) = (/ &\n     &2.2238e+01_rb,1.6802e+01_rb,1.1594e+01_rb,6.4727e+00_rb,1.8196e-01_rb/)\n      kbo(:, 4,26, 7) = (/ &\n     &2.3407e+01_rb,1.7668e+01_rb,1.2141e+01_rb,6.7596e+00_rb,1.8921e-01_rb/)\n      kbo(:, 5,26, 7) = (/ &\n     &2.4698e+01_rb,1.8629e+01_rb,1.2749e+01_rb,7.0654e+00_rb,1.9648e-01_rb/)\n      kbo(:, 1,27, 7) = (/ &\n     &1.6756e+01_rb,1.2745e+01_rb,8.9780e+00_rb,5.0906e+00_rb,1.4596e-01_rb/)\n      kbo(:, 2,27, 7) = (/ &\n     &1.7682e+01_rb,1.3422e+01_rb,9.4167e+00_rb,5.3320e+00_rb,1.5263e-01_rb/)\n      kbo(:, 3,27, 7) = (/ &\n     &1.8639e+01_rb,1.4123e+01_rb,9.8653e+00_rb,5.5814e+00_rb,1.5946e-01_rb/)\n      kbo(:, 4,27, 7) = (/ &\n     &1.9672e+01_rb,1.4884e+01_rb,1.0349e+01_rb,5.8433e+00_rb,1.6641e-01_rb/)\n      kbo(:, 5,27, 7) = (/ &\n     &2.0853e+01_rb,1.5759e+01_rb,1.0902e+01_rb,6.1333e+00_rb,1.7345e-01_rb/)\n      kbo(:, 1,28, 7) = (/ &\n     &1.4405e+01_rb,1.1016e+01_rb,7.8395e+00_rb,4.4691e+00_rb,1.2690e-01_rb/)\n      kbo(:, 2,28, 7) = (/ &\n     &1.5206e+01_rb,1.1594e+01_rb,8.2236e+00_rb,4.6907e+00_rb,1.3310e-01_rb/)\n      kbo(:, 3,28, 7) = (/ &\n     &1.6055e+01_rb,1.2210e+01_rb,8.6248e+00_rb,4.9200e+00_rb,1.3960e-01_rb/)\n      kbo(:, 4,28, 7) = (/ &\n     &1.7030e+01_rb,1.2924e+01_rb,9.0823e+00_rb,5.1747e+00_rb,1.4629e-01_rb/)\n      kbo(:, 5,28, 7) = (/ &\n     &1.8152e+01_rb,1.3752e+01_rb,9.6123e+00_rb,5.4653e+00_rb,1.5306e-01_rb/)\n      kbo(:, 1,29, 7) = (/ &\n     &1.3149e+01_rb,1.0099e+01_rb,7.2312e+00_rb,4.1269e+00_rb,1.1016e-01_rb/)\n      kbo(:, 2,29, 7) = (/ &\n     &1.3892e+01_rb,1.0633e+01_rb,7.5916e+00_rb,4.3391e+00_rb,1.1614e-01_rb/)\n      kbo(:, 3,29, 7) = (/ &\n     &1.4735e+01_rb,1.1242e+01_rb,7.9958e+00_rb,4.5718e+00_rb,1.2237e-01_rb/)\n      kbo(:, 4,29, 7) = (/ &\n     &1.5717e+01_rb,1.1957e+01_rb,8.4609e+00_rb,4.8366e+00_rb,1.2878e-01_rb/)\n      kbo(:, 5,29, 7) = (/ &\n     &1.6850e+01_rb,1.2790e+01_rb,8.9991e+00_rb,5.1366e+00_rb,1.3504e-01_rb/)\n      kbo(:, 1,30, 7) = (/ &\n     &1.2314e+01_rb,9.4945e+00_rb,6.8243e+00_rb,3.8903e+00_rb,9.5721e-02_rb/)\n      kbo(:, 2,30, 7) = (/ &\n     &1.3054e+01_rb,1.0024e+01_rb,7.1887e+00_rb,4.1054e+00_rb,1.0142e-01_rb/)\n      kbo(:, 3,30, 7) = (/ &\n     &1.3921e+01_rb,1.0650e+01_rb,7.6093e+00_rb,4.3517e+00_rb,1.0739e-01_rb/)\n      kbo(:, 4,30, 7) = (/ &\n     &1.4944e+01_rb,1.1393e+01_rb,8.1010e+00_rb,4.6344e+00_rb,1.1328e-01_rb/)\n      kbo(:, 5,30, 7) = (/ &\n     &1.6104e+01_rb,1.2245e+01_rb,8.6565e+00_rb,4.9501e+00_rb,1.1877e-01_rb/)\n      kbo(:, 1,31, 7) = (/ &\n     &1.2157e+01_rb,9.3878e+00_rb,6.7548e+00_rb,3.8381e+00_rb,8.3345e-02_rb/)\n      kbo(:, 2,31, 7) = (/ &\n     &1.2955e+01_rb,9.9594e+00_rb,7.1498e+00_rb,4.0728e+00_rb,8.8771e-02_rb/)\n      kbo(:, 3,31, 7) = (/ &\n     &1.3911e+01_rb,1.0649e+01_rb,7.6174e+00_rb,4.3452e+00_rb,9.4250e-02_rb/)\n      kbo(:, 4,31, 7) = (/ &\n     &1.5017e+01_rb,1.1456e+01_rb,8.1532e+00_rb,4.6551e+00_rb,9.9406e-02_rb/)\n      kbo(:, 5,31, 7) = (/ &\n     &1.6266e+01_rb,1.2373e+01_rb,8.7552e+00_rb,5.0004e+00_rb,1.0401e-01_rb/)\n      kbo(:, 1,32, 7) = (/ &\n     &1.2189e+01_rb,9.4190e+00_rb,6.7775e+00_rb,3.8398e+00_rb,7.2780e-02_rb/)\n      kbo(:, 2,32, 7) = (/ &\n     &1.3084e+01_rb,1.0062e+01_rb,7.2229e+00_rb,4.1020e+00_rb,7.7761e-02_rb/)\n      kbo(:, 3,32, 7) = (/ &\n     &1.4139e+01_rb,1.0827e+01_rb,7.7437e+00_rb,4.4056e+00_rb,8.2541e-02_rb/)\n      kbo(:, 4,32, 7) = (/ &\n     &1.5347e+01_rb,1.1710e+01_rb,8.3333e+00_rb,4.7481e+00_rb,8.6905e-02_rb/)\n      kbo(:, 5,32, 7) = (/ &\n     &1.6687e+01_rb,1.2692e+01_rb,8.9809e+00_rb,5.1206e+00_rb,9.0564e-02_rb/)\n      kbo(:, 1,33, 7) = (/ &\n     &1.2504e+01_rb,9.6581e+00_rb,6.9429e+00_rb,3.9220e+00_rb,6.3643e-02_rb/)\n      kbo(:, 2,33, 7) = (/ &\n     &1.3523e+01_rb,1.0393e+01_rb,7.4532e+00_rb,4.2218e+00_rb,6.8037e-02_rb/)\n      kbo(:, 3,33, 7) = (/ &\n     &1.4701e+01_rb,1.1251e+01_rb,8.0374e+00_rb,4.5635e+00_rb,7.2051e-02_rb/)\n      kbo(:, 4,33, 7) = (/ &\n     &1.6035e+01_rb,1.2227e+01_rb,8.6879e+00_rb,4.9410e+00_rb,7.5520e-02_rb/)\n      kbo(:, 5,33, 7) = (/ &\n     &1.7498e+01_rb,1.3301e+01_rb,9.3946e+00_rb,5.3470e+00_rb,7.8343e-02_rb/)\n      kbo(:, 1,34, 7) = (/ &\n     &1.2544e+01_rb,9.6932e+00_rb,6.9709e+00_rb,3.9324e+00_rb,5.5495e-02_rb/)\n      kbo(:, 2,34, 7) = (/ &\n     &1.3652e+01_rb,1.0495e+01_rb,7.5288e+00_rb,4.2613e+00_rb,5.9207e-02_rb/)\n      kbo(:, 3,34, 7) = (/ &\n     &1.4931e+01_rb,1.1428e+01_rb,8.1665e+00_rb,4.6328e+00_rb,6.2449e-02_rb/)\n      kbo(:, 4,34, 7) = (/ &\n     &1.6342e+01_rb,1.2460e+01_rb,8.8567e+00_rb,5.0367e+00_rb,6.5144e-02_rb/)\n      kbo(:, 5,34, 7) = (/ &\n     &1.7926e+01_rb,1.3623e+01_rb,9.6166e+00_rb,5.4694e+00_rb,6.7469e-02_rb/)\n      kbo(:, 1,35, 7) = (/ &\n     &1.2550e+01_rb,9.7037e+00_rb,6.9833e+00_rb,3.9358e+00_rb,4.7960e-02_rb/)\n      kbo(:, 2,35, 7) = (/ &\n     &1.3742e+01_rb,1.0569e+01_rb,7.5854e+00_rb,4.2904e+00_rb,5.1023e-02_rb/)\n      kbo(:, 3,35, 7) = (/ &\n     &1.5093e+01_rb,1.1555e+01_rb,8.2621e+00_rb,4.6878e+00_rb,5.3624e-02_rb/)\n      kbo(:, 4,35, 7) = (/ &\n     &1.6591e+01_rb,1.2650e+01_rb,8.9950e+00_rb,5.1151e+00_rb,5.5900e-02_rb/)\n      kbo(:, 5,35, 7) = (/ &\n     &1.8304e+01_rb,1.3907e+01_rb,9.8148e+00_rb,5.5812e+00_rb,5.7988e-02_rb/)\n      kbo(:, 1,36, 7) = (/ &\n     &1.2397e+01_rb,9.5976e+00_rb,6.9138e+00_rb,3.8949e+00_rb,4.1048e-02_rb/)\n      kbo(:, 2,36, 7) = (/ &\n     &1.3655e+01_rb,1.0513e+01_rb,7.5553e+00_rb,4.2704e+00_rb,4.3574e-02_rb/)\n      kbo(:, 3,36, 7) = (/ &\n     &1.5056e+01_rb,1.1535e+01_rb,8.2577e+00_rb,4.6863e+00_rb,4.5767e-02_rb/)\n      kbo(:, 4,36, 7) = (/ &\n     &1.6621e+01_rb,1.2678e+01_rb,9.0220e+00_rb,5.1309e+00_rb,4.7778e-02_rb/)\n      kbo(:, 5,36, 7) = (/ &\n     &1.8454e+01_rb,1.4024e+01_rb,9.9036e+00_rb,5.6291e+00_rb,4.9683e-02_rb/)\n      kbo(:, 1,37, 7) = (/ &\n     &1.1793e+01_rb,9.1604e+00_rb,6.6146e+00_rb,3.7234e+00_rb,3.4707e-02_rb/)\n      kbo(:, 2,37, 7) = (/ &\n     &1.3041e+01_rb,1.0070e+01_rb,7.2604e+00_rb,4.1046e+00_rb,3.6864e-02_rb/)\n      kbo(:, 3,37, 7) = (/ &\n     &1.4439e+01_rb,1.1088e+01_rb,7.9659e+00_rb,4.5244e+00_rb,3.8795e-02_rb/)\n      kbo(:, 4,37, 7) = (/ &\n     &1.6025e+01_rb,1.2245e+01_rb,8.7442e+00_rb,4.9773e+00_rb,4.0613e-02_rb/)\n      kbo(:, 5,37, 7) = (/ &\n     &1.7882e+01_rb,1.3605e+01_rb,9.6420e+00_rb,5.4880e+00_rb,4.2339e-02_rb/)\n      kbo(:, 1,38, 7) = (/ &\n     &1.1383e+01_rb,8.8666e+00_rb,6.4134e+00_rb,3.6072e+00_rb,2.9298e-02_rb/)\n      kbo(:, 2,38, 7) = (/ &\n     &1.2643e+01_rb,9.7859e+00_rb,7.0699e+00_rb,3.9972e+00_rb,3.1148e-02_rb/)\n      kbo(:, 3,38, 7) = (/ &\n     &1.4056e+01_rb,1.0814e+01_rb,7.7862e+00_rb,4.4229e+00_rb,3.2867e-02_rb/)\n      kbo(:, 4,38, 7) = (/ &\n     &1.5686e+01_rb,1.2002e+01_rb,8.5915e+00_rb,4.8935e+00_rb,3.4517e-02_rb/)\n      kbo(:, 5,38, 7) = (/ &\n     &1.7595e+01_rb,1.3400e+01_rb,9.5179e+00_rb,5.4208e+00_rb,3.6067e-02_rb/)\n      kbo(:, 1,39, 7) = (/ &\n     &1.1254e+01_rb,8.7785e+00_rb,6.3532e+00_rb,3.5698e+00_rb,2.4703e-02_rb/)\n      kbo(:, 2,39, 7) = (/ &\n     &1.2546e+01_rb,9.7238e+00_rb,7.0319e+00_rb,3.9725e+00_rb,2.6328e-02_rb/)\n      kbo(:, 3,39, 7) = (/ &\n     &1.4010e+01_rb,1.0789e+01_rb,7.7764e+00_rb,4.4152e+00_rb,2.7854e-02_rb/)\n      kbo(:, 4,39, 7) = (/ &\n     &1.5714e+01_rb,1.2031e+01_rb,8.6190e+00_rb,4.9070e+00_rb,2.9325e-02_rb/)\n      kbo(:, 5,39, 7) = (/ &\n     &1.7752e+01_rb,1.3525e+01_rb,9.6124e+00_rb,5.4718e+00_rb,3.0788e-02_rb/)\n      kbo(:, 1,40, 7) = (/ &\n     &1.0343e+01_rb,8.1149e+00_rb,5.8880e+00_rb,3.3077e+00_rb,2.0662e-02_rb/)\n      kbo(:, 2,40, 7) = (/ &\n     &1.1581e+01_rb,9.0215e+00_rb,6.5477e+00_rb,3.7008e+00_rb,2.2084e-02_rb/)\n      kbo(:, 3,40, 7) = (/ &\n     &1.2986e+01_rb,1.0044e+01_rb,7.2710e+00_rb,4.1322e+00_rb,2.3431e-02_rb/)\n      kbo(:, 4,40, 7) = (/ &\n     &1.4638e+01_rb,1.1247e+01_rb,8.0993e+00_rb,4.6196e+00_rb,2.4776e-02_rb/)\n      kbo(:, 5,40, 7) = (/ &\n     &1.6625e+01_rb,1.2700e+01_rb,9.0740e+00_rb,5.1787e+00_rb,2.6103e-02_rb/)\n      kbo(:, 1,41, 7) = (/ &\n     &9.4683e+00_rb,7.4757e+00_rb,5.4378e+00_rb,3.0540e+00_rb,1.7243e-02_rb/)\n      kbo(:, 2,41, 7) = (/ &\n     &1.0645e+01_rb,8.3400e+00_rb,6.0743e+00_rb,3.4334e+00_rb,1.8487e-02_rb/)\n      kbo(:, 3,41, 7) = (/ &\n     &1.1996e+01_rb,9.3250e+00_rb,6.7794e+00_rb,3.8546e+00_rb,1.9684e-02_rb/)\n      kbo(:, 4,41, 7) = (/ &\n     &1.3587e+01_rb,1.0480e+01_rb,7.5843e+00_rb,4.3322e+00_rb,2.0909e-02_rb/)\n      kbo(:, 5,41, 7) = (/ &\n     &1.5513e+01_rb,1.1886e+01_rb,8.5396e+00_rb,4.8864e+00_rb,2.2113e-02_rb/)\n      kbo(:, 1,42, 7) = (/ &\n     &8.7596e+00_rb,6.9575e+00_rb,5.0695e+00_rb,2.8442e+00_rb,1.4375e-02_rb/)\n      kbo(:, 2,42, 7) = (/ &\n     &9.8918e+00_rb,7.7921e+00_rb,5.6895e+00_rb,3.2145e+00_rb,1.5469e-02_rb/)\n      kbo(:, 3,42, 7) = (/ &\n     &1.1196e+01_rb,8.7450e+00_rb,6.3808e+00_rb,3.6290e+00_rb,1.6542e-02_rb/)\n      kbo(:, 4,42, 7) = (/ &\n     &1.2750e+01_rb,9.8741e+00_rb,7.1757e+00_rb,4.1018e+00_rb,1.7643e-02_rb/)\n      kbo(:, 5,42, 7) = (/ &\n     &1.4631e+01_rb,1.1244e+01_rb,8.1146e+00_rb,4.6494e+00_rb,1.8736e-02_rb/)\n      kbo(:, 1,43, 7) = (/ &\n     &8.1129e+00_rb,6.4828e+00_rb,4.7282e+00_rb,2.6502e+00_rb,1.1920e-02_rb/)\n      kbo(:, 2,43, 7) = (/ &\n     &9.2040e+00_rb,7.2919e+00_rb,5.3332e+00_rb,3.0110e+00_rb,1.2884e-02_rb/)\n      kbo(:, 3,43, 7) = (/ &\n     &1.0467e+01_rb,8.2176e+00_rb,6.0123e+00_rb,3.4195e+00_rb,1.3839e-02_rb/)\n      kbo(:, 4,43, 7) = (/ &\n     &1.1975e+01_rb,9.3139e+00_rb,6.7911e+00_rb,3.8837e+00_rb,1.4824e-02_rb/)\n      kbo(:, 5,43, 7) = (/ &\n     &1.3821e+01_rb,1.0658e+01_rb,7.7247e+00_rb,4.4294e+00_rb,1.5816e-02_rb/)\n      kbo(:, 1,44, 7) = (/ &\n     &7.5813e+00_rb,6.0889e+00_rb,4.4438e+00_rb,2.4886e+00_rb,9.8504e-03_rb/)\n      kbo(:, 2,44, 7) = (/ &\n     &8.6433e+00_rb,6.8838e+00_rb,5.0388e+00_rb,2.8416e+00_rb,1.0695e-02_rb/)\n      kbo(:, 3,44, 7) = (/ &\n     &9.8815e+00_rb,7.7937e+00_rb,5.7119e+00_rb,3.2452e+00_rb,1.1549e-02_rb/)\n      kbo(:, 4,44, 7) = (/ &\n     &1.1354e+01_rb,8.8664e+00_rb,6.4827e+00_rb,3.7047e+00_rb,1.2430e-02_rb/)\n      kbo(:, 5,44, 7) = (/ &\n     &1.3162e+01_rb,1.0183e+01_rb,7.4060e+00_rb,4.2473e+00_rb,1.3335e-02_rb/)\n      kbo(:, 1,45, 7) = (/ &\n     &7.2186e+00_rb,5.8199e+00_rb,4.2461e+00_rb,2.3747e+00_rb,8.1314e-03_rb/)\n      kbo(:, 2,45, 7) = (/ &\n     &8.2698e+00_rb,6.6114e+00_rb,4.8385e+00_rb,2.7251e+00_rb,8.8750e-03_rb/)\n      kbo(:, 3,45, 7) = (/ &\n     &9.5031e+00_rb,7.5246e+00_rb,5.5174e+00_rb,3.1306e+00_rb,9.6297e-03_rb/)\n      kbo(:, 4,45, 7) = (/ &\n     &1.0974e+01_rb,8.5972e+00_rb,6.2944e+00_rb,3.5936e+00_rb,1.0417e-02_rb/)\n      kbo(:, 5,45, 7) = (/ &\n     &1.2791e+01_rb,9.9194e+00_rb,7.2286e+00_rb,4.1456e+00_rb,1.1234e-02_rb/)\n      kbo(:, 1,46, 7) = (/ &\n     &6.9141e+00_rb,5.5940e+00_rb,4.0776e+00_rb,2.2758e+00_rb,6.6876e-03_rb/)\n      kbo(:, 2,46, 7) = (/ &\n     &7.9503e+00_rb,6.3788e+00_rb,4.6670e+00_rb,2.6226e+00_rb,7.3399e-03_rb/)\n      kbo(:, 3,46, 7) = (/ &\n     &9.1864e+00_rb,7.2991e+00_rb,5.3560e+00_rb,3.0335e+00_rb,8.0038e-03_rb/)\n      kbo(:, 4,46, 7) = (/ &\n     &1.0667e+01_rb,8.3803e+00_rb,6.1440e+00_rb,3.5030e+00_rb,8.7040e-03_rb/)\n      kbo(:, 5,46, 7) = (/ &\n     &1.2488e+01_rb,9.7091e+00_rb,7.0857e+00_rb,4.0595e+00_rb,9.4400e-03_rb/)\n      kbo(:, 1,47, 7) = (/ &\n     &6.5158e+00_rb,5.2952e+00_rb,3.8553e+00_rb,2.1461e+00_rb,5.4578e-03_rb/)\n      kbo(:, 2,47, 7) = (/ &\n     &7.5125e+00_rb,6.0542e+00_rb,4.4282e+00_rb,2.4823e+00_rb,6.0287e-03_rb/)\n      kbo(:, 3,47, 7) = (/ &\n     &8.7277e+00_rb,6.9654e+00_rb,5.1130e+00_rb,2.8905e+00_rb,6.6123e-03_rb/)\n      kbo(:, 4,47, 7) = (/ &\n     &1.0180e+01_rb,8.0330e+00_rb,5.8977e+00_rb,3.3599e+00_rb,7.2304e-03_rb/)\n      kbo(:, 5,47, 7) = (/ &\n     &1.1985e+01_rb,9.3498e+00_rb,6.8393e+00_rb,3.9162e+00_rb,7.8875e-03_rb/)\n      kbo(:, 1,48, 7) = (/ &\n     &6.3104e+00_rb,5.1398e+00_rb,3.7343e+00_rb,2.0712e+00_rb,4.4438e-03_rb/)\n      kbo(:, 2,48, 7) = (/ &\n     &7.2865e+00_rb,5.8865e+00_rb,4.2999e+00_rb,2.4038e+00_rb,4.9412e-03_rb/)\n      kbo(:, 3,48, 7) = (/ &\n     &8.5071e+00_rb,6.8079e+00_rb,4.9920e+00_rb,2.8153e+00_rb,5.4521e-03_rb/)\n      kbo(:, 4,48, 7) = (/ &\n     &9.9728e+00_rb,7.8905e+00_rb,5.7928e+00_rb,3.2942e+00_rb,5.9945e-03_rb/)\n      kbo(:, 5,48, 7) = (/ &\n     &1.1799e+01_rb,9.2259e+00_rb,6.7537e+00_rb,3.8639e+00_rb,6.5748e-03_rb/)\n      kbo(:, 1,49, 7) = (/ &\n     &6.3637e+00_rb,5.1793e+00_rb,3.7516e+00_rb,2.0723e+00_rb,3.6085e-03_rb/)\n      kbo(:, 2,49, 7) = (/ &\n     &7.3474e+00_rb,5.9332e+00_rb,4.3233e+00_rb,2.4087e+00_rb,4.0406e-03_rb/)\n      kbo(:, 3,49, 7) = (/ &\n     &8.6221e+00_rb,6.8978e+00_rb,5.0458e+00_rb,2.8357e+00_rb,4.4876e-03_rb/)\n      kbo(:, 4,49, 7) = (/ &\n     &1.0155e+01_rb,8.0340e+00_rb,5.8866e+00_rb,3.3379e+00_rb,4.9641e-03_rb/)\n      kbo(:, 5,49, 7) = (/ &\n     &1.2071e+01_rb,9.4371e+00_rb,6.8986e+00_rb,3.9361e+00_rb,5.4780e-03_rb/)\n      kbo(:, 1,50, 7) = (/ &\n     &6.1287e+00_rb,4.9982e+00_rb,3.6130e+00_rb,1.9898e+00_rb,2.9263e-03_rb/)\n      kbo(:, 2,50, 7) = (/ &\n     &7.0793e+00_rb,5.7315e+00_rb,4.1690e+00_rb,2.3166e+00_rb,3.3022e-03_rb/)\n      kbo(:, 3,50, 7) = (/ &\n     &8.3385e+00_rb,6.6892e+00_rb,4.8872e+00_rb,2.7388e+00_rb,3.6894e-03_rb/)\n      kbo(:, 4,50, 7) = (/ &\n     &9.8705e+00_rb,7.8310e+00_rb,5.7364e+00_rb,3.2460e+00_rb,4.1061e-03_rb/)\n      kbo(:, 5,50, 7) = (/ &\n     &1.1792e+01_rb,9.2428e+00_rb,6.7611e+00_rb,3.8534e+00_rb,4.5631e-03_rb/)\n      kbo(:, 1,51, 7) = (/ &\n     &5.7768e+00_rb,4.7273e+00_rb,3.4121e+00_rb,1.8743e+00_rb,2.3693e-03_rb/)\n      kbo(:, 2,51, 7) = (/ &\n     &6.6763e+00_rb,5.4272e+00_rb,3.9426e+00_rb,2.1849e+00_rb,2.6931e-03_rb/)\n      kbo(:, 3,51, 7) = (/ &\n     &7.8931e+00_rb,6.3576e+00_rb,4.6398e+00_rb,2.5939e+00_rb,3.0298e-03_rb/)\n      kbo(:, 4,51, 7) = (/ &\n     &9.3905e+00_rb,7.4818e+00_rb,5.4825e+00_rb,3.0966e+00_rb,3.3909e-03_rb/)\n      kbo(:, 5,51, 7) = (/ &\n     &1.1270e+01_rb,8.8663e+00_rb,6.4953e+00_rb,3.6986e+00_rb,3.7911e-03_rb/)\n      kbo(:, 1,52, 7) = (/ &\n     &5.5982e+00_rb,4.5875e+00_rb,3.3045e+00_rb,1.8093e+00_rb,1.9133e-03_rb/)\n      kbo(:, 2,52, 7) = (/ &\n     &6.4669e+00_rb,5.2676e+00_rb,3.8189e+00_rb,2.1105e+00_rb,2.1929e-03_rb/)\n      kbo(:, 3,52, 7) = (/ &\n     &7.6692e+00_rb,6.1904e+00_rb,4.5114e+00_rb,2.5133e+00_rb,2.4833e-03_rb/)\n      kbo(:, 4,52, 7) = (/ &\n     &9.1760e+00_rb,7.3261e+00_rb,5.3623e+00_rb,3.0203e+00_rb,2.7953e-03_rb/)\n      kbo(:, 5,52, 7) = (/ &\n     &1.1059e+01_rb,8.7181e+00_rb,6.3851e+00_rb,3.6291e+00_rb,3.1452e-03_rb/)\n      kbo(:, 1,53, 7) = (/ &\n     &5.6498e+00_rb,4.6222e+00_rb,3.3203e+00_rb,1.8115e+00_rb,1.5408e-03_rb/)\n      kbo(:, 2,53, 7) = (/ &\n     &6.5197e+00_rb,5.3054e+00_rb,3.8365e+00_rb,2.1129e+00_rb,1.7821e-03_rb/)\n      kbo(:, 3,53, 7) = (/ &\n     &7.7464e+00_rb,6.2478e+00_rb,4.5414e+00_rb,2.5222e+00_rb,2.0319e-03_rb/)\n      kbo(:, 4,53, 7) = (/ &\n     &9.3204e+00_rb,7.4376e+00_rb,5.4308e+00_rb,3.0476e+00_rb,2.3029e-03_rb/)\n      kbo(:, 5,53, 7) = (/ &\n     &1.1294e+01_rb,8.9013e+00_rb,6.5042e+00_rb,3.6848e+00_rb,2.6089e-03_rb/)\n      kbo(:, 1,54, 7) = (/ &\n     &4.9410e+00_rb,4.0701e+00_rb,2.9220e+00_rb,1.5920e+00_rb,1.2393e-03_rb/)\n      kbo(:, 2,54, 7) = (/ &\n     &5.7011e+00_rb,4.6779e+00_rb,3.3818e+00_rb,1.8599e+00_rb,1.4465e-03_rb/)\n      kbo(:, 3,54, 7) = (/ &\n     &6.7851e+00_rb,5.5214e+00_rb,4.0167e+00_rb,2.2288e+00_rb,1.6602e-03_rb/)\n      kbo(:, 4,54, 7) = (/ &\n     &8.2133e+00_rb,6.6133e+00_rb,4.8372e+00_rb,2.7129e+00_rb,1.8918e-03_rb/)\n      kbo(:, 5,54, 7) = (/ &\n     &1.0009e+01_rb,7.9570e+00_rb,5.8358e+00_rb,3.3045e+00_rb,2.1561e-03_rb/)\n      kbo(:, 1,55, 7) = (/ &\n     &3.9448e+00_rb,3.2894e+00_rb,2.3617e+00_rb,1.2863e+00_rb,9.9479e-04_rb/)\n      kbo(:, 2,55, 7) = (/ &\n     &4.5510e+00_rb,3.7868e+00_rb,2.7406e+00_rb,1.5076e+00_rb,1.1698e-03_rb/)\n      kbo(:, 3,55, 7) = (/ &\n     &5.4272e+00_rb,4.4849e+00_rb,3.2681e+00_rb,1.8142e+00_rb,1.3510e-03_rb/)\n      kbo(:, 4,55, 7) = (/ &\n     &6.6050e+00_rb,5.4031e+00_rb,3.9651e+00_rb,2.2259e+00_rb,1.5494e-03_rb/)\n      kbo(:, 5,55, 7) = (/ &\n     &8.0992e+00_rb,6.5420e+00_rb,4.8249e+00_rb,2.7373e+00_rb,1.7731e-03_rb/)\n      kbo(:, 1,56, 7) = (/ &\n     &3.1456e+00_rb,2.6539e+00_rb,1.9051e+00_rb,1.0370e+00_rb,7.9618e-04_rb/)\n      kbo(:, 2,56, 7) = (/ &\n     &3.6287e+00_rb,3.0618e+00_rb,2.2169e+00_rb,1.2199e+00_rb,9.4437e-04_rb/)\n      kbo(:, 3,56, 7) = (/ &\n     &4.3315e+00_rb,3.6363e+00_rb,2.6526e+00_rb,1.4737e+00_rb,1.0978e-03_rb/)\n      kbo(:, 4,56, 7) = (/ &\n     &5.3003e+00_rb,4.4092e+00_rb,3.2425e+00_rb,1.8210e+00_rb,1.2654e-03_rb/)\n      kbo(:, 5,56, 7) = (/ &\n     &6.5412e+00_rb,5.3749e+00_rb,3.9813e+00_rb,2.2622e+00_rb,1.4546e-03_rb/)\n      kbo(:, 1,57, 7) = (/ &\n     &2.5050e+00_rb,2.1372e+00_rb,1.5333e+00_rb,8.3409e-01_rb,6.3524e-04_rb/)\n      kbo(:, 2,57, 7) = (/ &\n     &2.8897e+00_rb,2.4717e+00_rb,1.7900e+00_rb,9.8489e-01_rb,7.5959e-04_rb/)\n      kbo(:, 3,57, 7) = (/ &\n     &3.4502e+00_rb,2.9412e+00_rb,2.1481e+00_rb,1.1943e+00_rb,8.8948e-04_rb/)\n      kbo(:, 4,57, 7) = (/ &\n     &4.2411e+00_rb,3.5892e+00_rb,2.6434e+00_rb,1.4858e+00_rb,1.0311e-03_rb/)\n      kbo(:, 5,57, 7) = (/ &\n     &5.2712e+00_rb,4.4105e+00_rb,3.2776e+00_rb,1.8647e+00_rb,1.1913e-03_rb/)\n      kbo(:, 1,58, 7) = (/ &\n     &5.2639e-01_rb,5.5628e-01_rb,5.1310e-01_rb,3.9091e-01_rb,5.0641e-04_rb/)\n      kbo(:, 2,58, 7) = (/ &\n     &6.0772e-01_rb,6.4553e-01_rb,6.0135e-01_rb,4.6372e-01_rb,6.1035e-04_rb/)\n      kbo(:, 3,58, 7) = (/ &\n     &7.2539e-01_rb,7.7016e-01_rb,7.2403e-01_rb,5.6463e-01_rb,7.2056e-04_rb/)\n      kbo(:, 4,58, 7) = (/ &\n     &8.9558e-01_rb,9.4507e-01_rb,8.9682e-01_rb,7.0739e-01_rb,8.3918e-04_rb/)\n      kbo(:, 5,58, 7) = (/ &\n     &1.1215e+00_rb,1.1728e+00_rb,1.1240e+00_rb,8.9769e-01_rb,9.7498e-04_rb/)\n      kbo(:, 1,59, 7) = (/ &\n     &5.0774e-01_rb,5.2725e-01_rb,4.5400e-01_rb,3.0925e-01_rb,4.1598e-04_rb/)\n      kbo(:, 2,59, 7) = (/ &\n     &5.8906e-01_rb,6.1772e-01_rb,5.3777e-01_rb,3.7151e-01_rb,5.0342e-04_rb/)\n      kbo(:, 3,59, 7) = (/ &\n     &7.0796e-01_rb,7.4490e-01_rb,6.5525e-01_rb,4.5851e-01_rb,5.9609e-04_rb/)\n      kbo(:, 4,59, 7) = (/ &\n     &8.8130e-01_rb,9.2517e-01_rb,8.2251e-01_rb,5.8308e-01_rb,6.9661e-04_rb/)\n      kbo(:, 5,59, 7) = (/ &\n     &1.1130e+00_rb,1.1619e+00_rb,1.0449e+00_rb,7.5118e-01_rb,8.1226e-04_rb/)\n      kbo(:, 1,13, 8) = (/ &\n     &5.5674e+03_rb,4.1757e+03_rb,2.7839e+03_rb,1.3922e+03_rb,1.1827e+00_rb/)\n      kbo(:, 2,13, 8) = (/ &\n     &5.5672e+03_rb,4.1755e+03_rb,2.7838e+03_rb,1.3922e+03_rb,1.1780e+00_rb/)\n      kbo(:, 3,13, 8) = (/ &\n     &5.5974e+03_rb,4.1981e+03_rb,2.7989e+03_rb,1.3997e+03_rb,1.1714e+00_rb/)\n      kbo(:, 4,13, 8) = (/ &\n     &5.6743e+03_rb,4.2558e+03_rb,2.8374e+03_rb,1.4189e+03_rb,1.1612e+00_rb/)\n      kbo(:, 5,13, 8) = (/ &\n     &5.7999e+03_rb,4.3500e+03_rb,2.9002e+03_rb,1.4503e+03_rb,1.1566e+00_rb/)\n      kbo(:, 1,14, 8) = (/ &\n     &3.0072e+03_rb,2.2555e+03_rb,1.5038e+03_rb,7.5211e+02_rb,1.1873e+00_rb/)\n      kbo(:, 2,14, 8) = (/ &\n     &3.0260e+03_rb,2.2696e+03_rb,1.5132e+03_rb,7.5683e+02_rb,1.1778e+00_rb/)\n      kbo(:, 3,14, 8) = (/ &\n     &3.0739e+03_rb,2.3055e+03_rb,1.5371e+03_rb,7.6880e+02_rb,1.1759e+00_rb/)\n      kbo(:, 4,14, 8) = (/ &\n     &3.1534e+03_rb,2.3651e+03_rb,1.5769e+03_rb,7.8868e+02_rb,1.1686e+00_rb/)\n      kbo(:, 5,14, 8) = (/ &\n     &3.2601e+03_rb,2.4451e+03_rb,1.6302e+03_rb,8.1536e+02_rb,1.1588e+00_rb/)\n      kbo(:, 1,15, 8) = (/ &\n     &1.6681e+03_rb,1.2512e+03_rb,8.3428e+02_rb,4.1737e+02_rb,1.1796e+00_rb/)\n      kbo(:, 2,15, 8) = (/ &\n     &1.6959e+03_rb,1.2720e+03_rb,8.4818e+02_rb,4.2432e+02_rb,1.1712e+00_rb/)\n      kbo(:, 3,15, 8) = (/ &\n     &1.7438e+03_rb,1.3080e+03_rb,8.7214e+02_rb,4.3631e+02_rb,1.1630e+00_rb/)\n      kbo(:, 4,15, 8) = (/ &\n     &1.8057e+03_rb,1.3544e+03_rb,9.0311e+02_rb,4.5180e+02_rb,1.1584e+00_rb/)\n      kbo(:, 5,15, 8) = (/ &\n     &1.8729e+03_rb,1.4048e+03_rb,9.3671e+02_rb,4.6860e+02_rb,1.1490e+00_rb/)\n      kbo(:, 1,16, 8) = (/ &\n     &1.1127e+03_rb,8.3463e+02_rb,5.5657e+02_rb,2.7851e+02_rb,1.1544e+00_rb/)\n      kbo(:, 2,16, 8) = (/ &\n     &1.1452e+03_rb,8.5902e+02_rb,5.7284e+02_rb,2.8665e+02_rb,1.1489e+00_rb/)\n      kbo(:, 3,16, 8) = (/ &\n     &1.1859e+03_rb,8.8958e+02_rb,5.9321e+02_rb,2.9685e+02_rb,1.1423e+00_rb/)\n      kbo(:, 4,16, 8) = (/ &\n     &1.2314e+03_rb,9.2370e+02_rb,6.1596e+02_rb,3.0822e+02_rb,1.1380e+00_rb/)\n      kbo(:, 5,16, 8) = (/ &\n     &1.2793e+03_rb,9.5963e+02_rb,6.3991e+02_rb,3.2020e+02_rb,1.1307e+00_rb/)\n      kbo(:, 1,17, 8) = (/ &\n     &7.7661e+02_rb,5.8258e+02_rb,3.8854e+02_rb,1.9450e+02_rb,1.1162e+00_rb/)\n      kbo(:, 2,17, 8) = (/ &\n     &8.0415e+02_rb,6.0323e+02_rb,4.0231e+02_rb,2.0139e+02_rb,1.1130e+00_rb/)\n      kbo(:, 3,17, 8) = (/ &\n     &8.3554e+02_rb,6.2677e+02_rb,4.1801e+02_rb,2.0924e+02_rb,1.1093e+00_rb/)\n      kbo(:, 4,17, 8) = (/ &\n     &8.6787e+02_rb,6.5102e+02_rb,4.3418e+02_rb,2.1733e+02_rb,1.1057e+00_rb/)\n      kbo(:, 5,17, 8) = (/ &\n     &9.0039e+02_rb,6.7541e+02_rb,4.5043e+02_rb,2.2545e+02_rb,1.0994e+00_rb/)\n      kbo(:, 1,18, 8) = (/ &\n     &5.5593e+02_rb,4.1706e+02_rb,2.7819e+02_rb,1.3933e+02_rb,1.0653e+00_rb/)\n      kbo(:, 2,18, 8) = (/ &\n     &5.7731e+02_rb,4.3309e+02_rb,2.8888e+02_rb,1.4467e+02_rb,1.0637e+00_rb/)\n      kbo(:, 3,18, 8) = (/ &\n     &5.9962e+02_rb,4.4983e+02_rb,3.0005e+02_rb,1.5026e+02_rb,1.0625e+00_rb/)\n      kbo(:, 4,18, 8) = (/ &\n     &6.2213e+02_rb,4.6672e+02_rb,3.1130e+02_rb,1.5589e+02_rb,1.0595e+00_rb/)\n      kbo(:, 5,18, 8) = (/ &\n     &6.4470e+02_rb,4.8364e+02_rb,3.2258e+02_rb,1.6152e+02_rb,1.0552e+00_rb/)\n      kbo(:, 1,19, 8) = (/ &\n     &3.9059e+02_rb,2.9306e+02_rb,1.9552e+02_rb,9.7992e+01_rb,1.0025e+00_rb/)\n      kbo(:, 2,19, 8) = (/ &\n     &4.0544e+02_rb,3.0420e+02_rb,2.0295e+02_rb,1.0172e+02_rb,1.0019e+00_rb/)\n      kbo(:, 3,19, 8) = (/ &\n     &4.2056e+02_rb,3.1554e+02_rb,2.1052e+02_rb,1.0550e+02_rb,1.0025e+00_rb/)\n      kbo(:, 4,19, 8) = (/ &\n     &4.3576e+02_rb,3.2693e+02_rb,2.1811e+02_rb,1.0930e+02_rb,1.0012e+00_rb/)\n      kbo(:, 5,19, 8) = (/ &\n     &4.5126e+02_rb,3.3856e+02_rb,2.2586e+02_rb,1.1317e+02_rb,9.9899e-01_rb/)\n      kbo(:, 1,20, 8) = (/ &\n     &2.9617e+02_rb,2.2224e+02_rb,1.4831e+02_rb,7.4392e+01_rb,9.3059e-01_rb/)\n      kbo(:, 2,20, 8) = (/ &\n     &3.0716e+02_rb,2.3049e+02_rb,1.5382e+02_rb,7.7154e+01_rb,9.3219e-01_rb/)\n      kbo(:, 3,20, 8) = (/ &\n     &3.1816e+02_rb,2.3874e+02_rb,1.5932e+02_rb,7.9908e+01_rb,9.3370e-01_rb/)\n      kbo(:, 4,20, 8) = (/ &\n     &3.2952e+02_rb,2.4726e+02_rb,1.6500e+02_rb,8.2741e+01_rb,9.3435e-01_rb/)\n      kbo(:, 5,20, 8) = (/ &\n     &3.4150e+02_rb,2.5625e+02_rb,1.7099e+02_rb,8.5741e+01_rb,9.3474e-01_rb/)\n      kbo(:, 1,21, 8) = (/ &\n     &2.3042e+02_rb,1.7293e+02_rb,1.1544e+02_rb,5.7965e+01_rb,8.5235e-01_rb/)\n      kbo(:, 2,21, 8) = (/ &\n     &2.3880e+02_rb,1.7922e+02_rb,1.1964e+02_rb,6.0070e+01_rb,8.5599e-01_rb/)\n      kbo(:, 3,21, 8) = (/ &\n     &2.4721e+02_rb,1.8553e+02_rb,1.2385e+02_rb,6.2177e+01_rb,8.5938e-01_rb/)\n      kbo(:, 4,21, 8) = (/ &\n     &2.5622e+02_rb,1.9229e+02_rb,1.2835e+02_rb,6.4426e+01_rb,8.6241e-01_rb/)\n      kbo(:, 5,21, 8) = (/ &\n     &2.6653e+02_rb,2.0002e+02_rb,1.3351e+02_rb,6.7009e+01_rb,8.6670e-01_rb/)\n      kbo(:, 1,22, 8) = (/ &\n     &1.8346e+02_rb,1.3771e+02_rb,9.1962e+01_rb,4.6247e+01_rb,7.7175e-01_rb/)\n      kbo(:, 2,22, 8) = (/ &\n     &1.8996e+02_rb,1.4259e+02_rb,9.5222e+01_rb,4.7880e+01_rb,7.7757e-01_rb/)\n      kbo(:, 3,22, 8) = (/ &\n     &1.9685e+02_rb,1.4775e+02_rb,9.8665e+01_rb,4.9599e+01_rb,7.8369e-01_rb/)\n      kbo(:, 4,22, 8) = (/ &\n     &2.0481e+02_rb,1.5373e+02_rb,1.0265e+02_rb,5.1591e+01_rb,7.9052e-01_rb/)\n      kbo(:, 5,22, 8) = (/ &\n     &2.1438e+02_rb,1.6091e+02_rb,1.0745e+02_rb,5.3989e+01_rb,7.9865e-01_rb/)\n      kbo(:, 1,23, 8) = (/ &\n     &1.4619e+02_rb,1.0976e+02_rb,7.3333e+01_rb,3.7009e+01_rb,6.9269e-01_rb/)\n      kbo(:, 2,23, 8) = (/ &\n     &1.5146e+02_rb,1.1371e+02_rb,7.5969e+01_rb,3.8312e+01_rb,7.0058e-01_rb/)\n      kbo(:, 3,23, 8) = (/ &\n     &1.5752e+02_rb,1.1826e+02_rb,7.9004e+01_rb,3.9812e+01_rb,7.0997e-01_rb/)\n      kbo(:, 4,23, 8) = (/ &\n     &1.6498e+02_rb,1.2386e+02_rb,8.2742e+01_rb,4.1669e+01_rb,7.2082e-01_rb/)\n      kbo(:, 5,23, 8) = (/ &\n     &1.7382e+02_rb,1.3049e+02_rb,8.7175e+01_rb,4.3881e+01_rb,7.3247e-01_rb/)\n      kbo(:, 1,24, 8) = (/ &\n     &1.1546e+02_rb,8.6713e+01_rb,5.7975e+01_rb,2.9484e+01_rb,6.1736e-01_rb/)\n      kbo(:, 2,24, 8) = (/ &\n     &1.1997e+02_rb,9.0096e+01_rb,6.0229e+01_rb,3.0574e+01_rb,6.2822e-01_rb/)\n      kbo(:, 3,24, 8) = (/ &\n     &1.2560e+02_rb,9.4324e+01_rb,6.3051e+01_rb,3.1946e+01_rb,6.4118e-01_rb/)\n      kbo(:, 4,24, 8) = (/ &\n     &1.3251e+02_rb,9.9515e+01_rb,6.6517e+01_rb,3.3646e+01_rb,6.5583e-01_rb/)\n      kbo(:, 5,24, 8) = (/ &\n     &1.4039e+02_rb,1.0542e+02_rb,7.0467e+01_rb,3.5600e+01_rb,6.7045e-01_rb/)\n      kbo(:, 1,25, 8) = (/ &\n     &9.2335e+01_rb,6.9366e+01_rb,4.6428e+01_rb,2.3921e+01_rb,5.4857e-01_rb/)\n      kbo(:, 2,25, 8) = (/ &\n     &9.6533e+01_rb,7.2518e+01_rb,4.8524e+01_rb,2.4911e+01_rb,5.6301e-01_rb/)\n      kbo(:, 3,25, 8) = (/ &\n     &1.0186e+02_rb,7.6521e+01_rb,5.1191e+01_rb,2.6188e+01_rb,5.7925e-01_rb/)\n      kbo(:, 4,25, 8) = (/ &\n     &1.0808e+02_rb,8.1193e+01_rb,5.4315e+01_rb,2.7693e+01_rb,5.9615e-01_rb/)\n      kbo(:, 5,25, 8) = (/ &\n     &1.1475e+02_rb,8.6195e+01_rb,5.7652e+01_rb,2.9318e+01_rb,6.1289e-01_rb/)\n      kbo(:, 1,26, 8) = (/ &\n     &7.5309e+01_rb,5.6599e+01_rb,3.7963e+01_rb,1.9911e+01_rb,4.8832e-01_rb/)\n      kbo(:, 2,26, 8) = (/ &\n     &7.9402e+01_rb,5.9672e+01_rb,3.9995e+01_rb,2.0863e+01_rb,5.0531e-01_rb/)\n      kbo(:, 3,26, 8) = (/ &\n     &8.4365e+01_rb,6.3403e+01_rb,4.2472e+01_rb,2.2029e+01_rb,5.2357e-01_rb/)\n      kbo(:, 4,26, 8) = (/ &\n     &8.9751e+01_rb,6.7447e+01_rb,4.5169e+01_rb,2.3307e+01_rb,5.4165e-01_rb/)\n      kbo(:, 5,26, 8) = (/ &\n     &9.5432e+01_rb,7.1708e+01_rb,4.8005e+01_rb,2.4657e+01_rb,5.6018e-01_rb/)\n      kbo(:, 1,27, 8) = (/ &\n     &6.4036e+01_rb,4.8147e+01_rb,3.2405e+01_rb,1.7310e+01_rb,4.3584e-01_rb/)\n      kbo(:, 2,27, 8) = (/ &\n     &6.8098e+01_rb,5.1198e+01_rb,3.4406e+01_rb,1.8250e+01_rb,4.5420e-01_rb/)\n      kbo(:, 3,27, 8) = (/ &\n     &7.2623e+01_rb,5.4602e+01_rb,3.6656e+01_rb,1.9303e+01_rb,4.7326e-01_rb/)\n      kbo(:, 4,27, 8) = (/ &\n     &7.7443e+01_rb,5.8217e+01_rb,3.9050e+01_rb,2.0426e+01_rb,4.9239e-01_rb/)\n      kbo(:, 5,27, 8) = (/ &\n     &8.2321e+01_rb,6.1875e+01_rb,4.1476e+01_rb,2.1557e+01_rb,5.1192e-01_rb/)\n      kbo(:, 1,28, 8) = (/ &\n     &5.6234e+01_rb,4.2299e+01_rb,2.8597e+01_rb,1.5531e+01_rb,3.8958e-01_rb/)\n      kbo(:, 2,28, 8) = (/ &\n     &6.0088e+01_rb,4.5199e+01_rb,3.0486e+01_rb,1.6430e+01_rb,4.0865e-01_rb/)\n      kbo(:, 3,28, 8) = (/ &\n     &6.4206e+01_rb,4.8292e+01_rb,3.2515e+01_rb,1.7385e+01_rb,4.2800e-01_rb/)\n      kbo(:, 4,28, 8) = (/ &\n     &6.8496e+01_rb,5.1510e+01_rb,3.4630e+01_rb,1.8368e+01_rb,4.4785e-01_rb/)\n      kbo(:, 5,28, 8) = (/ &\n     &7.2933e+01_rb,5.4831e+01_rb,3.6814e+01_rb,1.9374e+01_rb,4.6830e-01_rb/)\n      kbo(:, 1,29, 8) = (/ &\n     &5.2522e+01_rb,3.9524e+01_rb,2.6825e+01_rb,1.4721e+01_rb,3.4924e-01_rb/)\n      kbo(:, 2,29, 8) = (/ &\n     &5.6330e+01_rb,4.2387e+01_rb,2.8683e+01_rb,1.5618e+01_rb,3.6822e-01_rb/)\n      kbo(:, 3,29, 8) = (/ &\n     &6.0271e+01_rb,4.5343e+01_rb,3.0606e+01_rb,1.6531e+01_rb,3.8784e-01_rb/)\n      kbo(:, 4,29, 8) = (/ &\n     &6.4389e+01_rb,4.8431e+01_rb,3.2623e+01_rb,1.7468e+01_rb,4.0814e-01_rb/)\n      kbo(:, 5,29, 8) = (/ &\n     &6.8669e+01_rb,5.1633e+01_rb,3.4713e+01_rb,1.8422e+01_rb,4.2953e-01_rb/)\n      kbo(:, 1,30, 8) = (/ &\n     &5.0335e+01_rb,3.7896e+01_rb,2.5810e+01_rb,1.4271e+01_rb,3.1347e-01_rb/)\n      kbo(:, 2,30, 8) = (/ &\n     &5.4100e+01_rb,4.0719e+01_rb,2.7633e+01_rb,1.5165e+01_rb,3.3234e-01_rb/)\n      kbo(:, 3,30, 8) = (/ &\n     &5.7975e+01_rb,4.3625e+01_rb,2.9511e+01_rb,1.6060e+01_rb,3.5217e-01_rb/)\n      kbo(:, 4,30, 8) = (/ &\n     &6.2057e+01_rb,4.6681e+01_rb,3.1490e+01_rb,1.6979e+01_rb,3.7324e-01_rb/)\n      kbo(:, 5,30, 8) = (/ &\n     &6.6429e+01_rb,4.9951e+01_rb,3.3616e+01_rb,1.7947e+01_rb,3.9520e-01_rb/)\n      kbo(:, 1,31, 8) = (/ &\n     &5.0736e+01_rb,3.8204e+01_rb,2.6057e+01_rb,1.4444e+01_rb,2.8199e-01_rb/)\n      kbo(:, 2,31, 8) = (/ &\n     &5.4607e+01_rb,4.1105e+01_rb,2.7922e+01_rb,1.5358e+01_rb,3.0094e-01_rb/)\n      kbo(:, 3,31, 8) = (/ &\n     &5.8681e+01_rb,4.4155e+01_rb,2.9887e+01_rb,1.6295e+01_rb,3.2130e-01_rb/)\n      kbo(:, 4,31, 8) = (/ &\n     &6.3068e+01_rb,4.7436e+01_rb,3.2008e+01_rb,1.7279e+01_rb,3.4300e-01_rb/)\n      kbo(:, 5,31, 8) = (/ &\n     &6.7873e+01_rb,5.1031e+01_rb,3.4344e+01_rb,1.8340e+01_rb,3.6582e-01_rb/)\n      kbo(:, 1,32, 8) = (/ &\n     &5.1816e+01_rb,3.9019e+01_rb,2.6627e+01_rb,1.4770e+01_rb,2.5449e-01_rb/)\n      kbo(:, 2,32, 8) = (/ &\n     &5.5914e+01_rb,4.2088e+01_rb,2.8597e+01_rb,1.5735e+01_rb,2.7379e-01_rb/)\n      kbo(:, 3,32, 8) = (/ &\n     &6.0292e+01_rb,4.5361e+01_rb,3.0700e+01_rb,1.6736e+01_rb,2.9480e-01_rb/)\n      kbo(:, 4,32, 8) = (/ &\n     &6.5110e+01_rb,4.8965e+01_rb,3.3030e+01_rb,1.7812e+01_rb,3.1717e-01_rb/)\n      kbo(:, 5,32, 8) = (/ &\n     &7.0477e+01_rb,5.2981e+01_rb,3.5640e+01_rb,1.8999e+01_rb,3.4101e-01_rb/)\n      kbo(:, 1,33, 8) = (/ &\n     &5.3927e+01_rb,4.0606e+01_rb,2.7695e+01_rb,1.5341e+01_rb,2.3093e-01_rb/)\n      kbo(:, 2,33, 8) = (/ &\n     &5.8395e+01_rb,4.3947e+01_rb,2.9836e+01_rb,1.6383e+01_rb,2.5073e-01_rb/)\n      kbo(:, 3,33, 8) = (/ &\n     &6.3254e+01_rb,4.7578e+01_rb,3.2172e+01_rb,1.7485e+01_rb,2.7229e-01_rb/)\n      kbo(:, 4,33, 8) = (/ &\n     &6.8732e+01_rb,5.1678e+01_rb,3.4827e+01_rb,1.8707e+01_rb,2.9562e-01_rb/)\n      kbo(:, 5,33, 8) = (/ &\n     &7.4993e+01_rb,5.6366e+01_rb,3.7885e+01_rb,2.0105e+01_rb,3.2058e-01_rb/)\n      kbo(:, 1,34, 8) = (/ &\n     &5.4725e+01_rb,4.1207e+01_rb,2.8111e+01_rb,1.5582e+01_rb,2.1030e-01_rb/)\n      kbo(:, 2,34, 8) = (/ &\n     &5.9482e+01_rb,4.4761e+01_rb,3.0384e+01_rb,1.6682e+01_rb,2.3046e-01_rb/)\n      kbo(:, 3,34, 8) = (/ &\n     &6.4816e+01_rb,4.8747e+01_rb,3.2949e+01_rb,1.7887e+01_rb,2.5288e-01_rb/)\n      kbo(:, 4,34, 8) = (/ &\n     &7.0970e+01_rb,5.3352e+01_rb,3.5935e+01_rb,1.9263e+01_rb,2.7720e-01_rb/)\n      kbo(:, 5,34, 8) = (/ &\n     &7.8000e+01_rb,5.8622e+01_rb,3.9384e+01_rb,2.0853e+01_rb,3.0314e-01_rb/)\n      kbo(:, 1,35, 8) = (/ &\n     &5.5341e+01_rb,4.1670e+01_rb,2.8432e+01_rb,1.5766e+01_rb,1.9105e-01_rb/)\n      kbo(:, 2,35, 8) = (/ &\n     &6.0475e+01_rb,4.5504e+01_rb,3.0887e+01_rb,1.6952e+01_rb,2.1167e-01_rb/)\n      kbo(:, 3,35, 8) = (/ &\n     &6.6351e+01_rb,4.9895e+01_rb,3.3711e+01_rb,1.8277e+01_rb,2.3461e-01_rb/)\n      kbo(:, 4,35, 8) = (/ &\n     &7.3222e+01_rb,5.5040e+01_rb,3.7057e+01_rb,1.9828e+01_rb,2.5964e-01_rb/)\n      kbo(:, 5,35, 8) = (/ &\n     &8.0936e+01_rb,6.0824e+01_rb,4.0848e+01_rb,2.1583e+01_rb,2.8629e-01_rb/)\n      kbo(:, 1,36, 8) = (/ &\n     &5.5260e+01_rb,4.1610e+01_rb,2.8415e+01_rb,1.5779e+01_rb,1.7255e-01_rb/)\n      kbo(:, 2,36, 8) = (/ &\n     &6.0687e+01_rb,4.5661e+01_rb,3.1003e+01_rb,1.7034e+01_rb,1.9343e-01_rb/)\n      kbo(:, 3,36, 8) = (/ &\n     &6.7095e+01_rb,5.0451e+01_rb,3.4089e+01_rb,1.8486e+01_rb,2.1666e-01_rb/)\n      kbo(:, 4,36, 8) = (/ &\n     &7.4593e+01_rb,5.6070e+01_rb,3.7750e+01_rb,2.0193e+01_rb,2.4210e-01_rb/)\n      kbo(:, 5,36, 8) = (/ &\n     &8.2912e+01_rb,6.2305e+01_rb,4.1836e+01_rb,2.2093e+01_rb,2.6939e-01_rb/)\n      kbo(:, 1,37, 8) = (/ &\n     &5.3136e+01_rb,4.0024e+01_rb,2.7403e+01_rb,1.5295e+01_rb,1.5374e-01_rb/)\n      kbo(:, 2,37, 8) = (/ &\n     &5.8700e+01_rb,4.4173e+01_rb,3.0048e+01_rb,1.6588e+01_rb,1.7430e-01_rb/)\n      kbo(:, 3,37, 8) = (/ &\n     &6.5370e+01_rb,4.9158e+01_rb,3.3257e+01_rb,1.8110e+01_rb,1.9744e-01_rb/)\n      kbo(:, 4,37, 8) = (/ &\n     &7.3079e+01_rb,5.4934e+01_rb,3.7017e+01_rb,1.9876e+01_rb,2.2299e-01_rb/)\n      kbo(:, 5,37, 8) = (/ &\n     &8.1729e+01_rb,6.1417e+01_rb,4.1258e+01_rb,2.1852e+01_rb,2.5074e-01_rb/)\n      kbo(:, 1,38, 8) = (/ &\n     &5.1889e+01_rb,3.9094e+01_rb,2.6819e+01_rb,1.5017e+01_rb,1.3711e-01_rb/)\n      kbo(:, 2,38, 8) = (/ &\n     &5.7665e+01_rb,4.3397e+01_rb,2.9561e+01_rb,1.6368e+01_rb,1.5734e-01_rb/)\n      kbo(:, 3,38, 8) = (/ &\n     &6.4668e+01_rb,4.8631e+01_rb,3.2933e+01_rb,1.7981e+01_rb,1.8028e-01_rb/)\n      kbo(:, 4,38, 8) = (/ &\n     &7.2785e+01_rb,5.4713e+01_rb,3.6887e+01_rb,1.9846e+01_rb,2.0601e-01_rb/)\n      kbo(:, 5,38, 8) = (/ &\n     &8.1846e+01_rb,6.1504e+01_rb,4.1328e+01_rb,2.1921e+01_rb,2.3415e-01_rb/)\n      kbo(:, 1,39, 8) = (/ &\n     &5.1946e+01_rb,3.9141e+01_rb,2.6874e+01_rb,1.5056e+01_rb,1.2254e-01_rb/)\n      kbo(:, 2,39, 8) = (/ &\n     &5.8115e+01_rb,4.3735e+01_rb,2.9803e+01_rb,1.6507e+01_rb,1.4241e-01_rb/)\n      kbo(:, 3,39, 8) = (/ &\n     &6.5638e+01_rb,4.9361e+01_rb,3.3432e+01_rb,1.8252e+01_rb,1.6535e-01_rb/)\n      kbo(:, 4,39, 8) = (/ &\n     &7.4281e+01_rb,5.5835e+01_rb,3.7644e+01_rb,2.0246e+01_rb,1.9114e-01_rb/)\n      kbo(:, 5,39, 8) = (/ &\n     &8.4117e+01_rb,6.3205e+01_rb,4.2465e+01_rb,2.2507e+01_rb,2.1954e-01_rb/)\n      kbo(:, 1,40, 8) = (/ &\n     &4.8372e+01_rb,3.6476e+01_rb,2.5167e+01_rb,1.4200e+01_rb,1.0786e-01_rb/)\n      kbo(:, 2,40, 8) = (/ &\n     &5.4435e+01_rb,4.0985e+01_rb,2.8035e+01_rb,1.5644e+01_rb,1.2713e-01_rb/)\n      kbo(:, 3,40, 8) = (/ &\n     &6.1814e+01_rb,4.6498e+01_rb,3.1582e+01_rb,1.7371e+01_rb,1.4957e-01_rb/)\n      kbo(:, 4,40, 8) = (/ &\n     &7.0455e+01_rb,5.2966e+01_rb,3.5777e+01_rb,1.9373e+01_rb,1.7507e-01_rb/)\n      kbo(:, 5,40, 8) = (/ &\n     &8.0314e+01_rb,6.0352e+01_rb,4.0598e+01_rb,2.1643e+01_rb,2.0339e-01_rb/)\n      kbo(:, 1,41, 8) = (/ &\n     &4.4863e+01_rb,3.3865e+01_rb,2.3494e+01_rb,1.3347e+01_rb,9.4622e-02_rb/)\n      kbo(:, 2,41, 8) = (/ &\n     &5.0838e+01_rb,3.8301e+01_rb,2.6314e+01_rb,1.4793e+01_rb,1.1320e-01_rb/)\n      kbo(:, 3,41, 8) = (/ &\n     &5.8061e+01_rb,4.3692e+01_rb,2.9774e+01_rb,1.6500e+01_rb,1.3504e-01_rb/)\n      kbo(:, 4,41, 8) = (/ &\n     &6.6603e+01_rb,5.0081e+01_rb,3.3908e+01_rb,1.8494e+01_rb,1.6019e-01_rb/)\n      kbo(:, 5,41, 8) = (/ &\n     &7.6448e+01_rb,5.7454e+01_rb,3.8706e+01_rb,2.0765e+01_rb,1.8828e-01_rb/)\n      kbo(:, 1,42, 8) = (/ &\n     &4.2143e+01_rb,3.1846e+01_rb,2.2204e+01_rb,1.2680e+01_rb,8.2928e-02_rb/)\n      kbo(:, 2,42, 8) = (/ &\n     &4.7973e+01_rb,3.6167e+01_rb,2.4953e+01_rb,1.4117e+01_rb,1.0072e-01_rb/)\n      kbo(:, 3,42, 8) = (/ &\n     &5.5183e+01_rb,4.1542e+01_rb,2.8395e+01_rb,1.5835e+01_rb,1.2195e-01_rb/)\n      kbo(:, 4,42, 8) = (/ &\n     &6.3709e+01_rb,4.7914e+01_rb,3.2510e+01_rb,1.7836e+01_rb,1.4663e-01_rb/)\n      kbo(:, 5,42, 8) = (/ &\n     &7.3621e+01_rb,5.5334e+01_rb,3.7330e+01_rb,2.0134e+01_rb,1.7447e-01_rb/)\n      kbo(:, 1,43, 8) = (/ &\n     &3.9594e+01_rb,2.9962e+01_rb,2.1003e+01_rb,1.2048e+01_rb,7.1693e-02_rb/)\n      kbo(:, 2,43, 8) = (/ &\n     &4.5330e+01_rb,3.4203e+01_rb,2.3706e+01_rb,1.3485e+01_rb,8.8502e-02_rb/)\n      kbo(:, 3,43, 8) = (/ &\n     &5.2493e+01_rb,3.9537e+01_rb,2.7118e+01_rb,1.5213e+01_rb,1.0887e-01_rb/)\n      kbo(:, 4,43, 8) = (/ &\n     &6.1012e+01_rb,4.5896e+01_rb,3.1221e+01_rb,1.7230e+01_rb,1.3283e-01_rb/)\n      kbo(:, 5,43, 8) = (/ &\n     &7.1011e+01_rb,5.3379e+01_rb,3.6070e+01_rb,1.9559e+01_rb,1.6011e-01_rb/)\n      kbo(:, 1,44, 8) = (/ &\n     &3.7616e+01_rb,2.8507e+01_rb,2.0078e+01_rb,1.1553e+01_rb,6.1401e-02_rb/)\n      kbo(:, 2,44, 8) = (/ &\n     &4.3274e+01_rb,3.2681e+01_rb,2.2747e+01_rb,1.2992e+01_rb,7.7099e-02_rb/)\n      kbo(:, 3,44, 8) = (/ &\n     &5.0385e+01_rb,3.7971e+01_rb,2.6133e+01_rb,1.4732e+01_rb,9.6479e-02_rb/)\n      kbo(:, 4,44, 8) = (/ &\n     &5.8976e+01_rb,4.4379e+01_rb,3.0259e+01_rb,1.6785e+01_rb,1.1952e-01_rb/)\n      kbo(:, 5,44, 8) = (/ &\n     &6.9172e+01_rb,5.2003e+01_rb,3.5195e+01_rb,1.9170e+01_rb,1.4606e-01_rb/)\n      kbo(:, 1,45, 8) = (/ &\n     &3.6417e+01_rb,2.7634e+01_rb,1.9534e+01_rb,1.1252e+01_rb,5.2391e-02_rb/)\n      kbo(:, 2,45, 8) = (/ &\n     &4.2083e+01_rb,3.1808e+01_rb,2.2209e+01_rb,1.2716e+01_rb,6.6909e-02_rb/)\n      kbo(:, 3,45, 8) = (/ &\n     &4.9318e+01_rb,3.7181e+01_rb,2.5653e+01_rb,1.4499e+01_rb,8.5223e-02_rb/)\n      kbo(:, 4,45, 8) = (/ &\n     &5.8109e+01_rb,4.3735e+01_rb,2.9873e+01_rb,1.6620e+01_rb,1.0731e-01_rb/)\n      kbo(:, 5,45, 8) = (/ &\n     &6.8675e+01_rb,5.1635e+01_rb,3.4984e+01_rb,1.9103e+01_rb,1.3302e-01_rb/)\n      kbo(:, 1,46, 8) = (/ &\n     &3.5397e+01_rb,2.6895e+01_rb,1.9070e+01_rb,1.0989e+01_rb,4.4228e-02_rb/)\n      kbo(:, 2,46, 8) = (/ &\n     &4.1150e+01_rb,3.1127e+01_rb,2.1795e+01_rb,1.2497e+01_rb,5.7487e-02_rb/)\n      kbo(:, 3,46, 8) = (/ &\n     &4.8494e+01_rb,3.6574e+01_rb,2.5287e+01_rb,1.4324e+01_rb,7.4577e-02_rb/)\n      kbo(:, 4,46, 8) = (/ &\n     &5.7598e+01_rb,4.3359e+01_rb,2.9657e+01_rb,1.6535e+01_rb,9.5575e-02_rb/)\n      kbo(:, 5,46, 8) = (/ &\n     &6.8559e+01_rb,5.1549e+01_rb,3.4961e+01_rb,1.9128e+01_rb,1.2028e-01_rb/)\n      kbo(:, 1,47, 8) = (/ &\n     &3.3892e+01_rb,2.5799e+01_rb,1.8369e+01_rb,1.0592e+01_rb,3.6658e-02_rb/)\n      kbo(:, 2,47, 8) = (/ &\n     &3.9558e+01_rb,2.9961e+01_rb,2.1065e+01_rb,1.2104e+01_rb,4.8512e-02_rb/)\n      kbo(:, 3,47, 8) = (/ &\n     &4.6821e+01_rb,3.5338e+01_rb,2.4514e+01_rb,1.3933e+01_rb,6.4199e-02_rb/)\n      kbo(:, 4,47, 8) = (/ &\n     &5.6038e+01_rb,4.2200e+01_rb,2.8934e+01_rb,1.6192e+01_rb,8.3849e-02_rb/)\n      kbo(:, 5,47, 8) = (/ &\n     &6.7239e+01_rb,5.0568e+01_rb,3.4350e+01_rb,1.8859e+01_rb,1.0731e-01_rb/)\n      kbo(:, 1,48, 8) = (/ &\n     &3.3363e+01_rb,2.5430e+01_rb,1.8144e+01_rb,1.0446e+01_rb,3.0177e-02_rb/)\n      kbo(:, 2,48, 8) = (/ &\n     &3.9055e+01_rb,2.9607e+01_rb,2.0861e+01_rb,1.1982e+01_rb,4.0640e-02_rb/)\n      kbo(:, 3,48, 8) = (/ &\n     &4.6430e+01_rb,3.5057e+01_rb,2.4367e+01_rb,1.3859e+01_rb,5.4873e-02_rb/)\n      kbo(:, 4,48, 8) = (/ &\n     &5.5939e+01_rb,4.2134e+01_rb,2.8926e+01_rb,1.6205e+01_rb,7.3130e-02_rb/)\n      kbo(:, 5,48, 8) = (/ &\n     &6.7675e+01_rb,5.0896e+01_rb,3.4598e+01_rb,1.9010e+01_rb,9.5352e-02_rb/)\n      kbo(:, 1,49, 8) = (/ &\n     &3.4087e+01_rb,2.5989e+01_rb,1.8530e+01_rb,1.0628e+01_rb,2.4642e-02_rb/)\n      kbo(:, 2,49, 8) = (/ &\n     &4.0143e+01_rb,3.0436e+01_rb,2.1433e+01_rb,1.2264e+01_rb,3.3771e-02_rb/)\n      kbo(:, 3,49, 8) = (/ &\n     &4.7859e+01_rb,3.6137e+01_rb,2.5106e+01_rb,1.4243e+01_rb,4.6570e-02_rb/)\n      kbo(:, 4,49, 8) = (/ &\n     &5.8042e+01_rb,4.3715e+01_rb,2.9997e+01_rb,1.6759e+01_rb,6.3406e-02_rb/)\n      kbo(:, 5,49, 8) = (/ &\n     &7.0774e+01_rb,5.3220e+01_rb,3.6156e+01_rb,1.9813e+01_rb,8.4317e-02_rb/)\n      kbo(:, 1,50, 8) = (/ &\n     &3.3271e+01_rb,2.5407e+01_rb,1.8155e+01_rb,1.0394e+01_rb,2.0105e-02_rb/)\n      kbo(:, 2,50, 8) = (/ &\n     &3.9337e+01_rb,2.9859e+01_rb,2.1080e+01_rb,1.2062e+01_rb,2.8045e-02_rb/)\n      kbo(:, 3,50, 8) = (/ &\n     &4.7124e+01_rb,3.5606e+01_rb,2.4793e+01_rb,1.4082e+01_rb,3.9522e-02_rb/)\n      kbo(:, 4,50, 8) = (/ &\n     &5.7525e+01_rb,4.3340e+01_rb,2.9788e+01_rb,1.6668e+01_rb,5.4974e-02_rb/)\n      kbo(:, 5,50, 8) = (/ &\n     &7.0694e+01_rb,5.3165e+01_rb,3.6155e+01_rb,1.9842e+01_rb,7.4569e-02_rb/)\n      kbo(:, 1,51, 8) = (/ &\n     &3.1799e+01_rb,2.4339e+01_rb,1.7448e+01_rb,9.9788e+00_rb,1.6322e-02_rb/)\n      kbo(:, 2,51, 8) = (/ &\n     &3.7729e+01_rb,2.8686e+01_rb,2.0331e+01_rb,1.1646e+01_rb,2.3187e-02_rb/)\n      kbo(:, 3,51, 8) = (/ &\n     &4.5428e+01_rb,3.4361e+01_rb,2.4014e+01_rb,1.3675e+01_rb,3.3395e-02_rb/)\n      kbo(:, 4,51, 8) = (/ &\n     &5.5764e+01_rb,4.2036e+01_rb,2.8971e+01_rb,1.6259e+01_rb,4.7474e-02_rb/)\n      kbo(:, 5,51, 8) = (/ &\n     &6.9086e+01_rb,5.1969e+01_rb,3.5405e+01_rb,1.9496e+01_rb,6.5720e-02_rb/)\n      kbo(:, 1,52, 8) = (/ &\n     &3.1125e+01_rb,2.3861e+01_rb,1.7130e+01_rb,9.7762e+00_rb,1.3165e-02_rb/)\n      kbo(:, 2,52, 8) = (/ &\n     &3.7206e+01_rb,2.8320e+01_rb,2.0110e+01_rb,1.1507e+01_rb,1.9020e-02_rb/)\n      kbo(:, 3,52, 8) = (/ &\n     &4.4966e+01_rb,3.4037e+01_rb,2.3832e+01_rb,1.3576e+01_rb,2.8007e-02_rb/)\n      kbo(:, 4,52, 8) = (/ &\n     &5.5475e+01_rb,4.1834e+01_rb,2.8875e+01_rb,1.6222e+01_rb,4.0752e-02_rb/)\n      kbo(:, 5,52, 8) = (/ &\n     &6.9286e+01_rb,5.2127e+01_rb,3.5547e+01_rb,1.9593e+01_rb,5.7616e-02_rb/)\n      kbo(:, 1,53, 8) = (/ &\n     &3.1628e+01_rb,2.4253e+01_rb,1.7391e+01_rb,9.8844e+00_rb,1.0543e-02_rb/)\n      kbo(:, 2,53, 8) = (/ &\n     &3.8058e+01_rb,2.8975e+01_rb,2.0560e+01_rb,1.1731e+01_rb,1.5472e-02_rb/)\n      kbo(:, 3,53, 8) = (/ &\n     &4.6305e+01_rb,3.5054e+01_rb,2.4529e+01_rb,1.3933e+01_rb,2.3276e-02_rb/)\n      kbo(:, 4,53, 8) = (/ &\n     &5.7328e+01_rb,4.3229e+01_rb,2.9824e+01_rb,1.6717e+01_rb,3.4695e-02_rb/)\n      kbo(:, 5,53, 8) = (/ &\n     &7.2228e+01_rb,5.4335e+01_rb,3.7034e+01_rb,2.0360e+01_rb,5.0210e-02_rb/)\n      kbo(:, 1,54, 8) = (/ &\n     &2.7866e+01_rb,2.1495e+01_rb,1.5519e+01_rb,8.8346e+00_rb,8.4580e-03_rb/)\n      kbo(:, 2,54, 8) = (/ &\n     &3.3763e+01_rb,2.5815e+01_rb,1.8473e+01_rb,1.0588e+01_rb,1.2602e-02_rb/)\n      kbo(:, 3,54, 8) = (/ &\n     &4.1361e+01_rb,3.1401e+01_rb,2.2155e+01_rb,1.2668e+01_rb,1.9366e-02_rb/)\n      kbo(:, 4,54, 8) = (/ &\n     &5.1507e+01_rb,3.8906e+01_rb,2.7027e+01_rb,1.5284e+01_rb,2.9589e-02_rb/)\n      kbo(:, 5,54, 8) = (/ &\n     &6.5378e+01_rb,4.9225e+01_rb,3.3718e+01_rb,1.8724e+01_rb,4.3797e-02_rb/)\n      kbo(:, 1,55, 8) = (/ &\n     &2.2404e+01_rb,1.7484e+01_rb,1.2754e+01_rb,7.2917e+00_rb,6.7620e-03_rb/)\n      kbo(:, 2,55, 8) = (/ &\n     &2.7309e+01_rb,2.1069e+01_rb,1.5293e+01_rb,8.8299e+00_rb,1.0220e-02_rb/)\n      kbo(:, 3,55, 8) = (/ &\n     &3.3683e+01_rb,2.5733e+01_rb,1.8431e+01_rb,1.0660e+01_rb,1.6054e-02_rb/)\n      kbo(:, 4,55, 8) = (/ &\n     &4.2194e+01_rb,3.1999e+01_rb,2.2529e+01_rb,1.2931e+01_rb,2.5150e-02_rb/)\n      kbo(:, 5,55, 8) = (/ &\n     &5.4011e+01_rb,4.0754e+01_rb,2.8208e+01_rb,1.5935e+01_rb,3.8077e-02_rb/)\n      kbo(:, 1,56, 8) = (/ &\n     &1.7963e+01_rb,1.4222e+01_rb,1.0460e+01_rb,5.9968e+00_rb,5.3696e-03_rb/)\n      kbo(:, 2,56, 8) = (/ &\n     &2.2011e+01_rb,1.7185e+01_rb,1.2632e+01_rb,7.3359e+00_rb,8.2238e-03_rb/)\n      kbo(:, 3,56, 8) = (/ &\n     &2.7341e+01_rb,2.1070e+01_rb,1.5329e+01_rb,8.9492e+00_rb,1.3200e-02_rb/)\n      kbo(:, 4,56, 8) = (/ &\n     &3.4490e+01_rb,2.6306e+01_rb,1.8809e+01_rb,1.0943e+01_rb,2.1214e-02_rb/)\n      kbo(:, 5,56, 8) = (/ &\n     &4.4535e+01_rb,3.3715e+01_rb,2.3630e+01_rb,1.3559e+01_rb,3.2915e-02_rb/)\n      kbo(:, 1,57, 8) = (/ &\n     &1.4368e+01_rb,1.1564e+01_rb,8.5550e+00_rb,4.9118e+00_rb,4.2402e-03_rb/)\n      kbo(:, 2,57, 8) = (/ &\n     &1.7718e+01_rb,1.4043e+01_rb,1.0433e+01_rb,6.0838e+00_rb,6.5672e-03_rb/)\n      kbo(:, 3,57, 8) = (/ &\n     &2.2119e+01_rb,1.7250e+01_rb,1.2736e+01_rb,7.4914e+00_rb,1.0750e-02_rb/)\n      kbo(:, 4,57, 8) = (/ &\n     &2.8111e+01_rb,2.1614e+01_rb,1.5710e+01_rb,9.2466e+00_rb,1.7729e-02_rb/)\n      kbo(:, 5,57, 8) = (/ &\n     &3.6581e+01_rb,2.7832e+01_rb,1.9800e+01_rb,1.1525e+01_rb,2.8247e-02_rb/)\n      kbo(:, 1,58, 8) = (/ &\n     &3.0334e+00_rb,3.0458e+00_rb,2.9118e+00_rb,2.3449e+00_rb,3.3480e-03_rb/)\n      kbo(:, 2,58, 8) = (/ &\n     &3.7595e+00_rb,3.7165e+00_rb,3.5857e+00_rb,2.9410e+00_rb,5.2345e-03_rb/)\n      kbo(:, 3,58, 8) = (/ &\n     &4.7309e+00_rb,4.5866e+00_rb,4.4204e+00_rb,3.6685e+00_rb,8.7466e-03_rb/)\n      kbo(:, 4,58, 8) = (/ &\n     &6.0543e+00_rb,5.7620e+00_rb,5.4869e+00_rb,4.5723e+00_rb,1.4810e-02_rb/)\n      kbo(:, 5,58, 8) = (/ &\n     &7.9336e+00_rb,7.4372e+00_rb,6.9325e+00_rb,5.7367e+00_rb,2.4215e-02_rb/)\n      kbo(:, 1,59, 8) = (/ &\n     &2.9765e+00_rb,2.9765e+00_rb,2.6845e+00_rb,1.9427e+00_rb,2.8320e-03_rb/)\n      kbo(:, 2,59, 8) = (/ &\n     &3.7193e+00_rb,3.6697e+00_rb,3.3576e+00_rb,2.4792e+00_rb,4.5261e-03_rb/)\n      kbo(:, 3,59, 8) = (/ &\n     &4.7245e+00_rb,4.5542e+00_rb,4.1916e+00_rb,3.1428e+00_rb,7.7669e-03_rb/)\n      kbo(:, 4,59, 8) = (/ &\n     &6.1120e+00_rb,5.7342e+00_rb,5.2520e+00_rb,3.9688e+00_rb,1.3461e-02_rb/)\n      kbo(:, 5,59, 8) = (/ &\n     &8.1086e+00_rb,7.4151e+00_rb,6.6769e+00_rb,5.0327e+00_rb,2.2363e-02_rb/)\n      kbo(:, 1,13, 9) = (/ &\n     &3.9255e+04_rb,2.9441e+04_rb,1.9628e+04_rb,9.8141e+03_rb,2.1650e+00_rb/)\n      kbo(:, 2,13, 9) = (/ &\n     &3.9490e+04_rb,2.9618e+04_rb,1.9745e+04_rb,9.8730e+03_rb,2.1321e+00_rb/)\n      kbo(:, 3,13, 9) = (/ &\n     &3.9631e+04_rb,2.9723e+04_rb,1.9816e+04_rb,9.9081e+03_rb,2.0803e+00_rb/)\n      kbo(:, 4,13, 9) = (/ &\n     &3.9707e+04_rb,2.9781e+04_rb,1.9854e+04_rb,9.9272e+03_rb,2.0587e+00_rb/)\n      kbo(:, 5,13, 9) = (/ &\n     &3.9690e+04_rb,2.9768e+04_rb,1.9845e+04_rb,9.9229e+03_rb,2.0351e+00_rb/)\n      kbo(:, 1,14, 9) = (/ &\n     &2.2391e+04_rb,1.6793e+04_rb,1.1196e+04_rb,5.5981e+03_rb,2.2958e+00_rb/)\n      kbo(:, 2,14, 9) = (/ &\n     &2.2483e+04_rb,1.6862e+04_rb,1.1241e+04_rb,5.6209e+03_rb,2.2646e+00_rb/)\n      kbo(:, 3,14, 9) = (/ &\n     &2.2517e+04_rb,1.6888e+04_rb,1.1259e+04_rb,5.6296e+03_rb,2.2164e+00_rb/)\n      kbo(:, 4,14, 9) = (/ &\n     &2.2511e+04_rb,1.6883e+04_rb,1.1256e+04_rb,5.6281e+03_rb,2.1692e+00_rb/)\n      kbo(:, 5,14, 9) = (/ &\n     &2.2470e+04_rb,1.6853e+04_rb,1.1235e+04_rb,5.6178e+03_rb,2.1488e+00_rb/)\n      kbo(:, 1,15, 9) = (/ &\n     &1.2806e+04_rb,9.6046e+03_rb,6.4033e+03_rb,3.2019e+03_rb,2.4251e+00_rb/)\n      kbo(:, 2,15, 9) = (/ &\n     &1.2828e+04_rb,9.6209e+03_rb,6.4142e+03_rb,3.2073e+03_rb,2.3960e+00_rb/)\n      kbo(:, 3,15, 9) = (/ &\n     &1.2826e+04_rb,9.6195e+03_rb,6.4132e+03_rb,3.2069e+03_rb,2.3588e+00_rb/)\n      kbo(:, 4,15, 9) = (/ &\n     &1.2818e+04_rb,9.6139e+03_rb,6.4095e+03_rb,3.2050e+03_rb,2.3106e+00_rb/)\n      kbo(:, 5,15, 9) = (/ &\n     &1.2808e+04_rb,9.6063e+03_rb,6.4044e+03_rb,3.2025e+03_rb,2.2722e+00_rb/)\n      kbo(:, 1,16, 9) = (/ &\n     &8.5967e+03_rb,6.4476e+03_rb,4.2986e+03_rb,2.1496e+03_rb,2.5476e+00_rb/)\n      kbo(:, 2,16, 9) = (/ &\n     &8.5987e+03_rb,6.4492e+03_rb,4.2996e+03_rb,2.1501e+03_rb,2.5204e+00_rb/)\n      kbo(:, 3,16, 9) = (/ &\n     &8.5999e+03_rb,6.4500e+03_rb,4.3002e+03_rb,2.1504e+03_rb,2.4878e+00_rb/)\n      kbo(:, 4,16, 9) = (/ &\n     &8.6043e+03_rb,6.4534e+03_rb,4.3024e+03_rb,2.1515e+03_rb,2.4397e+00_rb/)\n      kbo(:, 5,16, 9) = (/ &\n     &8.6176e+03_rb,6.4634e+03_rb,4.3091e+03_rb,2.1548e+03_rb,2.4008e+00_rb/)\n      kbo(:, 1,17, 9) = (/ &\n     &5.9284e+03_rb,4.4464e+03_rb,2.9645e+03_rb,1.4825e+03_rb,2.6544e+00_rb/)\n      kbo(:, 2,17, 9) = (/ &\n     &5.9327e+03_rb,4.4497e+03_rb,2.9666e+03_rb,1.4836e+03_rb,2.6300e+00_rb/)\n      kbo(:, 3,17, 9) = (/ &\n     &5.9411e+03_rb,4.4560e+03_rb,2.9708e+03_rb,1.4857e+03_rb,2.5993e+00_rb/)\n      kbo(:, 4,17, 9) = (/ &\n     &5.9634e+03_rb,4.4727e+03_rb,2.9820e+03_rb,1.4912e+03_rb,2.5553e+00_rb/)\n      kbo(:, 5,17, 9) = (/ &\n     &6.0032e+03_rb,4.5025e+03_rb,3.0018e+03_rb,1.5012e+03_rb,2.5167e+00_rb/)\n      kbo(:, 1,18, 9) = (/ &\n     &4.1696e+03_rb,3.1274e+03_rb,2.0851e+03_rb,1.0428e+03_rb,2.7386e+00_rb/)\n      kbo(:, 2,18, 9) = (/ &\n     &4.1796e+03_rb,3.1348e+03_rb,2.0901e+03_rb,1.0453e+03_rb,2.7184e+00_rb/)\n      kbo(:, 3,18, 9) = (/ &\n     &4.2028e+03_rb,3.1522e+03_rb,2.1017e+03_rb,1.0511e+03_rb,2.6888e+00_rb/)\n      kbo(:, 4,18, 9) = (/ &\n     &4.2429e+03_rb,3.1823e+03_rb,2.1217e+03_rb,1.0611e+03_rb,2.6491e+00_rb/)\n      kbo(:, 5,18, 9) = (/ &\n     &4.2973e+03_rb,3.2231e+03_rb,2.1489e+03_rb,1.0747e+03_rb,2.6124e+00_rb/)\n      kbo(:, 1,19, 9) = (/ &\n     &2.8753e+03_rb,2.1566e+03_rb,1.4379e+03_rb,7.1922e+02_rb,2.7969e+00_rb/)\n      kbo(:, 2,19, 9) = (/ &\n     &2.8953e+03_rb,2.1716e+03_rb,1.4479e+03_rb,7.2422e+02_rb,2.7817e+00_rb/)\n      kbo(:, 3,19, 9) = (/ &\n     &2.9302e+03_rb,2.1978e+03_rb,1.4654e+03_rb,7.3295e+02_rb,2.7548e+00_rb/)\n      kbo(:, 4,19, 9) = (/ &\n     &2.9782e+03_rb,2.2338e+03_rb,1.4894e+03_rb,7.4494e+02_rb,2.7189e+00_rb/)\n      kbo(:, 5,19, 9) = (/ &\n     &3.0360e+03_rb,2.2771e+03_rb,1.5183e+03_rb,7.5939e+02_rb,2.6829e+00_rb/)\n      kbo(:, 1,20, 9) = (/ &\n     &2.1517e+03_rb,1.6139e+03_rb,1.0761e+03_rb,5.3833e+02_rb,2.8251e+00_rb/)\n      kbo(:, 2,20, 9) = (/ &\n     &2.1814e+03_rb,1.6362e+03_rb,1.0910e+03_rb,5.4575e+02_rb,2.8122e+00_rb/)\n      kbo(:, 3,20, 9) = (/ &\n     &2.2241e+03_rb,1.6682e+03_rb,1.1123e+03_rb,5.5643e+02_rb,2.7893e+00_rb/)\n      kbo(:, 4,20, 9) = (/ &\n     &2.2758e+03_rb,1.7069e+03_rb,1.1381e+03_rb,5.6933e+02_rb,2.7572e+00_rb/)\n      kbo(:, 5,20, 9) = (/ &\n     &2.3338e+03_rb,1.7505e+03_rb,1.1672e+03_rb,5.8384e+02_rb,2.7245e+00_rb/)\n      kbo(:, 1,21, 9) = (/ &\n     &1.6700e+03_rb,1.2526e+03_rb,8.3526e+02_rb,4.1790e+02_rb,2.8188e+00_rb/)\n      kbo(:, 2,21, 9) = (/ &\n     &1.7058e+03_rb,1.2795e+03_rb,8.5318e+02_rb,4.2686e+02_rb,2.8087e+00_rb/)\n      kbo(:, 3,21, 9) = (/ &\n     &1.7510e+03_rb,1.3134e+03_rb,8.7578e+02_rb,4.3816e+02_rb,2.7899e+00_rb/)\n      kbo(:, 4,21, 9) = (/ &\n     &1.8029e+03_rb,1.3523e+03_rb,9.0173e+02_rb,4.5113e+02_rb,2.7632e+00_rb/)\n      kbo(:, 5,21, 9) = (/ &\n     &1.8601e+03_rb,1.3952e+03_rb,9.3032e+02_rb,4.6542e+02_rb,2.7328e+00_rb/)\n      kbo(:, 1,22, 9) = (/ &\n     &1.3403e+03_rb,1.0054e+03_rb,6.7043e+02_rb,3.3549e+02_rb,2.7778e+00_rb/)\n      kbo(:, 2,22, 9) = (/ &\n     &1.3792e+03_rb,1.0345e+03_rb,6.8985e+02_rb,3.4520e+02_rb,2.7715e+00_rb/)\n      kbo(:, 3,22, 9) = (/ &\n     &1.4248e+03_rb,1.0688e+03_rb,7.1269e+02_rb,3.5661e+02_rb,2.7559e+00_rb/)\n      kbo(:, 4,22, 9) = (/ &\n     &1.4749e+03_rb,1.1063e+03_rb,7.3770e+02_rb,3.6911e+02_rb,2.7316e+00_rb/)\n      kbo(:, 5,22, 9) = (/ &\n     &1.5223e+03_rb,1.1418e+03_rb,7.6138e+02_rb,3.8094e+02_rb,2.7088e+00_rb/)\n      kbo(:, 1,23, 9) = (/ &\n     &1.0891e+03_rb,8.1698e+02_rb,5.4484e+02_rb,2.7270e+02_rb,2.7041e+00_rb/)\n      kbo(:, 2,23, 9) = (/ &\n     &1.1283e+03_rb,8.4637e+02_rb,5.6443e+02_rb,2.8249e+02_rb,2.7027e+00_rb/)\n      kbo(:, 3,23, 9) = (/ &\n     &1.1704e+03_rb,8.7791e+02_rb,5.8545e+02_rb,2.9300e+02_rb,2.6907e+00_rb/)\n      kbo(:, 4,23, 9) = (/ &\n     &1.2113e+03_rb,9.0862e+02_rb,6.0592e+02_rb,3.0322e+02_rb,2.6730e+00_rb/)\n      kbo(:, 5,23, 9) = (/ &\n     &1.2507e+03_rb,9.3816e+02_rb,6.2560e+02_rb,3.1305e+02_rb,2.6594e+00_rb/)\n      kbo(:, 1,24, 9) = (/ &\n     &8.8581e+02_rb,6.6450e+02_rb,4.4318e+02_rb,2.2188e+02_rb,2.6023e+00_rb/)\n      kbo(:, 2,24, 9) = (/ &\n     &9.2040e+02_rb,6.9044e+02_rb,4.6047e+02_rb,2.3052e+02_rb,2.6060e+00_rb/)\n      kbo(:, 3,24, 9) = (/ &\n     &9.5496e+02_rb,7.1635e+02_rb,4.7775e+02_rb,2.3914e+02_rb,2.6005e+00_rb/)\n      kbo(:, 4,24, 9) = (/ &\n     &9.8776e+02_rb,7.4094e+02_rb,4.9413e+02_rb,2.4733e+02_rb,2.5922e+00_rb/)\n      kbo(:, 5,24, 9) = (/ &\n     &1.0196e+03_rb,7.6479e+02_rb,5.1001e+02_rb,2.5525e+02_rb,2.5914e+00_rb/)\n      kbo(:, 1,25, 9) = (/ &\n     &7.3035e+02_rb,5.4790e+02_rb,3.6545e+02_rb,1.8302e+02_rb,2.4806e+00_rb/)\n      kbo(:, 2,25, 9) = (/ &\n     &7.5932e+02_rb,5.6963e+02_rb,3.7993e+02_rb,1.9025e+02_rb,2.4895e+00_rb/)\n      kbo(:, 3,25, 9) = (/ &\n     &7.8665e+02_rb,5.9012e+02_rb,3.9359e+02_rb,1.9707e+02_rb,2.4921e+00_rb/)\n      kbo(:, 4,25, 9) = (/ &\n     &8.1328e+02_rb,6.1007e+02_rb,4.0688e+02_rb,2.0370e+02_rb,2.4969e+00_rb/)\n      kbo(:, 5,25, 9) = (/ &\n     &8.3956e+02_rb,6.2979e+02_rb,4.2001e+02_rb,2.1025e+02_rb,2.5085e+00_rb/)\n      kbo(:, 1,26, 9) = (/ &\n     &6.1100e+02_rb,4.5838e+02_rb,3.0577e+02_rb,1.5319e+02_rb,2.3442e+00_rb/)\n      kbo(:, 2,26, 9) = (/ &\n     &6.3406e+02_rb,4.7568e+02_rb,3.1730e+02_rb,1.5893e+02_rb,2.3618e+00_rb/)\n      kbo(:, 3,26, 9) = (/ &\n     &6.5658e+02_rb,4.9255e+02_rb,3.2854e+02_rb,1.6455e+02_rb,2.3770e+00_rb/)\n      kbo(:, 4,26, 9) = (/ &\n     &6.7915e+02_rb,5.0948e+02_rb,3.3981e+02_rb,1.7016e+02_rb,2.3964e+00_rb/)\n      kbo(:, 5,26, 9) = (/ &\n     &7.0247e+02_rb,5.2696e+02_rb,3.5146e+02_rb,1.7598e+02_rb,2.4222e+00_rb/)\n      kbo(:, 1,27, 9) = (/ &\n     &5.2844e+02_rb,3.9646e+02_rb,2.6449e+02_rb,1.3259e+02_rb,2.2032e+00_rb/)\n      kbo(:, 2,27, 9) = (/ &\n     &5.4789e+02_rb,4.1105e+02_rb,2.7421e+02_rb,1.3742e+02_rb,2.2331e+00_rb/)\n      kbo(:, 3,27, 9) = (/ &\n     &5.6778e+02_rb,4.2595e+02_rb,2.8414e+02_rb,1.4236e+02_rb,2.2623e+00_rb/)\n      kbo(:, 4,27, 9) = (/ &\n     &5.8850e+02_rb,4.4149e+02_rb,2.9449e+02_rb,1.4751e+02_rb,2.3009e+00_rb/)\n      kbo(:, 5,27, 9) = (/ &\n     &6.1090e+02_rb,4.5829e+02_rb,3.0567e+02_rb,1.5309e+02_rb,2.3382e+00_rb/)\n      kbo(:, 1,28, 9) = (/ &\n     &4.6826e+02_rb,3.5133e+02_rb,2.3440e+02_rb,1.1763e+02_rb,2.0680e+00_rb/)\n      kbo(:, 2,28, 9) = (/ &\n     &4.8590e+02_rb,3.6454e+02_rb,2.4321e+02_rb,1.2197e+02_rb,2.1100e+00_rb/)\n      kbo(:, 3,28, 9) = (/ &\n     &5.0445e+02_rb,3.7846e+02_rb,2.5247e+02_rb,1.2655e+02_rb,2.1567e+00_rb/)\n      kbo(:, 4,28, 9) = (/ &\n     &5.2474e+02_rb,3.9367e+02_rb,2.6260e+02_rb,1.3159e+02_rb,2.2098e+00_rb/)\n      kbo(:, 5,28, 9) = (/ &\n     &5.4720e+02_rb,4.1051e+02_rb,2.7382e+02_rb,1.3717e+02_rb,2.2620e+00_rb/)\n      kbo(:, 1,29, 9) = (/ &\n     &4.4072e+02_rb,3.3067e+02_rb,2.2063e+02_rb,1.1082e+02_rb,1.9419e+00_rb/)\n      kbo(:, 2,29, 9) = (/ &\n     &4.5821e+02_rb,3.4378e+02_rb,2.2936e+02_rb,1.1511e+02_rb,1.9998e+00_rb/)\n      kbo(:, 3,29, 9) = (/ &\n     &4.7729e+02_rb,3.5808e+02_rb,2.3889e+02_rb,1.1980e+02_rb,2.0671e+00_rb/)\n      kbo(:, 4,29, 9) = (/ &\n     &4.9882e+02_rb,3.7422e+02_rb,2.4964e+02_rb,1.2512e+02_rb,2.1341e+00_rb/)\n      kbo(:, 5,29, 9) = (/ &\n     &5.2331e+02_rb,3.9259e+02_rb,2.6188e+02_rb,1.3121e+02_rb,2.1979e+00_rb/)\n      kbo(:, 1,30, 9) = (/ &\n     &4.2556e+02_rb,3.1930e+02_rb,2.1305e+02_rb,1.0711e+02_rb,1.8309e+00_rb/)\n      kbo(:, 2,30, 9) = (/ &\n     &4.4407e+02_rb,3.3317e+02_rb,2.2229e+02_rb,1.1161e+02_rb,1.9101e+00_rb/)\n      kbo(:, 3,30, 9) = (/ &\n     &4.6505e+02_rb,3.4890e+02_rb,2.3276e+02_rb,1.1676e+02_rb,1.9914e+00_rb/)\n      kbo(:, 4,30, 9) = (/ &\n     &4.8908e+02_rb,3.6692e+02_rb,2.4477e+02_rb,1.2270e+02_rb,2.0709e+00_rb/)\n      kbo(:, 5,30, 9) = (/ &\n     &5.1660e+02_rb,3.8756e+02_rb,2.5853e+02_rb,1.2954e+02_rb,2.1480e+00_rb/)\n      kbo(:, 1,31, 9) = (/ &\n     &4.3357e+02_rb,3.2530e+02_rb,2.1704e+02_rb,1.0913e+02_rb,1.7458e+00_rb/)\n      kbo(:, 2,31, 9) = (/ &\n     &4.5478e+02_rb,3.4120e+02_rb,2.2764e+02_rb,1.1430e+02_rb,1.8393e+00_rb/)\n      kbo(:, 3,31, 9) = (/ &\n     &4.7940e+02_rb,3.5966e+02_rb,2.3993e+02_rb,1.2035e+02_rb,1.9333e+00_rb/)\n      kbo(:, 4,31, 9) = (/ &\n     &5.0804e+02_rb,3.8115e+02_rb,2.5425e+02_rb,1.2744e+02_rb,2.0234e+00_rb/)\n      kbo(:, 5,31, 9) = (/ &\n     &5.4033e+02_rb,4.0536e+02_rb,2.7039e+02_rb,1.3548e+02_rb,2.1150e+00_rb/)\n      kbo(:, 1,32, 9) = (/ &\n     &4.4897e+02_rb,3.3685e+02_rb,2.2474e+02_rb,1.1298e+02_rb,1.6787e+00_rb/)\n      kbo(:, 2,32, 9) = (/ &\n     &4.7419e+02_rb,3.5576e+02_rb,2.3734e+02_rb,1.1915e+02_rb,1.7859e+00_rb/)\n      kbo(:, 3,32, 9) = (/ &\n     &5.0379e+02_rb,3.7796e+02_rb,2.5213e+02_rb,1.2644e+02_rb,1.8899e+00_rb/)\n      kbo(:, 4,32, 9) = (/ &\n     &5.3795e+02_rb,4.0357e+02_rb,2.6921e+02_rb,1.3492e+02_rb,1.9968e+00_rb/)\n      kbo(:, 5,32, 9) = (/ &\n     &5.7556e+02_rb,4.3179e+02_rb,2.8802e+02_rb,1.4429e+02_rb,2.0977e+00_rb/)\n      kbo(:, 1,33, 9) = (/ &\n     &4.7613e+02_rb,3.5721e+02_rb,2.3831e+02_rb,1.1974e+02_rb,1.6313e+00_rb/)\n      kbo(:, 2,33, 9) = (/ &\n     &5.0727e+02_rb,3.8056e+02_rb,2.5387e+02_rb,1.2739e+02_rb,1.7486e+00_rb/)\n      kbo(:, 3,33, 9) = (/ &\n     &5.4363e+02_rb,4.0783e+02_rb,2.7205e+02_rb,1.3639e+02_rb,1.8695e+00_rb/)\n      kbo(:, 4,33, 9) = (/ &\n     &5.8421e+02_rb,4.3828e+02_rb,2.9234e+02_rb,1.4648e+02_rb,1.9835e+00_rb/)\n      kbo(:, 5,33, 9) = (/ &\n     &6.2742e+02_rb,4.7068e+02_rb,3.1394e+02_rb,1.5725e+02_rb,2.0938e+00_rb/)\n      kbo(:, 1,34, 9) = (/ &\n     &4.9479e+02_rb,3.7120e+02_rb,2.4764e+02_rb,1.2439e+02_rb,1.5951e+00_rb/)\n      kbo(:, 2,34, 9) = (/ &\n     &5.3209e+02_rb,3.9918e+02_rb,2.6628e+02_rb,1.3359e+02_rb,1.7258e+00_rb/)\n      kbo(:, 3,34, 9) = (/ &\n     &5.7463e+02_rb,4.3109e+02_rb,2.8755e+02_rb,1.4413e+02_rb,1.8546e+00_rb/)\n      kbo(:, 4,34, 9) = (/ &\n     &6.2052e+02_rb,4.6551e+02_rb,3.1050e+02_rb,1.5556e+02_rb,1.9770e+00_rb/)\n      kbo(:, 5,34, 9) = (/ &\n     &6.6892e+02_rb,5.0180e+02_rb,3.3469e+02_rb,1.6762e+02_rb,2.0917e+00_rb/)\n      kbo(:, 1,35, 9) = (/ &\n     &5.1474e+02_rb,3.8617e+02_rb,2.5762e+02_rb,1.2939e+02_rb,1.5620e+00_rb/)\n      kbo(:, 2,35, 9) = (/ &\n     &5.5847e+02_rb,4.1897e+02_rb,2.7948e+02_rb,1.4019e+02_rb,1.7022e+00_rb/)\n      kbo(:, 3,35, 9) = (/ &\n     &6.0709e+02_rb,4.5544e+02_rb,3.0379e+02_rb,1.5226e+02_rb,1.8365e+00_rb/)\n      kbo(:, 4,35, 9) = (/ &\n     &6.5852e+02_rb,4.9401e+02_rb,3.2950e+02_rb,1.6506e+02_rb,1.9663e+00_rb/)\n      kbo(:, 5,35, 9) = (/ &\n     &7.1282e+02_rb,5.3473e+02_rb,3.5664e+02_rb,1.7860e+02_rb,2.0876e+00_rb/)\n      kbo(:, 1,36, 9) = (/ &\n     &5.3040e+02_rb,3.9792e+02_rb,2.6545e+02_rb,1.3332e+02_rb,1.5229e+00_rb/)\n      kbo(:, 2,36, 9) = (/ &\n     &5.8002e+02_rb,4.3513e+02_rb,2.9026e+02_rb,1.4559e+02_rb,1.6698e+00_rb/)\n      kbo(:, 3,36, 9) = (/ &\n     &6.3422e+02_rb,4.7578e+02_rb,3.1736e+02_rb,1.5904e+02_rb,1.8112e+00_rb/)\n      kbo(:, 4,36, 9) = (/ &\n     &6.9154e+02_rb,5.1877e+02_rb,3.4601e+02_rb,1.7331e+02_rb,1.9470e+00_rb/)\n      kbo(:, 5,36, 9) = (/ &\n     &7.5259e+02_rb,5.6456e+02_rb,3.7653e+02_rb,1.8854e+02_rb,2.0786e+00_rb/)\n      kbo(:, 1,37, 9) = (/ &\n     &5.2761e+02_rb,3.9583e+02_rb,2.6405e+02_rb,1.3269e+02_rb,1.4669e+00_rb/)\n      kbo(:, 2,37, 9) = (/ &\n     &5.8107e+02_rb,4.3593e+02_rb,2.9079e+02_rb,1.4590e+02_rb,1.6200e+00_rb/)\n      kbo(:, 3,37, 9) = (/ &\n     &6.3936e+02_rb,4.7964e+02_rb,3.1993e+02_rb,1.6036e+02_rb,1.7687e+00_rb/)\n      kbo(:, 4,37, 9) = (/ &\n     &7.0149e+02_rb,5.2623e+02_rb,3.5098e+02_rb,1.7581e+02_rb,1.9104e+00_rb/)\n      kbo(:, 5,37, 9) = (/ &\n     &7.6801e+02_rb,5.7612e+02_rb,3.8424e+02_rb,1.9240e+02_rb,2.0492e+00_rb/)\n      kbo(:, 1,38, 9) = (/ &\n     &5.3320e+02_rb,4.0002e+02_rb,2.6686e+02_rb,1.3414e+02_rb,1.4150e+00_rb/)\n      kbo(:, 2,38, 9) = (/ &\n     &5.9148e+02_rb,4.4373e+02_rb,2.9599e+02_rb,1.4854e+02_rb,1.5738e+00_rb/)\n      kbo(:, 3,38, 9) = (/ &\n     &6.5505e+02_rb,4.9141e+02_rb,3.2778e+02_rb,1.6430e+02_rb,1.7289e+00_rb/)\n      kbo(:, 4,38, 9) = (/ &\n     &7.2345e+02_rb,5.4270e+02_rb,3.6197e+02_rb,1.8131e+02_rb,1.8759e+00_rb/)\n      kbo(:, 5,38, 9) = (/ &\n     &7.9740e+02_rb,5.9816e+02_rb,3.9894e+02_rb,1.9975e+02_rb,2.0221e+00_rb/)\n      kbo(:, 1,39, 9) = (/ &\n     &5.5268e+02_rb,4.1463e+02_rb,2.7660e+02_rb,1.3905e+02_rb,1.3683e+00_rb/)\n      kbo(:, 2,39, 9) = (/ &\n     &6.1737e+02_rb,4.6316e+02_rb,3.0895e+02_rb,1.5504e+02_rb,1.5320e+00_rb/)\n      kbo(:, 3,39, 9) = (/ &\n     &6.8821e+02_rb,5.1628e+02_rb,3.4436e+02_rb,1.7260e+02_rb,1.6920e+00_rb/)\n      kbo(:, 4,39, 9) = (/ &\n     &7.6555e+02_rb,5.7429e+02_rb,3.8302e+02_rb,1.9184e+02_rb,1.8468e+00_rb/)\n      kbo(:, 5,39, 9) = (/ &\n     &8.4965e+02_rb,6.3736e+02_rb,4.2508e+02_rb,2.1282e+02_rb,1.9969e+00_rb/)\n      kbo(:, 1,40, 9) = (/ &\n     &5.3311e+02_rb,3.9996e+02_rb,2.6682e+02_rb,1.3428e+02_rb,1.3069e+00_rb/)\n      kbo(:, 2,40, 9) = (/ &\n     &5.9979e+02_rb,4.4997e+02_rb,3.0016e+02_rb,1.5072e+02_rb,1.4753e+00_rb/)\n      kbo(:, 3,40, 9) = (/ &\n     &6.7343e+02_rb,5.0519e+02_rb,3.3697e+02_rb,1.6896e+02_rb,1.6406e+00_rb/)\n      kbo(:, 4,40, 9) = (/ &\n     &7.5472e+02_rb,5.6615e+02_rb,3.7760e+02_rb,1.8916e+02_rb,1.7999e+00_rb/)\n      kbo(:, 5,40, 9) = (/ &\n     &8.4379e+02_rb,6.3296e+02_rb,4.2214e+02_rb,2.1136e+02_rb,1.9558e+00_rb/)\n      kbo(:, 1,41, 9) = (/ &\n     &5.1260e+02_rb,3.8458e+02_rb,2.5658e+02_rb,1.2928e+02_rb,1.2459e+00_rb/)\n      kbo(:, 2,41, 9) = (/ &\n     &5.8131e+02_rb,4.3611e+02_rb,2.9093e+02_rb,1.4621e+02_rb,1.4179e+00_rb/)\n      kbo(:, 3,41, 9) = (/ &\n     &6.5741e+02_rb,4.9318e+02_rb,3.2896e+02_rb,1.6503e+02_rb,1.5871e+00_rb/)\n      kbo(:, 4,41, 9) = (/ &\n     &7.4227e+02_rb,5.5683e+02_rb,3.7139e+02_rb,1.8609e+02_rb,1.7498e+00_rb/)\n      kbo(:, 5,41, 9) = (/ &\n     &8.3623e+02_rb,6.2730e+02_rb,4.1837e+02_rb,2.0950e+02_rb,1.9122e+00_rb/)\n      kbo(:, 1,42, 9) = (/ &\n     &4.9831e+02_rb,3.7386e+02_rb,2.4944e+02_rb,1.2584e+02_rb,1.1865e+00_rb/)\n      kbo(:, 2,42, 9) = (/ &\n     &5.6980e+02_rb,4.2748e+02_rb,2.8517e+02_rb,1.4342e+02_rb,1.3622e+00_rb/)\n      kbo(:, 3,42, 9) = (/ &\n     &6.4955e+02_rb,4.8728e+02_rb,3.2503e+02_rb,1.6313e+02_rb,1.5361e+00_rb/)\n      kbo(:, 4,42, 9) = (/ &\n     &7.3900e+02_rb,5.5437e+02_rb,3.6975e+02_rb,1.8531e+02_rb,1.7026e+00_rb/)\n      kbo(:, 5,42, 9) = (/ &\n     &8.3900e+02_rb,6.2937e+02_rb,4.1975e+02_rb,2.1021e+02_rb,1.8688e+00_rb/)\n      kbo(:, 1,43, 9) = (/ &\n     &4.8522e+02_rb,3.6405e+02_rb,2.4292e+02_rb,1.2271e+02_rb,1.1188e+00_rb/)\n      kbo(:, 2,43, 9) = (/ &\n     &5.5936e+02_rb,4.1965e+02_rb,2.7996e+02_rb,1.4092e+02_rb,1.2979e+00_rb/)\n      kbo(:, 3,43, 9) = (/ &\n     &6.4330e+02_rb,4.8260e+02_rb,3.2191e+02_rb,1.6164e+02_rb,1.4736e+00_rb/)\n      kbo(:, 4,43, 9) = (/ &\n     &7.3773e+02_rb,5.5342e+02_rb,3.6912e+02_rb,1.8505e+02_rb,1.6463e+00_rb/)\n      kbo(:, 5,43, 9) = (/ &\n     &8.4419e+02_rb,6.3327e+02_rb,4.2235e+02_rb,2.1154e+02_rb,1.8168e+00_rb/)\n      kbo(:, 1,44, 9) = (/ &\n     &4.7662e+02_rb,3.5759e+02_rb,2.3863e+02_rb,1.2069e+02_rb,1.0480e+00_rb/)\n      kbo(:, 2,44, 9) = (/ &\n     &5.5453e+02_rb,4.1603e+02_rb,2.7755e+02_rb,1.3982e+02_rb,1.2297e+00_rb/)\n      kbo(:, 3,44, 9) = (/ &\n     &6.4348e+02_rb,4.8273e+02_rb,3.2200e+02_rb,1.6176e+02_rb,1.4085e+00_rb/)\n      kbo(:, 4,44, 9) = (/ &\n     &7.4447e+02_rb,5.5848e+02_rb,3.7249e+02_rb,1.8678e+02_rb,1.5847e+00_rb/)\n      kbo(:, 5,44, 9) = (/ &\n     &8.5855e+02_rb,6.4403e+02_rb,4.2953e+02_rb,2.1515e+02_rb,1.7587e+00_rb/)\n      kbo(:, 1,45, 9) = (/ &\n     &4.7694e+02_rb,3.5784e+02_rb,2.3881e+02_rb,1.2088e+02_rb,9.8025e-01_rb/)\n      kbo(:, 2,45, 9) = (/ &\n     &5.6049e+02_rb,4.2050e+02_rb,2.8054e+02_rb,1.4139e+02_rb,1.1623e+00_rb/)\n      kbo(:, 3,45, 9) = (/ &\n     &6.5632e+02_rb,4.9237e+02_rb,3.2842e+02_rb,1.6503e+02_rb,1.3439e+00_rb/)\n      kbo(:, 4,45, 9) = (/ &\n     &7.6635e+02_rb,5.7488e+02_rb,3.8343e+02_rb,1.9228e+02_rb,1.5236e+00_rb/)\n      kbo(:, 5,45, 9) = (/ &\n     &8.9123e+02_rb,6.6854e+02_rb,4.4587e+02_rb,2.2334e+02_rb,1.7007e+00_rb/)\n      kbo(:, 1,46, 9) = (/ &\n     &4.7924e+02_rb,3.5957e+02_rb,2.3999e+02_rb,1.2157e+02_rb,9.0983e-01_rb/)\n      kbo(:, 2,46, 9) = (/ &\n     &5.6922e+02_rb,4.2705e+02_rb,2.8491e+02_rb,1.4366e+02_rb,1.0922e+00_rb/)\n      kbo(:, 3,46, 9) = (/ &\n     &6.7352e+02_rb,5.0527e+02_rb,3.3703e+02_rb,1.6939e+02_rb,1.2757e+00_rb/)\n      kbo(:, 4,46, 9) = (/ &\n     &7.9367e+02_rb,5.9538e+02_rb,3.9709e+02_rb,1.9915e+02_rb,1.4579e+00_rb/)\n      kbo(:, 5,46, 9) = (/ &\n     &9.3189e+02_rb,6.9904e+02_rb,4.6620e+02_rb,2.3352e+02_rb,1.6382e+00_rb/)\n      kbo(:, 1,47, 9) = (/ &\n     &4.7215e+02_rb,3.5425e+02_rb,2.3648e+02_rb,1.1995e+02_rb,8.3319e-01_rb/)\n      kbo(:, 2,47, 9) = (/ &\n     &5.6710e+02_rb,4.2546e+02_rb,2.8387e+02_rb,1.4325e+02_rb,1.0142e+00_rb/)\n      kbo(:, 3,47, 9) = (/ &\n     &6.7881e+02_rb,5.0924e+02_rb,3.3968e+02_rb,1.7081e+02_rb,1.1988e+00_rb/)\n      kbo(:, 4,47, 9) = (/ &\n     &8.0796e+02_rb,6.0609e+02_rb,4.0424e+02_rb,2.0278e+02_rb,1.3835e+00_rb/)\n      kbo(:, 5,47, 9) = (/ &\n     &9.5794e+02_rb,7.1858e+02_rb,4.7923e+02_rb,2.4007e+02_rb,1.5668e+00_rb/)\n      kbo(:, 1,48, 9) = (/ &\n     &4.7667e+02_rb,3.5764e+02_rb,2.3876e+02_rb,1.2119e+02_rb,7.5823e-01_rb/)\n      kbo(:, 2,48, 9) = (/ &\n     &5.7865e+02_rb,4.3413e+02_rb,2.8965e+02_rb,1.4623e+02_rb,9.3799e-01_rb/)\n      kbo(:, 3,48, 9) = (/ &\n     &7.0145e+02_rb,5.2622e+02_rb,3.5101e+02_rb,1.7653e+02_rb,1.1229e+00_rb/)\n      kbo(:, 4,48, 9) = (/ &\n     &8.4427e+02_rb,6.3333e+02_rb,4.2240e+02_rb,2.1190e+02_rb,1.3089e+00_rb/)\n      kbo(:, 5,48, 9) = (/ &\n     &1.0109e+03_rb,7.5832e+02_rb,5.0573e+02_rb,2.5334e+02_rb,1.4951e+00_rb/)\n      kbo(:, 1,49, 9) = (/ &\n     &4.9957e+02_rb,3.7481e+02_rb,2.5022e+02_rb,1.2697e+02_rb,6.8631e-01_rb/)\n      kbo(:, 2,49, 9) = (/ &\n     &6.1224e+02_rb,4.5931e+02_rb,3.0645e+02_rb,1.5466e+02_rb,8.6353e-01_rb/)\n      kbo(:, 3,49, 9) = (/ &\n     &7.5197e+02_rb,5.6411e+02_rb,3.7627e+02_rb,1.8917e+02_rb,1.0480e+00_rb/)\n      kbo(:, 4,49, 9) = (/ &\n     &9.1643e+02_rb,6.8745e+02_rb,4.5848e+02_rb,2.2994e+02_rb,1.2341e+00_rb/)\n      kbo(:, 5,49, 9) = (/ &\n     &1.1094e+03_rb,8.3219e+02_rb,5.5497e+02_rb,2.7795e+02_rb,1.4234e+00_rb/)\n      kbo(:, 1,50, 9) = (/ &\n     &4.9927e+02_rb,3.7459e+02_rb,2.5011e+02_rb,1.2702e+02_rb,6.2082e-01_rb/)\n      kbo(:, 2,50, 9) = (/ &\n     &6.1745e+02_rb,4.6322e+02_rb,3.0907e+02_rb,1.5606e+02_rb,7.9337e-01_rb/)\n      kbo(:, 3,50, 9) = (/ &\n     &7.6850e+02_rb,5.7651e+02_rb,3.8454e+02_rb,1.9338e+02_rb,9.7702e-01_rb/)\n      kbo(:, 4,50, 9) = (/ &\n     &9.4909e+02_rb,7.1195e+02_rb,4.7482e+02_rb,2.3816e+02_rb,1.1637e+00_rb/)\n      kbo(:, 5,50, 9) = (/ &\n     &1.1628e+03_rb,8.7227e+02_rb,5.8169e+02_rb,2.9133e+02_rb,1.3527e+00_rb/)\n      kbo(:, 1,51, 9) = (/ &\n     &4.8758e+02_rb,3.6583e+02_rb,2.4432e+02_rb,1.2426e+02_rb,5.5888e-01_rb/)\n      kbo(:, 2,51, 9) = (/ &\n     &6.0851e+02_rb,4.5652e+02_rb,3.0463e+02_rb,1.5396e+02_rb,7.2702e-01_rb/)\n      kbo(:, 3,51, 9) = (/ &\n     &7.6706e+02_rb,5.7543e+02_rb,3.8383e+02_rb,1.9312e+02_rb,9.0804e-01_rb/)\n      kbo(:, 4,51, 9) = (/ &\n     &9.6042e+02_rb,7.2045e+02_rb,4.8049e+02_rb,2.4107e+02_rb,1.0946e+00_rb/)\n      kbo(:, 5,51, 9) = (/ &\n     &1.1920e+03_rb,8.9415e+02_rb,5.9629e+02_rb,2.9867e+02_rb,1.2844e+00_rb/)\n      kbo(:, 1,52, 9) = (/ &\n     &4.8860e+02_rb,3.6660e+02_rb,2.4488e+02_rb,1.2464e+02_rb,4.9962e-01_rb/)\n      kbo(:, 2,52, 9) = (/ &\n     &6.1451e+02_rb,4.6102e+02_rb,3.0765e+02_rb,1.5555e+02_rb,6.6320e-01_rb/)\n      kbo(:, 3,52, 9) = (/ &\n     &7.8418e+02_rb,5.8827e+02_rb,3.9240e+02_rb,1.9747e+02_rb,8.4128e-01_rb/)\n      kbo(:, 4,52, 9) = (/ &\n     &9.9602e+02_rb,7.4715e+02_rb,4.9829e+02_rb,2.5001e+02_rb,1.0268e+00_rb/)\n      kbo(:, 5,52, 9) = (/ &\n     &1.2534e+03_rb,9.4018e+02_rb,6.2698e+02_rb,3.1403e+02_rb,1.2165e+00_rb/)\n      kbo(:, 1,53, 9) = (/ &\n     &5.0881e+02_rb,3.8175e+02_rb,2.5500e+02_rb,1.2975e+02_rb,4.4418e-01_rb/)\n      kbo(:, 2,53, 9) = (/ &\n     &6.4426e+02_rb,4.8334e+02_rb,3.2253e+02_rb,1.6302e+02_rb,6.0138e-01_rb/)\n      kbo(:, 3,53, 9) = (/ &\n     &8.3158e+02_rb,6.2382e+02_rb,4.1611e+02_rb,2.0933e+02_rb,7.7570e-01_rb/)\n      kbo(:, 4,53, 9) = (/ &\n     &1.0715e+03_rb,8.0375e+02_rb,5.3603e+02_rb,2.6888e+02_rb,9.5940e-01_rb/)\n      kbo(:, 5,53, 9) = (/ &\n     &1.3680e+03_rb,1.0262e+03_rb,6.8430e+02_rb,3.4269e+02_rb,1.1487e+00_rb/)\n      kbo(:, 1,54, 9) = (/ &\n     &4.6019e+02_rb,3.4529e+02_rb,2.3082e+02_rb,1.1788e+02_rb,3.9422e-01_rb/)\n      kbo(:, 2,54, 9) = (/ &\n     &5.8633e+02_rb,4.3988e+02_rb,2.9364e+02_rb,1.4879e+02_rb,5.4422e-01_rb/)\n      kbo(:, 3,54, 9) = (/ &\n     &7.6477e+02_rb,5.7372e+02_rb,3.8273e+02_rb,1.9285e+02_rb,7.1419e-01_rb/)\n      kbo(:, 4,54, 9) = (/ &\n     &9.9975e+02_rb,7.4995e+02_rb,5.0017e+02_rb,2.5112e+02_rb,8.9603e-01_rb/)\n      kbo(:, 5,54, 9) = (/ &\n     &1.2952e+03_rb,9.7153e+02_rb,6.4788e+02_rb,3.2458e+02_rb,1.0830e+00_rb/)\n      kbo(:, 1,55, 9) = (/ &\n     &3.8020e+02_rb,2.8531e+02_rb,1.9107e+02_rb,9.8307e+01_rb,3.4739e-01_rb/)\n      kbo(:, 2,55, 9) = (/ &\n     &4.8735e+02_rb,3.6565e+02_rb,2.4430e+02_rb,1.2445e+02_rb,4.9078e-01_rb/)\n      kbo(:, 3,55, 9) = (/ &\n     &6.4163e+02_rb,4.8136e+02_rb,3.2124e+02_rb,1.6243e+02_rb,6.5484e-01_rb/)\n      kbo(:, 4,55, 9) = (/ &\n     &8.5082e+02_rb,6.3825e+02_rb,4.2573e+02_rb,2.1419e+02_rb,8.3371e-01_rb/)\n      kbo(:, 5,55, 9) = (/ &\n     &1.1188e+03_rb,8.3927e+02_rb,5.5970e+02_rb,2.8072e+02_rb,1.0198e+00_rb/)\n      kbo(:, 1,56, 9) = (/ &\n     &3.1368e+02_rb,2.3545e+02_rb,1.5809e+02_rb,8.2086e+01_rb,3.0410e-01_rb/)\n      kbo(:, 2,56, 9) = (/ &\n     &4.0416e+02_rb,3.0326e+02_rb,2.0292e+02_rb,1.0407e+02_rb,4.3985e-01_rb/)\n      kbo(:, 3,56, 9) = (/ &\n     &5.3658e+02_rb,4.0257e+02_rb,2.6883e+02_rb,1.3655e+02_rb,5.9766e-01_rb/)\n      kbo(:, 4,56, 9) = (/ &\n     &7.2129e+02_rb,5.4110e+02_rb,3.6102e+02_rb,1.8214e+02_rb,7.7256e-01_rb/)\n      kbo(:, 5,56, 9) = (/ &\n     &9.6339e+02_rb,7.2268e+02_rb,4.8200e+02_rb,2.4214e+02_rb,9.5689e-01_rb/)\n      kbo(:, 1,57, 9) = (/ &\n     &2.5819e+02_rb,1.9390e+02_rb,1.3066e+02_rb,6.8602e+01_rb,2.6463e-01_rb/)\n      kbo(:, 2,57, 9) = (/ &\n     &3.3457e+02_rb,2.5110e+02_rb,1.6838e+02_rb,8.7076e+01_rb,3.9133e-01_rb/)\n      kbo(:, 3,57, 9) = (/ &\n     &4.4726e+02_rb,3.3558e+02_rb,2.2435e+02_rb,1.1462e+02_rb,5.4231e-01_rb/)\n      kbo(:, 4,57, 9) = (/ &\n     &6.0897e+02_rb,4.5687e+02_rb,3.0496e+02_rb,1.5443e+02_rb,7.1198e-01_rb/)\n      kbo(:, 5,57, 9) = (/ &\n     &8.2628e+02_rb,6.1985e+02_rb,4.1347e+02_rb,2.0818e+02_rb,8.9451e-01_rb/)\n      kbo(:, 1,58, 9) = (/ &\n     &5.6144e+01_rb,5.1598e+01_rb,4.4952e+01_rb,3.3575e+01_rb,2.2945e-01_rb/)\n      kbo(:, 2,58, 9) = (/ &\n     &7.3248e+01_rb,6.7230e+01_rb,5.8185e+01_rb,4.2642e+01_rb,3.4680e-01_rb/)\n      kbo(:, 3,58, 9) = (/ &\n     &9.8566e+01_rb,9.0421e+01_rb,7.7903e+01_rb,5.6215e+01_rb,4.9127e-01_rb/)\n      kbo(:, 4,58, 9) = (/ &\n     &1.3577e+02_rb,1.2452e+02_rb,1.0700e+02_rb,7.6316e+01_rb,6.5580e-01_rb/)\n      kbo(:, 5,58, 9) = (/ &\n     &1.8716e+02_rb,1.7164e+02_rb,1.4731e+02_rb,1.0424e+02_rb,8.3481e-01_rb/)\n      kbo(:, 1,59, 9) = (/ &\n     &5.7246e+01_rb,5.0299e+01_rb,4.1347e+01_rb,2.8542e+01_rb,2.1390e-01_rb/)\n      kbo(:, 2,59, 9) = (/ &\n     &7.5569e+01_rb,6.6181e+01_rb,5.3818e+01_rb,3.6138e+01_rb,3.2687e-01_rb/)\n      kbo(:, 3,59, 9) = (/ &\n     &1.0297e+02_rb,9.0031e+01_rb,7.2620e+01_rb,4.7606e+01_rb,4.6582e-01_rb/)\n      kbo(:, 4,59, 9) = (/ &\n     &1.4369e+02_rb,1.2555e+02_rb,1.0072e+02_rb,6.4807e+01_rb,6.2712e-01_rb/)\n      kbo(:, 5,59, 9) = (/ &\n     &2.0105e+02_rb,1.7562e+02_rb,1.4046e+02_rb,8.9199e+01_rb,8.0292e-01_rb/)\n      kbo(:, 1,13,10) = (/ &\n     &1.3594e+05_rb,1.0195e+05_rb,6.7969e+04_rb,3.3985e+04_rb,3.3627e+00_rb/)\n      kbo(:, 2,13,10) = (/ &\n     &1.3605e+05_rb,1.0204e+05_rb,6.8026e+04_rb,3.4013e+04_rb,3.2528e+00_rb/)\n      kbo(:, 3,13,10) = (/ &\n     &1.3597e+05_rb,1.0198e+05_rb,6.7984e+04_rb,3.3992e+04_rb,3.1814e+00_rb/)\n      kbo(:, 4,13,10) = (/ &\n     &1.3504e+05_rb,1.0128e+05_rb,6.7520e+04_rb,3.3760e+04_rb,3.0515e+00_rb/)\n      kbo(:, 5,13,10) = (/ &\n     &1.3382e+05_rb,1.0037e+05_rb,6.6910e+04_rb,3.3456e+04_rb,3.0303e+00_rb/)\n      kbo(:, 1,14,10) = (/ &\n     &8.3672e+04_rb,6.2754e+04_rb,4.1836e+04_rb,2.0918e+04_rb,3.6220e+00_rb/)\n      kbo(:, 2,14,10) = (/ &\n     &8.3355e+04_rb,6.2516e+04_rb,4.1677e+04_rb,2.0839e+04_rb,3.5454e+00_rb/)\n      kbo(:, 3,14,10) = (/ &\n     &8.2924e+04_rb,6.2193e+04_rb,4.1462e+04_rb,2.0731e+04_rb,3.4328e+00_rb/)\n      kbo(:, 4,14,10) = (/ &\n     &8.2189e+04_rb,6.1641e+04_rb,4.1094e+04_rb,2.0547e+04_rb,3.3922e+00_rb/)\n      kbo(:, 5,14,10) = (/ &\n     &8.1205e+04_rb,6.0904e+04_rb,4.0602e+04_rb,2.0301e+04_rb,3.2425e+00_rb/)\n      kbo(:, 1,15,10) = (/ &\n     &5.1150e+04_rb,3.8363e+04_rb,2.5576e+04_rb,1.2788e+04_rb,3.9145e+00_rb/)\n      kbo(:, 2,15,10) = (/ &\n     &5.0875e+04_rb,3.8157e+04_rb,2.5438e+04_rb,1.2719e+04_rb,3.8152e+00_rb/)\n      kbo(:, 3,15,10) = (/ &\n     &5.0407e+04_rb,3.7806e+04_rb,2.5204e+04_rb,1.2602e+04_rb,3.7733e+00_rb/)\n      kbo(:, 4,15,10) = (/ &\n     &4.9693e+04_rb,3.7270e+04_rb,2.4847e+04_rb,1.2424e+04_rb,3.6717e+00_rb/)\n      kbo(:, 5,15,10) = (/ &\n     &4.8987e+04_rb,3.6740e+04_rb,2.4494e+04_rb,1.2247e+04_rb,3.5647e+00_rb/)\n      kbo(:, 1,16,10) = (/ &\n     &3.6535e+04_rb,2.7401e+04_rb,1.8268e+04_rb,9.1341e+03_rb,4.2542e+00_rb/)\n      kbo(:, 2,16,10) = (/ &\n     &3.6151e+04_rb,2.7114e+04_rb,1.8076e+04_rb,9.0383e+03_rb,4.1666e+00_rb/)\n      kbo(:, 3,16,10) = (/ &\n     &3.5666e+04_rb,2.6750e+04_rb,1.7833e+04_rb,8.9169e+03_rb,4.1063e+00_rb/)\n      kbo(:, 4,16,10) = (/ &\n     &3.5133e+04_rb,2.6350e+04_rb,1.7567e+04_rb,8.7838e+03_rb,4.0309e+00_rb/)\n      kbo(:, 5,16,10) = (/ &\n     &3.4526e+04_rb,2.5894e+04_rb,1.7263e+04_rb,8.6318e+03_rb,3.8978e+00_rb/)\n      kbo(:, 1,17,10) = (/ &\n     &2.6414e+04_rb,1.9811e+04_rb,1.3207e+04_rb,6.6039e+03_rb,4.6454e+00_rb/)\n      kbo(:, 2,17,10) = (/ &\n     &2.6068e+04_rb,1.9551e+04_rb,1.3034e+04_rb,6.5174e+03_rb,4.5633e+00_rb/)\n      kbo(:, 3,17,10) = (/ &\n     &2.5689e+04_rb,1.9267e+04_rb,1.2845e+04_rb,6.4225e+03_rb,4.4826e+00_rb/)\n      kbo(:, 4,17,10) = (/ &\n     &2.5209e+04_rb,1.8907e+04_rb,1.2605e+04_rb,6.3027e+03_rb,4.3889e+00_rb/)\n      kbo(:, 5,17,10) = (/ &\n     &2.4661e+04_rb,1.8496e+04_rb,1.2331e+04_rb,6.1658e+03_rb,4.2589e+00_rb/)\n      kbo(:, 1,18,10) = (/ &\n     &1.9208e+04_rb,1.4406e+04_rb,9.6044e+03_rb,4.8025e+03_rb,5.0342e+00_rb/)\n      kbo(:, 2,18,10) = (/ &\n     &1.8927e+04_rb,1.4195e+04_rb,9.4636e+03_rb,4.7320e+03_rb,4.9453e+00_rb/)\n      kbo(:, 3,18,10) = (/ &\n     &1.8575e+04_rb,1.3931e+04_rb,9.2875e+03_rb,4.6440e+03_rb,4.8565e+00_rb/)\n      kbo(:, 4,18,10) = (/ &\n     &1.8151e+04_rb,1.3614e+04_rb,9.0760e+03_rb,4.5383e+03_rb,4.7616e+00_rb/)\n      kbo(:, 5,18,10) = (/ &\n     &1.7715e+04_rb,1.3287e+04_rb,8.8579e+03_rb,4.4292e+03_rb,4.6381e+00_rb/)\n      kbo(:, 1,19,10) = (/ &\n     &1.3561e+04_rb,1.0171e+04_rb,6.7808e+03_rb,3.3906e+03_rb,5.4045e+00_rb/)\n      kbo(:, 2,19,10) = (/ &\n     &1.3305e+04_rb,9.9790e+03_rb,6.6528e+03_rb,3.3267e+03_rb,5.3114e+00_rb/)\n      kbo(:, 3,19,10) = (/ &\n     &1.3001e+04_rb,9.7507e+03_rb,6.5006e+03_rb,3.2506e+03_rb,5.2250e+00_rb/)\n      kbo(:, 4,19,10) = (/ &\n     &1.2687e+04_rb,9.5155e+03_rb,6.3438e+03_rb,3.1722e+03_rb,5.1407e+00_rb/)\n      kbo(:, 5,19,10) = (/ &\n     &1.2394e+04_rb,9.2960e+03_rb,6.1975e+03_rb,3.0991e+03_rb,5.0251e+00_rb/)\n      kbo(:, 1,20,10) = (/ &\n     &1.0195e+04_rb,7.6466e+03_rb,5.0979e+03_rb,2.5492e+03_rb,5.7652e+00_rb/)\n      kbo(:, 2,20,10) = (/ &\n     &9.9631e+03_rb,7.4725e+03_rb,4.9818e+03_rb,2.4912e+03_rb,5.6804e+00_rb/)\n      kbo(:, 3,20,10) = (/ &\n     &9.7293e+03_rb,7.2971e+03_rb,4.8649e+03_rb,2.4328e+03_rb,5.6092e+00_rb/)\n      kbo(:, 4,20,10) = (/ &\n     &9.5227e+03_rb,7.1421e+03_rb,4.7616e+03_rb,2.3811e+03_rb,5.5285e+00_rb/)\n      kbo(:, 5,20,10) = (/ &\n     &9.3625e+03_rb,7.0220e+03_rb,4.6816e+03_rb,2.3411e+03_rb,5.3995e+00_rb/)\n      kbo(:, 1,21,10) = (/ &\n     &7.7885e+03_rb,5.8415e+03_rb,3.8945e+03_rb,1.9475e+03_rb,6.1280e+00_rb/)\n      kbo(:, 2,21,10) = (/ &\n     &7.6092e+03_rb,5.7071e+03_rb,3.8049e+03_rb,1.9027e+03_rb,6.0467e+00_rb/)\n      kbo(:, 3,21,10) = (/ &\n     &7.4658e+03_rb,5.5995e+03_rb,3.7332e+03_rb,1.8669e+03_rb,5.9782e+00_rb/)\n      kbo(:, 4,21,10) = (/ &\n     &7.3647e+03_rb,5.5237e+03_rb,3.6826e+03_rb,1.8416e+03_rb,5.8911e+00_rb/)\n      kbo(:, 5,21,10) = (/ &\n     &7.2928e+03_rb,5.4698e+03_rb,3.6467e+03_rb,1.8237e+03_rb,5.7660e+00_rb/)\n      kbo(:, 1,22,10) = (/ &\n     &6.0472e+03_rb,4.5355e+03_rb,3.0239e+03_rb,1.5122e+03_rb,6.4389e+00_rb/)\n      kbo(:, 2,22,10) = (/ &\n     &5.9457e+03_rb,4.4594e+03_rb,2.9731e+03_rb,1.4868e+03_rb,6.3534e+00_rb/)\n      kbo(:, 3,22,10) = (/ &\n     &5.8843e+03_rb,4.4133e+03_rb,2.9424e+03_rb,1.4715e+03_rb,6.3043e+00_rb/)\n      kbo(:, 4,22,10) = (/ &\n     &5.8543e+03_rb,4.3909e+03_rb,2.9274e+03_rb,1.4640e+03_rb,6.2309e+00_rb/)\n      kbo(:, 5,22,10) = (/ &\n     &5.8906e+03_rb,4.4181e+03_rb,2.9456e+03_rb,1.4732e+03_rb,6.0993e+00_rb/)\n      kbo(:, 1,23,10) = (/ &\n     &4.7512e+03_rb,3.5635e+03_rb,2.3758e+03_rb,1.1882e+03_rb,6.6888e+00_rb/)\n      kbo(:, 2,23,10) = (/ &\n     &4.7151e+03_rb,3.5365e+03_rb,2.3578e+03_rb,1.1792e+03_rb,6.6289e+00_rb/)\n      kbo(:, 3,23,10) = (/ &\n     &4.7153e+03_rb,3.5366e+03_rb,2.3579e+03_rb,1.1792e+03_rb,6.5888e+00_rb/)\n      kbo(:, 4,23,10) = (/ &\n     &4.7757e+03_rb,3.5820e+03_rb,2.3882e+03_rb,1.1944e+03_rb,6.5103e+00_rb/)\n      kbo(:, 5,23,10) = (/ &\n     &4.8784e+03_rb,3.6590e+03_rb,2.4396e+03_rb,1.2201e+03_rb,6.3750e+00_rb/)\n      kbo(:, 1,24,10) = (/ &\n     &3.7664e+03_rb,2.8249e+03_rb,1.8835e+03_rb,9.4199e+02_rb,6.8939e+00_rb/)\n      kbo(:, 2,24,10) = (/ &\n     &3.7833e+03_rb,2.8376e+03_rb,1.8919e+03_rb,9.4626e+02_rb,6.8560e+00_rb/)\n      kbo(:, 3,24,10) = (/ &\n     &3.8524e+03_rb,2.8895e+03_rb,1.9265e+03_rb,9.6361e+02_rb,6.8233e+00_rb/)\n      kbo(:, 4,24,10) = (/ &\n     &3.9503e+03_rb,2.9629e+03_rb,1.9755e+03_rb,9.8811e+02_rb,6.7364e+00_rb/)\n      kbo(:, 5,24,10) = (/ &\n     &4.0500e+03_rb,3.0377e+03_rb,2.0254e+03_rb,1.0130e+03_rb,6.5861e+00_rb/)\n      kbo(:, 1,25,10) = (/ &\n     &3.0705e+03_rb,2.3030e+03_rb,1.5356e+03_rb,7.6808e+02_rb,7.0352e+00_rb/)\n      kbo(:, 2,25,10) = (/ &\n     &3.1368e+03_rb,2.3527e+03_rb,1.5687e+03_rb,7.8472e+02_rb,7.0310e+00_rb/)\n      kbo(:, 3,25,10) = (/ &\n     &3.2299e+03_rb,2.4226e+03_rb,1.6153e+03_rb,8.0803e+02_rb,7.0074e+00_rb/)\n      kbo(:, 4,25,10) = (/ &\n     &3.3291e+03_rb,2.4970e+03_rb,1.6649e+03_rb,8.3282e+02_rb,6.9138e+00_rb/)\n      kbo(:, 5,25,10) = (/ &\n     &3.4334e+03_rb,2.5753e+03_rb,1.7171e+03_rb,8.5889e+02_rb,6.7836e+00_rb/)\n      kbo(:, 1,26,10) = (/ &\n     &2.5973e+03_rb,1.9481e+03_rb,1.2990e+03_rb,6.4986e+02_rb,7.1301e+00_rb/)\n      kbo(:, 2,26,10) = (/ &\n     &2.6809e+03_rb,2.0109e+03_rb,1.3408e+03_rb,6.7078e+02_rb,7.1546e+00_rb/)\n      kbo(:, 3,26,10) = (/ &\n     &2.7748e+03_rb,2.0813e+03_rb,1.3878e+03_rb,6.9426e+02_rb,7.1359e+00_rb/)\n      kbo(:, 4,26,10) = (/ &\n     &2.8656e+03_rb,2.1494e+03_rb,1.4332e+03_rb,7.1694e+02_rb,7.0388e+00_rb/)\n      kbo(:, 5,26,10) = (/ &\n     &2.9554e+03_rb,2.2167e+03_rb,1.4780e+03_rb,7.3936e+02_rb,6.9309e+00_rb/)\n      kbo(:, 1,27,10) = (/ &\n     &2.3040e+03_rb,1.7282e+03_rb,1.1524e+03_rb,5.7657e+02_rb,7.1805e+00_rb/)\n      kbo(:, 2,27,10) = (/ &\n     &2.3938e+03_rb,1.7956e+03_rb,1.1973e+03_rb,5.9902e+02_rb,7.2265e+00_rb/)\n      kbo(:, 3,27,10) = (/ &\n     &2.4776e+03_rb,1.8584e+03_rb,1.2392e+03_rb,6.1996e+02_rb,7.2160e+00_rb/)\n      kbo(:, 4,27,10) = (/ &\n     &2.5592e+03_rb,1.9196e+03_rb,1.2799e+03_rb,6.4031e+02_rb,7.1019e+00_rb/)\n      kbo(:, 5,27,10) = (/ &\n     &2.6344e+03_rb,1.9760e+03_rb,1.3176e+03_rb,6.5914e+02_rb,7.0533e+00_rb/)\n      kbo(:, 1,28,10) = (/ &\n     &2.1016e+03_rb,1.5764e+03_rb,1.0512e+03_rb,5.2597e+02_rb,7.1943e+00_rb/)\n      kbo(:, 2,28,10) = (/ &\n     &2.1832e+03_rb,1.6376e+03_rb,1.0920e+03_rb,5.4637e+02_rb,7.2562e+00_rb/)\n      kbo(:, 3,28,10) = (/ &\n     &2.2626e+03_rb,1.6971e+03_rb,1.1316e+03_rb,5.6618e+02_rb,7.2356e+00_rb/)\n      kbo(:, 4,28,10) = (/ &\n     &2.3367e+03_rb,1.7527e+03_rb,1.1687e+03_rb,5.8470e+02_rb,7.1672e+00_rb/)\n      kbo(:, 5,28,10) = (/ &\n     &2.4052e+03_rb,1.8041e+03_rb,1.2030e+03_rb,6.0186e+02_rb,7.1806e+00_rb/)\n      kbo(:, 1,29,10) = (/ &\n     &2.0213e+03_rb,1.5162e+03_rb,1.0110e+03_rb,5.0592e+02_rb,7.1826e+00_rb/)\n      kbo(:, 2,29,10) = (/ &\n     &2.1025e+03_rb,1.5771e+03_rb,1.0516e+03_rb,5.2618e+02_rb,7.2449e+00_rb/)\n      kbo(:, 3,29,10) = (/ &\n     &2.1817e+03_rb,1.6365e+03_rb,1.0912e+03_rb,5.4596e+02_rb,7.2200e+00_rb/)\n      kbo(:, 4,29,10) = (/ &\n     &2.2556e+03_rb,1.6919e+03_rb,1.1282e+03_rb,5.6447e+02_rb,7.2591e+00_rb/)\n      kbo(:, 5,29,10) = (/ &\n     &2.3246e+03_rb,1.7436e+03_rb,1.1626e+03_rb,5.8167e+02_rb,7.2912e+00_rb/)\n      kbo(:, 1,30,10) = (/ &\n     &1.9891e+03_rb,1.4920e+03_rb,9.9489e+02_rb,4.9783e+02_rb,7.1696e+00_rb/)\n      kbo(:, 2,30,10) = (/ &\n     &2.0704e+03_rb,1.5530e+03_rb,1.0355e+03_rb,5.1812e+02_rb,7.1996e+00_rb/)\n      kbo(:, 3,30,10) = (/ &\n     &2.1486e+03_rb,1.6117e+03_rb,1.0747e+03_rb,5.3773e+02_rb,7.2564e+00_rb/)\n      kbo(:, 4,30,10) = (/ &\n     &2.2243e+03_rb,1.6684e+03_rb,1.1125e+03_rb,5.5660e+02_rb,7.3491e+00_rb/)\n      kbo(:, 5,30,10) = (/ &\n     &2.2969e+03_rb,1.7228e+03_rb,1.1488e+03_rb,5.7471e+02_rb,7.3950e+00_rb/)\n      kbo(:, 1,31,10) = (/ &\n     &2.0600e+03_rb,1.5452e+03_rb,1.0303e+03_rb,5.1552e+02_rb,7.0891e+00_rb/)\n      kbo(:, 2,31,10) = (/ &\n     &2.1442e+03_rb,1.6083e+03_rb,1.0725e+03_rb,5.3661e+02_rb,7.1940e+00_rb/)\n      kbo(:, 3,31,10) = (/ &\n     &2.2267e+03_rb,1.6702e+03_rb,1.1137e+03_rb,5.5720e+02_rb,7.3519e+00_rb/)\n      kbo(:, 4,31,10) = (/ &\n     &2.3069e+03_rb,1.7303e+03_rb,1.1538e+03_rb,5.7721e+02_rb,7.4783e+00_rb/)\n      kbo(:, 5,31,10) = (/ &\n     &2.3951e+03_rb,1.7965e+03_rb,1.1978e+03_rb,5.9922e+02_rb,7.4978e+00_rb/)\n      kbo(:, 1,32,10) = (/ &\n     &2.1607e+03_rb,1.6207e+03_rb,1.0807e+03_rb,5.4073e+02_rb,7.0921e+00_rb/)\n      kbo(:, 2,32,10) = (/ &\n     &2.2499e+03_rb,1.6876e+03_rb,1.1253e+03_rb,5.6302e+02_rb,7.2853e+00_rb/)\n      kbo(:, 3,32,10) = (/ &\n     &2.3389e+03_rb,1.7543e+03_rb,1.1698e+03_rb,5.8523e+02_rb,7.4637e+00_rb/)\n      kbo(:, 4,32,10) = (/ &\n     &2.4345e+03_rb,1.8261e+03_rb,1.2176e+03_rb,6.0908e+02_rb,7.5300e+00_rb/)\n      kbo(:, 5,32,10) = (/ &\n     &2.5534e+03_rb,1.9152e+03_rb,1.2769e+03_rb,6.3872e+02_rb,7.5836e+00_rb/)\n      kbo(:, 1,33,10) = (/ &\n     &2.3147e+03_rb,1.7362e+03_rb,1.1577e+03_rb,5.7922e+02_rb,7.1422e+00_rb/)\n      kbo(:, 2,33,10) = (/ &\n     &2.4114e+03_rb,1.8087e+03_rb,1.2060e+03_rb,6.0335e+02_rb,7.3798e+00_rb/)\n      kbo(:, 3,33,10) = (/ &\n     &2.5142e+03_rb,1.8858e+03_rb,1.2574e+03_rb,6.2900e+02_rb,7.4990e+00_rb/)\n      kbo(:, 4,33,10) = (/ &\n     &2.6436e+03_rb,1.9829e+03_rb,1.3221e+03_rb,6.6129e+02_rb,7.6018e+00_rb/)\n      kbo(:, 5,33,10) = (/ &\n     &2.8166e+03_rb,2.1125e+03_rb,1.4085e+03_rb,7.0447e+02_rb,7.6468e+00_rb/)\n      kbo(:, 1,34,10) = (/ &\n     &2.4210e+03_rb,1.8159e+03_rb,1.2108e+03_rb,6.0577e+02_rb,7.2083e+00_rb/)\n      kbo(:, 2,34,10) = (/ &\n     &2.5284e+03_rb,1.8965e+03_rb,1.2645e+03_rb,6.3255e+02_rb,7.4180e+00_rb/)\n      kbo(:, 3,34,10) = (/ &\n     &2.6591e+03_rb,1.9944e+03_rb,1.3298e+03_rb,6.6516e+02_rb,7.5418e+00_rb/)\n      kbo(:, 4,34,10) = (/ &\n     &2.8359e+03_rb,2.1270e+03_rb,1.4182e+03_rb,7.0928e+02_rb,7.6931e+00_rb/)\n      kbo(:, 5,34,10) = (/ &\n     &3.0680e+03_rb,2.3011e+03_rb,1.5342e+03_rb,7.6730e+02_rb,7.7811e+00_rb/)\n      kbo(:, 1,35,10) = (/ &\n     &2.5363e+03_rb,1.9024e+03_rb,1.2685e+03_rb,6.3456e+02_rb,7.2309e+00_rb/)\n      kbo(:, 2,35,10) = (/ &\n     &2.6634e+03_rb,1.9977e+03_rb,1.3320e+03_rb,6.6631e+02_rb,7.4393e+00_rb/)\n      kbo(:, 3,35,10) = (/ &\n     &2.8345e+03_rb,2.1260e+03_rb,1.4175e+03_rb,7.0897e+02_rb,7.6569e+00_rb/)\n      kbo(:, 4,35,10) = (/ &\n     &3.0674e+03_rb,2.3007e+03_rb,1.5339e+03_rb,7.6716e+02_rb,7.7801e+00_rb/)\n      kbo(:, 5,35,10) = (/ &\n     &3.3573e+03_rb,2.5181e+03_rb,1.6788e+03_rb,8.3963e+02_rb,7.8561e+00_rb/)\n      kbo(:, 1,36,10) = (/ &\n     &2.6451e+03_rb,1.9840e+03_rb,1.3229e+03_rb,6.6175e+02_rb,7.2395e+00_rb/)\n      kbo(:, 2,36,10) = (/ &\n     &2.7976e+03_rb,2.0983e+03_rb,1.3991e+03_rb,6.9981e+02_rb,7.4813e+00_rb/)\n      kbo(:, 3,36,10) = (/ &\n     &3.0125e+03_rb,2.2595e+03_rb,1.5065e+03_rb,7.5346e+02_rb,7.7309e+00_rb/)\n      kbo(:, 4,36,10) = (/ &\n     &3.2979e+03_rb,2.4736e+03_rb,1.6492e+03_rb,8.2479e+02_rb,7.8735e+00_rb/)\n      kbo(:, 5,36,10) = (/ &\n     &3.6475e+03_rb,2.7357e+03_rb,1.8239e+03_rb,9.1218e+02_rb,7.9027e+00_rb/)\n      kbo(:, 1,37,10) = (/ &\n     &2.6819e+03_rb,2.0116e+03_rb,1.3413e+03_rb,6.7096e+02_rb,7.2017e+00_rb/)\n      kbo(:, 2,37,10) = (/ &\n     &2.8583e+03_rb,2.1439e+03_rb,1.4294e+03_rb,7.1495e+02_rb,7.5003e+00_rb/)\n      kbo(:, 3,37,10) = (/ &\n     &3.1042e+03_rb,2.3283e+03_rb,1.5523e+03_rb,7.7640e+02_rb,7.7646e+00_rb/)\n      kbo(:, 4,37,10) = (/ &\n     &3.4272e+03_rb,2.5705e+03_rb,1.7138e+03_rb,8.5714e+02_rb,7.9233e+00_rb/)\n      kbo(:, 5,37,10) = (/ &\n     &3.8225e+03_rb,2.8670e+03_rb,1.9115e+03_rb,9.5596e+02_rb,7.9456e+00_rb/)\n      kbo(:, 1,38,10) = (/ &\n     &2.7669e+03_rb,2.0753e+03_rb,1.3837e+03_rb,6.9217e+02_rb,7.1724e+00_rb/)\n      kbo(:, 2,38,10) = (/ &\n     &2.9772e+03_rb,2.2330e+03_rb,1.4888e+03_rb,7.4467e+02_rb,7.5382e+00_rb/)\n      kbo(:, 3,38,10) = (/ &\n     &3.2630e+03_rb,2.4473e+03_rb,1.6317e+03_rb,8.1609e+02_rb,7.7857e+00_rb/)\n      kbo(:, 4,38,10) = (/ &\n     &3.6292e+03_rb,2.7220e+03_rb,1.8149e+03_rb,9.0769e+02_rb,7.9649e+00_rb/)\n      kbo(:, 5,38,10) = (/ &\n     &4.0743e+03_rb,3.0559e+03_rb,2.0374e+03_rb,1.0190e+03_rb,7.9771e+00_rb/)\n      kbo(:, 1,39,10) = (/ &\n     &2.9268e+03_rb,2.1953e+03_rb,1.4637e+03_rb,7.3213e+02_rb,7.1691e+00_rb/)\n      kbo(:, 2,39,10) = (/ &\n     &3.1832e+03_rb,2.3875e+03_rb,1.5919e+03_rb,7.9619e+02_rb,7.5536e+00_rb/)\n      kbo(:, 3,39,10) = (/ &\n     &3.5251e+03_rb,2.6440e+03_rb,1.7628e+03_rb,8.8168e+02_rb,7.8089e+00_rb/)\n      kbo(:, 4,39,10) = (/ &\n     &3.9504e+03_rb,2.9629e+03_rb,1.9755e+03_rb,9.8804e+02_rb,7.9786e+00_rb/)\n      kbo(:, 5,39,10) = (/ &\n     &4.4598e+03_rb,3.3450e+03_rb,2.2302e+03_rb,1.1154e+03_rb,8.0073e+00_rb/)\n      kbo(:, 1,40,10) = (/ &\n     &2.8874e+03_rb,2.1657e+03_rb,1.4439e+03_rb,7.2221e+02_rb,7.0746e+00_rb/)\n      kbo(:, 2,40,10) = (/ &\n     &3.1724e+03_rb,2.3794e+03_rb,1.5864e+03_rb,7.9346e+02_rb,7.4831e+00_rb/)\n      kbo(:, 3,40,10) = (/ &\n     &3.5465e+03_rb,2.6600e+03_rb,1.7735e+03_rb,8.8703e+02_rb,7.7692e+00_rb/)\n      kbo(:, 4,40,10) = (/ &\n     &4.0044e+03_rb,3.0035e+03_rb,2.0025e+03_rb,1.0016e+03_rb,7.9632e+00_rb/)\n      kbo(:, 5,40,10) = (/ &\n     &4.5454e+03_rb,3.4092e+03_rb,2.2730e+03_rb,1.1368e+03_rb,8.0081e+00_rb/)\n      kbo(:, 1,41,10) = (/ &\n     &2.8406e+03_rb,2.1306e+03_rb,1.4205e+03_rb,7.1050e+02_rb,6.9600e+00_rb/)\n      kbo(:, 2,41,10) = (/ &\n     &3.1484e+03_rb,2.3614e+03_rb,1.5744e+03_rb,7.8747e+02_rb,7.3954e+00_rb/)\n      kbo(:, 3,41,10) = (/ &\n     &3.5576e+03_rb,2.6684e+03_rb,1.7791e+03_rb,8.8987e+02_rb,7.7179e+00_rb/)\n      kbo(:, 4,41,10) = (/ &\n     &4.0527e+03_rb,3.0397e+03_rb,2.0267e+03_rb,1.0137e+03_rb,7.9444e+00_rb/)\n      kbo(:, 5,41,10) = (/ &\n     &4.6270e+03_rb,3.4704e+03_rb,2.3138e+03_rb,1.1572e+03_rb,8.0108e+00_rb/)\n      kbo(:, 1,42,10) = (/ &\n     &2.8258e+03_rb,2.1194e+03_rb,1.4131e+03_rb,7.0678e+02_rb,6.8517e+00_rb/)\n      kbo(:, 2,42,10) = (/ &\n     &3.1581e+03_rb,2.3687e+03_rb,1.5793e+03_rb,7.8990e+02_rb,7.3049e+00_rb/)\n      kbo(:, 3,42,10) = (/ &\n     &3.6059e+03_rb,2.7046e+03_rb,1.8032e+03_rb,9.0193e+02_rb,7.6524e+00_rb/)\n      kbo(:, 4,42,10) = (/ &\n     &4.1499e+03_rb,3.1126e+03_rb,2.0753e+03_rb,1.0380e+03_rb,7.9111e+00_rb/)\n      kbo(:, 5,42,10) = (/ &\n     &4.7763e+03_rb,3.5824e+03_rb,2.3885e+03_rb,1.1945e+03_rb,8.0026e+00_rb/)\n      kbo(:, 1,43,10) = (/ &\n     &2.8194e+03_rb,2.1147e+03_rb,1.4100e+03_rb,7.0522e+02_rb,6.7032e+00_rb/)\n      kbo(:, 2,43,10) = (/ &\n     &3.1747e+03_rb,2.3812e+03_rb,1.5876e+03_rb,7.9408e+02_rb,7.1735e+00_rb/)\n      kbo(:, 3,43,10) = (/ &\n     &3.6549e+03_rb,2.7413e+03_rb,1.8278e+03_rb,9.1420e+02_rb,7.5844e+00_rb/)\n      kbo(:, 4,43,10) = (/ &\n     &4.2522e+03_rb,3.1893e+03_rb,2.1264e+03_rb,1.0635e+03_rb,7.8420e+00_rb/)\n      kbo(:, 5,43,10) = (/ &\n     &4.9421e+03_rb,3.7067e+03_rb,2.4714e+03_rb,1.2360e+03_rb,7.9777e+00_rb/)\n      kbo(:, 1,44,10) = (/ &\n     &2.8469e+03_rb,2.1353e+03_rb,1.4237e+03_rb,7.1206e+02_rb,6.5380e+00_rb/)\n      kbo(:, 2,44,10) = (/ &\n     &3.2203e+03_rb,2.4153e+03_rb,1.6104e+03_rb,8.0548e+02_rb,7.0393e+00_rb/)\n      kbo(:, 3,44,10) = (/ &\n     &3.7360e+03_rb,2.8021e+03_rb,1.8683e+03_rb,9.3448e+02_rb,7.4778e+00_rb/)\n      kbo(:, 4,44,10) = (/ &\n     &4.3910e+03_rb,3.2934e+03_rb,2.1958e+03_rb,1.0982e+03_rb,7.7716e+00_rb/)\n      kbo(:, 5,44,10) = (/ &\n     &5.1620e+03_rb,3.8716e+03_rb,2.5813e+03_rb,1.2909e+03_rb,7.9568e+00_rb/)\n      kbo(:, 1,45,10) = (/ &\n     &2.9370e+03_rb,2.2029e+03_rb,1.4687e+03_rb,7.3461e+02_rb,6.3596e+00_rb/)\n      kbo(:, 2,45,10) = (/ &\n     &3.3323e+03_rb,2.4994e+03_rb,1.6664e+03_rb,8.3351e+02_rb,6.8956e+00_rb/)\n      kbo(:, 3,45,10) = (/ &\n     &3.8921e+03_rb,2.9193e+03_rb,1.9464e+03_rb,9.7354e+02_rb,7.3748e+00_rb/)\n      kbo(:, 4,45,10) = (/ &\n     &4.6196e+03_rb,3.4648e+03_rb,2.3101e+03_rb,1.1554e+03_rb,7.7094e+00_rb/)\n      kbo(:, 5,45,10) = (/ &\n     &5.4975e+03_rb,4.1233e+03_rb,2.7490e+03_rb,1.3748e+03_rb,7.9394e+00_rb/)\n      kbo(:, 1,46,10) = (/ &\n     &3.0543e+03_rb,2.2908e+03_rb,1.5274e+03_rb,7.6393e+02_rb,6.1665e+00_rb/)\n      kbo(:, 2,46,10) = (/ &\n     &3.4757e+03_rb,2.6069e+03_rb,1.7382e+03_rb,8.6940e+02_rb,6.7524e+00_rb/)\n      kbo(:, 3,46,10) = (/ &\n     &4.0758e+03_rb,3.0570e+03_rb,2.0382e+03_rb,1.0195e+03_rb,7.2688e+00_rb/)\n      kbo(:, 4,46,10) = (/ &\n     &4.8832e+03_rb,3.6626e+03_rb,2.4419e+03_rb,1.2213e+03_rb,7.6299e+00_rb/)\n      kbo(:, 5,46,10) = (/ &\n     &5.8799e+03_rb,4.4101e+03_rb,2.9402e+03_rb,1.4704e+03_rb,7.9039e+00_rb/)\n      kbo(:, 1,47,10) = (/ &\n     &3.1321e+03_rb,2.3492e+03_rb,1.5663e+03_rb,7.8341e+02_rb,5.9258e+00_rb/)\n      kbo(:, 2,47,10) = (/ &\n     &3.5703e+03_rb,2.6779e+03_rb,1.7855e+03_rb,8.9306e+02_rb,6.5564e+00_rb/)\n      kbo(:, 3,47,10) = (/ &\n     &4.1981e+03_rb,3.1488e+03_rb,2.0994e+03_rb,1.0501e+03_rb,7.1267e+00_rb/)\n      kbo(:, 4,47,10) = (/ &\n     &5.0652e+03_rb,3.7991e+03_rb,2.5329e+03_rb,1.2668e+03_rb,7.5455e+00_rb/)\n      kbo(:, 5,47,10) = (/ &\n     &6.1689e+03_rb,4.6268e+03_rb,3.0847e+03_rb,1.5426e+03_rb,7.8470e+00_rb/)\n      kbo(:, 1,48,10) = (/ &\n     &3.3047e+03_rb,2.4787e+03_rb,1.6526e+03_rb,8.2657e+02_rb,5.6694e+00_rb/)\n      kbo(:, 2,48,10) = (/ &\n     &3.7747e+03_rb,2.8312e+03_rb,1.8877e+03_rb,9.4418e+02_rb,6.3589e+00_rb/)\n      kbo(:, 3,48,10) = (/ &\n     &4.4483e+03_rb,3.3364e+03_rb,2.2245e+03_rb,1.1126e+03_rb,6.9569e+00_rb/)\n      kbo(:, 4,48,10) = (/ &\n     &5.3940e+03_rb,4.0457e+03_rb,2.6973e+03_rb,1.3490e+03_rb,7.4395e+00_rb/)\n      kbo(:, 5,48,10) = (/ &\n     &6.6398e+03_rb,4.9800e+03_rb,3.3201e+03_rb,1.6603e+03_rb,7.7751e+00_rb/)\n      kbo(:, 1,49,10) = (/ &\n     &3.6256e+03_rb,2.7194e+03_rb,1.8131e+03_rb,9.0682e+02_rb,5.4147e+00_rb/)\n      kbo(:, 2,49,10) = (/ &\n     &4.1643e+03_rb,3.1234e+03_rb,2.0825e+03_rb,1.0416e+03_rb,6.1453e+00_rb/)\n      kbo(:, 3,49,10) = (/ &\n     &4.9094e+03_rb,3.6822e+03_rb,2.4550e+03_rb,1.2279e+03_rb,6.7872e+00_rb/)\n      kbo(:, 4,49,10) = (/ &\n     &5.9847e+03_rb,4.4886e+03_rb,2.9926e+03_rb,1.4966e+03_rb,7.3168e+00_rb/)\n      kbo(:, 5,49,10) = (/ &\n     &7.4258e+03_rb,5.5695e+03_rb,3.7131e+03_rb,1.8568e+03_rb,7.6869e+00_rb/)\n      kbo(:, 1,50,10) = (/ &\n     &3.7913e+03_rb,2.8436e+03_rb,1.8959e+03_rb,9.4825e+02_rb,5.1338e+00_rb/)\n      kbo(:, 2,50,10) = (/ &\n     &4.3920e+03_rb,3.2942e+03_rb,2.1963e+03_rb,1.0985e+03_rb,5.9203e+00_rb/)\n      kbo(:, 3,50,10) = (/ &\n     &5.1851e+03_rb,3.8890e+03_rb,2.5929e+03_rb,1.2968e+03_rb,6.5802e+00_rb/)\n      kbo(:, 4,50,10) = (/ &\n     &6.3489e+03_rb,4.7618e+03_rb,3.1748e+03_rb,1.5877e+03_rb,7.1705e+00_rb/)\n      kbo(:, 5,50,10) = (/ &\n     &7.9377e+03_rb,5.9534e+03_rb,3.9691e+03_rb,1.9848e+03_rb,7.5922e+00_rb/)\n      kbo(:, 1,51,10) = (/ &\n     &3.8669e+03_rb,2.9003e+03_rb,1.9338e+03_rb,9.6719e+02_rb,4.8302e+00_rb/)\n      kbo(:, 2,51,10) = (/ &\n     &4.5318e+03_rb,3.3991e+03_rb,2.2663e+03_rb,1.1335e+03_rb,5.6653e+00_rb/)\n      kbo(:, 3,51,10) = (/ &\n     &5.3773e+03_rb,4.0331e+03_rb,2.6890e+03_rb,1.3448e+03_rb,6.3736e+00_rb/)\n      kbo(:, 4,51,10) = (/ &\n     &6.6015e+03_rb,4.9513e+03_rb,3.3010e+03_rb,1.6508e+03_rb,7.0028e+00_rb/)\n      kbo(:, 5,51,10) = (/ &\n     &8.3208e+03_rb,6.2407e+03_rb,4.1606e+03_rb,2.0805e+03_rb,7.4729e+00_rb/)\n      kbo(:, 1,52,10) = (/ &\n     &4.0341e+03_rb,3.0258e+03_rb,2.0174e+03_rb,1.0090e+03_rb,4.5505e+00_rb/)\n      kbo(:, 2,52,10) = (/ &\n     &4.7982e+03_rb,3.5989e+03_rb,2.3995e+03_rb,1.2001e+03_rb,5.4004e+00_rb/)\n      kbo(:, 3,52,10) = (/ &\n     &5.7356e+03_rb,4.3019e+03_rb,2.8682e+03_rb,1.4344e+03_rb,6.1556e+00_rb/)\n      kbo(:, 4,52,10) = (/ &\n     &7.0672e+03_rb,5.3005e+03_rb,3.5339e+03_rb,1.7672e+03_rb,6.8208e+00_rb/)\n      kbo(:, 5,52,10) = (/ &\n     &8.9657e+03_rb,6.7244e+03_rb,4.4831e+03_rb,2.2418e+03_rb,7.3432e+00_rb/)\n      kbo(:, 1,53,10) = (/ &\n     &4.3581e+03_rb,3.2687e+03_rb,2.1794e+03_rb,1.0900e+03_rb,4.2696e+00_rb/)\n      kbo(:, 2,53,10) = (/ &\n     &5.2688e+03_rb,3.9518e+03_rb,2.6348e+03_rb,1.3178e+03_rb,5.1422e+00_rb/)\n      kbo(:, 3,53,10) = (/ &\n     &6.3653e+03_rb,4.7742e+03_rb,3.1830e+03_rb,1.5919e+03_rb,5.9288e+00_rb/)\n      kbo(:, 4,53,10) = (/ &\n     &7.8870e+03_rb,5.9154e+03_rb,3.9438e+03_rb,1.9722e+03_rb,6.6345e+00_rb/)\n      kbo(:, 5,53,10) = (/ &\n     &1.0051e+04_rb,7.5383e+03_rb,5.0257e+03_rb,2.5131e+03_rb,7.2054e+00_rb/)\n      kbo(:, 1,54,10) = (/ &\n     &4.0664e+03_rb,3.0500e+03_rb,2.0336e+03_rb,1.0171e+03_rb,3.9912e+00_rb/)\n      kbo(:, 2,54,10) = (/ &\n     &5.0070e+03_rb,3.7555e+03_rb,2.5039e+03_rb,1.2523e+03_rb,4.8673e+00_rb/)\n      kbo(:, 3,54,10) = (/ &\n     &6.1329e+03_rb,4.5998e+03_rb,3.0668e+03_rb,1.5337e+03_rb,5.6727e+00_rb/)\n      kbo(:, 4,54,10) = (/ &\n     &7.6570e+03_rb,5.7429e+03_rb,3.8288e+03_rb,1.9147e+03_rb,6.4112e+00_rb/)\n      kbo(:, 5,54,10) = (/ &\n     &9.8073e+03_rb,7.3556e+03_rb,4.9039e+03_rb,2.4522e+03_rb,7.0431e+00_rb/)\n      kbo(:, 1,55,10) = (/ &\n     &3.4487e+03_rb,2.5868e+03_rb,1.7247e+03_rb,8.6275e+02_rb,3.7023e+00_rb/)\n      kbo(:, 2,55,10) = (/ &\n     &4.3277e+03_rb,3.2460e+03_rb,2.1642e+03_rb,1.0825e+03_rb,4.5324e+00_rb/)\n      kbo(:, 3,55,10) = (/ &\n     &5.3892e+03_rb,4.0421e+03_rb,2.6950e+03_rb,1.3479e+03_rb,5.4035e+00_rb/)\n      kbo(:, 4,55,10) = (/ &\n     &6.7963e+03_rb,5.0973e+03_rb,3.3984e+03_rb,1.6995e+03_rb,6.1546e+00_rb/)\n      kbo(:, 5,55,10) = (/ &\n     &8.7627e+03_rb,6.5722e+03_rb,4.3816e+03_rb,2.1910e+03_rb,6.8267e+00_rb/)\n      kbo(:, 1,56,10) = (/ &\n     &2.9072e+03_rb,2.1806e+03_rb,1.4540e+03_rb,7.2734e+02_rb,3.4115e+00_rb/)\n      kbo(:, 2,56,10) = (/ &\n     &3.7198e+03_rb,2.7901e+03_rb,1.8603e+03_rb,9.3056e+02_rb,4.2571e+00_rb/)\n      kbo(:, 3,56,10) = (/ &\n     &4.7203e+03_rb,3.5403e+03_rb,2.3605e+03_rb,1.1806e+03_rb,5.1151e+00_rb/)\n      kbo(:, 4,56,10) = (/ &\n     &6.0279e+03_rb,4.5211e+03_rb,3.0142e+03_rb,1.5074e+03_rb,5.8984e+00_rb/)\n      kbo(:, 5,56,10) = (/ &\n     &7.8366e+03_rb,5.8775e+03_rb,3.9185e+03_rb,1.9594e+03_rb,6.6003e+00_rb/)\n      kbo(:, 1,57,10) = (/ &\n     &2.4367e+03_rb,1.8277e+03_rb,1.2187e+03_rb,6.0970e+02_rb,3.1098e+00_rb/)\n      kbo(:, 2,57,10) = (/ &\n     &3.1766e+03_rb,2.3826e+03_rb,1.5887e+03_rb,7.9475e+02_rb,3.9704e+00_rb/)\n      kbo(:, 3,57,10) = (/ &\n     &4.1136e+03_rb,3.0854e+03_rb,2.0572e+03_rb,1.0290e+03_rb,4.8038e+00_rb/)\n      kbo(:, 4,57,10) = (/ &\n     &5.3345e+03_rb,4.0010e+03_rb,2.6675e+03_rb,1.3340e+03_rb,5.6428e+00_rb/)\n      kbo(:, 5,57,10) = (/ &\n     &7.0017e+03_rb,5.2513e+03_rb,3.5010e+03_rb,1.7507e+03_rb,6.3564e+00_rb/)\n      kbo(:, 1,58,10) = (/ &\n     &5.3797e+02_rb,4.9330e+02_rb,4.2306e+02_rb,2.9653e+02_rb,2.8402e+00_rb/)\n      kbo(:, 2,58,10) = (/ &\n     &7.1438e+02_rb,6.5505e+02_rb,5.6177e+02_rb,3.9372e+02_rb,3.6954e+00_rb/)\n      kbo(:, 3,58,10) = (/ &\n     &9.4508e+02_rb,8.6656e+02_rb,7.4311e+02_rb,5.2072e+02_rb,4.5299e+00_rb/)\n      kbo(:, 4,58,10) = (/ &\n     &1.2473e+03_rb,1.1436e+03_rb,9.8061e+02_rb,6.8699e+02_rb,5.3595e+00_rb/)\n      kbo(:, 5,58,10) = (/ &\n     &1.6559e+03_rb,1.5182e+03_rb,1.3018e+03_rb,9.1191e+02_rb,6.1054e+00_rb/)\n      kbo(:, 1,59,10) = (/ &\n     &5.5953e+02_rb,4.8866e+02_rb,3.8993e+02_rb,2.4311e+02_rb,2.7081e+00_rb/)\n      kbo(:, 2,59,10) = (/ &\n     &7.5600e+02_rb,6.6022e+02_rb,5.2680e+02_rb,3.2817e+02_rb,3.5280e+00_rb/)\n      kbo(:, 3,59,10) = (/ &\n     &1.0213e+03_rb,8.9185e+02_rb,7.1155e+02_rb,4.4309e+02_rb,4.3511e+00_rb/)\n      kbo(:, 4,59,10) = (/ &\n     &1.3747e+03_rb,1.2004e+03_rb,9.5765e+02_rb,5.9615e+02_rb,5.1215e+00_rb/)\n      kbo(:, 5,59,10) = (/ &\n     &1.8474e+03_rb,1.6131e+03_rb,1.2868e+03_rb,8.0091e+02_rb,5.9179e+00_rb/)\n      kbo(:, 1,13,11) = (/ &\n     &1.9556e+05_rb,1.4667e+05_rb,9.7780e+04_rb,4.8890e+04_rb,3.8293e+00_rb/)\n      kbo(:, 2,13,11) = (/ &\n     &1.9579e+05_rb,1.4684e+05_rb,9.7894e+04_rb,4.8947e+04_rb,3.6477e+00_rb/)\n      kbo(:, 3,13,11) = (/ &\n     &1.9489e+05_rb,1.4617e+05_rb,9.7447e+04_rb,4.8724e+04_rb,3.6240e+00_rb/)\n      kbo(:, 4,13,11) = (/ &\n     &1.9354e+05_rb,1.4515e+05_rb,9.6770e+04_rb,4.8385e+04_rb,3.4253e+00_rb/)\n      kbo(:, 5,13,11) = (/ &\n     &1.9176e+05_rb,1.4382e+05_rb,9.5882e+04_rb,4.7942e+04_rb,3.3965e+00_rb/)\n      kbo(:, 1,14,11) = (/ &\n     &1.2532e+05_rb,9.3990e+04_rb,6.2660e+04_rb,3.1330e+04_rb,4.2132e+00_rb/)\n      kbo(:, 2,14,11) = (/ &\n     &1.2490e+05_rb,9.3675e+04_rb,6.2450e+04_rb,3.1225e+04_rb,4.0914e+00_rb/)\n      kbo(:, 3,14,11) = (/ &\n     &1.2400e+05_rb,9.3003e+04_rb,6.2001e+04_rb,3.1001e+04_rb,4.0126e+00_rb/)\n      kbo(:, 4,14,11) = (/ &\n     &1.2262e+05_rb,9.1963e+04_rb,6.1309e+04_rb,3.0654e+04_rb,3.8288e+00_rb/)\n      kbo(:, 5,14,11) = (/ &\n     &1.2099e+05_rb,9.0745e+04_rb,6.0496e+04_rb,3.0248e+04_rb,3.6494e+00_rb/)\n      kbo(:, 1,15,11) = (/ &\n     &8.0146e+04_rb,6.0110e+04_rb,4.0074e+04_rb,2.0037e+04_rb,4.6025e+00_rb/)\n      kbo(:, 2,15,11) = (/ &\n     &7.9365e+04_rb,5.9524e+04_rb,3.9683e+04_rb,1.9842e+04_rb,4.5011e+00_rb/)\n      kbo(:, 3,15,11) = (/ &\n     &7.8437e+04_rb,5.8828e+04_rb,3.9219e+04_rb,1.9610e+04_rb,4.3995e+00_rb/)\n      kbo(:, 4,15,11) = (/ &\n     &7.7471e+04_rb,5.8104e+04_rb,3.8736e+04_rb,1.9369e+04_rb,4.3087e+00_rb/)\n      kbo(:, 5,15,11) = (/ &\n     &7.6167e+04_rb,5.7126e+04_rb,3.8084e+04_rb,1.9043e+04_rb,4.1657e+00_rb/)\n      kbo(:, 1,16,11) = (/ &\n     &5.9412e+04_rb,4.4559e+04_rb,2.9706e+04_rb,1.4854e+04_rb,4.9879e+00_rb/)\n      kbo(:, 2,16,11) = (/ &\n     &5.8737e+04_rb,4.4053e+04_rb,2.9369e+04_rb,1.4685e+04_rb,4.8952e+00_rb/)\n      kbo(:, 3,16,11) = (/ &\n     &5.7913e+04_rb,4.3435e+04_rb,2.8957e+04_rb,1.4479e+04_rb,4.7931e+00_rb/)\n      kbo(:, 4,16,11) = (/ &\n     &5.6912e+04_rb,4.2684e+04_rb,2.8456e+04_rb,1.4229e+04_rb,4.7058e+00_rb/)\n      kbo(:, 5,16,11) = (/ &\n     &5.5858e+04_rb,4.1894e+04_rb,2.7929e+04_rb,1.3965e+04_rb,4.5654e+00_rb/)\n      kbo(:, 1,17,11) = (/ &\n     &4.4739e+04_rb,3.3554e+04_rb,2.2370e+04_rb,1.1185e+04_rb,5.4258e+00_rb/)\n      kbo(:, 2,17,11) = (/ &\n     &4.4040e+04_rb,3.3030e+04_rb,2.2020e+04_rb,1.1011e+04_rb,5.3316e+00_rb/)\n      kbo(:, 3,17,11) = (/ &\n     &4.3278e+04_rb,3.2459e+04_rb,2.1639e+04_rb,1.0820e+04_rb,5.2258e+00_rb/)\n      kbo(:, 4,17,11) = (/ &\n     &4.2484e+04_rb,3.1863e+04_rb,2.1242e+04_rb,1.0622e+04_rb,5.1306e+00_rb/)\n      kbo(:, 5,17,11) = (/ &\n     &4.1610e+04_rb,3.1208e+04_rb,2.0805e+04_rb,1.0403e+04_rb,4.9611e+00_rb/)\n      kbo(:, 1,18,11) = (/ &\n     &3.3808e+04_rb,2.5356e+04_rb,1.6904e+04_rb,8.4526e+03_rb,5.9588e+00_rb/)\n      kbo(:, 2,18,11) = (/ &\n     &3.3205e+04_rb,2.4904e+04_rb,1.6603e+04_rb,8.3019e+03_rb,5.8553e+00_rb/)\n      kbo(:, 3,18,11) = (/ &\n     &3.2587e+04_rb,2.4440e+04_rb,1.6294e+04_rb,8.1473e+03_rb,5.7407e+00_rb/)\n      kbo(:, 4,18,11) = (/ &\n     &3.1890e+04_rb,2.3917e+04_rb,1.5945e+04_rb,7.9729e+03_rb,5.6396e+00_rb/)\n      kbo(:, 5,18,11) = (/ &\n     &3.1157e+04_rb,2.3368e+04_rb,1.5579e+04_rb,7.7897e+03_rb,5.4685e+00_rb/)\n      kbo(:, 1,19,11) = (/ &\n     &2.4641e+04_rb,1.8481e+04_rb,1.2321e+04_rb,6.1608e+03_rb,6.5634e+00_rb/)\n      kbo(:, 2,19,11) = (/ &\n     &2.4168e+04_rb,1.8126e+04_rb,1.2084e+04_rb,6.0424e+03_rb,6.4593e+00_rb/)\n      kbo(:, 3,19,11) = (/ &\n     &2.3646e+04_rb,1.7735e+04_rb,1.1823e+04_rb,5.9120e+03_rb,6.3292e+00_rb/)\n      kbo(:, 4,19,11) = (/ &\n     &2.3077e+04_rb,1.7308e+04_rb,1.1539e+04_rb,5.7697e+03_rb,6.2034e+00_rb/)\n      kbo(:, 5,19,11) = (/ &\n     &2.2489e+04_rb,1.6867e+04_rb,1.1245e+04_rb,5.6226e+03_rb,6.0369e+00_rb/)\n      kbo(:, 1,20,11) = (/ &\n     &1.9106e+04_rb,1.4330e+04_rb,9.5533e+03_rb,4.7770e+03_rb,7.1646e+00_rb/)\n      kbo(:, 2,20,11) = (/ &\n     &1.8682e+04_rb,1.4011e+04_rb,9.3411e+03_rb,4.6709e+03_rb,7.0409e+00_rb/)\n      kbo(:, 3,20,11) = (/ &\n     &1.8224e+04_rb,1.3668e+04_rb,9.1125e+03_rb,4.5566e+03_rb,6.8869e+00_rb/)\n      kbo(:, 4,20,11) = (/ &\n     &1.7734e+04_rb,1.3300e+04_rb,8.8671e+03_rb,4.4339e+03_rb,6.7557e+00_rb/)\n      kbo(:, 5,20,11) = (/ &\n     &1.7241e+04_rb,1.2931e+04_rb,8.6211e+03_rb,4.3109e+03_rb,6.6027e+00_rb/)\n      kbo(:, 1,21,11) = (/ &\n     &1.5039e+04_rb,1.1280e+04_rb,7.5200e+03_rb,3.7604e+03_rb,7.7170e+00_rb/)\n      kbo(:, 2,21,11) = (/ &\n     &1.4660e+04_rb,1.0995e+04_rb,7.3306e+03_rb,3.6657e+03_rb,7.5835e+00_rb/)\n      kbo(:, 3,21,11) = (/ &\n     &1.4253e+04_rb,1.0690e+04_rb,7.1270e+03_rb,3.5639e+03_rb,7.4413e+00_rb/)\n      kbo(:, 4,21,11) = (/ &\n     &1.3848e+04_rb,1.0387e+04_rb,6.9246e+03_rb,3.4627e+03_rb,7.3214e+00_rb/)\n      kbo(:, 5,21,11) = (/ &\n     &1.3474e+04_rb,1.0106e+04_rb,6.7374e+03_rb,3.3691e+03_rb,7.1721e+00_rb/)\n      kbo(:, 1,22,11) = (/ &\n     &1.1928e+04_rb,8.9459e+03_rb,5.9642e+03_rb,2.9825e+03_rb,8.2536e+00_rb/)\n      kbo(:, 2,22,11) = (/ &\n     &1.1588e+04_rb,8.6914e+03_rb,5.7946e+03_rb,2.8977e+03_rb,8.1353e+00_rb/)\n      kbo(:, 3,22,11) = (/ &\n     &1.1261e+04_rb,8.4462e+03_rb,5.6311e+03_rb,2.8159e+03_rb,8.0046e+00_rb/)\n      kbo(:, 4,22,11) = (/ &\n     &1.0981e+04_rb,8.2362e+03_rb,5.4911e+03_rb,2.7459e+03_rb,7.8868e+00_rb/)\n      kbo(:, 5,22,11) = (/ &\n     &1.0767e+04_rb,8.0756e+03_rb,5.3840e+03_rb,2.6924e+03_rb,7.7103e+00_rb/)\n      kbo(:, 1,23,11) = (/ &\n     &9.3738e+03_rb,7.0305e+03_rb,4.6873e+03_rb,2.3441e+03_rb,8.7957e+00_rb/)\n      kbo(:, 2,23,11) = (/ &\n     &9.1120e+03_rb,6.8342e+03_rb,4.5564e+03_rb,2.2786e+03_rb,8.6750e+00_rb/)\n      kbo(:, 3,23,11) = (/ &\n     &8.9119e+03_rb,6.6842e+03_rb,4.4564e+03_rb,2.2286e+03_rb,8.5667e+00_rb/)\n      kbo(:, 4,23,11) = (/ &\n     &8.7698e+03_rb,6.5776e+03_rb,4.3853e+03_rb,2.1931e+03_rb,8.4437e+00_rb/)\n      kbo(:, 5,23,11) = (/ &\n     &8.7064e+03_rb,6.5300e+03_rb,4.3536e+03_rb,2.1772e+03_rb,8.2499e+00_rb/)\n      kbo(:, 1,24,11) = (/ &\n     &7.2818e+03_rb,5.4615e+03_rb,3.6413e+03_rb,1.8211e+03_rb,9.3047e+00_rb/)\n      kbo(:, 2,24,11) = (/ &\n     &7.1398e+03_rb,5.3551e+03_rb,3.5703e+03_rb,1.7856e+03_rb,9.1844e+00_rb/)\n      kbo(:, 3,24,11) = (/ &\n     &7.0551e+03_rb,5.2916e+03_rb,3.5280e+03_rb,1.7644e+03_rb,9.0906e+00_rb/)\n      kbo(:, 4,24,11) = (/ &\n     &7.0561e+03_rb,5.2923e+03_rb,3.5284e+03_rb,1.7646e+03_rb,8.9639e+00_rb/)\n      kbo(:, 5,24,11) = (/ &\n     &7.1200e+03_rb,5.3402e+03_rb,3.5604e+03_rb,1.7806e+03_rb,8.7597e+00_rb/)\n      kbo(:, 1,25,11) = (/ &\n     &5.7829e+03_rb,4.3374e+03_rb,2.8918e+03_rb,1.4463e+03_rb,9.7531e+00_rb/)\n      kbo(:, 2,25,11) = (/ &\n     &5.7416e+03_rb,4.3064e+03_rb,2.8712e+03_rb,1.4360e+03_rb,9.6333e+00_rb/)\n      kbo(:, 3,25,11) = (/ &\n     &5.7703e+03_rb,4.3279e+03_rb,2.8855e+03_rb,1.4432e+03_rb,9.5575e+00_rb/)\n      kbo(:, 4,25,11) = (/ &\n     &5.8528e+03_rb,4.3898e+03_rb,2.9268e+03_rb,1.4638e+03_rb,9.4320e+00_rb/)\n      kbo(:, 5,25,11) = (/ &\n     &5.9946e+03_rb,4.4961e+03_rb,2.9977e+03_rb,1.4993e+03_rb,9.2048e+00_rb/)\n      kbo(:, 1,26,11) = (/ &\n     &4.7547e+03_rb,3.5662e+03_rb,2.3777e+03_rb,1.1892e+03_rb,1.0127e+01_rb/)\n      kbo(:, 2,26,11) = (/ &\n     &4.7969e+03_rb,3.5979e+03_rb,2.3989e+03_rb,1.1999e+03_rb,1.0014e+01_rb/)\n      kbo(:, 3,26,11) = (/ &\n     &4.8916e+03_rb,3.6689e+03_rb,2.4462e+03_rb,1.2235e+03_rb,9.9567e+00_rb/)\n      kbo(:, 4,26,11) = (/ &\n     &5.0339e+03_rb,3.7756e+03_rb,2.5174e+03_rb,1.2591e+03_rb,9.8430e+00_rb/)\n      kbo(:, 5,26,11) = (/ &\n     &5.1881e+03_rb,3.8913e+03_rb,2.5944e+03_rb,1.2976e+03_rb,9.5879e+00_rb/)\n      kbo(:, 1,27,11) = (/ &\n     &4.1434e+03_rb,3.1078e+03_rb,2.0721e+03_rb,1.0365e+03_rb,1.0438e+01_rb/)\n      kbo(:, 2,27,11) = (/ &\n     &4.2449e+03_rb,3.1839e+03_rb,2.1229e+03_rb,1.0619e+03_rb,1.0375e+01_rb/)\n      kbo(:, 3,27,11) = (/ &\n     &4.3814e+03_rb,3.2863e+03_rb,2.1911e+03_rb,1.0960e+03_rb,1.0314e+01_rb/)\n      kbo(:, 4,27,11) = (/ &\n     &4.5344e+03_rb,3.4010e+03_rb,2.2676e+03_rb,1.1342e+03_rb,1.0178e+01_rb/)\n      kbo(:, 5,27,11) = (/ &\n     &4.7035e+03_rb,3.5278e+03_rb,2.3521e+03_rb,1.1764e+03_rb,9.9184e+00_rb/)\n      kbo(:, 1,28,11) = (/ &\n     &3.7712e+03_rb,2.8287e+03_rb,1.8861e+03_rb,9.4351e+02_rb,1.0688e+01_rb/)\n      kbo(:, 2,28,11) = (/ &\n     &3.9032e+03_rb,2.9276e+03_rb,1.9520e+03_rb,9.7644e+02_rb,1.0679e+01_rb/)\n      kbo(:, 3,28,11) = (/ &\n     &4.0571e+03_rb,3.0430e+03_rb,2.0289e+03_rb,1.0148e+03_rb,1.0623e+01_rb/)\n      kbo(:, 4,28,11) = (/ &\n     &4.2272e+03_rb,3.1706e+03_rb,2.1139e+03_rb,1.0573e+03_rb,1.0454e+01_rb/)\n      kbo(:, 5,28,11) = (/ &\n     &4.4031e+03_rb,3.3025e+03_rb,2.2018e+03_rb,1.1012e+03_rb,1.0168e+01_rb/)\n      kbo(:, 1,29,11) = (/ &\n     &3.6879e+03_rb,2.7661e+03_rb,1.8444e+03_rb,9.2260e+02_rb,1.0914e+01_rb/)\n      kbo(:, 2,29,11) = (/ &\n     &3.8440e+03_rb,2.8832e+03_rb,1.9224e+03_rb,9.6157e+02_rb,1.0945e+01_rb/)\n      kbo(:, 3,29,11) = (/ &\n     &4.0134e+03_rb,3.0102e+03_rb,2.0070e+03_rb,1.0038e+03_rb,1.0853e+01_rb/)\n      kbo(:, 4,29,11) = (/ &\n     &4.1909e+03_rb,3.1433e+03_rb,2.0957e+03_rb,1.0481e+03_rb,1.0578e+01_rb/)\n      kbo(:, 5,29,11) = (/ &\n     &4.3726e+03_rb,3.2796e+03_rb,2.1866e+03_rb,1.0936e+03_rb,1.0403e+01_rb/)\n      kbo(:, 1,30,11) = (/ &\n     &3.7192e+03_rb,2.7896e+03_rb,1.8600e+03_rb,9.3035e+02_rb,1.1141e+01_rb/)\n      kbo(:, 2,30,11) = (/ &\n     &3.8944e+03_rb,2.9210e+03_rb,1.9475e+03_rb,9.7411e+02_rb,1.1139e+01_rb/)\n      kbo(:, 3,30,11) = (/ &\n     &4.0753e+03_rb,3.0566e+03_rb,2.0379e+03_rb,1.0192e+03_rb,1.0970e+01_rb/)\n      kbo(:, 4,30,11) = (/ &\n     &4.2621e+03_rb,3.1967e+03_rb,2.1313e+03_rb,1.0660e+03_rb,1.0736e+01_rb/)\n      kbo(:, 5,30,11) = (/ &\n     &4.4544e+03_rb,3.3410e+03_rb,2.2275e+03_rb,1.1141e+03_rb,1.0663e+01_rb/)\n      kbo(:, 1,31,11) = (/ &\n     &3.9494e+03_rb,2.9622e+03_rb,1.9750e+03_rb,9.8786e+02_rb,1.1309e+01_rb/)\n      kbo(:, 2,31,11) = (/ &\n     &4.1497e+03_rb,3.1124e+03_rb,2.0751e+03_rb,1.0378e+03_rb,1.1233e+01_rb/)\n      kbo(:, 3,31,11) = (/ &\n     &4.3564e+03_rb,3.2674e+03_rb,2.1785e+03_rb,1.0895e+03_rb,1.1031e+01_rb/)\n      kbo(:, 4,31,11) = (/ &\n     &4.5677e+03_rb,3.4259e+03_rb,2.2841e+03_rb,1.1423e+03_rb,1.1018e+01_rb/)\n      kbo(:, 5,31,11) = (/ &\n     &4.7823e+03_rb,3.5869e+03_rb,2.3915e+03_rb,1.1960e+03_rb,1.0922e+01_rb/)\n      kbo(:, 1,32,11) = (/ &\n     &4.2398e+03_rb,3.1800e+03_rb,2.1202e+03_rb,1.0604e+03_rb,1.1395e+01_rb/)\n      kbo(:, 2,32,11) = (/ &\n     &4.4759e+03_rb,3.3571e+03_rb,2.2382e+03_rb,1.1194e+03_rb,1.1282e+01_rb/)\n      kbo(:, 3,32,11) = (/ &\n     &4.7161e+03_rb,3.5372e+03_rb,2.3583e+03_rb,1.1795e+03_rb,1.1286e+01_rb/)\n      kbo(:, 4,32,11) = (/ &\n     &4.9603e+03_rb,3.7204e+03_rb,2.4805e+03_rb,1.2406e+03_rb,1.1267e+01_rb/)\n      kbo(:, 5,32,11) = (/ &\n     &5.2103e+03_rb,3.9079e+03_rb,2.6055e+03_rb,1.3031e+03_rb,1.1177e+01_rb/)\n      kbo(:, 1,33,11) = (/ &\n     &4.6404e+03_rb,3.4804e+03_rb,2.3205e+03_rb,1.1605e+03_rb,1.1433e+01_rb/)\n      kbo(:, 2,33,11) = (/ &\n     &4.9200e+03_rb,3.6901e+03_rb,2.4603e+03_rb,1.2304e+03_rb,1.1468e+01_rb/)\n      kbo(:, 3,33,11) = (/ &\n     &5.2076e+03_rb,3.9059e+03_rb,2.6041e+03_rb,1.3024e+03_rb,1.1541e+01_rb/)\n      kbo(:, 4,33,11) = (/ &\n     &5.4986e+03_rb,4.1241e+03_rb,2.7496e+03_rb,1.3751e+03_rb,1.1519e+01_rb/)\n      kbo(:, 5,33,11) = (/ &\n     &5.8045e+03_rb,4.3535e+03_rb,2.9026e+03_rb,1.4516e+03_rb,1.1398e+01_rb/)\n      kbo(:, 1,34,11) = (/ &\n     &4.9577e+03_rb,3.7184e+03_rb,2.4791e+03_rb,1.2399e+03_rb,1.1582e+01_rb/)\n      kbo(:, 2,34,11) = (/ &\n     &5.2771e+03_rb,3.9580e+03_rb,2.6389e+03_rb,1.3198e+03_rb,1.1708e+01_rb/)\n      kbo(:, 3,34,11) = (/ &\n     &5.6109e+03_rb,4.2083e+03_rb,2.8058e+03_rb,1.4032e+03_rb,1.1770e+01_rb/)\n      kbo(:, 4,34,11) = (/ &\n     &5.9588e+03_rb,4.4693e+03_rb,2.9798e+03_rb,1.4902e+03_rb,1.1629e+01_rb/)\n      kbo(:, 5,34,11) = (/ &\n     &6.3300e+03_rb,4.7477e+03_rb,3.1654e+03_rb,1.5830e+03_rb,1.1520e+01_rb/)\n      kbo(:, 1,35,11) = (/ &\n     &5.2909e+03_rb,3.9683e+03_rb,2.6458e+03_rb,1.3232e+03_rb,1.1741e+01_rb/)\n      kbo(:, 2,35,11) = (/ &\n     &5.6548e+03_rb,4.2413e+03_rb,2.8277e+03_rb,1.4142e+03_rb,1.1903e+01_rb/)\n      kbo(:, 3,35,11) = (/ &\n     &6.0420e+03_rb,4.5317e+03_rb,3.0214e+03_rb,1.5110e+03_rb,1.1866e+01_rb/)\n      kbo(:, 4,35,11) = (/ &\n     &6.4601e+03_rb,4.8453e+03_rb,3.2304e+03_rb,1.6156e+03_rb,1.1803e+01_rb/)\n      kbo(:, 5,35,11) = (/ &\n     &6.9268e+03_rb,5.1953e+03_rb,3.4637e+03_rb,1.7322e+03_rb,1.1652e+01_rb/)\n      kbo(:, 1,36,11) = (/ &\n     &5.5884e+03_rb,4.1915e+03_rb,2.7945e+03_rb,1.3976e+03_rb,1.1878e+01_rb/)\n      kbo(:, 2,36,11) = (/ &\n     &6.0018e+03_rb,4.5015e+03_rb,3.0012e+03_rb,1.5010e+03_rb,1.2049e+01_rb/)\n      kbo(:, 3,36,11) = (/ &\n     &6.4517e+03_rb,4.8389e+03_rb,3.2262e+03_rb,1.6135e+03_rb,1.1951e+01_rb/)\n      kbo(:, 4,36,11) = (/ &\n     &6.9515e+03_rb,5.2138e+03_rb,3.4761e+03_rb,1.7384e+03_rb,1.1938e+01_rb/)\n      kbo(:, 5,36,11) = (/ &\n     &7.5289e+03_rb,5.6469e+03_rb,3.7648e+03_rb,1.8827e+03_rb,1.1892e+01_rb/)\n      kbo(:, 1,37,11) = (/ &\n     &5.7114e+03_rb,4.2838e+03_rb,2.8561e+03_rb,1.4284e+03_rb,1.1983e+01_rb/)\n      kbo(:, 2,37,11) = (/ &\n     &6.1629e+03_rb,4.6224e+03_rb,3.0818e+03_rb,1.5413e+03_rb,1.2105e+01_rb/)\n      kbo(:, 3,37,11) = (/ &\n     &6.6668e+03_rb,5.0003e+03_rb,3.3338e+03_rb,1.6673e+03_rb,1.2063e+01_rb/)\n      kbo(:, 4,37,11) = (/ &\n     &7.2441e+03_rb,5.4333e+03_rb,3.6224e+03_rb,1.8115e+03_rb,1.2103e+01_rb/)\n      kbo(:, 5,37,11) = (/ &\n     &7.9256e+03_rb,5.9443e+03_rb,3.9631e+03_rb,1.9819e+03_rb,1.2052e+01_rb/)\n      kbo(:, 1,38,11) = (/ &\n     &5.9457e+03_rb,4.4595e+03_rb,2.9732e+03_rb,1.4870e+03_rb,1.2040e+01_rb/)\n      kbo(:, 2,38,11) = (/ &\n     &6.4404e+03_rb,4.8305e+03_rb,3.2206e+03_rb,1.6107e+03_rb,1.2135e+01_rb/)\n      kbo(:, 3,38,11) = (/ &\n     &7.0103e+03_rb,5.2579e+03_rb,3.5055e+03_rb,1.7531e+03_rb,1.2201e+01_rb/)\n      kbo(:, 4,38,11) = (/ &\n     &7.6883e+03_rb,5.7664e+03_rb,3.8444e+03_rb,1.9225e+03_rb,1.2264e+01_rb/)\n      kbo(:, 5,38,11) = (/ &\n     &8.5003e+03_rb,6.3754e+03_rb,4.2504e+03_rb,2.1255e+03_rb,1.2214e+01_rb/)\n      kbo(:, 1,39,11) = (/ &\n     &6.3574e+03_rb,4.7683e+03_rb,3.1792e+03_rb,1.5900e+03_rb,1.2058e+01_rb/)\n      kbo(:, 2,39,11) = (/ &\n     &6.9172e+03_rb,5.1882e+03_rb,3.4591e+03_rb,1.7299e+03_rb,1.2221e+01_rb/)\n      kbo(:, 3,39,11) = (/ &\n     &7.5768e+03_rb,5.6828e+03_rb,3.7888e+03_rb,1.8948e+03_rb,1.2385e+01_rb/)\n      kbo(:, 4,39,11) = (/ &\n     &8.3852e+03_rb,6.2891e+03_rb,4.1930e+03_rb,2.0968e+03_rb,1.2417e+01_rb/)\n      kbo(:, 5,39,11) = (/ &\n     &9.3744e+03_rb,7.0310e+03_rb,4.6875e+03_rb,2.3441e+03_rb,1.2400e+01_rb/)\n      kbo(:, 1,40,11) = (/ &\n     &6.3544e+03_rb,4.7660e+03_rb,3.1776e+03_rb,1.5893e+03_rb,1.2034e+01_rb/)\n      kbo(:, 2,40,11) = (/ &\n     &6.9547e+03_rb,5.2162e+03_rb,3.4777e+03_rb,1.7393e+03_rb,1.2252e+01_rb/)\n      kbo(:, 3,40,11) = (/ &\n     &7.6538e+03_rb,5.7405e+03_rb,3.8272e+03_rb,1.9140e+03_rb,1.2461e+01_rb/)\n      kbo(:, 4,40,11) = (/ &\n     &8.5373e+03_rb,6.4031e+03_rb,4.2689e+03_rb,2.1348e+03_rb,1.2533e+01_rb/)\n      kbo(:, 5,40,11) = (/ &\n     &9.6388e+03_rb,7.2292e+03_rb,4.8196e+03_rb,2.4101e+03_rb,1.2526e+01_rb/)\n      kbo(:, 1,41,11) = (/ &\n     &6.3521e+03_rb,4.7643e+03_rb,3.1765e+03_rb,1.5887e+03_rb,1.1995e+01_rb/)\n      kbo(:, 2,41,11) = (/ &\n     &6.9920e+03_rb,5.2442e+03_rb,3.4964e+03_rb,1.7486e+03_rb,1.2280e+01_rb/)\n      kbo(:, 3,41,11) = (/ &\n     &7.7375e+03_rb,5.8033e+03_rb,3.8691e+03_rb,1.9349e+03_rb,1.2499e+01_rb/)\n      kbo(:, 4,41,11) = (/ &\n     &8.6900e+03_rb,6.5177e+03_rb,4.3453e+03_rb,2.1730e+03_rb,1.2628e+01_rb/)\n      kbo(:, 5,41,11) = (/ &\n     &9.9008e+03_rb,7.4257e+03_rb,4.9507e+03_rb,2.4756e+03_rb,1.2622e+01_rb/)\n      kbo(:, 1,42,11) = (/ &\n     &6.4377e+03_rb,4.8285e+03_rb,3.2193e+03_rb,1.6101e+03_rb,1.1943e+01_rb/)\n      kbo(:, 2,42,11) = (/ &\n     &7.1284e+03_rb,5.3465e+03_rb,3.5646e+03_rb,1.7827e+03_rb,1.2311e+01_rb/)\n      kbo(:, 3,42,11) = (/ &\n     &7.9472e+03_rb,5.9606e+03_rb,3.9739e+03_rb,1.9873e+03_rb,1.2580e+01_rb/)\n      kbo(:, 4,42,11) = (/ &\n     &8.9767e+03_rb,6.7326e+03_rb,4.4886e+03_rb,2.2446e+03_rb,1.2710e+01_rb/)\n      kbo(:, 5,42,11) = (/ &\n     &1.0302e+04_rb,7.7266e+03_rb,5.1512e+03_rb,2.5758e+03_rb,1.2734e+01_rb/)\n      kbo(:, 1,43,11) = (/ &\n     &6.5684e+03_rb,4.9266e+03_rb,3.2847e+03_rb,1.6428e+03_rb,1.1839e+01_rb/)\n      kbo(:, 2,43,11) = (/ &\n     &7.3100e+03_rb,5.4827e+03_rb,3.6554e+03_rb,1.8281e+03_rb,1.2298e+01_rb/)\n      kbo(:, 3,43,11) = (/ &\n     &8.2069e+03_rb,6.1553e+03_rb,4.1038e+03_rb,2.0523e+03_rb,1.2585e+01_rb/)\n      kbo(:, 4,43,11) = (/ &\n     &9.3215e+03_rb,6.9913e+03_rb,4.6611e+03_rb,2.3308e+03_rb,1.2796e+01_rb/)\n      kbo(:, 5,43,11) = (/ &\n     &1.0756e+04_rb,8.0671e+03_rb,5.3782e+03_rb,2.6894e+03_rb,1.2802e+01_rb/)\n      kbo(:, 1,44,11) = (/ &\n     &6.7770e+03_rb,5.0829e+03_rb,3.3889e+03_rb,1.6949e+03_rb,1.1696e+01_rb/)\n      kbo(:, 2,44,11) = (/ &\n     &7.6014e+03_rb,5.7012e+03_rb,3.8011e+03_rb,1.9009e+03_rb,1.2235e+01_rb/)\n      kbo(:, 3,44,11) = (/ &\n     &8.5905e+03_rb,6.4430e+03_rb,4.2955e+03_rb,2.1481e+03_rb,1.2598e+01_rb/)\n      kbo(:, 4,44,11) = (/ &\n     &9.8167e+03_rb,7.3626e+03_rb,4.9086e+03_rb,2.4546e+03_rb,1.2843e+01_rb/)\n      kbo(:, 5,44,11) = (/ &\n     &1.1370e+04_rb,8.5274e+03_rb,5.6850e+03_rb,2.8427e+03_rb,1.2862e+01_rb/)\n      kbo(:, 1,45,11) = (/ &\n     &7.1337e+03_rb,5.3505e+03_rb,3.5673e+03_rb,1.7841e+03_rb,1.1553e+01_rb/)\n      kbo(:, 2,45,11) = (/ &\n     &8.0813e+03_rb,6.0612e+03_rb,4.0411e+03_rb,2.0209e+03_rb,1.2213e+01_rb/)\n      kbo(:, 3,45,11) = (/ &\n     &9.1915e+03_rb,6.8938e+03_rb,4.5961e+03_rb,2.2984e+03_rb,1.2577e+01_rb/)\n      kbo(:, 4,45,11) = (/ &\n     &1.0572e+04_rb,7.9290e+03_rb,5.2862e+03_rb,2.6434e+03_rb,1.2862e+01_rb/)\n      kbo(:, 5,45,11) = (/ &\n     &1.2294e+04_rb,9.2203e+03_rb,6.1470e+03_rb,3.0738e+03_rb,1.2905e+01_rb/)\n      kbo(:, 1,46,11) = (/ &\n     &7.5574e+03_rb,5.6683e+03_rb,3.7792e+03_rb,1.8901e+03_rb,1.1372e+01_rb/)\n      kbo(:, 2,46,11) = (/ &\n     &8.6566e+03_rb,6.4927e+03_rb,4.3287e+03_rb,2.1648e+03_rb,1.2098e+01_rb/)\n      kbo(:, 3,46,11) = (/ &\n     &9.9311e+03_rb,7.4485e+03_rb,4.9659e+03_rb,2.4833e+03_rb,1.2508e+01_rb/)\n      kbo(:, 4,46,11) = (/ &\n     &1.1483e+04_rb,8.6121e+03_rb,5.7416e+03_rb,2.8711e+03_rb,1.2889e+01_rb/)\n      kbo(:, 5,46,11) = (/ &\n     &1.3417e+04_rb,1.0063e+04_rb,6.7088e+03_rb,3.3546e+03_rb,1.2962e+01_rb/)\n      kbo(:, 1,47,11) = (/ &\n     &7.8727e+03_rb,5.9048e+03_rb,3.9368e+03_rb,1.9689e+03_rb,1.1120e+01_rb/)\n      kbo(:, 2,47,11) = (/ &\n     &9.1356e+03_rb,6.8519e+03_rb,4.5682e+03_rb,2.2845e+03_rb,1.1918e+01_rb/)\n      kbo(:, 3,47,11) = (/ &\n     &1.0582e+04_rb,7.9368e+03_rb,5.2914e+03_rb,2.6461e+03_rb,1.2406e+01_rb/)\n      kbo(:, 4,47,11) = (/ &\n     &1.2301e+04_rb,9.2260e+03_rb,6.1509e+03_rb,3.0757e+03_rb,1.2816e+01_rb/)\n      kbo(:, 5,47,11) = (/ &\n     &1.4433e+04_rb,1.0825e+04_rb,7.2167e+03_rb,3.6086e+03_rb,1.2983e+01_rb/)\n      kbo(:, 1,48,11) = (/ &\n     &8.4035e+03_rb,6.3029e+03_rb,4.2022e+03_rb,2.1016e+03_rb,1.0897e+01_rb/)\n      kbo(:, 2,48,11) = (/ &\n     &9.8931e+03_rb,7.4200e+03_rb,4.9470e+03_rb,2.4739e+03_rb,1.1706e+01_rb/)\n      kbo(:, 3,48,11) = (/ &\n     &1.1589e+04_rb,8.6922e+03_rb,5.7950e+03_rb,2.8979e+03_rb,1.2313e+01_rb/)\n      kbo(:, 4,48,11) = (/ &\n     &1.3567e+04_rb,1.0175e+04_rb,6.7839e+03_rb,3.3922e+03_rb,1.2741e+01_rb/)\n      kbo(:, 5,48,11) = (/ &\n     &1.5977e+04_rb,1.1983e+04_rb,7.9888e+03_rb,3.9947e+03_rb,1.2994e+01_rb/)\n      kbo(:, 1,49,11) = (/ &\n     &9.3222e+03_rb,6.9919e+03_rb,4.6615e+03_rb,2.3312e+03_rb,1.0633e+01_rb/)\n      kbo(:, 2,49,11) = (/ &\n     &1.1123e+04_rb,8.3424e+03_rb,5.5619e+03_rb,2.7813e+03_rb,1.1478e+01_rb/)\n      kbo(:, 3,49,11) = (/ &\n     &1.3212e+04_rb,9.9089e+03_rb,6.6061e+03_rb,3.3034e+03_rb,1.2190e+01_rb/)\n      kbo(:, 4,49,11) = (/ &\n     &1.5603e+04_rb,1.1702e+04_rb,7.8017e+03_rb,3.9011e+03_rb,1.2697e+01_rb/)\n      kbo(:, 5,49,11) = (/ &\n     &1.8442e+04_rb,1.3832e+04_rb,9.2215e+03_rb,4.6110e+03_rb,1.3027e+01_rb/)\n      kbo(:, 1,50,11) = (/ &\n     &9.8729e+03_rb,7.4049e+03_rb,4.9369e+03_rb,2.4688e+03_rb,1.0346e+01_rb/)\n      kbo(:, 2,50,11) = (/ &\n     &1.1927e+04_rb,8.9452e+03_rb,5.9637e+03_rb,2.9822e+03_rb,1.1213e+01_rb/)\n      kbo(:, 3,50,11) = (/ &\n     &1.4376e+04_rb,1.0782e+04_rb,7.1884e+03_rb,3.5945e+03_rb,1.2042e+01_rb/)\n      kbo(:, 4,50,11) = (/ &\n     &1.7156e+04_rb,1.2867e+04_rb,8.5782e+03_rb,4.2894e+03_rb,1.2592e+01_rb/)\n      kbo(:, 5,50,11) = (/ &\n     &2.0387e+04_rb,1.5290e+04_rb,1.0194e+04_rb,5.0970e+03_rb,1.3035e+01_rb/)\n      kbo(:, 1,51,11) = (/ &\n     &1.0246e+04_rb,7.6846e+03_rb,5.1234e+03_rb,2.5621e+03_rb,1.0080e+01_rb/)\n      kbo(:, 2,51,11) = (/ &\n     &1.2504e+04_rb,9.3781e+03_rb,6.2523e+03_rb,3.1265e+03_rb,1.0959e+01_rb/)\n      kbo(:, 3,51,11) = (/ &\n     &1.5294e+04_rb,1.1471e+04_rb,7.6476e+03_rb,3.8241e+03_rb,1.1913e+01_rb/)\n      kbo(:, 4,51,11) = (/ &\n     &1.8483e+04_rb,1.3863e+04_rb,9.2420e+03_rb,4.6213e+03_rb,1.2523e+01_rb/)\n      kbo(:, 5,51,11) = (/ &\n     &2.2103e+04_rb,1.6577e+04_rb,1.1052e+04_rb,5.5261e+03_rb,1.3008e+01_rb/)\n      kbo(:, 1,52,11) = (/ &\n     &1.0919e+04_rb,8.1898e+03_rb,5.4601e+03_rb,2.7304e+03_rb,9.7365e+00_rb/)\n      kbo(:, 2,52,11) = (/ &\n     &1.3474e+04_rb,1.0106e+04_rb,6.7375e+03_rb,3.3691e+03_rb,1.0715e+01_rb/)\n      kbo(:, 3,52,11) = (/ &\n     &1.6692e+04_rb,1.2519e+04_rb,8.3465e+03_rb,4.1736e+03_rb,1.1714e+01_rb/)\n      kbo(:, 4,52,11) = (/ &\n     &2.0445e+04_rb,1.5334e+04_rb,1.0223e+04_rb,5.1117e+03_rb,1.2415e+01_rb/)\n      kbo(:, 5,52,11) = (/ &\n     &2.4642e+04_rb,1.8481e+04_rb,1.2321e+04_rb,6.1608e+03_rb,1.2964e+01_rb/)\n      kbo(:, 1,53,11) = (/ &\n     &1.2096e+04_rb,9.0720e+03_rb,6.0483e+03_rb,3.0245e+03_rb,9.3807e+00_rb/)\n      kbo(:, 2,53,11) = (/ &\n     &1.5115e+04_rb,1.1337e+04_rb,7.5582e+03_rb,3.7794e+03_rb,1.0467e+01_rb/)\n      kbo(:, 3,53,11) = (/ &\n     &1.8931e+04_rb,1.4199e+04_rb,9.4661e+03_rb,4.7334e+03_rb,1.1520e+01_rb/)\n      kbo(:, 4,53,11) = (/ &\n     &2.3491e+04_rb,1.7618e+04_rb,1.1746e+04_rb,5.8732e+03_rb,1.2292e+01_rb/)\n      kbo(:, 5,53,11) = (/ &\n     &2.8602e+04_rb,2.1452e+04_rb,1.4301e+04_rb,7.1510e+03_rb,1.2913e+01_rb/)\n      kbo(:, 1,54,11) = (/ &\n     &1.1628e+04_rb,8.7215e+03_rb,5.8146e+03_rb,2.9077e+03_rb,8.9653e+00_rb/)\n      kbo(:, 2,54,11) = (/ &\n     &1.4721e+04_rb,1.1041e+04_rb,7.3608e+03_rb,3.6808e+03_rb,1.0130e+01_rb/)\n      kbo(:, 3,54,11) = (/ &\n     &1.8638e+04_rb,1.3979e+04_rb,9.3193e+03_rb,4.6600e+03_rb,1.1195e+01_rb/)\n      kbo(:, 4,54,11) = (/ &\n     &2.3417e+04_rb,1.7563e+04_rb,1.1709e+04_rb,5.8547e+03_rb,1.2060e+01_rb/)\n      kbo(:, 5,54,11) = (/ &\n     &2.8828e+04_rb,2.1621e+04_rb,1.4414e+04_rb,7.2075e+03_rb,1.2739e+01_rb/)\n      kbo(:, 1,55,11) = (/ &\n     &1.0209e+04_rb,7.6567e+03_rb,5.1047e+03_rb,2.5527e+03_rb,8.5323e+00_rb/)\n      kbo(:, 2,55,11) = (/ &\n     &1.3095e+04_rb,9.8211e+03_rb,6.5477e+03_rb,3.2742e+03_rb,9.7667e+00_rb/)\n      kbo(:, 3,55,11) = (/ &\n     &1.6780e+04_rb,1.2585e+04_rb,8.3901e+03_rb,4.1954e+03_rb,1.0760e+01_rb/)\n      kbo(:, 4,55,11) = (/ &\n     &2.1308e+04_rb,1.5981e+04_rb,1.0654e+04_rb,5.3275e+03_rb,1.1787e+01_rb/)\n      kbo(:, 5,55,11) = (/ &\n     &2.6526e+04_rb,1.9895e+04_rb,1.3264e+04_rb,6.6321e+03_rb,1.2490e+01_rb/)\n      kbo(:, 1,56,11) = (/ &\n     &8.9242e+03_rb,6.6933e+03_rb,4.4624e+03_rb,2.2315e+03_rb,8.1192e+00_rb/)\n      kbo(:, 2,56,11) = (/ &\n     &1.1623e+04_rb,8.7170e+03_rb,5.8115e+03_rb,2.9061e+03_rb,9.3346e+00_rb/)\n      kbo(:, 3,56,11) = (/ &\n     &1.5096e+04_rb,1.1322e+04_rb,7.5482e+03_rb,3.7744e+03_rb,1.0408e+01_rb/)\n      kbo(:, 4,56,11) = (/ &\n     &1.9354e+04_rb,1.4515e+04_rb,9.6771e+03_rb,4.8388e+03_rb,1.1396e+01_rb/)\n      kbo(:, 5,56,11) = (/ &\n     &2.4338e+04_rb,1.8253e+04_rb,1.2169e+04_rb,6.0847e+03_rb,1.2212e+01_rb/)\n      kbo(:, 1,57,11) = (/ &\n     &7.7622e+03_rb,5.8218e+03_rb,3.8814e+03_rb,1.9410e+03_rb,7.7106e+00_rb/)\n      kbo(:, 2,57,11) = (/ &\n     &1.0290e+04_rb,7.7178e+03_rb,5.1454e+03_rb,2.5730e+03_rb,8.9363e+00_rb/)\n      kbo(:, 3,57,11) = (/ &\n     &1.3552e+04_rb,1.0164e+04_rb,6.7760e+03_rb,3.3882e+03_rb,1.0051e+01_rb/)\n      kbo(:, 4,57,11) = (/ &\n     &1.7543e+04_rb,1.3157e+04_rb,8.7715e+03_rb,4.3860e+03_rb,1.0990e+01_rb/)\n      kbo(:, 5,57,11) = (/ &\n     &2.2284e+04_rb,1.6713e+04_rb,1.1142e+04_rb,5.5714e+03_rb,1.1934e+01_rb/)\n      kbo(:, 1,58,11) = (/ &\n     &1.7767e+03_rb,1.6290e+03_rb,1.3968e+03_rb,9.7855e+02_rb,7.2858e+00_rb/)\n      kbo(:, 2,58,11) = (/ &\n     &2.4068e+03_rb,2.2067e+03_rb,1.8922e+03_rb,1.3254e+03_rb,8.5609e+00_rb/)\n      kbo(:, 3,58,11) = (/ &\n     &3.2122e+03_rb,2.9452e+03_rb,2.5253e+03_rb,1.7688e+03_rb,9.6597e+00_rb/)\n      kbo(:, 4,58,11) = (/ &\n     &4.2027e+03_rb,3.8533e+03_rb,3.3039e+03_rb,2.3142e+03_rb,1.0637e+01_rb/)\n      kbo(:, 5,58,11) = (/ &\n     &5.3882e+03_rb,4.9402e+03_rb,4.2359e+03_rb,2.9669e+03_rb,1.1542e+01_rb/)\n      kbo(:, 1,59,11) = (/ &\n     &1.9233e+03_rb,1.6794e+03_rb,1.3397e+03_rb,8.3393e+02_rb,7.1275e+00_rb/)\n      kbo(:, 2,59,11) = (/ &\n     &2.6585e+03_rb,2.3214e+03_rb,1.8518e+03_rb,1.1525e+03_rb,8.4302e+00_rb/)\n      kbo(:, 3,59,11) = (/ &\n     &3.5898e+03_rb,3.1345e+03_rb,2.5004e+03_rb,1.5561e+03_rb,9.5360e+00_rb/)\n      kbo(:, 4,59,11) = (/ &\n     &4.7292e+03_rb,4.1294e+03_rb,3.2940e+03_rb,2.0499e+03_rb,1.0472e+01_rb/)\n      kbo(:, 5,59,11) = (/ &\n     &6.0902e+03_rb,5.3178e+03_rb,4.2419e+03_rb,2.6398e+03_rb,1.1150e+01_rb/)\n      kbo(:, 1,13,12) = (/ &\n     &2.7240e+05_rb,2.0430e+05_rb,1.3620e+05_rb,6.8101e+04_rb,4.4161e+00_rb/)\n      kbo(:, 2,13,12) = (/ &\n     &2.7176e+05_rb,2.0382e+05_rb,1.3588e+05_rb,6.7942e+04_rb,4.2840e+00_rb/)\n      kbo(:, 3,13,12) = (/ &\n     &2.7001e+05_rb,2.0251e+05_rb,1.3501e+05_rb,6.7503e+04_rb,4.1173e+00_rb/)\n      kbo(:, 4,13,12) = (/ &\n     &2.6763e+05_rb,2.0073e+05_rb,1.3382e+05_rb,6.6909e+04_rb,3.9336e+00_rb/)\n      kbo(:, 5,13,12) = (/ &\n     &2.6442e+05_rb,1.9831e+05_rb,1.3221e+05_rb,6.6105e+04_rb,3.6961e+00_rb/)\n      kbo(:, 1,14,12) = (/ &\n     &1.8113e+05_rb,1.3585e+05_rb,9.0565e+04_rb,4.5283e+04_rb,4.8454e+00_rb/)\n      kbo(:, 2,14,12) = (/ &\n     &1.8030e+05_rb,1.3523e+05_rb,9.0150e+04_rb,4.5075e+04_rb,4.6873e+00_rb/)\n      kbo(:, 3,14,12) = (/ &\n     &1.7856e+05_rb,1.3392e+05_rb,8.9279e+04_rb,4.4640e+04_rb,4.6210e+00_rb/)\n      kbo(:, 4,14,12) = (/ &\n     &1.7661e+05_rb,1.3246e+05_rb,8.8303e+04_rb,4.4152e+04_rb,4.4506e+00_rb/)\n      kbo(:, 5,14,12) = (/ &\n     &1.7414e+05_rb,1.3060e+05_rb,8.7069e+04_rb,4.3535e+04_rb,4.3231e+00_rb/)\n      kbo(:, 1,15,12) = (/ &\n     &1.2085e+05_rb,9.0635e+04_rb,6.0424e+04_rb,3.0213e+04_rb,5.3476e+00_rb/)\n      kbo(:, 2,15,12) = (/ &\n     &1.1987e+05_rb,8.9903e+04_rb,5.9936e+04_rb,2.9969e+04_rb,5.2285e+00_rb/)\n      kbo(:, 3,15,12) = (/ &\n     &1.1863e+05_rb,8.8976e+04_rb,5.9318e+04_rb,2.9660e+04_rb,5.0918e+00_rb/)\n      kbo(:, 4,15,12) = (/ &\n     &1.1686e+05_rb,8.7649e+04_rb,5.8433e+04_rb,2.9217e+04_rb,4.9903e+00_rb/)\n      kbo(:, 5,15,12) = (/ &\n     &1.1485e+05_rb,8.6139e+04_rb,5.7427e+04_rb,2.8714e+04_rb,4.7856e+00_rb/)\n      kbo(:, 1,16,12) = (/ &\n     &9.4371e+04_rb,7.0779e+04_rb,4.7186e+04_rb,2.3593e+04_rb,5.9193e+00_rb/)\n      kbo(:, 2,16,12) = (/ &\n     &9.3237e+04_rb,6.9928e+04_rb,4.6619e+04_rb,2.3310e+04_rb,5.7778e+00_rb/)\n      kbo(:, 3,16,12) = (/ &\n     &9.1868e+04_rb,6.8901e+04_rb,4.5935e+04_rb,2.2968e+04_rb,5.6214e+00_rb/)\n      kbo(:, 4,16,12) = (/ &\n     &9.0372e+04_rb,6.7780e+04_rb,4.5187e+04_rb,2.2594e+04_rb,5.5103e+00_rb/)\n      kbo(:, 5,16,12) = (/ &\n     &8.8699e+04_rb,6.6525e+04_rb,4.4350e+04_rb,2.2176e+04_rb,5.3472e+00_rb/)\n      kbo(:, 1,17,12) = (/ &\n     &7.4737e+04_rb,5.6053e+04_rb,3.7369e+04_rb,1.8685e+04_rb,6.5296e+00_rb/)\n      kbo(:, 2,17,12) = (/ &\n     &7.3678e+04_rb,5.5259e+04_rb,3.6840e+04_rb,1.8420e+04_rb,6.3899e+00_rb/)\n      kbo(:, 3,17,12) = (/ &\n     &7.2463e+04_rb,5.4347e+04_rb,3.6232e+04_rb,1.8116e+04_rb,6.2234e+00_rb/)\n      kbo(:, 4,17,12) = (/ &\n     &7.1178e+04_rb,5.3383e+04_rb,3.5589e+04_rb,1.7795e+04_rb,6.1262e+00_rb/)\n      kbo(:, 5,17,12) = (/ &\n     &6.9846e+04_rb,5.2385e+04_rb,3.4923e+04_rb,1.7462e+04_rb,6.0038e+00_rb/)\n      kbo(:, 1,18,12) = (/ &\n     &5.9561e+04_rb,4.4671e+04_rb,2.9781e+04_rb,1.4891e+04_rb,7.2106e+00_rb/)\n      kbo(:, 2,18,12) = (/ &\n     &5.8573e+04_rb,4.3930e+04_rb,2.9287e+04_rb,1.4644e+04_rb,7.0772e+00_rb/)\n      kbo(:, 3,18,12) = (/ &\n     &5.7514e+04_rb,4.3136e+04_rb,2.8757e+04_rb,1.4379e+04_rb,6.9067e+00_rb/)\n      kbo(:, 4,18,12) = (/ &\n     &5.6474e+04_rb,4.2356e+04_rb,2.8238e+04_rb,1.4119e+04_rb,6.7942e+00_rb/)\n      kbo(:, 5,18,12) = (/ &\n     &5.5403e+04_rb,4.1552e+04_rb,2.7702e+04_rb,1.3851e+04_rb,6.6477e+00_rb/)\n      kbo(:, 1,19,12) = (/ &\n     &4.5689e+04_rb,3.4267e+04_rb,2.2845e+04_rb,1.1423e+04_rb,7.9750e+00_rb/)\n      kbo(:, 2,19,12) = (/ &\n     &4.4876e+04_rb,3.3657e+04_rb,2.2438e+04_rb,1.1220e+04_rb,7.8278e+00_rb/)\n      kbo(:, 3,19,12) = (/ &\n     &4.4040e+04_rb,3.3030e+04_rb,2.2021e+04_rb,1.1011e+04_rb,7.6237e+00_rb/)\n      kbo(:, 4,19,12) = (/ &\n     &4.3227e+04_rb,3.2420e+04_rb,2.1614e+04_rb,1.0807e+04_rb,7.5070e+00_rb/)\n      kbo(:, 5,19,12) = (/ &\n     &4.2374e+04_rb,3.1781e+04_rb,2.1187e+04_rb,1.0594e+04_rb,7.3430e+00_rb/)\n      kbo(:, 1,20,12) = (/ &\n     &3.7246e+04_rb,2.7935e+04_rb,1.8623e+04_rb,9.3122e+03_rb,8.8153e+00_rb/)\n      kbo(:, 2,20,12) = (/ &\n     &3.6550e+04_rb,2.7413e+04_rb,1.8276e+04_rb,9.1383e+03_rb,8.6532e+00_rb/)\n      kbo(:, 3,20,12) = (/ &\n     &3.5840e+04_rb,2.6880e+04_rb,1.7920e+04_rb,8.9607e+03_rb,8.4391e+00_rb/)\n      kbo(:, 4,20,12) = (/ &\n     &3.5149e+04_rb,2.6362e+04_rb,1.7575e+04_rb,8.7878e+03_rb,8.2995e+00_rb/)\n      kbo(:, 5,20,12) = (/ &\n     &3.4405e+04_rb,2.5804e+04_rb,1.7203e+04_rb,8.6018e+03_rb,8.1167e+00_rb/)\n      kbo(:, 1,21,12) = (/ &\n     &3.0709e+04_rb,2.3032e+04_rb,1.5355e+04_rb,7.6780e+03_rb,9.7372e+00_rb/)\n      kbo(:, 2,21,12) = (/ &\n     &3.0108e+04_rb,2.2581e+04_rb,1.5055e+04_rb,7.5277e+03_rb,9.5645e+00_rb/)\n      kbo(:, 3,21,12) = (/ &\n     &2.9509e+04_rb,2.2132e+04_rb,1.4755e+04_rb,7.3780e+03_rb,9.3267e+00_rb/)\n      kbo(:, 4,21,12) = (/ &\n     &2.8892e+04_rb,2.1670e+04_rb,1.4447e+04_rb,7.2238e+03_rb,9.1690e+00_rb/)\n      kbo(:, 5,21,12) = (/ &\n     &2.8241e+04_rb,2.1181e+04_rb,1.4121e+04_rb,7.0607e+03_rb,8.9671e+00_rb/)\n      kbo(:, 1,22,12) = (/ &\n     &2.5484e+04_rb,1.9113e+04_rb,1.2742e+04_rb,6.3717e+03_rb,1.0681e+01_rb/)\n      kbo(:, 2,22,12) = (/ &\n     &2.4964e+04_rb,1.8723e+04_rb,1.2483e+04_rb,6.2417e+03_rb,1.0497e+01_rb/)\n      kbo(:, 3,22,12) = (/ &\n     &2.4423e+04_rb,1.8317e+04_rb,1.2212e+04_rb,6.1064e+03_rb,1.0234e+01_rb/)\n      kbo(:, 4,22,12) = (/ &\n     &2.3869e+04_rb,1.7902e+04_rb,1.1935e+04_rb,5.9678e+03_rb,1.0059e+01_rb/)\n      kbo(:, 5,22,12) = (/ &\n     &2.3286e+04_rb,1.7465e+04_rb,1.1643e+04_rb,5.8221e+03_rb,9.8315e+00_rb/)\n      kbo(:, 1,23,12) = (/ &\n     &2.0918e+04_rb,1.5688e+04_rb,1.0459e+04_rb,5.2302e+03_rb,1.1614e+01_rb/)\n      kbo(:, 2,23,12) = (/ &\n     &2.0451e+04_rb,1.5339e+04_rb,1.0226e+04_rb,5.1135e+03_rb,1.1417e+01_rb/)\n      kbo(:, 3,23,12) = (/ &\n     &1.9969e+04_rb,1.4977e+04_rb,9.9848e+03_rb,4.9928e+03_rb,1.1125e+01_rb/)\n      kbo(:, 4,23,12) = (/ &\n     &1.9481e+04_rb,1.4611e+04_rb,9.7407e+03_rb,4.8708e+03_rb,1.0942e+01_rb/)\n      kbo(:, 5,23,12) = (/ &\n     &1.8998e+04_rb,1.4249e+04_rb,9.4994e+03_rb,4.7501e+03_rb,1.0699e+01_rb/)\n      kbo(:, 1,24,12) = (/ &\n     &1.6828e+04_rb,1.2621e+04_rb,8.4145e+03_rb,4.2078e+03_rb,1.2522e+01_rb/)\n      kbo(:, 2,24,12) = (/ &\n     &1.6415e+04_rb,1.2311e+04_rb,8.2079e+03_rb,4.1044e+03_rb,1.2299e+01_rb/)\n      kbo(:, 3,24,12) = (/ &\n     &1.6005e+04_rb,1.2004e+04_rb,8.0027e+03_rb,4.0018e+03_rb,1.2004e+01_rb/)\n      kbo(:, 4,24,12) = (/ &\n     &1.5632e+04_rb,1.1724e+04_rb,7.8164e+03_rb,3.9086e+03_rb,1.1796e+01_rb/)\n      kbo(:, 5,24,12) = (/ &\n     &1.5350e+04_rb,1.1513e+04_rb,7.6755e+03_rb,3.8381e+03_rb,1.1532e+01_rb/)\n      kbo(:, 1,25,12) = (/ &\n     &1.3517e+04_rb,1.0138e+04_rb,6.7590e+03_rb,3.3800e+03_rb,1.3378e+01_rb/)\n      kbo(:, 2,25,12) = (/ &\n     &1.3176e+04_rb,9.8826e+03_rb,6.5887e+03_rb,3.2948e+03_rb,1.3150e+01_rb/)\n      kbo(:, 3,25,12) = (/ &\n     &1.2900e+04_rb,9.6753e+03_rb,6.4505e+03_rb,3.2257e+03_rb,1.2858e+01_rb/)\n      kbo(:, 4,25,12) = (/ &\n     &1.2719e+04_rb,9.5392e+03_rb,6.3597e+03_rb,3.1803e+03_rb,1.2628e+01_rb/)\n      kbo(:, 5,25,12) = (/ &\n     &1.2623e+04_rb,9.4672e+03_rb,6.3117e+03_rb,3.1562e+03_rb,1.2342e+01_rb/)\n      kbo(:, 1,26,12) = (/ &\n     &1.0917e+04_rb,8.1877e+03_rb,5.4588e+03_rb,2.7299e+03_rb,1.4213e+01_rb/)\n      kbo(:, 2,26,12) = (/ &\n     &1.0711e+04_rb,8.0332e+03_rb,5.3557e+03_rb,2.6783e+03_rb,1.3979e+01_rb/)\n      kbo(:, 3,26,12) = (/ &\n     &1.0602e+04_rb,7.9514e+03_rb,5.3012e+03_rb,2.6510e+03_rb,1.3677e+01_rb/)\n      kbo(:, 4,26,12) = (/ &\n     &1.0604e+04_rb,7.9535e+03_rb,5.3026e+03_rb,2.6517e+03_rb,1.3410e+01_rb/)\n      kbo(:, 5,26,12) = (/ &\n     &1.0730e+04_rb,8.0477e+03_rb,5.3654e+03_rb,2.6831e+03_rb,1.3099e+01_rb/)\n      kbo(:, 1,27,12) = (/ &\n     &9.1749e+03_rb,6.8814e+03_rb,4.5879e+03_rb,2.2944e+03_rb,1.5000e+01_rb/)\n      kbo(:, 2,27,12) = (/ &\n     &9.1157e+03_rb,6.8370e+03_rb,4.5583e+03_rb,2.2796e+03_rb,1.4706e+01_rb/)\n      kbo(:, 3,27,12) = (/ &\n     &9.1873e+03_rb,6.8907e+03_rb,4.5941e+03_rb,2.2975e+03_rb,1.4431e+01_rb/)\n      kbo(:, 4,27,12) = (/ &\n     &9.3840e+03_rb,7.0382e+03_rb,4.6924e+03_rb,2.3467e+03_rb,1.4137e+01_rb/)\n      kbo(:, 5,27,12) = (/ &\n     &9.6488e+03_rb,7.2368e+03_rb,4.8249e+03_rb,2.4129e+03_rb,1.3775e+01_rb/)\n      kbo(:, 1,28,12) = (/ &\n     &8.0307e+03_rb,6.0232e+03_rb,4.0158e+03_rb,2.0083e+03_rb,1.5711e+01_rb/)\n      kbo(:, 2,28,12) = (/ &\n     &8.1446e+03_rb,6.1087e+03_rb,4.0727e+03_rb,2.0368e+03_rb,1.5384e+01_rb/)\n      kbo(:, 3,28,12) = (/ &\n     &8.3784e+03_rb,6.2841e+03_rb,4.1897e+03_rb,2.0953e+03_rb,1.5123e+01_rb/)\n      kbo(:, 4,28,12) = (/ &\n     &8.6648e+03_rb,6.4989e+03_rb,4.3329e+03_rb,2.1669e+03_rb,1.4791e+01_rb/)\n      kbo(:, 5,28,12) = (/ &\n     &9.0065e+03_rb,6.7551e+03_rb,4.5037e+03_rb,2.2523e+03_rb,1.4343e+01_rb/)\n      kbo(:, 1,29,12) = (/ &\n     &7.6471e+03_rb,5.7356e+03_rb,3.8240e+03_rb,1.9124e+03_rb,1.6341e+01_rb/)\n      kbo(:, 2,29,12) = (/ &\n     &7.9071e+03_rb,5.9306e+03_rb,3.9540e+03_rb,1.9775e+03_rb,1.6013e+01_rb/)\n      kbo(:, 3,29,12) = (/ &\n     &8.2292e+03_rb,6.1721e+03_rb,4.1151e+03_rb,2.0580e+03_rb,1.5732e+01_rb/)\n      kbo(:, 4,29,12) = (/ &\n     &8.6240e+03_rb,6.4682e+03_rb,4.3125e+03_rb,2.1567e+03_rb,1.5372e+01_rb/)\n      kbo(:, 5,29,12) = (/ &\n     &9.0598e+03_rb,6.7951e+03_rb,4.5304e+03_rb,2.2657e+03_rb,1.4767e+01_rb/)\n      kbo(:, 1,30,12) = (/ &\n     &7.6323e+03_rb,5.7245e+03_rb,3.8166e+03_rb,1.9088e+03_rb,1.6832e+01_rb/)\n      kbo(:, 2,30,12) = (/ &\n     &7.9856e+03_rb,5.9894e+03_rb,3.9933e+03_rb,1.9972e+03_rb,1.6592e+01_rb/)\n      kbo(:, 3,30,12) = (/ &\n     &8.4256e+03_rb,6.3195e+03_rb,4.2133e+03_rb,2.1072e+03_rb,1.6260e+01_rb/)\n      kbo(:, 4,30,12) = (/ &\n     &8.9027e+03_rb,6.6772e+03_rb,4.4518e+03_rb,2.2264e+03_rb,1.5767e+01_rb/)\n      kbo(:, 5,30,12) = (/ &\n     &9.4138e+03_rb,7.0606e+03_rb,4.7073e+03_rb,2.3541e+03_rb,1.5140e+01_rb/)\n      kbo(:, 1,31,12) = (/ &\n     &8.1459e+03_rb,6.1097e+03_rb,4.0735e+03_rb,2.0373e+03_rb,1.7334e+01_rb/)\n      kbo(:, 2,31,12) = (/ &\n     &8.6243e+03_rb,6.4685e+03_rb,4.3127e+03_rb,2.1569e+03_rb,1.7064e+01_rb/)\n      kbo(:, 3,31,12) = (/ &\n     &9.1518e+03_rb,6.8642e+03_rb,4.5764e+03_rb,2.2887e+03_rb,1.6609e+01_rb/)\n      kbo(:, 4,31,12) = (/ &\n     &9.7356e+03_rb,7.3019e+03_rb,4.8683e+03_rb,2.4346e+03_rb,1.5848e+01_rb/)\n      kbo(:, 5,31,12) = (/ &\n     &1.0365e+04_rb,7.7736e+03_rb,5.1827e+03_rb,2.5918e+03_rb,1.5376e+01_rb/)\n      kbo(:, 1,32,12) = (/ &\n     &8.9083e+03_rb,6.6815e+03_rb,4.4547e+03_rb,2.2279e+03_rb,1.7730e+01_rb/)\n      kbo(:, 2,32,12) = (/ &\n     &9.4979e+03_rb,7.1237e+03_rb,4.7495e+03_rb,2.3753e+03_rb,1.7331e+01_rb/)\n      kbo(:, 3,32,12) = (/ &\n     &1.0147e+04_rb,7.6108e+03_rb,5.0742e+03_rb,2.5376e+03_rb,1.6589e+01_rb/)\n      kbo(:, 4,32,12) = (/ &\n     &1.0867e+04_rb,8.1507e+03_rb,5.4341e+03_rb,2.7175e+03_rb,1.6156e+01_rb/)\n      kbo(:, 5,32,12) = (/ &\n     &1.1646e+04_rb,8.7350e+03_rb,5.8236e+03_rb,2.9122e+03_rb,1.5848e+01_rb/)\n      kbo(:, 1,33,12) = (/ &\n     &9.9979e+03_rb,7.4987e+03_rb,4.9995e+03_rb,2.5003e+03_rb,1.7989e+01_rb/)\n      kbo(:, 2,33,12) = (/ &\n     &1.0743e+04_rb,8.0578e+03_rb,5.3722e+03_rb,2.6866e+03_rb,1.7365e+01_rb/)\n      kbo(:, 3,33,12) = (/ &\n     &1.1568e+04_rb,8.6761e+03_rb,5.7844e+03_rb,2.8926e+03_rb,1.6901e+01_rb/)\n      kbo(:, 4,33,12) = (/ &\n     &1.2466e+04_rb,9.3497e+03_rb,6.2334e+03_rb,3.1171e+03_rb,1.6592e+01_rb/)\n      kbo(:, 5,33,12) = (/ &\n     &1.3441e+04_rb,1.0081e+04_rb,6.7208e+03_rb,3.3608e+03_rb,1.6160e+01_rb/)\n      kbo(:, 1,34,12) = (/ &\n     &1.1005e+04_rb,8.2543e+03_rb,5.5032e+03_rb,2.7521e+03_rb,1.8094e+01_rb/)\n      kbo(:, 2,34,12) = (/ &\n     &1.1925e+04_rb,8.9436e+03_rb,5.9627e+03_rb,2.9818e+03_rb,1.7503e+01_rb/)\n      kbo(:, 3,34,12) = (/ &\n     &1.2929e+04_rb,9.6970e+03_rb,6.4650e+03_rb,3.2329e+03_rb,1.7258e+01_rb/)\n      kbo(:, 4,34,12) = (/ &\n     &1.4013e+04_rb,1.0510e+04_rb,7.0067e+03_rb,3.5037e+03_rb,1.6964e+01_rb/)\n      kbo(:, 5,34,12) = (/ &\n     &1.5204e+04_rb,1.1403e+04_rb,7.6022e+03_rb,3.8015e+03_rb,1.6506e+01_rb/)\n      kbo(:, 1,35,12) = (/ &\n     &1.2135e+04_rb,9.1016e+03_rb,6.0680e+03_rb,3.0345e+03_rb,1.8232e+01_rb/)\n      kbo(:, 2,35,12) = (/ &\n     &1.3244e+04_rb,9.9331e+03_rb,6.6223e+03_rb,3.3116e+03_rb,1.7908e+01_rb/)\n      kbo(:, 3,35,12) = (/ &\n     &1.4457e+04_rb,1.0843e+04_rb,7.2288e+03_rb,3.6148e+03_rb,1.7659e+01_rb/)\n      kbo(:, 4,35,12) = (/ &\n     &1.5776e+04_rb,1.1833e+04_rb,7.8886e+03_rb,3.9447e+03_rb,1.7305e+01_rb/)\n      kbo(:, 5,35,12) = (/ &\n     &1.7218e+04_rb,1.2914e+04_rb,8.6094e+03_rb,4.3051e+03_rb,1.6889e+01_rb/)\n      kbo(:, 1,36,12) = (/ &\n     &1.3247e+04_rb,9.9356e+03_rb,6.6240e+03_rb,3.3125e+03_rb,1.8488e+01_rb/)\n      kbo(:, 2,36,12) = (/ &\n     &1.4560e+04_rb,1.0920e+04_rb,7.2802e+03_rb,3.6405e+03_rb,1.8270e+01_rb/)\n      kbo(:, 3,36,12) = (/ &\n     &1.6016e+04_rb,1.2012e+04_rb,8.0085e+03_rb,4.0046e+03_rb,1.8063e+01_rb/)\n      kbo(:, 4,36,12) = (/ &\n     &1.7602e+04_rb,1.3202e+04_rb,8.8012e+03_rb,4.4010e+03_rb,1.7553e+01_rb/)\n      kbo(:, 5,36,12) = (/ &\n     &1.9328e+04_rb,1.4496e+04_rb,9.6641e+03_rb,4.8324e+03_rb,1.7048e+01_rb/)\n      kbo(:, 1,37,12) = (/ &\n     &1.3952e+04_rb,1.0464e+04_rb,6.9765e+03_rb,3.4887e+03_rb,1.8801e+01_rb/)\n      kbo(:, 2,37,12) = (/ &\n     &1.5457e+04_rb,1.1593e+04_rb,7.7287e+03_rb,3.8648e+03_rb,1.8637e+01_rb/)\n      kbo(:, 3,37,12) = (/ &\n     &1.7141e+04_rb,1.2856e+04_rb,8.5707e+03_rb,4.2857e+03_rb,1.8420e+01_rb/)\n      kbo(:, 4,37,12) = (/ &\n     &1.8985e+04_rb,1.4239e+04_rb,9.4928e+03_rb,4.7467e+03_rb,1.7805e+01_rb/)\n      kbo(:, 5,37,12) = (/ &\n     &2.0966e+04_rb,1.5724e+04_rb,1.0483e+04_rb,5.2419e+03_rb,1.7343e+01_rb/)\n      kbo(:, 1,38,12) = (/ &\n     &1.4936e+04_rb,1.1202e+04_rb,7.4684e+03_rb,3.7346e+03_rb,1.9067e+01_rb/)\n      kbo(:, 2,38,12) = (/ &\n     &1.6693e+04_rb,1.2520e+04_rb,8.3467e+03_rb,4.1737e+03_rb,1.8968e+01_rb/)\n      kbo(:, 3,38,12) = (/ &\n     &1.8667e+04_rb,1.4000e+04_rb,9.3337e+03_rb,4.6672e+03_rb,1.8667e+01_rb/)\n      kbo(:, 4,38,12) = (/ &\n     &2.0838e+04_rb,1.5628e+04_rb,1.0419e+04_rb,5.2098e+03_rb,1.8090e+01_rb/)\n      kbo(:, 5,38,12) = (/ &\n     &2.3152e+04_rb,1.7364e+04_rb,1.1576e+04_rb,5.7883e+03_rb,1.7634e+01_rb/)\n      kbo(:, 1,39,12) = (/ &\n     &1.6411e+04_rb,1.2309e+04_rb,8.2062e+03_rb,4.1035e+03_rb,1.9362e+01_rb/)\n      kbo(:, 2,39,12) = (/ &\n     &1.8520e+04_rb,1.3890e+04_rb,9.2603e+03_rb,4.6305e+03_rb,1.9256e+01_rb/)\n      kbo(:, 3,39,12) = (/ &\n     &2.0878e+04_rb,1.5659e+04_rb,1.0439e+04_rb,5.2200e+03_rb,1.8842e+01_rb/)\n      kbo(:, 4,39,12) = (/ &\n     &2.3481e+04_rb,1.7611e+04_rb,1.1741e+04_rb,5.8709e+03_rb,1.8427e+01_rb/)\n      kbo(:, 5,39,12) = (/ &\n     &2.6258e+04_rb,1.9693e+04_rb,1.3129e+04_rb,6.5649e+03_rb,1.8005e+01_rb/)\n      kbo(:, 1,40,12) = (/ &\n     &1.6779e+04_rb,1.2584e+04_rb,8.3898e+03_rb,4.1952e+03_rb,1.9573e+01_rb/)\n      kbo(:, 2,40,12) = (/ &\n     &1.9118e+04_rb,1.4339e+04_rb,9.5593e+03_rb,4.7800e+03_rb,1.9496e+01_rb/)\n      kbo(:, 3,40,12) = (/ &\n     &2.1747e+04_rb,1.6310e+04_rb,1.0874e+04_rb,5.4372e+03_rb,1.9078e+01_rb/)\n      kbo(:, 4,40,12) = (/ &\n     &2.4641e+04_rb,1.8481e+04_rb,1.2321e+04_rb,6.1605e+03_rb,1.8680e+01_rb/)\n      kbo(:, 5,40,12) = (/ &\n     &2.7741e+04_rb,2.0806e+04_rb,1.3871e+04_rb,6.9356e+03_rb,1.8305e+01_rb/)\n      kbo(:, 1,41,12) = (/ &\n     &1.7108e+04_rb,1.2831e+04_rb,8.5543e+03_rb,4.2775e+03_rb,1.9752e+01_rb/)\n      kbo(:, 2,41,12) = (/ &\n     &1.9696e+04_rb,1.4772e+04_rb,9.8483e+03_rb,4.9245e+03_rb,1.9665e+01_rb/)\n      kbo(:, 3,41,12) = (/ &\n     &2.2603e+04_rb,1.6953e+04_rb,1.1302e+04_rb,5.6514e+03_rb,1.9347e+01_rb/)\n      kbo(:, 4,41,12) = (/ &\n     &2.5797e+04_rb,1.9348e+04_rb,1.2899e+04_rb,6.4497e+03_rb,1.8925e+01_rb/)\n      kbo(:, 5,41,12) = (/ &\n     &2.9237e+04_rb,2.1928e+04_rb,1.4619e+04_rb,7.3098e+03_rb,1.8587e+01_rb/)\n      kbo(:, 1,42,12) = (/ &\n     &1.7650e+04_rb,1.3238e+04_rb,8.8253e+03_rb,4.4130e+03_rb,1.9913e+01_rb/)\n      kbo(:, 2,42,12) = (/ &\n     &2.0552e+04_rb,1.5414e+04_rb,1.0276e+04_rb,5.1385e+03_rb,1.9817e+01_rb/)\n      kbo(:, 3,42,12) = (/ &\n     &2.3780e+04_rb,1.7835e+04_rb,1.1890e+04_rb,5.9455e+03_rb,1.9487e+01_rb/)\n      kbo(:, 4,42,12) = (/ &\n     &2.7331e+04_rb,2.0498e+04_rb,1.3666e+04_rb,6.8331e+03_rb,1.9141e+01_rb/)\n      kbo(:, 5,42,12) = (/ &\n     &3.1174e+04_rb,2.3380e+04_rb,1.5587e+04_rb,7.7938e+03_rb,1.8842e+01_rb/)\n      kbo(:, 1,43,12) = (/ &\n     &1.8226e+04_rb,1.3670e+04_rb,9.1135e+03_rb,4.5571e+03_rb,2.0107e+01_rb/)\n      kbo(:, 2,43,12) = (/ &\n     &2.1466e+04_rb,1.6100e+04_rb,1.0734e+04_rb,5.3672e+03_rb,1.9969e+01_rb/)\n      kbo(:, 3,43,12) = (/ &\n     &2.5067e+04_rb,1.8800e+04_rb,1.2534e+04_rb,6.2672e+03_rb,1.9715e+01_rb/)\n      kbo(:, 4,43,12) = (/ &\n     &2.9022e+04_rb,2.1767e+04_rb,1.4512e+04_rb,7.2561e+03_rb,1.9331e+01_rb/)\n      kbo(:, 5,43,12) = (/ &\n     &3.3314e+04_rb,2.4986e+04_rb,1.6658e+04_rb,8.3291e+03_rb,1.9158e+01_rb/)\n      kbo(:, 1,44,12) = (/ &\n     &1.9005e+04_rb,1.4254e+04_rb,9.5029e+03_rb,4.7518e+03_rb,2.0271e+01_rb/)\n      kbo(:, 2,44,12) = (/ &\n     &2.2627e+04_rb,1.6970e+04_rb,1.1314e+04_rb,5.6570e+03_rb,2.0045e+01_rb/)\n      kbo(:, 3,44,12) = (/ &\n     &2.6689e+04_rb,2.0017e+04_rb,1.3345e+04_rb,6.6725e+03_rb,1.9909e+01_rb/)\n      kbo(:, 4,44,12) = (/ &\n     &3.1132e+04_rb,2.3349e+04_rb,1.5566e+04_rb,7.7832e+03_rb,1.9596e+01_rb/)\n      kbo(:, 5,44,12) = (/ &\n     &3.5955e+04_rb,2.6966e+04_rb,1.7978e+04_rb,8.9890e+03_rb,1.9454e+01_rb/)\n      kbo(:, 1,45,12) = (/ &\n     &2.0230e+04_rb,1.5173e+04_rb,1.0115e+04_rb,5.0580e+03_rb,2.0360e+01_rb/)\n      kbo(:, 2,45,12) = (/ &\n     &2.4315e+04_rb,1.8237e+04_rb,1.2158e+04_rb,6.0793e+03_rb,2.0061e+01_rb/)\n      kbo(:, 3,45,12) = (/ &\n     &2.8985e+04_rb,2.1739e+04_rb,1.4493e+04_rb,7.2467e+03_rb,2.0123e+01_rb/)\n      kbo(:, 4,45,12) = (/ &\n     &3.4069e+04_rb,2.5552e+04_rb,1.7035e+04_rb,8.5176e+03_rb,1.9825e+01_rb/)\n      kbo(:, 5,45,12) = (/ &\n     &3.9583e+04_rb,2.9687e+04_rb,1.9792e+04_rb,9.8961e+03_rb,1.9819e+01_rb/)\n      kbo(:, 1,46,12) = (/ &\n     &2.1692e+04_rb,1.6269e+04_rb,1.0846e+04_rb,5.4233e+03_rb,2.0397e+01_rb/)\n      kbo(:, 2,46,12) = (/ &\n     &2.6275e+04_rb,1.9706e+04_rb,1.3138e+04_rb,6.5691e+03_rb,2.0140e+01_rb/)\n      kbo(:, 3,46,12) = (/ &\n     &3.1629e+04_rb,2.3722e+04_rb,1.5815e+04_rb,7.9076e+03_rb,2.0308e+01_rb/)\n      kbo(:, 4,46,12) = (/ &\n     &3.7518e+04_rb,2.8139e+04_rb,1.8759e+04_rb,9.3799e+03_rb,2.0045e+01_rb/)\n      kbo(:, 5,46,12) = (/ &\n     &4.3856e+04_rb,3.2892e+04_rb,2.1928e+04_rb,1.0964e+04_rb,2.0102e+01_rb/)\n      kbo(:, 1,47,12) = (/ &\n     &2.2886e+04_rb,1.7165e+04_rb,1.1443e+04_rb,5.7220e+03_rb,2.0376e+01_rb/)\n      kbo(:, 2,47,12) = (/ &\n     &2.7889e+04_rb,2.0917e+04_rb,1.3945e+04_rb,6.9727e+03_rb,2.0171e+01_rb/)\n      kbo(:, 3,47,12) = (/ &\n     &3.3867e+04_rb,2.5401e+04_rb,1.6934e+04_rb,8.4673e+03_rb,2.0409e+01_rb/)\n      kbo(:, 4,47,12) = (/ &\n     &4.0597e+04_rb,3.0448e+04_rb,2.0299e+04_rb,1.0150e+04_rb,2.0291e+01_rb/)\n      kbo(:, 5,47,12) = (/ &\n     &4.7822e+04_rb,3.5866e+04_rb,2.3911e+04_rb,1.1956e+04_rb,2.0384e+01_rb/)\n      kbo(:, 1,48,12) = (/ &\n     &2.4867e+04_rb,1.8651e+04_rb,1.2434e+04_rb,6.2173e+03_rb,2.0295e+01_rb/)\n      kbo(:, 2,48,12) = (/ &\n     &3.0432e+04_rb,2.2824e+04_rb,1.5216e+04_rb,7.6085e+03_rb,2.0270e+01_rb/)\n      kbo(:, 3,48,12) = (/ &\n     &3.7235e+04_rb,2.7926e+04_rb,1.8618e+04_rb,9.3091e+03_rb,2.0484e+01_rb/)\n      kbo(:, 4,48,12) = (/ &\n     &4.5063e+04_rb,3.3797e+04_rb,2.2532e+04_rb,1.1266e+04_rb,2.0580e+01_rb/)\n      kbo(:, 5,48,12) = (/ &\n     &5.3530e+04_rb,4.0148e+04_rb,2.6765e+04_rb,1.3383e+04_rb,2.0621e+01_rb/)\n      kbo(:, 1,49,12) = (/ &\n     &2.8095e+04_rb,2.1071e+04_rb,1.4048e+04_rb,7.0242e+03_rb,2.0197e+01_rb/)\n      kbo(:, 2,49,12) = (/ &\n     &3.4618e+04_rb,2.5963e+04_rb,1.7309e+04_rb,8.6547e+03_rb,2.0319e+01_rb/)\n      kbo(:, 3,49,12) = (/ &\n     &4.2591e+04_rb,3.1943e+04_rb,2.1296e+04_rb,1.0648e+04_rb,2.0559e+01_rb/)\n      kbo(:, 4,49,12) = (/ &\n     &5.1945e+04_rb,3.8959e+04_rb,2.5973e+04_rb,1.2987e+04_rb,2.0853e+01_rb/)\n      kbo(:, 5,49,12) = (/ &\n     &6.2325e+04_rb,4.6744e+04_rb,3.1163e+04_rb,1.5581e+04_rb,2.0890e+01_rb/)\n      kbo(:, 1,50,12) = (/ &\n     &3.0354e+04_rb,2.2766e+04_rb,1.5178e+04_rb,7.5891e+03_rb,2.0062e+01_rb/)\n      kbo(:, 2,50,12) = (/ &\n     &3.7734e+04_rb,2.8300e+04_rb,1.8867e+04_rb,9.4338e+03_rb,2.0363e+01_rb/)\n      kbo(:, 3,50,12) = (/ &\n     &4.6589e+04_rb,3.4942e+04_rb,2.3295e+04_rb,1.1648e+04_rb,2.0543e+01_rb/)\n      kbo(:, 4,50,12) = (/ &\n     &5.7214e+04_rb,4.2910e+04_rb,2.8607e+04_rb,1.4304e+04_rb,2.0993e+01_rb/)\n      kbo(:, 5,50,12) = (/ &\n     &6.9238e+04_rb,5.1929e+04_rb,3.4619e+04_rb,1.7310e+04_rb,2.1035e+01_rb/)\n      kbo(:, 1,51,12) = (/ &\n     &3.2115e+04_rb,2.4086e+04_rb,1.6058e+04_rb,8.0292e+03_rb,1.9809e+01_rb/)\n      kbo(:, 2,51,12) = (/ &\n     &4.0277e+04_rb,3.0208e+04_rb,2.0139e+04_rb,1.0070e+04_rb,2.0313e+01_rb/)\n      kbo(:, 3,51,12) = (/ &\n     &4.9958e+04_rb,3.7469e+04_rb,2.4979e+04_rb,1.2490e+04_rb,2.0455e+01_rb/)\n      kbo(:, 4,51,12) = (/ &\n     &6.1681e+04_rb,4.6261e+04_rb,3.0841e+04_rb,1.5421e+04_rb,2.0964e+01_rb/)\n      kbo(:, 5,51,12) = (/ &\n     &7.5206e+04_rb,5.6405e+04_rb,3.7603e+04_rb,1.8802e+04_rb,2.1060e+01_rb/)\n      kbo(:, 1,52,12) = (/ &\n     &3.4912e+04_rb,2.6184e+04_rb,1.7456e+04_rb,8.7285e+03_rb,1.9582e+01_rb/)\n      kbo(:, 2,52,12) = (/ &\n     &4.4146e+04_rb,3.3110e+04_rb,2.2073e+04_rb,1.1037e+04_rb,2.0163e+01_rb/)\n      kbo(:, 3,52,12) = (/ &\n     &5.5147e+04_rb,4.1361e+04_rb,2.7574e+04_rb,1.3787e+04_rb,2.0386e+01_rb/)\n      kbo(:, 4,52,12) = (/ &\n     &6.8326e+04_rb,5.1245e+04_rb,3.4163e+04_rb,1.7082e+04_rb,2.0999e+01_rb/)\n      kbo(:, 5,52,12) = (/ &\n     &8.3853e+04_rb,6.2890e+04_rb,4.1927e+04_rb,2.0964e+04_rb,2.1183e+01_rb/)\n      kbo(:, 1,53,12) = (/ &\n     &3.9402e+04_rb,2.9552e+04_rb,1.9702e+04_rb,9.8513e+03_rb,1.9267e+01_rb/)\n      kbo(:, 2,53,12) = (/ &\n     &5.0308e+04_rb,3.7732e+04_rb,2.5155e+04_rb,1.2578e+04_rb,1.9908e+01_rb/)\n      kbo(:, 3,53,12) = (/ &\n     &6.3383e+04_rb,4.7538e+04_rb,3.1692e+04_rb,1.5846e+04_rb,2.0279e+01_rb/)\n      kbo(:, 4,53,12) = (/ &\n     &7.8778e+04_rb,5.9084e+04_rb,3.9389e+04_rb,1.9695e+04_rb,2.1039e+01_rb/)\n      kbo(:, 5,53,12) = (/ &\n     &9.7229e+04_rb,7.2923e+04_rb,4.8615e+04_rb,2.4308e+04_rb,2.1293e+01_rb/)\n      kbo(:, 1,54,12) = (/ &\n     &3.8624e+04_rb,2.8968e+04_rb,1.9312e+04_rb,9.6566e+03_rb,1.8946e+01_rb/)\n      kbo(:, 2,54,12) = (/ &\n     &4.9869e+04_rb,3.7402e+04_rb,2.4935e+04_rb,1.2468e+04_rb,1.9724e+01_rb/)\n      kbo(:, 3,54,12) = (/ &\n     &6.3267e+04_rb,4.7450e+04_rb,3.1634e+04_rb,1.5817e+04_rb,2.0221e+01_rb/)\n      kbo(:, 4,54,12) = (/ &\n     &7.9005e+04_rb,5.9254e+04_rb,3.9503e+04_rb,1.9752e+04_rb,2.0891e+01_rb/)\n      kbo(:, 5,54,12) = (/ &\n     &9.7899e+04_rb,7.3425e+04_rb,4.8950e+04_rb,2.4475e+04_rb,2.1235e+01_rb/)\n      kbo(:, 1,55,12) = (/ &\n     &3.4504e+04_rb,2.5878e+04_rb,1.7253e+04_rb,8.6267e+03_rb,1.8561e+01_rb/)\n      kbo(:, 2,55,12) = (/ &\n     &4.5154e+04_rb,3.3866e+04_rb,2.2578e+04_rb,1.1289e+04_rb,1.9514e+01_rb/)\n      kbo(:, 3,55,12) = (/ &\n     &5.7700e+04_rb,4.3275e+04_rb,2.8850e+04_rb,1.4425e+04_rb,2.0143e+01_rb/)\n      kbo(:, 4,55,12) = (/ &\n     &7.2513e+04_rb,5.4385e+04_rb,3.6257e+04_rb,1.8129e+04_rb,2.0526e+01_rb/)\n      kbo(:, 5,55,12) = (/ &\n     &9.0097e+04_rb,6.7573e+04_rb,4.5049e+04_rb,2.2525e+04_rb,2.1145e+01_rb/)\n      kbo(:, 1,56,12) = (/ &\n     &3.0670e+04_rb,2.3003e+04_rb,1.5335e+04_rb,7.6681e+03_rb,1.8208e+01_rb/)\n      kbo(:, 2,56,12) = (/ &\n     &4.0775e+04_rb,3.0581e+04_rb,2.0388e+04_rb,1.0194e+04_rb,1.9345e+01_rb/)\n      kbo(:, 3,56,12) = (/ &\n     &5.2534e+04_rb,3.9401e+04_rb,2.6267e+04_rb,1.3134e+04_rb,1.9986e+01_rb/)\n      kbo(:, 4,56,12) = (/ &\n     &6.6490e+04_rb,4.9868e+04_rb,3.3245e+04_rb,1.6623e+04_rb,2.0300e+01_rb/)\n      kbo(:, 5,56,12) = (/ &\n     &8.2863e+04_rb,6.2147e+04_rb,4.1431e+04_rb,2.0716e+04_rb,2.0929e+01_rb/)\n      kbo(:, 1,57,12) = (/ &\n     &2.7134e+04_rb,2.0351e+04_rb,1.3567e+04_rb,6.7841e+03_rb,1.7766e+01_rb/)\n      kbo(:, 2,57,12) = (/ &\n     &3.6730e+04_rb,2.7547e+04_rb,1.8365e+04_rb,9.1827e+03_rb,1.8983e+01_rb/)\n      kbo(:, 3,57,12) = (/ &\n     &4.7798e+04_rb,3.5848e+04_rb,2.3899e+04_rb,1.1950e+04_rb,1.9837e+01_rb/)\n      kbo(:, 4,57,12) = (/ &\n     &6.0858e+04_rb,4.5644e+04_rb,3.0429e+04_rb,1.5215e+04_rb,2.0288e+01_rb/)\n      kbo(:, 5,57,12) = (/ &\n     &7.6170e+04_rb,5.7127e+04_rb,3.8085e+04_rb,1.9043e+04_rb,2.0539e+01_rb/)\n      kbo(:, 1,58,12) = (/ &\n     &6.3468e+03_rb,5.8191e+03_rb,4.9895e+03_rb,3.4949e+03_rb,1.7351e+01_rb/)\n      kbo(:, 2,58,12) = (/ &\n     &8.7238e+03_rb,7.9984e+03_rb,6.8580e+03_rb,4.8035e+03_rb,1.8673e+01_rb/)\n      kbo(:, 3,58,12) = (/ &\n     &1.1493e+04_rb,1.0537e+04_rb,9.0349e+03_rb,6.3281e+03_rb,1.9708e+01_rb/)\n      kbo(:, 4,58,12) = (/ &\n     &1.4729e+04_rb,1.3504e+04_rb,1.1579e+04_rb,8.1099e+03_rb,2.0210e+01_rb/)\n      kbo(:, 5,58,12) = (/ &\n     &1.8531e+04_rb,1.6990e+04_rb,1.4568e+04_rb,1.0203e+04_rb,2.0346e+01_rb/)\n      kbo(:, 1,59,12) = (/ &\n     &7.0593e+03_rb,6.1640e+03_rb,4.9170e+03_rb,3.0600e+03_rb,1.7147e+01_rb/)\n      kbo(:, 2,59,12) = (/ &\n     &9.7799e+03_rb,8.5396e+03_rb,6.8118e+03_rb,4.2390e+03_rb,1.8584e+01_rb/)\n      kbo(:, 3,59,12) = (/ &\n     &1.2964e+04_rb,1.1320e+04_rb,9.0293e+03_rb,5.6188e+03_rb,1.9434e+01_rb/)\n      kbo(:, 4,59,12) = (/ &\n     &1.6671e+04_rb,1.4556e+04_rb,1.1611e+04_rb,7.2253e+03_rb,2.0175e+01_rb/)\n      kbo(:, 5,59,12) = (/ &\n     &2.1035e+04_rb,1.8367e+04_rb,1.4651e+04_rb,9.1168e+03_rb,2.0516e+01_rb/)\n      kbo(:, 1,13,13) = (/ &\n     &3.8843e+05_rb,2.9132e+05_rb,1.9422e+05_rb,9.7109e+04_rb,5.4111e+00_rb/)\n      kbo(:, 2,13,13) = (/ &\n     &3.8116e+05_rb,2.8587e+05_rb,1.9058e+05_rb,9.5291e+04_rb,5.1021e+00_rb/)\n      kbo(:, 3,13,13) = (/ &\n     &3.7364e+05_rb,2.8023e+05_rb,1.8682e+05_rb,9.3410e+04_rb,4.8974e+00_rb/)\n      kbo(:, 4,13,13) = (/ &\n     &3.6551e+05_rb,2.7413e+05_rb,1.8276e+05_rb,9.1378e+04_rb,4.4934e+00_rb/)\n      kbo(:, 5,13,13) = (/ &\n     &3.5750e+05_rb,2.6813e+05_rb,1.7875e+05_rb,8.9377e+04_rb,3.9773e+00_rb/)\n      kbo(:, 1,14,13) = (/ &\n     &2.5525e+05_rb,1.9143e+05_rb,1.2762e+05_rb,6.3811e+04_rb,5.8071e+00_rb/)\n      kbo(:, 2,14,13) = (/ &\n     &2.5096e+05_rb,1.8822e+05_rb,1.2548e+05_rb,6.2740e+04_rb,5.6102e+00_rb/)\n      kbo(:, 3,14,13) = (/ &\n     &2.4685e+05_rb,1.8514e+05_rb,1.2343e+05_rb,6.1713e+04_rb,5.4048e+00_rb/)\n      kbo(:, 4,14,13) = (/ &\n     &2.4253e+05_rb,1.8190e+05_rb,1.2126e+05_rb,6.0632e+04_rb,5.2557e+00_rb/)\n      kbo(:, 5,14,13) = (/ &\n     &2.3845e+05_rb,1.7884e+05_rb,1.1922e+05_rb,5.9612e+04_rb,4.9044e+00_rb/)\n      kbo(:, 1,15,13) = (/ &\n     &1.7262e+05_rb,1.2947e+05_rb,8.6313e+04_rb,4.3157e+04_rb,6.3397e+00_rb/)\n      kbo(:, 2,15,13) = (/ &\n     &1.7029e+05_rb,1.2772e+05_rb,8.5146e+04_rb,4.2574e+04_rb,6.1559e+00_rb/)\n      kbo(:, 3,15,13) = (/ &\n     &1.6778e+05_rb,1.2583e+05_rb,8.3891e+04_rb,4.1946e+04_rb,5.9275e+00_rb/)\n      kbo(:, 4,15,13) = (/ &\n     &1.6564e+05_rb,1.2423e+05_rb,8.2824e+04_rb,4.1413e+04_rb,5.8142e+00_rb/)\n      kbo(:, 5,15,13) = (/ &\n     &1.6363e+05_rb,1.2273e+05_rb,8.1819e+04_rb,4.0910e+04_rb,5.6466e+00_rb/)\n      kbo(:, 1,16,13) = (/ &\n     &1.3945e+05_rb,1.0459e+05_rb,6.9724e+04_rb,3.4863e+04_rb,7.0725e+00_rb/)\n      kbo(:, 2,16,13) = (/ &\n     &1.3799e+05_rb,1.0349e+05_rb,6.8996e+04_rb,3.4499e+04_rb,6.9039e+00_rb/)\n      kbo(:, 3,16,13) = (/ &\n     &1.3667e+05_rb,1.0250e+05_rb,6.8336e+04_rb,3.4169e+04_rb,6.6526e+00_rb/)\n      kbo(:, 4,16,13) = (/ &\n     &1.3532e+05_rb,1.0149e+05_rb,6.7659e+04_rb,3.3830e+04_rb,6.5506e+00_rb/)\n      kbo(:, 5,16,13) = (/ &\n     &1.3401e+05_rb,1.0051e+05_rb,6.7008e+04_rb,3.3505e+04_rb,6.3946e+00_rb/)\n      kbo(:, 1,17,13) = (/ &\n     &1.1728e+05_rb,8.7962e+04_rb,5.8642e+04_rb,2.9322e+04_rb,7.9743e+00_rb/)\n      kbo(:, 2,17,13) = (/ &\n     &1.1635e+05_rb,8.7266e+04_rb,5.8178e+04_rb,2.9090e+04_rb,7.7873e+00_rb/)\n      kbo(:, 3,17,13) = (/ &\n     &1.1534e+05_rb,8.6504e+04_rb,5.7670e+04_rb,2.8835e+04_rb,7.5449e+00_rb/)\n      kbo(:, 4,17,13) = (/ &\n     &1.1432e+05_rb,8.5738e+04_rb,5.7159e+04_rb,2.8580e+04_rb,7.3894e+00_rb/)\n      kbo(:, 5,17,13) = (/ &\n     &1.1312e+05_rb,8.4838e+04_rb,5.6559e+04_rb,2.8280e+04_rb,7.2243e+00_rb/)\n      kbo(:, 1,18,13) = (/ &\n     &1.0020e+05_rb,7.5148e+04_rb,5.0099e+04_rb,2.5050e+04_rb,8.9803e+00_rb/)\n      kbo(:, 2,18,13) = (/ &\n     &9.9423e+04_rb,7.4567e+04_rb,4.9712e+04_rb,2.4856e+04_rb,8.7551e+00_rb/)\n      kbo(:, 3,18,13) = (/ &\n     &9.8635e+04_rb,7.3977e+04_rb,4.9318e+04_rb,2.4660e+04_rb,8.5049e+00_rb/)\n      kbo(:, 4,18,13) = (/ &\n     &9.7679e+04_rb,7.3260e+04_rb,4.8840e+04_rb,2.4421e+04_rb,8.3083e+00_rb/)\n      kbo(:, 5,18,13) = (/ &\n     &9.6616e+04_rb,7.2462e+04_rb,4.8308e+04_rb,2.4155e+04_rb,8.1253e+00_rb/)\n      kbo(:, 1,19,13) = (/ &\n     &8.3124e+04_rb,6.2343e+04_rb,4.1562e+04_rb,2.0782e+04_rb,1.0036e+01_rb/)\n      kbo(:, 2,19,13) = (/ &\n     &8.2434e+04_rb,6.1826e+04_rb,4.1217e+04_rb,2.0609e+04_rb,9.7882e+00_rb/)\n      kbo(:, 3,19,13) = (/ &\n     &8.1692e+04_rb,6.1269e+04_rb,4.0847e+04_rb,2.0424e+04_rb,9.5505e+00_rb/)\n      kbo(:, 4,19,13) = (/ &\n     &8.0821e+04_rb,6.0616e+04_rb,4.0411e+04_rb,2.0206e+04_rb,9.2995e+00_rb/)\n      kbo(:, 5,19,13) = (/ &\n     &7.9844e+04_rb,5.9883e+04_rb,3.9922e+04_rb,1.9962e+04_rb,9.1204e+00_rb/)\n      kbo(:, 1,20,13) = (/ &\n     &7.3434e+04_rb,5.5076e+04_rb,3.6717e+04_rb,1.8359e+04_rb,1.1173e+01_rb/)\n      kbo(:, 2,20,13) = (/ &\n     &7.2781e+04_rb,5.4586e+04_rb,3.6391e+04_rb,1.8196e+04_rb,1.0919e+01_rb/)\n      kbo(:, 3,20,13) = (/ &\n     &7.2073e+04_rb,5.4055e+04_rb,3.6037e+04_rb,1.8019e+04_rb,1.0676e+01_rb/)\n      kbo(:, 4,20,13) = (/ &\n     &7.1226e+04_rb,5.3419e+04_rb,3.5613e+04_rb,1.7807e+04_rb,1.0406e+01_rb/)\n      kbo(:, 5,20,13) = (/ &\n     &7.0326e+04_rb,5.2745e+04_rb,3.5164e+04_rb,1.7582e+04_rb,1.0205e+01_rb/)\n      kbo(:, 1,21,13) = (/ &\n     &6.5684e+04_rb,4.9263e+04_rb,3.2843e+04_rb,1.6422e+04_rb,1.2437e+01_rb/)\n      kbo(:, 2,21,13) = (/ &\n     &6.5060e+04_rb,4.8795e+04_rb,3.2531e+04_rb,1.6266e+04_rb,1.2175e+01_rb/)\n      kbo(:, 3,21,13) = (/ &\n     &6.4347e+04_rb,4.8261e+04_rb,3.2174e+04_rb,1.6088e+04_rb,1.1913e+01_rb/)\n      kbo(:, 4,21,13) = (/ &\n     &6.3551e+04_rb,4.7664e+04_rb,3.1776e+04_rb,1.5889e+04_rb,1.1602e+01_rb/)\n      kbo(:, 5,21,13) = (/ &\n     &6.2699e+04_rb,4.7025e+04_rb,3.1350e+04_rb,1.5676e+04_rb,1.1366e+01_rb/)\n      kbo(:, 1,22,13) = (/ &\n     &5.8992e+04_rb,4.4244e+04_rb,2.9497e+04_rb,1.4749e+04_rb,1.3817e+01_rb/)\n      kbo(:, 2,22,13) = (/ &\n     &5.8377e+04_rb,4.3783e+04_rb,2.9189e+04_rb,1.4595e+04_rb,1.3522e+01_rb/)\n      kbo(:, 3,22,13) = (/ &\n     &5.7726e+04_rb,4.3295e+04_rb,2.8863e+04_rb,1.4432e+04_rb,1.3217e+01_rb/)\n      kbo(:, 4,22,13) = (/ &\n     &5.7003e+04_rb,4.2753e+04_rb,2.8502e+04_rb,1.4252e+04_rb,1.2864e+01_rb/)\n      kbo(:, 5,22,13) = (/ &\n     &5.6242e+04_rb,4.2182e+04_rb,2.8121e+04_rb,1.4061e+04_rb,1.2581e+01_rb/)\n      kbo(:, 1,23,13) = (/ &\n     &5.2234e+04_rb,3.9176e+04_rb,2.6118e+04_rb,1.3059e+04_rb,1.5301e+01_rb/)\n      kbo(:, 2,23,13) = (/ &\n     &5.1719e+04_rb,3.8789e+04_rb,2.5860e+04_rb,1.2931e+04_rb,1.4943e+01_rb/)\n      kbo(:, 3,23,13) = (/ &\n     &5.1144e+04_rb,3.8358e+04_rb,2.5572e+04_rb,1.2787e+04_rb,1.4585e+01_rb/)\n      kbo(:, 4,23,13) = (/ &\n     &5.0530e+04_rb,3.7898e+04_rb,2.5266e+04_rb,1.2633e+04_rb,1.4170e+01_rb/)\n      kbo(:, 5,23,13) = (/ &\n     &4.9854e+04_rb,3.7391e+04_rb,2.4928e+04_rb,1.2464e+04_rb,1.3822e+01_rb/)\n      kbo(:, 1,24,13) = (/ &\n     &4.5231e+04_rb,3.3923e+04_rb,2.2616e+04_rb,1.1309e+04_rb,1.6829e+01_rb/)\n      kbo(:, 2,24,13) = (/ &\n     &4.4807e+04_rb,3.3606e+04_rb,2.2404e+04_rb,1.1203e+04_rb,1.6434e+01_rb/)\n      kbo(:, 3,24,13) = (/ &\n     &4.4319e+04_rb,3.3240e+04_rb,2.2160e+04_rb,1.1081e+04_rb,1.5981e+01_rb/)\n      kbo(:, 4,24,13) = (/ &\n     &4.3813e+04_rb,3.2860e+04_rb,2.1907e+04_rb,1.0954e+04_rb,1.5519e+01_rb/)\n      kbo(:, 5,24,13) = (/ &\n     &4.3229e+04_rb,3.2422e+04_rb,2.1615e+04_rb,1.0808e+04_rb,1.5118e+01_rb/)\n      kbo(:, 1,25,13) = (/ &\n     &3.9084e+04_rb,2.9314e+04_rb,1.9543e+04_rb,9.7719e+03_rb,1.8397e+01_rb/)\n      kbo(:, 2,25,13) = (/ &\n     &3.8734e+04_rb,2.9050e+04_rb,1.9367e+04_rb,9.6842e+03_rb,1.7930e+01_rb/)\n      kbo(:, 3,25,13) = (/ &\n     &3.8359e+04_rb,2.8770e+04_rb,1.9180e+04_rb,9.5907e+03_rb,1.7387e+01_rb/)\n      kbo(:, 4,25,13) = (/ &\n     &3.7930e+04_rb,2.8448e+04_rb,1.8965e+04_rb,9.4832e+03_rb,1.6873e+01_rb/)\n      kbo(:, 5,25,13) = (/ &\n     &3.7467e+04_rb,2.8100e+04_rb,1.8734e+04_rb,9.3675e+03_rb,1.6400e+01_rb/)\n      kbo(:, 1,26,13) = (/ &\n     &3.3890e+04_rb,2.5418e+04_rb,1.6946e+04_rb,8.4734e+03_rb,1.9920e+01_rb/)\n      kbo(:, 2,26,13) = (/ &\n     &3.3621e+04_rb,2.5216e+04_rb,1.6811e+04_rb,8.4060e+03_rb,1.9382e+01_rb/)\n      kbo(:, 3,26,13) = (/ &\n     &3.3332e+04_rb,2.4999e+04_rb,1.6667e+04_rb,8.3338e+03_rb,1.8740e+01_rb/)\n      kbo(:, 4,26,13) = (/ &\n     &3.3002e+04_rb,2.4752e+04_rb,1.6501e+04_rb,8.2512e+03_rb,1.8176e+01_rb/)\n      kbo(:, 5,26,13) = (/ &\n     &3.2656e+04_rb,2.4492e+04_rb,1.6328e+04_rb,8.1646e+03_rb,1.7620e+01_rb/)\n      kbo(:, 1,27,13) = (/ &\n     &3.0166e+04_rb,2.2624e+04_rb,1.5083e+04_rb,7.5423e+03_rb,2.1376e+01_rb/)\n      kbo(:, 2,27,13) = (/ &\n     &2.9996e+04_rb,2.2497e+04_rb,1.4998e+04_rb,7.4998e+03_rb,2.0763e+01_rb/)\n      kbo(:, 3,27,13) = (/ &\n     &2.9787e+04_rb,2.2341e+04_rb,1.4894e+04_rb,7.4476e+03_rb,2.0015e+01_rb/)\n      kbo(:, 4,27,13) = (/ &\n     &2.9581e+04_rb,2.2186e+04_rb,1.4791e+04_rb,7.3962e+03_rb,1.9407e+01_rb/)\n      kbo(:, 5,27,13) = (/ &\n     &2.9406e+04_rb,2.2055e+04_rb,1.4703e+04_rb,7.3522e+03_rb,1.8770e+01_rb/)\n      kbo(:, 1,28,13) = (/ &\n     &2.7326e+04_rb,2.0495e+04_rb,1.3664e+04_rb,6.8324e+03_rb,2.2732e+01_rb/)\n      kbo(:, 2,28,13) = (/ &\n     &2.7236e+04_rb,2.0428e+04_rb,1.3619e+04_rb,6.8100e+03_rb,2.2041e+01_rb/)\n      kbo(:, 3,28,13) = (/ &\n     &2.7174e+04_rb,2.0381e+04_rb,1.3588e+04_rb,6.7945e+03_rb,2.1170e+01_rb/)\n      kbo(:, 4,28,13) = (/ &\n     &2.7191e+04_rb,2.0394e+04_rb,1.3596e+04_rb,6.7985e+03_rb,2.0533e+01_rb/)\n      kbo(:, 5,28,13) = (/ &\n     &2.7306e+04_rb,2.0480e+04_rb,1.3654e+04_rb,6.8273e+03_rb,1.9803e+01_rb/)\n      kbo(:, 1,29,13) = (/ &\n     &2.6107e+04_rb,1.9580e+04_rb,1.3054e+04_rb,6.5276e+03_rb,2.3952e+01_rb/)\n      kbo(:, 2,29,13) = (/ &\n     &2.6178e+04_rb,1.9634e+04_rb,1.3090e+04_rb,6.5453e+03_rb,2.3128e+01_rb/)\n      kbo(:, 3,29,13) = (/ &\n     &2.6373e+04_rb,1.9780e+04_rb,1.3187e+04_rb,6.5941e+03_rb,2.2276e+01_rb/)\n      kbo(:, 4,29,13) = (/ &\n     &2.6674e+04_rb,2.0006e+04_rb,1.3338e+04_rb,6.6693e+03_rb,2.1526e+01_rb/)\n      kbo(:, 5,29,13) = (/ &\n     &2.7070e+04_rb,2.0303e+04_rb,1.3535e+04_rb,6.7681e+03_rb,2.0703e+01_rb/)\n      kbo(:, 1,30,13) = (/ &\n     &2.5565e+04_rb,1.9174e+04_rb,1.2783e+04_rb,6.3921e+03_rb,2.5015e+01_rb/)\n      kbo(:, 2,30,13) = (/ &\n     &2.5924e+04_rb,1.9443e+04_rb,1.2962e+04_rb,6.4818e+03_rb,2.4026e+01_rb/)\n      kbo(:, 3,30,13) = (/ &\n     &2.6425e+04_rb,1.9819e+04_rb,1.3213e+04_rb,6.6070e+03_rb,2.3238e+01_rb/)\n      kbo(:, 4,30,13) = (/ &\n     &2.7081e+04_rb,2.0311e+04_rb,1.3541e+04_rb,6.7710e+03_rb,2.2369e+01_rb/)\n      kbo(:, 5,30,13) = (/ &\n     &2.7860e+04_rb,2.0896e+04_rb,1.3931e+04_rb,6.9658e+03_rb,2.1263e+01_rb/)\n      kbo(:, 1,31,13) = (/ &\n     &2.6519e+04_rb,1.9890e+04_rb,1.3260e+04_rb,6.6306e+03_rb,2.5829e+01_rb/)\n      kbo(:, 2,31,13) = (/ &\n     &2.7266e+04_rb,2.0450e+04_rb,1.3634e+04_rb,6.8173e+03_rb,2.4917e+01_rb/)\n      kbo(:, 3,31,13) = (/ &\n     &2.8229e+04_rb,2.1172e+04_rb,1.4115e+04_rb,7.0579e+03_rb,2.4029e+01_rb/)\n      kbo(:, 4,31,13) = (/ &\n     &2.9353e+04_rb,2.2015e+04_rb,1.4677e+04_rb,7.3390e+03_rb,2.2989e+01_rb/)\n      kbo(:, 5,31,13) = (/ &\n     &3.0590e+04_rb,2.2943e+04_rb,1.5295e+04_rb,7.6481e+03_rb,2.1638e+01_rb/)\n      kbo(:, 1,32,13) = (/ &\n     &2.8188e+04_rb,2.1141e+04_rb,1.4095e+04_rb,7.0478e+03_rb,2.6468e+01_rb/)\n      kbo(:, 2,32,13) = (/ &\n     &2.9479e+04_rb,2.2110e+04_rb,1.4740e+04_rb,7.3705e+03_rb,2.5641e+01_rb/)\n      kbo(:, 3,32,13) = (/ &\n     &3.0998e+04_rb,2.3249e+04_rb,1.5500e+04_rb,7.7503e+03_rb,2.4646e+01_rb/)\n      kbo(:, 4,32,13) = (/ &\n     &3.2677e+04_rb,2.4508e+04_rb,1.6339e+04_rb,8.1700e+03_rb,2.3083e+01_rb/)\n      kbo(:, 5,32,13) = (/ &\n     &3.4456e+04_rb,2.5842e+04_rb,1.7228e+04_rb,8.6146e+03_rb,2.1888e+01_rb/)\n      kbo(:, 1,33,13) = (/ &\n     &3.1038e+04_rb,2.3278e+04_rb,1.5519e+04_rb,7.7602e+03_rb,2.7208e+01_rb/)\n      kbo(:, 2,33,13) = (/ &\n     &3.2999e+04_rb,2.4749e+04_rb,1.6500e+04_rb,8.2505e+03_rb,2.6145e+01_rb/)\n      kbo(:, 3,33,13) = (/ &\n     &3.5228e+04_rb,2.6421e+04_rb,1.7614e+04_rb,8.8077e+03_rb,2.4544e+01_rb/)\n      kbo(:, 4,33,13) = (/ &\n     &3.7600e+04_rb,2.8200e+04_rb,1.8800e+04_rb,9.4007e+03_rb,2.3159e+01_rb/)\n      kbo(:, 5,33,13) = (/ &\n     &4.0073e+04_rb,3.0055e+04_rb,2.0037e+04_rb,1.0019e+04_rb,2.2387e+01_rb/)\n      kbo(:, 1,34,13) = (/ &\n     &3.3858e+04_rb,2.5394e+04_rb,1.6930e+04_rb,8.4653e+03_rb,2.7625e+01_rb/)\n      kbo(:, 2,34,13) = (/ &\n     &3.6566e+04_rb,2.7425e+04_rb,1.8284e+04_rb,9.1422e+03_rb,2.6243e+01_rb/)\n      kbo(:, 3,34,13) = (/ &\n     &3.9555e+04_rb,2.9666e+04_rb,1.9778e+04_rb,9.8893e+03_rb,2.4430e+01_rb/)\n      kbo(:, 4,34,13) = (/ &\n     &4.2704e+04_rb,3.2028e+04_rb,2.1352e+04_rb,1.0677e+04_rb,2.3679e+01_rb/)\n      kbo(:, 5,34,13) = (/ &\n     &4.5894e+04_rb,3.4420e+04_rb,2.2947e+04_rb,1.1474e+04_rb,2.2773e+01_rb/)\n      kbo(:, 1,35,13) = (/ &\n     &3.7312e+04_rb,2.7984e+04_rb,1.8657e+04_rb,9.3288e+03_rb,2.7942e+01_rb/)\n      kbo(:, 2,35,13) = (/ &\n     &4.0881e+04_rb,3.0661e+04_rb,2.0441e+04_rb,1.0221e+04_rb,2.6106e+01_rb/)\n      kbo(:, 3,35,13) = (/ &\n     &4.4738e+04_rb,3.3554e+04_rb,2.2369e+04_rb,1.1185e+04_rb,2.5080e+01_rb/)\n      kbo(:, 4,35,13) = (/ &\n     &4.8754e+04_rb,3.6566e+04_rb,2.4377e+04_rb,1.2189e+04_rb,2.4179e+01_rb/)\n      kbo(:, 5,35,13) = (/ &\n     &5.2762e+04_rb,3.9572e+04_rb,2.6381e+04_rb,1.3191e+04_rb,2.3224e+01_rb/)\n      kbo(:, 1,36,13) = (/ &\n     &4.0999e+04_rb,3.0749e+04_rb,2.0500e+04_rb,1.0250e+04_rb,2.8213e+01_rb/)\n      kbo(:, 2,36,13) = (/ &\n     &4.5493e+04_rb,3.4120e+04_rb,2.2747e+04_rb,1.1374e+04_rb,2.6516e+01_rb/)\n      kbo(:, 3,36,13) = (/ &\n     &5.0302e+04_rb,3.7726e+04_rb,2.5151e+04_rb,1.2576e+04_rb,2.5690e+01_rb/)\n      kbo(:, 4,36,13) = (/ &\n     &5.5257e+04_rb,4.1443e+04_rb,2.7629e+04_rb,1.3815e+04_rb,2.4819e+01_rb/)\n      kbo(:, 5,36,13) = (/ &\n     &6.0175e+04_rb,4.5131e+04_rb,3.0088e+04_rb,1.5044e+04_rb,2.3837e+01_rb/)\n      kbo(:, 1,37,13) = (/ &\n     &4.3597e+04_rb,3.2698e+04_rb,2.1799e+04_rb,1.0900e+04_rb,2.8678e+01_rb/)\n      kbo(:, 2,37,13) = (/ &\n     &4.8963e+04_rb,3.6723e+04_rb,2.4482e+04_rb,1.2241e+04_rb,2.7079e+01_rb/)\n      kbo(:, 3,37,13) = (/ &\n     &5.4655e+04_rb,4.0991e+04_rb,2.7328e+04_rb,1.3664e+04_rb,2.6274e+01_rb/)\n      kbo(:, 4,37,13) = (/ &\n     &6.0506e+04_rb,4.5380e+04_rb,3.0253e+04_rb,1.5127e+04_rb,2.5504e+01_rb/)\n      kbo(:, 5,37,13) = (/ &\n     &6.6353e+04_rb,4.9765e+04_rb,3.3177e+04_rb,1.6589e+04_rb,2.4385e+01_rb/)\n      kbo(:, 1,38,13) = (/ &\n     &4.7296e+04_rb,3.5472e+04_rb,2.3648e+04_rb,1.1825e+04_rb,2.9114e+01_rb/)\n      kbo(:, 2,38,13) = (/ &\n     &5.3691e+04_rb,4.0269e+04_rb,2.6846e+04_rb,1.3423e+04_rb,2.7730e+01_rb/)\n      kbo(:, 3,38,13) = (/ &\n     &6.0448e+04_rb,4.5336e+04_rb,3.0224e+04_rb,1.5113e+04_rb,2.6995e+01_rb/)\n      kbo(:, 4,38,13) = (/ &\n     &6.7408e+04_rb,5.0556e+04_rb,3.3704e+04_rb,1.6852e+04_rb,2.6164e+01_rb/)\n      kbo(:, 5,38,13) = (/ &\n     &7.4361e+04_rb,5.5771e+04_rb,3.7181e+04_rb,1.8591e+04_rb,2.5025e+01_rb/)\n      kbo(:, 1,39,13) = (/ &\n     &5.2787e+04_rb,3.9591e+04_rb,2.6394e+04_rb,1.3198e+04_rb,2.9543e+01_rb/)\n      kbo(:, 2,39,13) = (/ &\n     &6.0481e+04_rb,4.5362e+04_rb,3.0242e+04_rb,1.5121e+04_rb,2.8398e+01_rb/)\n      kbo(:, 3,39,13) = (/ &\n     &6.8644e+04_rb,5.1483e+04_rb,3.4323e+04_rb,1.7162e+04_rb,2.7686e+01_rb/)\n      kbo(:, 4,39,13) = (/ &\n     &7.7024e+04_rb,5.7768e+04_rb,3.8513e+04_rb,1.9257e+04_rb,2.6627e+01_rb/)\n      kbo(:, 5,39,13) = (/ &\n     &8.5404e+04_rb,6.4053e+04_rb,4.2703e+04_rb,2.1352e+04_rb,2.5499e+01_rb/)\n      kbo(:, 1,40,13) = (/ &\n     &5.4787e+04_rb,4.1090e+04_rb,2.7394e+04_rb,1.3697e+04_rb,3.0183e+01_rb/)\n      kbo(:, 2,40,13) = (/ &\n     &6.3323e+04_rb,4.7492e+04_rb,3.1662e+04_rb,1.5831e+04_rb,2.8961e+01_rb/)\n      kbo(:, 3,40,13) = (/ &\n     &7.2463e+04_rb,5.4348e+04_rb,3.6232e+04_rb,1.8116e+04_rb,2.8295e+01_rb/)\n      kbo(:, 4,40,13) = (/ &\n     &8.1867e+04_rb,6.1400e+04_rb,4.0933e+04_rb,2.0467e+04_rb,2.7184e+01_rb/)\n      kbo(:, 5,40,13) = (/ &\n     &9.1325e+04_rb,6.8494e+04_rb,4.5663e+04_rb,2.2832e+04_rb,2.5988e+01_rb/)\n      kbo(:, 1,41,13) = (/ &\n     &5.6764e+04_rb,4.2573e+04_rb,2.8383e+04_rb,1.4192e+04_rb,3.0791e+01_rb/)\n      kbo(:, 2,41,13) = (/ &\n     &6.6130e+04_rb,4.9598e+04_rb,3.3066e+04_rb,1.6533e+04_rb,2.9538e+01_rb/)\n      kbo(:, 3,41,13) = (/ &\n     &7.6243e+04_rb,5.7183e+04_rb,3.8122e+04_rb,1.9062e+04_rb,2.8774e+01_rb/)\n      kbo(:, 4,41,13) = (/ &\n     &8.6738e+04_rb,6.5054e+04_rb,4.3370e+04_rb,2.1685e+04_rb,2.7771e+01_rb/)\n      kbo(:, 5,41,13) = (/ &\n     &9.7338e+04_rb,7.3004e+04_rb,4.8670e+04_rb,2.4335e+04_rb,2.6481e+01_rb/)\n      kbo(:, 1,42,13) = (/ &\n     &5.9574e+04_rb,4.4680e+04_rb,2.9787e+04_rb,1.4894e+04_rb,3.1338e+01_rb/)\n      kbo(:, 2,42,13) = (/ &\n     &6.9874e+04_rb,5.2405e+04_rb,3.4937e+04_rb,1.7469e+04_rb,3.0066e+01_rb/)\n      kbo(:, 3,42,13) = (/ &\n     &8.1118e+04_rb,6.0839e+04_rb,4.0559e+04_rb,2.0280e+04_rb,2.9330e+01_rb/)\n      kbo(:, 4,42,13) = (/ &\n     &9.2915e+04_rb,6.9686e+04_rb,4.6457e+04_rb,2.3229e+04_rb,2.8281e+01_rb/)\n      kbo(:, 5,42,13) = (/ &\n     &1.0485e+05_rb,7.8636e+04_rb,5.2424e+04_rb,2.6212e+04_rb,2.6956e+01_rb/)\n      kbo(:, 1,43,13) = (/ &\n     &6.2565e+04_rb,4.6924e+04_rb,3.1283e+04_rb,1.5642e+04_rb,3.1947e+01_rb/)\n      kbo(:, 2,43,13) = (/ &\n     &7.3881e+04_rb,5.5411e+04_rb,3.6941e+04_rb,1.8471e+04_rb,3.0710e+01_rb/)\n      kbo(:, 3,43,13) = (/ &\n     &8.6376e+04_rb,6.4783e+04_rb,4.3189e+04_rb,2.1595e+04_rb,2.9823e+01_rb/)\n      kbo(:, 4,43,13) = (/ &\n     &9.9633e+04_rb,7.4725e+04_rb,4.9817e+04_rb,2.4909e+04_rb,2.8916e+01_rb/)\n      kbo(:, 5,43,13) = (/ &\n     &1.1317e+05_rb,8.4879e+04_rb,5.6586e+04_rb,2.8294e+04_rb,2.7433e+01_rb/)\n      kbo(:, 1,44,13) = (/ &\n     &6.6377e+04_rb,4.9783e+04_rb,3.3188e+04_rb,1.6595e+04_rb,3.2537e+01_rb/)\n      kbo(:, 2,44,13) = (/ &\n     &7.8875e+04_rb,5.9156e+04_rb,3.9437e+04_rb,1.9719e+04_rb,3.1463e+01_rb/)\n      kbo(:, 3,44,13) = (/ &\n     &9.2826e+04_rb,6.9619e+04_rb,4.6413e+04_rb,2.3207e+04_rb,3.0339e+01_rb/)\n      kbo(:, 4,44,13) = (/ &\n     &1.0782e+05_rb,8.0864e+04_rb,5.3909e+04_rb,2.6955e+04_rb,2.9519e+01_rb/)\n      kbo(:, 5,44,13) = (/ &\n     &1.2335e+05_rb,9.2508e+04_rb,6.1672e+04_rb,3.0836e+04_rb,2.7886e+01_rb/)\n      kbo(:, 1,45,13) = (/ &\n     &7.1874e+04_rb,5.3905e+04_rb,3.5937e+04_rb,1.7969e+04_rb,3.3146e+01_rb/)\n      kbo(:, 2,45,13) = (/ &\n     &8.5887e+04_rb,6.4415e+04_rb,4.2944e+04_rb,2.1472e+04_rb,3.2123e+01_rb/)\n      kbo(:, 3,45,13) = (/ &\n     &1.0168e+05_rb,7.6262e+04_rb,5.0841e+04_rb,2.5421e+04_rb,3.0727e+01_rb/)\n      kbo(:, 4,45,13) = (/ &\n     &1.1891e+05_rb,8.9181e+04_rb,5.9454e+04_rb,2.9727e+04_rb,3.0052e+01_rb/)\n      kbo(:, 5,45,13) = (/ &\n     &1.3695e+05_rb,1.0272e+05_rb,6.8477e+04_rb,3.4239e+04_rb,2.8423e+01_rb/)\n      kbo(:, 1,46,13) = (/ &\n     &7.8328e+04_rb,5.8747e+04_rb,3.9165e+04_rb,1.9583e+04_rb,3.3800e+01_rb/)\n      kbo(:, 2,46,13) = (/ &\n     &9.4082e+04_rb,7.0562e+04_rb,4.7041e+04_rb,2.3521e+04_rb,3.2751e+01_rb/)\n      kbo(:, 3,46,13) = (/ &\n     &1.1205e+05_rb,8.4041e+04_rb,5.6028e+04_rb,2.8014e+04_rb,3.1210e+01_rb/)\n      kbo(:, 4,46,13) = (/ &\n     &1.3188e+05_rb,9.8910e+04_rb,6.5940e+04_rb,3.2971e+04_rb,3.0670e+01_rb/)\n      kbo(:, 5,46,13) = (/ &\n     &1.5296e+05_rb,1.1472e+05_rb,7.6478e+04_rb,3.8239e+04_rb,2.9020e+01_rb/)\n      kbo(:, 1,47,13) = (/ &\n     &8.3810e+04_rb,6.2858e+04_rb,4.1906e+04_rb,2.0953e+04_rb,3.4456e+01_rb/)\n      kbo(:, 2,47,13) = (/ &\n     &1.0129e+05_rb,7.5968e+04_rb,5.0646e+04_rb,2.5323e+04_rb,3.3326e+01_rb/)\n      kbo(:, 3,47,13) = (/ &\n     &1.2133e+05_rb,9.0998e+04_rb,6.0666e+04_rb,3.0333e+04_rb,3.1897e+01_rb/)\n      kbo(:, 4,47,13) = (/ &\n     &1.4374e+05_rb,1.0781e+05_rb,7.1871e+04_rb,3.5936e+04_rb,3.1165e+01_rb/)\n      kbo(:, 5,47,13) = (/ &\n     &1.6790e+05_rb,1.2593e+05_rb,8.3952e+04_rb,4.1976e+04_rb,2.9653e+01_rb/)\n      kbo(:, 1,48,13) = (/ &\n     &9.2009e+04_rb,6.9007e+04_rb,4.6005e+04_rb,2.3003e+04_rb,3.5004e+01_rb/)\n      kbo(:, 2,48,13) = (/ &\n     &1.1207e+05_rb,8.4051e+04_rb,5.6034e+04_rb,2.8018e+04_rb,3.3918e+01_rb/)\n      kbo(:, 3,48,13) = (/ &\n     &1.3494e+05_rb,1.0121e+05_rb,6.7471e+04_rb,3.3736e+04_rb,3.2425e+01_rb/)\n      kbo(:, 4,48,13) = (/ &\n     &1.6083e+05_rb,1.2063e+05_rb,8.0418e+04_rb,4.0210e+04_rb,3.1652e+01_rb/)\n      kbo(:, 5,48,13) = (/ &\n     &1.8920e+05_rb,1.4190e+05_rb,9.4599e+04_rb,4.7300e+04_rb,3.0396e+01_rb/)\n      kbo(:, 1,49,13) = (/ &\n     &1.0515e+05_rb,7.8866e+04_rb,5.2577e+04_rb,2.6289e+04_rb,3.5598e+01_rb/)\n      kbo(:, 2,49,13) = (/ &\n     &1.2899e+05_rb,9.6745e+04_rb,6.4497e+04_rb,3.2249e+04_rb,3.4541e+01_rb/)\n      kbo(:, 3,49,13) = (/ &\n     &1.5618e+05_rb,1.1714e+05_rb,7.8092e+04_rb,3.9046e+04_rb,3.3166e+01_rb/)\n      kbo(:, 4,49,13) = (/ &\n     &1.8721e+05_rb,1.4041e+05_rb,9.3606e+04_rb,4.6803e+04_rb,3.2127e+01_rb/)\n      kbo(:, 5,49,13) = (/ &\n     &2.2166e+05_rb,1.6624e+05_rb,1.1083e+05_rb,5.5414e+04_rb,3.1114e+01_rb/)\n      kbo(:, 1,50,13) = (/ &\n     &1.1492e+05_rb,8.6190e+04_rb,5.7460e+04_rb,2.8730e+04_rb,3.5920e+01_rb/)\n      kbo(:, 2,50,13) = (/ &\n     &1.4177e+05_rb,1.0633e+05_rb,7.0884e+04_rb,3.5442e+04_rb,3.5009e+01_rb/)\n      kbo(:, 3,50,13) = (/ &\n     &1.7284e+05_rb,1.2963e+05_rb,8.6422e+04_rb,4.3212e+04_rb,3.3840e+01_rb/)\n      kbo(:, 4,50,13) = (/ &\n     &2.0816e+05_rb,1.5612e+05_rb,1.0408e+05_rb,5.2042e+04_rb,3.2614e+01_rb/)\n      kbo(:, 5,50,13) = (/ &\n     &2.4789e+05_rb,1.8591e+05_rb,1.2394e+05_rb,6.1972e+04_rb,3.1787e+01_rb/)\n      kbo(:, 1,51,13) = (/ &\n     &1.2316e+05_rb,9.2372e+04_rb,6.1582e+04_rb,3.0791e+04_rb,3.6248e+01_rb/)\n      kbo(:, 2,51,13) = (/ &\n     &1.5257e+05_rb,1.1443e+05_rb,7.6284e+04_rb,3.8142e+04_rb,3.5464e+01_rb/)\n      kbo(:, 3,51,13) = (/ &\n     &1.8735e+05_rb,1.4051e+05_rb,9.3677e+04_rb,4.6839e+04_rb,3.4431e+01_rb/)\n      kbo(:, 4,51,13) = (/ &\n     &2.2663e+05_rb,1.6997e+05_rb,1.1332e+05_rb,5.6659e+04_rb,3.2971e+01_rb/)\n      kbo(:, 5,51,13) = (/ &\n     &2.7128e+05_rb,2.0346e+05_rb,1.3564e+05_rb,6.7820e+04_rb,3.2477e+01_rb/)\n      kbo(:, 1,52,13) = (/ &\n     &1.3564e+05_rb,1.0173e+05_rb,6.7822e+04_rb,3.3911e+04_rb,3.6511e+01_rb/)\n      kbo(:, 2,52,13) = (/ &\n     &1.6873e+05_rb,1.2655e+05_rb,8.4367e+04_rb,4.2184e+04_rb,3.5955e+01_rb/)\n      kbo(:, 3,52,13) = (/ &\n     &2.0841e+05_rb,1.5631e+05_rb,1.0421e+05_rb,5.2104e+04_rb,3.4988e+01_rb/)\n      kbo(:, 4,52,13) = (/ &\n     &2.5356e+05_rb,1.9017e+05_rb,1.2678e+05_rb,6.3390e+04_rb,3.3412e+01_rb/)\n      kbo(:, 5,52,13) = (/ &\n     &3.0501e+05_rb,2.2876e+05_rb,1.5250e+05_rb,7.6253e+04_rb,3.3108e+01_rb/)\n      kbo(:, 1,53,13) = (/ &\n     &1.5552e+05_rb,1.1664e+05_rb,7.7762e+04_rb,3.8882e+04_rb,3.6856e+01_rb/)\n      kbo(:, 2,53,13) = (/ &\n     &1.9425e+05_rb,1.4569e+05_rb,9.7128e+04_rb,4.8565e+04_rb,3.6432e+01_rb/)\n      kbo(:, 3,53,13) = (/ &\n     &2.4103e+05_rb,1.8077e+05_rb,1.2051e+05_rb,6.0258e+04_rb,3.5535e+01_rb/)\n      kbo(:, 4,53,13) = (/ &\n     &2.9532e+05_rb,2.2149e+05_rb,1.4766e+05_rb,7.3832e+04_rb,3.3878e+01_rb/)\n      kbo(:, 5,53,13) = (/ &\n     &3.5673e+05_rb,2.6755e+05_rb,1.7837e+05_rb,8.9184e+04_rb,3.3830e+01_rb/)\n      kbo(:, 1,54,13) = (/ &\n     &1.5519e+05_rb,1.1639e+05_rb,7.7595e+04_rb,3.8798e+04_rb,3.7137e+01_rb/)\n      kbo(:, 2,54,13) = (/ &\n     &1.9455e+05_rb,1.4591e+05_rb,9.7277e+04_rb,4.8639e+04_rb,3.6719e+01_rb/)\n      kbo(:, 3,54,13) = (/ &\n     &2.4223e+05_rb,1.8167e+05_rb,1.2111e+05_rb,6.0558e+04_rb,3.5737e+01_rb/)\n      kbo(:, 4,54,13) = (/ &\n     &2.9863e+05_rb,2.2398e+05_rb,1.4932e+05_rb,7.4660e+04_rb,3.4182e+01_rb/)\n      kbo(:, 5,54,13) = (/ &\n     &3.6225e+05_rb,2.7169e+05_rb,1.8113e+05_rb,9.0564e+04_rb,3.4090e+01_rb/)\n      kbo(:, 1,55,13) = (/ &\n     &1.4179e+05_rb,1.0634e+05_rb,7.0895e+04_rb,3.5448e+04_rb,3.7500e+01_rb/)\n      kbo(:, 2,55,13) = (/ &\n     &1.7805e+05_rb,1.3354e+05_rb,8.9025e+04_rb,4.4513e+04_rb,3.6673e+01_rb/)\n      kbo(:, 3,55,13) = (/ &\n     &2.2250e+05_rb,1.6688e+05_rb,1.1125e+05_rb,5.5626e+04_rb,3.6002e+01_rb/)\n      kbo(:, 4,55,13) = (/ &\n     &2.7565e+05_rb,2.0674e+05_rb,1.3783e+05_rb,6.8913e+04_rb,3.4967e+01_rb/)\n      kbo(:, 5,55,13) = (/ &\n     &3.3613e+05_rb,2.5210e+05_rb,1.6807e+05_rb,8.4034e+04_rb,3.3605e+01_rb/)\n      kbo(:, 1,56,13) = (/ &\n     &1.2955e+05_rb,9.7160e+04_rb,6.4773e+04_rb,3.2387e+04_rb,3.7592e+01_rb/)\n      kbo(:, 2,56,13) = (/ &\n     &1.6291e+05_rb,1.2218e+05_rb,8.1452e+04_rb,4.0726e+04_rb,3.6892e+01_rb/)\n      kbo(:, 3,56,13) = (/ &\n     &2.0430e+05_rb,1.5322e+05_rb,1.0215e+05_rb,5.1074e+04_rb,3.6401e+01_rb/)\n      kbo(:, 4,56,13) = (/ &\n     &2.5407e+05_rb,1.9055e+05_rb,1.2704e+05_rb,6.3518e+04_rb,3.5416e+01_rb/)\n      kbo(:, 5,56,13) = (/ &\n     &3.1173e+05_rb,2.3380e+05_rb,1.5586e+05_rb,7.7932e+04_rb,3.3725e+01_rb/)\n      kbo(:, 1,57,13) = (/ &\n     &1.1844e+05_rb,8.8830e+04_rb,5.9220e+04_rb,2.9610e+04_rb,3.7590e+01_rb/)\n      kbo(:, 2,57,13) = (/ &\n     &1.4902e+05_rb,1.1176e+05_rb,7.4508e+04_rb,3.7254e+04_rb,3.7340e+01_rb/)\n      kbo(:, 3,57,13) = (/ &\n     &1.8747e+05_rb,1.4060e+05_rb,9.3736e+04_rb,4.6868e+04_rb,3.6437e+01_rb/)\n      kbo(:, 4,57,13) = (/ &\n     &2.3395e+05_rb,1.7546e+05_rb,1.1697e+05_rb,5.8487e+04_rb,3.5598e+01_rb/)\n      kbo(:, 5,57,13) = (/ &\n     &2.8870e+05_rb,2.1653e+05_rb,1.4435e+05_rb,7.2175e+04_rb,3.4562e+01_rb/)\n      kbo(:, 1,58,13) = (/ &\n     &2.8654e+04_rb,2.6272e+04_rb,2.2526e+04_rb,1.5777e+04_rb,3.7286e+01_rb/)\n      kbo(:, 2,58,13) = (/ &\n     &3.6090e+04_rb,3.3089e+04_rb,2.8371e+04_rb,1.9871e+04_rb,3.7547e+01_rb/)\n      kbo(:, 3,58,13) = (/ &\n     &4.5492e+04_rb,4.1710e+04_rb,3.5762e+04_rb,2.5048e+04_rb,3.6650e+01_rb/)\n      kbo(:, 4,58,13) = (/ &\n     &5.6953e+04_rb,5.2217e+04_rb,4.4772e+04_rb,3.1358e+04_rb,3.6005e+01_rb/)\n      kbo(:, 5,58,13) = (/ &\n     &7.0617e+04_rb,6.4745e+04_rb,5.5513e+04_rb,3.8881e+04_rb,3.4983e+01_rb/)\n      kbo(:, 1,59,13) = (/ &\n     &3.2425e+04_rb,2.8312e+04_rb,2.2583e+04_rb,1.4053e+04_rb,3.7337e+01_rb/)\n      kbo(:, 2,59,13) = (/ &\n     &4.0874e+04_rb,3.5689e+04_rb,2.8468e+04_rb,1.7715e+04_rb,3.7354e+01_rb/)\n      kbo(:, 3,59,13) = (/ &\n     &5.1569e+04_rb,4.5029e+04_rb,3.5917e+04_rb,2.2350e+04_rb,3.7146e+01_rb/)\n      kbo(:, 4,59,13) = (/ &\n     &6.4659e+04_rb,5.6458e+04_rb,4.5034e+04_rb,2.8023e+04_rb,3.5794e+01_rb/)\n      kbo(:, 5,59,13) = (/ &\n     &8.0312e+04_rb,7.0125e+04_rb,5.5936e+04_rb,3.4807e+04_rb,3.4858e+01_rb/)\n      kbo(:, 1,13,14) = (/ &\n     &5.5354e+05_rb,4.1516e+05_rb,2.7677e+05_rb,1.3839e+05_rb,6.6359e+00_rb/)\n      kbo(:, 2,13,14) = (/ &\n     &5.3662e+05_rb,4.0247e+05_rb,2.6831e+05_rb,1.3416e+05_rb,6.3521e+00_rb/)\n      kbo(:, 3,13,14) = (/ &\n     &5.2321e+05_rb,3.9241e+05_rb,2.6161e+05_rb,1.3080e+05_rb,6.1777e+00_rb/)\n      kbo(:, 4,13,14) = (/ &\n     &5.1223e+05_rb,3.8417e+05_rb,2.5612e+05_rb,1.2806e+05_rb,5.8113e+00_rb/)\n      kbo(:, 5,13,14) = (/ &\n     &5.0254e+05_rb,3.7690e+05_rb,2.5127e+05_rb,1.2564e+05_rb,5.1461e+00_rb/)\n      kbo(:, 1,14,14) = (/ &\n     &3.6531e+05_rb,2.7398e+05_rb,1.8265e+05_rb,9.1327e+04_rb,7.3146e+00_rb/)\n      kbo(:, 2,14,14) = (/ &\n     &3.5777e+05_rb,2.6833e+05_rb,1.7888e+05_rb,8.9442e+04_rb,7.0661e+00_rb/)\n      kbo(:, 3,14,14) = (/ &\n     &3.5166e+05_rb,2.6375e+05_rb,1.7583e+05_rb,8.7915e+04_rb,6.6597e+00_rb/)\n      kbo(:, 4,14,14) = (/ &\n     &3.4675e+05_rb,2.6006e+05_rb,1.7337e+05_rb,8.6687e+04_rb,6.5607e+00_rb/)\n      kbo(:, 5,14,14) = (/ &\n     &3.4224e+05_rb,2.5668e+05_rb,1.7112e+05_rb,8.5559e+04_rb,6.0728e+00_rb/)\n      kbo(:, 1,15,14) = (/ &\n     &2.5038e+05_rb,1.8779e+05_rb,1.2519e+05_rb,6.2598e+04_rb,8.1437e+00_rb/)\n      kbo(:, 2,15,14) = (/ &\n     &2.4740e+05_rb,1.8555e+05_rb,1.2370e+05_rb,6.1853e+04_rb,7.8645e+00_rb/)\n      kbo(:, 3,15,14) = (/ &\n     &2.4508e+05_rb,1.8381e+05_rb,1.2254e+05_rb,6.1272e+04_rb,7.4907e+00_rb/)\n      kbo(:, 4,15,14) = (/ &\n     &2.4271e+05_rb,1.8203e+05_rb,1.2136e+05_rb,6.0680e+04_rb,7.2641e+00_rb/)\n      kbo(:, 5,15,14) = (/ &\n     &2.4052e+05_rb,1.8039e+05_rb,1.2026e+05_rb,6.0131e+04_rb,7.0682e+00_rb/)\n      kbo(:, 1,16,14) = (/ &\n     &2.0782e+05_rb,1.5587e+05_rb,1.0391e+05_rb,5.1957e+04_rb,9.0703e+00_rb/)\n      kbo(:, 2,16,14) = (/ &\n     &2.0661e+05_rb,1.5496e+05_rb,1.0331e+05_rb,5.1654e+04_rb,8.7622e+00_rb/)\n      kbo(:, 3,16,14) = (/ &\n     &2.0513e+05_rb,1.5385e+05_rb,1.0257e+05_rb,5.1284e+04_rb,8.4635e+00_rb/)\n      kbo(:, 4,16,14) = (/ &\n     &2.0374e+05_rb,1.5280e+05_rb,1.0187e+05_rb,5.0936e+04_rb,8.1015e+00_rb/)\n      kbo(:, 5,16,14) = (/ &\n     &2.0191e+05_rb,1.5143e+05_rb,1.0096e+05_rb,5.0479e+04_rb,7.9045e+00_rb/)\n      kbo(:, 1,17,14) = (/ &\n     &1.8037e+05_rb,1.3528e+05_rb,9.0185e+04_rb,4.5093e+04_rb,1.0108e+01_rb/)\n      kbo(:, 2,17,14) = (/ &\n     &1.7972e+05_rb,1.3479e+05_rb,8.9862e+04_rb,4.4932e+04_rb,9.7857e+00_rb/)\n      kbo(:, 3,17,14) = (/ &\n     &1.7906e+05_rb,1.3430e+05_rb,8.9533e+04_rb,4.4767e+04_rb,9.4761e+00_rb/)\n      kbo(:, 4,17,14) = (/ &\n     &1.7788e+05_rb,1.3341e+05_rb,8.8942e+04_rb,4.4472e+04_rb,9.0551e+00_rb/)\n      kbo(:, 5,17,14) = (/ &\n     &1.7662e+05_rb,1.3247e+05_rb,8.8311e+04_rb,4.4156e+04_rb,8.8726e+00_rb/)\n      kbo(:, 1,18,14) = (/ &\n     &1.6160e+05_rb,1.2120e+05_rb,8.0801e+04_rb,4.0401e+04_rb,1.1327e+01_rb/)\n      kbo(:, 2,18,14) = (/ &\n     &1.6141e+05_rb,1.2106e+05_rb,8.0704e+04_rb,4.0353e+04_rb,1.1010e+01_rb/)\n      kbo(:, 3,18,14) = (/ &\n     &1.6076e+05_rb,1.2057e+05_rb,8.0382e+04_rb,4.0192e+04_rb,1.0693e+01_rb/)\n      kbo(:, 4,18,14) = (/ &\n     &1.6001e+05_rb,1.2001e+05_rb,8.0005e+04_rb,4.0003e+04_rb,1.0193e+01_rb/)\n      kbo(:, 5,18,14) = (/ &\n     &1.5881e+05_rb,1.1911e+05_rb,7.9406e+04_rb,3.9704e+04_rb,1.0071e+01_rb/)\n      kbo(:, 1,19,14) = (/ &\n     &1.4270e+05_rb,1.0702e+05_rb,7.1350e+04_rb,3.5676e+04_rb,1.2821e+01_rb/)\n      kbo(:, 2,19,14) = (/ &\n     &1.4247e+05_rb,1.0685e+05_rb,7.1236e+04_rb,3.5619e+04_rb,1.2498e+01_rb/)\n      kbo(:, 3,19,14) = (/ &\n     &1.4204e+05_rb,1.0653e+05_rb,7.1022e+04_rb,3.5511e+04_rb,1.2171e+01_rb/)\n      kbo(:, 4,19,14) = (/ &\n     &1.4126e+05_rb,1.0594e+05_rb,7.0629e+04_rb,3.5315e+04_rb,1.1680e+01_rb/)\n      kbo(:, 5,19,14) = (/ &\n     &1.4024e+05_rb,1.0518e+05_rb,7.0119e+04_rb,3.5060e+04_rb,1.1491e+01_rb/)\n      kbo(:, 1,20,14) = (/ &\n     &1.3563e+05_rb,1.0173e+05_rb,6.7817e+04_rb,3.3909e+04_rb,1.4618e+01_rb/)\n      kbo(:, 2,20,14) = (/ &\n     &1.3541e+05_rb,1.0156e+05_rb,6.7708e+04_rb,3.3855e+04_rb,1.4263e+01_rb/)\n      kbo(:, 3,20,14) = (/ &\n     &1.3484e+05_rb,1.0113e+05_rb,6.7419e+04_rb,3.3710e+04_rb,1.3906e+01_rb/)\n      kbo(:, 4,20,14) = (/ &\n     &1.3404e+05_rb,1.0053e+05_rb,6.7023e+04_rb,3.3512e+04_rb,1.3385e+01_rb/)\n      kbo(:, 5,20,14) = (/ &\n     &1.3293e+05_rb,9.9699e+04_rb,6.6466e+04_rb,3.3234e+04_rb,1.3122e+01_rb/)\n      kbo(:, 1,21,14) = (/ &\n     &1.3198e+05_rb,9.8983e+04_rb,6.5989e+04_rb,3.2995e+04_rb,1.6661e+01_rb/)\n      kbo(:, 2,21,14) = (/ &\n     &1.3158e+05_rb,9.8688e+04_rb,6.5792e+04_rb,3.2897e+04_rb,1.6248e+01_rb/)\n      kbo(:, 3,21,14) = (/ &\n     &1.3094e+05_rb,9.8202e+04_rb,6.5468e+04_rb,3.2735e+04_rb,1.5812e+01_rb/)\n      kbo(:, 4,21,14) = (/ &\n     &1.3001e+05_rb,9.7504e+04_rb,6.5003e+04_rb,3.2502e+04_rb,1.5225e+01_rb/)\n      kbo(:, 5,21,14) = (/ &\n     &1.2884e+05_rb,9.6632e+04_rb,6.4422e+04_rb,3.2211e+04_rb,1.4867e+01_rb/)\n      kbo(:, 1,22,14) = (/ &\n     &1.3028e+05_rb,9.7707e+04_rb,6.5139e+04_rb,3.2570e+04_rb,1.8806e+01_rb/)\n      kbo(:, 2,22,14) = (/ &\n     &1.2981e+05_rb,9.7355e+04_rb,6.4904e+04_rb,3.2452e+04_rb,1.8310e+01_rb/)\n      kbo(:, 3,22,14) = (/ &\n     &1.2902e+05_rb,9.6763e+04_rb,6.4509e+04_rb,3.2255e+04_rb,1.7798e+01_rb/)\n      kbo(:, 4,22,14) = (/ &\n     &1.2795e+05_rb,9.5966e+04_rb,6.3978e+04_rb,3.1989e+04_rb,1.7136e+01_rb/)\n      kbo(:, 5,22,14) = (/ &\n     &1.2666e+05_rb,9.4996e+04_rb,6.3331e+04_rb,3.1666e+04_rb,1.6711e+01_rb/)\n      kbo(:, 1,23,14) = (/ &\n     &1.2794e+05_rb,9.5952e+04_rb,6.3968e+04_rb,3.1985e+04_rb,2.1073e+01_rb/)\n      kbo(:, 2,23,14) = (/ &\n     &1.2735e+05_rb,9.5515e+04_rb,6.3677e+04_rb,3.1839e+04_rb,2.0511e+01_rb/)\n      kbo(:, 3,23,14) = (/ &\n     &1.2647e+05_rb,9.4850e+04_rb,6.3234e+04_rb,3.1617e+04_rb,1.9930e+01_rb/)\n      kbo(:, 4,23,14) = (/ &\n     &1.2537e+05_rb,9.4025e+04_rb,6.2684e+04_rb,3.1342e+04_rb,1.9174e+01_rb/)\n      kbo(:, 5,23,14) = (/ &\n     &1.2398e+05_rb,9.2985e+04_rb,6.1990e+04_rb,3.0996e+04_rb,1.8667e+01_rb/)\n      kbo(:, 1,24,14) = (/ &\n     &1.2343e+05_rb,9.2570e+04_rb,6.1714e+04_rb,3.0858e+04_rb,2.3485e+01_rb/)\n      kbo(:, 2,24,14) = (/ &\n     &1.2276e+05_rb,9.2074e+04_rb,6.1383e+04_rb,3.0692e+04_rb,2.2824e+01_rb/)\n      kbo(:, 3,24,14) = (/ &\n     &1.2194e+05_rb,9.1458e+04_rb,6.0973e+04_rb,3.0487e+04_rb,2.2153e+01_rb/)\n      kbo(:, 4,24,14) = (/ &\n     &1.2080e+05_rb,9.0601e+04_rb,6.0401e+04_rb,3.0201e+04_rb,2.1291e+01_rb/)\n      kbo(:, 5,24,14) = (/ &\n     &1.1949e+05_rb,8.9617e+04_rb,5.9745e+04_rb,2.9873e+04_rb,2.0633e+01_rb/)\n      kbo(:, 1,25,14) = (/ &\n     &1.1905e+05_rb,8.9291e+04_rb,5.9528e+04_rb,2.9764e+04_rb,2.5966e+01_rb/)\n      kbo(:, 2,25,14) = (/ &\n     &1.1853e+05_rb,8.8894e+04_rb,5.9263e+04_rb,2.9632e+04_rb,2.5184e+01_rb/)\n      kbo(:, 3,25,14) = (/ &\n     &1.1769e+05_rb,8.8271e+04_rb,5.8848e+04_rb,2.9424e+04_rb,2.4373e+01_rb/)\n      kbo(:, 4,25,14) = (/ &\n     &1.1666e+05_rb,8.7497e+04_rb,5.8331e+04_rb,2.9166e+04_rb,2.3367e+01_rb/)\n      kbo(:, 5,25,14) = (/ &\n     &1.1542e+05_rb,8.6565e+04_rb,5.7710e+04_rb,2.8855e+04_rb,2.2586e+01_rb/)\n      kbo(:, 1,26,14) = (/ &\n     &1.1553e+05_rb,8.6651e+04_rb,5.7768e+04_rb,2.8884e+04_rb,2.8441e+01_rb/)\n      kbo(:, 2,26,14) = (/ &\n     &1.1511e+05_rb,8.6329e+04_rb,5.7553e+04_rb,2.8777e+04_rb,2.7500e+01_rb/)\n      kbo(:, 3,26,14) = (/ &\n     &1.1443e+05_rb,8.5820e+04_rb,5.7213e+04_rb,2.8607e+04_rb,2.6532e+01_rb/)\n      kbo(:, 4,26,14) = (/ &\n     &1.1356e+05_rb,8.5172e+04_rb,5.6781e+04_rb,2.8391e+04_rb,2.5362e+01_rb/)\n      kbo(:, 5,26,14) = (/ &\n     &1.1241e+05_rb,8.4309e+04_rb,5.6206e+04_rb,2.8103e+04_rb,2.4468e+01_rb/)\n      kbo(:, 1,27,14) = (/ &\n     &1.1545e+05_rb,8.6587e+04_rb,5.7725e+04_rb,2.8863e+04_rb,3.0839e+01_rb/)\n      kbo(:, 2,27,14) = (/ &\n     &1.1514e+05_rb,8.6352e+04_rb,5.7568e+04_rb,2.8785e+04_rb,2.9713e+01_rb/)\n      kbo(:, 3,27,14) = (/ &\n     &1.1466e+05_rb,8.5998e+04_rb,5.7332e+04_rb,2.8667e+04_rb,2.8580e+01_rb/)\n      kbo(:, 4,27,14) = (/ &\n     &1.1391e+05_rb,8.5436e+04_rb,5.6958e+04_rb,2.8479e+04_rb,2.7213e+01_rb/)\n      kbo(:, 5,27,14) = (/ &\n     &1.1293e+05_rb,8.4701e+04_rb,5.6467e+04_rb,2.8234e+04_rb,2.6212e+01_rb/)\n      kbo(:, 1,28,14) = (/ &\n     &1.1769e+05_rb,8.8268e+04_rb,5.8845e+04_rb,2.9423e+04_rb,3.3091e+01_rb/)\n      kbo(:, 2,28,14) = (/ &\n     &1.1765e+05_rb,8.8234e+04_rb,5.8823e+04_rb,2.9412e+04_rb,3.1766e+01_rb/)\n      kbo(:, 3,28,14) = (/ &\n     &1.1733e+05_rb,8.7997e+04_rb,5.8665e+04_rb,2.9333e+04_rb,3.0463e+01_rb/)\n      kbo(:, 4,28,14) = (/ &\n     &1.1677e+05_rb,8.7580e+04_rb,5.8387e+04_rb,2.9194e+04_rb,2.8874e+01_rb/)\n      kbo(:, 5,28,14) = (/ &\n     &1.1593e+05_rb,8.6950e+04_rb,5.7967e+04_rb,2.8984e+04_rb,2.7821e+01_rb/)\n      kbo(:, 1,29,14) = (/ &\n     &1.2676e+05_rb,9.5071e+04_rb,6.3381e+04_rb,3.1691e+04_rb,3.5131e+01_rb/)\n      kbo(:, 2,29,14) = (/ &\n     &1.2709e+05_rb,9.5318e+04_rb,6.3545e+04_rb,3.1773e+04_rb,3.3613e+01_rb/)\n      kbo(:, 3,29,14) = (/ &\n     &1.2701e+05_rb,9.5260e+04_rb,6.3507e+04_rb,3.1754e+04_rb,3.1981e+01_rb/)\n      kbo(:, 4,29,14) = (/ &\n     &1.2660e+05_rb,9.4952e+04_rb,6.3301e+04_rb,3.1651e+04_rb,3.0369e+01_rb/)\n      kbo(:, 5,29,14) = (/ &\n     &1.2589e+05_rb,9.4414e+04_rb,6.2943e+04_rb,3.1472e+04_rb,2.9250e+01_rb/)\n      kbo(:, 1,30,14) = (/ &\n     &1.3959e+05_rb,1.0469e+05_rb,6.9793e+04_rb,3.4897e+04_rb,3.6931e+01_rb/)\n      kbo(:, 2,30,14) = (/ &\n     &1.4034e+05_rb,1.0525e+05_rb,7.0169e+04_rb,3.5085e+04_rb,3.5216e+01_rb/)\n      kbo(:, 3,30,14) = (/ &\n     &1.4057e+05_rb,1.0543e+05_rb,7.0285e+04_rb,3.5143e+04_rb,3.3253e+01_rb/)\n      kbo(:, 4,30,14) = (/ &\n     &1.4040e+05_rb,1.0530e+05_rb,7.0200e+04_rb,3.5100e+04_rb,3.1871e+01_rb/)\n      kbo(:, 5,30,14) = (/ &\n     &1.3970e+05_rb,1.0477e+05_rb,6.9850e+04_rb,3.4925e+04_rb,3.0435e+01_rb/)\n      kbo(:, 1,31,14) = (/ &\n     &1.6150e+05_rb,1.2112e+05_rb,8.0748e+04_rb,4.0374e+04_rb,3.8448e+01_rb/)\n      kbo(:, 2,31,14) = (/ &\n     &1.6274e+05_rb,1.2205e+05_rb,8.1369e+04_rb,4.0685e+04_rb,3.6340e+01_rb/)\n      kbo(:, 3,31,14) = (/ &\n     &1.6341e+05_rb,1.2256e+05_rb,8.1707e+04_rb,4.0854e+04_rb,3.4532e+01_rb/)\n      kbo(:, 4,31,14) = (/ &\n     &1.6341e+05_rb,1.2256e+05_rb,8.1706e+04_rb,4.0853e+04_rb,3.3032e+01_rb/)\n      kbo(:, 5,31,14) = (/ &\n     &1.6281e+05_rb,1.2211e+05_rb,8.1407e+04_rb,4.0704e+04_rb,3.1374e+01_rb/)\n      kbo(:, 1,32,14) = (/ &\n     &1.8902e+05_rb,1.4177e+05_rb,9.4511e+04_rb,4.7256e+04_rb,3.9673e+01_rb/)\n      kbo(:, 2,32,14) = (/ &\n     &1.9095e+05_rb,1.4322e+05_rb,9.5478e+04_rb,4.7739e+04_rb,3.7210e+01_rb/)\n      kbo(:, 3,32,14) = (/ &\n     &1.9208e+05_rb,1.4406e+05_rb,9.6041e+04_rb,4.8021e+04_rb,3.5668e+01_rb/)\n      kbo(:, 4,32,14) = (/ &\n     &1.9230e+05_rb,1.4423e+05_rb,9.6153e+04_rb,4.8077e+04_rb,3.3902e+01_rb/)\n      kbo(:, 5,32,14) = (/ &\n     &1.9178e+05_rb,1.4383e+05_rb,9.5890e+04_rb,4.7945e+04_rb,3.1255e+01_rb/)\n      kbo(:, 1,33,14) = (/ &\n     &2.2548e+05_rb,1.6911e+05_rb,1.1274e+05_rb,5.6370e+04_rb,4.0253e+01_rb/)\n      kbo(:, 2,33,14) = (/ &\n     &2.2820e+05_rb,1.7115e+05_rb,1.1410e+05_rb,5.7051e+04_rb,3.8356e+01_rb/)\n      kbo(:, 3,33,14) = (/ &\n     &2.2980e+05_rb,1.7235e+05_rb,1.1490e+05_rb,5.7450e+04_rb,3.6454e+01_rb/)\n      kbo(:, 4,33,14) = (/ &\n     &2.3033e+05_rb,1.7275e+05_rb,1.1517e+05_rb,5.7584e+04_rb,3.3797e+01_rb/)\n      kbo(:, 5,33,14) = (/ &\n     &2.2985e+05_rb,1.7239e+05_rb,1.1492e+05_rb,5.7463e+04_rb,3.1363e+01_rb/)\n      kbo(:, 1,34,14) = (/ &\n     &2.6250e+05_rb,1.9687e+05_rb,1.3125e+05_rb,6.5624e+04_rb,4.1136e+01_rb/)\n      kbo(:, 2,34,14) = (/ &\n     &2.6605e+05_rb,1.9954e+05_rb,1.3302e+05_rb,6.6512e+04_rb,3.9143e+01_rb/)\n      kbo(:, 3,34,14) = (/ &\n     &2.6820e+05_rb,2.0115e+05_rb,1.3410e+05_rb,6.7050e+04_rb,3.6807e+01_rb/)\n      kbo(:, 4,34,14) = (/ &\n     &2.6900e+05_rb,2.0175e+05_rb,1.3450e+05_rb,6.7251e+04_rb,3.3160e+01_rb/)\n      kbo(:, 5,34,14) = (/ &\n     &2.6861e+05_rb,2.0146e+05_rb,1.3431e+05_rb,6.7153e+04_rb,3.1344e+01_rb/)\n      kbo(:, 1,35,14) = (/ &\n     &3.0587e+05_rb,2.2940e+05_rb,1.5293e+05_rb,7.6467e+04_rb,4.2099e+01_rb/)\n      kbo(:, 2,35,14) = (/ &\n     &3.1048e+05_rb,2.3286e+05_rb,1.5524e+05_rb,7.7621e+04_rb,3.9785e+01_rb/)\n      kbo(:, 3,35,14) = (/ &\n     &3.1341e+05_rb,2.3506e+05_rb,1.5670e+05_rb,7.8352e+04_rb,3.6072e+01_rb/)\n      kbo(:, 4,35,14) = (/ &\n     &3.1462e+05_rb,2.3596e+05_rb,1.5731e+05_rb,7.8655e+04_rb,3.3490e+01_rb/)\n      kbo(:, 5,35,14) = (/ &\n     &3.1438e+05_rb,2.3579e+05_rb,1.5719e+05_rb,7.8596e+04_rb,3.1828e+01_rb/)\n      kbo(:, 1,36,14) = (/ &\n     &3.5380e+05_rb,2.6535e+05_rb,1.7690e+05_rb,8.8450e+04_rb,4.2948e+01_rb/)\n      kbo(:, 2,36,14) = (/ &\n     &3.5987e+05_rb,2.6990e+05_rb,1.7993e+05_rb,8.9967e+04_rb,3.9945e+01_rb/)\n      kbo(:, 3,36,14) = (/ &\n     &3.6383e+05_rb,2.7287e+05_rb,1.8191e+05_rb,9.0957e+04_rb,3.5908e+01_rb/)\n      kbo(:, 4,36,14) = (/ &\n     &3.6571e+05_rb,2.7429e+05_rb,1.8286e+05_rb,9.1429e+04_rb,3.3881e+01_rb/)\n      kbo(:, 5,36,14) = (/ &\n     &3.6576e+05_rb,2.7432e+05_rb,1.8288e+05_rb,9.1441e+04_rb,3.2580e+01_rb/)\n      kbo(:, 1,37,14) = (/ &\n     &3.9789e+05_rb,2.9842e+05_rb,1.9894e+05_rb,9.9472e+04_rb,4.3924e+01_rb/)\n      kbo(:, 2,37,14) = (/ &\n     &4.0582e+05_rb,3.0436e+05_rb,2.0291e+05_rb,1.0145e+05_rb,4.0613e+01_rb/)\n      kbo(:, 3,37,14) = (/ &\n     &4.1126e+05_rb,3.0845e+05_rb,2.0563e+05_rb,1.0282e+05_rb,3.6440e+01_rb/)\n      kbo(:, 4,37,14) = (/ &\n     &4.1422e+05_rb,3.1066e+05_rb,2.0711e+05_rb,1.0355e+05_rb,3.4966e+01_rb/)\n      kbo(:, 5,37,14) = (/ &\n     &4.1491e+05_rb,3.1118e+05_rb,2.0745e+05_rb,1.0373e+05_rb,3.3736e+01_rb/)\n      kbo(:, 1,38,14) = (/ &\n     &4.5404e+05_rb,3.4053e+05_rb,2.2702e+05_rb,1.1351e+05_rb,4.4908e+01_rb/)\n      kbo(:, 2,38,14) = (/ &\n     &4.6441e+05_rb,3.4830e+05_rb,2.3220e+05_rb,1.1610e+05_rb,4.0968e+01_rb/)\n      kbo(:, 3,38,14) = (/ &\n     &4.7167e+05_rb,3.5375e+05_rb,2.3583e+05_rb,1.1792e+05_rb,3.7185e+01_rb/)\n      kbo(:, 4,38,14) = (/ &\n     &4.7591e+05_rb,3.5693e+05_rb,2.3796e+05_rb,1.1898e+05_rb,3.5958e+01_rb/)\n      kbo(:, 5,38,14) = (/ &\n     &4.7747e+05_rb,3.5810e+05_rb,2.3873e+05_rb,1.1937e+05_rb,3.4345e+01_rb/)\n      kbo(:, 1,39,14) = (/ &\n     &5.3006e+05_rb,3.9755e+05_rb,2.6503e+05_rb,1.3252e+05_rb,4.5571e+01_rb/)\n      kbo(:, 2,39,14) = (/ &\n     &5.4370e+05_rb,4.0778e+05_rb,2.7185e+05_rb,1.3593e+05_rb,4.1350e+01_rb/)\n      kbo(:, 3,39,14) = (/ &\n     &5.5324e+05_rb,4.1494e+05_rb,2.7663e+05_rb,1.3831e+05_rb,3.8461e+01_rb/)\n      kbo(:, 4,39,14) = (/ &\n     &5.5931e+05_rb,4.1948e+05_rb,2.7966e+05_rb,1.3983e+05_rb,3.7172e+01_rb/)\n      kbo(:, 5,39,14) = (/ &\n     &5.6198e+05_rb,4.2149e+05_rb,2.8099e+05_rb,1.4050e+05_rb,3.5387e+01_rb/)\n      kbo(:, 1,40,14) = (/ &\n     &5.7962e+05_rb,4.3471e+05_rb,2.8981e+05_rb,1.4490e+05_rb,4.6708e+01_rb/)\n      kbo(:, 2,40,14) = (/ &\n     &5.9661e+05_rb,4.4745e+05_rb,2.9830e+05_rb,1.4915e+05_rb,4.2510e+01_rb/)\n      kbo(:, 3,40,14) = (/ &\n     &6.0879e+05_rb,4.5659e+05_rb,3.0439e+05_rb,1.5220e+05_rb,3.9273e+01_rb/)\n      kbo(:, 4,40,14) = (/ &\n     &6.1695e+05_rb,4.6271e+05_rb,3.0847e+05_rb,1.5424e+05_rb,3.8101e+01_rb/)\n      kbo(:, 5,40,14) = (/ &\n     &6.2122e+05_rb,4.6592e+05_rb,3.1061e+05_rb,1.5530e+05_rb,3.6493e+01_rb/)\n      kbo(:, 1,41,14) = (/ &\n     &6.3170e+05_rb,4.7378e+05_rb,3.1585e+05_rb,1.5793e+05_rb,4.7871e+01_rb/)\n      kbo(:, 2,41,14) = (/ &\n     &6.5265e+05_rb,4.8949e+05_rb,3.2633e+05_rb,1.6317e+05_rb,4.3729e+01_rb/)\n      kbo(:, 3,41,14) = (/ &\n     &6.6799e+05_rb,5.0099e+05_rb,3.3400e+05_rb,1.6700e+05_rb,4.0263e+01_rb/)\n      kbo(:, 4,41,14) = (/ &\n     &6.7856e+05_rb,5.0892e+05_rb,3.3928e+05_rb,1.6964e+05_rb,3.8971e+01_rb/)\n      kbo(:, 5,41,14) = (/ &\n     &6.8482e+05_rb,5.1361e+05_rb,3.4241e+05_rb,1.7121e+05_rb,3.7519e+01_rb/)\n      kbo(:, 1,42,14) = (/ &\n     &6.9554e+05_rb,5.2166e+05_rb,3.4777e+05_rb,1.7388e+05_rb,4.9144e+01_rb/)\n      kbo(:, 2,42,14) = (/ &\n     &7.2122e+05_rb,5.4091e+05_rb,3.6061e+05_rb,1.8030e+05_rb,4.4903e+01_rb/)\n      kbo(:, 3,42,14) = (/ &\n     &7.4054e+05_rb,5.5540e+05_rb,3.7027e+05_rb,1.8513e+05_rb,4.1239e+01_rb/)\n      kbo(:, 4,42,14) = (/ &\n     &7.5407e+05_rb,5.6555e+05_rb,3.7703e+05_rb,1.8852e+05_rb,4.0019e+01_rb/)\n      kbo(:, 5,42,14) = (/ &\n     &7.6271e+05_rb,5.7203e+05_rb,3.8135e+05_rb,1.9067e+05_rb,3.8545e+01_rb/)\n      kbo(:, 1,43,14) = (/ &\n     &7.7014e+05_rb,5.7761e+05_rb,3.8508e+05_rb,1.9254e+05_rb,5.0575e+01_rb/)\n      kbo(:, 2,43,14) = (/ &\n     &8.0215e+05_rb,6.0161e+05_rb,4.0108e+05_rb,2.0054e+05_rb,4.6180e+01_rb/)\n      kbo(:, 3,43,14) = (/ &\n     &8.2687e+05_rb,6.2015e+05_rb,4.1344e+05_rb,2.0672e+05_rb,4.2529e+01_rb/)\n      kbo(:, 4,43,14) = (/ &\n     &8.4441e+05_rb,6.3331e+05_rb,4.2221e+05_rb,2.1110e+05_rb,4.0958e+01_rb/)\n      kbo(:, 5,43,14) = (/ &\n     &8.5614e+05_rb,6.4211e+05_rb,4.2807e+05_rb,2.1404e+05_rb,3.9632e+01_rb/)\n      kbo(:, 1,44,14) = (/ &\n     &8.6239e+05_rb,6.4679e+05_rb,4.3119e+05_rb,2.1559e+05_rb,5.2080e+01_rb/)\n      kbo(:, 2,44,14) = (/ &\n     &9.0261e+05_rb,6.7696e+05_rb,4.5130e+05_rb,2.2565e+05_rb,4.7569e+01_rb/)\n      kbo(:, 3,44,14) = (/ &\n     &9.3442e+05_rb,7.0081e+05_rb,4.6721e+05_rb,2.3360e+05_rb,4.3904e+01_rb/)\n      kbo(:, 4,44,14) = (/ &\n     &9.5755e+05_rb,7.1816e+05_rb,4.7877e+05_rb,2.3938e+05_rb,4.2000e+01_rb/)\n      kbo(:, 5,44,14) = (/ &\n     &9.7341e+05_rb,7.3005e+05_rb,4.8670e+05_rb,2.4335e+05_rb,4.0861e+01_rb/)\n      kbo(:, 1,45,14) = (/ &\n     &9.8377e+05_rb,7.3783e+05_rb,4.9189e+05_rb,2.4594e+05_rb,5.3464e+01_rb/)\n      kbo(:, 2,45,14) = (/ &\n     &1.0352e+06_rb,7.7641e+05_rb,5.1760e+05_rb,2.5880e+05_rb,4.8989e+01_rb/)\n      kbo(:, 3,45,14) = (/ &\n     &1.0762e+06_rb,8.0713e+05_rb,5.3809e+05_rb,2.6904e+05_rb,4.5355e+01_rb/)\n      kbo(:, 4,45,14) = (/ &\n     &1.1070e+06_rb,8.3023e+05_rb,5.5349e+05_rb,2.7674e+05_rb,4.3217e+01_rb/)\n      kbo(:, 5,45,14) = (/ &\n     &1.1287e+06_rb,8.4649e+05_rb,5.6433e+05_rb,2.8216e+05_rb,4.1953e+01_rb/)\n      kbo(:, 1,46,14) = (/ &\n     &1.1307e+06_rb,8.4801e+05_rb,5.6534e+05_rb,2.8267e+05_rb,5.4903e+01_rb/)\n      kbo(:, 2,46,14) = (/ &\n     &1.1967e+06_rb,8.9750e+05_rb,5.9834e+05_rb,2.9917e+05_rb,5.0473e+01_rb/)\n      kbo(:, 3,46,14) = (/ &\n     &1.2497e+06_rb,9.3728e+05_rb,6.2485e+05_rb,3.1243e+05_rb,4.7017e+01_rb/)\n      kbo(:, 4,46,14) = (/ &\n     &1.2910e+06_rb,9.6823e+05_rb,6.4549e+05_rb,3.2274e+05_rb,4.4343e+01_rb/)\n      kbo(:, 5,46,14) = (/ &\n     &1.3205e+06_rb,9.9037e+05_rb,6.6025e+05_rb,3.3012e+05_rb,4.3085e+01_rb/)\n      kbo(:, 1,47,14) = (/ &\n     &1.2818e+06_rb,9.6133e+05_rb,6.4089e+05_rb,3.2045e+05_rb,5.6436e+01_rb/)\n      kbo(:, 2,47,14) = (/ &\n     &1.3655e+06_rb,1.0241e+06_rb,6.8273e+05_rb,3.4137e+05_rb,5.2412e+01_rb/)\n      kbo(:, 3,47,14) = (/ &\n     &1.4341e+06_rb,1.0756e+06_rb,7.1708e+05_rb,3.5854e+05_rb,4.8254e+01_rb/)\n      kbo(:, 4,47,14) = (/ &\n     &1.4885e+06_rb,1.1164e+06_rb,7.4427e+05_rb,3.7214e+05_rb,4.5497e+01_rb/)\n      kbo(:, 5,47,14) = (/ &\n     &1.5285e+06_rb,1.1464e+06_rb,7.6425e+05_rb,3.8213e+05_rb,4.4276e+01_rb/)\n      kbo(:, 1,48,14) = (/ &\n     &1.4912e+06_rb,1.1184e+06_rb,7.4558e+05_rb,3.7279e+05_rb,5.8070e+01_rb/)\n      kbo(:, 2,48,14) = (/ &\n     &1.5992e+06_rb,1.1994e+06_rb,7.9959e+05_rb,3.9979e+05_rb,5.4067e+01_rb/)\n      kbo(:, 3,48,14) = (/ &\n     &1.6898e+06_rb,1.2674e+06_rb,8.4492e+05_rb,4.2246e+05_rb,5.0095e+01_rb/)\n      kbo(:, 4,48,14) = (/ &\n     &1.7626e+06_rb,1.3220e+06_rb,8.8132e+05_rb,4.4066e+05_rb,4.6945e+01_rb/)\n      kbo(:, 5,48,14) = (/ &\n     &1.8180e+06_rb,1.3635e+06_rb,9.0900e+05_rb,4.5450e+05_rb,4.5438e+01_rb/)\n      kbo(:, 1,49,14) = (/ &\n     &1.8033e+06_rb,1.3525e+06_rb,9.0165e+05_rb,4.5083e+05_rb,5.9742e+01_rb/)\n      kbo(:, 2,49,14) = (/ &\n     &1.9472e+06_rb,1.4604e+06_rb,9.7361e+05_rb,4.8680e+05_rb,5.5654e+01_rb/)\n      kbo(:, 3,49,14) = (/ &\n     &2.0706e+06_rb,1.5529e+06_rb,1.0353e+06_rb,5.1764e+05_rb,5.1796e+01_rb/)\n      kbo(:, 4,49,14) = (/ &\n     &2.1711e+06_rb,1.6283e+06_rb,1.0855e+06_rb,5.4277e+05_rb,4.8429e+01_rb/)\n      kbo(:, 5,49,14) = (/ &\n     &2.2497e+06_rb,1.6872e+06_rb,1.1248e+06_rb,5.6241e+05_rb,4.6805e+01_rb/)\n      kbo(:, 1,50,14) = (/ &\n     &2.0759e+06_rb,1.5569e+06_rb,1.0379e+06_rb,5.1897e+05_rb,6.1720e+01_rb/)\n      kbo(:, 2,50,14) = (/ &\n     &2.2580e+06_rb,1.6935e+06_rb,1.1290e+06_rb,5.6451e+05_rb,5.7265e+01_rb/)\n      kbo(:, 3,50,14) = (/ &\n     &2.4154e+06_rb,1.8116e+06_rb,1.2077e+06_rb,6.0386e+05_rb,5.3335e+01_rb/)\n      kbo(:, 4,50,14) = (/ &\n     &2.5463e+06_rb,1.9097e+06_rb,1.2731e+06_rb,6.3657e+05_rb,5.0026e+01_rb/)\n      kbo(:, 5,50,14) = (/ &\n     &2.6508e+06_rb,1.9881e+06_rb,1.3254e+06_rb,6.6270e+05_rb,4.7879e+01_rb/)\n      kbo(:, 1,51,14) = (/ &\n     &2.3343e+06_rb,1.7507e+06_rb,1.1671e+06_rb,5.8357e+05_rb,6.3629e+01_rb/)\n      kbo(:, 2,51,14) = (/ &\n     &2.5583e+06_rb,1.9187e+06_rb,1.2791e+06_rb,6.3957e+05_rb,5.8823e+01_rb/)\n      kbo(:, 3,51,14) = (/ &\n     &2.7536e+06_rb,2.0652e+06_rb,1.3768e+06_rb,6.8840e+05_rb,5.4830e+01_rb/)\n      kbo(:, 4,51,14) = (/ &\n     &2.9192e+06_rb,2.1894e+06_rb,1.4596e+06_rb,7.2979e+05_rb,5.1797e+01_rb/)\n      kbo(:, 5,51,14) = (/ &\n     &3.0520e+06_rb,2.2890e+06_rb,1.5260e+06_rb,7.6300e+05_rb,4.8739e+01_rb/)\n      kbo(:, 1,52,14) = (/ &\n     &2.6927e+06_rb,2.0196e+06_rb,1.3464e+06_rb,6.7319e+05_rb,6.5473e+01_rb/)\n      kbo(:, 2,52,14) = (/ &\n     &2.9755e+06_rb,2.2317e+06_rb,1.4878e+06_rb,7.4389e+05_rb,6.0202e+01_rb/)\n      kbo(:, 3,52,14) = (/ &\n     &3.2232e+06_rb,2.4174e+06_rb,1.6116e+06_rb,8.0581e+05_rb,5.6406e+01_rb/)\n      kbo(:, 4,52,14) = (/ &\n     &3.4356e+06_rb,2.5767e+06_rb,1.7178e+06_rb,8.5891e+05_rb,5.3338e+01_rb/)\n      kbo(:, 5,52,14) = (/ &\n     &3.6105e+06_rb,2.7079e+06_rb,1.8053e+06_rb,9.0264e+05_rb,4.9535e+01_rb/)\n      kbo(:, 1,53,14) = (/ &\n     &3.2282e+06_rb,2.4212e+06_rb,1.6141e+06_rb,8.0707e+05_rb,6.7136e+01_rb/)\n      kbo(:, 2,53,14) = (/ &\n     &3.5968e+06_rb,2.6976e+06_rb,1.7984e+06_rb,8.9921e+05_rb,6.1503e+01_rb/)\n      kbo(:, 3,53,14) = (/ &\n     &3.9238e+06_rb,2.9429e+06_rb,1.9619e+06_rb,9.8097e+05_rb,5.8062e+01_rb/)\n      kbo(:, 4,53,14) = (/ &\n     &4.2071e+06_rb,3.1553e+06_rb,2.1035e+06_rb,1.0518e+06_rb,5.4982e+01_rb/)\n      kbo(:, 5,53,14) = (/ &\n     &4.4446e+06_rb,3.3334e+06_rb,2.2223e+06_rb,1.1112e+06_rb,5.0414e+01_rb/)\n      kbo(:, 1,54,14) = (/ &\n     &3.3478e+06_rb,2.5109e+06_rb,1.6739e+06_rb,8.3696e+05_rb,6.8647e+01_rb/)\n      kbo(:, 2,54,14) = (/ &\n     &3.7598e+06_rb,2.8199e+06_rb,1.8799e+06_rb,9.3996e+05_rb,6.3327e+01_rb/)\n      kbo(:, 3,54,14) = (/ &\n     &4.1308e+06_rb,3.0981e+06_rb,2.0654e+06_rb,1.0327e+06_rb,5.9705e+01_rb/)\n      kbo(:, 4,54,14) = (/ &\n     &4.4534e+06_rb,3.3401e+06_rb,2.2267e+06_rb,1.1134e+06_rb,5.5841e+01_rb/)\n      kbo(:, 5,54,14) = (/ &\n     &4.7287e+06_rb,3.5465e+06_rb,2.3644e+06_rb,1.1822e+06_rb,5.1312e+01_rb/)\n      kbo(:, 1,55,14) = (/ &\n     &3.1636e+06_rb,2.3727e+06_rb,1.5818e+06_rb,7.9090e+05_rb,6.9800e+01_rb/)\n      kbo(:, 2,55,14) = (/ &\n     &3.5827e+06_rb,2.6870e+06_rb,1.7914e+06_rb,8.9569e+05_rb,6.5650e+01_rb/)\n      kbo(:, 3,55,14) = (/ &\n     &3.9638e+06_rb,2.9728e+06_rb,1.9819e+06_rb,9.9095e+05_rb,6.0566e+01_rb/)\n      kbo(:, 4,55,14) = (/ &\n     &4.2985e+06_rb,3.2239e+06_rb,2.1493e+06_rb,1.0746e+06_rb,5.6657e+01_rb/)\n      kbo(:, 5,55,14) = (/ &\n     &4.5858e+06_rb,3.4394e+06_rb,2.2929e+06_rb,1.1465e+06_rb,5.3531e+01_rb/)\n      kbo(:, 1,56,14) = (/ &\n     &2.9822e+06_rb,2.2367e+06_rb,1.4911e+06_rb,7.4555e+05_rb,7.1031e+01_rb/)\n      kbo(:, 2,56,14) = (/ &\n     &3.4067e+06_rb,2.5550e+06_rb,1.7033e+06_rb,8.5166e+05_rb,6.7133e+01_rb/)\n      kbo(:, 3,56,14) = (/ &\n     &3.7967e+06_rb,2.8475e+06_rb,1.8983e+06_rb,9.4915e+05_rb,6.1784e+01_rb/)\n      kbo(:, 4,56,14) = (/ &\n     &4.1424e+06_rb,3.1068e+06_rb,2.0712e+06_rb,1.0356e+06_rb,5.8142e+01_rb/)\n      kbo(:, 5,56,14) = (/ &\n     &4.4422e+06_rb,3.3317e+06_rb,2.2211e+06_rb,1.1105e+06_rb,5.4348e+01_rb/)\n      kbo(:, 1,57,14) = (/ &\n     &2.8003e+06_rb,2.1002e+06_rb,1.4001e+06_rb,7.0006e+05_rb,7.2686e+01_rb/)\n      kbo(:, 2,57,14) = (/ &\n     &3.2322e+06_rb,2.4241e+06_rb,1.6161e+06_rb,8.0804e+05_rb,6.8121e+01_rb/)\n      kbo(:, 3,57,14) = (/ &\n     &3.6290e+06_rb,2.7217e+06_rb,1.8145e+06_rb,9.0724e+05_rb,6.3933e+01_rb/)\n      kbo(:, 4,57,14) = (/ &\n     &3.9857e+06_rb,2.9893e+06_rb,1.9928e+06_rb,9.9642e+05_rb,5.9242e+01_rb/)\n      kbo(:, 5,57,14) = (/ &\n     &4.2966e+06_rb,3.2224e+06_rb,2.1482e+06_rb,1.0741e+06_rb,5.5180e+01_rb/)\n      kbo(:, 1,58,14) = (/ &\n     &6.9277e+05_rb,6.3516e+05_rb,5.4460e+05_rb,3.8143e+05_rb,7.4521e+01_rb/)\n      kbo(:, 2,58,14) = (/ &\n     &8.0841e+05_rb,7.4119e+05_rb,6.3550e+05_rb,4.4510e+05_rb,6.9466e+01_rb/)\n      kbo(:, 3,58,14) = (/ &\n     &9.1451e+05_rb,8.3847e+05_rb,7.1891e+05_rb,5.0352e+05_rb,6.5445e+01_rb/)\n      kbo(:, 4,58,14) = (/ &\n     &1.0112e+06_rb,9.2715e+05_rb,7.9494e+05_rb,5.5677e+05_rb,6.0252e+01_rb/)\n      kbo(:, 5,58,14) = (/ &\n     &1.0957e+06_rb,1.0046e+06_rb,8.6135e+05_rb,6.0328e+05_rb,5.6261e+01_rb/)\n      kbo(:, 1,59,14) = (/ &\n     &7.9105e+05_rb,6.9072e+05_rb,5.5096e+05_rb,3.4284e+05_rb,7.5082e+01_rb/)\n      kbo(:, 2,59,14) = (/ &\n     &9.2759e+05_rb,8.0994e+05_rb,6.4605e+05_rb,4.0201e+05_rb,7.0591e+01_rb/)\n      kbo(:, 3,59,14) = (/ &\n     &1.0529e+06_rb,9.1931e+05_rb,7.3330e+05_rb,4.5630e+05_rb,6.5689e+01_rb/)\n      kbo(:, 4,59,14) = (/ &\n     &1.1673e+06_rb,1.0193e+06_rb,8.1302e+05_rb,5.0591e+05_rb,6.1427e+01_rb/)\n      kbo(:, 5,59,14) = (/ &\n     &1.2680e+06_rb,1.1071e+06_rb,8.8311e+05_rb,5.4953e+05_rb,5.7108e+01_rb/)\n      kbo(:, 1,13,15) = (/ &\n     &6.8853e+05_rb,5.1640e+05_rb,3.4427e+05_rb,1.7213e+05_rb,8.3646e+00_rb/)\n      kbo(:, 2,13,15) = (/ &\n     &6.7841e+05_rb,5.0881e+05_rb,3.3921e+05_rb,1.6961e+05_rb,8.1557e+00_rb/)\n      kbo(:, 3,13,15) = (/ &\n     &6.7058e+05_rb,5.0293e+05_rb,3.3529e+05_rb,1.6765e+05_rb,7.2355e+00_rb/)\n      kbo(:, 4,13,15) = (/ &\n     &6.6505e+05_rb,4.9879e+05_rb,3.3253e+05_rb,1.6627e+05_rb,7.1104e+00_rb/)\n      kbo(:, 5,13,15) = (/ &\n     &6.5977e+05_rb,4.9483e+05_rb,3.2989e+05_rb,1.6494e+05_rb,5.0356e+00_rb/)\n      kbo(:, 1,14,15) = (/ &\n     &4.8859e+05_rb,3.6644e+05_rb,2.4429e+05_rb,1.2215e+05_rb,9.3416e+00_rb/)\n      kbo(:, 2,14,15) = (/ &\n     &4.8530e+05_rb,3.6397e+05_rb,2.4265e+05_rb,1.2132e+05_rb,9.0997e+00_rb/)\n      kbo(:, 3,14,15) = (/ &\n     &4.8323e+05_rb,3.6243e+05_rb,2.4161e+05_rb,1.2081e+05_rb,8.4842e+00_rb/)\n      kbo(:, 4,14,15) = (/ &\n     &4.8076e+05_rb,3.6057e+05_rb,2.4038e+05_rb,1.2019e+05_rb,8.2141e+00_rb/)\n      kbo(:, 5,14,15) = (/ &\n     &4.7824e+05_rb,3.5868e+05_rb,2.3912e+05_rb,1.1956e+05_rb,7.9624e+00_rb/)\n      kbo(:, 1,15,15) = (/ &\n     &3.5725e+05_rb,2.6794e+05_rb,1.7863e+05_rb,8.9315e+04_rb,1.0416e+01_rb/)\n      kbo(:, 2,15,15) = (/ &\n     &3.5701e+05_rb,2.6776e+05_rb,1.7851e+05_rb,8.9255e+04_rb,1.0132e+01_rb/)\n      kbo(:, 3,15,15) = (/ &\n     &3.5620e+05_rb,2.6715e+05_rb,1.7810e+05_rb,8.9053e+04_rb,9.8342e+00_rb/)\n      kbo(:, 4,15,15) = (/ &\n     &3.5534e+05_rb,2.6651e+05_rb,1.7767e+05_rb,8.8838e+04_rb,8.7353e+00_rb/)\n      kbo(:, 5,15,15) = (/ &\n     &3.5411e+05_rb,2.6559e+05_rb,1.7706e+05_rb,8.8531e+04_rb,9.0528e+00_rb/)\n      kbo(:, 1,16,15) = (/ &\n     &3.1303e+05_rb,2.3478e+05_rb,1.5652e+05_rb,7.8260e+04_rb,1.1678e+01_rb/)\n      kbo(:, 2,16,15) = (/ &\n     &3.1296e+05_rb,2.3472e+05_rb,1.5648e+05_rb,7.8243e+04_rb,1.1373e+01_rb/)\n      kbo(:, 3,16,15) = (/ &\n     &3.1311e+05_rb,2.3483e+05_rb,1.5655e+05_rb,7.8278e+04_rb,1.1063e+01_rb/)\n      kbo(:, 4,16,15) = (/ &\n     &3.1270e+05_rb,2.3452e+05_rb,1.5635e+05_rb,7.8176e+04_rb,1.0185e+01_rb/)\n      kbo(:, 5,16,15) = (/ &\n     &3.1216e+05_rb,2.3412e+05_rb,1.5608e+05_rb,7.8040e+04_rb,1.0166e+01_rb/)\n      kbo(:, 1,17,15) = (/ &\n     &2.8440e+05_rb,2.1330e+05_rb,1.4220e+05_rb,7.1101e+04_rb,1.3334e+01_rb/)\n      kbo(:, 2,17,15) = (/ &\n     &2.8479e+05_rb,2.1359e+05_rb,1.4240e+05_rb,7.1199e+04_rb,1.2996e+01_rb/)\n      kbo(:, 3,17,15) = (/ &\n     &2.8480e+05_rb,2.1360e+05_rb,1.4240e+05_rb,7.1202e+04_rb,1.2651e+01_rb/)\n      kbo(:, 4,17,15) = (/ &\n     &2.8481e+05_rb,2.1361e+05_rb,1.4240e+05_rb,7.1203e+04_rb,1.1964e+01_rb/)\n      kbo(:, 5,17,15) = (/ &\n     &2.8402e+05_rb,2.1301e+05_rb,1.4201e+05_rb,7.1006e+04_rb,1.1649e+01_rb/)\n      kbo(:, 1,18,15) = (/ &\n     &2.6460e+05_rb,1.9845e+05_rb,1.3230e+05_rb,6.6150e+04_rb,1.5350e+01_rb/)\n      kbo(:, 2,18,15) = (/ &\n     &2.6490e+05_rb,1.9868e+05_rb,1.3245e+05_rb,6.6227e+04_rb,1.4954e+01_rb/)\n      kbo(:, 3,18,15) = (/ &\n     &2.6505e+05_rb,1.9879e+05_rb,1.3252e+05_rb,6.6263e+04_rb,1.4553e+01_rb/)\n      kbo(:, 4,18,15) = (/ &\n     &2.6448e+05_rb,1.9836e+05_rb,1.3224e+05_rb,6.6121e+04_rb,1.4057e+01_rb/)\n      kbo(:, 5,18,15) = (/ &\n     &2.6357e+05_rb,1.9768e+05_rb,1.3179e+05_rb,6.5894e+04_rb,1.3341e+01_rb/)\n      kbo(:, 1,19,15) = (/ &\n     &2.4108e+05_rb,1.8081e+05_rb,1.2054e+05_rb,6.0272e+04_rb,1.7626e+01_rb/)\n      kbo(:, 2,19,15) = (/ &\n     &2.4160e+05_rb,1.8120e+05_rb,1.2080e+05_rb,6.0400e+04_rb,1.7162e+01_rb/)\n      kbo(:, 3,19,15) = (/ &\n     &2.4138e+05_rb,1.8103e+05_rb,1.2069e+05_rb,6.0347e+04_rb,1.6660e+01_rb/)\n      kbo(:, 4,19,15) = (/ &\n     &2.4078e+05_rb,1.8058e+05_rb,1.2039e+05_rb,6.0195e+04_rb,1.6133e+01_rb/)\n      kbo(:, 5,19,15) = (/ &\n     &2.3956e+05_rb,1.7967e+05_rb,1.1978e+05_rb,5.9892e+04_rb,1.5032e+01_rb/)\n      kbo(:, 1,20,15) = (/ &\n     &2.3801e+05_rb,1.7851e+05_rb,1.1901e+05_rb,5.9503e+04_rb,2.0107e+01_rb/)\n      kbo(:, 2,20,15) = (/ &\n     &2.3824e+05_rb,1.7868e+05_rb,1.1912e+05_rb,5.9560e+04_rb,1.9545e+01_rb/)\n      kbo(:, 3,20,15) = (/ &\n     &2.3790e+05_rb,1.7842e+05_rb,1.1895e+05_rb,5.9475e+04_rb,1.8935e+01_rb/)\n      kbo(:, 4,20,15) = (/ &\n     &2.3694e+05_rb,1.7770e+05_rb,1.1847e+05_rb,5.9235e+04_rb,1.8318e+01_rb/)\n      kbo(:, 5,20,15) = (/ &\n     &2.3546e+05_rb,1.7659e+05_rb,1.1773e+05_rb,5.8866e+04_rb,1.6971e+01_rb/)\n      kbo(:, 1,21,15) = (/ &\n     &2.4153e+05_rb,1.8115e+05_rb,1.2077e+05_rb,6.0385e+04_rb,2.2844e+01_rb/)\n      kbo(:, 2,21,15) = (/ &\n     &2.4153e+05_rb,1.8115e+05_rb,1.2076e+05_rb,6.0383e+04_rb,2.2202e+01_rb/)\n      kbo(:, 3,21,15) = (/ &\n     &2.4090e+05_rb,1.8068e+05_rb,1.2045e+05_rb,6.0226e+04_rb,2.1535e+01_rb/)\n      kbo(:, 4,21,15) = (/ &\n     &2.3957e+05_rb,1.7968e+05_rb,1.1978e+05_rb,5.9893e+04_rb,2.0842e+01_rb/)\n      kbo(:, 5,21,15) = (/ &\n     &2.3762e+05_rb,1.7822e+05_rb,1.1881e+05_rb,5.9406e+04_rb,1.9479e+01_rb/)\n      kbo(:, 1,22,15) = (/ &\n     &2.5014e+05_rb,1.8760e+05_rb,1.2507e+05_rb,6.2536e+04_rb,2.6039e+01_rb/)\n      kbo(:, 2,22,15) = (/ &\n     &2.4958e+05_rb,1.8719e+05_rb,1.2479e+05_rb,6.2397e+04_rb,2.5280e+01_rb/)\n      kbo(:, 3,22,15) = (/ &\n     &2.4838e+05_rb,1.8628e+05_rb,1.2419e+05_rb,6.2096e+04_rb,2.4490e+01_rb/)\n      kbo(:, 4,22,15) = (/ &\n     &2.4655e+05_rb,1.8492e+05_rb,1.2328e+05_rb,6.1639e+04_rb,2.3671e+01_rb/)\n      kbo(:, 5,22,15) = (/ &\n     &2.4402e+05_rb,1.8302e+05_rb,1.2201e+05_rb,6.1006e+04_rb,2.2182e+01_rb/)\n      kbo(:, 1,23,15) = (/ &\n     &2.5892e+05_rb,1.9419e+05_rb,1.2946e+05_rb,6.4730e+04_rb,2.9635e+01_rb/)\n      kbo(:, 2,23,15) = (/ &\n     &2.5767e+05_rb,1.9325e+05_rb,1.2883e+05_rb,6.4418e+04_rb,2.8708e+01_rb/)\n      kbo(:, 3,23,15) = (/ &\n     &2.5584e+05_rb,1.9188e+05_rb,1.2792e+05_rb,6.3960e+04_rb,2.7743e+01_rb/)\n      kbo(:, 4,23,15) = (/ &\n     &2.5321e+05_rb,1.8991e+05_rb,1.2660e+05_rb,6.3303e+04_rb,2.6764e+01_rb/)\n      kbo(:, 5,23,15) = (/ &\n     &2.5010e+05_rb,1.8758e+05_rb,1.2505e+05_rb,6.2526e+04_rb,2.5122e+01_rb/)\n      kbo(:, 1,24,15) = (/ &\n     &2.6502e+05_rb,1.9877e+05_rb,1.3251e+05_rb,6.6257e+04_rb,3.3543e+01_rb/)\n      kbo(:, 2,24,15) = (/ &\n     &2.6308e+05_rb,1.9731e+05_rb,1.3154e+05_rb,6.5771e+04_rb,3.2390e+01_rb/)\n      kbo(:, 3,24,15) = (/ &\n     &2.6033e+05_rb,1.9524e+05_rb,1.3016e+05_rb,6.5082e+04_rb,3.1202e+01_rb/)\n      kbo(:, 4,24,15) = (/ &\n     &2.5704e+05_rb,1.9278e+05_rb,1.2852e+05_rb,6.4262e+04_rb,3.0027e+01_rb/)\n      kbo(:, 5,24,15) = (/ &\n     &2.5313e+05_rb,1.8984e+05_rb,1.2656e+05_rb,6.3282e+04_rb,2.8238e+01_rb/)\n      kbo(:, 1,25,15) = (/ &\n     &2.7306e+05_rb,2.0480e+05_rb,1.3653e+05_rb,6.8266e+04_rb,3.7656e+01_rb/)\n      kbo(:, 2,25,15) = (/ &\n     &2.7003e+05_rb,2.0252e+05_rb,1.3501e+05_rb,6.7507e+04_rb,3.6233e+01_rb/)\n      kbo(:, 3,25,15) = (/ &\n     &2.6644e+05_rb,1.9983e+05_rb,1.3322e+05_rb,6.6611e+04_rb,3.4804e+01_rb/)\n      kbo(:, 4,25,15) = (/ &\n     &2.6230e+05_rb,1.9672e+05_rb,1.3115e+05_rb,6.5574e+04_rb,3.3361e+01_rb/)\n      kbo(:, 5,25,15) = (/ &\n     &2.5745e+05_rb,1.9309e+05_rb,1.2873e+05_rb,6.4363e+04_rb,3.1338e+01_rb/)\n      kbo(:, 1,26,15) = (/ &\n     &2.8347e+05_rb,2.1261e+05_rb,1.4174e+05_rb,7.0869e+04_rb,4.1820e+01_rb/)\n      kbo(:, 2,26,15) = (/ &\n     &2.7951e+05_rb,2.0963e+05_rb,1.3976e+05_rb,6.9878e+04_rb,4.0076e+01_rb/)\n      kbo(:, 3,26,15) = (/ &\n     &2.7489e+05_rb,2.0617e+05_rb,1.3745e+05_rb,6.8723e+04_rb,3.8351e+01_rb/)\n      kbo(:, 4,26,15) = (/ &\n     &2.6958e+05_rb,2.0219e+05_rb,1.3479e+05_rb,6.7396e+04_rb,3.6631e+01_rb/)\n      kbo(:, 5,26,15) = (/ &\n     &2.6383e+05_rb,1.9788e+05_rb,1.3192e+05_rb,6.5959e+04_rb,3.4286e+01_rb/)\n      kbo(:, 1,27,15) = (/ &\n     &3.0277e+05_rb,2.2708e+05_rb,1.5139e+05_rb,7.5694e+04_rb,4.5895e+01_rb/)\n      kbo(:, 2,27,15) = (/ &\n     &2.9771e+05_rb,2.2329e+05_rb,1.4886e+05_rb,7.4429e+04_rb,4.3819e+01_rb/)\n      kbo(:, 3,27,15) = (/ &\n     &2.9175e+05_rb,2.1881e+05_rb,1.4587e+05_rb,7.2938e+04_rb,4.1746e+01_rb/)\n      kbo(:, 4,27,15) = (/ &\n     &2.8521e+05_rb,2.1391e+05_rb,1.4261e+05_rb,7.1304e+04_rb,3.9720e+01_rb/)\n      kbo(:, 5,27,15) = (/ &\n     &2.7826e+05_rb,2.0870e+05_rb,1.3913e+05_rb,6.9566e+04_rb,3.6964e+01_rb/)\n      kbo(:, 1,28,15) = (/ &\n     &3.2897e+05_rb,2.4673e+05_rb,1.6449e+05_rb,8.2243e+04_rb,4.9767e+01_rb/)\n      kbo(:, 2,28,15) = (/ &\n     &3.2244e+05_rb,2.4183e+05_rb,1.6122e+05_rb,8.0610e+04_rb,4.7309e+01_rb/)\n      kbo(:, 3,28,15) = (/ &\n     &3.1503e+05_rb,2.3628e+05_rb,1.5752e+05_rb,7.8759e+04_rb,4.4889e+01_rb/)\n      kbo(:, 4,28,15) = (/ &\n     &3.0709e+05_rb,2.3032e+05_rb,1.5355e+05_rb,7.6774e+04_rb,4.2541e+01_rb/)\n      kbo(:, 5,28,15) = (/ &\n     &2.9858e+05_rb,2.2393e+05_rb,1.4929e+05_rb,7.4645e+04_rb,3.9310e+01_rb/)\n      kbo(:, 1,29,15) = (/ &\n     &3.7585e+05_rb,2.8188e+05_rb,1.8792e+05_rb,9.3962e+04_rb,5.3281e+01_rb/)\n      kbo(:, 2,29,15) = (/ &\n     &3.6712e+05_rb,2.7534e+05_rb,1.8356e+05_rb,9.1780e+04_rb,5.0424e+01_rb/)\n      kbo(:, 3,29,15) = (/ &\n     &3.5767e+05_rb,2.6826e+05_rb,1.7884e+05_rb,8.9419e+04_rb,4.7662e+01_rb/)\n      kbo(:, 4,29,15) = (/ &\n     &3.4765e+05_rb,2.6073e+05_rb,1.7382e+05_rb,8.6912e+04_rb,4.4800e+01_rb/)\n      kbo(:, 5,29,15) = (/ &\n     &3.3714e+05_rb,2.5285e+05_rb,1.6857e+05_rb,8.4284e+04_rb,4.1166e+01_rb/)\n      kbo(:, 1,30,15) = (/ &\n     &4.3604e+05_rb,3.2703e+05_rb,2.1802e+05_rb,1.0901e+05_rb,5.6346e+01_rb/)\n      kbo(:, 2,30,15) = (/ &\n     &4.2462e+05_rb,3.1847e+05_rb,2.1231e+05_rb,1.0616e+05_rb,5.3119e+01_rb/)\n      kbo(:, 3,30,15) = (/ &\n     &4.1259e+05_rb,3.0944e+05_rb,2.0629e+05_rb,1.0315e+05_rb,5.0028e+01_rb/)\n      kbo(:, 4,30,15) = (/ &\n     &3.9989e+05_rb,2.9992e+05_rb,1.9995e+05_rb,9.9973e+04_rb,4.6067e+01_rb/)\n      kbo(:, 5,30,15) = (/ &\n     &3.8696e+05_rb,2.9022e+05_rb,1.9348e+05_rb,9.6741e+04_rb,4.3622e+01_rb/)\n      kbo(:, 1,31,15) = (/ &\n     &5.2737e+05_rb,3.9553e+05_rb,2.6369e+05_rb,1.3184e+05_rb,5.8898e+01_rb/)\n      kbo(:, 2,31,15) = (/ &\n     &5.1226e+05_rb,3.8420e+05_rb,2.5613e+05_rb,1.2807e+05_rb,5.5332e+01_rb/)\n      kbo(:, 3,31,15) = (/ &\n     &4.9638e+05_rb,3.7229e+05_rb,2.4819e+05_rb,1.2410e+05_rb,5.1303e+01_rb/)\n      kbo(:, 4,31,15) = (/ &\n     &4.8006e+05_rb,3.6004e+05_rb,2.4003e+05_rb,1.2001e+05_rb,4.7154e+01_rb/)\n      kbo(:, 5,31,15) = (/ &\n     &4.6345e+05_rb,3.4759e+05_rb,2.3173e+05_rb,1.1586e+05_rb,4.5673e+01_rb/)\n      kbo(:, 1,32,15) = (/ &\n     &6.4038e+05_rb,4.8028e+05_rb,3.2019e+05_rb,1.6010e+05_rb,6.0926e+01_rb/)\n      kbo(:, 2,32,15) = (/ &\n     &6.2037e+05_rb,4.6528e+05_rb,3.1019e+05_rb,1.5509e+05_rb,5.7062e+01_rb/)\n      kbo(:, 3,32,15) = (/ &\n     &5.9976e+05_rb,4.4982e+05_rb,2.9988e+05_rb,1.4994e+05_rb,5.1911e+01_rb/)\n      kbo(:, 4,32,15) = (/ &\n     &5.7886e+05_rb,4.3415e+05_rb,2.8943e+05_rb,1.4472e+05_rb,4.9758e+01_rb/)\n      kbo(:, 5,32,15) = (/ &\n     &5.5779e+05_rb,4.1835e+05_rb,2.7890e+05_rb,1.3945e+05_rb,4.7124e+01_rb/)\n      kbo(:, 1,33,15) = (/ &\n     &7.8604e+05_rb,5.8953e+05_rb,3.9302e+05_rb,1.9651e+05_rb,6.2449e+01_rb/)\n      kbo(:, 2,33,15) = (/ &\n     &7.5994e+05_rb,5.6995e+05_rb,3.7997e+05_rb,1.8999e+05_rb,5.7026e+01_rb/)\n      kbo(:, 3,33,15) = (/ &\n     &7.3324e+05_rb,5.4993e+05_rb,3.6662e+05_rb,1.8331e+05_rb,5.3959e+01_rb/)\n      kbo(:, 4,33,15) = (/ &\n     &7.0633e+05_rb,5.2975e+05_rb,3.5316e+05_rb,1.7658e+05_rb,5.1185e+01_rb/)\n      kbo(:, 5,33,15) = (/ &\n     &6.7933e+05_rb,5.0950e+05_rb,3.3967e+05_rb,1.6983e+05_rb,4.6145e+01_rb/)\n      kbo(:, 1,34,15) = (/ &\n     &9.3629e+05_rb,7.0222e+05_rb,4.6814e+05_rb,2.3407e+05_rb,6.2950e+01_rb/)\n      kbo(:, 2,34,15) = (/ &\n     &9.0361e+05_rb,6.7770e+05_rb,4.5180e+05_rb,2.2590e+05_rb,5.7628e+01_rb/)\n      kbo(:, 3,34,15) = (/ &\n     &8.7048e+05_rb,6.5286e+05_rb,4.3524e+05_rb,2.1762e+05_rb,5.5397e+01_rb/)\n      kbo(:, 4,34,15) = (/ &\n     &8.3718e+05_rb,6.2788e+05_rb,4.1859e+05_rb,2.0929e+05_rb,5.1885e+01_rb/)\n      kbo(:, 5,34,15) = (/ &\n     &8.0393e+05_rb,6.0294e+05_rb,4.0196e+05_rb,2.0098e+05_rb,4.4833e+01_rb/)\n      kbo(:, 1,35,15) = (/ &\n     &1.1151e+06_rb,8.3633e+05_rb,5.5755e+05_rb,2.7878e+05_rb,6.3401e+01_rb/)\n      kbo(:, 2,35,15) = (/ &\n     &1.0748e+06_rb,8.0608e+05_rb,5.3739e+05_rb,2.6869e+05_rb,5.9975e+01_rb/)\n      kbo(:, 3,35,15) = (/ &\n     &1.0341e+06_rb,7.7556e+05_rb,5.1704e+05_rb,2.5852e+05_rb,5.6633e+01_rb/)\n      kbo(:, 4,35,15) = (/ &\n     &9.9325e+05_rb,7.4494e+05_rb,4.9662e+05_rb,2.4831e+05_rb,5.0172e+01_rb/)\n      kbo(:, 5,35,15) = (/ &\n     &9.5274e+05_rb,7.1455e+05_rb,4.7637e+05_rb,2.3818e+05_rb,4.3180e+01_rb/)\n      kbo(:, 1,36,15) = (/ &\n     &1.3204e+06_rb,9.9032e+05_rb,6.6021e+05_rb,3.3011e+05_rb,6.4479e+01_rb/)\n      kbo(:, 2,36,15) = (/ &\n     &1.2713e+06_rb,9.5347e+05_rb,6.3565e+05_rb,3.1782e+05_rb,6.1661e+01_rb/)\n      kbo(:, 3,36,15) = (/ &\n     &1.2219e+06_rb,9.1640e+05_rb,6.1093e+05_rb,3.0547e+05_rb,5.7543e+01_rb/)\n      kbo(:, 4,36,15) = (/ &\n     &1.1726e+06_rb,8.7947e+05_rb,5.8632e+05_rb,2.9316e+05_rb,4.9268e+01_rb/)\n      kbo(:, 5,36,15) = (/ &\n     &1.1240e+06_rb,8.4303e+05_rb,5.6202e+05_rb,2.8101e+05_rb,4.3422e+01_rb/)\n      kbo(:, 1,37,15) = (/ &\n     &1.5283e+06_rb,1.1462e+06_rb,7.6413e+05_rb,3.8207e+05_rb,6.6367e+01_rb/)\n      kbo(:, 2,37,15) = (/ &\n     &1.4706e+06_rb,1.1030e+06_rb,7.3532e+05_rb,3.6766e+05_rb,6.3620e+01_rb/)\n      kbo(:, 3,37,15) = (/ &\n     &1.4128e+06_rb,1.0596e+06_rb,7.0638e+05_rb,3.5319e+05_rb,5.8851e+01_rb/)\n      kbo(:, 4,37,15) = (/ &\n     &1.3549e+06_rb,1.0162e+06_rb,6.7744e+05_rb,3.3872e+05_rb,4.8460e+01_rb/)\n      kbo(:, 5,37,15) = (/ &\n     &1.2980e+06_rb,9.7352e+05_rb,6.4901e+05_rb,3.2451e+05_rb,4.3139e+01_rb/)\n      kbo(:, 1,38,15) = (/ &\n     &1.7917e+06_rb,1.3437e+06_rb,8.9582e+05_rb,4.4791e+05_rb,6.8827e+01_rb/)\n      kbo(:, 2,38,15) = (/ &\n     &1.7232e+06_rb,1.2924e+06_rb,8.6157e+05_rb,4.3078e+05_rb,6.5495e+01_rb/)\n      kbo(:, 3,38,15) = (/ &\n     &1.6545e+06_rb,1.2409e+06_rb,8.2724e+05_rb,4.1362e+05_rb,5.8860e+01_rb/)\n      kbo(:, 4,38,15) = (/ &\n     &1.5862e+06_rb,1.1896e+06_rb,7.9309e+05_rb,3.9654e+05_rb,4.7251e+01_rb/)\n      kbo(:, 5,38,15) = (/ &\n     &1.5188e+06_rb,1.1391e+06_rb,7.5940e+05_rb,3.7970e+05_rb,4.3731e+01_rb/)\n      kbo(:, 1,39,15) = (/ &\n     &2.1445e+06_rb,1.6084e+06_rb,1.0723e+06_rb,5.3613e+05_rb,7.1068e+01_rb/)\n      kbo(:, 2,39,15) = (/ &\n     &2.0613e+06_rb,1.5460e+06_rb,1.0307e+06_rb,5.1533e+05_rb,6.6419e+01_rb/)\n      kbo(:, 3,39,15) = (/ &\n     &1.9786e+06_rb,1.4840e+06_rb,9.8932e+05_rb,4.9466e+05_rb,5.6988e+01_rb/)\n      kbo(:, 4,39,15) = (/ &\n     &1.8964e+06_rb,1.4223e+06_rb,9.4822e+05_rb,4.7411e+05_rb,4.6537e+01_rb/)\n      kbo(:, 5,39,15) = (/ &\n     &1.8152e+06_rb,1.3614e+06_rb,9.0762e+05_rb,4.5381e+05_rb,4.1463e+01_rb/)\n      kbo(:, 1,40,15) = (/ &\n     &2.4170e+06_rb,1.8127e+06_rb,1.2085e+06_rb,6.0424e+05_rb,7.3096e+01_rb/)\n      kbo(:, 2,40,15) = (/ &\n     &2.3226e+06_rb,1.7420e+06_rb,1.1613e+06_rb,5.8063e+05_rb,6.8150e+01_rb/)\n      kbo(:, 3,40,15) = (/ &\n     &2.2296e+06_rb,1.6722e+06_rb,1.1148e+06_rb,5.5739e+05_rb,5.8979e+01_rb/)\n      kbo(:, 4,40,15) = (/ &\n     &2.1366e+06_rb,1.6025e+06_rb,1.0683e+06_rb,5.3415e+05_rb,4.7816e+01_rb/)\n      kbo(:, 5,40,15) = (/ &\n     &2.0448e+06_rb,1.5336e+06_rb,1.0224e+06_rb,5.1120e+05_rb,4.2008e+01_rb/)\n      kbo(:, 1,41,15) = (/ &\n     &2.7164e+06_rb,2.0373e+06_rb,1.3582e+06_rb,6.7911e+05_rb,7.4782e+01_rb/)\n      kbo(:, 2,41,15) = (/ &\n     &2.6095e+06_rb,1.9571e+06_rb,1.3048e+06_rb,6.5238e+05_rb,6.9972e+01_rb/)\n      kbo(:, 3,41,15) = (/ &\n     &2.5049e+06_rb,1.8787e+06_rb,1.2525e+06_rb,6.2623e+05_rb,6.0957e+01_rb/)\n      kbo(:, 4,41,15) = (/ &\n     &2.4006e+06_rb,1.8005e+06_rb,1.2003e+06_rb,6.0017e+05_rb,4.9097e+01_rb/)\n      kbo(:, 5,41,15) = (/ &\n     &2.2975e+06_rb,1.7231e+06_rb,1.1487e+06_rb,5.7438e+05_rb,4.2980e+01_rb/)\n      kbo(:, 1,42,15) = (/ &\n     &3.0827e+06_rb,2.3120e+06_rb,1.5413e+06_rb,7.7067e+05_rb,7.6123e+01_rb/)\n      kbo(:, 2,42,15) = (/ &\n     &2.9612e+06_rb,2.2209e+06_rb,1.4806e+06_rb,7.4030e+05_rb,7.1662e+01_rb/)\n      kbo(:, 3,42,15) = (/ &\n     &2.8423e+06_rb,2.1317e+06_rb,1.4211e+06_rb,7.1056e+05_rb,6.2602e+01_rb/)\n      kbo(:, 4,42,15) = (/ &\n     &2.7244e+06_rb,2.0433e+06_rb,1.3622e+06_rb,6.8108e+05_rb,5.0093e+01_rb/)\n      kbo(:, 5,42,15) = (/ &\n     &2.6071e+06_rb,1.9553e+06_rb,1.3035e+06_rb,6.5176e+05_rb,4.3774e+01_rb/)\n      kbo(:, 1,43,15) = (/ &\n     &3.5341e+06_rb,2.6506e+06_rb,1.7671e+06_rb,8.8353e+05_rb,7.8436e+01_rb/)\n      kbo(:, 2,43,15) = (/ &\n     &3.3959e+06_rb,2.5467e+06_rb,1.6978e+06_rb,8.4891e+05_rb,7.3775e+01_rb/)\n      kbo(:, 3,43,15) = (/ &\n     &3.2585e+06_rb,2.4439e+06_rb,1.6293e+06_rb,8.1464e+05_rb,6.4695e+01_rb/)\n      kbo(:, 4,43,15) = (/ &\n     &3.1244e+06_rb,2.3433e+06_rb,1.5622e+06_rb,7.8111e+05_rb,5.1912e+01_rb/)\n      kbo(:, 5,43,15) = (/ &\n     &2.9906e+06_rb,2.2429e+06_rb,1.4953e+06_rb,7.4765e+05_rb,4.5444e+01_rb/)\n      kbo(:, 1,44,15) = (/ &\n     &4.1097e+06_rb,3.0823e+06_rb,2.0548e+06_rb,1.0274e+06_rb,8.1119e+01_rb/)\n      kbo(:, 2,44,15) = (/ &\n     &3.9487e+06_rb,2.9615e+06_rb,1.9743e+06_rb,9.8717e+05_rb,7.5797e+01_rb/)\n      kbo(:, 3,44,15) = (/ &\n     &3.7894e+06_rb,2.8420e+06_rb,1.8947e+06_rb,9.4733e+05_rb,6.6793e+01_rb/)\n      kbo(:, 4,44,15) = (/ &\n     &3.6341e+06_rb,2.7256e+06_rb,1.8170e+06_rb,9.0851e+05_rb,5.3433e+01_rb/)\n      kbo(:, 5,44,15) = (/ &\n     &3.4797e+06_rb,2.6097e+06_rb,1.7398e+06_rb,8.6990e+05_rb,4.7406e+01_rb/)\n      kbo(:, 1,45,15) = (/ &\n     &4.8722e+06_rb,3.6542e+06_rb,2.4361e+06_rb,1.2181e+06_rb,8.3949e+01_rb/)\n      kbo(:, 2,45,15) = (/ &\n     &4.6827e+06_rb,3.5120e+06_rb,2.3413e+06_rb,1.1707e+06_rb,7.7974e+01_rb/)\n      kbo(:, 3,45,15) = (/ &\n     &4.4945e+06_rb,3.3709e+06_rb,2.2473e+06_rb,1.1236e+06_rb,6.9073e+01_rb/)\n      kbo(:, 4,45,15) = (/ &\n     &4.3103e+06_rb,3.2327e+06_rb,2.1551e+06_rb,1.0776e+06_rb,5.6213e+01_rb/)\n      kbo(:, 5,45,15) = (/ &\n     &4.1290e+06_rb,3.0968e+06_rb,2.0645e+06_rb,1.0323e+06_rb,4.8762e+01_rb/)\n      kbo(:, 1,46,15) = (/ &\n     &5.8372e+06_rb,4.3779e+06_rb,2.9186e+06_rb,1.4593e+06_rb,8.7007e+01_rb/)\n      kbo(:, 2,46,15) = (/ &\n     &5.6126e+06_rb,4.2094e+06_rb,2.8063e+06_rb,1.4031e+06_rb,8.0166e+01_rb/)\n      kbo(:, 3,46,15) = (/ &\n     &5.3885e+06_rb,4.0414e+06_rb,2.6943e+06_rb,1.3471e+06_rb,7.0991e+01_rb/)\n      kbo(:, 4,46,15) = (/ &\n     &5.1687e+06_rb,3.8765e+06_rb,2.5843e+06_rb,1.2922e+06_rb,5.9015e+01_rb/)\n      kbo(:, 5,46,15) = (/ &\n     &4.9529e+06_rb,3.7147e+06_rb,2.4764e+06_rb,1.2382e+06_rb,5.0566e+01_rb/)\n      kbo(:, 1,47,15) = (/ &\n     &6.9385e+06_rb,5.2039e+06_rb,3.4693e+06_rb,1.7346e+06_rb,9.1194e+01_rb/)\n      kbo(:, 2,47,15) = (/ &\n     &6.6774e+06_rb,5.0081e+06_rb,3.3387e+06_rb,1.6694e+06_rb,8.2417e+01_rb/)\n      kbo(:, 3,47,15) = (/ &\n     &6.4127e+06_rb,4.8095e+06_rb,3.2064e+06_rb,1.6032e+06_rb,7.5225e+01_rb/)\n      kbo(:, 4,47,15) = (/ &\n     &6.1518e+06_rb,4.6139e+06_rb,3.0759e+06_rb,1.5380e+06_rb,6.2982e+01_rb/)\n      kbo(:, 5,47,15) = (/ &\n     &5.8970e+06_rb,4.4228e+06_rb,2.9485e+06_rb,1.4743e+06_rb,5.3315e+01_rb/)\n      kbo(:, 1,48,15) = (/ &\n     &8.4803e+06_rb,6.3603e+06_rb,4.2402e+06_rb,2.1201e+06_rb,9.5233e+01_rb/)\n      kbo(:, 2,48,15) = (/ &\n     &8.1666e+06_rb,6.1249e+06_rb,4.0833e+06_rb,2.0417e+06_rb,8.3938e+01_rb/)\n      kbo(:, 3,48,15) = (/ &\n     &7.8474e+06_rb,5.8855e+06_rb,3.9237e+06_rb,1.9618e+06_rb,7.8581e+01_rb/)\n      kbo(:, 4,48,15) = (/ &\n     &7.5308e+06_rb,5.6481e+06_rb,3.7654e+06_rb,1.8827e+06_rb,6.5837e+01_rb/)\n      kbo(:, 5,48,15) = (/ &\n     &7.2194e+06_rb,5.4145e+06_rb,3.6097e+06_rb,1.8049e+06_rb,5.5833e+01_rb/)\n      kbo(:, 1,49,15) = (/ &\n     &1.0795e+07_rb,8.0961e+06_rb,5.3974e+06_rb,2.6987e+06_rb,9.8694e+01_rb/)\n      kbo(:, 2,49,15) = (/ &\n     &1.0405e+07_rb,7.8035e+06_rb,5.2023e+06_rb,2.6011e+06_rb,8.7441e+01_rb/)\n      kbo(:, 3,49,15) = (/ &\n     &1.0006e+07_rb,7.5045e+06_rb,5.0030e+06_rb,2.5015e+06_rb,8.1233e+01_rb/)\n      kbo(:, 4,49,15) = (/ &\n     &9.6057e+06_rb,7.2043e+06_rb,4.8028e+06_rb,2.4014e+06_rb,6.9160e+01_rb/)\n      kbo(:, 5,49,15) = (/ &\n     &9.2104e+06_rb,6.9078e+06_rb,4.6052e+06_rb,2.3026e+06_rb,5.7442e+01_rb/)\n      kbo(:, 1,50,15) = (/ &\n     &1.3074e+07_rb,9.8054e+06_rb,6.5369e+06_rb,3.2685e+06_rb,1.0218e+02_rb/)\n      kbo(:, 2,50,15) = (/ &\n     &1.2610e+07_rb,9.4575e+06_rb,6.3050e+06_rb,3.1525e+06_rb,9.1395e+01_rb/)\n      kbo(:, 3,50,15) = (/ &\n     &1.2137e+07_rb,9.1025e+06_rb,6.0683e+06_rb,3.0342e+06_rb,8.4017e+01_rb/)\n      kbo(:, 4,50,15) = (/ &\n     &1.1655e+07_rb,8.7414e+06_rb,5.8276e+06_rb,2.9138e+06_rb,7.1620e+01_rb/)\n      kbo(:, 5,50,15) = (/ &\n     &1.1180e+07_rb,8.3848e+06_rb,5.5899e+06_rb,2.7949e+06_rb,6.0411e+01_rb/)\n      kbo(:, 1,51,15) = (/ &\n     &1.5480e+07_rb,1.1610e+07_rb,7.7399e+06_rb,3.8700e+06_rb,1.0595e+02_rb/)\n      kbo(:, 2,51,15) = (/ &\n     &1.4942e+07_rb,1.1207e+07_rb,7.4711e+06_rb,3.7356e+06_rb,9.5091e+01_rb/)\n      kbo(:, 3,51,15) = (/ &\n     &1.4390e+07_rb,1.0793e+07_rb,7.1952e+06_rb,3.5976e+06_rb,8.6843e+01_rb/)\n      kbo(:, 4,51,15) = (/ &\n     &1.3829e+07_rb,1.0371e+07_rb,6.9143e+06_rb,3.4572e+06_rb,7.4583e+01_rb/)\n      kbo(:, 5,51,15) = (/ &\n     &1.3268e+07_rb,9.9514e+06_rb,6.6343e+06_rb,3.3171e+06_rb,6.4529e+01_rb/)\n      kbo(:, 1,52,15) = (/ &\n     &1.8848e+07_rb,1.4136e+07_rb,9.4240e+06_rb,4.7120e+06_rb,1.0974e+02_rb/)\n      kbo(:, 2,52,15) = (/ &\n     &1.8206e+07_rb,1.3654e+07_rb,9.1030e+06_rb,4.5515e+06_rb,9.9547e+01_rb/)\n      kbo(:, 3,52,15) = (/ &\n     &1.7547e+07_rb,1.3161e+07_rb,8.7738e+06_rb,4.3869e+06_rb,8.9552e+01_rb/)\n      kbo(:, 4,52,15) = (/ &\n     &1.6877e+07_rb,1.2658e+07_rb,8.4384e+06_rb,4.2192e+06_rb,7.7635e+01_rb/)\n      kbo(:, 5,52,15) = (/ &\n     &1.6199e+07_rb,1.2149e+07_rb,8.0997e+06_rb,4.0499e+06_rb,6.8061e+01_rb/)\n      kbo(:, 1,53,15) = (/ &\n     &2.3903e+07_rb,1.7928e+07_rb,1.1952e+07_rb,5.9760e+06_rb,1.1360e+02_rb/)\n      kbo(:, 2,53,15) = (/ &\n     &2.3112e+07_rb,1.7334e+07_rb,1.1556e+07_rb,5.7781e+06_rb,1.0455e+02_rb/)\n      kbo(:, 3,53,15) = (/ &\n     &2.2293e+07_rb,1.6719e+07_rb,1.1146e+07_rb,5.5732e+06_rb,9.2320e+01_rb/)\n      kbo(:, 4,53,15) = (/ &\n     &2.1455e+07_rb,1.6091e+07_rb,1.0728e+07_rb,5.3638e+06_rb,8.0467e+01_rb/)\n      kbo(:, 5,53,15) = (/ &\n     &2.0604e+07_rb,1.5453e+07_rb,1.0302e+07_rb,5.1511e+06_rb,7.1688e+01_rb/)\n      kbo(:, 1,54,15) = (/ &\n     &2.6168e+07_rb,1.9626e+07_rb,1.3084e+07_rb,6.5420e+06_rb,1.1792e+02_rb/)\n      kbo(:, 2,54,15) = (/ &\n     &2.5326e+07_rb,1.8995e+07_rb,1.2663e+07_rb,6.3316e+06_rb,1.0689e+02_rb/)\n      kbo(:, 3,54,15) = (/ &\n     &2.4445e+07_rb,1.8334e+07_rb,1.2223e+07_rb,6.1114e+06_rb,9.4623e+01_rb/)\n      kbo(:, 4,54,15) = (/ &\n     &2.3543e+07_rb,1.7657e+07_rb,1.1772e+07_rb,5.8858e+06_rb,8.6034e+01_rb/)\n      kbo(:, 5,54,15) = (/ &\n     &2.2624e+07_rb,1.6968e+07_rb,1.1312e+07_rb,5.6560e+06_rb,7.5610e+01_rb/)\n      kbo(:, 1,55,15) = (/ &\n     &2.6110e+07_rb,1.9583e+07_rb,1.3055e+07_rb,6.5277e+06_rb,1.2293e+02_rb/)\n      kbo(:, 2,55,15) = (/ &\n     &2.5298e+07_rb,1.8974e+07_rb,1.2649e+07_rb,6.3247e+06_rb,1.0996e+02_rb/)\n      kbo(:, 3,55,15) = (/ &\n     &2.4435e+07_rb,1.8326e+07_rb,1.2218e+07_rb,6.1089e+06_rb,1.0025e+02_rb/)\n      kbo(:, 4,55,15) = (/ &\n     &2.3548e+07_rb,1.7661e+07_rb,1.1774e+07_rb,5.8870e+06_rb,8.9943e+01_rb/)\n      kbo(:, 5,55,15) = (/ &\n     &2.2646e+07_rb,1.6984e+07_rb,1.1323e+07_rb,5.6615e+06_rb,7.8052e+01_rb/)\n      kbo(:, 1,56,15) = (/ &\n     &2.6049e+07_rb,1.9537e+07_rb,1.3025e+07_rb,6.5123e+06_rb,1.2801e+02_rb/)\n      kbo(:, 2,56,15) = (/ &\n     &2.5263e+07_rb,1.8947e+07_rb,1.2631e+07_rb,6.3155e+06_rb,1.1426e+02_rb/)\n      kbo(:, 3,56,15) = (/ &\n     &2.4422e+07_rb,1.8316e+07_rb,1.2211e+07_rb,6.1054e+06_rb,1.0290e+02_rb/)\n      kbo(:, 4,56,15) = (/ &\n     &2.3554e+07_rb,1.7665e+07_rb,1.1777e+07_rb,5.8883e+06_rb,9.1587e+01_rb/)\n      kbo(:, 5,56,15) = (/ &\n     &2.2663e+07_rb,1.6997e+07_rb,1.1331e+07_rb,5.6657e+06_rb,8.3726e+01_rb/)\n      kbo(:, 1,57,15) = (/ &\n     &2.5975e+07_rb,1.9481e+07_rb,1.2987e+07_rb,6.4936e+06_rb,1.3227e+02_rb/)\n      kbo(:, 2,57,15) = (/ &\n     &2.5221e+07_rb,1.8915e+07_rb,1.2610e+07_rb,6.3050e+06_rb,1.1939e+02_rb/)\n      kbo(:, 3,57,15) = (/ &\n     &2.4401e+07_rb,1.8301e+07_rb,1.2201e+07_rb,6.1003e+06_rb,1.0672e+02_rb/)\n      kbo(:, 4,57,15) = (/ &\n     &2.3548e+07_rb,1.7661e+07_rb,1.1774e+07_rb,5.8869e+06_rb,9.6378e+01_rb/)\n      kbo(:, 5,57,15) = (/ &\n     &2.2676e+07_rb,1.7007e+07_rb,1.1338e+07_rb,5.6688e+06_rb,8.7523e+01_rb/)\n      kbo(:, 1,58,15) = (/ &\n     &6.8249e+06_rb,6.2574e+06_rb,5.3652e+06_rb,3.7577e+06_rb,1.3651e+02_rb/)\n      kbo(:, 2,58,15) = (/ &\n     &6.6343e+06_rb,6.0826e+06_rb,5.2153e+06_rb,3.6528e+06_rb,1.2352e+02_rb/)\n      kbo(:, 3,58,15) = (/ &\n     &6.4258e+06_rb,5.8914e+06_rb,5.0514e+06_rb,3.5379e+06_rb,1.1077e+02_rb/)\n      kbo(:, 4,58,15) = (/ &\n     &6.2048e+06_rb,5.6888e+06_rb,4.8776e+06_rb,3.4163e+06_rb,9.9878e+01_rb/)\n      kbo(:, 5,58,15) = (/ &\n     &5.9792e+06_rb,5.4820e+06_rb,4.7004e+06_rb,3.2921e+06_rb,8.9433e+01_rb/)\n      kbo(:, 1,59,15) = (/ &\n     &7.9949e+06_rb,6.9809e+06_rb,5.5683e+06_rb,3.4650e+06_rb,1.3832e+02_rb/)\n      kbo(:, 2,59,15) = (/ &\n     &7.7778e+06_rb,6.7913e+06_rb,5.4171e+06_rb,3.3709e+06_rb,1.2505e+02_rb/)\n      kbo(:, 3,59,15) = (/ &\n     &7.5359e+06_rb,6.5801e+06_rb,5.2486e+06_rb,3.2660e+06_rb,1.1363e+02_rb/)\n      kbo(:, 4,59,15) = (/ &\n     &7.2794e+06_rb,6.3561e+06_rb,5.0700e+06_rb,3.1549e+06_rb,1.0324e+02_rb/)\n      kbo(:, 5,59,15) = (/ &\n     &7.0157e+06_rb,6.1258e+06_rb,4.8863e+06_rb,3.0406e+06_rb,9.1722e+01_rb/)\n      kbo(:, 1,13,16) = (/ &\n     &7.4591e+05_rb,5.5944e+05_rb,3.7296e+05_rb,1.8648e+05_rb,1.0589e+01_rb/)\n      kbo(:, 2,13,16) = (/ &\n     &7.4121e+05_rb,5.5591e+05_rb,3.7061e+05_rb,1.8530e+05_rb,1.0476e+01_rb/)\n      kbo(:, 3,13,16) = (/ &\n     &7.3660e+05_rb,5.5245e+05_rb,3.6830e+05_rb,1.8415e+05_rb,6.4518e+00_rb/)\n      kbo(:, 4,13,16) = (/ &\n     &7.3017e+05_rb,5.4763e+05_rb,3.6509e+05_rb,1.8254e+05_rb,7.2400e-02_rb/)\n      kbo(:, 5,13,16) = (/ &\n     &7.2523e+05_rb,5.4392e+05_rb,3.6262e+05_rb,1.8131e+05_rb,8.3840e-02_rb/)\n      kbo(:, 1,14,16) = (/ &\n     &5.4546e+05_rb,4.0910e+05_rb,2.7273e+05_rb,1.3636e+05_rb,1.2083e+01_rb/)\n      kbo(:, 2,14,16) = (/ &\n     &5.4530e+05_rb,4.0897e+05_rb,2.7264e+05_rb,1.3632e+05_rb,1.1940e+01_rb/)\n      kbo(:, 3,14,16) = (/ &\n     &5.4326e+05_rb,4.0739e+05_rb,2.7163e+05_rb,1.3581e+05_rb,1.1721e+01_rb/)\n      kbo(:, 4,14,16) = (/ &\n     &5.4132e+05_rb,4.0599e+05_rb,2.7066e+05_rb,1.3533e+05_rb,4.5827e+00_rb/)\n      kbo(:, 5,14,16) = (/ &\n     &5.3886e+05_rb,4.0414e+05_rb,2.6943e+05_rb,1.3471e+05_rb,7.8150e-02_rb/)\n      kbo(:, 1,15,16) = (/ &\n     &4.1181e+05_rb,3.0886e+05_rb,2.0591e+05_rb,1.0295e+05_rb,1.3732e+01_rb/)\n      kbo(:, 2,15,16) = (/ &\n     &4.1235e+05_rb,3.0926e+05_rb,2.0618e+05_rb,1.0309e+05_rb,1.3536e+01_rb/)\n      kbo(:, 3,15,16) = (/ &\n     &4.1248e+05_rb,3.0936e+05_rb,2.0624e+05_rb,1.0312e+05_rb,1.3259e+01_rb/)\n      kbo(:, 4,15,16) = (/ &\n     &4.1181e+05_rb,3.0886e+05_rb,2.0591e+05_rb,1.0296e+05_rb,1.2919e+01_rb/)\n      kbo(:, 5,15,16) = (/ &\n     &4.1010e+05_rb,3.0757e+05_rb,2.0505e+05_rb,1.0253e+05_rb,4.0719e+00_rb/)\n      kbo(:, 1,16,16) = (/ &\n     &3.7257e+05_rb,2.7672e+05_rb,1.8628e+05_rb,9.3143e+04_rb,1.5485e+01_rb/)\n      kbo(:, 2,16,16) = (/ &\n     &3.7431e+05_rb,2.8074e+05_rb,1.8716e+05_rb,9.3579e+04_rb,1.5222e+01_rb/)\n      kbo(:, 3,16,16) = (/ &\n     &3.7500e+05_rb,2.8129e+05_rb,1.8753e+05_rb,9.3763e+04_rb,1.4862e+01_rb/)\n      kbo(:, 4,16,16) = (/ &\n     &3.7444e+05_rb,2.8083e+05_rb,1.8722e+05_rb,9.3612e+04_rb,1.4438e+01_rb/)\n      kbo(:, 5,16,16) = (/ &\n     &3.7332e+05_rb,2.7999e+05_rb,1.8666e+05_rb,9.3332e+04_rb,7.6230e+00_rb/)\n      kbo(:, 1,17,16) = (/ &\n     &3.5182e+05_rb,2.6386e+05_rb,1.7591e+05_rb,8.7955e+04_rb,1.7290e+01_rb/)\n      kbo(:, 2,17,16) = (/ &\n     &3.5397e+05_rb,2.6547e+05_rb,1.7698e+05_rb,8.8492e+04_rb,1.6932e+01_rb/)\n      kbo(:, 3,17,16) = (/ &\n     &3.5462e+05_rb,2.6597e+05_rb,1.7731e+05_rb,8.8656e+04_rb,1.6480e+01_rb/)\n      kbo(:, 4,17,16) = (/ &\n     &3.5402e+05_rb,2.6552e+05_rb,1.7701e+05_rb,8.8507e+04_rb,1.5962e+01_rb/)\n      kbo(:, 5,17,16) = (/ &\n     &3.5314e+05_rb,2.6486e+05_rb,1.7657e+05_rb,8.8287e+04_rb,1.0353e+01_rb/)\n      kbo(:, 1,18,16) = (/ &\n     &3.4176e+05_rb,2.5632e+05_rb,1.7088e+05_rb,8.5439e+04_rb,1.9139e+01_rb/)\n      kbo(:, 2,18,16) = (/ &\n     &3.4367e+05_rb,2.5775e+05_rb,1.7183e+05_rb,8.5917e+04_rb,1.8641e+01_rb/)\n      kbo(:, 3,18,16) = (/ &\n     &3.4399e+05_rb,2.5800e+05_rb,1.7200e+05_rb,8.5999e+04_rb,1.8079e+01_rb/)\n      kbo(:, 4,18,16) = (/ &\n     &3.4376e+05_rb,2.5782e+05_rb,1.7188e+05_rb,8.5941e+04_rb,1.7627e+01_rb/)\n      kbo(:, 5,18,16) = (/ &\n     &3.4258e+05_rb,2.5694e+05_rb,1.7129e+05_rb,8.5646e+04_rb,1.3174e+01_rb/)\n      kbo(:, 1,19,16) = (/ &\n     &3.2677e+05_rb,2.4508e+05_rb,1.6338e+05_rb,8.1692e+04_rb,2.1598e+01_rb/)\n      kbo(:, 2,19,16) = (/ &\n     &3.2775e+05_rb,2.4581e+05_rb,1.6387e+05_rb,8.1937e+04_rb,2.1013e+01_rb/)\n      kbo(:, 3,19,16) = (/ &\n     &3.2835e+05_rb,2.4626e+05_rb,1.6417e+05_rb,8.2068e+04_rb,2.0530e+01_rb/)\n      kbo(:, 4,19,16) = (/ &\n     &3.2780e+05_rb,2.4585e+05_rb,1.6390e+05_rb,8.1950e+04_rb,2.0057e+01_rb/)\n      kbo(:, 5,19,16) = (/ &\n     &3.2322e+05_rb,2.4484e+05_rb,1.6323e+05_rb,8.1613e+04_rb,1.8218e+01_rb/)\n      kbo(:, 1,20,16) = (/ &\n     &3.3791e+05_rb,2.5343e+05_rb,1.6896e+05_rb,8.4478e+04_rb,2.4811e+01_rb/)\n      kbo(:, 2,20,16) = (/ &\n     &3.3834e+05_rb,2.5376e+05_rb,1.6917e+05_rb,8.4586e+04_rb,2.4163e+01_rb/)\n      kbo(:, 3,20,16) = (/ &\n     &3.3842e+05_rb,2.5381e+05_rb,1.6921e+05_rb,8.4605e+04_rb,2.3647e+01_rb/)\n      kbo(:, 4,20,16) = (/ &\n     &3.3728e+05_rb,2.5296e+05_rb,1.6864e+05_rb,8.4321e+04_rb,2.3144e+01_rb/)\n      kbo(:, 5,20,16) = (/ &\n     &3.3569e+05_rb,2.5177e+05_rb,1.6785e+05_rb,8.3923e+04_rb,2.2618e+01_rb/)\n      kbo(:, 1,21,16) = (/ &\n     &3.5913e+05_rb,2.6935e+05_rb,1.7956e+05_rb,8.9782e+04_rb,2.8889e+01_rb/)\n      kbo(:, 2,21,16) = (/ &\n     &3.5914e+05_rb,2.6936e+05_rb,1.7957e+05_rb,8.9786e+04_rb,2.8114e+01_rb/)\n      kbo(:, 3,21,16) = (/ &\n     &3.5794e+05_rb,2.6846e+05_rb,1.7897e+05_rb,8.9486e+04_rb,2.7459e+01_rb/)\n      kbo(:, 4,21,16) = (/ &\n     &3.5626e+05_rb,2.6720e+05_rb,1.7813e+05_rb,8.9066e+04_rb,2.6836e+01_rb/)\n      kbo(:, 5,21,16) = (/ &\n     &3.5369e+05_rb,2.6527e+05_rb,1.7684e+05_rb,8.8423e+04_rb,2.6161e+01_rb/)\n      kbo(:, 1,22,16) = (/ &\n     &3.8948e+05_rb,2.9211e+05_rb,1.9474e+05_rb,9.7369e+04_rb,3.3724e+01_rb/)\n      kbo(:, 2,22,16) = (/ &\n     &3.8828e+05_rb,2.9121e+05_rb,1.9414e+05_rb,9.7069e+04_rb,3.2720e+01_rb/)\n      kbo(:, 3,22,16) = (/ &\n     &3.8560e+05_rb,2.8920e+05_rb,1.9280e+05_rb,9.6401e+04_rb,3.1834e+01_rb/)\n      kbo(:, 4,22,16) = (/ &\n     &3.8253e+05_rb,2.8690e+05_rb,1.9127e+05_rb,9.5633e+04_rb,3.0971e+01_rb/)\n      kbo(:, 5,22,16) = (/ &\n     &3.7845e+05_rb,2.8383e+05_rb,1.8922e+05_rb,9.4612e+04_rb,3.0080e+01_rb/)\n      kbo(:, 1,23,16) = (/ &\n     &4.2147e+05_rb,3.1611e+05_rb,2.1074e+05_rb,1.0537e+05_rb,3.9276e+01_rb/)\n      kbo(:, 2,23,16) = (/ &\n     &4.1843e+05_rb,3.1382e+05_rb,2.0921e+05_rb,1.0461e+05_rb,3.7947e+01_rb/)\n      kbo(:, 3,23,16) = (/ &\n     &4.1438e+05_rb,3.1079e+05_rb,2.0719e+05_rb,1.0360e+05_rb,3.6734e+01_rb/)\n      kbo(:, 4,23,16) = (/ &\n     &4.0918e+05_rb,3.0688e+05_rb,2.0459e+05_rb,1.0230e+05_rb,3.5522e+01_rb/)\n      kbo(:, 5,23,16) = (/ &\n     &4.0269e+05_rb,3.0202e+05_rb,2.0135e+05_rb,1.0067e+05_rb,3.4322e+01_rb/)\n      kbo(:, 1,24,16) = (/ &\n     &4.4910e+05_rb,3.3682e+05_rb,2.2455e+05_rb,1.1228e+05_rb,4.5446e+01_rb/)\n      kbo(:, 2,24,16) = (/ &\n     &4.4436e+05_rb,3.3327e+05_rb,2.2218e+05_rb,1.1109e+05_rb,4.3684e+01_rb/)\n      kbo(:, 3,24,16) = (/ &\n     &4.3822e+05_rb,3.2867e+05_rb,2.1911e+05_rb,1.0956e+05_rb,4.2010e+01_rb/)\n      kbo(:, 4,24,16) = (/ &\n     &4.3055e+05_rb,3.2291e+05_rb,2.1528e+05_rb,1.0764e+05_rb,4.0380e+01_rb/)\n      kbo(:, 5,24,16) = (/ &\n     &4.2183e+05_rb,3.1637e+05_rb,2.1092e+05_rb,1.0546e+05_rb,3.8819e+01_rb/)\n      kbo(:, 1,25,16) = (/ &\n     &4.7951e+05_rb,3.5963e+05_rb,2.3975e+05_rb,1.1988e+05_rb,5.2030e+01_rb/)\n      kbo(:, 2,25,16) = (/ &\n     &4.7236e+05_rb,3.5427e+05_rb,2.3618e+05_rb,1.1809e+05_rb,4.9759e+01_rb/)\n      kbo(:, 3,25,16) = (/ &\n     &4.6345e+05_rb,3.4759e+05_rb,2.3173e+05_rb,1.1586e+05_rb,4.7513e+01_rb/)\n      kbo(:, 4,25,16) = (/ &\n     &4.5307e+05_rb,3.3980e+05_rb,2.2654e+05_rb,1.1327e+05_rb,4.5411e+01_rb/)\n      kbo(:, 5,25,16) = (/ &\n     &4.4201e+05_rb,3.3151e+05_rb,2.2101e+05_rb,1.1050e+05_rb,4.3416e+01_rb/)\n      kbo(:, 1,26,16) = (/ &\n     &5.1412e+05_rb,3.8559e+05_rb,2.5706e+05_rb,1.2853e+05_rb,5.8735e+01_rb/)\n      kbo(:, 2,26,16) = (/ &\n     &5.0368e+05_rb,3.7776e+05_rb,2.5184e+05_rb,1.2592e+05_rb,5.5868e+01_rb/)\n      kbo(:, 3,26,16) = (/ &\n     &4.9157e+05_rb,3.6868e+05_rb,2.4579e+05_rb,1.2289e+05_rb,5.3078e+01_rb/)\n      kbo(:, 4,26,16) = (/ &\n     &4.7856e+05_rb,3.5892e+05_rb,2.3928e+05_rb,1.1964e+05_rb,5.0425e+01_rb/)\n      kbo(:, 5,26,16) = (/ &\n     &4.6464e+05_rb,3.4848e+05_rb,2.3232e+05_rb,1.1616e+05_rb,4.7921e+01_rb/)\n      kbo(:, 1,27,16) = (/ &\n     &5.6504e+05_rb,4.2378e+05_rb,2.8252e+05_rb,1.4126e+05_rb,6.5394e+01_rb/)\n      kbo(:, 2,27,16) = (/ &\n     &5.5002e+05_rb,4.1252e+05_rb,2.7501e+05_rb,1.3751e+05_rb,6.1825e+01_rb/)\n      kbo(:, 3,27,16) = (/ &\n     &5.3436e+05_rb,4.0077e+05_rb,2.6718e+05_rb,1.3359e+05_rb,5.8497e+01_rb/)\n      kbo(:, 4,27,16) = (/ &\n     &5.1782e+05_rb,3.8837e+05_rb,2.5891e+05_rb,1.2946e+05_rb,5.5282e+01_rb/)\n      kbo(:, 5,27,16) = (/ &\n     &5.0051e+05_rb,3.7538e+05_rb,2.5025e+05_rb,1.2513e+05_rb,5.2211e+01_rb/)\n      kbo(:, 1,28,16) = (/ &\n     &6.2869e+05_rb,4.7152e+05_rb,3.1435e+05_rb,1.5717e+05_rb,7.1700e+01_rb/)\n      kbo(:, 2,28,16) = (/ &\n     &6.0862e+05_rb,4.5646e+05_rb,3.0431e+05_rb,1.5215e+05_rb,6.7460e+01_rb/)\n      kbo(:, 3,28,16) = (/ &\n     &5.8860e+05_rb,4.4145e+05_rb,2.9430e+05_rb,1.4715e+05_rb,6.3511e+01_rb/)\n      kbo(:, 4,28,16) = (/ &\n     &5.6780e+05_rb,4.2585e+05_rb,2.8390e+05_rb,1.4195e+05_rb,5.9746e+01_rb/)\n      kbo(:, 5,28,16) = (/ &\n     &5.4624e+05_rb,4.0968e+05_rb,2.7312e+05_rb,1.3656e+05_rb,5.6156e+01_rb/)\n      kbo(:, 1,29,16) = (/ &\n     &7.3240e+05_rb,5.4930e+05_rb,3.6620e+05_rb,1.8310e+05_rb,7.7436e+01_rb/)\n      kbo(:, 2,29,16) = (/ &\n     &7.0567e+05_rb,5.2925e+05_rb,3.5284e+05_rb,1.7642e+05_rb,7.2532e+01_rb/)\n      kbo(:, 3,29,16) = (/ &\n     &6.7920e+05_rb,5.0940e+05_rb,3.3960e+05_rb,1.6980e+05_rb,6.7962e+01_rb/)\n      kbo(:, 4,29,16) = (/ &\n     &6.5231e+05_rb,4.8923e+05_rb,3.2615e+05_rb,1.6308e+05_rb,6.3669e+01_rb/)\n      kbo(:, 5,29,16) = (/ &\n     &6.2510e+05_rb,4.6882e+05_rb,3.1255e+05_rb,1.5627e+05_rb,5.9600e+01_rb/)\n      kbo(:, 1,30,16) = (/ &\n     &8.6319e+05_rb,6.4740e+05_rb,4.3160e+05_rb,2.1580e+05_rb,8.2489e+01_rb/)\n      kbo(:, 2,30,16) = (/ &\n     &8.2811e+05_rb,6.2108e+05_rb,4.1405e+05_rb,2.0703e+05_rb,7.6918e+01_rb/)\n      kbo(:, 3,30,16) = (/ &\n     &7.9339e+05_rb,5.9504e+05_rb,3.9669e+05_rb,1.9835e+05_rb,7.1793e+01_rb/)\n      kbo(:, 4,30,16) = (/ &\n     &7.5902e+05_rb,5.6926e+05_rb,3.7951e+05_rb,1.8975e+05_rb,6.6976e+01_rb/)\n      kbo(:, 5,30,16) = (/ &\n     &7.2513e+05_rb,5.4385e+05_rb,3.6256e+05_rb,1.8128e+05_rb,5.5921e+01_rb/)\n      kbo(:, 1,31,16) = (/ &\n     &1.0572e+06_rb,7.9291e+05_rb,5.2861e+05_rb,2.6430e+05_rb,8.6704e+01_rb/)\n      kbo(:, 2,31,16) = (/ &\n     &1.0099e+06_rb,7.5744e+05_rb,5.0496e+05_rb,2.5248e+05_rb,8.0546e+01_rb/)\n      kbo(:, 3,31,16) = (/ &\n     &9.6381e+05_rb,7.2285e+05_rb,4.8190e+05_rb,2.4095e+05_rb,7.4889e+01_rb/)\n      kbo(:, 4,31,16) = (/ &\n     &9.1917e+05_rb,6.8937e+05_rb,4.5958e+05_rb,2.2979e+05_rb,6.9630e+01_rb/)\n      kbo(:, 5,31,16) = (/ &\n     &8.7558e+05_rb,6.5669e+05_rb,4.3779e+05_rb,2.1889e+05_rb,5.1048e+01_rb/)\n      kbo(:, 1,32,16) = (/ &\n     &1.2953e+06_rb,9.7146e+05_rb,6.4764e+05_rb,3.2382e+05_rb,9.0053e+01_rb/)\n      kbo(:, 2,32,16) = (/ &\n     &1.2332e+06_rb,9.2492e+05_rb,6.1662e+05_rb,3.0831e+05_rb,8.3375e+01_rb/)\n      kbo(:, 3,32,16) = (/ &\n     &1.1732e+06_rb,8.7992e+05_rb,5.8661e+05_rb,2.9331e+05_rb,7.7283e+01_rb/)\n      kbo(:, 4,32,16) = (/ &\n     &1.1156e+06_rb,8.3672e+05_rb,5.5781e+05_rb,2.7891e+05_rb,5.9068e+01_rb/)\n      kbo(:, 5,32,16) = (/ &\n     &1.0600e+06_rb,7.9499e+05_rb,5.3000e+05_rb,2.6500e+05_rb,4.7615e+01_rb/)\n      kbo(:, 1,33,16) = (/ &\n     &1.6005e+06_rb,1.2004e+06_rb,8.0025e+05_rb,4.0013e+05_rb,9.2564e+01_rb/)\n      kbo(:, 2,33,16) = (/ &\n     &1.5042e+06_rb,1.1396e+06_rb,7.5976e+05_rb,3.7988e+05_rb,8.5451e+01_rb/)\n      kbo(:, 3,33,16) = (/ &\n     &1.4412e+06_rb,1.0809e+06_rb,7.2060e+05_rb,3.6030e+05_rb,6.7956e+01_rb/)\n      kbo(:, 4,33,16) = (/ &\n     &1.3676e+06_rb,1.0257e+06_rb,6.8379e+05_rb,3.4189e+05_rb,5.3693e+01_rb/)\n      kbo(:, 5,33,16) = (/ &\n     &1.2966e+06_rb,9.7245e+05_rb,6.4830e+05_rb,3.2415e+05_rb,4.3539e+01_rb/)\n      kbo(:, 1,34,16) = (/ &\n     &1.9162e+06_rb,1.4372e+06_rb,9.5812e+05_rb,4.7906e+05_rb,9.4564e+01_rb/)\n      kbo(:, 2,34,16) = (/ &\n     &1.8147e+06_rb,1.3610e+06_rb,9.0734e+05_rb,4.5367e+05_rb,8.5602e+01_rb/)\n      kbo(:, 3,34,16) = (/ &\n     &1.7177e+06_rb,1.2883e+06_rb,8.5884e+05_rb,4.2942e+05_rb,6.2695e+01_rb/)\n      kbo(:, 4,34,16) = (/ &\n     &1.6266e+06_rb,1.2199e+06_rb,8.1329e+05_rb,4.0664e+05_rb,5.0461e+01_rb/)\n      kbo(:, 5,34,16) = (/ &\n     &1.5395e+06_rb,1.1546e+06_rb,7.6973e+05_rb,3.8486e+05_rb,4.1009e+01_rb/)\n      kbo(:, 1,35,16) = (/ &\n     &2.2940e+06_rb,1.7205e+06_rb,1.1470e+06_rb,5.7350e+05_rb,9.6683e+01_rb/)\n      kbo(:, 2,35,16) = (/ &\n     &2.1679e+06_rb,1.6259e+06_rb,1.0839e+06_rb,5.4197e+05_rb,7.5706e+01_rb/)\n      kbo(:, 3,35,16) = (/ &\n     &2.0487e+06_rb,1.5365e+06_rb,1.0243e+06_rb,5.1216e+05_rb,5.9415e+01_rb/)\n      kbo(:, 4,35,16) = (/ &\n     &1.9369e+06_rb,1.4527e+06_rb,9.6844e+05_rb,4.8422e+05_rb,4.7837e+01_rb/)\n      kbo(:, 5,35,16) = (/ &\n     &1.8303e+06_rb,1.3728e+06_rb,9.1517e+05_rb,4.5758e+05_rb,3.3167e+01_rb/)\n      kbo(:, 1,36,16) = (/ &\n     &2.7323e+06_rb,2.0492e+06_rb,1.3661e+06_rb,6.8307e+05_rb,9.9200e+01_rb/)\n      kbo(:, 2,36,16) = (/ &\n     &2.5780e+06_rb,1.9335e+06_rb,1.2890e+06_rb,6.4450e+05_rb,7.2688e+01_rb/)\n      kbo(:, 3,36,16) = (/ &\n     &2.4326e+06_rb,1.8244e+06_rb,1.2163e+06_rb,6.0814e+05_rb,5.7708e+01_rb/)\n      kbo(:, 4,36,16) = (/ &\n     &2.2967e+06_rb,1.7225e+06_rb,1.1483e+06_rb,5.7417e+05_rb,4.6712e+01_rb/)\n      kbo(:, 5,36,16) = (/ &\n     &2.1679e+06_rb,1.6259e+06_rb,1.0839e+06_rb,5.4197e+05_rb,1.2791e+01_rb/)\n      kbo(:, 1,37,16) = (/ &\n     &3.1885e+06_rb,2.3914e+06_rb,1.5942e+06_rb,7.9711e+05_rb,1.0268e+02_rb/)\n      kbo(:, 2,37,16) = (/ &\n     &3.0040e+06_rb,2.2530e+06_rb,1.5020e+06_rb,7.5099e+05_rb,7.3443e+01_rb/)\n      kbo(:, 3,37,16) = (/ &\n     &2.8309e+06_rb,2.1232e+06_rb,1.4155e+06_rb,7.0773e+05_rb,5.8756e+01_rb/)\n      kbo(:, 4,37,16) = (/ &\n     &2.6696e+06_rb,2.0022e+06_rb,1.3348e+06_rb,6.6739e+05_rb,4.7388e+01_rb/)\n      kbo(:, 5,37,16) = (/ &\n     &2.5177e+06_rb,1.8883e+06_rb,1.2588e+06_rb,6.2942e+05_rb,7.8483e+00_rb/)\n      kbo(:, 1,38,16) = (/ &\n     &3.7660e+06_rb,2.8245e+06_rb,1.8830e+06_rb,9.4149e+05_rb,1.0053e+02_rb/)\n      kbo(:, 2,38,16) = (/ &\n     &3.5441e+06_rb,2.6581e+06_rb,1.7720e+06_rb,8.8602e+05_rb,7.3960e+01_rb/)\n      kbo(:, 3,38,16) = (/ &\n     &3.3357e+06_rb,2.5018e+06_rb,1.6678e+06_rb,8.3391e+05_rb,5.9673e+01_rb/)\n      kbo(:, 4,38,16) = (/ &\n     &3.1421e+06_rb,2.3566e+06_rb,1.5711e+06_rb,7.8553e+05_rb,4.7953e+01_rb/)\n      kbo(:, 5,38,16) = (/ &\n     &2.9610e+06_rb,2.2207e+06_rb,1.4805e+06_rb,7.4024e+05_rb,7.1016e-04_rb/)\n      kbo(:, 1,39,16) = (/ &\n     &4.5378e+06_rb,3.4034e+06_rb,2.2689e+06_rb,1.1345e+06_rb,9.8727e+01_rb/)\n      kbo(:, 2,39,16) = (/ &\n     &4.2667e+06_rb,3.2000e+06_rb,2.1334e+06_rb,1.0667e+06_rb,7.4242e+01_rb/)\n      kbo(:, 3,39,16) = (/ &\n     &4.0124e+06_rb,3.0093e+06_rb,2.0062e+06_rb,1.0031e+06_rb,5.9575e+01_rb/)\n      kbo(:, 4,39,16) = (/ &\n     &3.7760e+06_rb,2.8320e+06_rb,1.8880e+06_rb,9.4400e+05_rb,3.9674e+01_rb/)\n      kbo(:, 5,39,16) = (/ &\n     &3.5558e+06_rb,2.6669e+06_rb,1.7591e+06_rb,8.8898e+05_rb,5.7405e-04_rb/)\n      kbo(:, 1,40,16) = (/ &\n     &5.1586e+06_rb,3.8690e+06_rb,2.5793e+06_rb,1.2896e+06_rb,1.0433e+02_rb/)\n      kbo(:, 2,40,16) = (/ &\n     &4.8469e+06_rb,3.6347e+06_rb,2.4234e+06_rb,1.2117e+06_rb,7.7760e+01_rb/)\n      kbo(:, 3,40,16) = (/ &\n     &4.5541e+06_rb,3.4156e+06_rb,2.2770e+06_rb,1.1385e+06_rb,6.1585e+01_rb/)\n      kbo(:, 4,40,16) = (/ &\n     &4.2818e+06_rb,3.2114e+06_rb,2.1409e+06_rb,1.0704e+06_rb,4.0940e+01_rb/)\n      kbo(:, 5,40,16) = (/ &\n     &4.0296e+06_rb,3.0222e+06_rb,2.0148e+06_rb,1.0074e+06_rb,4.6888e-04_rb/)\n      kbo(:, 1,41,16) = (/ &\n     &5.8465e+06_rb,4.3849e+06_rb,2.9233e+06_rb,1.4616e+06_rb,1.1317e+02_rb/)\n      kbo(:, 2,41,16) = (/ &\n     &5.4907e+06_rb,4.1180e+06_rb,2.7454e+06_rb,1.3727e+06_rb,8.1398e+01_rb/)\n      kbo(:, 3,41,16) = (/ &\n     &5.1550e+06_rb,3.8663e+06_rb,2.5775e+06_rb,1.2888e+06_rb,6.4536e+01_rb/)\n      kbo(:, 4,41,16) = (/ &\n     &4.8434e+06_rb,3.6326e+06_rb,2.4217e+06_rb,1.2109e+06_rb,4.3960e+01_rb/)\n      kbo(:, 5,41,16) = (/ &\n     &4.5548e+06_rb,3.4161e+06_rb,2.2774e+06_rb,1.1387e+06_rb,3.7799e-04_rb/)\n      kbo(:, 1,42,16) = (/ &\n     &6.6900e+06_rb,5.0175e+06_rb,3.3450e+06_rb,1.6725e+06_rb,1.2124e+02_rb/)\n      kbo(:, 2,42,16) = (/ &\n     &6.2794e+06_rb,4.7096e+06_rb,3.1397e+06_rb,1.5698e+06_rb,8.5097e+01_rb/)\n      kbo(:, 3,42,16) = (/ &\n     &5.8926e+06_rb,4.4195e+06_rb,2.9463e+06_rb,1.4731e+06_rb,6.7520e+01_rb/)\n      kbo(:, 4,42,16) = (/ &\n     &5.5323e+06_rb,4.1492e+06_rb,2.7661e+06_rb,1.3831e+06_rb,4.6182e+01_rb/)\n      kbo(:, 5,42,16) = (/ &\n     &5.1983e+06_rb,3.8987e+06_rb,2.5991e+06_rb,1.2996e+06_rb,3.0509e-04_rb/)\n      kbo(:, 1,43,16) = (/ &\n     &7.7419e+06_rb,5.8065e+06_rb,3.8710e+06_rb,1.9355e+06_rb,1.2600e+02_rb/)\n      kbo(:, 2,43,16) = (/ &\n     &7.2619e+06_rb,5.4481e+06_rb,3.6321e+06_rb,1.8161e+06_rb,9.0385e+01_rb/)\n      kbo(:, 3,43,16) = (/ &\n     &6.8139e+06_rb,5.1104e+06_rb,3.4070e+06_rb,1.7035e+06_rb,7.0944e+01_rb/)\n      kbo(:, 4,43,16) = (/ &\n     &6.3928e+06_rb,4.7946e+06_rb,3.1964e+06_rb,1.5982e+06_rb,5.0507e+01_rb/)\n      kbo(:, 5,43,16) = (/ &\n     &6.0029e+06_rb,4.5022e+06_rb,3.0015e+06_rb,1.5007e+06_rb,2.4615e-04_rb/)\n      kbo(:, 1,44,16) = (/ &\n     &9.0918e+06_rb,6.8188e+06_rb,4.5458e+06_rb,2.2729e+06_rb,1.3122e+02_rb/)\n      kbo(:, 2,44,16) = (/ &\n     &8.5266e+06_rb,6.3949e+06_rb,4.2633e+06_rb,2.1316e+06_rb,9.7168e+01_rb/)\n      kbo(:, 3,44,16) = (/ &\n     &7.9959e+06_rb,5.9969e+06_rb,3.9979e+06_rb,1.9989e+06_rb,7.5640e+01_rb/)\n      kbo(:, 4,44,16) = (/ &\n     &7.4967e+06_rb,5.6225e+06_rb,3.7483e+06_rb,1.8741e+06_rb,5.7032e+01_rb/)\n      kbo(:, 5,44,16) = (/ &\n     &7.0357e+06_rb,5.2767e+06_rb,3.5178e+06_rb,1.7589e+06_rb,1.1125e-02_rb/)\n      kbo(:, 1,45,16) = (/ &\n     &1.0890e+07_rb,8.1678e+06_rb,5.4452e+06_rb,2.7226e+06_rb,1.3511e+02_rb/)\n      kbo(:, 2,45,16) = (/ &\n     &1.0206e+07_rb,7.6543e+06_rb,5.1028e+06_rb,2.5514e+06_rb,1.0320e+02_rb/)\n      kbo(:, 3,45,16) = (/ &\n     &9.5676e+06_rb,7.1757e+06_rb,4.7838e+06_rb,2.3919e+06_rb,7.9521e+01_rb/)\n      kbo(:, 4,45,16) = (/ &\n     &8.9682e+06_rb,6.7261e+06_rb,4.4841e+06_rb,2.2420e+06_rb,5.3314e+01_rb/)\n      kbo(:, 5,45,16) = (/ &\n     &8.4107e+06_rb,6.3080e+06_rb,4.2053e+06_rb,2.1027e+06_rb,2.2542e-04_rb/)\n      kbo(:, 1,46,16) = (/ &\n     &1.3200e+07_rb,9.8998e+06_rb,6.5999e+06_rb,3.2999e+06_rb,1.4245e+02_rb/)\n      kbo(:, 2,46,16) = (/ &\n     &1.2354e+07_rb,9.2658e+06_rb,6.1772e+06_rb,3.0886e+06_rb,1.1090e+02_rb/)\n      kbo(:, 3,46,16) = (/ &\n     &1.1578e+07_rb,8.6832e+06_rb,5.7888e+06_rb,2.8944e+06_rb,8.3717e+01_rb/)\n      kbo(:, 4,46,16) = (/ &\n     &1.0851e+07_rb,8.1384e+06_rb,5.4256e+06_rb,2.7128e+06_rb,5.1335e+01_rb/)\n      kbo(:, 5,46,16) = (/ &\n     &1.0172e+07_rb,7.6289e+06_rb,5.0860e+06_rb,2.5430e+06_rb,1.9729e-04_rb/)\n      kbo(:, 1,47,16) = (/ &\n     &1.5899e+07_rb,1.1924e+07_rb,7.9494e+06_rb,3.9747e+06_rb,1.4926e+02_rb/)\n      kbo(:, 2,47,16) = (/ &\n     &1.4859e+07_rb,1.1144e+07_rb,7.4297e+06_rb,3.7148e+06_rb,1.2298e+02_rb/)\n      kbo(:, 3,47,16) = (/ &\n     &1.3924e+07_rb,1.0443e+07_rb,6.9621e+06_rb,3.4810e+06_rb,8.5230e+01_rb/)\n      kbo(:, 4,47,16) = (/ &\n     &1.3046e+07_rb,9.7847e+06_rb,6.5231e+06_rb,3.2616e+06_rb,5.3561e+01_rb/)\n      kbo(:, 5,47,16) = (/ &\n     &1.2222e+07_rb,9.1665e+06_rb,6.1110e+06_rb,3.0555e+06_rb,1.6606e-04_rb/)\n      kbo(:, 1,48,16) = (/ &\n     &1.9701e+07_rb,1.4775e+07_rb,9.8503e+06_rb,4.9251e+06_rb,1.5645e+02_rb/)\n      kbo(:, 2,48,16) = (/ &\n     &1.8394e+07_rb,1.3796e+07_rb,9.1972e+06_rb,4.5986e+06_rb,1.4059e+02_rb/)\n      kbo(:, 3,48,16) = (/ &\n     &1.7217e+07_rb,1.2913e+07_rb,8.6087e+06_rb,4.3044e+06_rb,8.5580e+01_rb/)\n      kbo(:, 4,48,16) = (/ &\n     &1.6130e+07_rb,1.2097e+07_rb,8.0649e+06_rb,4.0324e+06_rb,5.5884e+01_rb/)\n      kbo(:, 5,48,16) = (/ &\n     &1.5108e+07_rb,1.1331e+07_rb,7.5542e+06_rb,3.7771e+06_rb,1.4110e-04_rb/)\n      kbo(:, 1,49,16) = (/ &\n     &2.5446e+07_rb,1.9085e+07_rb,1.2723e+07_rb,6.3615e+06_rb,1.6402e+02_rb/)\n      kbo(:, 2,49,16) = (/ &\n     &2.3735e+07_rb,1.7801e+07_rb,1.1868e+07_rb,5.9337e+06_rb,1.4463e+02_rb/)\n      kbo(:, 3,49,16) = (/ &\n     &2.2185e+07_rb,1.6639e+07_rb,1.1093e+07_rb,5.5463e+06_rb,8.5806e+01_rb/)\n      kbo(:, 4,49,16) = (/ &\n     &2.0781e+07_rb,1.5586e+07_rb,1.0390e+07_rb,5.1952e+06_rb,5.2515e+01_rb/)\n      kbo(:, 5,49,16) = (/ &\n     &1.9463e+07_rb,1.4597e+07_rb,9.7313e+06_rb,4.8656e+06_rb,1.1804e-04_rb/)\n      kbo(:, 1,50,16) = (/ &\n     &3.1256e+07_rb,2.3442e+07_rb,1.5628e+07_rb,7.8139e+06_rb,1.7145e+02_rb/)\n      kbo(:, 2,50,16) = (/ &\n     &2.9123e+07_rb,2.1842e+07_rb,1.4562e+07_rb,7.2808e+06_rb,1.4715e+02_rb/)\n      kbo(:, 3,50,16) = (/ &\n     &2.7197e+07_rb,2.0398e+07_rb,1.3599e+07_rb,6.7993e+06_rb,9.2079e+01_rb/)\n      kbo(:, 4,50,16) = (/ &\n     &2.5458e+07_rb,1.9094e+07_rb,1.2729e+07_rb,6.3645e+06_rb,5.7113e+01_rb/)\n      kbo(:, 5,50,16) = (/ &\n     &2.3842e+07_rb,1.7882e+07_rb,1.1921e+07_rb,5.9606e+06_rb,9.7879e-05_rb/)\n      kbo(:, 1,51,16) = (/ &\n     &3.7532e+07_rb,2.8149e+07_rb,1.8766e+07_rb,9.3831e+06_rb,1.7913e+02_rb/)\n      kbo(:, 2,51,16) = (/ &\n     &3.4951e+07_rb,2.6213e+07_rb,1.7476e+07_rb,8.7379e+06_rb,1.5348e+02_rb/)\n      kbo(:, 3,51,16) = (/ &\n     &3.2604e+07_rb,2.4453e+07_rb,1.6302e+07_rb,8.1511e+06_rb,9.9906e+01_rb/)\n      kbo(:, 4,51,16) = (/ &\n     &3.0489e+07_rb,2.2867e+07_rb,1.5245e+07_rb,7.6224e+06_rb,6.1926e+01_rb/)\n      kbo(:, 5,51,16) = (/ &\n     &2.8553e+07_rb,2.1415e+07_rb,1.4277e+07_rb,7.1383e+06_rb,8.2332e-05_rb/)\n      kbo(:, 1,52,16) = (/ &\n     &4.6363e+07_rb,3.4773e+07_rb,2.3182e+07_rb,1.1591e+07_rb,1.8724e+02_rb/)\n      kbo(:, 2,52,16) = (/ &\n     &4.3154e+07_rb,3.2365e+07_rb,2.1577e+07_rb,1.0789e+07_rb,1.5735e+02_rb/)\n      kbo(:, 3,52,16) = (/ &\n     &4.0219e+07_rb,3.0165e+07_rb,2.0110e+07_rb,1.0055e+07_rb,1.0819e+02_rb/)\n      kbo(:, 4,52,16) = (/ &\n     &3.7571e+07_rb,2.8178e+07_rb,1.8786e+07_rb,9.3929e+06_rb,6.5746e+01_rb/)\n      kbo(:, 5,52,16) = (/ &\n     &3.5175e+07_rb,2.6382e+07_rb,1.7588e+07_rb,8.7937e+06_rb,2.5991e+00_rb/)\n      kbo(:, 1,53,16) = (/ &\n     &5.9694e+07_rb,4.4771e+07_rb,2.9847e+07_rb,1.4924e+07_rb,1.9593e+02_rb/)\n      kbo(:, 2,53,16) = (/ &\n     &5.5520e+07_rb,4.1640e+07_rb,2.7760e+07_rb,1.3880e+07_rb,1.5986e+02_rb/)\n      kbo(:, 3,53,16) = (/ &\n     &5.1713e+07_rb,3.8785e+07_rb,2.5857e+07_rb,1.2928e+07_rb,1.1418e+02_rb/)\n      kbo(:, 4,53,16) = (/ &\n     &4.8267e+07_rb,3.6200e+07_rb,2.4134e+07_rb,1.2067e+07_rb,6.7101e+01_rb/)\n      kbo(:, 5,53,16) = (/ &\n     &4.5154e+07_rb,3.3866e+07_rb,2.2577e+07_rb,1.1289e+07_rb,5.4836e-05_rb/)\n      kbo(:, 1,54,16) = (/ &\n     &6.6291e+07_rb,4.9719e+07_rb,3.3146e+07_rb,1.6573e+07_rb,2.0438e+02_rb/)\n      kbo(:, 2,54,16) = (/ &\n     &6.1631e+07_rb,4.6223e+07_rb,3.0816e+07_rb,1.5408e+07_rb,1.7539e+02_rb/)\n      kbo(:, 3,54,16) = (/ &\n     &5.7374e+07_rb,4.3031e+07_rb,2.8687e+07_rb,1.4344e+07_rb,1.3582e+02_rb/)\n      kbo(:, 4,54,16) = (/ &\n     &5.3498e+07_rb,4.0123e+07_rb,2.6749e+07_rb,1.3375e+07_rb,7.9383e+01_rb/)\n      kbo(:, 5,54,16) = (/ &\n     &5.0001e+07_rb,3.7501e+07_rb,2.5001e+07_rb,1.2501e+07_rb,1.9380e+01_rb/)\n      kbo(:, 1,55,16) = (/ &\n     &6.7110e+07_rb,5.0333e+07_rb,3.3555e+07_rb,1.6778e+07_rb,2.1302e+02_rb/)\n      kbo(:, 2,55,16) = (/ &\n     &6.2350e+07_rb,4.6763e+07_rb,3.1175e+07_rb,1.5588e+07_rb,1.8842e+02_rb/)\n      kbo(:, 3,55,16) = (/ &\n     &5.8012e+07_rb,4.3509e+07_rb,2.9006e+07_rb,1.4503e+07_rb,1.5117e+02_rb/)\n      kbo(:, 4,55,16) = (/ &\n     &5.4054e+07_rb,4.0541e+07_rb,2.7027e+07_rb,1.3514e+07_rb,1.0060e+02_rb/)\n      kbo(:, 5,55,16) = (/ &\n     &5.0479e+07_rb,3.7859e+07_rb,2.5240e+07_rb,1.2620e+07_rb,5.1596e+01_rb/)\n      kbo(:, 1,56,16) = (/ &\n     &6.7946e+07_rb,5.0959e+07_rb,3.3973e+07_rb,1.6986e+07_rb,2.2213e+02_rb/)\n      kbo(:, 2,56,16) = (/ &\n     &6.3087e+07_rb,4.7315e+07_rb,3.1543e+07_rb,1.5771e+07_rb,1.9599e+02_rb/)\n      kbo(:, 3,56,16) = (/ &\n     &5.8660e+07_rb,4.3995e+07_rb,2.9330e+07_rb,1.4665e+07_rb,1.7426e+02_rb/)\n      kbo(:, 4,56,16) = (/ &\n     &5.4632e+07_rb,4.0974e+07_rb,2.7316e+07_rb,1.3658e+07_rb,1.3341e+02_rb/)\n      kbo(:, 5,56,16) = (/ &\n     &5.0980e+07_rb,3.8235e+07_rb,2.5490e+07_rb,1.2745e+07_rb,7.5113e+01_rb/)\n      kbo(:, 1,57,16) = (/ &\n     &6.8848e+07_rb,5.1636e+07_rb,3.4424e+07_rb,1.7212e+07_rb,2.3193e+02_rb/)\n      kbo(:, 2,57,16) = (/ &\n     &6.3831e+07_rb,4.7873e+07_rb,3.1915e+07_rb,1.5958e+07_rb,2.0396e+02_rb/)\n      kbo(:, 3,57,16) = (/ &\n     &5.9337e+07_rb,4.4503e+07_rb,2.9325e+07_rb,1.4834e+07_rb,1.8090e+02_rb/)\n      kbo(:, 4,57,16) = (/ &\n     &5.5232e+07_rb,4.1423e+07_rb,2.7615e+07_rb,1.3808e+07_rb,1.4946e+02_rb/)\n      kbo(:, 5,57,16) = (/ &\n     &5.1498e+07_rb,3.8623e+07_rb,2.5749e+07_rb,1.2874e+07_rb,9.6802e+01_rb/)\n      kbo(:, 1,58,16) = (/ &\n     &1.8392e+07_rb,1.6863e+07_rb,1.4458e+07_rb,1.0126e+07_rb,2.4193e+02_rb/)\n      kbo(:, 2,58,16) = (/ &\n     &1.7018e+07_rb,1.5603e+07_rb,1.3378e+07_rb,9.3701e+06_rb,2.1195e+02_rb/)\n      kbo(:, 3,58,16) = (/ &\n     &1.5812e+07_rb,1.4497e+07_rb,1.2430e+07_rb,8.7057e+06_rb,1.8755e+02_rb/)\n      kbo(:, 4,58,16) = (/ &\n     &1.4710e+07_rb,1.3487e+07_rb,1.1564e+07_rb,8.0993e+06_rb,1.6722e+02_rb/)\n      kbo(:, 5,58,16) = (/ &\n     &1.3707e+07_rb,1.2567e+07_rb,1.0775e+07_rb,7.5470e+06_rb,1.3461e+02_rb/)\n      kbo(:, 1,59,16) = (/ &\n     &2.1701e+07_rb,1.8948e+07_rb,1.5114e+07_rb,9.4051e+06_rb,2.4616e+02_rb/)\n      kbo(:, 2,59,16) = (/ &\n     &2.0062e+07_rb,1.7517e+07_rb,1.3973e+07_rb,8.5918e+06_rb,2.1536e+02_rb/)\n      kbo(:, 3,59,16) = (/ &\n     &1.8637e+07_rb,1.6273e+07_rb,1.2980e+07_rb,8.0770e+06_rb,1.9038e+02_rb/)\n      kbo(:, 4,59,16) = (/ &\n     &1.7332e+07_rb,1.5134e+07_rb,1.2072e+07_rb,7.5118e+06_rb,1.6959e+02_rb/)\n      kbo(:, 5,59,16) = (/ &\n     &1.6145e+07_rb,1.4097e+07_rb,1.1245e+07_rb,6.9973e+06_rb,1.5180e+02_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &3.3839e-04_rb,2.4739e-04_rb,2.2846e-04_rb,2.3376e-04_rb,2.2622e-04_rb,2.3188e-04_rb, &\n     &2.2990e-04_rb,2.2532e-04_rb,2.1233e-04_rb,2.0593e-04_rb,2.0716e-04_rb,2.0809e-04_rb, &\n     &2.0889e-04_rb,2.0932e-04_rb,2.0944e-04_rb,2.0945e-04_rb/)\n      forrefo(2,:) = (/ &\n     &3.4391e-04_rb,2.6022e-04_rb,2.3449e-04_rb,2.4544e-04_rb,2.3831e-04_rb,2.3014e-04_rb, &\n     &2.3729e-04_rb,2.2726e-04_rb,2.1892e-04_rb,1.9223e-04_rb,2.1291e-04_rb,2.1406e-04_rb, &\n     &2.1491e-04_rb,2.1548e-04_rb,2.1562e-04_rb,2.1567e-04_rb/)\n      forrefo(3,:) = (/ &\n     &3.4219e-04_rb,2.7334e-04_rb,2.3727e-04_rb,2.4515e-04_rb,2.5272e-04_rb,2.4212e-04_rb, &\n     &2.3824e-04_rb,2.3615e-04_rb,2.2724e-04_rb,2.2381e-04_rb,1.9634e-04_rb,2.1625e-04_rb, &\n     &2.1963e-04_rb,2.2032e-04_rb,2.2057e-04_rb,2.2058e-04_rb/)\n      forrefo(4,:) = (/ &\n     &3.1684e-04_rb,2.4823e-04_rb,2.4890e-04_rb,2.4577e-04_rb,2.4106e-04_rb,2.4353e-04_rb, &\n     &2.4038e-04_rb,2.3932e-04_rb,2.3604e-04_rb,2.3773e-04_rb,2.4243e-04_rb,2.2597e-04_rb, &\n     &2.2879e-04_rb,2.2440e-04_rb,2.1104e-04_rb,2.1460e-04_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 2.62922e-01_rb, 2.29106e-01_rb, 1.99640e-01_rb, 1.73964e-01_rb, 1.51589e-01_rb, &\n     & 1.32093e-01_rb, 1.15104e-01_rb, 1.00300e-01_rb, 8.74000e-02_rb, 7.61592e-02_rb/)\n      selfrefo(:, 2) = (/ &\n     & 2.45448e-01_rb, 2.13212e-01_rb, 1.85210e-01_rb, 1.60886e-01_rb, 1.39756e-01_rb, &\n     & 1.21401e-01_rb, 1.05457e-01_rb, 9.16070e-02_rb, 7.95759e-02_rb, 6.91249e-02_rb/)\n      selfrefo(:, 3) = (/ &\n     & 2.41595e-01_rb, 2.09697e-01_rb, 1.82010e-01_rb, 1.57979e-01_rb, 1.37121e-01_rb, &\n     & 1.19016e-01_rb, 1.03302e-01_rb, 8.96630e-02_rb, 7.78246e-02_rb, 6.75492e-02_rb/)\n      selfrefo(:, 4) = (/ &\n     & 2.44818e-01_rb, 2.12172e-01_rb, 1.83880e-01_rb, 1.59360e-01_rb, 1.38110e-01_rb, &\n     & 1.19694e-01_rb, 1.03733e-01_rb, 8.99010e-02_rb, 7.79131e-02_rb, 6.75238e-02_rb/)\n      selfrefo(:, 5) = (/ &\n     & 2.43458e-01_rb, 2.10983e-01_rb, 1.82840e-01_rb, 1.58451e-01_rb, 1.37315e-01_rb, &\n     & 1.18998e-01_rb, 1.03125e-01_rb, 8.93690e-02_rb, 7.74480e-02_rb, 6.71171e-02_rb/)\n      selfrefo(:, 6) = (/ &\n     & 2.40186e-01_rb, 2.08745e-01_rb, 1.81420e-01_rb, 1.57672e-01_rb, 1.37032e-01_rb, &\n     & 1.19095e-01_rb, 1.03505e-01_rb, 8.99560e-02_rb, 7.81806e-02_rb, 6.79467e-02_rb/)\n      selfrefo(:, 7) = (/ &\n     & 2.42752e-01_rb, 2.10579e-01_rb, 1.82670e-01_rb, 1.58460e-01_rb, 1.37459e-01_rb, &\n     & 1.19240e-01_rb, 1.03437e-01_rb, 8.97280e-02_rb, 7.78359e-02_rb, 6.75200e-02_rb/)\n      selfrefo(:, 8) = (/ &\n     & 2.39620e-01_rb, 2.08166e-01_rb, 1.80840e-01_rb, 1.57101e-01_rb, 1.36479e-01_rb, &\n     & 1.18563e-01_rb, 1.03000e-01_rb, 8.94790e-02_rb, 7.77332e-02_rb, 6.75292e-02_rb/)\n      selfrefo(:, 9) = (/ &\n     & 2.38856e-01_rb, 2.07166e-01_rb, 1.79680e-01_rb, 1.55841e-01_rb, 1.35165e-01_rb, &\n     & 1.17232e-01_rb, 1.01678e-01_rb, 8.81880e-02_rb, 7.64877e-02_rb, 6.63397e-02_rb/)\n      selfrefo(:,10) = (/ &\n     & 2.29821e-01_rb, 2.00586e-01_rb, 1.75070e-01_rb, 1.52800e-01_rb, 1.33363e-01_rb, &\n     & 1.16398e-01_rb, 1.01591e-01_rb, 8.86680e-02_rb, 7.73887e-02_rb, 6.75443e-02_rb/)\n      selfrefo(:,11) = (/ &\n     & 2.39945e-01_rb, 2.08186e-01_rb, 1.80630e-01_rb, 1.56722e-01_rb, 1.35978e-01_rb, &\n     & 1.17980e-01_rb, 1.02364e-01_rb, 8.88150e-02_rb, 7.70594e-02_rb, 6.68598e-02_rb/)\n      selfrefo(:,12) = (/ &\n     & 2.40271e-01_rb, 2.08465e-01_rb, 1.80870e-01_rb, 1.56927e-01_rb, 1.36154e-01_rb, &\n     & 1.18131e-01_rb, 1.02494e-01_rb, 8.89260e-02_rb, 7.71545e-02_rb, 6.69412e-02_rb/)\n      selfrefo(:,13) = (/ &\n     & 2.40503e-01_rb, 2.08670e-01_rb, 1.81050e-01_rb, 1.57086e-01_rb, 1.36294e-01_rb, &\n     & 1.18254e-01_rb, 1.02602e-01_rb, 8.90210e-02_rb, 7.72380e-02_rb, 6.70147e-02_rb/)\n      selfrefo(:,14) = (/ &\n     & 2.40670e-01_rb, 2.08811e-01_rb, 1.81170e-01_rb, 1.57188e-01_rb, 1.36380e-01_rb, &\n     & 1.18327e-01_rb, 1.02663e-01_rb, 8.90730e-02_rb, 7.72819e-02_rb, 6.70517e-02_rb/)\n      selfrefo(:,15) = (/ &\n     & 2.40711e-01_rb, 2.08846e-01_rb, 1.81200e-01_rb, 1.57213e-01_rb, 1.36402e-01_rb, &\n     & 1.18346e-01_rb, 1.02679e-01_rb, 8.90870e-02_rb, 7.72939e-02_rb, 6.70621e-02_rb/)\n      selfrefo(:,16) = (/ &\n     & 2.40727e-01_rb, 2.08859e-01_rb, 1.81210e-01_rb, 1.57221e-01_rb, 1.36408e-01_rb, &\n     & 1.18350e-01_rb, 1.02682e-01_rb, 8.90890e-02_rb, 7.72952e-02_rb, 6.70627e-02_rb/)\n\n      end subroutine lw_kgb04\n\n! **************************************************************************\n      subroutine lw_kgb05\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg05, only : fracrefao, fracrefbo, kao, kbo, kao_mo3, &\n                            selfrefo, forrefo, ccl4o\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 473.42 mb, T = 259.83\n      fracrefao(:, 1) = (/ &\n        1.4111e-01_rb,1.4222e-01_rb,1.3802e-01_rb,1.3101e-01_rb,1.2244e-01_rb,1.0691e-01_rb, &\n        8.8703e-02_rb,6.7130e-02_rb,4.5509e-02_rb,4.9866e-03_rb,4.1214e-03_rb,3.2557e-03_rb, &\n        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 2) = (/ &\n        1.4152e-01_rb,1.4271e-01_rb,1.3784e-01_rb,1.3075e-01_rb,1.2215e-01_rb,1.0674e-01_rb, &\n        8.8686e-02_rb,6.7135e-02_rb,4.5508e-02_rb,4.9866e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &\n        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 3) = (/ &\n        1.4159e-01_rb,1.4300e-01_rb,1.3781e-01_rb,1.3094e-01_rb,1.2192e-01_rb,1.0661e-01_rb, &\n        8.8529e-02_rb,6.7127e-02_rb,4.5511e-02_rb,4.9877e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &\n        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 4) = (/ &\n        1.4162e-01_rb,1.4337e-01_rb,1.3774e-01_rb,1.3122e-01_rb,1.2172e-01_rb,1.0641e-01_rb, &\n        8.8384e-02_rb,6.7056e-02_rb,4.5514e-02_rb,4.9880e-03_rb,4.1214e-03_rb,3.2557e-03_rb, &\n        2.3805e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 5) = (/ &\n        1.4161e-01_rb,1.4370e-01_rb,1.3770e-01_rb,1.3143e-01_rb,1.2173e-01_rb,1.0613e-01_rb, &\n        8.8357e-02_rb,6.6874e-02_rb,4.5509e-02_rb,4.9883e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &\n        2.3804e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 6) = (/ &\n        1.4154e-01_rb,1.4405e-01_rb,1.3771e-01_rb,1.3169e-01_rb,1.2166e-01_rb,1.0603e-01_rb, &\n        8.8193e-02_rb,6.6705e-02_rb,4.5469e-02_rb,4.9902e-03_rb,4.1214e-03_rb,3.2558e-03_rb, &\n        2.3804e-03_rb,1.5450e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 7) = (/ &\n        1.4126e-01_rb,1.4440e-01_rb,1.3790e-01_rb,1.3214e-01_rb,1.2153e-01_rb,1.0603e-01_rb, &\n        8.7908e-02_rb,6.6612e-02_rb,4.5269e-02_rb,4.9900e-03_rb,4.1256e-03_rb,3.2558e-03_rb, &\n        2.3804e-03_rb,1.5451e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 8) = (/ &\n        1.4076e-01_rb,1.4415e-01_rb,1.3885e-01_rb,1.3286e-01_rb,1.2147e-01_rb,1.0612e-01_rb, &\n        8.7579e-02_rb,6.6280e-02_rb,4.4977e-02_rb,4.9782e-03_rb,4.1200e-03_rb,3.2620e-03_rb, &\n        2.3820e-03_rb,1.5452e-03_rb,5.8423e-04_rb,8.2275e-05_rb/)\n      fracrefao(:, 9) = (/ &\n        1.4205e-01_rb,1.4496e-01_rb,1.4337e-01_rb,1.3504e-01_rb,1.2260e-01_rb,1.0428e-01_rb, &\n        8.4946e-02_rb,6.3625e-02_rb,4.2951e-02_rb,4.7313e-03_rb,3.9157e-03_rb,3.0879e-03_rb, &\n        2.2666e-03_rb,1.5193e-03_rb,5.7469e-04_rb,8.1674e-05_rb/)\n\n! Planck fraction mapping level : P = 0.2369280 mbar, T = 253.60 K\n      fracrefbo(:, 1) = (/ &\n        1.4075e-01_rb,1.4196e-01_rb,1.3833e-01_rb,1.3345e-01_rb,1.2234e-01_rb,1.0718e-01_rb, &\n        8.8004e-02_rb,6.6308e-02_rb,4.5028e-02_rb,4.9029e-03_rb,4.0377e-03_rb,3.1870e-03_rb, &\n        2.3503e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.2371e-05_rb/)\n      fracrefbo(:, 2) = (/ &\n        1.4081e-01_rb,1.4225e-01_rb,1.3890e-01_rb,1.3410e-01_rb,1.2254e-01_rb,1.0680e-01_rb, &\n        8.7391e-02_rb,6.5819e-02_rb,4.4725e-02_rb,4.9121e-03_rb,4.0420e-03_rb,3.1869e-03_rb, &\n        2.3504e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.2371e-05_rb/)\n      fracrefbo(:, 3) = (/ &\n        1.4087e-01_rb,1.4227e-01_rb,1.3920e-01_rb,1.3395e-01_rb,1.2270e-01_rb,1.0694e-01_rb, &\n        8.7229e-02_rb,6.5653e-02_rb,4.4554e-02_rb,4.8797e-03_rb,4.0460e-03_rb,3.1939e-03_rb, &\n        2.3505e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.1910e-05_rb/)\n      fracrefbo(:, 4) = (/ &\n        1.4089e-01_rb,1.4238e-01_rb,1.3956e-01_rb,1.3379e-01_rb,1.2284e-01_rb,1.0688e-01_rb, &\n        8.7192e-02_rb,6.5490e-02_rb,4.4390e-02_rb,4.8395e-03_rb,4.0173e-03_rb,3.2070e-03_rb, &\n        2.3559e-03_rb,1.5146e-03_rb,5.7165e-04_rb,8.2371e-05_rb/)\n      fracrefbo(:, 5) = (/ &\n        1.4091e-01_rb,1.4417e-01_rb,1.4194e-01_rb,1.3457e-01_rb,1.2167e-01_rb,1.0551e-01_rb, &\n        8.6450e-02_rb,6.4889e-02_rb,4.3584e-02_rb,4.7551e-03_rb,3.9509e-03_rb,3.1374e-03_rb, &\n        2.3226e-03_rb,1.4942e-03_rb,5.7545e-04_rb,8.0887e-05_rb/)\n\n! Minor gas mapping level :\n!     lower - o3, p = 317.34 mbar, t = 240.77 k\n!     lower - ccl4\n\n      ccl4o(:) = (/ &\n        26.1407_rb, 53.9776_rb, 63.8085_rb, 36.1701_rb, 15.4099_rb, 10.23116_rb, &\n        4.82948_rb, 5.03836_rb, 1.75558_rb, 0._rb,      0._rb,      0._rb,       &\n        0._rb,      0._rb,      0._rb,      0._rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &2.0627e-06_rb,7.6619e-06_rb,1.2821e-05_rb,1.8547e-05_rb,2.5694e-05_rb,3.6833e-05_rb, &\n     &6.0675e-05_rb,1.0691e-04_rb,4.5186e-05_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &2.7702e-06_rb,1.0260e-05_rb,1.6067e-05_rb,2.2990e-05_rb,3.0808e-05_rb,4.1244e-05_rb, &\n     &5.9411e-05_rb,1.1066e-04_rb,5.2628e-05_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &3.6863e-06_rb,1.3689e-05_rb,2.0068e-05_rb,2.8133e-05_rb,3.7359e-05_rb,4.8756e-05_rb, &\n     &6.5660e-05_rb,1.0750e-04_rb,6.3147e-05_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &4.8209e-06_rb,1.8184e-05_rb,2.5811e-05_rb,3.2670e-05_rb,4.2393e-05_rb,5.7509e-05_rb, &\n     &7.7672e-05_rb,1.1739e-04_rb,6.0614e-05_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &6.2011e-06_rb,2.3679e-05_rb,3.3185e-05_rb,4.1098e-05_rb,4.8872e-05_rb,6.0199e-05_rb, &\n     &8.6830e-05_rb,1.3320e-04_rb,5.7959e-05_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &2.3538e-06_rb,6.7359e-06_rb,1.0280e-05_rb,1.4331e-05_rb,1.9304e-05_rb,2.5963e-05_rb, &\n     &4.0842e-05_rb,7.0297e-05_rb,3.0786e-05_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &3.1800e-06_rb,9.2776e-06_rb,1.3401e-05_rb,1.8014e-05_rb,2.3501e-05_rb,3.0468e-05_rb, &\n     &4.1030e-05_rb,7.2758e-05_rb,3.6807e-05_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &4.2644e-06_rb,1.2589e-05_rb,1.7414e-05_rb,2.2365e-05_rb,2.8924e-05_rb,3.6996e-05_rb, &\n     &4.7459e-05_rb,7.1458e-05_rb,4.4453e-05_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &5.6334e-06_rb,1.6843e-05_rb,2.2937e-05_rb,2.8083e-05_rb,3.3609e-05_rb,4.3642e-05_rb, &\n     &5.6794e-05_rb,7.9540e-05_rb,3.7769e-05_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &7.3165e-06_rb,2.2208e-05_rb,2.9987e-05_rb,3.5834e-05_rb,4.1117e-05_rb,4.7236e-05_rb, &\n     &6.4507e-05_rb,9.1784e-05_rb,4.0356e-05_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &3.4149e-06_rb,6.8426e-06_rb,8.9161e-06_rb,1.1292e-05_rb,1.3987e-05_rb,1.7689e-05_rb, &\n     &2.4623e-05_rb,4.0560e-05_rb,1.8741e-05_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &4.6295e-06_rb,9.5910e-06_rb,1.2218e-05_rb,1.4773e-05_rb,1.7906e-05_rb,2.1627e-05_rb, &\n     &2.7175e-05_rb,4.1902e-05_rb,2.3338e-05_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &6.2620e-06_rb,1.3265e-05_rb,1.6740e-05_rb,1.9517e-05_rb,2.2851e-05_rb,2.6791e-05_rb, &\n     &3.2311e-05_rb,4.3092e-05_rb,2.7303e-05_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &8.3825e-06_rb,1.8025e-05_rb,2.2633e-05_rb,2.5988e-05_rb,2.8756e-05_rb,3.2402e-05_rb, &\n     &3.9084e-05_rb,5.0182e-05_rb,2.3119e-05_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &1.1030e-05_rb,2.4184e-05_rb,3.0218e-05_rb,3.4428e-05_rb,3.7379e-05_rb,3.9667e-05_rb, &\n     &4.3975e-05_rb,5.8391e-05_rb,2.6206e-05_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &5.0171e-06_rb,7.6880e-06_rb,8.7791e-06_rb,9.8121e-06_rb,1.1212e-05_rb,1.2838e-05_rb, &\n     &1.6066e-05_rb,2.4377e-05_rb,1.1689e-05_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &6.7946e-06_rb,1.0789e-05_rb,1.2297e-05_rb,1.3454e-05_rb,1.4738e-05_rb,1.6388e-05_rb, &\n     &1.8978e-05_rb,2.5098e-05_rb,1.5123e-05_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &9.2346e-06_rb,1.5122e-05_rb,1.7217e-05_rb,1.8715e-05_rb,1.9870e-05_rb,2.1284e-05_rb, &\n     &2.3541e-05_rb,2.8475e-05_rb,1.5817e-05_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &1.2485e-05_rb,2.0883e-05_rb,2.3764e-05_rb,2.5687e-05_rb,2.6834e-05_rb,2.7524e-05_rb, &\n     &2.9511e-05_rb,3.4495e-05_rb,1.5461e-05_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &1.6688e-05_rb,2.8377e-05_rb,3.2282e-05_rb,3.4761e-05_rb,3.6075e-05_rb,3.6212e-05_rb, &\n     &3.5832e-05_rb,4.0812e-05_rb,1.7475e-05_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &6.8849e-06_rb,8.9001e-06_rb,9.3032e-06_rb,9.4606e-06_rb,9.6746e-06_rb,1.0252e-05_rb, &\n     &1.1422e-05_rb,1.5315e-05_rb,7.4550e-06_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &9.2829e-06_rb,1.2355e-05_rb,1.3006e-05_rb,1.3223e-05_rb,1.3294e-05_rb,1.3454e-05_rb, &\n     &1.4383e-05_rb,1.6505e-05_rb,9.6725e-06_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &1.2628e-05_rb,1.7354e-05_rb,1.8341e-05_rb,1.8646e-05_rb,1.8560e-05_rb,1.8269e-05_rb, &\n     &1.8381e-05_rb,1.9847e-05_rb,1.0746e-05_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &1.7178e-05_rb,2.4178e-05_rb,2.5699e-05_rb,2.6093e-05_rb,2.5857e-05_rb,2.5047e-05_rb, &\n     &2.4039e-05_rb,2.4517e-05_rb,1.1239e-05_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &2.3232e-05_rb,3.3207e-05_rb,3.5417e-05_rb,3.5933e-05_rb,3.5521e-05_rb,3.4179e-05_rb, &\n     &3.1639e-05_rb,3.0107e-05_rb,1.3413e-05_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &8.9763e-06_rb,1.0310e-05_rb,1.0152e-05_rb,9.7112e-06_rb,9.1573e-06_rb,8.7286e-06_rb, &\n     &8.7100e-06_rb,1.0151e-05_rb,5.0468e-06_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &1.1944e-05_rb,1.4094e-05_rb,1.4098e-05_rb,1.3570e-05_rb,1.2771e-05_rb,1.1934e-05_rb, &\n     &1.1288e-05_rb,1.1804e-05_rb,6.4542e-06_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &1.6264e-05_rb,1.9621e-05_rb,1.9778e-05_rb,1.9110e-05_rb,1.7995e-05_rb,1.6619e-05_rb, &\n     &1.5210e-05_rb,1.4762e-05_rb,7.7867e-06_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &2.2127e-05_rb,2.7394e-05_rb,2.7774e-05_rb,2.6897e-05_rb,2.5333e-05_rb,2.3366e-05_rb, &\n     &2.0855e-05_rb,1.8805e-05_rb,9.1527e-06_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &3.0031e-05_rb,3.7976e-05_rb,3.8538e-05_rb,3.7483e-05_rb,3.5390e-05_rb,3.2530e-05_rb, &\n     &2.8729e-05_rb,2.4137e-05_rb,1.0787e-05_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &1.2661e-05_rb,1.3255e-05_rb,1.2476e-05_rb,1.1360e-05_rb,1.0126e-05_rb,8.8167e-06_rb, &\n     &7.6811e-06_rb,7.2819e-06_rb,3.4701e-06_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &1.6507e-05_rb,1.7720e-05_rb,1.6880e-05_rb,1.5585e-05_rb,1.3986e-05_rb,1.2151e-05_rb, &\n     &1.0259e-05_rb,8.9670e-06_rb,4.6214e-06_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &2.2311e-05_rb,2.4431e-05_rb,2.3459e-05_rb,2.1822e-05_rb,1.9662e-05_rb,1.7085e-05_rb, &\n     &1.4272e-05_rb,1.1641e-05_rb,5.9077e-06_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &3.0470e-05_rb,3.3907e-05_rb,3.2735e-05_rb,3.0550e-05_rb,2.7736e-05_rb,2.4159e-05_rb, &\n     &2.0093e-05_rb,1.5711e-05_rb,7.6152e-06_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &4.1581e-05_rb,4.6778e-05_rb,4.5634e-05_rb,4.2827e-05_rb,3.9000e-05_rb,3.4010e-05_rb, &\n     &2.8185e-05_rb,2.1414e-05_rb,9.5151e-06_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &2.2110e-05_rb,2.1516e-05_rb,1.9520e-05_rb,1.7197e-05_rb,1.4610e-05_rb,1.1834e-05_rb, &\n     &8.9776e-06_rb,6.4038e-06_rb,2.9294e-06_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &2.8119e-05_rb,2.7833e-05_rb,2.5591e-05_rb,2.2815e-05_rb,1.9548e-05_rb,1.6035e-05_rb, &\n     &1.2291e-05_rb,8.4633e-06_rb,3.7469e-06_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &3.7519e-05_rb,3.7575e-05_rb,3.4963e-05_rb,3.1329e-05_rb,2.6989e-05_rb,2.2379e-05_rb, &\n     &1.7209e-05_rb,1.1658e-05_rb,5.1343e-06_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &5.1233e-05_rb,5.1900e-05_rb,4.8534e-05_rb,4.3661e-05_rb,3.7852e-05_rb,3.1455e-05_rb, &\n     &2.4380e-05_rb,1.6303e-05_rb,6.8677e-06_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &7.0275e-05_rb,7.1610e-05_rb,6.7129e-05_rb,6.0809e-05_rb,5.2885e-05_rb,4.4177e-05_rb, &\n     &3.4435e-05_rb,2.2981e-05_rb,8.8724e-06_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &7.5307e-05_rb,6.8982e-05_rb,6.0564e-05_rb,5.1649e-05_rb,4.2335e-05_rb,3.2789e-05_rb, &\n     &2.3004e-05_rb,1.2766e-05_rb,4.1976e-06_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &9.3306e-05_rb,8.6322e-05_rb,7.6065e-05_rb,6.5167e-05_rb,5.3786e-05_rb,4.2095e-05_rb, &\n     &2.9960e-05_rb,1.6892e-05_rb,6.0950e-06_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &1.2202e-04_rb,1.1392e-04_rb,1.0068e-04_rb,8.6696e-05_rb,7.2080e-05_rb,5.6739e-05_rb, &\n     &4.0820e-05_rb,2.3292e-05_rb,8.3200e-06_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &1.6580e-04_rb,1.5570e-04_rb,1.3769e-04_rb,1.1869e-04_rb,9.9119e-05_rb,7.8735e-05_rb, &\n     &5.6759e-05_rb,3.2860e-05_rb,1.0538e-05_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &2.2845e-04_rb,2.1403e-04_rb,1.8995e-04_rb,1.6428e-04_rb,1.3747e-04_rb,1.0943e-04_rb, &\n     &7.9478e-05_rb,4.6333e-05_rb,1.2645e-05_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &2.9742e-04_rb,2.6515e-04_rb,2.2972e-04_rb,1.9315e-04_rb,1.5610e-04_rb,1.1880e-04_rb, &\n     &8.1117e-05_rb,4.2319e-05_rb,6.3944e-06_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &3.6180e-04_rb,3.2444e-04_rb,2.8214e-04_rb,2.3809e-04_rb,1.9281e-04_rb,1.4714e-04_rb, &\n     &1.0099e-04_rb,5.3082e-05_rb,9.7791e-06_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &4.6752e-04_rb,4.2137e-04_rb,3.6703e-04_rb,3.1031e-04_rb,2.5194e-04_rb,1.9278e-04_rb, &\n     &1.3274e-04_rb,7.0692e-05_rb,1.3731e-05_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &6.3024e-04_rb,5.6976e-04_rb,4.9706e-04_rb,4.2128e-04_rb,3.4229e-04_rb,2.6250e-04_rb, &\n     &1.8103e-04_rb,9.7478e-05_rb,1.8873e-05_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &8.6816e-04_rb,7.8510e-04_rb,6.8602e-04_rb,5.8224e-04_rb,4.7468e-04_rb,3.6394e-04_rb, &\n     &2.5185e-04_rb,1.3590e-04_rb,2.4864e-05_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &4.4215e-04_rb,3.9273e-04_rb,3.3972e-04_rb,2.8576e-04_rb,2.3079e-04_rb,1.7475e-04_rb, &\n     &1.1858e-04_rb,6.1576e-05_rb,6.9970e-06_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &5.4524e-04_rb,4.8624e-04_rb,4.2158e-04_rb,3.5507e-04_rb,2.8728e-04_rb,2.1797e-04_rb, &\n     &1.4849e-04_rb,7.7710e-05_rb,1.0796e-05_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &7.1212e-04_rb,6.3874e-04_rb,5.5491e-04_rb,4.6791e-04_rb,3.7968e-04_rb,2.8946e-04_rb, &\n     &1.9751e-04_rb,1.0405e-04_rb,1.6156e-05_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &9.7112e-04_rb,8.7198e-04_rb,7.5717e-04_rb,6.3918e-04_rb,5.1919e-04_rb,3.9650e-04_rb, &\n     &2.7055e-04_rb,1.4272e-04_rb,2.2761e-05_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &1.3431e-03_rb,1.2076e-03_rb,1.0484e-03_rb,8.8503e-04_rb,7.1868e-04_rb,5.4992e-04_rb, &\n     &3.7609e-04_rb,1.9954e-04_rb,2.9940e-05_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &4.8443e-04_rb,4.2968e-04_rb,3.7109e-04_rb,3.1171e-04_rb,2.5157e-04_rb,1.9045e-04_rb, &\n     &1.2868e-04_rb,6.6606e-05_rb,6.8294e-06_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &6.0269e-04_rb,5.3630e-04_rb,4.6453e-04_rb,3.9092e-04_rb,3.1605e-04_rb,2.4000e-04_rb, &\n     &1.6259e-04_rb,8.4751e-05_rb,1.0182e-05_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &7.9706e-04_rb,7.1250e-04_rb,6.1805e-04_rb,5.2087e-04_rb,4.2192e-04_rb,3.2125e-04_rb, &\n     &2.1834e-04_rb,1.1445e-04_rb,1.5140e-05_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &1.0910e-03_rb,9.7656e-04_rb,8.4711e-04_rb,7.1442e-04_rb,5.7891e-04_rb,4.4221e-04_rb, &\n     &3.0181e-04_rb,1.5855e-04_rb,2.1388e-05_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &1.5134e-03_rb,1.3551e-03_rb,1.1752e-03_rb,9.9093e-04_rb,8.0388e-04_rb,6.1444e-04_rb, &\n     &4.2020e-04_rb,2.2117e-04_rb,2.9059e-05_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &4.2625e-04_rb,3.7812e-04_rb,3.2711e-04_rb,2.7465e-04_rb,2.2177e-04_rb,1.6800e-04_rb, &\n     &1.1342e-04_rb,5.8678e-05_rb,7.1193e-06_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &5.3759e-04_rb,4.7832e-04_rb,4.1433e-04_rb,3.4844e-04_rb,2.8188e-04_rb,2.1423e-04_rb, &\n     &1.4519e-04_rb,7.5588e-05_rb,1.0317e-05_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &7.2018e-04_rb,6.4309e-04_rb,5.5764e-04_rb,4.6948e-04_rb,3.8030e-04_rb,2.8938e-04_rb, &\n     &1.9678e-04_rb,1.0285e-04_rb,1.4041e-05_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &9.8953e-04_rb,8.8546e-04_rb,7.6800e-04_rb,6.4711e-04_rb,5.2450e-04_rb,3.9956e-04_rb, &\n     &2.7312e-04_rb,1.4349e-04_rb,1.9954e-05_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &1.3790e-03_rb,1.2366e-03_rb,1.0731e-03_rb,9.0477e-04_rb,7.3377e-04_rb,5.6037e-04_rb, &\n     &3.8365e-04_rb,2.0147e-04_rb,2.6871e-05_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &6.2300e-06_rb,2.3124e-05_rb,2.9698e-05_rb,3.9591e-05_rb,5.8380e-05_rb,9.5125e-05_rb, &\n     &1.3537e-04_rb,2.8288e-04_rb,9.7543e-05_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &9.0246e-06_rb,3.3229e-05_rb,4.2160e-05_rb,4.9478e-05_rb,6.0779e-05_rb,8.5533e-05_rb, &\n     &1.5267e-04_rb,2.3904e-04_rb,8.0422e-05_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &1.2807e-05_rb,4.6362e-05_rb,5.9074e-05_rb,6.7253e-05_rb,7.5131e-05_rb,8.9889e-05_rb, &\n     &1.2494e-04_rb,2.6418e-04_rb,7.9145e-05_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &1.7786e-05_rb,6.3031e-05_rb,8.0225e-05_rb,9.3521e-05_rb,1.0301e-04_rb,1.0987e-04_rb, &\n     &1.2899e-04_rb,2.0499e-04_rb,1.0830e-04_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &2.4116e-05_rb,8.3783e-05_rb,1.0646e-04_rb,1.2431e-04_rb,1.3944e-04_rb,1.5277e-04_rb, &\n     &1.5881e-04_rb,2.0933e-04_rb,1.4344e-04_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &7.1421e-06_rb,2.2132e-05_rb,2.7590e-05_rb,3.3376e-05_rb,4.3482e-05_rb,6.6128e-05_rb, &\n     &9.2521e-05_rb,1.8166e-04_rb,6.3119e-05_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &1.0480e-05_rb,3.2273e-05_rb,3.9804e-05_rb,4.4484e-05_rb,4.9766e-05_rb,6.2224e-05_rb, &\n     &1.0181e-04_rb,1.6062e-04_rb,5.5112e-05_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &1.5069e-05_rb,4.5805e-05_rb,5.6454e-05_rb,6.2730e-05_rb,6.6262e-05_rb,7.1655e-05_rb, &\n     &8.8554e-05_rb,1.7608e-04_rb,5.4833e-05_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &2.1158e-05_rb,6.3205e-05_rb,7.7534e-05_rb,8.6669e-05_rb,9.2743e-05_rb,9.3710e-05_rb, &\n     &9.8368e-05_rb,1.4175e-04_rb,8.3989e-05_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &2.9018e-05_rb,8.5014e-05_rb,1.0387e-04_rb,1.1638e-04_rb,1.2535e-04_rb,1.3160e-04_rb, &\n     &1.2952e-04_rb,1.4715e-04_rb,1.0168e-04_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &1.0134e-05_rb,2.3698e-05_rb,2.8098e-05_rb,3.0832e-05_rb,3.4559e-05_rb,4.2739e-05_rb, &\n     &5.8413e-05_rb,1.0086e-04_rb,3.2546e-05_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &1.5067e-05_rb,3.5478e-05_rb,4.1782e-05_rb,4.4927e-05_rb,4.6304e-05_rb,4.9338e-05_rb, &\n     &6.0952e-05_rb,9.7126e-05_rb,3.2271e-05_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &2.2020e-05_rb,5.1526e-05_rb,6.0415e-05_rb,6.4785e-05_rb,6.5815e-05_rb,6.4970e-05_rb, &\n     &6.6401e-05_rb,9.8577e-05_rb,3.7377e-05_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &3.1402e-05_rb,7.2606e-05_rb,8.4750e-05_rb,9.0680e-05_rb,9.2879e-05_rb,9.1127e-05_rb, &\n     &8.5666e-05_rb,9.2372e-05_rb,5.9881e-05_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &4.3798e-05_rb,9.9375e-05_rb,1.1577e-04_rb,1.2361e-04_rb,1.2645e-04_rb,1.2543e-04_rb, &\n     &1.1954e-04_rb,1.0799e-04_rb,6.6216e-05_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &1.4395e-05_rb,2.6113e-05_rb,2.9242e-05_rb,3.0501e-05_rb,3.0825e-05_rb,3.2335e-05_rb, &\n     &3.9824e-05_rb,5.5770e-05_rb,1.8987e-05_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &2.1448e-05_rb,3.9639e-05_rb,4.4560e-05_rb,4.6391e-05_rb,4.5970e-05_rb,4.4537e-05_rb, &\n     &4.5440e-05_rb,6.3416e-05_rb,1.9764e-05_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &3.1834e-05_rb,5.8680e-05_rb,6.6149e-05_rb,6.8528e-05_rb,6.7668e-05_rb,6.3937e-05_rb, &\n     &5.8285e-05_rb,6.2232e-05_rb,2.7306e-05_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &4.6271e-05_rb,8.4438e-05_rb,9.5181e-05_rb,9.8206e-05_rb,9.6873e-05_rb,9.1747e-05_rb, &\n     &8.1681e-05_rb,6.9834e-05_rb,3.9615e-05_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &6.5671e-05_rb,1.1809e-04_rb,1.3274e-04_rb,1.3673e-04_rb,1.3457e-04_rb,1.2744e-04_rb, &\n     &1.1523e-04_rb,9.3255e-05_rb,4.5946e-05_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &1.8932e-05_rb,2.8174e-05_rb,3.0127e-05_rb,3.0189e-05_rb,2.9303e-05_rb,2.7710e-05_rb, &\n     &2.8724e-05_rb,3.6981e-05_rb,1.2871e-05_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &2.8193e-05_rb,4.3103e-05_rb,4.6483e-05_rb,4.6716e-05_rb,4.5184e-05_rb,4.1972e-05_rb, &\n     &3.7796e-05_rb,4.2113e-05_rb,1.5002e-05_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &4.2171e-05_rb,6.4890e-05_rb,7.0138e-05_rb,7.0754e-05_rb,6.8197e-05_rb,6.2875e-05_rb, &\n     &5.4545e-05_rb,4.7871e-05_rb,1.9971e-05_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &6.2206e-05_rb,9.5463e-05_rb,1.0284e-04_rb,1.0393e-04_rb,9.9869e-05_rb,9.1904e-05_rb, &\n     &7.9592e-05_rb,6.1772e-05_rb,2.7676e-05_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &8.9897e-05_rb,1.3643e-04_rb,1.4635e-04_rb,1.4773e-04_rb,1.4191e-04_rb,1.3018e-04_rb, &\n     &1.1303e-04_rb,8.6827e-05_rb,3.3409e-05_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &2.3688e-05_rb,3.0481e-05_rb,3.1060e-05_rb,3.0054e-05_rb,2.7961e-05_rb,2.5367e-05_rb, &\n     &2.2999e-05_rb,2.6629e-05_rb,1.0275e-05_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &3.4582e-05_rb,4.5983e-05_rb,4.7133e-05_rb,4.6002e-05_rb,4.3141e-05_rb,3.8854e-05_rb, &\n     &3.3303e-05_rb,2.9897e-05_rb,1.2224e-05_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &5.1699e-05_rb,6.9356e-05_rb,7.1684e-05_rb,7.0505e-05_rb,6.6405e-05_rb,5.9819e-05_rb, &\n     &5.0541e-05_rb,3.9074e-05_rb,1.6179e-05_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &7.7368e-05_rb,1.0342e-04_rb,1.0714e-04_rb,1.0541e-04_rb,9.9595e-05_rb,8.9603e-05_rb, &\n     &7.5459e-05_rb,5.5384e-05_rb,2.1206e-05_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &1.1347e-04_rb,1.5064e-04_rb,1.5637e-04_rb,1.5316e-04_rb,1.4449e-04_rb,1.2985e-04_rb, &\n     &1.0910e-04_rb,8.0324e-05_rb,2.6862e-05_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &3.2355e-05_rb,3.6612e-05_rb,3.5642e-05_rb,3.3581e-05_rb,3.0393e-05_rb,2.6088e-05_rb, &\n     &2.1415e-05_rb,1.9368e-05_rb,9.5314e-06_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &4.6022e-05_rb,5.3816e-05_rb,5.2843e-05_rb,4.9963e-05_rb,4.5493e-05_rb,3.9581e-05_rb, &\n     &3.2262e-05_rb,2.4294e-05_rb,1.1772e-05_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &6.7685e-05_rb,8.0405e-05_rb,7.9935e-05_rb,7.5649e-05_rb,6.9218e-05_rb,6.0527e-05_rb, &\n     &4.9342e-05_rb,3.5155e-05_rb,1.4463e-05_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &1.0120e-04_rb,1.2036e-04_rb,1.2034e-04_rb,1.1418e-04_rb,1.0434e-04_rb,9.1774e-05_rb, &\n     &7.5257e-05_rb,5.2793e-05_rb,1.8375e-05_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &1.5071e-04_rb,1.7822e-04_rb,1.7733e-04_rb,1.6840e-04_rb,1.5410e-04_rb,1.3584e-04_rb, &\n     &1.1141e-04_rb,7.8080e-05_rb,2.3868e-05_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &5.5226e-05_rb,5.6106e-05_rb,5.2275e-05_rb,4.7400e-05_rb,4.1299e-05_rb,3.4449e-05_rb, &\n     &2.6593e-05_rb,1.7838e-05_rb,1.0224e-05_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &7.6682e-05_rb,7.9501e-05_rb,7.4950e-05_rb,6.8270e-05_rb,5.9838e-05_rb,5.0360e-05_rb, &\n     &3.9211e-05_rb,2.5644e-05_rb,1.3679e-05_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &1.1162e-04_rb,1.1744e-04_rb,1.1105e-04_rb,1.0166e-04_rb,8.9544e-05_rb,7.5446e-05_rb, &\n     &5.9105e-05_rb,3.8912e-05_rb,1.6924e-05_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &1.6426e-04_rb,1.7413e-04_rb,1.6536e-04_rb,1.5206e-04_rb,1.3480e-04_rb,1.1398e-04_rb, &\n     &8.9434e-05_rb,5.9125e-05_rb,2.1439e-05_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &2.4317e-04_rb,2.5868e-04_rb,2.4524e-04_rb,2.2533e-04_rb,2.0048e-04_rb,1.6943e-04_rb, &\n     &1.3297e-04_rb,8.8280e-05_rb,2.6395e-05_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &1.8480e-04_rb,1.7106e-04_rb,1.5192e-04_rb,1.3086e-04_rb,1.0905e-04_rb,8.6158e-05_rb, &\n     &6.2340e-05_rb,3.6177e-05_rb,1.4903e-05_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &2.4641e-04_rb,2.3135e-04_rb,2.0759e-04_rb,1.8017e-04_rb,1.5122e-04_rb,1.2054e-04_rb, &\n     &8.8111e-05_rb,5.2211e-05_rb,2.0425e-05_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &3.5294e-04_rb,3.3406e-04_rb,3.0047e-04_rb,2.6193e-04_rb,2.2100e-04_rb,1.7727e-04_rb, &\n     &1.3000e-04_rb,7.7386e-05_rb,2.5956e-05_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &5.2033e-04_rb,4.9504e-04_rb,4.4640e-04_rb,3.9034e-04_rb,3.2978e-04_rb,2.6409e-04_rb, &\n     &1.9434e-04_rb,1.1587e-04_rb,3.4101e-05_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &7.6495e-04_rb,7.3083e-04_rb,6.5854e-04_rb,5.7617e-04_rb,4.8713e-04_rb,3.9080e-04_rb, &\n     &2.8811e-04_rb,1.7251e-04_rb,4.3686e-05_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &7.1951e-04_rb,6.4170e-04_rb,5.5848e-04_rb,4.7254e-04_rb,3.8543e-04_rb,2.9616e-04_rb, &\n     &2.0442e-04_rb,1.0914e-04_rb,2.8683e-05_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &9.5077e-04_rb,8.5141e-04_rb,7.4327e-04_rb,6.3053e-04_rb,5.1626e-04_rb,3.9828e-04_rb, &\n     &2.7613e-04_rb,1.4913e-04_rb,3.8199e-05_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &1.3355e-03_rb,1.2001e-03_rb,1.0504e-03_rb,8.9360e-04_rb,7.3324e-04_rb,5.6715e-04_rb, &\n     &3.9425e-04_rb,2.1480e-04_rb,4.7134e-05_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &1.9553e-03_rb,1.7643e-03_rb,1.5470e-03_rb,1.3173e-03_rb,1.0803e-03_rb,8.3446e-04_rb, &\n     &5.8166e-04_rb,3.1871e-04_rb,5.8212e-05_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &2.8783e-03_rb,2.5953e-03_rb,2.2770e-03_rb,1.9407e-03_rb,1.5909e-03_rb,1.2316e-03_rb, &\n     &8.6003e-04_rb,4.7307e-04_rb,7.1136e-05_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &1.1139e-03_rb,9.8774e-04_rb,8.5580e-04_rb,7.2091e-04_rb,5.8416e-04_rb,4.4688e-04_rb, &\n     &3.0678e-04_rb,1.6222e-04_rb,3.9161e-05_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &1.5083e-03_rb,1.3423e-03_rb,1.1649e-03_rb,9.8455e-04_rb,8.0047e-04_rb,6.1397e-04_rb, &\n     &4.2291e-04_rb,2.2482e-04_rb,5.4701e-05_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &2.1559e-03_rb,1.9181e-03_rb,1.6686e-03_rb,1.4112e-03_rb,1.1484e-03_rb,8.7957e-04_rb, &\n     &6.0584e-04_rb,3.2346e-04_rb,6.6564e-05_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &3.1472e-03_rb,2.8085e-03_rb,2.4474e-03_rb,2.0740e-03_rb,1.6883e-03_rb,1.2953e-03_rb, &\n     &8.9345e-04_rb,4.7890e-04_rb,8.3118e-05_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &4.6362e-03_rb,4.1388e-03_rb,3.6072e-03_rb,3.0601e-03_rb,2.4938e-03_rb,1.9129e-03_rb, &\n     &1.3182e-03_rb,7.0366e-04_rb,1.0053e-04_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &1.2746e-03_rb,1.1293e-03_rb,9.7744e-04_rb,8.2280e-04_rb,6.6509e-04_rb,5.0694e-04_rb, &\n     &3.4671e-04_rb,1.8255e-04_rb,4.0437e-05_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &1.7556e-03_rb,1.5589e-03_rb,1.3508e-03_rb,1.1390e-03_rb,9.2389e-04_rb,7.0640e-04_rb, &\n     &4.8477e-04_rb,2.5611e-04_rb,5.8338e-05_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &2.5208e-03_rb,2.2390e-03_rb,1.9427e-03_rb,1.6407e-03_rb,1.3325e-03_rb,1.0177e-03_rb, &\n     &6.9952e-04_rb,3.6990e-04_rb,7.2977e-05_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &3.7199e-03_rb,3.3065e-03_rb,2.8736e-03_rb,2.4286e-03_rb,1.9715e-03_rb,1.5043e-03_rb, &\n     &1.0308e-03_rb,5.4613e-04_rb,9.0596e-05_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &5.4892e-03_rb,4.8847e-03_rb,4.2441e-03_rb,3.5888e-03_rb,2.9119e-03_rb,2.2221e-03_rb, &\n     &1.5249e-03_rb,8.0704e-04_rb,1.1205e-04_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &1.1670e-03_rb,1.0343e-03_rb,8.9403e-04_rb,7.5206e-04_rb,6.0815e-04_rb,4.6361e-04_rb, &\n     &3.1684e-04_rb,1.6665e-04_rb,3.8297e-05_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &1.6263e-03_rb,1.4448e-03_rb,1.2518e-03_rb,1.0548e-03_rb,8.5537e-04_rb,6.5308e-04_rb, &\n     &4.4734e-04_rb,2.3634e-04_rb,5.4012e-05_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &2.3576e-03_rb,2.0975e-03_rb,1.8201e-03_rb,1.5368e-03_rb,1.2479e-03_rb,9.5295e-04_rb, &\n     &6.5303e-04_rb,3.4532e-04_rb,6.8858e-05_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &3.5158e-03_rb,3.1277e-03_rb,2.7158e-03_rb,2.2939e-03_rb,1.8617e-03_rb,1.4210e-03_rb, &\n     &9.7237e-04_rb,5.1302e-04_rb,8.6284e-05_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &5.1868e-03_rb,4.6126e-03_rb,4.0043e-03_rb,3.3796e-03_rb,2.7407e-03_rb,2.0921e-03_rb, &\n     &1.4302e-03_rb,7.5554e-04_rb,1.0703e-04_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &2.1967e-05_rb,7.0847e-05_rb,9.8056e-05_rb,1.1683e-04_rb,1.2672e-04_rb,1.3386e-04_rb, &\n     &1.7335e-04_rb,3.0889e-04_rb,1.4104e-04_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &3.2805e-05_rb,1.0021e-04_rb,1.3719e-04_rb,1.6469e-04_rb,1.8755e-04_rb,2.0275e-04_rb, &\n     &1.9715e-04_rb,2.9590e-04_rb,1.6430e-04_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &4.7330e-05_rb,1.3749e-04_rb,1.8575e-04_rb,2.2309e-04_rb,2.5257e-04_rb,2.7701e-04_rb, &\n     &3.0293e-04_rb,3.2277e-04_rb,1.5833e-04_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &6.6184e-05_rb,1.8358e-04_rb,2.4505e-04_rb,2.9115e-04_rb,3.2275e-04_rb,3.3970e-04_rb, &\n     &3.6327e-04_rb,4.7032e-04_rb,1.5296e-04_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &8.9953e-05_rb,2.3845e-04_rb,3.1568e-04_rb,3.7021e-04_rb,4.0111e-04_rb,4.1250e-04_rb, &\n     &4.1712e-04_rb,4.9013e-04_rb,1.7116e-04_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &2.6480e-05_rb,6.7795e-05_rb,8.8273e-05_rb,1.0239e-04_rb,1.1087e-04_rb,1.1252e-04_rb, &\n     &1.2626e-04_rb,1.7765e-04_rb,1.0235e-04_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &4.0229e-05_rb,9.8115e-05_rb,1.2639e-04_rb,1.4693e-04_rb,1.6171e-04_rb,1.7149e-04_rb, &\n     &1.6078e-04_rb,2.0296e-04_rb,1.0513e-04_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &5.9019e-05_rb,1.3751e-04_rb,1.7468e-04_rb,2.0166e-04_rb,2.2223e-04_rb,2.3730e-04_rb, &\n     &2.4647e-04_rb,2.3569e-04_rb,1.0639e-04_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &8.3741e-05_rb,1.8682e-04_rb,2.3419e-04_rb,2.6910e-04_rb,2.9309e-04_rb,3.0629e-04_rb, &\n     &3.1256e-04_rb,3.4516e-04_rb,1.0584e-04_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &1.1534e-04_rb,2.4682e-04_rb,3.0598e-04_rb,3.4903e-04_rb,3.7559e-04_rb,3.8169e-04_rb, &\n     &3.7221e-04_rb,3.8365e-04_rb,1.2786e-04_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &3.8574e-05_rb,7.5157e-05_rb,8.9382e-05_rb,9.8254e-05_rb,1.0233e-04_rb,1.0063e-04_rb, &\n     &1.0056e-04_rb,1.0870e-04_rb,6.8446e-05_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &6.0142e-05_rb,1.1264e-04_rb,1.3244e-04_rb,1.4504e-04_rb,1.5242e-04_rb,1.5259e-04_rb, &\n     &1.4806e-04_rb,1.3730e-04_rb,6.4347e-05_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &9.0381e-05_rb,1.6247e-04_rb,1.8926e-04_rb,2.0538e-04_rb,2.1407e-04_rb,2.1609e-04_rb, &\n     &2.1113e-04_rb,1.9332e-04_rb,6.7739e-05_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &1.3106e-04_rb,2.2712e-04_rb,2.6180e-04_rb,2.8099e-04_rb,2.9092e-04_rb,2.9292e-04_rb, &\n     &2.8375e-04_rb,2.7092e-04_rb,6.8866e-05_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &1.8403e-04_rb,3.0884e-04_rb,3.5100e-04_rb,3.7380e-04_rb,3.8510e-04_rb,3.8362e-04_rb, &\n     &3.6289e-04_rb,3.2300e-04_rb,9.2758e-05_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &5.4705e-05_rb,8.6072e-05_rb,9.6209e-05_rb,1.0034e-04_rb,9.9953e-05_rb,9.5189e-05_rb, &\n     &8.3161e-05_rb,7.9207e-05_rb,3.9423e-05_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &8.7751e-05_rb,1.3347e-04_rb,1.4769e-04_rb,1.5271e-04_rb,1.5230e-04_rb,1.4652e-04_rb, &\n     &1.3316e-04_rb,1.0796e-04_rb,4.2482e-05_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &1.3536e-04_rb,1.9949e-04_rb,2.1780e-04_rb,2.2400e-04_rb,2.2194e-04_rb,2.1254e-04_rb, &\n     &1.9475e-04_rb,1.6332e-04_rb,4.5138e-05_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &2.0116e-04_rb,2.8783e-04_rb,3.1041e-04_rb,3.1735e-04_rb,3.1196e-04_rb,2.9572e-04_rb, &\n     &2.7052e-04_rb,2.3211e-04_rb,5.0851e-05_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &2.8895e-04_rb,4.0188e-04_rb,4.2924e-04_rb,4.3500e-04_rb,4.2412e-04_rb,3.9959e-04_rb, &\n     &3.6227e-04_rb,3.0072e-04_rb,6.6760e-05_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &7.0137e-05_rb,9.4755e-05_rb,1.0063e-04_rb,1.0127e-04_rb,9.8061e-05_rb,9.0698e-05_rb, &\n     &7.7439e-05_rb,5.9138e-05_rb,2.6683e-05_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &1.1533e-04_rb,1.5194e-04_rb,1.5997e-04_rb,1.5979e-04_rb,1.5340e-04_rb,1.4208e-04_rb, &\n     &1.2486e-04_rb,9.3241e-05_rb,2.9592e-05_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &1.8276e-04_rb,2.3503e-04_rb,2.4432e-04_rb,2.4189e-04_rb,2.3109e-04_rb,2.1296e-04_rb, &\n     &1.8693e-04_rb,1.4538e-04_rb,3.2790e-05_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &2.7903e-04_rb,3.5030e-04_rb,3.5953e-04_rb,3.5303e-04_rb,3.3542e-04_rb,3.0702e-04_rb, &\n     &2.6606e-04_rb,2.0930e-04_rb,3.9551e-05_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &4.1070e-04_rb,5.0357e-04_rb,5.1208e-04_rb,4.9861e-04_rb,4.7008e-04_rb,4.2683e-04_rb, &\n     &3.6701e-04_rb,2.8592e-04_rb,5.1146e-05_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &8.1368e-05_rb,9.8431e-05_rb,1.0007e-04_rb,9.7542e-05_rb,9.2017e-05_rb,8.3169e-05_rb, &\n     &7.0090e-05_rb,4.8919e-05_rb,2.1156e-05_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &1.3706e-04_rb,1.6300e-04_rb,1.6503e-04_rb,1.5990e-04_rb,1.4992e-04_rb,1.3472e-04_rb, &\n     &1.1399e-04_rb,8.3619e-05_rb,2.5058e-05_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &2.2338e-04_rb,2.6147e-04_rb,2.6146e-04_rb,2.5118e-04_rb,2.3339e-04_rb,2.0831e-04_rb, &\n     &1.7568e-04_rb,1.3135e-04_rb,2.8387e-05_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &3.5127e-04_rb,4.0389e-04_rb,3.9905e-04_rb,3.7918e-04_rb,3.4971e-04_rb,3.1035e-04_rb, &\n     &2.5984e-04_rb,1.9266e-04_rb,3.2799e-05_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &5.3129e-04_rb,6.0001e-04_rb,5.8622e-04_rb,5.5309e-04_rb,5.0577e-04_rb,4.4569e-04_rb, &\n     &3.6955e-04_rb,2.7080e-04_rb,4.1496e-05_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &1.0007e-04_rb,1.0969e-04_rb,1.0696e-04_rb,1.0012e-04_rb,9.0860e-05_rb,7.9591e-05_rb, &\n     &6.5272e-05_rb,4.4404e-05_rb,1.8023e-05_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &1.6864e-04_rb,1.8414e-04_rb,1.7903e-04_rb,1.6759e-04_rb,1.5212e-04_rb,1.3294e-04_rb, &\n     &1.0932e-04_rb,7.7110e-05_rb,2.3161e-05_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &2.8238e-04_rb,3.0439e-04_rb,2.9352e-04_rb,2.7330e-04_rb,2.4706e-04_rb,2.1459e-04_rb, &\n     &1.7451e-04_rb,1.2351e-04_rb,2.8855e-05_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &4.5659e-04_rb,4.8716e-04_rb,4.6539e-04_rb,4.2996e-04_rb,3.8506e-04_rb,3.3112e-04_rb, &\n     &2.6671e-04_rb,1.8725e-04_rb,3.4923e-05_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &7.1027e-04_rb,7.4800e-04_rb,7.1021e-04_rb,6.5078e-04_rb,5.7777e-04_rb,4.9194e-04_rb, &\n     &3.9297e-04_rb,2.7155e-04_rb,4.1495e-05_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &1.5946e-04_rb,1.5842e-04_rb,1.4746e-04_rb,1.3211e-04_rb,1.1546e-04_rb,9.6168e-05_rb, &\n     &7.4324e-05_rb,4.8395e-05_rb,1.7989e-05_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &2.5770e-04_rb,2.5704e-04_rb,2.3941e-04_rb,2.1551e-04_rb,1.8837e-04_rb,1.5713e-04_rb, &\n     &1.2214e-04_rb,8.1368e-05_rb,2.3968e-05_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &4.2472e-04_rb,4.2443e-04_rb,3.9713e-04_rb,3.5763e-04_rb,3.1122e-04_rb,2.5901e-04_rb, &\n     &2.0043e-04_rb,1.3331e-04_rb,3.2118e-05_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &7.0597e-04_rb,6.9998e-04_rb,6.4911e-04_rb,5.8037e-04_rb,5.0147e-04_rb,4.1570e-04_rb, &\n     &3.1990e-04_rb,2.0974e-04_rb,3.9608e-05_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &1.1264e-03_rb,1.1057e-03_rb,1.0236e-03_rb,9.1299e-04_rb,7.8475e-04_rb,6.4516e-04_rb, &\n     &4.9155e-04_rb,3.1715e-04_rb,4.8541e-05_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &5.0227e-04_rb,4.5998e-04_rb,4.0915e-04_rb,3.5429e-04_rb,2.9541e-04_rb,2.3264e-04_rb, &\n     &1.6588e-04_rb,9.6165e-05_rb,2.6165e-05_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &7.8676e-04_rb,7.2202e-04_rb,6.4423e-04_rb,5.5868e-04_rb,4.6624e-04_rb,3.6840e-04_rb, &\n     &2.6387e-04_rb,1.5409e-04_rb,3.5446e-05_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &1.2789e-03_rb,1.1712e-03_rb,1.0462e-03_rb,9.0711e-04_rb,7.5900e-04_rb,5.9930e-04_rb, &\n     &4.3043e-04_rb,2.5008e-04_rb,4.6358e-05_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &2.0840e-03_rb,1.9016e-03_rb,1.6924e-03_rb,1.4648e-03_rb,1.2215e-03_rb,9.6366e-04_rb, &\n     &6.9084e-04_rb,4.0072e-04_rb,6.1001e-05_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &3.3367e-03_rb,3.0441e-03_rb,2.7105e-03_rb,2.3462e-03_rb,1.9558e-03_rb,1.5435e-03_rb, &\n     &1.1056e-03_rb,6.3552e-04_rb,7.9035e-05_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &1.9385e-03_rb,1.7157e-03_rb,1.4863e-03_rb,1.2534e-03_rb,1.0193e-03_rb,7.7905e-04_rb, &\n     &5.3570e-04_rb,2.8621e-04_rb,4.8614e-05_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &2.9395e-03_rb,2.6008e-03_rb,2.2566e-03_rb,1.9073e-03_rb,1.5534e-03_rb,1.1938e-03_rb, &\n     &8.2332e-04_rb,4.4169e-04_rb,7.1291e-05_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &4.6962e-03_rb,4.1509e-03_rb,3.6037e-03_rb,3.0461e-03_rb,2.4817e-03_rb,1.9064e-03_rb, &\n     &1.3190e-03_rb,7.0872e-04_rb,9.5825e-05_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &7.5852e-03_rb,6.6994e-03_rb,5.8186e-03_rb,4.9195e-03_rb,4.0087e-03_rb,3.0812e-03_rb, &\n     &2.1247e-03_rb,1.1368e-03_rb,1.1801e-04_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &1.2000e-02_rb,1.0601e-02_rb,9.2089e-03_rb,7.7807e-03_rb,6.3408e-03_rb,4.8692e-03_rb, &\n     &3.3607e-03_rb,1.8001e-03_rb,1.5301e-04_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &3.1614e-03_rb,2.7883e-03_rb,2.4150e-03_rb,2.0359e-03_rb,1.6451e-03_rb,1.2526e-03_rb, &\n     &8.5416e-04_rb,4.4797e-04_rb,5.8064e-05_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &4.7730e-03_rb,4.2097e-03_rb,3.6498e-03_rb,3.0671e-03_rb,2.4809e-03_rb,1.8948e-03_rb, &\n     &1.2977e-03_rb,6.8686e-04_rb,8.3754e-05_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &7.6614e-03_rb,6.7521e-03_rb,5.8435e-03_rb,4.9093e-03_rb,3.9758e-03_rb,3.0351e-03_rb, &\n     &2.0807e-03_rb,1.0948e-03_rb,1.2253e-04_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &1.2246e-02_rb,1.0785e-02_rb,9.3301e-03_rb,7.8482e-03_rb,6.3562e-03_rb,4.8536e-03_rb, &\n     &3.3260e-03_rb,1.7481e-03_rb,1.5741e-04_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &1.9021e-02_rb,1.6750e-02_rb,1.4500e-02_rb,1.2206e-02_rb,9.8921e-03_rb,7.5567e-03_rb, &\n     &5.1767e-03_rb,2.7251e-03_rb,2.0052e-04_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &3.8826e-03_rb,3.4185e-03_rb,2.9574e-03_rb,2.4900e-03_rb,2.0123e-03_rb,1.5298e-03_rb, &\n     &1.0368e-03_rb,5.3904e-04_rb,6.3688e-05_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &5.8362e-03_rb,5.1381e-03_rb,4.4457e-03_rb,3.7372e-03_rb,3.0206e-03_rb,2.2947e-03_rb, &\n     &1.5681e-03_rb,8.2298e-04_rb,8.9290e-05_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &9.2251e-03_rb,8.1210e-03_rb,7.0237e-03_rb,5.8967e-03_rb,4.7688e-03_rb,3.6322e-03_rb, &\n     &2.4807e-03_rb,1.3032e-03_rb,1.3416e-04_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &1.4709e-02_rb,1.2946e-02_rb,1.1191e-02_rb,9.4045e-03_rb,7.5956e-03_rb,5.7870e-03_rb, &\n     &3.9575e-03_rb,2.0727e-03_rb,1.8001e-04_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &2.2619e-02_rb,1.9908e-02_rb,1.7216e-02_rb,1.4475e-02_rb,1.1703e-02_rb,8.9157e-03_rb, &\n     &6.0792e-03_rb,3.1754e-03_rb,2.2086e-04_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &3.8309e-03_rb,3.3731e-03_rb,2.9187e-03_rb,2.4542e-03_rb,1.9844e-03_rb,1.5107e-03_rb, &\n     &1.0279e-03_rb,5.3642e-04_rb,6.4942e-05_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &5.8347e-03_rb,5.1376e-03_rb,4.4461e-03_rb,3.7352e-03_rb,3.0197e-03_rb,2.2950e-03_rb, &\n     &1.5588e-03_rb,8.1629e-04_rb,9.2767e-05_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &9.2194e-03_rb,8.1162e-03_rb,7.0173e-03_rb,5.8930e-03_rb,4.7598e-03_rb,3.6175e-03_rb, &\n     &2.4591e-03_rb,1.2857e-03_rb,1.3288e-04_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &1.4386e-02_rb,1.2666e-02_rb,1.0949e-02_rb,9.1979e-03_rb,7.4294e-03_rb,5.6460e-03_rb, &\n     &3.8493e-03_rb,2.0075e-03_rb,1.7458e-04_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &2.1887e-02_rb,1.9271e-02_rb,1.6664e-02_rb,1.4007e-02_rb,1.1332e-02_rb,8.6132e-03_rb, &\n     &5.8543e-03_rb,3.0399e-03_rb,2.1866e-04_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &1.2767e-04_rb,2.6436e-04_rb,3.0512e-04_rb,3.1799e-04_rb,3.1958e-04_rb,3.3191e-04_rb, &\n     &3.9104e-04_rb,5.0710e-04_rb,1.7855e-04_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &1.7738e-04_rb,3.5053e-04_rb,3.9839e-04_rb,4.1229e-04_rb,4.0492e-04_rb,3.8983e-04_rb, &\n     &4.1500e-04_rb,5.9614e-04_rb,1.6036e-04_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &2.3686e-04_rb,4.4965e-04_rb,5.0544e-04_rb,5.1877e-04_rb,5.0600e-04_rb,4.7740e-04_rb, &\n     &4.5052e-04_rb,5.7236e-04_rb,1.8787e-04_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &3.0650e-04_rb,5.6569e-04_rb,6.3165e-04_rb,6.4530e-04_rb,6.3512e-04_rb,6.1237e-04_rb, &\n     &5.6656e-04_rb,5.2891e-04_rb,2.7469e-04_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &3.8512e-04_rb,6.9752e-04_rb,7.7525e-04_rb,7.9245e-04_rb,7.8883e-04_rb,7.7085e-04_rb, &\n     &7.4060e-04_rb,6.7719e-04_rb,3.6282e-04_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &1.5390e-04_rb,2.7494e-04_rb,3.1261e-04_rb,3.2023e-04_rb,3.1151e-04_rb,2.9547e-04_rb, &\n     &3.1497e-04_rb,3.9039e-04_rb,1.0989e-04_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &2.1714e-04_rb,3.7453e-04_rb,4.1638e-04_rb,4.2413e-04_rb,4.1007e-04_rb,3.7857e-04_rb, &\n     &3.5354e-04_rb,4.2401e-04_rb,1.1763e-04_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &2.9352e-04_rb,4.8938e-04_rb,5.3784e-04_rb,5.4431e-04_rb,5.2257e-04_rb,4.7749e-04_rb, &\n     &4.2355e-04_rb,4.2211e-04_rb,1.4157e-04_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &3.8348e-04_rb,6.2214e-04_rb,6.8003e-04_rb,6.8421e-04_rb,6.5590e-04_rb,6.0605e-04_rb, &\n     &5.3467e-04_rb,4.5064e-04_rb,2.0612e-04_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &4.8704e-04_rb,7.7618e-04_rb,8.4540e-04_rb,8.4784e-04_rb,8.1484e-04_rb,7.6245e-04_rb, &\n     &6.8894e-04_rb,5.8453e-04_rb,2.7190e-04_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &2.3071e-04_rb,3.3499e-04_rb,3.6845e-04_rb,3.7270e-04_rb,3.5547e-04_rb,3.2203e-04_rb, &\n     &2.7656e-04_rb,2.6506e-04_rb,6.2779e-05_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &3.3368e-04_rb,4.7302e-04_rb,5.1131e-04_rb,5.0923e-04_rb,4.8101e-04_rb,4.3420e-04_rb, &\n     &3.6192e-04_rb,3.1963e-04_rb,7.8022e-05_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &4.6167e-04_rb,6.3817e-04_rb,6.7863e-04_rb,6.7148e-04_rb,6.3202e-04_rb,5.6610e-04_rb, &\n     &4.7208e-04_rb,3.5841e-04_rb,1.0032e-04_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &6.1421e-04_rb,8.2728e-04_rb,8.7092e-04_rb,8.6012e-04_rb,8.0666e-04_rb,7.1818e-04_rb, &\n     &5.9937e-04_rb,4.3811e-04_rb,1.4466e-04_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &7.9318e-04_rb,1.0499e-03_rb,1.1001e-03_rb,1.0825e-03_rb,1.0111e-03_rb,9.0157e-04_rb, &\n     &7.5964e-04_rb,5.7512e-04_rb,1.9432e-04_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &3.4200e-04_rb,4.1990e-04_rb,4.4259e-04_rb,4.3661e-04_rb,4.1163e-04_rb,3.6760e-04_rb, &\n     &3.0371e-04_rb,2.3149e-04_rb,4.6307e-05_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &5.0920e-04_rb,6.1539e-04_rb,6.3721e-04_rb,6.1994e-04_rb,5.7603e-04_rb,5.0827e-04_rb, &\n     &4.1402e-04_rb,2.9065e-04_rb,5.1907e-05_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &7.2424e-04_rb,8.6063e-04_rb,8.7699e-04_rb,8.4266e-04_rb,7.7721e-04_rb,6.8304e-04_rb, &\n     &5.5495e-04_rb,3.8326e-04_rb,6.9160e-05_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &9.8776e-04_rb,1.1516e-03_rb,1.1582e-03_rb,1.1044e-03_rb,1.0138e-03_rb,8.8821e-04_rb, &\n     &7.1753e-04_rb,4.9169e-04_rb,9.8233e-05_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &1.2975e-03_rb,1.4918e-03_rb,1.4869e-03_rb,1.4114e-03_rb,1.2930e-03_rb,1.1277e-03_rb, &\n     &9.0840e-04_rb,6.3197e-04_rb,1.3450e-04_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &4.6076e-04_rb,5.0474e-04_rb,5.1144e-04_rb,4.9140e-04_rb,4.5232e-04_rb,3.9779e-04_rb, &\n     &3.2321e-04_rb,2.2336e-04_rb,3.4201e-05_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &7.0989e-04_rb,7.6999e-04_rb,7.6963e-04_rb,7.2952e-04_rb,6.6336e-04_rb,5.7413e-04_rb, &\n     &4.5930e-04_rb,3.0843e-04_rb,4.2292e-05_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &1.0386e-03_rb,1.1133e-03_rb,1.0985e-03_rb,1.0276e-03_rb,9.2270e-04_rb,7.9078e-04_rb, &\n     &6.2825e-04_rb,4.1898e-04_rb,5.3586e-05_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &1.4541e-03_rb,1.5404e-03_rb,1.4988e-03_rb,1.3877e-03_rb,1.2375e-03_rb,1.0544e-03_rb, &\n     &8.3469e-04_rb,5.5179e-04_rb,6.8395e-05_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &1.9528e-03_rb,2.0463e-03_rb,1.9719e-03_rb,1.8145e-03_rb,1.6102e-03_rb,1.3677e-03_rb, &\n     &1.0776e-03_rb,7.0877e-04_rb,9.0444e-05_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &5.6492e-04_rb,5.7565e-04_rb,5.5931e-04_rb,5.2434e-04_rb,4.7320e-04_rb,4.0777e-04_rb, &\n     &3.2512e-04_rb,2.1641e-04_rb,2.6966e-05_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &9.0441e-04_rb,9.1447e-04_rb,8.8349e-04_rb,8.2170e-04_rb,7.3208e-04_rb,6.2190e-04_rb, &\n     &4.8768e-04_rb,3.1817e-04_rb,3.4982e-05_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &1.3664e-03_rb,1.3688e-03_rb,1.3074e-03_rb,1.2015e-03_rb,1.0584e-03_rb,8.8601e-04_rb, &\n     &6.8532e-04_rb,4.4190e-04_rb,4.5831e-05_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &1.9708e-03_rb,1.9570e-03_rb,1.8529e-03_rb,1.6859e-03_rb,1.4692e-03_rb,1.2199e-03_rb, &\n     &9.3583e-04_rb,6.0020e-04_rb,5.8072e-05_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &2.7158e-03_rb,2.6789e-03_rb,2.5132e-03_rb,2.2684e-03_rb,1.9663e-03_rb,1.6232e-03_rb, &\n     &1.2393e-03_rb,7.8815e-04_rb,7.1453e-05_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &7.1612e-04_rb,6.9080e-04_rb,6.4557e-04_rb,5.8741e-04_rb,5.1690e-04_rb,4.3484e-04_rb, &\n     &3.3811e-04_rb,2.1958e-04_rb,2.5385e-05_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &1.1940e-03_rb,1.1449e-03_rb,1.0668e-03_rb,9.6669e-04_rb,8.4588e-04_rb,7.0528e-04_rb, &\n     &5.3962e-04_rb,3.4196e-04_rb,3.2650e-05_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &1.8743e-03_rb,1.7868e-03_rb,1.6562e-03_rb,1.4906e-03_rb,1.2906e-03_rb,1.0612e-03_rb, &\n     &7.9912e-04_rb,4.9523e-04_rb,4.3298e-05_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &2.7760e-03_rb,2.6274e-03_rb,2.4197e-03_rb,2.1609e-03_rb,1.8570e-03_rb,1.5098e-03_rb, &\n     &1.1229e-03_rb,6.8654e-04_rb,5.4268e-05_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &3.9210e-03_rb,3.6980e-03_rb,3.3854e-03_rb,3.0037e-03_rb,2.5627e-03_rb,2.0710e-03_rb, &\n     &1.5295e-03_rb,9.2840e-04_rb,6.7940e-05_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &1.0670e-03_rb,9.8692e-04_rb,8.9134e-04_rb,7.8593e-04_rb,6.7073e-04_rb,5.4467e-04_rb, &\n     &4.0756e-04_rb,2.5210e-04_rb,2.8359e-05_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &1.8582e-03_rb,1.7102e-03_rb,1.5414e-03_rb,1.3557e-03_rb,1.1545e-03_rb,9.3501e-04_rb, &\n     &6.9502e-04_rb,4.2320e-04_rb,3.7233e-05_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &3.0392e-03_rb,2.7815e-03_rb,2.4987e-03_rb,2.1910e-03_rb,1.8592e-03_rb,1.4974e-03_rb, &\n     &1.1016e-03_rb,6.5354e-04_rb,4.6926e-05_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &4.6351e-03_rb,4.2251e-03_rb,3.7893e-03_rb,3.3101e-03_rb,2.7928e-03_rb,2.2311e-03_rb, &\n     &1.6189e-03_rb,9.4084e-04_rb,6.1285e-05_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &6.7053e-03_rb,6.1011e-03_rb,5.4490e-03_rb,4.7367e-03_rb,3.9743e-03_rb,3.1531e-03_rb, &\n     &2.2726e-03_rb,1.3072e-03_rb,7.4486e-05_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &3.0079e-03_rb,2.6671e-03_rb,2.3362e-03_rb,1.9921e-03_rb,1.6375e-03_rb,1.2739e-03_rb, &\n     &8.9947e-04_rb,5.0478e-04_rb,4.8310e-05_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &5.3604e-03_rb,4.7462e-03_rb,4.1492e-03_rb,3.5341e-03_rb,2.9054e-03_rb,2.2583e-03_rb, &\n     &1.5943e-03_rb,8.9078e-04_rb,6.1843e-05_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &9.0324e-03_rb,7.9882e-03_rb,6.9714e-03_rb,5.9320e-03_rb,4.8700e-03_rb,3.7864e-03_rb, &\n     &2.6693e-03_rb,1.4872e-03_rb,8.4369e-05_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &1.4329e-02_rb,1.2658e-02_rb,1.1032e-02_rb,9.3748e-03_rb,7.6880e-03_rb,5.9624e-03_rb, &\n     &4.1846e-03_rb,2.3075e-03_rb,1.0247e-04_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &2.1261e-02_rb,1.8755e-02_rb,1.6325e-02_rb,1.3858e-02_rb,1.1339e-02_rb,8.7669e-03_rb, &\n     &6.1142e-03_rb,3.3320e-03_rb,1.2163e-04_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &1.0911e-02_rb,9.5635e-03_rb,8.2330e-03_rb,6.9092e-03_rb,5.5802e-03_rb,4.2396e-03_rb, &\n     &2.8819e-03_rb,1.5069e-03_rb,1.0164e-04_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &1.8579e-02_rb,1.6289e-02_rb,1.4021e-02_rb,1.1757e-02_rb,9.4958e-03_rb,7.2115e-03_rb, &\n     &4.9034e-03_rb,2.5692e-03_rb,1.2765e-04_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &3.1018e-02_rb,2.7193e-02_rb,2.3385e-02_rb,1.9601e-02_rb,1.5823e-02_rb,1.2032e-02_rb, &\n     &8.1956e-03_rb,4.3045e-03_rb,1.7856e-04_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &5.0111e-02_rb,4.3919e-02_rb,3.7756e-02_rb,3.1628e-02_rb,2.5516e-02_rb,1.9374e-02_rb, &\n     &1.3194e-02_rb,6.9219e-03_rb,2.2724e-04_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &7.6376e-02_rb,6.6924e-02_rb,5.7507e-02_rb,4.8151e-02_rb,3.8816e-02_rb,2.9439e-02_rb, &\n     &2.0003e-02_rb,1.0433e-02_rb,2.6085e-04_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &1.8971e-02_rb,1.6611e-02_rb,1.4262e-02_rb,1.1923e-02_rb,9.5992e-03_rb,7.2680e-03_rb, &\n     &4.9113e-03_rb,2.5257e-03_rb,1.6715e-04_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &3.0950e-02_rb,2.7103e-02_rb,2.3271e-02_rb,1.9463e-02_rb,1.5664e-02_rb,1.1847e-02_rb, &\n     &7.9981e-03_rb,4.1199e-03_rb,2.1489e-04_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &4.9685e-02_rb,4.3517e-02_rb,3.7369e-02_rb,3.1256e-02_rb,2.5144e-02_rb,1.9021e-02_rb, &\n     &1.2853e-02_rb,6.6396e-03_rb,2.5990e-04_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &7.7374e-02_rb,6.7750e-02_rb,5.8163e-02_rb,4.8608e-02_rb,3.9067e-02_rb,2.9542e-02_rb, &\n     &1.9962e-02_rb,1.0311e-02_rb,3.2116e-04_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &1.1501e-01_rb,1.0072e-01_rb,8.6431e-02_rb,7.2217e-02_rb,5.8056e-02_rb,4.3898e-02_rb, &\n     &2.9647e-02_rb,1.5264e-02_rb,3.7485e-04_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &2.3401e-02_rb,2.0486e-02_rb,1.7582e-02_rb,1.4686e-02_rb,1.1806e-02_rb,8.9258e-03_rb, &\n     &6.0297e-03_rb,3.0936e-03_rb,1.8693e-04_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &3.8133e-02_rb,3.3387e-02_rb,2.8657e-02_rb,2.3944e-02_rb,1.9250e-02_rb,1.4544e-02_rb, &\n     &9.8021e-03_rb,5.0235e-03_rb,2.4530e-04_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &6.0110e-02_rb,5.2620e-02_rb,4.5149e-02_rb,3.7710e-02_rb,3.0268e-02_rb,2.2852e-02_rb, &\n     &1.5390e-02_rb,7.8945e-03_rb,2.8864e-04_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &9.0890e-02_rb,7.9571e-02_rb,6.8303e-02_rb,5.7049e-02_rb,4.5842e-02_rb,3.4594e-02_rb, &\n     &2.3289e-02_rb,1.1923e-02_rb,3.6228e-04_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &1.3100e-01_rb,1.1462e-01_rb,9.8322e-02_rb,8.2088e-02_rb,6.5959e-02_rb,4.9780e-02_rb, &\n     &3.3534e-02_rb,1.7184e-02_rb,4.3158e-04_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &2.4303e-02_rb,2.1262e-02_rb,1.8230e-02_rb,1.5211e-02_rb,1.2213e-02_rb,9.2155e-03_rb, &\n     &6.2046e-03_rb,3.1714e-03_rb,1.9233e-04_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &3.8296e-02_rb,3.3521e-02_rb,2.8762e-02_rb,2.4031e-02_rb,1.9310e-02_rb,1.4568e-02_rb, &\n     &9.8072e-03_rb,5.0047e-03_rb,2.4842e-04_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &5.8379e-02_rb,5.1065e-02_rb,4.3832e-02_rb,3.6631e-02_rb,2.9434e-02_rb,2.2205e-02_rb, &\n     &1.4940e-02_rb,7.6384e-03_rb,2.8734e-04_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &8.5558e-02_rb,7.4841e-02_rb,6.4227e-02_rb,5.3638e-02_rb,4.3082e-02_rb,3.2499e-02_rb, &\n     &2.1863e-02_rb,1.1189e-02_rb,3.6167e-04_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &1.2105e-01_rb,1.0601e-01_rb,9.0943e-02_rb,7.5945e-02_rb,6.0995e-02_rb,4.5990e-02_rb, &\n     &3.0953e-02_rb,1.5858e-02_rb,4.3014e-04_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &5.2897e-04_rb,6.3863e-04_rb,6.7716e-04_rb,6.8592e-04_rb,6.6781e-04_rb,6.0937e-04_rb, &\n     &5.2069e-04_rb,5.5022e-04_rb,1.8160e-04_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &6.5371e-04_rb,8.0837e-04_rb,8.6369e-04_rb,8.8295e-04_rb,8.7230e-04_rb,8.3067e-04_rb, &\n     &7.4453e-04_rb,6.6477e-04_rb,2.9044e-04_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &7.9309e-04_rb,1.0041e-03_rb,1.0806e-03_rb,1.1131e-03_rb,1.1135e-03_rb,1.0810e-03_rb, &\n     &1.0060e-03_rb,8.6363e-04_rb,4.3507e-04_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &9.5515e-04_rb,1.2330e-03_rb,1.3320e-03_rb,1.3798e-03_rb,1.3866e-03_rb,1.3599e-03_rb, &\n     &1.2978e-03_rb,1.1703e-03_rb,5.4823e-04_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &1.1370e-03_rb,1.4922e-03_rb,1.6168e-03_rb,1.6809e-03_rb,1.6969e-03_rb,1.6741e-03_rb, &\n     &1.6142e-03_rb,1.5306e-03_rb,7.1233e-04_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &6.4530e-04_rb,7.2673e-04_rb,7.3348e-04_rb,7.1463e-04_rb,6.7564e-04_rb,6.1110e-04_rb, &\n     &5.0123e-04_rb,4.4222e-04_rb,1.3962e-04_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &8.0957e-04_rb,9.2607e-04_rb,9.4414e-04_rb,9.2480e-04_rb,8.8433e-04_rb,8.1497e-04_rb, &\n     &7.0697e-04_rb,5.2414e-04_rb,2.1889e-04_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &9.9558e-04_rb,1.1596e-03_rb,1.1892e-03_rb,1.1731e-03_rb,1.1295e-03_rb,1.0550e-03_rb, &\n     &9.3776e-04_rb,7.6366e-04_rb,3.1779e-04_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &1.2093e-03_rb,1.4336e-03_rb,1.4751e-03_rb,1.4631e-03_rb,1.4149e-03_rb,1.3281e-03_rb, &\n     &1.2039e-03_rb,1.0264e-03_rb,4.0743e-04_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &1.4548e-03_rb,1.7501e-03_rb,1.8041e-03_rb,1.7977e-03_rb,1.7416e-03_rb,1.6424e-03_rb, &\n     &1.5037e-03_rb,1.3244e-03_rb,5.3155e-04_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &1.0073e-03_rb,1.0305e-03_rb,9.9170e-04_rb,9.1685e-04_rb,8.2334e-04_rb,7.1279e-04_rb, &\n     &5.7365e-04_rb,3.9412e-04_rb,1.0025e-04_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &1.2880e-03_rb,1.3316e-03_rb,1.2867e-03_rb,1.1967e-03_rb,1.0809e-03_rb,9.4443e-04_rb, &\n     &7.8179e-04_rb,5.3700e-04_rb,1.5384e-04_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &1.6107e-03_rb,1.6903e-03_rb,1.6390e-03_rb,1.5300e-03_rb,1.3886e-03_rb,1.2242e-03_rb, &\n     &1.0235e-03_rb,7.5425e-04_rb,2.1640e-04_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &1.9797e-03_rb,2.1107e-03_rb,2.0529e-03_rb,1.9209e-03_rb,1.7527e-03_rb,1.5541e-03_rb, &\n     &1.3094e-03_rb,9.9288e-04_rb,2.8803e-04_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &2.4113e-03_rb,2.6021e-03_rb,2.5366e-03_rb,2.3815e-03_rb,2.1822e-03_rb,1.9385e-03_rb, &\n     &1.6375e-03_rb,1.2689e-03_rb,3.7641e-04_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &1.5851e-03_rb,1.5181e-03_rb,1.4032e-03_rb,1.2606e-03_rb,1.0883e-03_rb,8.9739e-04_rb, &\n     &6.8560e-04_rb,4.2854e-04_rb,6.6391e-05_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &2.0501e-03_rb,1.9754e-03_rb,1.8387e-03_rb,1.6565e-03_rb,1.4386e-03_rb,1.1914e-03_rb, &\n     &9.2359e-04_rb,6.1319e-04_rb,1.0381e-04_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &2.6137e-03_rb,2.5384e-03_rb,2.3763e-03_rb,2.1489e-03_rb,1.8706e-03_rb,1.5557e-03_rb, &\n     &1.2160e-03_rb,8.2392e-04_rb,1.4611e-04_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &3.2665e-03_rb,3.2074e-03_rb,3.0134e-03_rb,2.7316e-03_rb,2.3866e-03_rb,1.9939e-03_rb, &\n     &1.5682e-03_rb,1.0781e-03_rb,1.9821e-04_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &4.0137e-03_rb,3.9873e-03_rb,3.7629e-03_rb,3.4158e-03_rb,2.9921e-03_rb,2.5128e-03_rb, &\n     &1.9870e-03_rb,1.3733e-03_rb,2.6370e-04_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &2.2692e-03_rb,2.1006e-03_rb,1.8869e-03_rb,1.6579e-03_rb,1.4070e-03_rb,1.1280e-03_rb, &\n     &8.2786e-04_rb,4.9332e-04_rb,4.7300e-05_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &2.9951e-03_rb,2.7795e-03_rb,2.5097e-03_rb,2.2151e-03_rb,1.8839e-03_rb,1.5178e-03_rb, &\n     &1.1209e-03_rb,6.8743e-04_rb,6.4441e-05_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &3.8783e-03_rb,3.6150e-03_rb,3.2821e-03_rb,2.9041e-03_rb,2.4789e-03_rb,2.0050e-03_rb, &\n     &1.4894e-03_rb,9.2698e-04_rb,9.4008e-05_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &4.9258e-03_rb,4.6186e-03_rb,4.2220e-03_rb,3.7446e-03_rb,3.2015e-03_rb,2.5968e-03_rb, &\n     &1.9395e-03_rb,1.2217e-03_rb,1.3185e-04_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &6.1149e-03_rb,5.7761e-03_rb,5.3147e-03_rb,4.7312e-03_rb,4.0567e-03_rb,3.3012e-03_rb, &\n     &2.4775e-03_rb,1.5747e-03_rb,1.8186e-04_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &2.9777e-03_rb,2.7020e-03_rb,2.3926e-03_rb,2.0653e-03_rb,1.7240e-03_rb,1.3628e-03_rb, &\n     &9.7585e-04_rb,5.5769e-04_rb,3.7018e-05_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &4.0405e-03_rb,3.6698e-03_rb,3.2527e-03_rb,2.8150e-03_rb,2.3582e-03_rb,1.8689e-03_rb, &\n     &1.3459e-03_rb,7.7825e-04_rb,5.0931e-05_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &5.2985e-03_rb,4.8259e-03_rb,4.2980e-03_rb,3.7351e-03_rb,3.1354e-03_rb,2.4956e-03_rb, &\n     &1.8046e-03_rb,1.0570e-03_rb,6.8165e-05_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &6.8330e-03_rb,6.2458e-03_rb,5.5922e-03_rb,4.8800e-03_rb,4.1117e-03_rb,3.2799e-03_rb, &\n     &2.3798e-03_rb,1.4059e-03_rb,8.9401e-05_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &8.6003e-03_rb,7.8905e-03_rb,7.1103e-03_rb,6.2229e-03_rb,5.2575e-03_rb,4.2076e-03_rb, &\n     &3.0687e-03_rb,1.8306e-03_rb,1.2028e-04_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &4.0427e-03_rb,3.6171e-03_rb,3.1732e-03_rb,2.7085e-03_rb,2.2305e-03_rb,1.7374e-03_rb, &\n     &1.2245e-03_rb,6.7631e-04_rb,3.7016e-05_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &5.6556e-03_rb,5.0622e-03_rb,4.4391e-03_rb,3.7915e-03_rb,3.1262e-03_rb,2.4381e-03_rb, &\n     &1.7215e-03_rb,9.5894e-04_rb,4.8862e-05_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &7.5823e-03_rb,6.7945e-03_rb,5.9706e-03_rb,5.1108e-03_rb,4.2263e-03_rb,3.3055e-03_rb, &\n     &2.3437e-03_rb,1.3169e-03_rb,6.1466e-05_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &9.8701e-03_rb,8.8589e-03_rb,7.8113e-03_rb,6.7131e-03_rb,5.5681e-03_rb,4.3736e-03_rb, &\n     &3.1150e-03_rb,1.7640e-03_rb,7.9784e-05_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &1.2627e-02_rb,1.1349e-02_rb,1.0044e-02_rb,8.6633e-03_rb,7.2033e-03_rb,5.6735e-03_rb, &\n     &4.0519e-03_rb,2.3093e-03_rb,9.9338e-05_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &6.5162e-03_rb,5.7610e-03_rb,5.0100e-03_rb,4.2382e-03_rb,3.4497e-03_rb,2.6520e-03_rb, &\n     &1.8357e-03_rb,9.8841e-04_rb,5.0893e-05_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &9.3894e-03_rb,8.3047e-03_rb,7.2233e-03_rb,6.1097e-03_rb,4.9767e-03_rb,3.8267e-03_rb, &\n     &2.6500e-03_rb,1.4278e-03_rb,6.6360e-05_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &1.2886e-02_rb,1.1402e-02_rb,9.9227e-03_rb,8.3986e-03_rb,6.8476e-03_rb,5.2715e-03_rb, &\n     &3.6563e-03_rb,1.9797e-03_rb,8.1964e-05_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &1.7029e-02_rb,1.5075e-02_rb,1.3132e-02_rb,1.1136e-02_rb,9.1030e-03_rb,7.0269e-03_rb, &\n     &4.8948e-03_rb,2.6694e-03_rb,1.0083e-04_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &2.2131e-02_rb,1.9595e-02_rb,1.7101e-02_rb,1.4537e-02_rb,1.1918e-02_rb,9.2249e-03_rb, &\n     &6.4389e-03_rb,3.5237e-03_rb,1.2644e-04_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &1.9574e-02_rb,1.7171e-02_rb,1.4767e-02_rb,1.2373e-02_rb,9.9784e-03_rb,7.5698e-03_rb, &\n     &5.1323e-03_rb,2.6624e-03_rb,7.9787e-05_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &2.9063e-02_rb,2.5494e-02_rb,2.1931e-02_rb,1.8384e-02_rb,1.4827e-02_rb,1.1241e-02_rb, &\n     &7.6171e-03_rb,3.9520e-03_rb,1.0489e-04_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &4.0973e-02_rb,3.5943e-02_rb,3.0923e-02_rb,2.5930e-02_rb,2.0911e-02_rb,1.5846e-02_rb, &\n     &1.0739e-02_rb,5.5789e-03_rb,1.2330e-04_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &5.5333e-02_rb,4.8546e-02_rb,4.1776e-02_rb,3.5034e-02_rb,2.8259e-02_rb,2.1435e-02_rb, &\n     &1.4550e-02_rb,7.5751e-03_rb,1.5097e-04_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &7.2795e-02_rb,6.3880e-02_rb,5.4976e-02_rb,4.6114e-02_rb,3.7235e-02_rb,2.8276e-02_rb, &\n     &1.9247e-02_rb,1.0060e-02_rb,1.9444e-04_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &6.7876e-02_rb,5.9426e-02_rb,5.0975e-02_rb,4.2524e-02_rb,3.4085e-02_rb,2.5643e-02_rb, &\n     &1.7219e-02_rb,8.7441e-03_rb,2.1379e-04_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &1.0363e-01_rb,9.0726e-02_rb,7.7824e-02_rb,6.4925e-02_rb,5.2032e-02_rb,3.9153e-02_rb, &\n     &2.6288e-02_rb,1.3336e-02_rb,2.7530e-04_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &1.4868e-01_rb,1.3017e-01_rb,1.1167e-01_rb,9.3161e-02_rb,7.4667e-02_rb,5.6180e-02_rb, &\n     &3.7706e-02_rb,1.9125e-02_rb,3.1198e-04_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &2.0441e-01_rb,1.7897e-01_rb,1.5353e-01_rb,1.2809e-01_rb,1.0267e-01_rb,7.7285e-02_rb, &\n     &5.1877e-02_rb,2.6327e-02_rb,3.7361e-04_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &2.7248e-01_rb,2.3857e-01_rb,2.0467e-01_rb,1.7078e-01_rb,1.3689e-01_rb,1.0307e-01_rb, &\n     &6.9236e-02_rb,3.5215e-02_rb,4.4890e-04_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &1.0259e-01_rb,8.9796e-02_rb,7.7004e-02_rb,6.4217e-02_rb,5.1425e-02_rb,3.8649e-02_rb, &\n     &2.5882e-02_rb,1.3106e-02_rb,2.9325e-04_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &1.5400e-01_rb,1.3480e-01_rb,1.1559e-01_rb,9.6403e-02_rb,7.7200e-02_rb,5.8036e-02_rb, &\n     &3.8878e-02_rb,1.9667e-02_rb,3.5327e-04_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &2.2118e-01_rb,1.9361e-01_rb,1.6603e-01_rb,1.3846e-01_rb,1.1090e-01_rb,8.3368e-02_rb, &\n     &5.5861e-02_rb,2.8242e-02_rb,4.6202e-04_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &3.0353e-01_rb,2.6571e-01_rb,2.2790e-01_rb,1.9008e-01_rb,1.5227e-01_rb,1.1447e-01_rb, &\n     &7.6708e-02_rb,3.8764e-02_rb,5.6335e-04_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &4.0552e-01_rb,3.5495e-01_rb,3.0446e-01_rb,2.5391e-01_rb,2.0338e-01_rb,1.5287e-01_rb, &\n     &1.0246e-01_rb,5.1876e-02_rb,6.9233e-04_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &1.1805e-01_rb,1.0334e-01_rb,8.8617e-02_rb,7.3889e-02_rb,5.9170e-02_rb,4.4431e-02_rb, &\n     &2.9722e-02_rb,1.5007e-02_rb,3.3712e-04_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &1.7261e-01_rb,1.5108e-01_rb,1.2954e-01_rb,1.0804e-01_rb,8.6508e-02_rb,6.5013e-02_rb, &\n     &4.3529e-02_rb,2.1984e-02_rb,3.8771e-04_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &2.4519e-01_rb,2.1462e-01_rb,1.8406e-01_rb,1.5350e-01_rb,1.2297e-01_rb,9.2422e-02_rb, &\n     &6.1905e-02_rb,3.1241e-02_rb,5.1427e-04_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &3.3550e-01_rb,2.9369e-01_rb,2.5183e-01_rb,2.1003e-01_rb,1.6821e-01_rb,1.2645e-01_rb, &\n     &8.4714e-02_rb,4.2803e-02_rb,6.2818e-04_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &4.4900e-01_rb,3.9309e-01_rb,3.3714e-01_rb,2.8120e-01_rb,2.2522e-01_rb,1.6927e-01_rb, &\n     &1.1341e-01_rb,5.7326e-02_rb,7.6692e-04_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &1.0921e-01_rb,9.5613e-02_rb,8.2016e-02_rb,6.8423e-02_rb,5.4814e-02_rb,4.1207e-02_rb, &\n     &2.7589e-02_rb,1.3915e-02_rb,3.0996e-04_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &1.5908e-01_rb,1.3927e-01_rb,1.1945e-01_rb,9.9633e-02_rb,7.9786e-02_rb,5.9973e-02_rb, &\n     &4.0176e-02_rb,2.0276e-02_rb,3.7414e-04_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &2.2086e-01_rb,1.9339e-01_rb,1.6582e-01_rb,1.3829e-01_rb,1.1077e-01_rb,8.3306e-02_rb, &\n     &5.5823e-02_rb,2.8176e-02_rb,4.9992e-04_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &3.0195e-01_rb,2.6439e-01_rb,2.2676e-01_rb,1.8917e-01_rb,1.5156e-01_rb,1.1401e-01_rb, &\n     &7.6395e-02_rb,3.8587e-02_rb,6.2293e-04_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &4.0305e-01_rb,3.5276e-01_rb,3.0259e-01_rb,2.5241e-01_rb,2.0221e-01_rb,1.5209e-01_rb, &\n     &1.0190e-01_rb,5.1477e-02_rb,7.6835e-04_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &1.3028e-03_rb,1.4792e-03_rb,1.5640e-03_rb,1.5783e-03_rb,1.5338e-03_rb,1.4263e-03_rb, &\n     &1.2426e-03_rb,1.0270e-03_rb,3.8769e-04_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &1.5941e-03_rb,1.8539e-03_rb,1.9924e-03_rb,2.0205e-03_rb,1.9782e-03_rb,1.8703e-03_rb, &\n     &1.6672e-03_rb,1.3063e-03_rb,5.8906e-04_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &1.9170e-03_rb,2.2892e-03_rb,2.4874e-03_rb,2.5352e-03_rb,2.4910e-03_rb,2.3785e-03_rb, &\n     &2.1678e-03_rb,1.7982e-03_rb,8.4228e-04_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &2.2745e-03_rb,2.7857e-03_rb,3.0496e-03_rb,3.1195e-03_rb,3.0784e-03_rb,2.9487e-03_rb, &\n     &2.7123e-03_rb,2.3729e-03_rb,1.1599e-03_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &2.6664e-03_rb,3.3396e-03_rb,3.6796e-03_rb,3.7742e-03_rb,3.7339e-03_rb,3.5735e-03_rb, &\n     &3.3124e-03_rb,2.9540e-03_rb,1.5049e-03_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &1.6105e-03_rb,1.7112e-03_rb,1.7440e-03_rb,1.7104e-03_rb,1.6159e-03_rb,1.4650e-03_rb, &\n     &1.2347e-03_rb,8.8371e-04_rb,2.8335e-04_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &1.9953e-03_rb,2.1575e-03_rb,2.2293e-03_rb,2.1981e-03_rb,2.0893e-03_rb,1.9131e-03_rb, &\n     &1.6649e-03_rb,1.2817e-03_rb,4.3740e-04_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &2.4284e-03_rb,2.6728e-03_rb,2.7960e-03_rb,2.7642e-03_rb,2.6394e-03_rb,2.4361e-03_rb, &\n     &2.1522e-03_rb,1.6930e-03_rb,6.3499e-04_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &2.9107e-03_rb,3.2657e-03_rb,3.4379e-03_rb,3.4084e-03_rb,3.2638e-03_rb,3.0336e-03_rb, &\n     &2.6919e-03_rb,2.1920e-03_rb,8.6677e-04_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &3.4457e-03_rb,3.9315e-03_rb,4.1602e-03_rb,4.1311e-03_rb,3.9674e-03_rb,3.6982e-03_rb, &\n     &3.2905e-03_rb,2.7416e-03_rb,1.1277e-03_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &2.5362e-03_rb,2.4734e-03_rb,2.3740e-03_rb,2.2299e-03_rb,2.0298e-03_rb,1.7661e-03_rb, &\n     &1.4316e-03_rb,9.7765e-04_rb,1.9718e-04_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &3.1979e-03_rb,3.1448e-03_rb,3.0502e-03_rb,2.8893e-03_rb,2.6412e-03_rb,2.3120e-03_rb, &\n     &1.8934e-03_rb,1.3566e-03_rb,3.0943e-04_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &3.9564e-03_rb,3.9245e-03_rb,3.8464e-03_rb,3.6625e-03_rb,3.3542e-03_rb,2.9452e-03_rb, &\n     &2.4362e-03_rb,1.8025e-03_rb,4.5105e-04_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &4.8099e-03_rb,4.8142e-03_rb,4.7669e-03_rb,4.5499e-03_rb,4.1705e-03_rb,3.6723e-03_rb, &\n     &3.0586e-03_rb,2.2944e-03_rb,6.1219e-04_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &5.7692e-03_rb,5.8286e-03_rb,5.8075e-03_rb,5.5468e-03_rb,5.0930e-03_rb,4.4966e-03_rb, &\n     &3.7644e-03_rb,2.8408e-03_rb,8.0331e-04_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &3.9832e-03_rb,3.6741e-03_rb,3.3865e-03_rb,3.0403e-03_rb,2.6684e-03_rb,2.2429e-03_rb, &\n     &1.7419e-03_rb,1.1291e-03_rb,1.3015e-04_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &5.1171e-03_rb,4.7408e-03_rb,4.3919e-03_rb,3.9718e-03_rb,3.5069e-03_rb,2.9654e-03_rb, &\n     &2.3168e-03_rb,1.5306e-03_rb,2.0974e-04_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &6.4449e-03_rb,5.9980e-03_rb,5.5858e-03_rb,5.0842e-03_rb,4.5074e-03_rb,3.8196e-03_rb, &\n     &2.9911e-03_rb,2.0056e-03_rb,3.1006e-04_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &7.9648e-03_rb,7.4434e-03_rb,6.9731e-03_rb,6.3878e-03_rb,5.6676e-03_rb,4.8062e-03_rb, &\n     &3.7737e-03_rb,2.5549e-03_rb,4.2568e-04_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &9.7092e-03_rb,9.1026e-03_rb,8.5703e-03_rb,7.8734e-03_rb,6.9867e-03_rb,5.9261e-03_rb, &\n     &4.6651e-03_rb,3.1844e-03_rb,5.6406e-04_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &5.7027e-03_rb,5.1210e-03_rb,4.6077e-03_rb,4.0275e-03_rb,3.4179e-03_rb,2.7812e-03_rb, &\n     &2.0863e-03_rb,1.2862e-03_rb,7.8383e-05_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &7.4791e-03_rb,6.7335e-03_rb,6.0729e-03_rb,5.3256e-03_rb,4.5457e-03_rb,3.7228e-03_rb, &\n     &2.8115e-03_rb,1.7506e-03_rb,1.3561e-04_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &9.5940e-03_rb,8.6573e-03_rb,7.8294e-03_rb,6.8962e-03_rb,5.9152e-03_rb,4.8604e-03_rb, &\n     &3.6801e-03_rb,2.2991e-03_rb,2.0565e-04_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &1.2079e-02_rb,1.0922e-02_rb,9.8984e-03_rb,8.7543e-03_rb,7.5389e-03_rb,6.1967e-03_rb, &\n     &4.6995e-03_rb,2.9469e-03_rb,2.9267e-04_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &1.4994e-02_rb,1.3590e-02_rb,1.2330e-02_rb,1.0933e-02_rb,9.4206e-03_rb,7.7402e-03_rb, &\n     &5.8678e-03_rb,3.6936e-03_rb,3.9433e-04_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &7.5110e-03_rb,6.6602e-03_rb,5.8889e-03_rb,5.0761e-03_rb,4.2229e-03_rb,3.3438e-03_rb, &\n     &2.4265e-03_rb,1.4290e-03_rb,6.0800e-05_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &1.0081e-02_rb,8.9573e-03_rb,7.9340e-03_rb,6.8466e-03_rb,5.7108e-03_rb,4.5453e-03_rb, &\n     &3.3197e-03_rb,1.9723e-03_rb,8.3721e-05_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &1.3198e-02_rb,1.1747e-02_rb,1.0417e-02_rb,9.0067e-03_rb,7.5375e-03_rb,6.0255e-03_rb, &\n     &4.4194e-03_rb,2.6335e-03_rb,1.2422e-04_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &1.6984e-02_rb,1.5135e-02_rb,1.3426e-02_rb,1.1628e-02_rb,9.7560e-03_rb,7.8119e-03_rb, &\n     &5.7333e-03_rb,3.4188e-03_rb,1.8443e-04_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &2.1488e-02_rb,1.9171e-02_rb,1.7013e-02_rb,1.4755e-02_rb,1.2406e-02_rb,9.9290e-03_rb, &\n     &7.2811e-03_rb,4.3367e-03_rb,2.5906e-04_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &1.0317e-02_rb,9.0822e-03_rb,7.9160e-03_rb,6.7515e-03_rb,5.5440e-03_rb,4.3074e-03_rb, &\n     &3.0340e-03_rb,1.7035e-03_rb,6.0426e-05_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &1.4191e-02_rb,1.2505e-02_rb,1.0919e-02_rb,9.3201e-03_rb,7.6597e-03_rb,5.9649e-03_rb, &\n     &4.2263e-03_rb,2.3919e-03_rb,8.0608e-05_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &1.9028e-02_rb,1.6789e-02_rb,1.4664e-02_rb,1.2525e-02_rb,1.0306e-02_rb,8.0458e-03_rb, &\n     &5.7261e-03_rb,3.2535e-03_rb,1.0671e-04_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &2.5018e-02_rb,2.2107e-02_rb,1.9309e-02_rb,1.6498e-02_rb,1.3592e-02_rb,1.0633e-02_rb, &\n     &7.5736e-03_rb,4.3041e-03_rb,1.3667e-04_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &3.2278e-02_rb,2.8550e-02_rb,2.4932e-02_rb,2.1309e-02_rb,1.7576e-02_rb,1.3764e-02_rb, &\n     &9.7979e-03_rb,5.5674e-03_rb,1.7569e-04_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &1.6908e-02_rb,1.4827e-02_rb,1.2781e-02_rb,1.0775e-02_rb,8.7653e-03_rb,6.7156e-03_rb, &\n     &4.6263e-03_rb,2.4796e-03_rb,7.2095e-05_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &2.3895e-02_rb,2.0964e-02_rb,1.8085e-02_rb,1.5267e-02_rb,1.2424e-02_rb,9.5170e-03_rb, &\n     &6.5710e-03_rb,3.5441e-03_rb,9.6806e-05_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &3.2855e-02_rb,2.8841e-02_rb,2.4900e-02_rb,2.1032e-02_rb,1.7114e-02_rb,1.3120e-02_rb, &\n     &9.0780e-03_rb,4.9231e-03_rb,1.2768e-04_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &4.4127e-02_rb,3.8763e-02_rb,3.3492e-02_rb,2.8282e-02_rb,2.3023e-02_rb,1.7668e-02_rb, &\n     &1.2245e-02_rb,6.6502e-03_rb,1.6091e-04_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &5.7992e-02_rb,5.0977e-02_rb,4.4047e-02_rb,3.7189e-02_rb,3.0275e-02_rb,2.3248e-02_rb, &\n     &1.6136e-02_rb,8.7683e-03_rb,1.9428e-04_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &5.1709e-02_rb,4.5263e-02_rb,3.8825e-02_rb,3.2404e-02_rb,2.6001e-02_rb,1.9630e-02_rb, &\n     &1.3270e-02_rb,6.8433e-03_rb,1.6819e-04_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &7.5377e-02_rb,6.5994e-02_rb,5.6614e-02_rb,4.7250e-02_rb,3.7927e-02_rb,2.8667e-02_rb, &\n     &1.9405e-02_rb,1.0007e-02_rb,2.0150e-04_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &1.0637e-01_rb,9.3142e-02_rb,7.9913e-02_rb,6.6713e-02_rb,5.3579e-02_rb,4.0525e-02_rb, &\n     &2.7438e-02_rb,1.4159e-02_rb,2.5395e-04_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &1.4601e-01_rb,1.2787e-01_rb,1.0973e-01_rb,9.1640e-02_rb,7.3643e-02_rb,5.5707e-02_rb, &\n     &3.7721e-02_rb,1.9493e-02_rb,2.9114e-04_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &1.9540e-01_rb,1.7114e-01_rb,1.4689e-01_rb,1.2270e-01_rb,9.8611e-02_rb,7.4576e-02_rb, &\n     &5.0506e-02_rb,2.6131e-02_rb,3.2502e-04_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &1.7908e-01_rb,1.5672e-01_rb,1.3434e-01_rb,1.1197e-01_rb,8.9592e-02_rb,6.7243e-02_rb, &\n     &4.4903e-02_rb,2.2650e-02_rb,3.5407e-04_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &2.6809e-01_rb,2.3461e-01_rb,2.0111e-01_rb,1.6763e-01_rb,1.3416e-01_rb,1.0070e-01_rb, &\n     &6.7289e-02_rb,3.4001e-02_rb,4.2267e-04_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &3.8962e-01_rb,3.4094e-01_rb,2.9228e-01_rb,2.4365e-01_rb,1.9501e-01_rb,1.4639e-01_rb, &\n     &9.7852e-02_rb,4.9496e-02_rb,5.5217e-04_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &5.4709e-01_rb,4.7880e-01_rb,4.1047e-01_rb,3.4221e-01_rb,2.7390e-01_rb,2.0562e-01_rb, &\n     &1.3748e-01_rb,6.9566e-02_rb,6.7800e-04_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &7.4383e-01_rb,6.5097e-01_rb,5.5813e-01_rb,4.6528e-01_rb,3.7246e-01_rb,2.7966e-01_rb, &\n     &1.8702e-01_rb,9.4633e-02_rb,7.9930e-04_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &2.6405e-01_rb,2.3107e-01_rb,1.9807e-01_rb,1.6508e-01_rb,1.3209e-01_rb,9.9087e-02_rb, &\n     &6.6140e-02_rb,3.3239e-02_rb,4.6661e-04_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &3.9885e-01_rb,3.4898e-01_rb,2.9917e-01_rb,2.4935e-01_rb,1.9952e-01_rb,1.4970e-01_rb, &\n     &9.9938e-02_rb,5.0287e-02_rb,6.6831e-04_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &5.8178e-01_rb,5.0910e-01_rb,4.3644e-01_rb,3.6379e-01_rb,2.9110e-01_rb,2.1843e-01_rb, &\n     &1.4582e-01_rb,7.3440e-02_rb,7.3058e-04_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &8.2081e-01_rb,7.1832e-01_rb,6.1577e-01_rb,5.1330e-01_rb,4.1077e-01_rb,3.0826e-01_rb, &\n     &2.0583e-01_rb,1.0374e-01_rb,9.0801e-04_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &1.1196e+00_rb,9.7976e-01_rb,8.3991e-01_rb,7.0013e-01_rb,5.6034e-01_rb,4.2058e-01_rb, &\n     &2.8087e-01_rb,1.4156e-01_rb,1.1083e-03_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &2.9667e-01_rb,2.5960e-01_rb,2.2251e-01_rb,1.8545e-01_rb,1.4837e-01_rb,1.1135e-01_rb, &\n     &7.4300e-02_rb,3.7344e-02_rb,4.3166e-04_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &4.4544e-01_rb,3.8980e-01_rb,3.3414e-01_rb,2.7849e-01_rb,2.2283e-01_rb,1.6719e-01_rb, &\n     &1.1158e-01_rb,5.6122e-02_rb,7.5682e-04_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &6.4877e-01_rb,5.6770e-01_rb,4.8669e-01_rb,4.0564e-01_rb,3.2461e-01_rb,2.4355e-01_rb, &\n     &1.6257e-01_rb,8.1850e-02_rb,7.9167e-04_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &9.1198e-01_rb,7.9809e-01_rb,6.8416e-01_rb,5.7025e-01_rb,4.5635e-01_rb,3.4245e-01_rb, &\n     &2.2863e-01_rb,1.1515e-01_rb,9.9906e-04_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &1.2467e+00_rb,1.0910e+00_rb,9.3529e-01_rb,7.7959e-01_rb,6.2391e-01_rb,4.6827e-01_rb, &\n     &3.1271e-01_rb,1.5753e-01_rb,1.2003e-03_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &2.7690e-01_rb,2.4228e-01_rb,2.0769e-01_rb,1.7308e-01_rb,1.3848e-01_rb,1.0389e-01_rb, &\n     &6.9340e-02_rb,3.4888e-02_rb,4.3050e-04_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &4.0226e-01_rb,3.5198e-01_rb,3.0172e-01_rb,2.5145e-01_rb,2.0123e-01_rb,1.5101e-01_rb, &\n     &1.0081e-01_rb,5.0783e-02_rb,7.1649e-04_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &5.7863e-01_rb,5.0634e-01_rb,4.3410e-01_rb,3.6182e-01_rb,2.8956e-01_rb,2.1728e-01_rb, &\n     &1.4512e-01_rb,7.3148e-02_rb,7.7482e-04_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &8.1324e-01_rb,7.1165e-01_rb,6.1013e-01_rb,5.0851e-01_rb,4.0696e-01_rb,3.0541e-01_rb, &\n     &2.0404e-01_rb,1.0287e-01_rb,9.9392e-04_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &1.1104e+00_rb,9.7179e-01_rb,8.3315e-01_rb,6.9450e-01_rb,5.5586e-01_rb,4.1728e-01_rb, &\n     &2.7889e-01_rb,1.4068e-01_rb,1.1816e-03_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &3.5054e-03_rb,3.5055e-03_rb,3.5120e-03_rb,3.3810e-03_rb,3.1730e-03_rb,2.8811e-03_rb, &\n     &2.4850e-03_rb,1.7479e-03_rb,1.1652e-03_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &4.3050e-03_rb,4.3583e-03_rb,4.3910e-03_rb,4.2644e-03_rb,4.0306e-03_rb,3.6880e-03_rb, &\n     &3.2528e-03_rb,2.5892e-03_rb,1.6752e-03_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &5.1735e-03_rb,5.2976e-03_rb,5.3803e-03_rb,5.2761e-03_rb,5.0137e-03_rb,4.6183e-03_rb, &\n     &4.1353e-03_rb,3.5068e-03_rb,2.2495e-03_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &6.1057e-03_rb,6.3115e-03_rb,6.4786e-03_rb,6.4038e-03_rb,6.1210e-03_rb,5.6909e-03_rb, &\n     &5.1278e-03_rb,4.5615e-03_rb,2.9063e-03_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &7.0959e-03_rb,7.4049e-03_rb,7.6778e-03_rb,7.6470e-03_rb,7.3706e-03_rb,6.8965e-03_rb, &\n     &6.2418e-03_rb,5.7511e-03_rb,3.6720e-03_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &4.4522e-03_rb,4.2827e-03_rb,4.1712e-03_rb,3.9058e-03_rb,3.5730e-03_rb,3.1581e-03_rb, &\n     &2.6434e-03_rb,1.9182e-03_rb,8.6485e-04_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &5.5183e-03_rb,5.3551e-03_rb,5.2393e-03_rb,4.9436e-03_rb,4.5529e-03_rb,4.0469e-03_rb, &\n     &3.4309e-03_rb,2.6479e-03_rb,1.2370e-03_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &6.6858e-03_rb,6.5555e-03_rb,6.4351e-03_rb,6.1353e-03_rb,5.6849e-03_rb,5.0737e-03_rb, &\n     &4.3365e-03_rb,3.4457e-03_rb,1.6663e-03_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &7.9566e-03_rb,7.8606e-03_rb,7.7697e-03_rb,7.4702e-03_rb,6.9634e-03_rb,6.2571e-03_rb, &\n     &5.3849e-03_rb,4.3375e-03_rb,2.1739e-03_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &9.3107e-03_rb,9.2749e-03_rb,9.2506e-03_rb,8.9459e-03_rb,8.3896e-03_rb,7.5840e-03_rb, &\n     &6.5605e-03_rb,5.3408e-03_rb,2.7747e-03_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &7.1663e-03_rb,6.5385e-03_rb,6.0832e-03_rb,5.5176e-03_rb,4.8422e-03_rb,4.1012e-03_rb, &\n     &3.2557e-03_rb,2.2244e-03_rb,5.9815e-04_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &9.0118e-03_rb,8.2694e-03_rb,7.7301e-03_rb,7.0328e-03_rb,6.2053e-03_rb,5.2869e-03_rb, &\n     &4.2235e-03_rb,2.9652e-03_rb,8.5322e-04_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &1.1073e-02_rb,1.0215e-02_rb,9.5832e-03_rb,8.7498e-03_rb,7.7844e-03_rb,6.6733e-03_rb, &\n     &5.3588e-03_rb,3.8104e-03_rb,1.1597e-03_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &1.3336e-02_rb,1.2373e-02_rb,1.1642e-02_rb,1.0696e-02_rb,9.5807e-03_rb,8.2482e-03_rb, &\n     &6.6726e-03_rb,4.7891e-03_rb,1.5317e-03_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &1.5766e-02_rb,1.4727e-02_rb,1.3917e-02_rb,1.2876e-02_rb,1.1585e-02_rb,1.0016e-02_rb, &\n     &8.1535e-03_rb,5.8982e-03_rb,1.9785e-03_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &1.1443e-02_rb,1.0194e-02_rb,9.0847e-03_rb,8.0229e-03_rb,6.8443e-03_rb,5.5702e-03_rb, &\n     &4.2183e-03_rb,2.6813e-03_rb,4.0030e-04_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &1.4659e-02_rb,1.3095e-02_rb,1.1714e-02_rb,1.0375e-02_rb,8.8664e-03_rb,7.2483e-03_rb, &\n     &5.5253e-03_rb,3.5568e-03_rb,5.7754e-04_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &1.8306e-02_rb,1.6401e-02_rb,1.4719e-02_rb,1.3058e-02_rb,1.1190e-02_rb,9.2063e-03_rb, &\n     &7.0626e-03_rb,4.5942e-03_rb,7.9824e-04_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &2.2363e-02_rb,2.0101e-02_rb,1.8107e-02_rb,1.6087e-02_rb,1.3850e-02_rb,1.1470e-02_rb, &\n     &8.8334e-03_rb,5.7997e-03_rb,1.0688e-03_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &2.6741e-02_rb,2.4136e-02_rb,2.1831e-02_rb,1.9473e-02_rb,1.6867e-02_rb,1.4029e-02_rb, &\n     &1.0846e-02_rb,7.1614e-03_rb,1.3988e-03_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &1.6600e-02_rb,1.4668e-02_rb,1.2778e-02_rb,1.1029e-02_rb,9.2361e-03_rb,7.3333e-03_rb, &\n     &5.3444e-03_rb,3.2124e-03_rb,2.6040e-04_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &2.1709e-02_rb,1.9200e-02_rb,1.6777e-02_rb,1.4511e-02_rb,1.2172e-02_rb,9.6744e-03_rb, &\n     &7.0766e-03_rb,4.2987e-03_rb,3.8620e-04_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &2.7589e-02_rb,2.4430e-02_rb,2.1405e-02_rb,1.8550e-02_rb,1.5579e-02_rb,1.2414e-02_rb, &\n     &9.1361e-03_rb,5.5941e-03_rb,5.4726e-04_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &3.4183e-02_rb,3.0324e-02_rb,2.6641e-02_rb,2.3153e-02_rb,1.9480e-02_rb,1.5601e-02_rb, &\n     &1.1542e-02_rb,7.1098e-03_rb,7.4652e-04_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &4.1421e-02_rb,3.6823e-02_rb,3.2447e-02_rb,2.8275e-02_rb,2.3873e-02_rb,1.9232e-02_rb, &\n     &1.4297e-02_rb,8.8472e-03_rb,9.9177e-04_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &2.2041e-02_rb,1.9394e-02_rb,1.6757e-02_rb,1.4215e-02_rb,1.1736e-02_rb,9.1749e-03_rb, &\n     &6.5141e-03_rb,3.7310e-03_rb,1.4404e-04_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &2.9498e-02_rb,2.5961e-02_rb,2.2459e-02_rb,1.9104e-02_rb,1.5796e-02_rb,1.2359e-02_rb, &\n     &8.7857e-03_rb,5.0673e-03_rb,2.3466e-04_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &3.8260e-02_rb,3.3683e-02_rb,2.9196e-02_rb,2.4887e-02_rb,2.0608e-02_rb,1.6142e-02_rb, &\n     &1.1503e-02_rb,6.6775e-03_rb,3.4879e-04_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &4.8196e-02_rb,4.2468e-02_rb,3.6884e-02_rb,3.1502e-02_rb,2.6137e-02_rb,2.0520e-02_rb, &\n     &1.4704e-02_rb,8.5847e-03_rb,4.9990e-04_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &5.9282e-02_rb,5.2285e-02_rb,4.5513e-02_rb,3.8965e-02_rb,3.2393e-02_rb,2.5526e-02_rb, &\n     &1.8401e-02_rb,1.0794e-02_rb,6.8674e-04_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &3.0340e-02_rb,2.6632e-02_rb,2.2911e-02_rb,1.9238e-02_rb,1.5651e-02_rb,1.2078e-02_rb, &\n     &8.4116e-03_rb,4.6225e-03_rb,1.1044e-04_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &4.1630e-02_rb,3.6541e-02_rb,3.1448e-02_rb,2.6441e-02_rb,2.1565e-02_rb,1.6662e-02_rb, &\n     &1.1608e-02_rb,6.3979e-03_rb,1.5103e-04_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &5.5141e-02_rb,4.8404e-02_rb,4.1697e-02_rb,3.5120e-02_rb,2.8696e-02_rb,2.2204e-02_rb, &\n     &1.5482e-02_rb,8.5690e-03_rb,2.0480e-04_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &7.0797e-02_rb,6.2144e-02_rb,5.3596e-02_rb,4.5212e-02_rb,3.6995e-02_rb,2.8664e-02_rb, &\n     &2.0039e-02_rb,1.1163e-02_rb,2.9866e-04_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &8.8459e-02_rb,7.7674e-02_rb,6.7088e-02_rb,5.6677e-02_rb,4.6470e-02_rb,3.6087e-02_rb, &\n     &2.5332e-02_rb,1.4195e-02_rb,4.2372e-04_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &4.9601e-02_rb,4.3472e-02_rb,3.7321e-02_rb,3.1177e-02_rb,2.5072e-02_rb,1.9045e-02_rb, &\n     &1.3035e-02_rb,6.9120e-03_rb,1.2554e-04_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &6.9873e-02_rb,6.1229e-02_rb,5.2577e-02_rb,4.3926e-02_rb,3.5352e-02_rb,2.6911e-02_rb, &\n     &1.8460e-02_rb,9.7927e-03_rb,1.5143e-04_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &9.4645e-02_rb,8.2931e-02_rb,7.1217e-02_rb,5.9530e-02_rb,4.7979e-02_rb,3.6597e-02_rb, &\n     &2.5135e-02_rb,1.3350e-02_rb,1.8982e-04_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &1.2398e-01_rb,1.0863e-01_rb,9.3295e-02_rb,7.8049e-02_rb,6.2983e-02_rb,4.8099e-02_rb, &\n     &3.3072e-02_rb,1.7624e-02_rb,2.4338e-04_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &1.5756e-01_rb,1.3808e-01_rb,1.1863e-01_rb,9.9354e-02_rb,8.0265e-02_rb,6.1390e-02_rb, &\n     &4.2297e-02_rb,2.2655e-02_rb,3.0934e-04_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &1.5112e-01_rb,1.3227e-01_rb,1.1344e-01_rb,9.4596e-02_rb,7.5748e-02_rb,5.6892e-02_rb, &\n     &3.8080e-02_rb,1.9401e-02_rb,2.5169e-04_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &2.1904e-01_rb,1.9173e-01_rb,1.6442e-01_rb,1.3710e-01_rb,1.0978e-01_rb,8.2457e-02_rb, &\n     &5.5213e-02_rb,2.8220e-02_rb,3.2207e-04_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &3.0409e-01_rb,2.6618e-01_rb,2.2825e-01_rb,1.9033e-01_rb,1.5240e-01_rb,1.1448e-01_rb, &\n     &7.6724e-02_rb,3.9326e-02_rb,3.9043e-04_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &4.0691e-01_rb,3.5618e-01_rb,3.0544e-01_rb,2.5467e-01_rb,2.0393e-01_rb,1.5326e-01_rb, &\n     &1.0281e-01_rb,5.2796e-02_rb,4.7191e-04_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &5.2694e-01_rb,4.6123e-01_rb,3.9556e-01_rb,3.2985e-01_rb,2.6417e-01_rb,1.9865e-01_rb, &\n     &1.3342e-01_rb,6.8629e-02_rb,5.3966e-04_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &5.2400e-01_rb,4.5853e-01_rb,3.9306e-01_rb,3.2760e-01_rb,2.6216e-01_rb,1.9669e-01_rb, &\n     &1.3123e-01_rb,6.5752e-02_rb,5.0343e-04_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &7.8161e-01_rb,6.8400e-01_rb,5.8634e-01_rb,4.8867e-01_rb,3.9103e-01_rb,2.9337e-01_rb, &\n     &1.9570e-01_rb,9.8059e-02_rb,7.7212e-04_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &1.1108e+00_rb,9.7208e-01_rb,8.3335e-01_rb,6.9453e-01_rb,5.5575e-01_rb,4.1693e-01_rb, &\n     &2.7814e-01_rb,1.3935e-01_rb,8.3303e-04_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &1.5159e+00_rb,1.3265e+00_rb,1.1372e+00_rb,9.4781e-01_rb,7.5840e-01_rb,5.6900e-01_rb, &\n     &3.7960e-01_rb,1.9025e-01_rb,1.0516e-03_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &2.0008e+00_rb,1.7509e+00_rb,1.5009e+00_rb,1.2510e+00_rb,1.0010e+00_rb,7.5106e-01_rb, &\n     &5.0105e-01_rb,2.5132e-01_rb,1.2795e-03_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &7.6934e-01_rb,6.7322e-01_rb,5.7711e-01_rb,4.8095e-01_rb,3.8483e-01_rb,2.8868e-01_rb, &\n     &1.9254e-01_rb,9.6383e-02_rb,4.1213e-04_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &1.1531e+00_rb,1.0090e+00_rb,8.6492e-01_rb,7.2086e-01_rb,5.7680e-01_rb,4.3268e-01_rb, &\n     &2.8857e-01_rb,1.4445e-01_rb,7.8643e-04_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &1.6479e+00_rb,1.4420e+00_rb,1.2361e+00_rb,1.0302e+00_rb,8.2427e-01_rb,6.1836e-01_rb, &\n     &4.1243e-01_rb,2.0646e-01_rb,1.3424e-03_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &2.2624e+00_rb,1.9796e+00_rb,1.6970e+00_rb,1.4143e+00_rb,1.1316e+00_rb,8.4892e-01_rb, &\n     &5.6619e-01_rb,2.8348e-01_rb,1.4044e-03_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &3.0074e+00_rb,2.6315e+00_rb,2.2558e+00_rb,1.8800e+00_rb,1.5042e+00_rb,1.1285e+00_rb, &\n     &7.5266e-01_rb,3.7695e-01_rb,1.6947e-03_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &8.4478e-01_rb,7.3926e-01_rb,6.3371e-01_rb,5.2813e-01_rb,4.2255e-01_rb,3.1696e-01_rb, &\n     &2.1141e-01_rb,1.0578e-01_rb,4.0897e-04_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &1.2687e+00_rb,1.1101e+00_rb,9.5161e-01_rb,7.9307e-01_rb,6.3449e-01_rb,4.7596e-01_rb, &\n     &3.1742e-01_rb,1.5884e-01_rb,7.3572e-04_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &1.8247e+00_rb,1.5966e+00_rb,1.3686e+00_rb,1.1406e+00_rb,9.1261e-01_rb,6.8459e-01_rb, &\n     &4.5656e-01_rb,2.2852e-01_rb,1.3876e-03_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &2.5294e+00_rb,2.2134e+00_rb,1.8973e+00_rb,1.5812e+00_rb,1.2652e+00_rb,9.4906e-01_rb, &\n     &6.3294e-01_rb,3.1685e-01_rb,1.6774e-03_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &3.3840e+00_rb,2.9611e+00_rb,2.5383e+00_rb,2.1154e+00_rb,1.6926e+00_rb,1.2697e+00_rb, &\n     &8.4679e-01_rb,4.2403e-01_rb,1.9227e-03_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &7.4992e-01_rb,6.5626e-01_rb,5.6252e-01_rb,4.6882e-01_rb,3.7512e-01_rb,2.8140e-01_rb, &\n     &1.8768e-01_rb,9.3938e-02_rb,4.2556e-04_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &1.1304e+00_rb,9.8913e-01_rb,8.4793e-01_rb,7.0671e-01_rb,5.6541e-01_rb,4.2417e-01_rb, &\n     &2.8288e-01_rb,1.4159e-01_rb,7.8986e-04_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &1.6343e+00_rb,1.4300e+00_rb,1.2259e+00_rb,1.0217e+00_rb,8.1745e-01_rb,6.1321e-01_rb, &\n     &4.0897e-01_rb,2.0475e-01_rb,1.4019e-03_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &2.2667e+00_rb,1.9834e+00_rb,1.7002e+00_rb,1.4170e+00_rb,1.1337e+00_rb,8.5047e-01_rb, &\n     &5.6722e-01_rb,2.8408e-01_rb,1.6857e-03_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &3.0450e+00_rb,2.6646e+00_rb,2.2841e+00_rb,1.9036e+00_rb,1.5231e+00_rb,1.1426e+00_rb, &\n     &7.6204e-01_rb,3.8179e-01_rb,1.9578e-03_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &7.5530e-03_rb,7.1946e-03_rb,6.9309e-03_rb,6.6476e-03_rb,6.1286e-03_rb,5.5188e-03_rb, &\n     &4.8784e-03_rb,4.0369e-03_rb,3.2329e-03_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &9.1868e-03_rb,8.8285e-03_rb,8.6011e-03_rb,8.3060e-03_rb,7.7227e-03_rb,7.0815e-03_rb, &\n     &6.4738e-03_rb,5.8694e-03_rb,4.4599e-03_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &1.0993e-02_rb,1.0661e-02_rb,1.0487e-02_rb,1.0178e-02_rb,9.5750e-03_rb,8.9143e-03_rb, &\n     &8.3359e-03_rb,7.9019e-03_rb,5.9682e-03_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &1.2929e-02_rb,1.2692e-02_rb,1.2580e-02_rb,1.2285e-02_rb,1.1693e-02_rb,1.1035e-02_rb, &\n     &1.0548e-02_rb,1.0225e-02_rb,7.8210e-03_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &1.4992e-02_rb,1.4924e-02_rb,1.4888e-02_rb,1.4659e-02_rb,1.4068e-02_rb,1.3474e-02_rb, &\n     &1.3107e-02_rb,1.2867e-02_rb,1.0020e-02_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &1.0207e-02_rb,9.4797e-03_rb,8.8085e-03_rb,8.2309e-03_rb,7.4348e-03_rb,6.4679e-03_rb, &\n     &5.3282e-03_rb,4.0056e-03_rb,2.5229e-03_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &1.2558e-02_rb,1.1748e-02_rb,1.1002e-02_rb,1.0338e-02_rb,9.3997e-03_rb,8.2648e-03_rb, &\n     &6.9317e-03_rb,5.5570e-03_rb,3.5029e-03_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &1.5167e-02_rb,1.4277e-02_rb,1.3509e-02_rb,1.2727e-02_rb,1.1653e-02_rb,1.0352e-02_rb, &\n     &8.8205e-03_rb,7.4037e-03_rb,4.7140e-03_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &1.7986e-02_rb,1.7073e-02_rb,1.6287e-02_rb,1.5417e-02_rb,1.4234e-02_rb,1.2722e-02_rb, &\n     &1.1029e-02_rb,9.5450e-03_rb,6.1941e-03_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &2.1016e-02_rb,2.0104e-02_rb,1.9317e-02_rb,1.8415e-02_rb,1.7125e-02_rb,1.5397e-02_rb, &\n     &1.3573e-02_rb,1.2029e-02_rb,7.9674e-03_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &1.7495e-02_rb,1.5793e-02_rb,1.4039e-02_rb,1.2465e-02_rb,1.0907e-02_rb,9.1072e-03_rb, &\n     &7.1058e-03_rb,4.8343e-03_rb,1.7832e-03_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &2.1893e-02_rb,1.9841e-02_rb,1.7709e-02_rb,1.5801e-02_rb,1.3894e-02_rb,1.1662e-02_rb, &\n     &9.2038e-03_rb,6.3817e-03_rb,2.5128e-03_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &2.6790e-02_rb,2.4372e-02_rb,2.1871e-02_rb,1.9635e-02_rb,1.7311e-02_rb,1.4624e-02_rb, &\n     &1.1658e-02_rb,8.2109e-03_rb,3.4348e-03_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &3.2142e-02_rb,2.9358e-02_rb,2.6490e-02_rb,2.3921e-02_rb,2.1182e-02_rb,1.8026e-02_rb, &\n     &1.4487e-02_rb,1.0373e-02_rb,4.5646e-03_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &3.7933e-02_rb,3.4749e-02_rb,3.1541e-02_rb,2.8628e-02_rb,2.5501e-02_rb,2.1864e-02_rb, &\n     &1.7709e-02_rb,1.2883e-02_rb,5.9131e-03_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &2.9550e-02_rb,2.6227e-02_rb,2.2910e-02_rb,1.9604e-02_rb,1.6469e-02_rb,1.3339e-02_rb, &\n     &9.9415e-03_rb,6.2262e-03_rb,1.2135e-03_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &3.7687e-02_rb,3.3528e-02_rb,2.9343e-02_rb,2.5186e-02_rb,2.1249e-02_rb,1.7292e-02_rb, &\n     &1.2959e-02_rb,8.2307e-03_rb,1.7374e-03_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &4.6817e-02_rb,4.1770e-02_rb,3.6634e-02_rb,3.1558e-02_rb,2.6759e-02_rb,2.1861e-02_rb, &\n     &1.6492e-02_rb,1.0607e-02_rb,2.4118e-03_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &5.6963e-02_rb,5.0934e-02_rb,4.4739e-02_rb,3.8692e-02_rb,3.2979e-02_rb,2.7058e-02_rb, &\n     &2.0566e-02_rb,1.3387e-02_rb,3.2525e-03_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &6.8137e-02_rb,6.0987e-02_rb,5.3660e-02_rb,4.6589e-02_rb,3.9864e-02_rb,3.2872e-02_rb, &\n     &2.5218e-02_rb,1.6596e-02_rb,4.2777e-03_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &4.4958e-02_rb,3.9602e-02_rb,3.4298e-02_rb,2.8957e-02_rb,2.3691e-02_rb,1.8601e-02_rb, &\n     &1.3441e-02_rb,7.9068e-03_rb,8.1517e-04_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &5.8476e-02_rb,5.1578e-02_rb,4.4743e-02_rb,3.7815e-02_rb,3.1045e-02_rb,2.4482e-02_rb, &\n     &1.7770e-02_rb,1.0541e-02_rb,1.1885e-03_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &7.3906e-02_rb,6.5268e-02_rb,5.6679e-02_rb,4.8013e-02_rb,3.9537e-02_rb,3.1318e-02_rb, &\n     &2.2852e-02_rb,1.3697e-02_rb,1.6746e-03_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &9.1296e-02_rb,8.0739e-02_rb,7.0175e-02_rb,5.9533e-02_rb,4.9168e-02_rb,3.9100e-02_rb, &\n     &2.8676e-02_rb,1.7397e-02_rb,2.2909e-03_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &1.1069e-01_rb,9.7986e-02_rb,8.5202e-02_rb,7.2388e-02_rb,5.9975e-02_rb,4.7864e-02_rb, &\n     &3.5291e-02_rb,2.1668e-02_rb,3.0530e-03_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &6.2124e-02_rb,5.4544e-02_rb,4.6999e-02_rb,3.9470e-02_rb,3.1923e-02_rb,2.4497e-02_rb, &\n     &1.7234e-02_rb,9.7062e-03_rb,5.1266e-04_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &8.2639e-02_rb,7.2604e-02_rb,6.2611e-02_rb,5.2626e-02_rb,4.2613e-02_rb,3.2833e-02_rb, &\n     &2.3213e-02_rb,1.3144e-02_rb,7.8429e-04_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &1.0657e-01_rb,9.3700e-02_rb,8.0879e-02_rb,6.8013e-02_rb,5.5195e-02_rb,4.2665e-02_rb, &\n     &3.0306e-02_rb,1.7290e-02_rb,1.1388e-03_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &1.3398e-01_rb,1.1789e-01_rb,1.0183e-01_rb,8.5694e-02_rb,6.9665e-02_rb,5.3995e-02_rb, &\n     &3.8486e-02_rb,2.2145e-02_rb,1.5829e-03_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &1.6490e-01_rb,1.4520e-01_rb,1.2544e-01_rb,1.0568e-01_rb,8.6025e-02_rb,6.6861e-02_rb, &\n     &4.7818e-02_rb,2.7758e-02_rb,2.1408e-03_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &8.8474e-02_rb,7.7539e-02_rb,6.6627e-02_rb,5.5731e-02_rb,4.4842e-02_rb,3.3990e-02_rb, &\n     &2.3276e-02_rb,1.2620e-02_rb,2.5937e-04_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &1.2057e-01_rb,1.0571e-01_rb,9.0876e-02_rb,7.6061e-02_rb,6.1253e-02_rb,4.6466e-02_rb, &\n     &3.1963e-02_rb,1.7441e-02_rb,4.2731e-04_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &1.5880e-01_rb,1.3927e-01_rb,1.1980e-01_rb,1.0034e-01_rb,8.0808e-02_rb,6.1423e-02_rb, &\n     &4.2427e-02_rb,2.3279e-02_rb,6.8413e-04_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &2.0345e-01_rb,1.7853e-01_rb,1.5363e-01_rb,1.2871e-01_rb,1.0372e-01_rb,7.9011e-02_rb, &\n     &5.4743e-02_rb,3.0170e-02_rb,1.0214e-03_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &2.5461e-01_rb,2.2346e-01_rb,1.9234e-01_rb,1.6117e-01_rb,1.3002e-01_rb,9.9184e-02_rb, &\n     &6.8901e-02_rb,3.8181e-02_rb,1.4552e-03_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &1.4868e-01_rb,1.3017e-01_rb,1.1167e-01_rb,9.3201e-02_rb,7.4739e-02_rb,5.6278e-02_rb, &\n     &3.7905e-02_rb,1.9693e-02_rb,2.2804e-04_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &2.0798e-01_rb,1.8213e-01_rb,1.5630e-01_rb,1.3048e-01_rb,1.0468e-01_rb,7.8891e-02_rb, &\n     &5.3152e-02_rb,2.7778e-02_rb,2.9739e-04_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &2.8017e-01_rb,2.4539e-01_rb,2.1065e-01_rb,1.7590e-01_rb,1.4119e-01_rb,1.0644e-01_rb, &\n     &7.1779e-02_rb,3.7725e-02_rb,3.8946e-04_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &3.6604e-01_rb,3.2068e-01_rb,2.7532e-01_rb,2.2999e-01_rb,1.8464e-01_rb,1.3919e-01_rb, &\n     &9.4095e-02_rb,4.9659e-02_rb,5.6194e-04_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &4.6634e-01_rb,4.0858e-01_rb,3.5083e-01_rb,2.9310e-01_rb,2.3536e-01_rb,1.7756e-01_rb, &\n     &1.2024e-01_rb,6.3667e-02_rb,8.0698e-04_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &4.6269e-01_rb,4.0493e-01_rb,3.4715e-01_rb,2.8935e-01_rb,2.3157e-01_rb,1.7382e-01_rb, &\n     &1.1609e-01_rb,5.8382e-02_rb,3.9623e-04_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &6.6628e-01_rb,5.8309e-01_rb,4.9991e-01_rb,4.1673e-01_rb,3.3358e-01_rb,2.5043e-01_rb, &\n     &1.6730e-01_rb,8.4243e-02_rb,5.2033e-04_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &9.1981e-01_rb,8.0501e-01_rb,6.9024e-01_rb,5.7543e-01_rb,4.6067e-01_rb,3.4594e-01_rb, &\n     &2.3120e-01_rb,1.1646e-01_rb,6.1848e-04_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &1.2275e+00_rb,1.0743e+00_rb,9.2117e-01_rb,7.6798e-01_rb,6.1489e-01_rb,4.6180e-01_rb, &\n     &3.0869e-01_rb,1.5554e-01_rb,7.6432e-04_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &1.5931e+00_rb,1.3944e+00_rb,1.1956e+00_rb,9.9699e-01_rb,7.9825e-01_rb,5.9958e-01_rb, &\n     &4.0095e-01_rb,2.0227e-01_rb,9.3678e-04_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &1.6306e+00_rb,1.4267e+00_rb,1.2230e+00_rb,1.0192e+00_rb,8.1547e-01_rb,6.1164e-01_rb, &\n     &4.0787e-01_rb,2.0413e-01_rb,4.5853e-04_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &2.4126e+00_rb,2.1111e+00_rb,1.8096e+00_rb,1.5081e+00_rb,1.2066e+00_rb,9.0513e-01_rb, &\n     &6.0364e-01_rb,3.0217e-01_rb,8.3201e-04_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &3.4093e+00_rb,2.9833e+00_rb,2.5573e+00_rb,2.1313e+00_rb,1.7053e+00_rb,1.2792e+00_rb, &\n     &8.5320e-01_rb,4.2724e-01_rb,1.5974e-03_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &4.6433e+00_rb,4.0630e+00_rb,3.4826e+00_rb,2.9025e+00_rb,2.3226e+00_rb,1.7423e+00_rb, &\n     &1.1621e+00_rb,5.8201e-01_rb,1.5962e-03_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &6.1277e+00_rb,5.3619e+00_rb,4.5964e+00_rb,3.8308e+00_rb,3.0651e+00_rb,2.2994e+00_rb, &\n     &1.5338e+00_rb,7.6843e-01_rb,2.0260e-03_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &2.4162e+00_rb,2.1143e+00_rb,1.8124e+00_rb,1.5103e+00_rb,1.2083e+00_rb,9.0631e-01_rb, &\n     &6.0429e-01_rb,3.0233e-01_rb,6.1607e-04_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &3.5951e+00_rb,3.1458e+00_rb,2.6963e+00_rb,2.2470e+00_rb,1.7978e+00_rb,1.3484e+00_rb, &\n     &8.9917e-01_rb,4.4993e-01_rb,6.5176e-04_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &5.1060e+00_rb,4.4678e+00_rb,3.8297e+00_rb,3.1915e+00_rb,2.5535e+00_rb,1.9153e+00_rb, &\n     &1.2772e+00_rb,6.3920e-01_rb,1.2930e-03_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &6.9828e+00_rb,6.1098e+00_rb,5.2373e+00_rb,4.3645e+00_rb,3.4923e+00_rb,2.6195e+00_rb, &\n     &1.7469e+00_rb,8.7439e-01_rb,2.6451e-03_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &9.2372e+00_rb,8.0825e+00_rb,6.9284e+00_rb,5.7745e+00_rb,4.6202e+00_rb,3.4655e+00_rb, &\n     &2.3113e+00_rb,1.1571e+00_rb,3.2091e-03_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &2.6551e+00_rb,2.3231e+00_rb,1.9913e+00_rb,1.6595e+00_rb,1.3276e+00_rb,9.9570e-01_rb, &\n     &6.6396e-01_rb,3.3215e-01_rb,5.7595e-04_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &3.9875e+00_rb,3.4892e+00_rb,2.9906e+00_rb,2.4922e+00_rb,1.9940e+00_rb,1.4956e+00_rb, &\n     &9.9727e-01_rb,4.9897e-01_rb,7.2773e-04_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &5.6951e+00_rb,4.9832e+00_rb,4.2714e+00_rb,3.5598e+00_rb,2.8480e+00_rb,2.1362e+00_rb, &\n     &1.4245e+00_rb,7.1282e-01_rb,1.1732e-03_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &7.8078e+00_rb,6.8322e+00_rb,5.8562e+00_rb,4.8804e+00_rb,3.9048e+00_rb,2.9289e+00_rb, &\n     &1.9532e+00_rb,9.7758e-01_rb,2.5629e-03_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &1.0362e+01_rb,9.0671e+00_rb,7.7724e+00_rb,6.4775e+00_rb,5.1823e+00_rb,3.8873e+00_rb, &\n     &2.5926e+00_rb,1.2977e+00_rb,3.8105e-03_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &2.3258e+00_rb,2.0350e+00_rb,1.7444e+00_rb,1.4537e+00_rb,1.1630e+00_rb,8.7226e-01_rb, &\n     &5.8161e-01_rb,2.9098e-01_rb,5.9908e-04_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &3.5360e+00_rb,3.0938e+00_rb,2.6520e+00_rb,2.2101e+00_rb,1.7681e+00_rb,1.3262e+00_rb, &\n     &8.8435e-01_rb,4.4250e-01_rb,8.1555e-04_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &5.0896e+00_rb,4.4536e+00_rb,3.8175e+00_rb,3.1814e+00_rb,2.5452e+00_rb,1.9091e+00_rb, &\n     &1.2732e+00_rb,6.3712e-01_rb,1.2640e-03_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &7.0210e+00_rb,6.1435e+00_rb,5.2660e+00_rb,4.3886e+00_rb,3.5112e+00_rb,2.6338e+00_rb, &\n     &1.7565e+00_rb,8.7919e-01_rb,2.6701e-03_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &9.3671e+00_rb,8.1963e+00_rb,7.0260e+00_rb,5.8554e+00_rb,4.6849e+00_rb,3.5142e+00_rb, &\n     &2.3437e+00_rb,1.1734e+00_rb,3.9606e-03_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &1.7557e-02_rb,1.6098e-02_rb,1.5252e-02_rb,1.4591e-02_rb,1.4194e-02_rb,1.3841e-02_rb, &\n     &1.3213e-02_rb,1.1760e-02_rb,1.0941e-02_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &2.1322e-02_rb,1.9727e-02_rb,1.8932e-02_rb,1.8315e-02_rb,1.8048e-02_rb,1.7757e-02_rb, &\n     &1.7105e-02_rb,1.5377e-02_rb,1.4897e-02_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &2.5364e-02_rb,2.3730e-02_rb,2.3058e-02_rb,2.2569e-02_rb,2.2483e-02_rb,2.2337e-02_rb, &\n     &2.1647e-02_rb,1.9659e-02_rb,1.9740e-02_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &2.9651e-02_rb,2.8091e-02_rb,2.7567e-02_rb,2.7373e-02_rb,2.7544e-02_rb,2.7572e-02_rb, &\n     &2.6885e-02_rb,2.4698e-02_rb,2.5506e-02_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &3.4147e-02_rb,3.2801e-02_rb,3.2509e-02_rb,3.2696e-02_rb,3.3242e-02_rb,3.3466e-02_rb, &\n     &3.2763e-02_rb,3.0530e-02_rb,3.2414e-02_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &2.4912e-02_rb,2.2331e-02_rb,2.0288e-02_rb,1.8446e-02_rb,1.6840e-02_rb,1.5437e-02_rb, &\n     &1.4050e-02_rb,1.2105e-02_rb,9.2979e-03_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &3.0564e-02_rb,2.7515e-02_rb,2.5261e-02_rb,2.3219e-02_rb,2.1400e-02_rb,1.9828e-02_rb, &\n     &1.8282e-02_rb,1.5938e-02_rb,1.2847e-02_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &3.6716e-02_rb,3.3250e-02_rb,3.0813e-02_rb,2.8576e-02_rb,2.6652e-02_rb,2.4969e-02_rb, &\n     &2.3242e-02_rb,2.0434e-02_rb,1.7255e-02_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &4.3274e-02_rb,3.9470e-02_rb,3.6945e-02_rb,3.4546e-02_rb,3.2567e-02_rb,3.0902e-02_rb, &\n     &2.8990e-02_rb,2.5608e-02_rb,2.2622e-02_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &5.0151e-02_rb,4.6154e-02_rb,4.3548e-02_rb,4.1147e-02_rb,3.9208e-02_rb,3.7617e-02_rb, &\n     &3.5476e-02_rb,3.1506e-02_rb,2.9070e-02_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &4.5824e-02_rb,4.0428e-02_rb,3.5360e-02_rb,3.0531e-02_rb,2.5873e-02_rb,2.1515e-02_rb, &\n     &1.7437e-02_rb,1.3182e-02_rb,7.2135e-03_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &5.7122e-02_rb,5.0441e-02_rb,4.4296e-02_rb,3.8535e-02_rb,3.2887e-02_rb,2.7626e-02_rb, &\n     &2.2637e-02_rb,1.7470e-02_rb,1.0156e-02_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &6.9514e-02_rb,6.1484e-02_rb,5.4267e-02_rb,4.7520e-02_rb,4.0893e-02_rb,3.4647e-02_rb, &\n     &2.8731e-02_rb,2.2576e-02_rb,1.3878e-02_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &8.2919e-02_rb,7.3512e-02_rb,6.5273e-02_rb,5.7524e-02_rb,4.9783e-02_rb,4.2603e-02_rb, &\n     &3.5784e-02_rb,2.8563e-02_rb,1.8502e-02_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &9.7170e-02_rb,8.6431e-02_rb,7.7261e-02_rb,6.8346e-02_rb,5.9584e-02_rb,5.1514e-02_rb, &\n     &4.3768e-02_rb,3.5379e-02_rb,2.4141e-02_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &8.5028e-02_rb,7.4675e-02_rb,6.4408e-02_rb,5.4349e-02_rb,4.4385e-02_rb,3.4667e-02_rb, &\n     &2.5298e-02_rb,1.6347e-02_rb,5.3723e-03_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &1.0799e-01_rb,9.4832e-02_rb,8.1887e-02_rb,6.9265e-02_rb,5.6849e-02_rb,4.4649e-02_rb, &\n     &3.2963e-02_rb,2.1613e-02_rb,7.7235e-03_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &1.3350e-01_rb,1.1723e-01_rb,1.0141e-01_rb,8.6053e-02_rb,7.1006e-02_rb,5.6113e-02_rb, &\n     &4.1792e-02_rb,2.7868e-02_rb,1.0747e-02_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &1.6142e-01_rb,1.4180e-01_rb,1.2297e-01_rb,1.0476e-01_rb,8.6810e-02_rb,6.8956e-02_rb, &\n     &5.1841e-02_rb,3.5143e-02_rb,1.4564e-02_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &1.9126e-01_rb,1.6822e-01_rb,1.4629e-01_rb,1.2515e-01_rb,1.0422e-01_rb,8.3176e-02_rb, &\n     &6.3089e-02_rb,4.3500e-02_rb,1.9267e-02_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &1.4488e-01_rb,1.2702e-01_rb,1.0917e-01_rb,9.1352e-02_rb,7.3672e-02_rb,5.6082e-02_rb, &\n     &3.8867e-02_rb,2.2212e-02_rb,3.9357e-03_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &1.8767e-01_rb,1.6453e-01_rb,1.4140e-01_rb,1.1846e-01_rb,9.5672e-02_rb,7.3107e-02_rb, &\n     &5.0961e-02_rb,2.9559e-02_rb,5.7686e-03_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &2.3604e-01_rb,2.0693e-01_rb,1.7791e-01_rb,1.4922e-01_rb,1.2079e-01_rb,9.2713e-02_rb, &\n     &6.4987e-02_rb,3.8154e-02_rb,8.1725e-03_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &2.8921e-01_rb,2.5355e-01_rb,2.1818e-01_rb,1.8330e-01_rb,1.4882e-01_rb,1.1469e-01_rb, &\n     &8.0893e-02_rb,4.8061e-02_rb,1.1257e-02_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &3.4679e-01_rb,3.0409e-01_rb,2.6204e-01_rb,2.2057e-01_rb,1.7963e-01_rb,1.3899e-01_rb, &\n     &9.8558e-02_rb,5.9364e-02_rb,1.5113e-02_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &2.2687e-01_rb,1.9870e-01_rb,1.7053e-01_rb,1.4235e-01_rb,1.1424e-01_rb,8.6261e-02_rb, &\n     &5.8407e-02_rb,3.1198e-02_rb,2.7719e-03_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &3.0049e-01_rb,2.6318e-01_rb,2.2586e-01_rb,1.8856e-01_rb,1.5147e-01_rb,1.1450e-01_rb, &\n     &7.7818e-02_rb,4.1952e-02_rb,4.1659e-03_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &3.8494e-01_rb,3.3714e-01_rb,2.8934e-01_rb,2.4170e-01_rb,1.9431e-01_rb,1.4714e-01_rb, &\n     &1.0048e-01_rb,5.4667e-02_rb,6.0249e-03_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &4.7888e-01_rb,4.1941e-01_rb,3.6000e-01_rb,3.0097e-01_rb,2.4222e-01_rb,1.8390e-01_rb, &\n     &1.2612e-01_rb,6.9245e-02_rb,8.4412e-03_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &5.8181e-01_rb,5.0960e-01_rb,4.3765e-01_rb,3.6614e-01_rb,2.9513e-01_rb,2.2467e-01_rb, &\n     &1.5478e-01_rb,8.5677e-02_rb,1.1500e-02_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &3.6399e-01_rb,3.1864e-01_rb,2.7330e-01_rb,2.2796e-01_rb,1.8261e-01_rb,1.3731e-01_rb, &\n     &9.2161e-02_rb,4.7386e-02_rb,1.8335e-03_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &4.9404e-01_rb,4.3249e-01_rb,3.7094e-01_rb,3.0937e-01_rb,2.4784e-01_rb,1.8651e-01_rb, &\n     &1.2531e-01_rb,6.4814e-02_rb,2.9040e-03_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &6.4560e-01_rb,5.6518e-01_rb,4.8472e-01_rb,4.0430e-01_rb,3.2403e-01_rb,2.4402e-01_rb, &\n     &1.6421e-01_rb,8.5452e-02_rb,4.3365e-03_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &8.1690e-01_rb,7.1513e-01_rb,6.1336e-01_rb,5.1171e-01_rb,4.1038e-01_rb,3.0928e-01_rb, &\n     &2.0863e-01_rb,1.0932e-01_rb,6.1934e-03_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &1.0068e+00_rb,8.8147e-01_rb,7.5616e-01_rb,6.3106e-01_rb,5.0635e-01_rb,3.8205e-01_rb, &\n     &2.5843e-01_rb,1.3634e-01_rb,8.5588e-03_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &6.8384e-01_rb,5.9848e-01_rb,5.1310e-01_rb,4.2775e-01_rb,3.4242e-01_rb,2.5705e-01_rb, &\n     &1.7171e-01_rb,8.6607e-02_rb,8.9761e-04_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &9.5272e-01_rb,8.3382e-01_rb,7.1490e-01_rb,5.9597e-01_rb,4.7702e-01_rb,3.5811e-01_rb, &\n     &2.3935e-01_rb,1.2088e-01_rb,1.5768e-03_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &1.2716e+00_rb,1.1128e+00_rb,9.5409e-01_rb,7.9538e-01_rb,6.3666e-01_rb,4.7804e-01_rb, &\n     &3.1975e-01_rb,1.6179e-01_rb,2.6889e-03_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &1.6381e+00_rb,1.4337e+00_rb,1.2291e+00_rb,1.0247e+00_rb,8.2031e-01_rb,6.1622e-01_rb, &\n     &4.1239e-01_rb,2.0929e-01_rb,4.1353e-03_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &2.0497e+00_rb,1.7940e+00_rb,1.5381e+00_rb,1.2824e+00_rb,1.0268e+00_rb,7.7156e-01_rb, &\n     &5.1676e-01_rb,2.6319e-01_rb,6.0327e-03_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &2.3562e+00_rb,2.0618e+00_rb,1.7675e+00_rb,1.4730e+00_rb,1.1786e+00_rb,8.8409e-01_rb, &\n     &5.8968e-01_rb,2.9523e-01_rb,7.8820e-04_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &3.3780e+00_rb,2.9558e+00_rb,2.5337e+00_rb,2.1117e+00_rb,1.6896e+00_rb,1.2675e+00_rb, &\n     &8.4537e-01_rb,4.2322e-01_rb,1.1025e-03_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &4.6138e+00_rb,4.0373e+00_rb,3.4607e+00_rb,2.8840e+00_rb,2.3076e+00_rb,1.7311e+00_rb, &\n     &1.1546e+00_rb,5.7817e-01_rb,1.6643e-03_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &6.0608e+00_rb,5.3032e+00_rb,4.5462e+00_rb,3.7886e+00_rb,3.0313e+00_rb,2.2740e+00_rb, &\n     &1.5168e+00_rb,7.6000e-01_rb,2.3974e-03_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &7.7085e+00_rb,6.7454e+00_rb,5.7823e+00_rb,4.8189e+00_rb,3.8558e+00_rb,2.8925e+00_rb, &\n     &1.9295e+00_rb,9.6718e-01_rb,3.2535e-03_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &9.1055e+00_rb,7.9675e+00_rb,6.8292e+00_rb,5.6913e+00_rb,4.5531e+00_rb,3.4149e+00_rb, &\n     &2.2769e+00_rb,1.1388e+00_rb,5.8809e-04_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &1.3404e+01_rb,1.1729e+01_rb,1.0053e+01_rb,8.3780e+00_rb,6.7024e+00_rb,5.0271e+00_rb, &\n     &3.3517e+00_rb,1.6763e+00_rb,9.0563e-04_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &1.8696e+01_rb,1.6359e+01_rb,1.4022e+01_rb,1.1685e+01_rb,9.3484e+00_rb,7.0117e+00_rb, &\n     &4.6747e+00_rb,2.3381e+00_rb,1.7881e-03_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &2.4995e+01_rb,2.1869e+01_rb,1.8747e+01_rb,1.5622e+01_rb,1.2498e+01_rb,9.3741e+00_rb, &\n     &6.2500e+00_rb,3.1259e+00_rb,3.1813e-03_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &3.2273e+01_rb,2.8239e+01_rb,2.4206e+01_rb,2.0172e+01_rb,1.6138e+01_rb,1.2104e+01_rb, &\n     &8.0701e+00_rb,4.0364e+00_rb,3.7345e-03_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &1.4610e+01_rb,1.2784e+01_rb,1.0958e+01_rb,9.1318e+00_rb,7.3053e+00_rb,5.4792e+00_rb, &\n     &3.6529e+00_rb,1.8269e+00_rb,9.3673e-05_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &2.1482e+01_rb,1.8797e+01_rb,1.6112e+01_rb,1.3427e+01_rb,1.0742e+01_rb,8.0564e+00_rb, &\n     &5.3711e+00_rb,2.6860e+00_rb,1.0848e-03_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &2.9982e+01_rb,2.6234e+01_rb,2.2487e+01_rb,1.8739e+01_rb,1.4992e+01_rb,1.1244e+01_rb, &\n     &7.4965e+00_rb,3.7489e+00_rb,1.4593e-03_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &4.0102e+01_rb,3.5090e+01_rb,3.0079e+01_rb,2.5065e+01_rb,2.0053e+01_rb,1.5039e+01_rb, &\n     &1.0027e+01_rb,5.0144e+00_rb,2.0582e-03_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &5.1873e+01_rb,4.5387e+01_rb,3.8905e+01_rb,3.2421e+01_rb,2.5937e+01_rb,1.9453e+01_rb, &\n     &1.2970e+01_rb,6.4862e+00_rb,4.4703e-03_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &1.7189e+01_rb,1.5041e+01_rb,1.2892e+01_rb,1.0744e+01_rb,8.5949e+00_rb,6.4462e+00_rb, &\n     &4.2976e+00_rb,2.1491e+00_rb,3.9266e-05_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &2.5282e+01_rb,2.2121e+01_rb,1.8962e+01_rb,1.5801e+01_rb,1.2641e+01_rb,9.4811e+00_rb, &\n     &6.3210e+00_rb,3.1609e+00_rb,6.4444e-04_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &3.5289e+01_rb,3.0879e+01_rb,2.6468e+01_rb,2.2056e+01_rb,1.7646e+01_rb,1.3235e+01_rb, &\n     &8.8231e+00_rb,4.4124e+00_rb,1.8228e-03_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &4.7291e+01_rb,4.1381e+01_rb,3.5468e+01_rb,2.9558e+01_rb,2.3647e+01_rb,1.7735e+01_rb, &\n     &1.1825e+01_rb,5.9130e+00_rb,2.3757e-03_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &6.1297e+01_rb,5.3636e+01_rb,4.5972e+01_rb,3.8311e+01_rb,3.0649e+01_rb,2.2988e+01_rb, &\n     &1.5326e+01_rb,7.6642e+00_rb,3.9341e-03_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &1.6000e+01_rb,1.4000e+01_rb,1.2000e+01_rb,9.9998e+00_rb,8.0002e+00_rb,6.0002e+00_rb, &\n     &4.0003e+00_rb,2.0005e+00_rb,3.8486e-05_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &2.3551e+01_rb,2.0607e+01_rb,1.7663e+01_rb,1.4719e+01_rb,1.1776e+01_rb,8.8325e+00_rb, &\n     &5.8883e+00_rb,2.9447e+00_rb,5.3945e-04_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &3.2950e+01_rb,2.8830e+01_rb,2.4711e+01_rb,2.0594e+01_rb,1.6475e+01_rb,1.2356e+01_rb, &\n     &8.2382e+00_rb,4.1197e+00_rb,1.7722e-03_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &4.4263e+01_rb,3.8730e+01_rb,3.3198e+01_rb,2.7666e+01_rb,2.2132e+01_rb,1.6600e+01_rb, &\n     &1.1067e+01_rb,5.5345e+00_rb,2.5081e-03_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &5.7461e+01_rb,5.0277e+01_rb,4.3096e+01_rb,3.5913e+01_rb,2.8731e+01_rb,2.1549e+01_rb, &\n     &1.4366e+01_rb,7.1843e+00_rb,4.3602e-03_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &4.8312e-02_rb,4.2395e-02_rb,3.7029e-02_rb,3.4268e-02_rb,3.1631e-02_rb,2.8012e-02_rb, &\n     &2.4227e-02_rb,1.9340e-02_rb,2.3819e-02_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &5.7978e-02_rb,5.0880e-02_rb,4.5259e-02_rb,4.2684e-02_rb,3.9233e-02_rb,3.5182e-02_rb, &\n     &3.0643e-02_rb,2.5810e-02_rb,3.1295e-02_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &6.8091e-02_rb,5.9773e-02_rb,5.4735e-02_rb,5.1517e-02_rb,4.7810e-02_rb,4.2960e-02_rb, &\n     &3.8310e-02_rb,3.3678e-02_rb,4.0832e-02_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &7.8444e-02_rb,6.8870e-02_rb,6.5474e-02_rb,6.0764e-02_rb,5.6861e-02_rb,5.2020e-02_rb, &\n     &4.6525e-02_rb,4.3019e-02_rb,5.3025e-02_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &8.8955e-02_rb,7.8190e-02_rb,7.6227e-02_rb,7.0877e-02_rb,6.6771e-02_rb,6.2214e-02_rb, &\n     &5.5680e-02_rb,5.4857e-02_rb,6.6965e-02_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &6.8494e-02_rb,6.0019e-02_rb,5.1535e-02_rb,4.5753e-02_rb,4.0717e-02_rb,3.4636e-02_rb, &\n     &2.8735e-02_rb,2.2359e-02_rb,2.2396e-02_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &8.3057e-02_rb,7.2786e-02_rb,6.2703e-02_rb,5.6353e-02_rb,5.0990e-02_rb,4.3733e-02_rb, &\n     &3.6309e-02_rb,2.8660e-02_rb,2.9863e-02_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &9.8445e-02_rb,8.6268e-02_rb,7.5172e-02_rb,6.9101e-02_rb,6.1861e-02_rb,5.3608e-02_rb, &\n     &4.5462e-02_rb,3.5628e-02_rb,3.9584e-02_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &1.1465e-01_rb,1.0047e-01_rb,8.9322e-02_rb,8.2399e-02_rb,7.3847e-02_rb,6.4459e-02_rb, &\n     &5.5729e-02_rb,4.5259e-02_rb,5.1011e-02_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &1.3121e-01_rb,1.1499e-01_rb,1.0547e-01_rb,9.5942e-02_rb,8.6700e-02_rb,7.6912e-02_rb, &\n     &6.7683e-02_rb,5.7087e-02_rb,6.4331e-02_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &1.2396e-01_rb,1.0851e-01_rb,9.3078e-02_rb,7.7936e-02_rb,6.5430e-02_rb,5.3555e-02_rb, &\n     &4.0149e-02_rb,2.8165e-02_rb,1.9103e-02_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &1.5308e-01_rb,1.3401e-01_rb,1.1495e-01_rb,9.6317e-02_rb,8.2061e-02_rb,6.7720e-02_rb, &\n     &5.1563e-02_rb,3.6346e-02_rb,2.6147e-02_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &1.8438e-01_rb,1.6143e-01_rb,1.3846e-01_rb,1.1685e-01_rb,1.0065e-01_rb,8.3573e-02_rb, &\n     &6.4169e-02_rb,4.6273e-02_rb,3.5249e-02_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &2.1730e-01_rb,1.9024e-01_rb,1.6317e-01_rb,1.3937e-01_rb,1.2182e-01_rb,1.0076e-01_rb, &\n     &7.7802e-02_rb,5.7458e-02_rb,4.6106e-02_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &2.5114e-01_rb,2.1989e-01_rb,1.8862e-01_rb,1.6558e-01_rb,1.4330e-01_rb,1.1936e-01_rb, &\n     &9.3594e-02_rb,7.0438e-02_rb,5.9048e-02_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &2.2307e-01_rb,1.9520e-01_rb,1.6737e-01_rb,1.3960e-01_rb,1.1281e-01_rb,8.7662e-02_rb, &\n     &6.3355e-02_rb,3.7440e-02_rb,1.5143e-02_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &2.8121e-01_rb,2.4610e-01_rb,2.1101e-01_rb,1.7601e-01_rb,1.4219e-01_rb,1.1180e-01_rb, &\n     &8.0961e-02_rb,4.9348e-02_rb,2.1248e-02_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &3.4426e-01_rb,3.0128e-01_rb,2.5831e-01_rb,2.1545e-01_rb,1.7407e-01_rb,1.3850e-01_rb, &\n     &1.0170e-01_rb,6.2450e-02_rb,2.9486e-02_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &4.1162e-01_rb,3.6021e-01_rb,3.0885e-01_rb,2.5755e-01_rb,2.0938e-01_rb,1.6873e-01_rb, &\n     &1.2428e-01_rb,7.7637e-02_rb,3.9623e-02_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &4.8400e-01_rb,4.2357e-01_rb,3.6318e-01_rb,3.0275e-01_rb,2.4837e-01_rb,2.0175e-01_rb, &\n     &1.4904e-01_rb,9.5123e-02_rb,5.2032e-02_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &3.6240e-01_rb,3.1713e-01_rb,2.7189e-01_rb,2.2715e-01_rb,1.8287e-01_rb,1.3915e-01_rb, &\n     &9.6038e-02_rb,5.3151e-02_rb,1.1469e-02_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &4.6684e-01_rb,4.0853e-01_rb,3.5029e-01_rb,2.9260e-01_rb,2.3543e-01_rb,1.7892e-01_rb, &\n     &1.2501e-01_rb,6.9710e-02_rb,1.6590e-02_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &5.8305e-01_rb,5.1017e-01_rb,4.3746e-01_rb,3.6540e-01_rb,2.9385e-01_rb,2.2314e-01_rb, &\n     &1.5770e-01_rb,8.9552e-02_rb,2.3682e-02_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &7.1039e-01_rb,6.2164e-01_rb,5.3285e-01_rb,4.4486e-01_rb,3.5759e-01_rb,2.7242e-01_rb, &\n     &1.9452e-01_rb,1.1176e-01_rb,3.2616e-02_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &8.4585e-01_rb,7.4016e-01_rb,6.3454e-01_rb,5.2965e-01_rb,4.2558e-01_rb,3.2651e-01_rb, &\n     &2.3601e-01_rb,1.3577e-01_rb,4.3721e-02_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &5.4565e-01_rb,4.7774e-01_rb,4.0998e-01_rb,3.4242e-01_rb,2.7503e-01_rb,2.0802e-01_rb, &\n     &1.4092e-01_rb,7.4294e-02_rb,8.5994e-03_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &7.2281e-01_rb,6.3285e-01_rb,5.4312e-01_rb,4.5353e-01_rb,3.6423e-01_rb,2.7526e-01_rb, &\n     &1.8607e-01_rb,9.8990e-02_rb,1.2620e-02_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &9.2293e-01_rb,8.0812e-01_rb,6.9347e-01_rb,5.7897e-01_rb,4.6479e-01_rb,3.5103e-01_rb, &\n     &2.3728e-01_rb,1.2747e-01_rb,1.8407e-02_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &1.1448e+00_rb,1.0023e+00_rb,8.6003e-01_rb,7.1795e-01_rb,5.7619e-01_rb,4.3493e-01_rb, &\n     &2.9519e-01_rb,1.6083e-01_rb,2.5918e-02_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &1.3870e+00_rb,1.2144e+00_rb,1.0419e+00_rb,8.6977e-01_rb,6.9789e-01_rb,5.2651e-01_rb, &\n     &3.5987e-01_rb,1.9795e-01_rb,3.5516e-02_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &9.0563e-01_rb,7.9294e-01_rb,6.8033e-01_rb,5.6775e-01_rb,4.5526e-01_rb,3.4288e-01_rb, &\n     &2.2993e-01_rb,1.1636e-01_rb,6.3281e-03_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &1.2304e+00_rb,1.0774e+00_rb,9.2435e-01_rb,7.7129e-01_rb,6.1846e-01_rb,4.6574e-01_rb, &\n     &3.1230e-01_rb,1.5802e-01_rb,9.6345e-03_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &1.6067e+00_rb,1.4068e+00_rb,1.2068e+00_rb,1.0069e+00_rb,8.0717e-01_rb,6.0759e-01_rb, &\n     &4.0707e-01_rb,2.0698e-01_rb,1.4230e-02_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &2.0379e+00_rb,1.7842e+00_rb,1.5305e+00_rb,1.2770e+00_rb,1.0235e+00_rb,7.6992e-01_rb, &\n     &5.1539e-01_rb,2.6359e-01_rb,2.0362e-02_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &2.5042e+00_rb,2.1925e+00_rb,1.8806e+00_rb,1.5690e+00_rb,1.2574e+00_rb,9.4558e-01_rb, &\n     &6.3281e-01_rb,3.2569e-01_rb,2.8537e-02_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &1.8551e+00_rb,1.6239e+00_rb,1.3926e+00_rb,1.1613e+00_rb,9.2995e-01_rb,6.9848e-01_rb, &\n     &4.6667e-01_rb,2.3461e-01_rb,3.7282e-03_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &2.5887e+00_rb,2.2659e+00_rb,1.9430e+00_rb,1.6201e+00_rb,1.2969e+00_rb,9.7383e-01_rb, &\n     &6.5051e-01_rb,3.2684e-01_rb,7.1685e-03_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &3.4601e+00_rb,3.0282e+00_rb,2.5964e+00_rb,2.1645e+00_rb,1.7327e+00_rb,1.3007e+00_rb, &\n     &8.6869e-01_rb,4.3618e-01_rb,1.0869e-02_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &4.4635e+00_rb,3.9062e+00_rb,3.3492e+00_rb,2.7923e+00_rb,2.2350e+00_rb,1.6778e+00_rb, &\n     &1.1202e+00_rb,5.6241e-01_rb,1.5855e-02_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &5.5614e+00_rb,4.8670e+00_rb,4.1730e+00_rb,3.4788e+00_rb,2.7845e+00_rb,2.0899e+00_rb, &\n     &1.3954e+00_rb,7.0042e-01_rb,2.2369e-02_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &7.0057e+00_rb,6.1306e+00_rb,5.2555e+00_rb,4.3802e+00_rb,3.5047e+00_rb,2.6291e+00_rb, &\n     &1.7537e+00_rb,8.7821e-01_rb,2.6651e-03_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &1.0071e+01_rb,8.8120e+00_rb,7.5539e+00_rb,6.2955e+00_rb,5.0368e+00_rb,3.7786e+00_rb, &\n     &2.5204e+00_rb,1.2618e+00_rb,3.6187e-03_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &1.3793e+01_rb,1.2069e+01_rb,1.0345e+01_rb,8.6215e+00_rb,6.8979e+00_rb,5.1747e+00_rb, &\n     &3.4512e+00_rb,1.7274e+00_rb,5.0886e-03_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &1.8095e+01_rb,1.5834e+01_rb,1.3574e+01_rb,1.1311e+01_rb,9.0505e+00_rb,6.7893e+00_rb, &\n     &4.5277e+00_rb,2.2659e+00_rb,6.6445e-03_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &2.2909e+01_rb,2.0046e+01_rb,1.7183e+01_rb,1.4320e+01_rb,1.1458e+01_rb,8.5941e+00_rb, &\n     &5.7315e+00_rb,2.8684e+00_rb,1.0715e-02_rb/)\n      kao(:, 1,10,10) = (/ &\n     &2.9637e+01_rb,2.5932e+01_rb,2.2227e+01_rb,1.8524e+01_rb,1.4818e+01_rb,1.1115e+01_rb, &\n     &7.4105e+00_rb,3.7062e+00_rb,1.7663e-03_rb/)\n      kao(:, 2,10,10) = (/ &\n     &4.3734e+01_rb,3.8266e+01_rb,3.2801e+01_rb,2.7334e+01_rb,2.1867e+01_rb,1.6402e+01_rb, &\n     &1.0936e+01_rb,5.4691e+00_rb,2.0817e-03_rb/)\n      kao(:, 3,10,10) = (/ &\n     &6.1232e+01_rb,5.3576e+01_rb,4.5921e+01_rb,3.8272e+01_rb,3.0616e+01_rb,2.2963e+01_rb, &\n     &1.5310e+01_rb,7.6576e+00_rb,1.7504e-03_rb/)\n      kao(:, 4,10,10) = (/ &\n     &8.1674e+01_rb,7.1459e+01_rb,6.1256e+01_rb,5.1048e+01_rb,4.0839e+01_rb,3.0631e+01_rb, &\n     &2.0421e+01_rb,1.0211e+01_rb,7.5551e-03_rb/)\n      kao(:, 5,10,10) = (/ &\n     &1.0484e+02_rb,9.1726e+01_rb,7.8618e+01_rb,6.5522e+01_rb,5.2414e+01_rb,3.9315e+01_rb, &\n     &2.6210e+01_rb,1.3108e+01_rb,1.2092e-02_rb/)\n      kao(:, 1,11,10) = (/ &\n     &5.2035e+01_rb,4.5533e+01_rb,3.9026e+01_rb,3.2522e+01_rb,2.6019e+01_rb,1.9514e+01_rb, &\n     &1.3010e+01_rb,6.5060e+00_rb,2.3377e-05_rb/)\n      kao(:, 2,11,10) = (/ &\n     &7.6878e+01_rb,6.7270e+01_rb,5.7660e+01_rb,4.8051e+01_rb,3.8444e+01_rb,2.8832e+01_rb, &\n     &1.9221e+01_rb,9.6129e+00_rb,3.4131e-05_rb/)\n      kao(:, 3,11,10) = (/ &\n     &1.0695e+02_rb,9.3584e+01_rb,8.0221e+01_rb,6.6851e+01_rb,5.3480e+01_rb,4.0109e+01_rb, &\n     &2.6742e+01_rb,1.3372e+01_rb,6.5532e-03_rb/)\n      kao(:, 4,11,10) = (/ &\n     &1.4204e+02_rb,1.2428e+02_rb,1.0653e+02_rb,8.8779e+01_rb,7.1025e+01_rb,5.3267e+01_rb, &\n     &3.5513e+01_rb,1.7760e+01_rb,3.6230e-03_rb/)\n      kao(:, 5,11,10) = (/ &\n     &1.8146e+02_rb,1.5877e+02_rb,1.3608e+02_rb,1.1341e+02_rb,9.0723e+01_rb,6.8041e+01_rb, &\n     &4.5364e+01_rb,2.2685e+01_rb,5.3060e-03_rb/)\n      kao(:, 1,12,10) = (/ &\n     &6.6709e+01_rb,5.8372e+01_rb,5.0033e+01_rb,4.1695e+01_rb,3.3357e+01_rb,2.5018e+01_rb, &\n     &1.6679e+01_rb,8.3409e+00_rb,1.6896e-05_rb/)\n      kao(:, 2,12,10) = (/ &\n     &9.8021e+01_rb,8.5767e+01_rb,7.3510e+01_rb,6.1263e+01_rb,4.9006e+01_rb,3.6758e+01_rb, &\n     &2.4506e+01_rb,1.2254e+01_rb,2.4443e-05_rb/)\n      kao(:, 3,12,10) = (/ &\n     &1.3575e+02_rb,1.1880e+02_rb,1.0183e+02_rb,8.4855e+01_rb,6.7883e+01_rb,5.0907e+01_rb, &\n     &3.3942e+01_rb,1.6972e+01_rb,3.9041e-05_rb/)\n      kao(:, 4,12,10) = (/ &\n     &1.7930e+02_rb,1.5689e+02_rb,1.3447e+02_rb,1.1206e+02_rb,8.9651e+01_rb,6.7236e+01_rb, &\n     &4.4831e+01_rb,2.2414e+01_rb,2.5406e-03_rb/)\n      kao(:, 5,12,10) = (/ &\n     &2.2752e+02_rb,1.9909e+02_rb,1.7067e+02_rb,1.4220e+02_rb,1.1376e+02_rb,8.5325e+01_rb, &\n     &5.6889e+01_rb,2.8448e+01_rb,5.4913e-03_rb/)\n      kao(:, 1,13,10) = (/ &\n     &6.7103e+01_rb,5.8720e+01_rb,5.0329e+01_rb,4.1943e+01_rb,3.3555e+01_rb,2.5165e+01_rb, &\n     &1.6777e+01_rb,8.3902e+00_rb,1.5511e-05_rb/)\n      kao(:, 2,13,10) = (/ &\n     &9.7787e+01_rb,8.5564e+01_rb,7.3344e+01_rb,6.1125e+01_rb,4.8896e+01_rb,3.6672e+01_rb, &\n     &2.4451e+01_rb,1.2226e+01_rb,2.1977e-05_rb/)\n      kao(:, 3,13,10) = (/ &\n     &1.3463e+02_rb,1.1780e+02_rb,1.0097e+02_rb,8.4145e+01_rb,6.7313e+01_rb,5.0486e+01_rb, &\n     &3.3658e+01_rb,1.6832e+01_rb,3.2342e-05_rb/)\n      kao(:, 4,13,10) = (/ &\n     &1.7688e+02_rb,1.5477e+02_rb,1.3267e+02_rb,1.1056e+02_rb,8.8438e+01_rb,6.6334e+01_rb, &\n     &4.4220e+01_rb,2.2113e+01_rb,5.6189e-03_rb/)\n      kao(:, 5,13,10) = (/ &\n     &2.2476e+02_rb,1.9667e+02_rb,1.6857e+02_rb,1.4047e+02_rb,1.1238e+02_rb,8.4289e+01_rb, &\n     &5.6195e+01_rb,2.8100e+01_rb,6.0459e-03_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &6.9001e-02_rb,6.0529e-02_rb,5.2064e-02_rb,4.5590e-02_rb,4.0628e-02_rb,3.5945e-02_rb, &\n     &2.9389e-02_rb,2.3144e-02_rb,2.9176e-02_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &8.2103e-02_rb,7.2020e-02_rb,6.1937e-02_rb,5.5694e-02_rb,5.0508e-02_rb,4.4515e-02_rb, &\n     &3.6553e-02_rb,3.0757e-02_rb,3.9695e-02_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &9.5630e-02_rb,8.3878e-02_rb,7.2481e-02_rb,6.7965e-02_rb,6.0680e-02_rb,5.4180e-02_rb, &\n     &4.4143e-02_rb,4.0422e-02_rb,5.1968e-02_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &1.0928e-01_rb,9.5880e-02_rb,8.4382e-02_rb,8.0469e-02_rb,7.1798e-02_rb,6.4108e-02_rb, &\n     &5.3608e-02_rb,5.2409e-02_rb,6.6870e-02_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &1.2299e-01_rb,1.0790e-01_rb,9.8888e-02_rb,9.2808e-02_rb,8.4009e-02_rb,7.5069e-02_rb, &\n     &6.6004e-02_rb,6.6900e-02_rb,8.4455e-02_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &1.0031e-01_rb,8.7857e-02_rb,7.5407e-02_rb,6.3060e-02_rb,5.4499e-02_rb,4.6504e-02_rb, &\n     &3.6770e-02_rb,2.6380e-02_rb,2.8413e-02_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &1.2053e-01_rb,1.0559e-01_rb,9.0627e-02_rb,7.6829e-02_rb,6.7033e-02_rb,5.8104e-02_rb, &\n     &4.6509e-02_rb,3.3638e-02_rb,3.8310e-02_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &1.4155e-01_rb,1.2398e-01_rb,1.0644e-01_rb,9.2248e-02_rb,8.1983e-02_rb,7.0441e-02_rb, &\n     &5.6590e-02_rb,4.3821e-02_rb,5.0130e-02_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &1.6305e-01_rb,1.4282e-01_rb,1.2262e-01_rb,1.1049e-01_rb,9.7062e-02_rb,8.3848e-02_rb, &\n     &6.7975e-02_rb,5.5529e-02_rb,6.5378e-02_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &1.8507e-01_rb,1.6212e-01_rb,1.3962e-01_rb,1.2935e-01_rb,1.1281e-01_rb,9.7726e-02_rb, &\n     &8.0117e-02_rb,6.9954e-02_rb,8.3371e-02_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &1.8667e-01_rb,1.6338e-01_rb,1.4010e-01_rb,1.1682e-01_rb,9.3557e-02_rb,7.4325e-02_rb, &\n     &5.5984e-02_rb,3.5878e-02_rb,2.5531e-02_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &2.2795e-01_rb,1.9954e-01_rb,1.7113e-01_rb,1.4270e-01_rb,1.1480e-01_rb,9.2509e-02_rb, &\n     &7.0623e-02_rb,4.6178e-02_rb,3.4917e-02_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &2.7211e-01_rb,2.3816e-01_rb,2.0423e-01_rb,1.7032e-01_rb,1.3866e-01_rb,1.1338e-01_rb, &\n     &8.6877e-02_rb,5.7191e-02_rb,4.6054e-02_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &3.1770e-01_rb,2.7809e-01_rb,2.3849e-01_rb,1.9887e-01_rb,1.6548e-01_rb,1.3614e-01_rb, &\n     &1.0464e-01_rb,7.0039e-02_rb,6.0217e-02_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &3.6403e-01_rb,3.1863e-01_rb,2.7328e-01_rb,2.2795e-01_rb,1.9641e-01_rb,1.5908e-01_rb, &\n     &1.2312e-01_rb,8.3529e-02_rb,7.7572e-02_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &3.4588e-01_rb,3.0268e-01_rb,2.5948e-01_rb,2.1629e-01_rb,1.7307e-01_rb,1.2990e-01_rb, &\n     &9.1217e-02_rb,5.3135e-02_rb,2.1767e-02_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &4.3145e-01_rb,3.7755e-01_rb,3.2366e-01_rb,2.6977e-01_rb,2.1589e-01_rb,1.6201e-01_rb, &\n     &1.1572e-01_rb,6.8208e-02_rb,3.0409e-02_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &5.2311e-01_rb,4.5776e-01_rb,3.9244e-01_rb,3.2707e-01_rb,2.6176e-01_rb,1.9718e-01_rb, &\n     &1.4225e-01_rb,8.5649e-02_rb,4.0906e-02_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &6.1949e-01_rb,5.4214e-01_rb,4.6476e-01_rb,3.8737e-01_rb,3.1001e-01_rb,2.3606e-01_rb, &\n     &1.7310e-01_rb,1.0459e-01_rb,5.4382e-02_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &7.1941e-01_rb,6.2950e-01_rb,5.3975e-01_rb,4.4985e-01_rb,3.6002e-01_rb,2.8013e-01_rb, &\n     &2.0492e-01_rb,1.2467e-01_rb,7.0400e-02_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &5.8048e-01_rb,5.0796e-01_rb,4.3542e-01_rb,3.6286e-01_rb,2.9032e-01_rb,2.1780e-01_rb, &\n     &1.4642e-01_rb,8.0688e-02_rb,1.7624e-02_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &7.4078e-01_rb,6.4817e-01_rb,5.5562e-01_rb,4.6305e-01_rb,3.7047e-01_rb,2.7793e-01_rb, &\n     &1.8667e-01_rb,1.0393e-01_rb,2.5321e-02_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &9.1562e-01_rb,8.0121e-01_rb,6.8680e-01_rb,5.7241e-01_rb,4.5798e-01_rb,3.4354e-01_rb, &\n     &2.3145e-01_rb,1.3051e-01_rb,3.5008e-02_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &1.1041e+00_rb,9.6607e-01_rb,8.2810e-01_rb,6.9018e-01_rb,5.5220e-01_rb,4.1422e-01_rb, &\n     &2.8137e-01_rb,1.6106e-01_rb,4.7504e-02_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &1.3000e+00_rb,1.1374e+00_rb,9.7498e-01_rb,8.1255e-01_rb,6.5013e-01_rb,4.8767e-01_rb, &\n     &3.3622e-01_rb,1.9350e-01_rb,6.2782e-02_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &8.9158e-01_rb,7.8014e-01_rb,6.6870e-01_rb,5.5724e-01_rb,4.4582e-01_rb,3.3441e-01_rb, &\n     &2.2372e-01_rb,1.1615e-01_rb,1.3452e-02_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &1.1678e+00_rb,1.0218e+00_rb,8.7586e-01_rb,7.2991e-01_rb,5.8393e-01_rb,4.3799e-01_rb, &\n     &2.9305e-01_rb,1.5296e-01_rb,1.9872e-02_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &1.4777e+00_rb,1.2930e+00_rb,1.1083e+00_rb,9.2359e-01_rb,7.3888e-01_rb,5.5427e-01_rb, &\n     &3.7059e-01_rb,1.9566e-01_rb,2.8227e-02_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &1.8119e+00_rb,1.5855e+00_rb,1.3592e+00_rb,1.1325e+00_rb,9.0614e-01_rb,6.7964e-01_rb, &\n     &4.5430e-01_rb,2.4269e-01_rb,3.9342e-02_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &2.1657e+00_rb,1.8951e+00_rb,1.6242e+00_rb,1.3536e+00_rb,1.0830e+00_rb,8.1233e-01_rb, &\n     &5.4303e-01_rb,2.9520e-01_rb,5.3415e-02_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &1.4142e+00_rb,1.2374e+00_rb,1.0606e+00_rb,8.8396e-01_rb,7.0710e-01_rb,5.3041e-01_rb, &\n     &3.5484e-01_rb,1.8101e-01_rb,1.0092e-02_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &1.9068e+00_rb,1.6686e+00_rb,1.4303e+00_rb,1.1919e+00_rb,9.5353e-01_rb,7.1519e-01_rb, &\n     &4.7813e-01_rb,2.4337e-01_rb,1.5041e-02_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &2.4672e+00_rb,2.1587e+00_rb,1.8505e+00_rb,1.5421e+00_rb,1.2336e+00_rb,9.2548e-01_rb, &\n     &6.1872e-01_rb,3.1448e-01_rb,2.1900e-02_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &3.0809e+00_rb,2.6959e+00_rb,2.3109e+00_rb,1.9258e+00_rb,1.5405e+00_rb,1.1559e+00_rb, &\n     &7.7290e-01_rb,3.9302e-01_rb,3.1410e-02_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &3.7474e+00_rb,3.2787e+00_rb,2.8103e+00_rb,2.3419e+00_rb,1.8737e+00_rb,1.4060e+00_rb, &\n     &9.3991e-01_rb,4.7981e-01_rb,4.3693e-02_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &2.6683e+00_rb,2.3349e+00_rb,2.0012e+00_rb,1.6677e+00_rb,1.3344e+00_rb,1.0014e+00_rb, &\n     &6.6874e-01_rb,3.3701e-01_rb,7.4648e-03_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &3.7060e+00_rb,3.2430e+00_rb,2.7797e+00_rb,2.3168e+00_rb,1.8539e+00_rb,1.3914e+00_rb, &\n     &9.2912e-01_rb,4.6800e-01_rb,1.1435e-02_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &4.9130e+00_rb,4.2993e+00_rb,3.6854e+00_rb,3.0718e+00_rb,2.4583e+00_rb,1.8451e+00_rb, &\n     &1.2322e+00_rb,6.2028e-01_rb,1.6885e-02_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &6.2797e+00_rb,5.4950e+00_rb,4.7108e+00_rb,3.9265e+00_rb,3.1420e+00_rb,2.3582e+00_rb, &\n     &1.5746e+00_rb,7.9222e-01_rb,2.4688e-02_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &7.7638e+00_rb,6.7943e+00_rb,5.8243e+00_rb,4.8546e+00_rb,3.8850e+00_rb,2.9154e+00_rb, &\n     &1.9466e+00_rb,9.7896e-01_rb,3.5101e-02_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &9.7135e+00_rb,8.4998e+00_rb,7.2860e+00_rb,6.0723e+00_rb,4.8583e+00_rb,3.6448e+00_rb, &\n     &2.4304e+00_rb,1.2171e+00_rb,3.5233e-03_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &1.3929e+01_rb,1.2189e+01_rb,1.0449e+01_rb,8.7078e+00_rb,6.9673e+00_rb,5.2263e+00_rb, &\n     &3.4856e+00_rb,1.7453e+00_rb,4.1308e-03_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &1.8989e+01_rb,1.6615e+01_rb,1.4243e+01_rb,1.1869e+01_rb,9.4966e+00_rb,7.1244e+00_rb, &\n     &4.7516e+00_rb,2.3792e+00_rb,6.6319e-03_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &2.4785e+01_rb,2.1688e+01_rb,1.8591e+01_rb,1.5493e+01_rb,1.2396e+01_rb,9.2991e+00_rb, &\n     &6.2019e+00_rb,3.1051e+00_rb,1.1490e-02_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &3.1283e+01_rb,2.7373e+01_rb,2.3465e+01_rb,1.9556e+01_rb,1.5646e+01_rb,1.1737e+01_rb, &\n     &7.8279e+00_rb,3.9188e+00_rb,2.1019e-02_rb/)\n      kao(:, 1,10,11) = (/ &\n     &4.1666e+01_rb,3.6458e+01_rb,3.1251e+01_rb,2.6043e+01_rb,2.0835e+01_rb,1.5628e+01_rb, &\n     &1.0419e+01_rb,5.2119e+00_rb,1.6494e-03_rb/)\n      kao(:, 2,10,11) = (/ &\n     &6.1694e+01_rb,5.3987e+01_rb,4.6271e+01_rb,3.8561e+01_rb,3.0850e+01_rb,2.3139e+01_rb, &\n     &1.5428e+01_rb,7.7161e+00_rb,4.8320e-03_rb/)\n      kao(:, 3,10,11) = (/ &\n     &8.6109e+01_rb,7.5347e+01_rb,6.4581e+01_rb,5.3821e+01_rb,4.3056e+01_rb,3.2294e+01_rb, &\n     &2.1533e+01_rb,1.0770e+01_rb,3.2818e-03_rb/)\n      kao(:, 4,10,11) = (/ &\n     &1.1458e+02_rb,1.0025e+02_rb,8.5946e+01_rb,7.1620e+01_rb,5.7298e+01_rb,4.2975e+01_rb, &\n     &2.8651e+01_rb,1.4330e+01_rb,1.0923e-02_rb/)\n      kao(:, 5,10,11) = (/ &\n     &1.4689e+02_rb,1.2853e+02_rb,1.1017e+02_rb,9.1808e+01_rb,7.3452e+01_rb,5.5088e+01_rb, &\n     &3.6731e+01_rb,1.8371e+01_rb,1.7421e-02_rb/)\n      kao(:, 1,11,11) = (/ &\n     &7.6402e+01_rb,6.6855e+01_rb,5.7300e+01_rb,4.7753e+01_rb,3.8204e+01_rb,2.8655e+01_rb, &\n     &1.9105e+01_rb,9.5538e+00_rb,4.1075e-05_rb/)\n      kao(:, 2,11,11) = (/ &\n     &1.1253e+02_rb,9.8463e+01_rb,8.4399e+01_rb,7.0331e+01_rb,5.6269e+01_rb,4.2202e+01_rb, &\n     &2.8136e+01_rb,1.4070e+01_rb,5.7635e-05_rb/)\n      kao(:, 3,11,11) = (/ &\n     &1.5636e+02_rb,1.3680e+02_rb,1.1725e+02_rb,9.7724e+01_rb,7.8173e+01_rb,5.8632e+01_rb, &\n     &3.9090e+01_rb,1.9548e+01_rb,8.0706e-05_rb/)\n      kao(:, 4,11,11) = (/ &\n     &2.0774e+02_rb,1.8177e+02_rb,1.5580e+02_rb,1.2984e+02_rb,1.0387e+02_rb,7.7908e+01_rb, &\n     &5.1937e+01_rb,2.5972e+01_rb,1.1256e-02_rb/)\n      kao(:, 5,11,11) = (/ &\n     &2.6504e+02_rb,2.3192e+02_rb,1.9880e+02_rb,1.6566e+02_rb,1.3254e+02_rb,9.9402e+01_rb, &\n     &6.6269e+01_rb,3.3138e+01_rb,8.3317e-03_rb/)\n      kao(:, 1,12,11) = (/ &\n     &1.0209e+02_rb,8.9323e+01_rb,7.6564e+01_rb,6.3800e+01_rb,5.1042e+01_rb,3.8285e+01_rb, &\n     &2.5522e+01_rb,1.2763e+01_rb,2.5628e-05_rb/)\n      kao(:, 2,12,11) = (/ &\n     &1.4952e+02_rb,1.3083e+02_rb,1.1214e+02_rb,9.3447e+01_rb,7.4760e+01_rb,5.6068e+01_rb, &\n     &3.7381e+01_rb,1.8692e+01_rb,3.7727e-05_rb/)\n      kao(:, 3,12,11) = (/ &\n     &2.0709e+02_rb,1.8121e+02_rb,1.5533e+02_rb,1.2944e+02_rb,1.0355e+02_rb,7.7656e+01_rb, &\n     &5.1777e+01_rb,2.5887e+01_rb,4.7198e-05_rb/)\n      kao(:, 4,12,11) = (/ &\n     &2.7380e+02_rb,2.3961e+02_rb,2.0536e+02_rb,1.7114e+02_rb,1.3691e+02_rb,1.0268e+02_rb, &\n     &6.8461e+01_rb,3.4230e+01_rb,7.7074e-03_rb/)\n      kao(:, 5,12,11) = (/ &\n     &3.4895e+02_rb,3.0533e+02_rb,2.6172e+02_rb,2.1811e+02_rb,1.7449e+02_rb,1.3086e+02_rb, &\n     &8.7241e+01_rb,4.3626e+01_rb,8.7565e-03_rb/)\n      kao(:, 1,13,11) = (/ &\n     &1.0675e+02_rb,9.3411e+01_rb,8.0067e+01_rb,6.6725e+01_rb,5.3379e+01_rb,4.0032e+01_rb, &\n     &2.6688e+01_rb,1.3347e+01_rb,1.6230e-05_rb/)\n      kao(:, 2,13,11) = (/ &\n     &1.5608e+02_rb,1.3657e+02_rb,1.1706e+02_rb,9.7552e+01_rb,7.8046e+01_rb,5.8531e+01_rb, &\n     &3.9024e+01_rb,1.9513e+01_rb,2.2466e-05_rb/)\n      kao(:, 3,13,11) = (/ &\n     &2.1549e+02_rb,1.8855e+02_rb,1.6162e+02_rb,1.3468e+02_rb,1.0774e+02_rb,8.0803e+01_rb, &\n     &5.3874e+01_rb,2.6939e+01_rb,3.0542e-05_rb/)\n      kao(:, 4,13,11) = (/ &\n     &2.8371e+02_rb,2.4826e+02_rb,2.1280e+02_rb,1.7733e+02_rb,1.4186e+02_rb,1.0640e+02_rb, &\n     &7.0935e+01_rb,3.5470e+01_rb,1.3758e-03_rb/)\n      kao(:, 5,13,11) = (/ &\n     &3.5962e+02_rb,3.1467e+02_rb,2.6973e+02_rb,2.2478e+02_rb,1.7981e+02_rb,1.3487e+02_rb, &\n     &8.9910e+01_rb,4.4960e+01_rb,3.9903e-03_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &9.6318e-02_rb,8.4306e-02_rb,7.2320e-02_rb,6.0347e-02_rb,5.2079e-02_rb,4.4235e-02_rb, &\n     &3.5296e-02_rb,3.0172e-02_rb,3.8372e-02_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &1.1333e-01_rb,9.9268e-02_rb,8.5214e-02_rb,7.2014e-02_rb,6.3588e-02_rb,5.4323e-02_rb, &\n     &4.4306e-02_rb,4.1727e-02_rb,5.1292e-02_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &1.3065e-01_rb,1.1448e-01_rb,9.8324e-02_rb,8.5358e-02_rb,7.7141e-02_rb,6.4277e-02_rb, &\n     &5.5750e-02_rb,5.5415e-02_rb,6.7933e-02_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &1.4795e-01_rb,1.2969e-01_rb,1.1146e-01_rb,1.0185e-01_rb,9.0045e-02_rb,7.5178e-02_rb, &\n     &6.8885e-02_rb,7.0700e-02_rb,8.8138e-02_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &1.6491e-01_rb,1.4461e-01_rb,1.2472e-01_rb,1.1761e-01_rb,1.0268e-01_rb,8.7802e-02_rb, &\n     &8.5057e-02_rb,9.0208e-02_rb,1.1284e-01_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &1.4316e-01_rb,1.2534e-01_rb,1.0752e-01_rb,8.9701e-02_rb,7.2577e-02_rb,5.9608e-02_rb, &\n     &4.6628e-02_rb,3.2233e-02_rb,3.6922e-02_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &1.7023e-01_rb,1.4907e-01_rb,1.2790e-01_rb,1.0674e-01_rb,8.8738e-02_rb,7.3250e-02_rb, &\n     &5.7353e-02_rb,4.3254e-02_rb,4.9659e-02_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &1.9792e-01_rb,1.7332e-01_rb,1.4875e-01_rb,1.2418e-01_rb,1.0651e-01_rb,8.8601e-02_rb, &\n     &6.9038e-02_rb,5.5574e-02_rb,6.6062e-02_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &2.2567e-01_rb,1.9768e-01_rb,1.6971e-01_rb,1.4278e-01_rb,1.2696e-01_rb,1.0366e-01_rb, &\n     &8.1948e-02_rb,7.1191e-02_rb,8.6127e-02_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &2.5314e-01_rb,2.2175e-01_rb,1.9032e-01_rb,1.6565e-01_rb,1.4606e-01_rb,1.1970e-01_rb, &\n     &9.8165e-02_rb,9.0526e-02_rb,1.1061e-01_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &2.7385e-01_rb,2.3971e-01_rb,2.0552e-01_rb,1.7136e-01_rb,1.3716e-01_rb,1.0300e-01_rb, &\n     &7.5178e-02_rb,4.5691e-02_rb,3.3533e-02_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &3.3090e-01_rb,2.8961e-01_rb,2.4836e-01_rb,2.0707e-01_rb,1.6581e-01_rb,1.2597e-01_rb, &\n     &9.2542e-02_rb,5.7168e-02_rb,4.5647e-02_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &3.8960e-01_rb,3.4098e-01_rb,2.9239e-01_rb,2.4379e-01_rb,1.9517e-01_rb,1.5181e-01_rb, &\n     &1.1308e-01_rb,7.0212e-02_rb,6.1610e-02_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &4.4888e-01_rb,3.9285e-01_rb,3.3686e-01_rb,2.8085e-01_rb,2.2487e-01_rb,1.8074e-01_rb, &\n     &1.3367e-01_rb,8.4795e-02_rb,8.0803e-02_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &5.0777e-01_rb,4.4444e-01_rb,3.8104e-01_rb,3.1773e-01_rb,2.5631e-01_rb,2.1146e-01_rb, &\n     &1.5502e-01_rb,1.0449e-01_rb,1.0410e-01_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &5.2233e-01_rb,4.5708e-01_rb,3.9182e-01_rb,3.2654e-01_rb,2.6131e-01_rb,1.9604e-01_rb, &\n     &1.3079e-01_rb,7.4640e-02_rb,2.9498e-02_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &6.4217e-01_rb,5.6200e-01_rb,4.8174e-01_rb,4.0151e-01_rb,3.2131e-01_rb,2.4104e-01_rb, &\n     &1.6124e-01_rb,9.3279e-02_rb,4.1076e-02_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &7.6818e-01_rb,6.7216e-01_rb,5.7628e-01_rb,4.8026e-01_rb,3.8431e-01_rb,2.8834e-01_rb, &\n     &1.9584e-01_rb,1.1499e-01_rb,5.5764e-02_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &8.9714e-01_rb,7.8510e-01_rb,6.7304e-01_rb,5.6095e-01_rb,4.4882e-01_rb,3.3677e-01_rb, &\n     &2.3398e-01_rb,1.3732e-01_rb,7.3695e-02_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &1.0267e+00_rb,8.9838e-01_rb,7.7018e-01_rb,6.4193e-01_rb,5.1368e-01_rb,3.8545e-01_rb, &\n     &2.7687e-01_rb,1.6073e-01_rb,9.6046e-02_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &9.0551e-01_rb,7.9235e-01_rb,6.7918e-01_rb,5.6601e-01_rb,4.5286e-01_rb,3.3967e-01_rb, &\n     &2.2649e-01_rb,1.1543e-01_rb,2.5575e-02_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &1.1369e+00_rb,9.9490e-01_rb,8.5273e-01_rb,7.1065e-01_rb,5.6855e-01_rb,4.2647e-01_rb, &\n     &2.8441e-01_rb,1.4706e-01_rb,3.6472e-02_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &1.3835e+00_rb,1.2106e+00_rb,1.0376e+00_rb,8.6468e-01_rb,6.9181e-01_rb,5.1896e-01_rb, &\n     &3.4607e-01_rb,1.8250e-01_rb,5.0201e-02_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &1.6400e+00_rb,1.4350e+00_rb,1.2302e+00_rb,1.0252e+00_rb,8.2021e-01_rb,6.1526e-01_rb, &\n     &4.1028e-01_rb,2.2034e-01_rb,6.6839e-02_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &1.9010e+00_rb,1.6635e+00_rb,1.4259e+00_rb,1.1884e+00_rb,9.5076e-01_rb,7.1323e-01_rb, &\n     &4.7563e-01_rb,2.6201e-01_rb,8.7568e-02_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &1.4399e+00_rb,1.2599e+00_rb,1.0800e+00_rb,9.0001e-01_rb,7.2000e-01_rb,5.4003e-01_rb, &\n     &3.6008e-01_rb,1.8026e-01_rb,2.1293e-02_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &1.8513e+00_rb,1.6198e+00_rb,1.3886e+00_rb,1.1570e+00_rb,9.2575e-01_rb,6.9429e-01_rb, &\n     &4.6294e-01_rb,2.3182e-01_rb,3.1128e-02_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &2.3002e+00_rb,2.0128e+00_rb,1.7253e+00_rb,1.4377e+00_rb,1.1502e+00_rb,8.6271e-01_rb, &\n     &5.7522e-01_rb,2.8786e-01_rb,4.3673e-02_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &2.7724e+00_rb,2.4259e+00_rb,2.0792e+00_rb,1.7327e+00_rb,1.3862e+00_rb,1.0398e+00_rb, &\n     &6.9321e-01_rb,3.4832e-01_rb,5.9465e-02_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &3.2575e+00_rb,2.8504e+00_rb,2.4432e+00_rb,2.0359e+00_rb,1.6288e+00_rb,1.2216e+00_rb, &\n     &8.1457e-01_rb,4.1431e-01_rb,7.8852e-02_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &2.3706e+00_rb,2.0741e+00_rb,1.7778e+00_rb,1.4816e+00_rb,1.1852e+00_rb,8.8892e-01_rb, &\n     &5.9261e-01_rb,2.9636e-01_rb,1.6814e-02_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &3.1315e+00_rb,2.7398e+00_rb,2.3484e+00_rb,1.9572e+00_rb,1.5657e+00_rb,1.1742e+00_rb, &\n     &7.8297e-01_rb,3.9150e-01_rb,2.5425e-02_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &3.9698e+00_rb,3.4734e+00_rb,2.9772e+00_rb,2.4811e+00_rb,1.9850e+00_rb,1.4887e+00_rb, &\n     &9.9245e-01_rb,4.9628e-01_rb,3.6698e-02_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &4.8729e+00_rb,4.2639e+00_rb,3.6548e+00_rb,3.0457e+00_rb,2.4366e+00_rb,1.8275e+00_rb, &\n     &1.2184e+00_rb,6.0927e-01_rb,5.1098e-02_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &5.8302e+00_rb,5.1015e+00_rb,4.3726e+00_rb,3.6438e+00_rb,2.9154e+00_rb,2.1865e+00_rb, &\n     &1.4578e+00_rb,7.2896e-01_rb,6.9201e-02_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &4.6083e+00_rb,4.0328e+00_rb,3.4566e+00_rb,2.8804e+00_rb,2.3046e+00_rb,1.7283e+00_rb, &\n     &1.1523e+00_rb,5.7615e-01_rb,1.2896e-02_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &6.2568e+00_rb,5.4739e+00_rb,4.6922e+00_rb,3.9099e+00_rb,3.1281e+00_rb,2.3461e+00_rb, &\n     &1.5641e+00_rb,7.8209e-01_rb,1.9880e-02_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &8.1358e+00_rb,7.1187e+00_rb,6.1015e+00_rb,5.0849e+00_rb,4.0679e+00_rb,3.0509e+00_rb, &\n     &2.0338e+00_rb,1.0170e+00_rb,2.9497e-02_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &1.0204e+01_rb,8.9284e+00_rb,7.6531e+00_rb,6.3773e+00_rb,5.1020e+00_rb,3.8269e+00_rb, &\n     &2.5510e+00_rb,1.2755e+00_rb,4.2115e-02_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &1.2434e+01_rb,1.0880e+01_rb,9.3260e+00_rb,7.7708e+00_rb,6.2169e+00_rb,4.6632e+00_rb, &\n     &3.1088e+00_rb,1.5543e+00_rb,5.8665e-02_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &1.6573e+01_rb,1.4502e+01_rb,1.2430e+01_rb,1.0358e+01_rb,8.2865e+00_rb,6.2149e+00_rb, &\n     &4.1429e+00_rb,2.0717e+00_rb,3.2506e-03_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &2.3241e+01_rb,2.0336e+01_rb,1.7432e+01_rb,1.4525e+01_rb,1.1622e+01_rb,8.7162e+00_rb, &\n     &5.8106e+00_rb,2.9051e+00_rb,8.0054e-03_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &3.1035e+01_rb,2.7156e+01_rb,2.3277e+01_rb,1.9396e+01_rb,1.5516e+01_rb,1.1638e+01_rb, &\n     &7.7589e+00_rb,3.8795e+00_rb,1.2478e-02_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &3.9794e+01_rb,3.4820e+01_rb,2.9846e+01_rb,2.4871e+01_rb,1.9897e+01_rb,1.4923e+01_rb, &\n     &9.9485e+00_rb,4.9745e+00_rb,2.7934e-02_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &4.9259e+01_rb,4.3099e+01_rb,3.6943e+01_rb,3.0785e+01_rb,2.4628e+01_rb,1.8472e+01_rb, &\n     &1.2315e+01_rb,6.1576e+00_rb,4.7661e-02_rb/)\n      kao(:, 1,10,12) = (/ &\n     &6.7160e+01_rb,5.8765e+01_rb,5.0369e+01_rb,4.1974e+01_rb,3.3581e+01_rb,2.5186e+01_rb, &\n     &1.6790e+01_rb,8.3953e+00_rb,3.7061e-05_rb/)\n      kao(:, 2,10,12) = (/ &\n     &9.7116e+01_rb,8.4979e+01_rb,7.2826e+01_rb,6.0693e+01_rb,4.8559e+01_rb,3.6416e+01_rb, &\n     &2.4277e+01_rb,1.2139e+01_rb,5.3890e-03_rb/)\n      kao(:, 3,10,12) = (/ &\n     &1.3274e+02_rb,1.1614e+02_rb,9.9552e+01_rb,8.2959e+01_rb,6.6370e+01_rb,4.9775e+01_rb, &\n     &3.3183e+01_rb,1.6592e+01_rb,5.5995e-03_rb/)\n      kao(:, 4,10,12) = (/ &\n     &1.7342e+02_rb,1.5174e+02_rb,1.3008e+02_rb,1.0839e+02_rb,8.6716e+01_rb,6.5036e+01_rb, &\n     &4.3354e+01_rb,2.1678e+01_rb,7.3568e-03_rb/)\n      kao(:, 5,10,12) = (/ &\n     &2.1869e+02_rb,1.9137e+02_rb,1.6402e+02_rb,1.3669e+02_rb,1.0934e+02_rb,8.2010e+01_rb, &\n     &5.4674e+01_rb,2.7339e+01_rb,1.9171e-02_rb/)\n      kao(:, 1,11,12) = (/ &\n     &1.1512e+02_rb,1.0073e+02_rb,8.6335e+01_rb,7.1940e+01_rb,5.7559e+01_rb,4.3164e+01_rb, &\n     &2.8776e+01_rb,1.4390e+01_rb,3.3905e-05_rb/)\n      kao(:, 2,11,12) = (/ &\n     &1.6697e+02_rb,1.4609e+02_rb,1.2523e+02_rb,1.0436e+02_rb,8.3482e+01_rb,6.2612e+01_rb, &\n     &4.1744e+01_rb,2.0873e+01_rb,5.9590e-05_rb/)\n      kao(:, 3,11,12) = (/ &\n     &2.2930e+02_rb,2.0064e+02_rb,1.7196e+02_rb,1.4331e+02_rb,1.1466e+02_rb,8.5994e+01_rb, &\n     &5.7327e+01_rb,2.8668e+01_rb,8.9833e-05_rb/)\n      kao(:, 4,11,12) = (/ &\n     &3.0132e+02_rb,2.6364e+02_rb,2.2598e+02_rb,1.8835e+02_rb,1.5066e+02_rb,1.1300e+02_rb, &\n     &7.5334e+01_rb,3.7671e+01_rb,8.4167e-03_rb/)\n      kao(:, 5,11,12) = (/ &\n     &3.8162e+02_rb,3.3392e+02_rb,2.8622e+02_rb,2.3853e+02_rb,1.9083e+02_rb,1.4312e+02_rb, &\n     &9.5410e+01_rb,4.7709e+01_rb,1.8161e-02_rb/)\n      kao(:, 1,12,12) = (/ &\n     &1.5129e+02_rb,1.3238e+02_rb,1.1347e+02_rb,9.4558e+01_rb,7.5645e+01_rb,5.6733e+01_rb, &\n     &3.7823e+01_rb,1.8915e+01_rb,3.6770e-05_rb/)\n      kao(:, 2,12,12) = (/ &\n     &2.2053e+02_rb,1.9297e+02_rb,1.6541e+02_rb,1.3784e+02_rb,1.1026e+02_rb,8.2702e+01_rb, &\n     &5.5137e+01_rb,2.7573e+01_rb,5.2389e-05_rb/)\n      kao(:, 3,12,12) = (/ &\n     &3.0464e+02_rb,2.6657e+02_rb,2.2849e+02_rb,1.9040e+02_rb,1.5233e+02_rb,1.1424e+02_rb, &\n     &7.6159e+01_rb,3.8090e+01_rb,7.1306e-05_rb/)\n      kao(:, 4,12,12) = (/ &\n     &4.0144e+02_rb,3.5128e+02_rb,3.0110e+02_rb,2.5092e+02_rb,2.0072e+02_rb,1.5055e+02_rb, &\n     &1.0037e+02_rb,5.0190e+01_rb,9.4766e-05_rb/)\n      kao(:, 5,12,12) = (/ &\n     &5.1041e+02_rb,4.4660e+02_rb,3.8281e+02_rb,3.1900e+02_rb,2.5521e+02_rb,1.9140e+02_rb, &\n     &1.2761e+02_rb,6.3809e+01_rb,8.9549e-03_rb/)\n      kao(:, 1,13,12) = (/ &\n     &1.6406e+02_rb,1.4356e+02_rb,1.2306e+02_rb,1.0255e+02_rb,8.2037e+01_rb,6.1534e+01_rb, &\n     &4.1023e+01_rb,2.0513e+01_rb,2.9105e-05_rb/)\n      kao(:, 2,13,12) = (/ &\n     &2.3966e+02_rb,2.0971e+02_rb,1.7976e+02_rb,1.4978e+02_rb,1.1983e+02_rb,8.9879e+01_rb, &\n     &5.9920e+01_rb,2.9966e+01_rb,3.6736e-05_rb/)\n      kao(:, 3,13,12) = (/ &\n     &3.3040e+02_rb,2.8909e+02_rb,2.4781e+02_rb,2.0651e+02_rb,1.6521e+02_rb,1.2390e+02_rb, &\n     &8.2608e+01_rb,4.1307e+01_rb,4.7139e-05_rb/)\n      kao(:, 4,13,12) = (/ &\n     &4.3608e+02_rb,3.8160e+02_rb,3.2708e+02_rb,2.7256e+02_rb,2.1804e+02_rb,1.6354e+02_rb, &\n     &1.0903e+02_rb,5.4517e+01_rb,5.9953e-05_rb/)\n      kao(:, 5,13,12) = (/ &\n     &5.5401e+02_rb,4.8478e+02_rb,4.1553e+02_rb,3.4627e+02_rb,2.7701e+02_rb,2.0776e+02_rb, &\n     &1.3851e+02_rb,6.9261e+01_rb,1.3826e-02_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &1.2490e-01_rb,1.0932e-01_rb,9.3720e-02_rb,7.8121e-02_rb,6.3794e-02_rb,5.1600e-02_rb, &\n     &4.4680e-02_rb,4.2635e-02_rb,5.5634e-02_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &1.4548e-01_rb,1.2733e-01_rb,1.0918e-01_rb,9.1021e-02_rb,7.6620e-02_rb,6.3500e-02_rb, &\n     &5.7581e-02_rb,5.7524e-02_rb,7.4793e-02_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &1.6600e-01_rb,1.4529e-01_rb,1.2460e-01_rb,1.0392e-01_rb,9.0379e-02_rb,7.8694e-02_rb, &\n     &7.4384e-02_rb,7.8232e-02_rb,9.9775e-02_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &1.8636e-01_rb,1.6314e-01_rb,1.3994e-01_rb,1.1863e-01_rb,1.0661e-01_rb,9.7110e-02_rb, &\n     &9.8012e-02_rb,1.0654e-01_rb,1.3265e-01_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &2.0606e-01_rb,1.8040e-01_rb,1.5476e-01_rb,1.3669e-01_rb,1.2405e-01_rb,1.1873e-01_rb, &\n     &1.2869e-01_rb,1.4070e-01_rb,1.7529e-01_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &1.8895e-01_rb,1.6535e-01_rb,1.4175e-01_rb,1.1814e-01_rb,9.4551e-02_rb,7.3809e-02_rb, &\n     &5.5615e-02_rb,4.4637e-02_rb,5.3030e-02_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &2.2250e-01_rb,1.9470e-01_rb,1.6692e-01_rb,1.3914e-01_rb,1.1136e-01_rb,8.8262e-02_rb, &\n     &7.0022e-02_rb,6.0363e-02_rb,7.3472e-02_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &2.5567e-01_rb,2.2376e-01_rb,1.9185e-01_rb,1.5991e-01_rb,1.3005e-01_rb,1.0599e-01_rb, &\n     &8.7655e-02_rb,7.9726e-02_rb,9.6994e-02_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &2.8747e-01_rb,2.5157e-01_rb,2.1569e-01_rb,1.7980e-01_rb,1.5083e-01_rb,1.2699e-01_rb, &\n     &1.0917e-01_rb,1.0493e-01_rb,1.2703e-01_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &3.1781e-01_rb,2.7817e-01_rb,2.3857e-01_rb,1.9898e-01_rb,1.7411e-01_rb,1.5016e-01_rb, &\n     &1.3454e-01_rb,1.3707e-01_rb,1.6656e-01_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &3.6978e-01_rb,3.2357e-01_rb,2.7737e-01_rb,2.3116e-01_rb,1.8494e-01_rb,1.3872e-01_rb, &\n     &9.4432e-02_rb,5.7465e-02_rb,4.7026e-02_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &4.3903e-01_rb,3.8415e-01_rb,3.2929e-01_rb,2.7445e-01_rb,2.1956e-01_rb,1.6470e-01_rb, &\n     &1.1482e-01_rb,7.4394e-02_rb,6.6138e-02_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &5.0855e-01_rb,4.4506e-01_rb,3.8154e-01_rb,3.1805e-01_rb,2.5451e-01_rb,1.9102e-01_rb, &\n     &1.3670e-01_rb,9.4825e-02_rb,8.9406e-02_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &5.7817e-01_rb,5.0599e-01_rb,4.3381e-01_rb,3.6166e-01_rb,2.8948e-01_rb,2.2042e-01_rb, &\n     &1.6420e-01_rb,1.1827e-01_rb,1.1730e-01_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &6.4715e-01_rb,5.6638e-01_rb,4.8566e-01_rb,4.0494e-01_rb,3.2419e-01_rb,2.5446e-01_rb, &\n     &1.9367e-01_rb,1.4612e-01_rb,1.5219e-01_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &7.1857e-01_rb,6.2877e-01_rb,5.3894e-01_rb,4.4919e-01_rb,3.5935e-01_rb,2.6957e-01_rb, &\n     &1.7976e-01_rb,9.3998e-02_rb,4.1187e-02_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &8.6835e-01_rb,7.5986e-01_rb,6.5131e-01_rb,5.4283e-01_rb,4.3435e-01_rb,3.2583e-01_rb, &\n     &2.1731e-01_rb,1.1522e-01_rb,5.8302e-02_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &1.0243e+00_rb,8.9626e-01_rb,7.6836e-01_rb,6.4035e-01_rb,5.1240e-01_rb,3.8438e-01_rb, &\n     &2.5643e-01_rb,1.3949e-01_rb,7.9878e-02_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &1.1800e+00_rb,1.0326e+00_rb,8.8512e-01_rb,7.3767e-01_rb,5.9020e-01_rb,4.4282e-01_rb, &\n     &2.9609e-01_rb,1.6997e-01_rb,1.0651e-01_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &1.3277e+00_rb,1.1619e+00_rb,9.9598e-01_rb,8.3009e-01_rb,6.6410e-01_rb,4.9823e-01_rb, &\n     &3.3917e-01_rb,2.0392e-01_rb,1.3923e-01_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &1.2769e+00_rb,1.1173e+00_rb,9.5773e-01_rb,7.9808e-01_rb,6.3854e-01_rb,4.7892e-01_rb, &\n     &3.1932e-01_rb,1.5974e-01_rb,3.6366e-02_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &1.5754e+00_rb,1.3783e+00_rb,1.1815e+00_rb,9.8457e-01_rb,7.8769e-01_rb,5.9081e-01_rb, &\n     &3.9400e-01_rb,1.9711e-01_rb,5.2068e-02_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &1.8818e+00_rb,1.6466e+00_rb,1.4114e+00_rb,1.1761e+00_rb,9.4096e-01_rb,7.0577e-01_rb, &\n     &4.7057e-01_rb,2.3659e-01_rb,7.1428e-02_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &2.1862e+00_rb,1.9130e+00_rb,1.6397e+00_rb,1.3666e+00_rb,1.0933e+00_rb,8.2000e-01_rb, &\n     &5.4672e-01_rb,2.8019e-01_rb,9.6282e-02_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &2.4918e+00_rb,2.1806e+00_rb,1.8691e+00_rb,1.5576e+00_rb,1.2460e+00_rb,9.3474e-01_rb, &\n     &6.2322e-01_rb,3.2775e-01_rb,1.2758e-01_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &2.0873e+00_rb,1.8265e+00_rb,1.5654e+00_rb,1.3046e+00_rb,1.0437e+00_rb,7.8276e-01_rb, &\n     &5.2187e-01_rb,2.6100e-01_rb,3.1022e-02_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &2.6230e+00_rb,2.2953e+00_rb,1.9673e+00_rb,1.6394e+00_rb,1.3116e+00_rb,9.8380e-01_rb, &\n     &6.5587e-01_rb,3.2796e-01_rb,4.5564e-02_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &3.1789e+00_rb,2.7816e+00_rb,2.3843e+00_rb,1.9870e+00_rb,1.5894e+00_rb,1.1921e+00_rb, &\n     &7.9481e-01_rb,3.9748e-01_rb,6.4081e-02_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &3.7665e+00_rb,3.2952e+00_rb,2.8247e+00_rb,2.3538e+00_rb,1.8832e+00_rb,1.4124e+00_rb, &\n     &9.4165e-01_rb,4.7095e-01_rb,8.7003e-02_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &4.3632e+00_rb,3.8180e+00_rb,3.2726e+00_rb,2.7273e+00_rb,2.1819e+00_rb,1.6363e+00_rb, &\n     &1.0910e+00_rb,5.4560e-01_rb,1.1609e-01_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &3.5237e+00_rb,3.0834e+00_rb,2.6428e+00_rb,2.2023e+00_rb,1.7619e+00_rb,1.3214e+00_rb, &\n     &8.8102e-01_rb,4.4047e-01_rb,2.5898e-02_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &4.5331e+00_rb,3.9665e+00_rb,3.3999e+00_rb,2.8333e+00_rb,2.2667e+00_rb,1.6999e+00_rb, &\n     &1.1334e+00_rb,5.6671e-01_rb,3.9066e-02_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &5.6378e+00_rb,4.9326e+00_rb,4.2280e+00_rb,3.5234e+00_rb,2.8189e+00_rb,2.1142e+00_rb, &\n     &1.4094e+00_rb,7.0475e-01_rb,5.6679e-02_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &6.8044e+00_rb,5.9541e+00_rb,5.1033e+00_rb,4.2525e+00_rb,3.4021e+00_rb,2.5518e+00_rb, &\n     &1.7012e+00_rb,8.5062e-01_rb,7.8214e-02_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &7.9748e+00_rb,6.9785e+00_rb,5.9814e+00_rb,4.9841e+00_rb,3.9872e+00_rb,2.9906e+00_rb, &\n     &1.9939e+00_rb,9.9695e-01_rb,1.0573e-01_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &7.0539e+00_rb,6.1726e+00_rb,5.2906e+00_rb,4.4088e+00_rb,3.5267e+00_rb,2.6453e+00_rb, &\n     &1.7634e+00_rb,8.8179e-01_rb,2.1249e-02_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &9.3702e+00_rb,8.1985e+00_rb,7.0273e+00_rb,5.8560e+00_rb,4.6849e+00_rb,3.5137e+00_rb, &\n     &2.3424e+00_rb,1.1713e+00_rb,3.3095e-02_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &1.1943e+01_rb,1.0450e+01_rb,8.9569e+00_rb,7.4646e+00_rb,5.9714e+00_rb,4.4785e+00_rb, &\n     &2.9858e+00_rb,1.4929e+00_rb,4.9465e-02_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &1.4646e+01_rb,1.2815e+01_rb,1.0984e+01_rb,9.1536e+00_rb,7.3228e+00_rb,5.4925e+00_rb, &\n     &3.6616e+00_rb,1.8307e+00_rb,7.0099e-02_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &1.7489e+01_rb,1.5303e+01_rb,1.3117e+01_rb,1.0930e+01_rb,8.7446e+00_rb,6.5589e+00_rb, &\n     &4.3724e+00_rb,2.1863e+00_rb,9.5981e-02_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &2.6371e+01_rb,2.3078e+01_rb,1.9780e+01_rb,1.6484e+01_rb,1.3187e+01_rb,9.8900e+00_rb, &\n     &6.5930e+00_rb,3.2967e+00_rb,6.8943e-03_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &3.6211e+01_rb,3.1684e+01_rb,2.7158e+01_rb,2.2631e+01_rb,1.8105e+01_rb,1.3579e+01_rb, &\n     &9.0530e+00_rb,4.5262e+00_rb,1.7485e-02_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &4.7281e+01_rb,4.1374e+01_rb,3.5462e+01_rb,2.9549e+01_rb,2.3642e+01_rb,1.7731e+01_rb, &\n     &1.1820e+01_rb,5.9103e+00_rb,4.0011e-02_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &5.9381e+01_rb,5.1957e+01_rb,4.4537e+01_rb,3.7114e+01_rb,2.9690e+01_rb,2.2267e+01_rb, &\n     &1.4846e+01_rb,7.4229e+00_rb,6.1300e-02_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &7.2474e+01_rb,6.3419e+01_rb,5.4356e+01_rb,4.5296e+01_rb,3.6239e+01_rb,2.7178e+01_rb, &\n     &1.8119e+01_rb,9.0595e+00_rb,8.5682e-02_rb/)\n      kao(:, 1,10,13) = (/ &\n     &1.1184e+02_rb,9.7849e+01_rb,8.3875e+01_rb,6.9894e+01_rb,5.5915e+01_rb,4.1936e+01_rb, &\n     &2.7957e+01_rb,1.3979e+01_rb,1.8093e-05_rb/)\n      kao(:, 2,10,13) = (/ &\n     &1.5816e+02_rb,1.3839e+02_rb,1.1862e+02_rb,9.8846e+01_rb,7.9081e+01_rb,5.9311e+01_rb, &\n     &3.9538e+01_rb,1.9769e+01_rb,2.0368e-03_rb/)\n      kao(:, 3,10,13) = (/ &\n     &2.1176e+02_rb,1.8530e+02_rb,1.5882e+02_rb,1.3236e+02_rb,1.0588e+02_rb,7.9412e+01_rb, &\n     &5.2940e+01_rb,2.6470e+01_rb,1.0379e-02_rb/)\n      kao(:, 4,10,13) = (/ &\n     &2.7234e+02_rb,2.3829e+02_rb,2.0425e+02_rb,1.7021e+02_rb,1.3616e+02_rb,1.0213e+02_rb, &\n     &6.8082e+01_rb,3.4042e+01_rb,8.3550e-03_rb/)\n      kao(:, 5,10,13) = (/ &\n     &3.3838e+02_rb,2.9608e+02_rb,2.5378e+02_rb,2.1148e+02_rb,1.6919e+02_rb,1.2688e+02_rb, &\n     &8.4588e+01_rb,4.2296e+01_rb,2.4237e-02_rb/)\n      kao(:, 1,11,13) = (/ &\n     &1.9607e+02_rb,1.7156e+02_rb,1.4706e+02_rb,1.2254e+02_rb,9.8035e+01_rb,7.3528e+01_rb, &\n     &4.9019e+01_rb,2.4510e+01_rb,1.9563e-05_rb/)\n      kao(:, 2,11,13) = (/ &\n     &2.7783e+02_rb,2.4308e+02_rb,2.0836e+02_rb,1.7363e+02_rb,1.3891e+02_rb,1.0418e+02_rb, &\n     &6.9451e+01_rb,3.4727e+01_rb,2.1737e-05_rb/)\n      kao(:, 3,11,13) = (/ &\n     &3.7392e+02_rb,3.2720e+02_rb,2.8047e+02_rb,2.3371e+02_rb,1.8697e+02_rb,1.4023e+02_rb, &\n     &9.3485e+01_rb,4.6744e+01_rb,2.8098e-05_rb/)\n      kao(:, 4,11,13) = (/ &\n     &4.8258e+02_rb,4.2223e+02_rb,3.6194e+02_rb,3.0162e+02_rb,2.4128e+02_rb,1.8096e+02_rb, &\n     &1.2064e+02_rb,6.0325e+01_rb,6.2823e-03_rb/)\n      kao(:, 5,11,13) = (/ &\n     &6.0149e+02_rb,5.2626e+02_rb,4.5111e+02_rb,3.7591e+02_rb,3.0076e+02_rb,2.2554e+02_rb, &\n     &1.5037e+02_rb,7.5184e+01_rb,1.4409e-02_rb/)\n      kao(:, 1,12,13) = (/ &\n     &2.5475e+02_rb,2.2289e+02_rb,1.9106e+02_rb,1.5923e+02_rb,1.2737e+02_rb,9.5526e+01_rb, &\n     &6.3684e+01_rb,3.1843e+01_rb,2.0642e-05_rb/)\n      kao(:, 2,12,13) = (/ &\n     &3.6233e+02_rb,3.1704e+02_rb,2.7175e+02_rb,2.2647e+02_rb,1.8117e+02_rb,1.3587e+02_rb, &\n     &9.0584e+01_rb,4.5292e+01_rb,3.1983e-05_rb/)\n      kao(:, 3,12,13) = (/ &\n     &4.8916e+02_rb,4.2803e+02_rb,3.6684e+02_rb,3.0571e+02_rb,2.4456e+02_rb,1.8343e+02_rb, &\n     &1.2228e+02_rb,6.1143e+01_rb,4.9821e-05_rb/)\n      kao(:, 4,12,13) = (/ &\n     &6.3314e+02_rb,5.5397e+02_rb,4.7487e+02_rb,3.9571e+02_rb,3.1654e+02_rb,2.3742e+02_rb, &\n     &1.5828e+02_rb,7.9139e+01_rb,7.0156e-05_rb/)\n      kao(:, 5,12,13) = (/ &\n     &7.9128e+02_rb,6.9231e+02_rb,5.9347e+02_rb,4.9456e+02_rb,3.9565e+02_rb,2.9675e+02_rb, &\n     &1.9782e+02_rb,9.8911e+01_rb,2.0440e-02_rb/)\n      kao(:, 1,13,13) = (/ &\n     &2.6423e+02_rb,2.3120e+02_rb,1.9817e+02_rb,1.6514e+02_rb,1.3211e+02_rb,9.9077e+01_rb, &\n     &6.6055e+01_rb,3.3026e+01_rb,2.0316e-05_rb/)\n      kao(:, 2,13,13) = (/ &\n     &3.7762e+02_rb,3.3041e+02_rb,2.8322e+02_rb,2.3600e+02_rb,1.8882e+02_rb,1.4161e+02_rb, &\n     &9.4405e+01_rb,4.7199e+01_rb,3.9220e-05_rb/)\n      kao(:, 3,13,13) = (/ &\n     &5.1221e+02_rb,4.4817e+02_rb,3.8414e+02_rb,3.2014e+02_rb,2.5611e+02_rb,1.9208e+02_rb, &\n     &1.2806e+02_rb,6.4027e+01_rb,5.9611e-05_rb/)\n      kao(:, 4,13,13) = (/ &\n     &6.6615e+02_rb,5.8290e+02_rb,4.9961e+02_rb,4.1636e+02_rb,3.3309e+02_rb,2.4982e+02_rb, &\n     &1.6655e+02_rb,8.3275e+01_rb,8.3600e-05_rb/)\n      kao(:, 5,13,13) = (/ &\n     &8.3847e+02_rb,7.3367e+02_rb,6.2884e+02_rb,5.2405e+02_rb,4.1925e+02_rb,3.1441e+02_rb, &\n     &2.0962e+02_rb,1.0481e+02_rb,8.6814e-03_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &1.4546e-01_rb,1.2729e-01_rb,1.0913e-01_rb,9.0969e-02_rb,7.2816e-02_rb,6.3783e-02_rb, &\n     &5.7732e-02_rb,5.8710e-02_rb,8.0301e-02_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &1.6927e-01_rb,1.4814e-01_rb,1.2702e-01_rb,1.0589e-01_rb,8.6710e-02_rb,8.1091e-02_rb, &\n     &8.1369e-02_rb,8.2706e-02_rb,1.1649e-01_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &1.9294e-01_rb,1.6889e-01_rb,1.4479e-01_rb,1.2072e-01_rb,1.0647e-01_rb,1.0625e-01_rb, &\n     &1.1521e-01_rb,1.1490e-01_rb,1.6620e-01_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &2.1639e-01_rb,1.8940e-01_rb,1.6240e-01_rb,1.3541e-01_rb,1.3447e-01_rb,1.4239e-01_rb, &\n     &1.5920e-01_rb,1.5808e-01_rb,2.2919e-01_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &2.3882e-01_rb,2.0905e-01_rb,1.7929e-01_rb,1.5673e-01_rb,1.6730e-01_rb,1.8853e-01_rb, &\n     &2.1227e-01_rb,2.1249e-01_rb,3.0359e-01_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &2.2939e-01_rb,2.0073e-01_rb,1.7206e-01_rb,1.4339e-01_rb,1.1475e-01_rb,8.6951e-02_rb, &\n     &7.2184e-02_rb,6.3155e-02_rb,8.0463e-02_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &2.6931e-01_rb,2.3569e-01_rb,2.0200e-01_rb,1.6840e-01_rb,1.3475e-01_rb,1.0880e-01_rb, &\n     &9.2729e-02_rb,8.6720e-02_rb,1.1351e-01_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &3.0958e-01_rb,2.7100e-01_rb,2.3236e-01_rb,1.9370e-01_rb,1.5506e-01_rb,1.3547e-01_rb, &\n     &1.2355e-01_rb,1.2394e-01_rb,1.6330e-01_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &3.5073e-01_rb,3.0694e-01_rb,2.6319e-01_rb,2.1943e-01_rb,1.7928e-01_rb,1.7126e-01_rb, &\n     &1.6643e-01_rb,1.7360e-01_rb,2.2783e-01_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &3.9134e-01_rb,3.4248e-01_rb,2.9368e-01_rb,2.4496e-01_rb,2.1593e-01_rb,2.1367e-01_rb, &\n     &2.2253e-01_rb,2.3537e-01_rb,3.0544e-01_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &4.7010e-01_rb,4.1135e-01_rb,3.5261e-01_rb,2.9387e-01_rb,2.3512e-01_rb,1.7638e-01_rb, &\n     &1.1764e-01_rb,7.8616e-02_rb,7.6241e-02_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &5.6247e-01_rb,4.9221e-01_rb,4.2195e-01_rb,3.5165e-01_rb,2.8136e-01_rb,2.1111e-01_rb, &\n     &1.4480e-01_rb,1.0039e-01_rb,1.0523e-01_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &6.5749e-01_rb,5.7537e-01_rb,4.9319e-01_rb,4.1105e-01_rb,3.2895e-01_rb,2.4684e-01_rb, &\n     &1.7889e-01_rb,1.3157e-01_rb,1.4752e-01_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &7.5292e-01_rb,6.5895e-01_rb,5.6476e-01_rb,4.7081e-01_rb,3.7678e-01_rb,2.8272e-01_rb, &\n     &2.2206e-01_rb,1.7756e-01_rb,2.0769e-01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &8.4721e-01_rb,7.4147e-01_rb,6.3570e-01_rb,5.2989e-01_rb,4.2402e-01_rb,3.2414e-01_rb, &\n     &2.7831e-01_rb,2.3784e-01_rb,2.8406e-01_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &9.7171e-01_rb,8.5020e-01_rb,7.2877e-01_rb,6.0734e-01_rb,4.8590e-01_rb,3.6445e-01_rb, &\n     &2.4301e-01_rb,1.2213e-01_rb,6.9724e-02_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &1.1819e+00_rb,1.0342e+00_rb,8.8647e-01_rb,7.3863e-01_rb,5.9101e-01_rb,4.4338e-01_rb, &\n     &2.9560e-01_rb,1.5522e-01_rb,9.6103e-02_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &1.3997e+00_rb,1.2249e+00_rb,1.0500e+00_rb,8.7515e-01_rb,7.0004e-01_rb,5.2502e-01_rb, &\n     &3.5022e-01_rb,1.9543e-01_rb,1.3302e-01_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &1.6223e+00_rb,1.4197e+00_rb,1.2167e+00_rb,1.0141e+00_rb,8.1148e-01_rb,6.0893e-01_rb, &\n     &4.0620e-01_rb,2.4484e-01_rb,1.8472e-01_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &1.8526e+00_rb,1.6213e+00_rb,1.3899e+00_rb,1.1585e+00_rb,9.2711e-01_rb,6.9563e-01_rb, &\n     &4.6462e-01_rb,3.0719e-01_rb,2.5304e-01_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &1.8192e+00_rb,1.5916e+00_rb,1.3645e+00_rb,1.1369e+00_rb,9.0965e-01_rb,6.8222e-01_rb, &\n     &4.5478e-01_rb,2.2743e-01_rb,6.1385e-02_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &2.2491e+00_rb,1.9677e+00_rb,1.6869e+00_rb,1.4056e+00_rb,1.1246e+00_rb,8.4332e-01_rb, &\n     &5.6233e-01_rb,2.8119e-01_rb,8.6006e-02_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &2.7102e+00_rb,2.3722e+00_rb,2.0328e+00_rb,1.6939e+00_rb,1.3553e+00_rb,1.0165e+00_rb, &\n     &6.7791e-01_rb,3.3919e-01_rb,1.2062e-01_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &3.1976e+00_rb,2.7982e+00_rb,2.3984e+00_rb,1.9988e+00_rb,1.5996e+00_rb,1.1997e+00_rb, &\n     &8.0003e-01_rb,4.0180e-01_rb,1.6649e-01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &3.6973e+00_rb,3.2349e+00_rb,2.7730e+00_rb,2.3110e+00_rb,1.8489e+00_rb,1.3873e+00_rb, &\n     &9.2506e-01_rb,4.7326e-01_rb,2.2654e-01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &3.1019e+00_rb,2.7140e+00_rb,2.3265e+00_rb,1.9387e+00_rb,1.5510e+00_rb,1.1633e+00_rb, &\n     &7.7552e-01_rb,3.8777e-01_rb,5.2928e-02_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &3.9302e+00_rb,3.4386e+00_rb,2.9473e+00_rb,2.4561e+00_rb,1.9652e+00_rb,1.4738e+00_rb, &\n     &9.8267e-01_rb,4.9148e-01_rb,7.5058e-02_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &4.8343e+00_rb,4.2298e+00_rb,3.6258e+00_rb,3.0217e+00_rb,2.4174e+00_rb,1.8133e+00_rb, &\n     &1.2090e+00_rb,6.0467e-01_rb,1.0698e-01_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &5.7912e+00_rb,5.0677e+00_rb,4.3433e+00_rb,3.6195e+00_rb,2.8961e+00_rb,2.1723e+00_rb, &\n     &1.4483e+00_rb,7.2440e-01_rb,1.4901e-01_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &6.7811e+00_rb,5.9338e+00_rb,5.0864e+00_rb,4.2388e+00_rb,3.3910e+00_rb,2.5430e+00_rb, &\n     &1.6957e+00_rb,8.4831e-01_rb,2.0161e-01_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &5.4638e+00_rb,4.7799e+00_rb,4.0972e+00_rb,3.4147e+00_rb,2.7314e+00_rb,2.0488e+00_rb, &\n     &1.3659e+00_rb,6.8294e-01_rb,4.5673e-02_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &7.1063e+00_rb,6.2177e+00_rb,5.3292e+00_rb,4.4410e+00_rb,3.5530e+00_rb,2.6647e+00_rb, &\n     &1.7765e+00_rb,8.8835e-01_rb,6.5608e-02_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &8.9165e+00_rb,7.8008e+00_rb,6.6867e+00_rb,5.5727e+00_rb,4.4582e+00_rb,3.3435e+00_rb, &\n     &2.2293e+00_rb,1.1147e+00_rb,9.3558e-02_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &1.0858e+01_rb,9.5015e+00_rb,8.1441e+00_rb,6.7868e+00_rb,5.4291e+00_rb,4.0729e+00_rb, &\n     &2.7150e+00_rb,1.3577e+00_rb,1.3310e-01_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &1.2930e+01_rb,1.1317e+01_rb,9.6983e+00_rb,8.0819e+00_rb,6.4667e+00_rb,4.8496e+00_rb, &\n     &3.2333e+00_rb,1.6168e+00_rb,1.8236e-01_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &1.1346e+01_rb,9.9283e+00_rb,8.5084e+00_rb,7.0912e+00_rb,5.6732e+00_rb,4.2544e+00_rb, &\n     &2.8362e+00_rb,1.4181e+00_rb,3.9157e-02_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &1.5150e+01_rb,1.3257e+01_rb,1.1363e+01_rb,9.4692e+00_rb,7.5753e+00_rb,5.6816e+00_rb, &\n     &3.7878e+00_rb,1.8940e+00_rb,5.7302e-02_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &1.9415e+01_rb,1.6989e+01_rb,1.4562e+01_rb,1.2134e+01_rb,9.7069e+00_rb,7.2806e+00_rb, &\n     &4.8539e+00_rb,2.4270e+00_rb,8.2333e-02_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &2.4092e+01_rb,2.1079e+01_rb,1.8070e+01_rb,1.5059e+01_rb,1.2046e+01_rb,9.0355e+00_rb, &\n     &6.0239e+00_rb,3.0117e+00_rb,1.1787e-01_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &2.9062e+01_rb,2.5429e+01_rb,2.1796e+01_rb,1.8164e+01_rb,1.4531e+01_rb,1.0899e+01_rb, &\n     &7.2663e+00_rb,3.6329e+00_rb,1.6482e-01_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &4.3556e+01_rb,3.8120e+01_rb,3.2674e+01_rb,2.7224e+01_rb,2.1783e+01_rb,1.6334e+01_rb, &\n     &1.0888e+01_rb,5.4440e+00_rb,2.2652e-02_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &5.9826e+01_rb,5.2350e+01_rb,4.4870e+01_rb,3.7394e+01_rb,2.9916e+01_rb,2.2436e+01_rb, &\n     &1.4957e+01_rb,7.4785e+00_rb,4.6893e-02_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &7.8381e+01_rb,6.8585e+01_rb,5.8789e+01_rb,4.8993e+01_rb,3.9194e+01_rb,2.9396e+01_rb, &\n     &1.9597e+01_rb,9.7990e+00_rb,7.2210e-02_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &9.9048e+01_rb,8.6676e+01_rb,7.4294e+01_rb,6.1915e+01_rb,4.9526e+01_rb,3.7147e+01_rb, &\n     &2.4767e+01_rb,1.2383e+01_rb,1.0452e-01_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &1.2130e+02_rb,1.0614e+02_rb,9.0980e+01_rb,7.5818e+01_rb,6.0656e+01_rb,4.5493e+01_rb, &\n     &3.0327e+01_rb,1.5163e+01_rb,1.4798e-01_rb/)\n      kao(:, 1,10,14) = (/ &\n     &1.8821e+02_rb,1.6469e+02_rb,1.4116e+02_rb,1.1763e+02_rb,9.4105e+01_rb,7.0580e+01_rb, &\n     &4.7054e+01_rb,2.3527e+01_rb,9.8284e-06_rb/)\n      kao(:, 2,10,14) = (/ &\n     &2.6476e+02_rb,2.3166e+02_rb,1.9858e+02_rb,1.6548e+02_rb,1.3239e+02_rb,9.9294e+01_rb, &\n     &6.6189e+01_rb,3.3094e+01_rb,1.2967e-05_rb/)\n      kao(:, 3,10,14) = (/ &\n     &3.5496e+02_rb,3.1059e+02_rb,2.6621e+02_rb,2.2185e+02_rb,1.7748e+02_rb,1.3310e+02_rb, &\n     &8.8736e+01_rb,4.4370e+01_rb,2.4344e-02_rb/)\n      kao(:, 4,10,14) = (/ &\n     &4.5706e+02_rb,3.9992e+02_rb,3.4280e+02_rb,2.8566e+02_rb,2.2852e+02_rb,1.7137e+02_rb, &\n     &1.1427e+02_rb,5.7136e+01_rb,2.2864e-02_rb/)\n      kao(:, 5,10,14) = (/ &\n     &5.6918e+02_rb,4.9801e+02_rb,4.2687e+02_rb,3.5573e+02_rb,2.8459e+02_rb,2.1346e+02_rb, &\n     &1.4231e+02_rb,7.1148e+01_rb,3.1037e-02_rb/)\n      kao(:, 1,11,14) = (/ &\n     &3.3285e+02_rb,2.9123e+02_rb,2.4962e+02_rb,2.0803e+02_rb,1.6643e+02_rb,1.2482e+02_rb, &\n     &8.3209e+01_rb,4.1605e+01_rb,7.6787e-06_rb/)\n      kao(:, 2,11,14) = (/ &\n     &4.7091e+02_rb,4.1207e+02_rb,3.5320e+02_rb,2.9434e+02_rb,2.3549e+02_rb,1.7660e+02_rb, &\n     &1.1774e+02_rb,5.8871e+01_rb,1.2053e-05_rb/)\n      kao(:, 3,11,14) = (/ &\n     &6.3434e+02_rb,5.5505e+02_rb,4.7579e+02_rb,3.9648e+02_rb,3.1719e+02_rb,2.3787e+02_rb, &\n     &1.5859e+02_rb,7.9298e+01_rb,1.7979e-05_rb/)\n      kao(:, 4,11,14) = (/ &\n     &8.2080e+02_rb,7.1819e+02_rb,6.1562e+02_rb,5.1300e+02_rb,4.1039e+02_rb,3.0781e+02_rb, &\n     &2.0518e+02_rb,1.0261e+02_rb,2.6043e-05_rb/)\n      kao(:, 5,11,14) = (/ &\n     &1.0279e+03_rb,8.9936e+02_rb,7.7089e+02_rb,6.4243e+02_rb,5.1399e+02_rb,3.8545e+02_rb, &\n     &2.5700e+02_rb,1.2849e+02_rb,3.6811e-02_rb/)\n      kao(:, 1,12,14) = (/ &\n     &4.4072e+02_rb,3.8565e+02_rb,3.3056e+02_rb,2.7546e+02_rb,2.2036e+02_rb,1.6527e+02_rb, &\n     &1.1018e+02_rb,5.5100e+01_rb,6.3836e-06_rb/)\n      kao(:, 2,12,14) = (/ &\n     &6.2804e+02_rb,5.4949e+02_rb,4.7103e+02_rb,3.9252e+02_rb,3.1400e+02_rb,2.3550e+02_rb, &\n     &1.5700e+02_rb,7.8501e+01_rb,1.0354e-05_rb/)\n      kao(:, 3,12,14) = (/ &\n     &8.4964e+02_rb,7.4346e+02_rb,6.3726e+02_rb,5.3106e+02_rb,4.2484e+02_rb,3.1862e+02_rb, &\n     &2.1241e+02_rb,1.0621e+02_rb,1.6673e-05_rb/)\n      kao(:, 4,12,14) = (/ &\n     &1.1033e+03_rb,9.6532e+02_rb,8.2745e+02_rb,6.8953e+02_rb,5.5162e+02_rb,4.1376e+02_rb, &\n     &2.7582e+02_rb,1.3790e+02_rb,2.5500e-05_rb/)\n      kao(:, 5,12,14) = (/ &\n     &1.3847e+03_rb,1.2117e+03_rb,1.0386e+03_rb,8.6544e+02_rb,6.9241e+02_rb,5.1925e+02_rb, &\n     &3.4620e+02_rb,1.7310e+02_rb,3.8579e-05_rb/)\n      kao(:, 1,13,14) = (/ &\n     &4.7310e+02_rb,4.1397e+02_rb,3.5483e+02_rb,2.9569e+02_rb,2.3655e+02_rb,1.7741e+02_rb, &\n     &1.1827e+02_rb,5.9135e+01_rb,7.3062e-06_rb/)\n      kao(:, 2,13,14) = (/ &\n     &6.7569e+02_rb,5.9130e+02_rb,5.0679e+02_rb,4.2232e+02_rb,3.3786e+02_rb,2.5340e+02_rb, &\n     &1.6892e+02_rb,8.4465e+01_rb,8.6740e-06_rb/)\n      kao(:, 3,13,14) = (/ &\n     &9.1788e+02_rb,8.0315e+02_rb,6.8841e+02_rb,5.7369e+02_rb,4.5893e+02_rb,3.4424e+02_rb, &\n     &2.2946e+02_rb,1.1474e+02_rb,1.3663e-05_rb/)\n      kao(:, 4,13,14) = (/ &\n     &1.1975e+03_rb,1.0479e+03_rb,8.9816e+02_rb,7.4843e+02_rb,5.9874e+02_rb,4.4905e+02_rb, &\n     &2.9938e+02_rb,1.4969e+02_rb,2.1412e-05_rb/)\n      kao(:, 5,13,14) = (/ &\n     &1.5101e+03_rb,1.3214e+03_rb,1.1326e+03_rb,9.4376e+02_rb,7.5504e+02_rb,5.6626e+02_rb, &\n     &3.7752e+02_rb,1.8876e+02_rb,3.3615e-05_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &1.9051e-01_rb,1.6674e-01_rb,1.4292e-01_rb,1.1918e-01_rb,9.5396e-02_rb,7.5613e-02_rb, &\n     &8.0457e-02_rb,7.8890e-02_rb,1.1694e-01_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &2.2168e-01_rb,1.9400e-01_rb,1.6634e-01_rb,1.3865e-01_rb,1.1100e-01_rb,1.0009e-01_rb, &\n     &1.1113e-01_rb,1.0913e-01_rb,1.6166e-01_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &2.5284e-01_rb,2.2130e-01_rb,1.8975e-01_rb,1.5816e-01_rb,1.2778e-01_rb,1.3319e-01_rb, &\n     &1.4805e-01_rb,1.4559e-01_rb,2.1625e-01_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &2.8343e-01_rb,2.4807e-01_rb,2.1270e-01_rb,1.7731e-01_rb,1.5213e-01_rb,1.7480e-01_rb, &\n     &1.9314e-01_rb,1.8830e-01_rb,2.8691e-01_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &3.1350e-01_rb,2.7439e-01_rb,2.3527e-01_rb,1.9622e-01_rb,1.9594e-01_rb,2.3135e-01_rb, &\n     &2.5307e-01_rb,2.4156e-01_rb,3.8082e-01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &3.2111e-01_rb,2.8102e-01_rb,2.4090e-01_rb,2.0079e-01_rb,1.6069e-01_rb,1.2054e-01_rb, &\n     &9.0034e-02_rb,8.9831e-02_rb,1.2243e-01_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &3.7636e-01_rb,3.2926e-01_rb,2.8226e-01_rb,2.3534e-01_rb,1.8831e-01_rb,1.4126e-01_rb, &\n     &1.2281e-01_rb,1.2620e-01_rb,1.7187e-01_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &4.3275e-01_rb,3.7860e-01_rb,3.2463e-01_rb,2.7055e-01_rb,2.1650e-01_rb,1.6706e-01_rb, &\n     &1.6578e-01_rb,1.7060e-01_rb,2.3384e-01_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &4.8952e-01_rb,4.2824e-01_rb,3.6725e-01_rb,3.0597e-01_rb,2.4488e-01_rb,2.0300e-01_rb, &\n     &2.2012e-01_rb,2.2396e-01_rb,3.1375e-01_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &5.4581e-01_rb,4.7748e-01_rb,4.0943e-01_rb,3.4119e-01_rb,2.7312e-01_rb,2.6005e-01_rb, &\n     &2.9166e-01_rb,2.9212e-01_rb,4.1866e-01_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &6.9979e-01_rb,6.1213e-01_rb,5.2483e-01_rb,4.3719e-01_rb,3.4984e-01_rb,2.6243e-01_rb, &\n     &1.7501e-01_rb,9.9676e-02_rb,1.1688e-01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &8.3387e-01_rb,7.2959e-01_rb,6.2545e-01_rb,5.2112e-01_rb,4.1694e-01_rb,3.1278e-01_rb, &\n     &2.0862e-01_rb,1.3660e-01_rb,1.6827e-01_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &9.7266e-01_rb,8.5098e-01_rb,7.2958e-01_rb,6.0802e-01_rb,4.8655e-01_rb,3.6492e-01_rb, &\n     &2.4335e-01_rb,1.8790e-01_rb,2.3450e-01_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &1.1134e+00_rb,9.7421e-01_rb,8.3530e-01_rb,6.9606e-01_rb,5.5697e-01_rb,4.1779e-01_rb, &\n     &2.8251e-01_rb,2.5378e-01_rb,3.2011e-01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &1.2541e+00_rb,1.0974e+00_rb,9.4084e-01_rb,7.8396e-01_rb,6.2738e-01_rb,4.7061e-01_rb, &\n     &3.3812e-01_rb,3.3805e-01_rb,4.3341e-01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &1.5338e+00_rb,1.3422e+00_rb,1.1503e+00_rb,9.5870e-01_rb,7.6686e-01_rb,5.7527e-01_rb, &\n     &3.8351e-01_rb,1.9180e-01_rb,1.0723e-01_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &1.8631e+00_rb,1.6302e+00_rb,1.3974e+00_rb,1.1644e+00_rb,9.3180e-01_rb,6.9872e-01_rb, &\n     &4.6589e-01_rb,2.3301e-01_rb,1.5610e-01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &2.2077e+00_rb,1.9315e+00_rb,1.6557e+00_rb,1.3803e+00_rb,1.1039e+00_rb,8.2801e-01_rb, &\n     &5.5191e-01_rb,2.7612e-01_rb,2.2377e-01_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &2.5609e+00_rb,2.2407e+00_rb,1.9209e+00_rb,1.6005e+00_rb,1.2804e+00_rb,9.6050e-01_rb, &\n     &6.4039e-01_rb,3.2615e-01_rb,3.1195e-01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &2.9154e+00_rb,2.5514e+00_rb,2.1867e+00_rb,1.8223e+00_rb,1.4581e+00_rb,1.0937e+00_rb, &\n     &7.2913e-01_rb,3.9607e-01_rb,4.2846e-01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &3.0736e+00_rb,2.6896e+00_rb,2.3057e+00_rb,1.9212e+00_rb,1.5370e+00_rb,1.1527e+00_rb, &\n     &7.6854e-01_rb,3.8431e-01_rb,1.0147e-01_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &3.8075e+00_rb,3.3314e+00_rb,2.8555e+00_rb,2.3797e+00_rb,1.9037e+00_rb,1.4279e+00_rb, &\n     &9.5192e-01_rb,4.7599e-01_rb,1.4471e-01_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &4.5849e+00_rb,4.0117e+00_rb,3.4370e+00_rb,2.8652e+00_rb,2.2919e+00_rb,1.7190e+00_rb, &\n     &1.1462e+00_rb,5.7315e-01_rb,2.0749e-01_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &5.3872e+00_rb,4.7143e+00_rb,4.0418e+00_rb,3.3672e+00_rb,2.6939e+00_rb,2.0205e+00_rb, &\n     &1.3469e+00_rb,6.7361e-01_rb,2.9614e-01_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &6.2028e+00_rb,5.4263e+00_rb,4.6517e+00_rb,3.8766e+00_rb,3.1014e+00_rb,2.3260e+00_rb, &\n     &1.5507e+00_rb,7.7527e-01_rb,4.1447e-01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &5.6666e+00_rb,4.9583e+00_rb,4.2496e+00_rb,3.5417e+00_rb,2.8332e+00_rb,2.1246e+00_rb, &\n     &1.4165e+00_rb,7.0837e-01_rb,9.5689e-02_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &7.1702e+00_rb,6.2735e+00_rb,5.3788e+00_rb,4.4810e+00_rb,3.5859e+00_rb,2.6888e+00_rb, &\n     &1.7925e+00_rb,8.9634e-01_rb,1.3582e-01_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &8.7850e+00_rb,7.6873e+00_rb,6.5880e+00_rb,5.4902e+00_rb,4.3923e+00_rb,3.2943e+00_rb, &\n     &2.1960e+00_rb,1.0981e+00_rb,1.9014e-01_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &1.0471e+01_rb,9.1623e+00_rb,7.8537e+00_rb,6.5443e+00_rb,5.2362e+00_rb,3.9265e+00_rb, &\n     &2.6173e+00_rb,1.3091e+00_rb,2.7084e-01_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &1.2195e+01_rb,1.0670e+01_rb,9.1465e+00_rb,7.6219e+00_rb,6.0976e+00_rb,4.5729e+00_rb, &\n     &3.0483e+00_rb,1.5247e+00_rb,3.8788e-01_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &1.0821e+01_rb,9.4694e+00_rb,8.1159e+00_rb,6.7641e+00_rb,5.4109e+00_rb,4.0578e+00_rb, &\n     &2.7049e+00_rb,1.3527e+00_rb,8.8090e-02_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &1.4005e+01_rb,1.2256e+01_rb,1.0505e+01_rb,8.7544e+00_rb,7.0039e+00_rb,5.2527e+00_rb, &\n     &3.5019e+00_rb,1.7510e+00_rb,1.2836e-01_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &1.7472e+01_rb,1.5288e+01_rb,1.3104e+01_rb,1.0920e+01_rb,8.7370e+00_rb,6.5526e+00_rb, &\n     &4.3682e+00_rb,2.1842e+00_rb,1.7912e-01_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &2.1133e+01_rb,1.8491e+01_rb,1.5850e+01_rb,1.3209e+01_rb,1.0568e+01_rb,7.9265e+00_rb, &\n     &5.2835e+00_rb,2.6416e+00_rb,2.4968e-01_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &2.4946e+01_rb,2.1829e+01_rb,1.8712e+01_rb,1.5594e+01_rb,1.2475e+01_rb,9.3563e+00_rb, &\n     &6.2369e+00_rb,3.1183e+00_rb,3.5418e-01_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &2.4402e+01_rb,2.1362e+01_rb,1.8302e+01_rb,1.5253e+01_rb,1.2203e+01_rb,9.1488e+00_rb, &\n     &6.1012e+00_rb,3.0503e+00_rb,8.0172e-02_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &3.2338e+01_rb,2.8299e+01_rb,2.4254e+01_rb,2.0211e+01_rb,1.6168e+01_rb,1.2127e+01_rb, &\n     &8.0850e+00_rb,4.0423e+00_rb,1.1917e-01_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &4.1117e+01_rb,3.5977e+01_rb,3.0837e+01_rb,2.5703e+01_rb,2.0563e+01_rb,1.5418e+01_rb, &\n     &1.0280e+01_rb,5.1397e+00_rb,1.6937e-01_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &5.0705e+01_rb,4.4368e+01_rb,3.8026e+01_rb,3.1698e+01_rb,2.5350e+01_rb,1.9014e+01_rb, &\n     &1.2673e+01_rb,6.3384e+00_rb,2.3470e-01_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &6.0900e+01_rb,5.3282e+01_rb,4.5673e+01_rb,3.8064e+01_rb,3.0449e+01_rb,2.2835e+01_rb, &\n     &1.5224e+01_rb,7.6126e+00_rb,3.2704e-01_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &1.0170e+02_rb,8.8996e+01_rb,7.6286e+01_rb,6.3569e+01_rb,5.0854e+01_rb,3.8145e+01_rb, &\n     &2.5429e+01_rb,1.2713e+01_rb,7.1359e-02_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &1.3845e+02_rb,1.2114e+02_rb,1.0384e+02_rb,8.6532e+01_rb,6.9224e+01_rb,5.1921e+01_rb, &\n     &3.4611e+01_rb,1.7307e+01_rb,1.0767e-01_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &1.8073e+02_rb,1.5810e+02_rb,1.3551e+02_rb,1.1293e+02_rb,9.0345e+01_rb,6.7755e+01_rb, &\n     &4.5176e+01_rb,2.2583e+01_rb,1.5849e-01_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &2.2745e+02_rb,1.9903e+02_rb,1.7061e+02_rb,1.4217e+02_rb,1.1373e+02_rb,8.5301e+01_rb, &\n     &5.6875e+01_rb,2.8433e+01_rb,2.2030e-01_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &2.7773e+02_rb,2.4298e+02_rb,2.0829e+02_rb,1.7358e+02_rb,1.3886e+02_rb,1.0414e+02_rb, &\n     &6.9430e+01_rb,3.4715e+01_rb,3.0575e-01_rb/)\n      kao(:, 1,10,15) = (/ &\n     &4.7674e+02_rb,4.1715e+02_rb,3.5753e+02_rb,2.9794e+02_rb,2.3835e+02_rb,1.7878e+02_rb, &\n     &1.1918e+02_rb,5.9592e+01_rb,7.9888e-06_rb/)\n      kao(:, 2,10,15) = (/ &\n     &6.6856e+02_rb,5.8521e+02_rb,5.0164e+02_rb,4.1786e+02_rb,3.3435e+02_rb,2.5071e+02_rb, &\n     &1.6719e+02_rb,8.3597e+01_rb,1.0572e-05_rb/)\n      kao(:, 3,10,15) = (/ &\n     &8.9281e+02_rb,7.8118e+02_rb,6.6956e+02_rb,5.5797e+02_rb,4.4639e+02_rb,3.3479e+02_rb, &\n     &2.2318e+02_rb,1.1160e+02_rb,1.3235e-05_rb/)\n      kao(:, 4,10,15) = (/ &\n     &1.1439e+03_rb,1.0009e+03_rb,8.5793e+02_rb,7.1497e+02_rb,5.7192e+02_rb,4.2885e+02_rb, &\n     &2.8596e+02_rb,1.4299e+02_rb,7.9928e-02_rb/)\n      kao(:, 5,10,15) = (/ &\n     &1.4160e+03_rb,1.2390e+03_rb,1.0620e+03_rb,8.8492e+02_rb,7.0798e+02_rb,5.3098e+02_rb, &\n     &3.5397e+02_rb,1.7699e+02_rb,2.0557e-01_rb/)\n      kao(:, 1,11,15) = (/ &\n     &9.1777e+02_rb,8.0296e+02_rb,6.8835e+02_rb,5.7354e+02_rb,4.5882e+02_rb,3.4414e+02_rb, &\n     &2.2941e+02_rb,1.1472e+02_rb,9.0079e-06_rb/)\n      kao(:, 2,11,15) = (/ &\n     &1.2897e+03_rb,1.1284e+03_rb,9.6718e+02_rb,8.0605e+02_rb,6.4484e+02_rb,4.8368e+02_rb, &\n     &3.2242e+02_rb,1.6120e+02_rb,1.0534e-05_rb/)\n      kao(:, 3,11,15) = (/ &\n     &1.7217e+03_rb,1.5064e+03_rb,1.2912e+03_rb,1.0761e+03_rb,8.6072e+02_rb,6.4564e+02_rb, &\n     &4.3042e+02_rb,2.1520e+02_rb,1.2890e-05_rb/)\n      kao(:, 4,11,15) = (/ &\n     &2.2030e+03_rb,1.9276e+03_rb,1.6522e+03_rb,1.3769e+03_rb,1.1015e+03_rb,8.2614e+02_rb, &\n     &5.5075e+02_rb,2.7537e+02_rb,1.8773e-05_rb/)\n      kao(:, 5,11,15) = (/ &\n     &2.7288e+03_rb,2.3877e+03_rb,2.0468e+03_rb,1.7056e+03_rb,1.3645e+03_rb,1.0232e+03_rb, &\n     &6.8218e+02_rb,3.4109e+02_rb,2.8192e-05_rb/)\n      kao(:, 1,12,15) = (/ &\n     &1.3049e+03_rb,1.1418e+03_rb,9.7855e+02_rb,8.1546e+02_rb,6.5249e+02_rb,4.8934e+02_rb, &\n     &3.2625e+02_rb,1.6311e+02_rb,7.4201e-06_rb/)\n      kao(:, 2,12,15) = (/ &\n     &1.8314e+03_rb,1.6024e+03_rb,1.3735e+03_rb,1.1446e+03_rb,9.1569e+02_rb,6.8677e+02_rb, &\n     &4.5789e+02_rb,2.2893e+02_rb,9.0712e-06_rb/)\n      kao(:, 3,12,15) = (/ &\n     &2.4447e+03_rb,2.1390e+03_rb,1.8335e+03_rb,1.5279e+03_rb,1.2222e+03_rb,9.1674e+02_rb, &\n     &6.1121e+02_rb,3.0557e+02_rb,9.2932e-06_rb/)\n      kao(:, 4,12,15) = (/ &\n     &3.1395e+03_rb,2.7470e+03_rb,2.3545e+03_rb,1.9622e+03_rb,1.5697e+03_rb,1.1774e+03_rb, &\n     &7.8488e+02_rb,3.9241e+02_rb,1.2651e-05_rb/)\n      kao(:, 5,12,15) = (/ &\n     &3.8988e+03_rb,3.4115e+03_rb,2.9243e+03_rb,2.4367e+03_rb,1.9495e+03_rb,1.4621e+03_rb, &\n     &9.7464e+02_rb,4.8737e+02_rb,2.0431e-05_rb/)\n      kao(:, 1,13,15) = (/ &\n     &1.4703e+03_rb,1.2867e+03_rb,1.1028e+03_rb,9.1904e+02_rb,7.3532e+02_rb,5.5150e+02_rb, &\n     &3.6759e+02_rb,1.8380e+02_rb,5.1458e-06_rb/)\n      kao(:, 2,13,15) = (/ &\n     &2.0704e+03_rb,1.8115e+03_rb,1.5528e+03_rb,1.2939e+03_rb,1.0351e+03_rb,7.7638e+02_rb, &\n     &5.1765e+02_rb,2.5875e+02_rb,6.1867e-06_rb/)\n      kao(:, 3,13,15) = (/ &\n     &2.7739e+03_rb,2.4272e+03_rb,2.0805e+03_rb,1.7336e+03_rb,1.3869e+03_rb,1.0403e+03_rb, &\n     &6.9356e+02_rb,3.4674e+02_rb,7.7061e-06_rb/)\n      kao(:, 4,13,15) = (/ &\n     &3.5658e+03_rb,3.1198e+03_rb,2.6740e+03_rb,2.2287e+03_rb,1.7830e+03_rb,1.3371e+03_rb, &\n     &8.9142e+02_rb,4.4572e+02_rb,1.1573e-05_rb/)\n      kao(:, 5,13,15) = (/ &\n     &4.4270e+03_rb,3.8738e+03_rb,3.3205e+03_rb,2.7670e+03_rb,2.2135e+03_rb,1.6602e+03_rb, &\n     &1.1068e+03_rb,5.5337e+02_rb,1.8919e-05_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &2.0584e-01_rb,1.8014e-01_rb,1.5444e-01_rb,1.2874e-01_rb,1.0304e-01_rb,7.7345e-02_rb, &\n     &8.4273e-02_rb,8.1561e-02_rb,1.2397e-01_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &2.4103e-01_rb,2.1093e-01_rb,1.8085e-01_rb,1.5075e-01_rb,1.2067e-01_rb,1.0583e-01_rb, &\n     &1.1670e-01_rb,1.1303e-01_rb,1.7190e-01_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &2.7664e-01_rb,2.4213e-01_rb,2.0759e-01_rb,1.7305e-01_rb,1.3852e-01_rb,1.4127e-01_rb, &\n     &1.5588e-01_rb,1.5105e-01_rb,2.2980e-01_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &3.1217e-01_rb,2.7321e-01_rb,2.3426e-01_rb,1.9529e-01_rb,1.5635e-01_rb,1.8285e-01_rb, &\n     &2.0187e-01_rb,1.9571e-01_rb,2.9781e-01_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &3.4704e-01_rb,3.0374e-01_rb,2.6044e-01_rb,2.1712e-01_rb,2.0704e-01_rb,2.4179e-01_rb, &\n     &2.6249e-01_rb,2.4688e-01_rb,4.0744e-01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &3.5775e-01_rb,3.1302e-01_rb,2.6832e-01_rb,2.2363e-01_rb,1.7894e-01_rb,1.3423e-01_rb, &\n     &9.4199e-02_rb,9.5152e-02_rb,1.3347e-01_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &4.2272e-01_rb,3.6993e-01_rb,3.1710e-01_rb,2.6431e-01_rb,2.1146e-01_rb,1.5866e-01_rb, &\n     &1.3268e-01_rb,1.3412e-01_rb,1.8823e-01_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &4.8911e-01_rb,4.2798e-01_rb,3.6687e-01_rb,3.0577e-01_rb,2.4466e-01_rb,1.8360e-01_rb, &\n     &1.7978e-01_rb,1.8185e-01_rb,2.5529e-01_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &5.5559e-01_rb,4.8623e-01_rb,4.1679e-01_rb,3.4735e-01_rb,2.7796e-01_rb,2.0932e-01_rb, &\n     &2.3570e-01_rb,2.3853e-01_rb,3.3493e-01_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &6.2130e-01_rb,5.4374e-01_rb,4.6609e-01_rb,3.8845e-01_rb,3.1090e-01_rb,2.6998e-01_rb, &\n     &3.0230e-01_rb,3.0412e-01_rb,4.4787e-01_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &8.0759e-01_rb,7.0655e-01_rb,6.0564e-01_rb,5.0473e-01_rb,4.0382e-01_rb,3.0291e-01_rb, &\n     &2.0195e-01_rb,1.0457e-01_rb,1.3240e-01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &9.6833e-01_rb,8.4737e-01_rb,7.2636e-01_rb,6.0527e-01_rb,4.8421e-01_rb,3.6321e-01_rb, &\n     &2.4220e-01_rb,1.5138e-01_rb,1.9184e-01_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &1.1342e+00_rb,9.9245e-01_rb,8.5072e-01_rb,7.0903e-01_rb,5.6727e-01_rb,4.2548e-01_rb, &\n     &2.8373e-01_rb,2.0993e-01_rb,2.6621e-01_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &1.3024e+00_rb,1.1395e+00_rb,9.7685e-01_rb,8.1409e-01_rb,6.5126e-01_rb,4.8855e-01_rb, &\n     &3.2575e-01_rb,2.8072e-01_rb,3.5605e-01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &1.4698e+00_rb,1.2860e+00_rb,1.1024e+00_rb,9.1880e-01_rb,7.3505e-01_rb,5.5132e-01_rb, &\n     &3.6767e-01_rb,3.6382e-01_rb,4.6256e-01_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &1.8354e+00_rb,1.6059e+00_rb,1.3766e+00_rb,1.1471e+00_rb,9.1770e-01_rb,6.8825e-01_rb, &\n     &4.5887e-01_rb,2.2948e-01_rb,1.2512e-01_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &2.2391e+00_rb,1.9593e+00_rb,1.6796e+00_rb,1.3998e+00_rb,1.1197e+00_rb,8.3982e-01_rb, &\n     &5.5988e-01_rb,2.7997e-01_rb,1.8724e-01_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &2.6616e+00_rb,2.3290e+00_rb,1.9963e+00_rb,1.6635e+00_rb,1.3310e+00_rb,9.9835e-01_rb, &\n     &6.6551e-01_rb,3.3282e-01_rb,2.6695e-01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &3.0942e+00_rb,2.7077e+00_rb,2.3212e+00_rb,1.9341e+00_rb,1.5474e+00_rb,1.1605e+00_rb, &\n     &7.7373e-01_rb,3.8698e-01_rb,3.6534e-01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &3.5299e+00_rb,3.0886e+00_rb,2.6475e+00_rb,2.2065e+00_rb,1.7650e+00_rb,1.3239e+00_rb, &\n     &8.8260e-01_rb,4.4141e-01_rb,4.8300e-01_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &3.8226e+00_rb,3.3446e+00_rb,2.8509e+00_rb,2.3892e+00_rb,1.9114e+00_rb,1.4335e+00_rb, &\n     &9.5565e-01_rb,4.7787e-01_rb,1.1560e-01_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &4.7529e+00_rb,4.1589e+00_rb,3.5644e+00_rb,2.9706e+00_rb,2.3763e+00_rb,1.7823e+00_rb, &\n     &1.1883e+00_rb,5.9413e-01_rb,1.7922e-01_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &5.7385e+00_rb,5.0213e+00_rb,4.3040e+00_rb,3.5869e+00_rb,2.8697e+00_rb,2.1522e+00_rb, &\n     &1.4347e+00_rb,7.1742e-01_rb,2.6311e-01_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &6.7615e+00_rb,5.9164e+00_rb,5.0713e+00_rb,4.2261e+00_rb,3.3806e+00_rb,2.5357e+00_rb, &\n     &1.6905e+00_rb,8.4524e-01_rb,3.6914e-01_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &7.8020e+00_rb,6.8269e+00_rb,5.8507e+00_rb,4.8765e+00_rb,3.9008e+00_rb,2.9261e+00_rb, &\n     &1.9507e+00_rb,9.7534e-01_rb,4.9832e-01_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &7.3571e+00_rb,6.4369e+00_rb,5.5172e+00_rb,4.5985e+00_rb,3.6783e+00_rb,2.7589e+00_rb, &\n     &1.8291e+00_rb,9.1965e-01_rb,1.0645e-01_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &9.3468e+00_rb,8.1778e+00_rb,7.0095e+00_rb,5.8414e+00_rb,4.6732e+00_rb,3.5051e+00_rb, &\n     &2.3366e+00_rb,1.1682e+00_rb,1.6617e-01_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &1.1491e+01_rb,1.0055e+01_rb,8.6175e+00_rb,7.1820e+00_rb,5.7127e+00_rb,4.3090e+00_rb, &\n     &2.8724e+00_rb,1.4282e+00_rb,2.5233e-01_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &1.3744e+01_rb,1.2025e+01_rb,1.0308e+01_rb,8.5898e+00_rb,6.8725e+00_rb,5.1546e+00_rb, &\n     &3.4361e+00_rb,1.7180e+00_rb,3.6410e-01_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &1.6063e+01_rb,1.4056e+01_rb,1.2048e+01_rb,1.0040e+01_rb,8.0325e+00_rb,6.0238e+00_rb, &\n     &4.0162e+00_rb,2.0081e+00_rb,5.0340e-01_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &1.4766e+01_rb,1.2923e+01_rb,1.1075e+01_rb,9.2294e+00_rb,7.3836e+00_rb,5.5378e+00_rb, &\n     &3.6915e+00_rb,1.8460e+00_rb,1.0988e-01_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &1.9210e+01_rb,1.6809e+01_rb,1.4406e+01_rb,1.2004e+01_rb,9.6049e+00_rb,7.2040e+00_rb, &\n     &4.8023e+00_rb,2.4010e+00_rb,1.5119e-01_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &2.4080e+01_rb,2.1071e+01_rb,1.8060e+01_rb,1.5050e+01_rb,1.2042e+01_rb,9.0305e+00_rb, &\n     &6.0199e+00_rb,2.9934e+00_rb,2.3822e-01_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &2.9278e+01_rb,2.5619e+01_rb,2.1957e+01_rb,1.8300e+01_rb,1.4640e+01_rb,1.0980e+01_rb, &\n     &7.3208e+00_rb,3.6596e+00_rb,3.5444e-01_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &3.4690e+01_rb,3.0352e+01_rb,2.6017e+01_rb,2.1683e+01_rb,1.7349e+01_rb,1.3009e+01_rb, &\n     &8.6734e+00_rb,4.3366e+00_rb,5.0281e-01_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &3.5305e+01_rb,3.0898e+01_rb,2.6479e+01_rb,2.2066e+01_rb,1.7653e+01_rb,1.3237e+01_rb, &\n     &8.8267e+00_rb,4.4136e+00_rb,1.1225e-01_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &4.7105e+01_rb,4.1217e+01_rb,3.5327e+01_rb,2.9443e+01_rb,2.3551e+01_rb,1.7664e+01_rb, &\n     &1.1776e+01_rb,5.8880e+00_rb,1.4909e-01_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &6.0289e+01_rb,5.2760e+01_rb,4.5222e+01_rb,3.7680e+01_rb,3.0141e+01_rb,2.2609e+01_rb, &\n     &1.5075e+01_rb,7.5364e+00_rb,2.2235e-01_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &7.4572e+01_rb,6.4882e+01_rb,5.5930e+01_rb,4.6614e+01_rb,3.7287e+01_rb,2.7965e+01_rb, &\n     &1.8642e+01_rb,9.3209e+00_rb,3.4182e-01_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &8.9645e+01_rb,7.8444e+01_rb,6.7227e+01_rb,5.6021e+01_rb,4.4815e+01_rb,3.3612e+01_rb, &\n     &2.2408e+01_rb,1.1205e+01_rb,4.9824e-01_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &1.5759e+02_rb,1.3788e+02_rb,1.1817e+02_rb,9.8475e+01_rb,7.8796e+01_rb,5.9083e+01_rb, &\n     &3.9390e+01_rb,1.9699e+01_rb,1.1304e-01_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &2.1616e+02_rb,1.8914e+02_rb,1.6212e+02_rb,1.3510e+02_rb,1.0808e+02_rb,8.1068e+01_rb, &\n     &5.4043e+01_rb,2.7021e+01_rb,1.5445e-01_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &2.8258e+02_rb,2.4760e+02_rb,2.1223e+02_rb,1.7686e+02_rb,1.4149e+02_rb,1.0611e+02_rb, &\n     &7.0744e+01_rb,3.5373e+01_rb,2.0441e-01_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &3.5653e+02_rb,3.1192e+02_rb,2.6735e+02_rb,2.2280e+02_rb,1.7825e+02_rb,1.3369e+02_rb, &\n     &8.9123e+01_rb,4.4565e+01_rb,3.2503e-01_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &4.3513e+02_rb,3.8075e+02_rb,3.2632e+02_rb,2.7197e+02_rb,2.1754e+02_rb,1.6316e+02_rb, &\n     &1.0877e+02_rb,5.4390e+01_rb,4.8785e-01_rb/)\n      kao(:, 1,10,16) = (/ &\n     &7.9828e+02_rb,6.9859e+02_rb,5.9871e+02_rb,4.9899e+02_rb,3.9914e+02_rb,2.9935e+02_rb, &\n     &1.9957e+02_rb,9.9786e+01_rb,1.4112e-06_rb/)\n      kao(:, 2,10,16) = (/ &\n     &1.1235e+03_rb,9.8329e+02_rb,8.4282e+02_rb,7.0236e+02_rb,5.6188e+02_rb,4.2131e+02_rb, &\n     &2.8094e+02_rb,1.4047e+02_rb,1.8812e-06_rb/)\n      kao(:, 3,10,16) = (/ &\n     &1.5014e+03_rb,1.3138e+03_rb,1.1261e+03_rb,9.3840e+02_rb,7.5072e+02_rb,5.6311e+02_rb, &\n     &3.7536e+02_rb,1.8771e+02_rb,2.5472e-06_rb/)\n      kao(:, 4,10,16) = (/ &\n     &1.9233e+03_rb,1.6832e+03_rb,1.4427e+03_rb,1.2020e+03_rb,9.6160e+02_rb,7.2135e+02_rb, &\n     &4.8081e+02_rb,2.4039e+02_rb,3.1592e-01_rb/)\n      kao(:, 5,10,16) = (/ &\n     &2.3793e+03_rb,2.0824e+03_rb,1.7849e+03_rb,1.4876e+03_rb,1.1900e+03_rb,8.9243e+02_rb, &\n     &5.9503e+02_rb,2.9747e+02_rb,4.8703e-01_rb/)\n      kao(:, 1,11,16) = (/ &\n     &1.6695e+03_rb,1.4608e+03_rb,1.2521e+03_rb,1.0434e+03_rb,8.3472e+02_rb,6.2605e+02_rb, &\n     &4.1737e+02_rb,2.0867e+02_rb,1.1529e-06_rb/)\n      kao(:, 2,11,16) = (/ &\n     &2.3476e+03_rb,2.0540e+03_rb,1.7608e+03_rb,1.4673e+03_rb,1.1739e+03_rb,8.8029e+02_rb, &\n     &5.8691e+02_rb,2.9349e+02_rb,1.5382e-06_rb/)\n      kao(:, 3,11,16) = (/ &\n     &3.1326e+03_rb,2.7416e+03_rb,2.3500e+03_rb,1.9579e+03_rb,1.5664e+03_rb,1.1749e+03_rb, &\n     &7.8334e+02_rb,3.9162e+02_rb,2.0823e-06_rb/)\n      kao(:, 4,11,16) = (/ &\n     &4.0087e+03_rb,3.5076e+03_rb,3.0065e+03_rb,2.5054e+03_rb,2.0043e+03_rb,1.5033e+03_rb, &\n     &1.0022e+03_rb,5.0110e+02_rb,2.4008e-06_rb/)\n      kao(:, 5,11,16) = (/ &\n     &4.9540e+03_rb,4.3346e+03_rb,3.7151e+03_rb,3.0963e+03_rb,2.4766e+03_rb,1.8577e+03_rb, &\n     &1.2385e+03_rb,6.1917e+02_rb,1.3302e-05_rb/)\n      kao(:, 1,12,16) = (/ &\n     &2.5940e+03_rb,2.2689e+03_rb,1.9455e+03_rb,1.6210e+03_rb,1.2970e+03_rb,9.7271e+02_rb, &\n     &6.4849e+02_rb,3.2418e+02_rb,9.4397e-07_rb/)\n      kao(:, 2,12,16) = (/ &\n     &3.6401e+03_rb,3.1850e+03_rb,2.7301e+03_rb,2.2751e+03_rb,1.8200e+03_rb,1.3650e+03_rb, &\n     &9.1001e+02_rb,4.5497e+02_rb,1.2594e-06_rb/)\n      kao(:, 3,12,16) = (/ &\n     &4.8482e+03_rb,4.2436e+03_rb,3.6368e+03_rb,3.0301e+03_rb,2.4250e+03_rb,1.8187e+03_rb, &\n     &1.2120e+03_rb,6.0606e+02_rb,1.2513e-05_rb/)\n      kao(:, 4,12,16) = (/ &\n     &6.1914e+03_rb,5.4187e+03_rb,4.6435e+03_rb,3.8696e+03_rb,3.0964e+03_rb,2.3220e+03_rb, &\n     &1.5479e+03_rb,7.7403e+02_rb,2.0845e-05_rb/)\n      kao(:, 5,12,16) = (/ &\n     &7.6366e+03_rb,6.6419e+03_rb,5.7257e+03_rb,4.7728e+03_rb,3.8188e+03_rb,2.8637e+03_rb, &\n     &1.9092e+03_rb,9.4962e+02_rb,2.1463e-05_rb/)\n      kao(:, 1,13,16) = (/ &\n     &3.2192e+03_rb,2.8160e+03_rb,2.4141e+03_rb,2.0117e+03_rb,1.6091e+03_rb,1.2070e+03_rb, &\n     &8.0460e+02_rb,4.0235e+02_rb,2.5866e-06_rb/)\n      kao(:, 2,13,16) = (/ &\n     &4.5059e+03_rb,3.9428e+03_rb,3.3791e+03_rb,2.8160e+03_rb,2.2531e+03_rb,1.6897e+03_rb, &\n     &1.1264e+03_rb,5.6328e+02_rb,9.4719e-06_rb/)\n      kao(:, 3,13,16) = (/ &\n     &5.9881e+03_rb,5.2388e+03_rb,4.4907e+03_rb,3.7423e+03_rb,2.9935e+03_rb,2.2450e+03_rb, &\n     &1.4968e+03_rb,7.4841e+02_rb,1.6561e-05_rb/)\n      kao(:, 4,13,16) = (/ &\n     &7.6265e+03_rb,6.6729e+03_rb,5.7200e+03_rb,4.7671e+03_rb,3.8133e+03_rb,2.8600e+03_rb, &\n     &1.9066e+03_rb,9.4757e+02_rb,2.1537e-05_rb/)\n      kao(:, 5,13,16) = (/ &\n     &9.3827e+03_rb,8.2086e+03_rb,7.0366e+03_rb,5.8639e+03_rb,4.6917e+03_rb,3.5181e+03_rb, &\n     &2.3456e+03_rb,1.1729e+03_rb,2.1283e-05_rb/)\n\n!     The array KBO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels  < ~100mb, temperatures, and ratios\n!     of H2O to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index, JT, which\n!     runs from 1 to 5, corresponds to different temperatures.  More \n!     specifically, JT = 3 means that the data are for the corresponding \n!     reference temperature TREF for this  pressure level, JT = 2 refers \n!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and\n!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and\n!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is\n!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to\n!     16, and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:, 1,13, 1) = (/ &\n     &1.5731e-03_rb,1.8696e-03_rb,1.8486e-03_rb,1.7186e-03_rb,1.3898e-03_rb/)\n      kbo(:, 2,13, 1) = (/ &\n     &1.8623e-03_rb,2.3963e-03_rb,2.4362e-03_rb,2.2990e-03_rb,1.8223e-03_rb/)\n      kbo(:, 3,13, 1) = (/ &\n     &2.3718e-03_rb,3.1878e-03_rb,3.2540e-03_rb,3.0430e-03_rb,2.2915e-03_rb/)\n      kbo(:, 4,13, 1) = (/ &\n     &3.1921e-03_rb,4.3104e-03_rb,4.3590e-03_rb,3.9821e-03_rb,2.7709e-03_rb/)\n      kbo(:, 5,13, 1) = (/ &\n     &4.4313e-03_rb,5.8691e-03_rb,5.8118e-03_rb,5.1528e-03_rb,3.2426e-03_rb/)\n      kbo(:, 1,14, 1) = (/ &\n     &8.1496e-04_rb,1.1449e-03_rb,1.2521e-03_rb,1.2864e-03_rb,1.1830e-03_rb/)\n      kbo(:, 2,14, 1) = (/ &\n     &9.7291e-04_rb,1.4990e-03_rb,1.6700e-03_rb,1.7215e-03_rb,1.5434e-03_rb/)\n      kbo(:, 3,14, 1) = (/ &\n     &1.2487e-03_rb,2.0089e-03_rb,2.2296e-03_rb,2.2624e-03_rb,1.9289e-03_rb/)\n      kbo(:, 4,14, 1) = (/ &\n     &1.6881e-03_rb,2.7166e-03_rb,2.9639e-03_rb,2.9248e-03_rb,2.3207e-03_rb/)\n      kbo(:, 5,14, 1) = (/ &\n     &2.3524e-03_rb,3.6802e-03_rb,3.9082e-03_rb,3.7262e-03_rb,2.7008e-03_rb/)\n      kbo(:, 1,15, 1) = (/ &\n     &4.3177e-04_rb,7.4258e-04_rb,8.9651e-04_rb,1.0013e-03_rb,1.0098e-03_rb/)\n      kbo(:, 2,15, 1) = (/ &\n     &5.2028e-04_rb,9.8643e-04_rb,1.2013e-03_rb,1.3351e-03_rb,1.3087e-03_rb/)\n      kbo(:, 3,15, 1) = (/ &\n     &6.7289e-04_rb,1.3258e-03_rb,1.5978e-03_rb,1.7375e-03_rb,1.6233e-03_rb/)\n      kbo(:, 4,15, 1) = (/ &\n     &9.1389e-04_rb,1.7863e-03_rb,2.1013e-03_rb,2.2138e-03_rb,1.9402e-03_rb/)\n      kbo(:, 5,15, 1) = (/ &\n     &1.2783e-03_rb,2.4005e-03_rb,2.7322e-03_rb,2.7722e-03_rb,2.2422e-03_rb/)\n      kbo(:, 1,16, 1) = (/ &\n     &2.7315e-04_rb,5.4830e-04_rb,7.0218e-04_rb,8.1997e-04_rb,8.6240e-04_rb/)\n      kbo(:, 2,16, 1) = (/ &\n     &3.3240e-04_rb,7.3351e-04_rb,9.4112e-04_rb,1.0872e-03_rb,1.1098e-03_rb/)\n      kbo(:, 3,16, 1) = (/ &\n     &4.3314e-04_rb,9.8584e-04_rb,1.2457e-03_rb,1.4034e-03_rb,1.3664e-03_rb/)\n      kbo(:, 4,16, 1) = (/ &\n     &5.9092e-04_rb,1.3229e-03_rb,1.6223e-03_rb,1.7684e-03_rb,1.6211e-03_rb/)\n      kbo(:, 5,16, 1) = (/ &\n     &8.2878e-04_rb,1.7642e-03_rb,2.0878e-03_rb,2.1890e-03_rb,1.8647e-03_rb/)\n      kbo(:, 1,17, 1) = (/ &\n     &1.7965e-04_rb,4.1801e-04_rb,5.6155e-04_rb,6.7756e-04_rb,7.3362e-04_rb/)\n      kbo(:, 2,17, 1) = (/ &\n     &2.2058e-04_rb,5.6121e-04_rb,7.5064e-04_rb,8.9254e-04_rb,9.3681e-04_rb/)\n      kbo(:, 3,17, 1) = (/ &\n     &2.8939e-04_rb,7.5257e-04_rb,9.8597e-04_rb,1.1419e-03_rb,1.1452e-03_rb/)\n      kbo(:, 4,17, 1) = (/ &\n     &3.9639e-04_rb,1.0037e-03_rb,1.2718e-03_rb,1.4256e-03_rb,1.3514e-03_rb/)\n      kbo(:, 5,17, 1) = (/ &\n     &5.5678e-04_rb,1.3263e-03_rb,1.6209e-03_rb,1.7480e-03_rb,1.5479e-03_rb/)\n      kbo(:, 1,18, 1) = (/ &\n     &1.2144e-04_rb,3.2556e-04_rb,4.5465e-04_rb,5.6224e-04_rb,6.2157e-04_rb/)\n      kbo(:, 2,18, 1) = (/ &\n     &1.5036e-04_rb,4.3710e-04_rb,6.0499e-04_rb,7.3530e-04_rb,7.8763e-04_rb/)\n      kbo(:, 3,18, 1) = (/ &\n     &1.9855e-04_rb,5.8365e-04_rb,7.8791e-04_rb,9.3325e-04_rb,9.5745e-04_rb/)\n      kbo(:, 4,18, 1) = (/ &\n     &2.7288e-04_rb,7.7253e-04_rb,1.0079e-03_rb,1.1563e-03_rb,1.1247e-03_rb/)\n      kbo(:, 5,18, 1) = (/ &\n     &3.8348e-04_rb,1.0128e-03_rb,1.2724e-03_rb,1.4068e-03_rb,1.2838e-03_rb/)\n      kbo(:, 1,19, 1) = (/ &\n     &8.0908e-05_rb,2.5355e-04_rb,3.6780e-04_rb,4.6534e-04_rb,5.2420e-04_rb/)\n      kbo(:, 2,19, 1) = (/ &\n     &1.0097e-04_rb,3.3963e-04_rb,4.8637e-04_rb,6.0408e-04_rb,6.5997e-04_rb/)\n      kbo(:, 3,19, 1) = (/ &\n     &1.3403e-04_rb,4.5064e-04_rb,6.2806e-04_rb,7.6126e-04_rb,7.9854e-04_rb/)\n      kbo(:, 4,19, 1) = (/ &\n     &1.8471e-04_rb,5.9188e-04_rb,7.9637e-04_rb,9.3587e-04_rb,9.3436e-04_rb/)\n      kbo(:, 5,19, 1) = (/ &\n     &2.5970e-04_rb,7.6935e-04_rb,9.9605e-04_rb,1.1301e-03_rb,1.0631e-03_rb/)\n      kbo(:, 1,20, 1) = (/ &\n     &5.8651e-05_rb,2.0533e-04_rb,3.0468e-04_rb,3.8991e-04_rb,4.4299e-04_rb/)\n      kbo(:, 2,20, 1) = (/ &\n     &7.3858e-05_rb,2.7425e-04_rb,4.0056e-04_rb,5.0325e-04_rb,5.5439e-04_rb/)\n      kbo(:, 3,20, 1) = (/ &\n     &9.8558e-05_rb,3.6201e-04_rb,5.1389e-04_rb,6.3043e-04_rb,6.6745e-04_rb/)\n      kbo(:, 4,20, 1) = (/ &\n     &1.3624e-04_rb,4.7289e-04_rb,6.4732e-04_rb,7.7044e-04_rb,7.7770e-04_rb/)\n      kbo(:, 5,20, 1) = (/ &\n     &1.9168e-04_rb,6.1111e-04_rb,8.0443e-04_rb,9.2550e-04_rb,8.8213e-04_rb/)\n      kbo(:, 1,21, 1) = (/ &\n     &4.3969e-05_rb,1.6839e-04_rb,2.5404e-04_rb,3.2750e-04_rb,3.7386e-04_rb/)\n      kbo(:, 2,21, 1) = (/ &\n     &5.5807e-05_rb,2.2425e-04_rb,3.3214e-04_rb,4.2065e-04_rb,4.6519e-04_rb/)\n      kbo(:, 3,21, 1) = (/ &\n     &7.4871e-05_rb,2.9470e-04_rb,4.2375e-04_rb,5.2400e-04_rb,5.5744e-04_rb/)\n      kbo(:, 4,21, 1) = (/ &\n     &1.0381e-04_rb,3.8330e-04_rb,5.3089e-04_rb,6.3750e-04_rb,6.4727e-04_rb/)\n      kbo(:, 5,21, 1) = (/ &\n     &1.4611e-04_rb,4.9243e-04_rb,6.5637e-04_rb,7.6218e-04_rb,7.3199e-04_rb/)\n      kbo(:, 1,22, 1) = (/ &\n     &3.4337e-05_rb,1.4203e-04_rb,2.1658e-04_rb,2.8040e-04_rb,3.2005e-04_rb/)\n      kbo(:, 2,22, 1) = (/ &\n     &4.4095e-05_rb,1.8845e-04_rb,2.8132e-04_rb,3.5774e-04_rb,3.9514e-04_rb/)\n      kbo(:, 3,22, 1) = (/ &\n     &5.9627e-05_rb,2.4659e-04_rb,3.5661e-04_rb,4.4266e-04_rb,4.7049e-04_rb/)\n      kbo(:, 4,22, 1) = (/ &\n     &8.3001e-05_rb,3.1905e-04_rb,4.4430e-04_rb,5.3537e-04_rb,5.4306e-04_rb/)\n      kbo(:, 5,22, 1) = (/ &\n     &1.1688e-04_rb,4.0732e-04_rb,5.4669e-04_rb,6.3703e-04_rb,6.1162e-04_rb/)\n      kbo(:, 1,23, 1) = (/ &\n     &2.7088e-05_rb,1.2024e-04_rb,1.8486e-04_rb,2.4028e-04_rb,2.7381e-04_rb/)\n      kbo(:, 2,23, 1) = (/ &\n     &3.5182e-05_rb,1.5885e-04_rb,2.3849e-04_rb,3.0423e-04_rb,3.3547e-04_rb/)\n      kbo(:, 3,23, 1) = (/ &\n     &4.7910e-05_rb,2.0687e-04_rb,3.0043e-04_rb,3.7399e-04_rb,3.9686e-04_rb/)\n      kbo(:, 4,23, 1) = (/ &\n     &6.6975e-05_rb,2.6613e-04_rb,3.7259e-04_rb,4.4994e-04_rb,4.5570e-04_rb/)\n      kbo(:, 5,23, 1) = (/ &\n     &9.4305e-05_rb,3.3770e-04_rb,4.5596e-04_rb,5.3292e-04_rb,5.1097e-04_rb/)\n      kbo(:, 1,24, 1) = (/ &\n     &2.1382e-05_rb,1.0191e-04_rb,1.5778e-04_rb,2.0583e-04_rb,2.3424e-04_rb/)\n      kbo(:, 2,24, 1) = (/ &\n     &2.8085e-05_rb,1.3391e-04_rb,2.0214e-04_rb,2.5863e-04_rb,2.8484e-04_rb/)\n      kbo(:, 3,24, 1) = (/ &\n     &3.8505e-05_rb,1.7343e-04_rb,2.5313e-04_rb,3.1592e-04_rb,3.3477e-04_rb/)\n      kbo(:, 4,24, 1) = (/ &\n     &5.3997e-05_rb,2.2171e-04_rb,3.1228e-04_rb,3.7804e-04_rb,3.8231e-04_rb/)\n      kbo(:, 5,24, 1) = (/ &\n     &7.5953e-05_rb,2.7966e-04_rb,3.7978e-04_rb,4.4568e-04_rb,4.2681e-04_rb/)\n      kbo(:, 1,25, 1) = (/ &\n     &1.7217e-05_rb,8.6935e-05_rb,1.3520e-04_rb,1.7667e-04_rb,2.0051e-04_rb/)\n      kbo(:, 2,25, 1) = (/ &\n     &2.2860e-05_rb,1.1361e-04_rb,1.7201e-04_rb,2.2028e-04_rb,2.4198e-04_rb/)\n      kbo(:, 3,25, 1) = (/ &\n     &3.1540e-05_rb,1.4632e-04_rb,2.1426e-04_rb,2.6745e-04_rb,2.8247e-04_rb/)\n      kbo(:, 4,25, 1) = (/ &\n     &4.4330e-05_rb,1.8594e-04_rb,2.6272e-04_rb,3.1846e-04_rb,3.2089e-04_rb/)\n      kbo(:, 5,25, 1) = (/ &\n     &6.2260e-05_rb,2.3327e-04_rb,3.1770e-04_rb,3.7373e-04_rb,3.5666e-04_rb/)\n      kbo(:, 1,26, 1) = (/ &\n     &1.4222e-05_rb,7.4853e-05_rb,1.1659e-04_rb,1.5229e-04_rb,1.7205e-04_rb/)\n      kbo(:, 2,26, 1) = (/ &\n     &1.9097e-05_rb,9.7290e-05_rb,1.4733e-04_rb,1.8840e-04_rb,2.0595e-04_rb/)\n      kbo(:, 3,26, 1) = (/ &\n     &2.6498e-05_rb,1.2462e-04_rb,1.8247e-04_rb,2.2740e-04_rb,2.3871e-04_rb/)\n      kbo(:, 4,26, 1) = (/ &\n     &3.7304e-05_rb,1.5749e-04_rb,2.2244e-04_rb,2.6950e-04_rb,2.6966e-04_rb/)\n      kbo(:, 5,26, 1) = (/ &\n     &5.2263e-05_rb,1.9669e-04_rb,2.6764e-04_rb,3.1472e-04_rb,2.9848e-04_rb/)\n      kbo(:, 1,27, 1) = (/ &\n     &1.2263e-05_rb,6.5144e-05_rb,1.0108e-04_rb,1.3156e-04_rb,1.4744e-04_rb/)\n      kbo(:, 2,27, 1) = (/ &\n     &1.6644e-05_rb,8.4290e-05_rb,1.2696e-04_rb,1.6163e-04_rb,1.7509e-04_rb/)\n      kbo(:, 3,27, 1) = (/ &\n     &2.3202e-05_rb,1.0755e-04_rb,1.5651e-04_rb,1.9419e-04_rb,2.0159e-04_rb/)\n      kbo(:, 4,27, 1) = (/ &\n     &3.2669e-05_rb,1.3540e-04_rb,1.9003e-04_rb,2.2917e-04_rb,2.2657e-04_rb/)\n      kbo(:, 5,27, 1) = (/ &\n     &4.5636e-05_rb,1.6849e-04_rb,2.2778e-04_rb,2.6648e-04_rb,2.4966e-04_rb/)\n      kbo(:, 1,28, 1) = (/ &\n     &1.0907e-05_rb,5.7118e-05_rb,8.7946e-05_rb,1.1378e-04_rb,1.2622e-04_rb/)\n      kbo(:, 2,28, 1) = (/ &\n     &1.4925e-05_rb,7.3661e-05_rb,1.0996e-04_rb,1.3907e-04_rb,1.4872e-04_rb/)\n      kbo(:, 3,28, 1) = (/ &\n     &2.0909e-05_rb,9.3671e-05_rb,1.3497e-04_rb,1.6629e-04_rb,1.7014e-04_rb/)\n      kbo(:, 4,28, 1) = (/ &\n     &2.9425e-05_rb,1.1761e-04_rb,1.6330e-04_rb,1.9540e-04_rb,1.9022e-04_rb/)\n      kbo(:, 5,28, 1) = (/ &\n     &4.0966e-05_rb,1.4604e-04_rb,1.9535e-04_rb,2.2654e-04_rb,2.0877e-04_rb/)\n      kbo(:, 1,29, 1) = (/ &\n     &1.0363e-05_rb,5.1128e-05_rb,7.7457e-05_rb,9.9099e-05_rb,1.0807e-04_rb/)\n      kbo(:, 2,29, 1) = (/ &\n     &1.4287e-05_rb,6.5810e-05_rb,9.6485e-05_rb,1.2056e-04_rb,1.2631e-04_rb/)\n      kbo(:, 3,29, 1) = (/ &\n     &2.0078e-05_rb,8.3622e-05_rb,1.1822e-04_rb,1.4364e-04_rb,1.4366e-04_rb/)\n      kbo(:, 4,29, 1) = (/ &\n     &2.8213e-05_rb,1.0495e-04_rb,1.4288e-04_rb,1.6839e-04_rb,1.5982e-04_rb/)\n      kbo(:, 5,29, 1) = (/ &\n     &3.9150e-05_rb,1.3025e-04_rb,1.7086e-04_rb,1.9491e-04_rb,1.7468e-04_rb/)\n      kbo(:, 1,30, 1) = (/ &\n     &1.0130e-05_rb,4.6183e-05_rb,6.8547e-05_rb,8.6516e-05_rb,9.2360e-05_rb/)\n      kbo(:, 2,30, 1) = (/ &\n     &1.4060e-05_rb,5.9445e-05_rb,8.5241e-05_rb,1.0481e-04_rb,1.0719e-04_rb/)\n      kbo(:, 3,30, 1) = (/ &\n     &1.9789e-05_rb,7.5542e-05_rb,1.0433e-04_rb,1.2454e-04_rb,1.2117e-04_rb/)\n      kbo(:, 4,30, 1) = (/ &\n     &2.7737e-05_rb,9.4871e-05_rb,1.2613e-04_rb,1.4578e-04_rb,1.3421e-04_rb/)\n      kbo(:, 5,30, 1) = (/ &\n     &3.8345e-05_rb,1.1778e-04_rb,1.5088e-04_rb,1.6869e-04_rb,1.4612e-04_rb/)\n      kbo(:, 1,31, 1) = (/ &\n     &1.0468e-05_rb,4.2679e-05_rb,6.1533e-05_rb,7.6101e-05_rb,7.8936e-05_rb/)\n      kbo(:, 2,31, 1) = (/ &\n     &1.4602e-05_rb,5.5015e-05_rb,7.6472e-05_rb,9.1912e-05_rb,9.0925e-05_rb/)\n      kbo(:, 3,31, 1) = (/ &\n     &2.0565e-05_rb,7.0045e-05_rb,9.3754e-05_rb,1.0914e-04_rb,1.0226e-04_rb/)\n      kbo(:, 4,31, 1) = (/ &\n     &2.8741e-05_rb,8.8177e-05_rb,1.1361e-04_rb,1.2783e-04_rb,1.1277e-04_rb/)\n      kbo(:, 5,31, 1) = (/ &\n     &3.9551e-05_rb,1.0965e-04_rb,1.3625e-04_rb,1.4816e-04_rb,1.2240e-04_rb/)\n      kbo(:, 1,32, 1) = (/ &\n     &1.0980e-05_rb,3.9860e-05_rb,5.5596e-05_rb,6.7154e-05_rb,6.7396e-05_rb/)\n      kbo(:, 2,32, 1) = (/ &\n     &1.5378e-05_rb,5.1481e-05_rb,6.9207e-05_rb,8.1024e-05_rb,7.7105e-05_rb/)\n      kbo(:, 3,32, 1) = (/ &\n     &2.1641e-05_rb,6.5723e-05_rb,8.5005e-05_rb,9.6172e-05_rb,8.6258e-05_rb/)\n      kbo(:, 4,32, 1) = (/ &\n     &3.0131e-05_rb,8.2891e-05_rb,1.0329e-04_rb,1.1283e-04_rb,9.4767e-05_rb/)\n      kbo(:, 5,32, 1) = (/ &\n     &4.1276e-05_rb,1.0326e-04_rb,1.2427e-04_rb,1.3104e-04_rb,1.0241e-04_rb/)\n      kbo(:, 1,33, 1) = (/ &\n     &1.1748e-05_rb,3.7749e-05_rb,5.0777e-05_rb,5.9616e-05_rb,5.7446e-05_rb/)\n      kbo(:, 2,33, 1) = (/ &\n     &1.6501e-05_rb,4.8915e-05_rb,6.3363e-05_rb,7.1901e-05_rb,6.5353e-05_rb/)\n      kbo(:, 3,33, 1) = (/ &\n     &2.3188e-05_rb,6.2624e-05_rb,7.8070e-05_rb,8.5481e-05_rb,7.2776e-05_rb/)\n      kbo(:, 4,33, 1) = (/ &\n     &3.2156e-05_rb,7.9179e-05_rb,9.5194e-05_rb,1.0052e-04_rb,7.9571e-05_rb/)\n      kbo(:, 5,33, 1) = (/ &\n     &4.3815e-05_rb,9.8786e-05_rb,1.1493e-04_rb,1.1713e-04_rb,8.5692e-05_rb/)\n      kbo(:, 1,34, 1) = (/ &\n     &1.2122e-05_rb,3.5250e-05_rb,4.5906e-05_rb,5.2480e-05_rb,4.8658e-05_rb/)\n      kbo(:, 2,34, 1) = (/ &\n     &1.7058e-05_rb,4.5800e-05_rb,5.7395e-05_rb,6.3326e-05_rb,5.5101e-05_rb/)\n      kbo(:, 3,34, 1) = (/ &\n     &2.3918e-05_rb,5.8762e-05_rb,7.0946e-05_rb,7.5460e-05_rb,6.1101e-05_rb/)\n      kbo(:, 4,34, 1) = (/ &\n     &3.3054e-05_rb,7.4431e-05_rb,8.6803e-05_rb,8.8957e-05_rb,6.6540e-05_rb/)\n      kbo(:, 5,34, 1) = (/ &\n     &4.4827e-05_rb,9.2907e-05_rb,1.0510e-04_rb,1.0393e-04_rb,7.1470e-05_rb/)\n      kbo(:, 1,35, 1) = (/ &\n     &1.2136e-05_rb,3.2274e-05_rb,4.0784e-05_rb,4.5493e-05_rb,4.0671e-05_rb/)\n      kbo(:, 2,35, 1) = (/ &\n     &1.7085e-05_rb,4.2082e-05_rb,5.1198e-05_rb,5.5056e-05_rb,4.5918e-05_rb/)\n      kbo(:, 3,35, 1) = (/ &\n     &2.3916e-05_rb,5.4183e-05_rb,6.3553e-05_rb,6.5795e-05_rb,5.0794e-05_rb/)\n      kbo(:, 4,35, 1) = (/ &\n     &3.2983e-05_rb,6.8784e-05_rb,7.8061e-05_rb,7.7848e-05_rb,5.5215e-05_rb/)\n      kbo(:, 5,35, 1) = (/ &\n     &4.4608e-05_rb,8.5962e-05_rb,9.4799e-05_rb,9.1316e-05_rb,5.9185e-05_rb/)\n      kbo(:, 1,36, 1) = (/ &\n     &1.1639e-05_rb,2.8710e-05_rb,3.5389e-05_rb,3.8647e-05_rb,3.3496e-05_rb/)\n      kbo(:, 2,36, 1) = (/ &\n     &1.6387e-05_rb,3.7611e-05_rb,4.4660e-05_rb,4.6982e-05_rb,3.7819e-05_rb/)\n      kbo(:, 3,36, 1) = (/ &\n     &2.2931e-05_rb,4.8613e-05_rb,5.5727e-05_rb,5.6405e-05_rb,4.1793e-05_rb/)\n      kbo(:, 4,36, 1) = (/ &\n     &3.1614e-05_rb,6.1937e-05_rb,6.8745e-05_rb,6.7054e-05_rb,4.5416e-05_rb/)\n      kbo(:, 5,36, 1) = (/ &\n     &4.2736e-05_rb,7.7667e-05_rb,8.3834e-05_rb,7.9002e-05_rb,4.8700e-05_rb/)\n      kbo(:, 1,37, 1) = (/ &\n     &1.0334e-05_rb,2.4228e-05_rb,2.9412e-05_rb,3.1719e-05_rb,2.7018e-05_rb/)\n      kbo(:, 2,37, 1) = (/ &\n     &1.4545e-05_rb,3.1907e-05_rb,3.7329e-05_rb,3.8760e-05_rb,3.0586e-05_rb/)\n      kbo(:, 3,37, 1) = (/ &\n     &2.0385e-05_rb,4.1462e-05_rb,4.6849e-05_rb,4.6806e-05_rb,3.3891e-05_rb/)\n      kbo(:, 4,37, 1) = (/ &\n     &2.8167e-05_rb,5.3075e-05_rb,5.8122e-05_rb,5.5962e-05_rb,3.6915e-05_rb/)\n      kbo(:, 5,37, 1) = (/ &\n     &3.8188e-05_rb,6.6903e-05_rb,7.1250e-05_rb,6.6274e-05_rb,3.9679e-05_rb/)\n      kbo(:, 1,38, 1) = (/ &\n     &9.2873e-06_rb,2.0587e-05_rb,2.4545e-05_rb,2.6080e-05_rb,2.1759e-05_rb/)\n      kbo(:, 2,38, 1) = (/ &\n     &1.3062e-05_rb,2.7262e-05_rb,3.1359e-05_rb,3.2085e-05_rb,2.4714e-05_rb/)\n      kbo(:, 3,38, 1) = (/ &\n     &1.8340e-05_rb,3.5628e-05_rb,3.9617e-05_rb,3.8992e-05_rb,2.7465e-05_rb/)\n      kbo(:, 4,38, 1) = (/ &\n     &2.5394e-05_rb,4.5875e-05_rb,4.9461e-05_rb,4.6884e-05_rb,2.9998e-05_rb/)\n      kbo(:, 5,38, 1) = (/ &\n     &3.4528e-05_rb,5.8131e-05_rb,6.0967e-05_rb,5.5861e-05_rb,3.2334e-05_rb/)\n      kbo(:, 1,39, 1) = (/ &\n     &8.5453e-06_rb,1.7761e-05_rb,2.0713e-05_rb,2.1598e-05_rb,1.7527e-05_rb/)\n      kbo(:, 2,39, 1) = (/ &\n     &1.2008e-05_rb,2.3655e-05_rb,2.6655e-05_rb,2.6765e-05_rb,1.9983e-05_rb/)\n      kbo(:, 3,39, 1) = (/ &\n     &1.6881e-05_rb,3.1100e-05_rb,3.3909e-05_rb,3.2745e-05_rb,2.2276e-05_rb/)\n      kbo(:, 4,39, 1) = (/ &\n     &2.3421e-05_rb,4.0278e-05_rb,4.2620e-05_rb,3.9657e-05_rb,2.4422e-05_rb/)\n      kbo(:, 5,39, 1) = (/ &\n     &3.1935e-05_rb,5.1364e-05_rb,5.2889e-05_rb,4.7569e-05_rb,2.6373e-05_rb/)\n      kbo(:, 1,40, 1) = (/ &\n     &7.1461e-06_rb,1.4361e-05_rb,1.6604e-05_rb,1.7207e-05_rb,1.3880e-05_rb/)\n      kbo(:, 2,40, 1) = (/ &\n     &1.0009e-05_rb,1.9228e-05_rb,2.1496e-05_rb,2.1462e-05_rb,1.5923e-05_rb/)\n      kbo(:, 3,40, 1) = (/ &\n     &1.4089e-05_rb,2.5420e-05_rb,2.7521e-05_rb,2.6424e-05_rb,1.7845e-05_rb/)\n      kbo(:, 4,40, 1) = (/ &\n     &1.9620e-05_rb,3.3119e-05_rb,3.4800e-05_rb,3.2193e-05_rb,1.9645e-05_rb/)\n      kbo(:, 5,40, 1) = (/ &\n     &2.6885e-05_rb,4.2499e-05_rb,4.3444e-05_rb,3.8836e-05_rb,2.1269e-05_rb/)\n      kbo(:, 1,41, 1) = (/ &\n     &5.9442e-06_rb,1.1549e-05_rb,1.3242e-05_rb,1.3641e-05_rb,1.0951e-05_rb/)\n      kbo(:, 2,41, 1) = (/ &\n     &8.2890e-06_rb,1.5538e-05_rb,1.7245e-05_rb,1.7129e-05_rb,1.2647e-05_rb/)\n      kbo(:, 3,41, 1) = (/ &\n     &1.1675e-05_rb,2.0658e-05_rb,2.2220e-05_rb,2.1226e-05_rb,1.4267e-05_rb/)\n      kbo(:, 4,41, 1) = (/ &\n     &1.6317e-05_rb,2.7083e-05_rb,2.8276e-05_rb,2.6013e-05_rb,1.5751e-05_rb/)\n      kbo(:, 5,41, 1) = (/ &\n     &2.2462e-05_rb,3.4966e-05_rb,3.5519e-05_rb,3.1566e-05_rb,1.7118e-05_rb/)\n      kbo(:, 1,42, 1) = (/ &\n     &5.0039e-06_rb,9.3487e-06_rb,1.0601e-05_rb,1.0831e-05_rb,8.6234e-06_rb/)\n      kbo(:, 2,42, 1) = (/ &\n     &6.9419e-06_rb,1.2631e-05_rb,1.3888e-05_rb,1.3698e-05_rb,1.0034e-05_rb/)\n      kbo(:, 3,42, 1) = (/ &\n     &9.7739e-06_rb,1.6890e-05_rb,1.8015e-05_rb,1.7096e-05_rb,1.1383e-05_rb/)\n      kbo(:, 4,42, 1) = (/ &\n     &1.3702e-05_rb,2.2284e-05_rb,2.3078e-05_rb,2.1084e-05_rb,1.2617e-05_rb/)\n      kbo(:, 5,42, 1) = (/ &\n     &1.8946e-05_rb,2.8958e-05_rb,2.9188e-05_rb,2.5746e-05_rb,1.3767e-05_rb/)\n      kbo(:, 1,43, 1) = (/ &\n     &4.1873e-06_rb,7.4795e-06_rb,8.3830e-06_rb,8.4906e-06_rb,6.7096e-06_rb/)\n      kbo(:, 2,43, 1) = (/ &\n     &5.7609e-06_rb,1.0144e-05_rb,1.1051e-05_rb,1.0826e-05_rb,7.8872e-06_rb/)\n      kbo(:, 3,43, 1) = (/ &\n     &8.0947e-06_rb,1.3657e-05_rb,1.4441e-05_rb,1.3617e-05_rb,9.0007e-06_rb/)\n      kbo(:, 4,43, 1) = (/ &\n     &1.1379e-05_rb,1.8143e-05_rb,1.8645e-05_rb,1.6928e-05_rb,1.0041e-05_rb/)\n      kbo(:, 5,43, 1) = (/ &\n     &1.5813e-05_rb,2.3749e-05_rb,2.3760e-05_rb,2.0820e-05_rb,1.1010e-05_rb/)\n      kbo(:, 1,44, 1) = (/ &\n     &3.5435e-06_rb,5.9971e-06_rb,6.6151e-06_rb,6.6257e-06_rb,5.1813e-06_rb/)\n      kbo(:, 2,44, 1) = (/ &\n     &4.8184e-06_rb,8.1565e-06_rb,8.7802e-06_rb,8.5231e-06_rb,6.1554e-06_rb/)\n      kbo(:, 3,44, 1) = (/ &\n     &6.7381e-06_rb,1.1044e-05_rb,1.1560e-05_rb,1.0814e-05_rb,7.0815e-06_rb/)\n      kbo(:, 4,44, 1) = (/ &\n     &9.4910e-06_rb,1.4784e-05_rb,1.5050e-05_rb,1.3555e-05_rb,7.9532e-06_rb/)\n      kbo(:, 5,44, 1) = (/ &\n     &1.3248e-05_rb,1.9506e-05_rb,1.9344e-05_rb,1.6815e-05_rb,8.7723e-06_rb/)\n      kbo(:, 1,45, 1) = (/ &\n     &3.0781e-06_rb,4.8864e-06_rb,5.2730e-06_rb,5.1910e-06_rb,3.9885e-06_rb/)\n      kbo(:, 2,45, 1) = (/ &\n     &4.1281e-06_rb,6.6470e-06_rb,7.0382e-06_rb,6.7401e-06_rb,4.7888e-06_rb/)\n      kbo(:, 3,45, 1) = (/ &\n     &5.7272e-06_rb,9.0419e-06_rb,9.3373e-06_rb,8.6331e-06_rb,5.5575e-06_rb/)\n      kbo(:, 4,45, 1) = (/ &\n     &8.0675e-06_rb,1.2195e-05_rb,1.2269e-05_rb,1.0924e-05_rb,6.2888e-06_rb/)\n      kbo(:, 5,45, 1) = (/ &\n     &1.1304e-05_rb,1.6230e-05_rb,1.5911e-05_rb,1.3670e-05_rb,6.9809e-06_rb/)\n      kbo(:, 1,46, 1) = (/ &\n     &2.7031e-06_rb,4.0051e-06_rb,4.2052e-06_rb,4.0513e-06_rb,3.0391e-06_rb/)\n      kbo(:, 2,46, 1) = (/ &\n     &3.5629e-06_rb,5.4291e-06_rb,5.6384e-06_rb,5.3109e-06_rb,3.6957e-06_rb/)\n      kbo(:, 3,46, 1) = (/ &\n     &4.8917e-06_rb,7.4052e-06_rb,7.5318e-06_rb,6.8686e-06_rb,4.3368e-06_rb/)\n      kbo(:, 4,46, 1) = (/ &\n     &6.8735e-06_rb,1.0056e-05_rb,9.9863e-06_rb,8.7795e-06_rb,4.9486e-06_rb/)\n      kbo(:, 5,46, 1) = (/ &\n     &9.6601e-06_rb,1.3493e-05_rb,1.3073e-05_rb,1.1090e-05_rb,5.5328e-06_rb/)\n      kbo(:, 1,47, 1) = (/ &\n     &2.3513e-06_rb,3.2459e-06_rb,3.3109e-06_rb,3.1126e-06_rb,2.2809e-06_rb/)\n      kbo(:, 2,47, 1) = (/ &\n     &3.0285e-06_rb,4.3632e-06_rb,4.4435e-06_rb,4.1169e-06_rb,2.8160e-06_rb/)\n      kbo(:, 3,47, 1) = (/ &\n     &4.0963e-06_rb,5.9519e-06_rb,5.9675e-06_rb,5.3774e-06_rb,3.3494e-06_rb/)\n      kbo(:, 4,47, 1) = (/ &\n     &5.7200e-06_rb,8.1250e-06_rb,7.9789e-06_rb,6.9425e-06_rb,3.8611e-06_rb/)\n      kbo(:, 5,47, 1) = (/ &\n     &8.0548e-06_rb,1.0990e-05_rb,1.0545e-05_rb,8.8570e-06_rb,4.3522e-06_rb/)\n      kbo(:, 1,48, 1) = (/ &\n     &2.1277e-06_rb,2.7115e-06_rb,2.6627e-06_rb,2.4165e-06_rb,1.7021e-06_rb/)\n      kbo(:, 2,48, 1) = (/ &\n     &2.6703e-06_rb,3.5982e-06_rb,3.5641e-06_rb,3.2218e-06_rb,2.1347e-06_rb/)\n      kbo(:, 3,48, 1) = (/ &\n     &3.5476e-06_rb,4.8904e-06_rb,4.8030e-06_rb,4.2482e-06_rb,2.5746e-06_rb/)\n      kbo(:, 4,48, 1) = (/ &\n     &4.9045e-06_rb,6.6952e-06_rb,6.4687e-06_rb,5.5412e-06_rb,3.0044e-06_rb/)\n      kbo(:, 5,48, 1) = (/ &\n     &6.9032e-06_rb,9.1233e-06_rb,8.6345e-06_rb,7.1468e-06_rb,3.4162e-06_rb/)\n      kbo(:, 1,49, 1) = (/ &\n     &2.0328e-06_rb,2.3718e-06_rb,2.2199e-06_rb,1.9157e-06_rb,1.2610e-06_rb/)\n      kbo(:, 2,49, 1) = (/ &\n     &2.4767e-06_rb,3.0887e-06_rb,2.9459e-06_rb,2.5646e-06_rb,1.6091e-06_rb/)\n      kbo(:, 3,49, 1) = (/ &\n     &3.2245e-06_rb,4.1594e-06_rb,3.9687e-06_rb,3.4109e-06_rb,1.9688e-06_rb/)\n      kbo(:, 4,49, 1) = (/ &\n     &4.3950e-06_rb,5.6964e-06_rb,5.3766e-06_rb,4.4963e-06_rb,2.3270e-06_rb/)\n      kbo(:, 5,49, 1) = (/ &\n     &6.1628e-06_rb,7.8088e-06_rb,7.2467e-06_rb,5.8704e-06_rb,2.6722e-06_rb/)\n      kbo(:, 1,50, 1) = (/ &\n     &1.8800e-06_rb,2.0468e-06_rb,1.8384e-06_rb,1.5142e-06_rb,9.3123e-07_rb/)\n      kbo(:, 2,50, 1) = (/ &\n     &2.2261e-06_rb,2.6068e-06_rb,2.4062e-06_rb,2.0250e-06_rb,1.2100e-06_rb/)\n      kbo(:, 3,50, 1) = (/ &\n     &2.8323e-06_rb,3.4659e-06_rb,3.2264e-06_rb,2.7071e-06_rb,1.5035e-06_rb/)\n      kbo(:, 4,50, 1) = (/ &\n     &3.7999e-06_rb,4.7249e-06_rb,4.3788e-06_rb,3.5953e-06_rb,1.7997e-06_rb/)\n      kbo(:, 5,50, 1) = (/ &\n     &5.2884e-06_rb,6.4943e-06_rb,5.9393e-06_rb,4.7367e-06_rb,2.0882e-06_rb/)\n      kbo(:, 1,51, 1) = (/ &\n     &1.7210e-06_rb,1.7678e-06_rb,1.5277e-06_rb,1.2003e-06_rb,6.8440e-07_rb/)\n      kbo(:, 2,51, 1) = (/ &\n     &1.9818e-06_rb,2.1939e-06_rb,1.9638e-06_rb,1.5963e-06_rb,9.0698e-07_rb/)\n      kbo(:, 3,51, 1) = (/ &\n     &2.4588e-06_rb,2.8718e-06_rb,2.6104e-06_rb,2.1370e-06_rb,1.1441e-06_rb/)\n      kbo(:, 4,51, 1) = (/ &\n     &3.2428e-06_rb,3.8817e-06_rb,3.5358e-06_rb,2.8541e-06_rb,1.3878e-06_rb/)\n      kbo(:, 5,51, 1) = (/ &\n     &4.4645e-06_rb,5.3335e-06_rb,4.8140e-06_rb,3.7885e-06_rb,1.6275e-06_rb/)\n      kbo(:, 1,52, 1) = (/ &\n     &1.6367e-06_rb,1.5882e-06_rb,1.3178e-06_rb,9.7791e-07_rb,4.9920e-07_rb/)\n      kbo(:, 2,52, 1) = (/ &\n     &1.8355e-06_rb,1.9143e-06_rb,1.6527e-06_rb,1.2853e-06_rb,6.7537e-07_rb/)\n      kbo(:, 3,52, 1) = (/ &\n     &2.2162e-06_rb,2.4540e-06_rb,2.1676e-06_rb,1.7156e-06_rb,8.6642e-07_rb/)\n      kbo(:, 4,52, 1) = (/ &\n     &2.8651e-06_rb,3.2774e-06_rb,2.9188e-06_rb,2.2996e-06_rb,1.0660e-06_rb/)\n      kbo(:, 5,52, 1) = (/ &\n     &3.8903e-06_rb,4.4871e-06_rb,3.9803e-06_rb,3.0728e-06_rb,1.2649e-06_rb/)\n      kbo(:, 1,53, 1) = (/ &\n     &1.6359e-06_rb,1.5065e-06_rb,1.1971e-06_rb,8.3215e-07_rb,3.6108e-07_rb/)\n      kbo(:, 2,53, 1) = (/ &\n     &1.7884e-06_rb,1.7570e-06_rb,1.4552e-06_rb,1.0704e-06_rb,4.9954e-07_rb/)\n      kbo(:, 3,53, 1) = (/ &\n     &2.1010e-06_rb,2.1926e-06_rb,1.8706e-06_rb,1.4156e-06_rb,6.5257e-07_rb/)\n      kbo(:, 4,53, 1) = (/ &\n     &2.6543e-06_rb,2.8821e-06_rb,2.4935e-06_rb,1.8975e-06_rb,8.1519e-07_rb/)\n      kbo(:, 5,53, 1) = (/ &\n     &3.5462e-06_rb,3.9143e-06_rb,3.3945e-06_rb,2.5503e-06_rb,9.8011e-07_rb/)\n      kbo(:, 1,54, 1) = (/ &\n     &1.4300e-06_rb,1.2802e-06_rb,9.9257e-07_rb,6.6497e-07_rb,2.6129e-07_rb/)\n      kbo(:, 2,54, 1) = (/ &\n     &1.5262e-06_rb,1.4508e-06_rb,1.1768e-06_rb,8.3958e-07_rb,3.6958e-07_rb/)\n      kbo(:, 3,54, 1) = (/ &\n     &1.7484e-06_rb,1.7685e-06_rb,1.4827e-06_rb,1.0992e-06_rb,4.9169e-07_rb/)\n      kbo(:, 4,54, 1) = (/ &\n     &2.1569e-06_rb,2.2883e-06_rb,1.9539e-06_rb,1.4679e-06_rb,6.2244e-07_rb/)\n      kbo(:, 5,54, 1) = (/ &\n     &2.8354e-06_rb,3.0764e-06_rb,2.6455e-06_rb,1.9748e-06_rb,7.5773e-07_rb/)\n      kbo(:, 1,55, 1) = (/ &\n     &1.1496e-06_rb,1.0107e-06_rb,7.7300e-07_rb,5.0639e-07_rb,1.8790e-07_rb/)\n      kbo(:, 2,55, 1) = (/ &\n     &1.1995e-06_rb,1.1187e-06_rb,8.9719e-07_rb,6.3009e-07_rb,2.7269e-07_rb/)\n      kbo(:, 3,55, 1) = (/ &\n     &1.3422e-06_rb,1.3346e-06_rb,1.1096e-06_rb,8.1740e-07_rb,3.6933e-07_rb/)\n      kbo(:, 4,55, 1) = (/ &\n     &1.6169e-06_rb,1.6973e-06_rb,1.4454e-06_rb,1.0866e-06_rb,4.7429e-07_rb/)\n      kbo(:, 5,55, 1) = (/ &\n     &2.0871e-06_rb,2.2587e-06_rb,1.9432e-06_rb,1.4592e-06_rb,5.8406e-07_rb/)\n      kbo(:, 1,56, 1) = (/ &\n     &9.3098e-07_rb,8.0374e-07_rb,6.0662e-07_rb,3.8780e-07_rb,1.3395e-07_rb/)\n      kbo(:, 2,56, 1) = (/ &\n     &9.4853e-07_rb,8.6979e-07_rb,6.8824e-07_rb,4.7493e-07_rb,1.9978e-07_rb/)\n      kbo(:, 3,56, 1) = (/ &\n     &1.0383e-06_rb,1.0136e-06_rb,8.3527e-07_rb,6.0949e-07_rb,2.7592e-07_rb/)\n      kbo(:, 4,56, 1) = (/ &\n     &1.2210e-06_rb,1.2652e-06_rb,1.0730e-06_rb,8.0519e-07_rb,3.6001e-07_rb/)\n      kbo(:, 5,56, 1) = (/ &\n     &1.5443e-06_rb,1.6630e-06_rb,1.4302e-06_rb,1.0789e-06_rb,4.4877e-07_rb/)\n      kbo(:, 1,57, 1) = (/ &\n     &7.5869e-07_rb,6.4433e-07_rb,4.7913e-07_rb,2.9908e-07_rb,9.4559e-08_rb/)\n      kbo(:, 2,57, 1) = (/ &\n     &7.5680e-07_rb,6.8154e-07_rb,5.3140e-07_rb,3.5955e-07_rb,1.4504e-07_rb/)\n      kbo(:, 3,57, 1) = (/ &\n     &8.0958e-07_rb,7.7512e-07_rb,6.3252e-07_rb,4.5567e-07_rb,2.0501e-07_rb/)\n      kbo(:, 4,57, 1) = (/ &\n     &9.2953e-07_rb,9.4815e-07_rb,7.9932e-07_rb,5.9759e-07_rb,2.7208e-07_rb/)\n      kbo(:, 5,57, 1) = (/ &\n     &1.1491e-06_rb,1.2288e-06_rb,1.0552e-06_rb,7.9844e-07_rb,3.4355e-07_rb/)\n      kbo(:, 1,58, 1) = (/ &\n     &1.6388e-07_rb,1.6804e-07_rb,1.5881e-07_rb,1.3627e-07_rb,6.6479e-08_rb/)\n      kbo(:, 2,58, 1) = (/ &\n     &1.6042e-07_rb,1.7409e-07_rb,1.7274e-07_rb,1.6106e-07_rb,1.0511e-07_rb/)\n      kbo(:, 3,58, 1) = (/ &\n     &1.6792e-07_rb,1.9377e-07_rb,2.0193e-07_rb,2.0193e-07_rb,1.5191e-07_rb/)\n      kbo(:, 4,58, 1) = (/ &\n     &1.8861e-07_rb,2.3235e-07_rb,2.5117e-07_rb,2.6306e-07_rb,2.0537e-07_rb/)\n      kbo(:, 5,58, 1) = (/ &\n     &2.2793e-07_rb,2.9684e-07_rb,3.2824e-07_rb,3.5018e-07_rb,2.6292e-07_rb/)\n      kbo(:, 1,59, 1) = (/ &\n     &1.5765e-07_rb,1.5618e-07_rb,1.3958e-07_rb,1.1007e-07_rb,5.0739e-08_rb/)\n      kbo(:, 2,59, 1) = (/ &\n     &1.5325e-07_rb,1.6219e-07_rb,1.5348e-07_rb,1.3308e-07_rb,8.1077e-08_rb/)\n      kbo(:, 3,59, 1) = (/ &\n     &1.5900e-07_rb,1.8099e-07_rb,1.8121e-07_rb,1.6979e-07_rb,1.1831e-07_rb/)\n      kbo(:, 4,59, 1) = (/ &\n     &1.7701e-07_rb,2.1714e-07_rb,2.2693e-07_rb,2.2335e-07_rb,1.6137e-07_rb/)\n      kbo(:, 5,59, 1) = (/ &\n     &2.1198e-07_rb,2.7749e-07_rb,2.9703e-07_rb,2.9803e-07_rb,2.0840e-07_rb/)\n      kbo(:, 1,13, 2) = (/ &\n     &3.6279e-03_rb,6.1760e-03_rb,7.4137e-03_rb,8.1756e-03_rb,7.6678e-03_rb/)\n      kbo(:, 2,13, 2) = (/ &\n     &4.7275e-03_rb,8.3099e-03_rb,9.8779e-03_rb,1.0590e-02_rb,9.2190e-03_rb/)\n      kbo(:, 3,13, 2) = (/ &\n     &6.7817e-03_rb,1.1546e-02_rb,1.3324e-02_rb,1.3748e-02_rb,1.0778e-02_rb/)\n      kbo(:, 4,13, 2) = (/ &\n     &1.0391e-02_rb,1.6290e-02_rb,1.8048e-02_rb,1.7786e-02_rb,1.2299e-02_rb/)\n      kbo(:, 5,13, 2) = (/ &\n     &1.6231e-02_rb,2.2973e-02_rb,2.4369e-02_rb,2.2866e-02_rb,1.3775e-02_rb/)\n      kbo(:, 1,14, 2) = (/ &\n     &1.9069e-03_rb,4.2185e-03_rb,5.5573e-03_rb,6.5712e-03_rb,6.6234e-03_rb/)\n      kbo(:, 2,14, 2) = (/ &\n     &2.5180e-03_rb,5.7108e-03_rb,7.3682e-03_rb,8.4311e-03_rb,7.9352e-03_rb/)\n      kbo(:, 3,14, 2) = (/ &\n     &3.6614e-03_rb,7.8938e-03_rb,9.8216e-03_rb,1.0792e-02_rb,9.2480e-03_rb/)\n      kbo(:, 4,14, 2) = (/ &\n     &5.6530e-03_rb,1.1002e-02_rb,1.3072e-02_rb,1.3740e-02_rb,1.0517e-02_rb/)\n      kbo(:, 5,14, 2) = (/ &\n     &8.8619e-03_rb,1.5292e-02_rb,1.7338e-02_rb,1.7343e-02_rb,1.1731e-02_rb/)\n      kbo(:, 1,15, 2) = (/ &\n     &1.0269e-03_rb,3.0313e-03_rb,4.3258e-03_rb,5.3827e-03_rb,5.7089e-03_rb/)\n      kbo(:, 2,15, 2) = (/ &\n     &1.3765e-03_rb,4.1045e-03_rb,5.6876e-03_rb,6.8515e-03_rb,6.8087e-03_rb/)\n      kbo(:, 3,15, 2) = (/ &\n     &2.0273e-03_rb,5.6227e-03_rb,7.4759e-03_rb,8.6449e-03_rb,7.9051e-03_rb/)\n      kbo(:, 4,15, 2) = (/ &\n     &3.1553e-03_rb,7.7214e-03_rb,9.7810e-03_rb,1.0828e-02_rb,8.9583e-03_rb/)\n      kbo(:, 5,15, 2) = (/ &\n     &4.9678e-03_rb,1.0557e-02_rb,1.2725e-02_rb,1.3447e-02_rb,9.9499e-03_rb/)\n      kbo(:, 1,16, 2) = (/ &\n     &6.6110e-04_rb,2.3925e-03_rb,3.5607e-03_rb,4.5272e-03_rb,4.9025e-03_rb/)\n      kbo(:, 2,16, 2) = (/ &\n     &8.9912e-04_rb,3.2391e-03_rb,4.6534e-03_rb,5.7377e-03_rb,5.8262e-03_rb/)\n      kbo(:, 3,16, 2) = (/ &\n     &1.3419e-03_rb,4.4091e-03_rb,6.0651e-03_rb,7.1821e-03_rb,6.7308e-03_rb/)\n      kbo(:, 4,16, 2) = (/ &\n     &2.1065e-03_rb,5.9970e-03_rb,7.8566e-03_rb,8.9138e-03_rb,7.5936e-03_rb/)\n      kbo(:, 5,16, 2) = (/ &\n     &3.3254e-03_rb,8.1145e-03_rb,1.0111e-02_rb,1.0963e-02_rb,8.4021e-03_rb/)\n      kbo(:, 1,17, 2) = (/ &\n     &4.4242e-04_rb,1.9273e-03_rb,2.9584e-03_rb,3.8169e-03_rb,4.1910e-03_rb/)\n      kbo(:, 2,17, 2) = (/ &\n     &6.0993e-04_rb,2.6019e-03_rb,3.8415e-03_rb,4.8112e-03_rb,4.9579e-03_rb/)\n      kbo(:, 3,17, 2) = (/ &\n     &9.2221e-04_rb,3.5184e-03_rb,4.9669e-03_rb,5.9811e-03_rb,5.6981e-03_rb/)\n      kbo(:, 4,17, 2) = (/ &\n     &1.4572e-03_rb,4.7461e-03_rb,6.3751e-03_rb,7.3581e-03_rb,6.3963e-03_rb/)\n      kbo(:, 5,17, 2) = (/ &\n     &2.3036e-03_rb,6.3581e-03_rb,8.1281e-03_rb,8.9737e-03_rb,7.0378e-03_rb/)\n      kbo(:, 1,18, 2) = (/ &\n     &3.0388e-04_rb,1.5707e-03_rb,2.4656e-03_rb,3.2158e-03_rb,3.5652e-03_rb/)\n      kbo(:, 2,18, 2) = (/ &\n     &4.2513e-04_rb,2.1109e-03_rb,3.1840e-03_rb,4.0302e-03_rb,4.1950e-03_rb/)\n      kbo(:, 3,18, 2) = (/ &\n     &6.4993e-04_rb,2.8372e-03_rb,4.0815e-03_rb,4.9772e-03_rb,4.7960e-03_rb/)\n      kbo(:, 4,18, 2) = (/ &\n     &1.0315e-03_rb,3.7953e-03_rb,5.1949e-03_rb,6.0778e-03_rb,5.3518e-03_rb/)\n      kbo(:, 5,18, 2) = (/ &\n     &1.6331e-03_rb,5.0371e-03_rb,6.5707e-03_rb,7.3465e-03_rb,5.8586e-03_rb/)\n      kbo(:, 1,19, 2) = (/ &\n     &2.0547e-04_rb,1.2763e-03_rb,2.0458e-03_rb,2.6959e-03_rb,3.0176e-03_rb/)\n      kbo(:, 2,19, 2) = (/ &\n     &2.9169e-04_rb,1.7044e-03_rb,2.6231e-03_rb,3.3550e-03_rb,3.5313e-03_rb/)\n      kbo(:, 3,19, 2) = (/ &\n     &4.4987e-04_rb,2.2721e-03_rb,3.3322e-03_rb,4.1113e-03_rb,4.0121e-03_rb/)\n      kbo(:, 4,19, 2) = (/ &\n     &7.1653e-04_rb,3.0090e-03_rb,4.2013e-03_rb,4.9750e-03_rb,4.4532e-03_rb/)\n      kbo(:, 5,19, 2) = (/ &\n     &1.1358e-03_rb,3.9520e-03_rb,5.2567e-03_rb,5.9542e-03_rb,4.8572e-03_rb/)\n      kbo(:, 1,20, 2) = (/ &\n     &1.5174e-04_rb,1.0642e-03_rb,1.7200e-03_rb,2.2761e-03_rb,2.5514e-03_rb/)\n      kbo(:, 2,20, 2) = (/ &\n     &2.1846e-04_rb,1.4153e-03_rb,2.1942e-03_rb,2.8165e-03_rb,2.9650e-03_rb/)\n      kbo(:, 3,20, 2) = (/ &\n     &3.3982e-04_rb,1.8745e-03_rb,2.7705e-03_rb,3.4277e-03_rb,3.3482e-03_rb/)\n      kbo(:, 4,20, 2) = (/ &\n     &5.4313e-04_rb,2.4649e-03_rb,3.4676e-03_rb,4.1183e-03_rb,3.7008e-03_rb/)\n      kbo(:, 5,20, 2) = (/ &\n     &8.6061e-04_rb,3.2127e-03_rb,4.3062e-03_rb,4.9014e-03_rb,4.0252e-03_rb/)\n      kbo(:, 1,21, 2) = (/ &\n     &1.1592e-04_rb,8.9297e-04_rb,1.4493e-03_rb,1.9202e-03_rb,2.1482e-03_rb/)\n      kbo(:, 2,21, 2) = (/ &\n     &1.6918e-04_rb,1.1825e-03_rb,1.8389e-03_rb,2.3614e-03_rb,2.4794e-03_rb/)\n      kbo(:, 3,21, 2) = (/ &\n     &2.6522e-04_rb,1.5570e-03_rb,2.3088e-03_rb,2.8574e-03_rb,2.7868e-03_rb/)\n      kbo(:, 4,21, 2) = (/ &\n     &4.2461e-04_rb,2.0332e-03_rb,2.8744e-03_rb,3.4170e-03_rb,3.0702e-03_rb/)\n      kbo(:, 5,21, 2) = (/ &\n     &6.7177e-04_rb,2.6322e-03_rb,3.5494e-03_rb,4.0519e-03_rb,3.3309e-03_rb/)\n      kbo(:, 1,22, 2) = (/ &\n     &9.3055e-05_rb,7.6606e-04_rb,1.2409e-03_rb,1.6398e-03_rb,1.8197e-03_rb/)\n      kbo(:, 2,22, 2) = (/ &\n     &1.3841e-04_rb,1.0092e-03_rb,1.5660e-03_rb,2.0038e-03_rb,2.0843e-03_rb/)\n      kbo(:, 3,22, 2) = (/ &\n     &2.1899e-04_rb,1.3206e-03_rb,1.9566e-03_rb,2.4125e-03_rb,2.3311e-03_rb/)\n      kbo(:, 4,22, 2) = (/ &\n     &3.5071e-04_rb,1.7145e-03_rb,2.4240e-03_rb,2.8744e-03_rb,2.5586e-03_rb/)\n      kbo(:, 5,22, 2) = (/ &\n     &5.5216e-04_rb,2.2067e-03_rb,2.9792e-03_rb,3.3952e-03_rb,2.7680e-03_rb/)\n      kbo(:, 1,23, 2) = (/ &\n     &7.5659e-05_rb,6.5668e-04_rb,1.0605e-03_rb,1.3970e-03_rb,1.5365e-03_rb/)\n      kbo(:, 2,23, 2) = (/ &\n     &1.1449e-04_rb,8.6018e-04_rb,1.3327e-03_rb,1.6978e-03_rb,1.7494e-03_rb/)\n      kbo(:, 3,23, 2) = (/ &\n     &1.8237e-04_rb,1.1195e-03_rb,1.6581e-03_rb,2.0367e-03_rb,1.9476e-03_rb/)\n      kbo(:, 4,23, 2) = (/ &\n     &2.9157e-04_rb,1.4455e-03_rb,2.0441e-03_rb,2.4187e-03_rb,2.1305e-03_rb/)\n      kbo(:, 5,23, 2) = (/ &\n     &4.5638e-04_rb,1.8506e-03_rb,2.4994e-03_rb,2.8459e-03_rb,2.2986e-03_rb/)\n      kbo(:, 1,24, 2) = (/ &\n     &6.1686e-05_rb,5.6133e-04_rb,9.0530e-04_rb,1.1887e-03_rb,1.2959e-03_rb/)\n      kbo(:, 2,24, 2) = (/ &\n     &9.4868e-05_rb,7.3156e-04_rb,1.1327e-03_rb,1.4379e-03_rb,1.4672e-03_rb/)\n      kbo(:, 3,24, 2) = (/ &\n     &1.5170e-04_rb,9.4694e-04_rb,1.4023e-03_rb,1.7186e-03_rb,1.6265e-03_rb/)\n      kbo(:, 4,24, 2) = (/ &\n     &2.4184e-04_rb,1.2160e-03_rb,1.7202e-03_rb,2.0324e-03_rb,1.7732e-03_rb/)\n      kbo(:, 5,24, 2) = (/ &\n     &3.7584e-04_rb,1.5479e-03_rb,2.0924e-03_rb,2.3822e-03_rb,1.9076e-03_rb/)\n      kbo(:, 1,25, 2) = (/ &\n     &5.1420e-05_rb,4.8151e-04_rb,7.7480e-04_rb,1.0127e-03_rb,1.0925e-03_rb/)\n      kbo(:, 2,25, 2) = (/ &\n     &8.0205e-05_rb,6.2472e-04_rb,9.6537e-04_rb,1.2206e-03_rb,1.2305e-03_rb/)\n      kbo(:, 3,25, 2) = (/ &\n     &1.2852e-04_rb,8.0481e-04_rb,1.1895e-03_rb,1.4535e-03_rb,1.3583e-03_rb/)\n      kbo(:, 4,25, 2) = (/ &\n     &2.0384e-04_rb,1.0284e-03_rb,1.4523e-03_rb,1.7128e-03_rb,1.4762e-03_rb/)\n      kbo(:, 5,25, 2) = (/ &\n     &3.1446e-04_rb,1.3022e-03_rb,1.7587e-03_rb,1.9996e-03_rb,1.5839e-03_rb/)\n      kbo(:, 1,26, 2) = (/ &\n     &4.4173e-05_rb,4.1605e-04_rb,6.6653e-04_rb,8.6651e-04_rb,9.2186e-04_rb/)\n      kbo(:, 2,26, 2) = (/ &\n     &6.9706e-05_rb,5.3779e-04_rb,8.2701e-04_rb,1.0408e-03_rb,1.0329e-03_rb/)\n      kbo(:, 3,26, 2) = (/ &\n     &1.1164e-04_rb,6.8982e-04_rb,1.0147e-03_rb,1.2348e-03_rb,1.1353e-03_rb/)\n      kbo(:, 4,26, 2) = (/ &\n     &1.7590e-04_rb,8.7786e-04_rb,1.2337e-03_rb,1.4499e-03_rb,1.2294e-03_rb/)\n      kbo(:, 5,26, 2) = (/ &\n     &2.6942e-04_rb,1.1054e-03_rb,1.4885e-03_rb,1.6863e-03_rb,1.3161e-03_rb/)\n      kbo(:, 1,27, 2) = (/ &\n     &3.9675e-05_rb,3.6275e-04_rb,5.7658e-04_rb,7.4423e-04_rb,7.7727e-04_rb/)\n      kbo(:, 2,27, 2) = (/ &\n     &6.3079e-05_rb,4.6769e-04_rb,7.1304e-04_rb,8.9128e-04_rb,8.6622e-04_rb/)\n      kbo(:, 3,27, 2) = (/ &\n     &1.0080e-04_rb,5.9857e-04_rb,8.7226e-04_rb,1.0546e-03_rb,9.4873e-04_rb/)\n      kbo(:, 4,27, 2) = (/ &\n     &1.5784e-04_rb,7.5914e-04_rb,1.0582e-03_rb,1.2346e-03_rb,1.0243e-03_rb/)\n      kbo(:, 5,27, 2) = (/ &\n     &2.3988e-04_rb,9.5199e-04_rb,1.2727e-03_rb,1.4326e-03_rb,1.0935e-03_rb/)\n      kbo(:, 1,28, 2) = (/ &\n     &3.6787e-05_rb,3.1827e-04_rb,5.0054e-04_rb,6.4070e-04_rb,6.5436e-04_rb/)\n      kbo(:, 2,28, 2) = (/ &\n     &5.8744e-05_rb,4.0999e-04_rb,6.1769e-04_rb,7.6553e-04_rb,7.2608e-04_rb/)\n      kbo(:, 3,28, 2) = (/ &\n     &9.3496e-05_rb,5.2404e-04_rb,7.5434e-04_rb,9.0364e-04_rb,7.9234e-04_rb/)\n      kbo(:, 4,28, 2) = (/ &\n     &1.4539e-04_rb,6.6291e-04_rb,9.1412e-04_rb,1.0560e-03_rb,8.5294e-04_rb/)\n      kbo(:, 5,28, 2) = (/ &\n     &2.1931e-04_rb,8.2828e-04_rb,1.0967e-03_rb,1.2236e-03_rb,9.0840e-04_rb/)\n      kbo(:, 1,29, 2) = (/ &\n     &3.6448e-05_rb,2.8470e-04_rb,4.4017e-04_rb,5.5630e-04_rb,5.5097e-04_rb/)\n      kbo(:, 2,29, 2) = (/ &\n     &5.8278e-05_rb,3.6727e-04_rb,5.4285e-04_rb,6.6380e-04_rb,6.0864e-04_rb/)\n      kbo(:, 3,29, 2) = (/ &\n     &9.2358e-05_rb,4.6962e-04_rb,6.6368e-04_rb,7.8295e-04_rb,6.6201e-04_rb/)\n      kbo(:, 4,29, 2) = (/ &\n     &1.4253e-04_rb,5.9354e-04_rb,8.0405e-04_rb,9.1518e-04_rb,7.1060e-04_rb/)\n      kbo(:, 5,29, 2) = (/ &\n     &2.1329e-04_rb,7.4124e-04_rb,9.6341e-04_rb,1.0599e-03_rb,7.5499e-04_rb/)\n      kbo(:, 1,30, 2) = (/ &\n     &3.7091e-05_rb,2.5711e-04_rb,3.8922e-04_rb,4.8469e-04_rb,4.6359e-04_rb/)\n      kbo(:, 2,30, 2) = (/ &\n     &5.9310e-05_rb,3.3239e-04_rb,4.8070e-04_rb,5.7820e-04_rb,5.1002e-04_rb/)\n      kbo(:, 3,30, 2) = (/ &\n     &9.3453e-05_rb,4.2556e-04_rb,5.8851e-04_rb,6.8238e-04_rb,5.5293e-04_rb/)\n      kbo(:, 4,30, 2) = (/ &\n     &1.4319e-04_rb,5.3792e-04_rb,7.1341e-04_rb,7.9807e-04_rb,5.9204e-04_rb/)\n      kbo(:, 5,30, 2) = (/ &\n     &2.1251e-04_rb,6.7254e-04_rb,8.5446e-04_rb,9.2424e-04_rb,6.2785e-04_rb/)\n      kbo(:, 1,31, 2) = (/ &\n     &3.9864e-05_rb,2.3712e-04_rb,3.4911e-04_rb,4.2654e-04_rb,3.8998e-04_rb/)\n      kbo(:, 2,31, 2) = (/ &\n     &6.3592e-05_rb,3.0797e-04_rb,4.3283e-04_rb,5.0926e-04_rb,4.2741e-04_rb/)\n      kbo(:, 3,31, 2) = (/ &\n     &9.9603e-05_rb,3.9506e-04_rb,5.3137e-04_rb,6.0258e-04_rb,4.6195e-04_rb/)\n      kbo(:, 4,31, 2) = (/ &\n     &1.5142e-04_rb,5.0071e-04_rb,6.4518e-04_rb,7.0554e-04_rb,4.9395e-04_rb/)\n      kbo(:, 5,31, 2) = (/ &\n     &2.2297e-04_rb,6.2830e-04_rb,7.7442e-04_rb,8.1724e-04_rb,5.2260e-04_rb/)\n      kbo(:, 1,32, 2) = (/ &\n     &4.3430e-05_rb,2.2111e-04_rb,3.1573e-04_rb,3.7714e-04_rb,3.2795e-04_rb/)\n      kbo(:, 2,32, 2) = (/ &\n     &6.9083e-05_rb,2.8816e-04_rb,3.9276e-04_rb,4.5160e-04_rb,3.5813e-04_rb/)\n      kbo(:, 3,32, 2) = (/ &\n     &1.0740e-04_rb,3.7075e-04_rb,4.8372e-04_rb,5.3513e-04_rb,3.8620e-04_rb/)\n      kbo(:, 4,32, 2) = (/ &\n     &1.6196e-04_rb,4.7193e-04_rb,5.8843e-04_rb,6.2745e-04_rb,4.1195e-04_rb/)\n      kbo(:, 5,32, 2) = (/ &\n     &2.3647e-04_rb,5.9479e-04_rb,7.0866e-04_rb,7.2794e-04_rb,4.3506e-04_rb/)\n      kbo(:, 1,33, 2) = (/ &\n     &4.8220e-05_rb,2.0906e-04_rb,2.8832e-04_rb,3.3596e-04_rb,2.7570e-04_rb/)\n      kbo(:, 2,33, 2) = (/ &\n     &7.6368e-05_rb,2.7329e-04_rb,3.6023e-04_rb,4.0330e-04_rb,3.0019e-04_rb/)\n      kbo(:, 3,33, 2) = (/ &\n     &1.1780e-04_rb,3.5332e-04_rb,4.4506e-04_rb,4.7900e-04_rb,3.2295e-04_rb/)\n      kbo(:, 4,33, 2) = (/ &\n     &1.7613e-04_rb,4.5198e-04_rb,5.4349e-04_rb,5.6284e-04_rb,3.4357e-04_rb/)\n      kbo(:, 5,33, 2) = (/ &\n     &2.5515e-04_rb,5.7259e-04_rb,6.5773e-04_rb,6.5473e-04_rb,3.6197e-04_rb/)\n      kbo(:, 1,34, 2) = (/ &\n     &5.1326e-05_rb,1.9484e-04_rb,2.6083e-04_rb,2.9705e-04_rb,2.3085e-04_rb/)\n      kbo(:, 2,34, 2) = (/ &\n     &8.0913e-05_rb,2.5559e-04_rb,3.2688e-04_rb,3.5738e-04_rb,2.5079e-04_rb/)\n      kbo(:, 3,34, 2) = (/ &\n     &1.2390e-04_rb,3.3190e-04_rb,4.0497e-04_rb,4.2508e-04_rb,2.6902e-04_rb/)\n      kbo(:, 4,34, 2) = (/ &\n     &1.8386e-04_rb,4.2648e-04_rb,4.9662e-04_rb,5.0061e-04_rb,2.8571e-04_rb/)\n      kbo(:, 5,34, 2) = (/ &\n     &2.6467e-04_rb,5.4249e-04_rb,6.0361e-04_rb,5.8398e-04_rb,3.0059e-04_rb/)\n      kbo(:, 1,35, 2) = (/ &\n     &5.2281e-05_rb,1.7754e-04_rb,2.3171e-04_rb,2.5859e-04_rb,1.9168e-04_rb/)\n      kbo(:, 2,35, 2) = (/ &\n     &8.2157e-05_rb,2.3435e-04_rb,2.9174e-04_rb,3.1208e-04_rb,2.0781e-04_rb/)\n      kbo(:, 3,35, 2) = (/ &\n     &1.2528e-04_rb,3.0602e-04_rb,3.6300e-04_rb,3.7259e-04_rb,2.2270e-04_rb/)\n      kbo(:, 4,35, 2) = (/ &\n     &1.8516e-04_rb,3.9534e-04_rb,4.4759e-04_rb,4.4038e-04_rb,2.3630e-04_rb/)\n      kbo(:, 5,35, 2) = (/ &\n     &2.6552e-04_rb,5.0554e-04_rb,5.4703e-04_rb,5.1605e-04_rb,2.4840e-04_rb/)\n      kbo(:, 1,36, 2) = (/ &\n     &5.0331e-05_rb,1.5710e-04_rb,2.0093e-04_rb,2.2058e-04_rb,1.5759e-04_rb/)\n      kbo(:, 2,36, 2) = (/ &\n     &7.9043e-05_rb,2.0874e-04_rb,2.5435e-04_rb,2.6739e-04_rb,1.7077e-04_rb/)\n      kbo(:, 3,36, 2) = (/ &\n     &1.2045e-04_rb,2.7440e-04_rb,3.1834e-04_rb,3.2085e-04_rb,1.8310e-04_rb/)\n      kbo(:, 4,36, 2) = (/ &\n     &1.7786e-04_rb,3.5687e-04_rb,3.9494e-04_rb,3.8113e-04_rb,1.9431e-04_rb/)\n      kbo(:, 5,36, 2) = (/ &\n     &2.5490e-04_rb,4.5880e-04_rb,4.8570e-04_rb,4.4889e-04_rb,2.0416e-04_rb/)\n      kbo(:, 1,37, 2) = (/ &\n     &4.4029e-05_rb,1.3168e-04_rb,1.6668e-04_rb,1.8164e-04_rb,1.2776e-04_rb/)\n      kbo(:, 2,37, 2) = (/ &\n     &6.9369e-05_rb,1.7622e-04_rb,2.1241e-04_rb,2.2140e-04_rb,1.3874e-04_rb/)\n      kbo(:, 3,37, 2) = (/ &\n     &1.0612e-04_rb,2.3332e-04_rb,2.6770e-04_rb,2.6723e-04_rb,1.4898e-04_rb/)\n      kbo(:, 4,37, 2) = (/ &\n     &1.5731e-04_rb,3.0549e-04_rb,3.3418e-04_rb,3.1918e-04_rb,1.5836e-04_rb/)\n      kbo(:, 5,37, 2) = (/ &\n     &2.2631e-04_rb,3.9537e-04_rb,4.1350e-04_rb,3.7792e-04_rb,1.6663e-04_rb/)\n      kbo(:, 1,38, 2) = (/ &\n     &3.8922e-05_rb,1.1094e-04_rb,1.3878e-04_rb,1.4984e-04_rb,1.0348e-04_rb/)\n      kbo(:, 2,38, 2) = (/ &\n     &6.1507e-05_rb,1.4964e-04_rb,1.7814e-04_rb,1.8378e-04_rb,1.1264e-04_rb/)\n      kbo(:, 3,38, 2) = (/ &\n     &9.4510e-05_rb,1.9970e-04_rb,2.2619e-04_rb,2.2325e-04_rb,1.2117e-04_rb/)\n      kbo(:, 4,38, 2) = (/ &\n     &1.4072e-04_rb,2.6356e-04_rb,2.8447e-04_rb,2.6849e-04_rb,1.2897e-04_rb/)\n      kbo(:, 5,38, 2) = (/ &\n     &2.0319e-04_rb,3.4350e-04_rb,3.5441e-04_rb,3.1981e-04_rb,1.3588e-04_rb/)\n      kbo(:, 1,39, 2) = (/ &\n     &3.5197e-05_rb,9.4645e-05_rb,1.1658e-04_rb,1.2439e-04_rb,8.3852e-05_rb/)\n      kbo(:, 2,39, 2) = (/ &\n     &5.5773e-05_rb,1.2882e-04_rb,1.5091e-04_rb,1.5369e-04_rb,9.1477e-05_rb/)\n      kbo(:, 3,39, 2) = (/ &\n     &8.6079e-05_rb,1.7350e-04_rb,1.9331e-04_rb,1.8814e-04_rb,9.8545e-05_rb/)\n      kbo(:, 4,39, 2) = (/ &\n     &1.2878e-04_rb,2.3093e-04_rb,2.4509e-04_rb,2.2784e-04_rb,1.0505e-04_rb/)\n      kbo(:, 5,39, 2) = (/ &\n     &1.8672e-04_rb,3.0343e-04_rb,3.0781e-04_rb,2.7347e-04_rb,1.1084e-04_rb/)\n      kbo(:, 1,40, 2) = (/ &\n     &2.8482e-05_rb,7.5721e-05_rb,9.3100e-05_rb,9.9288e-05_rb,6.7184e-05_rb/)\n      kbo(:, 2,40, 2) = (/ &\n     &4.5322e-05_rb,1.0379e-04_rb,1.2136e-04_rb,1.2342e-04_rb,7.3552e-05_rb/)\n      kbo(:, 3,40, 2) = (/ &\n     &7.0466e-05_rb,1.4083e-04_rb,1.5650e-04_rb,1.5207e-04_rb,7.9463e-05_rb/)\n      kbo(:, 4,40, 2) = (/ &\n     &1.0624e-04_rb,1.8883e-04_rb,1.9975e-04_rb,1.8533e-04_rb,8.4957e-05_rb/)\n      kbo(:, 5,40, 2) = (/ &\n     &1.5520e-04_rb,2.4983e-04_rb,2.5250e-04_rb,2.2369e-04_rb,8.9879e-05_rb/)\n      kbo(:, 1,41, 2) = (/ &\n     &2.2852e-05_rb,6.0191e-05_rb,7.3911e-05_rb,7.8847e-05_rb,5.3707e-05_rb/)\n      kbo(:, 2,41, 2) = (/ &\n     &3.6477e-05_rb,8.3074e-05_rb,9.7030e-05_rb,9.8640e-05_rb,5.9019e-05_rb/)\n      kbo(:, 3,41, 2) = (/ &\n     &5.7117e-05_rb,1.1353e-04_rb,1.2598e-04_rb,1.2230e-04_rb,6.3954e-05_rb/)\n      kbo(:, 4,41, 2) = (/ &\n     &8.6797e-05_rb,1.5338e-04_rb,1.6193e-04_rb,1.5005e-04_rb,6.8580e-05_rb/)\n      kbo(:, 5,41, 2) = (/ &\n     &1.2784e-04_rb,2.0441e-04_rb,2.0604e-04_rb,1.8219e-04_rb,7.2757e-05_rb/)\n      kbo(:, 1,42, 2) = (/ &\n     &1.8532e-05_rb,4.8021e-05_rb,5.8809e-05_rb,6.2677e-05_rb,4.2889e-05_rb/)\n      kbo(:, 2,42, 2) = (/ &\n     &2.9639e-05_rb,6.6772e-05_rb,7.7781e-05_rb,7.8945e-05_rb,4.7319e-05_rb/)\n      kbo(:, 3,42, 2) = (/ &\n     &4.6699e-05_rb,9.1970e-05_rb,1.0173e-04_rb,9.8516e-05_rb,5.1447e-05_rb/)\n      kbo(:, 4,42, 2) = (/ &\n     &7.1536e-05_rb,1.2527e-04_rb,1.3174e-04_rb,1.2174e-04_rb,5.5341e-05_rb/)\n      kbo(:, 5,42, 2) = (/ &\n     &1.0622e-04_rb,1.6829e-04_rb,1.6888e-04_rb,1.4882e-04_rb,5.8857e-05_rb/)\n      kbo(:, 1,43, 2) = (/ &\n     &1.4784e-05_rb,3.7715e-05_rb,4.6105e-05_rb,4.9162e-05_rb,3.3989e-05_rb/)\n      kbo(:, 2,43, 2) = (/ &\n     &2.3635e-05_rb,5.2843e-05_rb,6.1488e-05_rb,6.2402e-05_rb,3.7696e-05_rb/)\n      kbo(:, 3,43, 2) = (/ &\n     &3.7482e-05_rb,7.3434e-05_rb,8.1121e-05_rb,7.8491e-05_rb,4.1167e-05_rb/)\n      kbo(:, 4,43, 2) = (/ &\n     &5.7957e-05_rb,1.0094e-04_rb,1.0596e-04_rb,9.7736e-05_rb,4.4450e-05_rb/)\n      kbo(:, 5,43, 2) = (/ &\n     &8.6918e-05_rb,1.3688e-04_rb,1.3695e-04_rb,1.2041e-04_rb,4.7444e-05_rb/)\n      kbo(:, 1,44, 2) = (/ &\n     &1.1851e-05_rb,2.9526e-05_rb,3.5985e-05_rb,3.8353e-05_rb,2.6802e-05_rb/)\n      kbo(:, 2,44, 2) = (/ &\n     &1.8865e-05_rb,4.1676e-05_rb,4.8402e-05_rb,4.9101e-05_rb,2.9917e-05_rb/)\n      kbo(:, 3,44, 2) = (/ &\n     &3.0080e-05_rb,5.8471e-05_rb,6.4462e-05_rb,6.2284e-05_rb,3.2834e-05_rb/)\n      kbo(:, 4,44, 2) = (/ &\n     &4.6945e-05_rb,8.1180e-05_rb,8.5021e-05_rb,7.8278e-05_rb,3.5598e-05_rb/)\n      kbo(:, 5,44, 2) = (/ &\n     &7.1168e-05_rb,1.1121e-04_rb,1.1093e-04_rb,9.7235e-05_rb,3.8149e-05_rb/)\n      kbo(:, 1,45, 2) = (/ &\n     &9.7426e-06_rb,2.3333e-05_rb,2.8230e-05_rb,2.9988e-05_rb,2.1086e-05_rb/)\n      kbo(:, 2,45, 2) = (/ &\n     &1.5361e-05_rb,3.3173e-05_rb,3.8317e-05_rb,3.8748e-05_rb,2.3700e-05_rb/)\n      kbo(:, 3,45, 2) = (/ &\n     &2.4573e-05_rb,4.7011e-05_rb,5.1561e-05_rb,4.9622e-05_rb,2.6158e-05_rb/)\n      kbo(:, 4,45, 2) = (/ &\n     &3.8674e-05_rb,6.5958e-05_rb,6.8724e-05_rb,6.2989e-05_rb,2.8488e-05_rb/)\n      kbo(:, 5,45, 2) = (/ &\n     &5.9269e-05_rb,9.1392e-05_rb,9.0638e-05_rb,7.9041e-05_rb,3.0648e-05_rb/)\n      kbo(:, 1,46, 2) = (/ &\n     &8.0813e-06_rb,1.8394e-05_rb,2.2048e-05_rb,2.3302e-05_rb,1.6499e-05_rb/)\n      kbo(:, 2,46, 2) = (/ &\n     &1.2533e-05_rb,2.6309e-05_rb,3.0179e-05_rb,3.0408e-05_rb,1.8696e-05_rb/)\n      kbo(:, 3,46, 2) = (/ &\n     &2.0044e-05_rb,3.7660e-05_rb,4.1056e-05_rb,3.9350e-05_rb,2.0768e-05_rb/)\n      kbo(:, 4,46, 2) = (/ &\n     &3.1770e-05_rb,5.3410e-05_rb,5.5319e-05_rb,5.0478e-05_rb,2.2728e-05_rb/)\n      kbo(:, 5,46, 2) = (/ &\n     &4.9215e-05_rb,7.4898e-05_rb,7.3800e-05_rb,6.4019e-05_rb,2.4552e-05_rb/)\n      kbo(:, 1,47, 2) = (/ &\n     &6.6192e-06_rb,1.4238e-05_rb,1.6907e-05_rb,1.7806e-05_rb,1.2778e-05_rb/)\n      kbo(:, 2,47, 2) = (/ &\n     &9.9788e-06_rb,2.0419e-05_rb,2.3301e-05_rb,2.3456e-05_rb,1.4630e-05_rb/)\n      kbo(:, 3,47, 2) = (/ &\n     &1.5864e-05_rb,2.9439e-05_rb,3.2011e-05_rb,3.0659e-05_rb,1.6375e-05_rb/)\n      kbo(:, 4,47, 2) = (/ &\n     &2.5298e-05_rb,4.2209e-05_rb,4.3617e-05_rb,3.9755e-05_rb,1.8027e-05_rb/)\n      kbo(:, 5,47, 2) = (/ &\n     &3.9602e-05_rb,5.9887e-05_rb,5.8840e-05_rb,5.0962e-05_rb,1.9570e-05_rb/)\n      kbo(:, 1,48, 2) = (/ &\n     &5.6786e-06_rb,1.1254e-05_rb,1.3112e-05_rb,1.3664e-05_rb,9.8559e-06_rb/)\n      kbo(:, 2,48, 2) = (/ &\n     &8.2415e-06_rb,1.6109e-05_rb,1.8176e-05_rb,1.8172e-05_rb,1.1406e-05_rb/)\n      kbo(:, 3,48, 2) = (/ &\n     &1.2920e-05_rb,2.3359e-05_rb,2.5209e-05_rb,2.4020e-05_rb,1.2882e-05_rb/)\n      kbo(:, 4,48, 2) = (/ &\n     &2.0668e-05_rb,3.3871e-05_rb,3.4762e-05_rb,3.1514e-05_rb,1.4268e-05_rb/)\n      kbo(:, 5,48, 2) = (/ &\n     &3.2629e-05_rb,4.8666e-05_rb,4.7495e-05_rb,4.0906e-05_rb,1.5578e-05_rb/)\n      kbo(:, 1,49, 2) = (/ &\n     &5.1748e-06_rb,9.2021e-06_rb,1.0379e-05_rb,1.0585e-05_rb,7.5665e-06_rb/)\n      kbo(:, 2,49, 2) = (/ &\n     &7.1867e-06_rb,1.3062e-05_rb,1.4427e-05_rb,1.4215e-05_rb,8.8627e-06_rb/)\n      kbo(:, 3,49, 2) = (/ &\n     &1.1001e-05_rb,1.9012e-05_rb,2.0206e-05_rb,1.9017e-05_rb,1.0112e-05_rb/)\n      kbo(:, 4,49, 2) = (/ &\n     &1.7557e-05_rb,2.7865e-05_rb,2.8224e-05_rb,2.5298e-05_rb,1.1279e-05_rb/)\n      kbo(:, 5,49, 2) = (/ &\n     &2.7899e-05_rb,4.0582e-05_rb,3.9130e-05_rb,3.3306e-05_rb,1.2389e-05_rb/)\n      kbo(:, 1,50, 2) = (/ &\n     &4.6020e-06_rb,7.4638e-06_rb,8.1645e-06_rb,8.1559e-06_rb,5.7980e-06_rb/)\n      kbo(:, 2,50, 2) = (/ &\n     &6.1191e-06_rb,1.0436e-05_rb,1.1320e-05_rb,1.1020e-05_rb,6.8814e-06_rb/)\n      kbo(:, 3,50, 2) = (/ &\n     &9.0820e-06_rb,1.5149e-05_rb,1.5926e-05_rb,1.4870e-05_rb,7.9274e-06_rb/)\n      kbo(:, 4,50, 2) = (/ &\n     &1.4367e-05_rb,2.2331e-05_rb,2.2448e-05_rb,1.9990e-05_rb,8.9091e-06_rb/)\n      kbo(:, 5,50, 2) = (/ &\n     &2.2930e-05_rb,3.2870e-05_rb,3.1485e-05_rb,2.6634e-05_rb,9.8428e-06_rb/)\n      kbo(:, 1,51, 2) = (/ &\n     &4.0738e-06_rb,6.0767e-06_rb,6.4322e-06_rb,6.2775e-06_rb,4.4265e-06_rb/)\n      kbo(:, 2,51, 2) = (/ &\n     &5.2028e-06_rb,8.3182e-06_rb,8.8519e-06_rb,8.5040e-06_rb,5.3268e-06_rb/)\n      kbo(:, 3,51, 2) = (/ &\n     &7.4386e-06_rb,1.1969e-05_rb,1.2454e-05_rb,1.1549e-05_rb,6.2015e-06_rb/)\n      kbo(:, 4,51, 2) = (/ &\n     &1.1580e-05_rb,1.7676e-05_rb,1.7666e-05_rb,1.5659e-05_rb,7.0249e-06_rb/)\n      kbo(:, 5,51, 2) = (/ &\n     &1.8500e-05_rb,2.6231e-05_rb,2.5018e-05_rb,2.1082e-05_rb,7.8088e-06_rb/)\n      kbo(:, 1,52, 2) = (/ &\n     &3.7602e-06_rb,5.1251e-06_rb,5.1954e-06_rb,4.8922e-06_rb,3.3637e-06_rb/)\n      kbo(:, 2,52, 2) = (/ &\n     &4.6219e-06_rb,6.8269e-06_rb,7.0581e-06_rb,6.6280e-06_rb,4.1074e-06_rb/)\n      kbo(:, 3,52, 2) = (/ &\n     &6.3416e-06_rb,9.6823e-06_rb,9.8934e-06_rb,9.0485e-06_rb,4.8363e-06_rb/)\n      kbo(:, 4,52, 2) = (/ &\n     &9.6360e-06_rb,1.4271e-05_rb,1.4108e-05_rb,1.2374e-05_rb,5.5264e-06_rb/)\n      kbo(:, 5,52, 2) = (/ &\n     &1.5337e-05_rb,2.1320e-05_rb,2.0165e-05_rb,1.6846e-05_rb,6.1865e-06_rb/)\n      kbo(:, 1,53, 2) = (/ &\n     &3.6702e-06_rb,4.5390e-06_rb,4.3659e-06_rb,3.9002e-06_rb,2.5423e-06_rb/)\n      kbo(:, 2,53, 2) = (/ &\n     &4.3437e-06_rb,5.8533e-06_rb,5.8072e-06_rb,5.2588e-06_rb,3.1537e-06_rb/)\n      kbo(:, 3,53, 2) = (/ &\n     &5.7127e-06_rb,8.1219e-06_rb,8.0674e-06_rb,7.2006e-06_rb,3.7613e-06_rb/)\n      kbo(:, 4,53, 2) = (/ &\n     &8.4068e-06_rb,1.1886e-05_rb,1.1528e-05_rb,9.9298e-06_rb,4.3399e-06_rb/)\n      kbo(:, 5,53, 2) = (/ &\n     &1.3242e-05_rb,1.7846e-05_rb,1.6632e-05_rb,1.3680e-05_rb,4.8970e-06_rb/)\n      kbo(:, 1,54, 2) = (/ &\n     &3.1403e-06_rb,3.6924e-06_rb,3.4557e-06_rb,2.9996e-06_rb,1.9177e-06_rb/)\n      kbo(:, 2,54, 2) = (/ &\n     &3.5986e-06_rb,4.6301e-06_rb,4.4986e-06_rb,4.0115e-06_rb,2.4155e-06_rb/)\n      kbo(:, 3,54, 2) = (/ &\n     &4.5617e-06_rb,6.2669e-06_rb,6.1686e-06_rb,5.4741e-06_rb,2.9175e-06_rb/)\n      kbo(:, 4,54, 2) = (/ &\n     &6.4783e-06_rb,9.0433e-06_rb,8.7626e-06_rb,7.5562e-06_rb,3.4007e-06_rb/)\n      kbo(:, 5,54, 2) = (/ &\n     &1.0042e-05_rb,1.3533e-05_rb,1.2655e-05_rb,1.0455e-05_rb,3.8639e-06_rb/)\n      kbo(:, 1,55, 2) = (/ &\n     &2.4739e-06_rb,2.8343e-06_rb,2.6165e-06_rb,2.2420e-06_rb,1.4427e-06_rb/)\n      kbo(:, 2,55, 2) = (/ &\n     &2.7553e-06_rb,3.4672e-06_rb,3.3435e-06_rb,2.9758e-06_rb,1.8442e-06_rb/)\n      kbo(:, 3,55, 2) = (/ &\n     &3.3782e-06_rb,4.5817e-06_rb,4.5186e-06_rb,4.0371e-06_rb,2.2544e-06_rb/)\n      kbo(:, 4,55, 2) = (/ &\n     &4.6246e-06_rb,6.4927e-06_rb,6.3529e-06_rb,5.5548e-06_rb,2.6558e-06_rb/)\n      kbo(:, 5,55, 2) = (/ &\n     &7.0125e-06_rb,9.6319e-06_rb,9.1393e-06_rb,7.6813e-06_rb,3.0372e-06_rb/)\n      kbo(:, 1,56, 2) = (/ &\n     &1.9604e-06_rb,2.1929e-06_rb,1.9920e-06_rb,1.6797e-06_rb,1.0797e-06_rb/)\n      kbo(:, 2,56, 2) = (/ &\n     &2.1351e-06_rb,2.6170e-06_rb,2.4998e-06_rb,2.2137e-06_rb,1.4022e-06_rb/)\n      kbo(:, 3,56, 2) = (/ &\n     &2.5317e-06_rb,3.3754e-06_rb,3.3236e-06_rb,2.9840e-06_rb,1.7372e-06_rb/)\n      kbo(:, 4,56, 2) = (/ &\n     &3.3387e-06_rb,4.6862e-06_rb,4.6202e-06_rb,4.0882e-06_rb,2.0679e-06_rb/)\n      kbo(:, 5,56, 2) = (/ &\n     &4.9234e-06_rb,6.8724e-06_rb,6.6108e-06_rb,5.6459e-06_rb,2.3854e-06_rb/)\n      kbo(:, 1,57, 2) = (/ &\n     &1.5649e-06_rb,1.7047e-06_rb,1.5250e-06_rb,1.2613e-06_rb,8.0294e-07_rb/)\n      kbo(:, 2,57, 2) = (/ &\n     &1.6685e-06_rb,1.9908e-06_rb,1.8801e-06_rb,1.6502e-06_rb,1.0613e-06_rb/)\n      kbo(:, 3,57, 2) = (/ &\n     &1.9178e-06_rb,2.5066e-06_rb,2.4556e-06_rb,2.2101e-06_rb,1.3329e-06_rb/)\n      kbo(:, 4,57, 2) = (/ &\n     &2.4407e-06_rb,3.4025e-06_rb,3.3722e-06_rb,3.0127e-06_rb,1.6045e-06_rb/)\n      kbo(:, 5,57, 2) = (/ &\n     &3.4802e-06_rb,4.9175e-06_rb,4.7870e-06_rb,4.1514e-06_rb,1.8688e-06_rb/)\n      kbo(:, 1,58, 2) = (/ &\n     &3.3188e-07_rb,4.3313e-07_rb,4.9294e-07_rb,5.6291e-07_rb,5.9615e-07_rb/)\n      kbo(:, 2,58, 2) = (/ &\n     &3.4670e-07_rb,4.9696e-07_rb,5.9930e-07_rb,7.3314e-07_rb,8.0253e-07_rb/)\n      kbo(:, 3,58, 2) = (/ &\n     &3.8806e-07_rb,6.1237e-07_rb,7.7019e-07_rb,9.7654e-07_rb,1.0216e-06_rb/)\n      kbo(:, 4,58, 2) = (/ &\n     &4.7831e-07_rb,8.1333e-07_rb,1.0442e-06_rb,1.3240e-06_rb,1.2449e-06_rb/)\n      kbo(:, 5,58, 2) = (/ &\n     &6.5898e-07_rb,1.1558e-06_rb,1.4682e-06_rb,1.8176e-06_rb,1.4615e-06_rb/)\n      kbo(:, 1,59, 2) = (/ &\n     &3.1712e-07_rb,4.1538e-07_rb,4.5873e-07_rb,4.9478e-07_rb,4.6737e-07_rb/)\n      kbo(:, 2,59, 2) = (/ &\n     &3.2863e-07_rb,4.7977e-07_rb,5.6611e-07_rb,6.5498e-07_rb,6.3397e-07_rb/)\n      kbo(:, 3,59, 2) = (/ &\n     &3.6418e-07_rb,5.9318e-07_rb,7.3191e-07_rb,8.7648e-07_rb,8.1119e-07_rb/)\n      kbo(:, 4,59, 2) = (/ &\n     &4.4347e-07_rb,7.8664e-07_rb,9.8989e-07_rb,1.1827e-06_rb,9.9218e-07_rb/)\n      kbo(:, 5,59, 2) = (/ &\n     &6.0215e-07_rb,1.1090e-06_rb,1.3813e-06_rb,1.6064e-06_rb,1.1684e-06_rb/)\n      kbo(:, 1,13, 3) = (/ &\n     &9.1540e-03_rb,2.0983e-02_rb,2.7409e-02_rb,3.0450e-02_rb,2.3144e-02_rb/)\n      kbo(:, 2,13, 3) = (/ &\n     &1.5150e-02_rb,2.9836e-02_rb,3.7088e-02_rb,3.9562e-02_rb,2.6157e-02_rb/)\n      kbo(:, 3,13, 3) = (/ &\n     &2.6705e-02_rb,4.3495e-02_rb,5.0489e-02_rb,5.0868e-02_rb,2.9169e-02_rb/)\n      kbo(:, 4,13, 3) = (/ &\n     &4.6501e-02_rb,6.3525e-02_rb,6.8930e-02_rb,6.5213e-02_rb,3.2207e-02_rb/)\n      kbo(:, 5,13, 3) = (/ &\n     &7.7883e-02_rb,9.1957e-02_rb,9.3471e-02_rb,8.3394e-02_rb,3.5205e-02_rb/)\n      kbo(:, 1,14, 3) = (/ &\n     &4.9769e-03_rb,1.5542e-02_rb,2.1404e-02_rb,2.4888e-02_rb,2.0102e-02_rb/)\n      kbo(:, 2,14, 3) = (/ &\n     &8.3891e-03_rb,2.1811e-02_rb,2.8513e-02_rb,3.1898e-02_rb,2.2689e-02_rb/)\n      kbo(:, 3,14, 3) = (/ &\n     &1.4857e-02_rb,3.0975e-02_rb,3.8046e-02_rb,4.0288e-02_rb,2.5289e-02_rb/)\n      kbo(:, 4,14, 3) = (/ &\n     &2.5874e-02_rb,4.3884e-02_rb,5.0681e-02_rb,5.0529e-02_rb,2.7965e-02_rb/)\n      kbo(:, 5,14, 3) = (/ &\n     &4.3258e-02_rb,6.1604e-02_rb,6.6800e-02_rb,6.3228e-02_rb,3.0564e-02_rb/)\n      kbo(:, 1,15, 3) = (/ &\n     &2.7780e-03_rb,1.1828e-02_rb,1.7073e-02_rb,2.0490e-02_rb,1.7377e-02_rb/)\n      kbo(:, 2,15, 3) = (/ &\n     &4.7591e-03_rb,1.6367e-02_rb,2.2382e-02_rb,2.5900e-02_rb,1.9610e-02_rb/)\n      kbo(:, 3,15, 3) = (/ &\n     &8.4707e-03_rb,2.2715e-02_rb,2.9226e-02_rb,3.2287e-02_rb,2.1849e-02_rb/)\n      kbo(:, 4,15, 3) = (/ &\n     &1.4726e-02_rb,3.1294e-02_rb,3.8074e-02_rb,3.9870e-02_rb,2.4127e-02_rb/)\n      kbo(:, 5,15, 3) = (/ &\n     &2.4582e-02_rb,4.2700e-02_rb,4.9087e-02_rb,4.8962e-02_rb,2.6357e-02_rb/)\n      kbo(:, 1,16, 3) = (/ &\n     &1.8575e-03_rb,9.6428e-03_rb,1.4258e-02_rb,1.7308e-02_rb,1.4967e-02_rb/)\n      kbo(:, 2,16, 3) = (/ &\n     &3.2295e-03_rb,1.3222e-02_rb,1.8534e-02_rb,2.1716e-02_rb,1.6894e-02_rb/)\n      kbo(:, 3,16, 3) = (/ &\n     &5.7622e-03_rb,1.8134e-02_rb,2.3952e-02_rb,2.6895e-02_rb,1.8844e-02_rb/)\n      kbo(:, 4,16, 3) = (/ &\n     &1.0014e-02_rb,2.4628e-02_rb,3.0790e-02_rb,3.2975e-02_rb,2.0792e-02_rb/)\n      kbo(:, 5,16, 3) = (/ &\n     &1.6651e-02_rb,3.3072e-02_rb,3.9202e-02_rb,4.0100e-02_rb,2.2651e-02_rb/)\n      kbo(:, 1,17, 3) = (/ &\n     &1.2913e-03_rb,7.9469e-03_rb,1.1927e-02_rb,1.4612e-02_rb,1.2832e-02_rb/)\n      kbo(:, 2,17, 3) = (/ &\n     &2.2741e-03_rb,1.0816e-02_rb,1.5424e-02_rb,1.8211e-02_rb,1.4484e-02_rb/)\n      kbo(:, 3,17, 3) = (/ &\n     &4.0659e-03_rb,1.4661e-02_rb,1.9799e-02_rb,2.2441e-02_rb,1.6158e-02_rb/)\n      kbo(:, 4,17, 3) = (/ &\n     &7.0575e-03_rb,1.9668e-02_rb,2.5205e-02_rb,2.7372e-02_rb,1.7784e-02_rb/)\n      kbo(:, 5,17, 3) = (/ &\n     &1.1701e-02_rb,2.6124e-02_rb,3.1755e-02_rb,3.3025e-02_rb,1.9312e-02_rb/)\n      kbo(:, 1,18, 3) = (/ &\n     &9.2490e-04_rb,6.5924e-03_rb,1.0000e-02_rb,1.2327e-02_rb,1.0954e-02_rb/)\n      kbo(:, 2,18, 3) = (/ &\n     &1.6450e-03_rb,8.9024e-03_rb,1.2876e-02_rb,1.5279e-02_rb,1.2362e-02_rb/)\n      kbo(:, 3,18, 3) = (/ &\n     &2.9476e-03_rb,1.1938e-02_rb,1.6432e-02_rb,1.8727e-02_rb,1.3771e-02_rb/)\n      kbo(:, 4,18, 3) = (/ &\n     &5.1050e-03_rb,1.5852e-02_rb,2.0747e-02_rb,2.2702e-02_rb,1.5108e-02_rb/)\n      kbo(:, 5,18, 3) = (/ &\n     &8.4407e-03_rb,2.0877e-02_rb,2.5905e-02_rb,2.7220e-02_rb,1.6353e-02_rb/)\n      kbo(:, 1,19, 3) = (/ &\n     &6.5306e-04_rb,5.4276e-03_rb,8.3228e-03_rb,1.0321e-02_rb,9.3064e-03_rb/)\n      kbo(:, 2,19, 3) = (/ &\n     &1.1720e-03_rb,7.2659e-03_rb,1.0659e-02_rb,1.2719e-02_rb,1.0490e-02_rb/)\n      kbo(:, 3,19, 3) = (/ &\n     &2.1010e-03_rb,9.6452e-03_rb,1.3501e-02_rb,1.5485e-02_rb,1.1656e-02_rb/)\n      kbo(:, 4,19, 3) = (/ &\n     &3.6298e-03_rb,1.2682e-02_rb,1.6890e-02_rb,1.8630e-02_rb,1.2744e-02_rb/)\n      kbo(:, 5,19, 3) = (/ &\n     &5.9733e-03_rb,1.6533e-02_rb,2.0894e-02_rb,2.2160e-02_rb,1.3725e-02_rb/)\n      kbo(:, 1,20, 3) = (/ &\n     &5.0525e-04_rb,4.5786e-03_rb,7.0416e-03_rb,8.7290e-03_rb,7.8885e-03_rb/)\n      kbo(:, 2,20, 3) = (/ &\n     &9.1391e-04_rb,6.1018e-03_rb,8.9804e-03_rb,1.0717e-02_rb,8.8768e-03_rb/)\n      kbo(:, 3,20, 3) = (/ &\n     &1.6371e-03_rb,8.0525e-03_rb,1.1310e-02_rb,1.2976e-02_rb,9.8259e-03_rb/)\n      kbo(:, 4,20, 3) = (/ &\n     &2.8150e-03_rb,1.0522e-02_rb,1.4057e-02_rb,1.5517e-02_rb,1.0692e-02_rb/)\n      kbo(:, 5,20, 3) = (/ &\n     &4.6066e-03_rb,1.3646e-02_rb,1.7296e-02_rb,1.8359e-02_rb,1.1448e-02_rb/)\n      kbo(:, 1,21, 3) = (/ &\n     &4.0425e-04_rb,3.8829e-03_rb,5.9693e-03_rb,7.3863e-03_rb,6.6651e-03_rb/)\n      kbo(:, 2,21, 3) = (/ &\n     &7.3484e-04_rb,5.1547e-03_rb,7.5787e-03_rb,9.0292e-03_rb,7.4787e-03_rb/)\n      kbo(:, 3,21, 3) = (/ &\n     &1.3153e-03_rb,6.7705e-03_rb,9.4934e-03_rb,1.0877e-02_rb,8.2368e-03_rb/)\n      kbo(:, 4,21, 3) = (/ &\n     &2.2503e-03_rb,8.8142e-03_rb,1.1739e-02_rb,1.2939e-02_rb,8.9114e-03_rb/)\n      kbo(:, 5,21, 3) = (/ &\n     &3.6575e-03_rb,1.1380e-02_rb,1.4377e-02_rb,1.5231e-02_rb,9.5025e-03_rb/)\n      kbo(:, 1,22, 3) = (/ &\n     &3.4523e-04_rb,3.3635e-03_rb,5.1429e-03_rb,6.3294e-03_rb,5.6535e-03_rb/)\n      kbo(:, 2,22, 3) = (/ &\n     &6.2993e-04_rb,4.4492e-03_rb,6.4923e-03_rb,7.6957e-03_rb,6.3107e-03_rb/)\n      kbo(:, 3,22, 3) = (/ &\n     &1.1206e-03_rb,5.8192e-03_rb,8.0871e-03_rb,9.2166e-03_rb,6.9018e-03_rb/)\n      kbo(:, 4,22, 3) = (/ &\n     &1.8990e-03_rb,7.5458e-03_rb,9.9517e-03_rb,1.0900e-02_rb,7.4316e-03_rb/)\n      kbo(:, 5,22, 3) = (/ &\n     &3.0583e-03_rb,9.7051e-03_rb,1.2139e-02_rb,1.2766e-02_rb,7.8941e-03_rb/)\n      kbo(:, 1,23, 3) = (/ &\n     &2.9783e-04_rb,2.9108e-03_rb,4.4177e-03_rb,5.4056e-03_rb,4.7807e-03_rb/)\n      kbo(:, 2,23, 3) = (/ &\n     &5.4387e-04_rb,3.8320e-03_rb,5.5435e-03_rb,6.5345e-03_rb,5.2974e-03_rb/)\n      kbo(:, 3,23, 3) = (/ &\n     &9.5952e-04_rb,4.9950e-03_rb,6.8655e-03_rb,7.7757e-03_rb,5.7630e-03_rb/)\n      kbo(:, 4,23, 3) = (/ &\n     &1.6092e-03_rb,6.4496e-03_rb,8.4095e-03_rb,9.1440e-03_rb,6.1817e-03_rb/)\n      kbo(:, 5,23, 3) = (/ &\n     &2.5684e-03_rb,8.2494e-03_rb,1.0215e-02_rb,1.0668e-02_rb,6.5447e-03_rb/)\n      kbo(:, 1,24, 3) = (/ &\n     &2.5715e-04_rb,2.5095e-03_rb,3.7777e-03_rb,4.5997e-03_rb,4.0260e-03_rb/)\n      kbo(:, 2,24, 3) = (/ &\n     &4.6827e-04_rb,3.2888e-03_rb,4.7107e-03_rb,5.5207e-03_rb,4.4325e-03_rb/)\n      kbo(:, 3,24, 3) = (/ &\n     &8.1828e-04_rb,4.2677e-03_rb,5.8000e-03_rb,6.5285e-03_rb,4.8028e-03_rb/)\n      kbo(:, 4,24, 3) = (/ &\n     &1.3581e-03_rb,5.4776e-03_rb,7.0696e-03_rb,7.6441e-03_rb,5.1338e-03_rb/)\n      kbo(:, 5,24, 3) = (/ &\n     &2.1494e-03_rb,6.9550e-03_rb,8.5500e-03_rb,8.8910e-03_rb,5.4193e-03_rb/)\n      kbo(:, 1,25, 3) = (/ &\n     &2.2632e-04_rb,2.1696e-03_rb,3.2330e-03_rb,3.9113e-03_rb,3.3801e-03_rb/)\n      kbo(:, 2,25, 3) = (/ &\n     &4.0936e-04_rb,2.8320e-03_rb,4.0052e-03_rb,4.6615e-03_rb,3.7035e-03_rb/)\n      kbo(:, 3,25, 3) = (/ &\n     &7.0836e-04_rb,3.6547e-03_rb,4.9096e-03_rb,5.4885e-03_rb,3.9989e-03_rb/)\n      kbo(:, 4,25, 3) = (/ &\n     &1.1642e-03_rb,4.6613e-03_rb,5.9642e-03_rb,6.4094e-03_rb,4.2600e-03_rb/)\n      kbo(:, 5,25, 3) = (/ &\n     &1.8243e-03_rb,5.8764e-03_rb,7.1830e-03_rb,7.4369e-03_rb,4.4844e-03_rb/)\n      kbo(:, 1,26, 3) = (/ &\n     &2.0471e-04_rb,1.8893e-03_rb,2.7768e-03_rb,3.3315e-03_rb,2.8361e-03_rb/)\n      kbo(:, 2,26, 3) = (/ &\n     &3.6709e-04_rb,2.4543e-03_rb,3.4258e-03_rb,3.9516e-03_rb,3.0939e-03_rb/)\n      kbo(:, 3,26, 3) = (/ &\n     &6.2789e-04_rb,3.1504e-03_rb,4.1849e-03_rb,4.6387e-03_rb,3.3286e-03_rb/)\n      kbo(:, 4,26, 3) = (/ &\n     &1.0213e-03_rb,3.9950e-03_rb,5.0687e-03_rb,5.4088e-03_rb,3.5346e-03_rb/)\n      kbo(:, 5,26, 3) = (/ &\n     &1.5815e-03_rb,5.0074e-03_rb,6.0787e-03_rb,6.2593e-03_rb,3.7107e-03_rb/)\n      kbo(:, 1,27, 3) = (/ &\n     &1.9251e-04_rb,1.6617e-03_rb,2.4029e-03_rb,2.8514e-03_rb,2.3762e-03_rb/)\n      kbo(:, 2,27, 3) = (/ &\n     &3.4185e-04_rb,2.1525e-03_rb,2.9600e-03_rb,3.3730e-03_rb,2.5825e-03_rb/)\n      kbo(:, 3,27, 3) = (/ &\n     &5.7778e-04_rb,2.7512e-03_rb,3.6092e-03_rb,3.9563e-03_rb,2.7684e-03_rb/)\n      kbo(:, 4,27, 3) = (/ &\n     &9.2854e-04_rb,3.4753e-03_rb,4.3621e-03_rb,4.6091e-03_rb,2.9308e-03_rb/)\n      kbo(:, 5,27, 3) = (/ &\n     &1.4199e-03_rb,4.3436e-03_rb,5.2156e-03_rb,5.3258e-03_rb,3.0691e-03_rb/)\n      kbo(:, 1,28, 3) = (/ &\n     &1.8568e-04_rb,1.4731e-03_rb,2.0943e-03_rb,2.4502e-03_rb,1.9883e-03_rb/)\n      kbo(:, 2,28, 3) = (/ &\n     &3.2639e-04_rb,1.9038e-03_rb,2.5783e-03_rb,2.8978e-03_rb,2.1535e-03_rb/)\n      kbo(:, 3,28, 3) = (/ &\n     &5.4487e-04_rb,2.4257e-03_rb,3.1398e-03_rb,3.3991e-03_rb,2.3010e-03_rb/)\n      kbo(:, 4,28, 3) = (/ &\n     &8.6497e-04_rb,3.0580e-03_rb,3.7865e-03_rb,3.9564e-03_rb,2.4290e-03_rb/)\n      kbo(:, 5,28, 3) = (/ &\n     &1.3039e-03_rb,3.8186e-03_rb,4.5211e-03_rb,4.5655e-03_rb,2.5382e-03_rb/)\n      kbo(:, 1,29, 3) = (/ &\n     &1.9062e-04_rb,1.3364e-03_rb,1.8603e-03_rb,2.1354e-03_rb,1.6643e-03_rb/)\n      kbo(:, 2,29, 3) = (/ &\n     &3.3121e-04_rb,1.7267e-03_rb,2.2927e-03_rb,2.5300e-03_rb,1.7960e-03_rb/)\n      kbo(:, 3,29, 3) = (/ &\n     &5.4570e-04_rb,2.2011e-03_rb,2.7931e-03_rb,2.9723e-03_rb,1.9129e-03_rb/)\n      kbo(:, 4,29, 3) = (/ &\n     &8.5435e-04_rb,2.7794e-03_rb,3.3678e-03_rb,3.4607e-03_rb,2.0139e-03_rb/)\n      kbo(:, 5,29, 3) = (/ &\n     &1.2701e-03_rb,3.4715e-03_rb,4.0279e-03_rb,3.9937e-03_rb,2.1000e-03_rb/)\n      kbo(:, 1,30, 3) = (/ &\n     &2.0043e-04_rb,1.2258e-03_rb,1.6689e-03_rb,1.8766e-03_rb,1.3916e-03_rb/)\n      kbo(:, 2,30, 3) = (/ &\n     &3.4350e-04_rb,1.5850e-03_rb,2.0586e-03_rb,2.2288e-03_rb,1.4967e-03_rb/)\n      kbo(:, 3,30, 3) = (/ &\n     &5.5868e-04_rb,2.0253e-03_rb,2.5096e-03_rb,2.6211e-03_rb,1.5893e-03_rb/)\n      kbo(:, 4,30, 3) = (/ &\n     &8.6173e-04_rb,2.5636e-03_rb,3.0320e-03_rb,3.0532e-03_rb,1.6692e-03_rb/)\n      kbo(:, 5,30, 3) = (/ &\n     &1.2648e-03_rb,3.2006e-03_rb,3.6329e-03_rb,3.5289e-03_rb,1.7373e-03_rb/)\n      kbo(:, 1,31, 3) = (/ &\n     &2.2172e-04_rb,1.1517e-03_rb,1.5273e-03_rb,1.6764e-03_rb,1.1637e-03_rb/)\n      kbo(:, 2,31, 3) = (/ &\n     &3.7478e-04_rb,1.4949e-03_rb,1.8875e-03_rb,1.9960e-03_rb,1.2474e-03_rb/)\n      kbo(:, 3,31, 3) = (/ &\n     &6.0019e-04_rb,1.9228e-03_rb,2.3094e-03_rb,2.3523e-03_rb,1.3210e-03_rb/)\n      kbo(:, 4,31, 3) = (/ &\n     &9.1186e-04_rb,2.4398e-03_rb,2.8016e-03_rb,2.7471e-03_rb,1.3843e-03_rb/)\n      kbo(:, 5,31, 3) = (/ &\n     &1.3231e-03_rb,3.0462e-03_rb,3.3613e-03_rb,3.1855e-03_rb,1.4373e-03_rb/)\n      kbo(:, 1,32, 3) = (/ &\n     &2.4768e-04_rb,1.0937e-03_rb,1.4089e-03_rb,1.5091e-03_rb,9.7256e-04_rb/)\n      kbo(:, 2,32, 3) = (/ &\n     &4.1248e-04_rb,1.4292e-03_rb,1.7477e-03_rb,1.8006e-03_rb,1.0394e-03_rb/)\n      kbo(:, 3,32, 3) = (/ &\n     &6.5047e-04_rb,1.8467e-03_rb,2.1484e-03_rb,2.1275e-03_rb,1.0979e-03_rb/)\n      kbo(:, 4,32, 3) = (/ &\n     &9.7457e-04_rb,2.3473e-03_rb,2.6140e-03_rb,2.4947e-03_rb,1.1482e-03_rb/)\n      kbo(:, 5,32, 3) = (/ &\n     &1.3990e-03_rb,2.9324e-03_rb,3.1399e-03_rb,2.8984e-03_rb,1.1898e-03_rb/)\n      kbo(:, 1,33, 3) = (/ &\n     &2.8078e-04_rb,1.0552e-03_rb,1.3156e-03_rb,1.3710e-03_rb,8.1280e-04_rb/)\n      kbo(:, 2,33, 3) = (/ &\n     &4.6027e-04_rb,1.3891e-03_rb,1.6405e-03_rb,1.6404e-03_rb,8.6605e-04_rb/)\n      kbo(:, 3,33, 3) = (/ &\n     &7.1527e-04_rb,1.8015e-03_rb,2.0264e-03_rb,1.9473e-03_rb,9.1257e-04_rb/)\n      kbo(:, 4,33, 3) = (/ &\n     &1.0579e-03_rb,2.2936e-03_rb,2.4711e-03_rb,2.2904e-03_rb,9.5249e-04_rb/)\n      kbo(:, 5,33, 3) = (/ &\n     &1.5037e-03_rb,2.8717e-03_rb,2.9734e-03_rb,2.6646e-03_rb,9.8557e-04_rb/)\n      kbo(:, 1,34, 3) = (/ &\n     &3.0359e-04_rb,1.0038e-03_rb,1.2140e-03_rb,1.2334e-03_rb,6.7695e-04_rb/)\n      kbo(:, 2,34, 3) = (/ &\n     &4.9090e-04_rb,1.3275e-03_rb,1.5216e-03_rb,1.4814e-03_rb,7.1957e-04_rb/)\n      kbo(:, 3,34, 3) = (/ &\n     &7.5358e-04_rb,1.7240e-03_rb,1.8846e-03_rb,1.7651e-03_rb,7.5712e-04_rb/)\n      kbo(:, 4,34, 3) = (/ &\n     &1.1033e-03_rb,2.1975e-03_rb,2.2999e-03_rb,2.0785e-03_rb,7.8887e-04_rb/)\n      kbo(:, 5,34, 3) = (/ &\n     &1.5542e-03_rb,2.7592e-03_rb,2.7749e-03_rb,2.4194e-03_rb,8.1541e-04_rb/)\n      kbo(:, 1,35, 3) = (/ &\n     &3.1210e-04_rb,9.3394e-04_rb,1.1014e-03_rb,1.0942e-03_rb,5.6016e-04_rb/)\n      kbo(:, 2,35, 3) = (/ &\n     &5.0058e-04_rb,1.2412e-03_rb,1.3879e-03_rb,1.3212e-03_rb,5.9529e-04_rb/)\n      kbo(:, 3,35, 3) = (/ &\n     &7.6299e-04_rb,1.6182e-03_rb,1.7248e-03_rb,1.5791e-03_rb,6.2556e-04_rb/)\n      kbo(:, 4,35, 3) = (/ &\n     &1.1110e-03_rb,2.0696e-03_rb,2.1107e-03_rb,1.8624e-03_rb,6.5155e-04_rb/)\n      kbo(:, 5,35, 3) = (/ &\n     &1.5579e-03_rb,2.6064e-03_rb,2.5562e-03_rb,2.1725e-03_rb,6.7276e-04_rb/)\n      kbo(:, 1,36, 3) = (/ &\n     &3.0156e-04_rb,8.4185e-04_rb,9.7484e-04_rb,9.5194e-04_rb,4.6045e-04_rb/)\n      kbo(:, 2,36, 3) = (/ &\n     &4.8313e-04_rb,1.1258e-03_rb,1.2357e-03_rb,1.1559e-03_rb,4.8953e-04_rb/)\n      kbo(:, 3,36, 3) = (/ &\n     &7.3505e-04_rb,1.4756e-03_rb,1.5422e-03_rb,1.3864e-03_rb,5.1450e-04_rb/)\n      kbo(:, 4,36, 3) = (/ &\n     &1.0692e-03_rb,1.8983e-03_rb,1.8970e-03_rb,1.6403e-03_rb,5.3594e-04_rb/)\n      kbo(:, 5,36, 3) = (/ &\n     &1.4983e-03_rb,2.4025e-03_rb,2.3079e-03_rb,1.9210e-03_rb,5.5373e-04_rb/)\n      kbo(:, 1,37, 3) = (/ &\n     &2.6336e-04_rb,7.1618e-04_rb,8.2306e-04_rb,7.9778e-04_rb,3.7474e-04_rb/)\n      kbo(:, 2,37, 3) = (/ &\n     &4.2453e-04_rb,9.6471e-04_rb,1.0505e-03_rb,9.7428e-04_rb,3.9893e-04_rb/)\n      kbo(:, 3,37, 3) = (/ &\n     &6.5002e-04_rb,1.2743e-03_rb,1.3189e-03_rb,1.1741e-03_rb,4.2011e-04_rb/)\n      kbo(:, 4,37, 3) = (/ &\n     &9.5041e-04_rb,1.6515e-03_rb,1.6323e-03_rb,1.3957e-03_rb,4.3822e-04_rb/)\n      kbo(:, 5,37, 3) = (/ &\n     &1.3379e-03_rb,2.1029e-03_rb,1.9967e-03_rb,1.6424e-03_rb,4.5330e-04_rb/)\n      kbo(:, 1,38, 3) = (/ &\n     &2.3216e-04_rb,6.1241e-04_rb,6.9804e-04_rb,6.7090e-04_rb,3.0479e-04_rb/)\n      kbo(:, 2,38, 3) = (/ &\n     &3.7692e-04_rb,8.3215e-04_rb,8.9807e-04_rb,8.2465e-04_rb,3.2506e-04_rb/)\n      kbo(:, 3,38, 3) = (/ &\n     &5.8109e-04_rb,1.1090e-03_rb,1.1350e-03_rb,9.9936e-04_rb,3.4289e-04_rb/)\n      kbo(:, 4,38, 3) = (/ &\n     &8.5435e-04_rb,1.4493e-03_rb,1.4148e-03_rb,1.1944e-03_rb,3.5825e-04_rb/)\n      kbo(:, 5,38, 3) = (/ &\n     &1.2083e-03_rb,1.8590e-03_rb,1.7421e-03_rb,1.4132e-03_rb,3.7105e-04_rb/)\n      kbo(:, 1,39, 3) = (/ &\n     &2.0931e-04_rb,5.3070e-04_rb,5.9845e-04_rb,5.6903e-04_rb,2.4791e-04_rb/)\n      kbo(:, 2,39, 3) = (/ &\n     &3.4220e-04_rb,7.2810e-04_rb,7.7651e-04_rb,7.0438e-04_rb,2.6488e-04_rb/)\n      kbo(:, 3,39, 3) = (/ &\n     &5.3115e-04_rb,9.8088e-04_rb,9.9044e-04_rb,8.5969e-04_rb,2.7995e-04_rb/)\n      kbo(:, 4,39, 3) = (/ &\n     &7.8539e-04_rb,1.2946e-03_rb,1.2451e-03_rb,1.0342e-03_rb,2.9299e-04_rb/)\n      kbo(:, 5,39, 3) = (/ &\n     &1.1164e-03_rb,1.6738e-03_rb,1.5453e-03_rb,1.2315e-03_rb,3.0388e-04_rb/)\n      kbo(:, 1,40, 3) = (/ &\n     &1.6775e-04_rb,4.2853e-04_rb,4.8421e-04_rb,4.6094e-04_rb,1.9976e-04_rb/)\n      kbo(:, 2,40, 3) = (/ &\n     &2.7762e-04_rb,5.9348e-04_rb,6.3343e-04_rb,5.7451e-04_rb,2.1416e-04_rb/)\n      kbo(:, 3,40, 3) = (/ &\n     &4.3621e-04_rb,8.0667e-04_rb,8.1437e-04_rb,7.0551e-04_rb,2.2701e-04_rb/)\n      kbo(:, 4,40, 3) = (/ &\n     &6.5215e-04_rb,1.0751e-03_rb,1.0317e-03_rb,8.5401e-04_rb,2.3821e-04_rb/)\n      kbo(:, 5,40, 3) = (/ &\n     &9.3504e-04_rb,1.4004e-03_rb,1.2886e-03_rb,1.0222e-03_rb,2.4759e-04_rb/)\n      kbo(:, 1,41, 3) = (/ &\n     &1.3280e-04_rb,3.4319e-04_rb,3.8888e-04_rb,3.7131e-04_rb,1.6067e-04_rb/)\n      kbo(:, 2,41, 3) = (/ &\n     &2.2274e-04_rb,4.8016e-04_rb,5.1341e-04_rb,4.6640e-04_rb,1.7291e-04_rb/)\n      kbo(:, 3,41, 3) = (/ &\n     &3.5456e-04_rb,6.5866e-04_rb,6.6545e-04_rb,5.7628e-04_rb,1.8383e-04_rb/)\n      kbo(:, 4,41, 3) = (/ &\n     &5.3629e-04_rb,8.8588e-04_rb,8.4970e-04_rb,7.0181e-04_rb,1.9338e-04_rb/)\n      kbo(:, 5,41, 3) = (/ &\n     &7.7683e-04_rb,1.1654e-03_rb,1.0693e-03_rb,8.4547e-04_rb,2.0151e-04_rb/)\n      kbo(:, 1,42, 3) = (/ &\n     &1.0593e-04_rb,2.7588e-04_rb,3.1299e-04_rb,2.9948e-04_rb,1.2916e-04_rb/)\n      kbo(:, 2,42, 3) = (/ &\n     &1.8005e-04_rb,3.9002e-04_rb,4.1742e-04_rb,3.7944e-04_rb,1.3949e-04_rb/)\n      kbo(:, 3,42, 3) = (/ &\n     &2.9034e-04_rb,5.4056e-04_rb,5.4599e-04_rb,4.7208e-04_rb,1.4879e-04_rb/)\n      kbo(:, 4,42, 3) = (/ &\n     &4.4476e-04_rb,7.3427e-04_rb,7.0341e-04_rb,5.7900e-04_rb,1.5686e-04_rb/)\n      kbo(:, 5,42, 3) = (/ &\n     &6.5058e-04_rb,9.7580e-04_rb,8.9207e-04_rb,7.0236e-04_rb,1.6390e-04_rb/)\n      kbo(:, 1,43, 3) = (/ &\n     &8.2227e-05_rb,2.1779e-04_rb,2.4797e-04_rb,2.3838e-04_rb,1.0321e-04_rb/)\n      kbo(:, 2,43, 3) = (/ &\n     &1.4211e-04_rb,3.1159e-04_rb,3.3460e-04_rb,3.0498e-04_rb,1.1196e-04_rb/)\n      kbo(:, 3,43, 3) = (/ &\n     &2.3284e-04_rb,4.3690e-04_rb,4.4252e-04_rb,3.8287e-04_rb,1.1989e-04_rb/)\n      kbo(:, 4,43, 3) = (/ &\n     &3.6233e-04_rb,6.0081e-04_rb,5.7601e-04_rb,4.7373e-04_rb,1.2682e-04_rb/)\n      kbo(:, 5,43, 3) = (/ &\n     &5.3702e-04_rb,8.0864e-04_rb,7.3797e-04_rb,5.7931e-04_rb,1.3294e-04_rb/)\n      kbo(:, 1,44, 3) = (/ &\n     &6.3384e-05_rb,1.7094e-04_rb,1.9525e-04_rb,1.8879e-04_rb,8.2201e-05_rb/)\n      kbo(:, 2,44, 3) = (/ &\n     &1.1160e-04_rb,2.4797e-04_rb,2.6713e-04_rb,2.4425e-04_rb,8.9566e-05_rb/)\n      kbo(:, 3,44, 3) = (/ &\n     &1.8608e-04_rb,3.5211e-04_rb,3.5750e-04_rb,3.0979e-04_rb,9.6374e-05_rb/)\n      kbo(:, 4,44, 3) = (/ &\n     &2.9467e-04_rb,4.9085e-04_rb,4.7122e-04_rb,3.8724e-04_rb,1.0229e-04_rb/)\n      kbo(:, 5,44, 3) = (/ &\n     &4.4331e-04_rb,6.6909e-04_rb,6.1037e-04_rb,4.7753e-04_rb,1.0759e-04_rb/)\n      kbo(:, 1,45, 3) = (/ &\n     &4.9661e-05_rb,1.3506e-04_rb,1.5438e-04_rb,1.4993e-04_rb,6.5369e-05_rb/)\n      kbo(:, 2,45, 3) = (/ &\n     &8.8927e-05_rb,1.9883e-04_rb,2.1432e-04_rb,1.9642e-04_rb,7.1593e-05_rb/)\n      kbo(:, 3,45, 3) = (/ &\n     &1.5097e-04_rb,2.8657e-04_rb,2.9095e-04_rb,2.5226e-04_rb,7.7369e-05_rb/)\n      kbo(:, 4,45, 3) = (/ &\n     &2.4324e-04_rb,4.0505e-04_rb,3.8855e-04_rb,3.1866e-04_rb,8.2473e-05_rb/)\n      kbo(:, 5,45, 3) = (/ &\n     &3.7189e-04_rb,5.6030e-04_rb,5.1022e-04_rb,3.9740e-04_rb,8.7038e-05_rb/)\n      kbo(:, 1,46, 3) = (/ &\n     &3.8628e-05_rb,1.0586e-04_rb,1.2112e-04_rb,1.1814e-04_rb,5.1792e-05_rb/)\n      kbo(:, 2,46, 3) = (/ &\n     &7.0302e-05_rb,1.5840e-04_rb,1.7081e-04_rb,1.5701e-04_rb,5.7032e-05_rb/)\n      kbo(:, 3,46, 3) = (/ &\n     &1.2164e-04_rb,2.3200e-04_rb,2.3559e-04_rb,2.0456e-04_rb,6.1939e-05_rb/)\n      kbo(:, 4,46, 3) = (/ &\n     &1.9963e-04_rb,3.3271e-04_rb,3.1891e-04_rb,2.6146e-04_rb,6.6327e-05_rb/)\n      kbo(:, 5,46, 3) = (/ &\n     &3.1076e-04_rb,4.6749e-04_rb,4.2492e-04_rb,3.2997e-04_rb,7.0248e-05_rb/)\n      kbo(:, 1,47, 3) = (/ &\n     &2.8886e-05_rb,8.0656e-05_rb,9.2760e-05_rb,9.1121e-05_rb,4.0766e-05_rb/)\n      kbo(:, 2,47, 3) = (/ &\n     &5.3342e-05_rb,1.2263e-04_rb,1.3276e-04_rb,1.2283e-04_rb,4.5144e-05_rb/)\n      kbo(:, 3,47, 3) = (/ &\n     &9.4301e-05_rb,1.8266e-04_rb,1.8617e-04_rb,1.6258e-04_rb,4.9298e-05_rb/)\n      kbo(:, 4,47, 3) = (/ &\n     &1.5800e-04_rb,2.6616e-04_rb,2.5579e-04_rb,2.1061e-04_rb,5.3068e-05_rb/)\n      kbo(:, 5,47, 3) = (/ &\n     &2.5109e-04_rb,3.7981e-04_rb,3.4582e-04_rb,2.6887e-04_rb,5.6458e-05_rb/)\n      kbo(:, 1,48, 3) = (/ &\n     &2.2227e-05_rb,6.2023e-05_rb,7.1458e-05_rb,7.0462e-05_rb,3.1996e-05_rb/)\n      kbo(:, 2,48, 3) = (/ &\n     &4.1346e-05_rb,9.5908e-05_rb,1.0391e-04_rb,9.6415e-05_rb,3.5660e-05_rb/)\n      kbo(:, 3,48, 3) = (/ &\n     &7.4574e-05_rb,1.4557e-04_rb,1.4830e-04_rb,1.2990e-04_rb,3.9158e-05_rb/)\n      kbo(:, 4,48, 3) = (/ &\n     &1.2768e-04_rb,2.1605e-04_rb,2.0753e-04_rb,1.7110e-04_rb,4.2391e-05_rb/)\n      kbo(:, 5,48, 3) = (/ &\n     &2.0727e-04_rb,3.1336e-04_rb,2.8498e-04_rb,2.2145e-04_rb,4.5305e-05_rb/)\n      kbo(:, 1,49, 3) = (/ &\n     &1.7958e-05_rb,4.8535e-05_rb,5.5723e-05_rb,5.4851e-05_rb,2.5055e-05_rb/)\n      kbo(:, 2,49, 3) = (/ &\n     &3.3224e-05_rb,7.6396e-05_rb,8.2450e-05_rb,7.6323e-05_rb,2.8114e-05_rb/)\n      kbo(:, 3,49, 3) = (/ &\n     &6.0934e-05_rb,1.1837e-04_rb,1.1999e-04_rb,1.0483e-04_rb,3.1052e-05_rb/)\n      kbo(:, 4,49, 3) = (/ &\n     &1.0660e-04_rb,1.7943e-04_rb,1.7133e-04_rb,1.4083e-04_rb,3.3806e-05_rb/)\n      kbo(:, 5,49, 3) = (/ &\n     &1.7683e-04_rb,2.6555e-04_rb,2.4004e-04_rb,1.8562e-04_rb,3.6333e-05_rb/)\n      kbo(:, 1,50, 3) = (/ &\n     &1.4221e-05_rb,3.7289e-05_rb,4.2772e-05_rb,4.2112e-05_rb,1.9622e-05_rb/)\n      kbo(:, 2,50, 3) = (/ &\n     &2.5770e-05_rb,5.9303e-05_rb,6.4074e-05_rb,5.9411e-05_rb,2.2155e-05_rb/)\n      kbo(:, 3,50, 3) = (/ &\n     &4.7760e-05_rb,9.3560e-05_rb,9.4851e-05_rb,8.2933e-05_rb,2.4619e-05_rb/)\n      kbo(:, 4,50, 3) = (/ &\n     &8.5239e-05_rb,1.4440e-04_rb,1.3769e-04_rb,1.1329e-04_rb,2.6943e-05_rb/)\n      kbo(:, 5,50, 3) = (/ &\n     &1.4427e-04_rb,2.1753e-04_rb,1.9626e-04_rb,1.5178e-04_rb,2.9098e-05_rb/)\n      kbo(:, 1,51, 3) = (/ &\n     &1.1317e-05_rb,2.8454e-05_rb,3.2589e-05_rb,3.2092e-05_rb,1.5353e-05_rb/)\n      kbo(:, 2,51, 3) = (/ &\n     &1.9742e-05_rb,4.5457e-05_rb,4.9229e-05_rb,4.5791e-05_rb,1.7432e-05_rb/)\n      kbo(:, 3,51, 3) = (/ &\n     &3.6711e-05_rb,7.2714e-05_rb,7.3963e-05_rb,6.4841e-05_rb,1.9496e-05_rb/)\n      kbo(:, 4,51, 3) = (/ &\n     &6.6639e-05_rb,1.1416e-04_rb,1.0901e-04_rb,8.9977e-05_rb,2.1439e-05_rb/)\n      kbo(:, 5,51, 3) = (/ &\n     &1.1501e-04_rb,1.7496e-04_rb,1.5780e-04_rb,1.2232e-04_rb,2.3266e-05_rb/)\n      kbo(:, 1,52, 3) = (/ &\n     &9.5193e-06_rb,2.2151e-05_rb,2.5124e-05_rb,2.4603e-05_rb,1.1980e-05_rb/)\n      kbo(:, 2,52, 3) = (/ &\n     &1.5692e-05_rb,3.5362e-05_rb,3.8197e-05_rb,3.5510e-05_rb,1.3701e-05_rb/)\n      kbo(:, 3,52, 3) = (/ &\n     &2.8933e-05_rb,5.7282e-05_rb,5.8273e-05_rb,5.1019e-05_rb,1.5415e-05_rb/)\n      kbo(:, 4,52, 3) = (/ &\n     &5.3248e-05_rb,9.1604e-05_rb,8.7350e-05_rb,7.2017e-05_rb,1.7048e-05_rb/)\n      kbo(:, 5,52, 3) = (/ &\n     &9.3646e-05_rb,1.4304e-04_rb,1.2865e-04_rb,9.9576e-05_rb,1.8583e-05_rb/)\n      kbo(:, 1,53, 3) = (/ &\n     &8.6013e-06_rb,1.7806e-05_rb,1.9756e-05_rb,1.9080e-05_rb,9.3222e-06_rb/)\n      kbo(:, 2,53, 3) = (/ &\n     &1.3174e-05_rb,2.8179e-05_rb,3.0144e-05_rb,2.7850e-05_rb,1.0743e-05_rb/)\n      kbo(:, 3,53, 3) = (/ &\n     &2.3711e-05_rb,4.6162e-05_rb,4.6700e-05_rb,4.0629e-05_rb,1.2161e-05_rb/)\n      kbo(:, 4,53, 3) = (/ &\n     &4.4006e-05_rb,7.5218e-05_rb,7.1366e-05_rb,5.8426e-05_rb,1.3528e-05_rb/)\n      kbo(:, 5,53, 3) = (/ &\n     &7.8885e-05_rb,1.1994e-04_rb,1.0719e-04_rb,8.2389e-05_rb,1.4819e-05_rb/)\n      kbo(:, 1,54, 3) = (/ &\n     &6.9789e-06_rb,1.3437e-05_rb,1.4771e-05_rb,1.4238e-05_rb,7.2546e-06_rb/)\n      kbo(:, 2,54, 3) = (/ &\n     &9.9119e-06_rb,2.0811e-05_rb,2.2371e-05_rb,2.0824e-05_rb,8.4185e-06_rb/)\n      kbo(:, 3,54, 3) = (/ &\n     &1.7167e-05_rb,3.4065e-05_rb,3.4800e-05_rb,3.0574e-05_rb,9.5808e-06_rb/)\n      kbo(:, 4,54, 3) = (/ &\n     &3.1909e-05_rb,5.5956e-05_rb,5.3708e-05_rb,4.4436e-05_rb,1.0721e-05_rb/)\n      kbo(:, 5,54, 3) = (/ &\n     &5.8081e-05_rb,9.0422e-05_rb,8.1544e-05_rb,6.3307e-05_rb,1.1799e-05_rb/)\n      kbo(:, 1,55, 3) = (/ &\n     &5.3128e-06_rb,9.7390e-06_rb,1.0688e-05_rb,1.0358e-05_rb,5.6367e-06_rb/)\n      kbo(:, 2,55, 3) = (/ &\n     &6.9987e-06_rb,1.4672e-05_rb,1.5984e-05_rb,1.5113e-05_rb,6.5876e-06_rb/)\n      kbo(:, 3,55, 3) = (/ &\n     &1.1522e-05_rb,2.3785e-05_rb,2.4757e-05_rb,2.2203e-05_rb,7.5366e-06_rb/)\n      kbo(:, 4,55, 3) = (/ &\n     &2.1231e-05_rb,3.9099e-05_rb,3.8355e-05_rb,3.2404e-05_rb,8.4801e-06_rb/)\n      kbo(:, 5,55, 3) = (/ &\n     &3.9115e-05_rb,6.3594e-05_rb,5.8504e-05_rb,4.6398e-05_rb,9.3778e-06_rb/)\n      kbo(:, 1,56, 3) = (/ &\n     &4.1255e-06_rb,7.1364e-06_rb,7.7808e-06_rb,7.5482e-06_rb,4.3681e-06_rb/)\n      kbo(:, 2,56, 3) = (/ &\n     &5.0603e-06_rb,1.0419e-05_rb,1.1462e-05_rb,1.0974e-05_rb,5.1464e-06_rb/)\n      kbo(:, 3,56, 3) = (/ &\n     &7.8194e-06_rb,1.6631e-05_rb,1.7619e-05_rb,1.6112e-05_rb,5.9174e-06_rb/)\n      kbo(:, 4,56, 3) = (/ &\n     &1.4119e-05_rb,2.7308e-05_rb,2.7375e-05_rb,2.3608e-05_rb,6.6946e-06_rb/)\n      kbo(:, 5,56, 3) = (/ &\n     &2.6208e-05_rb,4.4637e-05_rb,4.1923e-05_rb,3.3985e-05_rb,7.4429e-06_rb/)\n      kbo(:, 1,57, 3) = (/ &\n     &3.2493e-06_rb,5.2971e-06_rb,5.6993e-06_rb,5.5117e-06_rb,3.3724e-06_rb/)\n      kbo(:, 2,57, 3) = (/ &\n     &3.7488e-06_rb,7.4571e-06_rb,8.2480e-06_rb,7.9737e-06_rb,4.0105e-06_rb/)\n      kbo(:, 3,57, 3) = (/ &\n     &5.3914e-06_rb,1.1658e-05_rb,1.2555e-05_rb,1.1685e-05_rb,4.6429e-06_rb/)\n      kbo(:, 4,57, 3) = (/ &\n     &9.4028e-06_rb,1.9067e-05_rb,1.9516e-05_rb,1.7175e-05_rb,5.2749e-06_rb/)\n      kbo(:, 5,57, 3) = (/ &\n     &1.7491e-05_rb,3.1266e-05_rb,3.0002e-05_rb,2.4856e-05_rb,5.8965e-06_rb/)\n      kbo(:, 1,58, 3) = (/ &\n     &6.8210e-07_rb,1.3006e-06_rb,1.7801e-06_rb,2.4088e-06_rb,2.6011e-06_rb/)\n      kbo(:, 2,58, 3) = (/ &\n     &7.5233e-07_rb,1.7695e-06_rb,2.5293e-06_rb,3.4612e-06_rb,3.1260e-06_rb/)\n      kbo(:, 3,58, 3) = (/ &\n     &1.0077e-06_rb,2.6981e-06_rb,3.8040e-06_rb,5.0545e-06_rb,3.6427e-06_rb/)\n      kbo(:, 4,58, 3) = (/ &\n     &1.6789e-06_rb,4.3767e-06_rb,5.8928e-06_rb,7.4329e-06_rb,4.1541e-06_rb/)\n      kbo(:, 5,58, 3) = (/ &\n     &3.1035e-06_rb,7.1707e-06_rb,9.0733e-06_rb,1.0789e-05_rb,4.6675e-06_rb/)\n      kbo(:, 1,59, 3) = (/ &\n     &6.5007e-07_rb,1.2934e-06_rb,1.7266e-06_rb,2.1835e-06_rb,2.0738e-06_rb/)\n      kbo(:, 2,59, 3) = (/ &\n     &7.0640e-07_rb,1.7649e-06_rb,2.4593e-06_rb,3.1227e-06_rb,2.5027e-06_rb/)\n      kbo(:, 3,59, 3) = (/ &\n     &9.2077e-07_rb,2.6612e-06_rb,3.6625e-06_rb,4.5103e-06_rb,2.9231e-06_rb/)\n      kbo(:, 4,59, 3) = (/ &\n     &1.5013e-06_rb,4.2541e-06_rb,5.5816e-06_rb,6.5373e-06_rb,3.3365e-06_rb/)\n      kbo(:, 5,59, 3) = (/ &\n     &2.7629e-06_rb,6.8551e-06_rb,8.4568e-06_rb,9.3583e-06_rb,3.7483e-06_rb/)\n      kbo(:, 1,13, 4) = (/ &\n     &6.7049e-02_rb,1.0578e-01_rb,1.2049e-01_rb,1.1447e-01_rb,5.3996e-02_rb/)\n      kbo(:, 2,13, 4) = (/ &\n     &1.2378e-01_rb,1.5839e-01_rb,1.6716e-01_rb,1.4967e-01_rb,5.8724e-02_rb/)\n      kbo(:, 3,13, 4) = (/ &\n     &2.1508e-01_rb,2.3357e-01_rb,2.2807e-01_rb,1.9256e-01_rb,6.3468e-02_rb/)\n      kbo(:, 4,13, 4) = (/ &\n     &3.4658e-01_rb,3.3547e-01_rb,3.0532e-01_rb,2.4368e-01_rb,6.7895e-02_rb/)\n      kbo(:, 5,13, 4) = (/ &\n     &5.1918e-01_rb,4.6542e-01_rb,4.0071e-01_rb,3.0351e-01_rb,7.2180e-02_rb/)\n      kbo(:, 1,14, 4) = (/ &\n     &3.7591e-02_rb,7.5935e-02_rb,8.9834e-02_rb,8.8154e-02_rb,4.7370e-02_rb/)\n      kbo(:, 2,14, 4) = (/ &\n     &6.9282e-02_rb,1.0939e-01_rb,1.2082e-01_rb,1.1264e-01_rb,5.1597e-02_rb/)\n      kbo(:, 3,14, 4) = (/ &\n     &1.1973e-01_rb,1.5456e-01_rb,1.5973e-01_rb,1.4179e-01_rb,5.5698e-02_rb/)\n      kbo(:, 4,14, 4) = (/ &\n     &1.9141e-01_rb,2.1319e-01_rb,2.0757e-01_rb,1.7567e-01_rb,5.9503e-02_rb/)\n      kbo(:, 5,14, 4) = (/ &\n     &2.8419e-01_rb,2.8689e-01_rb,2.6537e-01_rb,2.1426e-01_rb,6.3167e-02_rb/)\n      kbo(:, 1,15, 4) = (/ &\n     &2.1562e-02_rb,5.5383e-02_rb,6.7683e-02_rb,6.8583e-02_rb,4.1403e-02_rb/)\n      kbo(:, 2,15, 4) = (/ &\n     &3.9720e-02_rb,7.6977e-02_rb,8.8827e-02_rb,8.5804e-02_rb,4.5107e-02_rb/)\n      kbo(:, 3,15, 4) = (/ &\n     &6.8049e-02_rb,1.0522e-01_rb,1.1458e-01_rb,1.0592e-01_rb,4.8636e-02_rb/)\n      kbo(:, 4,15, 4) = (/ &\n     &1.0779e-01_rb,1.4096e-01_rb,1.4532e-01_rb,1.2906e-01_rb,5.1972e-02_rb/)\n      kbo(:, 5,15, 4) = (/ &\n     &1.5865e-01_rb,1.8497e-01_rb,1.8175e-01_rb,1.5501e-01_rb,5.5102e-02_rb/)\n      kbo(:, 1,16, 4) = (/ &\n     &1.4772e-02_rb,4.3932e-02_rb,5.4513e-02_rb,5.6391e-02_rb,3.6009e-02_rb/)\n      kbo(:, 2,16, 4) = (/ &\n     &2.7132e-02_rb,5.9972e-02_rb,7.0550e-02_rb,6.9709e-02_rb,3.9169e-02_rb/)\n      kbo(:, 3,16, 4) = (/ &\n     &4.6049e-02_rb,8.0444e-02_rb,8.9769e-02_rb,8.5125e-02_rb,4.2209e-02_rb/)\n      kbo(:, 4,16, 4) = (/ &\n     &7.2213e-02_rb,1.0588e-01_rb,1.1245e-01_rb,1.0271e-01_rb,4.5097e-02_rb/)\n      kbo(:, 5,16, 4) = (/ &\n     &1.0534e-01_rb,1.3693e-01_rb,1.3910e-01_rb,1.2239e-01_rb,4.7833e-02_rb/)\n      kbo(:, 1,17, 4) = (/ &\n     &1.0505e-02_rb,3.5195e-02_rb,4.4278e-02_rb,4.6677e-02_rb,3.1091e-02_rb/)\n      kbo(:, 2,17, 4) = (/ &\n     &1.9166e-02_rb,4.7335e-02_rb,5.6632e-02_rb,5.7162e-02_rb,3.3802e-02_rb/)\n      kbo(:, 3,17, 4) = (/ &\n     &3.2242e-02_rb,6.2594e-02_rb,7.1319e-02_rb,6.9208e-02_rb,3.6407e-02_rb/)\n      kbo(:, 4,17, 4) = (/ &\n     &4.9961e-02_rb,8.1341e-02_rb,8.8470e-02_rb,8.2810e-02_rb,3.8893e-02_rb/)\n      kbo(:, 5,17, 4) = (/ &\n     &7.2404e-02_rb,1.0400e-01_rb,1.0862e-01_rb,9.8084e-02_rb,4.1273e-02_rb/)\n      kbo(:, 1,18, 4) = (/ &\n     &7.6562e-03_rb,2.8333e-02_rb,3.6121e-02_rb,3.8835e-02_rb,2.6686e-02_rb/)\n      kbo(:, 2,18, 4) = (/ &\n     &1.3867e-02_rb,3.7676e-02_rb,4.5765e-02_rb,4.7147e-02_rb,2.9013e-02_rb/)\n      kbo(:, 3,18, 4) = (/ &\n     &2.3086e-02_rb,4.9274e-02_rb,5.7143e-02_rb,5.6661e-02_rb,3.1231e-02_rb/)\n      kbo(:, 4,18, 4) = (/ &\n     &3.5350e-02_rb,6.3412e-02_rb,7.0379e-02_rb,6.7363e-02_rb,3.3367e-02_rb/)\n      kbo(:, 5,18, 4) = (/ &\n     &5.0974e-02_rb,8.0253e-02_rb,8.5775e-02_rb,7.9284e-02_rb,3.5380e-02_rb/)\n      kbo(:, 1,19, 4) = (/ &\n     &5.4803e-03_rb,2.2514e-02_rb,2.9208e-02_rb,3.2099e-02_rb,2.2789e-02_rb/)\n      kbo(:, 2,19, 4) = (/ &\n     &9.8317e-03_rb,2.9614e-02_rb,3.6650e-02_rb,3.8632e-02_rb,2.4757e-02_rb/)\n      kbo(:, 3,19, 4) = (/ &\n     &1.6184e-02_rb,3.8312e-02_rb,4.5365e-02_rb,4.6081e-02_rb,2.6634e-02_rb/)\n      kbo(:, 4,19, 4) = (/ &\n     &2.4529e-02_rb,4.8776e-02_rb,5.5440e-02_rb,5.4451e-02_rb,2.8434e-02_rb/)\n      kbo(:, 5,19, 4) = (/ &\n     &3.5233e-02_rb,6.1231e-02_rb,6.7107e-02_rb,6.3779e-02_rb,3.0105e-02_rb/)\n      kbo(:, 1,20, 4) = (/ &\n     &4.2828e-03_rb,1.8555e-02_rb,2.4277e-02_rb,2.6995e-02_rb,1.9406e-02_rb/)\n      kbo(:, 2,20, 4) = (/ &\n     &7.5931e-03_rb,2.4236e-02_rb,3.0290e-02_rb,3.2347e-02_rb,2.1050e-02_rb/)\n      kbo(:, 3,20, 4) = (/ &\n     &1.2330e-02_rb,3.1123e-02_rb,3.7288e-02_rb,3.8414e-02_rb,2.2621e-02_rb/)\n      kbo(:, 4,20, 4) = (/ &\n     &1.8510e-02_rb,3.9358e-02_rb,4.5374e-02_rb,4.5224e-02_rb,2.4107e-02_rb/)\n      kbo(:, 5,20, 4) = (/ &\n     &2.6546e-02_rb,4.9149e-02_rb,5.4720e-02_rb,5.2789e-02_rb,2.5443e-02_rb/)\n      kbo(:, 1,21, 4) = (/ &\n     &3.4446e-03_rb,1.5454e-02_rb,2.0322e-02_rb,2.2766e-02_rb,1.6445e-02_rb/)\n      kbo(:, 2,21, 4) = (/ &\n     &6.0284e-03_rb,2.0063e-02_rb,2.5258e-02_rb,2.7191e-02_rb,1.7819e-02_rb/)\n      kbo(:, 3,21, 4) = (/ &\n     &9.6698e-03_rb,2.5633e-02_rb,3.0993e-02_rb,3.2202e-02_rb,1.9116e-02_rb/)\n      kbo(:, 4,21, 4) = (/ &\n     &1.4416e-02_rb,3.2230e-02_rb,3.7573e-02_rb,3.7789e-02_rb,2.0305e-02_rb/)\n      kbo(:, 5,21, 4) = (/ &\n     &2.0653e-02_rb,4.0104e-02_rb,4.5153e-02_rb,4.3956e-02_rb,2.1322e-02_rb/)\n      kbo(:, 1,22, 4) = (/ &\n     &2.9417e-03_rb,1.3191e-02_rb,1.7364e-02_rb,1.9451e-02_rb,1.3960e-02_rb/)\n      kbo(:, 2,22, 4) = (/ &\n     &5.0614e-03_rb,1.7031e-02_rb,2.1496e-02_rb,2.3163e-02_rb,1.5084e-02_rb/)\n      kbo(:, 3,22, 4) = (/ &\n     &7.9857e-03_rb,2.1643e-02_rb,2.6269e-02_rb,2.7349e-02_rb,1.6128e-02_rb/)\n      kbo(:, 4,22, 4) = (/ &\n     &1.1815e-02_rb,2.7096e-02_rb,3.1716e-02_rb,3.1974e-02_rb,1.7035e-02_rb/)\n      kbo(:, 5,22, 4) = (/ &\n     &1.6874e-02_rb,3.3630e-02_rb,3.8023e-02_rb,3.7066e-02_rb,1.7780e-02_rb/)\n      kbo(:, 1,23, 4) = (/ &\n     &2.5270e-03_rb,1.1266e-02_rb,1.4840e-02_rb,1.6589e-02_rb,1.1804e-02_rb/)\n      kbo(:, 2,23, 4) = (/ &\n     &4.2729e-03_rb,1.4464e-02_rb,1.8293e-02_rb,1.9688e-02_rb,1.2713e-02_rb/)\n      kbo(:, 3,23, 4) = (/ &\n     &6.6524e-03_rb,1.8294e-02_rb,2.2254e-02_rb,2.3162e-02_rb,1.3520e-02_rb/)\n      kbo(:, 4,23, 4) = (/ &\n     &9.7631e-03_rb,2.2820e-02_rb,2.6759e-02_rb,2.6972e-02_rb,1.4190e-02_rb/)\n      kbo(:, 5,23, 4) = (/ &\n     &1.3880e-02_rb,2.8296e-02_rb,3.2015e-02_rb,3.1138e-02_rb,1.4756e-02_rb/)\n      kbo(:, 1,24, 4) = (/ &\n     &2.1649e-03_rb,9.5893e-03_rb,1.2641e-02_rb,1.4093e-02_rb,9.9437e-03_rb/)\n      kbo(:, 2,24, 4) = (/ &\n     &3.5984e-03_rb,1.2238e-02_rb,1.5497e-02_rb,1.6660e-02_rb,1.0660e-02_rb/)\n      kbo(:, 3,24, 4) = (/ &\n     &5.5343e-03_rb,1.5407e-02_rb,1.8761e-02_rb,1.9506e-02_rb,1.1265e-02_rb/)\n      kbo(:, 4,24, 4) = (/ &\n     &8.0630e-03_rb,1.9178e-02_rb,2.2493e-02_rb,2.2596e-02_rb,1.1775e-02_rb/)\n      kbo(:, 5,24, 4) = (/ &\n     &1.1384e-02_rb,2.3746e-02_rb,2.6831e-02_rb,2.5965e-02_rb,1.2211e-02_rb/)\n      kbo(:, 1,25, 4) = (/ &\n     &1.8852e-03_rb,8.1978e-03_rb,1.0793e-02_rb,1.1983e-02_rb,8.3500e-03_rb/)\n      kbo(:, 2,25, 4) = (/ &\n     &3.0822e-03_rb,1.0410e-02_rb,1.3161e-02_rb,1.4105e-02_rb,8.8930e-03_rb/)\n      kbo(:, 3,25, 4) = (/ &\n     &4.6788e-03_rb,1.3060e-02_rb,1.5866e-02_rb,1.6423e-02_rb,9.3555e-03_rb/)\n      kbo(:, 4,25, 4) = (/ &\n     &6.7672e-03_rb,1.6246e-02_rb,1.8965e-02_rb,1.8919e-02_rb,9.7508e-03_rb/)\n      kbo(:, 5,25, 4) = (/ &\n     &9.4703e-03_rb,2.0069e-02_rb,2.2560e-02_rb,2.1660e-02_rb,1.0087e-02_rb/)\n      kbo(:, 1,26, 4) = (/ &\n     &1.6838e-03_rb,7.0691e-03_rb,9.2649e-03_rb,1.0222e-02_rb,6.9856e-03_rb/)\n      kbo(:, 2,26, 4) = (/ &\n     &2.7021e-03_rb,8.9432e-03_rb,1.1240e-02_rb,1.1970e-02_rb,7.4013e-03_rb/)\n      kbo(:, 3,26, 4) = (/ &\n     &4.0452e-03_rb,1.1195e-02_rb,1.3497e-02_rb,1.3851e-02_rb,7.7588e-03_rb/)\n      kbo(:, 4,26, 4) = (/ &\n     &5.8017e-03_rb,1.3912e-02_rb,1.6094e-02_rb,1.5906e-02_rb,8.0669e-03_rb/)\n      kbo(:, 5,26, 4) = (/ &\n     &8.0448e-03_rb,1.7140e-02_rb,1.9095e-02_rb,1.8175e-02_rb,8.3263e-03_rb/)\n      kbo(:, 1,27, 4) = (/ &\n     &1.5607e-03_rb,6.1890e-03_rb,8.0258e-03_rb,8.7683e-03_rb,5.8228e-03_rb/)\n      kbo(:, 2,27, 4) = (/ &\n     &2.4561e-03_rb,7.8183e-03_rb,9.7010e-03_rb,1.0217e-02_rb,6.1459e-03_rb/)\n      kbo(:, 3,27, 4) = (/ &\n     &3.6253e-03_rb,9.7806e-03_rb,1.1625e-02_rb,1.1787e-02_rb,6.4270e-03_rb/)\n      kbo(:, 4,27, 4) = (/ &\n     &5.1578e-03_rb,1.2146e-02_rb,1.3856e-02_rb,1.3525e-02_rb,6.6670e-03_rb/)\n      kbo(:, 5,27, 4) = (/ &\n     &7.0917e-03_rb,1.4929e-02_rb,1.6419e-02_rb,1.5452e-02_rb,6.8676e-03_rb/)\n      kbo(:, 1,28, 4) = (/ &\n     &1.4790e-03_rb,5.4823e-03_rb,6.9976e-03_rb,7.5478e-03_rb,4.8444e-03_rb/)\n      kbo(:, 2,28, 4) = (/ &\n     &2.2841e-03_rb,6.9262e-03_rb,8.4418e-03_rb,8.7670e-03_rb,5.0989e-03_rb/)\n      kbo(:, 3,28, 4) = (/ &\n     &3.3280e-03_rb,8.6594e-03_rb,1.0117e-02_rb,1.0108e-02_rb,5.3174e-03_rb/)\n      kbo(:, 4,28, 4) = (/ &\n     &4.7002e-03_rb,1.0747e-02_rb,1.2065e-02_rb,1.1610e-02_rb,5.5053e-03_rb/)\n      kbo(:, 5,28, 4) = (/ &\n     &6.4216e-03_rb,1.3181e-02_rb,1.4294e-02_rb,1.3272e-02_rb,5.6597e-03_rb/)\n      kbo(:, 1,29, 4) = (/ &\n     &1.4846e-03_rb,5.0115e-03_rb,6.2330e-03_rb,6.5969e-03_rb,4.0271e-03_rb/)\n      kbo(:, 2,29, 4) = (/ &\n     &2.2530e-03_rb,6.3449e-03_rb,7.5362e-03_rb,7.6648e-03_rb,4.2267e-03_rb/)\n      kbo(:, 3,29, 4) = (/ &\n     &3.2510e-03_rb,7.9458e-03_rb,9.0603e-03_rb,8.8629e-03_rb,4.3989e-03_rb/)\n      kbo(:, 4,29, 4) = (/ &\n     &4.5516e-03_rb,9.8569e-03_rb,1.0828e-02_rb,1.0206e-02_rb,4.5467e-03_rb/)\n      kbo(:, 5,29, 4) = (/ &\n     &6.1805e-03_rb,1.2091e-02_rb,1.2839e-02_rb,1.1688e-02_rb,4.6649e-03_rb/)\n      kbo(:, 1,30, 4) = (/ &\n     &1.5199e-03_rb,4.6536e-03_rb,5.6184e-03_rb,5.8111e-03_rb,3.3446e-03_rb/)\n      kbo(:, 2,30, 4) = (/ &\n     &2.2691e-03_rb,5.9027e-03_rb,6.8239e-03_rb,6.7733e-03_rb,3.5018e-03_rb/)\n      kbo(:, 3,30, 4) = (/ &\n     &3.2488e-03_rb,7.4072e-03_rb,8.2321e-03_rb,7.8632e-03_rb,3.6376e-03_rb/)\n      kbo(:, 4,30, 4) = (/ &\n     &4.5119e-03_rb,9.1886e-03_rb,9.8595e-03_rb,9.0823e-03_rb,3.7530e-03_rb/)\n      kbo(:, 5,30, 4) = (/ &\n     &6.0862e-03_rb,1.1295e-02_rb,1.1709e-02_rb,1.0421e-02_rb,3.8437e-03_rb/)\n      kbo(:, 1,31, 4) = (/ &\n     &1.6311e-03_rb,4.4648e-03_rb,5.2027e-03_rb,5.2222e-03_rb,2.7768e-03_rb/)\n      kbo(:, 2,31, 4) = (/ &\n     &2.3988e-03_rb,5.6776e-03_rb,6.3545e-03_rb,6.1217e-03_rb,2.9011e-03_rb/)\n      kbo(:, 3,31, 4) = (/ &\n     &3.4145e-03_rb,7.1414e-03_rb,7.7030e-03_rb,7.1444e-03_rb,3.0093e-03_rb/)\n      kbo(:, 4,31, 4) = (/ &\n     &4.7033e-03_rb,8.8852e-03_rb,9.2526e-03_rb,8.2855e-03_rb,3.0977e-03_rb/)\n      kbo(:, 5,31, 4) = (/ &\n     &6.2907e-03_rb,1.0964e-02_rb,1.1034e-02_rb,9.5381e-03_rb,3.1698e-03_rb/)\n      kbo(:, 1,32, 4) = (/ &\n     &1.7646e-03_rb,4.3392e-03_rb,4.8857e-03_rb,4.7446e-03_rb,2.3054e-03_rb/)\n      kbo(:, 2,32, 4) = (/ &\n     &2.5651e-03_rb,5.5295e-03_rb,5.9929e-03_rb,5.5951e-03_rb,2.4036e-03_rb/)\n      kbo(:, 3,32, 4) = (/ &\n     &3.6260e-03_rb,6.9759e-03_rb,7.2903e-03_rb,6.5646e-03_rb,2.4876e-03_rb/)\n      kbo(:, 4,32, 4) = (/ &\n     &4.9515e-03_rb,8.7151e-03_rb,8.7927e-03_rb,7.6385e-03_rb,2.5574e-03_rb/)\n      kbo(:, 5,32, 4) = (/ &\n     &6.5598e-03_rb,1.0782e-02_rb,1.0540e-02_rb,8.8332e-03_rb,2.6142e-03_rb/)\n      kbo(:, 1,33, 4) = (/ &\n     &1.9374e-03_rb,4.2874e-03_rb,4.6591e-03_rb,4.3717e-03_rb,1.9130e-03_rb/)\n      kbo(:, 2,33, 4) = (/ &\n     &2.7949e-03_rb,5.4803e-03_rb,5.7408e-03_rb,5.1902e-03_rb,1.9904e-03_rb/)\n      kbo(:, 3,33, 4) = (/ &\n     &3.9103e-03_rb,6.9411e-03_rb,7.0122e-03_rb,6.1134e-03_rb,2.0570e-03_rb/)\n      kbo(:, 4,33, 4) = (/ &\n     &5.2898e-03_rb,8.7072e-03_rb,8.5064e-03_rb,7.1438e-03_rb,2.1115e-03_rb/)\n      kbo(:, 5,33, 4) = (/ &\n     &6.9527e-03_rb,1.0788e-02_rb,1.0239e-02_rb,8.3069e-03_rb,2.1568e-03_rb/)\n      kbo(:, 1,34, 4) = (/ &\n     &2.0406e-03_rb,4.1540e-03_rb,4.3826e-03_rb,3.9946e-03_rb,1.5845e-03_rb/)\n      kbo(:, 2,34, 4) = (/ &\n     &2.9261e-03_rb,5.3300e-03_rb,5.4194e-03_rb,4.7632e-03_rb,1.6461e-03_rb/)\n      kbo(:, 3,34, 4) = (/ &\n     &4.0546e-03_rb,6.7773e-03_rb,6.6513e-03_rb,5.6287e-03_rb,1.6983e-03_rb/)\n      kbo(:, 4,34, 4) = (/ &\n     &5.4348e-03_rb,8.5143e-03_rb,8.1040e-03_rb,6.6107e-03_rb,1.7421e-03_rb/)\n      kbo(:, 5,34, 4) = (/ &\n     &7.1060e-03_rb,1.0544e-02_rb,9.7699e-03_rb,7.7212e-03_rb,1.7780e-03_rb/)\n      kbo(:, 1,35, 4) = (/ &\n     &2.0728e-03_rb,3.9485e-03_rb,4.0574e-03_rb,3.6081e-03_rb,1.3068e-03_rb/)\n      kbo(:, 2,35, 4) = (/ &\n     &2.9602e-03_rb,5.0932e-03_rb,5.0438e-03_rb,4.3192e-03_rb,1.3565e-03_rb/)\n      kbo(:, 3,35, 4) = (/ &\n     &4.0769e-03_rb,6.5016e-03_rb,6.2270e-03_rb,5.1307e-03_rb,1.3990e-03_rb/)\n      kbo(:, 4,35, 4) = (/ &\n     &5.4354e-03_rb,8.1764e-03_rb,7.6137e-03_rb,6.0597e-03_rb,1.4343e-03_rb/)\n      kbo(:, 5,35, 4) = (/ &\n     &7.0821e-03_rb,1.0134e-02_rb,9.1905e-03_rb,7.1011e-03_rb,1.4630e-03_rb/)\n      kbo(:, 1,36, 4) = (/ &\n     &2.0103e-03_rb,3.6479e-03_rb,3.6691e-03_rb,3.1952e-03_rb,1.0729e-03_rb/)\n      kbo(:, 2,36, 4) = (/ &\n     &2.8662e-03_rb,4.7338e-03_rb,4.5904e-03_rb,3.8448e-03_rb,1.1132e-03_rb/)\n      kbo(:, 3,36, 4) = (/ &\n     &3.9368e-03_rb,6.0663e-03_rb,5.7008e-03_rb,4.5973e-03_rb,1.1487e-03_rb/)\n      kbo(:, 4,36, 4) = (/ &\n     &5.2410e-03_rb,7.6444e-03_rb,6.9919e-03_rb,5.4585e-03_rb,1.1779e-03_rb/)\n      kbo(:, 5,36, 4) = (/ &\n     &6.8204e-03_rb,9.5005e-03_rb,8.4610e-03_rb,6.4164e-03_rb,1.2022e-03_rb/)\n      kbo(:, 1,37, 4) = (/ &\n     &1.7959e-03_rb,3.1864e-03_rb,3.1663e-03_rb,2.7239e-03_rb,8.7469e-04_rb/)\n      kbo(:, 2,37, 4) = (/ &\n     &2.5697e-03_rb,4.1617e-03_rb,3.9876e-03_rb,3.2966e-03_rb,9.0931e-04_rb/)\n      kbo(:, 3,37, 4) = (/ &\n     &3.5391e-03_rb,5.3610e-03_rb,4.9818e-03_rb,3.9676e-03_rb,9.3897e-04_rb/)\n      kbo(:, 4,37, 4) = (/ &\n     &4.7240e-03_rb,6.7847e-03_rb,6.1364e-03_rb,4.7358e-03_rb,9.6399e-04_rb/)\n      kbo(:, 5,37, 4) = (/ &\n     &6.1586e-03_rb,8.4655e-03_rb,7.4564e-03_rb,5.5875e-03_rb,9.8533e-04_rb/)\n      kbo(:, 1,38, 4) = (/ &\n     &1.6221e-03_rb,2.8081e-03_rb,2.7522e-03_rb,2.3347e-03_rb,7.1314e-04_rb/)\n      kbo(:, 2,38, 4) = (/ &\n     &2.3291e-03_rb,3.6929e-03_rb,3.4899e-03_rb,2.8446e-03_rb,7.4249e-04_rb/)\n      kbo(:, 3,38, 4) = (/ &\n     &3.2190e-03_rb,4.7846e-03_rb,4.3892e-03_rb,3.4480e-03_rb,7.6765e-04_rb/)\n      kbo(:, 4,38, 4) = (/ &\n     &4.3100e-03_rb,6.0843e-03_rb,5.4322e-03_rb,4.1379e-03_rb,7.8970e-04_rb/)\n      kbo(:, 5,38, 4) = (/ &\n     &5.6295e-03_rb,7.6227e-03_rb,6.6325e-03_rb,4.9024e-03_rb,8.0762e-04_rb/)\n      kbo(:, 1,39, 4) = (/ &\n     &1.4985e-03_rb,2.5181e-03_rb,2.4272e-03_rb,2.0247e-03_rb,5.8188e-04_rb/)\n      kbo(:, 2,39, 4) = (/ &\n     &2.1580e-03_rb,3.3353e-03_rb,3.1025e-03_rb,2.4863e-03_rb,6.0647e-04_rb/)\n      kbo(:, 3,39, 4) = (/ &\n     &2.9946e-03_rb,4.3491e-03_rb,3.9298e-03_rb,3.0357e-03_rb,6.2817e-04_rb/)\n      kbo(:, 4,39, 4) = (/ &\n     &4.0211e-03_rb,5.5590e-03_rb,4.8918e-03_rb,3.6649e-03_rb,6.4668e-04_rb/)\n      kbo(:, 5,39, 4) = (/ &\n     &5.2642e-03_rb,6.9995e-03_rb,6.0040e-03_rb,4.3661e-03_rb,6.6239e-04_rb/)\n      kbo(:, 1,40, 4) = (/ &\n     &1.2480e-03_rb,2.0953e-03_rb,2.0102e-03_rb,1.6690e-03_rb,4.7210e-04_rb/)\n      kbo(:, 2,40, 4) = (/ &\n     &1.8115e-03_rb,2.7936e-03_rb,2.5861e-03_rb,2.0625e-03_rb,4.9296e-04_rb/)\n      kbo(:, 3,40, 4) = (/ &\n     &2.5332e-03_rb,3.6693e-03_rb,3.2977e-03_rb,2.5337e-03_rb,5.1142e-04_rb/)\n      kbo(:, 4,40, 4) = (/ &\n     &3.4226e-03_rb,4.7175e-03_rb,4.1297e-03_rb,3.0758e-03_rb,5.2719e-04_rb/)\n      kbo(:, 5,40, 4) = (/ &\n     &4.4988e-03_rb,5.9686e-03_rb,5.0929e-03_rb,3.6827e-03_rb,5.4108e-04_rb/)\n      kbo(:, 1,41, 4) = (/ &\n     &1.0279e-03_rb,1.7303e-03_rb,1.6546e-03_rb,1.3684e-03_rb,3.8259e-04_rb/)\n      kbo(:, 2,41, 4) = (/ &\n     &1.5100e-03_rb,2.3260e-03_rb,2.1442e-03_rb,1.7025e-03_rb,4.0029e-04_rb/)\n      kbo(:, 3,41, 4) = (/ &\n     &2.1257e-03_rb,3.0759e-03_rb,2.7514e-03_rb,2.1044e-03_rb,4.1598e-04_rb/)\n      kbo(:, 4,41, 4) = (/ &\n     &2.8920e-03_rb,3.9799e-03_rb,3.4670e-03_rb,2.5693e-03_rb,4.2980e-04_rb/)\n      kbo(:, 5,41, 4) = (/ &\n     &3.8245e-03_rb,5.0645e-03_rb,4.3009e-03_rb,3.0935e-03_rb,4.4154e-04_rb/)\n      kbo(:, 1,42, 4) = (/ &\n     &8.5248e-04_rb,1.4366e-03_rb,1.3681e-03_rb,1.1259e-03_rb,3.0986e-04_rb/)\n      kbo(:, 2,42, 4) = (/ &\n     &1.2693e-03_rb,1.9496e-03_rb,1.7879e-03_rb,1.4116e-03_rb,3.2494e-04_rb/)\n      kbo(:, 3,42, 4) = (/ &\n     &1.7992e-03_rb,2.5962e-03_rb,2.3093e-03_rb,1.7561e-03_rb,3.3826e-04_rb/)\n      kbo(:, 4,42, 4) = (/ &\n     &2.4657e-03_rb,3.3829e-03_rb,2.9302e-03_rb,2.1577e-03_rb,3.5033e-04_rb/)\n      kbo(:, 5,42, 4) = (/ &\n     &3.2835e-03_rb,4.3314e-03_rb,3.6581e-03_rb,2.6128e-03_rb,3.6051e-04_rb/)\n      kbo(:, 1,43, 4) = (/ &\n     &6.9299e-04_rb,1.1756e-03_rb,1.1172e-03_rb,9.1666e-04_rb,2.5008e-04_rb/)\n      kbo(:, 2,43, 4) = (/ &\n     &1.0504e-03_rb,1.6147e-03_rb,1.4746e-03_rb,1.1591e-03_rb,2.6296e-04_rb/)\n      kbo(:, 3,43, 4) = (/ &\n     &1.5042e-03_rb,2.1683e-03_rb,1.9190e-03_rb,1.4524e-03_rb,2.7439e-04_rb/)\n      kbo(:, 4,43, 4) = (/ &\n     &2.0819e-03_rb,2.8510e-03_rb,2.4566e-03_rb,1.7990e-03_rb,2.8482e-04_rb/)\n      kbo(:, 5,43, 4) = (/ &\n     &2.7959e-03_rb,3.6773e-03_rb,3.0899e-03_rb,2.1936e-03_rb,2.9376e-04_rb/)\n      kbo(:, 1,44, 4) = (/ &\n     &5.6092e-04_rb,9.5981e-04_rb,9.1038e-04_rb,7.4434e-04_rb,2.0138e-04_rb/)\n      kbo(:, 2,44, 4) = (/ &\n     &8.6869e-04_rb,1.3365e-03_rb,1.2153e-03_rb,9.5085e-04_rb,2.1240e-04_rb/)\n      kbo(:, 3,44, 4) = (/ &\n     &1.2605e-03_rb,1.8133e-03_rb,1.5968e-03_rb,1.2017e-03_rb,2.2220e-04_rb/)\n      kbo(:, 4,44, 4) = (/ &\n     &1.7639e-03_rb,2.4086e-03_rb,2.0630e-03_rb,1.5011e-03_rb,2.3130e-04_rb/)\n      kbo(:, 5,44, 4) = (/ &\n     &2.3892e-03_rb,3.1325e-03_rb,2.6172e-03_rb,1.8457e-03_rb,2.3904e-04_rb/)\n      kbo(:, 1,45, 4) = (/ &\n     &4.5956e-04_rb,7.9161e-04_rb,7.4840e-04_rb,6.0859e-04_rb,1.6203e-04_rb/)\n      kbo(:, 2,45, 4) = (/ &\n     &7.2822e-04_rb,1.1187e-03_rb,1.0117e-03_rb,7.8592e-04_rb,1.7142e-04_rb/)\n      kbo(:, 3,45, 4) = (/ &\n     &1.0767e-03_rb,1.5389e-03_rb,1.3458e-03_rb,1.0038e-03_rb,1.7986e-04_rb/)\n      kbo(:, 4,45, 4) = (/ &\n     &1.5195e-03_rb,2.0634e-03_rb,1.7544e-03_rb,1.2651e-03_rb,1.8773e-04_rb/)\n      kbo(:, 5,45, 4) = (/ &\n     &2.0790e-03_rb,2.7102e-03_rb,2.2473e-03_rb,1.5700e-03_rb,1.9451e-04_rb/)\n      kbo(:, 1,46, 4) = (/ &\n     &3.7292e-04_rb,6.4911e-04_rb,6.1209e-04_rb,4.9545e-04_rb,1.3008e-04_rb/)\n      kbo(:, 2,46, 4) = (/ &\n     &6.0673e-04_rb,9.3287e-04_rb,8.3976e-04_rb,6.4802e-04_rb,1.3811e-04_rb/)\n      kbo(:, 3,46, 4) = (/ &\n     &9.1635e-04_rb,1.3033e-03_rb,1.1323e-03_rb,8.3718e-04_rb,1.4541e-04_rb/)\n      kbo(:, 4,46, 4) = (/ &\n     &1.3083e-03_rb,1.7659e-03_rb,1.4916e-03_rb,1.0659e-03_rb,1.5214e-04_rb/)\n      kbo(:, 5,46, 4) = (/ &\n     &1.8099e-03_rb,2.3458e-03_rb,1.9309e-03_rb,1.3365e-03_rb,1.5810e-04_rb/)\n      kbo(:, 1,47, 4) = (/ &\n     &2.8950e-04_rb,5.1677e-04_rb,4.8802e-04_rb,3.9502e-04_rb,1.0398e-04_rb/)\n      kbo(:, 2,47, 4) = (/ &\n     &4.8670e-04_rb,7.5660e-04_rb,6.8049e-04_rb,5.2378e-04_rb,1.1085e-04_rb/)\n      kbo(:, 3,47, 4) = (/ &\n     &7.5525e-04_rb,1.0762e-03_rb,9.3123e-04_rb,6.8496e-04_rb,1.1715e-04_rb/)\n      kbo(:, 4,47, 4) = (/ &\n     &1.0969e-03_rb,1.4777e-03_rb,1.2426e-03_rb,8.8223e-04_rb,1.2295e-04_rb/)\n      kbo(:, 5,47, 4) = (/ &\n     &1.5354e-03_rb,1.9852e-03_rb,1.6256e-03_rb,1.1178e-03_rb,1.2805e-04_rb/)\n      kbo(:, 1,48, 4) = (/ &\n     &2.2732e-04_rb,4.1628e-04_rb,3.9316e-04_rb,3.1737e-04_rb,8.2969e-05_rb/)\n      kbo(:, 2,48, 4) = (/ &\n     &3.9696e-04_rb,6.2251e-04_rb,5.5852e-04_rb,4.2777e-04_rb,8.8908e-05_rb/)\n      kbo(:, 3,48, 4) = (/ &\n     &6.3462e-04_rb,9.0305e-04_rb,7.7729e-04_rb,5.6732e-04_rb,9.4308e-05_rb/)\n      kbo(:, 4,48, 4) = (/ &\n     &9.4204e-04_rb,1.2622e-03_rb,1.0539e-03_rb,7.4093e-04_rb,9.9236e-05_rb/)\n      kbo(:, 5,48, 4) = (/ &\n     &1.3331e-03_rb,1.7143e-03_rb,1.3938e-03_rb,9.4935e-04_rb,1.0368e-04_rb/)\n      kbo(:, 1,49, 4) = (/ &\n     &1.8300e-04_rb,3.4217e-04_rb,3.2264e-04_rb,2.5877e-04_rb,6.6118e-05_rb/)\n      kbo(:, 2,49, 4) = (/ &\n     &3.3312e-04_rb,5.2483e-04_rb,4.6829e-04_rb,3.5552e-04_rb,7.1194e-05_rb/)\n      kbo(:, 3,49, 4) = (/ &\n     &5.4973e-04_rb,7.7839e-04_rb,6.6473e-04_rb,4.7940e-04_rb,7.5813e-05_rb/)\n      kbo(:, 4,49, 4) = (/ &\n     &8.3663e-04_rb,1.1105e-03_rb,9.1800e-04_rb,6.3658e-04_rb,8.0100e-05_rb/)\n      kbo(:, 5,49, 4) = (/ &\n     &1.2004e-03_rb,1.5281e-03_rb,1.2307e-03_rb,8.2653e-04_rb,8.3935e-05_rb/)\n      kbo(:, 1,50, 4) = (/ &\n     &1.4039e-04_rb,2.7151e-04_rb,2.5713e-04_rb,2.0628e-04_rb,5.2648e-05_rb/)\n      kbo(:, 2,50, 4) = (/ &\n     &2.6610e-04_rb,4.2689e-04_rb,3.8091e-04_rb,2.8831e-04_rb,5.6961e-05_rb/)\n      kbo(:, 3,50, 4) = (/ &\n     &4.5427e-04_rb,6.4624e-04_rb,5.5025e-04_rb,3.9479e-04_rb,6.0907e-05_rb/)\n      kbo(:, 4,50, 4) = (/ &\n     &7.0950e-04_rb,9.4070e-04_rb,7.7361e-04_rb,5.3217e-04_rb,6.4571e-05_rb/)\n      kbo(:, 5,50, 4) = (/ &\n     &1.0374e-03_rb,1.3149e-03_rb,1.0530e-03_rb,7.0038e-04_rb,6.7890e-05_rb/)\n      kbo(:, 1,51, 4) = (/ &\n     &1.0489e-04_rb,2.1109e-04_rb,2.0141e-04_rb,1.6218e-04_rb,4.1878e-05_rb/)\n      kbo(:, 2,51, 4) = (/ &\n     &2.0633e-04_rb,3.4016e-04_rb,3.0444e-04_rb,2.3054e-04_rb,4.5538e-05_rb/)\n      kbo(:, 3,51, 4) = (/ &\n     &3.6536e-04_rb,5.2580e-04_rb,4.4746e-04_rb,3.2051e-04_rb,4.8874e-05_rb/)\n      kbo(:, 4,51, 4) = (/ &\n     &5.8696e-04_rb,7.8085e-04_rb,6.4023e-04_rb,4.3829e-04_rb,5.1997e-05_rb/)\n      kbo(:, 5,51, 4) = (/ &\n     &8.7556e-04_rb,1.1091e-03_rb,8.8460e-04_rb,5.8473e-04_rb,5.4858e-05_rb/)\n      kbo(:, 1,52, 4) = (/ &\n     &7.9793e-05_rb,1.6601e-04_rb,1.5918e-04_rb,1.2853e-04_rb,3.3276e-05_rb/)\n      kbo(:, 2,52, 4) = (/ &\n     &1.6247e-04_rb,2.7468e-04_rb,2.4631e-04_rb,1.8617e-04_rb,3.6357e-05_rb/)\n      kbo(:, 3,52, 4) = (/ &\n     &2.9905e-04_rb,4.3474e-04_rb,3.6924e-04_rb,2.6353e-04_rb,3.9196e-05_rb/)\n      kbo(:, 4,52, 4) = (/ &\n     &4.9530e-04_rb,6.5976e-04_rb,5.3847e-04_rb,3.6618e-04_rb,4.1839e-05_rb/)\n      kbo(:, 5,52, 4) = (/ &\n     &7.5546e-04_rb,9.5475e-04_rb,7.5721e-04_rb,4.9627e-04_rb,4.4317e-05_rb/)\n      kbo(:, 1,53, 4) = (/ &\n     &6.2729e-05_rb,1.3307e-04_rb,1.2792e-04_rb,1.0321e-04_rb,2.6401e-05_rb/)\n      kbo(:, 2,53, 4) = (/ &\n     &1.3138e-04_rb,2.2658e-04_rb,2.0324e-04_rb,1.5289e-04_rb,2.9006e-05_rb/)\n      kbo(:, 3,53, 4) = (/ &\n     &2.5160e-04_rb,3.6877e-04_rb,3.1205e-04_rb,2.2094e-04_rb,3.1410e-05_rb/)\n      kbo(:, 4,53, 4) = (/ &\n     &4.3128e-04_rb,5.7326e-04_rb,4.6479e-04_rb,3.1290e-04_rb,3.3663e-05_rb/)\n      kbo(:, 5,53, 4) = (/ &\n     &6.7436e-04_rb,8.4743e-04_rb,6.6688e-04_rb,4.3200e-04_rb,3.5790e-05_rb/)\n      kbo(:, 1,54, 4) = (/ &\n     &4.3536e-05_rb,9.6993e-05_rb,9.4650e-05_rb,7.7465e-05_rb,2.0921e-05_rb/)\n      kbo(:, 2,54, 4) = (/ &\n     &9.2752e-05_rb,1.6814e-04_rb,1.5268e-04_rb,1.1626e-04_rb,2.3103e-05_rb/)\n      kbo(:, 3,54, 4) = (/ &\n     &1.8378e-04_rb,2.7919e-04_rb,2.3835e-04_rb,1.7016e-04_rb,2.5121e-05_rb/)\n      kbo(:, 4,54, 4) = (/ &\n     &3.2645e-04_rb,4.4256e-04_rb,3.6033e-04_rb,2.4382e-04_rb,2.7012e-05_rb/)\n      kbo(:, 5,54, 4) = (/ &\n     &5.2349e-04_rb,6.6571e-04_rb,5.2497e-04_rb,3.4104e-04_rb,2.8788e-05_rb/)\n      kbo(:, 1,55, 4) = (/ &\n     &2.7968e-05_rb,6.6619e-05_rb,6.6506e-05_rb,5.5712e-05_rb,1.6550e-05_rb/)\n      kbo(:, 2,55, 4) = (/ &\n     &5.9858e-05_rb,1.1651e-04_rb,1.0803e-04_rb,8.4126e-05_rb,1.8363e-05_rb/)\n      kbo(:, 3,55, 4) = (/ &\n     &1.2216e-04_rb,1.9620e-04_rb,1.7047e-04_rb,1.2407e-04_rb,2.0057e-05_rb/)\n      kbo(:, 4,55, 4) = (/ &\n     &2.2490e-04_rb,3.1581e-04_rb,2.6032e-04_rb,1.7892e-04_rb,2.1634e-05_rb/)\n      kbo(:, 5,55, 4) = (/ &\n     &3.7032e-04_rb,4.8266e-04_rb,3.8398e-04_rb,2.5251e-04_rb,2.3108e-05_rb/)\n      kbo(:, 1,56, 4) = (/ &\n     &1.8187e-05_rb,4.5780e-05_rb,4.6700e-05_rb,4.0035e-05_rb,1.3073e-05_rb/)\n      kbo(:, 2,56, 4) = (/ &\n     &3.8391e-05_rb,8.0472e-05_rb,7.6243e-05_rb,6.0757e-05_rb,1.4582e-05_rb/)\n      kbo(:, 3,56, 4) = (/ &\n     &8.0424e-05_rb,1.3728e-04_rb,1.2154e-04_rb,9.0284e-05_rb,1.6006e-05_rb/)\n      kbo(:, 4,56, 4) = (/ &\n     &1.5350e-04_rb,2.2433e-04_rb,1.8750e-04_rb,1.3109e-04_rb,1.7305e-05_rb/)\n      kbo(:, 5,56, 4) = (/ &\n     &2.6031e-04_rb,3.4853e-04_rb,2.7994e-04_rb,1.8653e-04_rb,1.8526e-05_rb/)\n      kbo(:, 1,57, 4) = (/ &\n     &1.2069e-05_rb,3.1511e-05_rb,3.2815e-05_rb,2.8783e-05_rb,1.0310e-05_rb/)\n      kbo(:, 2,57, 4) = (/ &\n     &2.4551e-05_rb,5.5416e-05_rb,5.3688e-05_rb,4.3795e-05_rb,1.1563e-05_rb/)\n      kbo(:, 3,57, 4) = (/ &\n     &5.2372e-05_rb,9.5634e-05_rb,8.6379e-05_rb,6.5547e-05_rb,1.2748e-05_rb/)\n      kbo(:, 4,57, 4) = (/ &\n     &1.0355e-04_rb,1.5851e-04_rb,1.3458e-04_rb,9.5855e-05_rb,1.3838e-05_rb/)\n      kbo(:, 5,57, 4) = (/ &\n     &1.8156e-04_rb,2.5040e-04_rb,2.0330e-04_rb,1.3740e-04_rb,1.4854e-05_rb/)\n      kbo(:, 1,58, 4) = (/ &\n     &2.1923e-06_rb,7.1667e-06_rb,9.7990e-06_rb,1.2334e-05_rb,8.1331e-06_rb/)\n      kbo(:, 2,58, 4) = (/ &\n     &4.2014e-06_rb,1.2514e-05_rb,1.5980e-05_rb,1.8735e-05_rb,9.1661e-06_rb/)\n      kbo(:, 3,58, 4) = (/ &\n     &9.0349e-06_rb,2.1751e-05_rb,2.5847e-05_rb,2.8162e-05_rb,1.0154e-05_rb/)\n      kbo(:, 4,58, 4) = (/ &\n     &1.8408e-05_rb,3.6461e-05_rb,4.0575e-05_rb,4.1376e-05_rb,1.1069e-05_rb/)\n      kbo(:, 5,58, 4) = (/ &\n     &3.3398e-05_rb,5.8421e-05_rb,6.1871e-05_rb,5.9629e-05_rb,1.1910e-05_rb/)\n      kbo(:, 1,59, 4) = (/ &\n     &1.9895e-06_rb,7.0146e-06_rb,9.2666e-06_rb,1.0819e-05_rb,6.5530e-06_rb/)\n      kbo(:, 2,59, 4) = (/ &\n     &3.7103e-06_rb,1.1985e-05_rb,1.4798e-05_rb,1.6119e-05_rb,7.3922e-06_rb/)\n      kbo(:, 3,59, 4) = (/ &\n     &7.9795e-06_rb,2.0481e-05_rb,2.3504e-05_rb,2.3808e-05_rb,8.1931e-06_rb/)\n      kbo(:, 4,59, 4) = (/ &\n     &1.6446e-05_rb,3.3891e-05_rb,3.6329e-05_rb,3.4426e-05_rb,8.9453e-06_rb/)\n      kbo(:, 5,59, 4) = (/ &\n     &3.0202e-05_rb,5.3874e-05_rb,5.4799e-05_rb,4.8960e-05_rb,9.6374e-06_rb/)\n      kbo(:, 1,13, 5) = (/ &\n     &4.3236e-01_rb,4.3213e-01_rb,3.9701e-01_rb,3.2546e-01_rb,1.1197e-01_rb/)\n      kbo(:, 2,13, 5) = (/ &\n     &6.6372e-01_rb,6.1379e-01_rb,5.3578e-01_rb,4.1378e-01_rb,1.1749e-01_rb/)\n      kbo(:, 3,13, 5) = (/ &\n     &9.6012e-01_rb,8.4543e-01_rb,7.0690e-01_rb,5.2039e-01_rb,1.2229e-01_rb/)\n      kbo(:, 4,13, 5) = (/ &\n     &1.3340e+00_rb,1.1343e+00_rb,9.1491e-01_rb,6.4651e-01_rb,1.2717e-01_rb/)\n      kbo(:, 5,13, 5) = (/ &\n     &1.8059e+00_rb,1.4945e+00_rb,1.1687e+00_rb,7.9501e-01_rb,1.3200e-01_rb/)\n      kbo(:, 1,14, 5) = (/ &\n     &2.3576e-01_rb,2.7360e-01_rb,2.7141e-01_rb,2.4039e-01_rb,9.8792e-02_rb/)\n      kbo(:, 2,14, 5) = (/ &\n     &3.5903e-01_rb,3.7743e-01_rb,3.5638e-01_rb,2.9754e-01_rb,1.0359e-01_rb/)\n      kbo(:, 3,14, 5) = (/ &\n     &5.1761e-01_rb,5.0746e-01_rb,4.5981e-01_rb,3.6575e-01_rb,1.0816e-01_rb/)\n      kbo(:, 4,14, 5) = (/ &\n     &7.1963e-01_rb,6.6997e-01_rb,5.8434e-01_rb,4.4555e-01_rb,1.1272e-01_rb/)\n      kbo(:, 5,14, 5) = (/ &\n     &9.7673e-01_rb,8.7084e-01_rb,7.3356e-01_rb,5.3881e-01_rb,1.1732e-01_rb/)\n      kbo(:, 1,15, 5) = (/ &\n     &1.3110e-01_rb,1.8103e-01_rb,1.9281e-01_rb,1.8264e-01_rb,8.6582e-02_rb/)\n      kbo(:, 2,15, 5) = (/ &\n     &1.9817e-01_rb,2.4413e-01_rb,2.4684e-01_rb,2.2172e-01_rb,9.0925e-02_rb/)\n      kbo(:, 3,15, 5) = (/ &\n     &2.8519e-01_rb,3.2198e-01_rb,3.1178e-01_rb,2.6742e-01_rb,9.5231e-02_rb/)\n      kbo(:, 4,15, 5) = (/ &\n     &3.9693e-01_rb,4.1797e-01_rb,3.8987e-01_rb,3.1982e-01_rb,9.9470e-02_rb/)\n      kbo(:, 5,15, 5) = (/ &\n     &5.3979e-01_rb,5.3546e-01_rb,4.8283e-01_rb,3.8058e-01_rb,1.0367e-01_rb/)\n      kbo(:, 1,16, 5) = (/ &\n     &8.6780e-02_rb,1.3641e-01_rb,1.5186e-01_rb,1.4818e-01_rb,7.5514e-02_rb/)\n      kbo(:, 2,16, 5) = (/ &\n     &1.3047e-01_rb,1.8113e-01_rb,1.9135e-01_rb,1.7835e-01_rb,7.9533e-02_rb/)\n      kbo(:, 3,16, 5) = (/ &\n     &1.8753e-01_rb,2.3639e-01_rb,2.3875e-01_rb,2.1304e-01_rb,8.3481e-02_rb/)\n      kbo(:, 4,16, 5) = (/ &\n     &2.6140e-01_rb,3.0428e-01_rb,2.9551e-01_rb,2.5256e-01_rb,8.7293e-02_rb/)\n      kbo(:, 5,16, 5) = (/ &\n     &3.5574e-01_rb,3.8652e-01_rb,3.6267e-01_rb,2.9793e-01_rb,9.1094e-02_rb/)\n      kbo(:, 1,17, 5) = (/ &\n     &5.9400e-02_rb,1.0544e-01_rb,1.2175e-01_rb,1.2140e-01_rb,6.5571e-02_rb/)\n      kbo(:, 2,17, 5) = (/ &\n     &8.8982e-02_rb,1.3824e-01_rb,1.5175e-01_rb,1.4491e-01_rb,6.9197e-02_rb/)\n      kbo(:, 3,17, 5) = (/ &\n     &1.2788e-01_rb,1.7890e-01_rb,1.8755e-01_rb,1.7185e-01_rb,7.2708e-02_rb/)\n      kbo(:, 4,17, 5) = (/ &\n     &1.7835e-01_rb,2.2856e-01_rb,2.3024e-01_rb,2.0241e-01_rb,7.6161e-02_rb/)\n      kbo(:, 5,17, 5) = (/ &\n     &2.4297e-01_rb,2.8834e-01_rb,2.8043e-01_rb,2.3722e-01_rb,7.9603e-02_rb/)\n      kbo(:, 1,18, 5) = (/ &\n     &4.1651e-02_rb,8.2911e-02_rb,9.8455e-02_rb,9.9593e-02_rb,5.6662e-02_rb/)\n      kbo(:, 2,18, 5) = (/ &\n     &6.2251e-02_rb,1.0765e-01_rb,1.2173e-01_rb,1.1843e-01_rb,5.9831e-02_rb/)\n      kbo(:, 3,18, 5) = (/ &\n     &8.9419e-02_rb,1.3828e-01_rb,1.4944e-01_rb,1.3970e-01_rb,6.2923e-02_rb/)\n      kbo(:, 4,18, 5) = (/ &\n     &1.2470e-01_rb,1.7541e-01_rb,1.8216e-01_rb,1.6372e-01_rb,6.6077e-02_rb/)\n      kbo(:, 5,18, 5) = (/ &\n     &1.6992e-01_rb,2.1986e-01_rb,2.2047e-01_rb,1.9095e-01_rb,6.9212e-02_rb/)\n      kbo(:, 1,19, 5) = (/ &\n     &2.8717e-02_rb,6.4742e-02_rb,7.8819e-02_rb,8.0895e-02_rb,4.8664e-02_rb/)\n      kbo(:, 2,19, 5) = (/ &\n     &4.2849e-02_rb,8.3244e-02_rb,9.6815e-02_rb,9.5751e-02_rb,5.1433e-02_rb/)\n      kbo(:, 3,19, 5) = (/ &\n     &6.1454e-02_rb,1.0605e-01_rb,1.1801e-01_rb,1.1248e-01_rb,5.4215e-02_rb/)\n      kbo(:, 4,19, 5) = (/ &\n     &8.5699e-02_rb,1.3356e-01_rb,1.4292e-01_rb,1.3115e-01_rb,5.7031e-02_rb/)\n      kbo(:, 5,19, 5) = (/ &\n     &1.1681e-01_rb,1.6622e-01_rb,1.7182e-01_rb,1.5204e-01_rb,5.9790e-02_rb/)\n      kbo(:, 1,20, 5) = (/ &\n     &2.1632e-02_rb,5.2943e-02_rb,6.5235e-02_rb,6.7363e-02_rb,4.1610e-02_rb/)\n      kbo(:, 2,20, 5) = (/ &\n     &3.2163e-02_rb,6.7696e-02_rb,7.9852e-02_rb,7.9447e-02_rb,4.4062e-02_rb/)\n      kbo(:, 3,20, 5) = (/ &\n     &4.6057e-02_rb,8.5815e-02_rb,9.6980e-02_rb,9.3049e-02_rb,4.6553e-02_rb/)\n      kbo(:, 4,20, 5) = (/ &\n     &6.4136e-02_rb,1.0754e-01_rb,1.1694e-01_rb,1.0820e-01_rb,4.9013e-02_rb/)\n      kbo(:, 5,20, 5) = (/ &\n     &8.7379e-02_rb,1.3322e-01_rb,1.3995e-01_rb,1.2502e-01_rb,5.1455e-02_rb/)\n      kbo(:, 1,21, 5) = (/ &\n     &1.6823e-02_rb,4.3877e-02_rb,5.4527e-02_rb,5.6402e-02_rb,3.5455e-02_rb/)\n      kbo(:, 2,21, 5) = (/ &\n     &2.4936e-02_rb,5.5953e-02_rb,6.6511e-02_rb,6.6307e-02_rb,3.7602e-02_rb/)\n      kbo(:, 3,21, 5) = (/ &\n     &3.5634e-02_rb,7.0642e-02_rb,8.0513e-02_rb,7.7454e-02_rb,3.9786e-02_rb/)\n      kbo(:, 4,21, 5) = (/ &\n     &4.9531e-02_rb,8.8177e-02_rb,9.6745e-02_rb,8.9935e-02_rb,4.1920e-02_rb/)\n      kbo(:, 5,21, 5) = (/ &\n     &6.7455e-02_rb,1.0884e-01_rb,1.1539e-01_rb,1.0375e-01_rb,4.4030e-02_rb/)\n      kbo(:, 1,22, 5) = (/ &\n     &1.3789e-02_rb,3.7331e-02_rb,4.6413e-02_rb,4.7878e-02_rb,3.0220e-02_rb/)\n      kbo(:, 2,22, 5) = (/ &\n     &2.0294e-02_rb,4.7459e-02_rb,5.6444e-02_rb,5.6212e-02_rb,3.2091e-02_rb/)\n      kbo(:, 3,22, 5) = (/ &\n     &2.8887e-02_rb,5.9685e-02_rb,6.8142e-02_rb,6.5522e-02_rb,3.3949e-02_rb/)\n      kbo(:, 4,22, 5) = (/ &\n     &4.0024e-02_rb,7.4193e-02_rb,8.1621e-02_rb,7.5940e-02_rb,3.5793e-02_rb/)\n      kbo(:, 5,22, 5) = (/ &\n     &5.4487e-02_rb,9.1298e-02_rb,9.7079e-02_rb,8.7446e-02_rb,3.7515e-02_rb/)\n      kbo(:, 1,23, 5) = (/ &\n     &1.1373e-02_rb,3.1797e-02_rb,3.9445e-02_rb,4.0631e-02_rb,2.5676e-02_rb/)\n      kbo(:, 2,23, 5) = (/ &\n     &1.6630e-02_rb,4.0276e-02_rb,4.7874e-02_rb,4.7621e-02_rb,2.7276e-02_rb/)\n      kbo(:, 3,23, 5) = (/ &\n     &2.3572e-02_rb,5.0445e-02_rb,5.7632e-02_rb,5.5405e-02_rb,2.8857e-02_rb/)\n      kbo(:, 4,23, 5) = (/ &\n     &3.2590e-02_rb,6.2506e-02_rb,6.8883e-02_rb,6.4105e-02_rb,3.0360e-02_rb/)\n      kbo(:, 5,23, 5) = (/ &\n     &4.4383e-02_rb,7.6716e-02_rb,8.1703e-02_rb,7.3646e-02_rb,3.1632e-02_rb/)\n      kbo(:, 1,24, 5) = (/ &\n     &9.3521e-03_rb,2.6988e-02_rb,3.3405e-02_rb,3.4382e-02_rb,2.1758e-02_rb/)\n      kbo(:, 2,24, 5) = (/ &\n     &1.3592e-02_rb,3.4040e-02_rb,4.0452e-02_rb,4.0217e-02_rb,2.3106e-02_rb/)\n      kbo(:, 3,24, 5) = (/ &\n     &1.9190e-02_rb,4.2486e-02_rb,4.8570e-02_rb,4.6701e-02_rb,2.4399e-02_rb/)\n      kbo(:, 4,24, 5) = (/ &\n     &2.6527e-02_rb,5.2454e-02_rb,5.7886e-02_rb,5.3878e-02_rb,2.5528e-02_rb/)\n      kbo(:, 5,24, 5) = (/ &\n     &3.6127e-02_rb,6.4240e-02_rb,6.8480e-02_rb,6.1740e-02_rb,2.6418e-02_rb/)\n      kbo(:, 1,25, 5) = (/ &\n     &7.8143e-03_rb,2.3046e-02_rb,2.8423e-02_rb,2.9180e-02_rb,1.8391e-02_rb/)\n      kbo(:, 2,25, 5) = (/ &\n     &1.1292e-02_rb,2.8965e-02_rb,3.4350e-02_rb,3.4059e-02_rb,1.9498e-02_rb/)\n      kbo(:, 3,25, 5) = (/ &\n     &1.5906e-02_rb,3.6033e-02_rb,4.1158e-02_rb,3.9460e-02_rb,2.0484e-02_rb/)\n      kbo(:, 4,25, 5) = (/ &\n     &2.2015e-02_rb,4.4387e-02_rb,4.8915e-02_rb,4.5425e-02_rb,2.1291e-02_rb/)\n      kbo(:, 5,25, 5) = (/ &\n     &2.9929e-02_rb,5.4292e-02_rb,5.7748e-02_rb,5.1892e-02_rb,2.1939e-02_rb/)\n      kbo(:, 1,26, 5) = (/ &\n     &6.6841e-03_rb,1.9882e-02_rb,2.4386e-02_rb,2.4902e-02_rb,1.5507e-02_rb/)\n      kbo(:, 2,26, 5) = (/ &\n     &9.6187e-03_rb,2.4917e-02_rb,2.9404e-02_rb,2.8998e-02_rb,1.6368e-02_rb/)\n      kbo(:, 3,26, 5) = (/ &\n     &1.3541e-02_rb,3.0916e-02_rb,3.5147e-02_rb,3.3522e-02_rb,1.7088e-02_rb/)\n      kbo(:, 4,26, 5) = (/ &\n     &1.8734e-02_rb,3.8045e-02_rb,4.1676e-02_rb,3.8461e-02_rb,1.7679e-02_rb/)\n      kbo(:, 5,26, 5) = (/ &\n     &2.5382e-02_rb,4.6534e-02_rb,4.9183e-02_rb,4.3795e-02_rb,1.8164e-02_rb/)\n      kbo(:, 1,27, 5) = (/ &\n     &5.9464e-03_rb,1.7461e-02_rb,2.1207e-02_rb,2.1457e-02_rb,1.3019e-02_rb/)\n      kbo(:, 2,27, 5) = (/ &\n     &8.5411e-03_rb,2.1855e-02_rb,2.5534e-02_rb,2.4945e-02_rb,1.3658e-02_rb/)\n      kbo(:, 3,27, 5) = (/ &\n     &1.2012e-02_rb,2.7098e-02_rb,3.0472e-02_rb,2.8773e-02_rb,1.4192e-02_rb/)\n      kbo(:, 4,27, 5) = (/ &\n     &1.6580e-02_rb,3.3382e-02_rb,3.6146e-02_rb,3.2904e-02_rb,1.4638e-02_rb/)\n      kbo(:, 5,27, 5) = (/ &\n     &2.2392e-02_rb,4.0890e-02_rb,4.2671e-02_rb,3.7399e-02_rb,1.5005e-02_rb/)\n      kbo(:, 1,28, 5) = (/ &\n     &5.4489e-03_rb,1.5531e-02_rb,1.8614e-02_rb,1.8613e-02_rb,1.0873e-02_rb/)\n      kbo(:, 2,28, 5) = (/ &\n     &7.8148e-03_rb,1.9440e-02_rb,2.2401e-02_rb,2.1604e-02_rb,1.1349e-02_rb/)\n      kbo(:, 3,28, 5) = (/ &\n     &1.0969e-02_rb,2.4138e-02_rb,2.6729e-02_rb,2.4848e-02_rb,1.1757e-02_rb/)\n      kbo(:, 4,28, 5) = (/ &\n     &1.5087e-02_rb,2.9815e-02_rb,3.1728e-02_rb,2.8368e-02_rb,1.2101e-02_rb/)\n      kbo(:, 5,28, 5) = (/ &\n     &2.0299e-02_rb,3.6555e-02_rb,3.7502e-02_rb,3.2280e-02_rb,1.2378e-02_rb/)\n      kbo(:, 1,29, 5) = (/ &\n     &5.3270e-03_rb,1.4285e-02_rb,1.6775e-02_rb,1.6453e-02_rb,9.0474e-03_rb/)\n      kbo(:, 2,29, 5) = (/ &\n     &7.6276e-03_rb,1.7927e-02_rb,2.0207e-02_rb,1.9083e-02_rb,9.4132e-03_rb/)\n      kbo(:, 3,29, 5) = (/ &\n     &1.0673e-02_rb,2.2373e-02_rb,2.4172e-02_rb,2.1940e-02_rb,9.7284e-03_rb/)\n      kbo(:, 4,29, 5) = (/ &\n     &1.4614e-02_rb,2.7730e-02_rb,2.8795e-02_rb,2.5116e-02_rb,9.9926e-03_rb/)\n      kbo(:, 5,29, 5) = (/ &\n     &1.9579e-02_rb,3.4081e-02_rb,3.4110e-02_rb,2.8684e-02_rb,1.0207e-02_rb/)\n      kbo(:, 1,30, 5) = (/ &\n     &5.3535e-03_rb,1.3353e-02_rb,1.5300e-02_rb,1.4666e-02_rb,7.5129e-03_rb/)\n      kbo(:, 2,30, 5) = (/ &\n     &7.6380e-03_rb,1.6853e-02_rb,1.8473e-02_rb,1.7010e-02_rb,7.7968e-03_rb/)\n      kbo(:, 3,30, 5) = (/ &\n     &1.0647e-02_rb,2.1132e-02_rb,2.2202e-02_rb,1.9612e-02_rb,8.0434e-03_rb/)\n      kbo(:, 4,30, 5) = (/ &\n     &1.4510e-02_rb,2.6289e-02_rb,2.6550e-02_rb,2.2553e-02_rb,8.2450e-03_rb/)\n      kbo(:, 5,30, 5) = (/ &\n     &1.9367e-02_rb,3.2371e-02_rb,3.1546e-02_rb,2.5868e-02_rb,8.4082e-03_rb/)\n      kbo(:, 1,31, 5) = (/ &\n     &5.6746e-03_rb,1.2936e-02_rb,1.4343e-02_rb,1.3343e-02_rb,6.2303e-03_rb/)\n      kbo(:, 2,31, 5) = (/ &\n     &8.0577e-03_rb,1.6447e-02_rb,1.7425e-02_rb,1.5532e-02_rb,6.4556e-03_rb/)\n      kbo(:, 3,31, 5) = (/ &\n     &1.1174e-02_rb,2.0739e-02_rb,2.1078e-02_rb,1.8020e-02_rb,6.6441e-03_rb/)\n      kbo(:, 4,31, 5) = (/ &\n     &1.5165e-02_rb,2.5916e-02_rb,2.5346e-02_rb,2.0861e-02_rb,6.8034e-03_rb/)\n      kbo(:, 5,31, 5) = (/ &\n     &2.0188e-02_rb,3.1999e-02_rb,3.0259e-02_rb,2.4055e-02_rb,6.9268e-03_rb/)\n      kbo(:, 1,32, 5) = (/ &\n     &6.0895e-03_rb,1.2732e-02_rb,1.3622e-02_rb,1.2258e-02_rb,5.1656e-03_rb/)\n      kbo(:, 2,32, 5) = (/ &\n     &8.5996e-03_rb,1.6298e-02_rb,1.6681e-02_rb,1.4366e-02_rb,5.3392e-03_rb/)\n      kbo(:, 3,32, 5) = (/ &\n     &1.1871e-02_rb,2.0666e-02_rb,2.0302e-02_rb,1.6787e-02_rb,5.4899e-03_rb/)\n      kbo(:, 4,32, 5) = (/ &\n     &1.6059e-02_rb,2.5901e-02_rb,2.4547e-02_rb,1.9547e-02_rb,5.6119e-03_rb/)\n      kbo(:, 5,32, 5) = (/ &\n     &2.1313e-02_rb,3.2082e-02_rb,2.9454e-02_rb,2.2664e-02_rb,5.7070e-03_rb/)\n      kbo(:, 1,33, 5) = (/ &\n     &6.6515e-03_rb,1.2796e-02_rb,1.3188e-02_rb,1.1442e-02_rb,4.2781e-03_rb/)\n      kbo(:, 2,33, 5) = (/ &\n     &9.3384e-03_rb,1.6485e-02_rb,1.6266e-02_rb,1.3517e-02_rb,4.4167e-03_rb/)\n      kbo(:, 3,33, 5) = (/ &\n     &1.2846e-02_rb,2.0999e-02_rb,1.9943e-02_rb,1.5910e-02_rb,4.5341e-03_rb/)\n      kbo(:, 4,33, 5) = (/ &\n     &1.7327e-02_rb,2.6399e-02_rb,2.4247e-02_rb,1.8651e-02_rb,4.6303e-03_rb/)\n      kbo(:, 5,33, 5) = (/ &\n     &2.2895e-02_rb,3.2829e-02_rb,2.9267e-02_rb,2.1750e-02_rb,4.7019e-03_rb/)\n      kbo(:, 1,34, 5) = (/ &\n     &6.9862e-03_rb,1.2631e-02_rb,1.2600e-02_rb,1.0591e-02_rb,3.5376e-03_rb/)\n      kbo(:, 2,34, 5) = (/ &\n     &9.7726e-03_rb,1.6353e-02_rb,1.5653e-02_rb,1.2600e-02_rb,3.6473e-03_rb/)\n      kbo(:, 3,34, 5) = (/ &\n     &1.3409e-02_rb,2.0887e-02_rb,1.9295e-02_rb,1.4929e-02_rb,3.7406e-03_rb/)\n      kbo(:, 4,34, 5) = (/ &\n     &1.8037e-02_rb,2.6346e-02_rb,2.3581e-02_rb,1.7591e-02_rb,3.8148e-03_rb/)\n      kbo(:, 5,34, 5) = (/ &\n     &2.3704e-02_rb,3.2885e-02_rb,2.8616e-02_rb,2.0638e-02_rb,3.8707e-03_rb/)\n      kbo(:, 1,35, 5) = (/ &\n     &7.0977e-03_rb,1.2235e-02_rb,1.1878e-02_rb,9.7122e-03_rb,2.9156e-03_rb/)\n      kbo(:, 2,35, 5) = (/ &\n     &9.9249e-03_rb,1.5915e-02_rb,1.4862e-02_rb,1.1642e-02_rb,3.0042e-03_rb/)\n      kbo(:, 3,35, 5) = (/ &\n     &1.3615e-02_rb,2.0413e-02_rb,1.8425e-02_rb,1.3882e-02_rb,3.0791e-03_rb/)\n      kbo(:, 4,35, 5) = (/ &\n     &1.8271e-02_rb,2.5881e-02_rb,2.2655e-02_rb,1.6461e-02_rb,3.1387e-03_rb/)\n      kbo(:, 5,35, 5) = (/ &\n     &2.3900e-02_rb,3.2414e-02_rb,2.7651e-02_rb,1.9450e-02_rb,3.1837e-03_rb/)\n      kbo(:, 1,36, 5) = (/ &\n     &6.9060e-03_rb,1.1498e-02_rb,1.0932e-02_rb,8.7493e-03_rb,2.3952e-03_rb/)\n      kbo(:, 2,36, 5) = (/ &\n     &9.6735e-03_rb,1.5042e-02_rb,1.3779e-02_rb,1.0573e-02_rb,2.4672e-03_rb/)\n      kbo(:, 3,36, 5) = (/ &\n     &1.3291e-02_rb,1.9415e-02_rb,1.7205e-02_rb,1.2691e-02_rb,2.5290e-03_rb/)\n      kbo(:, 4,36, 5) = (/ &\n     &1.7820e-02_rb,2.4753e-02_rb,2.1299e-02_rb,1.5151e-02_rb,2.5791e-03_rb/)\n      kbo(:, 5,36, 5) = (/ &\n     &2.3253e-02_rb,3.1113e-02_rb,2.6141e-02_rb,1.8030e-02_rb,2.6175e-03_rb/)\n      kbo(:, 1,37, 5) = (/ &\n     &6.2139e-03_rb,1.0192e-02_rb,9.5802e-03_rb,7.5798e-03_rb,1.9567e-03_rb/)\n      kbo(:, 2,37, 5) = (/ &\n     &8.7456e-03_rb,1.3428e-02_rb,1.2164e-02_rb,9.2244e-03_rb,2.0181e-03_rb/)\n      kbo(:, 3,37, 5) = (/ &\n     &1.2068e-02_rb,1.7456e-02_rb,1.5302e-02_rb,1.1147e-02_rb,2.0706e-03_rb/)\n      kbo(:, 4,37, 5) = (/ &\n     &1.6229e-02_rb,2.2411e-02_rb,1.9089e-02_rb,1.3408e-02_rb,2.1134e-03_rb/)\n      kbo(:, 5,37, 5) = (/ &\n     &2.1208e-02_rb,2.8314e-02_rb,2.3560e-02_rb,1.6063e-02_rb,2.1467e-03_rb/)\n      kbo(:, 1,38, 5) = (/ &\n     &5.6546e-03_rb,9.1081e-03_rb,8.4597e-03_rb,6.6101e-03_rb,1.5995e-03_rb/)\n      kbo(:, 2,38, 5) = (/ &\n     &7.9966e-03_rb,1.2093e-02_rb,1.0832e-02_rb,8.1085e-03_rb,1.6506e-03_rb/)\n      kbo(:, 3,38, 5) = (/ &\n     &1.1084e-02_rb,1.5851e-02_rb,1.3740e-02_rb,9.8767e-03_rb,1.6948e-03_rb/)\n      kbo(:, 4,38, 5) = (/ &\n     &1.4944e-02_rb,2.0494e-02_rb,1.7272e-02_rb,1.1975e-02_rb,1.7322e-03_rb/)\n      kbo(:, 5,38, 5) = (/ &\n     &1.9571e-02_rb,2.6031e-02_rb,2.1445e-02_rb,1.4447e-02_rb,1.7614e-03_rb/)\n      kbo(:, 1,39, 5) = (/ &\n     &5.2606e-03_rb,8.2861e-03_rb,7.5918e-03_rb,5.8448e-03_rb,1.3077e-03_rb/)\n      kbo(:, 2,39, 5) = (/ &\n     &7.4758e-03_rb,1.1098e-02_rb,9.8108e-03_rb,7.2343e-03_rb,1.3505e-03_rb/)\n      kbo(:, 3,39, 5) = (/ &\n     &1.0407e-02_rb,1.4668e-02_rb,1.2553e-02_rb,8.8880e-03_rb,1.3888e-03_rb/)\n      kbo(:, 4,39, 5) = (/ &\n     &1.4072e-02_rb,1.9102e-02_rb,1.5911e-02_rb,1.0872e-02_rb,1.4211e-03_rb/)\n      kbo(:, 5,39, 5) = (/ &\n     &1.8472e-02_rb,2.4391e-02_rb,1.9883e-02_rb,1.3211e-02_rb,1.4470e-03_rb/)\n      kbo(:, 1,40, 5) = (/ &\n     &4.4239e-03_rb,6.9683e-03_rb,6.3619e-03_rb,4.8825e-03_rb,1.0643e-03_rb/)\n      kbo(:, 2,40, 5) = (/ &\n     &6.3289e-03_rb,9.4143e-03_rb,8.2870e-03_rb,6.0882e-03_rb,1.1007e-03_rb/)\n      kbo(:, 3,40, 5) = (/ &\n     &8.8723e-03_rb,1.2550e-02_rb,1.0689e-02_rb,7.5344e-03_rb,1.1340e-03_rb/)\n      kbo(:, 4,40, 5) = (/ &\n     &1.2075e-02_rb,1.6469e-02_rb,1.3655e-02_rb,9.2842e-03_rb,1.1620e-03_rb/)\n      kbo(:, 5,40, 5) = (/ &\n     &1.5933e-02_rb,2.1174e-02_rb,1.7180e-02_rb,1.1354e-02_rb,1.1848e-03_rb/)\n      kbo(:, 1,41, 5) = (/ &\n     &3.6867e-03_rb,5.8128e-03_rb,5.2949e-03_rb,4.0553e-03_rb,8.6561e-04_rb/)\n      kbo(:, 2,41, 5) = (/ &\n     &5.3143e-03_rb,7.9271e-03_rb,6.9551e-03_rb,5.0947e-03_rb,8.9710e-04_rb/)\n      kbo(:, 3,41, 5) = (/ &\n     &7.5044e-03_rb,1.0658e-02_rb,9.0449e-03_rb,6.3522e-03_rb,9.2517e-04_rb/)\n      kbo(:, 4,41, 5) = (/ &\n     &1.0281e-02_rb,1.4099e-02_rb,1.1643e-02_rb,7.8856e-03_rb,9.4938e-04_rb/)\n      kbo(:, 5,41, 5) = (/ &\n     &1.3649e-02_rb,1.8248e-02_rb,1.4748e-02_rb,9.7057e-03_rb,9.6963e-04_rb/)\n      kbo(:, 1,42, 5) = (/ &\n     &3.0985e-03_rb,4.8781e-03_rb,4.4299e-03_rb,3.3820e-03_rb,7.0400e-04_rb/)\n      kbo(:, 2,42, 5) = (/ &\n     &4.5009e-03_rb,6.7165e-03_rb,5.8698e-03_rb,4.2829e-03_rb,7.3071e-04_rb/)\n      kbo(:, 3,42, 5) = (/ &\n     &6.4001e-03_rb,9.1103e-03_rb,7.7007e-03_rb,5.3843e-03_rb,7.5479e-04_rb/)\n      kbo(:, 4,42, 5) = (/ &\n     &8.8324e-03_rb,1.2154e-02_rb,9.9941e-03_rb,6.7362e-03_rb,7.7572e-04_rb/)\n      kbo(:, 5,42, 5) = (/ &\n     &1.1799e-02_rb,1.5850e-02_rb,1.2750e-02_rb,8.3487e-03_rb,7.9315e-04_rb/)\n      kbo(:, 1,43, 5) = (/ &\n     &2.5629e-03_rb,4.0329e-03_rb,3.6588e-03_rb,2.7901e-03_rb,5.7114e-04_rb/)\n      kbo(:, 2,43, 5) = (/ &\n     &3.7578e-03_rb,5.6142e-03_rb,4.8977e-03_rb,3.5662e-03_rb,5.9379e-04_rb/)\n      kbo(:, 3,43, 5) = (/ &\n     &5.3881e-03_rb,7.6915e-03_rb,6.4844e-03_rb,4.5229e-03_rb,6.1455e-04_rb/)\n      kbo(:, 4,43, 5) = (/ &\n     &7.5091e-03_rb,1.0367e-02_rb,8.4990e-03_rb,5.7086e-03_rb,6.3259e-04_rb/)\n      kbo(:, 5,43, 5) = (/ &\n     &1.0110e-02_rb,1.3645e-02_rb,1.0937e-02_rb,7.1314e-03_rb,6.4809e-04_rb/)\n      kbo(:, 1,44, 5) = (/ &\n     &2.1195e-03_rb,3.3263e-03_rb,3.0153e-03_rb,2.2974e-03_rb,4.6259e-04_rb/)\n      kbo(:, 2,44, 5) = (/ &\n     &3.1405e-03_rb,4.6890e-03_rb,4.0834e-03_rb,2.9671e-03_rb,4.8211e-04_rb/)\n      kbo(:, 3,44, 5) = (/ &\n     &4.5449e-03_rb,6.4956e-03_rb,5.4625e-03_rb,3.8015e-03_rb,4.9986e-04_rb/)\n      kbo(:, 4,44, 5) = (/ &\n     &6.4001e-03_rb,8.8502e-03_rb,7.2321e-03_rb,4.8421e-03_rb,5.1551e-04_rb/)\n      kbo(:, 5,44, 5) = (/ &\n     &8.6977e-03_rb,1.1779e-02_rb,9.4064e-03_rb,6.1062e-03_rb,5.2910e-04_rb/)\n      kbo(:, 1,45, 5) = (/ &\n     &1.7814e-03_rb,2.7759e-03_rb,2.5092e-03_rb,1.9068e-03_rb,3.7475e-04_rb/)\n      kbo(:, 2,45, 5) = (/ &\n     &2.6678e-03_rb,3.9635e-03_rb,3.4407e-03_rb,2.4906e-03_rb,3.9120e-04_rb/)\n      kbo(:, 3,45, 5) = (/ &\n     &3.8999e-03_rb,5.5595e-03_rb,4.6558e-03_rb,3.2267e-03_rb,4.0640e-04_rb/)\n      kbo(:, 4,45, 5) = (/ &\n     &5.5475e-03_rb,7.6646e-03_rb,6.2331e-03_rb,4.1536e-03_rb,4.1988e-04_rb/)\n      kbo(:, 5,45, 5) = (/ &\n     &7.6146e-03_rb,1.0314e-02_rb,8.1967e-03_rb,5.2910e-03_rb,4.3189e-04_rb/)\n      kbo(:, 1,46, 5) = (/ &\n     &1.4913e-03_rb,2.3049e-03_rb,2.0781e-03_rb,1.5752e-03_rb,3.0303e-04_rb/)\n      kbo(:, 2,46, 5) = (/ &\n     &2.2619e-03_rb,3.3394e-03_rb,2.8896e-03_rb,2.0839e-03_rb,3.1705e-04_rb/)\n      kbo(:, 3,46, 5) = (/ &\n     &3.3424e-03_rb,4.7455e-03_rb,3.9592e-03_rb,2.7324e-03_rb,3.2997e-04_rb/)\n      kbo(:, 4,46, 5) = (/ &\n     &4.8041e-03_rb,6.6271e-03_rb,5.3667e-03_rb,3.5579e-03_rb,3.4174e-04_rb/)\n      kbo(:, 5,46, 5) = (/ &\n     &6.6700e-03_rb,9.0306e-03_rb,7.1468e-03_rb,4.5847e-03_rb,3.5220e-04_rb/)\n      kbo(:, 1,47, 5) = (/ &\n     &1.2089e-03_rb,1.8595e-03_rb,1.6774e-03_rb,1.2733e-03_rb,2.4435e-04_rb/)\n      kbo(:, 2,47, 5) = (/ &\n     &1.8589e-03_rb,2.7359e-03_rb,2.3669e-03_rb,1.7064e-03_rb,2.5622e-04_rb/)\n      kbo(:, 3,47, 5) = (/ &\n     &2.7805e-03_rb,3.9417e-03_rb,3.2867e-03_rb,2.2649e-03_rb,2.6731e-04_rb/)\n      kbo(:, 4,47, 5) = (/ &\n     &4.0468e-03_rb,5.5810e-03_rb,4.5086e-03_rb,2.9823e-03_rb,2.7740e-04_rb/)\n      kbo(:, 5,47, 5) = (/ &\n     &5.6890e-03_rb,7.7116e-03_rb,6.0862e-03_rb,3.8914e-03_rb,2.8663e-04_rb/)\n      kbo(:, 1,48, 5) = (/ &\n     &1.0010e-03_rb,1.5219e-03_rb,1.3705e-03_rb,1.0399e-03_rb,1.9690e-04_rb/)\n      kbo(:, 2,48, 5) = (/ &\n     &1.5623e-03_rb,2.2781e-03_rb,1.9661e-03_rb,1.4139e-03_rb,2.0690e-04_rb/)\n      kbo(:, 3,48, 5) = (/ &\n     &2.3663e-03_rb,3.3328e-03_rb,2.7724e-03_rb,1.9027e-03_rb,2.1643e-04_rb/)\n      kbo(:, 4,48, 5) = (/ &\n     &3.4895e-03_rb,4.7876e-03_rb,3.8543e-03_rb,2.5388e-03_rb,2.2513e-04_rb/)\n      kbo(:, 5,48, 5) = (/ &\n     &4.9716e-03_rb,6.7160e-03_rb,5.2797e-03_rb,3.3578e-03_rb,2.3320e-04_rb/)\n      kbo(:, 1,49, 5) = (/ &\n     &8.5765e-04_rb,1.2765e-03_rb,1.1434e-03_rb,8.6362e-04_rb,1.5857e-04_rb/)\n      kbo(:, 2,49, 5) = (/ &\n     &1.3602e-03_rb,1.9488e-03_rb,1.6723e-03_rb,1.1956e-03_rb,1.6712e-04_rb/)\n      kbo(:, 3,49, 5) = (/ &\n     &2.0873e-03_rb,2.8996e-03_rb,2.4000e-03_rb,1.6350e-03_rb,1.7515e-04_rb/)\n      kbo(:, 4,49, 5) = (/ &\n     &3.1195e-03_rb,4.2309e-03_rb,3.3880e-03_rb,2.2146e-03_rb,1.8269e-04_rb/)\n      kbo(:, 5,49, 5) = (/ &\n     &4.5042e-03_rb,6.0317e-03_rb,4.7143e-03_rb,2.9742e-03_rb,1.8971e-04_rb/)\n      kbo(:, 1,50, 5) = (/ &\n     &7.0327e-04_rb,1.0357e-03_rb,9.2617e-04_rb,6.9913e-04_rb,1.2768e-04_rb/)\n      kbo(:, 2,50, 5) = (/ &\n     &1.1341e-03_rb,1.6088e-03_rb,1.3773e-03_rb,9.8362e-04_rb,1.3488e-04_rb/)\n      kbo(:, 3,50, 5) = (/ &\n     &1.7633e-03_rb,2.4334e-03_rb,2.0087e-03_rb,1.3647e-03_rb,1.4174e-04_rb/)\n      kbo(:, 4,50, 5) = (/ &\n     &2.6686e-03_rb,3.6011e-03_rb,2.8760e-03_rb,1.8731e-03_rb,1.4819e-04_rb/)\n      kbo(:, 5,50, 5) = (/ &\n     &3.9042e-03_rb,5.2110e-03_rb,4.0582e-03_rb,2.5499e-03_rb,1.5417e-04_rb/)\n      kbo(:, 1,51, 5) = (/ &\n     &5.6283e-04_rb,8.2479e-04_rb,7.3777e-04_rb,5.5772e-04_rb,1.0280e-04_rb/)\n      kbo(:, 2,51, 5) = (/ &\n     &9.2490e-04_rb,1.3030e-03_rb,1.1149e-03_rb,7.9673e-04_rb,1.0882e-04_rb/)\n      kbo(:, 3,51, 5) = (/ &\n     &1.4569e-03_rb,2.0026e-03_rb,1.6508e-03_rb,1.1213e-03_rb,1.1463e-04_rb/)\n      kbo(:, 4,51, 5) = (/ &\n     &2.2322e-03_rb,3.0043e-03_rb,2.3967e-03_rb,1.5580e-03_rb,1.2010e-04_rb/)\n      kbo(:, 5,51, 5) = (/ &\n     &3.3090e-03_rb,4.4133e-03_rb,3.4281e-03_rb,2.1477e-03_rb,1.2516e-04_rb/)\n      kbo(:, 1,52, 5) = (/ &\n     &4.5964e-04_rb,6.6706e-04_rb,5.9570e-04_rb,4.4969e-04_rb,8.2695e-05_rb/)\n      kbo(:, 2,52, 5) = (/ &\n     &7.7113e-04_rb,1.0739e-03_rb,9.1646e-04_rb,6.5362e-04_rb,8.7774e-05_rb/)\n      kbo(:, 3,52, 5) = (/ &\n     &1.2329e-03_rb,1.6791e-03_rb,1.3796e-03_rb,9.3460e-04_rb,9.2675e-05_rb/)\n      kbo(:, 4,52, 5) = (/ &\n     &1.9124e-03_rb,2.5569e-03_rb,2.0345e-03_rb,1.3172e-03_rb,9.7314e-05_rb/)\n      kbo(:, 5,52, 5) = (/ &\n     &2.8744e-03_rb,3.8139e-03_rb,2.9526e-03_rb,1.8404e-03_rb,1.0157e-04_rb/)\n      kbo(:, 1,53, 5) = (/ &\n     &3.8730e-04_rb,5.5282e-04_rb,4.9108e-04_rb,3.6874e-04_rb,6.6480e-05_rb/)\n      kbo(:, 2,53, 5) = (/ &\n     &6.6529e-04_rb,9.0913e-04_rb,7.7130e-04_rb,5.4660e-04_rb,7.0743e-05_rb/)\n      kbo(:, 3,53, 5) = (/ &\n     &1.0811e-03_rb,1.4483e-03_rb,1.1832e-03_rb,7.9661e-04_rb,7.4902e-05_rb/)\n      kbo(:, 4,53, 5) = (/ &\n     &1.6977e-03_rb,2.2425e-03_rb,1.7750e-03_rb,1.1419e-03_rb,7.8801e-05_rb/)\n      kbo(:, 5,53, 5) = (/ &\n     &2.5875e-03_rb,3.3978e-03_rb,2.6180e-03_rb,1.6189e-03_rb,8.2434e-05_rb/)\n      kbo(:, 1,54, 5) = (/ &\n     &2.8438e-04_rb,4.1240e-04_rb,3.6923e-04_rb,2.8032e-04_rb,5.3391e-05_rb/)\n      kbo(:, 2,54, 5) = (/ &\n     &5.0038e-04_rb,6.8881e-04_rb,5.8764e-04_rb,4.1957e-04_rb,5.6986e-05_rb/)\n      kbo(:, 3,54, 5) = (/ &\n     &8.2710e-04_rb,1.1130e-03_rb,9.1323e-04_rb,6.1896e-04_rb,6.0464e-05_rb/)\n      kbo(:, 4,54, 5) = (/ &\n     &1.3140e-03_rb,1.7467e-03_rb,1.3863e-03_rb,8.9674e-04_rb,6.3698e-05_rb/)\n      kbo(:, 5,54, 5) = (/ &\n     &2.0289e-03_rb,2.6791e-03_rb,2.0677e-03_rb,1.2826e-03_rb,6.6754e-05_rb/)\n      kbo(:, 1,55, 5) = (/ &\n     &1.9032e-04_rb,2.8714e-04_rb,2.6164e-04_rb,2.0312e-04_rb,4.2857e-05_rb/)\n      kbo(:, 2,55, 5) = (/ &\n     &3.4354e-04_rb,4.8514e-04_rb,4.1940e-04_rb,3.0487e-04_rb,4.5872e-05_rb/)\n      kbo(:, 3,55, 5) = (/ &\n     &5.7798e-04_rb,7.9314e-04_rb,6.5789e-04_rb,4.5289e-04_rb,4.8737e-05_rb/)\n      kbo(:, 4,55, 5) = (/ &\n     &9.2977e-04_rb,1.2582e-03_rb,1.0072e-03_rb,6.6019e-04_rb,5.1425e-05_rb/)\n      kbo(:, 5,55, 5) = (/ &\n     &1.4533e-03_rb,1.9484e-03_rb,1.5135e-03_rb,9.4927e-04_rb,5.3965e-05_rb/)\n      kbo(:, 1,56, 5) = (/ &\n     &1.2624e-04_rb,1.9945e-04_rb,1.8526e-04_rb,1.4713e-04_rb,3.4367e-05_rb/)\n      kbo(:, 2,56, 5) = (/ &\n     &2.3425e-04_rb,3.4034e-04_rb,2.9855e-04_rb,2.2108e-04_rb,3.6885e-05_rb/)\n      kbo(:, 3,56, 5) = (/ &\n     &4.0201e-04_rb,5.6312e-04_rb,4.7257e-04_rb,3.3069e-04_rb,3.9253e-05_rb/)\n      kbo(:, 4,56, 5) = (/ &\n     &6.5545e-04_rb,9.0280e-04_rb,7.2955e-04_rb,4.8511e-04_rb,4.1521e-05_rb/)\n      kbo(:, 5,56, 5) = (/ &\n     &1.0372e-03_rb,1.4120e-03_rb,1.1051e-03_rb,7.0135e-04_rb,4.3631e-05_rb/)\n      kbo(:, 1,57, 5) = (/ &\n     &8.2825e-05_rb,1.3826e-04_rb,1.3105e-04_rb,1.0648e-04_rb,2.7541e-05_rb/)\n      kbo(:, 2,57, 5) = (/ &\n     &1.5848e-04_rb,2.3765e-04_rb,2.1180e-04_rb,1.6006e-04_rb,2.9646e-05_rb/)\n      kbo(:, 3,57, 5) = (/ &\n     &2.7802e-04_rb,3.9802e-04_rb,3.3815e-04_rb,2.4085e-04_rb,3.1604e-05_rb/)\n      kbo(:, 4,57, 5) = (/ &\n     &4.6014e-04_rb,6.4521e-04_rb,5.2696e-04_rb,3.5556e-04_rb,3.3502e-05_rb/)\n      kbo(:, 5,57, 5) = (/ &\n     &7.3676e-04_rb,1.0192e-03_rb,8.0418e-04_rb,5.1690e-04_rb,3.5248e-05_rb/)\n      kbo(:, 1,58, 5) = (/ &\n     &1.4413e-05_rb,3.1415e-05_rb,3.9206e-05_rb,4.5793e-05_rb,2.2070e-05_rb/)\n      kbo(:, 2,58, 5) = (/ &\n     &2.8319e-05_rb,5.4166e-05_rb,6.3295e-05_rb,6.8680e-05_rb,2.3823e-05_rb/)\n      kbo(:, 3,58, 5) = (/ &\n     &5.0851e-05_rb,9.1643e-05_rb,1.0172e-04_rb,1.0358e-04_rb,2.5450e-05_rb/)\n      kbo(:, 4,58, 5) = (/ &\n     &8.5536e-05_rb,1.4999e-04_rb,1.5967e-04_rb,1.5367e-04_rb,2.7016e-05_rb/)\n      kbo(:, 5,58, 5) = (/ &\n     &1.3845e-04_rb,2.3895e-04_rb,2.4509e-04_rb,2.2418e-04_rb,2.8488e-05_rb/)\n      kbo(:, 1,59, 5) = (/ &\n     &1.2766e-05_rb,2.9930e-05_rb,3.6342e-05_rb,3.9546e-05_rb,1.7924e-05_rb/)\n      kbo(:, 2,59, 5) = (/ &\n     &2.5308e-05_rb,5.0886e-05_rb,5.7559e-05_rb,5.8137e-05_rb,1.9351e-05_rb/)\n      kbo(:, 3,59, 5) = (/ &\n     &4.5886e-05_rb,8.5371e-05_rb,9.1314e-05_rb,8.6129e-05_rb,2.0681e-05_rb/)\n      kbo(:, 4,59, 5) = (/ &\n     &7.7783e-05_rb,1.3897e-04_rb,1.4192e-04_rb,1.2608e-04_rb,2.1937e-05_rb/)\n      kbo(:, 5,59, 5) = (/ &\n     &1.2671e-04_rb,2.2060e-04_rb,2.1586e-04_rb,1.8160e-04_rb,2.3122e-05_rb/)\n      kbo(:, 1,13, 6) = (/ &\n     &1.2091e+00_rb,1.0925e+00_rb,9.7132e-01_rb,7.6832e-01_rb,2.2429e-01_rb/)\n      kbo(:, 2,13, 6) = (/ &\n     &1.8464e+00_rb,1.5640e+00_rb,1.2977e+00_rb,9.6738e-01_rb,2.2945e-01_rb/)\n      kbo(:, 3,13, 6) = (/ &\n     &2.7006e+00_rb,2.1933e+00_rb,1.7174e+00_rb,1.2089e+00_rb,2.3586e-01_rb/)\n      kbo(:, 4,13, 6) = (/ &\n     &3.8041e+00_rb,3.0098e+00_rb,2.2534e+00_rb,1.4966e+00_rb,2.4148e-01_rb/)\n      kbo(:, 5,13, 6) = (/ &\n     &5.1874e+00_rb,4.0404e+00_rb,2.9277e+00_rb,1.8384e+00_rb,2.4717e-01_rb/)\n      kbo(:, 1,14, 6) = (/ &\n     &6.6672e-01_rb,6.8855e-01_rb,6.6353e-01_rb,5.5608e-01_rb,2.0092e-01_rb/)\n      kbo(:, 2,14, 6) = (/ &\n     &1.0160e+00_rb,9.4963e-01_rb,8.6392e-01_rb,6.8590e-01_rb,2.0621e-01_rb/)\n      kbo(:, 3,14, 6) = (/ &\n     &1.4836e+00_rb,1.2937e+00_rb,1.1112e+00_rb,8.3934e-01_rb,2.1228e-01_rb/)\n      kbo(:, 4,14, 6) = (/ &\n     &2.0856e+00_rb,1.7366e+00_rb,1.4142e+00_rb,1.0186e+00_rb,2.1791e-01_rb/)\n      kbo(:, 5,14, 6) = (/ &\n     &2.8402e+00_rb,2.2928e+00_rb,1.7814e+00_rb,1.2275e+00_rb,2.2338e-01_rb/)\n      kbo(:, 1,15, 6) = (/ &\n     &3.7534e-01_rb,4.5732e-01_rb,4.6750e-01_rb,4.0917e-01_rb,1.7874e-01_rb/)\n      kbo(:, 2,15, 6) = (/ &\n     &5.7029e-01_rb,6.1390e-01_rb,5.9540e-01_rb,4.9734e-01_rb,1.8407e-01_rb/)\n      kbo(:, 3,15, 6) = (/ &\n     &8.2994e-01_rb,8.1258e-01_rb,7.5038e-01_rb,5.9870e-01_rb,1.8982e-01_rb/)\n      kbo(:, 4,15, 6) = (/ &\n     &1.1635e+00_rb,1.0593e+00_rb,9.3529e-01_rb,7.1512e-01_rb,1.9538e-01_rb/)\n      kbo(:, 5,15, 6) = (/ &\n     &1.5834e+00_rb,1.3649e+00_rb,1.1537e+00_rb,8.4763e-01_rb,2.0092e-01_rb/)\n      kbo(:, 1,16, 6) = (/ &\n     &2.5139e-01_rb,3.4640e-01_rb,3.6560e-01_rb,3.2723e-01_rb,1.5796e-01_rb/)\n      kbo(:, 2,16, 6) = (/ &\n     &3.8033e-01_rb,4.5844e-01_rb,4.5962e-01_rb,3.9345e-01_rb,1.6322e-01_rb/)\n      kbo(:, 3,16, 6) = (/ &\n     &5.5135e-01_rb,5.9731e-01_rb,5.7234e-01_rb,4.6896e-01_rb,1.6890e-01_rb/)\n      kbo(:, 4,16, 6) = (/ &\n     &7.7178e-01_rb,7.6699e-01_rb,7.0504e-01_rb,5.5557e-01_rb,1.7446e-01_rb/)\n      kbo(:, 5,16, 6) = (/ &\n     &1.0505e+00_rb,9.7332e-01_rb,8.6035e-01_rb,6.5296e-01_rb,1.7998e-01_rb/)\n      kbo(:, 1,17, 6) = (/ &\n     &1.7391e-01_rb,2.6830e-01_rb,2.8935e-01_rb,2.6535e-01_rb,1.3871e-01_rb/)\n      kbo(:, 2,17, 6) = (/ &\n     &2.6196e-01_rb,3.5091e-01_rb,3.6089e-01_rb,3.1647e-01_rb,1.4388e-01_rb/)\n      kbo(:, 3,17, 6) = (/ &\n     &3.7888e-01_rb,4.5188e-01_rb,4.4522e-01_rb,3.7420e-01_rb,1.4950e-01_rb/)\n      kbo(:, 4,17, 6) = (/ &\n     &5.3041e-01_rb,5.7470e-01_rb,5.4379e-01_rb,4.3949e-01_rb,1.5497e-01_rb/)\n      kbo(:, 5,17, 6) = (/ &\n     &7.2254e-01_rb,7.2344e-01_rb,6.5849e-01_rb,5.1285e-01_rb,1.6018e-01_rb/)\n      kbo(:, 1,18, 6) = (/ &\n     &1.2310e-01_rb,2.1053e-01_rb,2.3152e-01_rb,2.1713e-01_rb,1.2112e-01_rb/)\n      kbo(:, 2,18, 6) = (/ &\n     &1.8497e-01_rb,2.7232e-01_rb,2.8648e-01_rb,2.5684e-01_rb,1.2635e-01_rb/)\n      kbo(:, 3,18, 6) = (/ &\n     &2.6727e-01_rb,3.4798e-01_rb,3.5045e-01_rb,3.0154e-01_rb,1.3167e-01_rb/)\n      kbo(:, 4,18, 6) = (/ &\n     &3.7442e-01_rb,4.3958e-01_rb,4.2522e-01_rb,3.5185e-01_rb,1.3670e-01_rb/)\n      kbo(:, 5,18, 6) = (/ &\n     &5.0994e-01_rb,5.4989e-01_rb,5.1174e-01_rb,4.0832e-01_rb,1.4125e-01_rb/)\n      kbo(:, 1,19, 6) = (/ &\n     &8.5532e-02_rb,1.6314e-01_rb,1.8367e-01_rb,1.7636e-01_rb,1.0532e-01_rb/)\n      kbo(:, 2,19, 6) = (/ &\n     &1.2828e-01_rb,2.0893e-01_rb,2.2484e-01_rb,2.0705e-01_rb,1.1032e-01_rb/)\n      kbo(:, 3,19, 6) = (/ &\n     &1.8543e-01_rb,2.6474e-01_rb,2.7268e-01_rb,2.4148e-01_rb,1.1512e-01_rb/)\n      kbo(:, 4,19, 6) = (/ &\n     &2.5984e-01_rb,3.3238e-01_rb,3.2852e-01_rb,2.8001e-01_rb,1.1952e-01_rb/)\n      kbo(:, 5,19, 6) = (/ &\n     &3.5320e-01_rb,4.1295e-01_rb,3.9317e-01_rb,3.2333e-01_rb,1.2366e-01_rb/)\n      kbo(:, 1,20, 6) = (/ &\n     &6.4796e-02_rb,1.3254e-01_rb,1.5120e-01_rb,1.4730e-01_rb,9.1341e-02_rb/)\n      kbo(:, 2,20, 6) = (/ &\n     &9.6990e-02_rb,1.6885e-01_rb,1.8400e-01_rb,1.7239e-01_rb,9.5796e-02_rb/)\n      kbo(:, 3,20, 6) = (/ &\n     &1.4017e-01_rb,2.1315e-01_rb,2.2212e-01_rb,2.0058e-01_rb,9.9929e-02_rb/)\n      kbo(:, 4,20, 6) = (/ &\n     &1.9600e-01_rb,2.6649e-01_rb,2.6658e-01_rb,2.3206e-01_rb,1.0386e-01_rb/)\n      kbo(:, 5,20, 6) = (/ &\n     &2.6559e-01_rb,3.2963e-01_rb,3.1802e-01_rb,2.6726e-01_rb,1.0762e-01_rb/)\n      kbo(:, 1,21, 6) = (/ &\n     &5.0649e-02_rb,1.0928e-01_rb,1.2583e-01_rb,1.2405e-01_rb,7.8779e-02_rb/)\n      kbo(:, 2,21, 6) = (/ &\n     &7.5738e-02_rb,1.3875e-01_rb,1.5264e-01_rb,1.4489e-01_rb,8.2609e-02_rb/)\n      kbo(:, 3,21, 6) = (/ &\n     &1.0925e-01_rb,1.7464e-01_rb,1.8399e-01_rb,1.6832e-01_rb,8.6258e-02_rb/)\n      kbo(:, 4,21, 6) = (/ &\n     &1.5216e-01_rb,2.1765e-01_rb,2.2035e-01_rb,1.9451e-01_rb,8.9821e-02_rb/)\n      kbo(:, 5,21, 6) = (/ &\n     &2.0550e-01_rb,2.6822e-01_rb,2.6230e-01_rb,2.2354e-01_rb,9.3160e-02_rb/)\n      kbo(:, 1,22, 6) = (/ &\n     &4.1767e-02_rb,9.2608e-02_rb,1.0699e-01_rb,1.0611e-01_rb,6.7766e-02_rb/)\n      kbo(:, 2,22, 6) = (/ &\n     &6.2192e-02_rb,1.1726e-01_rb,1.2959e-01_rb,1.2363e-01_rb,7.1096e-02_rb/)\n      kbo(:, 3,22, 6) = (/ &\n     &8.9136e-02_rb,1.4711e-01_rb,1.5605e-01_rb,1.4343e-01_rb,7.4363e-02_rb/)\n      kbo(:, 4,22, 6) = (/ &\n     &1.2346e-01_rb,1.8283e-01_rb,1.8672e-01_rb,1.6558e-01_rb,7.7494e-02_rb/)\n      kbo(:, 5,22, 6) = (/ &\n     &1.6595e-01_rb,2.2428e-01_rb,2.2184e-01_rb,1.9008e-01_rb,8.0478e-02_rb/)\n      kbo(:, 1,23, 6) = (/ &\n     &3.4739e-02_rb,7.8664e-02_rb,9.1136e-02_rb,9.0610e-02_rb,5.8065e-02_rb/)\n      kbo(:, 2,23, 6) = (/ &\n     &5.1379e-02_rb,9.9376e-02_rb,1.1032e-01_rb,1.0537e-01_rb,6.0980e-02_rb/)\n      kbo(:, 3,23, 6) = (/ &\n     &7.3154e-02_rb,1.2441e-01_rb,1.3261e-01_rb,1.2218e-01_rb,6.3866e-02_rb/)\n      kbo(:, 4,23, 6) = (/ &\n     &1.0075e-01_rb,1.5392e-01_rb,1.5845e-01_rb,1.4087e-01_rb,6.6610e-02_rb/)\n      kbo(:, 5,23, 6) = (/ &\n     &1.3481e-01_rb,1.8817e-01_rb,1.8784e-01_rb,1.6172e-01_rb,6.9269e-02_rb/)\n      kbo(:, 1,24, 6) = (/ &\n     &2.8818e-02_rb,6.6682e-02_rb,7.7471e-02_rb,7.7057e-02_rb,4.9574e-02_rb/)\n      kbo(:, 2,24, 6) = (/ &\n     &4.2313e-02_rb,8.4062e-02_rb,9.3582e-02_rb,8.9537e-02_rb,5.2146e-02_rb/)\n      kbo(:, 3,24, 6) = (/ &\n     &5.9843e-02_rb,1.0485e-01_rb,1.1232e-01_rb,1.0372e-01_rb,5.4645e-02_rb/)\n      kbo(:, 4,24, 6) = (/ &\n     &8.1952e-02_rb,1.2924e-01_rb,1.3388e-01_rb,1.1954e-01_rb,5.7051e-02_rb/)\n      kbo(:, 5,24, 6) = (/ &\n     &1.0925e-01_rb,1.5756e-01_rb,1.5837e-01_rb,1.3710e-01_rb,5.9328e-02_rb/)\n      kbo(:, 1,25, 6) = (/ &\n     &2.4289e-02_rb,5.7018e-02_rb,6.6182e-02_rb,6.5743e-02_rb,4.2224e-02_rb/)\n      kbo(:, 2,25, 6) = (/ &\n     &3.5371e-02_rb,7.1685e-02_rb,7.9860e-02_rb,7.6400e-02_rb,4.4451e-02_rb/)\n      kbo(:, 3,25, 6) = (/ &\n     &4.9695e-02_rb,8.9091e-02_rb,9.5704e-02_rb,8.8452e-02_rb,4.6603e-02_rb/)\n      kbo(:, 4,25, 6) = (/ &\n     &6.7687e-02_rb,1.0953e-01_rb,1.1385e-01_rb,1.0188e-01_rb,4.8655e-02_rb/)\n      kbo(:, 5,25, 6) = (/ &\n     &9.0080e-02_rb,1.3324e-01_rb,1.3448e-01_rb,1.1679e-01_rb,5.0366e-02_rb/)\n      kbo(:, 1,26, 6) = (/ &\n     &2.0940e-02_rb,4.9340e-02_rb,5.7029e-02_rb,5.6467e-02_rb,3.5910e-02_rb/)\n      kbo(:, 2,26, 6) = (/ &\n     &3.0229e-02_rb,6.1848e-02_rb,6.8786e-02_rb,6.5644e-02_rb,3.7816e-02_rb/)\n      kbo(:, 3,26, 6) = (/ &\n     &4.2173e-02_rb,7.6666e-02_rb,8.2327e-02_rb,7.6015e-02_rb,3.9629e-02_rb/)\n      kbo(:, 4,26, 6) = (/ &\n     &5.7238e-02_rb,9.4072e-02_rb,9.7854e-02_rb,8.7548e-02_rb,4.1173e-02_rb/)\n      kbo(:, 5,26, 6) = (/ &\n     &7.6058e-02_rb,1.1436e-01_rb,1.1545e-01_rb,1.0034e-01_rb,4.2300e-02_rb/)\n      kbo(:, 1,27, 6) = (/ &\n     &1.8730e-02_rb,4.3572e-02_rb,4.9937e-02_rb,4.9064e-02_rb,3.0474e-02_rb/)\n      kbo(:, 2,27, 6) = (/ &\n     &2.6831e-02_rb,5.4541e-02_rb,6.0259e-02_rb,5.7134e-02_rb,3.2064e-02_rb/)\n      kbo(:, 3,27, 6) = (/ &\n     &3.7216e-02_rb,6.7578e-02_rb,7.2151e-02_rb,6.6197e-02_rb,3.3458e-02_rb/)\n      kbo(:, 4,27, 6) = (/ &\n     &5.0417e-02_rb,8.2889e-02_rb,8.5762e-02_rb,7.6299e-02_rb,3.4507e-02_rb/)\n      kbo(:, 5,27, 6) = (/ &\n     &6.6884e-02_rb,1.0088e-01_rb,1.0129e-01_rb,8.7542e-02_rb,3.5247e-02_rb/)\n      kbo(:, 1,28, 6) = (/ &\n     &1.7190e-02_rb,3.9051e-02_rb,4.4263e-02_rb,4.3005e-02_rb,2.5796e-02_rb/)\n      kbo(:, 2,28, 6) = (/ &\n     &2.4452e-02_rb,4.8897e-02_rb,5.3477e-02_rb,5.0169e-02_rb,2.7044e-02_rb/)\n      kbo(:, 3,28, 6) = (/ &\n     &3.3807e-02_rb,6.0596e-02_rb,6.4111e-02_rb,5.8195e-02_rb,2.8015e-02_rb/)\n      kbo(:, 4,28, 6) = (/ &\n     &4.5722e-02_rb,7.4408e-02_rb,7.6314e-02_rb,6.7197e-02_rb,2.8722e-02_rb/)\n      kbo(:, 5,28, 6) = (/ &\n     &6.0503e-02_rb,9.0881e-02_rb,9.0351e-02_rb,7.7127e-02_rb,2.9243e-02_rb/)\n      kbo(:, 1,29, 6) = (/ &\n     &1.6778e-02_rb,3.6309e-02_rb,4.0421e-02_rb,3.8540e-02_rb,2.1757e-02_rb/)\n      kbo(:, 2,29, 6) = (/ &\n     &2.3732e-02_rb,4.5567e-02_rb,4.8987e-02_rb,4.5076e-02_rb,2.2654e-02_rb/)\n      kbo(:, 3,29, 6) = (/ &\n     &3.2754e-02_rb,5.6621e-02_rb,5.8900e-02_rb,5.2465e-02_rb,2.3325e-02_rb/)\n      kbo(:, 4,29, 6) = (/ &\n     &4.4197e-02_rb,6.9861e-02_rb,7.0379e-02_rb,6.0698e-02_rb,2.3826e-02_rb/)\n      kbo(:, 5,29, 6) = (/ &\n     &5.8243e-02_rb,8.5699e-02_rb,8.3806e-02_rb,6.9875e-02_rb,2.4188e-02_rb/)\n      kbo(:, 1,30, 6) = (/ &\n     &1.6788e-02_rb,3.4359e-02_rb,3.7447e-02_rb,3.4898e-02_rb,1.8241e-02_rb/)\n      kbo(:, 2,30, 6) = (/ &\n     &2.3674e-02_rb,4.3260e-02_rb,4.5554e-02_rb,4.0970e-02_rb,1.8874e-02_rb/)\n      kbo(:, 3,30, 6) = (/ &\n     &3.2611e-02_rb,5.3991e-02_rb,5.4995e-02_rb,4.7819e-02_rb,1.9352e-02_rb/)\n      kbo(:, 4,30, 6) = (/ &\n     &4.3823e-02_rb,6.7000e-02_rb,6.6123e-02_rb,5.5495e-02_rb,1.9717e-02_rb/)\n      kbo(:, 5,30, 6) = (/ &\n     &5.7496e-02_rb,8.2562e-02_rb,7.9216e-02_rb,6.4205e-02_rb,1.9974e-02_rb/)\n      kbo(:, 1,31, 6) = (/ &\n     &1.7729e-02_rb,3.3726e-02_rb,3.5756e-02_rb,3.2351e-02_rb,1.5217e-02_rb/)\n      kbo(:, 2,31, 6) = (/ &\n     &2.4948e-02_rb,4.2686e-02_rb,4.3734e-02_rb,3.8162e-02_rb,1.5670e-02_rb/)\n      kbo(:, 3,31, 6) = (/ &\n     &3.4225e-02_rb,5.3676e-02_rb,5.3194e-02_rb,4.4735e-02_rb,1.6031e-02_rb/)\n      kbo(:, 4,31, 6) = (/ &\n     &4.5784e-02_rb,6.7038e-02_rb,6.4468e-02_rb,5.2256e-02_rb,1.6295e-02_rb/)\n      kbo(:, 5,31, 6) = (/ &\n     &5.9817e-02_rb,8.2952e-02_rb,7.7737e-02_rb,6.0918e-02_rb,1.6485e-02_rb/)\n      kbo(:, 1,32, 6) = (/ &\n     &1.9003e-02_rb,3.3583e-02_rb,3.4583e-02_rb,3.0306e-02_rb,1.2654e-02_rb/)\n      kbo(:, 2,32, 6) = (/ &\n     &2.6663e-02_rb,4.2837e-02_rb,4.2596e-02_rb,3.5915e-02_rb,1.2998e-02_rb/)\n      kbo(:, 3,32, 6) = (/ &\n     &3.6385e-02_rb,5.4256e-02_rb,5.2269e-02_rb,4.2382e-02_rb,1.3260e-02_rb/)\n      kbo(:, 4,32, 6) = (/ &\n     &4.8425e-02_rb,6.8084e-02_rb,6.3837e-02_rb,4.9934e-02_rb,1.3455e-02_rb/)\n      kbo(:, 5,32, 6) = (/ &\n     &6.3023e-02_rb,8.4608e-02_rb,7.7399e-02_rb,5.8694e-02_rb,1.3589e-02_rb/)\n      kbo(:, 1,33, 6) = (/ &\n     &2.0794e-02_rb,3.4164e-02_rb,3.4049e-02_rb,2.8789e-02_rb,1.0506e-02_rb/)\n      kbo(:, 2,33, 6) = (/ &\n     &2.9020e-02_rb,4.3934e-02_rb,4.2358e-02_rb,3.4361e-02_rb,1.0761e-02_rb/)\n      kbo(:, 3,33, 6) = (/ &\n     &3.9409e-02_rb,5.5981e-02_rb,5.2449e-02_rb,4.0931e-02_rb,1.0954e-02_rb/)\n      kbo(:, 4,33, 6) = (/ &\n     &5.2184e-02_rb,7.0595e-02_rb,6.4456e-02_rb,4.8674e-02_rb,1.1100e-02_rb/)\n      kbo(:, 5,33, 6) = (/ &\n     &6.7723e-02_rb,8.8066e-02_rb,7.8614e-02_rb,5.7672e-02_rb,1.1201e-02_rb/)\n      kbo(:, 1,34, 6) = (/ &\n     &2.1935e-02_rb,3.4165e-02_rb,3.3105e-02_rb,2.7057e-02_rb,8.7014e-03_rb/)\n      kbo(:, 2,34, 6) = (/ &\n     &3.0477e-02_rb,4.4226e-02_rb,4.1562e-02_rb,3.2560e-02_rb,8.8925e-03_rb/)\n      kbo(:, 3,34, 6) = (/ &\n     &4.1199e-02_rb,5.6620e-02_rb,5.1809e-02_rb,3.9153e-02_rb,9.0424e-03_rb/)\n      kbo(:, 4,34, 6) = (/ &\n     &5.4372e-02_rb,7.1709e-02_rb,6.4039e-02_rb,4.6915e-02_rb,9.1557e-03_rb/)\n      kbo(:, 5,34, 6) = (/ &\n     &7.0476e-02_rb,8.9710e-02_rb,7.8542e-02_rb,5.5979e-02_rb,9.2318e-03_rb/)\n      kbo(:, 1,35, 6) = (/ &\n     &2.2432e-02_rb,3.3575e-02_rb,3.1770e-02_rb,2.5159e-02_rb,7.1825e-03_rb/)\n      kbo(:, 2,35, 6) = (/ &\n     &3.1101e-02_rb,4.3743e-02_rb,4.0231e-02_rb,3.0588e-02_rb,7.3372e-03_rb/)\n      kbo(:, 3,35, 6) = (/ &\n     &4.1959e-02_rb,5.6323e-02_rb,5.0491e-02_rb,3.7114e-02_rb,7.4571e-03_rb/)\n      kbo(:, 4,35, 6) = (/ &\n     &5.5361e-02_rb,7.1664e-02_rb,6.2827e-02_rb,4.4829e-02_rb,7.5457e-03_rb/)\n      kbo(:, 5,35, 6) = (/ &\n     &7.1841e-02_rb,8.9995e-02_rb,7.7538e-02_rb,5.3898e-02_rb,7.6098e-03_rb/)\n      kbo(:, 1,36, 6) = (/ &\n     &2.1971e-02_rb,3.2052e-02_rb,2.9773e-02_rb,2.2980e-02_rb,5.9169e-03_rb/)\n      kbo(:, 2,36, 6) = (/ &\n     &3.0496e-02_rb,4.2068e-02_rb,3.8012e-02_rb,2.8228e-02_rb,6.0417e-03_rb/)\n      kbo(:, 3,36, 6) = (/ &\n     &4.1195e-02_rb,5.4532e-02_rb,4.8068e-02_rb,3.4542e-02_rb,6.1403e-03_rb/)\n      kbo(:, 4,36, 6) = (/ &\n     &5.4471e-02_rb,6.9759e-02_rb,6.0254e-02_rb,4.2072e-02_rb,6.2148e-03_rb/)\n      kbo(:, 5,36, 6) = (/ &\n     &7.0911e-02_rb,8.8088e-02_rb,7.4912e-02_rb,5.0992e-02_rb,6.2662e-03_rb/)\n      kbo(:, 1,37, 6) = (/ &\n     &1.9922e-02_rb,2.8852e-02_rb,2.6493e-02_rb,2.0135e-02_rb,4.8546e-03_rb/)\n      kbo(:, 2,37, 6) = (/ &\n     &2.7802e-02_rb,3.8202e-02_rb,3.4133e-02_rb,2.4969e-02_rb,4.9597e-03_rb/)\n      kbo(:, 3,37, 6) = (/ &\n     &3.7750e-02_rb,4.9930e-02_rb,4.3532e-02_rb,3.0816e-02_rb,5.0441e-03_rb/)\n      kbo(:, 4,37, 6) = (/ &\n     &5.0184e-02_rb,6.4346e-02_rb,5.5012e-02_rb,3.7855e-02_rb,5.1082e-03_rb/)\n      kbo(:, 5,37, 6) = (/ &\n     &6.5650e-02_rb,8.1819e-02_rb,6.8970e-02_rb,4.6262e-02_rb,5.1546e-03_rb/)\n      kbo(:, 1,38, 6) = (/ &\n     &1.8261e-02_rb,2.6220e-02_rb,2.3783e-02_rb,1.7789e-02_rb,3.9817e-03_rb/)\n      kbo(:, 2,38, 6) = (/ &\n     &2.5634e-02_rb,3.5047e-02_rb,3.0941e-02_rb,2.2280e-02_rb,4.0729e-03_rb/)\n      kbo(:, 3,38, 6) = (/ &\n     &3.5007e-02_rb,4.6188e-02_rb,3.9826e-02_rb,2.7761e-02_rb,4.1447e-03_rb/)\n      kbo(:, 4,38, 6) = (/ &\n     &4.6818e-02_rb,5.9985e-02_rb,5.0782e-02_rb,3.4412e-02_rb,4.1996e-03_rb/)\n      kbo(:, 5,38, 6) = (/ &\n     &6.1549e-02_rb,7.6851e-02_rb,6.4240e-02_rb,4.2442e-02_rb,4.2409e-03_rb/)\n      kbo(:, 1,39, 6) = (/ &\n     &1.7120e-02_rb,2.4268e-02_rb,2.1723e-02_rb,1.5967e-02_rb,3.2683e-03_rb/)\n      kbo(:, 2,39, 6) = (/ &\n     &2.4172e-02_rb,3.2753e-02_rb,2.8567e-02_rb,2.0215e-02_rb,3.3454e-03_rb/)\n      kbo(:, 3,39, 6) = (/ &\n     &3.3206e-02_rb,4.3552e-02_rb,3.7135e-02_rb,2.5455e-02_rb,3.4062e-03_rb/)\n      kbo(:, 4,39, 6) = (/ &\n     &4.4652e-02_rb,5.7021e-02_rb,4.7802e-02_rb,3.1863e-02_rb,3.4542e-03_rb/)\n      kbo(:, 5,39, 6) = (/ &\n     &5.8989e-02_rb,7.3628e-02_rb,6.1045e-02_rb,3.9701e-02_rb,3.4927e-03_rb/)\n      kbo(:, 1,40, 6) = (/ &\n     &1.4508e-02_rb,2.0729e-02_rb,1.8466e-02_rb,1.3481e-02_rb,2.6735e-03_rb/)\n      kbo(:, 2,40, 6) = (/ &\n     &2.0675e-02_rb,2.8264e-02_rb,2.4526e-02_rb,1.7230e-02_rb,2.7394e-03_rb/)\n      kbo(:, 3,40, 6) = (/ &\n     &2.8640e-02_rb,3.7952e-02_rb,3.2186e-02_rb,2.1896e-02_rb,2.7930e-03_rb/)\n      kbo(:, 4,40, 6) = (/ &\n     &3.8810e-02_rb,5.0166e-02_rb,4.1826e-02_rb,2.7660e-02_rb,2.8356e-03_rb/)\n      kbo(:, 5,40, 6) = (/ &\n     &5.1624e-02_rb,6.5327e-02_rb,5.3925e-02_rb,3.4781e-02_rb,2.8708e-03_rb/)\n      kbo(:, 1,41, 6) = (/ &\n     &1.2173e-02_rb,1.7558e-02_rb,1.5577e-02_rb,1.1317e-02_rb,2.1860e-03_rb/)\n      kbo(:, 2,41, 6) = (/ &\n     &1.7521e-02_rb,2.4204e-02_rb,2.0905e-02_rb,1.4606e-02_rb,2.2431e-03_rb/)\n      kbo(:, 3,41, 6) = (/ &\n     &2.4494e-02_rb,3.2840e-02_rb,2.7710e-02_rb,1.8738e-02_rb,2.2897e-03_rb/)\n      kbo(:, 4,41, 6) = (/ &\n     &3.3465e-02_rb,4.3838e-02_rb,3.6359e-02_rb,2.3890e-02_rb,2.3273e-03_rb/)\n      kbo(:, 5,41, 6) = (/ &\n     &4.4815e-02_rb,5.7614e-02_rb,4.7337e-02_rb,3.0319e-02_rb,2.3593e-03_rb/)\n      kbo(:, 1,42, 6) = (/ &\n     &1.0295e-02_rb,1.4955e-02_rb,1.3204e-02_rb,9.5463e-03_rb,1.7869e-03_rb/)\n      kbo(:, 2,42, 6) = (/ &\n     &1.4969e-02_rb,2.0854e-02_rb,1.7923e-02_rb,1.2449e-02_rb,1.8368e-03_rb/)\n      kbo(:, 3,42, 6) = (/ &\n     &2.1120e-02_rb,2.8597e-02_rb,2.4004e-02_rb,1.6130e-02_rb,1.8766e-03_rb/)\n      kbo(:, 4,42, 6) = (/ &\n     &2.9097e-02_rb,3.8565e-02_rb,3.1822e-02_rb,2.0764e-02_rb,1.9105e-03_rb/)\n      kbo(:, 5,42, 6) = (/ &\n     &3.9250e-02_rb,5.1179e-02_rb,4.1851e-02_rb,2.6620e-02_rb,1.9390e-03_rb/)\n      kbo(:, 1,43, 6) = (/ &\n     &8.5600e-03_rb,1.2537e-02_rb,1.1032e-02_rb,7.9541e-03_rb,1.4581e-03_rb/)\n      kbo(:, 2,43, 6) = (/ &\n     &1.2604e-02_rb,1.7710e-02_rb,1.5163e-02_rb,1.0490e-02_rb,1.5008e-03_rb/)\n      kbo(:, 3,43, 6) = (/ &\n     &1.7986e-02_rb,2.4578e-02_rb,2.0552e-02_rb,1.3738e-02_rb,1.5357e-03_rb/)\n      kbo(:, 4,43, 6) = (/ &\n     &2.5016e-02_rb,3.3532e-02_rb,2.7550e-02_rb,1.7878e-02_rb,1.5671e-03_rb/)\n      kbo(:, 5,43, 6) = (/ &\n     &3.4031e-02_rb,4.4978e-02_rb,3.6624e-02_rb,2.3164e-02_rb,1.5928e-03_rb/)\n      kbo(:, 1,44, 6) = (/ &\n     &7.1102e-03_rb,1.0482e-02_rb,9.1923e-03_rb,6.6123e-03_rb,1.1883e-03_rb/)\n      kbo(:, 2,44, 6) = (/ &\n     &1.0618e-02_rb,1.5014e-02_rb,1.2809e-02_rb,8.8284e-03_rb,1.2254e-03_rb/)\n      kbo(:, 3,44, 6) = (/ &\n     &1.5336e-02_rb,2.1109e-02_rb,1.7587e-02_rb,1.1700e-02_rb,1.2566e-03_rb/)\n      kbo(:, 4,44, 6) = (/ &\n     &2.1558e-02_rb,2.9159e-02_rb,2.3862e-02_rb,1.5404e-02_rb,1.2849e-03_rb/)\n      kbo(:, 5,44, 6) = (/ &\n     &2.9601e-02_rb,3.9572e-02_rb,3.2092e-02_rb,2.0188e-02_rb,1.3081e-03_rb/)\n      kbo(:, 1,45, 6) = (/ &\n     &5.9959e-03_rb,8.8564e-03_rb,7.7363e-03_rb,5.5453e-03_rb,9.6825e-04_rb/)\n      kbo(:, 2,45, 6) = (/ &\n     &9.0798e-03_rb,1.2878e-02_rb,1.0936e-02_rb,7.5039e-03_rb,1.0003e-03_rb/)\n      kbo(:, 3,45, 6) = (/ &\n     &1.3290e-02_rb,1.8346e-02_rb,1.5227e-02_rb,1.0074e-02_rb,1.0284e-03_rb/)\n      kbo(:, 4,45, 6) = (/ &\n     &1.8884e-02_rb,2.5678e-02_rb,2.0927e-02_rb,1.3427e-02_rb,1.0535e-03_rb/)\n      kbo(:, 5,45, 6) = (/ &\n     &2.6185e-02_rb,3.5270e-02_rb,2.8485e-02_rb,1.7812e-02_rb,1.0746e-03_rb/)\n      kbo(:, 1,46, 6) = (/ &\n     &5.0299e-03_rb,7.4350e-03_rb,6.4749e-03_rb,4.6277e-03_rb,7.8776e-04_rb/)\n      kbo(:, 2,46, 6) = (/ &\n     &7.7400e-03_rb,1.0992e-02_rb,9.2918e-03_rb,6.3536e-03_rb,8.1609e-04_rb/)\n      kbo(:, 3,46, 6) = (/ &\n     &1.1482e-02_rb,1.5887e-02_rb,1.3136e-02_rb,8.6493e-03_rb,8.4114e-04_rb/)\n      kbo(:, 4,46, 6) = (/ &\n     &1.6521e-02_rb,2.2547e-02_rb,1.8306e-02_rb,1.1680e-02_rb,8.6343e-04_rb/)\n      kbo(:, 5,46, 6) = (/ &\n     &2.3160e-02_rb,3.1365e-02_rb,2.5232e-02_rb,1.5694e-02_rb,8.8222e-04_rb/)\n      kbo(:, 1,47, 6) = (/ &\n     &4.0735e-03_rb,6.0481e-03_rb,5.2664e-03_rb,3.7670e-03_rb,6.3966e-04_rb/)\n      kbo(:, 2,47, 6) = (/ &\n     &6.3819e-03_rb,9.1048e-03_rb,7.6804e-03_rb,5.2485e-03_rb,6.6459e-04_rb/)\n      kbo(:, 3,47, 6) = (/ &\n     &9.6180e-03_rb,1.3376e-02_rb,1.1030e-02_rb,7.2481e-03_rb,6.8646e-04_rb/)\n      kbo(:, 4,47, 6) = (/ &\n     &1.4038e-02_rb,1.9266e-02_rb,1.5600e-02_rb,9.9209e-03_rb,7.0632e-04_rb/)\n      kbo(:, 5,47, 6) = (/ &\n     &1.9923e-02_rb,2.7168e-02_rb,2.1786e-02_rb,1.3500e-02_rb,7.2294e-04_rb/)\n      kbo(:, 1,48, 6) = (/ &\n     &3.3654e-03_rb,4.9911e-03_rb,4.3393e-03_rb,3.1001e-03_rb,5.1894e-04_rb/)\n      kbo(:, 2,48, 6) = (/ &\n     &5.3738e-03_rb,7.6583e-03_rb,6.4413e-03_rb,4.3896e-03_rb,5.4055e-04_rb/)\n      kbo(:, 3,48, 6) = (/ &\n     &8.2348e-03_rb,1.1452e-02_rb,9.4090e-03_rb,6.1594e-03_rb,5.5982e-04_rb/)\n      kbo(:, 4,48, 6) = (/ &\n     &1.2194e-02_rb,1.6751e-02_rb,1.3518e-02_rb,8.5585e-03_rb,5.7759e-04_rb/)\n      kbo(:, 5,48, 6) = (/ &\n     &1.7535e-02_rb,2.3969e-02_rb,1.9153e-02_rb,1.1809e-02_rb,5.9223e-04_rb/)\n      kbo(:, 1,49, 6) = (/ &\n     &2.8714e-03_rb,4.2192e-03_rb,3.6533e-03_rb,2.6003e-03_rb,4.2066e-04_rb/)\n      kbo(:, 2,49, 6) = (/ &\n     &4.6796e-03_rb,6.6096e-03_rb,5.5332e-03_rb,3.7482e-03_rb,4.3948e-04_rb/)\n      kbo(:, 3,49, 6) = (/ &\n     &7.3002e-03_rb,1.0080e-02_rb,8.2347e-03_rb,5.3596e-03_rb,4.5652e-04_rb/)\n      kbo(:, 4,49, 6) = (/ &\n     &1.0971e-02_rb,1.4981e-02_rb,1.2046e-02_rb,7.5739e-03_rb,4.7234e-04_rb/)\n      kbo(:, 5,49, 6) = (/ &\n     &1.5995e-02_rb,2.1767e-02_rb,1.7330e-02_rb,1.0614e-02_rb,4.8568e-04_rb/)\n      kbo(:, 1,50, 6) = (/ &\n     &2.3434e-03_rb,3.4410e-03_rb,2.9786e-03_rb,2.1205e-03_rb,3.4069e-04_rb/)\n      kbo(:, 2,50, 6) = (/ &\n     &3.8971e-03_rb,5.4992e-03_rb,4.5940e-03_rb,3.1036e-03_rb,3.5714e-04_rb/)\n      kbo(:, 3,50, 6) = (/ &\n     &6.1900e-03_rb,8.5460e-03_rb,6.9553e-03_rb,4.5152e-03_rb,3.7212e-04_rb/)\n      kbo(:, 4,50, 6) = (/ &\n     &9.4451e-03_rb,1.2909e-02_rb,1.0349e-02_rb,6.4854e-03_rb,3.8582e-04_rb/)\n      kbo(:, 5,50, 6) = (/ &\n     &1.3954e-02_rb,1.9042e-02_rb,1.5119e-02_rb,9.2171e-03_rb,3.9788e-04_rb/)\n      kbo(:, 1,51, 6) = (/ &\n     &1.8670e-03_rb,2.7492e-03_rb,2.3841e-03_rb,1.7021e-03_rb,2.7578e-04_rb/)\n      kbo(:, 2,51, 6) = (/ &\n     &3.1678e-03_rb,4.4826e-03_rb,3.7408e-03_rb,2.5267e-03_rb,2.9005e-04_rb/)\n      kbo(:, 3,51, 6) = (/ &\n     &5.1260e-03_rb,7.0985e-03_rb,5.7656e-03_rb,3.7383e-03_rb,3.0300e-04_rb/)\n      kbo(:, 4,51, 6) = (/ &\n     &7.9439e-03_rb,1.0904e-02_rb,8.7196e-03_rb,5.4539e-03_rb,3.1487e-04_rb/)\n      kbo(:, 5,51, 6) = (/ &\n     &1.1900e-02_rb,1.6326e-02_rb,1.2929e-02_rb,7.8597e-03_rb,3.2578e-04_rb/)\n      kbo(:, 1,52, 6) = (/ &\n     &1.5181e-03_rb,2.2298e-03_rb,1.9337e-03_rb,1.3821e-03_rb,2.2294e-04_rb/)\n      kbo(:, 2,52, 6) = (/ &\n     &2.6323e-03_rb,3.7113e-03_rb,3.0904e-03_rb,2.0844e-03_rb,2.3535e-04_rb/)\n      kbo(:, 3,52, 6) = (/ &\n     &4.3389e-03_rb,5.9943e-03_rb,4.8574e-03_rb,3.1382e-03_rb,2.4655e-04_rb/)\n      kbo(:, 4,52, 6) = (/ &\n     &6.8363e-03_rb,9.3770e-03_rb,7.4736e-03_rb,4.6599e-03_rb,2.5711e-04_rb/)\n      kbo(:, 5,52, 6) = (/ &\n     &1.0389e-02_rb,1.4256e-02_rb,1.1263e-02_rb,6.8242e-03_rb,2.6665e-04_rb/)\n      kbo(:, 1,53, 6) = (/ &\n     &1.2752e-03_rb,1.8531e-03_rb,1.6024e-03_rb,1.1428e-03_rb,1.8014e-04_rb/)\n      kbo(:, 2,53, 6) = (/ &\n     &2.2594e-03_rb,3.1508e-03_rb,2.6140e-03_rb,1.7561e-03_rb,1.9085e-04_rb/)\n      kbo(:, 3,53, 6) = (/ &\n     &3.7990e-03_rb,5.2013e-03_rb,4.1982e-03_rb,2.6961e-03_rb,2.0067e-04_rb/)\n      kbo(:, 4,53, 6) = (/ &\n     &6.0922e-03_rb,8.2959e-03_rb,6.5816e-03_rb,4.0835e-03_rb,2.0982e-04_rb/)\n      kbo(:, 5,53, 6) = (/ &\n     &9.3947e-03_rb,1.2809e-02_rb,1.0095e-02_rb,6.0875e-03_rb,2.1819e-04_rb/)\n      kbo(:, 1,54, 6) = (/ &\n     &9.3663e-04_rb,1.3820e-03_rb,1.2040e-03_rb,8.6807e-04_rb,1.4544e-04_rb/)\n      kbo(:, 2,54, 6) = (/ &\n     &1.6914e-03_rb,2.3887e-03_rb,1.9911e-03_rb,1.3482e-03_rb,1.5460e-04_rb/)\n      kbo(:, 3,54, 6) = (/ &\n     &2.8997e-03_rb,4.0201e-03_rb,3.2494e-03_rb,2.0953e-03_rb,1.6297e-04_rb/)\n      kbo(:, 4,54, 6) = (/ &\n     &4.7306e-03_rb,6.5273e-03_rb,5.1758e-03_rb,3.2189e-03_rb,1.7075e-04_rb/)\n      kbo(:, 5,54, 6) = (/ &\n     &7.3984e-03_rb,1.0238e-02_rb,8.0539e-03_rb,4.8622e-03_rb,1.7797e-04_rb/)\n      kbo(:, 1,55, 6) = (/ &\n     &6.2935e-04_rb,9.5969e-04_rb,8.4900e-04_rb,6.2465e-04_rb,1.1738e-04_rb/)\n      kbo(:, 2,55, 6) = (/ &\n     &1.1558e-03_rb,1.6799e-03_rb,1.4161e-03_rb,9.7472e-04_rb,1.2508e-04_rb/)\n      kbo(:, 3,55, 6) = (/ &\n     &2.0209e-03_rb,2.8749e-03_rb,2.3378e-03_rb,1.5244e-03_rb,1.3211e-04_rb/)\n      kbo(:, 4,55, 6) = (/ &\n     &3.3522e-03_rb,4.7482e-03_rb,3.7736e-03_rb,2.3654e-03_rb,1.3870e-04_rb/)\n      kbo(:, 5,55, 6) = (/ &\n     &5.3187e-03_rb,7.5686e-03_rb,5.9480e-03_rb,3.6106e-03_rb,1.4478e-04_rb/)\n      kbo(:, 1,56, 6) = (/ &\n     &4.2101e-04_rb,6.6332e-04_rb,5.9672e-04_rb,4.4860e-04_rb,9.4587e-05_rb/)\n      kbo(:, 2,56, 6) = (/ &\n     &7.8466e-04_rb,1.1752e-03_rb,1.0029e-03_rb,7.0318e-04_rb,1.0112e-04_rb/)\n      kbo(:, 3,56, 6) = (/ &\n     &1.3999e-03_rb,2.0432e-03_rb,1.6739e-03_rb,1.1053e-03_rb,1.0709e-04_rb/)\n      kbo(:, 4,56, 6) = (/ &\n     &2.3635e-03_rb,3.4329e-03_rb,2.7372e-03_rb,1.7318e-03_rb,1.1258e-04_rb/)\n      kbo(:, 5,56, 6) = (/ &\n     &3.8069e-03_rb,5.5637e-03_rb,4.3696e-03_rb,2.6702e-03_rb,1.1773e-04_rb/)\n      kbo(:, 1,57, 6) = (/ &\n     &2.8076e-04_rb,4.5641e-04_rb,4.1815e-04_rb,3.2142e-04_rb,7.6115e-05_rb/)\n      kbo(:, 2,57, 6) = (/ &\n     &5.2895e-04_rb,8.1778e-04_rb,7.0771e-04_rb,5.0616e-04_rb,8.1716e-05_rb/)\n      kbo(:, 3,57, 6) = (/ &\n     &9.6334e-04_rb,1.4422e-03_rb,1.1917e-03_rb,7.9834e-04_rb,8.6757e-05_rb/)\n      kbo(:, 4,57, 6) = (/ &\n     &1.6571e-03_rb,2.4651e-03_rb,1.9746e-03_rb,1.2622e-03_rb,9.1332e-05_rb/)\n      kbo(:, 5,57, 6) = (/ &\n     &2.7119e-03_rb,4.0628e-03_rb,3.1926e-03_rb,1.9661e-03_rb,9.5684e-05_rb/)\n      kbo(:, 1,58, 6) = (/ &\n     &4.9720e-05_rb,1.0269e-04_rb,1.2366e-04_rb,1.3663e-04_rb,6.1273e-05_rb/)\n      kbo(:, 2,58, 6) = (/ &\n     &9.4473e-05_rb,1.8553e-04_rb,2.1007e-04_rb,2.1548e-04_rb,6.5992e-05_rb/)\n      kbo(:, 3,58, 6) = (/ &\n     &1.7530e-04_rb,3.3103e-04_rb,3.5575e-04_rb,3.4010e-04_rb,7.0239e-05_rb/)\n      kbo(:, 4,58, 6) = (/ &\n     &3.0720e-04_rb,5.7469e-04_rb,5.9600e-04_rb,5.4082e-04_rb,7.4141e-05_rb/)\n      kbo(:, 5,58, 6) = (/ &\n     &5.1103e-04_rb,9.6242e-04_rb,9.7487e-04_rb,8.4973e-04_rb,7.7747e-05_rb/)\n      kbo(:, 1,59, 6) = (/ &\n     &4.4314e-05_rb,9.6972e-05_rb,1.1293e-04_rb,1.1582e-04_rb,4.9949e-05_rb/)\n      kbo(:, 2,59, 6) = (/ &\n     &8.4700e-05_rb,1.7358e-04_rb,1.8881e-04_rb,1.7917e-04_rb,5.3859e-05_rb/)\n      kbo(:, 3,59, 6) = (/ &\n     &1.5856e-04_rb,3.0848e-04_rb,3.1562e-04_rb,2.7815e-04_rb,5.7310e-05_rb/)\n      kbo(:, 4,59, 6) = (/ &\n     &2.8032e-04_rb,5.3615e-04_rb,5.2587e-04_rb,4.3688e-04_rb,6.0507e-05_rb/)\n      kbo(:, 5,59, 6) = (/ &\n     &4.7008e-04_rb,9.0261e-04_rb,8.5908e-04_rb,6.8167e-04_rb,6.3447e-05_rb/)\n      kbo(:, 1,13, 7) = (/ &\n     &3.5002e+00_rb,2.8426e+00_rb,2.2229e+00_rb,1.5940e+00_rb,4.6284e-01_rb/)\n      kbo(:, 2,13, 7) = (/ &\n     &5.2764e+00_rb,4.1532e+00_rb,3.0774e+00_rb,2.0245e+00_rb,4.6449e-01_rb/)\n      kbo(:, 3,13, 7) = (/ &\n     &7.6096e+00_rb,5.8846e+00_rb,4.2048e+00_rb,2.5664e+00_rb,4.6564e-01_rb/)\n      kbo(:, 4,13, 7) = (/ &\n     &1.0545e+01_rb,8.0718e+00_rb,5.6353e+00_rb,3.2573e+00_rb,4.6805e-01_rb/)\n      kbo(:, 5,13, 7) = (/ &\n     &1.4101e+01_rb,1.0726e+01_rb,7.3776e+00_rb,4.1071e+00_rb,4.6959e-01_rb/)\n      kbo(:, 1,14, 7) = (/ &\n     &1.9332e+00_rb,1.6833e+00_rb,1.4584e+00_rb,1.1419e+00_rb,4.2549e-01_rb/)\n      kbo(:, 2,14, 7) = (/ &\n     &2.9208e+00_rb,2.4028e+00_rb,1.9264e+00_rb,1.4148e+00_rb,4.2845e-01_rb/)\n      kbo(:, 3,14, 7) = (/ &\n     &4.2111e+00_rb,3.3491e+00_rb,2.5401e+00_rb,1.7447e+00_rb,4.2997e-01_rb/)\n      kbo(:, 4,14, 7) = (/ &\n     &5.8219e+00_rb,4.5369e+00_rb,3.3137e+00_rb,2.1374e+00_rb,4.3233e-01_rb/)\n      kbo(:, 5,14, 7) = (/ &\n     &7.7805e+00_rb,5.9890e+00_rb,4.2588e+00_rb,2.5955e+00_rb,4.3475e-01_rb/)\n      kbo(:, 1,15, 7) = (/ &\n     &1.0958e+00_rb,1.0674e+00_rb,1.0130e+00_rb,8.4961e-01_rb,3.8730e-01_rb/)\n      kbo(:, 2,15, 7) = (/ &\n     &1.6536e+00_rb,1.4690e+00_rb,1.3041e+00_rb,1.0292e+00_rb,3.9101e-01_rb/)\n      kbo(:, 3,15, 7) = (/ &\n     &2.3745e+00_rb,1.9914e+00_rb,1.6603e+00_rb,1.2452e+00_rb,3.9344e-01_rb/)\n      kbo(:, 4,15, 7) = (/ &\n     &3.2750e+00_rb,2.6468e+00_rb,2.0887e+00_rb,1.4951e+00_rb,3.9613e-01_rb/)\n      kbo(:, 5,15, 7) = (/ &\n     &4.3749e+00_rb,3.4526e+00_rb,2.6092e+00_rb,1.7780e+00_rb,3.9900e-01_rb/)\n      kbo(:, 1,16, 7) = (/ &\n     &7.4165e-01_rb,8.0405e-01_rb,7.9283e-01_rb,6.9114e-01_rb,3.4911e-01_rb/)\n      kbo(:, 2,16, 7) = (/ &\n     &1.1136e+00_rb,1.0786e+00_rb,1.0091e+00_rb,8.2862e-01_rb,3.5314e-01_rb/)\n      kbo(:, 3,16, 7) = (/ &\n     &1.5923e+00_rb,1.4242e+00_rb,1.2681e+00_rb,9.9143e-01_rb,3.5636e-01_rb/)\n      kbo(:, 4,16, 7) = (/ &\n     &2.1926e+00_rb,1.8566e+00_rb,1.5712e+00_rb,1.1771e+00_rb,3.6013e-01_rb/)\n      kbo(:, 5,16, 7) = (/ &\n     &2.9285e+00_rb,2.3901e+00_rb,1.9279e+00_rb,1.3859e+00_rb,3.6399e-01_rb/)\n      kbo(:, 1,17, 7) = (/ &\n     &5.1887e-01_rb,6.2476e-01_rb,6.3724e-01_rb,5.7083e-01_rb,3.1167e-01_rb/)\n      kbo(:, 2,17, 7) = (/ &\n     &7.7486e-01_rb,8.2693e-01_rb,8.0143e-01_rb,6.7854e-01_rb,3.1621e-01_rb/)\n      kbo(:, 3,17, 7) = (/ &\n     &1.1045e+00_rb,1.0746e+00_rb,9.9649e-01_rb,8.0449e-01_rb,3.2014e-01_rb/)\n      kbo(:, 4,17, 7) = (/ &\n     &1.5180e+00_rb,1.3742e+00_rb,1.2231e+00_rb,9.4686e-01_rb,3.2461e-01_rb/)\n      kbo(:, 5,17, 7) = (/ &\n     &2.0257e+00_rb,1.7386e+00_rb,1.4858e+00_rb,1.1069e+00_rb,3.2955e-01_rb/)\n      kbo(:, 1,18, 7) = (/ &\n     &3.7097e-01_rb,4.9432e-01_rb,5.1840e-01_rb,4.7504e-01_rb,2.7614e-01_rb/)\n      kbo(:, 2,18, 7) = (/ &\n     &5.5115e-01_rb,6.4712e-01_rb,6.4514e-01_rb,5.6072e-01_rb,2.8084e-01_rb/)\n      kbo(:, 3,18, 7) = (/ &\n     &7.8296e-01_rb,8.3225e-01_rb,7.9447e-01_rb,6.5954e-01_rb,2.8571e-01_rb/)\n      kbo(:, 4,18, 7) = (/ &\n     &1.0738e+00_rb,1.0535e+00_rb,9.6779e-01_rb,7.7088e-01_rb,2.9112e-01_rb/)\n      kbo(:, 5,18, 7) = (/ &\n     &1.4335e+00_rb,1.3170e+00_rb,1.1664e+00_rb,8.9595e-01_rb,2.9703e-01_rb/)\n      kbo(:, 1,19, 7) = (/ &\n     &2.5985e-01_rb,3.8651e-01_rb,4.1602e-01_rb,3.9308e-01_rb,2.4307e-01_rb/)\n      kbo(:, 2,19, 7) = (/ &\n     &3.8422e-01_rb,5.0067e-01_rb,5.1275e-01_rb,4.5968e-01_rb,2.4809e-01_rb/)\n      kbo(:, 3,19, 7) = (/ &\n     &5.4420e-01_rb,6.3764e-01_rb,6.2617e-01_rb,5.3586e-01_rb,2.5358e-01_rb/)\n      kbo(:, 4,19, 7) = (/ &\n     &7.4603e-01_rb,7.9981e-01_rb,7.5671e-01_rb,6.2198e-01_rb,2.5998e-01_rb/)\n      kbo(:, 5,19, 7) = (/ &\n     &9.9708e-01_rb,9.9236e-01_rb,9.0617e-01_rb,7.1829e-01_rb,2.6615e-01_rb/)\n      kbo(:, 1,20, 7) = (/ &\n     &1.9760e-01_rb,3.1836e-01_rb,3.4770e-01_rb,3.3477e-01_rb,2.1277e-01_rb/)\n      kbo(:, 2,20, 7) = (/ &\n     &2.9095e-01_rb,4.0925e-01_rb,4.2592e-01_rb,3.8937e-01_rb,2.1827e-01_rb/)\n      kbo(:, 3,20, 7) = (/ &\n     &4.1127e-01_rb,5.1768e-01_rb,5.1739e-01_rb,4.5140e-01_rb,2.2458e-01_rb/)\n      kbo(:, 4,20, 7) = (/ &\n     &5.6427e-01_rb,6.4625e-01_rb,6.2247e-01_rb,5.2174e-01_rb,2.3101e-01_rb/)\n      kbo(:, 5,20, 7) = (/ &\n     &7.5526e-01_rb,7.9836e-01_rb,7.4304e-01_rb,6.0027e-01_rb,2.3711e-01_rb/)\n      kbo(:, 1,21, 7) = (/ &\n     &1.5484e-01_rb,2.6582e-01_rb,2.9382e-01_rb,2.8708e-01_rb,1.8550e-01_rb/)\n      kbo(:, 2,21, 7) = (/ &\n     &2.2722e-01_rb,3.3963e-01_rb,3.5832e-01_rb,3.3257e-01_rb,1.9141e-01_rb/)\n      kbo(:, 3,21, 7) = (/ &\n     &3.2108e-01_rb,4.2782e-01_rb,4.3333e-01_rb,3.8435e-01_rb,1.9782e-01_rb/)\n      kbo(:, 4,21, 7) = (/ &\n     &4.4098e-01_rb,5.3304e-01_rb,5.1997e-01_rb,4.4275e-01_rb,2.0379e-01_rb/)\n      kbo(:, 5,21, 7) = (/ &\n     &5.9030e-01_rb,6.5709e-01_rb,6.1970e-01_rb,5.0864e-01_rb,2.0956e-01_rb/)\n      kbo(:, 1,22, 7) = (/ &\n     &1.2753e-01_rb,2.2781e-01_rb,2.5360e-01_rb,2.4962e-01_rb,1.6164e-01_rb/)\n      kbo(:, 2,22, 7) = (/ &\n     &1.8637e-01_rb,2.8970e-01_rb,3.0789e-01_rb,2.8854e-01_rb,1.6761e-01_rb/)\n      kbo(:, 3,22, 7) = (/ &\n     &2.6299e-01_rb,3.6404e-01_rb,3.7114e-01_rb,3.3280e-01_rb,1.7333e-01_rb/)\n      kbo(:, 4,22, 7) = (/ &\n     &3.6059e-01_rb,4.5267e-01_rb,4.4472e-01_rb,3.8285e-01_rb,1.7883e-01_rb/)\n      kbo(:, 5,22, 7) = (/ &\n     &4.8104e-01_rb,5.5702e-01_rb,5.2923e-01_rb,4.3976e-01_rb,1.8428e-01_rb/)\n      kbo(:, 1,23, 7) = (/ &\n     &1.0589e-01_rb,1.9529e-01_rb,2.1876e-01_rb,2.1679e-01_rb,1.4037e-01_rb/)\n      kbo(:, 2,23, 7) = (/ &\n     &1.5420e-01_rb,2.4758e-01_rb,2.6461e-01_rb,2.5042e-01_rb,1.4579e-01_rb/)\n      kbo(:, 3,23, 7) = (/ &\n     &2.1702e-01_rb,3.1068e-01_rb,3.1854e-01_rb,2.8852e-01_rb,1.5094e-01_rb/)\n      kbo(:, 4,23, 7) = (/ &\n     &2.9661e-01_rb,3.8564e-01_rb,3.8128e-01_rb,3.3195e-01_rb,1.5614e-01_rb/)\n      kbo(:, 5,23, 7) = (/ &\n     &3.9397e-01_rb,4.7355e-01_rb,4.5341e-01_rb,3.8121e-01_rb,1.6132e-01_rb/)\n      kbo(:, 1,24, 7) = (/ &\n     &8.7788e-02_rb,1.6668e-01_rb,1.8799e-01_rb,1.8780e-01_rb,1.2140e-01_rb/)\n      kbo(:, 2,24, 7) = (/ &\n     &1.2734e-01_rb,2.1083e-01_rb,2.2703e-01_rb,2.1652e-01_rb,1.2618e-01_rb/)\n      kbo(:, 3,24, 7) = (/ &\n     &1.7857e-01_rb,2.6413e-01_rb,2.7303e-01_rb,2.4936e-01_rb,1.3098e-01_rb/)\n      kbo(:, 4,24, 7) = (/ &\n     &2.4296e-01_rb,3.2721e-01_rb,3.2661e-01_rb,2.8698e-01_rb,1.3586e-01_rb/)\n      kbo(:, 5,24, 7) = (/ &\n     &3.2098e-01_rb,4.0055e-01_rb,3.8785e-01_rb,3.2936e-01_rb,1.4075e-01_rb/)\n      kbo(:, 1,25, 7) = (/ &\n     &7.4114e-02_rb,1.4357e-01_rb,1.6268e-01_rb,1.6299e-01_rb,1.0454e-01_rb/)\n      kbo(:, 2,25, 7) = (/ &\n     &1.0696e-01_rb,1.8148e-01_rb,1.9639e-01_rb,1.8781e-01_rb,1.0890e-01_rb/)\n      kbo(:, 3,25, 7) = (/ &\n     &1.4921e-01_rb,2.2686e-01_rb,2.3627e-01_rb,2.1648e-01_rb,1.1337e-01_rb/)\n      kbo(:, 4,25, 7) = (/ &\n     &2.0169e-01_rb,2.8030e-01_rb,2.8233e-01_rb,2.4913e-01_rb,1.1793e-01_rb/)\n      kbo(:, 5,25, 7) = (/ &\n     &2.6511e-01_rb,3.4240e-01_rb,3.3494e-01_rb,2.8598e-01_rb,1.2261e-01_rb/)\n      kbo(:, 1,26, 7) = (/ &\n     &6.4102e-02_rb,1.2562e-01_rb,1.4220e-01_rb,1.4209e-01_rb,8.9836e-02_rb/)\n      kbo(:, 2,26, 7) = (/ &\n     &9.1903e-02_rb,1.5853e-01_rb,1.7179e-01_rb,1.6391e-01_rb,9.3830e-02_rb/)\n      kbo(:, 3,26, 7) = (/ &\n     &1.2732e-01_rb,1.9782e-01_rb,2.0670e-01_rb,1.8917e-01_rb,9.8002e-02_rb/)\n      kbo(:, 4,26, 7) = (/ &\n     &1.7095e-01_rb,2.4388e-01_rb,2.4691e-01_rb,2.1801e-01_rb,1.0234e-01_rb/)\n      kbo(:, 5,26, 7) = (/ &\n     &2.2376e-01_rb,2.9731e-01_rb,2.9277e-01_rb,2.5044e-01_rb,1.0674e-01_rb/)\n      kbo(:, 1,27, 7) = (/ &\n     &5.7622e-02_rb,1.1249e-01_rb,1.2636e-01_rb,1.2511e-01_rb,7.7055e-02_rb/)\n      kbo(:, 2,27, 7) = (/ &\n     &8.1983e-02_rb,1.4196e-01_rb,1.5312e-01_rb,1.4485e-01_rb,8.0791e-02_rb/)\n      kbo(:, 3,27, 7) = (/ &\n     &1.1275e-01_rb,1.7697e-01_rb,1.8437e-01_rb,1.6781e-01_rb,8.4713e-02_rb/)\n      kbo(:, 4,27, 7) = (/ &\n     &1.5055e-01_rb,2.1794e-01_rb,2.2039e-01_rb,1.9390e-01_rb,8.8731e-02_rb/)\n      kbo(:, 5,27, 7) = (/ &\n     &1.9638e-01_rb,2.6555e-01_rb,2.6132e-01_rb,2.2312e-01_rb,9.2655e-02_rb/)\n      kbo(:, 1,28, 7) = (/ &\n     &5.3140e-02_rb,1.0241e-01_rb,1.1379e-01_rb,1.1112e-01_rb,6.6059e-02_rb/)\n      kbo(:, 2,28, 7) = (/ &\n     &7.5045e-02_rb,1.2928e-01_rb,1.3817e-01_rb,1.2935e-01_rb,6.9529e-02_rb/)\n      kbo(:, 3,28, 7) = (/ &\n     &1.0252e-01_rb,1.6119e-01_rb,1.6672e-01_rb,1.5050e-01_rb,7.3142e-02_rb/)\n      kbo(:, 4,28, 7) = (/ &\n     &1.3625e-01_rb,1.9862e-01_rb,1.9953e-01_rb,1.7444e-01_rb,7.6746e-02_rb/)\n      kbo(:, 5,28, 7) = (/ &\n     &1.7752e-01_rb,2.4214e-01_rb,2.3714e-01_rb,2.0133e-01_rb,7.9941e-02_rb/)\n      kbo(:, 1,29, 7) = (/ &\n     &5.2099e-02_rb,9.6941e-02_rb,1.0563e-01_rb,1.0097e-01_rb,5.6668e-02_rb/)\n      kbo(:, 2,29, 7) = (/ &\n     &7.3009e-02_rb,1.2266e-01_rb,1.2890e-01_rb,1.1850e-01_rb,5.9859e-02_rb/)\n      kbo(:, 3,29, 7) = (/ &\n     &9.9110e-02_rb,1.5322e-01_rb,1.5608e-01_rb,1.3860e-01_rb,6.3089e-02_rb/)\n      kbo(:, 4,29, 7) = (/ &\n     &1.3136e-01_rb,1.8918e-01_rb,1.8750e-01_rb,1.6146e-01_rb,6.6000e-02_rb/)\n      kbo(:, 5,29, 7) = (/ &\n     &1.7133e-01_rb,2.3120e-01_rb,2.2375e-01_rb,1.8721e-01_rb,6.8384e-02_rb/)\n      kbo(:, 1,30, 7) = (/ &\n     &5.2298e-02_rb,9.3477e-02_rb,9.9631e-02_rb,9.3041e-02_rb,4.8653e-02_rb/)\n      kbo(:, 2,30, 7) = (/ &\n     &7.2744e-02_rb,1.1854e-01_rb,1.2224e-01_rb,1.0996e-01_rb,5.1507e-02_rb/)\n      kbo(:, 3,30, 7) = (/ &\n     &9.8307e-02_rb,1.4854e-01_rb,1.4866e-01_rb,1.2943e-01_rb,5.4141e-02_rb/)\n      kbo(:, 4,30, 7) = (/ &\n     &1.3030e-01_rb,1.8393e-01_rb,1.7946e-01_rb,1.5167e-01_rb,5.6316e-02_rb/)\n      kbo(:, 5,30, 7) = (/ &\n     &1.7017e-01_rb,2.2583e-01_rb,2.1516e-01_rb,1.7690e-01_rb,5.8003e-02_rb/)\n      kbo(:, 1,31, 7) = (/ &\n     &5.5237e-02_rb,9.3530e-02_rb,9.7080e-02_rb,8.7885e-02_rb,4.1801e-02_rb/)\n      kbo(:, 2,31, 7) = (/ &\n     &7.6342e-02_rb,1.1917e-01_rb,1.1987e-01_rb,1.0485e-01_rb,4.4162e-02_rb/)\n      kbo(:, 3,31, 7) = (/ &\n     &1.0297e-01_rb,1.4987e-01_rb,1.4665e-01_rb,1.2435e-01_rb,4.6139e-02_rb/)\n      kbo(:, 4,31, 7) = (/ &\n     &1.3657e-01_rb,1.8654e-01_rb,1.7810e-01_rb,1.4680e-01_rb,4.7704e-02_rb/)\n      kbo(:, 5,31, 7) = (/ &\n     &1.7842e-01_rb,2.3057e-01_rb,2.1509e-01_rb,1.7253e-01_rb,4.8947e-02_rb/)\n      kbo(:, 1,32, 7) = (/ &\n     &5.9027e-02_rb,9.4969e-02_rb,9.5943e-02_rb,8.4194e-02_rb,3.5812e-02_rb/)\n      kbo(:, 2,32, 7) = (/ &\n     &8.1201e-02_rb,1.2151e-01_rb,1.1922e-01_rb,1.0130e-01_rb,3.7617e-02_rb/)\n      kbo(:, 3,32, 7) = (/ &\n     &1.0955e-01_rb,1.5358e-01_rb,1.4681e-01_rb,1.2117e-01_rb,3.9058e-02_rb/)\n      kbo(:, 4,32, 7) = (/ &\n     &1.4540e-01_rb,1.9256e-01_rb,1.7966e-01_rb,1.4421e-01_rb,4.0236e-02_rb/)\n      kbo(:, 5,32, 7) = (/ &\n     &1.8982e-01_rb,2.3938e-01_rb,2.1889e-01_rb,1.7084e-01_rb,4.1181e-02_rb/)\n      kbo(:, 1,33, 7) = (/ &\n     &6.4219e-02_rb,9.8255e-02_rb,9.6625e-02_rb,8.2099e-02_rb,3.0519e-02_rb/)\n      kbo(:, 2,33, 7) = (/ &\n     &8.8246e-02_rb,1.2633e-01_rb,1.2088e-01_rb,9.9705e-02_rb,3.1855e-02_rb/)\n      kbo(:, 3,33, 7) = (/ &\n     &1.1912e-01_rb,1.6083e-01_rb,1.5001e-01_rb,1.2028e-01_rb,3.2953e-02_rb/)\n      kbo(:, 4,33, 7) = (/ &\n     &1.5802e-01_rb,2.0300e-01_rb,1.8528e-01_rb,1.4442e-01_rb,3.3850e-02_rb/)\n      kbo(:, 5,33, 7) = (/ &\n     &2.0596e-01_rb,2.5392e-01_rb,2.2791e-01_rb,1.7303e-01_rb,3.4585e-02_rb/)\n      kbo(:, 1,34, 7) = (/ &\n     &6.7485e-02_rb,9.9620e-02_rb,9.5868e-02_rb,7.9332e-02_rb,2.5830e-02_rb/)\n      kbo(:, 2,34, 7) = (/ &\n     &9.2815e-02_rb,1.2890e-01_rb,1.2075e-01_rb,9.7213e-02_rb,2.6848e-02_rb/)\n      kbo(:, 3,34, 7) = (/ &\n     &1.2537e-01_rb,1.6529e-01_rb,1.5122e-01_rb,1.1822e-01_rb,2.7699e-02_rb/)\n      kbo(:, 4,34, 7) = (/ &\n     &1.6617e-01_rb,2.0989e-01_rb,1.8860e-01_rb,1.4346e-01_rb,2.8411e-02_rb/)\n      kbo(:, 5,34, 7) = (/ &\n     &2.1641e-01_rb,2.6338e-01_rb,2.3365e-01_rb,1.7367e-01_rb,2.9006e-02_rb/)\n      kbo(:, 1,35, 7) = (/ &\n     &6.9002e-02_rb,9.9168e-02_rb,9.3611e-02_rb,7.5846e-02_rb,2.1704e-02_rb/)\n      kbo(:, 2,35, 7) = (/ &\n     &9.5177e-02_rb,1.2935e-01_rb,1.1903e-01_rb,9.3690e-02_rb,2.2517e-02_rb/)\n      kbo(:, 3,35, 7) = (/ &\n     &1.2872e-01_rb,1.6713e-01_rb,1.5066e-01_rb,1.1518e-01_rb,2.3202e-02_rb/)\n      kbo(:, 4,35, 7) = (/ &\n     &1.7076e-01_rb,2.1347e-01_rb,1.8964e-01_rb,1.4135e-01_rb,2.3785e-02_rb/)\n      kbo(:, 5,35, 7) = (/ &\n     &2.2264e-01_rb,2.6908e-01_rb,2.3665e-01_rb,1.7298e-01_rb,2.4252e-02_rb/)\n      kbo(:, 1,36, 7) = (/ &\n     &6.7865e-02_rb,9.5879e-02_rb,8.9211e-02_rb,7.0981e-02_rb,1.8133e-02_rb/)\n      kbo(:, 2,36, 7) = (/ &\n     &9.4007e-02_rb,1.2625e-01_rb,1.1466e-01_rb,8.8573e-02_rb,1.8797e-02_rb/)\n      kbo(:, 3,36, 7) = (/ &\n     &1.2751e-01_rb,1.6450e-01_rb,1.4669e-01_rb,1.1023e-01_rb,1.9364e-02_rb/)\n      kbo(:, 4,36, 7) = (/ &\n     &1.6969e-01_rb,2.1129e-01_rb,1.8634e-01_rb,1.3684e-01_rb,1.9848e-02_rb/)\n      kbo(:, 5,36, 7) = (/ &\n     &2.2199e-01_rb,2.6776e-01_rb,2.3416e-01_rb,1.6920e-01_rb,2.0253e-02_rb/)\n      kbo(:, 1,37, 7) = (/ &\n     &6.1910e-02_rb,8.7392e-02_rb,8.0722e-02_rb,6.3503e-02_rb,1.5050e-02_rb/)\n      kbo(:, 2,37, 7) = (/ &\n     &8.6402e-02_rb,1.1634e-01_rb,1.0496e-01_rb,8.0172e-02_rb,1.5605e-02_rb/)\n      kbo(:, 3,37, 7) = (/ &\n     &1.1792e-01_rb,1.5301e-01_rb,1.3575e-01_rb,1.0102e-01_rb,1.6089e-02_rb/)\n      kbo(:, 4,37, 7) = (/ &\n     &1.5786e-01_rb,1.9811e-01_rb,1.7416e-01_rb,1.2688e-01_rb,1.6504e-02_rb/)\n      kbo(:, 5,37, 7) = (/ &\n     &2.0776e-01_rb,2.5283e-01_rb,2.2073e-01_rb,1.5856e-01_rb,1.6861e-02_rb/)\n      kbo(:, 1,38, 7) = (/ &\n     &5.7180e-02_rb,8.0434e-02_rb,7.3641e-02_rb,5.7228e-02_rb,1.2479e-02_rb/)\n      kbo(:, 2,38, 7) = (/ &\n     &8.0361e-02_rb,1.0828e-01_rb,9.6955e-02_rb,7.3200e-02_rb,1.2947e-02_rb/)\n      kbo(:, 3,38, 7) = (/ &\n     &1.1043e-01_rb,1.4379e-01_rb,1.2688e-01_rb,9.3375e-02_rb,1.3365e-02_rb/)\n      kbo(:, 4,38, 7) = (/ &\n     &1.4883e-01_rb,1.8786e-01_rb,1.6450e-01_rb,1.1879e-01_rb,1.3732e-02_rb/)\n      kbo(:, 5,38, 7) = (/ &\n     &1.9707e-01_rb,2.4129e-01_rb,2.1013e-01_rb,1.4998e-01_rb,1.4049e-02_rb/)\n      kbo(:, 1,39, 7) = (/ &\n     &5.4044e-02_rb,7.5469e-02_rb,6.8324e-02_rb,5.2315e-02_rb,1.0342e-02_rb/)\n      kbo(:, 2,39, 7) = (/ &\n     &7.6525e-02_rb,1.0279e-01_rb,9.1154e-02_rb,6.7832e-02_rb,1.0747e-02_rb/)\n      kbo(:, 3,39, 7) = (/ &\n     &1.0591e-01_rb,1.3783e-01_rb,1.2080e-01_rb,8.7775e-02_rb,1.1116e-02_rb/)\n      kbo(:, 4,39, 7) = (/ &\n     &1.4369e-01_rb,1.8148e-01_rb,1.5809e-01_rb,1.1309e-01_rb,1.1438e-02_rb/)\n      kbo(:, 5,39, 7) = (/ &\n     &1.9144e-01_rb,2.3501e-01_rb,2.0393e-01_rb,1.4445e-01_rb,1.1716e-02_rb/)\n      kbo(:, 1,40, 7) = (/ &\n     &4.6217e-02_rb,6.5370e-02_rb,5.9012e-02_rb,4.4989e-02_rb,8.5358e-03_rb/)\n      kbo(:, 2,40, 7) = (/ &\n     &6.6114e-02_rb,9.0173e-02_rb,7.9777e-02_rb,5.9045e-02_rb,8.8901e-03_rb/)\n      kbo(:, 3,40, 7) = (/ &\n     &9.2339e-02_rb,1.2222e-01_rb,1.0699e-01_rb,7.7378e-02_rb,9.2084e-03_rb/)\n      kbo(:, 4,40, 7) = (/ &\n     &1.2639e-01_rb,1.6256e-01_rb,1.4164e-01_rb,1.0101e-01_rb,9.4930e-03_rb/)\n      kbo(:, 5,40, 7) = (/ &\n     &1.6986e-01_rb,2.1255e-01_rb,1.8467e-01_rb,1.3055e-01_rb,9.7467e-03_rb/)\n      kbo(:, 1,41, 7) = (/ &\n     &3.9155e-02_rb,5.6183e-02_rb,5.0596e-02_rb,3.8424e-02_rb,7.0383e-03_rb/)\n      kbo(:, 2,41, 7) = (/ &\n     &5.6659e-02_rb,7.8503e-02_rb,6.9340e-02_rb,5.1085e-02_rb,7.3470e-03_rb/)\n      kbo(:, 3,41, 7) = (/ &\n     &7.9928e-02_rb,1.0766e-01_rb,9.4225e-02_rb,6.7858e-02_rb,7.6230e-03_rb/)\n      kbo(:, 4,41, 7) = (/ &\n     &1.1042e-01_rb,1.4475e-01_rb,1.2626e-01_rb,8.9781e-02_rb,7.8762e-03_rb/)\n      kbo(:, 5,41, 7) = (/ &\n     &1.4975e-01_rb,1.9111e-01_rb,1.6637e-01_rb,1.1739e-01_rb,8.1039e-03_rb/)\n      kbo(:, 1,42, 7) = (/ &\n     &3.3442e-02_rb,4.8574e-02_rb,4.3613e-02_rb,3.2930e-02_rb,5.8050e-03_rb/)\n      kbo(:, 2,42, 7) = (/ &\n     &4.8965e-02_rb,6.8792e-02_rb,6.0620e-02_rb,4.4408e-02_rb,6.0682e-03_rb/)\n      kbo(:, 3,42, 7) = (/ &\n     &6.9803e-02_rb,9.5533e-02_rb,8.3532e-02_rb,5.9826e-02_rb,6.3116e-03_rb/)\n      kbo(:, 4,42, 7) = (/ &\n     &9.7360e-02_rb,1.2988e-01_rb,1.1328e-01_rb,8.0240e-02_rb,6.5330e-03_rb/)\n      kbo(:, 5,42, 7) = (/ &\n     &1.3333e-01_rb,1.7321e-01_rb,1.5102e-01_rb,1.0628e-01_rb,6.7345e-03_rb/)\n      kbo(:, 1,43, 7) = (/ &\n     &2.8074e-02_rb,4.1293e-02_rb,3.7000e-02_rb,2.7812e-02_rb,4.7712e-03_rb/)\n      kbo(:, 2,43, 7) = (/ &\n     &4.1661e-02_rb,5.9380e-02_rb,5.2205e-02_rb,3.8045e-02_rb,4.9985e-03_rb/)\n      kbo(:, 3,43, 7) = (/ &\n     &6.0156e-02_rb,8.3670e-02_rb,7.3060e-02_rb,5.2075e-02_rb,5.2119e-03_rb/)\n      kbo(:, 4,43, 7) = (/ &\n     &8.4838e-02_rb,1.1520e-01_rb,1.0043e-01_rb,7.0829e-02_rb,5.4068e-03_rb/)\n      kbo(:, 5,43, 7) = (/ &\n     &1.1748e-01_rb,1.5547e-01_rb,1.3568e-01_rb,9.5209e-02_rb,5.5907e-03_rb/)\n      kbo(:, 1,44, 7) = (/ &\n     &2.3517e-02_rb,3.4984e-02_rb,3.1261e-02_rb,2.3397e-02_rb,3.9133e-03_rb/)\n      kbo(:, 2,44, 7) = (/ &\n     &3.5440e-02_rb,5.1145e-02_rb,4.4838e-02_rb,3.2508e-02_rb,4.1113e-03_rb/)\n      kbo(:, 3,44, 7) = (/ &\n     &5.1856e-02_rb,7.3218e-02_rb,6.3748e-02_rb,4.5187e-02_rb,4.2980e-03_rb/)\n      kbo(:, 4,44, 7) = (/ &\n     &7.4068e-02_rb,1.0225e-01_rb,8.9058e-02_rb,6.2496e-02_rb,4.4682e-03_rb/)\n      kbo(:, 5,44, 7) = (/ &\n     &1.0378e-01_rb,1.3965e-01_rb,1.2187e-01_rb,8.5218e-02_rb,4.6319e-03_rb/)\n      kbo(:, 1,45, 7) = (/ &\n     &1.9987e-02_rb,2.9948e-02_rb,2.6638e-02_rb,1.9815e-02_rb,3.2076e-03_rb/)\n      kbo(:, 2,45, 7) = (/ &\n     &3.0595e-02_rb,4.4514e-02_rb,3.8859e-02_rb,2.7978e-02_rb,3.3798e-03_rb/)\n      kbo(:, 3,45, 7) = (/ &\n     &4.5403e-02_rb,6.4811e-02_rb,5.6194e-02_rb,3.9557e-02_rb,3.5406e-03_rb/)\n      kbo(:, 4,45, 7) = (/ &\n     &6.5696e-02_rb,9.1866e-02_rb,7.9797e-02_rb,5.5645e-02_rb,3.6912e-03_rb/)\n      kbo(:, 5,45, 7) = (/ &\n     &9.3194e-02_rb,1.2710e-01_rb,1.1078e-01_rb,7.7097e-02_rb,3.8387e-03_rb/)\n      kbo(:, 1,46, 7) = (/ &\n     &1.6883e-02_rb,2.5455e-02_rb,2.2540e-02_rb,1.6677e-02_rb,2.6234e-03_rb/)\n      kbo(:, 2,46, 7) = (/ &\n     &2.6297e-02_rb,3.8534e-02_rb,3.3486e-02_rb,2.3954e-02_rb,2.7725e-03_rb/)\n      kbo(:, 3,46, 7) = (/ &\n     &3.9636e-02_rb,5.7120e-02_rb,4.9278e-02_rb,3.4454e-02_rb,2.9133e-03_rb/)\n      kbo(:, 4,46, 7) = (/ &\n     &5.8158e-02_rb,8.2259e-02_rb,7.1230e-02_rb,4.9351e-02_rb,3.0483e-03_rb/)\n      kbo(:, 5,46, 7) = (/ &\n     &8.3561e-02_rb,1.1543e-01_rb,1.0042e-01_rb,6.9545e-02_rb,3.1794e-03_rb/)\n      kbo(:, 1,47, 7) = (/ &\n     &1.3750e-02_rb,2.0931e-02_rb,1.8489e-02_rb,1.3652e-02_rb,2.1369e-03_rb/)\n      kbo(:, 2,47, 7) = (/ &\n     &2.1838e-02_rb,3.2305e-02_rb,2.7989e-02_rb,1.9957e-02_rb,2.2678e-03_rb/)\n      kbo(:, 3,47, 7) = (/ &\n     &3.3497e-02_rb,4.8835e-02_rb,4.1985e-02_rb,2.9214e-02_rb,2.3899e-03_rb/)\n      kbo(:, 4,47, 7) = (/ &\n     &4.9929e-02_rb,7.1624e-02_rb,6.1836e-02_rb,4.2605e-02_rb,2.5094e-03_rb/)\n      kbo(:, 5,47, 7) = (/ &\n     &7.2757e-02_rb,1.0217e-01_rb,8.8738e-02_rb,6.1180e-02_rb,2.6247e-03_rb/)\n      kbo(:, 1,48, 7) = (/ &\n     &1.1414e-02_rb,1.7437e-02_rb,1.5334e-02_rb,1.1272e-02_rb,1.7386e-03_rb/)\n      kbo(:, 2,48, 7) = (/ &\n     &1.8495e-02_rb,2.7458e-02_rb,2.3694e-02_rb,1.6798e-02_rb,1.8526e-03_rb/)\n      kbo(:, 3,48, 7) = (/ &\n     &2.8896e-02_rb,4.2355e-02_rb,3.6253e-02_rb,2.5061e-02_rb,1.9592e-03_rb/)\n      kbo(:, 4,48, 7) = (/ &\n     &4.3780e-02_rb,6.3320e-02_rb,5.4439e-02_rb,3.7255e-02_rb,2.0628e-03_rb/)\n      kbo(:, 5,48, 7) = (/ &\n     &6.4736e-02_rb,9.1889e-02_rb,7.9609e-02_rb,5.4563e-02_rb,2.1644e-03_rb/)\n      kbo(:, 1,49, 7) = (/ &\n     &9.7792e-03_rb,1.4862e-02_rb,1.2975e-02_rb,9.4608e-03_rb,1.4121e-03_rb/)\n      kbo(:, 2,49, 7) = (/ &\n     &1.6175e-02_rb,2.3898e-02_rb,2.0488e-02_rb,1.4406e-02_rb,1.5117e-03_rb/)\n      kbo(:, 3,49, 7) = (/ &\n     &2.5763e-02_rb,3.7620e-02_rb,3.1995e-02_rb,2.1936e-02_rb,1.6039e-03_rb/)\n      kbo(:, 4,49, 7) = (/ &\n     &3.9714e-02_rb,5.7411e-02_rb,4.9041e-02_rb,3.3299e-02_rb,1.6946e-03_rb/)\n      kbo(:, 5,49, 7) = (/ &\n     &5.9638e-02_rb,8.4793e-02_rb,7.3080e-02_rb,4.9749e-02_rb,1.7852e-03_rb/)\n      kbo(:, 1,50, 7) = (/ &\n     &8.0131e-03_rb,1.2216e-02_rb,1.0631e-02_rb,7.7241e-03_rb,1.1467e-03_rb/)\n      kbo(:, 2,50, 7) = (/ &\n     &1.3522e-02_rb,2.0069e-02_rb,1.7141e-02_rb,1.2008e-02_rb,1.2327e-03_rb/)\n      kbo(:, 3,50, 7) = (/ &\n     &2.1961e-02_rb,3.2239e-02_rb,2.7314e-02_rb,1.8640e-02_rb,1.3124e-03_rb/)\n      kbo(:, 4,50, 7) = (/ &\n     &3.4440e-02_rb,5.0209e-02_rb,4.2737e-02_rb,2.8885e-02_rb,1.3920e-03_rb/)\n      kbo(:, 5,50, 7) = (/ &\n     &5.2495e-02_rb,7.5521e-02_rb,6.4947e-02_rb,4.4030e-02_rb,1.4733e-03_rb/)\n      kbo(:, 1,51, 7) = (/ &\n     &6.4036e-03_rb,9.8290e-03_rb,8.5406e-03_rb,6.2032e-03_rb,9.3043e-04_rb/)\n      kbo(:, 2,51, 7) = (/ &\n     &1.1026e-02_rb,1.6501e-02_rb,1.4064e-02_rb,9.8397e-03_rb,1.0045e-03_rb/)\n      kbo(:, 3,51, 7) = (/ &\n     &1.8273e-02_rb,2.7056e-02_rb,2.2864e-02_rb,1.5565e-02_rb,1.0742e-03_rb/)\n      kbo(:, 4,51, 7) = (/ &\n     &2.9163e-02_rb,4.3028e-02_rb,3.6523e-02_rb,2.4601e-02_rb,1.1437e-03_rb/)\n      kbo(:, 5,51, 7) = (/ &\n     &4.5145e-02_rb,6.5958e-02_rb,5.6628e-02_rb,3.8264e-02_rb,1.2140e-03_rb/)\n      kbo(:, 1,52, 7) = (/ &\n     &5.2190e-03_rb,8.0088e-03_rb,6.9367e-03_rb,5.0245e-03_rb,7.5434e-04_rb/)\n      kbo(:, 2,52, 7) = (/ &\n     &9.1694e-03_rb,1.3764e-02_rb,1.1684e-02_rb,8.1486e-03_rb,8.1834e-04_rb/)\n      kbo(:, 3,52, 7) = (/ &\n     &1.5524e-02_rb,2.3049e-02_rb,1.9394e-02_rb,1.3151e-02_rb,8.7913e-04_rb/)\n      kbo(:, 4,52, 7) = (/ &\n     &2.5232e-02_rb,3.7442e-02_rb,3.1647e-02_rb,2.1215e-02_rb,9.3902e-04_rb/)\n      kbo(:, 5,52, 7) = (/ &\n     &3.9698e-02_rb,5.8529e-02_rb,5.0101e-02_rb,3.3714e-02_rb,1.0010e-03_rb/)\n      kbo(:, 1,53, 7) = (/ &\n     &4.3882e-03_rb,6.6717e-03_rb,5.7454e-03_rb,4.1343e-03_rb,6.1055e-04_rb/)\n      kbo(:, 2,53, 7) = (/ &\n     &7.8762e-03_rb,1.1762e-02_rb,9.9163e-03_rb,6.8660e-03_rb,6.6611e-04_rb/)\n      kbo(:, 3,53, 7) = (/ &\n     &1.3621e-02_rb,2.0115e-02_rb,1.6825e-02_rb,1.1330e-02_rb,7.1874e-04_rb/)\n      kbo(:, 4,53, 7) = (/ &\n     &2.2577e-02_rb,3.3386e-02_rb,2.8049e-02_rb,1.8668e-02_rb,7.7087e-04_rb/)\n      kbo(:, 5,53, 7) = (/ &\n     &3.6135e-02_rb,5.3261e-02_rb,4.5341e-02_rb,3.0337e-02_rb,8.2493e-04_rb/)\n      kbo(:, 1,54, 7) = (/ &\n     &3.2171e-03_rb,4.9791e-03_rb,4.3152e-03_rb,3.1327e-03_rb,4.9375e-04_rb/)\n      kbo(:, 2,54, 7) = (/ &\n     &5.9006e-03_rb,8.9891e-03_rb,7.6027e-03_rb,5.2931e-03_rb,5.4126e-04_rb/)\n      kbo(:, 3,54, 7) = (/ &\n     &1.0411e-02_rb,1.5699e-02_rb,1.3153e-02_rb,8.8893e-03_rb,5.8635e-04_rb/)\n      kbo(:, 4,54, 7) = (/ &\n     &1.7599e-02_rb,2.6636e-02_rb,2.2397e-02_rb,1.4923e-02_rb,6.3108e-04_rb/)\n      kbo(:, 5,54, 7) = (/ &\n     &2.8648e-02_rb,4.3428e-02_rb,3.7016e-02_rb,2.4766e-02_rb,6.7747e-04_rb/)\n      kbo(:, 1,55, 7) = (/ &\n     &2.1501e-03_rb,3.4516e-03_rb,3.0360e-03_rb,2.2475e-03_rb,3.9872e-04_rb/)\n      kbo(:, 2,55, 7) = (/ &\n     &4.0344e-03_rb,6.3713e-03_rb,5.4431e-03_rb,3.8454e-03_rb,4.3910e-04_rb/)\n      kbo(:, 3,55, 7) = (/ &\n     &7.2610e-03_rb,1.1366e-02_rb,9.5883e-03_rb,6.5518e-03_rb,4.7768e-04_rb/)\n      kbo(:, 4,55, 7) = (/ &\n     &1.2517e-02_rb,1.9714e-02_rb,1.6657e-02_rb,1.1171e-02_rb,5.1535e-04_rb/)\n      kbo(:, 5,55, 7) = (/ &\n     &2.0727e-02_rb,3.2905e-02_rb,2.8181e-02_rb,1.8908e-02_rb,5.5486e-04_rb/)\n      kbo(:, 1,56, 7) = (/ &\n     &1.4245e-03_rb,2.3749e-03_rb,2.1236e-03_rb,1.6049e-03_rb,3.2130e-04_rb/)\n      kbo(:, 2,56, 7) = (/ &\n     &2.7381e-03_rb,4.4799e-03_rb,3.8718e-03_rb,2.7798e-03_rb,3.5587e-04_rb/)\n      kbo(:, 3,56, 7) = (/ &\n     &5.0259e-03_rb,8.1674e-03_rb,6.9450e-03_rb,4.8004e-03_rb,3.8862e-04_rb/)\n      kbo(:, 4,56, 7) = (/ &\n     &8.8432e-03_rb,1.4489e-02_rb,1.2307e-02_rb,8.3071e-03_rb,4.2064e-04_rb/)\n      kbo(:, 5,56, 7) = (/ &\n     &1.4910e-02_rb,2.4779e-02_rb,2.1310e-02_rb,1.4337e-02_rb,4.5360e-04_rb/)\n      kbo(:, 1,57, 7) = (/ &\n     &9.3471e-04_rb,1.6209e-03_rb,1.4751e-03_rb,1.1411e-03_rb,2.5838e-04_rb/)\n      kbo(:, 2,57, 7) = (/ &\n     &1.8436e-03_rb,3.1233e-03_rb,2.7344e-03_rb,1.9986e-03_rb,2.8780e-04_rb/)\n      kbo(:, 3,57, 7) = (/ &\n     &3.4502e-03_rb,5.8213e-03_rb,4.9934e-03_rb,3.4957e-03_rb,3.1565e-04_rb/)\n      kbo(:, 4,57, 7) = (/ &\n     &6.2020e-03_rb,1.0562e-02_rb,9.0212e-03_rb,6.1326e-03_rb,3.4283e-04_rb/)\n      kbo(:, 5,57, 7) = (/ &\n     &1.0656e-02_rb,1.8525e-02_rb,1.5995e-02_rb,1.0788e-02_rb,3.7043e-04_rb/)\n      kbo(:, 1,58, 7) = (/ &\n     &1.6224e-04_rb,3.6080e-04_rb,4.3166e-04_rb,4.8123e-04_rb,2.0767e-04_rb/)\n      kbo(:, 2,58, 7) = (/ &\n     &3.2835e-04_rb,7.0851e-04_rb,8.1160e-04_rb,8.4893e-04_rb,2.3260e-04_rb/)\n      kbo(:, 3,58, 7) = (/ &\n     &6.2650e-04_rb,1.3493e-03_rb,1.5057e-03_rb,1.4999e-03_rb,2.5617e-04_rb/)\n      kbo(:, 4,58, 7) = (/ &\n     &1.1500e-03_rb,2.5038e-03_rb,2.7715e-03_rb,2.6635e-03_rb,2.7921e-04_rb/)\n      kbo(:, 5,58, 7) = (/ &\n     &2.0128e-03_rb,4.5008e-03_rb,5.0240e-03_rb,4.7643e-03_rb,3.0249e-04_rb/)\n      kbo(:, 1,59, 7) = (/ &\n     &1.4374e-04_rb,3.4167e-04_rb,3.9743e-04_rb,4.1474e-04_rb,1.7016e-04_rb/)\n      kbo(:, 2,59, 7) = (/ &\n     &2.9460e-04_rb,6.7320e-04_rb,7.4449e-04_rb,7.2184e-04_rb,1.9072e-04_rb/)\n      kbo(:, 3,59, 7) = (/ &\n     &5.6936e-04_rb,1.2962e-03_rb,1.3859e-03_rb,1.2659e-03_rb,2.1044e-04_rb/)\n      kbo(:, 4,59, 7) = (/ &\n     &1.0579e-03_rb,2.4467e-03_rb,2.5761e-03_rb,2.2456e-03_rb,2.2959e-04_rb/)\n      kbo(:, 5,59, 7) = (/ &\n     &1.8733e-03_rb,4.4959e-03_rb,4.7523e-03_rb,4.0463e-03_rb,2.4889e-04_rb/)\n      kbo(:, 1,13, 8) = (/ &\n     &1.0984e+01_rb,8.3644e+00_rb,5.8323e+00_rb,3.5207e+00_rb,9.5573e-01_rb/)\n      kbo(:, 2,13, 8) = (/ &\n     &1.6457e+01_rb,1.2460e+01_rb,8.5024e+00_rb,4.7543e+00_rb,9.4898e-01_rb/)\n      kbo(:, 3,13, 8) = (/ &\n     &2.3514e+01_rb,1.7749e+01_rb,1.1998e+01_rb,6.4125e+00_rb,9.3955e-01_rb/)\n      kbo(:, 4,13, 8) = (/ &\n     &3.2333e+01_rb,2.4359e+01_rb,1.6389e+01_rb,8.5253e+00_rb,9.2689e-01_rb/)\n      kbo(:, 5,13, 8) = (/ &\n     &4.3124e+01_rb,3.2448e+01_rb,2.1775e+01_rb,1.1152e+01_rb,9.1779e-01_rb/)\n      kbo(:, 1,14, 8) = (/ &\n     &6.1000e+00_rb,4.7207e+00_rb,3.5104e+00_rb,2.4718e+00_rb,9.1734e-01_rb/)\n      kbo(:, 2,14, 8) = (/ &\n     &9.1253e+00_rb,6.9681e+00_rb,4.9378e+00_rb,3.1340e+00_rb,9.1181e-01_rb/)\n      kbo(:, 3,14, 8) = (/ &\n     &1.3035e+01_rb,9.8900e+00_rb,6.8208e+00_rb,3.9957e+00_rb,9.0546e-01_rb/)\n      kbo(:, 4,14, 8) = (/ &\n     &1.7969e+01_rb,1.3584e+01_rb,9.2328e+00_rb,5.1032e+00_rb,8.9760e-01_rb/)\n      kbo(:, 5,14, 8) = (/ &\n     &2.4021e+01_rb,1.8119e+01_rb,1.2229e+01_rb,6.5133e+00_rb,8.8920e-01_rb/)\n      kbo(:, 1,15, 8) = (/ &\n     &3.4743e+00_rb,2.8067e+00_rb,2.3437e+00_rb,1.8996e+00_rb,8.7156e-01_rb/)\n      kbo(:, 2,15, 8) = (/ &\n     &5.1884e+00_rb,4.0500e+00_rb,3.1125e+00_rb,2.2977e+00_rb,8.6786e-01_rb/)\n      kbo(:, 3,15, 8) = (/ &\n     &7.4263e+00_rb,5.6964e+00_rb,4.1330e+00_rb,2.7795e+00_rb,8.6394e-01_rb/)\n      kbo(:, 4,15, 8) = (/ &\n     &1.0261e+01_rb,7.8059e+00_rb,5.4699e+00_rb,3.3858e+00_rb,8.5908e-01_rb/)\n      kbo(:, 5,15, 8) = (/ &\n     &1.3736e+01_rb,1.0405e+01_rb,7.1459e+00_rb,4.1475e+00_rb,8.5337e-01_rb/)\n      kbo(:, 1,16, 8) = (/ &\n     &2.3668e+00_rb,2.0348e+00_rb,1.8716e+00_rb,1.6135e+00_rb,8.1894e-01_rb/)\n      kbo(:, 2,16, 8) = (/ &\n     &3.5375e+00_rb,2.8566e+00_rb,2.3918e+00_rb,1.9179e+00_rb,8.1793e-01_rb/)\n      kbo(:, 3,16, 8) = (/ &\n     &5.0738e+00_rb,3.9641e+00_rb,3.0738e+00_rb,2.2799e+00_rb,8.1574e-01_rb/)\n      kbo(:, 4,16, 8) = (/ &\n     &7.0147e+00_rb,5.3888e+00_rb,3.9564e+00_rb,2.7115e+00_rb,8.1291e-01_rb/)\n      kbo(:, 5,16, 8) = (/ &\n     &9.3829e+00_rb,7.1458e+00_rb,5.0571e+00_rb,3.2258e+00_rb,8.0943e-01_rb/)\n      kbo(:, 1,17, 8) = (/ &\n     &1.6738e+00_rb,1.5709e+00_rb,1.5512e+00_rb,1.3915e+00_rb,7.6163e-01_rb/)\n      kbo(:, 2,17, 8) = (/ &\n     &2.5071e+00_rb,2.1423e+00_rb,1.9466e+00_rb,1.6331e+00_rb,7.6194e-01_rb/)\n      kbo(:, 3,17, 8) = (/ &\n     &3.5973e+00_rb,2.9044e+00_rb,2.4376e+00_rb,1.9200e+00_rb,7.6176e-01_rb/)\n      kbo(:, 4,17, 8) = (/ &\n     &4.9653e+00_rb,3.8871e+00_rb,3.0499e+00_rb,2.2591e+00_rb,7.6112e-01_rb/)\n      kbo(:, 5,17, 8) = (/ &\n     &6.6200e+00_rb,5.0972e+00_rb,3.7961e+00_rb,2.6511e+00_rb,7.6001e-01_rb/)\n      kbo(:, 1,18, 8) = (/ &\n     &1.2159e+00_rb,1.2682e+00_rb,1.3055e+00_rb,1.2114e+00_rb,6.9972e-01_rb/)\n      kbo(:, 2,18, 8) = (/ &\n     &1.8215e+00_rb,1.6846e+00_rb,1.6207e+00_rb,1.4074e+00_rb,7.0172e-01_rb/)\n      kbo(:, 3,18, 8) = (/ &\n     &2.6063e+00_rb,2.2250e+00_rb,2.0059e+00_rb,1.6407e+00_rb,7.0349e-01_rb/)\n      kbo(:, 4,18, 8) = (/ &\n     &3.5864e+00_rb,2.9083e+00_rb,2.4603e+00_rb,1.9137e+00_rb,7.0440e-01_rb/)\n      kbo(:, 5,18, 8) = (/ &\n     &4.7701e+00_rb,3.7503e+00_rb,2.9936e+00_rb,2.2226e+00_rb,7.0559e-01_rb/)\n      kbo(:, 1,19, 8) = (/ &\n     &8.6896e-01_rb,1.0218e+00_rb,1.0917e+00_rb,1.0431e+00_rb,6.3571e-01_rb/)\n      kbo(:, 2,19, 8) = (/ &\n     &1.2971e+00_rb,1.3348e+00_rb,1.3390e+00_rb,1.2022e+00_rb,6.3915e-01_rb/)\n      kbo(:, 3,19, 8) = (/ &\n     &1.8500e+00_rb,1.7190e+00_rb,1.6367e+00_rb,1.3904e+00_rb,6.4265e-01_rb/)\n      kbo(:, 4,19, 8) = (/ &\n     &2.5377e+00_rb,2.1918e+00_rb,1.9845e+00_rb,1.6067e+00_rb,6.4523e-01_rb/)\n      kbo(:, 5,19, 8) = (/ &\n     &3.3694e+00_rb,2.7695e+00_rb,2.3848e+00_rb,1.8478e+00_rb,6.4962e-01_rb/)\n      kbo(:, 1,20, 8) = (/ &\n     &6.7593e-01_rb,8.7052e-01_rb,9.5066e-01_rb,9.1950e-01_rb,5.7154e-01_rb/)\n      kbo(:, 2,20, 8) = (/ &\n     &1.0037e+00_rb,1.1265e+00_rb,1.1588e+00_rb,1.0572e+00_rb,5.7670e-01_rb/)\n      kbo(:, 3,20, 8) = (/ &\n     &1.4256e+00_rb,1.4357e+00_rb,1.4052e+00_rb,1.2186e+00_rb,5.8150e-01_rb/)\n      kbo(:, 4,20, 8) = (/ &\n     &1.9488e+00_rb,1.8041e+00_rb,1.6911e+00_rb,1.4006e+00_rb,5.8703e-01_rb/)\n      kbo(:, 5,20, 8) = (/ &\n     &2.5835e+00_rb,2.2440e+00_rb,2.0193e+00_rb,1.6034e+00_rb,5.9399e-01_rb/)\n      kbo(:, 1,21, 8) = (/ &\n     &5.4036e-01_rb,7.5420e-01_rb,8.3572e-01_rb,8.1199e-01_rb,5.0987e-01_rb/)\n      kbo(:, 2,21, 8) = (/ &\n     &7.9845e-01_rb,9.6809e-01_rb,1.0141e+00_rb,9.3456e-01_rb,5.1627e-01_rb/)\n      kbo(:, 3,21, 8) = (/ &\n     &1.1289e+00_rb,1.2252e+00_rb,1.2225e+00_rb,1.0751e+00_rb,5.2292e-01_rb/)\n      kbo(:, 4,21, 8) = (/ &\n     &1.5394e+00_rb,1.5293e+00_rb,1.4635e+00_rb,1.2321e+00_rb,5.3121e-01_rb/)\n      kbo(:, 5,21, 8) = (/ &\n     &2.0388e+00_rb,1.8858e+00_rb,1.7395e+00_rb,1.4066e+00_rb,5.4074e-01_rb/)\n      kbo(:, 1,22, 8) = (/ &\n     &4.5347e-01_rb,6.7088e-01_rb,7.4705e-01_rb,7.2463e-01_rb,4.5233e-01_rb/)\n      kbo(:, 2,22, 8) = (/ &\n     &6.6420e-01_rb,8.5466e-01_rb,9.0352e-01_rb,8.3532e-01_rb,4.6020e-01_rb/)\n      kbo(:, 3,22, 8) = (/ &\n     &9.3312e-01_rb,1.0751e+00_rb,1.0854e+00_rb,9.5995e-01_rb,4.6942e-01_rb/)\n      kbo(:, 4,22, 8) = (/ &\n     &1.2674e+00_rb,1.3357e+00_rb,1.2944e+00_rb,1.0988e+00_rb,4.8015e-01_rb/)\n      kbo(:, 5,22, 8) = (/ &\n     &1.6769e+00_rb,1.6408e+00_rb,1.5338e+00_rb,1.2527e+00_rb,4.9182e-01_rb/)\n      kbo(:, 1,23, 8) = (/ &\n     &3.8192e-01_rb,5.9551e-01_rb,6.6526e-01_rb,6.4489e-01_rb,3.9997e-01_rb/)\n      kbo(:, 2,23, 8) = (/ &\n     &5.5484e-01_rb,7.5433e-01_rb,8.0227e-01_rb,7.4370e-01_rb,4.0956e-01_rb/)\n      kbo(:, 3,23, 8) = (/ &\n     &7.7517e-01_rb,9.4347e-01_rb,9.6125e-01_rb,8.5431e-01_rb,4.2064e-01_rb/)\n      kbo(:, 4,23, 8) = (/ &\n     &1.0504e+00_rb,1.1678e+00_rb,1.1437e+00_rb,9.7728e-01_rb,4.3319e-01_rb/)\n      kbo(:, 5,23, 8) = (/ &\n     &1.3891e+00_rb,1.4314e+00_rb,1.3533e+00_rb,1.1142e+00_rb,4.4599e-01_rb/)\n      kbo(:, 1,24, 8) = (/ &\n     &3.1980e-01_rb,5.2485e-01_rb,5.8816e-01_rb,5.7121e-01_rb,3.5303e-01_rb/)\n      kbo(:, 2,24, 8) = (/ &\n     &4.6136e-01_rb,6.6155e-01_rb,7.0757e-01_rb,6.5873e-01_rb,3.6427e-01_rb/)\n      kbo(:, 3,24, 8) = (/ &\n     &6.4223e-01_rb,8.2371e-01_rb,8.4561e-01_rb,7.5649e-01_rb,3.7674e-01_rb/)\n      kbo(:, 4,24, 8) = (/ &\n     &8.6939e-01_rb,1.0172e+00_rb,1.0047e+00_rb,8.6558e-01_rb,3.8981e-01_rb/)\n      kbo(:, 5,24, 8) = (/ &\n     &1.1484e+00_rb,1.2449e+00_rb,1.1880e+00_rb,9.8717e-01_rb,4.0255e-01_rb/)\n      kbo(:, 1,25, 8) = (/ &\n     &2.7156e-01_rb,4.6457e-01_rb,5.2127e-01_rb,5.0714e-01_rb,3.1176e-01_rb/)\n      kbo(:, 2,25, 8) = (/ &\n     &3.8962e-01_rb,5.8326e-01_rb,6.2605e-01_rb,5.8521e-01_rb,3.2376e-01_rb/)\n      kbo(:, 3,25, 8) = (/ &\n     &5.4140e-01_rb,7.2573e-01_rb,7.4721e-01_rb,6.7267e-01_rb,3.3654e-01_rb/)\n      kbo(:, 4,25, 8) = (/ &\n     &7.3158e-01_rb,8.9514e-01_rb,8.8800e-01_rb,7.7033e-01_rb,3.4916e-01_rb/)\n      kbo(:, 5,25, 8) = (/ &\n     &9.6557e-01_rb,1.0940e+00_rb,1.0510e+00_rb,8.7991e-01_rb,3.6188e-01_rb/)\n      kbo(:, 1,26, 8) = (/ &\n     &2.3603e-01_rb,4.1514e-01_rb,4.6570e-01_rb,4.5317e-01_rb,2.7528e-01_rb/)\n      kbo(:, 2,26, 8) = (/ &\n     &3.3729e-01_rb,5.2062e-01_rb,5.5904e-01_rb,5.2356e-01_rb,2.8722e-01_rb/)\n      kbo(:, 3,26, 8) = (/ &\n     &4.6762e-01_rb,6.4812e-01_rb,6.6791e-01_rb,6.0289e-01_rb,2.9963e-01_rb/)\n      kbo(:, 4,26, 8) = (/ &\n     &6.3043e-01_rb,7.9949e-01_rb,7.9540e-01_rb,6.9207e-01_rb,3.1197e-01_rb/)\n      kbo(:, 5,26, 8) = (/ &\n     &8.2894e-01_rb,9.7604e-01_rb,9.4222e-01_rb,7.9275e-01_rb,3.2460e-01_rb/)\n      kbo(:, 1,27, 8) = (/ &\n     &2.1329e-01_rb,3.7886e-01_rb,4.2295e-01_rb,4.0982e-01_rb,2.4262e-01_rb/)\n      kbo(:, 2,27, 8) = (/ &\n     &3.0405e-01_rb,4.7609e-01_rb,5.0881e-01_rb,4.7490e-01_rb,2.5434e-01_rb/)\n      kbo(:, 3,27, 8) = (/ &\n     &4.2047e-01_rb,5.9404e-01_rb,6.1027e-01_rb,5.4870e-01_rb,2.6611e-01_rb/)\n      kbo(:, 4,27, 8) = (/ &\n     &5.6493e-01_rb,7.3338e-01_rb,7.2904e-01_rb,6.3251e-01_rb,2.7831e-01_rb/)\n      kbo(:, 5,27, 8) = (/ &\n     &7.3961e-01_rb,8.9452e-01_rb,8.6490e-01_rb,7.2735e-01_rb,2.9101e-01_rb/)\n      kbo(:, 1,28, 8) = (/ &\n     &1.9857e-01_rb,3.5152e-01_rb,3.8897e-01_rb,3.7421e-01_rb,2.1366e-01_rb/)\n      kbo(:, 2,28, 8) = (/ &\n     &2.8199e-01_rb,4.4350e-01_rb,4.7029e-01_rb,4.3552e-01_rb,2.2475e-01_rb/)\n      kbo(:, 3,28, 8) = (/ &\n     &3.8828e-01_rb,5.5465e-01_rb,5.6697e-01_rb,5.0558e-01_rb,2.3636e-01_rb/)\n      kbo(:, 4,28, 8) = (/ &\n     &5.1944e-01_rb,6.8554e-01_rb,6.7950e-01_rb,5.8599e-01_rb,2.4843e-01_rb/)\n      kbo(:, 5,28, 8) = (/ &\n     &6.7804e-01_rb,8.3583e-01_rb,8.0789e-01_rb,6.7686e-01_rb,2.6132e-01_rb/)\n      kbo(:, 1,29, 8) = (/ &\n     &1.9699e-01_rb,3.4001e-01_rb,3.6948e-01_rb,3.4985e-01_rb,1.8812e-01_rb/)\n      kbo(:, 2,29, 8) = (/ &\n     &2.7846e-01_rb,4.3155e-01_rb,4.5041e-01_rb,4.0987e-01_rb,1.9891e-01_rb/)\n      kbo(:, 3,29, 8) = (/ &\n     &3.8140e-01_rb,5.4168e-01_rb,5.4658e-01_rb,4.7968e-01_rb,2.1027e-01_rb/)\n      kbo(:, 4,29, 8) = (/ &\n     &5.0817e-01_rb,6.7028e-01_rb,6.5795e-01_rb,5.5982e-01_rb,2.2267e-01_rb/)\n      kbo(:, 5,29, 8) = (/ &\n     &6.6092e-01_rb,8.1811e-01_rb,7.8466e-01_rb,6.5003e-01_rb,2.3569e-01_rb/)\n      kbo(:, 1,30, 8) = (/ &\n     &2.0038e-01_rb,3.3558e-01_rb,3.5744e-01_rb,3.3111e-01_rb,1.6586e-01_rb/)\n      kbo(:, 2,30, 8) = (/ &\n     &2.8170e-01_rb,4.2849e-01_rb,4.3945e-01_rb,3.9159e-01_rb,1.7645e-01_rb/)\n      kbo(:, 3,30, 8) = (/ &\n     &3.8386e-01_rb,5.3939e-01_rb,5.3663e-01_rb,4.6240e-01_rb,1.8797e-01_rb/)\n      kbo(:, 4,30, 8) = (/ &\n     &5.0944e-01_rb,6.6904e-01_rb,6.4909e-01_rb,5.4342e-01_rb,2.0032e-01_rb/)\n      kbo(:, 5,30, 8) = (/ &\n     &6.6110e-01_rb,8.1719e-01_rb,7.7645e-01_rb,6.3464e-01_rb,2.1343e-01_rb/)\n      kbo(:, 1,31, 8) = (/ &\n     &2.1457e-01_rb,3.4491e-01_rb,3.5799e-01_rb,3.2199e-01_rb,1.4677e-01_rb/)\n      kbo(:, 2,31, 8) = (/ &\n     &3.0025e-01_rb,4.4295e-01_rb,4.4440e-01_rb,3.8528e-01_rb,1.5733e-01_rb/)\n      kbo(:, 3,31, 8) = (/ &\n     &4.0706e-01_rb,5.5909e-01_rb,5.4635e-01_rb,4.5932e-01_rb,1.6888e-01_rb/)\n      kbo(:, 4,31, 8) = (/ &\n     &5.3865e-01_rb,6.9458e-01_rb,6.6400e-01_rb,5.4394e-01_rb,1.8129e-01_rb/)\n      kbo(:, 5,31, 8) = (/ &\n     &6.9836e-01_rb,8.4979e-01_rb,7.9754e-01_rb,6.3956e-01_rb,1.9424e-01_rb/)\n      kbo(:, 1,32, 8) = (/ &\n     &2.3301e-01_rb,3.6002e-01_rb,3.6447e-01_rb,3.1806e-01_rb,1.3061e-01_rb/)\n      kbo(:, 2,32, 8) = (/ &\n     &3.2391e-01_rb,4.6378e-01_rb,4.5628e-01_rb,3.8494e-01_rb,1.4116e-01_rb/)\n      kbo(:, 3,32, 8) = (/ &\n     &4.3762e-01_rb,5.8716e-01_rb,5.6420e-01_rb,4.6300e-01_rb,1.5266e-01_rb/)\n      kbo(:, 4,32, 8) = (/ &\n     &5.7844e-01_rb,7.3058e-01_rb,6.8894e-01_rb,5.5249e-01_rb,1.6489e-01_rb/)\n      kbo(:, 5,32, 8) = (/ &\n     &7.5012e-01_rb,8.9521e-01_rb,8.3056e-01_rb,6.5369e-01_rb,1.7758e-01_rb/)\n      kbo(:, 1,33, 8) = (/ &\n     &2.5790e-01_rb,3.8312e-01_rb,3.7883e-01_rb,3.2071e-01_rb,1.1691e-01_rb/)\n      kbo(:, 2,33, 8) = (/ &\n     &3.5669e-01_rb,4.9524e-01_rb,4.7746e-01_rb,3.9236e-01_rb,1.2744e-01_rb/)\n      kbo(:, 3,33, 8) = (/ &\n     &4.8068e-01_rb,6.2777e-01_rb,5.9359e-01_rb,4.7601e-01_rb,1.3874e-01_rb/)\n      kbo(:, 4,33, 8) = (/ &\n     &6.3465e-01_rb,7.8244e-01_rb,7.2784e-01_rb,5.7215e-01_rb,1.5065e-01_rb/)\n      kbo(:, 5,33, 8) = (/ &\n     &8.2463e-01_rb,9.6158e-01_rb,8.8094e-01_rb,6.8112e-01_rb,1.6290e-01_rb/)\n      kbo(:, 1,34, 8) = (/ &\n     &2.7501e-01_rb,3.9928e-01_rb,3.8789e-01_rb,3.2093e-01_rb,1.0495e-01_rb/)\n      kbo(:, 2,34, 8) = (/ &\n     &3.7955e-01_rb,5.1722e-01_rb,4.9202e-01_rb,3.9633e-01_rb,1.1524e-01_rb/)\n      kbo(:, 3,34, 8) = (/ &\n     &5.1074e-01_rb,6.5671e-01_rb,6.1416e-01_rb,4.8473e-01_rb,1.2623e-01_rb/)\n      kbo(:, 4,34, 8) = (/ &\n     &6.7545e-01_rb,8.2065e-01_rb,7.5592e-01_rb,5.8631e-01_rb,1.3772e-01_rb/)\n      kbo(:, 5,34, 8) = (/ &\n     &8.8010e-01_rb,1.0115e+00_rb,9.1893e-01_rb,7.0176e-01_rb,1.4967e-01_rb/)\n      kbo(:, 1,35, 8) = (/ &\n     &2.8491e-01_rb,4.0792e-01_rb,3.9124e-01_rb,3.1768e-01_rb,9.3815e-02_rb/)\n      kbo(:, 2,35, 8) = (/ &\n     &3.9304e-01_rb,5.3008e-01_rb,4.9917e-01_rb,3.9612e-01_rb,1.0372e-01_rb/)\n      kbo(:, 3,35, 8) = (/ &\n     &5.3059e-01_rb,6.7569e-01_rb,6.2665e-01_rb,4.8824e-01_rb,1.1431e-01_rb/)\n      kbo(:, 4,35, 8) = (/ &\n     &7.0463e-01_rb,8.4744e-01_rb,7.7517e-01_rb,5.9483e-01_rb,1.2547e-01_rb/)\n      kbo(:, 5,35, 8) = (/ &\n     &9.2289e-01_rb,1.0490e+00_rb,9.4773e-01_rb,7.1638e-01_rb,1.3729e-01_rb/)\n      kbo(:, 1,36, 8) = (/ &\n     &2.8335e-01_rb,4.0444e-01_rb,3.8444e-01_rb,3.0785e-01_rb,8.3181e-02_rb/)\n      kbo(:, 2,36, 8) = (/ &\n     &3.9231e-01_rb,5.2837e-01_rb,4.9425e-01_rb,3.8787e-01_rb,9.2674e-02_rb/)\n      kbo(:, 3,36, 8) = (/ &\n     &5.3277e-01_rb,6.7716e-01_rb,6.2485e-01_rb,4.8257e-01_rb,1.0284e-01_rb/)\n      kbo(:, 4,36, 8) = (/ &\n     &7.1164e-01_rb,8.5400e-01_rb,7.7825e-01_rb,5.9239e-01_rb,1.1370e-01_rb/)\n      kbo(:, 5,36, 8) = (/ &\n     &9.3841e-01_rb,1.0634e+00_rb,9.5733e-01_rb,7.1881e-01_rb,1.2521e-01_rb/)\n      kbo(:, 1,37, 8) = (/ &\n     &2.6099e-01_rb,3.7794e-01_rb,3.5839e-01_rb,2.8510e-01_rb,7.2608e-02_rb/)\n      kbo(:, 2,37, 8) = (/ &\n     &3.6453e-01_rb,4.9803e-01_rb,4.6544e-01_rb,3.6354e-01_rb,8.1599e-02_rb/)\n      kbo(:, 3,37, 8) = (/ &\n     &4.9925e-01_rb,6.4313e-01_rb,5.9376e-01_rb,4.5692e-01_rb,9.1324e-02_rb/)\n      kbo(:, 4,37, 8) = (/ &\n     &6.7318e-01_rb,8.1735e-01_rb,7.4579e-01_rb,5.6616e-01_rb,1.0177e-01_rb/)\n      kbo(:, 5,37, 8) = (/ &\n     &8.9497e-01_rb,1.0258e+00_rb,9.2402e-01_rb,6.9303e-01_rb,1.1300e-01_rb/)\n      kbo(:, 1,38, 8) = (/ &\n     &2.4331e-01_rb,3.5651e-01_rb,3.3705e-01_rb,2.6611e-01_rb,6.3364e-02_rb/)\n      kbo(:, 2,38, 8) = (/ &\n     &3.4315e-01_rb,4.7401e-01_rb,4.4240e-01_rb,3.4349e-01_rb,7.1841e-02_rb/)\n      kbo(:, 3,38, 8) = (/ &\n     &4.7415e-01_rb,6.1710e-01_rb,5.6959e-01_rb,4.3645e-01_rb,8.1122e-02_rb/)\n      kbo(:, 4,38, 8) = (/ &\n     &6.4535e-01_rb,7.9084e-01_rb,7.2136e-01_rb,5.4612e-01_rb,9.1255e-02_rb/)\n      kbo(:, 5,38, 8) = (/ &\n     &8.6575e-01_rb,1.0005e+00_rb,9.0147e-01_rb,6.7461e-01_rb,1.0216e-01_rb/)\n      kbo(:, 1,39, 8) = (/ &\n     &2.3205e-01_rb,3.4217e-01_rb,3.2219e-01_rb,2.5204e-01_rb,5.5366e-02_rb/)\n      kbo(:, 2,39, 8) = (/ &\n     &3.3051e-01_rb,4.5923e-01_rb,4.2752e-01_rb,3.2956e-01_rb,6.3325e-02_rb/)\n      kbo(:, 3,39, 8) = (/ &\n     &4.6126e-01_rb,6.0310e-01_rb,5.5564e-01_rb,4.2338e-01_rb,7.2166e-02_rb/)\n      kbo(:, 4,39, 8) = (/ &\n     &6.3405e-01_rb,7.7976e-01_rb,7.0985e-01_rb,5.3501e-01_rb,8.2008e-02_rb/)\n      kbo(:, 5,39, 8) = (/ &\n     &8.5903e-01_rb,9.9488e-01_rb,8.9458e-01_rb,6.6726e-01_rb,9.2704e-02_rb/)\n      kbo(:, 1,40, 8) = (/ &\n     &2.0024e-01_rb,3.0416e-01_rb,2.8720e-01_rb,2.2448e-01_rb,4.7646e-02_rb/)\n      kbo(:, 2,40, 8) = (/ &\n     &2.8846e-01_rb,4.1256e-01_rb,3.8572e-01_rb,2.9759e-01_rb,5.5021e-02_rb/)\n      kbo(:, 3,40, 8) = (/ &\n     &4.0740e-01_rb,5.4726e-01_rb,5.0694e-01_rb,3.8698e-01_rb,6.3373e-02_rb/)\n      kbo(:, 4,40, 8) = (/ &\n     &5.6679e-01_rb,7.1454e-01_rb,6.5407e-01_rb,4.9457e-01_rb,7.2804e-02_rb/)\n      kbo(:, 5,40, 8) = (/ &\n     &7.7703e-01_rb,9.2066e-01_rb,8.3239e-01_rb,6.2266e-01_rb,8.3210e-02_rb/)\n      kbo(:, 1,41, 8) = (/ &\n     &1.7113e-01_rb,2.6826e-01_rb,2.5417e-01_rb,1.9867e-01_rb,4.0876e-02_rb/)\n      kbo(:, 2,41, 8) = (/ &\n     &2.4978e-01_rb,3.6831e-01_rb,3.4599e-01_rb,2.6723e-01_rb,4.7680e-02_rb/)\n      kbo(:, 3,41, 8) = (/ &\n     &3.5705e-01_rb,4.9395e-01_rb,4.5991e-01_rb,3.5185e-01_rb,5.5528e-02_rb/)\n      kbo(:, 4,41, 8) = (/ &\n     &5.0326e-01_rb,6.5160e-01_rb,5.9993e-01_rb,4.5499e-01_rb,6.4535e-02_rb/)\n      kbo(:, 5,41, 8) = (/ &\n     &6.9778e-01_rb,8.4752e-01_rb,7.7088e-01_rb,5.7861e-01_rb,7.4659e-02_rb/)\n      kbo(:, 1,42, 8) = (/ &\n     &1.4736e-01_rb,2.3782e-01_rb,2.2594e-01_rb,1.7650e-01_rb,3.4992e-02_rb/)\n      kbo(:, 2,42, 8) = (/ &\n     &2.1817e-01_rb,3.3087e-01_rb,3.1198e-01_rb,2.4105e-01_rb,4.1263e-02_rb/)\n      kbo(:, 3,42, 8) = (/ &\n     &3.1590e-01_rb,4.4893e-01_rb,4.1987e-01_rb,3.2183e-01_rb,4.8631e-02_rb/)\n      kbo(:, 4,42, 8) = (/ &\n     &4.5063e-01_rb,5.9836e-01_rb,5.5343e-01_rb,4.2092e-01_rb,5.7226e-02_rb/)\n      kbo(:, 5,42, 8) = (/ &\n     &6.3264e-01_rb,7.8621e-01_rb,7.1837e-01_rb,5.4085e-01_rb,6.7074e-02_rb/)\n      kbo(:, 1,43, 8) = (/ &\n     &1.2471e-01_rb,2.0767e-01_rb,1.9765e-01_rb,1.5433e-01_rb,2.9617e-02_rb/)\n      kbo(:, 2,43, 8) = (/ &\n     &1.8736e-01_rb,2.9309e-01_rb,2.7736e-01_rb,2.1438e-01_rb,3.5333e-02_rb/)\n      kbo(:, 3,43, 8) = (/ &\n     &2.7561e-01_rb,4.0307e-01_rb,3.7854e-01_rb,2.9057e-01_rb,4.2142e-02_rb/)\n      kbo(:, 4,43, 8) = (/ &\n     &3.9834e-01_rb,5.4356e-01_rb,5.0521e-01_rb,3.8507e-01_rb,5.0246e-02_rb/)\n      kbo(:, 5,43, 8) = (/ &\n     &5.6689e-01_rb,7.2237e-01_rb,6.6289e-01_rb,5.0065e-01_rb,5.9725e-02_rb/)\n      kbo(:, 1,44, 8) = (/ &\n     &1.0535e-01_rb,1.8057e-01_rb,1.7198e-01_rb,1.3418e-01_rb,2.4874e-02_rb/)\n      kbo(:, 2,44, 8) = (/ &\n     &1.6101e-01_rb,2.5912e-01_rb,2.4579e-01_rb,1.8994e-01_rb,3.0018e-02_rb/)\n      kbo(:, 3,44, 8) = (/ &\n     &2.4038e-01_rb,3.6143e-01_rb,3.4064e-01_rb,2.6166e-01_rb,3.6275e-02_rb/)\n      kbo(:, 4,44, 8) = (/ &\n     &3.5302e-01_rb,4.9391e-01_rb,4.6079e-01_rb,3.5170e-01_rb,4.3858e-02_rb/)\n      kbo(:, 5,44, 8) = (/ &\n     &5.0915e-01_rb,6.6446e-01_rb,6.1193e-01_rb,4.6316e-01_rb,5.2911e-02_rb/)\n      kbo(:, 1,45, 8) = (/ &\n     &9.0316e-02_rb,1.5846e-01_rb,1.5081e-01_rb,1.1736e-01_rb,2.0815e-02_rb/)\n      kbo(:, 2,45, 8) = (/ &\n     &1.4022e-01_rb,2.3128e-01_rb,2.1952e-01_rb,1.6935e-01_rb,2.5419e-02_rb/)\n      kbo(:, 3,45, 8) = (/ &\n     &2.1290e-01_rb,3.2756e-01_rb,3.0923e-01_rb,2.3736e-01_rb,3.1129e-02_rb/)\n      kbo(:, 4,45, 8) = (/ &\n     &3.1767e-01_rb,4.5386e-01_rb,4.2443e-01_rb,3.2399e-01_rb,3.8187e-02_rb/)\n      kbo(:, 5,45, 8) = (/ &\n     &4.6514e-01_rb,6.1840e-01_rb,5.7081e-01_rb,4.3233e-01_rb,4.6782e-02_rb/)\n      kbo(:, 1,46, 8) = (/ &\n     &7.6970e-02_rb,1.3789e-01_rb,1.3114e-01_rb,1.0166e-01_rb,1.7264e-02_rb/)\n      kbo(:, 2,46, 8) = (/ &\n     &1.2176e-01_rb,2.0534e-01_rb,1.9482e-01_rb,1.4994e-01_rb,2.1346e-02_rb/)\n      kbo(:, 3,46, 8) = (/ &\n     &1.8790e-01_rb,2.9566e-01_rb,2.7941e-01_rb,2.1415e-01_rb,2.6490e-02_rb/)\n      kbo(:, 4,46, 8) = (/ &\n     &2.8511e-01_rb,4.1574e-01_rb,3.8936e-01_rb,2.9707e-01_rb,3.3007e-02_rb/)\n      kbo(:, 5,46, 8) = (/ &\n     &4.2418e-01_rb,5.7427e-01_rb,5.3095e-01_rb,4.0219e-01_rb,4.1080e-02_rb/)\n      kbo(:, 1,47, 8) = (/ &\n     &6.3210e-02_rb,1.1622e-01_rb,1.1043e-01_rb,8.5380e-02_rb,1.4119e-02_rb/)\n      kbo(:, 2,47, 8) = (/ &\n     &1.0215e-01_rb,1.7705e-01_rb,1.6808e-01_rb,1.2908e-01_rb,1.7662e-02_rb/)\n      kbo(:, 3,47, 8) = (/ &\n     &1.6053e-01_rb,2.5968e-01_rb,2.4579e-01_rb,1.8828e-01_rb,2.2222e-02_rb/)\n      kbo(:, 4,47, 8) = (/ &\n     &2.4774e-01_rb,3.7111e-01_rb,3.4851e-01_rb,2.6604e-01_rb,2.8126e-02_rb/)\n      kbo(:, 5,47, 8) = (/ &\n     &3.7525e-01_rb,5.2022e-01_rb,4.8241e-01_rb,3.6582e-01_rb,3.5589e-02_rb/)\n      kbo(:, 1,48, 8) = (/ &\n     &5.2856e-02_rb,9.8941e-02_rb,9.3700e-02_rb,7.2138e-02_rb,1.1481e-02_rb/)\n      kbo(:, 2,48, 8) = (/ &\n     &8.7380e-02_rb,1.5439e-01_rb,1.4631e-01_rb,1.1192e-01_rb,1.4532e-02_rb/)\n      kbo(:, 3,48, 8) = (/ &\n     &1.4008e-01_rb,2.3111e-01_rb,2.1862e-01_rb,1.6701e-01_rb,1.8538e-02_rb/)\n      kbo(:, 4,48, 8) = (/ &\n     &2.2000e-01_rb,3.3600e-01_rb,3.1573e-01_rb,2.4065e-01_rb,2.3829e-02_rb/)\n      kbo(:, 5,48, 8) = (/ &\n     &3.3939e-01_rb,4.7860e-01_rb,4.4403e-01_rb,3.3641e-01_rb,3.0679e-02_rb/)\n      kbo(:, 1,49, 8) = (/ &\n     &4.5594e-02_rb,8.5787e-02_rb,8.0733e-02_rb,6.1668e-02_rb,9.2832e-03_rb/)\n      kbo(:, 2,49, 8) = (/ &\n     &7.7236e-02_rb,1.3755e-01_rb,1.2964e-01_rb,9.8500e-02_rb,1.1885e-02_rb/)\n      kbo(:, 3,49, 8) = (/ &\n     &1.2646e-01_rb,2.1033e-01_rb,1.9831e-01_rb,1.5059e-01_rb,1.5367e-02_rb/)\n      kbo(:, 4,49, 8) = (/ &\n     &2.0223e-01_rb,3.1150e-01_rb,2.9194e-01_rb,2.2146e-01_rb,2.0076e-02_rb/)\n      kbo(:, 5,49, 8) = (/ &\n     &3.1773e-01_rb,4.5116e-01_rb,4.1757e-01_rb,3.1527e-01_rb,2.6302e-02_rb/)\n      kbo(:, 1,50, 8) = (/ &\n     &3.7552e-02_rb,7.1895e-02_rb,6.7424e-02_rb,5.1302e-02_rb,7.5009e-03_rb/)\n      kbo(:, 2,50, 8) = (/ &\n     &6.5207e-02_rb,1.1840e-01_rb,1.1139e-01_rb,8.4335e-02_rb,9.7205e-03_rb/)\n      kbo(:, 3,50, 8) = (/ &\n     &1.0908e-01_rb,1.8529e-01_rb,1.7464e-01_rb,1.3230e-01_rb,1.2741e-02_rb/)\n      kbo(:, 4,50, 8) = (/ &\n     &1.7795e-01_rb,2.7969e-01_rb,2.6224e-01_rb,1.9866e-01_rb,1.6912e-02_rb/)\n      kbo(:, 5,50, 8) = (/ &\n     &2.8480e-01_rb,4.1182e-01_rb,3.8156e-01_rb,2.8786e-01_rb,2.2557e-02_rb/)\n      kbo(:, 1,51, 8) = (/ &\n     &3.0119e-02_rb,5.9038e-02_rb,5.5227e-02_rb,4.1909e-02_rb,6.0436e-03_rb/)\n      kbo(:, 2,51, 8) = (/ &\n     &5.3723e-02_rb,1.0012e-01_rb,9.4083e-02_rb,7.1011e-02_rb,7.9244e-03_rb/)\n      kbo(:, 3,51, 8) = (/ &\n     &9.1816e-02_rb,1.6026e-01_rb,1.5113e-01_rb,1.1438e-01_rb,1.0530e-02_rb/)\n      kbo(:, 4,51, 8) = (/ &\n     &1.5289e-01_rb,2.4665e-01_rb,2.3169e-01_rb,1.7549e-01_rb,1.4198e-02_rb/)\n      kbo(:, 5,51, 8) = (/ &\n     &2.4923e-01_rb,3.6941e-01_rb,3.4309e-01_rb,2.5907e-01_rb,1.9285e-02_rb/)\n      kbo(:, 1,52, 8) = (/ &\n     &2.4575e-02_rb,4.8862e-02_rb,4.5516e-02_rb,3.4388e-02_rb,4.8448e-03_rb/)\n      kbo(:, 2,52, 8) = (/ &\n     &4.5073e-02_rb,8.5520e-02_rb,8.0105e-02_rb,6.0149e-02_rb,6.4237e-03_rb/)\n      kbo(:, 3,52, 8) = (/ &\n     &7.8951e-02_rb,1.4049e-01_rb,1.3220e-01_rb,9.9732e-02_rb,8.6480e-03_rb/)\n      kbo(:, 4,52, 8) = (/ &\n     &1.3416e-01_rb,2.2067e-01_rb,2.0720e-01_rb,1.5657e-01_rb,1.1852e-02_rb/)\n      kbo(:, 5,52, 8) = (/ &\n     &2.2319e-01_rb,3.3661e-01_rb,3.1253e-01_rb,2.3574e-01_rb,1.6412e-02_rb/)\n      kbo(:, 1,53, 8) = (/ &\n     &2.0612e-02_rb,4.1138e-02_rb,3.8068e-02_rb,2.8547e-02_rb,3.8662e-03_rb/)\n      kbo(:, 2,53, 8) = (/ &\n     &3.9008e-02_rb,7.4441e-02_rb,6.9299e-02_rb,5.1635e-02_rb,5.1786e-03_rb/)\n      kbo(:, 3,53, 8) = (/ &\n     &7.0078e-02_rb,1.2575e-01_rb,1.1775e-01_rb,8.8269e-02_rb,7.0623e-03_rb/)\n      kbo(:, 4,53, 8) = (/ &\n     &1.2164e-01_rb,2.0192e-01_rb,1.8894e-01_rb,1.4209e-01_rb,9.8285e-03_rb/)\n      kbo(:, 5,53, 8) = (/ &\n     &2.0657e-01_rb,3.1414e-01_rb,2.9077e-01_rb,2.1839e-01_rb,1.3889e-02_rb/)\n      kbo(:, 1,54, 8) = (/ &\n     &1.5065e-02_rb,3.1280e-02_rb,2.9021e-02_rb,2.1865e-02_rb,3.0881e-03_rb/)\n      kbo(:, 2,54, 8) = (/ &\n     &2.9415e-02_rb,5.8678e-02_rb,5.4740e-02_rb,4.0841e-02_rb,4.1803e-03_rb/)\n      kbo(:, 3,54, 8) = (/ &\n     &5.4186e-02_rb,1.0195e-01_rb,9.5873e-02_rb,7.1991e-02_rb,5.7700e-03_rb/)\n      kbo(:, 4,54, 8) = (/ &\n     &9.6215e-02_rb,1.6747e-01_rb,1.5763e-01_rb,1.1902e-01_rb,8.1641e-03_rb/)\n      kbo(:, 5,54, 8) = (/ &\n     &1.6671e-01_rb,2.6518e-01_rb,2.4733e-01_rb,1.8663e-01_rb,1.1760e-02_rb/)\n      kbo(:, 1,55, 8) = (/ &\n     &1.0025e-02_rb,2.2183e-02_rb,2.0776e-02_rb,1.5843e-02_rb,2.4606e-03_rb/)\n      kbo(:, 2,55, 8) = (/ &\n     &2.0216e-02_rb,4.3248e-02_rb,4.0605e-02_rb,3.0502e-02_rb,3.3650e-03_rb/)\n      kbo(:, 3,55, 8) = (/ &\n     &3.8225e-02_rb,7.7452e-02_rb,7.3454e-02_rb,5.5488e-02_rb,4.7010e-03_rb/)\n      kbo(:, 4,55, 8) = (/ &\n     &6.9405e-02_rb,1.3019e-01_rb,1.2386e-01_rb,9.4370e-02_rb,6.7604e-03_rb/)\n      kbo(:, 5,55, 8) = (/ &\n     &1.2275e-01_rb,2.0976e-01_rb,1.9836e-01_rb,1.5118e-01_rb,9.9237e-03_rb/)\n      kbo(:, 1,56, 8) = (/ &\n     &6.5953e-03_rb,1.5532e-02_rb,1.4697e-02_rb,1.1369e-02_rb,1.9523e-03_rb/)\n      kbo(:, 2,56, 8) = (/ &\n     &1.3758e-02_rb,3.1499e-02_rb,2.9770e-02_rb,2.2525e-02_rb,2.6931e-03_rb/)\n      kbo(:, 3,56, 8) = (/ &\n     &2.6733e-02_rb,5.8400e-02_rb,5.5794e-02_rb,4.2378e-02_rb,3.8077e-03_rb/)\n      kbo(:, 4,56, 8) = (/ &\n     &4.9676e-02_rb,1.0081e-01_rb,9.6783e-02_rb,7.4327e-02_rb,5.5587e-03_rb/)\n      kbo(:, 5,56, 8) = (/ &\n     &8.9711e-02_rb,1.6544e-01_rb,1.5844e-01_rb,1.2195e-01_rb,8.3185e-03_rb/)\n      kbo(:, 1,57, 8) = (/ &\n     &4.2820e-03_rb,1.0722e-02_rb,1.0258e-02_rb,8.0796e-03_rb,1.5428e-03_rb/)\n      kbo(:, 2,57, 8) = (/ &\n     &9.2544e-03_rb,2.2704e-02_rb,2.1598e-02_rb,1.6468e-02_rb,2.1441e-03_rb/)\n      kbo(:, 3,57, 8) = (/ &\n     &1.8521e-02_rb,4.3686e-02_rb,4.1983e-02_rb,3.2044e-02_rb,3.0664e-03_rb/)\n      kbo(:, 4,57, 8) = (/ &\n     &3.5250e-02_rb,7.7586e-02_rb,7.5143e-02_rb,5.8070e-02_rb,4.5371e-03_rb/)\n      kbo(:, 5,57, 8) = (/ &\n     &6.5084e-02_rb,1.3004e-01_rb,1.2594e-01_rb,9.7902e-02_rb,6.9329e-03_rb/)\n      kbo(:, 1,58, 8) = (/ &\n     &7.3360e-04_rb,2.4101e-03_rb,3.0107e-03_rb,3.3982e-03_rb,1.2193e-03_rb/)\n      kbo(:, 2,58, 8) = (/ &\n     &1.6434e-03_rb,5.3110e-03_rb,6.5569e-03_rb,7.0857e-03_rb,1.7049e-03_rb/)\n      kbo(:, 3,58, 8) = (/ &\n     &3.3887e-03_rb,1.0643e-02_rb,1.3244e-02_rb,1.4263e-02_rb,2.4670e-03_rb/)\n      kbo(:, 4,58, 8) = (/ &\n     &6.6116e-03_rb,1.9492e-02_rb,2.4519e-02_rb,2.6730e-02_rb,3.7032e-03_rb/)\n      kbo(:, 5,58, 8) = (/ &\n     &1.2475e-02_rb,3.3432e-02_rb,4.2135e-02_rb,4.6396e-02_rb,5.7742e-03_rb/)\n      kbo(:, 1,59, 8) = (/ &\n     &6.5322e-04_rb,2.3892e-03_rb,2.8729e-03_rb,2.9916e-03_rb,1.0154e-03_rb/)\n      kbo(:, 2,59, 8) = (/ &\n     &1.4925e-03_rb,5.3944e-03_rb,6.3528e-03_rb,6.2709e-03_rb,1.4376e-03_rb/)\n      kbo(:, 3,59, 8) = (/ &\n     &3.1352e-03_rb,1.1095e-02_rb,1.3136e-02_rb,1.2884e-02_rb,2.1132e-03_rb/)\n      kbo(:, 4,59, 8) = (/ &\n     &6.2265e-03_rb,2.0748e-02_rb,2.4885e-02_rb,2.4670e-02_rb,3.2435e-03_rb/)\n      kbo(:, 5,59, 8) = (/ &\n     &1.1971e-02_rb,3.6140e-02_rb,4.3523e-02_rb,4.3765e-02_rb,5.1685e-03_rb/)\n      kbo(:, 1,13, 9) = (/ &\n     &7.3666e+01_rb,5.5396e+01_rb,3.7129e+01_rb,1.8928e+01_rb,2.0240e+00_rb/)\n      kbo(:, 2,13, 9) = (/ &\n     &1.0840e+02_rb,8.1447e+01_rb,5.4490e+01_rb,2.7556e+01_rb,1.9929e+00_rb/)\n      kbo(:, 3,13, 9) = (/ &\n     &1.5167e+02_rb,1.1389e+02_rb,7.6113e+01_rb,3.8343e+01_rb,1.9601e+00_rb/)\n      kbo(:, 4,13, 9) = (/ &\n     &2.0374e+02_rb,1.5294e+02_rb,1.0214e+02_rb,5.1349e+01_rb,1.9301e+00_rb/)\n      kbo(:, 5,13, 9) = (/ &\n     &2.6449e+02_rb,1.9850e+02_rb,1.3251e+02_rb,6.6525e+01_rb,1.8945e+00_rb/)\n      kbo(:, 1,14, 9) = (/ &\n     &4.2021e+01_rb,3.1664e+01_rb,2.1327e+01_rb,1.1250e+01_rb,2.1001e+00_rb/)\n      kbo(:, 2,14, 9) = (/ &\n     &6.1662e+01_rb,4.6390e+01_rb,3.1123e+01_rb,1.5991e+01_rb,2.0721e+00_rb/)\n      kbo(:, 3,14, 9) = (/ &\n     &8.6125e+01_rb,6.4733e+01_rb,4.3345e+01_rb,2.2004e+01_rb,2.0419e+00_rb/)\n      kbo(:, 4,14, 9) = (/ &\n     &1.1550e+02_rb,8.6758e+01_rb,5.8024e+01_rb,2.9304e+01_rb,2.0094e+00_rb/)\n      kbo(:, 5,14, 9) = (/ &\n     &1.4971e+02_rb,1.1242e+02_rb,7.5125e+01_rb,3.7838e+01_rb,1.9780e+00_rb/)\n      kbo(:, 1,15, 9) = (/ &\n     &2.4325e+01_rb,1.8394e+01_rb,1.2572e+01_rb,7.1971e+00_rb,2.1558e+00_rb/)\n      kbo(:, 2,15, 9) = (/ &\n     &3.5582e+01_rb,2.6831e+01_rb,1.8117e+01_rb,9.7575e+00_rb,2.1305e+00_rb/)\n      kbo(:, 3,15, 9) = (/ &\n     &4.9567e+01_rb,3.7318e+01_rb,2.5078e+01_rb,1.3071e+01_rb,2.1029e+00_rb/)\n      kbo(:, 4,15, 9) = (/ &\n     &6.6327e+01_rb,4.9885e+01_rb,3.3445e+01_rb,1.7135e+01_rb,2.0733e+00_rb/)\n      kbo(:, 5,15, 9) = (/ &\n     &8.5909e+01_rb,6.4569e+01_rb,4.3231e+01_rb,2.1949e+01_rb,2.0415e+00_rb/)\n      kbo(:, 1,16, 9) = (/ &\n     &1.6702e+01_rb,1.2688e+01_rb,8.9156e+00_rb,5.6745e+00_rb,2.1884e+00_rb/)\n      kbo(:, 2,16, 9) = (/ &\n     &2.4341e+01_rb,1.8405e+01_rb,1.2602e+01_rb,7.2943e+00_rb,2.1658e+00_rb/)\n      kbo(:, 3,16, 9) = (/ &\n     &3.3812e+01_rb,2.5504e+01_rb,1.7253e+01_rb,9.4143e+00_rb,2.1418e+00_rb/)\n      kbo(:, 4,16, 9) = (/ &\n     &4.5185e+01_rb,3.4031e+01_rb,2.2894e+01_rb,1.2063e+01_rb,2.1149e+00_rb/)\n      kbo(:, 5,16, 9) = (/ &\n     &5.8502e+01_rb,4.4016e+01_rb,2.9536e+01_rb,1.5253e+01_rb,2.0863e+00_rb/)\n      kbo(:, 1,17, 9) = (/ &\n     &1.1824e+01_rb,9.0729e+00_rb,6.6968e+00_rb,4.8304e+00_rb,2.1968e+00_rb/)\n      kbo(:, 2,17, 9) = (/ &\n     &1.7172e+01_rb,1.3045e+01_rb,9.1828e+00_rb,5.8938e+00_rb,2.1784e+00_rb/)\n      kbo(:, 3,17, 9) = (/ &\n     &2.3815e+01_rb,1.8013e+01_rb,1.2370e+01_rb,7.2830e+00_rb,2.1580e+00_rb/)\n      kbo(:, 4,17, 9) = (/ &\n     &3.1829e+01_rb,2.4018e+01_rb,1.6287e+01_rb,9.0400e+00_rb,2.1352e+00_rb/)\n      kbo(:, 5,17, 9) = (/ &\n     &4.1298e+01_rb,3.1117e+01_rb,2.0970e+01_rb,1.1193e+01_rb,2.1100e+00_rb/)\n      kbo(:, 1,18, 9) = (/ &\n     &8.5582e+00_rb,6.6960e+00_rb,5.3232e+00_rb,4.2870e+00_rb,2.1819e+00_rb/)\n      kbo(:, 2,18, 9) = (/ &\n     &1.2402e+01_rb,9.5125e+00_rb,7.0290e+00_rb,5.0519e+00_rb,2.1680e+00_rb/)\n      kbo(:, 3,18, 9) = (/ &\n     &1.7200e+01_rb,1.3071e+01_rb,9.2389e+00_rb,6.0101e+00_rb,2.1517e+00_rb/)\n      kbo(:, 4,18, 9) = (/ &\n     &2.3032e+01_rb,1.7428e+01_rb,1.2014e+01_rb,7.2086e+00_rb,2.1334e+00_rb/)\n      kbo(:, 5,18, 9) = (/ &\n     &2.9959e+01_rb,2.2618e+01_rb,1.5385e+01_rb,8.6965e+00_rb,2.1122e+00_rb/)\n      kbo(:, 1,19, 9) = (/ &\n     &6.0876e+00_rb,4.9589e+00_rb,4.3617e+00_rb,3.8537e+00_rb,2.1426e+00_rb/)\n      kbo(:, 2,19, 9) = (/ &\n     &8.8178e+00_rb,6.9019e+00_rb,5.5120e+00_rb,4.4148e+00_rb,2.1341e+00_rb/)\n      kbo(:, 3,19, 9) = (/ &\n     &1.2247e+01_rb,9.4065e+00_rb,7.0194e+00_rb,5.0977e+00_rb,2.1226e+00_rb/)\n      kbo(:, 4,19, 9) = (/ &\n     &1.6435e+01_rb,1.2508e+01_rb,8.9285e+00_rb,5.9346e+00_rb,2.1084e+00_rb/)\n      kbo(:, 5,19, 9) = (/ &\n     &2.1395e+01_rb,1.6206e+01_rb,1.1260e+01_rb,6.9507e+00_rb,2.0906e+00_rb/)\n      kbo(:, 1,20, 9) = (/ &\n     &4.7338e+00_rb,4.0618e+00_rb,3.8673e+00_rb,3.5847e+00_rb,2.0812e+00_rb/)\n      kbo(:, 2,20, 9) = (/ &\n     &6.8571e+00_rb,5.5334e+00_rb,4.7582e+00_rb,4.0685e+00_rb,2.0765e+00_rb/)\n      kbo(:, 3,20, 9) = (/ &\n     &9.5336e+00_rb,7.4447e+00_rb,5.9012e+00_rb,4.6250e+00_rb,2.0694e+00_rb/)\n      kbo(:, 4,20, 9) = (/ &\n     &1.2791e+01_rb,9.8219e+00_rb,7.3358e+00_rb,5.2854e+00_rb,2.0598e+00_rb/)\n      kbo(:, 5,20, 9) = (/ &\n     &1.6650e+01_rb,1.2677e+01_rb,9.0899e+00_rb,6.0678e+00_rb,2.0475e+00_rb/)\n      kbo(:, 1,21, 9) = (/ &\n     &3.8172e+00_rb,3.4906e+00_rb,3.5314e+00_rb,3.3393e+00_rb,1.9987e+00_rb/)\n      kbo(:, 2,21, 9) = (/ &\n     &5.5293e+00_rb,4.6505e+00_rb,4.2636e+00_rb,3.7764e+00_rb,1.9988e+00_rb/)\n      kbo(:, 3,21, 9) = (/ &\n     &7.6789e+00_rb,6.1523e+00_rb,5.1831e+00_rb,4.2770e+00_rb,1.9964e+00_rb/)\n      kbo(:, 4,21, 9) = (/ &\n     &1.0301e+01_rb,8.0282e+00_rb,6.3179e+00_rb,4.8454e+00_rb,1.9916e+00_rb/)\n      kbo(:, 5,21, 9) = (/ &\n     &1.3413e+01_rb,1.0296e+01_rb,7.6922e+00_rb,5.4909e+00_rb,1.9849e+00_rb/)\n      kbo(:, 1,22, 9) = (/ &\n     &3.2538e+00_rb,3.1636e+00_rb,3.3083e+00_rb,3.1336e+00_rb,1.8994e+00_rb/)\n      kbo(:, 2,22, 9) = (/ &\n     &4.6904e+00_rb,4.1275e+00_rb,3.9601e+00_rb,3.5392e+00_rb,1.9038e+00_rb/)\n      kbo(:, 3,22, 9) = (/ &\n     &6.4936e+00_rb,5.3647e+00_rb,4.7415e+00_rb,4.0033e+00_rb,1.9062e+00_rb/)\n      kbo(:, 4,22, 9) = (/ &\n     &8.6858e+00_rb,6.9049e+00_rb,5.6919e+00_rb,4.5273e+00_rb,1.9068e+00_rb/)\n      kbo(:, 5,22, 9) = (/ &\n     &1.1287e+01_rb,8.7705e+00_rb,6.8305e+00_rb,5.1089e+00_rb,1.9070e+00_rb/)\n      kbo(:, 1,23, 9) = (/ &\n     &2.7990e+00_rb,2.9004e+00_rb,3.0888e+00_rb,2.9221e+00_rb,1.7866e+00_rb/)\n      kbo(:, 2,23, 9) = (/ &\n     &4.0164e+00_rb,3.7193e+00_rb,3.6884e+00_rb,3.3009e+00_rb,1.7963e+00_rb/)\n      kbo(:, 3,23, 9) = (/ &\n     &5.5385e+00_rb,4.7530e+00_rb,4.3835e+00_rb,3.7336e+00_rb,1.8046e+00_rb/)\n      kbo(:, 4,23, 9) = (/ &\n     &7.3874e+00_rb,6.0323e+00_rb,5.1957e+00_rb,4.2187e+00_rb,1.8111e+00_rb/)\n      kbo(:, 5,23, 9) = (/ &\n     &9.5697e+00_rb,7.5707e+00_rb,6.1486e+00_rb,4.7536e+00_rb,1.8191e+00_rb/)\n      kbo(:, 1,24, 9) = (/ &\n     &2.4093e+00_rb,2.6666e+00_rb,2.8613e+00_rb,2.7031e+00_rb,1.6662e+00_rb/)\n      kbo(:, 2,24, 9) = (/ &\n     &3.4388e+00_rb,3.3672e+00_rb,3.4097e+00_rb,3.0567e+00_rb,1.6812e+00_rb/)\n      kbo(:, 3,24, 9) = (/ &\n     &4.7196e+00_rb,4.2384e+00_rb,4.0418e+00_rb,3.4577e+00_rb,1.6956e+00_rb/)\n      kbo(:, 4,24, 9) = (/ &\n     &6.2610e+00_rb,5.2923e+00_rb,4.7542e+00_rb,3.9053e+00_rb,1.7103e+00_rb/)\n      kbo(:, 5,24, 9) = (/ &\n     &8.0725e+00_rb,6.5459e+00_rb,5.5528e+00_rb,4.3943e+00_rb,1.7280e+00_rb/)\n      kbo(:, 1,25, 9) = (/ &\n     &2.1093e+00_rb,2.4777e+00_rb,2.6576e+00_rb,2.5025e+00_rb,1.5428e+00_rb/)\n      kbo(:, 2,25, 9) = (/ &\n     &2.9902e+00_rb,3.0964e+00_rb,3.1653e+00_rb,2.8347e+00_rb,1.5643e+00_rb/)\n      kbo(:, 3,25, 9) = (/ &\n     &4.0768e+00_rb,3.8394e+00_rb,3.7463e+00_rb,3.2106e+00_rb,1.5865e+00_rb/)\n      kbo(:, 4,25, 9) = (/ &\n     &5.3785e+00_rb,4.7237e+00_rb,4.3881e+00_rb,3.6281e+00_rb,1.6115e+00_rb/)\n      kbo(:, 5,25, 9) = (/ &\n     &6.9128e+00_rb,5.7727e+00_rb,5.0863e+00_rb,4.0788e+00_rb,1.6376e+00_rb/)\n      kbo(:, 1,26, 9) = (/ &\n     &1.8856e+00_rb,2.3262e+00_rb,2.4875e+00_rb,2.3287e+00_rb,1.4224e+00_rb/)\n      kbo(:, 2,26, 9) = (/ &\n     &2.6493e+00_rb,2.8890e+00_rb,2.9641e+00_rb,2.6458e+00_rb,1.4515e+00_rb/)\n      kbo(:, 3,26, 9) = (/ &\n     &3.5871e+00_rb,3.5368e+00_rb,3.5013e+00_rb,3.0021e+00_rb,1.4824e+00_rb/)\n      kbo(:, 4,26, 9) = (/ &\n     &4.7140e+00_rb,4.3024e+00_rb,4.0862e+00_rb,3.3950e+00_rb,1.5166e+00_rb/)\n      kbo(:, 5,26, 9) = (/ &\n     &6.0446e+00_rb,5.2045e+00_rb,4.7238e+00_rb,3.8145e+00_rb,1.5518e+00_rb/)\n      kbo(:, 1,27, 9) = (/ &\n     &1.7455e+00_rb,2.2279e+00_rb,2.3691e+00_rb,2.1938e+00_rb,1.3093e+00_rb/)\n      kbo(:, 2,27, 9) = (/ &\n     &2.4331e+00_rb,2.7544e+00_rb,2.8270e+00_rb,2.5043e+00_rb,1.3459e+00_rb/)\n      kbo(:, 3,27, 9) = (/ &\n     &3.2766e+00_rb,3.3516e+00_rb,3.3333e+00_rb,2.8520e+00_rb,1.3862e+00_rb/)\n      kbo(:, 4,27, 9) = (/ &\n     &4.2923e+00_rb,4.0432e+00_rb,3.8852e+00_rb,3.2303e+00_rb,1.4289e+00_rb/)\n      kbo(:, 5,27, 9) = (/ &\n     &5.4942e+00_rb,4.8565e+00_rb,4.4878e+00_rb,3.6320e+00_rb,1.4726e+00_rb/)\n      kbo(:, 1,28, 9) = (/ &\n     &1.6557e+00_rb,2.1623e+00_rb,2.2857e+00_rb,2.0892e+00_rb,1.2058e+00_rb/)\n      kbo(:, 2,28, 9) = (/ &\n     &2.2924e+00_rb,2.6651e+00_rb,2.7290e+00_rb,2.3996e+00_rb,1.2506e+00_rb/)\n      kbo(:, 3,28, 9) = (/ &\n     &3.0749e+00_rb,3.2332e+00_rb,3.2167e+00_rb,2.7436e+00_rb,1.2996e+00_rb/)\n      kbo(:, 4,28, 9) = (/ &\n     &4.0186e+00_rb,3.8816e+00_rb,3.7505e+00_rb,3.1131e+00_rb,1.3503e+00_rb/)\n      kbo(:, 5,28, 9) = (/ &\n     &5.1433e+00_rb,4.6442e+00_rb,4.3346e+00_rb,3.5087e+00_rb,1.4023e+00_rb/)\n      kbo(:, 1,29, 9) = (/ &\n     &1.6682e+00_rb,2.1786e+00_rb,2.2786e+00_rb,2.0447e+00_rb,1.1144e+00_rb/)\n      kbo(:, 2,29, 9) = (/ &\n     &2.2981e+00_rb,2.6823e+00_rb,2.7239e+00_rb,2.3673e+00_rb,1.1675e+00_rb/)\n      kbo(:, 3,29, 9) = (/ &\n     &3.0738e+00_rb,3.2536e+00_rb,3.2170e+00_rb,2.7185e+00_rb,1.2244e+00_rb/)\n      kbo(:, 4,29, 9) = (/ &\n     &4.0119e+00_rb,3.9041e+00_rb,3.7595e+00_rb,3.0962e+00_rb,1.2824e+00_rb/)\n      kbo(:, 5,29, 9) = (/ &\n     &5.1340e+00_rb,4.6678e+00_rb,4.3550e+00_rb,3.5038e+00_rb,1.3425e+00_rb/)\n      kbo(:, 1,30, 9) = (/ &\n     &1.7221e+00_rb,2.2297e+00_rb,2.3038e+00_rb,2.0342e+00_rb,1.0364e+00_rb/)\n      kbo(:, 2,30, 9) = (/ &\n     &2.3632e+00_rb,2.7462e+00_rb,2.7611e+00_rb,2.3703e+00_rb,1.0967e+00_rb/)\n      kbo(:, 3,30, 9) = (/ &\n     &3.1545e+00_rb,3.3332e+00_rb,3.2697e+00_rb,2.7338e+00_rb,1.1597e+00_rb/)\n      kbo(:, 4,30, 9) = (/ &\n     &4.1176e+00_rb,4.0031e+00_rb,3.8327e+00_rb,3.1282e+00_rb,1.2250e+00_rb/)\n      kbo(:, 5,30, 9) = (/ &\n     &5.2710e+00_rb,4.7910e+00_rb,4.4538e+00_rb,3.5548e+00_rb,1.2942e+00_rb/)\n      kbo(:, 1,31, 9) = (/ &\n     &1.8733e+00_rb,2.3643e+00_rb,2.4037e+00_rb,2.0831e+00_rb,9.7071e-01_rb/)\n      kbo(:, 2,31, 9) = (/ &\n     &2.5621e+00_rb,2.9163e+00_rb,2.8917e+00_rb,2.4413e+00_rb,1.0371e+00_rb/)\n      kbo(:, 3,31, 9) = (/ &\n     &3.4185e+00_rb,3.5458e+00_rb,3.4392e+00_rb,2.8321e+00_rb,1.1068e+00_rb/)\n      kbo(:, 4,31, 9) = (/ &\n     &4.4630e+00_rb,4.2725e+00_rb,4.0472e+00_rb,3.2583e+00_rb,1.1813e+00_rb/)\n      kbo(:, 5,31, 9) = (/ &\n     &5.7201e+00_rb,5.1339e+00_rb,4.7206e+00_rb,3.7217e+00_rb,1.2572e+00_rb/)\n      kbo(:, 1,32, 9) = (/ &\n     &2.0653e+00_rb,2.5337e+00_rb,2.5386e+00_rb,2.1600e+00_rb,9.1680e-01_rb/)\n      kbo(:, 2,32, 9) = (/ &\n     &2.8216e+00_rb,3.1306e+00_rb,3.0669e+00_rb,2.5463e+00_rb,9.8936e-01_rb/)\n      kbo(:, 3,32, 9) = (/ &\n     &3.7648e+00_rb,3.8151e+00_rb,3.6619e+00_rb,2.9702e+00_rb,1.0685e+00_rb/)\n      kbo(:, 4,32, 9) = (/ &\n     &4.9201e+00_rb,4.6180e+00_rb,4.3259e+00_rb,3.4358e+00_rb,1.1502e+00_rb/)\n      kbo(:, 5,32, 9) = (/ &\n     &6.3088e+00_rb,5.5739e+00_rb,5.0619e+00_rb,3.9444e+00_rb,1.2333e+00_rb/)\n      kbo(:, 1,33, 9) = (/ &\n     &2.3272e+00_rb,2.7583e+00_rb,2.7254e+00_rb,2.2760e+00_rb,8.7514e-01_rb/)\n      kbo(:, 2,33, 9) = (/ &\n     &3.1779e+00_rb,3.4161e+00_rb,3.3066e+00_rb,2.6982e+00_rb,9.5639e-01_rb/)\n      kbo(:, 3,33, 9) = (/ &\n     &4.2411e+00_rb,4.1786e+00_rb,3.9626e+00_rb,3.1651e+00_rb,1.0431e+00_rb/)\n      kbo(:, 4,33, 9) = (/ &\n     &5.5462e+00_rb,5.0836e+00_rb,4.6978e+00_rb,3.6805e+00_rb,1.1309e+00_rb/)\n      kbo(:, 5,33, 9) = (/ &\n     &7.1174e+00_rb,6.1675e+00_rb,5.5124e+00_rb,4.2455e+00_rb,1.2216e+00_rb/)\n      kbo(:, 1,34, 9) = (/ &\n     &2.5377e+00_rb,2.9389e+00_rb,2.8782e+00_rb,2.3730e+00_rb,8.4364e-01_rb/)\n      kbo(:, 2,34, 9) = (/ &\n     &3.4681e+00_rb,3.6495e+00_rb,3.5041e+00_rb,2.8278e+00_rb,9.3211e-01_rb/)\n      kbo(:, 3,34, 9) = (/ &\n     &4.6355e+00_rb,4.4791e+00_rb,4.2141e+00_rb,3.3332e+00_rb,1.0240e+00_rb/)\n      kbo(:, 4,34, 9) = (/ &\n     &6.0678e+00_rb,5.4727e+00_rb,5.0128e+00_rb,3.8930e+00_rb,1.1193e+00_rb/)\n      kbo(:, 5,34, 9) = (/ &\n     &7.8056e+00_rb,6.6744e+00_rb,5.8925e+00_rb,4.5074e+00_rb,1.2154e+00_rb/)\n      kbo(:, 1,35, 9) = (/ &\n     &2.6973e+00_rb,3.0775e+00_rb,2.9953e+00_rb,2.4483e+00_rb,8.1381e-01_rb/)\n      kbo(:, 2,35, 9) = (/ &\n     &3.6991e+00_rb,3.8360e+00_rb,3.6636e+00_rb,2.9345e+00_rb,9.0760e-01_rb/)\n      kbo(:, 3,35, 9) = (/ &\n     &4.9601e+00_rb,4.7300e+00_rb,4.4278e+00_rb,3.4777e+00_rb,1.0051e+00_rb/)\n      kbo(:, 4,35, 9) = (/ &\n     &6.5186e+00_rb,5.8127e+00_rb,5.2832e+00_rb,4.0814e+00_rb,1.1048e+00_rb/)\n      kbo(:, 5,35, 9) = (/ &\n     &8.4126e+00_rb,7.1259e+00_rb,6.2273e+00_rb,4.7423e+00_rb,1.2066e+00_rb/)\n      kbo(:, 1,36, 9) = (/ &\n     &2.7598e+00_rb,3.1389e+00_rb,3.0464e+00_rb,2.4794e+00_rb,7.8185e-01_rb/)\n      kbo(:, 2,36, 9) = (/ &\n     &3.8096e+00_rb,3.9341e+00_rb,3.7503e+00_rb,2.9909e+00_rb,8.7896e-01_rb/)\n      kbo(:, 3,36, 9) = (/ &\n     &5.1379e+00_rb,4.8766e+00_rb,4.5549e+00_rb,3.5652e+00_rb,9.8107e-01_rb/)\n      kbo(:, 4,36, 9) = (/ &\n     &6.7937e+00_rb,6.0302e+00_rb,5.4578e+00_rb,4.2069e+00_rb,1.0852e+00_rb/)\n      kbo(:, 5,36, 9) = (/ &\n     &8.8141e+00_rb,7.4326e+00_rb,6.4589e+00_rb,4.9083e+00_rb,1.1912e+00_rb/)\n      kbo(:, 1,37, 9) = (/ &\n     &2.6230e+00_rb,3.0408e+00_rb,2.9596e+00_rb,2.4124e+00_rb,7.3962e-01_rb/)\n      kbo(:, 2,37, 9) = (/ &\n     &3.6580e+00_rb,3.8393e+00_rb,3.6702e+00_rb,2.9331e+00_rb,8.3992e-01_rb/)\n      kbo(:, 3,37, 9) = (/ &\n     &4.9824e+00_rb,4.7866e+00_rb,4.4878e+00_rb,3.5210e+00_rb,9.4491e-01_rb/)\n      kbo(:, 4,37, 9) = (/ &\n     &6.6454e+00_rb,5.9484e+00_rb,5.4110e+00_rb,4.1812e+00_rb,1.0538e+00_rb/)\n      kbo(:, 5,37, 9) = (/ &\n     &8.6934e+00_rb,7.3704e+00_rb,6.4379e+00_rb,4.9067e+00_rb,1.1625e+00_rb/)\n      kbo(:, 1,38, 9) = (/ &\n     &2.5251e+00_rb,2.9721e+00_rb,2.8975e+00_rb,2.3630e+00_rb,7.0093e-01_rb/)\n      kbo(:, 2,38, 9) = (/ &\n     &3.5600e+00_rb,3.7826e+00_rb,3.6219e+00_rb,2.8967e+00_rb,8.0383e-01_rb/)\n      kbo(:, 3,38, 9) = (/ &\n     &4.9004e+00_rb,4.7489e+00_rb,4.4611e+00_rb,3.5032e+00_rb,9.1176e-01_rb/)\n      kbo(:, 4,38, 9) = (/ &\n     &6.5939e+00_rb,5.9343e+00_rb,5.4149e+00_rb,4.1893e+00_rb,1.0245e+00_rb/)\n      kbo(:, 5,38, 9) = (/ &\n     &8.7067e+00_rb,7.4030e+00_rb,6.4798e+00_rb,4.9449e+00_rb,1.1358e+00_rb/)\n      kbo(:, 1,39, 9) = (/ &\n     &2.4904e+00_rb,2.9537e+00_rb,2.8793e+00_rb,2.3443e+00_rb,6.6673e-01_rb/)\n      kbo(:, 2,39, 9) = (/ &\n     &3.5509e+00_rb,3.7917e+00_rb,3.6298e+00_rb,2.8981e+00_rb,7.7181e-01_rb/)\n      kbo(:, 3,39, 9) = (/ &\n     &4.9392e+00_rb,4.7973e+00_rb,4.5055e+00_rb,3.5337e+00_rb,8.8209e-01_rb/)\n      kbo(:, 4,39, 9) = (/ &\n     &6.7119e+00_rb,6.0406e+00_rb,5.5079e+00_rb,4.2551e+00_rb,9.9828e-01_rb/)\n      kbo(:, 5,39, 9) = (/ &\n     &8.9447e+00_rb,7.5957e+00_rb,6.6321e+00_rb,5.0544e+00_rb,1.1121e+00_rb/)\n      kbo(:, 1,40, 9) = (/ &\n     &2.2209e+00_rb,2.7364e+00_rb,2.6885e+00_rb,2.2038e+00_rb,6.2428e-01_rb/)\n      kbo(:, 2,40, 9) = (/ &\n     &3.2135e+00_rb,3.5469e+00_rb,3.4206e+00_rb,2.7501e+00_rb,7.3025e-01_rb/)\n      kbo(:, 3,40, 9) = (/ &\n     &4.5302e+00_rb,4.5210e+00_rb,4.2832e+00_rb,3.3810e+00_rb,8.4222e-01_rb/)\n      kbo(:, 4,40, 9) = (/ &\n     &6.2335e+00_rb,5.7214e+00_rb,5.2769e+00_rb,4.1014e+00_rb,9.6000e-01_rb/)\n      kbo(:, 5,40, 9) = (/ &\n     &8.4037e+00_rb,7.2349e+00_rb,6.3985e+00_rb,4.9070e+00_rb,1.0766e+00_rb/)\n      kbo(:, 1,41, 9) = (/ &\n     &1.9647e+00_rb,2.5201e+00_rb,2.4974e+00_rb,2.0614e+00_rb,5.8325e-01_rb/)\n      kbo(:, 2,41, 9) = (/ &\n     &2.8852e+00_rb,3.2999e+00_rb,3.2081e+00_rb,2.5978e+00_rb,6.8959e-01_rb/)\n      kbo(:, 3,41, 9) = (/ &\n     &4.1243e+00_rb,4.2421e+00_rb,4.0540e+00_rb,3.2221e+00_rb,8.0263e-01_rb/)\n      kbo(:, 4,41, 9) = (/ &\n     &5.7517e+00_rb,5.3978e+00_rb,5.0364e+00_rb,3.9392e+00_rb,9.2181e-01_rb/)\n      kbo(:, 5,41, 9) = (/ &\n     &7.8523e+00_rb,6.8657e+00_rb,6.1521e+00_rb,4.7480e+00_rb,1.0405e+00_rb/)\n      kbo(:, 1,42, 9) = (/ &\n     &1.7512e+00_rb,2.3349e+00_rb,2.3318e+00_rb,1.9366e+00_rb,5.4463e-01_rb/)\n      kbo(:, 2,42, 9) = (/ &\n     &2.6144e+00_rb,3.0905e+00_rb,3.0258e+00_rb,2.4663e+00_rb,6.5106e-01_rb/)\n      kbo(:, 3,42, 9) = (/ &\n     &3.7920e+00_rb,4.0117e+00_rb,3.8605e+00_rb,3.0859e+00_rb,7.6489e-01_rb/)\n      kbo(:, 4,42, 9) = (/ &\n     &5.3603e+00_rb,5.1368e+00_rb,4.8392e+00_rb,3.8039e+00_rb,8.8471e-01_rb/)\n      kbo(:, 5,42, 9) = (/ &\n     &7.4143e+00_rb,6.5758e+00_rb,5.9582e+00_rb,4.6208e+00_rb,1.0054e+00_rb/)\n      kbo(:, 1,43, 9) = (/ &\n     &1.5310e+00_rb,2.1360e+00_rb,2.1508e+00_rb,1.7978e+00_rb,5.0265e-01_rb/)\n      kbo(:, 2,43, 9) = (/ &\n     &2.3335e+00_rb,2.8636e+00_rb,2.8240e+00_rb,2.3172e+00_rb,6.0791e-01_rb/)\n      kbo(:, 3,43, 9) = (/ &\n     &3.4398e+00_rb,3.7600e+00_rb,3.6428e+00_rb,2.9301e+00_rb,7.2170e-01_rb/)\n      kbo(:, 4,43, 9) = (/ &\n     &4.9392e+00_rb,4.8535e+00_rb,4.6142e+00_rb,3.6458e+00_rb,8.4218e-01_rb/)\n      kbo(:, 5,43, 9) = (/ &\n     &6.9338e+00_rb,6.2557e+00_rb,5.7358e+00_rb,4.4687e+00_rb,9.6366e-01_rb/)\n      kbo(:, 1,44, 9) = (/ &\n     &1.3351e+00_rb,1.9503e+00_rb,1.9789e+00_rb,1.6632e+00_rb,4.6023e-01_rb/)\n      kbo(:, 2,44, 9) = (/ &\n     &2.0772e+00_rb,2.6507e+00_rb,2.6321e+00_rb,2.1724e+00_rb,5.6381e-01_rb/)\n      kbo(:, 3,44, 9) = (/ &\n     &3.1248e+00_rb,3.5269e+00_rb,3.4366e+00_rb,2.7797e+00_rb,6.7693e-01_rb/)\n      kbo(:, 4,44, 9) = (/ &\n     &4.5611e+00_rb,4.5989e+00_rb,4.4033e+00_rb,3.4949e+00_rb,7.9737e-01_rb/)\n      kbo(:, 5,44, 9) = (/ &\n     &6.5042e+00_rb,5.9719e+00_rb,5.5317e+00_rb,4.3254e+00_rb,9.1937e-01_rb/)\n      kbo(:, 1,45, 9) = (/ &\n     &1.1794e+00_rb,1.7969e+00_rb,1.8343e+00_rb,1.5476e+00_rb,4.2007e-01_rb/)\n      kbo(:, 2,45, 9) = (/ &\n     &1.8762e+00_rb,2.4795e+00_rb,2.4742e+00_rb,2.0501e+00_rb,5.2163e-01_rb/)\n      kbo(:, 3,45, 9) = (/ &\n     &2.8809e+00_rb,3.3442e+00_rb,3.2721e+00_rb,2.6566e+00_rb,6.3409e-01_rb/)\n      kbo(:, 4,45, 9) = (/ &\n     &4.2825e+00_rb,4.4131e+00_rb,4.2443e+00_rb,3.3788e+00_rb,7.5354e-01_rb/)\n      kbo(:, 5,45, 9) = (/ &\n     &6.2077e+00_rb,5.7830e+00_rb,5.3934e+00_rb,4.2249e+00_rb,8.7651e-01_rb/)\n      kbo(:, 1,46, 9) = (/ &\n     &1.0327e+00_rb,1.6453e+00_rb,1.6900e+00_rb,1.4307e+00_rb,3.8001e-01_rb/)\n      kbo(:, 2,46, 9) = (/ &\n     &1.6840e+00_rb,2.3071e+00_rb,2.3154e+00_rb,1.9251e+00_rb,4.7892e-01_rb/)\n      kbo(:, 3,46, 9) = (/ &\n     &2.6449e+00_rb,3.1623e+00_rb,3.1054e+00_rb,2.5294e+00_rb,5.8968e-01_rb/)\n      kbo(:, 4,46, 9) = (/ &\n     &4.0149e+00_rb,4.2299e+00_rb,4.0828e+00_rb,3.2577e+00_rb,7.0805e-01_rb/)\n      kbo(:, 5,46, 9) = (/ &\n     &5.9211e+00_rb,5.5984e+00_rb,5.2528e+00_rb,4.1223e+00_rb,8.3110e-01_rb/)\n      kbo(:, 1,47, 9) = (/ &\n     &8.6791e-01_rb,1.4650e+00_rb,1.5175e+00_rb,1.2909e+00_rb,3.3829e-01_rb/)\n      kbo(:, 2,47, 9) = (/ &\n     &1.4548e+00_rb,2.0919e+00_rb,2.1155e+00_rb,1.7684e+00_rb,4.3374e-01_rb/)\n      kbo(:, 3,47, 9) = (/ &\n     &2.3437e+00_rb,2.9171e+00_rb,2.8820e+00_rb,2.3592e+00_rb,5.4146e-01_rb/)\n      kbo(:, 4,47, 9) = (/ &\n     &3.6410e+00_rb,3.9658e+00_rb,3.8455e+00_rb,3.0807e+00_rb,6.5808e-01_rb/)\n      kbo(:, 5,47, 9) = (/ &\n     &5.4757e+00_rb,5.2982e+00_rb,5.0168e+00_rb,3.9488e+00_rb,7.8042e-01_rb/)\n      kbo(:, 1,48, 9) = (/ &\n     &7.4197e-01_rb,1.3175e+00_rb,1.3727e+00_rb,1.1710e+00_rb,2.9912e-01_rb/)\n      kbo(:, 2,48, 9) = (/ &\n     &1.2795e+00_rb,1.9175e+00_rb,1.9504e+00_rb,1.6359e+00_rb,3.9088e-01_rb/)\n      kbo(:, 3,48, 9) = (/ &\n     &2.1163e+00_rb,2.7243e+00_rb,2.7026e+00_rb,2.2191e+00_rb,4.9535e-01_rb/)\n      kbo(:, 4,48, 9) = (/ &\n     &3.3685e+00_rb,3.7692e+00_rb,3.6648e+00_rb,2.9415e+00_rb,6.0991e-01_rb/)\n      kbo(:, 5,48, 9) = (/ &\n     &5.1784e+00_rb,5.1043e+00_rb,4.8553e+00_rb,3.8227e+00_rb,7.3131e-01_rb/)\n      kbo(:, 1,49, 9) = (/ &\n     &6.5229e-01_rb,1.2051e+00_rb,1.2591e+00_rb,1.0738e+00_rb,2.6269e-01_rb/)\n      kbo(:, 2,49, 9) = (/ &\n     &1.1591e+00_rb,1.7908e+00_rb,1.8269e+00_rb,1.5329e+00_rb,3.5032e-01_rb/)\n      kbo(:, 3,49, 9) = (/ &\n     &1.9719e+00_rb,2.5959e+00_rb,2.5784e+00_rb,2.1177e+00_rb,4.5127e-01_rb/)\n      kbo(:, 4,49, 9) = (/ &\n     &3.2176e+00_rb,3.6617e+00_rb,3.5592e+00_rb,2.8538e+00_rb,5.6309e-01_rb/)\n      kbo(:, 5,49, 9) = (/ &\n     &5.0660e+00_rb,5.0444e+00_rb,4.7964e+00_rb,3.7669e+00_rb,6.8298e-01_rb/)\n      kbo(:, 1,50, 9) = (/ &\n     &5.4718e-01_rb,1.0700e+00_rb,1.1242e+00_rb,9.6269e-01_rb,2.3041e-01_rb/)\n      kbo(:, 2,50, 9) = (/ &\n     &1.0029e+00_rb,1.6230e+00_rb,1.6660e+00_rb,1.4048e+00_rb,3.1350e-01_rb/)\n      kbo(:, 3,50, 9) = (/ &\n     &1.7557e+00_rb,2.3977e+00_rb,2.3952e+00_rb,1.9754e+00_rb,4.1052e-01_rb/)\n      kbo(:, 4,50, 9) = (/ &\n     &2.9398e+00_rb,3.4467e+00_rb,3.3608e+00_rb,2.7053e+00_rb,5.1916e-01_rb/)\n      kbo(:, 5,50, 9) = (/ &\n     &4.7374e+00_rb,4.8217e+00_rb,4.6033e+00_rb,3.6228e+00_rb,6.3755e-01_rb/)\n      kbo(:, 1,51, 9) = (/ &\n     &4.4659e-01_rb,9.3305e-01_rb,9.8713e-01_rb,8.5042e-01_rb,2.0131e-01_rb/)\n      kbo(:, 2,51, 9) = (/ &\n     &8.4503e-01_rb,1.4458e+00_rb,1.4962e+00_rb,1.2698e+00_rb,2.7950e-01_rb/)\n      kbo(:, 3,51, 9) = (/ &\n     &1.5227e+00_rb,2.1776e+00_rb,2.1908e+00_rb,1.8185e+00_rb,3.7211e-01_rb/)\n      kbo(:, 4,51, 9) = (/ &\n     &2.6197e+00_rb,3.1878e+00_rb,3.1271e+00_rb,2.5305e+00_rb,4.7775e-01_rb/)\n      kbo(:, 5,51, 9) = (/ &\n     &4.3246e+00_rb,4.5333e+00_rb,4.3504e+00_rb,3.4392e+00_rb,5.9331e-01_rb/)\n      kbo(:, 1,52, 9) = (/ &\n     &3.7000e-01_rb,8.2088e-01_rb,8.7232e-01_rb,7.5398e-01_rb,1.7473e-01_rb/)\n      kbo(:, 2,52, 9) = (/ &\n     &7.2411e-01_rb,1.3013e+00_rb,1.3548e+00_rb,1.1545e+00_rb,2.4775e-01_rb/)\n      kbo(:, 3,52, 9) = (/ &\n     &1.3455e+00_rb,2.0001e+00_rb,2.0236e+00_rb,1.6871e+00_rb,3.3555e-01_rb/)\n      kbo(:, 4,52, 9) = (/ &\n     &2.3815e+00_rb,2.9886e+00_rb,2.9408e+00_rb,2.3888e+00_rb,4.3798e-01_rb/)\n      kbo(:, 5,52, 9) = (/ &\n     &4.0315e+00_rb,4.3264e+00_rb,4.1654e+00_rb,3.2990e+00_rb,5.5079e-01_rb/)\n      kbo(:, 1,53, 9) = (/ &\n     &3.1522e-01_rb,7.3236e-01_rb,7.7935e-01_rb,6.7369e-01_rb,1.5034e-01_rb/)\n      kbo(:, 2,53, 9) = (/ &\n     &6.3787e-01_rb,1.1908e+00_rb,1.2433e+00_rb,1.0610e+00_rb,2.1835e-01_rb/)\n      kbo(:, 3,53, 9) = (/ &\n     &1.2250e+00_rb,1.8717e+00_rb,1.8985e+00_rb,1.5852e+00_rb,3.0124e-01_rb/)\n      kbo(:, 4,53, 9) = (/ &\n     &2.2328e+00_rb,2.8593e+00_rb,2.8149e+00_rb,2.2876e+00_rb,3.9993e-01_rb/)\n      kbo(:, 5,53, 9) = (/ &\n     &3.8806e+00_rb,4.2255e+00_rb,4.0654e+00_rb,3.2164e+00_rb,5.0965e-01_rb/)\n      kbo(:, 1,54, 9) = (/ &\n     &2.3422e-01_rb,6.0076e-01_rb,6.4671e-01_rb,5.6503e-01_rb,1.2928e-01_rb/)\n      kbo(:, 2,54, 9) = (/ &\n     &4.9005e-01_rb,1.0010e+00_rb,1.0587e+00_rb,9.1460e-01_rb,1.9217e-01_rb/)\n      kbo(:, 3,54, 9) = (/ &\n     &9.7166e-01_rb,1.6014e+00_rb,1.6473e+00_rb,1.3943e+00_rb,2.7068e-01_rb/)\n      kbo(:, 4,54, 9) = (/ &\n     &1.8237e+00_rb,2.4909e+00_rb,2.4828e+00_rb,2.0443e+00_rb,3.6438e-01_rb/)\n      kbo(:, 5,54, 9) = (/ &\n     &3.2575e+00_rb,3.7456e+00_rb,3.6419e+00_rb,2.9148e+00_rb,4.7112e-01_rb/)\n      kbo(:, 1,55, 9) = (/ &\n     &1.5838e-01_rb,4.6639e-01_rb,5.1049e-01_rb,4.5411e-01_rb,1.1083e-01_rb/)\n      kbo(:, 2,55, 9) = (/ &\n     &3.4306e-01_rb,7.9590e-01_rb,8.5878e-01_rb,7.5589e-01_rb,1.6856e-01_rb/)\n      kbo(:, 3,55, 9) = (/ &\n     &7.0266e-01_rb,1.2949e+00_rb,1.3605e+00_rb,1.1760e+00_rb,2.4233e-01_rb/)\n      kbo(:, 4,55, 9) = (/ &\n     &1.3593e+00_rb,2.0439e+00_rb,2.0790e+00_rb,1.7490e+00_rb,3.3108e-01_rb/)\n      kbo(:, 5,55, 9) = (/ &\n     &2.4959e+00_rb,3.1221e+00_rb,3.0894e+00_rb,2.5235e+00_rb,4.3367e-01_rb/)\n      kbo(:, 1,56, 9) = (/ &\n     &1.0564e-01_rb,3.5968e-01_rb,4.0062e-01_rb,3.6250e-01_rb,9.4093e-02_rb/)\n      kbo(:, 2,56, 9) = (/ &\n     &2.3778e-01_rb,6.3076e-01_rb,6.9353e-01_rb,6.2192e-01_rb,1.4691e-01_rb/)\n      kbo(:, 3,56, 9) = (/ &\n     &5.0289e-01_rb,1.0440e+00_rb,1.1212e+00_rb,9.8957e-01_rb,2.1564e-01_rb/)\n      kbo(:, 4,56, 9) = (/ &\n     &1.0047e+00_rb,1.6731e+00_rb,1.7388e+00_rb,1.4948e+00_rb,2.9947e-01_rb/)\n      kbo(:, 5,56, 9) = (/ &\n     &1.8976e+00_rb,2.5969e+00_rb,2.6179e+00_rb,2.1832e+00_rb,3.9803e-01_rb/)\n      kbo(:, 1,57, 9) = (/ &\n     &6.9404e-02_rb,2.7490e-01_rb,3.1190e-01_rb,2.8693e-01_rb,7.9174e-02_rb/)\n      kbo(:, 2,57, 9) = (/ &\n     &1.6275e-01_rb,4.9714e-01_rb,5.5717e-01_rb,5.0875e-01_rb,1.2713e-01_rb/)\n      kbo(:, 3,57, 9) = (/ &\n     &3.5620e-01_rb,8.3998e-01_rb,9.2115e-01_rb,8.2990e-01_rb,1.9063e-01_rb/)\n      kbo(:, 4,57, 9) = (/ &\n     &7.3515e-01_rb,1.3656e+00_rb,1.4515e+00_rb,1.2750e+00_rb,2.6981e-01_rb/)\n      kbo(:, 5,57, 9) = (/ &\n     &1.4305e+00_rb,2.1547e+00_rb,2.2152e+00_rb,1.8869e+00_rb,3.6361e-01_rb/)\n      kbo(:, 1,58, 9) = (/ &\n     &1.2018e-02_rb,6.8819e-02_rb,1.0253e-01_rb,1.3454e-01_rb,6.6409e-02_rb/)\n      kbo(:, 2,58, 9) = (/ &\n     &2.9376e-02_rb,1.2869e-01_rb,1.8932e-01_rb,2.4688e-01_rb,1.0988e-01_rb/)\n      kbo(:, 3,58, 9) = (/ &\n     &6.6678e-02_rb,2.2200e-01_rb,3.2071e-01_rb,4.1332e-01_rb,1.6852e-01_rb/)\n      kbo(:, 4,58, 9) = (/ &\n     &1.4218e-01_rb,3.6629e-01_rb,5.1309e-01_rb,6.4691e-01_rb,2.4300e-01_rb/)\n      kbo(:, 5,58, 9) = (/ &\n     &2.8506e-01_rb,5.8551e-01_rb,7.9229e-01_rb,9.6816e-01_rb,3.3198e-01_rb/)\n      kbo(:, 1,59, 9) = (/ &\n     &1.0974e-02_rb,7.7674e-02_rb,1.1174e-01_rb,1.3484e-01_rb,6.0877e-02_rb/)\n      kbo(:, 2,59, 9) = (/ &\n     &2.7572e-02_rb,1.4726e-01_rb,2.0947e-01_rb,2.5117e-01_rb,1.0237e-01_rb/)\n      kbo(:, 3,59, 9) = (/ &\n     &6.4218e-02_rb,2.5542e-01_rb,3.5789e-01_rb,4.2487e-01_rb,1.5885e-01_rb/)\n      kbo(:, 4,59, 9) = (/ &\n     &1.3998e-01_rb,4.2159e-01_rb,5.7382e-01_rb,6.6846e-01_rb,2.3069e-01_rb/)\n      kbo(:, 5,59, 9) = (/ &\n     &2.8653e-01_rb,6.7350e-01_rb,8.8507e-01_rb,9.9974e-01_rb,3.1701e-01_rb/)\n      kbo(:, 1,13,10) = (/ &\n     &3.0887e+02_rb,2.3182e+02_rb,1.5477e+02_rb,7.7734e+01_rb,3.2340e+00_rb/)\n      kbo(:, 2,13,10) = (/ &\n     &4.5010e+02_rb,3.3773e+02_rb,2.2537e+02_rb,1.1301e+02_rb,3.1679e+00_rb/)\n      kbo(:, 3,13,10) = (/ &\n     &6.1970e+02_rb,4.6492e+02_rb,3.1014e+02_rb,1.5536e+02_rb,3.1118e+00_rb/)\n      kbo(:, 4,13,10) = (/ &\n     &8.1413e+02_rb,6.1074e+02_rb,4.0734e+02_rb,2.0395e+02_rb,3.0351e+00_rb/)\n      kbo(:, 5,13,10) = (/ &\n     &1.0345e+03_rb,7.7604e+02_rb,5.1753e+02_rb,2.5903e+02_rb,2.9847e+00_rb/)\n      kbo(:, 1,14,10) = (/ &\n     &1.8722e+02_rb,1.4057e+02_rb,9.3932e+01_rb,4.7308e+01_rb,3.5502e+00_rb/)\n      kbo(:, 2,14,10) = (/ &\n     &2.7007e+02_rb,2.0269e+02_rb,1.3533e+02_rb,6.7970e+01_rb,3.4874e+00_rb/)\n      kbo(:, 3,14,10) = (/ &\n     &3.6889e+02_rb,2.7681e+02_rb,1.8473e+02_rb,9.2654e+01_rb,3.4323e+00_rb/)\n      kbo(:, 4,14,10) = (/ &\n     &4.8380e+02_rb,3.6298e+02_rb,2.4217e+02_rb,1.2136e+02_rb,3.3766e+00_rb/)\n      kbo(:, 5,14,10) = (/ &\n     &6.1384e+02_rb,4.6051e+02_rb,3.0717e+02_rb,1.5385e+02_rb,3.3022e+00_rb/)\n      kbo(:, 1,15,10) = (/ &\n     &1.1327e+02_rb,8.5100e+01_rb,5.6942e+01_rb,2.8827e+01_rb,3.8722e+00_rb/)\n      kbo(:, 2,15,10) = (/ &\n     &1.6194e+02_rb,1.2160e+02_rb,8.1262e+01_rb,4.0948e+01_rb,3.8151e+00_rb/)\n      kbo(:, 3,15,10) = (/ &\n     &2.2047e+02_rb,1.6549e+02_rb,1.1051e+02_rb,5.5552e+01_rb,3.7597e+00_rb/)\n      kbo(:, 4,15,10) = (/ &\n     &2.8853e+02_rb,2.1653e+02_rb,1.4453e+02_rb,7.2538e+01_rb,3.6967e+00_rb/)\n      kbo(:, 5,15,10) = (/ &\n     &3.6531e+02_rb,2.7411e+02_rb,1.8291e+02_rb,9.1708e+01_rb,3.6313e+00_rb/)\n      kbo(:, 1,16,10) = (/ &\n     &8.0065e+01_rb,6.0189e+01_rb,4.0328e+01_rb,2.0552e+01_rb,4.2109e+00_rb/)\n      kbo(:, 2,16,10) = (/ &\n     &1.1401e+02_rb,8.5639e+01_rb,5.7279e+01_rb,2.8971e+01_rb,4.1507e+00_rb/)\n      kbo(:, 3,16,10) = (/ &\n     &1.5472e+02_rb,1.1617e+02_rb,7.7619e+01_rb,3.9099e+01_rb,4.0906e+00_rb/)\n      kbo(:, 4,16,10) = (/ &\n     &2.0197e+02_rb,1.5160e+02_rb,1.0123e+02_rb,5.0878e+01_rb,4.0252e+00_rb/)\n      kbo(:, 5,16,10) = (/ &\n     &2.5492e+02_rb,1.9130e+02_rb,1.2769e+02_rb,6.4095e+01_rb,3.9532e+00_rb/)\n      kbo(:, 1,17,10) = (/ &\n     &5.7968e+01_rb,4.3609e+01_rb,2.9277e+01_rb,1.5223e+01_rb,4.5287e+00_rb/)\n      kbo(:, 2,17,10) = (/ &\n     &8.2190e+01_rb,6.1765e+01_rb,4.1354e+01_rb,2.1049e+01_rb,4.4713e+00_rb/)\n      kbo(:, 3,17,10) = (/ &\n     &1.1116e+02_rb,8.3481e+01_rb,5.5816e+01_rb,2.8216e+01_rb,4.4079e+00_rb/)\n      kbo(:, 4,17,10) = (/ &\n     &1.4447e+02_rb,1.0846e+02_rb,7.2459e+01_rb,3.6495e+01_rb,4.3339e+00_rb/)\n      kbo(:, 5,17,10) = (/ &\n     &1.8168e+02_rb,1.3637e+02_rb,9.1060e+01_rb,4.5781e+01_rb,4.2592e+00_rb/)\n      kbo(:, 1,18,10) = (/ &\n     &4.2612e+01_rb,3.2081e+01_rb,2.1612e+01_rb,1.2271e+01_rb,4.8071e+00_rb/)\n      kbo(:, 2,18,10) = (/ &\n     &6.0147e+01_rb,4.5223e+01_rb,3.0329e+01_rb,1.5934e+01_rb,4.7499e+00_rb/)\n      kbo(:, 3,18,10) = (/ &\n     &8.0941e+01_rb,6.0812e+01_rb,4.0702e+01_rb,2.0761e+01_rb,4.6797e+00_rb/)\n      kbo(:, 4,18,10) = (/ &\n     &1.0473e+02_rb,7.8652e+01_rb,5.2586e+01_rb,2.6600e+01_rb,4.6080e+00_rb/)\n      kbo(:, 5,18,10) = (/ &\n     &1.3143e+02_rb,9.8677e+01_rb,6.5930e+01_rb,3.3232e+01_rb,4.5353e+00_rb/)\n      kbo(:, 1,19,10) = (/ &\n     &3.0448e+01_rb,2.2951e+01_rb,1.5620e+01_rb,1.0168e+01_rb,5.0350e+00_rb/)\n      kbo(:, 2,19,10) = (/ &\n     &4.2741e+01_rb,3.2162e+01_rb,2.1658e+01_rb,1.2576e+01_rb,4.9712e+00_rb/)\n      kbo(:, 3,19,10) = (/ &\n     &5.7239e+01_rb,4.3029e+01_rb,2.8857e+01_rb,1.5561e+01_rb,4.9060e+00_rb/)\n      kbo(:, 4,19,10) = (/ &\n     &7.3990e+01_rb,5.5595e+01_rb,3.7227e+01_rb,1.9263e+01_rb,4.8462e+00_rb/)\n      kbo(:, 5,19,10) = (/ &\n     &9.3283e+01_rb,7.0062e+01_rb,4.6859e+01_rb,2.3820e+01_rb,4.7826e+00_rb/)\n      kbo(:, 1,20,10) = (/ &\n     &2.3494e+01_rb,1.7742e+01_rb,1.2645e+01_rb,9.3657e+00_rb,5.1974e+00_rb/)\n      kbo(:, 2,20,10) = (/ &\n     &3.2767e+01_rb,2.4679e+01_rb,1.6836e+01_rb,1.0930e+01_rb,5.1468e+00_rb/)\n      kbo(:, 3,20,10) = (/ &\n     &4.3805e+01_rb,3.2955e+01_rb,2.2186e+01_rb,1.3029e+01_rb,5.0951e+00_rb/)\n      kbo(:, 4,20,10) = (/ &\n     &5.6900e+01_rb,4.2771e+01_rb,2.8686e+01_rb,1.5712e+01_rb,5.0360e+00_rb/)\n      kbo(:, 5,20,10) = (/ &\n     &7.2009e+01_rb,5.4098e+01_rb,3.6220e+01_rb,1.9012e+01_rb,4.9716e+00_rb/)\n      kbo(:, 1,21,10) = (/ &\n     &1.8574e+01_rb,1.4067e+01_rb,1.0798e+01_rb,9.1144e+00_rb,5.2989e+00_rb/)\n      kbo(:, 2,21,10) = (/ &\n     &2.5833e+01_rb,1.9488e+01_rb,1.3882e+01_rb,1.0250e+01_rb,5.2602e+00_rb/)\n      kbo(:, 3,21,10) = (/ &\n     &3.4706e+01_rb,2.6128e+01_rb,1.7872e+01_rb,1.1627e+01_rb,5.2166e+00_rb/)\n      kbo(:, 4,21,10) = (/ &\n     &4.5183e+01_rb,3.3979e+01_rb,2.2895e+01_rb,1.3514e+01_rb,5.1658e+00_rb/)\n      kbo(:, 5,21,10) = (/ &\n     &5.7162e+01_rb,4.2958e+01_rb,2.8816e+01_rb,1.5946e+01_rb,5.1078e+00_rb/)\n      kbo(:, 1,22,10) = (/ &\n     &1.5385e+01_rb,1.1760e+01_rb,9.8072e+00_rb,8.9715e+00_rb,5.3316e+00_rb/)\n      kbo(:, 2,22,10) = (/ &\n     &2.1421e+01_rb,1.6187e+01_rb,1.2154e+01_rb,1.0019e+01_rb,5.3065e+00_rb/)\n      kbo(:, 3,22,10) = (/ &\n     &2.8763e+01_rb,2.1675e+01_rb,1.5363e+01_rb,1.1158e+01_rb,5.2767e+00_rb/)\n      kbo(:, 4,22,10) = (/ &\n     &3.7378e+01_rb,2.8123e+01_rb,1.9262e+01_rb,1.2474e+01_rb,5.2393e+00_rb/)\n      kbo(:, 5,22,10) = (/ &\n     &4.7335e+01_rb,3.5583e+01_rb,2.3996e+01_rb,1.4183e+01_rb,5.1848e+00_rb/)\n      kbo(:, 1,23,10) = (/ &\n     &1.2958e+01_rb,1.0148e+01_rb,9.3026e+00_rb,8.7646e+00_rb,5.3174e+00_rb/)\n      kbo(:, 2,23,10) = (/ &\n     &1.8016e+01_rb,1.3712e+01_rb,1.1027e+01_rb,9.7388e+00_rb,5.3065e+00_rb/)\n      kbo(:, 3,23,10) = (/ &\n     &2.4116e+01_rb,1.8203e+01_rb,1.3458e+01_rb,1.0800e+01_rb,5.2863e+00_rb/)\n      kbo(:, 4,23,10) = (/ &\n     &3.1331e+01_rb,2.3589e+01_rb,1.6625e+01_rb,1.1918e+01_rb,5.2605e+00_rb/)\n      kbo(:, 5,23,10) = (/ &\n     &3.9751e+01_rb,2.9901e+01_rb,2.0473e+01_rb,1.3180e+01_rb,5.2164e+00_rb/)\n      kbo(:, 1,24,10) = (/ &\n     &1.0965e+01_rb,8.9178e+00_rb,8.8968e+00_rb,8.4756e+00_rb,5.2609e+00_rb/)\n      kbo(:, 2,24,10) = (/ &\n     &1.5180e+01_rb,1.1787e+01_rb,1.0354e+01_rb,9.3845e+00_rb,5.2622e+00_rb/)\n      kbo(:, 3,24,10) = (/ &\n     &2.0304e+01_rb,1.5418e+01_rb,1.2131e+01_rb,1.0371e+01_rb,5.2552e+00_rb/)\n      kbo(:, 4,24,10) = (/ &\n     &2.6453e+01_rb,1.9955e+01_rb,1.4586e+01_rb,1.1412e+01_rb,5.2428e+00_rb/)\n      kbo(:, 5,24,10) = (/ &\n     &3.3727e+01_rb,2.5409e+01_rb,1.7807e+01_rb,1.2537e+01_rb,5.2080e+00_rb/)\n      kbo(:, 1,25,10) = (/ &\n     &9.4802e+00_rb,8.0678e+00_rb,8.5346e+00_rb,8.1689e+00_rb,5.1602e+00_rb/)\n      kbo(:, 2,25,10) = (/ &\n     &1.3091e+01_rb,1.0412e+01_rb,9.8804e+00_rb,9.0420e+00_rb,5.1798e+00_rb/)\n      kbo(:, 3,25,10) = (/ &\n     &1.7556e+01_rb,1.3502e+01_rb,1.1390e+01_rb,9.9740e+00_rb,5.1919e+00_rb/)\n      kbo(:, 4,25,10) = (/ &\n     &2.2937e+01_rb,1.7389e+01_rb,1.3318e+01_rb,1.0956e+01_rb,5.1855e+00_rb/)\n      kbo(:, 5,25,10) = (/ &\n     &2.9162e+01_rb,2.2007e+01_rb,1.5910e+01_rb,1.2043e+01_rb,5.1753e+00_rb/)\n      kbo(:, 1,26,10) = (/ &\n     &8.4883e+00_rb,7.6029e+00_rb,8.2305e+00_rb,7.8781e+00_rb,5.0300e+00_rb/)\n      kbo(:, 2,26,10) = (/ &\n     &1.1732e+01_rb,9.5611e+00_rb,9.4929e+00_rb,8.7340e+00_rb,5.0703e+00_rb/)\n      kbo(:, 3,26,10) = (/ &\n     &1.5710e+01_rb,1.2274e+01_rb,1.0941e+01_rb,9.6483e+00_rb,5.1008e+00_rb/)\n      kbo(:, 4,26,10) = (/ &\n     &2.0377e+01_rb,1.5577e+01_rb,1.2626e+01_rb,1.0617e+01_rb,5.1143e+00_rb/)\n      kbo(:, 5,26,10) = (/ &\n     &2.5762e+01_rb,1.9497e+01_rb,1.4646e+01_rb,1.1691e+01_rb,5.1337e+00_rb/)\n      kbo(:, 1,27,10) = (/ &\n     &7.9831e+00_rb,7.4657e+00_rb,8.0386e+00_rb,7.6712e+00_rb,4.8762e+00_rb/)\n      kbo(:, 2,27,10) = (/ &\n     &1.1007e+01_rb,9.2258e+00_rb,9.2928e+00_rb,8.5396e+00_rb,4.9402e+00_rb/)\n      kbo(:, 3,27,10) = (/ &\n     &1.4621e+01_rb,1.1594e+01_rb,1.0757e+01_rb,9.4652e+00_rb,4.9915e+00_rb/)\n      kbo(:, 4,27,10) = (/ &\n     &1.8847e+01_rb,1.4547e+01_rb,1.2326e+01_rb,1.0475e+01_rb,5.0304e+00_rb/)\n      kbo(:, 5,27,10) = (/ &\n     &2.3744e+01_rb,1.8045e+01_rb,1.4056e+01_rb,1.1545e+01_rb,5.0808e+00_rb/)\n      kbo(:, 1,28,10) = (/ &\n     &7.7237e+00_rb,7.4713e+00_rb,7.9486e+00_rb,7.5349e+00_rb,4.7172e+00_rb/)\n      kbo(:, 2,28,10) = (/ &\n     &1.0564e+01_rb,9.1113e+00_rb,9.2602e+00_rb,8.4182e+00_rb,4.8066e+00_rb/)\n      kbo(:, 3,28,10) = (/ &\n     &1.3950e+01_rb,1.1225e+01_rb,1.0715e+01_rb,9.3795e+00_rb,4.8773e+00_rb/)\n      kbo(:, 4,28,10) = (/ &\n     &1.7938e+01_rb,1.3957e+01_rb,1.2227e+01_rb,1.0437e+01_rb,4.9557e+00_rb/)\n      kbo(:, 5,28,10) = (/ &\n     &2.2520e+01_rb,1.7201e+01_rb,1.3827e+01_rb,1.1495e+01_rb,5.0256e+00_rb/)\n      kbo(:, 1,29,10) = (/ &\n     &7.9252e+00_rb,7.7575e+00_rb,8.1492e+00_rb,7.5791e+00_rb,4.5608e+00_rb/)\n      kbo(:, 2,29,10) = (/ &\n     &1.0756e+01_rb,9.3871e+00_rb,9.5612e+00_rb,8.5083e+00_rb,4.6721e+00_rb/)\n      kbo(:, 3,29,10) = (/ &\n     &1.4151e+01_rb,1.1455e+01_rb,1.1026e+01_rb,9.5615e+00_rb,4.7742e+00_rb/)\n      kbo(:, 4,29,10) = (/ &\n     &1.8135e+01_rb,1.4153e+01_rb,1.2557e+01_rb,1.0665e+01_rb,4.8851e+00_rb/)\n      kbo(:, 5,29,10) = (/ &\n     &2.2757e+01_rb,1.7409e+01_rb,1.4161e+01_rb,1.1730e+01_rb,4.9738e+00_rb/)\n      kbo(:, 1,30,10) = (/ &\n     &8.3260e+00_rb,8.1445e+00_rb,8.5115e+00_rb,7.7075e+00_rb,4.4112e+00_rb/)\n      kbo(:, 2,30,10) = (/ &\n     &1.1239e+01_rb,9.8059e+00_rb,9.9796e+00_rb,8.7369e+00_rb,4.5506e+00_rb/)\n      kbo(:, 3,30,10) = (/ &\n     &1.4731e+01_rb,1.1916e+01_rb,1.1495e+01_rb,9.8748e+00_rb,4.7011e+00_rb/)\n      kbo(:, 4,30,10) = (/ &\n     &1.8856e+01_rb,1.4710e+01_rb,1.3064e+01_rb,1.1008e+01_rb,4.8328e+00_rb/)\n      kbo(:, 5,30,10) = (/ &\n     &2.3705e+01_rb,1.8124e+01_rb,1.4716e+01_rb,1.2119e+01_rb,4.9257e+00_rb/)\n      kbo(:, 1,31,10) = (/ &\n     &9.2196e+00_rb,8.8116e+00_rb,9.1465e+00_rb,8.0622e+00_rb,4.2873e+00_rb/)\n      kbo(:, 2,31,10) = (/ &\n     &1.2392e+01_rb,1.0607e+01_rb,1.0704e+01_rb,9.2367e+00_rb,4.4733e+00_rb/)\n      kbo(:, 3,31,10) = (/ &\n     &1.6211e+01_rb,1.2983e+01_rb,1.2309e+01_rb,1.0449e+01_rb,4.6511e+00_rb/)\n      kbo(:, 4,31,10) = (/ &\n     &2.0762e+01_rb,1.6100e+01_rb,1.3996e+01_rb,1.1659e+01_rb,4.7878e+00_rb/)\n      kbo(:, 5,31,10) = (/ &\n     &2.6150e+01_rb,1.9908e+01_rb,1.5819e+01_rb,1.2859e+01_rb,4.9198e+00_rb/)\n      kbo(:, 1,32,10) = (/ &\n     &1.0359e+01_rb,9.6137e+00_rb,9.8752e+00_rb,8.5830e+00_rb,4.2174e+00_rb/)\n      kbo(:, 2,32,10) = (/ &\n     &1.3877e+01_rb,1.1631e+01_rb,1.1538e+01_rb,9.8576e+00_rb,4.4285e+00_rb/)\n      kbo(:, 3,32,10) = (/ &\n     &1.8140e+01_rb,1.4380e+01_rb,1.3269e+01_rb,1.1160e+01_rb,4.5970e+00_rb/)\n      kbo(:, 4,32,10) = (/ &\n     &2.3264e+01_rb,1.7927e+01_rb,1.5118e+01_rb,1.2461e+01_rb,4.7493e+00_rb/)\n      kbo(:, 5,32,10) = (/ &\n     &2.9418e+01_rb,2.2303e+01_rb,1.7227e+01_rb,1.3746e+01_rb,4.9087e+00_rb/)\n      kbo(:, 1,33,10) = (/ &\n     &1.1859e+01_rb,1.0640e+01_rb,1.0773e+01_rb,9.2560e+00_rb,4.1651e+00_rb/)\n      kbo(:, 2,33,10) = (/ &\n     &1.5884e+01_rb,1.3011e+01_rb,1.2572e+01_rb,1.0635e+01_rb,4.3715e+00_rb/)\n      kbo(:, 3,33,10) = (/ &\n     &2.0782e+01_rb,1.6260e+01_rb,1.4502e+01_rb,1.2047e+01_rb,4.5449e+00_rb/)\n      kbo(:, 4,33,10) = (/ &\n     &2.6731e+01_rb,2.0436e+01_rb,1.6585e+01_rb,1.3454e+01_rb,4.7445e+00_rb/)\n      kbo(:, 5,33,10) = (/ &\n     &3.3983e+01_rb,2.5659e+01_rb,1.9186e+01_rb,1.4880e+01_rb,4.8947e+00_rb/)\n      kbo(:, 1,34,10) = (/ &\n     &1.3139e+01_rb,1.1513e+01_rb,1.1537e+01_rb,9.8375e+00_rb,4.1077e+00_rb/)\n      kbo(:, 2,34,10) = (/ &\n     &1.7636e+01_rb,1.4225e+01_rb,1.3489e+01_rb,1.1311e+01_rb,4.3160e+00_rb/)\n      kbo(:, 3,34,10) = (/ &\n     &2.3141e+01_rb,1.7962e+01_rb,1.5594e+01_rb,1.2810e+01_rb,4.5443e+00_rb/)\n      kbo(:, 4,34,10) = (/ &\n     &2.9960e+01_rb,2.2778e+01_rb,1.7924e+01_rb,1.4335e+01_rb,4.7397e+00_rb/)\n      kbo(:, 5,34,10) = (/ &\n     &3.8261e+01_rb,2.8825e+01_rb,2.1079e+01_rb,1.5921e+01_rb,4.9149e+00_rb/)\n      kbo(:, 1,35,10) = (/ &\n     &1.4201e+01_rb,1.2261e+01_rb,1.2213e+01_rb,1.0330e+01_rb,4.0399e+00_rb/)\n      kbo(:, 2,35,10) = (/ &\n     &1.9135e+01_rb,1.5305e+01_rb,1.4323e+01_rb,1.1895e+01_rb,4.2894e+00_rb/)\n      kbo(:, 3,35,10) = (/ &\n     &2.5318e+01_rb,1.9545e+01_rb,1.6589e+01_rb,1.3508e+01_rb,4.5397e+00_rb/)\n      kbo(:, 4,35,10) = (/ &\n     &3.3021e+01_rb,2.5025e+01_rb,1.9285e+01_rb,1.5170e+01_rb,4.7565e+00_rb/)\n      kbo(:, 5,35,10) = (/ &\n     &4.2461e+01_rb,3.1954e+01_rb,2.3012e+01_rb,1.6958e+01_rb,4.9332e+00_rb/)\n      kbo(:, 1,36,10) = (/ &\n     &1.4798e+01_rb,1.2717e+01_rb,1.2670e+01_rb,1.0657e+01_rb,3.9724e+00_rb/)\n      kbo(:, 2,36,10) = (/ &\n     &2.0092e+01_rb,1.6016e+01_rb,1.4899e+01_rb,1.2316e+01_rb,4.2681e+00_rb/)\n      kbo(:, 3,36,10) = (/ &\n     &2.6852e+01_rb,2.0677e+01_rb,1.7358e+01_rb,1.4052e+01_rb,4.5368e+00_rb/)\n      kbo(:, 4,36,10) = (/ &\n     &3.5362e+01_rb,2.6747e+01_rb,2.0391e+01_rb,1.5864e+01_rb,4.7528e+00_rb/)\n      kbo(:, 5,36,10) = (/ &\n     &4.5869e+01_rb,3.4503e+01_rb,2.4644e+01_rb,1.7859e+01_rb,4.9480e+00_rb/)\n      kbo(:, 1,37,10) = (/ &\n     &1.4369e+01_rb,1.2549e+01_rb,1.2615e+01_rb,1.0629e+01_rb,3.8875e+00_rb/)\n      kbo(:, 2,37,10) = (/ &\n     &1.9757e+01_rb,1.5840e+01_rb,1.4922e+01_rb,1.2359e+01_rb,4.2086e+00_rb/)\n      kbo(:, 3,37,10) = (/ &\n     &2.6704e+01_rb,2.0605e+01_rb,1.7493e+01_rb,1.4185e+01_rb,4.4864e+00_rb/)\n      kbo(:, 4,37,10) = (/ &\n     &3.5588e+01_rb,2.6935e+01_rb,2.0650e+01_rb,1.6109e+01_rb,4.7274e+00_rb/)\n      kbo(:, 5,37,10) = (/ &\n     &4.6659e+01_rb,3.5099e+01_rb,2.5115e+01_rb,1.8232e+01_rb,4.9396e+00_rb/)\n      kbo(:, 1,38,10) = (/ &\n     &1.4144e+01_rb,1.2516e+01_rb,1.2646e+01_rb,1.0674e+01_rb,3.8121e+00_rb/)\n      kbo(:, 2,38,10) = (/ &\n     &1.9692e+01_rb,1.5869e+01_rb,1.5055e+01_rb,1.2490e+01_rb,4.1526e+00_rb/)\n      kbo(:, 3,38,10) = (/ &\n     &2.6928e+01_rb,2.0800e+01_rb,1.7766e+01_rb,1.4428e+01_rb,4.4461e+00_rb/)\n      kbo(:, 4,38,10) = (/ &\n     &3.6364e+01_rb,2.7528e+01_rb,2.1122e+01_rb,1.6470e+01_rb,4.6931e+00_rb/)\n      kbo(:, 5,38,10) = (/ &\n     &4.8190e+01_rb,3.6248e+01_rb,2.5894e+01_rb,1.8774e+01_rb,4.9281e+00_rb/)\n      kbo(:, 1,39,10) = (/ &\n     &1.4265e+01_rb,1.2699e+01_rb,1.2840e+01_rb,1.0848e+01_rb,3.7413e+00_rb/)\n      kbo(:, 2,39,10) = (/ &\n     &2.0117e+01_rb,1.6218e+01_rb,1.5387e+01_rb,1.2783e+01_rb,4.1060e+00_rb/)\n      kbo(:, 3,39,10) = (/ &\n     &2.7852e+01_rb,2.1494e+01_rb,1.8320e+01_rb,1.4851e+01_rb,4.4149e+00_rb/)\n      kbo(:, 4,39,10) = (/ &\n     &3.8047e+01_rb,2.8782e+01_rb,2.1981e+01_rb,1.7084e+01_rb,4.6584e+00_rb/)\n      kbo(:, 5,39,10) = (/ &\n     &5.1036e+01_rb,3.8378e+01_rb,2.7311e+01_rb,1.9599e+01_rb,4.9209e+00_rb/)\n      kbo(:, 1,40,10) = (/ &\n     &1.3045e+01_rb,1.2072e+01_rb,1.2332e+01_rb,1.0515e+01_rb,3.6349e+00_rb/)\n      kbo(:, 2,40,10) = (/ &\n     &1.8669e+01_rb,1.5342e+01_rb,1.4892e+01_rb,1.2474e+01_rb,4.0124e+00_rb/)\n      kbo(:, 3,40,10) = (/ &\n     &2.6244e+01_rb,2.0390e+01_rb,1.7841e+01_rb,1.4589e+01_rb,4.3337e+00_rb/)\n      kbo(:, 4,40,10) = (/ &\n     &3.6291e+01_rb,2.7528e+01_rb,2.1453e+01_rb,1.6896e+01_rb,4.5936e+00_rb/)\n      kbo(:, 5,40,10) = (/ &\n     &4.9350e+01_rb,3.7123e+01_rb,2.6680e+01_rb,1.9495e+01_rb,4.8667e+00_rb/)\n      kbo(:, 1,41,10) = (/ &\n     &1.1803e+01_rb,1.1439e+01_rb,1.1786e+01_rb,1.0149e+01_rb,3.5171e+00_rb/)\n      kbo(:, 2,41,10) = (/ &\n     &1.7194e+01_rb,1.4495e+01_rb,1.4344e+01_rb,1.2127e+01_rb,3.9113e+00_rb/)\n      kbo(:, 3,41,10) = (/ &\n     &2.4539e+01_rb,1.9243e+01_rb,1.7307e+01_rb,1.4275e+01_rb,4.2454e+00_rb/)\n      kbo(:, 4,41,10) = (/ &\n     &3.4381e+01_rb,2.6175e+01_rb,2.0871e+01_rb,1.6646e+01_rb,4.5236e+00_rb/)\n      kbo(:, 5,41,10) = (/ &\n     &4.7387e+01_rb,3.5674e+01_rb,2.5938e+01_rb,1.9314e+01_rb,4.8021e+00_rb/)\n      kbo(:, 1,42,10) = (/ &\n     &1.0775e+01_rb,1.0903e+01_rb,1.1326e+01_rb,9.8291e+00_rb,3.4027e+00_rb/)\n      kbo(:, 2,42,10) = (/ &\n     &1.5966e+01_rb,1.3847e+01_rb,1.3900e+01_rb,1.1829e+01_rb,3.8068e+00_rb/)\n      kbo(:, 3,42,10) = (/ &\n     &2.3163e+01_rb,1.8350e+01_rb,1.6888e+01_rb,1.4033e+01_rb,4.1524e+00_rb/)\n      kbo(:, 4,42,10) = (/ &\n     &3.2905e+01_rb,2.5146e+01_rb,2.0462e+01_rb,1.6474e+01_rb,4.4507e+00_rb/)\n      kbo(:, 5,42,10) = (/ &\n     &4.5959e+01_rb,3.4632e+01_rb,2.5458e+01_rb,1.9233e+01_rb,4.7372e+00_rb/)\n      kbo(:, 1,43,10) = (/ &\n     &9.6785e+00_rb,1.0293e+01_rb,1.0788e+01_rb,9.4380e+00_rb,3.2651e+00_rb/)\n      kbo(:, 2,43,10) = (/ &\n     &1.4578e+01_rb,1.3133e+01_rb,1.3380e+01_rb,1.1460e+01_rb,3.6820e+00_rb/)\n      kbo(:, 3,43,10) = (/ &\n     &2.1568e+01_rb,1.7343e+01_rb,1.6367e+01_rb,1.3704e+01_rb,4.0432e+00_rb/)\n      kbo(:, 4,43,10) = (/ &\n     &3.1160e+01_rb,2.3941e+01_rb,1.9961e+01_rb,1.6215e+01_rb,4.3540e+00_rb/)\n      kbo(:, 5,43,10) = (/ &\n     &4.4112e+01_rb,3.3295e+01_rb,2.4834e+01_rb,1.9063e+01_rb,4.6487e+00_rb/)\n      kbo(:, 1,44,10) = (/ &\n     &8.6703e+00_rb,9.7103e+00_rb,1.0263e+01_rb,9.0428e+00_rb,3.1167e+00_rb/)\n      kbo(:, 2,44,10) = (/ &\n     &1.3323e+01_rb,1.2507e+01_rb,1.2872e+01_rb,1.1099e+01_rb,3.5429e+00_rb/)\n      kbo(:, 3,44,10) = (/ &\n     &2.0055e+01_rb,1.6451e+01_rb,1.5900e+01_rb,1.3381e+01_rb,3.9213e+00_rb/)\n      kbo(:, 4,44,10) = (/ &\n     &2.9535e+01_rb,2.2835e+01_rb,1.9530e+01_rb,1.5970e+01_rb,4.2481e+00_rb/)\n      kbo(:, 5,44,10) = (/ &\n     &4.2449e+01_rb,3.2099e+01_rb,2.4329e+01_rb,1.8926e+01_rb,4.5571e+00_rb/)\n      kbo(:, 1,45,10) = (/ &\n     &7.8818e+00_rb,9.2454e+00_rb,9.8403e+00_rb,8.7130e+00_rb,2.9638e+00_rb/)\n      kbo(:, 2,45,10) = (/ &\n     &1.2355e+01_rb,1.2035e+01_rb,1.2482e+01_rb,1.0822e+01_rb,3.4038e+00_rb/)\n      kbo(:, 3,45,10) = (/ &\n     &1.8948e+01_rb,1.5842e+01_rb,1.5587e+01_rb,1.3162e+01_rb,3.7919e+00_rb/)\n      kbo(:, 4,45,10) = (/ &\n     &2.8443e+01_rb,2.2122e+01_rb,1.9322e+01_rb,1.5846e+01_rb,4.1405e+00_rb/)\n      kbo(:, 5,45,10) = (/ &\n     &4.1558e+01_rb,3.1475e+01_rb,2.4163e+01_rb,1.8949e+01_rb,4.4650e+00_rb/)\n      kbo(:, 1,46,10) = (/ &\n     &7.1089e+00_rb,8.7733e+00_rb,9.3941e+00_rb,8.3547e+00_rb,2.8054e+00_rb/)\n      kbo(:, 2,46,10) = (/ &\n     &1.1401e+01_rb,1.1562e+01_rb,1.2067e+01_rb,1.0520e+01_rb,3.2536e+00_rb/)\n      kbo(:, 3,46,10) = (/ &\n     &1.7834e+01_rb,1.5248e+01_rb,1.5247e+01_rb,1.2927e+01_rb,3.6528e+00_rb/)\n      kbo(:, 4,46,10) = (/ &\n     &2.7249e+01_rb,2.1375e+01_rb,1.9093e+01_rb,1.5705e+01_rb,4.0192e+00_rb/)\n      kbo(:, 5,46,10) = (/ &\n     &4.0651e+01_rb,3.0866e+01_rb,2.4015e+01_rb,1.8943e+01_rb,4.3574e+00_rb/)\n      kbo(:, 1,47,10) = (/ &\n     &6.1649e+00_rb,8.1403e+00_rb,8.7798e+00_rb,7.8562e+00_rb,2.6253e+00_rb/)\n      kbo(:, 2,47,10) = (/ &\n     &1.0138e+01_rb,1.0874e+01_rb,1.1437e+01_rb,1.0055e+01_rb,3.0768e+00_rb/)\n      kbo(:, 3,47,10) = (/ &\n     &1.6220e+01_rb,1.4389e+01_rb,1.4631e+01_rb,1.2502e+01_rb,3.4927e+00_rb/)\n      kbo(:, 4,47,10) = (/ &\n     &2.5292e+01_rb,2.0083e+01_rb,1.8506e+01_rb,1.5334e+01_rb,3.8713e+00_rb/)\n      kbo(:, 5,47,10) = (/ &\n     &3.8579e+01_rb,2.9419e+01_rb,2.3431e+01_rb,1.8659e+01_rb,4.2295e+00_rb/)\n      kbo(:, 1,48,10) = (/ &\n     &5.4216e+00_rb,7.6284e+00_rb,8.2781e+00_rb,7.4282e+00_rb,2.4448e+00_rb/)\n      kbo(:, 2,48,10) = (/ &\n     &9.1674e+00_rb,1.0353e+01_rb,1.0955e+01_rb,9.6794e+00_rb,2.8941e+00_rb/)\n      kbo(:, 3,48,10) = (/ &\n     &1.5043e+01_rb,1.3839e+01_rb,1.4203e+01_rb,1.2197e+01_rb,3.3245e+00_rb/)\n      kbo(:, 4,48,10) = (/ &\n     &2.3974e+01_rb,1.9288e+01_rb,1.8167e+01_rb,1.5125e+01_rb,3.7165e+00_rb/)\n      kbo(:, 5,48,10) = (/ &\n     &3.7305e+01_rb,2.8554e+01_rb,2.3217e+01_rb,1.8594e+01_rb,4.0932e+00_rb/)\n      kbo(:, 1,49,10) = (/ &\n     &4.8939e+00_rb,7.2548e+00_rb,7.9080e+00_rb,7.0906e+00_rb,2.2660e+00_rb/)\n      kbo(:, 2,49,10) = (/ &\n     &8.5415e+00_rb,1.0039e+01_rb,1.0662e+01_rb,9.4308e+00_rb,2.7166e+00_rb/)\n      kbo(:, 3,49,10) = (/ &\n     &1.4366e+01_rb,1.3618e+01_rb,1.4041e+01_rb,1.2074e+01_rb,3.1539e+00_rb/)\n      kbo(:, 4,49,10) = (/ &\n     &2.3519e+01_rb,1.9097e+01_rb,1.8194e+01_rb,1.5161e+01_rb,3.5625e+00_rb/)\n      kbo(:, 5,49,10) = (/ &\n     &3.7354e+01_rb,2.8637e+01_rb,2.3540e+01_rb,1.8862e+01_rb,3.9655e+00_rb/)\n      kbo(:, 1,50,10) = (/ &\n     &4.2089e+00_rb,6.7050e+00_rb,7.3787e+00_rb,6.6334e+00_rb,2.0951e+00_rb/)\n      kbo(:, 2,50,10) = (/ &\n     &7.5781e+00_rb,9.4477e+00_rb,1.0132e+01_rb,8.9977e+00_rb,2.5467e+00_rb/)\n      kbo(:, 3,50,10) = (/ &\n     &1.3098e+01_rb,1.3002e+01_rb,1.3521e+01_rb,1.1708e+01_rb,2.9888e+00_rb/)\n      kbo(:, 4,50,10) = (/ &\n     &2.2021e+01_rb,1.8246e+01_rb,1.7755e+01_rb,1.4869e+01_rb,3.4160e+00_rb/)\n      kbo(:, 5,50,10) = (/ &\n     &3.5802e+01_rb,2.7586e+01_rb,2.3214e+01_rb,1.8702e+01_rb,3.8321e+00_rb/)\n      kbo(:, 1,51,10) = (/ &\n     &3.5246e+00_rb,6.0952e+00_rb,6.7836e+00_rb,6.1221e+00_rb,1.9285e+00_rb/)\n      kbo(:, 2,51,10) = (/ &\n     &6.5392e+00_rb,8.7579e+00_rb,9.5007e+00_rb,8.4899e+00_rb,2.3790e+00_rb/)\n      kbo(:, 3,51,10) = (/ &\n     &1.1662e+01_rb,1.2207e+01_rb,1.2854e+01_rb,1.1229e+01_rb,2.8289e+00_rb/)\n      kbo(:, 4,51,10) = (/ &\n     &2.0094e+01_rb,1.7146e+01_rb,1.7077e+01_rb,1.4419e+01_rb,3.2637e+00_rb/)\n      kbo(:, 5,51,10) = (/ &\n     &3.3544e+01_rb,2.6031e+01_rb,2.2586e+01_rb,1.8311e+01_rb,3.6955e+00_rb/)\n      kbo(:, 1,52,10) = (/ &\n     &2.9972e+00_rb,5.5809e+00_rb,6.2670e+00_rb,5.6729e+00_rb,1.7637e+00_rb/)\n      kbo(:, 2,52,10) = (/ &\n     &5.7401e+00_rb,8.2025e+00_rb,8.9834e+00_rb,8.0597e+00_rb,2.2115e+00_rb/)\n      kbo(:, 3,52,10) = (/ &\n     &1.0553e+01_rb,1.1618e+01_rb,1.2357e+01_rb,1.0861e+01_rb,2.6710e+00_rb/)\n      kbo(:, 4,52,10) = (/ &\n     &1.8666e+01_rb,1.6392e+01_rb,1.6645e+01_rb,1.4126e+01_rb,3.1091e+00_rb/)\n      kbo(:, 5,52,10) = (/ &\n     &3.2058e+01_rb,2.5069e+01_rb,2.2259e+01_rb,1.8128e+01_rb,3.5578e+00_rb/)\n      kbo(:, 1,53,10) = (/ &\n     &2.6079e+00_rb,5.1734e+00_rb,5.8449e+00_rb,5.2987e+00_rb,1.6026e+00_rb/)\n      kbo(:, 2,53,10) = (/ &\n     &5.1862e+00_rb,7.8030e+00_rb,8.6055e+00_rb,7.7246e+00_rb,2.0456e+00_rb/)\n      kbo(:, 3,53,10) = (/ &\n     &9.8254e+00_rb,1.1267e+01_rb,1.2065e+01_rb,1.0633e+01_rb,2.5075e+00_rb/)\n      kbo(:, 4,53,10) = (/ &\n     &1.7902e+01_rb,1.6069e+01_rb,1.6506e+01_rb,1.4053e+01_rb,2.9528e+00_rb/)\n      kbo(:, 5,53,10) = (/ &\n     &3.1626e+01_rb,2.4842e+01_rb,2.2382e+01_rb,1.8272e+01_rb,3.4166e+00_rb/)\n      kbo(:, 1,54,10) = (/ &\n     &1.9692e+00_rb,4.4492e+00_rb,5.0971e+00_rb,4.6730e+00_rb,1.4560e+00_rb/)\n      kbo(:, 2,54,10) = (/ &\n     &4.0777e+00_rb,6.8483e+00_rb,7.6942e+00_rb,6.9748e+00_rb,1.8918e+00_rb/)\n      kbo(:, 3,54,10) = (/ &\n     &7.9636e+00_rb,1.0044e+01_rb,1.0960e+01_rb,9.7978e+00_rb,2.3486e+00_rb/)\n      kbo(:, 4,54,10) = (/ &\n     &1.4982e+01_rb,1.4434e+01_rb,1.5164e+01_rb,1.3125e+01_rb,2.8028e+00_rb/)\n      kbo(:, 5,54,10) = (/ &\n     &2.7158e+01_rb,2.1902e+01_rb,2.0733e+01_rb,1.7211e+01_rb,3.2543e+00_rb/)\n      kbo(:, 1,55,10) = (/ &\n     &1.3507e+00_rb,3.6433e+00_rb,4.2566e+00_rb,3.9661e+00_rb,1.3130e+00_rb/)\n      kbo(:, 2,55,10) = (/ &\n     &2.9154e+00_rb,5.7215e+00_rb,6.5830e+00_rb,6.0536e+00_rb,1.7424e+00_rb/)\n      kbo(:, 3,55,10) = (/ &\n     &5.8789e+00_rb,8.5105e+00_rb,9.5339e+00_rb,8.6749e+00_rb,2.1951e+00_rb/)\n      kbo(:, 4,55,10) = (/ &\n     &1.1400e+01_rb,1.2318e+01_rb,1.3311e+01_rb,1.1788e+01_rb,2.6530e+00_rb/)\n      kbo(:, 5,55,10) = (/ &\n     &2.1258e+01_rb,1.8155e+01_rb,1.8294e+01_rb,1.5532e+01_rb,3.0990e+00_rb/)\n      kbo(:, 1,56,10) = (/ &\n     &9.1417e-01_rb,2.9676e+00_rb,3.5310e+00_rb,3.3437e+00_rb,1.1797e+00_rb/)\n      kbo(:, 2,56,10) = (/ &\n     &2.0541e+00_rb,4.7744e+00_rb,5.6130e+00_rb,5.2303e+00_rb,1.5997e+00_rb/)\n      kbo(:, 3,56,10) = (/ &\n     &4.2988e+00_rb,7.2236e+00_rb,8.2994e+00_rb,7.6574e+00_rb,2.0435e+00_rb/)\n      kbo(:, 4,56,10) = (/ &\n     &8.5903e+00_rb,1.0539e+01_rb,1.1687e+01_rb,1.0572e+01_rb,2.5005e+00_rb/)\n      kbo(:, 5,56,10) = (/ &\n     &1.6506e+01_rb,1.5331e+01_rb,1.6174e+01_rb,1.4030e+01_rb,2.9531e+00_rb/)\n      kbo(:, 1,57,10) = (/ &\n     &6.0887e-01_rb,2.4030e+00_rb,2.9065e+00_rb,2.7971e+00_rb,1.0495e+00_rb/)\n      kbo(:, 2,57,10) = (/ &\n     &1.4281e+00_rb,3.9782e+00_rb,4.7656e+00_rb,4.4965e+00_rb,1.4561e+00_rb/)\n      kbo(:, 3,57,10) = (/ &\n     &3.1054e+00_rb,6.1238e+00_rb,7.2122e+00_rb,6.7209e+00_rb,1.8934e+00_rb/)\n      kbo(:, 4,57,10) = (/ &\n     &6.4056e+00_rb,9.0325e+00_rb,1.0294e+01_rb,9.4596e+00_rb,2.3523e+00_rb/)\n      kbo(:, 5,57,10) = (/ &\n     &1.2719e+01_rb,1.3167e+01_rb,1.4312e+01_rb,1.2682e+01_rb,2.8029e+00_rb/)\n      kbo(:, 1,58,10) = (/ &\n     &1.0707e-01_rb,6.3953e-01_rb,1.0127e+00_rb,1.3896e+00_rb,9.3114e-01_rb/)\n      kbo(:, 2,58,10) = (/ &\n     &2.6195e-01_rb,1.0902e+00_rb,1.7100e+00_rb,2.2949e+00_rb,1.3241e+00_rb/)\n      kbo(:, 3,58,10) = (/ &\n     &5.9147e-01_rb,1.7109e+00_rb,2.6503e+00_rb,3.5010e+00_rb,1.7544e+00_rb/)\n      kbo(:, 4,58,10) = (/ &\n     &1.2606e+00_rb,2.5523e+00_rb,3.8433e+00_rb,5.0138e+00_rb,2.2018e+00_rb/)\n      kbo(:, 5,58,10) = (/ &\n     &2.5874e+00_rb,3.7372e+00_rb,5.3689e+00_rb,6.8137e+00_rb,2.6612e+00_rb/)\n      kbo(:, 1,59,10) = (/ &\n     &9.9298e-02_rb,7.6667e-01_rb,1.1645e+00_rb,1.4612e+00_rb,8.8547e-01_rb/)\n      kbo(:, 2,59,10) = (/ &\n     &2.4968e-01_rb,1.3224e+00_rb,1.9807e+00_rb,2.4248e+00_rb,1.2655e+00_rb/)\n      kbo(:, 3,59,10) = (/ &\n     &5.7897e-01_rb,2.0921e+00_rb,3.0941e+00_rb,3.7073e+00_rb,1.6878e+00_rb/)\n      kbo(:, 4,59,10) = (/ &\n     &1.2660e+00_rb,3.1094e+00_rb,4.5051e+00_rb,5.3308e+00_rb,2.1316e+00_rb/)\n      kbo(:, 5,59,10) = (/ &\n     &2.6665e+00_rb,4.5101e+00_rb,6.2520e+00_rb,7.2627e+00_rb,2.5824e+00_rb/)\n      kbo(:, 1,13,11) = (/ &\n     &4.9137e+02_rb,3.6866e+02_rb,2.4595e+02_rb,1.2325e+02_rb,3.7154e+00_rb/)\n      kbo(:, 2,13,11) = (/ &\n     &7.1842e+02_rb,5.3894e+02_rb,3.5946e+02_rb,1.7998e+02_rb,3.6255e+00_rb/)\n      kbo(:, 3,13,11) = (/ &\n     &9.9186e+02_rb,7.4402e+02_rb,4.9618e+02_rb,2.4833e+02_rb,3.5452e+00_rb/)\n      kbo(:, 4,13,11) = (/ &\n     &1.3059e+03_rb,9.7954e+02_rb,6.5319e+02_rb,3.2683e+02_rb,3.4736e+00_rb/)\n      kbo(:, 5,13,11) = (/ &\n     &1.6553e+03_rb,1.2416e+03_rb,8.2787e+02_rb,4.1417e+02_rb,3.4158e+00_rb/)\n      kbo(:, 1,14,11) = (/ &\n     &3.1242e+02_rb,2.3443e+02_rb,1.5644e+02_rb,7.8454e+01_rb,4.0956e+00_rb/)\n      kbo(:, 2,14,11) = (/ &\n     &4.5149e+02_rb,3.3873e+02_rb,2.2597e+02_rb,1.1322e+02_rb,4.0089e+00_rb/)\n      kbo(:, 3,14,11) = (/ &\n     &6.1672e+02_rb,4.6265e+02_rb,3.0858e+02_rb,1.5452e+02_rb,3.9350e+00_rb/)\n      kbo(:, 4,14,11) = (/ &\n     &8.0574e+02_rb,6.0442e+02_rb,4.0309e+02_rb,2.0177e+02_rb,3.8665e+00_rb/)\n      kbo(:, 5,14,11) = (/ &\n     &1.0145e+03_rb,7.6099e+02_rb,5.0748e+02_rb,2.5397e+02_rb,3.7755e+00_rb/)\n      kbo(:, 1,15,11) = (/ &\n     &1.9759e+02_rb,1.4830e+02_rb,9.9018e+01_rb,4.9739e+01_rb,4.5712e+00_rb/)\n      kbo(:, 2,15,11) = (/ &\n     &2.8230e+02_rb,2.1184e+02_rb,1.4137e+02_rb,7.0907e+01_rb,4.4810e+00_rb/)\n      kbo(:, 3,15,11) = (/ &\n     &3.8219e+02_rb,2.8675e+02_rb,1.9132e+02_rb,9.5881e+01_rb,4.3973e+00_rb/)\n      kbo(:, 4,15,11) = (/ &\n     &4.9586e+02_rb,3.7201e+02_rb,2.4816e+02_rb,1.2430e+02_rb,4.3207e+00_rb/)\n      kbo(:, 5,15,11) = (/ &\n     &6.2301e+02_rb,4.6738e+02_rb,3.1174e+02_rb,1.5610e+02_rb,4.2419e+00_rb/)\n      kbo(:, 1,16,11) = (/ &\n     &1.4534e+02_rb,1.0912e+02_rb,7.2899e+01_rb,3.6687e+01_rb,5.0599e+00_rb/)\n      kbo(:, 2,16,11) = (/ &\n     &2.0548e+02_rb,1.5423e+02_rb,1.0297e+02_rb,5.1715e+01_rb,4.9736e+00_rb/)\n      kbo(:, 3,16,11) = (/ &\n     &2.7637e+02_rb,2.0739e+02_rb,1.3841e+02_rb,6.9439e+01_rb,4.8882e+00_rb/)\n      kbo(:, 4,16,11) = (/ &\n     &3.5789e+02_rb,2.6854e+02_rb,1.7918e+02_rb,8.9827e+01_rb,4.8052e+00_rb/)\n      kbo(:, 5,16,11) = (/ &\n     &4.4907e+02_rb,3.3692e+02_rb,2.2477e+02_rb,1.1262e+02_rb,4.7153e+00_rb/)\n      kbo(:, 1,17,11) = (/ &\n     &1.0823e+02_rb,8.1288e+01_rb,5.4344e+01_rb,2.7412e+01_rb,5.5645e+00_rb/)\n      kbo(:, 2,17,11) = (/ &\n     &1.5200e+02_rb,1.1412e+02_rb,7.6233e+01_rb,3.8355e+01_rb,5.4748e+00_rb/)\n      kbo(:, 3,17,11) = (/ &\n     &2.0403e+02_rb,1.5314e+02_rb,1.0225e+02_rb,5.1364e+01_rb,5.3859e+00_rb/)\n      kbo(:, 4,17,11) = (/ &\n     &2.6361e+02_rb,1.9782e+02_rb,1.3204e+02_rb,6.6255e+01_rb,5.2931e+00_rb/)\n      kbo(:, 5,17,11) = (/ &\n     &3.3009e+02_rb,2.4768e+02_rb,1.6528e+02_rb,8.2867e+01_rb,5.1961e+00_rb/)\n      kbo(:, 1,18,11) = (/ &\n     &8.1232e+01_rb,6.1036e+01_rb,4.0843e+01_rb,2.0768e+01_rb,6.0688e+00_rb/)\n      kbo(:, 2,18,11) = (/ &\n     &1.1380e+02_rb,8.5466e+01_rb,5.7129e+01_rb,2.8802e+01_rb,5.9719e+00_rb/)\n      kbo(:, 3,18,11) = (/ &\n     &1.5225e+02_rb,1.1430e+02_rb,7.6349e+01_rb,3.8404e+01_rb,5.8780e+00_rb/)\n      kbo(:, 4,18,11) = (/ &\n     &1.9624e+02_rb,1.4729e+02_rb,9.8340e+01_rb,4.9394e+01_rb,5.7787e+00_rb/)\n      kbo(:, 5,18,11) = (/ &\n     &2.4493e+02_rb,1.8381e+02_rb,1.2268e+02_rb,6.1561e+01_rb,5.6709e+00_rb/)\n      kbo(:, 1,19,11) = (/ &\n     &5.9301e+01_rb,4.4585e+01_rb,2.9875e+01_rb,1.6238e+01_rb,6.5385e+00_rb/)\n      kbo(:, 2,19,11) = (/ &\n     &8.2717e+01_rb,6.2145e+01_rb,4.1575e+01_rb,2.1335e+01_rb,6.4509e+00_rb/)\n      kbo(:, 3,19,11) = (/ &\n     &1.1031e+02_rb,8.2837e+01_rb,5.5366e+01_rb,2.7948e+01_rb,6.3522e+00_rb/)\n      kbo(:, 4,19,11) = (/ &\n     &1.4167e+02_rb,1.0635e+02_rb,7.1041e+01_rb,3.5737e+01_rb,6.2392e+00_rb/)\n      kbo(:, 5,19,11) = (/ &\n     &1.7630e+02_rb,1.3232e+02_rb,8.8349e+01_rb,4.4378e+01_rb,6.1191e+00_rb/)\n      kbo(:, 1,20,11) = (/ &\n     &4.6675e+01_rb,3.5111e+01_rb,2.3575e+01_rb,1.4266e+01_rb,6.9620e+00_rb/)\n      kbo(:, 2,20,11) = (/ &\n     &6.4787e+01_rb,4.8692e+01_rb,3.2603e+01_rb,1.7833e+01_rb,6.8738e+00_rb/)\n      kbo(:, 3,20,11) = (/ &\n     &8.5965e+01_rb,6.4574e+01_rb,4.3185e+01_rb,2.2381e+01_rb,6.7710e+00_rb/)\n      kbo(:, 4,20,11) = (/ &\n     &1.0993e+02_rb,8.2545e+01_rb,5.5164e+01_rb,2.7968e+01_rb,6.6598e+00_rb/)\n      kbo(:, 5,20,11) = (/ &\n     &1.3666e+02_rb,1.0259e+02_rb,6.8531e+01_rb,3.4499e+01_rb,6.5455e+00_rb/)\n      kbo(:, 1,21,11) = (/ &\n     &3.7501e+01_rb,2.8227e+01_rb,1.9281e+01_rb,1.3115e+01_rb,7.3104e+00_rb/)\n      kbo(:, 2,21,11) = (/ &\n     &5.1743e+01_rb,3.8905e+01_rb,2.6108e+01_rb,1.5684e+01_rb,7.2251e+00_rb/)\n      kbo(:, 3,21,11) = (/ &\n     &6.8349e+01_rb,5.1361e+01_rb,3.4375e+01_rb,1.9019e+01_rb,7.1334e+00_rb/)\n      kbo(:, 4,21,11) = (/ &\n     &8.7361e+01_rb,6.5620e+01_rb,4.3882e+01_rb,2.3034e+01_rb,7.0346e+00_rb/)\n      kbo(:, 5,21,11) = (/ &\n     &1.0904e+02_rb,8.1880e+01_rb,5.4724e+01_rb,2.7964e+01_rb,6.9286e+00_rb/)\n      kbo(:, 1,22,11) = (/ &\n     &3.1289e+01_rb,2.3566e+01_rb,1.6825e+01_rb,1.2828e+01_rb,7.5760e+00_rb/)\n      kbo(:, 2,22,11) = (/ &\n     &4.2825e+01_rb,3.2216e+01_rb,2.1971e+01_rb,1.4588e+01_rb,7.5079e+00_rb/)\n      kbo(:, 3,22,11) = (/ &\n     &5.6403e+01_rb,4.2401e+01_rb,2.8462e+01_rb,1.6984e+01_rb,7.4270e+00_rb/)\n      kbo(:, 4,22,11) = (/ &\n     &7.2294e+01_rb,5.4320e+01_rb,3.6353e+01_rb,2.0165e+01_rb,7.3380e+00_rb/)\n      kbo(:, 5,22,11) = (/ &\n     &9.0391e+01_rb,6.7890e+01_rb,4.5398e+01_rb,2.4037e+01_rb,7.2398e+00_rb/)\n      kbo(:, 1,23,11) = (/ &\n     &2.6113e+01_rb,1.9694e+01_rb,1.4984e+01_rb,1.2807e+01_rb,7.7662e+00_rb/)\n      kbo(:, 2,23,11) = (/ &\n     &3.5611e+01_rb,2.6805e+01_rb,1.8996e+01_rb,1.4145e+01_rb,7.7141e+00_rb/)\n      kbo(:, 3,23,11) = (/ &\n     &4.7007e+01_rb,3.5353e+01_rb,2.4112e+01_rb,1.5803e+01_rb,7.6529e+00_rb/)\n      kbo(:, 4,23,11) = (/ &\n     &6.0260e+01_rb,4.5296e+01_rb,3.0446e+01_rb,1.8119e+01_rb,7.5779e+00_rb/)\n      kbo(:, 5,23,11) = (/ &\n     &7.5402e+01_rb,5.6642e+01_rb,3.7917e+01_rb,2.1118e+01_rb,7.4889e+00_rb/)\n      kbo(:, 1,24,11) = (/ &\n     &2.1744e+01_rb,1.6531e+01_rb,1.3667e+01_rb,1.2705e+01_rb,7.8734e+00_rb/)\n      kbo(:, 2,24,11) = (/ &\n     &2.9665e+01_rb,2.2353e+01_rb,1.6710e+01_rb,1.3918e+01_rb,7.8466e+00_rb/)\n      kbo(:, 3,24,11) = (/ &\n     &3.9143e+01_rb,2.9459e+01_rb,2.0787e+01_rb,1.5226e+01_rb,7.8065e+00_rb/)\n      kbo(:, 4,24,11) = (/ &\n     &5.0222e+01_rb,3.7761e+01_rb,2.5773e+01_rb,1.6824e+01_rb,7.7511e+00_rb/)\n      kbo(:, 5,24,11) = (/ &\n     &6.2928e+01_rb,4.7282e+01_rb,3.1824e+01_rb,1.8958e+01_rb,7.6816e+00_rb/)\n      kbo(:, 1,25,11) = (/ &\n     &1.8556e+01_rb,1.4391e+01_rb,1.2986e+01_rb,1.2542e+01_rb,7.9223e+00_rb/)\n      kbo(:, 2,25,11) = (/ &\n     &2.5288e+01_rb,1.9166e+01_rb,1.5272e+01_rb,1.3696e+01_rb,7.9207e+00_rb/)\n      kbo(:, 3,25,11) = (/ &\n     &3.3328e+01_rb,2.5101e+01_rb,1.8448e+01_rb,1.4913e+01_rb,7.9039e+00_rb/)\n      kbo(:, 4,25,11) = (/ &\n     &4.2799e+01_rb,3.2187e+01_rb,2.2557e+01_rb,1.6216e+01_rb,7.8725e+00_rb/)\n      kbo(:, 5,25,11) = (/ &\n     &5.3844e+01_rb,4.0473e+01_rb,2.7585e+01_rb,1.7777e+01_rb,7.8216e+00_rb/)\n      kbo(:, 1,26,11) = (/ &\n     &1.6321e+01_rb,1.3012e+01_rb,1.2671e+01_rb,1.2389e+01_rb,7.9293e+00_rb/)\n      kbo(:, 2,26,11) = (/ &\n     &2.2176e+01_rb,1.7013e+01_rb,1.4541e+01_rb,1.3492e+01_rb,7.9549e+00_rb/)\n      kbo(:, 3,26,11) = (/ &\n     &2.9236e+01_rb,2.2092e+01_rb,1.7014e+01_rb,1.4647e+01_rb,7.9628e+00_rb/)\n      kbo(:, 4,26,11) = (/ &\n     &3.7703e+01_rb,2.8378e+01_rb,2.0439e+01_rb,1.5868e+01_rb,7.9537e+00_rb/)\n      kbo(:, 5,26,11) = (/ &\n     &4.7623e+01_rb,3.5826e+01_rb,2.4857e+01_rb,1.7188e+01_rb,7.9177e+00_rb/)\n      kbo(:, 1,27,11) = (/ &\n     &1.5028e+01_rb,1.2264e+01_rb,1.2582e+01_rb,1.2313e+01_rb,7.9116e+00_rb/)\n      kbo(:, 2,27,11) = (/ &\n     &2.0393e+01_rb,1.5855e+01_rb,1.4339e+01_rb,1.3407e+01_rb,7.9620e+00_rb/)\n      kbo(:, 3,27,11) = (/ &\n     &2.6998e+01_rb,2.0503e+01_rb,1.6441e+01_rb,1.4550e+01_rb,7.9958e+00_rb/)\n      kbo(:, 4,27,11) = (/ &\n     &3.4948e+01_rb,2.6342e+01_rb,1.9460e+01_rb,1.5757e+01_rb,8.0119e+00_rb/)\n      kbo(:, 5,27,11) = (/ &\n     &4.4164e+01_rb,3.3250e+01_rb,2.3464e+01_rb,1.7068e+01_rb,7.9872e+00_rb/)\n      kbo(:, 1,28,11) = (/ &\n     &1.4343e+01_rb,1.1935e+01_rb,1.2606e+01_rb,1.2286e+01_rb,7.8708e+00_rb/)\n      kbo(:, 2,28,11) = (/ &\n     &1.9534e+01_rb,1.5338e+01_rb,1.4333e+01_rb,1.3405e+01_rb,7.9546e+00_rb/)\n      kbo(:, 3,28,11) = (/ &\n     &2.5909e+01_rb,1.9792e+01_rb,1.6354e+01_rb,1.4575e+01_rb,8.0164e+00_rb/)\n      kbo(:, 4,28,11) = (/ &\n     &3.3450e+01_rb,2.5271e+01_rb,1.9104e+01_rb,1.5810e+01_rb,8.0394e+00_rb/)\n      kbo(:, 5,28,11) = (/ &\n     &4.2201e+01_rb,3.1789e+01_rb,2.2776e+01_rb,1.7191e+01_rb,8.0384e+00_rb/)\n      kbo(:, 1,29,11) = (/ &\n     &1.4799e+01_rb,1.2334e+01_rb,1.2951e+01_rb,1.2470e+01_rb,7.8248e+00_rb/)\n      kbo(:, 2,29,11) = (/ &\n     &2.0134e+01_rb,1.5845e+01_rb,1.4778e+01_rb,1.3682e+01_rb,7.9390e+00_rb/)\n      kbo(:, 3,29,11) = (/ &\n     &2.6563e+01_rb,2.0336e+01_rb,1.6926e+01_rb,1.4933e+01_rb,8.0194e+00_rb/)\n      kbo(:, 4,29,11) = (/ &\n     &3.4143e+01_rb,2.5818e+01_rb,1.9648e+01_rb,1.6307e+01_rb,8.0590e+00_rb/)\n      kbo(:, 5,29,11) = (/ &\n     &4.2969e+01_rb,3.2368e+01_rb,2.3282e+01_rb,1.7794e+01_rb,8.0931e+00_rb/)\n      kbo(:, 1,30,11) = (/ &\n     &1.5772e+01_rb,1.3097e+01_rb,1.3464e+01_rb,1.2783e+01_rb,7.7812e+00_rb/)\n      kbo(:, 2,30,11) = (/ &\n     &2.1344e+01_rb,1.6785e+01_rb,1.5505e+01_rb,1.4108e+01_rb,7.9232e+00_rb/)\n      kbo(:, 3,30,11) = (/ &\n     &2.7999e+01_rb,2.1429e+01_rb,1.7759e+01_rb,1.5492e+01_rb,8.0114e+00_rb/)\n      kbo(:, 4,30,11) = (/ &\n     &3.5848e+01_rb,2.7096e+01_rb,2.0562e+01_rb,1.7031e+01_rb,8.0836e+00_rb/)\n      kbo(:, 5,30,11) = (/ &\n     &4.5004e+01_rb,3.3889e+01_rb,2.4347e+01_rb,1.8589e+01_rb,8.1429e+00_rb/)\n      kbo(:, 1,31,11) = (/ &\n     &1.7716e+01_rb,1.4511e+01_rb,1.4478e+01_rb,1.3396e+01_rb,7.7478e+00_rb/)\n      kbo(:, 2,31,11) = (/ &\n     &2.3853e+01_rb,1.8632e+01_rb,1.6766e+01_rb,1.4874e+01_rb,7.8974e+00_rb/)\n      kbo(:, 3,31,11) = (/ &\n     &3.1182e+01_rb,2.3768e+01_rb,1.9223e+01_rb,1.6499e+01_rb,8.0055e+00_rb/)\n      kbo(:, 4,31,11) = (/ &\n     &3.9834e+01_rb,3.0054e+01_rb,2.2404e+01_rb,1.8165e+01_rb,8.1138e+00_rb/)\n      kbo(:, 5,31,11) = (/ &\n     &4.9938e+01_rb,3.7588e+01_rb,2.6690e+01_rb,1.9788e+01_rb,8.1481e+00_rb/)\n      kbo(:, 1,32,11) = (/ &\n     &2.0151e+01_rb,1.6250e+01_rb,1.5786e+01_rb,1.4153e+01_rb,7.7024e+00_rb/)\n      kbo(:, 2,32,11) = (/ &\n     &2.7022e+01_rb,2.0930e+01_rb,1.8243e+01_rb,1.5874e+01_rb,7.8766e+00_rb/)\n      kbo(:, 3,32,11) = (/ &\n     &3.5292e+01_rb,2.6776e+01_rb,2.1045e+01_rb,1.7666e+01_rb,8.0370e+00_rb/)\n      kbo(:, 4,32,11) = (/ &\n     &4.5050e+01_rb,3.3940e+01_rb,2.4811e+01_rb,1.9434e+01_rb,8.1312e+00_rb/)\n      kbo(:, 5,32,11) = (/ &\n     &5.6497e+01_rb,4.2506e+01_rb,2.9790e+01_rb,2.1188e+01_rb,8.1409e+00_rb/)\n      kbo(:, 1,33,11) = (/ &\n     &2.3401e+01_rb,1.8533e+01_rb,1.7371e+01_rb,1.5193e+01_rb,7.6839e+00_rb/)\n      kbo(:, 2,33,11) = (/ &\n     &3.1308e+01_rb,2.4009e+01_rb,2.0094e+01_rb,1.7155e+01_rb,7.9059e+00_rb/)\n      kbo(:, 3,33,11) = (/ &\n     &4.0829e+01_rb,3.0856e+01_rb,2.3455e+01_rb,1.9076e+01_rb,8.0587e+00_rb/)\n      kbo(:, 4,33,11) = (/ &\n     &5.2189e+01_rb,3.9272e+01_rb,2.8099e+01_rb,2.1008e+01_rb,8.1274e+00_rb/)\n      kbo(:, 5,33,11) = (/ &\n     &6.5586e+01_rb,4.9320e+01_rb,3.4075e+01_rb,2.2993e+01_rb,8.2027e+00_rb/)\n      kbo(:, 1,34,11) = (/ &\n     &2.6313e+01_rb,2.0607e+01_rb,1.8746e+01_rb,1.6201e+01_rb,7.7021e+00_rb/)\n      kbo(:, 2,34,11) = (/ &\n     &3.5155e+01_rb,2.6805e+01_rb,2.1758e+01_rb,1.8283e+01_rb,7.9397e+00_rb/)\n      kbo(:, 3,34,11) = (/ &\n     &4.5927e+01_rb,3.4632e+01_rb,2.5705e+01_rb,2.0353e+01_rb,8.0605e+00_rb/)\n      kbo(:, 4,34,11) = (/ &\n     &5.8835e+01_rb,4.4252e+01_rb,3.1197e+01_rb,2.2458e+01_rb,8.1311e+00_rb/)\n      kbo(:, 5,34,11) = (/ &\n     &7.4250e+01_rb,5.5815e+01_rb,3.8184e+01_rb,2.4701e+01_rb,8.2150e+00_rb/)\n      kbo(:, 1,35,11) = (/ &\n     &2.8876e+01_rb,2.2455e+01_rb,1.9946e+01_rb,1.7124e+01_rb,7.7224e+00_rb/)\n      kbo(:, 2,35,11) = (/ &\n     &3.8715e+01_rb,2.9405e+01_rb,2.3284e+01_rb,1.9326e+01_rb,7.9252e+00_rb/)\n      kbo(:, 3,35,11) = (/ &\n     &5.0778e+01_rb,3.8237e+01_rb,2.7902e+01_rb,2.1577e+01_rb,8.0258e+00_rb/)\n      kbo(:, 4,35,11) = (/ &\n     &6.5355e+01_rb,4.9140e+01_rb,3.4259e+01_rb,2.3860e+01_rb,8.1543e+00_rb/)\n      kbo(:, 5,35,11) = (/ &\n     &8.3003e+01_rb,6.2372e+01_rb,4.2365e+01_rb,2.6463e+01_rb,8.1938e+00_rb/)\n      kbo(:, 1,36,11) = (/ &\n     &3.0603e+01_rb,2.3731e+01_rb,2.0817e+01_rb,1.7816e+01_rb,7.6876e+00_rb/)\n      kbo(:, 2,36,11) = (/ &\n     &4.1304e+01_rb,3.1313e+01_rb,2.4462e+01_rb,2.0172e+01_rb,7.8715e+00_rb/)\n      kbo(:, 3,36,11) = (/ &\n     &5.4533e+01_rb,4.1035e+01_rb,2.9662e+01_rb,2.2576e+01_rb,7.9878e+00_rb/)\n      kbo(:, 4,36,11) = (/ &\n     &7.0736e+01_rb,5.3175e+01_rb,3.6832e+01_rb,2.5052e+01_rb,8.1404e+00_rb/)\n      kbo(:, 5,36,11) = (/ &\n     &9.0535e+01_rb,6.8017e+01_rb,4.6007e+01_rb,2.8044e+01_rb,8.2152e+00_rb/)\n      kbo(:, 1,37,11) = (/ &\n     &3.0255e+01_rb,2.3559e+01_rb,2.0925e+01_rb,1.7969e+01_rb,7.6093e+00_rb/)\n      kbo(:, 2,37,11) = (/ &\n     &4.1246e+01_rb,3.1319e+01_rb,2.4672e+01_rb,2.0442e+01_rb,7.8000e+00_rb/)\n      kbo(:, 3,37,11) = (/ &\n     &5.5008e+01_rb,4.1404e+01_rb,3.0029e+01_rb,2.2965e+01_rb,7.9652e+00_rb/)\n      kbo(:, 4,37,11) = (/ &\n     &7.2100e+01_rb,5.4198e+01_rb,3.7564e+01_rb,2.5602e+01_rb,8.1174e+00_rb/)\n      kbo(:, 5,37,11) = (/ &\n     &9.3252e+01_rb,7.0052e+01_rb,4.7363e+01_rb,2.8813e+01_rb,8.2379e+00_rb/)\n      kbo(:, 1,38,11) = (/ &\n     &3.0319e+01_rb,2.3676e+01_rb,2.1203e+01_rb,1.8223e+01_rb,7.5198e+00_rb/)\n      kbo(:, 2,38,11) = (/ &\n     &4.1784e+01_rb,3.1741e+01_rb,2.5125e+01_rb,2.0837e+01_rb,7.7243e+00_rb/)\n      kbo(:, 3,38,11) = (/ &\n     &5.6316e+01_rb,4.2385e+01_rb,3.0775e+01_rb,2.3517e+01_rb,7.9363e+00_rb/)\n      kbo(:, 4,38,11) = (/ &\n     &7.4582e+01_rb,5.6053e+01_rb,3.8823e+01_rb,2.6361e+01_rb,8.1242e+00_rb/)\n      kbo(:, 5,38,11) = (/ &\n     &9.7510e+01_rb,7.3243e+01_rb,4.9498e+01_rb,2.9889e+01_rb,8.2559e+00_rb/)\n      kbo(:, 1,39,11) = (/ &\n     &3.1111e+01_rb,2.4293e+01_rb,2.1786e+01_rb,1.8666e+01_rb,7.4239e+00_rb/)\n      kbo(:, 2,39,11) = (/ &\n     &4.3408e+01_rb,3.2962e+01_rb,2.6016e+01_rb,2.1461e+01_rb,7.6345e+00_rb/)\n      kbo(:, 3,39,11) = (/ &\n     &5.9150e+01_rb,4.4506e+01_rb,3.2172e+01_rb,2.4357e+01_rb,7.9192e+00_rb/)\n      kbo(:, 4,39,11) = (/ &\n     &7.9245e+01_rb,5.9549e+01_rb,4.1085e+01_rb,2.7494e+01_rb,8.1496e+00_rb/)\n      kbo(:, 5,39,11) = (/ &\n     &1.0467e+02_rb,7.8610e+01_rb,5.2990e+01_rb,3.1523e+01_rb,8.2789e+00_rb/)\n      kbo(:, 1,40,11) = (/ &\n     &2.8917e+01_rb,2.2849e+01_rb,2.1212e+01_rb,1.8303e+01_rb,7.3082e+00_rb/)\n      kbo(:, 2,40,11) = (/ &\n     &4.0995e+01_rb,3.1270e+01_rb,2.5375e+01_rb,2.1193e+01_rb,7.5582e+00_rb/)\n      kbo(:, 3,40,11) = (/ &\n     &5.6673e+01_rb,4.2684e+01_rb,3.1298e+01_rb,2.4183e+01_rb,7.8695e+00_rb/)\n      kbo(:, 4,40,11) = (/ &\n     &7.6946e+01_rb,5.7826e+01_rb,4.0125e+01_rb,2.7426e+01_rb,8.1312e+00_rb/)\n      kbo(:, 5,40,11) = (/ &\n     &1.0293e+02_rb,7.7305e+01_rb,5.2205e+01_rb,3.1496e+01_rb,8.2689e+00_rb/)\n      kbo(:, 1,41,11) = (/ &\n     &2.6634e+01_rb,2.1385e+01_rb,2.0561e+01_rb,1.7885e+01_rb,7.1901e+00_rb/)\n      kbo(:, 2,41,11) = (/ &\n     &3.8375e+01_rb,2.9451e+01_rb,2.4682e+01_rb,2.0867e+01_rb,7.4740e+00_rb/)\n      kbo(:, 3,41,11) = (/ &\n     &5.3928e+01_rb,4.0671e+01_rb,3.0356e+01_rb,2.3955e+01_rb,7.8182e+00_rb/)\n      kbo(:, 4,41,11) = (/ &\n     &7.4310e+01_rb,5.5850e+01_rb,3.9033e+01_rb,2.7309e+01_rb,8.0950e+00_rb/)\n      kbo(:, 5,41,11) = (/ &\n     &1.0067e+02_rb,7.5610e+01_rb,5.1206e+01_rb,3.1414e+01_rb,8.2644e+00_rb/)\n      kbo(:, 1,42,11) = (/ &\n     &2.4738e+01_rb,2.0233e+01_rb,2.0020e+01_rb,1.7547e+01_rb,7.0619e+00_rb/)\n      kbo(:, 2,42,11) = (/ &\n     &3.6234e+01_rb,2.7982e+01_rb,2.4175e+01_rb,2.0637e+01_rb,7.4025e+00_rb/)\n      kbo(:, 3,42,11) = (/ &\n     &5.1779e+01_rb,3.9115e+01_rb,2.9714e+01_rb,2.3853e+01_rb,7.7568e+00_rb/)\n      kbo(:, 4,42,11) = (/ &\n     &7.2527e+01_rb,5.4511e+01_rb,3.8357e+01_rb,2.7357e+01_rb,8.0593e+00_rb/)\n      kbo(:, 5,42,11) = (/ &\n     &9.9602e+01_rb,7.4807e+01_rb,5.0774e+01_rb,3.1579e+01_rb,8.2618e+00_rb/)\n      kbo(:, 1,43,11) = (/ &\n     &2.2598e+01_rb,1.8979e+01_rb,1.9339e+01_rb,1.7092e+01_rb,6.9063e+00_rb/)\n      kbo(:, 2,43,11) = (/ &\n     &3.3721e+01_rb,2.6289e+01_rb,2.3541e+01_rb,2.0300e+01_rb,7.2922e+00_rb/)\n      kbo(:, 3,43,11) = (/ &\n     &4.9059e+01_rb,3.7168e+01_rb,2.8920e+01_rb,2.3665e+01_rb,7.6599e+00_rb/)\n      kbo(:, 4,43,11) = (/ &\n     &6.9947e+01_rb,5.2582e+01_rb,3.7401e+01_rb,2.7324e+01_rb,7.9953e+00_rb/)\n      kbo(:, 5,43,11) = (/ &\n     &9.7637e+01_rb,7.3334e+01_rb,4.9954e+01_rb,3.1634e+01_rb,8.2449e+00_rb/)\n      kbo(:, 1,44,11) = (/ &\n     &2.0598e+01_rb,1.7877e+01_rb,1.8670e+01_rb,1.6634e+01_rb,6.7349e+00_rb/)\n      kbo(:, 2,44,11) = (/ &\n     &3.1385e+01_rb,2.4755e+01_rb,2.2973e+01_rb,1.9973e+01_rb,7.1646e+00_rb/)\n      kbo(:, 3,44,11) = (/ &\n     &4.6533e+01_rb,3.5381e+01_rb,2.8231e+01_rb,2.3518e+01_rb,7.5534e+00_rb/)\n      kbo(:, 4,44,11) = (/ &\n     &6.7572e+01_rb,5.0818e+01_rb,3.6582e+01_rb,2.7361e+01_rb,7.9184e+00_rb/)\n      kbo(:, 5,44,11) = (/ &\n     &9.6116e+01_rb,7.2195e+01_rb,4.9367e+01_rb,3.1819e+01_rb,8.2107e+00_rb/)\n      kbo(:, 1,45,11) = (/ &\n     &1.9103e+01_rb,1.7116e+01_rb,1.8163e+01_rb,1.6283e+01_rb,6.5605e+00_rb/)\n      kbo(:, 2,45,11) = (/ &\n     &2.9658e+01_rb,2.3682e+01_rb,2.2618e+01_rb,1.9789e+01_rb,7.0239e+00_rb/)\n      kbo(:, 3,45,11) = (/ &\n     &4.4853e+01_rb,3.4227e+01_rb,2.7909e+01_rb,2.3555e+01_rb,7.4383e+00_rb/)\n      kbo(:, 4,45,11) = (/ &\n     &6.6390e+01_rb,4.9954e+01_rb,3.6314e+01_rb,2.7640e+01_rb,7.8580e+00_rb/)\n      kbo(:, 5,45,11) = (/ &\n     &9.6230e+01_rb,7.2282e+01_rb,4.9573e+01_rb,3.2349e+01_rb,8.1505e+00_rb/)\n      kbo(:, 1,46,11) = (/ &\n     &1.7603e+01_rb,1.6408e+01_rb,1.7601e+01_rb,1.5877e+01_rb,6.3549e+00_rb/)\n      kbo(:, 2,46,11) = (/ &\n     &2.7890e+01_rb,2.2645e+01_rb,2.2217e+01_rb,1.9546e+01_rb,6.8535e+00_rb/)\n      kbo(:, 3,46,11) = (/ &\n     &4.3095e+01_rb,3.3035e+01_rb,2.7597e+01_rb,2.3556e+01_rb,7.2985e+00_rb/)\n      kbo(:, 4,46,11) = (/ &\n     &6.5080e+01_rb,4.9001e+01_rb,3.6011e+01_rb,2.7911e+01_rb,7.7668e+00_rb/)\n      kbo(:, 5,46,11) = (/ &\n     &9.6111e+01_rb,7.2194e+01_rb,4.9702e+01_rb,3.2895e+01_rb,8.0887e+00_rb/)\n      kbo(:, 1,47,11) = (/ &\n     &1.5582e+01_rb,1.5416e+01_rb,1.6712e+01_rb,1.5202e+01_rb,6.1058e+00_rb/)\n      kbo(:, 2,47,11) = (/ &\n     &2.5371e+01_rb,2.1144e+01_rb,2.1438e+01_rb,1.8984e+01_rb,6.6529e+00_rb/)\n      kbo(:, 3,47,11) = (/ &\n     &4.0058e+01_rb,3.0957e+01_rb,2.6834e+01_rb,2.3189e+01_rb,7.1345e+00_rb/)\n      kbo(:, 4,47,11) = (/ &\n     &6.1807e+01_rb,4.6615e+01_rb,3.4933e+01_rb,2.7758e+01_rb,7.6397e+00_rb/)\n      kbo(:, 5,47,11) = (/ &\n     &9.3127e+01_rb,6.9962e+01_rb,4.8499e+01_rb,3.2952e+01_rb,7.9851e+00_rb/)\n      kbo(:, 1,48,11) = (/ &\n     &1.4034e+01_rb,1.4681e+01_rb,1.5989e+01_rb,1.4629e+01_rb,5.8421e+00_rb/)\n      kbo(:, 2,48,11) = (/ &\n     &2.3558e+01_rb,2.0186e+01_rb,2.0890e+01_rb,1.8564e+01_rb,6.4412e+00_rb/)\n      kbo(:, 3,48,11) = (/ &\n     &3.8004e+01_rb,2.9609e+01_rb,2.6472e+01_rb,2.3010e+01_rb,6.9605e+00_rb/)\n      kbo(:, 4,48,11) = (/ &\n     &5.9949e+01_rb,4.5296e+01_rb,3.4518e+01_rb,2.7885e+01_rb,7.5000e+00_rb/)\n      kbo(:, 5,48,11) = (/ &\n     &9.2277e+01_rb,6.9322e+01_rb,4.8288e+01_rb,3.3402e+01_rb,7.8874e+00_rb/)\n      kbo(:, 1,49,11) = (/ &\n     &1.3020e+01_rb,1.4223e+01_rb,1.5508e+01_rb,1.4222e+01_rb,5.5629e+00_rb/)\n      kbo(:, 2,49,11) = (/ &\n     &2.2531e+01_rb,1.9765e+01_rb,2.0674e+01_rb,1.8360e+01_rb,6.2033e+00_rb/)\n      kbo(:, 3,49,11) = (/ &\n     &3.7326e+01_rb,2.9255e+01_rb,2.6622e+01_rb,2.3133e+01_rb,6.7696e+00_rb/)\n      kbo(:, 4,49,11) = (/ &\n     &6.0141e+01_rb,4.5507e+01_rb,3.5009e+01_rb,2.8438e+01_rb,7.3484e+00_rb/)\n      kbo(:, 5,49,11) = (/ &\n     &9.4669e+01_rb,7.1125e+01_rb,4.9613e+01_rb,3.4451e+01_rb,7.7676e+00_rb/)\n      kbo(:, 1,50,11) = (/ &\n     &1.1528e+01_rb,1.3385e+01_rb,1.4676e+01_rb,1.3553e+01_rb,5.2886e+00_rb/)\n      kbo(:, 2,50,11) = (/ &\n     &2.0590e+01_rb,1.8779e+01_rb,1.9954e+01_rb,1.7785e+01_rb,5.9683e+00_rb/)\n      kbo(:, 3,50,11) = (/ &\n     &3.5112e+01_rb,2.7878e+01_rb,2.6128e+01_rb,2.2750e+01_rb,6.5812e+00_rb/)\n      kbo(:, 4,50,11) = (/ &\n     &5.7821e+01_rb,4.3871e+01_rb,3.4428e+01_rb,2.8358e+01_rb,7.1800e+00_rb/)\n      kbo(:, 5,50,11) = (/ &\n     &9.2920e+01_rb,6.9817e+01_rb,4.9041e+01_rb,3.4691e+01_rb,7.6346e+00_rb/)\n      kbo(:, 1,51,11) = (/ &\n     &9.9087e+00_rb,1.2389e+01_rb,1.3702e+01_rb,1.2771e+01_rb,5.0110e+00_rb/)\n      kbo(:, 2,51,11) = (/ &\n     &1.8347e+01_rb,1.7625e+01_rb,1.8991e+01_rb,1.7018e+01_rb,5.7321e+00_rb/)\n      kbo(:, 3,51,11) = (/ &\n     &3.2210e+01_rb,2.6119e+01_rb,2.5308e+01_rb,2.2105e+01_rb,6.3824e+00_rb/)\n      kbo(:, 4,51,11) = (/ &\n     &5.4374e+01_rb,4.1438e+01_rb,3.3397e+01_rb,2.7944e+01_rb,7.0038e+00_rb/)\n      kbo(:, 5,51,11) = (/ &\n     &8.9118e+01_rb,6.6984e+01_rb,4.7570e+01_rb,3.4540e+01_rb,7.4941e+00_rb/)\n      kbo(:, 1,52,11) = (/ &\n     &8.6167e+00_rb,1.1576e+01_rb,1.2899e+01_rb,1.2089e+01_rb,4.7245e+00_rb/)\n      kbo(:, 2,52,11) = (/ &\n     &1.6651e+01_rb,1.6818e+01_rb,1.8231e+01_rb,1.6395e+01_rb,5.4842e+00_rb/)\n      kbo(:, 3,52,11) = (/ &\n     &3.0138e+01_rb,2.4957e+01_rb,2.4762e+01_rb,2.1646e+01_rb,6.1679e+00_rb/)\n      kbo(:, 4,52,11) = (/ &\n     &5.2273e+01_rb,4.0011e+01_rb,3.2952e+01_rb,2.7789e+01_rb,6.8199e+00_rb/)\n      kbo(:, 5,52,11) = (/ &\n     &8.7481e+01_rb,6.5781e+01_rb,4.7111e+01_rb,3.4770e+01_rb,7.3415e+00_rb/)\n      kbo(:, 1,53,11) = (/ &\n     &7.6702e+00_rb,1.0979e+01_rb,1.2289e+01_rb,1.1530e+01_rb,4.4295e+00_rb/)\n      kbo(:, 2,53,11) = (/ &\n     &1.5508e+01_rb,1.6366e+01_rb,1.7771e+01_rb,1.5970e+01_rb,5.2253e+00_rb/)\n      kbo(:, 3,53,11) = (/ &\n     &2.9086e+01_rb,2.4490e+01_rb,2.4633e+01_rb,2.1484e+01_rb,5.9485e+00_rb/)\n      kbo(:, 4,53,11) = (/ &\n     &5.1881e+01_rb,3.9852e+01_rb,3.3235e+01_rb,2.8055e+01_rb,6.6238e+00_rb/)\n      kbo(:, 5,53,11) = (/ &\n     &8.8988e+01_rb,6.6930e+01_rb,4.8082e+01_rb,3.5589e+01_rb,7.1849e+00_rb/)\n      kbo(:, 1,54,11) = (/ &\n     &5.9450e+00_rb,9.6177e+00_rb,1.0972e+01_rb,1.0431e+01_rb,4.1455e+00_rb/)\n      kbo(:, 2,54,11) = (/ &\n     &1.2556e+01_rb,1.4668e+01_rb,1.6126e+01_rb,1.4708e+01_rb,4.9524e+00_rb/)\n      kbo(:, 3,54,11) = (/ &\n     &2.4491e+01_rb,2.1770e+01_rb,2.2780e+01_rb,2.0031e+01_rb,5.7134e+00_rb/)\n      kbo(:, 4,54,11) = (/ &\n     &4.4954e+01_rb,3.5031e+01_rb,3.0908e+01_rb,2.6515e+01_rb,6.4122e+00_rb/)\n      kbo(:, 5,54,11) = (/ &\n     &7.9027e+01_rb,5.9569e+01_rb,4.4065e+01_rb,3.4001e+01_rb,7.0090e+00_rb/)\n      kbo(:, 1,55,11) = (/ &\n     &4.1710e+00_rb,8.0225e+00_rb,9.3978e+00_rb,9.1226e+00_rb,3.8682e+00_rb/)\n      kbo(:, 2,55,11) = (/ &\n     &9.2293e+00_rb,1.2486e+01_rb,1.4001e+01_rb,1.3070e+01_rb,4.6969e+00_rb/)\n      kbo(:, 3,55,11) = (/ &\n     &1.8778e+01_rb,1.8456e+01_rb,2.0084e+01_rb,1.7971e+01_rb,5.4658e+00_rb/)\n      kbo(:, 4,55,11) = (/ &\n     &3.5574e+01_rb,2.8777e+01_rb,2.7568e+01_rb,2.4021e+01_rb,6.1617e+00_rb/)\n      kbo(:, 5,55,11) = (/ &\n     &6.4114e+01_rb,4.8674e+01_rb,3.8113e+01_rb,3.1115e+01_rb,6.8236e+00_rb/)\n      kbo(:, 1,56,11) = (/ &\n     &2.8728e+00_rb,6.6889e+00_rb,8.0328e+00_rb,7.9557e+00_rb,3.5989e+00_rb/)\n      kbo(:, 2,56,11) = (/ &\n     &6.6874e+00_rb,1.0605e+01_rb,1.2156e+01_rb,1.1597e+01_rb,4.4247e+00_rb/)\n      kbo(:, 3,56,11) = (/ &\n     &1.4226e+01_rb,1.5908e+01_rb,1.7667e+01_rb,1.6104e+01_rb,5.2042e+00_rb/)\n      kbo(:, 4,56,11) = (/ &\n     &2.7945e+01_rb,2.3989e+01_rb,2.4626e+01_rb,2.1735e+01_rb,5.9393e+00_rb/)\n      kbo(:, 5,56,11) = (/ &\n     &5.1707e+01_rb,3.9775e+01_rb,3.3431e+01_rb,2.8442e+01_rb,6.5979e+00_rb/)\n      kbo(:, 1,57,11) = (/ &\n     &1.9429e+00_rb,5.5686e+00_rb,6.8405e+00_rb,6.9151e+00_rb,3.3226e+00_rb/)\n      kbo(:, 2,57,11) = (/ &\n     &4.7724e+00_rb,8.9791e+00_rb,1.0545e+01_rb,1.0240e+01_rb,4.1527e+00_rb/)\n      kbo(:, 3,57,11) = (/ &\n     &1.0641e+01_rb,1.3735e+01_rb,1.5504e+01_rb,1.4420e+01_rb,4.9657e+00_rb/)\n      kbo(:, 4,57,11) = (/ &\n     &2.1776e+01_rb,2.0320e+01_rb,2.1929e+01_rb,1.9615e+01_rb,5.6966e+00_rb/)\n      kbo(:, 5,57,11) = (/ &\n     &4.1383e+01_rb,3.2617e+01_rb,2.9771e+01_rb,2.5932e+01_rb,6.3597e+00_rb/)\n      kbo(:, 1,58,11) = (/ &\n     &3.4498e-01_rb,1.5267e+00_rb,2.4690e+00_rb,3.5849e+00_rb,3.0713e+00_rb/)\n      kbo(:, 2,58,11) = (/ &\n     &8.9647e-01_rb,2.5018e+00_rb,3.8790e+00_rb,5.3697e+00_rb,3.9024e+00_rb/)\n      kbo(:, 3,58,11) = (/ &\n     &2.0963e+00_rb,3.8966e+00_rb,5.7628e+00_rb,7.6647e+00_rb,4.7137e+00_rb/)\n      kbo(:, 4,58,11) = (/ &\n     &4.4774e+00_rb,5.7497e+00_rb,8.2495e+00_rb,1.0504e+01_rb,5.4718e+00_rb/)\n      kbo(:, 5,58,11) = (/ &\n     &8.7673e+00_rb,8.8663e+00_rb,1.1318e+01_rb,1.3996e+01_rb,6.1538e+00_rb/)\n      kbo(:, 1,59,11) = (/ &\n     &3.2685e-01_rb,1.8752e+00_rb,2.9232e+00_rb,3.9328e+00_rb,2.9672e+00_rb/)\n      kbo(:, 2,59,11) = (/ &\n     &8.8018e-01_rb,3.0635e+00_rb,4.5809e+00_rb,5.8034e+00_rb,3.8049e+00_rb/)\n      kbo(:, 3,59,11) = (/ &\n     &2.1278e+00_rb,4.7401e+00_rb,6.7591e+00_rb,8.2573e+00_rb,4.6076e+00_rb/)\n      kbo(:, 4,59,11) = (/ &\n     &4.6712e+00_rb,6.9756e+00_rb,9.6079e+00_rb,1.1224e+01_rb,5.3733e+00_rb/)\n      kbo(:, 5,59,11) = (/ &\n     &9.3271e+00_rb,1.0056e+01_rb,1.3155e+01_rb,1.4840e+01_rb,6.0503e+00_rb/)\n      kbo(:, 1,13,12) = (/ &\n     &7.5516e+02_rb,5.6651e+02_rb,3.7786e+02_rb,1.8921e+02_rb,4.6057e+00_rb/)\n      kbo(:, 2,13,12) = (/ &\n     &1.1031e+03_rb,8.2746e+02_rb,5.5183e+02_rb,2.7620e+02_rb,4.4752e+00_rb/)\n      kbo(:, 3,13,12) = (/ &\n     &1.5208e+03_rb,1.1407e+03_rb,7.6067e+02_rb,3.8062e+02_rb,4.3357e+00_rb/)\n      kbo(:, 4,13,12) = (/ &\n     &2.0072e+03_rb,1.5056e+03_rb,1.0039e+03_rb,5.0221e+02_rb,4.1960e+00_rb/)\n      kbo(:, 5,13,12) = (/ &\n     &2.5500e+03_rb,1.9126e+03_rb,1.2753e+03_rb,6.3790e+02_rb,4.0223e+00_rb/)\n      kbo(:, 1,14,12) = (/ &\n     &5.0313e+02_rb,3.7749e+02_rb,2.5185e+02_rb,1.2621e+02_rb,5.0046e+00_rb/)\n      kbo(:, 2,14,12) = (/ &\n     &7.2897e+02_rb,5.4687e+02_rb,3.6476e+02_rb,1.8266e+02_rb,4.8590e+00_rb/)\n      kbo(:, 3,14,12) = (/ &\n     &9.9893e+02_rb,7.4933e+02_rb,4.9972e+02_rb,2.5013e+02_rb,4.7095e+00_rb/)\n      kbo(:, 4,14,12) = (/ &\n     &1.3102e+03_rb,9.8276e+02_rb,6.5533e+02_rb,3.2791e+02_rb,4.5769e+00_rb/)\n      kbo(:, 5,14,12) = (/ &\n     &1.6551e+03_rb,1.2414e+03_rb,8.2775e+02_rb,4.1411e+02_rb,4.4631e+00_rb/)\n      kbo(:, 1,15,12) = (/ &\n     &3.3639e+02_rb,2.5243e+02_rb,1.6847e+02_rb,8.4507e+01_rb,5.4523e+00_rb/)\n      kbo(:, 2,15,12) = (/ &\n     &4.8280e+02_rb,3.6223e+02_rb,2.4166e+02_rb,1.2109e+02_rb,5.3133e+00_rb/)\n      kbo(:, 3,15,12) = (/ &\n     &6.5719e+02_rb,4.9302e+02_rb,3.2884e+02_rb,1.6466e+02_rb,5.1834e+00_rb/)\n      kbo(:, 4,15,12) = (/ &\n     &8.5550e+02_rb,6.4175e+02_rb,4.2799e+02_rb,2.1423e+02_rb,5.0660e+00_rb/)\n      kbo(:, 5,15,12) = (/ &\n     &1.0728e+03_rb,8.0472e+02_rb,5.3663e+02_rb,2.6854e+02_rb,4.9623e+00_rb/)\n      kbo(:, 1,16,12) = (/ &\n     &2.6229e+02_rb,1.9684e+02_rb,1.3139e+02_rb,6.5935e+01_rb,6.0512e+00_rb/)\n      kbo(:, 2,16,12) = (/ &\n     &3.7303e+02_rb,2.7989e+02_rb,1.8674e+02_rb,9.3604e+01_rb,5.9120e+00_rb/)\n      kbo(:, 3,16,12) = (/ &\n     &5.0297e+02_rb,3.7733e+02_rb,2.5170e+02_rb,1.2607e+02_rb,5.7872e+00_rb/)\n      kbo(:, 4,16,12) = (/ &\n     &6.4911e+02_rb,4.8694e+02_rb,3.2477e+02_rb,1.6260e+02_rb,5.6679e+00_rb/)\n      kbo(:, 5,16,12) = (/ &\n     &8.0986e+02_rb,6.0750e+02_rb,4.0515e+02_rb,2.0279e+02_rb,5.5547e+00_rb/)\n      kbo(:, 1,17,12) = (/ &\n     &2.0705e+02_rb,1.5540e+02_rb,1.0375e+02_rb,5.2106e+01_rb,6.7730e+00_rb/)\n      kbo(:, 2,17,12) = (/ &\n     &2.9135e+02_rb,2.1862e+02_rb,1.4589e+02_rb,7.3163e+01_rb,6.6333e+00_rb/)\n      kbo(:, 3,17,12) = (/ &\n     &3.8916e+02_rb,2.9197e+02_rb,1.9479e+02_rb,9.7603e+01_rb,6.4989e+00_rb/)\n      kbo(:, 4,17,12) = (/ &\n     &4.9976e+02_rb,3.7492e+02_rb,2.5009e+02_rb,1.2525e+02_rb,6.3687e+00_rb/)\n      kbo(:, 5,17,12) = (/ &\n     &6.2230e+02_rb,4.6683e+02_rb,3.1136e+02_rb,1.5589e+02_rb,6.2358e+00_rb/)\n      kbo(:, 1,18,12) = (/ &\n     &1.6333e+02_rb,1.2261e+02_rb,8.1888e+01_rb,4.1178e+01_rb,7.5424e+00_rb/)\n      kbo(:, 2,18,12) = (/ &\n     &2.2759e+02_rb,1.7080e+02_rb,1.1401e+02_rb,5.7226e+01_rb,7.4084e+00_rb/)\n      kbo(:, 3,18,12) = (/ &\n     &3.0244e+02_rb,2.2693e+02_rb,1.5143e+02_rb,7.5931e+01_rb,7.2669e+00_rb/)\n      kbo(:, 4,18,12) = (/ &\n     &3.8758e+02_rb,2.9079e+02_rb,1.9400e+02_rb,9.7216e+01_rb,7.1208e+00_rb/)\n      kbo(:, 5,18,12) = (/ &\n     &4.8269e+02_rb,3.6212e+02_rb,2.4155e+02_rb,1.2098e+02_rb,6.9720e+00_rb/)\n      kbo(:, 1,19,12) = (/ &\n     &1.2382e+02_rb,9.2977e+01_rb,6.2136e+01_rb,3.1325e+01_rb,8.3597e+00_rb/)\n      kbo(:, 2,19,12) = (/ &\n     &1.7154e+02_rb,1.2877e+02_rb,8.5994e+01_rb,4.3233e+01_rb,8.2061e+00_rb/)\n      kbo(:, 3,19,12) = (/ &\n     &2.2748e+02_rb,1.7072e+02_rb,1.1396e+02_rb,5.7206e+01_rb,8.0513e+00_rb/)\n      kbo(:, 4,19,12) = (/ &\n     &2.9138e+02_rb,2.1864e+02_rb,1.4590e+02_rb,7.3167e+01_rb,7.8994e+00_rb/)\n      kbo(:, 5,19,12) = (/ &\n     &3.6253e+02_rb,2.7200e+02_rb,1.8147e+02_rb,9.0939e+01_rb,7.7452e+00_rb/)\n      kbo(:, 1,20,12) = (/ &\n     &1.0042e+02_rb,7.5430e+01_rb,5.0444e+01_rb,2.5891e+01_rb,9.1675e+00_rb/)\n      kbo(:, 2,20,12) = (/ &\n     &1.3861e+02_rb,1.0407e+02_rb,6.9532e+01_rb,3.5031e+01_rb,9.0030e+00_rb/)\n      kbo(:, 3,20,12) = (/ &\n     &1.8351e+02_rb,1.3774e+02_rb,9.1975e+01_rb,4.6211e+01_rb,8.8390e+00_rb/)\n      kbo(:, 4,20,12) = (/ &\n     &2.3463e+02_rb,1.7607e+02_rb,1.1752e+02_rb,5.8971e+01_rb,8.6735e+00_rb/)\n      kbo(:, 5,20,12) = (/ &\n     &2.9128e+02_rb,2.1856e+02_rb,1.4583e+02_rb,7.3117e+01_rb,8.5016e+00_rb/)\n      kbo(:, 1,21,12) = (/ &\n     &8.3057e+01_rb,6.2407e+01_rb,4.1762e+01_rb,2.2683e+01_rb,9.9550e+00_rb/)\n      kbo(:, 2,21,12) = (/ &\n     &1.1435e+02_rb,8.5868e+01_rb,5.7394e+01_rb,2.9474e+01_rb,9.7863e+00_rb/)\n      kbo(:, 3,21,12) = (/ &\n     &1.5096e+02_rb,1.1332e+02_rb,7.5686e+01_rb,3.8128e+01_rb,9.6108e+00_rb/)\n      kbo(:, 4,21,12) = (/ &\n     &1.9244e+02_rb,1.4443e+02_rb,9.6415e+01_rb,4.8410e+01_rb,9.4311e+00_rb/)\n      kbo(:, 5,21,12) = (/ &\n     &2.3840e+02_rb,1.7889e+02_rb,1.1939e+02_rb,5.9885e+01_rb,9.2417e+00_rb/)\n      kbo(:, 1,22,12) = (/ &\n     &7.1250e+01_rb,5.3549e+01_rb,3.5853e+01_rb,2.1126e+01_rb,1.0685e+01_rb/)\n      kbo(:, 2,22,12) = (/ &\n     &9.7414e+01_rb,7.3164e+01_rb,4.8918e+01_rb,2.6307e+01_rb,1.0512e+01_rb/)\n      kbo(:, 3,22,12) = (/ &\n     &1.2780e+02_rb,9.5945e+01_rb,6.4097e+01_rb,3.2967e+01_rb,1.0335e+01_rb/)\n      kbo(:, 4,22,12) = (/ &\n     &1.6218e+02_rb,1.2173e+02_rb,8.1281e+01_rb,4.1038e+01_rb,1.0145e+01_rb/)\n      kbo(:, 5,22,12) = (/ &\n     &2.0041e+02_rb,1.5040e+02_rb,1.0039e+02_rb,5.0398e+01_rb,9.9454e+00_rb/)\n      kbo(:, 1,23,12) = (/ &\n     &6.0942e+01_rb,4.5813e+01_rb,3.0934e+01_rb,2.0012e+01_rb,1.1340e+01_rb/)\n      kbo(:, 2,23,12) = (/ &\n     &8.2640e+01_rb,6.2081e+01_rb,4.1527e+01_rb,2.4053e+01_rb,1.1180e+01_rb/)\n      kbo(:, 3,23,12) = (/ &\n     &1.0785e+02_rb,8.0983e+01_rb,5.4124e+01_rb,2.9110e+01_rb,1.1001e+01_rb/)\n      kbo(:, 4,23,12) = (/ &\n     &1.3652e+02_rb,1.0249e+02_rb,6.8454e+01_rb,3.5343e+01_rb,1.0812e+01_rb/)\n      kbo(:, 5,23,12) = (/ &\n     &1.6894e+02_rb,1.2680e+02_rb,8.4663e+01_rb,4.2880e+01_rb,1.0609e+01_rb/)\n      kbo(:, 1,24,12) = (/ &\n     &5.1406e+01_rb,3.8659e+01_rb,2.6835e+01_rb,1.9368e+01_rb,1.1917e+01_rb/)\n      kbo(:, 2,24,12) = (/ &\n     &6.9266e+01_rb,5.2052e+01_rb,3.5118e+01_rb,2.2283e+01_rb,1.1770e+01_rb/)\n      kbo(:, 3,24,12) = (/ &\n     &9.0127e+01_rb,6.7693e+01_rb,4.5282e+01_rb,2.6104e+01_rb,1.1607e+01_rb/)\n      kbo(:, 4,24,12) = (/ &\n     &1.1424e+02_rb,8.5780e+01_rb,5.7328e+01_rb,3.0937e+01_rb,1.1421e+01_rb/)\n      kbo(:, 5,24,12) = (/ &\n     &1.4182e+02_rb,1.0646e+02_rb,7.1109e+01_rb,3.6894e+01_rb,1.1218e+01_rb/)\n      kbo(:, 1,25,12) = (/ &\n     &4.3762e+01_rb,3.2928e+01_rb,2.3974e+01_rb,1.9297e+01_rb,1.2406e+01_rb/)\n      kbo(:, 2,25,12) = (/ &\n     &5.8726e+01_rb,4.4147e+01_rb,3.0453e+01_rb,2.1379e+01_rb,1.2284e+01_rb/)\n      kbo(:, 3,25,12) = (/ &\n     &7.6463e+01_rb,5.7453e+01_rb,3.8735e+01_rb,2.4187e+01_rb,1.2134e+01_rb/)\n      kbo(:, 4,25,12) = (/ &\n     &9.7222e+01_rb,7.3021e+01_rb,4.8859e+01_rb,2.7987e+01_rb,1.1961e+01_rb/)\n      kbo(:, 5,25,12) = (/ &\n     &1.2098e+02_rb,9.0828e+01_rb,6.0694e+01_rb,3.2765e+01_rb,1.1759e+01_rb/)\n      kbo(:, 1,26,12) = (/ &\n     &3.8022e+01_rb,2.8659e+01_rb,2.2105e+01_rb,1.9516e+01_rb,1.2805e+01_rb/)\n      kbo(:, 2,26,12) = (/ &\n     &5.0994e+01_rb,3.8356e+01_rb,2.7362e+01_rb,2.1131e+01_rb,1.2709e+01_rb/)\n      kbo(:, 3,26,12) = (/ &\n     &6.6538e+01_rb,5.0014e+01_rb,3.4258e+01_rb,2.3250e+01_rb,1.2582e+01_rb/)\n      kbo(:, 4,26,12) = (/ &\n     &8.4702e+01_rb,6.3631e+01_rb,4.2833e+01_rb,2.6169e+01_rb,1.2418e+01_rb/)\n      kbo(:, 5,26,12) = (/ &\n     &1.0565e+02_rb,7.9327e+01_rb,5.3062e+01_rb,3.0028e+01_rb,1.2216e+01_rb/)\n      kbo(:, 1,27,12) = (/ &\n     &3.4489e+01_rb,2.6132e+01_rb,2.1235e+01_rb,1.9878e+01_rb,1.3122e+01_rb/)\n      kbo(:, 2,27,12) = (/ &\n     &4.6305e+01_rb,3.4844e+01_rb,2.5714e+01_rb,2.1342e+01_rb,1.3062e+01_rb/)\n      kbo(:, 3,27,12) = (/ &\n     &6.0441e+01_rb,4.5443e+01_rb,3.1734e+01_rb,2.3085e+01_rb,1.2955e+01_rb/)\n      kbo(:, 4,27,12) = (/ &\n     &7.7109e+01_rb,5.7931e+01_rb,3.9347e+01_rb,2.5409e+01_rb,1.2800e+01_rb/)\n      kbo(:, 5,27,12) = (/ &\n     &9.6578e+01_rb,7.2521e+01_rb,4.8662e+01_rb,2.8654e+01_rb,1.2602e+01_rb/)\n      kbo(:, 1,28,12) = (/ &\n     &3.2427e+01_rb,2.4737e+01_rb,2.0948e+01_rb,2.0280e+01_rb,1.3386e+01_rb/)\n      kbo(:, 2,28,12) = (/ &\n     &4.3501e+01_rb,3.2787e+01_rb,2.4919e+01_rb,2.1714e+01_rb,1.3352e+01_rb/)\n      kbo(:, 3,28,12) = (/ &\n     &5.6891e+01_rb,4.2776e+01_rb,3.0416e+01_rb,2.3252e+01_rb,1.3262e+01_rb/)\n      kbo(:, 4,28,12) = (/ &\n     &7.2922e+01_rb,5.4789e+01_rb,3.7531e+01_rb,2.5273e+01_rb,1.3118e+01_rb/)\n      kbo(:, 5,28,12) = (/ &\n     &9.1872e+01_rb,6.8992e+01_rb,4.6457e+01_rb,2.8166e+01_rb,1.2926e+01_rb/)\n      kbo(:, 1,29,12) = (/ &\n     &3.2667e+01_rb,2.5018e+01_rb,2.1498e+01_rb,2.0955e+01_rb,1.3603e+01_rb/)\n      kbo(:, 2,29,12) = (/ &\n     &4.3912e+01_rb,3.3123e+01_rb,2.5431e+01_rb,2.2422e+01_rb,1.3591e+01_rb/)\n      kbo(:, 3,29,12) = (/ &\n     &5.7701e+01_rb,4.3385e+01_rb,3.1008e+01_rb,2.3974e+01_rb,1.3517e+01_rb/)\n      kbo(:, 4,29,12) = (/ &\n     &7.4275e+01_rb,5.5806e+01_rb,3.8313e+01_rb,2.6005e+01_rb,1.3383e+01_rb/)\n      kbo(:, 5,29,12) = (/ &\n     &9.3871e+01_rb,7.0500e+01_rb,4.7521e+01_rb,2.8930e+01_rb,1.3178e+01_rb/)\n      kbo(:, 1,30,12) = (/ &\n     &3.4156e+01_rb,2.6153e+01_rb,2.2429e+01_rb,2.1713e+01_rb,1.3788e+01_rb/)\n      kbo(:, 2,30,12) = (/ &\n     &4.6027e+01_rb,3.4711e+01_rb,2.6560e+01_rb,2.3234e+01_rb,1.3795e+01_rb/)\n      kbo(:, 3,30,12) = (/ &\n     &6.0622e+01_rb,4.5582e+01_rb,3.2488e+01_rb,2.4921e+01_rb,1.3734e+01_rb/)\n      kbo(:, 4,30,12) = (/ &\n     &7.8321e+01_rb,5.8857e+01_rb,4.0368e+01_rb,2.7080e+01_rb,1.3599e+01_rb/)\n      kbo(:, 5,30,12) = (/ &\n     &9.9301e+01_rb,7.4592e+01_rb,5.0256e+01_rb,3.0286e+01_rb,1.3384e+01_rb/)\n      kbo(:, 1,31,12) = (/ &\n     &3.8076e+01_rb,2.9005e+01_rb,2.4159e+01_rb,2.2772e+01_rb,1.3950e+01_rb/)\n      kbo(:, 2,31,12) = (/ &\n     &5.1386e+01_rb,3.8696e+01_rb,2.8953e+01_rb,2.4505e+01_rb,1.3973e+01_rb/)\n      kbo(:, 3,31,12) = (/ &\n     &6.7843e+01_rb,5.1009e+01_rb,3.5918e+01_rb,2.6433e+01_rb,1.3920e+01_rb/)\n      kbo(:, 4,31,12) = (/ &\n     &8.7812e+01_rb,6.5990e+01_rb,4.4995e+01_rb,2.9071e+01_rb,1.3753e+01_rb/)\n      kbo(:, 5,31,12) = (/ &\n     &1.1160e+02_rb,8.3824e+01_rb,5.6340e+01_rb,3.3050e+01_rb,1.3573e+01_rb/)\n      kbo(:, 1,32,12) = (/ &\n     &4.3422e+01_rb,3.2909e+01_rb,2.6354e+01_rb,2.4011e+01_rb,1.4101e+01_rb/)\n      kbo(:, 2,32,12) = (/ &\n     &5.8749e+01_rb,4.4202e+01_rb,3.2268e+01_rb,2.6008e+01_rb,1.4129e+01_rb/)\n      kbo(:, 3,32,12) = (/ &\n     &7.7682e+01_rb,5.8398e+01_rb,4.0569e+01_rb,2.8355e+01_rb,1.4037e+01_rb/)\n      kbo(:, 4,32,12) = (/ &\n     &1.0053e+02_rb,7.5534e+01_rb,5.1158e+01_rb,3.1768e+01_rb,1.3909e+01_rb/)\n      kbo(:, 5,32,12) = (/ &\n     &1.2780e+02_rb,9.5988e+01_rb,6.4344e+01_rb,3.6705e+01_rb,1.3757e+01_rb/)\n      kbo(:, 1,33,12) = (/ &\n     &5.0972e+01_rb,3.8474e+01_rb,2.9509e+01_rb,2.5608e+01_rb,1.4236e+01_rb/)\n      kbo(:, 2,33,12) = (/ &\n     &6.8978e+01_rb,5.1873e+01_rb,3.6983e+01_rb,2.7940e+01_rb,1.4225e+01_rb/)\n      kbo(:, 3,33,12) = (/ &\n     &9.1196e+01_rb,6.8536e+01_rb,4.6964e+01_rb,3.1045e+01_rb,1.4156e+01_rb/)\n      kbo(:, 4,33,12) = (/ &\n     &1.1806e+02_rb,8.8684e+01_rb,5.9688e+01_rb,3.5479e+01_rb,1.4053e+01_rb/)\n      kbo(:, 5,33,12) = (/ &\n     &1.5026e+02_rb,1.1283e+02_rb,7.5476e+01_rb,4.1722e+01_rb,1.3797e+01_rb/)\n      kbo(:, 1,34,12) = (/ &\n     &5.8196e+01_rb,4.3842e+01_rb,3.2696e+01_rb,2.7075e+01_rb,1.4322e+01_rb/)\n      kbo(:, 2,34,12) = (/ &\n     &7.8717e+01_rb,5.9180e+01_rb,4.1505e+01_rb,2.9899e+01_rb,1.4304e+01_rb/)\n      kbo(:, 3,34,12) = (/ &\n     &1.0408e+02_rb,7.8203e+01_rb,5.3150e+01_rb,3.3676e+01_rb,1.4279e+01_rb/)\n      kbo(:, 4,34,12) = (/ &\n     &1.3497e+02_rb,1.0137e+02_rb,6.8004e+01_rb,3.9142e+01_rb,1.4130e+01_rb/)\n      kbo(:, 5,34,12) = (/ &\n     &1.7215e+02_rb,1.2926e+02_rb,8.6400e+01_rb,4.6696e+01_rb,1.3817e+01_rb/)\n      kbo(:, 1,35,12) = (/ &\n     &6.4953e+01_rb,4.8885e+01_rb,3.5777e+01_rb,2.8513e+01_rb,1.4376e+01_rb/)\n      kbo(:, 2,35,12) = (/ &\n     &8.7973e+01_rb,6.6128e+01_rb,4.5876e+01_rb,3.1844e+01_rb,1.4423e+01_rb/)\n      kbo(:, 3,35,12) = (/ &\n     &1.1659e+02_rb,8.7588e+01_rb,5.9213e+01_rb,3.6344e+01_rb,1.4380e+01_rb/)\n      kbo(:, 4,35,12) = (/ &\n     &1.5177e+02_rb,1.1397e+02_rb,7.6316e+01_rb,4.2891e+01_rb,1.4142e+01_rb/)\n      kbo(:, 5,35,12) = (/ &\n     &1.9438e+02_rb,1.4593e+02_rb,9.7521e+01_rb,5.1793e+01_rb,1.3951e+01_rb/)\n      kbo(:, 1,36,12) = (/ &\n     &7.0028e+01_rb,5.2692e+01_rb,3.8196e+01_rb,2.9764e+01_rb,1.4429e+01_rb/)\n      kbo(:, 2,36,12) = (/ &\n     &9.5230e+01_rb,7.1580e+01_rb,4.9388e+01_rb,3.3491e+01_rb,1.4515e+01_rb/)\n      kbo(:, 3,36,12) = (/ &\n     &1.2679e+02_rb,9.5251e+01_rb,6.4219e+01_rb,3.8654e+01_rb,1.4447e+01_rb/)\n      kbo(:, 4,36,12) = (/ &\n     &1.6604e+02_rb,1.2468e+02_rb,8.3408e+01_rb,4.6199e+01_rb,1.4226e+01_rb/)\n      kbo(:, 5,36,12) = (/ &\n     &2.1406e+02_rb,1.6070e+02_rb,1.0737e+02_rb,5.6401e+01_rb,1.4079e+01_rb/)\n      kbo(:, 1,37,12) = (/ &\n     &7.0336e+01_rb,5.2944e+01_rb,3.8605e+01_rb,3.0262e+01_rb,1.4492e+01_rb/)\n      kbo(:, 2,37,12) = (/ &\n     &9.6465e+01_rb,7.2514e+01_rb,5.0131e+01_rb,3.4164e+01_rb,1.4585e+01_rb/)\n      kbo(:, 3,37,12) = (/ &\n     &1.2955e+02_rb,9.7324e+01_rb,6.5642e+01_rb,3.9574e+01_rb,1.4537e+01_rb/)\n      kbo(:, 4,37,12) = (/ &\n     &1.7114e+02_rb,1.2851e+02_rb,8.5971e+01_rb,4.7570e+01_rb,1.4312e+01_rb/)\n      kbo(:, 5,37,12) = (/ &\n     &2.2257e+02_rb,1.6708e+02_rb,1.1162e+02_rb,5.8523e+01_rb,1.4157e+01_rb/)\n      kbo(:, 1,38,12) = (/ &\n     &7.1653e+01_rb,5.3935e+01_rb,3.9443e+01_rb,3.0956e+01_rb,1.4537e+01_rb/)\n      kbo(:, 2,38,12) = (/ &\n     &9.9371e+01_rb,7.4697e+01_rb,5.1646e+01_rb,3.5117e+01_rb,1.4670e+01_rb/)\n      kbo(:, 3,38,12) = (/ &\n     &1.3467e+02_rb,1.0116e+02_rb,6.8199e+01_rb,4.0938e+01_rb,1.4595e+01_rb/)\n      kbo(:, 4,38,12) = (/ &\n     &1.7944e+02_rb,1.3474e+02_rb,9.0110e+01_rb,4.9614e+01_rb,1.4367e+01_rb/)\n      kbo(:, 5,38,12) = (/ &\n     &2.3537e+02_rb,1.7668e+02_rb,1.1802e+02_rb,6.1608e+01_rb,1.4213e+01_rb/)\n      kbo(:, 1,39,12) = (/ &\n     &7.4953e+01_rb,5.6404e+01_rb,4.1108e+01_rb,3.2048e+01_rb,1.4593e+01_rb/)\n      kbo(:, 2,39,12) = (/ &\n     &1.0508e+02_rb,7.8982e+01_rb,5.4463e+01_rb,3.6606e+01_rb,1.4737e+01_rb/)\n      kbo(:, 3,39,12) = (/ &\n     &1.4387e+02_rb,1.0807e+02_rb,7.2745e+01_rb,4.3123e+01_rb,1.4593e+01_rb/)\n      kbo(:, 4,39,12) = (/ &\n     &1.9336e+02_rb,1.4518e+02_rb,9.7046e+01_rb,5.2882e+01_rb,1.4422e+01_rb/)\n      kbo(:, 5,39,12) = (/ &\n     &2.5579e+02_rb,1.9200e+02_rb,1.2823e+02_rb,6.6478e+01_rb,1.4241e+01_rb/)\n      kbo(:, 1,40,12) = (/ &\n     &7.1125e+01_rb,5.3576e+01_rb,3.9744e+01_rb,3.1845e+01_rb,1.4584e+01_rb/)\n      kbo(:, 2,40,12) = (/ &\n     &1.0123e+02_rb,7.6093e+01_rb,5.2813e+01_rb,3.6464e+01_rb,1.4753e+01_rb/)\n      kbo(:, 3,40,12) = (/ &\n     &1.4047e+02_rb,1.0551e+02_rb,7.1189e+01_rb,4.2876e+01_rb,1.4635e+01_rb/)\n      kbo(:, 4,40,12) = (/ &\n     &1.9075e+02_rb,1.4322e+02_rb,9.5759e+01_rb,5.2592e+01_rb,1.4461e+01_rb/)\n      kbo(:, 5,40,12) = (/ &\n     &2.5487e+02_rb,1.9131e+02_rb,1.2777e+02_rb,6.6443e+01_rb,1.4311e+01_rb/)\n      kbo(:, 1,41,12) = (/ &\n     &6.6999e+01_rb,5.0553e+01_rb,3.8328e+01_rb,3.1540e+01_rb,1.4557e+01_rb/)\n      kbo(:, 2,41,12) = (/ &\n     &9.6989e+01_rb,7.2904e+01_rb,5.1038e+01_rb,3.6239e+01_rb,1.4754e+01_rb/)\n      kbo(:, 3,41,12) = (/ &\n     &1.3645e+02_rb,1.0250e+02_rb,6.9354e+01_rb,4.2559e+01_rb,1.4660e+01_rb/)\n      kbo(:, 4,41,12) = (/ &\n     &1.8750e+02_rb,1.4078e+02_rb,9.4178e+01_rb,5.2196e+01_rb,1.4491e+01_rb/)\n      kbo(:, 5,41,12) = (/ &\n     &2.5297e+02_rb,1.8988e+02_rb,1.2682e+02_rb,6.6184e+01_rb,1.4389e+01_rb/)\n      kbo(:, 1,42,12) = (/ &\n     &6.3698e+01_rb,4.8173e+01_rb,3.7314e+01_rb,3.1356e+01_rb,1.4515e+01_rb/)\n      kbo(:, 2,42,12) = (/ &\n     &9.3921e+01_rb,7.0600e+01_rb,4.9842e+01_rb,3.6216e+01_rb,1.4716e+01_rb/)\n      kbo(:, 3,42,12) = (/ &\n     &1.3407e+02_rb,1.0072e+02_rb,6.8313e+01_rb,4.2558e+01_rb,1.4673e+01_rb/)\n      kbo(:, 4,42,12) = (/ &\n     &1.8663e+02_rb,1.4013e+02_rb,9.3782e+01_rb,5.2338e+01_rb,1.4521e+01_rb/)\n      kbo(:, 5,42,12) = (/ &\n     &2.5424e+02_rb,1.9084e+02_rb,1.2745e+02_rb,6.6667e+01_rb,1.4444e+01_rb/)\n      kbo(:, 1,43,12) = (/ &\n     &5.9556e+01_rb,4.5221e+01_rb,3.6039e+01_rb,3.0985e+01_rb,1.4424e+01_rb/)\n      kbo(:, 2,43,12) = (/ &\n     &8.9715e+01_rb,6.7448e+01_rb,4.8196e+01_rb,3.6053e+01_rb,1.4672e+01_rb/)\n      kbo(:, 3,43,12) = (/ &\n     &1.3041e+02_rb,9.7958e+01_rb,6.6682e+01_rb,4.2356e+01_rb,1.4685e+01_rb/)\n      kbo(:, 4,43,12) = (/ &\n     &1.8413e+02_rb,1.3825e+02_rb,9.2592e+01_rb,5.2204e+01_rb,1.4530e+01_rb/)\n      kbo(:, 5,43,12) = (/ &\n     &2.5372e+02_rb,1.9044e+02_rb,1.2719e+02_rb,6.6793e+01_rb,1.4531e+01_rb/)\n      kbo(:, 1,44,12) = (/ &\n     &5.5617e+01_rb,4.2462e+01_rb,3.4926e+01_rb,3.0616e+01_rb,1.4301e+01_rb/)\n      kbo(:, 2,44,12) = (/ &\n     &8.5711e+01_rb,6.4467e+01_rb,4.6726e+01_rb,3.5948e+01_rb,1.4602e+01_rb/)\n      kbo(:, 3,44,12) = (/ &\n     &1.2713e+02_rb,9.5499e+01_rb,6.5283e+01_rb,4.2294e+01_rb,1.4674e+01_rb/)\n      kbo(:, 4,44,12) = (/ &\n     &1.8238e+02_rb,1.3694e+02_rb,9.1783e+01_rb,5.2246e+01_rb,1.4528e+01_rb/)\n      kbo(:, 5,44,12) = (/ &\n     &2.5466e+02_rb,1.9115e+02_rb,1.2766e+02_rb,6.7294e+01_rb,1.4570e+01_rb/)\n      kbo(:, 1,45,12) = (/ &\n     &5.2685e+01_rb,4.0486e+01_rb,3.4264e+01_rb,3.0427e+01_rb,1.4151e+01_rb/)\n      kbo(:, 2,45,12) = (/ &\n     &8.3179e+01_rb,6.2605e+01_rb,4.5965e+01_rb,3.6072e+01_rb,1.4507e+01_rb/)\n      kbo(:, 3,45,12) = (/ &\n     &1.2601e+02_rb,9.4652e+01_rb,6.4923e+01_rb,4.2669e+01_rb,1.4643e+01_rb/)\n      kbo(:, 4,45,12) = (/ &\n     &1.8401e+02_rb,1.3816e+02_rb,9.2634e+01_rb,5.3005e+01_rb,1.4503e+01_rb/)\n      kbo(:, 5,45,12) = (/ &\n     &2.6050e+02_rb,1.9553e+02_rb,1.3058e+02_rb,6.8905e+01_rb,1.4618e+01_rb/)\n      kbo(:, 1,46,12) = (/ &\n     &4.9550e+01_rb,3.8366e+01_rb,3.3605e+01_rb,3.0155e+01_rb,1.3963e+01_rb/)\n      kbo(:, 2,46,12) = (/ &\n     &8.0337e+01_rb,6.0538e+01_rb,4.5156e+01_rb,3.6142e+01_rb,1.4400e+01_rb/)\n      kbo(:, 3,46,12) = (/ &\n     &1.2453e+02_rb,9.3545e+01_rb,6.4429e+01_rb,4.3023e+01_rb,1.4594e+01_rb/)\n      kbo(:, 4,46,12) = (/ &\n     &1.8550e+02_rb,1.3927e+02_rb,9.3438e+01_rb,5.3784e+01_rb,1.4498e+01_rb/)\n      kbo(:, 5,46,12) = (/ &\n     &2.6666e+02_rb,2.0015e+02_rb,1.3366e+02_rb,7.0579e+01_rb,1.4676e+01_rb/)\n      kbo(:, 1,47,12) = (/ &\n     &4.4761e+01_rb,3.5144e+01_rb,3.2385e+01_rb,2.9408e+01_rb,1.3714e+01_rb/)\n      kbo(:, 2,47,12) = (/ &\n     &7.4836e+01_rb,5.6569e+01_rb,4.3337e+01_rb,3.5671e+01_rb,1.4241e+01_rb/)\n      kbo(:, 3,47,12) = (/ &\n     &1.1904e+02_rb,8.9427e+01_rb,6.2124e+01_rb,4.2720e+01_rb,1.4513e+01_rb/)\n      kbo(:, 4,47,12) = (/ &\n     &1.8135e+02_rb,1.3615e+02_rb,9.1529e+01_rb,5.3518e+01_rb,1.4491e+01_rb/)\n      kbo(:, 5,47,12) = (/ &\n     &2.6557e+02_rb,1.9933e+02_rb,1.3311e+02_rb,7.0671e+01_rb,1.4708e+01_rb/)\n      kbo(:, 1,48,12) = (/ &\n     &4.1069e+01_rb,3.2801e+01_rb,3.1586e+01_rb,2.8865e+01_rb,1.3457e+01_rb/)\n      kbo(:, 2,48,12) = (/ &\n     &7.0975e+01_rb,5.3819e+01_rb,4.2302e+01_rb,3.5478e+01_rb,1.4056e+01_rb/)\n      kbo(:, 3,48,12) = (/ &\n     &1.1614e+02_rb,8.7254e+01_rb,6.1078e+01_rb,4.2908e+01_rb,1.4399e+01_rb/)\n      kbo(:, 4,48,12) = (/ &\n     &1.8113e+02_rb,1.3599e+02_rb,9.1560e+01_rb,5.4099e+01_rb,1.4482e+01_rb/)\n      kbo(:, 5,48,12) = (/ &\n     &2.7078e+02_rb,2.0323e+02_rb,1.3570e+02_rb,7.2222e+01_rb,1.4704e+01_rb/)\n      kbo(:, 1,49,12) = (/ &\n     &3.8731e+01_rb,3.1486e+01_rb,3.1265e+01_rb,2.8628e+01_rb,1.3159e+01_rb/)\n      kbo(:, 2,49,12) = (/ &\n     &6.9397e+01_rb,5.2759e+01_rb,4.2223e+01_rb,3.5759e+01_rb,1.3841e+01_rb/)\n      kbo(:, 3,49,12) = (/ &\n     &1.1709e+02_rb,8.7966e+01_rb,6.1851e+01_rb,4.3836e+01_rb,1.4254e+01_rb/)\n      kbo(:, 4,49,12) = (/ &\n     &1.8714e+02_rb,1.4049e+02_rb,9.4623e+01_rb,5.5973e+01_rb,1.4472e+01_rb/)\n      kbo(:, 5,49,12) = (/ &\n     &2.8581e+02_rb,2.1450e+02_rb,1.4321e+02_rb,7.6013e+01_rb,1.4713e+01_rb/)\n      kbo(:, 1,50,12) = (/ &\n     &3.4845e+01_rb,2.9222e+01_rb,3.0219e+01_rb,2.7841e+01_rb,1.2848e+01_rb/)\n      kbo(:, 2,50,12) = (/ &\n     &6.4780e+01_rb,4.9517e+01_rb,4.0909e+01_rb,3.5306e+01_rb,1.3605e+01_rb/)\n      kbo(:, 3,50,12) = (/ &\n     &1.1280e+02_rb,8.4759e+01_rb,6.0286e+01_rb,4.3805e+01_rb,1.4114e+01_rb/)\n      kbo(:, 4,50,12) = (/ &\n     &1.8491e+02_rb,1.3882e+02_rb,9.3723e+01_rb,5.6179e+01_rb,1.4404e+01_rb/)\n      kbo(:, 5,50,12) = (/ &\n     &2.8849e+02_rb,2.1650e+02_rb,1.4455e+02_rb,7.7018e+01_rb,1.4673e+01_rb/)\n      kbo(:, 1,51,12) = (/ &\n     &3.0519e+01_rb,2.6754e+01_rb,2.8814e+01_rb,2.6775e+01_rb,1.2516e+01_rb/)\n      kbo(:, 2,51,12) = (/ &\n     &5.8895e+01_rb,4.5411e+01_rb,3.9106e+01_rb,3.4462e+01_rb,1.3344e+01_rb/)\n      kbo(:, 3,51,12) = (/ &\n     &1.0594e+02_rb,7.9673e+01_rb,5.7668e+01_rb,4.3297e+01_rb,1.3940e+01_rb/)\n      kbo(:, 4,51,12) = (/ &\n     &1.7846e+02_rb,1.3399e+02_rb,9.0800e+01_rb,5.5546e+01_rb,1.4316e+01_rb/)\n      kbo(:, 5,51,12) = (/ &\n     &2.8452e+02_rb,2.1353e+02_rb,1.4260e+02_rb,7.6552e+01_rb,1.4603e+01_rb/)\n      kbo(:, 1,52,12) = (/ &\n     &2.7172e+01_rb,2.4938e+01_rb,2.7638e+01_rb,2.5911e+01_rb,1.2154e+01_rb/)\n      kbo(:, 2,52,12) = (/ &\n     &5.4443e+01_rb,4.2404e+01_rb,3.7930e+01_rb,3.3867e+01_rb,1.3047e+01_rb/)\n      kbo(:, 3,52,12) = (/ &\n     &1.0140e+02_rb,7.6335e+01_rb,5.6140e+01_rb,4.3191e+01_rb,1.3744e+01_rb/)\n      kbo(:, 4,52,12) = (/ &\n     &1.7597e+02_rb,1.3212e+02_rb,8.9791e+01_rb,5.5744e+01_rb,1.4204e+01_rb/)\n      kbo(:, 5,52,12) = (/ &\n     &2.8690e+02_rb,2.1531e+02_rb,1.4382e+02_rb,7.7564e+01_rb,1.4539e+01_rb/)\n      kbo(:, 1,53,12) = (/ &\n     &2.4852e+01_rb,2.3783e+01_rb,2.6797e+01_rb,2.5306e+01_rb,1.1753e+01_rb/)\n      kbo(:, 2,53,12) = (/ &\n     &5.1806e+01_rb,4.0721e+01_rb,3.7447e+01_rb,3.3656e+01_rb,1.2720e+01_rb/)\n      kbo(:, 3,53,12) = (/ &\n     &1.0002e+02_rb,7.5369e+01_rb,5.6019e+01_rb,4.3667e+01_rb,1.3525e+01_rb/)\n      kbo(:, 4,53,12) = (/ &\n     &1.7916e+02_rb,1.3451e+02_rb,9.1517e+01_rb,5.7134e+01_rb,1.4067e+01_rb/)\n      kbo(:, 5,53,12) = (/ &\n     &2.9931e+02_rb,2.2462e+02_rb,1.5004e+02_rb,8.0825e+01_rb,1.4479e+01_rb/)\n      kbo(:, 1,54,12) = (/ &\n     &1.9814e+01_rb,2.1046e+01_rb,2.4392e+01_rb,2.3477e+01_rb,1.1367e+01_rb/)\n      kbo(:, 2,54,12) = (/ &\n     &4.3028e+01_rb,3.5019e+01_rb,3.4545e+01_rb,3.1504e+01_rb,1.2419e+01_rb/)\n      kbo(:, 3,54,12) = (/ &\n     &8.5988e+01_rb,6.5126e+01_rb,5.0588e+01_rb,4.1403e+01_rb,1.3282e+01_rb/)\n      kbo(:, 4,54,12) = (/ &\n     &1.5878e+02_rb,1.1923e+02_rb,8.2044e+01_rb,5.3856e+01_rb,1.3889e+01_rb/)\n      kbo(:, 5,54,12) = (/ &\n     &2.7225e+02_rb,2.0433e+02_rb,1.3669e+02_rb,7.5460e+01_rb,1.4357e+01_rb/)\n      kbo(:, 1,55,12) = (/ &\n     &1.4388e+01_rb,1.7950e+01_rb,2.1372e+01_rb,2.1168e+01_rb,1.0974e+01_rb/)\n      kbo(:, 2,55,12) = (/ &\n     &3.2596e+01_rb,2.8570e+01_rb,3.0630e+01_rb,2.8429e+01_rb,1.2112e+01_rb/)\n      kbo(:, 3,55,12) = (/ &\n     &6.7426e+01_rb,5.1747e+01_rb,4.3446e+01_rb,3.7705e+01_rb,1.3016e+01_rb/)\n      kbo(:, 4,55,12) = (/ &\n     &1.2839e+02_rb,9.6452e+01_rb,6.8218e+01_rb,4.8732e+01_rb,1.3748e+01_rb/)\n      kbo(:, 5,55,12) = (/ &\n     &2.2612e+02_rb,1.6973e+02_rb,1.1415e+02_rb,6.6296e+01_rb,1.4200e+01_rb/)\n      kbo(:, 1,56,12) = (/ &\n     &1.0289e+01_rb,1.5296e+01_rb,1.8729e+01_rb,1.9182e+01_rb,1.0528e+01_rb/)\n      kbo(:, 2,56,12) = (/ &\n     &2.4440e+01_rb,2.3761e+01_rb,2.7083e+01_rb,2.5668e+01_rb,1.1786e+01_rb/)\n      kbo(:, 3,56,12) = (/ &\n     &5.2397e+01_rb,4.1238e+01_rb,3.7979e+01_rb,3.4254e+01_rb,1.2753e+01_rb/)\n      kbo(:, 4,56,12) = (/ &\n     &1.0299e+02_rb,7.7598e+01_rb,5.7468e+01_rb,4.4519e+01_rb,1.3526e+01_rb/)\n      kbo(:, 5,56,12) = (/ &\n     &1.8650e+02_rb,1.4002e+02_rb,9.5113e+01_rb,5.8818e+01_rb,1.4062e+01_rb/)\n      kbo(:, 1,57,12) = (/ &\n     &7.2296e+00_rb,1.3018e+01_rb,1.6426e+01_rb,1.7434e+01_rb,1.0060e+01_rb/)\n      kbo(:, 2,57,12) = (/ &\n     &1.8079e+01_rb,2.0222e+01_rb,2.3856e+01_rb,2.3179e+01_rb,1.1422e+01_rb/)\n      kbo(:, 3,57,12) = (/ &\n     &4.0328e+01_rb,3.3389e+01_rb,3.3719e+01_rb,3.1042e+01_rb,1.2469e+01_rb/)\n      kbo(:, 4,57,12) = (/ &\n     &8.1861e+01_rb,6.2161e+01_rb,4.9031e+01_rb,4.0727e+01_rb,1.3313e+01_rb/)\n      kbo(:, 5,57,12) = (/ &\n     &1.5269e+02_rb,1.1466e+02_rb,7.9200e+01_rb,5.2806e+01_rb,1.3923e+01_rb/)\n      kbo(:, 1,58,12) = (/ &\n     &1.3378e+00_rb,3.6524e+00_rb,6.1661e+00_rb,9.4777e+00_rb,9.5880e+00_rb/)\n      kbo(:, 2,58,12) = (/ &\n     &3.5257e+00_rb,5.7408e+00_rb,8.9221e+00_rb,1.2503e+01_rb,1.1030e+01_rb/)\n      kbo(:, 3,58,12) = (/ &\n     &8.2101e+00_rb,9.0368e+00_rb,1.2733e+01_rb,1.6723e+01_rb,1.2197e+01_rb/)\n      kbo(:, 4,58,12) = (/ &\n     &1.7210e+01_rb,1.6233e+01_rb,1.7913e+01_rb,2.2101e+01_rb,1.3072e+01_rb/)\n      kbo(:, 5,58,12) = (/ &\n     &3.3035e+01_rb,3.0353e+01_rb,2.7850e+01_rb,2.8452e+01_rb,1.3763e+01_rb/)\n      kbo(:, 1,59,12) = (/ &\n     &1.3260e+00_rb,4.5998e+00_rb,7.5889e+00_rb,1.0717e+01_rb,9.4033e+00_rb/)\n      kbo(:, 2,59,12) = (/ &\n     &3.6097e+00_rb,7.0919e+00_rb,1.0659e+01_rb,1.3898e+01_rb,1.0849e+01_rb/)\n      kbo(:, 3,59,12) = (/ &\n     &8.5987e+00_rb,1.0607e+01_rb,1.5006e+01_rb,1.8102e+01_rb,1.2070e+01_rb/)\n      kbo(:, 4,59,12) = (/ &\n     &1.8312e+01_rb,1.7368e+01_rb,2.0492e+01_rb,2.3593e+01_rb,1.3009e+01_rb/)\n      kbo(:, 5,59,12) = (/ &\n     &3.5634e+01_rb,3.1449e+01_rb,2.9305e+01_rb,3.0122e+01_rb,1.3723e+01_rb/)\n      kbo(:, 1,13,13) = (/ &\n     &1.2162e+03_rb,9.1228e+02_rb,6.0835e+02_rb,3.0442e+02_rb,5.7609e+00_rb/)\n      kbo(:, 2,13,13) = (/ &\n     &1.7381e+03_rb,1.3037e+03_rb,8.6931e+02_rb,4.3490e+02_rb,5.6432e+00_rb/)\n      kbo(:, 3,13,13) = (/ &\n     &2.3576e+03_rb,1.7683e+03_rb,1.1791e+03_rb,5.8977e+02_rb,5.5255e+00_rb/)\n      kbo(:, 4,13,13) = (/ &\n     &3.0662e+03_rb,2.2998e+03_rb,1.5334e+03_rb,7.6694e+02_rb,5.4044e+00_rb/)\n      kbo(:, 5,13,13) = (/ &\n     &3.8594e+03_rb,2.8947e+03_rb,1.9299e+03_rb,9.6523e+02_rb,5.2355e+00_rb/)\n      kbo(:, 1,14,13) = (/ &\n     &7.9362e+02_rb,5.9533e+02_rb,3.9705e+02_rb,1.9877e+02_rb,6.3709e+00_rb/)\n      kbo(:, 2,14,13) = (/ &\n     &1.1345e+03_rb,8.5102e+02_rb,5.6751e+02_rb,2.8400e+02_rb,6.2388e+00_rb/)\n      kbo(:, 3,14,13) = (/ &\n     &1.5436e+03_rb,1.1578e+03_rb,7.7203e+02_rb,3.8627e+02_rb,6.0986e+00_rb/)\n      kbo(:, 4,14,13) = (/ &\n     &2.0139e+03_rb,1.5105e+03_rb,1.0072e+03_rb,5.0384e+02_rb,5.9465e+00_rb/)\n      kbo(:, 5,14,13) = (/ &\n     &2.5413e+03_rb,1.9061e+03_rb,1.2709e+03_rb,6.3569e+02_rb,5.7898e+00_rb/)\n      kbo(:, 1,15,13) = (/ &\n     &5.3943e+02_rb,4.0470e+02_rb,2.6997e+02_rb,1.3524e+02_rb,7.0503e+00_rb/)\n      kbo(:, 2,15,13) = (/ &\n     &7.7270e+02_rb,5.7965e+02_rb,3.8660e+02_rb,1.9355e+02_rb,6.8771e+00_rb/)\n      kbo(:, 3,15,13) = (/ &\n     &1.0520e+03_rb,7.8913e+02_rb,5.2626e+02_rb,2.6338e+02_rb,6.6997e+00_rb/)\n      kbo(:, 4,15,13) = (/ &\n     &1.3743e+03_rb,1.0308e+03_rb,6.8738e+02_rb,3.4394e+02_rb,6.5201e+00_rb/)\n      kbo(:, 5,15,13) = (/ &\n     &1.7371e+03_rb,1.3030e+03_rb,8.6881e+02_rb,4.3464e+02_rb,6.3410e+00_rb/)\n      kbo(:, 1,16,13) = (/ &\n     &4.4449e+02_rb,3.3349e+02_rb,2.2249e+02_rb,1.1150e+02_rb,7.7448e+00_rb/)\n      kbo(:, 2,16,13) = (/ &\n     &6.3512e+02_rb,4.7646e+02_rb,3.1780e+02_rb,1.5915e+02_rb,7.5481e+00_rb/)\n      kbo(:, 3,16,13) = (/ &\n     &8.6257e+02_rb,6.4705e+02_rb,4.3152e+02_rb,2.1600e+02_rb,7.3457e+00_rb/)\n      kbo(:, 4,16,13) = (/ &\n     &1.1249e+03_rb,8.4376e+02_rb,5.6265e+02_rb,2.8155e+02_rb,7.1472e+00_rb/)\n      kbo(:, 5,16,13) = (/ &\n     &1.4185e+03_rb,1.0640e+03_rb,7.0946e+02_rb,3.5494e+02_rb,6.9622e+00_rb/)\n      kbo(:, 1,17,13) = (/ &\n     &3.7725e+02_rb,2.8305e+02_rb,1.8886e+02_rb,9.4667e+01_rb,8.5153e+00_rb/)\n      kbo(:, 2,17,13) = (/ &\n     &5.3579e+02_rb,4.0195e+02_rb,2.6812e+02_rb,1.3428e+02_rb,8.2959e+00_rb/)\n      kbo(:, 3,17,13) = (/ &\n     &7.2432e+02_rb,5.4334e+02_rb,3.6237e+02_rb,1.8140e+02_rb,8.0790e+00_rb/)\n      kbo(:, 4,17,13) = (/ &\n     &9.4095e+02_rb,7.0582e+02_rb,4.7068e+02_rb,2.3555e+02_rb,7.8782e+00_rb/)\n      kbo(:, 5,17,13) = (/ &\n     &1.1800e+03_rb,8.8510e+02_rb,5.9020e+02_rb,2.9531e+02_rb,7.6889e+00_rb/)\n      kbo(:, 1,18,13) = (/ &\n     &3.2277e+02_rb,2.4218e+02_rb,1.6159e+02_rb,8.1002e+01_rb,9.4611e+00_rb/)\n      kbo(:, 2,18,13) = (/ &\n     &4.5535e+02_rb,3.4161e+02_rb,2.2787e+02_rb,1.1413e+02_rb,9.2187e+00_rb/)\n      kbo(:, 3,18,13) = (/ &\n     &6.1248e+02_rb,4.5945e+02_rb,3.0643e+02_rb,1.5340e+02_rb,8.9925e+00_rb/)\n      kbo(:, 4,18,13) = (/ &\n     &7.9039e+02_rb,5.9288e+02_rb,3.9538e+02_rb,1.9787e+02_rb,8.7824e+00_rb/)\n      kbo(:, 5,18,13) = (/ &\n     &9.8664e+02_rb,7.4007e+02_rb,4.9351e+02_rb,2.4694e+02_rb,8.5832e+00_rb/)\n      kbo(:, 1,19,13) = (/ &\n     &2.6617e+02_rb,1.9972e+02_rb,1.3326e+02_rb,6.6812e+01_rb,1.0581e+01_rb/)\n      kbo(:, 2,19,13) = (/ &\n     &3.7316e+02_rb,2.7996e+02_rb,1.8675e+02_rb,9.3549e+01_rb,1.0334e+01_rb/)\n      kbo(:, 3,19,13) = (/ &\n     &4.9811e+02_rb,3.7366e+02_rb,2.4922e+02_rb,1.2478e+02_rb,1.0097e+01_rb/)\n      kbo(:, 4,19,13) = (/ &\n     &6.3941e+02_rb,4.7964e+02_rb,3.1987e+02_rb,1.6011e+02_rb,9.8657e+00_rb/)\n      kbo(:, 5,19,13) = (/ &\n     &7.9554e+02_rb,5.9674e+02_rb,3.9794e+02_rb,1.9915e+02_rb,9.6319e+00_rb/)\n      kbo(:, 1,20,13) = (/ &\n     &2.3446e+02_rb,1.7592e+02_rb,1.1738e+02_rb,5.8849e+01_rb,1.1882e+01_rb/)\n      kbo(:, 2,20,13) = (/ &\n     &3.2565e+02_rb,2.4431e+02_rb,1.6298e+02_rb,8.1640e+01_rb,1.1619e+01_rb/)\n      kbo(:, 3,20,13) = (/ &\n     &4.3162e+02_rb,3.2380e+02_rb,2.1597e+02_rb,1.0814e+02_rb,1.1360e+01_rb/)\n      kbo(:, 4,20,13) = (/ &\n     &5.5163e+02_rb,4.1380e+02_rb,2.7598e+02_rb,1.3815e+02_rb,1.1092e+01_rb/)\n      kbo(:, 5,20,13) = (/ &\n     &6.8433e+02_rb,5.1333e+02_rb,3.4234e+02_rb,1.7134e+02_rb,1.0817e+01_rb/)\n      kbo(:, 1,21,13) = (/ &\n     &2.0791e+02_rb,1.5600e+02_rb,1.0410e+02_rb,5.2196e+01_rb,1.3299e+01_rb/)\n      kbo(:, 2,21,13) = (/ &\n     &2.8639e+02_rb,2.1487e+02_rb,1.4335e+02_rb,7.1825e+01_rb,1.3019e+01_rb/)\n      kbo(:, 3,21,13) = (/ &\n     &3.7808e+02_rb,2.8364e+02_rb,1.8920e+02_rb,9.4762e+01_rb,1.2725e+01_rb/)\n      kbo(:, 4,21,13) = (/ &\n     &4.8188e+02_rb,3.6150e+02_rb,2.4111e+02_rb,1.2072e+02_rb,1.2414e+01_rb/)\n      kbo(:, 5,21,13) = (/ &\n     &5.9751e+02_rb,4.4821e+02_rb,2.9892e+02_rb,1.4963e+02_rb,1.2098e+01_rb/)\n      kbo(:, 1,22,13) = (/ &\n     &1.8905e+02_rb,1.4186e+02_rb,9.4669e+01_rb,4.7658e+01_rb,1.4760e+01_rb/)\n      kbo(:, 2,22,13) = (/ &\n     &2.5846e+02_rb,1.9392e+02_rb,1.2939e+02_rb,6.4852e+01_rb,1.4444e+01_rb/)\n      kbo(:, 3,22,13) = (/ &\n     &3.3936e+02_rb,2.5460e+02_rb,1.6984e+02_rb,8.5086e+01_rb,1.4104e+01_rb/)\n      kbo(:, 4,22,13) = (/ &\n     &4.3137e+02_rb,3.2361e+02_rb,2.1585e+02_rb,1.0809e+02_rb,1.3746e+01_rb/)\n      kbo(:, 5,22,13) = (/ &\n     &5.3388e+02_rb,4.0049e+02_rb,2.6710e+02_rb,1.3372e+02_rb,1.3378e+01_rb/)\n      kbo(:, 1,23,13) = (/ &\n     &1.7012e+02_rb,1.2766e+02_rb,8.5209e+01_rb,4.3736e+01_rb,1.6211e+01_rb/)\n      kbo(:, 2,23,13) = (/ &\n     &2.3107e+02_rb,1.7338e+02_rb,1.1569e+02_rb,5.8148e+01_rb,1.5847e+01_rb/)\n      kbo(:, 3,23,13) = (/ &\n     &3.0241e+02_rb,2.2689e+02_rb,1.5137e+02_rb,7.5851e+01_rb,1.5467e+01_rb/)\n      kbo(:, 4,23,13) = (/ &\n     &3.8349e+02_rb,2.8770e+02_rb,1.9191e+02_rb,9.6125e+01_rb,1.5066e+01_rb/)\n      kbo(:, 5,23,13) = (/ &\n     &4.7369e+02_rb,3.5535e+02_rb,2.3701e+02_rb,1.1867e+02_rb,1.4651e+01_rb/)\n      kbo(:, 1,24,13) = (/ &\n     &1.5057e+02_rb,1.1300e+02_rb,7.5436e+01_rb,4.0246e+01_rb,1.7609e+01_rb/)\n      kbo(:, 2,24,13) = (/ &\n     &2.0367e+02_rb,1.5283e+02_rb,1.0199e+02_rb,5.2083e+01_rb,1.7203e+01_rb/)\n      kbo(:, 3,24,13) = (/ &\n     &2.6558e+02_rb,1.9927e+02_rb,1.3295e+02_rb,6.6835e+01_rb,1.6770e+01_rb/)\n      kbo(:, 4,24,13) = (/ &\n     &3.3594e+02_rb,2.5203e+02_rb,1.6813e+02_rb,8.4226e+01_rb,1.6325e+01_rb/)\n      kbo(:, 5,24,13) = (/ &\n     &4.1379e+02_rb,3.1042e+02_rb,2.0705e+02_rb,1.0369e+02_rb,1.5864e+01_rb/)\n      kbo(:, 1,25,13) = (/ &\n     &1.3420e+02_rb,1.0073e+02_rb,6.7255e+01_rb,3.7941e+01_rb,1.8922e+01_rb/)\n      kbo(:, 2,25,13) = (/ &\n     &1.8061e+02_rb,1.3554e+02_rb,9.0464e+01_rb,4.7603e+01_rb,1.8471e+01_rb/)\n      kbo(:, 3,25,13) = (/ &\n     &2.3464e+02_rb,1.7606e+02_rb,1.1747e+02_rb,5.9840e+01_rb,1.7998e+01_rb/)\n      kbo(:, 4,25,13) = (/ &\n     &2.9580e+02_rb,2.2193e+02_rb,1.4806e+02_rb,7.4446e+01_rb,1.7506e+01_rb/)\n      kbo(:, 5,25,13) = (/ &\n     &3.6422e+02_rb,2.7325e+02_rb,1.8228e+02_rb,9.1309e+01_rb,1.6997e+01_rb/)\n      kbo(:, 1,26,13) = (/ &\n     &1.2114e+02_rb,9.0934e+01_rb,6.0946e+01_rb,3.6699e+01_rb,2.0129e+01_rb/)\n      kbo(:, 2,26,13) = (/ &\n     &1.6224e+02_rb,1.2175e+02_rb,8.1268e+01_rb,4.4540e+01_rb,1.9645e+01_rb/)\n      kbo(:, 3,26,13) = (/ &\n     &2.0993e+02_rb,1.5753e+02_rb,1.0512e+02_rb,5.4768e+01_rb,1.9134e+01_rb/)\n      kbo(:, 4,26,13) = (/ &\n     &2.6457e+02_rb,1.9850e+02_rb,1.3244e+02_rb,6.7280e+01_rb,1.8599e+01_rb/)\n      kbo(:, 5,26,13) = (/ &\n     &3.2617e+02_rb,2.4471e+02_rb,1.6326e+02_rb,8.2064e+01_rb,1.8043e+01_rb/)\n      kbo(:, 1,27,13) = (/ &\n     &1.1288e+02_rb,8.4731e+01_rb,5.7258e+01_rb,3.6591e+01_rb,2.1235e+01_rb/)\n      kbo(:, 2,27,13) = (/ &\n     &1.5040e+02_rb,1.1288e+02_rb,7.5447e+01_rb,4.3146e+01_rb,2.0722e+01_rb/)\n      kbo(:, 3,27,13) = (/ &\n     &1.9447e+02_rb,1.4593e+02_rb,9.7397e+01_rb,5.2019e+01_rb,2.0175e+01_rb/)\n      kbo(:, 4,27,13) = (/ &\n     &2.4522e+02_rb,1.8400e+02_rb,1.2279e+02_rb,6.3250e+01_rb,1.9596e+01_rb/)\n      kbo(:, 5,27,13) = (/ &\n     &3.0305e+02_rb,2.2738e+02_rb,1.5172e+02_rb,7.6751e+01_rb,1.8997e+01_rb/)\n      kbo(:, 1,28,13) = (/ &\n     &1.0746e+02_rb,8.0667e+01_rb,5.5081e+01_rb,3.7035e+01_rb,2.2229e+01_rb/)\n      kbo(:, 2,28,13) = (/ &\n     &1.4298e+02_rb,1.0731e+02_rb,7.1965e+01_rb,4.2784e+01_rb,2.1691e+01_rb/)\n      kbo(:, 3,28,13) = (/ &\n     &1.8493e+02_rb,1.3878e+02_rb,9.2649e+01_rb,5.0725e+01_rb,2.1105e+01_rb/)\n      kbo(:, 4,28,13) = (/ &\n     &2.3378e+02_rb,1.7543e+02_rb,1.1708e+02_rb,6.1166e+01_rb,2.0486e+01_rb/)\n      kbo(:, 5,28,13) = (/ &\n     &2.9002e+02_rb,2.1761e+02_rb,1.4521e+02_rb,7.3973e+01_rb,1.9841e+01_rb/)\n      kbo(:, 1,29,13) = (/ &\n     &1.0862e+02_rb,8.1537e+01_rb,5.6008e+01_rb,3.8525e+01_rb,2.3108e+01_rb/)\n      kbo(:, 2,29,13) = (/ &\n     &1.4451e+02_rb,1.0847e+02_rb,7.2927e+01_rb,4.4121e+01_rb,2.2541e+01_rb/)\n      kbo(:, 3,29,13) = (/ &\n     &1.8742e+02_rb,1.4066e+02_rb,9.3939e+01_rb,5.2003e+01_rb,2.1917e+01_rb/)\n      kbo(:, 4,29,13) = (/ &\n     &2.3814e+02_rb,1.7870e+02_rb,1.1927e+02_rb,6.2626e+01_rb,2.1254e+01_rb/)\n      kbo(:, 5,29,13) = (/ &\n     &2.9712e+02_rb,2.2294e+02_rb,1.4877e+02_rb,7.5955e+01_rb,2.0559e+01_rb/)\n      kbo(:, 1,30,13) = (/ &\n     &1.1263e+02_rb,8.4559e+01_rb,5.8240e+01_rb,4.0363e+01_rb,2.3867e+01_rb/)\n      kbo(:, 2,30,13) = (/ &\n     &1.5031e+02_rb,1.1283e+02_rb,7.5908e+01_rb,4.6135e+01_rb,2.3263e+01_rb/)\n      kbo(:, 3,30,13) = (/ &\n     &1.9606e+02_rb,1.4715e+02_rb,9.8280e+01_rb,5.4419e+01_rb,2.2598e+01_rb/)\n      kbo(:, 4,30,13) = (/ &\n     &2.5065e+02_rb,1.8809e+02_rb,1.2553e+02_rb,6.5875e+01_rb,2.1889e+01_rb/)\n      kbo(:, 5,30,13) = (/ &\n     &3.1497e+02_rb,2.3633e+02_rb,1.5769e+02_rb,8.0462e+01_rb,2.1149e+01_rb/)\n      kbo(:, 1,31,13) = (/ &\n     &1.2378e+02_rb,9.2930e+01_rb,6.3680e+01_rb,4.3209e+01_rb,2.4494e+01_rb/)\n      kbo(:, 2,31,13) = (/ &\n     &1.6598e+02_rb,1.2458e+02_rb,8.3650e+01_rb,4.9789e+01_rb,2.3857e+01_rb/)\n      kbo(:, 3,31,13) = (/ &\n     &2.1788e+02_rb,1.6351e+02_rb,1.0916e+02_rb,5.9548e+01_rb,2.3152e+01_rb/)\n      kbo(:, 4,31,13) = (/ &\n     &2.8056e+02_rb,2.1051e+02_rb,1.4048e+02_rb,7.3069e+01_rb,2.2400e+01_rb/)\n      kbo(:, 5,31,13) = (/ &\n     &3.5485e+02_rb,2.6624e+02_rb,1.7763e+02_rb,9.0172e+01_rb,2.1588e+01_rb/)\n      kbo(:, 1,32,13) = (/ &\n     &1.3906e+02_rb,1.0439e+02_rb,7.1039e+01_rb,4.6595e+01_rb,2.5004e+01_rb/)\n      kbo(:, 2,32,13) = (/ &\n     &1.8760e+02_rb,1.4080e+02_rb,9.4311e+01_rb,5.4496e+01_rb,2.4327e+01_rb/)\n      kbo(:, 3,32,13) = (/ &\n     &2.4774e+02_rb,1.8590e+02_rb,1.2408e+02_rb,6.6467e+01_rb,2.3584e+01_rb/)\n      kbo(:, 4,32,13) = (/ &\n     &3.2109e+02_rb,2.4091e+02_rb,1.6074e+02_rb,8.2698e+01_rb,2.2768e+01_rb/)\n      kbo(:, 5,32,13) = (/ &\n     &4.0872e+02_rb,3.0664e+02_rb,2.0456e+02_rb,1.0327e+02_rb,2.1879e+01_rb/)\n      kbo(:, 1,33,13) = (/ &\n     &1.6104e+02_rb,1.2087e+02_rb,8.1641e+01_rb,5.1002e+01_rb,2.5402e+01_rb/)\n      kbo(:, 2,33,13) = (/ &\n     &2.1845e+02_rb,1.6394e+02_rb,1.0954e+02_rb,6.1146e+01_rb,2.4688e+01_rb/)\n      kbo(:, 3,33,13) = (/ &\n     &2.9039e+02_rb,2.1789e+02_rb,1.4539e+02_rb,7.6233e+01_rb,2.3897e+01_rb/)\n      kbo(:, 4,33,13) = (/ &\n     &3.7885e+02_rb,2.8424e+02_rb,1.8963e+02_rb,9.6481e+01_rb,2.2987e+01_rb/)\n      kbo(:, 5,33,13) = (/ &\n     &4.8539e+02_rb,3.6414e+02_rb,2.4290e+02_rb,1.2206e+02_rb,2.2183e+01_rb/)\n      kbo(:, 1,34,13) = (/ &\n     &1.8189e+02_rb,1.3651e+02_rb,9.1768e+01_rb,5.5207e+01_rb,2.5729e+01_rb/)\n      kbo(:, 2,34,13) = (/ &\n     &2.4868e+02_rb,1.8660e+02_rb,1.2456e+02_rb,6.7745e+01_rb,2.4984e+01_rb/)\n      kbo(:, 3,34,13) = (/ &\n     &3.3298e+02_rb,2.4983e+02_rb,1.6669e+02_rb,8.6174e+01_rb,2.4083e+01_rb/)\n      kbo(:, 4,34,13) = (/ &\n     &4.3751e+02_rb,3.2823e+02_rb,2.1895e+02_rb,1.1064e+02_rb,2.3253e+01_rb/)\n      kbo(:, 5,34,13) = (/ &\n     &5.6416e+02_rb,4.2322e+02_rb,2.8227e+02_rb,1.4151e+02_rb,2.2432e+01_rb/)\n      kbo(:, 1,35,13) = (/ &\n     &2.0192e+02_rb,1.5153e+02_rb,1.0158e+02_rb,5.9346e+01_rb,2.6044e+01_rb/)\n      kbo(:, 2,35,13) = (/ &\n     &2.7880e+02_rb,2.0919e+02_rb,1.3960e+02_rb,7.4527e+01_rb,2.5204e+01_rb/)\n      kbo(:, 3,35,13) = (/ &\n     &3.7683e+02_rb,2.8271e+02_rb,1.8860e+02_rb,9.6532e+01_rb,2.4315e+01_rb/)\n      kbo(:, 4,35,13) = (/ &\n     &4.9906e+02_rb,3.7439e+02_rb,2.4972e+02_rb,1.2566e+02_rb,2.3549e+01_rb/)\n      kbo(:, 5,35,13) = (/ &\n     &6.4817e+02_rb,4.8622e+02_rb,3.2427e+02_rb,1.6242e+02_rb,2.2556e+01_rb/)\n      kbo(:, 1,36,13) = (/ &\n     &2.1718e+02_rb,1.6298e+02_rb,1.0911e+02_rb,6.2682e+01_rb,2.6372e+01_rb/)\n      kbo(:, 2,36,13) = (/ &\n     &3.0353e+02_rb,2.2773e+02_rb,1.5196e+02_rb,8.0255e+01_rb,2.5484e+01_rb/)\n      kbo(:, 3,36,13) = (/ &\n     &4.1487e+02_rb,3.1124e+02_rb,2.0762e+02_rb,1.0565e+02_rb,2.4690e+01_rb/)\n      kbo(:, 4,36,13) = (/ &\n     &5.5465e+02_rb,4.1607e+02_rb,2.7750e+02_rb,1.3934e+02_rb,2.3815e+01_rb/)\n      kbo(:, 5,36,13) = (/ &\n     &7.2608e+02_rb,5.4465e+02_rb,3.6322e+02_rb,1.8189e+02_rb,2.2654e+01_rb/)\n      kbo(:, 1,37,13) = (/ &\n     &2.1788e+02_rb,1.6349e+02_rb,1.0950e+02_rb,6.3289e+01_rb,2.6719e+01_rb/)\n      kbo(:, 2,37,13) = (/ &\n     &3.0912e+02_rb,2.3193e+02_rb,1.5476e+02_rb,8.1797e+01_rb,2.5860e+01_rb/)\n      kbo(:, 3,37,13) = (/ &\n     &4.2846e+02_rb,3.2142e+02_rb,2.1440e+02_rb,1.0906e+02_rb,2.5054e+01_rb/)\n      kbo(:, 4,37,13) = (/ &\n     &5.7982e+02_rb,4.3495e+02_rb,2.9008e+02_rb,1.4561e+02_rb,2.4158e+01_rb/)\n      kbo(:, 5,37,13) = (/ &\n     &7.6717e+02_rb,5.7546e+02_rb,3.8377e+02_rb,1.9217e+02_rb,2.2948e+01_rb/)\n      kbo(:, 1,38,13) = (/ &\n     &2.2254e+02_rb,1.6699e+02_rb,1.1184e+02_rb,6.4633e+01_rb,2.7030e+01_rb/)\n      kbo(:, 2,38,13) = (/ &\n     &3.2031e+02_rb,2.4031e+02_rb,1.6035e+02_rb,8.4610e+01_rb,2.6154e+01_rb/)\n      kbo(:, 3,38,13) = (/ &\n     &4.5000e+02_rb,3.3758e+02_rb,2.2517e+02_rb,1.1439e+02_rb,2.5377e+01_rb/)\n      kbo(:, 4,38,13) = (/ &\n     &6.1626e+02_rb,4.6228e+02_rb,3.0831e+02_rb,1.5466e+02_rb,2.4449e+01_rb/)\n      kbo(:, 5,38,13) = (/ &\n     &8.2391e+02_rb,6.1802e+02_rb,4.1215e+02_rb,2.0635e+02_rb,2.3228e+01_rb/)\n      kbo(:, 1,39,13) = (/ &\n     &2.3401e+02_rb,1.7560e+02_rb,1.1754e+02_rb,6.7259e+01_rb,2.7265e+01_rb/)\n      kbo(:, 2,39,13) = (/ &\n     &3.4141e+02_rb,2.5613e+02_rb,1.7089e+02_rb,8.9638e+01_rb,2.6464e+01_rb/)\n      kbo(:, 3,39,13) = (/ &\n     &4.8579e+02_rb,3.6442e+02_rb,2.4308e+02_rb,1.2315e+02_rb,2.5687e+01_rb/)\n      kbo(:, 4,39,13) = (/ &\n     &6.7297e+02_rb,5.0482e+02_rb,3.3668e+02_rb,1.6875e+02_rb,2.4654e+01_rb/)\n      kbo(:, 5,39,13) = (/ &\n     &9.0884e+02_rb,6.8173e+02_rb,4.5462e+02_rb,2.2758e+02_rb,2.3620e+01_rb/)\n      kbo(:, 1,40,13) = (/ &\n     &2.2310e+02_rb,1.6742e+02_rb,1.1224e+02_rb,6.5625e+01_rb,2.7589e+01_rb/)\n      kbo(:, 2,40,13) = (/ &\n     &3.3051e+02_rb,2.4796e+02_rb,1.6546e+02_rb,8.7436e+01_rb,2.6816e+01_rb/)\n      kbo(:, 3,40,13) = (/ &\n     &4.7705e+02_rb,3.5787e+02_rb,2.3871e+02_rb,1.2127e+02_rb,2.6052e+01_rb/)\n      kbo(:, 4,40,13) = (/ &\n     &6.7033e+02_rb,5.0284e+02_rb,3.3536e+02_rb,1.6816e+02_rb,2.5038e+01_rb/)\n      kbo(:, 5,40,13) = (/ &\n     &9.1616e+02_rb,6.8722e+02_rb,4.5828e+02_rb,2.2941e+02_rb,2.4007e+01_rb/)\n      kbo(:, 1,41,13) = (/ &\n     &2.1165e+02_rb,1.5884e+02_rb,1.0674e+02_rb,6.4017e+01_rb,2.7888e+01_rb/)\n      kbo(:, 2,41,13) = (/ &\n     &3.1819e+02_rb,2.3873e+02_rb,1.5932e+02_rb,8.5003e+01_rb,2.7118e+01_rb/)\n      kbo(:, 3,41,13) = (/ &\n     &4.6591e+02_rb,3.4951e+02_rb,2.3314e+02_rb,1.1880e+02_rb,2.6396e+01_rb/)\n      kbo(:, 4,41,13) = (/ &\n     &6.6349e+02_rb,4.9771e+02_rb,3.3195e+02_rb,1.6656e+02_rb,2.5465e+01_rb/)\n      kbo(:, 5,41,13) = (/ &\n     &9.1847e+02_rb,6.8895e+02_rb,4.5944e+02_rb,2.3000e+02_rb,2.4337e+01_rb/)\n      kbo(:, 1,42,13) = (/ &\n     &2.0335e+02_rb,1.5260e+02_rb,1.0282e+02_rb,6.3023e+01_rb,2.8153e+01_rb/)\n      kbo(:, 2,42,13) = (/ &\n     &3.1003e+02_rb,2.3260e+02_rb,1.5524e+02_rb,8.3539e+01_rb,2.7395e+01_rb/)\n      kbo(:, 3,42,13) = (/ &\n     &4.6024e+02_rb,3.4526e+02_rb,2.3031e+02_rb,1.1765e+02_rb,2.6718e+01_rb/)\n      kbo(:, 4,42,13) = (/ &\n     &6.6381e+02_rb,4.9795e+02_rb,3.3210e+02_rb,1.6673e+02_rb,2.5846e+01_rb/)\n      kbo(:, 5,42,13) = (/ &\n     &9.3041e+02_rb,6.9790e+02_rb,4.6540e+02_rb,2.3298e+02_rb,2.4647e+01_rb/)\n      kbo(:, 1,43,13) = (/ &\n     &1.9244e+02_rb,1.4443e+02_rb,9.7744e+01_rb,6.1682e+01_rb,2.8431e+01_rb/)\n      kbo(:, 2,43,13) = (/ &\n     &2.9785e+02_rb,2.2347e+02_rb,1.4920e+02_rb,8.1276e+01_rb,2.7711e+01_rb/)\n      kbo(:, 3,43,13) = (/ &\n     &4.4872e+02_rb,3.3663e+02_rb,2.2458e+02_rb,1.1517e+02_rb,2.7073e+01_rb/)\n      kbo(:, 4,43,13) = (/ &\n     &6.5646e+02_rb,4.9243e+02_rb,3.2842e+02_rb,1.6500e+02_rb,2.6290e+01_rb/)\n      kbo(:, 5,43,13) = (/ &\n     &9.3268e+02_rb,6.9961e+02_rb,4.6654e+02_rb,2.3355e+02_rb,2.5000e+01_rb/)\n      kbo(:, 1,44,13) = (/ &\n     &1.8195e+02_rb,1.3656e+02_rb,9.2955e+01_rb,6.0559e+01_rb,2.8683e+01_rb/)\n      kbo(:, 2,44,13) = (/ &\n     &2.8673e+02_rb,2.1514e+02_rb,1.4371e+02_rb,7.9343e+01_rb,2.8022e+01_rb/)\n      kbo(:, 3,44,13) = (/ &\n     &4.3845e+02_rb,3.2893e+02_rb,2.1944e+02_rb,1.1299e+02_rb,2.7430e+01_rb/)\n      kbo(:, 4,44,13) = (/ &\n     &6.5082e+02_rb,4.8820e+02_rb,3.2560e+02_rb,1.6371e+02_rb,2.6724e+01_rb/)\n      kbo(:, 5,44,13) = (/ &\n     &9.3739e+02_rb,7.0313e+02_rb,4.6889e+02_rb,2.3472e+02_rb,2.5409e+01_rb/)\n      kbo(:, 1,45,13) = (/ &\n     &1.7490e+02_rb,1.3128e+02_rb,8.9889e+01_rb,6.0087e+01_rb,2.8892e+01_rb/)\n      kbo(:, 2,45,13) = (/ &\n     &2.8115e+02_rb,2.1096e+02_rb,1.4101e+02_rb,7.8697e+01_rb,2.8297e+01_rb/)\n      kbo(:, 3,45,13) = (/ &\n     &4.3612e+02_rb,3.2718e+02_rb,2.1828e+02_rb,1.1266e+02_rb,2.7806e+01_rb/)\n      kbo(:, 4,45,13) = (/ &\n     &6.5668e+02_rb,4.9260e+02_rb,3.2854e+02_rb,1.6526e+02_rb,2.7097e+01_rb/)\n      kbo(:, 5,45,13) = (/ &\n     &9.5876e+02_rb,7.1917e+02_rb,4.7958e+02_rb,2.4006e+02_rb,2.5776e+01_rb/)\n      kbo(:, 1,46,13) = (/ &\n     &1.6728e+02_rb,1.2556e+02_rb,8.6592e+01_rb,5.9568e+01_rb,2.9082e+01_rb/)\n      kbo(:, 2,46,13) = (/ &\n     &2.7457e+02_rb,2.0602e+02_rb,1.3784e+02_rb,7.7967e+01_rb,2.8545e+01_rb/)\n      kbo(:, 3,46,13) = (/ &\n     &4.3313e+02_rb,3.2494e+02_rb,2.1678e+02_rb,1.1222e+02_rb,2.8139e+01_rb/)\n      kbo(:, 4,46,13) = (/ &\n     &6.6163e+02_rb,4.9632e+02_rb,3.3103e+02_rb,1.6658e+02_rb,2.7449e+01_rb/)\n      kbo(:, 5,46,13) = (/ &\n     &9.8004e+02_rb,7.3512e+02_rb,4.9021e+02_rb,2.4539e+02_rb,2.6122e+01_rb/)\n      kbo(:, 1,47,13) = (/ &\n     &1.5431e+02_rb,1.1585e+02_rb,8.0931e+01_rb,5.8232e+01_rb,2.9262e+01_rb/)\n      kbo(:, 2,47,13) = (/ &\n     &2.5885e+02_rb,1.9423e+02_rb,1.3026e+02_rb,7.5643e+01_rb,2.8798e+01_rb/)\n      kbo(:, 3,47,13) = (/ &\n     &4.1682e+02_rb,3.1271e+02_rb,2.0862e+02_rb,1.0877e+02_rb,2.8446e+01_rb/)\n      kbo(:, 4,47,13) = (/ &\n     &6.4684e+02_rb,4.8523e+02_rb,3.2363e+02_rb,1.6308e+02_rb,2.7814e+01_rb/)\n      kbo(:, 5,47,13) = (/ &\n     &9.7279e+02_rb,7.2968e+02_rb,4.8659e+02_rb,2.4359e+02_rb,2.6548e+01_rb/)\n      kbo(:, 1,48,13) = (/ &\n     &1.4538e+02_rb,1.0915e+02_rb,7.7289e+01_rb,5.7662e+01_rb,2.9351e+01_rb/)\n      kbo(:, 2,48,13) = (/ &\n     &2.4931e+02_rb,1.8708e+02_rb,1.2577e+02_rb,7.4691e+01_rb,2.8998e+01_rb/)\n      kbo(:, 3,48,13) = (/ &\n     &4.1014e+02_rb,3.0770e+02_rb,2.0528e+02_rb,1.0766e+02_rb,2.8726e+01_rb/)\n      kbo(:, 4,48,13) = (/ &\n     &6.4756e+02_rb,4.8577e+02_rb,3.2399e+02_rb,1.6338e+02_rb,2.8115e+01_rb/)\n      kbo(:, 5,48,13) = (/ &\n     &9.8831e+02_rb,7.4133e+02_rb,4.9436e+02_rb,2.4748e+02_rb,2.6944e+01_rb/)\n      kbo(:, 1,49,13) = (/ &\n     &1.4120e+02_rb,1.0604e+02_rb,7.5941e+01_rb,5.8065e+01_rb,2.9380e+01_rb/)\n      kbo(:, 2,49,13) = (/ &\n     &2.4862e+02_rb,1.8657e+02_rb,1.2564e+02_rb,7.5519e+01_rb,2.9233e+01_rb/)\n      kbo(:, 3,49,13) = (/ &\n     &4.1758e+02_rb,3.1328e+02_rb,2.0900e+02_rb,1.0986e+02_rb,2.8989e+01_rb/)\n      kbo(:, 4,49,13) = (/ &\n     &6.7203e+02_rb,5.0412e+02_rb,3.3622e+02_rb,1.6950e+02_rb,2.8333e+01_rb/)\n      kbo(:, 5,49,13) = (/ &\n     &1.0415e+03_rb,7.8124e+02_rb,5.2096e+02_rb,2.6077e+02_rb,2.7256e+01_rb/)\n      kbo(:, 1,50,13) = (/ &\n     &1.3115e+02_rb,9.8605e+01_rb,7.2172e+01_rb,5.7503e+01_rb,2.9363e+01_rb/)\n      kbo(:, 2,50,13) = (/ &\n     &2.3790e+02_rb,1.7854e+02_rb,1.2070e+02_rb,7.4407e+01_rb,2.9364e+01_rb/)\n      kbo(:, 3,50,13) = (/ &\n     &4.0744e+02_rb,3.0568e+02_rb,2.0394e+02_rb,1.0804e+02_rb,2.9149e+01_rb/)\n      kbo(:, 4,50,13) = (/ &\n     &6.6872e+02_rb,5.0163e+02_rb,3.3456e+02_rb,1.6889e+02_rb,2.8599e+01_rb/)\n      kbo(:, 5,50,13) = (/ &\n     &1.0519e+03_rb,7.8905e+02_rb,5.2618e+02_rb,2.6337e+02_rb,2.7606e+01_rb/)\n      kbo(:, 1,51,13) = (/ &\n     &1.1865e+02_rb,8.9445e+01_rb,6.7680e+01_rb,5.6587e+01_rb,2.9290e+01_rb/)\n      kbo(:, 2,51,13) = (/ &\n     &2.2216e+02_rb,1.6674e+02_rb,1.1346e+02_rb,7.2415e+01_rb,2.9435e+01_rb/)\n      kbo(:, 3,51,13) = (/ &\n     &3.8895e+02_rb,2.9182e+02_rb,1.9472e+02_rb,1.0439e+02_rb,2.9207e+01_rb/)\n      kbo(:, 4,51,13) = (/ &\n     &6.5048e+02_rb,4.8795e+02_rb,3.2544e+02_rb,1.6473e+02_rb,2.8819e+01_rb/)\n      kbo(:, 5,51,13) = (/ &\n     &1.0401e+03_rb,7.8020e+02_rb,5.2027e+02_rb,2.6042e+02_rb,2.7943e+01_rb/)\n      kbo(:, 1,52,13) = (/ &\n     &1.0900e+02_rb,8.2517e+01_rb,6.4683e+01_rb,5.6184e+01_rb,2.9159e+01_rb/)\n      kbo(:, 2,52,13) = (/ &\n     &2.1154e+02_rb,1.5879e+02_rb,1.0876e+02_rb,7.1453e+01_rb,2.9466e+01_rb/)\n      kbo(:, 3,52,13) = (/ &\n     &3.8014e+02_rb,2.8522e+02_rb,1.9038e+02_rb,1.0306e+02_rb,2.9320e+01_rb/)\n      kbo(:, 4,52,13) = (/ &\n     &6.4723e+02_rb,4.8552e+02_rb,3.2381e+02_rb,1.6425e+02_rb,2.8993e+01_rb/)\n      kbo(:, 5,52,13) = (/ &\n     &1.0537e+03_rb,7.9041e+02_rb,5.2708e+02_rb,2.6382e+02_rb,2.8208e+01_rb/)\n      kbo(:, 1,53,13) = (/ &\n     &1.0283e+02_rb,7.8224e+01_rb,6.3272e+01_rb,5.6425e+01_rb,2.8966e+01_rb/)\n      kbo(:, 2,53,13) = (/ &\n     &2.0760e+02_rb,1.5584e+02_rb,1.0728e+02_rb,7.1858e+01_rb,2.9467e+01_rb/)\n      kbo(:, 3,53,13) = (/ &\n     &3.8429e+02_rb,2.8834e+02_rb,1.9251e+02_rb,1.0470e+02_rb,2.9381e+01_rb/)\n      kbo(:, 4,53,13) = (/ &\n     &6.6697e+02_rb,5.0033e+02_rb,3.3369e+02_rb,1.6926e+02_rb,2.9144e+01_rb/)\n      kbo(:, 5,53,13) = (/ &\n     &1.1061e+03_rb,8.2971e+02_rb,5.5328e+02_rb,2.7691e+02_rb,2.8402e+01_rb/)\n      kbo(:, 1,54,13) = (/ &\n     &8.4612e+01_rb,6.5337e+01_rb,5.7223e+01_rb,5.4259e+01_rb,2.8744e+01_rb/)\n      kbo(:, 2,54,13) = (/ &\n     &1.7755e+02_rb,1.3329e+02_rb,9.3740e+01_rb,6.7487e+01_rb,2.9376e+01_rb/)\n      kbo(:, 3,54,13) = (/ &\n     &3.3886e+02_rb,2.5427e+02_rb,1.7017e+02_rb,9.5886e+01_rb,2.9463e+01_rb/)\n      kbo(:, 4,54,13) = (/ &\n     &6.0067e+02_rb,4.5060e+02_rb,3.0055e+02_rb,1.5369e+02_rb,2.9315e+01_rb/)\n      kbo(:, 5,54,13) = (/ &\n     &1.0127e+03_rb,7.5962e+02_rb,5.0655e+02_rb,2.5368e+02_rb,2.8705e+01_rb/)\n      kbo(:, 1,55,13) = (/ &\n     &6.3387e+01_rb,5.0935e+01_rb,5.0168e+01_rb,5.0996e+01_rb,2.8487e+01_rb/)\n      kbo(:, 2,55,13) = (/ &\n     &1.3831e+02_rb,1.0410e+02_rb,7.7011e+01_rb,6.1667e+01_rb,2.9169e+01_rb/)\n      kbo(:, 3,55,13) = (/ &\n     &2.7282e+02_rb,2.0475e+02_rb,1.3822e+02_rb,8.3541e+01_rb,2.9521e+01_rb/)\n      kbo(:, 4,55,13) = (/ &\n     &4.9509e+02_rb,3.7143e+02_rb,2.4779e+02_rb,1.2925e+02_rb,2.9355e+01_rb/)\n      kbo(:, 5,55,13) = (/ &\n     &8.4764e+02_rb,6.3583e+02_rb,4.2402e+02_rb,2.1299e+02_rb,2.9013e+01_rb/)\n      kbo(:, 1,56,13) = (/ &\n     &4.6914e+01_rb,4.0782e+01_rb,4.5015e+01_rb,4.7952e+01_rb,2.8186e+01_rb/)\n      kbo(:, 2,56,13) = (/ &\n     &1.0661e+02_rb,8.1027e+01_rb,6.4934e+01_rb,5.7313e+01_rb,2.9008e+01_rb/)\n      kbo(:, 3,56,13) = (/ &\n     &2.1790e+02_rb,1.6356e+02_rb,1.1223e+02_rb,7.3951e+01_rb,2.9460e+01_rb/)\n      kbo(:, 4,56,13) = (/ &\n     &4.0585e+02_rb,3.0451e+02_rb,2.0325e+02_rb,1.0953e+02_rb,2.9455e+01_rb/)\n      kbo(:, 5,56,13) = (/ &\n     &7.0659e+02_rb,5.3004e+02_rb,3.5349e+02_rb,1.7883e+02_rb,2.9213e+01_rb/)\n      kbo(:, 1,57,13) = (/ &\n     &3.4230e+01_rb,3.3758e+01_rb,4.1164e+01_rb,4.5068e+01_rb,2.7829e+01_rb/)\n      kbo(:, 2,57,13) = (/ &\n     &8.1249e+01_rb,6.3007e+01_rb,5.6061e+01_rb,5.3761e+01_rb,2.8811e+01_rb/)\n      kbo(:, 3,57,13) = (/ &\n     &1.7223e+02_rb,1.2931e+02_rb,9.1411e+01_rb,6.6606e+01_rb,2.9335e+01_rb/)\n      kbo(:, 4,57,13) = (/ &\n     &3.3026e+02_rb,2.4783e+02_rb,1.6598e+02_rb,9.4193e+01_rb,2.9500e+01_rb/)\n      kbo(:, 5,57,13) = (/ &\n     &5.8636e+02_rb,4.3987e+02_rb,2.9340e+02_rb,1.5031e+02_rb,2.9335e+01_rb/)\n      kbo(:, 1,58,13) = (/ &\n     &6.5933e+00_rb,9.4893e+00_rb,1.6089e+01_rb,2.5300e+01_rb,2.7425e+01_rb/)\n      kbo(:, 2,58,13) = (/ &\n     &1.6360e+01_rb,1.6224e+01_rb,2.0957e+01_rb,3.0182e+01_rb,2.8583e+01_rb/)\n      kbo(:, 3,58,13) = (/ &\n     &3.5957e+01_rb,3.3123e+01_rb,3.1853e+01_rb,3.6291e+01_rb,2.9233e+01_rb/)\n      kbo(:, 4,58,13) = (/ &\n     &7.1076e+01_rb,6.5212e+01_rb,5.6746e+01_rb,4.8699e+01_rb,2.9472e+01_rb/)\n      kbo(:, 5,58,13) = (/ &\n     &1.2897e+02_rb,1.1828e+02_rb,1.0149e+02_rb,7.4519e+01_rb,2.9400e+01_rb/)\n      kbo(:, 1,59,13) = (/ &\n     &6.7458e+00_rb,1.2021e+01_rb,2.0178e+01_rb,2.9391e+01_rb,2.7237e+01_rb/)\n      kbo(:, 2,59,13) = (/ &\n     &1.7109e+01_rb,1.8183e+01_rb,2.5274e+01_rb,3.4440e+01_rb,2.8519e+01_rb/)\n      kbo(:, 3,59,13) = (/ &\n     &3.8233e+01_rb,3.4158e+01_rb,3.4619e+01_rb,4.0204e+01_rb,2.9240e+01_rb/)\n      kbo(:, 4,59,13) = (/ &\n     &7.6647e+01_rb,6.6998e+01_rb,5.6073e+01_rb,4.9489e+01_rb,2.9509e+01_rb/)\n      kbo(:, 5,59,13) = (/ &\n     &1.4043e+02_rb,1.2268e+02_rb,9.8230e+01_rb,6.8889e+01_rb,2.9402e+01_rb/)\n      kbo(:, 1,13,14) = (/ &\n     &2.1776e+03_rb,1.6333e+03_rb,1.0891e+03_rb,5.4478e+02_rb,7.3262e+00_rb/)\n      kbo(:, 2,13,14) = (/ &\n     &3.1101e+03_rb,2.3327e+03_rb,1.5553e+03_rb,7.7788e+02_rb,7.3124e+00_rb/)\n      kbo(:, 3,13,14) = (/ &\n     &4.2249e+03_rb,3.1687e+03_rb,2.1126e+03_rb,1.0565e+03_rb,7.2480e+00_rb/)\n      kbo(:, 4,13,14) = (/ &\n     &5.5118e+03_rb,4.1339e+03_rb,2.7561e+03_rb,1.3783e+03_rb,7.1568e+00_rb/)\n      kbo(:, 5,13,14) = (/ &\n     &6.9506e+03_rb,5.2131e+03_rb,3.4755e+03_rb,1.7380e+03_rb,7.0367e+00_rb/)\n      kbo(:, 1,14,14) = (/ &\n     &1.4496e+03_rb,1.0873e+03_rb,7.2501e+02_rb,3.6272e+02_rb,8.3339e+00_rb/)\n      kbo(:, 2,14,14) = (/ &\n     &2.0734e+03_rb,1.5551e+03_rb,1.0369e+03_rb,5.1863e+02_rb,8.2705e+00_rb/)\n      kbo(:, 3,14,14) = (/ &\n     &2.8238e+03_rb,2.1179e+03_rb,1.4121e+03_rb,7.0623e+02_rb,8.1703e+00_rb/)\n      kbo(:, 4,14,14) = (/ &\n     &3.6841e+03_rb,2.7632e+03_rb,1.8422e+03_rb,9.2131e+02_rb,8.0387e+00_rb/)\n      kbo(:, 5,14,14) = (/ &\n     &4.6457e+03_rb,3.4843e+03_rb,2.3230e+03_rb,1.1617e+03_rb,7.8896e+00_rb/)\n      kbo(:, 1,15,14) = (/ &\n     &9.9772e+02_rb,7.4839e+02_rb,4.9906e+02_rb,2.4972e+02_rb,9.4242e+00_rb/)\n      kbo(:, 2,15,14) = (/ &\n     &1.4271e+03_rb,1.0704e+03_rb,7.1374e+02_rb,3.5707e+02_rb,9.3124e+00_rb/)\n      kbo(:, 3,15,14) = (/ &\n     &1.9364e+03_rb,1.4524e+03_rb,9.6841e+02_rb,4.8440e+02_rb,9.1590e+00_rb/)\n      kbo(:, 4,15,14) = (/ &\n     &2.5268e+03_rb,1.8952e+03_rb,1.2636e+03_rb,6.3198e+02_rb,8.9837e+00_rb/)\n      kbo(:, 5,15,14) = (/ &\n     &3.1888e+03_rb,2.3917e+03_rb,1.5946e+03_rb,7.9748e+02_rb,8.7913e+00_rb/)\n      kbo(:, 1,16,14) = (/ &\n     &8.2535e+02_rb,6.1910e+02_rb,4.1286e+02_rb,2.0662e+02_rb,1.0617e+01_rb/)\n      kbo(:, 2,16,14) = (/ &\n     &1.1765e+03_rb,8.8250e+02_rb,5.8845e+02_rb,2.9441e+02_rb,1.0441e+01_rb/)\n      kbo(:, 3,16,14) = (/ &\n     &1.5988e+03_rb,1.1992e+03_rb,7.9956e+02_rb,3.9995e+02_rb,1.0240e+01_rb/)\n      kbo(:, 4,16,14) = (/ &\n     &2.0853e+03_rb,1.5640e+03_rb,1.0428e+03_rb,5.2160e+02_rb,1.0022e+01_rb/)\n      kbo(:, 5,16,14) = (/ &\n     &2.6260e+03_rb,1.9696e+03_rb,1.3132e+03_rb,6.5679e+02_rb,9.7853e+00_rb/)\n      kbo(:, 1,17,14) = (/ &\n     &7.1446e+02_rb,5.3593e+02_rb,3.5740e+02_rb,1.7888e+02_rb,1.1902e+01_rb/)\n      kbo(:, 2,17,14) = (/ &\n     &1.0170e+03_rb,7.6281e+02_rb,5.0866e+02_rb,2.5450e+02_rb,1.1678e+01_rb/)\n      kbo(:, 3,17,14) = (/ &\n     &1.3782e+03_rb,1.0338e+03_rb,6.8929e+02_rb,3.4482e+02_rb,1.1434e+01_rb/)\n      kbo(:, 4,17,14) = (/ &\n     &1.7913e+03_rb,1.3436e+03_rb,8.9585e+02_rb,4.4810e+02_rb,1.1160e+01_rb/)\n      kbo(:, 5,17,14) = (/ &\n     &2.2531e+03_rb,1.6899e+03_rb,1.1267e+03_rb,5.6354e+02_rb,1.0872e+01_rb/)\n      kbo(:, 1,18,14) = (/ &\n     &6.3627e+02_rb,4.7728e+02_rb,3.1830e+02_rb,1.5932e+02_rb,1.3306e+01_rb/)\n      kbo(:, 2,18,14) = (/ &\n     &9.0279e+02_rb,6.7718e+02_rb,4.5157e+02_rb,2.2596e+02_rb,1.3021e+01_rb/)\n      kbo(:, 3,18,14) = (/ &\n     &1.2176e+03_rb,9.1326e+02_rb,6.0896e+02_rb,3.0466e+02_rb,1.2705e+01_rb/)\n      kbo(:, 4,18,14) = (/ &\n     &1.5793e+03_rb,1.1846e+03_rb,7.8983e+02_rb,3.9509e+02_rb,1.2374e+01_rb/)\n      kbo(:, 5,18,14) = (/ &\n     &1.9821e+03_rb,1.4867e+03_rb,9.9125e+02_rb,4.9580e+02_rb,1.2038e+01_rb/)\n      kbo(:, 1,19,14) = (/ &\n     &5.5701e+02_rb,4.1784e+02_rb,2.7868e+02_rb,1.3951e+02_rb,1.4835e+01_rb/)\n      kbo(:, 2,19,14) = (/ &\n     &7.8555e+02_rb,5.8924e+02_rb,3.9294e+02_rb,1.9665e+02_rb,1.4471e+01_rb/)\n      kbo(:, 3,19,14) = (/ &\n     &1.0565e+03_rb,7.9246e+02_rb,5.2842e+02_rb,2.6438e+02_rb,1.4088e+01_rb/)\n      kbo(:, 4,19,14) = (/ &\n     &1.3666e+03_rb,1.0251e+03_rb,6.8348e+02_rb,3.4191e+02_rb,1.3700e+01_rb/)\n      kbo(:, 5,19,14) = (/ &\n     &1.7097e+03_rb,1.2824e+03_rb,8.5504e+02_rb,4.2769e+02_rb,1.3330e+01_rb/)\n      kbo(:, 1,20,14) = (/ &\n     &5.2902e+02_rb,3.9685e+02_rb,2.6468e+02_rb,1.3251e+02_rb,1.6461e+01_rb/)\n      kbo(:, 2,20,14) = (/ &\n     &7.4221e+02_rb,5.5674e+02_rb,3.7128e+02_rb,1.8581e+02_rb,1.6028e+01_rb/)\n      kbo(:, 3,20,14) = (/ &\n     &9.9413e+02_rb,7.4568e+02_rb,4.9723e+02_rb,2.4879e+02_rb,1.5588e+01_rb/)\n      kbo(:, 4,20,14) = (/ &\n     &1.2802e+03_rb,9.6022e+02_rb,6.4026e+02_rb,3.2030e+02_rb,1.5170e+01_rb/)\n      kbo(:, 5,20,14) = (/ &\n     &1.5959e+03_rb,1.1970e+03_rb,7.9814e+02_rb,3.9924e+02_rb,1.4766e+01_rb/)\n      kbo(:, 1,21,14) = (/ &\n     &5.1643e+02_rb,3.8740e+02_rb,2.5838e+02_rb,1.2935e+02_rb,1.8266e+01_rb/)\n      kbo(:, 2,21,14) = (/ &\n     &7.2079e+02_rb,5.4067e+02_rb,3.6056e+02_rb,1.8045e+02_rb,1.7763e+01_rb/)\n      kbo(:, 3,21,14) = (/ &\n     &9.5965e+02_rb,7.1982e+02_rb,4.7999e+02_rb,2.4017e+02_rb,1.7272e+01_rb/)\n      kbo(:, 4,21,14) = (/ &\n     &1.2302e+03_rb,9.2274e+02_rb,6.1527e+02_rb,3.0781e+02_rb,1.6803e+01_rb/)\n      kbo(:, 5,21,14) = (/ &\n     &1.5280e+03_rb,1.1461e+03_rb,7.6416e+02_rb,3.8225e+02_rb,1.6348e+01_rb/)\n      kbo(:, 1,22,14) = (/ &\n     &5.2623e+02_rb,3.9475e+02_rb,2.6327e+02_rb,1.3179e+02_rb,2.0243e+01_rb/)\n      kbo(:, 2,22,14) = (/ &\n     &7.2644e+02_rb,5.4491e+02_rb,3.6339e+02_rb,1.8186e+02_rb,1.9664e+01_rb/)\n      kbo(:, 3,22,14) = (/ &\n     &9.5925e+02_rb,7.1952e+02_rb,4.7979e+02_rb,2.4006e+02_rb,1.9116e+01_rb/)\n      kbo(:, 4,22,14) = (/ &\n     &1.2211e+03_rb,9.1590e+02_rb,6.1071e+02_rb,3.0553e+02_rb,1.8593e+01_rb/)\n      kbo(:, 5,22,14) = (/ &\n     &1.5078e+03_rb,1.1310e+03_rb,7.5409e+02_rb,3.7722e+02_rb,1.8080e+01_rb/)\n      kbo(:, 1,23,14) = (/ &\n     &5.3158e+02_rb,3.9876e+02_rb,2.6595e+02_rb,1.3313e+02_rb,2.2446e+01_rb/)\n      kbo(:, 2,23,14) = (/ &\n     &7.2667e+02_rb,5.4508e+02_rb,3.6349e+02_rb,1.8191e+02_rb,2.1789e+01_rb/)\n      kbo(:, 3,23,14) = (/ &\n     &9.5159e+02_rb,7.1378e+02_rb,4.7596e+02_rb,2.3814e+02_rb,2.1156e+01_rb/)\n      kbo(:, 4,23,14) = (/ &\n     &1.2042e+03_rb,9.0323e+02_rb,6.0227e+02_rb,3.0131e+02_rb,2.0541e+01_rb/)\n      kbo(:, 5,23,14) = (/ &\n     &1.4791e+03_rb,1.1094e+03_rb,7.3972e+02_rb,3.7004e+02_rb,1.9936e+01_rb/)\n      kbo(:, 1,24,14) = (/ &\n     &5.2674e+02_rb,3.9513e+02_rb,2.6351e+02_rb,1.3189e+02_rb,2.4861e+01_rb/)\n      kbo(:, 2,24,14) = (/ &\n     &7.1320e+02_rb,5.3497e+02_rb,3.5675e+02_rb,1.7852e+02_rb,2.4105e+01_rb/)\n      kbo(:, 3,24,14) = (/ &\n     &9.2799e+02_rb,6.9608e+02_rb,4.6416e+02_rb,2.3224e+02_rb,2.3357e+01_rb/)\n      kbo(:, 4,24,14) = (/ &\n     &1.1676e+03_rb,8.7581e+02_rb,5.8399e+02_rb,2.9218e+02_rb,2.2617e+01_rb/)\n      kbo(:, 5,24,14) = (/ &\n     &1.4298e+03_rb,1.0724e+03_rb,7.1508e+02_rb,3.5774e+02_rb,2.1888e+01_rb/)\n      kbo(:, 1,25,14) = (/ &\n     &5.2185e+02_rb,3.9145e+02_rb,2.6105e+02_rb,1.3066e+02_rb,2.7396e+01_rb/)\n      kbo(:, 2,25,14) = (/ &\n     &7.0140e+02_rb,5.2612e+02_rb,3.5084e+02_rb,1.7556e+02_rb,2.6509e+01_rb/)\n      kbo(:, 3,25,14) = (/ &\n     &9.0713e+02_rb,6.8043e+02_rb,4.5373e+02_rb,2.2703e+02_rb,2.5618e+01_rb/)\n      kbo(:, 4,25,14) = (/ &\n     &1.1371e+03_rb,8.5288e+02_rb,5.6870e+02_rb,2.8453e+02_rb,2.4730e+01_rb/)\n      kbo(:, 5,25,14) = (/ &\n     &1.3891e+03_rb,1.0419e+03_rb,6.9474e+02_rb,3.4757e+02_rb,2.3860e+01_rb/)\n      kbo(:, 1,26,14) = (/ &\n     &5.2251e+02_rb,3.9195e+02_rb,2.6138e+02_rb,1.3085e+02_rb,2.9927e+01_rb/)\n      kbo(:, 2,26,14) = (/ &\n     &6.9730e+02_rb,5.2305e+02_rb,3.4880e+02_rb,1.7455e+02_rb,2.8877e+01_rb/)\n      kbo(:, 3,26,14) = (/ &\n     &8.9735e+02_rb,6.7309e+02_rb,4.4884e+02_rb,2.2459e+02_rb,2.7820e+01_rb/)\n      kbo(:, 4,26,14) = (/ &\n     &1.1213e+03_rb,8.4105e+02_rb,5.6081e+02_rb,2.8058e+02_rb,2.6772e+01_rb/)\n      kbo(:, 5,26,14) = (/ &\n     &1.3665e+03_rb,1.0250e+03_rb,6.8346e+02_rb,3.4192e+02_rb,2.5741e+01_rb/)\n      kbo(:, 1,27,14) = (/ &\n     &5.3834e+02_rb,4.0383e+02_rb,2.6931e+02_rb,1.3510e+02_rb,3.2357e+01_rb/)\n      kbo(:, 2,27,14) = (/ &\n     &7.1439e+02_rb,5.3587e+02_rb,3.5735e+02_rb,1.7883e+02_rb,3.1116e+01_rb/)\n      kbo(:, 3,27,14) = (/ &\n     &9.1626e+02_rb,6.8728e+02_rb,4.5830e+02_rb,2.2932e+02_rb,2.9881e+01_rb/)\n      kbo(:, 4,27,14) = (/ &\n     &1.1424e+03_rb,8.5692e+02_rb,5.7140e+02_rb,2.8587e+02_rb,2.8666e+01_rb/)\n      kbo(:, 5,27,14) = (/ &\n     &1.3901e+03_rb,1.0427e+03_rb,6.9525e+02_rb,3.4781e+02_rb,2.7467e+01_rb/)\n      kbo(:, 1,28,14) = (/ &\n     &5.6592e+02_rb,4.2451e+02_rb,2.8310e+02_rb,1.4237e+02_rb,3.4583e+01_rb/)\n      kbo(:, 2,28,14) = (/ &\n     &7.4785e+02_rb,5.6096e+02_rb,3.7408e+02_rb,1.8720e+02_rb,3.3140e+01_rb/)\n      kbo(:, 3,28,14) = (/ &\n     &9.5690e+02_rb,7.1776e+02_rb,4.7862e+02_rb,2.3947e+02_rb,3.1724e+01_rb/)\n      kbo(:, 4,28,14) = (/ &\n     &1.1915e+03_rb,8.9371e+02_rb,5.9592e+02_rb,2.9814e+02_rb,3.0340e+01_rb/)\n      kbo(:, 5,28,14) = (/ &\n     &1.4480e+03_rb,1.0861e+03_rb,7.2421e+02_rb,3.6229e+02_rb,2.8988e+01_rb/)\n      kbo(:, 1,29,14) = (/ &\n     &6.3031e+02_rb,4.7280e+02_rb,3.1529e+02_rb,1.5867e+02_rb,3.6546e+01_rb/)\n      kbo(:, 2,29,14) = (/ &\n     &8.3056e+02_rb,6.2300e+02_rb,4.1543e+02_rb,2.0788e+02_rb,3.4912e+01_rb/)\n      kbo(:, 3,29,14) = (/ &\n     &1.0608e+03_rb,7.9566e+02_rb,5.3055e+02_rb,2.6544e+02_rb,3.3320e+01_rb/)\n      kbo(:, 4,29,14) = (/ &\n     &1.3185e+03_rb,9.8899e+02_rb,6.5945e+02_rb,3.2990e+02_rb,3.1769e+01_rb/)\n      kbo(:, 5,29,14) = (/ &\n     &1.6020e+03_rb,1.2016e+03_rb,8.0116e+02_rb,4.0076e+02_rb,3.0274e+01_rb/)\n      kbo(:, 1,30,14) = (/ &\n     &7.1878e+02_rb,5.3916e+02_rb,3.5953e+02_rb,1.8082e+02_rb,3.8231e+01_rb/)\n      kbo(:, 2,30,14) = (/ &\n     &9.4502e+02_rb,7.0884e+02_rb,4.7266e+02_rb,2.3650e+02_rb,3.6421e+01_rb/)\n      kbo(:, 3,30,14) = (/ &\n     &1.2048e+03_rb,9.0370e+02_rb,6.0258e+02_rb,3.0145e+02_rb,3.4660e+01_rb/)\n      kbo(:, 4,30,14) = (/ &\n     &1.4966e+03_rb,1.1225e+03_rb,7.4846e+02_rb,3.7440e+02_rb,3.2964e+01_rb/)\n      kbo(:, 5,30,14) = (/ &\n     &1.8180e+03_rb,1.3636e+03_rb,9.0918e+02_rb,4.5477e+02_rb,3.1338e+01_rb/)\n      kbo(:, 1,31,14) = (/ &\n     &8.6352e+02_rb,6.4770e+02_rb,4.3189e+02_rb,2.1681e+02_rb,3.9626e+01_rb/)\n      kbo(:, 2,31,14) = (/ &\n     &1.1338e+03_rb,8.5039e+02_rb,5.6702e+02_rb,2.8366e+02_rb,3.7649e+01_rb/)\n      kbo(:, 3,31,14) = (/ &\n     &1.4436e+03_rb,1.0827e+03_rb,7.2193e+02_rb,3.6112e+02_rb,3.5738e+01_rb/)\n      kbo(:, 4,31,14) = (/ &\n     &1.7919e+03_rb,1.3440e+03_rb,8.9611e+02_rb,4.4823e+02_rb,3.3911e+01_rb/)\n      kbo(:, 5,31,14) = (/ &\n     &2.1766e+03_rb,1.6325e+03_rb,1.0885e+03_rb,5.4442e+02_rb,3.2168e+01_rb/)\n      kbo(:, 1,32,14) = (/ &\n     &1.0534e+03_rb,7.9009e+02_rb,5.2682e+02_rb,2.6397e+02_rb,4.0725e+01_rb/)\n      kbo(:, 2,32,14) = (/ &\n     &1.3802e+03_rb,1.0352e+03_rb,6.9024e+02_rb,3.4527e+02_rb,3.8603e+01_rb/)\n      kbo(:, 3,32,14) = (/ &\n     &1.7557e+03_rb,1.3169e+03_rb,8.7802e+02_rb,4.3918e+02_rb,3.6565e+01_rb/)\n      kbo(:, 4,32,14) = (/ &\n     &2.1789e+03_rb,1.6342e+03_rb,1.0896e+03_rb,5.4499e+02_rb,3.4625e+01_rb/)\n      kbo(:, 5,32,14) = (/ &\n     &2.6446e+03_rb,1.9836e+03_rb,1.3225e+03_rb,6.6145e+02_rb,3.2784e+01_rb/)\n      kbo(:, 1,33,14) = (/ &\n     &1.3124e+03_rb,9.8436e+02_rb,6.5633e+02_rb,3.2843e+02_rb,4.1548e+01_rb/)\n      kbo(:, 2,33,14) = (/ &\n     &1.7177e+03_rb,1.2883e+03_rb,8.5900e+02_rb,4.2966e+02_rb,3.9303e+01_rb/)\n      kbo(:, 3,33,14) = (/ &\n     &2.1832e+03_rb,1.6375e+03_rb,1.0918e+03_rb,5.4605e+02_rb,3.7160e+01_rb/)\n      kbo(:, 4,33,14) = (/ &\n     &2.7063e+03_rb,2.0298e+03_rb,1.3533e+03_rb,6.7686e+02_rb,3.5130e+01_rb/)\n      kbo(:, 5,33,14) = (/ &\n     &3.2806e+03_rb,2.4606e+03_rb,1.6405e+03_rb,8.2046e+02_rb,3.3063e+01_rb/)\n      kbo(:, 1,34,14) = (/ &\n     &1.5860e+03_rb,1.1896e+03_rb,7.9315e+02_rb,3.9672e+02_rb,4.2202e+01_rb/)\n      kbo(:, 2,34,14) = (/ &\n     &2.0745e+03_rb,1.5559e+03_rb,1.0374e+03_rb,5.1886e+02_rb,3.9853e+01_rb/)\n      kbo(:, 3,34,14) = (/ &\n     &2.6355e+03_rb,1.9767e+03_rb,1.3179e+03_rb,6.5913e+02_rb,3.7623e+01_rb/)\n      kbo(:, 4,34,14) = (/ &\n     &3.2644e+03_rb,2.4484e+03_rb,1.6324e+03_rb,8.1637e+02_rb,3.5405e+01_rb/)\n      kbo(:, 5,34,14) = (/ &\n     &3.9520e+03_rb,2.9641e+03_rb,1.9762e+03_rb,9.8832e+02_rb,3.3276e+01_rb/)\n      kbo(:, 1,35,14) = (/ &\n     &1.8756e+03_rb,1.4068e+03_rb,9.3797e+02_rb,4.6914e+02_rb,4.2878e+01_rb/)\n      kbo(:, 2,35,14) = (/ &\n     &2.4578e+03_rb,1.8434e+03_rb,1.2290e+03_rb,6.1469e+02_rb,4.0440e+01_rb/)\n      kbo(:, 3,35,14) = (/ &\n     &3.1268e+03_rb,2.3452e+03_rb,1.5636e+03_rb,7.8197e+02_rb,3.8129e+01_rb/)\n      kbo(:, 4,35,14) = (/ &\n     &3.8751e+03_rb,2.9064e+03_rb,1.9378e+03_rb,9.6909e+02_rb,3.5715e+01_rb/)\n      kbo(:, 5,35,14) = (/ &\n     &4.6936e+03_rb,3.5203e+03_rb,2.3471e+03_rb,1.1738e+03_rb,3.3797e+01_rb/)\n      kbo(:, 1,36,14) = (/ &\n     &2.1453e+03_rb,1.6090e+03_rb,1.0728e+03_rb,5.3655e+02_rb,4.3664e+01_rb/)\n      kbo(:, 2,36,14) = (/ &\n     &2.8245e+03_rb,2.1184e+03_rb,1.4124e+03_rb,7.0636e+02_rb,4.1138e+01_rb/)\n      kbo(:, 3,36,14) = (/ &\n     &3.6063e+03_rb,2.7048e+03_rb,1.8033e+03_rb,9.0186e+02_rb,3.8589e+01_rb/)\n      kbo(:, 4,36,14) = (/ &\n     &4.4821e+03_rb,3.3616e+03_rb,2.2412e+03_rb,1.1208e+03_rb,3.6195e+01_rb/)\n      kbo(:, 5,36,14) = (/ &\n     &5.4418e+03_rb,4.0814e+03_rb,2.7211e+03_rb,1.3608e+03_rb,3.4367e+01_rb/)\n      kbo(:, 1,37,14) = (/ &\n     &2.2940e+03_rb,1.7205e+03_rb,1.1471e+03_rb,5.7372e+02_rb,4.4724e+01_rb/)\n      kbo(:, 2,37,14) = (/ &\n     &3.0476e+03_rb,2.2858e+03_rb,1.5240e+03_rb,7.6217e+02_rb,4.2103e+01_rb/)\n      kbo(:, 3,37,14) = (/ &\n     &3.9216e+03_rb,2.9413e+03_rb,1.9610e+03_rb,9.8070e+02_rb,3.9415e+01_rb/)\n      kbo(:, 4,37,14) = (/ &\n     &4.9050e+03_rb,3.6789e+03_rb,2.4527e+03_rb,1.2266e+03_rb,3.7136e+01_rb/)\n      kbo(:, 5,37,14) = (/ &\n     &5.9876e+03_rb,4.4908e+03_rb,2.9940e+03_rb,1.4972e+03_rb,3.5121e+01_rb/)\n      kbo(:, 1,38,14) = (/ &\n     &2.4855e+03_rb,1.8642e+03_rb,1.2429e+03_rb,6.2161e+02_rb,4.5721e+01_rb/)\n      kbo(:, 2,38,14) = (/ &\n     &3.3318e+03_rb,2.4989e+03_rb,1.6661e+03_rb,8.3322e+02_rb,4.3010e+01_rb/)\n      kbo(:, 3,38,14) = (/ &\n     &4.3213e+03_rb,3.2410e+03_rb,2.1608e+03_rb,1.0806e+03_rb,4.0195e+01_rb/)\n      kbo(:, 4,38,14) = (/ &\n     &5.4403e+03_rb,4.0803e+03_rb,2.7203e+03_rb,1.3604e+03_rb,3.7939e+01_rb/)\n      kbo(:, 5,38,14) = (/ &\n     &6.6754e+03_rb,5.0066e+03_rb,3.3379e+03_rb,1.6692e+03_rb,3.5824e+01_rb/)\n      kbo(:, 1,39,14) = (/ &\n     &2.7579e+03_rb,2.0685e+03_rb,1.3791e+03_rb,6.8973e+02_rb,4.6636e+01_rb/)\n      kbo(:, 2,39,14) = (/ &\n     &3.7311e+03_rb,2.7984e+03_rb,1.8657e+03_rb,9.3308e+02_rb,4.3764e+01_rb/)\n      kbo(:, 3,39,14) = (/ &\n     &4.8740e+03_rb,3.6556e+03_rb,2.4372e+03_rb,1.2188e+03_rb,4.0901e+01_rb/)\n      kbo(:, 4,39,14) = (/ &\n     &6.1755e+03_rb,4.6318e+03_rb,3.0880e+03_rb,1.5442e+03_rb,3.8692e+01_rb/)\n      kbo(:, 5,39,14) = (/ &\n     &7.6168e+03_rb,5.7128e+03_rb,3.8087e+03_rb,1.9046e+03_rb,3.6244e+01_rb/)\n      kbo(:, 1,40,14) = (/ &\n     &2.7806e+03_rb,2.0855e+03_rb,1.3905e+03_rb,6.9541e+02_rb,4.7781e+01_rb/)\n      kbo(:, 2,40,14) = (/ &\n     &3.8105e+03_rb,2.8580e+03_rb,1.9054e+03_rb,9.5291e+02_rb,4.4820e+01_rb/)\n      kbo(:, 3,40,14) = (/ &\n     &5.0317e+03_rb,3.7739e+03_rb,2.5160e+03_rb,1.2582e+03_rb,4.1870e+01_rb/)\n      kbo(:, 4,40,14) = (/ &\n     &6.4348e+03_rb,4.8262e+03_rb,3.2176e+03_rb,1.6090e+03_rb,3.9597e+01_rb/)\n      kbo(:, 5,40,14) = (/ &\n     &7.9965e+03_rb,5.9975e+03_rb,3.9985e+03_rb,1.9995e+03_rb,3.7061e+01_rb/)\n      kbo(:, 1,41,14) = (/ &\n     &2.7787e+03_rb,2.0841e+03_rb,1.3895e+03_rb,6.9500e+02_rb,4.8925e+01_rb/)\n      kbo(:, 2,41,14) = (/ &\n     &3.8614e+03_rb,2.8961e+03_rb,1.9309e+03_rb,9.6566e+02_rb,4.5922e+01_rb/)\n      kbo(:, 3,41,14) = (/ &\n     &5.1574e+03_rb,3.8681e+03_rb,2.5789e+03_rb,1.2897e+03_rb,4.2853e+01_rb/)\n      kbo(:, 4,41,14) = (/ &\n     &6.6587e+03_rb,4.9941e+03_rb,3.3296e+03_rb,1.6650e+03_rb,4.0428e+01_rb/)\n      kbo(:, 5,41,14) = (/ &\n     &8.3439e+03_rb,6.2581e+03_rb,4.1723e+03_rb,2.0864e+03_rb,3.7900e+01_rb/)\n      kbo(:, 1,42,14) = (/ &\n     &2.7998e+03_rb,2.0999e+03_rb,1.4001e+03_rb,7.0041e+02_rb,5.0031e+01_rb/)\n      kbo(:, 2,42,14) = (/ &\n     &3.9460e+03_rb,2.9596e+03_rb,1.9732e+03_rb,9.8680e+02_rb,4.6998e+01_rb/)\n      kbo(:, 3,42,14) = (/ &\n     &5.3323e+03_rb,3.9993e+03_rb,2.6663e+03_rb,1.3334e+03_rb,4.3819e+01_rb/)\n      kbo(:, 4,42,14) = (/ &\n     &6.9531e+03_rb,5.2149e+03_rb,3.4767e+03_rb,1.7386e+03_rb,4.1253e+01_rb/)\n      kbo(:, 5,42,14) = (/ &\n     &8.7873e+03_rb,6.5906e+03_rb,4.3939e+03_rb,2.1972e+03_rb,3.8745e+01_rb/)\n      kbo(:, 1,43,14) = (/ &\n     &2.7784e+03_rb,2.0839e+03_rb,1.3894e+03_rb,6.9544e+02_rb,5.1292e+01_rb/)\n      kbo(:, 2,43,14) = (/ &\n     &3.9830e+03_rb,2.9874e+03_rb,1.9917e+03_rb,9.9606e+02_rb,4.8177e+01_rb/)\n      kbo(:, 3,43,14) = (/ &\n     &5.4603e+03_rb,4.0953e+03_rb,2.7304e+03_rb,1.3654e+03_rb,4.4925e+01_rb/)\n      kbo(:, 4,43,14) = (/ &\n     &7.2065e+03_rb,5.4050e+03_rb,3.6035e+03_rb,1.8020e+03_rb,4.2242e+01_rb/)\n      kbo(:, 5,43,14) = (/ &\n     &9.2025e+03_rb,6.9020e+03_rb,4.6015e+03_rb,2.3010e+03_rb,3.9649e+01_rb/)\n      kbo(:, 1,44,14) = (/ &\n     &2.7542e+03_rb,2.0657e+03_rb,1.3772e+03_rb,6.8977e+02_rb,5.2617e+01_rb/)\n      kbo(:, 2,44,14) = (/ &\n     &4.0230e+03_rb,3.0173e+03_rb,2.0117e+03_rb,1.0060e+03_rb,4.9427e+01_rb/)\n      kbo(:, 3,44,14) = (/ &\n     &5.6050e+03_rb,4.2038e+03_rb,2.8027e+03_rb,1.4015e+03_rb,4.6077e+01_rb/)\n      kbo(:, 4,44,14) = (/ &\n     &7.4959e+03_rb,5.6220e+03_rb,3.7481e+03_rb,1.8743e+03_rb,4.3276e+01_rb/)\n      kbo(:, 5,44,14) = (/ &\n     &9.6875e+03_rb,7.2657e+03_rb,4.8439e+03_rb,2.4222e+03_rb,4.0647e+01_rb/)\n      kbo(:, 1,45,14) = (/ &\n     &2.7680e+03_rb,2.0761e+03_rb,1.3842e+03_rb,6.9371e+02_rb,5.3927e+01_rb/)\n      kbo(:, 2,45,14) = (/ &\n     &4.1247e+03_rb,3.0936e+03_rb,2.0625e+03_rb,1.0314e+03_rb,5.0672e+01_rb/)\n      kbo(:, 3,45,14) = (/ &\n     &5.8448e+03_rb,4.3837e+03_rb,2.9226e+03_rb,1.4615e+03_rb,4.7150e+01_rb/)\n      kbo(:, 4,45,14) = (/ &\n     &7.9284e+03_rb,5.9463e+03_rb,3.9644e+03_rb,1.9824e+03_rb,4.4329e+01_rb/)\n      kbo(:, 5,45,14) = (/ &\n     &1.0369e+04_rb,7.7768e+03_rb,5.1847e+03_rb,2.5926e+03_rb,4.1634e+01_rb/)\n      kbo(:, 1,46,14) = (/ &\n     &2.7642e+03_rb,2.0732e+03_rb,1.3822e+03_rb,6.9344e+02_rb,5.5299e+01_rb/)\n      kbo(:, 2,46,14) = (/ &\n     &4.2127e+03_rb,3.1596e+03_rb,2.1065e+03_rb,1.0534e+03_rb,5.1989e+01_rb/)\n      kbo(:, 3,46,14) = (/ &\n     &6.0817e+03_rb,4.5614e+03_rb,3.0411e+03_rb,1.5207e+03_rb,4.8362e+01_rb/)\n      kbo(:, 4,46,14) = (/ &\n     &8.3835e+03_rb,6.2877e+03_rb,4.1920e+03_rb,2.0962e+03_rb,4.5451e+01_rb/)\n      kbo(:, 5,46,14) = (/ &\n     &1.1109e+04_rb,8.3315e+03_rb,5.5545e+03_rb,2.7775e+03_rb,4.2710e+01_rb/)\n      kbo(:, 1,47,14) = (/ &\n     &2.6579e+03_rb,1.9935e+03_rb,1.3291e+03_rb,6.6810e+02_rb,5.6805e+01_rb/)\n      kbo(:, 2,47,14) = (/ &\n     &4.1618e+03_rb,3.1214e+03_rb,2.0811e+03_rb,1.0407e+03_rb,5.3447e+01_rb/)\n      kbo(:, 3,47,14) = (/ &\n     &6.1402e+03_rb,4.6053e+03_rb,3.0703e+03_rb,1.5354e+03_rb,4.9761e+01_rb/)\n      kbo(:, 4,47,14) = (/ &\n     &8.6262e+03_rb,6.4697e+03_rb,4.3133e+03_rb,2.1569e+03_rb,4.6695e+01_rb/)\n      kbo(:, 5,47,14) = (/ &\n     &1.1609e+04_rb,8.7071e+03_rb,5.8049e+03_rb,2.9027e+03_rb,4.4026e+01_rb/)\n      kbo(:, 1,48,14) = (/ &\n     &2.5983e+03_rb,1.9488e+03_rb,1.2993e+03_rb,6.5451e+02_rb,5.8316e+01_rb/)\n      kbo(:, 2,48,14) = (/ &\n     &4.1890e+03_rb,3.1418e+03_rb,2.0947e+03_rb,1.0476e+03_rb,5.4906e+01_rb/)\n      kbo(:, 3,48,14) = (/ &\n     &6.3280e+03_rb,4.7461e+03_rb,3.1642e+03_rb,1.5823e+03_rb,5.1153e+01_rb/)\n      kbo(:, 4,48,14) = (/ &\n     &9.0666e+03_rb,6.8001e+03_rb,4.5335e+03_rb,2.2670e+03_rb,4.7961e+01_rb/)\n      kbo(:, 5,48,14) = (/ &\n     &1.2413e+04_rb,9.3096e+03_rb,6.2066e+03_rb,3.1035e+03_rb,4.5348e+01_rb/)\n      kbo(:, 1,49,14) = (/ &\n     &2.6146e+03_rb,1.9610e+03_rb,1.3074e+03_rb,6.5952e+02_rb,5.9823e+01_rb/)\n      kbo(:, 2,49,14) = (/ &\n     &4.3479e+03_rb,3.2610e+03_rb,2.1741e+03_rb,1.0874e+03_rb,5.6229e+01_rb/)\n      kbo(:, 3,49,14) = (/ &\n     &6.7401e+03_rb,5.0552e+03_rb,3.3702e+03_rb,1.6853e+03_rb,5.2522e+01_rb/)\n      kbo(:, 4,49,14) = (/ &\n     &9.8602e+03_rb,7.3953e+03_rb,4.9303e+03_rb,2.4653e+03_rb,4.9326e+01_rb/)\n      kbo(:, 5,49,14) = (/ &\n     &1.3745e+04_rb,1.0309e+04_rb,6.8727e+03_rb,3.4366e+03_rb,4.6702e+01_rb/)\n      kbo(:, 1,50,14) = (/ &\n     &2.5099e+03_rb,1.8825e+03_rb,1.2551e+03_rb,6.3476e+02_rb,6.1230e+01_rb/)\n      kbo(:, 2,50,14) = (/ &\n     &4.3054e+03_rb,3.2291e+03_rb,2.1528e+03_rb,1.0772e+03_rb,5.7584e+01_rb/)\n      kbo(:, 3,50,14) = (/ &\n     &6.8503e+03_rb,5.1378e+03_rb,3.4253e+03_rb,1.7128e+03_rb,5.3876e+01_rb/)\n      kbo(:, 4,50,14) = (/ &\n     &1.0235e+04_rb,7.6760e+03_rb,5.1175e+03_rb,2.5589e+03_rb,5.0609e+01_rb/)\n      kbo(:, 5,50,14) = (/ &\n     &1.4527e+04_rb,1.0895e+04_rb,7.2636e+03_rb,3.6320e+03_rb,4.7904e+01_rb/)\n      kbo(:, 1,51,14) = (/ &\n     &2.3421e+03_rb,1.7566e+03_rb,1.1712e+03_rb,5.9456e+02_rb,6.2588e+01_rb/)\n      kbo(:, 2,51,14) = (/ &\n     &4.1517e+03_rb,3.1138e+03_rb,2.0760e+03_rb,1.0393e+03_rb,5.8927e+01_rb/)\n      kbo(:, 3,51,14) = (/ &\n     &6.7861e+03_rb,5.0897e+03_rb,3.3932e+03_rb,1.6968e+03_rb,5.5331e+01_rb/)\n      kbo(:, 4,51,14) = (/ &\n     &1.0366e+04_rb,7.7746e+03_rb,5.1832e+03_rb,2.5918e+03_rb,5.1728e+01_rb/)\n      kbo(:, 5,51,14) = (/ &\n     &1.4983e+04_rb,1.1238e+04_rb,7.4919e+03_rb,3.7462e+03_rb,4.9071e+01_rb/)\n      kbo(:, 1,52,14) = (/ &\n     &2.2192e+03_rb,1.6645e+03_rb,1.1098e+03_rb,5.6550e+02_rb,6.3929e+01_rb/)\n      kbo(:, 2,52,14) = (/ &\n     &4.0774e+03_rb,3.0581e+03_rb,2.0388e+03_rb,1.0215e+03_rb,6.0266e+01_rb/)\n      kbo(:, 3,52,14) = (/ &\n     &6.8574e+03_rb,5.1432e+03_rb,3.4289e+03_rb,1.7146e+03_rb,5.6630e+01_rb/)\n      kbo(:, 4,52,14) = (/ &\n     &1.0728e+04_rb,8.0459e+03_rb,5.3641e+03_rb,2.6822e+03_rb,5.3054e+01_rb/)\n      kbo(:, 5,52,14) = (/ &\n     &1.5806e+04_rb,1.1855e+04_rb,7.9035e+03_rb,3.9520e+03_rb,5.0321e+01_rb/)\n      kbo(:, 1,53,14) = (/ &\n     &2.1588e+03_rb,1.6192e+03_rb,1.0797e+03_rb,5.5175e+02_rb,6.5259e+01_rb/)\n      kbo(:, 2,53,14) = (/ &\n     &4.1225e+03_rb,3.0919e+03_rb,2.0614e+03_rb,1.0332e+03_rb,6.1546e+01_rb/)\n      kbo(:, 3,53,14) = (/ &\n     &7.1492e+03_rb,5.3620e+03_rb,3.5747e+03_rb,1.7875e+03_rb,5.7918e+01_rb/)\n      kbo(:, 4,53,14) = (/ &\n     &1.1475e+04_rb,8.6063e+03_rb,5.7376e+03_rb,2.8690e+03_rb,5.4409e+01_rb/)\n      kbo(:, 5,53,14) = (/ &\n     &1.7262e+04_rb,1.2946e+04_rb,8.6311e+03_rb,4.3158e+03_rb,5.1571e+01_rb/)\n      kbo(:, 1,54,14) = (/ &\n     &1.8282e+03_rb,1.3713e+03_rb,9.1520e+02_rb,4.7290e+02_rb,6.6448e+01_rb/)\n      kbo(:, 2,54,14) = (/ &\n     &3.6279e+03_rb,2.7210e+03_rb,1.8141e+03_rb,9.1135e+02_rb,6.2844e+01_rb/)\n      kbo(:, 3,54,14) = (/ &\n     &6.4841e+03_rb,4.8631e+03_rb,3.2422e+03_rb,1.6212e+03_rb,5.9155e+01_rb/)\n      kbo(:, 4,54,14) = (/ &\n     &1.0670e+04_rb,8.0025e+03_rb,5.3351e+03_rb,2.6677e+03_rb,5.5552e+01_rb/)\n      kbo(:, 5,54,14) = (/ &\n     &1.6384e+04_rb,1.2288e+04_rb,8.1922e+03_rb,4.0963e+03_rb,5.2636e+01_rb/)\n      kbo(:, 1,55,14) = (/ &\n     &1.4067e+03_rb,1.0551e+03_rb,7.0638e+02_rb,3.7354e+02_rb,6.7558e+01_rb/)\n      kbo(:, 2,55,14) = (/ &\n     &2.9041e+03_rb,2.1781e+03_rb,1.4522e+03_rb,7.3353e+02_rb,6.4148e+01_rb/)\n      kbo(:, 3,55,14) = (/ &\n     &5.3593e+03_rb,4.0195e+03_rb,2.6797e+03_rb,1.3404e+03_rb,6.0390e+01_rb/)\n      kbo(:, 4,55,14) = (/ &\n     &9.0439e+03_rb,6.7830e+03_rb,4.5221e+03_rb,2.2612e+03_rb,5.6702e+01_rb/)\n      kbo(:, 5,55,14) = (/ &\n     &1.4184e+04_rb,1.0638e+04_rb,7.0920e+03_rb,3.5462e+03_rb,5.3319e+01_rb/)\n      kbo(:, 1,56,14) = (/ &\n     &1.0676e+03_rb,8.0078e+02_rb,5.3961e+02_rb,2.9566e+02_rb,6.8630e+01_rb/)\n      kbo(:, 2,56,14) = (/ &\n     &2.3009e+03_rb,1.7258e+03_rb,1.1507e+03_rb,5.8655e+02_rb,6.5294e+01_rb/)\n      kbo(:, 3,56,14) = (/ &\n     &4.3913e+03_rb,3.2935e+03_rb,2.1958e+03_rb,1.1000e+03_rb,6.1700e+01_rb/)\n      kbo(:, 4,56,14) = (/ &\n     &7.6108e+03_rb,5.7081e+03_rb,3.8055e+03_rb,1.9028e+03_rb,5.7982e+01_rb/)\n      kbo(:, 5,56,14) = (/ &\n     &1.2207e+04_rb,9.1554e+03_rb,6.1037e+03_rb,3.0520e+03_rb,5.4269e+01_rb/)\n      kbo(:, 1,57,14) = (/ &\n     &7.9773e+02_rb,5.9861e+02_rb,4.0826e+02_rb,2.3574e+02_rb,6.9656e+01_rb/)\n      kbo(:, 2,57,14) = (/ &\n     &1.8005e+03_rb,1.3505e+03_rb,9.0146e+02_rb,4.6638e+02_rb,6.6420e+01_rb/)\n      kbo(:, 3,57,14) = (/ &\n     &3.5629e+03_rb,2.6722e+03_rb,1.7816e+03_rb,8.9534e+02_rb,6.2948e+01_rb/)\n      kbo(:, 4,57,14) = (/ &\n     &6.3553e+03_rb,4.7665e+03_rb,3.1777e+03_rb,1.5890e+03_rb,5.9228e+01_rb/)\n      kbo(:, 5,57,14) = (/ &\n     &1.0437e+04_rb,7.8281e+03_rb,5.2188e+03_rb,2.6095e+03_rb,5.5502e+01_rb/)\n      kbo(:, 1,58,14) = (/ &\n     &1.5691e+02_rb,1.4430e+02_rb,1.2945e+02_rb,1.1296e+02_rb,7.0583e+01_rb/)\n      kbo(:, 2,58,14) = (/ &\n     &3.7146e+02_rb,3.4061e+02_rb,2.9343e+02_rb,2.1801e+02_rb,6.7460e+01_rb/)\n      kbo(:, 3,58,14) = (/ &\n     &7.6282e+02_rb,6.9942e+02_rb,5.9974e+02_rb,4.2478e+02_rb,6.4030e+01_rb/)\n      kbo(:, 4,58,14) = (/ &\n     &1.4014e+03_rb,1.2849e+03_rb,1.1017e+03_rb,7.7206e+02_rb,6.0507e+01_rb/)\n      kbo(:, 5,58,14) = (/ &\n     &2.3564e+03_rb,2.1605e+03_rb,1.8525e+03_rb,1.2975e+03_rb,5.6760e+01_rb/)\n      kbo(:, 1,59,14) = (/ &\n     &1.6269e+02_rb,1.4372e+02_rb,1.2601e+02_rb,1.1040e+02_rb,7.0952e+01_rb/)\n      kbo(:, 2,59,14) = (/ &\n     &3.9338e+02_rb,3.4354e+02_rb,2.7833e+02_rb,1.9401e+02_rb,6.7878e+01_rb/)\n      kbo(:, 3,59,14) = (/ &\n     &8.2073e+02_rb,7.1668e+02_rb,5.7208e+02_rb,3.6616e+02_rb,6.4473e+01_rb/)\n      kbo(:, 4,59,14) = (/ &\n     &1.5267e+03_rb,1.3331e+03_rb,1.0634e+03_rb,6.6456e+02_rb,6.0953e+01_rb/)\n      kbo(:, 5,59,14) = (/ &\n     &2.5924e+03_rb,2.2637e+03_rb,1.8057e+03_rb,1.1237e+03_rb,5.7434e+01_rb/)\n      kbo(:, 1,13,15) = (/ &\n     &6.7676e+03_rb,5.0758e+03_rb,3.3840e+03_rb,1.6922e+03_rb,9.0910e+00_rb/)\n      kbo(:, 2,13,15) = (/ &\n     &9.5300e+03_rb,7.1475e+03_rb,4.7651e+03_rb,2.3827e+03_rb,8.9593e+00_rb/)\n      kbo(:, 3,13,15) = (/ &\n     &1.2768e+04_rb,9.5761e+03_rb,6.3842e+03_rb,3.1923e+03_rb,8.8860e+00_rb/)\n      kbo(:, 4,13,15) = (/ &\n     &1.6413e+04_rb,1.2310e+04_rb,8.2067e+03_rb,4.1035e+03_rb,8.8094e+00_rb/)\n      kbo(:, 5,13,15) = (/ &\n     &2.0377e+04_rb,1.5283e+04_rb,1.0189e+04_rb,5.0946e+03_rb,8.7010e+00_rb/)\n      kbo(:, 1,14,15) = (/ &\n     &4.6855e+03_rb,3.5142e+03_rb,2.3429e+03_rb,1.1716e+03_rb,1.0351e+01_rb/)\n      kbo(:, 2,14,15) = (/ &\n     &6.5777e+03_rb,4.9333e+03_rb,3.2890e+03_rb,1.6447e+03_rb,1.0245e+01_rb/)\n      kbo(:, 3,14,15) = (/ &\n     &8.7780e+03_rb,6.5835e+03_rb,4.3891e+03_rb,2.1947e+03_rb,1.0189e+01_rb/)\n      kbo(:, 4,14,15) = (/ &\n     &1.1257e+04_rb,8.4428e+03_rb,5.6286e+03_rb,2.8145e+03_rb,1.0105e+01_rb/)\n      kbo(:, 5,14,15) = (/ &\n     &1.3964e+04_rb,1.0473e+04_rb,6.9821e+03_rb,3.4912e+03_rb,9.9926e+00_rb/)\n      kbo(:, 1,15,15) = (/ &\n     &3.2854e+03_rb,2.4642e+03_rb,1.6429e+03_rb,8.2169e+02_rb,1.1907e+01_rb/)\n      kbo(:, 2,15,15) = (/ &\n     &4.5889e+03_rb,3.4418e+03_rb,2.2947e+03_rb,1.1475e+03_rb,1.1847e+01_rb/)\n      kbo(:, 3,15,15) = (/ &\n     &6.1056e+03_rb,4.5793e+03_rb,3.0530e+03_rb,1.5267e+03_rb,1.1796e+01_rb/)\n      kbo(:, 4,15,15) = (/ &\n     &7.8011e+03_rb,5.8510e+03_rb,3.9008e+03_rb,1.9506e+03_rb,1.1682e+01_rb/)\n      kbo(:, 5,15,15) = (/ &\n     &9.6352e+03_rb,7.2265e+03_rb,4.8178e+03_rb,2.4091e+03_rb,1.1548e+01_rb/)\n      kbo(:, 1,16,15) = (/ &\n     &2.7156e+03_rb,2.0368e+03_rb,1.3580e+03_rb,6.7918e+02_rb,1.3833e+01_rb/)\n      kbo(:, 2,16,15) = (/ &\n     &3.7730e+03_rb,2.8298e+03_rb,1.8867e+03_rb,9.4350e+02_rb,1.3786e+01_rb/)\n      kbo(:, 3,16,15) = (/ &\n     &4.9942e+03_rb,3.7457e+03_rb,2.4973e+03_rb,1.2488e+03_rb,1.3682e+01_rb/)\n      kbo(:, 4,16,15) = (/ &\n     &6.3607e+03_rb,4.7706e+03_rb,3.1805e+03_rb,1.5904e+03_rb,1.3533e+01_rb/)\n      kbo(:, 5,16,15) = (/ &\n     &7.8514e+03_rb,5.8886e+03_rb,3.9259e+03_rb,1.9631e+03_rb,1.3377e+01_rb/)\n      kbo(:, 1,17,15) = (/ &\n     &2.3075e+03_rb,1.7307e+03_rb,1.1539e+03_rb,5.7711e+02_rb,1.6126e+01_rb/)\n      kbo(:, 2,17,15) = (/ &\n     &3.1956e+03_rb,2.3967e+03_rb,1.5979e+03_rb,7.9911e+02_rb,1.6029e+01_rb/)\n      kbo(:, 3,17,15) = (/ &\n     &4.2241e+03_rb,3.1681e+03_rb,2.1122e+03_rb,1.0562e+03_rb,1.5863e+01_rb/)\n      kbo(:, 4,17,15) = (/ &\n     &5.3821e+03_rb,4.0366e+03_rb,2.6912e+03_rb,1.3457e+03_rb,1.5685e+01_rb/)\n      kbo(:, 5,17,15) = (/ &\n     &6.6465e+03_rb,4.9850e+03_rb,3.3234e+03_rb,1.6618e+03_rb,1.5496e+01_rb/)\n      kbo(:, 1,18,15) = (/ &\n     &2.0119e+03_rb,1.5090e+03_rb,1.0061e+03_rb,5.0318e+02_rb,1.8668e+01_rb/)\n      kbo(:, 2,18,15) = (/ &\n     &2.7815e+03_rb,2.0862e+03_rb,1.3909e+03_rb,6.9557e+02_rb,1.8505e+01_rb/)\n      kbo(:, 3,18,15) = (/ &\n     &3.6794e+03_rb,2.7596e+03_rb,1.8398e+03_rb,9.2005e+02_rb,1.8343e+01_rb/)\n      kbo(:, 4,18,15) = (/ &\n     &4.6884e+03_rb,3.5164e+03_rb,2.3443e+03_rb,1.1723e+03_rb,1.8140e+01_rb/)\n      kbo(:, 5,18,15) = (/ &\n     &5.7908e+03_rb,4.3432e+03_rb,2.8955e+03_rb,1.4479e+03_rb,1.7901e+01_rb/)\n      kbo(:, 1,19,15) = (/ &\n     &1.7281e+03_rb,1.2962e+03_rb,8.6418e+02_rb,4.3222e+02_rb,2.1496e+01_rb/)\n      kbo(:, 2,19,15) = (/ &\n     &2.3903e+03_rb,1.7928e+03_rb,1.1953e+03_rb,5.9777e+02_rb,2.1311e+01_rb/)\n      kbo(:, 3,19,15) = (/ &\n     &3.1615e+03_rb,2.3712e+03_rb,1.5809e+03_rb,7.9055e+02_rb,2.1106e+01_rb/)\n      kbo(:, 4,19,15) = (/ &\n     &4.0222e+03_rb,3.0167e+03_rb,2.0112e+03_rb,1.0057e+03_rb,2.0849e+01_rb/)\n      kbo(:, 5,19,15) = (/ &\n     &4.9621e+03_rb,3.7216e+03_rb,2.4811e+03_rb,1.2407e+03_rb,2.0531e+01_rb/)\n      kbo(:, 1,20,15) = (/ &\n     &1.6235e+03_rb,1.2177e+03_rb,8.1188e+02_rb,4.0606e+02_rb,2.4735e+01_rb/)\n      kbo(:, 2,20,15) = (/ &\n     &2.2387e+03_rb,1.6791e+03_rb,1.1195e+03_rb,5.5984e+02_rb,2.4475e+01_rb/)\n      kbo(:, 3,20,15) = (/ &\n     &2.9488e+03_rb,2.2116e+03_rb,1.4745e+03_rb,7.3737e+02_rb,2.4178e+01_rb/)\n      kbo(:, 4,20,15) = (/ &\n     &3.7459e+03_rb,2.8095e+03_rb,1.8731e+03_rb,9.3665e+02_rb,2.3818e+01_rb/)\n      kbo(:, 5,20,15) = (/ &\n     &4.6161e+03_rb,3.4621e+03_rb,2.3081e+03_rb,1.1542e+03_rb,2.3401e+01_rb/)\n      kbo(:, 1,21,15) = (/ &\n     &1.5705e+03_rb,1.1779e+03_rb,7.8536e+02_rb,3.9279e+02_rb,2.8368e+01_rb/)\n      kbo(:, 2,21,15) = (/ &\n     &2.1555e+03_rb,1.6166e+03_rb,1.0778e+03_rb,5.3903e+02_rb,2.7972e+01_rb/)\n      kbo(:, 3,21,15) = (/ &\n     &2.8340e+03_rb,2.1256e+03_rb,1.4171e+03_rb,7.0866e+02_rb,2.7543e+01_rb/)\n      kbo(:, 4,21,15) = (/ &\n     &3.5949e+03_rb,2.6962e+03_rb,1.7975e+03_rb,8.9888e+02_rb,2.7047e+01_rb/)\n      kbo(:, 5,21,15) = (/ &\n     &4.4249e+03_rb,3.3187e+03_rb,2.2126e+03_rb,1.1064e+03_rb,2.6508e+01_rb/)\n      kbo(:, 1,22,15) = (/ &\n     &1.5869e+03_rb,1.1902e+03_rb,7.9356e+02_rb,3.9688e+02_rb,3.2318e+01_rb/)\n      kbo(:, 2,22,15) = (/ &\n     &2.1673e+03_rb,1.6255e+03_rb,1.0838e+03_rb,5.4198e+02_rb,3.1767e+01_rb/)\n      kbo(:, 3,22,15) = (/ &\n     &2.8378e+03_rb,2.1284e+03_rb,1.4190e+03_rb,7.0961e+02_rb,3.1126e+01_rb/)\n      kbo(:, 4,22,15) = (/ &\n     &3.5877e+03_rb,2.6908e+03_rb,1.7940e+03_rb,8.9709e+02_rb,3.0424e+01_rb/)\n      kbo(:, 5,22,15) = (/ &\n     &4.4005e+03_rb,3.3004e+03_rb,2.2004e+03_rb,1.1003e+03_rb,2.9694e+01_rb/)\n      kbo(:, 1,23,15) = (/ &\n     &1.6232e+03_rb,1.2174e+03_rb,8.1169e+02_rb,4.0594e+02_rb,3.6426e+01_rb/)\n      kbo(:, 2,23,15) = (/ &\n     &2.2045e+03_rb,1.6534e+03_rb,1.1023e+03_rb,5.5127e+02_rb,3.5632e+01_rb/)\n      kbo(:, 3,23,15) = (/ &\n     &2.8697e+03_rb,2.1523e+03_rb,1.4350e+03_rb,7.1760e+02_rb,3.4766e+01_rb/)\n      kbo(:, 4,23,15) = (/ &\n     &3.6072e+03_rb,2.7054e+03_rb,1.8037e+03_rb,9.0197e+02_rb,3.3867e+01_rb/)\n      kbo(:, 5,23,15) = (/ &\n     &4.4070e+03_rb,3.3053e+03_rb,2.2036e+03_rb,1.1019e+03_rb,3.2942e+01_rb/)\n      kbo(:, 1,24,15) = (/ &\n     &1.6638e+03_rb,1.2479e+03_rb,8.3204e+02_rb,4.1615e+02_rb,4.0555e+01_rb/)\n      kbo(:, 2,24,15) = (/ &\n     &2.2399e+03_rb,1.6800e+03_rb,1.1201e+03_rb,5.6017e+02_rb,3.9512e+01_rb/)\n      kbo(:, 3,24,15) = (/ &\n     &2.8950e+03_rb,2.1713e+03_rb,1.4476e+03_rb,7.2392e+02_rb,3.8430e+01_rb/)\n      kbo(:, 4,24,15) = (/ &\n     &3.6214e+03_rb,2.7161e+03_rb,1.8108e+03_rb,9.0552e+02_rb,3.7312e+01_rb/)\n      kbo(:, 5,24,15) = (/ &\n     &4.4048e+03_rb,3.3036e+03_rb,2.2025e+03_rb,1.1014e+03_rb,3.6172e+01_rb/)\n      kbo(:, 1,25,15) = (/ &\n     &1.7332e+03_rb,1.2999e+03_rb,8.6673e+02_rb,4.3352e+02_rb,4.4719e+01_rb/)\n      kbo(:, 2,25,15) = (/ &\n     &2.3131e+03_rb,1.7349e+03_rb,1.1567e+03_rb,5.7851e+02_rb,4.3381e+01_rb/)\n      kbo(:, 3,25,15) = (/ &\n     &2.9711e+03_rb,2.2284e+03_rb,1.4857e+03_rb,7.4302e+02_rb,4.2032e+01_rb/)\n      kbo(:, 4,25,15) = (/ &\n     &3.6954e+03_rb,2.7716e+03_rb,1.8478e+03_rb,9.2407e+02_rb,4.0668e+01_rb/)\n      kbo(:, 5,25,15) = (/ &\n     &4.4711e+03_rb,3.3534e+03_rb,2.2357e+03_rb,1.1180e+03_rb,3.9312e+01_rb/)\n      kbo(:, 1,26,15) = (/ &\n     &1.8457e+03_rb,1.3843e+03_rb,9.2300e+02_rb,4.6166e+02_rb,4.8798e+01_rb/)\n      kbo(:, 2,26,15) = (/ &\n     &2.4421e+03_rb,1.8317e+03_rb,1.2212e+03_rb,6.1078e+02_rb,4.7150e+01_rb/)\n      kbo(:, 3,26,15) = (/ &\n     &3.1127e+03_rb,2.3346e+03_rb,1.5565e+03_rb,7.7843e+02_rb,4.5507e+01_rb/)\n      kbo(:, 4,26,15) = (/ &\n     &3.8432e+03_rb,2.8825e+03_rb,1.9217e+03_rb,9.6104e+02_rb,4.3884e+01_rb/)\n      kbo(:, 5,26,15) = (/ &\n     &4.6197e+03_rb,3.4648e+03_rb,2.3100e+03_rb,1.1552e+03_rb,4.2296e+01_rb/)\n      kbo(:, 1,27,15) = (/ &\n     &2.0401e+03_rb,1.5302e+03_rb,1.0202e+03_rb,5.1030e+02_rb,5.2748e+01_rb/)\n      kbo(:, 2,27,15) = (/ &\n     &2.6727e+03_rb,2.0046e+03_rb,1.3365e+03_rb,6.6845e+02_rb,5.0763e+01_rb/)\n      kbo(:, 3,27,15) = (/ &\n     &3.3765e+03_rb,2.5325e+03_rb,1.6885e+03_rb,8.4441e+02_rb,4.8815e+01_rb/)\n      kbo(:, 4,27,15) = (/ &\n     &4.1373e+03_rb,3.1031e+03_rb,2.0688e+03_rb,1.0346e+03_rb,4.6912e+01_rb/)\n      kbo(:, 5,27,15) = (/ &\n     &4.9426e+03_rb,3.7071e+03_rb,2.4715e+03_rb,1.2359e+03_rb,4.5084e+01_rb/)\n      kbo(:, 1,28,15) = (/ &\n     &2.3062e+03_rb,1.7297e+03_rb,1.1533e+03_rb,5.7684e+02_rb,5.6494e+01_rb/)\n      kbo(:, 2,28,15) = (/ &\n     &2.9911e+03_rb,2.2434e+03_rb,1.4957e+03_rb,7.4806e+02_rb,5.4164e+01_rb/)\n      kbo(:, 3,28,15) = (/ &\n     &3.7467e+03_rb,2.8101e+03_rb,1.8736e+03_rb,9.3698e+02_rb,5.1914e+01_rb/)\n      kbo(:, 4,28,15) = (/ &\n     &4.5581e+03_rb,3.4187e+03_rb,2.2792e+03_rb,1.1398e+03_rb,4.9734e+01_rb/)\n      kbo(:, 5,28,15) = (/ &\n     &5.4121e+03_rb,4.0592e+03_rb,2.7063e+03_rb,1.3533e+03_rb,4.7639e+01_rb/)\n      kbo(:, 1,29,15) = (/ &\n     &2.7587e+03_rb,2.0691e+03_rb,1.3796e+03_rb,6.8998e+02_rb,5.9883e+01_rb/)\n      kbo(:, 2,29,15) = (/ &\n     &3.5427e+03_rb,2.6571e+03_rb,1.7716e+03_rb,8.8598e+02_rb,5.7214e+01_rb/)\n      kbo(:, 3,29,15) = (/ &\n     &4.3997e+03_rb,3.2998e+03_rb,2.2000e+03_rb,1.1002e+03_rb,5.4658e+01_rb/)\n      kbo(:, 4,29,15) = (/ &\n     &5.3158e+03_rb,3.9869e+03_rb,2.6581e+03_rb,1.3292e+03_rb,5.2215e+01_rb/)\n      kbo(:, 5,29,15) = (/ &\n     &6.2710e+03_rb,4.7033e+03_rb,3.1357e+03_rb,1.5680e+03_rb,4.9872e+01_rb/)\n      kbo(:, 1,30,15) = (/ &\n     &3.3645e+03_rb,2.5235e+03_rb,1.6825e+03_rb,8.4145e+02_rb,6.2847e+01_rb/)\n      kbo(:, 2,30,15) = (/ &\n     &4.2782e+03_rb,3.2088e+03_rb,2.1393e+03_rb,1.0699e+03_rb,5.9850e+01_rb/)\n      kbo(:, 3,30,15) = (/ &\n     &5.2706e+03_rb,3.9531e+03_rb,2.6355e+03_rb,1.3180e+03_rb,5.7012e+01_rb/)\n      kbo(:, 4,30,15) = (/ &\n     &6.3236e+03_rb,4.7428e+03_rb,3.1620e+03_rb,1.5812e+03_rb,5.4322e+01_rb/)\n      kbo(:, 5,30,15) = (/ &\n     &7.4122e+03_rb,5.5592e+03_rb,3.7063e+03_rb,1.8534e+03_rb,5.1754e+01_rb/)\n      kbo(:, 1,31,15) = (/ &\n     &4.2971e+03_rb,3.2230e+03_rb,2.1488e+03_rb,1.0746e+03_rb,6.5331e+01_rb/)\n      kbo(:, 2,31,15) = (/ &\n     &5.4121e+03_rb,4.0592e+03_rb,2.7063e+03_rb,1.3534e+03_rb,6.2034e+01_rb/)\n      kbo(:, 3,31,15) = (/ &\n     &6.6141e+03_rb,4.9607e+03_rb,3.3073e+03_rb,1.6539e+03_rb,5.8947e+01_rb/)\n      kbo(:, 4,31,15) = (/ &\n     &7.8758e+03_rb,5.9069e+03_rb,3.9381e+03_rb,1.9693e+03_rb,5.6027e+01_rb/)\n      kbo(:, 5,31,15) = (/ &\n     &9.1717e+03_rb,6.8788e+03_rb,4.5860e+03_rb,2.2932e+03_rb,5.3266e+01_rb/)\n      kbo(:, 1,32,15) = (/ &\n     &5.5229e+03_rb,4.1423e+03_rb,2.7617e+03_rb,1.3811e+03_rb,6.7311e+01_rb/)\n      kbo(:, 2,32,15) = (/ &\n     &6.8909e+03_rb,5.1683e+03_rb,3.4457e+03_rb,1.7231e+03_rb,6.3759e+01_rb/)\n      kbo(:, 3,32,15) = (/ &\n     &8.3530e+03_rb,6.2649e+03_rb,4.1768e+03_rb,2.0886e+03_rb,6.0452e+01_rb/)\n      kbo(:, 4,32,15) = (/ &\n     &9.8746e+03_rb,7.4061e+03_rb,4.9375e+03_rb,2.4690e+03_rb,5.7340e+01_rb/)\n      kbo(:, 5,32,15) = (/ &\n     &1.1429e+04_rb,8.5717e+03_rb,5.7146e+03_rb,2.8575e+03_rb,5.4420e+01_rb/)\n      kbo(:, 1,33,15) = (/ &\n     &7.1868e+03_rb,5.3902e+03_rb,3.5936e+03_rb,1.7971e+03_rb,6.8810e+01_rb/)\n      kbo(:, 2,33,15) = (/ &\n     &8.8853e+03_rb,6.6641e+03_rb,4.4429e+03_rb,2.2217e+03_rb,6.5053e+01_rb/)\n      kbo(:, 3,33,15) = (/ &\n     &1.0684e+04_rb,8.0128e+03_rb,5.3420e+03_rb,2.6713e+03_rb,6.1559e+01_rb/)\n      kbo(:, 4,33,15) = (/ &\n     &1.2545e+04_rb,9.4087e+03_rb,6.2726e+03_rb,3.1365e+03_rb,5.8295e+01_rb/)\n      kbo(:, 5,33,15) = (/ &\n     &1.4437e+04_rb,1.0828e+04_rb,7.2187e+03_rb,3.6096e+03_rb,5.5243e+01_rb/)\n      kbo(:, 1,34,15) = (/ &\n     &8.9946e+03_rb,6.7461e+03_rb,4.4975e+03_rb,2.2490e+03_rb,7.0022e+01_rb/)\n      kbo(:, 2,34,15) = (/ &\n     &1.1036e+04_rb,8.2772e+03_rb,5.5183e+03_rb,2.7594e+03_rb,6.6087e+01_rb/)\n      kbo(:, 3,34,15) = (/ &\n     &1.3184e+04_rb,9.8877e+03_rb,6.5920e+03_rb,3.2962e+03_rb,6.2443e+01_rb/)\n      kbo(:, 4,34,15) = (/ &\n     &1.5394e+04_rb,1.1546e+04_rb,7.6972e+03_rb,3.8488e+03_rb,5.9052e+01_rb/)\n      kbo(:, 5,34,15) = (/ &\n     &1.7632e+04_rb,1.3224e+04_rb,8.8161e+03_rb,4.4083e+03_rb,5.5884e+01_rb/)\n      kbo(:, 1,35,15) = (/ &\n     &1.0993e+04_rb,8.2446e+03_rb,5.4966e+03_rb,2.7485e+03_rb,7.1272e+01_rb/)\n      kbo(:, 2,35,15) = (/ &\n     &1.3428e+04_rb,1.0071e+04_rb,6.7141e+03_rb,3.3573e+03_rb,6.7165e+01_rb/)\n      kbo(:, 3,35,15) = (/ &\n     &1.5977e+04_rb,1.1983e+04_rb,7.9889e+03_rb,3.9949e+03_rb,6.3376e+01_rb/)\n      kbo(:, 4,35,15) = (/ &\n     &1.8595e+04_rb,1.3946e+04_rb,9.2975e+03_rb,4.6490e+03_rb,5.9869e+01_rb/)\n      kbo(:, 5,35,15) = (/ &\n     &2.1231e+04_rb,1.5923e+04_rb,1.0616e+04_rb,5.3081e+03_rb,5.6025e+01_rb/)\n      kbo(:, 1,36,15) = (/ &\n     &1.3006e+04_rb,9.7547e+03_rb,6.5033e+03_rb,3.2519e+03_rb,7.2705e+01_rb/)\n      kbo(:, 2,36,15) = (/ &\n     &1.5874e+04_rb,1.1905e+04_rb,7.9370e+03_rb,3.9687e+03_rb,6.8413e+01_rb/)\n      kbo(:, 3,36,15) = (/ &\n     &1.8861e+04_rb,1.4146e+04_rb,9.4305e+03_rb,4.7155e+03_rb,6.4479e+01_rb/)\n      kbo(:, 4,36,15) = (/ &\n     &2.1927e+04_rb,1.6445e+04_rb,1.0964e+04_rb,5.4821e+03_rb,6.0843e+01_rb/)\n      kbo(:, 5,36,15) = (/ &\n     &2.5014e+04_rb,1.8760e+04_rb,1.2507e+04_rb,6.2537e+03_rb,5.6544e+01_rb/)\n      kbo(:, 1,37,15) = (/ &\n     &1.4489e+04_rb,1.0867e+04_rb,7.2447e+03_rb,3.6226e+03_rb,7.4617e+01_rb/)\n      kbo(:, 2,37,15) = (/ &\n     &1.7744e+04_rb,1.3308e+04_rb,8.8720e+03_rb,4.4362e+03_rb,7.0104e+01_rb/)\n      kbo(:, 3,37,15) = (/ &\n     &2.1142e+04_rb,1.5857e+04_rb,1.0571e+04_rb,5.2858e+03_rb,6.5985e+01_rb/)\n      kbo(:, 4,37,15) = (/ &\n     &2.4633e+04_rb,1.8475e+04_rb,1.2317e+04_rb,6.1586e+03_rb,6.1723e+01_rb/)\n      kbo(:, 5,37,15) = (/ &\n     &2.8152e+04_rb,2.1114e+04_rb,1.4076e+04_rb,7.0383e+03_rb,5.7616e+01_rb/)\n      kbo(:, 1,38,15) = (/ &\n     &1.6314e+04_rb,1.2236e+04_rb,8.1572e+03_rb,4.0788e+03_rb,7.6413e+01_rb/)\n      kbo(:, 2,38,15) = (/ &\n     &2.0055e+04_rb,1.5041e+04_rb,1.0028e+04_rb,5.0140e+03_rb,7.1696e+01_rb/)\n      kbo(:, 3,38,15) = (/ &\n     &2.3973e+04_rb,1.7980e+04_rb,1.1987e+04_rb,5.9936e+03_rb,6.7406e+01_rb/)\n      kbo(:, 4,38,15) = (/ &\n     &2.8001e+04_rb,2.1001e+04_rb,1.4001e+04_rb,7.0006e+03_rb,6.2768e+01_rb/)\n      kbo(:, 5,38,15) = (/ &\n     &3.2071e+04_rb,2.4053e+04_rb,1.6036e+04_rb,8.0180e+03_rb,5.8602e+01_rb/)\n      kbo(:, 1,39,15) = (/ &\n     &1.8759e+04_rb,1.4069e+04_rb,9.3797e+03_rb,4.6901e+03_rb,7.8086e+01_rb/)\n      kbo(:, 2,39,15) = (/ &\n     &2.3153e+04_rb,1.7365e+04_rb,1.1577e+04_rb,5.7886e+03_rb,7.3162e+01_rb/)\n      kbo(:, 3,39,15) = (/ &\n     &2.7770e+04_rb,2.0828e+04_rb,1.3886e+04_rb,6.9431e+03_rb,6.8719e+01_rb/)\n      kbo(:, 4,39,15) = (/ &\n     &3.2517e+04_rb,2.4388e+04_rb,1.6259e+04_rb,8.1299e+03_rb,6.3661e+01_rb/)\n      kbo(:, 5,39,15) = (/ &\n     &3.7323e+04_rb,2.7992e+04_rb,1.8662e+04_rb,9.3312e+03_rb,5.9468e+01_rb/)\n      kbo(:, 1,40,15) = (/ &\n     &1.9750e+04_rb,1.4812e+04_rb,9.8751e+03_rb,4.9378e+03_rb,8.0192e+01_rb/)\n      kbo(:, 2,40,15) = (/ &\n     &2.4562e+04_rb,1.8422e+04_rb,1.2281e+04_rb,6.1409e+03_rb,7.5032e+01_rb/)\n      kbo(:, 3,40,15) = (/ &\n     &2.9646e+04_rb,2.2235e+04_rb,1.4823e+04_rb,7.4118e+03_rb,7.0393e+01_rb/)\n      kbo(:, 4,40,15) = (/ &\n     &3.4890e+04_rb,2.6167e+04_rb,1.7445e+04_rb,8.7227e+03_rb,6.5151e+01_rb/)\n      kbo(:, 5,40,15) = (/ &\n     &4.0218e+04_rb,3.0164e+04_rb,2.0109e+04_rb,1.0055e+04_rb,6.0809e+01_rb/)\n      kbo(:, 1,41,15) = (/ &\n     &2.0620e+04_rb,1.5465e+04_rb,1.0310e+04_rb,5.1555e+03_rb,8.2333e+01_rb/)\n      kbo(:, 2,41,15) = (/ &\n     &2.5862e+04_rb,1.9396e+04_rb,1.2931e+04_rb,6.4659e+03_rb,7.6930e+01_rb/)\n      kbo(:, 3,41,15) = (/ &\n     &3.1429e+04_rb,2.3571e+04_rb,1.5714e+04_rb,7.8575e+03_rb,7.2080e+01_rb/)\n      kbo(:, 4,41,15) = (/ &\n     &3.7207e+04_rb,2.7905e+04_rb,1.8604e+04_rb,9.3022e+03_rb,6.6689e+01_rb/)\n      kbo(:, 5,41,15) = (/ &\n     &4.3090e+04_rb,3.2318e+04_rb,2.1545e+04_rb,1.0773e+04_rb,6.2194e+01_rb/)\n      kbo(:, 1,42,15) = (/ &\n     &2.1691e+04_rb,1.6268e+04_rb,1.0846e+04_rb,5.4231e+03_rb,8.4448e+01_rb/)\n      kbo(:, 2,42,15) = (/ &\n     &2.7444e+04_rb,2.0583e+04_rb,1.3722e+04_rb,6.8623e+03_rb,7.8791e+01_rb/)\n      kbo(:, 3,42,15) = (/ &\n     &3.3603e+04_rb,2.5202e+04_rb,1.6802e+04_rb,8.4010e+03_rb,7.3737e+01_rb/)\n      kbo(:, 4,42,15) = (/ &\n     &4.0024e+04_rb,3.0018e+04_rb,2.0012e+04_rb,1.0006e+04_rb,6.8167e+01_rb/)\n      kbo(:, 5,42,15) = (/ &\n     &4.6588e+04_rb,3.4941e+04_rb,2.3294e+04_rb,1.1647e+04_rb,6.3488e+01_rb/)\n      kbo(:, 1,43,15) = (/ &\n     &2.2603e+04_rb,1.6952e+04_rb,1.1302e+04_rb,5.6511e+03_rb,8.6896e+01_rb/)\n      kbo(:, 2,43,15) = (/ &\n     &2.8935e+04_rb,2.1702e+04_rb,1.4468e+04_rb,7.2343e+03_rb,8.0969e+01_rb/)\n      kbo(:, 3,43,15) = (/ &\n     &3.5766e+04_rb,2.6825e+04_rb,1.7883e+04_rb,8.9419e+03_rb,7.5666e+01_rb/)\n      kbo(:, 4,43,15) = (/ &\n     &4.2940e+04_rb,3.2205e+04_rb,2.1471e+04_rb,1.0736e+04_rb,6.9870e+01_rb/)\n      kbo(:, 5,43,15) = (/ &\n     &5.0307e+04_rb,3.7731e+04_rb,2.5154e+04_rb,1.2577e+04_rb,6.5095e+01_rb/)\n      kbo(:, 1,44,15) = (/ &\n     &2.3606e+04_rb,1.7705e+04_rb,1.1803e+04_rb,5.9018e+03_rb,8.9540e+01_rb/)\n      kbo(:, 2,44,15) = (/ &\n     &3.0627e+04_rb,2.2970e+04_rb,1.5314e+04_rb,7.6570e+03_rb,8.3300e+01_rb/)\n      kbo(:, 3,44,15) = (/ &\n     &3.8272e+04_rb,2.8704e+04_rb,1.9136e+04_rb,9.5682e+03_rb,7.7742e+01_rb/)\n      kbo(:, 4,44,15) = (/ &\n     &4.6369e+04_rb,3.4777e+04_rb,2.3185e+04_rb,1.1593e+04_rb,7.1787e+01_rb/)\n      kbo(:, 5,44,15) = (/ &\n     &5.4746e+04_rb,4.1060e+04_rb,2.7373e+04_rb,1.3687e+04_rb,6.6743e+01_rb/)\n      kbo(:, 1,45,15) = (/ &\n     &2.5020e+04_rb,1.8765e+04_rb,1.2510e+04_rb,6.2554e+03_rb,9.2249e+01_rb/)\n      kbo(:, 2,45,15) = (/ &\n     &3.2921e+04_rb,2.4691e+04_rb,1.6461e+04_rb,8.2305e+03_rb,8.5687e+01_rb/)\n      kbo(:, 3,45,15) = (/ &\n     &4.1630e+04_rb,3.1222e+04_rb,2.0815e+04_rb,1.0408e+04_rb,7.9854e+01_rb/)\n      kbo(:, 4,45,15) = (/ &\n     &5.0934e+04_rb,3.8200e+04_rb,2.5467e+04_rb,1.2734e+04_rb,7.3688e+01_rb/)\n      kbo(:, 5,45,15) = (/ &\n     &6.0623e+04_rb,4.5467e+04_rb,3.0312e+04_rb,1.5156e+04_rb,6.8450e+01_rb/)\n      kbo(:, 1,46,15) = (/ &\n     &2.6462e+04_rb,1.9847e+04_rb,1.3231e+04_rb,6.6159e+03_rb,9.5173e+01_rb/)\n      kbo(:, 2,46,15) = (/ &\n     &3.5388e+04_rb,2.6541e+04_rb,1.7694e+04_rb,8.8474e+03_rb,8.8256e+01_rb/)\n      kbo(:, 3,46,15) = (/ &\n     &4.5343e+04_rb,3.4008e+04_rb,2.2672e+04_rb,1.1336e+04_rb,8.2143e+01_rb/)\n      kbo(:, 4,46,15) = (/ &\n     &5.6094e+04_rb,4.2071e+04_rb,2.8047e+04_rb,1.4024e+04_rb,7.5728e+01_rb/)\n      kbo(:, 5,46,15) = (/ &\n     &6.7389e+04_rb,5.0542e+04_rb,3.3695e+04_rb,1.6848e+04_rb,7.0196e+01_rb/)\n      kbo(:, 1,47,15) = (/ &\n     &2.7156e+04_rb,2.0367e+04_rb,1.3578e+04_rb,6.7894e+03_rb,9.8564e+01_rb/)\n      kbo(:, 2,47,15) = (/ &\n     &3.7028e+04_rb,2.7771e+04_rb,1.8514e+04_rb,9.2574e+03_rb,9.1210e+01_rb/)\n      kbo(:, 3,47,15) = (/ &\n     &4.8225e+04_rb,3.6169e+04_rb,2.4113e+04_rb,1.2057e+04_rb,8.4753e+01_rb/)\n      kbo(:, 4,47,15) = (/ &\n     &6.0453e+04_rb,4.5340e+04_rb,3.0227e+04_rb,1.5114e+04_rb,7.8168e+01_rb/)\n      kbo(:, 5,47,15) = (/ &\n     &7.3441e+04_rb,5.5081e+04_rb,3.6721e+04_rb,1.8361e+04_rb,7.1964e+01_rb/)\n      kbo(:, 1,48,15) = (/ &\n     &2.8408e+04_rb,2.1306e+04_rb,1.4204e+04_rb,7.1024e+03_rb,1.0210e+02_rb/)\n      kbo(:, 2,48,15) = (/ &\n     &3.9561e+04_rb,2.9671e+04_rb,1.9781e+04_rb,9.8907e+03_rb,9.4282e+01_rb/)\n      kbo(:, 3,48,15) = (/ &\n     &5.2433e+04_rb,3.9325e+04_rb,2.6217e+04_rb,1.3109e+04_rb,8.7454e+01_rb/)\n      kbo(:, 4,48,15) = (/ &\n     &6.6685e+04_rb,5.0014e+04_rb,3.3343e+04_rb,1.6672e+04_rb,8.0648e+01_rb/)\n      kbo(:, 5,48,15) = (/ &\n     &8.1969e+04_rb,6.1477e+04_rb,4.0985e+04_rb,2.0493e+04_rb,7.3773e+01_rb/)\n      kbo(:, 1,49,15) = (/ &\n     &3.0665e+04_rb,2.2999e+04_rb,1.5333e+04_rb,7.6665e+03_rb,1.0579e+02_rb/)\n      kbo(:, 2,49,15) = (/ &\n     &4.3701e+04_rb,3.2776e+04_rb,2.1851e+04_rb,1.0926e+04_rb,9.7512e+01_rb/)\n      kbo(:, 3,49,15) = (/ &\n     &5.9013e+04_rb,4.4260e+04_rb,2.9506e+04_rb,1.4753e+04_rb,9.0273e+01_rb/)\n      kbo(:, 4,49,15) = (/ &\n     &7.6235e+04_rb,5.7177e+04_rb,3.8118e+04_rb,1.9059e+04_rb,8.3012e+01_rb/)\n      kbo(:, 5,49,15) = (/ &\n     &9.4928e+04_rb,7.1196e+04_rb,4.7464e+04_rb,2.3732e+04_rb,7.5643e+01_rb/)\n      kbo(:, 1,50,15) = (/ &\n     &3.1512e+04_rb,2.3634e+04_rb,1.5756e+04_rb,7.8783e+03_rb,1.0944e+02_rb/)\n      kbo(:, 2,50,15) = (/ &\n     &4.5989e+04_rb,3.4492e+04_rb,2.2995e+04_rb,1.1498e+04_rb,1.0069e+02_rb/)\n      kbo(:, 3,50,15) = (/ &\n     &6.3288e+04_rb,4.7466e+04_rb,3.1644e+04_rb,1.5822e+04_rb,9.3050e+01_rb/)\n      kbo(:, 4,50,15) = (/ &\n     &8.3061e+04_rb,6.2296e+04_rb,4.1531e+04_rb,2.0766e+04_rb,8.5379e+01_rb/)\n      kbo(:, 5,50,15) = (/ &\n     &1.0477e+05_rb,7.8579e+04_rb,5.2386e+04_rb,2.6193e+04_rb,7.7745e+01_rb/)\n      kbo(:, 1,51,15) = (/ &\n     &3.1512e+04_rb,2.3634e+04_rb,1.5756e+04_rb,7.8783e+03_rb,1.1317e+02_rb/)\n      kbo(:, 2,51,15) = (/ &\n     &4.7162e+04_rb,3.5373e+04_rb,2.3581e+04_rb,1.1791e+04_rb,1.0391e+02_rb/)\n      kbo(:, 3,51,15) = (/ &\n     &6.6209e+04_rb,4.9657e+04_rb,3.3105e+04_rb,1.6553e+04_rb,9.5852e+01_rb/)\n      kbo(:, 4,51,15) = (/ &\n     &8.8316e+04_rb,6.6238e+04_rb,4.4164e+04_rb,2.2080e+04_rb,8.8232e+01_rb/)\n      kbo(:, 5,51,15) = (/ &\n     &1.1292e+05_rb,8.4693e+04_rb,5.6462e+04_rb,2.8231e+04_rb,8.0003e+01_rb/)\n      kbo(:, 1,52,15) = (/ &\n     &3.2076e+04_rb,2.4057e+04_rb,1.6038e+04_rb,8.0198e+03_rb,1.1706e+02_rb/)\n      kbo(:, 2,52,15) = (/ &\n     &4.9342e+04_rb,3.7006e+04_rb,2.4671e+04_rb,1.2336e+04_rb,1.0727e+02_rb/)\n      kbo(:, 3,52,15) = (/ &\n     &7.0777e+04_rb,5.3083e+04_rb,3.5389e+04_rb,1.7695e+04_rb,9.8793e+01_rb/)\n      kbo(:, 4,52,15) = (/ &\n     &9.6072e+04_rb,7.2054e+04_rb,4.8037e+04_rb,2.4019e+04_rb,9.0662e+01_rb/)\n      kbo(:, 5,52,15) = (/ &\n     &1.2464e+05_rb,9.3484e+04_rb,6.2323e+04_rb,3.1162e+04_rb,8.2138e+01_rb/)\n      kbo(:, 1,53,15) = (/ &\n     &3.3608e+04_rb,2.5207e+04_rb,1.6805e+04_rb,8.4025e+03_rb,1.2114e+02_rb/)\n      kbo(:, 2,53,15) = (/ &\n     &5.3290e+04_rb,3.9968e+04_rb,2.6645e+04_rb,1.3323e+04_rb,1.1081e+02_rb/)\n      kbo(:, 3,53,15) = (/ &\n     &7.8269e+04_rb,5.8702e+04_rb,3.9135e+04_rb,1.9568e+04_rb,1.0185e+02_rb/)\n      kbo(:, 4,53,15) = (/ &\n     &1.0824e+05_rb,8.1183e+04_rb,5.4123e+04_rb,2.7062e+04_rb,9.3093e+01_rb/)\n      kbo(:, 5,53,15) = (/ &\n     &1.4266e+05_rb,1.0700e+05_rb,7.1333e+04_rb,3.5667e+04_rb,8.4356e+01_rb/)\n      kbo(:, 1,54,15) = (/ &\n     &3.0554e+04_rb,2.2916e+04_rb,1.5277e+04_rb,7.6389e+03_rb,1.2510e+02_rb/)\n      kbo(:, 2,54,15) = (/ &\n     &4.9936e+04_rb,3.7452e+04_rb,2.4968e+04_rb,1.2484e+04_rb,1.1423e+02_rb/)\n      kbo(:, 3,54,15) = (/ &\n     &7.5079e+04_rb,5.6309e+04_rb,3.7540e+04_rb,1.8770e+04_rb,1.0480e+02_rb/)\n      kbo(:, 4,54,15) = (/ &\n     &1.0578e+05_rb,7.9333e+04_rb,5.2889e+04_rb,2.6445e+04_rb,9.5981e+01_rb/)\n      kbo(:, 5,54,15) = (/ &\n     &1.4151e+05_rb,1.0613e+05_rb,7.0756e+04_rb,3.5378e+04_rb,8.6958e+01_rb/)\n      kbo(:, 1,55,15) = (/ &\n     &2.5242e+04_rb,1.8932e+04_rb,1.2621e+04_rb,6.3108e+03_rb,1.2910e+02_rb/)\n      kbo(:, 2,55,15) = (/ &\n     &4.2561e+04_rb,3.1921e+04_rb,2.1281e+04_rb,1.0641e+04_rb,1.1763e+02_rb/)\n      kbo(:, 3,55,15) = (/ &\n     &6.5579e+04_rb,4.9184e+04_rb,3.2790e+04_rb,1.6395e+04_rb,1.0775e+02_rb/)\n      kbo(:, 4,55,15) = (/ &\n     &9.4190e+04_rb,7.0643e+04_rb,4.7095e+04_rb,2.3548e+04_rb,9.9196e+01_rb/)\n      kbo(:, 5,55,15) = (/ &\n     &1.2798e+05_rb,9.5983e+04_rb,6.3989e+04_rb,3.1995e+04_rb,9.0570e+01_rb/)\n      kbo(:, 1,56,15) = (/ &\n     &2.0611e+04_rb,1.5459e+04_rb,1.0306e+04_rb,5.1530e+03_rb,1.3327e+02_rb/)\n      kbo(:, 2,56,15) = (/ &\n     &3.5961e+04_rb,2.6970e+04_rb,1.7980e+04_rb,8.9902e+03_rb,1.2118e+02_rb/)\n      kbo(:, 3,56,15) = (/ &\n     &5.6902e+04_rb,4.2676e+04_rb,2.8451e+04_rb,1.4227e+04_rb,1.1083e+02_rb/)\n      kbo(:, 4,56,15) = (/ &\n     &8.3426e+04_rb,6.2569e+04_rb,4.1713e+04_rb,2.0856e+04_rb,1.0187e+02_rb/)\n      kbo(:, 5,56,15) = (/ &\n     &1.1523e+05_rb,8.6424e+04_rb,5.7616e+04_rb,2.8808e+04_rb,9.3771e+01_rb/)\n      kbo(:, 1,57,15) = (/ &\n     &1.6610e+04_rb,1.2457e+04_rb,8.3049e+03_rb,4.1526e+03_rb,1.3769e+02_rb/)\n      kbo(:, 2,57,15) = (/ &\n     &3.0089e+04_rb,2.2567e+04_rb,1.5044e+04_rb,7.5226e+03_rb,1.2490e+02_rb/)\n      kbo(:, 3,57,15) = (/ &\n     &4.8979e+04_rb,3.6734e+04_rb,2.4489e+04_rb,1.2245e+04_rb,1.1405e+02_rb/)\n      kbo(:, 4,57,15) = (/ &\n     &7.3462e+04_rb,5.5096e+04_rb,3.6731e+04_rb,1.8365e+04_rb,1.0465e+02_rb/)\n      kbo(:, 5,57,15) = (/ &\n     &1.0326e+05_rb,7.7443e+04_rb,5.1628e+04_rb,2.5814e+04_rb,9.6480e+01_rb/)\n      kbo(:, 1,58,15) = (/ &\n     &3.5201e+03_rb,3.2274e+03_rb,2.7672e+03_rb,1.9382e+03_rb,1.4211e+02_rb/)\n      kbo(:, 2,58,15) = (/ &\n     &6.6315e+03_rb,6.0801e+03_rb,5.2132e+03_rb,3.6514e+03_rb,1.2863e+02_rb/)\n      kbo(:, 3,58,15) = (/ &\n     &1.1117e+04_rb,1.0193e+04_rb,8.7395e+03_rb,6.1212e+03_rb,1.1722e+02_rb/)\n      kbo(:, 4,58,15) = (/ &\n     &1.7057e+04_rb,1.5638e+04_rb,1.3409e+04_rb,9.3914e+03_rb,1.0740e+02_rb/)\n      kbo(:, 5,58,15) = (/ &\n     &2.4410e+04_rb,2.2380e+04_rb,1.9189e+04_rb,1.3440e+04_rb,9.8884e+01_rb/)\n      kbo(:, 1,59,15) = (/ &\n     &3.7699e+03_rb,3.2918e+03_rb,2.6257e+03_rb,1.6340e+03_rb,1.4398e+02_rb/)\n      kbo(:, 2,59,15) = (/ &\n     &7.2215e+03_rb,6.3055e+03_rb,5.0297e+03_rb,3.1299e+03_rb,1.3019e+02_rb/)\n      kbo(:, 3,59,15) = (/ &\n     &1.2258e+04_rb,1.0703e+04_rb,8.5377e+03_rb,5.3128e+03_rb,1.1856e+02_rb/)\n      kbo(:, 4,59,15) = (/ &\n     &1.8986e+04_rb,1.6578e+04_rb,1.3224e+04_rb,8.2288e+03_rb,1.0855e+02_rb/)\n      kbo(:, 5,59,15) = (/ &\n     &2.7379e+04_rb,2.3906e+04_rb,1.9069e+04_rb,1.1866e+04_rb,9.9884e+01_rb/)\n      kbo(:, 1,13,16) = (/ &\n     &1.4818e+04_rb,1.1113e+04_rb,7.4089e+03_rb,3.7045e+03_rb,1.1371e+01_rb/)\n      kbo(:, 2,13,16) = (/ &\n     &2.0739e+04_rb,1.5555e+04_rb,1.0370e+04_rb,5.1851e+03_rb,1.0985e+01_rb/)\n      kbo(:, 3,13,16) = (/ &\n     &2.7562e+04_rb,2.0672e+04_rb,1.3781e+04_rb,6.8906e+03_rb,1.0720e+01_rb/)\n      kbo(:, 4,13,16) = (/ &\n     &3.5104e+04_rb,2.6328e+04_rb,1.7552e+04_rb,8.7760e+03_rb,1.0594e+01_rb/)\n      kbo(:, 5,13,16) = (/ &\n     &4.3187e+04_rb,3.2390e+04_rb,2.1594e+04_rb,1.0797e+04_rb,1.0676e+01_rb/)\n      kbo(:, 1,14,16) = (/ &\n     &1.1265e+04_rb,8.4488e+03_rb,5.6325e+03_rb,2.8163e+03_rb,1.3004e+01_rb/)\n      kbo(:, 2,14,16) = (/ &\n     &1.5638e+04_rb,1.1729e+04_rb,7.8191e+03_rb,3.9096e+03_rb,1.2745e+01_rb/)\n      kbo(:, 3,14,16) = (/ &\n     &2.0632e+04_rb,1.5474e+04_rb,1.0316e+04_rb,5.1580e+03_rb,1.2511e+01_rb/)\n      kbo(:, 4,14,16) = (/ &\n     &2.6158e+04_rb,1.9619e+04_rb,1.3079e+04_rb,6.5395e+03_rb,1.2514e+01_rb/)\n      kbo(:, 5,14,16) = (/ &\n     &3.2161e+04_rb,2.4120e+04_rb,1.6080e+04_rb,8.0400e+03_rb,1.2574e+01_rb/)\n      kbo(:, 1,15,16) = (/ &\n     &8.6626e+03_rb,6.4970e+03_rb,4.3314e+03_rb,2.1657e+03_rb,1.5047e+01_rb/)\n      kbo(:, 2,15,16) = (/ &\n     &1.1944e+04_rb,8.8995e+03_rb,5.9720e+03_rb,2.9860e+03_rb,1.4804e+01_rb/)\n      kbo(:, 3,15,16) = (/ &\n     &1.5730e+04_rb,1.1798e+04_rb,7.8651e+03_rb,3.9326e+03_rb,1.4621e+01_rb/)\n      kbo(:, 4,15,16) = (/ &\n     &1.9953e+04_rb,1.4965e+04_rb,9.9768e+03_rb,4.9885e+03_rb,1.4704e+01_rb/)\n      kbo(:, 5,15,16) = (/ &\n     &2.4510e+04_rb,1.8382e+04_rb,1.2255e+04_rb,6.1276e+03_rb,1.4738e+01_rb/)\n      kbo(:, 1,16,16) = (/ &\n     &7.9177e+03_rb,5.9383e+03_rb,3.9589e+03_rb,1.9795e+03_rb,1.7379e+01_rb/)\n      kbo(:, 2,16,16) = (/ &\n     &1.0905e+04_rb,8.1790e+03_rb,5.4527e+03_rb,2.7264e+03_rb,1.7087e+01_rb/)\n      kbo(:, 3,16,16) = (/ &\n     &1.4336e+04_rb,1.0752e+04_rb,7.1680e+03_rb,3.5840e+03_rb,1.7079e+01_rb/)\n      kbo(:, 4,16,16) = (/ &\n     &1.8134e+04_rb,1.3600e+04_rb,9.0670e+03_rb,4.5335e+03_rb,1.7162e+01_rb/)\n      kbo(:, 5,16,16) = (/ &\n     &2.2206e+04_rb,1.6655e+04_rb,1.1103e+04_rb,5.5517e+03_rb,1.7193e+01_rb/)\n      kbo(:, 1,17,16) = (/ &\n     &7.5178e+03_rb,5.6384e+03_rb,3.7589e+03_rb,1.8795e+03_rb,1.9948e+01_rb/)\n      kbo(:, 2,17,16) = (/ &\n     &1.0311e+04_rb,7.7335e+03_rb,5.1557e+03_rb,2.5779e+03_rb,1.9796e+01_rb/)\n      kbo(:, 3,17,16) = (/ &\n     &1.3498e+04_rb,1.0124e+04_rb,6.7488e+03_rb,3.3746e+03_rb,1.9858e+01_rb/)\n      kbo(:, 4,17,16) = (/ &\n     &1.6996e+04_rb,1.2747e+04_rb,8.4978e+03_rb,4.2489e+03_rb,1.9944e+01_rb/)\n      kbo(:, 5,17,16) = (/ &\n     &2.0726e+04_rb,1.5544e+04_rb,1.0363e+04_rb,5.1815e+03_rb,1.9956e+01_rb/)\n      kbo(:, 1,18,16) = (/ &\n     &7.2889e+03_rb,5.4667e+03_rb,3.6445e+03_rb,1.8223e+03_rb,2.3259e+01_rb/)\n      kbo(:, 2,18,16) = (/ &\n     &9.9353e+03_rb,7.4515e+03_rb,4.9677e+03_rb,2.4839e+03_rb,2.3214e+01_rb/)\n      kbo(:, 3,18,16) = (/ &\n     &1.2928e+04_rb,9.6956e+03_rb,6.4638e+03_rb,3.2319e+03_rb,2.3116e+01_rb/)\n      kbo(:, 4,18,16) = (/ &\n     &1.6189e+04_rb,1.2142e+04_rb,8.0944e+03_rb,4.0472e+03_rb,2.3106e+01_rb/)\n      kbo(:, 5,18,16) = (/ &\n     &1.9640e+04_rb,1.4730e+04_rb,9.8201e+03_rb,4.9101e+03_rb,2.3045e+01_rb/)\n      kbo(:, 1,19,16) = (/ &\n     &6.8892e+03_rb,5.1669e+03_rb,3.4446e+03_rb,1.7223e+03_rb,2.7312e+01_rb/)\n      kbo(:, 2,19,16) = (/ &\n     &9.3210e+03_rb,6.9908e+03_rb,4.6605e+03_rb,2.3303e+03_rb,2.7199e+01_rb/)\n      kbo(:, 3,19,16) = (/ &\n     &1.2050e+04_rb,9.0375e+03_rb,6.0250e+03_rb,3.0125e+03_rb,2.6980e+01_rb/)\n      kbo(:, 4,19,16) = (/ &\n     &1.5046e+04_rb,1.1284e+04_rb,7.5228e+03_rb,3.7614e+03_rb,2.6786e+01_rb/)\n      kbo(:, 5,19,16) = (/ &\n     &1.8241e+04_rb,1.3681e+04_rb,9.1205e+03_rb,4.5603e+03_rb,2.6595e+01_rb/)\n      kbo(:, 1,20,16) = (/ &\n     &7.0094e+03_rb,5.2570e+03_rb,3.5047e+03_rb,1.7524e+03_rb,3.2009e+01_rb/)\n      kbo(:, 2,20,16) = (/ &\n     &9.4364e+03_rb,7.0773e+03_rb,4.7182e+03_rb,2.3591e+03_rb,3.1788e+01_rb/)\n      kbo(:, 3,20,16) = (/ &\n     &1.2173e+04_rb,9.1297e+03_rb,6.0865e+03_rb,3.0433e+03_rb,3.1450e+01_rb/)\n      kbo(:, 4,20,16) = (/ &\n     &1.5155e+04_rb,1.1367e+04_rb,7.5778e+03_rb,3.7889e+03_rb,3.1059e+01_rb/)\n      kbo(:, 5,20,16) = (/ &\n     &1.8307e+04_rb,1.3730e+04_rb,9.1534e+03_rb,4.5767e+03_rb,3.0674e+01_rb/)\n      kbo(:, 1,21,16) = (/ &\n     &7.3306e+03_rb,5.4980e+03_rb,3.6654e+03_rb,1.8327e+03_rb,3.7355e+01_rb/)\n      kbo(:, 2,21,16) = (/ &\n     &9.8238e+03_rb,7.3679e+03_rb,4.9119e+03_rb,2.4560e+03_rb,3.6998e+01_rb/)\n      kbo(:, 3,21,16) = (/ &\n     &1.2609e+04_rb,9.4571e+03_rb,6.3047e+03_rb,3.1524e+03_rb,3.6493e+01_rb/)\n      kbo(:, 4,21,16) = (/ &\n     &1.5617e+04_rb,1.1713e+04_rb,7.8084e+03_rb,3.9042e+03_rb,3.5962e+01_rb/)\n      kbo(:, 5,21,16) = (/ &\n     &1.8773e+04_rb,1.4079e+04_rb,9.3863e+03_rb,4.6932e+03_rb,3.5346e+01_rb/)\n      kbo(:, 1,22,16) = (/ &\n     &7.9668e+03_rb,5.9751e+03_rb,3.9834e+03_rb,1.9917e+03_rb,4.3325e+01_rb/)\n      kbo(:, 2,22,16) = (/ &\n     &1.0571e+04_rb,7.9286e+03_rb,5.2858e+03_rb,2.6429e+03_rb,4.2793e+01_rb/)\n      kbo(:, 3,22,16) = (/ &\n     &1.3449e+04_rb,1.0087e+04_rb,6.7244e+03_rb,3.3622e+03_rb,4.2221e+01_rb/)\n      kbo(:, 4,22,16) = (/ &\n     &1.6524e+04_rb,1.2393e+04_rb,8.2619e+03_rb,4.1310e+03_rb,4.1607e+01_rb/)\n      kbo(:, 5,22,16) = (/ &\n     &1.9754e+04_rb,1.4816e+04_rb,9.8771e+03_rb,4.9386e+03_rb,4.0888e+01_rb/)\n      kbo(:, 1,23,16) = (/ &\n     &8.6210e+03_rb,6.4658e+03_rb,4.3105e+03_rb,2.1553e+03_rb,5.0428e+01_rb/)\n      kbo(:, 2,23,16) = (/ &\n     &1.1316e+04_rb,8.4866e+03_rb,5.6578e+03_rb,2.8289e+03_rb,4.9764e+01_rb/)\n      kbo(:, 3,23,16) = (/ &\n     &1.4291e+04_rb,1.0718e+04_rb,7.1454e+03_rb,3.5727e+03_rb,4.9049e+01_rb/)\n      kbo(:, 4,23,16) = (/ &\n     &1.7469e+04_rb,1.3102e+04_rb,8.7344e+03_rb,4.3672e+03_rb,4.8146e+01_rb/)\n      kbo(:, 5,23,16) = (/ &\n     &2.0774e+04_rb,1.5580e+04_rb,1.0387e+04_rb,5.1935e+03_rb,4.7113e+01_rb/)\n      kbo(:, 1,24,16) = (/ &\n     &9.2015e+03_rb,6.9011e+03_rb,4.6008e+03_rb,2.3004e+03_rb,5.8527e+01_rb/)\n      kbo(:, 2,24,16) = (/ &\n     &1.1985e+04_rb,8.9232e+03_rb,5.9928e+03_rb,2.9964e+03_rb,5.7489e+01_rb/)\n      kbo(:, 3,24,16) = (/ &\n     &1.5026e+04_rb,1.1269e+04_rb,7.5129e+03_rb,3.7565e+03_rb,5.6333e+01_rb/)\n      kbo(:, 4,24,16) = (/ &\n     &1.8238e+04_rb,1.3679e+04_rb,9.1191e+03_rb,4.5596e+03_rb,5.5030e+01_rb/)\n      kbo(:, 5,24,16) = (/ &\n     &2.1539e+04_rb,1.6154e+04_rb,1.0769e+04_rb,5.3848e+03_rb,5.3599e+01_rb/)\n      kbo(:, 1,25,16) = (/ &\n     &9.9033e+03_rb,7.4275e+03_rb,4.9517e+03_rb,2.4759e+03_rb,6.7091e+01_rb/)\n      kbo(:, 2,25,16) = (/ &\n     &1.2768e+04_rb,9.5762e+03_rb,6.3841e+03_rb,3.1921e+03_rb,6.5542e+01_rb/)\n      kbo(:, 3,25,16) = (/ &\n     &1.5871e+04_rb,1.1903e+04_rb,7.9355e+03_rb,3.9678e+03_rb,6.3831e+01_rb/)\n      kbo(:, 4,25,16) = (/ &\n     &1.9110e+04_rb,1.4333e+04_rb,9.5551e+03_rb,4.7776e+03_rb,6.2029e+01_rb/)\n      kbo(:, 5,25,16) = (/ &\n     &2.2417e+04_rb,1.6813e+04_rb,1.1208e+04_rb,5.6043e+03_rb,6.0136e+01_rb/)\n      kbo(:, 1,26,16) = (/ &\n     &1.0777e+04_rb,8.0825e+03_rb,5.3884e+03_rb,2.6942e+03_rb,7.5807e+01_rb/)\n      kbo(:, 2,26,16) = (/ &\n     &1.3749e+04_rb,1.0312e+04_rb,6.8746e+03_rb,3.4373e+03_rb,7.3586e+01_rb/)\n      kbo(:, 3,26,16) = (/ &\n     &1.6921e+04_rb,1.2690e+04_rb,8.4603e+03_rb,4.2302e+03_rb,7.1246e+01_rb/)\n      kbo(:, 4,26,16) = (/ &\n     &2.0227e+04_rb,1.5170e+04_rb,1.0114e+04_rb,5.0568e+03_rb,6.8870e+01_rb/)\n      kbo(:, 5,26,16) = (/ &\n     &2.3585e+04_rb,1.7688e+04_rb,1.1792e+04_rb,5.8962e+03_rb,6.6424e+01_rb/)\n      kbo(:, 1,27,16) = (/ &\n     &1.2052e+04_rb,9.0388e+03_rb,6.0259e+03_rb,3.0130e+03_rb,8.4316e+01_rb/)\n      kbo(:, 2,27,16) = (/ &\n     &1.5222e+04_rb,1.1417e+04_rb,7.6111e+03_rb,3.8056e+03_rb,8.1386e+01_rb/)\n      kbo(:, 3,27,16) = (/ &\n     &1.8590e+04_rb,1.3942e+04_rb,9.2948e+03_rb,4.6474e+03_rb,7.8348e+01_rb/)\n      kbo(:, 4,27,16) = (/ &\n     &2.2058e+04_rb,1.6543e+04_rb,1.1029e+04_rb,5.5145e+03_rb,7.5340e+01_rb/)\n      kbo(:, 5,27,16) = (/ &\n     &2.5550e+04_rb,1.9162e+04_rb,1.2775e+04_rb,6.3875e+03_rb,7.2329e+01_rb/)\n      kbo(:, 1,28,16) = (/ &\n     &1.3724e+04_rb,1.0293e+04_rb,6.8620e+03_rb,3.4310e+03_rb,9.2351e+01_rb/)\n      kbo(:, 2,28,16) = (/ &\n     &1.7171e+04_rb,1.2878e+04_rb,8.5855e+03_rb,4.2928e+03_rb,8.8670e+01_rb/)\n      kbo(:, 3,28,16) = (/ &\n     &2.0788e+04_rb,1.5591e+04_rb,1.0394e+04_rb,5.1970e+03_rb,8.4928e+01_rb/)\n      kbo(:, 4,28,16) = (/ &\n     &2.4487e+04_rb,1.8365e+04_rb,1.2244e+04_rb,6.1218e+03_rb,8.1255e+01_rb/)\n      kbo(:, 5,28,16) = (/ &\n     &2.8173e+04_rb,2.1130e+04_rb,1.4087e+04_rb,7.0433e+03_rb,7.7666e+01_rb/)\n      kbo(:, 1,29,16) = (/ &\n     &1.6469e+04_rb,1.2352e+04_rb,8.2344e+03_rb,4.1172e+03_rb,9.9675e+01_rb/)\n      kbo(:, 2,29,16) = (/ &\n     &2.0402e+04_rb,1.5302e+04_rb,1.0201e+04_rb,5.1006e+03_rb,9.5182e+01_rb/)\n      kbo(:, 3,29,16) = (/ &\n     &2.4499e+04_rb,1.8374e+04_rb,1.2249e+04_rb,6.1246e+03_rb,9.0759e+01_rb/)\n      kbo(:, 4,29,16) = (/ &\n     &2.8632e+04_rb,2.1474e+04_rb,1.4316e+04_rb,7.1579e+03_rb,8.6444e+01_rb/)\n      kbo(:, 5,29,16) = (/ &\n     &3.2723e+04_rb,2.4542e+04_rb,1.6361e+04_rb,8.1807e+03_rb,8.2287e+01_rb/)\n      kbo(:, 1,30,16) = (/ &\n     &2.0078e+04_rb,1.5058e+04_rb,1.0039e+04_rb,5.0195e+03_rb,1.0609e+02_rb/)\n      kbo(:, 2,30,16) = (/ &\n     &2.4638e+04_rb,1.8479e+04_rb,1.2319e+04_rb,6.1595e+03_rb,1.0084e+02_rb/)\n      kbo(:, 3,30,16) = (/ &\n     &2.9329e+04_rb,2.1997e+04_rb,1.4664e+04_rb,7.3322e+03_rb,9.5740e+01_rb/)\n      kbo(:, 4,30,16) = (/ &\n     &3.4034e+04_rb,2.5525e+04_rb,1.7017e+04_rb,8.5085e+03_rb,9.0849e+01_rb/)\n      kbo(:, 5,30,16) = (/ &\n     &3.8657e+04_rb,2.8993e+04_rb,1.9329e+04_rb,9.6643e+03_rb,8.6169e+01_rb/)\n      kbo(:, 1,31,16) = (/ &\n     &2.5548e+04_rb,1.9161e+04_rb,1.2774e+04_rb,6.3870e+03_rb,1.1146e+02_rb/)\n      kbo(:, 2,31,16) = (/ &\n     &3.1052e+04_rb,2.3289e+04_rb,1.5526e+04_rb,7.7630e+03_rb,1.0555e+02_rb/)\n      kbo(:, 3,31,16) = (/ &\n     &3.6674e+04_rb,2.7505e+04_rb,1.8172e+04_rb,9.1684e+03_rb,9.9833e+01_rb/)\n      kbo(:, 4,31,16) = (/ &\n     &4.2278e+04_rb,3.1708e+04_rb,2.1139e+04_rb,1.0569e+04_rb,9.4413e+01_rb/)\n      kbo(:, 5,31,16) = (/ &\n     &4.7725e+04_rb,3.5794e+04_rb,2.3863e+04_rb,1.1931e+04_rb,8.9289e+01_rb/)\n      kbo(:, 1,32,16) = (/ &\n     &3.2648e+04_rb,2.4486e+04_rb,1.6324e+04_rb,8.1620e+03_rb,1.1579e+02_rb/)\n      kbo(:, 2,32,16) = (/ &\n     &3.9333e+04_rb,2.9500e+04_rb,1.9666e+04_rb,9.8333e+03_rb,1.0928e+02_rb/)\n      kbo(:, 3,32,16) = (/ &\n     &4.6114e+04_rb,3.4586e+04_rb,2.3057e+04_rb,1.1529e+04_rb,1.0305e+02_rb/)\n      kbo(:, 4,32,16) = (/ &\n     &5.2809e+04_rb,3.9607e+04_rb,2.6404e+04_rb,1.3202e+04_rb,9.7184e+01_rb/)\n      kbo(:, 5,32,16) = (/ &\n     &5.9284e+04_rb,4.4463e+04_rb,2.9311e+04_rb,1.4821e+04_rb,9.1687e+01_rb/)\n      kbo(:, 1,33,16) = (/ &\n     &4.2212e+04_rb,3.1659e+04_rb,2.1106e+04_rb,1.0553e+04_rb,1.1913e+02_rb/)\n      kbo(:, 2,33,16) = (/ &\n     &5.0427e+04_rb,3.7820e+04_rb,2.5214e+04_rb,1.2607e+04_rb,1.1210e+02_rb/)\n      kbo(:, 3,33,16) = (/ &\n     &5.8684e+04_rb,4.4013e+04_rb,2.9342e+04_rb,1.4671e+04_rb,1.0546e+02_rb/)\n      kbo(:, 4,33,16) = (/ &\n     &6.6793e+04_rb,5.0095e+04_rb,3.3396e+04_rb,1.6698e+04_rb,9.9210e+01_rb/)\n      kbo(:, 5,33,16) = (/ &\n     &7.4575e+04_rb,5.5932e+04_rb,3.7288e+04_rb,1.8644e+04_rb,9.3412e+01_rb/)\n      kbo(:, 1,34,16) = (/ &\n     &5.2540e+04_rb,3.9405e+04_rb,2.6270e+04_rb,1.3135e+04_rb,1.2180e+02_rb/)\n      kbo(:, 2,34,16) = (/ &\n     &6.2330e+04_rb,4.6748e+04_rb,3.1165e+04_rb,1.5582e+04_rb,1.1436e+02_rb/)\n      kbo(:, 3,34,16) = (/ &\n     &7.2093e+04_rb,5.4070e+04_rb,3.6046e+04_rb,1.8023e+04_rb,1.0734e+02_rb/)\n      kbo(:, 4,34,16) = (/ &\n     &8.1593e+04_rb,6.1194e+04_rb,4.0796e+04_rb,2.0398e+04_rb,1.0080e+02_rb/)\n      kbo(:, 5,34,16) = (/ &\n     &9.0697e+04_rb,6.8023e+04_rb,4.5349e+04_rb,2.2674e+04_rb,9.4753e+01_rb/)\n      kbo(:, 1,35,16) = (/ &\n     &6.4051e+04_rb,4.8038e+04_rb,3.2026e+04_rb,1.6013e+04_rb,1.2446e+02_rb/)\n      kbo(:, 2,35,16) = (/ &\n     &7.5644e+04_rb,5.6733e+04_rb,3.7822e+04_rb,1.8911e+04_rb,1.1662e+02_rb/)\n      kbo(:, 3,35,16) = (/ &\n     &8.7172e+04_rb,6.5379e+04_rb,4.3586e+04_rb,2.1792e+04_rb,1.0929e+02_rb/)\n      kbo(:, 4,35,16) = (/ &\n     &9.8380e+04_rb,7.3786e+04_rb,4.9191e+04_rb,2.4595e+04_rb,1.0249e+02_rb/)\n      kbo(:, 5,35,16) = (/ &\n     &1.0903e+05_rb,8.1776e+04_rb,5.4517e+04_rb,2.7259e+04_rb,9.6197e+01_rb/)\n      kbo(:, 1,36,16) = (/ &\n     &7.5878e+04_rb,5.6908e+04_rb,3.7939e+04_rb,1.8969e+04_rb,1.2742e+02_rb/)\n      kbo(:, 2,36,16) = (/ &\n     &8.9471e+04_rb,6.7103e+04_rb,4.4735e+04_rb,2.2368e+04_rb,1.1920e+02_rb/)\n      kbo(:, 3,36,16) = (/ &\n     &1.0302e+05_rb,7.7263e+04_rb,5.1509e+04_rb,2.5436e+04_rb,1.1154e+02_rb/)\n      kbo(:, 4,36,16) = (/ &\n     &1.1614e+05_rb,8.7108e+04_rb,5.8072e+04_rb,2.9036e+04_rb,1.0445e+02_rb/)\n      kbo(:, 5,36,16) = (/ &\n     &1.2862e+05_rb,9.6465e+04_rb,6.4310e+04_rb,3.2155e+04_rb,9.7922e+01_rb/)\n      kbo(:, 1,37,16) = (/ &\n     &8.5083e+04_rb,6.3812e+04_rb,4.2541e+04_rb,2.1271e+04_rb,1.3125e+02_rb/)\n      kbo(:, 2,37,16) = (/ &\n     &1.0058e+05_rb,7.5436e+04_rb,5.0291e+04_rb,2.5145e+04_rb,1.2185e+02_rb/)\n      kbo(:, 3,37,16) = (/ &\n     &1.1610e+05_rb,8.7073e+04_rb,5.8049e+04_rb,2.9024e+04_rb,1.1457e+02_rb/)\n      kbo(:, 4,37,16) = (/ &\n     &1.3117e+05_rb,9.8374e+04_rb,6.5582e+04_rb,3.2791e+04_rb,1.0715e+02_rb/)\n      kbo(:, 5,37,16) = (/ &\n     &1.4551e+05_rb,1.0913e+05_rb,7.2757e+04_rb,3.6378e+04_rb,1.0034e+02_rb/)\n      kbo(:, 1,38,16) = (/ &\n     &9.5077e+04_rb,7.2333e+04_rb,4.8222e+04_rb,2.4111e+04_rb,1.3486e+02_rb/)\n      kbo(:, 2,38,16) = (/ &\n     &1.1439e+05_rb,8.5793e+04_rb,5.7195e+04_rb,2.8598e+04_rb,1.2580e+02_rb/)\n      kbo(:, 3,38,16) = (/ &\n     &1.3231e+05_rb,9.9236e+04_rb,6.6157e+04_rb,3.3078e+04_rb,1.1743e+02_rb/)\n      kbo(:, 4,38,16) = (/ &\n     &1.4989e+05_rb,1.1242e+05_rb,7.4945e+04_rb,3.7472e+04_rb,1.0969e+02_rb/)\n      kbo(:, 5,38,16) = (/ &\n     &1.6664e+05_rb,1.2498e+05_rb,8.3321e+04_rb,4.1660e+04_rb,1.0261e+02_rb/)\n      kbo(:, 1,39,16) = (/ &\n     &1.1158e+05_rb,8.3685e+04_rb,5.5790e+04_rb,2.7895e+04_rb,1.3820e+02_rb/)\n      kbo(:, 2,39,16) = (/ &\n     &1.3280e+05_rb,9.9602e+04_rb,6.6401e+04_rb,3.3201e+04_rb,1.2875e+02_rb/)\n      kbo(:, 3,39,16) = (/ &\n     &1.5408e+05_rb,1.1556e+05_rb,7.7040e+04_rb,3.8520e+04_rb,1.2007e+02_rb/)\n      kbo(:, 4,39,16) = (/ &\n     &1.7495e+05_rb,1.3121e+05_rb,8.7476e+04_rb,4.3738e+04_rb,1.1204e+02_rb/)\n      kbo(:, 5,39,16) = (/ &\n     &1.9488e+05_rb,1.4616e+05_rb,9.7443e+04_rb,4.8722e+04_rb,1.0472e+02_rb/)\n      kbo(:, 1,40,16) = (/ &\n     &1.1876e+05_rb,8.9071e+04_rb,5.9380e+04_rb,2.9690e+04_rb,1.4235e+02_rb/)\n      kbo(:, 2,40,16) = (/ &\n     &1.4221e+05_rb,1.0666e+05_rb,7.1106e+04_rb,3.5553e+04_rb,1.3244e+02_rb/)\n      kbo(:, 3,40,16) = (/ &\n     &1.6587e+05_rb,1.2440e+05_rb,8.2934e+04_rb,4.1467e+04_rb,1.2341e+02_rb/)\n      kbo(:, 4,40,16) = (/ &\n     &1.8920e+05_rb,1.4190e+05_rb,9.4601e+04_rb,4.7300e+04_rb,1.1506e+02_rb/)\n      kbo(:, 5,40,16) = (/ &\n     &2.1165e+05_rb,1.5874e+05_rb,1.0583e+05_rb,5.2913e+04_rb,1.0743e+02_rb/)\n      kbo(:, 1,41,16) = (/ &\n     &1.2546e+05_rb,9.4099e+04_rb,6.2733e+04_rb,3.1367e+04_rb,1.4657e+02_rb/)\n      kbo(:, 2,41,16) = (/ &\n     &1.5125e+05_rb,1.1344e+05_rb,7.5625e+04_rb,3.7812e+04_rb,1.3531e+02_rb/)\n      kbo(:, 3,41,16) = (/ &\n     &1.7744e+05_rb,1.3308e+05_rb,8.8723e+04_rb,4.4362e+04_rb,1.2676e+02_rb/)\n      kbo(:, 4,41,16) = (/ &\n     &2.0341e+05_rb,1.5256e+05_rb,1.0171e+05_rb,5.0854e+04_rb,1.1810e+02_rb/)\n      kbo(:, 5,41,16) = (/ &\n     &2.2858e+05_rb,1.7144e+05_rb,1.1429e+05_rb,5.7146e+04_rb,1.1015e+02_rb/)\n      kbo(:, 1,42,16) = (/ &\n     &1.3356e+05_rb,1.0017e+05_rb,6.6777e+04_rb,3.3389e+04_rb,1.5077e+02_rb/)\n      kbo(:, 2,42,16) = (/ &\n     &1.6221e+05_rb,1.2166e+05_rb,8.1105e+04_rb,4.0545e+04_rb,1.3986e+02_rb/)\n      kbo(:, 3,42,16) = (/ &\n     &1.9146e+05_rb,1.4359e+05_rb,9.5729e+04_rb,4.7864e+04_rb,1.3005e+02_rb/)\n      kbo(:, 4,42,16) = (/ &\n     &2.1781e+05_rb,1.6546e+05_rb,1.1031e+05_rb,5.5153e+04_rb,1.2109e+02_rb/)\n      kbo(:, 5,42,16) = (/ &\n     &2.4912e+05_rb,1.8684e+05_rb,1.2456e+05_rb,6.2279e+04_rb,1.1284e+02_rb/)\n      kbo(:, 1,43,16) = (/ &\n     &1.4126e+05_rb,1.0594e+05_rb,7.0630e+04_rb,3.5315e+04_rb,1.5567e+02_rb/)\n      kbo(:, 2,43,16) = (/ &\n     &1.7322e+05_rb,1.2992e+05_rb,8.6612e+04_rb,4.3306e+04_rb,1.4408e+02_rb/)\n      kbo(:, 3,43,16) = (/ &\n     &2.0611e+05_rb,1.5458e+05_rb,1.0200e+05_rb,5.1528e+04_rb,1.3385e+02_rb/)\n      kbo(:, 4,43,16) = (/ &\n     &2.3919e+05_rb,1.7940e+05_rb,1.1960e+05_rb,5.9799e+04_rb,1.2454e+02_rb/)\n      kbo(:, 5,43,16) = (/ &\n     &2.7160e+05_rb,2.0370e+05_rb,1.3580e+05_rb,6.7900e+04_rb,1.1596e+02_rb/)\n      kbo(:, 1,44,16) = (/ &\n     &1.5000e+05_rb,1.1250e+05_rb,7.5001e+04_rb,3.7500e+04_rb,1.6094e+02_rb/)\n      kbo(:, 2,44,16) = (/ &\n     &1.8602e+05_rb,1.3952e+05_rb,9.3011e+04_rb,4.6505e+04_rb,1.4866e+02_rb/)\n      kbo(:, 3,44,16) = (/ &\n     &2.2342e+05_rb,1.6756e+05_rb,1.1171e+05_rb,5.5854e+04_rb,1.3792e+02_rb/)\n      kbo(:, 4,44,16) = (/ &\n     &2.6122e+05_rb,1.9592e+05_rb,1.3061e+05_rb,6.5304e+04_rb,1.2823e+02_rb/)\n      kbo(:, 5,44,16) = (/ &\n     &2.9874e+05_rb,2.2406e+05_rb,1.4937e+05_rb,7.4685e+04_rb,1.1932e+02_rb/)\n      kbo(:, 1,45,16) = (/ &\n     &1.6171e+05_rb,1.2128e+05_rb,8.0854e+04_rb,4.0427e+04_rb,1.6635e+02_rb/)\n      kbo(:, 2,45,16) = (/ &\n     &2.0304e+05_rb,1.5228e+05_rb,1.0152e+05_rb,5.0760e+04_rb,1.5336e+02_rb/)\n      kbo(:, 3,45,16) = (/ &\n     &2.4630e+05_rb,1.8473e+05_rb,1.2315e+05_rb,6.1576e+04_rb,1.4204e+02_rb/)\n      kbo(:, 4,45,16) = (/ &\n     &2.9041e+05_rb,2.1781e+05_rb,1.4520e+05_rb,7.2602e+04_rb,1.3193e+02_rb/)\n      kbo(:, 5,45,16) = (/ &\n     &3.3433e+05_rb,2.5074e+05_rb,1.6716e+05_rb,8.3581e+04_rb,1.2271e+02_rb/)\n      kbo(:, 1,46,16) = (/ &\n     &1.7432e+05_rb,1.3074e+05_rb,8.7162e+04_rb,4.3581e+04_rb,1.7227e+02_rb/)\n      kbo(:, 2,46,16) = (/ &\n     &2.2186e+05_rb,1.6640e+05_rb,1.1093e+05_rb,5.5465e+04_rb,1.5849e+02_rb/)\n      kbo(:, 3,46,16) = (/ &\n     &2.7221e+05_rb,2.0416e+05_rb,1.3611e+05_rb,6.8053e+04_rb,1.4648e+02_rb/)\n      kbo(:, 4,46,16) = (/ &\n     &3.2411e+05_rb,2.4308e+05_rb,1.6205e+05_rb,8.1026e+04_rb,1.3593e+02_rb/)\n      kbo(:, 5,46,16) = (/ &\n     &3.7610e+05_rb,2.8208e+05_rb,1.8805e+05_rb,9.4025e+04_rb,1.2634e+02_rb/)\n      kbo(:, 1,47,16) = (/ &\n     &1.8289e+05_rb,1.3717e+05_rb,9.1447e+04_rb,4.5723e+04_rb,1.7909e+02_rb/)\n      kbo(:, 2,47,16) = (/ &\n     &2.3679e+05_rb,1.7759e+05_rb,1.1839e+05_rb,5.9198e+04_rb,1.6436e+02_rb/)\n      kbo(:, 3,47,16) = (/ &\n     &2.9447e+05_rb,2.2085e+05_rb,1.4724e+05_rb,7.3618e+04_rb,1.5159e+02_rb/)\n      kbo(:, 4,47,16) = (/ &\n     &3.5454e+05_rb,2.6590e+05_rb,1.7727e+05_rb,8.8635e+04_rb,1.4045e+02_rb/)\n      kbo(:, 5,47,16) = (/ &\n     &4.1548e+05_rb,3.1161e+05_rb,2.0774e+05_rb,1.0387e+05_rb,1.3046e+02_rb/)\n      kbo(:, 1,48,16) = (/ &\n     &1.9579e+05_rb,1.4684e+05_rb,9.7896e+04_rb,4.8948e+04_rb,1.8623e+02_rb/)\n      kbo(:, 2,48,16) = (/ &\n     &2.5824e+05_rb,1.9368e+05_rb,1.2912e+05_rb,6.4559e+04_rb,1.7055e+02_rb/)\n      kbo(:, 3,48,16) = (/ &\n     &3.2608e+05_rb,2.4456e+05_rb,1.6304e+05_rb,8.0315e+04_rb,1.5696e+02_rb/)\n      kbo(:, 4,48,16) = (/ &\n     &3.9734e+05_rb,2.9801e+05_rb,1.9867e+05_rb,9.9336e+04_rb,1.4512e+02_rb/)\n      kbo(:, 5,48,16) = (/ &\n     &4.7039e+05_rb,3.5279e+05_rb,2.3519e+05_rb,1.1760e+05_rb,1.3467e+02_rb/)\n      kbo(:, 1,49,16) = (/ &\n     &2.1650e+05_rb,1.6238e+05_rb,1.0825e+05_rb,5.4125e+04_rb,1.9381e+02_rb/)\n      kbo(:, 2,49,16) = (/ &\n     &2.9149e+05_rb,2.1861e+05_rb,1.4574e+05_rb,7.2871e+04_rb,1.7704e+02_rb/)\n      kbo(:, 3,49,16) = (/ &\n     &3.7402e+05_rb,2.8052e+05_rb,1.8701e+05_rb,9.3505e+04_rb,1.6258e+02_rb/)\n      kbo(:, 4,49,16) = (/ &\n     &4.6192e+05_rb,3.4644e+05_rb,2.3096e+05_rb,1.1548e+05_rb,1.4999e+02_rb/)\n      kbo(:, 5,49,16) = (/ &\n     &5.5289e+05_rb,4.1467e+05_rb,2.7644e+05_rb,1.3822e+05_rb,1.3901e+02_rb/)\n      kbo(:, 1,50,16) = (/ &\n     &2.2791e+05_rb,1.7093e+05_rb,1.1395e+05_rb,5.6977e+04_rb,2.0134e+02_rb/)\n      kbo(:, 2,50,16) = (/ &\n     &3.1325e+05_rb,2.3494e+05_rb,1.5662e+05_rb,7.8312e+04_rb,1.8345e+02_rb/)\n      kbo(:, 3,50,16) = (/ &\n     &4.0878e+05_rb,3.0659e+05_rb,2.0439e+05_rb,1.0220e+05_rb,1.6811e+02_rb/)\n      kbo(:, 4,50,16) = (/ &\n     &5.1152e+05_rb,3.8364e+05_rb,2.5576e+05_rb,1.2788e+05_rb,1.5482e+02_rb/)\n      kbo(:, 5,50,16) = (/ &\n     &6.1913e+05_rb,4.6434e+05_rb,3.0956e+05_rb,1.5478e+05_rb,1.4323e+02_rb/)\n      kbo(:, 1,51,16) = (/ &\n     &2.3351e+05_rb,1.7513e+05_rb,1.1675e+05_rb,5.8377e+04_rb,2.0909e+02_rb/)\n      kbo(:, 2,51,16) = (/ &\n     &3.2811e+05_rb,2.4608e+05_rb,1.6406e+05_rb,8.2029e+04_rb,1.9001e+02_rb/)\n      kbo(:, 3,51,16) = (/ &\n     &4.3579e+05_rb,3.2684e+05_rb,2.1790e+05_rb,1.0895e+05_rb,1.7377e+02_rb/)\n      kbo(:, 4,51,16) = (/ &\n     &5.5314e+05_rb,4.1486e+05_rb,2.7653e+05_rb,1.3829e+05_rb,1.5970e+02_rb/)\n      kbo(:, 5,51,16) = (/ &\n     &6.7717e+05_rb,5.0788e+05_rb,3.3859e+05_rb,1.6929e+05_rb,1.4750e+02_rb/)\n      kbo(:, 1,52,16) = (/ &\n     &2.4395e+05_rb,1.8296e+05_rb,1.2197e+05_rb,6.0984e+04_rb,2.1739e+02_rb/)\n      kbo(:, 2,52,16) = (/ &\n     &3.5104e+05_rb,2.6328e+05_rb,1.7552e+05_rb,8.7761e+04_rb,1.9693e+02_rb/)\n      kbo(:, 3,52,16) = (/ &\n     &4.7523e+05_rb,3.5643e+05_rb,2.3762e+05_rb,1.1881e+05_rb,1.7968e+02_rb/)\n      kbo(:, 4,52,16) = (/ &\n     &6.1247e+05_rb,4.5936e+05_rb,3.0624e+05_rb,1.5312e+05_rb,1.6481e+02_rb/)\n      kbo(:, 5,52,16) = (/ &\n     &7.5898e+05_rb,5.6924e+05_rb,3.7949e+05_rb,1.8975e+05_rb,1.5192e+02_rb/)\n      kbo(:, 1,53,16) = (/ &\n     &2.6284e+05_rb,1.9713e+05_rb,1.3142e+05_rb,6.5712e+04_rb,2.2625e+02_rb/)\n      kbo(:, 2,53,16) = (/ &\n     &3.8810e+05_rb,2.9108e+05_rb,1.9405e+05_rb,9.7027e+04_rb,2.0424e+02_rb/)\n      kbo(:, 3,53,16) = (/ &\n     &5.3641e+05_rb,4.0231e+05_rb,2.6821e+05_rb,1.3410e+05_rb,1.8589e+02_rb/)\n      kbo(:, 4,53,16) = (/ &\n     &7.0283e+05_rb,5.2713e+05_rb,3.5142e+05_rb,1.7571e+05_rb,1.7018e+02_rb/)\n      kbo(:, 5,53,16) = (/ &\n     &8.8260e+05_rb,6.6195e+05_rb,4.4130e+05_rb,2.2065e+05_rb,1.5658e+02_rb/)\n      kbo(:, 1,54,16) = (/ &\n     &2.4532e+05_rb,1.8399e+05_rb,1.2266e+05_rb,6.1332e+04_rb,2.3489e+02_rb/)\n      kbo(:, 2,54,16) = (/ &\n     &3.7212e+05_rb,2.7909e+05_rb,1.8606e+05_rb,9.3031e+04_rb,2.1139e+02_rb/)\n      kbo(:, 3,54,16) = (/ &\n     &5.1860e+05_rb,3.9351e+05_rb,2.6234e+05_rb,1.3117e+05_rb,1.9188e+02_rb/)\n      kbo(:, 4,54,16) = (/ &\n     &6.9903e+05_rb,5.2427e+05_rb,3.4952e+05_rb,1.7476e+05_rb,1.7536e+02_rb/)\n      kbo(:, 5,54,16) = (/ &\n     &8.8946e+05_rb,6.6416e+05_rb,4.4474e+05_rb,2.2237e+05_rb,1.6106e+02_rb/)\n      kbo(:, 1,55,16) = (/ &\n     &2.0815e+05_rb,1.5612e+05_rb,1.0408e+05_rb,5.2039e+04_rb,2.4370e+02_rb/)\n      kbo(:, 2,55,16) = (/ &\n     &3.2440e+05_rb,2.4330e+05_rb,1.6220e+05_rb,8.1100e+04_rb,2.1865e+02_rb/)\n      kbo(:, 3,55,16) = (/ &\n     &4.6741e+05_rb,3.5056e+05_rb,2.3371e+05_rb,1.1685e+05_rb,1.9795e+02_rb/)\n      kbo(:, 4,55,16) = (/ &\n     &6.3338e+05_rb,4.7504e+05_rb,3.1669e+05_rb,1.5835e+05_rb,1.8053e+02_rb/)\n      kbo(:, 5,55,16) = (/ &\n     &8.1696e+05_rb,6.1272e+05_rb,4.0848e+05_rb,2.0424e+05_rb,1.6554e+02_rb/)\n      kbo(:, 1,56,16) = (/ &\n     &1.7485e+05_rb,1.3114e+05_rb,8.7424e+04_rb,4.3712e+04_rb,2.5296e+02_rb/)\n      kbo(:, 2,56,16) = (/ &\n     &2.8084e+05_rb,2.1063e+05_rb,1.4042e+05_rb,7.0208e+04_rb,2.2634e+02_rb/)\n      kbo(:, 3,56,16) = (/ &\n     &4.1394e+05_rb,3.1046e+05_rb,2.0697e+05_rb,1.0347e+05_rb,2.0431e+02_rb/)\n      kbo(:, 4,56,16) = (/ &\n     &5.7118e+05_rb,4.2838e+05_rb,2.8559e+05_rb,1.4279e+05_rb,1.8592e+02_rb/)\n      kbo(:, 5,56,16) = (/ &\n     &7.4759e+05_rb,5.6069e+05_rb,3.7379e+05_rb,1.8690e+05_rb,1.7020e+02_rb/)\n      kbo(:, 1,57,16) = (/ &\n     &1.4522e+05_rb,1.0891e+05_rb,7.2607e+04_rb,3.6303e+04_rb,2.6280e+02_rb/)\n      kbo(:, 2,57,16) = (/ &\n     &2.4098e+05_rb,1.8073e+05_rb,1.2049e+05_rb,6.0242e+04_rb,2.3450e+02_rb/)\n      kbo(:, 3,57,16) = (/ &\n     &3.6414e+05_rb,2.7311e+05_rb,1.8207e+05_rb,9.1034e+04_rb,2.1103e+02_rb/)\n      kbo(:, 4,57,16) = (/ &\n     &5.1231e+05_rb,3.8423e+05_rb,2.5615e+05_rb,1.2807e+05_rb,1.9160e+02_rb/)\n      kbo(:, 5,57,16) = (/ &\n     &6.8106e+05_rb,5.1079e+05_rb,3.4053e+05_rb,1.7026e+05_rb,1.7509e+02_rb/)\n      kbo(:, 1,58,16) = (/ &\n     &3.1730e+04_rb,2.9092e+04_rb,2.4944e+04_rb,1.7470e+04_rb,2.7269e+02_rb/)\n      kbo(:, 2,58,16) = (/ &\n     &5.4453e+04_rb,4.9925e+04_rb,4.2806e+04_rb,2.9981e+04_rb,2.4268e+02_rb/)\n      kbo(:, 3,58,16) = (/ &\n     &8.4447e+04_rb,7.7425e+04_rb,6.6385e+04_rb,4.6495e+04_rb,2.1781e+02_rb/)\n      kbo(:, 4,58,16) = (/ &\n     &1.2116e+05_rb,1.1108e+05_rb,9.5242e+04_rb,6.6707e+04_rb,1.9723e+02_rb/)\n      kbo(:, 5,58,16) = (/ &\n     &1.6365e+05_rb,1.5004e+05_rb,1.2865e+05_rb,9.0103e+04_rb,1.7991e+02_rb/)\n      kbo(:, 1,59,16) = (/ &\n     &3.4421e+04_rb,3.0055e+04_rb,2.3973e+04_rb,1.4918e+04_rb,2.7694e+02_rb/)\n      kbo(:, 2,59,16) = (/ &\n     &5.9930e+04_rb,5.2328e+04_rb,4.1740e+04_rb,2.5973e+04_rb,2.4614e+02_rb/)\n      kbo(:, 3,59,16) = (/ &\n     &9.3934e+04_rb,8.2019e+04_rb,6.5423e+04_rb,4.0711e+04_rb,2.2066e+02_rb/)\n      kbo(:, 4,59,16) = (/ &\n     &1.3595e+05_rb,1.1871e+05_rb,9.4687e+04_rb,5.8920e+04_rb,1.9962e+02_rb/)\n      kbo(:, 5,59,16) = (/ &\n     &1.8479e+05_rb,1.6135e+05_rb,1.2650e+05_rb,8.0089e+04_rb,1.8195e+02_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n      kao_mo3( 1, :, 1) = (/ &\n     & 9.31040e-03_rb, 1.01286e-02_rb, 1.10186e-02_rb, 1.19869e-02_rb, 1.30403e-02_rb, &\n     & 1.41862e-02_rb, 1.54328e-02_rb, 1.67890e-02_rb, 1.82644e-02_rb, 1.98694e-02_rb, &\n     & 2.16154e-02_rb, 2.35149e-02_rb, 2.55813e-02_rb, 2.78293e-02_rb, 3.02749e-02_rb, &\n     & 3.29353e-02_rb, 3.58295e-02_rb, 3.89781e-02_rb, 4.24034e-02_rb/)\n      kao_mo3( 2, :, 1) = (/ &\n     & 1.11200e-02_rb, 1.20461e-02_rb, 1.30493e-02_rb, 1.41360e-02_rb, 1.53133e-02_rb, &\n     & 1.65886e-02_rb, 1.79701e-02_rb, 1.94666e-02_rb, 2.10878e-02_rb, 2.28440e-02_rb, &\n     & 2.47465e-02_rb, 2.68074e-02_rb, 2.90399e-02_rb, 3.14583e-02_rb, 3.40782e-02_rb, &\n     & 3.69162e-02_rb, 3.99907e-02_rb, 4.33211e-02_rb, 4.69289e-02_rb/)\n      kao_mo3( 3, :, 1) = (/ &\n     & 1.21630e-02_rb, 1.31401e-02_rb, 1.41956e-02_rb, 1.53359e-02_rb, 1.65679e-02_rb, &\n     & 1.78988e-02_rb, 1.93366e-02_rb, 2.08899e-02_rb, 2.25680e-02_rb, 2.43808e-02_rb, &\n     & 2.63394e-02_rb, 2.84552e-02_rb, 3.07410e-02_rb, 3.32104e-02_rb, 3.58782e-02_rb, &\n     & 3.87603e-02_rb, 4.18739e-02_rb, 4.52377e-02_rb, 4.88716e-02_rb/)\n      kao_mo3( 4, :, 1) = (/ &\n     & 1.26231e-02_rb, 1.36243e-02_rb, 1.47049e-02_rb, 1.58713e-02_rb, 1.71301e-02_rb, &\n     & 1.84888e-02_rb, 1.99553e-02_rb, 2.15380e-02_rb, 2.32463e-02_rb, 2.50901e-02_rb, &\n     & 2.70801e-02_rb, 2.92280e-02_rb, 3.15463e-02_rb, 3.40484e-02_rb, 3.67489e-02_rb, &\n     & 3.96637e-02_rb, 4.28097e-02_rb, 4.62051e-02_rb, 4.98699e-02_rb/)\n      kao_mo3( 5, :, 1) = (/ &\n     & 1.33345e-02_rb, 1.43736e-02_rb, 1.54938e-02_rb, 1.67012e-02_rb, 1.80027e-02_rb, &\n     & 1.94057e-02_rb, 2.09180e-02_rb, 2.25481e-02_rb, 2.43053e-02_rb, 2.61994e-02_rb, &\n     & 2.82411e-02_rb, 3.04419e-02_rb, 3.28142e-02_rb, 3.53714e-02_rb, 3.81279e-02_rb, &\n     & 4.10992e-02_rb, 4.43021e-02_rb, 4.77545e-02_rb, 5.14760e-02_rb/)\n      kao_mo3( 6, :, 1) = (/ &\n     & 1.43294e-02_rb, 1.54133e-02_rb, 1.65791e-02_rb, 1.78331e-02_rb, 1.91819e-02_rb, &\n     & 2.06328e-02_rb, 2.21935e-02_rb, 2.38721e-02_rb, 2.56778e-02_rb, 2.76200e-02_rb, &\n     & 2.97091e-02_rb, 3.19562e-02_rb, 3.43733e-02_rb, 3.69732e-02_rb, 3.97698e-02_rb, &\n     & 4.27779e-02_rb, 4.60136e-02_rb, 4.94939e-02_rb, 5.32375e-02_rb/)\n      kao_mo3( 7, :, 1) = (/ &\n     & 1.48298e-02_rb, 1.59503e-02_rb, 1.71554e-02_rb, 1.84517e-02_rb, 1.98458e-02_rb, &\n     & 2.13453e-02_rb, 2.29581e-02_rb, 2.46928e-02_rb, 2.65585e-02_rb, 2.85652e-02_rb, &\n     & 3.07235e-02_rb, 3.30449e-02_rb, 3.55417e-02_rb, 3.82272e-02_rb, 4.11155e-02_rb, &\n     & 4.42221e-02_rb, 4.75634e-02_rb, 5.11572e-02_rb, 5.50225e-02_rb/)\n      kao_mo3( 8, :, 1) = (/ &\n     & 1.41792e-02_rb, 1.53141e-02_rb, 1.65398e-02_rb, 1.78637e-02_rb, 1.92935e-02_rb, &\n     & 2.08378e-02_rb, 2.25057e-02_rb, 2.43071e-02_rb, 2.62526e-02_rb, 2.83539e-02_rb, &\n     & 3.06234e-02_rb, 3.30745e-02_rb, 3.57218e-02_rb, 3.85810e-02_rb, 4.16690e-02_rb, &\n     & 4.50042e-02_rb, 4.86064e-02_rb, 5.24969e-02_rb, 5.66988e-02_rb/)\n      kao_mo3( 9, :, 1) = (/ &\n     & 8.82784e-03_rb, 9.48321e-03_rb, 1.01872e-02_rb, 1.09435e-02_rb, 1.17560e-02_rb, &\n     & 1.26287e-02_rb, 1.35662e-02_rb, 1.45734e-02_rb, 1.56553e-02_rb, 1.68175e-02_rb, &\n     & 1.80660e-02_rb, 1.94072e-02_rb, 2.08480e-02_rb, 2.23958e-02_rb, 2.40584e-02_rb, &\n     & 2.58445e-02_rb, 2.77631e-02_rb, 2.98242e-02_rb, 3.20383e-02_rb/)\n      kao_mo3( 1, :, 2) = (/ &\n     & 4.28238e-02_rb, 4.51015e-02_rb, 4.75003e-02_rb, 5.00266e-02_rb, 5.26873e-02_rb, &\n     & 5.54896e-02_rb, 5.84409e-02_rb, 6.15491e-02_rb, 6.48227e-02_rb, 6.82704e-02_rb, &\n     & 7.19014e-02_rb, 7.57256e-02_rb, 7.97532e-02_rb, 8.39949e-02_rb, 8.84623e-02_rb, &\n     & 9.31673e-02_rb, 9.81225e-02_rb, 1.03341e-01_rb, 1.08838e-01_rb/)\n      kao_mo3( 2, :, 2) = (/ &\n     & 4.83672e-02_rb, 5.07219e-02_rb, 5.31911e-02_rb, 5.57806e-02_rb, 5.84962e-02_rb, &\n     & 6.13440e-02_rb, 6.43303e-02_rb, 6.74621e-02_rb, 7.07464e-02_rb, 7.41905e-02_rb, &\n     & 7.78023e-02_rb, 8.15899e-02_rb, 8.55619e-02_rb, 8.97273e-02_rb, 9.40955e-02_rb, &\n     & 9.86763e-02_rb, 1.03480e-01_rb, 1.08518e-01_rb, 1.13801e-01_rb/)\n      kao_mo3( 3, :, 2) = (/ &\n     & 5.24315e-02_rb, 5.48650e-02_rb, 5.74115e-02_rb, 6.00762e-02_rb, 6.28645e-02_rb, &\n     & 6.57822e-02_rb, 6.88354e-02_rb, 7.20302e-02_rb, 7.53734e-02_rb, 7.88717e-02_rb, &\n     & 8.25324e-02_rb, 8.63630e-02_rb, 9.03714e-02_rb, 9.45658e-02_rb, 9.89549e-02_rb, &\n     & 1.03548e-01_rb, 1.08354e-01_rb, 1.13383e-01_rb, 1.18645e-01_rb/)\n      kao_mo3( 4, :, 2) = (/ &\n     & 5.65191e-02_rb, 5.90383e-02_rb, 6.16699e-02_rb, 6.44187e-02_rb, 6.72901e-02_rb, &\n     & 7.02894e-02_rb, 7.34224e-02_rb, 7.66951e-02_rb, 8.01137e-02_rb, 8.36846e-02_rb, &\n     & 8.74147e-02_rb, 9.13111e-02_rb, 9.53812e-02_rb, 9.96326e-02_rb, 1.04074e-01_rb, &\n     & 1.08712e-01_rb, 1.13558e-01_rb, 1.18620e-01_rb, 1.23907e-01_rb/)\n      kao_mo3( 5, :, 2) = (/ &\n     & 6.03171e-02_rb, 6.29114e-02_rb, 6.56172e-02_rb, 6.84394e-02_rb, 7.13830e-02_rb, &\n     & 7.44532e-02_rb, 7.76555e-02_rb, 8.09955e-02_rb, 8.44791e-02_rb, 8.81125e-02_rb, &\n     & 9.19023e-02_rb, 9.58550e-02_rb, 9.99778e-02_rb, 1.04278e-01_rb, 1.08763e-01_rb, &\n     & 1.13441e-01_rb, 1.18320e-01_rb, 1.23409e-01_rb, 1.28717e-01_rb/)\n      kao_mo3( 6, :, 2) = (/ &\n     & 6.51092e-02_rb, 6.77827e-02_rb, 7.05660e-02_rb, 7.34635e-02_rb, 7.64801e-02_rb, &\n     & 7.96204e-02_rb, 8.28898e-02_rb, 8.62934e-02_rb, 8.98367e-02_rb, 9.35255e-02_rb, &\n     & 9.73658e-02_rb, 1.01364e-01_rb, 1.05526e-01_rb, 1.09859e-01_rb, 1.14370e-01_rb, &\n     & 1.19066e-01_rb, 1.23955e-01_rb, 1.29045e-01_rb, 1.34344e-01_rb/)\n      kao_mo3( 7, :, 2) = (/ &\n     & 7.09653e-02_rb, 7.37378e-02_rb, 7.66187e-02_rb, 7.96121e-02_rb, 8.27225e-02_rb, &\n     & 8.59543e-02_rb, 8.93125e-02_rb, 9.28018e-02_rb, 9.64275e-02_rb, 1.00195e-01_rb, &\n     & 1.04109e-01_rb, 1.08177e-01_rb, 1.12403e-01_rb, 1.16795e-01_rb, 1.21358e-01_rb, &\n     & 1.26099e-01_rb, 1.31026e-01_rb, 1.36145e-01_rb, 1.41464e-01_rb/)\n      kao_mo3( 8, :, 2) = (/ &\n     & 7.69193e-02_rb, 7.97926e-02_rb, 8.27733e-02_rb, 8.58653e-02_rb, 8.90728e-02_rb, &\n     & 9.24002e-02_rb, 9.58518e-02_rb, 9.94324e-02_rb, 1.03147e-01_rb, 1.07000e-01_rb, &\n     & 1.10997e-01_rb, 1.15143e-01_rb, 1.19444e-01_rb, 1.23906e-01_rb, 1.28535e-01_rb, &\n     & 1.33336e-01_rb, 1.38317e-01_rb, 1.43484e-01_rb, 1.48844e-01_rb/)\n      kao_mo3( 9, :, 2) = (/ &\n     & 4.57962e-02_rb, 4.76027e-02_rb, 4.94805e-02_rb, 5.14323e-02_rb, 5.34611e-02_rb, &\n     & 5.55700e-02_rb, 5.77620e-02_rb, 6.00405e-02_rb, 6.24089e-02_rb, 6.48707e-02_rb, &\n     & 6.74296e-02_rb, 7.00895e-02_rb, 7.28542e-02_rb, 7.57281e-02_rb, 7.87153e-02_rb, &\n     & 8.18203e-02_rb, 8.50478e-02_rb, 8.84027e-02_rb, 9.18898e-02_rb/)\n      kao_mo3( 1, :, 3) = (/ &\n     & 1.12607e-01_rb, 1.16047e-01_rb, 1.19591e-01_rb, 1.23244e-01_rb, 1.27009e-01_rb, &\n     & 1.30888e-01_rb, 1.34886e-01_rb, 1.39006e-01_rb, 1.43252e-01_rb, 1.47628e-01_rb, &\n     & 1.52137e-01_rb, 1.56785e-01_rb, 1.61574e-01_rb, 1.66509e-01_rb, 1.71595e-01_rb, &\n     & 1.76836e-01_rb, 1.82238e-01_rb, 1.87804e-01_rb, 1.93541e-01_rb/)\n      kao_mo3( 2, :, 3) = (/ &\n     & 1.14531e-01_rb, 1.17850e-01_rb, 1.21266e-01_rb, 1.24781e-01_rb, 1.28397e-01_rb, &\n     & 1.32119e-01_rb, 1.35948e-01_rb, 1.39888e-01_rb, 1.43943e-01_rb, 1.48115e-01_rb, &\n     & 1.52407e-01_rb, 1.56825e-01_rb, 1.61370e-01_rb, 1.66047e-01_rb, 1.70860e-01_rb, &\n     & 1.75812e-01_rb, 1.80907e-01_rb, 1.86150e-01_rb, 1.91546e-01_rb/)\n      kao_mo3( 3, :, 3) = (/ &\n     & 1.13986e-01_rb, 1.17222e-01_rb, 1.20551e-01_rb, 1.23974e-01_rb, 1.27494e-01_rb, &\n     & 1.31114e-01_rb, 1.34837e-01_rb, 1.38666e-01_rb, 1.42604e-01_rb, 1.46653e-01_rb, &\n     & 1.50817e-01_rb, 1.55099e-01_rb, 1.59503e-01_rb, 1.64032e-01_rb, 1.68690e-01_rb, &\n     & 1.73480e-01_rb, 1.78406e-01_rb, 1.83472e-01_rb, 1.88682e-01_rb/)\n      kao_mo3( 4, :, 3) = (/ &\n     & 1.13713e-01_rb, 1.16892e-01_rb, 1.20160e-01_rb, 1.23519e-01_rb, 1.26972e-01_rb, &\n     & 1.30522e-01_rb, 1.34171e-01_rb, 1.37922e-01_rb, 1.41778e-01_rb, 1.45742e-01_rb, &\n     & 1.49817e-01_rb, 1.54005e-01_rb, 1.58311e-01_rb, 1.62737e-01_rb, 1.67287e-01_rb, &\n     & 1.71964e-01_rb, 1.76771e-01_rb, 1.81714e-01_rb, 1.86794e-01_rb/)\n      kao_mo3( 5, :, 3) = (/ &\n     & 1.12321e-01_rb, 1.15413e-01_rb, 1.18591e-01_rb, 1.21856e-01_rb, 1.25211e-01_rb, &\n     & 1.28658e-01_rb, 1.32200e-01_rb, 1.35840e-01_rb, 1.39580e-01_rb, 1.43423e-01_rb, &\n     & 1.47372e-01_rb, 1.51429e-01_rb, 1.55599e-01_rb, 1.59883e-01_rb, 1.64284e-01_rb, &\n     & 1.68808e-01_rb, 1.73455e-01_rb, 1.78231e-01_rb, 1.83138e-01_rb/)\n      kao_mo3( 6, :, 3) = (/ &\n     & 1.14158e-01_rb, 1.17218e-01_rb, 1.20360e-01_rb, 1.23586e-01_rb, 1.26899e-01_rb, &\n     & 1.30300e-01_rb, 1.33793e-01_rb, 1.37379e-01_rb, 1.41061e-01_rb, 1.44842e-01_rb, &\n     & 1.48724e-01_rb, 1.52711e-01_rb, 1.56804e-01_rb, 1.61007e-01_rb, 1.65322e-01_rb, &\n     & 1.69754e-01_rb, 1.74304e-01_rb, 1.78976e-01_rb, 1.83773e-01_rb/)\n      kao_mo3( 7, :, 3) = (/ &\n     & 1.21015e-01_rb, 1.23989e-01_rb, 1.27036e-01_rb, 1.30157e-01_rb, 1.33355e-01_rb, &\n     & 1.36632e-01_rb, 1.39990e-01_rb, 1.43429e-01_rb, 1.46954e-01_rb, 1.50565e-01_rb, &\n     & 1.54264e-01_rb, 1.58055e-01_rb, 1.61939e-01_rb, 1.65918e-01_rb, 1.69995e-01_rb, &\n     & 1.74172e-01_rb, 1.78452e-01_rb, 1.82836e-01_rb, 1.87329e-01_rb/)\n      kao_mo3( 8, :, 3) = (/ &\n     & 1.33952e-01_rb, 1.36939e-01_rb, 1.39992e-01_rb, 1.43114e-01_rb, 1.46305e-01_rb, &\n     & 1.49567e-01_rb, 1.52902e-01_rb, 1.56311e-01_rb, 1.59797e-01_rb, 1.63360e-01_rb, &\n     & 1.67002e-01_rb, 1.70726e-01_rb, 1.74533e-01_rb, 1.78424e-01_rb, 1.82403e-01_rb, &\n     & 1.86470e-01_rb, 1.90627e-01_rb, 1.94878e-01_rb, 1.99223e-01_rb/)\n      kao_mo3( 9, :, 3) = (/ &\n     & 1.01003e-01_rb, 1.03713e-01_rb, 1.06495e-01_rb, 1.09352e-01_rb, 1.12285e-01_rb, &\n     & 1.15297e-01_rb, 1.18390e-01_rb, 1.21566e-01_rb, 1.24827e-01_rb, 1.28176e-01_rb, &\n     & 1.31614e-01_rb, 1.35145e-01_rb, 1.38770e-01_rb, 1.42493e-01_rb, 1.46315e-01_rb, &\n     & 1.50240e-01_rb, 1.54271e-01_rb, 1.58409e-01_rb, 1.62659e-01_rb/)\n      kao_mo3( 1, :, 4) = (/ &\n     & 2.35597e-01_rb, 2.37975e-01_rb, 2.40376e-01_rb, 2.42802e-01_rb, 2.45253e-01_rb, &\n     & 2.47728e-01_rb, 2.50228e-01_rb, 2.52753e-01_rb, 2.55304e-01_rb, 2.57881e-01_rb, &\n     & 2.60483e-01_rb, 2.63112e-01_rb, 2.65767e-01_rb, 2.68450e-01_rb, 2.71159e-01_rb, &\n     & 2.73895e-01_rb, 2.76660e-01_rb, 2.79452e-01_rb, 2.82272e-01_rb/)\n      kao_mo3( 2, :, 4) = (/ &\n     & 2.27965e-01_rb, 2.30334e-01_rb, 2.32728e-01_rb, 2.35146e-01_rb, 2.37590e-01_rb, &\n     & 2.40059e-01_rb, 2.42554e-01_rb, 2.45075e-01_rb, 2.47621e-01_rb, 2.50195e-01_rb, &\n     & 2.52795e-01_rb, 2.55422e-01_rb, 2.58077e-01_rb, 2.60759e-01_rb, 2.63468e-01_rb, &\n     & 2.66206e-01_rb, 2.68973e-01_rb, 2.71768e-01_rb, 2.74593e-01_rb/)\n      kao_mo3( 3, :, 4) = (/ &\n     & 2.25956e-01_rb, 2.28277e-01_rb, 2.30622e-01_rb, 2.32991e-01_rb, 2.35384e-01_rb, &\n     & 2.37802e-01_rb, 2.40244e-01_rb, 2.42712e-01_rb, 2.45205e-01_rb, 2.47724e-01_rb, &\n     & 2.50268e-01_rb, 2.52839e-01_rb, 2.55436e-01_rb, 2.58060e-01_rb, 2.60711e-01_rb, &\n     & 2.63389e-01_rb, 2.66094e-01_rb, 2.68827e-01_rb, 2.71589e-01_rb/)\n      kao_mo3( 4, :, 4) = (/ &\n     & 2.28371e-01_rb, 2.30595e-01_rb, 2.32840e-01_rb, 2.35107e-01_rb, 2.37397e-01_rb, &\n     & 2.39708e-01_rb, 2.42042e-01_rb, 2.44399e-01_rb, 2.46779e-01_rb, 2.49182e-01_rb, &\n     & 2.51608e-01_rb, 2.54058e-01_rb, 2.56532e-01_rb, 2.59030e-01_rb, 2.61552e-01_rb, &\n     & 2.64099e-01_rb, 2.66671e-01_rb, 2.69267e-01_rb, 2.71889e-01_rb/)\n      kao_mo3( 5, :, 4) = (/ &\n     & 2.42563e-01_rb, 2.44620e-01_rb, 2.46695e-01_rb, 2.48787e-01_rb, 2.50897e-01_rb, &\n     & 2.53024e-01_rb, 2.55170e-01_rb, 2.57334e-01_rb, 2.59516e-01_rb, 2.61717e-01_rb, &\n     & 2.63936e-01_rb, 2.66174e-01_rb, 2.68431e-01_rb, 2.70708e-01_rb, 2.73003e-01_rb, &\n     & 2.75318e-01_rb, 2.77653e-01_rb, 2.80008e-01_rb, 2.82382e-01_rb/)\n      kao_mo3( 6, :, 4) = (/ &\n     & 2.54052e-01_rb, 2.56017e-01_rb, 2.57997e-01_rb, 2.59992e-01_rb, 2.62003e-01_rb, &\n     & 2.64029e-01_rb, 2.66071e-01_rb, 2.68129e-01_rb, 2.70203e-01_rb, 2.72293e-01_rb, &\n     & 2.74398e-01_rb, 2.76521e-01_rb, 2.78659e-01_rb, 2.80814e-01_rb, 2.82986e-01_rb, &\n     & 2.85175e-01_rb, 2.87380e-01_rb, 2.89603e-01_rb, 2.91842e-01_rb/)\n      kao_mo3( 7, :, 4) = (/ &\n     & 2.54061e-01_rb, 2.55982e-01_rb, 2.57917e-01_rb, 2.59867e-01_rb, 2.61832e-01_rb, &\n     & 2.63811e-01_rb, 2.65806e-01_rb, 2.67815e-01_rb, 2.69840e-01_rb, 2.71880e-01_rb, &\n     & 2.73936e-01_rb, 2.76007e-01_rb, 2.78093e-01_rb, 2.80196e-01_rb, 2.82314e-01_rb, &\n     & 2.84449e-01_rb, 2.86599e-01_rb, 2.88766e-01_rb, 2.90949e-01_rb/)\n      kao_mo3( 8, :, 4) = (/ &\n     & 2.72482e-01_rb, 2.73916e-01_rb, 2.75358e-01_rb, 2.76807e-01_rb, 2.78264e-01_rb, &\n     & 2.79729e-01_rb, 2.81201e-01_rb, 2.82681e-01_rb, 2.84169e-01_rb, 2.85665e-01_rb, &\n     & 2.87168e-01_rb, 2.88680e-01_rb, 2.90199e-01_rb, 2.91726e-01_rb, 2.93262e-01_rb, &\n     & 2.94805e-01_rb, 2.96357e-01_rb, 2.97917e-01_rb, 2.99485e-01_rb/)\n      kao_mo3( 9, :, 4) = (/ &\n     & 1.93414e-01_rb, 1.95498e-01_rb, 1.97605e-01_rb, 1.99734e-01_rb, 2.01886e-01_rb, &\n     & 2.04062e-01_rb, 2.06261e-01_rb, 2.08483e-01_rb, 2.10730e-01_rb, 2.13001e-01_rb, &\n     & 2.15296e-01_rb, 2.17616e-01_rb, 2.19961e-01_rb, 2.22331e-01_rb, 2.24727e-01_rb, &\n     & 2.27148e-01_rb, 2.29596e-01_rb, 2.32070e-01_rb, 2.34571e-01_rb/)\n      kao_mo3( 1, :, 5) = (/ &\n     & 5.30785e-01_rb, 5.30477e-01_rb, 5.30169e-01_rb, 5.29861e-01_rb, 5.29553e-01_rb, &\n     & 5.29246e-01_rb, 5.28938e-01_rb, 5.28631e-01_rb, 5.28324e-01_rb, 5.28017e-01_rb, &\n     & 5.27711e-01_rb, 5.27404e-01_rb, 5.27098e-01_rb, 5.26792e-01_rb, 5.26486e-01_rb, &\n     & 5.26180e-01_rb, 5.25875e-01_rb, 5.25569e-01_rb, 5.25264e-01_rb/)\n      kao_mo3( 2, :, 5) = (/ &\n     & 5.33406e-01_rb, 5.32997e-01_rb, 5.32587e-01_rb, 5.32178e-01_rb, 5.31769e-01_rb, &\n     & 5.31360e-01_rb, 5.30952e-01_rb, 5.30544e-01_rb, 5.30137e-01_rb, 5.29729e-01_rb, &\n     & 5.29322e-01_rb, 5.28916e-01_rb, 5.28509e-01_rb, 5.28103e-01_rb, 5.27697e-01_rb, &\n     & 5.27292e-01_rb, 5.26887e-01_rb, 5.26482e-01_rb, 5.26077e-01_rb/)\n      kao_mo3( 3, :, 5) = (/ &\n     & 5.39814e-01_rb, 5.39234e-01_rb, 5.38655e-01_rb, 5.38077e-01_rb, 5.37499e-01_rb, &\n     & 5.36922e-01_rb, 5.36345e-01_rb, 5.35769e-01_rb, 5.35194e-01_rb, 5.34620e-01_rb, &\n     & 5.34045e-01_rb, 5.33472e-01_rb, 5.32899e-01_rb, 5.32327e-01_rb, 5.31756e-01_rb, &\n     & 5.31185e-01_rb, 5.30614e-01_rb, 5.30045e-01_rb, 5.29475e-01_rb/)\n      kao_mo3( 4, :, 5) = (/ &\n     & 5.39054e-01_rb, 5.38348e-01_rb, 5.37643e-01_rb, 5.36938e-01_rb, 5.36235e-01_rb, &\n     & 5.35532e-01_rb, 5.34831e-01_rb, 5.34130e-01_rb, 5.33431e-01_rb, 5.32732e-01_rb, &\n     & 5.32034e-01_rb, 5.31337e-01_rb, 5.30641e-01_rb, 5.29946e-01_rb, 5.29252e-01_rb, &\n     & 5.28559e-01_rb, 5.27866e-01_rb, 5.27175e-01_rb, 5.26484e-01_rb/)\n      kao_mo3( 5, :, 5) = (/ &\n     & 5.29240e-01_rb, 5.28475e-01_rb, 5.27711e-01_rb, 5.26949e-01_rb, 5.26187e-01_rb, &\n     & 5.25427e-01_rb, 5.24668e-01_rb, 5.23909e-01_rb, 5.23152e-01_rb, 5.22396e-01_rb, &\n     & 5.21641e-01_rb, 5.20888e-01_rb, 5.20135e-01_rb, 5.19383e-01_rb, 5.18633e-01_rb, &\n     & 5.17883e-01_rb, 5.17135e-01_rb, 5.16388e-01_rb, 5.15642e-01_rb/)\n      kao_mo3( 6, :, 5) = (/ &\n     & 5.21746e-01_rb, 5.20815e-01_rb, 5.19886e-01_rb, 5.18958e-01_rb, 5.18032e-01_rb, &\n     & 5.17107e-01_rb, 5.16184e-01_rb, 5.15263e-01_rb, 5.14343e-01_rb, 5.13425e-01_rb, &\n     & 5.12509e-01_rb, 5.11594e-01_rb, 5.10681e-01_rb, 5.09770e-01_rb, 5.08860e-01_rb, &\n     & 5.07952e-01_rb, 5.07045e-01_rb, 5.06140e-01_rb, 5.05237e-01_rb/)\n      kao_mo3( 7, :, 5) = (/ &\n     & 5.26752e-01_rb, 5.25550e-01_rb, 5.24352e-01_rb, 5.23156e-01_rb, 5.21963e-01_rb, &\n     & 5.20772e-01_rb, 5.19584e-01_rb, 5.18399e-01_rb, 5.17217e-01_rb, 5.16038e-01_rb, &\n     & 5.14861e-01_rb, 5.13686e-01_rb, 5.12515e-01_rb, 5.11346e-01_rb, 5.10180e-01_rb, &\n     & 5.09016e-01_rb, 5.07855e-01_rb, 5.06697e-01_rb, 5.05541e-01_rb/)\n      kao_mo3( 8, :, 5) = (/ &\n     & 5.23581e-01_rb, 5.22513e-01_rb, 5.21446e-01_rb, 5.20382e-01_rb, 5.19320e-01_rb, &\n     & 5.18260e-01_rb, 5.17203e-01_rb, 5.16147e-01_rb, 5.15094e-01_rb, 5.14042e-01_rb, &\n     & 5.12993e-01_rb, 5.11946e-01_rb, 5.10901e-01_rb, 5.09859e-01_rb, 5.08818e-01_rb, &\n     & 5.07780e-01_rb, 5.06743e-01_rb, 5.05709e-01_rb, 5.04677e-01_rb/)\n      kao_mo3( 9, :, 5) = (/ &\n     & 3.80393e-01_rb, 3.80680e-01_rb, 3.80967e-01_rb, 3.81254e-01_rb, 3.81542e-01_rb, &\n     & 3.81829e-01_rb, 3.82117e-01_rb, 3.82405e-01_rb, 3.82693e-01_rb, 3.82982e-01_rb, &\n     & 3.83271e-01_rb, 3.83559e-01_rb, 3.83849e-01_rb, 3.84138e-01_rb, 3.84428e-01_rb, &\n     & 3.84717e-01_rb, 3.85007e-01_rb, 3.85298e-01_rb, 3.85588e-01_rb/)\n      kao_mo3( 1, :, 6) = (/ &\n     & 6.14818e-01_rb, 6.10664e-01_rb, 6.06539e-01_rb, 6.02441e-01_rb, 5.98372e-01_rb, &\n     & 5.94330e-01_rb, 5.90315e-01_rb, 5.86327e-01_rb, 5.82366e-01_rb, 5.78432e-01_rb, &\n     & 5.74524e-01_rb, 5.70643e-01_rb, 5.66788e-01_rb, 5.62959e-01_rb, 5.59156e-01_rb, &\n     & 5.55379e-01_rb, 5.51627e-01_rb, 5.47901e-01_rb, 5.44199e-01_rb/)\n      kao_mo3( 2, :, 6) = (/ &\n     & 6.10199e-01_rb, 6.06143e-01_rb, 6.02114e-01_rb, 5.98112e-01_rb, 5.94136e-01_rb, &\n     & 5.90187e-01_rb, 5.86264e-01_rb, 5.82367e-01_rb, 5.78496e-01_rb, 5.74651e-01_rb, &\n     & 5.70831e-01_rb, 5.67037e-01_rb, 5.63268e-01_rb, 5.59524e-01_rb, 5.55805e-01_rb, &\n     & 5.52110e-01_rb, 5.48440e-01_rb, 5.44795e-01_rb, 5.41174e-01_rb/)\n      kao_mo3( 3, :, 6) = (/ &\n     & 6.02949e-01_rb, 5.99057e-01_rb, 5.95190e-01_rb, 5.91348e-01_rb, 5.87531e-01_rb, &\n     & 5.83739e-01_rb, 5.79971e-01_rb, 5.76227e-01_rb, 5.72508e-01_rb, 5.68812e-01_rb, &\n     & 5.65140e-01_rb, 5.61493e-01_rb, 5.57868e-01_rb, 5.54267e-01_rb, 5.50690e-01_rb, &\n     & 5.47135e-01_rb, 5.43603e-01_rb, 5.40094e-01_rb, 5.36608e-01_rb/)\n      kao_mo3( 4, :, 6) = (/ &\n     & 6.05047e-01_rb, 6.01155e-01_rb, 5.97289e-01_rb, 5.93448e-01_rb, 5.89631e-01_rb, &\n     & 5.85838e-01_rb, 5.82071e-01_rb, 5.78327e-01_rb, 5.74607e-01_rb, 5.70912e-01_rb, &\n     & 5.67240e-01_rb, 5.63592e-01_rb, 5.59967e-01_rb, 5.56365e-01_rb, 5.52787e-01_rb, &\n     & 5.49232e-01_rb, 5.45699e-01_rb, 5.42190e-01_rb, 5.38703e-01_rb/)\n      kao_mo3( 5, :, 6) = (/ &\n     & 6.03593e-01_rb, 5.99867e-01_rb, 5.96164e-01_rb, 5.92483e-01_rb, 5.88825e-01_rb, &\n     & 5.85190e-01_rb, 5.81577e-01_rb, 5.77987e-01_rb, 5.74419e-01_rb, 5.70872e-01_rb, &\n     & 5.67348e-01_rb, 5.63846e-01_rb, 5.60365e-01_rb, 5.56905e-01_rb, 5.53467e-01_rb, &\n     & 5.50050e-01_rb, 5.46654e-01_rb, 5.43279e-01_rb, 5.39926e-01_rb/)\n      kao_mo3( 6, :, 6) = (/ &\n     & 6.03940e-01_rb, 6.00224e-01_rb, 5.96531e-01_rb, 5.92861e-01_rb, 5.89213e-01_rb, &\n     & 5.85588e-01_rb, 5.81985e-01_rb, 5.78404e-01_rb, 5.74845e-01_rb, 5.71308e-01_rb, &\n     & 5.67793e-01_rb, 5.64299e-01_rb, 5.60827e-01_rb, 5.57377e-01_rb, 5.53947e-01_rb, &\n     & 5.50539e-01_rb, 5.47151e-01_rb, 5.43785e-01_rb, 5.40439e-01_rb/)\n      kao_mo3( 7, :, 6) = (/ &\n     & 6.06242e-01_rb, 6.02257e-01_rb, 5.98299e-01_rb, 5.94367e-01_rb, 5.90461e-01_rb, &\n     & 5.86580e-01_rb, 5.82725e-01_rb, 5.78895e-01_rb, 5.75090e-01_rb, 5.71311e-01_rb, &\n     & 5.67556e-01_rb, 5.63826e-01_rb, 5.60120e-01_rb, 5.56439e-01_rb, 5.52782e-01_rb, &\n     & 5.49149e-01_rb, 5.45540e-01_rb, 5.41954e-01_rb, 5.38393e-01_rb/)\n      kao_mo3( 8, :, 6) = (/ &\n     & 6.11929e-01_rb, 6.07173e-01_rb, 6.02454e-01_rb, 5.97773e-01_rb, 5.93127e-01_rb, &\n     & 5.88518e-01_rb, 5.83944e-01_rb, 5.79406e-01_rb, 5.74903e-01_rb, 5.70436e-01_rb, &\n     & 5.66002e-01_rb, 5.61604e-01_rb, 5.57239e-01_rb, 5.52909e-01_rb, 5.48612e-01_rb, &\n     & 5.44349e-01_rb, 5.40118e-01_rb, 5.35921e-01_rb, 5.31756e-01_rb/)\n      kao_mo3( 9, :, 6) = (/ &\n     & 6.21189e-01_rb, 6.17338e-01_rb, 6.13511e-01_rb, 6.09707e-01_rb, 6.05927e-01_rb, &\n     & 6.02170e-01_rb, 5.98437e-01_rb, 5.94726e-01_rb, 5.91039e-01_rb, 5.87375e-01_rb, &\n     & 5.83733e-01_rb, 5.80114e-01_rb, 5.76517e-01_rb, 5.72943e-01_rb, 5.69390e-01_rb, &\n     & 5.65860e-01_rb, 5.62352e-01_rb, 5.58865e-01_rb, 5.55400e-01_rb/)\n      kao_mo3( 1, :, 7) = (/ &\n     & 7.41310e-01_rb, 7.30108e-01_rb, 7.19075e-01_rb, 7.08209e-01_rb, 6.97507e-01_rb, &\n     & 6.86967e-01_rb, 6.76586e-01_rb, 6.66362e-01_rb, 6.56292e-01_rb, 6.46374e-01_rb, &\n     & 6.36607e-01_rb, 6.26987e-01_rb, 6.17512e-01_rb, 6.08181e-01_rb, 5.98990e-01_rb, &\n     & 5.89939e-01_rb, 5.81024e-01_rb, 5.72244e-01_rb, 5.63597e-01_rb/)\n      kao_mo3( 2, :, 7) = (/ &\n     & 7.38780e-01_rb, 7.27631e-01_rb, 7.16651e-01_rb, 7.05836e-01_rb, 6.95185e-01_rb, &\n     & 6.84695e-01_rb, 6.74362e-01_rb, 6.64186e-01_rb, 6.54163e-01_rb, 6.44292e-01_rb, &\n     & 6.34569e-01_rb, 6.24993e-01_rb, 6.15562e-01_rb, 6.06273e-01_rb, 5.97124e-01_rb, &\n     & 5.88113e-01_rb, 5.79238e-01_rb, 5.70498e-01_rb, 5.61889e-01_rb/)\n      kao_mo3( 3, :, 7) = (/ &\n     & 7.33846e-01_rb, 7.22799e-01_rb, 7.11919e-01_rb, 7.01203e-01_rb, 6.90648e-01_rb, &\n     & 6.80252e-01_rb, 6.70012e-01_rb, 6.59927e-01_rb, 6.49993e-01_rb, 6.40209e-01_rb, &\n     & 6.30572e-01_rb, 6.21080e-01_rb, 6.11731e-01_rb, 6.02523e-01_rb, 5.93453e-01_rb, &\n     & 5.84520e-01_rb, 5.75721e-01_rb, 5.67055e-01_rb, 5.58519e-01_rb/)\n      kao_mo3( 4, :, 7) = (/ &\n     & 7.21218e-01_rb, 7.10492e-01_rb, 6.99926e-01_rb, 6.89517e-01_rb, 6.79262e-01_rb, &\n     & 6.69160e-01_rb, 6.59209e-01_rb, 6.49405e-01_rb, 6.39747e-01_rb, 6.30233e-01_rb, &\n     & 6.20860e-01_rb, 6.11627e-01_rb, 6.02531e-01_rb, 5.93570e-01_rb, 5.84743e-01_rb, &\n     & 5.76047e-01_rb, 5.67480e-01_rb, 5.59040e-01_rb, 5.50726e-01_rb/)\n      kao_mo3( 5, :, 7) = (/ &\n     & 7.10588e-01_rb, 7.00014e-01_rb, 6.89596e-01_rb, 6.79334e-01_rb, 6.69225e-01_rb, &\n     & 6.59266e-01_rb, 6.49455e-01_rb, 6.39790e-01_rb, 6.30269e-01_rb, 6.20889e-01_rb, &\n     & 6.11650e-01_rb, 6.02547e-01_rb, 5.93581e-01_rb, 5.84747e-01_rb, 5.76045e-01_rb, &\n     & 5.67473e-01_rb, 5.59028e-01_rb, 5.50709e-01_rb, 5.42513e-01_rb/)\n      kao_mo3( 6, :, 7) = (/ &\n     & 6.98166e-01_rb, 6.87706e-01_rb, 6.77402e-01_rb, 6.67253e-01_rb, 6.57256e-01_rb, &\n     & 6.47408e-01_rb, 6.37708e-01_rb, 6.28154e-01_rb, 6.18742e-01_rb, 6.09472e-01_rb, &\n     & 6.00340e-01_rb, 5.91346e-01_rb, 5.82486e-01_rb, 5.73758e-01_rb, 5.65162e-01_rb, &\n     & 5.56694e-01_rb, 5.48353e-01_rb, 5.40138e-01_rb, 5.32045e-01_rb/)\n      kao_mo3( 7, :, 7) = (/ &\n     & 6.76974e-01_rb, 6.67034e-01_rb, 6.57240e-01_rb, 6.47590e-01_rb, 6.38081e-01_rb, &\n     & 6.28712e-01_rb, 6.19481e-01_rb, 6.10385e-01_rb, 6.01422e-01_rb, 5.92592e-01_rb, &\n     & 5.83891e-01_rb, 5.75317e-01_rb, 5.66870e-01_rb, 5.58547e-01_rb, 5.50345e-01_rb, &\n     & 5.42265e-01_rb, 5.34303e-01_rb, 5.26457e-01_rb, 5.18727e-01_rb/)\n      kao_mo3( 8, :, 7) = (/ &\n     & 6.30061e-01_rb, 6.21017e-01_rb, 6.12102e-01_rb, 6.03316e-01_rb, 5.94656e-01_rb, &\n     & 5.86120e-01_rb, 5.77706e-01_rb, 5.69414e-01_rb, 5.61240e-01_rb, 5.53184e-01_rb, &\n     & 5.45243e-01_rb, 5.37416e-01_rb, 5.29702e-01_rb, 5.22098e-01_rb, 5.14604e-01_rb, &\n     & 5.07217e-01_rb, 4.99936e-01_rb, 4.92760e-01_rb, 4.85687e-01_rb/)\n      kao_mo3( 9, :, 7) = (/ &\n     & 8.97633e-01_rb, 8.87307e-01_rb, 8.77100e-01_rb, 8.67010e-01_rb, 8.57036e-01_rb, &\n     & 8.47176e-01_rb, 8.37431e-01_rb, 8.27797e-01_rb, 8.18274e-01_rb, 8.08861e-01_rb, &\n     & 7.99555e-01_rb, 7.90357e-01_rb, 7.81265e-01_rb, 7.72278e-01_rb, 7.63393e-01_rb, &\n     & 7.54611e-01_rb, 7.45930e-01_rb, 7.37349e-01_rb, 7.28867e-01_rb/)\n      kao_mo3( 1, :, 8) = (/ &\n     & 4.87356e-01_rb, 4.80743e-01_rb, 4.74220e-01_rb, 4.67785e-01_rb, 4.61437e-01_rb, &\n     & 4.55176e-01_rb, 4.49000e-01_rb, 4.42907e-01_rb, 4.36897e-01_rb, 4.30969e-01_rb, &\n     & 4.25121e-01_rb, 4.19353e-01_rb, 4.13663e-01_rb, 4.08049e-01_rb, 4.02513e-01_rb, &\n     & 3.97051e-01_rb, 3.91663e-01_rb, 3.86349e-01_rb, 3.81106e-01_rb/)\n      kao_mo3( 2, :, 8) = (/ &\n     & 4.86776e-01_rb, 4.80157e-01_rb, 4.73627e-01_rb, 4.67187e-01_rb, 4.60834e-01_rb, &\n     & 4.54567e-01_rb, 4.48386e-01_rb, 4.42289e-01_rb, 4.36274e-01_rb, 4.30342e-01_rb, &\n     & 4.24490e-01_rb, 4.18718e-01_rb, 4.13024e-01_rb, 4.07407e-01_rb, 4.01867e-01_rb, &\n     & 3.96403e-01_rb, 3.91012e-01_rb, 3.85695e-01_rb, 3.80450e-01_rb/)\n      kao_mo3( 3, :, 8) = (/ &\n     & 4.86111e-01_rb, 4.79496e-01_rb, 4.72972e-01_rb, 4.66536e-01_rb, 4.60188e-01_rb, &\n     & 4.53926e-01_rb, 4.47750e-01_rb, 4.41657e-01_rb, 4.35648e-01_rb, 4.29720e-01_rb, &\n     & 4.23873e-01_rb, 4.18105e-01_rb, 4.12416e-01_rb, 4.06804e-01_rb, 4.01269e-01_rb, &\n     & 3.95809e-01_rb, 3.90423e-01_rb, 3.85111e-01_rb, 3.79871e-01_rb/)\n      kao_mo3( 4, :, 8) = (/ &\n     & 4.85501e-01_rb, 4.78880e-01_rb, 4.72350e-01_rb, 4.65908e-01_rb, 4.59554e-01_rb, &\n     & 4.53288e-01_rb, 4.47106e-01_rb, 4.41009e-01_rb, 4.34995e-01_rb, 4.29063e-01_rb, &\n     & 4.23211e-01_rb, 4.17440e-01_rb, 4.11747e-01_rb, 4.06132e-01_rb, 4.00594e-01_rb, &\n     & 3.95131e-01_rb, 3.89743e-01_rb, 3.84428e-01_rb, 3.79185e-01_rb/)\n      kao_mo3( 5, :, 8) = (/ &\n     & 4.83679e-01_rb, 4.77140e-01_rb, 4.70691e-01_rb, 4.64328e-01_rb, 4.58051e-01_rb, &\n     & 4.51859e-01_rb, 4.45751e-01_rb, 4.39726e-01_rb, 4.33781e-01_rb, 4.27918e-01_rb, &\n     & 4.22133e-01_rb, 4.16427e-01_rb, 4.10798e-01_rb, 4.05245e-01_rb, 3.99767e-01_rb, &\n     & 3.94363e-01_rb, 3.89032e-01_rb, 3.83773e-01_rb, 3.78585e-01_rb/)\n      kao_mo3( 6, :, 8) = (/ &\n     & 4.72120e-01_rb, 4.65834e-01_rb, 4.59630e-01_rb, 4.53510e-01_rb, 4.47471e-01_rb, &\n     & 4.41513e-01_rb, 4.35633e-01_rb, 4.29833e-01_rb, 4.24109e-01_rb, 4.18461e-01_rb, &\n     & 4.12889e-01_rb, 4.07391e-01_rb, 4.01966e-01_rb, 3.96614e-01_rb, 3.91332e-01_rb, &\n     & 3.86122e-01_rb, 3.80980e-01_rb, 3.75907e-01_rb, 3.70901e-01_rb/)\n      kao_mo3( 7, :, 8) = (/ &\n     & 4.58683e-01_rb, 4.52758e-01_rb, 4.46909e-01_rb, 4.41135e-01_rb, 4.35437e-01_rb, &\n     & 4.29812e-01_rb, 4.24259e-01_rb, 4.18779e-01_rb, 4.13369e-01_rb, 4.08029e-01_rb, &\n     & 4.02758e-01_rb, 3.97555e-01_rb, 3.92419e-01_rb, 3.87350e-01_rb, 3.82346e-01_rb, &\n     & 3.77406e-01_rb, 3.72531e-01_rb, 3.67719e-01_rb, 3.62968e-01_rb/)\n      kao_mo3( 8, :, 8) = (/ &\n     & 4.56091e-01_rb, 4.50481e-01_rb, 4.44940e-01_rb, 4.39467e-01_rb, 4.34062e-01_rb, &\n     & 4.28722e-01_rb, 4.23449e-01_rb, 4.18240e-01_rb, 4.13096e-01_rb, 4.08015e-01_rb, &\n     & 4.02996e-01_rb, 3.98039e-01_rb, 3.93143e-01_rb, 3.88307e-01_rb, 3.83531e-01_rb, &\n     & 3.78813e-01_rb, 3.74154e-01_rb, 3.69552e-01_rb, 3.65006e-01_rb/)\n      kao_mo3( 9, :, 8) = (/ &\n     & 9.11213e-01_rb, 9.03270e-01_rb, 8.95396e-01_rb, 8.87591e-01_rb, 8.79855e-01_rb, &\n     & 8.72185e-01_rb, 8.64583e-01_rb, 8.57046e-01_rb, 8.49576e-01_rb, 8.42170e-01_rb, &\n     & 8.34829e-01_rb, 8.27552e-01_rb, 8.20339e-01_rb, 8.13188e-01_rb, 8.06100e-01_rb, &\n     & 7.99073e-01_rb, 7.92108e-01_rb, 7.85204e-01_rb, 7.78359e-01_rb/)\n      kao_mo3( 1, :, 9) = (/ &\n     & 5.56194e-01_rb, 5.48595e-01_rb, 5.41100e-01_rb, 5.33707e-01_rb, 5.26415e-01_rb, &\n     & 5.19223e-01_rb, 5.12129e-01_rb, 5.05132e-01_rb, 4.98231e-01_rb, 4.91424e-01_rb, &\n     & 4.84710e-01_rb, 4.78087e-01_rb, 4.71556e-01_rb, 4.65113e-01_rb, 4.58758e-01_rb, &\n     & 4.52491e-01_rb, 4.46309e-01_rb, 4.40211e-01_rb, 4.34197e-01_rb/)\n      kao_mo3( 2, :, 9) = (/ &\n     & 5.56174e-01_rb, 5.48575e-01_rb, 5.41079e-01_rb, 5.33687e-01_rb, 5.26395e-01_rb, &\n     & 5.19203e-01_rb, 5.12109e-01_rb, 5.05112e-01_rb, 4.98211e-01_rb, 4.91404e-01_rb, &\n     & 4.84690e-01_rb, 4.78068e-01_rb, 4.71536e-01_rb, 4.65093e-01_rb, 4.58739e-01_rb, &\n     & 4.52471e-01_rb, 4.46289e-01_rb, 4.40191e-01_rb, 4.34177e-01_rb/)\n      kao_mo3( 3, :, 9) = (/ &\n     & 5.55996e-01_rb, 5.48403e-01_rb, 5.40913e-01_rb, 5.33526e-01_rb, 5.26239e-01_rb, &\n     & 5.19052e-01_rb, 5.11963e-01_rb, 5.04971e-01_rb, 4.98074e-01_rb, 4.91272e-01_rb, &\n     & 4.84562e-01_rb, 4.77944e-01_rb, 4.71417e-01_rb, 4.64978e-01_rb, 4.58628e-01_rb, &\n     & 4.52364e-01_rb, 4.46186e-01_rb, 4.40092e-01_rb, 4.34081e-01_rb/)\n      kao_mo3( 4, :, 9) = (/ &\n     & 5.55859e-01_rb, 5.48271e-01_rb, 5.40786e-01_rb, 5.33404e-01_rb, 5.26123e-01_rb, &\n     & 5.18941e-01_rb, 5.11856e-01_rb, 5.04869e-01_rb, 4.97977e-01_rb, 4.91179e-01_rb, &\n     & 4.84474e-01_rb, 4.77861e-01_rb, 4.71337e-01_rb, 4.64903e-01_rb, 4.58557e-01_rb, &\n     & 4.52297e-01_rb, 4.46123e-01_rb, 4.40033e-01_rb, 4.34026e-01_rb/)\n      kao_mo3( 5, :, 9) = (/ &\n     & 5.54550e-01_rb, 5.46921e-01_rb, 5.39397e-01_rb, 5.31976e-01_rb, 5.24657e-01_rb, &\n     & 5.17439e-01_rb, 5.10320e-01_rb, 5.03300e-01_rb, 4.96376e-01_rb, 4.89547e-01_rb, &\n     & 4.82812e-01_rb, 4.76170e-01_rb, 4.69619e-01_rb, 4.63158e-01_rb, 4.56786e-01_rb, &\n     & 4.50502e-01_rb, 4.44304e-01_rb, 4.38192e-01_rb, 4.32163e-01_rb/)\n      kao_mo3( 6, :, 9) = (/ &\n     & 5.53514e-01_rb, 5.45883e-01_rb, 5.38358e-01_rb, 5.30937e-01_rb, 5.23618e-01_rb, &\n     & 5.16399e-01_rb, 5.09280e-01_rb, 5.02260e-01_rb, 4.95336e-01_rb, 4.88507e-01_rb, &\n     & 4.81773e-01_rb, 4.75132e-01_rb, 4.68582e-01_rb, 4.62122e-01_rb, 4.55752e-01_rb, &\n     & 4.49469e-01_rb, 4.43273e-01_rb, 4.37162e-01_rb, 4.31136e-01_rb/)\n      kao_mo3( 7, :, 9) = (/ &\n     & 5.49865e-01_rb, 5.42303e-01_rb, 5.34846e-01_rb, 5.27491e-01_rb, 5.20237e-01_rb, &\n     & 5.13084e-01_rb, 5.06028e-01_rb, 4.99070e-01_rb, 4.92207e-01_rb, 4.85438e-01_rb, &\n     & 4.78763e-01_rb, 4.72179e-01_rb, 4.65686e-01_rb, 4.59282e-01_rb, 4.52967e-01_rb, &\n     & 4.46738e-01_rb, 4.40595e-01_rb, 4.34536e-01_rb, 4.28561e-01_rb/)\n      kao_mo3( 8, :, 9) = (/ &\n     & 5.25435e-01_rb, 5.18437e-01_rb, 5.11533e-01_rb, 5.04721e-01_rb, 4.97999e-01_rb, &\n     & 4.91367e-01_rb, 4.84823e-01_rb, 4.78366e-01_rb, 4.71996e-01_rb, 4.65710e-01_rb, &\n     & 4.59508e-01_rb, 4.53388e-01_rb, 4.47350e-01_rb, 4.41393e-01_rb, 4.35515e-01_rb, &\n     & 4.29715e-01_rb, 4.23992e-01_rb, 4.18345e-01_rb, 4.12774e-01_rb/)\n      kao_mo3( 9, :, 9) = (/ &\n     & 3.48228e-01_rb, 3.45949e-01_rb, 3.43686e-01_rb, 3.41437e-01_rb, 3.39203e-01_rb, &\n     & 3.36983e-01_rb, 3.34778e-01_rb, 3.32588e-01_rb, 3.30412e-01_rb, 3.28250e-01_rb, &\n     & 3.26102e-01_rb, 3.23968e-01_rb, 3.21848e-01_rb, 3.19742e-01_rb, 3.17650e-01_rb, &\n     & 3.15572e-01_rb, 3.13507e-01_rb, 3.11456e-01_rb, 3.09418e-01_rb/)\n      kao_mo3( 1, :,10) = (/ &\n     & 8.34107e-01_rb, 8.27276e-01_rb, 8.20501e-01_rb, 8.13781e-01_rb, 8.07117e-01_rb, &\n     & 8.00507e-01_rb, 7.93951e-01_rb, 7.87449e-01_rb, 7.81000e-01_rb, 7.74604e-01_rb, &\n     & 7.68260e-01_rb, 7.61968e-01_rb, 7.55728e-01_rb, 7.49539e-01_rb, 7.43400e-01_rb, &\n     & 7.37312e-01_rb, 7.31274e-01_rb, 7.25285e-01_rb, 7.19345e-01_rb/)\n      kao_mo3( 2, :,10) = (/ &\n     & 8.32838e-01_rb, 8.26022e-01_rb, 8.19263e-01_rb, 8.12558e-01_rb, 8.05908e-01_rb, &\n     & 7.99313e-01_rb, 7.92772e-01_rb, 7.86284e-01_rb, 7.79849e-01_rb, 7.73467e-01_rb, &\n     & 7.67137e-01_rb, 7.60859e-01_rb, 7.54633e-01_rb, 7.48457e-01_rb, 7.42332e-01_rb, &\n     & 7.36257e-01_rb, 7.30232e-01_rb, 7.24256e-01_rb, 7.18329e-01_rb/)\n      kao_mo3( 3, :,10) = (/ &\n     & 8.31167e-01_rb, 8.24361e-01_rb, 8.17611e-01_rb, 8.10916e-01_rb, 8.04276e-01_rb, &\n     & 7.97691e-01_rb, 7.91159e-01_rb, 7.84681e-01_rb, 7.78256e-01_rb, 7.71883e-01_rb, &\n     & 7.65563e-01_rb, 7.59294e-01_rb, 7.53077e-01_rb, 7.46910e-01_rb, 7.40795e-01_rb, &\n     & 7.34729e-01_rb, 7.28713e-01_rb, 7.22746e-01_rb, 7.16828e-01_rb/)\n      kao_mo3( 4, :,10) = (/ &\n     & 8.29026e-01_rb, 8.22246e-01_rb, 8.15521e-01_rb, 8.08851e-01_rb, 8.02236e-01_rb, &\n     & 7.95675e-01_rb, 7.89167e-01_rb, 7.82713e-01_rb, 7.76312e-01_rb, 7.69962e-01_rb, &\n     & 7.63665e-01_rb, 7.57419e-01_rb, 7.51225e-01_rb, 7.45081e-01_rb, 7.38987e-01_rb, &\n     & 7.32943e-01_rb, 7.26949e-01_rb, 7.21003e-01_rb, 7.15107e-01_rb/)\n      kao_mo3( 5, :,10) = (/ &\n     & 8.26226e-01_rb, 8.19471e-01_rb, 8.12771e-01_rb, 8.06126e-01_rb, 7.99536e-01_rb, &\n     & 7.92999e-01_rb, 7.86515e-01_rb, 7.80085e-01_rb, 7.73707e-01_rb, 7.67382e-01_rb, &\n     & 7.61108e-01_rb, 7.54885e-01_rb, 7.48714e-01_rb, 7.42592e-01_rb, 7.36521e-01_rb, &\n     & 7.30500e-01_rb, 7.24527e-01_rb, 7.18604e-01_rb, 7.12729e-01_rb/)\n      kao_mo3( 6, :,10) = (/ &\n     & 8.33246e-01_rb, 8.26510e-01_rb, 8.19828e-01_rb, 8.13200e-01_rb, 8.06626e-01_rb, &\n     & 8.00105e-01_rb, 7.93637e-01_rb, 7.87221e-01_rb, 7.80856e-01_rb, 7.74544e-01_rb, &\n     & 7.68282e-01_rb, 7.62071e-01_rb, 7.55910e-01_rb, 7.49799e-01_rb, 7.43737e-01_rb, &\n     & 7.37725e-01_rb, 7.31760e-01_rb, 7.25845e-01_rb, 7.19977e-01_rb/)\n      kao_mo3( 7, :,10) = (/ &\n     & 8.45693e-01_rb, 8.38967e-01_rb, 8.32295e-01_rb, 8.25675e-01_rb, 8.19108e-01_rb, &\n     & 8.12594e-01_rb, 8.06131e-01_rb, 7.99719e-01_rb, 7.93359e-01_rb, 7.87049e-01_rb, &\n     & 7.80789e-01_rb, 7.74579e-01_rb, 7.68419e-01_rb, 7.62307e-01_rb, 7.56244e-01_rb, &\n     & 7.50230e-01_rb, 7.44263e-01_rb, 7.38343e-01_rb, 7.32471e-01_rb/)\n      kao_mo3( 8, :,10) = (/ &\n     & 8.32139e-01_rb, 8.25565e-01_rb, 8.19044e-01_rb, 8.12574e-01_rb, 8.06156e-01_rb, &\n     & 7.99788e-01_rb, 7.93470e-01_rb, 7.87202e-01_rb, 7.80984e-01_rb, 7.74815e-01_rb, &\n     & 7.68694e-01_rb, 7.62622e-01_rb, 7.56598e-01_rb, 7.50622e-01_rb, 7.44692e-01_rb, &\n     & 7.38810e-01_rb, 7.32974e-01_rb, 7.27184e-01_rb, 7.21440e-01_rb/)\n      kao_mo3( 9, :,10) = (/ &\n     & 2.34258e-01_rb, 2.35247e-01_rb, 2.36239e-01_rb, 2.37236e-01_rb, 2.38237e-01_rb, &\n     & 2.39242e-01_rb, 2.40252e-01_rb, 2.41265e-01_rb, 2.42283e-01_rb, 2.43306e-01_rb, &\n     & 2.44332e-01_rb, 2.45363e-01_rb, 2.46398e-01_rb, 2.47438e-01_rb, 2.48482e-01_rb, &\n     & 2.49531e-01_rb, 2.50583e-01_rb, 2.51641e-01_rb, 2.52702e-01_rb/)\n      kao_mo3( 1, :,11) = (/ &\n     & 8.31308e-01_rb, 8.22153e-01_rb, 8.13098e-01_rb, 8.04143e-01_rb, 7.95287e-01_rb, &\n     & 7.86528e-01_rb, 7.77866e-01_rb, 7.69299e-01_rb, 7.60827e-01_rb, 7.52448e-01_rb, &\n     & 7.44161e-01_rb, 7.35965e-01_rb, 7.27860e-01_rb, 7.19844e-01_rb, 7.11916e-01_rb, &\n     & 7.04075e-01_rb, 6.96321e-01_rb, 6.88652e-01_rb, 6.81068e-01_rb/)\n      kao_mo3( 2, :,11) = (/ &\n     & 8.31577e-01_rb, 8.22400e-01_rb, 8.13324e-01_rb, 8.04349e-01_rb, 7.95472e-01_rb, &\n     & 7.86693e-01_rb, 7.78011e-01_rb, 7.69425e-01_rb, 7.60934e-01_rb, 7.52537e-01_rb, &\n     & 7.44232e-01_rb, 7.36019e-01_rb, 7.27896e-01_rb, 7.19863e-01_rb, 7.11919e-01_rb, &\n     & 7.04062e-01_rb, 6.96292e-01_rb, 6.88608e-01_rb, 6.81009e-01_rb/)\n      kao_mo3( 3, :,11) = (/ &\n     & 8.31578e-01_rb, 8.22422e-01_rb, 8.13368e-01_rb, 8.04413e-01_rb, 7.95557e-01_rb, &\n     & 7.86798e-01_rb, 7.78136e-01_rb, 7.69569e-01_rb, 7.61097e-01_rb, 7.52717e-01_rb, &\n     & 7.44430e-01_rb, 7.36235e-01_rb, 7.28129e-01_rb, 7.20113e-01_rb, 7.12185e-01_rb, &\n     & 7.04344e-01_rb, 6.96589e-01_rb, 6.88920e-01_rb, 6.81336e-01_rb/)\n      kao_mo3( 4, :,11) = (/ &\n     & 8.31261e-01_rb, 8.22111e-01_rb, 8.13062e-01_rb, 8.04112e-01_rb, 7.95261e-01_rb, &\n     & 7.86507e-01_rb, 7.77850e-01_rb, 7.69288e-01_rb, 7.60820e-01_rb, 7.52445e-01_rb, &\n     & 7.44163e-01_rb, 7.35971e-01_rb, 7.27870e-01_rb, 7.19858e-01_rb, 7.11935e-01_rb, &\n     & 7.04098e-01_rb, 6.96348e-01_rb, 6.88683e-01_rb, 6.81102e-01_rb/)\n      kao_mo3( 5, :,11) = (/ &\n     & 8.31565e-01_rb, 8.22404e-01_rb, 8.13344e-01_rb, 8.04384e-01_rb, 7.95523e-01_rb, &\n     & 7.86760e-01_rb, 7.78092e-01_rb, 7.69521e-01_rb, 7.61044e-01_rb, 7.52660e-01_rb, &\n     & 7.44368e-01_rb, 7.36168e-01_rb, 7.28058e-01_rb, 7.20038e-01_rb, 7.12106e-01_rb, &\n     & 7.04261e-01_rb, 6.96503e-01_rb, 6.88830e-01_rb, 6.81242e-01_rb/)\n      kao_mo3( 6, :,11) = (/ &\n     & 8.17636e-01_rb, 8.08497e-01_rb, 7.99461e-01_rb, 7.90525e-01_rb, 7.81690e-01_rb, &\n     & 7.72953e-01_rb, 7.64314e-01_rb, 7.55771e-01_rb, 7.47324e-01_rb, 7.38971e-01_rb, &\n     & 7.30712e-01_rb, 7.22545e-01_rb, 7.14469e-01_rb, 7.06483e-01_rb, 6.98587e-01_rb, &\n     & 6.90779e-01_rb, 6.83058e-01_rb, 6.75424e-01_rb, 6.67875e-01_rb/)\n      kao_mo3( 7, :,11) = (/ &\n     & 7.95247e-01_rb, 7.86140e-01_rb, 7.77137e-01_rb, 7.68238e-01_rb, 7.59440e-01_rb, &\n     & 7.50743e-01_rb, 7.42145e-01_rb, 7.33646e-01_rb, 7.25245e-01_rb, 7.16939e-01_rb, &\n     & 7.08729e-01_rb, 7.00612e-01_rb, 6.92589e-01_rb, 6.84658e-01_rb, 6.76817e-01_rb, &\n     & 6.69066e-01_rb, 6.61404e-01_rb, 6.53830e-01_rb, 6.46342e-01_rb/)\n      kao_mo3( 8, :,11) = (/ &\n     & 7.63069e-01_rb, 7.54006e-01_rb, 7.45051e-01_rb, 7.36202e-01_rb, 7.27458e-01_rb, &\n     & 7.18818e-01_rb, 7.10281e-01_rb, 7.01845e-01_rb, 6.93509e-01_rb, 6.85272e-01_rb, &\n     & 6.77133e-01_rb, 6.69091e-01_rb, 6.61144e-01_rb, 6.53292e-01_rb, 6.45533e-01_rb, &\n     & 6.37866e-01_rb, 6.30290e-01_rb, 6.22804e-01_rb, 6.15407e-01_rb/)\n      kao_mo3( 9, :,11) = (/ &\n     & 2.03255e-01_rb, 2.03004e-01_rb, 2.02753e-01_rb, 2.02502e-01_rb, 2.02252e-01_rb, &\n     & 2.02001e-01_rb, 2.01752e-01_rb, 2.01502e-01_rb, 2.01253e-01_rb, 2.01004e-01_rb, &\n     & 2.00755e-01_rb, 2.00507e-01_rb, 2.00259e-01_rb, 2.00011e-01_rb, 1.99764e-01_rb, &\n     & 1.99517e-01_rb, 1.99270e-01_rb, 1.99024e-01_rb, 1.98777e-01_rb/)\n      kao_mo3( 1, :,12) = (/ &\n     & 4.13201e-01_rb, 4.05258e-01_rb, 3.97468e-01_rb, 3.89828e-01_rb, 3.82334e-01_rb, &\n     & 3.74985e-01_rb, 3.67777e-01_rb, 3.60707e-01_rb, 3.53774e-01_rb, 3.46973e-01_rb, &\n     & 3.40303e-01_rb, 3.33762e-01_rb, 3.27346e-01_rb, 3.21054e-01_rb, 3.14882e-01_rb, &\n     & 3.08829e-01_rb, 3.02893e-01_rb, 2.97071e-01_rb, 2.91360e-01_rb/)\n      kao_mo3( 2, :,12) = (/ &\n     & 4.12835e-01_rb, 4.04897e-01_rb, 3.97112e-01_rb, 3.89477e-01_rb, 3.81988e-01_rb, &\n     & 3.74644e-01_rb, 3.67440e-01_rb, 3.60376e-01_rb, 3.53447e-01_rb, 3.46651e-01_rb, &\n     & 3.39986e-01_rb, 3.33449e-01_rb, 3.27038e-01_rb, 3.20750e-01_rb, 3.14582e-01_rb, &\n     & 3.08534e-01_rb, 3.02602e-01_rb, 2.96784e-01_rb, 2.91077e-01_rb/)\n      kao_mo3( 3, :,12) = (/ &\n     & 4.13023e-01_rb, 4.05079e-01_rb, 3.97289e-01_rb, 3.89648e-01_rb, 3.82155e-01_rb, &\n     & 3.74805e-01_rb, 3.67597e-01_rb, 3.60527e-01_rb, 3.53594e-01_rb, 3.46793e-01_rb, &\n     & 3.40124e-01_rb, 3.33583e-01_rb, 3.27167e-01_rb, 3.20875e-01_rb, 3.14704e-01_rb, &\n     & 3.08652e-01_rb, 3.02716e-01_rb, 2.96894e-01_rb, 2.91184e-01_rb/)\n      kao_mo3( 4, :,12) = (/ &\n     & 4.13397e-01_rb, 4.05437e-01_rb, 3.97630e-01_rb, 3.89973e-01_rb, 3.82463e-01_rb, &\n     & 3.75099e-01_rb, 3.67876e-01_rb, 3.60792e-01_rb, 3.53844e-01_rb, 3.47031e-01_rb, &\n     & 3.40348e-01_rb, 3.33794e-01_rb, 3.27367e-01_rb, 3.21063e-01_rb, 3.14880e-01_rb, &\n     & 3.08817e-01_rb, 3.02870e-01_rb, 2.97038e-01_rb, 2.91318e-01_rb/)\n      kao_mo3( 5, :,12) = (/ &\n     & 4.13043e-01_rb, 4.05106e-01_rb, 3.97321e-01_rb, 3.89686e-01_rb, 3.82198e-01_rb, &\n     & 3.74854e-01_rb, 3.67651e-01_rb, 3.60586e-01_rb, 3.53657e-01_rb, 3.46861e-01_rb, &\n     & 3.40195e-01_rb, 3.33658e-01_rb, 3.27246e-01_rb, 3.20958e-01_rb, 3.14790e-01_rb, &\n     & 3.08741e-01_rb, 3.02808e-01_rb, 2.96990e-01_rb, 2.91283e-01_rb/)\n      kao_mo3( 6, :,12) = (/ &\n     & 4.13151e-01_rb, 4.05202e-01_rb, 3.97406e-01_rb, 3.89760e-01_rb, 3.82261e-01_rb, &\n     & 3.74906e-01_rb, 3.67693e-01_rb, 3.60619e-01_rb, 3.53680e-01_rb, 3.46876e-01_rb, &\n     & 3.40202e-01_rb, 3.33656e-01_rb, 3.27237e-01_rb, 3.20941e-01_rb, 3.14766e-01_rb, &\n     & 3.08710e-01_rb, 3.02770e-01_rb, 2.96945e-01_rb, 2.91232e-01_rb/)\n      kao_mo3( 7, :,12) = (/ &\n     & 4.13052e-01_rb, 4.05109e-01_rb, 3.97319e-01_rb, 3.89678e-01_rb, 3.82185e-01_rb, &\n     & 3.74835e-01_rb, 3.67627e-01_rb, 3.60557e-01_rb, 3.53624e-01_rb, 3.46823e-01_rb, &\n     & 3.40154e-01_rb, 3.33612e-01_rb, 3.27197e-01_rb, 3.20905e-01_rb, 3.14734e-01_rb, &\n     & 3.08681e-01_rb, 3.02745e-01_rb, 2.96923e-01_rb, 2.91213e-01_rb/)\n      kao_mo3( 8, :,12) = (/ &\n     & 4.13152e-01_rb, 4.05209e-01_rb, 3.97418e-01_rb, 3.89778e-01_rb, 3.82284e-01_rb, &\n     & 3.74935e-01_rb, 3.67727e-01_rb, 3.60657e-01_rb, 3.53723e-01_rb, 3.46923e-01_rb, &\n     & 3.40253e-01_rb, 3.33712e-01_rb, 3.27296e-01_rb, 3.21004e-01_rb, 3.14833e-01_rb, &\n     & 3.08780e-01_rb, 3.02844e-01_rb, 2.97021e-01_rb, 2.91311e-01_rb/)\n      kao_mo3( 9, :,12) = (/ &\n     & 1.31008e-01_rb, 1.30607e-01_rb, 1.30208e-01_rb, 1.29810e-01_rb, 1.29413e-01_rb, &\n     & 1.29017e-01_rb, 1.28623e-01_rb, 1.28229e-01_rb, 1.27837e-01_rb, 1.27446e-01_rb, &\n     & 1.27056e-01_rb, 1.26668e-01_rb, 1.26280e-01_rb, 1.25894e-01_rb, 1.25509e-01_rb, &\n     & 1.25125e-01_rb, 1.24743e-01_rb, 1.24361e-01_rb, 1.23981e-01_rb/)\n      kao_mo3( 1, :,13) = (/ &\n     & 4.66826e-01_rb, 4.71437e-01_rb, 4.76094e-01_rb, 4.80798e-01_rb, 4.85547e-01_rb, &\n     & 4.90344e-01_rb, 4.95187e-01_rb, 5.00079e-01_rb, 5.05019e-01_rb, 5.10008e-01_rb, &\n     & 5.15046e-01_rb, 5.20134e-01_rb, 5.25272e-01_rb, 5.30461e-01_rb, 5.35701e-01_rb, &\n     & 5.40993e-01_rb, 5.46338e-01_rb, 5.51735e-01_rb, 5.57185e-01_rb/)\n      kao_mo3( 2, :,13) = (/ &\n     & 4.66579e-01_rb, 4.71199e-01_rb, 4.75865e-01_rb, 4.80577e-01_rb, 4.85336e-01_rb, &\n     & 4.90141e-01_rb, 4.94995e-01_rb, 4.99896e-01_rb, 5.04846e-01_rb, 5.09845e-01_rb, &\n     & 5.14893e-01_rb, 5.19992e-01_rb, 5.25141e-01_rb, 5.30340e-01_rb, 5.35592e-01_rb, &\n     & 5.40895e-01_rb, 5.46251e-01_rb, 5.51660e-01_rb, 5.57122e-01_rb/)\n      kao_mo3( 3, :,13) = (/ &\n     & 4.66956e-01_rb, 4.71567e-01_rb, 4.76224e-01_rb, 4.80927e-01_rb, 4.85677e-01_rb, &\n     & 4.90474e-01_rb, 4.95318e-01_rb, 5.00209e-01_rb, 5.05149e-01_rb, 5.10138e-01_rb, &\n     & 5.15176e-01_rb, 5.20264e-01_rb, 5.25402e-01_rb, 5.30591e-01_rb, 5.35831e-01_rb, &\n     & 5.41123e-01_rb, 5.46467e-01_rb, 5.51864e-01_rb, 5.57314e-01_rb/)\n      kao_mo3( 4, :,13) = (/ &\n     & 4.66456e-01_rb, 4.71080e-01_rb, 4.75750e-01_rb, 4.80467e-01_rb, 4.85230e-01_rb, &\n     & 4.90040e-01_rb, 4.94898e-01_rb, 4.99804e-01_rb, 5.04759e-01_rb, 5.09763e-01_rb, &\n     & 5.14817e-01_rb, 5.19920e-01_rb, 5.25075e-01_rb, 5.30280e-01_rb, 5.35537e-01_rb, &\n     & 5.40846e-01_rb, 5.46208e-01_rb, 5.51622e-01_rb, 5.57091e-01_rb/)\n      kao_mo3( 5, :,13) = (/ &\n     & 4.66853e-01_rb, 4.71456e-01_rb, 4.76104e-01_rb, 4.80798e-01_rb, 4.85539e-01_rb, &\n     & 4.90326e-01_rb, 4.95160e-01_rb, 5.00042e-01_rb, 5.04973e-01_rb, 5.09952e-01_rb, &\n     & 5.14979e-01_rb, 5.20057e-01_rb, 5.25185e-01_rb, 5.30363e-01_rb, 5.35592e-01_rb, &\n     & 5.40873e-01_rb, 5.46205e-01_rb, 5.51591e-01_rb, 5.57029e-01_rb/)\n      kao_mo3( 6, :,13) = (/ &\n     & 4.66832e-01_rb, 4.71448e-01_rb, 4.76110e-01_rb, 4.80817e-01_rb, 4.85571e-01_rb, &\n     & 4.90372e-01_rb, 4.95221e-01_rb, 5.00118e-01_rb, 5.05063e-01_rb, 5.10056e-01_rb, &\n     & 5.15100e-01_rb, 5.20193e-01_rb, 5.25336e-01_rb, 5.30531e-01_rb, 5.35776e-01_rb, &\n     & 5.41074e-01_rb, 5.46424e-01_rb, 5.51826e-01_rb, 5.57283e-01_rb/)\n      kao_mo3( 7, :,13) = (/ &\n     & 4.66679e-01_rb, 4.71299e-01_rb, 4.75965e-01_rb, 4.80677e-01_rb, 4.85436e-01_rb, &\n     & 4.90241e-01_rb, 4.95095e-01_rb, 4.99996e-01_rb, 5.04946e-01_rb, 5.09945e-01_rb, &\n     & 5.14993e-01_rb, 5.20092e-01_rb, 5.25240e-01_rb, 5.30440e-01_rb, 5.35692e-01_rb, &\n     & 5.40995e-01_rb, 5.46351e-01_rb, 5.51759e-01_rb, 5.57222e-01_rb/)\n      kao_mo3( 8, :,13) = (/ &\n     & 4.66982e-01_rb, 4.71598e-01_rb, 4.76260e-01_rb, 4.80967e-01_rb, 4.85721e-01_rb, &\n     & 4.90522e-01_rb, 4.95371e-01_rb, 5.00268e-01_rb, 5.05213e-01_rb, 5.10206e-01_rb, &\n     & 5.15250e-01_rb, 5.20343e-01_rb, 5.25486e-01_rb, 5.30680e-01_rb, 5.35926e-01_rb, &\n     & 5.41223e-01_rb, 5.46573e-01_rb, 5.51976e-01_rb, 5.57432e-01_rb/)\n      kao_mo3( 9, :,13) = (/ &\n     & 1.13709e-01_rb, 1.13141e-01_rb, 1.12576e-01_rb, 1.12013e-01_rb, 1.11453e-01_rb, &\n     & 1.10897e-01_rb, 1.10342e-01_rb, 1.09791e-01_rb, 1.09242e-01_rb, 1.08696e-01_rb, &\n     & 1.08153e-01_rb, 1.07613e-01_rb, 1.07075e-01_rb, 1.06540e-01_rb, 1.06007e-01_rb, &\n     & 1.05478e-01_rb, 1.04951e-01_rb, 1.04426e-01_rb, 1.03904e-01_rb/)\n      kao_mo3( 1, :,14) = (/ &\n     & 5.67608e-01_rb, 5.55796e-01_rb, 5.44230e-01_rb, 5.32904e-01_rb, 5.21814e-01_rb, &\n     & 5.10955e-01_rb, 5.00322e-01_rb, 4.89910e-01_rb, 4.79714e-01_rb, 4.69731e-01_rb, &\n     & 4.59956e-01_rb, 4.50384e-01_rb, 4.41011e-01_rb, 4.31834e-01_rb, 4.22847e-01_rb, &\n     & 4.14048e-01_rb, 4.05431e-01_rb, 3.96994e-01_rb, 3.88732e-01_rb/)\n      kao_mo3( 2, :,14) = (/ &\n     & 5.67766e-01_rb, 5.55948e-01_rb, 5.44376e-01_rb, 5.33045e-01_rb, 5.21950e-01_rb, &\n     & 5.11086e-01_rb, 5.00448e-01_rb, 4.90031e-01_rb, 4.79831e-01_rb, 4.69844e-01_rb, &\n     & 4.60064e-01_rb, 4.50488e-01_rb, 4.41111e-01_rb, 4.31930e-01_rb, 4.22939e-01_rb, &\n     & 4.14136e-01_rb, 4.05516e-01_rb, 3.97075e-01_rb, 3.88810e-01_rb/)\n      kao_mo3( 3, :,14) = (/ &\n     & 5.67460e-01_rb, 5.55647e-01_rb, 5.44080e-01_rb, 5.32754e-01_rb, 5.21664e-01_rb, &\n     & 5.10805e-01_rb, 5.00172e-01_rb, 4.89760e-01_rb, 4.79564e-01_rb, 4.69582e-01_rb, &\n     & 4.59806e-01_rb, 4.50235e-01_rb, 4.40862e-01_rb, 4.31685e-01_rb, 4.22699e-01_rb, &\n     & 4.13900e-01_rb, 4.05284e-01_rb, 3.96847e-01_rb, 3.88586e-01_rb/)\n      kao_mo3( 4, :,14) = (/ &\n     & 5.67925e-01_rb, 5.56107e-01_rb, 5.44536e-01_rb, 5.33205e-01_rb, 5.22110e-01_rb, &\n     & 5.11246e-01_rb, 5.00608e-01_rb, 4.90191e-01_rb, 4.79991e-01_rb, 4.70004e-01_rb, &\n     & 4.60224e-01_rb, 4.50647e-01_rb, 4.41270e-01_rb, 4.32088e-01_rb, 4.23097e-01_rb, &\n     & 4.14293e-01_rb, 4.05673e-01_rb, 3.97231e-01_rb, 3.88966e-01_rb/)\n      kao_mo3( 5, :,14) = (/ &\n     & 5.67520e-01_rb, 5.55733e-01_rb, 5.44190e-01_rb, 5.32887e-01_rb, 5.21818e-01_rb, &\n     & 5.10980e-01_rb, 5.00366e-01_rb, 4.89974e-01_rb, 4.79797e-01_rb, 4.69831e-01_rb, &\n     & 4.60072e-01_rb, 4.50516e-01_rb, 4.41159e-01_rb, 4.31996e-01_rb, 4.23023e-01_rb, &\n     & 4.14236e-01_rb, 4.05633e-01_rb, 3.97207e-01_rb, 3.88957e-01_rb/)\n      kao_mo3( 6, :,14) = (/ &\n     & 5.67549e-01_rb, 5.55749e-01_rb, 5.44195e-01_rb, 5.32880e-01_rb, 5.21801e-01_rb, &\n     & 5.10952e-01_rb, 5.00329e-01_rb, 4.89927e-01_rb, 4.79740e-01_rb, 4.69766e-01_rb, &\n     & 4.59999e-01_rb, 4.50435e-01_rb, 4.41070e-01_rb, 4.31900e-01_rb, 4.22920e-01_rb, &\n     & 4.14127e-01_rb, 4.05517e-01_rb, 3.97086e-01_rb, 3.88830e-01_rb/)\n      kao_mo3( 7, :,14) = (/ &\n     & 5.67727e-01_rb, 5.55909e-01_rb, 5.44337e-01_rb, 5.33005e-01_rb, 5.21910e-01_rb, &\n     & 5.11046e-01_rb, 5.00408e-01_rb, 4.89991e-01_rb, 4.79791e-01_rb, 4.69804e-01_rb, &\n     & 4.60024e-01_rb, 4.50448e-01_rb, 4.41071e-01_rb, 4.31890e-01_rb, 4.22900e-01_rb, &\n     & 4.14096e-01_rb, 4.05476e-01_rb, 3.97036e-01_rb, 3.88771e-01_rb/)\n      kao_mo3( 8, :,14) = (/ &\n     & 5.67795e-01_rb, 5.55965e-01_rb, 5.44381e-01_rb, 5.33039e-01_rb, 5.21933e-01_rb, &\n     & 5.11058e-01_rb, 5.00410e-01_rb, 4.89984e-01_rb, 4.79775e-01_rb, 4.69779e-01_rb, &\n     & 4.59991e-01_rb, 4.50407e-01_rb, 4.41023e-01_rb, 4.31834e-01_rb, 4.22836e-01_rb, &\n     & 4.14026e-01_rb, 4.05400e-01_rb, 3.96953e-01_rb, 3.88683e-01_rb/)\n      kao_mo3( 9, :,14) = (/ &\n     & 1.32957e-01_rb, 1.31737e-01_rb, 1.30528e-01_rb, 1.29330e-01_rb, 1.28143e-01_rb, &\n     & 1.26967e-01_rb, 1.25802e-01_rb, 1.24648e-01_rb, 1.23504e-01_rb, 1.22370e-01_rb, &\n     & 1.21247e-01_rb, 1.20135e-01_rb, 1.19032e-01_rb, 1.17940e-01_rb, 1.16857e-01_rb, &\n     & 1.15785e-01_rb, 1.14722e-01_rb, 1.13669e-01_rb, 1.12626e-01_rb/)\n      kao_mo3( 1, :,15) = (/ &\n     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &\n     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &\n     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &\n     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)\n      kao_mo3( 2, :,15) = (/ &\n     & 1.51431e-01_rb, 1.53589e-01_rb, 1.55778e-01_rb, 1.57998e-01_rb, 1.60250e-01_rb, &\n     & 1.62534e-01_rb, 1.64850e-01_rb, 1.67199e-01_rb, 1.69582e-01_rb, 1.71999e-01_rb, &\n     & 1.74450e-01_rb, 1.76937e-01_rb, 1.79458e-01_rb, 1.82016e-01_rb, 1.84610e-01_rb, &\n     & 1.87241e-01_rb, 1.89909e-01_rb, 1.92616e-01_rb, 1.95361e-01_rb/)\n      kao_mo3( 3, :,15) = (/ &\n     & 1.51299e-01_rb, 1.53461e-01_rb, 1.55654e-01_rb, 1.57878e-01_rb, 1.60134e-01_rb, &\n     & 1.62422e-01_rb, 1.64744e-01_rb, 1.67098e-01_rb, 1.69486e-01_rb, 1.71908e-01_rb, &\n     & 1.74364e-01_rb, 1.76856e-01_rb, 1.79383e-01_rb, 1.81947e-01_rb, 1.84547e-01_rb, &\n     & 1.87184e-01_rb, 1.89859e-01_rb, 1.92572e-01_rb, 1.95324e-01_rb/)\n      kao_mo3( 4, :,15) = (/ &\n     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &\n     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &\n     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &\n     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)\n      kao_mo3( 5, :,15) = (/ &\n     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &\n     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &\n     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &\n     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)\n      kao_mo3( 6, :,15) = (/ &\n     & 1.51299e-01_rb, 1.53461e-01_rb, 1.55654e-01_rb, 1.57878e-01_rb, 1.60134e-01_rb, &\n     & 1.62422e-01_rb, 1.64744e-01_rb, 1.67098e-01_rb, 1.69486e-01_rb, 1.71908e-01_rb, &\n     & 1.74364e-01_rb, 1.76856e-01_rb, 1.79383e-01_rb, 1.81947e-01_rb, 1.84547e-01_rb, &\n     & 1.87184e-01_rb, 1.89859e-01_rb, 1.92572e-01_rb, 1.95324e-01_rb/)\n      kao_mo3( 7, :,15) = (/ &\n     & 1.51299e-01_rb, 1.53461e-01_rb, 1.55654e-01_rb, 1.57878e-01_rb, 1.60134e-01_rb, &\n     & 1.62422e-01_rb, 1.64744e-01_rb, 1.67098e-01_rb, 1.69486e-01_rb, 1.71908e-01_rb, &\n     & 1.74364e-01_rb, 1.76856e-01_rb, 1.79383e-01_rb, 1.81947e-01_rb, 1.84547e-01_rb, &\n     & 1.87184e-01_rb, 1.89859e-01_rb, 1.92572e-01_rb, 1.95324e-01_rb/)\n      kao_mo3( 8, :,15) = (/ &\n     & 1.51281e-01_rb, 1.53439e-01_rb, 1.55628e-01_rb, 1.57848e-01_rb, 1.60100e-01_rb, &\n     & 1.62384e-01_rb, 1.64700e-01_rb, 1.67049e-01_rb, 1.69432e-01_rb, 1.71849e-01_rb, &\n     & 1.74301e-01_rb, 1.76787e-01_rb, 1.79309e-01_rb, 1.81866e-01_rb, 1.84461e-01_rb, &\n     & 1.87092e-01_rb, 1.89761e-01_rb, 1.92468e-01_rb, 1.95213e-01_rb/)\n      kao_mo3( 9, :,15) = (/ &\n     & 2.44180e-01_rb, 2.35686e-01_rb, 2.27487e-01_rb, 2.19574e-01_rb, 2.11935e-01_rb, &\n     & 2.04563e-01_rb, 1.97447e-01_rb, 1.90578e-01_rb, 1.83949e-01_rb, 1.77550e-01_rb, &\n     & 1.71373e-01_rb, 1.65412e-01_rb, 1.59658e-01_rb, 1.54104e-01_rb, 1.48743e-01_rb, &\n     & 1.43569e-01_rb, 1.38574e-01_rb, 1.33754e-01_rb, 1.29101e-01_rb/)\n      kao_mo3( 1, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 2, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 3, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 4, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 5, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 6, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 7, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 8, :,16) = (/ &\n     & 1.02934e-01_rb, 1.04369e-01_rb, 1.05825e-01_rb, 1.07300e-01_rb, 1.08797e-01_rb, &\n     & 1.10314e-01_rb, 1.11852e-01_rb, 1.13412e-01_rb, 1.14993e-01_rb, 1.16597e-01_rb, &\n     & 1.18223e-01_rb, 1.19871e-01_rb, 1.21543e-01_rb, 1.23238e-01_rb, 1.24956e-01_rb, &\n     & 1.26699e-01_rb, 1.28466e-01_rb, 1.30257e-01_rb, 1.32073e-01_rb/)\n      kao_mo3( 9, :,16) = (/ &\n     & 3.91531e-01_rb, 3.78978e-01_rb, 3.66827e-01_rb, 3.55067e-01_rb, 3.43683e-01_rb, &\n     & 3.32664e-01_rb, 3.21999e-01_rb, 3.11675e-01_rb, 3.01683e-01_rb, 2.92011e-01_rb, &\n     & 2.82648e-01_rb, 2.73586e-01_rb, 2.64815e-01_rb, 2.56325e-01_rb, 2.48107e-01_rb, &\n     & 2.40152e-01_rb, 2.32453e-01_rb, 2.25000e-01_rb, 2.17787e-01_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &1.0689e-05_rb,1.6987e-05_rb,1.8993e-05_rb,3.4470e-05_rb,4.0873e-05_rb,4.8275e-05_rb, &\n     &6.1178e-05_rb,6.4035e-05_rb,6.6253e-05_rb,7.8914e-05_rb,8.1640e-05_rb,7.9738e-05_rb, &\n     &7.8492e-05_rb,9.1565e-05_rb,1.0262e-04_rb,1.0368e-04_rb/)\n      forrefo(2,:) = (/ &\n     &1.1194e-05_rb,1.6128e-05_rb,1.7213e-05_rb,2.6845e-05_rb,4.1361e-05_rb,5.1508e-05_rb, &\n     &6.8245e-05_rb,7.4063e-05_rb,7.6273e-05_rb,8.4061e-05_rb,8.2492e-05_rb,8.1720e-05_rb, &\n     &7.7626e-05_rb,1.0096e-04_rb,1.0519e-04_rb,1.0631e-04_rb/)\n      forrefo(3,:) = (/ &\n     &1.0891e-05_rb,1.4933e-05_rb,1.7964e-05_rb,2.2577e-05_rb,4.4290e-05_rb,5.4675e-05_rb, &\n     &7.2494e-05_rb,7.8410e-05_rb,7.6948e-05_rb,7.5742e-05_rb,7.7654e-05_rb,8.2760e-05_rb, &\n     &7.8443e-05_rb,9.8384e-05_rb,1.0634e-04_rb,1.0838e-04_rb/)\n      forrefo(4,:) = (/ &\n     &1.1316e-05_rb,1.5470e-05_rb,2.1246e-05_rb,3.3349e-05_rb,4.8704e-05_rb,5.6424e-05_rb, &\n     &5.8569e-05_rb,5.8780e-05_rb,6.0358e-05_rb,6.1586e-05_rb,6.4281e-05_rb,6.9333e-05_rb, &\n     &7.2763e-05_rb,7.2675e-05_rb,7.3754e-05_rb,1.0131e-04_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 1.27686e-01_rb, 1.09347e-01_rb, 9.36410e-02_rb, 8.01912e-02_rb, 6.86732e-02_rb, &\n     & 5.88096e-02_rb, 5.03627e-02_rb, 4.31290e-02_rb, 3.69343e-02_rb, 3.16294e-02_rb/)\n      selfrefo(:, 2) = (/ &\n     & 1.40051e-01_rb, 1.20785e-01_rb, 1.04170e-01_rb, 8.98402e-02_rb, 7.74816e-02_rb, &\n     & 6.68231e-02_rb, 5.76308e-02_rb, 4.97030e-02_rb, 4.28658e-02_rb, 3.69691e-02_rb/)\n      selfrefo(:, 3) = (/ &\n     & 1.42322e-01_rb, 1.22872e-01_rb, 1.06080e-01_rb, 9.15829e-02_rb, 7.90671e-02_rb, &\n     & 6.82616e-02_rb, 5.89329e-02_rb, 5.08790e-02_rb, 4.39258e-02_rb, 3.79228e-02_rb/)\n      selfrefo(:, 4) = (/ &\n     & 1.53244e-01_rb, 1.33057e-01_rb, 1.15530e-01_rb, 1.00311e-01_rb, 8.70977e-02_rb, &\n     & 7.56244e-02_rb, 6.56626e-02_rb, 5.70130e-02_rb, 4.95028e-02_rb, 4.29819e-02_rb/)\n      selfrefo(:, 5) = (/ &\n     & 1.71011e-01_rb, 1.46680e-01_rb, 1.25810e-01_rb, 1.07910e-01_rb, 9.25563e-02_rb, &\n     & 7.93874e-02_rb, 6.80922e-02_rb, 5.84040e-02_rb, 5.00943e-02_rb, 4.29669e-02_rb/)\n      selfrefo(:, 6) = (/ &\n     & 1.76012e-01_rb, 1.51010e-01_rb, 1.29560e-01_rb, 1.11157e-01_rb, 9.53672e-02_rb, &\n     & 8.18207e-02_rb, 7.01984e-02_rb, 6.02270e-02_rb, 5.16720e-02_rb, 4.43322e-02_rb/)\n      selfrefo(:, 7) = (/ &\n     & 1.85600e-01_rb, 1.59051e-01_rb, 1.36300e-01_rb, 1.16803e-01_rb, 1.00095e-01_rb, &\n     & 8.57776e-02_rb, 7.35077e-02_rb, 6.29930e-02_rb, 5.39823e-02_rb, 4.62606e-02_rb/)\n      selfrefo(:, 8) = (/ &\n     & 1.88931e-01_rb, 1.61727e-01_rb, 1.38440e-01_rb, 1.18506e-01_rb, 1.01442e-01_rb, &\n     & 8.68356e-02_rb, 7.43321e-02_rb, 6.36290e-02_rb, 5.44670e-02_rb, 4.66243e-02_rb/)\n      selfrefo(:, 9) = (/ &\n     & 1.91122e-01_rb, 1.63407e-01_rb, 1.39710e-01_rb, 1.19450e-01_rb, 1.02128e-01_rb, &\n     & 8.73176e-02_rb, 7.46552e-02_rb, 6.38290e-02_rb, 5.45728e-02_rb, 4.66589e-02_rb/)\n      selfrefo(:,10) = (/ &\n     & 1.91334e-01_rb, 1.64872e-01_rb, 1.42070e-01_rb, 1.22421e-01_rb, 1.05490e-01_rb, &\n     & 9.09008e-02_rb, 7.83291e-02_rb, 6.74960e-02_rb, 5.81612e-02_rb, 5.01174e-02_rb/)\n      selfrefo(:,11) = (/ &\n     & 1.89858e-01_rb, 1.63934e-01_rb, 1.41550e-01_rb, 1.22222e-01_rb, 1.05534e-01_rb, &\n     & 9.11237e-02_rb, 7.86814e-02_rb, 6.79380e-02_rb, 5.86615e-02_rb, 5.06517e-02_rb/)\n      selfrefo(:,12) = (/ &\n     & 1.89783e-01_rb, 1.63757e-01_rb, 1.41300e-01_rb, 1.21923e-01_rb, 1.05203e-01_rb, &\n     & 9.07760e-02_rb, 7.83274e-02_rb, 6.75860e-02_rb, 5.83176e-02_rb, 5.03202e-02_rb/)\n      selfrefo(:,13) = (/ &\n     & 1.87534e-01_rb, 1.62016e-01_rb, 1.39970e-01_rb, 1.20924e-01_rb, 1.04470e-01_rb, &\n     & 9.02541e-02_rb, 7.79730e-02_rb, 6.73630e-02_rb, 5.81967e-02_rb, 5.02778e-02_rb/)\n      selfrefo(:,14) = (/ &\n     & 1.99128e-01_rb, 1.71410e-01_rb, 1.47550e-01_rb, 1.27011e-01_rb, 1.09332e-01_rb, &\n     & 9.41131e-02_rb, 8.10128e-02_rb, 6.97360e-02_rb, 6.00289e-02_rb, 5.16731e-02_rb/)\n      selfrefo(:,15) = (/ &\n     & 1.99460e-01_rb, 1.72342e-01_rb, 1.48910e-01_rb, 1.28664e-01_rb, 1.11171e-01_rb, &\n     & 9.60560e-02_rb, 8.29962e-02_rb, 7.17120e-02_rb, 6.19620e-02_rb, 5.35376e-02_rb/)\n      selfrefo(:,16) = (/ &\n     & 1.99906e-01_rb, 1.72737e-01_rb, 1.49260e-01_rb, 1.28974e-01_rb, 1.11445e-01_rb, &\n     & 9.62982e-02_rb, 8.32102e-02_rb, 7.19010e-02_rb, 6.21288e-02_rb, 5.36848e-02_rb/)\n\n      end subroutine lw_kgb05\n\n! **************************************************************************\n      subroutine lw_kgb06\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg06, only : fracrefao, kao, kao_mco2, selfrefo, forrefo, &\n                            cfc11adjo, cfc12o\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 473.4280 mb, T = 259.83 K\n      fracrefao(:) = (/ &\n     &   1.4353e-01_rb,1.4774e-01_rb,1.4467e-01_rb,1.3785e-01_rb,1.2376e-01_rb,1.0214e-01_rb, &\n     &   8.1984e-02_rb,6.1152e-02_rb,4.0987e-02_rb,4.5067e-03_rb,4.0020e-03_rb,3.1772e-03_rb, &\n     &   2.3458e-03_rb,1.5025e-03_rb,5.7415e-04_rb,8.2970e-05_rb/)\n\n! Minor gas mapping level:\n!     lower - co2, p = 706.2720 mb, t = 294.2 k\n!     upper - cfc11, cfc12\n\n!      cfc11(:) = (/ &\n!     &    0.,      0.,      26.5435, 108.850, &\n!     &    58.7804, 54.0875, 41.1065, 35.6120, &\n!     &    41.2328, 47.7402, 79.1026, 64.3005, &\n!     &    108.206, 141.617, 186.565, 58.4782/)\n! Original cfc11 is multiplied by 1.385 to account for the 1060-1107 cm-1 band.\n\n      cfc11adjo(:) = (/ &\n     &   0._rb,      0._rb,      36.7627_rb, 150.757_rb, &\n     &   81.4109_rb, 74.9112_rb, 56.9325_rb, 49.3226_rb, &\n     &   57.1074_rb, 66.1202_rb, 109.557_rb, 89.0562_rb, & \n     &   149.865_rb, 196.140_rb, 258.393_rb, 80.9923_rb/)\n      cfc12o(:) = (/ &\n     &   62.8368_rb, 43.2626_rb, 26.7549_rb, 22.2487_rb, &\n     &   23.5029_rb, 34.8323_rb, 26.2335_rb, 23.2306_rb, &\n     &   18.4062_rb, 13.9534_rb, 22.6268_rb, 24.2604_rb, &\n     &   30.0088_rb, 26.3634_rb, 15.8237_rb, 57.5050_rb/)\n\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels > ~100mb and temperatures.  The first\n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the corresponding TREF for this  pressure level, \n!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, \n!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second \n!     index, JP, runs from 1 to 13 and refers to the corresponding \n!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  \n!     The third index, IG, goes from 1 to 16, and tells us which \n!     g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &1.5108e-05_rb,1.6223e-05_rb,1.5899e-05_rb,1.5254e-05_rb,1.4889e-05_rb/)\n      kao(:, 2, 1) = (/ &\n     &1.0690e-05_rb,1.0800e-05_rb,1.0568e-05_rb,1.0057e-05_rb,9.4945e-06_rb/)\n      kao(:, 3, 1) = (/ &\n     &6.1072e-06_rb,5.8741e-06_rb,5.6796e-06_rb,5.3664e-06_rb,5.4934e-06_rb/)\n      kao(:, 4, 1) = (/ &\n     &3.0372e-06_rb,2.9964e-06_rb,2.6541e-06_rb,2.8791e-06_rb,3.9638e-06_rb/)\n      kao(:, 5, 1) = (/ &\n     &1.4777e-06_rb,1.4916e-06_rb,1.4819e-06_rb,2.2264e-06_rb,3.3268e-06_rb/)\n      kao(:, 6, 1) = (/ &\n     &7.4936e-07_rb,7.2240e-07_rb,1.1518e-06_rb,1.7724e-06_rb,2.8203e-06_rb/)\n      kao(:, 7, 1) = (/ &\n     &3.4904e-07_rb,5.1177e-07_rb,8.8489e-07_rb,1.5219e-06_rb,2.2871e-06_rb/)\n      kao(:, 8, 1) = (/ &\n     &2.1072e-07_rb,4.5257e-07_rb,7.4214e-07_rb,1.2628e-06_rb,1.9840e-06_rb/)\n      kao(:, 9, 1) = (/ &\n     &2.1779e-07_rb,4.8639e-07_rb,8.1133e-07_rb,1.3719e-06_rb,2.1663e-06_rb/)\n      kao(:,10, 1) = (/ &\n     &2.5134e-07_rb,5.9583e-07_rb,1.0449e-06_rb,1.5899e-06_rb,2.7441e-06_rb/)\n      kao(:,11, 1) = (/ &\n     &2.9178e-07_rb,6.5749e-07_rb,1.0958e-06_rb,1.7834e-06_rb,3.1413e-06_rb/)\n      kao(:,12, 1) = (/ &\n     &2.7268e-07_rb,6.1470e-07_rb,1.0270e-06_rb,1.7566e-06_rb,3.0441e-06_rb/)\n      kao(:,13, 1) = (/ &\n     &2.2995e-07_rb,5.2185e-07_rb,8.7916e-07_rb,1.4999e-06_rb,2.5740e-06_rb/)\n      kao(:, 1, 2) = (/ &\n     &2.1301e-05_rb,2.3060e-05_rb,2.1909e-05_rb,2.0972e-05_rb,2.1772e-05_rb/)\n      kao(:, 2, 2) = (/ &\n     &1.4382e-05_rb,1.4147e-05_rb,1.4339e-05_rb,1.3679e-05_rb,1.6973e-05_rb/)\n      kao(:, 3, 2) = (/ &\n     &8.0559e-06_rb,8.4180e-06_rb,7.4096e-06_rb,9.3490e-06_rb,1.0824e-05_rb/)\n      kao(:, 4, 2) = (/ &\n     &4.3614e-06_rb,3.9657e-06_rb,5.1299e-06_rb,6.1754e-06_rb,8.2925e-06_rb/)\n      kao(:, 5, 2) = (/ &\n     &2.2350e-06_rb,2.3231e-06_rb,3.3297e-06_rb,4.8612e-06_rb,6.5883e-06_rb/)\n      kao(:, 6, 2) = (/ &\n     &1.0863e-06_rb,1.7510e-06_rb,2.4185e-06_rb,3.5854e-06_rb,5.1511e-06_rb/)\n      kao(:, 7, 2) = (/ &\n     &7.6749e-07_rb,1.2024e-06_rb,1.9782e-06_rb,2.7223e-06_rb,4.2604e-06_rb/)\n      kao(:, 8, 2) = (/ &\n     &6.8738e-07_rb,9.7505e-07_rb,1.6738e-06_rb,2.4371e-06_rb,3.9386e-06_rb/)\n      kao(:, 9, 2) = (/ &\n     &7.3668e-07_rb,1.0167e-06_rb,1.9026e-06_rb,3.0451e-06_rb,5.0060e-06_rb/)\n      kao(:,10, 2) = (/ &\n     &9.8863e-07_rb,1.5373e-06_rb,2.5876e-06_rb,4.8975e-06_rb,7.8206e-06_rb/)\n      kao(:,11, 2) = (/ &\n     &1.0934e-06_rb,1.6488e-06_rb,2.7961e-06_rb,5.2441e-06_rb,8.5410e-06_rb/)\n      kao(:,12, 2) = (/ &\n     &1.0277e-06_rb,1.5126e-06_rb,2.6342e-06_rb,4.9122e-06_rb,8.0730e-06_rb/)\n      kao(:,13, 2) = (/ &\n     &8.7381e-07_rb,1.2665e-06_rb,2.2835e-06_rb,4.2048e-06_rb,6.9189e-06_rb/)\n      kao(:, 1, 3) = (/ &\n     &2.3993e-05_rb,2.2308e-05_rb,2.5893e-05_rb,3.3883e-05_rb,3.8280e-05_rb/)\n      kao(:, 2, 3) = (/ &\n     &1.4011e-05_rb,1.4296e-05_rb,2.1223e-05_rb,2.4417e-05_rb,2.7881e-05_rb/)\n      kao(:, 3, 3) = (/ &\n     &7.3965e-06_rb,9.9180e-06_rb,1.3735e-05_rb,1.4536e-05_rb,1.8056e-05_rb/)\n      kao(:, 4, 3) = (/ &\n     &4.5365e-06_rb,7.0513e-06_rb,7.2165e-06_rb,9.8585e-06_rb,1.1890e-05_rb/)\n      kao(:, 5, 3) = (/ &\n     &3.8953e-06_rb,4.3626e-06_rb,5.3805e-06_rb,6.6118e-06_rb,9.5204e-06_rb/)\n      kao(:, 6, 3) = (/ &\n     &2.4692e-06_rb,2.6620e-06_rb,3.5833e-06_rb,5.1748e-06_rb,7.8116e-06_rb/)\n      kao(:, 7, 3) = (/ &\n     &1.4531e-06_rb,2.0753e-06_rb,2.7794e-06_rb,4.8340e-06_rb,7.5049e-06_rb/)\n      kao(:, 8, 3) = (/ &\n     &8.9161e-07_rb,1.6554e-06_rb,2.7945e-06_rb,4.7401e-06_rb,7.3008e-06_rb/)\n      kao(:, 9, 3) = (/ &\n     &1.1556e-06_rb,2.3050e-06_rb,3.6767e-06_rb,6.4276e-06_rb,1.0393e-05_rb/)\n      kao(:,10, 3) = (/ &\n     &1.3936e-06_rb,2.7867e-06_rb,4.8066e-06_rb,7.9343e-06_rb,1.4027e-05_rb/)\n      kao(:,11, 3) = (/ &\n     &1.4469e-06_rb,3.0966e-06_rb,5.3467e-06_rb,9.2496e-06_rb,1.6488e-05_rb/)\n      kao(:,12, 3) = (/ &\n     &1.3797e-06_rb,2.9577e-06_rb,5.1784e-06_rb,9.2835e-06_rb,1.6169e-05_rb/)\n      kao(:,13, 3) = (/ &\n     &1.1793e-06_rb,2.5194e-06_rb,4.4903e-06_rb,8.2145e-06_rb,1.4209e-05_rb/)\n      kao(:, 1, 4) = (/ &\n     &4.3371e-05_rb,4.2284e-05_rb,4.2569e-05_rb,4.5333e-05_rb,4.9887e-05_rb/)\n      kao(:, 2, 4) = (/ &\n     &2.7836e-05_rb,3.0742e-05_rb,2.5159e-05_rb,3.1058e-05_rb,3.3502e-05_rb/)\n      kao(:, 3, 4) = (/ &\n     &1.5959e-05_rb,1.5689e-05_rb,1.8607e-05_rb,1.9311e-05_rb,2.2949e-05_rb/)\n      kao(:, 4, 4) = (/ &\n     &9.4357e-06_rb,8.9581e-06_rb,1.1706e-05_rb,1.2462e-05_rb,1.9504e-05_rb/)\n      kao(:, 5, 4) = (/ &\n     &4.6991e-06_rb,5.9565e-06_rb,7.1131e-06_rb,1.0656e-05_rb,1.6961e-05_rb/)\n      kao(:, 6, 4) = (/ &\n     &2.9104e-06_rb,3.9977e-06_rb,5.8385e-06_rb,9.8483e-06_rb,1.4910e-05_rb/)\n      kao(:, 7, 4) = (/ &\n     &2.0404e-06_rb,2.7360e-06_rb,5.0537e-06_rb,8.2979e-06_rb,1.2550e-05_rb/)\n      kao(:, 8, 4) = (/ &\n     &1.7124e-06_rb,2.7023e-06_rb,4.6383e-06_rb,7.6524e-06_rb,1.2059e-05_rb/)\n      kao(:, 9, 4) = (/ &\n     &1.7855e-06_rb,3.1326e-06_rb,5.8535e-06_rb,9.7627e-06_rb,1.5447e-05_rb/)\n      kao(:,10, 4) = (/ &\n     &2.2188e-06_rb,4.3098e-06_rb,8.7192e-06_rb,1.5363e-05_rb,2.4174e-05_rb/)\n      kao(:,11, 4) = (/ &\n     &2.5395e-06_rb,4.8780e-06_rb,1.0119e-05_rb,1.6942e-05_rb,2.6266e-05_rb/)\n      kao(:,12, 4) = (/ &\n     &2.4951e-06_rb,4.8859e-06_rb,9.7649e-06_rb,1.6137e-05_rb,2.5091e-05_rb/)\n      kao(:,13, 4) = (/ &\n     &2.2608e-06_rb,4.4391e-06_rb,8.5101e-06_rb,1.3874e-05_rb,2.1718e-05_rb/)\n      kao(:, 1, 5) = (/ &\n     &3.5802e-05_rb,4.9569e-05_rb,5.6081e-05_rb,5.4456e-05_rb,6.1620e-05_rb/)\n      kao(:, 2, 5) = (/ &\n     &2.7431e-05_rb,3.7092e-05_rb,4.0464e-05_rb,4.0603e-05_rb,5.2992e-05_rb/)\n      kao(:, 3, 5) = (/ &\n     &1.6511e-05_rb,2.1182e-05_rb,1.9952e-05_rb,2.9271e-05_rb,4.8230e-05_rb/)\n      kao(:, 4, 5) = (/ &\n     &1.1211e-05_rb,1.2922e-05_rb,1.4441e-05_rb,2.5935e-05_rb,3.8342e-05_rb/)\n      kao(:, 5, 5) = (/ &\n     &7.1937e-06_rb,7.6149e-06_rb,1.2471e-05_rb,2.1334e-05_rb,3.0465e-05_rb/)\n      kao(:, 6, 5) = (/ &\n     &4.6613e-06_rb,5.5104e-06_rb,1.0664e-05_rb,1.6922e-05_rb,2.4802e-05_rb/)\n      kao(:, 7, 5) = (/ &\n     &2.6908e-06_rb,5.1362e-06_rb,9.2865e-06_rb,1.4719e-05_rb,2.2004e-05_rb/)\n      kao(:, 8, 5) = (/ &\n     &2.4192e-06_rb,4.7977e-06_rb,8.6605e-06_rb,1.4122e-05_rb,2.1533e-05_rb/)\n      kao(:, 9, 5) = (/ &\n     &2.6505e-06_rb,5.2138e-06_rb,9.6090e-06_rb,1.6493e-05_rb,2.6941e-05_rb/)\n      kao(:,10, 5) = (/ &\n     &3.8793e-06_rb,7.0191e-06_rb,1.2677e-05_rb,2.2456e-05_rb,3.8574e-05_rb/)\n      kao(:,11, 5) = (/ &\n     &4.3385e-06_rb,8.1555e-06_rb,1.4661e-05_rb,2.7034e-05_rb,4.5538e-05_rb/)\n      kao(:,12, 5) = (/ &\n     &4.4806e-06_rb,8.0941e-06_rb,1.5170e-05_rb,2.7140e-05_rb,4.7747e-05_rb/)\n      kao(:,13, 5) = (/ &\n     &4.0859e-06_rb,7.4306e-06_rb,1.3915e-05_rb,2.5201e-05_rb,4.3638e-05_rb/)\n      kao(:, 1, 6) = (/ &\n     &6.3502e-05_rb,6.1626e-05_rb,6.7874e-05_rb,7.9926e-05_rb,1.4827e-04_rb/)\n      kao(:, 2, 6) = (/ &\n     &4.2546e-05_rb,3.3547e-05_rb,4.0025e-05_rb,7.0944e-05_rb,1.2242e-04_rb/)\n      kao(:, 3, 6) = (/ &\n     &2.4414e-05_rb,2.4466e-05_rb,3.6681e-05_rb,6.7397e-05_rb,9.7673e-05_rb/)\n      kao(:, 4, 6) = (/ &\n     &1.1878e-05_rb,1.6683e-05_rb,3.4310e-05_rb,5.3734e-05_rb,7.4953e-05_rb/)\n      kao(:, 5, 6) = (/ &\n     &8.0437e-06_rb,1.5133e-05_rb,2.7743e-05_rb,4.0147e-05_rb,5.6233e-05_rb/)\n      kao(:, 6, 6) = (/ &\n     &6.1550e-06_rb,1.2316e-05_rb,1.9945e-05_rb,3.0529e-05_rb,4.5113e-05_rb/)\n      kao(:, 7, 6) = (/ &\n     &4.8891e-06_rb,9.6377e-06_rb,1.6338e-05_rb,2.4863e-05_rb,3.7137e-05_rb/)\n      kao(:, 8, 6) = (/ &\n     &4.3692e-06_rb,8.7526e-06_rb,1.4669e-05_rb,2.2987e-05_rb,3.5150e-05_rb/)\n      kao(:, 9, 6) = (/ &\n     &5.3838e-06_rb,1.0727e-05_rb,1.8376e-05_rb,3.0485e-05_rb,4.8603e-05_rb/)\n      kao(:,10, 6) = (/ &\n     &6.7708e-06_rb,1.4529e-05_rb,2.6810e-05_rb,4.7617e-05_rb,7.8536e-05_rb/)\n      kao(:,11, 6) = (/ &\n     &8.3666e-06_rb,1.7190e-05_rb,3.3330e-05_rb,5.7837e-05_rb,9.5886e-05_rb/)\n      kao(:,12, 6) = (/ &\n     &8.6264e-06_rb,1.8503e-05_rb,3.4797e-05_rb,6.1435e-05_rb,1.0046e-04_rb/)\n      kao(:,13, 6) = (/ &\n     &8.2669e-06_rb,1.8055e-05_rb,3.3739e-05_rb,5.7805e-05_rb,9.4677e-05_rb/)\n      kao(:, 1, 7) = (/ &\n     &5.0894e-05_rb,6.7019e-05_rb,1.1702e-04_rb,2.4649e-04_rb,3.5046e-04_rb/)\n      kao(:, 2, 7) = (/ &\n     &4.3304e-05_rb,4.9708e-05_rb,1.0701e-04_rb,1.8228e-04_rb,2.5635e-04_rb/)\n      kao(:, 3, 7) = (/ &\n     &2.6855e-05_rb,4.5972e-05_rb,9.9426e-05_rb,1.4867e-04_rb,2.0722e-04_rb/)\n      kao(:, 4, 7) = (/ &\n     &2.0223e-05_rb,4.9973e-05_rb,8.2293e-05_rb,1.1822e-04_rb,1.6484e-04_rb/)\n      kao(:, 5, 7) = (/ &\n     &1.8923e-05_rb,4.1445e-05_rb,6.4003e-05_rb,9.2899e-05_rb,1.3171e-04_rb/)\n      kao(:, 6, 7) = (/ &\n     &1.5326e-05_rb,3.0718e-05_rb,4.7457e-05_rb,6.8025e-05_rb,9.5982e-05_rb/)\n      kao(:, 7, 7) = (/ &\n     &1.2448e-05_rb,2.1715e-05_rb,3.2987e-05_rb,4.9690e-05_rb,7.5010e-05_rb/)\n      kao(:, 8, 7) = (/ &\n     &1.0066e-05_rb,1.7102e-05_rb,2.7164e-05_rb,4.3976e-05_rb,6.9078e-05_rb/)\n      kao(:, 9, 7) = (/ &\n     &1.1685e-05_rb,2.0037e-05_rb,3.5620e-05_rb,5.8499e-05_rb,9.0997e-05_rb/)\n      kao(:,10, 7) = (/ &\n     &1.5861e-05_rb,2.8659e-05_rb,5.0802e-05_rb,8.4995e-05_rb,1.3698e-04_rb/)\n      kao(:,11, 7) = (/ &\n     &2.1379e-05_rb,3.8980e-05_rb,6.8341e-05_rb,1.1084e-04_rb,1.6745e-04_rb/)\n      kao(:,12, 7) = (/ &\n     &2.2487e-05_rb,4.0976e-05_rb,7.1749e-05_rb,1.1325e-04_rb,1.7051e-04_rb/)\n      kao(:,13, 7) = (/ &\n     &2.0952e-05_rb,3.7773e-05_rb,6.5636e-05_rb,1.0928e-04_rb,1.6488e-04_rb/)\n      kao(:, 1, 8) = (/ &\n     &1.0722e-04_rb,2.7983e-04_rb,4.9965e-04_rb,7.0430e-04_rb,9.5168e-04_rb/)\n      kao(:, 2, 8) = (/ &\n     &9.2566e-05_rb,2.4429e-04_rb,3.9143e-04_rb,5.5037e-04_rb,7.4482e-04_rb/)\n      kao(:, 3, 8) = (/ &\n     &8.2611e-05_rb,1.7009e-04_rb,2.5121e-04_rb,3.5806e-04_rb,4.9588e-04_rb/)\n      kao(:, 4, 8) = (/ &\n     &7.9199e-05_rb,1.3718e-04_rb,2.0767e-04_rb,3.0111e-04_rb,4.2301e-04_rb/)\n      kao(:, 5, 8) = (/ &\n     &6.6965e-05_rb,1.0994e-04_rb,1.6780e-04_rb,2.4484e-04_rb,3.4718e-04_rb/)\n      kao(:, 6, 8) = (/ &\n     &5.1557e-05_rb,8.4788e-05_rb,1.3259e-04_rb,1.9727e-04_rb,2.8537e-04_rb/)\n      kao(:, 7, 8) = (/ &\n     &3.8653e-05_rb,6.5013e-05_rb,1.0364e-04_rb,1.5866e-04_rb,2.2830e-04_rb/)\n      kao(:, 8, 8) = (/ &\n     &2.8949e-05_rb,4.9620e-05_rb,8.2718e-05_rb,1.3000e-04_rb,1.9256e-04_rb/)\n      kao(:, 9, 8) = (/ &\n     &2.6449e-05_rb,4.6951e-05_rb,7.7311e-05_rb,1.2263e-04_rb,1.9501e-04_rb/)\n      kao(:,10, 8) = (/ &\n     &4.1706e-05_rb,7.2947e-05_rb,1.1853e-04_rb,1.7821e-04_rb,2.7161e-04_rb/)\n      kao(:,11, 8) = (/ &\n     &4.6073e-05_rb,7.9291e-05_rb,1.2399e-04_rb,2.0469e-04_rb,3.0165e-04_rb/)\n      kao(:,12, 8) = (/ &\n     &4.9634e-05_rb,8.1819e-05_rb,1.2723e-04_rb,2.1479e-04_rb,3.2406e-04_rb/)\n      kao(:,13, 8) = (/ &\n     &4.8914e-05_rb,8.2845e-05_rb,1.3095e-04_rb,2.1611e-04_rb,3.1389e-04_rb/)\n      kao(:, 1, 9) = (/ &\n     &7.8561e-04_rb,1.1643e-03_rb,1.6394e-03_rb,2.2582e-03_rb,3.0560e-03_rb/)\n      kao(:, 2, 9) = (/ &\n     &6.6025e-04_rb,9.8571e-04_rb,1.4034e-03_rb,1.9479e-03_rb,2.6634e-03_rb/)\n      kao(:, 3, 9) = (/ &\n     &5.1307e-04_rb,7.6204e-04_rb,1.0925e-03_rb,1.5312e-03_rb,2.1163e-03_rb/)\n      kao(:, 4, 9) = (/ &\n     &3.4762e-04_rb,5.0219e-04_rb,7.2255e-04_rb,1.0302e-03_rb,1.4514e-03_rb/)\n      kao(:, 5, 9) = (/ &\n     &2.1712e-04_rb,3.4419e-04_rb,5.2965e-04_rb,7.8732e-04_rb,1.1464e-03_rb/)\n      kao(:, 6, 9) = (/ &\n     &1.8112e-04_rb,2.9769e-04_rb,4.6916e-04_rb,7.0360e-04_rb,1.0307e-03_rb/)\n      kao(:, 7, 9) = (/ &\n     &1.5449e-04_rb,2.5935e-04_rb,4.1089e-04_rb,6.2682e-04_rb,9.3587e-04_rb/)\n      kao(:, 8, 9) = (/ &\n     &1.4056e-04_rb,2.4062e-04_rb,3.8562e-04_rb,5.9348e-04_rb,8.8749e-04_rb/)\n      kao(:, 9, 9) = (/ &\n     &1.4311e-04_rb,2.5683e-04_rb,4.3997e-04_rb,6.9753e-04_rb,1.0500e-03_rb/)\n      kao(:,10, 9) = (/ &\n     &1.3733e-04_rb,2.3478e-04_rb,3.4047e-04_rb,4.8048e-04_rb,6.5263e-04_rb/)\n      kao(:,11, 9) = (/ &\n     &1.3199e-04_rb,1.9086e-04_rb,2.6427e-04_rb,3.3652e-04_rb,4.6218e-04_rb/)\n      kao(:,12, 9) = (/ &\n     &1.2421e-04_rb,1.8123e-04_rb,2.4759e-04_rb,3.0949e-04_rb,4.1038e-04_rb/)\n      kao(:,13, 9) = (/ &\n     &1.2135e-04_rb,1.9021e-04_rb,2.6678e-04_rb,3.4185e-04_rb,4.8239e-04_rb/)\n      kao(:, 1,10) = (/ &\n     &2.0319e-03_rb,2.8954e-03_rb,4.0208e-03_rb,5.4666e-03_rb,7.2307e-03_rb/)\n      kao(:, 2,10) = (/ &\n     &1.8594e-03_rb,2.6055e-03_rb,3.5896e-03_rb,4.9149e-03_rb,6.5643e-03_rb/)\n      kao(:, 3,10) = (/ &\n     &1.4858e-03_rb,2.1438e-03_rb,3.0067e-03_rb,4.1237e-03_rb,5.5345e-03_rb/)\n      kao(:, 4,10) = (/ &\n     &1.1237e-03_rb,1.6648e-03_rb,2.4078e-03_rb,3.3725e-03_rb,4.5628e-03_rb/)\n      kao(:, 5,10) = (/ &\n     &8.5681e-04_rb,1.0371e-03_rb,1.2665e-03_rb,1.6242e-03_rb,2.0962e-03_rb/)\n      kao(:, 6,10) = (/ &\n     &4.1878e-04_rb,6.5245e-04_rb,8.8673e-04_rb,1.4273e-03_rb,2.1165e-03_rb/)\n      kao(:, 7,10) = (/ &\n     &4.0657e-04_rb,6.7784e-04_rb,1.0299e-03_rb,1.5982e-03_rb,2.4416e-03_rb/)\n      kao(:, 8,10) = (/ &\n     &3.7189e-04_rb,6.5876e-04_rb,1.1259e-03_rb,1.8690e-03_rb,2.8514e-03_rb/)\n      kao(:, 9,10) = (/ &\n     &4.4113e-04_rb,8.4598e-04_rb,1.1991e-03_rb,1.8860e-03_rb,2.5835e-03_rb/)\n      kao(:,10,10) = (/ &\n     &1.8203e-04_rb,4.6909e-06_rb,8.8196e-06_rb,8.3149e-05_rb,1.6489e-04_rb/)\n      kao(:,11,10) = (/ &\n     &2.4843e-06_rb,5.0211e-06_rb,4.0342e-05_rb,1.0733e-04_rb,1.3735e-04_rb/)\n      kao(:,12,10) = (/ &\n     &2.2109e-06_rb,4.6775e-06_rb,6.3563e-05_rb,8.8385e-05_rb,1.1814e-04_rb/)\n      kao(:,13,10) = (/ &\n     &1.0306e-04_rb,2.9167e-05_rb,5.8184e-05_rb,8.2616e-05_rb,1.2141e-04_rb/)\n      kao(:, 1,11) = (/ &\n     &2.6851e-03_rb,3.8621e-03_rb,5.3296e-03_rb,7.1411e-03_rb,9.4750e-03_rb/)\n      kao(:, 2,11) = (/ &\n     &2.4213e-03_rb,3.4979e-03_rb,4.8929e-03_rb,6.6432e-03_rb,8.8031e-03_rb/)\n      kao(:, 3,11) = (/ &\n     &2.0817e-03_rb,2.9708e-03_rb,4.1510e-03_rb,5.7232e-03_rb,7.7624e-03_rb/)\n      kao(:, 4,11) = (/ &\n     &1.6627e-03_rb,2.4521e-03_rb,3.4576e-03_rb,4.7721e-03_rb,6.5543e-03_rb/)\n      kao(:, 5,11) = (/ &\n     &1.2664e-03_rb,1.9577e-03_rb,2.8702e-03_rb,4.0767e-03_rb,5.5807e-03_rb/)\n      kao(:, 6,11) = (/ &\n     &6.5451e-04_rb,7.6752e-04_rb,1.2109e-03_rb,1.8526e-03_rb,2.8298e-03_rb/)\n      kao(:, 7,11) = (/ &\n     &4.8621e-04_rb,7.7329e-04_rb,1.3520e-03_rb,2.1779e-03_rb,3.1034e-03_rb/)\n      kao(:, 8,11) = (/ &\n     &4.3573e-04_rb,8.1759e-04_rb,1.5409e-03_rb,2.1798e-03_rb,3.1170e-03_rb/)\n      kao(:, 9,11) = (/ &\n     &5.3220e-04_rb,6.5242e-04_rb,1.0365e-03_rb,8.6351e-04_rb,8.5932e-04_rb/)\n      kao(:,10,11) = (/ &\n     &4.1711e-06_rb,8.9963e-06_rb,1.7277e-05_rb,3.1054e-05_rb,5.1955e-05_rb/)\n      kao(:,11,11) = (/ &\n     &4.2641e-06_rb,9.2786e-06_rb,1.7917e-05_rb,3.2294e-05_rb,1.1099e-04_rb/)\n      kao(:,12,11) = (/ &\n     &4.4244e-06_rb,9.4799e-06_rb,1.8618e-05_rb,7.5019e-05_rb,1.5478e-04_rb/)\n      kao(:,13,11) = (/ &\n     &4.4439e-06_rb,9.5554e-06_rb,3.7663e-05_rb,9.5587e-05_rb,1.4453e-04_rb/)\n      kao(:, 1,12) = (/ &\n     &3.5676e-03_rb,4.9715e-03_rb,6.8023e-03_rb,9.2475e-03_rb,1.2425e-02_rb/)\n      kao(:, 2,12) = (/ &\n     &3.3730e-03_rb,4.7958e-03_rb,6.6635e-03_rb,9.0736e-03_rb,1.2194e-02_rb/)\n      kao(:, 3,12) = (/ &\n     &2.8824e-03_rb,4.1856e-03_rb,5.9756e-03_rb,8.2464e-03_rb,1.1067e-02_rb/)\n      kao(:, 4,12) = (/ &\n     &2.4288e-03_rb,3.5141e-03_rb,5.0677e-03_rb,7.1261e-03_rb,9.7127e-03_rb/)\n      kao(:, 5,12) = (/ &\n     &1.9807e-03_rb,2.9284e-03_rb,4.2016e-03_rb,5.9142e-03_rb,8.1484e-03_rb/)\n      kao(:, 6,12) = (/ &\n     &1.4728e-03_rb,2.2453e-03_rb,3.0533e-03_rb,3.8340e-03_rb,4.6395e-03_rb/)\n      kao(:, 7,12) = (/ &\n     &5.6245e-04_rb,9.9265e-04_rb,1.6138e-03_rb,2.6180e-03_rb,3.5983e-03_rb/)\n      kao(:, 8,12) = (/ &\n     &5.6232e-04_rb,1.0725e-03_rb,1.5736e-03_rb,2.7015e-03_rb,4.5325e-03_rb/)\n      kao(:, 9,12) = (/ &\n     &3.8503e-04_rb,4.5325e-04_rb,3.4069e-05_rb,5.9217e-05_rb,9.6016e-05_rb/)\n      kao(:,10,12) = (/ &\n     &6.7276e-06_rb,1.4849e-05_rb,2.8992e-05_rb,5.2371e-05_rb,8.7139e-05_rb/)\n      kao(:,11,12) = (/ &\n     &7.7381e-06_rb,1.7002e-05_rb,3.3523e-05_rb,6.0232e-05_rb,1.0004e-04_rb/)\n      kao(:,12,12) = (/ &\n     &8.5790e-06_rb,1.9107e-05_rb,3.7746e-05_rb,6.8157e-05_rb,1.1211e-04_rb/)\n      kao(:,13,12) = (/ &\n     &9.3399e-06_rb,2.1875e-05_rb,4.3407e-05_rb,7.7729e-05_rb,1.5956e-04_rb/)\n      kao(:, 1,13) = (/ &\n     &4.3788e-03_rb,6.3181e-03_rb,8.9543e-03_rb,1.2364e-02_rb,1.6648e-02_rb/)\n      kao(:, 2,13) = (/ &\n     &4.4160e-03_rb,6.2758e-03_rb,8.7769e-03_rb,1.2121e-02_rb,1.6531e-02_rb/)\n      kao(:, 3,13) = (/ &\n     &3.9967e-03_rb,5.8737e-03_rb,8.1369e-03_rb,1.1188e-02_rb,1.5344e-02_rb/)\n      kao(:, 4,13) = (/ &\n     &3.4004e-03_rb,5.1547e-03_rb,7.3735e-03_rb,1.0182e-02_rb,1.3939e-02_rb/)\n      kao(:, 5,13) = (/ &\n     &2.9021e-03_rb,4.3823e-03_rb,6.4495e-03_rb,9.1509e-03_rb,1.2669e-02_rb/)\n      kao(:, 6,13) = (/ &\n     &2.4396e-03_rb,3.6407e-03_rb,5.2497e-03_rb,7.5439e-03_rb,1.0675e-02_rb/)\n      kao(:, 7,13) = (/ &\n     &1.5932e-03_rb,1.8719e-03_rb,2.2033e-03_rb,2.5091e-03_rb,4.1046e-03_rb/)\n      kao(:, 8,13) = (/ &\n     &8.1439e-04_rb,1.2125e-03_rb,1.8190e-03_rb,2.8987e-03_rb,3.6148e-03_rb/)\n      kao(:, 9,13) = (/ &\n     &2.9962e-04_rb,2.5888e-05_rb,4.6085e-05_rb,7.7045e-05_rb,1.2285e-04_rb/)\n      kao(:,10,13) = (/ &\n     &9.2091e-06_rb,1.8817e-05_rb,3.5290e-05_rb,6.2611e-05_rb,1.0050e-04_rb/)\n      kao(:,11,13) = (/ &\n     &8.8922e-06_rb,1.8844e-05_rb,3.7039e-05_rb,6.5193e-05_rb,1.0998e-04_rb/)\n      kao(:,12,13) = (/ &\n     &9.1227e-06_rb,2.0282e-05_rb,3.9304e-05_rb,7.0536e-05_rb,1.1697e-04_rb/)\n      kao(:,13,13) = (/ &\n     &9.3384e-06_rb,2.0460e-05_rb,4.0361e-05_rb,7.2805e-05_rb,1.1815e-04_rb/)\n      kao(:, 1,14) = (/ &\n     &5.8176e-03_rb,8.5593e-03_rb,1.2130e-02_rb,1.6770e-02_rb,2.2682e-02_rb/)\n      kao(:, 2,14) = (/ &\n     &5.7661e-03_rb,8.5728e-03_rb,1.2312e-02_rb,1.7131e-02_rb,2.3220e-02_rb/)\n      kao(:, 3,14) = (/ &\n     &5.4299e-03_rb,7.9187e-03_rb,1.1613e-02_rb,1.6480e-02_rb,2.2670e-02_rb/)\n      kao(:, 4,14) = (/ &\n     &4.9805e-03_rb,7.1731e-03_rb,1.0470e-02_rb,1.5114e-02_rb,2.1203e-02_rb/)\n      kao(:, 5,14) = (/ &\n     &4.4098e-03_rb,6.5055e-03_rb,9.4518e-03_rb,1.3613e-02_rb,1.9313e-02_rb/)\n      kao(:, 6,14) = (/ &\n     &3.7762e-03_rb,5.6862e-03_rb,8.4288e-03_rb,1.2169e-02_rb,1.7260e-02_rb/)\n      kao(:, 7,14) = (/ &\n     &3.2464e-03_rb,4.8124e-03_rb,6.8092e-03_rb,9.1900e-03_rb,1.1370e-02_rb/)\n      kao(:, 8,14) = (/ &\n     &1.1521e-03_rb,1.1423e-03_rb,1.7687e-03_rb,1.5659e-03_rb,2.2329e-03_rb/)\n      kao(:, 9,14) = (/ &\n     &1.9075e-05_rb,4.4531e-05_rb,8.9053e-05_rb,1.1868e-04_rb,1.6905e-04_rb/)\n      kao(:,10,14) = (/ &\n     &1.1271e-05_rb,2.8156e-05_rb,6.0244e-05_rb,8.6340e-05_rb,1.3123e-04_rb/)\n      kao(:,11,14) = (/ &\n     &1.1591e-05_rb,2.8030e-05_rb,4.8484e-05_rb,7.4281e-05_rb,1.1022e-04_rb/)\n      kao(:,12,14) = (/ &\n     &1.1274e-05_rb,2.5700e-05_rb,4.0234e-05_rb,6.2656e-05_rb,9.8261e-05_rb/)\n      kao(:,13,14) = (/ &\n     &1.0130e-05_rb,1.8686e-05_rb,3.2466e-05_rb,5.4260e-05_rb,8.5980e-05_rb/)\n      kao(:, 1,15) = (/ &\n     &8.0623e-03_rb,1.1623e-02_rb,1.6754e-02_rb,2.3990e-02_rb,3.4103e-02_rb/)\n      kao(:, 2,15) = (/ &\n     &8.1053e-03_rb,1.1698e-02_rb,1.6865e-02_rb,2.3848e-02_rb,3.3543e-02_rb/)\n      kao(:, 3,15) = (/ &\n     &7.5058e-03_rb,1.0852e-02_rb,1.5814e-02_rb,2.2160e-02_rb,3.0813e-02_rb/)\n      kao(:, 4,15) = (/ &\n     &6.7816e-03_rb,9.9478e-03_rb,1.4382e-02_rb,2.0576e-02_rb,2.8388e-02_rb/)\n      kao(:, 5,15) = (/ &\n     &6.3211e-03_rb,9.1146e-03_rb,1.3301e-02_rb,1.9331e-02_rb,2.6874e-02_rb/)\n      kao(:, 6,15) = (/ &\n     &5.8531e-03_rb,8.4323e-03_rb,1.2188e-02_rb,1.7787e-02_rb,2.5518e-02_rb/)\n      kao(:, 7,15) = (/ &\n     &5.3028e-03_rb,7.8385e-03_rb,1.1331e-02_rb,1.6285e-02_rb,2.3804e-02_rb/)\n      kao(:, 8,15) = (/ &\n     &4.7139e-03_rb,4.9648e-03_rb,2.7936e-03_rb,2.1248e-03_rb,1.7982e-03_rb/)\n      kao(:, 9,15) = (/ &\n     &6.9507e-07_rb,1.4412e-06_rb,2.8345e-06_rb,1.0911e-04_rb,2.4370e-04_rb/)\n      kao(:,10,15) = (/ &\n     &3.6501e-07_rb,8.3446e-07_rb,1.6843e-06_rb,6.4065e-05_rb,1.5410e-04_rb/)\n      kao(:,11,15) = (/ &\n     &2.8886e-07_rb,6.6813e-07_rb,2.2629e-05_rb,7.8818e-05_rb,1.6163e-04_rb/)\n      kao(:,12,15) = (/ &\n     &2.6037e-07_rb,5.5485e-07_rb,3.1734e-05_rb,8.0123e-05_rb,1.4669e-04_rb/)\n      kao(:,13,15) = (/ &\n     &2.3446e-07_rb,1.2097e-05_rb,3.4961e-05_rb,7.1280e-05_rb,1.2611e-04_rb/)\n      kao(:, 1,16) = (/ &\n     &8.7570e-03_rb,1.2357e-02_rb,1.9959e-02_rb,3.2636e-02_rb,5.0897e-02_rb/)\n      kao(:, 2,16) = (/ &\n     &9.0825e-03_rb,1.2808e-02_rb,1.9776e-02_rb,3.3132e-02_rb,5.2704e-02_rb/)\n      kao(:, 3,16) = (/ &\n     &8.8201e-03_rb,1.2594e-02_rb,1.7588e-02_rb,3.0181e-02_rb,4.9544e-02_rb/)\n      kao(:, 4,16) = (/ &\n     &8.3170e-03_rb,1.2140e-02_rb,1.6975e-02_rb,2.5787e-02_rb,4.3638e-02_rb/)\n      kao(:, 5,16) = (/ &\n     &7.7605e-03_rb,1.1646e-02_rb,1.6641e-02_rb,2.2927e-02_rb,3.7740e-02_rb/)\n      kao(:, 6,16) = (/ &\n     &7.0356e-03_rb,1.0930e-02_rb,1.6057e-02_rb,2.2523e-02_rb,3.2226e-02_rb/)\n      kao(:, 7,16) = (/ &\n     &6.7105e-03_rb,1.0123e-02_rb,1.5354e-02_rb,2.2098e-02_rb,3.0452e-02_rb/)\n      kao(:, 8,16) = (/ &\n     &6.7590e-03_rb,9.3669e-03_rb,1.4563e-02_rb,1.3873e-02_rb,1.5872e-03_rb/)\n      kao(:, 9,16) = (/ &\n     &5.9690e-07_rb,1.4246e-06_rb,2.9975e-06_rb,4.2222e-06_rb,7.0710e-06_rb/)\n      kao(:,10,16) = (/ &\n     &3.1073e-07_rb,7.7259e-07_rb,1.8451e-06_rb,3.5923e-06_rb,5.6864e-06_rb/)\n      kao(:,11,16) = (/ &\n     &2.5196e-07_rb,6.5326e-07_rb,1.5669e-06_rb,3.1861e-06_rb,5.6813e-06_rb/)\n      kao(:,12,16) = (/ &\n     &1.8633e-07_rb,5.5942e-07_rb,1.3020e-06_rb,2.7030e-06_rb,4.5791e-06_rb/)\n      kao(:,13,16) = (/ &\n     &1.4070e-07_rb,4.5125e-07_rb,1.0269e-06_rb,2.1236e-06_rb,3.8826e-06_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kao_mco2(:, 1) = (/ &\n     & 1.45661e-05_rb, 1.73337e-05_rb, 2.06273e-05_rb, 2.45466e-05_rb, 2.92105e-05_rb, &\n     & 3.47607e-05_rb, 4.13654e-05_rb, 4.92251e-05_rb, 5.85781e-05_rb, 6.97083e-05_rb, &\n     & 8.29533e-05_rb, 9.87149e-05_rb, 1.17471e-04_rb, 1.39792e-04_rb, 1.66353e-04_rb, &\n     & 1.97961e-04_rb, 2.35574e-04_rb, 2.80335e-04_rb, 3.33600e-04_rb/)\n      kao_mco2(:, 2) = (/ &\n     & 9.96332e-06_rb, 1.21229e-05_rb, 1.47506e-05_rb, 1.79478e-05_rb, 2.18381e-05_rb, &\n     & 2.65716e-05_rb, 3.23310e-05_rb, 3.93389e-05_rb, 4.78658e-05_rb, 5.82408e-05_rb, &\n     & 7.08647e-05_rb, 8.62250e-05_rb, 1.04914e-04_rb, 1.27655e-04_rb, 1.55325e-04_rb, &\n     & 1.88992e-04_rb, 2.29957e-04_rb, 2.79801e-04_rb, 3.40448e-04_rb/)\n      kao_mco2(:, 3) = (/ &\n     & 1.14968e-05_rb, 1.39890e-05_rb, 1.70215e-05_rb, 2.07115e-05_rb, 2.52013e-05_rb, &\n     & 3.06644e-05_rb, 3.73118e-05_rb, 4.54002e-05_rb, 5.52420e-05_rb, 6.72173e-05_rb, &\n     & 8.17887e-05_rb, 9.95188e-05_rb, 1.21092e-04_rb, 1.47343e-04_rb, 1.79283e-04_rb, &\n     & 2.18148e-04_rb, 2.65438e-04_rb, 3.22980e-04_rb, 3.92995e-04_rb/)\n      kao_mco2(:, 4) = (/ &\n     & 1.02186e-05_rb, 1.23232e-05_rb, 1.48613e-05_rb, 1.79222e-05_rb, 2.16134e-05_rb, &\n     & 2.60649e-05_rb, 3.14332e-05_rb, 3.79071e-05_rb, 4.57145e-05_rb, 5.51297e-05_rb, &\n     & 6.64843e-05_rb, 8.01773e-05_rb, 9.66905e-05_rb, 1.16605e-04_rb, 1.40621e-04_rb, &\n     & 1.69583e-04_rb, 2.04510e-04_rb, 2.46631e-04_rb, 2.97426e-04_rb/)\n      kao_mco2(:, 5) = (/ &\n     & 1.03469e-05_rb, 1.24680e-05_rb, 1.50239e-05_rb, 1.81037e-05_rb, 2.18149e-05_rb, &\n     & 2.62869e-05_rb, 3.16756e-05_rb, 3.81690e-05_rb, 4.59935e-05_rb, 5.54220e-05_rb, &\n     & 6.67833e-05_rb, 8.04737e-05_rb, 9.69704e-05_rb, 1.16849e-04_rb, 1.40803e-04_rb, &\n     & 1.69667e-04_rb, 2.04448e-04_rb, 2.46359e-04_rb, 2.96861e-04_rb/)\n      kao_mco2(:, 6) = (/ &\n     & 1.71660e-05_rb, 2.07334e-05_rb, 2.50420e-05_rb, 3.02461e-05_rb, 3.65317e-05_rb, &\n     & 4.41235e-05_rb, 5.32930e-05_rb, 6.43680e-05_rb, 7.77446e-05_rb, 9.39010e-05_rb, &\n     & 1.13415e-04_rb, 1.36984e-04_rb, 1.65451e-04_rb, 1.99835e-04_rb, 2.41363e-04_rb, &\n     & 2.91522e-04_rb, 3.52104e-04_rb, 4.25276e-04_rb, 5.13654e-04_rb/)\n      kao_mco2(:, 7) = (/ &\n     & 4.78803e-05_rb, 5.79395e-05_rb, 7.01119e-05_rb, 8.48418e-05_rb, 1.02666e-04_rb, &\n     & 1.24235e-04_rb, 1.50336e-04_rb, 1.81920e-04_rb, 2.20139e-04_rb, 2.66388e-04_rb, &\n     & 3.22354e-04_rb, 3.90077e-04_rb, 4.72028e-04_rb, 5.71197e-04_rb, 6.91199e-04_rb, &\n     & 8.36413e-04_rb, 1.01214e-03_rb, 1.22477e-03_rb, 1.48209e-03_rb/)\n      kao_mco2(:, 8) = (/ &\n     & 1.27954e-04_rb, 1.55281e-04_rb, 1.88445e-04_rb, 2.28692e-04_rb, 2.77534e-04_rb, &\n     & 3.36808e-04_rb, 4.08741e-04_rb, 4.96037e-04_rb, 6.01977e-04_rb, 7.30542e-04_rb, &\n     & 8.86566e-04_rb, 1.07591e-03_rb, 1.30570e-03_rb, 1.58456e-03_rb, 1.92298e-03_rb, &\n     & 2.33367e-03_rb, 2.83208e-03_rb, 3.43694e-03_rb, 4.17097e-03_rb/)\n      kao_mco2(:, 9) = (/ &\n     & 2.93792e-05_rb, 3.55109e-05_rb, 4.29223e-05_rb, 5.18805e-05_rb, 6.27083e-05_rb, &\n     & 7.57960e-05_rb, 9.16151e-05_rb, 1.10736e-04_rb, 1.33847e-04_rb, 1.61782e-04_rb, &\n     & 1.95547e-04_rb, 2.36359e-04_rb, 2.85689e-04_rb, 3.45315e-04_rb, 4.17384e-04_rb, &\n     & 5.04495e-04_rb, 6.09787e-04_rb, 7.37054e-04_rb, 8.90882e-04_rb/)\n      kao_mco2(:,10) = (/ &\n     & 5.08569e-05_rb, 6.24700e-05_rb, 7.67350e-05_rb, 9.42574e-05_rb, 1.15781e-04_rb, &\n     & 1.42220e-04_rb, 1.74695e-04_rb, 2.14587e-04_rb, 2.63588e-04_rb, 3.23778e-04_rb, &\n     & 3.97712e-04_rb, 4.88530e-04_rb, 6.00085e-04_rb, 7.37114e-04_rb, 9.05433e-04_rb, &\n     & 1.11219e-03_rb, 1.36616e-03_rb, 1.67812e-03_rb, 2.06131e-03_rb/)\n      kao_mco2(:,11) = (/ &\n     & 4.82546e-06_rb, 6.21462e-06_rb, 8.00369e-06_rb, 1.03078e-05_rb, 1.32752e-05_rb, &\n     & 1.70969e-05_rb, 2.20188e-05_rb, 2.83575e-05_rb, 3.65211e-05_rb, 4.70348e-05_rb, &\n     & 6.05753e-05_rb, 7.80138e-05_rb, 1.00472e-04_rb, 1.29397e-04_rb, 1.66647e-04_rb, &\n     & 2.14622e-04_rb, 2.76407e-04_rb, 3.55980e-04_rb, 4.58459e-04_rb/)\n      kao_mco2(:,12) = (/ &\n     & 2.41346e-06_rb, 2.96282e-06_rb, 3.63723e-06_rb, 4.46516e-06_rb, 5.48153e-06_rb, &\n     & 6.72926e-06_rb, 8.26100e-06_rb, 1.01414e-05_rb, 1.24498e-05_rb, 1.52837e-05_rb, &\n     & 1.87627e-05_rb, 2.30335e-05_rb, 2.82765e-05_rb, 3.47129e-05_rb, 4.26144e-05_rb, &\n     & 5.23144e-05_rb, 6.42225e-05_rb, 7.88410e-05_rb, 9.67871e-05_rb/)\n      kao_mco2(:,13) = (/ &\n     & 2.76412e-06_rb, 3.46195e-06_rb, 4.33596e-06_rb, 5.43062e-06_rb, 6.80164e-06_rb, &\n     & 8.51879e-06_rb, 1.06695e-05_rb, 1.33631e-05_rb, 1.67367e-05_rb, 2.09621e-05_rb, &\n     & 2.62542e-05_rb, 3.28824e-05_rb, 4.11839e-05_rb, 5.15813e-05_rb, 6.46035e-05_rb, &\n     & 8.09134e-05_rb, 1.01341e-04_rb, 1.26925e-04_rb, 1.58969e-04_rb/)\n      kao_mco2(:,14) = (/ &\n     & 1.25126e-06_rb, 1.54971e-06_rb, 1.91935e-06_rb, 2.37715e-06_rb, 2.94416e-06_rb, &\n     & 3.64640e-06_rb, 4.51615e-06_rb, 5.59335e-06_rb, 6.92749e-06_rb, 8.57985e-06_rb, &\n     & 1.06263e-05_rb, 1.31610e-05_rb, 1.63001e-05_rb, 2.01881e-05_rb, 2.50034e-05_rb, &\n     & 3.09672e-05_rb, 3.83536e-05_rb, 4.75018e-05_rb, 5.88319e-05_rb/)\n      kao_mco2(:,15) = (/ &\n     & 1.59748e-06_rb, 2.08378e-06_rb, 2.71812e-06_rb, 3.54557e-06_rb, 4.62491e-06_rb, &\n     & 6.03282e-06_rb, 7.86932e-06_rb, 1.02649e-05_rb, 1.33897e-05_rb, 1.74658e-05_rb, &\n     & 2.27827e-05_rb, 2.97182e-05_rb, 3.87649e-05_rb, 5.05657e-05_rb, 6.59589e-05_rb, &\n     & 8.60380e-05_rb, 1.12230e-04_rb, 1.46394e-04_rb, 1.90959e-04_rb/)\n      kao_mco2(:,16) = (/ &\n     & 1.68148e-06_rb, 2.17133e-06_rb, 2.80388e-06_rb, 3.62071e-06_rb, 4.67549e-06_rb, &\n     & 6.03756e-06_rb, 7.79642e-06_rb, 1.00677e-05_rb, 1.30006e-05_rb, 1.67879e-05_rb, &\n     & 2.16786e-05_rb, 2.79941e-05_rb, 3.61493e-05_rb, 4.66803e-05_rb, 6.02792e-05_rb, &\n     & 7.78398e-05_rb, 1.00516e-04_rb, 1.29799e-04_rb, 1.67612e-04_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &3.2710e-07_rb,5.2119e-07_rb,8.4740e-07_rb,1.6908e-06_rb,2.3433e-06_rb,4.4129e-06_rb, &\n     &3.8930e-06_rb,2.3338e-06_rb,2.4115e-06_rb,2.4271e-06_rb,2.4836e-06_rb,2.6470e-06_rb, &\n     &2.9559e-06_rb,2.3940e-06_rb,2.9711e-06_rb,2.9511e-06_rb/)\n      forrefo(2,:) = (/ &\n     &6.5125e-07_rb,1.2128e-06_rb,1.7249e-06_rb,2.7126e-06_rb,3.1780e-06_rb,2.1444e-06_rb, &\n     &1.8265e-06_rb,1.7385e-06_rb,1.4574e-06_rb,1.6135e-06_rb,2.4966e-06_rb,2.8127e-06_rb, &\n     &2.5229e-06_rb,2.3251e-06_rb,2.5353e-06_rb,3.0200e-06_rb/)\n      forrefo(3,:) = (/ &\n     &1.4969e-06_rb,1.8516e-06_rb,2.5791e-06_rb,2.7846e-06_rb,1.9789e-06_rb,1.6688e-06_rb, &\n     &1.1037e-06_rb,9.9065e-07_rb,1.1557e-06_rb,7.0847e-07_rb,5.7758e-07_rb,4.0425e-07_rb, &\n     &3.2427e-07_rb,3.2267e-07_rb,3.1444e-07_rb,2.6046e-07_rb/)\n      forrefo(4,:) = (/ &\n     &1.7567e-06_rb,1.6891e-06_rb,2.1003e-06_rb,2.0957e-06_rb,2.3664e-06_rb,2.1538e-06_rb, &\n     &1.5275e-06_rb,1.0487e-06_rb,8.7390e-07_rb,7.9360e-07_rb,7.7778e-07_rb,8.1445e-07_rb, &\n     &8.2121e-07_rb,5.4395e-07_rb,3.1273e-07_rb,3.1848e-07_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 7.73921e-02_rb, 6.45225e-02_rb, 5.37930e-02_rb, 4.48477e-02_rb, 3.73900e-02_rb, &\n     & 3.11723e-02_rb, 2.59887e-02_rb, 2.16670e-02_rb, 1.80640e-02_rb, 1.50601e-02_rb/)\n      selfrefo(:, 2) = (/ &\n     & 8.47756e-02_rb, 7.10616e-02_rb, 5.95660e-02_rb, 4.99301e-02_rb, 4.18529e-02_rb, &\n     & 3.50824e-02_rb, 2.94072e-02_rb, 2.46500e-02_rb, 2.06624e-02_rb, 1.73199e-02_rb/)\n      selfrefo(:, 3) = (/ &\n     & 8.84829e-02_rb, 7.46093e-02_rb, 6.29110e-02_rb, 5.30469e-02_rb, 4.47295e-02_rb, &\n     & 3.77161e-02_rb, 3.18025e-02_rb, 2.68160e-02_rb, 2.26114e-02_rb, 1.90661e-02_rb/)\n      selfrefo(:, 4) = (/ &\n     & 9.27003e-02_rb, 7.88864e-02_rb, 6.71310e-02_rb, 5.71273e-02_rb, 4.86144e-02_rb, &\n     & 4.13700e-02_rb, 3.52052e-02_rb, 2.99590e-02_rb, 2.54946e-02_rb, 2.16955e-02_rb/)\n      selfrefo(:, 5) = (/ &\n     & 9.14315e-02_rb, 7.85661e-02_rb, 6.75110e-02_rb, 5.80115e-02_rb, 4.98487e-02_rb, &\n     & 4.28344e-02_rb, 3.68072e-02_rb, 3.16280e-02_rb, 2.71776e-02_rb, 2.33534e-02_rb/)\n      selfrefo(:, 6) = (/ &\n     & 7.72984e-02_rb, 6.91044e-02_rb, 6.17790e-02_rb, 5.52301e-02_rb, 4.93755e-02_rb, &\n     & 4.41414e-02_rb, 3.94622e-02_rb, 3.52790e-02_rb, 3.15392e-02_rb, 2.81959e-02_rb/)\n      selfrefo(:, 7) = (/ &\n     & 7.46998e-02_rb, 6.66597e-02_rb, 5.94850e-02_rb, 5.30825e-02_rb, 4.73691e-02_rb, &\n     & 4.22707e-02_rb, 3.77210e-02_rb, 3.36610e-02_rb, 3.00380e-02_rb, 2.68049e-02_rb/)\n      selfrefo(:, 8) = (/ &\n     & 7.59386e-02_rb, 6.66263e-02_rb, 5.84560e-02_rb, 5.12876e-02_rb, 4.49982e-02_rb, &\n     & 3.94801e-02_rb, 3.46387e-02_rb, 3.03910e-02_rb, 2.66642e-02_rb, 2.33944e-02_rb/)\n      selfrefo(:, 9) = (/ &\n     & 7.26921e-02_rb, 6.43261e-02_rb, 5.69230e-02_rb, 5.03719e-02_rb, 4.45747e-02_rb, &\n     & 3.94447e-02_rb, 3.49051e-02_rb, 3.08880e-02_rb, 2.73332e-02_rb, 2.41875e-02_rb/)\n      selfrefo(:,10) = (/ &\n     & 7.43684e-02_rb, 6.58735e-02_rb, 5.83490e-02_rb, 5.16840e-02_rb, 4.57803e-02_rb, &\n     & 4.05509e-02_rb, 3.59189e-02_rb, 3.18160e-02_rb, 2.81818e-02_rb, 2.49626e-02_rb/)\n      selfrefo(:,11) = (/ &\n     & 8.97599e-02_rb, 7.73727e-02_rb, 6.66950e-02_rb, 5.74908e-02_rb, 4.95569e-02_rb, &\n     & 4.27179e-02_rb, 3.68227e-02_rb, 3.17410e-02_rb, 2.73606e-02_rb, 2.35848e-02_rb/)\n      selfrefo(:,12) = (/ &\n     & 9.12262e-02_rb, 7.84848e-02_rb, 6.75230e-02_rb, 5.80922e-02_rb, 4.99786e-02_rb, &\n     & 4.29982e-02_rb, 3.69927e-02_rb, 3.18260e-02_rb, 2.73809e-02_rb, 2.35567e-02_rb/)\n      selfrefo(:,13) = (/ &\n     & 9.03254e-02_rb, 7.83291e-02_rb, 6.79260e-02_rb, 5.89046e-02_rb, 5.10813e-02_rb, &\n     & 4.42970e-02_rb, 3.84139e-02_rb, 3.33120e-02_rb, 2.88877e-02_rb, 2.50511e-02_rb/)\n      selfrefo(:,14) = (/ &\n     & 9.22803e-02_rb, 7.94172e-02_rb, 6.83470e-02_rb, 5.88199e-02_rb, 5.06209e-02_rb, &\n     & 4.35647e-02_rb, 3.74921e-02_rb, 3.22660e-02_rb, 2.77684e-02_rb, 2.38977e-02_rb/)\n      selfrefo(:,15) = (/ &\n     & 9.36819e-02_rb, 8.10810e-02_rb, 7.01750e-02_rb, 6.07359e-02_rb, 5.25665e-02_rb, &\n     & 4.54959e-02_rb, 3.93764e-02_rb, 3.40800e-02_rb, 2.94960e-02_rb, 2.55286e-02_rb/)\n      selfrefo(:,16) = (/ &\n     & 1.00195e-01_rb, 8.58713e-02_rb, 7.35950e-02_rb, 6.30737e-02_rb, 5.40566e-02_rb, &\n     & 4.63286e-02_rb, 3.97054e-02_rb, 3.40290e-02_rb, 2.91641e-02_rb, 2.49948e-02_rb/)\n\n      end subroutine lw_kgb06\n\n! **************************************************************************\n      subroutine lw_kgb07\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg07, only : fracrefao, fracrefbo, kao, kbo, kao_mco2, &\n                            kbo_mco2, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 706.27 mb, T = 278.94 K\n      fracrefao(:, 1) = (/ &\n        1.6312e-01_rb,1.4949e-01_rb,1.4305e-01_rb,1.3161e-01_rb,1.1684e-01_rb,9.9900e-02_rb, &\n        8.0912e-02_rb,6.0203e-02_rb,4.0149e-02_rb,4.3365e-03_rb,3.5844e-03_rb,2.8019e-03_rb, &\n        2.0756e-03_rb,1.3449e-03_rb,5.0492e-04_rb,7.1194e-05_rb/)\n      fracrefao(:, 2) = (/ &\n        1.6329e-01_rb,1.4989e-01_rb,1.4328e-01_rb,1.3101e-01_rb,1.1691e-01_rb,9.9754e-02_rb, &\n        8.0956e-02_rb,5.9912e-02_rb,4.0271e-02_rb,4.3298e-03_rb,3.5626e-03_rb,2.8421e-03_rb, &\n        2.1031e-03_rb,1.3360e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 3) = (/ &\n        1.6236e-01_rb,1.5081e-01_rb,1.4341e-01_rb,1.3083e-01_rb,1.1684e-01_rb,9.9701e-02_rb, &\n        8.0956e-02_rb,5.9884e-02_rb,4.0245e-02_rb,4.3837e-03_rb,3.6683e-03_rb,2.9250e-03_rb, &\n        2.0969e-03_rb,1.3320e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 4) = (/ &\n        1.6096e-01_rb,1.5183e-01_rb,1.4354e-01_rb,1.3081e-01_rb,1.1687e-01_rb,9.9619e-02_rb, &\n        8.0947e-02_rb,5.9899e-02_rb,4.0416e-02_rb,4.4389e-03_rb,3.7280e-03_rb,2.9548e-03_rb, &\n        2.0977e-03_rb,1.3305e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 5) = (/ &\n        1.5661e-01_rb,1.5478e-01_rb,1.4414e-01_rb,1.3097e-01_rb,1.1695e-01_rb,9.9823e-02_rb, &\n        8.0750e-02_rb,6.0100e-02_rb,4.0741e-02_rb,4.4598e-03_rb,3.7366e-03_rb,2.9521e-03_rb, &\n        2.0980e-03_rb,1.3297e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 6) = (/ &\n        1.4879e-01_rb,1.5853e-01_rb,1.4586e-01_rb,1.3162e-01_rb,1.1729e-01_rb,1.0031e-01_rb, &\n        8.0908e-02_rb,6.0460e-02_rb,4.1100e-02_rb,4.4578e-03_rb,3.7388e-03_rb,2.9508e-03_rb, &\n        2.0986e-03_rb,1.3288e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 7) = (/ &\n        1.4117e-01_rb,1.4838e-01_rb,1.4807e-01_rb,1.3759e-01_rb,1.2218e-01_rb,1.0228e-01_rb, &\n        8.2130e-02_rb,6.1546e-02_rb,4.1522e-02_rb,4.4577e-03_rb,3.7428e-03_rb,2.9475e-03_rb, &\n        2.0997e-03_rb,1.3277e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 8) = (/ &\n        1.4018e-01_rb,1.4207e-01_rb,1.3919e-01_rb,1.3332e-01_rb,1.2325e-01_rb,1.0915e-01_rb, &\n        9.0280e-02_rb,6.5554e-02_rb,4.1852e-02_rb,4.4707e-03_rb,3.7572e-03_rb,2.9364e-03_rb, &\n        2.1023e-03_rb,1.3249e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n      fracrefao(:, 9) = (/ &\n        1.4863e-01_rb,1.4926e-01_rb,1.4740e-01_rb,1.3558e-01_rb,1.1999e-01_rb,1.0044e-01_rb, &\n        8.1927e-02_rb,6.0989e-02_rb,4.0665e-02_rb,4.4481e-03_rb,3.7369e-03_rb,2.9482e-03_rb, &\n        2.0976e-03_rb,1.3281e-03_rb,4.8965e-04_rb,6.8900e-05_rb/)\n\n! Planck fraction mapping level : P=95.58 mbar, T= 215.70 K\n      fracrefbo(:) = (/ &\n        1.5872e-01_rb,1.5443e-01_rb,1.4413e-01_rb,1.3147e-01_rb,1.1634e-01_rb,9.8914e-02_rb, &\n        8.0236e-02_rb,6.0197e-02_rb,4.0624e-02_rb,4.4225e-03_rb,3.6688e-03_rb,2.9074e-03_rb, &\n        2.0862e-03_rb,1.3039e-03_rb,4.8561e-04_rb,6.8854e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &2.0715e-06_rb,2.0394e-06_rb,5.0240e-06_rb,1.0614e-05_rb,1.1983e-05_rb,1.5554e-05_rb, &\n     &1.7831e-05_rb,2.6227e-05_rb,1.2374e-05_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &2.6968e-06_rb,2.7207e-06_rb,3.6723e-06_rb,1.1698e-05_rb,1.3601e-05_rb,1.5350e-05_rb, &\n     &2.0818e-05_rb,2.8393e-05_rb,1.1509e-05_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &3.4058e-06_rb,3.5757e-06_rb,3.8081e-06_rb,7.3554e-06_rb,1.4372e-05_rb,1.6368e-05_rb, &\n     &1.9019e-05_rb,3.0058e-05_rb,1.1256e-05_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &4.2245e-06_rb,4.8570e-06_rb,4.7347e-06_rb,6.0087e-06_rb,1.4347e-05_rb,1.6902e-05_rb, &\n     &1.9725e-05_rb,2.9609e-05_rb,1.0323e-05_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &5.1348e-06_rb,6.1189e-06_rb,5.9979e-06_rb,6.4031e-06_rb,9.6268e-06_rb,1.7276e-05_rb, &\n     &1.9533e-05_rb,2.5577e-05_rb,1.1200e-05_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &2.7400e-06_rb,2.6398e-06_rb,3.5715e-06_rb,8.9653e-06_rb,1.1704e-05_rb,1.2732e-05_rb, &\n     &1.5109e-05_rb,1.8326e-05_rb,7.6584e-06_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &3.7023e-06_rb,3.5996e-06_rb,3.5466e-06_rb,6.4138e-06_rb,1.4301e-05_rb,1.4484e-05_rb, &\n     &1.7298e-05_rb,2.1003e-05_rb,7.8450e-06_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &4.8529e-06_rb,4.7902e-06_rb,4.4795e-06_rb,5.2052e-06_rb,1.0079e-05_rb,1.6425e-05_rb, &\n     &1.7110e-05_rb,2.3533e-05_rb,8.0830e-06_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &6.0952e-06_rb,6.1266e-06_rb,5.7794e-06_rb,5.6603e-06_rb,7.5131e-06_rb,1.6775e-05_rb, &\n     &1.7862e-05_rb,2.1237e-05_rb,6.9720e-06_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &7.4621e-06_rb,7.9816e-06_rb,7.3755e-06_rb,7.0507e-06_rb,7.2782e-06_rb,1.2172e-05_rb, &\n     &1.8558e-05_rb,2.1490e-05_rb,7.0903e-06_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &4.8603e-06_rb,4.7726e-06_rb,4.1802e-06_rb,5.2554e-06_rb,9.0303e-06_rb,1.4041e-05_rb, &\n     &1.3465e-05_rb,1.4273e-05_rb,4.5115e-06_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &6.5045e-06_rb,6.5033e-06_rb,5.8343e-06_rb,5.3408e-06_rb,7.3167e-06_rb,1.4520e-05_rb, &\n     &1.5602e-05_rb,1.7982e-05_rb,4.5301e-06_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &8.5550e-06_rb,8.5301e-06_rb,7.7170e-06_rb,6.8750e-06_rb,6.6921e-06_rb,1.0610e-05_rb, &\n     &1.8653e-05_rb,1.7976e-05_rb,3.9894e-06_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &1.0940e-05_rb,1.0943e-05_rb,9.9861e-06_rb,8.8481e-06_rb,7.8291e-06_rb,8.3918e-06_rb, &\n     &1.7829e-05_rb,1.8992e-05_rb,3.8512e-06_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &1.3936e-05_rb,1.3811e-05_rb,1.2489e-05_rb,1.1153e-05_rb,9.8326e-06_rb,8.7685e-06_rb, &\n     &1.2193e-05_rb,1.9703e-05_rb,4.2059e-06_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &8.9960e-06_rb,8.6210e-06_rb,7.6632e-06_rb,6.4630e-06_rb,6.4239e-06_rb,9.4367e-06_rb, &\n     &1.6258e-05_rb,1.3756e-05_rb,2.4163e-06_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &1.2134e-05_rb,1.1807e-05_rb,1.0673e-05_rb,9.1029e-06_rb,7.7016e-06_rb,8.4861e-06_rb, &\n     &1.4567e-05_rb,1.5036e-05_rb,2.1658e-06_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &1.6015e-05_rb,1.5688e-05_rb,1.4339e-05_rb,1.2455e-05_rb,1.0313e-05_rb,8.5777e-06_rb, &\n     &1.1331e-05_rb,1.8116e-05_rb,2.2633e-06_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &2.0597e-05_rb,2.0155e-05_rb,1.8480e-05_rb,1.6165e-05_rb,1.3589e-05_rb,1.0837e-05_rb, &\n     &9.4849e-06_rb,2.1131e-05_rb,2.4289e-06_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &2.5729e-05_rb,2.5473e-05_rb,2.3255e-05_rb,2.0429e-05_rb,1.7213e-05_rb,1.3828e-05_rb, &\n     &1.0618e-05_rb,1.5874e-05_rb,3.2874e-06_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &1.6376e-05_rb,1.4981e-05_rb,1.3148e-05_rb,1.1171e-05_rb,9.2339e-06_rb,7.8648e-06_rb, &\n     &1.1215e-05_rb,1.5160e-05_rb,1.0907e-06_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &2.2074e-05_rb,2.0407e-05_rb,1.8083e-05_rb,1.5475e-05_rb,1.2746e-05_rb,1.0050e-05_rb, &\n     &1.0049e-05_rb,1.8902e-05_rb,1.3007e-06_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &2.9048e-05_rb,2.7094e-05_rb,2.4278e-05_rb,2.1033e-05_rb,1.7417e-05_rb,1.3618e-05_rb, &\n     &1.0309e-05_rb,1.5056e-05_rb,1.4150e-06_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &3.7623e-05_rb,3.5233e-05_rb,3.1800e-05_rb,2.7623e-05_rb,2.3164e-05_rb,1.8269e-05_rb, &\n     &1.3014e-05_rb,1.1951e-05_rb,2.0520e-06_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &4.7365e-05_rb,4.4556e-05_rb,4.0255e-05_rb,3.5279e-05_rb,2.9803e-05_rb,2.3695e-05_rb, &\n     &1.6824e-05_rb,1.0864e-05_rb,3.0931e-06_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &2.9059e-05_rb,2.6117e-05_rb,2.2727e-05_rb,1.9184e-05_rb,1.5516e-05_rb,1.1998e-05_rb, &\n     &9.5851e-06_rb,1.6016e-05_rb,6.6366e-07_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &3.9281e-05_rb,3.5568e-05_rb,3.1182e-05_rb,2.6432e-05_rb,2.1505e-05_rb,1.6402e-05_rb, &\n     &1.1717e-05_rb,1.2828e-05_rb,7.2868e-07_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &5.2094e-05_rb,4.7264e-05_rb,4.1432e-05_rb,3.5398e-05_rb,2.9041e-05_rb,2.2416e-05_rb, &\n     &1.5568e-05_rb,1.1439e-05_rb,1.0703e-06_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &6.7466e-05_rb,6.1301e-05_rb,5.3945e-05_rb,4.6275e-05_rb,3.8268e-05_rb,2.9782e-05_rb, &\n     &2.0926e-05_rb,1.2149e-05_rb,1.6636e-06_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &8.5711e-05_rb,7.8253e-05_rb,6.9113e-05_rb,5.9588e-05_rb,4.9429e-05_rb,3.8720e-05_rb, &\n     &2.7357e-05_rb,1.5302e-05_rb,2.4859e-06_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &5.4651e-05_rb,4.8396e-05_rb,4.1917e-05_rb,3.5300e-05_rb,2.8526e-05_rb,2.1678e-05_rb, &\n     &1.5027e-05_rb,1.1124e-05_rb,3.7210e-07_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &7.4826e-05_rb,6.6392e-05_rb,5.7621e-05_rb,4.8629e-05_rb,3.9371e-05_rb,2.9959e-05_rb, &\n     &2.0404e-05_rb,1.1926e-05_rb,4.6517e-07_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &9.9886e-05_rb,8.9008e-05_rb,7.7375e-05_rb,6.5427e-05_rb,5.3175e-05_rb,4.0667e-05_rb, &\n     &2.7777e-05_rb,1.4838e-05_rb,7.6733e-07_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &1.3028e-04_rb,1.1642e-04_rb,1.0145e-04_rb,8.5974e-05_rb,7.0058e-05_rb,5.3698e-05_rb, &\n     &3.6993e-05_rb,1.9660e-05_rb,1.2756e-06_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &1.6675e-04_rb,1.4925e-04_rb,1.3030e-04_rb,1.1056e-04_rb,9.0256e-05_rb,6.9412e-05_rb, &\n     &4.8077e-05_rb,2.5971e-05_rb,2.0598e-06_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &1.3360e-04_rb,1.1739e-04_rb,1.0102e-04_rb,8.4552e-05_rb,6.8007e-05_rb,5.1398e-05_rb, &\n     &3.4619e-05_rb,1.8035e-05_rb,1.9024e-07_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &1.8185e-04_rb,1.6006e-04_rb,1.3792e-04_rb,1.1564e-04_rb,9.3245e-05_rb,7.0615e-05_rb, &\n     &4.7676e-05_rb,2.4529e-05_rb,3.0949e-07_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &2.4405e-04_rb,2.1504e-04_rb,1.8547e-04_rb,1.5570e-04_rb,1.2559e-04_rb,9.5220e-05_rb, &\n     &6.4517e-05_rb,3.3270e-05_rb,5.6654e-07_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &3.2056e-04_rb,2.8296e-04_rb,2.4441e-04_rb,2.0538e-04_rb,1.6592e-04_rb,1.2607e-04_rb, &\n     &8.5723e-05_rb,4.4370e-05_rb,1.0126e-06_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &4.1126e-04_rb,3.6352e-04_rb,3.1426e-04_rb,2.6419e-04_rb,2.1364e-04_rb,1.6265e-04_rb, &\n     &1.1079e-04_rb,5.7674e-05_rb,1.7042e-06_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &6.2463e-04_rb,5.4698e-04_rb,4.6923e-04_rb,3.9140e-04_rb,3.1352e-04_rb,2.3558e-04_rb, &\n     &1.5756e-04_rb,7.9405e-05_rb,1.4148e-07_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &8.5834e-04_rb,7.5200e-04_rb,6.4533e-04_rb,5.3850e-04_rb,4.3155e-04_rb,3.2449e-04_rb, &\n     &2.1732e-04_rb,1.0986e-04_rb,2.9809e-07_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &1.1576e-03_rb,1.0147e-03_rb,8.7098e-04_rb,7.2712e-04_rb,5.8298e-04_rb,4.3871e-04_rb, &\n     &2.9418e-04_rb,1.4894e-04_rb,5.9602e-07_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &1.5307e-03_rb,1.3423e-03_rb,1.1527e-03_rb,9.6254e-04_rb,7.7214e-04_rb,5.8148e-04_rb, &\n     &3.9028e-04_rb,1.9773e-04_rb,1.1255e-06_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &1.9847e-03_rb,1.7410e-03_rb,1.4953e-03_rb,1.2490e-03_rb,1.0025e-03_rb,7.5537e-04_rb, &\n     &5.0679e-04_rb,2.5732e-04_rb,1.9162e-06_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &3.6169e-03_rb,3.1652e-03_rb,2.7133e-03_rb,2.2615e-03_rb,1.8097e-03_rb,1.3577e-03_rb, &\n     &9.0574e-04_rb,4.5358e-04_rb,1.4845e-07_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &4.9699e-03_rb,4.3495e-03_rb,3.7290e-03_rb,3.1084e-03_rb,2.4876e-03_rb,1.8667e-03_rb, &\n     &1.2456e-03_rb,6.2420e-04_rb,3.2434e-07_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &6.7347e-03_rb,5.8945e-03_rb,5.0543e-03_rb,4.2138e-03_rb,3.3728e-03_rb,2.5314e-03_rb, &\n     &1.6895e-03_rb,8.4729e-04_rb,6.8830e-07_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &8.9371e-03_rb,7.8231e-03_rb,6.7088e-03_rb,5.5938e-03_rb,4.4779e-03_rb,3.3612e-03_rb, &\n     &2.2441e-03_rb,1.1262e-03_rb,1.3449e-06_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &1.1613e-02_rb,1.0166e-02_rb,8.7190e-03_rb,7.2700e-03_rb,5.8199e-03_rb,4.3690e-03_rb, &\n     &2.9176e-03_rb,1.4653e-03_rb,2.4729e-06_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &8.2249e-03_rb,7.1970e-03_rb,6.1693e-03_rb,5.1415e-03_rb,4.1138e-03_rb,3.0859e-03_rb, &\n     &2.0579e-03_rb,1.0298e-03_rb,1.4864e-07_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &1.1270e-02_rb,9.8625e-03_rb,8.4545e-03_rb,7.0466e-03_rb,5.6386e-03_rb,4.2301e-03_rb, &\n     &2.8215e-03_rb,1.4124e-03_rb,3.4574e-07_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &1.5223e-02_rb,1.3322e-02_rb,1.1421e-02_rb,9.5200e-03_rb,7.6187e-03_rb,5.7167e-03_rb, &\n     &3.8140e-03_rb,1.9100e-03_rb,7.2590e-07_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &2.0093e-02_rb,1.7585e-02_rb,1.5077e-02_rb,1.2568e-02_rb,1.0059e-02_rb,7.5477e-03_rb, &\n     &5.0358e-03_rb,2.5228e-03_rb,1.4168e-06_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &2.5957e-02_rb,2.2717e-02_rb,1.9478e-02_rb,1.6238e-02_rb,1.2998e-02_rb,9.7533e-03_rb, &\n     &6.5080e-03_rb,3.2606e-03_rb,2.6860e-06_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &1.1827e-02_rb,1.0349e-02_rb,8.8708e-03_rb,7.3929e-03_rb,5.9148e-03_rb,4.4367e-03_rb, &\n     &2.9587e-03_rb,1.4802e-03_rb,1.3931e-07_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &1.6211e-02_rb,1.4185e-02_rb,1.2160e-02_rb,1.0134e-02_rb,8.1087e-03_rb,6.0831e-03_rb, &\n     &4.0569e-03_rb,2.0301e-03_rb,3.2171e-07_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &2.1828e-02_rb,1.9101e-02_rb,1.6374e-02_rb,1.3648e-02_rb,1.0921e-02_rb,8.1937e-03_rb, &\n     &5.4651e-03_rb,2.7355e-03_rb,6.8081e-07_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &2.8730e-02_rb,2.5142e-02_rb,2.1554e-02_rb,1.7967e-02_rb,1.4379e-02_rb,1.0788e-02_rb, &\n     &7.1961e-03_rb,3.6027e-03_rb,1.3459e-06_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &3.6999e-02_rb,3.2380e-02_rb,2.7760e-02_rb,2.3140e-02_rb,1.8520e-02_rb,1.3896e-02_rb, &\n     &9.2700e-03_rb,4.6424e-03_rb,2.5690e-06_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &1.3632e-02_rb,1.1928e-02_rb,1.0225e-02_rb,8.5212e-03_rb,6.8176e-03_rb,5.1139e-03_rb, &\n     &3.4100e-03_rb,1.7059e-03_rb,1.1695e-07_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &1.8706e-02_rb,1.6369e-02_rb,1.4031e-02_rb,1.1694e-02_rb,9.3569e-03_rb,7.0195e-03_rb, &\n     &4.6811e-03_rb,2.3422e-03_rb,2.7119e-07_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &2.5132e-02_rb,2.1993e-02_rb,1.8852e-02_rb,1.5713e-02_rb,1.2573e-02_rb,9.4331e-03_rb, &\n     &6.2911e-03_rb,3.1482e-03_rb,5.7144e-07_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &3.3041e-02_rb,2.8914e-02_rb,2.4787e-02_rb,2.0660e-02_rb,1.6533e-02_rb,1.2406e-02_rb, &\n     &8.2739e-03_rb,4.1414e-03_rb,1.1335e-06_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &4.2440e-02_rb,3.7140e-02_rb,3.1841e-02_rb,2.6541e-02_rb,2.1241e-02_rb,1.5937e-02_rb, &\n     &1.0630e-02_rb,5.3218e-03_rb,2.1676e-06_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &4.1413e-06_rb,5.7568e-06_rb,5.6875e-06_rb,2.2265e-05_rb,2.6421e-05_rb,2.7053e-05_rb, &\n     &2.9360e-05_rb,4.0970e-05_rb,1.4958e-05_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &5.1991e-06_rb,7.4465e-06_rb,7.4944e-06_rb,1.1514e-05_rb,2.6560e-05_rb,2.7448e-05_rb, &\n     &2.9314e-05_rb,3.8310e-05_rb,1.7668e-05_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &6.3145e-06_rb,9.3150e-06_rb,9.9659e-06_rb,1.0415e-05_rb,2.4448e-05_rb,2.8503e-05_rb, &\n     &3.1282e-05_rb,4.1769e-05_rb,1.5395e-05_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &7.5825e-06_rb,1.1197e-05_rb,1.2631e-05_rb,1.2849e-05_rb,1.2505e-05_rb,2.7705e-05_rb, &\n     &3.1429e-05_rb,4.1459e-05_rb,1.9577e-05_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &9.0691e-06_rb,1.3548e-05_rb,1.5444e-05_rb,1.5939e-05_rb,1.4634e-05_rb,2.1478e-05_rb, &\n     &3.0373e-05_rb,4.6504e-05_rb,1.5074e-05_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &6.1165e-06_rb,7.4934e-06_rb,6.8625e-06_rb,7.6121e-06_rb,3.0817e-05_rb,3.2183e-05_rb, &\n     &3.0483e-05_rb,3.3496e-05_rb,1.0690e-05_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &7.6538e-06_rb,9.6280e-06_rb,9.7301e-06_rb,8.1097e-06_rb,1.6826e-05_rb,3.2430e-05_rb, &\n     &3.0532e-05_rb,3.1851e-05_rb,9.7120e-06_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &9.2709e-06_rb,1.2057e-05_rb,1.2568e-05_rb,1.1762e-05_rb,1.2621e-05_rb,3.1032e-05_rb, &\n     &3.2269e-05_rb,3.2750e-05_rb,1.1309e-05_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &1.1033e-05_rb,1.5040e-05_rb,1.5728e-05_rb,1.5466e-05_rb,1.4259e-05_rb,1.7169e-05_rb, &\n     &3.1754e-05_rb,3.4497e-05_rb,1.2084e-05_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &1.2896e-05_rb,1.7847e-05_rb,1.9251e-05_rb,1.9193e-05_rb,1.8160e-05_rb,1.5443e-05_rb, &\n     &2.9856e-05_rb,3.4316e-05_rb,1.0107e-05_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &1.2491e-05_rb,1.2769e-05_rb,1.2392e-05_rb,1.0198e-05_rb,9.0495e-06_rb,2.4479e-05_rb, &\n     &4.2929e-05_rb,3.4687e-05_rb,5.7323e-06_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &1.5715e-05_rb,1.6378e-05_rb,1.5890e-05_rb,1.4699e-05_rb,1.1686e-05_rb,1.2801e-05_rb, &\n     &4.3476e-05_rb,3.5317e-05_rb,5.8828e-06_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &1.9226e-05_rb,2.0527e-05_rb,2.0237e-05_rb,1.8901e-05_rb,1.6806e-05_rb,1.2767e-05_rb, &\n     &3.2801e-05_rb,3.5650e-05_rb,7.0460e-06_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &2.3182e-05_rb,2.5284e-05_rb,2.5183e-05_rb,2.3943e-05_rb,2.1697e-05_rb,1.8156e-05_rb, &\n     &1.6231e-05_rb,3.6132e-05_rb,6.5848e-06_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &2.7146e-05_rb,3.0591e-05_rb,3.0801e-05_rb,2.9528e-05_rb,2.6930e-05_rb,2.3450e-05_rb, &\n     &1.7771e-05_rb,3.6010e-05_rb,8.7258e-06_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &2.6397e-05_rb,2.4798e-05_rb,2.2448e-05_rb,1.9931e-05_rb,1.6167e-05_rb,1.1187e-05_rb, &\n     &1.9967e-05_rb,5.0094e-05_rb,2.6889e-06_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &3.3110e-05_rb,3.1403e-05_rb,2.8621e-05_rb,2.5685e-05_rb,2.2077e-05_rb,1.6320e-05_rb, &\n     &1.2528e-05_rb,5.0766e-05_rb,3.5011e-06_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &4.1079e-05_rb,3.9262e-05_rb,3.5800e-05_rb,3.2065e-05_rb,2.7986e-05_rb,2.3135e-05_rb, &\n     &1.5357e-05_rb,4.2293e-05_rb,3.6570e-06_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &4.9814e-05_rb,4.8178e-05_rb,4.4142e-05_rb,4.0008e-05_rb,3.5086e-05_rb,2.9575e-05_rb, &\n     &2.2305e-05_rb,2.4338e-05_rb,5.5271e-06_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &5.8999e-05_rb,5.7911e-05_rb,5.3941e-05_rb,4.9131e-05_rb,4.3508e-05_rb,3.6745e-05_rb, &\n     &2.8595e-05_rb,1.7749e-05_rb,7.9465e-06_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &5.2146e-05_rb,4.7415e-05_rb,4.1895e-05_rb,3.6100e-05_rb,2.9831e-05_rb,2.2853e-05_rb, &\n     &1.2797e-05_rb,3.5615e-05_rb,1.8756e-06_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &6.6386e-05_rb,6.0667e-05_rb,5.3871e-05_rb,4.6587e-05_rb,3.8801e-05_rb,3.0645e-05_rb, &\n     &1.9749e-05_rb,1.7747e-05_rb,1.8651e-06_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &8.2249e-05_rb,7.5613e-05_rb,6.7372e-05_rb,5.8338e-05_rb,4.8872e-05_rb,3.9037e-05_rb, &\n     &2.7917e-05_rb,1.3785e-05_rb,2.9415e-06_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &1.0042e-04_rb,9.2832e-05_rb,8.2527e-05_rb,7.1569e-05_rb,6.0116e-05_rb,4.8290e-05_rb, &\n     &3.5743e-05_rb,1.9373e-05_rb,4.5717e-06_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &1.2062e-04_rb,1.1245e-04_rb,1.0036e-04_rb,8.7051e-05_rb,7.3237e-05_rb,5.8949e-05_rb, &\n     &4.4093e-05_rb,2.6901e-05_rb,6.6085e-06_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &9.7868e-05_rb,8.7352e-05_rb,7.6231e-05_rb,6.4624e-05_rb,5.2909e-05_rb,4.0689e-05_rb, &\n     &2.7103e-05_rb,1.2458e-05_rb,1.0529e-06_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &1.2683e-04_rb,1.1378e-04_rb,9.9028e-05_rb,8.4157e-05_rb,6.8945e-05_rb,5.3462e-05_rb, &\n     &3.6917e-05_rb,1.5991e-05_rb,1.3630e-06_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &1.5959e-04_rb,1.4323e-04_rb,1.2528e-04_rb,1.0669e-04_rb,8.7707e-05_rb,6.8030e-05_rb, &\n     &4.7823e-05_rb,2.4263e-05_rb,2.3097e-06_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &1.9648e-04_rb,1.7730e-04_rb,1.5536e-04_rb,1.3239e-04_rb,1.0876e-04_rb,8.4595e-05_rb, &\n     &5.9848e-05_rb,3.3068e-05_rb,3.7113e-06_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &2.3620e-04_rb,2.1365e-04_rb,1.8738e-04_rb,1.5973e-04_rb,1.3145e-04_rb,1.0268e-04_rb, &\n     &7.2957e-05_rb,4.1703e-05_rb,5.6387e-06_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &1.9683e-04_rb,1.7373e-04_rb,1.5000e-04_rb,1.2604e-04_rb,1.0197e-04_rb,7.7797e-05_rb, &\n     &5.2829e-05_rb,2.4870e-05_rb,6.2713e-07_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &2.5760e-04_rb,2.2793e-04_rb,1.9707e-04_rb,1.6593e-04_rb,1.3495e-04_rb,1.0291e-04_rb, &\n     &7.0455e-05_rb,3.6046e-05_rb,1.0898e-06_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &3.2772e-04_rb,2.9045e-04_rb,2.5191e-04_rb,2.1251e-04_rb,1.7232e-04_rb,1.3160e-04_rb, &\n     &9.0425e-05_rb,4.7870e-05_rb,1.9368e-06_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &4.0755e-04_rb,3.6253e-04_rb,3.1479e-04_rb,2.6553e-04_rb,2.1537e-04_rb,1.6486e-04_rb, &\n     &1.1337e-04_rb,6.0602e-05_rb,3.1700e-06_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &4.9614e-04_rb,4.4343e-04_rb,3.8479e-04_rb,3.2448e-04_rb,2.6368e-04_rb,2.0203e-04_rb, &\n     &1.3939e-04_rb,7.4791e-05_rb,4.9446e-06_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &5.0097e-04_rb,4.3939e-04_rb,3.7796e-04_rb,3.1605e-04_rb,2.5384e-04_rb,1.9144e-04_rb, &\n     &1.2886e-04_rb,6.5770e-05_rb,4.5473e-07_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &6.6297e-04_rb,5.8193e-04_rb,5.0094e-04_rb,4.1901e-04_rb,3.3675e-04_rb,2.5431e-04_rb, &\n     &1.7173e-04_rb,8.8413e-05_rb,9.2809e-07_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &8.5051e-04_rb,7.4751e-04_rb,6.4368e-04_rb,5.3885e-04_rb,4.3363e-04_rb,3.2808e-04_rb, &\n     &2.2228e-04_rb,1.1512e-04_rb,1.7364e-06_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &1.0693e-03_rb,9.4111e-04_rb,8.1096e-04_rb,6.7960e-04_rb,5.4760e-04_rb,4.1579e-04_rb, &\n     &2.8187e-04_rb,1.4563e-04_rb,2.9681e-06_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &1.3123e-03_rb,1.1563e-03_rb,9.9722e-04_rb,8.3695e-04_rb,6.7599e-04_rb,5.1257e-04_rb, &\n     &3.4753e-04_rb,1.7994e-04_rb,4.7447e-06_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &2.4740e-03_rb,2.1654e-03_rb,1.8568e-03_rb,1.5484e-03_rb,1.2400e-03_rb,9.3161e-04_rb, &\n     &6.2283e-04_rb,3.1298e-04_rb,4.6685e-07_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &3.2850e-03_rb,2.8753e-03_rb,2.4661e-03_rb,2.0570e-03_rb,1.6482e-03_rb,1.2389e-03_rb, &\n     &8.2844e-04_rb,4.1698e-04_rb,9.7197e-07_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &4.2422e-03_rb,3.7138e-03_rb,3.1860e-03_rb,2.6588e-03_rb,2.1312e-03_rb,1.6022e-03_rb, &\n     &1.0719e-03_rb,5.4052e-04_rb,1.8767e-06_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &5.3553e-03_rb,4.6891e-03_rb,4.0243e-03_rb,3.3598e-03_rb,2.6939e-03_rb,2.0261e-03_rb, &\n     &1.3568e-03_rb,6.8626e-04_rb,3.3456e-06_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &6.6220e-03_rb,5.7995e-03_rb,4.9792e-03_rb,4.1587e-03_rb,3.3345e-03_rb,2.5085e-03_rb, &\n     &1.6821e-03_rb,8.5317e-04_rb,5.6245e-06_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &1.5050e-02_rb,1.3169e-02_rb,1.1289e-02_rb,9.4076e-03_rb,7.5270e-03_rb,5.6463e-03_rb, &\n     &3.7658e-03_rb,1.8853e-03_rb,4.7266e-07_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &1.9971e-02_rb,1.7476e-02_rb,1.4981e-02_rb,1.2485e-02_rb,9.9900e-03_rb,7.4947e-03_rb, &\n     &4.9999e-03_rb,2.5053e-03_rb,1.0606e-06_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &2.5996e-02_rb,2.2748e-02_rb,1.9499e-02_rb,1.6252e-02_rb,1.3005e-02_rb,9.7575e-03_rb, &\n     &6.5102e-03_rb,3.2633e-03_rb,2.1957e-06_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &3.3067e-02_rb,2.8935e-02_rb,2.4804e-02_rb,2.0673e-02_rb,1.6543e-02_rb,1.2414e-02_rb, &\n     &8.2853e-03_rb,4.1549e-03_rb,4.2322e-06_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &4.1113e-02_rb,3.5978e-02_rb,3.0842e-02_rb,2.5708e-02_rb,2.0575e-02_rb,1.5443e-02_rb, &\n     &1.0311e-02_rb,5.1716e-03_rb,7.6651e-06_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &3.5447e-02_rb,3.1017e-02_rb,2.6586e-02_rb,2.2156e-02_rb,1.7726e-02_rb,1.3295e-02_rb, &\n     &8.8649e-03_rb,4.4348e-03_rb,5.0606e-07_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &4.6742e-02_rb,4.0900e-02_rb,3.5058e-02_rb,2.9216e-02_rb,2.3374e-02_rb,1.7532e-02_rb, &\n     &1.1691e-02_rb,5.8504e-03_rb,1.1095e-06_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &6.0406e-02_rb,5.2857e-02_rb,4.5306e-02_rb,3.7757e-02_rb,3.0208e-02_rb,2.2660e-02_rb, &\n     &1.5111e-02_rb,7.5645e-03_rb,2.3165e-06_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &7.6519e-02_rb,6.6955e-02_rb,5.7393e-02_rb,4.7830e-02_rb,3.8268e-02_rb,2.8708e-02_rb, &\n     &1.9148e-02_rb,9.5895e-03_rb,4.5048e-06_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &9.5074e-02_rb,8.3196e-02_rb,7.1315e-02_rb,5.9435e-02_rb,4.7553e-02_rb,3.5677e-02_rb, &\n     &2.3800e-02_rb,1.1926e-02_rb,8.0597e-06_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &5.2692e-02_rb,4.6104e-02_rb,3.9518e-02_rb,3.2933e-02_rb,2.6346e-02_rb,1.9761e-02_rb, &\n     &1.3176e-02_rb,6.5900e-03_rb,4.7314e-07_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &6.9235e-02_rb,6.0581e-02_rb,5.1926e-02_rb,4.3273e-02_rb,3.4620e-02_rb,2.5967e-02_rb, &\n     &1.7314e-02_rb,8.6616e-03_rb,1.0517e-06_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &8.9222e-02_rb,7.8070e-02_rb,6.6918e-02_rb,5.5767e-02_rb,4.4616e-02_rb,3.3465e-02_rb, &\n     &2.2315e-02_rb,1.1167e-02_rb,2.1820e-06_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &1.1266e-01_rb,9.8579e-02_rb,8.4496e-02_rb,7.0418e-02_rb,5.6336e-02_rb,4.2258e-02_rb, &\n     &2.8182e-02_rb,1.4107e-02_rb,4.2014e-06_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &1.3942e-01_rb,1.2199e-01_rb,1.0457e-01_rb,8.7148e-02_rb,6.9722e-02_rb,5.2304e-02_rb, &\n     &3.4887e-02_rb,1.7469e-02_rb,7.4819e-06_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &6.2876e-02_rb,5.5018e-02_rb,4.7159e-02_rb,3.9299e-02_rb,3.1440e-02_rb,2.3581e-02_rb, &\n     &1.5722e-02_rb,7.8632e-03_rb,4.0954e-07_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &8.2400e-02_rb,7.2100e-02_rb,6.1801e-02_rb,5.1502e-02_rb,4.1203e-02_rb,3.0903e-02_rb, &\n     &2.0605e-02_rb,1.0307e-02_rb,9.1322e-07_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &1.0586e-01_rb,9.2633e-02_rb,7.9402e-02_rb,6.6169e-02_rb,5.2938e-02_rb,3.9706e-02_rb, &\n     &2.6476e-02_rb,1.3248e-02_rb,1.8983e-06_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &1.3330e-01_rb,1.1664e-01_rb,9.9979e-02_rb,8.3320e-02_rb,6.6657e-02_rb,4.9998e-02_rb, &\n     &3.3342e-02_rb,1.6688e-02_rb,3.6054e-06_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &1.6451e-01_rb,1.4395e-01_rb,1.2339e-01_rb,1.0283e-01_rb,8.2267e-02_rb,6.1710e-02_rb, &\n     &4.1158e-02_rb,2.0605e-02_rb,6.1726e-06_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &1.0158e-05_rb,1.3198e-05_rb,1.2933e-05_rb,1.7710e-05_rb,3.0455e-05_rb,3.0829e-05_rb, &\n     &3.6460e-05_rb,4.7058e-05_rb,1.7479e-05_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &1.1438e-05_rb,1.5570e-05_rb,1.6943e-05_rb,1.4755e-05_rb,2.6165e-05_rb,3.0134e-05_rb, &\n     &3.4781e-05_rb,5.6113e-05_rb,2.1722e-05_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &1.2956e-05_rb,1.8129e-05_rb,1.9971e-05_rb,1.8485e-05_rb,1.6628e-05_rb,3.1264e-05_rb, &\n     &3.4010e-05_rb,5.1158e-05_rb,2.4518e-05_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &1.4615e-05_rb,2.0830e-05_rb,2.2660e-05_rb,2.2625e-05_rb,1.9967e-05_rb,2.4812e-05_rb, &\n     &3.9103e-05_rb,5.0423e-05_rb,1.7758e-05_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &1.6017e-05_rb,2.3480e-05_rb,2.5498e-05_rb,2.6186e-05_rb,2.5773e-05_rb,1.9360e-05_rb, &\n     &3.6373e-05_rb,5.8002e-05_rb,2.1777e-05_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &1.6325e-05_rb,1.8415e-05_rb,1.8317e-05_rb,1.4470e-05_rb,2.4482e-05_rb,3.9161e-05_rb, &\n     &3.6427e-05_rb,3.6776e-05_rb,1.2226e-05_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &1.8436e-05_rb,2.1492e-05_rb,2.2101e-05_rb,2.0928e-05_rb,1.7486e-05_rb,3.4569e-05_rb, &\n     &3.4173e-05_rb,4.1432e-05_rb,1.6945e-05_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &2.0725e-05_rb,2.4812e-05_rb,2.5608e-05_rb,2.5315e-05_rb,2.0861e-05_rb,2.2865e-05_rb, &\n     &3.3858e-05_rb,3.7106e-05_rb,1.4100e-05_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &2.3257e-05_rb,2.7888e-05_rb,2.9222e-05_rb,2.9285e-05_rb,2.7055e-05_rb,2.2581e-05_rb, &\n     &3.3589e-05_rb,3.8281e-05_rb,1.2084e-05_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &2.5809e-05_rb,3.1443e-05_rb,3.3009e-05_rb,3.2988e-05_rb,3.1499e-05_rb,2.8005e-05_rb, &\n     &2.1824e-05_rb,4.6522e-05_rb,1.8788e-05_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &3.6153e-05_rb,3.6160e-05_rb,3.3889e-05_rb,3.0515e-05_rb,2.3824e-05_rb,2.0510e-05_rb, &\n     &5.5046e-05_rb,4.3679e-05_rb,8.4874e-06_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &4.1441e-05_rb,4.2015e-05_rb,3.9744e-05_rb,3.6451e-05_rb,3.1872e-05_rb,2.2157e-05_rb, &\n     &3.7036e-05_rb,4.0290e-05_rb,7.7192e-06_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &4.6667e-05_rb,4.8191e-05_rb,4.5785e-05_rb,4.2457e-05_rb,3.7818e-05_rb,3.1272e-05_rb, &\n     &2.3354e-05_rb,3.9936e-05_rb,6.8348e-06_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &5.1877e-05_rb,5.4060e-05_rb,5.1719e-05_rb,4.8126e-05_rb,4.3652e-05_rb,3.8051e-05_rb, &\n     &2.7576e-05_rb,4.1113e-05_rb,1.0881e-05_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &5.7673e-05_rb,6.0087e-05_rb,5.7843e-05_rb,5.4035e-05_rb,4.9732e-05_rb,4.3859e-05_rb, &\n     &3.4661e-05_rb,3.3926e-05_rb,1.5564e-05_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &8.1569e-05_rb,7.6506e-05_rb,6.9052e-05_rb,6.0598e-05_rb,5.1130e-05_rb,3.9208e-05_rb, &\n     &2.1647e-05_rb,7.1331e-05_rb,4.7464e-06_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &9.5409e-05_rb,8.9513e-05_rb,8.1016e-05_rb,7.1228e-05_rb,6.0322e-05_rb,4.8270e-05_rb, &\n     &3.1172e-05_rb,4.9123e-05_rb,3.8536e-06_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &1.0835e-04_rb,1.0286e-04_rb,9.3383e-05_rb,8.2438e-05_rb,7.0089e-05_rb,5.7019e-05_rb, &\n     &4.1480e-05_rb,3.2272e-05_rb,5.8347e-06_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &1.2088e-04_rb,1.1587e-04_rb,1.0589e-04_rb,9.3297e-05_rb,7.9862e-05_rb,6.5329e-05_rb, &\n     &4.9231e-05_rb,2.5421e-05_rb,9.1036e-06_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &1.3349e-04_rb,1.2852e-04_rb,1.1738e-04_rb,1.0384e-04_rb,8.9286e-05_rb,7.3614e-05_rb, &\n     &5.6906e-05_rb,3.4260e-05_rb,1.3290e-05_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &1.7345e-04_rb,1.5727e-04_rb,1.3841e-04_rb,1.1872e-04_rb,9.8241e-05_rb,7.6833e-05_rb, &\n     &5.2762e-05_rb,2.6555e-05_rb,1.9880e-06_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &2.0342e-04_rb,1.8508e-04_rb,1.6349e-04_rb,1.4064e-04_rb,1.1678e-04_rb,9.1597e-05_rb, &\n     &6.4678e-05_rb,2.5634e-05_rb,3.0971e-06_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &2.3455e-04_rb,2.1397e-04_rb,1.8954e-04_rb,1.6295e-04_rb,1.3528e-04_rb,1.0632e-04_rb, &\n     &7.5971e-05_rb,4.0302e-05_rb,5.0300e-06_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &2.6426e-04_rb,2.4201e-04_rb,2.1476e-04_rb,1.8503e-04_rb,1.5431e-04_rb,1.2132e-04_rb, &\n     &8.7057e-05_rb,4.9691e-05_rb,7.6275e-06_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &2.9276e-04_rb,2.6878e-04_rb,2.3851e-04_rb,2.0652e-04_rb,1.7242e-04_rb,1.3630e-04_rb, &\n     &9.8498e-05_rb,5.7853e-05_rb,1.1134e-05_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &3.5315e-04_rb,3.1458e-04_rb,2.7325e-04_rb,2.3096e-04_rb,1.8808e-04_rb,1.4453e-04_rb, &\n     &9.9918e-05_rb,4.6331e-05_rb,1.2347e-06_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &4.1518e-04_rb,3.7021e-04_rb,3.2222e-04_rb,2.7318e-04_rb,2.2345e-04_rb,1.7257e-04_rb, &\n     &1.2006e-04_rb,6.3507e-05_rb,2.6453e-06_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &4.8020e-04_rb,4.2942e-04_rb,3.7435e-04_rb,3.1847e-04_rb,2.6105e-04_rb,2.0180e-04_rb, &\n     &1.4068e-04_rb,7.6253e-05_rb,4.2798e-06_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &5.4571e-04_rb,4.8797e-04_rb,4.2639e-04_rb,3.6432e-04_rb,2.9826e-04_rb,2.3028e-04_rb, &\n     &1.6074e-04_rb,8.8155e-05_rb,6.6580e-06_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &6.1051e-04_rb,5.4685e-04_rb,4.8080e-04_rb,4.0919e-04_rb,3.3486e-04_rb,2.5913e-04_rb, &\n     &1.8080e-04_rb,9.9384e-05_rb,9.9722e-06_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &7.5693e-04_rb,6.6624e-04_rb,5.7513e-04_rb,4.8344e-04_rb,3.9061e-04_rb,2.9600e-04_rb, &\n     &2.0095e-04_rb,1.0427e-04_rb,1.0591e-06_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &8.9608e-04_rb,7.8973e-04_rb,6.8311e-04_rb,5.7440e-04_rb,4.6329e-04_rb,3.5236e-04_rb, &\n     &2.4053e-04_rb,1.2653e-04_rb,2.0677e-06_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &1.0434e-03_rb,9.2160e-04_rb,7.9776e-04_rb,6.7036e-04_rb,5.4238e-04_rb,4.1393e-04_rb, &\n     &2.8414e-04_rb,1.5011e-04_rb,3.4509e-06_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &1.1912e-03_rb,1.0536e-03_rb,9.1065e-04_rb,7.6644e-04_rb,6.2208e-04_rb,4.7601e-04_rb, &\n     &3.2680e-04_rb,1.7285e-04_rb,5.5547e-06_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &1.3354e-03_rb,1.1809e-03_rb,1.0220e-03_rb,8.6241e-04_rb,7.0147e-04_rb,5.3735e-04_rb, &\n     &3.6893e-04_rb,1.9541e-04_rb,8.3477e-06_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &2.0322e-03_rb,1.7810e-03_rb,1.5293e-03_rb,1.2777e-03_rb,1.0262e-03_rb,7.7431e-04_rb, &\n     &5.2105e-04_rb,2.6538e-04_rb,9.6103e-07_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &2.4399e-03_rb,2.1393e-03_rb,1.8380e-03_rb,1.5373e-03_rb,1.2364e-03_rb,9.3375e-04_rb, &\n     &6.2913e-04_rb,3.2110e-04_rb,1.7921e-06_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &2.8537e-03_rb,2.5030e-03_rb,2.1528e-03_rb,1.8027e-03_rb,1.4507e-03_rb,1.0966e-03_rb, &\n     &7.3847e-04_rb,3.7883e-04_rb,3.0446e-06_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &3.2833e-03_rb,2.8808e-03_rb,2.4800e-03_rb,2.0779e-03_rb,1.6729e-03_rb,1.2622e-03_rb, &\n     &8.5179e-04_rb,4.3974e-04_rb,4.8671e-06_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &3.6992e-03_rb,3.2483e-03_rb,2.7990e-03_rb,2.3454e-03_rb,1.8857e-03_rb,1.4259e-03_rb, &\n     &9.6561e-04_rb,4.9917e-04_rb,7.5866e-06_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &1.0280e-02_rb,8.9965e-03_rb,7.7134e-03_rb,6.4300e-03_rb,5.1466e-03_rb,3.8628e-03_rb, &\n     &2.5792e-03_rb,1.2964e-03_rb,9.2162e-07_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &1.2564e-02_rb,1.0997e-02_rb,9.4289e-03_rb,7.8609e-03_rb,6.2929e-03_rb,4.7248e-03_rb, &\n     &3.1577e-03_rb,1.5902e-03_rb,1.8412e-06_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &1.4876e-02_rb,1.3021e-02_rb,1.1166e-02_rb,9.3099e-03_rb,7.4544e-03_rb,5.6000e-03_rb, &\n     &3.7464e-03_rb,1.8890e-03_rb,3.6551e-06_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &1.7233e-02_rb,1.5085e-02_rb,1.2936e-02_rb,1.0788e-02_rb,8.6402e-03_rb,6.4946e-03_rb, &\n     &4.3480e-03_rb,2.1937e-03_rb,6.4505e-06_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &1.9529e-02_rb,1.7097e-02_rb,1.4665e-02_rb,1.2232e-02_rb,9.8022e-03_rb,7.3739e-03_rb, &\n     &4.9380e-03_rb,2.4934e-03_rb,1.0329e-05_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &6.2934e-02_rb,5.5068e-02_rb,4.7203e-02_rb,3.9337e-02_rb,3.1472e-02_rb,2.3606e-02_rb, &\n     &1.5740e-02_rb,7.8743e-03_rb,1.2141e-06_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &7.7985e-02_rb,6.8239e-02_rb,5.8492e-02_rb,4.8746e-02_rb,3.8999e-02_rb,2.9252e-02_rb, &\n     &1.9507e-02_rb,9.7597e-03_rb,2.5517e-06_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &9.3312e-02_rb,8.1650e-02_rb,6.9991e-02_rb,5.8328e-02_rb,4.6667e-02_rb,3.5007e-02_rb, &\n     &2.3345e-02_rb,1.1684e-02_rb,4.6909e-06_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &1.0852e-01_rb,9.4962e-02_rb,8.1401e-02_rb,6.7840e-02_rb,5.4279e-02_rb,4.0718e-02_rb, &\n     &2.7157e-02_rb,1.3598e-02_rb,7.7426e-06_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &1.2387e-01_rb,1.0840e-01_rb,9.2920e-02_rb,7.7443e-02_rb,6.1965e-02_rb,4.6488e-02_rb, &\n     &3.1009e-02_rb,1.5537e-02_rb,1.2033e-05_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &1.4431e-01_rb,1.2627e-01_rb,1.0823e-01_rb,9.0195e-02_rb,7.2157e-02_rb,5.4120e-02_rb, &\n     &3.6082e-02_rb,1.8045e-02_rb,1.2885e-06_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &1.7767e-01_rb,1.5546e-01_rb,1.3326e-01_rb,1.1105e-01_rb,8.8842e-02_rb,6.6637e-02_rb, &\n     &4.4429e-02_rb,2.2220e-02_rb,2.6746e-06_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &2.1192e-01_rb,1.8543e-01_rb,1.5895e-01_rb,1.3246e-01_rb,1.0597e-01_rb,7.9483e-02_rb, &\n     &5.2995e-02_rb,2.6507e-02_rb,4.8840e-06_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &2.4571e-01_rb,2.1501e-01_rb,1.8430e-01_rb,1.5358e-01_rb,1.2287e-01_rb,9.2163e-02_rb, &\n     &6.1452e-02_rb,3.0740e-02_rb,7.9723e-06_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &2.7981e-01_rb,2.4483e-01_rb,2.0987e-01_rb,1.7490e-01_rb,1.3993e-01_rb,1.0496e-01_rb, &\n     &6.9988e-02_rb,3.5019e-02_rb,1.2223e-05_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &2.0829e-01_rb,1.8226e-01_rb,1.5622e-01_rb,1.3018e-01_rb,1.0415e-01_rb,7.8112e-02_rb, &\n     &5.2077e-02_rb,2.6041e-02_rb,1.2025e-06_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &2.5587e-01_rb,2.2388e-01_rb,1.9190e-01_rb,1.5992e-01_rb,1.2794e-01_rb,9.5954e-02_rb, &\n     &6.3973e-02_rb,3.1992e-02_rb,2.4634e-06_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &3.0401e-01_rb,2.6600e-01_rb,2.2801e-01_rb,1.9001e-01_rb,1.5201e-01_rb,1.1401e-01_rb, &\n     &7.6014e-02_rb,3.8015e-02_rb,4.4929e-06_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &3.5185e-01_rb,3.0787e-01_rb,2.6390e-01_rb,2.1992e-01_rb,1.7594e-01_rb,1.3196e-01_rb, &\n     &8.7984e-02_rb,4.4005e-02_rb,7.2358e-06_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &3.9955e-01_rb,3.4961e-01_rb,2.9967e-01_rb,2.4973e-01_rb,1.9980e-01_rb,1.4985e-01_rb, &\n     &9.9920e-02_rb,4.9982e-02_rb,1.1171e-05_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &2.4192e-01_rb,2.1167e-01_rb,1.8143e-01_rb,1.5120e-01_rb,1.2096e-01_rb,9.0718e-02_rb, &\n     &6.0481e-02_rb,3.0243e-02_rb,1.0138e-06_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &2.9636e-01_rb,2.5932e-01_rb,2.2227e-01_rb,1.8523e-01_rb,1.4819e-01_rb,1.1114e-01_rb, &\n     &7.4096e-02_rb,3.7053e-02_rb,2.0810e-06_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &3.5109e-01_rb,3.0721e-01_rb,2.6332e-01_rb,2.1944e-01_rb,1.7555e-01_rb,1.3167e-01_rb, &\n     &8.7782e-02_rb,4.3898e-02_rb,3.6752e-06_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &4.0523e-01_rb,3.5457e-01_rb,3.0393e-01_rb,2.5327e-01_rb,2.0263e-01_rb,1.5197e-01_rb, &\n     &1.0132e-01_rb,5.0676e-02_rb,6.1123e-06_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &4.5914e-01_rb,4.0175e-01_rb,3.4437e-01_rb,2.8698e-01_rb,2.2959e-01_rb,1.7221e-01_rb, &\n     &1.1482e-01_rb,5.7432e-02_rb,9.7404e-06_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &2.1350e-05_rb,2.4552e-05_rb,2.3723e-05_rb,1.5777e-05_rb,2.7169e-05_rb,3.2921e-05_rb, &\n     &3.9368e-05_rb,6.8629e-05_rb,2.6626e-05_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &2.2878e-05_rb,2.6833e-05_rb,2.6737e-05_rb,2.0377e-05_rb,2.2142e-05_rb,3.1966e-05_rb, &\n     &4.1566e-05_rb,6.1320e-05_rb,2.3858e-05_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &2.3851e-05_rb,2.8963e-05_rb,2.9322e-05_rb,2.7907e-05_rb,1.9726e-05_rb,2.5598e-05_rb, &\n     &4.2650e-05_rb,6.7498e-05_rb,2.1250e-05_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &2.4297e-05_rb,3.1053e-05_rb,3.2431e-05_rb,3.1771e-05_rb,2.7799e-05_rb,2.0892e-05_rb, &\n     &3.7144e-05_rb,7.1944e-05_rb,2.3747e-05_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &2.4515e-05_rb,3.3133e-05_rb,3.5554e-05_rb,3.5376e-05_rb,3.4171e-05_rb,2.9240e-05_rb, &\n     &2.7955e-05_rb,6.5059e-05_rb,3.8779e-05_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &3.5233e-05_rb,3.6967e-05_rb,3.5192e-05_rb,3.0346e-05_rb,1.9517e-05_rb,3.6227e-05_rb, &\n     &3.6486e-05_rb,4.4755e-05_rb,1.7210e-05_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &3.7659e-05_rb,4.0104e-05_rb,3.8633e-05_rb,3.5461e-05_rb,2.4007e-05_rb,2.9205e-05_rb, &\n     &3.6839e-05_rb,4.4274e-05_rb,1.6582e-05_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &3.9567e-05_rb,4.2994e-05_rb,4.2107e-05_rb,3.9324e-05_rb,3.3808e-05_rb,2.0621e-05_rb, &\n     &3.2387e-05_rb,5.0199e-05_rb,1.2696e-05_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &4.0697e-05_rb,4.5929e-05_rb,4.5740e-05_rb,4.2992e-05_rb,3.9709e-05_rb,2.8967e-05_rb, &\n     &2.4180e-05_rb,4.8120e-05_rb,2.0582e-05_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &4.1514e-05_rb,4.8565e-05_rb,4.9023e-05_rb,4.7662e-05_rb,4.4382e-05_rb,3.8389e-05_rb, &\n     &2.5686e-05_rb,4.1842e-05_rb,3.1906e-05_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &8.1562e-05_rb,7.8380e-05_rb,7.1455e-05_rb,6.3207e-05_rb,5.2782e-05_rb,3.3109e-05_rb, &\n     &4.1621e-05_rb,4.2434e-05_rb,8.8242e-06_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &8.6593e-05_rb,8.4470e-05_rb,7.7554e-05_rb,6.8896e-05_rb,5.8997e-05_rb,4.4824e-05_rb, &\n     &3.0840e-05_rb,4.1510e-05_rb,8.5693e-06_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &9.1353e-05_rb,8.9996e-05_rb,8.3114e-05_rb,7.4541e-05_rb,6.4935e-05_rb,5.3159e-05_rb, &\n     &2.8537e-05_rb,3.9838e-05_rb,1.1226e-05_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &9.5365e-05_rb,9.5648e-05_rb,8.9016e-05_rb,8.0719e-05_rb,7.0818e-05_rb,5.8632e-05_rb, &\n     &4.0977e-05_rb,3.3245e-05_rb,1.8214e-05_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &9.7542e-05_rb,1.0001e-04_rb,9.4766e-05_rb,8.7247e-05_rb,7.6489e-05_rb,6.4569e-05_rb, &\n     &5.1322e-05_rb,2.4346e-05_rb,2.6190e-05_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &1.9526e-04_rb,1.7866e-04_rb,1.5808e-04_rb,1.3593e-04_rb,1.1271e-04_rb,8.7918e-05_rb, &\n     &5.1266e-05_rb,5.4774e-05_rb,4.6025e-06_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &2.0650e-04_rb,1.9062e-04_rb,1.6960e-04_rb,1.4698e-04_rb,1.2286e-04_rb,9.7273e-05_rb, &\n     &6.7543e-05_rb,4.4150e-05_rb,5.6277e-06_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &2.1739e-04_rb,2.0276e-04_rb,1.8135e-04_rb,1.5734e-04_rb,1.3233e-04_rb,1.0548e-04_rb, &\n     &7.6274e-05_rb,3.0228e-05_rb,9.8992e-06_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &2.2749e-04_rb,2.1410e-04_rb,1.9235e-04_rb,1.6801e-04_rb,1.4178e-04_rb,1.1383e-04_rb, &\n     &8.3889e-05_rb,3.8831e-05_rb,1.4832e-05_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &2.3672e-04_rb,2.2535e-04_rb,2.0298e-04_rb,1.7817e-04_rb,1.5157e-04_rb,1.2285e-04_rb, &\n     &9.1248e-05_rb,5.4055e-05_rb,2.0953e-05_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &4.3901e-04_rb,3.9096e-04_rb,3.4083e-04_rb,2.8855e-04_rb,2.3566e-04_rb,1.8135e-04_rb, &\n     &1.2520e-04_rb,3.9791e-05_rb,2.8698e-06_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &4.6450e-04_rb,4.1602e-04_rb,3.6285e-04_rb,3.0879e-04_rb,2.5330e-04_rb,1.9642e-04_rb, &\n     &1.3685e-04_rb,6.9096e-05_rb,4.7432e-06_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &4.8882e-04_rb,4.4052e-04_rb,3.8581e-04_rb,3.3048e-04_rb,2.7253e-04_rb,2.1160e-04_rb, &\n     &1.4899e-04_rb,8.1167e-05_rb,8.1879e-06_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &5.1005e-04_rb,4.6303e-04_rb,4.0950e-04_rb,3.5246e-04_rb,2.9060e-04_rb,2.2675e-04_rb, &\n     &1.6042e-04_rb,8.9994e-05_rb,1.2389e-05_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &5.2999e-04_rb,4.8642e-04_rb,4.3340e-04_rb,3.7157e-04_rb,3.0721e-04_rb,2.4050e-04_rb, &\n     &1.7156e-04_rb,9.8341e-05_rb,1.7831e-05_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &9.3945e-04_rb,8.2623e-04_rb,7.1331e-04_rb,5.9949e-04_rb,4.8483e-04_rb,3.6836e-04_rb, &\n     &2.5086e-04_rb,1.2938e-04_rb,2.1494e-06_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &1.0016e-03_rb,8.8499e-04_rb,7.6750e-04_rb,6.4657e-04_rb,5.2304e-04_rb,3.9902e-04_rb, &\n     &2.7391e-04_rb,1.4413e-04_rb,3.8318e-06_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &1.0547e-03_rb,9.3464e-04_rb,8.1142e-04_rb,6.8349e-04_rb,5.5479e-04_rb,4.2609e-04_rb, &\n     &2.9394e-04_rb,1.5646e-04_rb,6.4475e-06_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &1.1032e-03_rb,9.8345e-04_rb,8.5527e-04_rb,7.2211e-04_rb,5.9000e-04_rb,4.5529e-04_rb, &\n     &3.1446e-04_rb,1.6904e-04_rb,9.9612e-06_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &1.1467e-03_rb,1.0269e-03_rb,8.9466e-04_rb,7.6180e-04_rb,6.2654e-04_rb,4.8317e-04_rb, &\n     &3.3526e-04_rb,1.8155e-04_rb,1.4635e-05_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &2.0968e-03_rb,1.8382e-03_rb,1.5799e-03_rb,1.3200e-03_rb,1.0602e-03_rb,8.0055e-04_rb, &\n     &5.3931e-04_rb,2.7613e-04_rb,1.7495e-06_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &2.2692e-03_rb,1.9926e-03_rb,1.7142e-03_rb,1.4356e-03_rb,1.1561e-03_rb,8.7560e-04_rb, &\n     &5.9192e-04_rb,3.0494e-04_rb,3.2823e-06_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &2.3957e-03_rb,2.1065e-03_rb,1.8155e-03_rb,1.5242e-03_rb,1.2302e-03_rb,9.3213e-04_rb, &\n     &6.3098e-04_rb,3.2845e-04_rb,5.4452e-06_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &2.5154e-03_rb,2.2153e-03_rb,1.9155e-03_rb,1.6120e-03_rb,1.3009e-03_rb,9.8717e-04_rb, &\n     &6.7313e-04_rb,3.5215e-04_rb,8.4591e-06_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &2.6221e-03_rb,2.3149e-03_rb,2.0078e-03_rb,1.6896e-03_rb,1.3663e-03_rb,1.0418e-03_rb, &\n     &7.1380e-04_rb,3.7558e-04_rb,1.3208e-05_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &5.9687e-03_rb,5.2249e-03_rb,4.4818e-03_rb,3.7390e-03_rb,2.9959e-03_rb,2.2513e-03_rb, &\n     &1.5068e-03_rb,7.6107e-04_rb,1.5072e-06_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &6.4060e-03_rb,5.6103e-03_rb,4.8155e-03_rb,4.0184e-03_rb,3.2203e-03_rb,2.4232e-03_rb, &\n     &1.6246e-03_rb,8.2361e-04_rb,2.9177e-06_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &6.8363e-03_rb,5.9919e-03_rb,5.1443e-03_rb,4.2950e-03_rb,3.4467e-03_rb,2.5980e-03_rb, &\n     &1.7471e-03_rb,8.8934e-04_rb,5.0920e-06_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &7.1796e-03_rb,6.2954e-03_rb,5.4063e-03_rb,4.5177e-03_rb,3.6307e-03_rb,2.7430e-03_rb, &\n     &1.8488e-03_rb,9.4284e-04_rb,8.3290e-06_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &7.5276e-03_rb,6.6017e-03_rb,5.6732e-03_rb,4.7473e-03_rb,3.8229e-03_rb,2.8925e-03_rb, &\n     &1.9515e-03_rb,1.0013e-03_rb,1.2816e-05_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &3.2487e-02_rb,2.8428e-02_rb,2.4369e-02_rb,2.0309e-02_rb,1.6251e-02_rb,1.2192e-02_rb, &\n     &8.1342e-03_rb,4.0755e-03_rb,1.9489e-06_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &3.4271e-02_rb,2.9992e-02_rb,2.5712e-02_rb,2.1432e-02_rb,1.7152e-02_rb,1.2873e-02_rb, &\n     &8.5913e-03_rb,4.3059e-03_rb,3.6526e-06_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &3.6903e-02_rb,3.2297e-02_rb,2.7692e-02_rb,2.3087e-02_rb,1.8480e-02_rb,1.3870e-02_rb, &\n     &9.2583e-03_rb,4.6485e-03_rb,5.8762e-06_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &3.8979e-02_rb,3.4119e-02_rb,2.9257e-02_rb,2.4392e-02_rb,1.9526e-02_rb,1.4659e-02_rb, &\n     &9.7912e-03_rb,4.9264e-03_rb,9.0883e-06_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &4.0909e-02_rb,3.5808e-02_rb,3.0705e-02_rb,2.5602e-02_rb,2.0497e-02_rb,1.5392e-02_rb, &\n     &1.0293e-02_rb,5.1880e-03_rb,1.4132e-05_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &2.1003e-01_rb,1.8378e-01_rb,1.5753e-01_rb,1.3127e-01_rb,1.0502e-01_rb,7.8770e-02_rb, &\n     &5.2516e-02_rb,2.6264e-02_rb,2.2708e-06_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &2.2303e-01_rb,1.9515e-01_rb,1.6728e-01_rb,1.3940e-01_rb,1.1153e-01_rb,8.3651e-02_rb, &\n     &5.5777e-02_rb,2.7901e-02_rb,4.3388e-06_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &2.3715e-01_rb,2.0752e-01_rb,1.7788e-01_rb,1.4824e-01_rb,1.1861e-01_rb,8.8964e-02_rb, &\n     &5.9326e-02_rb,2.9681e-02_rb,8.0389e-06_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &2.5270e-01_rb,2.2113e-01_rb,1.8955e-01_rb,1.5796e-01_rb,1.2638e-01_rb,9.4802e-02_rb, &\n     &6.3220e-02_rb,3.1633e-02_rb,1.4122e-05_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &2.6544e-01_rb,2.3227e-01_rb,1.9911e-01_rb,1.6593e-01_rb,1.3276e-01_rb,9.9586e-02_rb, &\n     &6.6411e-02_rb,3.3237e-02_rb,2.0958e-05_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &4.6663e-01_rb,4.0831e-01_rb,3.4998e-01_rb,2.9165e-01_rb,2.3332e-01_rb,1.7500e-01_rb, &\n     &1.1667e-01_rb,5.8341e-02_rb,2.3420e-06_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &4.9719e-01_rb,4.3506e-01_rb,3.7290e-01_rb,3.1076e-01_rb,2.4862e-01_rb,1.8647e-01_rb, &\n     &1.2432e-01_rb,6.2174e-02_rb,4.5807e-06_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &5.2774e-01_rb,4.6176e-01_rb,3.9581e-01_rb,3.2984e-01_rb,2.6389e-01_rb,1.9793e-01_rb, &\n     &1.3196e-01_rb,6.5997e-02_rb,8.8811e-06_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &5.6221e-01_rb,4.9195e-01_rb,4.2167e-01_rb,3.5141e-01_rb,2.8114e-01_rb,2.1086e-01_rb, &\n     &1.4059e-01_rb,7.0317e-02_rb,1.5538e-05_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &5.9121e-01_rb,5.1732e-01_rb,4.4343e-01_rb,3.6953e-01_rb,2.9564e-01_rb,2.2174e-01_rb, &\n     &1.4785e-01_rb,7.3949e-02_rb,2.4433e-05_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &6.5249e-01_rb,5.7093e-01_rb,4.8937e-01_rb,4.0781e-01_rb,3.2625e-01_rb,2.4469e-01_rb, &\n     &1.6313e-01_rb,8.1572e-02_rb,2.2330e-06_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &6.9534e-01_rb,6.0842e-01_rb,5.2151e-01_rb,4.3459e-01_rb,3.4768e-01_rb,2.6076e-01_rb, &\n     &1.7385e-01_rb,8.6935e-02_rb,4.3967e-06_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &7.4143e-01_rb,6.4875e-01_rb,5.5607e-01_rb,4.6339e-01_rb,3.7072e-01_rb,2.7805e-01_rb, &\n     &1.8537e-01_rb,9.2701e-02_rb,8.3925e-06_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &7.8904e-01_rb,6.9042e-01_rb,5.9179e-01_rb,4.9316e-01_rb,3.9453e-01_rb,2.9591e-01_rb, &\n     &1.9728e-01_rb,9.8661e-02_rb,1.5232e-05_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &8.3131e-01_rb,7.2741e-01_rb,6.2350e-01_rb,5.1959e-01_rb,4.1567e-01_rb,3.1177e-01_rb, &\n     &2.0786e-01_rb,1.0395e-01_rb,2.3060e-05_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &7.3322e-01_rb,6.4157e-01_rb,5.4992e-01_rb,4.5827e-01_rb,3.6662e-01_rb,2.7497e-01_rb, &\n     &1.8332e-01_rb,9.1663e-02_rb,1.8044e-06_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &7.8224e-01_rb,6.8446e-01_rb,5.8668e-01_rb,4.8890e-01_rb,3.9113e-01_rb,2.9335e-01_rb, &\n     &1.9557e-01_rb,9.7794e-02_rb,3.6622e-06_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &8.3769e-01_rb,7.3298e-01_rb,6.2826e-01_rb,5.2356e-01_rb,4.1885e-01_rb,3.1414e-01_rb, &\n     &2.0944e-01_rb,1.0473e-01_rb,6.8549e-06_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &8.9145e-01_rb,7.8000e-01_rb,6.6858e-01_rb,5.5715e-01_rb,4.4572e-01_rb,3.3430e-01_rb, &\n     &2.2288e-01_rb,1.1145e-01_rb,1.1699e-05_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &9.4256e-01_rb,8.2475e-01_rb,7.0694e-01_rb,5.8912e-01_rb,4.7129e-01_rb,3.5348e-01_rb, &\n     &2.3566e-01_rb,1.1785e-01_rb,1.9250e-05_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &3.1890e-05_rb,3.3428e-05_rb,3.1339e-05_rb,1.9062e-05_rb,2.1359e-05_rb,2.6190e-05_rb, &\n     &4.2364e-05_rb,7.2281e-05_rb,2.8801e-05_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &3.2241e-05_rb,3.5034e-05_rb,3.4311e-05_rb,2.9337e-05_rb,1.6956e-05_rb,2.7153e-05_rb, &\n     &4.1595e-05_rb,7.5807e-05_rb,2.1642e-05_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &3.2685e-05_rb,3.7104e-05_rb,3.7239e-05_rb,3.5440e-05_rb,2.4683e-05_rb,2.0584e-05_rb, &\n     &3.9467e-05_rb,7.0498e-05_rb,2.5433e-05_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &3.3108e-05_rb,3.9233e-05_rb,3.9843e-05_rb,4.0632e-05_rb,3.9351e-05_rb,2.7492e-05_rb, &\n     &2.7372e-05_rb,6.6136e-05_rb,4.2940e-05_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &3.3102e-05_rb,4.1126e-05_rb,4.3706e-05_rb,4.7600e-05_rb,5.0514e-05_rb,4.9463e-05_rb, &\n     &3.6482e-05_rb,4.9147e-05_rb,6.6970e-05_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &5.3936e-05_rb,5.3705e-05_rb,4.9534e-05_rb,4.3483e-05_rb,2.4468e-05_rb,2.7314e-05_rb, &\n     &3.0874e-05_rb,5.5614e-05_rb,1.6658e-05_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &5.4860e-05_rb,5.5845e-05_rb,5.2280e-05_rb,4.7572e-05_rb,3.6459e-05_rb,1.9946e-05_rb, &\n     &3.1643e-05_rb,4.8991e-05_rb,1.3490e-05_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &5.5709e-05_rb,5.8014e-05_rb,5.5306e-05_rb,5.1404e-05_rb,4.5520e-05_rb,2.7920e-05_rb, &\n     &2.4697e-05_rb,4.8298e-05_rb,2.2442e-05_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &5.6594e-05_rb,6.0421e-05_rb,5.8710e-05_rb,5.5553e-05_rb,5.0533e-05_rb,4.1849e-05_rb, &\n     &2.3926e-05_rb,4.4332e-05_rb,3.8077e-05_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &5.6989e-05_rb,6.3301e-05_rb,6.2702e-05_rb,5.9556e-05_rb,5.7075e-05_rb,5.4328e-05_rb, &\n     &4.2106e-05_rb,3.0435e-05_rb,5.5304e-05_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &1.3054e-04_rb,1.2243e-04_rb,1.0960e-04_rb,9.5396e-05_rb,7.9466e-05_rb,5.1293e-05_rb, &\n     &3.9755e-05_rb,3.4475e-05_rb,8.0698e-06_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &1.3254e-04_rb,1.2631e-04_rb,1.1422e-04_rb,1.0017e-04_rb,8.4724e-05_rb,6.6970e-05_rb, &\n     &3.1985e-05_rb,3.1748e-05_rb,1.1668e-05_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &1.3451e-04_rb,1.3069e-04_rb,1.1849e-04_rb,1.0449e-04_rb,8.9441e-05_rb,7.3066e-05_rb, &\n     &4.0433e-05_rb,3.2069e-05_rb,2.1119e-05_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &1.3620e-04_rb,1.3418e-04_rb,1.2287e-04_rb,1.0958e-04_rb,9.5020e-05_rb,7.9300e-05_rb, &\n     &5.8519e-05_rb,2.5240e-05_rb,3.2095e-05_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &1.3805e-04_rb,1.3888e-04_rb,1.2760e-04_rb,1.1481e-04_rb,1.0157e-04_rb,8.6256e-05_rb, &\n     &6.7417e-05_rb,3.0660e-05_rb,4.5147e-05_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &3.2379e-04_rb,2.9036e-04_rb,2.5461e-04_rb,2.1829e-04_rb,1.8055e-04_rb,1.4064e-04_rb, &\n     &9.6199e-05_rb,5.2600e-05_rb,5.3338e-06_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &3.2979e-04_rb,2.9999e-04_rb,2.6566e-04_rb,2.2924e-04_rb,1.9018e-04_rb,1.4831e-04_rb, &\n     &1.0429e-04_rb,3.7208e-05_rb,1.1382e-05_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &3.3647e-04_rb,3.0773e-04_rb,2.7537e-04_rb,2.3841e-04_rb,1.9818e-04_rb,1.5534e-04_rb, &\n     &1.1107e-04_rb,4.2940e-05_rb,1.8774e-05_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &3.4222e-04_rb,3.1790e-04_rb,2.8515e-04_rb,2.4672e-04_rb,2.0544e-04_rb,1.6267e-04_rb, &\n     &1.1806e-04_rb,6.5823e-05_rb,2.7569e-05_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &3.4598e-04_rb,3.2526e-04_rb,2.9297e-04_rb,2.5514e-04_rb,2.1384e-04_rb,1.7093e-04_rb, &\n     &1.2620e-04_rb,7.6156e-05_rb,3.8829e-05_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &7.4853e-04_rb,6.5989e-04_rb,5.7237e-04_rb,4.8339e-04_rb,3.9258e-04_rb,3.0112e-04_rb, &\n     &2.0775e-04_rb,1.0511e-04_rb,4.9046e-06_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &7.7296e-04_rb,6.8526e-04_rb,5.9860e-04_rb,5.0629e-04_rb,4.1334e-04_rb,3.1913e-04_rb, &\n     &2.2288e-04_rb,1.1662e-04_rb,9.7426e-06_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &7.8512e-04_rb,7.0191e-04_rb,6.1328e-04_rb,5.2156e-04_rb,4.2917e-04_rb,3.3432e-04_rb, &\n     &2.3232e-04_rb,1.2535e-04_rb,1.4908e-05_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &8.0065e-04_rb,7.1779e-04_rb,6.2814e-04_rb,5.3808e-04_rb,4.4471e-04_rb,3.4601e-04_rb, &\n     &2.4241e-04_rb,1.3326e-04_rb,2.1852e-05_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &8.1368e-04_rb,7.3211e-04_rb,6.4458e-04_rb,5.5662e-04_rb,4.6149e-04_rb,3.6022e-04_rb, &\n     &2.5323e-04_rb,1.4142e-04_rb,3.1532e-05_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &1.6528e-03_rb,1.4497e-03_rb,1.2477e-03_rb,1.0459e-03_rb,8.4296e-04_rb,6.4013e-04_rb, &\n     &4.3541e-04_rb,2.2882e-04_rb,4.1025e-06_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &1.7167e-03_rb,1.5070e-03_rb,1.2980e-03_rb,1.0901e-03_rb,8.8256e-04_rb,6.7196e-04_rb, &\n     &4.5785e-04_rb,2.4158e-04_rb,7.1575e-06_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &1.7542e-03_rb,1.5443e-03_rb,1.3374e-03_rb,1.1305e-03_rb,9.1589e-04_rb,6.9839e-04_rb, &\n     &4.8070e-04_rb,2.5576e-04_rb,1.1170e-05_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &1.7835e-03_rb,1.5745e-03_rb,1.3686e-03_rb,1.1552e-03_rb,9.3898e-04_rb,7.2100e-04_rb, &\n     &4.9974e-04_rb,2.6756e-04_rb,1.6778e-05_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &1.8173e-03_rb,1.6109e-03_rb,1.3997e-03_rb,1.1836e-03_rb,9.6533e-04_rb,7.4477e-04_rb, &\n     &5.1869e-04_rb,2.7889e-04_rb,2.4339e-05_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &3.9726e-03_rb,3.4772e-03_rb,2.9832e-03_rb,2.4912e-03_rb,1.9978e-03_rb,1.5048e-03_rb, &\n     &1.0114e-03_rb,5.1606e-04_rb,3.0815e-06_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &3.9885e-03_rb,3.4924e-03_rb,2.9992e-03_rb,2.5047e-03_rb,2.0117e-03_rb,1.5168e-03_rb, &\n     &1.0225e-03_rb,5.2471e-04_rb,5.4224e-06_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &4.1133e-03_rb,3.6053e-03_rb,3.0965e-03_rb,2.5896e-03_rb,2.0823e-03_rb,1.5758e-03_rb, &\n     &1.0680e-03_rb,5.5159e-04_rb,9.0931e-06_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &4.1858e-03_rb,3.6723e-03_rb,3.1582e-03_rb,2.6449e-03_rb,2.1343e-03_rb,1.6217e-03_rb, &\n     &1.1005e-03_rb,5.7513e-04_rb,1.3973e-05_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &4.2673e-03_rb,3.7471e-03_rb,3.2256e-03_rb,2.7082e-03_rb,2.1908e-03_rb,1.6652e-03_rb, &\n     &1.1349e-03_rb,5.9686e-04_rb,1.9907e-05_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &1.1789e-02_rb,1.0316e-02_rb,8.8432e-03_rb,7.3701e-03_rb,5.8982e-03_rb,4.4284e-03_rb, &\n     &2.9575e-03_rb,1.4868e-03_rb,2.6362e-06_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &1.1815e-02_rb,1.0339e-02_rb,8.8633e-03_rb,7.3911e-03_rb,5.9198e-03_rb,4.4454e-03_rb, &\n     &2.9722e-03_rb,1.4993e-03_rb,4.7391e-06_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &1.2063e-02_rb,1.0556e-02_rb,9.0547e-03_rb,7.5533e-03_rb,6.0485e-03_rb,4.5441e-03_rb, &\n     &3.0419e-03_rb,1.5395e-03_rb,7.9686e-06_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &1.2374e-02_rb,1.0835e-02_rb,9.2985e-03_rb,7.7571e-03_rb,6.2150e-03_rb,4.6751e-03_rb, &\n     &3.1349e-03_rb,1.5981e-03_rb,1.2907e-05_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &1.2586e-02_rb,1.1028e-02_rb,9.4648e-03_rb,7.8998e-03_rb,6.3362e-03_rb,4.7714e-03_rb, &\n     &3.2105e-03_rb,1.6437e-03_rb,1.9633e-05_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &6.5443e-02_rb,5.7264e-02_rb,4.9084e-02_rb,4.0904e-02_rb,3.2723e-02_rb,2.4543e-02_rb, &\n     &1.6364e-02_rb,8.1848e-03_rb,3.1432e-06_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &6.6880e-02_rb,5.8521e-02_rb,5.0162e-02_rb,4.1802e-02_rb,3.3443e-02_rb,2.5083e-02_rb, &\n     &1.6728e-02_rb,8.3763e-03_rb,5.7297e-06_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &6.6965e-02_rb,5.8596e-02_rb,5.0227e-02_rb,4.1857e-02_rb,3.3491e-02_rb,2.5128e-02_rb, &\n     &1.6767e-02_rb,8.3954e-03_rb,1.0132e-05_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &6.9095e-02_rb,6.0459e-02_rb,5.1827e-02_rb,4.3201e-02_rb,3.4575e-02_rb,2.5948e-02_rb, &\n     &1.7311e-02_rb,8.6749e-03_rb,1.6592e-05_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &7.0723e-02_rb,6.1894e-02_rb,5.3070e-02_rb,4.4247e-02_rb,3.5417e-02_rb,2.6580e-02_rb, &\n     &1.7739e-02_rb,8.9030e-03_rb,2.5109e-05_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &4.3117e-01_rb,3.7727e-01_rb,3.2338e-01_rb,2.6948e-01_rb,2.1559e-01_rb,1.6169e-01_rb, &\n     &1.0779e-01_rb,5.3898e-02_rb,3.8321e-06_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &4.4275e-01_rb,3.8740e-01_rb,3.3206e-01_rb,2.7672e-01_rb,2.2138e-01_rb,1.6603e-01_rb, &\n     &1.1069e-01_rb,5.5347e-02_rb,7.9189e-06_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &4.5038e-01_rb,3.9409e-01_rb,3.3779e-01_rb,2.8149e-01_rb,2.2519e-01_rb,1.6890e-01_rb, &\n     &1.1260e-01_rb,5.6313e-02_rb,1.3890e-05_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &4.5731e-01_rb,4.0015e-01_rb,3.4299e-01_rb,2.8583e-01_rb,2.2868e-01_rb,1.7152e-01_rb, &\n     &1.1436e-01_rb,5.7212e-02_rb,2.2042e-05_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &4.7192e-01_rb,4.1294e-01_rb,3.5396e-01_rb,2.9499e-01_rb,2.3600e-01_rb,1.7703e-01_rb, &\n     &1.1805e-01_rb,5.9063e-02_rb,3.5819e-05_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &9.6082e-01_rb,8.4073e-01_rb,7.2062e-01_rb,6.0052e-01_rb,4.8042e-01_rb,3.6032e-01_rb, &\n     &2.4021e-01_rb,1.2011e-01_rb,4.1252e-06_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &9.8883e-01_rb,8.6524e-01_rb,7.4164e-01_rb,6.1802e-01_rb,4.9442e-01_rb,3.7082e-01_rb, &\n     &2.4722e-01_rb,1.2361e-01_rb,8.2890e-06_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &1.0099e+00_rb,8.8371e-01_rb,7.5745e-01_rb,6.3122e-01_rb,5.0498e-01_rb,3.7874e-01_rb, &\n     &2.5251e-01_rb,1.2627e-01_rb,1.3752e-05_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &1.0275e+00_rb,8.9904e-01_rb,7.7063e-01_rb,6.4220e-01_rb,5.1377e-01_rb,3.8534e-01_rb, &\n     &2.5691e-01_rb,1.2849e-01_rb,2.1878e-05_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &1.0619e+00_rb,9.2921e-01_rb,7.9651e-01_rb,6.6374e-01_rb,5.3103e-01_rb,3.9829e-01_rb, &\n     &2.6556e-01_rb,1.3282e-01_rb,3.3798e-05_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &1.3448e+00_rb,1.1767e+00_rb,1.0086e+00_rb,8.4049e-01_rb,6.7240e-01_rb,5.0429e-01_rb, &\n     &3.3620e-01_rb,1.6810e-01_rb,3.8444e-06_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &1.3870e+00_rb,1.2136e+00_rb,1.0403e+00_rb,8.6689e-01_rb,6.9351e-01_rb,5.2014e-01_rb, &\n     &3.4675e-01_rb,1.7338e-01_rb,8.1656e-06_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &1.4199e+00_rb,1.2424e+00_rb,1.0649e+00_rb,8.8747e-01_rb,7.0998e-01_rb,5.3249e-01_rb, &\n     &3.5500e-01_rb,1.7752e-01_rb,1.3518e-05_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &1.4553e+00_rb,1.2734e+00_rb,1.0915e+00_rb,9.0958e-01_rb,7.2769e-01_rb,5.4578e-01_rb, &\n     &3.6386e-01_rb,1.8196e-01_rb,2.0674e-05_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &1.5049e+00_rb,1.3168e+00_rb,1.1287e+00_rb,9.4058e-01_rb,7.5249e-01_rb,5.6439e-01_rb, &\n     &3.7628e-01_rb,1.8817e-01_rb,3.3221e-05_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &1.5112e+00_rb,1.3223e+00_rb,1.1334e+00_rb,9.4452e-01_rb,7.5561e-01_rb,5.6670e-01_rb, &\n     &3.7781e-01_rb,1.8891e-01_rb,3.4136e-06_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &1.5630e+00_rb,1.3677e+00_rb,1.1723e+00_rb,9.7690e-01_rb,7.8153e-01_rb,5.8614e-01_rb, &\n     &3.9077e-01_rb,1.9539e-01_rb,7.2314e-06_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &1.6029e+00_rb,1.4025e+00_rb,1.2022e+00_rb,1.0018e+00_rb,8.0146e-01_rb,6.0110e-01_rb, &\n     &4.0074e-01_rb,2.0039e-01_rb,1.2933e-05_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &1.6548e+00_rb,1.4480e+00_rb,1.2411e+00_rb,1.0343e+00_rb,8.2742e-01_rb,6.2059e-01_rb, &\n     &4.1374e-01_rb,2.0689e-01_rb,2.1420e-05_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &1.7129e+00_rb,1.4988e+00_rb,1.2846e+00_rb,1.0706e+00_rb,8.5645e-01_rb,6.4235e-01_rb, &\n     &4.2827e-01_rb,2.1415e-01_rb,3.1482e-05_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &4.0608e-05_rb,4.2185e-05_rb,3.9730e-05_rb,2.6630e-05_rb,1.5870e-05_rb,2.1720e-05_rb, &\n     &4.0183e-05_rb,5.7933e-05_rb,1.9230e-05_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &4.0560e-05_rb,4.3924e-05_rb,4.2843e-05_rb,4.0587e-05_rb,1.9599e-05_rb,1.9434e-05_rb, &\n     &2.9187e-05_rb,8.1729e-05_rb,2.4180e-05_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &4.0596e-05_rb,4.5223e-05_rb,4.7233e-05_rb,4.8206e-05_rb,4.1815e-05_rb,2.4282e-05_rb, &\n     &2.7535e-05_rb,5.3025e-05_rb,4.5769e-05_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &4.0424e-05_rb,4.7527e-05_rb,5.3798e-05_rb,5.7119e-05_rb,5.7658e-05_rb,5.2268e-05_rb, &\n     &3.6355e-05_rb,4.4941e-05_rb,8.6910e-05_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &4.0234e-05_rb,5.1685e-05_rb,6.0703e-05_rb,6.7173e-05_rb,7.3473e-05_rb,7.8264e-05_rb, &\n     &7.7542e-05_rb,6.1561e-05_rb,1.1878e-04_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &7.1743e-05_rb,6.9776e-05_rb,6.4069e-05_rb,5.6253e-05_rb,3.2492e-05_rb,1.5299e-05_rb, &\n     &2.5979e-05_rb,5.8422e-05_rb,1.3265e-05_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &7.1061e-05_rb,7.2097e-05_rb,6.7274e-05_rb,6.0734e-05_rb,5.1280e-05_rb,2.1520e-05_rb, &\n     &1.9911e-05_rb,4.4529e-05_rb,1.9523e-05_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &7.0841e-05_rb,7.4370e-05_rb,7.0760e-05_rb,6.5655e-05_rb,6.0306e-05_rb,4.1020e-05_rb, &\n     &2.4466e-05_rb,3.0981e-05_rb,4.7368e-05_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &7.0995e-05_rb,7.6358e-05_rb,7.4085e-05_rb,7.2263e-05_rb,6.9627e-05_rb,6.3412e-05_rb, &\n     &3.9010e-05_rb,3.3220e-05_rb,7.3941e-05_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &7.1418e-05_rb,7.8720e-05_rb,7.9350e-05_rb,8.0487e-05_rb,8.0635e-05_rb,7.8967e-05_rb, &\n     &7.4070e-05_rb,4.7509e-05_rb,9.9451e-05_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &1.7804e-04_rb,1.6309e-04_rb,1.4603e-04_rb,1.2640e-04_rb,1.0532e-04_rb,7.7851e-05_rb, &\n     &3.0401e-05_rb,3.2808e-05_rb,1.0278e-05_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &1.7807e-04_rb,1.6656e-04_rb,1.5059e-04_rb,1.3159e-04_rb,1.1024e-04_rb,8.6966e-05_rb, &\n     &3.8390e-05_rb,2.7178e-05_rb,2.3712e-05_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &1.7838e-04_rb,1.6972e-04_rb,1.5616e-04_rb,1.3747e-04_rb,1.1728e-04_rb,9.5070e-05_rb, &\n     &6.7563e-05_rb,2.2396e-05_rb,4.2459e-05_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &1.7857e-04_rb,1.7475e-04_rb,1.6100e-04_rb,1.4311e-04_rb,1.2411e-04_rb,1.0321e-04_rb, &\n     &8.1061e-05_rb,2.7084e-05_rb,5.9922e-05_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &1.7913e-04_rb,1.7932e-04_rb,1.6663e-04_rb,1.4905e-04_rb,1.3079e-04_rb,1.1234e-04_rb, &\n     &9.4176e-05_rb,5.9304e-05_rb,8.0703e-05_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &4.5849e-04_rb,4.0719e-04_rb,3.5630e-04_rb,3.0212e-04_rb,2.4723e-04_rb,1.9208e-04_rb, &\n     &1.3224e-04_rb,4.0670e-05_rb,1.0786e-05_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &4.6326e-04_rb,4.1501e-04_rb,3.6371e-04_rb,3.1046e-04_rb,2.5726e-04_rb,2.0145e-04_rb, &\n     &1.4032e-04_rb,4.2661e-05_rb,2.2724e-05_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &4.5999e-04_rb,4.1805e-04_rb,3.6892e-04_rb,3.1975e-04_rb,2.6673e-04_rb,2.0947e-04_rb, &\n     &1.4924e-04_rb,6.8954e-05_rb,3.3787e-05_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &4.6003e-04_rb,4.1972e-04_rb,3.7753e-04_rb,3.3032e-04_rb,2.7779e-04_rb,2.1909e-04_rb, &\n     &1.5785e-04_rb,9.1573e-05_rb,4.7343e-05_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &4.6253e-04_rb,4.2854e-04_rb,3.8917e-04_rb,3.4007e-04_rb,2.8599e-04_rb,2.2760e-04_rb, &\n     &1.6713e-04_rb,1.0392e-04_rb,6.4507e-05_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &1.1046e-03_rb,9.7210e-04_rb,8.3818e-04_rb,7.0474e-04_rb,5.7182e-04_rb,4.3731e-04_rb, &\n     &3.0078e-04_rb,1.5849e-04_rb,1.0669e-05_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &1.1184e-03_rb,9.8522e-04_rb,8.5052e-04_rb,7.1956e-04_rb,5.8448e-04_rb,4.4708e-04_rb, &\n     &3.0943e-04_rb,1.6582e-04_rb,1.7856e-05_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &1.1214e-03_rb,9.8952e-04_rb,8.6298e-04_rb,7.3058e-04_rb,5.9526e-04_rb,4.5967e-04_rb, &\n     &3.2343e-04_rb,1.7504e-04_rb,2.7384e-05_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &1.1214e-03_rb,9.9887e-04_rb,8.7233e-04_rb,7.4058e-04_rb,6.1074e-04_rb,4.7706e-04_rb, &\n     &3.3627e-04_rb,1.8500e-04_rb,4.0071e-05_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &1.1239e-03_rb,1.0058e-03_rb,8.8047e-04_rb,7.5602e-04_rb,6.2667e-04_rb,4.9193e-04_rb, &\n     &3.4864e-04_rb,1.9526e-04_rb,5.6262e-05_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &2.6585e-03_rb,2.3289e-03_rb,2.0017e-03_rb,1.6725e-03_rb,1.3436e-03_rb,1.0134e-03_rb, &\n     &6.8348e-04_rb,3.5116e-04_rb,8.2810e-06_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &2.5863e-03_rb,2.2683e-03_rb,1.9501e-03_rb,1.6316e-03_rb,1.3110e-03_rb,9.9174e-04_rb, &\n     &6.7274e-04_rb,3.5111e-04_rb,1.4039e-05_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &2.6176e-03_rb,2.2991e-03_rb,1.9771e-03_rb,1.6537e-03_rb,1.3367e-03_rb,1.0179e-03_rb, &\n     &6.9352e-04_rb,3.6693e-04_rb,2.2683e-05_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &2.6217e-03_rb,2.3046e-03_rb,1.9871e-03_rb,1.6757e-03_rb,1.3567e-03_rb,1.0347e-03_rb, &\n     &7.1195e-04_rb,3.8176e-04_rb,3.4748e-05_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &2.6329e-03_rb,2.3195e-03_rb,2.0094e-03_rb,1.6960e-03_rb,1.3768e-03_rb,1.0589e-03_rb, &\n     &7.3230e-04_rb,3.9783e-04_rb,4.9695e-05_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &6.5036e-03_rb,5.6927e-03_rb,4.8817e-03_rb,4.0715e-03_rb,3.2636e-03_rb,2.4531e-03_rb, &\n     &1.6426e-03_rb,8.2916e-04_rb,6.2936e-06_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &6.4462e-03_rb,5.6438e-03_rb,4.8427e-03_rb,4.0443e-03_rb,3.2425e-03_rb,2.4409e-03_rb, &\n     &1.6364e-03_rb,8.3288e-04_rb,1.1136e-05_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &6.4103e-03_rb,5.6141e-03_rb,4.8233e-03_rb,4.0268e-03_rb,3.2317e-03_rb,2.4336e-03_rb, &\n     &1.6355e-03_rb,8.3675e-04_rb,1.7991e-05_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &6.4801e-03_rb,5.6797e-03_rb,4.8784e-03_rb,4.0772e-03_rb,3.2734e-03_rb,2.4699e-03_rb, &\n     &1.6705e-03_rb,8.6234e-04_rb,2.8124e-05_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &6.4899e-03_rb,5.6954e-03_rb,4.8999e-03_rb,4.1019e-03_rb,3.3007e-03_rb,2.5022e-03_rb, &\n     &1.6963e-03_rb,8.8568e-04_rb,4.2294e-05_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &1.9938e-02_rb,1.7447e-02_rb,1.4956e-02_rb,1.2465e-02_rb,9.9746e-03_rb,7.4836e-03_rb, &\n     &4.9963e-03_rb,2.5067e-03_rb,5.1161e-06_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &2.0028e-02_rb,1.7527e-02_rb,1.5026e-02_rb,1.2525e-02_rb,1.0025e-02_rb,7.5295e-03_rb, &\n     &5.0298e-03_rb,2.5282e-03_rb,9.0850e-06_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &1.9800e-02_rb,1.7330e-02_rb,1.4859e-02_rb,1.2391e-02_rb,9.9275e-03_rb,7.4581e-03_rb, &\n     &4.9868e-03_rb,2.5105e-03_rb,1.5352e-05_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &1.9943e-02_rb,1.7456e-02_rb,1.4973e-02_rb,1.2495e-02_rb,1.0008e-02_rb,7.5213e-03_rb, &\n     &5.0327e-03_rb,2.5396e-03_rb,2.4408e-05_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &2.0100e-02_rb,1.7597e-02_rb,1.5105e-02_rb,1.2604e-02_rb,1.0099e-02_rb,7.5963e-03_rb, &\n     &5.0871e-03_rb,2.5804e-03_rb,3.7067e-05_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &1.1579e-01_rb,1.0132e-01_rb,8.6843e-02_rb,7.2372e-02_rb,5.7899e-02_rb,4.3426e-02_rb, &\n     &2.8954e-02_rb,1.4481e-02_rb,4.8758e-06_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &1.1661e-01_rb,1.0203e-01_rb,8.7460e-02_rb,7.2886e-02_rb,5.8311e-02_rb,4.3737e-02_rb, &\n     &2.9163e-02_rb,1.4591e-02_rb,1.0307e-05_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &1.1709e-01_rb,1.0246e-01_rb,8.7825e-02_rb,7.3192e-02_rb,5.8559e-02_rb,4.3925e-02_rb, &\n     &2.9293e-02_rb,1.4674e-02_rb,1.8955e-05_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &1.1566e-01_rb,1.0121e-01_rb,8.6757e-02_rb,7.2304e-02_rb,5.7852e-02_rb,4.3402e-02_rb, &\n     &2.8967e-02_rb,1.4512e-02_rb,3.1114e-05_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &1.1720e-01_rb,1.0255e-01_rb,8.7909e-02_rb,7.3266e-02_rb,5.8634e-02_rb,4.4011e-02_rb, &\n     &2.9372e-02_rb,1.4720e-02_rb,4.7731e-05_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &7.9704e-01_rb,6.9741e-01_rb,5.9778e-01_rb,4.9815e-01_rb,3.9852e-01_rb,2.9889e-01_rb, &\n     &1.9926e-01_rb,9.9635e-02_rb,6.0881e-06_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &8.0524e-01_rb,7.0458e-01_rb,6.0393e-01_rb,5.0328e-01_rb,4.0263e-01_rb,3.0197e-01_rb, &\n     &2.0132e-01_rb,1.0067e-01_rb,9.9592e-06_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &8.0944e-01_rb,7.0827e-01_rb,6.0708e-01_rb,5.0591e-01_rb,4.0473e-01_rb,3.0356e-01_rb, &\n     &2.0238e-01_rb,1.0120e-01_rb,1.7097e-05_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &8.0782e-01_rb,7.0685e-01_rb,6.0589e-01_rb,5.0491e-01_rb,4.0393e-01_rb,3.0295e-01_rb, &\n     &2.0198e-01_rb,1.0100e-01_rb,2.9862e-05_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &8.0293e-01_rb,7.0255e-01_rb,6.0220e-01_rb,5.0184e-01_rb,4.0149e-01_rb,3.0112e-01_rb, &\n     &2.0077e-01_rb,1.0043e-01_rb,4.8674e-05_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &1.8320e+00_rb,1.6031e+00_rb,1.3740e+00_rb,1.1450e+00_rb,9.1602e-01_rb,6.8703e-01_rb, &\n     &4.5802e-01_rb,2.2901e-01_rb,6.4794e-06_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &1.8510e+00_rb,1.6196e+00_rb,1.3883e+00_rb,1.1569e+00_rb,9.2553e-01_rb,6.9415e-01_rb, &\n     &4.6277e-01_rb,2.3139e-01_rb,1.1218e-05_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &1.8631e+00_rb,1.6303e+00_rb,1.3974e+00_rb,1.1645e+00_rb,9.3160e-01_rb,6.9871e-01_rb, &\n     &4.6580e-01_rb,2.3291e-01_rb,1.9228e-05_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &1.8640e+00_rb,1.6310e+00_rb,1.3980e+00_rb,1.1650e+00_rb,9.3201e-01_rb,6.9904e-01_rb, &\n     &4.6603e-01_rb,2.3304e-01_rb,3.3633e-05_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &1.8480e+00_rb,1.6170e+00_rb,1.3860e+00_rb,1.1550e+00_rb,9.2402e-01_rb,6.9305e-01_rb, &\n     &4.6206e-01_rb,2.3108e-01_rb,5.6086e-05_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &2.6276e+00_rb,2.2991e+00_rb,1.9707e+00_rb,1.6422e+00_rb,1.3138e+00_rb,9.8536e-01_rb, &\n     &6.5690e-01_rb,3.2845e-01_rb,6.1969e-06_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &2.6587e+00_rb,2.3264e+00_rb,1.9940e+00_rb,1.6617e+00_rb,1.3293e+00_rb,9.9701e-01_rb, &\n     &6.6468e-01_rb,3.3234e-01_rb,9.9191e-06_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &2.6771e+00_rb,2.3425e+00_rb,2.0078e+00_rb,1.6732e+00_rb,1.3386e+00_rb,1.0039e+00_rb, &\n     &6.6929e-01_rb,3.3465e-01_rb,1.7326e-05_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &2.6786e+00_rb,2.3438e+00_rb,2.0090e+00_rb,1.6742e+00_rb,1.3393e+00_rb,1.0045e+00_rb, &\n     &6.6968e-01_rb,3.3487e-01_rb,3.0600e-05_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &2.6738e+00_rb,2.3396e+00_rb,2.0054e+00_rb,1.6711e+00_rb,1.3369e+00_rb,1.0027e+00_rb, &\n     &6.6852e-01_rb,3.3432e-01_rb,4.9574e-05_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &3.0141e+00_rb,2.6373e+00_rb,2.2606e+00_rb,1.8838e+00_rb,1.5070e+00_rb,1.1303e+00_rb, &\n     &7.5353e-01_rb,3.7676e-01_rb,5.4676e-06_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &3.0533e+00_rb,2.6716e+00_rb,2.2900e+00_rb,1.9083e+00_rb,1.5266e+00_rb,1.1450e+00_rb, &\n     &7.6332e-01_rb,3.8166e-01_rb,9.0049e-06_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &3.0797e+00_rb,2.6947e+00_rb,2.3097e+00_rb,1.9248e+00_rb,1.5398e+00_rb,1.1549e+00_rb, &\n     &7.6993e-01_rb,3.8499e-01_rb,1.5493e-05_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &3.0841e+00_rb,2.6986e+00_rb,2.3131e+00_rb,1.9276e+00_rb,1.5421e+00_rb,1.1566e+00_rb, &\n     &7.7107e-01_rb,3.8557e-01_rb,2.5494e-05_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &3.0968e+00_rb,2.7097e+00_rb,2.3226e+00_rb,1.9355e+00_rb,1.5484e+00_rb,1.1613e+00_rb, &\n     &7.7428e-01_rb,3.8723e-01_rb,4.2043e-05_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &4.9351e-05_rb,5.1634e-05_rb,5.0550e-05_rb,4.1436e-05_rb,1.6376e-05_rb,2.1065e-05_rb, &\n     &3.5627e-05_rb,5.1301e-05_rb,2.4192e-05_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &4.8474e-05_rb,5.5540e-05_rb,5.6343e-05_rb,5.4221e-05_rb,4.2170e-05_rb,2.4823e-05_rb, &\n     &3.1731e-05_rb,5.9201e-05_rb,4.8733e-05_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &4.7492e-05_rb,6.0199e-05_rb,6.3032e-05_rb,6.6317e-05_rb,6.8647e-05_rb,6.4541e-05_rb, &\n     &4.0308e-05_rb,5.5421e-05_rb,1.0385e-04_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &4.5731e-05_rb,6.4480e-05_rb,7.0656e-05_rb,8.0927e-05_rb,9.1209e-05_rb,1.0812e-04_rb, &\n     &1.1177e-04_rb,6.7578e-05_rb,1.5053e-04_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &4.5536e-05_rb,6.8791e-05_rb,8.4361e-05_rb,1.0008e-04_rb,1.1558e-04_rb,1.4310e-04_rb, &\n     &1.8138e-04_rb,1.7860e-04_rb,2.0339e-04_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &8.7853e-05_rb,8.5975e-05_rb,8.0217e-05_rb,7.2158e-05_rb,5.1923e-05_rb,1.7714e-05_rb, &\n     &2.3551e-05_rb,3.4001e-05_rb,1.8843e-05_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &8.7406e-05_rb,8.8950e-05_rb,8.5976e-05_rb,7.9247e-05_rb,6.9532e-05_rb,3.6395e-05_rb, &\n     &2.2706e-05_rb,4.1033e-05_rb,5.5544e-05_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &8.7368e-05_rb,9.3020e-05_rb,9.1442e-05_rb,8.8073e-05_rb,8.2295e-05_rb,7.2901e-05_rb, &\n     &4.3354e-05_rb,4.6618e-05_rb,9.4748e-05_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &8.6439e-05_rb,9.8041e-05_rb,9.9373e-05_rb,9.8643e-05_rb,9.7447e-05_rb,9.7462e-05_rb, &\n     &9.8905e-05_rb,6.1372e-05_rb,1.3473e-04_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &8.4149e-05_rb,1.0269e-04_rb,1.0851e-04_rb,1.1232e-04_rb,1.1694e-04_rb,1.2384e-04_rb, &\n     &1.3615e-04_rb,1.5254e-04_rb,1.8188e-04_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &2.2417e-04_rb,2.0404e-04_rb,1.8235e-04_rb,1.5974e-04_rb,1.3536e-04_rb,1.0733e-04_rb, &\n     &2.8889e-05_rb,2.3292e-05_rb,2.7610e-05_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &2.2507e-04_rb,2.0905e-04_rb,1.8945e-04_rb,1.6889e-04_rb,1.4442e-04_rb,1.1619e-04_rb, &\n     &5.9496e-05_rb,2.4524e-05_rb,5.6641e-05_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &2.2338e-04_rb,2.1298e-04_rb,1.9588e-04_rb,1.7647e-04_rb,1.5321e-04_rb,1.2706e-04_rb, &\n     &9.4765e-05_rb,2.7601e-05_rb,8.4458e-05_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &2.2342e-04_rb,2.1728e-04_rb,2.0413e-04_rb,1.8620e-04_rb,1.6349e-04_rb,1.4113e-04_rb, &\n     &1.1467e-04_rb,6.7006e-05_rb,1.1844e-04_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &2.2238e-04_rb,2.2192e-04_rb,2.1227e-04_rb,1.9647e-04_rb,1.7779e-04_rb,1.5802e-04_rb, &\n     &1.3658e-04_rb,1.1946e-04_rb,1.6048e-04_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &5.9406e-04_rb,5.2735e-04_rb,4.5854e-04_rb,3.9146e-04_rb,3.2173e-04_rb,2.5115e-04_rb, &\n     &1.8204e-04_rb,3.3380e-05_rb,2.9857e-05_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &6.0105e-04_rb,5.3531e-04_rb,4.6978e-04_rb,4.0022e-04_rb,3.3097e-04_rb,2.6221e-04_rb, &\n     &1.8773e-04_rb,5.6092e-05_rb,4.7642e-05_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &5.9920e-04_rb,5.3954e-04_rb,4.7635e-04_rb,4.1122e-04_rb,3.4497e-04_rb,2.7525e-04_rb, &\n     &1.9878e-04_rb,1.0920e-04_rb,7.1351e-05_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &5.9595e-04_rb,5.4459e-04_rb,4.8204e-04_rb,4.2190e-04_rb,3.5656e-04_rb,2.8691e-04_rb, &\n     &2.1194e-04_rb,1.2834e-04_rb,1.0247e-04_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &5.9682e-04_rb,5.4845e-04_rb,4.9542e-04_rb,4.3507e-04_rb,3.7084e-04_rb,3.0256e-04_rb, &\n     &2.2629e-04_rb,1.4673e-04_rb,1.4061e-04_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &1.5636e-03_rb,1.3738e-03_rb,1.1854e-03_rb,9.9627e-04_rb,8.0358e-04_rb,6.1134e-04_rb, &\n     &4.1794e-04_rb,2.1940e-04_rb,2.4302e-05_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &1.5046e-03_rb,1.3266e-03_rb,1.1472e-03_rb,9.6320e-04_rb,7.8248e-04_rb,5.9833e-04_rb, &\n     &4.1211e-04_rb,2.2595e-04_rb,3.8463e-05_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &1.5168e-03_rb,1.3431e-03_rb,1.1615e-03_rb,9.8412e-04_rb,8.0210e-04_rb,6.1684e-04_rb, &\n     &4.2935e-04_rb,2.3832e-04_rb,5.7958e-05_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &1.5026e-03_rb,1.3336e-03_rb,1.1649e-03_rb,9.9050e-04_rb,8.0890e-04_rb,6.2936e-04_rb, &\n     &4.4480e-04_rb,2.5053e-04_rb,8.4195e-05_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &1.4982e-03_rb,1.3418e-03_rb,1.1752e-03_rb,9.9791e-04_rb,8.2403e-04_rb,6.4480e-04_rb, &\n     &4.6309e-04_rb,2.6575e-04_rb,1.1855e-04_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &3.8022e-03_rb,3.3297e-03_rb,2.8587e-03_rb,2.3909e-03_rb,1.9206e-03_rb,1.4508e-03_rb, &\n     &9.7686e-04_rb,5.0103e-04_rb,1.8374e-05_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &3.7188e-03_rb,3.2606e-03_rb,2.8078e-03_rb,2.3509e-03_rb,1.8941e-03_rb,1.4317e-03_rb, &\n     &9.6949e-04_rb,5.0170e-04_rb,2.9781e-05_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &3.6568e-03_rb,3.2124e-03_rb,2.7660e-03_rb,2.3181e-03_rb,1.8667e-03_rb,1.4148e-03_rb, &\n     &9.6121e-04_rb,5.0473e-04_rb,4.5442e-05_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &3.6655e-03_rb,3.2274e-03_rb,2.7830e-03_rb,2.3318e-03_rb,1.8859e-03_rb,1.4380e-03_rb, &\n     &9.8239e-04_rb,5.2260e-04_rb,6.7780e-05_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &3.6236e-03_rb,3.1965e-03_rb,2.7643e-03_rb,2.3328e-03_rb,1.8928e-03_rb,1.4444e-03_rb, &\n     &9.9870e-04_rb,5.3910e-04_rb,9.8293e-05_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &9.7756e-03_rb,8.5557e-03_rb,7.3357e-03_rb,6.1160e-03_rb,4.8978e-03_rb,3.6826e-03_rb, &\n     &2.4642e-03_rb,1.2466e-03_rb,1.4263e-05_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &9.5966e-03_rb,8.4005e-03_rb,7.2050e-03_rb,6.0128e-03_rb,4.8216e-03_rb,3.6274e-03_rb, &\n     &2.4345e-03_rb,1.2337e-03_rb,2.4094e-05_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &9.2939e-03_rb,8.1388e-03_rb,6.9869e-03_rb,5.8375e-03_rb,4.6843e-03_rb,3.5321e-03_rb, &\n     &2.3720e-03_rb,1.2113e-03_rb,3.8518e-05_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &9.3185e-03_rb,8.1650e-03_rb,7.0200e-03_rb,5.8680e-03_rb,4.7180e-03_rb,3.5579e-03_rb, &\n     &2.3933e-03_rb,1.2260e-03_rb,6.0065e-05_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &9.2942e-03_rb,8.1544e-03_rb,7.0105e-03_rb,5.8689e-03_rb,4.7186e-03_rb,3.5646e-03_rb, &\n     &2.4113e-03_rb,1.2505e-03_rb,8.8114e-05_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &3.1428e-02_rb,2.7501e-02_rb,2.3574e-02_rb,1.9646e-02_rb,1.5719e-02_rb,1.1792e-02_rb, &\n     &7.8652e-03_rb,3.9445e-03_rb,1.1179e-05_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &3.0933e-02_rb,2.7068e-02_rb,2.3204e-02_rb,1.9341e-02_rb,1.5477e-02_rb,1.1614e-02_rb, &\n     &7.7579e-03_rb,3.8961e-03_rb,2.0761e-05_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &3.0367e-02_rb,2.6575e-02_rb,2.2784e-02_rb,1.8992e-02_rb,1.5203e-02_rb,1.1421e-02_rb, &\n     &7.6337e-03_rb,3.8475e-03_rb,3.6107e-05_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &2.9365e-02_rb,2.5702e-02_rb,2.2039e-02_rb,1.8381e-02_rb,1.4731e-02_rb,1.1072e-02_rb, &\n     &7.4163e-03_rb,3.7447e-03_rb,5.6666e-05_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &2.9621e-02_rb,2.5930e-02_rb,2.2243e-02_rb,1.8569e-02_rb,1.4884e-02_rb,1.1199e-02_rb, &\n     &7.5061e-03_rb,3.7957e-03_rb,8.4702e-05_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &1.9031e-01_rb,1.6652e-01_rb,1.4273e-01_rb,1.1894e-01_rb,9.5159e-02_rb,7.1370e-02_rb, &\n     &4.7583e-02_rb,2.3794e-02_rb,1.1825e-05_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &1.8790e-01_rb,1.6442e-01_rb,1.4093e-01_rb,1.1744e-01_rb,9.3958e-02_rb,7.0471e-02_rb, &\n     &4.6985e-02_rb,2.3500e-02_rb,2.0873e-05_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &1.8549e-01_rb,1.6231e-01_rb,1.3912e-01_rb,1.1594e-01_rb,9.2757e-02_rb,6.9574e-02_rb, &\n     &4.6391e-02_rb,2.3213e-02_rb,3.5554e-05_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &1.8255e-01_rb,1.5974e-01_rb,1.3693e-01_rb,1.1411e-01_rb,9.1298e-02_rb,6.8486e-02_rb, &\n     &4.5672e-02_rb,2.2886e-02_rb,5.8671e-05_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &1.7785e-01_rb,1.5563e-01_rb,1.3341e-01_rb,1.1118e-01_rb,8.8960e-02_rb,6.6737e-02_rb, &\n     &4.4547e-02_rb,2.2336e-02_rb,9.5234e-05_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &1.3607e+00_rb,1.1905e+00_rb,1.0205e+00_rb,8.5040e-01_rb,6.8031e-01_rb,5.1024e-01_rb, &\n     &3.4016e-01_rb,1.7008e-01_rb,8.4759e-06_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &1.3482e+00_rb,1.1796e+00_rb,1.0111e+00_rb,8.4260e-01_rb,6.7408e-01_rb,5.0556e-01_rb, &\n     &3.3705e-01_rb,1.6853e-01_rb,1.7938e-05_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &1.3360e+00_rb,1.1690e+00_rb,1.0020e+00_rb,8.3498e-01_rb,6.6798e-01_rb,5.0099e-01_rb, &\n     &3.3400e-01_rb,1.6701e-01_rb,3.3302e-05_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &1.3243e+00_rb,1.1588e+00_rb,9.9325e-01_rb,8.2771e-01_rb,6.6217e-01_rb,4.9664e-01_rb, &\n     &3.3111e-01_rb,1.6557e-01_rb,5.5097e-05_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &1.3047e+00_rb,1.1416e+00_rb,9.7851e-01_rb,8.1543e-01_rb,6.5236e-01_rb,4.8929e-01_rb, &\n     &3.2621e-01_rb,1.6314e-01_rb,9.0393e-05_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &3.2276e+00_rb,2.8242e+00_rb,2.4208e+00_rb,2.0173e+00_rb,1.6138e+00_rb,1.2104e+00_rb, &\n     &8.0693e-01_rb,4.0346e-01_rb,7.3681e-06_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &3.2117e+00_rb,2.8103e+00_rb,2.4088e+00_rb,2.0073e+00_rb,1.6059e+00_rb,1.2044e+00_rb, &\n     &8.0294e-01_rb,4.0147e-01_rb,1.5281e-05_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &3.1949e+00_rb,2.7955e+00_rb,2.3962e+00_rb,1.9968e+00_rb,1.5975e+00_rb,1.1981e+00_rb, &\n     &7.9874e-01_rb,3.9938e-01_rb,2.9166e-05_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &3.1739e+00_rb,2.7771e+00_rb,2.3804e+00_rb,1.9837e+00_rb,1.5870e+00_rb,1.1902e+00_rb, &\n     &7.9350e-01_rb,3.9677e-01_rb,4.9026e-05_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &3.1466e+00_rb,2.7532e+00_rb,2.3599e+00_rb,1.9666e+00_rb,1.5733e+00_rb,1.1800e+00_rb, &\n     &7.8668e-01_rb,3.9338e-01_rb,8.3128e-05_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &4.8071e+00_rb,4.2062e+00_rb,3.6053e+00_rb,3.0044e+00_rb,2.4035e+00_rb,1.8027e+00_rb, &\n     &1.2018e+00_rb,6.0089e-01_rb,7.8311e-06_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &4.7982e+00_rb,4.1985e+00_rb,3.5987e+00_rb,2.9989e+00_rb,2.3991e+00_rb,1.7993e+00_rb, &\n     &1.1996e+00_rb,5.9978e-01_rb,1.6500e-05_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &4.7853e+00_rb,4.1872e+00_rb,3.5890e+00_rb,2.9909e+00_rb,2.3927e+00_rb,1.7945e+00_rb, &\n     &1.1963e+00_rb,5.9818e-01_rb,3.1398e-05_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &4.7636e+00_rb,4.1682e+00_rb,3.5727e+00_rb,2.9773e+00_rb,2.3818e+00_rb,1.7864e+00_rb, &\n     &1.1909e+00_rb,5.9548e-01_rb,5.6315e-05_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &4.7234e+00_rb,4.1330e+00_rb,3.5426e+00_rb,2.9521e+00_rb,2.3618e+00_rb,1.7713e+00_rb, &\n     &1.1809e+00_rb,5.9047e-01_rb,9.4104e-05_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &5.7320e+00_rb,5.0155e+00_rb,4.2989e+00_rb,3.5824e+00_rb,2.8660e+00_rb,2.1495e+00_rb, &\n     &1.4330e+00_rb,7.1649e-01_rb,9.5542e-06_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &5.7353e+00_rb,5.0184e+00_rb,4.3015e+00_rb,3.5845e+00_rb,2.8676e+00_rb,2.1507e+00_rb, &\n     &1.4338e+00_rb,7.1691e-01_rb,1.9109e-05_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &5.7278e+00_rb,5.0119e+00_rb,4.2959e+00_rb,3.5799e+00_rb,2.8639e+00_rb,2.1479e+00_rb, &\n     &1.4320e+00_rb,7.1599e-01_rb,3.6436e-05_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &5.7108e+00_rb,4.9969e+00_rb,4.2830e+00_rb,3.5692e+00_rb,2.8554e+00_rb,2.1415e+00_rb, &\n     &1.4277e+00_rb,7.1386e-01_rb,6.4763e-05_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &5.6635e+00_rb,4.9556e+00_rb,4.2476e+00_rb,3.5397e+00_rb,2.8317e+00_rb,2.1238e+00_rb, &\n     &1.4159e+00_rb,7.0796e-01_rb,1.0153e-04_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &5.6440e-05_rb,6.3815e-05_rb,6.7040e-05_rb,7.2656e-05_rb,5.7075e-05_rb,3.5497e-05_rb, &\n     &4.7197e-05_rb,3.9064e-05_rb,8.4705e-05_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &5.6956e-05_rb,6.9440e-05_rb,7.5002e-05_rb,9.1724e-05_rb,1.1786e-04_rb,1.1581e-04_rb, &\n     &7.2124e-05_rb,6.3862e-05_rb,2.0332e-04_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &5.4856e-05_rb,7.4835e-05_rb,8.9381e-05_rb,1.1688e-04_rb,1.6480e-04_rb,2.0403e-04_rb, &\n     &2.1723e-04_rb,1.2068e-04_rb,2.9982e-04_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &5.2749e-05_rb,8.4849e-05_rb,1.1205e-04_rb,1.5064e-04_rb,2.1741e-04_rb,2.8178e-04_rb, &\n     &3.3958e-04_rb,3.6475e-04_rb,4.0572e-04_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &4.5645e-05_rb,1.0085e-04_rb,1.3954e-04_rb,1.9411e-04_rb,2.8393e-04_rb,3.7289e-04_rb, &\n     &4.5784e-04_rb,5.5744e-04_rb,5.3928e-04_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &1.0540e-04_rb,1.0513e-04_rb,1.0042e-04_rb,9.6258e-05_rb,8.8970e-05_rb,4.3184e-05_rb, &\n     &2.9692e-05_rb,3.3913e-05_rb,8.0284e-05_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &1.0559e-04_rb,1.0940e-04_rb,1.0770e-04_rb,1.0381e-04_rb,1.0664e-04_rb,1.1502e-04_rb, &\n     &8.1785e-05_rb,5.3525e-05_rb,1.4202e-04_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &1.0218e-04_rb,1.1568e-04_rb,1.1773e-04_rb,1.2016e-04_rb,1.3039e-04_rb,1.6512e-04_rb, &\n     &1.8884e-04_rb,1.2031e-04_rb,2.0363e-04_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &9.8487e-05_rb,1.1922e-04_rb,1.3281e-04_rb,1.4606e-04_rb,1.6549e-04_rb,2.1784e-04_rb, &\n     &2.7427e-04_rb,3.0595e-04_rb,2.8029e-04_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &9.4987e-05_rb,1.2846e-04_rb,1.5591e-04_rb,1.8268e-04_rb,2.1442e-04_rb,2.8547e-04_rb, &\n     &3.6877e-04_rb,4.4657e-04_rb,3.7746e-04_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &2.7647e-04_rb,2.5246e-04_rb,2.2770e-04_rb,2.0041e-04_rb,1.7472e-04_rb,1.4681e-04_rb, &\n     &4.5677e-05_rb,2.9185e-05_rb,7.9704e-05_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &2.7846e-04_rb,2.6060e-04_rb,2.3622e-04_rb,2.0968e-04_rb,1.8322e-04_rb,1.5414e-04_rb, &\n     &1.2348e-04_rb,3.8961e-05_rb,1.2336e-04_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &2.7763e-04_rb,2.6427e-04_rb,2.4553e-04_rb,2.2406e-04_rb,1.9856e-04_rb,1.7101e-04_rb, &\n     &1.5714e-04_rb,1.3645e-04_rb,1.7764e-04_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &2.7073e-04_rb,2.6684e-04_rb,2.5482e-04_rb,2.3763e-04_rb,2.1876e-04_rb,2.0158e-04_rb, &\n     &1.9981e-04_rb,2.4173e-04_rb,2.4735e-04_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &2.6027e-04_rb,2.7336e-04_rb,2.6560e-04_rb,2.5755e-04_rb,2.5236e-04_rb,2.4811e-04_rb, &\n     &2.5900e-04_rb,3.3153e-04_rb,3.3717e-04_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &7.9130e-04_rb,7.0063e-04_rb,6.1298e-04_rb,5.1987e-04_rb,4.2755e-04_rb,3.3326e-04_rb, &\n     &2.3363e-04_rb,3.7051e-05_rb,7.4199e-05_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &7.5980e-04_rb,6.7845e-04_rb,5.9445e-04_rb,5.1095e-04_rb,4.1981e-04_rb,3.2923e-04_rb, &\n     &2.4168e-04_rb,1.3135e-04_rb,1.1471e-04_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &7.6644e-04_rb,6.8984e-04_rb,6.0948e-04_rb,5.2391e-04_rb,4.3682e-04_rb,3.5056e-04_rb, &\n     &2.5756e-04_rb,1.6433e-04_rb,1.6687e-04_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &7.5595e-04_rb,6.9178e-04_rb,6.1629e-04_rb,5.3601e-04_rb,4.5434e-04_rb,3.7215e-04_rb, &\n     &2.8231e-04_rb,1.9566e-04_rb,2.3395e-04_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &7.4067e-04_rb,6.8825e-04_rb,6.1664e-04_rb,5.5301e-04_rb,4.7442e-04_rb,3.9621e-04_rb, &\n     &3.1512e-04_rb,2.4572e-04_rb,3.2210e-04_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &2.0703e-03_rb,1.8139e-03_rb,1.5621e-03_rb,1.3106e-03_rb,1.0600e-03_rb,8.0652e-04_rb, &\n     &5.5133e-04_rb,2.9069e-04_rb,6.3670e-05_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &1.9818e-03_rb,1.7441e-03_rb,1.5082e-03_rb,1.2728e-03_rb,1.0326e-03_rb,7.9434e-04_rb, &\n     &5.4918e-04_rb,2.9978e-04_rb,1.0147e-04_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &1.9776e-03_rb,1.7438e-03_rb,1.5149e-03_rb,1.2743e-03_rb,1.0380e-03_rb,7.9656e-04_rb, &\n     &5.5670e-04_rb,3.0633e-04_rb,1.5212e-04_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &1.9765e-03_rb,1.7561e-03_rb,1.5287e-03_rb,1.2973e-03_rb,1.0616e-03_rb,8.2154e-04_rb, &\n     &5.8167e-04_rb,3.3115e-04_rb,2.1510e-04_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &1.9526e-03_rb,1.7391e-03_rb,1.5270e-03_rb,1.3031e-03_rb,1.0804e-03_rb,8.4755e-04_rb, &\n     &6.0189e-04_rb,3.6102e-04_rb,2.9241e-04_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &5.2193e-03_rb,4.5684e-03_rb,3.9176e-03_rb,3.2705e-03_rb,2.6232e-03_rb,1.9766e-03_rb, &\n     &1.3309e-03_rb,6.8212e-04_rb,5.1398e-05_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &5.0808e-03_rb,4.4486e-03_rb,3.8217e-03_rb,3.1970e-03_rb,2.5720e-03_rb,1.9485e-03_rb, &\n     &1.3187e-03_rb,6.8335e-04_rb,8.5267e-05_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &4.8228e-03_rb,4.2284e-03_rb,3.6430e-03_rb,3.0578e-03_rb,2.4711e-03_rb,1.8742e-03_rb, &\n     &1.2774e-03_rb,6.7264e-04_rb,1.3245e-04_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &4.8943e-03_rb,4.3003e-03_rb,3.7080e-03_rb,3.1199e-03_rb,2.5213e-03_rb,1.9154e-03_rb, &\n     &1.3062e-03_rb,6.9055e-04_rb,1.9661e-04_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &4.8824e-03_rb,4.3025e-03_rb,3.7232e-03_rb,3.1333e-03_rb,2.5429e-03_rb,1.9512e-03_rb, &\n     &1.3415e-03_rb,7.2251e-04_rb,2.7802e-04_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &1.3875e-02_rb,1.2141e-02_rb,1.0408e-02_rb,8.6749e-03_rb,6.9418e-03_rb,5.2118e-03_rb, &\n     &3.4839e-03_rb,1.7560e-03_rb,4.0537e-05_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &1.3633e-02_rb,1.1931e-02_rb,1.0229e-02_rb,8.5279e-03_rb,6.8346e-03_rb,5.1400e-03_rb, &\n     &3.4444e-03_rb,1.7477e-03_rb,6.8687e-05_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &1.3328e-02_rb,1.1666e-02_rb,1.0007e-02_rb,8.3587e-03_rb,6.7074e-03_rb,5.0533e-03_rb, &\n     &3.4014e-03_rb,1.7372e-03_rb,1.1189e-04_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &1.2636e-02_rb,1.1066e-02_rb,9.5081e-03_rb,7.9486e-03_rb,6.3850e-03_rb,4.8258e-03_rb, &\n     &3.2564e-03_rb,1.6750e-03_rb,1.7143e-04_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &1.2752e-02_rb,1.1174e-02_rb,9.6135e-03_rb,8.0399e-03_rb,6.4759e-03_rb,4.9028e-03_rb, &\n     &3.3183e-03_rb,1.7153e-03_rb,2.5158e-04_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &4.6547e-02_rb,4.0730e-02_rb,3.4913e-02_rb,2.9095e-02_rb,2.3277e-02_rb,1.7460e-02_rb, &\n     &1.1642e-02_rb,5.8282e-03_rb,3.2784e-05_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &4.5721e-02_rb,4.0008e-02_rb,3.4294e-02_rb,2.8581e-02_rb,2.2868e-02_rb,1.7154e-02_rb, &\n     &1.1445e-02_rb,5.7448e-03_rb,5.6960e-05_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &4.4866e-02_rb,3.9261e-02_rb,3.3657e-02_rb,2.8053e-02_rb,2.2449e-02_rb,1.6850e-02_rb, &\n     &1.1263e-02_rb,5.6659e-03_rb,9.3969e-05_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &4.3949e-02_rb,3.8462e-02_rb,3.2975e-02_rb,2.7489e-02_rb,2.2013e-02_rb,1.6548e-02_rb, &\n     &1.1065e-02_rb,5.5874e-03_rb,1.4907e-04_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &4.1860e-02_rb,3.6641e-02_rb,3.1420e-02_rb,2.6211e-02_rb,2.1011e-02_rb,1.5788e-02_rb, &\n     &1.0584e-02_rb,5.3726e-03_rb,2.2697e-04_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &2.9682e-01_rb,2.5971e-01_rb,2.2262e-01_rb,1.8551e-01_rb,1.4841e-01_rb,1.1131e-01_rb, &\n     &7.4208e-02_rb,3.7107e-02_rb,2.8713e-05_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &2.9173e-01_rb,2.5526e-01_rb,2.1881e-01_rb,1.8234e-01_rb,1.4587e-01_rb,1.0941e-01_rb, &\n     &7.2941e-02_rb,3.6477e-02_rb,5.3026e-05_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &2.8647e-01_rb,2.5066e-01_rb,2.1486e-01_rb,1.7905e-01_rb,1.4325e-01_rb,1.0744e-01_rb, &\n     &7.1634e-02_rb,3.5829e-02_rb,9.1273e-05_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &2.8100e-01_rb,2.4588e-01_rb,2.1076e-01_rb,1.7564e-01_rb,1.4052e-01_rb,1.0540e-01_rb, &\n     &7.0282e-02_rb,3.5177e-02_rb,1.4937e-04_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &2.7385e-01_rb,2.3963e-01_rb,2.0540e-01_rb,1.7118e-01_rb,1.3696e-01_rb,1.0274e-01_rb, &\n     &6.8516e-02_rb,3.4350e-02_rb,2.3011e-04_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &2.2461e+00_rb,1.9654e+00_rb,1.6846e+00_rb,1.4038e+00_rb,1.1231e+00_rb,8.4230e-01_rb, &\n     &5.6154e-01_rb,2.8077e-01_rb,2.2240e-05_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &2.2106e+00_rb,1.9343e+00_rb,1.6579e+00_rb,1.3816e+00_rb,1.1053e+00_rb,8.2897e-01_rb, &\n     &5.5265e-01_rb,2.7633e-01_rb,4.4575e-05_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &2.1737e+00_rb,1.9020e+00_rb,1.6303e+00_rb,1.3586e+00_rb,1.0869e+00_rb,8.1516e-01_rb, &\n     &5.4345e-01_rb,2.7173e-01_rb,8.8587e-05_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &2.1348e+00_rb,1.8680e+00_rb,1.6011e+00_rb,1.3342e+00_rb,1.0674e+00_rb,8.0056e-01_rb, &\n     &5.3373e-01_rb,2.6688e-01_rb,1.5800e-04_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &2.0952e+00_rb,1.8333e+00_rb,1.5714e+00_rb,1.3095e+00_rb,1.0476e+00_rb,7.8572e-01_rb, &\n     &5.2383e-01_rb,2.6194e-01_rb,2.5854e-04_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &5.6263e+00_rb,4.9230e+00_rb,4.2197e+00_rb,3.5164e+00_rb,2.8132e+00_rb,2.1099e+00_rb, &\n     &1.4066e+00_rb,7.0330e-01_rb,2.4215e-05_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &5.5442e+00_rb,4.8512e+00_rb,4.1582e+00_rb,3.4652e+00_rb,2.7721e+00_rb,2.0791e+00_rb, &\n     &1.3861e+00_rb,6.9304e-01_rb,5.0673e-05_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &5.4573e+00_rb,4.7752e+00_rb,4.0930e+00_rb,3.4108e+00_rb,2.7286e+00_rb,2.0465e+00_rb, &\n     &1.3643e+00_rb,6.8218e-01_rb,9.6231e-05_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &5.3719e+00_rb,4.7004e+00_rb,4.0290e+00_rb,3.3575e+00_rb,2.6860e+00_rb,2.0145e+00_rb, &\n     &1.3430e+00_rb,6.7153e-01_rb,1.7007e-04_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &5.2804e+00_rb,4.6204e+00_rb,3.9603e+00_rb,3.3002e+00_rb,2.6402e+00_rb,1.9802e+00_rb, &\n     &1.3201e+00_rb,6.6009e-01_rb,2.7665e-04_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &8.8343e+00_rb,7.7300e+00_rb,6.6256e+00_rb,5.5214e+00_rb,4.4171e+00_rb,3.3128e+00_rb, &\n     &2.2085e+00_rb,1.1043e+00_rb,2.5372e-05_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &8.7174e+00_rb,7.6278e+00_rb,6.5381e+00_rb,5.4484e+00_rb,4.3587e+00_rb,3.2690e+00_rb, &\n     &2.1794e+00_rb,1.0897e+00_rb,5.2642e-05_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &8.5962e+00_rb,7.5216e+00_rb,6.4471e+00_rb,5.3726e+00_rb,4.2981e+00_rb,3.2236e+00_rb, &\n     &2.1490e+00_rb,1.0745e+00_rb,9.9934e-05_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &8.4730e+00_rb,7.4139e+00_rb,6.3547e+00_rb,5.2956e+00_rb,4.2365e+00_rb,3.1774e+00_rb, &\n     &2.1183e+00_rb,1.0591e+00_rb,1.7486e-04_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &8.3427e+00_rb,7.2999e+00_rb,6.2571e+00_rb,5.2142e+00_rb,4.1714e+00_rb,3.1285e+00_rb, &\n     &2.0857e+00_rb,1.0429e+00_rb,2.8225e-04_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &1.1088e+01_rb,9.7019e+00_rb,8.3159e+00_rb,6.9299e+00_rb,5.5439e+00_rb,4.1579e+00_rb, &\n     &2.7720e+00_rb,1.3860e+00_rb,2.2843e-05_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &1.0963e+01_rb,9.5924e+00_rb,8.2220e+00_rb,6.8518e+00_rb,5.4814e+00_rb,4.1110e+00_rb, &\n     &2.7407e+00_rb,1.3703e+00_rb,4.7912e-05_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &1.0836e+01_rb,9.4815e+00_rb,8.1269e+00_rb,6.7725e+00_rb,5.4179e+00_rb,4.0635e+00_rb, &\n     &2.7090e+00_rb,1.3545e+00_rb,9.1850e-05_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &1.0705e+01_rb,9.3666e+00_rb,8.0284e+00_rb,6.6904e+00_rb,5.3523e+00_rb,4.0142e+00_rb, &\n     &2.6761e+00_rb,1.3381e+00_rb,1.6522e-04_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &1.0568e+01_rb,9.2475e+00_rb,7.9263e+00_rb,6.6053e+00_rb,5.2842e+00_rb,3.9632e+00_rb, &\n     &2.6421e+00_rb,1.3211e+00_rb,2.8269e-04_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &6.2917e-05_rb,8.4558e-05_rb,1.3686e-04_rb,1.9740e-04_rb,2.4967e-04_rb,2.7515e-04_rb, &\n     &1.6338e-04_rb,4.8223e-05_rb,4.6728e-04_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &5.3089e-05_rb,9.0420e-05_rb,1.8251e-04_rb,2.7670e-04_rb,3.5886e-04_rb,4.3834e-04_rb, &\n     &4.9477e-04_rb,2.3929e-04_rb,6.8730e-04_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &4.3039e-05_rb,1.0946e-04_rb,2.4429e-04_rb,3.7961e-04_rb,4.9689e-04_rb,6.1288e-04_rb, &\n     &7.2274e-04_rb,7.7240e-04_rb,9.6431e-04_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &3.4069e-05_rb,1.3830e-04_rb,3.2177e-04_rb,5.0878e-04_rb,6.6994e-04_rb,8.2945e-04_rb, &\n     &9.8413e-04_rb,1.1125e-03_rb,1.3109e-03_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &3.0399e-05_rb,1.7548e-04_rb,4.1760e-04_rb,6.6731e-04_rb,8.8167e-04_rb,1.0941e-03_rb, &\n     &1.3015e-03_rb,1.4854e-03_rb,1.7348e-03_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &1.1900e-04_rb,1.2836e-04_rb,1.4231e-04_rb,1.8014e-04_rb,2.2526e-04_rb,2.6329e-04_rb, &\n     &2.2981e-04_rb,4.7447e-05_rb,3.9923e-04_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &1.1384e-04_rb,1.2703e-04_rb,1.6170e-04_rb,2.3947e-04_rb,3.1945e-04_rb,3.8888e-04_rb, &\n     &4.4936e-04_rb,3.6063e-04_rb,5.9020e-04_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &9.6344e-05_rb,1.3540e-04_rb,2.0202e-04_rb,3.2063e-04_rb,4.4367e-04_rb,5.4566e-04_rb, &\n     &6.4489e-04_rb,7.2550e-04_rb,8.3580e-04_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &7.7835e-05_rb,1.6099e-04_rb,2.5994e-04_rb,4.2610e-04_rb,6.0189e-04_rb,7.4414e-04_rb, &\n     &8.8531e-04_rb,1.0210e-03_rb,1.1481e-03_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &6.0959e-05_rb,1.9625e-04_rb,3.3515e-04_rb,5.6029e-04_rb,7.9618e-04_rb,9.9092e-04_rb, &\n     &1.1822e-03_rb,1.3661e-03_rb,1.5393e-03_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &3.4384e-04_rb,3.1901e-04_rb,2.9656e-04_rb,2.7161e-04_rb,2.4956e-04_rb,2.4575e-04_rb, &\n     &2.4892e-04_rb,1.2874e-04_rb,2.5500e-04_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &3.2651e-04_rb,2.9987e-04_rb,2.8407e-04_rb,2.6822e-04_rb,2.8382e-04_rb,3.2698e-04_rb, &\n     &3.7690e-04_rb,3.8984e-04_rb,3.8097e-04_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &3.1133e-04_rb,2.9825e-04_rb,2.8892e-04_rb,2.8983e-04_rb,3.4857e-04_rb,4.4151e-04_rb, &\n     &5.3596e-04_rb,6.0662e-04_rb,5.5422e-04_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &2.6650e-04_rb,2.9032e-04_rb,3.1626e-04_rb,3.4521e-04_rb,4.5449e-04_rb,5.9386e-04_rb, &\n     &7.4052e-04_rb,8.5104e-04_rb,7.8265e-04_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &2.2412e-04_rb,2.9039e-04_rb,3.7283e-04_rb,4.3223e-04_rb,5.9364e-04_rb,7.9041e-04_rb, &\n     &9.9696e-04_rb,1.1553e-03_rb,1.0705e-03_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &1.0105e-03_rb,8.9198e-04_rb,7.7732e-04_rb,6.6567e-04_rb,5.5452e-04_rb,4.4086e-04_rb, &\n     &3.2869e-04_rb,1.9418e-04_rb,1.7212e-04_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &9.2169e-04_rb,8.2421e-04_rb,7.2924e-04_rb,6.3857e-04_rb,5.4763e-04_rb,4.5198e-04_rb, &\n     &3.7244e-04_rb,3.3779e-04_rb,2.7365e-04_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &9.1340e-04_rb,8.1831e-04_rb,7.2882e-04_rb,6.3523e-04_rb,5.3088e-04_rb,4.5658e-04_rb, &\n     &4.4489e-04_rb,4.8577e-04_rb,4.2302e-04_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &8.9251e-04_rb,8.0269e-04_rb,7.3471e-04_rb,6.4402e-04_rb,5.5905e-04_rb,5.1386e-04_rb, &\n     &5.6577e-04_rb,6.8086e-04_rb,6.2344e-04_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &7.9475e-04_rb,7.3797e-04_rb,7.1362e-04_rb,6.7001e-04_rb,6.3957e-04_rb,6.1730e-04_rb, &\n     &7.4587e-04_rb,9.2826e-04_rb,8.7756e-04_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &2.6935e-03_rb,2.3593e-03_rb,2.0323e-03_rb,1.7047e-03_rb,1.3798e-03_rb,1.0522e-03_rb, &\n     &7.2780e-04_rb,3.9954e-04_rb,1.6653e-04_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &2.6191e-03_rb,2.2983e-03_rb,1.9871e-03_rb,1.6780e-03_rb,1.3636e-03_rb,1.0535e-03_rb, &\n     &7.4346e-04_rb,4.3038e-04_rb,2.6682e-04_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &2.3650e-03_rb,2.0866e-03_rb,1.8132e-03_rb,1.5443e-03_rb,1.2810e-03_rb,1.0093e-03_rb, &\n     &7.2606e-04_rb,4.8378e-04_rb,4.1282e-04_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &2.4014e-03_rb,2.1168e-03_rb,1.8401e-03_rb,1.5793e-03_rb,1.3157e-03_rb,1.0190e-03_rb, &\n     &7.3809e-04_rb,5.7085e-04_rb,6.1502e-04_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &2.3689e-03_rb,2.1027e-03_rb,1.8524e-03_rb,1.6218e-03_rb,1.3262e-03_rb,1.0531e-03_rb, &\n     &8.0904e-04_rb,7.1684e-04_rb,8.8985e-04_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &6.9308e-03_rb,6.0665e-03_rb,5.2022e-03_rb,4.3390e-03_rb,3.4845e-03_rb,2.6255e-03_rb, &\n     &1.7705e-03_rb,9.1297e-04_rb,1.4507e-04_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &6.7707e-03_rb,5.9271e-03_rb,5.0849e-03_rb,4.2542e-03_rb,3.4202e-03_rb,2.5899e-03_rb, &\n     &1.7563e-03_rb,9.2722e-04_rb,2.4197e-04_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &6.6111e-03_rb,5.7877e-03_rb,4.9821e-03_rb,4.1734e-03_rb,3.3664e-03_rb,2.5641e-03_rb, &\n     &1.7626e-03_rb,9.4198e-04_rb,3.8026e-04_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &6.0438e-03_rb,5.3003e-03_rb,4.5745e-03_rb,3.8441e-03_rb,3.1111e-03_rb,2.3922e-03_rb, &\n     &1.6672e-03_rb,9.3430e-04_rb,5.5692e-04_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &6.1335e-03_rb,5.3879e-03_rb,4.6501e-03_rb,3.9141e-03_rb,3.1883e-03_rb,2.4602e-03_rb, &\n     &1.7143e-03_rb,9.6080e-04_rb,7.9260e-04_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &1.9047e-02_rb,1.6668e-02_rb,1.4288e-02_rb,1.1909e-02_rb,9.5299e-03_rb,7.1507e-03_rb, &\n     &4.7825e-03_rb,2.4097e-03_rb,1.1330e-04_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &1.8614e-02_rb,1.6290e-02_rb,1.3965e-02_rb,1.1641e-02_rb,9.3171e-03_rb,7.0086e-03_rb, &\n     &4.6932e-03_rb,2.3827e-03_rb,1.9275e-04_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &1.8191e-02_rb,1.5921e-02_rb,1.3650e-02_rb,1.1382e-02_rb,9.1322e-03_rb,6.8769e-03_rb, &\n     &4.6246e-03_rb,2.3704e-03_rb,3.0881e-04_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &1.7657e-02_rb,1.5455e-02_rb,1.3252e-02_rb,1.1078e-02_rb,8.8961e-03_rb,6.7169e-03_rb, &\n     &4.5330e-03_rb,2.3676e-03_rb,4.7256e-04_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &1.6605e-02_rb,1.4537e-02_rb,1.2495e-02_rb,1.0448e-02_rb,8.3949e-03_rb,6.3348e-03_rb, &\n     &4.3112e-03_rb,2.2623e-03_rb,7.0061e-04_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &6.6522e-02_rb,5.8208e-02_rb,4.9894e-02_rb,4.1580e-02_rb,3.3266e-02_rb,2.4952e-02_rb, &\n     &1.6638e-02_rb,8.3237e-03_rb,8.8556e-05_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &6.5331e-02_rb,5.7166e-02_rb,4.9002e-02_rb,4.0837e-02_rb,3.2672e-02_rb,2.4508e-02_rb, &\n     &1.6344e-02_rb,8.1975e-03_rb,1.5988e-04_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &6.4113e-02_rb,5.6102e-02_rb,4.8090e-02_rb,4.0078e-02_rb,3.2067e-02_rb,2.4056e-02_rb, &\n     &1.6062e-02_rb,8.0735e-03_rb,2.6393e-04_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &6.2675e-02_rb,5.4844e-02_rb,4.7014e-02_rb,3.9184e-02_rb,3.1353e-02_rb,2.3542e-02_rb, &\n     &1.5747e-02_rb,7.9493e-03_rb,4.0578e-04_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &6.0829e-02_rb,5.3229e-02_rb,4.5632e-02_rb,3.8033e-02_rb,3.0464e-02_rb,2.2925e-02_rb, &\n     &1.5354e-02_rb,7.7739e-03_rb,6.0582e-04_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &4.4562e-01_rb,3.8992e-01_rb,3.3422e-01_rb,2.7852e-01_rb,2.2281e-01_rb,1.6711e-01_rb, &\n     &1.1141e-01_rb,5.5708e-02_rb,6.4708e-05_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &4.3840e-01_rb,3.8360e-01_rb,3.2881e-01_rb,2.7401e-01_rb,2.1921e-01_rb,1.6441e-01_rb, &\n     &1.0961e-01_rb,5.4811e-02_rb,1.2246e-04_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &4.3101e-01_rb,3.7714e-01_rb,3.2326e-01_rb,2.6939e-01_rb,2.1551e-01_rb,1.6164e-01_rb, &\n     &1.0777e-01_rb,5.3892e-02_rb,2.1404e-04_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &4.2341e-01_rb,3.7048e-01_rb,3.1756e-01_rb,2.6464e-01_rb,2.1171e-01_rb,1.5879e-01_rb, &\n     &1.0587e-01_rb,5.2950e-02_rb,3.4919e-04_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &4.1490e-01_rb,3.6305e-01_rb,3.1119e-01_rb,2.5933e-01_rb,2.0748e-01_rb,1.5561e-01_rb, &\n     &1.0376e-01_rb,5.1933e-02_rb,5.3978e-04_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &3.5739e+00_rb,3.1272e+00_rb,2.6804e+00_rb,2.2337e+00_rb,1.7870e+00_rb,1.3402e+00_rb, &\n     &8.9349e-01_rb,4.4675e-01_rb,3.6923e-05_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &3.5173e+00_rb,3.0777e+00_rb,2.6381e+00_rb,2.1983e+00_rb,1.7587e+00_rb,1.3190e+00_rb, &\n     &8.7936e-01_rb,4.3968e-01_rb,7.4734e-05_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &3.4601e+00_rb,3.0276e+00_rb,2.5951e+00_rb,2.1626e+00_rb,1.7301e+00_rb,1.2976e+00_rb, &\n     &8.6506e-01_rb,4.3253e-01_rb,1.2645e-04_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &3.4013e+00_rb,2.9762e+00_rb,2.5510e+00_rb,2.1258e+00_rb,1.7007e+00_rb,1.2755e+00_rb, &\n     &8.5034e-01_rb,4.2518e-01_rb,2.0434e-04_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &3.3408e+00_rb,2.9231e+00_rb,2.5056e+00_rb,2.0880e+00_rb,1.6704e+00_rb,1.2528e+00_rb, &\n     &8.3521e-01_rb,4.1763e-01_rb,3.0930e-04_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &9.5423e+00_rb,8.3495e+00_rb,7.1567e+00_rb,5.9639e+00_rb,4.7712e+00_rb,3.5784e+00_rb, &\n     &2.3856e+00_rb,1.1928e+00_rb,3.3494e-05_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &9.3929e+00_rb,8.2188e+00_rb,7.0447e+00_rb,5.8706e+00_rb,4.6965e+00_rb,3.5224e+00_rb, &\n     &2.3483e+00_rb,1.1741e+00_rb,6.4875e-05_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &9.2404e+00_rb,8.0853e+00_rb,6.9303e+00_rb,5.7752e+00_rb,4.6202e+00_rb,3.4651e+00_rb, &\n     &2.3101e+00_rb,1.1551e+00_rb,1.1378e-04_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &9.0863e+00_rb,7.9506e+00_rb,6.8148e+00_rb,5.6790e+00_rb,4.5432e+00_rb,3.4074e+00_rb, &\n     &2.2716e+00_rb,1.1358e+00_rb,1.8195e-04_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &8.9334e+00_rb,7.8167e+00_rb,6.7001e+00_rb,5.5834e+00_rb,4.4668e+00_rb,3.3501e+00_rb, &\n     &2.2334e+00_rb,1.1167e+00_rb,2.6874e-04_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &1.6018e+01_rb,1.4016e+01_rb,1.2013e+01_rb,1.0011e+01_rb,8.0089e+00_rb,6.0065e+00_rb, &\n     &4.0043e+00_rb,2.0022e+00_rb,3.3227e-05_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &1.5778e+01_rb,1.3806e+01_rb,1.1834e+01_rb,9.8614e+00_rb,7.8892e+00_rb,5.9169e+00_rb, &\n     &3.9446e+00_rb,1.9723e+00_rb,6.4843e-05_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &1.5536e+01_rb,1.3594e+01_rb,1.1652e+01_rb,9.7100e+00_rb,7.7679e+00_rb,5.8260e+00_rb, &\n     &3.8840e+00_rb,1.9420e+00_rb,1.1290e-04_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &1.5292e+01_rb,1.3380e+01_rb,1.1469e+01_rb,9.5575e+00_rb,7.6460e+00_rb,5.7344e+00_rb, &\n     &3.8230e+00_rb,1.9115e+00_rb,1.7636e-04_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &1.5044e+01_rb,1.3163e+01_rb,1.1283e+01_rb,9.4022e+00_rb,7.5218e+00_rb,5.6414e+00_rb, &\n     &3.7609e+00_rb,1.8805e+00_rb,2.6723e-04_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &2.1597e+01_rb,1.8897e+01_rb,1.6197e+01_rb,1.3498e+01_rb,1.0798e+01_rb,8.0986e+00_rb, &\n     &5.3991e+00_rb,2.6995e+00_rb,3.8904e-05_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &2.1295e+01_rb,1.8633e+01_rb,1.5971e+01_rb,1.3309e+01_rb,1.0647e+01_rb,7.9855e+00_rb, &\n     &5.3237e+00_rb,2.6618e+00_rb,7.5857e-05_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &2.0989e+01_rb,1.8366e+01_rb,1.5742e+01_rb,1.3118e+01_rb,1.0494e+01_rb,7.8710e+00_rb, &\n     &5.2472e+00_rb,2.6236e+00_rb,1.3015e-04_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &2.0668e+01_rb,1.8085e+01_rb,1.5501e+01_rb,1.2918e+01_rb,1.0334e+01_rb,7.7506e+00_rb, &\n     &5.1670e+00_rb,2.5835e+00_rb,2.0228e-04_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &2.0333e+01_rb,1.7791e+01_rb,1.5249e+01_rb,1.2708e+01_rb,1.0166e+01_rb,7.6247e+00_rb, &\n     &5.0831e+00_rb,2.5416e+00_rb,2.9840e-04_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &5.6592e-05_rb,1.3380e-04_rb,2.8259e-04_rb,4.0725e-04_rb,5.2722e-04_rb,6.3771e-04_rb, &\n     &7.3618e-04_rb,6.8809e-05_rb,1.0230e-03_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &3.4000e-05_rb,1.7762e-04_rb,3.9282e-04_rb,5.7189e-04_rb,7.4744e-04_rb,9.1578e-04_rb, &\n     &1.0739e-03_rb,1.1530e-03_rb,1.4652e-03_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &3.1822e-05_rb,2.4313e-04_rb,5.2738e-04_rb,7.7595e-04_rb,1.0231e-03_rb,1.2640e-03_rb, &\n     &1.5000e-03_rb,1.6967e-03_rb,2.0181e-03_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &3.1887e-05_rb,3.1730e-04_rb,7.0142e-04_rb,1.0376e-03_rb,1.3716e-03_rb,1.7032e-03_rb, &\n     &2.0256e-03_rb,2.3355e-03_rb,2.7159e-03_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &3.2974e-05_rb,4.0500e-04_rb,9.2096e-04_rb,1.3701e-03_rb,1.8162e-03_rb,2.2594e-03_rb, &\n     &2.6867e-03_rb,3.0973e-03_rb,3.6043e-03_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &1.2846e-04_rb,1.5522e-04_rb,2.7655e-04_rb,3.8379e-04_rb,4.9079e-04_rb,5.9529e-04_rb, &\n     &6.9141e-04_rb,5.6796e-04_rb,9.2767e-04_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &6.5990e-05_rb,1.6552e-04_rb,3.7419e-04_rb,5.3648e-04_rb,6.9689e-04_rb,8.5375e-04_rb, &\n     &1.0031e-03_rb,1.1095e-03_rb,1.3393e-03_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &5.6435e-05_rb,1.5534e-04_rb,5.0363e-04_rb,7.3034e-04_rb,9.5369e-04_rb,1.1711e-03_rb, &\n     &1.3827e-03_rb,1.5608e-03_rb,1.8461e-03_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &5.4174e-05_rb,1.7810e-04_rb,6.6905e-04_rb,9.7686e-04_rb,1.2783e-03_rb,1.5737e-03_rb, &\n     &1.8611e-03_rb,2.1178e-03_rb,2.4942e-03_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &5.2370e-05_rb,1.9597e-04_rb,8.6044e-04_rb,1.2706e-03_rb,1.6729e-03_rb,2.0703e-03_rb, &\n     &2.4603e-03_rb,2.8342e-03_rb,3.2918e-03_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &4.4469e-04_rb,4.0346e-04_rb,3.7124e-04_rb,3.9072e-04_rb,4.6265e-04_rb,5.3518e-04_rb, &\n     &6.0670e-04_rb,6.5723e-04_rb,7.6901e-04_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &2.7821e-04_rb,2.8769e-04_rb,3.4636e-04_rb,4.5772e-04_rb,6.3733e-04_rb,7.5575e-04_rb, &\n     &8.7290e-04_rb,9.7779e-04_rb,1.1248e-03_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &1.6712e-04_rb,2.0135e-04_rb,3.1664e-04_rb,6.0259e-04_rb,8.6177e-04_rb,1.0373e-03_rb, &\n     &1.2106e-03_rb,1.3752e-03_rb,1.5723e-03_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &1.5303e-04_rb,2.3452e-04_rb,3.6629e-04_rb,7.9270e-04_rb,1.1535e-03_rb,1.4036e-03_rb, &\n     &1.6498e-03_rb,1.8820e-03_rb,2.1596e-03_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &1.4546e-04_rb,2.9515e-04_rb,4.4927e-04_rb,1.0579e-03_rb,1.5163e-03_rb,1.8612e-03_rb, &\n     &2.1985e-03_rb,2.5140e-03_rb,2.9016e-03_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &1.2138e-03_rb,1.0643e-03_rb,9.4070e-04_rb,8.1504e-04_rb,7.0358e-04_rb,5.9316e-04_rb, &\n     &5.5104e-04_rb,5.6438e-04_rb,3.2078e-04_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &1.1514e-03_rb,1.0125e-03_rb,9.4071e-04_rb,8.3600e-04_rb,7.4220e-04_rb,6.5907e-04_rb, &\n     &7.7143e-04_rb,8.3267e-04_rb,4.7891e-04_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &8.3276e-04_rb,7.0376e-04_rb,7.1208e-04_rb,6.8052e-04_rb,7.6194e-04_rb,8.9019e-04_rb, &\n     &1.0682e-03_rb,1.1778e-03_rb,6.1825e-04_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &6.2678e-04_rb,5.3178e-04_rb,5.1712e-04_rb,6.2090e-04_rb,7.5690e-04_rb,1.1872e-03_rb, &\n     &1.4563e-03_rb,1.6302e-03_rb,8.5537e-04_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &4.2987e-04_rb,5.2033e-04_rb,6.3756e-04_rb,7.6564e-04_rb,7.8218e-04_rb,1.6224e-03_rb, &\n     &1.9482e-03_rb,2.2056e-03_rb,1.2455e-03_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &3.3420e-03_rb,2.9247e-03_rb,2.5126e-03_rb,2.0946e-03_rb,1.6924e-03_rb,1.3030e-03_rb, &\n     &9.3410e-04_rb,5.8986e-04_rb,3.1969e-04_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &3.1398e-03_rb,2.7488e-03_rb,2.3818e-03_rb,2.0259e-03_rb,1.6962e-03_rb,1.3524e-03_rb, &\n     &9.7217e-04_rb,7.2894e-04_rb,5.2320e-04_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &3.0330e-03_rb,2.6759e-03_rb,2.3370e-03_rb,2.0014e-03_rb,1.6490e-03_rb,1.4032e-03_rb, &\n     &1.0593e-03_rb,1.0067e-03_rb,7.5418e-04_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &2.5775e-03_rb,2.3167e-03_rb,2.0477e-03_rb,1.6916e-03_rb,1.3663e-03_rb,1.1599e-03_rb, &\n     &1.0841e-03_rb,1.3957e-03_rb,9.6520e-04_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &2.1866e-03_rb,2.0017e-03_rb,1.5507e-03_rb,1.2425e-03_rb,1.2248e-03_rb,1.1086e-03_rb, &\n     &1.2483e-03_rb,1.9173e-03_rb,1.1788e-03_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &8.8838e-03_rb,7.7745e-03_rb,6.6646e-03_rb,5.5555e-03_rb,4.4614e-03_rb,3.3623e-03_rb, &\n     &2.2796e-03_rb,1.1799e-03_rb,1.7827e-04_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &8.6572e-03_rb,7.5770e-03_rb,6.4955e-03_rb,5.4321e-03_rb,4.3605e-03_rb,3.3104e-03_rb, &\n     &2.2427e-03_rb,1.2382e-03_rb,2.5800e-04_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &8.3335e-03_rb,7.2931e-03_rb,6.2759e-03_rb,5.2475e-03_rb,4.2339e-03_rb,3.2059e-03_rb, &\n     &2.2047e-03_rb,1.3240e-03_rb,4.2156e-04_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &7.5549e-03_rb,6.6060e-03_rb,5.7369e-03_rb,4.8380e-03_rb,4.0096e-03_rb,3.1204e-03_rb, &\n     &2.3001e-03_rb,1.3603e-03_rb,7.8178e-04_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &6.8684e-03_rb,6.0886e-03_rb,5.1989e-03_rb,4.4067e-03_rb,3.6681e-03_rb,2.8099e-03_rb, &\n     &1.8970e-03_rb,1.4204e-03_rb,1.3480e-03_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &2.4586e-02_rb,2.1513e-02_rb,1.8440e-02_rb,1.5369e-02_rb,1.2296e-02_rb,9.2230e-03_rb, &\n     &6.1633e-03_rb,3.1137e-03_rb,1.3933e-04_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &2.4170e-02_rb,2.1150e-02_rb,1.8129e-02_rb,1.5109e-02_rb,1.2088e-02_rb,9.0886e-03_rb, &\n     &6.0878e-03_rb,3.1114e-03_rb,2.3190e-04_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &2.3662e-02_rb,2.0705e-02_rb,1.7748e-02_rb,1.4791e-02_rb,1.1861e-02_rb,8.9271e-03_rb, &\n     &6.0215e-03_rb,3.0844e-03_rb,3.6298e-04_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &2.2469e-02_rb,1.9660e-02_rb,1.6853e-02_rb,1.4086e-02_rb,1.1306e-02_rb,8.5420e-03_rb, &\n     &5.7631e-03_rb,3.0626e-03_rb,5.4029e-04_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &1.9809e-02_rb,1.7349e-02_rb,1.4886e-02_rb,1.2460e-02_rb,1.0092e-02_rb,7.8522e-03_rb, &\n     &5.3378e-03_rb,3.0999e-03_rb,7.7423e-04_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &8.6508e-02_rb,7.5696e-02_rb,6.4882e-02_rb,5.4068e-02_rb,4.3255e-02_rb,3.2443e-02_rb, &\n     &2.1630e-02_rb,1.0817e-02_rb,1.6191e-04_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &8.4528e-02_rb,7.3960e-02_rb,6.3397e-02_rb,5.2832e-02_rb,4.2266e-02_rb,3.1701e-02_rb, &\n     &2.1136e-02_rb,1.0597e-02_rb,3.0221e-04_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &8.2999e-02_rb,7.2627e-02_rb,6.2253e-02_rb,5.1878e-02_rb,4.1506e-02_rb,3.1132e-02_rb, &\n     &2.0757e-02_rb,1.0444e-02_rb,5.5391e-04_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &8.1486e-02_rb,7.1301e-02_rb,6.1120e-02_rb,5.0928e-02_rb,4.0746e-02_rb,3.0564e-02_rb, &\n     &2.0452e-02_rb,1.0346e-02_rb,1.0152e-03_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &7.7129e-02_rb,6.7490e-02_rb,5.7855e-02_rb,4.8214e-02_rb,3.8581e-02_rb,2.9014e-02_rb, &\n     &1.9443e-02_rb,9.9515e-03_rb,1.5121e-03_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &5.8674e-01_rb,5.1340e-01_rb,4.4007e-01_rb,3.6671e-01_rb,2.9337e-01_rb,2.2003e-01_rb, &\n     &1.4669e-01_rb,7.3347e-02_rb,1.3954e-04_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &5.7350e-01_rb,5.0184e-01_rb,4.3015e-01_rb,3.5845e-01_rb,2.8676e-01_rb,2.1507e-01_rb, &\n     &1.4339e-01_rb,7.1694e-02_rb,3.0044e-04_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &5.6021e-01_rb,4.9017e-01_rb,4.2014e-01_rb,3.5012e-01_rb,2.8010e-01_rb,2.1008e-01_rb, &\n     &1.4005e-01_rb,7.0031e-02_rb,5.5636e-04_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &5.4802e-01_rb,4.7953e-01_rb,4.1105e-01_rb,3.4251e-01_rb,2.7403e-01_rb,2.0552e-01_rb, &\n     &1.3702e-01_rb,6.8512e-02_rb,9.3561e-04_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &5.3709e-01_rb,4.6991e-01_rb,4.0280e-01_rb,3.3568e-01_rb,2.6852e-01_rb,2.0142e-01_rb, &\n     &1.3428e-01_rb,6.7143e-02_rb,1.4485e-03_rb/)\n      kao(:, 1,10,10) = (/ &\n     &4.7861e+00_rb,4.1878e+00_rb,3.5896e+00_rb,2.9913e+00_rb,2.3930e+00_rb,1.7948e+00_rb, &\n     &1.1965e+00_rb,5.9827e-01_rb,3.2704e-06_rb/)\n      kao(:, 2,10,10) = (/ &\n     &4.6903e+00_rb,4.1040e+00_rb,3.5178e+00_rb,2.9315e+00_rb,2.3452e+00_rb,1.7589e+00_rb, &\n     &1.1726e+00_rb,5.8632e-01_rb,5.9185e-06_rb/)\n      kao(:, 3,10,10) = (/ &\n     &4.5984e+00_rb,4.0237e+00_rb,3.4487e+00_rb,2.8740e+00_rb,2.2992e+00_rb,1.7244e+00_rb, &\n     &1.1496e+00_rb,5.7479e-01_rb,9.9252e-06_rb/)\n      kao(:, 4,10,10) = (/ &\n     &4.5067e+00_rb,3.9434e+00_rb,3.3802e+00_rb,2.8168e+00_rb,2.2535e+00_rb,1.6901e+00_rb, &\n     &1.1267e+00_rb,5.6337e-01_rb,1.5639e-05_rb/)\n      kao(:, 5,10,10) = (/ &\n     &4.4320e+00_rb,3.8780e+00_rb,3.3239e+00_rb,2.7699e+00_rb,2.2160e+00_rb,1.6620e+00_rb, &\n     &1.1080e+00_rb,5.5401e-01_rb,2.3260e-05_rb/)\n      kao(:, 1,11,10) = (/ &\n     &1.3118e+01_rb,1.1478e+01_rb,9.8381e+00_rb,8.1983e+00_rb,6.5588e+00_rb,4.9192e+00_rb, &\n     &3.2794e+00_rb,1.6397e+00_rb,2.2734e-06_rb/)\n      kao(:, 2,11,10) = (/ &\n     &1.2878e+01_rb,1.1268e+01_rb,9.6587e+00_rb,8.0488e+00_rb,6.4391e+00_rb,4.8293e+00_rb, &\n     &3.2196e+00_rb,1.6098e+00_rb,4.2460e-06_rb/)\n      kao(:, 3,11,10) = (/ &\n     &1.2677e+01_rb,1.1092e+01_rb,9.5076e+00_rb,7.9230e+00_rb,6.3383e+00_rb,4.7539e+00_rb, &\n     &3.1692e+00_rb,1.5846e+00_rb,7.1509e-06_rb/)\n      kao(:, 4,11,10) = (/ &\n     &1.2452e+01_rb,1.0896e+01_rb,9.3395e+00_rb,7.7831e+00_rb,6.2263e+00_rb,4.6699e+00_rb, &\n     &3.1133e+00_rb,1.5566e+00_rb,1.2244e-05_rb/)\n      kao(:, 5,11,10) = (/ &\n     &1.2241e+01_rb,1.0711e+01_rb,9.1810e+00_rb,7.6509e+00_rb,6.1207e+00_rb,4.5903e+00_rb, &\n     &3.0604e+00_rb,1.5302e+00_rb,2.0967e-05_rb/)\n      kao(:, 1,12,10) = (/ &\n     &2.2864e+01_rb,2.0005e+01_rb,1.7148e+01_rb,1.4290e+01_rb,1.1432e+01_rb,8.5738e+00_rb, &\n     &5.7157e+00_rb,2.8580e+00_rb,1.8184e-06_rb/)\n      kao(:, 2,12,10) = (/ &\n     &2.2487e+01_rb,1.9676e+01_rb,1.6864e+01_rb,1.4054e+01_rb,1.1243e+01_rb,8.4321e+00_rb, &\n     &5.6215e+00_rb,2.8107e+00_rb,3.3852e-06_rb/)\n      kao(:, 3,12,10) = (/ &\n     &2.2126e+01_rb,1.9360e+01_rb,1.6594e+01_rb,1.3829e+01_rb,1.1063e+01_rb,8.2969e+00_rb, &\n     &5.5315e+00_rb,2.7657e+00_rb,6.4086e-06_rb/)\n      kao(:, 4,12,10) = (/ &\n     &2.1772e+01_rb,1.9050e+01_rb,1.6328e+01_rb,1.3607e+01_rb,1.0886e+01_rb,8.1644e+00_rb, &\n     &5.4429e+00_rb,2.7215e+00_rb,1.1402e-05_rb/)\n      kao(:, 5,12,10) = (/ &\n     &2.1416e+01_rb,1.8740e+01_rb,1.6063e+01_rb,1.3386e+01_rb,1.0708e+01_rb,8.0313e+00_rb, &\n     &5.3540e+00_rb,2.6771e+00_rb,1.6645e-05_rb/)\n      kao(:, 1,13,10) = (/ &\n     &3.2272e+01_rb,2.8237e+01_rb,2.4203e+01_rb,2.0170e+01_rb,1.6136e+01_rb,1.2101e+01_rb, &\n     &8.0677e+00_rb,4.0338e+00_rb,1.4317e-06_rb/)\n      kao(:, 2,13,10) = (/ &\n     &3.1783e+01_rb,2.7810e+01_rb,2.3837e+01_rb,1.9864e+01_rb,1.5891e+01_rb,1.1919e+01_rb, &\n     &7.9455e+00_rb,3.9728e+00_rb,3.0046e-06_rb/)\n      kao(:, 3,13,10) = (/ &\n     &3.1267e+01_rb,2.7359e+01_rb,2.3450e+01_rb,1.9542e+01_rb,1.5633e+01_rb,1.1725e+01_rb, &\n     &7.8169e+00_rb,3.9083e+00_rb,5.7473e-06_rb/)\n      kao(:, 4,13,10) = (/ &\n     &3.0805e+01_rb,2.6955e+01_rb,2.3103e+01_rb,1.9253e+01_rb,1.5402e+01_rb,1.1552e+01_rb, &\n     &7.7014e+00_rb,3.8506e+00_rb,8.5901e-06_rb/)\n      kao(:, 5,13,10) = (/ &\n     &3.0347e+01_rb,2.6554e+01_rb,2.2760e+01_rb,1.8967e+01_rb,1.5174e+01_rb,1.1380e+01_rb, &\n     &7.5867e+00_rb,3.7933e+00_rb,1.2367e-05_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &4.7098e-05_rb,1.8036e-04_rb,3.4819e-04_rb,5.0638e-04_rb,6.6181e-04_rb,8.1065e-04_rb, &\n     &9.3902e-04_rb,7.7167e-04_rb,1.3022e-03_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &3.0033e-05_rb,2.6523e-04_rb,5.0795e-04_rb,7.4803e-04_rb,9.8321e-04_rb,1.2080e-03_rb, &\n     &1.4174e-03_rb,1.6176e-03_rb,1.9428e-03_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &3.0544e-05_rb,3.7128e-04_rb,7.2058e-04_rb,1.0671e-03_rb,1.4084e-03_rb,1.7391e-03_rb, &\n     &2.0379e-03_rb,2.3032e-03_rb,2.7938e-03_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &3.0472e-05_rb,4.9757e-04_rb,9.8168e-04_rb,1.4606e-03_rb,1.9374e-03_rb,2.4057e-03_rb, &\n     &2.8449e-03_rb,3.1636e-03_rb,3.8517e-03_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &2.4091e-05_rb,6.5444e-04_rb,1.2934e-03_rb,1.9295e-03_rb,2.5676e-03_rb,3.2003e-03_rb, &\n     &3.8144e-03_rb,4.2439e-03_rb,5.1123e-03_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &1.3816e-04_rb,1.6153e-04_rb,3.3849e-04_rb,4.7695e-04_rb,6.1250e-04_rb,7.4207e-04_rb, &\n     &8.5768e-04_rb,9.1861e-04_rb,1.1708e-03_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &6.1066e-05_rb,1.7974e-04_rb,4.7651e-04_rb,6.8520e-04_rb,8.9139e-04_rb,1.0930e-03_rb, &\n     &1.2848e-03_rb,1.4278e-03_rb,1.7346e-03_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &5.7831e-05_rb,2.0028e-04_rb,6.5612e-04_rb,9.5859e-04_rb,1.2605e-03_rb,1.5625e-03_rb, &\n     &1.8554e-03_rb,2.0988e-03_rb,2.4798e-03_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &5.4516e-05_rb,2.3064e-04_rb,8.8062e-04_rb,1.3017e-03_rb,1.7223e-03_rb,2.1436e-03_rb, &\n     &2.5645e-03_rb,2.9565e-03_rb,3.4038e-03_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &5.5309e-05_rb,3.0448e-04_rb,1.1705e-03_rb,1.7340e-03_rb,2.2966e-03_rb,2.8601e-03_rb, &\n     &3.4280e-03_rb,3.9900e-03_rb,4.5458e-03_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &4.5525e-04_rb,4.1659e-04_rb,4.0041e-04_rb,4.3594e-04_rb,5.6841e-04_rb,6.6824e-04_rb, &\n     &7.6559e-04_rb,8.3275e-04_rb,9.8673e-04_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &2.7564e-04_rb,3.1143e-04_rb,4.0133e-04_rb,6.4539e-04_rb,8.1010e-04_rb,9.7483e-04_rb, &\n     &1.1326e-03_rb,1.2606e-03_rb,1.4783e-03_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &1.5755e-04_rb,2.0262e-04_rb,4.4233e-04_rb,8.8058e-04_rb,1.1240e-03_rb,1.3655e-03_rb, &\n     &1.6023e-03_rb,1.8183e-03_rb,2.1060e-03_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &1.5225e-04_rb,2.1360e-04_rb,4.5750e-04_rb,1.1722e-03_rb,1.5129e-03_rb,1.8525e-03_rb, &\n     &2.1885e-03_rb,2.5141e-03_rb,2.8848e-03_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &1.4157e-04_rb,2.5829e-04_rb,4.6589e-04_rb,1.5429e-03_rb,2.0085e-03_rb,2.4737e-03_rb, &\n     &2.9344e-03_rb,3.3883e-03_rb,3.8756e-03_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &1.2968e-03_rb,1.1627e-03_rb,1.0295e-03_rb,8.8852e-04_rb,7.5100e-04_rb,6.8878e-04_rb, &\n     &7.0217e-04_rb,7.2855e-04_rb,6.6909e-04_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &1.2901e-03_rb,1.1618e-03_rb,9.9278e-04_rb,8.6686e-04_rb,8.2710e-04_rb,9.1628e-04_rb, &\n     &1.0053e-03_rb,1.0921e-03_rb,9.3719e-04_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &8.4696e-04_rb,8.0992e-04_rb,6.6835e-04_rb,7.5797e-04_rb,8.8170e-04_rb,1.2538e-03_rb, &\n     &1.4194e-03_rb,1.5777e-03_rb,1.2930e-03_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &4.0946e-04_rb,5.3575e-04_rb,5.3156e-04_rb,6.5607e-04_rb,1.0924e-03_rb,1.6886e-03_rb, &\n     &1.9410e-03_rb,2.1799e-03_rb,1.6795e-03_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &4.1161e-04_rb,5.7102e-04_rb,5.8841e-04_rb,6.9122e-04_rb,1.4036e-03_rb,2.2467e-03_rb, &\n     &2.6025e-03_rb,2.9419e-03_rb,2.1668e-03_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &3.5249e-03_rb,3.0877e-03_rb,2.6707e-03_rb,2.2562e-03_rb,1.8574e-03_rb,1.4440e-03_rb, &\n     &1.0135e-03_rb,7.0090e-04_rb,2.4879e-04_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &3.4987e-03_rb,3.0660e-03_rb,2.6585e-03_rb,2.2616e-03_rb,1.8230e-03_rb,1.3947e-03_rb, &\n     &1.1338e-03_rb,9.8875e-04_rb,4.4035e-04_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &3.2338e-03_rb,2.8640e-03_rb,2.5128e-03_rb,2.2224e-03_rb,1.8369e-03_rb,1.4590e-03_rb, &\n     &1.3054e-03_rb,1.4040e-03_rb,6.0764e-04_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &2.1959e-03_rb,1.9312e-03_rb,1.7650e-03_rb,1.5181e-03_rb,1.3319e-03_rb,1.3218e-03_rb, &\n     &1.7587e-03_rb,1.9394e-03_rb,9.4777e-04_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &1.2468e-03_rb,1.0861e-03_rb,1.1609e-03_rb,1.1515e-03_rb,1.2470e-03_rb,1.3220e-03_rb, &\n     &2.3659e-03_rb,2.6308e-03_rb,1.2356e-03_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &9.5223e-03_rb,8.3335e-03_rb,7.1442e-03_rb,5.9544e-03_rb,4.7779e-03_rb,3.5984e-03_rb, &\n     &2.4247e-03_rb,1.2737e-03_rb,1.4692e-04_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &9.2485e-03_rb,8.0943e-03_rb,6.9406e-03_rb,5.8161e-03_rb,4.6851e-03_rb,3.5677e-03_rb, &\n     &2.4748e-03_rb,1.3469e-03_rb,2.5178e-04_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &8.7789e-03_rb,7.6827e-03_rb,6.6150e-03_rb,5.5437e-03_rb,4.4673e-03_rb,3.4787e-03_rb, &\n     &2.4528e-03_rb,1.4847e-03_rb,3.7920e-04_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &8.2164e-03_rb,7.2018e-03_rb,6.2465e-03_rb,5.3375e-03_rb,4.3691e-03_rb,3.4064e-03_rb, &\n     &2.4151e-03_rb,1.7544e-03_rb,5.7438e-04_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &6.8576e-03_rb,6.0356e-03_rb,5.1755e-03_rb,4.2553e-03_rb,3.2890e-03_rb,2.6043e-03_rb, &\n     &1.9585e-03_rb,2.3328e-03_rb,8.0859e-04_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &2.6634e-02_rb,2.3306e-02_rb,1.9979e-02_rb,1.6651e-02_rb,1.3321e-02_rb,9.9924e-03_rb, &\n     &6.6684e-03_rb,3.3709e-03_rb,1.8920e-04_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &2.5938e-02_rb,2.2696e-02_rb,1.9456e-02_rb,1.6215e-02_rb,1.2974e-02_rb,9.7488e-03_rb, &\n     &6.5437e-03_rb,3.3574e-03_rb,3.7520e-04_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &2.5453e-02_rb,2.2274e-02_rb,1.9096e-02_rb,1.5918e-02_rb,1.2777e-02_rb,9.6455e-03_rb, &\n     &6.5081e-03_rb,3.3802e-03_rb,5.3158e-04_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &2.4271e-02_rb,2.1241e-02_rb,1.8214e-02_rb,1.5233e-02_rb,1.2290e-02_rb,9.3599e-03_rb, &\n     &6.4912e-03_rb,3.4387e-03_rb,8.0667e-04_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &2.2422e-02_rb,1.9613e-02_rb,1.6806e-02_rb,1.4145e-02_rb,1.1493e-02_rb,8.8108e-03_rb, &\n     &6.0692e-03_rb,3.4048e-03_rb,1.1367e-03_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &9.5097e-02_rb,8.3206e-02_rb,7.1322e-02_rb,5.9437e-02_rb,4.7550e-02_rb,3.5664e-02_rb, &\n     &2.3777e-02_rb,1.1891e-02_rb,8.8895e-05_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &9.2657e-02_rb,8.1078e-02_rb,6.9498e-02_rb,5.7915e-02_rb,4.6333e-02_rb,3.4754e-02_rb, &\n     &2.3172e-02_rb,1.1611e-02_rb,1.6093e-04_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &8.9553e-02_rb,7.8360e-02_rb,6.7165e-02_rb,5.5974e-02_rb,4.4782e-02_rb,3.3592e-02_rb, &\n     &2.2399e-02_rb,1.1297e-02_rb,2.7559e-04_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &8.7450e-02_rb,7.6527e-02_rb,6.5593e-02_rb,5.4667e-02_rb,4.3739e-02_rb,3.2808e-02_rb, &\n     &2.1983e-02_rb,1.1121e-02_rb,4.3678e-04_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &8.6068e-02_rb,7.5315e-02_rb,6.4565e-02_rb,5.3811e-02_rb,4.3053e-02_rb,3.2463e-02_rb, &\n     &2.1814e-02_rb,1.1203e-02_rb,7.8846e-04_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &6.4279e-01_rb,5.6245e-01_rb,4.8207e-01_rb,4.0173e-01_rb,3.2138e-01_rb,2.4105e-01_rb, &\n     &1.6070e-01_rb,8.0350e-02_rb,1.4861e-06_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &6.2663e-01_rb,5.4828e-01_rb,4.6997e-01_rb,3.9164e-01_rb,3.1331e-01_rb,2.3498e-01_rb, &\n     &1.5666e-01_rb,7.8331e-02_rb,2.7002e-06_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &6.1151e-01_rb,5.3505e-01_rb,4.5861e-01_rb,3.8220e-01_rb,3.0575e-01_rb,2.2931e-01_rb, &\n     &1.5288e-01_rb,7.6443e-02_rb,4.4491e-06_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &5.9675e-01_rb,5.2214e-01_rb,4.4753e-01_rb,3.7296e-01_rb,2.9837e-01_rb,2.2379e-01_rb, &\n     &1.4920e-01_rb,7.4612e-02_rb,6.8192e-06_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &5.8474e-01_rb,5.1167e-01_rb,4.3855e-01_rb,3.6547e-01_rb,2.9239e-01_rb,2.1930e-01_rb, &\n     &1.4621e-01_rb,7.3117e-02_rb,1.0152e-05_rb/)\n      kao(:, 1,10,11) = (/ &\n     &5.2427e+00_rb,4.5875e+00_rb,3.9320e+00_rb,3.2767e+00_rb,2.6214e+00_rb,1.9660e+00_rb, &\n     &1.3107e+00_rb,6.5538e-01_rb,3.2405e-06_rb/)\n      kao(:, 2,10,11) = (/ &\n     &5.1308e+00_rb,4.4894e+00_rb,3.8480e+00_rb,3.2067e+00_rb,2.5654e+00_rb,1.9241e+00_rb, &\n     &1.2827e+00_rb,6.4136e-01_rb,6.0207e-06_rb/)\n      kao(:, 3,10,11) = (/ &\n     &5.0278e+00_rb,4.3993e+00_rb,3.7708e+00_rb,3.1424e+00_rb,2.5139e+00_rb,1.8854e+00_rb, &\n     &1.2569e+00_rb,6.2847e-01_rb,1.0181e-05_rb/)\n      kao(:, 4,10,11) = (/ &\n     &4.9276e+00_rb,4.3117e+00_rb,3.6956e+00_rb,3.0798e+00_rb,2.4638e+00_rb,1.8478e+00_rb, &\n     &1.2319e+00_rb,6.1596e-01_rb,1.5690e-05_rb/)\n      kao(:, 5,10,11) = (/ &\n     &4.8175e+00_rb,4.2154e+00_rb,3.6129e+00_rb,3.0109e+00_rb,2.4088e+00_rb,1.8066e+00_rb, &\n     &1.2044e+00_rb,6.0226e-01_rb,2.2851e-05_rb/)\n      kao(:, 1,11,11) = (/ &\n     &1.4444e+01_rb,1.2639e+01_rb,1.0833e+01_rb,9.0277e+00_rb,7.2223e+00_rb,5.4167e+00_rb, &\n     &3.6111e+00_rb,1.8056e+00_rb,3.3928e-06_rb/)\n      kao(:, 2,11,11) = (/ &\n     &1.4191e+01_rb,1.2417e+01_rb,1.0643e+01_rb,8.8695e+00_rb,7.0956e+00_rb,5.3217e+00_rb, &\n     &3.5476e+00_rb,1.7739e+00_rb,6.3163e-06_rb/)\n      kao(:, 3,11,11) = (/ &\n     &1.3919e+01_rb,1.2179e+01_rb,1.0439e+01_rb,8.6994e+00_rb,6.9594e+00_rb,5.2197e+00_rb, &\n     &3.4797e+00_rb,1.7399e+00_rb,1.0603e-05_rb/)\n      kao(:, 4,11,11) = (/ &\n     &1.3652e+01_rb,1.1946e+01_rb,1.0239e+01_rb,8.5326e+00_rb,6.8259e+00_rb,5.1193e+00_rb, &\n     &3.4129e+00_rb,1.7065e+00_rb,1.6659e-05_rb/)\n      kao(:, 5,11,11) = (/ &\n     &1.3348e+01_rb,1.1680e+01_rb,1.0011e+01_rb,8.3424e+00_rb,6.6742e+00_rb,5.0056e+00_rb, &\n     &3.3371e+00_rb,1.6685e+00_rb,2.4500e-05_rb/)\n      kao(:, 1,12,11) = (/ &\n     &2.5285e+01_rb,2.2125e+01_rb,1.8964e+01_rb,1.5803e+01_rb,1.2642e+01_rb,9.4819e+00_rb, &\n     &6.3210e+00_rb,3.1605e+00_rb,2.1167e-06_rb/)\n      kao(:, 2,12,11) = (/ &\n     &2.4880e+01_rb,2.1769e+01_rb,1.8659e+01_rb,1.5550e+01_rb,1.2440e+01_rb,9.3299e+00_rb, &\n     &6.2198e+00_rb,3.1099e+00_rb,3.8897e-06_rb/)\n      kao(:, 3,12,11) = (/ &\n     &2.4433e+01_rb,2.1379e+01_rb,1.8325e+01_rb,1.5271e+01_rb,1.2217e+01_rb,9.1622e+00_rb, &\n     &6.1081e+00_rb,3.0541e+00_rb,6.6786e-06_rb/)\n      kao(:, 4,12,11) = (/ &\n     &2.3948e+01_rb,2.0955e+01_rb,1.7960e+01_rb,1.4967e+01_rb,1.1974e+01_rb,8.9803e+00_rb, &\n     &5.9870e+00_rb,2.9934e+00_rb,1.0649e-05_rb/)\n      kao(:, 5,12,11) = (/ &\n     &2.3474e+01_rb,2.0540e+01_rb,1.7606e+01_rb,1.4671e+01_rb,1.1737e+01_rb,8.8029e+00_rb, &\n     &5.8685e+00_rb,2.9342e+00_rb,1.7444e-05_rb/)\n      kao(:, 1,13,11) = (/ &\n     &3.6004e+01_rb,3.1505e+01_rb,2.7003e+01_rb,2.2503e+01_rb,1.8003e+01_rb,1.3502e+01_rb, &\n     &9.0009e+00_rb,4.5004e+00_rb,1.4918e-06_rb/)\n      kao(:, 2,13,11) = (/ &\n     &3.5389e+01_rb,3.0965e+01_rb,2.6541e+01_rb,2.2118e+01_rb,1.7694e+01_rb,1.3271e+01_rb, &\n     &8.8469e+00_rb,4.4235e+00_rb,2.8535e-06_rb/)\n      kao(:, 3,13,11) = (/ &\n     &3.4779e+01_rb,3.0432e+01_rb,2.6084e+01_rb,2.1737e+01_rb,1.7389e+01_rb,1.3042e+01_rb, &\n     &8.6948e+00_rb,4.3474e+00_rb,4.8793e-06_rb/)\n      kao(:, 4,13,11) = (/ &\n     &3.4139e+01_rb,2.9872e+01_rb,2.5605e+01_rb,2.1337e+01_rb,1.7070e+01_rb,1.2802e+01_rb, &\n     &8.5348e+00_rb,4.2675e+00_rb,8.8607e-06_rb/)\n      kao(:, 5,13,11) = (/ &\n     &3.3563e+01_rb,2.9368e+01_rb,2.5171e+01_rb,2.0976e+01_rb,1.6781e+01_rb,1.2586e+01_rb, &\n     &8.3906e+00_rb,4.1953e+00_rb,1.4420e-05_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &6.4900e-05_rb,2.8719e-04_rb,5.6307e-04_rb,8.4351e-04_rb,1.1291e-03_rb,1.4211e-03_rb, &\n     &1.7201e-03_rb,1.9852e-03_rb,2.2469e-03_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &3.4635e-05_rb,4.0542e-04_rb,7.9731e-04_rb,1.1929e-03_rb,1.5968e-03_rb,2.0148e-03_rb, &\n     &2.4518e-03_rb,2.8750e-03_rb,3.1817e-03_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &3.0386e-05_rb,5.5544e-04_rb,1.0947e-03_rb,1.6361e-03_rb,2.1835e-03_rb,2.7444e-03_rb, &\n     &3.3456e-03_rb,3.9572e-03_rb,4.3509e-03_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &2.1896e-05_rb,7.4746e-04_rb,1.4741e-03_rb,2.1992e-03_rb,2.9238e-03_rb,3.6527e-03_rb, &\n     &4.4093e-03_rb,5.2454e-03_rb,5.8288e-03_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &2.2978e-05_rb,9.8728e-04_rb,1.9484e-03_rb,2.9034e-03_rb,3.8494e-03_rb,4.7859e-03_rb, &\n     &5.7216e-03_rb,6.7414e-03_rb,7.6777e-03_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &1.5749e-04_rb,2.0866e-04_rb,4.6787e-04_rb,6.8742e-04_rb,9.1071e-04_rb,1.1382e-03_rb, &\n     &1.3780e-03_rb,1.6236e-03_rb,1.7971e-03_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &6.4613e-05_rb,2.9516e-04_rb,6.7832e-04_rb,1.0033e-03_rb,1.3310e-03_rb,1.6630e-03_rb, &\n     &2.0071e-03_rb,2.4028e-03_rb,2.6327e-03_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &5.7078e-05_rb,4.5933e-04_rb,9.6118e-04_rb,1.4236e-03_rb,1.8857e-03_rb,2.3486e-03_rb, &\n     &2.8168e-03_rb,3.3472e-03_rb,3.7377e-03_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &4.9262e-05_rb,6.5877e-04_rb,1.3301e-03_rb,1.9726e-03_rb,2.6111e-03_rb,3.2436e-03_rb, &\n     &3.8662e-03_rb,4.5052e-03_rb,5.1847e-03_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &4.0132e-05_rb,8.9682e-04_rb,1.7993e-03_rb,2.6705e-03_rb,3.5334e-03_rb,4.3806e-03_rb, &\n     &5.1960e-03_rb,5.9592e-03_rb,7.0262e-03_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &4.4536e-04_rb,4.2140e-04_rb,4.1326e-04_rb,5.8784e-04_rb,7.3376e-04_rb,8.8410e-04_rb, &\n     &1.0353e-03_rb,1.1868e-03_rb,1.3506e-03_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &3.6360e-04_rb,3.5667e-04_rb,4.9101e-04_rb,8.4210e-04_rb,1.0791e-03_rb,1.3181e-03_rb, &\n     &1.5590e-03_rb,1.8085e-03_rb,2.0516e-03_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &1.5077e-04_rb,2.9297e-04_rb,7.2917e-04_rb,1.2081e-03_rb,1.5723e-03_rb,1.9339e-03_rb, &\n     &2.2902e-03_rb,2.6377e-03_rb,3.0400e-03_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &1.4163e-04_rb,2.2426e-04_rb,1.0557e-03_rb,1.7084e-03_rb,2.2382e-03_rb,2.7621e-03_rb, &\n     &3.2708e-03_rb,3.7457e-03_rb,4.3687e-03_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &1.3019e-04_rb,2.3338e-04_rb,1.4920e-03_rb,2.3388e-03_rb,3.0800e-03_rb,3.8155e-03_rb, &\n     &4.5352e-03_rb,5.1815e-03_rb,6.0536e-03_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &1.4099e-03_rb,1.2519e-03_rb,1.0992e-03_rb,9.6157e-04_rb,8.5060e-04_rb,8.2135e-04_rb, &\n     &8.8574e-04_rb,9.4943e-04_rb,1.0571e-03_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &1.2160e-03_rb,1.0633e-03_rb,1.0308e-03_rb,9.5807e-04_rb,9.2808e-04_rb,1.1772e-03_rb, &\n     &1.3218e-03_rb,1.4545e-03_rb,1.6420e-03_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &7.7631e-04_rb,7.4153e-04_rb,7.5882e-04_rb,8.7236e-04_rb,1.3771e-03_rb,1.6770e-03_rb, &\n     &1.9300e-03_rb,2.1670e-03_rb,2.4676e-03_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &4.5228e-04_rb,5.1764e-04_rb,4.9825e-04_rb,1.0410e-03_rb,1.9642e-03_rb,2.3602e-03_rb, &\n     &2.7572e-03_rb,3.1444e-03_rb,3.5784e-03_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &3.7162e-04_rb,5.4517e-04_rb,4.7653e-04_rb,1.0804e-03_rb,2.6516e-03_rb,3.2347e-03_rb, &\n     &3.8223e-03_rb,4.4076e-03_rb,4.9248e-03_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &3.8990e-03_rb,3.4146e-03_rb,2.9418e-03_rb,2.4792e-03_rb,1.9894e-03_rb,1.5917e-03_rb, &\n     &1.1813e-03_rb,8.6801e-04_rb,2.1028e-04_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &3.6199e-03_rb,3.1680e-03_rb,2.6938e-03_rb,2.3090e-03_rb,1.9956e-03_rb,1.6463e-03_rb, &\n     &1.2997e-03_rb,1.3006e-03_rb,2.4494e-04_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &3.4415e-03_rb,3.0220e-03_rb,2.5761e-03_rb,2.2036e-03_rb,1.8689e-03_rb,1.5859e-03_rb, &\n     &1.7898e-03_rb,1.9074e-03_rb,5.0679e-04_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &2.1716e-03_rb,1.9079e-03_rb,1.6133e-03_rb,1.3356e-03_rb,1.5050e-03_rb,1.8145e-03_rb, &\n     &2.4880e-03_rb,2.7223e-03_rb,8.8637e-04_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &1.3077e-03_rb,1.2440e-03_rb,1.1158e-03_rb,9.0020e-04_rb,1.2713e-03_rb,2.3698e-03_rb, &\n     &3.3646e-03_rb,3.7560e-03_rb,1.3375e-03_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &1.0196e-02_rb,8.9244e-03_rb,7.6531e-03_rb,6.3818e-03_rb,5.1267e-03_rb,3.9081e-03_rb, &\n     &2.6537e-03_rb,1.4661e-03_rb,1.6889e-04_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &1.0111e-02_rb,8.8532e-03_rb,7.5941e-03_rb,6.3593e-03_rb,5.1154e-03_rb,3.8577e-03_rb, &\n     &2.6627e-03_rb,1.5273e-03_rb,2.6786e-04_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &9.5574e-03_rb,8.3745e-03_rb,7.2096e-03_rb,6.0967e-03_rb,4.9927e-03_rb,3.8753e-03_rb, &\n     &2.6940e-03_rb,1.7929e-03_rb,4.4721e-04_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &9.1448e-03_rb,8.0065e-03_rb,6.8180e-03_rb,5.6454e-03_rb,4.5888e-03_rb,3.5047e-03_rb, &\n     &2.6334e-03_rb,2.4842e-03_rb,6.5846e-04_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &5.7075e-03_rb,5.0049e-03_rb,4.5271e-03_rb,4.0365e-03_rb,3.0612e-03_rb,2.5106e-03_rb, &\n     &2.5238e-03_rb,3.3792e-03_rb,9.8239e-04_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &2.9179e-02_rb,2.5534e-02_rb,2.1889e-02_rb,1.8245e-02_rb,1.4599e-02_rb,1.0955e-02_rb, &\n     &7.3101e-03_rb,3.7189e-03_rb,1.6629e-04_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &2.8331e-02_rb,2.4795e-02_rb,2.1258e-02_rb,1.7722e-02_rb,1.4184e-02_rb,1.0647e-02_rb, &\n     &7.1746e-03_rb,3.6882e-03_rb,3.2759e-04_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &2.7584e-02_rb,2.4141e-02_rb,2.0699e-02_rb,1.7251e-02_rb,1.3817e-02_rb,1.0419e-02_rb, &\n     &6.9883e-03_rb,3.6331e-03_rb,7.5693e-04_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &2.7092e-02_rb,2.3710e-02_rb,2.0332e-02_rb,1.6950e-02_rb,1.3669e-02_rb,1.0331e-02_rb, &\n     &6.9978e-03_rb,3.6886e-03_rb,1.3272e-03_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &2.4668e-02_rb,2.1578e-02_rb,1.8509e-02_rb,1.5691e-02_rb,1.2680e-02_rb,9.7141e-03_rb, &\n     &6.7022e-03_rb,3.7141e-03_rb,1.7778e-03_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &1.0361e-01_rb,9.0667e-02_rb,7.7713e-02_rb,6.4765e-02_rb,5.1815e-02_rb,3.8864e-02_rb, &\n     &2.5914e-02_rb,1.2965e-02_rb,1.1677e-04_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &1.0115e-01_rb,8.8507e-02_rb,7.5864e-02_rb,6.3225e-02_rb,5.0584e-02_rb,3.7943e-02_rb, &\n     &2.5302e-02_rb,1.2662e-02_rb,2.2624e-04_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &9.8784e-02_rb,8.6438e-02_rb,7.4094e-02_rb,6.1749e-02_rb,4.9403e-02_rb,3.7059e-02_rb, &\n     &2.4715e-02_rb,1.2461e-02_rb,3.7810e-04_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &9.5779e-02_rb,8.3802e-02_rb,7.1837e-02_rb,5.9866e-02_rb,4.7899e-02_rb,3.5935e-02_rb, &\n     &2.4068e-02_rb,1.2158e-02_rb,6.1406e-04_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &9.3500e-02_rb,8.1816e-02_rb,7.0121e-02_rb,5.8448e-02_rb,4.6756e-02_rb,3.5152e-02_rb, &\n     &2.3515e-02_rb,1.2003e-02_rb,9.1223e-04_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &7.0616e-01_rb,6.1791e-01_rb,5.2965e-01_rb,4.4136e-01_rb,3.5309e-01_rb,2.6483e-01_rb, &\n     &1.7655e-01_rb,8.8282e-02_rb,1.5290e-06_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &6.9151e-01_rb,6.0507e-01_rb,5.1861e-01_rb,4.3218e-01_rb,3.4576e-01_rb,2.5930e-01_rb, &\n     &1.7288e-01_rb,8.6445e-02_rb,2.6717e-06_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &6.7650e-01_rb,5.9194e-01_rb,5.0740e-01_rb,4.2284e-01_rb,3.3827e-01_rb,2.5371e-01_rb, &\n     &1.6914e-01_rb,8.4579e-02_rb,4.4922e-06_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &6.5888e-01_rb,5.7654e-01_rb,4.9417e-01_rb,4.1183e-01_rb,3.2946e-01_rb,2.4710e-01_rb, &\n     &1.6473e-01_rb,8.2371e-02_rb,7.3887e-06_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &6.4040e-01_rb,5.6034e-01_rb,4.8031e-01_rb,4.0028e-01_rb,3.2019e-01_rb,2.4016e-01_rb, &\n     &1.6010e-01_rb,8.0057e-02_rb,1.1597e-05_rb/)\n      kao(:, 1,10,12) = (/ &\n     &5.7734e+00_rb,5.0518e+00_rb,4.3301e+00_rb,3.6085e+00_rb,2.8866e+00_rb,2.1651e+00_rb, &\n     &1.4434e+00_rb,7.2167e-01_rb,9.1748e-07_rb/)\n      kao(:, 2,10,12) = (/ &\n     &5.6550e+00_rb,4.9481e+00_rb,4.2414e+00_rb,3.5344e+00_rb,2.8275e+00_rb,2.1206e+00_rb, &\n     &1.4138e+00_rb,7.0688e-01_rb,1.6728e-06_rb/)\n      kao(:, 3,10,12) = (/ &\n     &5.5293e+00_rb,4.8379e+00_rb,4.1470e+00_rb,3.4558e+00_rb,2.7646e+00_rb,2.0735e+00_rb, &\n     &1.3823e+00_rb,6.9113e-01_rb,2.9526e-06_rb/)\n      kao(:, 4,10,12) = (/ &\n     &5.4054e+00_rb,4.7297e+00_rb,4.0540e+00_rb,3.3783e+00_rb,2.7027e+00_rb,2.0270e+00_rb, &\n     &1.3514e+00_rb,6.7568e-01_rb,4.8767e-06_rb/)\n      kao(:, 5,10,12) = (/ &\n     &5.2733e+00_rb,4.6145e+00_rb,3.9550e+00_rb,3.2959e+00_rb,2.6366e+00_rb,1.9775e+00_rb, &\n     &1.3184e+00_rb,6.5919e-01_rb,7.7655e-06_rb/)\n      kao(:, 1,11,12) = (/ &\n     &1.5785e+01_rb,1.3812e+01_rb,1.1839e+01_rb,9.8659e+00_rb,7.8925e+00_rb,5.9194e+00_rb, &\n     &3.9463e+00_rb,1.9732e+00_rb,7.4549e-07_rb/)\n      kao(:, 2,11,12) = (/ &\n     &1.5479e+01_rb,1.3544e+01_rb,1.1609e+01_rb,9.6738e+00_rb,7.7393e+00_rb,5.8045e+00_rb, &\n     &3.8695e+00_rb,1.9348e+00_rb,1.4083e-06_rb/)\n      kao(:, 3,11,12) = (/ &\n     &1.5180e+01_rb,1.3283e+01_rb,1.1385e+01_rb,9.4881e+00_rb,7.5902e+00_rb,5.6927e+00_rb, &\n     &3.7951e+00_rb,1.8975e+00_rb,2.4492e-06_rb/)\n      kao(:, 4,11,12) = (/ &\n     &1.4875e+01_rb,1.3016e+01_rb,1.1157e+01_rb,9.2972e+00_rb,7.4378e+00_rb,5.5784e+00_rb, &\n     &3.7189e+00_rb,1.8594e+00_rb,4.0481e-06_rb/)\n      kao(:, 5,11,12) = (/ &\n     &1.4584e+01_rb,1.2761e+01_rb,1.0938e+01_rb,9.1150e+00_rb,7.2921e+00_rb,5.4689e+00_rb, &\n     &3.6460e+00_rb,1.8230e+00_rb,6.1324e-06_rb/)\n      kao(:, 1,12,12) = (/ &\n     &2.7851e+01_rb,2.4369e+01_rb,2.0888e+01_rb,1.7407e+01_rb,1.3925e+01_rb,1.0444e+01_rb, &\n     &6.9625e+00_rb,3.4813e+00_rb,1.7967e-06_rb/)\n      kao(:, 2,12,12) = (/ &\n     &2.7381e+01_rb,2.3958e+01_rb,2.0536e+01_rb,1.7113e+01_rb,1.3691e+01_rb,1.0268e+01_rb, &\n     &6.8453e+00_rb,3.4226e+00_rb,3.3551e-06_rb/)\n      kao(:, 3,12,12) = (/ &\n     &2.6898e+01_rb,2.3535e+01_rb,2.0173e+01_rb,1.6811e+01_rb,1.3449e+01_rb,1.0086e+01_rb, &\n     &6.7243e+00_rb,3.3621e+00_rb,5.7999e-06_rb/)\n      kao(:, 4,12,12) = (/ &\n     &2.6422e+01_rb,2.3120e+01_rb,1.9816e+01_rb,1.6513e+01_rb,1.3211e+01_rb,9.9083e+00_rb, &\n     &6.6055e+00_rb,3.3027e+00_rb,8.8648e-06_rb/)\n      kao(:, 5,12,12) = (/ &\n     &2.5893e+01_rb,2.2657e+01_rb,1.9420e+01_rb,1.6183e+01_rb,1.2946e+01_rb,9.7098e+00_rb, &\n     &6.4732e+00_rb,3.2366e+00_rb,1.3030e-05_rb/)\n      kao(:, 1,13,12) = (/ &\n     &4.0056e+01_rb,3.5049e+01_rb,3.0042e+01_rb,2.5035e+01_rb,2.0028e+01_rb,1.5021e+01_rb, &\n     &1.0014e+01_rb,5.0068e+00_rb,1.9339e-06_rb/)\n      kao(:, 2,13,12) = (/ &\n     &3.9543e+01_rb,3.4599e+01_rb,2.9657e+01_rb,2.4713e+01_rb,1.9771e+01_rb,1.4828e+01_rb, &\n     &9.8854e+00_rb,4.9428e+00_rb,3.6424e-06_rb/)\n      kao(:, 3,13,12) = (/ &\n     &3.8932e+01_rb,3.4065e+01_rb,2.9198e+01_rb,2.4333e+01_rb,1.9465e+01_rb,1.4599e+01_rb, &\n     &9.7330e+00_rb,4.8663e+00_rb,6.0957e-06_rb/)\n      kao(:, 4,13,12) = (/ &\n     &3.8278e+01_rb,3.3493e+01_rb,2.8708e+01_rb,2.3923e+01_rb,1.9139e+01_rb,1.4354e+01_rb, &\n     &9.5693e+00_rb,4.7847e+00_rb,9.5853e-06_rb/)\n      kao(:, 5,13,12) = (/ &\n     &3.7502e+01_rb,3.2815e+01_rb,2.8127e+01_rb,2.3438e+01_rb,1.8751e+01_rb,1.4063e+01_rb, &\n     &9.3751e+00_rb,4.6877e+00_rb,1.4124e-05_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &7.4486e-05_rb,5.1116e-04_rb,1.0025e-03_rb,1.4842e-03_rb,1.9493e-03_rb,2.3797e-03_rb, &\n     &2.7258e-03_rb,2.8231e-03_rb,3.8853e-03_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &6.5327e-05_rb,7.3706e-04_rb,1.4529e-03_rb,2.1556e-03_rb,2.8349e-03_rb,3.4671e-03_rb, &\n     &3.9764e-03_rb,4.1729e-03_rb,5.6550e-03_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &2.8267e-05_rb,1.0173e-03_rb,2.0120e-03_rb,2.9905e-03_rb,3.9385e-03_rb,4.8257e-03_rb, &\n     &5.5630e-03_rb,5.8315e-03_rb,7.8638e-03_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &2.3738e-05_rb,1.3547e-03_rb,2.6849e-03_rb,3.9940e-03_rb,5.2660e-03_rb,6.4652e-03_rb, &\n     &7.4857e-03_rb,7.8673e-03_rb,1.0519e-02_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &2.6320e-05_rb,1.7490e-03_rb,3.4713e-03_rb,5.1691e-03_rb,6.8225e-03_rb,8.3917e-03_rb, &\n     &9.7490e-03_rb,1.0316e-02_rb,1.3632e-02_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &1.3584e-04_rb,4.6683e-04_rb,9.0905e-04_rb,1.3477e-03_rb,1.7804e-03_rb,2.1997e-03_rb, &\n     &2.5843e-03_rb,2.8459e-03_rb,3.5348e-03_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &1.2342e-04_rb,6.7608e-04_rb,1.3278e-03_rb,1.9757e-03_rb,2.6172e-03_rb,3.2432e-03_rb, &\n     &3.8268e-03_rb,4.2250e-03_rb,5.2098e-03_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &5.7073e-05_rb,9.3916e-04_rb,1.8537e-03_rb,2.7640e-03_rb,3.6667e-03_rb,4.5531e-03_rb, &\n     &5.3892e-03_rb,5.9774e-03_rb,7.3088e-03_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &4.3007e-05_rb,1.2575e-03_rb,2.4910e-03_rb,3.7207e-03_rb,4.9408e-03_rb,6.1442e-03_rb, &\n     &7.2881e-03_rb,8.1201e-03_rb,9.8567e-03_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &4.4050e-05_rb,1.6325e-03_rb,3.2411e-03_rb,4.8448e-03_rb,6.4428e-03_rb,8.0196e-03_rb, &\n     &9.5284e-03_rb,1.0661e-02_rb,1.2860e-02_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &4.8847e-04_rb,4.8646e-04_rb,7.2624e-04_rb,1.0874e-03_rb,1.4317e-03_rb,1.7747e-03_rb, &\n     &2.1141e-03_rb,2.4304e-03_rb,2.8058e-03_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &3.4302e-04_rb,4.5845e-04_rb,1.0966e-03_rb,1.6182e-03_rb,2.1396e-03_rb,2.6609e-03_rb, &\n     &3.1797e-03_rb,3.6788e-03_rb,4.2203e-03_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &2.3118e-04_rb,5.8673e-04_rb,1.5488e-03_rb,2.2966e-03_rb,3.0451e-03_rb,3.7949e-03_rb, &\n     &4.5473e-03_rb,5.2834e-03_rb,6.0295e-03_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &1.2745e-04_rb,7.5679e-04_rb,2.1131e-03_rb,3.1366e-03_rb,4.1628e-03_rb,5.1929e-03_rb, &\n     &6.2318e-03_rb,7.2646e-03_rb,8.2577e-03_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &1.0163e-04_rb,9.0005e-04_rb,2.8013e-03_rb,4.1651e-03_rb,5.5261e-03_rb,6.8877e-03_rb, &\n     &8.2517e-03_rb,9.6360e-03_rb,1.0972e-02_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &1.4481e-03_rb,1.2897e-03_rb,1.1542e-03_rb,1.0925e-03_rb,1.1503e-03_rb,1.3566e-03_rb, &\n     &1.5821e-03_rb,1.8266e-03_rb,2.0462e-03_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &1.3895e-03_rb,1.2964e-03_rb,1.0801e-03_rb,1.1824e-03_rb,1.6797e-03_rb,2.0441e-03_rb, &\n     &2.4259e-03_rb,2.8265e-03_rb,3.1666e-03_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &8.4970e-04_rb,9.1322e-04_rb,9.4827e-04_rb,1.6805e-03_rb,2.4256e-03_rb,2.9871e-03_rb, &\n     &3.5538e-03_rb,4.1410e-03_rb,4.6574e-03_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &4.1870e-04_rb,6.5230e-04_rb,1.1618e-03_rb,2.4565e-03_rb,3.3994e-03_rb,4.2007e-03_rb, &\n     &5.0069e-03_rb,5.8294e-03_rb,6.5858e-03_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &3.3416e-04_rb,5.3110e-04_rb,1.2880e-03_rb,3.5329e-03_rb,4.6400e-03_rb,5.7434e-03_rb, &\n     &6.8465e-03_rb,7.9498e-03_rb,9.0475e-03_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &4.2095e-03_rb,3.6897e-03_rb,3.1731e-03_rb,2.7426e-03_rb,2.2812e-03_rb,1.8053e-03_rb, &\n     &1.3867e-03_rb,1.3663e-03_rb,1.0788e-03_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &4.0034e-03_rb,3.5161e-03_rb,3.1982e-03_rb,2.7135e-03_rb,2.2188e-03_rb,1.8636e-03_rb, &\n     &1.9269e-03_rb,2.1141e-03_rb,1.6636e-03_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &3.5828e-03_rb,3.2123e-03_rb,2.7997e-03_rb,2.3571e-03_rb,1.9942e-03_rb,2.3633e-03_rb, &\n     &2.8135e-03_rb,3.1780e-03_rb,2.3977e-03_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &2.0578e-03_rb,1.9948e-03_rb,1.9739e-03_rb,1.8494e-03_rb,2.1664e-03_rb,3.4722e-03_rb, &\n     &4.0379e-03_rb,4.6191e-03_rb,3.3853e-03_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &8.8300e-04_rb,9.5901e-04_rb,1.3118e-03_rb,1.4619e-03_rb,2.8921e-03_rb,4.8304e-03_rb, &\n     &5.6699e-03_rb,6.5165e-03_rb,5.0451e-03_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &1.1518e-02_rb,1.0082e-02_rb,8.6450e-03_rb,7.2094e-03_rb,5.7738e-03_rb,4.4142e-03_rb, &\n     &2.9967e-03_rb,1.6414e-03_rb,2.3528e-04_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &1.0779e-02_rb,9.4346e-03_rb,8.0897e-03_rb,6.7606e-03_rb,5.5435e-03_rb,4.2583e-03_rb, &\n     &3.0675e-03_rb,1.8475e-03_rb,3.7683e-04_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &1.0564e-02_rb,9.2493e-03_rb,7.9306e-03_rb,6.7005e-03_rb,5.4724e-03_rb,4.2002e-03_rb, &\n     &3.0432e-03_rb,2.5995e-03_rb,5.6137e-04_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &8.9592e-03_rb,7.8426e-03_rb,6.9339e-03_rb,5.9610e-03_rb,4.9577e-03_rb,4.0115e-03_rb, &\n     &3.3973e-03_rb,3.7509e-03_rb,7.8787e-04_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &5.6084e-03_rb,4.9031e-03_rb,4.1060e-03_rb,3.7154e-03_rb,3.3523e-03_rb,3.1522e-03_rb, &\n     &4.6655e-03_rb,5.3564e-03_rb,1.1263e-03_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &3.2240e-02_rb,2.8212e-02_rb,2.4183e-02_rb,2.0155e-02_rb,1.6127e-02_rb,1.2099e-02_rb, &\n     &8.0718e-03_rb,4.1324e-03_rb,2.8875e-04_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &3.1311e-02_rb,2.7399e-02_rb,2.3486e-02_rb,1.9574e-02_rb,1.5661e-02_rb,1.1749e-02_rb, &\n     &7.9670e-03_rb,4.1256e-03_rb,4.9392e-04_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &2.9762e-02_rb,2.6043e-02_rb,2.2324e-02_rb,1.8611e-02_rb,1.4888e-02_rb,1.1369e-02_rb, &\n     &7.7126e-03_rb,4.2395e-03_rb,7.8171e-04_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &2.8871e-02_rb,2.5265e-02_rb,2.1655e-02_rb,1.8050e-02_rb,1.4581e-02_rb,1.1027e-02_rb, &\n     &7.5640e-03_rb,4.2437e-03_rb,1.1828e-03_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &2.6386e-02_rb,2.3095e-02_rb,1.9798e-02_rb,1.6677e-02_rb,1.3324e-02_rb,1.0191e-02_rb, &\n     &7.1310e-03_rb,4.8298e-03_rb,2.2511e-03_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &1.1497e-01_rb,1.0060e-01_rb,8.6231e-02_rb,7.1859e-02_rb,5.7486e-02_rb,4.3117e-02_rb, &\n     &2.8748e-02_rb,1.4377e-02_rb,1.6465e-04_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &1.1189e-01_rb,9.7901e-02_rb,8.3916e-02_rb,6.9933e-02_rb,5.5946e-02_rb,4.1961e-02_rb, &\n     &2.7977e-02_rb,1.3991e-02_rb,2.9555e-04_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &1.0913e-01_rb,9.5494e-02_rb,8.1850e-02_rb,6.8211e-02_rb,5.4570e-02_rb,4.0928e-02_rb, &\n     &2.7290e-02_rb,1.3843e-02_rb,5.2136e-04_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &1.0534e-01_rb,9.2180e-02_rb,7.9010e-02_rb,6.5847e-02_rb,5.2678e-02_rb,3.9513e-02_rb, &\n     &2.6523e-02_rb,1.3514e-02_rb,8.6919e-04_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &1.0155e-01_rb,8.8866e-02_rb,7.6173e-02_rb,6.3476e-02_rb,5.0785e-02_rb,3.8190e-02_rb, &\n     &2.5826e-02_rb,1.3344e-02_rb,1.3651e-03_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &7.8551e-01_rb,6.8732e-01_rb,5.8909e-01_rb,4.9092e-01_rb,3.9275e-01_rb,2.9457e-01_rb, &\n     &1.9638e-01_rb,9.8187e-02_rb,1.8629e-06_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &7.6466e-01_rb,6.6906e-01_rb,5.7351e-01_rb,4.7791e-01_rb,3.8233e-01_rb,2.8675e-01_rb, &\n     &1.9117e-01_rb,9.5586e-02_rb,3.1593e-06_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &7.4558e-01_rb,6.5237e-01_rb,5.5922e-01_rb,4.6601e-01_rb,3.7282e-01_rb,2.7960e-01_rb, &\n     &1.8640e-01_rb,9.3207e-02_rb,5.1342e-06_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &7.2909e-01_rb,6.3798e-01_rb,5.4684e-01_rb,4.5571e-01_rb,3.6456e-01_rb,2.7343e-01_rb, &\n     &1.8229e-01_rb,9.1144e-02_rb,7.8192e-06_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &7.0726e-01_rb,6.1887e-01_rb,5.3047e-01_rb,4.4203e-01_rb,3.5366e-01_rb,2.6523e-01_rb, &\n     &1.7683e-01_rb,8.8423e-02_rb,1.1206e-05_rb/)\n      kao(:, 1,10,13) = (/ &\n     &6.4269e+00_rb,5.6236e+00_rb,4.8204e+00_rb,4.0168e+00_rb,3.2134e+00_rb,2.4100e+00_rb, &\n     &1.6066e+00_rb,8.0335e-01_rb,1.1293e-06_rb/)\n      kao(:, 2,10,13) = (/ &\n     &6.2640e+00_rb,5.4811e+00_rb,4.6981e+00_rb,3.9150e+00_rb,3.1320e+00_rb,2.3491e+00_rb, &\n     &1.5660e+00_rb,7.8302e-01_rb,2.0871e-06_rb/)\n      kao(:, 3,10,13) = (/ &\n     &6.1220e+00_rb,5.3567e+00_rb,4.5912e+00_rb,3.8262e+00_rb,3.0609e+00_rb,2.2959e+00_rb, &\n     &1.5304e+00_rb,7.6518e-01_rb,3.5513e-06_rb/)\n      kao(:, 4,10,13) = (/ &\n     &5.9998e+00_rb,5.2499e+00_rb,4.4998e+00_rb,3.7498e+00_rb,2.9997e+00_rb,2.2499e+00_rb, &\n     &1.5000e+00_rb,7.4994e-01_rb,5.6768e-06_rb/)\n      kao(:, 5,10,13) = (/ &\n     &5.8812e+00_rb,5.1459e+00_rb,4.4109e+00_rb,3.6757e+00_rb,2.9406e+00_rb,2.2054e+00_rb, &\n     &1.4703e+00_rb,7.3514e-01_rb,8.5300e-06_rb/)\n      kao(:, 1,11,13) = (/ &\n     &1.7678e+01_rb,1.5468e+01_rb,1.3258e+01_rb,1.1049e+01_rb,8.8386e+00_rb,6.6292e+00_rb, &\n     &4.4195e+00_rb,2.2097e+00_rb,9.5807e-07_rb/)\n      kao(:, 2,11,13) = (/ &\n     &1.7256e+01_rb,1.5100e+01_rb,1.2942e+01_rb,1.0785e+01_rb,8.6284e+00_rb,6.4710e+00_rb, &\n     &4.3143e+00_rb,2.1571e+00_rb,1.8271e-06_rb/)\n      kao(:, 3,11,13) = (/ &\n     &1.6917e+01_rb,1.4802e+01_rb,1.2687e+01_rb,1.0572e+01_rb,8.4580e+00_rb,6.3436e+00_rb, &\n     &4.2290e+00_rb,2.1146e+00_rb,3.1322e-06_rb/)\n      kao(:, 4,11,13) = (/ &\n     &1.6624e+01_rb,1.4546e+01_rb,1.2468e+01_rb,1.0390e+01_rb,8.3118e+00_rb,6.2340e+00_rb, &\n     &4.1559e+00_rb,2.0780e+00_rb,4.9941e-06_rb/)\n      kao(:, 5,11,13) = (/ &\n     &1.6312e+01_rb,1.4273e+01_rb,1.2234e+01_rb,1.0195e+01_rb,8.1562e+00_rb,6.1169e+00_rb, &\n     &4.0780e+00_rb,2.0391e+00_rb,7.8208e-06_rb/)\n      kao(:, 1,12,13) = (/ &\n     &3.1083e+01_rb,2.7197e+01_rb,2.3312e+01_rb,1.9426e+01_rb,1.5541e+01_rb,1.1655e+01_rb, &\n     &7.7704e+00_rb,3.8852e+00_rb,7.4323e-07_rb/)\n      kao(:, 2,12,13) = (/ &\n     &3.0431e+01_rb,2.6627e+01_rb,2.2823e+01_rb,1.9019e+01_rb,1.5215e+01_rb,1.1411e+01_rb, &\n     &7.6077e+00_rb,3.8037e+00_rb,1.4468e-06_rb/)\n      kao(:, 3,12,13) = (/ &\n     &2.9924e+01_rb,2.6183e+01_rb,2.2443e+01_rb,1.8702e+01_rb,1.4961e+01_rb,1.1221e+01_rb, &\n     &7.4808e+00_rb,3.7405e+00_rb,2.6259e-06_rb/)\n      kao(:, 4,12,13) = (/ &\n     &2.9439e+01_rb,2.5759e+01_rb,2.2079e+01_rb,1.8399e+01_rb,1.4719e+01_rb,1.1040e+01_rb, &\n     &7.3599e+00_rb,3.6798e+00_rb,4.5448e-06_rb/)\n      kao(:, 5,12,13) = (/ &\n     &2.8940e+01_rb,2.5323e+01_rb,2.1705e+01_rb,1.8088e+01_rb,1.4470e+01_rb,1.0853e+01_rb, &\n     &7.2348e+00_rb,3.6174e+00_rb,7.3875e-06_rb/)\n      kao(:, 1,13,13) = (/ &\n     &4.5024e+01_rb,3.9395e+01_rb,3.3766e+01_rb,2.8140e+01_rb,2.2511e+01_rb,1.6883e+01_rb, &\n     &1.1256e+01_rb,5.6279e+00_rb,6.0376e-07_rb/)\n      kao(:, 2,13,13) = (/ &\n     &4.4143e+01_rb,3.8625e+01_rb,3.3107e+01_rb,2.7589e+01_rb,2.2071e+01_rb,1.6554e+01_rb, &\n     &1.1035e+01_rb,5.5177e+00_rb,1.1756e-06_rb/)\n      kao(:, 3,13,13) = (/ &\n     &4.3457e+01_rb,3.8026e+01_rb,3.2594e+01_rb,2.7161e+01_rb,2.1728e+01_rb,1.6297e+01_rb, &\n     &1.0864e+01_rb,5.4320e+00_rb,2.1118e-06_rb/)\n      kao(:, 4,13,13) = (/ &\n     &4.2787e+01_rb,3.7437e+01_rb,3.2089e+01_rb,2.6742e+01_rb,2.1393e+01_rb,1.6044e+01_rb, &\n     &1.0696e+01_rb,5.3482e+00_rb,3.5390e-06_rb/)\n      kao(:, 5,13,13) = (/ &\n     &4.2071e+01_rb,3.6811e+01_rb,3.1552e+01_rb,2.6294e+01_rb,2.1034e+01_rb,1.5776e+01_rb, &\n     &1.0517e+01_rb,5.2587e+00_rb,5.6752e-06_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &8.0615e-05_rb,9.4684e-04_rb,1.8810e-03_rb,2.8058e-03_rb,3.7171e-03_rb,4.6066e-03_rb, &\n     &5.4471e-03_rb,6.0480e-03_rb,7.4265e-03_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &7.2907e-05_rb,1.3385e-03_rb,2.6578e-03_rb,3.9621e-03_rb,5.2462e-03_rb,6.4943e-03_rb, &\n     &7.6854e-03_rb,8.5660e-03_rb,1.0483e-02_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &6.3747e-05_rb,1.8288e-03_rb,3.6296e-03_rb,5.4086e-03_rb,7.1575e-03_rb,8.8508e-03_rb, &\n     &1.0431e-02_rb,1.1658e-02_rb,1.4300e-02_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &3.9260e-05_rb,2.4240e-03_rb,4.8114e-03_rb,7.1688e-03_rb,9.4794e-03_rb,1.1704e-02_rb, &\n     &1.3748e-02_rb,1.5334e-02_rb,1.8941e-02_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &2.4568e-05_rb,3.1272e-03_rb,6.2078e-03_rb,9.2494e-03_rb,1.2223e-02_rb,1.5067e-02_rb, &\n     &1.7657e-02_rb,1.9583e-02_rb,2.4427e-02_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &1.5596e-04_rb,8.5463e-04_rb,1.6898e-03_rb,2.5200e-03_rb,3.3406e-03_rb,4.1439e-03_rb, &\n     &4.9117e-03_rb,5.5191e-03_rb,6.6708e-03_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &1.3504e-04_rb,1.2362e-03_rb,2.4448e-03_rb,3.6435e-03_rb,4.8236e-03_rb,5.9777e-03_rb, &\n     &7.0641e-03_rb,7.9635e-03_rb,9.6287e-03_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &1.1284e-04_rb,1.7193e-03_rb,3.4047e-03_rb,5.0732e-03_rb,6.7143e-03_rb,8.3092e-03_rb, &\n     &9.8022e-03_rb,1.1012e-02_rb,1.3405e-02_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &7.1068e-05_rb,2.3136e-03_rb,4.5842e-03_rb,6.8306e-03_rb,9.0376e-03_rb,1.1180e-02_rb, &\n     &1.3169e-02_rb,1.4761e-02_rb,1.8047e-02_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &4.9683e-05_rb,3.0234e-03_rb,5.9956e-03_rb,8.9376e-03_rb,1.1824e-02_rb,1.4613e-02_rb, &\n     &1.7201e-02_rb,1.9221e-02_rb,2.3615e-02_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &4.8559e-04_rb,6.3562e-04_rb,1.4148e-03_rb,2.0956e-03_rb,2.7735e-03_rb,3.4411e-03_rb, &\n     &4.0892e-03_rb,4.6631e-03_rb,5.5086e-03_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &3.9874e-04_rb,1.0860e-03_rb,2.1105e-03_rb,3.1322e-03_rb,4.1464e-03_rb,5.1442e-03_rb, &\n     &6.1073e-03_rb,6.9472e-03_rb,8.2419e-03_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &3.0553e-04_rb,1.5424e-03_rb,3.0141e-03_rb,4.4802e-03_rb,5.9320e-03_rb,7.3631e-03_rb, &\n     &8.7355e-03_rb,9.9159e-03_rb,1.1803e-02_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &2.0300e-04_rb,2.1134e-03_rb,4.1489e-03_rb,6.1729e-03_rb,8.1791e-03_rb,1.0152e-02_rb, &\n     &1.2037e-02_rb,1.3637e-02_rb,1.6288e-02_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &1.2261e-04_rb,2.8083e-03_rb,5.5298e-03_rb,8.2360e-03_rb,1.0915e-02_rb,1.3546e-02_rb, &\n     &1.6061e-02_rb,1.8163e-02_rb,2.1753e-02_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &1.6340e-03_rb,1.4799e-03_rb,1.3812e-03_rb,1.7164e-03_rb,2.2393e-03_rb,2.7610e-03_rb, &\n     &3.2750e-03_rb,3.7562e-03_rb,4.3569e-03_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &1.3493e-03_rb,1.1314e-03_rb,1.6943e-03_rb,2.6409e-03_rb,3.4636e-03_rb,4.2822e-03_rb, &\n     &5.0857e-03_rb,5.8323e-03_rb,6.7806e-03_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &9.9538e-04_rb,9.6503e-04_rb,2.6483e-03_rb,3.8772e-03_rb,5.1039e-03_rb,6.3200e-03_rb, &\n     &7.5138e-03_rb,8.6138e-03_rb,1.0038e-02_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &7.1686e-04_rb,9.6594e-04_rb,3.7129e-03_rb,5.4649e-03_rb,7.2111e-03_rb,8.9436e-03_rb, &\n     &1.0638e-02_rb,1.2197e-02_rb,1.4232e-02_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &3.7667e-04_rb,1.0457e-03_rb,5.0357e-03_rb,7.4391e-03_rb,9.8310e-03_rb,1.2205e-02_rb, &\n     &1.4525e-02_rb,1.6653e-02_rb,1.9453e-02_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &4.8186e-03_rb,4.2167e-03_rb,3.6150e-03_rb,3.0747e-03_rb,2.5291e-03_rb,2.2936e-03_rb, &\n     &2.5986e-03_rb,2.9578e-03_rb,3.3675e-03_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &4.3147e-03_rb,3.7763e-03_rb,3.3322e-03_rb,2.8723e-03_rb,2.9945e-03_rb,3.5591e-03_rb, &\n     &4.1803e-03_rb,4.7800e-03_rb,5.4630e-03_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &3.5596e-03_rb,3.1147e-03_rb,2.7981e-03_rb,3.1802e-03_rb,4.4145e-03_rb,5.3933e-03_rb, &\n     &6.3651e-03_rb,7.3014e-03_rb,8.3701e-03_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &2.3785e-03_rb,2.2217e-03_rb,2.2338e-03_rb,4.4885e-03_rb,6.3608e-03_rb,7.8120e-03_rb, &\n     &9.2509e-03_rb,1.0634e-02_rb,1.2219e-02_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &1.3285e-03_rb,1.6004e-03_rb,2.5745e-03_rb,6.3438e-03_rb,8.8283e-03_rb,1.0885e-02_rb, &\n     &1.2921e-02_rb,1.4873e-02_rb,1.7112e-02_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &1.2819e-02_rb,1.1217e-02_rb,9.6163e-03_rb,8.0152e-03_rb,6.4138e-03_rb,4.8948e-03_rb, &\n     &3.3434e-03_rb,2.3020e-03_rb,2.0077e-03_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &1.2485e-02_rb,1.0926e-02_rb,9.3667e-03_rb,7.8075e-03_rb,6.3840e-03_rb,4.8805e-03_rb, &\n     &3.7061e-03_rb,3.8075e-03_rb,3.4020e-03_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &1.1272e-02_rb,9.8625e-03_rb,8.4554e-03_rb,7.3206e-03_rb,6.0114e-03_rb,5.1792e-03_rb, &\n     &5.3340e-03_rb,6.0074e-03_rb,5.3316e-03_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &1.0208e-02_rb,8.9332e-03_rb,7.9437e-03_rb,6.6798e-03_rb,5.8609e-03_rb,6.4855e-03_rb, &\n     &7.9228e-03_rb,9.0010e-03_rb,7.9567e-03_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &6.0521e-03_rb,5.2891e-03_rb,4.8269e-03_rb,4.6206e-03_rb,6.6176e-03_rb,9.3039e-03_rb, &\n     &1.1293e-02_rb,1.2903e-02_rb,1.1196e-02_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &3.6443e-02_rb,3.1891e-02_rb,2.7336e-02_rb,2.2781e-02_rb,1.8226e-02_rb,1.3673e-02_rb, &\n     &9.1182e-03_rb,4.6764e-03_rb,1.4855e-04_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &3.5471e-02_rb,3.1039e-02_rb,2.6606e-02_rb,2.2173e-02_rb,1.7742e-02_rb,1.3309e-02_rb, &\n     &9.0490e-03_rb,4.6704e-03_rb,2.5095e-04_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &3.4456e-02_rb,3.0149e-02_rb,2.5845e-02_rb,2.1540e-02_rb,1.7235e-02_rb,1.3185e-02_rb, &\n     &8.9735e-03_rb,5.4794e-03_rb,4.0737e-04_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &3.1652e-02_rb,2.7700e-02_rb,2.3744e-02_rb,1.9792e-02_rb,1.6225e-02_rb,1.2450e-02_rb, &\n     &9.1363e-03_rb,7.6445e-03_rb,6.2917e-04_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &2.9864e-02_rb,2.6135e-02_rb,2.2399e-02_rb,1.8923e-02_rb,1.5530e-02_rb,1.2143e-02_rb, &\n     &1.0151e-02_rb,1.1058e-02_rb,9.1130e-04_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &1.3223e-01_rb,1.1571e-01_rb,9.9174e-02_rb,8.2651e-02_rb,6.6122e-02_rb,4.9592e-02_rb, &\n     &3.3063e-02_rb,1.6534e-02_rb,2.3921e-04_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &1.2869e-01_rb,1.1260e-01_rb,9.6519e-02_rb,8.0434e-02_rb,6.4349e-02_rb,4.8263e-02_rb, &\n     &3.2179e-02_rb,1.6093e-02_rb,4.2965e-04_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &1.2518e-01_rb,1.0953e-01_rb,9.3886e-02_rb,7.8243e-02_rb,6.2597e-02_rb,4.6952e-02_rb, &\n     &3.1306e-02_rb,1.5992e-02_rb,7.4452e-04_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &1.2188e-01_rb,1.0664e-01_rb,9.1414e-02_rb,7.6180e-02_rb,6.0947e-02_rb,4.5714e-02_rb, &\n     &3.0548e-02_rb,1.5885e-02_rb,1.1502e-03_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &1.1492e-01_rb,1.0055e-01_rb,8.6192e-02_rb,7.1832e-02_rb,5.7467e-02_rb,4.3105e-02_rb, &\n     &2.9610e-02_rb,1.5934e-02_rb,1.8646e-03_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &9.2387e-01_rb,8.0839e-01_rb,6.9293e-01_rb,5.7740e-01_rb,4.6193e-01_rb,3.4646e-01_rb, &\n     &2.3098e-01_rb,1.1549e-01_rb,2.2371e-06_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &9.0122e-01_rb,7.8856e-01_rb,6.7591e-01_rb,5.6327e-01_rb,4.5061e-01_rb,3.3795e-01_rb, &\n     &2.2531e-01_rb,1.1266e-01_rb,3.5853e-06_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &8.7866e-01_rb,7.6881e-01_rb,6.5900e-01_rb,5.4913e-01_rb,4.3933e-01_rb,3.2948e-01_rb, &\n     &2.1967e-01_rb,1.0984e-01_rb,5.0567e-06_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &8.5611e-01_rb,7.4910e-01_rb,6.4207e-01_rb,5.3506e-01_rb,4.2806e-01_rb,3.2105e-01_rb, &\n     &2.1404e-01_rb,1.0702e-01_rb,6.9838e-06_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &8.3494e-01_rb,7.3059e-01_rb,6.2623e-01_rb,5.2185e-01_rb,4.1749e-01_rb,3.1312e-01_rb, &\n     &2.0874e-01_rb,1.0439e-01_rb,9.6651e-06_rb/)\n      kao(:, 1,10,14) = (/ &\n     &7.7336e+00_rb,6.7669e+00_rb,5.8002e+00_rb,4.8337e+00_rb,3.8667e+00_rb,2.9002e+00_rb, &\n     &1.9334e+00_rb,9.6674e-01_rb,1.4759e-06_rb/)\n      kao(:, 2,10,14) = (/ &\n     &7.5671e+00_rb,6.6210e+00_rb,5.6751e+00_rb,4.7295e+00_rb,3.7835e+00_rb,2.8377e+00_rb, &\n     &1.8919e+00_rb,9.4588e-01_rb,2.4483e-06_rb/)\n      kao(:, 3,10,14) = (/ &\n     &7.3934e+00_rb,6.4694e+00_rb,5.5449e+00_rb,4.6209e+00_rb,3.6964e+00_rb,2.7725e+00_rb, &\n     &1.8483e+00_rb,9.2413e-01_rb,3.6428e-06_rb/)\n      kao(:, 4,10,14) = (/ &\n     &7.2085e+00_rb,6.3072e+00_rb,5.4063e+00_rb,4.5053e+00_rb,3.6041e+00_rb,2.7031e+00_rb, &\n     &1.8022e+00_rb,9.0111e-01_rb,5.1643e-06_rb/)\n      kao(:, 5,10,14) = (/ &\n     &7.0344e+00_rb,6.1551e+00_rb,5.2759e+00_rb,4.3968e+00_rb,3.5172e+00_rb,2.6378e+00_rb, &\n     &1.7586e+00_rb,8.7933e-01_rb,7.2619e-06_rb/)\n      kao(:, 1,11,14) = (/ &\n     &2.1626e+01_rb,1.8923e+01_rb,1.6220e+01_rb,1.3516e+01_rb,1.0813e+01_rb,8.1097e+00_rb, &\n     &5.4065e+00_rb,2.7033e+00_rb,1.2148e-06_rb/)\n      kao(:, 2,11,14) = (/ &\n     &2.1170e+01_rb,1.8523e+01_rb,1.5877e+01_rb,1.3231e+01_rb,1.0585e+01_rb,7.9391e+00_rb, &\n     &5.2925e+00_rb,2.6462e+00_rb,1.9377e-06_rb/)\n      kao(:, 3,11,14) = (/ &\n     &2.0665e+01_rb,1.8082e+01_rb,1.5499e+01_rb,1.2916e+01_rb,1.0333e+01_rb,7.7495e+00_rb, &\n     &5.1662e+00_rb,2.5832e+00_rb,2.9701e-06_rb/)\n      kao(:, 4,11,14) = (/ &\n     &2.0140e+01_rb,1.7623e+01_rb,1.5106e+01_rb,1.2588e+01_rb,1.0071e+01_rb,7.5528e+00_rb, &\n     &5.0352e+00_rb,2.5176e+00_rb,4.4558e-06_rb/)\n      kao(:, 5,11,14) = (/ &\n     &1.9664e+01_rb,1.7206e+01_rb,1.4748e+01_rb,1.2290e+01_rb,9.8317e+00_rb,7.3738e+00_rb, &\n     &4.9159e+00_rb,2.4579e+00_rb,6.2661e-06_rb/)\n      kao(:, 1,12,14) = (/ &\n     &3.8270e+01_rb,3.3486e+01_rb,2.8703e+01_rb,2.3919e+01_rb,1.9135e+01_rb,1.4352e+01_rb, &\n     &9.5673e+00_rb,4.7836e+00_rb,1.1282e-06_rb/)\n      kao(:, 2,12,14) = (/ &\n     &3.7417e+01_rb,3.2741e+01_rb,2.8063e+01_rb,2.3387e+01_rb,1.8709e+01_rb,1.4031e+01_rb, &\n     &9.3545e+00_rb,4.6770e+00_rb,1.8527e-06_rb/)\n      kao(:, 3,12,14) = (/ &\n     &3.6489e+01_rb,3.1928e+01_rb,2.7367e+01_rb,2.2805e+01_rb,1.8244e+01_rb,1.3683e+01_rb, &\n     &9.1218e+00_rb,4.5610e+00_rb,2.7902e-06_rb/)\n      kao(:, 4,12,14) = (/ &\n     &3.5556e+01_rb,3.1112e+01_rb,2.6666e+01_rb,2.2223e+01_rb,1.7778e+01_rb,1.3333e+01_rb, &\n     &8.8890e+00_rb,4.4446e+00_rb,3.8795e-06_rb/)\n      kao(:, 5,12,14) = (/ &\n     &3.4682e+01_rb,3.0344e+01_rb,2.6011e+01_rb,2.1676e+01_rb,1.7341e+01_rb,1.3005e+01_rb, &\n     &8.6702e+00_rb,4.3349e+00_rb,5.0987e-06_rb/)\n      kao(:, 1,13,14) = (/ &\n     &5.4806e+01_rb,4.7955e+01_rb,4.1104e+01_rb,3.4254e+01_rb,2.7403e+01_rb,2.0551e+01_rb, &\n     &1.3701e+01_rb,6.8507e+00_rb,9.3782e-07_rb/)\n      kao(:, 2,13,14) = (/ &\n     &5.3507e+01_rb,4.6818e+01_rb,4.0130e+01_rb,3.3442e+01_rb,2.6753e+01_rb,2.0066e+01_rb, &\n     &1.3376e+01_rb,6.6886e+00_rb,1.6696e-06_rb/)\n      kao(:, 3,13,14) = (/ &\n     &5.2032e+01_rb,4.5528e+01_rb,3.9023e+01_rb,3.2519e+01_rb,2.6015e+01_rb,1.9512e+01_rb, &\n     &1.3008e+01_rb,6.5038e+00_rb,2.8850e-06_rb/)\n      kao(:, 4,13,14) = (/ &\n     &5.0622e+01_rb,4.4293e+01_rb,3.7966e+01_rb,3.1638e+01_rb,2.5310e+01_rb,1.8983e+01_rb, &\n     &1.2655e+01_rb,6.3275e+00_rb,4.3456e-06_rb/)\n      kao(:, 5,13,14) = (/ &\n     &4.9341e+01_rb,4.3174e+01_rb,3.7007e+01_rb,3.0838e+01_rb,2.4670e+01_rb,1.8503e+01_rb, &\n     &1.2335e+01_rb,6.1672e+00_rb,6.2672e-06_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &9.0368e-05_rb,1.7587e-03_rb,3.4692e-03_rb,5.1215e-03_rb,6.6729e-03_rb,8.0447e-03_rb, &\n     &9.0360e-03_rb,8.9574e-03_rb,1.3337e-02_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &8.5673e-05_rb,2.5288e-03_rb,4.9923e-03_rb,7.3709e-03_rb,9.6068e-03_rb,1.1588e-02_rb, &\n     &1.3021e-02_rb,1.2915e-02_rb,1.9203e-02_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &7.5800e-05_rb,3.4920e-03_rb,6.8957e-03_rb,1.0184e-02_rb,1.3280e-02_rb,1.6021e-02_rb, &\n     &1.8010e-02_rb,1.7888e-02_rb,2.6548e-02_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &6.6885e-05_rb,4.6582e-03_rb,9.2038e-03_rb,1.3596e-02_rb,1.7729e-02_rb,2.1393e-02_rb, &\n     &2.4064e-02_rb,2.3923e-02_rb,3.5446e-02_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &2.9277e-05_rb,6.0336e-03_rb,1.1922e-02_rb,1.7611e-02_rb,2.2979e-02_rb,2.7733e-02_rb, &\n     &3.1220e-02_rb,3.1058e-02_rb,4.5944e-02_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &1.6162e-04_rb,1.7658e-03_rb,3.4927e-03_rb,5.1816e-03_rb,6.8087e-03_rb,8.3146e-03_rb, &\n     &9.5542e-03_rb,9.9349e-03_rb,1.3602e-02_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &1.4940e-04_rb,2.5810e-03_rb,5.1093e-03_rb,7.5846e-03_rb,9.9670e-03_rb,1.2178e-02_rb, &\n     &1.4000e-02_rb,1.4578e-02_rb,1.9917e-02_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &1.4212e-04_rb,3.6142e-03_rb,7.1589e-03_rb,1.0631e-02_rb,1.3977e-02_rb,1.7085e-02_rb, &\n     &1.9645e-02_rb,2.0472e-02_rb,2.7934e-02_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &1.2057e-04_rb,4.8773e-03_rb,9.6676e-03_rb,1.4359e-02_rb,1.8882e-02_rb,2.3081e-02_rb, &\n     &2.6561e-02_rb,2.7724e-02_rb,3.7741e-02_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &6.0191e-05_rb,6.3788e-03_rb,1.2648e-02_rb,1.8790e-02_rb,2.4713e-02_rb,3.0224e-02_rb, &\n     &3.4797e-02_rb,3.6354e-02_rb,4.9402e-02_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &4.4246e-04_rb,1.6142e-03_rb,3.1839e-03_rb,4.7378e-03_rb,6.2661e-03_rb,7.7441e-03_rb, &\n     &9.0975e-03_rb,1.0015e-02_rb,1.2497e-02_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &3.8619e-04_rb,2.4195e-03_rb,4.7839e-03_rb,7.1249e-03_rb,9.4281e-03_rb,1.1657e-02_rb, &\n     &1.3699e-02_rb,1.5096e-02_rb,1.8815e-02_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &3.7186e-04_rb,3.4615e-03_rb,6.8531e-03_rb,1.0215e-02_rb,1.3514e-02_rb,1.6722e-02_rb, &\n     &1.9664e-02_rb,2.1688e-02_rb,2.6981e-02_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &3.4136e-04_rb,4.7556e-03_rb,9.4307e-03_rb,1.4062e-02_rb,1.8619e-02_rb,2.3030e-02_rb, &\n     &2.7098e-02_rb,2.9910e-02_rb,3.7185e-02_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &2.7238e-04_rb,6.3154e-03_rb,1.2533e-02_rb,1.8695e-02_rb,2.4762e-02_rb,3.0640e-02_rb, &\n     &3.6060e-02_rb,3.9831e-02_rb,4.9464e-02_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &1.8439e-03_rb,1.6255e-03_rb,2.7662e-03_rb,4.1011e-03_rb,5.4250e-03_rb,6.7307e-03_rb, &\n     &7.9903e-03_rb,9.0701e-03_rb,1.0766e-02_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &1.2780e-03_rb,2.0382e-03_rb,4.2819e-03_rb,6.3618e-03_rb,8.4274e-03_rb,1.0464e-02_rb, &\n     &1.2431e-02_rb,1.4123e-02_rb,1.6753e-02_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &1.0129e-03_rb,3.1935e-03_rb,6.2902e-03_rb,9.3615e-03_rb,1.2411e-02_rb,1.5417e-02_rb, &\n     &1.8325e-02_rb,2.0828e-02_rb,2.4703e-02_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &9.5662e-04_rb,4.4942e-03_rb,8.8414e-03_rb,1.3166e-02_rb,1.7466e-02_rb,2.1716e-02_rb, &\n     &2.5826e-02_rb,2.9379e-02_rb,3.4795e-02_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &7.9817e-04_rb,6.0664e-03_rb,1.1965e-02_rb,1.7841e-02_rb,2.3679e-02_rb,2.9437e-02_rb, &\n     &3.5012e-02_rb,3.9861e-02_rb,4.7202e-02_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &5.1399e-03_rb,4.4963e-03_rb,3.8550e-03_rb,3.7300e-03_rb,4.5601e-03_rb,5.6445e-03_rb, &\n     &6.7084e-03_rb,7.7027e-03_rb,8.9288e-03_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &4.9517e-03_rb,4.3316e-03_rb,4.1416e-03_rb,5.5566e-03_rb,7.3222e-03_rb,9.0762e-03_rb, &\n     &1.0805e-02_rb,1.2425e-02_rb,1.4409e-02_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &3.6157e-03_rb,3.1633e-03_rb,5.3630e-03_rb,8.3885e-03_rb,1.1080e-02_rb,1.3756e-02_rb, &\n     &1.6391e-02_rb,1.8868e-02_rb,2.1878e-02_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &2.5485e-03_rb,3.2448e-03_rb,8.0168e-03_rb,1.2065e-02_rb,1.5959e-02_rb,1.9835e-02_rb, &\n     &2.3656e-02_rb,2.7245e-02_rb,3.1588e-02_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &2.2002e-03_rb,3.7004e-03_rb,1.1229e-02_rb,1.6648e-02_rb,2.2051e-02_rb,2.7414e-02_rb, &\n     &3.2714e-02_rb,3.7713e-02_rb,4.3725e-02_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &1.3785e-02_rb,1.2061e-02_rb,1.0339e-02_rb,8.6158e-03_rb,6.8942e-03_rb,5.5266e-03_rb, &\n     &5.3843e-03_rb,6.1361e-03_rb,7.0081e-03_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &1.3401e-02_rb,1.1726e-02_rb,1.0052e-02_rb,8.3774e-03_rb,7.3256e-03_rb,7.6626e-03_rb, &\n     &8.9483e-03_rb,1.0302e-02_rb,1.1787e-02_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &1.3001e-02_rb,1.1375e-02_rb,9.7516e-03_rb,8.8385e-03_rb,9.7753e-03_rb,1.1803e-02_rb, &\n     &1.4015e-02_rb,1.6165e-02_rb,1.8521e-02_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &1.0311e-02_rb,9.0242e-03_rb,7.7593e-03_rb,9.8758e-03_rb,1.4142e-02_rb,1.7458e-02_rb, &\n     &2.0764e-02_rb,2.3987e-02_rb,2.7500e-02_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &6.1007e-03_rb,5.3334e-03_rb,8.4379e-03_rb,1.3947e-02_rb,1.9967e-02_rb,2.4665e-02_rb, &\n     &2.9359e-02_rb,3.3960e-02_rb,3.8947e-02_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &3.9607e-02_rb,3.4655e-02_rb,2.9704e-02_rb,2.4754e-02_rb,1.9804e-02_rb,1.4853e-02_rb, &\n     &9.9024e-03_rb,5.6087e-03_rb,4.7437e-03_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &3.8786e-02_rb,3.3939e-02_rb,2.9089e-02_rb,2.4244e-02_rb,1.9395e-02_rb,1.4546e-02_rb, &\n     &1.0087e-02_rb,8.3483e-03_rb,8.1480e-03_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &3.7941e-02_rb,3.3203e-02_rb,2.8458e-02_rb,2.3715e-02_rb,1.8973e-02_rb,1.4624e-02_rb, &\n     &1.2669e-02_rb,1.3455e-02_rb,1.2971e-02_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &3.7052e-02_rb,3.2423e-02_rb,2.7792e-02_rb,2.3160e-02_rb,1.8933e-02_rb,1.7157e-02_rb, &\n     &1.8083e-02_rb,2.0593e-02_rb,1.9406e-02_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &3.1592e-02_rb,2.7646e-02_rb,2.3693e-02_rb,2.0299e-02_rb,1.8491e-02_rb,2.1228e-02_rb, &\n     &2.6244e-02_rb,2.9985e-02_rb,2.7520e-02_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &1.4580e-01_rb,1.2758e-01_rb,1.0936e-01_rb,9.1128e-02_rb,7.2910e-02_rb,5.4675e-02_rb, &\n     &3.6454e-02_rb,1.8228e-02_rb,7.5823e-04_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &1.4341e-01_rb,1.2548e-01_rb,1.0755e-01_rb,8.9631e-02_rb,7.1703e-02_rb,5.3780e-02_rb, &\n     &3.5854e-02_rb,1.7928e-02_rb,1.3701e-03_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &1.4083e-01_rb,1.2323e-01_rb,1.0562e-01_rb,8.8019e-02_rb,7.0413e-02_rb,5.2809e-02_rb, &\n     &3.5210e-02_rb,1.8039e-02_rb,2.2984e-03_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &1.3806e-01_rb,1.2080e-01_rb,1.0354e-01_rb,8.6290e-02_rb,6.9028e-02_rb,5.1771e-02_rb, &\n     &3.4515e-02_rb,2.0878e-02_rb,3.6182e-03_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &1.3508e-01_rb,1.1820e-01_rb,1.0132e-01_rb,8.4431e-02_rb,6.7546e-02_rb,5.0657e-02_rb, &\n     &3.5330e-02_rb,2.7298e-02_rb,5.3909e-03_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &1.0374e+00_rb,9.0767e-01_rb,7.7802e-01_rb,6.4832e-01_rb,5.1864e-01_rb,3.8900e-01_rb, &\n     &2.5933e-01_rb,1.2966e-01_rb,2.1397e-06_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &1.0197e+00_rb,8.9224e-01_rb,7.6478e-01_rb,6.3733e-01_rb,5.0988e-01_rb,3.8239e-01_rb, &\n     &2.5493e-01_rb,1.2747e-01_rb,3.4826e-06_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &1.0031e+00_rb,8.7777e-01_rb,7.5240e-01_rb,6.2700e-01_rb,5.0158e-01_rb,3.7619e-01_rb, &\n     &2.5081e-01_rb,1.2540e-01_rb,5.6811e-06_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &9.8558e-01_rb,8.6233e-01_rb,7.3918e-01_rb,6.1597e-01_rb,4.9277e-01_rb,3.6960e-01_rb, &\n     &2.4641e-01_rb,1.2320e-01_rb,9.7907e-06_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &9.6612e-01_rb,8.4542e-01_rb,7.2465e-01_rb,6.0387e-01_rb,4.8310e-01_rb,3.6231e-01_rb, &\n     &2.4155e-01_rb,1.2077e-01_rb,1.4737e-05_rb/)\n      kao(:, 1,10,15) = (/ &\n     &8.9111e+00_rb,7.7969e+00_rb,6.6836e+00_rb,5.5691e+00_rb,4.4554e+00_rb,3.3414e+00_rb, &\n     &2.2275e+00_rb,1.1138e+00_rb,1.1507e-06_rb/)\n      kao(:, 2,10,15) = (/ &\n     &8.7649e+00_rb,7.6684e+00_rb,6.5728e+00_rb,5.4777e+00_rb,4.3822e+00_rb,3.2866e+00_rb, &\n     &2.1910e+00_rb,1.0955e+00_rb,1.9584e-06_rb/)\n      kao(:, 3,10,15) = (/ &\n     &8.6133e+00_rb,7.5361e+00_rb,6.4598e+00_rb,5.3829e+00_rb,4.3064e+00_rb,3.2299e+00_rb, &\n     &2.1532e+00_rb,1.0766e+00_rb,3.2367e-06_rb/)\n      kao(:, 4,10,15) = (/ &\n     &8.4534e+00_rb,7.3969e+00_rb,6.3406e+00_rb,5.2836e+00_rb,4.2270e+00_rb,3.1701e+00_rb, &\n     &2.1135e+00_rb,1.0568e+00_rb,5.5316e-06_rb/)\n      kao(:, 5,10,15) = (/ &\n     &8.2801e+00_rb,7.2444e+00_rb,6.2095e+00_rb,5.1748e+00_rb,4.1398e+00_rb,3.1049e+00_rb, &\n     &2.0699e+00_rb,1.0350e+00_rb,8.6177e-06_rb/)\n      kao(:, 1,11,15) = (/ &\n     &2.5435e+01_rb,2.2258e+01_rb,1.9079e+01_rb,1.5898e+01_rb,1.2719e+01_rb,9.5392e+00_rb, &\n     &6.3596e+00_rb,3.1798e+00_rb,8.0677e-07_rb/)\n      kao(:, 2,11,15) = (/ &\n     &2.5109e+01_rb,2.1970e+01_rb,1.8832e+01_rb,1.5693e+01_rb,1.2554e+01_rb,9.4153e+00_rb, &\n     &6.2771e+00_rb,3.1385e+00_rb,1.4119e-06_rb/)\n      kao(:, 3,11,15) = (/ &\n     &2.4708e+01_rb,2.1620e+01_rb,1.8532e+01_rb,1.5442e+01_rb,1.2355e+01_rb,9.2660e+00_rb, &\n     &6.1771e+00_rb,3.0885e+00_rb,2.4283e-06_rb/)\n      kao(:, 4,11,15) = (/ &\n     &2.4206e+01_rb,2.1181e+01_rb,1.8155e+01_rb,1.5130e+01_rb,1.2103e+01_rb,9.0784e+00_rb, &\n     &6.0520e+00_rb,3.0256e+00_rb,3.8467e-06_rb/)\n      kao(:, 5,11,15) = (/ &\n     &2.3645e+01_rb,2.0690e+01_rb,1.7735e+01_rb,1.4778e+01_rb,1.1822e+01_rb,8.8671e+00_rb, &\n     &5.9114e+00_rb,2.9557e+00_rb,6.2945e-06_rb/)\n      kao(:, 1,12,15) = (/ &\n     &4.5821e+01_rb,4.0093e+01_rb,3.4365e+01_rb,2.8640e+01_rb,2.2910e+01_rb,1.7183e+01_rb, &\n     &1.1455e+01_rb,5.7277e+00_rb,5.6905e-07_rb/)\n      kao(:, 2,12,15) = (/ &\n     &4.5215e+01_rb,3.9561e+01_rb,3.3912e+01_rb,2.8260e+01_rb,2.2608e+01_rb,1.6955e+01_rb, &\n     &1.1304e+01_rb,5.6520e+00_rb,1.0466e-06_rb/)\n      kao(:, 3,12,15) = (/ &\n     &4.4441e+01_rb,3.8886e+01_rb,3.3332e+01_rb,2.7776e+01_rb,2.2220e+01_rb,1.6665e+01_rb, &\n     &1.1110e+01_rb,5.5552e+00_rb,1.8066e-06_rb/)\n      kao(:, 4,12,15) = (/ &\n     &4.3598e+01_rb,3.8150e+01_rb,3.2698e+01_rb,2.7250e+01_rb,2.1798e+01_rb,1.6350e+01_rb, &\n     &1.0900e+01_rb,5.4499e+00_rb,2.8751e-06_rb/)\n      kao(:, 5,12,15) = (/ &\n     &4.2666e+01_rb,3.7332e+01_rb,3.2000e+01_rb,2.6665e+01_rb,2.1333e+01_rb,1.6001e+01_rb, &\n     &1.0666e+01_rb,5.3333e+00_rb,4.5303e-06_rb/)\n      kao(:, 1,13,15) = (/ &\n     &6.6305e+01_rb,5.8017e+01_rb,4.9731e+01_rb,4.1443e+01_rb,3.3153e+01_rb,2.4866e+01_rb, &\n     &1.6576e+01_rb,8.2888e+00_rb,6.5868e-07_rb/)\n      kao(:, 2,13,15) = (/ &\n     &6.5425e+01_rb,5.7245e+01_rb,4.9068e+01_rb,4.0889e+01_rb,3.2711e+01_rb,2.4534e+01_rb, &\n     &1.6356e+01_rb,8.1783e+00_rb,1.0770e-06_rb/)\n      kao(:, 3,13,15) = (/ &\n     &6.4452e+01_rb,5.6397e+01_rb,4.8336e+01_rb,4.0283e+01_rb,3.2227e+01_rb,2.4169e+01_rb, &\n     &1.6113e+01_rb,8.0564e+00_rb,1.3521e-06_rb/)\n      kao(:, 4,13,15) = (/ &\n     &6.3313e+01_rb,5.5397e+01_rb,4.7486e+01_rb,3.9571e+01_rb,3.1655e+01_rb,2.3741e+01_rb, &\n     &1.5828e+01_rb,7.9140e+00_rb,2.2152e-06_rb/)\n      kao(:, 5,13,15) = (/ &\n     &6.1963e+01_rb,5.4219e+01_rb,4.6473e+01_rb,3.8726e+01_rb,3.0982e+01_rb,2.3236e+01_rb, &\n     &1.5490e+01_rb,7.7450e+00_rb,3.4066e-06_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &8.8773e-05_rb,1.9140e-03_rb,3.7690e-03_rb,5.5469e-03_rb,7.2016e-03_rb,8.6351e-03_rb, &\n     &9.6093e-03_rb,9.3558e-03_rb,1.4394e-02_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &8.4216e-05_rb,2.7660e-03_rb,5.4492e-03_rb,8.0218e-03_rb,1.0416e-02_rb,1.2486e-02_rb, &\n     &1.3893e-02_rb,1.3527e-02_rb,2.0822e-02_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &8.0290e-05_rb,3.8383e-03_rb,7.5630e-03_rb,1.1136e-02_rb,1.4457e-02_rb,1.7334e-02_rb, &\n     &1.9290e-02_rb,1.8781e-02_rb,2.8902e-02_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &7.6611e-05_rb,5.1452e-03_rb,1.0139e-02_rb,1.4930e-02_rb,1.9392e-02_rb,2.3248e-02_rb, &\n     &2.5870e-02_rb,2.5185e-02_rb,3.8771e-02_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &7.3163e-05_rb,6.6935e-03_rb,1.3197e-02_rb,1.9435e-02_rb,2.5235e-02_rb,3.0263e-02_rb, &\n     &3.3675e-02_rb,3.2771e-02_rb,5.0455e-02_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &1.5679e-04_rb,1.9888e-03_rb,3.9277e-03_rb,5.8149e-03_rb,7.6126e-03_rb,9.2475e-03_rb, &\n     &1.0521e-02_rb,1.0714e-02_rb,1.5210e-02_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &1.4773e-04_rb,2.9274e-03_rb,5.7862e-03_rb,8.5677e-03_rb,1.1217e-02_rb,1.3627e-02_rb, &\n     &1.5504e-02_rb,1.5787e-02_rb,2.2417e-02_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &1.4025e-04_rb,4.1262e-03_rb,8.1606e-03_rb,1.2085e-02_rb,1.5823e-02_rb,1.9223e-02_rb, &\n     &2.1876e-02_rb,2.2273e-02_rb,3.1626e-02_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &1.3354e-04_rb,5.6053e-03_rb,1.1089e-02_rb,1.6429e-02_rb,2.1516e-02_rb,2.6138e-02_rb, &\n     &2.9742e-02_rb,3.0283e-02_rb,4.3010e-02_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &1.2725e-04_rb,7.3793e-03_rb,1.4605e-02_rb,2.1632e-02_rb,2.8334e-02_rb,3.4423e-02_rb, &\n     &3.9175e-02_rb,3.9879e-02_rb,5.6642e-02_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &4.1725e-04_rb,1.8982e-03_rb,3.7447e-03_rb,5.5658e-03_rb,7.3458e-03_rb,9.0433e-03_rb, &\n     &1.0548e-02_rb,1.1397e-02_rb,1.4655e-02_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &3.9098e-04_rb,2.8734e-03_rb,5.6787e-03_rb,8.4482e-03_rb,1.1153e-02_rb,1.3733e-02_rb, &\n     &1.6021e-02_rb,1.7312e-02_rb,2.2262e-02_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &3.4851e-04_rb,4.1474e-03_rb,8.2100e-03_rb,1.2218e-02_rb,1.6131e-02_rb,1.9869e-02_rb, &\n     &2.3184e-02_rb,2.5055e-02_rb,3.2211e-02_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &3.3110e-04_rb,5.7507e-03_rb,1.1396e-02_rb,1.6965e-02_rb,2.2409e-02_rb,2.7601e-02_rb, &\n     &3.2208e-02_rb,3.4575e-02_rb,4.4760e-02_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &3.1495e-04_rb,7.7054e-03_rb,1.5281e-02_rb,2.2758e-02_rb,3.0062e-02_rb,3.7025e-02_rb, &\n     &4.3208e-02_rb,4.6704e-02_rb,6.0059e-02_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &1.7281e-03_rb,1.7667e-03_rb,3.4371e-03_rb,5.0959e-03_rb,6.7367e-03_rb,8.3430e-03_rb, &\n     &9.8600e-03_rb,1.1050e-02_rb,1.3383e-02_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &1.1628e-03_rb,2.7537e-03_rb,5.3881e-03_rb,8.0069e-03_rb,1.0596e-02_rb,1.3125e-02_rb, &\n     &1.5518e-02_rb,1.7399e-02_rb,2.1083e-02_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &1.1124e-03_rb,4.0786e-03_rb,8.0137e-03_rb,1.1921e-02_rb,1.5788e-02_rb,1.9566e-02_rb, &\n     &2.3141e-02_rb,2.5952e-02_rb,3.1447e-02_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &1.0810e-03_rb,5.7837e-03_rb,1.1394e-02_rb,1.6970e-02_rb,2.2483e-02_rb,2.7876e-02_rb, &\n     &3.2974e-02_rb,3.6985e-02_rb,4.4815e-02_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &9.9376e-04_rb,7.9012e-03_rb,1.5599e-02_rb,2.3249e-02_rb,3.0813e-02_rb,3.8207e-02_rb, &\n     &4.5202e-02_rb,5.0705e-02_rb,6.1455e-02_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &5.4114e-03_rb,4.7354e-03_rb,4.0587e-03_rb,4.6142e-03_rb,6.0695e-03_rb,7.5080e-03_rb, &\n     &8.9059e-03_rb,1.0147e-02_rb,1.1928e-02_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &5.1867e-03_rb,4.5542e-03_rb,5.0981e-03_rb,7.5059e-03_rb,9.9017e-03_rb,1.2267e-02_rb, &\n     &1.4567e-02_rb,1.6610e-02_rb,1.9542e-02_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &3.0269e-03_rb,2.6488e-03_rb,7.7938e-03_rb,1.1517e-02_rb,1.5221e-02_rb,1.8876e-02_rb, &\n     &2.2431e-02_rb,2.5594e-02_rb,3.0125e-02_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &2.9184e-03_rb,2.5534e-03_rb,1.1353e-02_rb,1.6816e-02_rb,2.2248e-02_rb,2.7623e-02_rb, &\n     &3.2847e-02_rb,3.7486e-02_rb,4.4122e-02_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &2.8186e-03_rb,8.1567e-03_rb,1.5865e-02_rb,2.3545e-02_rb,3.1185e-02_rb,3.8732e-02_rb, &\n     &4.6076e-02_rb,5.2599e-02_rb,6.1936e-02_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &1.4590e-02_rb,1.2765e-02_rb,1.0941e-02_rb,9.1186e-03_rb,7.2947e-03_rb,6.5373e-03_rb, &\n     &7.7212e-03_rb,8.8306e-03_rb,1.0195e-02_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &1.4301e-02_rb,1.2513e-02_rb,1.0724e-02_rb,8.9392e-03_rb,9.0428e-03_rb,1.1132e-02_rb, &\n     &1.3188e-02_rb,1.5117e-02_rb,1.7482e-02_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &1.3976e-02_rb,1.2228e-02_rb,1.0485e-02_rb,1.0970e-02_rb,1.4363e-02_rb,1.7735e-02_rb, &\n     &2.1052e-02_rb,2.4167e-02_rb,2.7980e-02_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &7.5839e-03_rb,6.6346e-03_rb,9.3364e-03_rb,1.6444e-02_rb,2.1598e-02_rb,2.6720e-02_rb, &\n     &3.1771e-02_rb,3.6510e-02_rb,4.2297e-02_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &7.3499e-03_rb,6.4297e-03_rb,1.6063e-02_rb,2.3546e-02_rb,3.1010e-02_rb,3.8427e-02_rb, &\n     &4.5729e-02_rb,5.2589e-02_rb,6.0961e-02_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &4.2002e-02_rb,3.6747e-02_rb,3.1501e-02_rb,2.6251e-02_rb,2.1002e-02_rb,1.5754e-02_rb, &\n     &1.0500e-02_rb,7.5058e-03_rb,8.4905e-03_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &4.1348e-02_rb,3.6182e-02_rb,3.1017e-02_rb,2.5842e-02_rb,2.0675e-02_rb,1.5509e-02_rb, &\n     &1.1819e-02_rb,1.3466e-02_rb,1.5310e-02_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &4.0563e-02_rb,3.5489e-02_rb,3.0424e-02_rb,2.5351e-02_rb,2.0286e-02_rb,1.6643e-02_rb, &\n     &1.9563e-02_rb,2.2386e-02_rb,2.5539e-02_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &3.9401e-02_rb,3.4717e-02_rb,2.9752e-02_rb,2.4793e-02_rb,2.1115e-02_rb,2.5798e-02_rb, &\n     &3.0449e-02_rb,3.4941e-02_rb,3.9945e-02_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &2.0373e-02_rb,1.7827e-02_rb,1.5278e-02_rb,1.2733e-02_rb,3.0987e-02_rb,3.8017e-02_rb, &\n     &4.4987e-02_rb,5.1736e-02_rb,5.9242e-02_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &1.5400e-01_rb,1.3474e-01_rb,1.1553e-01_rb,9.6239e-02_rb,7.7005e-02_rb,5.7761e-02_rb, &\n     &3.8504e-02_rb,1.9252e-02_rb,6.9298e-03_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &1.5231e-01_rb,1.3330e-01_rb,1.1425e-01_rb,9.5219e-02_rb,7.6158e-02_rb,5.7117e-02_rb, &\n     &3.8082e-02_rb,1.9041e-02_rb,1.3109e-02_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &1.4996e-01_rb,1.3122e-01_rb,1.1247e-01_rb,9.3714e-02_rb,7.4984e-02_rb,5.6235e-02_rb, &\n     &3.7492e-02_rb,2.0794e-02_rb,2.1673e-02_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &1.4710e-01_rb,1.2871e-01_rb,1.1034e-01_rb,9.1947e-02_rb,7.3562e-02_rb,5.5161e-02_rb, &\n     &3.6783e-02_rb,3.3457e-02_rb,3.2749e-02_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &1.4389e-01_rb,1.2590e-01_rb,1.0792e-01_rb,8.9927e-02_rb,7.1955e-02_rb,5.3965e-02_rb, &\n     &4.4963e-02_rb,5.0849e-02_rb,4.4095e-02_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &1.0859e+00_rb,9.5014e-01_rb,8.1454e-01_rb,6.7879e-01_rb,5.4303e-01_rb,4.0724e-01_rb, &\n     &2.7149e-01_rb,1.3574e-01_rb,5.1220e-06_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &1.0768e+00_rb,9.4216e-01_rb,8.0759e-01_rb,6.7299e-01_rb,5.3840e-01_rb,4.0381e-01_rb, &\n     &2.6917e-01_rb,1.3460e-01_rb,1.2021e-05_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &1.0636e+00_rb,9.3068e-01_rb,7.9788e-01_rb,6.6477e-01_rb,5.3197e-01_rb,3.9888e-01_rb, &\n     &2.6599e-01_rb,1.3299e-01_rb,2.0747e-05_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &1.0462e+00_rb,9.1536e-01_rb,7.8477e-01_rb,6.5394e-01_rb,5.2317e-01_rb,3.9241e-01_rb, &\n     &2.6164e-01_rb,1.3081e-01_rb,2.6757e-05_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &1.0256e+00_rb,8.9712e-01_rb,7.6891e-01_rb,6.4089e-01_rb,5.1277e-01_rb,3.8454e-01_rb, &\n     &2.5635e-01_rb,1.2820e-01_rb,3.3237e-05_rb/)\n      kao(:, 1,10,16) = (/ &\n     &9.2943e+00_rb,8.1330e+00_rb,6.9713e+00_rb,5.8089e+00_rb,4.6478e+00_rb,3.4621e+00_rb, &\n     &2.3237e+00_rb,1.1620e+00_rb,2.5199e-06_rb/)\n      kao(:, 2,10,16) = (/ &\n     &9.1327e+00_rb,7.9905e+00_rb,6.8491e+00_rb,5.7077e+00_rb,4.5656e+00_rb,3.4245e+00_rb, &\n     &2.2832e+00_rb,1.1416e+00_rb,6.1820e-06_rb/)\n      kao(:, 3,10,16) = (/ &\n     &9.0419e+00_rb,7.9114e+00_rb,6.7812e+00_rb,5.6501e+00_rb,4.5208e+00_rb,3.3897e+00_rb, &\n     &2.2603e+00_rb,1.1303e+00_rb,1.2253e-05_rb/)\n      kao(:, 4,10,16) = (/ &\n     &8.9128e+00_rb,7.7986e+00_rb,6.6845e+00_rb,5.5708e+00_rb,4.4561e+00_rb,3.3428e+00_rb, &\n     &2.2285e+00_rb,1.1142e+00_rb,1.7974e-05_rb/)\n      kao(:, 5,10,16) = (/ &\n     &8.7796e+00_rb,7.6831e+00_rb,6.5851e+00_rb,5.4876e+00_rb,4.3892e+00_rb,3.2921e+00_rb, &\n     &2.1948e+00_rb,1.0975e+00_rb,2.4232e-05_rb/)\n      kao(:, 1,11,16) = (/ &\n     &2.7588e+01_rb,2.4141e+01_rb,2.0693e+01_rb,1.7244e+01_rb,1.3795e+01_rb,1.0345e+01_rb, &\n     &6.8978e+00_rb,3.4484e+00_rb,2.0595e-06_rb/)\n      kao(:, 2,11,16) = (/ &\n     &2.6657e+01_rb,2.3323e+01_rb,1.9991e+01_rb,1.6660e+01_rb,1.3327e+01_rb,9.9952e+00_rb, &\n     &6.6638e+00_rb,3.3322e+00_rb,4.7312e-06_rb/)\n      kao(:, 3,11,16) = (/ &\n     &2.5989e+01_rb,2.2740e+01_rb,1.9493e+01_rb,1.6242e+01_rb,1.2994e+01_rb,9.7462e+00_rb, &\n     &6.4977e+00_rb,3.2488e+00_rb,8.7718e-06_rb/)\n      kao(:, 4,11,16) = (/ &\n     &2.5704e+01_rb,2.2492e+01_rb,1.9279e+01_rb,1.6066e+01_rb,1.2854e+01_rb,9.6403e+00_rb, &\n     &6.4266e+00_rb,3.2130e+00_rb,1.4050e-05_rb/)\n      kao(:, 5,11,16) = (/ &\n     &2.5636e+01_rb,2.2431e+01_rb,1.9229e+01_rb,1.6023e+01_rb,1.2819e+01_rb,9.6138e+00_rb, &\n     &6.4100e+00_rb,3.2046e+00_rb,1.9441e-05_rb/)\n      kao(:, 1,12,16) = (/ &\n     &5.2064e+01_rb,4.5551e+01_rb,3.9046e+01_rb,3.2542e+01_rb,2.6032e+01_rb,1.9524e+01_rb, &\n     &1.3016e+01_rb,6.5078e+00_rb,1.7091e-06_rb/)\n      kao(:, 2,12,16) = (/ &\n     &5.0183e+01_rb,4.3912e+01_rb,3.7638e+01_rb,3.1363e+01_rb,2.5091e+01_rb,1.8819e+01_rb, &\n     &1.2545e+01_rb,6.2729e+00_rb,3.7298e-06_rb/)\n      kao(:, 3,12,16) = (/ &\n     &4.8961e+01_rb,4.2840e+01_rb,3.6719e+01_rb,3.0598e+01_rb,2.4478e+01_rb,1.8358e+01_rb, &\n     &1.2239e+01_rb,6.1197e+00_rb,6.4267e-06_rb/)\n      kao(:, 4,12,16) = (/ &\n     &4.8192e+01_rb,4.2165e+01_rb,3.6143e+01_rb,3.0118e+01_rb,2.4096e+01_rb,1.8071e+01_rb, &\n     &1.2047e+01_rb,6.0236e+00_rb,1.0438e-05_rb/)\n      kao(:, 5,12,16) = (/ &\n     &4.7950e+01_rb,4.1951e+01_rb,3.5955e+01_rb,2.9964e+01_rb,2.3968e+01_rb,1.7977e+01_rb, &\n     &1.1985e+01_rb,5.9924e+00_rb,1.5532e-05_rb/)\n      kao(:, 1,13,16) = (/ &\n     &7.9237e+01_rb,6.9320e+01_rb,5.9418e+01_rb,4.9515e+01_rb,3.9615e+01_rb,2.9712e+01_rb, &\n     &1.9806e+01_rb,9.9046e+00_rb,1.3997e-06_rb/)\n      kao(:, 2,13,16) = (/ &\n     &7.6481e+01_rb,6.6913e+01_rb,5.7358e+01_rb,4.7795e+01_rb,3.8238e+01_rb,2.8679e+01_rb, &\n     &1.9119e+01_rb,9.5593e+00_rb,2.8864e-06_rb/)\n      kao(:, 3,13,16) = (/ &\n     &7.4663e+01_rb,6.5336e+01_rb,5.5998e+01_rb,4.6664e+01_rb,3.7331e+01_rb,2.7999e+01_rb, &\n     &1.8666e+01_rb,9.3324e+00_rb,4.8512e-06_rb/)\n      kao(:, 4,13,16) = (/ &\n     &7.3334e+01_rb,6.4170e+01_rb,5.5002e+01_rb,4.5830e+01_rb,3.6668e+01_rb,2.7499e+01_rb, &\n     &1.8332e+01_rb,9.1667e+00_rb,7.8505e-06_rb/)\n      kao(:, 5,13,16) = (/ &\n     &7.2543e+01_rb,6.3471e+01_rb,5.4398e+01_rb,4.5335e+01_rb,3.6267e+01_rb,2.7201e+01_rb, &\n     &1.8133e+01_rb,9.0671e+00_rb,1.1235e-05_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &6.2747e-02_rb,8.6102e-02_rb,1.1568e-01_rb,1.5208e-01_rb,1.9535e-01_rb/)\n      kbo(:,14, 1) = (/ &\n     &5.7861e-02_rb,7.9151e-02_rb,1.0594e-01_rb,1.3846e-01_rb,1.7643e-01_rb/)\n      kbo(:,15, 1) = (/ &\n     &5.3092e-02_rb,7.2482e-02_rb,9.6781e-02_rb,1.2588e-01_rb,1.5918e-01_rb/)\n      kbo(:,16, 1) = (/ &\n     &4.8457e-02_rb,6.6047e-02_rb,8.7760e-02_rb,1.1351e-01_rb,1.4288e-01_rb/)\n      kbo(:,17, 1) = (/ &\n     &4.3912e-02_rb,5.9676e-02_rb,7.8923e-02_rb,1.0151e-01_rb,1.2709e-01_rb/)\n      kbo(:,18, 1) = (/ &\n     &3.9426e-02_rb,5.3365e-02_rb,7.0341e-02_rb,8.9953e-02_rb,1.1230e-01_rb/)\n      kbo(:,19, 1) = (/ &\n     &3.5046e-02_rb,4.7312e-02_rb,6.2046e-02_rb,7.9063e-02_rb,9.8334e-02_rb/)\n      kbo(:,20, 1) = (/ &\n     &3.1115e-02_rb,4.1839e-02_rb,5.4636e-02_rb,6.9407e-02_rb,8.5975e-02_rb/)\n      kbo(:,21, 1) = (/ &\n     &2.7465e-02_rb,3.6785e-02_rb,4.7830e-02_rb,6.0600e-02_rb,7.4770e-02_rb/)\n      kbo(:,22, 1) = (/ &\n     &2.4593e-02_rb,3.2747e-02_rb,4.2384e-02_rb,5.3412e-02_rb,6.5545e-02_rb/)\n      kbo(:,23, 1) = (/ &\n     &2.1937e-02_rb,2.9046e-02_rb,3.7411e-02_rb,4.6873e-02_rb,5.7167e-02_rb/)\n      kbo(:,24, 1) = (/ &\n     &1.9516e-02_rb,2.5711e-02_rb,3.2910e-02_rb,4.0910e-02_rb,4.9576e-02_rb/)\n      kbo(:,25, 1) = (/ &\n     &1.7347e-02_rb,2.2706e-02_rb,2.8823e-02_rb,3.5568e-02_rb,4.2803e-02_rb/)\n      kbo(:,26, 1) = (/ &\n     &1.5431e-02_rb,2.0022e-02_rb,2.5209e-02_rb,3.0861e-02_rb,3.6863e-02_rb/)\n      kbo(:,27, 1) = (/ &\n     &1.3676e-02_rb,1.7588e-02_rb,2.1954e-02_rb,2.6656e-02_rb,3.1628e-02_rb/)\n      kbo(:,28, 1) = (/ &\n     &1.2072e-02_rb,1.5389e-02_rb,1.9040e-02_rb,2.2944e-02_rb,2.7092e-02_rb/)\n      kbo(:,29, 1) = (/ &\n     &1.0638e-02_rb,1.3440e-02_rb,1.6483e-02_rb,1.9764e-02_rb,2.3215e-02_rb/)\n      kbo(:,30, 1) = (/ &\n     &9.3452e-03_rb,1.1695e-02_rb,1.4256e-02_rb,1.7011e-02_rb,1.9889e-02_rb/)\n      kbo(:,31, 1) = (/ &\n     &8.1958e-03_rb,1.0179e-02_rb,1.2343e-02_rb,1.4653e-02_rb,1.7063e-02_rb/)\n      kbo(:,32, 1) = (/ &\n     &7.1787e-03_rb,8.8627e-03_rb,1.0685e-02_rb,1.2626e-02_rb,1.4630e-02_rb/)\n      kbo(:,33, 1) = (/ &\n     &6.2851e-03_rb,7.7078e-03_rb,9.2476e-03_rb,1.0876e-02_rb,1.2551e-02_rb/)\n      kbo(:,34, 1) = (/ &\n     &5.4503e-03_rb,6.6513e-03_rb,7.9437e-03_rb,9.3044e-03_rb,1.0718e-02_rb/)\n      kbo(:,35, 1) = (/ &\n     &4.6286e-03_rb,5.6362e-03_rb,6.7164e-03_rb,7.8605e-03_rb,9.0307e-03_rb/)\n      kbo(:,36, 1) = (/ &\n     &3.8439e-03_rb,4.6777e-03_rb,5.5784e-03_rb,6.5325e-03_rb,7.4907e-03_rb/)\n      kbo(:,37, 1) = (/ &\n     &3.0907e-03_rb,3.7733e-03_rb,4.5151e-03_rb,5.2952e-03_rb,6.0875e-03_rb/)\n      kbo(:,38, 1) = (/ &\n     &2.4803e-03_rb,3.0385e-03_rb,3.6485e-03_rb,4.2895e-03_rb,4.9493e-03_rb/)\n      kbo(:,39, 1) = (/ &\n     &1.9914e-03_rb,2.4489e-03_rb,2.9506e-03_rb,3.4809e-03_rb,4.0250e-03_rb/)\n      kbo(:,40, 1) = (/ &\n     &1.5591e-03_rb,1.9289e-03_rb,2.3368e-03_rb,2.7699e-03_rb,3.2181e-03_rb/)\n      kbo(:,41, 1) = (/ &\n     &1.2156e-03_rb,1.5132e-03_rb,1.8431e-03_rb,2.1975e-03_rb,2.5662e-03_rb/)\n      kbo(:,42, 1) = (/ &\n     &9.4642e-04_rb,1.1860e-03_rb,1.4531e-03_rb,1.7422e-03_rb,2.0436e-03_rb/)\n      kbo(:,43, 1) = (/ &\n     &7.2576e-04_rb,9.1670e-04_rb,1.1319e-03_rb,1.3659e-03_rb,1.6136e-03_rb/)\n      kbo(:,44, 1) = (/ &\n     &5.5191e-04_rb,7.0339e-04_rb,8.7651e-04_rb,1.0654e-03_rb,1.2677e-03_rb/)\n      kbo(:,45, 1) = (/ &\n     &4.1864e-04_rb,5.3928e-04_rb,6.7793e-04_rb,8.3043e-04_rb,9.9568e-04_rb/)\n      kbo(:,46, 1) = (/ &\n     &3.1490e-04_rb,4.0992e-04_rb,5.2032e-04_rb,6.4322e-04_rb,7.7812e-04_rb/)\n      kbo(:,47, 1) = (/ &\n     &2.3273e-04_rb,3.0659e-04_rb,3.9375e-04_rb,4.9208e-04_rb,6.0088e-04_rb/)\n      kbo(:,48, 1) = (/ &\n     &1.7128e-04_rb,2.2854e-04_rb,2.9725e-04_rb,3.7557e-04_rb,4.6327e-04_rb/)\n      kbo(:,49, 1) = (/ &\n     &1.2553e-04_rb,1.6987e-04_rb,2.2375e-04_rb,2.8623e-04_rb,3.5677e-04_rb/)\n      kbo(:,50, 1) = (/ &\n     &9.2117e-05_rb,1.2634e-04_rb,1.6842e-04_rb,2.1802e-04_rb,2.7404e-04_rb/)\n      kbo(:,51, 1) = (/ &\n     &6.7482e-05_rb,9.3783e-05_rb,1.2646e-04_rb,1.6541e-04_rb,2.1004e-04_rb/)\n      kbo(:,52, 1) = (/ &\n     &4.9294e-05_rb,6.9377e-05_rb,9.4622e-05_rb,1.2516e-04_rb,1.6083e-04_rb/)\n      kbo(:,53, 1) = (/ &\n     &3.5898e-05_rb,5.1131e-05_rb,7.0555e-05_rb,9.4518e-05_rb,1.2315e-04_rb/)\n      kbo(:,54, 1) = (/ &\n     &2.6237e-05_rb,3.7710e-05_rb,5.2593e-05_rb,7.1209e-05_rb,9.3663e-05_rb/)\n      kbo(:,55, 1) = (/ &\n     &1.9162e-05_rb,2.7753e-05_rb,3.9112e-05_rb,5.3467e-05_rb,7.0840e-05_rb/)\n      kbo(:,56, 1) = (/ &\n     &1.3954e-05_rb,2.0386e-05_rb,2.8986e-05_rb,3.9982e-05_rb,5.3468e-05_rb/)\n      kbo(:,57, 1) = (/ &\n     &1.0137e-05_rb,1.4950e-05_rb,2.1433e-05_rb,2.9844e-05_rb,4.0285e-05_rb/)\n      kbo(:,58, 1) = (/ &\n     &7.3955e-06_rb,1.0988e-05_rb,1.5849e-05_rb,2.2304e-05_rb,3.0355e-05_rb/)\n      kbo(:,59, 1) = (/ &\n     &5.7756e-06_rb,8.5841e-06_rb,1.2417e-05_rb,1.7454e-05_rb,2.3825e-05_rb/)\n      kbo(:,13, 2) = (/ &\n     &2.8941e-01_rb,3.7928e-01_rb,4.8728e-01_rb,6.1356e-01_rb,7.5720e-01_rb/)\n      kbo(:,14, 2) = (/ &\n     &2.7482e-01_rb,3.5907e-01_rb,4.5923e-01_rb,5.7444e-01_rb,7.0479e-01_rb/)\n      kbo(:,15, 2) = (/ &\n     &2.6012e-01_rb,3.3844e-01_rb,4.3050e-01_rb,5.3565e-01_rb,6.5360e-01_rb/)\n      kbo(:,16, 2) = (/ &\n     &2.4469e-01_rb,3.1749e-01_rb,4.0174e-01_rb,4.9749e-01_rb,6.0352e-01_rb/)\n      kbo(:,17, 2) = (/ &\n     &2.2805e-01_rb,2.9482e-01_rb,3.7163e-01_rb,4.5800e-01_rb,5.5300e-01_rb/)\n      kbo(:,18, 2) = (/ &\n     &2.1066e-01_rb,2.7121e-01_rb,3.4050e-01_rb,4.1816e-01_rb,5.0173e-01_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.9258e-01_rb,2.4696e-01_rb,3.0899e-01_rb,3.7763e-01_rb,4.5019e-01_rb/)\n      kbo(:,20, 2) = (/ &\n     &1.7535e-01_rb,2.2386e-01_rb,2.7870e-01_rb,3.3833e-01_rb,4.0121e-01_rb/)\n      kbo(:,21, 2) = (/ &\n     &1.5823e-01_rb,2.0117e-01_rb,2.4903e-01_rb,3.0059e-01_rb,3.5459e-01_rb/)\n      kbo(:,22, 2) = (/ &\n     &1.4393e-01_rb,1.8176e-01_rb,2.2349e-01_rb,2.6801e-01_rb,3.1434e-01_rb/)\n      kbo(:,23, 2) = (/ &\n     &1.2993e-01_rb,1.6307e-01_rb,1.9923e-01_rb,2.3752e-01_rb,2.7733e-01_rb/)\n      kbo(:,24, 2) = (/ &\n     &1.1668e-01_rb,1.4559e-01_rb,1.7680e-01_rb,2.0966e-01_rb,2.4384e-01_rb/)\n      kbo(:,25, 2) = (/ &\n     &1.0441e-01_rb,1.2946e-01_rb,1.5637e-01_rb,1.8462e-01_rb,2.1368e-01_rb/)\n      kbo(:,26, 2) = (/ &\n     &9.3354e-02_rb,1.1505e-01_rb,1.3816e-01_rb,1.6244e-01_rb,1.8706e-01_rb/)\n      kbo(:,27, 2) = (/ &\n     &8.3171e-02_rb,1.0190e-01_rb,1.2182e-01_rb,1.4246e-01_rb,1.6301e-01_rb/)\n      kbo(:,28, 2) = (/ &\n     &7.3897e-02_rb,9.0049e-02_rb,1.0712e-01_rb,1.2442e-01_rb,1.4130e-01_rb/)\n      kbo(:,29, 2) = (/ &\n     &6.5628e-02_rb,7.9501e-02_rb,9.3908e-02_rb,1.0826e-01_rb,1.2190e-01_rb/)\n      kbo(:,30, 2) = (/ &\n     &5.8144e-02_rb,6.9960e-02_rb,8.1950e-02_rb,9.3660e-02_rb,1.0454e-01_rb/)\n      kbo(:,31, 2) = (/ &\n     &5.1413e-02_rb,6.1336e-02_rb,7.1221e-02_rb,8.0615e-02_rb,8.9347e-02_rb/)\n      kbo(:,32, 2) = (/ &\n     &4.5308e-02_rb,5.3538e-02_rb,6.1586e-02_rb,6.9140e-02_rb,7.6180e-02_rb/)\n      kbo(:,33, 2) = (/ &\n     &3.9776e-02_rb,4.6552e-02_rb,5.3085e-02_rb,5.9155e-02_rb,6.4885e-02_rb/)\n      kbo(:,34, 2) = (/ &\n     &3.4566e-02_rb,4.0142e-02_rb,4.5387e-02_rb,5.0362e-02_rb,5.5085e-02_rb/)\n      kbo(:,35, 2) = (/ &\n     &2.9501e-02_rb,3.4063e-02_rb,3.8371e-02_rb,4.2482e-02_rb,4.6355e-02_rb/)\n      kbo(:,36, 2) = (/ &\n     &2.4731e-02_rb,2.8480e-02_rb,3.2042e-02_rb,3.5445e-02_rb,3.8685e-02_rb/)\n      kbo(:,37, 2) = (/ &\n     &2.0227e-02_rb,2.3337e-02_rb,2.6311e-02_rb,2.9150e-02_rb,3.1875e-02_rb/)\n      kbo(:,38, 2) = (/ &\n     &1.6522e-02_rb,1.9118e-02_rb,2.1594e-02_rb,2.3970e-02_rb,2.6280e-02_rb/)\n      kbo(:,39, 2) = (/ &\n     &1.3506e-02_rb,1.5663e-02_rb,1.7734e-02_rb,1.9723e-02_rb,2.1666e-02_rb/)\n      kbo(:,40, 2) = (/ &\n     &1.0839e-02_rb,1.2642e-02_rb,1.4374e-02_rb,1.6039e-02_rb,1.7665e-02_rb/)\n      kbo(:,41, 2) = (/ &\n     &8.6687e-03_rb,1.0169e-02_rb,1.1614e-02_rb,1.3014e-02_rb,1.4376e-02_rb/)\n      kbo(:,42, 2) = (/ &\n     &6.9249e-03_rb,8.1709e-03_rb,9.3824e-03_rb,1.0556e-02_rb,1.1694e-02_rb/)\n      kbo(:,43, 2) = (/ &\n     &5.4677e-03_rb,6.5006e-03_rb,7.5154e-03_rb,8.4985e-03_rb,9.4530e-03_rb/)\n      kbo(:,44, 2) = (/ &\n     &4.2855e-03_rb,5.1437e-03_rb,5.9926e-03_rb,6.8145e-03_rb,7.6201e-03_rb/)\n      kbo(:,45, 2) = (/ &\n     &3.3515e-03_rb,4.0607e-03_rb,4.7699e-03_rb,5.4599e-03_rb,6.1332e-03_rb/)\n      kbo(:,46, 2) = (/ &\n     &2.6019e-03_rb,3.1870e-03_rb,3.7777e-03_rb,4.3556e-03_rb,4.9205e-03_rb/)\n      kbo(:,47, 2) = (/ &\n     &1.9902e-03_rb,2.4722e-03_rb,2.9627e-03_rb,3.4486e-03_rb,3.9210e-03_rb/)\n      kbo(:,48, 2) = (/ &\n     &1.5153e-03_rb,1.9102e-03_rb,2.3171e-03_rb,2.7244e-03_rb,3.1206e-03_rb/)\n      kbo(:,49, 2) = (/ &\n     &1.1469e-03_rb,1.4720e-03_rb,1.8085e-03_rb,2.1494e-03_rb,2.4830e-03_rb/)\n      kbo(:,50, 2) = (/ &\n     &8.6648e-04_rb,1.1333e-03_rb,1.4108e-03_rb,1.6953e-03_rb,1.9769e-03_rb/)\n      kbo(:,51, 2) = (/ &\n     &6.5125e-04_rb,8.6980e-04_rb,1.0984e-03_rb,1.3342e-03_rb,1.5715e-03_rb/)\n      kbo(:,52, 2) = (/ &\n     &4.8660e-04_rb,6.6498e-04_rb,8.5250e-04_rb,1.0475e-03_rb,1.2461e-03_rb/)\n      kbo(:,53, 2) = (/ &\n     &3.6091e-04_rb,5.0560e-04_rb,6.5947e-04_rb,8.2040e-04_rb,9.8603e-04_rb/)\n      kbo(:,54, 2) = (/ &\n     &2.6798e-04_rb,3.8317e-04_rb,5.0899e-04_rb,6.4130e-04_rb,7.7856e-04_rb/)\n      kbo(:,55, 2) = (/ &\n     &1.9837e-04_rb,2.8906e-04_rb,3.9148e-04_rb,4.9955e-04_rb,6.1247e-04_rb/)\n      kbo(:,56, 2) = (/ &\n     &1.4613e-04_rb,2.1685e-04_rb,3.0004e-04_rb,3.8773e-04_rb,4.8096e-04_rb/)\n      kbo(:,57, 2) = (/ &\n     &1.0691e-04_rb,1.6173e-04_rb,2.2873e-04_rb,3.0001e-04_rb,3.7637e-04_rb/)\n      kbo(:,58, 2) = (/ &\n     &7.8236e-05_rb,1.2069e-04_rb,1.7421e-04_rb,2.3200e-04_rb,2.9412e-04_rb/)\n      kbo(:,59, 2) = (/ &\n     &6.1826e-05_rb,9.5990e-05_rb,1.3927e-04_rb,1.8625e-04_rb,2.3654e-04_rb/)\n      kbo(:,13, 3) = (/ &\n     &1.1135e+00_rb,1.3641e+00_rb,1.6160e+00_rb,1.8652e+00_rb,2.1134e+00_rb/)\n      kbo(:,14, 3) = (/ &\n     &1.0304e+00_rb,1.2521e+00_rb,1.4746e+00_rb,1.6946e+00_rb,1.9141e+00_rb/)\n      kbo(:,15, 3) = (/ &\n     &9.5384e-01_rb,1.1492e+00_rb,1.3443e+00_rb,1.5379e+00_rb,1.7345e+00_rb/)\n      kbo(:,16, 3) = (/ &\n     &8.8007e-01_rb,1.0512e+00_rb,1.2220e+00_rb,1.3952e+00_rb,1.5691e+00_rb/)\n      kbo(:,17, 3) = (/ &\n     &8.0715e-01_rb,9.5537e-01_rb,1.1063e+00_rb,1.2596e+00_rb,1.4122e+00_rb/)\n      kbo(:,18, 3) = (/ &\n     &7.3500e-01_rb,8.6436e-01_rb,9.9708e-01_rb,1.1308e+00_rb,1.2638e+00_rb/)\n      kbo(:,19, 3) = (/ &\n     &6.6442e-01_rb,7.7800e-01_rb,8.9341e-01_rb,1.0094e+00_rb,1.1240e+00_rb/)\n      kbo(:,20, 3) = (/ &\n     &5.9870e-01_rb,6.9782e-01_rb,7.9815e-01_rb,8.9858e-01_rb,9.9720e-01_rb/)\n      kbo(:,21, 3) = (/ &\n     &5.3577e-01_rb,6.2165e-01_rb,7.0893e-01_rb,7.9562e-01_rb,8.8013e-01_rb/)\n      kbo(:,22, 3) = (/ &\n     &4.8056e-01_rb,5.5531e-01_rb,6.3060e-01_rb,7.0436e-01_rb,7.7687e-01_rb/)\n      kbo(:,23, 3) = (/ &\n     &4.2855e-01_rb,4.9296e-01_rb,5.5690e-01_rb,6.1984e-01_rb,6.8212e-01_rb/)\n      kbo(:,24, 3) = (/ &\n     &3.8024e-01_rb,4.3497e-01_rb,4.8911e-01_rb,5.4325e-01_rb,5.9676e-01_rb/)\n      kbo(:,25, 3) = (/ &\n     &3.3570e-01_rb,3.8197e-01_rb,4.2813e-01_rb,4.7450e-01_rb,5.2085e-01_rb/)\n      kbo(:,26, 3) = (/ &\n     &2.9535e-01_rb,3.3462e-01_rb,3.7428e-01_rb,4.1425e-01_rb,4.5431e-01_rb/)\n      kbo(:,27, 3) = (/ &\n     &2.5873e-01_rb,2.9239e-01_rb,3.2655e-01_rb,3.6110e-01_rb,3.9601e-01_rb/)\n      kbo(:,28, 3) = (/ &\n     &2.2605e-01_rb,2.5498e-01_rb,2.8445e-01_rb,3.1460e-01_rb,3.4506e-01_rb/)\n      kbo(:,29, 3) = (/ &\n     &1.9728e-01_rb,2.2221e-01_rb,2.4794e-01_rb,2.7429e-01_rb,3.0081e-01_rb/)\n      kbo(:,30, 3) = (/ &\n     &1.7195e-01_rb,1.9369e-01_rb,2.1631e-01_rb,2.3929e-01_rb,2.6198e-01_rb/)\n      kbo(:,31, 3) = (/ &\n     &1.5004e-01_rb,1.6915e-01_rb,1.8896e-01_rb,2.0886e-01_rb,2.2799e-01_rb/)\n      kbo(:,32, 3) = (/ &\n     &1.3116e-01_rb,1.4802e-01_rb,1.6521e-01_rb,1.8200e-01_rb,1.9806e-01_rb/)\n      kbo(:,33, 3) = (/ &\n     &1.1493e-01_rb,1.2958e-01_rb,1.4418e-01_rb,1.5826e-01_rb,1.7170e-01_rb/)\n      kbo(:,34, 3) = (/ &\n     &1.0026e-01_rb,1.1281e-01_rb,1.2510e-01_rb,1.3692e-01_rb,1.4804e-01_rb/)\n      kbo(:,35, 3) = (/ &\n     &8.6407e-02_rb,9.7015e-02_rb,1.0743e-01_rb,1.1729e-01_rb,1.2663e-01_rb/)\n      kbo(:,36, 3) = (/ &\n     &7.3396e-02_rb,8.2443e-02_rb,9.1165e-02_rb,9.9519e-02_rb,1.0753e-01_rb/)\n      kbo(:,37, 3) = (/ &\n     &6.1173e-02_rb,6.8860e-02_rb,7.6255e-02_rb,8.3361e-02_rb,9.0284e-02_rb/)\n      kbo(:,38, 3) = (/ &\n     &5.0910e-02_rb,5.7435e-02_rb,6.3715e-02_rb,6.9817e-02_rb,7.5733e-02_rb/)\n      kbo(:,39, 3) = (/ &\n     &4.2376e-02_rb,4.7913e-02_rb,5.3247e-02_rb,5.8502e-02_rb,6.3619e-02_rb/)\n      kbo(:,40, 3) = (/ &\n     &3.4748e-02_rb,3.9459e-02_rb,4.3993e-02_rb,4.8510e-02_rb,5.2956e-02_rb/)\n      kbo(:,41, 3) = (/ &\n     &2.8418e-02_rb,3.2417e-02_rb,3.6282e-02_rb,4.0161e-02_rb,4.3993e-02_rb/)\n      kbo(:,42, 3) = (/ &\n     &2.3210e-02_rb,2.6614e-02_rb,2.9916e-02_rb,3.3242e-02_rb,3.6540e-02_rb/)\n      kbo(:,43, 3) = (/ &\n     &1.8779e-02_rb,2.1673e-02_rb,2.4493e-02_rb,2.7336e-02_rb,3.0182e-02_rb/)\n      kbo(:,44, 3) = (/ &\n     &1.5102e-02_rb,1.7567e-02_rb,1.9972e-02_rb,2.2410e-02_rb,2.4858e-02_rb/)\n      kbo(:,45, 3) = (/ &\n     &1.2119e-02_rb,1.4212e-02_rb,1.6271e-02_rb,1.8344e-02_rb,2.0451e-02_rb/)\n      kbo(:,46, 3) = (/ &\n     &9.6639e-03_rb,1.1430e-02_rb,1.3190e-02_rb,1.4958e-02_rb,1.6759e-02_rb/)\n      kbo(:,47, 3) = (/ &\n     &7.6185e-03_rb,9.1001e-03_rb,1.0599e-02_rb,1.2098e-02_rb,1.3639e-02_rb/)\n      kbo(:,48, 3) = (/ &\n     &5.9842e-03_rb,7.2206e-03_rb,8.5005e-03_rb,9.7716e-03_rb,1.1086e-02_rb/)\n      kbo(:,49, 3) = (/ &\n     &4.6860e-03_rb,5.7121e-03_rb,6.7999e-03_rb,7.8773e-03_rb,8.9943e-03_rb/)\n      kbo(:,50, 3) = (/ &\n     &3.6738e-03_rb,4.5201e-03_rb,5.4386e-03_rb,6.3525e-03_rb,7.2951e-03_rb/)\n      kbo(:,51, 3) = (/ &\n     &2.8749e-03_rb,3.5695e-03_rb,4.3389e-03_rb,5.1158e-03_rb,5.9116e-03_rb/)\n      kbo(:,52, 3) = (/ &\n     &2.2412e-03_rb,2.8111e-03_rb,3.4548e-03_rb,4.1149e-03_rb,4.7853e-03_rb/)\n      kbo(:,53, 3) = (/ &\n     &1.7396e-03_rb,2.2062e-03_rb,2.7406e-03_rb,3.3024e-03_rb,3.8694e-03_rb/)\n      kbo(:,54, 3) = (/ &\n     &1.3505e-03_rb,1.7325e-03_rb,2.1715e-03_rb,2.6457e-03_rb,3.1233e-03_rb/)\n      kbo(:,55, 3) = (/ &\n     &1.0458e-03_rb,1.3574e-03_rb,1.7165e-03_rb,2.1138e-03_rb,2.5149e-03_rb/)\n      kbo(:,56, 3) = (/ &\n     &8.0583e-04_rb,1.0599e-03_rb,1.3530e-03_rb,1.6840e-03_rb,2.0192e-03_rb/)\n      kbo(:,57, 3) = (/ &\n     &6.1766e-04_rb,8.2479e-04_rb,1.0628e-03_rb,1.3371e-03_rb,1.6185e-03_rb/)\n      kbo(:,58, 3) = (/ &\n     &4.7327e-04_rb,6.4160e-04_rb,8.3562e-04_rb,1.0608e-03_rb,1.2972e-03_rb/)\n      kbo(:,59, 3) = (/ &\n     &3.8292e-04_rb,5.2222e-04_rb,6.8284e-04_rb,8.6897e-04_rb,1.0664e-03_rb/)\n      kbo(:,13, 4) = (/ &\n     &3.3749e+00_rb,3.6005e+00_rb,3.8557e+00_rb,4.1032e+00_rb,4.3385e+00_rb/)\n      kbo(:,14, 4) = (/ &\n     &2.9858e+00_rb,3.1916e+00_rb,3.4148e+00_rb,3.6458e+00_rb,3.8704e+00_rb/)\n      kbo(:,15, 4) = (/ &\n     &2.6360e+00_rb,2.8231e+00_rb,3.0273e+00_rb,3.2443e+00_rb,3.4520e+00_rb/)\n      kbo(:,16, 4) = (/ &\n     &2.3243e+00_rb,2.4974e+00_rb,2.6921e+00_rb,2.8866e+00_rb,3.0804e+00_rb/)\n      kbo(:,17, 4) = (/ &\n     &2.0501e+00_rb,2.2124e+00_rb,2.3895e+00_rb,2.5647e+00_rb,2.7458e+00_rb/)\n      kbo(:,18, 4) = (/ &\n     &1.8079e+00_rb,1.9578e+00_rb,2.1149e+00_rb,2.2757e+00_rb,2.4444e+00_rb/)\n      kbo(:,19, 4) = (/ &\n     &1.5916e+00_rb,1.7262e+00_rb,1.8683e+00_rb,2.0160e+00_rb,2.1705e+00_rb/)\n      kbo(:,20, 4) = (/ &\n     &1.3988e+00_rb,1.5220e+00_rb,1.6508e+00_rb,1.7854e+00_rb,1.9234e+00_rb/)\n      kbo(:,21, 4) = (/ &\n     &1.2283e+00_rb,1.3399e+00_rb,1.4559e+00_rb,1.5766e+00_rb,1.6985e+00_rb/)\n      kbo(:,22, 4) = (/ &\n     &1.0842e+00_rb,1.1844e+00_rb,1.2884e+00_rb,1.3958e+00_rb,1.5035e+00_rb/)\n      kbo(:,23, 4) = (/ &\n     &9.5535e-01_rb,1.0448e+00_rb,1.1388e+00_rb,1.2338e+00_rb,1.3273e+00_rb/)\n      kbo(:,24, 4) = (/ &\n     &8.3937e-01_rb,9.2038e-01_rb,1.0041e+00_rb,1.0871e+00_rb,1.1675e+00_rb/)\n      kbo(:,25, 4) = (/ &\n     &7.3697e-01_rb,8.0962e-01_rb,8.8296e-01_rb,9.5450e-01_rb,1.0251e+00_rb/)\n      kbo(:,26, 4) = (/ &\n     &6.4730e-01_rb,7.1109e-01_rb,7.7450e-01_rb,8.3674e-01_rb,9.0032e-01_rb/)\n      kbo(:,27, 4) = (/ &\n     &5.6756e-01_rb,6.2293e-01_rb,6.7780e-01_rb,7.3355e-01_rb,7.9083e-01_rb/)\n      kbo(:,28, 4) = (/ &\n     &4.9666e-01_rb,5.4463e-01_rb,5.9308e-01_rb,6.4333e-01_rb,6.9525e-01_rb/)\n      kbo(:,29, 4) = (/ &\n     &4.3427e-01_rb,4.7629e-01_rb,5.1987e-01_rb,5.6530e-01_rb,6.1288e-01_rb/)\n      kbo(:,30, 4) = (/ &\n     &3.7957e-01_rb,4.1709e-01_rb,4.5651e-01_rb,4.9797e-01_rb,5.4181e-01_rb/)\n      kbo(:,31, 4) = (/ &\n     &3.3226e-01_rb,3.6617e-01_rb,4.0201e-01_rb,4.4025e-01_rb,4.8083e-01_rb/)\n      kbo(:,32, 4) = (/ &\n     &2.9152e-01_rb,3.2232e-01_rb,3.5534e-01_rb,3.9102e-01_rb,4.2785e-01_rb/)\n      kbo(:,33, 4) = (/ &\n     &2.5658e-01_rb,2.8478e-01_rb,3.1566e-01_rb,3.4846e-01_rb,3.8205e-01_rb/)\n      kbo(:,34, 4) = (/ &\n     &2.2568e-01_rb,2.5200e-01_rb,2.8059e-01_rb,3.1045e-01_rb,3.4133e-01_rb/)\n      kbo(:,35, 4) = (/ &\n     &1.9721e-01_rb,2.2158e-01_rb,2.4755e-01_rb,2.7492e-01_rb,3.0313e-01_rb/)\n      kbo(:,36, 4) = (/ &\n     &1.7069e-01_rb,1.9278e-01_rb,2.1640e-01_rb,2.4134e-01_rb,2.6698e-01_rb/)\n      kbo(:,37, 4) = (/ &\n     &1.4514e-01_rb,1.6486e-01_rb,1.8617e-01_rb,2.0876e-01_rb,2.3216e-01_rb/)\n      kbo(:,38, 4) = (/ &\n     &1.2328e-01_rb,1.4085e-01_rb,1.6011e-01_rb,1.8057e-01_rb,2.0182e-01_rb/)\n      kbo(:,39, 4) = (/ &\n     &1.0472e-01_rb,1.2042e-01_rb,1.3775e-01_rb,1.5631e-01_rb,1.7570e-01_rb/)\n      kbo(:,40, 4) = (/ &\n     &8.7593e-02_rb,1.0140e-01_rb,1.1682e-01_rb,1.3356e-01_rb,1.5106e-01_rb/)\n      kbo(:,41, 4) = (/ &\n     &7.2991e-02_rb,8.5111e-02_rb,9.8743e-02_rb,1.1375e-01_rb,1.2963e-01_rb/)\n      kbo(:,42, 4) = (/ &\n     &6.0719e-02_rb,7.1311e-02_rb,8.3382e-02_rb,9.6810e-02_rb,1.1115e-01_rb/)\n      kbo(:,43, 4) = (/ &\n     &4.9944e-02_rb,5.9103e-02_rb,6.9670e-02_rb,8.1603e-02_rb,9.4469e-02_rb/)\n      kbo(:,44, 4) = (/ &\n     &4.0785e-02_rb,4.8637e-02_rb,5.7853e-02_rb,6.8379e-02_rb,7.9912e-02_rb/)\n      kbo(:,45, 4) = (/ &\n     &3.3215e-02_rb,3.9939e-02_rb,4.7926e-02_rb,5.7208e-02_rb,6.7537e-02_rb/)\n      kbo(:,46, 4) = (/ &\n     &2.6843e-02_rb,3.2560e-02_rb,3.9436e-02_rb,4.7558e-02_rb,5.6745e-02_rb/)\n      kbo(:,47, 4) = (/ &\n     &2.1428e-02_rb,2.6226e-02_rb,3.2052e-02_rb,3.9057e-02_rb,4.7184e-02_rb/)\n      kbo(:,48, 4) = (/ &\n     &1.7029e-02_rb,2.1031e-02_rb,2.5943e-02_rb,3.1986e-02_rb,3.9099e-02_rb/)\n      kbo(:,49, 4) = (/ &\n     &1.3477e-02_rb,1.6802e-02_rb,2.0926e-02_rb,2.6109e-02_rb,3.2294e-02_rb/)\n      kbo(:,50, 4) = (/ &\n     &1.0673e-02_rb,1.3423e-02_rb,1.6872e-02_rb,2.1279e-02_rb,2.6629e-02_rb/)\n      kbo(:,51, 4) = (/ &\n     &8.4370e-03_rb,1.0700e-02_rb,1.3568e-02_rb,1.7289e-02_rb,2.1889e-02_rb/)\n      kbo(:,52, 4) = (/ &\n     &6.6453e-03_rb,8.4949e-03_rb,1.0870e-02_rb,1.3987e-02_rb,1.7931e-02_rb/)\n      kbo(:,53, 4) = (/ &\n     &5.2146e-03_rb,6.7176e-03_rb,8.6804e-03_rb,1.1275e-02_rb,1.4637e-02_rb/)\n      kbo(:,54, 4) = (/ &\n     &4.1029e-03_rb,5.3246e-03_rb,6.9354e-03_rb,9.0873e-03_rb,1.1925e-02_rb/)\n      kbo(:,55, 4) = (/ &\n     &3.2267e-03_rb,4.2135e-03_rb,5.5289e-03_rb,7.2992e-03_rb,9.6811e-03_rb/)\n      kbo(:,56, 4) = (/ &\n     &2.5269e-03_rb,3.3219e-03_rb,4.3912e-03_rb,5.8434e-03_rb,7.8299e-03_rb/)\n      kbo(:,57, 4) = (/ &\n     &1.9715e-03_rb,2.6095e-03_rb,3.4757e-03_rb,4.6583e-03_rb,6.3020e-03_rb/)\n      kbo(:,58, 4) = (/ &\n     &1.5393e-03_rb,2.0522e-03_rb,2.7523e-03_rb,3.7145e-03_rb,5.0709e-03_rb/)\n      kbo(:,59, 4) = (/ &\n     &1.2601e-03_rb,1.6926e-03_rb,2.2864e-03_rb,3.1046e-03_rb,4.2734e-03_rb/)\n      kbo(:,13, 5) = (/ &\n     &6.9559e+00_rb,7.1944e+00_rb,7.3778e+00_rb,7.6168e+00_rb,7.8840e+00_rb/)\n      kbo(:,14, 5) = (/ &\n     &6.1197e+00_rb,6.3419e+00_rb,6.5357e+00_rb,6.7535e+00_rb,7.0053e+00_rb/)\n      kbo(:,15, 5) = (/ &\n     &5.3579e+00_rb,5.5744e+00_rb,5.7766e+00_rb,5.9767e+00_rb,6.2167e+00_rb/)\n      kbo(:,16, 5) = (/ &\n     &4.6816e+00_rb,4.8936e+00_rb,5.0862e+00_rb,5.2967e+00_rb,5.5327e+00_rb/)\n      kbo(:,17, 5) = (/ &\n     &4.0899e+00_rb,4.2917e+00_rb,4.4812e+00_rb,4.7025e+00_rb,4.9201e+00_rb/)\n      kbo(:,18, 5) = (/ &\n     &3.5771e+00_rb,3.7678e+00_rb,3.9593e+00_rb,4.1715e+00_rb,4.3722e+00_rb/)\n      kbo(:,19, 5) = (/ &\n     &3.1364e+00_rb,3.3176e+00_rb,3.5013e+00_rb,3.6935e+00_rb,3.8830e+00_rb/)\n      kbo(:,20, 5) = (/ &\n     &2.7593e+00_rb,2.9230e+00_rb,3.0933e+00_rb,3.2687e+00_rb,3.4499e+00_rb/)\n      kbo(:,21, 5) = (/ &\n     &2.4256e+00_rb,2.5724e+00_rb,2.7298e+00_rb,2.8928e+00_rb,3.0638e+00_rb/)\n      kbo(:,22, 5) = (/ &\n     &2.1368e+00_rb,2.2729e+00_rb,2.4183e+00_rb,2.5689e+00_rb,2.7252e+00_rb/)\n      kbo(:,23, 5) = (/ &\n     &1.8817e+00_rb,2.0092e+00_rb,2.1410e+00_rb,2.2786e+00_rb,2.4217e+00_rb/)\n      kbo(:,24, 5) = (/ &\n     &1.6588e+00_rb,1.7749e+00_rb,1.8947e+00_rb,2.0208e+00_rb,2.1527e+00_rb/)\n      kbo(:,25, 5) = (/ &\n     &1.4616e+00_rb,1.5668e+00_rb,1.6777e+00_rb,1.7944e+00_rb,1.9128e+00_rb/)\n      kbo(:,26, 5) = (/ &\n     &1.2875e+00_rb,1.3850e+00_rb,1.4881e+00_rb,1.5943e+00_rb,1.7005e+00_rb/)\n      kbo(:,27, 5) = (/ &\n     &1.1342e+00_rb,1.2250e+00_rb,1.3195e+00_rb,1.4155e+00_rb,1.5121e+00_rb/)\n      kbo(:,28, 5) = (/ &\n     &1.0000e+00_rb,1.0834e+00_rb,1.1694e+00_rb,1.2569e+00_rb,1.3467e+00_rb/)\n      kbo(:,29, 5) = (/ &\n     &8.8272e-01_rb,9.5878e-01_rb,1.0375e+00_rb,1.1189e+00_rb,1.2039e+00_rb/)\n      kbo(:,30, 5) = (/ &\n     &7.8028e-01_rb,8.4986e-01_rb,9.2253e-01_rb,9.9927e-01_rb,1.0809e+00_rb/)\n      kbo(:,31, 5) = (/ &\n     &6.9115e-01_rb,7.5536e-01_rb,8.2388e-01_rb,8.9787e-01_rb,9.7590e-01_rb/)\n      kbo(:,32, 5) = (/ &\n     &6.1412e-01_rb,6.7446e-01_rb,7.4048e-01_rb,8.1095e-01_rb,8.8670e-01_rb/)\n      kbo(:,33, 5) = (/ &\n     &5.4810e-01_rb,6.0636e-01_rb,6.6911e-01_rb,7.3734e-01_rb,8.1091e-01_rb/)\n      kbo(:,34, 5) = (/ &\n     &4.9071e-01_rb,5.4601e-01_rb,6.0648e-01_rb,6.7271e-01_rb,7.4441e-01_rb/)\n      kbo(:,35, 5) = (/ &\n     &4.3693e-01_rb,4.8943e-01_rb,5.4769e-01_rb,6.1149e-01_rb,6.8198e-01_rb/)\n      kbo(:,36, 5) = (/ &\n     &3.8551e-01_rb,4.3547e-01_rb,4.9121e-01_rb,5.5301e-01_rb,6.2109e-01_rb/)\n      kbo(:,37, 5) = (/ &\n     &3.3480e-01_rb,3.8150e-01_rb,4.3408e-01_rb,4.9278e-01_rb,5.5808e-01_rb/)\n      kbo(:,38, 5) = (/ &\n     &2.9081e-01_rb,3.3450e-01_rb,3.8398e-01_rb,4.3987e-01_rb,5.0248e-01_rb/)\n      kbo(:,39, 5) = (/ &\n     &2.5305e-01_rb,2.9380e-01_rb,3.4050e-01_rb,3.9390e-01_rb,4.5364e-01_rb/)\n      kbo(:,40, 5) = (/ &\n     &2.1671e-01_rb,2.5418e-01_rb,2.9763e-01_rb,3.4779e-01_rb,4.0458e-01_rb/)\n      kbo(:,41, 5) = (/ &\n     &1.8493e-01_rb,2.1926e-01_rb,2.5954e-01_rb,3.0662e-01_rb,3.6037e-01_rb/)\n      kbo(:,42, 5) = (/ &\n     &1.5752e-01_rb,1.8888e-01_rb,2.2625e-01_rb,2.7031e-01_rb,3.2124e-01_rb/)\n      kbo(:,43, 5) = (/ &\n     &1.3255e-01_rb,1.6078e-01_rb,1.9491e-01_rb,2.3576e-01_rb,2.8350e-01_rb/)\n      kbo(:,44, 5) = (/ &\n     &1.1061e-01_rb,1.3578e-01_rb,1.6666e-01_rb,2.0425e-01_rb,2.4865e-01_rb/)\n      kbo(:,45, 5) = (/ &\n     &9.1951e-02_rb,1.1424e-01_rb,1.4202e-01_rb,1.7639e-01_rb,2.1757e-01_rb/)\n      kbo(:,46, 5) = (/ &\n     &7.5781e-02_rb,9.5221e-02_rb,1.1993e-01_rb,1.5099e-01_rb,1.8901e-01_rb/)\n      kbo(:,47, 5) = (/ &\n     &6.1487e-02_rb,7.8164e-02_rb,9.9731e-02_rb,1.2737e-01_rb,1.6179e-01_rb/)\n      kbo(:,48, 5) = (/ &\n     &4.9580e-02_rb,6.3770e-02_rb,8.2434e-02_rb,1.0684e-01_rb,1.3786e-01_rb/)\n      kbo(:,49, 5) = (/ &\n     &3.9738e-02_rb,5.1709e-02_rb,6.7733e-02_rb,8.9073e-02_rb,1.1686e-01_rb/)\n      kbo(:,50, 5) = (/ &\n     &3.1862e-02_rb,4.1943e-02_rb,5.5637e-02_rb,7.4270e-02_rb,9.9031e-02_rb/)\n      kbo(:,51, 5) = (/ &\n     &2.5469e-02_rb,3.3911e-02_rb,4.5561e-02_rb,6.1725e-02_rb,8.3692e-02_rb/)\n      kbo(:,52, 5) = (/ &\n     &2.0254e-02_rb,2.7266e-02_rb,3.7097e-02_rb,5.1018e-02_rb,7.0332e-02_rb/)\n      kbo(:,53, 5) = (/ &\n     &1.6008e-02_rb,2.1779e-02_rb,3.0012e-02_rb,4.1907e-02_rb,5.8779e-02_rb/)\n      kbo(:,54, 5) = (/ &\n     &1.2684e-02_rb,1.7422e-02_rb,2.4313e-02_rb,3.4417e-02_rb,4.9062e-02_rb/)\n      kbo(:,55, 5) = (/ &\n     &1.0038e-02_rb,1.3916e-02_rb,1.9644e-02_rb,2.8164e-02_rb,4.0795e-02_rb/)\n      kbo(:,56, 5) = (/ &\n     &7.9079e-03_rb,1.1053e-02_rb,1.5781e-02_rb,2.2925e-02_rb,3.3750e-02_rb/)\n      kbo(:,57, 5) = (/ &\n     &6.2010e-03_rb,8.7295e-03_rb,1.2598e-02_rb,1.8552e-02_rb,2.7742e-02_rb/)\n      kbo(:,58, 5) = (/ &\n     &4.8646e-03_rb,6.8966e-03_rb,1.0058e-02_rb,1.5005e-02_rb,2.2774e-02_rb/)\n      kbo(:,59, 5) = (/ &\n     &4.0331e-03_rb,5.7872e-03_rb,8.5542e-03_rb,1.2975e-02_rb,2.0014e-02_rb/)\n      kbo(:,13, 6) = (/ &\n     &1.3874e+01_rb,1.4054e+01_rb,1.4175e+01_rb,1.4196e+01_rb,1.4254e+01_rb/)\n      kbo(:,14, 6) = (/ &\n     &1.2387e+01_rb,1.2564e+01_rb,1.2698e+01_rb,1.2762e+01_rb,1.2781e+01_rb/)\n      kbo(:,15, 6) = (/ &\n     &1.0973e+01_rb,1.1145e+01_rb,1.1274e+01_rb,1.1365e+01_rb,1.1424e+01_rb/)\n      kbo(:,16, 6) = (/ &\n     &9.6521e+00_rb,9.8053e+00_rb,9.9370e+00_rb,1.0047e+01_rb,1.0150e+01_rb/)\n      kbo(:,17, 6) = (/ &\n     &8.4222e+00_rb,8.5719e+00_rb,8.7195e+00_rb,8.8488e+00_rb,9.0159e+00_rb/)\n      kbo(:,18, 6) = (/ &\n     &7.3090e+00_rb,7.4668e+00_rb,7.6322e+00_rb,7.7932e+00_rb,8.0086e+00_rb/)\n      kbo(:,19, 6) = (/ &\n     &6.3279e+00_rb,6.4985e+00_rb,6.6813e+00_rb,6.8756e+00_rb,7.1176e+00_rb/)\n      kbo(:,20, 6) = (/ &\n     &5.4862e+00_rb,5.6719e+00_rb,5.8682e+00_rb,6.0850e+00_rb,6.3337e+00_rb/)\n      kbo(:,21, 6) = (/ &\n     &4.7753e+00_rb,4.9682e+00_rb,5.1665e+00_rb,5.3943e+00_rb,5.6406e+00_rb/)\n      kbo(:,22, 6) = (/ &\n     &4.1854e+00_rb,4.3703e+00_rb,4.5713e+00_rb,4.7990e+00_rb,5.0439e+00_rb/)\n      kbo(:,23, 6) = (/ &\n     &3.6767e+00_rb,3.8508e+00_rb,4.0542e+00_rb,4.2776e+00_rb,4.5191e+00_rb/)\n      kbo(:,24, 6) = (/ &\n     &3.2355e+00_rb,3.4077e+00_rb,3.6072e+00_rb,3.8245e+00_rb,4.0534e+00_rb/)\n      kbo(:,25, 6) = (/ &\n     &2.8580e+00_rb,3.0303e+00_rb,3.2220e+00_rb,3.4257e+00_rb,3.6444e+00_rb/)\n      kbo(:,26, 6) = (/ &\n     &2.5405e+00_rb,2.7078e+00_rb,2.8872e+00_rb,3.0816e+00_rb,3.2880e+00_rb/)\n      kbo(:,27, 6) = (/ &\n     &2.2677e+00_rb,2.4258e+00_rb,2.5973e+00_rb,2.7818e+00_rb,2.9766e+00_rb/)\n      kbo(:,28, 6) = (/ &\n     &2.0273e+00_rb,2.1803e+00_rb,2.3462e+00_rb,2.5211e+00_rb,2.7040e+00_rb/)\n      kbo(:,29, 6) = (/ &\n     &1.8190e+00_rb,1.9689e+00_rb,2.1279e+00_rb,2.2941e+00_rb,2.4662e+00_rb/)\n      kbo(:,30, 6) = (/ &\n     &1.6397e+00_rb,1.7844e+00_rb,1.9371e+00_rb,2.0958e+00_rb,2.2590e+00_rb/)\n      kbo(:,31, 6) = (/ &\n     &1.4852e+00_rb,1.6249e+00_rb,1.7714e+00_rb,1.9226e+00_rb,2.0813e+00_rb/)\n      kbo(:,32, 6) = (/ &\n     &1.3517e+00_rb,1.4862e+00_rb,1.6264e+00_rb,1.7745e+00_rb,1.9335e+00_rb/)\n      kbo(:,33, 6) = (/ &\n     &1.2364e+00_rb,1.3651e+00_rb,1.5027e+00_rb,1.6513e+00_rb,1.8098e+00_rb/)\n      kbo(:,34, 6) = (/ &\n     &1.1317e+00_rb,1.2571e+00_rb,1.3947e+00_rb,1.5426e+00_rb,1.7001e+00_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.0305e+00_rb,1.1540e+00_rb,1.2902e+00_rb,1.4368e+00_rb,1.5937e+00_rb/)\n      kbo(:,36, 6) = (/ &\n     &9.3137e-01_rb,1.0526e+00_rb,1.1856e+00_rb,1.3299e+00_rb,1.4860e+00_rb/)\n      kbo(:,37, 6) = (/ &\n     &8.2931e-01_rb,9.4564e-01_rb,1.0739e+00_rb,1.2152e+00_rb,1.3682e+00_rb/)\n      kbo(:,38, 6) = (/ &\n     &7.3906e-01_rb,8.5034e-01_rb,9.7478e-01_rb,1.1125e+00_rb,1.2627e+00_rb/)\n      kbo(:,39, 6) = (/ &\n     &6.6006e-01_rb,7.6663e-01_rb,8.8732e-01_rb,1.0214e+00_rb,1.1704e+00_rb/)\n      kbo(:,40, 6) = (/ &\n     &5.8074e-01_rb,6.8151e-01_rb,7.9698e-01_rb,9.2673e-01_rb,1.0719e+00_rb/)\n      kbo(:,41, 6) = (/ &\n     &5.0970e-01_rb,6.0467e-01_rb,7.1469e-01_rb,8.3962e-01_rb,9.8097e-01_rb/)\n      kbo(:,42, 6) = (/ &\n     &4.4691e-01_rb,5.3653e-01_rb,6.4112e-01_rb,7.6136e-01_rb,8.9846e-01_rb/)\n      kbo(:,43, 6) = (/ &\n     &3.8720e-01_rb,4.7067e-01_rb,5.6921e-01_rb,6.8346e-01_rb,8.1541e-01_rb/)\n      kbo(:,44, 6) = (/ &\n     &3.3270e-01_rb,4.0984e-01_rb,5.0209e-01_rb,6.1017e-01_rb,7.3637e-01_rb/)\n      kbo(:,45, 6) = (/ &\n     &2.8475e-01_rb,3.5595e-01_rb,4.4190e-01_rb,5.4378e-01_rb,6.6410e-01_rb/)\n      kbo(:,46, 6) = (/ &\n     &2.4137e-01_rb,3.0640e-01_rb,3.8581e-01_rb,4.8130e-01_rb,5.9507e-01_rb/)\n      kbo(:,47, 6) = (/ &\n     &2.0121e-01_rb,2.5952e-01_rb,3.3199e-01_rb,4.2038e-01_rb,5.2702e-01_rb/)\n      kbo(:,48, 6) = (/ &\n     &1.6644e-01_rb,2.1836e-01_rb,2.8412e-01_rb,3.6558e-01_rb,4.6520e-01_rb/)\n      kbo(:,49, 6) = (/ &\n     &1.3664e-01_rb,1.8247e-01_rb,2.4166e-01_rb,3.1637e-01_rb,4.0912e-01_rb/)\n      kbo(:,50, 6) = (/ &\n     &1.1203e-01_rb,1.5228e-01_rb,2.0551e-01_rb,2.7399e-01_rb,3.6023e-01_rb/)\n      kbo(:,51, 6) = (/ &\n     &9.1424e-02_rb,1.2652e-01_rb,1.7413e-01_rb,2.3648e-01_rb,3.1642e-01_rb/)\n      kbo(:,52, 6) = (/ &\n     &7.4033e-02_rb,1.0433e-01_rb,1.4653e-01_rb,2.0289e-01_rb,2.7670e-01_rb/)\n      kbo(:,53, 6) = (/ &\n     &5.9468e-02_rb,8.5397e-02_rb,1.2237e-01_rb,1.7301e-01_rb,2.4059e-01_rb/)\n      kbo(:,54, 6) = (/ &\n     &4.7831e-02_rb,6.9932e-02_rb,1.0222e-01_rb,1.4759e-01_rb,2.0954e-01_rb/)\n      kbo(:,55, 6) = (/ &\n     &3.8375e-02_rb,5.7032e-02_rb,8.5062e-02_rb,1.2546e-01_rb,1.8204e-01_rb/)\n      kbo(:,56, 6) = (/ &\n     &3.0600e-02_rb,4.6150e-02_rb,7.0262e-02_rb,1.0594e-01_rb,1.5707e-01_rb/)\n      kbo(:,57, 6) = (/ &\n     &2.4221e-02_rb,3.7043e-02_rb,5.7569e-02_rb,8.8786e-02_rb,1.3465e-01_rb/)\n      kbo(:,58, 6) = (/ &\n     &1.9170e-02_rb,2.9713e-02_rb,4.7101e-02_rb,7.4302e-02_rb,1.1534e-01_rb/)\n      kbo(:,59, 6) = (/ &\n     &1.6314e-02_rb,2.5760e-02_rb,4.1528e-02_rb,6.6912e-02_rb,1.0596e-01_rb/)\n      kbo(:,13, 7) = (/ &\n     &2.6383e+01_rb,2.6399e+01_rb,2.6364e+01_rb,2.6286e+01_rb,2.6068e+01_rb/)\n      kbo(:,14, 7) = (/ &\n     &2.4391e+01_rb,2.4435e+01_rb,2.4445e+01_rb,2.4411e+01_rb,2.4344e+01_rb/)\n      kbo(:,15, 7) = (/ &\n     &2.2267e+01_rb,2.2343e+01_rb,2.2391e+01_rb,2.2420e+01_rb,2.2406e+01_rb/)\n      kbo(:,16, 7) = (/ &\n     &2.0101e+01_rb,2.0222e+01_rb,2.0311e+01_rb,2.0370e+01_rb,2.0373e+01_rb/)\n      kbo(:,17, 7) = (/ &\n     &1.7987e+01_rb,1.8130e+01_rb,1.8242e+01_rb,1.8316e+01_rb,1.8338e+01_rb/)\n      kbo(:,18, 7) = (/ &\n     &1.5956e+01_rb,1.6114e+01_rb,1.6238e+01_rb,1.6337e+01_rb,1.6400e+01_rb/)\n      kbo(:,19, 7) = (/ &\n     &1.4050e+01_rb,1.4210e+01_rb,1.4354e+01_rb,1.4495e+01_rb,1.4623e+01_rb/)\n      kbo(:,20, 7) = (/ &\n     &1.2287e+01_rb,1.2462e+01_rb,1.2644e+01_rb,1.2837e+01_rb,1.3036e+01_rb/)\n      kbo(:,21, 7) = (/ &\n     &1.0697e+01_rb,1.0904e+01_rb,1.1136e+01_rb,1.1376e+01_rb,1.1647e+01_rb/)\n      kbo(:,22, 7) = (/ &\n     &9.3216e+00_rb,9.5704e+00_rb,9.8418e+00_rb,1.0134e+01_rb,1.0464e+01_rb/)\n      kbo(:,23, 7) = (/ &\n     &8.1552e+00_rb,8.4381e+00_rb,8.7358e+00_rb,9.0546e+00_rb,9.4274e+00_rb/)\n      kbo(:,24, 7) = (/ &\n     &7.1742e+00_rb,7.4714e+00_rb,7.7800e+00_rb,8.1293e+00_rb,8.5227e+00_rb/)\n      kbo(:,25, 7) = (/ &\n     &6.3453e+00_rb,6.6371e+00_rb,6.9572e+00_rb,7.3300e+00_rb,7.7371e+00_rb/)\n      kbo(:,26, 7) = (/ &\n     &5.6325e+00_rb,5.9213e+00_rb,6.2619e+00_rb,6.6436e+00_rb,7.0622e+00_rb/)\n      kbo(:,27, 7) = (/ &\n     &5.0177e+00_rb,5.3180e+00_rb,5.6685e+00_rb,6.0556e+00_rb,6.4791e+00_rb/)\n      kbo(:,28, 7) = (/ &\n     &4.5006e+00_rb,4.8114e+00_rb,5.1630e+00_rb,5.5512e+00_rb,5.9725e+00_rb/)\n      kbo(:,29, 7) = (/ &\n     &4.0763e+00_rb,4.3869e+00_rb,4.7357e+00_rb,5.1215e+00_rb,5.5415e+00_rb/)\n      kbo(:,30, 7) = (/ &\n     &3.7197e+00_rb,4.0279e+00_rb,4.3734e+00_rb,4.7560e+00_rb,5.1758e+00_rb/)\n      kbo(:,31, 7) = (/ &\n     &3.4217e+00_rb,3.7276e+00_rb,4.0700e+00_rb,4.4513e+00_rb,4.8709e+00_rb/)\n      kbo(:,32, 7) = (/ &\n     &3.1725e+00_rb,3.4760e+00_rb,3.8179e+00_rb,4.1999e+00_rb,4.6169e+00_rb/)\n      kbo(:,33, 7) = (/ &\n     &2.9640e+00_rb,3.2682e+00_rb,3.6118e+00_rb,3.9912e+00_rb,4.4110e+00_rb/)\n      kbo(:,34, 7) = (/ &\n     &2.7815e+00_rb,3.0881e+00_rb,3.4286e+00_rb,3.8090e+00_rb,4.2366e+00_rb/)\n      kbo(:,35, 7) = (/ &\n     &2.6027e+00_rb,2.9073e+00_rb,3.2445e+00_rb,3.6269e+00_rb,4.0627e+00_rb/)\n      kbo(:,36, 7) = (/ &\n     &2.4195e+00_rb,2.7195e+00_rb,3.0535e+00_rb,3.4362e+00_rb,3.8766e+00_rb/)\n      kbo(:,37, 7) = (/ &\n     &2.2155e+00_rb,2.5099e+00_rb,2.8373e+00_rb,3.2150e+00_rb,3.6504e+00_rb/)\n      kbo(:,38, 7) = (/ &\n     &2.0317e+00_rb,2.3214e+00_rb,2.6457e+00_rb,3.0187e+00_rb,3.4497e+00_rb/)\n      kbo(:,39, 7) = (/ &\n     &1.8675e+00_rb,2.1535e+00_rb,2.4775e+00_rb,2.8467e+00_rb,3.2732e+00_rb/)\n      kbo(:,40, 7) = (/ &\n     &1.6933e+00_rb,1.9726e+00_rb,2.2917e+00_rb,2.6527e+00_rb,3.0690e+00_rb/)\n      kbo(:,41, 7) = (/ &\n     &1.5321e+00_rb,1.8045e+00_rb,2.1184e+00_rb,2.4731e+00_rb,2.8788e+00_rb/)\n      kbo(:,42, 7) = (/ &\n     &1.3858e+00_rb,1.6512e+00_rb,1.9598e+00_rb,2.3096e+00_rb,2.7061e+00_rb/)\n      kbo(:,43, 7) = (/ &\n     &1.2395e+00_rb,1.4953e+00_rb,1.7959e+00_rb,2.1389e+00_rb,2.5250e+00_rb/)\n      kbo(:,44, 7) = (/ &\n     &1.1006e+00_rb,1.3456e+00_rb,1.6365e+00_rb,1.9712e+00_rb,2.3479e+00_rb/)\n      kbo(:,45, 7) = (/ &\n     &9.7411e-01_rb,1.2078e+00_rb,1.4892e+00_rb,1.8150e+00_rb,2.1832e+00_rb/)\n      kbo(:,46, 7) = (/ &\n     &8.5489e-01_rb,1.0759e+00_rb,1.3456e+00_rb,1.6612e+00_rb,2.0197e+00_rb/)\n      kbo(:,47, 7) = (/ &\n     &7.3930e-01_rb,9.4494e-01_rb,1.2000e+00_rb,1.5026e+00_rb,1.8496e+00_rb/)\n      kbo(:,48, 7) = (/ &\n     &6.3547e-01_rb,8.2535e-01_rb,1.0653e+00_rb,1.3544e+00_rb,1.6889e+00_rb/)\n      kbo(:,49, 7) = (/ &\n     &5.4241e-01_rb,7.1674e-01_rb,9.4139e-01_rb,1.2160e+00_rb,1.5375e+00_rb/)\n      kbo(:,50, 7) = (/ &\n     &4.6304e-01_rb,6.2300e-01_rb,8.3217e-01_rb,1.0925e+00_rb,1.4012e+00_rb/)\n      kbo(:,51, 7) = (/ &\n     &3.9371e-01_rb,5.3995e-01_rb,7.3373e-01_rb,9.7980e-01_rb,1.2748e+00_rb/)\n      kbo(:,52, 7) = (/ &\n     &3.3220e-01_rb,4.6493e-01_rb,6.4396e-01_rb,8.7508e-01_rb,1.1558e+00_rb/)\n      kbo(:,53, 7) = (/ &\n     &2.7778e-01_rb,3.9741e-01_rb,5.6181e-01_rb,7.7785e-01_rb,1.0434e+00_rb/)\n      kbo(:,54, 7) = (/ &\n     &2.3274e-01_rb,3.4050e-01_rb,4.9090e-01_rb,6.9261e-01_rb,9.4387e-01_rb/)\n      kbo(:,55, 7) = (/ &\n     &1.9435e-01_rb,2.9105e-01_rb,4.2805e-01_rb,6.1562e-01_rb,8.5235e-01_rb/)\n      kbo(:,56, 7) = (/ &\n     &1.6083e-01_rb,2.4693e-01_rb,3.7158e-01_rb,5.4415e-01_rb,7.6669e-01_rb/)\n      kbo(:,57, 7) = (/ &\n     &1.3183e-01_rb,2.0770e-01_rb,3.2034e-01_rb,4.7818e-01_rb,6.8649e-01_rb/)\n      kbo(:,58, 7) = (/ &\n     &1.0786e-01_rb,1.7445e-01_rb,2.7618e-01_rb,4.2058e-01_rb,6.1481e-01_rb/)\n      kbo(:,59, 7) = (/ &\n     &9.5778e-02_rb,1.5879e-01_rb,2.5699e-01_rb,3.9684e-01_rb,5.8283e-01_rb/)\n      kbo(:,13, 8) = (/ &\n     &5.1036e+01_rb,5.0460e+01_rb,4.9876e+01_rb,4.9272e+01_rb,4.8645e+01_rb/)\n      kbo(:,14, 8) = (/ &\n     &4.9659e+01_rb,4.9240e+01_rb,4.8789e+01_rb,4.8317e+01_rb,4.7813e+01_rb/)\n      kbo(:,15, 8) = (/ &\n     &4.7836e+01_rb,4.7533e+01_rb,4.7179e+01_rb,4.6807e+01_rb,4.6408e+01_rb/)\n      kbo(:,16, 8) = (/ &\n     &4.5523e+01_rb,4.5307e+01_rb,4.5074e+01_rb,4.4798e+01_rb,4.4497e+01_rb/)\n      kbo(:,17, 8) = (/ &\n     &4.2751e+01_rb,4.2659e+01_rb,4.2523e+01_rb,4.2351e+01_rb,4.2128e+01_rb/)\n      kbo(:,18, 8) = (/ &\n     &3.9675e+01_rb,3.9678e+01_rb,3.9613e+01_rb,3.9512e+01_rb,3.9377e+01_rb/)\n      kbo(:,19, 8) = (/ &\n     &3.6385e+01_rb,3.6442e+01_rb,3.6467e+01_rb,3.6453e+01_rb,3.6385e+01_rb/)\n      kbo(:,20, 8) = (/ &\n     &3.2988e+01_rb,3.3119e+01_rb,3.3207e+01_rb,3.3253e+01_rb,3.3266e+01_rb/)\n      kbo(:,21, 8) = (/ &\n     &2.9629e+01_rb,2.9807e+01_rb,2.9950e+01_rb,3.0074e+01_rb,3.0195e+01_rb/)\n      kbo(:,22, 8) = (/ &\n     &2.6389e+01_rb,2.6615e+01_rb,2.6833e+01_rb,2.7054e+01_rb,2.7281e+01_rb/)\n      kbo(:,23, 8) = (/ &\n     &2.3355e+01_rb,2.3644e+01_rb,2.3948e+01_rb,2.4296e+01_rb,2.4660e+01_rb/)\n      kbo(:,24, 8) = (/ &\n     &2.0595e+01_rb,2.0963e+01_rb,2.1391e+01_rb,2.1861e+01_rb,2.2380e+01_rb/)\n      kbo(:,25, 8) = (/ &\n     &1.8159e+01_rb,1.8637e+01_rb,1.9183e+01_rb,1.9778e+01_rb,2.0439e+01_rb/)\n      kbo(:,26, 8) = (/ &\n     &1.6089e+01_rb,1.6677e+01_rb,1.7319e+01_rb,1.8032e+01_rb,1.8814e+01_rb/)\n      kbo(:,27, 8) = (/ &\n     &1.4363e+01_rb,1.5028e+01_rb,1.5757e+01_rb,1.6564e+01_rb,1.7443e+01_rb/)\n      kbo(:,28, 8) = (/ &\n     &1.2926e+01_rb,1.3648e+01_rb,1.4446e+01_rb,1.5323e+01_rb,1.6326e+01_rb/)\n      kbo(:,29, 8) = (/ &\n     &1.1723e+01_rb,1.2493e+01_rb,1.3349e+01_rb,1.4336e+01_rb,1.5419e+01_rb/)\n      kbo(:,30, 8) = (/ &\n     &1.0720e+01_rb,1.1535e+01_rb,1.2485e+01_rb,1.3543e+01_rb,1.4696e+01_rb/)\n      kbo(:,31, 8) = (/ &\n     &9.8953e+00_rb,1.0794e+01_rb,1.1807e+01_rb,1.2928e+01_rb,1.4151e+01_rb/)\n      kbo(:,32, 8) = (/ &\n     &9.2630e+00_rb,1.0213e+01_rb,1.1281e+01_rb,1.2468e+01_rb,1.3783e+01_rb/)\n      kbo(:,33, 8) = (/ &\n     &8.7693e+00_rb,9.7682e+00_rb,1.0900e+01_rb,1.2171e+01_rb,1.3564e+01_rb/)\n      kbo(:,34, 8) = (/ &\n     &8.3550e+00_rb,9.4057e+00_rb,1.0612e+01_rb,1.1954e+01_rb,1.3416e+01_rb/)\n      kbo(:,35, 8) = (/ &\n     &7.9503e+00_rb,9.0506e+00_rb,1.0311e+01_rb,1.1711e+01_rb,1.3230e+01_rb/)\n      kbo(:,36, 8) = (/ &\n     &7.5260e+00_rb,8.6513e+00_rb,9.9500e+00_rb,1.1393e+01_rb,1.2954e+01_rb/)\n      kbo(:,37, 8) = (/ &\n     &7.0166e+00_rb,8.1408e+00_rb,9.4476e+00_rb,1.0907e+01_rb,1.2489e+01_rb/)\n      kbo(:,38, 8) = (/ &\n     &6.5631e+00_rb,7.6815e+00_rb,8.9895e+00_rb,1.0461e+01_rb,1.2064e+01_rb/)\n      kbo(:,39, 8) = (/ &\n     &6.1678e+00_rb,7.2805e+00_rb,8.5861e+00_rb,1.0065e+01_rb,1.1676e+01_rb/)\n      kbo(:,40, 8) = (/ &\n     &5.7155e+00_rb,6.7987e+00_rb,8.0775e+00_rb,9.5392e+00_rb,1.1142e+01_rb/)\n      kbo(:,41, 8) = (/ &\n     &5.2949e+00_rb,6.3470e+00_rb,7.5914e+00_rb,9.0258e+00_rb,1.0614e+01_rb/)\n      kbo(:,42, 8) = (/ &\n     &4.9139e+00_rb,5.9322e+00_rb,7.1403e+00_rb,8.5407e+00_rb,1.0110e+01_rb/)\n      kbo(:,43, 8) = (/ &\n     &4.5194e+00_rb,5.4902e+00_rb,6.6498e+00_rb,8.0033e+00_rb,9.5351e+00_rb/)\n      kbo(:,44, 8) = (/ &\n     &4.1399e+00_rb,5.0576e+00_rb,6.1633e+00_rb,7.4614e+00_rb,8.9447e+00_rb/)\n      kbo(:,45, 8) = (/ &\n     &3.7947e+00_rb,4.6596e+00_rb,5.7095e+00_rb,6.9501e+00_rb,8.3804e+00_rb/)\n      kbo(:,46, 8) = (/ &\n     &3.4645e+00_rb,4.2731e+00_rb,5.2631e+00_rb,6.4408e+00_rb,7.8107e+00_rb/)\n      kbo(:,47, 8) = (/ &\n     &3.1333e+00_rb,3.8817e+00_rb,4.8032e+00_rb,5.9109e+00_rb,7.2077e+00_rb/)\n      kbo(:,48, 8) = (/ &\n     &2.8272e+00_rb,3.5252e+00_rb,4.3790e+00_rb,5.4161e+00_rb,6.6403e+00_rb/)\n      kbo(:,49, 8) = (/ &\n     &2.5419e+00_rb,3.2000e+00_rb,3.9894e+00_rb,4.9550e+00_rb,6.1077e+00_rb/)\n      kbo(:,50, 8) = (/ &\n     &2.2876e+00_rb,2.9151e+00_rb,3.6507e+00_rb,4.5513e+00_rb,5.6358e+00_rb/)\n      kbo(:,51, 8) = (/ &\n     &2.0539e+00_rb,2.6537e+00_rb,3.3480e+00_rb,4.1860e+00_rb,5.2042e+00_rb/)\n      kbo(:,52, 8) = (/ &\n     &1.8359e+00_rb,2.4075e+00_rb,3.0676e+00_rb,3.8482e+00_rb,4.8005e+00_rb/)\n      kbo(:,53, 8) = (/ &\n     &1.6315e+00_rb,2.1744e+00_rb,2.8043e+00_rb,3.5342e+00_rb,4.4242e+00_rb/)\n      kbo(:,54, 8) = (/ &\n     &1.4536e+00_rb,1.9689e+00_rb,2.5734e+00_rb,3.2651e+00_rb,4.0977e+00_rb/)\n      kbo(:,55, 8) = (/ &\n     &1.2924e+00_rb,1.7818e+00_rb,2.3616e+00_rb,3.0234e+00_rb,3.8040e+00_rb/)\n      kbo(:,56, 8) = (/ &\n     &1.1428e+00_rb,1.6042e+00_rb,2.1584e+00_rb,2.7950e+00_rb,3.5303e+00_rb/)\n      kbo(:,57, 8) = (/ &\n     &1.0034e+00_rb,1.4376e+00_rb,1.9645e+00_rb,2.5766e+00_rb,3.2746e+00_rb/)\n      kbo(:,58, 8) = (/ &\n     &8.7989e-01_rb,1.2882e+00_rb,1.7895e+00_rb,2.3775e+00_rb,3.0470e+00_rb/)\n      kbo(:,59, 8) = (/ &\n     &8.2607e-01_rb,1.2253e+00_rb,1.7145e+00_rb,2.2929e+00_rb,2.9546e+00_rb/)\n      kbo(:,13, 9) = (/ &\n     &9.9406e+01_rb,9.8017e+01_rb,9.6610e+01_rb,9.5133e+01_rb,9.3589e+01_rb/)\n      kbo(:,14, 9) = (/ &\n     &1.0426e+02_rb,1.0289e+02_rb,1.0145e+02_rb,9.9955e+01_rb,9.8418e+01_rb/)\n      kbo(:,15, 9) = (/ &\n     &1.0831e+02_rb,1.0700e+02_rb,1.0565e+02_rb,1.0422e+02_rb,1.0271e+02_rb/)\n      kbo(:,16, 9) = (/ &\n     &1.1144e+02_rb,1.1027e+02_rb,1.0899e+02_rb,1.0766e+02_rb,1.0626e+02_rb/)\n      kbo(:,17, 9) = (/ &\n     &1.1357e+02_rb,1.1252e+02_rb,1.1140e+02_rb,1.1022e+02_rb,1.0897e+02_rb/)\n      kbo(:,18, 9) = (/ &\n     &1.1451e+02_rb,1.1366e+02_rb,1.1275e+02_rb,1.1172e+02_rb,1.1059e+02_rb/)\n      kbo(:,19, 9) = (/ &\n     &1.1419e+02_rb,1.1358e+02_rb,1.1283e+02_rb,1.1199e+02_rb,1.1108e+02_rb/)\n      kbo(:,20, 9) = (/ &\n     &1.1253e+02_rb,1.1217e+02_rb,1.1170e+02_rb,1.1113e+02_rb,1.1043e+02_rb/)\n      kbo(:,21, 9) = (/ &\n     &1.0964e+02_rb,1.0959e+02_rb,1.0941e+02_rb,1.0911e+02_rb,1.0868e+02_rb/)\n      kbo(:,22, 9) = (/ &\n     &1.0576e+02_rb,1.0601e+02_rb,1.0614e+02_rb,1.0616e+02_rb,1.0606e+02_rb/)\n      kbo(:,23, 9) = (/ &\n     &1.0113e+02_rb,1.0172e+02_rb,1.0220e+02_rb,1.0257e+02_rb,1.0280e+02_rb/)\n      kbo(:,24, 9) = (/ &\n     &9.6005e+01_rb,9.6976e+01_rb,9.7826e+01_rb,9.8561e+01_rb,9.9182e+01_rb/)\n      kbo(:,25, 9) = (/ &\n     &9.0658e+01_rb,9.2026e+01_rb,9.3302e+01_rb,9.4462e+01_rb,9.5504e+01_rb/)\n      kbo(:,26, 9) = (/ &\n     &8.5398e+01_rb,8.7188e+01_rb,8.8895e+01_rb,9.0506e+01_rb,9.1994e+01_rb/)\n      kbo(:,27, 9) = (/ &\n     &8.0425e+01_rb,8.2648e+01_rb,8.4817e+01_rb,8.6900e+01_rb,8.8861e+01_rb/)\n      kbo(:,28, 9) = (/ &\n     &7.5902e+01_rb,7.8597e+01_rb,8.1250e+01_rb,8.3817e+01_rb,8.6189e+01_rb/)\n      kbo(:,29, 9) = (/ &\n     &7.2021e+01_rb,7.5193e+01_rb,7.8323e+01_rb,8.1284e+01_rb,8.4079e+01_rb/)\n      kbo(:,30, 9) = (/ &\n     &6.8846e+01_rb,7.2476e+01_rb,7.5986e+01_rb,7.9352e+01_rb,8.2517e+01_rb/)\n      kbo(:,31, 9) = (/ &\n     &6.6391e+01_rb,7.0389e+01_rb,7.4280e+01_rb,7.7994e+01_rb,8.1462e+01_rb/)\n      kbo(:,32, 9) = (/ &\n     &6.4577e+01_rb,6.8942e+01_rb,7.3166e+01_rb,7.7157e+01_rb,8.0829e+01_rb/)\n      kbo(:,33, 9) = (/ &\n     &6.3392e+01_rb,6.8071e+01_rb,7.2548e+01_rb,7.6730e+01_rb,8.0569e+01_rb/)\n      kbo(:,34, 9) = (/ &\n     &6.2591e+01_rb,6.7517e+01_rb,7.2182e+01_rb,7.6523e+01_rb,8.0479e+01_rb/)\n      kbo(:,35, 9) = (/ &\n     &6.1727e+01_rb,6.6854e+01_rb,7.1692e+01_rb,7.6175e+01_rb,8.0232e+01_rb/)\n      kbo(:,36, 9) = (/ &\n     &6.0594e+01_rb,6.5914e+01_rb,7.0919e+01_rb,7.5536e+01_rb,7.9714e+01_rb/)\n      kbo(:,37, 9) = (/ &\n     &5.8846e+01_rb,6.4364e+01_rb,6.9558e+01_rb,7.4349e+01_rb,7.8713e+01_rb/)\n      kbo(:,38, 9) = (/ &\n     &5.7194e+01_rb,6.2887e+01_rb,6.8247e+01_rb,7.3195e+01_rb,7.8049e+01_rb/)\n      kbo(:,39, 9) = (/ &\n     &5.5665e+01_rb,6.1507e+01_rb,6.7008e+01_rb,7.2147e+01_rb,7.7547e+01_rb/)\n      kbo(:,40, 9) = (/ &\n     &5.3621e+01_rb,5.9617e+01_rb,6.5286e+01_rb,7.0695e+01_rb,7.6340e+01_rb/)\n      kbo(:,41, 9) = (/ &\n     &5.1554e+01_rb,5.7685e+01_rb,6.3510e+01_rb,6.9201e+01_rb,7.4982e+01_rb/)\n      kbo(:,42, 9) = (/ &\n     &4.9528e+01_rb,5.5776e+01_rb,6.1743e+01_rb,6.7740e+01_rb,7.3659e+01_rb/)\n      kbo(:,43, 9) = (/ &\n     &4.7178e+01_rb,5.3540e+01_rb,5.9647e+01_rb,6.5886e+01_rb,7.2015e+01_rb/)\n      kbo(:,44, 9) = (/ &\n     &4.4688e+01_rb,5.1145e+01_rb,5.7387e+01_rb,6.3891e+01_rb,7.0203e+01_rb/)\n      kbo(:,45, 9) = (/ &\n     &4.2221e+01_rb,4.8754e+01_rb,5.5108e+01_rb,6.1908e+01_rb,6.8361e+01_rb/)\n      kbo(:,46, 9) = (/ &\n     &3.9637e+01_rb,4.6220e+01_rb,5.2693e+01_rb,5.9708e+01_rb,6.6363e+01_rb/)\n      kbo(:,47, 9) = (/ &\n     &3.6803e+01_rb,4.3409e+01_rb,4.9987e+01_rb,5.7153e+01_rb,6.3987e+01_rb/)\n      kbo(:,48, 9) = (/ &\n     &3.4015e+01_rb,4.0603e+01_rb,4.7276e+01_rb,5.4594e+01_rb,6.1608e+01_rb/)\n      kbo(:,49, 9) = (/ &\n     &3.1288e+01_rb,3.7812e+01_rb,4.4636e+01_rb,5.2065e+01_rb,5.9201e+01_rb/)\n      kbo(:,50, 9) = (/ &\n     &2.8795e+01_rb,3.5220e+01_rb,4.2061e+01_rb,4.9552e+01_rb,5.6813e+01_rb/)\n      kbo(:,51, 9) = (/ &\n     &2.6450e+01_rb,3.2748e+01_rb,3.9528e+01_rb,4.7065e+01_rb,5.4424e+01_rb/)\n      kbo(:,52, 9) = (/ &\n     &2.4182e+01_rb,3.0329e+01_rb,3.7052e+01_rb,4.4584e+01_rb,5.2041e+01_rb/)\n      kbo(:,53, 9) = (/ &\n     &2.1996e+01_rb,2.7965e+01_rb,3.4636e+01_rb,4.2155e+01_rb,4.9659e+01_rb/)\n      kbo(:,54, 9) = (/ &\n     &2.0069e+01_rb,2.5858e+01_rb,3.2251e+01_rb,3.9700e+01_rb,4.7245e+01_rb/)\n      kbo(:,55, 9) = (/ &\n     &1.8302e+01_rb,2.3898e+01_rb,3.0045e+01_rb,3.7230e+01_rb,4.4781e+01_rb/)\n      kbo(:,56, 9) = (/ &\n     &1.6618e+01_rb,2.2006e+01_rb,2.7997e+01_rb,3.4787e+01_rb,4.2319e+01_rb/)\n      kbo(:,57, 9) = (/ &\n     &1.5017e+01_rb,2.0180e+01_rb,2.5997e+01_rb,3.2401e+01_rb,3.9855e+01_rb/)\n      kbo(:,58, 9) = (/ &\n     &1.3581e+01_rb,1.8514e+01_rb,2.4151e+01_rb,3.0332e+01_rb,3.7487e+01_rb/)\n      kbo(:,59, 9) = (/ &\n     &1.3022e+01_rb,1.7859e+01_rb,2.3425e+01_rb,2.9551e+01_rb,3.6092e+01_rb/)\n      kbo(:,13,10) = (/ &\n     &1.4854e+02_rb,1.4629e+02_rb,1.4392e+02_rb,1.4179e+02_rb,1.3968e+02_rb/)\n      kbo(:,14,10) = (/ &\n     &1.6449e+02_rb,1.6201e+02_rb,1.5966e+02_rb,1.5740e+02_rb,1.5475e+02_rb/)\n      kbo(:,15,10) = (/ &\n     &1.8113e+02_rb,1.7883e+02_rb,1.7633e+02_rb,1.7356e+02_rb,1.7082e+02_rb/)\n      kbo(:,16,10) = (/ &\n     &1.9869e+02_rb,1.9617e+02_rb,1.9337e+02_rb,1.9057e+02_rb,1.8767e+02_rb/)\n      kbo(:,17,10) = (/ &\n     &2.1579e+02_rb,2.1310e+02_rb,2.1009e+02_rb,2.0678e+02_rb,2.0344e+02_rb/)\n      kbo(:,18,10) = (/ &\n     &2.3175e+02_rb,2.2862e+02_rb,2.2543e+02_rb,2.2232e+02_rb,2.1916e+02_rb/)\n      kbo(:,19,10) = (/ &\n     &2.4595e+02_rb,2.4325e+02_rb,2.4040e+02_rb,2.3730e+02_rb,2.3384e+02_rb/)\n      kbo(:,20,10) = (/ &\n     &2.5917e+02_rb,2.5646e+02_rb,2.5347e+02_rb,2.5026e+02_rb,2.4697e+02_rb/)\n      kbo(:,21,10) = (/ &\n     &2.7002e+02_rb,2.6751e+02_rb,2.6472e+02_rb,2.6184e+02_rb,2.5881e+02_rb/)\n      kbo(:,22,10) = (/ &\n     &2.7788e+02_rb,2.7617e+02_rb,2.7411e+02_rb,2.7166e+02_rb,2.6869e+02_rb/)\n      kbo(:,23,10) = (/ &\n     &2.8310e+02_rb,2.8234e+02_rb,2.8114e+02_rb,2.7929e+02_rb,2.7687e+02_rb/)\n      kbo(:,24,10) = (/ &\n     &2.8635e+02_rb,2.8652e+02_rb,2.8615e+02_rb,2.8511e+02_rb,2.8345e+02_rb/)\n      kbo(:,25,10) = (/ &\n     &2.8819e+02_rb,2.8935e+02_rb,2.8976e+02_rb,2.8954e+02_rb,2.8857e+02_rb/)\n      kbo(:,26,10) = (/ &\n     &2.8894e+02_rb,2.9109e+02_rb,2.9250e+02_rb,2.9307e+02_rb,2.9272e+02_rb/)\n      kbo(:,27,10) = (/ &\n     &2.8895e+02_rb,2.9239e+02_rb,2.9473e+02_rb,2.9595e+02_rb,2.9616e+02_rb/)\n      kbo(:,28,10) = (/ &\n     &2.8893e+02_rb,2.9347e+02_rb,2.9660e+02_rb,2.9845e+02_rb,2.9908e+02_rb/)\n      kbo(:,29,10) = (/ &\n     &2.8896e+02_rb,2.9449e+02_rb,2.9830e+02_rb,3.0067e+02_rb,3.0167e+02_rb/)\n      kbo(:,30,10) = (/ &\n     &2.8928e+02_rb,2.9562e+02_rb,2.9995e+02_rb,3.0268e+02_rb,3.0395e+02_rb/)\n      kbo(:,31,10) = (/ &\n     &2.9009e+02_rb,2.9691e+02_rb,3.0163e+02_rb,3.0456e+02_rb,3.0602e+02_rb/)\n      kbo(:,32,10) = (/ &\n     &2.9131e+02_rb,2.9842e+02_rb,3.0331e+02_rb,3.0639e+02_rb,3.0785e+02_rb/)\n      kbo(:,33,10) = (/ &\n     &2.9285e+02_rb,3.0006e+02_rb,3.0500e+02_rb,3.0808e+02_rb,3.0942e+02_rb/)\n      kbo(:,34,10) = (/ &\n     &2.9430e+02_rb,3.0156e+02_rb,3.0650e+02_rb,3.0954e+02_rb,3.1081e+02_rb/)\n      kbo(:,35,10) = (/ &\n     &2.9506e+02_rb,3.0251e+02_rb,3.0756e+02_rb,3.1064e+02_rb,3.1189e+02_rb/)\n      kbo(:,36,10) = (/ &\n     &2.9495e+02_rb,3.0278e+02_rb,3.0811e+02_rb,3.1136e+02_rb,3.1273e+02_rb/)\n      kbo(:,37,10) = (/ &\n     &2.9340e+02_rb,3.0194e+02_rb,3.0787e+02_rb,3.1159e+02_rb,3.1314e+02_rb/)\n      kbo(:,38,10) = (/ &\n     &2.9167e+02_rb,3.0090e+02_rb,3.0743e+02_rb,3.1157e+02_rb,3.1035e+02_rb/)\n      kbo(:,39,10) = (/ &\n     &2.8984e+02_rb,2.9975e+02_rb,3.0683e+02_rb,3.1096e+02_rb,3.0638e+02_rb/)\n      kbo(:,40,10) = (/ &\n     &2.8667e+02_rb,2.9751e+02_rb,3.0546e+02_rb,3.0937e+02_rb,3.0473e+02_rb/)\n      kbo(:,41,10) = (/ &\n     &2.8308e+02_rb,2.9489e+02_rb,3.0373e+02_rb,3.0736e+02_rb,3.0363e+02_rb/)\n      kbo(:,42,10) = (/ &\n     &2.7921e+02_rb,2.9200e+02_rb,3.0174e+02_rb,3.0479e+02_rb,3.0187e+02_rb/)\n      kbo(:,43,10) = (/ &\n     &2.7420e+02_rb,2.8820e+02_rb,2.9899e+02_rb,3.0230e+02_rb,2.9999e+02_rb/)\n      kbo(:,44,10) = (/ &\n     &2.6840e+02_rb,2.8368e+02_rb,2.9562e+02_rb,2.9904e+02_rb,2.9872e+02_rb/)\n      kbo(:,45,10) = (/ &\n     &2.6218e+02_rb,2.7870e+02_rb,2.9185e+02_rb,2.9503e+02_rb,2.9798e+02_rb/)\n      kbo(:,46,10) = (/ &\n     &2.5505e+02_rb,2.7298e+02_rb,2.8727e+02_rb,2.9090e+02_rb,2.9720e+02_rb/)\n      kbo(:,47,10) = (/ &\n     &2.4654e+02_rb,2.6603e+02_rb,2.8160e+02_rb,2.8645e+02_rb,2.9469e+02_rb/)\n      kbo(:,48,10) = (/ &\n     &2.3740e+02_rb,2.5847e+02_rb,2.7519e+02_rb,2.8106e+02_rb,2.9248e+02_rb/)\n      kbo(:,49,10) = (/ &\n     &2.2763e+02_rb,2.5025e+02_rb,2.6743e+02_rb,2.7456e+02_rb,2.9049e+02_rb/)\n      kbo(:,50,10) = (/ &\n     &2.1791e+02_rb,2.4202e+02_rb,2.6048e+02_rb,2.6898e+02_rb,2.8731e+02_rb/)\n      kbo(:,51,10) = (/ &\n     &2.0797e+02_rb,2.3350e+02_rb,2.5355e+02_rb,2.6334e+02_rb,2.8310e+02_rb/)\n      kbo(:,52,10) = (/ &\n     &1.9757e+02_rb,2.2449e+02_rb,2.4576e+02_rb,2.5715e+02_rb,2.7915e+02_rb/)\n      kbo(:,53,10) = (/ &\n     &1.8669e+02_rb,2.1495e+02_rb,2.3714e+02_rb,2.5067e+02_rb,2.7496e+02_rb/)\n      kbo(:,54,10) = (/ &\n     &1.7638e+02_rb,2.0577e+02_rb,2.3068e+02_rb,2.4491e+02_rb,2.6874e+02_rb/)\n      kbo(:,55,10) = (/ &\n     &1.6621e+02_rb,1.9659e+02_rb,2.2369e+02_rb,2.4095e+02_rb,2.6031e+02_rb/)\n      kbo(:,56,10) = (/ &\n     &1.5581e+02_rb,1.8709e+02_rb,2.1533e+02_rb,2.3658e+02_rb,2.5187e+02_rb/)\n      kbo(:,57,10) = (/ &\n     &1.4523e+02_rb,1.7728e+02_rb,2.0662e+02_rb,2.3157e+02_rb,2.4581e+02_rb/)\n      kbo(:,58,10) = (/ &\n     &1.3508e+02_rb,1.6774e+02_rb,1.9802e+02_rb,2.2497e+02_rb,2.4252e+02_rb/)\n      kbo(:,59,10) = (/ &\n     &1.3094e+02_rb,1.6382e+02_rb,1.9446e+02_rb,2.2185e+02_rb,2.4525e+02_rb/)\n      kbo(:,13,11) = (/ &\n     &1.6572e+02_rb,1.6289e+02_rb,1.6008e+02_rb,1.5714e+02_rb,1.5448e+02_rb/)\n      kbo(:,14,11) = (/ &\n     &1.8540e+02_rb,1.8266e+02_rb,1.7967e+02_rb,1.7665e+02_rb,1.7387e+02_rb/)\n      kbo(:,15,11) = (/ &\n     &2.0814e+02_rb,2.0518e+02_rb,2.0210e+02_rb,1.9898e+02_rb,1.9569e+02_rb/)\n      kbo(:,16,11) = (/ &\n     &2.3282e+02_rb,2.2978e+02_rb,2.2643e+02_rb,2.2243e+02_rb,2.1800e+02_rb/)\n      kbo(:,17,11) = (/ &\n     &2.5856e+02_rb,2.5501e+02_rb,2.5085e+02_rb,2.4632e+02_rb,2.4166e+02_rb/)\n      kbo(:,18,11) = (/ &\n     &2.8422e+02_rb,2.8031e+02_rb,2.7577e+02_rb,2.7086e+02_rb,2.6564e+02_rb/)\n      kbo(:,19,11) = (/ &\n     &3.0919e+02_rb,3.0467e+02_rb,2.9960e+02_rb,2.9432e+02_rb,2.8897e+02_rb/)\n      kbo(:,20,11) = (/ &\n     &3.3207e+02_rb,3.2741e+02_rb,3.2245e+02_rb,3.1728e+02_rb,3.1181e+02_rb/)\n      kbo(:,21,11) = (/ &\n     &3.5360e+02_rb,3.4929e+02_rb,3.4457e+02_rb,3.3936e+02_rb,3.3368e+02_rb/)\n      kbo(:,22,11) = (/ &\n     &3.7366e+02_rb,3.6938e+02_rb,3.6457e+02_rb,3.5924e+02_rb,3.5347e+02_rb/)\n      kbo(:,23,11) = (/ &\n     &3.9151e+02_rb,3.8745e+02_rb,3.8282e+02_rb,3.7760e+02_rb,3.7188e+02_rb/)\n      kbo(:,24,11) = (/ &\n     &4.0699e+02_rb,4.0355e+02_rb,3.9930e+02_rb,3.9428e+02_rb,3.8859e+02_rb/)\n      kbo(:,25,11) = (/ &\n     &4.2010e+02_rb,4.1762e+02_rb,4.1382e+02_rb,4.0900e+02_rb,4.0333e+02_rb/)\n      kbo(:,26,11) = (/ &\n     &4.3097e+02_rb,4.2949e+02_rb,4.2634e+02_rb,4.2177e+02_rb,4.1610e+02_rb/)\n      kbo(:,27,11) = (/ &\n     &4.4020e+02_rb,4.3958e+02_rb,4.3704e+02_rb,4.3277e+02_rb,4.2718e+02_rb/)\n      kbo(:,28,11) = (/ &\n     &4.4818e+02_rb,4.4821e+02_rb,4.4611e+02_rb,4.4212e+02_rb,4.3652e+02_rb/)\n      kbo(:,29,11) = (/ &\n     &4.5504e+02_rb,4.5548e+02_rb,4.5376e+02_rb,4.4984e+02_rb,4.4415e+02_rb/)\n      kbo(:,30,11) = (/ &\n     &4.6091e+02_rb,4.6162e+02_rb,4.6010e+02_rb,4.5616e+02_rb,4.5025e+02_rb/)\n      kbo(:,31,11) = (/ &\n     &4.6598e+02_rb,4.6680e+02_rb,4.6528e+02_rb,4.6118e+02_rb,4.5498e+02_rb/)\n      kbo(:,32,11) = (/ &\n     &4.7040e+02_rb,4.7120e+02_rb,4.6944e+02_rb,4.6509e+02_rb,4.5862e+02_rb/)\n      kbo(:,33,11) = (/ &\n     &4.7430e+02_rb,4.7493e+02_rb,4.7283e+02_rb,4.6810e+02_rb,4.6122e+02_rb/)\n      kbo(:,34,11) = (/ &\n     &4.7770e+02_rb,4.7802e+02_rb,4.7557e+02_rb,4.7044e+02_rb,4.6319e+02_rb/)\n      kbo(:,35,11) = (/ &\n     &4.8041e+02_rb,4.8064e+02_rb,4.7804e+02_rb,4.7275e+02_rb,4.6531e+02_rb/)\n      kbo(:,36,11) = (/ &\n     &4.8253e+02_rb,4.8296e+02_rb,4.8047e+02_rb,4.7521e+02_rb,4.6778e+02_rb/)\n      kbo(:,37,11) = (/ &\n     &4.8393e+02_rb,4.8502e+02_rb,4.8301e+02_rb,4.7821e+02_rb,4.7102e+02_rb/)\n      kbo(:,38,11) = (/ &\n     &4.8486e+02_rb,4.8663e+02_rb,4.8514e+02_rb,4.8082e+02_rb,4.7394e+02_rb/)\n      kbo(:,39,11) = (/ &\n     &4.8541e+02_rb,4.8785e+02_rb,4.8691e+02_rb,4.8302e+02_rb,4.7647e+02_rb/)\n      kbo(:,40,11) = (/ &\n     &4.8510e+02_rb,4.8864e+02_rb,4.8854e+02_rb,4.8540e+02_rb,4.7945e+02_rb/)\n      kbo(:,41,11) = (/ &\n     &4.8418e+02_rb,4.8891e+02_rb,4.8975e+02_rb,4.8740e+02_rb,4.8219e+02_rb/)\n      kbo(:,42,11) = (/ &\n     &4.8279e+02_rb,4.8873e+02_rb,4.9057e+02_rb,4.8904e+02_rb,4.8458e+02_rb/)\n      kbo(:,43,11) = (/ &\n     &4.8041e+02_rb,4.8782e+02_rb,4.9100e+02_rb,4.9049e+02_rb,4.8682e+02_rb/)\n      kbo(:,44,11) = (/ &\n     &4.7714e+02_rb,4.8618e+02_rb,4.9081e+02_rb,4.9150e+02_rb,4.8756e+02_rb/)\n      kbo(:,45,11) = (/ &\n     &4.7308e+02_rb,4.8395e+02_rb,4.9007e+02_rb,4.9204e+02_rb,4.8671e+02_rb/)\n      kbo(:,46,11) = (/ &\n     &4.6783e+02_rb,4.8086e+02_rb,4.8862e+02_rb,4.9205e+02_rb,4.8480e+02_rb/)\n      kbo(:,47,11) = (/ &\n     &4.6080e+02_rb,4.7644e+02_rb,4.8623e+02_rb,4.9139e+02_rb,4.8469e+02_rb/)\n      kbo(:,48,11) = (/ &\n     &4.5259e+02_rb,4.7102e+02_rb,4.8306e+02_rb,4.9003e+02_rb,4.8230e+02_rb/)\n      kbo(:,49,11) = (/ &\n     &4.4320e+02_rb,4.6445e+02_rb,4.7901e+02_rb,4.8786e+02_rb,4.7807e+02_rb/)\n      kbo(:,50,11) = (/ &\n     &4.3321e+02_rb,4.5728e+02_rb,4.7435e+02_rb,4.8518e+02_rb,4.7550e+02_rb/)\n      kbo(:,51,11) = (/ &\n     &4.2248e+02_rb,4.4931e+02_rb,4.6891e+02_rb,4.8193e+02_rb,4.7366e+02_rb/)\n      kbo(:,52,11) = (/ &\n     &4.1065e+02_rb,4.4034e+02_rb,4.6257e+02_rb,4.7793e+02_rb,4.7004e+02_rb/)\n      kbo(:,53,11) = (/ &\n     &3.9765e+02_rb,4.3037e+02_rb,4.5526e+02_rb,4.7213e+02_rb,4.6510e+02_rb/)\n      kbo(:,54,11) = (/ &\n     &3.8467e+02_rb,4.2027e+02_rb,4.4777e+02_rb,4.6790e+02_rb,4.6484e+02_rb/)\n      kbo(:,55,11) = (/ &\n     &3.7132e+02_rb,4.0974e+02_rb,4.3973e+02_rb,4.6220e+02_rb,4.6820e+02_rb/)\n      kbo(:,56,11) = (/ &\n     &3.5710e+02_rb,3.9837e+02_rb,4.3097e+02_rb,4.5580e+02_rb,4.7038e+02_rb/)\n      kbo(:,57,11) = (/ &\n     &3.4209e+02_rb,3.8602e+02_rb,4.2139e+02_rb,4.4866e+02_rb,4.6860e+02_rb/)\n      kbo(:,58,11) = (/ &\n     &3.2702e+02_rb,3.7354e+02_rb,4.1153e+02_rb,4.4115e+02_rb,4.6327e+02_rb/)\n      kbo(:,59,11) = (/ &\n     &3.2074e+02_rb,3.6827e+02_rb,4.0735e+02_rb,4.3797e+02_rb,4.6099e+02_rb/)\n      kbo(:,13,12) = (/ &\n     &1.8437e+02_rb,1.8201e+02_rb,1.7920e+02_rb,1.7619e+02_rb,1.7262e+02_rb/)\n      kbo(:,14,12) = (/ &\n     &2.0920e+02_rb,2.0655e+02_rb,2.0368e+02_rb,2.0039e+02_rb,1.9660e+02_rb/)\n      kbo(:,15,12) = (/ &\n     &2.3807e+02_rb,2.3483e+02_rb,2.3126e+02_rb,2.2723e+02_rb,2.2261e+02_rb/)\n      kbo(:,16,12) = (/ &\n     &2.7050e+02_rb,2.6622e+02_rb,2.6148e+02_rb,2.5668e+02_rb,2.5203e+02_rb/)\n      kbo(:,17,12) = (/ &\n     &3.0550e+02_rb,3.0047e+02_rb,2.9528e+02_rb,2.8984e+02_rb,2.8414e+02_rb/)\n      kbo(:,18,12) = (/ &\n     &3.4308e+02_rb,3.3718e+02_rb,3.3104e+02_rb,3.2458e+02_rb,3.1787e+02_rb/)\n      kbo(:,19,12) = (/ &\n     &3.8177e+02_rb,3.7532e+02_rb,3.6857e+02_rb,3.6127e+02_rb,3.5363e+02_rb/)\n      kbo(:,20,12) = (/ &\n     &4.2186e+02_rb,4.1506e+02_rb,4.0728e+02_rb,3.9905e+02_rb,3.9052e+02_rb/)\n      kbo(:,21,12) = (/ &\n     &4.6246e+02_rb,4.5454e+02_rb,4.4606e+02_rb,4.3704e+02_rb,4.2747e+02_rb/)\n      kbo(:,22,12) = (/ &\n     &5.0135e+02_rb,4.9292e+02_rb,4.8363e+02_rb,4.7369e+02_rb,4.6338e+02_rb/)\n      kbo(:,23,12) = (/ &\n     &5.3861e+02_rb,5.2961e+02_rb,5.1962e+02_rb,5.0894e+02_rb,4.9767e+02_rb/)\n      kbo(:,24,12) = (/ &\n     &5.7338e+02_rb,5.6389e+02_rb,5.5338e+02_rb,5.4189e+02_rb,5.2932e+02_rb/)\n      kbo(:,25,12) = (/ &\n     &6.0539e+02_rb,5.9528e+02_rb,5.8404e+02_rb,5.7158e+02_rb,5.5798e+02_rb/)\n      kbo(:,26,12) = (/ &\n     &6.3403e+02_rb,6.2334e+02_rb,6.1112e+02_rb,5.9770e+02_rb,5.8310e+02_rb/)\n      kbo(:,27,12) = (/ &\n     &6.5936e+02_rb,6.4795e+02_rb,6.3483e+02_rb,6.2036e+02_rb,6.0455e+02_rb/)\n      kbo(:,28,12) = (/ &\n     &6.8125e+02_rb,6.6919e+02_rb,6.5513e+02_rb,6.3951e+02_rb,6.2260e+02_rb/)\n      kbo(:,29,12) = (/ &\n     &6.9998e+02_rb,6.8712e+02_rb,6.7207e+02_rb,6.5530e+02_rb,6.3734e+02_rb/)\n      kbo(:,30,12) = (/ &\n     &7.1583e+02_rb,7.0209e+02_rb,6.8590e+02_rb,6.6805e+02_rb,6.4904e+02_rb/)\n      kbo(:,31,12) = (/ &\n     &7.2876e+02_rb,7.1404e+02_rb,6.9677e+02_rb,6.7790e+02_rb,6.5793e+02_rb/)\n      kbo(:,32,12) = (/ &\n     &7.3900e+02_rb,7.2324e+02_rb,7.0493e+02_rb,6.8513e+02_rb,6.6427e+02_rb/)\n      kbo(:,33,12) = (/ &\n     &7.4681e+02_rb,7.2991e+02_rb,7.1072e+02_rb,6.9001e+02_rb,6.6847e+02_rb/)\n      kbo(:,34,12) = (/ &\n     &7.5291e+02_rb,7.3522e+02_rb,7.1519e+02_rb,6.9374e+02_rb,6.7158e+02_rb/)\n      kbo(:,35,12) = (/ &\n     &7.5888e+02_rb,7.4060e+02_rb,7.1995e+02_rb,6.9804e+02_rb,6.7534e+02_rb/)\n      kbo(:,36,12) = (/ &\n     &7.6530e+02_rb,7.4674e+02_rb,7.2578e+02_rb,7.0348e+02_rb,6.8047e+02_rb/)\n      kbo(:,37,12) = (/ &\n     &7.7324e+02_rb,7.5477e+02_rb,7.3385e+02_rb,7.1142e+02_rb,6.8821e+02_rb/)\n      kbo(:,38,12) = (/ &\n     &7.8031e+02_rb,7.6209e+02_rb,7.4126e+02_rb,7.1874e+02_rb,6.9540e+02_rb/)\n      kbo(:,39,12) = (/ &\n     &7.8648e+02_rb,7.6857e+02_rb,7.4796e+02_rb,7.2542e+02_rb,7.0198e+02_rb/)\n      kbo(:,40,12) = (/ &\n     &7.9353e+02_rb,7.7637e+02_rb,7.5617e+02_rb,7.3391e+02_rb,7.1045e+02_rb/)\n      kbo(:,41,12) = (/ &\n     &7.9989e+02_rb,7.8377e+02_rb,7.6410e+02_rb,7.4214e+02_rb,7.1879e+02_rb/)\n      kbo(:,42,12) = (/ &\n     &8.0558e+02_rb,7.9048e+02_rb,7.7152e+02_rb,7.4994e+02_rb,7.2677e+02_rb/)\n      kbo(:,43,12) = (/ &\n     &8.1116e+02_rb,7.9747e+02_rb,7.7955e+02_rb,7.5862e+02_rb,7.3574e+02_rb/)\n      kbo(:,44,12) = (/ &\n     &8.1607e+02_rb,8.0410e+02_rb,7.8744e+02_rb,7.6731e+02_rb,7.4497e+02_rb/)\n      kbo(:,45,12) = (/ &\n     &8.1994e+02_rb,8.0997e+02_rb,7.9477e+02_rb,7.7561e+02_rb,7.5385e+02_rb/)\n      kbo(:,46,12) = (/ &\n     &8.2292e+02_rb,8.1527e+02_rb,8.0168e+02_rb,7.8384e+02_rb,7.6285e+02_rb/)\n      kbo(:,47,12) = (/ &\n     &8.2480e+02_rb,8.1993e+02_rb,8.0858e+02_rb,7.9229e+02_rb,7.7235e+02_rb/)\n      kbo(:,48,12) = (/ &\n     &8.2522e+02_rb,8.2345e+02_rb,8.1455e+02_rb,8.0002e+02_rb,7.8135e+02_rb/)\n      kbo(:,49,12) = (/ &\n     &8.2404e+02_rb,8.2558e+02_rb,8.1941e+02_rb,8.0697e+02_rb,7.8982e+02_rb/)\n      kbo(:,50,12) = (/ &\n     &8.2131e+02_rb,8.2647e+02_rb,8.2301e+02_rb,8.1277e+02_rb,7.9722e+02_rb/)\n      kbo(:,51,12) = (/ &\n     &8.1699e+02_rb,8.2604e+02_rb,8.2550e+02_rb,8.1759e+02_rb,8.0380e+02_rb/)\n      kbo(:,52,12) = (/ &\n     &8.1118e+02_rb,8.2427e+02_rb,8.2691e+02_rb,8.2151e+02_rb,8.0969e+02_rb/)\n      kbo(:,53,12) = (/ &\n     &8.0369e+02_rb,8.2099e+02_rb,8.2725e+02_rb,8.2455e+02_rb,8.1493e+02_rb/)\n      kbo(:,54,12) = (/ &\n     &7.9519e+02_rb,8.1662e+02_rb,8.2647e+02_rb,8.2649e+02_rb,8.1904e+02_rb/)\n      kbo(:,55,12) = (/ &\n     &7.8525e+02_rb,8.1122e+02_rb,8.2466e+02_rb,8.2753e+02_rb,8.2231e+02_rb/)\n      kbo(:,56,12) = (/ &\n     &7.7348e+02_rb,8.0460e+02_rb,8.2163e+02_rb,8.2776e+02_rb,8.2487e+02_rb/)\n      kbo(:,57,12) = (/ &\n     &7.5991e+02_rb,7.9652e+02_rb,8.1752e+02_rb,8.2701e+02_rb,8.2675e+02_rb/)\n      kbo(:,58,12) = (/ &\n     &7.4511e+02_rb,7.8730e+02_rb,8.1251e+02_rb,8.2536e+02_rb,8.2776e+02_rb/)\n      kbo(:,59,12) = (/ &\n     &7.3866e+02_rb,7.8320e+02_rb,8.1026e+02_rb,8.2449e+02_rb,8.2800e+02_rb/)\n      kbo(:,13,13) = (/ &\n     &2.0724e+02_rb,2.0318e+02_rb,2.0003e+02_rb,1.9694e+02_rb,1.9365e+02_rb/)\n      kbo(:,14,13) = (/ &\n     &2.3785e+02_rb,2.3358e+02_rb,2.2976e+02_rb,2.2561e+02_rb,2.2123e+02_rb/)\n      kbo(:,15,13) = (/ &\n     &2.7371e+02_rb,2.6880e+02_rb,2.6365e+02_rb,2.5854e+02_rb,2.5349e+02_rb/)\n      kbo(:,16,13) = (/ &\n     &3.1341e+02_rb,3.0766e+02_rb,3.0218e+02_rb,2.9651e+02_rb,2.9050e+02_rb/)\n      kbo(:,17,13) = (/ &\n     &3.5823e+02_rb,3.5167e+02_rb,3.4512e+02_rb,3.3848e+02_rb,3.3144e+02_rb/)\n      kbo(:,18,13) = (/ &\n     &4.0795e+02_rb,4.0075e+02_rb,3.9354e+02_rb,3.8585e+02_rb,3.7775e+02_rb/)\n      kbo(:,19,13) = (/ &\n     &4.6454e+02_rb,4.5636e+02_rb,4.4761e+02_rb,4.3852e+02_rb,4.2883e+02_rb/)\n      kbo(:,20,13) = (/ &\n     &5.2670e+02_rb,5.1674e+02_rb,5.0627e+02_rb,4.9500e+02_rb,4.8317e+02_rb/)\n      kbo(:,21,13) = (/ &\n     &5.9234e+02_rb,5.8071e+02_rb,5.6797e+02_rb,5.5430e+02_rb,5.3997e+02_rb/)\n      kbo(:,22,13) = (/ &\n     &6.5952e+02_rb,6.4514e+02_rb,6.2980e+02_rb,6.1347e+02_rb,5.9629e+02_rb/)\n      kbo(:,23,13) = (/ &\n     &7.2668e+02_rb,7.0946e+02_rb,6.9096e+02_rb,6.7135e+02_rb,6.5090e+02_rb/)\n      kbo(:,24,13) = (/ &\n     &7.9179e+02_rb,7.7144e+02_rb,7.4939e+02_rb,7.2625e+02_rb,7.0273e+02_rb/)\n      kbo(:,25,13) = (/ &\n     &8.5340e+02_rb,8.2954e+02_rb,8.0385e+02_rb,7.7737e+02_rb,7.5044e+02_rb/)\n      kbo(:,26,13) = (/ &\n     &9.1011e+02_rb,8.8231e+02_rb,8.5326e+02_rb,8.2331e+02_rb,7.9319e+02_rb/)\n      kbo(:,27,13) = (/ &\n     &9.6106e+02_rb,9.2973e+02_rb,8.9712e+02_rb,8.6391e+02_rb,8.3062e+02_rb/)\n      kbo(:,28,13) = (/ &\n     &1.0059e+03_rb,9.7091e+02_rb,9.3507e+02_rb,8.9869e+02_rb,8.6233e+02_rb/)\n      kbo(:,29,13) = (/ &\n     &1.0437e+03_rb,1.0055e+03_rb,9.6641e+02_rb,9.2715e+02_rb,8.8802e+02_rb/)\n      kbo(:,30,13) = (/ &\n     &1.0747e+03_rb,1.0334e+03_rb,9.9156e+02_rb,9.4965e+02_rb,9.0810e+02_rb/)\n      kbo(:,31,13) = (/ &\n     &1.0990e+03_rb,1.0548e+03_rb,1.0106e+03_rb,9.6642e+02_rb,9.2291e+02_rb/)\n      kbo(:,32,13) = (/ &\n     &1.1170e+03_rb,1.0705e+03_rb,1.0242e+03_rb,9.7810e+02_rb,9.3290e+02_rb/)\n      kbo(:,33,13) = (/ &\n     &1.1295e+03_rb,1.0810e+03_rb,1.0329e+03_rb,9.8524e+02_rb,9.3872e+02_rb/)\n      kbo(:,34,13) = (/ &\n     &1.1390e+03_rb,1.0889e+03_rb,1.0392e+03_rb,9.9037e+02_rb,9.4276e+02_rb/)\n      kbo(:,35,13) = (/ &\n     &1.1495e+03_rb,1.0980e+03_rb,1.0471e+03_rb,9.9723e+02_rb,9.4859e+02_rb/)\n      kbo(:,36,13) = (/ &\n     &1.1627e+03_rb,1.1100e+03_rb,1.0580e+03_rb,1.0071e+03_rb,9.5754e+02_rb/)\n      kbo(:,37,13) = (/ &\n     &1.1817e+03_rb,1.1279e+03_rb,1.0749e+03_rb,1.0229e+03_rb,9.7232e+02_rb/)\n      kbo(:,38,13) = (/ &\n     &1.1995e+03_rb,1.1446e+03_rb,1.0907e+03_rb,1.0378e+03_rb,9.8626e+02_rb/)\n      kbo(:,39,13) = (/ &\n     &1.2156e+03_rb,1.1601e+03_rb,1.1053e+03_rb,1.0516e+03_rb,9.9926e+02_rb/)\n      kbo(:,40,13) = (/ &\n     &1.2364e+03_rb,1.1800e+03_rb,1.1244e+03_rb,1.0699e+03_rb,1.0167e+03_rb/)\n      kbo(:,41,13) = (/ &\n     &1.2568e+03_rb,1.1999e+03_rb,1.1435e+03_rb,1.0883e+03_rb,1.0343e+03_rb/)\n      kbo(:,42,13) = (/ &\n     &1.2764e+03_rb,1.2191e+03_rb,1.1621e+03_rb,1.1062e+03_rb,1.0515e+03_rb/)\n      kbo(:,43,13) = (/ &\n     &1.2983e+03_rb,1.2411e+03_rb,1.1834e+03_rb,1.1268e+03_rb,1.0715e+03_rb/)\n      kbo(:,44,13) = (/ &\n     &1.3210e+03_rb,1.2639e+03_rb,1.2059e+03_rb,1.1485e+03_rb,1.0925e+03_rb/)\n      kbo(:,45,13) = (/ &\n     &1.3430e+03_rb,1.2862e+03_rb,1.2280e+03_rb,1.1702e+03_rb,1.1134e+03_rb/)\n      kbo(:,46,13) = (/ &\n     &1.3658e+03_rb,1.3092e+03_rb,1.2511e+03_rb,1.1929e+03_rb,1.1355e+03_rb/)\n      kbo(:,47,13) = (/ &\n     &1.3902e+03_rb,1.3342e+03_rb,1.2766e+03_rb,1.2180e+03_rb,1.1600e+03_rb/)\n      kbo(:,48,13) = (/ &\n     &1.4137e+03_rb,1.3587e+03_rb,1.3015e+03_rb,1.2430e+03_rb,1.1845e+03_rb/)\n      kbo(:,49,13) = (/ &\n     &1.4360e+03_rb,1.3827e+03_rb,1.3260e+03_rb,1.2679e+03_rb,1.2090e+03_rb/)\n      kbo(:,50,13) = (/ &\n     &1.4561e+03_rb,1.4046e+03_rb,1.3487e+03_rb,1.2910e+03_rb,1.2321e+03_rb/)\n      kbo(:,51,13) = (/ &\n     &1.4745e+03_rb,1.4251e+03_rb,1.3704e+03_rb,1.3131e+03_rb,1.2546e+03_rb/)\n      kbo(:,52,13) = (/ &\n     &1.4914e+03_rb,1.4448e+03_rb,1.3917e+03_rb,1.3349e+03_rb,1.2767e+03_rb/)\n      kbo(:,53,13) = (/ &\n     &1.5066e+03_rb,1.4635e+03_rb,1.4124e+03_rb,1.3565e+03_rb,1.2987e+03_rb/)\n      kbo(:,54,13) = (/ &\n     &1.5189e+03_rb,1.4798e+03_rb,1.4307e+03_rb,1.3761e+03_rb,1.3187e+03_rb/)\n      kbo(:,55,13) = (/ &\n     &1.5296e+03_rb,1.4942e+03_rb,1.4476e+03_rb,1.3946e+03_rb,1.3376e+03_rb/)\n      kbo(:,56,13) = (/ &\n     &1.5385e+03_rb,1.5073e+03_rb,1.4637e+03_rb,1.4124e+03_rb,1.3564e+03_rb/)\n      kbo(:,57,13) = (/ &\n     &1.5454e+03_rb,1.5190e+03_rb,1.4793e+03_rb,1.4298e+03_rb,1.3750e+03_rb/)\n      kbo(:,58,13) = (/ &\n     &1.5501e+03_rb,1.5291e+03_rb,1.4929e+03_rb,1.4457e+03_rb,1.3924e+03_rb/)\n      kbo(:,59,13) = (/ &\n     &1.5515e+03_rb,1.5328e+03_rb,1.4982e+03_rb,1.4521e+03_rb,1.3993e+03_rb/)\n      kbo(:,13,14) = (/ &\n     &2.5226e+02_rb,2.4628e+02_rb,2.3949e+02_rb,2.3300e+02_rb,2.2711e+02_rb/)\n      kbo(:,14,14) = (/ &\n     &2.8391e+02_rb,2.7613e+02_rb,2.6825e+02_rb,2.6100e+02_rb,2.5461e+02_rb/)\n      kbo(:,15,14) = (/ &\n     &3.2054e+02_rb,3.1155e+02_rb,3.0330e+02_rb,2.9588e+02_rb,2.8901e+02_rb/)\n      kbo(:,16,14) = (/ &\n     &3.6563e+02_rb,3.5616e+02_rb,3.4734e+02_rb,3.3914e+02_rb,3.3106e+02_rb/)\n      kbo(:,17,14) = (/ &\n     &4.2096e+02_rb,4.1081e+02_rb,4.0125e+02_rb,3.9214e+02_rb,3.8323e+02_rb/)\n      kbo(:,18,14) = (/ &\n     &4.8740e+02_rb,4.7626e+02_rb,4.6528e+02_rb,4.5466e+02_rb,4.4412e+02_rb/)\n      kbo(:,19,14) = (/ &\n     &5.6419e+02_rb,5.5097e+02_rb,5.3827e+02_rb,5.2557e+02_rb,5.1276e+02_rb/)\n      kbo(:,20,14) = (/ &\n     &6.5011e+02_rb,6.3415e+02_rb,6.1868e+02_rb,6.0321e+02_rb,5.8733e+02_rb/)\n      kbo(:,21,14) = (/ &\n     &7.4435e+02_rb,7.2484e+02_rb,7.0550e+02_rb,6.8621e+02_rb,6.6643e+02_rb/)\n      kbo(:,22,14) = (/ &\n     &8.4421e+02_rb,8.2013e+02_rb,7.9603e+02_rb,7.7185e+02_rb,7.4730e+02_rb/)\n      kbo(:,23,14) = (/ &\n     &9.4857e+02_rb,9.1895e+02_rb,8.8918e+02_rb,8.5916e+02_rb,8.2913e+02_rb/)\n      kbo(:,24,14) = (/ &\n     &1.0549e+03_rb,1.0183e+03_rb,9.8186e+02_rb,9.4534e+02_rb,9.0882e+02_rb/)\n      kbo(:,25,14) = (/ &\n     &1.1590e+03_rb,1.1145e+03_rb,1.0708e+03_rb,1.0270e+03_rb,9.8371e+02_rb/)\n      kbo(:,26,14) = (/ &\n     &1.2562e+03_rb,1.2038e+03_rb,1.1521e+03_rb,1.1010e+03_rb,1.0508e+03_rb/)\n      kbo(:,27,14) = (/ &\n     &1.3447e+03_rb,1.2836e+03_rb,1.2238e+03_rb,1.1655e+03_rb,1.1088e+03_rb/)\n      kbo(:,28,14) = (/ &\n     &1.4217e+03_rb,1.3523e+03_rb,1.2847e+03_rb,1.2199e+03_rb,1.1573e+03_rb/)\n      kbo(:,29,14) = (/ &\n     &1.4859e+03_rb,1.4088e+03_rb,1.3346e+03_rb,1.2639e+03_rb,1.1961e+03_rb/)\n      kbo(:,30,14) = (/ &\n     &1.5380e+03_rb,1.4539e+03_rb,1.3740e+03_rb,1.2981e+03_rb,1.2259e+03_rb/)\n      kbo(:,31,14) = (/ &\n     &1.5776e+03_rb,1.4880e+03_rb,1.4031e+03_rb,1.3231e+03_rb,1.2472e+03_rb/)\n      kbo(:,32,14) = (/ &\n     &1.6062e+03_rb,1.5119e+03_rb,1.4231e+03_rb,1.3398e+03_rb,1.2610e+03_rb/)\n      kbo(:,33,14) = (/ &\n     &1.6248e+03_rb,1.5270e+03_rb,1.4353e+03_rb,1.3494e+03_rb,1.2686e+03_rb/)\n      kbo(:,34,14) = (/ &\n     &1.6386e+03_rb,1.5378e+03_rb,1.4439e+03_rb,1.3560e+03_rb,1.2737e+03_rb/)\n      kbo(:,35,14) = (/ &\n     &1.6557e+03_rb,1.5522e+03_rb,1.4559e+03_rb,1.3661e+03_rb,1.2821e+03_rb/)\n      kbo(:,36,14) = (/ &\n     &1.6790e+03_rb,1.5727e+03_rb,1.4740e+03_rb,1.3819e+03_rb,1.2962e+03_rb/)\n      kbo(:,37,14) = (/ &\n     &1.7154e+03_rb,1.6055e+03_rb,1.5035e+03_rb,1.4086e+03_rb,1.3204e+03_rb/)\n      kbo(:,38,14) = (/ &\n     &1.7499e+03_rb,1.6367e+03_rb,1.5316e+03_rb,1.4342e+03_rb,1.3436e+03_rb/)\n      kbo(:,39,14) = (/ &\n     &1.7821e+03_rb,1.6659e+03_rb,1.5579e+03_rb,1.4580e+03_rb,1.3653e+03_rb/)\n      kbo(:,40,14) = (/ &\n     &1.8250e+03_rb,1.7051e+03_rb,1.5937e+03_rb,1.4906e+03_rb,1.3951e+03_rb/)\n      kbo(:,41,14) = (/ &\n     &1.8687e+03_rb,1.7449e+03_rb,1.6302e+03_rb,1.5239e+03_rb,1.4257e+03_rb/)\n      kbo(:,42,14) = (/ &\n     &1.9118e+03_rb,1.7843e+03_rb,1.6662e+03_rb,1.5570e+03_rb,1.4560e+03_rb/)\n      kbo(:,43,14) = (/ &\n     &1.9625e+03_rb,1.8305e+03_rb,1.7087e+03_rb,1.5959e+03_rb,1.4917e+03_rb/)\n      kbo(:,44,14) = (/ &\n     &2.0169e+03_rb,1.8802e+03_rb,1.7544e+03_rb,1.6379e+03_rb,1.5302e+03_rb/)\n      kbo(:,45,14) = (/ &\n     &2.0719e+03_rb,1.9306e+03_rb,1.8005e+03_rb,1.6804e+03_rb,1.5693e+03_rb/)\n      kbo(:,46,14) = (/ &\n     &2.1310e+03_rb,1.9850e+03_rb,1.8502e+03_rb,1.7262e+03_rb,1.6114e+03_rb/)\n      kbo(:,47,14) = (/ &\n     &2.1977e+03_rb,2.0465e+03_rb,1.9066e+03_rb,1.7781e+03_rb,1.6592e+03_rb/)\n      kbo(:,48,14) = (/ &\n     &2.2663e+03_rb,2.1096e+03_rb,1.9646e+03_rb,1.8312e+03_rb,1.7082e+03_rb/)\n      kbo(:,49,14) = (/ &\n     &2.3369e+03_rb,2.1743e+03_rb,2.0243e+03_rb,1.8859e+03_rb,1.7586e+03_rb/)\n      kbo(:,50,14) = (/ &\n     &2.4050e+03_rb,2.2366e+03_rb,2.0818e+03_rb,1.9387e+03_rb,1.8071e+03_rb/)\n      kbo(:,51,14) = (/ &\n     &2.4725e+03_rb,2.2988e+03_rb,2.1390e+03_rb,1.9914e+03_rb,1.8554e+03_rb/)\n      kbo(:,52,14) = (/ &\n     &2.5415e+03_rb,2.3629e+03_rb,2.1974e+03_rb,2.0453e+03_rb,1.9050e+03_rb/)\n      kbo(:,53,14) = (/ &\n     &2.6121e+03_rb,2.4283e+03_rb,2.2576e+03_rb,2.1009e+03_rb,1.9561e+03_rb/)\n      kbo(:,54,14) = (/ &\n     &2.6782e+03_rb,2.4899e+03_rb,2.3146e+03_rb,2.1531e+03_rb,2.0043e+03_rb/)\n      kbo(:,55,14) = (/ &\n     &2.7428e+03_rb,2.5502e+03_rb,2.3706e+03_rb,2.2044e+03_rb,2.0516e+03_rb/)\n      kbo(:,56,14) = (/ &\n     &2.8087e+03_rb,2.6116e+03_rb,2.4275e+03_rb,2.2567e+03_rb,2.0999e+03_rb/)\n      kbo(:,57,14) = (/ &\n     &2.8759e+03_rb,2.6742e+03_rb,2.4859e+03_rb,2.3106e+03_rb,2.1494e+03_rb/)\n      kbo(:,58,14) = (/ &\n     &2.9406e+03_rb,2.7347e+03_rb,2.5423e+03_rb,2.3630e+03_rb,2.1974e+03_rb/)\n      kbo(:,59,14) = (/ &\n     &2.9672e+03_rb,2.7595e+03_rb,2.5656e+03_rb,2.3846e+03_rb,2.2171e+03_rb/)\n      kbo(:,13,15) = (/ &\n     &3.0519e+02_rb,3.0114e+02_rb,2.9666e+02_rb,2.9142e+02_rb,2.8521e+02_rb/)\n      kbo(:,14,15) = (/ &\n     &3.4479e+02_rb,3.4114e+02_rb,3.3631e+02_rb,3.3085e+02_rb,3.2433e+02_rb/)\n      kbo(:,15,15) = (/ &\n     &3.8993e+02_rb,3.8674e+02_rb,3.8200e+02_rb,3.7573e+02_rb,3.6825e+02_rb/)\n      kbo(:,16,15) = (/ &\n     &4.4412e+02_rb,4.3994e+02_rb,4.3428e+02_rb,4.2699e+02_rb,4.1897e+02_rb/)\n      kbo(:,17,15) = (/ &\n     &5.0918e+02_rb,5.0358e+02_rb,4.9594e+02_rb,4.8667e+02_rb,4.7654e+02_rb/)\n      kbo(:,18,15) = (/ &\n     &5.8800e+02_rb,5.7963e+02_rb,5.6899e+02_rb,5.5650e+02_rb,5.4319e+02_rb/)\n      kbo(:,19,15) = (/ &\n     &6.8137e+02_rb,6.6869e+02_rb,6.5385e+02_rb,6.3714e+02_rb,6.1975e+02_rb/)\n      kbo(:,20,15) = (/ &\n     &7.8942e+02_rb,7.7129e+02_rb,7.5076e+02_rb,7.2873e+02_rb,7.0666e+02_rb/)\n      kbo(:,21,15) = (/ &\n     &9.1222e+02_rb,8.8683e+02_rb,8.5955e+02_rb,8.3129e+02_rb,8.0321e+02_rb/)\n      kbo(:,22,15) = (/ &\n     &1.0462e+03_rb,1.0122e+03_rb,9.7665e+02_rb,9.4080e+02_rb,9.0511e+02_rb/)\n      kbo(:,23,15) = (/ &\n     &1.1896e+03_rb,1.1445e+03_rb,1.0990e+03_rb,1.0540e+03_rb,1.0094e+03_rb/)\n      kbo(:,24,15) = (/ &\n     &1.3365e+03_rb,1.2790e+03_rb,1.2222e+03_rb,1.1664e+03_rb,1.1117e+03_rb/)\n      kbo(:,25,15) = (/ &\n     &1.4807e+03_rb,1.4091e+03_rb,1.3391e+03_rb,1.2717e+03_rb,1.2073e+03_rb/)\n      kbo(:,26,15) = (/ &\n     &1.6156e+03_rb,1.5289e+03_rb,1.4461e+03_rb,1.3673e+03_rb,1.2929e+03_rb/)\n      kbo(:,27,15) = (/ &\n     &1.7387e+03_rb,1.6377e+03_rb,1.5427e+03_rb,1.4535e+03_rb,1.3699e+03_rb/)\n      kbo(:,28,15) = (/ &\n     &1.8481e+03_rb,1.7337e+03_rb,1.6274e+03_rb,1.5282e+03_rb,1.4358e+03_rb/)\n      kbo(:,29,15) = (/ &\n     &1.9406e+03_rb,1.8143e+03_rb,1.6975e+03_rb,1.5890e+03_rb,1.4891e+03_rb/)\n      kbo(:,30,15) = (/ &\n     &2.0157e+03_rb,1.8789e+03_rb,1.7529e+03_rb,1.6367e+03_rb,1.5303e+03_rb/)\n      kbo(:,31,15) = (/ &\n     &2.0726e+03_rb,1.9271e+03_rb,1.7935e+03_rb,1.6714e+03_rb,1.5596e+03_rb/)\n      kbo(:,32,15) = (/ &\n     &2.1128e+03_rb,1.9603e+03_rb,1.8210e+03_rb,1.6943e+03_rb,1.5785e+03_rb/)\n      kbo(:,33,15) = (/ &\n     &2.1379e+03_rb,1.9802e+03_rb,1.8368e+03_rb,1.7069e+03_rb,1.5884e+03_rb/)\n      kbo(:,34,15) = (/ &\n     &2.1559e+03_rb,1.9943e+03_rb,1.8478e+03_rb,1.7154e+03_rb,1.5948e+03_rb/)\n      kbo(:,35,15) = (/ &\n     &2.1801e+03_rb,2.0143e+03_rb,1.8645e+03_rb,1.7293e+03_rb,1.6063e+03_rb/)\n      kbo(:,36,15) = (/ &\n     &2.2153e+03_rb,2.0448e+03_rb,1.8906e+03_rb,1.7519e+03_rb,1.6260e+03_rb/)\n      kbo(:,37,15) = (/ &\n     &2.2726e+03_rb,2.0949e+03_rb,1.9348e+03_rb,1.7908e+03_rb,1.6606e+03_rb/)\n      kbo(:,38,15) = (/ &\n     &2.3276e+03_rb,2.1431e+03_rb,1.9773e+03_rb,1.8285e+03_rb,1.6940e+03_rb/)\n      kbo(:,39,15) = (/ &\n     &2.3794e+03_rb,2.1884e+03_rb,2.0174e+03_rb,1.8638e+03_rb,1.7255e+03_rb/)\n      kbo(:,40,15) = (/ &\n     &2.4500e+03_rb,2.2506e+03_rb,2.0727e+03_rb,1.9128e+03_rb,1.7693e+03_rb/)\n      kbo(:,41,15) = (/ &\n     &2.5230e+03_rb,2.3148e+03_rb,2.1296e+03_rb,1.9633e+03_rb,1.8145e+03_rb/)\n      kbo(:,42,15) = (/ &\n     &2.5961e+03_rb,2.3790e+03_rb,2.1863e+03_rb,2.0139e+03_rb,1.8595e+03_rb/)\n      kbo(:,43,15) = (/ &\n     &2.6832e+03_rb,2.4556e+03_rb,2.2539e+03_rb,2.0744e+03_rb,1.9133e+03_rb/)\n      kbo(:,44,15) = (/ &\n     &2.7787e+03_rb,2.5394e+03_rb,2.3280e+03_rb,2.1403e+03_rb,1.9719e+03_rb/)\n      kbo(:,45,15) = (/ &\n     &2.8773e+03_rb,2.6257e+03_rb,2.4039e+03_rb,2.2077e+03_rb,2.0320e+03_rb/)\n      kbo(:,46,15) = (/ &\n     &2.9856e+03_rb,2.7201e+03_rb,2.4871e+03_rb,2.2811e+03_rb,2.0978e+03_rb/)\n      kbo(:,47,15) = (/ &\n     &3.1115e+03_rb,2.8292e+03_rb,2.5830e+03_rb,2.3659e+03_rb,2.1733e+03_rb/)\n      kbo(:,48,15) = (/ &\n     &3.2432e+03_rb,2.9440e+03_rb,2.6832e+03_rb,2.4542e+03_rb,2.2517e+03_rb/)\n      kbo(:,49,15) = (/ &\n     &3.3819e+03_rb,3.0648e+03_rb,2.7882e+03_rb,2.5466e+03_rb,2.3333e+03_rb/)\n      kbo(:,50,15) = (/ &\n     &3.5188e+03_rb,3.1840e+03_rb,2.8918e+03_rb,2.6374e+03_rb,2.4134e+03_rb/)\n      kbo(:,51,15) = (/ &\n     &3.6589e+03_rb,3.3051e+03_rb,2.9974e+03_rb,2.7291e+03_rb,2.4943e+03_rb/)\n      kbo(:,52,15) = (/ &\n     &3.8062e+03_rb,3.4317e+03_rb,3.1077e+03_rb,2.8252e+03_rb,2.5787e+03_rb/)\n      kbo(:,53,15) = (/ &\n     &3.9623e+03_rb,3.5652e+03_rb,3.2237e+03_rb,2.9261e+03_rb,2.6671e+03_rb/)\n      kbo(:,54,15) = (/ &\n     &4.1133e+03_rb,3.6940e+03_rb,3.3349e+03_rb,3.0230e+03_rb,2.7515e+03_rb/)\n      kbo(:,55,15) = (/ &\n     &4.2651e+03_rb,3.8236e+03_rb,3.4464e+03_rb,3.1202e+03_rb,2.8359e+03_rb/)\n      kbo(:,56,15) = (/ &\n     &4.4246e+03_rb,3.9598e+03_rb,3.5625e+03_rb,3.2212e+03_rb,2.9236e+03_rb/)\n      kbo(:,57,15) = (/ &\n     &4.5926e+03_rb,4.1026e+03_rb,3.6846e+03_rb,3.3264e+03_rb,3.0154e+03_rb/)\n      kbo(:,58,15) = (/ &\n     &4.7612e+03_rb,4.2446e+03_rb,3.8056e+03_rb,3.4306e+03_rb,3.1063e+03_rb/)\n      kbo(:,59,15) = (/ &\n     &4.8322e+03_rb,4.3040e+03_rb,3.8565e+03_rb,3.4742e+03_rb,3.1440e+03_rb/)\n      kbo(:,13,16) = (/ &\n     &3.6471e+02_rb,3.5203e+02_rb,3.4366e+02_rb,3.3754e+02_rb,3.3391e+02_rb/)\n      kbo(:,14,16) = (/ &\n     &4.3205e+02_rb,4.1910e+02_rb,4.0949e+02_rb,4.0181e+02_rb,3.9611e+02_rb/)\n      kbo(:,15,16) = (/ &\n     &5.1076e+02_rb,4.9691e+02_rb,4.8535e+02_rb,4.7583e+02_rb,4.6772e+02_rb/)\n      kbo(:,16,16) = (/ &\n     &6.0124e+02_rb,5.8532e+02_rb,5.7134e+02_rb,5.5921e+02_rb,5.4786e+02_rb/)\n      kbo(:,17,16) = (/ &\n     &7.0293e+02_rb,6.8353e+02_rb,6.6658e+02_rb,6.5132e+02_rb,6.3843e+02_rb/)\n      kbo(:,18,16) = (/ &\n     &8.1350e+02_rb,7.9054e+02_rb,7.7108e+02_rb,7.5418e+02_rb,7.3825e+02_rb/)\n      kbo(:,19,16) = (/ &\n     &9.3232e+02_rb,9.0753e+02_rb,8.8580e+02_rb,8.6501e+02_rb,8.4456e+02_rb/)\n      kbo(:,20,16) = (/ &\n     &1.0608e+03_rb,1.0329e+03_rb,1.0063e+03_rb,9.8009e+02_rb,9.5395e+02_rb/)\n      kbo(:,21,16) = (/ &\n     &1.1958e+03_rb,1.1622e+03_rb,1.1292e+03_rb,1.0962e+03_rb,1.0633e+03_rb/)\n      kbo(:,22,16) = (/ &\n     &1.3311e+03_rb,1.2897e+03_rb,1.2482e+03_rb,1.2072e+03_rb,1.1676e+03_rb/)\n      kbo(:,23,16) = (/ &\n     &1.4683e+03_rb,1.4174e+03_rb,1.3670e+03_rb,1.3170e+03_rb,1.2708e+03_rb/)\n      kbo(:,24,16) = (/ &\n     &1.6081e+03_rb,1.5439e+03_rb,1.4829e+03_rb,1.4263e+03_rb,1.3726e+03_rb/)\n      kbo(:,25,16) = (/ &\n     &1.7506e+03_rb,1.6769e+03_rb,1.6089e+03_rb,1.5421e+03_rb,1.4771e+03_rb/)\n      kbo(:,26,16) = (/ &\n     &1.9057e+03_rb,1.8182e+03_rb,1.7345e+03_rb,1.6548e+03_rb,1.5773e+03_rb/)\n      kbo(:,27,16) = (/ &\n     &2.0569e+03_rb,1.9520e+03_rb,1.8523e+03_rb,1.7577e+03_rb,1.6669e+03_rb/)\n      kbo(:,28,16) = (/ &\n     &2.1937e+03_rb,2.0714e+03_rb,1.9558e+03_rb,1.8469e+03_rb,1.7437e+03_rb/)\n      kbo(:,29,16) = (/ &\n     &2.3109e+03_rb,2.1712e+03_rb,2.0410e+03_rb,1.9197e+03_rb,1.8067e+03_rb/)\n      kbo(:,30,16) = (/ &\n     &2.4059e+03_rb,2.2511e+03_rb,2.1086e+03_rb,1.9768e+03_rb,1.8554e+03_rb/)\n      kbo(:,31,16) = (/ &\n     &2.4785e+03_rb,2.3110e+03_rb,2.1586e+03_rb,2.0181e+03_rb,1.8908e+03_rb/)\n      kbo(:,32,16) = (/ &\n     &2.5298e+03_rb,2.3528e+03_rb,2.1923e+03_rb,2.0454e+03_rb,1.9136e+03_rb/)\n      kbo(:,33,16) = (/ &\n     &2.5622e+03_rb,2.3783e+03_rb,2.2119e+03_rb,2.0610e+03_rb,1.9258e+03_rb/)\n      kbo(:,34,16) = (/ &\n     &2.5858e+03_rb,2.3964e+03_rb,2.2256e+03_rb,2.0716e+03_rb,1.9341e+03_rb/)\n      kbo(:,35,16) = (/ &\n     &2.6161e+03_rb,2.4209e+03_rb,2.2454e+03_rb,2.0882e+03_rb,1.9479e+03_rb/)\n      kbo(:,36,16) = (/ &\n     &2.6591e+03_rb,2.4573e+03_rb,2.2765e+03_rb,2.1149e+03_rb,1.9709e+03_rb/)\n      kbo(:,37,16) = (/ &\n     &2.7282e+03_rb,2.5168e+03_rb,2.3287e+03_rb,2.1606e+03_rb,2.0108e+03_rb/)\n      kbo(:,38,16) = (/ &\n     &2.7948e+03_rb,2.5745e+03_rb,2.3791e+03_rb,2.2045e+03_rb,2.0494e+03_rb/)\n      kbo(:,39,16) = (/ &\n     &2.8577e+03_rb,2.6290e+03_rb,2.4266e+03_rb,2.2455e+03_rb,2.0858e+03_rb/)\n      kbo(:,40,16) = (/ &\n     &2.9439e+03_rb,2.7038e+03_rb,2.4920e+03_rb,2.3032e+03_rb,2.1363e+03_rb/)\n      kbo(:,41,16) = (/ &\n     &3.0330e+03_rb,2.7810e+03_rb,2.5596e+03_rb,2.3632e+03_rb,2.1888e+03_rb/)\n      kbo(:,42,16) = (/ &\n     &3.1221e+03_rb,2.8586e+03_rb,2.6274e+03_rb,2.4230e+03_rb,2.2411e+03_rb/)\n      kbo(:,43,16) = (/ &\n     &3.2294e+03_rb,2.9518e+03_rb,2.6848e+03_rb,2.4944e+03_rb,2.3041e+03_rb/)\n      kbo(:,44,16) = (/ &\n     &3.3475e+03_rb,3.0539e+03_rb,2.7976e+03_rb,2.5728e+03_rb,2.3737e+03_rb/)\n      kbo(:,45,16) = (/ &\n     &3.4703e+03_rb,3.1592e+03_rb,2.8896e+03_rb,2.6532e+03_rb,2.4448e+03_rb/)\n      kbo(:,46,16) = (/ &\n     &3.6062e+03_rb,3.2757e+03_rb,2.9905e+03_rb,2.7415e+03_rb,2.5226e+03_rb/)\n      kbo(:,47,16) = (/ &\n     &3.7659e+03_rb,3.4109e+03_rb,3.1077e+03_rb,2.8434e+03_rb,2.6124e+03_rb/)\n      kbo(:,48,16) = (/ &\n     &3.9357e+03_rb,3.5542e+03_rb,3.2307e+03_rb,2.9507e+03_rb,2.7060e+03_rb/)\n      kbo(:,49,16) = (/ &\n     &4.1183e+03_rb,3.7067e+03_rb,3.3602e+03_rb,3.0634e+03_rb,2.8046e+03_rb/)\n      kbo(:,50,16) = (/ &\n     &4.3018e+03_rb,3.8593e+03_rb,3.4893e+03_rb,3.1743e+03_rb,2.9010e+03_rb/)\n      kbo(:,51,16) = (/ &\n     &4.4921e+03_rb,4.0168e+03_rb,3.6208e+03_rb,3.2876e+03_rb,3.0000e+03_rb/)\n      kbo(:,52,16) = (/ &\n     &4.6953e+03_rb,4.1848e+03_rb,3.7620e+03_rb,3.4065e+03_rb,3.1029e+03_rb/)\n      kbo(:,53,16) = (/ &\n     &4.9149e+03_rb,4.3644e+03_rb,3.9107e+03_rb,3.5325e+03_rb,3.2110e+03_rb/)\n      kbo(:,54,16) = (/ &\n     &5.1330e+03_rb,4.5400e+03_rb,4.0560e+03_rb,3.6544e+03_rb,3.3151e+03_rb/)\n      kbo(:,55,16) = (/ &\n     &5.3615e+03_rb,4.7192e+03_rb,4.2041e+03_rb,3.7779e+03_rb,3.4198e+03_rb/)\n      kbo(:,56,16) = (/ &\n     &5.6061e+03_rb,4.9107e+03_rb,4.3608e+03_rb,3.9074e+03_rb,3.5296e+03_rb/)\n      kbo(:,57,16) = (/ &\n     &5.8683e+03_rb,5.1170e+03_rb,4.5267e+03_rb,4.0448e+03_rb,3.6452e+03_rb/)\n      kbo(:,58,16) = (/ &\n     &6.1353e+03_rb,5.3291e+03_rb,4.6942e+03_rb,4.1832e+03_rb,3.7603e+03_rb/)\n      kbo(:,59,16) = (/ &\n     &6.2495e+03_rb,5.4200e+03_rb,4.7647e+03_rb,4.2413e+03_rb,3.8086e+03_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n      kao_mco2( 1, :, 1) = (/ &\n     & 7.38630e-06_rb, 8.97432e-06_rb, 1.09037e-05_rb, 1.32480e-05_rb, 1.60963e-05_rb, &\n     & 1.95569e-05_rb, 2.37615e-05_rb, 2.88701e-05_rb, 3.50770e-05_rb, 4.26184e-05_rb, &\n     & 5.17811e-05_rb, 6.29138e-05_rb, 7.64400e-05_rb, 9.28742e-05_rb, 1.12842e-04_rb, &\n     & 1.37102e-04_rb, 1.66578e-04_rb, 2.02392e-04_rb, 2.45905e-04_rb/)\n      kao_mco2( 2, :, 1) = (/ &\n     & 7.03916e-06_rb, 8.58785e-06_rb, 1.04773e-05_rb, 1.27824e-05_rb, 1.55947e-05_rb, &\n     & 1.90257e-05_rb, 2.32115e-05_rb, 2.83183e-05_rb, 3.45487e-05_rb, 4.21498e-05_rb, &\n     & 5.14233e-05_rb, 6.27370e-05_rb, 7.65398e-05_rb, 9.33794e-05_rb, 1.13924e-04_rb, &\n     & 1.38989e-04_rb, 1.69568e-04_rb, 2.06874e-04_rb, 2.52389e-04_rb/)\n      kao_mco2( 3, :, 1) = (/ &\n     & 7.80015e-06_rb, 9.48520e-06_rb, 1.15343e-05_rb, 1.40260e-05_rb, 1.70560e-05_rb, &\n     & 2.07405e-05_rb, 2.52211e-05_rb, 3.06695e-05_rb, 3.72950e-05_rb, 4.53517e-05_rb, &\n     & 5.51489e-05_rb, 6.70626e-05_rb, 8.15499e-05_rb, 9.91670e-05_rb, 1.20590e-04_rb, &\n     & 1.46640e-04_rb, 1.78319e-04_rb, 2.16841e-04_rb, 2.63684e-04_rb/)\n      kao_mco2( 4, :, 1) = (/ &\n     & 9.24267e-06_rb, 1.11747e-05_rb, 1.35105e-05_rb, 1.63346e-05_rb, 1.97490e-05_rb, &\n     & 2.38771e-05_rb, 2.88682e-05_rb, 3.49025e-05_rb, 4.21981e-05_rb, 5.10188e-05_rb, &\n     & 6.16832e-05_rb, 7.45768e-05_rb, 9.01656e-05_rb, 1.09013e-04_rb, 1.31800e-04_rb, &\n     & 1.59350e-04_rb, 1.92659e-04_rb, 2.32930e-04_rb, 2.81619e-04_rb/)\n      kao_mco2( 5, :, 1) = (/ &\n     & 1.59506e-05_rb, 1.90078e-05_rb, 2.26509e-05_rb, 2.69923e-05_rb, 3.21658e-05_rb, &\n     & 3.83309e-05_rb, 4.56777e-05_rb, 5.44325e-05_rb, 6.48654e-05_rb, 7.72978e-05_rb, &\n     & 9.21132e-05_rb, 1.09768e-04_rb, 1.30807e-04_rb, 1.55878e-04_rb, 1.85755e-04_rb, &\n     & 2.21357e-04_rb, 2.63784e-04_rb, 3.14342e-04_rb, 3.74591e-04_rb/)\n      kao_mco2( 6, :, 1) = (/ &\n     & 3.53189e-05_rb, 4.14789e-05_rb, 4.87131e-05_rb, 5.72092e-05_rb, 6.71870e-05_rb, &\n     & 7.89050e-05_rb, 9.26667e-05_rb, 1.08829e-04_rb, 1.27809e-04_rb, 1.50100e-04_rb, &\n     & 1.76279e-04_rb, 2.07024e-04_rb, 2.43131e-04_rb, 2.85535e-04_rb, 3.35335e-04_rb, &\n     & 3.93821e-04_rb, 4.62507e-04_rb, 5.43172e-04_rb, 6.37906e-04_rb/)\n      kao_mco2( 7, :, 1) = (/ &\n     & 6.63273e-05_rb, 7.76356e-05_rb, 9.08718e-05_rb, 1.06365e-04_rb, 1.24499e-04_rb, &\n     & 1.45725e-04_rb, 1.70570e-04_rb, 1.99651e-04_rb, 2.33689e-04_rb, 2.73531e-04_rb, &\n     & 3.20166e-04_rb, 3.74752e-04_rb, 4.38644e-04_rb, 5.13429e-04_rb, 6.00964e-04_rb, &\n     & 7.03424e-04_rb, 8.23352e-04_rb, 9.63726e-04_rb, 1.12803e-03_rb/)\n      kao_mco2( 8, :, 1) = (/ &\n     & 9.01134e-05_rb, 1.05517e-04_rb, 1.23553e-04_rb, 1.44673e-04_rb, 1.69402e-04_rb, &\n     & 1.98359e-04_rb, 2.32265e-04_rb, 2.71967e-04_rb, 3.18456e-04_rb, 3.72890e-04_rb, &\n     & 4.36630e-04_rb, 5.11265e-04_rb, 5.98657e-04_rb, 7.00989e-04_rb, 8.20811e-04_rb, &\n     & 9.61116e-04_rb, 1.12540e-03_rb, 1.31777e-03_rb, 1.54302e-03_rb/)\n      kao_mco2( 9, :, 1) = (/ &\n     & 1.14205e-05_rb, 1.36364e-05_rb, 1.62823e-05_rb, 1.94416e-05_rb, 2.32139e-05_rb, &\n     & 2.77181e-05_rb, 3.30963e-05_rb, 3.95181e-05_rb, 4.71858e-05_rb, 5.63414e-05_rb, &\n     & 6.72734e-05_rb, 8.03266e-05_rb, 9.59124e-05_rb, 1.14523e-04_rb, 1.36743e-04_rb, &\n     & 1.63276e-04_rb, 1.94957e-04_rb, 2.32784e-04_rb, 2.77952e-04_rb/)\n      kao_mco2( 1, :, 2) = (/ &\n     & 2.01754e-05_rb, 2.40506e-05_rb, 2.86701e-05_rb, 3.41769e-05_rb, 4.07414e-05_rb, &\n     & 4.85668e-05_rb, 5.78953e-05_rb, 6.90155e-05_rb, 8.22717e-05_rb, 9.80739e-05_rb, &\n     & 1.16912e-04_rb, 1.39367e-04_rb, 1.66136e-04_rb, 1.98047e-04_rb, 2.36087e-04_rb, &\n     & 2.81433e-04_rb, 3.35489e-04_rb, 3.99928e-04_rb, 4.76744e-04_rb/)\n      kao_mco2( 2, :, 2) = (/ &\n     & 2.08613e-05_rb, 2.48759e-05_rb, 2.96631e-05_rb, 3.53716e-05_rb, 4.21786e-05_rb, &\n     & 5.02955e-05_rb, 5.99746e-05_rb, 7.15163e-05_rb, 8.52791e-05_rb, 1.01690e-04_rb, &\n     & 1.21260e-04_rb, 1.44596e-04_rb, 1.72422e-04_rb, 2.05604e-04_rb, 2.45171e-04_rb, &\n     & 2.92352e-04_rb, 3.48613e-04_rb, 4.15702e-04_rb, 4.95700e-04_rb/)\n      kao_mco2( 3, :, 2) = (/ &\n     & 2.06879e-05_rb, 2.47009e-05_rb, 2.94924e-05_rb, 3.52133e-05_rb, 4.20439e-05_rb, &\n     & 5.01995e-05_rb, 5.99372e-05_rb, 7.15637e-05_rb, 8.54456e-05_rb, 1.02020e-04_rb, &\n     & 1.21810e-04_rb, 1.45439e-04_rb, 1.73651e-04_rb, 2.07335e-04_rb, 2.47554e-04_rb, &\n     & 2.95574e-04_rb, 3.52909e-04_rb, 4.21366e-04_rb, 5.03102e-04_rb/)\n      kao_mco2( 4, :, 2) = (/ &\n     & 2.12700e-05_rb, 2.54064e-05_rb, 3.03472e-05_rb, 3.62490e-05_rb, 4.32984e-05_rb, &\n     & 5.17188e-05_rb, 6.17767e-05_rb, 7.37906e-05_rb, 8.81410e-05_rb, 1.05282e-04_rb, &\n     & 1.25757e-04_rb, 1.50213e-04_rb, 1.79425e-04_rb, 2.14319e-04_rb, 2.55998e-04_rb, &\n     & 3.05782e-04_rb, 3.65249e-04_rb, 4.36280e-04_rb, 5.21125e-04_rb/)\n      kao_mco2( 5, :, 2) = (/ &\n     & 1.88144e-05_rb, 2.25220e-05_rb, 2.69602e-05_rb, 3.22730e-05_rb, 3.86328e-05_rb, &\n     & 4.62458e-05_rb, 5.53591e-05_rb, 6.62682e-05_rb, 7.93271e-05_rb, 9.49594e-05_rb, &\n     & 1.13672e-04_rb, 1.36073e-04_rb, 1.62887e-04_rb, 1.94986e-04_rb, 2.33410e-04_rb, &\n     & 2.79406e-04_rb, 3.34467e-04_rb, 4.00377e-04_rb, 4.79275e-04_rb/)\n      kao_mco2( 6, :, 2) = (/ &\n     & 1.20964e-05_rb, 1.46021e-05_rb, 1.76268e-05_rb, 2.12780e-05_rb, 2.56856e-05_rb, &\n     & 3.10062e-05_rb, 3.74289e-05_rb, 4.51820e-05_rb, 5.45411e-05_rb, 6.58388e-05_rb, &\n     & 7.94769e-05_rb, 9.59399e-05_rb, 1.15813e-04_rb, 1.39803e-04_rb, 1.68762e-04_rb, &\n     & 2.03720e-04_rb, 2.45919e-04_rb, 2.96859e-04_rb, 3.58350e-04_rb/)\n      kao_mco2( 7, :, 2) = (/ &\n     & 3.07117e-05_rb, 3.64441e-05_rb, 4.32465e-05_rb, 5.13186e-05_rb, 6.08974e-05_rb, &\n     & 7.22642e-05_rb, 8.57525e-05_rb, 1.01758e-04_rb, 1.20752e-04_rb, 1.43291e-04_rb, &\n     & 1.70037e-04_rb, 2.01775e-04_rb, 2.39436e-04_rb, 2.84128e-04_rb, 3.37161e-04_rb, &\n     & 4.00094e-04_rb, 4.74773e-04_rb, 5.63391e-04_rb, 6.68549e-04_rb/)\n      kao_mco2( 8, :, 2) = (/ &\n     & 9.34077e-05_rb, 1.10481e-04_rb, 1.30675e-04_rb, 1.54559e-04_rb, 1.82810e-04_rb, &\n     & 2.16224e-04_rb, 2.55745e-04_rb, 3.02491e-04_rb, 3.57780e-04_rb, 4.23175e-04_rb, &\n     & 5.00523e-04_rb, 5.92009e-04_rb, 7.00217e-04_rb, 8.28203e-04_rb, 9.79582e-04_rb, &\n     & 1.15863e-03_rb, 1.37041e-03_rb, 1.62089e-03_rb, 1.91716e-03_rb/)\n      kao_mco2( 9, :, 2) = (/ &\n     & 1.15325e-05_rb, 1.37935e-05_rb, 1.64978e-05_rb, 1.97322e-05_rb, 2.36007e-05_rb, &\n     & 2.82277e-05_rb, 3.37618e-05_rb, 4.03808e-05_rb, 4.82976e-05_rb, 5.77664e-05_rb, &\n     & 6.90916e-05_rb, 8.26372e-05_rb, 9.88384e-05_rb, 1.18216e-04_rb, 1.41392e-04_rb, &\n     & 1.69113e-04_rb, 2.02267e-04_rb, 2.41922e-04_rb, 2.89352e-04_rb/)\n      kao_mco2( 1, :, 3) = (/ &\n     & 2.56142e-05_rb, 3.05385e-05_rb, 3.64096e-05_rb, 4.34093e-05_rb, 5.17547e-05_rb, &\n     & 6.17045e-05_rb, 7.35672e-05_rb, 8.77104e-05_rb, 1.04573e-04_rb, 1.24677e-04_rb, &\n     & 1.48646e-04_rb, 1.77223e-04_rb, 2.11294e-04_rb, 2.51915e-04_rb, 3.00346e-04_rb, &\n     & 3.58087e-04_rb, 4.26929e-04_rb, 5.09006e-04_rb, 6.06862e-04_rb/)\n      kao_mco2( 2, :, 3) = (/ &\n     & 2.49802e-05_rb, 2.98040e-05_rb, 3.55593e-05_rb, 4.24259e-05_rb, 5.06186e-05_rb, &\n     & 6.03932e-05_rb, 7.20554e-05_rb, 8.59696e-05_rb, 1.02571e-04_rb, 1.22377e-04_rb, &\n     & 1.46009e-04_rb, 1.74204e-04_rb, 2.07844e-04_rb, 2.47979e-04_rb, 2.95865e-04_rb, &\n     & 3.52998e-04_rb, 4.21163e-04_rb, 5.02491e-04_rb, 5.99524e-04_rb/)\n      kao_mco2( 3, :, 3) = (/ &\n     & 2.54644e-05_rb, 3.03959e-05_rb, 3.62825e-05_rb, 4.33091e-05_rb, 5.16965e-05_rb, &\n     & 6.17083e-05_rb, 7.36589e-05_rb, 8.79240e-05_rb, 1.04952e-04_rb, 1.25277e-04_rb, &\n     & 1.49539e-04_rb, 1.78499e-04_rb, 2.13068e-04_rb, 2.54331e-04_rb, 3.03586e-04_rb, &\n     & 3.62380e-04_rb, 4.32560e-04_rb, 5.16331e-04_rb, 6.16326e-04_rb/)\n      kao_mco2( 4, :, 3) = (/ &\n     & 2.55054e-05_rb, 3.04699e-05_rb, 3.64007e-05_rb, 4.34859e-05_rb, 5.19501e-05_rb, &\n     & 6.20619e-05_rb, 7.41418e-05_rb, 8.85731e-05_rb, 1.05813e-04_rb, 1.26409e-04_rb, &\n     & 1.51014e-04_rb, 1.80408e-04_rb, 2.15523e-04_rb, 2.57474e-04_rb, 3.07589e-04_rb, &\n     & 3.67459e-04_rb, 4.38983e-04_rb, 5.24428e-04_rb, 6.26505e-04_rb/)\n      kao_mco2( 5, :, 3) = (/ &\n     & 2.48615e-05_rb, 2.97398e-05_rb, 3.55754e-05_rb, 4.25560e-05_rb, 5.09064e-05_rb, &\n     & 6.08952e-05_rb, 7.28441e-05_rb, 8.71375e-05_rb, 1.04236e-04_rb, 1.24689e-04_rb, &\n     & 1.49155e-04_rb, 1.78423e-04_rb, 2.13433e-04_rb, 2.55313e-04_rb, 3.05410e-04_rb, &\n     & 3.65338e-04_rb, 4.37024e-04_rb, 5.22777e-04_rb, 6.25356e-04_rb/)\n      kao_mco2( 6, :, 3) = (/ &\n     & 2.09074e-05_rb, 2.50891e-05_rb, 3.01072e-05_rb, 3.61290e-05_rb, 4.33553e-05_rb, &\n     & 5.20269e-05_rb, 6.24329e-05_rb, 7.49202e-05_rb, 8.99051e-05_rb, 1.07887e-04_rb, &\n     & 1.29466e-04_rb, 1.55361e-04_rb, 1.86435e-04_rb, 2.23724e-04_rb, 2.68471e-04_rb, &\n     & 3.22169e-04_rb, 3.86607e-04_rb, 4.63933e-04_rb, 5.56725e-04_rb/)\n      kao_mco2( 7, :, 3) = (/ &\n     & 1.25163e-05_rb, 1.51688e-05_rb, 1.83835e-05_rb, 2.22795e-05_rb, 2.70011e-05_rb, &\n     & 3.27234e-05_rb, 3.96583e-05_rb, 4.80630e-05_rb, 5.82488e-05_rb, 7.05933e-05_rb, &\n     & 8.55539e-05_rb, 1.03685e-04_rb, 1.25659e-04_rb, 1.52289e-04_rb, 1.84563e-04_rb, &\n     & 2.23677e-04_rb, 2.71081e-04_rb, 3.28530e-04_rb, 3.98154e-04_rb/)\n      kao_mco2( 8, :, 3) = (/ &\n     & 1.00408e-04_rb, 1.20081e-04_rb, 1.43608e-04_rb, 1.71745e-04_rb, 2.05395e-04_rb, &\n     & 2.45637e-04_rb, 2.93765e-04_rb, 3.51322e-04_rb, 4.20156e-04_rb, 5.02476e-04_rb, &\n     & 6.00926e-04_rb, 7.18665e-04_rb, 8.59472e-04_rb, 1.02787e-03_rb, 1.22926e-03_rb, &\n     & 1.47010e-03_rb, 1.75814e-03_rb, 2.10261e-03_rb, 2.51457e-03_rb/)\n      kao_mco2( 9, :, 3) = (/ &\n     & 8.50402e-06_rb, 1.02737e-05_rb, 1.24116e-05_rb, 1.49945e-05_rb, 1.81148e-05_rb, &\n     & 2.18844e-05_rb, 2.64385e-05_rb, 3.19403e-05_rb, 3.85871e-05_rb, 4.66169e-05_rb, &\n     & 5.63178e-05_rb, 6.80375e-05_rb, 8.21959e-05_rb, 9.93008e-05_rb, 1.19965e-04_rb, &\n     & 1.44930e-04_rb, 1.75089e-04_rb, 2.11525e-04_rb, 2.55543e-04_rb/)\n      kao_mco2( 1, :, 4) = (/ &\n     & 2.68659e-05_rb, 3.20986e-05_rb, 3.83506e-05_rb, 4.58203e-05_rb, 5.47450e-05_rb, &\n     & 6.54078e-05_rb, 7.81476e-05_rb, 9.33687e-05_rb, 1.11555e-04_rb, 1.33282e-04_rb, &\n     & 1.59242e-04_rb, 1.90259e-04_rb, 2.27316e-04_rb, 2.71592e-04_rb, 3.24490e-04_rb, &\n     & 3.87693e-04_rb, 4.63206e-04_rb, 5.53426e-04_rb, 6.61218e-04_rb/)\n      kao_mco2( 2, :, 4) = (/ &\n     & 2.74827e-05_rb, 3.28460e-05_rb, 3.92560e-05_rb, 4.69169e-05_rb, 5.60728e-05_rb, &\n     & 6.70155e-05_rb, 8.00937e-05_rb, 9.57241e-05_rb, 1.14405e-04_rb, 1.36731e-04_rb, &\n     & 1.63415e-04_rb, 1.95305e-04_rb, 2.33419e-04_rb, 2.78972e-04_rb, 3.33413e-04_rb, &\n     & 3.98480e-04_rb, 4.76244e-04_rb, 5.69184e-04_rb, 6.80261e-04_rb/)\n      kao_mco2( 3, :, 4) = (/ &\n     & 2.84702e-05_rb, 3.40189e-05_rb, 4.06490e-05_rb, 4.85713e-05_rb, 5.80375e-05_rb, &\n     & 6.93487e-05_rb, 8.28644e-05_rb, 9.90142e-05_rb, 1.18312e-04_rb, 1.41370e-04_rb, &\n     & 1.68922e-04_rb, 2.01844e-04_rb, 2.41182e-04_rb, 2.88188e-04_rb, 3.44354e-04_rb, &\n     & 4.11466e-04_rb, 4.91659e-04_rb, 5.87481e-04_rb, 7.01977e-04_rb/)\n      kao_mco2( 4, :, 4) = (/ &\n     & 2.92293e-05_rb, 3.49243e-05_rb, 4.17289e-05_rb, 4.98593e-05_rb, 5.95738e-05_rb, &\n     & 7.11810e-05_rb, 8.50498e-05_rb, 1.01621e-04_rb, 1.21420e-04_rb, 1.45078e-04_rb, &\n     & 1.73344e-04_rb, 2.07119e-04_rb, 2.47473e-04_rb, 2.95690e-04_rb, 3.53302e-04_rb, &\n     & 4.22139e-04_rb, 5.04388e-04_rb, 6.02662e-04_rb, 7.20083e-04_rb/)\n      kao_mco2( 5, :, 4) = (/ &\n     & 2.88531e-05_rb, 3.45646e-05_rb, 4.14067e-05_rb, 4.96033e-05_rb, 5.94224e-05_rb, &\n     & 7.11851e-05_rb, 8.52764e-05_rb, 1.02157e-04_rb, 1.22379e-04_rb, 1.46604e-04_rb, &\n     & 1.75625e-04_rb, 2.10391e-04_rb, 2.52038e-04_rb, 3.01929e-04_rb, 3.61697e-04_rb, &\n     & 4.33295e-04_rb, 5.19067e-04_rb, 6.21818e-04_rb, 7.44908e-04_rb/)\n      kao_mco2( 6, :, 4) = (/ &\n     & 2.79869e-05_rb, 3.36885e-05_rb, 4.05516e-05_rb, 4.88130e-05_rb, 5.87574e-05_rb, &\n     & 7.07278e-05_rb, 8.51368e-05_rb, 1.02481e-04_rb, 1.23359e-04_rb, 1.48490e-04_rb, &\n     & 1.78742e-04_rb, 2.15156e-04_rb, 2.58988e-04_rb, 3.11751e-04_rb, 3.75262e-04_rb, &\n     & 4.51712e-04_rb, 5.43737e-04_rb, 6.54510e-04_rb, 7.87849e-04_rb/)\n      kao_mco2( 7, :, 4) = (/ &\n     & 1.45797e-05_rb, 1.78204e-05_rb, 2.17815e-05_rb, 2.66230e-05_rb, 3.25407e-05_rb, &\n     & 3.97737e-05_rb, 4.86145e-05_rb, 5.94203e-05_rb, 7.26281e-05_rb, 8.87715e-05_rb, &\n     & 1.08503e-04_rb, 1.32621e-04_rb, 1.62100e-04_rb, 1.98130e-04_rb, 2.42170e-04_rb, &\n     & 2.95999e-04_rb, 3.61792e-04_rb, 4.42210e-04_rb, 5.40503e-04_rb/)\n      kao_mco2( 8, :, 4) = (/ &\n     & 6.32607e-05_rb, 7.63420e-05_rb, 9.21282e-05_rb, 1.11179e-04_rb, 1.34169e-04_rb, &\n     & 1.61913e-04_rb, 1.95393e-04_rb, 2.35797e-04_rb, 2.84557e-04_rb, 3.43398e-04_rb, &\n     & 4.14407e-04_rb, 5.00100e-04_rb, 6.03512e-04_rb, 7.28308e-04_rb, 8.78909e-04_rb, &\n     & 1.06065e-03_rb, 1.27998e-03_rb, 1.54466e-03_rb, 1.86407e-03_rb/)\n      kao_mco2( 9, :, 4) = (/ &\n     & 1.52296e-05_rb, 1.84301e-05_rb, 2.23032e-05_rb, 2.69902e-05_rb, 3.26622e-05_rb, &\n     & 3.95261e-05_rb, 4.78324e-05_rb, 5.78844e-05_rb, 7.00487e-05_rb, 8.47694e-05_rb, &\n     & 1.02584e-04_rb, 1.24142e-04_rb, 1.50230e-04_rb, 1.81800e-04_rb, 2.20005e-04_rb, &\n     & 2.66239e-04_rb, 3.22190e-04_rb, 3.89897e-04_rb, 4.71833e-04_rb/)\n      kao_mco2( 1, :, 5) = (/ &\n     & 3.43213e-05_rb, 4.11301e-05_rb, 4.92896e-05_rb, 5.90679e-05_rb, 7.07860e-05_rb, &\n     & 8.48288e-05_rb, 1.01657e-04_rb, 1.21825e-04_rb, 1.45993e-04_rb, 1.74955e-04_rb, &\n     & 2.09663e-04_rb, 2.51257e-04_rb, 3.01103e-04_rb, 3.60837e-04_rb, 4.32421e-04_rb, &\n     & 5.18206e-04_rb, 6.21010e-04_rb, 7.44208e-04_rb, 8.91846e-04_rb/)\n      kao_mco2( 2, :, 5) = (/ &\n     & 3.14792e-05_rb, 3.79075e-05_rb, 4.56485e-05_rb, 5.49703e-05_rb, 6.61956e-05_rb, &\n     & 7.97133e-05_rb, 9.59914e-05_rb, 1.15594e-04_rb, 1.39199e-04_rb, 1.67624e-04_rb, &\n     & 2.01854e-04_rb, 2.43075e-04_rb, 2.92712e-04_rb, 3.52487e-04_rb, 4.24467e-04_rb, &\n     & 5.11147e-04_rb, 6.15527e-04_rb, 7.41222e-04_rb, 8.92585e-04_rb/)\n      kao_mco2( 3, :, 5) = (/ &\n     & 3.21655e-05_rb, 3.87990e-05_rb, 4.68006e-05_rb, 5.64523e-05_rb, 6.80945e-05_rb, &\n     & 8.21377e-05_rb, 9.90770e-05_rb, 1.19510e-04_rb, 1.44156e-04_rb, 1.73886e-04_rb, &\n     & 2.09746e-04_rb, 2.53002e-04_rb, 3.05179e-04_rb, 3.68117e-04_rb, 4.44033e-04_rb, &\n     & 5.35607e-04_rb, 6.46066e-04_rb, 7.79304e-04_rb, 9.40020e-04_rb/)\n      kao_mco2( 4, :, 5) = (/ &\n     & 3.22870e-05_rb, 3.89864e-05_rb, 4.70759e-05_rb, 5.68439e-05_rb, 6.86388e-05_rb, &\n     & 8.28810e-05_rb, 1.00078e-04_rb, 1.20844e-04_rb, 1.45919e-04_rb, 1.76196e-04_rb, &\n     & 2.12756e-04_rb, 2.56902e-04_rb, 3.10207e-04_rb, 3.74574e-04_rb, 4.52296e-04_rb, &\n     & 5.46146e-04_rb, 6.59468e-04_rb, 7.96304e-04_rb, 9.61533e-04_rb/)\n      kao_mco2( 5, :, 5) = (/ &\n     & 3.31190e-05_rb, 3.99528e-05_rb, 4.81967e-05_rb, 5.81417e-05_rb, 7.01387e-05_rb, &\n     & 8.46111e-05_rb, 1.02070e-04_rb, 1.23131e-04_rb, 1.48538e-04_rb, 1.79187e-04_rb, &\n     & 2.16161e-04_rb, 2.60764e-04_rb, 3.14570e-04_rb, 3.79479e-04_rb, 4.57781e-04_rb, &\n     & 5.52240e-04_rb, 6.66190e-04_rb, 8.03652e-04_rb, 9.69477e-04_rb/)\n      kao_mco2( 6, :, 5) = (/ &\n     & 3.31287e-05_rb, 3.99772e-05_rb, 4.82413e-05_rb, 5.82139e-05_rb, 7.02480e-05_rb, &\n     & 8.47698e-05_rb, 1.02294e-04_rb, 1.23440e-04_rb, 1.48958e-04_rb, 1.79750e-04_rb, &\n     & 2.16909e-04_rb, 2.61749e-04_rb, 3.15858e-04_rb, 3.81153e-04_rb, 4.59945e-04_rb, &\n     & 5.55026e-04_rb, 6.69762e-04_rb, 8.08216e-04_rb, 9.75292e-04_rb/)\n      kao_mco2( 7, :, 5) = (/ &\n     & 3.35235e-05_rb, 4.02832e-05_rb, 4.84061e-05_rb, 5.81668e-05_rb, 6.98958e-05_rb, &\n     & 8.39898e-05_rb, 1.00926e-04_rb, 1.21277e-04_rb, 1.45731e-04_rb, 1.75117e-04_rb, &\n     & 2.10428e-04_rb, 2.52860e-04_rb, 3.03847e-04_rb, 3.65116e-04_rb, 4.38739e-04_rb, &\n     & 5.27208e-04_rb, 6.33516e-04_rb, 7.61260e-04_rb, 9.14762e-04_rb/)\n      kao_mco2( 8, :, 5) = (/ &\n     & 3.57666e-05_rb, 4.27511e-05_rb, 5.10995e-05_rb, 6.10783e-05_rb, 7.30057e-05_rb, &\n     & 8.72622e-05_rb, 1.04303e-04_rb, 1.24671e-04_rb, 1.49017e-04_rb, 1.78117e-04_rb, &\n     & 2.12900e-04_rb, 2.54475e-04_rb, 3.04169e-04_rb, 3.63567e-04_rb, 4.34565e-04_rb, &\n     & 5.19427e-04_rb, 6.20861e-04_rb, 7.42103e-04_rb, 8.87020e-04_rb/)\n      kao_mco2( 9, :, 5) = (/ &\n     & 2.96349e-05_rb, 3.55202e-05_rb, 4.25743e-05_rb, 5.10292e-05_rb, 6.11633e-05_rb, &\n     & 7.33099e-05_rb, 8.78687e-05_rb, 1.05319e-04_rb, 1.26234e-04_rb, 1.51304e-04_rb, &\n     & 1.81352e-04_rb, 2.17367e-04_rb, 2.60534e-04_rb, 3.12275e-04_rb, 3.74290e-04_rb, &\n     & 4.48622e-04_rb, 5.37715e-04_rb, 6.44502e-04_rb, 7.72495e-04_rb/)\n      kao_mco2( 1, :, 6) = (/ &\n     & 4.14659e-05_rb, 4.98693e-05_rb, 5.99757e-05_rb, 7.21302e-05_rb, 8.67479e-05_rb, &\n     & 1.04328e-04_rb, 1.25471e-04_rb, 1.50899e-04_rb, 1.81479e-04_rb, 2.18257e-04_rb, &\n     & 2.62489e-04_rb, 3.15685e-04_rb, 3.79660e-04_rb, 4.56601e-04_rb, 5.49135e-04_rb, &\n     & 6.60422e-04_rb, 7.94261e-04_rb, 9.55224e-04_rb, 1.14881e-03_rb/)\n      kao_mco2( 2, :, 6) = (/ &\n     & 4.25940e-05_rb, 5.11162e-05_rb, 6.13434e-05_rb, 7.36168e-05_rb, 8.83459e-05_rb, &\n     & 1.06022e-04_rb, 1.27235e-04_rb, 1.52691e-04_rb, 1.83241e-04_rb, 2.19904e-04_rb, &\n     & 2.63902e-04_rb, 3.16703e-04_rb, 3.80068e-04_rb, 4.56111e-04_rb, 5.47368e-04_rb, &\n     & 6.56885e-04_rb, 7.88313e-04_rb, 9.46036e-04_rb, 1.13532e-03_rb/)\n      kao_mco2( 3, :, 6) = (/ &\n     & 4.44940e-05_rb, 5.32922e-05_rb, 6.38303e-05_rb, 7.64522e-05_rb, 9.15700e-05_rb, &\n     & 1.09677e-04_rb, 1.31365e-04_rb, 1.57341e-04_rb, 1.88454e-04_rb, 2.25719e-04_rb, &\n     & 2.70353e-04_rb, 3.23813e-04_rb, 3.87844e-04_rb, 4.64537e-04_rb, 5.56395e-04_rb, &\n     & 6.66418e-04_rb, 7.98196e-04_rb, 9.56032e-04_rb, 1.14508e-03_rb/)\n      kao_mco2( 4, :, 6) = (/ &\n     & 4.83402e-05_rb, 5.78065e-05_rb, 6.91265e-05_rb, 8.26633e-05_rb, 9.88510e-05_rb, &\n     & 1.18209e-04_rb, 1.41357e-04_rb, 1.69038e-04_rb, 2.02140e-04_rb, 2.41725e-04_rb, &\n     & 2.89061e-04_rb, 3.45667e-04_rb, 4.13357e-04_rb, 4.94303e-04_rb, 5.91101e-04_rb, &\n     & 7.06854e-04_rb, 8.45275e-04_rb, 1.01080e-03_rb, 1.20874e-03_rb/)\n      kao_mco2( 5, :, 6) = (/ &\n     & 5.14797e-05_rb, 6.15328e-05_rb, 7.35491e-05_rb, 8.79120e-05_rb, 1.05080e-04_rb, &\n     & 1.25600e-04_rb, 1.50128e-04_rb, 1.79445e-04_rb, 2.14487e-04_rb, 2.56373e-04_rb, &\n     & 3.06438e-04_rb, 3.66281e-04_rb, 4.37809e-04_rb, 5.23305e-04_rb, 6.25498e-04_rb, &\n     & 7.47647e-04_rb, 8.93650e-04_rb, 1.06816e-03_rb, 1.27676e-03_rb/)\n      kao_mco2( 6, :, 6) = (/ &\n     & 5.71481e-05_rb, 6.83156e-05_rb, 8.16652e-05_rb, 9.76237e-05_rb, 1.16701e-04_rb, &\n     & 1.39505e-04_rb, 1.66766e-04_rb, 1.99354e-04_rb, 2.38311e-04_rb, 2.84879e-04_rb, &\n     & 3.40548e-04_rb, 4.07096e-04_rb, 4.86647e-04_rb, 5.81744e-04_rb, 6.95424e-04_rb, &\n     & 8.31318e-04_rb, 9.93769e-04_rb, 1.18796e-03_rb, 1.42010e-03_rb/)\n      kao_mco2( 7, :, 6) = (/ &\n     & 5.69513e-05_rb, 6.84420e-05_rb, 8.22512e-05_rb, 9.88466e-05_rb, 1.18790e-04_rb, &\n     & 1.42758e-04_rb, 1.71562e-04_rb, 2.06177e-04_rb, 2.47776e-04_rb, 2.97768e-04_rb, &\n     & 3.57848e-04_rb, 4.30049e-04_rb, 5.16817e-04_rb, 6.21093e-04_rb, 7.46407e-04_rb, &\n     & 8.97006e-04_rb, 1.07799e-03_rb, 1.29549e-03_rb, 1.55687e-03_rb/)\n      kao_mco2( 8, :, 6) = (/ &\n     & 4.39361e-06_rb, 5.50076e-06_rb, 6.88690e-06_rb, 8.62235e-06_rb, 1.07951e-05_rb, &\n     & 1.35154e-05_rb, 1.69212e-05_rb, 2.11851e-05_rb, 2.65236e-05_rb, 3.32074e-05_rb, &\n     & 4.15754e-05_rb, 5.20520e-05_rb, 6.51687e-05_rb, 8.15907e-05_rb, 1.02151e-04_rb, &\n     & 1.27892e-04_rb, 1.60120e-04_rb, 2.00469e-04_rb, 2.50985e-04_rb/)\n      kao_mco2( 9, :, 6) = (/ &\n     & 5.75515e-05_rb, 6.86850e-05_rb, 8.19722e-05_rb, 9.78298e-05_rb, 1.16755e-04_rb, &\n     & 1.39342e-04_rb, 1.66297e-04_rb, 1.98468e-04_rb, 2.36862e-04_rb, 2.82683e-04_rb, &\n     & 3.37369e-04_rb, 4.02633e-04_rb, 4.80523e-04_rb, 5.73481e-04_rb, 6.84422e-04_rb, &\n     & 8.16824e-04_rb, 9.74841e-04_rb, 1.16342e-03_rb, 1.38849e-03_rb/)\n      kao_mco2( 1, :, 7) = (/ &\n     & 6.84544e-05_rb, 8.16461e-05_rb, 9.73799e-05_rb, 1.16146e-04_rb, 1.38528e-04_rb, &\n     & 1.65223e-04_rb, 1.97063e-04_rb, 2.35039e-04_rb, 2.80333e-04_rb, 3.34355e-04_rb, &\n     & 3.98788e-04_rb, 4.75637e-04_rb, 5.67296e-04_rb, 6.76618e-04_rb, 8.07008e-04_rb, &\n     & 9.62525e-04_rb, 1.14801e-03_rb, 1.36924e-03_rb, 1.63310e-03_rb/)\n      kao_mco2( 2, :, 7) = (/ &\n     & 6.88332e-05_rb, 8.21719e-05_rb, 9.80955e-05_rb, 1.17105e-04_rb, 1.39798e-04_rb, &\n     & 1.66888e-04_rb, 1.99229e-04_rb, 2.37836e-04_rb, 2.83925e-04_rb, 3.38944e-04_rb, &\n     & 4.04627e-04_rb, 4.83037e-04_rb, 5.76641e-04_rb, 6.88385e-04_rb, 8.21782e-04_rb, &\n     & 9.81031e-04_rb, 1.17114e-03_rb, 1.39809e-03_rb, 1.66901e-03_rb/)\n      kao_mco2( 3, :, 7) = (/ &\n     & 7.49899e-05_rb, 8.94606e-05_rb, 1.06724e-04_rb, 1.27318e-04_rb, 1.51887e-04_rb, &\n     & 1.81196e-04_rb, 2.16161e-04_rb, 2.57873e-04_rb, 3.07635e-04_rb, 3.66999e-04_rb, &\n     & 4.37818e-04_rb, 5.22304e-04_rb, 6.23092e-04_rb, 7.43330e-04_rb, 8.86769e-04_rb, &\n     & 1.05789e-03_rb, 1.26203e-03_rb, 1.50556e-03_rb, 1.79608e-03_rb/)\n      kao_mco2( 4, :, 7) = (/ &\n     & 8.26801e-05_rb, 9.85802e-05_rb, 1.17538e-04_rb, 1.40141e-04_rb, 1.67092e-04_rb, &\n     & 1.99225e-04_rb, 2.37537e-04_rb, 2.83217e-04_rb, 3.37682e-04_rb, 4.02621e-04_rb, &\n     & 4.80048e-04_rb, 5.72365e-04_rb, 6.82435e-04_rb, 8.13673e-04_rb, 9.70148e-04_rb, &\n     & 1.15671e-03_rb, 1.37916e-03_rb, 1.64438e-03_rb, 1.96061e-03_rb/)\n      kao_mco2( 5, :, 7) = (/ &\n     & 9.29561e-05_rb, 1.10845e-04_rb, 1.32176e-04_rb, 1.57612e-04_rb, 1.87944e-04_rb, &\n     & 2.24112e-04_rb, 2.67241e-04_rb, 3.18669e-04_rb, 3.79995e-04_rb, 4.53121e-04_rb, &\n     & 5.40321e-04_rb, 6.44302e-04_rb, 7.68293e-04_rb, 9.16146e-04_rb, 1.09245e-03_rb, &\n     & 1.30268e-03_rb, 1.55338e-03_rb, 1.85231e-03_rb, 2.20877e-03_rb/)\n      kao_mco2( 6, :, 7) = (/ &\n     & 1.09700e-04_rb, 1.30879e-04_rb, 1.56148e-04_rb, 1.86294e-04_rb, 2.22261e-04_rb, &\n     & 2.65172e-04_rb, 3.16367e-04_rb, 3.77446e-04_rb, 4.50317e-04_rb, 5.37257e-04_rb, &\n     & 6.40983e-04_rb, 7.64734e-04_rb, 9.12376e-04_rb, 1.08852e-03_rb, 1.29868e-03_rb, &\n     & 1.54941e-03_rb, 1.84854e-03_rb, 2.20543e-03_rb, 2.63122e-03_rb/)\n      kao_mco2( 7, :, 7) = (/ &\n     & 1.43457e-04_rb, 1.71554e-04_rb, 2.05153e-04_rb, 2.45332e-04_rb, 2.93381e-04_rb, &\n     & 3.50840e-04_rb, 4.19552e-04_rb, 5.01722e-04_rb, 5.99985e-04_rb, 7.17492e-04_rb, &\n     & 8.58014e-04_rb, 1.02606e-03_rb, 1.22701e-03_rb, 1.46732e-03_rb, 1.75470e-03_rb, &\n     & 2.09836e-03_rb, 2.50933e-03_rb, 3.00078e-03_rb, 3.58849e-03_rb/)\n      kao_mco2( 8, :, 7) = (/ &\n     & 1.52152e-05_rb, 1.89421e-05_rb, 2.35819e-05_rb, 2.93582e-05_rb, 3.65494e-05_rb, &\n     & 4.55021e-05_rb, 5.66476e-05_rb, 7.05233e-05_rb, 8.77978e-05_rb, 1.09304e-04_rb, &\n     & 1.36077e-04_rb, 1.69409e-04_rb, 2.10905e-04_rb, 2.62565e-04_rb, 3.26880e-04_rb, &\n     & 4.06948e-04_rb, 5.06629e-04_rb, 6.30726e-04_rb, 7.85219e-04_rb/)\n      kao_mco2( 9, :, 7) = (/ &\n     & 1.15683e-04_rb, 1.37544e-04_rb, 1.63535e-04_rb, 1.94438e-04_rb, 2.31180e-04_rb, &\n     & 2.74866e-04_rb, 3.26807e-04_rb, 3.88563e-04_rb, 4.61989e-04_rb, 5.49289e-04_rb, &\n     & 6.53088e-04_rb, 7.76501e-04_rb, 9.23234e-04_rb, 1.09770e-03_rb, 1.30512e-03_rb, &\n     & 1.55175e-03_rb, 1.84498e-03_rb, 2.19362e-03_rb, 2.60815e-03_rb/)\n      kao_mco2( 1, :, 8) = (/ &\n     & 1.18154e-04_rb, 1.40516e-04_rb, 1.67111e-04_rb, 1.98739e-04_rb, 2.36353e-04_rb, &\n     & 2.81086e-04_rb, 3.34285e-04_rb, 3.97553e-04_rb, 4.72796e-04_rb, 5.62278e-04_rb, &\n     & 6.68697e-04_rb, 7.95257e-04_rb, 9.45770e-04_rb, 1.12477e-03_rb, 1.33765e-03_rb, &\n     & 1.59081e-03_rb, 1.89190e-03_rb, 2.24996e-03_rb, 2.67580e-03_rb/)\n      kao_mco2( 2, :, 8) = (/ &\n     & 1.40874e-04_rb, 1.67009e-04_rb, 1.97993e-04_rb, 2.34726e-04_rb, 2.78273e-04_rb, &\n     & 3.29899e-04_rb, 3.91102e-04_rb, 4.63661e-04_rb, 5.49680e-04_rb, 6.51659e-04_rb, &\n     & 7.72556e-04_rb, 9.15884e-04_rb, 1.08580e-03_rb, 1.28724e-03_rb, 1.52605e-03_rb, &\n     & 1.80917e-03_rb, 2.14482e-03_rb, 2.54273e-03_rb, 3.01446e-03_rb/)\n      kao_mco2( 3, :, 8) = (/ &\n     & 1.55092e-04_rb, 1.84132e-04_rb, 2.18609e-04_rb, 2.59542e-04_rb, 3.08140e-04_rb, &\n     & 3.65837e-04_rb, 4.34337e-04_rb, 5.15664e-04_rb, 6.12219e-04_rb, 7.26853e-04_rb, &\n     & 8.62952e-04_rb, 1.02453e-03_rb, 1.21637e-03_rb, 1.44413e-03_rb, 1.71453e-03_rb, &\n     & 2.03557e-03_rb, 2.41671e-03_rb, 2.86923e-03_rb, 3.40647e-03_rb/)\n      kao_mco2( 4, :, 8) = (/ &\n     & 1.80666e-04_rb, 2.14521e-04_rb, 2.54721e-04_rb, 3.02454e-04_rb, 3.59131e-04_rb, &\n     & 4.26429e-04_rb, 5.06339e-04_rb, 6.01223e-04_rb, 7.13887e-04_rb, 8.47663e-04_rb, &\n     & 1.00651e-03_rb, 1.19512e-03_rb, 1.41908e-03_rb, 1.68500e-03_rb, 2.00076e-03_rb, &\n     & 2.37568e-03_rb, 2.82087e-03_rb, 3.34947e-03_rb, 3.97714e-03_rb/)\n      kao_mco2( 5, :, 8) = (/ &\n     & 2.21554e-04_rb, 2.63265e-04_rb, 3.12829e-04_rb, 3.71724e-04_rb, 4.41707e-04_rb, &\n     & 5.24865e-04_rb, 6.23679e-04_rb, 7.41096e-04_rb, 8.80619e-04_rb, 1.04641e-03_rb, &\n     & 1.24341e-03_rb, 1.47750e-03_rb, 1.75567e-03_rb, 2.08620e-03_rb, 2.47896e-03_rb, &\n     & 2.94566e-03_rb, 3.50023e-03_rb, 4.15920e-03_rb, 4.94224e-03_rb/)\n      kao_mco2( 6, :, 8) = (/ &\n     & 2.78997e-04_rb, 3.32548e-04_rb, 3.96378e-04_rb, 4.72460e-04_rb, 5.63146e-04_rb, &\n     & 6.71238e-04_rb, 8.00077e-04_rb, 9.53647e-04_rb, 1.13669e-03_rb, 1.35487e-03_rb, &\n     & 1.61493e-03_rb, 1.92491e-03_rb, 2.29438e-03_rb, 2.73477e-03_rb, 3.25969e-03_rb, &\n     & 3.88537e-03_rb, 4.63114e-03_rb, 5.52005e-03_rb, 6.57958e-03_rb/)\n      kao_mco2( 7, :, 8) = (/ &\n     & 2.84939e-04_rb, 3.40606e-04_rb, 4.07149e-04_rb, 4.86691e-04_rb, 5.81774e-04_rb, &\n     & 6.95432e-04_rb, 8.31295e-04_rb, 9.93700e-04_rb, 1.18783e-03_rb, 1.41989e-03_rb, &\n     & 1.69729e-03_rb, 2.02888e-03_rb, 2.42526e-03_rb, 2.89907e-03_rb, 3.46544e-03_rb, &\n     & 4.14246e-03_rb, 4.95176e-03_rb, 5.91915e-03_rb, 7.07554e-03_rb/)\n      kao_mco2( 8, :, 8) = (/ &\n     & 5.30764e-05_rb, 6.47812e-05_rb, 7.90673e-05_rb, 9.65039e-05_rb, 1.17786e-04_rb, &\n     & 1.43761e-04_rb, 1.75464e-04_rb, 2.14159e-04_rb, 2.61387e-04_rb, 3.19030e-04_rb, &\n     & 3.89385e-04_rb, 4.75255e-04_rb, 5.80062e-04_rb, 7.07982e-04_rb, 8.64111e-04_rb, &\n     & 1.05467e-03_rb, 1.28726e-03_rb, 1.57113e-03_rb, 1.91761e-03_rb/)\n      kao_mco2( 9, :, 8) = (/ &\n     & 2.76806e-04_rb, 3.29639e-04_rb, 3.92556e-04_rb, 4.67481e-04_rb, 5.56708e-04_rb, &\n     & 6.62964e-04_rb, 7.89501e-04_rb, 9.40190e-04_rb, 1.11964e-03_rb, 1.33334e-03_rb, &\n     & 1.58783e-03_rb, 1.89089e-03_rb, 2.25180e-03_rb, 2.68159e-03_rb, 3.19341e-03_rb, &\n     & 3.80293e-03_rb, 4.52878e-03_rb, 5.39316e-03_rb, 6.42253e-03_rb/)\n      kao_mco2( 1, :, 9) = (/ &\n     & 3.30614e-04_rb, 3.93289e-04_rb, 4.67844e-04_rb, 5.56534e-04_rb, 6.62036e-04_rb, &\n     & 7.87539e-04_rb, 9.36833e-04_rb, 1.11443e-03_rb, 1.32569e-03_rb, 1.57700e-03_rb, &\n     & 1.87596e-03_rb, 2.23158e-03_rb, 2.65463e-03_rb, 3.15787e-03_rb, 3.75650e-03_rb, &\n     & 4.46862e-03_rb, 5.31575e-03_rb, 6.32345e-03_rb, 7.52219e-03_rb/)\n      kao_mco2( 2, :, 9) = (/ &\n     & 3.78453e-04_rb, 4.50735e-04_rb, 5.36824e-04_rb, 6.39355e-04_rb, 7.61469e-04_rb, &\n     & 9.06906e-04_rb, 1.08012e-03_rb, 1.28642e-03_rb, 1.53212e-03_rb, 1.82475e-03_rb, &\n     & 2.17326e-03_rb, 2.58835e-03_rb, 3.08271e-03_rb, 3.67149e-03_rb, 4.37273e-03_rb, &\n     & 5.20790e-03_rb, 6.20259e-03_rb, 7.38725e-03_rb, 8.79818e-03_rb/)\n      kao_mco2( 3, :, 9) = (/ &\n     & 4.57576e-04_rb, 5.45512e-04_rb, 6.50348e-04_rb, 7.75330e-04_rb, 9.24332e-04_rb, &\n     & 1.10197e-03_rb, 1.31374e-03_rb, 1.56621e-03_rb, 1.86721e-03_rb, 2.22604e-03_rb, &\n     & 2.65384e-03_rb, 3.16385e-03_rb, 3.77187e-03_rb, 4.49675e-03_rb, 5.36092e-03_rb, &\n     & 6.39117e-03_rb, 7.61942e-03_rb, 9.08370e-03_rb, 1.08294e-02_rb/)\n      kao_mco2( 4, :, 9) = (/ &\n     & 5.18277e-04_rb, 6.18764e-04_rb, 7.38735e-04_rb, 8.81967e-04_rb, 1.05297e-03_rb, &\n     & 1.25713e-03_rb, 1.50087e-03_rb, 1.79187e-03_rb, 2.13929e-03_rb, 2.55407e-03_rb, &\n     & 3.04928e-03_rb, 3.64050e-03_rb, 4.34635e-03_rb, 5.18905e-03_rb, 6.19514e-03_rb, &\n     & 7.39631e-03_rb, 8.83036e-03_rb, 1.05425e-02_rb, 1.25865e-02_rb/)\n      kao_mco2( 5, :, 9) = (/ &\n     & 4.45365e-04_rb, 5.32106e-04_rb, 6.35742e-04_rb, 7.59563e-04_rb, 9.07500e-04_rb, &\n     & 1.08425e-03_rb, 1.29542e-03_rb, 1.54773e-03_rb, 1.84917e-03_rb, 2.20933e-03_rb, &\n     & 2.63963e-03_rb, 3.15374e-03_rb, 3.76797e-03_rb, 4.50184e-03_rb, 5.37865e-03_rb, &\n     & 6.42622e-03_rb, 7.67783e-03_rb, 9.17320e-03_rb, 1.09598e-02_rb/)\n      kao_mco2( 6, :, 9) = (/ &\n     & 2.87301e-04_rb, 3.43009e-04_rb, 4.09519e-04_rb, 4.88926e-04_rb, 5.83730e-04_rb, &\n     & 6.96916e-04_rb, 8.32050e-04_rb, 9.93386e-04_rb, 1.18601e-03_rb, 1.41597e-03_rb, &\n     & 1.69053e-03_rb, 2.01833e-03_rb, 2.40969e-03_rb, 2.87693e-03_rb, 3.43478e-03_rb, &\n     & 4.10079e-03_rb, 4.89594e-03_rb, 5.84527e-03_rb, 6.97867e-03_rb/)\n      kao_mco2( 7, :, 9) = (/ &\n     & 1.10743e-04_rb, 1.32286e-04_rb, 1.58020e-04_rb, 1.88760e-04_rb, 2.25480e-04_rb, &\n     & 2.69342e-04_rb, 3.21738e-04_rb, 3.84326e-04_rb, 4.59090e-04_rb, 5.48397e-04_rb, &\n     & 6.55078e-04_rb, 7.82511e-04_rb, 9.34734e-04_rb, 1.11657e-03_rb, 1.33378e-03_rb, &\n     & 1.59324e-03_rb, 1.90318e-03_rb, 2.27340e-03_rb, 2.71565e-03_rb/)\n      kao_mco2( 8, :, 9) = (/ &\n     & 8.63177e-05_rb, 1.03067e-04_rb, 1.23066e-04_rb, 1.46946e-04_rb, 1.75459e-04_rb, &\n     & 2.09505e-04_rb, 2.50158e-04_rb, 2.98698e-04_rb, 3.56658e-04_rb, 4.25864e-04_rb, &\n     & 5.08498e-04_rb, 6.07168e-04_rb, 7.24982e-04_rb, 8.65658e-04_rb, 1.03363e-03_rb, &\n     & 1.23420e-03_rb, 1.47368e-03_rb, 1.75963e-03_rb, 2.10107e-03_rb/)\n      kao_mco2( 9, :, 9) = (/ &\n     & 4.52715e-04_rb, 5.41540e-04_rb, 6.47792e-04_rb, 7.74892e-04_rb, 9.26929e-04_rb, &\n     & 1.10880e-03_rb, 1.32635e-03_rb, 1.58658e-03_rb, 1.89787e-03_rb, 2.27024e-03_rb, &\n     & 2.71568e-03_rb, 3.24850e-03_rb, 3.88587e-03_rb, 4.64830e-03_rb, 5.56031e-03_rb, &\n     & 6.65127e-03_rb, 7.95627e-03_rb, 9.51732e-03_rb, 1.13847e-02_rb/)\n      kao_mco2( 1, :,10) = (/ &\n     & 9.10418e-04_rb, 1.08631e-03_rb, 1.29619e-03_rb, 1.54662e-03_rb, 1.84543e-03_rb, &\n     & 2.20198e-03_rb, 2.62741e-03_rb, 3.13503e-03_rb, 3.74073e-03_rb, 4.46344e-03_rb, &\n     & 5.32580e-03_rb, 6.35476e-03_rb, 7.58251e-03_rb, 9.04748e-03_rb, 1.07955e-02_rb, &\n     & 1.28812e-02_rb, 1.53699e-02_rb, 1.83394e-02_rb, 2.18826e-02_rb/)\n      kao_mco2( 2, :,10) = (/ &\n     & 9.06680e-04_rb, 1.08622e-03_rb, 1.30130e-03_rb, 1.55898e-03_rb, 1.86768e-03_rb, &\n     & 2.23750e-03_rb, 2.68056e-03_rb, 3.21135e-03_rb, 3.84724e-03_rb, 4.60905e-03_rb, &\n     & 5.52171e-03_rb, 6.61508e-03_rb, 7.92496e-03_rb, 9.49421e-03_rb, 1.13742e-02_rb, &\n     & 1.36265e-02_rb, 1.63247e-02_rb, 1.95572e-02_rb, 2.34298e-02_rb/)\n      kao_mco2( 3, :,10) = (/ &\n     & 8.17976e-04_rb, 9.79458e-04_rb, 1.17282e-03_rb, 1.40435e-03_rb, 1.68160e-03_rb, &\n     & 2.01357e-03_rb, 2.41108e-03_rb, 2.88707e-03_rb, 3.45703e-03_rb, 4.13950e-03_rb, &\n     & 4.95671e-03_rb, 5.93525e-03_rb, 7.10696e-03_rb, 8.51000e-03_rb, 1.01900e-02_rb, &\n     & 1.22017e-02_rb, 1.46105e-02_rb, 1.74949e-02_rb, 2.09486e-02_rb/)\n      kao_mco2( 4, :,10) = (/ &\n     & 3.70314e-04_rb, 4.41440e-04_rb, 5.26226e-04_rb, 6.27298e-04_rb, 7.47782e-04_rb, &\n     & 8.91407e-04_rb, 1.06262e-03_rb, 1.26671e-03_rb, 1.51001e-03_rb, 1.80003e-03_rb, &\n     & 2.14576e-03_rb, 2.55789e-03_rb, 3.04918e-03_rb, 3.63483e-03_rb, 4.33297e-03_rb, &\n     & 5.16520e-03_rb, 6.15727e-03_rb, 7.33988e-03_rb, 8.74963e-03_rb/)\n      kao_mco2( 5, :,10) = (/ &\n     & 1.00859e-04_rb, 1.19692e-04_rb, 1.42041e-04_rb, 1.68563e-04_rb, 2.00038e-04_rb, &\n     & 2.37389e-04_rb, 2.81715e-04_rb, 3.34318e-04_rb, 3.96742e-04_rb, 4.70823e-04_rb, &\n     & 5.58736e-04_rb, 6.63065e-04_rb, 7.86874e-04_rb, 9.33801e-04_rb, 1.10816e-03_rb, &\n     & 1.31508e-03_rb, 1.56064e-03_rb, 1.85204e-03_rb, 2.19786e-03_rb/)\n      kao_mco2( 6, :,10) = (/ &\n     & 9.24477e-05_rb, 1.09659e-04_rb, 1.30074e-04_rb, 1.54290e-04_rb, 1.83015e-04_rb, &\n     & 2.17087e-04_rb, 2.57503e-04_rb, 3.05442e-04_rb, 3.62307e-04_rb, 4.29759e-04_rb, &\n     & 5.09768e-04_rb, 6.04672e-04_rb, 7.17245e-04_rb, 8.50776e-04_rb, 1.00917e-03_rb, &\n     & 1.19704e-03_rb, 1.41990e-03_rb, 1.68425e-03_rb, 1.99780e-03_rb/)\n      kao_mco2( 7, :,10) = (/ &\n     & 8.42943e-05_rb, 1.00044e-04_rb, 1.18735e-04_rb, 1.40919e-04_rb, 1.67248e-04_rb, &\n     & 1.98496e-04_rb, 2.35582e-04_rb, 2.79597e-04_rb, 3.31836e-04_rb, 3.93835e-04_rb, &\n     & 4.67418e-04_rb, 5.54748e-04_rb, 6.58395e-04_rb, 7.81407e-04_rb, 9.27402e-04_rb, &\n     & 1.10067e-03_rb, 1.30632e-03_rb, 1.55039e-03_rb, 1.84005e-03_rb/)\n      kao_mco2( 8, :,10) = (/ &\n     & 6.86464e-05_rb, 8.18163e-05_rb, 9.75129e-05_rb, 1.16221e-04_rb, 1.38518e-04_rb, &\n     & 1.65093e-04_rb, 1.96767e-04_rb, 2.34517e-04_rb, 2.79509e-04_rb, 3.33133e-04_rb, &\n     & 3.97046e-04_rb, 4.73220e-04_rb, 5.64008e-04_rb, 6.72214e-04_rb, 8.01179e-04_rb, &\n     & 9.54887e-04_rb, 1.13808e-03_rb, 1.35643e-03_rb, 1.61666e-03_rb/)\n      kao_mco2( 9, :,10) = (/ &\n     & 1.03095e-04_rb, 1.21985e-04_rb, 1.44335e-04_rb, 1.70781e-04_rb, 2.02072e-04_rb, &\n     & 2.39096e-04_rb, 2.82904e-04_rb, 3.34739e-04_rb, 3.96070e-04_rb, 4.68639e-04_rb, &\n     & 5.54505e-04_rb, 6.56103e-04_rb, 7.76316e-04_rb, 9.18556e-04_rb, 1.08686e-03_rb, &\n     & 1.28599e-03_rb, 1.52162e-03_rb, 1.80041e-03_rb, 2.13029e-03_rb/)\n      kao_mco2( 1, :,11) = (/ &\n     & 1.01275e-03_rb, 1.21433e-03_rb, 1.45605e-03_rb, 1.74587e-03_rb, 2.09339e-03_rb, &\n     & 2.51007e-03_rb, 3.00970e-03_rb, 3.60878e-03_rb, 4.32711e-03_rb, 5.18842e-03_rb, &\n     & 6.22117e-03_rb, 7.45950e-03_rb, 8.94430e-03_rb, 1.07247e-02_rb, 1.28594e-02_rb, &\n     & 1.54191e-02_rb, 1.84882e-02_rb, 2.21683e-02_rb, 2.65809e-02_rb/)\n      kao_mco2( 2, :,11) = (/ &\n     & 1.06856e-03_rb, 1.27885e-03_rb, 1.53052e-03_rb, 1.83171e-03_rb, 2.19218e-03_rb, &\n     & 2.62359e-03_rb, 3.13990e-03_rb, 3.75781e-03_rb, 4.49732e-03_rb, 5.38236e-03_rb, &\n     & 6.44158e-03_rb, 7.70924e-03_rb, 9.22637e-03_rb, 1.10421e-02_rb, 1.32151e-02_rb, &\n     & 1.58157e-02_rb, 1.89281e-02_rb, 2.26531e-02_rb, 2.71110e-02_rb/)\n      kao_mco2( 3, :,11) = (/ &\n     & 7.34896e-04_rb, 8.77863e-04_rb, 1.04864e-03_rb, 1.25265e-03_rb, 1.49634e-03_rb, &\n     & 1.78744e-03_rb, 2.13516e-03_rb, 2.55054e-03_rb, 3.04672e-03_rb, 3.63943e-03_rb, &\n     & 4.34745e-03_rb, 5.19321e-03_rb, 6.20349e-03_rb, 7.41032e-03_rb, 8.85192e-03_rb, &\n     & 1.05740e-02_rb, 1.26311e-02_rb, 1.50883e-02_rb, 1.80236e-02_rb/)\n      kao_mco2( 4, :,11) = (/ &\n     & 5.89491e-05_rb, 7.12560e-05_rb, 8.61322e-05_rb, 1.04114e-04_rb, 1.25850e-04_rb, &\n     & 1.52124e-04_rb, 1.83883e-04_rb, 2.22272e-04_rb, 2.68676e-04_rb, 3.24768e-04_rb, &\n     & 3.92571e-04_rb, 4.74528e-04_rb, 5.73595e-04_rb, 6.93346e-04_rb, 8.38096e-04_rb, &\n     & 1.01307e-03_rb, 1.22457e-03_rb, 1.48022e-03_rb, 1.78924e-03_rb/)\n      kao_mco2( 5, :,11) = (/ &\n     & 5.32400e-05_rb, 6.45465e-05_rb, 7.82542e-05_rb, 9.48731e-05_rb, 1.15021e-04_rb, &\n     & 1.39448e-04_rb, 1.69063e-04_rb, 2.04966e-04_rb, 2.48495e-04_rb, 3.01268e-04_rb, &\n     & 3.65248e-04_rb, 4.42816e-04_rb, 5.36856e-04_rb, 6.50868e-04_rb, 7.89092e-04_rb, &\n     & 9.56672e-04_rb, 1.15984e-03_rb, 1.40615e-03_rb, 1.70478e-03_rb/)\n      kao_mco2( 6, :,11) = (/ &\n     & 5.31408e-05_rb, 6.42409e-05_rb, 7.76597e-05_rb, 9.38814e-05_rb, 1.13491e-04_rb, &\n     & 1.37198e-04_rb, 1.65856e-04_rb, 2.00500e-04_rb, 2.42381e-04_rb, 2.93010e-04_rb, &\n     & 3.54214e-04_rb, 4.28203e-04_rb, 5.17647e-04_rb, 6.25774e-04_rb, 7.56486e-04_rb, &\n     & 9.14503e-04_rb, 1.10553e-03_rb, 1.33645e-03_rb, 1.61561e-03_rb/)\n      kao_mco2( 7, :,11) = (/ &\n     & 5.24517e-05_rb, 6.32485e-05_rb, 7.62676e-05_rb, 9.19667e-05_rb, 1.10897e-04_rb, &\n     & 1.33725e-04_rb, 1.61251e-04_rb, 1.94443e-04_rb, 2.34467e-04_rb, 2.82730e-04_rb, &\n     & 3.40928e-04_rb, 4.11106e-04_rb, 4.95728e-04_rb, 5.97770e-04_rb, 7.20816e-04_rb, &\n     & 8.69190e-04_rb, 1.04811e-03_rb, 1.26385e-03_rb, 1.52400e-03_rb/)\n      kao_mco2( 8, :,11) = (/ &\n     & 5.01768e-05_rb, 6.02217e-05_rb, 7.22774e-05_rb, 8.67466e-05_rb, 1.04112e-04_rb, &\n     & 1.24955e-04_rb, 1.49969e-04_rb, 1.79991e-04_rb, 2.16024e-04_rb, 2.59270e-04_rb, &\n     & 3.11173e-04_rb, 3.73467e-04_rb, 4.48231e-04_rb, 5.37962e-04_rb, 6.45656e-04_rb, &\n     & 7.74910e-04_rb, 9.30039e-04_rb, 1.11622e-03_rb, 1.33968e-03_rb/)\n      kao_mco2( 9, :,11) = (/ &\n     & 5.46391e-05_rb, 6.58765e-05_rb, 7.94252e-05_rb, 9.57603e-05_rb, 1.15455e-04_rb, &\n     & 1.39200e-04_rb, 1.67829e-04_rb, 2.02346e-04_rb, 2.43962e-04_rb, 2.94137e-04_rb, &\n     & 3.54632e-04_rb, 4.27568e-04_rb, 5.15504e-04_rb, 6.21526e-04_rb, 7.49353e-04_rb, &\n     & 9.03471e-04_rb, 1.08929e-03_rb, 1.31331e-03_rb, 1.58342e-03_rb/)\n      kao_mco2( 1, :,12) = (/ &\n     & 1.18469e-03_rb, 1.41755e-03_rb, 1.69619e-03_rb, 2.02959e-03_rb, 2.42854e-03_rb, &\n     & 2.90589e-03_rb, 3.47708e-03_rb, 4.16055e-03_rb, 4.97836e-03_rb, 5.95691e-03_rb, &\n     & 7.12782e-03_rb, 8.52889e-03_rb, 1.02053e-02_rb, 1.22113e-02_rb, 1.46116e-02_rb, &\n     & 1.74837e-02_rb, 2.09204e-02_rb, 2.50325e-02_rb, 2.99530e-02_rb/)\n      kao_mco2( 2, :,12) = (/ &\n     & 1.09092e-03_rb, 1.30288e-03_rb, 1.55602e-03_rb, 1.85834e-03_rb, 2.21940e-03_rb, &\n     & 2.65061e-03_rb, 3.16560e-03_rb, 3.78064e-03_rb, 4.51519e-03_rb, 5.39245e-03_rb, &\n     & 6.44016e-03_rb, 7.69143e-03_rb, 9.18580e-03_rb, 1.09705e-02_rb, 1.31020e-02_rb, &\n     & 1.56476e-02_rb, 1.86878e-02_rb, 2.23187e-02_rb, 2.66550e-02_rb/)\n      kao_mco2( 3, :,12) = (/ &\n     & 3.97521e-04_rb, 4.74103e-04_rb, 5.65438e-04_rb, 6.74369e-04_rb, 8.04285e-04_rb, &\n     & 9.59228e-04_rb, 1.14402e-03_rb, 1.36442e-03_rb, 1.62727e-03_rb, 1.94076e-03_rb, &\n     & 2.31464e-03_rb, 2.76055e-03_rb, 3.29237e-03_rb, 3.92663e-03_rb, 4.68309e-03_rb, &\n     & 5.58528e-03_rb, 6.66128e-03_rb, 7.94456e-03_rb, 9.47505e-03_rb/)\n      kao_mco2( 4, :,12) = (/ &\n     & 7.18557e-05_rb, 8.56230e-05_rb, 1.02028e-04_rb, 1.21576e-04_rb, 1.44870e-04_rb, &\n     & 1.72626e-04_rb, 2.05701e-04_rb, 2.45112e-04_rb, 2.92075e-04_rb, 3.48035e-04_rb, &\n     & 4.14718e-04_rb, 4.94176e-04_rb, 5.88858e-04_rb, 7.01682e-04_rb, 8.36121e-04_rb, &\n     & 9.96319e-04_rb, 1.18721e-03_rb, 1.41467e-03_rb, 1.68572e-03_rb/)\n      kao_mco2( 5, :,12) = (/ &\n     & 7.33026e-05_rb, 8.69077e-05_rb, 1.03038e-04_rb, 1.22162e-04_rb, 1.44836e-04_rb, &\n     & 1.71717e-04_rb, 2.03588e-04_rb, 2.41375e-04_rb, 2.86175e-04_rb, 3.39289e-04_rb, &\n     & 4.02262e-04_rb, 4.76923e-04_rb, 5.65440e-04_rb, 6.70387e-04_rb, 7.94812e-04_rb, &\n     & 9.42331e-04_rb, 1.11723e-03_rb, 1.32459e-03_rb, 1.57044e-03_rb/)\n      kao_mco2( 6, :,12) = (/ &\n     & 7.44053e-05_rb, 8.82167e-05_rb, 1.04592e-04_rb, 1.24007e-04_rb, 1.47025e-04_rb, &\n     & 1.74317e-04_rb, 2.06674e-04_rb, 2.45038e-04_rb, 2.90523e-04_rb, 3.44451e-04_rb, &\n     & 4.08389e-04_rb, 4.84196e-04_rb, 5.74074e-04_rb, 6.80637e-04_rb, 8.06979e-04_rb, &\n     & 9.56774e-04_rb, 1.13437e-03_rb, 1.34494e-03_rb, 1.59459e-03_rb/)\n      kao_mco2( 7, :,12) = (/ &\n     & 7.68762e-05_rb, 9.11305e-05_rb, 1.08028e-04_rb, 1.28058e-04_rb, 1.51802e-04_rb, &\n     & 1.79949e-04_rb, 2.13315e-04_rb, 2.52868e-04_rb, 2.99754e-04_rb, 3.55334e-04_rb, &\n     & 4.21220e-04_rb, 4.99322e-04_rb, 5.91905e-04_rb, 7.01656e-04_rb, 8.31756e-04_rb, &\n     & 9.85979e-04_rb, 1.16880e-03_rb, 1.38551e-03_rb, 1.64241e-03_rb/)\n      kao_mco2( 8, :,12) = (/ &\n     & 8.45996e-05_rb, 1.00214e-04_rb, 1.18711e-04_rb, 1.40622e-04_rb, 1.66577e-04_rb, &\n     & 1.97323e-04_rb, 2.33743e-04_rb, 2.76885e-04_rb, 3.27991e-04_rb, 3.88529e-04_rb, &\n     & 4.60241e-04_rb, 5.45189e-04_rb, 6.45816e-04_rb, 7.65016e-04_rb, 9.06216e-04_rb, &\n     & 1.07348e-03_rb, 1.27161e-03_rb, 1.50632e-03_rb, 1.78434e-03_rb/)\n      kao_mco2( 9, :,12) = (/ &\n     & 7.73583e-05_rb, 9.16767e-05_rb, 1.08645e-04_rb, 1.28755e-04_rb, 1.52586e-04_rb, &\n     & 1.80829e-04_rb, 2.14299e-04_rb, 2.53964e-04_rb, 3.00970e-04_rb, 3.56678e-04_rb, &\n     & 4.22696e-04_rb, 5.00934e-04_rb, 5.93652e-04_rb, 7.03533e-04_rb, 8.33751e-04_rb, &\n     & 9.88072e-04_rb, 1.17096e-03_rb, 1.38769e-03_rb, 1.64454e-03_rb/)\n      kao_mco2( 1, :,13) = (/ &\n     & 1.20952e-03_rb, 1.44504e-03_rb, 1.72642e-03_rb, 2.06260e-03_rb, 2.46423e-03_rb, &\n     & 2.94407e-03_rb, 3.51735e-03_rb, 4.20226e-03_rb, 5.02053e-03_rb, 5.99814e-03_rb, &\n     & 7.16612e-03_rb, 8.56153e-03_rb, 1.02287e-02_rb, 1.22204e-02_rb, 1.46000e-02_rb, &\n     & 1.74430e-02_rb, 2.08395e-02_rb, 2.48974e-02_rb, 2.97455e-02_rb/)\n      kao_mco2( 2, :,13) = (/ &\n     & 8.47667e-04_rb, 1.01027e-03_rb, 1.20407e-03_rb, 1.43505e-03_rb, 1.71034e-03_rb, &\n     & 2.03843e-03_rb, 2.42946e-03_rb, 2.89550e-03_rb, 3.45094e-03_rb, 4.11293e-03_rb, &\n     & 4.90192e-03_rb, 5.84225e-03_rb, 6.96296e-03_rb, 8.29866e-03_rb, 9.89058e-03_rb, &\n     & 1.17879e-02_rb, 1.40492e-02_rb, 1.67442e-02_rb, 1.99562e-02_rb/)\n      kao_mco2( 3, :,13) = (/ &\n     & 1.45612e-04_rb, 1.71739e-04_rb, 2.02554e-04_rb, 2.38897e-04_rb, 2.81762e-04_rb, &\n     & 3.32318e-04_rb, 3.91945e-04_rb, 4.62271e-04_rb, 5.45215e-04_rb, 6.43041e-04_rb, &\n     & 7.58421e-04_rb, 8.94503e-04_rb, 1.05500e-03_rb, 1.24430e-03_rb, 1.46756e-03_rb, &\n     & 1.73088e-03_rb, 2.04145e-03_rb, 2.40774e-03_rb, 2.83975e-03_rb/)\n      kao_mco2( 4, :,13) = (/ &\n     & 1.40167e-04_rb, 1.65266e-04_rb, 1.94858e-04_rb, 2.29750e-04_rb, 2.70889e-04_rb, &\n     & 3.19394e-04_rb, 3.76585e-04_rb, 4.44016e-04_rb, 5.23522e-04_rb, 6.17264e-04_rb, &\n     & 7.27791e-04_rb, 8.58110e-04_rb, 1.01176e-03_rb, 1.19293e-03_rb, 1.40654e-03_rb, &\n     & 1.65839e-03_rb, 1.95534e-03_rb, 2.30547e-03_rb, 2.71828e-03_rb/)\n      kao_mco2( 5, :,13) = (/ &\n     & 1.37406e-04_rb, 1.61990e-04_rb, 1.90973e-04_rb, 2.25141e-04_rb, 2.65423e-04_rb, &\n     & 3.12911e-04_rb, 3.68896e-04_rb, 4.34898e-04_rb, 5.12709e-04_rb, 6.04442e-04_rb, &\n     & 7.12587e-04_rb, 8.40082e-04_rb, 9.90387e-04_rb, 1.16758e-03_rb, 1.37648e-03_rb, &\n     & 1.62276e-03_rb, 1.91310e-03_rb, 2.25539e-03_rb, 2.65892e-03_rb/)\n      kao_mco2( 6, :,13) = (/ &\n     & 1.35356e-04_rb, 1.59577e-04_rb, 1.88132e-04_rb, 2.21797e-04_rb, 2.61485e-04_rb, &\n     & 3.08276e-04_rb, 3.63440e-04_rb, 4.28475e-04_rb, 5.05147e-04_rb, 5.95539e-04_rb, &\n     & 7.02106e-04_rb, 8.27743e-04_rb, 9.75861e-04_rb, 1.15048e-03_rb, 1.35635e-03_rb, &\n     & 1.59906e-03_rb, 1.88520e-03_rb, 2.22255e-03_rb, 2.62025e-03_rb/)\n      kao_mco2( 7, :,13) = (/ &\n     & 1.33359e-04_rb, 1.57252e-04_rb, 1.85424e-04_rb, 2.18645e-04_rb, 2.57817e-04_rb, &\n     & 3.04007e-04_rb, 3.58472e-04_rb, 4.22695e-04_rb, 4.98425e-04_rb, 5.87722e-04_rb, &\n     & 6.93017e-04_rb, 8.17177e-04_rb, 9.63581e-04_rb, 1.13621e-03_rb, 1.33978e-03_rb, &\n     & 1.57981e-03_rb, 1.86284e-03_rb, 2.19659e-03_rb, 2.59012e-03_rb/)\n      kao_mco2( 8, :,13) = (/ &\n     & 1.29667e-04_rb, 1.53001e-04_rb, 1.80534e-04_rb, 2.13022e-04_rb, 2.51356e-04_rb, &\n     & 2.96589e-04_rb, 3.49961e-04_rb, 4.12938e-04_rb, 4.87249e-04_rb, 5.74931e-04_rb, &\n     & 6.78393e-04_rb, 8.00473e-04_rb, 9.44521e-04_rb, 1.11449e-03_rb, 1.31505e-03_rb, &\n     & 1.55170e-03_rb, 1.83094e-03_rb, 2.16042e-03_rb, 2.54920e-03_rb/)\n      kao_mco2( 9, :,13) = (/ &\n     & 1.37892e-04_rb, 1.62557e-04_rb, 1.91635e-04_rb, 2.25914e-04_rb, 2.66324e-04_rb, &\n     & 3.13963e-04_rb, 3.70124e-04_rb, 4.36330e-04_rb, 5.14379e-04_rb, 6.06389e-04_rb, &\n     & 7.14858e-04_rb, 8.42730e-04_rb, 9.93473e-04_rb, 1.17118e-03_rb, 1.38068e-03_rb, &\n     & 1.62765e-03_rb, 1.91880e-03_rb, 2.26202e-03_rb, 2.66665e-03_rb/)\n      kao_mco2( 1, :,14) = (/ &\n     & 1.28098e-03_rb, 1.52939e-03_rb, 1.82597e-03_rb, 2.18007e-03_rb, 2.60284e-03_rb, &\n     & 3.10759e-03_rb, 3.71022e-03_rb, 4.42972e-03_rb, 5.28874e-03_rb, 6.31435e-03_rb, &\n     & 7.53885e-03_rb, 9.00081e-03_rb, 1.07463e-02_rb, 1.28302e-02_rb, 1.53183e-02_rb, &\n     & 1.82889e-02_rb, 2.18355e-02_rb, 2.60699e-02_rb, 3.11255e-02_rb/)\n      kao_mco2( 2, :,14) = (/ &\n     & 1.27275e-04_rb, 1.48842e-04_rb, 1.74064e-04_rb, 2.03561e-04_rb, 2.38055e-04_rb, &\n     & 2.78395e-04_rb, 3.25570e-04_rb, 3.80740e-04_rb, 4.45259e-04_rb, 5.20710e-04_rb, &\n     & 6.08947e-04_rb, 7.12137e-04_rb, 8.32812e-04_rb, 9.73937e-04_rb, 1.13898e-03_rb, &\n     & 1.33198e-03_rb, 1.55769e-03_rb, 1.82165e-03_rb, 2.13034e-03_rb/)\n      kao_mco2( 3, :,14) = (/ &\n     & 1.27744e-04_rb, 1.49255e-04_rb, 1.74389e-04_rb, 2.03755e-04_rb, 2.38066e-04_rb, &\n     & 2.78155e-04_rb, 3.24995e-04_rb, 3.79722e-04_rb, 4.43666e-04_rb, 5.18376e-04_rb, &\n     & 6.05668e-04_rb, 7.07660e-04_rb, 8.26826e-04_rb, 9.66059e-04_rb, 1.12874e-03_rb, &\n     & 1.31881e-03_rb, 1.54089e-03_rb, 1.80037e-03_rb, 2.10354e-03_rb/)\n      kao_mco2( 4, :,14) = (/ &\n     & 1.28543e-04_rb, 1.50136e-04_rb, 1.75357e-04_rb, 2.04814e-04_rb, 2.39219e-04_rb, &\n     & 2.79404e-04_rb, 3.26339e-04_rb, 3.81159e-04_rb, 4.45188e-04_rb, 5.19972e-04_rb, &\n     & 6.07319e-04_rb, 7.09339e-04_rb, 8.28496e-04_rb, 9.67670e-04_rb, 1.13022e-03_rb, &\n     & 1.32008e-03_rb, 1.54184e-03_rb, 1.80084e-03_rb, 2.10335e-03_rb/)\n      kao_mco2( 5, :,14) = (/ &\n     & 1.29218e-04_rb, 1.50897e-04_rb, 1.76214e-04_rb, 2.05778e-04_rb, 2.40302e-04_rb, &\n     & 2.80618e-04_rb, 3.27698e-04_rb, 3.82678e-04_rb, 4.46881e-04_rb, 5.21855e-04_rb, &\n     & 6.09409e-04_rb, 7.11652e-04_rb, 8.31048e-04_rb, 9.70475e-04_rb, 1.13330e-03_rb, &\n     & 1.32343e-03_rb, 1.54547e-03_rb, 1.80476e-03_rb, 2.10755e-03_rb/)\n      kao_mco2( 6, :,14) = (/ &\n     & 1.30502e-04_rb, 1.52368e-04_rb, 1.77898e-04_rb, 2.07706e-04_rb, 2.42508e-04_rb, &\n     & 2.83141e-04_rb, 3.30583e-04_rb, 3.85974e-04_rb, 4.50646e-04_rb, 5.26153e-04_rb, &\n     & 6.14313e-04_rb, 7.17244e-04_rb, 8.37422e-04_rb, 9.77736e-04_rb, 1.14156e-03_rb, &\n     & 1.33283e-03_rb, 1.55616e-03_rb, 1.81690e-03_rb, 2.12133e-03_rb/)\n      kao_mco2( 7, :,14) = (/ &\n     & 1.32820e-04_rb, 1.55041e-04_rb, 1.80980e-04_rb, 2.11259e-04_rb, 2.46604e-04_rb, &\n     & 2.87862e-04_rb, 3.36022e-04_rb, 3.92240e-04_rb, 4.57864e-04_rb, 5.34467e-04_rb, &\n     & 6.23886e-04_rb, 7.28265e-04_rb, 8.50107e-04_rb, 9.92334e-04_rb, 1.15836e-03_rb, &\n     & 1.35215e-03_rb, 1.57838e-03_rb, 1.84244e-03_rb, 2.15069e-03_rb/)\n      kao_mco2( 8, :,14) = (/ &\n     & 1.40203e-04_rb, 1.63590e-04_rb, 1.90879e-04_rb, 2.22720e-04_rb, 2.59872e-04_rb, &\n     & 3.03221e-04_rb, 3.53801e-04_rb, 4.12819e-04_rb, 4.81681e-04_rb, 5.62031e-04_rb, &\n     & 6.55783e-04_rb, 7.65175e-04_rb, 8.92814e-04_rb, 1.04174e-03_rb, 1.21552e-03_rb, &\n     & 1.41828e-03_rb, 1.65486e-03_rb, 1.93091e-03_rb, 2.25301e-03_rb/)\n      kao_mco2( 9, :,14) = (/ &\n     & 1.30642e-04_rb, 1.52513e-04_rb, 1.78046e-04_rb, 2.07853e-04_rb, 2.42651e-04_rb, &\n     & 2.83275e-04_rb, 3.30699e-04_rb, 3.86063e-04_rb, 4.50696e-04_rb, 5.26149e-04_rb, &\n     & 6.14234e-04_rb, 7.17066e-04_rb, 8.37113e-04_rb, 9.77259e-04_rb, 1.14087e-03_rb, &\n     & 1.33186e-03_rb, 1.55484e-03_rb, 1.81514e-03_rb, 2.11902e-03_rb/)\n      kao_mco2( 1, :,15) = (/ &\n     & 1.37603e-03_rb, 1.64035e-03_rb, 1.95543e-03_rb, 2.33105e-03_rb, 2.77881e-03_rb, &\n     & 3.31257e-03_rb, 3.94887e-03_rb, 4.70739e-03_rb, 5.61162e-03_rb, 6.68952e-03_rb, &\n     & 7.97449e-03_rb, 9.50627e-03_rb, 1.13323e-02_rb, 1.35091e-02_rb, 1.61039e-02_rb, &\n     & 1.91973e-02_rb, 2.28848e-02_rb, 2.72806e-02_rb, 3.25208e-02_rb/)\n      kao_mco2( 2, :,15) = (/ &\n     & 1.67843e-04_rb, 1.93707e-04_rb, 2.23557e-04_rb, 2.58007e-04_rb, 2.97765e-04_rb, &\n     & 3.43650e-04_rb, 3.96606e-04_rb, 4.57722e-04_rb, 5.28256e-04_rb, 6.09659e-04_rb, &\n     & 7.03606e-04_rb, 8.12031e-04_rb, 9.37163e-04_rb, 1.08158e-03_rb, 1.24825e-03_rb, &\n     & 1.44060e-03_rb, 1.66259e-03_rb, 1.91880e-03_rb, 2.21448e-03_rb/)\n      kao_mco2( 3, :,15) = (/ &\n     & 1.67595e-04_rb, 1.93410e-04_rb, 2.23200e-04_rb, 2.57579e-04_rb, 2.97253e-04_rb, &\n     & 3.43039e-04_rb, 3.95876e-04_rb, 4.56852e-04_rb, 5.27220e-04_rb, 6.08426e-04_rb, &\n     & 7.02141e-04_rb, 8.10291e-04_rb, 9.35098e-04_rb, 1.07913e-03_rb, 1.24534e-03_rb, &\n     & 1.43716e-03_rb, 1.65853e-03_rb, 1.91398e-03_rb, 2.20879e-03_rb/)\n      kao_mco2( 4, :,15) = (/ &\n     & 1.67354e-04_rb, 1.93130e-04_rb, 2.22877e-04_rb, 2.57206e-04_rb, 2.96823e-04_rb, &\n     & 3.42541e-04_rb, 3.95301e-04_rb, 4.56187e-04_rb, 5.26452e-04_rb, 6.07539e-04_rb, &\n     & 7.01116e-04_rb, 8.09106e-04_rb, 9.33728e-04_rb, 1.07755e-03_rb, 1.24352e-03_rb, &\n     & 1.43505e-03_rb, 1.65608e-03_rb, 1.91116e-03_rb, 2.20553e-03_rb/)\n      kao_mco2( 5, :,15) = (/ &\n     & 1.67437e-04_rb, 1.93232e-04_rb, 2.23002e-04_rb, 2.57358e-04_rb, 2.97006e-04_rb, &\n     & 3.42763e-04_rb, 3.95570e-04_rb, 4.56511e-04_rb, 5.26842e-04_rb, 6.08007e-04_rb, &\n     & 7.01677e-04_rb, 8.09778e-04_rb, 9.34533e-04_rb, 1.07851e-03_rb, 1.24466e-03_rb, &\n     & 1.43642e-03_rb, 1.65771e-03_rb, 1.91310e-03_rb, 2.20783e-03_rb/)\n      kao_mco2( 6, :,15) = (/ &\n     & 1.67267e-04_rb, 1.93027e-04_rb, 2.22753e-04_rb, 2.57057e-04_rb, 2.96645e-04_rb, &\n     & 3.42328e-04_rb, 3.95047e-04_rb, 4.55885e-04_rb, 5.26092e-04_rb, 6.07110e-04_rb, &\n     & 7.00606e-04_rb, 8.08500e-04_rb, 9.33010e-04_rb, 1.07669e-03_rb, 1.24251e-03_rb, &\n     & 1.43385e-03_rb, 1.65467e-03_rb, 1.90949e-03_rb, 2.20355e-03_rb/)\n      kao_mco2( 7, :,15) = (/ &\n     & 1.67354e-04_rb, 1.93130e-04_rb, 2.22877e-04_rb, 2.57206e-04_rb, 2.96823e-04_rb, &\n     & 3.42541e-04_rb, 3.95301e-04_rb, 4.56187e-04_rb, 5.26452e-04_rb, 6.07539e-04_rb, &\n     & 7.01116e-04_rb, 8.09106e-04_rb, 9.33728e-04_rb, 1.07755e-03_rb, 1.24352e-03_rb, &\n     & 1.43505e-03_rb, 1.65608e-03_rb, 1.91116e-03_rb, 2.20553e-03_rb/)\n      kao_mco2( 8, :,15) = (/ &\n     & 1.67276e-04_rb, 1.93038e-04_rb, 2.22769e-04_rb, 2.57079e-04_rb, 2.96673e-04_rb, &\n     & 3.42365e-04_rb, 3.95094e-04_rb, 4.55944e-04_rb, 5.26166e-04_rb, 6.07203e-04_rb, &\n     & 7.00722e-04_rb, 8.08643e-04_rb, 9.33186e-04_rb, 1.07691e-03_rb, 1.24277e-03_rb, &\n     & 1.43417e-03_rb, 1.65506e-03_rb, 1.90996e-03_rb, 2.20412e-03_rb/)\n      kao_mco2( 9, :,15) = (/ &\n     & 1.67437e-04_rb, 1.93232e-04_rb, 2.23002e-04_rb, 2.57358e-04_rb, 2.97006e-04_rb, &\n     & 3.42763e-04_rb, 3.95570e-04_rb, 4.56511e-04_rb, 5.26842e-04_rb, 6.08007e-04_rb, &\n     & 7.01677e-04_rb, 8.09778e-04_rb, 9.34533e-04_rb, 1.07851e-03_rb, 1.24466e-03_rb, &\n     & 1.43642e-03_rb, 1.65771e-03_rb, 1.91310e-03_rb, 2.20783e-03_rb/)\n      kao_mco2( 1, :,16) = (/ &\n     & 1.42104e-03_rb, 1.69791e-03_rb, 2.02872e-03_rb, 2.42399e-03_rb, 2.89626e-03_rb, &\n     & 3.46055e-03_rb, 4.13478e-03_rb, 4.94038e-03_rb, 5.90294e-03_rb, 7.05303e-03_rb, &\n     & 8.42720e-03_rb, 1.00691e-02_rb, 1.20309e-02_rb, 1.43749e-02_rb, 1.71757e-02_rb, &\n     & 2.05221e-02_rb, 2.45205e-02_rb, 2.92979e-02_rb, 3.50061e-02_rb/)\n      kao_mco2( 2, :,16) = (/ &\n     & 1.63777e-04_rb, 1.88736e-04_rb, 2.17498e-04_rb, 2.50643e-04_rb, 2.88839e-04_rb, &\n     & 3.32857e-04_rb, 3.83582e-04_rb, 4.42037e-04_rb, 5.09401e-04_rb, 5.87030e-04_rb, &\n     & 6.76490e-04_rb, 7.79583e-04_rb, 8.98386e-04_rb, 1.03530e-03_rb, 1.19307e-03_rb, &\n     & 1.37488e-03_rb, 1.58441e-03_rb, 1.82586e-03_rb, 2.10411e-03_rb/)\n      kao_mco2( 3, :,16) = (/ &\n     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &\n     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &\n     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &\n     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)\n      kao_mco2( 4, :,16) = (/ &\n     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &\n     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &\n     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &\n     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)\n      kao_mco2( 5, :,16) = (/ &\n     & 1.63586e-04_rb, 1.88513e-04_rb, 2.17239e-04_rb, 2.50343e-04_rb, 2.88490e-04_rb, &\n     & 3.32451e-04_rb, 3.83111e-04_rb, 4.41490e-04_rb, 5.08766e-04_rb, 5.86292e-04_rb, &\n     & 6.75633e-04_rb, 7.78588e-04_rb, 8.97231e-04_rb, 1.03395e-03_rb, 1.19151e-03_rb, &\n     & 1.37307e-03_rb, 1.58231e-03_rb, 1.82342e-03_rb, 2.10128e-03_rb/)\n      kao_mco2( 6, :,16) = (/ &\n     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &\n     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &\n     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &\n     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)\n      kao_mco2( 7, :,16) = (/ &\n     & 1.63679e-04_rb, 1.88621e-04_rb, 2.17365e-04_rb, 2.50489e-04_rb, 2.88661e-04_rb, &\n     & 3.32650e-04_rb, 3.83342e-04_rb, 4.41759e-04_rb, 5.09079e-04_rb, 5.86657e-04_rb, &\n     & 6.76057e-04_rb, 7.79080e-04_rb, 8.97804e-04_rb, 1.03462e-03_rb, 1.19228e-03_rb, &\n     & 1.37397e-03_rb, 1.58335e-03_rb, 1.82464e-03_rb, 2.10269e-03_rb/)\n      kao_mco2( 8, :,16) = (/ &\n     & 1.63479e-04_rb, 1.88391e-04_rb, 2.17098e-04_rb, 2.50180e-04_rb, 2.88303e-04_rb, &\n     & 3.32236e-04_rb, 3.82863e-04_rb, 4.41205e-04_rb, 5.08437e-04_rb, 5.85914e-04_rb, &\n     & 6.75198e-04_rb, 7.78087e-04_rb, 8.96654e-04_rb, 1.03329e-03_rb, 1.19074e-03_rb, &\n     & 1.37219e-03_rb, 1.58129e-03_rb, 1.82226e-03_rb, 2.09994e-03_rb/)\n      kao_mco2( 9, :,16) = (/ &\n     & 1.63586e-04_rb, 1.88513e-04_rb, 2.17239e-04_rb, 2.50343e-04_rb, 2.88490e-04_rb, &\n     & 3.32451e-04_rb, 3.83111e-04_rb, 4.41490e-04_rb, 5.08766e-04_rb, 5.86292e-04_rb, &\n     & 6.75633e-04_rb, 7.78588e-04_rb, 8.97231e-04_rb, 1.03395e-03_rb, 1.19151e-03_rb, &\n     & 1.37307e-03_rb, 1.58231e-03_rb, 1.82342e-03_rb, 2.10128e-03_rb/)\n\n!     The array KBO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level above 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kbo_mco2(:, 1) = (/ &\n     & 3.72069e-06_rb, 4.81866e-06_rb, 6.24064e-06_rb, 8.08226e-06_rb, 1.04673e-05_rb, &\n     & 1.35562e-05_rb, 1.75567e-05_rb, 2.27376e-05_rb, 2.94475e-05_rb, 3.81375e-05_rb, &\n     & 4.93918e-05_rb, 6.39674e-05_rb, 8.28441e-05_rb, 1.07291e-04_rb, 1.38953e-04_rb, &\n     & 1.79958e-04_rb, 2.33064e-04_rb, 3.01840e-04_rb, 3.90913e-04_rb/)\n      kbo_mco2(:, 2) = (/ &\n     & 8.14357e-06_rb, 1.06031e-05_rb, 1.38056e-05_rb, 1.79752e-05_rb, 2.34041e-05_rb, &\n     & 3.04728e-05_rb, 3.96763e-05_rb, 5.16596e-05_rb, 6.72622e-05_rb, 8.75770e-05_rb, &\n     & 1.14027e-04_rb, 1.48467e-04_rb, 1.93307e-04_rb, 2.51691e-04_rb, 3.27708e-04_rb, &\n     & 4.26685e-04_rb, 5.55555e-04_rb, 7.23346e-04_rb, 9.41814e-04_rb/)\n      kbo_mco2(:, 3) = (/ &\n     & 1.09367e-05_rb, 1.42063e-05_rb, 1.84533e-05_rb, 2.39701e-05_rb, 3.11362e-05_rb, &\n     & 4.04446e-05_rb, 5.25358e-05_rb, 6.82417e-05_rb, 8.86432e-05_rb, 1.15144e-04_rb, &\n     & 1.49567e-04_rb, 1.94281e-04_rb, 2.52363e-04_rb, 3.27809e-04_rb, 4.25810e-04_rb, &\n     & 5.53109e-04_rb, 7.18466e-04_rb, 9.33256e-04_rb, 1.21226e-03_rb/)\n      kbo_mco2(:, 4) = (/ &\n     & 1.76192e-05_rb, 2.27752e-05_rb, 2.94401e-05_rb, 3.80553e-05_rb, 4.91916e-05_rb, &\n     & 6.35867e-05_rb, 8.21944e-05_rb, 1.06247e-04_rb, 1.37339e-04_rb, 1.77529e-04_rb, &\n     & 2.29480e-04_rb, 2.96635e-04_rb, 3.83440e-04_rb, 4.95648e-04_rb, 6.40691e-04_rb, &\n     & 8.28180e-04_rb, 1.07054e-03_rb, 1.38381e-03_rb, 1.78876e-03_rb/)\n      kbo_mco2(:, 5) = (/ &\n     & 3.72142e-05_rb, 4.78603e-05_rb, 6.15520e-05_rb, 7.91605e-05_rb, 1.01806e-04_rb, &\n     & 1.30931e-04_rb, 1.68387e-04_rb, 2.16558e-04_rb, 2.78510e-04_rb, 3.58185e-04_rb, &\n     & 4.60653e-04_rb, 5.92435e-04_rb, 7.61915e-04_rb, 9.79881e-04_rb, 1.26020e-03_rb, &\n     & 1.62071e-03_rb, 2.08436e-03_rb, 2.68064e-03_rb, 3.44751e-03_rb/)\n      kbo_mco2(:, 6) = (/ &\n     & 7.74131e-05_rb, 9.98876e-05_rb, 1.28887e-04_rb, 1.66305e-04_rb, 2.14587e-04_rb, &\n     & 2.76886e-04_rb, 3.57272e-04_rb, 4.60994e-04_rb, 5.94831e-04_rb, 7.67521e-04_rb, &\n     & 9.90348e-04_rb, 1.27787e-03_rb, 1.64886e-03_rb, 2.12755e-03_rb, 2.74522e-03_rb, &\n     & 3.54221e-03_rb, 4.57059e-03_rb, 5.89752e-03_rb, 7.60968e-03_rb/)\n      kbo_mco2(:, 7) = (/ &\n     & 1.32294e-04_rb, 1.70977e-04_rb, 2.20973e-04_rb, 2.85587e-04_rb, 3.69095e-04_rb, &\n     & 4.77022e-04_rb, 6.16507e-04_rb, 7.96779e-04_rb, 1.02976e-03_rb, 1.33088e-03_rb, &\n     & 1.72004e-03_rb, 2.22299e-03_rb, 2.87301e-03_rb, 3.71310e-03_rb, 4.79884e-03_rb, &\n     & 6.20207e-03_rb, 8.01561e-03_rb, 1.03594e-02_rb, 1.33886e-02_rb/)\n      kbo_mco2(:, 8) = (/ &\n     & 3.59868e-05_rb, 4.63611e-05_rb, 5.97261e-05_rb, 7.69439e-05_rb, 9.91253e-05_rb, &\n     & 1.27701e-04_rb, 1.64515e-04_rb, 2.11941e-04_rb, 2.73040e-04_rb, 3.51752e-04_rb, &\n     & 4.53155e-04_rb, 5.83790e-04_rb, 7.52085e-04_rb, 9.68897e-04_rb, 1.24821e-03_rb, &\n     & 1.60804e-03_rb, 2.07161e-03_rb, 2.66882e-03_rb, 3.43818e-03_rb/)\n      kbo_mco2(:, 9) = (/ &\n     & 5.09543e-05_rb, 6.60510e-05_rb, 8.56205e-05_rb, 1.10988e-04_rb, 1.43872e-04_rb, &\n     & 1.86498e-04_rb, 2.41753e-04_rb, 3.13380e-04_rb, 4.06228e-04_rb, 5.26585e-04_rb, &\n     & 6.82601e-04_rb, 8.84842e-04_rb, 1.14700e-03_rb, 1.48684e-03_rb, 1.92735e-03_rb, &\n     & 2.49839e-03_rb, 3.23861e-03_rb, 4.19814e-03_rb, 5.44196e-03_rb/)\n      kbo_mco2(:,10) = (/ &\n     & 2.08253e-05_rb, 2.64900e-05_rb, 3.36954e-05_rb, 4.28609e-05_rb, 5.45194e-05_rb, &\n     & 6.93491e-05_rb, 8.82125e-05_rb, 1.12207e-04_rb, 1.42728e-04_rb, 1.81551e-04_rb, &\n     & 2.30935e-04_rb, 2.93751e-04_rb, 3.73653e-04_rb, 4.75290e-04_rb, 6.04572e-04_rb, &\n     & 7.69021e-04_rb, 9.78201e-04_rb, 1.24428e-03_rb, 1.58273e-03_rb/)\n      kbo_mco2(:,11) = (/ &\n     & 2.08953e-05_rb, 2.65543e-05_rb, 3.37459e-05_rb, 4.28852e-05_rb, 5.44996e-05_rb, &\n     & 6.92595e-05_rb, 8.80169e-05_rb, 1.11854e-04_rb, 1.42147e-04_rb, 1.80644e-04_rb, &\n     & 2.29568e-04_rb, 2.91741e-04_rb, 3.70752e-04_rb, 4.71161e-04_rb, 5.98764e-04_rb, &\n     & 7.60925e-04_rb, 9.67005e-04_rb, 1.22889e-03_rb, 1.56171e-03_rb/)\n      kbo_mco2(:,12) = (/ &\n     & 2.65295e-05_rb, 3.36318e-05_rb, 4.26356e-05_rb, 5.40498e-05_rb, 6.85198e-05_rb, &\n     & 8.68636e-05_rb, 1.10118e-04_rb, 1.39599e-04_rb, 1.76972e-04_rb, 2.24350e-04_rb, &\n     & 2.84412e-04_rb, 3.60553e-04_rb, 4.57079e-04_rb, 5.79446e-04_rb, 7.34572e-04_rb, &\n     & 9.31230e-04_rb, 1.18053e-03_rb, 1.49658e-03_rb, 1.89724e-03_rb/)\n      kbo_mco2(:,13) = (/ &\n     & 3.45358e-05_rb, 4.36743e-05_rb, 5.52309e-05_rb, 6.98455e-05_rb, 8.83273e-05_rb, &\n     & 1.11700e-04_rb, 1.41256e-04_rb, 1.78634e-04_rb, 2.25902e-04_rb, 2.85678e-04_rb, &\n     & 3.61271e-04_rb, 4.56867e-04_rb, 5.77758e-04_rb, 7.30639e-04_rb, 9.23973e-04_rb, &\n     & 1.16847e-03_rb, 1.47765e-03_rb, 1.86865e-03_rb, 2.36311e-03_rb/)\n      kbo_mco2(:,14) = (/ &\n     & 3.99721e-05_rb, 5.12343e-05_rb, 6.56698e-05_rb, 8.41725e-05_rb, 1.07888e-04_rb, &\n     & 1.38286e-04_rb, 1.77249e-04_rb, 2.27190e-04_rb, 2.91201e-04_rb, 3.73248e-04_rb, &\n     & 4.78412e-04_rb, 6.13207e-04_rb, 7.85980e-04_rb, 1.00743e-03_rb, 1.29128e-03_rb, &\n     & 1.65510e-03_rb, 2.12144e-03_rb, 2.71916e-03_rb, 3.48529e-03_rb/)\n      kbo_mco2(:,15) = (/ &\n     & 8.51533e-06_rb, 1.23021e-05_rb, 1.77730e-05_rb, 2.56767e-05_rb, 3.70953e-05_rb, &\n     & 5.35918e-05_rb, 7.74243e-05_rb, 1.11855e-04_rb, 1.61598e-04_rb, 2.33461e-04_rb, &\n     & 3.37283e-04_rb, 4.87275e-04_rb, 7.03968e-04_rb, 1.01703e-03_rb, 1.46930e-03_rb, &\n     & 2.12271e-03_rb, 3.06670e-03_rb, 4.43047e-03_rb, 6.40072e-03_rb/)\n      kbo_mco2(:,16) = (/ &\n     & 2.93050e-06_rb, 3.65298e-06_rb, 4.55358e-06_rb, 5.67622e-06_rb, 7.07564e-06_rb, &\n     & 8.82006e-06_rb, 1.09945e-05_rb, 1.37051e-05_rb, 1.70840e-05_rb, 2.12959e-05_rb, &\n     & 2.65461e-05_rb, 3.30908e-05_rb, 4.12490e-05_rb, 5.14185e-05_rb, 6.40952e-05_rb, &\n     & 7.98972e-05_rb, 9.95951e-05_rb, 1.24149e-04_rb, 1.54757e-04_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296_rb,260_rb,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &2.0677e-07_rb,2.0363e-07_rb,2.0583e-07_rb,2.0547e-07_rb,2.0267e-07_rb,2.0154e-07_rb, &\n     &2.0190e-07_rb,2.0103e-07_rb,1.9869e-07_rb,1.9663e-07_rb,1.9701e-07_rb,2.0103e-07_rb, &\n     &2.0527e-07_rb,2.0206e-07_rb,2.0364e-07_rb,2.0364e-07_rb/)\n      forrefo(2,:) = (/ &\n     &2.2427e-07_rb,2.1489e-07_rb,2.0453e-07_rb,1.9710e-07_rb,1.9650e-07_rb,1.9738e-07_rb, &\n     &1.9767e-07_rb,1.9769e-07_rb,1.9940e-07_rb,1.9846e-07_rb,1.9898e-07_rb,1.9853e-07_rb, &\n     &2.0000e-07_rb,2.0517e-07_rb,2.0482e-07_rb,2.0482e-07_rb/)\n      forrefo(3,:) = (/ &\n     &2.2672e-07_rb,2.1706e-07_rb,2.0571e-07_rb,1.9747e-07_rb,1.9706e-07_rb,1.9698e-07_rb, &\n     &1.9781e-07_rb,1.9774e-07_rb,1.9724e-07_rb,1.9714e-07_rb,1.9751e-07_rb,1.9758e-07_rb, &\n     &1.9840e-07_rb,1.9968e-07_rb,1.9931e-07_rb,1.9880e-07_rb/)\n      forrefo(4,:) = (/ &\n     &2.2191e-07_rb,2.0899e-07_rb,2.0265e-07_rb,2.0101e-07_rb,2.0034e-07_rb,2.0021e-07_rb, &\n     &1.9987e-07_rb,1.9978e-07_rb,1.9902e-07_rb,1.9742e-07_rb,1.9672e-07_rb,1.9615e-07_rb, &\n     &1.9576e-07_rb,1.9540e-07_rb,1.9588e-07_rb,1.9590e-07_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 5.18832e-02_rb, 4.28690e-02_rb, 3.54210e-02_rb, 2.92670e-02_rb, 2.41822e-02_rb, &\n     & 1.99808e-02_rb, 1.65093e-02_rb, 1.36410e-02_rb, 1.12710e-02_rb, 9.31280e-03_rb/)\n      selfrefo(:, 2) = (/ &\n     & 4.36030e-02_rb, 3.78379e-02_rb, 3.28350e-02_rb, 2.84936e-02_rb, 2.47262e-02_rb, &\n     & 2.14569e-02_rb, 1.86199e-02_rb, 1.61580e-02_rb, 1.40216e-02_rb, 1.21677e-02_rb/)\n      selfrefo(:, 3) = (/ &\n     & 4.26492e-02_rb, 3.71443e-02_rb, 3.23500e-02_rb, 2.81745e-02_rb, 2.45379e-02_rb, &\n     & 2.13707e-02_rb, 1.86124e-02_rb, 1.62100e-02_rb, 1.41177e-02_rb, 1.22955e-02_rb/)\n      selfrefo(:, 4) = (/ &\n     & 4.03591e-02_rb, 3.54614e-02_rb, 3.11580e-02_rb, 2.73769e-02_rb, 2.40546e-02_rb, &\n     & 2.11355e-02_rb, 1.85706e-02_rb, 1.63170e-02_rb, 1.43369e-02_rb, 1.25970e-02_rb/)\n      selfrefo(:, 5) = (/ &\n     & 3.94512e-02_rb, 3.46232e-02_rb, 3.03860e-02_rb, 2.66674e-02_rb, 2.34038e-02_rb, &\n     & 2.05397e-02_rb, 1.80260e-02_rb, 1.58200e-02_rb, 1.38839e-02_rb, 1.21848e-02_rb/)\n      selfrefo(:, 6) = (/ &\n     & 3.90567e-02_rb, 3.40694e-02_rb, 2.97190e-02_rb, 2.59241e-02_rb, 2.26138e-02_rb, &\n     & 1.97261e-02_rb, 1.72072e-02_rb, 1.50100e-02_rb, 1.30933e-02_rb, 1.14214e-02_rb/)\n      selfrefo(:, 7) = (/ &\n     & 3.85397e-02_rb, 3.36462e-02_rb, 2.93740e-02_rb, 2.56443e-02_rb, 2.23881e-02_rb, &\n     & 1.95454e-02_rb, 1.70636e-02_rb, 1.48970e-02_rb, 1.30055e-02_rb, 1.13541e-02_rb/)\n      selfrefo(:, 8) = (/ &\n     & 3.79692e-02_rb, 3.31360e-02_rb, 2.89180e-02_rb, 2.52369e-02_rb, 2.20245e-02_rb, &\n     & 1.92209e-02_rb, 1.67742e-02_rb, 1.46390e-02_rb, 1.27756e-02_rb, 1.11493e-02_rb/)\n      selfrefo(:, 9) = (/ &\n     & 3.68819e-02_rb, 3.22827e-02_rb, 2.82570e-02_rb, 2.47333e-02_rb, 2.16490e-02_rb, &\n     & 1.89494e-02_rb, 1.65863e-02_rb, 1.45180e-02_rb, 1.27076e-02_rb, 1.11229e-02_rb/)\n      selfrefo(:,10) = (/ &\n     & 3.65157e-02_rb, 3.20121e-02_rb, 2.80640e-02_rb, 2.46028e-02_rb, 2.15685e-02_rb, &\n     & 1.89084e-02_rb, 1.65764e-02_rb, 1.45320e-02_rb, 1.27397e-02_rb, 1.11685e-02_rb/)\n      selfrefo(:,11) = (/ &\n     & 3.59917e-02_rb, 3.16727e-02_rb, 2.78720e-02_rb, 2.45274e-02_rb, 2.15841e-02_rb, &\n     & 1.89940e-02_rb, 1.67148e-02_rb, 1.47090e-02_rb, 1.29439e-02_rb, 1.13907e-02_rb/)\n      selfrefo(:,12) = (/ &\n     & 3.66963e-02_rb, 3.20483e-02_rb, 2.79890e-02_rb, 2.44439e-02_rb, 2.13478e-02_rb, &\n     & 1.86438e-02_rb, 1.62824e-02_rb, 1.42200e-02_rb, 1.24189e-02_rb, 1.08459e-02_rb/)\n      selfrefo(:,13) = (/ &\n     & 3.66422e-02_rb, 3.19026e-02_rb, 2.77760e-02_rb, 2.41832e-02_rb, 2.10551e-02_rb, &\n     & 1.83317e-02_rb, 1.59605e-02_rb, 1.38960e-02_rb, 1.20986e-02_rb, 1.05336e-02_rb/)\n      selfrefo(:,14) = (/ &\n     & 3.81260e-02_rb, 3.29322e-02_rb, 2.84460e-02_rb, 2.45709e-02_rb, 2.12237e-02_rb, &\n     & 1.83325e-02_rb, 1.58352e-02_rb, 1.36780e-02_rb, 1.18147e-02_rb, 1.02052e-02_rb/)\n      selfrefo(:,15) = (/ &\n     & 3.51264e-02_rb, 3.05081e-02_rb, 2.64970e-02_rb, 2.30133e-02_rb, 1.99876e-02_rb, &\n     & 1.73597e-02_rb, 1.50773e-02_rb, 1.30950e-02_rb, 1.13733e-02_rb, 9.87800e-03_rb/)\n      selfrefo(:,16) = (/ &\n     & 3.51264e-02_rb, 3.05081e-02_rb, 2.64970e-02_rb, 2.30133e-02_rb, 1.99876e-02_rb, &\n     & 1.73597e-02_rb, 1.50773e-02_rb, 1.30950e-02_rb, 1.13733e-02_rb, 9.87800e-03_rb/)\n\n      end subroutine lw_kgb07\n\n! **************************************************************************\n      subroutine lw_kgb08\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg08, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, &\n                            kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, &\n                            cfc12o, cfc22adjo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P=473.4280 mb, T = 259.83 K\n      fracrefao(:) = (/ &\n        1.6004e-01_rb,1.5437e-01_rb,1.4502e-01_rb,1.3084e-01_rb,1.1523e-01_rb,9.7743e-02_rb, &\n        8.0376e-02_rb,6.0261e-02_rb,4.1111e-02_rb,4.4772e-03_rb,3.6511e-03_rb,2.9154e-03_rb, &\n        2.1184e-03_rb,1.3048e-03_rb,4.6637e-04_rb,6.5624e-05_rb/)\n\n! Planck fraction mapping level : P=95.5835 mb, T= 215.7 K\n      fracrefbo(:) = (/ &\n        1.4987e-01_rb,1.4665e-01_rb,1.4154e-01_rb,1.3200e-01_rb,1.1902e-01_rb,1.0352e-01_rb, &\n        8.4939e-02_rb,6.4105e-02_rb,4.3190e-02_rb,4.5129e-03_rb,3.7656e-03_rb,2.8733e-03_rb, &\n        2.0947e-03_rb,1.3201e-03_rb,5.1832e-04_rb,7.7473e-05_rb/)\n\n! Minor gas mapping level:\n!     lower - co2, p = 1053.63 mb, t = 294.2 k\n!     lower - o3,  p = 317.348 mb, t = 240.77 k\n!     lower - n2o, p = 706.2720 mb, t= 278.94 k\n!     lower - cfc12,cfc11\n!     upper - co2, p = 35.1632 mb, t = 223.28 k\n!     upper - n2o, p = 8.716e-2 mb, t = 226.03 k\n\n      cfc12o(:) = (/ &\n        85.4027_rb, 89.4696_rb, 74.0959_rb, 67.7480_rb, &\n        61.2444_rb, 59.9073_rb, 60.8296_rb, 63.0998_rb, &\n        59.6110_rb, 64.0735_rb, 57.2622_rb, 58.9721_rb, &\n        43.5505_rb, 26.1192_rb, 32.7023_rb, 32.8667_rb/)\n! Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1 \n! and 1290-1335 cm-1 bands.\n      cfc22adjo(:) = (/ &\n        135.335_rb, 89.6642_rb, 76.2375_rb, 65.9748_rb, &\n        63.1164_rb, 60.2935_rb, 64.0299_rb, 75.4264_rb, &\n        51.3018_rb, 7.07911_rb, 5.86928_rb, 0.398693_rb, &\n        2.82885_rb, 9.12751_rb, 6.28271_rb, 0._rb/)\n\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels > ~100mb and temperatures.  The first\n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the corresponding TREF for this  pressure level, \n!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, \n!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second \n!     index, JP, runs from 1 to 13 and refers to the corresponding \n!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  \n!     The third index, IG, goes from 1 to 16, and tells us which \n!     g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &1.4664e-05_rb,1.7114e-05_rb,1.8876e-05_rb,2.2301e-05_rb,2.6622e-05_rb/)\n      kao(:, 2, 1) = (/ &\n     &1.0571e-05_rb,1.1718e-05_rb,1.4060e-05_rb,1.7193e-05_rb,2.1557e-05_rb/)\n      kao(:, 3, 1) = (/ &\n     &6.6138e-06_rb,8.1523e-06_rb,1.0695e-05_rb,1.3782e-05_rb,1.7449e-05_rb/)\n      kao(:, 4, 1) = (/ &\n     &5.1390e-06_rb,7.0055e-06_rb,9.4447e-06_rb,1.2362e-05_rb,1.5431e-05_rb/)\n      kao(:, 5, 1) = (/ &\n     &4.7765e-06_rb,6.4140e-06_rb,8.4242e-06_rb,1.0772e-05_rb,1.3788e-05_rb/)\n      kao(:, 6, 1) = (/ &\n     &4.4818e-06_rb,6.1945e-06_rb,8.3186e-06_rb,1.0638e-05_rb,1.3072e-05_rb/)\n      kao(:, 7, 1) = (/ &\n     &4.1781e-06_rb,5.8651e-06_rb,8.2034e-06_rb,1.0966e-05_rb,1.3592e-05_rb/)\n      kao(:, 8, 1) = (/ &\n     &4.6559e-06_rb,6.5570e-06_rb,8.8606e-06_rb,1.1636e-05_rb,1.4449e-05_rb/)\n      kao(:, 9, 1) = (/ &\n     &6.3964e-06_rb,9.3461e-06_rb,1.3202e-05_rb,1.7140e-05_rb,2.2124e-05_rb/)\n      kao(:,10, 1) = (/ &\n     &1.0453e-05_rb,1.6266e-05_rb,2.2571e-05_rb,3.2675e-05_rb,4.3832e-05_rb/)\n      kao(:,11, 1) = (/ &\n     &1.9225e-05_rb,2.5219e-05_rb,3.3439e-05_rb,4.2567e-05_rb,5.0999e-05_rb/)\n      kao(:,12, 1) = (/ &\n     &1.8581e-05_rb,2.6464e-05_rb,3.4892e-05_rb,4.5782e-05_rb,5.8008e-05_rb/)\n      kao(:,13, 1) = (/ &\n     &2.3252e-05_rb,2.6601e-05_rb,3.1497e-05_rb,4.1728e-05_rb,5.3564e-05_rb/)\n      kao(:, 1, 2) = (/ &\n     &2.4622e-05_rb,2.2121e-05_rb,2.5151e-05_rb,3.1972e-05_rb,4.1114e-05_rb/)\n      kao(:, 2, 2) = (/ &\n     &1.5738e-05_rb,1.6913e-05_rb,2.0782e-05_rb,2.6880e-05_rb,3.4084e-05_rb/)\n      kao(:, 3, 2) = (/ &\n     &9.8655e-06_rb,1.2753e-05_rb,1.6558e-05_rb,2.1755e-05_rb,2.8126e-05_rb/)\n      kao(:, 4, 2) = (/ &\n     &7.9265e-06_rb,1.0229e-05_rb,1.3524e-05_rb,1.7603e-05_rb,2.3192e-05_rb/)\n      kao(:, 5, 2) = (/ &\n     &7.0537e-06_rb,9.6733e-06_rb,1.2570e-05_rb,1.6079e-05_rb,2.0384e-05_rb/)\n      kao(:, 6, 2) = (/ &\n     &6.5277e-06_rb,9.1084e-06_rb,1.2443e-05_rb,1.5914e-05_rb,2.0339e-05_rb/)\n      kao(:, 7, 2) = (/ &\n     &7.4442e-06_rb,1.0146e-05_rb,1.2791e-05_rb,1.6212e-05_rb,2.1044e-05_rb/)\n      kao(:, 8, 2) = (/ &\n     &7.4223e-06_rb,1.0854e-05_rb,1.4643e-05_rb,1.9376e-05_rb,2.5625e-05_rb/)\n      kao(:, 9, 2) = (/ &\n     &1.4157e-05_rb,1.8510e-05_rb,2.5064e-05_rb,3.4631e-05_rb,4.4655e-05_rb/)\n      kao(:,10, 2) = (/ &\n     &3.4785e-05_rb,4.4053e-05_rb,5.4155e-05_rb,6.0764e-05_rb,5.9887e-05_rb/)\n      kao(:,11, 2) = (/ &\n     &4.4199e-05_rb,5.6024e-05_rb,6.6252e-05_rb,8.3322e-05_rb,1.0437e-04_rb/)\n      kao(:,12, 2) = (/ &\n     &4.8012e-05_rb,6.2560e-05_rb,7.6674e-05_rb,8.6164e-05_rb,1.0081e-04_rb/)\n      kao(:,13, 2) = (/ &\n     &3.9220e-05_rb,5.8614e-05_rb,7.6090e-05_rb,8.9710e-05_rb,9.6705e-05_rb/)\n      kao(:, 1, 3) = (/ &\n     &2.7517e-05_rb,3.2252e-05_rb,4.5774e-05_rb,5.9187e-05_rb,7.3901e-05_rb/)\n      kao(:, 2, 3) = (/ &\n     &1.9414e-05_rb,2.5349e-05_rb,3.4494e-05_rb,4.4078e-05_rb,5.4475e-05_rb/)\n      kao(:, 3, 3) = (/ &\n     &1.4431e-05_rb,1.9862e-05_rb,2.6815e-05_rb,3.5045e-05_rb,4.4510e-05_rb/)\n      kao(:, 4, 3) = (/ &\n     &1.1163e-05_rb,1.5886e-05_rb,2.1047e-05_rb,2.7352e-05_rb,3.5151e-05_rb/)\n      kao(:, 5, 3) = (/ &\n     &1.0004e-05_rb,1.3946e-05_rb,1.9070e-05_rb,2.4940e-05_rb,3.2122e-05_rb/)\n      kao(:, 6, 3) = (/ &\n     &9.8796e-06_rb,1.2389e-05_rb,1.6574e-05_rb,2.2677e-05_rb,2.9114e-05_rb/)\n      kao(:, 7, 3) = (/ &\n     &9.6705e-06_rb,1.3203e-05_rb,1.8009e-05_rb,2.4248e-05_rb,2.9926e-05_rb/)\n      kao(:, 8, 3) = (/ &\n     &1.2684e-05_rb,1.5798e-05_rb,2.0751e-05_rb,2.7135e-05_rb,3.4302e-05_rb/)\n      kao(:, 9, 3) = (/ &\n     &2.3748e-05_rb,2.8117e-05_rb,3.3728e-05_rb,4.1366e-05_rb,5.3787e-05_rb/)\n      kao(:,10, 3) = (/ &\n     &4.9449e-05_rb,6.0387e-05_rb,8.1388e-05_rb,1.0134e-04_rb,1.3311e-04_rb/)\n      kao(:,11, 3) = (/ &\n     &6.5933e-05_rb,8.9755e-05_rb,1.2191e-04_rb,1.3795e-04_rb,1.5355e-04_rb/)\n      kao(:,12, 3) = (/ &\n     &6.2437e-05_rb,8.0247e-05_rb,1.0990e-04_rb,1.3683e-04_rb,1.6418e-04_rb/)\n      kao(:,13, 3) = (/ &\n     &5.9989e-05_rb,6.7831e-05_rb,9.4332e-05_rb,1.1542e-04_rb,1.5040e-04_rb/)\n      kao(:, 1, 4) = (/ &\n     &3.6489e-05_rb,5.9568e-05_rb,7.8043e-05_rb,9.8599e-05_rb,1.2261e-04_rb/)\n      kao(:, 2, 4) = (/ &\n     &3.0751e-05_rb,4.5700e-05_rb,5.9720e-05_rb,7.6230e-05_rb,9.5698e-05_rb/)\n      kao(:, 3, 4) = (/ &\n     &2.6862e-05_rb,3.6448e-05_rb,4.6703e-05_rb,5.7936e-05_rb,7.1216e-05_rb/)\n      kao(:, 4, 4) = (/ &\n     &2.0754e-05_rb,2.7900e-05_rb,3.6677e-05_rb,4.8008e-05_rb,6.1630e-05_rb/)\n      kao(:, 5, 4) = (/ &\n     &1.6362e-05_rb,2.1862e-05_rb,2.9666e-05_rb,3.8981e-05_rb,5.0305e-05_rb/)\n      kao(:, 6, 4) = (/ &\n     &1.4991e-05_rb,2.0957e-05_rb,2.6223e-05_rb,3.2254e-05_rb,4.2632e-05_rb/)\n      kao(:, 7, 4) = (/ &\n     &1.3833e-05_rb,1.9399e-05_rb,2.5656e-05_rb,3.2001e-05_rb,4.1685e-05_rb/)\n      kao(:, 8, 4) = (/ &\n     &1.6855e-05_rb,2.2852e-05_rb,3.0265e-05_rb,3.5778e-05_rb,4.6073e-05_rb/)\n      kao(:, 9, 4) = (/ &\n     &3.3370e-05_rb,4.7904e-05_rb,5.8243e-05_rb,6.4094e-05_rb,7.6700e-05_rb/)\n      kao(:,10, 4) = (/ &\n     &6.8238e-05_rb,1.0340e-04_rb,1.2739e-04_rb,1.5464e-04_rb,1.7523e-04_rb/)\n      kao(:,11, 4) = (/ &\n     &6.1230e-05_rb,9.6227e-05_rb,1.3743e-04_rb,1.9846e-04_rb,2.3838e-04_rb/)\n      kao(:,12, 4) = (/ &\n     &6.8823e-05_rb,1.0715e-04_rb,1.3058e-04_rb,1.9049e-04_rb,2.2996e-04_rb/)\n      kao(:,13, 4) = (/ &\n     &6.5444e-05_rb,1.1659e-04_rb,1.2685e-04_rb,1.7368e-04_rb,2.0128e-04_rb/)\n      kao(:, 1, 5) = (/ &\n     &7.8999e-05_rb,1.0665e-04_rb,1.3776e-04_rb,1.7432e-04_rb,2.1687e-04_rb/)\n      kao(:, 2, 5) = (/ &\n     &6.1797e-05_rb,8.3347e-05_rb,1.0862e-04_rb,1.3836e-04_rb,1.7490e-04_rb/)\n      kao(:, 3, 5) = (/ &\n     &4.7325e-05_rb,6.2800e-05_rb,8.1194e-05_rb,1.0315e-04_rb,1.3026e-04_rb/)\n      kao(:, 4, 5) = (/ &\n     &3.8433e-05_rb,5.0865e-05_rb,6.5549e-05_rb,8.2585e-05_rb,1.0247e-04_rb/)\n      kao(:, 5, 5) = (/ &\n     &3.0177e-05_rb,3.9082e-05_rb,4.9288e-05_rb,6.5674e-05_rb,8.5494e-05_rb/)\n      kao(:, 6, 5) = (/ &\n     &2.4712e-05_rb,3.2374e-05_rb,4.1224e-05_rb,5.5035e-05_rb,7.0157e-05_rb/)\n      kao(:, 7, 5) = (/ &\n     &2.2530e-05_rb,2.6200e-05_rb,3.5121e-05_rb,4.6306e-05_rb,5.9652e-05_rb/)\n      kao(:, 8, 5) = (/ &\n     &2.8297e-05_rb,3.6551e-05_rb,4.4329e-05_rb,5.9550e-05_rb,7.1792e-05_rb/)\n      kao(:, 9, 5) = (/ &\n     &5.6002e-05_rb,7.4631e-05_rb,8.8607e-05_rb,1.1720e-04_rb,1.2997e-04_rb/)\n      kao(:,10, 5) = (/ &\n     &8.1020e-05_rb,1.1580e-04_rb,1.6197e-04_rb,2.3825e-04_rb,2.8441e-04_rb/)\n      kao(:,11, 5) = (/ &\n     &9.6146e-05_rb,1.4644e-04_rb,1.7805e-04_rb,2.2438e-04_rb,3.1753e-04_rb/)\n      kao(:,12, 5) = (/ &\n     &9.5441e-05_rb,1.4982e-04_rb,2.4222e-04_rb,2.7134e-04_rb,3.3168e-04_rb/)\n      kao(:,13, 5) = (/ &\n     &9.5058e-05_rb,1.4349e-04_rb,2.4835e-04_rb,2.9526e-04_rb,3.7011e-04_rb/)\n      kao(:, 1, 6) = (/ &\n     &1.5625e-04_rb,2.0681e-04_rb,2.6299e-04_rb,3.2669e-04_rb,4.0038e-04_rb/)\n      kao(:, 2, 6) = (/ &\n     &1.1702e-04_rb,1.5581e-04_rb,2.0084e-04_rb,2.5419e-04_rb,3.1669e-04_rb/)\n      kao(:, 3, 6) = (/ &\n     &8.6159e-05_rb,1.1329e-04_rb,1.4769e-04_rb,1.9151e-04_rb,2.4537e-04_rb/)\n      kao(:, 4, 6) = (/ &\n     &7.1655e-05_rb,9.4348e-05_rb,1.2251e-04_rb,1.5312e-04_rb,1.8840e-04_rb/)\n      kao(:, 5, 6) = (/ &\n     &5.9776e-05_rb,8.0388e-05_rb,1.0504e-04_rb,1.3009e-04_rb,1.5686e-04_rb/)\n      kao(:, 6, 6) = (/ &\n     &4.1587e-05_rb,5.6800e-05_rb,7.7481e-05_rb,9.9930e-05_rb,1.3028e-04_rb/)\n      kao(:, 7, 6) = (/ &\n     &3.7625e-05_rb,5.2950e-05_rb,6.5572e-05_rb,8.3943e-05_rb,1.0947e-04_rb/)\n      kao(:, 8, 6) = (/ &\n     &4.0934e-05_rb,5.1706e-05_rb,6.6726e-05_rb,8.2858e-05_rb,1.0389e-04_rb/)\n      kao(:, 9, 6) = (/ &\n     &8.3177e-05_rb,1.0693e-04_rb,1.2771e-04_rb,1.5344e-04_rb,1.9338e-04_rb/)\n      kao(:,10, 6) = (/ &\n     &1.2590e-04_rb,1.6860e-04_rb,2.4332e-04_rb,2.8123e-04_rb,4.3002e-04_rb/)\n      kao(:,11, 6) = (/ &\n     &1.5778e-04_rb,2.1103e-04_rb,2.9773e-04_rb,4.5434e-04_rb,5.2006e-04_rb/)\n      kao(:,12, 6) = (/ &\n     &1.7734e-04_rb,2.3169e-04_rb,2.6921e-04_rb,4.5377e-04_rb,6.4453e-04_rb/)\n      kao(:,13, 6) = (/ &\n     &1.7874e-04_rb,2.2968e-04_rb,2.8292e-04_rb,4.5303e-04_rb,6.1897e-04_rb/)\n      kao(:, 1, 7) = (/ &\n     &3.7144e-04_rb,4.7830e-04_rb,6.0203e-04_rb,7.4238e-04_rb,8.9847e-04_rb/)\n      kao(:, 2, 7) = (/ &\n     &2.8002e-04_rb,3.6431e-04_rb,4.6140e-04_rb,5.7047e-04_rb,6.9195e-04_rb/)\n      kao(:, 3, 7) = (/ &\n     &1.8338e-04_rb,2.5018e-04_rb,3.2929e-04_rb,4.2096e-04_rb,5.2583e-04_rb/)\n      kao(:, 4, 7) = (/ &\n     &1.3365e-04_rb,1.7565e-04_rb,2.2370e-04_rb,2.9770e-04_rb,3.9171e-04_rb/)\n      kao(:, 5, 7) = (/ &\n     &1.1609e-04_rb,1.5410e-04_rb,1.9723e-04_rb,2.4620e-04_rb,3.0830e-04_rb/)\n      kao(:, 6, 7) = (/ &\n     &1.0480e-04_rb,1.3862e-04_rb,1.7991e-04_rb,2.2372e-04_rb,2.7406e-04_rb/)\n      kao(:, 7, 7) = (/ &\n     &8.7767e-05_rb,1.1689e-04_rb,1.5270e-04_rb,1.9631e-04_rb,2.3773e-04_rb/)\n      kao(:, 8, 7) = (/ &\n     &9.8366e-05_rb,1.1738e-04_rb,1.4725e-04_rb,1.8494e-04_rb,2.3601e-04_rb/)\n      kao(:, 9, 7) = (/ &\n     &1.5443e-04_rb,1.9009e-04_rb,2.4404e-04_rb,2.8078e-04_rb,3.3602e-04_rb/)\n      kao(:,10, 7) = (/ &\n     &1.5274e-04_rb,2.6878e-04_rb,3.7659e-04_rb,5.3377e-04_rb,5.6306e-04_rb/)\n      kao(:,11, 7) = (/ &\n     &2.0214e-04_rb,2.6794e-04_rb,4.2457e-04_rb,5.7376e-04_rb,8.8285e-04_rb/)\n      kao(:,12, 7) = (/ &\n     &2.5054e-04_rb,3.1232e-04_rb,4.4996e-04_rb,6.0765e-04_rb,8.8689e-04_rb/)\n      kao(:,13, 7) = (/ &\n     &2.7318e-04_rb,3.6929e-04_rb,4.5362e-04_rb,6.1364e-04_rb,9.2141e-04_rb/)\n      kao(:, 1, 8) = (/ &\n     &1.1751e-03_rb,1.5113e-03_rb,1.8892e-03_rb,2.3109e-03_rb,2.7776e-03_rb/)\n      kao(:, 2, 8) = (/ &\n     &8.9844e-04_rb,1.1675e-03_rb,1.4748e-03_rb,1.8223e-03_rb,2.2105e-03_rb/)\n      kao(:, 3, 8) = (/ &\n     &6.3916e-04_rb,8.4337e-04_rb,1.0777e-03_rb,1.3420e-03_rb,1.6361e-03_rb/)\n      kao(:, 4, 8) = (/ &\n     &3.9704e-04_rb,5.5491e-04_rb,7.4493e-04_rb,9.5633e-04_rb,1.1972e-03_rb/)\n      kao(:, 5, 8) = (/ &\n     &2.8104e-04_rb,3.5275e-04_rb,4.8572e-04_rb,6.7373e-04_rb,9.0464e-04_rb/)\n      kao(:, 6, 8) = (/ &\n     &2.6538e-04_rb,3.4221e-04_rb,4.3816e-04_rb,5.5889e-04_rb,6.9563e-04_rb/)\n      kao(:, 7, 8) = (/ &\n     &2.6802e-04_rb,3.3443e-04_rb,4.3228e-04_rb,5.4299e-04_rb,6.7937e-04_rb/)\n      kao(:, 8, 8) = (/ &\n     &2.6587e-04_rb,3.6538e-04_rb,4.4243e-04_rb,5.3612e-04_rb,6.5384e-04_rb/)\n      kao(:, 9, 8) = (/ &\n     &3.1669e-04_rb,4.3173e-04_rb,5.9018e-04_rb,7.8164e-04_rb,9.3453e-04_rb/)\n      kao(:,10, 8) = (/ &\n     &2.7923e-04_rb,3.5605e-04_rb,4.7230e-04_rb,7.5710e-04_rb,1.3303e-03_rb/)\n      kao(:,11, 8) = (/ &\n     &3.9189e-04_rb,4.5454e-04_rb,6.3718e-04_rb,5.9520e-04_rb,8.3511e-04_rb/)\n      kao(:,12, 8) = (/ &\n     &2.6981e-04_rb,5.3035e-04_rb,6.9787e-04_rb,8.5120e-04_rb,7.8888e-04_rb/)\n      kao(:,13, 8) = (/ &\n     &2.5533e-04_rb,5.3884e-04_rb,7.3128e-04_rb,1.0359e-03_rb,9.5286e-04_rb/)\n      kao(:, 1, 9) = (/ &\n     &4.1658e-03_rb,5.4654e-03_rb,6.9658e-03_rb,8.6722e-03_rb,1.0572e-02_rb/)\n      kao(:, 2, 9) = (/ &\n     &3.6223e-03_rb,4.7934e-03_rb,6.1539e-03_rb,7.6963e-03_rb,9.3961e-03_rb/)\n      kao(:, 3, 9) = (/ &\n     &2.8899e-03_rb,3.8874e-03_rb,5.0544e-03_rb,6.3815e-03_rb,7.8638e-03_rb/)\n      kao(:, 4, 9) = (/ &\n     &2.1989e-03_rb,3.0197e-03_rb,3.9971e-03_rb,5.1085e-03_rb,6.3356e-03_rb/)\n      kao(:, 5, 9) = (/ &\n     &1.5192e-03_rb,2.2278e-03_rb,3.0194e-03_rb,3.9009e-03_rb,4.8746e-03_rb/)\n      kao(:, 6, 9) = (/ &\n     &8.7921e-04_rb,1.3751e-03_rb,1.9853e-03_rb,2.7076e-03_rb,3.5697e-03_rb/)\n      kao(:, 7, 9) = (/ &\n     &8.1169e-04_rb,1.0620e-03_rb,1.3025e-03_rb,1.8213e-03_rb,2.5733e-03_rb/)\n      kao(:, 8, 9) = (/ &\n     &8.9592e-04_rb,1.1349e-03_rb,1.5068e-03_rb,1.9574e-03_rb,2.3526e-03_rb/)\n      kao(:, 9, 9) = (/ &\n     &6.4937e-04_rb,9.7395e-04_rb,1.5824e-03_rb,2.3319e-03_rb,3.1640e-03_rb/)\n      kao(:,10, 9) = (/ &\n     &5.2173e-04_rb,1.2542e-03_rb,1.3511e-03_rb,1.8295e-03_rb,2.2102e-03_rb/)\n      kao(:,11, 9) = (/ &\n     &3.8299e-05_rb,7.6837e-04_rb,1.6073e-03_rb,2.1707e-03_rb,2.6859e-03_rb/)\n      kao(:,12, 9) = (/ &\n     &5.7389e-05_rb,4.8395e-04_rb,1.3815e-03_rb,2.5956e-03_rb,2.8856e-03_rb/)\n      kao(:,13, 9) = (/ &\n     &6.6437e-05_rb,4.1020e-04_rb,1.3561e-03_rb,2.3769e-03_rb,2.6400e-03_rb/)\n      kao(:, 1,10) = (/ &\n     &8.5531e-03_rb,1.1311e-02_rb,1.4946e-02_rb,1.9199e-02_rb,2.4070e-02_rb/)\n      kao(:, 2,10) = (/ &\n     &7.9512e-03_rb,1.0579e-02_rb,1.3947e-02_rb,1.7937e-02_rb,2.2682e-02_rb/)\n      kao(:, 3,10) = (/ &\n     &6.8586e-03_rb,9.3196e-03_rb,1.2459e-02_rb,1.6108e-02_rb,2.0278e-02_rb/)\n      kao(:, 4,10) = (/ &\n     &5.7104e-03_rb,7.9133e-03_rb,1.0642e-02_rb,1.3936e-02_rb,1.7830e-02_rb/)\n      kao(:, 5,10) = (/ &\n     &4.5965e-03_rb,6.4891e-03_rb,8.9433e-03_rb,1.1923e-02_rb,1.5372e-02_rb/)\n      kao(:, 6,10) = (/ &\n     &3.5770e-03_rb,5.1433e-03_rb,7.2049e-03_rb,9.7750e-03_rb,1.2529e-02_rb/)\n      kao(:, 7,10) = (/ &\n     &1.4544e-03_rb,1.6129e-03_rb,4.3574e-03_rb,7.0808e-03_rb,9.3333e-03_rb/)\n      kao(:, 8,10) = (/ &\n     &1.6681e-03_rb,2.3313e-03_rb,2.9075e-03_rb,3.3382e-03_rb,4.3787e-03_rb/)\n      kao(:, 9,10) = (/ &\n     &8.5765e-04_rb,1.7252e-03_rb,1.7039e-03_rb,3.3311e-03_rb,4.8997e-03_rb/)\n      kao(:,10,10) = (/ &\n     &2.2034e-05_rb,3.2730e-05_rb,2.9477e-03_rb,2.5954e-03_rb,5.2191e-03_rb/)\n      kao(:,11,10) = (/ &\n     &1.5700e-05_rb,2.2697e-05_rb,3.1811e-05_rb,9.1022e-03_rb,5.0873e-03_rb/)\n      kao(:,12,10) = (/ &\n     &1.1747e-05_rb,1.7581e-05_rb,2.4222e-05_rb,3.4764e-05_rb,8.4666e-03_rb/)\n      kao(:,13,10) = (/ &\n     &8.0435e-06_rb,1.2386e-05_rb,1.8547e-05_rb,2.6164e-05_rb,8.2788e-03_rb/)\n      kao(:, 1,11) = (/ &\n     &1.1747e-02_rb,1.5703e-02_rb,2.0198e-02_rb,2.5614e-02_rb,3.2111e-02_rb/)\n      kao(:, 2,11) = (/ &\n     &1.0674e-02_rb,1.4371e-02_rb,1.8733e-02_rb,2.4132e-02_rb,3.0707e-02_rb/)\n      kao(:, 3,11) = (/ &\n     &9.1890e-03_rb,1.2390e-02_rb,1.6367e-02_rb,2.1591e-02_rb,2.7893e-02_rb/)\n      kao(:, 4,11) = (/ &\n     &7.8825e-03_rb,1.0755e-02_rb,1.4391e-02_rb,1.9071e-02_rb,2.4702e-02_rb/)\n      kao(:, 5,11) = (/ &\n     &6.5907e-03_rb,9.1636e-03_rb,1.2468e-02_rb,1.6782e-02_rb,2.1901e-02_rb/)\n      kao(:, 6,11) = (/ &\n     &5.2625e-03_rb,7.5549e-03_rb,1.0521e-02_rb,1.4321e-02_rb,1.8906e-02_rb/)\n      kao(:, 7,11) = (/ &\n     &1.3421e-03_rb,5.0016e-03_rb,8.2742e-03_rb,1.0825e-02_rb,1.4096e-02_rb/)\n      kao(:, 8,11) = (/ &\n     &1.1288e-03_rb,2.7904e-03_rb,2.9048e-03_rb,3.8915e-03_rb,1.0764e-02_rb/)\n      kao(:, 9,11) = (/ &\n     &1.1212e-03_rb,3.3992e-03_rb,2.3130e-03_rb,2.5518e-03_rb,6.4495e-03_rb/)\n      kao(:,10,11) = (/ &\n     &2.4789e-05_rb,3.8028e-05_rb,7.9034e-03_rb,4.9082e-03_rb,4.7487e-03_rb/)\n      kao(:,11,11) = (/ &\n     &1.5630e-05_rb,2.4780e-05_rb,3.4663e-05_rb,4.3353e-05_rb,1.1174e-02_rb/)\n      kao(:,12,11) = (/ &\n     &1.2516e-05_rb,1.8590e-05_rb,2.5768e-05_rb,3.2997e-05_rb,7.6429e-03_rb/)\n      kao(:,13,11) = (/ &\n     &9.1474e-06_rb,1.3280e-05_rb,1.7796e-05_rb,2.4600e-05_rb,8.5245e-03_rb/)\n      kao(:, 1,12) = (/ &\n     &1.9137e-02_rb,2.4205e-02_rb,3.0237e-02_rb,3.7229e-02_rb,4.5273e-02_rb/)\n      kao(:, 2,12) = (/ &\n     &1.6304e-02_rb,2.1414e-02_rb,2.7665e-02_rb,3.5151e-02_rb,4.3535e-02_rb/)\n      kao(:, 3,12) = (/ &\n     &1.3446e-02_rb,1.8468e-02_rb,2.4699e-02_rb,3.1802e-02_rb,4.0159e-02_rb/)\n      kao(:, 4,12) = (/ &\n     &1.0988e-02_rb,1.5565e-02_rb,2.1262e-02_rb,2.7914e-02_rb,3.5968e-02_rb/)\n      kao(:, 5,12) = (/ &\n     &9.1659e-03_rb,1.3233e-02_rb,1.8175e-02_rb,2.4059e-02_rb,3.1596e-02_rb/)\n      kao(:, 6,12) = (/ &\n     &7.6758e-03_rb,1.1199e-02_rb,1.5520e-02_rb,2.0906e-02_rb,2.7754e-02_rb/)\n      kao(:, 7,12) = (/ &\n     &5.4756e-03_rb,9.3901e-03_rb,1.3292e-02_rb,1.8129e-02_rb,2.3738e-02_rb/)\n      kao(:, 8,12) = (/ &\n     &8.4306e-04_rb,3.0332e-03_rb,3.5332e-03_rb,1.1602e-02_rb,1.7968e-02_rb/)\n      kao(:, 9,12) = (/ &\n     &1.4946e-03_rb,1.5749e-03_rb,3.2158e-03_rb,3.1867e-03_rb,3.5737e-03_rb/)\n      kao(:,10,12) = (/ &\n     &2.3105e-05_rb,3.7657e-05_rb,5.4692e-05_rb,1.0942e-02_rb,7.6646e-03_rb/)\n      kao(:,11,12) = (/ &\n     &1.6278e-05_rb,2.6849e-05_rb,3.8655e-05_rb,5.4498e-05_rb,7.7401e-03_rb/)\n      kao(:,12,12) = (/ &\n     &1.1713e-05_rb,1.9330e-05_rb,2.9159e-05_rb,3.9386e-05_rb,5.6995e-05_rb/)\n      kao(:,13,12) = (/ &\n     &9.2970e-06_rb,1.5197e-05_rb,2.2881e-05_rb,3.3051e-05_rb,4.6248e-05_rb/)\n      kao(:, 1,13) = (/ &\n     &3.6366e-02_rb,4.6887e-02_rb,5.8513e-02_rb,7.0986e-02_rb,8.4117e-02_rb/)\n      kao(:, 2,13) = (/ &\n     &3.3990e-02_rb,4.3857e-02_rb,5.4708e-02_rb,6.6354e-02_rb,7.9156e-02_rb/)\n      kao(:, 3,13) = (/ &\n     &2.8482e-02_rb,3.7147e-02_rb,4.6806e-02_rb,5.7889e-02_rb,7.0408e-02_rb/)\n      kao(:, 4,13) = (/ &\n     &2.2450e-02_rb,2.9975e-02_rb,3.8835e-02_rb,4.9297e-02_rb,6.1450e-02_rb/)\n      kao(:, 5,13) = (/ &\n     &1.7322e-02_rb,2.3874e-02_rb,3.2063e-02_rb,4.2032e-02_rb,5.3868e-02_rb/)\n      kao(:, 6,13) = (/ &\n     &1.3022e-02_rb,1.8695e-02_rb,2.6114e-02_rb,3.5380e-02_rb,4.6717e-02_rb/)\n      kao(:, 7,13) = (/ &\n     &9.9635e-03_rb,1.4798e-02_rb,2.1337e-02_rb,2.9901e-02_rb,4.0578e-02_rb/)\n      kao(:, 8,13) = (/ &\n     &9.7470e-04_rb,2.7616e-03_rb,1.5907e-02_rb,2.2415e-02_rb,2.7492e-02_rb/)\n      kao(:, 9,13) = (/ &\n     &1.9362e-03_rb,1.8145e-03_rb,4.1737e-03_rb,3.7651e-03_rb,6.5913e-03_rb/)\n      kao(:,10,13) = (/ &\n     &2.8915e-05_rb,4.8621e-05_rb,6.9201e-05_rb,8.4840e-03_rb,1.1790e-02_rb/)\n      kao(:,11,13) = (/ &\n     &2.3309e-05_rb,3.4553e-05_rb,5.2552e-05_rb,7.2505e-05_rb,8.3347e-05_rb/)\n      kao(:,12,13) = (/ &\n     &1.5870e-05_rb,2.3577e-05_rb,3.4029e-05_rb,5.3277e-05_rb,6.5207e-05_rb/)\n      kao(:,13,13) = (/ &\n     &1.1931e-05_rb,1.9929e-05_rb,2.7393e-05_rb,3.2822e-05_rb,4.4265e-05_rb/)\n      kao(:, 1,14) = (/ &\n     &6.9682e-02_rb,8.7076e-02_rb,1.0644e-01_rb,1.2772e-01_rb,1.5052e-01_rb/)\n      kao(:, 2,14) = (/ &\n     &6.7443e-02_rb,8.6048e-02_rb,1.0697e-01_rb,1.3011e-01_rb,1.5516e-01_rb/)\n      kao(:, 3,14) = (/ &\n     &6.1305e-02_rb,8.0158e-02_rb,1.0175e-01_rb,1.2582e-01_rb,1.5220e-01_rb/)\n      kao(:, 4,14) = (/ &\n     &5.3357e-02_rb,7.1652e-02_rb,9.2935e-02_rb,1.1706e-01_rb,1.4376e-01_rb/)\n      kao(:, 5,14) = (/ &\n     &4.5060e-02_rb,6.2229e-02_rb,8.2609e-02_rb,1.0608e-01_rb,1.3238e-01_rb/)\n      kao(:, 6,14) = (/ &\n     &3.6438e-02_rb,5.1966e-02_rb,7.0824e-02_rb,9.2958e-02_rb,1.1819e-01_rb/)\n      kao(:, 7,14) = (/ &\n     &2.8491e-02_rb,4.2112e-02_rb,5.9112e-02_rb,7.9508e-02_rb,1.0325e-01_rb/)\n      kao(:, 8,14) = (/ &\n     &1.8236e-02_rb,3.3304e-02_rb,4.8438e-02_rb,6.6896e-02_rb,8.8683e-02_rb/)\n      kao(:, 9,14) = (/ &\n     &2.4537e-03_rb,2.3453e-03_rb,8.8067e-03_rb,2.0762e-02_rb,4.5513e-02_rb/)\n      kao(:,10,14) = (/ &\n     &1.4330e-05_rb,1.7518e-05_rb,3.1868e-05_rb,4.9025e-05_rb,3.3153e-02_rb/)\n      kao(:,11,14) = (/ &\n     &1.4087e-05_rb,2.3580e-05_rb,3.6793e-05_rb,4.1734e-05_rb,4.2976e-05_rb/)\n      kao(:,12,14) = (/ &\n     &1.3087e-05_rb,2.2036e-05_rb,3.4770e-05_rb,3.7226e-05_rb,3.8663e-05_rb/)\n      kao(:,13,14) = (/ &\n     &6.3004e-06_rb,7.4647e-06_rb,1.3256e-05_rb,1.9422e-05_rb,2.7358e-05_rb/)\n      kao(:, 1,15) = (/ &\n     &1.0457e-01_rb,1.3337e-01_rb,1.6543e-01_rb,2.0044e-01_rb,2.3788e-01_rb/)\n      kao(:, 2,15) = (/ &\n     &1.1420e-01_rb,1.4734e-01_rb,1.8451e-01_rb,2.2524e-01_rb,2.6907e-01_rb/)\n      kao(:, 3,15) = (/ &\n     &1.1631e-01_rb,1.5291e-01_rb,1.9437e-01_rb,2.4033e-01_rb,2.9013e-01_rb/)\n      kao(:, 4,15) = (/ &\n     &1.1302e-01_rb,1.5183e-01_rb,1.9657e-01_rb,2.4665e-01_rb,3.0148e-01_rb/)\n      kao(:, 5,15) = (/ &\n     &1.0669e-01_rb,1.4681e-01_rb,1.9375e-01_rb,2.4698e-01_rb,3.0586e-01_rb/)\n      kao(:, 6,15) = (/ &\n     &9.6727e-02_rb,1.3681e-01_rb,1.8458e-01_rb,2.3961e-01_rb,3.0104e-01_rb/)\n      kao(:, 7,15) = (/ &\n     &8.4990e-02_rb,1.2388e-01_rb,1.7124e-01_rb,2.2660e-01_rb,2.8964e-01_rb/)\n      kao(:, 8,15) = (/ &\n     &7.2581e-02_rb,1.0932e-01_rb,1.5506e-01_rb,2.1052e-01_rb,2.7593e-01_rb/)\n      kao(:, 9,15) = (/ &\n     &2.1552e-02_rb,6.6962e-02_rb,1.2166e-01_rb,1.8985e-01_rb,2.2620e-01_rb/)\n      kao(:,10,15) = (/ &\n     &8.5757e-06_rb,7.9319e-06_rb,7.5384e-06_rb,5.2149e-06_rb,3.5776e-06_rb/)\n      kao(:,11,15) = (/ &\n     &7.3855e-06_rb,7.4681e-06_rb,7.1804e-06_rb,6.5771e-06_rb,3.3890e-06_rb/)\n      kao(:,12,15) = (/ &\n     &5.9318e-06_rb,6.7082e-06_rb,7.4828e-06_rb,6.0815e-06_rb,3.2500e-06_rb/)\n      kao(:,13,15) = (/ &\n     &7.9734e-06_rb,1.0467e-05_rb,1.8551e-05_rb,3.3018e-05_rb,1.4396e-05_rb/)\n      kao(:, 1,16) = (/ &\n     &1.0940e-01_rb,1.4000e-01_rb,1.7421e-01_rb,2.1173e-01_rb,2.5214e-01_rb/)\n      kao(:, 2,16) = (/ &\n     &1.2207e-01_rb,1.5824e-01_rb,1.9908e-01_rb,2.4418e-01_rb,2.9310e-01_rb/)\n      kao(:, 3,16) = (/ &\n     &1.2803e-01_rb,1.6941e-01_rb,2.1687e-01_rb,2.6992e-01_rb,3.2810e-01_rb/)\n      kao(:, 4,16) = (/ &\n     &1.2912e-01_rb,1.7512e-01_rb,2.2885e-01_rb,2.8989e-01_rb,3.5760e-01_rb/)\n      kao(:, 5,16) = (/ &\n     &1.2782e-01_rb,1.7809e-01_rb,2.3798e-01_rb,3.0717e-01_rb,3.8500e-01_rb/)\n      kao(:, 6,16) = (/ &\n     &1.2288e-01_rb,1.7665e-01_rb,2.4226e-01_rb,3.1945e-01_rb,4.0769e-01_rb/)\n      kao(:, 7,16) = (/ &\n     &1.1601e-01_rb,1.7265e-01_rb,2.4356e-01_rb,3.2874e-01_rb,4.2783e-01_rb/)\n      kao(:, 8,16) = (/ &\n     &1.0802e-01_rb,1.6690e-01_rb,2.4265e-01_rb,3.3582e-01_rb,4.4617e-01_rb/)\n      kao(:, 9,16) = (/ &\n     &9.8584e-02_rb,1.5878e-01_rb,2.3864e-01_rb,3.3924e-01_rb,4.6085e-01_rb/)\n      kao(:,10,16) = (/ &\n     &2.5370e-06_rb,3.6996e-06_rb,5.1180e-06_rb,9.0911e-06_rb,1.0521e-05_rb/)\n      kao(:,11,16) = (/ &\n     &2.1410e-06_rb,3.1393e-06_rb,2.7559e-06_rb,9.6933e-06_rb,1.1052e-05_rb/)\n      kao(:,12,16) = (/ &\n     &1.7911e-06_rb,2.0648e-06_rb,1.9476e-06_rb,1.0250e-05_rb,1.1569e-05_rb/)\n      kao(:,13,16) = (/ &\n     &6.8424e-07_rb,2.1307e-05_rb,3.0235e-05_rb,1.0419e-05_rb,1.1877e-05_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &2.1590e-02_rb,2.2747e-02_rb,2.3755e-02_rb,2.4762e-02_rb,2.5739e-02_rb/)\n      kbo(:,14, 1) = (/ &\n     &1.5891e-02_rb,1.6865e-02_rb,1.7785e-02_rb,1.8588e-02_rb,1.9375e-02_rb/)\n      kbo(:,15, 1) = (/ &\n     &1.2008e-02_rb,1.2891e-02_rb,1.3700e-02_rb,1.4369e-02_rb,1.4970e-02_rb/)\n      kbo(:,16, 1) = (/ &\n     &9.5594e-03_rb,1.0266e-02_rb,1.0893e-02_rb,1.1429e-02_rb,1.1863e-02_rb/)\n      kbo(:,17, 1) = (/ &\n     &7.6979e-03_rb,8.2617e-03_rb,8.7527e-03_rb,9.1620e-03_rb,9.5161e-03_rb/)\n      kbo(:,18, 1) = (/ &\n     &6.2689e-03_rb,6.7130e-03_rb,7.1029e-03_rb,7.4199e-03_rb,7.7032e-03_rb/)\n      kbo(:,19, 1) = (/ &\n     &5.1124e-03_rb,5.4669e-03_rb,5.7636e-03_rb,6.0175e-03_rb,6.2439e-03_rb/)\n      kbo(:,20, 1) = (/ &\n     &4.2074e-03_rb,4.4879e-03_rb,4.7226e-03_rb,4.9240e-03_rb,5.1066e-03_rb/)\n      kbo(:,21, 1) = (/ &\n     &3.4689e-03_rb,3.6905e-03_rb,3.8771e-03_rb,4.0402e-03_rb,4.1874e-03_rb/)\n      kbo(:,22, 1) = (/ &\n     &2.8675e-03_rb,3.0422e-03_rb,3.1923e-03_rb,3.3247e-03_rb,3.4419e-03_rb/)\n      kbo(:,23, 1) = (/ &\n     &2.3673e-03_rb,2.5068e-03_rb,2.6269e-03_rb,2.7338e-03_rb,2.8272e-03_rb/)\n      kbo(:,24, 1) = (/ &\n     &1.9512e-03_rb,2.0620e-03_rb,2.1580e-03_rb,2.2436e-03_rb,2.3178e-03_rb/)\n      kbo(:,25, 1) = (/ &\n     &1.6104e-03_rb,1.6991e-03_rb,1.7756e-03_rb,1.8445e-03_rb,1.9031e-03_rb/)\n      kbo(:,26, 1) = (/ &\n     &1.3324e-03_rb,1.4030e-03_rb,1.4641e-03_rb,1.5181e-03_rb,1.5647e-03_rb/)\n      kbo(:,27, 1) = (/ &\n     &1.1030e-03_rb,1.1588e-03_rb,1.2079e-03_rb,1.2506e-03_rb,1.2885e-03_rb/)\n      kbo(:,28, 1) = (/ &\n     &9.1277e-04_rb,9.5694e-04_rb,9.9621e-04_rb,1.0308e-03_rb,1.0603e-03_rb/)\n      kbo(:,29, 1) = (/ &\n     &7.5709e-04_rb,7.9257e-04_rb,8.2415e-04_rb,8.5205e-04_rb,8.7500e-04_rb/)\n      kbo(:,30, 1) = (/ &\n     &6.2805e-04_rb,6.5667e-04_rb,6.8205e-04_rb,7.0403e-04_rb,7.2224e-04_rb/)\n      kbo(:,31, 1) = (/ &\n     &5.2190e-04_rb,5.4469e-04_rb,5.6521e-04_rb,5.8274e-04_rb,5.9713e-04_rb/)\n      kbo(:,32, 1) = (/ &\n     &4.3349e-04_rb,4.5214e-04_rb,4.6842e-04_rb,4.8237e-04_rb,4.9367e-04_rb/)\n      kbo(:,33, 1) = (/ &\n     &3.5999e-04_rb,3.7522e-04_rb,3.8828e-04_rb,3.9917e-04_rb,4.0831e-04_rb/)\n      kbo(:,34, 1) = (/ &\n     &2.9885e-04_rb,3.1108e-04_rb,3.2123e-04_rb,3.3020e-04_rb,3.3735e-04_rb/)\n      kbo(:,35, 1) = (/ &\n     &2.4686e-04_rb,2.5649e-04_rb,2.6489e-04_rb,2.7217e-04_rb,2.7798e-04_rb/)\n      kbo(:,36, 1) = (/ &\n     &2.0249e-04_rb,2.1050e-04_rb,2.1752e-04_rb,2.2349e-04_rb,2.2845e-04_rb/)\n      kbo(:,37, 1) = (/ &\n     &1.6556e-04_rb,1.7221e-04_rb,1.7821e-04_rb,1.8323e-04_rb,1.8756e-04_rb/)\n      kbo(:,38, 1) = (/ &\n     &1.3530e-04_rb,1.4093e-04_rb,1.4599e-04_rb,1.5028e-04_rb,1.5406e-04_rb/)\n      kbo(:,39, 1) = (/ &\n     &1.1062e-04_rb,1.1539e-04_rb,1.1961e-04_rb,1.2331e-04_rb,1.2663e-04_rb/)\n      kbo(:,40, 1) = (/ &\n     &8.9884e-05_rb,9.3980e-05_rb,9.7546e-05_rb,1.0075e-04_rb,1.0361e-04_rb/)\n      kbo(:,41, 1) = (/ &\n     &7.2964e-05_rb,7.6433e-05_rb,7.9468e-05_rb,8.2219e-05_rb,8.4723e-05_rb/)\n      kbo(:,42, 1) = (/ &\n     &5.9182e-05_rb,6.2146e-05_rb,6.4721e-05_rb,6.7085e-05_rb,6.9267e-05_rb/)\n      kbo(:,43, 1) = (/ &\n     &4.7864e-05_rb,5.0382e-05_rb,5.2591e-05_rb,5.4634e-05_rb,5.6528e-05_rb/)\n      kbo(:,44, 1) = (/ &\n     &3.8628e-05_rb,4.0783e-05_rb,4.2701e-05_rb,4.4436e-05_rb,4.6114e-05_rb/)\n      kbo(:,45, 1) = (/ &\n     &3.1127e-05_rb,3.3002e-05_rb,3.4654e-05_rb,3.6151e-05_rb,3.7566e-05_rb/)\n      kbo(:,46, 1) = (/ &\n     &2.5026e-05_rb,2.6649e-05_rb,2.8068e-05_rb,2.9367e-05_rb,3.0563e-05_rb/)\n      kbo(:,47, 1) = (/ &\n     &2.0040e-05_rb,2.1423e-05_rb,2.2656e-05_rb,2.3781e-05_rb,2.4816e-05_rb/)\n      kbo(:,48, 1) = (/ &\n     &1.6036e-05_rb,1.7209e-05_rb,1.8283e-05_rb,1.9267e-05_rb,2.0138e-05_rb/)\n      kbo(:,49, 1) = (/ &\n     &1.2828e-05_rb,1.3830e-05_rb,1.4752e-05_rb,1.5602e-05_rb,1.6354e-05_rb/)\n      kbo(:,50, 1) = (/ &\n     &1.0257e-05_rb,1.1106e-05_rb,1.1884e-05_rb,1.2616e-05_rb,1.3265e-05_rb/)\n      kbo(:,51, 1) = (/ &\n     &8.1934e-06_rb,8.9110e-06_rb,9.5669e-06_rb,1.0186e-05_rb,1.0748e-05_rb/)\n      kbo(:,52, 1) = (/ &\n     &6.5467e-06_rb,7.1424e-06_rb,7.7065e-06_rb,8.2286e-06_rb,8.7123e-06_rb/)\n      kbo(:,53, 1) = (/ &\n     &5.2332e-06_rb,5.7328e-06_rb,6.2119e-06_rb,6.6510e-06_rb,7.0700e-06_rb/)\n      kbo(:,54, 1) = (/ &\n     &4.1577e-06_rb,4.5779e-06_rb,4.9804e-06_rb,5.3498e-06_rb,5.7020e-06_rb/)\n      kbo(:,55, 1) = (/ &\n     &3.2878e-06_rb,3.6403e-06_rb,3.9741e-06_rb,4.2805e-06_rb,4.5760e-06_rb/)\n      kbo(:,56, 1) = (/ &\n     &2.5965e-06_rb,2.8911e-06_rb,3.1663e-06_rb,3.4265e-06_rb,3.6666e-06_rb/)\n      kbo(:,57, 1) = (/ &\n     &2.0466e-06_rb,2.2908e-06_rb,2.5217e-06_rb,2.7403e-06_rb,2.9373e-06_rb/)\n      kbo(:,58, 1) = (/ &\n     &1.6093e-06_rb,1.8128e-06_rb,2.0059e-06_rb,2.1882e-06_rb,2.3529e-06_rb/)\n      kbo(:,59, 1) = (/ &\n     &1.2776e-06_rb,1.4459e-06_rb,1.6042e-06_rb,1.7524e-06_rb,1.8906e-06_rb/)\n      kbo(:,13, 2) = (/ &\n     &3.8014e-02_rb,3.9737e-02_rb,4.1825e-02_rb,4.3879e-02_rb,4.5802e-02_rb/)\n      kbo(:,14, 2) = (/ &\n     &3.0759e-02_rb,3.2195e-02_rb,3.3860e-02_rb,3.5735e-02_rb,3.7445e-02_rb/)\n      kbo(:,15, 2) = (/ &\n     &2.4737e-02_rb,2.6065e-02_rb,2.7499e-02_rb,2.8985e-02_rb,3.0345e-02_rb/)\n      kbo(:,16, 2) = (/ &\n     &2.0386e-02_rb,2.1604e-02_rb,2.2870e-02_rb,2.4062e-02_rb,2.5169e-02_rb/)\n      kbo(:,17, 2) = (/ &\n     &1.6973e-02_rb,1.8030e-02_rb,1.9046e-02_rb,1.9999e-02_rb,2.0836e-02_rb/)\n      kbo(:,18, 2) = (/ &\n     &1.4179e-02_rb,1.5045e-02_rb,1.5843e-02_rb,1.6598e-02_rb,1.7207e-02_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.1784e-02_rb,1.2488e-02_rb,1.3131e-02_rb,1.3688e-02_rb,1.4139e-02_rb/)\n      kbo(:,20, 2) = (/ &\n     &9.8208e-03_rb,1.0377e-02_rb,1.0872e-02_rb,1.1296e-02_rb,1.1641e-02_rb/)\n      kbo(:,21, 2) = (/ &\n     &8.1632e-03_rb,8.5996e-03_rb,8.9808e-03_rb,9.3040e-03_rb,9.5696e-03_rb/)\n      kbo(:,22, 2) = (/ &\n     &6.7970e-03_rb,7.1290e-03_rb,7.4204e-03_rb,7.6665e-03_rb,7.8692e-03_rb/)\n      kbo(:,23, 2) = (/ &\n     &5.6384e-03_rb,5.8917e-03_rb,6.1228e-03_rb,6.3098e-03_rb,6.4698e-03_rb/)\n      kbo(:,24, 2) = (/ &\n     &4.6602e-03_rb,4.8595e-03_rb,5.0396e-03_rb,5.1884e-03_rb,5.3131e-03_rb/)\n      kbo(:,25, 2) = (/ &\n     &3.8492e-03_rb,4.0101e-03_rb,4.1507e-03_rb,4.2656e-03_rb,4.3666e-03_rb/)\n      kbo(:,26, 2) = (/ &\n     &3.1817e-03_rb,3.3089e-03_rb,3.4202e-03_rb,3.5130e-03_rb,3.5943e-03_rb/)\n      kbo(:,27, 2) = (/ &\n     &2.6312e-03_rb,2.7340e-03_rb,2.8215e-03_rb,2.8952e-03_rb,2.9585e-03_rb/)\n      kbo(:,28, 2) = (/ &\n     &2.1766e-03_rb,2.2592e-03_rb,2.3277e-03_rb,2.3874e-03_rb,2.4369e-03_rb/)\n      kbo(:,29, 2) = (/ &\n     &1.8050e-03_rb,1.8690e-03_rb,1.9243e-03_rb,1.9721e-03_rb,2.0134e-03_rb/)\n      kbo(:,30, 2) = (/ &\n     &1.4965e-03_rb,1.5474e-03_rb,1.5922e-03_rb,1.6307e-03_rb,1.6644e-03_rb/)\n      kbo(:,31, 2) = (/ &\n     &1.2416e-03_rb,1.2835e-03_rb,1.3200e-03_rb,1.3519e-03_rb,1.3783e-03_rb/)\n      kbo(:,32, 2) = (/ &\n     &1.0308e-03_rb,1.0652e-03_rb,1.0950e-03_rb,1.1207e-03_rb,1.1427e-03_rb/)\n      kbo(:,33, 2) = (/ &\n     &8.5698e-04_rb,8.8430e-04_rb,9.0863e-04_rb,9.2966e-04_rb,9.4803e-04_rb/)\n      kbo(:,34, 2) = (/ &\n     &7.1109e-04_rb,7.3332e-04_rb,7.5331e-04_rb,7.7074e-04_rb,7.8601e-04_rb/)\n      kbo(:,35, 2) = (/ &\n     &5.8729e-04_rb,6.0603e-04_rb,6.2268e-04_rb,6.3737e-04_rb,6.5045e-04_rb/)\n      kbo(:,36, 2) = (/ &\n     &4.8310e-04_rb,4.9861e-04_rb,5.1251e-04_rb,5.2508e-04_rb,5.3615e-04_rb/)\n      kbo(:,37, 2) = (/ &\n     &3.9625e-04_rb,4.0955e-04_rb,4.2151e-04_rb,4.3225e-04_rb,4.4172e-04_rb/)\n      kbo(:,38, 2) = (/ &\n     &3.2503e-04_rb,3.3643e-04_rb,3.4664e-04_rb,3.5587e-04_rb,3.6445e-04_rb/)\n      kbo(:,39, 2) = (/ &\n     &2.6664e-04_rb,2.7639e-04_rb,2.8514e-04_rb,2.9332e-04_rb,3.0098e-04_rb/)\n      kbo(:,40, 2) = (/ &\n     &2.1759e-04_rb,2.2608e-04_rb,2.3348e-04_rb,2.4050e-04_rb,2.4712e-04_rb/)\n      kbo(:,41, 2) = (/ &\n     &1.7739e-04_rb,1.8462e-04_rb,1.9097e-04_rb,1.9703e-04_rb,2.0268e-04_rb/)\n      kbo(:,42, 2) = (/ &\n     &1.4453e-04_rb,1.5070e-04_rb,1.5612e-04_rb,1.6130e-04_rb,1.6626e-04_rb/)\n      kbo(:,43, 2) = (/ &\n     &1.1750e-04_rb,1.2276e-04_rb,1.2736e-04_rb,1.3185e-04_rb,1.3616e-04_rb/)\n      kbo(:,44, 2) = (/ &\n     &9.5367e-05_rb,9.9857e-05_rb,1.0380e-04_rb,1.0768e-04_rb,1.1140e-04_rb/)\n      kbo(:,45, 2) = (/ &\n     &7.7428e-05_rb,8.1152e-05_rb,8.4582e-05_rb,8.7898e-05_rb,9.1175e-05_rb/)\n      kbo(:,46, 2) = (/ &\n     &6.2722e-05_rb,6.5854e-05_rb,6.8828e-05_rb,7.1656e-05_rb,7.4494e-05_rb/)\n      kbo(:,47, 2) = (/ &\n     &5.0620e-05_rb,5.3291e-05_rb,5.5834e-05_rb,5.8234e-05_rb,6.0703e-05_rb/)\n      kbo(:,48, 2) = (/ &\n     &4.0839e-05_rb,4.3112e-05_rb,4.5285e-05_rb,4.7326e-05_rb,4.9468e-05_rb/)\n      kbo(:,49, 2) = (/ &\n     &3.2956e-05_rb,3.4871e-05_rb,3.6734e-05_rb,3.8477e-05_rb,4.0339e-05_rb/)\n      kbo(:,50, 2) = (/ &\n     &2.6578e-05_rb,2.8186e-05_rb,2.9765e-05_rb,3.1246e-05_rb,3.2810e-05_rb/)\n      kbo(:,51, 2) = (/ &\n     &2.1419e-05_rb,2.2753e-05_rb,2.4086e-05_rb,2.5342e-05_rb,2.6653e-05_rb/)\n      kbo(:,52, 2) = (/ &\n     &1.7265e-05_rb,1.8376e-05_rb,1.9492e-05_rb,2.0556e-05_rb,2.1651e-05_rb/)\n      kbo(:,53, 2) = (/ &\n     &1.3928e-05_rb,1.4844e-05_rb,1.5782e-05_rb,1.6689e-05_rb,1.7614e-05_rb/)\n      kbo(:,54, 2) = (/ &\n     &1.1205e-05_rb,1.1963e-05_rb,1.2726e-05_rb,1.3478e-05_rb,1.4240e-05_rb/)\n      kbo(:,55, 2) = (/ &\n     &8.9889e-06_rb,9.6190e-06_rb,1.0235e-05_rb,1.0868e-05_rb,1.1479e-05_rb/)\n      kbo(:,56, 2) = (/ &\n     &7.2032e-06_rb,7.7304e-06_rb,8.2333e-06_rb,8.7486e-06_rb,9.2547e-06_rb/)\n      kbo(:,57, 2) = (/ &\n     &5.7621e-06_rb,6.2097e-06_rb,6.6195e-06_rb,7.0372e-06_rb,7.4615e-06_rb/)\n      kbo(:,58, 2) = (/ &\n     &4.6073e-06_rb,4.9865e-06_rb,5.3240e-06_rb,5.6615e-06_rb,6.0083e-06_rb/)\n      kbo(:,59, 2) = (/ &\n     &3.7094e-06_rb,4.0178e-06_rb,4.3021e-06_rb,4.5755e-06_rb,4.8477e-06_rb/)\n      kbo(:,13, 3) = (/ &\n     &6.3405e-02_rb,6.5846e-02_rb,6.7902e-02_rb,7.0344e-02_rb,7.3087e-02_rb/)\n      kbo(:,14, 3) = (/ &\n     &5.1252e-02_rb,5.3361e-02_rb,5.5658e-02_rb,5.8048e-02_rb,6.0738e-02_rb/)\n      kbo(:,15, 3) = (/ &\n     &4.2340e-02_rb,4.4418e-02_rb,4.6657e-02_rb,4.8923e-02_rb,5.1338e-02_rb/)\n      kbo(:,16, 3) = (/ &\n     &3.5507e-02_rb,3.7339e-02_rb,3.9465e-02_rb,4.1652e-02_rb,4.3669e-02_rb/)\n      kbo(:,17, 3) = (/ &\n     &2.9824e-02_rb,3.1523e-02_rb,3.3435e-02_rb,3.5273e-02_rb,3.6953e-02_rb/)\n      kbo(:,18, 3) = (/ &\n     &2.5125e-02_rb,2.6683e-02_rb,2.8323e-02_rb,2.9797e-02_rb,3.1126e-02_rb/)\n      kbo(:,19, 3) = (/ &\n     &2.1223e-02_rb,2.2544e-02_rb,2.3820e-02_rb,2.4985e-02_rb,2.5990e-02_rb/)\n      kbo(:,20, 3) = (/ &\n     &1.7915e-02_rb,1.8986e-02_rb,1.9994e-02_rb,2.0861e-02_rb,2.1602e-02_rb/)\n      kbo(:,21, 3) = (/ &\n     &1.5062e-02_rb,1.5916e-02_rb,1.6665e-02_rb,1.7312e-02_rb,1.7872e-02_rb/)\n      kbo(:,22, 3) = (/ &\n     &1.2635e-02_rb,1.3292e-02_rb,1.3846e-02_rb,1.4329e-02_rb,1.4769e-02_rb/)\n      kbo(:,23, 3) = (/ &\n     &1.0554e-02_rb,1.1051e-02_rb,1.1464e-02_rb,1.1841e-02_rb,1.2180e-02_rb/)\n      kbo(:,24, 3) = (/ &\n     &8.7770e-03_rb,9.1488e-03_rb,9.4668e-03_rb,9.7625e-03_rb,1.0031e-02_rb/)\n      kbo(:,25, 3) = (/ &\n     &7.2756e-03_rb,7.5544e-03_rb,7.8035e-03_rb,8.0431e-03_rb,8.2495e-03_rb/)\n      kbo(:,26, 3) = (/ &\n     &6.0226e-03_rb,6.2378e-03_rb,6.4382e-03_rb,6.6253e-03_rb,6.7857e-03_rb/)\n      kbo(:,27, 3) = (/ &\n     &4.9811e-03_rb,5.1501e-03_rb,5.3115e-03_rb,5.4587e-03_rb,5.5851e-03_rb/)\n      kbo(:,28, 3) = (/ &\n     &4.1172e-03_rb,4.2566e-03_rb,4.3852e-03_rb,4.4995e-03_rb,4.6022e-03_rb/)\n      kbo(:,29, 3) = (/ &\n     &3.4101e-03_rb,3.5232e-03_rb,3.6273e-03_rb,3.7181e-03_rb,3.8009e-03_rb/)\n      kbo(:,30, 3) = (/ &\n     &2.8248e-03_rb,2.9164e-03_rb,2.9992e-03_rb,3.0754e-03_rb,3.1419e-03_rb/)\n      kbo(:,31, 3) = (/ &\n     &2.3450e-03_rb,2.4195e-03_rb,2.4879e-03_rb,2.5493e-03_rb,2.6070e-03_rb/)\n      kbo(:,32, 3) = (/ &\n     &1.9491e-03_rb,2.0095e-03_rb,2.0670e-03_rb,2.1190e-03_rb,2.1683e-03_rb/)\n      kbo(:,33, 3) = (/ &\n     &1.6195e-03_rb,1.6713e-03_rb,1.7189e-03_rb,1.7649e-03_rb,1.8032e-03_rb/)\n      kbo(:,34, 3) = (/ &\n     &1.3454e-03_rb,1.3883e-03_rb,1.4290e-03_rb,1.4663e-03_rb,1.4976e-03_rb/)\n      kbo(:,35, 3) = (/ &\n     &1.1151e-03_rb,1.1504e-03_rb,1.1846e-03_rb,1.2147e-03_rb,1.2425e-03_rb/)\n      kbo(:,36, 3) = (/ &\n     &9.1872e-04_rb,9.4904e-04_rb,9.7800e-04_rb,1.0033e-03_rb,1.0278e-03_rb/)\n      kbo(:,37, 3) = (/ &\n     &7.5556e-04_rb,7.8161e-04_rb,8.0630e-04_rb,8.2845e-04_rb,8.4914e-04_rb/)\n      kbo(:,38, 3) = (/ &\n     &6.2192e-04_rb,6.4458e-04_rb,6.6572e-04_rb,6.8474e-04_rb,7.0313e-04_rb/)\n      kbo(:,39, 3) = (/ &\n     &5.1238e-04_rb,5.3172e-04_rb,5.4973e-04_rb,5.6636e-04_rb,5.8235e-04_rb/)\n      kbo(:,40, 3) = (/ &\n     &4.1982e-04_rb,4.3621e-04_rb,4.5139e-04_rb,4.6596e-04_rb,4.7961e-04_rb/)\n      kbo(:,41, 3) = (/ &\n     &3.4388e-04_rb,3.5746e-04_rb,3.7054e-04_rb,3.8291e-04_rb,3.9470e-04_rb/)\n      kbo(:,42, 3) = (/ &\n     &2.8144e-04_rb,2.9295e-04_rb,3.0424e-04_rb,3.1457e-04_rb,3.2459e-04_rb/)\n      kbo(:,43, 3) = (/ &\n     &2.2990e-04_rb,2.3955e-04_rb,2.4928e-04_rb,2.5827e-04_rb,2.6672e-04_rb/)\n      kbo(:,44, 3) = (/ &\n     &1.8744e-04_rb,1.9582e-04_rb,2.0413e-04_rb,2.1176e-04_rb,2.1912e-04_rb/)\n      kbo(:,45, 3) = (/ &\n     &1.5285e-04_rb,1.6000e-04_rb,1.6711e-04_rb,1.7363e-04_rb,1.7993e-04_rb/)\n      kbo(:,46, 3) = (/ &\n     &1.2448e-04_rb,1.3059e-04_rb,1.3656e-04_rb,1.4216e-04_rb,1.4758e-04_rb/)\n      kbo(:,47, 3) = (/ &\n     &1.0103e-04_rb,1.0628e-04_rb,1.1130e-04_rb,1.1611e-04_rb,1.2074e-04_rb/)\n      kbo(:,48, 3) = (/ &\n     &8.1983e-05_rb,8.6504e-05_rb,9.0728e-05_rb,9.4862e-05_rb,9.8826e-05_rb/)\n      kbo(:,49, 3) = (/ &\n     &6.6563e-05_rb,7.0429e-05_rb,7.4014e-05_rb,7.7542e-05_rb,8.0976e-05_rb/)\n      kbo(:,50, 3) = (/ &\n     &5.3952e-05_rb,5.7235e-05_rb,6.0247e-05_rb,6.3258e-05_rb,6.6182e-05_rb/)\n      kbo(:,51, 3) = (/ &\n     &4.3663e-05_rb,4.6470e-05_rb,4.9001e-05_rb,5.1519e-05_rb,5.4013e-05_rb/)\n      kbo(:,52, 3) = (/ &\n     &3.5323e-05_rb,3.7705e-05_rb,3.9846e-05_rb,4.1973e-05_rb,4.4086e-05_rb/)\n      kbo(:,53, 3) = (/ &\n     &2.8583e-05_rb,3.0614e-05_rb,3.2428e-05_rb,3.4214e-05_rb,3.6024e-05_rb/)\n      kbo(:,54, 3) = (/ &\n     &2.3052e-05_rb,2.4741e-05_rb,2.6291e-05_rb,2.7754e-05_rb,2.9233e-05_rb/)\n      kbo(:,55, 3) = (/ &\n     &1.8532e-05_rb,1.9924e-05_rb,2.1226e-05_rb,2.2443e-05_rb,2.3644e-05_rb/)\n      kbo(:,56, 3) = (/ &\n     &1.4892e-05_rb,1.6026e-05_rb,1.7132e-05_rb,1.8148e-05_rb,1.9127e-05_rb/)\n      kbo(:,57, 3) = (/ &\n     &1.1957e-05_rb,1.2880e-05_rb,1.3809e-05_rb,1.4669e-05_rb,1.5458e-05_rb/)\n      kbo(:,58, 3) = (/ &\n     &9.6000e-06_rb,1.0349e-05_rb,1.1127e-05_rb,1.1847e-05_rb,1.2497e-05_rb/)\n      kbo(:,59, 3) = (/ &\n     &7.7452e-06_rb,8.3627e-06_rb,8.9895e-06_rb,9.5703e-06_rb,1.0120e-05_rb/)\n      kbo(:,13, 4) = (/ &\n     &9.9915e-02_rb,1.0385e-01_rb,1.0749e-01_rb,1.1095e-01_rb,1.1480e-01_rb/)\n      kbo(:,14, 4) = (/ &\n     &8.4174e-02_rb,8.7314e-02_rb,9.0833e-02_rb,9.4040e-02_rb,9.7483e-02_rb/)\n      kbo(:,15, 4) = (/ &\n     &7.1798e-02_rb,7.3772e-02_rb,7.6218e-02_rb,7.9303e-02_rb,8.2911e-02_rb/)\n      kbo(:,16, 4) = (/ &\n     &6.0987e-02_rb,6.2861e-02_rb,6.5027e-02_rb,6.7869e-02_rb,7.1492e-02_rb/)\n      kbo(:,17, 4) = (/ &\n     &5.1988e-02_rb,5.3759e-02_rb,5.5853e-02_rb,5.8672e-02_rb,6.1980e-02_rb/)\n      kbo(:,18, 4) = (/ &\n     &4.4171e-02_rb,4.5935e-02_rb,4.8095e-02_rb,5.0759e-02_rb,5.3616e-02_rb/)\n      kbo(:,19, 4) = (/ &\n     &3.7411e-02_rb,3.9215e-02_rb,4.1337e-02_rb,4.3631e-02_rb,4.5910e-02_rb/)\n      kbo(:,20, 4) = (/ &\n     &3.1780e-02_rb,3.3510e-02_rb,3.5386e-02_rb,3.7312e-02_rb,3.9095e-02_rb/)\n      kbo(:,21, 4) = (/ &\n     &2.6954e-02_rb,2.8513e-02_rb,3.0099e-02_rb,3.1617e-02_rb,3.2915e-02_rb/)\n      kbo(:,22, 4) = (/ &\n     &2.2888e-02_rb,2.4194e-02_rb,2.5477e-02_rb,2.6596e-02_rb,2.7511e-02_rb/)\n      kbo(:,23, 4) = (/ &\n     &1.9346e-02_rb,2.0404e-02_rb,2.1382e-02_rb,2.2165e-02_rb,2.2830e-02_rb/)\n      kbo(:,24, 4) = (/ &\n     &1.6247e-02_rb,1.7083e-02_rb,1.7781e-02_rb,1.8353e-02_rb,1.8851e-02_rb/)\n      kbo(:,25, 4) = (/ &\n     &1.3597e-02_rb,1.4221e-02_rb,1.4742e-02_rb,1.5163e-02_rb,1.5551e-02_rb/)\n      kbo(:,26, 4) = (/ &\n     &1.1347e-02_rb,1.1808e-02_rb,1.2193e-02_rb,1.2519e-02_rb,1.2827e-02_rb/)\n      kbo(:,27, 4) = (/ &\n     &9.4352e-03_rb,9.7820e-03_rb,1.0071e-02_rb,1.0331e-02_rb,1.0583e-02_rb/)\n      kbo(:,28, 4) = (/ &\n     &7.8281e-03_rb,8.0857e-03_rb,8.3110e-03_rb,8.5276e-03_rb,8.7304e-03_rb/)\n      kbo(:,29, 4) = (/ &\n     &6.4877e-03_rb,6.6881e-03_rb,6.8753e-03_rb,7.0489e-03_rb,7.2105e-03_rb/)\n      kbo(:,30, 4) = (/ &\n     &5.3741e-03_rb,5.5372e-03_rb,5.6910e-03_rb,5.8358e-03_rb,5.9652e-03_rb/)\n      kbo(:,31, 4) = (/ &\n     &4.4624e-03_rb,4.5974e-03_rb,4.7269e-03_rb,4.8416e-03_rb,4.9477e-03_rb/)\n      kbo(:,32, 4) = (/ &\n     &3.7110e-03_rb,3.8251e-03_rb,3.9302e-03_rb,4.0264e-03_rb,4.1112e-03_rb/)\n      kbo(:,33, 4) = (/ &\n     &3.0918e-03_rb,3.1864e-03_rb,3.2713e-03_rb,3.3504e-03_rb,3.4219e-03_rb/)\n      kbo(:,34, 4) = (/ &\n     &2.5734e-03_rb,2.6501e-03_rb,2.7238e-03_rb,2.7897e-03_rb,2.8499e-03_rb/)\n      kbo(:,35, 4) = (/ &\n     &2.1361e-03_rb,2.2030e-03_rb,2.2659e-03_rb,2.3224e-03_rb,2.3696e-03_rb/)\n      kbo(:,36, 4) = (/ &\n     &1.7673e-03_rb,1.8262e-03_rb,1.8805e-03_rb,1.9284e-03_rb,1.9688e-03_rb/)\n      kbo(:,37, 4) = (/ &\n     &1.4584e-03_rb,1.5086e-03_rb,1.5546e-03_rb,1.5960e-03_rb,1.6338e-03_rb/)\n      kbo(:,38, 4) = (/ &\n     &1.2034e-03_rb,1.2453e-03_rb,1.2856e-03_rb,1.3227e-03_rb,1.3572e-03_rb/)\n      kbo(:,39, 4) = (/ &\n     &9.9454e-04_rb,1.0299e-03_rb,1.0651e-03_rb,1.0982e-03_rb,1.1293e-03_rb/)\n      kbo(:,40, 4) = (/ &\n     &8.1766e-04_rb,8.4814e-04_rb,8.7922e-04_rb,9.0780e-04_rb,9.3604e-04_rb/)\n      kbo(:,41, 4) = (/ &\n     &6.7161e-04_rb,6.9882e-04_rb,7.2604e-04_rb,7.5179e-04_rb,7.7573e-04_rb/)\n      kbo(:,42, 4) = (/ &\n     &5.5233e-04_rb,5.7642e-04_rb,5.9983e-04_rb,6.2278e-04_rb,6.4351e-04_rb/)\n      kbo(:,43, 4) = (/ &\n     &4.5350e-04_rb,4.7458e-04_rb,4.9522e-04_rb,5.1500e-04_rb,5.3326e-04_rb/)\n      kbo(:,44, 4) = (/ &\n     &3.7202e-04_rb,3.9025e-04_rb,4.0848e-04_rb,4.2568e-04_rb,4.4143e-04_rb/)\n      kbo(:,45, 4) = (/ &\n     &3.0534e-04_rb,3.2126e-04_rb,3.3706e-04_rb,3.5201e-04_rb,3.6606e-04_rb/)\n      kbo(:,46, 4) = (/ &\n     &2.5026e-04_rb,2.6416e-04_rb,2.7768e-04_rb,2.9081e-04_rb,3.0319e-04_rb/)\n      kbo(:,47, 4) = (/ &\n     &2.0428e-04_rb,2.1616e-04_rb,2.2794e-04_rb,2.3946e-04_rb,2.5046e-04_rb/)\n      kbo(:,48, 4) = (/ &\n     &1.6667e-04_rb,1.7701e-04_rb,1.8729e-04_rb,1.9740e-04_rb,2.0693e-04_rb/)\n      kbo(:,49, 4) = (/ &\n     &1.3611e-04_rb,1.4498e-04_rb,1.5402e-04_rb,1.6290e-04_rb,1.7121e-04_rb/)\n      kbo(:,50, 4) = (/ &\n     &1.1088e-04_rb,1.1847e-04_rb,1.2631e-04_rb,1.3390e-04_rb,1.4119e-04_rb/)\n      kbo(:,51, 4) = (/ &\n     &9.0216e-05_rb,9.6607e-05_rb,1.0331e-04_rb,1.0986e-04_rb,1.1615e-04_rb/)\n      kbo(:,52, 4) = (/ &\n     &7.3423e-05_rb,7.8834e-05_rb,8.4566e-05_rb,9.0143e-05_rb,9.5562e-05_rb/)\n      kbo(:,53, 4) = (/ &\n     &5.9754e-05_rb,6.4377e-05_rb,6.9227e-05_rb,7.4054e-05_rb,7.8692e-05_rb/)\n      kbo(:,54, 4) = (/ &\n     &4.8298e-05_rb,5.2166e-05_rb,5.6219e-05_rb,6.0246e-05_rb,6.4263e-05_rb/)\n      kbo(:,55, 4) = (/ &\n     &3.8831e-05_rb,4.2066e-05_rb,4.5431e-05_rb,4.8757e-05_rb,5.2064e-05_rb/)\n      kbo(:,56, 4) = (/ &\n     &3.1190e-05_rb,3.3925e-05_rb,3.6680e-05_rb,3.9437e-05_rb,4.2169e-05_rb/)\n      kbo(:,57, 4) = (/ &\n     &2.5026e-05_rb,2.7326e-05_rb,2.9588e-05_rb,3.1864e-05_rb,3.4154e-05_rb/)\n      kbo(:,58, 4) = (/ &\n     &2.0044e-05_rb,2.1985e-05_rb,2.3836e-05_rb,2.5731e-05_rb,2.7590e-05_rb/)\n      kbo(:,59, 4) = (/ &\n     &1.6187e-05_rb,1.7736e-05_rb,1.9214e-05_rb,2.0762e-05_rb,2.2244e-05_rb/)\n      kbo(:,13, 5) = (/ &\n     &1.6183e-01_rb,1.6388e-01_rb,1.6830e-01_rb,1.7476e-01_rb,1.8120e-01_rb/)\n      kbo(:,14, 5) = (/ &\n     &1.4136e-01_rb,1.4390e-01_rb,1.4614e-01_rb,1.5033e-01_rb,1.5561e-01_rb/)\n      kbo(:,15, 5) = (/ &\n     &1.2277e-01_rb,1.2594e-01_rb,1.2862e-01_rb,1.3140e-01_rb,1.3513e-01_rb/)\n      kbo(:,16, 5) = (/ &\n     &1.0716e-01_rb,1.1019e-01_rb,1.1295e-01_rb,1.1569e-01_rb,1.1878e-01_rb/)\n      kbo(:,17, 5) = (/ &\n     &9.2722e-02_rb,9.5517e-02_rb,9.8213e-02_rb,1.0105e-01_rb,1.0426e-01_rb/)\n      kbo(:,18, 5) = (/ &\n     &7.9838e-02_rb,8.2414e-02_rb,8.5010e-02_rb,8.8074e-02_rb,9.1598e-02_rb/)\n      kbo(:,19, 5) = (/ &\n     &6.8325e-02_rb,7.0740e-02_rb,7.3430e-02_rb,7.6659e-02_rb,8.0269e-02_rb/)\n      kbo(:,20, 5) = (/ &\n     &5.8275e-02_rb,6.0721e-02_rb,6.3630e-02_rb,6.6772e-02_rb,7.0098e-02_rb/)\n      kbo(:,21, 5) = (/ &\n     &4.9672e-02_rb,5.2190e-02_rb,5.4967e-02_rb,5.7853e-02_rb,6.0822e-02_rb/)\n      kbo(:,22, 5) = (/ &\n     &4.2534e-02_rb,4.4900e-02_rb,4.7398e-02_rb,4.9961e-02_rb,5.2416e-02_rb/)\n      kbo(:,23, 5) = (/ &\n     &3.6361e-02_rb,3.8477e-02_rb,4.0633e-02_rb,4.2770e-02_rb,4.4639e-02_rb/)\n      kbo(:,24, 5) = (/ &\n     &3.0984e-02_rb,3.2792e-02_rb,3.4594e-02_rb,3.6198e-02_rb,3.7541e-02_rb/)\n      kbo(:,25, 5) = (/ &\n     &2.6322e-02_rb,2.7818e-02_rb,2.9192e-02_rb,3.0375e-02_rb,3.1335e-02_rb/)\n      kbo(:,26, 5) = (/ &\n     &2.2285e-02_rb,2.3473e-02_rb,2.4485e-02_rb,2.5360e-02_rb,2.6084e-02_rb/)\n      kbo(:,27, 5) = (/ &\n     &1.8777e-02_rb,1.9670e-02_rb,2.0440e-02_rb,2.1104e-02_rb,2.1661e-02_rb/)\n      kbo(:,28, 5) = (/ &\n     &1.5739e-02_rb,1.6410e-02_rb,1.7009e-02_rb,1.7502e-02_rb,1.7957e-02_rb/)\n      kbo(:,29, 5) = (/ &\n     &1.3157e-02_rb,1.3689e-02_rb,1.4135e-02_rb,1.4550e-02_rb,1.4908e-02_rb/)\n      kbo(:,30, 5) = (/ &\n     &1.0985e-02_rb,1.1390e-02_rb,1.1749e-02_rb,1.2076e-02_rb,1.2372e-02_rb/)\n      kbo(:,31, 5) = (/ &\n     &9.1582e-03_rb,9.4742e-03_rb,9.7675e-03_rb,1.0044e-02_rb,1.0289e-02_rb/)\n      kbo(:,32, 5) = (/ &\n     &7.6339e-03_rb,7.8923e-03_rb,8.1271e-03_rb,8.3548e-03_rb,8.5695e-03_rb/)\n      kbo(:,33, 5) = (/ &\n     &6.3715e-03_rb,6.5845e-03_rb,6.7878e-03_rb,6.9736e-03_rb,7.1535e-03_rb/)\n      kbo(:,34, 5) = (/ &\n     &5.3224e-03_rb,5.5025e-03_rb,5.6652e-03_rb,5.8262e-03_rb,5.9749e-03_rb/)\n      kbo(:,35, 5) = (/ &\n     &4.4348e-03_rb,4.5841e-03_rb,4.7248e-03_rb,4.8589e-03_rb,4.9851e-03_rb/)\n      kbo(:,36, 5) = (/ &\n     &3.6880e-03_rb,3.8127e-03_rb,3.9338e-03_rb,4.0484e-03_rb,4.1576e-03_rb/)\n      kbo(:,37, 5) = (/ &\n     &3.0534e-03_rb,3.1615e-03_rb,3.2693e-03_rb,3.3693e-03_rb,3.4657e-03_rb/)\n      kbo(:,38, 5) = (/ &\n     &2.5332e-03_rb,2.6300e-03_rb,2.7225e-03_rb,2.8131e-03_rb,2.8939e-03_rb/)\n      kbo(:,39, 5) = (/ &\n     &2.1084e-03_rb,2.1961e-03_rb,2.2783e-03_rb,2.3583e-03_rb,2.4286e-03_rb/)\n      kbo(:,40, 5) = (/ &\n     &1.7458e-03_rb,1.8240e-03_rb,1.8981e-03_rb,1.9682e-03_rb,2.0283e-03_rb/)\n      kbo(:,41, 5) = (/ &\n     &1.4453e-03_rb,1.5145e-03_rb,1.5781e-03_rb,1.6391e-03_rb,1.6964e-03_rb/)\n      kbo(:,42, 5) = (/ &\n     &1.1954e-03_rb,1.2559e-03_rb,1.3113e-03_rb,1.3662e-03_rb,1.4193e-03_rb/)\n      kbo(:,43, 5) = (/ &\n     &9.8711e-04_rb,1.0388e-03_rb,1.0881e-03_rb,1.1376e-03_rb,1.1854e-03_rb/)\n      kbo(:,44, 5) = (/ &\n     &8.1670e-04_rb,8.6083e-04_rb,9.0273e-04_rb,9.4724e-04_rb,9.9183e-04_rb/)\n      kbo(:,45, 5) = (/ &\n     &6.7571e-04_rb,7.1462e-04_rb,7.5340e-04_rb,7.9241e-04_rb,8.3252e-04_rb/)\n      kbo(:,46, 5) = (/ &\n     &5.5868e-04_rb,5.9210e-04_rb,6.2784e-04_rb,6.6315e-04_rb,6.9901e-04_rb/)\n      kbo(:,47, 5) = (/ &\n     &4.6002e-04_rb,4.8924e-04_rb,5.2084e-04_rb,5.5250e-04_rb,5.8555e-04_rb/)\n      kbo(:,48, 5) = (/ &\n     &3.7900e-04_rb,4.0478e-04_rb,4.3312e-04_rb,4.6138e-04_rb,4.9219e-04_rb/)\n      kbo(:,49, 5) = (/ &\n     &3.1223e-04_rb,3.3515e-04_rb,3.6106e-04_rb,3.8737e-04_rb,4.1475e-04_rb/)\n      kbo(:,50, 5) = (/ &\n     &2.5631e-04_rb,2.7625e-04_rb,2.9941e-04_rb,3.2338e-04_rb,3.4759e-04_rb/)\n      kbo(:,51, 5) = (/ &\n     &2.0956e-04_rb,2.2726e-04_rb,2.4758e-04_rb,2.6894e-04_rb,2.9020e-04_rb/)\n      kbo(:,52, 5) = (/ &\n     &1.7113e-04_rb,1.8689e-04_rb,2.0470e-04_rb,2.2361e-04_rb,2.4260e-04_rb/)\n      kbo(:,53, 5) = (/ &\n     &1.3975e-04_rb,1.5381e-04_rb,1.6939e-04_rb,1.8611e-04_rb,2.0352e-04_rb/)\n      kbo(:,54, 5) = (/ &\n     &1.1323e-04_rb,1.2519e-04_rb,1.3824e-04_rb,1.5269e-04_rb,1.6768e-04_rb/)\n      kbo(:,55, 5) = (/ &\n     &9.1211e-05_rb,1.0111e-04_rb,1.1195e-04_rb,1.2407e-04_rb,1.3663e-04_rb/)\n      kbo(:,56, 5) = (/ &\n     &7.3375e-05_rb,8.1461e-05_rb,9.0533e-05_rb,1.0060e-04_rb,1.1119e-04_rb/)\n      kbo(:,57, 5) = (/ &\n     &5.8946e-05_rb,6.5535e-05_rb,7.3109e-05_rb,8.1511e-05_rb,9.0294e-05_rb/)\n      kbo(:,58, 5) = (/ &\n     &4.7323e-05_rb,5.2682e-05_rb,5.8966e-05_rb,6.5820e-05_rb,7.3137e-05_rb/)\n      kbo(:,59, 5) = (/ &\n     &3.8250e-05_rb,4.2565e-05_rb,4.7446e-05_rb,5.2866e-05_rb,5.8710e-05_rb/)\n      kbo(:,13, 6) = (/ &\n     &2.7197e-01_rb,2.7739e-01_rb,2.8096e-01_rb,2.8231e-01_rb,2.8660e-01_rb/)\n      kbo(:,14, 6) = (/ &\n     &2.4407e-01_rb,2.4904e-01_rb,2.5343e-01_rb,2.5569e-01_rb,2.5783e-01_rb/)\n      kbo(:,15, 6) = (/ &\n     &2.1616e-01_rb,2.2099e-01_rb,2.2537e-01_rb,2.2864e-01_rb,2.3140e-01_rb/)\n      kbo(:,16, 6) = (/ &\n     &1.9106e-01_rb,1.9585e-01_rb,1.9991e-01_rb,2.0367e-01_rb,2.0768e-01_rb/)\n      kbo(:,17, 6) = (/ &\n     &1.6891e-01_rb,1.7330e-01_rb,1.7742e-01_rb,1.8116e-01_rb,1.8548e-01_rb/)\n      kbo(:,18, 6) = (/ &\n     &1.4873e-01_rb,1.5292e-01_rb,1.5684e-01_rb,1.6048e-01_rb,1.6482e-01_rb/)\n      kbo(:,19, 6) = (/ &\n     &1.3023e-01_rb,1.3403e-01_rb,1.3773e-01_rb,1.4155e-01_rb,1.4625e-01_rb/)\n      kbo(:,20, 6) = (/ &\n     &1.1343e-01_rb,1.1684e-01_rb,1.2043e-01_rb,1.2478e-01_rb,1.2990e-01_rb/)\n      kbo(:,21, 6) = (/ &\n     &9.8160e-02_rb,1.0135e-01_rb,1.0525e-01_rb,1.1007e-01_rb,1.1526e-01_rb/)\n      kbo(:,22, 6) = (/ &\n     &8.4655e-02_rb,8.8120e-02_rb,9.2429e-02_rb,9.7184e-02_rb,1.0215e-01_rb/)\n      kbo(:,23, 6) = (/ &\n     &7.3019e-02_rb,7.6775e-02_rb,8.1076e-02_rb,8.5515e-02_rb,9.0104e-02_rb/)\n      kbo(:,24, 6) = (/ &\n     &6.3162e-02_rb,6.6861e-02_rb,7.0760e-02_rb,7.4872e-02_rb,7.8956e-02_rb/)\n      kbo(:,25, 6) = (/ &\n     &5.4670e-02_rb,5.8059e-02_rb,6.1565e-02_rb,6.5142e-02_rb,6.8514e-02_rb/)\n      kbo(:,26, 6) = (/ &\n     &4.7238e-02_rb,5.0243e-02_rb,5.3330e-02_rb,5.6237e-02_rb,5.8783e-02_rb/)\n      kbo(:,27, 6) = (/ &\n     &4.0718e-02_rb,4.3335e-02_rb,4.5897e-02_rb,4.8107e-02_rb,4.9970e-02_rb/)\n      kbo(:,28, 6) = (/ &\n     &3.4992e-02_rb,3.7210e-02_rb,3.9178e-02_rb,4.0837e-02_rb,4.2251e-02_rb/)\n      kbo(:,29, 6) = (/ &\n     &2.9986e-02_rb,3.1757e-02_rb,3.3246e-02_rb,3.4515e-02_rb,3.5697e-02_rb/)\n      kbo(:,30, 6) = (/ &\n     &2.5598e-02_rb,2.6947e-02_rb,2.8105e-02_rb,2.9142e-02_rb,3.0127e-02_rb/)\n      kbo(:,31, 6) = (/ &\n     &2.1742e-02_rb,2.2800e-02_rb,2.3733e-02_rb,2.4625e-02_rb,2.5488e-02_rb/)\n      kbo(:,32, 6) = (/ &\n     &1.8409e-02_rb,1.9261e-02_rb,2.0062e-02_rb,2.0837e-02_rb,2.1556e-02_rb/)\n      kbo(:,33, 6) = (/ &\n     &1.5564e-02_rb,1.6264e-02_rb,1.6973e-02_rb,1.7637e-02_rb,1.8281e-02_rb/)\n      kbo(:,34, 6) = (/ &\n     &1.3120e-02_rb,1.3750e-02_rb,1.4364e-02_rb,1.4950e-02_rb,1.5574e-02_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.1037e-02_rb,1.1597e-02_rb,1.2120e-02_rb,1.2671e-02_rb,1.3247e-02_rb/)\n      kbo(:,36, 6) = (/ &\n     &9.2368e-03_rb,9.7140e-03_rb,1.0180e-02_rb,1.0677e-02_rb,1.1200e-02_rb/)\n      kbo(:,37, 6) = (/ &\n     &7.7240e-03_rb,8.1368e-03_rb,8.5470e-03_rb,8.9958e-03_rb,9.4504e-03_rb/)\n      kbo(:,38, 6) = (/ &\n     &6.4758e-03_rb,6.8295e-03_rb,7.1958e-03_rb,7.5972e-03_rb,8.0066e-03_rb/)\n      kbo(:,39, 6) = (/ &\n     &5.4501e-03_rb,5.7576e-03_rb,6.0862e-03_rb,6.4345e-03_rb,6.8065e-03_rb/)\n      kbo(:,40, 6) = (/ &\n     &4.5611e-03_rb,4.8311e-03_rb,5.1160e-03_rb,5.4160e-03_rb,5.7404e-03_rb/)\n      kbo(:,41, 6) = (/ &\n     &3.8156e-03_rb,4.0605e-03_rb,4.3157e-03_rb,4.5812e-03_rb,4.8631e-03_rb/)\n      kbo(:,42, 6) = (/ &\n     &3.1991e-03_rb,3.4174e-03_rb,3.6479e-03_rb,3.8959e-03_rb,4.1438e-03_rb/)\n      kbo(:,43, 6) = (/ &\n     &2.6778e-03_rb,2.8754e-03_rb,3.0830e-03_rb,3.3106e-03_rb,3.5418e-03_rb/)\n      kbo(:,44, 6) = (/ &\n     &2.2384e-03_rb,2.4221e-03_rb,2.6165e-03_rb,2.8279e-03_rb,3.0365e-03_rb/)\n      kbo(:,45, 6) = (/ &\n     &1.8762e-03_rb,2.0454e-03_rb,2.2217e-03_rb,2.4182e-03_rb,2.6139e-03_rb/)\n      kbo(:,46, 6) = (/ &\n     &1.5669e-03_rb,1.7239e-03_rb,1.8868e-03_rb,2.0694e-03_rb,2.2548e-03_rb/)\n      kbo(:,47, 6) = (/ &\n     &1.2965e-03_rb,1.4378e-03_rb,1.5876e-03_rb,1.7568e-03_rb,1.9326e-03_rb/)\n      kbo(:,48, 6) = (/ &\n     &1.0774e-03_rb,1.2001e-03_rb,1.3389e-03_rb,1.4948e-03_rb,1.6630e-03_rb/)\n      kbo(:,49, 6) = (/ &\n     &8.9852e-04_rb,1.0105e-03_rb,1.1309e-03_rb,1.2754e-03_rb,1.4391e-03_rb/)\n      kbo(:,50, 6) = (/ &\n     &7.4445e-04_rb,8.4643e-04_rb,9.5631e-04_rb,1.0809e-03_rb,1.2318e-03_rb/)\n      kbo(:,51, 6) = (/ &\n     &6.1558e-04_rb,7.0452e-04_rb,8.0429e-04_rb,9.1653e-04_rb,1.0518e-03_rb/)\n      kbo(:,52, 6) = (/ &\n     &5.0970e-04_rb,5.8893e-04_rb,6.7706e-04_rb,7.7959e-04_rb,9.0341e-04_rb/)\n      kbo(:,53, 6) = (/ &\n     &4.2152e-04_rb,4.9282e-04_rb,5.7291e-04_rb,6.6638e-04_rb,7.8149e-04_rb/)\n      kbo(:,54, 6) = (/ &\n     &3.4337e-04_rb,4.0415e-04_rb,4.7438e-04_rb,5.5660e-04_rb,6.5618e-04_rb/)\n      kbo(:,55, 6) = (/ &\n     &2.7643e-04_rb,3.2706e-04_rb,3.8585e-04_rb,4.5635e-04_rb,5.3989e-04_rb/)\n      kbo(:,56, 6) = (/ &\n     &2.2200e-04_rb,2.6388e-04_rb,3.1337e-04_rb,3.7328e-04_rb,4.4370e-04_rb/)\n      kbo(:,57, 6) = (/ &\n     &1.7748e-04_rb,2.1244e-04_rb,2.5395e-04_rb,3.0395e-04_rb,3.6371e-04_rb/)\n      kbo(:,58, 6) = (/ &\n     &1.4157e-04_rb,1.7062e-04_rb,2.0500e-04_rb,2.4610e-04_rb,2.9686e-04_rb/)\n      kbo(:,59, 6) = (/ &\n     &1.1414e-04_rb,1.3738e-04_rb,1.6469e-04_rb,1.9701e-04_rb,2.3735e-04_rb/)\n      kbo(:,13, 7) = (/ &\n     &4.6955e-01_rb,4.7919e-01_rb,4.8757e-01_rb,4.9335e-01_rb,4.9501e-01_rb/)\n      kbo(:,14, 7) = (/ &\n     &4.3446e-01_rb,4.4412e-01_rb,4.5217e-01_rb,4.5833e-01_rb,4.6211e-01_rb/)\n      kbo(:,15, 7) = (/ &\n     &3.9856e-01_rb,4.0695e-01_rb,4.1403e-01_rb,4.2050e-01_rb,4.2565e-01_rb/)\n      kbo(:,16, 7) = (/ &\n     &3.6468e-01_rb,3.7159e-01_rb,3.7817e-01_rb,3.8407e-01_rb,3.8859e-01_rb/)\n      kbo(:,17, 7) = (/ &\n     &3.3137e-01_rb,3.3763e-01_rb,3.4358e-01_rb,3.4927e-01_rb,3.5406e-01_rb/)\n      kbo(:,18, 7) = (/ &\n     &2.9961e-01_rb,3.0527e-01_rb,3.1117e-01_rb,3.1677e-01_rb,3.2160e-01_rb/)\n      kbo(:,19, 7) = (/ &\n     &2.6897e-01_rb,2.7470e-01_rb,2.8068e-01_rb,2.8609e-01_rb,2.9127e-01_rb/)\n      kbo(:,20, 7) = (/ &\n     &2.4079e-01_rb,2.4662e-01_rb,2.5228e-01_rb,2.5749e-01_rb,2.6294e-01_rb/)\n      kbo(:,21, 7) = (/ &\n     &2.1419e-01_rb,2.1985e-01_rb,2.2509e-01_rb,2.3029e-01_rb,2.3688e-01_rb/)\n      kbo(:,22, 7) = (/ &\n     &1.8948e-01_rb,1.9472e-01_rb,1.9983e-01_rb,2.0584e-01_rb,2.1394e-01_rb/)\n      kbo(:,23, 7) = (/ &\n     &1.6639e-01_rb,1.7145e-01_rb,1.7716e-01_rb,1.8457e-01_rb,1.9389e-01_rb/)\n      kbo(:,24, 7) = (/ &\n     &1.4538e-01_rb,1.5085e-01_rb,1.5765e-01_rb,1.6633e-01_rb,1.7588e-01_rb/)\n      kbo(:,25, 7) = (/ &\n     &1.2705e-01_rb,1.3331e-01_rb,1.4121e-01_rb,1.5025e-01_rb,1.5987e-01_rb/)\n      kbo(:,26, 7) = (/ &\n     &1.1163e-01_rb,1.1872e-01_rb,1.2704e-01_rb,1.3598e-01_rb,1.4549e-01_rb/)\n      kbo(:,27, 7) = (/ &\n     &9.8775e-02_rb,1.0620e-01_rb,1.1436e-01_rb,1.2321e-01_rb,1.3236e-01_rb/)\n      kbo(:,28, 7) = (/ &\n     &8.7819e-02_rb,9.5125e-02_rb,1.0304e-01_rb,1.1161e-01_rb,1.2007e-01_rb/)\n      kbo(:,29, 7) = (/ &\n     &7.8356e-02_rb,8.5376e-02_rb,9.3117e-02_rb,1.0101e-01_rb,1.0879e-01_rb/)\n      kbo(:,30, 7) = (/ &\n     &7.0020e-02_rb,7.6849e-02_rb,8.4078e-02_rb,9.1302e-02_rb,9.8416e-02_rb/)\n      kbo(:,31, 7) = (/ &\n     &6.2819e-02_rb,6.9270e-02_rb,7.5879e-02_rb,8.2483e-02_rb,8.8967e-02_rb/)\n      kbo(:,32, 7) = (/ &\n     &5.6483e-02_rb,6.2430e-02_rb,6.8481e-02_rb,7.4539e-02_rb,8.0648e-02_rb/)\n      kbo(:,33, 7) = (/ &\n     &5.0860e-02_rb,5.6316e-02_rb,6.1885e-02_rb,6.7612e-02_rb,7.3808e-02_rb/)\n      kbo(:,34, 7) = (/ &\n     &4.5682e-02_rb,5.0745e-02_rb,5.5935e-02_rb,6.1551e-02_rb,6.7601e-02_rb/)\n      kbo(:,35, 7) = (/ &\n     &4.0692e-02_rb,4.5316e-02_rb,5.0264e-02_rb,5.5834e-02_rb,6.1807e-02_rb/)\n      kbo(:,36, 7) = (/ &\n     &3.5794e-02_rb,4.0089e-02_rb,4.4914e-02_rb,5.0304e-02_rb,5.6176e-02_rb/)\n      kbo(:,37, 7) = (/ &\n     &3.0961e-02_rb,3.4978e-02_rb,3.9573e-02_rb,4.4775e-02_rb,5.0561e-02_rb/)\n      kbo(:,38, 7) = (/ &\n     &2.6776e-02_rb,3.0559e-02_rb,3.4968e-02_rb,3.9997e-02_rb,4.5685e-02_rb/)\n      kbo(:,39, 7) = (/ &\n     &2.3185e-02_rb,2.6765e-02_rb,3.1022e-02_rb,3.5959e-02_rb,4.1519e-02_rb/)\n      kbo(:,40, 7) = (/ &\n     &1.9763e-02_rb,2.3065e-02_rb,2.7085e-02_rb,3.1775e-02_rb,3.7215e-02_rb/)\n      kbo(:,41, 7) = (/ &\n     &1.6812e-02_rb,1.9830e-02_rb,2.3604e-02_rb,2.8085e-02_rb,3.3399e-02_rb/)\n      kbo(:,42, 7) = (/ &\n     &1.4318e-02_rb,1.7069e-02_rb,2.0605e-02_rb,2.4882e-02_rb,3.0046e-02_rb/)\n      kbo(:,43, 7) = (/ &\n     &1.2083e-02_rb,1.4567e-02_rb,1.7802e-02_rb,2.1853e-02_rb,2.6807e-02_rb/)\n      kbo(:,44, 7) = (/ &\n     &1.0170e-02_rb,1.2372e-02_rb,1.5314e-02_rb,1.9108e-02_rb,2.3821e-02_rb/)\n      kbo(:,45, 7) = (/ &\n     &8.6090e-03_rb,1.0534e-02_rb,1.3191e-02_rb,1.6726e-02_rb,2.1197e-02_rb/)\n      kbo(:,46, 7) = (/ &\n     &7.3022e-03_rb,8.9907e-03_rb,1.1353e-02_rb,1.4581e-02_rb,1.8771e-02_rb/)\n      kbo(:,47, 7) = (/ &\n     &6.1213e-03_rb,7.6431e-03_rb,9.7321e-03_rb,1.2583e-02_rb,1.6455e-02_rb/)\n      kbo(:,48, 7) = (/ &\n     &5.1186e-03_rb,6.5188e-03_rb,8.4138e-03_rb,1.0987e-02_rb,1.4502e-02_rb/)\n      kbo(:,49, 7) = (/ &\n     &4.2957e-03_rb,5.5597e-03_rb,7.3442e-03_rb,9.7283e-03_rb,1.2936e-02_rb/)\n      kbo(:,50, 7) = (/ &\n     &3.6145e-03_rb,4.7398e-03_rb,6.3555e-03_rb,8.6287e-03_rb,1.1590e-02_rb/)\n      kbo(:,51, 7) = (/ &\n     &3.0102e-03_rb,4.0430e-03_rb,5.4860e-03_rb,7.5896e-03_rb,1.0447e-02_rb/)\n      kbo(:,52, 7) = (/ &\n     &2.4958e-03_rb,3.4406e-03_rb,4.7896e-03_rb,6.7274e-03_rb,9.4519e-03_rb/)\n      kbo(:,53, 7) = (/ &\n     &2.0685e-03_rb,2.9229e-03_rb,4.2030e-03_rb,6.0566e-03_rb,8.6137e-03_rb/)\n      kbo(:,54, 7) = (/ &\n     &1.6899e-03_rb,2.4174e-03_rb,3.5607e-03_rb,5.2595e-03_rb,7.6384e-03_rb/)\n      kbo(:,55, 7) = (/ &\n     &1.3559e-03_rb,1.9570e-03_rb,2.9412e-03_rb,4.4253e-03_rb,6.5827e-03_rb/)\n      kbo(:,56, 7) = (/ &\n     &1.0806e-03_rb,1.5745e-03_rb,2.4094e-03_rb,3.7108e-03_rb,5.6277e-03_rb/)\n      kbo(:,57, 7) = (/ &\n     &8.5457e-04_rb,1.2632e-03_rb,1.9536e-03_rb,3.0874e-03_rb,4.7870e-03_rb/)\n      kbo(:,58, 7) = (/ &\n     &6.7302e-04_rb,1.0065e-03_rb,1.5736e-03_rb,2.5427e-03_rb,4.0334e-03_rb/)\n      kbo(:,59, 7) = (/ &\n     &5.4147e-04_rb,8.1396e-04_rb,1.2891e-03_rb,2.1042e-03_rb,3.3560e-03_rb/)\n      kbo(:,13, 8) = (/ &\n     &8.0034e-01_rb,8.1640e-01_rb,8.3288e-01_rb,8.4808e-01_rb,8.6148e-01_rb/)\n      kbo(:,14, 8) = (/ &\n     &7.8054e-01_rb,7.9433e-01_rb,8.0919e-01_rb,8.2411e-01_rb,8.3905e-01_rb/)\n      kbo(:,15, 8) = (/ &\n     &7.5909e-01_rb,7.7248e-01_rb,7.8592e-01_rb,7.9872e-01_rb,8.1170e-01_rb/)\n      kbo(:,16, 8) = (/ &\n     &7.3580e-01_rb,7.4804e-01_rb,7.6085e-01_rb,7.7248e-01_rb,7.8295e-01_rb/)\n      kbo(:,17, 8) = (/ &\n     &7.0630e-01_rb,7.1844e-01_rb,7.2965e-01_rb,7.3912e-01_rb,7.4743e-01_rb/)\n      kbo(:,18, 8) = (/ &\n     &6.7101e-01_rb,6.8279e-01_rb,6.9322e-01_rb,7.0102e-01_rb,7.0887e-01_rb/)\n      kbo(:,19, 8) = (/ &\n     &6.2981e-01_rb,6.4055e-01_rb,6.4979e-01_rb,6.5773e-01_rb,6.6515e-01_rb/)\n      kbo(:,20, 8) = (/ &\n     &5.8544e-01_rb,5.9608e-01_rb,6.0511e-01_rb,6.1342e-01_rb,6.2187e-01_rb/)\n      kbo(:,21, 8) = (/ &\n     &5.3944e-01_rb,5.5063e-01_rb,5.6005e-01_rb,5.6946e-01_rb,5.7856e-01_rb/)\n      kbo(:,22, 8) = (/ &\n     &4.9436e-01_rb,5.0585e-01_rb,5.1644e-01_rb,5.2703e-01_rb,5.3664e-01_rb/)\n      kbo(:,23, 8) = (/ &\n     &4.5102e-01_rb,4.6300e-01_rb,4.7455e-01_rb,4.8579e-01_rb,4.9663e-01_rb/)\n      kbo(:,24, 8) = (/ &\n     &4.0950e-01_rb,4.2198e-01_rb,4.3426e-01_rb,4.4606e-01_rb,4.5946e-01_rb/)\n      kbo(:,25, 8) = (/ &\n     &3.7091e-01_rb,3.8365e-01_rb,3.9643e-01_rb,4.1000e-01_rb,4.2576e-01_rb/)\n      kbo(:,26, 8) = (/ &\n     &3.3534e-01_rb,3.4839e-01_rb,3.6241e-01_rb,3.7838e-01_rb,3.9777e-01_rb/)\n      kbo(:,27, 8) = (/ &\n     &3.0274e-01_rb,3.1698e-01_rb,3.3298e-01_rb,3.5138e-01_rb,3.7450e-01_rb/)\n      kbo(:,28, 8) = (/ &\n     &2.7401e-01_rb,2.8968e-01_rb,3.0792e-01_rb,3.3011e-01_rb,3.5579e-01_rb/)\n      kbo(:,29, 8) = (/ &\n     &2.4984e-01_rb,2.6749e-01_rb,2.8805e-01_rb,3.1339e-01_rb,3.4148e-01_rb/)\n      kbo(:,30, 8) = (/ &\n     &2.2976e-01_rb,2.4923e-01_rb,2.7317e-01_rb,3.0058e-01_rb,3.3054e-01_rb/)\n      kbo(:,31, 8) = (/ &\n     &2.1378e-01_rb,2.3592e-01_rb,2.6234e-01_rb,2.9177e-01_rb,3.2355e-01_rb/)\n      kbo(:,32, 8) = (/ &\n     &2.0184e-01_rb,2.2666e-01_rb,2.5501e-01_rb,2.8631e-01_rb,3.1911e-01_rb/)\n      kbo(:,33, 8) = (/ &\n     &1.9381e-01_rb,2.2050e-01_rb,2.5091e-01_rb,2.8341e-01_rb,3.1739e-01_rb/)\n      kbo(:,34, 8) = (/ &\n     &1.8744e-01_rb,2.1594e-01_rb,2.4774e-01_rb,2.8137e-01_rb,3.1632e-01_rb/)\n      kbo(:,35, 8) = (/ &\n     &1.8056e-01_rb,2.1069e-01_rb,2.4353e-01_rb,2.7798e-01_rb,3.1405e-01_rb/)\n      kbo(:,36, 8) = (/ &\n     &1.7277e-01_rb,2.0381e-01_rb,2.3716e-01_rb,2.7253e-01_rb,3.0956e-01_rb/)\n      kbo(:,37, 8) = (/ &\n     &1.6168e-01_rb,1.9289e-01_rb,2.2650e-01_rb,2.6234e-01_rb,2.9987e-01_rb/)\n      kbo(:,38, 8) = (/ &\n     &1.5148e-01_rb,1.8272e-01_rb,2.1663e-01_rb,2.5277e-01_rb,2.9084e-01_rb/)\n      kbo(:,39, 8) = (/ &\n     &1.4247e-01_rb,1.7365e-01_rb,2.0770e-01_rb,2.4421e-01_rb,2.8306e-01_rb/)\n      kbo(:,40, 8) = (/ &\n     &1.3121e-01_rb,1.6190e-01_rb,1.9569e-01_rb,2.3227e-01_rb,2.7141e-01_rb/)\n      kbo(:,41, 8) = (/ &\n     &1.2044e-01_rb,1.5044e-01_rb,1.8388e-01_rb,2.2048e-01_rb,2.5951e-01_rb/)\n      kbo(:,42, 8) = (/ &\n     &1.1043e-01_rb,1.3967e-01_rb,1.7269e-01_rb,2.0919e-01_rb,2.4811e-01_rb/)\n      kbo(:,43, 8) = (/ &\n     &9.9679e-02_rb,1.2792e-01_rb,1.6034e-01_rb,1.9622e-01_rb,2.3472e-01_rb/)\n      kbo(:,44, 8) = (/ &\n     &8.9034e-02_rb,1.1631e-01_rb,1.4764e-01_rb,1.8285e-01_rb,2.2093e-01_rb/)\n      kbo(:,45, 8) = (/ &\n     &7.9054e-02_rb,1.0536e-01_rb,1.3566e-01_rb,1.6992e-01_rb,2.0745e-01_rb/)\n      kbo(:,46, 8) = (/ &\n     &6.9318e-02_rb,9.4501e-02_rb,1.2377e-01_rb,1.5667e-01_rb,1.9349e-01_rb/)\n      kbo(:,47, 8) = (/ &\n     &5.9551e-02_rb,8.3032e-02_rb,1.1103e-01_rb,1.4286e-01_rb,1.7816e-01_rb/)\n      kbo(:,48, 8) = (/ &\n     &5.0798e-02_rb,7.2525e-02_rb,9.9035e-02_rb,1.2969e-01_rb,1.6375e-01_rb/)\n      kbo(:,49, 8) = (/ &\n     &4.3152e-02_rb,6.3003e-02_rb,8.7833e-02_rb,1.1716e-01_rb,1.5024e-01_rb/)\n      kbo(:,50, 8) = (/ &\n     &3.6793e-02_rb,5.4813e-02_rb,7.7929e-02_rb,1.0576e-01_rb,1.3787e-01_rb/)\n      kbo(:,51, 8) = (/ &\n     &3.1426e-02_rb,4.7509e-02_rb,6.8953e-02_rb,9.5149e-02_rb,1.2582e-01_rb/)\n      kbo(:,52, 8) = (/ &\n     &2.6907e-02_rb,4.1306e-02_rb,6.0841e-02_rb,8.5477e-02_rb,1.1483e-01_rb/)\n      kbo(:,53, 8) = (/ &\n     &2.3168e-02_rb,3.6049e-02_rb,5.3816e-02_rb,7.6669e-02_rb,1.0462e-01_rb/)\n      kbo(:,54, 8) = (/ &\n     &1.9633e-02_rb,3.1217e-02_rb,4.7423e-02_rb,6.8592e-02_rb,9.4967e-02_rb/)\n      kbo(:,55, 8) = (/ &\n     &1.6386e-02_rb,2.6769e-02_rb,4.1346e-02_rb,6.0965e-02_rb,8.5476e-02_rb/)\n      kbo(:,56, 8) = (/ &\n     &1.3620e-02_rb,2.2714e-02_rb,3.5826e-02_rb,5.3847e-02_rb,7.6755e-02_rb/)\n      kbo(:,57, 8) = (/ &\n     &1.1197e-02_rb,1.9124e-02_rb,3.0904e-02_rb,4.7282e-02_rb,6.8602e-02_rb/)\n      kbo(:,58, 8) = (/ &\n     &9.1481e-03_rb,1.6046e-02_rb,2.6605e-02_rb,4.1371e-02_rb,6.1207e-02_rb/)\n      kbo(:,59, 8) = (/ &\n     &7.9051e-03_rb,1.4193e-02_rb,2.3774e-02_rb,3.7742e-02_rb,5.6658e-02_rb/)\n      kbo(:,13, 9) = (/ &\n     &1.3350e+00_rb,1.3653e+00_rb,1.3981e+00_rb,1.4396e+00_rb,1.4753e+00_rb/)\n      kbo(:,14, 9) = (/ &\n     &1.4178e+00_rb,1.4520e+00_rb,1.4843e+00_rb,1.5206e+00_rb,1.5583e+00_rb/)\n      kbo(:,15, 9) = (/ &\n     &1.4732e+00_rb,1.5083e+00_rb,1.5396e+00_rb,1.5755e+00_rb,1.6045e+00_rb/)\n      kbo(:,16, 9) = (/ &\n     &1.5430e+00_rb,1.5830e+00_rb,1.6160e+00_rb,1.6547e+00_rb,1.6902e+00_rb/)\n      kbo(:,17, 9) = (/ &\n     &1.6452e+00_rb,1.6845e+00_rb,1.7176e+00_rb,1.7564e+00_rb,1.7915e+00_rb/)\n      kbo(:,18, 9) = (/ &\n     &1.7229e+00_rb,1.7605e+00_rb,1.7922e+00_rb,1.8300e+00_rb,1.8621e+00_rb/)\n      kbo(:,19, 9) = (/ &\n     &1.7775e+00_rb,1.8140e+00_rb,1.8454e+00_rb,1.8798e+00_rb,1.9094e+00_rb/)\n      kbo(:,20, 9) = (/ &\n     &1.8038e+00_rb,1.8386e+00_rb,1.8699e+00_rb,1.9034e+00_rb,1.9311e+00_rb/)\n      kbo(:,21, 9) = (/ &\n     &1.8050e+00_rb,1.8386e+00_rb,1.8712e+00_rb,1.9046e+00_rb,1.9320e+00_rb/)\n      kbo(:,22, 9) = (/ &\n     &1.7869e+00_rb,1.8213e+00_rb,1.8557e+00_rb,1.8890e+00_rb,1.9178e+00_rb/)\n      kbo(:,23, 9) = (/ &\n     &1.7516e+00_rb,1.7874e+00_rb,1.8248e+00_rb,1.8592e+00_rb,1.8901e+00_rb/)\n      kbo(:,24, 9) = (/ &\n     &1.7051e+00_rb,1.7440e+00_rb,1.7841e+00_rb,1.8220e+00_rb,1.8561e+00_rb/)\n      kbo(:,25, 9) = (/ &\n     &1.6513e+00_rb,1.6948e+00_rb,1.7396e+00_rb,1.7805e+00_rb,1.8194e+00_rb/)\n      kbo(:,26, 9) = (/ &\n     &1.5955e+00_rb,1.6454e+00_rb,1.6945e+00_rb,1.7402e+00_rb,1.7819e+00_rb/)\n      kbo(:,27, 9) = (/ &\n     &1.5421e+00_rb,1.5985e+00_rb,1.6517e+00_rb,1.7028e+00_rb,1.7485e+00_rb/)\n      kbo(:,28, 9) = (/ &\n     &1.4940e+00_rb,1.5568e+00_rb,1.6151e+00_rb,1.6694e+00_rb,1.7213e+00_rb/)\n      kbo(:,29, 9) = (/ &\n     &1.4533e+00_rb,1.5206e+00_rb,1.5846e+00_rb,1.6444e+00_rb,1.7003e+00_rb/)\n      kbo(:,30, 9) = (/ &\n     &1.4208e+00_rb,1.4930e+00_rb,1.5618e+00_rb,1.6263e+00_rb,1.6869e+00_rb/)\n      kbo(:,31, 9) = (/ &\n     &1.3961e+00_rb,1.4744e+00_rb,1.5474e+00_rb,1.6161e+00_rb,1.6805e+00_rb/)\n      kbo(:,32, 9) = (/ &\n     &1.3821e+00_rb,1.4633e+00_rb,1.5401e+00_rb,1.6122e+00_rb,1.6817e+00_rb/)\n      kbo(:,33, 9) = (/ &\n     &1.3749e+00_rb,1.4598e+00_rb,1.5393e+00_rb,1.6160e+00_rb,1.6953e+00_rb/)\n      kbo(:,34, 9) = (/ &\n     &1.3713e+00_rb,1.4588e+00_rb,1.5429e+00_rb,1.6218e+00_rb,1.7156e+00_rb/)\n      kbo(:,35, 9) = (/ &\n     &1.3644e+00_rb,1.4561e+00_rb,1.5422e+00_rb,1.6338e+00_rb,1.7288e+00_rb/)\n      kbo(:,36, 9) = (/ &\n     &1.3516e+00_rb,1.4466e+00_rb,1.5348e+00_rb,1.6360e+00_rb,1.7340e+00_rb/)\n      kbo(:,37, 9) = (/ &\n     &1.3275e+00_rb,1.4250e+00_rb,1.5169e+00_rb,1.6237e+00_rb,1.7238e+00_rb/)\n      kbo(:,38, 9) = (/ &\n     &1.3040e+00_rb,1.4043e+00_rb,1.5021e+00_rb,1.6114e+00_rb,1.7135e+00_rb/)\n      kbo(:,39, 9) = (/ &\n     &1.2823e+00_rb,1.3849e+00_rb,1.4910e+00_rb,1.6008e+00_rb,1.7062e+00_rb/)\n      kbo(:,40, 9) = (/ &\n     &1.2494e+00_rb,1.3552e+00_rb,1.4636e+00_rb,1.5759e+00_rb,1.6836e+00_rb/)\n      kbo(:,41, 9) = (/ &\n     &1.2158e+00_rb,1.3244e+00_rb,1.4340e+00_rb,1.5489e+00_rb,1.6593e+00_rb/)\n      kbo(:,42, 9) = (/ &\n     &1.1826e+00_rb,1.2939e+00_rb,1.4045e+00_rb,1.5221e+00_rb,1.6360e+00_rb/)\n      kbo(:,43, 9) = (/ &\n     &1.1430e+00_rb,1.2570e+00_rb,1.3680e+00_rb,1.4889e+00_rb,1.6061e+00_rb/)\n      kbo(:,44, 9) = (/ &\n     &1.1001e+00_rb,1.2164e+00_rb,1.3282e+00_rb,1.4525e+00_rb,1.5734e+00_rb/)\n      kbo(:,45, 9) = (/ &\n     &1.0569e+00_rb,1.1761e+00_rb,1.2894e+00_rb,1.4161e+00_rb,1.5408e+00_rb/)\n      kbo(:,46, 9) = (/ &\n     &1.0113e+00_rb,1.1324e+00_rb,1.2480e+00_rb,1.3769e+00_rb,1.5047e+00_rb/)\n      kbo(:,47, 9) = (/ &\n     &9.5935e-01_rb,1.0831e+00_rb,1.2009e+00_rb,1.3301e+00_rb,1.4611e+00_rb/)\n      kbo(:,48, 9) = (/ &\n     &9.0670e-01_rb,1.0329e+00_rb,1.1535e+00_rb,1.2830e+00_rb,1.4185e+00_rb/)\n      kbo(:,49, 9) = (/ &\n     &8.5414e-01_rb,9.8225e-01_rb,1.1056e+00_rb,1.2370e+00_rb,1.3774e+00_rb/)\n      kbo(:,50, 9) = (/ &\n     &8.0339e-01_rb,9.3369e-01_rb,1.0592e+00_rb,1.1907e+00_rb,1.3340e+00_rb/)\n      kbo(:,51, 9) = (/ &\n     &7.5351e-01_rb,8.8571e-01_rb,1.0133e+00_rb,1.1450e+00_rb,1.2894e+00_rb/)\n      kbo(:,52, 9) = (/ &\n     &7.0363e-01_rb,8.3718e-01_rb,9.6715e-01_rb,1.0991e+00_rb,1.2446e+00_rb/)\n      kbo(:,53, 9) = (/ &\n     &6.5356e-01_rb,7.8813e-01_rb,9.1966e-01_rb,1.0529e+00_rb,1.2015e+00_rb/)\n      kbo(:,54, 9) = (/ &\n     &6.0842e-01_rb,7.4258e-01_rb,8.7513e-01_rb,1.0061e+00_rb,1.1543e+00_rb/)\n      kbo(:,55, 9) = (/ &\n     &5.6587e-01_rb,6.9834e-01_rb,8.3229e-01_rb,9.6266e-01_rb,1.1037e+00_rb/)\n      kbo(:,56, 9) = (/ &\n     &5.2358e-01_rb,6.5442e-01_rb,7.8939e-01_rb,9.2104e-01_rb,1.0541e+00_rb/)\n      kbo(:,57, 9) = (/ &\n     &4.8183e-01_rb,6.1174e-01_rb,7.4558e-01_rb,8.7862e-01_rb,1.0077e+00_rb/)\n      kbo(:,58, 9) = (/ &\n     &4.4300e-01_rb,5.7151e-01_rb,7.0375e-01_rb,8.3825e-01_rb,9.6862e-01_rb/)\n      kbo(:,59, 9) = (/ &\n     &4.2745e-01_rb,5.5483e-01_rb,6.8739e-01_rb,8.2045e-01_rb,9.5225e-01_rb/)\n      kbo(:,13,10) = (/ &\n     &1.9893e+00_rb,1.9563e+00_rb,1.9174e+00_rb,1.9426e+00_rb,2.0503e+00_rb/)\n      kbo(:,14,10) = (/ &\n     &1.9716e+00_rb,2.0101e+00_rb,2.0332e+00_rb,2.0825e+00_rb,2.0990e+00_rb/)\n      kbo(:,15,10) = (/ &\n     &2.2404e+00_rb,2.3114e+00_rb,2.3474e+00_rb,2.4414e+00_rb,2.5235e+00_rb/)\n      kbo(:,16,10) = (/ &\n     &2.6948e+00_rb,2.7693e+00_rb,2.8500e+00_rb,2.9277e+00_rb,3.0098e+00_rb/)\n      kbo(:,17,10) = (/ &\n     &2.9786e+00_rb,3.0578e+00_rb,3.1508e+00_rb,3.2081e+00_rb,3.2791e+00_rb/)\n      kbo(:,18,10) = (/ &\n     &3.2445e+00_rb,3.3300e+00_rb,3.4200e+00_rb,3.4641e+00_rb,3.5430e+00_rb/)\n      kbo(:,19,10) = (/ &\n     &3.4975e+00_rb,3.5857e+00_rb,3.6668e+00_rb,3.7210e+00_rb,3.8007e+00_rb/)\n      kbo(:,20,10) = (/ &\n     &3.7569e+00_rb,3.8465e+00_rb,3.9165e+00_rb,3.9790e+00_rb,4.0533e+00_rb/)\n      kbo(:,21,10) = (/ &\n     &4.0221e+00_rb,4.1092e+00_rb,4.1701e+00_rb,4.2261e+00_rb,4.2948e+00_rb/)\n      kbo(:,22,10) = (/ &\n     &4.2735e+00_rb,4.3579e+00_rb,4.4003e+00_rb,4.4698e+00_rb,4.5287e+00_rb/)\n      kbo(:,23,10) = (/ &\n     &4.4889e+00_rb,4.5713e+00_rb,4.6026e+00_rb,4.6888e+00_rb,4.7442e+00_rb/)\n      kbo(:,24,10) = (/ &\n     &4.6627e+00_rb,4.7429e+00_rb,4.7936e+00_rb,4.8738e+00_rb,4.9305e+00_rb/)\n      kbo(:,25,10) = (/ &\n     &4.8010e+00_rb,4.8792e+00_rb,4.9473e+00_rb,5.0350e+00_rb,5.0940e+00_rb/)\n      kbo(:,26,10) = (/ &\n     &4.9124e+00_rb,4.9871e+00_rb,5.0797e+00_rb,5.1628e+00_rb,5.2299e+00_rb/)\n      kbo(:,27,10) = (/ &\n     &4.9985e+00_rb,5.0753e+00_rb,5.2023e+00_rb,5.2822e+00_rb,5.3506e+00_rb/)\n      kbo(:,28,10) = (/ &\n     &5.0601e+00_rb,5.1633e+00_rb,5.2946e+00_rb,5.3826e+00_rb,5.4390e+00_rb/)\n      kbo(:,29,10) = (/ &\n     &5.1149e+00_rb,5.2551e+00_rb,5.3769e+00_rb,5.4560e+00_rb,5.5331e+00_rb/)\n      kbo(:,30,10) = (/ &\n     &5.1829e+00_rb,5.3405e+00_rb,5.4468e+00_rb,5.5366e+00_rb,5.6267e+00_rb/)\n      kbo(:,31,10) = (/ &\n     &5.2708e+00_rb,5.3990e+00_rb,5.5145e+00_rb,5.6271e+00_rb,5.7226e+00_rb/)\n      kbo(:,32,10) = (/ &\n     &5.3210e+00_rb,5.4615e+00_rb,5.6064e+00_rb,5.7149e+00_rb,5.7961e+00_rb/)\n      kbo(:,33,10) = (/ &\n     &5.3784e+00_rb,5.5514e+00_rb,5.6898e+00_rb,5.7825e+00_rb,5.7881e+00_rb/)\n      kbo(:,34,10) = (/ &\n     &5.4610e+00_rb,5.6264e+00_rb,5.7421e+00_rb,5.8351e+00_rb,5.7469e+00_rb/)\n      kbo(:,35,10) = (/ &\n     &5.5182e+00_rb,5.6646e+00_rb,5.7805e+00_rb,5.8049e+00_rb,5.8731e+00_rb/)\n      kbo(:,36,10) = (/ &\n     &5.5474e+00_rb,5.6825e+00_rb,5.8317e+00_rb,5.7746e+00_rb,5.9436e+00_rb/)\n      kbo(:,37,10) = (/ &\n     &5.5356e+00_rb,5.6848e+00_rb,5.8413e+00_rb,5.7830e+00_rb,5.9888e+00_rb/)\n      kbo(:,38,10) = (/ &\n     &5.5240e+00_rb,5.6924e+00_rb,5.8161e+00_rb,5.8447e+00_rb,6.0305e+00_rb/)\n      kbo(:,39,10) = (/ &\n     &5.5062e+00_rb,5.7035e+00_rb,5.7750e+00_rb,5.8907e+00_rb,6.0598e+00_rb/)\n      kbo(:,40,10) = (/ &\n     &5.4721e+00_rb,5.6790e+00_rb,5.7621e+00_rb,5.8808e+00_rb,6.0578e+00_rb/)\n      kbo(:,41,10) = (/ &\n     &5.4259e+00_rb,5.6462e+00_rb,5.7509e+00_rb,5.8640e+00_rb,6.0494e+00_rb/)\n      kbo(:,42,10) = (/ &\n     &5.3746e+00_rb,5.6111e+00_rb,5.7387e+00_rb,5.8493e+00_rb,6.0309e+00_rb/)\n      kbo(:,43,10) = (/ &\n     &5.3001e+00_rb,5.5493e+00_rb,5.7206e+00_rb,5.8145e+00_rb,6.0040e+00_rb/)\n      kbo(:,44,10) = (/ &\n     &5.2173e+00_rb,5.4929e+00_rb,5.6988e+00_rb,5.7584e+00_rb,5.9757e+00_rb/)\n      kbo(:,45,10) = (/ &\n     &5.1348e+00_rb,5.4235e+00_rb,5.6596e+00_rb,5.7148e+00_rb,5.9430e+00_rb/)\n      kbo(:,46,10) = (/ &\n     &5.0314e+00_rb,5.3386e+00_rb,5.5941e+00_rb,5.6594e+00_rb,5.8994e+00_rb/)\n      kbo(:,47,10) = (/ &\n     &4.9050e+00_rb,5.2288e+00_rb,5.5164e+00_rb,5.5882e+00_rb,5.8407e+00_rb/)\n      kbo(:,48,10) = (/ &\n     &4.7768e+00_rb,5.1235e+00_rb,5.4274e+00_rb,5.5412e+00_rb,5.7765e+00_rb/)\n      kbo(:,49,10) = (/ &\n     &4.6322e+00_rb,5.0058e+00_rb,5.3313e+00_rb,5.4722e+00_rb,5.7006e+00_rb/)\n      kbo(:,50,10) = (/ &\n     &4.4926e+00_rb,4.8780e+00_rb,5.2241e+00_rb,5.4133e+00_rb,5.6277e+00_rb/)\n      kbo(:,51,10) = (/ &\n     &4.3523e+00_rb,4.7488e+00_rb,5.1238e+00_rb,5.3514e+00_rb,5.5587e+00_rb/)\n      kbo(:,52,10) = (/ &\n     &4.2056e+00_rb,4.6099e+00_rb,5.0074e+00_rb,5.2732e+00_rb,5.4803e+00_rb/)\n      kbo(:,53,10) = (/ &\n     &4.0530e+00_rb,4.4698e+00_rb,4.8873e+00_rb,5.1842e+00_rb,5.3844e+00_rb/)\n      kbo(:,54,10) = (/ &\n     &3.8976e+00_rb,4.3362e+00_rb,4.7616e+00_rb,5.1168e+00_rb,5.2766e+00_rb/)\n      kbo(:,55,10) = (/ &\n     &3.7298e+00_rb,4.2020e+00_rb,4.6200e+00_rb,5.0133e+00_rb,5.2077e+00_rb/)\n      kbo(:,56,10) = (/ &\n     &3.5605e+00_rb,4.0625e+00_rb,4.4800e+00_rb,4.8943e+00_rb,5.1989e+00_rb/)\n      kbo(:,57,10) = (/ &\n     &3.3848e+00_rb,3.9107e+00_rb,4.3536e+00_rb,4.7626e+00_rb,5.1398e+00_rb/)\n      kbo(:,58,10) = (/ &\n     &3.2413e+00_rb,3.7494e+00_rb,4.2254e+00_rb,4.6312e+00_rb,5.0237e+00_rb/)\n      kbo(:,59,10) = (/ &\n     &3.1874e+00_rb,3.6712e+00_rb,4.1570e+00_rb,4.5764e+00_rb,4.9431e+00_rb/)\n      kbo(:,13,11) = (/ &\n     &2.0655e+00_rb,2.2522e+00_rb,2.3749e+00_rb,2.3793e+00_rb,2.3141e+00_rb/)\n      kbo(:,14,11) = (/ &\n     &2.3056e+00_rb,2.3392e+00_rb,2.3483e+00_rb,2.4161e+00_rb,2.4783e+00_rb/)\n      kbo(:,15,11) = (/ &\n     &2.5044e+00_rb,2.5910e+00_rb,2.7153e+00_rb,2.7838e+00_rb,2.9462e+00_rb/)\n      kbo(:,16,11) = (/ &\n     &3.2130e+00_rb,3.2960e+00_rb,3.3708e+00_rb,3.3957e+00_rb,3.4936e+00_rb/)\n      kbo(:,17,11) = (/ &\n     &3.5929e+00_rb,3.6854e+00_rb,3.7568e+00_rb,3.8084e+00_rb,3.9070e+00_rb/)\n      kbo(:,18,11) = (/ &\n     &3.9502e+00_rb,4.0564e+00_rb,4.1260e+00_rb,4.2219e+00_rb,4.3335e+00_rb/)\n      kbo(:,19,11) = (/ &\n     &4.3215e+00_rb,4.4423e+00_rb,4.5361e+00_rb,4.6179e+00_rb,4.7405e+00_rb/)\n      kbo(:,20,11) = (/ &\n     &4.7059e+00_rb,4.8304e+00_rb,4.9342e+00_rb,4.9958e+00_rb,5.1320e+00_rb/)\n      kbo(:,21,11) = (/ &\n     &5.0845e+00_rb,5.2089e+00_rb,5.3085e+00_rb,5.3635e+00_rb,5.4973e+00_rb/)\n      kbo(:,22,11) = (/ &\n     &5.4678e+00_rb,5.5866e+00_rb,5.6718e+00_rb,5.7157e+00_rb,5.8446e+00_rb/)\n      kbo(:,23,11) = (/ &\n     &5.8472e+00_rb,5.9542e+00_rb,6.0224e+00_rb,6.0657e+00_rb,6.1751e+00_rb/)\n      kbo(:,24,11) = (/ &\n     &6.2102e+00_rb,6.3055e+00_rb,6.3477e+00_rb,6.4025e+00_rb,6.4818e+00_rb/)\n      kbo(:,25,11) = (/ &\n     &6.5425e+00_rb,6.6276e+00_rb,6.6464e+00_rb,6.7138e+00_rb,6.7776e+00_rb/)\n      kbo(:,26,11) = (/ &\n     &6.8397e+00_rb,6.9134e+00_rb,6.9153e+00_rb,7.0099e+00_rb,7.0590e+00_rb/)\n      kbo(:,27,11) = (/ &\n     &7.1001e+00_rb,7.1597e+00_rb,7.1676e+00_rb,7.2592e+00_rb,7.2956e+00_rb/)\n      kbo(:,28,11) = (/ &\n     &7.3310e+00_rb,7.3578e+00_rb,7.4192e+00_rb,7.4714e+00_rb,7.5147e+00_rb/)\n      kbo(:,29,11) = (/ &\n     &7.5220e+00_rb,7.5568e+00_rb,7.6448e+00_rb,7.6786e+00_rb,7.7106e+00_rb/)\n      kbo(:,30,11) = (/ &\n     &7.6639e+00_rb,7.7470e+00_rb,7.8152e+00_rb,7.8571e+00_rb,7.8626e+00_rb/)\n      kbo(:,31,11) = (/ &\n     &7.8082e+00_rb,7.9292e+00_rb,7.9711e+00_rb,7.9864e+00_rb,7.9914e+00_rb/)\n      kbo(:,32,11) = (/ &\n     &7.9725e+00_rb,8.0661e+00_rb,8.0888e+00_rb,8.1052e+00_rb,8.1459e+00_rb/)\n      kbo(:,33,11) = (/ &\n     &8.1196e+00_rb,8.1648e+00_rb,8.2204e+00_rb,8.2561e+00_rb,8.2714e+00_rb/)\n      kbo(:,34,11) = (/ &\n     &8.1982e+00_rb,8.2822e+00_rb,8.3431e+00_rb,8.3695e+00_rb,8.3494e+00_rb/)\n      kbo(:,35,11) = (/ &\n     &8.2893e+00_rb,8.3914e+00_rb,8.4459e+00_rb,8.4367e+00_rb,8.2201e+00_rb/)\n      kbo(:,36,11) = (/ &\n     &8.3709e+00_rb,8.4754e+00_rb,8.5081e+00_rb,8.5002e+00_rb,8.2056e+00_rb/)\n      kbo(:,37,11) = (/ &\n     &8.4255e+00_rb,8.5299e+00_rb,8.5562e+00_rb,8.5457e+00_rb,8.3297e+00_rb/)\n      kbo(:,38,11) = (/ &\n     &8.4692e+00_rb,8.5729e+00_rb,8.6048e+00_rb,8.5329e+00_rb,8.4574e+00_rb/)\n      kbo(:,39,11) = (/ &\n     &8.5044e+00_rb,8.6011e+00_rb,8.6529e+00_rb,8.5036e+00_rb,8.5412e+00_rb/)\n      kbo(:,40,11) = (/ &\n     &8.5034e+00_rb,8.6122e+00_rb,8.6861e+00_rb,8.5500e+00_rb,8.5878e+00_rb/)\n      kbo(:,41,11) = (/ &\n     &8.4921e+00_rb,8.6152e+00_rb,8.7146e+00_rb,8.6037e+00_rb,8.6322e+00_rb/)\n      kbo(:,42,11) = (/ &\n     &8.4716e+00_rb,8.6012e+00_rb,8.7281e+00_rb,8.6344e+00_rb,8.6768e+00_rb/)\n      kbo(:,43,11) = (/ &\n     &8.4399e+00_rb,8.6022e+00_rb,8.7354e+00_rb,8.6857e+00_rb,8.7108e+00_rb/)\n      kbo(:,44,11) = (/ &\n     &8.4042e+00_rb,8.5707e+00_rb,8.7247e+00_rb,8.7306e+00_rb,8.7301e+00_rb/)\n      kbo(:,45,11) = (/ &\n     &8.3422e+00_rb,8.5367e+00_rb,8.7092e+00_rb,8.7655e+00_rb,8.7531e+00_rb/)\n      kbo(:,46,11) = (/ &\n     &8.2614e+00_rb,8.4925e+00_rb,8.6796e+00_rb,8.7911e+00_rb,8.7636e+00_rb/)\n      kbo(:,47,11) = (/ &\n     &8.1773e+00_rb,8.4296e+00_rb,8.6376e+00_rb,8.8172e+00_rb,8.7465e+00_rb/)\n      kbo(:,48,11) = (/ &\n     &8.0681e+00_rb,8.3512e+00_rb,8.5867e+00_rb,8.7946e+00_rb,8.7119e+00_rb/)\n      kbo(:,49,11) = (/ &\n     &7.9551e+00_rb,8.2607e+00_rb,8.5307e+00_rb,8.7608e+00_rb,8.6937e+00_rb/)\n      kbo(:,50,11) = (/ &\n     &7.8252e+00_rb,8.1751e+00_rb,8.4616e+00_rb,8.7182e+00_rb,8.6487e+00_rb/)\n      kbo(:,51,11) = (/ &\n     &7.6779e+00_rb,8.0748e+00_rb,8.3664e+00_rb,8.6630e+00_rb,8.6216e+00_rb/)\n      kbo(:,52,11) = (/ &\n     &7.5020e+00_rb,7.9591e+00_rb,8.2751e+00_rb,8.6024e+00_rb,8.6131e+00_rb/)\n      kbo(:,53,11) = (/ &\n     &7.3138e+00_rb,7.8339e+00_rb,8.1806e+00_rb,8.5263e+00_rb,8.5994e+00_rb/)\n      kbo(:,54,11) = (/ &\n     &7.1204e+00_rb,7.6772e+00_rb,8.0838e+00_rb,8.4459e+00_rb,8.6417e+00_rb/)\n      kbo(:,55,11) = (/ &\n     &6.9256e+00_rb,7.5251e+00_rb,7.9750e+00_rb,8.3203e+00_rb,8.6369e+00_rb/)\n      kbo(:,56,11) = (/ &\n     &6.7619e+00_rb,7.3247e+00_rb,7.8477e+00_rb,8.2055e+00_rb,8.5418e+00_rb/)\n      kbo(:,57,11) = (/ &\n     &6.5989e+00_rb,7.1193e+00_rb,7.6865e+00_rb,8.1073e+00_rb,8.4236e+00_rb/)\n      kbo(:,58,11) = (/ &\n     &6.3964e+00_rb,6.9666e+00_rb,7.5354e+00_rb,7.9999e+00_rb,8.3228e+00_rb/)\n      kbo(:,59,11) = (/ &\n     &6.3130e+00_rb,6.9330e+00_rb,7.4209e+00_rb,7.9087e+00_rb,8.2712e+00_rb/)\n      kbo(:,13,12) = (/ &\n     &2.2326e+00_rb,2.2492e+00_rb,2.2166e+00_rb,2.2179e+00_rb,2.3939e+00_rb/)\n      kbo(:,14,12) = (/ &\n     &2.6624e+00_rb,2.8068e+00_rb,2.8766e+00_rb,2.8509e+00_rb,2.8616e+00_rb/)\n      kbo(:,15,12) = (/ &\n     &3.7151e+00_rb,3.8338e+00_rb,3.8710e+00_rb,3.8938e+00_rb,4.0387e+00_rb/)\n      kbo(:,16,12) = (/ &\n     &4.1478e+00_rb,4.2453e+00_rb,4.2845e+00_rb,4.3058e+00_rb,4.4171e+00_rb/)\n      kbo(:,17,12) = (/ &\n     &4.4594e+00_rb,4.5666e+00_rb,4.6335e+00_rb,4.6600e+00_rb,4.7776e+00_rb/)\n      kbo(:,18,12) = (/ &\n     &4.8949e+00_rb,5.0141e+00_rb,5.1198e+00_rb,5.1461e+00_rb,5.2514e+00_rb/)\n      kbo(:,19,12) = (/ &\n     &5.4166e+00_rb,5.5448e+00_rb,5.6541e+00_rb,5.7098e+00_rb,5.7608e+00_rb/)\n      kbo(:,20,12) = (/ &\n     &5.9687e+00_rb,6.1117e+00_rb,6.2318e+00_rb,6.2991e+00_rb,6.3382e+00_rb/)\n      kbo(:,21,12) = (/ &\n     &6.5357e+00_rb,6.6891e+00_rb,6.8185e+00_rb,6.8922e+00_rb,6.9339e+00_rb/)\n      kbo(:,22,12) = (/ &\n     &7.1247e+00_rb,7.2763e+00_rb,7.4121e+00_rb,7.4770e+00_rb,7.5498e+00_rb/)\n      kbo(:,23,12) = (/ &\n     &7.7039e+00_rb,7.8572e+00_rb,7.9884e+00_rb,8.0284e+00_rb,8.1432e+00_rb/)\n      kbo(:,24,12) = (/ &\n     &8.2700e+00_rb,8.4098e+00_rb,8.5280e+00_rb,8.5448e+00_rb,8.6892e+00_rb/)\n      kbo(:,25,12) = (/ &\n     &8.8099e+00_rb,8.9417e+00_rb,9.0327e+00_rb,9.0480e+00_rb,9.1843e+00_rb/)\n      kbo(:,26,12) = (/ &\n     &9.3282e+00_rb,9.4425e+00_rb,9.5016e+00_rb,9.4918e+00_rb,9.6320e+00_rb/)\n      kbo(:,27,12) = (/ &\n     &9.8120e+00_rb,9.9020e+00_rb,9.8963e+00_rb,9.9235e+00_rb,1.0029e+01_rb/)\n      kbo(:,28,12) = (/ &\n     &1.0246e+01_rb,1.0311e+01_rb,1.0256e+01_rb,1.0345e+01_rb,1.0401e+01_rb/)\n      kbo(:,29,12) = (/ &\n     &1.0631e+01_rb,1.0621e+01_rb,1.0577e+01_rb,1.0691e+01_rb,1.0719e+01_rb/)\n      kbo(:,30,12) = (/ &\n     &1.0962e+01_rb,1.0883e+01_rb,1.0936e+01_rb,1.0968e+01_rb,1.0995e+01_rb/)\n      kbo(:,31,12) = (/ &\n     &1.1183e+01_rb,1.1144e+01_rb,1.1216e+01_rb,1.1241e+01_rb,1.1250e+01_rb/)\n      kbo(:,32,12) = (/ &\n     &1.1390e+01_rb,1.1439e+01_rb,1.1434e+01_rb,1.1471e+01_rb,1.1430e+01_rb/)\n      kbo(:,33,12) = (/ &\n     &1.1588e+01_rb,1.1624e+01_rb,1.1599e+01_rb,1.1614e+01_rb,1.1630e+01_rb/)\n      kbo(:,34,12) = (/ &\n     &1.1823e+01_rb,1.1780e+01_rb,1.1748e+01_rb,1.1805e+01_rb,1.1825e+01_rb/)\n      kbo(:,35,12) = (/ &\n     &1.1935e+01_rb,1.1885e+01_rb,1.1934e+01_rb,1.1981e+01_rb,1.2011e+01_rb/)\n      kbo(:,36,12) = (/ &\n     &1.2055e+01_rb,1.2055e+01_rb,1.2092e+01_rb,1.2129e+01_rb,1.2083e+01_rb/)\n      kbo(:,37,12) = (/ &\n     &1.2143e+01_rb,1.2189e+01_rb,1.2217e+01_rb,1.2211e+01_rb,1.2038e+01_rb/)\n      kbo(:,38,12) = (/ &\n     &1.2240e+01_rb,1.2287e+01_rb,1.2320e+01_rb,1.2293e+01_rb,1.1958e+01_rb/)\n      kbo(:,39,12) = (/ &\n     &1.2384e+01_rb,1.2401e+01_rb,1.2395e+01_rb,1.2388e+01_rb,1.1943e+01_rb/)\n      kbo(:,40,12) = (/ &\n     &1.2464e+01_rb,1.2479e+01_rb,1.2477e+01_rb,1.2446e+01_rb,1.2032e+01_rb/)\n      kbo(:,41,12) = (/ &\n     &1.2528e+01_rb,1.2533e+01_rb,1.2534e+01_rb,1.2503e+01_rb,1.2103e+01_rb/)\n      kbo(:,42,12) = (/ &\n     &1.2585e+01_rb,1.2609e+01_rb,1.2591e+01_rb,1.2562e+01_rb,1.2170e+01_rb/)\n      kbo(:,43,12) = (/ &\n     &1.2648e+01_rb,1.2666e+01_rb,1.2643e+01_rb,1.2594e+01_rb,1.2252e+01_rb/)\n      kbo(:,44,12) = (/ &\n     &1.2682e+01_rb,1.2728e+01_rb,1.2701e+01_rb,1.2655e+01_rb,1.2340e+01_rb/)\n      kbo(:,45,12) = (/ &\n     &1.2706e+01_rb,1.2763e+01_rb,1.2739e+01_rb,1.2702e+01_rb,1.2417e+01_rb/)\n      kbo(:,46,12) = (/ &\n     &1.2744e+01_rb,1.2798e+01_rb,1.2795e+01_rb,1.2773e+01_rb,1.2516e+01_rb/)\n      kbo(:,47,12) = (/ &\n     &1.2744e+01_rb,1.2852e+01_rb,1.2846e+01_rb,1.2816e+01_rb,1.2652e+01_rb/)\n      kbo(:,48,12) = (/ &\n     &1.2714e+01_rb,1.2860e+01_rb,1.2886e+01_rb,1.2860e+01_rb,1.2772e+01_rb/)\n      kbo(:,49,12) = (/ &\n     &1.2667e+01_rb,1.2862e+01_rb,1.2927e+01_rb,1.2926e+01_rb,1.2873e+01_rb/)\n      kbo(:,50,12) = (/ &\n     &1.2568e+01_rb,1.2858e+01_rb,1.2953e+01_rb,1.2955e+01_rb,1.2993e+01_rb/)\n      kbo(:,51,12) = (/ &\n     &1.2506e+01_rb,1.2803e+01_rb,1.2982e+01_rb,1.2983e+01_rb,1.3071e+01_rb/)\n      kbo(:,52,12) = (/ &\n     &1.2444e+01_rb,1.2786e+01_rb,1.2969e+01_rb,1.3005e+01_rb,1.3112e+01_rb/)\n      kbo(:,53,12) = (/ &\n     &1.2352e+01_rb,1.2737e+01_rb,1.2961e+01_rb,1.3024e+01_rb,1.3150e+01_rb/)\n      kbo(:,54,12) = (/ &\n     &1.2273e+01_rb,1.2640e+01_rb,1.2911e+01_rb,1.3015e+01_rb,1.3144e+01_rb/)\n      kbo(:,55,12) = (/ &\n     &1.2241e+01_rb,1.2456e+01_rb,1.2830e+01_rb,1.3015e+01_rb,1.3103e+01_rb/)\n      kbo(:,56,12) = (/ &\n     &1.2129e+01_rb,1.2403e+01_rb,1.2744e+01_rb,1.2955e+01_rb,1.3054e+01_rb/)\n      kbo(:,57,12) = (/ &\n     &1.1983e+01_rb,1.2327e+01_rb,1.2603e+01_rb,1.2910e+01_rb,1.3056e+01_rb/)\n      kbo(:,58,12) = (/ &\n     &1.1825e+01_rb,1.2269e+01_rb,1.2506e+01_rb,1.2817e+01_rb,1.3023e+01_rb/)\n      kbo(:,59,12) = (/ &\n     &1.1756e+01_rb,1.2243e+01_rb,1.2496e+01_rb,1.2736e+01_rb,1.2923e+01_rb/)\n      kbo(:,13,13) = (/ &\n     &2.4382e+00_rb,2.5269e+00_rb,2.6487e+00_rb,2.6115e+00_rb,2.6014e+00_rb/)\n      kbo(:,14,13) = (/ &\n     &3.1530e+00_rb,3.3624e+00_rb,3.5863e+00_rb,3.8586e+00_rb,4.4708e+00_rb/)\n      kbo(:,15,13) = (/ &\n     &5.2015e+00_rb,5.3405e+00_rb,5.5020e+00_rb,5.5114e+00_rb,5.5124e+00_rb/)\n      kbo(:,16,13) = (/ &\n     &5.7225e+00_rb,5.8966e+00_rb,6.0571e+00_rb,6.0559e+00_rb,6.0668e+00_rb/)\n      kbo(:,17,13) = (/ &\n     &6.2716e+00_rb,6.4422e+00_rb,6.5990e+00_rb,6.6435e+00_rb,6.5757e+00_rb/)\n      kbo(:,18,13) = (/ &\n     &6.7715e+00_rb,6.9371e+00_rb,7.0939e+00_rb,7.1586e+00_rb,7.0596e+00_rb/)\n      kbo(:,19,13) = (/ &\n     &7.2728e+00_rb,7.4403e+00_rb,7.6008e+00_rb,7.7026e+00_rb,7.6789e+00_rb/)\n      kbo(:,20,13) = (/ &\n     &7.8570e+00_rb,8.0286e+00_rb,8.1992e+00_rb,8.3169e+00_rb,8.3122e+00_rb/)\n      kbo(:,21,13) = (/ &\n     &8.5574e+00_rb,8.7300e+00_rb,8.9004e+00_rb,9.0231e+00_rb,9.0274e+00_rb/)\n      kbo(:,22,13) = (/ &\n     &9.3806e+00_rb,9.5518e+00_rb,9.7137e+00_rb,9.8169e+00_rb,9.7877e+00_rb/)\n      kbo(:,23,13) = (/ &\n     &1.0275e+01_rb,1.0446e+01_rb,1.0597e+01_rb,1.0672e+01_rb,1.0640e+01_rb/)\n      kbo(:,24,13) = (/ &\n     &1.1189e+01_rb,1.1360e+01_rb,1.1491e+01_rb,1.1535e+01_rb,1.1479e+01_rb/)\n      kbo(:,25,13) = (/ &\n     &1.2097e+01_rb,1.2245e+01_rb,1.2356e+01_rb,1.2332e+01_rb,1.2284e+01_rb/)\n      kbo(:,26,13) = (/ &\n     &1.2961e+01_rb,1.3082e+01_rb,1.3167e+01_rb,1.3081e+01_rb,1.3047e+01_rb/)\n      kbo(:,27,13) = (/ &\n     &1.3759e+01_rb,1.3850e+01_rb,1.3907e+01_rb,1.3774e+01_rb,1.3731e+01_rb/)\n      kbo(:,28,13) = (/ &\n     &1.4487e+01_rb,1.4544e+01_rb,1.4510e+01_rb,1.4345e+01_rb,1.4410e+01_rb/)\n      kbo(:,29,13) = (/ &\n     &1.5131e+01_rb,1.5152e+01_rb,1.4989e+01_rb,1.4893e+01_rb,1.4931e+01_rb/)\n      kbo(:,30,13) = (/ &\n     &1.5691e+01_rb,1.5628e+01_rb,1.5428e+01_rb,1.5458e+01_rb,1.5409e+01_rb/)\n      kbo(:,31,13) = (/ &\n     &1.6170e+01_rb,1.5957e+01_rb,1.5859e+01_rb,1.5855e+01_rb,1.5824e+01_rb/)\n      kbo(:,32,13) = (/ &\n     &1.6473e+01_rb,1.6259e+01_rb,1.6330e+01_rb,1.6208e+01_rb,1.6186e+01_rb/)\n      kbo(:,33,13) = (/ &\n     &1.6723e+01_rb,1.6704e+01_rb,1.6654e+01_rb,1.6563e+01_rb,1.6454e+01_rb/)\n      kbo(:,34,13) = (/ &\n     &1.6982e+01_rb,1.6991e+01_rb,1.6942e+01_rb,1.6797e+01_rb,1.6670e+01_rb/)\n      kbo(:,35,13) = (/ &\n     &1.7322e+01_rb,1.7270e+01_rb,1.7135e+01_rb,1.6953e+01_rb,1.6879e+01_rb/)\n      kbo(:,36,13) = (/ &\n     &1.7562e+01_rb,1.7451e+01_rb,1.7282e+01_rb,1.7228e+01_rb,1.7169e+01_rb/)\n      kbo(:,37,13) = (/ &\n     &1.7777e+01_rb,1.7615e+01_rb,1.7471e+01_rb,1.7494e+01_rb,1.7411e+01_rb/)\n      kbo(:,38,13) = (/ &\n     &1.7932e+01_rb,1.7773e+01_rb,1.7733e+01_rb,1.7665e+01_rb,1.7616e+01_rb/)\n      kbo(:,39,13) = (/ &\n     &1.7993e+01_rb,1.7881e+01_rb,1.7968e+01_rb,1.7898e+01_rb,1.7772e+01_rb/)\n      kbo(:,40,13) = (/ &\n     &1.8148e+01_rb,1.8027e+01_rb,1.8107e+01_rb,1.8066e+01_rb,1.7907e+01_rb/)\n      kbo(:,41,13) = (/ &\n     &1.8273e+01_rb,1.8183e+01_rb,1.8251e+01_rb,1.8205e+01_rb,1.8057e+01_rb/)\n      kbo(:,42,13) = (/ &\n     &1.8408e+01_rb,1.8324e+01_rb,1.8378e+01_rb,1.8322e+01_rb,1.8177e+01_rb/)\n      kbo(:,43,13) = (/ &\n     &1.8505e+01_rb,1.8424e+01_rb,1.8497e+01_rb,1.8450e+01_rb,1.8293e+01_rb/)\n      kbo(:,44,13) = (/ &\n     &1.8604e+01_rb,1.8490e+01_rb,1.8578e+01_rb,1.8585e+01_rb,1.8430e+01_rb/)\n      kbo(:,45,13) = (/ &\n     &1.8704e+01_rb,1.8600e+01_rb,1.8704e+01_rb,1.8731e+01_rb,1.8566e+01_rb/)\n      kbo(:,46,13) = (/ &\n     &1.8778e+01_rb,1.8729e+01_rb,1.8813e+01_rb,1.8830e+01_rb,1.8670e+01_rb/)\n      kbo(:,47,13) = (/ &\n     &1.8850e+01_rb,1.8781e+01_rb,1.8910e+01_rb,1.8941e+01_rb,1.8764e+01_rb/)\n      kbo(:,48,13) = (/ &\n     &1.8986e+01_rb,1.8857e+01_rb,1.8976e+01_rb,1.9005e+01_rb,1.8895e+01_rb/)\n      kbo(:,49,13) = (/ &\n     &1.9095e+01_rb,1.9011e+01_rb,1.9061e+01_rb,1.9086e+01_rb,1.9025e+01_rb/)\n      kbo(:,50,13) = (/ &\n     &1.9280e+01_rb,1.9083e+01_rb,1.9157e+01_rb,1.9191e+01_rb,1.9123e+01_rb/)\n      kbo(:,51,13) = (/ &\n     &1.9385e+01_rb,1.9151e+01_rb,1.9215e+01_rb,1.9259e+01_rb,1.9196e+01_rb/)\n      kbo(:,52,13) = (/ &\n     &1.9488e+01_rb,1.9188e+01_rb,1.9260e+01_rb,1.9328e+01_rb,1.9259e+01_rb/)\n      kbo(:,53,13) = (/ &\n     &1.9657e+01_rb,1.9231e+01_rb,1.9381e+01_rb,1.9391e+01_rb,1.9331e+01_rb/)\n      kbo(:,54,13) = (/ &\n     &1.9810e+01_rb,1.9362e+01_rb,1.9357e+01_rb,1.9443e+01_rb,1.9402e+01_rb/)\n      kbo(:,55,13) = (/ &\n     &1.9885e+01_rb,1.9515e+01_rb,1.9337e+01_rb,1.9415e+01_rb,1.9400e+01_rb/)\n      kbo(:,56,13) = (/ &\n     &1.9952e+01_rb,1.9629e+01_rb,1.9325e+01_rb,1.9383e+01_rb,1.9431e+01_rb/)\n      kbo(:,57,13) = (/ &\n     &2.0005e+01_rb,1.9822e+01_rb,1.9466e+01_rb,1.9235e+01_rb,1.9419e+01_rb/)\n      kbo(:,58,13) = (/ &\n     &2.0044e+01_rb,1.9891e+01_rb,1.9520e+01_rb,1.9352e+01_rb,1.9344e+01_rb/)\n      kbo(:,59,13) = (/ &\n     &2.0058e+01_rb,1.9920e+01_rb,1.9627e+01_rb,1.9319e+01_rb,1.9225e+01_rb/)\n      kbo(:,13,14) = (/ &\n     &3.1216e+00_rb,3.1914e+00_rb,3.0899e+00_rb,3.3224e+00_rb,4.2010e+00_rb/)\n      kbo(:,14,14) = (/ &\n     &7.0173e+00_rb,7.2031e+00_rb,7.3581e+00_rb,7.0289e+00_rb,6.9115e+00_rb/)\n      kbo(:,15,14) = (/ &\n     &7.9333e+00_rb,8.1347e+00_rb,8.2980e+00_rb,8.2914e+00_rb,7.9259e+00_rb/)\n      kbo(:,16,14) = (/ &\n     &8.8725e+00_rb,9.0683e+00_rb,9.2568e+00_rb,9.4307e+00_rb,9.0182e+00_rb/)\n      kbo(:,17,14) = (/ &\n     &9.8363e+00_rb,1.0075e+01_rb,1.0298e+01_rb,1.0509e+01_rb,1.0358e+01_rb/)\n      kbo(:,18,14) = (/ &\n     &1.0886e+01_rb,1.1174e+01_rb,1.1435e+01_rb,1.1674e+01_rb,1.1694e+01_rb/)\n      kbo(:,19,14) = (/ &\n     &1.2011e+01_rb,1.2333e+01_rb,1.2632e+01_rb,1.2897e+01_rb,1.3012e+01_rb/)\n      kbo(:,20,14) = (/ &\n     &1.3190e+01_rb,1.3540e+01_rb,1.3861e+01_rb,1.4163e+01_rb,1.4313e+01_rb/)\n      kbo(:,21,14) = (/ &\n     &1.4385e+01_rb,1.4764e+01_rb,1.5119e+01_rb,1.5437e+01_rb,1.5593e+01_rb/)\n      kbo(:,22,14) = (/ &\n     &1.5599e+01_rb,1.6013e+01_rb,1.6388e+01_rb,1.6714e+01_rb,1.6844e+01_rb/)\n      kbo(:,23,14) = (/ &\n     &1.6855e+01_rb,1.7274e+01_rb,1.7644e+01_rb,1.7957e+01_rb,1.7983e+01_rb/)\n      kbo(:,24,14) = (/ &\n     &1.8152e+01_rb,1.8541e+01_rb,1.8882e+01_rb,1.9172e+01_rb,1.9130e+01_rb/)\n      kbo(:,25,14) = (/ &\n     &1.9440e+01_rb,1.9782e+01_rb,2.0084e+01_rb,2.0333e+01_rb,2.0194e+01_rb/)\n      kbo(:,26,14) = (/ &\n     &2.0688e+01_rb,2.0983e+01_rb,2.1232e+01_rb,2.1433e+01_rb,2.1144e+01_rb/)\n      kbo(:,27,14) = (/ &\n     &2.1870e+01_rb,2.2106e+01_rb,2.2296e+01_rb,2.2344e+01_rb,2.1989e+01_rb/)\n      kbo(:,28,14) = (/ &\n     &2.2959e+01_rb,2.3128e+01_rb,2.3255e+01_rb,2.3127e+01_rb,2.2540e+01_rb/)\n      kbo(:,29,14) = (/ &\n     &2.3936e+01_rb,2.4040e+01_rb,2.4108e+01_rb,2.3686e+01_rb,2.3118e+01_rb/)\n      kbo(:,30,14) = (/ &\n     &2.4794e+01_rb,2.4831e+01_rb,2.4631e+01_rb,2.3967e+01_rb,2.3807e+01_rb/)\n      kbo(:,31,14) = (/ &\n     &2.5525e+01_rb,2.5458e+01_rb,2.4921e+01_rb,2.4395e+01_rb,2.4482e+01_rb/)\n      kbo(:,32,14) = (/ &\n     &2.6140e+01_rb,2.5757e+01_rb,2.4988e+01_rb,2.5111e+01_rb,2.5399e+01_rb/)\n      kbo(:,33,14) = (/ &\n     &2.6507e+01_rb,2.5703e+01_rb,2.5535e+01_rb,2.5869e+01_rb,2.6121e+01_rb/)\n      kbo(:,34,14) = (/ &\n     &2.6569e+01_rb,2.5953e+01_rb,2.6151e+01_rb,2.6361e+01_rb,2.6801e+01_rb/)\n      kbo(:,35,14) = (/ &\n     &2.6562e+01_rb,2.6504e+01_rb,2.6810e+01_rb,2.7029e+01_rb,2.7434e+01_rb/)\n      kbo(:,36,14) = (/ &\n     &2.6827e+01_rb,2.6824e+01_rb,2.7232e+01_rb,2.7537e+01_rb,2.7695e+01_rb/)\n      kbo(:,37,14) = (/ &\n     &2.7090e+01_rb,2.7286e+01_rb,2.7649e+01_rb,2.7765e+01_rb,2.8180e+01_rb/)\n      kbo(:,38,14) = (/ &\n     &2.7488e+01_rb,2.7623e+01_rb,2.7893e+01_rb,2.8192e+01_rb,2.8556e+01_rb/)\n      kbo(:,39,14) = (/ &\n     &2.7778e+01_rb,2.8122e+01_rb,2.8064e+01_rb,2.8480e+01_rb,2.8841e+01_rb/)\n      kbo(:,40,14) = (/ &\n     &2.8002e+01_rb,2.8307e+01_rb,2.8286e+01_rb,2.8653e+01_rb,2.9020e+01_rb/)\n      kbo(:,41,14) = (/ &\n     &2.8205e+01_rb,2.8457e+01_rb,2.8430e+01_rb,2.8865e+01_rb,2.9164e+01_rb/)\n      kbo(:,42,14) = (/ &\n     &2.8421e+01_rb,2.8563e+01_rb,2.8567e+01_rb,2.9033e+01_rb,2.9360e+01_rb/)\n      kbo(:,43,14) = (/ &\n     &2.8605e+01_rb,2.8649e+01_rb,2.8746e+01_rb,2.9195e+01_rb,2.9582e+01_rb/)\n      kbo(:,44,14) = (/ &\n     &2.8719e+01_rb,2.8847e+01_rb,2.8915e+01_rb,2.9326e+01_rb,2.9712e+01_rb/)\n      kbo(:,45,14) = (/ &\n     &2.9008e+01_rb,2.9000e+01_rb,2.9085e+01_rb,2.9440e+01_rb,2.9882e+01_rb/)\n      kbo(:,46,14) = (/ &\n     &2.9283e+01_rb,2.9066e+01_rb,2.9214e+01_rb,2.9505e+01_rb,3.0075e+01_rb/)\n      kbo(:,47,14) = (/ &\n     &2.9505e+01_rb,2.9215e+01_rb,2.9192e+01_rb,2.9549e+01_rb,3.0231e+01_rb/)\n      kbo(:,48,14) = (/ &\n     &2.9847e+01_rb,2.9465e+01_rb,2.9377e+01_rb,2.9796e+01_rb,3.0530e+01_rb/)\n      kbo(:,49,14) = (/ &\n     &3.0209e+01_rb,2.9590e+01_rb,2.9613e+01_rb,2.9947e+01_rb,3.0891e+01_rb/)\n      kbo(:,50,14) = (/ &\n     &3.0555e+01_rb,2.9682e+01_rb,2.9721e+01_rb,3.0034e+01_rb,3.0987e+01_rb/)\n      kbo(:,51,14) = (/ &\n     &3.0932e+01_rb,2.9941e+01_rb,2.9791e+01_rb,3.0042e+01_rb,3.0973e+01_rb/)\n      kbo(:,52,14) = (/ &\n     &3.1304e+01_rb,3.0128e+01_rb,2.9896e+01_rb,3.0085e+01_rb,3.1235e+01_rb/)\n      kbo(:,53,14) = (/ &\n     &3.1593e+01_rb,3.0463e+01_rb,3.0008e+01_rb,3.0297e+01_rb,3.1448e+01_rb/)\n      kbo(:,54,14) = (/ &\n     &3.1880e+01_rb,3.0666e+01_rb,3.0079e+01_rb,3.0245e+01_rb,3.1244e+01_rb/)\n      kbo(:,55,14) = (/ &\n     &3.2179e+01_rb,3.1215e+01_rb,3.0197e+01_rb,3.0244e+01_rb,3.0630e+01_rb/)\n      kbo(:,56,14) = (/ &\n     &3.2496e+01_rb,3.1618e+01_rb,3.0405e+01_rb,3.0157e+01_rb,3.0368e+01_rb/)\n      kbo(:,57,14) = (/ &\n     &3.2846e+01_rb,3.1885e+01_rb,3.0675e+01_rb,3.0336e+01_rb,3.0326e+01_rb/)\n      kbo(:,58,14) = (/ &\n     &3.3194e+01_rb,3.2160e+01_rb,3.1205e+01_rb,3.0229e+01_rb,3.0346e+01_rb/)\n      kbo(:,59,14) = (/ &\n     &3.3342e+01_rb,3.2279e+01_rb,3.1453e+01_rb,3.0328e+01_rb,3.0152e+01_rb/)\n      kbo(:,13,15) = (/ &\n     &4.0030e+00_rb,4.7414e+00_rb,5.8560e+00_rb,6.7438e+00_rb,3.2808e+00_rb/)\n      kbo(:,14,15) = (/ &\n     &9.0899e+00_rb,9.4664e+00_rb,9.7823e+00_rb,1.0059e+01_rb,8.9794e+00_rb/)\n      kbo(:,15,15) = (/ &\n     &1.0857e+01_rb,1.1261e+01_rb,1.1617e+01_rb,1.1923e+01_rb,1.1563e+01_rb/)\n      kbo(:,16,15) = (/ &\n     &1.2889e+01_rb,1.3334e+01_rb,1.3725e+01_rb,1.4064e+01_rb,1.4341e+01_rb/)\n      kbo(:,17,15) = (/ &\n     &1.5204e+01_rb,1.5687e+01_rb,1.6115e+01_rb,1.6474e+01_rb,1.6771e+01_rb/)\n      kbo(:,18,15) = (/ &\n     &1.7808e+01_rb,1.8322e+01_rb,1.8770e+01_rb,1.9149e+01_rb,1.9438e+01_rb/)\n      kbo(:,19,15) = (/ &\n     &2.0675e+01_rb,2.1216e+01_rb,2.1671e+01_rb,2.2040e+01_rb,2.2294e+01_rb/)\n      kbo(:,20,15) = (/ &\n     &2.3784e+01_rb,2.4335e+01_rb,2.4780e+01_rb,2.5092e+01_rb,2.5318e+01_rb/)\n      kbo(:,21,15) = (/ &\n     &2.7074e+01_rb,2.7616e+01_rb,2.7992e+01_rb,2.8260e+01_rb,2.8435e+01_rb/)\n      kbo(:,22,15) = (/ &\n     &3.0512e+01_rb,3.0967e+01_rb,3.1281e+01_rb,3.1482e+01_rb,3.1588e+01_rb/)\n      kbo(:,23,15) = (/ &\n     &3.3946e+01_rb,3.4307e+01_rb,3.4554e+01_rb,3.4683e+01_rb,3.4702e+01_rb/)\n      kbo(:,24,15) = (/ &\n     &3.7353e+01_rb,3.7642e+01_rb,3.7797e+01_rb,3.7830e+01_rb,3.7737e+01_rb/)\n      kbo(:,25,15) = (/ &\n     &4.0725e+01_rb,4.0910e+01_rb,4.0948e+01_rb,4.0847e+01_rb,4.0612e+01_rb/)\n      kbo(:,26,15) = (/ &\n     &4.3991e+01_rb,4.4018e+01_rb,4.3898e+01_rb,4.3642e+01_rb,4.3255e+01_rb/)\n      kbo(:,27,15) = (/ &\n     &4.7033e+01_rb,4.6887e+01_rb,4.6594e+01_rb,4.6165e+01_rb,4.5614e+01_rb/)\n      kbo(:,28,15) = (/ &\n     &4.9783e+01_rb,4.9454e+01_rb,4.8983e+01_rb,4.8387e+01_rb,4.7672e+01_rb/)\n      kbo(:,29,15) = (/ &\n     &5.2209e+01_rb,5.1689e+01_rb,5.1048e+01_rb,5.0282e+01_rb,4.9143e+01_rb/)\n      kbo(:,30,15) = (/ &\n     &5.4285e+01_rb,5.3590e+01_rb,5.2778e+01_rb,5.1862e+01_rb,4.9504e+01_rb/)\n      kbo(:,31,15) = (/ &\n     &5.6017e+01_rb,5.5158e+01_rb,5.4192e+01_rb,5.2520e+01_rb,4.8958e+01_rb/)\n      kbo(:,32,15) = (/ &\n     &5.7422e+01_rb,5.6414e+01_rb,5.5126e+01_rb,5.1643e+01_rb,4.7729e+01_rb/)\n      kbo(:,33,15) = (/ &\n     &5.8538e+01_rb,5.7396e+01_rb,5.4438e+01_rb,4.9797e+01_rb,4.8468e+01_rb/)\n      kbo(:,34,15) = (/ &\n     &5.9425e+01_rb,5.7428e+01_rb,5.3101e+01_rb,5.0744e+01_rb,5.0414e+01_rb/)\n      kbo(:,35,15) = (/ &\n     &6.0220e+01_rb,5.6550e+01_rb,5.2246e+01_rb,5.2031e+01_rb,5.2160e+01_rb/)\n      kbo(:,36,15) = (/ &\n     &6.0380e+01_rb,5.6323e+01_rb,5.3290e+01_rb,5.3091e+01_rb,5.1837e+01_rb/)\n      kbo(:,37,15) = (/ &\n     &6.1064e+01_rb,5.6288e+01_rb,5.3962e+01_rb,5.4330e+01_rb,5.1190e+01_rb/)\n      kbo(:,38,15) = (/ &\n     &6.1244e+01_rb,5.6422e+01_rb,5.4974e+01_rb,5.5783e+01_rb,5.0823e+01_rb/)\n      kbo(:,39,15) = (/ &\n     &6.1491e+01_rb,5.6521e+01_rb,5.6495e+01_rb,5.7139e+01_rb,5.0363e+01_rb/)\n      kbo(:,40,15) = (/ &\n     &6.2285e+01_rb,5.7310e+01_rb,5.7143e+01_rb,5.8068e+01_rb,5.1166e+01_rb/)\n      kbo(:,41,15) = (/ &\n     &6.3214e+01_rb,5.7786e+01_rb,5.7889e+01_rb,5.8807e+01_rb,5.2057e+01_rb/)\n      kbo(:,42,15) = (/ &\n     &6.3921e+01_rb,5.8540e+01_rb,5.8564e+01_rb,5.9508e+01_rb,5.2732e+01_rb/)\n      kbo(:,43,15) = (/ &\n     &6.4936e+01_rb,5.9750e+01_rb,5.9252e+01_rb,6.0188e+01_rb,5.3641e+01_rb/)\n      kbo(:,44,15) = (/ &\n     &6.6180e+01_rb,6.0810e+01_rb,5.9653e+01_rb,6.1132e+01_rb,5.4737e+01_rb/)\n      kbo(:,45,15) = (/ &\n     &6.6949e+01_rb,6.1798e+01_rb,5.9966e+01_rb,6.1660e+01_rb,5.5582e+01_rb/)\n      kbo(:,46,15) = (/ &\n     &6.7824e+01_rb,6.2979e+01_rb,6.0686e+01_rb,6.2546e+01_rb,5.6565e+01_rb/)\n      kbo(:,47,15) = (/ &\n     &6.9039e+01_rb,6.4342e+01_rb,6.1803e+01_rb,6.2906e+01_rb,5.8086e+01_rb/)\n      kbo(:,48,15) = (/ &\n     &6.9761e+01_rb,6.5409e+01_rb,6.2421e+01_rb,6.3565e+01_rb,5.8945e+01_rb/)\n      kbo(:,49,15) = (/ &\n     &7.0431e+01_rb,6.6423e+01_rb,6.3050e+01_rb,6.4501e+01_rb,5.9296e+01_rb/)\n      kbo(:,50,15) = (/ &\n     &7.1030e+01_rb,6.7738e+01_rb,6.3115e+01_rb,6.5100e+01_rb,6.0669e+01_rb/)\n      kbo(:,51,15) = (/ &\n     &7.1594e+01_rb,6.8849e+01_rb,6.3996e+01_rb,6.5429e+01_rb,6.2495e+01_rb/)\n      kbo(:,52,15) = (/ &\n     &7.2143e+01_rb,7.0005e+01_rb,6.4776e+01_rb,6.5575e+01_rb,6.3548e+01_rb/)\n      kbo(:,53,15) = (/ &\n     &7.2670e+01_rb,7.0732e+01_rb,6.5046e+01_rb,6.6263e+01_rb,6.4505e+01_rb/)\n      kbo(:,54,15) = (/ &\n     &7.3127e+01_rb,7.1823e+01_rb,6.6914e+01_rb,6.6275e+01_rb,6.7029e+01_rb/)\n      kbo(:,55,15) = (/ &\n     &7.3553e+01_rb,7.2289e+01_rb,6.8950e+01_rb,6.5529e+01_rb,6.7722e+01_rb/)\n      kbo(:,56,15) = (/ &\n     &7.3983e+01_rb,7.2738e+01_rb,7.0656e+01_rb,6.5646e+01_rb,6.6961e+01_rb/)\n      kbo(:,57,15) = (/ &\n     &7.4388e+01_rb,7.3166e+01_rb,7.1848e+01_rb,6.6976e+01_rb,6.6137e+01_rb/)\n      kbo(:,58,15) = (/ &\n     &7.4771e+01_rb,7.3567e+01_rb,7.2279e+01_rb,6.9020e+01_rb,6.5380e+01_rb/)\n      kbo(:,59,15) = (/ &\n     &7.4949e+01_rb,7.3730e+01_rb,7.2460e+01_rb,7.0691e+01_rb,6.5332e+01_rb/)\n      kbo(:,13,16) = (/ &\n     &5.0420e+00_rb,8.6337e+00_rb,8.8692e+00_rb,1.2195e+00_rb,9.3776e-01_rb/)\n      kbo(:,14,16) = (/ &\n     &1.0108e+01_rb,1.0449e+01_rb,1.0740e+01_rb,1.1004e+01_rb,9.1915e-01_rb/)\n      kbo(:,15,16) = (/ &\n     &1.2227e+01_rb,1.2648e+01_rb,1.3007e+01_rb,1.3327e+01_rb,1.3667e+01_rb/)\n      kbo(:,16,16) = (/ &\n     &1.4789e+01_rb,1.5299e+01_rb,1.5728e+01_rb,1.6109e+01_rb,1.6498e+01_rb/)\n      kbo(:,17,16) = (/ &\n     &1.7862e+01_rb,1.8466e+01_rb,1.8964e+01_rb,1.9401e+01_rb,1.9824e+01_rb/)\n      kbo(:,18,16) = (/ &\n     &2.1506e+01_rb,2.2192e+01_rb,2.2762e+01_rb,2.3238e+01_rb,2.3665e+01_rb/)\n      kbo(:,19,16) = (/ &\n     &2.5786e+01_rb,2.6523e+01_rb,2.7142e+01_rb,2.7627e+01_rb,2.8030e+01_rb/)\n      kbo(:,20,16) = (/ &\n     &3.0723e+01_rb,3.1489e+01_rb,3.2109e+01_rb,3.2556e+01_rb,3.2877e+01_rb/)\n      kbo(:,21,16) = (/ &\n     &3.6293e+01_rb,3.7031e+01_rb,3.7583e+01_rb,3.7941e+01_rb,3.8130e+01_rb/)\n      kbo(:,22,16) = (/ &\n     &4.2493e+01_rb,4.3104e+01_rb,4.3485e+01_rb,4.3668e+01_rb,4.3655e+01_rb/)\n      kbo(:,23,16) = (/ &\n     &4.9099e+01_rb,4.9493e+01_rb,4.9618e+01_rb,4.9538e+01_rb,4.9251e+01_rb/)\n      kbo(:,24,16) = (/ &\n     &5.5931e+01_rb,5.5983e+01_rb,5.5792e+01_rb,5.5378e+01_rb,5.4757e+01_rb/)\n      kbo(:,25,16) = (/ &\n     &6.2744e+01_rb,6.2387e+01_rb,6.1774e+01_rb,6.0982e+01_rb,5.9987e+01_rb/)\n      kbo(:,26,16) = (/ &\n     &6.9294e+01_rb,6.8455e+01_rb,6.7400e+01_rb,6.6158e+01_rb,6.4771e+01_rb/)\n      kbo(:,27,16) = (/ &\n     &7.5369e+01_rb,7.4018e+01_rb,7.2501e+01_rb,7.0820e+01_rb,6.9030e+01_rb/)\n      kbo(:,28,16) = (/ &\n     &8.0847e+01_rb,7.8971e+01_rb,7.6973e+01_rb,7.4879e+01_rb,7.2699e+01_rb/)\n      kbo(:,29,16) = (/ &\n     &8.5588e+01_rb,8.3223e+01_rb,8.0777e+01_rb,7.8292e+01_rb,7.5762e+01_rb/)\n      kbo(:,30,16) = (/ &\n     &8.9575e+01_rb,8.6758e+01_rb,8.3320e+01_rb,8.1073e+01_rb,7.8238e+01_rb/)\n      kbo(:,31,16) = (/ &\n     &9.2801e+01_rb,8.9596e+01_rb,8.6404e+01_rb,8.3251e+01_rb,8.0171e+01_rb/)\n      kbo(:,32,16) = (/ &\n     &9.5328e+01_rb,9.1774e+01_rb,8.8298e+01_rb,8.4902e+01_rb,7.6985e+01_rb/)\n      kbo(:,33,16) = (/ &\n     &9.7221e+01_rb,9.3383e+01_rb,8.9667e+01_rb,8.6065e+01_rb,5.8850e+01_rb/)\n      kbo(:,34,16) = (/ &\n     &9.8688e+01_rb,9.4629e+01_rb,9.0722e+01_rb,7.0430e+01_rb,3.0605e+01_rb/)\n      kbo(:,35,16) = (/ &\n     &1.0011e+02_rb,9.5862e+01_rb,8.7207e+01_rb,5.0589e+01_rb,4.4567e+00_rb/)\n      kbo(:,36,16) = (/ &\n     &1.0168e+02_rb,9.7257e+01_rb,7.6588e+01_rb,3.3945e+01_rb,3.3821e-01_rb/)\n      kbo(:,37,16) = (/ &\n     &1.0369e+02_rb,9.9078e+01_rb,7.2492e+01_rb,2.6526e+01_rb,3.3765e-01_rb/)\n      kbo(:,38,16) = (/ &\n     &1.0555e+02_rb,1.0077e+02_rb,6.5594e+01_rb,1.3779e+01_rb,3.3740e-01_rb/)\n      kbo(:,39,16) = (/ &\n     &1.0726e+02_rb,9.7866e+01_rb,5.5055e+01_rb,3.4196e-01_rb,3.3714e-01_rb/)\n      kbo(:,40,16) = (/ &\n     &1.0936e+02_rb,1.0037e+02_rb,5.6740e+01_rb,3.4227e-01_rb,3.3798e-01_rb/)\n      kbo(:,41,16) = (/ &\n     &1.1147e+02_rb,1.0552e+02_rb,5.9119e+01_rb,1.0312e+00_rb,3.3873e-01_rb/)\n      kbo(:,42,16) = (/ &\n     &1.1349e+02_rb,1.0806e+02_rb,6.1522e+01_rb,2.4025e+00_rb,3.3958e-01_rb/)\n      kbo(:,43,16) = (/ &\n     &1.1581e+02_rb,1.1021e+02_rb,6.4818e+01_rb,5.9686e+00_rb,3.4048e-01_rb/)\n      kbo(:,44,16) = (/ &\n     &1.1830e+02_rb,1.1248e+02_rb,7.1730e+01_rb,8.2150e+00_rb,3.4135e-01_rb/)\n      kbo(:,45,16) = (/ &\n     &1.2075e+02_rb,1.1473e+02_rb,7.7444e+01_rb,1.2041e+01_rb,3.1303e-01_rb/)\n      kbo(:,46,16) = (/ &\n     &1.2335e+02_rb,1.1716e+02_rb,8.1949e+01_rb,1.5245e+01_rb,3.1351e-01_rb/)\n      kbo(:,47,16) = (/ &\n     &1.2629e+02_rb,1.1987e+02_rb,8.8206e+01_rb,2.5272e+01_rb,3.1369e-01_rb/)\n      kbo(:,48,16) = (/ &\n     &1.2931e+02_rb,1.2262e+02_rb,9.4686e+01_rb,2.9706e+01_rb,3.1394e-01_rb/)\n      kbo(:,49,16) = (/ &\n     &1.3237e+02_rb,1.2544e+02_rb,9.8342e+01_rb,3.1959e+01_rb,3.1361e-01_rb/)\n      kbo(:,50,16) = (/ &\n     &1.3530e+02_rb,1.2816e+02_rb,1.0881e+02_rb,3.8226e+01_rb,3.1326e-01_rb/)\n      kbo(:,51,16) = (/ &\n     &1.3828e+02_rb,1.3089e+02_rb,1.1491e+02_rb,4.8666e+01_rb,3.1193e-01_rb/)\n      kbo(:,52,16) = (/ &\n     &1.4134e+02_rb,1.3361e+02_rb,1.2195e+02_rb,5.9393e+01_rb,3.1051e-01_rb/)\n      kbo(:,53,16) = (/ &\n     &1.4442e+02_rb,1.3646e+02_rb,1.2918e+02_rb,6.3097e+01_rb,3.0922e-01_rb/)\n      kbo(:,54,16) = (/ &\n     &1.4741e+02_rb,1.3916e+02_rb,1.3165e+02_rb,7.8318e+01_rb,3.0699e-01_rb/)\n      kbo(:,55,16) = (/ &\n     &1.5037e+02_rb,1.4182e+02_rb,1.3403e+02_rb,1.0259e+02_rb,2.6611e+01_rb/)\n      kbo(:,56,16) = (/ &\n     &1.5341e+02_rb,1.4449e+02_rb,1.3650e+02_rb,1.2291e+02_rb,5.4887e+01_rb/)\n      kbo(:,57,16) = (/ &\n     &1.5661e+02_rb,1.4731e+02_rb,1.3904e+02_rb,1.3152e+02_rb,7.9860e+01_rb/)\n      kbo(:,58,16) = (/ &\n     &1.5976e+02_rb,1.5007e+02_rb,1.4153e+02_rb,1.3378e+02_rb,1.0477e+02_rb/)\n      kbo(:,59,16) = (/ &\n     &1.6110e+02_rb,1.5124e+02_rb,1.4255e+02_rb,1.3470e+02_rb,1.2755e+02_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kao_mco2(:, 1) = (/ &\n     & 8.88964e-07_rb, 1.13087e-06_rb, 1.43861e-06_rb, 1.83010e-06_rb, 2.32811e-06_rb, &\n     & 2.96165e-06_rb, 3.76760e-06_rb, 4.79286e-06_rb, 6.09712e-06_rb, 7.75630e-06_rb, &\n     & 9.86699e-06_rb, 1.25521e-05_rb, 1.59678e-05_rb, 2.03130e-05_rb, 2.58407e-05_rb, &\n     & 3.28727e-05_rb, 4.18182e-05_rb, 5.31980e-05_rb, 6.76745e-05_rb/)\n      kao_mco2(:, 2) = (/ &\n     & 1.10492e-05_rb, 1.35003e-05_rb, 1.64952e-05_rb, 2.01545e-05_rb, 2.46256e-05_rb, &\n     & 3.00885e-05_rb, 3.67632e-05_rb, 4.49188e-05_rb, 5.48835e-05_rb, 6.70588e-05_rb, &\n     & 8.19351e-05_rb, 1.00111e-04_rb, 1.22320e-04_rb, 1.49455e-04_rb, 1.82610e-04_rb, &\n     & 2.23121e-04_rb, 2.72618e-04_rb, 3.33095e-04_rb, 4.06988e-04_rb/)\n      kao_mco2(:, 3) = (/ &\n     & 1.51034e-05_rb, 1.81249e-05_rb, 2.17508e-05_rb, 2.61020e-05_rb, 3.13238e-05_rb, &\n     & 3.75901e-05_rb, 4.51101e-05_rb, 5.41344e-05_rb, 6.49640e-05_rb, 7.79601e-05_rb, &\n     & 9.35562e-05_rb, 1.12272e-04_rb, 1.34732e-04_rb, 1.61686e-04_rb, 1.94031e-04_rb, &\n     & 2.32847e-04_rb, 2.79429e-04_rb, 3.35329e-04_rb, 4.02411e-04_rb/)\n      kao_mco2(:, 4) = (/ &\n     & 1.57088e-05_rb, 1.89537e-05_rb, 2.28688e-05_rb, 2.75928e-05_rb, 3.32924e-05_rb, &\n     & 4.01695e-05_rb, 4.84671e-05_rb, 5.84787e-05_rb, 7.05584e-05_rb, 8.51332e-05_rb, &\n     & 1.02719e-04_rb, 1.23937e-04_rb, 1.49538e-04_rb, 1.80427e-04_rb, 2.17697e-04_rb, &\n     & 2.62666e-04_rb, 3.16923e-04_rb, 3.82388e-04_rb, 4.61376e-04_rb/)\n      kao_mco2(:, 5) = (/ &\n     & 3.09299e-05_rb, 3.73196e-05_rb, 4.50294e-05_rb, 5.43320e-05_rb, 6.55563e-05_rb, &\n     & 7.90995e-05_rb, 9.54405e-05_rb, 1.15157e-04_rb, 1.38948e-04_rb, 1.67652e-04_rb, &\n     & 2.02288e-04_rb, 2.44078e-04_rb, 2.94501e-04_rb, 3.55342e-04_rb, 4.28751e-04_rb, &\n     & 5.17327e-04_rb, 6.24200e-04_rb, 7.53153e-04_rb, 9.08745e-04_rb/)\n      kao_mco2(:, 6) = (/ &\n     & 1.98653e-05_rb, 2.38878e-05_rb, 2.87248e-05_rb, 3.45413e-05_rb, 4.15355e-05_rb, &\n     & 4.99459e-05_rb, 6.00593e-05_rb, 7.22206e-05_rb, 8.68445e-05_rb, 1.04429e-04_rb, &\n     & 1.25575e-04_rb, 1.51003e-04_rb, 1.81579e-04_rb, 2.18346e-04_rb, 2.62559e-04_rb, &\n     & 3.15724e-04_rb, 3.79654e-04_rb, 4.56529e-04_rb, 5.48971e-04_rb/)\n      kao_mco2(:, 7) = (/ &\n     & 1.54276e-06_rb, 1.90144e-06_rb, 2.34351e-06_rb, 2.88836e-06_rb, 3.55989e-06_rb, &\n     & 4.38754e-06_rb, 5.40761e-06_rb, 6.66485e-06_rb, 8.21439e-06_rb, 1.01242e-05_rb, &\n     & 1.24780e-05_rb, 1.53790e-05_rb, 1.89546e-05_rb, 2.33614e-05_rb, 2.87928e-05_rb, &\n     & 3.54869e-05_rb, 4.37374e-05_rb, 5.39060e-05_rb, 6.64388e-05_rb/)\n      kao_mco2(:, 8) = (/ &\n     & 1.66907e-06_rb, 2.11106e-06_rb, 2.67008e-06_rb, 3.37714e-06_rb, 4.27143e-06_rb, &\n     & 5.40254e-06_rb, 6.83318e-06_rb, 8.64266e-06_rb, 1.09313e-05_rb, 1.38260e-05_rb, &\n     & 1.74872e-05_rb, 2.21180e-05_rb, 2.79750e-05_rb, 3.53830e-05_rb, 4.47527e-05_rb, &\n     & 5.66036e-05_rb, 7.15927e-05_rb, 9.05509e-05_rb, 1.14529e-04_rb/)\n      kao_mco2(:, 9) = (/ &\n     & 1.22817e-06_rb, 1.56416e-06_rb, 1.99206e-06_rb, 2.53703e-06_rb, 3.23108e-06_rb, &\n     & 4.11501e-06_rb, 5.24074e-06_rb, 6.67445e-06_rb, 8.50037e-06_rb, 1.08258e-05_rb, &\n     & 1.37874e-05_rb, 1.75592e-05_rb, 2.23629e-05_rb, 2.84807e-05_rb, 3.62721e-05_rb, &\n     & 4.61950e-05_rb, 5.88325e-05_rb, 7.49272e-05_rb, 9.54249e-05_rb/)\n      kao_mco2(:,10) = (/ &\n     & 3.45943e-08_rb, 3.84726e-08_rb, 4.27856e-08_rb, 4.75821e-08_rb, 5.29164e-08_rb, &\n     & 5.88487e-08_rb, 6.54460e-08_rb, 7.27829e-08_rb, 8.09423e-08_rb, 9.00164e-08_rb, &\n     & 1.00108e-07_rb, 1.11331e-07_rb, 1.23811e-07_rb, 1.37691e-07_rb, 1.53128e-07_rb, &\n     & 1.70294e-07_rb, 1.89385e-07_rb, 2.10616e-07_rb, 2.34228e-07_rb/)\n      kao_mco2(:,11) = (/ &\n     & 2.89971e-08_rb, 3.35110e-08_rb, 3.87275e-08_rb, 4.47561e-08_rb, 5.17230e-08_rb, &\n     & 5.97745e-08_rb, 6.90794e-08_rb, 7.98327e-08_rb, 9.22599e-08_rb, 1.06622e-07_rb, &\n     & 1.23219e-07_rb, 1.42400e-07_rb, 1.64567e-07_rb, 1.90184e-07_rb, 2.19789e-07_rb, &\n     & 2.54003e-07_rb, 2.93542e-07_rb, 3.39237e-07_rb, 3.92044e-07_rb/)\n      kao_mco2(:,12) = (/ &\n     & 2.51330e-08_rb, 2.96783e-08_rb, 3.50457e-08_rb, 4.13837e-08_rb, 4.88679e-08_rb, &\n     & 5.77056e-08_rb, 6.81416e-08_rb, 8.04650e-08_rb, 9.50171e-08_rb, 1.12201e-07_rb, &\n     & 1.32492e-07_rb, 1.56454e-07_rb, 1.84748e-07_rb, 2.18160e-07_rb, 2.57614e-07_rb, &\n     & 3.04203e-07_rb, 3.59218e-07_rb, 4.24182e-07_rb, 5.00895e-07_rb/)\n      kao_mco2(:,13) = (/ &\n     & 1.16966e-07_rb, 1.13960e-07_rb, 1.11032e-07_rb, 1.08179e-07_rb, 1.05400e-07_rb, &\n     & 1.02691e-07_rb, 1.00053e-07_rb, 9.74820e-08_rb, 9.49772e-08_rb, 9.25368e-08_rb, &\n     & 9.01591e-08_rb, 8.78425e-08_rb, 8.55854e-08_rb, 8.33863e-08_rb, 8.12437e-08_rb, &\n     & 7.91562e-08_rb, 7.71223e-08_rb, 7.51407e-08_rb, 7.32100e-08_rb/)\n      kao_mco2(:,14) = (/ &\n     & 9.17853e-08_rb, 8.94322e-08_rb, 8.71395e-08_rb, 8.49055e-08_rb, 8.27289e-08_rb, &\n     & 8.06080e-08_rb, 7.85415e-08_rb, 7.65279e-08_rb, 7.45660e-08_rb, 7.26544e-08_rb, &\n     & 7.07918e-08_rb, 6.89770e-08_rb, 6.72086e-08_rb, 6.54856e-08_rb, 6.38068e-08_rb, &\n     & 6.21710e-08_rb, 6.05772e-08_rb, 5.90242e-08_rb, 5.75110e-08_rb/)\n      kao_mco2(:,15) = (/ &\n     & 8.34607e-08_rb, 8.13236e-08_rb, 7.92413e-08_rb, 7.72122e-08_rb, 7.52351e-08_rb, &\n     & 7.33087e-08_rb, 7.14315e-08_rb, 6.96025e-08_rb, 6.78202e-08_rb, 6.60837e-08_rb, &\n     & 6.43915e-08_rb, 6.27427e-08_rb, 6.11361e-08_rb, 5.95707e-08_rb, 5.80453e-08_rb, &\n     & 5.65590e-08_rb, 5.51108e-08_rb, 5.36996e-08_rb, 5.23246e-08_rb/)\n      kao_mco2(:,16) = (/ &\n     & 8.34607e-08_rb, 8.13236e-08_rb, 7.92413e-08_rb, 7.72122e-08_rb, 7.52351e-08_rb, &\n     & 7.33087e-08_rb, 7.14315e-08_rb, 6.96025e-08_rb, 6.78202e-08_rb, 6.60837e-08_rb, &\n     & 6.43915e-08_rb, 6.27427e-08_rb, 6.11361e-08_rb, 5.95707e-08_rb, 5.80453e-08_rb, &\n     & 5.65590e-08_rb, 5.51108e-08_rb, 5.36996e-08_rb, 5.23246e-08_rb/)\n      kao_mo3(:, 1) = (/ &\n     & 1.18276e-01_rb, 1.18009e-01_rb, 1.17742e-01_rb, 1.17476e-01_rb, 1.17210e-01_rb, &\n     & 1.16945e-01_rb, 1.16681e-01_rb, 1.16417e-01_rb, 1.16153e-01_rb, 1.15891e-01_rb, &\n     & 1.15629e-01_rb, 1.15367e-01_rb, 1.15106e-01_rb, 1.14846e-01_rb, 1.14586e-01_rb, &\n     & 1.14327e-01_rb, 1.14069e-01_rb, 1.13811e-01_rb, 1.13553e-01_rb/)\n      kao_mo3(:, 2) = (/ &\n     & 1.83777e-01_rb, 1.84268e-01_rb, 1.84761e-01_rb, 1.85255e-01_rb, 1.85751e-01_rb, &\n     & 1.86248e-01_rb, 1.86746e-01_rb, 1.87245e-01_rb, 1.87746e-01_rb, 1.88248e-01_rb, &\n     & 1.88752e-01_rb, 1.89257e-01_rb, 1.89763e-01_rb, 1.90270e-01_rb, 1.90779e-01_rb, &\n     & 1.91290e-01_rb, 1.91801e-01_rb, 1.92314e-01_rb, 1.92829e-01_rb/)\n      kao_mo3(:, 3) = (/ &\n     & 2.33414e-01_rb, 2.34511e-01_rb, 2.35614e-01_rb, 2.36722e-01_rb, 2.37836e-01_rb, &\n     & 2.38954e-01_rb, 2.40078e-01_rb, 2.41207e-01_rb, 2.42342e-01_rb, 2.43481e-01_rb, &\n     & 2.44626e-01_rb, 2.45777e-01_rb, 2.46933e-01_rb, 2.48094e-01_rb, 2.49261e-01_rb, &\n     & 2.50433e-01_rb, 2.51611e-01_rb, 2.52794e-01_rb, 2.53983e-01_rb/)\n      kao_mo3(:, 4) = (/ &\n     & 2.84906e-01_rb, 2.87358e-01_rb, 2.89832e-01_rb, 2.92328e-01_rb, 2.94844e-01_rb, &\n     & 2.97383e-01_rb, 2.99943e-01_rb, 3.02525e-01_rb, 3.05130e-01_rb, 3.07757e-01_rb, &\n     & 3.10406e-01_rb, 3.13078e-01_rb, 3.15774e-01_rb, 3.18492e-01_rb, 3.21234e-01_rb, &\n     & 3.24000e-01_rb, 3.26789e-01_rb, 3.29603e-01_rb, 3.32440e-01_rb/)\n      kao_mo3(:, 5) = (/ &\n     & 3.40508e-01_rb, 3.44095e-01_rb, 3.47720e-01_rb, 3.51383e-01_rb, 3.55084e-01_rb, &\n     & 3.58824e-01_rb, 3.62604e-01_rb, 3.66424e-01_rb, 3.70284e-01_rb, 3.74184e-01_rb, &\n     & 3.78126e-01_rb, 3.82109e-01_rb, 3.86134e-01_rb, 3.90202e-01_rb, 3.94312e-01_rb, &\n     & 3.98466e-01_rb, 4.02663e-01_rb, 4.06905e-01_rb, 4.11191e-01_rb/)\n      kao_mo3(:, 6) = (/ &\n     & 3.78368e-01_rb, 3.83690e-01_rb, 3.89086e-01_rb, 3.94558e-01_rb, 4.00107e-01_rb, &\n     & 4.05735e-01_rb, 4.11441e-01_rb, 4.17227e-01_rb, 4.23095e-01_rb, 4.29046e-01_rb, &\n     & 4.35080e-01_rb, 4.41199e-01_rb, 4.47404e-01_rb, 4.53697e-01_rb, 4.60078e-01_rb, &\n     & 4.66548e-01_rb, 4.73110e-01_rb, 4.79764e-01_rb, 4.86511e-01_rb/)\n      kao_mo3(:, 7) = (/ &\n     & 4.51965e-01_rb, 4.58461e-01_rb, 4.65051e-01_rb, 4.71735e-01_rb, 4.78516e-01_rb, &\n     & 4.85394e-01_rb, 4.92371e-01_rb, 4.99448e-01_rb, 5.06627e-01_rb, 5.13909e-01_rb, &\n     & 5.21296e-01_rb, 5.28789e-01_rb, 5.36390e-01_rb, 5.44100e-01_rb, 5.51920e-01_rb, &\n     & 5.59854e-01_rb, 5.67901e-01_rb, 5.76064e-01_rb, 5.84344e-01_rb/)\n      kao_mo3(:, 8) = (/ &\n     & 3.00557e-01_rb, 3.03974e-01_rb, 3.07430e-01_rb, 3.10925e-01_rb, 3.14460e-01_rb, &\n     & 3.18035e-01_rb, 3.21651e-01_rb, 3.25307e-01_rb, 3.29006e-01_rb, 3.32746e-01_rb, &\n     & 3.36529e-01_rb, 3.40355e-01_rb, 3.44224e-01_rb, 3.48137e-01_rb, 3.52095e-01_rb, &\n     & 3.56098e-01_rb, 3.60146e-01_rb, 3.64241e-01_rb, 3.68381e-01_rb/)\n      kao_mo3(:, 9) = (/ &\n     & 2.10042e-01_rb, 2.12905e-01_rb, 2.15806e-01_rb, 2.18748e-01_rb, 2.21729e-01_rb, &\n     & 2.24751e-01_rb, 2.27814e-01_rb, 2.30919e-01_rb, 2.34066e-01_rb, 2.37256e-01_rb, &\n     & 2.40489e-01_rb, 2.43767e-01_rb, 2.47089e-01_rb, 2.50457e-01_rb, 2.53870e-01_rb, &\n     & 2.57330e-01_rb, 2.60837e-01_rb, 2.64392e-01_rb, 2.67996e-01_rb/)\n      kao_mo3(:,10) = (/ &\n     & 2.09288e-01_rb, 2.11759e-01_rb, 2.14259e-01_rb, 2.16789e-01_rb, 2.19349e-01_rb, &\n     & 2.21939e-01_rb, 2.24559e-01_rb, 2.27210e-01_rb, 2.29893e-01_rb, 2.32607e-01_rb, &\n     & 2.35354e-01_rb, 2.38133e-01_rb, 2.40944e-01_rb, 2.43789e-01_rb, 2.46667e-01_rb, &\n     & 2.49580e-01_rb, 2.52527e-01_rb, 2.55508e-01_rb, 2.58525e-01_rb/)\n      kao_mo3(:,11) = (/ &\n     & 2.28947e-01_rb, 2.30609e-01_rb, 2.32283e-01_rb, 2.33969e-01_rb, 2.35667e-01_rb, &\n     & 2.37378e-01_rb, 2.39101e-01_rb, 2.40836e-01_rb, 2.42584e-01_rb, 2.44345e-01_rb, &\n     & 2.46118e-01_rb, 2.47905e-01_rb, 2.49704e-01_rb, 2.51516e-01_rb, 2.53342e-01_rb, &\n     & 2.55181e-01_rb, 2.57033e-01_rb, 2.58899e-01_rb, 2.60778e-01_rb/)\n      kao_mo3(:,12) = (/ &\n     & 2.57263e-01_rb, 2.58272e-01_rb, 2.59285e-01_rb, 2.60302e-01_rb, 2.61323e-01_rb, &\n     & 2.62347e-01_rb, 2.63376e-01_rb, 2.64409e-01_rb, 2.65446e-01_rb, 2.66487e-01_rb, &\n     & 2.67532e-01_rb, 2.68581e-01_rb, 2.69635e-01_rb, 2.70692e-01_rb, 2.71753e-01_rb, &\n     & 2.72819e-01_rb, 2.73889e-01_rb, 2.74963e-01_rb, 2.76042e-01_rb/)\n      kao_mo3(:,13) = (/ &\n     & 2.43322e-01_rb, 2.45918e-01_rb, 2.48541e-01_rb, 2.51192e-01_rb, 2.53872e-01_rb, &\n     & 2.56580e-01_rb, 2.59317e-01_rb, 2.62083e-01_rb, 2.64879e-01_rb, 2.67704e-01_rb, &\n     & 2.70560e-01_rb, 2.73446e-01_rb, 2.76363e-01_rb, 2.79311e-01_rb, 2.82290e-01_rb, &\n     & 2.85302e-01_rb, 2.88345e-01_rb, 2.91421e-01_rb, 2.94529e-01_rb/)\n      kao_mo3(:,14) = (/ &\n     & 2.10568e-01_rb, 2.16529e-01_rb, 2.22660e-01_rb, 2.28964e-01_rb, 2.35446e-01_rb, &\n     & 2.42113e-01_rb, 2.48967e-01_rb, 2.56016e-01_rb, 2.63265e-01_rb, 2.70719e-01_rb, &\n     & 2.78383e-01_rb, 2.86265e-01_rb, 2.94370e-01_rb, 3.02704e-01_rb, 3.11275e-01_rb, &\n     & 3.20088e-01_rb, 3.29150e-01_rb, 3.38470e-01_rb, 3.48052e-01_rb/)\n      kao_mo3(:,15) = (/ &\n     & 2.60406e-02_rb, 2.78779e-02_rb, 2.98448e-02_rb, 3.19505e-02_rb, 3.42048e-02_rb, &\n     & 3.66181e-02_rb, 3.92017e-02_rb, 4.19675e-02_rb, 4.49285e-02_rb, 4.80985e-02_rb, &\n     & 5.14920e-02_rb, 5.51250e-02_rb, 5.90143e-02_rb, 6.31781e-02_rb, 6.76356e-02_rb, &\n     & 7.24076e-02_rb, 7.75163e-02_rb, 8.29854e-02_rb, 8.88404e-02_rb/)\n      kao_mo3(:,16) = (/ &\n     & 2.31483e-02_rb, 2.46840e-02_rb, 2.63217e-02_rb, 2.80681e-02_rb, 2.99302e-02_rb, &\n     & 3.19160e-02_rb, 3.40335e-02_rb, 3.62914e-02_rb, 3.86992e-02_rb, 4.12668e-02_rb, &\n     & 4.40046e-02_rb, 4.69242e-02_rb, 5.00374e-02_rb, 5.33571e-02_rb, 5.68971e-02_rb, &\n     & 6.06720e-02_rb, 6.46974e-02_rb, 6.89897e-02_rb, 7.35669e-02_rb/)\n      kao_mn2o(:, 1) = (/ &\n     & 3.02276e-02_rb, 3.10321e-02_rb, 3.18580e-02_rb, 3.27059e-02_rb, 3.35764e-02_rb, &\n     & 3.44700e-02_rb, 3.53875e-02_rb, 3.63293e-02_rb, 3.72962e-02_rb, 3.82889e-02_rb, &\n     & 3.93079e-02_rb, 4.03541e-02_rb, 4.14281e-02_rb, 4.25307e-02_rb, 4.36627e-02_rb, &\n     & 4.48248e-02_rb, 4.60178e-02_rb, 4.72425e-02_rb, 4.84999e-02_rb/)\n      kao_mn2o(:, 2) = (/ &\n     & 6.10132e-02_rb, 6.17435e-02_rb, 6.24825e-02_rb, 6.32304e-02_rb, 6.39872e-02_rb, &\n     & 6.47531e-02_rb, 6.55281e-02_rb, 6.63124e-02_rb, 6.71061e-02_rb, 6.79093e-02_rb, &\n     & 6.87221e-02_rb, 6.95446e-02_rb, 7.03770e-02_rb, 7.12194e-02_rb, 7.20718e-02_rb, &\n     & 7.29344e-02_rb, 7.38074e-02_rb, 7.46908e-02_rb, 7.55848e-02_rb/)\n      kao_mn2o(:, 3) = (/ &\n     & 1.04479e-01_rb, 1.05566e-01_rb, 1.06664e-01_rb, 1.07774e-01_rb, 1.08895e-01_rb, &\n     & 1.10028e-01_rb, 1.11173e-01_rb, 1.12329e-01_rb, 1.13498e-01_rb, 1.14679e-01_rb, &\n     & 1.15872e-01_rb, 1.17077e-01_rb, 1.18295e-01_rb, 1.19526e-01_rb, 1.20770e-01_rb, &\n     & 1.22026e-01_rb, 1.23296e-01_rb, 1.24578e-01_rb, 1.25875e-01_rb/)\n      kao_mn2o(:, 4) = (/ &\n     & 2.07260e-01_rb, 2.08126e-01_rb, 2.08996e-01_rb, 2.09869e-01_rb, 2.10746e-01_rb, &\n     & 2.11627e-01_rb, 2.12511e-01_rb, 2.13399e-01_rb, 2.14291e-01_rb, 2.15187e-01_rb, &\n     & 2.16086e-01_rb, 2.16989e-01_rb, 2.17896e-01_rb, 2.18807e-01_rb, 2.19721e-01_rb, &\n     & 2.20640e-01_rb, 2.21562e-01_rb, 2.22488e-01_rb, 2.23418e-01_rb/)\n      kao_mn2o(:, 5) = (/ &\n     & 3.71566e-01_rb, 3.71353e-01_rb, 3.71141e-01_rb, 3.70928e-01_rb, 3.70716e-01_rb, &\n     & 3.70504e-01_rb, 3.70292e-01_rb, 3.70080e-01_rb, 3.69869e-01_rb, 3.69657e-01_rb, &\n     & 3.69446e-01_rb, 3.69234e-01_rb, 3.69023e-01_rb, 3.68812e-01_rb, 3.68601e-01_rb, &\n     & 3.68390e-01_rb, 3.68179e-01_rb, 3.67969e-01_rb, 3.67758e-01_rb/)\n      kao_mn2o(:, 6) = (/ &\n     & 5.28092e-01_rb, 5.27262e-01_rb, 5.26433e-01_rb, 5.25605e-01_rb, 5.24779e-01_rb, &\n     & 5.23954e-01_rb, 5.23130e-01_rb, 5.22307e-01_rb, 5.21486e-01_rb, 5.20666e-01_rb, &\n     & 5.19847e-01_rb, 5.19030e-01_rb, 5.18214e-01_rb, 5.17399e-01_rb, 5.16586e-01_rb, &\n     & 5.15773e-01_rb, 5.14962e-01_rb, 5.14153e-01_rb, 5.13344e-01_rb/)\n      kao_mn2o(:, 7) = (/ &\n     & 3.88140e-01_rb, 3.87956e-01_rb, 3.87773e-01_rb, 3.87590e-01_rb, 3.87407e-01_rb, &\n     & 3.87224e-01_rb, 3.87041e-01_rb, 3.86858e-01_rb, 3.86675e-01_rb, 3.86492e-01_rb, &\n     & 3.86310e-01_rb, 3.86127e-01_rb, 3.85945e-01_rb, 3.85763e-01_rb, 3.85580e-01_rb, &\n     & 3.85398e-01_rb, 3.85216e-01_rb, 3.85034e-01_rb, 3.84852e-01_rb/)\n      kao_mn2o(:, 8) = (/ &\n     & 3.12991e-01_rb, 3.12246e-01_rb, 3.11504e-01_rb, 3.10763e-01_rb, 3.10024e-01_rb, &\n     & 3.09287e-01_rb, 3.08552e-01_rb, 3.07818e-01_rb, 3.07086e-01_rb, 3.06356e-01_rb, &\n     & 3.05628e-01_rb, 3.04901e-01_rb, 3.04176e-01_rb, 3.03453e-01_rb, 3.02732e-01_rb, &\n     & 3.02012e-01_rb, 3.01294e-01_rb, 3.00577e-01_rb, 2.99863e-01_rb/)\n      kao_mn2o(:, 9) = (/ &\n     & 4.11761e-01_rb, 4.11309e-01_rb, 4.10858e-01_rb, 4.10407e-01_rb, 4.09957e-01_rb, &\n     & 4.09507e-01_rb, 4.09057e-01_rb, 4.08608e-01_rb, 4.08160e-01_rb, 4.07712e-01_rb, &\n     & 4.07265e-01_rb, 4.06818e-01_rb, 4.06371e-01_rb, 4.05925e-01_rb, 4.05480e-01_rb, &\n     & 4.05035e-01_rb, 4.04590e-01_rb, 4.04146e-01_rb, 4.03703e-01_rb/)\n      kao_mn2o(:,10) = (/ &\n     & 2.84648e-01_rb, 2.87025e-01_rb, 2.89421e-01_rb, 2.91838e-01_rb, 2.94275e-01_rb, &\n     & 2.96732e-01_rb, 2.99210e-01_rb, 3.01708e-01_rb, 3.04227e-01_rb, 3.06768e-01_rb, &\n     & 3.09329e-01_rb, 3.11912e-01_rb, 3.14517e-01_rb, 3.17143e-01_rb, 3.19791e-01_rb, &\n     & 3.22461e-01_rb, 3.25154e-01_rb, 3.27869e-01_rb, 3.30606e-01_rb/)\n      kao_mn2o(:,11) = (/ &\n     & 2.75090e-01_rb, 2.79370e-01_rb, 2.83716e-01_rb, 2.88129e-01_rb, 2.92611e-01_rb, &\n     & 2.97163e-01_rb, 3.01786e-01_rb, 3.06480e-01_rb, 3.11248e-01_rb, 3.16090e-01_rb, &\n     & 3.21007e-01_rb, 3.26001e-01_rb, 3.31072e-01_rb, 3.36222e-01_rb, 3.41452e-01_rb, &\n     & 3.46764e-01_rb, 3.52158e-01_rb, 3.57636e-01_rb, 3.63200e-01_rb/)\n      kao_mn2o(:,12) = (/ &\n     & 1.67753e-01_rb, 1.71386e-01_rb, 1.75098e-01_rb, 1.78890e-01_rb, 1.82765e-01_rb, &\n     & 1.86723e-01_rb, 1.90767e-01_rb, 1.94899e-01_rb, 1.99120e-01_rb, 2.03433e-01_rb, &\n     & 2.07839e-01_rb, 2.12340e-01_rb, 2.16939e-01_rb, 2.21638e-01_rb, 2.26438e-01_rb, &\n     & 2.31342e-01_rb, 2.36353e-01_rb, 2.41472e-01_rb, 2.46701e-01_rb/)\n      kao_mn2o(:,13) = (/ &\n     & 1.40543e-01_rb, 1.42049e-01_rb, 1.43571e-01_rb, 1.45109e-01_rb, 1.46663e-01_rb, &\n     & 1.48234e-01_rb, 1.49822e-01_rb, 1.51427e-01_rb, 1.53049e-01_rb, 1.54689e-01_rb, &\n     & 1.56346e-01_rb, 1.58021e-01_rb, 1.59713e-01_rb, 1.61424e-01_rb, 1.63153e-01_rb, &\n     & 1.64901e-01_rb, 1.66668e-01_rb, 1.68453e-01_rb, 1.70258e-01_rb/)\n      kao_mn2o(:,14) = (/ &\n     & 1.51530e-01_rb, 1.50944e-01_rb, 1.50360e-01_rb, 1.49779e-01_rb, 1.49199e-01_rb, &\n     & 1.48622e-01_rb, 1.48047e-01_rb, 1.47474e-01_rb, 1.46903e-01_rb, 1.46335e-01_rb, &\n     & 1.45769e-01_rb, 1.45205e-01_rb, 1.44643e-01_rb, 1.44083e-01_rb, 1.43526e-01_rb, &\n     & 1.42971e-01_rb, 1.42418e-01_rb, 1.41867e-01_rb, 1.41318e-01_rb/)\n      kao_mn2o(:,15) = (/ &\n     & 2.20492e-01_rb, 2.16479e-01_rb, 2.12539e-01_rb, 2.08671e-01_rb, 2.04873e-01_rb, &\n     & 2.01145e-01_rb, 1.97484e-01_rb, 1.93890e-01_rb, 1.90361e-01_rb, 1.86897e-01_rb, &\n     & 1.83495e-01_rb, 1.80156e-01_rb, 1.76877e-01_rb, 1.73658e-01_rb, 1.70497e-01_rb, &\n     & 1.67394e-01_rb, 1.64348e-01_rb, 1.61356e-01_rb, 1.58420e-01_rb/)\n      kao_mn2o(:,16) = (/ &\n     & 2.19848e-01_rb, 2.15847e-01_rb, 2.11919e-01_rb, 2.08062e-01_rb, 2.04275e-01_rb, &\n     & 2.00558e-01_rb, 1.96908e-01_rb, 1.93324e-01_rb, 1.89806e-01_rb, 1.86351e-01_rb, &\n     & 1.82960e-01_rb, 1.79630e-01_rb, 1.76361e-01_rb, 1.73151e-01_rb, 1.70000e-01_rb, &\n     & 1.66906e-01_rb, 1.63868e-01_rb, 1.60886e-01_rb, 1.57958e-01_rb/)\n\n!     The array KBO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level above 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kbo_mco2(:, 1) = (/ &\n     & 4.74280e-08_rb, 6.62724e-08_rb, 9.26042e-08_rb, 1.29398e-07_rb, 1.80812e-07_rb, &\n     & 2.52653e-07_rb, 3.53039e-07_rb, 4.93310e-07_rb, 6.89316e-07_rb, 9.63198e-07_rb, &\n     & 1.34590e-06_rb, 1.88067e-06_rb, 2.62790e-06_rb, 3.67204e-06_rb, 5.13104e-06_rb, &\n     & 7.16974e-06_rb, 1.00185e-05_rb, 1.39991e-05_rb, 1.95613e-05_rb/)\n      kbo_mco2(:, 2) = (/ &\n     & 1.14872e-07_rb, 1.63356e-07_rb, 2.32304e-07_rb, 3.30352e-07_rb, 4.69783e-07_rb, &\n     & 6.68064e-07_rb, 9.50033e-07_rb, 1.35101e-06_rb, 1.92123e-06_rb, 2.73213e-06_rb, &\n     & 3.88527e-06_rb, 5.52513e-06_rb, 7.85711e-06_rb, 1.11734e-05_rb, 1.58893e-05_rb, &\n     & 2.25957e-05_rb, 3.21326e-05_rb, 4.56948e-05_rb, 6.49811e-05_rb/)\n      kbo_mco2(:, 3) = (/ &\n     & 3.30676e-07_rb, 4.76313e-07_rb, 6.86094e-07_rb, 9.88267e-07_rb, 1.42353e-06_rb, &\n     & 2.05048e-06_rb, 2.95356e-06_rb, 4.25439e-06_rb, 6.12813e-06_rb, 8.82711e-06_rb, &\n     & 1.27148e-05_rb, 1.83147e-05_rb, 2.63810e-05_rb, 3.79998e-05_rb, 5.47359e-05_rb, &\n     & 7.88430e-05_rb, 1.13568e-04_rb, 1.63585e-04_rb, 2.35632e-04_rb/)\n      kbo_mco2(:, 4) = (/ &\n     & 6.58642e-07_rb, 9.52761e-07_rb, 1.37822e-06_rb, 1.99368e-06_rb, 2.88396e-06_rb, &\n     & 4.17181e-06_rb, 6.03475e-06_rb, 8.72960e-06_rb, 1.26279e-05_rb, 1.82669e-05_rb, &\n     & 2.64241e-05_rb, 3.82239e-05_rb, 5.52929e-05_rb, 7.99844e-05_rb, 1.15702e-04_rb, &\n     & 1.67369e-04_rb, 2.42109e-04_rb, 3.50223e-04_rb, 5.06617e-04_rb/)\n      kbo_mco2(:, 5) = (/ &\n     & 1.26418e-06_rb, 1.82095e-06_rb, 2.62292e-06_rb, 3.77810e-06_rb, 5.44204e-06_rb, &\n     & 7.83881e-06_rb, 1.12911e-05_rb, 1.62640e-05_rb, 2.34269e-05_rb, 3.37445e-05_rb, &\n     & 4.86061e-05_rb, 7.00131e-05_rb, 1.00848e-04_rb, 1.45263e-04_rb, 2.09239e-04_rb, &\n     & 3.01392e-04_rb, 4.34131e-04_rb, 6.25329e-04_rb, 9.00733e-04_rb/)\n      kbo_mco2(:, 6) = (/ &\n     & 2.38529e-06_rb, 3.43110e-06_rb, 4.93545e-06_rb, 7.09937e-06_rb, 1.02120e-05_rb, &\n     & 1.46895e-05_rb, 2.11300e-05_rb, 3.03943e-05_rb, 4.37205e-05_rb, 6.28894e-05_rb, &\n     & 9.04630e-05_rb, 1.30126e-04_rb, 1.87179e-04_rb, 2.69247e-04_rb, 3.87296e-04_rb, &\n     & 5.57104e-04_rb, 8.01364e-04_rb, 1.15272e-03_rb, 1.65812e-03_rb/)\n      kbo_mco2(:, 7) = (/ &\n     & 5.41398e-06_rb, 7.54295e-06_rb, 1.05091e-05_rb, 1.46417e-05_rb, 2.03993e-05_rb, &\n     & 2.84211e-05_rb, 3.95973e-05_rb, 5.51683e-05_rb, 7.68626e-05_rb, 1.07088e-04_rb, &\n     & 1.49199e-04_rb, 2.07869e-04_rb, 2.89610e-04_rb, 4.03496e-04_rb, 5.62165e-04_rb, &\n     & 7.83229e-04_rb, 1.09122e-03_rb, 1.52033e-03_rb, 2.11818e-03_rb/)\n      kbo_mco2(:, 8) = (/ &\n     & 1.09995e-05_rb, 1.54018e-05_rb, 2.15660e-05_rb, 3.01973e-05_rb, 4.22831e-05_rb, &\n     & 5.92059e-05_rb, 8.29017e-05_rb, 1.16081e-04_rb, 1.62540e-04_rb, 2.27592e-04_rb, &\n     & 3.18681e-04_rb, 4.46226e-04_rb, 6.24817e-04_rb, 8.74886e-04_rb, 1.22504e-03_rb, &\n     & 1.71533e-03_rb, 2.40185e-03_rb, 3.36313e-03_rb, 4.70915e-03_rb/)\n      kbo_mco2(:, 9) = (/ &\n     & 3.29051e-05_rb, 4.59996e-05_rb, 6.43050e-05_rb, 8.98950e-05_rb, 1.25668e-04_rb, &\n     & 1.75678e-04_rb, 2.45588e-04_rb, 3.43319e-04_rb, 4.79942e-04_rb, 6.70933e-04_rb, &\n     & 9.37930e-04_rb, 1.31118e-03_rb, 1.83295e-03_rb, 2.56237e-03_rb, 3.58206e-03_rb, &\n     & 5.00753e-03_rb, 7.00027e-03_rb, 9.78599e-03_rb, 1.36803e-02_rb/)\n      kbo_mco2(:,10) = (/ &\n     & 1.95126e-05_rb, 2.65944e-05_rb, 3.62463e-05_rb, 4.94013e-05_rb, 6.73305e-05_rb, &\n     & 9.17669e-05_rb, 1.25072e-04_rb, 1.70465e-04_rb, 2.32332e-04_rb, 3.16652e-04_rb, &\n     & 4.31575e-04_rb, 5.88208e-04_rb, 8.01687e-04_rb, 1.09264e-03_rb, 1.48920e-03_rb, &\n     & 2.02968e-03_rb, 2.76631e-03_rb, 3.77029e-03_rb, 5.13865e-03_rb/)\n      kbo_mco2(:,11) = (/ &\n     & 8.67271e-05_rb, 1.19228e-04_rb, 1.63908e-04_rb, 2.25332e-04_rb, 3.09774e-04_rb, &\n     & 4.25860e-04_rb, 5.85450e-04_rb, 8.04845e-04_rb, 1.10646e-03_rb, 1.52110e-03_rb, &\n     & 2.09112e-03_rb, 2.87476e-03_rb, 3.95207e-03_rb, 5.43309e-03_rb, 7.46911e-03_rb, &\n     & 1.02681e-02_rb, 1.41161e-02_rb, 1.94060e-02_rb, 2.66783e-02_rb/)\n      kbo_mco2(:,12) = (/ &\n     & 3.79194e-07_rb, 5.51419e-07_rb, 8.01866e-07_rb, 1.16606e-06_rb, 1.69567e-06_rb, &\n     & 2.46582e-06_rb, 3.58577e-06_rb, 5.21438e-06_rb, 7.58268e-06_rb, 1.10266e-05_rb, &\n     & 1.60348e-05_rb, 2.33176e-05_rb, 3.39081e-05_rb, 4.93087e-05_rb, 7.17040e-05_rb, &\n     & 1.04271e-04_rb, 1.51630e-04_rb, 2.20498e-04_rb, 3.20644e-04_rb/)\n      kbo_mco2(:,13) = (/ &\n     & 1.72555e-07_rb, 2.29952e-07_rb, 3.06441e-07_rb, 4.08373e-07_rb, 5.44209e-07_rb, &\n     & 7.25229e-07_rb, 9.66461e-07_rb, 1.28793e-06_rb, 1.71634e-06_rb, 2.28724e-06_rb, &\n     & 3.04805e-06_rb, 4.06192e-06_rb, 5.41303e-06_rb, 7.21356e-06_rb, 9.61299e-06_rb, &\n     & 1.28106e-05_rb, 1.70717e-05_rb, 2.27503e-05_rb, 3.03177e-05_rb/)\n      kbo_mco2(:,14) = (/ &\n     & 7.42245e-09_rb, 7.17780e-09_rb, 6.94122e-09_rb, 6.71243e-09_rb, 6.49118e-09_rb, &\n     & 6.27723e-09_rb, 6.07032e-09_rb, 5.87024e-09_rb, 5.67675e-09_rb, 5.48964e-09_rb, &\n     & 5.30870e-09_rb, 5.13372e-09_rb, 4.96451e-09_rb, 4.80087e-09_rb, 4.64263e-09_rb, &\n     & 4.48961e-09_rb, 4.34163e-09_rb, 4.19852e-09_rb, 4.06014e-09_rb/)\n      kbo_mco2(:,15) = (/ &\n     & 7.41847e-09_rb, 7.17332e-09_rb, 6.93627e-09_rb, 6.70705e-09_rb, 6.48541e-09_rb, &\n     & 6.27109e-09_rb, 6.06386e-09_rb, 5.86347e-09_rb, 5.66970e-09_rb, 5.48234e-09_rb, &\n     & 5.30117e-09_rb, 5.12599e-09_rb, 4.95659e-09_rb, 4.79280e-09_rb, 4.63441e-09_rb, &\n     & 4.48126e-09_rb, 4.33317e-09_rb, 4.18998e-09_rb, 4.05152e-09_rb/)\n      kbo_mco2(:,16) = (/ &\n     & 7.42855e-09_rb, 7.18278e-09_rb, 6.94513e-09_rb, 6.71535e-09_rb, 6.49317e-09_rb, &\n     & 6.27834e-09_rb, 6.07062e-09_rb, 5.86977e-09_rb, 5.67557e-09_rb, 5.48779e-09_rb, &\n     & 5.30622e-09_rb, 5.13066e-09_rb, 4.96091e-09_rb, 4.79678e-09_rb, 4.63808e-09_rb, &\n     & 4.48462e-09_rb, 4.33625e-09_rb, 4.19278e-09_rb, 4.05406e-09_rb/)\n      kbo_mn2o(:, 1) = (/ &\n     & 2.49055e-04_rb, 2.53574e-04_rb, 2.58175e-04_rb, 2.62860e-04_rb, 2.67629e-04_rb, &\n     & 2.72485e-04_rb, 2.77429e-04_rb, 2.82463e-04_rb, 2.87588e-04_rb, 2.92806e-04_rb, &\n     & 2.98119e-04_rb, 3.03528e-04_rb, 3.09036e-04_rb, 3.14643e-04_rb, 3.20352e-04_rb, &\n     & 3.26165e-04_rb, 3.32083e-04_rb, 3.38109e-04_rb, 3.44243e-04_rb/)\n      kbo_mn2o(:, 2) = (/ &\n     & 3.79251e-04_rb, 4.04353e-04_rb, 4.31117e-04_rb, 4.59652e-04_rb, 4.90075e-04_rb, &\n     & 5.22513e-04_rb, 5.57097e-04_rb, 5.93970e-04_rb, 6.33284e-04_rb, 6.75200e-04_rb, &\n     & 7.19890e-04_rb, 7.67539e-04_rb, 8.18340e-04_rb, 8.72505e-04_rb, 9.30255e-04_rb, &\n     & 9.91827e-04_rb, 1.05747e-03_rb, 1.12747e-03_rb, 1.20209e-03_rb/)\n      kbo_mn2o(:, 3) = (/ &\n     & 7.61140e-04_rb, 8.36483e-04_rb, 9.19284e-04_rb, 1.01028e-03_rb, 1.11029e-03_rb, &\n     & 1.22019e-03_rb, 1.34098e-03_rb, 1.47372e-03_rb, 1.61959e-03_rb, 1.77991e-03_rb, &\n     & 1.95610e-03_rb, 2.14973e-03_rb, 2.36253e-03_rb, 2.59639e-03_rb, 2.85340e-03_rb, &\n     & 3.13585e-03_rb, 3.44626e-03_rb, 3.78740e-03_rb, 4.16230e-03_rb/)\n      kbo_mn2o(:, 4) = (/ &\n     & 2.01074e-03_rb, 2.26915e-03_rb, 2.56077e-03_rb, 2.88987e-03_rb, 3.26126e-03_rb, &\n     & 3.68038e-03_rb, 4.15337e-03_rb, 4.68714e-03_rb, 5.28951e-03_rb, 5.96929e-03_rb, &\n     & 6.73643e-03_rb, 7.60217e-03_rb, 8.57916e-03_rb, 9.68172e-03_rb, 1.09260e-02_rb, &\n     & 1.23301e-02_rb, 1.39147e-02_rb, 1.57030e-02_rb, 1.77211e-02_rb/)\n      kbo_mn2o(:, 5) = (/ &\n     & 7.43302e-03_rb, 8.32582e-03_rb, 9.32585e-03_rb, 1.04460e-02_rb, 1.17007e-02_rb, &\n     & 1.31061e-02_rb, 1.46803e-02_rb, 1.64436e-02_rb, 1.84186e-02_rb, 2.06309e-02_rb, &\n     & 2.31090e-02_rb, 2.58846e-02_rb, 2.89937e-02_rb, 3.24762e-02_rb, 3.63769e-02_rb, &\n     & 4.07463e-02_rb, 4.56404e-02_rb, 5.11223e-02_rb, 5.72627e-02_rb/)\n      kbo_mn2o(:, 6) = (/ &\n     & 2.71911e-02_rb, 2.94258e-02_rb, 3.18441e-02_rb, 3.44612e-02_rb, 3.72933e-02_rb, &\n     & 4.03582e-02_rb, 4.36750e-02_rb, 4.72644e-02_rb, 5.11487e-02_rb, 5.53523e-02_rb, &\n     & 5.99014e-02_rb, 6.48243e-02_rb, 7.01518e-02_rb, 7.59172e-02_rb, 8.21563e-02_rb, &\n     & 8.89082e-02_rb, 9.62150e-02_rb, 1.04122e-01_rb, 1.12679e-01_rb/)\n      kbo_mn2o(:, 7) = (/ &\n     & 1.63331e-01_rb, 1.80469e-01_rb, 1.99406e-01_rb, 2.20330e-01_rb, 2.43449e-01_rb, &\n     & 2.68995e-01_rb, 2.97221e-01_rb, 3.28408e-01_rb, 3.62869e-01_rb, 4.00945e-01_rb, &\n     & 4.43017e-01_rb, 4.89503e-01_rb, 5.40867e-01_rb, 5.97621e-01_rb, 6.60330e-01_rb, &\n     & 7.29619e-01_rb, 8.06179e-01_rb, 8.90772e-01_rb, 9.84242e-01_rb/)\n      kbo_mn2o(:, 8) = (/ &\n     & 1.32648e+00_rb, 1.33515e+00_rb, 1.34387e+00_rb, 1.35265e+00_rb, 1.36149e+00_rb, &\n     & 1.37038e+00_rb, 1.37933e+00_rb, 1.38835e+00_rb, 1.39742e+00_rb, 1.40655e+00_rb, &\n     & 1.41574e+00_rb, 1.42499e+00_rb, 1.43429e+00_rb, 1.44367e+00_rb, 1.45310e+00_rb, &\n     & 1.46259e+00_rb, 1.47215e+00_rb, 1.48176e+00_rb, 1.49144e+00_rb/)\n      kbo_mn2o(:, 9) = (/ &\n     & 3.12620e+00_rb, 3.03118e+00_rb, 2.93905e+00_rb, 2.84972e+00_rb, 2.76310e+00_rb, &\n     & 2.67911e+00_rb, 2.59768e+00_rb, 2.51873e+00_rb, 2.44217e+00_rb, 2.36794e+00_rb, &\n     & 2.29596e+00_rb, 2.22618e+00_rb, 2.15851e+00_rb, 2.09290e+00_rb, 2.02929e+00_rb, &\n     & 1.96761e+00_rb, 1.90780e+00_rb, 1.84982e+00_rb, 1.79359e+00_rb/)\n      kbo_mn2o(:,10) = (/ &\n     & 1.60677e-02_rb, 1.82485e-02_rb, 2.07254e-02_rb, 2.35384e-02_rb, 2.67332e-02_rb, &\n     & 3.03617e-02_rb, 3.44827e-02_rb, 3.91629e-02_rb, 4.44785e-02_rb, 5.05154e-02_rb, &\n     & 5.73718e-02_rb, 6.51589e-02_rb, 7.40027e-02_rb, 8.40470e-02_rb, 9.54546e-02_rb, &\n     & 1.08411e-01_rb, 1.23125e-01_rb, 1.39836e-01_rb, 1.58816e-01_rb/)\n      kbo_mn2o(:,11) = (/ &\n     & 1.55287e-02_rb, 1.78265e-02_rb, 2.04642e-02_rb, 2.34922e-02_rb, 2.69683e-02_rb, &\n     & 3.09588e-02_rb, 3.55397e-02_rb, 4.07984e-02_rb, 4.68352e-02_rb, 5.37653e-02_rb, &\n     & 6.17208e-02_rb, 7.08535e-02_rb, 8.13375e-02_rb, 9.33728e-02_rb, 1.07189e-01_rb, &\n     & 1.23049e-01_rb, 1.41257e-01_rb, 1.62158e-01_rb, 1.86152e-01_rb/)\n      kbo_mn2o(:,12) = (/ &\n     & 7.13719e-03_rb, 8.18879e-03_rb, 9.39535e-03_rb, 1.07797e-02_rb, 1.23680e-02_rb, &\n     & 1.41903e-02_rb, 1.62811e-02_rb, 1.86800e-02_rb, 2.14324e-02_rb, 2.45902e-02_rb, &\n     & 2.82134e-02_rb, 3.23704e-02_rb, 3.71400e-02_rb, 4.26122e-02_rb, 4.88908e-02_rb, &\n     & 5.60945e-02_rb, 6.43596e-02_rb, 7.38424e-02_rb, 8.47224e-02_rb/)\n      kbo_mn2o(:,13) = (/ &\n     & 9.28813e-03_rb, 1.06108e-02_rb, 1.21218e-02_rb, 1.38480e-02_rb, 1.58199e-02_rb, &\n     & 1.80727e-02_rb, 2.06463e-02_rb, 2.35864e-02_rb, 2.69452e-02_rb, 3.07822e-02_rb, &\n     & 3.51657e-02_rb, 4.01734e-02_rb, 4.58941e-02_rb, 5.24296e-02_rb, 5.98956e-02_rb, &\n     & 6.84249e-02_rb, 7.81688e-02_rb, 8.93002e-02_rb, 1.02017e-01_rb/)\n      kbo_mn2o(:,14) = (/ &\n     & 2.17205e-02_rb, 2.51661e-02_rb, 2.91581e-02_rb, 3.37835e-02_rb, 3.91425e-02_rb, &\n     & 4.53517e-02_rb, 5.25458e-02_rb, 6.08811e-02_rb, 7.05387e-02_rb, 8.17282e-02_rb, &\n     & 9.46927e-02_rb, 1.09714e-01_rb, 1.27118e-01_rb, 1.47282e-01_rb, 1.70645e-01_rb, &\n     & 1.97715e-01_rb, 2.29078e-01_rb, 2.65417e-01_rb, 3.07520e-01_rb/)\n      kbo_mn2o(:,15) = (/ &\n     & 4.89156e-02_rb, 5.70504e-02_rb, 6.65379e-02_rb, 7.76033e-02_rb, 9.05089e-02_rb, &\n     & 1.05561e-01_rb, 1.23116e-01_rb, 1.43590e-01_rb, 1.67469e-01_rb, 1.95320e-01_rb, &\n     & 2.27802e-01_rb, 2.65686e-01_rb, 3.09869e-01_rb, 3.61401e-01_rb, 4.21503e-01_rb, &\n     & 4.91600e-01_rb, 5.73354e-01_rb, 6.68703e-01_rb, 7.79910e-01_rb/)\n      kbo_mn2o(:,16) = (/ &\n     & 1.13156e-02_rb, 1.46199e-02_rb, 1.88891e-02_rb, 2.44050e-02_rb, 3.15316e-02_rb, &\n     & 4.07393e-02_rb, 5.26358e-02_rb, 6.80061e-02_rb, 8.78649e-02_rb, 1.13523e-01_rb, &\n     & 1.46673e-01_rb, 1.89504e-01_rb, 2.44841e-01_rb, 3.16338e-01_rb, 4.08713e-01_rb, &\n     & 5.28064e-01_rb, 6.82266e-01_rb, 8.81496e-01_rb, 1.13891e+00_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &4.8166e-07_rb,3.7500e-07_rb,4.8978e-07_rb,5.9624e-07_rb,6.3742e-07_rb,7.5551e-07_rb, &\n     &7.7706e-07_rb,6.8681e-07_rb,7.5212e-07_rb,8.0956e-07_rb,7.8117e-07_rb,7.4835e-07_rb, &\n     &9.4118e-07_rb,1.2585e-06_rb,1.4976e-06_rb,1.4976e-06_rb/)\n      forrefo(2,:) = (/ &\n     &3.1320e-07_rb,4.0764e-07_rb,4.7468e-07_rb,5.9976e-07_rb,7.3324e-07_rb,8.1488e-07_rb, &\n     &7.6442e-07_rb,8.2007e-07_rb,7.7721e-07_rb,7.6377e-07_rb,8.0327e-07_rb,7.1881e-07_rb, &\n     &8.2148e-07_rb,1.0203e-06_rb,1.5033e-06_rb,1.5032e-06_rb/)\n      forrefo(3,:) = (/ &\n     &4.1831e-07_rb,5.5043e-07_rb,5.7783e-07_rb,6.1294e-07_rb,6.3396e-07_rb,6.2292e-07_rb, &\n     &6.1719e-07_rb,6.4183e-07_rb,7.6180e-07_rb,9.5477e-07_rb,9.5901e-07_rb,1.0207e-06_rb, &\n     &1.0387e-06_rb,1.1305e-06_rb,1.3602e-06_rb,1.5063e-06_rb/)\n      forrefo(4,:) = (/ &\n     &8.5878e-07_rb,6.0921e-07_rb,5.5773e-07_rb,5.3374e-07_rb,5.0495e-07_rb,4.9844e-07_rb, &\n     &5.1536e-07_rb,5.2908e-07_rb,4.7977e-07_rb,5.3177e-07_rb,4.9266e-07_rb,4.5403e-07_rb, &\n     &3.9695e-07_rb,3.4792e-07_rb,3.4912e-07_rb,3.4102e-07_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 3.16029e-02_rb, 2.74633e-02_rb, 2.38660e-02_rb, 2.07399e-02_rb, 1.80232e-02_rb, &\n     & 1.56624e-02_rb, 1.36108e-02_rb, 1.18280e-02_rb, 1.02787e-02_rb, 8.93231e-03_rb/)\n      selfrefo(:, 2) = (/ &\n     & 3.10422e-02_rb, 2.71312e-02_rb, 2.37130e-02_rb, 2.07254e-02_rb, 1.81142e-02_rb, &\n     & 1.58320e-02_rb, 1.38374e-02_rb, 1.20940e-02_rb, 1.05703e-02_rb, 9.23854e-03_rb/)\n      selfrefo(:, 3) = (/ &\n     & 3.08657e-02_rb, 2.69431e-02_rb, 2.35190e-02_rb, 2.05301e-02_rb, 1.79210e-02_rb, &\n     & 1.56435e-02_rb, 1.36554e-02_rb, 1.19200e-02_rb, 1.04051e-02_rb, 9.08279e-03_rb/)\n      selfrefo(:, 4) = (/ &\n     & 3.02668e-02_rb, 2.64686e-02_rb, 2.31470e-02_rb, 2.02422e-02_rb, 1.77020e-02_rb, &\n     & 1.54806e-02_rb, 1.35379e-02_rb, 1.18390e-02_rb, 1.03533e-02_rb, 9.05406e-03_rb/)\n      selfrefo(:, 5) = (/ &\n     & 2.98317e-02_rb, 2.61491e-02_rb, 2.29210e-02_rb, 2.00914e-02_rb, 1.76112e-02_rb, &\n     & 1.54371e-02_rb, 1.35314e-02_rb, 1.18610e-02_rb, 1.03968e-02_rb, 9.11332e-03_rb/)\n      selfrefo(:, 6) = (/ &\n     & 2.95545e-02_rb, 2.59083e-02_rb, 2.27120e-02_rb, 1.99100e-02_rb, 1.74537e-02_rb, &\n     & 1.53004e-02_rb, 1.34128e-02_rb, 1.17580e-02_rb, 1.03074e-02_rb, 9.03576e-03_rb/)\n      selfrefo(:, 7) = (/ &\n     & 2.97352e-02_rb, 2.60320e-02_rb, 2.27900e-02_rb, 1.99517e-02_rb, 1.74670e-02_rb, &\n     & 1.52916e-02_rb, 1.33872e-02_rb, 1.17200e-02_rb, 1.02604e-02_rb, 8.98258e-03_rb/)\n      selfrefo(:, 8) = (/ &\n     & 2.96543e-02_rb, 2.59760e-02_rb, 2.27540e-02_rb, 1.99316e-02_rb, 1.74593e-02_rb, &\n     & 1.52937e-02_rb, 1.33967e-02_rb, 1.17350e-02_rb, 1.02794e-02_rb, 9.00437e-03_rb/)\n      selfrefo(:, 9) = (/ &\n     & 2.97998e-02_rb, 2.60786e-02_rb, 2.28220e-02_rb, 1.99721e-02_rb, 1.74781e-02_rb, &\n     & 1.52955e-02_rb, 1.33855e-02_rb, 1.17140e-02_rb, 1.02512e-02_rb, 8.97110e-03_rb/)\n      selfrefo(:,10) = (/ &\n     & 2.98826e-02_rb, 2.61096e-02_rb, 2.28130e-02_rb, 1.99326e-02_rb, 1.74159e-02_rb, &\n     & 1.52170e-02_rb, 1.32957e-02_rb, 1.16170e-02_rb, 1.01502e-02_rb, 8.86867e-03_rb/)\n      selfrefo(:,11) = (/ &\n     & 2.94710e-02_rb, 2.58147e-02_rb, 2.26120e-02_rb, 1.98066e-02_rb, 1.73493e-02_rb, &\n     & 1.51969e-02_rb, 1.33115e-02_rb, 1.16600e-02_rb, 1.02134e-02_rb, 8.94628e-03_rb/)\n      selfrefo(:,12) = (/ &\n     & 2.96297e-02_rb, 2.59544e-02_rb, 2.27350e-02_rb, 1.99149e-02_rb, 1.74446e-02_rb, &\n     & 1.52808e-02_rb, 1.33853e-02_rb, 1.17250e-02_rb, 1.02706e-02_rb, 8.99663e-03_rb/)\n      selfrefo(:,13) = (/ &\n     & 2.96272e-02_rb, 2.59013e-02_rb, 2.26440e-02_rb, 1.97963e-02_rb, 1.73067e-02_rb, &\n     & 1.51302e-02_rb, 1.32275e-02_rb, 1.15640e-02_rb, 1.01097e-02_rb, 8.83833e-03_rb/)\n      selfrefo(:,14) = (/ &\n     & 2.89906e-02_rb, 2.53971e-02_rb, 2.22490e-02_rb, 1.94911e-02_rb, 1.70751e-02_rb, &\n     & 1.49585e-02_rb, 1.31044e-02_rb, 1.14800e-02_rb, 1.00570e-02_rb, 8.81038e-03_rb/)\n      selfrefo(:,15) = (/ &\n     & 2.80884e-02_rb, 2.46987e-02_rb, 2.17180e-02_rb, 1.90970e-02_rb, 1.67924e-02_rb, &\n     & 1.47659e-02_rb, 1.29839e-02_rb, 1.14170e-02_rb, 1.00392e-02_rb, 8.82765e-03_rb/)\n      selfrefo(:,16) = (/ &\n     & 2.80884e-02_rb, 2.46987e-02_rb, 2.17180e-02_rb, 1.90970e-02_rb, 1.67924e-02_rb, &\n     & 1.47659e-02_rb, 1.29839e-02_rb, 1.14170e-02_rb, 1.00392e-02_rb, 8.82765e-03_rb/)\n\n      end subroutine lw_kgb08\n\n! **************************************************************************\n      subroutine lw_kgb09\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg09, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, &\n                            kbo_mn2o, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fractions mapping level : P=212.7250 mb, T = 223.06 K\n      fracrefao(:, 1) = (/ &\n     &  1.8129e-01_rb,1.6119e-01_rb,1.3308e-01_rb,1.2342e-01_rb,1.1259e-01_rb,9.7580e-02_rb, &\n     &  7.9176e-02_rb,5.8541e-02_rb,3.9084e-02_rb,4.2419e-03_rb,3.4314e-03_rb,2.6935e-03_rb, &\n     &  1.9404e-03_rb,1.2218e-03_rb,4.5263e-04_rb,6.0909e-05_rb/)\n      fracrefao(:, 2) = (/ &\n     &  1.9665e-01_rb,1.5640e-01_rb,1.3101e-01_rb,1.2153e-01_rb,1.1037e-01_rb,9.6043e-02_rb, &\n     &  7.7856e-02_rb,5.7547e-02_rb,3.8670e-02_rb,4.1955e-03_rb,3.4104e-03_rb,2.6781e-03_rb, &\n     &  1.9245e-03_rb,1.2093e-03_rb,4.4113e-04_rb,6.0913e-05_rb/)\n      fracrefao(:, 3) = (/ &\n     &  2.0273e-01_rb,1.5506e-01_rb,1.3044e-01_rb,1.2043e-01_rb,1.0952e-01_rb,9.5384e-02_rb, &\n     &  7.7157e-02_rb,5.7176e-02_rb,3.8379e-02_rb,4.1584e-03_rb,3.3836e-03_rb,2.6412e-03_rb, &\n     &  1.8865e-03_rb,1.1791e-03_rb,4.2094e-04_rb,4.7410e-05_rb/)\n      fracrefao(:, 4) = (/ &\n     &  2.0272e-01_rb,1.5963e-01_rb,1.2913e-01_rb,1.2060e-01_rb,1.0820e-01_rb,9.4685e-02_rb, &\n     &  7.6544e-02_rb,5.6851e-02_rb,3.8155e-02_rb,4.0913e-03_rb,3.3442e-03_rb,2.6054e-03_rb, &\n     &  1.8875e-03_rb,1.1263e-03_rb,3.7743e-04_rb,4.7410e-05_rb/)\n      fracrefao(:, 5) = (/ &\n     &  2.0280e-01_rb,1.6353e-01_rb,1.2910e-01_rb,1.1968e-01_rb,1.0725e-01_rb,9.4112e-02_rb, &\n     &  7.5828e-02_rb,5.6526e-02_rb,3.7972e-02_rb,4.0205e-03_rb,3.3063e-03_rb,2.5681e-03_rb, &\n     &  1.8386e-03_rb,1.0757e-03_rb,3.5301e-04_rb,4.7410e-05_rb/)\n      fracrefao(:, 6) = (/ &\n     &  2.0294e-01_rb,1.6840e-01_rb,1.2852e-01_rb,1.1813e-01_rb,1.0724e-01_rb,9.2946e-02_rb, &\n     &  7.5029e-02_rb,5.6158e-02_rb,3.7744e-02_rb,3.9632e-03_rb,3.2434e-03_rb,2.5275e-03_rb, &\n     &  1.7558e-03_rb,1.0080e-03_rb,3.5301e-04_rb,4.7410e-05_rb/)\n      fracrefao(:, 7) = (/ &\n     &  2.0313e-01_rb,1.7390e-01_rb,1.2864e-01_rb,1.1689e-01_rb,1.0601e-01_rb,9.1791e-02_rb, &\n     &  7.4224e-02_rb,5.5500e-02_rb,3.7374e-02_rb,3.9214e-03_rb,3.1984e-03_rb,2.4162e-03_rb, &\n     &  1.6394e-03_rb,9.7275e-04_rb,3.5299e-04_rb,4.7410e-05_rb/)\n      fracrefao(:, 8) = (/ &\n     &  2.0332e-01_rb,1.7800e-01_rb,1.3286e-01_rb,1.1555e-01_rb,1.0407e-01_rb,9.0475e-02_rb, &\n     &  7.2452e-02_rb,5.4566e-02_rb,3.6677e-02_rb,3.7889e-03_rb,3.0351e-03_rb,2.2587e-03_rb, &\n     &  1.5764e-03_rb,9.7270e-04_rb,3.5300e-04_rb,4.7410e-05_rb/)\n      fracrefao(:, 9) = (/ &\n     &  1.9624e-01_rb,1.6519e-01_rb,1.3663e-01_rb,1.1535e-01_rb,1.0719e-01_rb,9.4156e-02_rb, &\n     &  7.6745e-02_rb,5.6987e-02_rb,3.8135e-02_rb,4.1626e-03_rb,3.4243e-03_rb,2.7116e-03_rb, &\n     &  1.7095e-03_rb,9.7271e-04_rb,3.5299e-04_rb,4.7410e-05_rb/)\n\n! Planck fraction mapping level : p=3.20e-2 mb, t = 197.92 k\n      fracrefbo(:) = (/ &\n     &  2.0914e-01_rb,1.5077e-01_rb,1.2878e-01_rb,1.1856e-01_rb,1.0695e-01_rb,9.3048e-02_rb, &\n     &  7.7645e-02_rb,6.0785e-02_rb,4.0642e-02_rb,4.0499e-03_rb,3.3931e-03_rb,2.6363e-03_rb, &\n     &  1.9151e-03_rb,1.1963e-03_rb,4.3471e-04_rb,5.1421e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &2.1746e-06_rb,2.0220e-05_rb,3.5039e-05_rb,4.9564e-05_rb,6.4547e-05_rb,8.0645e-05_rb, &\n     &1.0050e-04_rb,1.3591e-04_rb,1.1422e-04_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &2.4567e-06_rb,2.4642e-05_rb,4.2577e-05_rb,6.0179e-05_rb,7.8156e-05_rb,9.7521e-05_rb, &\n     &1.2325e-04_rb,1.6438e-04_rb,1.3834e-04_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &2.7778e-06_rb,2.9755e-05_rb,5.1233e-05_rb,7.2538e-05_rb,9.4256e-05_rb,1.1716e-04_rb, &\n     &1.4583e-04_rb,1.9818e-04_rb,1.6722e-04_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &3.1364e-06_rb,3.5376e-05_rb,6.1122e-05_rb,8.6709e-05_rb,1.1261e-04_rb,1.4025e-04_rb, &\n     &1.7411e-04_rb,2.3326e-04_rb,2.0043e-04_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &3.4866e-06_rb,4.1773e-05_rb,7.2421e-05_rb,1.0284e-04_rb,1.3368e-04_rb,1.6658e-04_rb, &\n     &2.0645e-04_rb,2.7379e-04_rb,2.3933e-04_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &2.7658e-06_rb,1.8665e-05_rb,2.9579e-05_rb,4.0556e-05_rb,5.1475e-05_rb,6.3012e-05_rb, &\n     &7.6030e-05_rb,9.6554e-05_rb,8.6790e-05_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &3.1474e-06_rb,2.2675e-05_rb,3.6322e-05_rb,4.9569e-05_rb,6.2848e-05_rb,7.6725e-05_rb, &\n     &9.2975e-05_rb,1.1920e-04_rb,1.0628e-04_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &3.5619e-06_rb,2.7222e-05_rb,4.3763e-05_rb,5.9895e-05_rb,7.6025e-05_rb,9.2855e-05_rb, &\n     &1.1166e-04_rb,1.4410e-04_rb,1.2840e-04_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &4.0332e-06_rb,3.2194e-05_rb,5.2284e-05_rb,7.1664e-05_rb,9.1201e-05_rb,1.1132e-04_rb, &\n     &1.3395e-04_rb,1.6948e-04_rb,1.5482e-04_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &4.5426e-06_rb,3.7892e-05_rb,6.1930e-05_rb,8.5200e-05_rb,1.0845e-04_rb,1.3257e-04_rb, &\n     &1.5957e-04_rb,2.0150e-04_rb,1.8531e-04_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &4.6515e-06_rb,1.9518e-05_rb,2.8024e-05_rb,3.5437e-05_rb,4.2060e-05_rb,4.8949e-05_rb, &\n     &5.6458e-05_rb,6.6193e-05_rb,6.4702e-05_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &5.3085e-06_rb,2.3661e-05_rb,3.4250e-05_rb,4.3649e-05_rb,5.1882e-05_rb,6.0429e-05_rb, &\n     &6.9536e-05_rb,8.2456e-05_rb,7.9400e-05_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &6.0401e-06_rb,2.8338e-05_rb,4.1344e-05_rb,5.2675e-05_rb,6.2996e-05_rb,7.3527e-05_rb, &\n     &8.4697e-05_rb,9.9499e-05_rb,9.6161e-05_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &6.8636e-06_rb,3.3625e-05_rb,4.9393e-05_rb,6.2729e-05_rb,7.5705e-05_rb,8.8632e-05_rb, &\n     &1.0218e-04_rb,1.1965e-04_rb,1.1595e-04_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &7.7592e-06_rb,3.9481e-05_rb,5.8243e-05_rb,7.4429e-05_rb,9.0184e-05_rb,1.0593e-04_rb, &\n     &1.2226e-04_rb,1.4329e-04_rb,1.3957e-04_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &7.8254e-06_rb,2.2162e-05_rb,2.8768e-05_rb,3.4092e-05_rb,3.8273e-05_rb,4.1617e-05_rb, &\n     &4.4585e-05_rb,4.7843e-05_rb,5.0090e-05_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &9.0107e-06_rb,2.6852e-05_rb,3.5234e-05_rb,4.2063e-05_rb,4.7365e-05_rb,5.1787e-05_rb, &\n     &5.5276e-05_rb,5.9864e-05_rb,6.1930e-05_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &1.0349e-05_rb,3.2172e-05_rb,4.2565e-05_rb,5.1061e-05_rb,5.7654e-05_rb,6.3243e-05_rb, &\n     &6.7675e-05_rb,7.3397e-05_rb,7.5548e-05_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &1.1906e-05_rb,3.8190e-05_rb,5.0960e-05_rb,6.1161e-05_rb,6.9192e-05_rb,7.6085e-05_rb, &\n     &8.1960e-05_rb,8.9085e-05_rb,9.1511e-05_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &1.3610e-05_rb,4.4853e-05_rb,6.0373e-05_rb,7.2336e-05_rb,8.2116e-05_rb,9.0436e-05_rb, &\n     &9.8270e-05_rb,1.0717e-04_rb,1.0994e-04_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &1.2215e-05_rb,2.6429e-05_rb,3.0893e-05_rb,3.4176e-05_rb,3.6538e-05_rb,3.7893e-05_rb, &\n     &3.8292e-05_rb,3.7482e-05_rb,3.9876e-05_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &1.4086e-05_rb,3.1907e-05_rb,3.7874e-05_rb,4.2237e-05_rb,4.5377e-05_rb,4.7376e-05_rb, &\n     &4.7976e-05_rb,4.7239e-05_rb,4.9622e-05_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &1.6264e-05_rb,3.8161e-05_rb,4.5845e-05_rb,5.1471e-05_rb,5.5412e-05_rb,5.8145e-05_rb, &\n     &5.8993e-05_rb,5.8204e-05_rb,6.0963e-05_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &1.8858e-05_rb,4.5142e-05_rb,5.4763e-05_rb,6.1781e-05_rb,6.6831e-05_rb,7.0144e-05_rb, &\n     &7.1439e-05_rb,7.0642e-05_rb,7.3664e-05_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &2.1682e-05_rb,5.2995e-05_rb,6.4832e-05_rb,7.3555e-05_rb,7.9689e-05_rb,8.3689e-05_rb, &\n     &8.5451e-05_rb,8.5137e-05_rb,8.8330e-05_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &1.7737e-05_rb,3.1507e-05_rb,3.4689e-05_rb,3.5923e-05_rb,3.6042e-05_rb,3.5547e-05_rb, &\n     &3.3855e-05_rb,3.0889e-05_rb,3.3707e-05_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &2.0662e-05_rb,3.8270e-05_rb,4.2282e-05_rb,4.3931e-05_rb,4.4914e-05_rb,4.4463e-05_rb, &\n     &4.2744e-05_rb,3.9347e-05_rb,4.1797e-05_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &2.4128e-05_rb,4.5613e-05_rb,5.0898e-05_rb,5.3590e-05_rb,5.4968e-05_rb,5.4808e-05_rb, &\n     &5.3000e-05_rb,4.8943e-05_rb,5.1147e-05_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &2.7999e-05_rb,5.3907e-05_rb,6.0955e-05_rb,6.4423e-05_rb,6.6442e-05_rb,6.6605e-05_rb, &\n     &6.4604e-05_rb,5.9878e-05_rb,6.1516e-05_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &3.2152e-05_rb,6.3564e-05_rb,7.2012e-05_rb,7.6692e-05_rb,7.9463e-05_rb,7.9823e-05_rb, &\n     &7.7573e-05_rb,7.2281e-05_rb,7.4081e-05_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &2.6880e-05_rb,4.1451e-05_rb,4.2153e-05_rb,4.1795e-05_rb,4.0071e-05_rb,3.7010e-05_rb, &\n     &3.2935e-05_rb,2.7157e-05_rb,3.0165e-05_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &3.1867e-05_rb,5.0449e-05_rb,5.1950e-05_rb,5.1350e-05_rb,4.9502e-05_rb,4.6117e-05_rb, &\n     &4.1536e-05_rb,3.4782e-05_rb,3.7420e-05_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &3.7274e-05_rb,6.0537e-05_rb,6.2610e-05_rb,6.2280e-05_rb,6.0355e-05_rb,5.6848e-05_rb, &\n     &5.1457e-05_rb,4.3658e-05_rb,4.5586e-05_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &4.3315e-05_rb,7.1931e-05_rb,7.4511e-05_rb,7.5005e-05_rb,7.2731e-05_rb,6.8916e-05_rb, &\n     &6.2904e-05_rb,5.3755e-05_rb,5.5264e-05_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &4.9907e-05_rb,8.4683e-05_rb,8.8542e-05_rb,8.9292e-05_rb,8.6631e-05_rb,8.2549e-05_rb, &\n     &7.6077e-05_rb,6.5242e-05_rb,6.5892e-05_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &4.7627e-05_rb,6.4864e-05_rb,6.3521e-05_rb,5.9018e-05_rb,5.3108e-05_rb,4.6571e-05_rb, &\n     &3.8650e-05_rb,2.8473e-05_rb,2.9135e-05_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &5.7767e-05_rb,7.9036e-05_rb,7.7751e-05_rb,7.3012e-05_rb,6.6279e-05_rb,5.8148e-05_rb, &\n     &4.8459e-05_rb,3.6303e-05_rb,3.6552e-05_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &6.8331e-05_rb,9.5161e-05_rb,9.3980e-05_rb,8.8741e-05_rb,8.0901e-05_rb,7.1279e-05_rb, &\n     &5.9682e-05_rb,4.5314e-05_rb,4.4112e-05_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &7.9894e-05_rb,1.1320e-04_rb,1.1263e-04_rb,1.0646e-04_rb,9.7413e-05_rb,8.6626e-05_rb, &\n     &7.2540e-05_rb,5.5667e-05_rb,5.2996e-05_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &9.2972e-05_rb,1.3437e-04_rb,1.3320e-04_rb,1.2651e-04_rb,1.1648e-04_rb,1.0389e-04_rb, &\n     &8.7249e-05_rb,6.7590e-05_rb,6.3371e-05_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &1.5799e-04_rb,1.8833e-04_rb,1.7550e-04_rb,1.5612e-04_rb,1.3380e-04_rb,1.0918e-04_rb, &\n     &8.2063e-05_rb,5.1241e-05_rb,3.5341e-05_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &1.9443e-04_rb,2.2819e-04_rb,2.1471e-04_rb,1.9244e-04_rb,1.6566e-04_rb,1.3587e-04_rb, &\n     &1.0320e-04_rb,6.4536e-05_rb,4.5195e-05_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &2.3622e-04_rb,2.7685e-04_rb,2.6057e-04_rb,2.3445e-04_rb,2.0276e-04_rb,1.6671e-04_rb, &\n     &1.2651e-04_rb,7.9797e-05_rb,5.6882e-05_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &2.7828e-04_rb,3.3139e-04_rb,3.1210e-04_rb,2.8146e-04_rb,2.4413e-04_rb,2.0071e-04_rb, &\n     &1.5211e-04_rb,9.7273e-05_rb,6.9081e-05_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &3.2528e-04_rb,3.9307e-04_rb,3.6944e-04_rb,3.3441e-04_rb,2.9052e-04_rb,2.3944e-04_rb, &\n     &1.8220e-04_rb,1.1689e-04_rb,8.4202e-05_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &5.9822e-04_rb,6.2372e-04_rb,5.8089e-04_rb,5.1261e-04_rb,4.3322e-04_rb,3.4273e-04_rb, &\n     &2.4200e-04_rb,1.3558e-04_rb,7.2135e-05_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &7.4373e-04_rb,7.8308e-04_rb,7.2223e-04_rb,6.3443e-04_rb,5.3223e-04_rb,4.2429e-04_rb, &\n     &3.0242e-04_rb,1.7107e-04_rb,9.5831e-05_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &9.1691e-04_rb,9.5621e-04_rb,8.7625e-04_rb,7.6950e-04_rb,6.5144e-04_rb,5.1701e-04_rb, &\n     &3.7121e-04_rb,2.1199e-04_rb,1.2423e-04_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &1.1043e-03_rb,1.1414e-03_rb,1.0539e-03_rb,9.3161e-04_rb,7.8672e-04_rb,6.2626e-04_rb, &\n     &4.5160e-04_rb,2.5892e-04_rb,1.5666e-04_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &1.3045e-03_rb,1.3552e-03_rb,1.2556e-03_rb,1.1172e-03_rb,9.4316e-04_rb,7.4718e-04_rb, &\n     &5.4008e-04_rb,3.1196e-04_rb,1.9599e-04_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &8.7712e-04_rb,8.8837e-04_rb,8.1430e-04_rb,7.2064e-04_rb,6.0791e-04_rb,4.8638e-04_rb, &\n     &3.4855e-04_rb,1.8904e-04_rb,9.5086e-05_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &1.1025e-03_rb,1.1220e-03_rb,1.0310e-03_rb,9.0820e-04_rb,7.5807e-04_rb,5.9864e-04_rb, &\n     &4.3064e-04_rb,2.3702e-04_rb,1.2669e-04_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &1.3684e-03_rb,1.3746e-03_rb,1.2594e-03_rb,1.1058e-03_rb,9.3187e-04_rb,7.3748e-04_rb, &\n     &5.2465e-04_rb,2.9520e-04_rb,1.6181e-04_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &1.6471e-03_rb,1.6623e-03_rb,1.5206e-03_rb,1.3382e-03_rb,1.1315e-03_rb,8.9471e-04_rb, &\n     &6.4214e-04_rb,3.6310e-04_rb,2.0489e-04_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &1.9688e-03_rb,1.9772e-03_rb,1.8138e-03_rb,1.6028e-03_rb,1.3619e-03_rb,1.0826e-03_rb, &\n     &7.7699e-04_rb,4.3404e-04_rb,2.5459e-04_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &9.4409e-04_rb,9.5030e-04_rb,8.6958e-04_rb,7.6723e-04_rb,6.4799e-04_rb,5.1804e-04_rb, &\n     &3.7162e-04_rb,2.0179e-04_rb,1.0181e-04_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &1.2024e-03_rb,1.2024e-03_rb,1.1035e-03_rb,9.7105e-04_rb,8.1245e-04_rb,6.4379e-04_rb, &\n     &4.6123e-04_rb,2.5624e-04_rb,1.3746e-04_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &1.5009e-03_rb,1.4895e-03_rb,1.3527e-03_rb,1.1889e-03_rb,1.0016e-03_rb,7.9376e-04_rb, &\n     &5.6671e-04_rb,3.1943e-04_rb,1.7568e-04_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &1.8192e-03_rb,1.8117e-03_rb,1.6422e-03_rb,1.4410e-03_rb,1.2151e-03_rb,9.6812e-04_rb, &\n     &6.9546e-04_rb,3.9137e-04_rb,2.1782e-04_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &2.1766e-03_rb,2.1635e-03_rb,1.9700e-03_rb,1.7314e-03_rb,1.4651e-03_rb,1.1736e-03_rb, &\n     &8.4593e-04_rb,4.7032e-04_rb,2.5768e-04_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &8.2069e-04_rb,8.2445e-04_rb,7.5154e-04_rb,6.6188e-04_rb,5.6185e-04_rb,4.5083e-04_rb, &\n     &3.2275e-04_rb,1.7851e-04_rb,9.1099e-05_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &1.0473e-03_rb,1.0502e-03_rb,9.5966e-04_rb,8.4257e-04_rb,7.0741e-04_rb,5.6233e-04_rb, &\n     &4.0370e-04_rb,2.2679e-04_rb,1.2172e-04_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &1.3133e-03_rb,1.3024e-03_rb,1.1846e-03_rb,1.0375e-03_rb,8.7436e-04_rb,6.9645e-04_rb, &\n     &5.0292e-04_rb,2.8463e-04_rb,1.5549e-04_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &1.6064e-03_rb,1.5873e-03_rb,1.4461e-03_rb,1.2677e-03_rb,1.0715e-03_rb,8.5901e-04_rb, &\n     &6.1842e-04_rb,3.4781e-04_rb,1.9357e-04_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &1.9305e-03_rb,1.9051e-03_rb,1.7364e-03_rb,1.5314e-03_rb,1.2972e-03_rb,1.0440e-03_rb, &\n     &7.5312e-04_rb,4.2210e-04_rb,2.3145e-04_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &8.1346e-06_rb,1.0615e-04_rb,1.6451e-04_rb,2.1843e-04_rb,2.7217e-04_rb,3.3271e-04_rb, &\n     &4.0424e-04_rb,5.2737e-04_rb,4.6457e-04_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &9.5357e-06_rb,1.2245e-04_rb,1.9203e-04_rb,2.5686e-04_rb,3.2147e-04_rb,3.9091e-04_rb, &\n     &4.7632e-04_rb,6.1736e-04_rb,5.3890e-04_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &1.0894e-05_rb,1.4027e-04_rb,2.2328e-04_rb,3.0098e-04_rb,3.7740e-04_rb,4.5873e-04_rb, &\n     &5.6256e-04_rb,7.2836e-04_rb,6.2820e-04_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &1.2218e-05_rb,1.6125e-04_rb,2.5837e-04_rb,3.4988e-04_rb,4.3991e-04_rb,5.3396e-04_rb, &\n     &6.5212e-04_rb,8.5783e-04_rb,7.3258e-04_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &1.3559e-05_rb,1.8418e-04_rb,2.9709e-04_rb,4.0563e-04_rb,5.0913e-04_rb,6.2018e-04_rb, &\n     &7.5464e-04_rb,9.9267e-04_rb,8.5248e-04_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &1.0648e-05_rb,1.0205e-04_rb,1.5218e-04_rb,1.9460e-04_rb,2.3469e-04_rb,2.7445e-04_rb, &\n     &3.2374e-04_rb,3.9687e-04_rb,3.7021e-04_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &1.2479e-05_rb,1.1864e-04_rb,1.7693e-04_rb,2.2906e-04_rb,2.7817e-04_rb,3.2635e-04_rb, &\n     &3.8100e-04_rb,4.6812e-04_rb,4.2972e-04_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &1.4325e-05_rb,1.3615e-04_rb,2.0613e-04_rb,2.6822e-04_rb,3.2742e-04_rb,3.8532e-04_rb, &\n     &4.4992e-04_rb,5.5581e-04_rb,5.0382e-04_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &1.6131e-05_rb,1.5522e-04_rb,2.3823e-04_rb,3.1216e-04_rb,3.8163e-04_rb,4.4987e-04_rb, &\n     &5.2423e-04_rb,6.5095e-04_rb,5.8901e-04_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &1.7840e-05_rb,1.7738e-04_rb,2.7413e-04_rb,3.6145e-04_rb,4.4307e-04_rb,5.2217e-04_rb, &\n     &6.0968e-04_rb,7.4929e-04_rb,6.8588e-04_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &1.7975e-05_rb,1.1236e-04_rb,1.5383e-04_rb,1.8734e-04_rb,2.1612e-04_rb,2.4014e-04_rb, &\n     &2.6058e-04_rb,2.9343e-04_rb,2.9752e-04_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &2.1208e-05_rb,1.3084e-04_rb,1.8013e-04_rb,2.2080e-04_rb,2.5543e-04_rb,2.8432e-04_rb, &\n     &3.1199e-04_rb,3.4846e-04_rb,3.5196e-04_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &2.4558e-05_rb,1.5021e-04_rb,2.0878e-04_rb,2.5693e-04_rb,2.9945e-04_rb,3.3619e-04_rb, &\n     &3.7048e-04_rb,4.1334e-04_rb,4.1350e-04_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &2.7720e-05_rb,1.7111e-04_rb,2.4012e-04_rb,2.9904e-04_rb,3.4910e-04_rb,3.9367e-04_rb, &\n     &4.3560e-04_rb,4.8351e-04_rb,4.8248e-04_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &3.0839e-05_rb,1.9412e-04_rb,2.7570e-04_rb,3.4584e-04_rb,4.0483e-04_rb,4.5917e-04_rb, &\n     &5.0628e-04_rb,5.6356e-04_rb,5.6016e-04_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &3.0257e-05_rb,1.3348e-04_rb,1.6797e-04_rb,1.9240e-04_rb,2.0954e-04_rb,2.2222e-04_rb, &\n     &2.2898e-04_rb,2.3143e-04_rb,2.5081e-04_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &3.6110e-05_rb,1.5427e-04_rb,1.9683e-04_rb,2.2498e-04_rb,2.4900e-04_rb,2.6495e-04_rb, &\n     &2.7383e-04_rb,2.7831e-04_rb,3.0130e-04_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &4.2020e-05_rb,1.7731e-04_rb,2.2733e-04_rb,2.6268e-04_rb,2.9200e-04_rb,3.1270e-04_rb, &\n     &3.2430e-04_rb,3.3243e-04_rb,3.4977e-04_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &4.7704e-05_rb,2.0254e-04_rb,2.6080e-04_rb,3.0470e-04_rb,3.4066e-04_rb,3.6571e-04_rb, &\n     &3.8177e-04_rb,3.9329e-04_rb,4.0928e-04_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &5.3448e-05_rb,2.2883e-04_rb,2.9767e-04_rb,3.4976e-04_rb,3.9269e-04_rb,4.2565e-04_rb, &\n     &4.4636e-04_rb,4.5989e-04_rb,4.7277e-04_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &4.6988e-05_rb,1.6787e-04_rb,1.9191e-04_rb,2.0648e-04_rb,2.1525e-04_rb,2.1596e-04_rb, &\n     &2.0906e-04_rb,1.9576e-04_rb,2.0610e-04_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &5.6510e-05_rb,1.9317e-04_rb,2.2448e-04_rb,2.4373e-04_rb,2.5210e-04_rb,2.5521e-04_rb, &\n     &2.5032e-04_rb,2.3737e-04_rb,2.5015e-04_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &6.6097e-05_rb,2.2111e-04_rb,2.5901e-04_rb,2.8182e-04_rb,2.9480e-04_rb,2.9992e-04_rb, &\n     &2.9852e-04_rb,2.8340e-04_rb,3.0111e-04_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &7.5373e-05_rb,2.5095e-04_rb,2.9694e-04_rb,3.2434e-04_rb,3.4231e-04_rb,3.5125e-04_rb, &\n     &3.5172e-04_rb,3.3625e-04_rb,3.5720e-04_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &8.4653e-05_rb,2.8271e-04_rb,3.3633e-04_rb,3.7103e-04_rb,3.9540e-04_rb,4.0854e-04_rb, &\n     &4.1017e-04_rb,3.9523e-04_rb,4.0911e-04_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &6.8194e-05_rb,2.1119e-04_rb,2.2511e-04_rb,2.2905e-04_rb,2.2761e-04_rb,2.1982e-04_rb, &\n     &2.0183e-04_rb,1.7113e-04_rb,1.7129e-04_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &8.3032e-05_rb,2.4138e-04_rb,2.6267e-04_rb,2.7055e-04_rb,2.6995e-04_rb,2.6005e-04_rb, &\n     &2.3793e-04_rb,2.0771e-04_rb,2.1052e-04_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &9.7316e-05_rb,2.7435e-04_rb,3.0334e-04_rb,3.1415e-04_rb,3.1605e-04_rb,3.0269e-04_rb, &\n     &2.8123e-04_rb,2.4990e-04_rb,2.5531e-04_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &1.1184e-04_rb,3.0984e-04_rb,3.4680e-04_rb,3.6228e-04_rb,3.6303e-04_rb,3.5165e-04_rb, &\n     &3.2989e-04_rb,2.9654e-04_rb,3.0715e-04_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &1.2632e-04_rb,3.4683e-04_rb,3.9318e-04_rb,4.1205e-04_rb,4.1568e-04_rb,4.0572e-04_rb, &\n     &3.8584e-04_rb,3.4794e-04_rb,3.6334e-04_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &1.0382e-04_rb,2.6395e-04_rb,2.8989e-04_rb,2.8076e-04_rb,2.6344e-04_rb,2.4071e-04_rb, &\n     &2.1106e-04_rb,1.6791e-04_rb,1.4516e-04_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &1.2713e-04_rb,3.0635e-04_rb,3.3550e-04_rb,3.2897e-04_rb,3.1196e-04_rb,2.8824e-04_rb, &\n     &2.5288e-04_rb,2.0031e-04_rb,1.8143e-04_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &1.5126e-04_rb,3.5047e-04_rb,3.8510e-04_rb,3.8068e-04_rb,3.6466e-04_rb,3.3889e-04_rb, &\n     &2.9600e-04_rb,2.3790e-04_rb,2.2323e-04_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &1.7453e-04_rb,3.9749e-04_rb,4.3569e-04_rb,4.3708e-04_rb,4.2166e-04_rb,3.9085e-04_rb, &\n     &3.4474e-04_rb,2.8074e-04_rb,2.7137e-04_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &1.9815e-04_rb,4.4700e-04_rb,4.9020e-04_rb,4.9608e-04_rb,4.8316e-04_rb,4.4845e-04_rb, &\n     &4.0007e-04_rb,3.2811e-04_rb,3.2529e-04_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &1.8568e-04_rb,3.7522e-04_rb,4.0441e-04_rb,4.0400e-04_rb,3.7101e-04_rb,3.2090e-04_rb, &\n     &2.6014e-04_rb,1.8741e-04_rb,1.4093e-04_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &2.2706e-04_rb,4.4100e-04_rb,4.7331e-04_rb,4.6941e-04_rb,4.3330e-04_rb,3.7933e-04_rb, &\n     &3.1116e-04_rb,2.2753e-04_rb,1.7550e-04_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &2.7313e-04_rb,5.0681e-04_rb,5.4665e-04_rb,5.4041e-04_rb,5.0328e-04_rb,4.4299e-04_rb, &\n     &3.6626e-04_rb,2.6706e-04_rb,2.1512e-04_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &3.2050e-04_rb,5.7784e-04_rb,6.2469e-04_rb,6.1766e-04_rb,5.7799e-04_rb,5.1310e-04_rb, &\n     &4.2712e-04_rb,3.1237e-04_rb,2.5864e-04_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &3.6492e-04_rb,6.4972e-04_rb,7.0632e-04_rb,6.9926e-04_rb,6.5563e-04_rb,5.8535e-04_rb, &\n     &4.8972e-04_rb,3.6487e-04_rb,3.1085e-04_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &6.2599e-04_rb,8.6654e-04_rb,9.0634e-04_rb,8.8937e-04_rb,8.1140e-04_rb,7.1027e-04_rb, &\n     &5.7167e-04_rb,3.5735e-04_rb,2.0982e-04_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &7.7627e-04_rb,1.0704e-03_rb,1.1043e-03_rb,1.0586e-03_rb,9.6032e-04_rb,8.3995e-04_rb, &\n     &6.6547e-04_rb,4.2636e-04_rb,2.5832e-04_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &9.3794e-04_rb,1.2619e-03_rb,1.2949e-03_rb,1.2284e-03_rb,1.1156e-03_rb,9.7182e-04_rb, &\n     &7.6979e-04_rb,5.0109e-04_rb,3.1973e-04_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &1.1114e-03_rb,1.4537e-03_rb,1.4722e-03_rb,1.4030e-03_rb,1.2802e-03_rb,1.1177e-03_rb, &\n     &8.8445e-04_rb,5.8120e-04_rb,3.8922e-04_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &1.2779e-03_rb,1.6415e-03_rb,1.6560e-03_rb,1.5834e-03_rb,1.4519e-03_rb,1.2713e-03_rb, &\n     &1.0105e-03_rb,6.6729e-04_rb,4.6624e-04_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &2.4553e-03_rb,2.6165e-03_rb,2.4993e-03_rb,2.2847e-03_rb,2.0267e-03_rb,1.7115e-03_rb, &\n     &1.3397e-03_rb,8.6368e-04_rb,3.6576e-04_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &3.0620e-03_rb,3.2511e-03_rb,3.1049e-03_rb,2.8553e-03_rb,2.5348e-03_rb,2.1265e-03_rb, &\n     &1.6314e-03_rb,1.0269e-03_rb,4.5803e-04_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &3.7364e-03_rb,3.9627e-03_rb,3.7660e-03_rb,3.4224e-03_rb,3.0121e-03_rb,2.5166e-03_rb, &\n     &1.9135e-03_rb,1.1990e-03_rb,5.6685e-04_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &4.4530e-03_rb,4.6554e-03_rb,4.3836e-03_rb,3.9682e-03_rb,3.4829e-03_rb,2.8809e-03_rb, &\n     &2.1972e-03_rb,1.3815e-03_rb,6.9188e-04_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &5.1575e-03_rb,5.3264e-03_rb,4.9909e-03_rb,4.5087e-03_rb,3.9257e-03_rb,3.2602e-03_rb, &\n     &2.4888e-03_rb,1.5715e-03_rb,8.2270e-04_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &3.7833e-03_rb,3.8112e-03_rb,3.5566e-03_rb,3.1989e-03_rb,2.7686e-03_rb,2.2723e-03_rb, &\n     &1.7364e-03_rb,1.0753e-03_rb,4.0590e-04_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &4.6966e-03_rb,4.7207e-03_rb,4.4156e-03_rb,3.9736e-03_rb,3.4554e-03_rb,2.8577e-03_rb, &\n     &2.1338e-03_rb,1.2945e-03_rb,5.0517e-04_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &5.7189e-03_rb,5.7590e-03_rb,5.3345e-03_rb,4.7708e-03_rb,4.1084e-03_rb,3.3729e-03_rb, &\n     &2.5008e-03_rb,1.5078e-03_rb,6.3337e-04_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &6.7827e-03_rb,6.7469e-03_rb,6.2278e-03_rb,5.5367e-03_rb,4.7380e-03_rb,3.8594e-03_rb, &\n     &2.8648e-03_rb,1.7294e-03_rb,7.7415e-04_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &7.8200e-03_rb,7.7382e-03_rb,7.0901e-03_rb,6.2644e-03_rb,5.3533e-03_rb,4.3510e-03_rb, &\n     &3.2356e-03_rb,1.9722e-03_rb,9.3312e-04_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &4.2783e-03_rb,4.2041e-03_rb,3.8742e-03_rb,3.4634e-03_rb,2.9720e-03_rb,2.4393e-03_rb, &\n     &1.8351e-03_rb,1.1175e-03_rb,3.9253e-04_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &5.3337e-03_rb,5.2652e-03_rb,4.8301e-03_rb,4.3189e-03_rb,3.7223e-03_rb,3.0228e-03_rb, &\n     &2.2408e-03_rb,1.3443e-03_rb,4.8795e-04_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &6.5143e-03_rb,6.3579e-03_rb,5.8237e-03_rb,5.1812e-03_rb,4.4118e-03_rb,3.5721e-03_rb, &\n     &2.6281e-03_rb,1.5684e-03_rb,6.0394e-04_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &7.6468e-03_rb,7.4276e-03_rb,6.7625e-03_rb,6.0120e-03_rb,5.0805e-03_rb,4.0892e-03_rb, &\n     &3.0024e-03_rb,1.8032e-03_rb,7.4856e-04_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &8.7322e-03_rb,8.4845e-03_rb,7.6878e-03_rb,6.7875e-03_rb,5.7064e-03_rb,4.6095e-03_rb, &\n     &3.4027e-03_rb,2.0497e-03_rb,9.3030e-04_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &3.8383e-03_rb,3.7685e-03_rb,3.4781e-03_rb,3.1000e-03_rb,2.6661e-03_rb,2.1777e-03_rb, &\n     &1.6207e-03_rb,9.7395e-04_rb,3.4434e-04_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &4.7991e-03_rb,4.7287e-03_rb,4.3604e-03_rb,3.8801e-03_rb,3.3054e-03_rb,2.6658e-03_rb, &\n     &1.9755e-03_rb,1.1692e-03_rb,4.3018e-04_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &5.8240e-03_rb,5.6632e-03_rb,5.1895e-03_rb,4.6114e-03_rb,3.9052e-03_rb,3.1338e-03_rb, &\n     &2.3066e-03_rb,1.3724e-03_rb,5.3490e-04_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &6.7942e-03_rb,6.6067e-03_rb,6.0062e-03_rb,5.2927e-03_rb,4.4607e-03_rb,3.5870e-03_rb, &\n     &2.6413e-03_rb,1.5766e-03_rb,6.6330e-04_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &7.7135e-03_rb,7.4856e-03_rb,6.7623e-03_rb,5.9543e-03_rb,5.0216e-03_rb,4.0477e-03_rb, &\n     &2.9856e-03_rb,1.7918e-03_rb,8.1116e-04_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &2.4793e-05_rb,3.0799e-04_rb,4.6290e-04_rb,5.9325e-04_rb,7.1737e-04_rb,8.2193e-04_rb, &\n     &9.4048e-04_rb,1.1399e-03_rb,1.0252e-03_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &2.6296e-05_rb,3.5350e-04_rb,5.3963e-04_rb,6.9573e-04_rb,8.4910e-04_rb,9.9005e-04_rb, &\n     &1.1353e-03_rb,1.3914e-03_rb,1.2872e-03_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &2.7819e-05_rb,4.0345e-04_rb,6.2337e-04_rb,8.1130e-04_rb,9.9260e-04_rb,1.1727e-03_rb, &\n     &1.3740e-03_rb,1.6958e-03_rb,1.5768e-03_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &2.9505e-05_rb,4.5829e-04_rb,7.1308e-04_rb,9.3786e-04_rb,1.1508e-03_rb,1.3827e-03_rb, &\n     &1.6466e-03_rb,2.0604e-03_rb,1.9074e-03_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &3.1281e-05_rb,5.1795e-04_rb,8.1473e-04_rb,1.0770e-03_rb,1.3366e-03_rb,1.6108e-03_rb, &\n     &1.9547e-03_rb,2.4904e-03_rb,2.2803e-03_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &3.2793e-05_rb,3.0694e-04_rb,4.5221e-04_rb,5.6459e-04_rb,6.5806e-04_rb,7.4456e-04_rb, &\n     &8.0925e-04_rb,9.1019e-04_rb,8.6945e-04_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &3.4666e-05_rb,3.5123e-04_rb,5.2466e-04_rb,6.5968e-04_rb,7.7040e-04_rb,8.8249e-04_rb, &\n     &9.7906e-04_rb,1.1056e-03_rb,1.0654e-03_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &3.6731e-05_rb,4.0004e-04_rb,6.0292e-04_rb,7.6491e-04_rb,9.0091e-04_rb,1.0289e-03_rb, &\n     &1.1668e-03_rb,1.3438e-03_rb,1.2804e-03_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &3.8918e-05_rb,4.5420e-04_rb,6.8900e-04_rb,8.8273e-04_rb,1.0463e-03_rb,1.2043e-03_rb, &\n     &1.3845e-03_rb,1.6322e-03_rb,1.5338e-03_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &4.1070e-05_rb,5.1139e-04_rb,7.8412e-04_rb,1.0082e-03_rb,1.2070e-03_rb,1.4003e-03_rb, &\n     &1.6106e-03_rb,1.9566e-03_rb,1.8338e-03_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &5.7419e-05_rb,3.4417e-04_rb,4.7657e-04_rb,5.8011e-04_rb,6.5776e-04_rb,7.1017e-04_rb, &\n     &7.4352e-04_rb,7.5165e-04_rb,7.1905e-04_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &6.1098e-05_rb,3.8894e-04_rb,5.5050e-04_rb,6.7283e-04_rb,7.6814e-04_rb,8.3562e-04_rb, &\n     &8.7563e-04_rb,9.0812e-04_rb,8.7884e-04_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &6.4950e-05_rb,4.3994e-04_rb,6.3159e-04_rb,7.7584e-04_rb,8.9433e-04_rb,9.7562e-04_rb, &\n     &1.0278e-03_rb,1.0860e-03_rb,1.0655e-03_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &6.9137e-05_rb,4.9606e-04_rb,7.1905e-04_rb,8.8979e-04_rb,1.0295e-03_rb,1.1315e-03_rb, &\n     &1.2033e-03_rb,1.2952e-03_rb,1.2839e-03_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &7.3375e-05_rb,5.5536e-04_rb,8.1436e-04_rb,1.0155e-03_rb,1.1795e-03_rb,1.3051e-03_rb, &\n     &1.4046e-03_rb,1.5168e-03_rb,1.5296e-03_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &1.0086e-04_rb,4.2454e-04_rb,5.2985e-04_rb,6.0848e-04_rb,6.7121e-04_rb,7.0723e-04_rb, &\n     &7.1237e-04_rb,6.8193e-04_rb,6.1640e-04_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &1.0794e-04_rb,4.6886e-04_rb,6.0099e-04_rb,7.0397e-04_rb,7.8290e-04_rb,8.2924e-04_rb, &\n     &8.4042e-04_rb,8.0656e-04_rb,7.3923e-04_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &1.1564e-04_rb,5.1937e-04_rb,6.8316e-04_rb,8.0764e-04_rb,9.0488e-04_rb,9.5975e-04_rb, &\n     &9.8680e-04_rb,9.5115e-04_rb,8.9690e-04_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &1.2339e-04_rb,5.7610e-04_rb,7.7301e-04_rb,9.2354e-04_rb,1.0350e-03_rb,1.1092e-03_rb, &\n     &1.1493e-03_rb,1.1169e-03_rb,1.0760e-03_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &1.3105e-04_rb,6.3905e-04_rb,8.6996e-04_rb,1.0475e-03_rb,1.1809e-03_rb,1.2763e-03_rb, &\n     &1.3289e-03_rb,1.3078e-03_rb,1.2869e-03_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &1.6100e-04_rb,5.0634e-04_rb,6.1668e-04_rb,6.6467e-04_rb,6.8745e-04_rb,6.9758e-04_rb, &\n     &6.8538e-04_rb,6.2098e-04_rb,6.1721e-04_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &1.7365e-04_rb,5.5505e-04_rb,6.8253e-04_rb,7.5603e-04_rb,7.9631e-04_rb,8.1600e-04_rb, &\n     &8.0888e-04_rb,7.3807e-04_rb,7.1431e-04_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &1.8648e-04_rb,6.0992e-04_rb,7.6141e-04_rb,8.5901e-04_rb,9.1428e-04_rb,9.4703e-04_rb, &\n     &9.4315e-04_rb,8.7432e-04_rb,8.2918e-04_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &1.9988e-04_rb,6.7074e-04_rb,8.4873e-04_rb,9.7496e-04_rb,1.0437e-03_rb,1.0922e-03_rb, &\n     &1.0916e-03_rb,1.0269e-03_rb,9.7489e-04_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &2.1403e-04_rb,7.3152e-04_rb,9.4776e-04_rb,1.0959e-03_rb,1.1876e-03_rb,1.2477e-03_rb, &\n     &1.2592e-03_rb,1.1994e-03_rb,1.1556e-03_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &2.3782e-04_rb,5.8473e-04_rb,7.0057e-04_rb,7.3727e-04_rb,7.3866e-04_rb,7.0622e-04_rb, &\n     &6.5578e-04_rb,5.7152e-04_rb,6.4834e-04_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &2.5744e-04_rb,6.5190e-04_rb,7.6744e-04_rb,8.2296e-04_rb,8.3569e-04_rb,8.1871e-04_rb, &\n     &7.7021e-04_rb,6.8232e-04_rb,7.1639e-04_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &2.7664e-04_rb,7.1488e-04_rb,8.5237e-04_rb,9.1762e-04_rb,9.4622e-04_rb,9.4392e-04_rb, &\n     &8.9795e-04_rb,8.0363e-04_rb,8.0674e-04_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &2.9757e-04_rb,7.7689e-04_rb,9.3669e-04_rb,1.0212e-03_rb,1.0750e-03_rb,1.0793e-03_rb, &\n     &1.0394e-03_rb,9.3920e-04_rb,9.2478e-04_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &3.2013e-04_rb,8.4833e-04_rb,1.0249e-03_rb,1.1443e-03_rb,1.2150e-03_rb,1.2313e-03_rb, &\n     &1.1962e-03_rb,1.0926e-03_rb,1.0558e-03_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &3.7226e-04_rb,7.2122e-04_rb,8.2273e-04_rb,8.7424e-04_rb,8.4905e-04_rb,7.9504e-04_rb, &\n     &6.8600e-04_rb,5.4748e-04_rb,6.4757e-04_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &4.0471e-04_rb,8.0580e-04_rb,9.2241e-04_rb,9.6290e-04_rb,9.4856e-04_rb,8.9436e-04_rb, &\n     &7.9088e-04_rb,6.5024e-04_rb,7.6906e-04_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &4.3485e-04_rb,8.8728e-04_rb,1.0201e-03_rb,1.0664e-03_rb,1.0598e-03_rb,1.0046e-03_rb, &\n     &9.1434e-04_rb,7.6471e-04_rb,8.8345e-04_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &4.6779e-04_rb,9.6940e-04_rb,1.1214e-03_rb,1.1802e-03_rb,1.1771e-03_rb,1.1317e-03_rb, &\n     &1.0506e-03_rb,8.9487e-04_rb,9.7870e-04_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &5.0564e-04_rb,1.0493e-03_rb,1.2285e-03_rb,1.2989e-03_rb,1.3103e-03_rb,1.2822e-03_rb, &\n     &1.2004e-03_rb,1.0399e-03_rb,1.0827e-03_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &6.8834e-04_rb,1.0497e-03_rb,1.1354e-03_rb,1.1403e-03_rb,1.1091e-03_rb,1.0282e-03_rb, &\n     &8.6922e-04_rb,6.2179e-04_rb,6.4394e-04_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &7.5262e-04_rb,1.1719e-03_rb,1.2711e-03_rb,1.2847e-03_rb,1.2498e-03_rb,1.1356e-03_rb, &\n     &9.7177e-04_rb,7.1700e-04_rb,7.5449e-04_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &8.1196e-04_rb,1.2925e-03_rb,1.4075e-03_rb,1.4221e-03_rb,1.3886e-03_rb,1.2652e-03_rb, &\n     &1.0898e-03_rb,8.2946e-04_rb,8.8164e-04_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &8.7357e-04_rb,1.4119e-03_rb,1.5462e-03_rb,1.5662e-03_rb,1.5234e-03_rb,1.4066e-03_rb, &\n     &1.2187e-03_rb,9.5583e-04_rb,1.0263e-03_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &9.4776e-04_rb,1.5351e-03_rb,1.6779e-03_rb,1.7191e-03_rb,1.6760e-03_rb,1.5541e-03_rb, &\n     &1.3711e-03_rb,1.0942e-03_rb,1.1866e-03_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &2.4030e-03_rb,2.8116e-03_rb,2.7490e-03_rb,2.5782e-03_rb,2.3739e-03_rb,2.0451e-03_rb, &\n     &1.6352e-03_rb,1.1525e-03_rb,7.8397e-04_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &2.6406e-03_rb,3.0780e-03_rb,3.0311e-03_rb,2.8880e-03_rb,2.6562e-03_rb,2.3012e-03_rb, &\n     &1.8579e-03_rb,1.2942e-03_rb,9.5305e-04_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &2.8588e-03_rb,3.3826e-03_rb,3.3331e-03_rb,3.2003e-03_rb,2.9491e-03_rb,2.5645e-03_rb, &\n     &2.0822e-03_rb,1.4320e-03_rb,1.1371e-03_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &3.0751e-03_rb,3.6837e-03_rb,3.6521e-03_rb,3.5172e-03_rb,3.2330e-03_rb,2.8266e-03_rb, &\n     &2.3022e-03_rb,1.5958e-03_rb,1.3270e-03_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &3.3401e-03_rb,4.0139e-03_rb,3.9712e-03_rb,3.8387e-03_rb,3.5273e-03_rb,3.0908e-03_rb, &\n     &2.5332e-03_rb,1.7734e-03_rb,1.5421e-03_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &9.4661e-03_rb,9.3672e-03_rb,8.6815e-03_rb,7.7670e-03_rb,6.6533e-03_rb,5.4267e-03_rb, &\n     &4.0804e-03_rb,2.5558e-03_rb,1.0683e-03_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &1.0403e-02_rb,1.0310e-02_rb,9.5215e-03_rb,8.5122e-03_rb,7.3124e-03_rb,5.9813e-03_rb, &\n     &4.5509e-03_rb,2.8739e-03_rb,1.2946e-03_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &1.1289e-02_rb,1.1218e-02_rb,1.0349e-02_rb,9.3127e-03_rb,8.0182e-03_rb,6.6138e-03_rb, &\n     &5.0551e-03_rb,3.2072e-03_rb,1.5622e-03_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &1.2130e-02_rb,1.2221e-02_rb,1.1320e-02_rb,1.0189e-02_rb,8.7979e-03_rb,7.2832e-03_rb, &\n     &5.5873e-03_rb,3.5427e-03_rb,1.8389e-03_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &1.3100e-02_rb,1.3300e-02_rb,1.2340e-02_rb,1.1131e-02_rb,9.6189e-03_rb,7.9428e-03_rb, &\n     &6.1291e-03_rb,3.8793e-03_rb,2.1440e-03_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &1.3487e-02_rb,1.2984e-02_rb,1.1782e-02_rb,1.0398e-02_rb,8.8336e-03_rb,7.1334e-03_rb, &\n     &5.2262e-03_rb,3.1590e-03_rb,1.1845e-03_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &1.4804e-02_rb,1.4185e-02_rb,1.2823e-02_rb,1.1346e-02_rb,9.6530e-03_rb,7.7631e-03_rb, &\n     &5.7673e-03_rb,3.5383e-03_rb,1.4275e-03_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &1.5980e-02_rb,1.5367e-02_rb,1.3971e-02_rb,1.2366e-02_rb,1.0542e-02_rb,8.5565e-03_rb, &\n     &6.3780e-03_rb,3.9351e-03_rb,1.7235e-03_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &1.7219e-02_rb,1.6745e-02_rb,1.5253e-02_rb,1.3475e-02_rb,1.1557e-02_rb,9.4243e-03_rb, &\n     &6.9880e-03_rb,4.3338e-03_rb,2.0121e-03_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &1.8659e-02_rb,1.8178e-02_rb,1.6582e-02_rb,1.4739e-02_rb,1.2667e-02_rb,1.0254e-02_rb, &\n     &7.6524e-03_rb,4.7481e-03_rb,2.3669e-03_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &1.4430e-02_rb,1.3711e-02_rb,1.2344e-02_rb,1.0793e-02_rb,9.1312e-03_rb,7.2788e-03_rb, &\n     &5.2885e-03_rb,3.1556e-03_rb,1.1392e-03_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &1.5757e-02_rb,1.4929e-02_rb,1.3431e-02_rb,1.1729e-02_rb,9.9240e-03_rb,7.9738e-03_rb, &\n     &5.8467e-03_rb,3.5123e-03_rb,1.3911e-03_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &1.6948e-02_rb,1.6169e-02_rb,1.4634e-02_rb,1.2830e-02_rb,1.0856e-02_rb,8.7512e-03_rb, &\n     &6.4418e-03_rb,3.8765e-03_rb,1.6585e-03_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &1.8340e-02_rb,1.7651e-02_rb,1.6013e-02_rb,1.4019e-02_rb,1.1962e-02_rb,9.6662e-03_rb, &\n     &7.0623e-03_rb,4.2621e-03_rb,1.9806e-03_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &1.9917e-02_rb,1.9194e-02_rb,1.7450e-02_rb,1.5375e-02_rb,1.3136e-02_rb,1.0559e-02_rb, &\n     &7.7061e-03_rb,4.6735e-03_rb,2.2886e-03_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &1.2378e-02_rb,1.1740e-02_rb,1.0520e-02_rb,9.1794e-03_rb,7.7313e-03_rb,6.1547e-03_rb, &\n     &4.4837e-03_rb,2.6655e-03_rb,9.8041e-04_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &1.3400e-02_rb,1.2704e-02_rb,1.1442e-02_rb,9.9607e-03_rb,8.4166e-03_rb,6.7824e-03_rb, &\n     &4.9464e-03_rb,2.9635e-03_rb,1.2027e-03_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &1.4376e-02_rb,1.3828e-02_rb,1.2497e-02_rb,1.0944e-02_rb,9.2894e-03_rb,7.4859e-03_rb, &\n     &5.4627e-03_rb,3.2639e-03_rb,1.4455e-03_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &1.5663e-02_rb,1.5087e-02_rb,1.3675e-02_rb,1.2023e-02_rb,1.0248e-02_rb,8.2522e-03_rb, &\n     &5.9994e-03_rb,3.5980e-03_rb,1.7132e-03_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &1.7084e-02_rb,1.6538e-02_rb,1.5027e-02_rb,1.3180e-02_rb,1.1220e-02_rb,9.0513e-03_rb, &\n     &6.5567e-03_rb,3.9396e-03_rb,2.0154e-03_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &4.5432e-05_rb,6.4085e-04_rb,1.0470e-03_rb,1.4404e-03_rb,1.8333e-03_rb,2.2857e-03_rb, &\n     &2.8540e-03_rb,3.7474e-03_rb,3.3078e-03_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &4.6775e-05_rb,7.3260e-04_rb,1.2196e-03_rb,1.6906e-03_rb,2.1700e-03_rb,2.7279e-03_rb, &\n     &3.3928e-03_rb,4.5435e-03_rb,4.0031e-03_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &4.7907e-05_rb,8.4030e-04_rb,1.4168e-03_rb,1.9771e-03_rb,2.5623e-03_rb,3.2199e-03_rb, &\n     &4.0380e-03_rb,5.3656e-03_rb,4.7474e-03_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &4.8733e-05_rb,9.6171e-04_rb,1.6416e-03_rb,2.3126e-03_rb,3.0275e-03_rb,3.7946e-03_rb, &\n     &4.7571e-03_rb,6.3684e-03_rb,5.6396e-03_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &4.9568e-05_rb,1.0960e-03_rb,1.8926e-03_rb,2.6893e-03_rb,3.5365e-03_rb,4.4677e-03_rb, &\n     &5.5986e-03_rb,7.4848e-03_rb,6.6760e-03_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &5.9644e-05_rb,6.5165e-04_rb,9.7095e-04_rb,1.2735e-03_rb,1.5693e-03_rb,1.8723e-03_rb, &\n     &2.2435e-03_rb,2.8303e-03_rb,2.5518e-03_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &6.1550e-05_rb,7.3433e-04_rb,1.1155e-03_rb,1.4862e-03_rb,1.8480e-03_rb,2.2144e-03_rb, &\n     &2.6782e-03_rb,3.3851e-03_rb,3.1028e-03_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &6.3424e-05_rb,8.2814e-04_rb,1.2862e-03_rb,1.7299e-03_rb,2.1667e-03_rb,2.6220e-03_rb, &\n     &3.1654e-03_rb,4.0290e-03_rb,3.7219e-03_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &6.4618e-05_rb,9.2770e-04_rb,1.4812e-03_rb,2.0000e-03_rb,2.5281e-03_rb,3.0889e-03_rb, &\n     &3.7301e-03_rb,4.7467e-03_rb,4.4551e-03_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &6.6495e-05_rb,1.0413e-03_rb,1.6912e-03_rb,2.3096e-03_rb,2.9324e-03_rb,3.6063e-03_rb, &\n     &4.3915e-03_rb,5.5831e-03_rb,5.2779e-03_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &1.0462e-04_rb,7.2939e-04_rb,1.0510e-03_rb,1.2708e-03_rb,1.4590e-03_rb,1.6268e-03_rb, &\n     &1.8071e-03_rb,2.0571e-03_rb,1.9983e-03_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &1.0853e-04_rb,8.1591e-04_rb,1.1915e-03_rb,1.4605e-03_rb,1.6878e-03_rb,1.9079e-03_rb, &\n     &2.1403e-03_rb,2.4652e-03_rb,2.3859e-03_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &1.1161e-04_rb,9.0807e-04_rb,1.3452e-03_rb,1.6696e-03_rb,1.9436e-03_rb,2.2298e-03_rb, &\n     &2.5245e-03_rb,2.9256e-03_rb,2.8236e-03_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &1.1463e-04_rb,1.0096e-03_rb,1.5126e-03_rb,1.9029e-03_rb,2.2460e-03_rb,2.5957e-03_rb, &\n     &2.9637e-03_rb,3.4539e-03_rb,3.3286e-03_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &1.1771e-04_rb,1.1227e-03_rb,1.6998e-03_rb,2.1624e-03_rb,2.5867e-03_rb,3.0031e-03_rb, &\n     &3.4507e-03_rb,4.0691e-03_rb,3.9216e-03_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &1.8980e-04_rb,8.1690e-04_rb,1.1496e-03_rb,1.3743e-03_rb,1.5174e-03_rb,1.5997e-03_rb, &\n     &1.6364e-03_rb,1.6486e-03_rb,1.6867e-03_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &1.9681e-04_rb,9.1682e-04_rb,1.2947e-03_rb,1.5538e-03_rb,1.7351e-03_rb,1.8526e-03_rb, &\n     &1.9065e-03_rb,1.9583e-03_rb,2.0215e-03_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &2.0208e-04_rb,1.0146e-03_rb,1.4514e-03_rb,1.7516e-03_rb,1.9841e-03_rb,2.1383e-03_rb, &\n     &2.2138e-03_rb,2.3082e-03_rb,2.3998e-03_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &2.0762e-04_rb,1.1226e-03_rb,1.6211e-03_rb,1.9728e-03_rb,2.2623e-03_rb,2.4506e-03_rb, &\n     &2.5563e-03_rb,2.7166e-03_rb,2.8343e-03_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &2.1385e-04_rb,1.2397e-03_rb,1.8026e-03_rb,2.2223e-03_rb,2.5659e-03_rb,2.7894e-03_rb, &\n     &2.9545e-03_rb,3.1771e-03_rb,3.3076e-03_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &3.1379e-04_rb,9.3426e-04_rb,1.2166e-03_rb,1.4285e-03_rb,1.5654e-03_rb,1.6404e-03_rb, &\n     &1.5965e-03_rb,1.4828e-03_rb,1.3604e-03_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &3.2699e-04_rb,1.0358e-03_rb,1.3783e-03_rb,1.6163e-03_rb,1.7786e-03_rb,1.8763e-03_rb, &\n     &1.8530e-03_rb,1.7399e-03_rb,1.6555e-03_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &3.3749e-04_rb,1.1387e-03_rb,1.5374e-03_rb,1.8184e-03_rb,2.0178e-03_rb,2.1215e-03_rb, &\n     &2.1453e-03_rb,2.0239e-03_rb,1.9794e-03_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &3.4807e-04_rb,1.2529e-03_rb,1.7131e-03_rb,2.0397e-03_rb,2.2808e-03_rb,2.4051e-03_rb, &\n     &2.4718e-03_rb,2.3502e-03_rb,2.3300e-03_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &3.5954e-04_rb,1.3777e-03_rb,1.8982e-03_rb,2.2796e-03_rb,2.5586e-03_rb,2.7323e-03_rb, &\n     &2.8236e-03_rb,2.7161e-03_rb,2.7237e-03_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &4.7800e-04_rb,1.0890e-03_rb,1.3133e-03_rb,1.4652e-03_rb,1.5696e-03_rb,1.6077e-03_rb, &\n     &1.5816e-03_rb,1.3782e-03_rb,1.1543e-03_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &5.0135e-04_rb,1.1692e-03_rb,1.4789e-03_rb,1.6725e-03_rb,1.7871e-03_rb,1.8348e-03_rb, &\n     &1.8106e-03_rb,1.6080e-03_rb,1.4185e-03_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &5.2250e-04_rb,1.2684e-03_rb,1.6447e-03_rb,1.8893e-03_rb,2.0173e-03_rb,2.0845e-03_rb, &\n     &2.0641e-03_rb,1.8764e-03_rb,1.6970e-03_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &5.4010e-04_rb,1.3890e-03_rb,1.8350e-03_rb,2.1143e-03_rb,2.2731e-03_rb,2.3591e-03_rb, &\n     &2.3476e-03_rb,2.1762e-03_rb,2.0061e-03_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &5.6086e-04_rb,1.5152e-03_rb,2.0323e-03_rb,2.3522e-03_rb,2.5434e-03_rb,2.6585e-03_rb, &\n     &2.6646e-03_rb,2.5043e-03_rb,2.3580e-03_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &7.6472e-04_rb,1.4103e-03_rb,1.5811e-03_rb,1.6521e-03_rb,1.6700e-03_rb,1.6355e-03_rb, &\n     &1.5716e-03_rb,1.3655e-03_rb,1.1953e-03_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &8.0405e-04_rb,1.4820e-03_rb,1.7182e-03_rb,1.8432e-03_rb,1.9040e-03_rb,1.8839e-03_rb, &\n     &1.8004e-03_rb,1.5836e-03_rb,1.3245e-03_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &8.3976e-04_rb,1.5925e-03_rb,1.8706e-03_rb,2.0547e-03_rb,2.1511e-03_rb,2.1580e-03_rb, &\n     &2.0497e-03_rb,1.8151e-03_rb,1.5136e-03_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &8.7606e-04_rb,1.7044e-03_rb,2.0552e-03_rb,2.2845e-03_rb,2.4212e-03_rb,2.4433e-03_rb, &\n     &2.3312e-03_rb,2.0671e-03_rb,1.7685e-03_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &9.1065e-04_rb,1.8368e-03_rb,2.2563e-03_rb,2.5472e-03_rb,2.7054e-03_rb,2.7384e-03_rb, &\n     &2.6284e-03_rb,2.3513e-03_rb,2.0612e-03_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &1.4362e-03_rb,2.1402e-03_rb,2.2733e-03_rb,2.2579e-03_rb,2.1547e-03_rb,1.9686e-03_rb, &\n     &1.7196e-03_rb,1.4177e-03_rb,1.4603e-03_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &1.5196e-03_rb,2.2635e-03_rb,2.4111e-03_rb,2.4495e-03_rb,2.3642e-03_rb,2.2258e-03_rb, &\n     &1.9891e-03_rb,1.6444e-03_rb,1.7173e-03_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &1.5863e-03_rb,2.3882e-03_rb,2.5869e-03_rb,2.6588e-03_rb,2.5952e-03_rb,2.5025e-03_rb, &\n     &2.2780e-03_rb,1.8819e-03_rb,1.8908e-03_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &1.6588e-03_rb,2.5177e-03_rb,2.7792e-03_rb,2.8954e-03_rb,2.8908e-03_rb,2.7990e-03_rb, &\n     &2.5915e-03_rb,2.1558e-03_rb,2.0333e-03_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &1.7367e-03_rb,2.6935e-03_rb,3.0017e-03_rb,3.1619e-03_rb,3.2065e-03_rb,3.1297e-03_rb, &\n     &2.9147e-03_rb,2.4525e-03_rb,2.1765e-03_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &5.1377e-03_rb,5.6879e-03_rb,5.6413e-03_rb,5.3776e-03_rb,4.8224e-03_rb,4.1689e-03_rb, &\n     &3.3325e-03_rb,2.2481e-03_rb,2.0122e-03_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &5.4511e-03_rb,6.1548e-03_rb,6.1332e-03_rb,5.7185e-03_rb,5.1593e-03_rb,4.4551e-03_rb, &\n     &3.6302e-03_rb,2.5234e-03_rb,2.3673e-03_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &5.7014e-03_rb,6.5729e-03_rb,6.5250e-03_rb,6.0830e-03_rb,5.4507e-03_rb,4.7941e-03_rb, &\n     &3.9451e-03_rb,2.8561e-03_rb,2.7249e-03_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &5.9876e-03_rb,6.9491e-03_rb,6.9266e-03_rb,6.3994e-03_rb,5.8665e-03_rb,5.2094e-03_rb, &\n     &4.3177e-03_rb,3.2100e-03_rb,3.0655e-03_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &6.2578e-03_rb,7.3161e-03_rb,7.3395e-03_rb,6.8572e-03_rb,6.3066e-03_rb,5.6391e-03_rb, &\n     &4.7410e-03_rb,3.6035e-03_rb,3.3864e-03_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &2.0796e-02_rb,2.0019e-02_rb,1.8165e-02_rb,1.6068e-02_rb,1.3873e-02_rb,1.1404e-02_rb, &\n     &8.6779e-03_rb,5.2784e-03_rb,2.8413e-03_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &2.2188e-02_rb,2.1487e-02_rb,1.9617e-02_rb,1.7448e-02_rb,1.5124e-02_rb,1.2499e-02_rb, &\n     &9.2630e-03_rb,5.6664e-03_rb,3.3963e-03_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &2.3219e-02_rb,2.2843e-02_rb,2.1086e-02_rb,1.8777e-02_rb,1.6130e-02_rb,1.3209e-02_rb, &\n     &9.9059e-03_rb,6.0802e-03_rb,4.0019e-03_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &2.4435e-02_rb,2.4082e-02_rb,2.2303e-02_rb,1.9851e-02_rb,1.7023e-02_rb,1.4121e-02_rb, &\n     &1.0410e-02_rb,6.5843e-03_rb,4.6477e-03_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &2.5609e-02_rb,2.5343e-02_rb,2.3560e-02_rb,2.0930e-02_rb,1.8042e-02_rb,1.4937e-02_rb, &\n     &1.1163e-02_rb,7.1400e-03_rb,5.2598e-03_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &3.0218e-02_rb,2.8464e-02_rb,2.5566e-02_rb,2.2189e-02_rb,1.8763e-02_rb,1.5165e-02_rb, &\n     &1.1286e-02_rb,6.7271e-03_rb,3.0443e-03_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &3.2017e-02_rb,3.0288e-02_rb,2.7351e-02_rb,2.3960e-02_rb,2.0417e-02_rb,1.6571e-02_rb, &\n     &1.2201e-02_rb,7.2159e-03_rb,3.6072e-03_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &3.3713e-02_rb,3.2141e-02_rb,2.9172e-02_rb,2.5698e-02_rb,2.1768e-02_rb,1.7546e-02_rb, &\n     &1.2989e-02_rb,7.6734e-03_rb,4.2021e-03_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &3.5523e-02_rb,3.3941e-02_rb,3.0802e-02_rb,2.7264e-02_rb,2.3091e-02_rb,1.8512e-02_rb, &\n     &1.3848e-02_rb,8.2207e-03_rb,4.9261e-03_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &3.7048e-02_rb,3.5659e-02_rb,3.2500e-02_rb,2.8766e-02_rb,2.4380e-02_rb,1.9724e-02_rb, &\n     &1.4735e-02_rb,8.8773e-03_rb,5.6292e-03_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &3.2170e-02_rb,2.9965e-02_rb,2.6774e-02_rb,2.3265e-02_rb,1.9604e-02_rb,1.5767e-02_rb, &\n     &1.1665e-02_rb,6.8628e-03_rb,2.9693e-03_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &3.3877e-02_rb,3.1857e-02_rb,2.8686e-02_rb,2.5070e-02_rb,2.1306e-02_rb,1.7043e-02_rb, &\n     &1.2460e-02_rb,7.3567e-03_rb,3.5157e-03_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &3.5821e-02_rb,3.3840e-02_rb,3.0497e-02_rb,2.6646e-02_rb,2.2619e-02_rb,1.8108e-02_rb, &\n     &1.3276e-02_rb,7.8561e-03_rb,4.1559e-03_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &3.7503e-02_rb,3.5506e-02_rb,3.2126e-02_rb,2.8288e-02_rb,2.3902e-02_rb,1.9181e-02_rb, &\n     &1.4142e-02_rb,8.3990e-03_rb,4.8088e-03_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &3.9218e-02_rb,3.7289e-02_rb,3.3764e-02_rb,2.9747e-02_rb,2.5253e-02_rb,2.0345e-02_rb, &\n     &1.5175e-02_rb,9.0569e-03_rb,5.5254e-03_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &2.7021e-02_rb,2.5240e-02_rb,2.2638e-02_rb,1.9764e-02_rb,1.6669e-02_rb,1.3389e-02_rb, &\n     &9.8031e-03_rb,5.7609e-03_rb,2.5391e-03_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &2.8550e-02_rb,2.6888e-02_rb,2.4164e-02_rb,2.1146e-02_rb,1.7859e-02_rb,1.4211e-02_rb, &\n     &1.0456e-02_rb,6.1648e-03_rb,3.0359e-03_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &3.0206e-02_rb,2.8336e-02_rb,2.5560e-02_rb,2.2362e-02_rb,1.8953e-02_rb,1.5151e-02_rb, &\n     &1.1086e-02_rb,6.5998e-03_rb,3.5704e-03_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &3.1495e-02_rb,2.9878e-02_rb,2.6989e-02_rb,2.3626e-02_rb,1.9993e-02_rb,1.6052e-02_rb, &\n     &1.1891e-02_rb,7.0977e-03_rb,4.1349e-03_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &3.2969e-02_rb,3.1259e-02_rb,2.8282e-02_rb,2.5005e-02_rb,2.1232e-02_rb,1.7061e-02_rb, &\n     &1.2808e-02_rb,7.6578e-03_rb,4.7180e-03_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &7.7208e-05_rb,1.2983e-03_rb,2.1990e-03_rb,3.0698e-03_rb,3.9335e-03_rb,4.8939e-03_rb, &\n     &6.0507e-03_rb,7.9864e-03_rb,7.3950e-03_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &7.7960e-05_rb,1.4953e-03_rb,2.5372e-03_rb,3.5852e-03_rb,4.6877e-03_rb,5.9141e-03_rb, &\n     &7.4453e-03_rb,9.6664e-03_rb,8.9362e-03_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &7.8616e-05_rb,1.7027e-03_rb,2.9428e-03_rb,4.1895e-03_rb,5.5241e-03_rb,7.0220e-03_rb, &\n     &8.8894e-03_rb,1.1837e-02_rb,1.0698e-02_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &7.9284e-05_rb,1.9233e-03_rb,3.3889e-03_rb,4.8861e-03_rb,6.4864e-03_rb,8.2886e-03_rb, &\n     &1.0489e-02_rb,1.4031e-02_rb,1.2687e-02_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &8.0311e-05_rb,2.1623e-03_rb,3.8730e-03_rb,5.6513e-03_rb,7.5603e-03_rb,9.7064e-03_rb, &\n     &1.2306e-02_rb,1.6419e-02_rb,1.4857e-02_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &1.0510e-04_rb,1.2010e-03_rb,1.9708e-03_rb,2.6863e-03_rb,3.3801e-03_rb,4.0401e-03_rb, &\n     &4.8065e-03_rb,5.9839e-03_rb,5.8720e-03_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &1.0618e-04_rb,1.3719e-03_rb,2.2892e-03_rb,3.1040e-03_rb,3.9264e-03_rb,4.7961e-03_rb, &\n     &5.8356e-03_rb,7.3351e-03_rb,7.0925e-03_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &1.0689e-04_rb,1.5661e-03_rb,2.6266e-03_rb,3.5943e-03_rb,4.5681e-03_rb,5.6180e-03_rb, &\n     &6.8759e-03_rb,8.8640e-03_rb,8.4509e-03_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &1.0861e-04_rb,1.7752e-03_rb,2.9853e-03_rb,4.1453e-03_rb,5.3192e-03_rb,6.5973e-03_rb, &\n     &8.1274e-03_rb,1.0456e-02_rb,1.0031e-02_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &1.1004e-04_rb,1.9945e-03_rb,3.3831e-03_rb,4.7368e-03_rb,6.1454e-03_rb,7.6846e-03_rb, &\n     &9.5320e-03_rb,1.2312e-02_rb,1.1757e-02_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &1.9166e-04_rb,1.3172e-03_rb,1.9278e-03_rb,2.4677e-03_rb,2.9707e-03_rb,3.4895e-03_rb, &\n     &3.9440e-03_rb,4.4484e-03_rb,4.3497e-03_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &1.9336e-04_rb,1.4888e-03_rb,2.1997e-03_rb,2.8500e-03_rb,3.4656e-03_rb,4.0405e-03_rb, &\n     &4.6494e-03_rb,5.3886e-03_rb,5.2876e-03_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &1.9552e-04_rb,1.6719e-03_rb,2.4978e-03_rb,3.2794e-03_rb,4.0171e-03_rb,4.6883e-03_rb, &\n     &5.3810e-03_rb,6.3663e-03_rb,6.3594e-03_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &1.9793e-04_rb,1.8618e-03_rb,2.8193e-03_rb,3.7421e-03_rb,4.6002e-03_rb,5.4246e-03_rb, &\n     &6.2790e-03_rb,7.4939e-03_rb,7.6260e-03_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &2.0202e-04_rb,2.0622e-03_rb,3.1772e-03_rb,4.2408e-03_rb,5.2345e-03_rb,6.2239e-03_rb, &\n     &7.2922e-03_rb,8.8196e-03_rb,9.0035e-03_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &3.5080e-04_rb,1.5106e-03_rb,2.1048e-03_rb,2.5530e-03_rb,2.8923e-03_rb,3.1426e-03_rb, &\n     &3.3832e-03_rb,3.6360e-03_rb,3.6099e-03_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &3.5494e-04_rb,1.6898e-03_rb,2.3828e-03_rb,2.9160e-03_rb,3.3056e-03_rb,3.6304e-03_rb, &\n     &3.9520e-03_rb,4.2994e-03_rb,4.2882e-03_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &3.5978e-04_rb,1.8836e-03_rb,2.6877e-03_rb,3.3008e-03_rb,3.7593e-03_rb,4.1815e-03_rb, &\n     &4.6053e-03_rb,4.9917e-03_rb,5.0514e-03_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &3.6746e-04_rb,2.0763e-03_rb,3.0082e-03_rb,3.7203e-03_rb,4.2549e-03_rb,4.7934e-03_rb, &\n     &5.3242e-03_rb,5.8169e-03_rb,5.8760e-03_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &3.7911e-04_rb,2.2831e-03_rb,3.3520e-03_rb,4.1619e-03_rb,4.7913e-03_rb,5.4605e-03_rb, &\n     &6.1003e-03_rb,6.7476e-03_rb,6.8032e-03_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &5.8701e-04_rb,1.7294e-03_rb,2.3007e-03_rb,2.6940e-03_rb,2.9671e-03_rb,3.1134e-03_rb, &\n     &3.1768e-03_rb,3.0490e-03_rb,3.1049e-03_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &5.9308e-04_rb,1.9111e-03_rb,2.5835e-03_rb,3.0407e-03_rb,3.3851e-03_rb,3.5845e-03_rb, &\n     &3.6445e-03_rb,3.5746e-03_rb,3.6940e-03_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &6.0356e-04_rb,2.1186e-03_rb,2.8868e-03_rb,3.4242e-03_rb,3.8486e-03_rb,4.1112e-03_rb, &\n     &4.1722e-03_rb,4.1940e-03_rb,4.3605e-03_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &6.1818e-04_rb,2.3278e-03_rb,3.1936e-03_rb,3.8321e-03_rb,4.3352e-03_rb,4.6666e-03_rb, &\n     &4.7552e-03_rb,4.8779e-03_rb,5.1110e-03_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &6.3535e-04_rb,2.5512e-03_rb,3.5322e-03_rb,4.2882e-03_rb,4.8679e-03_rb,5.2358e-03_rb, &\n     &5.3921e-03_rb,5.6199e-03_rb,5.9412e-03_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &9.2532e-04_rb,2.0015e-03_rb,2.5277e-03_rb,2.8421e-03_rb,3.0437e-03_rb,3.1018e-03_rb, &\n     &3.0296e-03_rb,2.8221e-03_rb,2.6040e-03_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &9.2928e-04_rb,2.2000e-03_rb,2.8005e-03_rb,3.1777e-03_rb,3.4468e-03_rb,3.5577e-03_rb, &\n     &3.5029e-03_rb,3.2686e-03_rb,3.0871e-03_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &9.4818e-04_rb,2.4342e-03_rb,3.0892e-03_rb,3.5513e-03_rb,3.8786e-03_rb,4.0485e-03_rb, &\n     &4.0367e-03_rb,3.7564e-03_rb,3.6084e-03_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &9.7245e-04_rb,2.6688e-03_rb,3.4060e-03_rb,3.9527e-03_rb,4.3416e-03_rb,4.5754e-03_rb, &\n     &4.6140e-03_rb,4.3161e-03_rb,4.2427e-03_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &9.9339e-04_rb,2.9158e-03_rb,3.7426e-03_rb,4.3630e-03_rb,4.8503e-03_rb,5.1436e-03_rb, &\n     &5.2166e-03_rb,4.9082e-03_rb,4.9378e-03_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &1.5302e-03_rb,2.5414e-03_rb,2.9540e-03_rb,3.1974e-03_rb,3.3103e-03_rb,3.2792e-03_rb, &\n     &3.0626e-03_rb,2.6477e-03_rb,2.2296e-03_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &1.5437e-03_rb,2.8069e-03_rb,3.2725e-03_rb,3.5730e-03_rb,3.6894e-03_rb,3.7000e-03_rb, &\n     &3.5141e-03_rb,3.0866e-03_rb,2.7517e-03_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &1.5828e-03_rb,3.0663e-03_rb,3.6143e-03_rb,3.9451e-03_rb,4.1195e-03_rb,4.1576e-03_rb, &\n     &4.0163e-03_rb,3.5822e-03_rb,3.3032e-03_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &1.6196e-03_rb,3.3257e-03_rb,3.9578e-03_rb,4.3834e-03_rb,4.5853e-03_rb,4.6606e-03_rb, &\n     &4.5385e-03_rb,4.1261e-03_rb,3.9000e-03_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &1.6660e-03_rb,3.6179e-03_rb,4.3451e-03_rb,4.8226e-03_rb,5.0668e-03_rb,5.1930e-03_rb, &\n     &5.1180e-03_rb,4.7030e-03_rb,4.5474e-03_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &2.9602e-03_rb,3.9304e-03_rb,4.1580e-03_rb,4.2228e-03_rb,4.1165e-03_rb,3.9147e-03_rb, &\n     &3.5216e-03_rb,2.8265e-03_rb,2.2242e-03_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &2.9996e-03_rb,4.2668e-03_rb,4.6028e-03_rb,4.6806e-03_rb,4.6212e-03_rb,4.3859e-03_rb, &\n     &3.9542e-03_rb,3.2447e-03_rb,2.5165e-03_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &3.0790e-03_rb,4.6440e-03_rb,5.0256e-03_rb,5.1447e-03_rb,5.1348e-03_rb,4.8892e-03_rb, &\n     &4.4430e-03_rb,3.7287e-03_rb,2.9386e-03_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &3.1467e-03_rb,5.0515e-03_rb,5.4655e-03_rb,5.6295e-03_rb,5.6440e-03_rb,5.4532e-03_rb, &\n     &4.9689e-03_rb,4.2347e-03_rb,3.5150e-03_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &3.2473e-03_rb,5.4319e-03_rb,5.9099e-03_rb,6.1513e-03_rb,6.2421e-03_rb,6.0606e-03_rb, &\n     &5.5483e-03_rb,4.7752e-03_rb,4.1476e-03_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &1.0715e-02_rb,1.1382e-02_rb,1.0899e-02_rb,1.0007e-02_rb,9.0437e-03_rb,7.6976e-03_rb, &\n     &6.2825e-03_rb,4.4971e-03_rb,3.7652e-03_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &1.0909e-02_rb,1.1862e-02_rb,1.1397e-02_rb,1.0777e-02_rb,9.8877e-03_rb,8.5937e-03_rb, &\n     &7.0755e-03_rb,5.0938e-03_rb,4.2507e-03_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &1.1246e-02_rb,1.2418e-02_rb,1.2293e-02_rb,1.1701e-02_rb,1.0880e-02_rb,9.4889e-03_rb, &\n     &7.8244e-03_rb,5.6718e-03_rb,4.5213e-03_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &1.1484e-02_rb,1.3245e-02_rb,1.3252e-02_rb,1.2816e-02_rb,1.1850e-02_rb,1.0328e-02_rb, &\n     &8.6168e-03_rb,6.3257e-03_rb,4.7999e-03_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &1.1883e-02_rb,1.4169e-02_rb,1.4256e-02_rb,1.3856e-02_rb,1.2835e-02_rb,1.1196e-02_rb, &\n     &9.4286e-03_rb,7.0084e-03_rb,5.1834e-03_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &4.3348e-02_rb,4.0646e-02_rb,3.6539e-02_rb,3.2078e-02_rb,2.7151e-02_rb,2.1841e-02_rb, &\n     &1.6185e-02_rb,9.9201e-03_rb,6.7193e-03_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &4.4149e-02_rb,4.2066e-02_rb,3.8091e-02_rb,3.3609e-02_rb,2.8552e-02_rb,2.2983e-02_rb, &\n     &1.7376e-02_rb,1.1009e-02_rb,7.5436e-03_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &4.5674e-02_rb,4.3639e-02_rb,3.9624e-02_rb,3.4947e-02_rb,3.0188e-02_rb,2.4887e-02_rb, &\n     &1.8903e-02_rb,1.2177e-02_rb,8.3556e-03_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &4.6947e-02_rb,4.5302e-02_rb,4.1477e-02_rb,3.7249e-02_rb,3.2588e-02_rb,2.6746e-02_rb, &\n     &2.0815e-02_rb,1.3320e-02_rb,9.0276e-03_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &4.8633e-02_rb,4.7885e-02_rb,4.4096e-02_rb,3.9864e-02_rb,3.4957e-02_rb,2.9104e-02_rb, &\n     &2.2653e-02_rb,1.4428e-02_rb,9.7333e-03_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &6.1692e-02_rb,5.6780e-02_rb,5.0232e-02_rb,4.3693e-02_rb,3.6664e-02_rb,2.9101e-02_rb, &\n     &2.1139e-02_rb,1.2500e-02_rb,7.3091e-03_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &6.3633e-02_rb,5.9268e-02_rb,5.2865e-02_rb,4.5871e-02_rb,3.8419e-02_rb,3.0609e-02_rb, &\n     &2.2496e-02_rb,1.3660e-02_rb,8.2073e-03_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &6.5598e-02_rb,6.1281e-02_rb,5.4828e-02_rb,4.7713e-02_rb,4.0401e-02_rb,3.2790e-02_rb, &\n     &2.4296e-02_rb,1.5126e-02_rb,8.8706e-03_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &6.7575e-02_rb,6.3884e-02_rb,5.7739e-02_rb,5.0715e-02_rb,4.3385e-02_rb,3.5358e-02_rb, &\n     &2.6343e-02_rb,1.6652e-02_rb,9.5120e-03_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &7.0953e-02_rb,6.7728e-02_rb,6.1195e-02_rb,5.3939e-02_rb,4.6283e-02_rb,3.8093e-02_rb, &\n     &2.8648e-02_rb,1.8051e-02_rb,1.0472e-02_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &6.6289e-02_rb,6.0781e-02_rb,5.3636e-02_rb,4.6304e-02_rb,3.8429e-02_rb,3.0261e-02_rb, &\n     &2.1777e-02_rb,1.2752e-02_rb,6.7746e-03_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &6.8551e-02_rb,6.3174e-02_rb,5.6063e-02_rb,4.8348e-02_rb,4.0059e-02_rb,3.1785e-02_rb, &\n     &2.3315e-02_rb,1.3856e-02_rb,7.6622e-03_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &7.0441e-02_rb,6.5327e-02_rb,5.8258e-02_rb,5.0611e-02_rb,4.2587e-02_rb,3.4170e-02_rb, &\n     &2.5237e-02_rb,1.5295e-02_rb,8.3950e-03_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &7.3259e-02_rb,6.8842e-02_rb,6.1685e-02_rb,5.3758e-02_rb,4.5436e-02_rb,3.6706e-02_rb, &\n     &2.7377e-02_rb,1.6771e-02_rb,8.9439e-03_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &7.7467e-02_rb,7.3081e-02_rb,6.5449e-02_rb,5.7418e-02_rb,4.8677e-02_rb,3.9671e-02_rb, &\n     &2.9550e-02_rb,1.8202e-02_rb,9.6319e-03_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &5.6671e-02_rb,5.1982e-02_rb,4.5878e-02_rb,3.9500e-02_rb,3.2807e-02_rb,2.5894e-02_rb, &\n     &1.8717e-02_rb,1.0942e-02_rb,5.7523e-03_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &5.8577e-02_rb,5.4011e-02_rb,4.7896e-02_rb,4.1459e-02_rb,3.4661e-02_rb,2.7671e-02_rb, &\n     &2.0186e-02_rb,1.2025e-02_rb,6.4664e-03_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &6.0296e-02_rb,5.6294e-02_rb,5.0261e-02_rb,4.3702e-02_rb,3.6751e-02_rb,2.9579e-02_rb, &\n     &2.1985e-02_rb,1.3253e-02_rb,7.0517e-03_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &6.3403e-02_rb,5.9492e-02_rb,5.3202e-02_rb,4.6643e-02_rb,3.9435e-02_rb,3.1951e-02_rb, &\n     &2.3841e-02_rb,1.4493e-02_rb,7.4965e-03_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &6.7016e-02_rb,6.3341e-02_rb,5.7105e-02_rb,5.0058e-02_rb,4.2357e-02_rb,3.4571e-02_rb, &\n     &2.5674e-02_rb,1.5753e-02_rb,8.1075e-03_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &1.5042e-04_rb,2.4198e-03_rb,4.3016e-03_rb,6.2979e-03_rb,8.5168e-03_rb,1.0968e-02_rb, &\n     &1.3929e-02_rb,1.8584e-02_rb,1.6834e-02_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &1.5402e-04_rb,2.7874e-03_rb,5.0906e-03_rb,7.5405e-03_rb,1.0172e-02_rb,1.3049e-02_rb, &\n     &1.6523e-02_rb,2.2172e-02_rb,2.0134e-02_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &1.5658e-04_rb,3.2116e-03_rb,5.9652e-03_rb,8.9274e-03_rb,1.2070e-02_rb,1.5491e-02_rb, &\n     &1.9553e-02_rb,2.6056e-02_rb,2.3919e-02_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &1.5960e-04_rb,3.6836e-03_rb,6.9617e-03_rb,1.0460e-02_rb,1.4154e-02_rb,1.8205e-02_rb, &\n     &2.3055e-02_rb,3.0555e-02_rb,2.8089e-02_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &1.6165e-04_rb,4.2037e-03_rb,8.0817e-03_rb,1.2177e-02_rb,1.6484e-02_rb,2.1191e-02_rb, &\n     &2.6875e-02_rb,3.5769e-02_rb,3.2739e-02_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &2.0998e-04_rb,2.2589e-03_rb,3.7899e-03_rb,5.2410e-03_rb,6.7744e-03_rb,8.5703e-03_rb, &\n     &1.0697e-02_rb,1.3881e-02_rb,1.3198e-02_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &2.1456e-04_rb,2.6007e-03_rb,4.3946e-03_rb,6.1987e-03_rb,8.1361e-03_rb,1.0272e-02_rb, &\n     &1.2733e-02_rb,1.6541e-02_rb,1.5875e-02_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &2.1842e-04_rb,2.9560e-03_rb,5.0887e-03_rb,7.2752e-03_rb,9.6552e-03_rb,1.2252e-02_rb, &\n     &1.5232e-02_rb,1.9582e-02_rb,1.8968e-02_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &2.2236e-04_rb,3.3459e-03_rb,5.8736e-03_rb,8.5067e-03_rb,1.1349e-02_rb,1.4414e-02_rb, &\n     &1.7964e-02_rb,2.3187e-02_rb,2.2355e-02_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &2.2547e-04_rb,3.7713e-03_rb,6.7501e-03_rb,9.9039e-03_rb,1.3264e-02_rb,1.6870e-02_rb, &\n     &2.1032e-02_rb,2.7154e-02_rb,2.6176e-02_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &3.8749e-04_rb,2.3567e-03_rb,3.5784e-03_rb,4.7302e-03_rb,5.7992e-03_rb,6.7584e-03_rb, &\n     &7.8929e-03_rb,9.6810e-03_rb,9.8950e-03_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &3.9603e-04_rb,2.6464e-03_rb,4.1366e-03_rb,5.5007e-03_rb,6.7822e-03_rb,8.0470e-03_rb, &\n     &9.4913e-03_rb,1.1619e-02_rb,1.2036e-02_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &4.0456e-04_rb,2.9559e-03_rb,4.7389e-03_rb,6.3508e-03_rb,7.8799e-03_rb,9.4907e-03_rb, &\n     &1.1392e-02_rb,1.3956e-02_rb,1.4457e-02_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &4.1360e-04_rb,3.3032e-03_rb,5.4024e-03_rb,7.2987e-03_rb,9.1447e-03_rb,1.1131e-02_rb, &\n     &1.3466e-02_rb,1.6568e-02_rb,1.7113e-02_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &4.1860e-04_rb,3.6941e-03_rb,6.1025e-03_rb,8.3274e-03_rb,1.0570e-02_rb,1.3013e-02_rb, &\n     &1.5813e-02_rb,1.9496e-02_rb,2.0111e-02_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &7.1991e-04_rb,2.8586e-03_rb,3.8493e-03_rb,4.6115e-03_rb,5.2750e-03_rb,5.9823e-03_rb, &\n     &6.5939e-03_rb,7.1204e-03_rb,6.9950e-03_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &7.3932e-04_rb,3.1546e-03_rb,4.3292e-03_rb,5.2487e-03_rb,6.1632e-03_rb,7.0322e-03_rb, &\n     &7.8025e-03_rb,8.5583e-03_rb,8.4949e-03_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &7.5829e-04_rb,3.4592e-03_rb,4.8355e-03_rb,5.9709e-03_rb,7.1395e-03_rb,8.1909e-03_rb, &\n     &9.1159e-03_rb,1.0292e-02_rb,1.0335e-02_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &7.6959e-04_rb,3.8025e-03_rb,5.3880e-03_rb,6.7853e-03_rb,8.1872e-03_rb,9.4673e-03_rb, &\n     &1.0631e-02_rb,1.2218e-02_rb,1.2516e-02_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &7.7964e-04_rb,4.1796e-03_rb,5.9947e-03_rb,7.6582e-03_rb,9.3446e-03_rb,1.0850e-02_rb, &\n     &1.2339e-02_rb,1.4388e-02_rb,1.5009e-02_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &1.2241e-03_rb,3.4685e-03_rb,4.4046e-03_rb,5.0844e-03_rb,5.4871e-03_rb,5.7179e-03_rb, &\n     &5.7620e-03_rb,5.9818e-03_rb,6.1472e-03_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &1.2601e-03_rb,3.8071e-03_rb,4.8995e-03_rb,5.7159e-03_rb,6.2114e-03_rb,6.5597e-03_rb, &\n     &6.8164e-03_rb,7.1370e-03_rb,7.3501e-03_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &1.2927e-03_rb,4.1224e-03_rb,5.4389e-03_rb,6.3889e-03_rb,6.9938e-03_rb,7.4901e-03_rb, &\n     &7.9768e-03_rb,8.3697e-03_rb,8.6918e-03_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &1.3168e-03_rb,4.4980e-03_rb,6.0112e-03_rb,7.1194e-03_rb,7.8654e-03_rb,8.4979e-03_rb, &\n     &9.2325e-03_rb,9.7616e-03_rb,1.0181e-02_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &1.3499e-03_rb,4.8864e-03_rb,6.6201e-03_rb,7.8699e-03_rb,8.7970e-03_rb,9.6632e-03_rb, &\n     &1.0606e-02_rb,1.1344e-02_rb,1.1812e-02_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &1.9359e-03_rb,4.1954e-03_rb,5.0050e-03_rb,5.5462e-03_rb,5.8539e-03_rb,5.9443e-03_rb, &\n     &5.7417e-03_rb,5.1473e-03_rb,5.2472e-03_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &2.0045e-03_rb,4.5957e-03_rb,5.5374e-03_rb,6.1876e-03_rb,6.5964e-03_rb,6.7501e-03_rb, &\n     &6.5907e-03_rb,6.0581e-03_rb,6.2872e-03_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &2.0656e-03_rb,4.9538e-03_rb,6.0748e-03_rb,6.8772e-03_rb,7.3778e-03_rb,7.6157e-03_rb, &\n     &7.5054e-03_rb,7.1291e-03_rb,7.4717e-03_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &2.1235e-03_rb,5.3117e-03_rb,6.6418e-03_rb,7.6042e-03_rb,8.2374e-03_rb,8.5589e-03_rb, &\n     &8.5173e-03_rb,8.3153e-03_rb,8.7345e-03_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &2.1708e-03_rb,5.7022e-03_rb,7.2758e-03_rb,8.4071e-03_rb,9.1623e-03_rb,9.5678e-03_rb, &\n     &9.5860e-03_rb,9.6197e-03_rb,1.0118e-02_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &3.2088e-03_rb,5.3976e-03_rb,6.1152e-03_rb,6.4273e-03_rb,6.5565e-03_rb,6.4169e-03_rb, &\n     &6.0483e-03_rb,5.1718e-03_rb,4.3840e-03_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &3.3329e-03_rb,5.8617e-03_rb,6.7065e-03_rb,7.1293e-03_rb,7.3332e-03_rb,7.2483e-03_rb, &\n     &6.8991e-03_rb,6.0070e-03_rb,5.1893e-03_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &3.4526e-03_rb,6.3215e-03_rb,7.2907e-03_rb,7.8484e-03_rb,8.1105e-03_rb,8.1244e-03_rb, &\n     &7.7961e-03_rb,6.9012e-03_rb,6.1115e-03_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &3.5398e-03_rb,6.7841e-03_rb,7.9069e-03_rb,8.5448e-03_rb,8.9613e-03_rb,9.0608e-03_rb, &\n     &8.7760e-03_rb,7.8768e-03_rb,7.1030e-03_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &3.6419e-03_rb,7.2100e-03_rb,8.5218e-03_rb,9.3036e-03_rb,9.8959e-03_rb,1.0073e-02_rb, &\n     &9.8505e-03_rb,8.9292e-03_rb,8.2308e-03_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &6.2734e-03_rb,8.1929e-03_rb,8.7347e-03_rb,8.8396e-03_rb,8.5498e-03_rb,7.9153e-03_rb, &\n     &7.0346e-03_rb,5.6808e-03_rb,4.1552e-03_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &6.5441e-03_rb,8.8580e-03_rb,9.5108e-03_rb,9.7024e-03_rb,9.3653e-03_rb,8.8364e-03_rb, &\n     &7.9480e-03_rb,6.5304e-03_rb,4.9813e-03_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &6.7938e-03_rb,9.5212e-03_rb,1.0312e-02_rb,1.0573e-02_rb,1.0260e-02_rb,9.7376e-03_rb, &\n     &8.8728e-03_rb,7.4306e-03_rb,5.9661e-03_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &6.9763e-03_rb,1.0160e-02_rb,1.1107e-02_rb,1.1420e-02_rb,1.1193e-02_rb,1.0684e-02_rb, &\n     &9.8581e-03_rb,8.3990e-03_rb,6.9644e-03_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &7.1912e-03_rb,1.0832e-02_rb,1.1979e-02_rb,1.2319e-02_rb,1.2084e-02_rb,1.1646e-02_rb, &\n     &1.0942e-02_rb,9.4605e-03_rb,8.0079e-03_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &2.3423e-02_rb,2.3874e-02_rb,2.2570e-02_rb,2.0907e-02_rb,1.8747e-02_rb,1.6279e-02_rb, &\n     &1.3268e-02_rb,9.1967e-03_rb,5.4472e-03_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &2.4372e-02_rb,2.5487e-02_rb,2.4526e-02_rb,2.2806e-02_rb,2.0430e-02_rb,1.7721e-02_rb, &\n     &1.4547e-02_rb,1.0257e-02_rb,5.8874e-03_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &2.5322e-02_rb,2.7228e-02_rb,2.6228e-02_rb,2.4576e-02_rb,2.2164e-02_rb,1.9365e-02_rb, &\n     &1.5921e-02_rb,1.1389e-02_rb,6.8168e-03_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &2.6144e-02_rb,2.8709e-02_rb,2.7958e-02_rb,2.6366e-02_rb,2.3791e-02_rb,2.0979e-02_rb, &\n     &1.7361e-02_rb,1.2542e-02_rb,7.8623e-03_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &2.7002e-02_rb,3.0246e-02_rb,2.9564e-02_rb,2.8028e-02_rb,2.5537e-02_rb,2.2731e-02_rb, &\n     &1.8860e-02_rb,1.3722e-02_rb,9.0318e-03_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &9.6759e-02_rb,8.9920e-02_rb,8.0281e-02_rb,6.9298e-02_rb,5.8160e-02_rb,4.6685e-02_rb, &\n     &3.4489e-02_rb,2.1137e-02_rb,9.1317e-03_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &1.0130e-01_rb,9.4928e-02_rb,8.5063e-02_rb,7.4190e-02_rb,6.2751e-02_rb,5.0819e-02_rb, &\n     &3.7815e-02_rb,2.3107e-02_rb,9.7753e-03_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &1.0500e-01_rb,9.9899e-02_rb,9.0245e-02_rb,7.9682e-02_rb,6.7667e-02_rb,5.4638e-02_rb, &\n     &4.0873e-02_rb,2.5040e-02_rb,1.0330e-02_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &1.0896e-01_rb,1.0463e-01_rb,9.5171e-02_rb,8.3946e-02_rb,7.1420e-02_rb,5.8144e-02_rb, &\n     &4.3799e-02_rb,2.7205e-02_rb,1.1084e-02_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &1.1285e-01_rb,1.0942e-01_rb,9.9931e-02_rb,8.8439e-02_rb,7.5783e-02_rb,6.1708e-02_rb, &\n     &4.6484e-02_rb,2.9531e-02_rb,1.2060e-02_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &1.4204e-01_rb,1.2997e-01_rb,1.1520e-01_rb,9.8769e-02_rb,8.1420e-02_rb,6.4217e-02_rb, &\n     &4.6399e-02_rb,2.7414e-02_rb,9.3511e-03_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &1.4781e-01_rb,1.3669e-01_rb,1.2188e-01_rb,1.0492e-01_rb,8.7668e-02_rb,6.9566e-02_rb, &\n     &5.0549e-02_rb,3.0014e-02_rb,1.0330e-02_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &1.5380e-01_rb,1.4353e-01_rb,1.2793e-01_rb,1.1113e-01_rb,9.3325e-02_rb,7.4108e-02_rb, &\n     &5.4029e-02_rb,3.2498e-02_rb,1.1533e-02_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &1.6004e-01_rb,1.5059e-01_rb,1.3460e-01_rb,1.1704e-01_rb,9.8404e-02_rb,7.8709e-02_rb, &\n     &5.7847e-02_rb,3.4798e-02_rb,1.2510e-02_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &1.6529e-01_rb,1.5606e-01_rb,1.4056e-01_rb,1.2310e-01_rb,1.0396e-01_rb,8.3240e-02_rb, &\n     &6.1355e-02_rb,3.7415e-02_rb,1.3283e-02_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &1.5238e-01_rb,1.3897e-01_rb,1.2274e-01_rb,1.0509e-01_rb,8.6816e-02_rb,6.8213e-02_rb, &\n     &4.8813e-02_rb,2.8303e-02_rb,8.9094e-03_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &1.5887e-01_rb,1.4598e-01_rb,1.2939e-01_rb,1.1123e-01_rb,9.2497e-02_rb,7.3141e-02_rb, &\n     &5.2574e-02_rb,3.0889e-02_rb,9.4910e-03_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &1.6583e-01_rb,1.5402e-01_rb,1.3664e-01_rb,1.1788e-01_rb,9.8276e-02_rb,7.7826e-02_rb, &\n     &5.6134e-02_rb,3.3329e-02_rb,1.0354e-02_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &1.7232e-01_rb,1.6056e-01_rb,1.4294e-01_rb,1.2398e-01_rb,1.0387e-01_rb,8.2524e-02_rb, &\n     &5.9981e-02_rb,3.5800e-02_rb,1.1471e-02_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &1.7822e-01_rb,1.6713e-01_rb,1.4985e-01_rb,1.3045e-01_rb,1.0965e-01_rb,8.7208e-02_rb, &\n     &6.3531e-02_rb,3.8400e-02_rb,1.2648e-02_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &1.2851e-01_rb,1.1760e-01_rb,1.0432e-01_rb,8.9471e-02_rb,7.3952e-02_rb,5.7965e-02_rb, &\n     &4.1571e-02_rb,2.4244e-02_rb,7.5271e-03_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &1.3461e-01_rb,1.2431e-01_rb,1.1020e-01_rb,9.4715e-02_rb,7.8713e-02_rb,6.2191e-02_rb, &\n     &4.4720e-02_rb,2.6349e-02_rb,7.9374e-03_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &1.4091e-01_rb,1.3079e-01_rb,1.1585e-01_rb,1.0015e-01_rb,8.3554e-02_rb,6.6181e-02_rb, &\n     &4.7816e-02_rb,2.8551e-02_rb,8.7113e-03_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &1.4657e-01_rb,1.3673e-01_rb,1.2189e-01_rb,1.0573e-01_rb,8.8680e-02_rb,7.0418e-02_rb, &\n     &5.0990e-02_rb,3.0632e-02_rb,9.8158e-03_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &1.5197e-01_rb,1.4281e-01_rb,1.2778e-01_rb,1.1111e-01_rb,9.3402e-02_rb,7.4099e-02_rb, &\n     &5.4192e-02_rb,3.2952e-02_rb,1.0865e-02_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &2.9775e-04_rb,4.9903e-03_rb,9.5966e-03_rb,1.4458e-02_rb,1.9550e-02_rb,2.5066e-02_rb, &\n     &3.1548e-02_rb,4.0907e-02_rb,3.8920e-02_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &2.9974e-04_rb,5.8708e-03_rb,1.1484e-02_rb,1.7340e-02_rb,2.3486e-02_rb,3.0156e-02_rb, &\n     &3.8022e-02_rb,4.9522e-02_rb,4.6798e-02_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &3.0249e-04_rb,6.8379e-03_rb,1.3523e-02_rb,2.0453e-02_rb,2.7734e-02_rb,3.5680e-02_rb, &\n     &4.5116e-02_rb,5.8960e-02_rb,5.5301e-02_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &3.0505e-04_rb,7.9161e-03_rb,1.5750e-02_rb,2.3843e-02_rb,3.2353e-02_rb,4.1634e-02_rb, &\n     &5.2683e-02_rb,6.9279e-02_rb,6.4544e-02_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &3.0784e-04_rb,9.1145e-03_rb,1.8178e-02_rb,2.7529e-02_rb,3.7353e-02_rb,4.8074e-02_rb, &\n     &6.0824e-02_rb,8.0052e-02_rb,7.4551e-02_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &4.4044e-04_rb,4.5745e-03_rb,7.9442e-03_rb,1.1658e-02_rb,1.5612e-02_rb,1.9809e-02_rb, &\n     &2.4586e-02_rb,3.1373e-02_rb,3.0910e-02_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &4.4502e-04_rb,5.2457e-03_rb,9.4321e-03_rb,1.4009e-02_rb,1.8804e-02_rb,2.3915e-02_rb, &\n     &2.9756e-02_rb,3.8088e-02_rb,3.7317e-02_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &4.4893e-04_rb,5.9898e-03_rb,1.1101e-02_rb,1.6604e-02_rb,2.2319e-02_rb,2.8413e-02_rb, &\n     &3.5386e-02_rb,4.5425e-02_rb,4.4358e-02_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &4.5303e-04_rb,6.8346e-03_rb,1.2966e-02_rb,1.9451e-02_rb,2.6168e-02_rb,3.3333e-02_rb, &\n     &4.1534e-02_rb,5.3372e-02_rb,5.2063e-02_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &4.5653e-04_rb,7.7989e-03_rb,1.5045e-02_rb,2.2592e-02_rb,3.0407e-02_rb,3.8717e-02_rb, &\n     &4.8217e-02_rb,6.1953e-02_rb,6.0541e-02_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &8.7011e-04_rb,4.7519e-03_rb,7.4191e-03_rb,9.7724e-03_rb,1.2242e-02_rb,1.5076e-02_rb, &\n     &1.8293e-02_rb,2.2402e-02_rb,2.3454e-02_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &8.7761e-04_rb,5.4004e-03_rb,8.5169e-03_rb,1.1449e-02_rb,1.4656e-02_rb,1.8245e-02_rb, &\n     &2.2203e-02_rb,2.7303e-02_rb,2.8468e-02_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &8.8555e-04_rb,6.0960e-03_rb,9.7399e-03_rb,1.3383e-02_rb,1.7420e-02_rb,2.1805e-02_rb, &\n     &2.6578e-02_rb,3.2747e-02_rb,3.4102e-02_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &8.8837e-04_rb,6.8303e-03_rb,1.1116e-02_rb,1.5598e-02_rb,2.0532e-02_rb,2.5757e-02_rb, &\n     &3.1445e-02_rb,3.8773e-02_rb,4.0387e-02_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &8.9568e-04_rb,7.6159e-03_rb,1.2685e-02_rb,1.8136e-02_rb,2.4011e-02_rb,3.0157e-02_rb, &\n     &3.6817e-02_rb,4.5383e-02_rb,4.7355e-02_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &1.7216e-03_rb,5.6014e-03_rb,7.5736e-03_rb,9.4674e-03_rb,1.1191e-02_rb,1.2535e-02_rb, &\n     &1.3987e-02_rb,1.6268e-02_rb,1.7296e-02_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &1.7298e-03_rb,6.1879e-03_rb,8.6832e-03_rb,1.0978e-02_rb,1.2974e-02_rb,1.4749e-02_rb, &\n     &1.6870e-02_rb,1.9909e-02_rb,2.1431e-02_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &1.7341e-03_rb,6.8367e-03_rb,9.8584e-03_rb,1.2616e-02_rb,1.4944e-02_rb,1.7324e-02_rb, &\n     &2.0237e-02_rb,2.4035e-02_rb,2.5998e-02_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &1.7534e-03_rb,7.5128e-03_rb,1.1127e-02_rb,1.4362e-02_rb,1.7213e-02_rb,2.0310e-02_rb, &\n     &2.4053e-02_rb,2.8665e-02_rb,3.1074e-02_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &1.7641e-03_rb,8.2760e-03_rb,1.2507e-02_rb,1.6268e-02_rb,1.9802e-02_rb,2.3773e-02_rb, &\n     &2.8361e-02_rb,3.3846e-02_rb,3.6727e-02_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &3.0539e-03_rb,7.3205e-03_rb,8.9564e-03_rb,9.9240e-03_rb,1.0675e-02_rb,1.1625e-02_rb, &\n     &1.2424e-02_rb,1.2649e-02_rb,1.2475e-02_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &3.0697e-03_rb,8.0642e-03_rb,9.9550e-03_rb,1.1166e-02_rb,1.2428e-02_rb,1.3587e-02_rb, &\n     &1.4545e-02_rb,1.5222e-02_rb,1.4936e-02_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &3.0978e-03_rb,8.8320e-03_rb,1.1001e-02_rb,1.2560e-02_rb,1.4306e-02_rb,1.5802e-02_rb, &\n     &1.6906e-02_rb,1.8302e-02_rb,1.7957e-02_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &3.1191e-03_rb,9.5288e-03_rb,1.2130e-02_rb,1.4148e-02_rb,1.6348e-02_rb,1.8245e-02_rb, &\n     &1.9668e-02_rb,2.1849e-02_rb,2.2010e-02_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &3.1173e-03_rb,1.0269e-02_rb,1.3281e-02_rb,1.5937e-02_rb,1.8604e-02_rb,2.0861e-02_rb, &\n     &2.2868e-02_rb,2.5903e-02_rb,2.6735e-02_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &4.9571e-03_rb,9.1596e-03_rb,1.0920e-02_rb,1.1683e-02_rb,1.1947e-02_rb,1.1808e-02_rb, &\n     &1.1212e-02_rb,1.1074e-02_rb,1.1113e-02_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &5.0027e-03_rb,9.9969e-03_rb,1.2157e-02_rb,1.3082e-02_rb,1.3449e-02_rb,1.3422e-02_rb, &\n     &1.3156e-02_rb,1.3134e-02_rb,1.3279e-02_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &5.0299e-03_rb,1.0940e-02_rb,1.3400e-02_rb,1.4481e-02_rb,1.5090e-02_rb,1.5137e-02_rb, &\n     &1.5334e-02_rb,1.5370e-02_rb,1.5787e-02_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &5.0401e-03_rb,1.1872e-02_rb,1.4616e-02_rb,1.5947e-02_rb,1.6778e-02_rb,1.7087e-02_rb, &\n     &1.7734e-02_rb,1.7868e-02_rb,1.8548e-02_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &5.0929e-03_rb,1.2799e-02_rb,1.5866e-02_rb,1.7551e-02_rb,1.8584e-02_rb,1.9414e-02_rb, &\n     &2.0410e-02_rb,2.0816e-02_rb,2.1713e-02_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &8.4314e-03_rb,1.2463e-02_rb,1.3843e-02_rb,1.4407e-02_rb,1.4329e-02_rb,1.3643e-02_rb, &\n     &1.2423e-02_rb,1.0398e-02_rb,1.0049e-02_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &8.4877e-03_rb,1.3426e-02_rb,1.5237e-02_rb,1.6099e-02_rb,1.6143e-02_rb,1.5465e-02_rb, &\n     &1.4143e-02_rb,1.1980e-02_rb,1.1912e-02_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &8.5061e-03_rb,1.4450e-02_rb,1.6739e-02_rb,1.7865e-02_rb,1.8006e-02_rb,1.7376e-02_rb, &\n     &1.5998e-02_rb,1.3868e-02_rb,1.3962e-02_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &8.5919e-03_rb,1.5490e-02_rb,1.8250e-02_rb,1.9632e-02_rb,1.9933e-02_rb,1.9343e-02_rb, &\n     &1.7978e-02_rb,1.6120e-02_rb,1.6346e-02_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &8.6244e-03_rb,1.6546e-02_rb,1.9762e-02_rb,2.1475e-02_rb,2.1907e-02_rb,2.1414e-02_rb, &\n     &2.0099e-02_rb,1.8617e-02_rb,1.9113e-02_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &1.6801e-02_rb,2.0166e-02_rb,2.0707e-02_rb,2.0359e-02_rb,1.9438e-02_rb,1.7889e-02_rb, &\n     &1.5556e-02_rb,1.2093e-02_rb,8.8687e-03_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &1.6841e-02_rb,2.1258e-02_rb,2.2460e-02_rb,2.2381e-02_rb,2.1605e-02_rb,2.0124e-02_rb, &\n     &1.7632e-02_rb,1.3928e-02_rb,1.0513e-02_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &1.6945e-02_rb,2.2389e-02_rb,2.4138e-02_rb,2.4525e-02_rb,2.3968e-02_rb,2.2498e-02_rb, &\n     &1.9836e-02_rb,1.5792e-02_rb,1.2224e-02_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &1.7081e-02_rb,2.3610e-02_rb,2.5903e-02_rb,2.6682e-02_rb,2.6351e-02_rb,2.4884e-02_rb, &\n     &2.2197e-02_rb,1.7790e-02_rb,1.4133e-02_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &1.7107e-02_rb,2.4831e-02_rb,2.7681e-02_rb,2.8814e-02_rb,2.8766e-02_rb,2.7453e-02_rb, &\n     &2.4610e-02_rb,1.9914e-02_rb,1.6383e-02_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &6.2717e-02_rb,6.2735e-02_rb,5.8603e-02_rb,5.2748e-02_rb,4.6263e-02_rb,3.9117e-02_rb, &\n     &3.0759e-02_rb,2.1087e-02_rb,9.9200e-03_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &6.3094e-02_rb,6.4670e-02_rb,6.0602e-02_rb,5.5392e-02_rb,4.9420e-02_rb,4.2558e-02_rb, &\n     &3.4002e-02_rb,2.3733e-02_rb,1.2138e-02_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &6.3563e-02_rb,6.6269e-02_rb,6.3058e-02_rb,5.8357e-02_rb,5.2632e-02_rb,4.5743e-02_rb, &\n     &3.7261e-02_rb,2.6594e-02_rb,1.4716e-02_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &6.4005e-02_rb,6.8005e-02_rb,6.5556e-02_rb,6.1466e-02_rb,5.6121e-02_rb,4.9302e-02_rb, &\n     &4.0642e-02_rb,2.9533e-02_rb,1.7598e-02_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &6.4303e-02_rb,6.9477e-02_rb,6.8109e-02_rb,6.4600e-02_rb,5.9691e-02_rb,5.2874e-02_rb, &\n     &4.4056e-02_rb,3.2670e-02_rb,2.0612e-02_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &2.6283e-01_rb,2.3848e-01_rb,2.1237e-01_rb,1.8399e-01_rb,1.5364e-01_rb,1.2096e-01_rb, &\n     &8.6686e-02_rb,5.0921e-02_rb,1.2662e-02_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &2.6495e-01_rb,2.4348e-01_rb,2.1796e-01_rb,1.8933e-01_rb,1.5813e-01_rb,1.2513e-01_rb, &\n     &9.1228e-02_rb,5.5191e-02_rb,1.6120e-02_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &2.6701e-01_rb,2.4762e-01_rb,2.2286e-01_rb,1.9379e-01_rb,1.6250e-01_rb,1.3046e-01_rb, &\n     &9.6273e-02_rb,5.9643e-02_rb,2.0041e-02_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &2.6827e-01_rb,2.5124e-01_rb,2.2683e-01_rb,1.9843e-01_rb,1.6799e-01_rb,1.3618e-01_rb, &\n     &1.0159e-01_rb,6.3939e-02_rb,2.4035e-02_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &2.7234e-01_rb,2.5705e-01_rb,2.3264e-01_rb,2.0401e-01_rb,1.7374e-01_rb,1.4157e-01_rb, &\n     &1.0689e-01_rb,6.8300e-02_rb,2.8241e-02_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &3.8435e-01_rb,3.4486e-01_rb,3.0408e-01_rb,2.6025e-01_rb,2.1577e-01_rb,1.6840e-01_rb, &\n     &1.1827e-01_rb,6.6862e-02_rb,1.4067e-02_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &3.8808e-01_rb,3.5079e-01_rb,3.0947e-01_rb,2.6705e-01_rb,2.2115e-01_rb,1.7271e-01_rb, &\n     &1.2306e-01_rb,7.1102e-02_rb,1.7282e-02_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &3.9133e-01_rb,3.5683e-01_rb,3.1692e-01_rb,2.7320e-01_rb,2.2652e-01_rb,1.7854e-01_rb, &\n     &1.2887e-01_rb,7.5471e-02_rb,2.0650e-02_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &3.9688e-01_rb,3.6404e-01_rb,3.2547e-01_rb,2.8118e-01_rb,2.3421e-01_rb,1.8549e-01_rb, &\n     &1.3490e-01_rb,8.0175e-02_rb,2.4385e-02_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &4.0366e-01_rb,3.7211e-01_rb,3.3310e-01_rb,2.8891e-01_rb,2.4168e-01_rb,1.9277e-01_rb, &\n     &1.4118e-01_rb,8.5255e-02_rb,2.8315e-02_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &4.1788e-01_rb,3.7417e-01_rb,3.2848e-01_rb,2.8026e-01_rb,2.3093e-01_rb,1.7900e-01_rb, &\n     &1.2516e-01_rb,6.9829e-02_rb,1.3077e-02_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &4.2346e-01_rb,3.8197e-01_rb,3.3568e-01_rb,2.8761e-01_rb,2.3734e-01_rb,1.8458e-01_rb, &\n     &1.3037e-01_rb,7.4069e-02_rb,1.6501e-02_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &4.3061e-01_rb,3.9035e-01_rb,3.4485e-01_rb,2.9676e-01_rb,2.4502e-01_rb,1.9175e-01_rb, &\n     &1.3672e-01_rb,7.8434e-02_rb,1.9942e-02_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &4.3991e-01_rb,4.0142e-01_rb,3.5621e-01_rb,3.0583e-01_rb,2.5354e-01_rb,1.9941e-01_rb, &\n     &1.4294e-01_rb,8.2867e-02_rb,2.3156e-02_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &4.5018e-01_rb,4.1383e-01_rb,3.6847e-01_rb,3.1728e-01_rb,2.6385e-01_rb,2.0769e-01_rb, &\n     &1.4984e-01_rb,8.7550e-02_rb,2.5906e-02_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &3.5954e-01_rb,3.2293e-01_rb,2.8290e-01_rb,2.4149e-01_rb,1.9855e-01_rb,1.5392e-01_rb, &\n     &1.0799e-01_rb,6.0538e-02_rb,1.1582e-02_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &3.6620e-01_rb,3.3095e-01_rb,2.9118e-01_rb,2.4962e-01_rb,2.0579e-01_rb,1.6035e-01_rb, &\n     &1.1345e-01_rb,6.4561e-02_rb,1.4555e-02_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &3.7497e-01_rb,3.4139e-01_rb,3.0205e-01_rb,2.5902e-01_rb,2.1397e-01_rb,1.6755e-01_rb, &\n     &1.1907e-01_rb,6.8274e-02_rb,1.7516e-02_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &3.8491e-01_rb,3.5293e-01_rb,3.1344e-01_rb,2.6951e-01_rb,2.2338e-01_rb,1.7537e-01_rb, &\n     &1.2550e-01_rb,7.2213e-02_rb,1.9685e-02_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &3.9456e-01_rb,3.6430e-01_rb,3.2370e-01_rb,2.7885e-01_rb,2.3209e-01_rb,1.8326e-01_rb, &\n     &1.3235e-01_rb,7.6929e-02_rb,2.1105e-02_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &6.2097e-04_rb,1.4117e-02_rb,2.8277e-02_rb,4.2775e-02_rb,5.7848e-02_rb,7.3960e-02_rb, &\n     &9.2407e-02_rb,1.1864e-01_rb,1.1554e-01_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &6.1974e-04_rb,1.6905e-02_rb,3.3889e-02_rb,5.1276e-02_rb,6.9348e-02_rb,8.8703e-02_rb, &\n     &1.1084e-01_rb,1.4177e-01_rb,1.3853e-01_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &6.1587e-04_rb,1.9900e-02_rb,3.9925e-02_rb,6.0422e-02_rb,8.1729e-02_rb,1.0451e-01_rb, &\n     &1.3061e-01_rb,1.6696e-01_rb,1.6328e-01_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &6.1184e-04_rb,2.3086e-02_rb,4.6344e-02_rb,7.0163e-02_rb,9.4901e-02_rb,1.2137e-01_rb, &\n     &1.5165e-01_rb,1.9370e-01_rb,1.8962e-01_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &6.0950e-04_rb,2.6468e-02_rb,5.3164e-02_rb,8.0478e-02_rb,1.0886e-01_rb,1.3922e-01_rb, &\n     &1.7398e-01_rb,2.2192e-01_rb,2.1753e-01_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &9.4214e-04_rb,1.1864e-02_rb,2.3368e-02_rb,3.5168e-02_rb,4.7308e-02_rb,6.0060e-02_rb, &\n     &7.4293e-02_rb,9.3548e-02_rb,9.4381e-02_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &9.3967e-04_rb,1.4205e-02_rb,2.8221e-02_rb,4.2491e-02_rb,5.7165e-02_rb,7.2616e-02_rb, &\n     &8.9835e-02_rb,1.1322e-01_rb,1.1408e-01_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &9.3666e-04_rb,1.6793e-02_rb,3.3453e-02_rb,5.0403e-02_rb,6.7823e-02_rb,8.6143e-02_rb, &\n     &1.0657e-01_rb,1.3437e-01_rb,1.3538e-01_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &9.3490e-04_rb,1.9589e-02_rb,3.9087e-02_rb,5.8901e-02_rb,7.9281e-02_rb,1.0068e-01_rb, &\n     &1.2458e-01_rb,1.5697e-01_rb,1.5829e-01_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &9.3255e-04_rb,2.2561e-02_rb,4.5087e-02_rb,6.7983e-02_rb,9.1508e-02_rb,1.1621e-01_rb, &\n     &1.4375e-01_rb,1.8108e-01_rb,1.8274e-01_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &1.9614e-03_rb,1.1299e-02_rb,1.9005e-02_rb,2.7782e-02_rb,3.7000e-02_rb,4.6522e-02_rb, &\n     &5.6657e-02_rb,6.9080e-02_rb,7.3508e-02_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &1.9548e-03_rb,1.2955e-02_rb,2.2891e-02_rb,3.3903e-02_rb,4.5254e-02_rb,5.6922e-02_rb, &\n     &6.9355e-02_rb,8.4555e-02_rb,9.0001e-02_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &1.9534e-03_rb,1.4833e-02_rb,2.7240e-02_rb,4.0599e-02_rb,5.4239e-02_rb,6.8264e-02_rb, &\n     &8.3194e-02_rb,1.0146e-01_rb,1.0796e-01_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &1.9479e-03_rb,1.6939e-02_rb,3.1981e-02_rb,4.7805e-02_rb,6.3918e-02_rb,8.0501e-02_rb, &\n     &9.8164e-02_rb,1.1980e-01_rb,1.2731e-01_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &1.9437e-03_rb,1.9215e-02_rb,3.7014e-02_rb,5.5432e-02_rb,7.4159e-02_rb,9.3422e-02_rb, &\n     &1.1404e-01_rb,1.3937e-01_rb,1.4780e-01_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &4.1141e-03_rb,1.2873e-02_rb,1.8872e-02_rb,2.3795e-02_rb,2.9310e-02_rb,3.5813e-02_rb, &\n     &4.3001e-02_rb,5.1220e-02_rb,5.6278e-02_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &4.1183e-03_rb,1.4575e-02_rb,2.1599e-02_rb,2.8253e-02_rb,3.5801e-02_rb,4.4309e-02_rb, &\n     &5.3363e-02_rb,6.3628e-02_rb,6.9867e-02_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &4.1349e-03_rb,1.6355e-02_rb,2.4672e-02_rb,3.3305e-02_rb,4.3074e-02_rb,5.3625e-02_rb, &\n     &6.4673e-02_rb,7.7228e-02_rb,8.4695e-02_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &4.1308e-03_rb,1.8173e-02_rb,2.8034e-02_rb,3.8865e-02_rb,5.0949e-02_rb,6.3606e-02_rb, &\n     &7.6798e-02_rb,9.1846e-02_rb,1.0056e-01_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &4.1264e-03_rb,1.9905e-02_rb,3.1676e-02_rb,4.4946e-02_rb,5.9333e-02_rb,7.4191e-02_rb, &\n     &8.9640e-02_rb,1.0735e-01_rb,1.1739e-01_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &7.8459e-03_rb,1.5273e-02_rb,2.0315e-02_rb,2.4490e-02_rb,2.7833e-02_rb,3.0201e-02_rb, &\n     &3.3378e-02_rb,3.8411e-02_rb,4.1001e-02_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &7.8747e-03_rb,1.6898e-02_rb,2.3176e-02_rb,2.8487e-02_rb,3.2405e-02_rb,3.6383e-02_rb, &\n     &4.1437e-02_rb,4.8316e-02_rb,5.2769e-02_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &7.8992e-03_rb,1.8661e-02_rb,2.6253e-02_rb,3.2541e-02_rb,3.7550e-02_rb,4.3266e-02_rb, &\n     &5.0422e-02_rb,5.9136e-02_rb,6.5527e-02_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &7.8989e-03_rb,2.0558e-02_rb,2.9408e-02_rb,3.6576e-02_rb,4.3219e-02_rb,5.0946e-02_rb, &\n     &6.0207e-02_rb,7.0821e-02_rb,7.8616e-02_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &7.9229e-03_rb,2.2512e-02_rb,3.2599e-02_rb,4.0913e-02_rb,4.9454e-02_rb,5.9390e-02_rb, &\n     &7.0729e-02_rb,8.3313e-02_rb,9.2573e-02_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &1.3755e-02_rb,2.1264e-02_rb,2.4103e-02_rb,2.5712e-02_rb,2.7798e-02_rb,2.9236e-02_rb, &\n     &2.9846e-02_rb,2.9593e-02_rb,2.7586e-02_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &1.3782e-02_rb,2.2999e-02_rb,2.6490e-02_rb,2.9514e-02_rb,3.2454e-02_rb,3.4496e-02_rb, &\n     &3.5566e-02_rb,3.7000e-02_rb,3.5132e-02_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &1.3863e-02_rb,2.4665e-02_rb,2.9042e-02_rb,3.3641e-02_rb,3.7254e-02_rb,4.0147e-02_rb, &\n     &4.1998e-02_rb,4.5403e-02_rb,4.4921e-02_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &1.3921e-02_rb,2.6309e-02_rb,3.1937e-02_rb,3.7874e-02_rb,4.2332e-02_rb,4.5980e-02_rb, &\n     &4.9161e-02_rb,5.4719e-02_rb,5.5713e-02_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &1.4010e-02_rb,2.7955e-02_rb,3.5119e-02_rb,4.2034e-02_rb,4.7545e-02_rb,5.2148e-02_rb, &\n     &5.7163e-02_rb,6.4833e-02_rb,6.7480e-02_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &2.4762e-02_rb,3.1775e-02_rb,3.3749e-02_rb,3.4176e-02_rb,3.3323e-02_rb,3.1060e-02_rb, &\n     &2.9254e-02_rb,2.6750e-02_rb,2.6287e-02_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &2.4951e-02_rb,3.3870e-02_rb,3.6729e-02_rb,3.7700e-02_rb,3.7125e-02_rb,3.5645e-02_rb, &\n     &3.4725e-02_rb,3.2382e-02_rb,3.2363e-02_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &2.5173e-02_rb,3.5837e-02_rb,3.9660e-02_rb,4.1206e-02_rb,4.1346e-02_rb,4.1029e-02_rb, &\n     &4.0471e-02_rb,3.8518e-02_rb,3.8913e-02_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &2.5363e-02_rb,3.7886e-02_rb,4.2599e-02_rb,4.5028e-02_rb,4.5616e-02_rb,4.6713e-02_rb, &\n     &4.6613e-02_rb,4.5204e-02_rb,4.5916e-02_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &2.5554e-02_rb,3.9913e-02_rb,4.5725e-02_rb,4.8757e-02_rb,5.0398e-02_rb,5.2532e-02_rb, &\n     &5.3118e-02_rb,5.2718e-02_rb,5.3341e-02_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &5.1772e-02_rb,5.6742e-02_rb,5.6311e-02_rb,5.3676e-02_rb,4.9761e-02_rb,4.4432e-02_rb, &\n     &3.7642e-02_rb,2.8159e-02_rb,2.5366e-02_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &5.2310e-02_rb,5.9935e-02_rb,6.0103e-02_rb,5.8243e-02_rb,5.4861e-02_rb,4.9530e-02_rb, &\n     &4.2560e-02_rb,3.2942e-02_rb,3.0796e-02_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &5.2803e-02_rb,6.3037e-02_rb,6.4134e-02_rb,6.2766e-02_rb,5.9645e-02_rb,5.4655e-02_rb, &\n     &4.7864e-02_rb,3.8688e-02_rb,3.7143e-02_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &5.3460e-02_rb,6.5918e-02_rb,6.8003e-02_rb,6.7271e-02_rb,6.4711e-02_rb,6.0132e-02_rb, &\n     &5.3215e-02_rb,4.4724e-02_rb,4.4005e-02_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &5.3710e-02_rb,6.8699e-02_rb,7.1633e-02_rb,7.2036e-02_rb,6.9887e-02_rb,6.5520e-02_rb, &\n     &5.8694e-02_rb,5.1143e-02_rb,5.1305e-02_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &2.0198e-01_rb,1.8901e-01_rb,1.7403e-01_rb,1.5566e-01_rb,1.3460e-01_rb,1.1050e-01_rb, &\n     &8.4423e-02_rb,5.5049e-02_rb,2.7409e-02_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &2.0495e-01_rb,1.9639e-01_rb,1.8291e-01_rb,1.6519e-01_rb,1.4305e-01_rb,1.1881e-01_rb, &\n     &9.2245e-02_rb,6.1787e-02_rb,3.3663e-02_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &2.0775e-01_rb,2.0359e-01_rb,1.9173e-01_rb,1.7370e-01_rb,1.5212e-01_rb,1.2752e-01_rb, &\n     &1.0028e-01_rb,6.8520e-02_rb,3.9556e-02_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &2.0971e-01_rb,2.1033e-01_rb,1.9959e-01_rb,1.8173e-01_rb,1.6052e-01_rb,1.3619e-01_rb, &\n     &1.0838e-01_rb,7.5430e-02_rb,4.6210e-02_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &2.1122e-01_rb,2.1661e-01_rb,2.0701e-01_rb,1.8977e-01_rb,1.6868e-01_rb,1.4451e-01_rb, &\n     &1.1695e-01_rb,8.2426e-02_rb,5.2611e-02_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &8.7179e-01_rb,7.7305e-01_rb,6.7676e-01_rb,5.7800e-01_rb,4.7858e-01_rb,3.7509e-01_rb, &\n     &2.6780e-01_rb,1.5257e-01_rb,3.4825e-02_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &8.8690e-01_rb,7.9154e-01_rb,6.9682e-01_rb,6.0089e-01_rb,5.0085e-01_rb,3.9677e-01_rb, &\n     &2.8510e-01_rb,1.6381e-01_rb,4.0840e-02_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &8.9846e-01_rb,8.0873e-01_rb,7.1712e-01_rb,6.2211e-01_rb,5.2235e-01_rb,4.1529e-01_rb, &\n     &3.0033e-01_rb,1.7576e-01_rb,4.8253e-02_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &9.1202e-01_rb,8.2713e-01_rb,7.3854e-01_rb,6.4399e-01_rb,5.4276e-01_rb,4.3255e-01_rb, &\n     &3.1463e-01_rb,1.8727e-01_rb,5.7567e-02_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &9.1292e-01_rb,8.3520e-01_rb,7.5311e-01_rb,6.6058e-01_rb,5.5851e-01_rb,4.4868e-01_rb, &\n     &3.2919e-01_rb,1.9841e-01_rb,6.5659e-02_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &1.3103e+00_rb,1.1565e+00_rb,1.0072e+00_rb,8.5492e-01_rb,7.0080e-01_rb,5.4405e-01_rb, &\n     &3.8288e-01_rb,2.1296e-01_rb,3.6932e-02_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &1.3299e+00_rb,1.1796e+00_rb,1.0327e+00_rb,8.8125e-01_rb,7.2693e-01_rb,5.6857e-01_rb, &\n     &4.0335e-01_rb,2.2633e-01_rb,4.3190e-02_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &1.3530e+00_rb,1.2064e+00_rb,1.0600e+00_rb,9.1131e-01_rb,7.5598e-01_rb,5.9411e-01_rb, &\n     &4.2265e-01_rb,2.3978e-01_rb,5.2762e-02_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &1.3587e+00_rb,1.2195e+00_rb,1.0781e+00_rb,9.3079e-01_rb,7.7634e-01_rb,6.1327e-01_rb, &\n     &4.3892e-01_rb,2.5297e-01_rb,6.4865e-02_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &1.3600e+00_rb,1.2284e+00_rb,1.0908e+00_rb,9.4457e-01_rb,7.9211e-01_rb,6.2699e-01_rb, &\n     &4.5262e-01_rb,2.6437e-01_rb,7.6848e-02_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &1.4407e+00_rb,1.2713e+00_rb,1.1065e+00_rb,9.3835e-01_rb,7.6825e-01_rb,5.9432e-01_rb, &\n     &4.1638e-01_rb,2.2888e-01_rb,3.4685e-02_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &1.4696e+00_rb,1.3029e+00_rb,1.1378e+00_rb,9.6981e-01_rb,7.9767e-01_rb,6.2103e-01_rb, &\n     &4.3779e-01_rb,2.4254e-01_rb,4.2654e-02_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &1.4810e+00_rb,1.3211e+00_rb,1.1578e+00_rb,9.9148e-01_rb,8.2013e-01_rb,6.4181e-01_rb, &\n     &4.5466e-01_rb,2.5578e-01_rb,5.2496e-02_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &1.4858e+00_rb,1.3306e+00_rb,1.1727e+00_rb,1.0074e+00_rb,8.3618e-01_rb,6.5672e-01_rb, &\n     &4.6743e-01_rb,2.6737e-01_rb,6.3361e-02_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &1.4815e+00_rb,1.3335e+00_rb,1.1804e+00_rb,1.0190e+00_rb,8.4985e-01_rb,6.7121e-01_rb, &\n     &4.8121e-01_rb,2.7853e-01_rb,7.5291e-02_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &1.2616e+00_rb,1.1163e+00_rb,9.7204e-01_rb,8.2547e-01_rb,6.7669e-01_rb,5.2391e-01_rb, &\n     &3.6673e-01_rb,2.0106e-01_rb,2.9782e-02_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &1.2777e+00_rb,1.1375e+00_rb,9.9345e-01_rb,8.4804e-01_rb,6.9806e-01_rb,5.4388e-01_rb, &\n     &3.8298e-01_rb,2.1265e-01_rb,3.7539e-02_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &1.2857e+00_rb,1.1501e+00_rb,1.0105e+00_rb,8.6538e-01_rb,7.1567e-01_rb,5.5928e-01_rb, &\n     &3.9596e-01_rb,2.2292e-01_rb,4.5370e-02_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &1.2877e+00_rb,1.1566e+00_rb,1.0204e+00_rb,8.7739e-01_rb,7.2832e-01_rb,5.7170e-01_rb, &\n     &4.0727e-01_rb,2.3325e-01_rb,5.5134e-02_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &1.2810e+00_rb,1.1580e+00_rb,1.0267e+00_rb,8.8778e-01_rb,7.3941e-01_rb,5.8252e-01_rb, &\n     &4.1760e-01_rb,2.4248e-01_rb,6.6222e-02_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &1.6209e-03_rb,5.7589e-02_rb,1.1558e-01_rb,1.7436e-01_rb,2.3438e-01_rb,2.9678e-01_rb, &\n     &3.6435e-01_rb,4.4557e-01_rb,4.6867e-01_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &1.6160e-03_rb,6.8254e-02_rb,1.3700e-01_rb,2.0665e-01_rb,2.7776e-01_rb,3.5160e-01_rb, &\n     &4.3147e-01_rb,5.2804e-01_rb,5.5543e-01_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &1.6156e-03_rb,7.9739e-02_rb,1.6004e-01_rb,2.4140e-01_rb,3.2446e-01_rb,4.1061e-01_rb, &\n     &5.0337e-01_rb,6.1528e-01_rb,6.4882e-01_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &1.6118e-03_rb,9.1878e-02_rb,1.8447e-01_rb,2.7828e-01_rb,3.7409e-01_rb,4.7339e-01_rb, &\n     &5.8011e-01_rb,7.0748e-01_rb,7.4809e-01_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &1.6027e-03_rb,1.0449e-01_rb,2.0983e-01_rb,3.1665e-01_rb,4.2579e-01_rb,5.3908e-01_rb, &\n     &6.6087e-01_rb,8.0485e-01_rb,8.5148e-01_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &2.5385e-03_rb,4.9947e-02_rb,1.0010e-01_rb,1.5075e-01_rb,2.0224e-01_rb,2.5529e-01_rb, &\n     &3.1202e-01_rb,3.8059e-01_rb,4.0436e-01_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &2.5420e-03_rb,5.9613e-02_rb,1.1949e-01_rb,1.7998e-01_rb,2.4152e-01_rb,3.0496e-01_rb, &\n     &3.7260e-01_rb,4.5413e-01_rb,4.8291e-01_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &2.5425e-03_rb,6.9977e-02_rb,1.4031e-01_rb,2.1138e-01_rb,2.8370e-01_rb,3.5840e-01_rb, &\n     &4.3825e-01_rb,5.3358e-01_rb,5.6726e-01_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &2.5349e-03_rb,8.0938e-02_rb,1.6229e-01_rb,2.4456e-01_rb,3.2834e-01_rb,4.1497e-01_rb, &\n     &5.0769e-01_rb,6.1900e-01_rb,6.5654e-01_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &2.5236e-03_rb,9.2377e-02_rb,1.8522e-01_rb,2.7915e-01_rb,3.7480e-01_rb,4.7381e-01_rb, &\n     &5.8018e-01_rb,7.0850e-01_rb,7.4944e-01_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &5.2884e-03_rb,4.1358e-02_rb,8.2480e-02_rb,1.2391e-01_rb,1.6574e-01_rb,2.0832e-01_rb, &\n     &2.5278e-01_rb,3.0394e-01_rb,3.3126e-01_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &5.3098e-03_rb,4.9746e-02_rb,9.9365e-02_rb,1.4928e-01_rb,1.9972e-01_rb,2.5111e-01_rb, &\n     &3.0480e-01_rb,3.6676e-01_rb,3.9919e-01_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &5.3133e-03_rb,5.8864e-02_rb,1.1765e-01_rb,1.7679e-01_rb,2.3653e-01_rb,2.9742e-01_rb, &\n     &3.6115e-01_rb,4.3493e-01_rb,4.7279e-01_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &5.3184e-03_rb,6.8570e-02_rb,1.3708e-01_rb,2.0601e-01_rb,2.7562e-01_rb,3.4665e-01_rb, &\n     &4.2100e-01_rb,5.0744e-01_rb,5.5094e-01_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &5.2937e-03_rb,7.8913e-02_rb,1.5776e-01_rb,2.3709e-01_rb,3.1721e-01_rb,3.9889e-01_rb, &\n     &4.8431e-01_rb,5.8366e-01_rb,6.3409e-01_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &1.1189e-02_rb,3.7631e-02_rb,6.6855e-02_rb,9.9420e-02_rb,1.3264e-01_rb,1.6622e-01_rb, &\n     &2.0064e-01_rb,2.3828e-01_rb,2.6479e-01_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &1.1235e-02_rb,4.3836e-02_rb,8.1298e-02_rb,1.2151e-01_rb,1.6212e-01_rb,2.0319e-01_rb, &\n     &2.4526e-01_rb,2.9131e-01_rb,3.2370e-01_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &1.1256e-02_rb,5.0846e-02_rb,9.7157e-02_rb,1.4551e-01_rb,1.9420e-01_rb,2.4340e-01_rb, &\n     &2.9384e-01_rb,3.4897e-01_rb,3.8783e-01_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &1.1233e-02_rb,5.8695e-02_rb,1.1439e-01_rb,1.7147e-01_rb,2.2883e-01_rb,2.8678e-01_rb, &\n     &3.4608e-01_rb,4.1077e-01_rb,4.5705e-01_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &1.1193e-02_rb,6.7408e-02_rb,1.3290e-01_rb,1.9926e-01_rb,2.6591e-01_rb,3.3325e-01_rb, &\n     &4.0214e-01_rb,4.7714e-01_rb,5.3115e-01_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &2.1456e-02_rb,4.5196e-02_rb,6.1958e-02_rb,8.2153e-02_rb,1.0545e-01_rb,1.3112e-01_rb, &\n     &1.5772e-01_rb,1.8584e-01_rb,2.0874e-01_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &2.1627e-02_rb,4.9543e-02_rb,7.2420e-02_rb,9.9628e-02_rb,1.3042e-01_rb,1.6274e-01_rb, &\n     &1.9580e-01_rb,2.3075e-01_rb,2.5926e-01_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &2.1648e-02_rb,5.4430e-02_rb,8.4381e-02_rb,1.1963e-01_rb,1.5816e-01_rb,1.9769e-01_rb, &\n     &2.3786e-01_rb,2.8024e-01_rb,3.1505e-01_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &2.1655e-02_rb,5.9909e-02_rb,9.8020e-02_rb,1.4216e-01_rb,1.8871e-01_rb,2.3596e-01_rb, &\n     &2.8391e-01_rb,3.3439e-01_rb,3.7619e-01_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &2.1575e-02_rb,6.6071e-02_rb,1.1341e-01_rb,1.6675e-01_rb,2.2186e-01_rb,2.7746e-01_rb, &\n     &3.3388e-01_rb,3.9317e-01_rb,4.4246e-01_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &3.8314e-02_rb,5.9481e-02_rb,7.1457e-02_rb,8.1684e-02_rb,9.1784e-02_rb,1.0487e-01_rb, &\n     &1.2171e-01_rb,1.4213e-01_rb,1.5860e-01_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &3.8611e-02_rb,6.4337e-02_rb,7.9461e-02_rb,9.3850e-02_rb,1.0993e-01_rb,1.2967e-01_rb, &\n     &1.5327e-01_rb,1.7946e-01_rb,2.0255e-01_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &3.8670e-02_rb,6.9241e-02_rb,8.8613e-02_rb,1.0808e-01_rb,1.3134e-01_rb,1.5836e-01_rb, &\n     &1.8890e-01_rb,2.2142e-01_rb,2.5002e-01_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &3.8675e-02_rb,7.4319e-02_rb,9.8760e-02_rb,1.2484e-01_rb,1.5591e-01_rb,1.9105e-01_rb, &\n     &2.2866e-01_rb,2.6805e-01_rb,3.0304e-01_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &3.8508e-02_rb,7.9526e-02_rb,1.0987e-01_rb,1.4404e-01_rb,1.8357e-01_rb,2.2696e-01_rb, &\n     &2.7218e-01_rb,3.1912e-01_rb,3.6102e-01_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &7.2084e-02_rb,8.8512e-02_rb,9.7172e-02_rb,1.0090e-01_rb,1.0168e-01_rb,1.0216e-01_rb, &\n     &1.0271e-01_rb,1.0842e-01_rb,1.0501e-01_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &7.2564e-02_rb,9.4711e-02_rb,1.0583e-01_rb,1.1196e-01_rb,1.1550e-01_rb,1.2008e-01_rb, &\n     &1.2583e-01_rb,1.3849e-01_rb,1.4021e-01_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &7.2730e-02_rb,1.0095e-01_rb,1.1490e-01_rb,1.2380e-01_rb,1.3141e-01_rb,1.4065e-01_rb, &\n     &1.5344e-01_rb,1.7335e-01_rb,1.8125e-01_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &7.2941e-02_rb,1.0706e-01_rb,1.2422e-01_rb,1.3654e-01_rb,1.5005e-01_rb,1.6497e-01_rb, &\n     &1.8541e-01_rb,2.1284e-01_rb,2.2809e-01_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &7.3026e-02_rb,1.1297e-01_rb,1.3379e-01_rb,1.5116e-01_rb,1.7068e-01_rb,1.9286e-01_rb, &\n     &2.2139e-01_rb,2.5637e-01_rb,2.7993e-01_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &1.6179e-01_rb,1.6443e-01_rb,1.6310e-01_rb,1.5765e-01_rb,1.4868e-01_rb,1.3533e-01_rb, &\n     &1.1770e-01_rb,9.8380e-02_rb,8.1836e-02_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &1.6423e-01_rb,1.7218e-01_rb,1.7516e-01_rb,1.7171e-01_rb,1.6374e-01_rb,1.5153e-01_rb, &\n     &1.3534e-01_rb,1.1999e-01_rb,1.0061e-01_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &1.6654e-01_rb,1.7965e-01_rb,1.8707e-01_rb,1.8587e-01_rb,1.7956e-01_rb,1.6926e-01_rb, &\n     &1.5537e-01_rb,1.4544e-01_rb,1.2284e-01_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &1.6762e-01_rb,1.8741e-01_rb,1.9894e-01_rb,2.0043e-01_rb,1.9638e-01_rb,1.8821e-01_rb, &\n     &1.7907e-01_rb,1.7570e-01_rb,1.5659e-01_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &1.6808e-01_rb,1.9570e-01_rb,2.1084e-01_rb,2.1493e-01_rb,2.1406e-01_rb,2.0908e-01_rb, &\n     &2.0616e-01_rb,2.1009e-01_rb,1.9730e-01_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &7.0428e-01_rb,6.3434e-01_rb,5.6644e-01_rb,4.9559e-01_rb,4.2070e-01_rb,3.4143e-01_rb, &\n     &2.6063e-01_rb,1.7246e-01_rb,1.1446e-01_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &7.1533e-01_rb,6.5148e-01_rb,5.8487e-01_rb,5.1694e-01_rb,4.4379e-01_rb,3.6693e-01_rb, &\n     &2.8562e-01_rb,1.9355e-01_rb,1.3717e-01_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &7.2105e-01_rb,6.6501e-01_rb,6.0595e-01_rb,5.4025e-01_rb,4.6705e-01_rb,3.9267e-01_rb, &\n     &3.1101e-01_rb,2.1648e-01_rb,1.6351e-01_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &7.2262e-01_rb,6.7430e-01_rb,6.2376e-01_rb,5.6249e-01_rb,4.9295e-01_rb,4.1839e-01_rb, &\n     &3.3764e-01_rb,2.4119e-01_rb,1.9114e-01_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &7.2252e-01_rb,6.8406e-01_rb,6.4078e-01_rb,5.8400e-01_rb,5.1738e-01_rb,4.4614e-01_rb, &\n     &3.6505e-01_rb,2.6763e-01_rb,2.2362e-01_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &3.3754e+00_rb,2.9579e+00_rb,2.5567e+00_rb,2.1598e+00_rb,1.7623e+00_rb,1.3527e+00_rb, &\n     &9.4464e-01_rb,5.2414e-01_rb,1.6022e-01_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &3.4121e+00_rb,2.9947e+00_rb,2.5993e+00_rb,2.2033e+00_rb,1.8038e+00_rb,1.3952e+00_rb, &\n     &9.8851e-01_rb,5.5797e-01_rb,1.9922e-01_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &3.4354e+00_rb,3.0219e+00_rb,2.6345e+00_rb,2.2476e+00_rb,1.8449e+00_rb,1.4451e+00_rb, &\n     &1.0317e+00_rb,5.9234e-01_rb,2.4180e-01_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &3.4369e+00_rb,3.0367e+00_rb,2.6577e+00_rb,2.2740e+00_rb,1.8821e+00_rb,1.4871e+00_rb, &\n     &1.0728e+00_rb,6.2615e-01_rb,2.8291e-01_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &3.4461e+00_rb,3.0546e+00_rb,2.6839e+00_rb,2.3057e+00_rb,1.9262e+00_rb,1.5287e+00_rb, &\n     &1.1134e+00_rb,6.5955e-01_rb,3.3010e-01_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &5.5731e+00_rb,4.8785e+00_rb,4.1979e+00_rb,3.5322e+00_rb,2.8619e+00_rb,2.1883e+00_rb, &\n     &1.5051e+00_rb,8.1479e-01_rb,1.7197e-01_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &5.6124e+00_rb,4.9158e+00_rb,4.2449e+00_rb,3.5793e+00_rb,2.9170e+00_rb,2.2388e+00_rb, &\n     &1.5568e+00_rb,8.5687e-01_rb,2.2531e-01_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &5.6253e+00_rb,4.9334e+00_rb,4.2755e+00_rb,3.6196e+00_rb,2.9577e+00_rb,2.2787e+00_rb, &\n     &1.6022e+00_rb,8.9680e-01_rb,2.6360e-01_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &5.6351e+00_rb,4.9513e+00_rb,4.3021e+00_rb,3.6565e+00_rb,2.9923e+00_rb,2.3311e+00_rb, &\n     &1.6513e+00_rb,9.3728e-01_rb,3.0681e-01_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &5.6511e+00_rb,4.9808e+00_rb,4.3475e+00_rb,3.7008e+00_rb,3.0483e+00_rb,2.3866e+00_rb, &\n     &1.7012e+00_rb,9.7887e-01_rb,3.4951e-01_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &6.6833e+00_rb,5.8503e+00_rb,5.0320e+00_rb,4.2291e+00_rb,3.4220e+00_rb,2.6133e+00_rb, &\n     &1.7900e+00_rb,9.6260e-01_rb,1.7445e-01_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &6.6977e+00_rb,5.8665e+00_rb,5.0629e+00_rb,4.2649e+00_rb,3.4722e+00_rb,2.6560e+00_rb, &\n     &1.8378e+00_rb,1.0034e+00_rb,2.1910e-01_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &6.7112e+00_rb,5.8830e+00_rb,5.0943e+00_rb,4.3071e+00_rb,3.5122e+00_rb,2.7000e+00_rb, &\n     &1.8863e+00_rb,1.0455e+00_rb,2.5420e-01_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &6.7306e+00_rb,5.9135e+00_rb,5.1333e+00_rb,4.3624e+00_rb,3.5635e+00_rb,2.7641e+00_rb, &\n     &1.9469e+00_rb,1.0906e+00_rb,2.9618e-01_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &6.7198e+00_rb,5.9182e+00_rb,5.1572e+00_rb,4.3874e+00_rb,3.6068e+00_rb,2.8158e+00_rb, &\n     &1.9979e+00_rb,1.1364e+00_rb,3.4172e-01_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &6.2228e+00_rb,5.4483e+00_rb,4.6948e+00_rb,3.9489e+00_rb,3.2053e+00_rb,2.4477e+00_rb, &\n     &1.6826e+00_rb,9.0899e-01_rb,1.6340e-01_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &6.2479e+00_rb,5.4750e+00_rb,4.7365e+00_rb,3.9942e+00_rb,3.2532e+00_rb,2.4916e+00_rb, &\n     &1.7319e+00_rb,9.4656e-01_rb,1.9164e-01_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &6.2720e+00_rb,5.5063e+00_rb,4.7748e+00_rb,4.0523e+00_rb,3.3026e+00_rb,2.5508e+00_rb, &\n     &1.7859e+00_rb,9.9108e-01_rb,2.3050e-01_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &6.2663e+00_rb,5.5165e+00_rb,4.8016e+00_rb,4.0858e+00_rb,3.3448e+00_rb,2.6010e+00_rb, &\n     &1.8364e+00_rb,1.0337e+00_rb,2.6420e-01_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &6.2869e+00_rb,5.5494e+00_rb,4.8492e+00_rb,4.1318e+00_rb,3.4036e+00_rb,2.6598e+00_rb, &\n     &1.8865e+00_rb,1.0759e+00_rb,2.9687e-01_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &2.7731e-03_rb,1.5625e-01_rb,3.1254e-01_rb,4.6910e-01_rb,6.2583e-01_rb,7.8249e-01_rb, &\n     &9.3706e-01_rb,1.0845e+00_rb,1.2516e+00_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &2.6994e-03_rb,1.8576e-01_rb,3.7148e-01_rb,5.5698e-01_rb,7.4226e-01_rb,9.2683e-01_rb, &\n     &1.1083e+00_rb,1.2874e+00_rb,1.4844e+00_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &2.5977e-03_rb,2.1688e-01_rb,4.3344e-01_rb,6.4957e-01_rb,8.6528e-01_rb,1.0791e+00_rb, &\n     &1.2881e+00_rb,1.4959e+00_rb,1.7305e+00_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &2.4994e-03_rb,2.5005e-01_rb,4.9954e-01_rb,7.4789e-01_rb,9.9444e-01_rb,1.2373e+00_rb, &\n     &1.4746e+00_rb,1.7076e+00_rb,1.9888e+00_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &2.4443e-03_rb,2.8623e-01_rb,5.7132e-01_rb,8.5454e-01_rb,1.1344e+00_rb,1.4080e+00_rb, &\n     &1.6698e+00_rb,1.9238e+00_rb,2.2687e+00_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &4.6033e-03_rb,1.4235e-01_rb,2.8494e-01_rb,4.2818e-01_rb,5.7234e-01_rb,7.1833e-01_rb, &\n     &8.6574e-01_rb,1.0139e+00_rb,1.1445e+00_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &4.4279e-03_rb,1.7116e-01_rb,3.4236e-01_rb,5.1392e-01_rb,6.8612e-01_rb,8.5990e-01_rb, &\n     &1.0377e+00_rb,1.2137e+00_rb,1.3721e+00_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &4.2606e-03_rb,2.0315e-01_rb,4.0616e-01_rb,6.0913e-01_rb,8.1201e-01_rb,1.0152e+00_rb, &\n     &1.2192e+00_rb,1.4256e+00_rb,1.6238e+00_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &4.1205e-03_rb,2.3773e-01_rb,4.7526e-01_rb,7.1252e-01_rb,9.4929e-01_rb,1.1850e+00_rb, &\n     &1.4175e+00_rb,1.6433e+00_rb,1.8984e+00_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &4.0494e-03_rb,2.7547e-01_rb,5.5055e-01_rb,8.2539e-01_rb,1.0993e+00_rb,1.3710e+00_rb, &\n     &1.6368e+00_rb,1.8772e+00_rb,2.1984e+00_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &1.0161e-02_rb,1.2214e-01_rb,2.4424e-01_rb,3.6667e-01_rb,4.8955e-01_rb,6.1355e-01_rb, &\n     &7.4009e-01_rb,8.7555e-01_rb,9.7887e-01_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &9.8188e-03_rb,1.5023e-01_rb,3.0029e-01_rb,4.5055e-01_rb,6.0115e-01_rb,7.5236e-01_rb, &\n     &9.0544e-01_rb,1.0662e+00_rb,1.2020e+00_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &9.4977e-03_rb,1.8146e-01_rb,3.6272e-01_rb,5.4423e-01_rb,7.2598e-01_rb,9.0829e-01_rb, &\n     &1.0912e+00_rb,1.2774e+00_rb,1.4517e+00_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &9.2658e-03_rb,2.1540e-01_rb,4.3072e-01_rb,6.4627e-01_rb,8.6225e-01_rb,1.0787e+00_rb, &\n     &1.2961e+00_rb,1.5118e+00_rb,1.7242e+00_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &9.2390e-03_rb,2.5102e-01_rb,5.0193e-01_rb,7.5312e-01_rb,1.0052e+00_rb,1.2582e+00_rb, &\n     &1.5132e+00_rb,1.7682e+00_rb,2.0100e+00_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &2.2805e-02_rb,1.0395e-01_rb,2.0752e-01_rb,3.1119e-01_rb,4.1502e-01_rb,5.1909e-01_rb, &\n     &6.2381e-01_rb,7.3100e-01_rb,8.2961e-01_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &2.2222e-02_rb,1.2866e-01_rb,2.5687e-01_rb,3.8520e-01_rb,5.1380e-01_rb,6.4273e-01_rb, &\n     &7.7289e-01_rb,9.0648e-01_rb,1.0271e+00_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &2.1664e-02_rb,1.5642e-01_rb,3.1238e-01_rb,4.6876e-01_rb,6.2523e-01_rb,7.8254e-01_rb, &\n     &9.4140e-01_rb,1.1052e+00_rb,1.2499e+00_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &2.1586e-02_rb,1.8661e-01_rb,3.7283e-01_rb,5.5940e-01_rb,7.4664e-01_rb,9.3462e-01_rb, &\n     &1.1258e+00_rb,1.3254e+00_rb,1.4927e+00_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &2.1462e-02_rb,2.1863e-01_rb,4.3680e-01_rb,6.5519e-01_rb,8.7456e-01_rb,1.0957e+00_rb, &\n     &1.3203e+00_rb,1.5569e+00_rb,1.7484e+00_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &4.7130e-02_rb,9.3953e-02_rb,1.7393e-01_rb,2.6053e-01_rb,3.4731e-01_rb,4.3431e-01_rb, &\n     &5.2182e-01_rb,6.1134e-01_rb,6.9380e-01_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &4.5557e-02_rb,1.1245e-01_rb,2.1773e-01_rb,3.2619e-01_rb,4.3487e-01_rb,5.4373e-01_rb, &\n     &6.5319e-01_rb,7.6497e-01_rb,8.6883e-01_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &4.5179e-02_rb,1.3419e-01_rb,2.6606e-01_rb,3.9876e-01_rb,5.3167e-01_rb,6.6490e-01_rb, &\n     &7.9898e-01_rb,9.3637e-01_rb,1.0624e+00_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &4.5058e-02_rb,1.5943e-01_rb,3.1786e-01_rb,4.7639e-01_rb,6.3534e-01_rb,7.9462e-01_rb, &\n     &9.5569e-01_rb,1.1218e+00_rb,1.2696e+00_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &4.5124e-02_rb,1.8659e-01_rb,3.7199e-01_rb,5.5748e-01_rb,7.4317e-01_rb,9.2965e-01_rb, &\n     &1.1179e+00_rb,1.3144e+00_rb,1.4843e+00_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &9.1822e-02_rb,1.2595e-01_rb,1.5650e-01_rb,2.1453e-01_rb,2.8383e-01_rb,3.5468e-01_rb, &\n     &4.2569e-01_rb,4.9790e-01_rb,5.6600e-01_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &9.0834e-02_rb,1.3514e-01_rb,1.8905e-01_rb,2.7114e-01_rb,3.6116e-01_rb,4.5123e-01_rb, &\n     &5.4153e-01_rb,6.3330e-01_rb,7.2013e-01_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &9.0336e-02_rb,1.4401e-01_rb,2.2730e-01_rb,3.3603e-01_rb,4.4738e-01_rb,5.5884e-01_rb, &\n     &6.7092e-01_rb,7.8481e-01_rb,8.9194e-01_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &9.0439e-02_rb,1.5770e-01_rb,2.7084e-01_rb,4.0445e-01_rb,5.3847e-01_rb,6.7263e-01_rb, &\n     &8.0760e-01_rb,9.4541e-01_rb,1.0734e+00_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &8.9534e-02_rb,1.7535e-01_rb,3.1878e-01_rb,4.7665e-01_rb,6.3445e-01_rb,7.9249e-01_rb, &\n     &9.5149e-01_rb,1.1135e+00_rb,1.2646e+00_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &1.8704e-01_rb,2.0782e-01_rb,2.1870e-01_rb,2.2895e-01_rb,2.4473e-01_rb,2.8566e-01_rb, &\n     &3.3903e-01_rb,3.9559e-01_rb,4.4999e-01_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &1.8532e-01_rb,2.1563e-01_rb,2.3939e-01_rb,2.5636e-01_rb,3.0272e-01_rb,3.6581e-01_rb, &\n     &4.3811e-01_rb,5.1140e-01_rb,5.8167e-01_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &1.8680e-01_rb,2.2377e-01_rb,2.5927e-01_rb,2.9855e-01_rb,3.7097e-01_rb,4.5865e-01_rb, &\n     &5.4953e-01_rb,6.4162e-01_rb,7.2947e-01_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &1.8310e-01_rb,2.3512e-01_rb,2.8042e-01_rb,3.5020e-01_rb,4.4840e-01_rb,5.5852e-01_rb, &\n     &6.6925e-01_rb,7.8169e-01_rb,8.8834e-01_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &1.7882e-01_rb,2.4826e-01_rb,3.0849e-01_rb,4.0772e-01_rb,5.3530e-01_rb,6.6727e-01_rb, &\n     &7.9969e-01_rb,9.3357e-01_rb,1.0615e+00_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &4.1112e-01_rb,4.0974e-01_rb,4.1065e-01_rb,3.9316e-01_rb,3.5874e-01_rb,3.2789e-01_rb, &\n     &2.9581e-01_rb,3.0764e-01_rb,1.9137e-01_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &4.0366e-01_rb,4.2457e-01_rb,4.2635e-01_rb,4.1703e-01_rb,3.9720e-01_rb,3.6880e-01_rb, &\n     &3.6253e-01_rb,4.0327e-01_rb,3.4592e-01_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &3.8607e-01_rb,4.4207e-01_rb,4.4571e-01_rb,4.4555e-01_rb,4.3797e-01_rb,4.1894e-01_rb, &\n     &4.4727e-01_rb,5.1245e-01_rb,5.5117e-01_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &3.7227e-01_rb,4.5775e-01_rb,4.6855e-01_rb,4.7950e-01_rb,4.7625e-01_rb,4.8559e-01_rb, &\n     &5.4513e-01_rb,6.3288e-01_rb,7.1148e-01_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &3.6637e-01_rb,4.6773e-01_rb,4.9188e-01_rb,5.1329e-01_rb,5.2260e-01_rb,5.7072e-01_rb, &\n     &6.6113e-01_rb,7.6991e-01_rb,8.6824e-01_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &1.5096e+00_rb,1.3467e+00_rb,1.2191e+00_rb,1.0959e+00_rb,9.8221e-01_rb,8.6433e-01_rb, &\n     &6.8915e-01_rb,4.5155e-01_rb,2.5455e-01_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &1.4729e+00_rb,1.3283e+00_rb,1.2484e+00_rb,1.1515e+00_rb,1.0570e+00_rb,9.2603e-01_rb, &\n     &7.4690e-01_rb,5.0470e-01_rb,3.4249e-01_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &1.4533e+00_rb,1.3348e+00_rb,1.2453e+00_rb,1.1987e+00_rb,1.1351e+00_rb,9.9543e-01_rb, &\n     &8.1023e-01_rb,5.6196e-01_rb,4.0591e-01_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &1.4744e+00_rb,1.3676e+00_rb,1.2850e+00_rb,1.2602e+00_rb,1.1957e+00_rb,1.0697e+00_rb, &\n     &8.6704e-01_rb,6.2711e-01_rb,4.8211e-01_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &1.4999e+00_rb,1.4091e+00_rb,1.3355e+00_rb,1.3264e+00_rb,1.2721e+00_rb,1.1339e+00_rb, &\n     &9.2252e-01_rb,7.1025e-01_rb,5.3091e-01_rb/)\n      kao(:, 1,10,10) = (/ &\n     &7.2829e+00_rb,6.3687e+00_rb,5.4628e+00_rb,4.5827e+00_rb,3.6816e+00_rb,2.8784e+00_rb, &\n     &1.9461e+00_rb,1.1228e+00_rb,2.9615e-01_rb/)\n      kao(:, 2,10,10) = (/ &\n     &7.2567e+00_rb,6.3523e+00_rb,5.5013e+00_rb,4.6178e+00_rb,3.8060e+00_rb,2.8925e+00_rb, &\n     &1.9877e+00_rb,1.2045e+00_rb,5.0840e-01_rb/)\n      kao(:, 3,10,10) = (/ &\n     &7.3526e+00_rb,6.4384e+00_rb,5.5471e+00_rb,4.6686e+00_rb,3.8188e+00_rb,2.9106e+00_rb, &\n     &2.0584e+00_rb,1.3182e+00_rb,5.8969e-01_rb/)\n      kao(:, 4,10,10) = (/ &\n     &7.6517e+00_rb,6.6965e+00_rb,5.8098e+00_rb,4.9129e+00_rb,3.9609e+00_rb,3.0608e+00_rb, &\n     &2.1952e+00_rb,1.4642e+00_rb,7.2061e-01_rb/)\n      kao(:, 5,10,10) = (/ &\n     &7.6682e+00_rb,6.7495e+00_rb,5.8665e+00_rb,4.9992e+00_rb,4.0971e+00_rb,3.1895e+00_rb, &\n     &2.3244e+00_rb,1.6171e+00_rb,8.0277e-01_rb/)\n      kao(:, 1,11,10) = (/ &\n     &1.2863e+01_rb,1.1253e+01_rb,9.6455e+00_rb,8.0559e+00_rb,6.4984e+00_rb,4.9709e+00_rb, &\n     &3.3831e+00_rb,1.7991e+00_rb,3.6644e-01_rb/)\n      kao(:, 2,11,10) = (/ &\n     &1.3151e+01_rb,1.1511e+01_rb,9.8627e+00_rb,8.2765e+00_rb,6.6703e+00_rb,5.1195e+00_rb, &\n     &3.4235e+00_rb,1.8440e+00_rb,4.6729e-01_rb/)\n      kao(:, 3,11,10) = (/ &\n     &1.3385e+01_rb,1.1711e+01_rb,1.0081e+01_rb,8.4279e+00_rb,6.8536e+00_rb,5.2620e+00_rb, &\n     &3.6394e+00_rb,1.9452e+00_rb,7.7574e-01_rb/)\n      kao(:, 4,11,10) = (/ &\n     &1.3506e+01_rb,1.1818e+01_rb,1.0183e+01_rb,8.6029e+00_rb,7.0409e+00_rb,5.3665e+00_rb, &\n     &3.7651e+00_rb,2.0591e+00_rb,8.8231e-01_rb/)\n      kao(:, 5,11,10) = (/ &\n     &1.3392e+01_rb,1.1719e+01_rb,1.0115e+01_rb,8.6680e+00_rb,7.0525e+00_rb,5.5043e+00_rb, &\n     &3.9029e+00_rb,2.2010e+00_rb,9.9688e-01_rb/)\n      kao(:, 1,12,10) = (/ &\n     &1.6670e+01_rb,1.4588e+01_rb,1.2501e+01_rb,1.0421e+01_rb,8.3941e+00_rb,6.4270e+00_rb, &\n     &4.3660e+00_rb,2.2934e+00_rb,3.9405e-01_rb/)\n      kao(:, 2,12,10) = (/ &\n     &1.7105e+01_rb,1.4960e+01_rb,1.2826e+01_rb,1.0751e+01_rb,8.6199e+00_rb,6.6739e+00_rb, &\n     &4.5154e+00_rb,2.4126e+00_rb,5.4759e-01_rb/)\n      kao(:, 3,12,10) = (/ &\n     &1.7307e+01_rb,1.5147e+01_rb,1.3016e+01_rb,1.0902e+01_rb,8.9354e+00_rb,6.8220e+00_rb, &\n     &4.7181e+00_rb,2.5631e+00_rb,8.3787e-01_rb/)\n      kao(:, 4,12,10) = (/ &\n     &1.7279e+01_rb,1.5121e+01_rb,1.3042e+01_rb,1.0948e+01_rb,8.9655e+00_rb,6.8546e+00_rb, &\n     &4.7965e+00_rb,2.6658e+00_rb,9.5310e-01_rb/)\n      kao(:, 5,12,10) = (/ &\n     &1.7622e+01_rb,1.5423e+01_rb,1.3295e+01_rb,1.1391e+01_rb,9.1951e+00_rb,7.1021e+00_rb, &\n     &4.9630e+00_rb,2.7853e+00_rb,1.0381e+00_rb/)\n      kao(:, 1,13,10) = (/ &\n     &1.7285e+01_rb,1.5124e+01_rb,1.2963e+01_rb,1.0843e+01_rb,8.6958e+00_rb,6.7399e+00_rb, &\n     &4.5324e+00_rb,2.3893e+00_rb,3.8223e-01_rb/)\n      kao(:, 2,13,10) = (/ &\n     &1.7394e+01_rb,1.5220e+01_rb,1.3045e+01_rb,1.0933e+01_rb,8.8783e+00_rb,6.8319e+00_rb, &\n     &4.6535e+00_rb,2.5278e+00_rb,6.6322e-01_rb/)\n      kao(:, 3,13,10) = (/ &\n     &1.7534e+01_rb,1.5350e+01_rb,1.3222e+01_rb,1.1038e+01_rb,9.1270e+00_rb,6.8978e+00_rb, &\n     &4.7818e+00_rb,2.6214e+00_rb,7.3123e-01_rb/)\n      kao(:, 4,13,10) = (/ &\n     &1.7891e+01_rb,1.5660e+01_rb,1.3479e+01_rb,1.1400e+01_rb,9.3159e+00_rb,7.0998e+00_rb, &\n     &4.9577e+00_rb,2.7354e+00_rb,8.9654e-01_rb/)\n      kao(:, 5,13,10) = (/ &\n     &1.8019e+01_rb,1.5767e+01_rb,1.3610e+01_rb,1.1614e+01_rb,9.4166e+00_rb,7.3122e+00_rb, &\n     &5.1530e+00_rb,2.8785e+00_rb,1.0692e+00_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &3.1711e-03_rb,2.2841e-01_rb,4.5620e-01_rb,6.8299e-01_rb,9.0802e-01_rb,1.1291e+00_rb, &\n     &1.3398e+00_rb,1.4993e+00_rb,1.8159e+00_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &3.0704e-03_rb,2.7128e-01_rb,5.4234e-01_rb,8.1284e-01_rb,1.0822e+00_rb,1.3468e+00_rb, &\n     &1.5998e+00_rb,1.7945e+00_rb,2.1643e+00_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &2.9866e-03_rb,3.1478e-01_rb,6.2947e-01_rb,9.4408e-01_rb,1.2581e+00_rb,1.5709e+00_rb, &\n     &1.8741e+00_rb,2.1028e+00_rb,2.5161e+00_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &2.9163e-03_rb,3.5938e-01_rb,7.1835e-01_rb,1.0774e+00_rb,1.4362e+00_rb,1.7946e+00_rb, &\n     &2.1451e+00_rb,2.4217e+00_rb,2.8722e+00_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &2.8034e-03_rb,4.0521e-01_rb,8.0970e-01_rb,1.2136e+00_rb,1.6171e+00_rb,2.0187e+00_rb, &\n     &2.4125e+00_rb,2.7343e+00_rb,3.2340e+00_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &5.2383e-03_rb,2.1282e-01_rb,4.2542e-01_rb,6.3727e-01_rb,8.4863e-01_rb,1.0581e+00_rb, &\n     &1.2660e+00_rb,1.4631e+00_rb,1.6971e+00_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &5.1027e-03_rb,2.5414e-01_rb,5.0811e-01_rb,7.6215e-01_rb,1.0157e+00_rb,1.2690e+00_rb, &\n     &1.5182e+00_rb,1.7540e+00_rb,2.0313e+00_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &4.9821e-03_rb,2.9639e-01_rb,5.9276e-01_rb,8.8910e-01_rb,1.1857e+00_rb,1.4825e+00_rb, &\n     &1.7783e+00_rb,2.0622e+00_rb,2.3711e+00_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &4.8330e-03_rb,3.4110e-01_rb,6.8181e-01_rb,1.0221e+00_rb,1.3622e+00_rb,1.7021e+00_rb, &\n     &2.0428e+00_rb,2.3773e+00_rb,2.7241e+00_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &4.6466e-03_rb,3.8845e-01_rb,7.7604e-01_rb,1.1627e+00_rb,1.5479e+00_rb,1.9317e+00_rb, &\n     &2.3125e+00_rb,2.6917e+00_rb,3.0955e+00_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &1.1968e-02_rb,1.8925e-01_rb,3.7814e-01_rb,5.6720e-01_rb,7.5640e-01_rb,9.4598e-01_rb, &\n     &1.1354e+00_rb,1.3192e+00_rb,1.5123e+00_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &1.1738e-02_rb,2.2858e-01_rb,4.5676e-01_rb,6.8520e-01_rb,9.1426e-01_rb,1.1439e+00_rb, &\n     &1.3747e+00_rb,1.6035e+00_rb,1.8280e+00_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &1.1441e-02_rb,2.7028e-01_rb,5.3999e-01_rb,8.0979e-01_rb,1.0799e+00_rb,1.3506e+00_rb, &\n     &1.6224e+00_rb,1.8949e+00_rb,2.1592e+00_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &1.1066e-02_rb,3.1556e-01_rb,6.3024e-01_rb,9.4495e-01_rb,1.2595e+00_rb,1.5736e+00_rb, &\n     &1.8868e+00_rb,2.1970e+00_rb,2.5183e+00_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &1.0627e-02_rb,3.6442e-01_rb,7.2807e-01_rb,1.0914e+00_rb,1.4538e+00_rb,1.8154e+00_rb, &\n     &2.1726e+00_rb,2.5191e+00_rb,2.9067e+00_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &2.8048e-02_rb,1.6151e-01_rb,3.2202e-01_rb,4.8262e-01_rb,6.4375e-01_rb,8.0530e-01_rb, &\n     &9.6854e-01_rb,1.1364e+00_rb,1.2863e+00_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &2.7460e-02_rb,1.9867e-01_rb,3.9620e-01_rb,5.9396e-01_rb,7.9208e-01_rb,9.9102e-01_rb, &\n     &1.1917e+00_rb,1.3983e+00_rb,1.5828e+00_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &2.6672e-02_rb,2.3899e-01_rb,4.7658e-01_rb,7.1429e-01_rb,9.5231e-01_rb,1.1913e+00_rb, &\n     &1.4318e+00_rb,1.6791e+00_rb,1.9031e+00_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &2.5665e-02_rb,2.8345e-01_rb,5.6525e-01_rb,8.4715e-01_rb,1.1294e+00_rb,1.4117e+00_rb, &\n     &1.6956e+00_rb,1.9833e+00_rb,2.2571e+00_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &2.4958e-02_rb,3.3271e-01_rb,6.6383e-01_rb,9.9466e-01_rb,1.3259e+00_rb,1.6572e+00_rb, &\n     &1.9874e+00_rb,2.3183e+00_rb,2.6500e+00_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &5.9740e-02_rb,1.3717e-01_rb,2.6992e-01_rb,4.0387e-01_rb,5.3789e-01_rb,6.7238e-01_rb, &\n     &8.0752e-01_rb,9.4549e-01_rb,1.0734e+00_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &5.8323e-02_rb,1.6942e-01_rb,3.3625e-01_rb,5.0313e-01_rb,6.7036e-01_rb,8.3790e-01_rb, &\n     &1.0063e+00_rb,1.1790e+00_rb,1.3380e+00_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &5.6700e-02_rb,2.0744e-01_rb,4.1183e-01_rb,6.1629e-01_rb,8.2117e-01_rb,1.0263e+00_rb, &\n     &1.2326e+00_rb,1.4427e+00_rb,1.6392e+00_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &5.4845e-02_rb,2.5070e-01_rb,4.9802e-01_rb,7.4525e-01_rb,9.9296e-01_rb,1.2407e+00_rb, &\n     &1.4895e+00_rb,1.7409e+00_rb,1.9825e+00_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &5.3384e-02_rb,2.9836e-01_rb,5.9305e-01_rb,8.8824e-01_rb,1.1834e+00_rb,1.4792e+00_rb, &\n     &1.7758e+00_rb,2.0754e+00_rb,2.3639e+00_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &1.1443e-01_rb,1.5330e-01_rb,2.2814e-01_rb,3.3358e-01_rb,4.4343e-01_rb,5.5347e-01_rb, &\n     &6.6399e-01_rb,7.7608e-01_rb,8.8294e-01_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &1.1139e-01_rb,1.6753e-01_rb,2.8410e-01_rb,4.2322e-01_rb,5.6271e-01_rb,7.0257e-01_rb, &\n     &8.4275e-01_rb,9.8447e-01_rb,1.1213e+00_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &1.0816e-01_rb,1.9391e-01_rb,3.5154e-01_rb,5.2463e-01_rb,6.9799e-01_rb,8.7181e-01_rb, &\n     &1.0460e+00_rb,1.2220e+00_rb,1.3917e+00_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &1.0514e-01_rb,2.2522e-01_rb,4.2775e-01_rb,6.3893e-01_rb,8.5037e-01_rb,1.0626e+00_rb, &\n     &1.2753e+00_rb,1.4901e+00_rb,1.6964e+00_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &1.0414e-01_rb,2.6189e-01_rb,5.1110e-01_rb,7.6424e-01_rb,1.0178e+00_rb,1.2716e+00_rb, &\n     &1.5264e+00_rb,1.7854e+00_rb,2.0311e+00_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &2.3680e-01_rb,2.5474e-01_rb,2.7467e-01_rb,2.9968e-01_rb,3.6549e-01_rb,4.4931e-01_rb, &\n     &5.3835e-01_rb,6.2811e-01_rb,7.1559e-01_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &2.3126e-01_rb,2.6667e-01_rb,2.9742e-01_rb,3.6770e-01_rb,4.6828e-01_rb,5.8355e-01_rb, &\n     &6.9932e-01_rb,8.1593e-01_rb,9.2966e-01_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &2.2333e-01_rb,2.8145e-01_rb,3.3561e-01_rb,4.4803e-01_rb,5.8828e-01_rb,7.3378e-01_rb, &\n     &8.7969e-01_rb,1.0266e+00_rb,1.1700e+00_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &2.2006e-01_rb,2.9370e-01_rb,3.8943e-01_rb,5.4388e-01_rb,7.2193e-01_rb,9.0087e-01_rb, &\n     &1.0804e+00_rb,1.2609e+00_rb,1.4372e+00_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &2.1836e-01_rb,3.0927e-01_rb,4.5013e-01_rb,6.5145e-01_rb,8.6638e-01_rb,1.0814e+00_rb, &\n     &1.2967e+00_rb,1.5147e+00_rb,1.7257e+00_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &5.7508e-01_rb,5.5228e-01_rb,5.1832e-01_rb,4.8920e-01_rb,4.5962e-01_rb,4.2790e-01_rb, &\n     &4.4544e-01_rb,5.0496e-01_rb,5.4406e-01_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &5.5570e-01_rb,5.5086e-01_rb,5.3954e-01_rb,5.2836e-01_rb,5.0571e-01_rb,5.1612e-01_rb, &\n     &5.7597e-01_rb,6.6763e-01_rb,7.6063e-01_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &5.4644e-01_rb,5.5917e-01_rb,5.6849e-01_rb,5.6772e-01_rb,5.6845e-01_rb,6.3045e-01_rb, &\n     &7.3261e-01_rb,8.5320e-01_rb,9.7237e-01_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &5.4298e-01_rb,5.6882e-01_rb,5.9693e-01_rb,6.1038e-01_rb,6.5823e-01_rb,7.6720e-01_rb, &\n     &9.1091e-01_rb,1.0615e+00_rb,1.2099e+00_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &5.3663e-01_rb,5.8485e-01_rb,6.2913e-01_rb,6.6732e-01_rb,7.6736e-01_rb,9.2195e-01_rb, &\n     &1.1025e+00_rb,1.2850e+00_rb,1.4649e+00_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &2.5279e+00_rb,2.2431e+00_rb,2.0106e+00_rb,1.7600e+00_rb,1.4790e+00_rb,1.2051e+00_rb, &\n     &8.9590e-01_rb,5.8517e-01_rb,3.0795e-01_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &2.4601e+00_rb,2.1917e+00_rb,2.0103e+00_rb,1.7592e+00_rb,1.5280e+00_rb,1.2575e+00_rb, &\n     &9.5967e-01_rb,6.7082e-01_rb,3.9930e-01_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &2.4168e+00_rb,2.1757e+00_rb,2.0177e+00_rb,1.7994e+00_rb,1.5699e+00_rb,1.3186e+00_rb, &\n     &1.0425e+00_rb,7.7727e-01_rb,5.2484e-01_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &2.3770e+00_rb,2.1985e+00_rb,2.0410e+00_rb,1.8443e+00_rb,1.6274e+00_rb,1.3869e+00_rb, &\n     &1.1288e+00_rb,9.2337e-01_rb,5.9212e-01_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &2.3400e+00_rb,2.1850e+00_rb,2.0960e+00_rb,1.9025e+00_rb,1.6878e+00_rb,1.4602e+00_rb, &\n     &1.2280e+00_rb,1.0954e+00_rb,7.2073e-01_rb/)\n      kao(:, 1,10,11) = (/ &\n     &1.1112e+01_rb,9.7248e+00_rb,8.3361e+00_rb,7.0270e+00_rb,5.7440e+00_rb,4.5096e+00_rb, &\n     &3.2779e+00_rb,1.8950e+00_rb,4.0940e-01_rb/)\n      kao(:, 2,10,11) = (/ &\n     &1.0924e+01_rb,9.5564e+00_rb,8.1917e+00_rb,6.9650e+00_rb,5.7085e+00_rb,4.6298e+00_rb, &\n     &3.3486e+00_rb,2.0156e+00_rb,4.6752e-01_rb/)\n      kao(:, 3,10,11) = (/ &\n     &1.0832e+01_rb,9.4781e+00_rb,8.2229e+00_rb,6.9872e+00_rb,5.8796e+00_rb,4.6954e+00_rb, &\n     &3.5108e+00_rb,2.1192e+00_rb,8.0168e-01_rb/)\n      kao(:, 4,10,11) = (/ &\n     &1.0490e+01_rb,9.1768e+00_rb,8.0065e+00_rb,6.9497e+00_rb,5.9506e+00_rb,4.7816e+00_rb, &\n     &3.6391e+00_rb,2.2227e+00_rb,9.3825e-01_rb/)\n      kao(:, 5,10,11) = (/ &\n     &1.0399e+01_rb,9.1010e+00_rb,8.0219e+00_rb,7.0325e+00_rb,5.9506e+00_rb,4.9243e+00_rb, &\n     &3.8048e+00_rb,2.3499e+00_rb,1.1716e+00_rb/)\n      kao(:, 1,11,11) = (/ &\n     &1.6964e+01_rb,1.4849e+01_rb,1.2726e+01_rb,1.0607e+01_rb,8.5722e+00_rb,6.5304e+00_rb, &\n     &4.5723e+00_rb,2.5353e+00_rb,5.7715e-01_rb/)\n      kao(:, 2,11,11) = (/ &\n     &1.6824e+01_rb,1.4725e+01_rb,1.2623e+01_rb,1.0586e+01_rb,8.5709e+00_rb,6.6756e+00_rb, &\n     &4.7183e+00_rb,2.7595e+00_rb,6.2192e-01_rb/)\n      kao(:, 3,11,11) = (/ &\n     &1.6755e+01_rb,1.4665e+01_rb,1.2572e+01_rb,1.0610e+01_rb,8.6759e+00_rb,6.8661e+00_rb, &\n     &4.7973e+00_rb,2.9494e+00_rb,7.1889e-01_rb/)\n      kao(:, 4,11,11) = (/ &\n     &1.6922e+01_rb,1.4802e+01_rb,1.2769e+01_rb,1.0738e+01_rb,8.9005e+00_rb,6.9130e+00_rb, &\n     &5.0022e+00_rb,3.1663e+00_rb,1.1906e+00_rb/)\n      kao(:, 5,11,11) = (/ &\n     &1.7198e+01_rb,1.5045e+01_rb,1.3001e+01_rb,1.1038e+01_rb,9.0834e+00_rb,7.0679e+00_rb, &\n     &5.2222e+00_rb,3.3529e+00_rb,1.3885e+00_rb/)\n      kao(:, 1,12,11) = (/ &\n     &2.1802e+01_rb,1.9077e+01_rb,1.6353e+01_rb,1.3626e+01_rb,1.0986e+01_rb,8.2719e+00_rb, &\n     &5.7215e+00_rb,2.9889e+00_rb,6.5084e-01_rb/)\n      kao(:, 2,12,11) = (/ &\n     &2.2052e+01_rb,1.9310e+01_rb,1.6546e+01_rb,1.3830e+01_rb,1.1139e+01_rb,8.5492e+00_rb, &\n     &5.8655e+00_rb,3.1860e+00_rb,7.2046e-01_rb/)\n      kao(:, 3,12,11) = (/ &\n     &2.2451e+01_rb,1.9654e+01_rb,1.6841e+01_rb,1.4123e+01_rb,1.1335e+01_rb,8.7814e+00_rb, &\n     &5.9237e+00_rb,3.3098e+00_rb,8.3218e-01_rb/)\n      kao(:, 4,12,11) = (/ &\n     &2.3090e+01_rb,2.0216e+01_rb,1.7353e+01_rb,1.4511e+01_rb,1.1935e+01_rb,9.0228e+00_rb, &\n     &6.2499e+00_rb,3.5354e+00_rb,1.3462e+00_rb/)\n      kao(:, 5,12,11) = (/ &\n     &2.3297e+01_rb,2.0383e+01_rb,1.7601e+01_rb,1.4664e+01_rb,1.2080e+01_rb,9.1910e+00_rb, &\n     &6.4263e+00_rb,3.7093e+00_rb,1.5753e+00_rb/)\n      kao(:, 1,13,11) = (/ &\n     &2.3137e+01_rb,2.0253e+01_rb,1.7360e+01_rb,1.4461e+01_rb,1.1660e+01_rb,8.7711e+00_rb, &\n     &6.0766e+00_rb,3.2004e+00_rb,6.2333e-01_rb/)\n      kao(:, 2,13,11) = (/ &\n     &2.3705e+01_rb,2.0739e+01_rb,1.7789e+01_rb,1.4919e+01_rb,1.1958e+01_rb,9.2720e+00_rb, &\n     &6.2579e+00_rb,3.3419e+00_rb,6.6494e-01_rb/)\n      kao(:, 3,13,11) = (/ &\n     &2.4274e+01_rb,2.1226e+01_rb,1.8190e+01_rb,1.5260e+01_rb,1.2326e+01_rb,9.5663e+00_rb, &\n     &6.4788e+00_rb,3.4909e+00_rb,1.1201e+00_rb/)\n      kao(:, 4,13,11) = (/ &\n     &2.4386e+01_rb,2.1333e+01_rb,1.8377e+01_rb,1.5357e+01_rb,1.2667e+01_rb,9.6781e+00_rb, &\n     &6.7508e+00_rb,3.6779e+00_rb,1.3420e+00_rb/)\n      kao(:, 5,13,11) = (/ &\n     &2.4394e+01_rb,2.1348e+01_rb,1.8396e+01_rb,1.5507e+01_rb,1.2756e+01_rb,9.7415e+00_rb, &\n     &6.8863e+00_rb,3.8176e+00_rb,1.6819e+00_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &3.7292e-03_rb,3.2906e-01_rb,6.5580e-01_rb,9.7933e-01_rb,1.2975e+00_rb,1.6059e+00_rb, &\n     &1.8953e+00_rb,2.1342e+00_rb,2.5948e+00_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &3.6338e-03_rb,3.9331e-01_rb,7.8289e-01_rb,1.1672e+00_rb,1.5430e+00_rb,1.9051e+00_rb, &\n     &2.2331e+00_rb,2.4741e+00_rb,3.0857e+00_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &3.5564e-03_rb,4.6323e-01_rb,9.2190e-01_rb,1.3739e+00_rb,1.8144e+00_rb,2.2323e+00_rb, &\n     &2.6037e+00_rb,2.8683e+00_rb,3.6286e+00_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &3.4829e-03_rb,5.3356e-01_rb,1.0626e+00_rb,1.5845e+00_rb,2.0933e+00_rb,2.5784e+00_rb, &\n     &3.0158e+00_rb,3.3179e+00_rb,4.1863e+00_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &3.4329e-03_rb,6.0324e-01_rb,1.2029e+00_rb,1.7965e+00_rb,2.3794e+00_rb,2.9402e+00_rb, &\n     &3.4530e+00_rb,3.8265e+00_rb,4.7585e+00_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &6.2080e-03_rb,3.1766e-01_rb,6.3367e-01_rb,9.4784e-01_rb,1.2588e+00_rb,1.5639e+00_rb, &\n     &1.8558e+00_rb,2.1035e+00_rb,2.5172e+00_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &6.0635e-03_rb,3.8413e-01_rb,7.6634e-01_rb,1.1462e+00_rb,1.5215e+00_rb,1.8884e+00_rb, &\n     &2.2355e+00_rb,2.5176e+00_rb,3.0427e+00_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &5.9382e-03_rb,4.5423e-01_rb,9.0644e-01_rb,1.3562e+00_rb,1.8011e+00_rb,2.2367e+00_rb, &\n     &2.6480e+00_rb,2.9724e+00_rb,3.6017e+00_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &5.8323e-03_rb,5.2519e-01_rb,1.0487e+00_rb,1.5700e+00_rb,2.0875e+00_rb,2.5951e+00_rb, &\n     &3.0747e+00_rb,3.4387e+00_rb,4.1744e+00_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &5.7338e-03_rb,5.9386e-01_rb,1.1863e+00_rb,1.7768e+00_rb,2.3632e+00_rb,2.9403e+00_rb, &\n     &3.4914e+00_rb,3.9302e+00_rb,4.7260e+00_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &1.4176e-02_rb,2.8836e-01_rb,5.7586e-01_rb,8.6297e-01_rb,1.1493e+00_rb,1.4343e+00_rb, &\n     &1.7160e+00_rb,1.9825e+00_rb,2.2980e+00_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &1.3806e-02_rb,3.5186e-01_rb,7.0276e-01_rb,1.0533e+00_rb,1.4030e+00_rb,1.7510e+00_rb, &\n     &2.0945e+00_rb,2.4186e+00_rb,2.8053e+00_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &1.3514e-02_rb,4.1890e-01_rb,8.3697e-01_rb,1.2547e+00_rb,1.6718e+00_rb,2.0870e+00_rb, &\n     &2.4990e+00_rb,2.8908e+00_rb,3.3428e+00_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &1.3249e-02_rb,4.8707e-01_rb,9.7331e-01_rb,1.4597e+00_rb,1.9459e+00_rb,2.4316e+00_rb, &\n     &2.9156e+00_rb,3.3828e+00_rb,3.8910e+00_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &1.3015e-02_rb,5.5537e-01_rb,1.1100e+00_rb,1.6644e+00_rb,2.2195e+00_rb,2.7745e+00_rb, &\n     &3.3300e+00_rb,3.8734e+00_rb,4.4382e+00_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &3.3184e-02_rb,2.5339e-01_rb,5.0565e-01_rb,7.5787e-01_rb,1.0100e+00_rb,1.2620e+00_rb, &\n     &1.5135e+00_rb,1.7634e+00_rb,2.0190e+00_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &3.2427e-02_rb,3.1318e-01_rb,6.2514e-01_rb,9.3708e-01_rb,1.2489e+00_rb,1.5601e+00_rb, &\n     &1.8704e+00_rb,2.1781e+00_rb,2.4966e+00_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &3.1776e-02_rb,3.7781e-01_rb,7.5434e-01_rb,1.1309e+00_rb,1.5072e+00_rb,1.8833e+00_rb, &\n     &2.2580e+00_rb,2.6266e+00_rb,3.0132e+00_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &3.1130e-02_rb,4.4383e-01_rb,8.8640e-01_rb,1.3292e+00_rb,1.7718e+00_rb,2.2142e+00_rb, &\n     &2.6572e+00_rb,3.0981e+00_rb,3.5423e+00_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &3.0303e-02_rb,5.1080e-01_rb,1.0203e+00_rb,1.5301e+00_rb,2.0399e+00_rb,2.5495e+00_rb, &\n     &3.0593e+00_rb,3.5718e+00_rb,4.0785e+00_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &7.0197e-02_rb,2.2033e-01_rb,4.3908e-01_rb,6.5775e-01_rb,8.7643e-01_rb,1.0950e+00_rb, &\n     &1.3134e+00_rb,1.5311e+00_rb,1.7514e+00_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &6.8848e-02_rb,2.7720e-01_rb,5.5265e-01_rb,8.2808e-01_rb,1.1036e+00_rb,1.3787e+00_rb, &\n     &1.6538e+00_rb,1.9275e+00_rb,2.2056e+00_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &6.6971e-02_rb,3.3853e-01_rb,6.7513e-01_rb,1.0119e+00_rb,1.3485e+00_rb,1.6854e+00_rb, &\n     &2.0224e+00_rb,2.3592e+00_rb,2.6952e+00_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &6.5365e-02_rb,4.0161e-01_rb,8.0132e-01_rb,1.2011e+00_rb,1.6012e+00_rb,2.0009e+00_rb, &\n     &2.4008e+00_rb,2.8038e+00_rb,3.2005e+00_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &6.3431e-02_rb,4.6828e-01_rb,9.3456e-01_rb,1.4005e+00_rb,1.8671e+00_rb,2.3331e+00_rb, &\n     &2.7981e+00_rb,3.2640e+00_rb,3.7323e+00_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &1.3973e-01_rb,2.0662e-01_rb,3.6962e-01_rb,5.5318e-01_rb,7.3681e-01_rb,9.2064e-01_rb, &\n     &1.1045e+00_rb,1.2891e+00_rb,1.4713e+00_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &1.3671e-01_rb,2.4877e-01_rb,4.7403e-01_rb,7.0978e-01_rb,9.4572e-01_rb,1.1814e+00_rb, &\n     &1.4179e+00_rb,1.6551e+00_rb,1.8888e+00_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &1.3368e-01_rb,2.9917e-01_rb,5.8968e-01_rb,8.8312e-01_rb,1.1767e+00_rb,1.4704e+00_rb, &\n     &1.7646e+00_rb,2.0602e+00_rb,2.3507e+00_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &1.2994e-01_rb,3.5894e-01_rb,7.1459e-01_rb,1.0704e+00_rb,1.4263e+00_rb,1.7824e+00_rb, &\n     &2.1385e+00_rb,2.4959e+00_rb,2.8498e+00_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &1.2525e-01_rb,4.2650e-01_rb,8.4975e-01_rb,1.2729e+00_rb,1.6963e+00_rb,2.1200e+00_rb, &\n     &2.5435e+00_rb,2.9674e+00_rb,3.3897e+00_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &2.8974e-01_rb,3.1610e-01_rb,3.5823e-01_rb,4.6930e-01_rb,6.1329e-01_rb,7.6583e-01_rb, &\n     &9.1850e-01_rb,1.0715e+00_rb,1.2231e+00_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &2.8480e-01_rb,3.2946e-01_rb,4.3038e-01_rb,6.0019e-01_rb,7.9796e-01_rb,9.9665e-01_rb, &\n     &1.1955e+00_rb,1.3949e+00_rb,1.5921e+00_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &2.7871e-01_rb,3.5067e-01_rb,5.1857e-01_rb,7.5801e-01_rb,1.0094e+00_rb,1.2608e+00_rb, &\n     &1.5125e+00_rb,1.7653e+00_rb,2.0145e+00_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &2.7300e-01_rb,3.8461e-01_rb,6.2621e-01_rb,9.3301e-01_rb,1.2423e+00_rb,1.5518e+00_rb, &\n     &1.8620e+00_rb,2.1734e+00_rb,2.4799e+00_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &2.6591e-01_rb,4.2736e-01_rb,7.5270e-01_rb,1.1266e+00_rb,1.5003e+00_rb,1.8747e+00_rb, &\n     &2.2489e+00_rb,2.6247e+00_rb,2.9958e+00_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &7.1395e-01_rb,6.8533e-01_rb,6.5866e-01_rb,6.2646e-01_rb,6.1056e-01_rb,6.5589e-01_rb, &\n     &7.5232e-01_rb,8.7691e-01_rb,1.0005e+00_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &7.0494e-01_rb,6.9398e-01_rb,6.9094e-01_rb,6.7668e-01_rb,7.2746e-01_rb,8.4153e-01_rb, &\n     &1.0006e+00_rb,1.1668e+00_rb,1.3319e+00_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &6.9397e-01_rb,7.0598e-01_rb,7.2266e-01_rb,7.6185e-01_rb,8.8476e-01_rb,1.0705e+00_rb, &\n     &1.2831e+00_rb,1.4961e+00_rb,1.7076e+00_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &6.8087e-01_rb,7.2362e-01_rb,7.6721e-01_rb,8.7767e-01_rb,1.0787e+00_rb,1.3359e+00_rb, &\n     &1.6015e+00_rb,1.8678e+00_rb,2.1324e+00_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &6.7139e-01_rb,7.3688e-01_rb,8.3187e-01_rb,1.0246e+00_rb,1.3106e+00_rb,1.6352e+00_rb, &\n     &1.9607e+00_rb,2.2865e+00_rb,2.6110e+00_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &3.4095e+00_rb,2.9940e+00_rb,2.6084e+00_rb,2.2712e+00_rb,1.8987e+00_rb,1.5323e+00_rb, &\n     &1.1724e+00_rb,8.1780e-01_rb,4.0421e-01_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &3.3693e+00_rb,2.9832e+00_rb,2.6354e+00_rb,2.2978e+00_rb,1.9462e+00_rb,1.6166e+00_rb, &\n     &1.2713e+00_rb,1.0128e+00_rb,5.1858e-01_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &3.3273e+00_rb,2.9606e+00_rb,2.6476e+00_rb,2.3138e+00_rb,2.0240e+00_rb,1.7033e+00_rb, &\n     &1.3935e+00_rb,1.2814e+00_rb,6.1493e-01_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &3.2577e+00_rb,2.9148e+00_rb,2.6437e+00_rb,2.3667e+00_rb,2.0968e+00_rb,1.8097e+00_rb, &\n     &1.5817e+00_rb,1.6061e+00_rb,8.7818e-01_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &3.1999e+00_rb,2.9208e+00_rb,2.6366e+00_rb,2.4121e+00_rb,2.1879e+00_rb,1.9394e+00_rb, &\n     &1.8270e+00_rb,1.9776e+00_rb,1.4315e+00_rb/)\n      kao(:, 1,10,12) = (/ &\n     &1.8080e+01_rb,1.5820e+01_rb,1.3560e+01_rb,1.1300e+01_rb,9.1208e+00_rb,6.9174e+00_rb, &\n     &4.8050e+00_rb,2.5816e+00_rb,5.9225e-01_rb/)\n      kao(:, 2,10,12) = (/ &\n     &1.7863e+01_rb,1.5633e+01_rb,1.3401e+01_rb,1.1233e+01_rb,9.0719e+00_rb,6.9705e+00_rb, &\n     &4.8769e+00_rb,2.6813e+00_rb,6.3411e-01_rb/)\n      kao(:, 3,10,12) = (/ &\n     &1.7446e+01_rb,1.5265e+01_rb,1.3103e+01_rb,1.1057e+01_rb,9.0250e+00_rb,7.0448e+00_rb, &\n     &4.8922e+00_rb,2.7949e+00_rb,7.0806e-01_rb/)\n      kao(:, 4,10,12) = (/ &\n     &1.7175e+01_rb,1.5031e+01_rb,1.2961e+01_rb,1.0925e+01_rb,8.9744e+00_rb,7.0129e+00_rb, &\n     &4.9823e+00_rb,2.9347e+00_rb,1.2270e+00_rb/)\n      kao(:, 5,10,12) = (/ &\n     &1.6980e+01_rb,1.4865e+01_rb,1.2847e+01_rb,1.0927e+01_rb,9.0016e+00_rb,7.0557e+00_rb, &\n     &5.0460e+00_rb,3.0782e+00_rb,1.3161e+00_rb/)\n      kao(:, 1,11,12) = (/ &\n     &3.1621e+01_rb,2.7664e+01_rb,2.3716e+01_rb,1.9762e+01_rb,1.5836e+01_rb,1.2028e+01_rb, &\n     &8.3404e+00_rb,4.4951e+00_rb,7.7226e-01_rb/)\n      kao(:, 2,11,12) = (/ &\n     &3.1089e+01_rb,2.7197e+01_rb,2.3314e+01_rb,1.9432e+01_rb,1.5688e+01_rb,1.1946e+01_rb, &\n     &8.4568e+00_rb,4.5500e+00_rb,1.2396e+00_rb/)\n      kao(:, 3,11,12) = (/ &\n     &3.0576e+01_rb,2.6758e+01_rb,2.2933e+01_rb,1.9212e+01_rb,1.5533e+01_rb,1.1953e+01_rb, &\n     &8.4697e+00_rb,4.6829e+00_rb,1.0564e+00_rb/)\n      kao(:, 4,11,12) = (/ &\n     &3.0097e+01_rb,2.6346e+01_rb,2.2583e+01_rb,1.9026e+01_rb,1.5507e+01_rb,1.2181e+01_rb, &\n     &8.5232e+00_rb,4.7855e+00_rb,1.0613e+00_rb/)\n      kao(:, 5,11,12) = (/ &\n     &2.9719e+01_rb,2.6007e+01_rb,2.2377e+01_rb,1.8843e+01_rb,1.5650e+01_rb,1.2244e+01_rb, &\n     &8.6646e+00_rb,4.9270e+00_rb,1.7788e+00_rb/)\n      kao(:, 1,12,12) = (/ &\n     &3.8089e+01_rb,3.3321e+01_rb,2.8563e+01_rb,2.3805e+01_rb,1.9048e+01_rb,1.4479e+01_rb, &\n     &1.0042e+01_rb,5.5700e+00_rb,1.0139e+00_rb/)\n      kao(:, 2,12,12) = (/ &\n     &3.7254e+01_rb,3.2590e+01_rb,2.7941e+01_rb,2.3286e+01_rb,1.8814e+01_rb,1.4266e+01_rb, &\n     &1.0187e+01_rb,5.6505e+00_rb,1.3358e+00_rb/)\n      kao(:, 3,12,12) = (/ &\n     &3.6753e+01_rb,3.2149e+01_rb,2.7565e+01_rb,2.3058e+01_rb,1.8681e+01_rb,1.4515e+01_rb, &\n     &1.0441e+01_rb,5.8743e+00_rb,1.3962e+00_rb/)\n      kao(:, 4,12,12) = (/ &\n     &3.6095e+01_rb,3.1568e+01_rb,2.7073e+01_rb,2.2830e+01_rb,1.8483e+01_rb,1.4754e+01_rb, &\n     &1.0446e+01_rb,6.0858e+00_rb,1.2630e+00_rb/)\n      kao(:, 5,12,12) = (/ &\n     &3.5605e+01_rb,3.1165e+01_rb,2.6709e+01_rb,2.2579e+01_rb,1.8648e+01_rb,1.4780e+01_rb, &\n     &1.0721e+01_rb,6.3554e+00_rb,1.9400e+00_rb/)\n      kao(:, 1,13,12) = (/ &\n     &3.6373e+01_rb,3.1828e+01_rb,2.7282e+01_rb,2.2746e+01_rb,1.8235e+01_rb,1.3858e+01_rb, &\n     &9.7116e+00_rb,5.3620e+00_rb,1.4114e+00_rb/)\n      kao(:, 2,13,12) = (/ &\n     &3.6095e+01_rb,3.1587e+01_rb,2.7062e+01_rb,2.2560e+01_rb,1.8254e+01_rb,1.3864e+01_rb, &\n     &1.0010e+01_rb,5.5792e+00_rb,1.4567e+00_rb/)\n      kao(:, 3,13,12) = (/ &\n     &3.5583e+01_rb,3.1140e+01_rb,2.6700e+01_rb,2.2381e+01_rb,1.8087e+01_rb,1.4135e+01_rb, &\n     &1.0160e+01_rb,5.8997e+00_rb,1.1528e+00_rb/)\n      kao(:, 4,13,12) = (/ &\n     &3.5474e+01_rb,3.1045e+01_rb,2.6613e+01_rb,2.2429e+01_rb,1.8206e+01_rb,1.4545e+01_rb, &\n     &1.0311e+01_rb,6.1832e+00_rb,1.6292e+00_rb/)\n      kao(:, 5,13,12) = (/ &\n     &3.5565e+01_rb,3.1124e+01_rb,2.6773e+01_rb,2.2531e+01_rb,1.8670e+01_rb,1.4802e+01_rb, &\n     &1.0686e+01_rb,6.5577e+00_rb,2.3163e+00_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &4.6813e-03_rb,5.0961e-01_rb,1.0176e+00_rb,1.5220e+00_rb,2.0224e+00_rb,2.5138e+00_rb, &\n     &2.9825e+00_rb,3.3723e+00_rb,4.0446e+00_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &4.5378e-03_rb,5.9150e-01_rb,1.1812e+00_rb,1.7694e+00_rb,2.3540e+00_rb,2.9329e+00_rb, &\n     &3.4999e+00_rb,3.9983e+00_rb,4.7077e+00_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &4.3993e-03_rb,6.8031e-01_rb,1.3585e+00_rb,2.0344e+00_rb,2.7071e+00_rb,3.3760e+00_rb, &\n     &4.0375e+00_rb,4.6330e+00_rb,5.4138e+00_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &4.2648e-03_rb,7.8088e-01_rb,1.5583e+00_rb,2.3313e+00_rb,3.0997e+00_rb,3.8593e+00_rb, &\n     &4.5971e+00_rb,5.2655e+00_rb,6.1991e+00_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &4.1347e-03_rb,8.9242e-01_rb,1.7790e+00_rb,2.6579e+00_rb,3.5250e+00_rb,4.3745e+00_rb, &\n     &5.1887e+00_rb,5.9002e+00_rb,7.0497e+00_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &7.6228e-03_rb,4.9032e-01_rb,9.7924e-01_rb,1.4667e+00_rb,1.9517e+00_rb,2.4315e+00_rb, &\n     &2.8986e+00_rb,3.3149e+00_rb,3.9031e+00_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &7.3845e-03_rb,5.7215e-01_rb,1.1423e+00_rb,1.7099e+00_rb,2.2735e+00_rb,2.8309e+00_rb, &\n     &3.3762e+00_rb,3.8853e+00_rb,4.5466e+00_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &7.1668e-03_rb,6.6400e-01_rb,1.3252e+00_rb,1.9825e+00_rb,2.6343e+00_rb,3.2753e+00_rb, &\n     &3.8969e+00_rb,4.4792e+00_rb,5.2681e+00_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &6.9674e-03_rb,7.6745e-01_rb,1.5306e+00_rb,2.2881e+00_rb,3.0362e+00_rb,3.7701e+00_rb, &\n     &4.4777e+00_rb,5.1450e+00_rb,6.0719e+00_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &6.7870e-03_rb,8.8445e-01_rb,1.7639e+00_rb,2.6357e+00_rb,3.4964e+00_rb,4.3377e+00_rb, &\n     &5.1390e+00_rb,5.8595e+00_rb,6.9924e+00_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &1.6838e-02_rb,4.6207e-01_rb,9.2280e-01_rb,1.3820e+00_rb,1.8387e+00_rb,2.2901e+00_rb, &\n     &2.7306e+00_rb,3.1427e+00_rb,3.6769e+00_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &1.6384e-02_rb,5.4636e-01_rb,1.0908e+00_rb,1.6331e+00_rb,2.1721e+00_rb,2.7041e+00_rb, &\n     &3.2216e+00_rb,3.6963e+00_rb,4.3436e+00_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &1.5944e-02_rb,6.4109e-01_rb,1.2798e+00_rb,1.9157e+00_rb,2.5468e+00_rb,3.1693e+00_rb, &\n     &3.7717e+00_rb,4.3145e+00_rb,5.0931e+00_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &1.5558e-02_rb,7.4877e-01_rb,1.4944e+00_rb,2.2360e+00_rb,2.9707e+00_rb,3.6929e+00_rb, &\n     &4.3862e+00_rb,5.0013e+00_rb,5.9409e+00_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &1.5161e-02_rb,8.6996e-01_rb,1.7361e+00_rb,2.5972e+00_rb,3.4498e+00_rb,4.2854e+00_rb, &\n     &5.0840e+00_rb,5.7719e+00_rb,6.8989e+00_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &3.7812e-02_rb,4.2471e-01_rb,8.4847e-01_rb,1.2717e+00_rb,1.6944e+00_rb,2.1155e+00_rb, &\n     &2.5337e+00_rb,2.9379e+00_rb,3.3881e+00_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &3.6812e-02_rb,5.1516e-01_rb,1.0290e+00_rb,1.5422e+00_rb,2.0538e+00_rb,2.5636e+00_rb, &\n     &3.0667e+00_rb,3.5462e+00_rb,4.1066e+00_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &3.5849e-02_rb,6.1666e-01_rb,1.2316e+00_rb,1.8451e+00_rb,2.4569e+00_rb,3.0640e+00_rb, &\n     &3.6618e+00_rb,4.2232e+00_rb,4.9129e+00_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &3.5079e-02_rb,7.3193e-01_rb,1.4618e+00_rb,2.1899e+00_rb,2.9146e+00_rb,3.6330e+00_rb, &\n     &4.3356e+00_rb,4.9789e+00_rb,5.8283e+00_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &3.4393e-02_rb,8.5645e-01_rb,1.7103e+00_rb,2.5622e+00_rb,3.4100e+00_rb,4.2503e+00_rb, &\n     &5.0712e+00_rb,5.8174e+00_rb,6.8190e+00_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &8.0627e-02_rb,3.8028e-01_rb,7.5923e-01_rb,1.1381e+00_rb,1.5165e+00_rb,1.8947e+00_rb, &\n     &2.2720e+00_rb,2.6453e+00_rb,3.0318e+00_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &7.8562e-02_rb,4.7262e-01_rb,9.4356e-01_rb,1.4144e+00_rb,1.8847e+00_rb,2.3543e+00_rb, &\n     &2.8214e+00_rb,3.2802e+00_rb,3.7680e+00_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &7.6982e-02_rb,5.7810e-01_rb,1.1544e+00_rb,1.7303e+00_rb,2.3053e+00_rb,2.8784e+00_rb, &\n     &3.4478e+00_rb,4.0008e+00_rb,4.6091e+00_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &7.5657e-02_rb,6.9735e-01_rb,1.3928e+00_rb,2.0875e+00_rb,2.7814e+00_rb,3.4728e+00_rb, &\n     &4.1587e+00_rb,4.8230e+00_rb,5.5613e+00_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &7.4333e-02_rb,8.2506e-01_rb,1.6482e+00_rb,2.4702e+00_rb,3.2916e+00_rb,4.1103e+00_rb, &\n     &4.9228e+00_rb,5.7104e+00_rb,6.5816e+00_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &1.6425e-01_rb,3.3608e-01_rb,6.6609e-01_rb,9.9817e-01_rb,1.3302e+00_rb,1.6619e+00_rb, &\n     &1.9931e+00_rb,2.3215e+00_rb,2.6587e+00_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &1.6074e-01_rb,4.2522e-01_rb,8.4831e-01_rb,1.2715e+00_rb,1.6941e+00_rb,2.1166e+00_rb, &\n     &2.5378e+00_rb,2.9543e+00_rb,3.3863e+00_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &1.5834e-01_rb,5.2989e-01_rb,1.0574e+00_rb,1.5848e+00_rb,2.1117e+00_rb,2.6382e+00_rb, &\n     &3.1634e+00_rb,3.6820e+00_rb,4.2213e+00_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &1.5607e-01_rb,6.4460e-01_rb,1.2868e+00_rb,1.9290e+00_rb,2.5707e+00_rb,3.2115e+00_rb, &\n     &3.8511e+00_rb,4.4833e+00_rb,5.1392e+00_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &1.5296e-01_rb,7.6868e-01_rb,1.5350e+00_rb,2.3008e+00_rb,3.0663e+00_rb,3.8313e+00_rb, &\n     &4.5942e+00_rb,5.3490e+00_rb,6.1304e+00_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &3.5667e-01_rb,3.9890e-01_rb,5.8897e-01_rb,8.6077e-01_rb,1.1469e+00_rb,1.4325e+00_rb, &\n     &1.7184e+00_rb,2.0036e+00_rb,2.2913e+00_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &3.5161e-01_rb,4.4967e-01_rb,7.5040e-01_rb,1.1221e+00_rb,1.4950e+00_rb,1.8682e+00_rb, &\n     &2.2405e+00_rb,2.6119e+00_rb,2.9872e+00_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &3.4606e-01_rb,5.1859e-01_rb,9.4635e-01_rb,1.4181e+00_rb,1.8897e+00_rb,2.3609e+00_rb, &\n     &2.8323e+00_rb,3.3018e+00_rb,3.7764e+00_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &3.3825e-01_rb,6.0265e-01_rb,1.1668e+00_rb,1.7485e+00_rb,2.3304e+00_rb,2.9114e+00_rb, &\n     &3.4925e+00_rb,4.0716e+00_rb,4.6575e+00_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &3.3043e-01_rb,7.1091e-01_rb,1.4088e+00_rb,2.1112e+00_rb,2.8136e+00_rb,3.5161e+00_rb, &\n     &4.2182e+00_rb,4.9170e+00_rb,5.6239e+00_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &9.2067e-01_rb,8.6182e-01_rb,8.2952e-01_rb,8.7491e-01_rb,1.0086e+00_rb,1.2181e+00_rb, &\n     &1.4607e+00_rb,1.7034e+00_rb,1.9462e+00_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &9.0671e-01_rb,8.7567e-01_rb,8.9610e-01_rb,1.0491e+00_rb,1.2996e+00_rb,1.6153e+00_rb, &\n     &1.9371e+00_rb,2.2592e+00_rb,2.5816e+00_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &8.8973e-01_rb,8.8439e-01_rb,1.0044e+00_rb,1.2766e+00_rb,1.6623e+00_rb,2.0766e+00_rb, &\n     &2.4910e+00_rb,2.9049e+00_rb,3.3193e+00_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &8.6846e-01_rb,9.1357e-01_rb,1.1469e+00_rb,1.5675e+00_rb,2.0797e+00_rb,2.5979e+00_rb, &\n     &3.1162e+00_rb,3.6352e+00_rb,4.1539e+00_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &8.4664e-01_rb,9.6627e-01_rb,1.3262e+00_rb,1.9064e+00_rb,2.5399e+00_rb,3.1734e+00_rb, &\n     &3.8073e+00_rb,4.4405e+00_rb,5.0740e+00_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &4.4067e+00_rb,3.8562e+00_rb,3.3799e+00_rb,2.9279e+00_rb,2.4898e+00_rb,2.0023e+00_rb, &\n     &1.6061e+00_rb,1.4556e+00_rb,5.3966e-01_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &4.3584e+00_rb,3.8431e+00_rb,3.3719e+00_rb,2.9985e+00_rb,2.5395e+00_rb,2.1329e+00_rb, &\n     &1.8824e+00_rb,1.9290e+00_rb,1.2534e+00_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &4.2715e+00_rb,3.7950e+00_rb,3.4185e+00_rb,3.0378e+00_rb,2.6388e+00_rb,2.3497e+00_rb, &\n     &2.2667e+00_rb,2.5092e+00_rb,2.3205e+00_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &4.1934e+00_rb,3.7482e+00_rb,3.4519e+00_rb,3.0862e+00_rb,2.7969e+00_rb,2.6493e+00_rb, &\n     &2.7789e+00_rb,3.1851e+00_rb,3.5246e+00_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &4.0917e+00_rb,3.7105e+00_rb,3.4634e+00_rb,3.1979e+00_rb,3.0093e+00_rb,3.0525e+00_rb, &\n     &3.4012e+00_rb,3.9555e+00_rb,4.5178e+00_rb/)\n      kao(:, 1,10,13) = (/ &\n     &2.3719e+01_rb,2.0753e+01_rb,1.7788e+01_rb,1.4825e+01_rb,1.1907e+01_rb,9.0621e+00_rb, &\n     &6.2541e+00_rb,3.4363e+00_rb,9.1814e-01_rb/)\n      kao(:, 2,10,13) = (/ &\n     &2.3432e+01_rb,2.0501e+01_rb,1.7571e+01_rb,1.4658e+01_rb,1.1890e+01_rb,9.0622e+00_rb, &\n     &6.4024e+00_rb,3.5910e+00_rb,1.1158e+00_rb/)\n      kao(:, 3,10,13) = (/ &\n     &2.3069e+01_rb,2.0187e+01_rb,1.7300e+01_rb,1.4541e+01_rb,1.1793e+01_rb,9.1570e+00_rb, &\n     &6.5099e+00_rb,3.8249e+00_rb,9.3188e-01_rb/)\n      kao(:, 4,10,13) = (/ &\n     &2.2641e+01_rb,1.9809e+01_rb,1.6998e+01_rb,1.4367e+01_rb,1.1776e+01_rb,9.2770e+00_rb, &\n     &6.6180e+00_rb,4.0885e+00_rb,9.9189e-01_rb/)\n      kao(:, 5,10,13) = (/ &\n     &2.2220e+01_rb,1.9436e+01_rb,1.6770e+01_rb,1.4187e+01_rb,1.1792e+01_rb,9.2910e+00_rb, &\n     &6.8771e+00_rb,4.4865e+00_rb,1.9399e+00_rb/)\n      kao(:, 1,11,13) = (/ &\n     &4.4319e+01_rb,3.8780e+01_rb,3.3240e+01_rb,2.7701e+01_rb,2.2160e+01_rb,1.6704e+01_rb, &\n     &1.1307e+01_rb,6.0563e+00_rb,5.8625e-01_rb/)\n      kao(:, 2,11,13) = (/ &\n     &4.3809e+01_rb,3.8330e+01_rb,3.2852e+01_rb,2.7376e+01_rb,2.1936e+01_rb,1.6626e+01_rb, &\n     &1.1378e+01_rb,6.1989e+00_rb,8.1730e-01_rb/)\n      kao(:, 3,11,13) = (/ &\n     &4.3202e+01_rb,3.7799e+01_rb,3.2400e+01_rb,2.7000e+01_rb,2.1788e+01_rb,1.6575e+01_rb, &\n     &1.1586e+01_rb,6.3577e+00_rb,1.8296e+00_rb/)\n      kao(:, 4,11,13) = (/ &\n     &4.2458e+01_rb,3.7147e+01_rb,3.1841e+01_rb,2.6621e+01_rb,2.1500e+01_rb,1.6577e+01_rb, &\n     &1.1663e+01_rb,6.6208e+00_rb,1.8735e+00_rb/)\n      kao(:, 5,11,13) = (/ &\n     &4.1634e+01_rb,3.6429e+01_rb,3.1221e+01_rb,2.6233e+01_rb,2.1246e+01_rb,1.6580e+01_rb, &\n     &1.1685e+01_rb,6.9092e+00_rb,1.7032e+00_rb/)\n      kao(:, 1,12,13) = (/ &\n     &6.1904e+01_rb,5.4167e+01_rb,4.6429e+01_rb,3.8690e+01_rb,3.0952e+01_rb,2.3248e+01_rb, &\n     &1.5661e+01_rb,8.2582e+00_rb,4.3930e-01_rb/)\n      kao(:, 2,12,13) = (/ &\n     &6.1270e+01_rb,5.3611e+01_rb,4.5953e+01_rb,3.8296e+01_rb,3.0637e+01_rb,2.3190e+01_rb, &\n     &1.5723e+01_rb,8.4338e+00_rb,1.2396e+00_rb/)\n      kao(:, 3,12,13) = (/ &\n     &6.0345e+01_rb,5.2802e+01_rb,4.5261e+01_rb,3.7714e+01_rb,3.0326e+01_rb,2.2898e+01_rb, &\n     &1.5824e+01_rb,8.5563e+00_rb,2.5106e+00_rb/)\n      kao(:, 4,12,13) = (/ &\n     &5.9306e+01_rb,5.1895e+01_rb,4.4474e+01_rb,3.7089e+01_rb,2.9895e+01_rb,2.2756e+01_rb, &\n     &1.5929e+01_rb,8.7873e+00_rb,2.2974e+00_rb/)\n      kao(:, 5,12,13) = (/ &\n     &5.8419e+01_rb,5.1111e+01_rb,4.3811e+01_rb,3.6683e+01_rb,2.9523e+01_rb,2.2821e+01_rb, &\n     &1.5911e+01_rb,9.0327e+00_rb,2.2973e+00_rb/)\n      kao(:, 1,13,13) = (/ &\n     &6.8544e+01_rb,5.9975e+01_rb,5.1408e+01_rb,4.2840e+01_rb,3.4272e+01_rb,2.5775e+01_rb, &\n     &1.7340e+01_rb,9.2235e+00_rb,4.0824e-01_rb/)\n      kao(:, 2,13,13) = (/ &\n     &6.7698e+01_rb,5.9233e+01_rb,5.0770e+01_rb,4.2312e+01_rb,3.3875e+01_rb,2.5602e+01_rb, &\n     &1.7402e+01_rb,9.3485e+00_rb,1.7747e+00_rb/)\n      kao(:, 3,13,13) = (/ &\n     &6.6803e+01_rb,5.8453e+01_rb,5.0103e+01_rb,4.1750e+01_rb,3.3601e+01_rb,2.5372e+01_rb, &\n     &1.7686e+01_rb,9.4660e+00_rb,2.9931e+00_rb/)\n      kao(:, 4,13,13) = (/ &\n     &6.5956e+01_rb,5.7706e+01_rb,4.9463e+01_rb,4.1288e+01_rb,3.3259e+01_rb,2.5336e+01_rb, &\n     &1.7750e+01_rb,9.7483e+00_rb,2.7732e+00_rb/)\n      kao(:, 5,13,13) = (/ &\n     &6.5110e+01_rb,5.6969e+01_rb,4.8829e+01_rb,4.0948e+01_rb,3.2989e+01_rb,2.5559e+01_rb, &\n     &1.7705e+01_rb,9.9706e+00_rb,2.2584e+00_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &5.3617e-03_rb,8.8862e-01_rb,1.7657e+00_rb,2.6246e+00_rb,3.4547e+00_rb,4.2326e+00_rb, &\n     &4.9022e+00_rb,5.2848e+00_rb,6.9093e+00_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &5.2510e-03_rb,1.0670e+00_rb,2.1191e+00_rb,3.1492e+00_rb,4.1423e+00_rb,5.0696e+00_rb, &\n     &5.8593e+00_rb,6.2778e+00_rb,8.2844e+00_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &5.1410e-03_rb,1.2574e+00_rb,2.4970e+00_rb,3.7095e+00_rb,4.8778e+00_rb,5.9654e+00_rb, &\n     &6.8831e+00_rb,7.3419e+00_rb,9.7553e+00_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &5.0266e-03_rb,1.4566e+00_rb,2.8932e+00_rb,4.2987e+00_rb,5.6515e+00_rb,6.9086e+00_rb, &\n     &7.9640e+00_rb,8.4651e+00_rb,1.1303e+01_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &4.9104e-03_rb,1.6562e+00_rb,3.2920e+00_rb,4.8956e+00_rb,6.4440e+00_rb,7.8868e+00_rb, &\n     &9.0871e+00_rb,9.6375e+00_rb,1.2888e+01_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &8.7449e-03_rb,9.0334e-01_rb,1.7988e+00_rb,2.6821e+00_rb,3.5450e+00_rb,4.3691e+00_rb, &\n     &5.1072e+00_rb,5.5794e+00_rb,7.0898e+00_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &8.5771e-03_rb,1.0973e+00_rb,2.1846e+00_rb,3.2569e+00_rb,4.3031e+00_rb,5.3011e+00_rb, &\n     &6.1907e+00_rb,6.7403e+00_rb,8.6059e+00_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &8.3757e-03_rb,1.3007e+00_rb,2.5910e+00_rb,3.8649e+00_rb,5.1100e+00_rb,6.3010e+00_rb, &\n     &7.3563e+00_rb,7.9915e+00_rb,1.0220e+01_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &8.1726e-03_rb,1.5076e+00_rb,3.0039e+00_rb,4.4835e+00_rb,5.9326e+00_rb,7.3236e+00_rb, &\n     &8.5740e+00_rb,9.3177e+00_rb,1.1865e+01_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &7.9706e-03_rb,1.7155e+00_rb,3.4194e+00_rb,5.1046e+00_rb,6.7592e+00_rb,8.3528e+00_rb, &\n     &9.7973e+00_rb,1.0700e+01_rb,1.3518e+01_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &1.9310e-02_rb,8.7468e-01_rb,1.7453e+00_rb,2.6103e+00_rb,3.4663e+00_rb,4.3037e+00_rb, &\n     &5.0955e+00_rb,5.7297e+00_rb,6.9321e+00_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &1.8969e-02_rb,1.0738e+00_rb,2.1432e+00_rb,3.2076e+00_rb,4.2608e+00_rb,5.2941e+00_rb, &\n     &6.2765e+00_rb,7.0620e+00_rb,8.5210e+00_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &1.8605e-02_rb,1.2813e+00_rb,2.5582e+00_rb,3.8286e+00_rb,5.0883e+00_rb,6.3262e+00_rb, &\n     &7.5114e+00_rb,8.4846e+00_rb,1.0176e+01_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &1.8213e-02_rb,1.4944e+00_rb,2.9835e+00_rb,4.4663e+00_rb,5.9372e+00_rb,7.3859e+00_rb, &\n     &8.7760e+00_rb,9.9435e+00_rb,1.1874e+01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &1.7876e-02_rb,1.7091e+00_rb,3.4131e+00_rb,5.1104e+00_rb,6.7954e+00_rb,8.4548e+00_rb, &\n     &1.0056e+01_rb,1.1421e+01_rb,1.3590e+01_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &4.4344e-02_rb,8.3370e-01_rb,1.6650e+00_rb,2.4941e+00_rb,3.3185e+00_rb,4.1344e+00_rb, &\n     &4.9297e+00_rb,5.6430e+00_rb,6.6364e+00_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &4.3566e-02_rb,1.0283e+00_rb,2.0545e+00_rb,3.0778e+00_rb,4.0971e+00_rb,5.1067e+00_rb, &\n     &6.0943e+00_rb,6.9950e+00_rb,8.1935e+00_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &4.2932e-02_rb,1.2330e+00_rb,2.4636e+00_rb,3.6915e+00_rb,4.9148e+00_rb,6.1292e+00_rb, &\n     &7.3214e+00_rb,8.4254e+00_rb,9.8287e+00_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &4.2251e-02_rb,1.4427e+00_rb,2.8831e+00_rb,4.3208e+00_rb,5.7549e+00_rb,7.1799e+00_rb, &\n     &8.5827e+00_rb,9.9037e+00_rb,1.1509e+01_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &4.1551e-02_rb,1.6617e+00_rb,3.3208e+00_rb,4.9772e+00_rb,6.6290e+00_rb,8.2714e+00_rb, &\n     &9.8934e+00_rb,1.1428e+01_rb,1.3257e+01_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &9.4754e-02_rb,7.8821e-01_rb,1.5748e+00_rb,2.3603e+00_rb,3.1437e+00_rb,3.9237e+00_rb, &\n     &4.6947e+00_rb,5.4302e+00_rb,6.2865e+00_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &9.3575e-02_rb,9.7845e-01_rb,1.9550e+00_rb,2.9310e+00_rb,3.9047e+00_rb,4.8748e+00_rb, &\n     &5.8356e+00_rb,6.7595e+00_rb,7.8084e+00_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &9.2188e-02_rb,1.1782e+00_rb,2.3547e+00_rb,3.5302e+00_rb,4.7038e+00_rb,5.8743e+00_rb, &\n     &7.0357e+00_rb,8.1610e+00_rb,9.4064e+00_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &9.0816e-02_rb,1.3863e+00_rb,2.7710e+00_rb,4.1546e+00_rb,5.5362e+00_rb,6.9136e+00_rb, &\n     &8.2813e+00_rb,9.6122e+00_rb,1.1071e+01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &8.9641e-02_rb,1.6059e+00_rb,3.2095e+00_rb,4.8121e+00_rb,6.4122e+00_rb,8.0077e+00_rb, &\n     &9.5924e+00_rb,1.1136e+01_rb,1.2823e+01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &1.9317e-01_rb,7.2809e-01_rb,1.4547e+00_rb,2.1811e+00_rb,2.9065e+00_rb,3.6305e+00_rb, &\n     &4.3507e+00_rb,5.0577e+00_rb,5.8117e+00_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &1.9031e-01_rb,9.0988e-01_rb,1.8182e+00_rb,2.7260e+00_rb,3.6329e+00_rb,4.5385e+00_rb, &\n     &5.4408e+00_rb,6.3293e+00_rb,7.2643e+00_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &1.8758e-01_rb,1.1038e+00_rb,2.2061e+00_rb,3.3074e+00_rb,4.4083e+00_rb,5.5073e+00_rb, &\n     &6.6028e+00_rb,7.6822e+00_rb,8.8149e+00_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &1.8516e-01_rb,1.3141e+00_rb,2.6258e+00_rb,3.9372e+00_rb,5.2485e+00_rb,6.5558e+00_rb, &\n     &7.8598e+00_rb,9.1449e+00_rb,1.0495e+01_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &1.8433e-01_rb,1.5378e+00_rb,3.0732e+00_rb,4.6078e+00_rb,6.1419e+00_rb,7.6735e+00_rb, &\n     &9.1990e+00_rb,1.0701e+01_rb,1.2282e+01_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &4.2545e-01_rb,7.0197e-01_rb,1.3229e+00_rb,1.9833e+00_rb,2.6434e+00_rb,3.3025e+00_rb, &\n     &3.9608e+00_rb,4.6133e+00_rb,5.2849e+00_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &4.1807e-01_rb,8.4884e-01_rb,1.6721e+00_rb,2.5066e+00_rb,3.3410e+00_rb,4.1750e+00_rb, &\n     &5.0067e+00_rb,5.8326e+00_rb,6.6798e+00_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &4.1332e-01_rb,1.0301e+00_rb,2.0577e+00_rb,3.0848e+00_rb,4.1118e+00_rb,5.1378e+00_rb, &\n     &6.1618e+00_rb,7.1777e+00_rb,8.2211e+00_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &4.0936e-01_rb,1.2414e+00_rb,2.4798e+00_rb,3.7180e+00_rb,4.9556e+00_rb,6.1921e+00_rb, &\n     &7.4267e+00_rb,8.6520e+00_rb,9.9083e+00_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &4.0685e-01_rb,1.4675e+00_rb,2.9318e+00_rb,4.3961e+00_rb,5.8593e+00_rb,7.3214e+00_rb, &\n     &8.7804e+00_rb,1.0230e+01_rb,1.1715e+01_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &1.1195e+00_rb,1.0895e+00_rb,1.3598e+00_rb,1.7846e+00_rb,2.3466e+00_rb,2.9325e+00_rb, &\n     &3.5182e+00_rb,4.1012e+00_rb,4.6898e+00_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &1.1037e+00_rb,1.1788e+00_rb,1.6176e+00_rb,2.2927e+00_rb,3.0553e+00_rb,3.8181e+00_rb, &\n     &4.5804e+00_rb,5.3406e+00_rb,6.1069e+00_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &1.0884e+00_rb,1.2851e+00_rb,1.9342e+00_rb,2.8650e+00_rb,3.8186e+00_rb,4.7719e+00_rb, &\n     &5.7236e+00_rb,6.6739e+00_rb,7.6330e+00_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &1.0777e+00_rb,1.3879e+00_rb,2.3316e+00_rb,3.4927e+00_rb,4.6551e+00_rb,5.8169e+00_rb, &\n     &6.9783e+00_rb,8.1364e+00_rb,9.3055e+00_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &1.0697e+00_rb,1.5195e+00_rb,2.7843e+00_rb,4.1737e+00_rb,5.5632e+00_rb,6.9521e+00_rb, &\n     &8.3391e+00_rb,9.7222e+00_rb,1.1121e+01_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &5.6190e+00_rb,4.9167e+00_rb,4.3250e+00_rb,3.7358e+00_rb,3.4047e+00_rb,3.1579e+00_rb, &\n     &3.1500e+00_rb,3.5459e+00_rb,3.9362e+00_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &5.5255e+00_rb,4.8418e+00_rb,4.3146e+00_rb,3.9154e+00_rb,3.7623e+00_rb,3.7282e+00_rb, &\n     &4.0980e+00_rb,4.7612e+00_rb,5.4406e+00_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &5.4430e+00_rb,4.8357e+00_rb,4.3573e+00_rb,4.2040e+00_rb,4.1594e+00_rb,4.5007e+00_rb, &\n     &5.2453e+00_rb,6.1166e+00_rb,6.9893e+00_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &5.3842e+00_rb,4.8388e+00_rb,4.5334e+00_rb,4.4707e+00_rb,4.7073e+00_rb,5.4536e+00_rb, &\n     &6.5005e+00_rb,7.5810e+00_rb,8.6617e+00_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &5.3385e+00_rb,4.8392e+00_rb,4.7032e+00_rb,4.7787e+00_rb,5.4197e+00_rb,6.5502e+00_rb, &\n     &7.8564e+00_rb,9.1615e+00_rb,1.0470e+01_rb/)\n      kao(:, 1,10,14) = (/ &\n     &3.1503e+01_rb,2.7564e+01_rb,2.3627e+01_rb,1.9689e+01_rb,1.5752e+01_rb,1.2029e+01_rb, &\n     &8.2850e+00_rb,5.0089e+00_rb,2.6421e-01_rb/)\n      kao(:, 2,10,14) = (/ &\n     &3.1041e+01_rb,2.7162e+01_rb,2.3282e+01_rb,1.9402e+01_rb,1.5696e+01_rb,1.2052e+01_rb, &\n     &8.5363e+00_rb,5.5767e+00_rb,1.2004e+00_rb/)\n      kao(:, 3,10,14) = (/ &\n     &3.0653e+01_rb,2.6822e+01_rb,2.2991e+01_rb,1.9210e+01_rb,1.5684e+01_rb,1.2101e+01_rb, &\n     &9.0343e+00_rb,6.3229e+00_rb,1.6811e+00_rb/)\n      kao(:, 4,10,14) = (/ &\n     &3.0330e+01_rb,2.6541e+01_rb,2.2749e+01_rb,1.9185e+01_rb,1.5678e+01_rb,1.2425e+01_rb, &\n     &9.5207e+00_rb,7.4497e+00_rb,1.5881e+00_rb/)\n      kao(:, 5,10,14) = (/ &\n     &2.9986e+01_rb,2.6238e+01_rb,2.2506e+01_rb,1.9078e+01_rb,1.5796e+01_rb,1.2833e+01_rb, &\n     &1.0036e+01_rb,8.8467e+00_rb,2.8996e+00_rb/)\n      kao(:, 1,11,14) = (/ &\n     &6.1029e+01_rb,5.3402e+01_rb,4.5771e+01_rb,3.8145e+01_rb,3.0515e+01_rb,2.2887e+01_rb, &\n     &1.5544e+01_rb,8.4710e+00_rb,5.1903e-01_rb/)\n      kao(:, 2,11,14) = (/ &\n     &6.0319e+01_rb,5.2777e+01_rb,4.5238e+01_rb,3.7700e+01_rb,3.0160e+01_rb,2.2857e+01_rb, &\n     &1.5622e+01_rb,8.8835e+00_rb,1.0450e+00_rb/)\n      kao(:, 3,11,14) = (/ &\n     &5.9632e+01_rb,5.2177e+01_rb,4.4723e+01_rb,3.7270e+01_rb,2.9909e+01_rb,2.2818e+01_rb, &\n     &1.5829e+01_rb,9.3768e+00_rb,1.3014e+00_rb/)\n      kao(:, 4,11,14) = (/ &\n     &5.9020e+01_rb,5.1642e+01_rb,4.4266e+01_rb,3.6888e+01_rb,2.9847e+01_rb,2.2764e+01_rb, &\n     &1.6262e+01_rb,9.9702e+00_rb,2.2647e+00_rb/)\n      kao(:, 5,11,14) = (/ &\n     &5.8283e+01_rb,5.0998e+01_rb,4.3714e+01_rb,3.6531e+01_rb,2.9620e+01_rb,2.3044e+01_rb, &\n     &1.6667e+01_rb,1.0858e+01_rb,2.1604e+00_rb/)\n      kao(:, 1,12,14) = (/ &\n     &8.6818e+01_rb,7.5961e+01_rb,6.5105e+01_rb,5.4264e+01_rb,4.3410e+01_rb,3.2557e+01_rb, &\n     &2.1958e+01_rb,1.1756e+01_rb,1.0818e+00_rb/)\n      kao(:, 2,12,14) = (/ &\n     &8.5898e+01_rb,7.5160e+01_rb,6.4423e+01_rb,5.3685e+01_rb,4.2947e+01_rb,3.2329e+01_rb, &\n     &2.1951e+01_rb,1.2183e+01_rb,6.2703e-01_rb/)\n      kao(:, 3,12,14) = (/ &\n     &8.4970e+01_rb,7.4354e+01_rb,6.3731e+01_rb,5.3109e+01_rb,4.2485e+01_rb,3.2310e+01_rb, &\n     &2.2149e+01_rb,1.2602e+01_rb,1.0531e+00_rb/)\n      kao(:, 4,12,14) = (/ &\n     &8.4043e+01_rb,7.3537e+01_rb,6.3034e+01_rb,5.2533e+01_rb,4.2288e+01_rb,3.2140e+01_rb, &\n     &2.2696e+01_rb,1.3012e+01_rb,4.3852e+00_rb/)\n      kao(:, 5,12,14) = (/ &\n     &8.3130e+01_rb,7.2745e+01_rb,6.2351e+01_rb,5.1964e+01_rb,4.2084e+01_rb,3.2159e+01_rb, &\n     &2.3067e+01_rb,1.3670e+01_rb,3.1697e+00_rb/)\n      kao(:, 1,13,14) = (/ &\n     &9.9062e+01_rb,8.6679e+01_rb,7.4295e+01_rb,6.1914e+01_rb,4.9531e+01_rb,3.7148e+01_rb, &\n     &2.5053e+01_rb,1.3336e+01_rb,1.0355e+00_rb/)\n      kao(:, 2,13,14) = (/ &\n     &9.8005e+01_rb,8.5755e+01_rb,7.3503e+01_rb,6.1254e+01_rb,4.9004e+01_rb,3.6913e+01_rb, &\n     &2.4991e+01_rb,1.3937e+01_rb,6.5467e-01_rb/)\n      kao(:, 3,13,14) = (/ &\n     &9.6910e+01_rb,8.4797e+01_rb,7.2683e+01_rb,6.0573e+01_rb,4.8483e+01_rb,3.6814e+01_rb, &\n     &2.5110e+01_rb,1.4339e+01_rb,1.8215e+00_rb/)\n      kao(:, 4,13,14) = (/ &\n     &9.5837e+01_rb,8.3857e+01_rb,7.1882e+01_rb,5.9896e+01_rb,4.8229e+01_rb,3.6584e+01_rb, &\n     &2.5752e+01_rb,1.4680e+01_rb,4.3881e+00_rb/)\n      kao(:, 5,13,14) = (/ &\n     &9.4386e+01_rb,8.2585e+01_rb,7.0788e+01_rb,5.9024e+01_rb,4.7765e+01_rb,3.6452e+01_rb, &\n     &2.6308e+01_rb,1.5330e+01_rb,4.3734e+00_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &6.2662e-03_rb,2.0747e+00_rb,4.1170e+00_rb,6.1089e+00_rb,8.0146e+00_rb,9.7584e+00_rb, &\n     &1.1145e+01_rb,1.1422e+01_rb,1.6029e+01_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &6.1351e-03_rb,2.4271e+00_rb,4.8178e+00_rb,7.1504e+00_rb,9.3877e+00_rb,1.1443e+01_rb, &\n     &1.3088e+01_rb,1.3461e+01_rb,1.8775e+01_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &6.0097e-03_rb,2.7826e+00_rb,5.5248e+00_rb,8.2041e+00_rb,1.0775e+01_rb,1.3145e+01_rb, &\n     &1.5060e+01_rb,1.5543e+01_rb,2.1551e+01_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &5.9020e-03_rb,3.1403e+00_rb,6.2337e+00_rb,9.2578e+00_rb,1.2161e+01_rb,1.4850e+01_rb, &\n     &1.7039e+01_rb,1.7642e+01_rb,2.4321e+01_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &5.8030e-03_rb,3.5098e+00_rb,6.9636e+00_rb,1.0331e+01_rb,1.3560e+01_rb,1.6533e+01_rb, &\n     &1.8991e+01_rb,1.9724e+01_rb,2.7120e+01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &1.0266e-02_rb,2.1405e+00_rb,4.2622e+00_rb,6.3547e+00_rb,8.3970e+00_rb,1.0344e+01_rb, &\n     &1.2064e+01_rb,1.2985e+01_rb,1.6794e+01_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &1.0014e-02_rb,2.5163e+00_rb,5.0119e+00_rb,7.4752e+00_rb,9.8815e+00_rb,1.2172e+01_rb, &\n     &1.4218e+01_rb,1.5356e+01_rb,1.9763e+01_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &9.8638e-03_rb,2.9079e+00_rb,5.7890e+00_rb,8.6292e+00_rb,1.1401e+01_rb,1.4046e+01_rb, &\n     &1.6408e+01_rb,1.7772e+01_rb,2.2802e+01_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &9.7234e-03_rb,3.3191e+00_rb,6.6057e+00_rb,9.8408e+00_rb,1.2995e+01_rb,1.5989e+01_rb, &\n     &1.8633e+01_rb,2.0195e+01_rb,2.5989e+01_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &9.5893e-03_rb,3.7435e+00_rb,7.4476e+00_rb,1.1096e+01_rb,1.4644e+01_rb,1.8006e+01_rb, &\n     &2.0946e+01_rb,2.2600e+01_rb,2.9288e+01_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &2.3937e-02_rb,2.0884e+00_rb,4.1689e+00_rb,6.2403e+00_rb,8.2897e+00_rb,1.0301e+01_rb, &\n     &1.2219e+01_rb,1.3769e+01_rb,1.6579e+01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &2.3289e-02_rb,2.4959e+00_rb,4.9798e+00_rb,7.4513e+00_rb,9.8967e+00_rb,1.2286e+01_rb, &\n     &1.4557e+01_rb,1.6412e+01_rb,1.9793e+01_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &2.2745e-02_rb,2.9294e+00_rb,5.8465e+00_rb,8.7448e+00_rb,1.1610e+01_rb,1.4408e+01_rb, &\n     &1.7054e+01_rb,1.9158e+01_rb,2.3219e+01_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &2.2330e-02_rb,3.3848e+00_rb,6.7550e+00_rb,1.0101e+01_rb,1.3409e+01_rb,1.6637e+01_rb, &\n     &1.9679e+01_rb,2.2057e+01_rb,2.6817e+01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &2.1962e-02_rb,3.8549e+00_rb,7.6925e+00_rb,1.1504e+01_rb,1.5265e+01_rb,1.8935e+01_rb, &\n     &2.2399e+01_rb,2.5067e+01_rb,3.0529e+01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &5.8511e-02_rb,1.9940e+00_rb,3.9844e+00_rb,5.9687e+00_rb,7.9437e+00_rb,9.9016e+00_rb, &\n     &1.1811e+01_rb,1.3553e+01_rb,1.5887e+01_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &5.6982e-02_rb,2.4233e+00_rb,4.8420e+00_rb,7.2530e+00_rb,9.6512e+00_rb,1.2029e+01_rb, &\n     &1.4341e+01_rb,1.6438e+01_rb,1.9302e+01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &5.5673e-02_rb,2.8886e+00_rb,5.7711e+00_rb,8.6444e+00_rb,1.1501e+01_rb,1.4329e+01_rb, &\n     &1.7084e+01_rb,1.9562e+01_rb,2.3002e+01_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &5.4580e-02_rb,3.3869e+00_rb,6.7661e+00_rb,1.0134e+01_rb,1.3482e+01_rb,1.6795e+01_rb, &\n     &2.0015e+01_rb,2.2895e+01_rb,2.6964e+01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &5.3615e-02_rb,3.9077e+00_rb,7.8058e+00_rb,1.1691e+01_rb,1.5555e+01_rb,1.9373e+01_rb, &\n     &2.3083e+01_rb,2.6384e+01_rb,3.1109e+01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &1.2989e-01_rb,1.8900e+00_rb,3.7783e+00_rb,5.6637e+00_rb,7.5463e+00_rb,9.4177e+00_rb, &\n     &1.1267e+01_rb,1.3028e+01_rb,1.5093e+01_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &1.2665e-01_rb,2.3422e+00_rb,4.6829e+00_rb,7.0179e+00_rb,9.3476e+00_rb,1.1662e+01_rb, &\n     &1.3953e+01_rb,1.6125e+01_rb,1.8695e+01_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &1.2397e-01_rb,2.8405e+00_rb,5.6772e+00_rb,8.5098e+00_rb,1.1334e+01_rb,1.4142e+01_rb, &\n     &1.6912e+01_rb,1.9527e+01_rb,2.2668e+01_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &1.2164e-01_rb,3.3767e+00_rb,6.7490e+00_rb,1.0116e+01_rb,1.3472e+01_rb,1.6807e+01_rb, &\n     &2.0097e+01_rb,2.3197e+01_rb,2.6943e+01_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &1.1945e-01_rb,3.9432e+00_rb,7.8814e+00_rb,1.1812e+01_rb,1.5732e+01_rb,1.9624e+01_rb, &\n     &2.3463e+01_rb,2.7077e+01_rb,3.1463e+01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &2.7269e-01_rb,1.7592e+00_rb,3.5166e+00_rb,5.2733e+00_rb,7.0272e+00_rb,8.7771e+00_rb, &\n     &1.0515e+01_rb,1.2209e+01_rb,1.4054e+01_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &2.6586e-01_rb,2.2331e+00_rb,4.4644e+00_rb,6.6948e+00_rb,8.9210e+00_rb,1.1141e+01_rb, &\n     &1.3343e+01_rb,1.5486e+01_rb,1.7841e+01_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &2.5987e-01_rb,2.7625e+00_rb,5.5224e+00_rb,8.2799e+00_rb,1.1033e+01_rb,1.3778e+01_rb, &\n     &1.6504e+01_rb,1.9146e+01_rb,2.2064e+01_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &2.5470e-01_rb,3.3380e+00_rb,6.6713e+00_rb,1.0004e+01_rb,1.3331e+01_rb,1.6646e+01_rb, &\n     &1.9934e+01_rb,2.3121e+01_rb,2.6661e+01_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &2.4980e-01_rb,3.9509e+00_rb,7.8982e+00_rb,1.1841e+01_rb,1.5778e+01_rb,1.9702e+01_rb, &\n     &2.3595e+01_rb,2.7362e+01_rb,3.1554e+01_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &6.0751e-01_rb,1.6155e+00_rb,3.2295e+00_rb,4.8433e+00_rb,6.4556e+00_rb,8.0666e+00_rb, &\n     &9.6721e+00_rb,1.1255e+01_rb,1.2910e+01_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &5.9214e-01_rb,2.1056e+00_rb,4.2107e+00_rb,6.3119e+00_rb,8.4131e+00_rb,1.0511e+01_rb, &\n     &1.2602e+01_rb,1.4667e+01_rb,1.6825e+01_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &5.7904e-01_rb,2.6613e+00_rb,5.3198e+00_rb,7.9772e+00_rb,1.0632e+01_rb,1.3285e+01_rb, &\n     &1.5925e+01_rb,1.8528e+01_rb,2.1262e+01_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &5.6819e-01_rb,3.2710e+00_rb,6.5412e+00_rb,9.8097e+00_rb,1.3074e+01_rb,1.6330e+01_rb, &\n     &1.9581e+01_rb,2.2775e+01_rb,2.6146e+01_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &5.5940e-01_rb,3.9287e+00_rb,7.8537e+00_rb,1.1777e+01_rb,1.5697e+01_rb,1.9610e+01_rb, &\n     &2.3510e+01_rb,2.7346e+01_rb,3.1392e+01_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &1.5944e+00_rb,1.8253e+00_rb,2.9741e+00_rb,4.4602e+00_rb,5.9464e+00_rb,7.4314e+00_rb, &\n     &8.9145e+00_rb,1.0387e+01_rb,1.1892e+01_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &1.5557e+00_rb,2.1022e+00_rb,3.9278e+00_rb,5.8889e+00_rb,7.8512e+00_rb,9.8106e+00_rb, &\n     &1.1770e+01_rb,1.3716e+01_rb,1.5700e+01_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &1.5271e+00_rb,2.5583e+00_rb,5.0719e+00_rb,7.6057e+00_rb,1.0139e+01_rb,1.2670e+01_rb, &\n     &1.5200e+01_rb,1.7713e+01_rb,2.0275e+01_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &1.5040e+00_rb,3.1773e+00_rb,6.3513e+00_rb,9.5214e+00_rb,1.2692e+01_rb,1.5861e+01_rb, &\n     &1.9025e+01_rb,2.2168e+01_rb,2.5379e+01_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &1.4829e+00_rb,3.8723e+00_rb,7.7385e+00_rb,1.1605e+01_rb,1.5469e+01_rb,1.9331e+01_rb, &\n     &2.3189e+01_rb,2.7019e+01_rb,3.0932e+01_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &7.9603e+00_rb,6.9650e+00_rb,6.1670e+00_rb,5.9409e+00_rb,5.9163e+00_rb,6.8445e+00_rb, &\n     &8.2104e+00_rb,9.5758e+00_rb,1.0949e+01_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &7.7491e+00_rb,6.7807e+00_rb,6.5143e+00_rb,6.5222e+00_rb,7.4209e+00_rb,9.1698e+00_rb, &\n     &1.1001e+01_rb,1.2830e+01_rb,1.4668e+01_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &7.6260e+00_rb,6.7058e+00_rb,6.8127e+00_rb,7.5772e+00_rb,9.5702e+00_rb,1.1961e+01_rb, &\n     &1.4350e+01_rb,1.6735e+01_rb,1.9129e+01_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &7.5222e+00_rb,6.8189e+00_rb,7.2464e+00_rb,9.2266e+00_rb,1.2156e+01_rb,1.5192e+01_rb, &\n     &1.8221e+01_rb,2.1251e+01_rb,2.4297e+01_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &7.4213e+00_rb,6.9850e+00_rb,8.1141e+00_rb,1.1288e+01_rb,1.5041e+01_rb,1.8797e+01_rb, &\n     &2.2550e+01_rb,2.6298e+01_rb,3.0063e+01_rb/)\n      kao(:, 1,10,15) = (/ &\n     &4.4970e+01_rb,3.9351e+01_rb,3.3728e+01_rb,2.8106e+01_rb,2.2484e+01_rb,1.7001e+01_rb, &\n     &1.2662e+01_rb,9.3833e+00_rb,3.0844e+00_rb/)\n      kao(:, 2,10,15) = (/ &\n     &4.3703e+01_rb,3.8241e+01_rb,3.2779e+01_rb,2.7313e+01_rb,2.1862e+01_rb,1.7553e+01_rb, &\n     &1.3621e+01_rb,1.2273e+01_rb,6.8989e+00_rb/)\n      kao(:, 3,10,15) = (/ &\n     &4.2828e+01_rb,3.7472e+01_rb,3.2122e+01_rb,2.6765e+01_rb,2.2087e+01_rb,1.8341e+01_rb, &\n     &1.5372e+01_rb,1.6156e+01_rb,1.4584e+01_rb/)\n      kao(:, 4,10,15) = (/ &\n     &4.2192e+01_rb,3.6921e+01_rb,3.1646e+01_rb,2.6524e+01_rb,2.2776e+01_rb,1.9260e+01_rb, &\n     &1.8346e+01_rb,2.0694e+01_rb,2.3643e+01_rb/)\n      kao(:, 5,10,15) = (/ &\n     &4.1609e+01_rb,3.6411e+01_rb,3.1210e+01_rb,2.6835e+01_rb,2.3359e+01_rb,2.1143e+01_rb, &\n     &2.2256e+01_rb,2.5773e+01_rb,2.9447e+01_rb/)\n      kao(:, 1,11,15) = (/ &\n     &8.7878e+01_rb,7.6892e+01_rb,6.5913e+01_rb,5.4929e+01_rb,4.3942e+01_rb,3.2958e+01_rb, &\n     &2.2278e+01_rb,1.3146e+01_rb,1.2934e+00_rb/)\n      kao(:, 2,11,15) = (/ &\n     &8.5528e+01_rb,7.4837e+01_rb,6.4148e+01_rb,5.3454e+01_rb,4.2765e+01_rb,3.2087e+01_rb, &\n     &2.2860e+01_rb,1.5064e+01_rb,9.2095e-01_rb/)\n      kao(:, 3,11,15) = (/ &\n     &8.3842e+01_rb,7.3371e+01_rb,6.2884e+01_rb,5.2405e+01_rb,4.1923e+01_rb,3.2241e+01_rb, &\n     &2.3615e+01_rb,1.8250e+01_rb,5.0549e+00_rb/)\n      kao(:, 4,11,15) = (/ &\n     &8.2422e+01_rb,7.2123e+01_rb,6.1819e+01_rb,5.1515e+01_rb,4.1404e+01_rb,3.2935e+01_rb, &\n     &2.5033e+01_rb,2.2612e+01_rb,1.1342e+01_rb/)\n      kao(:, 5,11,15) = (/ &\n     &8.1155e+01_rb,7.1009e+01_rb,6.0866e+01_rb,5.0722e+01_rb,4.1664e+01_rb,3.3361e+01_rb, &\n     &2.7672e+01_rb,2.7836e+01_rb,2.1588e+01_rb/)\n      kao(:, 1,12,15) = (/ &\n     &1.2764e+02_rb,1.1168e+02_rb,9.5717e+01_rb,7.9766e+01_rb,6.3821e+01_rb,4.7862e+01_rb, &\n     &3.1927e+01_rb,1.7517e+01_rb,5.0733e-04_rb/)\n      kao(:, 2,12,15) = (/ &\n     &1.2458e+02_rb,1.0901e+02_rb,9.3437e+01_rb,7.7867e+01_rb,6.2287e+01_rb,4.6718e+01_rb, &\n     &3.2041e+01_rb,1.8889e+01_rb,1.2295e+00_rb/)\n      kao(:, 3,12,15) = (/ &\n     &1.2214e+02_rb,1.0687e+02_rb,9.1606e+01_rb,7.6332e+01_rb,6.1069e+01_rb,4.6041e+01_rb, &\n     &3.2605e+01_rb,2.1597e+01_rb,1.0764e+00_rb/)\n      kao(:, 4,12,15) = (/ &\n     &1.1993e+02_rb,1.0494e+02_rb,8.9942e+01_rb,7.4954e+01_rb,5.9961e+01_rb,4.6289e+01_rb, &\n     &3.3082e+01_rb,2.5581e+01_rb,1.5268e+00_rb/)\n      kao(:, 5,12,15) = (/ &\n     &1.1793e+02_rb,1.0318e+02_rb,8.8443e+01_rb,7.3700e+01_rb,5.9323e+01_rb,4.6666e+01_rb, &\n     &3.5017e+01_rb,3.0597e+01_rb,1.3997e+01_rb/)\n      kao(:, 1,13,15) = (/ &\n     &1.4863e+02_rb,1.3005e+02_rb,1.1147e+02_rb,9.2892e+01_rb,7.4315e+01_rb,5.5737e+01_rb, &\n     &3.7199e+01_rb,2.0080e+01_rb,6.4806e-01_rb/)\n      kao(:, 2,13,15) = (/ &\n     &1.4520e+02_rb,1.2704e+02_rb,1.0889e+02_rb,9.0753e+01_rb,7.2597e+01_rb,5.4452e+01_rb, &\n     &3.7281e+01_rb,2.1314e+01_rb,1.2348e+00_rb/)\n      kao(:, 3,13,15) = (/ &\n     &1.4229e+02_rb,1.2450e+02_rb,1.0672e+02_rb,8.8931e+01_rb,7.1150e+01_rb,5.3675e+01_rb, &\n     &3.7660e+01_rb,2.4186e+01_rb,1.1194e+00_rb/)\n      kao(:, 4,13,15) = (/ &\n     &1.3965e+02_rb,1.2219e+02_rb,1.0474e+02_rb,8.7285e+01_rb,6.9825e+01_rb,5.3800e+01_rb, &\n     &3.7958e+01_rb,2.8295e+01_rb,2.6393e+00_rb/)\n      kao(:, 5,13,15) = (/ &\n     &1.3732e+02_rb,1.2017e+02_rb,1.0299e+02_rb,8.5829e+01_rb,6.9074e+01_rb,5.3874e+01_rb, &\n     &3.9693e+01_rb,3.3322e+01_rb,1.2822e+01_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &6.7483e-03_rb,2.7477e+00_rb,5.4216e+00_rb,7.9838e+00_rb,1.0362e+01_rb,1.2414e+01_rb, &\n     &1.3792e+01_rb,1.3364e+01_rb,2.0724e+01_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &6.6276e-03_rb,3.2705e+00_rb,6.4539e+00_rb,9.5049e+00_rb,1.2338e+01_rb,1.4784e+01_rb, &\n     &1.6428e+01_rb,1.5929e+01_rb,2.4675e+01_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &6.5036e-03_rb,3.8140e+00_rb,7.5283e+00_rb,1.1085e+01_rb,1.4395e+01_rb,1.7249e+01_rb, &\n     &1.9172e+01_rb,1.8603e+01_rb,2.8790e+01_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &6.3721e-03_rb,4.3730e+00_rb,8.6292e+00_rb,1.2711e+01_rb,1.6503e+01_rb,1.9784e+01_rb, &\n     &2.1993e+01_rb,2.1351e+01_rb,3.3006e+01_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &6.2363e-03_rb,4.9396e+00_rb,9.7465e+00_rb,1.4357e+01_rb,1.8648e+01_rb,2.2353e+01_rb, &\n     &2.4860e+01_rb,2.4146e+01_rb,3.7295e+01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &1.1399e-02_rb,3.0700e+00_rb,6.0865e+00_rb,9.0222e+00_rb,1.1819e+01_rb,1.4357e+01_rb, &\n     &1.6335e+01_rb,1.6615e+01_rb,2.3637e+01_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &1.1191e-02_rb,3.6855e+00_rb,7.3071e+00_rb,1.0831e+01_rb,1.4189e+01_rb,1.7243e+01_rb, &\n     &1.9624e+01_rb,1.9971e+01_rb,2.8378e+01_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &1.0967e-02_rb,4.3287e+00_rb,8.5840e+00_rb,1.2722e+01_rb,1.6670e+01_rb,2.0258e+01_rb, &\n     &2.3062e+01_rb,2.3488e+01_rb,3.3340e+01_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &1.0738e-02_rb,4.9902e+00_rb,9.8948e+00_rb,1.4671e+01_rb,1.9224e+01_rb,2.3370e+01_rb, &\n     &2.6613e+01_rb,2.7035e+01_rb,3.8446e+01_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &1.0463e-02_rb,5.6638e+00_rb,1.1230e+01_rb,1.6648e+01_rb,2.1823e+01_rb,2.6530e+01_rb, &\n     &3.0222e+01_rb,3.0819e+01_rb,4.3644e+01_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &2.6306e-02_rb,3.2694e+00_rb,6.5125e+00_rb,9.7138e+00_rb,1.2840e+01_rb,1.5828e+01_rb, &\n     &1.8484e+01_rb,2.0009e+01_rb,2.5680e+01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &2.5884e-02_rb,3.9785e+00_rb,7.9277e+00_rb,1.1819e+01_rb,1.5631e+01_rb,1.9201e+01_rb, &\n     &2.2505e+01_rb,2.4372e+01_rb,3.1262e+01_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &2.5346e-02_rb,4.7273e+00_rb,9.4145e+00_rb,1.4042e+01_rb,1.8571e+01_rb,2.2894e+01_rb, &\n     &2.6751e+01_rb,2.8974e+01_rb,3.7022e+01_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &2.4784e-02_rb,5.5013e+00_rb,1.0958e+01_rb,1.6345e+01_rb,2.1611e+01_rb,2.6651e+01_rb, &\n     &3.1147e+01_rb,3.3763e+01_rb,4.3221e+01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &2.4200e-02_rb,6.2942e+00_rb,1.2535e+01_rb,1.8701e+01_rb,2.4733e+01_rb,3.0502e+01_rb, &\n     &3.5641e+01_rb,3.8658e+01_rb,4.9465e+01_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &6.3011e-02_rb,3.3909e+00_rb,6.7686e+00_rb,1.0126e+01_rb,1.3449e+01_rb,1.6701e+01_rb, &\n     &1.9789e+01_rb,2.2242e+01_rb,2.6898e+01_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &6.1738e-02_rb,4.1953e+00_rb,8.3750e+00_rb,1.2529e+01_rb,1.6640e+01_rb,2.0669e+01_rb, &\n     &2.4483e+01_rb,2.7534e+01_rb,3.3280e+01_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &6.0385e-02_rb,5.0522e+00_rb,1.0085e+01_rb,1.5088e+01_rb,2.0041e+01_rb,2.4891e+01_rb, &\n     &2.9498e+01_rb,3.3182e+01_rb,4.0082e+01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &5.8960e-02_rb,5.9475e+00_rb,1.1873e+01_rb,1.7764e+01_rb,2.3588e+01_rb,2.9299e+01_rb, &\n     &3.4723e+01_rb,3.9079e+01_rb,4.7175e+01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &5.7513e-02_rb,6.8674e+00_rb,1.3704e+01_rb,2.0508e+01_rb,2.7243e+01_rb,3.3832e+01_rb, &\n     &4.0104e+01_rb,4.5142e+01_rb,5.4486e+01_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &1.5311e-01_rb,3.4647e+00_rb,6.9218e+00_rb,1.0370e+01_rb,1.3799e+01_rb,1.7194e+01_rb, &\n     &2.0501e+01_rb,2.3473e+01_rb,2.7599e+01_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &1.4808e-01_rb,4.3642e+00_rb,8.7211e+00_rb,1.3066e+01_rb,1.7386e+01_rb,2.1656e+01_rb, &\n     &2.5836e+01_rb,2.9576e+01_rb,3.4772e+01_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &1.4324e-01_rb,5.3326e+00_rb,1.0656e+01_rb,1.5962e+01_rb,2.1244e+01_rb,2.6472e+01_rb, &\n     &3.1566e+01_rb,3.6158e+01_rb,4.2487e+01_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &1.3867e-01_rb,6.3343e+00_rb,1.2694e+01_rb,1.9018e+01_rb,2.5310e+01_rb,3.1544e+01_rb, &\n     &3.7609e+01_rb,4.3076e+01_rb,5.0619e+01_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &1.3442e-01_rb,7.4110e+00_rb,1.4809e+01_rb,2.2187e+01_rb,2.9523e+01_rb,3.6788e+01_rb, &\n     &4.3874e+01_rb,5.0262e+01_rb,5.9046e+01_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &3.3965e-01_rb,3.4550e+00_rb,6.9058e+00_rb,1.0352e+01_rb,1.3789e+01_rb,1.7206e+01_rb, &\n     &2.0578e+01_rb,2.3766e+01_rb,2.7578e+01_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &3.2990e-01_rb,4.4451e+00_rb,8.8565e+00_rb,1.3318e+01_rb,1.7740e+01_rb,2.2139e+01_rb, &\n     &2.6477e+01_rb,3.0582e+01_rb,3.5479e+01_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &3.2021e-01_rb,5.5240e+00_rb,1.1042e+01_rb,1.6554e+01_rb,2.2048e+01_rb,2.7511e+01_rb, &\n     &3.2908e+01_rb,3.8025e+01_rb,4.4095e+01_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &3.1092e-01_rb,6.6752e+00_rb,1.3341e+01_rb,2.0002e+01_rb,2.6641e+01_rb,3.3245e+01_rb, &\n     &3.9761e+01_rb,4.5941e+01_rb,5.3282e+01_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &3.0227e-01_rb,7.8771e+00_rb,1.5743e+01_rb,2.3602e+01_rb,3.1434e+01_rb,3.9236e+01_rb, &\n     &4.6923e+01_rb,5.4228e+01_rb,6.2865e+01_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &7.9672e-01_rb,3.3862e+00_rb,6.7703e+00_rb,1.0151e+01_rb,1.3528e+01_rb,1.6895e+01_rb, &\n     &2.0243e+01_rb,2.3498e+01_rb,2.7056e+01_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &7.7399e-01_rb,4.4592e+00_rb,8.9171e+00_rb,1.3369e+01_rb,1.7816e+01_rb,2.2252e+01_rb, &\n     &2.6655e+01_rb,3.0954e+01_rb,3.5514e+01_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &7.5170e-01_rb,5.6480e+00_rb,1.1293e+01_rb,1.6933e+01_rb,2.2566e+01_rb,2.8186e+01_rb, &\n     &3.3769e+01_rb,3.9205e+01_rb,4.5131e+01_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &7.3106e-01_rb,6.9294e+00_rb,1.3857e+01_rb,2.0779e+01_rb,2.7691e+01_rb,3.4583e+01_rb, &\n     &4.1435e+01_rb,4.8102e+01_rb,5.5380e+01_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &7.1147e-01_rb,8.2841e+00_rb,1.6563e+01_rb,2.4830e+01_rb,3.3089e+01_rb,4.1334e+01_rb, &\n     &4.9522e+01_rb,5.7496e+01_rb,6.6175e+01_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &2.2037e+00_rb,3.2722e+00_rb,6.5418e+00_rb,9.8122e+00_rb,1.3082e+01_rb,1.6344e+01_rb, &\n     &1.9599e+01_rb,2.2817e+01_rb,2.6163e+01_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &2.1416e+00_rb,4.4204e+00_rb,8.8385e+00_rb,1.3255e+01_rb,1.7675e+01_rb,2.2079e+01_rb, &\n     &2.6477e+01_rb,3.0833e+01_rb,3.5348e+01_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &2.0842e+00_rb,5.7151e+00_rb,1.1428e+01_rb,1.7137e+01_rb,2.2842e+01_rb,2.8548e+01_rb, &\n     &3.4230e+01_rb,3.9856e+01_rb,4.5681e+01_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &2.0305e+00_rb,7.1274e+00_rb,1.4255e+01_rb,2.1373e+01_rb,2.8489e+01_rb,3.5598e+01_rb, &\n     &4.2693e+01_rb,4.9704e+01_rb,5.6975e+01_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &1.9781e+00_rb,8.6369e+00_rb,1.7269e+01_rb,2.5895e+01_rb,3.4524e+01_rb,4.3140e+01_rb, &\n     &5.1725e+01_rb,6.0225e+01_rb,6.9043e+01_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &1.1509e+01_rb,1.0070e+01_rb,8.6316e+00_rb,9.3146e+00_rb,1.2418e+01_rb,1.5525e+01_rb, &\n     &1.8622e+01_rb,2.1717e+01_rb,2.4834e+01_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &1.1216e+01_rb,9.8124e+00_rb,8.9628e+00_rb,1.2947e+01_rb,1.7258e+01_rb,2.1566e+01_rb, &\n     &2.5882e+01_rb,3.0171e+01_rb,3.4512e+01_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &1.0936e+01_rb,9.5703e+00_rb,1.1414e+01_rb,1.7115e+01_rb,2.2811e+01_rb,2.8515e+01_rb, &\n     &3.4212e+01_rb,3.9896e+01_rb,4.5613e+01_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &1.0665e+01_rb,9.3327e+00_rb,1.4497e+01_rb,2.1741e+01_rb,2.8981e+01_rb,3.6218e+01_rb, &\n     &4.3300e+01_rb,5.0677e+01_rb,5.7950e+01_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &1.0398e+01_rb,9.5016e+00_rb,1.7820e+01_rb,2.6724e+01_rb,3.5623e+01_rb,4.4518e+01_rb, &\n     &5.3410e+01_rb,6.2271e+01_rb,7.1226e+01_rb/)\n      kao(:, 1,10,16) = (/ &\n     &6.7305e+01_rb,5.8689e+01_rb,5.0477e+01_rb,4.2062e+01_rb,3.3650e+01_rb,2.5240e+01_rb, &\n     &1.8527e+01_rb,2.0871e+01_rb,2.3854e+01_rb/)\n      kao(:, 2,10,16) = (/ &\n     &6.5751e+01_rb,5.7530e+01_rb,4.9313e+01_rb,4.1093e+01_rb,3.2876e+01_rb,2.4802e+01_rb, &\n     &2.5524e+01_rb,2.9774e+01_rb,3.4038e+01_rb/)\n      kao(:, 3,10,16) = (/ &\n     &6.4198e+01_rb,5.6172e+01_rb,4.8149e+01_rb,4.0130e+01_rb,3.2100e+01_rb,2.8998e+01_rb, &\n     &3.4448e+01_rb,4.0179e+01_rb,4.5916e+01_rb/)\n      kao(:, 4,10,16) = (/ &\n     &6.2664e+01_rb,5.4833e+01_rb,4.6832e+01_rb,3.9166e+01_rb,3.2607e+01_rb,3.7058e+01_rb, &\n     &4.4476e+01_rb,5.1875e+01_rb,5.9284e+01_rb/)\n      kao(:, 5,10,16) = (/ &\n     &6.1101e+01_rb,5.3467e+01_rb,4.5664e+01_rb,3.8190e+01_rb,3.7365e+01_rb,4.6149e+01_rb, &\n     &5.5367e+01_rb,6.4570e+01_rb,7.3787e+01_rb/)\n      kao(:, 1,11,16) = (/ &\n     &1.3576e+02_rb,1.1879e+02_rb,1.0182e+02_rb,8.4849e+01_rb,6.7875e+01_rb,5.0907e+01_rb, &\n     &3.3938e+01_rb,2.3799e+01_rb,9.0162e+00_rb/)\n      kao(:, 2,11,16) = (/ &\n     &1.3280e+02_rb,1.1619e+02_rb,9.9587e+01_rb,8.3000e+01_rb,6.6392e+01_rb,4.9800e+01_rb, &\n     &3.3906e+01_rb,3.3859e+01_rb,3.7265e+01_rb/)\n      kao(:, 3,11,16) = (/ &\n     &1.2969e+02_rb,1.1350e+02_rb,9.7289e+01_rb,8.1076e+01_rb,6.4844e+01_rb,4.8642e+01_rb, &\n     &3.9970e+01_rb,4.5587e+01_rb,5.2094e+01_rb/)\n      kao(:, 4,11,16) = (/ &\n     &1.2653e+02_rb,1.1071e+02_rb,9.4885e+01_rb,7.9077e+01_rb,6.3265e+01_rb,4.8850e+01_rb, &\n     &5.0310e+01_rb,5.8678e+01_rb,6.7071e+01_rb/)\n      kao(:, 5,11,16) = (/ &\n     &1.2325e+02_rb,1.0784e+02_rb,9.2433e+01_rb,7.7029e+01_rb,6.1622e+01_rb,5.4553e+01_rb, &\n     &6.2511e+01_rb,7.2895e+01_rb,8.3291e+01_rb/)\n      kao(:, 1,12,16) = (/ &\n     &2.0298e+02_rb,1.7762e+02_rb,1.5224e+02_rb,1.2687e+02_rb,1.0147e+02_rb,7.6126e+01_rb, &\n     &5.0748e+01_rb,2.9045e+01_rb,9.6314e-05_rb/)\n      kao(:, 2,12,16) = (/ &\n     &1.9850e+02_rb,1.7368e+02_rb,1.4888e+02_rb,1.2405e+02_rb,9.9250e+01_rb,7.4435e+01_rb, &\n     &4.9625e+01_rb,3.8234e+01_rb,2.3705e+01_rb/)\n      kao(:, 3,12,16) = (/ &\n     &1.9369e+02_rb,1.6949e+02_rb,1.4528e+02_rb,1.2103e+02_rb,9.6845e+01_rb,7.2640e+01_rb, &\n     &5.1319e+01_rb,5.1242e+01_rb,5.0529e+01_rb/)\n      kao(:, 4,12,16) = (/ &\n     &1.8865e+02_rb,1.6508e+02_rb,1.4148e+02_rb,1.1791e+02_rb,9.4323e+01_rb,7.0746e+01_rb, &\n     &5.9155e+01_rb,6.5776e+01_rb,7.5148e+01_rb/)\n      kao(:, 5,12,16) = (/ &\n     &1.8345e+02_rb,1.6051e+02_rb,1.3757e+02_rb,1.1465e+02_rb,9.1715e+01_rb,7.1673e+01_rb, &\n     &7.0340e+01_rb,8.1440e+01_rb,9.3046e+01_rb/)\n      kao(:, 1,13,16) = (/ &\n     &2.4179e+02_rb,2.1156e+02_rb,1.8133e+02_rb,1.5111e+02_rb,1.2089e+02_rb,9.0670e+01_rb, &\n     &6.0447e+01_rb,3.4181e+01_rb,7.5740e-05_rb/)\n      kao(:, 2,13,16) = (/ &\n     &2.3602e+02_rb,2.0653e+02_rb,1.7702e+02_rb,1.4755e+02_rb,1.1802e+02_rb,8.8512e+01_rb, &\n     &5.9018e+01_rb,4.3484e+01_rb,2.5520e+01_rb/)\n      kao(:, 3,13,16) = (/ &\n     &2.2984e+02_rb,2.0112e+02_rb,1.7238e+02_rb,1.4366e+02_rb,1.1493e+02_rb,8.6216e+01_rb, &\n     &6.0956e+01_rb,5.6909e+01_rb,5.1259e+01_rb/)\n      kao(:, 4,13,16) = (/ &\n     &2.2335e+02_rb,1.9547e+02_rb,1.6749e+02_rb,1.3960e+02_rb,1.1169e+02_rb,8.3756e+01_rb, &\n     &6.8596e+01_rb,7.2790e+01_rb,7.7355e+01_rb/)\n      kao(:, 5,13,16) = (/ &\n     &2.1661e+02_rb,1.8954e+02_rb,1.6247e+02_rb,1.3539e+02_rb,1.0832e+02_rb,8.5058e+01_rb, &\n     &7.9741e+01_rb,8.9915e+01_rb,1.0226e+02_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &2.3382e-03_rb,2.8918e-03_rb,3.5228e-03_rb,4.2513e-03_rb,5.0992e-03_rb/)\n      kbo(:,14, 1) = (/ &\n     &2.0993e-03_rb,2.6087e-03_rb,3.2027e-03_rb,3.9155e-03_rb,4.7075e-03_rb/)\n      kbo(:,15, 1) = (/ &\n     &1.9068e-03_rb,2.4224e-03_rb,2.9993e-03_rb,3.6366e-03_rb,4.4490e-03_rb/)\n      kbo(:,16, 1) = (/ &\n     &1.7630e-03_rb,2.2267e-03_rb,2.7514e-03_rb,3.4114e-03_rb,4.1614e-03_rb/)\n      kbo(:,17, 1) = (/ &\n     &1.6519e-03_rb,2.0886e-03_rb,2.6010e-03_rb,3.2457e-03_rb,3.9066e-03_rb/)\n      kbo(:,18, 1) = (/ &\n     &1.5561e-03_rb,1.9733e-03_rb,2.5429e-03_rb,3.1325e-03_rb,3.6764e-03_rb/)\n      kbo(:,19, 1) = (/ &\n     &1.4778e-03_rb,1.9477e-03_rb,2.4734e-03_rb,2.9725e-03_rb,3.4413e-03_rb/)\n      kbo(:,20, 1) = (/ &\n     &1.3764e-03_rb,1.8206e-03_rb,2.2794e-03_rb,2.6918e-03_rb,3.0807e-03_rb/)\n      kbo(:,21, 1) = (/ &\n     &1.2547e-03_rb,1.6614e-03_rb,2.0387e-03_rb,2.3912e-03_rb,2.7222e-03_rb/)\n      kbo(:,22, 1) = (/ &\n     &1.1692e-03_rb,1.5034e-03_rb,1.8117e-03_rb,2.1136e-03_rb,2.3959e-03_rb/)\n      kbo(:,23, 1) = (/ &\n     &1.0852e-03_rb,1.3578e-03_rb,1.6152e-03_rb,1.8580e-03_rb,2.0983e-03_rb/)\n      kbo(:,24, 1) = (/ &\n     &9.9196e-04_rb,1.2216e-03_rb,1.4332e-03_rb,1.6336e-03_rb,1.8396e-03_rb/)\n      kbo(:,25, 1) = (/ &\n     &9.0621e-04_rb,1.0934e-03_rb,1.2579e-03_rb,1.4326e-03_rb,1.5972e-03_rb/)\n      kbo(:,26, 1) = (/ &\n     &8.1196e-04_rb,9.6544e-04_rb,1.0989e-03_rb,1.2439e-03_rb,1.3772e-03_rb/)\n      kbo(:,27, 1) = (/ &\n     &7.2402e-04_rb,8.4382e-04_rb,9.5455e-04_rb,1.0692e-03_rb,1.1790e-03_rb/)\n      kbo(:,28, 1) = (/ &\n     &6.3816e-04_rb,7.3173e-04_rb,8.2333e-04_rb,9.1530e-04_rb,1.0008e-03_rb/)\n      kbo(:,29, 1) = (/ &\n     &5.5611e-04_rb,6.2561e-04_rb,7.0457e-04_rb,7.7239e-04_rb,8.4074e-04_rb/)\n      kbo(:,30, 1) = (/ &\n     &4.7758e-04_rb,5.3585e-04_rb,5.9602e-04_rb,6.4848e-04_rb,7.0299e-04_rb/)\n      kbo(:,31, 1) = (/ &\n     &4.0233e-04_rb,4.5494e-04_rb,5.0095e-04_rb,5.4165e-04_rb,5.8359e-04_rb/)\n      kbo(:,32, 1) = (/ &\n     &3.4147e-04_rb,3.8327e-04_rb,4.2049e-04_rb,4.5512e-04_rb,4.8721e-04_rb/)\n      kbo(:,33, 1) = (/ &\n     &2.9210e-04_rb,3.2465e-04_rb,3.5276e-04_rb,3.8153e-04_rb,4.1121e-04_rb/)\n      kbo(:,34, 1) = (/ &\n     &2.4930e-04_rb,2.7584e-04_rb,2.9920e-04_rb,3.2247e-04_rb,3.4759e-04_rb/)\n      kbo(:,35, 1) = (/ &\n     &2.1208e-04_rb,2.3419e-04_rb,2.5253e-04_rb,2.7252e-04_rb,2.9279e-04_rb/)\n      kbo(:,36, 1) = (/ &\n     &1.7811e-04_rb,1.9459e-04_rb,2.1195e-04_rb,2.2908e-04_rb,2.4619e-04_rb/)\n      kbo(:,37, 1) = (/ &\n     &1.4252e-04_rb,1.5802e-04_rb,1.7124e-04_rb,1.8557e-04_rb,1.9967e-04_rb/)\n      kbo(:,38, 1) = (/ &\n     &1.1316e-04_rb,1.2691e-04_rb,1.3875e-04_rb,1.4940e-04_rb,1.6149e-04_rb/)\n      kbo(:,39, 1) = (/ &\n     &8.9734e-05_rb,1.0111e-04_rb,1.1110e-04_rb,1.2104e-04_rb,1.3018e-04_rb/)\n      kbo(:,40, 1) = (/ &\n     &6.9862e-05_rb,7.9338e-05_rb,8.7351e-05_rb,9.5361e-05_rb,1.0350e-04_rb/)\n      kbo(:,41, 1) = (/ &\n     &5.3903e-05_rb,6.1377e-05_rb,6.8596e-05_rb,7.4910e-05_rb,8.1525e-05_rb/)\n      kbo(:,42, 1) = (/ &\n     &4.1353e-05_rb,4.7327e-05_rb,5.3464e-05_rb,5.8873e-05_rb,6.3813e-05_rb/)\n      kbo(:,43, 1) = (/ &\n     &3.1177e-05_rb,3.6021e-05_rb,4.0748e-05_rb,4.5236e-05_rb,4.9388e-05_rb/)\n      kbo(:,44, 1) = (/ &\n     &2.3155e-05_rb,2.7105e-05_rb,3.0750e-05_rb,3.4487e-05_rb,3.7902e-05_rb/)\n      kbo(:,45, 1) = (/ &\n     &1.6939e-05_rb,2.0019e-05_rb,2.3152e-05_rb,2.6034e-05_rb,2.8825e-05_rb/)\n      kbo(:,46, 1) = (/ &\n     &1.2188e-05_rb,1.4774e-05_rb,1.7220e-05_rb,1.9590e-05_rb,2.1820e-05_rb/)\n      kbo(:,47, 1) = (/ &\n     &8.5598e-06_rb,1.0765e-05_rb,1.2719e-05_rb,1.4628e-05_rb,1.6428e-05_rb/)\n      kbo(:,48, 1) = (/ &\n     &5.9262e-06_rb,7.6349e-06_rb,9.2601e-06_rb,1.0811e-05_rb,1.2306e-05_rb/)\n      kbo(:,49, 1) = (/ &\n     &3.9332e-06_rb,5.2612e-06_rb,6.6345e-06_rb,7.8390e-06_rb,9.0160e-06_rb/)\n      kbo(:,50, 1) = (/ &\n     &2.6915e-06_rb,3.7062e-06_rb,4.7528e-06_rb,5.7591e-06_rb,6.6828e-06_rb/)\n      kbo(:,51, 1) = (/ &\n     &1.9031e-06_rb,2.5633e-06_rb,3.3817e-06_rb,4.2212e-06_rb,4.9973e-06_rb/)\n      kbo(:,52, 1) = (/ &\n     &1.3022e-06_rb,1.7876e-06_rb,2.4129e-06_rb,3.0582e-06_rb,3.6770e-06_rb/)\n      kbo(:,53, 1) = (/ &\n     &8.8514e-07_rb,1.2531e-06_rb,1.6651e-06_rb,2.1701e-06_rb,2.6821e-06_rb/)\n      kbo(:,54, 1) = (/ &\n     &6.3174e-07_rb,9.0490e-07_rb,1.2164e-06_rb,1.6231e-06_rb,2.0201e-06_rb/)\n      kbo(:,55, 1) = (/ &\n     &4.6092e-07_rb,6.6386e-07_rb,9.1477e-07_rb,1.2278e-06_rb,1.5504e-06_rb/)\n      kbo(:,56, 1) = (/ &\n     &3.3312e-07_rb,4.8579e-07_rb,6.8774e-07_rb,9.1495e-07_rb,1.1856e-06_rb/)\n      kbo(:,57, 1) = (/ &\n     &2.4004e-07_rb,3.5567e-07_rb,5.1418e-07_rb,6.8280e-07_rb,9.0960e-07_rb/)\n      kbo(:,58, 1) = (/ &\n     &1.7424e-07_rb,2.6290e-07_rb,3.8304e-07_rb,5.1880e-07_rb,6.9948e-07_rb/)\n      kbo(:,59, 1) = (/ &\n     &1.4545e-07_rb,2.2249e-07_rb,3.3056e-07_rb,4.4487e-07_rb,6.0780e-07_rb/)\n      kbo(:,13, 2) = (/ &\n     &1.0289e-02_rb,1.3009e-02_rb,1.5474e-02_rb,1.7839e-02_rb,2.0097e-02_rb/)\n      kbo(:,14, 2) = (/ &\n     &9.5725e-03_rb,1.1818e-02_rb,1.3904e-02_rb,1.5918e-02_rb,1.7958e-02_rb/)\n      kbo(:,15, 2) = (/ &\n     &8.9675e-03_rb,1.0842e-02_rb,1.2642e-02_rb,1.4399e-02_rb,1.6048e-02_rb/)\n      kbo(:,16, 2) = (/ &\n     &8.1677e-03_rb,9.7202e-03_rb,1.1280e-02_rb,1.2681e-02_rb,1.4168e-02_rb/)\n      kbo(:,17, 2) = (/ &\n     &7.4338e-03_rb,8.8205e-03_rb,1.0076e-02_rb,1.1262e-02_rb,1.2428e-02_rb/)\n      kbo(:,18, 2) = (/ &\n     &6.8634e-03_rb,8.0133e-03_rb,8.9513e-03_rb,9.9366e-03_rb,1.1014e-02_rb/)\n      kbo(:,19, 2) = (/ &\n     &6.3552e-03_rb,7.2047e-03_rb,8.0129e-03_rb,8.8966e-03_rb,9.8381e-03_rb/)\n      kbo(:,20, 2) = (/ &\n     &5.6397e-03_rb,6.2755e-03_rb,6.9887e-03_rb,7.7846e-03_rb,8.5391e-03_rb/)\n      kbo(:,21, 2) = (/ &\n     &4.8925e-03_rb,5.4088e-03_rb,6.0399e-03_rb,6.7004e-03_rb,7.3289e-03_rb/)\n      kbo(:,22, 2) = (/ &\n     &4.2004e-03_rb,4.6864e-03_rb,5.2247e-03_rb,5.7527e-03_rb,6.2510e-03_rb/)\n      kbo(:,23, 2) = (/ &\n     &3.5982e-03_rb,4.0432e-03_rb,4.4892e-03_rb,4.9192e-03_rb,5.3260e-03_rb/)\n      kbo(:,24, 2) = (/ &\n     &3.1341e-03_rb,3.4942e-03_rb,3.8506e-03_rb,4.1837e-03_rb,4.5083e-03_rb/)\n      kbo(:,25, 2) = (/ &\n     &2.7078e-03_rb,2.9853e-03_rb,3.2644e-03_rb,3.5527e-03_rb,3.8354e-03_rb/)\n      kbo(:,26, 2) = (/ &\n     &2.3166e-03_rb,2.5349e-03_rb,2.7760e-03_rb,3.0099e-03_rb,3.2441e-03_rb/)\n      kbo(:,27, 2) = (/ &\n     &1.9581e-03_rb,2.1476e-03_rb,2.3442e-03_rb,2.5333e-03_rb,2.7284e-03_rb/)\n      kbo(:,28, 2) = (/ &\n     &1.6566e-03_rb,1.8064e-03_rb,1.9708e-03_rb,2.1221e-03_rb,2.2915e-03_rb/)\n      kbo(:,29, 2) = (/ &\n     &1.3865e-03_rb,1.5225e-03_rb,1.6510e-03_rb,1.7817e-03_rb,1.9308e-03_rb/)\n      kbo(:,30, 2) = (/ &\n     &1.1671e-03_rb,1.2777e-03_rb,1.3825e-03_rb,1.4960e-03_rb,1.6203e-03_rb/)\n      kbo(:,31, 2) = (/ &\n     &9.8586e-04_rb,1.0724e-03_rb,1.1604e-03_rb,1.2563e-03_rb,1.3588e-03_rb/)\n      kbo(:,32, 2) = (/ &\n     &8.3378e-04_rb,9.0396e-04_rb,9.7429e-04_rb,1.0568e-03_rb,1.1470e-03_rb/)\n      kbo(:,33, 2) = (/ &\n     &7.0369e-04_rb,7.5618e-04_rb,8.2196e-04_rb,8.9196e-04_rb,9.6493e-04_rb/)\n      kbo(:,34, 2) = (/ &\n     &5.9334e-04_rb,6.3847e-04_rb,6.9888e-04_rb,7.5675e-04_rb,8.1741e-04_rb/)\n      kbo(:,35, 2) = (/ &\n     &4.9419e-04_rb,5.3430e-04_rb,5.8625e-04_rb,6.3690e-04_rb,6.8685e-04_rb/)\n      kbo(:,36, 2) = (/ &\n     &4.1196e-04_rb,4.5151e-04_rb,4.9203e-04_rb,5.3162e-04_rb,5.7140e-04_rb/)\n      kbo(:,37, 2) = (/ &\n     &3.3813e-04_rb,3.6860e-04_rb,4.0277e-04_rb,4.3459e-04_rb,4.6722e-04_rb/)\n      kbo(:,38, 2) = (/ &\n     &2.7817e-04_rb,3.0151e-04_rb,3.2943e-04_rb,3.5593e-04_rb,3.8227e-04_rb/)\n      kbo(:,39, 2) = (/ &\n     &2.2867e-04_rb,2.4762e-04_rb,2.6968e-04_rb,2.9008e-04_rb,3.1209e-04_rb/)\n      kbo(:,40, 2) = (/ &\n     &1.8342e-04_rb,1.9773e-04_rb,2.1631e-04_rb,2.3254e-04_rb,2.4976e-04_rb/)\n      kbo(:,41, 2) = (/ &\n     &1.4676e-04_rb,1.5810e-04_rb,1.7216e-04_rb,1.8594e-04_rb,1.9960e-04_rb/)\n      kbo(:,42, 2) = (/ &\n     &1.1746e-04_rb,1.2665e-04_rb,1.3672e-04_rb,1.4836e-04_rb,1.5881e-04_rb/)\n      kbo(:,43, 2) = (/ &\n     &9.3086e-05_rb,1.0013e-04_rb,1.0780e-04_rb,1.1711e-04_rb,1.2583e-04_rb/)\n      kbo(:,44, 2) = (/ &\n     &7.3232e-05_rb,7.8805e-05_rb,8.4882e-05_rb,9.2011e-05_rb,9.9424e-05_rb/)\n      kbo(:,45, 2) = (/ &\n     &5.7257e-05_rb,6.2283e-05_rb,6.6827e-05_rb,7.2104e-05_rb,7.8039e-05_rb/)\n      kbo(:,46, 2) = (/ &\n     &4.5024e-05_rb,4.8935e-05_rb,5.2600e-05_rb,5.6600e-05_rb,6.1280e-05_rb/)\n      kbo(:,47, 2) = (/ &\n     &3.5357e-05_rb,3.8098e-05_rb,4.1339e-05_rb,4.4405e-05_rb,4.7940e-05_rb/)\n      kbo(:,48, 2) = (/ &\n     &2.7815e-05_rb,2.9967e-05_rb,3.2437e-05_rb,3.4873e-05_rb,3.7402e-05_rb/)\n      kbo(:,49, 2) = (/ &\n     &2.1939e-05_rb,2.3492e-05_rb,2.5305e-05_rb,2.7332e-05_rb,2.9323e-05_rb/)\n      kbo(:,50, 2) = (/ &\n     &1.7237e-05_rb,1.8528e-05_rb,1.9953e-05_rb,2.1525e-05_rb,2.3159e-05_rb/)\n      kbo(:,51, 2) = (/ &\n     &1.3436e-05_rb,1.4671e-05_rb,1.5802e-05_rb,1.6957e-05_rb,1.8296e-05_rb/)\n      kbo(:,52, 2) = (/ &\n     &1.0450e-05_rb,1.1538e-05_rb,1.2438e-05_rb,1.3421e-05_rb,1.4433e-05_rb/)\n      kbo(:,53, 2) = (/ &\n     &8.1106e-06_rb,9.0282e-06_rb,9.8120e-06_rb,1.0593e-05_rb,1.1339e-05_rb/)\n      kbo(:,54, 2) = (/ &\n     &6.3166e-06_rb,7.0785e-06_rb,7.7924e-06_rb,8.4016e-06_rb,8.9926e-06_rb/)\n      kbo(:,55, 2) = (/ &\n     &4.9361e-06_rb,5.5830e-06_rb,6.1858e-06_rb,6.7021e-06_rb,7.1744e-06_rb/)\n      kbo(:,56, 2) = (/ &\n     &3.8472e-06_rb,4.3596e-06_rb,4.8727e-06_rb,5.3362e-06_rb,5.7261e-06_rb/)\n      kbo(:,57, 2) = (/ &\n     &2.9833e-06_rb,3.4045e-06_rb,3.8019e-06_rb,4.2184e-06_rb,4.5533e-06_rb/)\n      kbo(:,58, 2) = (/ &\n     &2.2932e-06_rb,2.6742e-06_rb,3.0024e-06_rb,3.3291e-06_rb,3.6047e-06_rb/)\n      kbo(:,59, 2) = (/ &\n     &1.8323e-06_rb,2.1714e-06_rb,2.4292e-06_rb,2.6999e-06_rb,2.9218e-06_rb/)\n      kbo(:,13, 3) = (/ &\n     &3.0891e-02_rb,3.3118e-02_rb,3.6308e-02_rb,3.9588e-02_rb,4.3089e-02_rb/)\n      kbo(:,14, 3) = (/ &\n     &2.6329e-02_rb,2.8653e-02_rb,3.1325e-02_rb,3.4211e-02_rb,3.7000e-02_rb/)\n      kbo(:,15, 3) = (/ &\n     &2.2620e-02_rb,2.4702e-02_rb,2.7101e-02_rb,2.9342e-02_rb,3.1645e-02_rb/)\n      kbo(:,16, 3) = (/ &\n     &1.9521e-02_rb,2.1493e-02_rb,2.3534e-02_rb,2.5338e-02_rb,2.7120e-02_rb/)\n      kbo(:,17, 3) = (/ &\n     &1.7199e-02_rb,1.8861e-02_rb,2.0377e-02_rb,2.1918e-02_rb,2.3545e-02_rb/)\n      kbo(:,18, 3) = (/ &\n     &1.5181e-02_rb,1.6445e-02_rb,1.7796e-02_rb,1.9171e-02_rb,2.0759e-02_rb/)\n      kbo(:,19, 3) = (/ &\n     &1.3401e-02_rb,1.4529e-02_rb,1.5713e-02_rb,1.7031e-02_rb,1.8531e-02_rb/)\n      kbo(:,20, 3) = (/ &\n     &1.1566e-02_rb,1.2595e-02_rb,1.3616e-02_rb,1.4797e-02_rb,1.6195e-02_rb/)\n      kbo(:,21, 3) = (/ &\n     &9.9790e-03_rb,1.0856e-02_rb,1.1739e-02_rb,1.2840e-02_rb,1.4039e-02_rb/)\n      kbo(:,22, 3) = (/ &\n     &8.5571e-03_rb,9.3189e-03_rb,1.0148e-02_rb,1.1149e-02_rb,1.2271e-02_rb/)\n      kbo(:,23, 3) = (/ &\n     &7.3578e-03_rb,7.9960e-03_rb,8.8066e-03_rb,9.6774e-03_rb,1.0719e-02_rb/)\n      kbo(:,24, 3) = (/ &\n     &6.2710e-03_rb,6.8510e-03_rb,7.5829e-03_rb,8.4285e-03_rb,9.3410e-03_rb/)\n      kbo(:,25, 3) = (/ &\n     &5.3189e-03_rb,5.9223e-03_rb,6.5735e-03_rb,7.3163e-03_rb,8.1167e-03_rb/)\n      kbo(:,26, 3) = (/ &\n     &4.5763e-03_rb,5.1227e-03_rb,5.7207e-03_rb,6.3561e-03_rb,7.0425e-03_rb/)\n      kbo(:,27, 3) = (/ &\n     &3.9329e-03_rb,4.4226e-03_rb,4.9281e-03_rb,5.4554e-03_rb,6.0474e-03_rb/)\n      kbo(:,28, 3) = (/ &\n     &3.3818e-03_rb,3.7926e-03_rb,4.2066e-03_rb,4.6531e-03_rb,5.1585e-03_rb/)\n      kbo(:,29, 3) = (/ &\n     &2.9035e-03_rb,3.2271e-03_rb,3.5855e-03_rb,3.9705e-03_rb,4.3799e-03_rb/)\n      kbo(:,30, 3) = (/ &\n     &2.4837e-03_rb,2.7647e-03_rb,3.0488e-03_rb,3.3703e-03_rb,3.7029e-03_rb/)\n      kbo(:,31, 3) = (/ &\n     &2.0927e-03_rb,2.3283e-03_rb,2.5712e-03_rb,2.8545e-03_rb,3.1157e-03_rb/)\n      kbo(:,32, 3) = (/ &\n     &1.7660e-03_rb,1.9568e-03_rb,2.1676e-03_rb,2.3923e-03_rb,2.6159e-03_rb/)\n      kbo(:,33, 3) = (/ &\n     &1.4871e-03_rb,1.6499e-03_rb,1.8213e-03_rb,2.0066e-03_rb,2.1979e-03_rb/)\n      kbo(:,34, 3) = (/ &\n     &1.2670e-03_rb,1.4012e-03_rb,1.5485e-03_rb,1.7073e-03_rb,1.8735e-03_rb/)\n      kbo(:,35, 3) = (/ &\n     &1.0672e-03_rb,1.1813e-03_rb,1.3131e-03_rb,1.4449e-03_rb,1.5924e-03_rb/)\n      kbo(:,36, 3) = (/ &\n     &8.9185e-04_rb,9.8733e-04_rb,1.0955e-03_rb,1.2168e-03_rb,1.3441e-03_rb/)\n      kbo(:,37, 3) = (/ &\n     &7.2820e-04_rb,8.0537e-04_rb,8.9528e-04_rb,9.9910e-04_rb,1.1050e-03_rb/)\n      kbo(:,38, 3) = (/ &\n     &5.9186e-04_rb,6.5591e-04_rb,7.2922e-04_rb,8.1759e-04_rb,9.0441e-04_rb/)\n      kbo(:,39, 3) = (/ &\n     &4.8327e-04_rb,5.3477e-04_rb,5.9527e-04_rb,6.6884e-04_rb,7.4026e-04_rb/)\n      kbo(:,40, 3) = (/ &\n     &3.8671e-04_rb,4.2869e-04_rb,4.7628e-04_rb,5.3686e-04_rb,5.9502e-04_rb/)\n      kbo(:,41, 3) = (/ &\n     &3.0862e-04_rb,3.4166e-04_rb,3.8000e-04_rb,4.2745e-04_rb,4.7580e-04_rb/)\n      kbo(:,42, 3) = (/ &\n     &2.4577e-04_rb,2.7168e-04_rb,3.0221e-04_rb,3.3942e-04_rb,3.8025e-04_rb/)\n      kbo(:,43, 3) = (/ &\n     &1.9416e-04_rb,2.1479e-04_rb,2.3878e-04_rb,2.6702e-04_rb,3.0069e-04_rb/)\n      kbo(:,44, 3) = (/ &\n     &1.5374e-04_rb,1.6929e-04_rb,1.8776e-04_rb,2.0950e-04_rb,2.3556e-04_rb/)\n      kbo(:,45, 3) = (/ &\n     &1.2163e-04_rb,1.3301e-04_rb,1.4695e-04_rb,1.6433e-04_rb,1.8435e-04_rb/)\n      kbo(:,46, 3) = (/ &\n     &9.4928e-05_rb,1.0426e-04_rb,1.1546e-04_rb,1.2841e-04_rb,1.4410e-04_rb/)\n      kbo(:,47, 3) = (/ &\n     &7.3995e-05_rb,8.2130e-05_rb,9.0212e-05_rb,1.0006e-04_rb,1.1186e-04_rb/)\n      kbo(:,48, 3) = (/ &\n     &5.7893e-05_rb,6.3962e-05_rb,7.0352e-05_rb,7.8032e-05_rb,8.7072e-05_rb/)\n      kbo(:,49, 3) = (/ &\n     &4.5051e-05_rb,4.9908e-05_rb,5.5306e-05_rb,6.0837e-05_rb,6.7927e-05_rb/)\n      kbo(:,50, 3) = (/ &\n     &3.5303e-05_rb,3.9326e-05_rb,4.3324e-05_rb,4.7812e-05_rb,5.3164e-05_rb/)\n      kbo(:,51, 3) = (/ &\n     &2.7771e-05_rb,3.0856e-05_rb,3.4054e-05_rb,3.7804e-05_rb,4.1758e-05_rb/)\n      kbo(:,52, 3) = (/ &\n     &2.1938e-05_rb,2.4227e-05_rb,2.6919e-05_rb,2.9733e-05_rb,3.2981e-05_rb/)\n      kbo(:,53, 3) = (/ &\n     &1.7187e-05_rb,1.9050e-05_rb,2.1224e-05_rb,2.3374e-05_rb,2.5986e-05_rb/)\n      kbo(:,54, 3) = (/ &\n     &1.3551e-05_rb,1.5084e-05_rb,1.6671e-05_rb,1.8493e-05_rb,2.0639e-05_rb/)\n      kbo(:,55, 3) = (/ &\n     &1.0736e-05_rb,1.1998e-05_rb,1.3230e-05_rb,1.4714e-05_rb,1.6387e-05_rb/)\n      kbo(:,56, 3) = (/ &\n     &8.4780e-06_rb,9.5613e-06_rb,1.0535e-05_rb,1.1722e-05_rb,1.2981e-05_rb/)\n      kbo(:,57, 3) = (/ &\n     &6.6892e-06_rb,7.5486e-06_rb,8.3874e-06_rb,9.3040e-06_rb,1.0324e-05_rb/)\n      kbo(:,58, 3) = (/ &\n     &5.3282e-06_rb,5.9530e-06_rb,6.6841e-06_rb,7.4078e-06_rb,8.2298e-06_rb/)\n      kbo(:,59, 3) = (/ &\n     &4.3459e-06_rb,4.8321e-06_rb,5.4567e-06_rb,6.0369e-06_rb,6.7261e-06_rb/)\n      kbo(:,13, 4) = (/ &\n     &6.7009e-02_rb,7.0746e-02_rb,7.4150e-02_rb,7.7569e-02_rb,8.1680e-02_rb/)\n      kbo(:,14, 4) = (/ &\n     &5.5943e-02_rb,5.8697e-02_rb,6.1678e-02_rb,6.4914e-02_rb,6.9379e-02_rb/)\n      kbo(:,15, 4) = (/ &\n     &4.6843e-02_rb,4.9217e-02_rb,5.1833e-02_rb,5.5783e-02_rb,5.9767e-02_rb/)\n      kbo(:,16, 4) = (/ &\n     &3.9239e-02_rb,4.1262e-02_rb,4.4032e-02_rb,4.7642e-02_rb,5.1925e-02_rb/)\n      kbo(:,17, 4) = (/ &\n     &3.3107e-02_rb,3.5295e-02_rb,3.8541e-02_rb,4.2220e-02_rb,4.6357e-02_rb/)\n      kbo(:,18, 4) = (/ &\n     &2.8797e-02_rb,3.1620e-02_rb,3.4631e-02_rb,3.8034e-02_rb,4.1725e-02_rb/)\n      kbo(:,19, 4) = (/ &\n     &2.5628e-02_rb,2.8281e-02_rb,3.1139e-02_rb,3.4358e-02_rb,3.7925e-02_rb/)\n      kbo(:,20, 4) = (/ &\n     &2.2579e-02_rb,2.4906e-02_rb,2.7554e-02_rb,3.0345e-02_rb,3.3488e-02_rb/)\n      kbo(:,21, 4) = (/ &\n     &1.9528e-02_rb,2.1738e-02_rb,2.4107e-02_rb,2.6707e-02_rb,2.9475e-02_rb/)\n      kbo(:,22, 4) = (/ &\n     &1.7101e-02_rb,1.8986e-02_rb,2.1039e-02_rb,2.3296e-02_rb,2.5855e-02_rb/)\n      kbo(:,23, 4) = (/ &\n     &1.4866e-02_rb,1.6502e-02_rb,1.8337e-02_rb,2.0414e-02_rb,2.2548e-02_rb/)\n      kbo(:,24, 4) = (/ &\n     &1.2821e-02_rb,1.4288e-02_rb,1.5941e-02_rb,1.7747e-02_rb,1.9679e-02_rb/)\n      kbo(:,25, 4) = (/ &\n     &1.1061e-02_rb,1.2369e-02_rb,1.3872e-02_rb,1.5379e-02_rb,1.7059e-02_rb/)\n      kbo(:,26, 4) = (/ &\n     &9.5354e-03_rb,1.0723e-02_rb,1.2012e-02_rb,1.3430e-02_rb,1.4839e-02_rb/)\n      kbo(:,27, 4) = (/ &\n     &8.1975e-03_rb,9.2673e-03_rb,1.0387e-02_rb,1.1650e-02_rb,1.2827e-02_rb/)\n      kbo(:,28, 4) = (/ &\n     &7.0231e-03_rb,7.9702e-03_rb,8.9828e-03_rb,1.0032e-02_rb,1.1053e-02_rb/)\n      kbo(:,29, 4) = (/ &\n     &6.0200e-03_rb,6.8421e-03_rb,7.7670e-03_rb,8.6094e-03_rb,9.5249e-03_rb/)\n      kbo(:,30, 4) = (/ &\n     &5.1558e-03_rb,5.8823e-03_rb,6.6735e-03_rb,7.4143e-03_rb,8.2222e-03_rb/)\n      kbo(:,31, 4) = (/ &\n     &4.4508e-03_rb,5.1031e-03_rb,5.7395e-03_rb,6.3990e-03_rb,7.0930e-03_rb/)\n      kbo(:,32, 4) = (/ &\n     &3.8687e-03_rb,4.4226e-03_rb,4.9634e-03_rb,5.5499e-03_rb,6.1447e-03_rb/)\n      kbo(:,33, 4) = (/ &\n     &3.3860e-03_rb,3.8414e-03_rb,4.3170e-03_rb,4.8129e-03_rb,5.3113e-03_rb/)\n      kbo(:,34, 4) = (/ &\n     &2.9667e-03_rb,3.3572e-03_rb,3.7642e-03_rb,4.1882e-03_rb,4.5973e-03_rb/)\n      kbo(:,35, 4) = (/ &\n     &2.5854e-03_rb,2.9160e-03_rb,3.2542e-03_rb,3.6120e-03_rb,3.9574e-03_rb/)\n      kbo(:,36, 4) = (/ &\n     &2.2132e-03_rb,2.5004e-03_rb,2.7859e-03_rb,3.0722e-03_rb,3.3673e-03_rb/)\n      kbo(:,37, 4) = (/ &\n     &1.8397e-03_rb,2.0798e-03_rb,2.3185e-03_rb,2.5525e-03_rb,2.8046e-03_rb/)\n      kbo(:,38, 4) = (/ &\n     &1.5241e-03_rb,1.7240e-03_rb,1.9250e-03_rb,2.1190e-03_rb,2.3334e-03_rb/)\n      kbo(:,39, 4) = (/ &\n     &1.2578e-03_rb,1.4258e-03_rb,1.5974e-03_rb,1.7602e-03_rb,1.9414e-03_rb/)\n      kbo(:,40, 4) = (/ &\n     &1.0136e-03_rb,1.1511e-03_rb,1.2925e-03_rb,1.4274e-03_rb,1.5799e-03_rb/)\n      kbo(:,41, 4) = (/ &\n     &8.1255e-04_rb,9.2485e-04_rb,1.0421e-03_rb,1.1560e-03_rb,1.2823e-03_rb/)\n      kbo(:,42, 4) = (/ &\n     &6.5076e-04_rb,7.4076e-04_rb,8.3891e-04_rb,9.3536e-04_rb,1.0398e-03_rb/)\n      kbo(:,43, 4) = (/ &\n     &5.1457e-04_rb,5.8675e-04_rb,6.6625e-04_rb,7.5025e-04_rb,8.3332e-04_rb/)\n      kbo(:,44, 4) = (/ &\n     &4.0130e-04_rb,4.6112e-04_rb,5.2500e-04_rb,5.9353e-04_rb,6.6396e-04_rb/)\n      kbo(:,45, 4) = (/ &\n     &3.1174e-04_rb,3.6176e-04_rb,4.1281e-04_rb,4.6943e-04_rb,5.2749e-04_rb/)\n      kbo(:,46, 4) = (/ &\n     &2.4198e-04_rb,2.8347e-04_rb,3.2327e-04_rb,3.6940e-04_rb,4.1847e-04_rb/)\n      kbo(:,47, 4) = (/ &\n     &1.8653e-04_rb,2.1946e-04_rb,2.5297e-04_rb,2.9033e-04_rb,3.3117e-04_rb/)\n      kbo(:,48, 4) = (/ &\n     &1.4273e-04_rb,1.6990e-04_rb,1.9780e-04_rb,2.2703e-04_rb,2.6076e-04_rb/)\n      kbo(:,49, 4) = (/ &\n     &1.1020e-04_rb,1.3076e-04_rb,1.5369e-04_rb,1.7736e-04_rb,2.0453e-04_rb/)\n      kbo(:,50, 4) = (/ &\n     &8.5840e-05_rb,1.0098e-04_rb,1.2003e-04_rb,1.3937e-04_rb,1.6133e-04_rb/)\n      kbo(:,51, 4) = (/ &\n     &6.7375e-05_rb,7.8667e-05_rb,9.3691e-05_rb,1.0967e-04_rb,1.2714e-04_rb/)\n      kbo(:,52, 4) = (/ &\n     &5.2333e-05_rb,6.1321e-05_rb,7.2765e-05_rb,8.6008e-05_rb,9.9915e-05_rb/)\n      kbo(:,53, 4) = (/ &\n     &4.0658e-05_rb,4.7664e-05_rb,5.6514e-05_rb,6.7300e-05_rb,7.8701e-05_rb/)\n      kbo(:,54, 4) = (/ &\n     &3.1857e-05_rb,3.7478e-05_rb,4.4306e-05_rb,5.3025e-05_rb,6.2299e-05_rb/)\n      kbo(:,55, 4) = (/ &\n     &2.4955e-05_rb,2.9435e-05_rb,3.4823e-05_rb,4.1578e-05_rb,4.9419e-05_rb/)\n      kbo(:,56, 4) = (/ &\n     &1.9655e-05_rb,2.3009e-05_rb,2.7169e-05_rb,3.2570e-05_rb,3.9005e-05_rb/)\n      kbo(:,57, 4) = (/ &\n     &1.5476e-05_rb,1.8100e-05_rb,2.1340e-05_rb,2.5521e-05_rb,3.0667e-05_rb/)\n      kbo(:,58, 4) = (/ &\n     &1.2154e-05_rb,1.4292e-05_rb,1.6827e-05_rb,2.0050e-05_rb,2.4167e-05_rb/)\n      kbo(:,59, 4) = (/ &\n     &9.8901e-06_rb,1.1647e-05_rb,1.3760e-05_rb,1.6454e-05_rb,1.9831e-05_rb/)\n      kbo(:,13, 5) = (/ &\n     &1.3634e-01_rb,1.4252e-01_rb,1.5001e-01_rb,1.6028e-01_rb,1.7134e-01_rb/)\n      kbo(:,14, 5) = (/ &\n     &1.1274e-01_rb,1.1839e-01_rb,1.2582e-01_rb,1.3453e-01_rb,1.4378e-01_rb/)\n      kbo(:,15, 5) = (/ &\n     &9.3550e-02_rb,9.9682e-02_rb,1.0681e-01_rb,1.1432e-01_rb,1.2335e-01_rb/)\n      kbo(:,16, 5) = (/ &\n     &7.9704e-02_rb,8.5926e-02_rb,9.2006e-02_rb,9.9216e-02_rb,1.0669e-01_rb/)\n      kbo(:,17, 5) = (/ &\n     &6.9562e-02_rb,7.4399e-02_rb,8.0031e-02_rb,8.6090e-02_rb,9.3210e-02_rb/)\n      kbo(:,18, 5) = (/ &\n     &6.1028e-02_rb,6.5373e-02_rb,7.1097e-02_rb,7.7143e-02_rb,8.4153e-02_rb/)\n      kbo(:,19, 5) = (/ &\n     &5.4138e-02_rb,5.9145e-02_rb,6.4366e-02_rb,7.0461e-02_rb,7.6822e-02_rb/)\n      kbo(:,20, 5) = (/ &\n     &4.7698e-02_rb,5.2419e-02_rb,5.7657e-02_rb,6.3398e-02_rb,6.9523e-02_rb/)\n      kbo(:,21, 5) = (/ &\n     &4.2126e-02_rb,4.6323e-02_rb,5.1164e-02_rb,5.6007e-02_rb,6.1597e-02_rb/)\n      kbo(:,22, 5) = (/ &\n     &3.6873e-02_rb,4.0763e-02_rb,4.4958e-02_rb,4.9556e-02_rb,5.4204e-02_rb/)\n      kbo(:,23, 5) = (/ &\n     &3.2201e-02_rb,3.5761e-02_rb,3.9530e-02_rb,4.3670e-02_rb,4.7920e-02_rb/)\n      kbo(:,24, 5) = (/ &\n     &2.8239e-02_rb,3.1305e-02_rb,3.4844e-02_rb,3.8415e-02_rb,4.2157e-02_rb/)\n      kbo(:,25, 5) = (/ &\n     &2.4669e-02_rb,2.7511e-02_rb,3.0568e-02_rb,3.3769e-02_rb,3.6890e-02_rb/)\n      kbo(:,26, 5) = (/ &\n     &2.1582e-02_rb,2.4173e-02_rb,2.6811e-02_rb,2.9496e-02_rb,3.2330e-02_rb/)\n      kbo(:,27, 5) = (/ &\n     &1.8849e-02_rb,2.1094e-02_rb,2.3446e-02_rb,2.5755e-02_rb,2.8374e-02_rb/)\n      kbo(:,28, 5) = (/ &\n     &1.6379e-02_rb,1.8330e-02_rb,2.0367e-02_rb,2.2542e-02_rb,2.4931e-02_rb/)\n      kbo(:,29, 5) = (/ &\n     &1.4280e-02_rb,1.5993e-02_rb,1.7723e-02_rb,1.9736e-02_rb,2.1895e-02_rb/)\n      kbo(:,30, 5) = (/ &\n     &1.2451e-02_rb,1.3902e-02_rb,1.5477e-02_rb,1.7322e-02_rb,1.9234e-02_rb/)\n      kbo(:,31, 5) = (/ &\n     &1.0840e-02_rb,1.2122e-02_rb,1.3593e-02_rb,1.5159e-02_rb,1.6921e-02_rb/)\n      kbo(:,32, 5) = (/ &\n     &9.4753e-03_rb,1.0651e-02_rb,1.1992e-02_rb,1.3397e-02_rb,1.4887e-02_rb/)\n      kbo(:,33, 5) = (/ &\n     &8.3358e-03_rb,9.4249e-03_rb,1.0592e-02_rb,1.1871e-02_rb,1.3208e-02_rb/)\n      kbo(:,34, 5) = (/ &\n     &7.3799e-03_rb,8.3765e-03_rb,9.4456e-03_rb,1.0582e-02_rb,1.1863e-02_rb/)\n      kbo(:,35, 5) = (/ &\n     &6.4631e-03_rb,7.3628e-03_rb,8.3364e-03_rb,9.3419e-03_rb,1.0526e-02_rb/)\n      kbo(:,36, 5) = (/ &\n     &5.5926e-03_rb,6.3888e-03_rb,7.2585e-03_rb,8.2192e-03_rb,9.2462e-03_rb/)\n      kbo(:,37, 5) = (/ &\n     &4.7015e-03_rb,5.3951e-03_rb,6.1680e-03_rb,7.0229e-03_rb,7.9329e-03_rb/)\n      kbo(:,38, 5) = (/ &\n     &3.9517e-03_rb,4.5644e-03_rb,5.2429e-03_rb,6.0141e-03_rb,6.8184e-03_rb/)\n      kbo(:,39, 5) = (/ &\n     &3.3266e-03_rb,3.8629e-03_rb,4.4575e-03_rb,5.1473e-03_rb,5.8646e-03_rb/)\n      kbo(:,40, 5) = (/ &\n     &2.7281e-03_rb,3.1818e-03_rb,3.6932e-03_rb,4.2742e-03_rb,4.8976e-03_rb/)\n      kbo(:,41, 5) = (/ &\n     &2.2270e-03_rb,2.6113e-03_rb,3.0386e-03_rb,3.5308e-03_rb,4.0601e-03_rb/)\n      kbo(:,42, 5) = (/ &\n     &1.8093e-03_rb,2.1403e-03_rb,2.4947e-03_rb,2.9136e-03_rb,3.3566e-03_rb/)\n      kbo(:,43, 5) = (/ &\n     &1.4510e-03_rb,1.7247e-03_rb,2.0294e-03_rb,2.3716e-03_rb,2.7407e-03_rb/)\n      kbo(:,44, 5) = (/ &\n     &1.1565e-03_rb,1.3809e-03_rb,1.6356e-03_rb,1.9170e-03_rb,2.2199e-03_rb/)\n      kbo(:,45, 5) = (/ &\n     &9.2074e-04_rb,1.1011e-03_rb,1.3110e-03_rb,1.5432e-03_rb,1.7974e-03_rb/)\n      kbo(:,46, 5) = (/ &\n     &7.2799e-04_rb,8.7147e-04_rb,1.0468e-03_rb,1.2375e-03_rb,1.4475e-03_rb/)\n      kbo(:,47, 5) = (/ &\n     &5.6825e-04_rb,6.8576e-04_rb,8.2827e-04_rb,9.8300e-04_rb,1.1595e-03_rb/)\n      kbo(:,48, 5) = (/ &\n     &4.4362e-04_rb,5.3785e-04_rb,6.5132e-04_rb,7.7947e-04_rb,9.2729e-04_rb/)\n      kbo(:,49, 5) = (/ &\n     &3.4360e-04_rb,4.2004e-04_rb,5.1060e-04_rb,6.1673e-04_rb,7.3913e-04_rb/)\n      kbo(:,50, 5) = (/ &\n     &2.6639e-04_rb,3.2974e-04_rb,4.0310e-04_rb,4.8991e-04_rb,5.9182e-04_rb/)\n      kbo(:,51, 5) = (/ &\n     &2.0705e-04_rb,2.5803e-04_rb,3.1790e-04_rb,3.8886e-04_rb,4.7401e-04_rb/)\n      kbo(:,52, 5) = (/ &\n     &1.6104e-04_rb,2.0156e-04_rb,2.4998e-04_rb,3.0713e-04_rb,3.7759e-04_rb/)\n      kbo(:,53, 5) = (/ &\n     &1.2422e-04_rb,1.5670e-04_rb,1.9587e-04_rb,2.4211e-04_rb,2.9925e-04_rb/)\n      kbo(:,54, 5) = (/ &\n     &9.6443e-05_rb,1.2239e-04_rb,1.5459e-04_rb,1.9203e-04_rb,2.3866e-04_rb/)\n      kbo(:,55, 5) = (/ &\n     &7.5345e-05_rb,9.6163e-05_rb,1.2185e-04_rb,1.5278e-04_rb,1.9092e-04_rb/)\n      kbo(:,56, 5) = (/ &\n     &5.8479e-05_rb,7.5388e-05_rb,9.6163e-05_rb,1.2109e-04_rb,1.5224e-04_rb/)\n      kbo(:,57, 5) = (/ &\n     &4.5173e-05_rb,5.8728e-05_rb,7.5432e-05_rb,9.5735e-05_rb,1.2084e-04_rb/)\n      kbo(:,58, 5) = (/ &\n     &3.5110e-05_rb,4.5659e-05_rb,5.9108e-05_rb,7.5684e-05_rb,9.5780e-05_rb/)\n      kbo(:,59, 5) = (/ &\n     &2.8669e-05_rb,3.7452e-05_rb,4.8577e-05_rb,6.2553e-05_rb,7.9913e-05_rb/)\n      kbo(:,13, 6) = (/ &\n     &3.1943e-01_rb,3.3627e-01_rb,3.5152e-01_rb,3.6856e-01_rb,3.8489e-01_rb/)\n      kbo(:,14, 6) = (/ &\n     &2.6955e-01_rb,2.8315e-01_rb,2.9631e-01_rb,3.1035e-01_rb,3.2480e-01_rb/)\n      kbo(:,15, 6) = (/ &\n     &2.2744e-01_rb,2.3792e-01_rb,2.4935e-01_rb,2.6127e-01_rb,2.7359e-01_rb/)\n      kbo(:,16, 6) = (/ &\n     &1.9190e-01_rb,2.0128e-01_rb,2.1209e-01_rb,2.2354e-01_rb,2.3634e-01_rb/)\n      kbo(:,17, 6) = (/ &\n     &1.6550e-01_rb,1.7572e-01_rb,1.8575e-01_rb,1.9639e-01_rb,2.0864e-01_rb/)\n      kbo(:,18, 6) = (/ &\n     &1.4664e-01_rb,1.5533e-01_rb,1.6464e-01_rb,1.7496e-01_rb,1.8532e-01_rb/)\n      kbo(:,19, 6) = (/ &\n     &1.3086e-01_rb,1.3857e-01_rb,1.4754e-01_rb,1.5676e-01_rb,1.6804e-01_rb/)\n      kbo(:,20, 6) = (/ &\n     &1.1476e-01_rb,1.2256e-01_rb,1.3048e-01_rb,1.3999e-01_rb,1.5052e-01_rb/)\n      kbo(:,21, 6) = (/ &\n     &1.0042e-01_rb,1.0755e-01_rb,1.1552e-01_rb,1.2457e-01_rb,1.3541e-01_rb/)\n      kbo(:,22, 6) = (/ &\n     &8.7811e-02_rb,9.4376e-02_rb,1.0240e-01_rb,1.1139e-01_rb,1.2190e-01_rb/)\n      kbo(:,23, 6) = (/ &\n     &7.6746e-02_rb,8.3440e-02_rb,9.0958e-02_rb,9.9436e-02_rb,1.0837e-01_rb/)\n      kbo(:,24, 6) = (/ &\n     &6.7020e-02_rb,7.3597e-02_rb,8.0186e-02_rb,8.7655e-02_rb,9.5847e-02_rb/)\n      kbo(:,25, 6) = (/ &\n     &5.8852e-02_rb,6.4342e-02_rb,7.0651e-02_rb,7.7553e-02_rb,8.5595e-02_rb/)\n      kbo(:,26, 6) = (/ &\n     &5.1501e-02_rb,5.6677e-02_rb,6.2671e-02_rb,6.9309e-02_rb,7.6862e-02_rb/)\n      kbo(:,27, 6) = (/ &\n     &4.5068e-02_rb,5.0089e-02_rb,5.5571e-02_rb,6.2056e-02_rb,6.8532e-02_rb/)\n      kbo(:,28, 6) = (/ &\n     &3.9606e-02_rb,4.4193e-02_rb,4.9408e-02_rb,5.5057e-02_rb,6.0956e-02_rb/)\n      kbo(:,29, 6) = (/ &\n     &3.4989e-02_rb,3.9176e-02_rb,4.4032e-02_rb,4.9174e-02_rb,5.4655e-02_rb/)\n      kbo(:,30, 6) = (/ &\n     &3.0943e-02_rb,3.4971e-02_rb,3.9398e-02_rb,4.4027e-02_rb,4.9163e-02_rb/)\n      kbo(:,31, 6) = (/ &\n     &2.7553e-02_rb,3.1287e-02_rb,3.5351e-02_rb,3.9782e-02_rb,4.4558e-02_rb/)\n      kbo(:,32, 6) = (/ &\n     &2.4710e-02_rb,2.8155e-02_rb,3.1869e-02_rb,3.6099e-02_rb,4.0666e-02_rb/)\n      kbo(:,33, 6) = (/ &\n     &2.2173e-02_rb,2.5362e-02_rb,2.8990e-02_rb,3.2965e-02_rb,3.7297e-02_rb/)\n      kbo(:,34, 6) = (/ &\n     &2.0107e-02_rb,2.3109e-02_rb,2.6574e-02_rb,3.0332e-02_rb,3.4357e-02_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.8022e-02_rb,2.0877e-02_rb,2.4132e-02_rb,2.7710e-02_rb,3.1520e-02_rb/)\n      kbo(:,36, 6) = (/ &\n     &1.5963e-02_rb,1.8659e-02_rb,2.1660e-02_rb,2.4929e-02_rb,2.8560e-02_rb/)\n      kbo(:,37, 6) = (/ &\n     &1.3764e-02_rb,1.6188e-02_rb,1.8916e-02_rb,2.1932e-02_rb,2.5294e-02_rb/)\n      kbo(:,38, 6) = (/ &\n     &1.1849e-02_rb,1.4028e-02_rb,1.6494e-02_rb,1.9269e-02_rb,2.2340e-02_rb/)\n      kbo(:,39, 6) = (/ &\n     &1.0207e-02_rb,1.2194e-02_rb,1.4401e-02_rb,1.6941e-02_rb,1.9796e-02_rb/)\n      kbo(:,40, 6) = (/ &\n     &8.5573e-03_rb,1.0315e-02_rb,1.2260e-02_rb,1.4559e-02_rb,1.7141e-02_rb/)\n      kbo(:,41, 6) = (/ &\n     &7.1290e-03_rb,8.6738e-03_rb,1.0403e-02_rb,1.2445e-02_rb,1.4801e-02_rb/)\n      kbo(:,42, 6) = (/ &\n     &5.9179e-03_rb,7.2709e-03_rb,8.8122e-03_rb,1.0627e-02_rb,1.2787e-02_rb/)\n      kbo(:,43, 6) = (/ &\n     &4.8318e-03_rb,5.9892e-03_rb,7.3334e-03_rb,8.9514e-03_rb,1.0874e-02_rb/)\n      kbo(:,44, 6) = (/ &\n     &3.8999e-03_rb,4.8767e-03_rb,6.0501e-03_rb,7.4816e-03_rb,9.1794e-03_rb/)\n      kbo(:,45, 6) = (/ &\n     &3.1360e-03_rb,3.9601e-03_rb,4.9837e-03_rb,6.2240e-03_rb,7.7311e-03_rb/)\n      kbo(:,46, 6) = (/ &\n     &2.5027e-03_rb,3.1827e-03_rb,4.0540e-03_rb,5.1329e-03_rb,6.4480e-03_rb/)\n      kbo(:,47, 6) = (/ &\n     &1.9756e-03_rb,2.5273e-03_rb,3.2610e-03_rb,4.1749e-03_rb,5.3122e-03_rb/)\n      kbo(:,48, 6) = (/ &\n     &1.5473e-03_rb,1.9960e-03_rb,2.6043e-03_rb,3.3772e-03_rb,4.3437e-03_rb/)\n      kbo(:,49, 6) = (/ &\n     &1.2068e-03_rb,1.5706e-03_rb,2.0674e-03_rb,2.7091e-03_rb,3.5307e-03_rb/)\n      kbo(:,50, 6) = (/ &\n     &9.4521e-04_rb,1.2396e-03_rb,1.6445e-03_rb,2.1801e-03_rb,2.8792e-03_rb/)\n      kbo(:,51, 6) = (/ &\n     &7.3804e-04_rb,9.7746e-04_rb,1.3076e-03_rb,1.7542e-03_rb,2.3409e-03_rb/)\n      kbo(:,52, 6) = (/ &\n     &5.7206e-04_rb,7.6763e-04_rb,1.0338e-03_rb,1.4015e-03_rb,1.8909e-03_rb/)\n      kbo(:,53, 6) = (/ &\n     &4.4225e-04_rb,5.9805e-04_rb,8.1248e-04_rb,1.1113e-03_rb,1.5170e-03_rb/)\n      kbo(:,54, 6) = (/ &\n     &3.4467e-04_rb,4.7010e-04_rb,6.4272e-04_rb,8.8848e-04_rb,1.2276e-03_rb/)\n      kbo(:,55, 6) = (/ &\n     &2.6885e-04_rb,3.6925e-04_rb,5.1051e-04_rb,7.1238e-04_rb,9.9424e-04_rb/)\n      kbo(:,56, 6) = (/ &\n     &2.0891e-04_rb,2.8866e-04_rb,4.0323e-04_rb,5.6854e-04_rb,8.0318e-04_rb/)\n      kbo(:,57, 6) = (/ &\n     &1.6206e-04_rb,2.2457e-04_rb,3.1663e-04_rb,4.5154e-04_rb,6.4436e-04_rb/)\n      kbo(:,58, 6) = (/ &\n     &1.2565e-04_rb,1.7534e-04_rb,2.4919e-04_rb,3.5849e-04_rb,5.1835e-04_rb/)\n      kbo(:,59, 6) = (/ &\n     &1.0370e-04_rb,1.4590e-04_rb,2.0972e-04_rb,3.0572e-04_rb,4.4824e-04_rb/)\n      kbo(:,13, 7) = (/ &\n     &8.6885e-01_rb,8.9426e-01_rb,9.2071e-01_rb,9.5081e-01_rb,9.7593e-01_rb/)\n      kbo(:,14, 7) = (/ &\n     &7.3422e-01_rb,7.5692e-01_rb,7.8528e-01_rb,8.1141e-01_rb,8.3349e-01_rb/)\n      kbo(:,15, 7) = (/ &\n     &6.1192e-01_rb,6.3447e-01_rb,6.5837e-01_rb,6.7854e-01_rb,7.0269e-01_rb/)\n      kbo(:,16, 7) = (/ &\n     &5.0884e-01_rb,5.2842e-01_rb,5.4670e-01_rb,5.6627e-01_rb,5.8867e-01_rb/)\n      kbo(:,17, 7) = (/ &\n     &4.3640e-01_rb,4.5419e-01_rb,4.7288e-01_rb,4.9197e-01_rb,5.1336e-01_rb/)\n      kbo(:,18, 7) = (/ &\n     &3.8407e-01_rb,4.0203e-01_rb,4.1993e-01_rb,4.4018e-01_rb,4.6362e-01_rb/)\n      kbo(:,19, 7) = (/ &\n     &3.4228e-01_rb,3.5912e-01_rb,3.7740e-01_rb,3.9888e-01_rb,4.2103e-01_rb/)\n      kbo(:,20, 7) = (/ &\n     &3.0199e-01_rb,3.1730e-01_rb,3.3484e-01_rb,3.5351e-01_rb,3.7675e-01_rb/)\n      kbo(:,21, 7) = (/ &\n     &2.6553e-01_rb,2.8042e-01_rb,2.9603e-01_rb,3.1609e-01_rb,3.3882e-01_rb/)\n      kbo(:,22, 7) = (/ &\n     &2.3320e-01_rb,2.4726e-01_rb,2.6434e-01_rb,2.8368e-01_rb,3.0736e-01_rb/)\n      kbo(:,23, 7) = (/ &\n     &2.0578e-01_rb,2.1941e-01_rb,2.3579e-01_rb,2.5629e-01_rb,2.8224e-01_rb/)\n      kbo(:,24, 7) = (/ &\n     &1.8045e-01_rb,1.9362e-01_rb,2.1135e-01_rb,2.3376e-01_rb,2.5793e-01_rb/)\n      kbo(:,25, 7) = (/ &\n     &1.5885e-01_rb,1.7311e-01_rb,1.9174e-01_rb,2.1249e-01_rb,2.3261e-01_rb/)\n      kbo(:,26, 7) = (/ &\n     &1.4101e-01_rb,1.5639e-01_rb,1.7418e-01_rb,1.9114e-01_rb,2.1048e-01_rb/)\n      kbo(:,27, 7) = (/ &\n     &1.2599e-01_rb,1.4076e-01_rb,1.5557e-01_rb,1.7183e-01_rb,1.9023e-01_rb/)\n      kbo(:,28, 7) = (/ &\n     &1.1218e-01_rb,1.2546e-01_rb,1.3903e-01_rb,1.5482e-01_rb,1.7215e-01_rb/)\n      kbo(:,29, 7) = (/ &\n     &1.0072e-01_rb,1.1254e-01_rb,1.2583e-01_rb,1.4062e-01_rb,1.5650e-01_rb/)\n      kbo(:,30, 7) = (/ &\n     &9.0713e-02_rb,1.0192e-01_rb,1.1464e-01_rb,1.2854e-01_rb,1.4398e-01_rb/)\n      kbo(:,31, 7) = (/ &\n     &8.2277e-02_rb,9.3097e-02_rb,1.0524e-01_rb,1.1856e-01_rb,1.3355e-01_rb/)\n      kbo(:,32, 7) = (/ &\n     &7.5303e-02_rb,8.5763e-02_rb,9.7401e-02_rb,1.1054e-01_rb,1.2526e-01_rb/)\n      kbo(:,33, 7) = (/ &\n     &6.9506e-02_rb,7.9549e-02_rb,9.0902e-02_rb,1.0398e-01_rb,1.1862e-01_rb/)\n      kbo(:,34, 7) = (/ &\n     &6.4727e-02_rb,7.4554e-02_rb,8.5918e-02_rb,9.8930e-02_rb,1.1374e-01_rb/)\n      kbo(:,35, 7) = (/ &\n     &5.9573e-02_rb,6.9480e-02_rb,8.0602e-02_rb,9.3549e-02_rb,1.0847e-01_rb/)\n      kbo(:,36, 7) = (/ &\n     &5.4200e-02_rb,6.3825e-02_rb,7.4842e-02_rb,8.7689e-02_rb,1.0224e-01_rb/)\n      kbo(:,37, 7) = (/ &\n     &4.7941e-02_rb,5.7083e-02_rb,6.7560e-02_rb,8.0041e-02_rb,9.3919e-02_rb/)\n      kbo(:,38, 7) = (/ &\n     &4.2423e-02_rb,5.1057e-02_rb,6.0983e-02_rb,7.2873e-02_rb,8.6484e-02_rb/)\n      kbo(:,39, 7) = (/ &\n     &3.7589e-02_rb,4.5606e-02_rb,5.5155e-02_rb,6.6511e-02_rb,7.9703e-02_rb/)\n      kbo(:,40, 7) = (/ &\n     &3.2287e-02_rb,3.9605e-02_rb,4.8489e-02_rb,5.9153e-02_rb,7.1379e-02_rb/)\n      kbo(:,41, 7) = (/ &\n     &2.7611e-02_rb,3.4241e-02_rb,4.2425e-02_rb,5.2312e-02_rb,6.3597e-02_rb/)\n      kbo(:,42, 7) = (/ &\n     &2.3526e-02_rb,2.9544e-02_rb,3.7050e-02_rb,4.6066e-02_rb,5.6624e-02_rb/)\n      kbo(:,43, 7) = (/ &\n     &1.9724e-02_rb,2.5077e-02_rb,3.1787e-02_rb,3.9922e-02_rb,4.9656e-02_rb/)\n      kbo(:,44, 7) = (/ &\n     &1.6360e-02_rb,2.1054e-02_rb,2.6994e-02_rb,3.4254e-02_rb,4.3106e-02_rb/)\n      kbo(:,45, 7) = (/ &\n     &1.3479e-02_rb,1.7563e-02_rb,2.2810e-02_rb,2.9308e-02_rb,3.7331e-02_rb/)\n      kbo(:,46, 7) = (/ &\n     &1.0982e-02_rb,1.4524e-02_rb,1.9109e-02_rb,2.4872e-02_rb,3.2032e-02_rb/)\n      kbo(:,47, 7) = (/ &\n     &8.8182e-03_rb,1.1815e-02_rb,1.5755e-02_rb,2.0785e-02_rb,2.7117e-02_rb/)\n      kbo(:,48, 7) = (/ &\n     &7.0297e-03_rb,9.5228e-03_rb,1.2883e-02_rb,1.7248e-02_rb,2.2808e-02_rb/)\n      kbo(:,49, 7) = (/ &\n     &5.5570e-03_rb,7.6141e-03_rb,1.0446e-02_rb,1.4193e-02_rb,1.9030e-02_rb/)\n      kbo(:,50, 7) = (/ &\n     &4.4018e-03_rb,6.0988e-03_rb,8.5078e-03_rb,1.1727e-02_rb,1.5958e-02_rb/)\n      kbo(:,51, 7) = (/ &\n     &3.4813e-03_rb,4.8790e-03_rb,6.9087e-03_rb,9.6740e-03_rb,1.3370e-02_rb/)\n      kbo(:,52, 7) = (/ &\n     &2.7259e-03_rb,3.8645e-03_rb,5.5503e-03_rb,7.9313e-03_rb,1.1133e-02_rb/)\n      kbo(:,53, 7) = (/ &\n     &2.1153e-03_rb,3.0336e-03_rb,4.4195e-03_rb,6.4300e-03_rb,9.1714e-03_rb/)\n      kbo(:,54, 7) = (/ &\n     &1.6649e-03_rb,2.4099e-03_rb,3.5602e-03_rb,5.2651e-03_rb,7.6558e-03_rb/)\n      kbo(:,55, 7) = (/ &\n     &1.3120e-03_rb,1.9223e-03_rb,2.8746e-03_rb,4.3204e-03_rb,6.4144e-03_rb/)\n      kbo(:,56, 7) = (/ &\n     &1.0280e-03_rb,1.5213e-03_rb,2.3034e-03_rb,3.5254e-03_rb,5.3355e-03_rb/)\n      kbo(:,57, 7) = (/ &\n     &8.0119e-04_rb,1.1961e-03_rb,1.8353e-03_rb,2.8565e-03_rb,4.4054e-03_rb/)\n      kbo(:,58, 7) = (/ &\n     &6.2596e-04_rb,9.4223e-04_rb,1.4648e-03_rb,2.3194e-03_rb,3.6416e-03_rb/)\n      kbo(:,59, 7) = (/ &\n     &5.2923e-04_rb,8.1079e-04_rb,1.2847e-03_rb,2.0681e-03_rb,3.3065e-03_rb/)\n      kbo(:,13, 8) = (/ &\n     &3.0137e+00_rb,3.0721e+00_rb,3.1135e+00_rb,3.1353e+00_rb,3.1526e+00_rb/)\n      kbo(:,14, 8) = (/ &\n     &2.5881e+00_rb,2.6331e+00_rb,2.6669e+00_rb,2.6887e+00_rb,2.7106e+00_rb/)\n      kbo(:,15, 8) = (/ &\n     &2.2017e+00_rb,2.2477e+00_rb,2.2747e+00_rb,2.3022e+00_rb,2.3199e+00_rb/)\n      kbo(:,16, 8) = (/ &\n     &1.8745e+00_rb,1.9119e+00_rb,1.9407e+00_rb,1.9650e+00_rb,1.9910e+00_rb/)\n      kbo(:,17, 8) = (/ &\n     &1.5865e+00_rb,1.6181e+00_rb,1.6438e+00_rb,1.6744e+00_rb,1.7044e+00_rb/)\n      kbo(:,18, 8) = (/ &\n     &1.3469e+00_rb,1.3737e+00_rb,1.4061e+00_rb,1.4422e+00_rb,1.4784e+00_rb/)\n      kbo(:,19, 8) = (/ &\n     &1.1589e+00_rb,1.1936e+00_rb,1.2348e+00_rb,1.2728e+00_rb,1.3146e+00_rb/)\n      kbo(:,20, 8) = (/ &\n     &1.0242e+00_rb,1.0660e+00_rb,1.1056e+00_rb,1.1466e+00_rb,1.1869e+00_rb/)\n      kbo(:,21, 8) = (/ &\n     &9.1121e-01_rb,9.5273e-01_rb,9.9427e-01_rb,1.0332e+00_rb,1.0710e+00_rb/)\n      kbo(:,22, 8) = (/ &\n     &8.0647e-01_rb,8.4440e-01_rb,8.8114e-01_rb,9.1866e-01_rb,9.5785e-01_rb/)\n      kbo(:,23, 8) = (/ &\n     &7.0834e-01_rb,7.4542e-01_rb,7.7998e-01_rb,8.1759e-01_rb,8.5850e-01_rb/)\n      kbo(:,24, 8) = (/ &\n     &6.2177e-01_rb,6.5425e-01_rb,6.8799e-01_rb,7.2751e-01_rb,7.7799e-01_rb/)\n      kbo(:,25, 8) = (/ &\n     &5.4589e-01_rb,5.7729e-01_rb,6.1309e-01_rb,6.5804e-01_rb,7.1412e-01_rb/)\n      kbo(:,26, 8) = (/ &\n     &4.8128e-01_rb,5.1418e-01_rb,5.5324e-01_rb,6.0347e-01_rb,6.6308e-01_rb/)\n      kbo(:,27, 8) = (/ &\n     &4.2682e-01_rb,4.6055e-01_rb,5.0524e-01_rb,5.5765e-01_rb,6.2135e-01_rb/)\n      kbo(:,28, 8) = (/ &\n     &3.8006e-01_rb,4.1721e-01_rb,4.6337e-01_rb,5.1919e-01_rb,5.8322e-01_rb/)\n      kbo(:,29, 8) = (/ &\n     &3.4196e-01_rb,3.8125e-01_rb,4.2943e-01_rb,4.8588e-01_rb,5.5221e-01_rb/)\n      kbo(:,30, 8) = (/ &\n     &3.1093e-01_rb,3.5114e-01_rb,4.0038e-01_rb,4.5863e-01_rb,5.2276e-01_rb/)\n      kbo(:,31, 8) = (/ &\n     &2.8616e-01_rb,3.2668e-01_rb,3.7633e-01_rb,4.3472e-01_rb,4.9941e-01_rb/)\n      kbo(:,32, 8) = (/ &\n     &2.6688e-01_rb,3.0820e-01_rb,3.5883e-01_rb,4.1523e-01_rb,4.8206e-01_rb/)\n      kbo(:,33, 8) = (/ &\n     &2.5149e-01_rb,2.9538e-01_rb,3.4473e-01_rb,4.0327e-01_rb,4.6953e-01_rb/)\n      kbo(:,34, 8) = (/ &\n     &2.4069e-01_rb,2.8516e-01_rb,3.3563e-01_rb,3.9421e-01_rb,4.6040e-01_rb/)\n      kbo(:,35, 8) = (/ &\n     &2.2923e-01_rb,2.7328e-01_rb,3.2510e-01_rb,3.8300e-01_rb,4.4899e-01_rb/)\n      kbo(:,36, 8) = (/ &\n     &2.1677e-01_rb,2.6037e-01_rb,3.1183e-01_rb,3.6883e-01_rb,4.3509e-01_rb/)\n      kbo(:,37, 8) = (/ &\n     &1.9848e-01_rb,2.3986e-01_rb,2.8965e-01_rb,3.4421e-01_rb,4.0854e-01_rb/)\n      kbo(:,38, 8) = (/ &\n     &1.8143e-01_rb,2.2127e-01_rb,2.6901e-01_rb,3.2212e-01_rb,3.8468e-01_rb/)\n      kbo(:,39, 8) = (/ &\n     &1.6606e-01_rb,2.0455e-01_rb,2.5024e-01_rb,3.0203e-01_rb,3.6363e-01_rb/)\n      kbo(:,40, 8) = (/ &\n     &1.4741e-01_rb,1.8322e-01_rb,2.2603e-01_rb,2.7520e-01_rb,3.3417e-01_rb/)\n      kbo(:,41, 8) = (/ &\n     &1.3011e-01_rb,1.6308e-01_rb,2.0319e-01_rb,2.4965e-01_rb,3.0588e-01_rb/)\n      kbo(:,42, 8) = (/ &\n     &1.1484e-01_rb,1.4491e-01_rb,1.8233e-01_rb,2.2638e-01_rb,2.7964e-01_rb/)\n      kbo(:,43, 8) = (/ &\n     &9.9279e-02_rb,1.2633e-01_rb,1.6039e-01_rb,2.0179e-01_rb,2.5143e-01_rb/)\n      kbo(:,44, 8) = (/ &\n     &8.4904e-02_rb,1.0929e-01_rb,1.3953e-01_rb,1.7766e-01_rb,2.2379e-01_rb/)\n      kbo(:,45, 8) = (/ &\n     &7.2367e-02_rb,9.4015e-02_rb,1.2097e-01_rb,1.5526e-01_rb,1.9786e-01_rb/)\n      kbo(:,46, 8) = (/ &\n     &6.1012e-02_rb,8.0269e-02_rb,1.0419e-01_rb,1.3470e-01_rb,1.7331e-01_rb/)\n      kbo(:,47, 8) = (/ &\n     &5.0418e-02_rb,6.7581e-02_rb,8.8667e-02_rb,1.1556e-01_rb,1.5023e-01_rb/)\n      kbo(:,48, 8) = (/ &\n     &4.1555e-02_rb,5.6345e-02_rb,7.4999e-02_rb,9.8811e-02_rb,1.2934e-01_rb/)\n      kbo(:,49, 8) = (/ &\n     &3.3904e-02_rb,4.6392e-02_rb,6.2939e-02_rb,8.3873e-02_rb,1.1077e-01_rb/)\n      kbo(:,50, 8) = (/ &\n     &2.7924e-02_rb,3.8644e-02_rb,5.3103e-02_rb,7.1817e-02_rb,9.5860e-02_rb/)\n      kbo(:,51, 8) = (/ &\n     &2.3027e-02_rb,3.2254e-02_rb,4.4770e-02_rb,6.1630e-02_rb,8.3189e-02_rb/)\n      kbo(:,52, 8) = (/ &\n     &1.8860e-02_rb,2.6783e-02_rb,3.7563e-02_rb,5.2481e-02_rb,7.1941e-02_rb/)\n      kbo(:,53, 8) = (/ &\n     &1.5315e-02_rb,2.2045e-02_rb,3.1363e-02_rb,4.4231e-02_rb,6.1710e-02_rb/)\n      kbo(:,54, 8) = (/ &\n     &1.2583e-02_rb,1.8403e-02_rb,2.6586e-02_rb,3.7901e-02_rb,5.3727e-02_rb/)\n      kbo(:,55, 8) = (/ &\n     &1.0382e-02_rb,1.5404e-02_rb,2.2584e-02_rb,3.2684e-02_rb,4.7053e-02_rb/)\n      kbo(:,56, 8) = (/ &\n     &8.4944e-03_rb,1.2799e-02_rb,1.9133e-02_rb,2.8106e-02_rb,4.1010e-02_rb/)\n      kbo(:,57, 8) = (/ &\n     &6.8852e-03_rb,1.0598e-02_rb,1.6081e-02_rb,2.3991e-02_rb,3.5498e-02_rb/)\n      kbo(:,58, 8) = (/ &\n     &5.5895e-03_rb,8.7768e-03_rb,1.3535e-02_rb,2.0567e-02_rb,3.0872e-02_rb/)\n      kbo(:,59, 8) = (/ &\n     &4.9705e-03_rb,7.9600e-03_rb,1.2473e-02_rb,1.9319e-02_rb,2.9463e-02_rb/)\n      kbo(:,13, 9) = (/ &\n     &1.4590e+01_rb,1.4670e+01_rb,1.4841e+01_rb,1.4854e+01_rb,1.4880e+01_rb/)\n      kbo(:,14, 9) = (/ &\n     &1.3239e+01_rb,1.3368e+01_rb,1.3423e+01_rb,1.3479e+01_rb,1.3588e+01_rb/)\n      kbo(:,15, 9) = (/ &\n     &1.1801e+01_rb,1.1873e+01_rb,1.1983e+01_rb,1.2092e+01_rb,1.2194e+01_rb/)\n      kbo(:,16, 9) = (/ &\n     &1.0397e+01_rb,1.0519e+01_rb,1.0636e+01_rb,1.0761e+01_rb,1.0910e+01_rb/)\n      kbo(:,17, 9) = (/ &\n     &9.1941e+00_rb,9.3273e+00_rb,9.4699e+00_rb,9.6116e+00_rb,9.7497e+00_rb/)\n      kbo(:,18, 9) = (/ &\n     &8.2105e+00_rb,8.3532e+00_rb,8.4897e+00_rb,8.6223e+00_rb,8.7373e+00_rb/)\n      kbo(:,19, 9) = (/ &\n     &7.2827e+00_rb,7.4240e+00_rb,7.5562e+00_rb,7.6727e+00_rb,7.7914e+00_rb/)\n      kbo(:,20, 9) = (/ &\n     &6.3721e+00_rb,6.4943e+00_rb,6.6028e+00_rb,6.7186e+00_rb,6.8391e+00_rb/)\n      kbo(:,21, 9) = (/ &\n     &5.5515e+00_rb,5.6468e+00_rb,5.7503e+00_rb,5.8563e+00_rb,5.9656e+00_rb/)\n      kbo(:,22, 9) = (/ &\n     &4.8000e+00_rb,4.8972e+00_rb,4.9944e+00_rb,5.1084e+00_rb,5.2408e+00_rb/)\n      kbo(:,23, 9) = (/ &\n     &4.1624e+00_rb,4.2656e+00_rb,4.3811e+00_rb,4.5085e+00_rb,4.6380e+00_rb/)\n      kbo(:,24, 9) = (/ &\n     &3.6468e+00_rb,3.7664e+00_rb,3.9092e+00_rb,4.0407e+00_rb,4.1687e+00_rb/)\n      kbo(:,25, 9) = (/ &\n     &3.2292e+00_rb,3.3800e+00_rb,3.5189e+00_rb,3.6529e+00_rb,3.8087e+00_rb/)\n      kbo(:,26, 9) = (/ &\n     &2.9129e+00_rb,3.0593e+00_rb,3.1926e+00_rb,3.3487e+00_rb,3.5171e+00_rb/)\n      kbo(:,27, 9) = (/ &\n     &2.6651e+00_rb,2.7860e+00_rb,2.9417e+00_rb,3.1050e+00_rb,3.2838e+00_rb/)\n      kbo(:,28, 9) = (/ &\n     &2.4547e+00_rb,2.5852e+00_rb,2.7243e+00_rb,2.8973e+00_rb,3.0879e+00_rb/)\n      kbo(:,29, 9) = (/ &\n     &2.2775e+00_rb,2.4144e+00_rb,2.5520e+00_rb,2.7166e+00_rb,2.9171e+00_rb/)\n      kbo(:,30, 9) = (/ &\n     &2.1281e+00_rb,2.2766e+00_rb,2.4266e+00_rb,2.5792e+00_rb,2.7778e+00_rb/)\n      kbo(:,31, 9) = (/ &\n     &1.9982e+00_rb,2.1596e+00_rb,2.3215e+00_rb,2.4758e+00_rb,2.6690e+00_rb/)\n      kbo(:,32, 9) = (/ &\n     &1.8974e+00_rb,2.0696e+00_rb,2.2391e+00_rb,2.4103e+00_rb,2.6183e+00_rb/)\n      kbo(:,33, 9) = (/ &\n     &1.8191e+00_rb,1.9994e+00_rb,2.1809e+00_rb,2.3775e+00_rb,2.6019e+00_rb/)\n      kbo(:,34, 9) = (/ &\n     &1.7674e+00_rb,1.9617e+00_rb,2.1590e+00_rb,2.3767e+00_rb,2.6194e+00_rb/)\n      kbo(:,35, 9) = (/ &\n     &1.7160e+00_rb,1.9253e+00_rb,2.1379e+00_rb,2.3725e+00_rb,2.6356e+00_rb/)\n      kbo(:,36, 9) = (/ &\n     &1.6660e+00_rb,1.8913e+00_rb,2.1169e+00_rb,2.3615e+00_rb,2.6378e+00_rb/)\n      kbo(:,37, 9) = (/ &\n     &1.5784e+00_rb,1.8090e+00_rb,2.0343e+00_rb,2.2860e+00_rb,2.5707e+00_rb/)\n      kbo(:,38, 9) = (/ &\n     &1.4967e+00_rb,1.7299e+00_rb,1.9619e+00_rb,2.2122e+00_rb,2.4970e+00_rb/)\n      kbo(:,39, 9) = (/ &\n     &1.4275e+00_rb,1.6566e+00_rb,1.8885e+00_rb,2.1422e+00_rb,2.4238e+00_rb/)\n      kbo(:,40, 9) = (/ &\n     &1.3319e+00_rb,1.5527e+00_rb,1.7867e+00_rb,2.0342e+00_rb,2.3084e+00_rb/)\n      kbo(:,41, 9) = (/ &\n     &1.2324e+00_rb,1.4488e+00_rb,1.6798e+00_rb,1.9260e+00_rb,2.1920e+00_rb/)\n      kbo(:,42, 9) = (/ &\n     &1.1393e+00_rb,1.3560e+00_rb,1.5786e+00_rb,1.8237e+00_rb,2.0822e+00_rb/)\n      kbo(:,43, 9) = (/ &\n     &1.0393e+00_rb,1.2480e+00_rb,1.4586e+00_rb,1.7011e+00_rb,1.9564e+00_rb/)\n      kbo(:,44, 9) = (/ &\n     &9.4004e-01_rb,1.1318e+00_rb,1.3401e+00_rb,1.5753e+00_rb,1.8301e+00_rb/)\n      kbo(:,45, 9) = (/ &\n     &8.4677e-01_rb,1.0287e+00_rb,1.2277e+00_rb,1.4538e+00_rb,1.7017e+00_rb/)\n      kbo(:,46, 9) = (/ &\n     &7.5668e-01_rb,9.2772e-01_rb,1.1175e+00_rb,1.3351e+00_rb,1.5740e+00_rb/)\n      kbo(:,47, 9) = (/ &\n     &6.6952e-01_rb,8.3230e-01_rb,1.0096e+00_rb,1.2100e+00_rb,1.4418e+00_rb/)\n      kbo(:,48, 9) = (/ &\n     &5.9179e-01_rb,7.4047e-01_rb,9.0922e-01_rb,1.0966e+00_rb,1.3183e+00_rb/)\n      kbo(:,49, 9) = (/ &\n     &5.2110e-01_rb,6.5712e-01_rb,8.1623e-01_rb,9.9075e-01_rb,1.1944e+00_rb/)\n      kbo(:,50, 9) = (/ &\n     &4.6158e-01_rb,5.8589e-01_rb,7.3680e-01_rb,8.9883e-01_rb,1.0896e+00_rb/)\n      kbo(:,51, 9) = (/ &\n     &4.0970e-01_rb,5.2471e-01_rb,6.6511e-01_rb,8.1893e-01_rb,1.0001e+00_rb/)\n      kbo(:,52, 9) = (/ &\n     &3.6376e-01_rb,4.6797e-01_rb,5.9787e-01_rb,7.4696e-01_rb,9.1589e-01_rb/)\n      kbo(:,53, 9) = (/ &\n     &3.2051e-01_rb,4.1628e-01_rb,5.3506e-01_rb,6.7993e-01_rb,8.3743e-01_rb/)\n      kbo(:,54, 9) = (/ &\n     &2.8466e-01_rb,3.7491e-01_rb,4.8412e-01_rb,6.2077e-01_rb,7.6925e-01_rb/)\n      kbo(:,55, 9) = (/ &\n     &2.5367e-01_rb,3.3870e-01_rb,4.3869e-01_rb,5.6524e-01_rb,7.0875e-01_rb/)\n      kbo(:,56, 9) = (/ &\n     &2.2562e-01_rb,3.0476e-01_rb,3.9766e-01_rb,5.1473e-01_rb,6.5170e-01_rb/)\n      kbo(:,57, 9) = (/ &\n     &1.9827e-01_rb,2.7217e-01_rb,3.6127e-01_rb,4.6695e-01_rb,5.9679e-01_rb/)\n      kbo(:,58, 9) = (/ &\n     &1.7439e-01_rb,2.4383e-01_rb,3.2816e-01_rb,4.2523e-01_rb,5.4584e-01_rb/)\n      kbo(:,59, 9) = (/ &\n     &1.6511e-01_rb,2.3377e-01_rb,3.1581e-01_rb,4.1157e-01_rb,5.2975e-01_rb/)\n      kbo(:,13,10) = (/ &\n     &4.0695e+01_rb,4.0469e+01_rb,4.0155e+01_rb,4.1544e+01_rb,4.2682e+01_rb/)\n      kbo(:,14,10) = (/ &\n     &3.9304e+01_rb,3.9060e+01_rb,4.0807e+01_rb,4.1587e+01_rb,4.0953e+01_rb/)\n      kbo(:,15,10) = (/ &\n     &3.7657e+01_rb,3.9117e+01_rb,3.9307e+01_rb,3.8957e+01_rb,3.9710e+01_rb/)\n      kbo(:,16,10) = (/ &\n     &3.6278e+01_rb,3.6420e+01_rb,3.6566e+01_rb,3.7322e+01_rb,3.7268e+01_rb/)\n      kbo(:,17,10) = (/ &\n     &3.3662e+01_rb,3.3973e+01_rb,3.4667e+01_rb,3.4884e+01_rb,3.5251e+01_rb/)\n      kbo(:,18,10) = (/ &\n     &3.1195e+01_rb,3.1946e+01_rb,3.2272e+01_rb,3.2818e+01_rb,3.3898e+01_rb/)\n      kbo(:,19,10) = (/ &\n     &2.9346e+01_rb,2.9678e+01_rb,3.0231e+01_rb,3.1581e+01_rb,3.2542e+01_rb/)\n      kbo(:,20,10) = (/ &\n     &2.6569e+01_rb,2.7189e+01_rb,2.8571e+01_rb,2.9702e+01_rb,3.0461e+01_rb/)\n      kbo(:,21,10) = (/ &\n     &2.3800e+01_rb,2.5133e+01_rb,2.6296e+01_rb,2.7333e+01_rb,2.8348e+01_rb/)\n      kbo(:,22,10) = (/ &\n     &2.1748e+01_rb,2.2899e+01_rb,2.3947e+01_rb,2.5006e+01_rb,2.6299e+01_rb/)\n      kbo(:,23,10) = (/ &\n     &1.9685e+01_rb,2.0476e+01_rb,2.1391e+01_rb,2.2690e+01_rb,2.3900e+01_rb/)\n      kbo(:,24,10) = (/ &\n     &1.7032e+01_rb,1.7826e+01_rb,1.8674e+01_rb,1.9703e+01_rb,2.1087e+01_rb/)\n      kbo(:,25,10) = (/ &\n     &1.4880e+01_rb,1.5564e+01_rb,1.6390e+01_rb,1.7502e+01_rb,1.8671e+01_rb/)\n      kbo(:,26,10) = (/ &\n     &1.3363e+01_rb,1.4020e+01_rb,1.5087e+01_rb,1.6178e+01_rb,1.7289e+01_rb/)\n      kbo(:,27,10) = (/ &\n     &1.1727e+01_rb,1.2959e+01_rb,1.3942e+01_rb,1.5094e+01_rb,1.6463e+01_rb/)\n      kbo(:,28,10) = (/ &\n     &1.0659e+01_rb,1.1764e+01_rb,1.3018e+01_rb,1.4300e+01_rb,1.5936e+01_rb/)\n      kbo(:,29,10) = (/ &\n     &9.6581e+00_rb,1.0907e+01_rb,1.2325e+01_rb,1.4028e+01_rb,1.5807e+01_rb/)\n      kbo(:,30,10) = (/ &\n     &8.9612e+00_rb,1.0145e+01_rb,1.1747e+01_rb,1.3771e+01_rb,1.5726e+01_rb/)\n      kbo(:,31,10) = (/ &\n     &8.6124e+00_rb,9.7350e+00_rb,1.1421e+01_rb,1.3475e+01_rb,1.5366e+01_rb/)\n      kbo(:,32,10) = (/ &\n     &8.5911e+00_rb,9.4800e+00_rb,1.1115e+01_rb,1.3010e+01_rb,1.4984e+01_rb/)\n      kbo(:,33,10) = (/ &\n     &8.6709e+00_rb,9.3343e+00_rb,1.0809e+01_rb,1.2622e+01_rb,1.4676e+01_rb/)\n      kbo(:,34,10) = (/ &\n     &8.8793e+00_rb,9.5541e+00_rb,1.0639e+01_rb,1.2461e+01_rb,1.4700e+01_rb/)\n      kbo(:,35,10) = (/ &\n     &9.1036e+00_rb,9.7617e+00_rb,1.0550e+01_rb,1.2303e+01_rb,1.4597e+01_rb/)\n      kbo(:,36,10) = (/ &\n     &9.1500e+00_rb,9.8472e+00_rb,1.0675e+01_rb,1.1920e+01_rb,1.4033e+01_rb/)\n      kbo(:,37,10) = (/ &\n     &8.9913e+00_rb,9.7513e+00_rb,1.0626e+01_rb,1.1848e+01_rb,1.3311e+01_rb/)\n      kbo(:,38,10) = (/ &\n     &8.8541e+00_rb,9.6133e+00_rb,1.0479e+01_rb,1.1805e+01_rb,1.2978e+01_rb/)\n      kbo(:,39,10) = (/ &\n     &8.6355e+00_rb,9.4791e+00_rb,1.0441e+01_rb,1.1774e+01_rb,1.2974e+01_rb/)\n      kbo(:,40,10) = (/ &\n     &8.2572e+00_rb,9.1900e+00_rb,1.0103e+01_rb,1.1340e+01_rb,1.2612e+01_rb/)\n      kbo(:,41,10) = (/ &\n     &7.9700e+00_rb,8.8564e+00_rb,9.7227e+00_rb,1.0892e+01_rb,1.2191e+01_rb/)\n      kbo(:,42,10) = (/ &\n     &7.7269e+00_rb,8.5147e+00_rb,9.3572e+00_rb,1.0449e+01_rb,1.1769e+01_rb/)\n      kbo(:,43,10) = (/ &\n     &7.3457e+00_rb,8.1022e+00_rb,8.9870e+00_rb,9.9755e+00_rb,1.1267e+01_rb/)\n      kbo(:,44,10) = (/ &\n     &6.8559e+00_rb,7.7825e+00_rb,8.6085e+00_rb,9.5618e+00_rb,1.0705e+01_rb/)\n      kbo(:,45,10) = (/ &\n     &6.3680e+00_rb,7.3808e+00_rb,8.2404e+00_rb,9.1444e+00_rb,1.0228e+01_rb/)\n      kbo(:,46,10) = (/ &\n     &5.9178e+00_rb,6.9688e+00_rb,7.8931e+00_rb,8.8310e+00_rb,9.8114e+00_rb/)\n      kbo(:,47,10) = (/ &\n     &5.4530e+00_rb,6.4924e+00_rb,7.5375e+00_rb,8.5314e+00_rb,9.4745e+00_rb/)\n      kbo(:,48,10) = (/ &\n     &4.9630e+00_rb,6.0598e+00_rb,7.0862e+00_rb,8.1895e+00_rb,9.1462e+00_rb/)\n      kbo(:,49,10) = (/ &\n     &4.4814e+00_rb,5.6082e+00_rb,6.6461e+00_rb,7.8385e+00_rb,8.8792e+00_rb/)\n      kbo(:,50,10) = (/ &\n     &4.0666e+00_rb,5.1497e+00_rb,6.2742e+00_rb,7.4367e+00_rb,8.5539e+00_rb/)\n      kbo(:,51,10) = (/ &\n     &3.6813e+00_rb,4.7093e+00_rb,5.9040e+00_rb,7.0217e+00_rb,8.2062e+00_rb/)\n      kbo(:,52,10) = (/ &\n     &3.3213e+00_rb,4.2985e+00_rb,5.4430e+00_rb,6.5658e+00_rb,7.7730e+00_rb/)\n      kbo(:,53,10) = (/ &\n     &2.9730e+00_rb,3.8940e+00_rb,5.0012e+00_rb,6.1367e+00_rb,7.2957e+00_rb/)\n      kbo(:,54,10) = (/ &\n     &2.6494e+00_rb,3.5088e+00_rb,4.5590e+00_rb,5.7479e+00_rb,6.8609e+00_rb/)\n      kbo(:,55,10) = (/ &\n     &2.3517e+00_rb,3.1542e+00_rb,4.1525e+00_rb,5.3587e+00_rb,6.4637e+00_rb/)\n      kbo(:,56,10) = (/ &\n     &2.0870e+00_rb,2.8232e+00_rb,3.7684e+00_rb,4.9288e+00_rb,6.0659e+00_rb/)\n      kbo(:,57,10) = (/ &\n     &1.8716e+00_rb,2.5211e+00_rb,3.3862e+00_rb,4.4963e+00_rb,5.6364e+00_rb/)\n      kbo(:,58,10) = (/ &\n     &1.6996e+00_rb,2.2494e+00_rb,3.0457e+00_rb,4.0946e+00_rb,5.2813e+00_rb/)\n      kbo(:,59,10) = (/ &\n     &1.6125e+00_rb,2.1057e+00_rb,2.8675e+00_rb,3.8607e+00_rb,5.0173e+00_rb/)\n      kbo(:,13,11) = (/ &\n     &5.4280e+01_rb,5.5937e+01_rb,5.6472e+01_rb,5.6083e+01_rb,5.6645e+01_rb/)\n      kbo(:,14,11) = (/ &\n     &5.6104e+01_rb,5.7569e+01_rb,5.6325e+01_rb,5.6970e+01_rb,5.8322e+01_rb/)\n      kbo(:,15,11) = (/ &\n     &5.6157e+01_rb,5.5505e+01_rb,5.6534e+01_rb,5.8680e+01_rb,5.8495e+01_rb/)\n      kbo(:,16,11) = (/ &\n     &5.4215e+01_rb,5.5590e+01_rb,5.7381e+01_rb,5.6844e+01_rb,5.6502e+01_rb/)\n      kbo(:,17,11) = (/ &\n     &5.3917e+01_rb,5.5209e+01_rb,5.4751e+01_rb,5.5176e+01_rb,5.5535e+01_rb/)\n      kbo(:,18,11) = (/ &\n     &5.2925e+01_rb,5.3017e+01_rb,5.3849e+01_rb,5.4671e+01_rb,5.5470e+01_rb/)\n      kbo(:,19,11) = (/ &\n     &5.0412e+01_rb,5.1474e+01_rb,5.2761e+01_rb,5.3623e+01_rb,5.4522e+01_rb/)\n      kbo(:,20,11) = (/ &\n     &4.7799e+01_rb,4.9437e+01_rb,5.0594e+01_rb,5.1515e+01_rb,5.3379e+01_rb/)\n      kbo(:,21,11) = (/ &\n     &4.5510e+01_rb,4.6838e+01_rb,4.7923e+01_rb,4.9803e+01_rb,5.2087e+01_rb/)\n      kbo(:,22,11) = (/ &\n     &4.2197e+01_rb,4.3528e+01_rb,4.5703e+01_rb,4.8296e+01_rb,5.0603e+01_rb/)\n      kbo(:,23,11) = (/ &\n     &3.8776e+01_rb,4.1167e+01_rb,4.4015e+01_rb,4.6341e+01_rb,4.9195e+01_rb/)\n      kbo(:,24,11) = (/ &\n     &3.6077e+01_rb,3.8799e+01_rb,4.1478e+01_rb,4.4468e+01_rb,4.7105e+01_rb/)\n      kbo(:,25,11) = (/ &\n     &3.3423e+01_rb,3.6288e+01_rb,3.9007e+01_rb,4.1836e+01_rb,4.5174e+01_rb/)\n      kbo(:,26,11) = (/ &\n     &3.0575e+01_rb,3.3241e+01_rb,3.5927e+01_rb,3.9133e+01_rb,4.2785e+01_rb/)\n      kbo(:,27,11) = (/ &\n     &2.7764e+01_rb,3.0312e+01_rb,3.3054e+01_rb,3.6826e+01_rb,4.0509e+01_rb/)\n      kbo(:,28,11) = (/ &\n     &2.5413e+01_rb,2.8045e+01_rb,3.1419e+01_rb,3.5118e+01_rb,3.8747e+01_rb/)\n      kbo(:,29,11) = (/ &\n     &2.4096e+01_rb,2.6980e+01_rb,3.0700e+01_rb,3.4243e+01_rb,3.7699e+01_rb/)\n      kbo(:,30,11) = (/ &\n     &2.3140e+01_rb,2.6541e+01_rb,2.9953e+01_rb,3.3565e+01_rb,3.7298e+01_rb/)\n      kbo(:,31,11) = (/ &\n     &2.2574e+01_rb,2.6228e+01_rb,2.9925e+01_rb,3.3653e+01_rb,3.8032e+01_rb/)\n      kbo(:,32,11) = (/ &\n     &2.2078e+01_rb,2.6231e+01_rb,3.0164e+01_rb,3.4342e+01_rb,3.9067e+01_rb/)\n      kbo(:,33,11) = (/ &\n     &2.1802e+01_rb,2.6392e+01_rb,3.0637e+01_rb,3.5356e+01_rb,4.0173e+01_rb/)\n      kbo(:,34,11) = (/ &\n     &2.1886e+01_rb,2.6523e+01_rb,3.1557e+01_rb,3.6504e+01_rb,4.1183e+01_rb/)\n      kbo(:,35,11) = (/ &\n     &2.1287e+01_rb,2.6137e+01_rb,3.1875e+01_rb,3.7051e+01_rb,4.1397e+01_rb/)\n      kbo(:,36,11) = (/ &\n     &2.0396e+01_rb,2.5293e+01_rb,3.0920e+01_rb,3.6387e+01_rb,4.1546e+01_rb/)\n      kbo(:,37,11) = (/ &\n     &1.9398e+01_rb,2.4195e+01_rb,2.9734e+01_rb,3.5138e+01_rb,4.1598e+01_rb/)\n      kbo(:,38,11) = (/ &\n     &1.8580e+01_rb,2.3161e+01_rb,2.8626e+01_rb,3.3912e+01_rb,4.1158e+01_rb/)\n      kbo(:,39,11) = (/ &\n     &1.8482e+01_rb,2.2205e+01_rb,2.7504e+01_rb,3.3104e+01_rb,4.0527e+01_rb/)\n      kbo(:,40,11) = (/ &\n     &1.7984e+01_rb,2.0750e+01_rb,2.5770e+01_rb,3.1669e+01_rb,3.8818e+01_rb/)\n      kbo(:,41,11) = (/ &\n     &1.7355e+01_rb,1.9936e+01_rb,2.4013e+01_rb,3.0152e+01_rb,3.7102e+01_rb/)\n      kbo(:,42,11) = (/ &\n     &1.6681e+01_rb,1.9220e+01_rb,2.2251e+01_rb,2.8625e+01_rb,3.5420e+01_rb/)\n      kbo(:,43,11) = (/ &\n     &1.5870e+01_rb,1.8435e+01_rb,2.1070e+01_rb,2.6668e+01_rb,3.3375e+01_rb/)\n      kbo(:,44,11) = (/ &\n     &1.5165e+01_rb,1.7568e+01_rb,2.0082e+01_rb,2.4204e+01_rb,3.1050e+01_rb/)\n      kbo(:,45,11) = (/ &\n     &1.4453e+01_rb,1.6684e+01_rb,1.9148e+01_rb,2.2404e+01_rb,2.8741e+01_rb/)\n      kbo(:,46,11) = (/ &\n     &1.3674e+01_rb,1.5793e+01_rb,1.8236e+01_rb,2.1064e+01_rb,2.6017e+01_rb/)\n      kbo(:,47,11) = (/ &\n     &1.2730e+01_rb,1.4847e+01_rb,1.7129e+01_rb,1.9769e+01_rb,2.3301e+01_rb/)\n      kbo(:,48,11) = (/ &\n     &1.1966e+01_rb,1.3921e+01_rb,1.6062e+01_rb,1.8570e+01_rb,2.1519e+01_rb/)\n      kbo(:,49,11) = (/ &\n     &1.1256e+01_rb,1.2947e+01_rb,1.5051e+01_rb,1.7441e+01_rb,2.0164e+01_rb/)\n      kbo(:,50,11) = (/ &\n     &1.0630e+01_rb,1.2231e+01_rb,1.4125e+01_rb,1.6384e+01_rb,1.9019e+01_rb/)\n      kbo(:,51,11) = (/ &\n     &9.8987e+00_rb,1.1569e+01_rb,1.3215e+01_rb,1.5489e+01_rb,1.7851e+01_rb/)\n      kbo(:,52,11) = (/ &\n     &9.1901e+00_rb,1.0969e+01_rb,1.2500e+01_rb,1.4560e+01_rb,1.6807e+01_rb/)\n      kbo(:,53,11) = (/ &\n     &8.5518e+00_rb,1.0279e+01_rb,1.1856e+01_rb,1.3672e+01_rb,1.5980e+01_rb/)\n      kbo(:,54,11) = (/ &\n     &7.8898e+00_rb,9.6237e+00_rb,1.1322e+01_rb,1.2850e+01_rb,1.5109e+01_rb/)\n      kbo(:,55,11) = (/ &\n     &7.2910e+00_rb,9.0794e+00_rb,1.0802e+01_rb,1.2222e+01_rb,1.4316e+01_rb/)\n      kbo(:,56,11) = (/ &\n     &6.6231e+00_rb,8.4503e+00_rb,1.0147e+01_rb,1.1641e+01_rb,1.3475e+01_rb/)\n      kbo(:,57,11) = (/ &\n     &5.9797e+00_rb,7.8956e+00_rb,9.5656e+00_rb,1.1172e+01_rb,1.2770e+01_rb/)\n      kbo(:,58,11) = (/ &\n     &5.3792e+00_rb,7.3070e+00_rb,9.0406e+00_rb,1.0661e+01_rb,1.2099e+01_rb/)\n      kbo(:,59,11) = (/ &\n     &5.1187e+00_rb,7.0446e+00_rb,8.7908e+00_rb,1.0434e+01_rb,1.1861e+01_rb/)\n      kbo(:,13,12) = (/ &\n     &8.5594e+01_rb,8.5081e+01_rb,8.4548e+01_rb,8.3781e+01_rb,8.2265e+01_rb/)\n      kbo(:,14,12) = (/ &\n     &8.5160e+01_rb,8.5106e+01_rb,8.5561e+01_rb,8.4404e+01_rb,8.6474e+01_rb/)\n      kbo(:,15,12) = (/ &\n     &8.6225e+01_rb,8.6934e+01_rb,8.6406e+01_rb,8.7005e+01_rb,8.9359e+01_rb/)\n      kbo(:,16,12) = (/ &\n     &8.5430e+01_rb,8.5513e+01_rb,8.6639e+01_rb,9.0490e+01_rb,9.3290e+01_rb/)\n      kbo(:,17,12) = (/ &\n     &8.2443e+01_rb,8.4907e+01_rb,8.8384e+01_rb,9.0076e+01_rb,9.1263e+01_rb/)\n      kbo(:,18,12) = (/ &\n     &8.5149e+01_rb,8.7540e+01_rb,8.9291e+01_rb,9.0823e+01_rb,9.2775e+01_rb/)\n      kbo(:,19,12) = (/ &\n     &8.8628e+01_rb,9.0598e+01_rb,9.2322e+01_rb,9.4441e+01_rb,9.6854e+01_rb/)\n      kbo(:,20,12) = (/ &\n     &8.9356e+01_rb,9.1085e+01_rb,9.4127e+01_rb,9.6914e+01_rb,9.9051e+01_rb/)\n      kbo(:,21,12) = (/ &\n     &8.7608e+01_rb,9.1521e+01_rb,9.5537e+01_rb,9.7630e+01_rb,9.9135e+01_rb/)\n      kbo(:,22,12) = (/ &\n     &8.6703e+01_rb,9.1359e+01_rb,9.3725e+01_rb,9.6097e+01_rb,9.8620e+01_rb/)\n      kbo(:,23,12) = (/ &\n     &8.4986e+01_rb,8.8658e+01_rb,9.1547e+01_rb,9.4897e+01_rb,9.8884e+01_rb/)\n      kbo(:,24,12) = (/ &\n     &8.1861e+01_rb,8.5495e+01_rb,8.9569e+01_rb,9.4335e+01_rb,9.9177e+01_rb/)\n      kbo(:,25,12) = (/ &\n     &7.8144e+01_rb,8.2621e+01_rb,8.8221e+01_rb,9.4555e+01_rb,9.9082e+01_rb/)\n      kbo(:,26,12) = (/ &\n     &7.5558e+01_rb,8.1550e+01_rb,8.8515e+01_rb,9.4800e+01_rb,1.0018e+02_rb/)\n      kbo(:,27,12) = (/ &\n     &7.4385e+01_rb,8.1401e+01_rb,8.8755e+01_rb,9.4867e+01_rb,9.9863e+01_rb/)\n      kbo(:,28,12) = (/ &\n     &7.2786e+01_rb,8.0630e+01_rb,8.7375e+01_rb,9.3177e+01_rb,9.7577e+01_rb/)\n      kbo(:,29,12) = (/ &\n     &7.2494e+01_rb,7.9832e+01_rb,8.6004e+01_rb,9.1472e+01_rb,9.7317e+01_rb/)\n      kbo(:,30,12) = (/ &\n     &7.1849e+01_rb,7.8701e+01_rb,8.4991e+01_rb,9.0891e+01_rb,9.7338e+01_rb/)\n      kbo(:,31,12) = (/ &\n     &7.1241e+01_rb,7.7805e+01_rb,8.4010e+01_rb,9.1171e+01_rb,1.0059e+02_rb/)\n      kbo(:,32,12) = (/ &\n     &7.0698e+01_rb,7.7293e+01_rb,8.4547e+01_rb,9.6001e+01_rb,1.0686e+02_rb/)\n      kbo(:,33,12) = (/ &\n     &7.0154e+01_rb,7.8613e+01_rb,9.0857e+01_rb,1.0245e+02_rb,1.1312e+02_rb/)\n      kbo(:,34,12) = (/ &\n     &7.1031e+01_rb,8.3561e+01_rb,9.6187e+01_rb,1.0815e+02_rb,1.1901e+02_rb/)\n      kbo(:,35,12) = (/ &\n     &7.5071e+01_rb,8.8162e+01_rb,1.0114e+02_rb,1.1296e+02_rb,1.2569e+02_rb/)\n      kbo(:,36,12) = (/ &\n     &7.8029e+01_rb,9.1692e+01_rb,1.0504e+02_rb,1.1849e+02_rb,1.3079e+02_rb/)\n      kbo(:,37,12) = (/ &\n     &7.7450e+01_rb,9.1080e+01_rb,1.0499e+02_rb,1.1872e+02_rb,1.3083e+02_rb/)\n      kbo(:,38,12) = (/ &\n     &7.6390e+01_rb,9.0295e+01_rb,1.0451e+02_rb,1.1896e+02_rb,1.3094e+02_rb/)\n      kbo(:,39,12) = (/ &\n     &7.4846e+01_rb,8.9967e+01_rb,1.0468e+02_rb,1.1884e+02_rb,1.3087e+02_rb/)\n      kbo(:,40,12) = (/ &\n     &7.0636e+01_rb,8.6765e+01_rb,1.0145e+02_rb,1.1588e+02_rb,1.2805e+02_rb/)\n      kbo(:,41,12) = (/ &\n     &6.6305e+01_rb,8.2647e+01_rb,9.8224e+01_rb,1.1219e+02_rb,1.2504e+02_rb/)\n      kbo(:,42,12) = (/ &\n     &6.2198e+01_rb,7.8258e+01_rb,9.4811e+01_rb,1.0862e+02_rb,1.2155e+02_rb/)\n      kbo(:,43,12) = (/ &\n     &5.7303e+01_rb,7.2832e+01_rb,8.9604e+01_rb,1.0357e+02_rb,1.1674e+02_rb/)\n      kbo(:,44,12) = (/ &\n     &5.2689e+01_rb,6.6907e+01_rb,8.3558e+01_rb,9.8406e+01_rb,1.1125e+02_rb/)\n      kbo(:,45,12) = (/ &\n     &4.8182e+01_rb,6.1264e+01_rb,7.7478e+01_rb,9.3228e+01_rb,1.0590e+02_rb/)\n      kbo(:,46,12) = (/ &\n     &4.3386e+01_rb,5.6258e+01_rb,7.0871e+01_rb,8.6833e+01_rb,1.0102e+02_rb/)\n      kbo(:,47,12) = (/ &\n     &3.8704e+01_rb,5.0818e+01_rb,6.4039e+01_rb,7.9666e+01_rb,9.5229e+01_rb/)\n      kbo(:,48,12) = (/ &\n     &3.3968e+01_rb,4.5364e+01_rb,5.8393e+01_rb,7.2512e+01_rb,8.8396e+01_rb/)\n      kbo(:,49,12) = (/ &\n     &2.9879e+01_rb,4.0583e+01_rb,5.2774e+01_rb,6.5752e+01_rb,8.1056e+01_rb/)\n      kbo(:,50,12) = (/ &\n     &2.7602e+01_rb,3.6039e+01_rb,4.7664e+01_rb,6.0460e+01_rb,7.4304e+01_rb/)\n      kbo(:,51,12) = (/ &\n     &2.6051e+01_rb,3.1889e+01_rb,4.2974e+01_rb,5.5102e+01_rb,6.8169e+01_rb/)\n      kbo(:,52,12) = (/ &\n     &2.4438e+01_rb,2.8876e+01_rb,3.8469e+01_rb,5.0102e+01_rb,6.2912e+01_rb/)\n      kbo(:,53,12) = (/ &\n     &2.2776e+01_rb,2.7295e+01_rb,3.4271e+01_rb,4.5285e+01_rb,5.7384e+01_rb/)\n      kbo(:,54,12) = (/ &\n     &2.1249e+01_rb,2.5821e+01_rb,3.0686e+01_rb,4.1216e+01_rb,5.2669e+01_rb/)\n      kbo(:,55,12) = (/ &\n     &2.0155e+01_rb,2.4296e+01_rb,2.8676e+01_rb,3.7338e+01_rb,4.8393e+01_rb/)\n      kbo(:,56,12) = (/ &\n     &1.8949e+01_rb,2.2808e+01_rb,2.7284e+01_rb,3.3732e+01_rb,4.4387e+01_rb/)\n      kbo(:,57,12) = (/ &\n     &1.7651e+01_rb,2.1401e+01_rb,2.5896e+01_rb,3.0538e+01_rb,4.0399e+01_rb/)\n      kbo(:,58,12) = (/ &\n     &1.6454e+01_rb,2.0257e+01_rb,2.4400e+01_rb,2.8791e+01_rb,3.6888e+01_rb/)\n      kbo(:,59,12) = (/ &\n     &1.6078e+01_rb,1.9650e+01_rb,2.3686e+01_rb,2.8130e+01_rb,3.5337e+01_rb/)\n      kbo(:,13,13) = (/ &\n     &1.6179e+02_rb,1.5851e+02_rb,1.5620e+02_rb,1.5532e+02_rb,1.5316e+02_rb/)\n      kbo(:,14,13) = (/ &\n     &1.7476e+02_rb,1.7156e+02_rb,1.7068e+02_rb,1.6952e+02_rb,1.6413e+02_rb/)\n      kbo(:,15,13) = (/ &\n     &1.8520e+02_rb,1.8372e+02_rb,1.8384e+02_rb,1.8019e+02_rb,1.7522e+02_rb/)\n      kbo(:,16,13) = (/ &\n     &1.9454e+02_rb,1.9542e+02_rb,1.9248e+02_rb,1.8773e+02_rb,1.8813e+02_rb/)\n      kbo(:,17,13) = (/ &\n     &2.0028e+02_rb,1.9793e+02_rb,1.9596e+02_rb,1.9785e+02_rb,2.0205e+02_rb/)\n      kbo(:,18,13) = (/ &\n     &1.9037e+02_rb,1.9170e+02_rb,1.9555e+02_rb,2.0164e+02_rb,2.0309e+02_rb/)\n      kbo(:,19,13) = (/ &\n     &1.7958e+02_rb,1.8623e+02_rb,1.9196e+02_rb,1.9543e+02_rb,1.9670e+02_rb/)\n      kbo(:,20,13) = (/ &\n     &1.7423e+02_rb,1.8217e+02_rb,1.8721e+02_rb,1.9064e+02_rb,1.9763e+02_rb/)\n      kbo(:,21,13) = (/ &\n     &1.7205e+02_rb,1.7751e+02_rb,1.8259e+02_rb,1.9102e+02_rb,1.9985e+02_rb/)\n      kbo(:,22,13) = (/ &\n     &1.7310e+02_rb,1.7837e+02_rb,1.8681e+02_rb,1.9582e+02_rb,2.0409e+02_rb/)\n      kbo(:,23,13) = (/ &\n     &1.7691e+02_rb,1.8432e+02_rb,1.9387e+02_rb,2.0103e+02_rb,2.1026e+02_rb/)\n      kbo(:,24,13) = (/ &\n     &1.8088e+02_rb,1.8942e+02_rb,1.9891e+02_rb,2.0699e+02_rb,2.1646e+02_rb/)\n      kbo(:,25,13) = (/ &\n     &1.8492e+02_rb,1.9434e+02_rb,2.0408e+02_rb,2.1437e+02_rb,2.2277e+02_rb/)\n      kbo(:,26,13) = (/ &\n     &1.8625e+02_rb,1.9837e+02_rb,2.0945e+02_rb,2.1941e+02_rb,2.3087e+02_rb/)\n      kbo(:,27,13) = (/ &\n     &1.9010e+02_rb,2.0364e+02_rb,2.1615e+02_rb,2.2715e+02_rb,2.4079e+02_rb/)\n      kbo(:,28,13) = (/ &\n     &1.9712e+02_rb,2.1090e+02_rb,2.2463e+02_rb,2.3844e+02_rb,2.5439e+02_rb/)\n      kbo(:,29,13) = (/ &\n     &2.0453e+02_rb,2.1990e+02_rb,2.3570e+02_rb,2.5241e+02_rb,2.6509e+02_rb/)\n      kbo(:,30,13) = (/ &\n     &2.1308e+02_rb,2.3113e+02_rb,2.4908e+02_rb,2.6461e+02_rb,2.7735e+02_rb/)\n      kbo(:,31,13) = (/ &\n     &2.2395e+02_rb,2.4239e+02_rb,2.6296e+02_rb,2.7710e+02_rb,2.8754e+02_rb/)\n      kbo(:,32,13) = (/ &\n     &2.3649e+02_rb,2.5891e+02_rb,2.7696e+02_rb,2.8809e+02_rb,2.9409e+02_rb/)\n      kbo(:,33,13) = (/ &\n     &2.5295e+02_rb,2.7352e+02_rb,2.8553e+02_rb,2.9364e+02_rb,3.0036e+02_rb/)\n      kbo(:,34,13) = (/ &\n     &2.6621e+02_rb,2.8028e+02_rb,2.9209e+02_rb,2.9925e+02_rb,3.0905e+02_rb/)\n      kbo(:,35,13) = (/ &\n     &2.7274e+02_rb,2.8720e+02_rb,2.9678e+02_rb,3.0598e+02_rb,3.1573e+02_rb/)\n      kbo(:,36,13) = (/ &\n     &2.7668e+02_rb,2.9126e+02_rb,3.0131e+02_rb,3.1293e+02_rb,3.2456e+02_rb/)\n      kbo(:,37,13) = (/ &\n     &2.7566e+02_rb,2.9125e+02_rb,3.0241e+02_rb,3.1513e+02_rb,3.2636e+02_rb/)\n      kbo(:,38,13) = (/ &\n     &2.7524e+02_rb,2.9197e+02_rb,3.0411e+02_rb,3.1688e+02_rb,3.2854e+02_rb/)\n      kbo(:,39,13) = (/ &\n     &2.7502e+02_rb,2.9241e+02_rb,3.0488e+02_rb,3.1825e+02_rb,3.3122e+02_rb/)\n      kbo(:,40,13) = (/ &\n     &2.7103e+02_rb,2.8939e+02_rb,3.0276e+02_rb,3.1510e+02_rb,3.2909e+02_rb/)\n      kbo(:,41,13) = (/ &\n     &2.6612e+02_rb,2.8502e+02_rb,2.9924e+02_rb,3.1164e+02_rb,3.2628e+02_rb/)\n      kbo(:,42,13) = (/ &\n     &2.6020e+02_rb,2.7999e+02_rb,2.9554e+02_rb,3.0769e+02_rb,3.2142e+02_rb/)\n      kbo(:,43,13) = (/ &\n     &2.5242e+02_rb,2.7289e+02_rb,2.9079e+02_rb,3.0394e+02_rb,3.1657e+02_rb/)\n      kbo(:,44,13) = (/ &\n     &2.4141e+02_rb,2.6492e+02_rb,2.8389e+02_rb,2.9851e+02_rb,3.1003e+02_rb/)\n      kbo(:,45,13) = (/ &\n     &2.3199e+02_rb,2.5697e+02_rb,2.7534e+02_rb,2.9238e+02_rb,3.0488e+02_rb/)\n      kbo(:,46,13) = (/ &\n     &2.2099e+02_rb,2.4628e+02_rb,2.6862e+02_rb,2.8625e+02_rb,2.9891e+02_rb/)\n      kbo(:,47,13) = (/ &\n     &2.0813e+02_rb,2.3515e+02_rb,2.5936e+02_rb,2.7698e+02_rb,2.9245e+02_rb/)\n      kbo(:,48,13) = (/ &\n     &1.9611e+02_rb,2.2305e+02_rb,2.4767e+02_rb,2.6948e+02_rb,2.8622e+02_rb/)\n      kbo(:,49,13) = (/ &\n     &1.8313e+02_rb,2.1047e+02_rb,2.3654e+02_rb,2.6025e+02_rb,2.7775e+02_rb/)\n      kbo(:,50,13) = (/ &\n     &1.6903e+02_rb,1.9938e+02_rb,2.2519e+02_rb,2.4907e+02_rb,2.7015e+02_rb/)\n      kbo(:,51,13) = (/ &\n     &1.5421e+02_rb,1.8800e+02_rb,2.1428e+02_rb,2.3876e+02_rb,2.6215e+02_rb/)\n      kbo(:,52,13) = (/ &\n     &1.4056e+02_rb,1.7488e+02_rb,2.0358e+02_rb,2.2873e+02_rb,2.5153e+02_rb/)\n      kbo(:,53,13) = (/ &\n     &1.2774e+02_rb,1.6089e+02_rb,1.9159e+02_rb,2.1758e+02_rb,2.4063e+02_rb/)\n      kbo(:,54,13) = (/ &\n     &1.1505e+02_rb,1.4830e+02_rb,1.8148e+02_rb,2.0706e+02_rb,2.3185e+02_rb/)\n      kbo(:,55,13) = (/ &\n     &1.0455e+02_rb,1.3680e+02_rb,1.7009e+02_rb,1.9749e+02_rb,2.2149e+02_rb/)\n      kbo(:,56,13) = (/ &\n     &9.5380e+01_rb,1.2458e+02_rb,1.5763e+02_rb,1.8850e+02_rb,2.1165e+02_rb/)\n      kbo(:,57,13) = (/ &\n     &8.6328e+01_rb,1.1370e+02_rb,1.4580e+02_rb,1.7843e+02_rb,2.0341e+02_rb/)\n      kbo(:,58,13) = (/ &\n     &7.7503e+01_rb,1.0463e+02_rb,1.3405e+02_rb,1.6684e+02_rb,1.9463e+02_rb/)\n      kbo(:,59,13) = (/ &\n     &7.3613e+01_rb,1.0087e+02_rb,1.2946e+02_rb,1.6169e+02_rb,1.9043e+02_rb/)\n      kbo(:,13,14) = (/ &\n     &2.3384e+02_rb,2.3134e+02_rb,2.2678e+02_rb,2.2105e+02_rb,2.2130e+02_rb/)\n      kbo(:,14,14) = (/ &\n     &2.6370e+02_rb,2.6091e+02_rb,2.5467e+02_rb,2.5118e+02_rb,2.4954e+02_rb/)\n      kbo(:,15,14) = (/ &\n     &2.9591e+02_rb,2.9159e+02_rb,2.8464e+02_rb,2.8328e+02_rb,2.7984e+02_rb/)\n      kbo(:,16,14) = (/ &\n     &3.2944e+02_rb,3.2156e+02_rb,3.1816e+02_rb,3.1521e+02_rb,3.0449e+02_rb/)\n      kbo(:,17,14) = (/ &\n     &3.5907e+02_rb,3.5209e+02_rb,3.5084e+02_rb,3.4076e+02_rb,3.2553e+02_rb/)\n      kbo(:,18,14) = (/ &\n     &3.8932e+02_rb,3.8700e+02_rb,3.7610e+02_rb,3.6121e+02_rb,3.5570e+02_rb/)\n      kbo(:,19,14) = (/ &\n     &4.2093e+02_rb,4.0885e+02_rb,3.9722e+02_rb,3.9095e+02_rb,3.9197e+02_rb/)\n      kbo(:,20,14) = (/ &\n     &4.4653e+02_rb,4.3247e+02_rb,4.2391e+02_rb,4.2574e+02_rb,4.2089e+02_rb/)\n      kbo(:,21,14) = (/ &\n     &4.6745e+02_rb,4.5974e+02_rb,4.5782e+02_rb,4.5591e+02_rb,4.4616e+02_rb/)\n      kbo(:,22,14) = (/ &\n     &4.8396e+02_rb,4.8410e+02_rb,4.8532e+02_rb,4.7987e+02_rb,4.6662e+02_rb/)\n      kbo(:,23,14) = (/ &\n     &5.0568e+02_rb,5.0696e+02_rb,5.0168e+02_rb,4.9917e+02_rb,4.8477e+02_rb/)\n      kbo(:,24,14) = (/ &\n     &5.2372e+02_rb,5.2925e+02_rb,5.2568e+02_rb,5.1576e+02_rb,5.0916e+02_rb/)\n      kbo(:,25,14) = (/ &\n     &5.4773e+02_rb,5.4681e+02_rb,5.4261e+02_rb,5.3467e+02_rb,5.2926e+02_rb/)\n      kbo(:,26,14) = (/ &\n     &5.6992e+02_rb,5.6525e+02_rb,5.5986e+02_rb,5.5383e+02_rb,5.4189e+02_rb/)\n      kbo(:,27,14) = (/ &\n     &5.8413e+02_rb,5.7753e+02_rb,5.7399e+02_rb,5.6915e+02_rb,5.5630e+02_rb/)\n      kbo(:,28,14) = (/ &\n     &5.9410e+02_rb,5.9489e+02_rb,5.8870e+02_rb,5.8276e+02_rb,5.7225e+02_rb/)\n      kbo(:,29,14) = (/ &\n     &6.0586e+02_rb,6.0400e+02_rb,6.0319e+02_rb,5.9066e+02_rb,5.8348e+02_rb/)\n      kbo(:,30,14) = (/ &\n     &6.2023e+02_rb,6.2112e+02_rb,6.1269e+02_rb,6.0507e+02_rb,5.8831e+02_rb/)\n      kbo(:,31,14) = (/ &\n     &6.3249e+02_rb,6.3678e+02_rb,6.2186e+02_rb,6.1145e+02_rb,5.9841e+02_rb/)\n      kbo(:,32,14) = (/ &\n     &6.5129e+02_rb,6.4085e+02_rb,6.3065e+02_rb,6.1664e+02_rb,6.0677e+02_rb/)\n      kbo(:,33,14) = (/ &\n     &6.5648e+02_rb,6.4719e+02_rb,6.3483e+02_rb,6.2799e+02_rb,6.1689e+02_rb/)\n      kbo(:,34,14) = (/ &\n     &6.6261e+02_rb,6.5214e+02_rb,6.4542e+02_rb,6.3852e+02_rb,6.1993e+02_rb/)\n      kbo(:,35,14) = (/ &\n     &6.7078e+02_rb,6.6309e+02_rb,6.5953e+02_rb,6.4635e+02_rb,6.1863e+02_rb/)\n      kbo(:,36,14) = (/ &\n     &6.8510e+02_rb,6.7944e+02_rb,6.7467e+02_rb,6.5682e+02_rb,6.1696e+02_rb/)\n      kbo(:,37,14) = (/ &\n     &6.9465e+02_rb,6.8814e+02_rb,6.8342e+02_rb,6.6410e+02_rb,6.2485e+02_rb/)\n      kbo(:,38,14) = (/ &\n     &7.0151e+02_rb,6.9441e+02_rb,6.9017e+02_rb,6.7086e+02_rb,6.3205e+02_rb/)\n      kbo(:,39,14) = (/ &\n     &7.0868e+02_rb,7.0183e+02_rb,6.9685e+02_rb,6.7866e+02_rb,6.3921e+02_rb/)\n      kbo(:,40,14) = (/ &\n     &7.1075e+02_rb,7.0438e+02_rb,7.0305e+02_rb,6.8866e+02_rb,6.5105e+02_rb/)\n      kbo(:,41,14) = (/ &\n     &7.0971e+02_rb,7.0837e+02_rb,7.0822e+02_rb,6.9421e+02_rb,6.5990e+02_rb/)\n      kbo(:,42,14) = (/ &\n     &7.1142e+02_rb,7.1113e+02_rb,7.1018e+02_rb,6.9720e+02_rb,6.7342e+02_rb/)\n      kbo(:,43,14) = (/ &\n     &7.1363e+02_rb,7.1120e+02_rb,7.0210e+02_rb,7.0055e+02_rb,6.8488e+02_rb/)\n      kbo(:,44,14) = (/ &\n     &7.1148e+02_rb,7.0646e+02_rb,7.0565e+02_rb,7.0398e+02_rb,6.8877e+02_rb/)\n      kbo(:,45,14) = (/ &\n     &7.0895e+02_rb,7.0958e+02_rb,7.0605e+02_rb,6.9798e+02_rb,6.9240e+02_rb/)\n      kbo(:,46,14) = (/ &\n     &6.9950e+02_rb,7.0866e+02_rb,7.0226e+02_rb,6.9819e+02_rb,6.9658e+02_rb/)\n      kbo(:,47,14) = (/ &\n     &6.8721e+02_rb,7.0244e+02_rb,7.0188e+02_rb,6.9806e+02_rb,6.9161e+02_rb/)\n      kbo(:,48,14) = (/ &\n     &6.8035e+02_rb,6.9565e+02_rb,6.9976e+02_rb,6.9387e+02_rb,6.8913e+02_rb/)\n      kbo(:,49,14) = (/ &\n     &6.6852e+02_rb,6.8533e+02_rb,6.9809e+02_rb,6.9470e+02_rb,6.8647e+02_rb/)\n      kbo(:,50,14) = (/ &\n     &6.5815e+02_rb,6.7824e+02_rb,6.9156e+02_rb,6.9473e+02_rb,6.8677e+02_rb/)\n      kbo(:,51,14) = (/ &\n     &6.5633e+02_rb,6.6741e+02_rb,6.8334e+02_rb,6.9427e+02_rb,6.8718e+02_rb/)\n      kbo(:,52,14) = (/ &\n     &6.4799e+02_rb,6.6007e+02_rb,6.7742e+02_rb,6.8641e+02_rb,6.8886e+02_rb/)\n      kbo(:,53,14) = (/ &\n     &6.3478e+02_rb,6.5848e+02_rb,6.6595e+02_rb,6.8004e+02_rb,6.8977e+02_rb/)\n      kbo(:,54,14) = (/ &\n     &6.3075e+02_rb,6.5140e+02_rb,6.6048e+02_rb,6.7510e+02_rb,6.7898e+02_rb/)\n      kbo(:,55,14) = (/ &\n     &6.2053e+02_rb,6.3982e+02_rb,6.5909e+02_rb,6.6252e+02_rb,6.7620e+02_rb/)\n      kbo(:,56,14) = (/ &\n     &6.0488e+02_rb,6.3692e+02_rb,6.5472e+02_rb,6.5961e+02_rb,6.7144e+02_rb/)\n      kbo(:,57,14) = (/ &\n     &5.9240e+02_rb,6.2947e+02_rb,6.4320e+02_rb,6.5881e+02_rb,6.5824e+02_rb/)\n      kbo(:,58,14) = (/ &\n     &5.7619e+02_rb,6.1537e+02_rb,6.4199e+02_rb,6.5527e+02_rb,6.5777e+02_rb/)\n      kbo(:,59,14) = (/ &\n     &5.7161e+02_rb,6.1151e+02_rb,6.3977e+02_rb,6.4718e+02_rb,6.5762e+02_rb/)\n      kbo(:,13,15) = (/ &\n     &3.5083e+02_rb,3.4274e+02_rb,3.3588e+02_rb,3.2964e+02_rb,3.0980e+02_rb/)\n      kbo(:,14,15) = (/ &\n     &4.0382e+02_rb,3.9443e+02_rb,3.8616e+02_rb,3.7379e+02_rb,3.5621e+02_rb/)\n      kbo(:,15,15) = (/ &\n     &4.6271e+02_rb,4.5170e+02_rb,4.4204e+02_rb,4.2053e+02_rb,4.0520e+02_rb/)\n      kbo(:,16,15) = (/ &\n     &5.2768e+02_rb,5.1495e+02_rb,4.9504e+02_rb,4.7377e+02_rb,4.6833e+02_rb/)\n      kbo(:,17,15) = (/ &\n     &5.9879e+02_rb,5.8378e+02_rb,5.5161e+02_rb,5.3753e+02_rb,5.3799e+02_rb/)\n      kbo(:,18,15) = (/ &\n     &6.7489e+02_rb,6.3850e+02_rb,6.1688e+02_rb,6.0987e+02_rb,5.7677e+02_rb/)\n      kbo(:,19,15) = (/ &\n     &7.3779e+02_rb,7.0513e+02_rb,6.9510e+02_rb,6.5830e+02_rb,6.0487e+02_rb/)\n      kbo(:,20,15) = (/ &\n     &8.1079e+02_rb,7.9490e+02_rb,7.5998e+02_rb,6.9897e+02_rb,6.4843e+02_rb/)\n      kbo(:,21,15) = (/ &\n     &8.8426e+02_rb,8.6003e+02_rb,8.0304e+02_rb,7.3384e+02_rb,6.9837e+02_rb/)\n      kbo(:,22,15) = (/ &\n     &9.6812e+02_rb,9.1088e+02_rb,8.3391e+02_rb,7.8330e+02_rb,7.5669e+02_rb/)\n      kbo(:,23,15) = (/ &\n     &1.0128e+03_rb,9.4218e+02_rb,8.8720e+02_rb,8.2530e+02_rb,7.8833e+02_rb/)\n      kbo(:,24,15) = (/ &\n     &1.0622e+03_rb,9.7878e+02_rb,9.1791e+02_rb,8.7765e+02_rb,7.9731e+02_rb/)\n      kbo(:,25,15) = (/ &\n     &1.0853e+03_rb,1.0245e+03_rb,9.5328e+02_rb,8.9340e+02_rb,8.1721e+02_rb/)\n      kbo(:,26,15) = (/ &\n     &1.1200e+03_rb,1.0458e+03_rb,9.9235e+02_rb,9.0775e+02_rb,8.4493e+02_rb/)\n      kbo(:,27,15) = (/ &\n     &1.1556e+03_rb,1.0812e+03_rb,1.0090e+03_rb,9.2343e+02_rb,8.1758e+02_rb/)\n      kbo(:,28,15) = (/ &\n     &1.1865e+03_rb,1.1049e+03_rb,1.0073e+03_rb,9.1620e+02_rb,7.7173e+02_rb/)\n      kbo(:,29,15) = (/ &\n     &1.1906e+03_rb,1.1065e+03_rb,1.0028e+03_rb,8.7527e+02_rb,7.2650e+02_rb/)\n      kbo(:,30,15) = (/ &\n     &1.1992e+03_rb,1.0831e+03_rb,9.6830e+02_rb,8.1150e+02_rb,6.8040e+02_rb/)\n      kbo(:,31,15) = (/ &\n     &1.1794e+03_rb,1.0618e+03_rb,9.0601e+02_rb,7.5400e+02_rb,6.0274e+02_rb/)\n      kbo(:,32,15) = (/ &\n     &1.1491e+03_rb,9.9644e+02_rb,8.3044e+02_rb,6.7287e+02_rb,5.1890e+02_rb/)\n      kbo(:,33,15) = (/ &\n     &1.0978e+03_rb,9.1760e+02_rb,7.5228e+02_rb,5.8187e+02_rb,4.2649e+02_rb/)\n      kbo(:,34,15) = (/ &\n     &1.0237e+03_rb,8.4870e+02_rb,6.6311e+02_rb,4.9111e+02_rb,3.3958e+02_rb/)\n      kbo(:,35,15) = (/ &\n     &9.6010e+02_rb,7.7009e+02_rb,5.7949e+02_rb,4.1414e+02_rb,2.7668e+02_rb/)\n      kbo(:,36,15) = (/ &\n     &9.0171e+02_rb,7.0086e+02_rb,5.0886e+02_rb,3.3823e+02_rb,2.2240e+02_rb/)\n      kbo(:,37,15) = (/ &\n     &9.0464e+02_rb,7.0259e+02_rb,5.0334e+02_rb,3.3120e+02_rb,2.1250e+02_rb/)\n      kbo(:,38,15) = (/ &\n     &9.1272e+02_rb,7.0777e+02_rb,5.0236e+02_rb,3.2627e+02_rb,2.0281e+02_rb/)\n      kbo(:,39,15) = (/ &\n     &9.1592e+02_rb,7.0699e+02_rb,5.0029e+02_rb,3.1832e+02_rb,1.8984e+02_rb/)\n      kbo(:,40,15) = (/ &\n     &9.7111e+02_rb,7.5888e+02_rb,5.4218e+02_rb,3.5289e+02_rb,2.1710e+02_rb/)\n      kbo(:,41,15) = (/ &\n     &1.0392e+03_rb,8.1334e+02_rb,5.9329e+02_rb,4.0507e+02_rb,2.5679e+02_rb/)\n      kbo(:,42,15) = (/ &\n     &1.1018e+03_rb,8.7332e+02_rb,6.5360e+02_rb,4.6461e+02_rb,2.9410e+02_rb/)\n      kbo(:,43,15) = (/ &\n     &1.1780e+03_rb,9.5750e+02_rb,7.5295e+02_rb,5.3640e+02_rb,3.4968e+02_rb/)\n      kbo(:,44,15) = (/ &\n     &1.2774e+03_rb,1.0610e+03_rb,8.3382e+02_rb,6.1903e+02_rb,4.3881e+02_rb/)\n      kbo(:,45,15) = (/ &\n     &1.3696e+03_rb,1.1411e+03_rb,9.2825e+02_rb,7.2390e+02_rb,5.2087e+02_rb/)\n      kbo(:,46,15) = (/ &\n     &1.4458e+03_rb,1.2392e+03_rb,1.0284e+03_rb,8.1462e+02_rb,6.0446e+02_rb/)\n      kbo(:,47,15) = (/ &\n     &1.5185e+03_rb,1.3558e+03_rb,1.1323e+03_rb,9.2353e+02_rb,7.1923e+02_rb/)\n      kbo(:,48,15) = (/ &\n     &1.5480e+03_rb,1.4278e+03_rb,1.2433e+03_rb,1.0338e+03_rb,8.2416e+02_rb/)\n      kbo(:,49,15) = (/ &\n     &1.6321e+03_rb,1.4959e+03_rb,1.3391e+03_rb,1.1340e+03_rb,9.3754e+02_rb/)\n      kbo(:,50,15) = (/ &\n     &1.7049e+03_rb,1.5268e+03_rb,1.4037e+03_rb,1.2337e+03_rb,1.0324e+03_rb/)\n      kbo(:,51,15) = (/ &\n     &1.7473e+03_rb,1.6024e+03_rb,1.4662e+03_rb,1.3130e+03_rb,1.1235e+03_rb/)\n      kbo(:,52,15) = (/ &\n     &1.7742e+03_rb,1.6697e+03_rb,1.4942e+03_rb,1.3753e+03_rb,1.2160e+03_rb/)\n      kbo(:,53,15) = (/ &\n     &1.8257e+03_rb,1.7098e+03_rb,1.5772e+03_rb,1.4297e+03_rb,1.2866e+03_rb/)\n      kbo(:,54,15) = (/ &\n     &1.8238e+03_rb,1.7301e+03_rb,1.6290e+03_rb,1.4640e+03_rb,1.3508e+03_rb/)\n      kbo(:,55,15) = (/ &\n     &1.8598e+03_rb,1.7789e+03_rb,1.6666e+03_rb,1.5389e+03_rb,1.3930e+03_rb/)\n      kbo(:,56,15) = (/ &\n     &1.9305e+03_rb,1.7834e+03_rb,1.6800e+03_rb,1.5831e+03_rb,1.4252e+03_rb/)\n      kbo(:,57,15) = (/ &\n     &1.9902e+03_rb,1.8099e+03_rb,1.7296e+03_rb,1.6197e+03_rb,1.4994e+03_rb/)\n      kbo(:,58,15) = (/ &\n     &2.0569e+03_rb,1.8785e+03_rb,1.7252e+03_rb,1.6299e+03_rb,1.5366e+03_rb/)\n      kbo(:,59,15) = (/ &\n     &2.0792e+03_rb,1.9024e+03_rb,1.7290e+03_rb,1.6559e+03_rb,1.5493e+03_rb/)\n      kbo(:,13,16) = (/ &\n     &5.7074e+02_rb,5.5713e+02_rb,5.4253e+02_rb,5.2721e+02_rb,5.1131e+02_rb/)\n      kbo(:,14,16) = (/ &\n     &6.6774e+02_rb,6.5027e+02_rb,6.3161e+02_rb,6.1261e+02_rb,5.9377e+02_rb/)\n      kbo(:,15,16) = (/ &\n     &7.7763e+02_rb,7.5535e+02_rb,7.3247e+02_rb,7.0914e+02_rb,6.8554e+02_rb/)\n      kbo(:,16,16) = (/ &\n     &9.0056e+02_rb,8.7306e+02_rb,8.4456e+02_rb,8.1516e+02_rb,7.0895e+02_rb/)\n      kbo(:,17,16) = (/ &\n     &1.0366e+03_rb,1.0015e+03_rb,9.6519e+02_rb,8.8128e+02_rb,7.1380e+02_rb/)\n      kbo(:,18,16) = (/ &\n     &1.1817e+03_rb,1.1369e+03_rb,1.0597e+03_rb,8.5644e+02_rb,7.3707e+02_rb/)\n      kbo(:,19,16) = (/ &\n     &1.3316e+03_rb,1.2750e+03_rb,1.0321e+03_rb,8.8674e+02_rb,7.7129e+02_rb/)\n      kbo(:,20,16) = (/ &\n     &1.4803e+03_rb,1.2710e+03_rb,1.0855e+03_rb,9.4408e+02_rb,7.2356e+02_rb/)\n      kbo(:,21,16) = (/ &\n     &1.6247e+03_rb,1.3272e+03_rb,1.1530e+03_rb,9.8338e+02_rb,6.9198e+02_rb/)\n      kbo(:,22,16) = (/ &\n     &1.6008e+03_rb,1.3778e+03_rb,1.2081e+03_rb,9.0370e+02_rb,5.5641e+02_rb/)\n      kbo(:,23,16) = (/ &\n     &1.6342e+03_rb,1.4243e+03_rb,1.1304e+03_rb,8.5528e+02_rb,4.9240e+02_rb/)\n      kbo(:,24,16) = (/ &\n     &1.6690e+03_rb,1.4128e+03_rb,1.0773e+03_rb,6.8055e+02_rb,4.3204e+02_rb/)\n      kbo(:,25,16) = (/ &\n     &1.6932e+03_rb,1.3171e+03_rb,9.9569e+02_rb,5.6924e+02_rb,2.7405e+02_rb/)\n      kbo(:,26,16) = (/ &\n     &1.5997e+03_rb,1.2565e+03_rb,7.2147e+02_rb,4.1508e+02_rb,1.6363e+00_rb/)\n      kbo(:,27,16) = (/ &\n     &1.4709e+03_rb,1.0620e+03_rb,5.5367e+02_rb,1.6801e+02_rb,1.7711e+00_rb/)\n      kbo(:,28,16) = (/ &\n     &1.2868e+03_rb,7.4225e+02_rb,4.1091e+02_rb,1.3979e+00_rb,1.9138e+00_rb/)\n      kbo(:,29,16) = (/ &\n     &1.1046e+03_rb,5.7327e+02_rb,1.1435e+02_rb,1.5227e+00_rb,2.0690e+00_rb/)\n      kbo(:,30,16) = (/ &\n     &7.5951e+02_rb,3.1070e+02_rb,1.1800e+00_rb,1.6572e+00_rb,2.2234e+00_rb/)\n      kbo(:,31,16) = (/ &\n     &5.2269e+02_rb,8.9357e-01_rb,1.2993e+00_rb,1.7936e+00_rb,2.3615e+00_rb/)\n      kbo(:,32,16) = (/ &\n     &1.3504e+02_rb,9.8754e-01_rb,1.4263e+00_rb,1.9479e+00_rb,2.5792e+00_rb/)\n      kbo(:,33,16) = (/ &\n     &7.3408e-01_rb,1.0937e+00_rb,1.5601e+00_rb,2.1018e+00_rb,2.7689e+00_rb/)\n      kbo(:,34,16) = (/ &\n     &8.0973e-01_rb,1.1916e+00_rb,1.6719e+00_rb,2.2462e+00_rb,2.9376e+00_rb/)\n      kbo(:,35,16) = (/ &\n     &8.5624e-01_rb,1.2515e+00_rb,1.7457e+00_rb,2.3340e+00_rb,3.0393e+00_rb/)\n      kbo(:,36,16) = (/ &\n     &8.6582e-01_rb,1.2640e+00_rb,1.7620e+00_rb,2.3537e+00_rb,3.0624e+00_rb/)\n      kbo(:,37,16) = (/ &\n     &8.2392e-01_rb,1.2109e+00_rb,1.6970e+00_rb,2.2619e+00_rb,2.9651e+00_rb/)\n      kbo(:,38,16) = (/ &\n     &7.7820e-01_rb,1.1515e+00_rb,1.6284e+00_rb,2.1818e+00_rb,2.8537e+00_rb/)\n      kbo(:,39,16) = (/ &\n     &7.3137e-01_rb,1.0905e+00_rb,1.5568e+00_rb,2.1026e+00_rb,2.7617e+00_rb/)\n      kbo(:,40,16) = (/ &\n     &6.6113e-01_rb,9.9827e-01_rb,1.4324e+00_rb,1.9599e+00_rb,2.5782e+00_rb/)\n      kbo(:,41,16) = (/ &\n     &5.8979e-01_rb,9.0432e-01_rb,1.3165e+00_rb,1.8211e+00_rb,2.4166e+00_rb/)\n      kbo(:,42,16) = (/ &\n     &5.2189e-01_rb,8.1262e-01_rb,1.2033e+00_rb,1.6872e+00_rb,2.2584e+00_rb/)\n      kbo(:,43,16) = (/ &\n     &4.5012e-01_rb,7.1522e-01_rb,1.0693e+00_rb,1.5212e+00_rb,2.0670e+00_rb/)\n      kbo(:,44,16) = (/ &\n     &3.7946e-01_rb,6.1667e-01_rb,9.4312e-01_rb,1.3624e+00_rb,1.8770e+00_rb/)\n      kbo(:,45,16) = (/ &\n     &3.1558e-01_rb,5.2623e-01_rb,8.0787e-01_rb,1.2032e+00_rb,1.6863e+00_rb/)\n      kbo(:,46,16) = (/ &\n     &2.9590e+02_rb,4.4343e-01_rb,7.0619e-01_rb,1.0578e+00_rb,1.5068e+00_rb/)\n      kbo(:,47,16) = (/ &\n     &7.2659e+02_rb,3.5873e-01_rb,5.9101e-01_rb,9.0599e-01_rb,1.3156e+00_rb/)\n      kbo(:,48,16) = (/ &\n     &1.3181e+03_rb,3.4672e+02_rb,4.8767e-01_rb,7.6683e-01_rb,1.1370e+00_rb/)\n      kbo(:,49,16) = (/ &\n     &1.6047e+03_rb,7.6641e+02_rb,7.0071e+01_rb,6.4471e-01_rb,9.8037e-01_rb/)\n      kbo(:,50,16) = (/ &\n     &1.8848e+03_rb,1.3103e+03_rb,4.1613e+02_rb,5.4100e-01_rb,8.3899e-01_rb/)\n      kbo(:,51,16) = (/ &\n     &2.2044e+03_rb,1.5848e+03_rb,7.6808e+02_rb,1.1316e+02_rb,7.2276e-01_rb/)\n      kbo(:,52,16) = (/ &\n     &2.7162e+03_rb,1.8452e+03_rb,1.2957e+03_rb,4.5829e+02_rb,6.1559e-01_rb/)\n      kbo(:,53,16) = (/ &\n     &3.1107e+03_rb,2.1559e+03_rb,1.5529e+03_rb,8.4689e+02_rb,1.7464e+02_rb/)\n      kbo(:,54,16) = (/ &\n     &3.6955e+03_rb,2.6522e+03_rb,1.8196e+03_rb,1.2866e+03_rb,5.0615e+02_rb/)\n      kbo(:,55,16) = (/ &\n     &4.0343e+03_rb,2.9873e+03_rb,2.0751e+03_rb,1.5293e+03_rb,8.5669e+02_rb/)\n      kbo(:,56,16) = (/ &\n     &4.1921e+03_rb,3.4914e+03_rb,2.5653e+03_rb,1.7745e+03_rb,1.2881e+03_rb/)\n      kbo(:,57,16) = (/ &\n     &4.3609e+03_rb,3.8712e+03_rb,2.9041e+03_rb,2.0379e+03_rb,1.5211e+03_rb/)\n      kbo(:,58,16) = (/ &\n     &4.5313e+03_rb,4.0098e+03_rb,3.4243e+03_rb,2.5213e+03_rb,1.7627e+03_rb/)\n      kbo(:,59,16) = (/ &\n     &4.6034e+03_rb,4.0679e+03_rb,3.6299e+03_rb,2.7016e+03_rb,1.9029e+03_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n      kao_mn2o( 1, :, 1) = (/ &\n     & 5.41078e-02_rb, 5.59051e-02_rb, 5.77620e-02_rb, 5.96805e-02_rb, 6.16628e-02_rb, &\n     & 6.37110e-02_rb, 6.58272e-02_rb, 6.80137e-02_rb, 7.02728e-02_rb, 7.26069e-02_rb, &\n     & 7.50185e-02_rb, 7.75103e-02_rb, 8.00848e-02_rb, 8.27449e-02_rb, 8.54933e-02_rb, &\n     & 8.83330e-02_rb, 9.12670e-02_rb, 9.42984e-02_rb, 9.74306e-02_rb/)\n      kao_mn2o( 2, :, 1) = (/ &\n     & 1.19602e-01_rb, 1.22963e-01_rb, 1.26417e-01_rb, 1.29969e-01_rb, 1.33621e-01_rb, &\n     & 1.37375e-01_rb, 1.41235e-01_rb, 1.45203e-01_rb, 1.49283e-01_rb, 1.53477e-01_rb, &\n     & 1.57789e-01_rb, 1.62223e-01_rb, 1.66780e-01_rb, 1.71466e-01_rb, 1.76284e-01_rb, &\n     & 1.81237e-01_rb, 1.86329e-01_rb, 1.91564e-01_rb, 1.96946e-01_rb/)\n      kao_mn2o( 3, :, 1) = (/ &\n     & 1.49614e-01_rb, 1.53427e-01_rb, 1.57337e-01_rb, 1.61346e-01_rb, 1.65457e-01_rb, &\n     & 1.69674e-01_rb, 1.73997e-01_rb, 1.78431e-01_rb, 1.82978e-01_rb, 1.87641e-01_rb, &\n     & 1.92422e-01_rb, 1.97325e-01_rb, 2.02354e-01_rb, 2.07510e-01_rb, 2.12798e-01_rb, &\n     & 2.18221e-01_rb, 2.23781e-01_rb, 2.29484e-01_rb, 2.35331e-01_rb/)\n      kao_mn2o( 4, :, 1) = (/ &\n     & 1.80029e-01_rb, 1.84202e-01_rb, 1.88472e-01_rb, 1.92841e-01_rb, 1.97311e-01_rb, &\n     & 2.01884e-01_rb, 2.06564e-01_rb, 2.11352e-01_rb, 2.16252e-01_rb, 2.21264e-01_rb, &\n     & 2.26393e-01_rb, 2.31641e-01_rb, 2.37010e-01_rb, 2.42504e-01_rb, 2.48126e-01_rb, &\n     & 2.53877e-01_rb, 2.59762e-01_rb, 2.65783e-01_rb, 2.71944e-01_rb/)\n      kao_mn2o( 5, :, 1) = (/ &\n     & 2.08279e-01_rb, 2.13029e-01_rb, 2.17888e-01_rb, 2.22858e-01_rb, 2.27941e-01_rb, &\n     & 2.33140e-01_rb, 2.38458e-01_rb, 2.43897e-01_rb, 2.49460e-01_rb, 2.55150e-01_rb, &\n     & 2.60969e-01_rb, 2.66922e-01_rb, 2.73010e-01_rb, 2.79237e-01_rb, 2.85606e-01_rb, &\n     & 2.92120e-01_rb, 2.98783e-01_rb, 3.05598e-01_rb, 3.12568e-01_rb/)\n      kao_mn2o( 6, :, 1) = (/ &\n     & 2.17336e-01_rb, 2.22571e-01_rb, 2.27931e-01_rb, 2.33421e-01_rb, 2.39043e-01_rb, &\n     & 2.44801e-01_rb, 2.50697e-01_rb, 2.56735e-01_rb, 2.62918e-01_rb, 2.69251e-01_rb, &\n     & 2.75735e-01_rb, 2.82377e-01_rb, 2.89178e-01_rb, 2.96142e-01_rb, 3.03275e-01_rb, &\n     & 3.10579e-01_rb, 3.18060e-01_rb, 3.25720e-01_rb, 3.33565e-01_rb/)\n      kao_mn2o( 7, :, 1) = (/ &\n     & 2.23903e-01_rb, 2.29349e-01_rb, 2.34926e-01_rb, 2.40640e-01_rb, 2.46493e-01_rb, &\n     & 2.52488e-01_rb, 2.58628e-01_rb, 2.64918e-01_rb, 2.71361e-01_rb, 2.77961e-01_rb, &\n     & 2.84721e-01_rb, 2.91646e-01_rb, 2.98739e-01_rb, 3.06005e-01_rb, 3.13447e-01_rb, &\n     & 3.21070e-01_rb, 3.28879e-01_rb, 3.36877e-01_rb, 3.45071e-01_rb/)\n      kao_mn2o( 8, :, 1) = (/ &\n     & 2.23400e-01_rb, 2.28843e-01_rb, 2.34418e-01_rb, 2.40130e-01_rb, 2.45980e-01_rb, &\n     & 2.51973e-01_rb, 2.58112e-01_rb, 2.64401e-01_rb, 2.70843e-01_rb, 2.77442e-01_rb, &\n     & 2.84202e-01_rb, 2.91126e-01_rb, 2.98219e-01_rb, 3.05485e-01_rb, 3.12928e-01_rb, &\n     & 3.20552e-01_rb, 3.28362e-01_rb, 3.36362e-01_rb, 3.44557e-01_rb/)\n      kao_mn2o( 9, :, 1) = (/ &\n     & 1.89279e-01_rb, 1.94423e-01_rb, 1.99707e-01_rb, 2.05135e-01_rb, 2.10710e-01_rb, &\n     & 2.16437e-01_rb, 2.22319e-01_rb, 2.28361e-01_rb, 2.34568e-01_rb, 2.40943e-01_rb, &\n     & 2.47492e-01_rb, 2.54218e-01_rb, 2.61127e-01_rb, 2.68224e-01_rb, 2.75514e-01_rb, &\n     & 2.83002e-01_rb, 2.90694e-01_rb, 2.98594e-01_rb, 3.06709e-01_rb/)\n      kao_mn2o( 1, :, 2) = (/ &\n     & 9.46669e-02_rb, 9.77137e-02_rb, 1.00858e-01_rb, 1.04104e-01_rb, 1.07455e-01_rb, &\n     & 1.10913e-01_rb, 1.14483e-01_rb, 1.18167e-01_rb, 1.21971e-01_rb, 1.25896e-01_rb, &\n     & 1.29948e-01_rb, 1.34130e-01_rb, 1.38447e-01_rb, 1.42903e-01_rb, 1.47502e-01_rb, &\n     & 1.52249e-01_rb, 1.57149e-01_rb, 1.62207e-01_rb, 1.67427e-01_rb/)\n      kao_mn2o( 2, :, 2) = (/ &\n     & 5.11901e-01_rb, 5.24950e-01_rb, 5.38331e-01_rb, 5.52053e-01_rb, 5.66125e-01_rb, &\n     & 5.80556e-01_rb, 5.95354e-01_rb, 6.10530e-01_rb, 6.26093e-01_rb, 6.42052e-01_rb, &\n     & 6.58418e-01_rb, 6.75202e-01_rb, 6.92413e-01_rb, 7.10062e-01_rb, 7.28162e-01_rb, &\n     & 7.46723e-01_rb, 7.65758e-01_rb, 7.85277e-01_rb, 8.05294e-01_rb/)\n      kao_mn2o( 3, :, 2) = (/ &\n     & 8.32946e-01_rb, 8.45780e-01_rb, 8.58813e-01_rb, 8.72046e-01_rb, 8.85482e-01_rb, &\n     & 8.99126e-01_rb, 9.12980e-01_rb, 9.27048e-01_rb, 9.41332e-01_rb, 9.55837e-01_rb, &\n     & 9.70565e-01_rb, 9.85520e-01_rb, 1.00070e+00_rb, 1.01612e+00_rb, 1.03178e+00_rb, &\n     & 1.04768e+00_rb, 1.06382e+00_rb, 1.08021e+00_rb, 1.09686e+00_rb/)\n      kao_mn2o( 4, :, 2) = (/ &\n     & 1.04032e+00_rb, 1.05475e+00_rb, 1.06937e+00_rb, 1.08419e+00_rb, 1.09922e+00_rb, &\n     & 1.11446e+00_rb, 1.12991e+00_rb, 1.14557e+00_rb, 1.16145e+00_rb, 1.17755e+00_rb, &\n     & 1.19387e+00_rb, 1.21042e+00_rb, 1.22720e+00_rb, 1.24421e+00_rb, 1.26146e+00_rb, &\n     & 1.27895e+00_rb, 1.29668e+00_rb, 1.31465e+00_rb, 1.33287e+00_rb/)\n      kao_mn2o( 5, :, 2) = (/ &\n     & 1.22685e+00_rb, 1.24267e+00_rb, 1.25870e+00_rb, 1.27493e+00_rb, 1.29137e+00_rb, &\n     & 1.30803e+00_rb, 1.32490e+00_rb, 1.34199e+00_rb, 1.35930e+00_rb, 1.37683e+00_rb, &\n     & 1.39459e+00_rb, 1.41257e+00_rb, 1.43079e+00_rb, 1.44925e+00_rb, 1.46794e+00_rb, &\n     & 1.48687e+00_rb, 1.50605e+00_rb, 1.52547e+00_rb, 1.54515e+00_rb/)\n      kao_mn2o( 6, :, 2) = (/ &\n     & 1.53781e+00_rb, 1.55206e+00_rb, 1.56645e+00_rb, 1.58097e+00_rb, 1.59563e+00_rb, &\n     & 1.61042e+00_rb, 1.62535e+00_rb, 1.64042e+00_rb, 1.65562e+00_rb, 1.67097e+00_rb, &\n     & 1.68646e+00_rb, 1.70210e+00_rb, 1.71788e+00_rb, 1.73380e+00_rb, 1.74987e+00_rb, &\n     & 1.76610e+00_rb, 1.78247e+00_rb, 1.79899e+00_rb, 1.81567e+00_rb/)\n      kao_mn2o( 7, :, 2) = (/ &\n     & 1.90476e+00_rb, 1.91858e+00_rb, 1.93251e+00_rb, 1.94653e+00_rb, 1.96065e+00_rb, &\n     & 1.97488e+00_rb, 1.98921e+00_rb, 2.00365e+00_rb, 2.01819e+00_rb, 2.03283e+00_rb, &\n     & 2.04758e+00_rb, 2.06244e+00_rb, 2.07741e+00_rb, 2.09248e+00_rb, 2.10767e+00_rb, &\n     & 2.12296e+00_rb, 2.13837e+00_rb, 2.15388e+00_rb, 2.16951e+00_rb/)\n      kao_mn2o( 8, :, 2) = (/ &\n     & 2.38211e+00_rb, 2.39819e+00_rb, 2.41438e+00_rb, 2.43068e+00_rb, 2.44709e+00_rb, &\n     & 2.46361e+00_rb, 2.48024e+00_rb, 2.49699e+00_rb, 2.51384e+00_rb, 2.53082e+00_rb, &\n     & 2.54790e+00_rb, 2.56510e+00_rb, 2.58242e+00_rb, 2.59985e+00_rb, 2.61741e+00_rb, &\n     & 2.63508e+00_rb, 2.65287e+00_rb, 2.67078e+00_rb, 2.68881e+00_rb/)\n      kao_mn2o( 9, :, 2) = (/ &\n     & 1.26464e+00_rb, 1.28107e+00_rb, 1.29772e+00_rb, 1.31458e+00_rb, 1.33166e+00_rb, &\n     & 1.34896e+00_rb, 1.36649e+00_rb, 1.38424e+00_rb, 1.40223e+00_rb, 1.42044e+00_rb, &\n     & 1.43890e+00_rb, 1.45759e+00_rb, 1.47653e+00_rb, 1.49572e+00_rb, 1.51515e+00_rb, &\n     & 1.53483e+00_rb, 1.55478e+00_rb, 1.57498e+00_rb, 1.59544e+00_rb/)\n      kao_mn2o( 1, :, 3) = (/ &\n     & 1.50082e-01_rb, 1.59095e-01_rb, 1.68650e-01_rb, 1.78779e-01_rb, 1.89516e-01_rb, &\n     & 2.00898e-01_rb, 2.12963e-01_rb, 2.25753e-01_rb, 2.39311e-01_rb, 2.53683e-01_rb, &\n     & 2.68919e-01_rb, 2.85069e-01_rb, 3.02190e-01_rb, 3.20339e-01_rb, 3.39577e-01_rb, &\n     & 3.59971e-01_rb, 3.81590e-01_rb, 4.04507e-01_rb, 4.28801e-01_rb/)\n      kao_mn2o( 2, :, 3) = (/ &\n     & 3.09551e+00_rb, 3.09780e+00_rb, 3.10008e+00_rb, 3.10237e+00_rb, 3.10466e+00_rb, &\n     & 3.10695e+00_rb, 3.10925e+00_rb, 3.11154e+00_rb, 3.11384e+00_rb, 3.11614e+00_rb, &\n     & 3.11844e+00_rb, 3.12074e+00_rb, 3.12305e+00_rb, 3.12535e+00_rb, 3.12766e+00_rb, &\n     & 3.12997e+00_rb, 3.13228e+00_rb, 3.13459e+00_rb, 3.13691e+00_rb/)\n      kao_mn2o( 3, :, 3) = (/ &\n     & 4.42661e+00_rb, 4.40858e+00_rb, 4.39062e+00_rb, 4.37274e+00_rb, 4.35493e+00_rb, &\n     & 4.33719e+00_rb, 4.31953e+00_rb, 4.30193e+00_rb, 4.28441e+00_rb, 4.26696e+00_rb, &\n     & 4.24958e+00_rb, 4.23227e+00_rb, 4.21503e+00_rb, 4.19787e+00_rb, 4.18077e+00_rb, &\n     & 4.16374e+00_rb, 4.14678e+00_rb, 4.12989e+00_rb, 4.11307e+00_rb/)\n      kao_mn2o( 4, :, 3) = (/ &\n     & 5.77864e+00_rb, 5.74085e+00_rb, 5.70331e+00_rb, 5.66602e+00_rb, 5.62897e+00_rb, &\n     & 5.59216e+00_rb, 5.55559e+00_rb, 5.51926e+00_rb, 5.48317e+00_rb, 5.44731e+00_rb, &\n     & 5.41169e+00_rb, 5.37631e+00_rb, 5.34115e+00_rb, 5.30622e+00_rb, 5.27152e+00_rb, &\n     & 5.23705e+00_rb, 5.20281e+00_rb, 5.16879e+00_rb, 5.13499e+00_rb/)\n      kao_mn2o( 5, :, 3) = (/ &\n     & 7.17294e+00_rb, 7.10890e+00_rb, 7.04542e+00_rb, 6.98251e+00_rb, 6.92017e+00_rb, &\n     & 6.85838e+00_rb, 6.79714e+00_rb, 6.73645e+00_rb, 6.67630e+00_rb, 6.61669e+00_rb, &\n     & 6.55761e+00_rb, 6.49905e+00_rb, 6.44102e+00_rb, 6.38351e+00_rb, 6.32651e+00_rb, &\n     & 6.27003e+00_rb, 6.21404e+00_rb, 6.15856e+00_rb, 6.10357e+00_rb/)\n      kao_mn2o( 6, :, 3) = (/ &\n     & 9.05082e+00_rb, 8.96132e+00_rb, 8.87271e+00_rb, 8.78498e+00_rb, 8.69811e+00_rb, &\n     & 8.61210e+00_rb, 8.52694e+00_rb, 8.44262e+00_rb, 8.35914e+00_rb, 8.27648e+00_rb, &\n     & 8.19464e+00_rb, 8.11361e+00_rb, 8.03338e+00_rb, 7.95394e+00_rb, 7.87529e+00_rb, &\n     & 7.79742e+00_rb, 7.72032e+00_rb, 7.64398e+00_rb, 7.56839e+00_rb/)\n      kao_mn2o( 7, :, 3) = (/ &\n     & 1.18749e+01_rb, 1.17648e+01_rb, 1.16556e+01_rb, 1.15475e+01_rb, 1.14403e+01_rb, &\n     & 1.13342e+01_rb, 1.12290e+01_rb, 1.11248e+01_rb, 1.10216e+01_rb, 1.09194e+01_rb, &\n     & 1.08180e+01_rb, 1.07177e+01_rb, 1.06182e+01_rb, 1.05197e+01_rb, 1.04221e+01_rb, &\n     & 1.03254e+01_rb, 1.02296e+01_rb, 1.01347e+01_rb, 1.00407e+01_rb/)\n      kao_mn2o( 8, :, 3) = (/ &\n     & 1.41428e+01_rb, 1.40323e+01_rb, 1.39227e+01_rb, 1.38139e+01_rb, 1.37060e+01_rb, &\n     & 1.35989e+01_rb, 1.34927e+01_rb, 1.33873e+01_rb, 1.32827e+01_rb, 1.31790e+01_rb, &\n     & 1.30760e+01_rb, 1.29738e+01_rb, 1.28725e+01_rb, 1.27719e+01_rb, 1.26722e+01_rb, &\n     & 1.25732e+01_rb, 1.24750e+01_rb, 1.23775e+01_rb, 1.22808e+01_rb/)\n      kao_mn2o( 9, :, 3) = (/ &\n     & 7.34993e+00_rb, 7.29335e+00_rb, 7.23720e+00_rb, 7.18149e+00_rb, 7.12620e+00_rb, &\n     & 7.07134e+00_rb, 7.01690e+00_rb, 6.96288e+00_rb, 6.90928e+00_rb, 6.85609e+00_rb, &\n     & 6.80331e+00_rb, 6.75094e+00_rb, 6.69897e+00_rb, 6.64739e+00_rb, 6.59622e+00_rb, &\n     & 6.54544e+00_rb, 6.49505e+00_rb, 6.44505e+00_rb, 6.39543e+00_rb/)\n      kao_mn2o( 1, :, 4) = (/ &\n     & 6.11248e-01_rb, 6.37225e-01_rb, 6.64306e-01_rb, 6.92538e-01_rb, 7.21970e-01_rb, &\n     & 7.52653e-01_rb, 7.84639e-01_rb, 8.17985e-01_rb, 8.52749e-01_rb, 8.88989e-01_rb, &\n     & 9.26770e-01_rb, 9.66157e-01_rb, 1.00722e+00_rb, 1.05002e+00_rb, 1.09465e+00_rb, &\n     & 1.14117e+00_rb, 1.18967e+00_rb, 1.24022e+00_rb, 1.29293e+00_rb/)\n      kao_mn2o( 2, :, 4) = (/ &\n     & 5.07253e+00_rb, 5.05299e+00_rb, 5.03353e+00_rb, 5.01414e+00_rb, 4.99483e+00_rb, &\n     & 4.97559e+00_rb, 4.95642e+00_rb, 4.93733e+00_rb, 4.91831e+00_rb, 4.89937e+00_rb, &\n     & 4.88050e+00_rb, 4.86170e+00_rb, 4.84297e+00_rb, 4.82432e+00_rb, 4.80573e+00_rb, &\n     & 4.78722e+00_rb, 4.76878e+00_rb, 4.75042e+00_rb, 4.73212e+00_rb/)\n      kao_mn2o( 3, :, 4) = (/ &\n     & 7.45829e+00_rb, 7.42266e+00_rb, 7.38719e+00_rb, 7.35190e+00_rb, 7.31677e+00_rb, &\n     & 7.28181e+00_rb, 7.24702e+00_rb, 7.21240e+00_rb, 7.17794e+00_rb, 7.14364e+00_rb, &\n     & 7.10951e+00_rb, 7.07554e+00_rb, 7.04173e+00_rb, 7.00809e+00_rb, 6.97461e+00_rb, &\n     & 6.94128e+00_rb, 6.90812e+00_rb, 6.87511e+00_rb, 6.84226e+00_rb/)\n      kao_mn2o( 4, :, 4) = (/ &\n     & 9.58893e+00_rb, 9.54796e+00_rb, 9.50716e+00_rb, 9.46654e+00_rb, 9.42609e+00_rb, &\n     & 9.38581e+00_rb, 9.34571e+00_rb, 9.30578e+00_rb, 9.26602e+00_rb, 9.22642e+00_rb, &\n     & 9.18700e+00_rb, 9.14775e+00_rb, 9.10866e+00_rb, 9.06974e+00_rb, 9.03099e+00_rb, &\n     & 8.99240e+00_rb, 8.95398e+00_rb, 8.91572e+00_rb, 8.87762e+00_rb/)\n      kao_mn2o( 5, :, 4) = (/ &\n     & 1.16344e+01_rb, 1.16012e+01_rb, 1.15681e+01_rb, 1.15351e+01_rb, 1.15022e+01_rb, &\n     & 1.14694e+01_rb, 1.14366e+01_rb, 1.14040e+01_rb, 1.13715e+01_rb, 1.13390e+01_rb, &\n     & 1.13067e+01_rb, 1.12744e+01_rb, 1.12422e+01_rb, 1.12102e+01_rb, 1.11782e+01_rb, &\n     & 1.11463e+01_rb, 1.11145e+01_rb, 1.10828e+01_rb, 1.10511e+01_rb/)\n      kao_mn2o( 6, :, 4) = (/ &\n     & 1.12460e+01_rb, 1.12402e+01_rb, 1.12344e+01_rb, 1.12286e+01_rb, 1.12228e+01_rb, &\n     & 1.12170e+01_rb, 1.12112e+01_rb, 1.12055e+01_rb, 1.11997e+01_rb, 1.11939e+01_rb, &\n     & 1.11882e+01_rb, 1.11824e+01_rb, 1.11766e+01_rb, 1.11709e+01_rb, 1.11651e+01_rb, &\n     & 1.11594e+01_rb, 1.11536e+01_rb, 1.11479e+01_rb, 1.11421e+01_rb/)\n      kao_mn2o( 7, :, 4) = (/ &\n     & 8.89265e+00_rb, 8.91419e+00_rb, 8.93578e+00_rb, 8.95743e+00_rb, 8.97913e+00_rb, &\n     & 9.00088e+00_rb, 9.02268e+00_rb, 9.04454e+00_rb, 9.06645e+00_rb, 9.08841e+00_rb, &\n     & 9.11043e+00_rb, 9.13250e+00_rb, 9.15462e+00_rb, 9.17680e+00_rb, 9.19903e+00_rb, &\n     & 9.22131e+00_rb, 9.24365e+00_rb, 9.26604e+00_rb, 9.28849e+00_rb/)\n      kao_mn2o( 8, :, 4) = (/ &\n     & 6.83933e+00_rb, 6.86688e+00_rb, 6.89453e+00_rb, 6.92230e+00_rb, 6.95018e+00_rb, &\n     & 6.97817e+00_rb, 7.00627e+00_rb, 7.03449e+00_rb, 7.06282e+00_rb, 7.09126e+00_rb, &\n     & 7.11982e+00_rb, 7.14850e+00_rb, 7.17729e+00_rb, 7.20619e+00_rb, 7.23521e+00_rb, &\n     & 7.26435e+00_rb, 7.29361e+00_rb, 7.32298e+00_rb, 7.35248e+00_rb/)\n      kao_mn2o( 9, :, 4) = (/ &\n     & 1.10637e+01_rb, 1.10232e+01_rb, 1.09829e+01_rb, 1.09427e+01_rb, 1.09026e+01_rb, &\n     & 1.08627e+01_rb, 1.08230e+01_rb, 1.07833e+01_rb, 1.07439e+01_rb, 1.07046e+01_rb, &\n     & 1.06654e+01_rb, 1.06263e+01_rb, 1.05875e+01_rb, 1.05487e+01_rb, 1.05101e+01_rb, &\n     & 1.04716e+01_rb, 1.04333e+01_rb, 1.03951e+01_rb, 1.03571e+01_rb/)\n      kao_mn2o( 1, :, 5) = (/ &\n     & 2.53460e+00_rb, 2.56050e+00_rb, 2.58667e+00_rb, 2.61310e+00_rb, 2.63980e+00_rb, &\n     & 2.66678e+00_rb, 2.69403e+00_rb, 2.72156e+00_rb, 2.74937e+00_rb, 2.77746e+00_rb, &\n     & 2.80585e+00_rb, 2.83452e+00_rb, 2.86348e+00_rb, 2.89275e+00_rb, 2.92231e+00_rb, &\n     & 2.95217e+00_rb, 2.98234e+00_rb, 3.01281e+00_rb, 3.04360e+00_rb/)\n      kao_mn2o( 2, :, 5) = (/ &\n     & 7.45650e+00_rb, 7.44283e+00_rb, 7.42919e+00_rb, 7.41557e+00_rb, 7.40198e+00_rb, &\n     & 7.38841e+00_rb, 7.37487e+00_rb, 7.36135e+00_rb, 7.34786e+00_rb, 7.33439e+00_rb, &\n     & 7.32095e+00_rb, 7.30753e+00_rb, 7.29413e+00_rb, 7.28076e+00_rb, 7.26742e+00_rb, &\n     & 7.25410e+00_rb, 7.24080e+00_rb, 7.22753e+00_rb, 7.21428e+00_rb/)\n      kao_mn2o( 3, :, 5) = (/ &\n     & 1.06311e+01_rb, 1.06110e+01_rb, 1.05909e+01_rb, 1.05709e+01_rb, 1.05509e+01_rb, &\n     & 1.05310e+01_rb, 1.05111e+01_rb, 1.04912e+01_rb, 1.04713e+01_rb, 1.04516e+01_rb, &\n     & 1.04318e+01_rb, 1.04121e+01_rb, 1.03924e+01_rb, 1.03727e+01_rb, 1.03531e+01_rb, &\n     & 1.03336e+01_rb, 1.03140e+01_rb, 1.02945e+01_rb, 1.02751e+01_rb/)\n      kao_mn2o( 4, :, 5) = (/ &\n     & 1.03924e+01_rb, 1.03895e+01_rb, 1.03867e+01_rb, 1.03838e+01_rb, 1.03809e+01_rb, &\n     & 1.03780e+01_rb, 1.03751e+01_rb, 1.03722e+01_rb, 1.03693e+01_rb, 1.03665e+01_rb, &\n     & 1.03636e+01_rb, 1.03607e+01_rb, 1.03578e+01_rb, 1.03549e+01_rb, 1.03521e+01_rb, &\n     & 1.03492e+01_rb, 1.03463e+01_rb, 1.03434e+01_rb, 1.03406e+01_rb/)\n      kao_mn2o( 5, :, 5) = (/ &\n     & 7.82277e+00_rb, 7.83872e+00_rb, 7.85471e+00_rb, 7.87073e+00_rb, 7.88678e+00_rb, &\n     & 7.90287e+00_rb, 7.91899e+00_rb, 7.93514e+00_rb, 7.95132e+00_rb, 7.96754e+00_rb, &\n     & 7.98379e+00_rb, 8.00008e+00_rb, 8.01639e+00_rb, 8.03274e+00_rb, 8.04913e+00_rb, &\n     & 8.06555e+00_rb, 8.08200e+00_rb, 8.09848e+00_rb, 8.11500e+00_rb/)\n      kao_mn2o( 6, :, 5) = (/ &\n     & 6.05225e+00_rb, 6.06883e+00_rb, 6.08545e+00_rb, 6.10212e+00_rb, 6.11883e+00_rb, &\n     & 6.13559e+00_rb, 6.15240e+00_rb, 6.16925e+00_rb, 6.18615e+00_rb, 6.20309e+00_rb, &\n     & 6.22008e+00_rb, 6.23712e+00_rb, 6.25420e+00_rb, 6.27133e+00_rb, 6.28851e+00_rb, &\n     & 6.30574e+00_rb, 6.32301e+00_rb, 6.34033e+00_rb, 6.35769e+00_rb/)\n      kao_mn2o( 7, :, 5) = (/ &\n     & 5.24135e+00_rb, 5.25696e+00_rb, 5.27261e+00_rb, 5.28831e+00_rb, 5.30405e+00_rb, &\n     & 5.31984e+00_rb, 5.33568e+00_rb, 5.35157e+00_rb, 5.36750e+00_rb, 5.38348e+00_rb, &\n     & 5.39951e+00_rb, 5.41558e+00_rb, 5.43171e+00_rb, 5.44788e+00_rb, 5.46410e+00_rb, &\n     & 5.48037e+00_rb, 5.49668e+00_rb, 5.51305e+00_rb, 5.52946e+00_rb/)\n      kao_mn2o( 8, :, 5) = (/ &\n     & 4.40240e+00_rb, 4.40915e+00_rb, 4.41591e+00_rb, 4.42268e+00_rb, 4.42946e+00_rb, &\n     & 4.43625e+00_rb, 4.44305e+00_rb, 4.44986e+00_rb, 4.45668e+00_rb, 4.46351e+00_rb, &\n     & 4.47035e+00_rb, 4.47720e+00_rb, 4.48407e+00_rb, 4.49094e+00_rb, 4.49782e+00_rb, &\n     & 4.50472e+00_rb, 4.51162e+00_rb, 4.51854e+00_rb, 4.52547e+00_rb/)\n      kao_mn2o( 9, :, 5) = (/ &\n     & 8.56554e+00_rb, 8.59185e+00_rb, 8.61824e+00_rb, 8.64470e+00_rb, 8.67125e+00_rb, &\n     & 8.69788e+00_rb, 8.72460e+00_rb, 8.75139e+00_rb, 8.77827e+00_rb, 8.80523e+00_rb, &\n     & 8.83227e+00_rb, 8.85939e+00_rb, 8.88660e+00_rb, 8.91389e+00_rb, 8.94127e+00_rb, &\n     & 8.96873e+00_rb, 8.99627e+00_rb, 9.02390e+00_rb, 9.05161e+00_rb/)\n      kao_mn2o( 1, :, 6) = (/ &\n     & 5.78695e+00_rb, 5.78939e+00_rb, 5.79182e+00_rb, 5.79426e+00_rb, 5.79670e+00_rb, &\n     & 5.79914e+00_rb, 5.80158e+00_rb, 5.80403e+00_rb, 5.80647e+00_rb, 5.80892e+00_rb, &\n     & 5.81136e+00_rb, 5.81381e+00_rb, 5.81626e+00_rb, 5.81870e+00_rb, 5.82115e+00_rb, &\n     & 5.82361e+00_rb, 5.82606e+00_rb, 5.82851e+00_rb, 5.83096e+00_rb/)\n      kao_mn2o( 2, :, 6) = (/ &\n     & 1.22893e+01_rb, 1.22556e+01_rb, 1.22221e+01_rb, 1.21886e+01_rb, 1.21552e+01_rb, &\n     & 1.21220e+01_rb, 1.20888e+01_rb, 1.20557e+01_rb, 1.20227e+01_rb, 1.19898e+01_rb, &\n     & 1.19569e+01_rb, 1.19242e+01_rb, 1.18915e+01_rb, 1.18590e+01_rb, 1.18265e+01_rb, &\n     & 1.17941e+01_rb, 1.17618e+01_rb, 1.17296e+01_rb, 1.16975e+01_rb/)\n      kao_mn2o( 3, :, 6) = (/ &\n     & 7.93118e+00_rb, 7.94590e+00_rb, 7.96065e+00_rb, 7.97542e+00_rb, 7.99022e+00_rb, &\n     & 8.00505e+00_rb, 8.01990e+00_rb, 8.03478e+00_rb, 8.04970e+00_rb, 8.06463e+00_rb, &\n     & 8.07960e+00_rb, 8.09459e+00_rb, 8.10961e+00_rb, 8.12466e+00_rb, 8.13974e+00_rb, &\n     & 8.15485e+00_rb, 8.16998e+00_rb, 8.18514e+00_rb, 8.20033e+00_rb/)\n      kao_mn2o( 4, :, 6) = (/ &\n     & 4.08899e+00_rb, 4.11435e+00_rb, 4.13988e+00_rb, 4.16556e+00_rb, 4.19140e+00_rb, &\n     & 4.21740e+00_rb, 4.24357e+00_rb, 4.26989e+00_rb, 4.29638e+00_rb, 4.32304e+00_rb, &\n     & 4.34985e+00_rb, 4.37684e+00_rb, 4.40399e+00_rb, 4.43131e+00_rb, 4.45880e+00_rb, &\n     & 4.48646e+00_rb, 4.51430e+00_rb, 4.54230e+00_rb, 4.57048e+00_rb/)\n      kao_mn2o( 5, :, 6) = (/ &\n     & 2.61358e+00_rb, 2.64029e+00_rb, 2.66728e+00_rb, 2.69454e+00_rb, 2.72209e+00_rb, &\n     & 2.74991e+00_rb, 2.77802e+00_rb, 2.80641e+00_rb, 2.83510e+00_rb, 2.86408e+00_rb, &\n     & 2.89335e+00_rb, 2.92293e+00_rb, 2.95280e+00_rb, 2.98299e+00_rb, 3.01348e+00_rb, &\n     & 3.04428e+00_rb, 3.07540e+00_rb, 3.10683e+00_rb, 3.13859e+00_rb/)\n      kao_mn2o( 6, :, 6) = (/ &\n     & 2.40720e+00_rb, 2.43430e+00_rb, 2.46169e+00_rb, 2.48940e+00_rb, 2.51741e+00_rb, &\n     & 2.54575e+00_rb, 2.57440e+00_rb, 2.60337e+00_rb, 2.63267e+00_rb, 2.66230e+00_rb, &\n     & 2.69226e+00_rb, 2.72256e+00_rb, 2.75320e+00_rb, 2.78419e+00_rb, 2.81552e+00_rb, &\n     & 2.84721e+00_rb, 2.87925e+00_rb, 2.91166e+00_rb, 2.94443e+00_rb/)\n      kao_mn2o( 7, :, 6) = (/ &\n     & 1.99607e+00_rb, 2.01725e+00_rb, 2.03865e+00_rb, 2.06028e+00_rb, 2.08214e+00_rb, &\n     & 2.10423e+00_rb, 2.12655e+00_rb, 2.14912e+00_rb, 2.17192e+00_rb, 2.19496e+00_rb, &\n     & 2.21825e+00_rb, 2.24179e+00_rb, 2.26557e+00_rb, 2.28961e+00_rb, 2.31390e+00_rb, &\n     & 2.33845e+00_rb, 2.36326e+00_rb, 2.38834e+00_rb, 2.41368e+00_rb/)\n      kao_mn2o( 8, :, 6) = (/ &\n     & 1.94150e+00_rb, 1.96398e+00_rb, 1.98671e+00_rb, 2.00971e+00_rb, 2.03298e+00_rb, &\n     & 2.05651e+00_rb, 2.08032e+00_rb, 2.10440e+00_rb, 2.12876e+00_rb, 2.15341e+00_rb, &\n     & 2.17834e+00_rb, 2.20355e+00_rb, 2.22906e+00_rb, 2.25487e+00_rb, 2.28097e+00_rb, &\n     & 2.30738e+00_rb, 2.33409e+00_rb, 2.36111e+00_rb, 2.38844e+00_rb/)\n      kao_mn2o( 9, :, 6) = (/ &\n     & 2.47259e+00_rb, 2.48950e+00_rb, 2.50653e+00_rb, 2.52367e+00_rb, 2.54093e+00_rb, &\n     & 2.55831e+00_rb, 2.57581e+00_rb, 2.59343e+00_rb, 2.61117e+00_rb, 2.62903e+00_rb, &\n     & 2.64701e+00_rb, 2.66511e+00_rb, 2.68334e+00_rb, 2.70169e+00_rb, 2.72017e+00_rb, &\n     & 2.73878e+00_rb, 2.75751e+00_rb, 2.77637e+00_rb, 2.79536e+00_rb/)\n      kao_mn2o( 1, :, 7) = (/ &\n     & 1.23417e+01_rb, 1.22618e+01_rb, 1.21823e+01_rb, 1.21034e+01_rb, 1.20250e+01_rb, &\n     & 1.19471e+01_rb, 1.18697e+01_rb, 1.17928e+01_rb, 1.17164e+01_rb, 1.16405e+01_rb, &\n     & 1.15651e+01_rb, 1.14901e+01_rb, 1.14157e+01_rb, 1.13417e+01_rb, 1.12683e+01_rb, &\n     & 1.11952e+01_rb, 1.11227e+01_rb, 1.10507e+01_rb, 1.09791e+01_rb/)\n      kao_mn2o( 2, :, 7) = (/ &\n     & 9.30957e+00_rb, 9.32775e+00_rb, 9.34597e+00_rb, 9.36421e+00_rb, 9.38250e+00_rb, &\n     & 9.40082e+00_rb, 9.41918e+00_rb, 9.43757e+00_rb, 9.45600e+00_rb, 9.47446e+00_rb, &\n     & 9.49296e+00_rb, 9.51150e+00_rb, 9.53007e+00_rb, 9.54868e+00_rb, 9.56732e+00_rb, &\n     & 9.58601e+00_rb, 9.60472e+00_rb, 9.62348e+00_rb, 9.64227e+00_rb/)\n      kao_mn2o( 3, :, 7) = (/ &\n     & 4.15867e+00_rb, 4.19254e+00_rb, 4.22668e+00_rb, 4.26110e+00_rb, 4.29581e+00_rb, &\n     & 4.33079e+00_rb, 4.36606e+00_rb, 4.40162e+00_rb, 4.43747e+00_rb, 4.47360e+00_rb, &\n     & 4.51004e+00_rb, 4.54677e+00_rb, 4.58380e+00_rb, 4.62113e+00_rb, 4.65876e+00_rb, &\n     & 4.69670e+00_rb, 4.73495e+00_rb, 4.77351e+00_rb, 4.81239e+00_rb/)\n      kao_mn2o( 4, :, 7) = (/ &\n     & 3.55634e+00_rb, 3.59382e+00_rb, 3.63169e+00_rb, 3.66996e+00_rb, 3.70863e+00_rb, &\n     & 3.74771e+00_rb, 3.78720e+00_rb, 3.82711e+00_rb, 3.86744e+00_rb, 3.90820e+00_rb, &\n     & 3.94938e+00_rb, 3.99100e+00_rb, 4.03305e+00_rb, 4.07555e+00_rb, 4.11850e+00_rb, &\n     & 4.16190e+00_rb, 4.20576e+00_rb, 4.25008e+00_rb, 4.29486e+00_rb/)\n      kao_mn2o( 5, :, 7) = (/ &\n     & 3.09468e+00_rb, 3.12655e+00_rb, 3.15876e+00_rb, 3.19129e+00_rb, 3.22416e+00_rb, &\n     & 3.25737e+00_rb, 3.29092e+00_rb, 3.32482e+00_rb, 3.35907e+00_rb, 3.39366e+00_rb, &\n     & 3.42862e+00_rb, 3.46393e+00_rb, 3.49961e+00_rb, 3.53566e+00_rb, 3.57208e+00_rb, &\n     & 3.60887e+00_rb, 3.64604e+00_rb, 3.68360e+00_rb, 3.72154e+00_rb/)\n      kao_mn2o( 6, :, 7) = (/ &\n     & 2.75473e+00_rb, 2.78356e+00_rb, 2.81268e+00_rb, 2.84211e+00_rb, 2.87185e+00_rb, &\n     & 2.90190e+00_rb, 2.93227e+00_rb, 2.96295e+00_rb, 2.99395e+00_rb, 3.02528e+00_rb, &\n     & 3.05694e+00_rb, 3.08892e+00_rb, 3.12125e+00_rb, 3.15391e+00_rb, 3.18691e+00_rb, &\n     & 3.22025e+00_rb, 3.25395e+00_rb, 3.28800e+00_rb, 3.32240e+00_rb/)\n      kao_mn2o( 7, :, 7) = (/ &\n     & 2.68587e+00_rb, 2.71431e+00_rb, 2.74306e+00_rb, 2.77211e+00_rb, 2.80146e+00_rb, &\n     & 2.83113e+00_rb, 2.86111e+00_rb, 2.89141e+00_rb, 2.92203e+00_rb, 2.95298e+00_rb, &\n     & 2.98425e+00_rb, 3.01585e+00_rb, 3.04779e+00_rb, 3.08006e+00_rb, 3.11268e+00_rb, &\n     & 3.14564e+00_rb, 3.17896e+00_rb, 3.21262e+00_rb, 3.24664e+00_rb/)\n      kao_mn2o( 8, :, 7) = (/ &\n     & 2.54778e+00_rb, 2.57461e+00_rb, 2.60173e+00_rb, 2.62914e+00_rb, 2.65683e+00_rb, &\n     & 2.68482e+00_rb, 2.71310e+00_rb, 2.74168e+00_rb, 2.77056e+00_rb, 2.79974e+00_rb, &\n     & 2.82923e+00_rb, 2.85903e+00_rb, 2.88915e+00_rb, 2.91958e+00_rb, 2.95033e+00_rb, &\n     & 2.98141e+00_rb, 3.01282e+00_rb, 3.04455e+00_rb, 3.07662e+00_rb/)\n      kao_mn2o( 9, :, 7) = (/ &\n     & 2.78137e+00_rb, 2.80957e+00_rb, 2.83805e+00_rb, 2.86682e+00_rb, 2.89589e+00_rb, &\n     & 2.92525e+00_rb, 2.95491e+00_rb, 2.98486e+00_rb, 3.01512e+00_rb, 3.04569e+00_rb, &\n     & 3.07657e+00_rb, 3.10776e+00_rb, 3.13927e+00_rb, 3.17110e+00_rb, 3.20324e+00_rb, &\n     & 3.23572e+00_rb, 3.26852e+00_rb, 3.30166e+00_rb, 3.33513e+00_rb/)\n      kao_mn2o( 1, :, 8) = (/ &\n     & 2.28384e+01_rb, 2.27450e+01_rb, 2.26519e+01_rb, 2.25593e+01_rb, 2.24670e+01_rb, &\n     & 2.23751e+01_rb, 2.22835e+01_rb, 2.21924e+01_rb, 2.21016e+01_rb, 2.20112e+01_rb, &\n     & 2.19211e+01_rb, 2.18314e+01_rb, 2.17421e+01_rb, 2.16532e+01_rb, 2.15646e+01_rb, &\n     & 2.14764e+01_rb, 2.13885e+01_rb, 2.13010e+01_rb, 2.12139e+01_rb/)\n      kao_mn2o( 2, :, 8) = (/ &\n     & 4.48608e+00_rb, 4.52259e+00_rb, 4.55939e+00_rb, 4.59649e+00_rb, 4.63389e+00_rb, &\n     & 4.67160e+00_rb, 4.70961e+00_rb, 4.74793e+00_rb, 4.78656e+00_rb, 4.82551e+00_rb, &\n     & 4.86478e+00_rb, 4.90436e+00_rb, 4.94427e+00_rb, 4.98450e+00_rb, 5.02506e+00_rb, &\n     & 5.06595e+00_rb, 5.10717e+00_rb, 5.14873e+00_rb, 5.19062e+00_rb/)\n      kao_mn2o( 3, :, 8) = (/ &\n     & 3.69928e+00_rb, 3.72584e+00_rb, 3.75259e+00_rb, 3.77953e+00_rb, 3.80666e+00_rb, &\n     & 3.83399e+00_rb, 3.86152e+00_rb, 3.88924e+00_rb, 3.91717e+00_rb, 3.94529e+00_rb, &\n     & 3.97361e+00_rb, 4.00214e+00_rb, 4.03088e+00_rb, 4.05982e+00_rb, 4.08896e+00_rb, &\n     & 4.11832e+00_rb, 4.14789e+00_rb, 4.17767e+00_rb, 4.20766e+00_rb/)\n      kao_mn2o( 4, :, 8) = (/ &\n     & 3.17856e+00_rb, 3.19596e+00_rb, 3.21345e+00_rb, 3.23104e+00_rb, 3.24872e+00_rb, &\n     & 3.26650e+00_rb, 3.28437e+00_rb, 3.30235e+00_rb, 3.32042e+00_rb, 3.33859e+00_rb, &\n     & 3.35686e+00_rb, 3.37523e+00_rb, 3.39370e+00_rb, 3.41227e+00_rb, 3.43095e+00_rb, &\n     & 3.44972e+00_rb, 3.46860e+00_rb, 3.48758e+00_rb, 3.50667e+00_rb/)\n      kao_mn2o( 5, :, 8) = (/ &\n     & 3.16549e+00_rb, 3.18288e+00_rb, 3.20037e+00_rb, 3.21795e+00_rb, 3.23563e+00_rb, &\n     & 3.25340e+00_rb, 3.27128e+00_rb, 3.28925e+00_rb, 3.30732e+00_rb, 3.32549e+00_rb, &\n     & 3.34376e+00_rb, 3.36213e+00_rb, 3.38060e+00_rb, 3.39917e+00_rb, 3.41785e+00_rb, &\n     & 3.43662e+00_rb, 3.45551e+00_rb, 3.47449e+00_rb, 3.49358e+00_rb/)\n      kao_mn2o( 6, :, 8) = (/ &\n     & 3.16612e+00_rb, 3.18355e+00_rb, 3.20108e+00_rb, 3.21870e+00_rb, 3.23643e+00_rb, &\n     & 3.25425e+00_rb, 3.27217e+00_rb, 3.29018e+00_rb, 3.30830e+00_rb, 3.32652e+00_rb, &\n     & 3.34483e+00_rb, 3.36325e+00_rb, 3.38177e+00_rb, 3.40039e+00_rb, 3.41911e+00_rb, &\n     & 3.43794e+00_rb, 3.45687e+00_rb, 3.47591e+00_rb, 3.49505e+00_rb/)\n      kao_mn2o( 7, :, 8) = (/ &\n     & 3.19644e+00_rb, 3.21419e+00_rb, 3.23203e+00_rb, 3.24996e+00_rb, 3.26800e+00_rb, &\n     & 3.28614e+00_rb, 3.30438e+00_rb, 3.32272e+00_rb, 3.34116e+00_rb, 3.35970e+00_rb, &\n     & 3.37835e+00_rb, 3.39710e+00_rb, 3.41596e+00_rb, 3.43492e+00_rb, 3.45398e+00_rb, &\n     & 3.47315e+00_rb, 3.49243e+00_rb, 3.51181e+00_rb, 3.53130e+00_rb/)\n      kao_mn2o( 8, :, 8) = (/ &\n     & 3.35759e+00_rb, 3.37775e+00_rb, 3.39804e+00_rb, 3.41845e+00_rb, 3.43899e+00_rb, &\n     & 3.45964e+00_rb, 3.48042e+00_rb, 3.50133e+00_rb, 3.52236e+00_rb, 3.54351e+00_rb, &\n     & 3.56480e+00_rb, 3.58621e+00_rb, 3.60775e+00_rb, 3.62942e+00_rb, 3.65122e+00_rb, &\n     & 3.67315e+00_rb, 3.69521e+00_rb, 3.71741e+00_rb, 3.73974e+00_rb/)\n      kao_mn2o( 9, :, 8) = (/ &\n     & 3.17378e+00_rb, 3.19135e+00_rb, 3.20901e+00_rb, 3.22677e+00_rb, 3.24462e+00_rb, &\n     & 3.26258e+00_rb, 3.28063e+00_rb, 3.29879e+00_rb, 3.31704e+00_rb, 3.33540e+00_rb, &\n     & 3.35386e+00_rb, 3.37242e+00_rb, 3.39108e+00_rb, 3.40984e+00_rb, 3.42871e+00_rb, &\n     & 3.44769e+00_rb, 3.46677e+00_rb, 3.48595e+00_rb, 3.50524e+00_rb/)\n      kao_mn2o( 1, :, 9) = (/ &\n     & 2.09106e+01_rb, 2.08779e+01_rb, 2.08452e+01_rb, 2.08126e+01_rb, 2.07800e+01_rb, &\n     & 2.07475e+01_rb, 2.07150e+01_rb, 2.06826e+01_rb, 2.06502e+01_rb, 2.06179e+01_rb, &\n     & 2.05856e+01_rb, 2.05534e+01_rb, 2.05213e+01_rb, 2.04891e+01_rb, 2.04571e+01_rb, &\n     & 2.04251e+01_rb, 2.03931e+01_rb, 2.03612e+01_rb, 2.03293e+01_rb/)\n      kao_mn2o( 2, :, 9) = (/ &\n     & 2.60494e+00_rb, 2.62757e+00_rb, 2.65040e+00_rb, 2.67343e+00_rb, 2.69665e+00_rb, &\n     & 2.72008e+00_rb, 2.74372e+00_rb, 2.76756e+00_rb, 2.79160e+00_rb, 2.81586e+00_rb, &\n     & 2.84032e+00_rb, 2.86500e+00_rb, 2.88989e+00_rb, 2.91500e+00_rb, 2.94033e+00_rb, &\n     & 2.96588e+00_rb, 2.99164e+00_rb, 3.01764e+00_rb, 3.04386e+00_rb/)\n      kao_mn2o( 3, :, 9) = (/ &\n     & 2.42238e+00_rb, 2.44514e+00_rb, 2.46811e+00_rb, 2.49130e+00_rb, 2.51471e+00_rb, &\n     & 2.53834e+00_rb, 2.56219e+00_rb, 2.58626e+00_rb, 2.61056e+00_rb, 2.63509e+00_rb, &\n     & 2.65985e+00_rb, 2.68484e+00_rb, 2.71007e+00_rb, 2.73554e+00_rb, 2.76124e+00_rb, &\n     & 2.78718e+00_rb, 2.81337e+00_rb, 2.83981e+00_rb, 2.86649e+00_rb/)\n      kao_mn2o( 4, :, 9) = (/ &\n     & 2.33681e+00_rb, 2.35961e+00_rb, 2.38263e+00_rb, 2.40588e+00_rb, 2.42935e+00_rb, &\n     & 2.45305e+00_rb, 2.47699e+00_rb, 2.50115e+00_rb, 2.52556e+00_rb, 2.55020e+00_rb, &\n     & 2.57508e+00_rb, 2.60021e+00_rb, 2.62558e+00_rb, 2.65119e+00_rb, 2.67706e+00_rb, &\n     & 2.70318e+00_rb, 2.72955e+00_rb, 2.75619e+00_rb, 2.78308e+00_rb/)\n      kao_mn2o( 5, :, 9) = (/ &\n     & 2.26420e+00_rb, 2.28696e+00_rb, 2.30996e+00_rb, 2.33319e+00_rb, 2.35665e+00_rb, &\n     & 2.38035e+00_rb, 2.40429e+00_rb, 2.42846e+00_rb, 2.45288e+00_rb, 2.47755e+00_rb, &\n     & 2.50246e+00_rb, 2.52763e+00_rb, 2.55304e+00_rb, 2.57871e+00_rb, 2.60465e+00_rb, &\n     & 2.63084e+00_rb, 2.65729e+00_rb, 2.68401e+00_rb, 2.71100e+00_rb/)\n      kao_mn2o( 6, :, 9) = (/ &\n     & 2.19628e+00_rb, 2.21902e+00_rb, 2.24199e+00_rb, 2.26520e+00_rb, 2.28865e+00_rb, &\n     & 2.31234e+00_rb, 2.33628e+00_rb, 2.36047e+00_rb, 2.38491e+00_rb, 2.40959e+00_rb, &\n     & 2.43454e+00_rb, 2.45974e+00_rb, 2.48521e+00_rb, 2.51094e+00_rb, 2.53693e+00_rb, &\n     & 2.56319e+00_rb, 2.58973e+00_rb, 2.61654e+00_rb, 2.64363e+00_rb/)\n      kao_mn2o( 7, :, 9) = (/ &\n     & 2.07829e+00_rb, 2.10090e+00_rb, 2.12375e+00_rb, 2.14685e+00_rb, 2.17021e+00_rb, &\n     & 2.19381e+00_rb, 2.21767e+00_rb, 2.24180e+00_rb, 2.26618e+00_rb, 2.29083e+00_rb, &\n     & 2.31575e+00_rb, 2.34094e+00_rb, 2.36640e+00_rb, 2.39214e+00_rb, 2.41816e+00_rb, &\n     & 2.44446e+00_rb, 2.47105e+00_rb, 2.49793e+00_rb, 2.52510e+00_rb/)\n      kao_mn2o( 8, :, 9) = (/ &\n     & 1.68230e+00_rb, 1.70305e+00_rb, 1.72404e+00_rb, 1.74530e+00_rb, 1.76681e+00_rb, &\n     & 1.78860e+00_rb, 1.81065e+00_rb, 1.83297e+00_rb, 1.85557e+00_rb, 1.87845e+00_rb, &\n     & 1.90161e+00_rb, 1.92505e+00_rb, 1.94878e+00_rb, 1.97281e+00_rb, 1.99713e+00_rb, &\n     & 2.02176e+00_rb, 2.04668e+00_rb, 2.07191e+00_rb, 2.09746e+00_rb/)\n      kao_mn2o( 9, :, 9) = (/ &\n     & 2.23224e+00_rb, 2.25486e+00_rb, 2.27771e+00_rb, 2.30079e+00_rb, 2.32411e+00_rb, &\n     & 2.34766e+00_rb, 2.37145e+00_rb, 2.39548e+00_rb, 2.41975e+00_rb, 2.44427e+00_rb, &\n     & 2.46904e+00_rb, 2.49406e+00_rb, 2.51933e+00_rb, 2.54486e+00_rb, 2.57065e+00_rb, &\n     & 2.59670e+00_rb, 2.62301e+00_rb, 2.64959e+00_rb, 2.67644e+00_rb/)\n      kao_mn2o( 1, :,10) = (/ &\n     & 1.30711e+01_rb, 1.31853e+01_rb, 1.33004e+01_rb, 1.34166e+01_rb, 1.35339e+01_rb, &\n     & 1.36521e+01_rb, 1.37714e+01_rb, 1.38917e+01_rb, 1.40130e+01_rb, 1.41355e+01_rb, &\n     & 1.42590e+01_rb, 1.43835e+01_rb, 1.45092e+01_rb, 1.46360e+01_rb, 1.47638e+01_rb, &\n     & 1.48928e+01_rb, 1.50229e+01_rb, 1.51542e+01_rb, 1.52866e+01_rb/)\n      kao_mn2o( 2, :,10) = (/ &\n     & 2.71206e-01_rb, 2.90148e-01_rb, 3.10413e-01_rb, 3.32093e-01_rb, 3.55287e-01_rb, &\n     & 3.80102e-01_rb, 4.06649e-01_rb, 4.35051e-01_rb, 4.65436e-01_rb, 4.97943e-01_rb, &\n     & 5.32721e-01_rb, 5.69928e-01_rb, 6.09733e-01_rb, 6.52319e-01_rb, 6.97879e-01_rb, &\n     & 7.46621e-01_rb, 7.98767e-01_rb, 8.54555e-01_rb, 9.14239e-01_rb/)\n      kao_mn2o( 3, :,10) = (/ &\n     & 2.65609e-01_rb, 2.84236e-01_rb, 3.04170e-01_rb, 3.25501e-01_rb, 3.48329e-01_rb, &\n     & 3.72758e-01_rb, 3.98900e-01_rb, 4.26875e-01_rb, 4.56812e-01_rb, 4.88849e-01_rb, &\n     & 5.23132e-01_rb, 5.59820e-01_rb, 5.99080e-01_rb, 6.41095e-01_rb, 6.86055e-01_rb, &\n     & 7.34169e-01_rb, 7.85657e-01_rb, 8.40756e-01_rb, 8.99718e-01_rb/)\n      kao_mn2o( 4, :,10) = (/ &\n     & 2.55277e-01_rb, 2.73370e-01_rb, 2.92745e-01_rb, 3.13494e-01_rb, 3.35714e-01_rb, &\n     & 3.59508e-01_rb, 3.84989e-01_rb, 4.12275e-01_rb, 4.41496e-01_rb, 4.72788e-01_rb, &\n     & 5.06298e-01_rb, 5.42183e-01_rb, 5.80611e-01_rb, 6.21763e-01_rb, 6.65831e-01_rb, &\n     & 7.13023e-01_rb, 7.63560e-01_rb, 8.17678e-01_rb, 8.75633e-01_rb/)\n      kao_mn2o( 5, :,10) = (/ &\n     & 2.41481e-01_rb, 2.58840e-01_rb, 2.77446e-01_rb, 2.97390e-01_rb, 3.18768e-01_rb, &\n     & 3.41682e-01_rb, 3.66244e-01_rb, 3.92571e-01_rb, 4.20791e-01_rb, 4.51039e-01_rb, &\n     & 4.83461e-01_rb, 5.18215e-01_rb, 5.55466e-01_rb, 5.95396e-01_rb, 6.38195e-01_rb, &\n     & 6.84071e-01_rb, 7.33245e-01_rb, 7.85954e-01_rb, 8.42452e-01_rb/)\n      kao_mn2o( 6, :,10) = (/ &\n     & 2.37173e-01_rb, 2.54360e-01_rb, 2.72792e-01_rb, 2.92559e-01_rb, 3.13759e-01_rb, &\n     & 3.36495e-01_rb, 3.60878e-01_rb, 3.87029e-01_rb, 4.15074e-01_rb, 4.45152e-01_rb, &\n     & 4.77409e-01_rb, 5.12004e-01_rb, 5.49105e-01_rb, 5.88895e-01_rb, 6.31569e-01_rb, &\n     & 6.77334e-01_rb, 7.26416e-01_rb, 7.79055e-01_rb, 8.35508e-01_rb/)\n      kao_mn2o( 7, :,10) = (/ &\n     & 2.27414e-01_rb, 2.44231e-01_rb, 2.62292e-01_rb, 2.81689e-01_rb, 3.02520e-01_rb, &\n     & 3.24891e-01_rb, 3.48917e-01_rb, 3.74720e-01_rb, 4.02430e-01_rb, 4.32190e-01_rb, &\n     & 4.64151e-01_rb, 4.98475e-01_rb, 5.35337e-01_rb, 5.74926e-01_rb, 6.17442e-01_rb, &\n     & 6.63102e-01_rb, 7.12138e-01_rb, 7.64801e-01_rb, 8.21358e-01_rb/)\n      kao_mn2o( 8, :,10) = (/ &\n     & 1.77234e-01_rb, 1.92029e-01_rb, 2.08060e-01_rb, 2.25429e-01_rb, 2.44248e-01_rb, &\n     & 2.64638e-01_rb, 2.86730e-01_rb, 3.10667e-01_rb, 3.36601e-01_rb, 3.64701e-01_rb, &\n     & 3.95147e-01_rb, 4.28134e-01_rb, 4.63875e-01_rb, 5.02600e-01_rb, 5.44557e-01_rb, &\n     & 5.90017e-01_rb, 6.39272e-01_rb, 6.92639e-01_rb, 7.50461e-01_rb/)\n      kao_mn2o( 9, :,10) = (/ &\n     & 2.41727e-01_rb, 2.59094e-01_rb, 2.77710e-01_rb, 2.97662e-01_rb, 3.19049e-01_rb, &\n     & 3.41972e-01_rb, 3.66541e-01_rb, 3.92877e-01_rb, 4.21104e-01_rb, 4.51359e-01_rb, &\n     & 4.83788e-01_rb, 5.18547e-01_rb, 5.55804e-01_rb, 5.95737e-01_rb, 6.38539e-01_rb, &\n     & 6.84417e-01_rb, 7.33590e-01_rb, 7.86297e-01_rb, 8.42790e-01_rb/)\n      kao_mn2o( 1, :,11) = (/ &\n     & 6.65287e+00_rb, 6.69137e+00_rb, 6.73008e+00_rb, 6.76903e+00_rb, 6.80820e+00_rb, &\n     & 6.84759e+00_rb, 6.88721e+00_rb, 6.92707e+00_rb, 6.96715e+00_rb, 7.00746e+00_rb, &\n     & 7.04801e+00_rb, 7.08879e+00_rb, 7.12981e+00_rb, 7.17107e+00_rb, 7.21256e+00_rb, &\n     & 7.25430e+00_rb, 7.29628e+00_rb, 7.33850e+00_rb, 7.38096e+00_rb/)\n      kao_mn2o( 2, :,11) = (/ &\n     & 2.06252e-01_rb, 2.27731e-01_rb, 2.51447e-01_rb, 2.77633e-01_rb, 3.06546e-01_rb, &\n     & 3.38470e-01_rb, 3.73719e-01_rb, 4.12638e-01_rb, 4.55611e-01_rb, 5.03058e-01_rb, &\n     & 5.55447e-01_rb, 6.13292e-01_rb, 6.77160e-01_rb, 7.47680e-01_rb, 8.25544e-01_rb, &\n     & 9.11517e-01_rb, 1.00644e+00_rb, 1.11125e+00_rb, 1.22698e+00_rb/)\n      kao_mn2o( 3, :,11) = (/ &\n     & 2.05840e-01_rb, 2.27279e-01_rb, 2.50952e-01_rb, 2.77090e-01_rb, 3.05950e-01_rb, &\n     & 3.37816e-01_rb, 3.73002e-01_rb, 4.11852e-01_rb, 4.54748e-01_rb, 5.02113e-01_rb, &\n     & 5.54411e-01_rb, 6.12155e-01_rb, 6.75915e-01_rb, 7.46315e-01_rb, 8.24047e-01_rb, &\n     & 9.09876e-01_rb, 1.00465e+00_rb, 1.10928e+00_rb, 1.22482e+00_rb/)\n      kao_mn2o( 4, :,11) = (/ &\n     & 2.04702e-01_rb, 2.26031e-01_rb, 2.49582e-01_rb, 2.75587e-01_rb, 3.04301e-01_rb, &\n     & 3.36008e-01_rb, 3.71018e-01_rb, 4.09675e-01_rb, 4.52361e-01_rb, 4.99495e-01_rb, &\n     & 5.51539e-01_rb, 6.09007e-01_rb, 6.72461e-01_rb, 7.42528e-01_rb, 8.19895e-01_rb, &\n     & 9.05323e-01_rb, 9.99653e-01_rb, 1.10381e+00_rb, 1.21882e+00_rb/)\n      kao_mn2o( 5, :,11) = (/ &\n     & 2.03481e-01_rb, 2.24689e-01_rb, 2.48108e-01_rb, 2.73967e-01_rb, 3.02522e-01_rb, &\n     & 3.34053e-01_rb, 3.68871e-01_rb, 4.07317e-01_rb, 4.49771e-01_rb, 4.96649e-01_rb, &\n     & 5.48414e-01_rb, 6.05574e-01_rb, 6.68691e-01_rb, 7.38387e-01_rb, 8.15347e-01_rb, &\n     & 9.00329e-01_rb, 9.94168e-01_rb, 1.09779e+00_rb, 1.21221e+00_rb/)\n      kao_mn2o( 6, :,11) = (/ &\n     & 2.01513e-01_rb, 2.22529e-01_rb, 2.45738e-01_rb, 2.71367e-01_rb, 2.99670e-01_rb, &\n     & 3.30924e-01_rb, 3.65437e-01_rb, 4.03550e-01_rb, 4.45639e-01_rb, 4.92117e-01_rb, &\n     & 5.43442e-01_rb, 6.00120e-01_rb, 6.62710e-01_rb, 7.31827e-01_rb, 8.08153e-01_rb, &\n     & 8.92439e-01_rb, 9.85516e-01_rb, 1.08830e+00_rb, 1.20180e+00_rb/)\n      kao_mn2o( 7, :,11) = (/ &\n     & 1.97136e-01_rb, 2.17723e-01_rb, 2.40459e-01_rb, 2.65570e-01_rb, 2.93304e-01_rb, &\n     & 3.23933e-01_rb, 3.57762e-01_rb, 3.95122e-01_rb, 4.36385e-01_rb, 4.81956e-01_rb, &\n     & 5.32287e-01_rb, 5.87873e-01_rb, 6.49264e-01_rb, 7.17067e-01_rb, 7.91950e-01_rb, &\n     & 8.74653e-01_rb, 9.65992e-01_rb, 1.06687e+00_rb, 1.17828e+00_rb/)\n      kao_mn2o( 8, :,11) = (/ &\n     & 1.79518e-01_rb, 1.98371e-01_rb, 2.19204e-01_rb, 2.42224e-01_rb, 2.67662e-01_rb, &\n     & 2.95772e-01_rb, 3.26833e-01_rb, 3.61157e-01_rb, 3.99085e-01_rb, 4.40996e-01_rb, &\n     & 4.87309e-01_rb, 5.38486e-01_rb, 5.95037e-01_rb, 6.57526e-01_rb, 7.26579e-01_rb, &\n     & 8.02883e-01_rb, 8.87201e-01_rb, 9.80373e-01_rb, 1.08333e+00_rb/)\n      kao_mn2o( 9, :,11) = (/ &\n     & 2.03481e-01_rb, 2.24689e-01_rb, 2.48108e-01_rb, 2.73967e-01_rb, 3.02522e-01_rb, &\n     & 3.34053e-01_rb, 3.68871e-01_rb, 4.07317e-01_rb, 4.49771e-01_rb, 4.96649e-01_rb, &\n     & 5.48414e-01_rb, 6.05574e-01_rb, 6.68691e-01_rb, 7.38387e-01_rb, 8.15347e-01_rb, &\n     & 9.00329e-01_rb, 9.94168e-01_rb, 1.09779e+00_rb, 1.21221e+00_rb/)\n      kao_mn2o( 1, :,12) = (/ &\n     & 5.89636e+00_rb, 5.95081e+00_rb, 6.00576e+00_rb, 6.06121e+00_rb, 6.11718e+00_rb, &\n     & 6.17366e+00_rb, 6.23067e+00_rb, 6.28820e+00_rb, 6.34627e+00_rb, 6.40487e+00_rb, &\n     & 6.46401e+00_rb, 6.52369e+00_rb, 6.58393e+00_rb, 6.64472e+00_rb, 6.70608e+00_rb, &\n     & 6.76800e+00_rb, 6.83050e+00_rb, 6.89357e+00_rb, 6.95722e+00_rb/)\n      kao_mn2o( 2, :,12) = (/ &\n     & 7.18699e-05_rb, 9.48140e-05_rb, 1.25083e-04_rb, 1.65015e-04_rb, 2.17695e-04_rb, &\n     & 2.87193e-04_rb, 3.78877e-04_rb, 4.99831e-04_rb, 6.59400e-04_rb, 8.69909e-04_rb, &\n     & 1.14762e-03_rb, 1.51400e-03_rb, 1.99733e-03_rb, 2.63497e-03_rb, 3.47616e-03_rb, &\n     & 4.58591e-03_rb, 6.04993e-03_rb, 7.98133e-03_rb, 1.05293e-02_rb/)\n      kao_mn2o( 3, :,12) = (/ &\n     & 7.20868e-05_rb, 9.50993e-05_rb, 1.25458e-04_rb, 1.65508e-04_rb, 2.18344e-04_rb, &\n     & 2.88046e-04_rb, 3.80000e-04_rb, 5.01307e-04_rb, 6.61341e-04_rb, 8.72462e-04_rb, &\n     & 1.15098e-03_rb, 1.51841e-03_rb, 2.00313e-03_rb, 2.64260e-03_rb, 3.48620e-03_rb, &\n     & 4.59911e-03_rb, 6.06729e-03_rb, 8.00416e-03_rb, 1.05593e-02_rb/)\n      kao_mn2o( 4, :,12) = (/ &\n     & 7.21734e-05_rb, 9.52161e-05_rb, 1.25616e-04_rb, 1.65721e-04_rb, 2.18630e-04_rb, &\n     & 2.88432e-04_rb, 3.80519e-04_rb, 5.02007e-04_rb, 6.62282e-04_rb, 8.73727e-04_rb, &\n     & 1.15268e-03_rb, 1.52070e-03_rb, 2.00621e-03_rb, 2.64673e-03_rb, 3.49174e-03_rb, &\n     & 4.60655e-03_rb, 6.07727e-03_rb, 8.01755e-03_rb, 1.05773e-02_rb/)\n      kao_mn2o( 5, :,12) = (/ &\n     & 7.22599e-05_rb, 9.53329e-05_rb, 1.25773e-04_rb, 1.65933e-04_rb, 2.18916e-04_rb, &\n     & 2.88818e-04_rb, 3.81038e-04_rb, 5.02706e-04_rb, 6.63223e-04_rb, 8.74992e-04_rb, &\n     & 1.15438e-03_rb, 1.52298e-03_rb, 2.00928e-03_rb, 2.65085e-03_rb, 3.49728e-03_rb, &\n     & 4.61398e-03_rb, 6.08725e-03_rb, 8.03094e-03_rb, 1.05952e-02_rb/)\n      kao_mn2o( 6, :,12) = (/ &\n     & 7.29962e-05_rb, 9.63091e-05_rb, 1.27067e-04_rb, 1.67649e-04_rb, 2.21191e-04_rb, &\n     & 2.91833e-04_rb, 3.85036e-04_rb, 5.08005e-04_rb, 6.70247e-04_rb, 8.84304e-04_rb, &\n     & 1.16672e-03_rb, 1.53934e-03_rb, 2.03096e-03_rb, 2.67959e-03_rb, 3.53537e-03_rb, &\n     & 4.66447e-03_rb, 6.15417e-03_rb, 8.11962e-03_rb, 1.07128e-02_rb/)\n      kao_mn2o( 7, :,12) = (/ &\n     & 7.47398e-05_rb, 9.86139e-05_rb, 1.30114e-04_rb, 1.71677e-04_rb, 2.26516e-04_rb, &\n     & 2.98872e-04_rb, 3.94340e-04_rb, 5.20305e-04_rb, 6.86506e-04_rb, 9.05797e-04_rb, &\n     & 1.19514e-03_rb, 1.57690e-03_rb, 2.08061e-03_rb, 2.74522e-03_rb, 3.62213e-03_rb, &\n     & 4.77915e-03_rb, 6.30576e-03_rb, 8.32001e-03_rb, 1.09777e-02_rb/)\n      kao_mn2o( 8, :,12) = (/ &\n     & 7.57487e-05_rb, 9.99802e-05_rb, 1.31963e-04_rb, 1.74177e-04_rb, 2.29896e-04_rb, &\n     & 3.03438e-04_rb, 4.00506e-04_rb, 5.28625e-04_rb, 6.97729e-04_rb, 9.20927e-04_rb, &\n     & 1.21553e-03_rb, 1.60437e-03_rb, 2.11759e-03_rb, 2.79499e-03_rb, 3.68909e-03_rb, &\n     & 4.86921e-03_rb, 6.42684e-03_rb, 8.48274e-03_rb, 1.11963e-02_rb/)\n      kao_mn2o( 9, :,12) = (/ &\n     & 7.22467e-05_rb, 9.53177e-05_rb, 1.25756e-04_rb, 1.65915e-04_rb, 2.18898e-04_rb, &\n     & 2.88800e-04_rb, 3.81024e-04_rb, 5.02700e-04_rb, 6.63231e-04_rb, 8.75024e-04_rb, &\n     & 1.15445e-03_rb, 1.52311e-03_rb, 2.00950e-03_rb, 2.65121e-03_rb, 3.49784e-03_rb, &\n     & 4.61483e-03_rb, 6.08852e-03_rb, 8.03280e-03_rb, 1.05980e-02_rb/)\n      kao_mn2o( 1, :,13) = (/ &\n     & 1.14265e+01_rb, 1.16380e+01_rb, 1.18534e+01_rb, 1.20728e+01_rb, 1.22962e+01_rb, &\n     & 1.25238e+01_rb, 1.27556e+01_rb, 1.29917e+01_rb, 1.32322e+01_rb, 1.34771e+01_rb, &\n     & 1.37265e+01_rb, 1.39806e+01_rb, 1.42394e+01_rb, 1.45029e+01_rb, 1.47714e+01_rb, &\n     & 1.50448e+01_rb, 1.53232e+01_rb, 1.56068e+01_rb, 1.58957e+01_rb/)\n      kao_mn2o( 2, :,13) = (/ &\n     & 7.97796e-05_rb, 1.05659e-04_rb, 1.39932e-04_rb, 1.85324e-04_rb, 2.45439e-04_rb, &\n     & 3.25054e-04_rb, 4.30496e-04_rb, 5.70140e-04_rb, 7.55082e-04_rb, 1.00002e-03_rb, &\n     & 1.32440e-03_rb, 1.75401e-03_rb, 2.32298e-03_rb, 3.07651e-03_rb, 4.07447e-03_rb, &\n     & 5.39614e-03_rb, 7.14655e-03_rb, 9.46475e-03_rb, 1.25349e-02_rb/)\n      kao_mn2o( 3, :,13) = (/ &\n     & 7.95035e-05_rb, 1.05293e-04_rb, 1.39449e-04_rb, 1.84684e-04_rb, 2.44592e-04_rb, &\n     & 3.23934e-04_rb, 4.29013e-04_rb, 5.68178e-04_rb, 7.52486e-04_rb, 9.96580e-04_rb, &\n     & 1.31985e-03_rb, 1.74800e-03_rb, 2.31502e-03_rb, 3.06597e-03_rb, 4.06052e-03_rb, &\n     & 5.37770e-03_rb, 7.12214e-03_rb, 9.43244e-03_rb, 1.24922e-02_rb/)\n      kao_mn2o( 4, :,13) = (/ &\n     & 7.92339e-05_rb, 1.04938e-04_rb, 1.38980e-04_rb, 1.84065e-04_rb, 2.43776e-04_rb, &\n     & 3.22857e-04_rb, 4.27593e-04_rb, 5.66305e-04_rb, 7.50016e-04_rb, 9.93322e-04_rb, &\n     & 1.31556e-03_rb, 1.74233e-03_rb, 2.30754e-03_rb, 3.05612e-03_rb, 4.04752e-03_rb, &\n     & 5.36055e-03_rb, 7.09953e-03_rb, 9.40262e-03_rb, 1.24528e-02_rb/)\n      kao_mn2o( 5, :,13) = (/ &\n     & 7.90000e-05_rb, 1.04627e-04_rb, 1.38566e-04_rb, 1.83516e-04_rb, 2.43046e-04_rb, &\n     & 3.21887e-04_rb, 4.26303e-04_rb, 5.64591e-04_rb, 7.47738e-04_rb, 9.90295e-04_rb, &\n     & 1.31154e-03_rb, 1.73698e-03_rb, 2.30044e-03_rb, 3.04667e-03_rb, 4.03498e-03_rb, &\n     & 5.34388e-03_rb, 7.07737e-03_rb, 9.37318e-03_rb, 1.24137e-02_rb/)\n      kao_mn2o( 6, :,13) = (/ &\n     & 7.76004e-05_rb, 1.02776e-04_rb, 1.36118e-04_rb, 1.80278e-04_rb, 2.38764e-04_rb, &\n     & 3.16224e-04_rb, 4.18814e-04_rb, 5.54686e-04_rb, 7.34638e-04_rb, 9.72970e-04_rb, &\n     & 1.28862e-03_rb, 1.70668e-03_rb, 2.26036e-03_rb, 2.99367e-03_rb, 3.96488e-03_rb, &\n     & 5.25118e-03_rb, 6.95477e-03_rb, 9.21105e-03_rb, 1.21993e-02_rb/)\n      kao_mn2o( 7, :,13) = (/ &\n     & 7.52813e-05_rb, 9.97094e-05_rb, 1.32064e-04_rb, 1.74918e-04_rb, 2.31677e-04_rb, &\n     & 3.06854e-04_rb, 4.06426e-04_rb, 5.38308e-04_rb, 7.12984e-04_rb, 9.44341e-04_rb, &\n     & 1.25077e-03_rb, 1.65664e-03_rb, 2.19420e-03_rb, 2.90620e-03_rb, 3.84923e-03_rb, &\n     & 5.09828e-03_rb, 6.75263e-03_rb, 8.94379e-03_rb, 1.18460e-02_rb/)\n      kao_mn2o( 8, :,13) = (/ &\n     & 6.87436e-05_rb, 9.10605e-05_rb, 1.20622e-04_rb, 1.59781e-04_rb, 2.11653e-04_rb, &\n     & 2.80364e-04_rb, 3.71381e-04_rb, 4.91946e-04_rb, 6.51651e-04_rb, 8.63203e-04_rb, &\n     & 1.14343e-03_rb, 1.51464e-03_rb, 2.00635e-03_rb, 2.65769e-03_rb, 3.52048e-03_rb, &\n     & 4.66337e-03_rb, 6.17729e-03_rb, 8.18269e-03_rb, 1.08391e-02_rb/)\n      kao_mn2o( 9, :,13) = (/ &\n     & 7.90357e-05_rb, 1.04671e-04_rb, 1.38622e-04_rb, 1.83585e-04_rb, 2.43132e-04_rb, &\n     & 3.21994e-04_rb, 4.26434e-04_rb, 5.64750e-04_rb, 7.47931e-04_rb, 9.90526e-04_rb, &\n     & 1.31181e-03_rb, 1.73730e-03_rb, 2.30081e-03_rb, 3.04709e-03_rb, 4.03543e-03_rb, &\n     & 5.34435e-03_rb, 7.07782e-03_rb, 9.37355e-03_rb, 1.24139e-02_rb/)\n      kao_mn2o( 1, :,14) = (/ &\n     & 1.61373e+01_rb, 1.64784e+01_rb, 1.68266e+01_rb, 1.71822e+01_rb, 1.75454e+01_rb, &\n     & 1.79162e+01_rb, 1.82948e+01_rb, 1.86814e+01_rb, 1.90762e+01_rb, 1.94794e+01_rb, &\n     & 1.98911e+01_rb, 2.03114e+01_rb, 2.07407e+01_rb, 2.11790e+01_rb, 2.16266e+01_rb, &\n     & 2.20836e+01_rb, 2.25504e+01_rb, 2.30269e+01_rb, 2.35136e+01_rb/)\n      kao_mn2o( 2, :,14) = (/ &\n     & 6.92866e-10_rb, 9.24655e-10_rb, 1.23398e-09_rb, 1.64680e-09_rb, 2.19771e-09_rb, &\n     & 2.93292e-09_rb, 3.91409e-09_rb, 5.22349e-09_rb, 6.97093e-09_rb, 9.30295e-09_rb, &\n     & 1.24151e-08_rb, 1.65684e-08_rb, 2.21111e-08_rb, 2.95081e-08_rb, 3.93796e-08_rb, &\n     & 5.25535e-08_rb, 7.01346e-08_rb, 9.35970e-08_rb, 1.24908e-07_rb/)\n      kao_mn2o( 3, :,14) = (/ &\n     & 6.94564e-10_rb, 9.26928e-10_rb, 1.23703e-09_rb, 1.65088e-09_rb, 2.20317e-09_rb, &\n     & 2.94024e-09_rb, 3.92389e-09_rb, 5.23661e-09_rb, 6.98851e-09_rb, 9.32650e-09_rb, &\n     & 1.24467e-08_rb, 1.66107e-08_rb, 2.21677e-08_rb, 2.95839e-08_rb, 3.94811e-08_rb, &\n     & 5.26894e-08_rb, 7.03165e-08_rb, 9.38407e-08_rb, 1.25235e-07_rb/)\n      kao_mn2o( 4, :,14) = (/ &\n     & 6.98644e-10_rb, 9.32310e-10_rb, 1.24413e-09_rb, 1.66023e-09_rb, 2.21551e-09_rb, &\n     & 2.95649e-09_rb, 3.94531e-09_rb, 5.26484e-09_rb, 7.02570e-09_rb, 9.37548e-09_rb, &\n     & 1.25112e-08_rb, 1.66956e-08_rb, 2.22795e-08_rb, 2.97311e-08_rb, 3.96748e-08_rb, &\n     & 5.29443e-08_rb, 7.06518e-08_rb, 9.42817e-08_rb, 1.25815e-07_rb/)\n      kao_mn2o( 5, :,14) = (/ &\n     & 7.03261e-10_rb, 9.38472e-10_rb, 1.25235e-09_rb, 1.67121e-09_rb, 2.23016e-09_rb, &\n     & 2.97605e-09_rb, 3.97141e-09_rb, 5.29968e-09_rb, 7.07220e-09_rb, 9.43754e-09_rb, &\n     & 1.25940e-08_rb, 1.68062e-08_rb, 2.24271e-08_rb, 2.99280e-08_rb, 3.99376e-08_rb, &\n     & 5.32951e-08_rb, 7.11200e-08_rb, 9.49066e-08_rb, 1.26649e-07_rb/)\n      kao_mn2o( 6, :,14) = (/ &\n     & 7.12478e-10_rb, 9.50674e-10_rb, 1.26850e-09_rb, 1.69259e-09_rb, 2.25845e-09_rb, &\n     & 3.01350e-09_rb, 4.02096e-09_rb, 5.36525e-09_rb, 7.15896e-09_rb, 9.55233e-09_rb, &\n     & 1.27459e-08_rb, 1.70071e-08_rb, 2.26928e-08_rb, 3.02795e-08_rb, 4.04025e-08_rb, &\n     & 5.39099e-08_rb, 7.19330e-08_rb, 9.59815e-08_rb, 1.28070e-07_rb/)\n      kao_mn2o( 7, :,14) = (/ &\n     & 7.28994e-10_rb, 9.72644e-10_rb, 1.29773e-09_rb, 1.73147e-09_rb, 2.31017e-09_rb, &\n     & 3.08230e-09_rb, 4.11249e-09_rb, 5.48700e-09_rb, 7.32092e-09_rb, 9.76777e-09_rb, &\n     & 1.30324e-08_rb, 1.73883e-08_rb, 2.31999e-08_rb, 3.09540e-08_rb, 4.12996e-08_rb, &\n     & 5.51032e-08_rb, 7.35203e-08_rb, 9.80928e-08_rb, 1.30878e-07_rb/)\n      kao_mn2o( 8, :,14) = (/ &\n     & 7.87604e-10_rb, 1.05043e-09_rb, 1.40097e-09_rb, 1.86848e-09_rb, 2.49201e-09_rb, &\n     & 3.32360e-09_rb, 4.43271e-09_rb, 5.91194e-09_rb, 7.88479e-09_rb, 1.05160e-08_rb, &\n     & 1.40253e-08_rb, 1.87056e-08_rb, 2.49478e-08_rb, 3.32730e-08_rb, 4.43764e-08_rb, &\n     & 5.91851e-08_rb, 7.89356e-08_rb, 1.05277e-07_rb, 1.40408e-07_rb/)\n      kao_mn2o( 9, :,14) = (/ &\n     & 7.03261e-10_rb, 9.38472e-10_rb, 1.25235e-09_rb, 1.67121e-09_rb, 2.23016e-09_rb, &\n     & 2.97605e-09_rb, 3.97141e-09_rb, 5.29968e-09_rb, 7.07220e-09_rb, 9.43754e-09_rb, &\n     & 1.25940e-08_rb, 1.68062e-08_rb, 2.24271e-08_rb, 2.99280e-08_rb, 3.99376e-08_rb, &\n     & 5.32951e-08_rb, 7.11200e-08_rb, 9.49066e-08_rb, 1.26649e-07_rb/)\n      kao_mn2o( 1, :,15) = (/ &\n     & 2.14029e+01_rb, 2.16782e+01_rb, 2.19571e+01_rb, 2.22396e+01_rb, 2.25257e+01_rb, &\n     & 2.28155e+01_rb, 2.31090e+01_rb, 2.34063e+01_rb, 2.37074e+01_rb, 2.40124e+01_rb, &\n     & 2.43213e+01_rb, 2.46342e+01_rb, 2.49511e+01_rb, 2.52721e+01_rb, 2.55972e+01_rb, &\n     & 2.59265e+01_rb, 2.62600e+01_rb, 2.65979e+01_rb, 2.69400e+01_rb/)\n      kao_mn2o( 2, :,15) = (/ &\n     & 5.68659e-10_rb, 7.55629e-10_rb, 1.00407e-09_rb, 1.33421e-09_rb, 1.77288e-09_rb, &\n     & 2.35579e-09_rb, 3.13036e-09_rb, 4.15960e-09_rb, 5.52724e-09_rb, 7.34455e-09_rb, &\n     & 9.75939e-09_rb, 1.29682e-08_rb, 1.72320e-08_rb, 2.28978e-08_rb, 3.04264e-08_rb, &\n     & 4.04304e-08_rb, 5.37236e-08_rb, 7.13875e-08_rb, 9.48591e-08_rb/)\n      kao_mn2o( 3, :,15) = (/ &\n     & 5.59573e-10_rb, 7.43558e-10_rb, 9.88035e-10_rb, 1.31290e-09_rb, 1.74457e-09_rb, &\n     & 2.31817e-09_rb, 3.08037e-09_rb, 4.09318e-09_rb, 5.43900e-09_rb, 7.22730e-09_rb, &\n     & 9.60360e-09_rb, 1.27612e-08_rb, 1.69570e-08_rb, 2.25324e-08_rb, 2.99409e-08_rb, &\n     & 3.97853e-08_rb, 5.28665e-08_rb, 7.02486e-08_rb, 9.33459e-08_rb/)\n      kao_mn2o( 4, :,15) = (/ &\n     & 5.50488e-10_rb, 7.31486e-10_rb, 9.71996e-10_rb, 1.29158e-09_rb, 1.71625e-09_rb, &\n     & 2.28055e-09_rb, 3.03039e-09_rb, 4.02676e-09_rb, 5.35075e-09_rb, 7.11005e-09_rb, &\n     & 9.44781e-09_rb, 1.25542e-08_rb, 1.66820e-08_rb, 2.21670e-08_rb, 2.94554e-08_rb, &\n     & 3.91402e-08_rb, 5.20093e-08_rb, 6.91098e-08_rb, 9.18327e-08_rb/)\n      kao_mn2o( 5, :,15) = (/ &\n     & 5.34010e-10_rb, 7.09574e-10_rb, 9.42858e-10_rb, 1.25284e-09_rb, 1.66473e-09_rb, &\n     & 2.21203e-09_rb, 2.93927e-09_rb, 3.90560e-09_rb, 5.18963e-09_rb, 6.89580e-09_rb, &\n     & 9.16290e-09_rb, 1.21754e-08_rb, 1.61782e-08_rb, 2.14970e-08_rb, 2.85645e-08_rb, &\n     & 3.79555e-08_rb, 5.04340e-08_rb, 6.70149e-08_rb, 8.90470e-08_rb/)\n      kao_mn2o( 6, :,15) = (/ &\n     & 5.08144e-10_rb, 6.75221e-10_rb, 8.97231e-10_rb, 1.19224e-09_rb, 1.58424e-09_rb, &\n     & 2.10513e-09_rb, 2.79729e-09_rb, 3.71703e-09_rb, 4.93919e-09_rb, 6.56317e-09_rb, &\n     & 8.72112e-09_rb, 1.15886e-08_rb, 1.53989e-08_rb, 2.04620e-08_rb, 2.71898e-08_rb, &\n     & 3.61297e-08_rb, 4.80091e-08_rb, 6.37943e-08_rb, 8.47696e-08_rb/)\n      kao_mn2o( 7, :,15) = (/ &\n     & 4.56716e-10_rb, 6.06884e-10_rb, 8.06427e-10_rb, 1.07158e-09_rb, 1.42391e-09_rb, &\n     & 1.89210e-09_rb, 2.51422e-09_rb, 3.34089e-09_rb, 4.43938e-09_rb, 5.89904e-09_rb, &\n     & 7.83864e-09_rb, 1.04160e-08_rb, 1.38408e-08_rb, 1.83916e-08_rb, 2.44387e-08_rb, &\n     & 3.24742e-08_rb, 4.31517e-08_rb, 5.73399e-08_rb, 7.61932e-08_rb/)\n      kao_mn2o( 8, :,15) = (/ &\n     & 2.78366e-10_rb, 3.69881e-10_rb, 4.91482e-10_rb, 6.53061e-10_rb, 8.67760e-10_rb, &\n     & 1.15304e-09_rb, 1.53211e-09_rb, 2.03581e-09_rb, 2.70510e-09_rb, 3.59441e-09_rb, &\n     & 4.77611e-09_rb, 6.34629e-09_rb, 8.43268e-09_rb, 1.12050e-08_rb, 1.48887e-08_rb, &\n     & 1.97835e-08_rb, 2.62875e-08_rb, 3.49296e-08_rb, 4.64130e-08_rb/)\n      kao_mn2o( 9, :,15) = (/ &\n     & 5.34010e-10_rb, 7.09574e-10_rb, 9.42858e-10_rb, 1.25284e-09_rb, 1.66473e-09_rb, &\n     & 2.21203e-09_rb, 2.93927e-09_rb, 3.90560e-09_rb, 5.18963e-09_rb, 6.89580e-09_rb, &\n     & 9.16290e-09_rb, 1.21754e-08_rb, 1.61782e-08_rb, 2.14970e-08_rb, 2.85645e-08_rb, &\n     & 3.79555e-08_rb, 5.04340e-08_rb, 6.70149e-08_rb, 8.90470e-08_rb/)\n      kao_mn2o( 1, :,16) = (/ &\n     & 2.90784e+01_rb, 2.93787e+01_rb, 2.96820e+01_rb, 2.99885e+01_rb, 3.02982e+01_rb, &\n     & 3.06110e+01_rb, 3.09271e+01_rb, 3.12464e+01_rb, 3.15690e+01_rb, 3.18950e+01_rb, &\n     & 3.22243e+01_rb, 3.25571e+01_rb, 3.28932e+01_rb, 3.32329e+01_rb, 3.35760e+01_rb, &\n     & 3.39227e+01_rb, 3.42730e+01_rb, 3.46269e+01_rb, 3.49844e+01_rb/)\n      kao_mn2o( 2, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 3, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 4, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 5, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 6, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 7, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 8, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n      kao_mn2o( 9, :,16) = (/ &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, &\n     & 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb, 0.00000e+00_rb/)\n\n!     The array KBO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level above 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kbo_mn2o(:, 1) = (/ &\n     & 8.42688e-03_rb, 8.96787e-03_rb, 9.54358e-03_rb, 1.01563e-02_rb, 1.08083e-02_rb, &\n     & 1.15021e-02_rb, 1.22405e-02_rb, 1.30263e-02_rb, 1.38626e-02_rb, 1.47525e-02_rb, &\n     & 1.56996e-02_rb, 1.67075e-02_rb, 1.77800e-02_rb, 1.89215e-02_rb, 2.01362e-02_rb, &\n     & 2.14289e-02_rb, 2.28045e-02_rb, 2.42685e-02_rb, 2.58265e-02_rb/)\n      kbo_mn2o(:, 2) = (/ &\n     & 2.24976e-02_rb, 2.38935e-02_rb, 2.53762e-02_rb, 2.69508e-02_rb, 2.86231e-02_rb, &\n     & 3.03991e-02_rb, 3.22854e-02_rb, 3.42887e-02_rb, 3.64163e-02_rb, 3.86760e-02_rb, &\n     & 4.10759e-02_rb, 4.36246e-02_rb, 4.63315e-02_rb, 4.92064e-02_rb, 5.22597e-02_rb, &\n     & 5.55024e-02_rb, 5.89464e-02_rb, 6.26040e-02_rb, 6.64886e-02_rb/)\n      kbo_mn2o(:, 3) = (/ &\n     & 5.93542e-02_rb, 6.37312e-02_rb, 6.84310e-02_rb, 7.34774e-02_rb, 7.88960e-02_rb, &\n     & 8.47141e-02_rb, 9.09613e-02_rb, 9.76692e-02_rb, 1.04872e-01_rb, 1.12605e-01_rb, &\n     & 1.20910e-01_rb, 1.29826e-01_rb, 1.39400e-01_rb, 1.49680e-01_rb, 1.60718e-01_rb, &\n     & 1.72570e-01_rb, 1.85296e-01_rb, 1.98961e-01_rb, 2.13633e-01_rb/)\n      kbo_mn2o(:, 4) = (/ &\n     & 1.98022e-01_rb, 2.05895e-01_rb, 2.14082e-01_rb, 2.22594e-01_rb, 2.31445e-01_rb, &\n     & 2.40647e-01_rb, 2.50216e-01_rb, 2.60164e-01_rb, 2.70509e-01_rb, 2.81265e-01_rb, &\n     & 2.92448e-01_rb, 3.04076e-01_rb, 3.16167e-01_rb, 3.28738e-01_rb, 3.41809e-01_rb, &\n     & 3.55400e-01_rb, 3.69531e-01_rb, 3.84224e-01_rb, 3.99501e-01_rb/)\n      kbo_mn2o(:, 5) = (/ &\n     & 6.41413e-01_rb, 6.46239e-01_rb, 6.51101e-01_rb, 6.56000e-01_rb, 6.60936e-01_rb, &\n     & 6.65910e-01_rb, 6.70920e-01_rb, 6.75968e-01_rb, 6.81054e-01_rb, 6.86179e-01_rb, &\n     & 6.91342e-01_rb, 6.96544e-01_rb, 7.01785e-01_rb, 7.07065e-01_rb, 7.12385e-01_rb, &\n     & 7.17746e-01_rb, 7.23146e-01_rb, 7.28587e-01_rb, 7.34070e-01_rb/)\n      kbo_mn2o(:, 6) = (/ &\n     & 1.47906e+00_rb, 1.48768e+00_rb, 1.49635e+00_rb, 1.50507e+00_rb, 1.51384e+00_rb, &\n     & 1.52267e+00_rb, 1.53154e+00_rb, 1.54047e+00_rb, 1.54944e+00_rb, 1.55847e+00_rb, &\n     & 1.56755e+00_rb, 1.57669e+00_rb, 1.58588e+00_rb, 1.59512e+00_rb, 1.60442e+00_rb, &\n     & 1.61377e+00_rb, 1.62317e+00_rb, 1.63263e+00_rb, 1.64215e+00_rb/)\n      kbo_mn2o(:, 7) = (/ &\n     & 3.53152e+00_rb, 3.55492e+00_rb, 3.57848e+00_rb, 3.60219e+00_rb, 3.62606e+00_rb, &\n     & 3.65008e+00_rb, 3.67427e+00_rb, 3.69862e+00_rb, 3.72313e+00_rb, 3.74780e+00_rb, &\n     & 3.77263e+00_rb, 3.79763e+00_rb, 3.82279e+00_rb, 3.84812e+00_rb, 3.87362e+00_rb, &\n     & 3.89929e+00_rb, 3.92513e+00_rb, 3.95114e+00_rb, 3.97732e+00_rb/)\n      kbo_mn2o(:, 8) = (/ &\n     & 9.06783e+00_rb, 9.04597e+00_rb, 9.02415e+00_rb, 9.00239e+00_rb, 8.98069e+00_rb, &\n     & 8.95903e+00_rb, 8.93743e+00_rb, 8.91588e+00_rb, 8.89438e+00_rb, 8.87293e+00_rb, &\n     & 8.85154e+00_rb, 8.83020e+00_rb, 8.80890e+00_rb, 8.78766e+00_rb, 8.76647e+00_rb, &\n     & 8.74533e+00_rb, 8.72425e+00_rb, 8.70321e+00_rb, 8.68223e+00_rb/)\n      kbo_mn2o(:, 9) = (/ &\n     & 3.88220e+01_rb, 3.85805e+01_rb, 3.83405e+01_rb, 3.81019e+01_rb, 3.78649e+01_rb, &\n     & 3.76293e+01_rb, 3.73952e+01_rb, 3.71625e+01_rb, 3.69313e+01_rb, 3.67016e+01_rb, &\n     & 3.64732e+01_rb, 3.62463e+01_rb, 3.60208e+01_rb, 3.57967e+01_rb, 3.55740e+01_rb, &\n     & 3.53527e+01_rb, 3.51327e+01_rb, 3.49142e+01_rb, 3.46970e+01_rb/)\n      kbo_mn2o(:, 10) = (/ &\n     & 1.14211e+02_rb, 1.13955e+02_rb, 1.13700e+02_rb, 1.13445e+02_rb, 1.13191e+02_rb, &\n     & 1.12938e+02_rb, 1.12685e+02_rb, 1.12433e+02_rb, 1.12181e+02_rb, 1.11930e+02_rb, &\n     & 1.11679e+02_rb, 1.11429e+02_rb, 1.11180e+02_rb, 1.10931e+02_rb, 1.10682e+02_rb, &\n     & 1.10434e+02_rb, 1.10187e+02_rb, 1.09940e+02_rb, 1.09694e+02_rb/)\n      kbo_mn2o(:, 11) = (/ &\n     & 1.60513e+02_rb, 1.60857e+02_rb, 1.61201e+02_rb, 1.61547e+02_rb, 1.61893e+02_rb, &\n     & 1.62240e+02_rb, 1.62587e+02_rb, 1.62936e+02_rb, 1.63285e+02_rb, 1.63635e+02_rb, &\n     & 1.63985e+02_rb, 1.64337e+02_rb, 1.64689e+02_rb, 1.65041e+02_rb, 1.65395e+02_rb, &\n     & 1.65749e+02_rb, 1.66105e+02_rb, 1.66460e+02_rb, 1.66817e+02_rb/)\n      kbo_mn2o(:, 12) = (/ &\n     & 1.71473e+02_rb, 1.72766e+02_rb, 1.74068e+02_rb, 1.75381e+02_rb, 1.76703e+02_rb, &\n     & 1.78035e+02_rb, 1.79377e+02_rb, 1.80729e+02_rb, 1.82091e+02_rb, 1.83464e+02_rb, &\n     & 1.84847e+02_rb, 1.86240e+02_rb, 1.87644e+02_rb, 1.89059e+02_rb, 1.90484e+02_rb, &\n     & 1.91920e+02_rb, 1.93367e+02_rb, 1.94824e+02_rb, 1.96293e+02_rb/)\n      kbo_mn2o(:, 13) = (/ &\n     & 2.71287e+01_rb, 2.75538e+01_rb, 2.79856e+01_rb, 2.84241e+01_rb, 2.88695e+01_rb, &\n     & 2.93219e+01_rb, 2.97814e+01_rb, 3.02480e+01_rb, 3.07220e+01_rb, 3.12035e+01_rb, &\n     & 3.16924e+01_rb, 3.21890e+01_rb, 3.26934e+01_rb, 3.32058e+01_rb, 3.37261e+01_rb, &\n     & 3.42546e+01_rb, 3.47914e+01_rb, 3.53365e+01_rb, 3.58903e+01_rb/)\n      kbo_mn2o(:, 14) = (/ &\n     & 1.70389e+01_rb, 1.70899e+01_rb, 1.71411e+01_rb, 1.71924e+01_rb, 1.72439e+01_rb, &\n     & 1.72955e+01_rb, 1.73473e+01_rb, 1.73992e+01_rb, 1.74513e+01_rb, 1.75035e+01_rb, &\n     & 1.75559e+01_rb, 1.76085e+01_rb, 1.76612e+01_rb, 1.77141e+01_rb, 1.77671e+01_rb, &\n     & 1.78203e+01_rb, 1.78736e+01_rb, 1.79271e+01_rb, 1.79808e+01_rb/)\n      kbo_mn2o(:, 15) = (/ &\n     & 2.49725e+00_rb, 2.66861e+00_rb, 2.85174e+00_rb, 3.04743e+00_rb, 3.25655e+00_rb, &\n     & 3.48003e+00_rb, 3.71883e+00_rb, 3.97403e+00_rb, 4.24673e+00_rb, 4.53815e+00_rb, &\n     & 4.84957e+00_rb, 5.18236e+00_rb, 5.53798e+00_rb, 5.91801e+00_rb, 6.32412e+00_rb, &\n     & 6.75809e+00_rb, 7.22185e+00_rb, 7.71742e+00_rb, 8.24701e+00_rb/)\n      kbo_mn2o(:, 16) = (/ &\n     & 1.82935e-03_rb, 2.58912e-03_rb, 3.66444e-03_rb, 5.18637e-03_rb, 7.34039e-03_rb, &\n     & 1.03890e-02_rb, 1.47038e-02_rb, 2.08106e-02_rb, 2.94538e-02_rb, 4.16865e-02_rb, &\n     & 5.89999e-02_rb, 8.35040e-02_rb, 1.18185e-01_rb, 1.67270e-01_rb, 2.36741e-01_rb, &\n     & 3.35065e-01_rb, 4.74225e-01_rb, 6.71180e-01_rb, 9.49936e-01_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &7.5352e-06_rb,2.9812e-05_rb,1.4497e-04_rb,4.4006e-04_rb,1.0492e-03_rb,1.9676e-03_rb, &\n     &1.9989e-03_rb,1.9099e-03_rb,2.2121e-03_rb,2.4491e-03_rb,2.9573e-03_rb,2.6344e-03_rb, &\n     &3.0629e-03_rb,3.3547e-03_rb,5.0643e-03_rb,5.0642e-03_rb/)\n      forrefo(2,:) = (/ &\n     &6.6070e-06_rb,4.8618e-05_rb,3.1112e-04_rb,8.4235e-04_rb,1.4179e-03_rb,1.4315e-03_rb, &\n     &1.4685e-03_rb,1.6554e-03_rb,2.1171e-03_rb,2.3545e-03_rb,2.5165e-03_rb,2.7680e-03_rb, &\n     &2.6985e-03_rb,3.5345e-03_rb,4.2924e-03_rb,5.0712e-03_rb/)\n      forrefo(3,:) = (/ &\n     &6.5962e-06_rb,7.2595e-04_rb,1.3429e-03_rb,1.1675e-03_rb,9.8384e-04_rb,8.8787e-04_rb, &\n     &8.7557e-04_rb,8.0589e-04_rb,7.7024e-04_rb,8.7518e-04_rb,9.5213e-04_rb,9.0849e-04_rb, &\n     &1.2596e-03_rb,2.5106e-03_rb,3.9471e-03_rb,5.0742e-03_rb/)\n      forrefo(4,:) = (/ &\n     &3.6217e-04_rb,1.0709e-03_rb,1.0628e-03_rb,8.5640e-04_rb,8.9332e-04_rb,8.3372e-04_rb, &\n     &7.8539e-04_rb,8.2828e-04_rb,8.3329e-04_rb,8.5118e-04_rb,8.2878e-04_rb,6.8570e-04_rb, &\n     &6.3815e-04_rb,8.0648e-04_rb,2.3236e-03_rb,4.0321e-03_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 2.83453e-02_rb, 2.51439e-02_rb, 2.23040e-02_rb, 1.97849e-02_rb, 1.75503e-02_rb, &\n     & 1.55681e-02_rb, 1.38097e-02_rb, 1.22500e-02_rb, 1.08664e-02_rb, 9.63912e-03_rb/)\n      selfrefo(:, 2) = (/ &\n     & 3.05185e-02_rb, 2.72374e-02_rb, 2.43090e-02_rb, 2.16955e-02_rb, 1.93629e-02_rb, &\n     & 1.72811e-02_rb, 1.54232e-02_rb, 1.37650e-02_rb, 1.22851e-02_rb, 1.09643e-02_rb/)\n      selfrefo(:, 3) = (/ &\n     & 4.23833e-02_rb, 3.76250e-02_rb, 3.34010e-02_rb, 2.96512e-02_rb, 2.63223e-02_rb, &\n     & 2.33672e-02_rb, 2.07439e-02_rb, 1.84150e-02_rb, 1.63476e-02_rb, 1.45123e-02_rb/)\n      selfrefo(:, 4) = (/ &\n     & 5.76481e-02_rb, 5.13686e-02_rb, 4.57730e-02_rb, 4.07870e-02_rb, 3.63441e-02_rb, &\n     & 3.23851e-02_rb, 2.88574e-02_rb, 2.57140e-02_rb, 2.29130e-02_rb, 2.04171e-02_rb/)\n      selfrefo(:, 5) = (/ &\n     & 6.92255e-02_rb, 6.33521e-02_rb, 5.79770e-02_rb, 5.30580e-02_rb, 4.85563e-02_rb, &\n     & 4.44365e-02_rb, 4.06663e-02_rb, 3.72160e-02_rb, 3.40584e-02_rb, 3.11687e-02_rb/)\n      selfrefo(:, 6) = (/ &\n     & 6.07694e-02_rb, 5.94182e-02_rb, 5.80970e-02_rb, 5.68052e-02_rb, 5.55422e-02_rb, &\n     & 5.43072e-02_rb, 5.30997e-02_rb, 5.19190e-02_rb, 5.07646e-02_rb, 4.96358e-02_rb/)\n      selfrefo(:, 7) = (/ &\n     & 6.23749e-02_rb, 6.07744e-02_rb, 5.92150e-02_rb, 5.76956e-02_rb, 5.62152e-02_rb, &\n     & 5.47728e-02_rb, 5.33674e-02_rb, 5.19980e-02_rb, 5.06638e-02_rb, 4.93638e-02_rb/)\n      selfrefo(:, 8) = (/ &\n     & 6.90744e-02_rb, 6.61811e-02_rb, 6.34090e-02_rb, 6.07530e-02_rb, 5.82083e-02_rb, &\n     & 5.57702e-02_rb, 5.34342e-02_rb, 5.11960e-02_rb, 4.90516e-02_rb, 4.69970e-02_rb/)\n      selfrefo(:, 9) = (/ &\n     & 8.08992e-02_rb, 7.68876e-02_rb, 7.30750e-02_rb, 6.94514e-02_rb, 6.60075e-02_rb, &\n     & 6.27344e-02_rb, 5.96236e-02_rb, 5.66670e-02_rb, 5.38570e-02_rb, 5.11864e-02_rb/)\n      selfrefo(:,10) = (/ &\n     & 8.70197e-02_rb, 8.27485e-02_rb, 7.86870e-02_rb, 7.48248e-02_rb, 7.11522e-02_rb, &\n     & 6.76599e-02_rb, 6.43389e-02_rb, 6.11810e-02_rb, 5.81781e-02_rb, 5.53225e-02_rb/)\n      selfrefo(:,11) = (/ &\n     & 8.84776e-02_rb, 8.54262e-02_rb, 8.24800e-02_rb, 7.96354e-02_rb, 7.68890e-02_rb, &\n     & 7.42373e-02_rb, 7.16770e-02_rb, 6.92050e-02_rb, 6.68183e-02_rb, 6.45139e-02_rb/)\n      selfrefo(:,12) = (/ &\n     & 9.82552e-02_rb, 9.25696e-02_rb, 8.72130e-02_rb, 8.21664e-02_rb, 7.74118e-02_rb, &\n     & 7.29323e-02_rb, 6.87121e-02_rb, 6.47360e-02_rb, 6.09900e-02_rb, 5.74608e-02_rb/)\n      selfrefo(:,13) = (/ &\n     & 9.32447e-02_rb, 8.96818e-02_rb, 8.62550e-02_rb, 8.29592e-02_rb, 7.97893e-02_rb, &\n     & 7.67405e-02_rb, 7.38082e-02_rb, 7.09880e-02_rb, 6.82755e-02_rb, 6.56667e-02_rb/)\n      selfrefo(:,14) = (/ &\n     & 1.15363e-01_rb, 1.08593e-01_rb, 1.02220e-01_rb, 9.62210e-02_rb, 9.05741e-02_rb, &\n     & 8.52585e-02_rb, 8.02549e-02_rb, 7.55450e-02_rb, 7.11115e-02_rb, 6.69382e-02_rb/)\n      selfrefo(:,15) = (/ &\n     & 1.23179e-01_rb, 1.19247e-01_rb, 1.15440e-01_rb, 1.11755e-01_rb, 1.08187e-01_rb, &\n     & 1.04734e-01_rb, 1.01391e-01_rb, 9.81540e-02_rb, 9.50207e-02_rb, 9.19875e-02_rb/)\n      selfrefo(:,16) = (/ &\n     & 1.44104e-01_rb, 1.36412e-01_rb, 1.29130e-01_rb, 1.22237e-01_rb, 1.15712e-01_rb, &\n     & 1.09535e-01_rb, 1.03688e-01_rb, 9.81530e-02_rb, 9.29135e-02_rb, 8.79537e-02_rb/)\n\n      end subroutine lw_kgb09\n\n! **************************************************************************\n      subroutine lw_kgb10\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg10, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 212.7250, T = 223.06 K\n      fracrefao(:) = (/ &\n     &  1.6909e-01_rb, 1.5419e-01_rb, 1.3999e-01_rb, 1.2637e-01_rb, &\n     &  1.1429e-01_rb, 9.9676e-02_rb, 8.0093e-02_rb, 6.0283e-02_rb, &\n     &  4.1077e-02_rb, 4.4857e-03_rb, 3.6545e-03_rb, 2.9243e-03_rb, &\n     &  2.0407e-03_rb, 1.2891e-03_rb, 4.8767e-04_rb, 6.7748e-05_rb/)\n\n! Planck fraction mapping level : P = 95.58350 mb, T = 215.70 K\n      fracrefbo(:) = (/ &\n     &  1.7391e-01_rb, 1.5680e-01_rb, 1.4419e-01_rb, 1.2672e-01_rb, &\n     &  1.0708e-01_rb, 9.7034e-02_rb, 7.8545e-02_rb, 5.9784e-02_rb, &\n     &  4.0879e-02_rb, 4.4704e-03_rb, 3.7150e-03_rb, 2.9038e-03_rb, &\n     &  2.1454e-03_rb, 1.2802e-03_rb, 4.8328e-04_rb, 6.7378e-05_rb/)\n\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels > ~100mb and temperatures.  The first\n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the corresponding TREF for this  pressure level, \n!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, \n!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second \n!     index, JP, runs from 1 to 13 and refers to the corresponding \n!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  \n!     The third index, IG, goes from 1 to 16, and tells us which \n!     g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &2.7213e-02_rb,2.9029e-02_rb,3.0838e-02_rb,3.2767e-02_rb,3.4630e-02_rb/)\n      kao(:, 2, 1) = (/ &\n     &2.1383e-02_rb,2.2832e-02_rb,2.4365e-02_rb,2.5925e-02_rb,2.7376e-02_rb/)\n      kao(:, 3, 1) = (/ &\n     &1.6478e-02_rb,1.7675e-02_rb,1.8942e-02_rb,2.0177e-02_rb,2.1374e-02_rb/)\n      kao(:, 4, 1) = (/ &\n     &1.2848e-02_rb,1.3809e-02_rb,1.4825e-02_rb,1.5852e-02_rb,1.6799e-02_rb/)\n      kao(:, 5, 1) = (/ &\n     &1.0029e-02_rb,1.0847e-02_rb,1.1686e-02_rb,1.2512e-02_rb,1.3297e-02_rb/)\n      kao(:, 6, 1) = (/ &\n     &7.8313e-03_rb,8.5460e-03_rb,9.2025e-03_rb,9.9079e-03_rb,1.0554e-02_rb/)\n      kao(:, 7, 1) = (/ &\n     &6.1234e-03_rb,6.6846e-03_rb,7.2818e-03_rb,7.8451e-03_rb,8.4144e-03_rb/)\n      kao(:, 8, 1) = (/ &\n     &4.8747e-03_rb,5.2881e-03_rb,5.7474e-03_rb,6.2355e-03_rb,6.7085e-03_rb/)\n      kao(:, 9, 1) = (/ &\n     &4.1059e-03_rb,4.5848e-03_rb,4.9152e-03_rb,5.2401e-03_rb,5.5908e-03_rb/)\n      kao(:,10, 1) = (/ &\n     &3.5412e-03_rb,4.0565e-03_rb,4.5689e-03_rb,5.1092e-03_rb,5.6716e-03_rb/)\n      kao(:,11, 1) = (/ &\n     &3.0492e-03_rb,3.6436e-03_rb,4.0799e-03_rb,4.5260e-03_rb,4.9802e-03_rb/)\n      kao(:,12, 1) = (/ &\n     &2.5821e-03_rb,3.0995e-03_rb,3.5069e-03_rb,3.8699e-03_rb,4.2575e-03_rb/)\n      kao(:,13, 1) = (/ &\n     &2.1558e-03_rb,2.5890e-03_rb,2.9127e-03_rb,3.2139e-03_rb,3.5455e-03_rb/)\n      kao(:, 1, 2) = (/ &\n     &5.2889e-02_rb,5.6315e-02_rb,5.9927e-02_rb,6.3408e-02_rb,6.6329e-02_rb/)\n      kao(:, 2, 2) = (/ &\n     &4.1932e-02_rb,4.4934e-02_rb,4.8030e-02_rb,5.0855e-02_rb,5.3372e-02_rb/)\n      kao(:, 3, 2) = (/ &\n     &3.2754e-02_rb,3.5198e-02_rb,3.7786e-02_rb,4.0294e-02_rb,4.2438e-02_rb/)\n      kao(:, 4, 2) = (/ &\n     &2.5838e-02_rb,2.7680e-02_rb,2.9873e-02_rb,3.1963e-02_rb,3.3931e-02_rb/)\n      kao(:, 5, 2) = (/ &\n     &2.0528e-02_rb,2.2079e-02_rb,2.3740e-02_rb,2.5501e-02_rb,2.7219e-02_rb/)\n      kao(:, 6, 2) = (/ &\n     &1.6350e-02_rb,1.7491e-02_rb,1.8902e-02_rb,2.0280e-02_rb,2.1774e-02_rb/)\n      kao(:, 7, 2) = (/ &\n     &1.2732e-02_rb,1.3953e-02_rb,1.5005e-02_rb,1.6145e-02_rb,1.7323e-02_rb/)\n      kao(:, 8, 2) = (/ &\n     &9.7464e-03_rb,1.1159e-02_rb,1.2150e-02_rb,1.2940e-02_rb,1.3856e-02_rb/)\n      kao(:, 9, 2) = (/ &\n     &7.5337e-03_rb,8.5370e-03_rb,9.6841e-03_rb,1.0825e-02_rb,1.1894e-02_rb/)\n      kao(:,10, 2) = (/ &\n     &7.1476e-03_rb,7.8468e-03_rb,8.6104e-03_rb,9.4234e-03_rb,1.0165e-02_rb/)\n      kao(:,11, 2) = (/ &\n     &7.4726e-03_rb,7.8619e-03_rb,8.4110e-03_rb,8.8097e-03_rb,9.3621e-03_rb/)\n      kao(:,12, 2) = (/ &\n     &6.8212e-03_rb,7.3104e-03_rb,7.6521e-03_rb,8.0570e-03_rb,8.3782e-03_rb/)\n      kao(:,13, 2) = (/ &\n     &5.7626e-03_rb,6.1115e-03_rb,6.3578e-03_rb,6.6833e-03_rb,6.9834e-03_rb/)\n      kao(:, 1, 3) = (/ &\n     &9.2909e-02_rb,9.6713e-02_rb,9.9436e-02_rb,1.0242e-01_rb,1.0613e-01_rb/)\n      kao(:, 2, 3) = (/ &\n     &7.4548e-02_rb,7.7785e-02_rb,8.0363e-02_rb,8.2840e-02_rb,8.6028e-02_rb/)\n      kao(:, 3, 3) = (/ &\n     &5.8714e-02_rb,6.1823e-02_rb,6.4284e-02_rb,6.6702e-02_rb,6.9231e-02_rb/)\n      kao(:, 4, 3) = (/ &\n     &4.6349e-02_rb,4.9440e-02_rb,5.1743e-02_rb,5.3890e-02_rb,5.5994e-02_rb/)\n      kao(:, 5, 3) = (/ &\n     &3.6507e-02_rb,3.9309e-02_rb,4.1637e-02_rb,4.3586e-02_rb,4.5365e-02_rb/)\n      kao(:, 6, 3) = (/ &\n     &2.8427e-02_rb,3.1177e-02_rb,3.3328e-02_rb,3.5180e-02_rb,3.6733e-02_rb/)\n      kao(:, 7, 3) = (/ &\n     &2.2397e-02_rb,2.4640e-02_rb,2.6638e-02_rb,2.8311e-02_rb,2.9747e-02_rb/)\n      kao(:, 8, 3) = (/ &\n     &1.7861e-02_rb,1.9252e-02_rb,2.1033e-02_rb,2.2648e-02_rb,2.3985e-02_rb/)\n      kao(:, 9, 3) = (/ &\n     &1.4398e-02_rb,1.5884e-02_rb,1.6962e-02_rb,1.7935e-02_rb,1.8840e-02_rb/)\n      kao(:,10, 3) = (/ &\n     &1.3336e-02_rb,1.5085e-02_rb,1.6848e-02_rb,1.8578e-02_rb,1.9024e-02_rb/)\n      kao(:,11, 3) = (/ &\n     &1.0996e-02_rb,1.2680e-02_rb,1.4233e-02_rb,1.6184e-02_rb,1.7835e-02_rb/)\n      kao(:,12, 3) = (/ &\n     &9.6066e-03_rb,1.0608e-02_rb,1.2101e-02_rb,1.3713e-02_rb,1.5338e-02_rb/)\n      kao(:,13, 3) = (/ &\n     &8.0007e-03_rb,8.9344e-03_rb,1.0260e-02_rb,1.1651e-02_rb,1.2914e-02_rb/)\n      kao(:, 1, 4) = (/ &\n     &1.4098e-01_rb,1.4735e-01_rb,1.5390e-01_rb,1.6007e-01_rb,1.6623e-01_rb/)\n      kao(:, 2, 4) = (/ &\n     &1.1373e-01_rb,1.1930e-01_rb,1.2491e-01_rb,1.3057e-01_rb,1.3593e-01_rb/)\n      kao(:, 3, 4) = (/ &\n     &9.0856e-02_rb,9.5503e-02_rb,1.0012e-01_rb,1.0479e-01_rb,1.0971e-01_rb/)\n      kao(:, 4, 4) = (/ &\n     &7.2695e-02_rb,7.6746e-02_rb,8.0662e-02_rb,8.4622e-02_rb,8.8881e-02_rb/)\n      kao(:, 5, 4) = (/ &\n     &5.8402e-02_rb,6.1962e-02_rb,6.5265e-02_rb,6.8694e-02_rb,7.2371e-02_rb/)\n      kao(:, 6, 4) = (/ &\n     &4.7100e-02_rb,5.0100e-02_rb,5.2955e-02_rb,5.5897e-02_rb,5.9012e-02_rb/)\n      kao(:, 7, 4) = (/ &\n     &3.7714e-02_rb,4.0303e-02_rb,4.2858e-02_rb,4.5396e-02_rb,4.8032e-02_rb/)\n      kao(:, 8, 4) = (/ &\n     &2.9938e-02_rb,3.2418e-02_rb,3.4599e-02_rb,3.6801e-02_rb,3.9055e-02_rb/)\n      kao(:, 9, 4) = (/ &\n     &2.3570e-02_rb,2.5475e-02_rb,2.7580e-02_rb,2.9598e-02_rb,3.1549e-02_rb/)\n      kao(:,10, 4) = (/ &\n     &2.3291e-02_rb,2.1658e-02_rb,2.1418e-02_rb,2.1490e-02_rb,2.3536e-02_rb/)\n      kao(:,11, 4) = (/ &\n     &2.1808e-02_rb,2.2150e-02_rb,2.2833e-02_rb,2.0354e-02_rb,1.9688e-02_rb/)\n      kao(:,12, 4) = (/ &\n     &1.9246e-02_rb,1.9438e-02_rb,1.9839e-02_rb,2.0164e-02_rb,1.7716e-02_rb/)\n      kao(:,13, 4) = (/ &\n     &1.6236e-02_rb,1.6164e-02_rb,1.6551e-02_rb,1.6579e-02_rb,1.4849e-02_rb/)\n      kao(:, 1, 5) = (/ &\n     &2.5886e-01_rb,2.7100e-01_rb,2.8220e-01_rb,2.9245e-01_rb,3.0214e-01_rb/)\n      kao(:, 2, 5) = (/ &\n     &2.0909e-01_rb,2.1918e-01_rb,2.2861e-01_rb,2.3740e-01_rb,2.4610e-01_rb/)\n      kao(:, 3, 5) = (/ &\n     &1.6622e-01_rb,1.7497e-01_rb,1.8311e-01_rb,1.9088e-01_rb,1.9860e-01_rb/)\n      kao(:, 4, 5) = (/ &\n     &1.3301e-01_rb,1.4069e-01_rb,1.4792e-01_rb,1.5478e-01_rb,1.6132e-01_rb/)\n      kao(:, 5, 5) = (/ &\n     &1.0688e-01_rb,1.1355e-01_rb,1.1989e-01_rb,1.2584e-01_rb,1.3154e-01_rb/)\n      kao(:, 6, 5) = (/ &\n     &8.5419e-02_rb,9.1274e-02_rb,9.6848e-02_rb,1.0202e-01_rb,1.0704e-01_rb/)\n      kao(:, 7, 5) = (/ &\n     &6.8100e-02_rb,7.3262e-02_rb,7.8047e-02_rb,8.2594e-02_rb,8.7027e-02_rb/)\n      kao(:, 8, 5) = (/ &\n     &5.4252e-02_rb,5.8815e-02_rb,6.2989e-02_rb,6.6937e-02_rb,7.0783e-02_rb/)\n      kao(:, 9, 5) = (/ &\n     &4.3117e-02_rb,4.7224e-02_rb,5.0916e-02_rb,5.4328e-02_rb,5.7817e-02_rb/)\n      kao(:,10, 5) = (/ &\n     &2.9151e-02_rb,3.5667e-02_rb,4.0092e-02_rb,4.3888e-02_rb,4.6870e-02_rb/)\n      kao(:,11, 5) = (/ &\n     &2.3941e-02_rb,2.7450e-02_rb,2.9750e-02_rb,3.5348e-02_rb,3.9440e-02_rb/)\n      kao(:,12, 5) = (/ &\n     &2.0570e-02_rb,2.3238e-02_rb,2.5236e-02_rb,2.7327e-02_rb,3.2816e-02_rb/)\n      kao(:,13, 5) = (/ &\n     &1.7253e-02_rb,1.9755e-02_rb,2.1401e-02_rb,2.3591e-02_rb,2.8114e-02_rb/)\n      kao(:, 1, 6) = (/ &\n     &5.6993e-01_rb,6.0360e-01_rb,6.3489e-01_rb,6.6230e-01_rb,6.8659e-01_rb/)\n      kao(:, 2, 6) = (/ &\n     &4.6502e-01_rb,4.9401e-01_rb,5.2007e-01_rb,5.4304e-01_rb,5.6306e-01_rb/)\n      kao(:, 3, 6) = (/ &\n     &3.7271e-01_rb,3.9757e-01_rb,4.1967e-01_rb,4.3927e-01_rb,4.5631e-01_rb/)\n      kao(:, 4, 6) = (/ &\n     &2.9874e-01_rb,3.1990e-01_rb,3.3890e-01_rb,3.5594e-01_rb,3.7139e-01_rb/)\n      kao(:, 5, 6) = (/ &\n     &2.3859e-01_rb,2.5711e-01_rb,2.7375e-01_rb,2.8893e-01_rb,3.0280e-01_rb/)\n      kao(:, 6, 6) = (/ &\n     &1.8917e-01_rb,2.0549e-01_rb,2.2017e-01_rb,2.3369e-01_rb,2.4611e-01_rb/)\n      kao(:, 7, 6) = (/ &\n     &1.4938e-01_rb,1.6367e-01_rb,1.7681e-01_rb,1.8887e-01_rb,1.9989e-01_rb/)\n      kao(:, 8, 6) = (/ &\n     &1.1758e-01_rb,1.3011e-01_rb,1.4157e-01_rb,1.5226e-01_rb,1.6197e-01_rb/)\n      kao(:, 9, 6) = (/ &\n     &9.1609e-02_rb,1.0230e-01_rb,1.1226e-01_rb,1.2154e-01_rb,1.2990e-01_rb/)\n      kao(:,10, 6) = (/ &\n     &7.2629e-02_rb,8.2527e-02_rb,9.1786e-02_rb,1.0065e-01_rb,1.0832e-01_rb/)\n      kao(:,11, 6) = (/ &\n     &6.0173e-02_rb,6.9095e-02_rb,7.8339e-02_rb,8.6340e-02_rb,9.2996e-02_rb/)\n      kao(:,12, 6) = (/ &\n     &5.1074e-02_rb,5.9514e-02_rb,6.6969e-02_rb,7.3447e-02_rb,7.9277e-02_rb/)\n      kao(:,13, 6) = (/ &\n     &4.3826e-02_rb,5.0848e-02_rb,5.7125e-02_rb,6.2916e-02_rb,6.7915e-02_rb/)\n      kao(:, 1, 7) = (/ &\n     &1.4129e+00_rb,1.4750e+00_rb,1.5277e+00_rb,1.5727e+00_rb,1.6117e+00_rb/)\n      kao(:, 2, 7) = (/ &\n     &1.1749e+00_rb,1.2287e+00_rb,1.2750e+00_rb,1.3159e+00_rb,1.3523e+00_rb/)\n      kao(:, 3, 7) = (/ &\n     &9.5348e-01_rb,1.0008e+00_rb,1.0433e+00_rb,1.0822e+00_rb,1.1168e+00_rb/)\n      kao(:, 4, 7) = (/ &\n     &7.6995e-01_rb,8.1381e-01_rb,8.5421e-01_rb,8.9012e-01_rb,9.2111e-01_rb/)\n      kao(:, 5, 7) = (/ &\n     &6.2211e-01_rb,6.6255e-01_rb,6.9934e-01_rb,7.3149e-01_rb,7.5879e-01_rb/)\n      kao(:, 6, 7) = (/ &\n     &5.0056e-01_rb,5.3742e-01_rb,5.7038e-01_rb,5.9882e-01_rb,6.2305e-01_rb/)\n      kao(:, 7, 7) = (/ &\n     &4.0115e-01_rb,4.3352e-01_rb,4.6244e-01_rb,4.8765e-01_rb,5.0920e-01_rb/)\n      kao(:, 8, 7) = (/ &\n     &3.1902e-01_rb,3.4754e-01_rb,3.7305e-01_rb,3.9544e-01_rb,4.1482e-01_rb/)\n      kao(:, 9, 7) = (/ &\n     &2.5207e-01_rb,2.7718e-01_rb,2.9962e-01_rb,3.1933e-01_rb,3.3666e-01_rb/)\n      kao(:,10, 7) = (/ &\n     &1.9498e-01_rb,2.1588e-01_rb,2.3464e-01_rb,2.5127e-01_rb,2.6668e-01_rb/)\n      kao(:,11, 7) = (/ &\n     &1.6583e-01_rb,1.8332e-01_rb,1.9835e-01_rb,2.1191e-01_rb,2.2523e-01_rb/)\n      kao(:,12, 7) = (/ &\n     &1.3827e-01_rb,1.5202e-01_rb,1.6547e-01_rb,1.7854e-01_rb,1.8991e-01_rb/)\n      kao(:,13, 7) = (/ &\n     &1.1534e-01_rb,1.2733e-01_rb,1.3962e-01_rb,1.4987e-01_rb,1.6008e-01_rb/)\n      kao(:, 1, 8) = (/ &\n     &3.5920e+00_rb,3.7800e+00_rb,3.9524e+00_rb,4.1109e+00_rb,4.2529e+00_rb/)\n      kao(:, 2, 8) = (/ &\n     &3.2111e+00_rb,3.3886e+00_rb,3.5521e+00_rb,3.6948e+00_rb,3.8225e+00_rb/)\n      kao(:, 3, 8) = (/ &\n     &2.7787e+00_rb,2.9477e+00_rb,3.0955e+00_rb,3.2271e+00_rb,3.3442e+00_rb/)\n      kao(:, 4, 8) = (/ &\n     &2.3588e+00_rb,2.5119e+00_rb,2.6472e+00_rb,2.7686e+00_rb,2.8775e+00_rb/)\n      kao(:, 5, 8) = (/ &\n     &1.9705e+00_rb,2.1082e+00_rb,2.2326e+00_rb,2.3452e+00_rb,2.4470e+00_rb/)\n      kao(:, 6, 8) = (/ &\n     &1.6168e+00_rb,1.7418e+00_rb,1.8565e+00_rb,1.9616e+00_rb,2.0551e+00_rb/)\n      kao(:, 7, 8) = (/ &\n     &1.3089e+00_rb,1.4235e+00_rb,1.5288e+00_rb,1.6233e+00_rb,1.7079e+00_rb/)\n      kao(:, 8, 8) = (/ &\n     &1.0505e+00_rb,1.1539e+00_rb,1.2478e+00_rb,1.3319e+00_rb,1.4095e+00_rb/)\n      kao(:, 9, 8) = (/ &\n     &8.3583e-01_rb,9.2738e-01_rb,1.0101e+00_rb,1.0861e+00_rb,1.1567e+00_rb/)\n      kao(:,10, 8) = (/ &\n     &6.6552e-01_rb,7.4516e-01_rb,8.1795e-01_rb,8.8505e-01_rb,9.4596e-01_rb/)\n      kao(:,11, 8) = (/ &\n     &5.5048e-01_rb,6.1499e-01_rb,6.7571e-01_rb,7.3145e-01_rb,7.8064e-01_rb/)\n      kao(:,12, 8) = (/ &\n     &4.5804e-01_rb,5.1260e-01_rb,5.6222e-01_rb,6.0624e-01_rb,6.4709e-01_rb/)\n      kao(:,13, 8) = (/ &\n     &3.8513e-01_rb,4.3049e-01_rb,4.7109e-01_rb,5.0795e-01_rb,5.3980e-01_rb/)\n      kao(:, 1, 9) = (/ &\n     &1.0443e+01_rb,1.1048e+01_rb,1.1589e+01_rb,1.2078e+01_rb,1.2523e+01_rb/)\n      kao(:, 2, 9) = (/ &\n     &1.0305e+01_rb,1.0938e+01_rb,1.1513e+01_rb,1.2045e+01_rb,1.2531e+01_rb/)\n      kao(:, 3, 9) = (/ &\n     &9.8576e+00_rb,1.0529e+01_rb,1.1150e+01_rb,1.1712e+01_rb,1.2221e+01_rb/)\n      kao(:, 4, 9) = (/ &\n     &9.2371e+00_rb,9.9233e+00_rb,1.0551e+01_rb,1.1124e+01_rb,1.1647e+01_rb/)\n      kao(:, 5, 9) = (/ &\n     &8.4700e+00_rb,9.1602e+00_rb,9.7951e+00_rb,1.0380e+01_rb,1.0911e+01_rb/)\n      kao(:, 6, 9) = (/ &\n     &7.5880e+00_rb,8.2763e+00_rb,8.9154e+00_rb,9.5007e+00_rb,1.0024e+01_rb/)\n      kao(:, 7, 9) = (/ &\n     &6.6790e+00_rb,7.3503e+00_rb,7.9748e+00_rb,8.5357e+00_rb,9.0412e+00_rb/)\n      kao(:, 8, 9) = (/ &\n     &5.7712e+00_rb,6.4120e+00_rb,7.0009e+00_rb,7.5325e+00_rb,8.0088e+00_rb/)\n      kao(:, 9, 9) = (/ &\n     &4.8989e+00_rb,5.4909e+00_rb,6.0328e+00_rb,6.5241e+00_rb,6.9680e+00_rb/)\n      kao(:,10, 9) = (/ &\n     &4.1164e+00_rb,4.6491e+00_rb,5.1402e+00_rb,5.5886e+00_rb,6.0036e+00_rb/)\n      kao(:,11, 9) = (/ &\n     &3.6151e+00_rb,4.0753e+00_rb,4.5022e+00_rb,4.8994e+00_rb,5.2546e+00_rb/)\n      kao(:,12, 9) = (/ &\n     &3.1350e+00_rb,3.5329e+00_rb,3.9073e+00_rb,4.2435e+00_rb,4.5415e+00_rb/)\n      kao(:,13, 9) = (/ &\n     &2.6929e+00_rb,3.0365e+00_rb,3.3480e+00_rb,3.6295e+00_rb,3.8842e+00_rb/)\n      kao(:, 1,10) = (/ &\n     &1.9924e+01_rb,2.0919e+01_rb,2.2000e+01_rb,2.2972e+01_rb,2.3773e+01_rb/)\n      kao(:, 2,10) = (/ &\n     &2.0689e+01_rb,2.1909e+01_rb,2.3034e+01_rb,2.3987e+01_rb,2.4788e+01_rb/)\n      kao(:, 3,10) = (/ &\n     &2.0776e+01_rb,2.2053e+01_rb,2.3211e+01_rb,2.4276e+01_rb,2.5292e+01_rb/)\n      kao(:, 4,10) = (/ &\n     &2.0236e+01_rb,2.1839e+01_rb,2.3315e+01_rb,2.4662e+01_rb,2.5879e+01_rb/)\n      kao(:, 5,10) = (/ &\n     &1.9987e+01_rb,2.1808e+01_rb,2.3390e+01_rb,2.4727e+01_rb,2.5958e+01_rb/)\n      kao(:, 6,10) = (/ &\n     &1.9523e+01_rb,2.1285e+01_rb,2.2798e+01_rb,2.4193e+01_rb,2.5643e+01_rb/)\n      kao(:, 7,10) = (/ &\n     &1.8326e+01_rb,2.0057e+01_rb,2.1638e+01_rb,2.3310e+01_rb,2.4996e+01_rb/)\n      kao(:, 8,10) = (/ &\n     &1.6812e+01_rb,1.8592e+01_rb,2.0423e+01_rb,2.2320e+01_rb,2.4092e+01_rb/)\n      kao(:, 9,10) = (/ &\n     &1.5126e+01_rb,1.7059e+01_rb,1.9069e+01_rb,2.1023e+01_rb,2.2713e+01_rb/)\n      kao(:,10,10) = (/ &\n     &1.3603e+01_rb,1.5643e+01_rb,1.7659e+01_rb,1.9476e+01_rb,2.1017e+01_rb/)\n      kao(:,11,10) = (/ &\n     &1.3136e+01_rb,1.5065e+01_rb,1.6788e+01_rb,1.8298e+01_rb,1.9745e+01_rb/)\n      kao(:,12,10) = (/ &\n     &1.2291e+01_rb,1.3925e+01_rb,1.5389e+01_rb,1.6819e+01_rb,1.8254e+01_rb/)\n      kao(:,13,10) = (/ &\n     &1.1103e+01_rb,1.2502e+01_rb,1.3897e+01_rb,1.5277e+01_rb,1.6528e+01_rb/)\n      kao(:, 1,11) = (/ &\n     &2.4296e+01_rb,2.5293e+01_rb,2.6167e+01_rb,2.7129e+01_rb,2.8181e+01_rb/)\n      kao(:, 2,11) = (/ &\n     &2.5960e+01_rb,2.7094e+01_rb,2.8248e+01_rb,2.9459e+01_rb,3.0485e+01_rb/)\n      kao(:, 3,11) = (/ &\n     &2.6865e+01_rb,2.8307e+01_rb,2.9751e+01_rb,3.1102e+01_rb,3.2279e+01_rb/)\n      kao(:, 4,11) = (/ &\n     &2.7354e+01_rb,2.8995e+01_rb,3.0628e+01_rb,3.2100e+01_rb,3.3421e+01_rb/)\n      kao(:, 5,11) = (/ &\n     &2.6969e+01_rb,2.8892e+01_rb,3.0767e+01_rb,3.2621e+01_rb,3.4273e+01_rb/)\n      kao(:, 6,11) = (/ &\n     &2.6094e+01_rb,2.8469e+01_rb,3.0801e+01_rb,3.2980e+01_rb,3.4919e+01_rb/)\n      kao(:, 7,11) = (/ &\n     &2.5366e+01_rb,2.8149e+01_rb,3.0864e+01_rb,3.3154e+01_rb,3.5069e+01_rb/)\n      kao(:, 8,11) = (/ &\n     &2.4570e+01_rb,2.7568e+01_rb,3.0172e+01_rb,3.2348e+01_rb,3.4412e+01_rb/)\n      kao(:, 9,11) = (/ &\n     &2.3141e+01_rb,2.6027e+01_rb,2.8564e+01_rb,3.0892e+01_rb,3.3292e+01_rb/)\n      kao(:,10,11) = (/ &\n     &2.1375e+01_rb,2.4163e+01_rb,2.6748e+01_rb,2.9381e+01_rb,3.2113e+01_rb/)\n      kao(:,11,11) = (/ &\n     &2.0563e+01_rb,2.3343e+01_rb,2.6200e+01_rb,2.9082e+01_rb,3.1737e+01_rb/)\n      kao(:,12,11) = (/ &\n     &1.9759e+01_rb,2.2669e+01_rb,2.5592e+01_rb,2.8225e+01_rb,3.0484e+01_rb/)\n      kao(:,13,11) = (/ &\n     &1.9005e+01_rb,2.1823e+01_rb,2.4335e+01_rb,2.6560e+01_rb,2.8649e+01_rb/)\n      kao(:, 1,12) = (/ &\n     &2.8554e+01_rb,3.0109e+01_rb,3.1534e+01_rb,3.2820e+01_rb,3.3912e+01_rb/)\n      kao(:, 2,12) = (/ &\n     &3.1883e+01_rb,3.3547e+01_rb,3.5069e+01_rb,3.6425e+01_rb,3.7803e+01_rb/)\n      kao(:, 3,12) = (/ &\n     &3.5025e+01_rb,3.6824e+01_rb,3.8424e+01_rb,3.9924e+01_rb,4.1396e+01_rb/)\n      kao(:, 4,12) = (/ &\n     &3.7112e+01_rb,3.9231e+01_rb,4.1147e+01_rb,4.2932e+01_rb,4.4646e+01_rb/)\n      kao(:, 5,12) = (/ &\n     &3.8447e+01_rb,4.0861e+01_rb,4.3125e+01_rb,4.5199e+01_rb,4.7297e+01_rb/)\n      kao(:, 6,12) = (/ &\n     &3.8994e+01_rb,4.1741e+01_rb,4.4237e+01_rb,4.6637e+01_rb,4.8930e+01_rb/)\n      kao(:, 7,12) = (/ &\n     &3.8693e+01_rb,4.1674e+01_rb,4.4392e+01_rb,4.7287e+01_rb,5.0041e+01_rb/)\n      kao(:, 8,12) = (/ &\n     &3.7231e+01_rb,4.0534e+01_rb,4.3968e+01_rb,4.7486e+01_rb,5.0745e+01_rb/)\n      kao(:, 9,12) = (/ &\n     &3.5314e+01_rb,3.9308e+01_rb,4.3458e+01_rb,4.7418e+01_rb,5.1164e+01_rb/)\n      kao(:,10,12) = (/ &\n     &3.3674e+01_rb,3.8340e+01_rb,4.2937e+01_rb,4.7301e+01_rb,5.1085e+01_rb/)\n      kao(:,11,12) = (/ &\n     &3.4306e+01_rb,3.9228e+01_rb,4.3781e+01_rb,4.7771e+01_rb,5.1424e+01_rb/)\n      kao(:,12,12) = (/ &\n     &3.4432e+01_rb,3.9064e+01_rb,4.3274e+01_rb,4.7292e+01_rb,5.1289e+01_rb/)\n      kao(:,13,12) = (/ &\n     &3.3504e+01_rb,3.7950e+01_rb,4.2337e+01_rb,4.6726e+01_rb,5.1022e+01_rb/)\n      kao(:, 1,13) = (/ &\n     &3.3083e+01_rb,3.5231e+01_rb,3.7169e+01_rb,3.8902e+01_rb,4.0496e+01_rb/)\n      kao(:, 2,13) = (/ &\n     &3.7816e+01_rb,4.0283e+01_rb,4.2419e+01_rb,4.4328e+01_rb,4.6116e+01_rb/)\n      kao(:, 3,13) = (/ &\n     &4.2916e+01_rb,4.5668e+01_rb,4.8087e+01_rb,5.0367e+01_rb,5.2460e+01_rb/)\n      kao(:, 4,13) = (/ &\n     &4.7941e+01_rb,5.0937e+01_rb,5.3613e+01_rb,5.6174e+01_rb,5.8534e+01_rb/)\n      kao(:, 5,13) = (/ &\n     &5.2708e+01_rb,5.6040e+01_rb,5.9163e+01_rb,6.2033e+01_rb,6.4593e+01_rb/)\n      kao(:, 6,13) = (/ &\n     &5.6670e+01_rb,6.0546e+01_rb,6.4072e+01_rb,6.7245e+01_rb,7.0176e+01_rb/)\n      kao(:, 7,13) = (/ &\n     &5.9263e+01_rb,6.3946e+01_rb,6.8113e+01_rb,7.1753e+01_rb,7.5271e+01_rb/)\n      kao(:, 8,13) = (/ &\n     &6.0990e+01_rb,6.6317e+01_rb,7.1009e+01_rb,7.5310e+01_rb,7.9458e+01_rb/)\n      kao(:, 9,13) = (/ &\n     &6.1500e+01_rb,6.7310e+01_rb,7.2473e+01_rb,7.7444e+01_rb,8.1955e+01_rb/)\n      kao(:,10,13) = (/ &\n     &6.1095e+01_rb,6.7188e+01_rb,7.2950e+01_rb,7.8366e+01_rb,8.3528e+01_rb/)\n      kao(:,11,13) = (/ &\n     &6.2204e+01_rb,6.8688e+01_rb,7.5122e+01_rb,8.1365e+01_rb,8.7577e+01_rb/)\n      kao(:,12,13) = (/ &\n     &6.2610e+01_rb,7.0078e+01_rb,7.7313e+01_rb,8.4495e+01_rb,9.1274e+01_rb/)\n      kao(:,13,13) = (/ &\n     &6.3252e+01_rb,7.1343e+01_rb,7.9418e+01_rb,8.6956e+01_rb,9.3893e+01_rb/)\n      kao(:, 1,14) = (/ &\n     &4.3344e+01_rb,4.5304e+01_rb,4.7200e+01_rb,4.8977e+01_rb,5.0634e+01_rb/)\n      kao(:, 2,14) = (/ &\n     &4.8672e+01_rb,5.1219e+01_rb,5.3748e+01_rb,5.6207e+01_rb,5.8584e+01_rb/)\n      kao(:, 3,14) = (/ &\n     &5.3835e+01_rb,5.7385e+01_rb,6.0811e+01_rb,6.4094e+01_rb,6.7183e+01_rb/)\n      kao(:, 4,14) = (/ &\n     &5.9051e+01_rb,6.3463e+01_rb,6.7847e+01_rb,7.2047e+01_rb,7.6005e+01_rb/)\n      kao(:, 5,14) = (/ &\n     &6.4910e+01_rb,7.0372e+01_rb,7.5734e+01_rb,8.0867e+01_rb,8.5466e+01_rb/)\n      kao(:, 6,14) = (/ &\n     &7.1177e+01_rb,7.7830e+01_rb,8.4454e+01_rb,9.0502e+01_rb,9.5851e+01_rb/)\n      kao(:, 7,14) = (/ &\n     &7.8645e+01_rb,8.6401e+01_rb,9.3877e+01_rb,1.0067e+02_rb,1.0680e+02_rb/)\n      kao(:, 8,14) = (/ &\n     &8.6837e+01_rb,9.5972e+01_rb,1.0455e+02_rb,1.1218e+02_rb,1.1889e+02_rb/)\n      kao(:, 9,14) = (/ &\n     &9.4588e+01_rb,1.0523e+02_rb,1.1528e+02_rb,1.2405e+02_rb,1.3172e+02_rb/)\n      kao(:,10,14) = (/ &\n     &1.0185e+02_rb,1.1428e+02_rb,1.2585e+02_rb,1.3577e+02_rb,1.4474e+02_rb/)\n      kao(:,11,14) = (/ &\n     &1.1416e+02_rb,1.2817e+02_rb,1.4064e+02_rb,1.5135e+02_rb,1.6079e+02_rb/)\n      kao(:,12,14) = (/ &\n     &1.2658e+02_rb,1.4157e+02_rb,1.5496e+02_rb,1.6630e+02_rb,1.7621e+02_rb/)\n      kao(:,13,14) = (/ &\n     &1.3763e+02_rb,1.5352e+02_rb,1.6709e+02_rb,1.7925e+02_rb,1.9013e+02_rb/)\n      kao(:, 1,15) = (/ &\n     &5.4748e+01_rb,5.6924e+01_rb,5.8795e+01_rb,6.0375e+01_rb,6.1716e+01_rb/)\n      kao(:, 2,15) = (/ &\n     &6.5566e+01_rb,6.8287e+01_rb,7.0585e+01_rb,7.2551e+01_rb,7.4160e+01_rb/)\n      kao(:, 3,15) = (/ &\n     &7.7583e+01_rb,8.1027e+01_rb,8.3928e+01_rb,8.6358e+01_rb,8.8397e+01_rb/)\n      kao(:, 4,15) = (/ &\n     &8.9871e+01_rb,9.4173e+01_rb,9.7817e+01_rb,1.0084e+02_rb,1.0339e+02_rb/)\n      kao(:, 5,15) = (/ &\n     &1.0246e+02_rb,1.0776e+02_rb,1.1220e+02_rb,1.1592e+02_rb,1.1961e+02_rb/)\n      kao(:, 6,15) = (/ &\n     &1.1487e+02_rb,1.2133e+02_rb,1.2665e+02_rb,1.3188e+02_rb,1.3707e+02_rb/)\n      kao(:, 7,15) = (/ &\n     &1.2683e+02_rb,1.3446e+02_rb,1.4160e+02_rb,1.4872e+02_rb,1.5558e+02_rb/)\n      kao(:, 8,15) = (/ &\n     &1.3795e+02_rb,1.4756e+02_rb,1.5674e+02_rb,1.6606e+02_rb,1.7523e+02_rb/)\n      kao(:, 9,15) = (/ &\n     &1.4965e+02_rb,1.6170e+02_rb,1.7284e+02_rb,1.8422e+02_rb,1.9597e+02_rb/)\n      kao(:,10,15) = (/ &\n     &1.6376e+02_rb,1.7796e+02_rb,1.9116e+02_rb,2.0528e+02_rb,2.1939e+02_rb/)\n      kao(:,11,15) = (/ &\n     &1.8752e+02_rb,2.0335e+02_rb,2.1913e+02_rb,2.3662e+02_rb,2.5359e+02_rb/)\n      kao(:,12,15) = (/ &\n     &2.1430e+02_rb,2.3299e+02_rb,2.5241e+02_rb,2.7277e+02_rb,2.9286e+02_rb/)\n      kao(:,13,15) = (/ &\n     &2.4469e+02_rb,2.6735e+02_rb,2.9101e+02_rb,3.1438e+02_rb,3.3674e+02_rb/)\n      kao(:, 1,16) = (/ &\n     &5.6182e+01_rb,5.8534e+01_rb,6.0580e+01_rb,6.2336e+01_rb,6.3846e+01_rb/)\n      kao(:, 2,16) = (/ &\n     &6.7714e+01_rb,7.1253e+01_rb,7.3886e+01_rb,7.6167e+01_rb,7.8129e+01_rb/)\n      kao(:, 3,16) = (/ &\n     &8.2239e+01_rb,8.6274e+01_rb,8.9810e+01_rb,9.2865e+01_rb,9.5500e+01_rb/)\n      kao(:, 4,16) = (/ &\n     &9.7623e+01_rb,1.0299e+02_rb,1.0769e+02_rb,1.1178e+02_rb,1.1532e+02_rb/)\n      kao(:, 5,16) = (/ &\n     &1.1485e+02_rb,1.2193e+02_rb,1.2815e+02_rb,1.3359e+02_rb,1.3829e+02_rb/)\n      kao(:, 6,16) = (/ &\n     &1.3405e+02_rb,1.4336e+02_rb,1.5157e+02_rb,1.5875e+02_rb,1.6501e+02_rb/)\n      kao(:, 7,16) = (/ &\n     &1.5562e+02_rb,1.6780e+02_rb,1.7860e+02_rb,1.8805e+02_rb,1.9632e+02_rb/)\n      kao(:, 8,16) = (/ &\n     &1.7987e+02_rb,1.9571e+02_rb,2.0979e+02_rb,2.2214e+02_rb,2.3298e+02_rb/)\n      kao(:, 9,16) = (/ &\n     &2.0674e+02_rb,2.2717e+02_rb,2.4538e+02_rb,2.6145e+02_rb,2.7552e+02_rb/)\n      kao(:,10,16) = (/ &\n     &2.3822e+02_rb,2.6423e+02_rb,2.8739e+02_rb,3.0794e+02_rb,3.2592e+02_rb/)\n      kao(:,11,16) = (/ &\n     &2.8871e+02_rb,3.1996e+02_rb,3.4774e+02_rb,3.7226e+02_rb,3.9354e+02_rb/)\n      kao(:,12,16) = (/ &\n     &3.4916e+02_rb,3.8637e+02_rb,4.1932e+02_rb,4.4825e+02_rb,4.7321e+02_rb/)\n      kao(:,13,16) = (/ &\n     &4.2045e+02_rb,4.6429e+02_rb,5.0303e+02_rb,5.3671e+02_rb,5.6546e+02_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &2.1558e-03_rb,2.5890e-03_rb,2.9127e-03_rb,3.2139e-03_rb,3.5455e-03_rb/)\n      kbo(:,14, 1) = (/ &\n     &1.8304e-03_rb,2.1809e-03_rb,2.4298e-03_rb,2.6878e-03_rb,2.9625e-03_rb/)\n      kbo(:,15, 1) = (/ &\n     &1.5486e-03_rb,1.7962e-03_rb,2.0058e-03_rb,2.2286e-03_rb,2.4705e-03_rb/)\n      kbo(:,16, 1) = (/ &\n     &1.3025e-03_rb,1.4833e-03_rb,1.6606e-03_rb,1.8503e-03_rb,2.0485e-03_rb/)\n      kbo(:,17, 1) = (/ &\n     &1.0810e-03_rb,1.2227e-03_rb,1.3725e-03_rb,1.5304e-03_rb,1.6938e-03_rb/)\n      kbo(:,18, 1) = (/ &\n     &8.7942e-04_rb,1.0015e-03_rb,1.1266e-03_rb,1.2596e-03_rb,1.3951e-03_rb/)\n      kbo(:,19, 1) = (/ &\n     &7.2280e-04_rb,8.2373e-04_rb,9.2739e-04_rb,1.0381e-03_rb,1.1467e-03_rb/)\n      kbo(:,20, 1) = (/ &\n     &6.0184e-04_rb,6.8491e-04_rb,7.6954e-04_rb,8.5989e-04_rb,9.4913e-04_rb/)\n      kbo(:,21, 1) = (/ &\n     &5.0117e-04_rb,5.6823e-04_rb,6.3855e-04_rb,7.1320e-04_rb,7.8654e-04_rb/)\n      kbo(:,22, 1) = (/ &\n     &4.1938e-04_rb,4.7543e-04_rb,5.3375e-04_rb,5.9543e-04_rb,6.5571e-04_rb/)\n      kbo(:,23, 1) = (/ &\n     &3.5199e-04_rb,3.9855e-04_rb,4.4679e-04_rb,4.9714e-04_rb,5.4750e-04_rb/)\n      kbo(:,24, 1) = (/ &\n     &2.9639e-04_rb,3.3452e-04_rb,3.7432e-04_rb,4.1615e-04_rb,4.5706e-04_rb/)\n      kbo(:,25, 1) = (/ &\n     &2.4906e-04_rb,2.8117e-04_rb,3.1412e-04_rb,3.4839e-04_rb,3.7317e-04_rb/)\n      kbo(:,26, 1) = (/ &\n     &2.1029e-04_rb,2.3678e-04_rb,2.6421e-04_rb,2.9238e-04_rb,3.0575e-04_rb/)\n      kbo(:,27, 1) = (/ &\n     &1.7727e-04_rb,1.9942e-04_rb,2.2208e-04_rb,2.4556e-04_rb,2.5262e-04_rb/)\n      kbo(:,28, 1) = (/ &\n     &1.4969e-04_rb,1.6790e-04_rb,1.8692e-04_rb,2.0183e-04_rb,2.0915e-04_rb/)\n      kbo(:,29, 1) = (/ &\n     &1.2629e-04_rb,1.4151e-04_rb,1.5706e-04_rb,1.6548e-04_rb,1.7223e-04_rb/)\n      kbo(:,30, 1) = (/ &\n     &1.0651e-04_rb,1.1909e-04_rb,1.3186e-04_rb,1.3639e-04_rb,1.4198e-04_rb/)\n      kbo(:,31, 1) = (/ &\n     &8.9698e-05_rb,1.0002e-04_rb,1.0798e-04_rb,1.1271e-04_rb,1.1661e-04_rb/)\n      kbo(:,32, 1) = (/ &\n     &7.5536e-05_rb,8.4037e-05_rb,8.8553e-05_rb,9.2337e-05_rb,9.5468e-05_rb/)\n      kbo(:,33, 1) = (/ &\n     &6.3563e-05_rb,7.0507e-05_rb,7.3023e-05_rb,7.6153e-05_rb,7.8142e-05_rb/)\n      kbo(:,34, 1) = (/ &\n     &5.3365e-05_rb,5.7820e-05_rb,6.0490e-05_rb,6.2653e-05_rb,6.4307e-05_rb/)\n      kbo(:,35, 1) = (/ &\n     &4.4295e-05_rb,4.7505e-05_rb,4.9568e-05_rb,5.1436e-05_rb,5.2756e-05_rb/)\n      kbo(:,36, 1) = (/ &\n     &3.6359e-05_rb,3.8955e-05_rb,4.0612e-05_rb,4.2071e-05_rb,4.3157e-05_rb/)\n      kbo(:,37, 1) = (/ &\n     &2.9443e-05_rb,3.1950e-05_rb,3.3272e-05_rb,3.4376e-05_rb,3.5259e-05_rb/)\n      kbo(:,38, 1) = (/ &\n     &2.3815e-05_rb,2.6274e-05_rb,2.7165e-05_rb,2.8049e-05_rb,2.8811e-05_rb/)\n      kbo(:,39, 1) = (/ &\n     &1.9245e-05_rb,2.1354e-05_rb,2.2111e-05_rb,2.2930e-05_rb,2.3532e-05_rb/)\n      kbo(:,40, 1) = (/ &\n     &1.5405e-05_rb,1.7147e-05_rb,1.8049e-05_rb,1.8756e-05_rb,1.9282e-05_rb/)\n      kbo(:,41, 1) = (/ &\n     &1.2319e-05_rb,1.3748e-05_rb,1.4753e-05_rb,1.5289e-05_rb,1.5770e-05_rb/)\n      kbo(:,42, 1) = (/ &\n     &9.8357e-06_rb,1.1012e-05_rb,1.2183e-05_rb,1.2499e-05_rb,1.2877e-05_rb/)\n      kbo(:,43, 1) = (/ &\n     &7.7892e-06_rb,8.7858e-06_rb,9.7457e-06_rb,1.0234e-05_rb,1.0599e-05_rb/)\n      kbo(:,44, 1) = (/ &\n     &6.1605e-06_rb,6.9805e-06_rb,7.7675e-06_rb,8.4197e-06_rb,8.6950e-06_rb/)\n      kbo(:,45, 1) = (/ &\n     &4.8809e-06_rb,5.5274e-06_rb,6.1865e-06_rb,6.8268e-06_rb,7.0906e-06_rb/)\n      kbo(:,46, 1) = (/ &\n     &3.8470e-06_rb,4.3665e-06_rb,4.9029e-06_rb,5.4349e-06_rb,5.8089e-06_rb/)\n      kbo(:,47, 1) = (/ &\n     &3.0311e-06_rb,3.4294e-06_rb,3.8630e-06_rb,4.3044e-06_rb,4.7453e-06_rb/)\n      kbo(:,48, 1) = (/ &\n     &2.3694e-06_rb,2.7049e-06_rb,3.0473e-06_rb,3.4008e-06_rb,3.7674e-06_rb/)\n      kbo(:,49, 1) = (/ &\n     &1.8467e-06_rb,2.1296e-06_rb,2.4020e-06_rb,2.6917e-06_rb,2.9837e-06_rb/)\n      kbo(:,50, 1) = (/ &\n     &1.4542e-06_rb,1.6765e-06_rb,1.8996e-06_rb,2.1320e-06_rb,2.3692e-06_rb/)\n      kbo(:,51, 1) = (/ &\n     &1.1539e-06_rb,1.3178e-06_rb,1.5055e-06_rb,1.6911e-06_rb,1.8864e-06_rb/)\n      kbo(:,52, 1) = (/ &\n     &8.7493e-07_rb,1.0411e-06_rb,1.1898e-06_rb,1.3435e-06_rb,1.4983e-06_rb/)\n      kbo(:,53, 1) = (/ &\n     &6.6072e-07_rb,8.3282e-07_rb,9.4298e-07_rb,1.0653e-06_rb,1.1935e-06_rb/)\n      kbo(:,54, 1) = (/ &\n     &5.0251e-07_rb,6.4316e-07_rb,7.5237e-07_rb,8.5108e-07_rb,9.5630e-07_rb/)\n      kbo(:,55, 1) = (/ &\n     &3.8195e-07_rb,4.9281e-07_rb,6.0554e-07_rb,6.8279e-07_rb,7.6458e-07_rb/)\n      kbo(:,56, 1) = (/ &\n     &2.8943e-07_rb,3.7779e-07_rb,4.8048e-07_rb,5.4688e-07_rb,6.1650e-07_rb/)\n      kbo(:,57, 1) = (/ &\n     &2.1868e-07_rb,2.8870e-07_rb,3.7076e-07_rb,4.4677e-07_rb,4.9616e-07_rb/)\n      kbo(:,58, 1) = (/ &\n     &1.6598e-07_rb,2.2133e-07_rb,2.8693e-07_rb,3.5995e-07_rb,4.0195e-07_rb/)\n      kbo(:,59, 1) = (/ &\n     &1.3312e-07_rb,1.7804e-07_rb,2.3134e-07_rb,2.9072e-07_rb,3.3304e-07_rb/)\n      kbo(:,13, 2) = (/ &\n     &5.7626e-03_rb,6.1115e-03_rb,6.3578e-03_rb,6.6833e-03_rb,6.9834e-03_rb/)\n      kbo(:,14, 2) = (/ &\n     &4.7365e-03_rb,4.9915e-03_rb,5.2669e-03_rb,5.5245e-03_rb,5.7996e-03_rb/)\n      kbo(:,15, 2) = (/ &\n     &3.8570e-03_rb,4.0469e-03_rb,4.3101e-03_rb,4.5195e-03_rb,4.7607e-03_rb/)\n      kbo(:,16, 2) = (/ &\n     &3.0836e-03_rb,3.2692e-03_rb,3.4748e-03_rb,3.6812e-03_rb,3.8941e-03_rb/)\n      kbo(:,17, 2) = (/ &\n     &2.4665e-03_rb,2.6482e-03_rb,2.8018e-03_rb,2.9854e-03_rb,3.1785e-03_rb/)\n      kbo(:,18, 2) = (/ &\n     &1.9741e-03_rb,2.1245e-03_rb,2.2564e-03_rb,2.4081e-03_rb,2.5780e-03_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.5958e-03_rb,1.7126e-03_rb,1.8351e-03_rb,1.9560e-03_rb,2.0570e-03_rb/)\n      kbo(:,20, 2) = (/ &\n     &1.3038e-03_rb,1.3978e-03_rb,1.5013e-03_rb,1.6102e-03_rb,1.6734e-03_rb/)\n      kbo(:,21, 2) = (/ &\n     &1.0706e-03_rb,1.1492e-03_rb,1.2352e-03_rb,1.3269e-03_rb,1.3755e-03_rb/)\n      kbo(:,22, 2) = (/ &\n     &8.8260e-04_rb,9.4987e-04_rb,1.0209e-03_rb,1.0834e-03_rb,1.1278e-03_rb/)\n      kbo(:,23, 2) = (/ &\n     &7.2583e-04_rb,7.8218e-04_rb,8.4637e-04_rb,8.8814e-04_rb,9.2896e-04_rb/)\n      kbo(:,24, 2) = (/ &\n     &6.0040e-04_rb,6.4872e-04_rb,7.0437e-04_rb,7.3258e-04_rb,7.6936e-04_rb/)\n      kbo(:,25, 2) = (/ &\n     &4.9798e-04_rb,5.3936e-04_rb,5.8024e-04_rb,6.0451e-04_rb,6.4613e-04_rb/)\n      kbo(:,26, 2) = (/ &\n     &4.1436e-04_rb,4.5078e-04_rb,4.7645e-04_rb,5.0082e-04_rb,5.4367e-04_rb/)\n      kbo(:,27, 2) = (/ &\n     &3.4567e-04_rb,3.7682e-04_rb,3.9546e-04_rb,4.1621e-04_rb,4.5625e-04_rb/)\n      kbo(:,28, 2) = (/ &\n     &2.8902e-04_rb,3.1546e-04_rb,3.2798e-04_rb,3.5075e-04_rb,3.8306e-04_rb/)\n      kbo(:,29, 2) = (/ &\n     &2.4193e-04_rb,2.5865e-04_rb,2.7208e-04_rb,2.9507e-04_rb,3.2156e-04_rb/)\n      kbo(:,30, 2) = (/ &\n     &2.0282e-04_rb,2.1375e-04_rb,2.2606e-04_rb,2.4794e-04_rb,2.6904e-04_rb/)\n      kbo(:,31, 2) = (/ &\n     &1.6986e-04_rb,1.7726e-04_rb,1.9036e-04_rb,2.0754e-04_rb,2.2529e-04_rb/)\n      kbo(:,32, 2) = (/ &\n     &1.3922e-04_rb,1.4692e-04_rb,1.5999e-04_rb,1.7445e-04_rb,1.8931e-04_rb/)\n      kbo(:,33, 2) = (/ &\n     &1.1520e-04_rb,1.2220e-04_rb,1.3453e-04_rb,1.4590e-04_rb,1.5875e-04_rb/)\n      kbo(:,34, 2) = (/ &\n     &9.5764e-05_rb,1.0295e-04_rb,1.1231e-04_rb,1.2221e-04_rb,1.3235e-04_rb/)\n      kbo(:,35, 2) = (/ &\n     &7.8951e-05_rb,8.5467e-05_rb,9.3381e-05_rb,1.0154e-04_rb,1.0962e-04_rb/)\n      kbo(:,36, 2) = (/ &\n     &6.4805e-05_rb,7.0212e-05_rb,7.6766e-05_rb,8.3544e-05_rb,9.0139e-05_rb/)\n      kbo(:,37, 2) = (/ &\n     &5.2918e-05_rb,5.7064e-05_rb,6.2426e-05_rb,6.8102e-05_rb,7.3562e-05_rb/)\n      kbo(:,38, 2) = (/ &\n     &4.3224e-05_rb,4.6216e-05_rb,5.0772e-05_rb,5.5504e-05_rb,6.0016e-05_rb/)\n      kbo(:,39, 2) = (/ &\n     &3.5291e-05_rb,3.7592e-05_rb,4.1355e-05_rb,4.5145e-05_rb,4.8932e-05_rb/)\n      kbo(:,40, 2) = (/ &\n     &2.8761e-05_rb,3.0515e-05_rb,3.3449e-05_rb,3.6463e-05_rb,3.9654e-05_rb/)\n      kbo(:,41, 2) = (/ &\n     &2.3487e-05_rb,2.4801e-05_rb,2.6922e-05_rb,2.9459e-05_rb,3.2147e-05_rb/)\n      kbo(:,42, 2) = (/ &\n     &1.9314e-05_rb,2.0243e-05_rb,2.1564e-05_rb,2.3753e-05_rb,2.5964e-05_rb/)\n      kbo(:,43, 2) = (/ &\n     &1.5553e-05_rb,1.6470e-05_rb,1.7479e-05_rb,1.9035e-05_rb,2.0784e-05_rb/)\n      kbo(:,44, 2) = (/ &\n     &1.2457e-05_rb,1.3468e-05_rb,1.4190e-05_rb,1.5199e-05_rb,1.6632e-05_rb/)\n      kbo(:,45, 2) = (/ &\n     &9.9734e-06_rb,1.1008e-05_rb,1.1581e-05_rb,1.2254e-05_rb,1.3346e-05_rb/)\n      kbo(:,46, 2) = (/ &\n     &7.9698e-06_rb,8.8088e-06_rb,9.4445e-06_rb,9.9340e-06_rb,1.0690e-05_rb/)\n      kbo(:,47, 2) = (/ &\n     &6.3565e-06_rb,7.0249e-06_rb,7.7396e-06_rb,8.1033e-06_rb,8.5527e-06_rb/)\n      kbo(:,48, 2) = (/ &\n     &5.1256e-06_rb,5.5929e-06_rb,6.1735e-06_rb,6.6021e-06_rb,6.9371e-06_rb/)\n      kbo(:,49, 2) = (/ &\n     &4.0784e-06_rb,4.4718e-06_rb,4.9212e-06_rb,5.4190e-06_rb,5.6740e-06_rb/)\n      kbo(:,50, 2) = (/ &\n     &3.3297e-06_rb,3.6155e-06_rb,3.9436e-06_rb,4.3292e-06_rb,4.6291e-06_rb/)\n      kbo(:,51, 2) = (/ &\n     &2.7486e-06_rb,2.9107e-06_rb,3.1698e-06_rb,3.4767e-06_rb,3.8139e-06_rb/)\n      kbo(:,52, 2) = (/ &\n     &2.2530e-06_rb,2.4006e-06_rb,2.5759e-06_rb,2.7925e-06_rb,3.0627e-06_rb/)\n      kbo(:,53, 2) = (/ &\n     &1.8678e-06_rb,1.9765e-06_rb,2.1052e-06_rb,2.2503e-06_rb,2.4591e-06_rb/)\n      kbo(:,54, 2) = (/ &\n     &1.5340e-06_rb,1.6385e-06_rb,1.7450e-06_rb,1.8671e-06_rb,1.9805e-06_rb/)\n      kbo(:,55, 2) = (/ &\n     &1.2873e-06_rb,1.3532e-06_rb,1.4432e-06_rb,1.5328e-06_rb,1.6236e-06_rb/)\n      kbo(:,56, 2) = (/ &\n     &1.0668e-06_rb,1.1355e-06_rb,1.1865e-06_rb,1.2884e-06_rb,1.3667e-06_rb/)\n      kbo(:,57, 2) = (/ &\n     &8.4592e-07_rb,9.6149e-07_rb,9.8845e-07_rb,1.0536e-06_rb,1.1286e-06_rb/)\n      kbo(:,58, 2) = (/ &\n     &6.5721e-07_rb,8.0847e-07_rb,8.4916e-07_rb,8.7196e-07_rb,9.4267e-07_rb/)\n      kbo(:,59, 2) = (/ &\n     &5.2809e-07_rb,6.6890e-07_rb,7.2431e-07_rb,7.4028e-07_rb,7.8416e-07_rb/)\n      kbo(:,13, 3) = (/ &\n     &8.0007e-03_rb,8.9344e-03_rb,1.0260e-02_rb,1.1651e-02_rb,1.2914e-02_rb/)\n      kbo(:,14, 3) = (/ &\n     &6.8039e-03_rb,7.6829e-03_rb,8.7921e-03_rb,9.9141e-03_rb,1.0757e-02_rb/)\n      kbo(:,15, 3) = (/ &\n     &5.7029e-03_rb,6.5489e-03_rb,7.4475e-03_rb,8.3471e-03_rb,8.8091e-03_rb/)\n      kbo(:,16, 3) = (/ &\n     &4.8074e-03_rb,5.5085e-03_rb,6.2455e-03_rb,6.9353e-03_rb,7.1997e-03_rb/)\n      kbo(:,17, 3) = (/ &\n     &4.0213e-03_rb,4.6076e-03_rb,5.2117e-03_rb,5.6731e-03_rb,5.8805e-03_rb/)\n      kbo(:,18, 3) = (/ &\n     &3.3461e-03_rb,3.8362e-03_rb,4.3242e-03_rb,4.6154e-03_rb,4.7757e-03_rb/)\n      kbo(:,19, 3) = (/ &\n     &2.7996e-03_rb,3.2075e-03_rb,3.5883e-03_rb,3.7732e-03_rb,3.8872e-03_rb/)\n      kbo(:,20, 3) = (/ &\n     &2.3589e-03_rb,2.6931e-03_rb,2.9843e-03_rb,3.1004e-03_rb,3.1743e-03_rb/)\n      kbo(:,21, 3) = (/ &\n     &1.9734e-03_rb,2.2564e-03_rb,2.4531e-03_rb,2.5572e-03_rb,2.5979e-03_rb/)\n      kbo(:,22, 3) = (/ &\n     &1.6777e-03_rb,1.9014e-03_rb,2.0201e-03_rb,2.0877e-03_rb,2.1290e-03_rb/)\n      kbo(:,23, 3) = (/ &\n     &1.4255e-03_rb,1.6043e-03_rb,1.6675e-03_rb,1.7121e-03_rb,1.7219e-03_rb/)\n      kbo(:,24, 3) = (/ &\n     &1.2066e-03_rb,1.3233e-03_rb,1.3782e-03_rb,1.4109e-03_rb,1.3842e-03_rb/)\n      kbo(:,25, 3) = (/ &\n     &1.0218e-03_rb,1.0936e-03_rb,1.1313e-03_rb,1.1590e-03_rb,1.1132e-03_rb/)\n      kbo(:,26, 3) = (/ &\n     &8.6686e-04_rb,9.0770e-04_rb,9.3474e-04_rb,9.3738e-04_rb,9.0394e-04_rb/)\n      kbo(:,27, 3) = (/ &\n     &7.2332e-04_rb,7.5480e-04_rb,7.7347e-04_rb,7.5530e-04_rb,7.3995e-04_rb/)\n      kbo(:,28, 3) = (/ &\n     &5.9945e-04_rb,6.1747e-04_rb,6.3797e-04_rb,6.1191e-04_rb,6.1018e-04_rb/)\n      kbo(:,29, 3) = (/ &\n     &4.9636e-04_rb,5.1141e-04_rb,5.1979e-04_rb,4.9718e-04_rb,5.0501e-04_rb/)\n      kbo(:,30, 3) = (/ &\n     &4.1287e-04_rb,4.2400e-04_rb,4.1392e-04_rb,4.0737e-04_rb,4.1659e-04_rb/)\n      kbo(:,31, 3) = (/ &\n     &3.3517e-04_rb,3.4906e-04_rb,3.3288e-04_rb,3.3660e-04_rb,3.4335e-04_rb/)\n      kbo(:,32, 3) = (/ &\n     &2.7784e-04_rb,2.7984e-04_rb,2.7143e-04_rb,2.7785e-04_rb,2.8417e-04_rb/)\n      kbo(:,33, 3) = (/ &\n     &2.3052e-04_rb,2.2367e-04_rb,2.2307e-04_rb,2.2883e-04_rb,2.3495e-04_rb/)\n      kbo(:,34, 3) = (/ &\n     &1.9073e-04_rb,1.8192e-04_rb,1.8515e-04_rb,1.8942e-04_rb,1.9507e-04_rb/)\n      kbo(:,35, 3) = (/ &\n     &1.5683e-04_rb,1.4914e-04_rb,1.5288e-04_rb,1.5663e-04_rb,1.6156e-04_rb/)\n      kbo(:,36, 3) = (/ &\n     &1.2835e-04_rb,1.2262e-04_rb,1.2564e-04_rb,1.2896e-04_rb,1.3319e-04_rb/)\n      kbo(:,37, 3) = (/ &\n     &1.0651e-04_rb,1.0086e-04_rb,1.0335e-04_rb,1.0615e-04_rb,1.0970e-04_rb/)\n      kbo(:,38, 3) = (/ &\n     &8.7372e-05_rb,8.2916e-05_rb,8.4948e-05_rb,8.7192e-05_rb,9.0174e-05_rb/)\n      kbo(:,39, 3) = (/ &\n     &7.1580e-05_rb,6.8441e-05_rb,6.9733e-05_rb,7.1507e-05_rb,7.4030e-05_rb/)\n      kbo(:,40, 3) = (/ &\n     &5.8422e-05_rb,5.7750e-05_rb,5.6983e-05_rb,5.8663e-05_rb,6.0682e-05_rb/)\n      kbo(:,41, 3) = (/ &\n     &4.7623e-05_rb,4.8587e-05_rb,4.6749e-05_rb,4.8145e-05_rb,4.9685e-05_rb/)\n      kbo(:,42, 3) = (/ &\n     &3.8729e-05_rb,4.0813e-05_rb,3.8776e-05_rb,3.9518e-05_rb,4.0826e-05_rb/)\n      kbo(:,43, 3) = (/ &\n     &3.2019e-05_rb,3.3273e-05_rb,3.2653e-05_rb,3.2753e-05_rb,3.3527e-05_rb/)\n      kbo(:,44, 3) = (/ &\n     &2.6412e-05_rb,2.7141e-05_rb,2.7698e-05_rb,2.6940e-05_rb,2.7582e-05_rb/)\n      kbo(:,45, 3) = (/ &\n     &2.1266e-05_rb,2.2156e-05_rb,2.3306e-05_rb,2.2397e-05_rb,2.2801e-05_rb/)\n      kbo(:,46, 3) = (/ &\n     &1.7333e-05_rb,1.8301e-05_rb,1.8885e-05_rb,1.9036e-05_rb,1.8747e-05_rb/)\n      kbo(:,47, 3) = (/ &\n     &1.4070e-05_rb,1.4972e-05_rb,1.5353e-05_rb,1.6172e-05_rb,1.5451e-05_rb/)\n      kbo(:,48, 3) = (/ &\n     &1.0908e-05_rb,1.2143e-05_rb,1.2701e-05_rb,1.3131e-05_rb,1.3135e-05_rb/)\n      kbo(:,49, 3) = (/ &\n     &8.5257e-06_rb,9.9029e-06_rb,1.0615e-05_rb,1.0623e-05_rb,1.1229e-05_rb/)\n      kbo(:,50, 3) = (/ &\n     &6.5831e-06_rb,7.8068e-06_rb,8.5689e-06_rb,8.8823e-06_rb,9.1397e-06_rb/)\n      kbo(:,51, 3) = (/ &\n     &5.0124e-06_rb,6.1123e-06_rb,6.9735e-06_rb,7.5152e-06_rb,7.4209e-06_rb/)\n      kbo(:,52, 3) = (/ &\n     &3.8557e-06_rb,4.7153e-06_rb,5.6513e-06_rb,6.0740e-06_rb,6.2588e-06_rb/)\n      kbo(:,53, 3) = (/ &\n     &2.9713e-06_rb,3.6139e-06_rb,4.3749e-06_rb,4.9165e-06_rb,5.3050e-06_rb/)\n      kbo(:,54, 3) = (/ &\n     &2.2856e-06_rb,2.7967e-06_rb,3.4018e-06_rb,4.0149e-06_rb,4.3280e-06_rb/)\n      kbo(:,55, 3) = (/ &\n     &1.7432e-06_rb,2.1952e-06_rb,2.6416e-06_rb,3.2063e-06_rb,3.5207e-06_rb/)\n      kbo(:,56, 3) = (/ &\n     &1.3460e-06_rb,1.6981e-06_rb,2.0681e-06_rb,2.4690e-06_rb,2.8558e-06_rb/)\n      kbo(:,57, 3) = (/ &\n     &1.0794e-06_rb,1.2900e-06_rb,1.6260e-06_rb,1.9447e-06_rb,2.3391e-06_rb/)\n      kbo(:,58, 3) = (/ &\n     &9.2042e-07_rb,9.9682e-07_rb,1.2594e-06_rb,1.5341e-06_rb,1.8245e-06_rb/)\n      kbo(:,59, 3) = (/ &\n     &7.5487e-07_rb,8.2111e-07_rb,1.0075e-06_rb,1.2341e-06_rb,1.4799e-06_rb/)\n      kbo(:,13, 4) = (/ &\n     &1.6236e-02_rb,1.6164e-02_rb,1.6551e-02_rb,1.6579e-02_rb,1.4849e-02_rb/)\n      kbo(:,14, 4) = (/ &\n     &1.3333e-02_rb,1.3358e-02_rb,1.3723e-02_rb,1.3164e-02_rb,1.2310e-02_rb/)\n      kbo(:,15, 4) = (/ &\n     &1.0791e-02_rb,1.1005e-02_rb,1.1347e-02_rb,1.0262e-02_rb,1.0198e-02_rb/)\n      kbo(:,16, 4) = (/ &\n     &8.7740e-03_rb,9.0551e-03_rb,8.8988e-03_rb,8.1326e-03_rb,8.4246e-03_rb/)\n      kbo(:,17, 4) = (/ &\n     &7.1855e-03_rb,7.4271e-03_rb,6.8507e-03_rb,6.6124e-03_rb,6.9447e-03_rb/)\n      kbo(:,18, 4) = (/ &\n     &5.8832e-03_rb,5.8794e-03_rb,5.3061e-03_rb,5.4156e-03_rb,5.7271e-03_rb/)\n      kbo(:,19, 4) = (/ &\n     &4.7612e-03_rb,4.5173e-03_rb,4.2495e-03_rb,4.4758e-03_rb,4.7797e-03_rb/)\n      kbo(:,20, 4) = (/ &\n     &3.8929e-03_rb,3.5371e-03_rb,3.4837e-03_rb,3.7081e-03_rb,4.0335e-03_rb/)\n      kbo(:,21, 4) = (/ &\n     &3.1210e-03_rb,2.8158e-03_rb,2.9040e-03_rb,3.0717e-03_rb,3.3855e-03_rb/)\n      kbo(:,22, 4) = (/ &\n     &2.4122e-03_rb,2.2915e-03_rb,2.4348e-03_rb,2.6102e-03_rb,2.8568e-03_rb/)\n      kbo(:,23, 4) = (/ &\n     &1.8931e-03_rb,1.8847e-03_rb,2.0226e-03_rb,2.2045e-03_rb,2.4293e-03_rb/)\n      kbo(:,24, 4) = (/ &\n     &1.5231e-03_rb,1.5878e-03_rb,1.6899e-03_rb,1.8552e-03_rb,2.0775e-03_rb/)\n      kbo(:,25, 4) = (/ &\n     &1.2458e-03_rb,1.3309e-03_rb,1.4317e-03_rb,1.5678e-03_rb,1.7779e-03_rb/)\n      kbo(:,26, 4) = (/ &\n     &1.0318e-03_rb,1.1118e-03_rb,1.2146e-03_rb,1.3449e-03_rb,1.5065e-03_rb/)\n      kbo(:,27, 4) = (/ &\n     &8.6665e-04_rb,9.3057e-04_rb,1.0235e-03_rb,1.1557e-03_rb,1.2745e-03_rb/)\n      kbo(:,28, 4) = (/ &\n     &7.2935e-04_rb,7.9123e-04_rb,8.6656e-04_rb,9.8388e-04_rb,1.0757e-03_rb/)\n      kbo(:,29, 4) = (/ &\n     &6.1286e-04_rb,6.7240e-04_rb,7.4124e-04_rb,8.3872e-04_rb,9.0911e-04_rb/)\n      kbo(:,30, 4) = (/ &\n     &5.1400e-04_rb,5.6684e-04_rb,6.4255e-04_rb,7.1220e-04_rb,7.7258e-04_rb/)\n      kbo(:,31, 4) = (/ &\n     &4.4005e-04_rb,4.8076e-04_rb,5.5017e-04_rb,6.0255e-04_rb,6.5647e-04_rb/)\n      kbo(:,32, 4) = (/ &\n     &3.7263e-04_rb,4.1679e-04_rb,4.6901e-04_rb,5.1118e-04_rb,5.5709e-04_rb/)\n      kbo(:,33, 4) = (/ &\n     &3.1452e-04_rb,3.5853e-04_rb,3.9810e-04_rb,4.3526e-04_rb,4.7464e-04_rb/)\n      kbo(:,34, 4) = (/ &\n     &2.6538e-04_rb,3.0537e-04_rb,3.3607e-04_rb,3.6889e-04_rb,4.0236e-04_rb/)\n      kbo(:,35, 4) = (/ &\n     &2.2314e-04_rb,2.5674e-04_rb,2.8212e-04_rb,3.1017e-04_rb,3.3804e-04_rb/)\n      kbo(:,36, 4) = (/ &\n     &1.8558e-04_rb,2.1307e-04_rb,2.3484e-04_rb,2.5807e-04_rb,2.8146e-04_rb/)\n      kbo(:,37, 4) = (/ &\n     &1.5092e-04_rb,1.7515e-04_rb,1.9371e-04_rb,2.1363e-04_rb,2.3312e-04_rb/)\n      kbo(:,38, 4) = (/ &\n     &1.2396e-04_rb,1.4379e-04_rb,1.5969e-04_rb,1.7662e-04_rb,1.9284e-04_rb/)\n      kbo(:,39, 4) = (/ &\n     &1.0157e-04_rb,1.1773e-04_rb,1.3175e-04_rb,1.4587e-04_rb,1.5934e-04_rb/)\n      kbo(:,40, 4) = (/ &\n     &8.2605e-05_rb,9.4273e-05_rb,1.0813e-04_rb,1.1977e-04_rb,1.3107e-04_rb/)\n      kbo(:,41, 4) = (/ &\n     &6.6939e-05_rb,7.5416e-05_rb,8.8332e-05_rb,9.8121e-05_rb,1.0774e-04_rb/)\n      kbo(:,42, 4) = (/ &\n     &5.4049e-05_rb,6.0030e-05_rb,7.1511e-05_rb,8.0199e-05_rb,8.8261e-05_rb/)\n      kbo(:,43, 4) = (/ &\n     &4.3092e-05_rb,4.8470e-05_rb,5.6902e-05_rb,6.4800e-05_rb,7.1905e-05_rb/)\n      kbo(:,44, 4) = (/ &\n     &3.4303e-05_rb,3.8888e-05_rb,4.4709e-05_rb,5.2317e-05_rb,5.8294e-05_rb/)\n      kbo(:,45, 4) = (/ &\n     &2.7706e-05_rb,3.1192e-05_rb,3.5138e-05_rb,4.1880e-05_rb,4.7037e-05_rb/)\n      kbo(:,46, 4) = (/ &\n     &2.2020e-05_rb,2.4816e-05_rb,2.8235e-05_rb,3.2847e-05_rb,3.7855e-05_rb/)\n      kbo(:,47, 4) = (/ &\n     &1.7397e-05_rb,1.9571e-05_rb,2.2339e-05_rb,2.5403e-05_rb,3.0154e-05_rb/)\n      kbo(:,48, 4) = (/ &\n     &1.4464e-05_rb,1.5535e-05_rb,1.7628e-05_rb,2.0160e-05_rb,2.3523e-05_rb/)\n      kbo(:,49, 4) = (/ &\n     &1.2203e-05_rb,1.2334e-05_rb,1.3809e-05_rb,1.5955e-05_rb,1.8189e-05_rb/)\n      kbo(:,50, 4) = (/ &\n     &1.0868e-05_rb,1.0166e-05_rb,1.1038e-05_rb,1.2542e-05_rb,1.4482e-05_rb/)\n      kbo(:,51, 4) = (/ &\n     &9.5445e-06_rb,8.4914e-06_rb,8.8728e-06_rb,9.7788e-06_rb,1.1531e-05_rb/)\n      kbo(:,52, 4) = (/ &\n     &7.6675e-06_rb,7.5593e-06_rb,7.1200e-06_rb,7.9511e-06_rb,9.0030e-06_rb/)\n      kbo(:,53, 4) = (/ &\n     &6.1578e-06_rb,6.8621e-06_rb,5.9549e-06_rb,6.4007e-06_rb,7.0103e-06_rb/)\n      kbo(:,54, 4) = (/ &\n     &4.9970e-06_rb,5.5372e-06_rb,5.2950e-06_rb,5.1133e-06_rb,5.6754e-06_rb/)\n      kbo(:,55, 4) = (/ &\n     &4.1058e-06_rb,4.4463e-06_rb,4.8381e-06_rb,4.2110e-06_rb,4.6398e-06_rb/)\n      kbo(:,56, 4) = (/ &\n     &3.3825e-06_rb,3.6285e-06_rb,4.0286e-06_rb,3.7391e-06_rb,3.7193e-06_rb/)\n      kbo(:,57, 4) = (/ &\n     &2.7087e-06_rb,2.9631e-06_rb,3.2500e-06_rb,3.4185e-06_rb,3.0256e-06_rb/)\n      kbo(:,58, 4) = (/ &\n     &2.0759e-06_rb,2.4918e-06_rb,2.6378e-06_rb,2.9253e-06_rb,2.6729e-06_rb/)\n      kbo(:,59, 4) = (/ &\n     &1.6942e-06_rb,2.0927e-06_rb,2.1992e-06_rb,2.4373e-06_rb,2.3395e-06_rb/)\n      kbo(:,13, 5) = (/ &\n     &1.7253e-02_rb,1.9755e-02_rb,2.1401e-02_rb,2.3591e-02_rb,2.8114e-02_rb/)\n      kbo(:,14, 5) = (/ &\n     &1.4836e-02_rb,1.6934e-02_rb,1.8341e-02_rb,2.1005e-02_rb,2.4456e-02_rb/)\n      kbo(:,15, 5) = (/ &\n     &1.2786e-02_rb,1.4254e-02_rb,1.5589e-02_rb,1.8700e-02_rb,2.1272e-02_rb/)\n      kbo(:,16, 5) = (/ &\n     &1.0892e-02_rb,1.2056e-02_rb,1.3761e-02_rb,1.6336e-02_rb,1.8224e-02_rb/)\n      kbo(:,17, 5) = (/ &\n     &9.1405e-03_rb,1.0167e-02_rb,1.2171e-02_rb,1.4009e-02_rb,1.5426e-02_rb/)\n      kbo(:,18, 5) = (/ &\n     &7.6420e-03_rb,8.7762e-03_rb,1.0582e-02_rb,1.1875e-02_rb,1.2969e-02_rb/)\n      kbo(:,19, 5) = (/ &\n     &6.4312e-03_rb,7.6685e-03_rb,8.9635e-03_rb,9.9226e-03_rb,1.0844e-02_rb/)\n      kbo(:,20, 5) = (/ &\n     &5.4039e-03_rb,6.6521e-03_rb,7.5702e-03_rb,8.3653e-03_rb,9.0934e-03_rb/)\n      kbo(:,21, 5) = (/ &\n     &4.6584e-03_rb,5.7137e-03_rb,6.4063e-03_rb,7.0462e-03_rb,7.6384e-03_rb/)\n      kbo(:,22, 5) = (/ &\n     &4.1485e-03_rb,4.9033e-03_rb,5.4200e-03_rb,5.9610e-03_rb,6.4648e-03_rb/)\n      kbo(:,23, 5) = (/ &\n     &3.6403e-03_rb,4.1705e-03_rb,4.6055e-03_rb,5.0423e-03_rb,5.4667e-03_rb/)\n      kbo(:,24, 5) = (/ &\n     &3.1466e-03_rb,3.5285e-03_rb,3.8988e-03_rb,4.2642e-03_rb,4.6134e-03_rb/)\n      kbo(:,25, 5) = (/ &\n     &2.6968e-03_rb,2.9919e-03_rb,3.3029e-03_rb,3.6014e-03_rb,3.8905e-03_rb/)\n      kbo(:,26, 5) = (/ &\n     &2.2919e-03_rb,2.5427e-03_rb,2.7966e-03_rb,3.0460e-03_rb,3.3030e-03_rb/)\n      kbo(:,27, 5) = (/ &\n     &1.9487e-03_rb,2.1617e-03_rb,2.3708e-03_rb,2.5760e-03_rb,2.8001e-03_rb/)\n      kbo(:,28, 5) = (/ &\n     &1.6604e-03_rb,1.8339e-03_rb,2.0064e-03_rb,2.1858e-03_rb,2.3683e-03_rb/)\n      kbo(:,29, 5) = (/ &\n     &1.4167e-03_rb,1.5573e-03_rb,1.7005e-03_rb,1.8546e-03_rb,2.0015e-03_rb/)\n      kbo(:,30, 5) = (/ &\n     &1.2043e-03_rb,1.3228e-03_rb,1.4435e-03_rb,1.5699e-03_rb,1.6896e-03_rb/)\n      kbo(:,31, 5) = (/ &\n     &1.0225e-03_rb,1.1229e-03_rb,1.2273e-03_rb,1.3283e-03_rb,1.4296e-03_rb/)\n      kbo(:,32, 5) = (/ &\n     &8.6992e-04_rb,9.5293e-04_rb,1.0416e-03_rb,1.1243e-03_rb,1.2104e-03_rb/)\n      kbo(:,33, 5) = (/ &\n     &7.3968e-04_rb,8.1278e-04_rb,8.8420e-04_rb,9.5333e-04_rb,1.0276e-03_rb/)\n      kbo(:,34, 5) = (/ &\n     &6.2724e-04_rb,6.8945e-04_rb,7.4802e-04_rb,8.0740e-04_rb,8.7396e-04_rb/)\n      kbo(:,35, 5) = (/ &\n     &5.2729e-04_rb,5.7995e-04_rb,6.2910e-04_rb,6.7983e-04_rb,7.3853e-04_rb/)\n      kbo(:,36, 5) = (/ &\n     &4.3895e-04_rb,4.8339e-04_rb,5.2479e-04_rb,5.6936e-04_rb,6.1891e-04_rb/)\n      kbo(:,37, 5) = (/ &\n     &3.6323e-04_rb,4.0071e-04_rb,4.3613e-04_rb,4.7458e-04_rb,5.1673e-04_rb/)\n      kbo(:,38, 5) = (/ &\n     &3.0001e-04_rb,3.3215e-04_rb,3.6263e-04_rb,3.9587e-04_rb,4.3165e-04_rb/)\n      kbo(:,39, 5) = (/ &\n     &2.4808e-04_rb,2.7543e-04_rb,3.0133e-04_rb,3.3050e-04_rb,3.6200e-04_rb/)\n      kbo(:,40, 5) = (/ &\n     &2.0392e-04_rb,2.2766e-04_rb,2.5038e-04_rb,2.7569e-04_rb,3.0329e-04_rb/)\n      kbo(:,41, 5) = (/ &\n     &1.6718e-04_rb,1.8754e-04_rb,2.0771e-04_rb,2.3036e-04_rb,2.5452e-04_rb/)\n      kbo(:,42, 5) = (/ &\n     &1.3676e-04_rb,1.5432e-04_rb,1.7210e-04_rb,1.9216e-04_rb,2.1391e-04_rb/)\n      kbo(:,43, 5) = (/ &\n     &1.1103e-04_rb,1.2612e-04_rb,1.4186e-04_rb,1.5938e-04_rb,1.7898e-04_rb/)\n      kbo(:,44, 5) = (/ &\n     &8.9549e-05_rb,1.0259e-04_rb,1.1643e-04_rb,1.3169e-04_rb,1.4912e-04_rb/)\n      kbo(:,45, 5) = (/ &\n     &7.2088e-05_rb,8.3098e-05_rb,9.5307e-05_rb,1.0860e-04_rb,1.2373e-04_rb/)\n      kbo(:,46, 5) = (/ &\n     &5.7589e-05_rb,6.6833e-05_rb,7.7497e-05_rb,8.9096e-05_rb,1.0212e-04_rb/)\n      kbo(:,47, 5) = (/ &\n     &4.5404e-05_rb,5.3366e-05_rb,6.2424e-05_rb,7.2413e-05_rb,8.3476e-05_rb/)\n      kbo(:,48, 5) = (/ &\n     &3.5296e-05_rb,4.2388e-05_rb,4.9972e-05_rb,5.8618e-05_rb,6.7991e-05_rb/)\n      kbo(:,49, 5) = (/ &\n     &2.7057e-05_rb,3.3322e-05_rb,3.9733e-05_rb,4.7217e-05_rb,5.5093e-05_rb/)\n      kbo(:,50, 5) = (/ &\n     &2.0028e-05_rb,2.6063e-05_rb,3.1674e-05_rb,3.7934e-05_rb,4.4693e-05_rb/)\n      kbo(:,51, 5) = (/ &\n     &1.4762e-05_rb,2.0261e-05_rb,2.5067e-05_rb,3.0345e-05_rb,3.6144e-05_rb/)\n      kbo(:,52, 5) = (/ &\n     &1.1471e-05_rb,1.5106e-05_rb,1.9721e-05_rb,2.4107e-05_rb,2.9127e-05_rb/)\n      kbo(:,53, 5) = (/ &\n     &8.8078e-06_rb,1.0927e-05_rb,1.5370e-05_rb,1.9101e-05_rb,2.3328e-05_rb/)\n      kbo(:,54, 5) = (/ &\n     &6.7922e-06_rb,8.5333e-06_rb,1.1608e-05_rb,1.5114e-05_rb,1.8676e-05_rb/)\n      kbo(:,55, 5) = (/ &\n     &5.2087e-06_rb,6.6736e-06_rb,8.5401e-06_rb,1.1909e-05_rb,1.4884e-05_rb/)\n      kbo(:,56, 5) = (/ &\n     &3.9778e-06_rb,5.1458e-06_rb,6.5614e-06_rb,9.1281e-06_rb,1.1849e-05_rb/)\n      kbo(:,57, 5) = (/ &\n     &3.4293e-06_rb,3.9957e-06_rb,5.1202e-06_rb,6.7753e-06_rb,9.3431e-06_rb/)\n      kbo(:,58, 5) = (/ &\n     &3.0812e-06_rb,3.0418e-06_rb,3.9938e-06_rb,5.1720e-06_rb,7.2446e-06_rb/)\n      kbo(:,59, 5) = (/ &\n     &2.6710e-06_rb,2.4462e-06_rb,3.2530e-06_rb,4.2384e-06_rb,5.8592e-06_rb/)\n      kbo(:,13, 6) = (/ &\n     &4.3826e-02_rb,5.0848e-02_rb,5.7125e-02_rb,6.2916e-02_rb,6.7915e-02_rb/)\n      kbo(:,14, 6) = (/ &\n     &3.8242e-02_rb,4.3851e-02_rb,4.9242e-02_rb,5.3907e-02_rb,5.8385e-02_rb/)\n      kbo(:,15, 6) = (/ &\n     &3.3170e-02_rb,3.7873e-02_rb,4.2212e-02_rb,4.6203e-02_rb,5.0021e-02_rb/)\n      kbo(:,16, 6) = (/ &\n     &2.8430e-02_rb,3.2381e-02_rb,3.6071e-02_rb,3.9408e-02_rb,4.2554e-02_rb/)\n      kbo(:,17, 6) = (/ &\n     &2.4252e-02_rb,2.7453e-02_rb,3.0545e-02_rb,3.3265e-02_rb,3.5923e-02_rb/)\n      kbo(:,18, 6) = (/ &\n     &2.0461e-02_rb,2.3166e-02_rb,2.5616e-02_rb,2.7856e-02_rb,3.0048e-02_rb/)\n      kbo(:,19, 6) = (/ &\n     &1.7273e-02_rb,1.9462e-02_rb,2.1473e-02_rb,2.3367e-02_rb,2.5163e-02_rb/)\n      kbo(:,20, 6) = (/ &\n     &1.4713e-02_rb,1.6450e-02_rb,1.8126e-02_rb,1.9702e-02_rb,2.1262e-02_rb/)\n      kbo(:,21, 6) = (/ &\n     &1.2468e-02_rb,1.3887e-02_rb,1.5268e-02_rb,1.6611e-02_rb,1.7949e-02_rb/)\n      kbo(:,22, 6) = (/ &\n     &1.0608e-02_rb,1.1782e-02_rb,1.2961e-02_rb,1.4100e-02_rb,1.5205e-02_rb/)\n      kbo(:,23, 6) = (/ &\n     &8.9996e-03_rb,9.9872e-03_rb,1.1001e-02_rb,1.1992e-02_rb,1.2875e-02_rb/)\n      kbo(:,24, 6) = (/ &\n     &7.6639e-03_rb,8.5225e-03_rb,9.3703e-03_rb,1.0166e-02_rb,1.0905e-02_rb/)\n      kbo(:,25, 6) = (/ &\n     &6.5402e-03_rb,7.2570e-03_rb,7.9762e-03_rb,8.6328e-03_rb,9.2482e-03_rb/)\n      kbo(:,26, 6) = (/ &\n     &5.5998e-03_rb,6.2109e-03_rb,6.7992e-03_rb,7.3298e-03_rb,7.8244e-03_rb/)\n      kbo(:,27, 6) = (/ &\n     &4.7932e-03_rb,5.3061e-03_rb,5.7794e-03_rb,6.2257e-03_rb,6.6438e-03_rb/)\n      kbo(:,28, 6) = (/ &\n     &4.0951e-03_rb,4.5312e-03_rb,4.9233e-03_rb,5.2892e-03_rb,5.6437e-03_rb/)\n      kbo(:,29, 6) = (/ &\n     &3.5062e-03_rb,3.8638e-03_rb,4.1941e-03_rb,4.4995e-03_rb,4.7944e-03_rb/)\n      kbo(:,30, 6) = (/ &\n     &2.9997e-03_rb,3.2915e-03_rb,3.5642e-03_rb,3.8238e-03_rb,4.0827e-03_rb/)\n      kbo(:,31, 6) = (/ &\n     &2.5609e-03_rb,2.8021e-03_rb,3.0278e-03_rb,3.2471e-03_rb,3.4700e-03_rb/)\n      kbo(:,32, 6) = (/ &\n     &2.1838e-03_rb,2.3823e-03_rb,2.5746e-03_rb,2.7615e-03_rb,2.9515e-03_rb/)\n      kbo(:,33, 6) = (/ &\n     &1.8610e-03_rb,2.0261e-03_rb,2.1868e-03_rb,2.3490e-03_rb,2.5125e-03_rb/)\n      kbo(:,34, 6) = (/ &\n     &1.5812e-03_rb,1.7190e-03_rb,1.8561e-03_rb,1.9953e-03_rb,2.1347e-03_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.3323e-03_rb,1.4487e-03_rb,1.5664e-03_rb,1.6864e-03_rb,1.8025e-03_rb/)\n      kbo(:,36, 6) = (/ &\n     &1.1120e-03_rb,1.2101e-03_rb,1.3111e-03_rb,1.4134e-03_rb,1.5124e-03_rb/)\n      kbo(:,37, 6) = (/ &\n     &9.2067e-04_rb,1.0045e-03_rb,1.0903e-03_rb,1.1790e-03_rb,1.2650e-03_rb/)\n      kbo(:,38, 6) = (/ &\n     &7.6186e-04_rb,8.3301e-04_rb,9.0690e-04_rb,9.8204e-04_rb,1.0582e-03_rb/)\n      kbo(:,39, 6) = (/ &\n     &6.3121e-04_rb,6.9074e-04_rb,7.5442e-04_rb,8.1836e-04_rb,8.8377e-04_rb/)\n      kbo(:,40, 6) = (/ &\n     &5.2096e-04_rb,5.7198e-04_rb,6.2426e-04_rb,6.7904e-04_rb,7.3548e-04_rb/)\n      kbo(:,41, 6) = (/ &\n     &4.2992e-04_rb,4.7365e-04_rb,5.1846e-04_rb,5.6371e-04_rb,6.1228e-04_rb/)\n      kbo(:,42, 6) = (/ &\n     &3.5500e-04_rb,3.9262e-04_rb,4.3159e-04_rb,4.7009e-04_rb,5.1120e-04_rb/)\n      kbo(:,43, 6) = (/ &\n     &2.9285e-04_rb,3.2562e-04_rb,3.5900e-04_rb,3.9210e-04_rb,4.2694e-04_rb/)\n      kbo(:,44, 6) = (/ &\n     &2.4061e-04_rb,2.6923e-04_rb,2.9805e-04_rb,3.2732e-04_rb,3.5760e-04_rb/)\n      kbo(:,45, 6) = (/ &\n     &1.9754e-04_rb,2.2270e-04_rb,2.4799e-04_rb,2.7345e-04_rb,3.0033e-04_rb/)\n      kbo(:,46, 6) = (/ &\n     &1.6118e-04_rb,1.8331e-04_rb,2.0573e-04_rb,2.2834e-04_rb,2.5255e-04_rb/)\n      kbo(:,47, 6) = (/ &\n     &1.3001e-04_rb,1.4919e-04_rb,1.6905e-04_rb,1.8953e-04_rb,2.1172e-04_rb/)\n      kbo(:,48, 6) = (/ &\n     &1.0430e-04_rb,1.2103e-04_rb,1.3853e-04_rb,1.5665e-04_rb,1.7689e-04_rb/)\n      kbo(:,49, 6) = (/ &\n     &8.3158e-05_rb,9.7679e-05_rb,1.1288e-04_rb,1.2898e-04_rb,1.4689e-04_rb/)\n      kbo(:,50, 6) = (/ &\n     &6.6182e-05_rb,7.8799e-05_rb,9.1873e-05_rb,1.0601e-04_rb,1.2184e-04_rb/)\n      kbo(:,51, 6) = (/ &\n     &5.2460e-05_rb,6.3349e-05_rb,7.4559e-05_rb,8.7033e-05_rb,1.0081e-04_rb/)\n      kbo(:,52, 6) = (/ &\n     &4.1391e-05_rb,5.0671e-05_rb,6.0237e-05_rb,7.1015e-05_rb,8.3290e-05_rb/)\n      kbo(:,53, 6) = (/ &\n     &3.2451e-05_rb,4.0299e-05_rb,4.8474e-05_rb,5.7732e-05_rb,6.8499e-05_rb/)\n      kbo(:,54, 6) = (/ &\n     &2.5414e-05_rb,3.2075e-05_rb,3.9061e-05_rb,4.7059e-05_rb,5.6458e-05_rb/)\n      kbo(:,55, 6) = (/ &\n     &1.9791e-05_rb,2.5430e-05_rb,3.1447e-05_rb,3.8320e-05_rb,4.6433e-05_rb/)\n      kbo(:,56, 6) = (/ &\n     &1.5282e-05_rb,2.0059e-05_rb,2.5203e-05_rb,3.1033e-05_rb,3.8063e-05_rb/)\n      kbo(:,57, 6) = (/ &\n     &1.1377e-05_rb,1.5690e-05_rb,2.0076e-05_rb,2.5035e-05_rb,3.1091e-05_rb/)\n      kbo(:,58, 6) = (/ &\n     &8.3098e-06_rb,1.2203e-05_rb,1.5952e-05_rb,2.0176e-05_rb,2.5366e-05_rb/)\n      kbo(:,59, 6) = (/ &\n     &6.5651e-06_rb,9.9766e-06_rb,1.3186e-05_rb,1.6915e-05_rb,2.1496e-05_rb/)\n      kbo(:,13, 7) = (/ &\n     &1.1534e-01_rb,1.2733e-01_rb,1.3962e-01_rb,1.4987e-01_rb,1.6008e-01_rb/)\n      kbo(:,14, 7) = (/ &\n     &9.8557e-02_rb,1.0921e-01_rb,1.1846e-01_rb,1.2756e-01_rb,1.3545e-01_rb/)\n      kbo(:,15, 7) = (/ &\n     &8.4816e-02_rb,9.3361e-02_rb,1.0130e-01_rb,1.0828e-01_rb,1.1452e-01_rb/)\n      kbo(:,16, 7) = (/ &\n     &7.2792e-02_rb,7.9992e-02_rb,8.6025e-02_rb,9.1745e-02_rb,9.7220e-02_rb/)\n      kbo(:,17, 7) = (/ &\n     &6.2250e-02_rb,6.8145e-02_rb,7.3215e-02_rb,7.8161e-02_rb,8.2912e-02_rb/)\n      kbo(:,18, 7) = (/ &\n     &5.2897e-02_rb,5.7617e-02_rb,6.2131e-02_rb,6.6296e-02_rb,7.0468e-02_rb/)\n      kbo(:,19, 7) = (/ &\n     &4.4630e-02_rb,4.8620e-02_rb,5.2395e-02_rb,5.5983e-02_rb,5.9561e-02_rb/)\n      kbo(:,20, 7) = (/ &\n     &3.7638e-02_rb,4.1018e-02_rb,4.4192e-02_rb,4.7348e-02_rb,5.0426e-02_rb/)\n      kbo(:,21, 7) = (/ &\n     &3.1712e-02_rb,3.4570e-02_rb,3.7337e-02_rb,4.0055e-02_rb,4.2699e-02_rb/)\n      kbo(:,22, 7) = (/ &\n     &2.6951e-02_rb,2.9361e-02_rb,3.1724e-02_rb,3.4058e-02_rb,3.6337e-02_rb/)\n      kbo(:,23, 7) = (/ &\n     &2.2985e-02_rb,2.5005e-02_rb,2.7002e-02_rb,2.8884e-02_rb,3.0844e-02_rb/)\n      kbo(:,24, 7) = (/ &\n     &1.9564e-02_rb,2.1275e-02_rb,2.2950e-02_rb,2.4579e-02_rb,2.6269e-02_rb/)\n      kbo(:,25, 7) = (/ &\n     &1.6678e-02_rb,1.8134e-02_rb,1.9557e-02_rb,2.0984e-02_rb,2.2448e-02_rb/)\n      kbo(:,26, 7) = (/ &\n     &1.4215e-02_rb,1.5478e-02_rb,1.6731e-02_rb,1.8053e-02_rb,1.9409e-02_rb/)\n      kbo(:,27, 7) = (/ &\n     &1.2146e-02_rb,1.3259e-02_rb,1.4401e-02_rb,1.5542e-02_rb,1.6732e-02_rb/)\n      kbo(:,28, 7) = (/ &\n     &1.0451e-02_rb,1.1387e-02_rb,1.2366e-02_rb,1.3378e-02_rb,1.4403e-02_rb/)\n      kbo(:,29, 7) = (/ &\n     &8.9638e-03_rb,9.7824e-03_rb,1.0625e-02_rb,1.1522e-02_rb,1.2402e-02_rb/)\n      kbo(:,30, 7) = (/ &\n     &7.7059e-03_rb,8.4110e-03_rb,9.1535e-03_rb,9.9173e-03_rb,1.0684e-02_rb/)\n      kbo(:,31, 7) = (/ &\n     &6.6159e-03_rb,7.2344e-03_rb,7.8777e-03_rb,8.5358e-03_rb,9.2030e-03_rb/)\n      kbo(:,32, 7) = (/ &\n     &5.6925e-03_rb,6.2370e-03_rb,6.7880e-03_rb,7.3601e-03_rb,7.9298e-03_rb/)\n      kbo(:,33, 7) = (/ &\n     &4.9047e-03_rb,5.3755e-03_rb,5.8574e-03_rb,6.3478e-03_rb,6.8444e-03_rb/)\n      kbo(:,34, 7) = (/ &\n     &4.2261e-03_rb,4.6310e-03_rb,5.0504e-03_rb,5.4765e-03_rb,5.9065e-03_rb/)\n      kbo(:,35, 7) = (/ &\n     &3.6014e-03_rb,3.9541e-03_rb,4.3177e-03_rb,4.6806e-03_rb,5.0649e-03_rb/)\n      kbo(:,36, 7) = (/ &\n     &3.0405e-03_rb,3.3438e-03_rb,3.6573e-03_rb,3.9714e-03_rb,4.3136e-03_rb/)\n      kbo(:,37, 7) = (/ &\n     &2.5476e-03_rb,2.8157e-03_rb,3.0872e-03_rb,3.3632e-03_rb,3.6681e-03_rb/)\n      kbo(:,38, 7) = (/ &\n     &2.1334e-03_rb,2.3678e-03_rb,2.6052e-03_rb,2.8532e-03_rb,3.1134e-03_rb/)\n      kbo(:,39, 7) = (/ &\n     &1.7845e-03_rb,1.9869e-03_rb,2.1996e-03_rb,2.4178e-03_rb,2.6484e-03_rb/)\n      kbo(:,40, 7) = (/ &\n     &1.4840e-03_rb,1.6609e-03_rb,1.8504e-03_rb,2.0474e-03_rb,2.2560e-03_rb/)\n      kbo(:,41, 7) = (/ &\n     &1.2344e-03_rb,1.3898e-03_rb,1.5559e-03_rb,1.7345e-03_rb,1.9234e-03_rb/)\n      kbo(:,42, 7) = (/ &\n     &1.0314e-03_rb,1.1653e-03_rb,1.3107e-03_rb,1.4669e-03_rb,1.6353e-03_rb/)\n      kbo(:,43, 7) = (/ &\n     &8.5631e-04_rb,9.7409e-04_rb,1.1003e-03_rb,1.2355e-03_rb,1.3860e-03_rb/)\n      kbo(:,44, 7) = (/ &\n     &7.0883e-04_rb,8.1303e-04_rb,9.2536e-04_rb,1.0435e-03_rb,1.1739e-03_rb/)\n      kbo(:,45, 7) = (/ &\n     &5.8732e-04_rb,6.7556e-04_rb,7.7384e-04_rb,8.8025e-04_rb,9.9590e-04_rb/)\n      kbo(:,46, 7) = (/ &\n     &4.8484e-04_rb,5.6171e-04_rb,6.4432e-04_rb,7.3847e-04_rb,8.4169e-04_rb/)\n      kbo(:,47, 7) = (/ &\n     &3.9752e-04_rb,4.6412e-04_rb,5.3807e-04_rb,6.1858e-04_rb,7.0821e-04_rb/)\n      kbo(:,48, 7) = (/ &\n     &3.2593e-04_rb,3.8380e-04_rb,4.4885e-04_rb,5.1997e-04_rb,5.9487e-04_rb/)\n      kbo(:,49, 7) = (/ &\n     &2.6581e-04_rb,3.1620e-04_rb,3.7509e-04_rb,4.3658e-04_rb,5.0219e-04_rb/)\n      kbo(:,50, 7) = (/ &\n     &2.1682e-04_rb,2.6203e-04_rb,3.1361e-04_rb,3.6786e-04_rb,4.2524e-04_rb/)\n      kbo(:,51, 7) = (/ &\n     &1.7696e-04_rb,2.1726e-04_rb,2.6292e-04_rb,3.1080e-04_rb,3.6141e-04_rb/)\n      kbo(:,52, 7) = (/ &\n     &1.4350e-04_rb,1.8000e-04_rb,2.2008e-04_rb,2.6275e-04_rb,3.0811e-04_rb/)\n      kbo(:,53, 7) = (/ &\n     &1.1566e-04_rb,1.4775e-04_rb,1.8326e-04_rb,2.2179e-04_rb,2.6354e-04_rb/)\n      kbo(:,54, 7) = (/ &\n     &9.3174e-05_rb,1.2130e-04_rb,1.5287e-04_rb,1.8794e-04_rb,2.2723e-04_rb/)\n      kbo(:,55, 7) = (/ &\n     &7.4812e-05_rb,9.9351e-05_rb,1.2721e-04_rb,1.5976e-04_rb,1.9539e-04_rb/)\n      kbo(:,56, 7) = (/ &\n     &5.9751e-05_rb,8.0907e-05_rb,1.0532e-04_rb,1.3503e-04_rb,1.6719e-04_rb/)\n      kbo(:,57, 7) = (/ &\n     &4.7338e-05_rb,6.5345e-05_rb,8.6815e-05_rb,1.1307e-04_rb,1.4234e-04_rb/)\n      kbo(:,58, 7) = (/ &\n     &3.7388e-05_rb,5.2674e-05_rb,7.1720e-05_rb,9.4757e-05_rb,1.2118e-04_rb/)\n      kbo(:,59, 7) = (/ &\n     &3.1368e-05_rb,4.4899e-05_rb,6.2069e-05_rb,8.2754e-05_rb,1.0682e-04_rb/)\n      kbo(:,13, 8) = (/ &\n     &3.8513e-01_rb,4.3049e-01_rb,4.7109e-01_rb,5.0795e-01_rb,5.3980e-01_rb/)\n      kbo(:,14, 8) = (/ &\n     &3.2769e-01_rb,3.6398e-01_rb,3.9786e-01_rb,4.2776e-01_rb,4.5444e-01_rb/)\n      kbo(:,15, 8) = (/ &\n     &2.7898e-01_rb,3.0981e-01_rb,3.3796e-01_rb,3.6334e-01_rb,3.8812e-01_rb/)\n      kbo(:,16, 8) = (/ &\n     &2.3683e-01_rb,2.6231e-01_rb,2.8577e-01_rb,3.0755e-01_rb,3.2800e-01_rb/)\n      kbo(:,17, 8) = (/ &\n     &2.0036e-01_rb,2.2125e-01_rb,2.4047e-01_rb,2.5907e-01_rb,2.7604e-01_rb/)\n      kbo(:,18, 8) = (/ &\n     &1.7015e-01_rb,1.8726e-01_rb,2.0338e-01_rb,2.1873e-01_rb,2.3341e-01_rb/)\n      kbo(:,19, 8) = (/ &\n     &1.4494e-01_rb,1.5899e-01_rb,1.7245e-01_rb,1.8542e-01_rb,1.9788e-01_rb/)\n      kbo(:,20, 8) = (/ &\n     &1.2385e-01_rb,1.3588e-01_rb,1.4742e-01_rb,1.5823e-01_rb,1.6882e-01_rb/)\n      kbo(:,21, 8) = (/ &\n     &1.0654e-01_rb,1.1655e-01_rb,1.2609e-01_rb,1.3545e-01_rb,1.4408e-01_rb/)\n      kbo(:,22, 8) = (/ &\n     &9.1991e-02_rb,1.0041e-01_rb,1.0849e-01_rb,1.1626e-01_rb,1.2371e-01_rb/)\n      kbo(:,23, 8) = (/ &\n     &7.9046e-02_rb,8.6400e-02_rb,9.3327e-02_rb,9.9889e-02_rb,1.0642e-01_rb/)\n      kbo(:,24, 8) = (/ &\n     &6.8021e-02_rb,7.4328e-02_rb,8.0300e-02_rb,8.6084e-02_rb,9.1544e-02_rb/)\n      kbo(:,25, 8) = (/ &\n     &5.8516e-02_rb,6.3854e-02_rb,6.9101e-02_rb,7.4075e-02_rb,7.8861e-02_rb/)\n      kbo(:,26, 8) = (/ &\n     &5.0443e-02_rb,5.5091e-02_rb,5.9525e-02_rb,6.3760e-02_rb,6.7833e-02_rb/)\n      kbo(:,27, 8) = (/ &\n     &4.3538e-02_rb,4.7477e-02_rb,5.1180e-02_rb,5.4850e-02_rb,5.8530e-02_rb/)\n      kbo(:,28, 8) = (/ &\n     &3.7617e-02_rb,4.0916e-02_rb,4.4139e-02_rb,4.7301e-02_rb,5.0513e-02_rb/)\n      kbo(:,29, 8) = (/ &\n     &3.2546e-02_rb,3.5342e-02_rb,3.8069e-02_rb,4.0845e-02_rb,4.3756e-02_rb/)\n      kbo(:,30, 8) = (/ &\n     &2.8067e-02_rb,3.0536e-02_rb,3.2922e-02_rb,3.5388e-02_rb,3.8072e-02_rb/)\n      kbo(:,31, 8) = (/ &\n     &2.4245e-02_rb,2.6387e-02_rb,2.8550e-02_rb,3.0769e-02_rb,3.3007e-02_rb/)\n      kbo(:,32, 8) = (/ &\n     &2.1010e-02_rb,2.2870e-02_rb,2.4839e-02_rb,2.6760e-02_rb,2.8725e-02_rb/)\n      kbo(:,33, 8) = (/ &\n     &1.8247e-02_rb,1.9921e-02_rb,2.1633e-02_rb,2.3376e-02_rb,2.5089e-02_rb/)\n      kbo(:,34, 8) = (/ &\n     &1.5899e-02_rb,1.7453e-02_rb,1.8953e-02_rb,2.0489e-02_rb,2.2006e-02_rb/)\n      kbo(:,35, 8) = (/ &\n     &1.3799e-02_rb,1.5171e-02_rb,1.6500e-02_rb,1.7816e-02_rb,1.9222e-02_rb/)\n      kbo(:,36, 8) = (/ &\n     &1.1856e-02_rb,1.3040e-02_rb,1.4223e-02_rb,1.5409e-02_rb,1.6675e-02_rb/)\n      kbo(:,37, 8) = (/ &\n     &1.0122e-02_rb,1.1172e-02_rb,1.2227e-02_rb,1.3320e-02_rb,1.4426e-02_rb/)\n      kbo(:,38, 8) = (/ &\n     &8.6297e-03_rb,9.5720e-03_rb,1.0548e-02_rb,1.1499e-02_rb,1.2504e-02_rb/)\n      kbo(:,39, 8) = (/ &\n     &7.3583e-03_rb,8.2086e-03_rb,9.0807e-03_rb,9.9445e-03_rb,1.0852e-02_rb/)\n      kbo(:,40, 8) = (/ &\n     &6.2575e-03_rb,7.0294e-03_rb,7.8131e-03_rb,8.5974e-03_rb,9.4311e-03_rb/)\n      kbo(:,41, 8) = (/ &\n     &5.3221e-03_rb,6.0117e-03_rb,6.7242e-03_rb,7.4367e-03_rb,8.2130e-03_rb/)\n      kbo(:,42, 8) = (/ &\n     &4.5217e-03_rb,5.1291e-03_rb,5.7774e-03_rb,6.4411e-03_rb,7.1607e-03_rb/)\n      kbo(:,43, 8) = (/ &\n     &3.8118e-03_rb,4.3626e-03_rb,4.9535e-03_rb,5.5702e-03_rb,6.2186e-03_rb/)\n      kbo(:,44, 8) = (/ &\n     &3.1928e-03_rb,3.7055e-03_rb,4.2384e-03_rb,4.7956e-03_rb,5.3949e-03_rb/)\n      kbo(:,45, 8) = (/ &\n     &2.6724e-03_rb,3.1345e-03_rb,3.6292e-03_rb,4.1408e-03_rb,4.6835e-03_rb/)\n      kbo(:,46, 8) = (/ &\n     &2.2327e-03_rb,2.6446e-03_rb,3.0956e-03_rb,3.5684e-03_rb,4.0653e-03_rb/)\n      kbo(:,47, 8) = (/ &\n     &1.8490e-03_rb,2.2161e-03_rb,2.6105e-03_rb,3.0391e-03_rb,3.5058e-03_rb/)\n      kbo(:,48, 8) = (/ &\n     &1.5271e-03_rb,1.8513e-03_rb,2.2029e-03_rb,2.5798e-03_rb,3.0175e-03_rb/)\n      kbo(:,49, 8) = (/ &\n     &1.2568e-03_rb,1.5444e-03_rb,1.8551e-03_rb,2.1969e-03_rb,2.5931e-03_rb/)\n      kbo(:,50, 8) = (/ &\n     &1.0411e-03_rb,1.2920e-03_rb,1.5680e-03_rb,1.8789e-03_rb,2.2434e-03_rb/)\n      kbo(:,51, 8) = (/ &\n     &8.6157e-04_rb,1.0792e-03_rb,1.3252e-03_rb,1.6044e-03_rb,1.9374e-03_rb/)\n      kbo(:,52, 8) = (/ &\n     &7.1345e-04_rb,8.9803e-04_rb,1.1146e-03_rb,1.3696e-03_rb,1.6714e-03_rb/)\n      kbo(:,53, 8) = (/ &\n     &5.9120e-04_rb,7.4871e-04_rb,9.4040e-04_rb,1.1662e-03_rb,1.4395e-03_rb/)\n      kbo(:,54, 8) = (/ &\n     &4.9248e-04_rb,6.3323e-04_rb,7.9771e-04_rb,9.9957e-04_rb,1.2405e-03_rb/)\n      kbo(:,55, 8) = (/ &\n     &4.1065e-04_rb,5.3488e-04_rb,6.8225e-04_rb,8.6108e-04_rb,1.0736e-03_rb/)\n      kbo(:,56, 8) = (/ &\n     &3.4182e-04_rb,4.5283e-04_rb,5.8716e-04_rb,7.4149e-04_rb,9.3761e-04_rb/)\n      kbo(:,57, 8) = (/ &\n     &2.8276e-04_rb,3.8428e-04_rb,5.0468e-04_rb,6.4575e-04_rb,8.2300e-04_rb/)\n      kbo(:,58, 8) = (/ &\n     &2.3443e-04_rb,3.2611e-04_rb,4.3528e-04_rb,5.6896e-04_rb,7.2980e-04_rb/)\n      kbo(:,59, 8) = (/ &\n     &2.0666e-04_rb,2.9266e-04_rb,3.9707e-04_rb,5.2680e-04_rb,6.7824e-04_rb/)\n      kbo(:,13, 9) = (/ &\n     &2.6929e+00_rb,3.0365e+00_rb,3.3480e+00_rb,3.6295e+00_rb,3.8842e+00_rb/)\n      kbo(:,14, 9) = (/ &\n     &2.3218e+00_rb,2.6065e+00_rb,2.8670e+00_rb,3.1040e+00_rb,3.3162e+00_rb/)\n      kbo(:,15, 9) = (/ &\n     &1.9883e+00_rb,2.2252e+00_rb,2.4424e+00_rb,2.6373e+00_rb,2.8081e+00_rb/)\n      kbo(:,16, 9) = (/ &\n     &1.6988e+00_rb,1.8964e+00_rb,2.0747e+00_rb,2.2343e+00_rb,2.3791e+00_rb/)\n      kbo(:,17, 9) = (/ &\n     &1.4495e+00_rb,1.6116e+00_rb,1.7595e+00_rb,1.8933e+00_rb,2.0138e+00_rb/)\n      kbo(:,18, 9) = (/ &\n     &1.2318e+00_rb,1.3662e+00_rb,1.4893e+00_rb,1.6003e+00_rb,1.6980e+00_rb/)\n      kbo(:,19, 9) = (/ &\n     &1.0432e+00_rb,1.1554e+00_rb,1.2571e+00_rb,1.3476e+00_rb,1.4284e+00_rb/)\n      kbo(:,20, 9) = (/ &\n     &8.8399e-01_rb,9.7584e-01_rb,1.0583e+00_rb,1.1327e+00_rb,1.2000e+00_rb/)\n      kbo(:,21, 9) = (/ &\n     &7.4719e-01_rb,8.2246e-01_rb,8.9025e-01_rb,9.5182e-01_rb,1.0085e+00_rb/)\n      kbo(:,22, 9) = (/ &\n     &6.3607e-01_rb,6.9712e-01_rb,7.5292e-01_rb,8.0394e-01_rb,8.5135e-01_rb/)\n      kbo(:,23, 9) = (/ &\n     &5.4262e-01_rb,5.9143e-01_rb,6.3738e-01_rb,6.8008e-01_rb,7.1995e-01_rb/)\n      kbo(:,24, 9) = (/ &\n     &4.6285e-01_rb,5.0331e-01_rb,5.4067e-01_rb,5.7573e-01_rb,6.1046e-01_rb/)\n      kbo(:,25, 9) = (/ &\n     &3.9562e-01_rb,4.2919e-01_rb,4.6040e-01_rb,4.9042e-01_rb,5.1991e-01_rb/)\n      kbo(:,26, 9) = (/ &\n     &3.4017e-01_rb,3.6788e-01_rb,3.9442e-01_rb,4.2037e-01_rb,4.4731e-01_rb/)\n      kbo(:,27, 9) = (/ &\n     &2.9399e-01_rb,3.1651e-01_rb,3.3903e-01_rb,3.6222e-01_rb,3.8618e-01_rb/)\n      kbo(:,28, 9) = (/ &\n     &2.5435e-01_rb,2.7396e-01_rb,2.9328e-01_rb,3.1366e-01_rb,3.3524e-01_rb/)\n      kbo(:,29, 9) = (/ &\n     &2.2098e-01_rb,2.3815e-01_rb,2.5600e-01_rb,2.7395e-01_rb,2.9332e-01_rb/)\n      kbo(:,30, 9) = (/ &\n     &1.9332e-01_rb,2.0838e-01_rb,2.2416e-01_rb,2.4057e-01_rb,2.5735e-01_rb/)\n      kbo(:,31, 9) = (/ &\n     &1.6991e-01_rb,1.8327e-01_rb,1.9737e-01_rb,2.1207e-01_rb,2.2734e-01_rb/)\n      kbo(:,32, 9) = (/ &\n     &1.4986e-01_rb,1.6194e-01_rb,1.7445e-01_rb,1.8782e-01_rb,2.0152e-01_rb/)\n      kbo(:,33, 9) = (/ &\n     &1.3279e-01_rb,1.4378e-01_rb,1.5504e-01_rb,1.6697e-01_rb,1.7955e-01_rb/)\n      kbo(:,34, 9) = (/ &\n     &1.1789e-01_rb,1.2771e-01_rb,1.3816e-01_rb,1.4885e-01_rb,1.6033e-01_rb/)\n      kbo(:,35, 9) = (/ &\n     &1.0423e-01_rb,1.1314e-01_rb,1.2268e-01_rb,1.3249e-01_rb,1.4303e-01_rb/)\n      kbo(:,36, 9) = (/ &\n     &9.1569e-02_rb,9.9843e-02_rb,1.0848e-01_rb,1.1752e-01_rb,1.2715e-01_rb/)\n      kbo(:,37, 9) = (/ &\n     &7.9654e-02_rb,8.7324e-02_rb,9.5396e-02_rb,1.0365e-01_rb,1.1217e-01_rb/)\n      kbo(:,38, 9) = (/ &\n     &6.9582e-02_rb,7.6500e-02_rb,8.3939e-02_rb,9.1706e-02_rb,9.9308e-02_rb/)\n      kbo(:,39, 9) = (/ &\n     &6.0817e-02_rb,6.7147e-02_rb,7.4089e-02_rb,8.1389e-02_rb,8.8469e-02_rb/)\n      kbo(:,40, 9) = (/ &\n     &5.2895e-02_rb,5.8816e-02_rb,6.5088e-02_rb,7.1837e-02_rb,7.8761e-02_rb/)\n      kbo(:,41, 9) = (/ &\n     &4.5994e-02_rb,5.1507e-02_rb,5.7306e-02_rb,6.3493e-02_rb,7.0017e-02_rb/)\n      kbo(:,42, 9) = (/ &\n     &3.9933e-02_rb,4.5126e-02_rb,5.0659e-02_rb,5.6440e-02_rb,6.2355e-02_rb/)\n      kbo(:,43, 9) = (/ &\n     &3.4407e-02_rb,3.9333e-02_rb,4.4505e-02_rb,5.0025e-02_rb,5.5477e-02_rb/)\n      kbo(:,44, 9) = (/ &\n     &2.9641e-02_rb,3.4179e-02_rb,3.9085e-02_rb,4.4243e-02_rb,4.9585e-02_rb/)\n      kbo(:,45, 9) = (/ &\n     &2.5534e-02_rb,2.9717e-02_rb,3.4321e-02_rb,3.9331e-02_rb,4.4385e-02_rb/)\n      kbo(:,46, 9) = (/ &\n     &2.1943e-02_rb,2.5772e-02_rb,3.0011e-02_rb,3.4665e-02_rb,3.9677e-02_rb/)\n      kbo(:,47, 9) = (/ &\n     &1.8799e-02_rb,2.2299e-02_rb,2.6155e-02_rb,3.0452e-02_rb,3.5108e-02_rb/)\n      kbo(:,48, 9) = (/ &\n     &1.6134e-02_rb,1.9292e-02_rb,2.2898e-02_rb,2.6798e-02_rb,3.1152e-02_rb/)\n      kbo(:,49, 9) = (/ &\n     &1.3799e-02_rb,1.6693e-02_rb,1.9932e-02_rb,2.3629e-02_rb,2.7686e-02_rb/)\n      kbo(:,50, 9) = (/ &\n     &1.1807e-02_rb,1.4439e-02_rb,1.7455e-02_rb,2.0914e-02_rb,2.4717e-02_rb/)\n      kbo(:,51, 9) = (/ &\n     &1.0105e-02_rb,1.2520e-02_rb,1.5304e-02_rb,1.8588e-02_rb,2.2129e-02_rb/)\n      kbo(:,52, 9) = (/ &\n     &8.6629e-03_rb,1.0849e-02_rb,1.3445e-02_rb,1.6444e-02_rb,1.9913e-02_rb/)\n      kbo(:,53, 9) = (/ &\n     &7.4874e-03_rb,9.4257e-03_rb,1.1801e-02_rb,1.4610e-02_rb,1.7870e-02_rb/)\n      kbo(:,54, 9) = (/ &\n     &6.4970e-03_rb,8.2758e-03_rb,1.0456e-02_rb,1.3093e-02_rb,1.6122e-02_rb/)\n      kbo(:,55, 9) = (/ &\n     &5.6140e-03_rb,7.3217e-03_rb,9.3276e-03_rb,1.1747e-02_rb,1.4696e-02_rb/)\n      kbo(:,56, 9) = (/ &\n     &4.8349e-03_rb,6.4792e-03_rb,8.3317e-03_rb,1.0602e-02_rb,1.3343e-02_rb/)\n      kbo(:,57, 9) = (/ &\n     &4.1640e-03_rb,5.6963e-03_rb,7.4736e-03_rb,9.6066e-03_rb,1.2192e-02_rb/)\n      kbo(:,58, 9) = (/ &\n     &3.5901e-03_rb,5.0045e-03_rb,6.7274e-03_rb,8.7656e-03_rb,1.1231e-02_rb/)\n      kbo(:,59, 9) = (/ &\n     &3.3029e-03_rb,4.6798e-03_rb,6.3469e-03_rb,8.3368e-03_rb,1.0817e-02_rb/)\n      kbo(:,13,10) = (/ &\n     &1.1103e+01_rb,1.2502e+01_rb,1.3897e+01_rb,1.5277e+01_rb,1.6528e+01_rb/)\n      kbo(:,14,10) = (/ &\n     &9.9415e+00_rb,1.1260e+01_rb,1.2546e+01_rb,1.3697e+01_rb,1.4756e+01_rb/)\n      kbo(:,15,10) = (/ &\n     &8.8808e+00_rb,1.0035e+01_rb,1.1086e+01_rb,1.2088e+01_rb,1.3034e+01_rb/)\n      kbo(:,16,10) = (/ &\n     &7.8211e+00_rb,8.7752e+00_rb,9.7015e+00_rb,1.0578e+01_rb,1.1354e+01_rb/)\n      kbo(:,17,10) = (/ &\n     &6.7833e+00_rb,7.6204e+00_rb,8.4176e+00_rb,9.1234e+00_rb,9.7674e+00_rb/)\n      kbo(:,18,10) = (/ &\n     &5.8703e+00_rb,6.5862e+00_rb,7.2317e+00_rb,7.8324e+00_rb,8.4128e+00_rb/)\n      kbo(:,19,10) = (/ &\n     &5.0772e+00_rb,5.6603e+00_rb,6.2160e+00_rb,6.7517e+00_rb,7.2522e+00_rb/)\n      kbo(:,20,10) = (/ &\n     &4.3641e+00_rb,4.8646e+00_rb,5.3518e+00_rb,5.8113e+00_rb,6.2183e+00_rb/)\n      kbo(:,21,10) = (/ &\n     &3.7436e+00_rb,4.1787e+00_rb,4.5968e+00_rb,4.9653e+00_rb,5.2958e+00_rb/)\n      kbo(:,22,10) = (/ &\n     &3.2384e+00_rb,3.6097e+00_rb,3.9430e+00_rb,4.2432e+00_rb,4.5244e+00_rb/)\n      kbo(:,23,10) = (/ &\n     &2.7953e+00_rb,3.1049e+00_rb,3.3758e+00_rb,3.6302e+00_rb,3.8688e+00_rb/)\n      kbo(:,24,10) = (/ &\n     &2.4111e+00_rb,2.6600e+00_rb,2.8956e+00_rb,3.1175e+00_rb,3.3165e+00_rb/)\n      kbo(:,25,10) = (/ &\n     &2.0794e+00_rb,2.2877e+00_rb,2.4858e+00_rb,2.6707e+00_rb,2.8419e+00_rb/)\n      kbo(:,26,10) = (/ &\n     &1.7863e+00_rb,1.9622e+00_rb,2.1280e+00_rb,2.2830e+00_rb,2.4241e+00_rb/)\n      kbo(:,27,10) = (/ &\n     &1.5261e+00_rb,1.6805e+00_rb,1.8222e+00_rb,1.9507e+00_rb,2.0763e+00_rb/)\n      kbo(:,28,10) = (/ &\n     &1.3094e+00_rb,1.4366e+00_rb,1.5593e+00_rb,1.6738e+00_rb,1.7905e+00_rb/)\n      kbo(:,29,10) = (/ &\n     &1.1331e+00_rb,1.2336e+00_rb,1.3334e+00_rb,1.4402e+00_rb,1.5544e+00_rb/)\n      kbo(:,30,10) = (/ &\n     &9.7850e-01_rb,1.0622e+00_rb,1.1514e+00_rb,1.2513e+00_rb,1.3634e+00_rb/)\n      kbo(:,31,10) = (/ &\n     &8.4902e-01_rb,9.2389e-01_rb,1.0050e+00_rb,1.1001e+00_rb,1.2086e+00_rb/)\n      kbo(:,32,10) = (/ &\n     &7.4130e-01_rb,8.0932e-01_rb,8.8870e-01_rb,9.7905e-01_rb,1.0856e+00_rb/)\n      kbo(:,33,10) = (/ &\n     &6.5296e-01_rb,7.1655e-01_rb,7.9236e-01_rb,8.8248e-01_rb,9.8250e-01_rb/)\n      kbo(:,34,10) = (/ &\n     &5.7962e-01_rb,6.3885e-01_rb,7.0985e-01_rb,7.9650e-01_rb,8.9263e-01_rb/)\n      kbo(:,35,10) = (/ &\n     &5.1372e-01_rb,5.6904e-01_rb,6.3621e-01_rb,7.1633e-01_rb,8.0771e-01_rb/)\n      kbo(:,36,10) = (/ &\n     &4.5469e-01_rb,5.0394e-01_rb,5.6668e-01_rb,6.4061e-01_rb,7.2625e-01_rb/)\n      kbo(:,37,10) = (/ &\n     &3.9957e-01_rb,4.4312e-01_rb,4.9317e-01_rb,5.6045e-01_rb,6.4131e-01_rb/)\n      kbo(:,38,10) = (/ &\n     &3.5188e-01_rb,3.9249e-01_rb,4.3332e-01_rb,4.9135e-01_rb,5.6831e-01_rb/)\n      kbo(:,39,10) = (/ &\n     &3.1275e-01_rb,3.5014e-01_rb,3.8817e-01_rb,4.3541e-01_rb,5.0377e-01_rb/)\n      kbo(:,40,10) = (/ &\n     &2.7524e-01_rb,3.0717e-01_rb,3.4405e-01_rb,3.8385e-01_rb,4.3866e-01_rb/)\n      kbo(:,41,10) = (/ &\n     &2.4392e-01_rb,2.7163e-01_rb,3.0427e-01_rb,3.4320e-01_rb,3.8763e-01_rb/)\n      kbo(:,42,10) = (/ &\n     &2.1672e-01_rb,2.4359e-01_rb,2.7030e-01_rb,3.0489e-01_rb,3.4816e-01_rb/)\n      kbo(:,43,10) = (/ &\n     &1.9366e-01_rb,2.1755e-01_rb,2.4331e-01_rb,2.6943e-01_rb,3.1064e-01_rb/)\n      kbo(:,44,10) = (/ &\n     &1.7412e-01_rb,1.9505e-01_rb,2.1790e-01_rb,2.4485e-01_rb,2.7503e-01_rb/)\n      kbo(:,45,10) = (/ &\n     &1.5640e-01_rb,1.7593e-01_rb,1.9695e-01_rb,2.2100e-01_rb,2.4918e-01_rb/)\n      kbo(:,46,10) = (/ &\n     &1.3989e-01_rb,1.5897e-01_rb,1.7897e-01_rb,2.0081e-01_rb,2.2644e-01_rb/)\n      kbo(:,47,10) = (/ &\n     &1.2271e-01_rb,1.4204e-01_rb,1.6295e-01_rb,1.8322e-01_rb,2.0661e-01_rb/)\n      kbo(:,48,10) = (/ &\n     &1.0686e-01_rb,1.2583e-01_rb,1.4636e-01_rb,1.6777e-01_rb,1.9011e-01_rb/)\n      kbo(:,49,10) = (/ &\n     &9.3685e-02_rb,1.1078e-01_rb,1.3130e-01_rb,1.5261e-01_rb,1.7455e-01_rb/)\n      kbo(:,50,10) = (/ &\n     &8.2656e-02_rb,9.8591e-02_rb,1.1744e-01_rb,1.3916e-01_rb,1.6129e-01_rb/)\n      kbo(:,51,10) = (/ &\n     &7.2693e-02_rb,8.8183e-02_rb,1.0575e-01_rb,1.2537e-01_rb,1.4856e-01_rb/)\n      kbo(:,52,10) = (/ &\n     &6.4048e-02_rb,7.9108e-02_rb,9.5503e-02_rb,1.1470e-01_rb,1.3627e-01_rb/)\n      kbo(:,53,10) = (/ &\n     &5.5496e-02_rb,7.0682e-02_rb,8.5938e-02_rb,1.0406e-01_rb,1.2637e-01_rb/)\n      kbo(:,54,10) = (/ &\n     &4.9035e-02_rb,6.2876e-02_rb,7.7887e-02_rb,9.5399e-02_rb,1.1721e-01_rb/)\n      kbo(:,55,10) = (/ &\n     &4.3446e-02_rb,5.6855e-02_rb,7.1213e-02_rb,8.8342e-02_rb,1.0826e-01_rb/)\n      kbo(:,56,10) = (/ &\n     &3.8859e-02_rb,5.1445e-02_rb,6.5981e-02_rb,8.2010e-02_rb,1.0158e-01_rb/)\n      kbo(:,57,10) = (/ &\n     &3.5022e-02_rb,4.6988e-02_rb,6.1022e-02_rb,7.6424e-02_rb,9.5735e-02_rb/)\n      kbo(:,58,10) = (/ &\n     &3.1909e-02_rb,4.3092e-02_rb,5.6695e-02_rb,7.2335e-02_rb,9.0564e-02_rb/)\n      kbo(:,59,10) = (/ &\n     &3.0556e-02_rb,4.1959e-02_rb,5.5206e-02_rb,7.1568e-02_rb,9.0259e-02_rb/)\n      kbo(:,13,11) = (/ &\n     &1.9005e+01_rb,2.1823e+01_rb,2.4335e+01_rb,2.6560e+01_rb,2.8649e+01_rb/)\n      kbo(:,14,11) = (/ &\n     &1.8043e+01_rb,2.0403e+01_rb,2.2563e+01_rb,2.4639e+01_rb,2.6669e+01_rb/)\n      kbo(:,15,11) = (/ &\n     &1.6503e+01_rb,1.8586e+01_rb,2.0593e+01_rb,2.2552e+01_rb,2.4342e+01_rb/)\n      kbo(:,16,11) = (/ &\n     &1.4859e+01_rb,1.6766e+01_rb,1.8612e+01_rb,2.0317e+01_rb,2.1884e+01_rb/)\n      kbo(:,17,11) = (/ &\n     &1.3269e+01_rb,1.4973e+01_rb,1.6543e+01_rb,1.8024e+01_rb,1.9429e+01_rb/)\n      kbo(:,18,11) = (/ &\n     &1.1718e+01_rb,1.3157e+01_rb,1.4545e+01_rb,1.5849e+01_rb,1.7039e+01_rb/)\n      kbo(:,19,11) = (/ &\n     &1.0207e+01_rb,1.1484e+01_rb,1.2680e+01_rb,1.3769e+01_rb,1.4775e+01_rb/)\n      kbo(:,20,11) = (/ &\n     &8.8979e+00_rb,9.9836e+00_rb,1.0976e+01_rb,1.1897e+01_rb,1.2806e+01_rb/)\n      kbo(:,21,11) = (/ &\n     &7.7345e+00_rb,8.6287e+00_rb,9.4674e+00_rb,1.0308e+01_rb,1.1126e+01_rb/)\n      kbo(:,22,11) = (/ &\n     &6.7360e+00_rb,7.4922e+00_rb,8.2529e+00_rb,8.9982e+00_rb,9.7172e+00_rb/)\n      kbo(:,23,11) = (/ &\n     &5.8386e+00_rb,6.5155e+00_rb,7.1951e+00_rb,7.8490e+00_rb,8.4500e+00_rb/)\n      kbo(:,24,11) = (/ &\n     &5.0807e+00_rb,5.6843e+00_rb,6.2699e+00_rb,6.8121e+00_rb,7.3100e+00_rb/)\n      kbo(:,25,11) = (/ &\n     &4.4422e+00_rb,4.9643e+00_rb,5.4499e+00_rb,5.8998e+00_rb,6.3372e+00_rb/)\n      kbo(:,26,11) = (/ &\n     &3.9004e+00_rb,4.3334e+00_rb,4.7344e+00_rb,5.1243e+00_rb,5.5060e+00_rb/)\n      kbo(:,27,11) = (/ &\n     &3.4204e+00_rb,3.7816e+00_rb,4.1294e+00_rb,4.4714e+00_rb,4.7992e+00_rb/)\n      kbo(:,28,11) = (/ &\n     &2.9981e+00_rb,3.3076e+00_rb,3.6130e+00_rb,3.9107e+00_rb,4.1979e+00_rb/)\n      kbo(:,29,11) = (/ &\n     &2.6272e+00_rb,2.9045e+00_rb,3.1705e+00_rb,3.4300e+00_rb,3.6761e+00_rb/)\n      kbo(:,30,11) = (/ &\n     &2.3072e+00_rb,2.5571e+00_rb,2.7905e+00_rb,3.0127e+00_rb,3.2425e+00_rb/)\n      kbo(:,31,11) = (/ &\n     &2.0315e+00_rb,2.2496e+00_rb,2.4602e+00_rb,2.6655e+00_rb,2.8882e+00_rb/)\n      kbo(:,32,11) = (/ &\n     &1.7947e+00_rb,1.9859e+00_rb,2.1751e+00_rb,2.3754e+00_rb,2.5995e+00_rb/)\n      kbo(:,33,11) = (/ &\n     &1.5917e+00_rb,1.7608e+00_rb,1.9393e+00_rb,2.1339e+00_rb,2.3696e+00_rb/)\n      kbo(:,34,11) = (/ &\n     &1.4106e+00_rb,1.5681e+00_rb,1.7384e+00_rb,1.9365e+00_rb,2.1773e+00_rb/)\n      kbo(:,35,11) = (/ &\n     &1.2470e+00_rb,1.3941e+00_rb,1.5593e+00_rb,1.7605e+00_rb,1.9959e+00_rb/)\n      kbo(:,36,11) = (/ &\n     &1.0975e+00_rb,1.2350e+00_rb,1.3953e+00_rb,1.5917e+00_rb,1.8213e+00_rb/)\n      kbo(:,37,11) = (/ &\n     &9.5256e-01_rb,1.0776e+00_rb,1.2351e+00_rb,1.4193e+00_rb,1.6407e+00_rb/)\n      kbo(:,38,11) = (/ &\n     &8.3116e-01_rb,9.4539e-01_rb,1.0963e+00_rb,1.2721e+00_rb,1.4845e+00_rb/)\n      kbo(:,39,11) = (/ &\n     &7.2978e-01_rb,8.3514e-01_rb,9.7338e-01_rb,1.1448e+00_rb,1.3526e+00_rb/)\n      kbo(:,40,11) = (/ &\n     &6.3508e-01_rb,7.2958e-01_rb,8.5453e-01_rb,1.0153e+00_rb,1.2157e+00_rb/)\n      kbo(:,41,11) = (/ &\n     &5.5559e-01_rb,6.3933e-01_rb,7.5266e-01_rb,8.9822e-01_rb,1.0902e+00_rb/)\n      kbo(:,42,11) = (/ &\n     &4.9132e-01_rb,5.6247e-01_rb,6.6545e-01_rb,8.0063e-01_rb,9.7700e-01_rb/)\n      kbo(:,43,11) = (/ &\n     &4.3434e-01_rb,4.9358e-01_rb,5.8232e-01_rb,7.0818e-01_rb,8.6923e-01_rb/)\n      kbo(:,44,11) = (/ &\n     &3.8638e-01_rb,4.3517e-01_rb,5.1097e-01_rb,6.1891e-01_rb,7.7146e-01_rb/)\n      kbo(:,45,11) = (/ &\n     &3.4515e-01_rb,3.9086e-01_rb,4.5155e-01_rb,5.4453e-01_rb,6.8039e-01_rb/)\n      kbo(:,46,11) = (/ &\n     &3.1047e-01_rb,3.4972e-01_rb,4.0476e-01_rb,4.8078e-01_rb,5.9879e-01_rb/)\n      kbo(:,47,11) = (/ &\n     &2.8096e-01_rb,3.1543e-01_rb,3.6034e-01_rb,4.2515e-01_rb,5.2456e-01_rb/)\n      kbo(:,48,11) = (/ &\n     &2.5443e-01_rb,2.8861e-01_rb,3.2488e-01_rb,3.8074e-01_rb,4.6176e-01_rb/)\n      kbo(:,49,11) = (/ &\n     &2.3075e-01_rb,2.6370e-01_rb,2.9745e-01_rb,3.4508e-01_rb,4.1364e-01_rb/)\n      kbo(:,50,11) = (/ &\n     &2.0955e-01_rb,2.4450e-01_rb,2.7626e-01_rb,3.1515e-01_rb,3.7610e-01_rb/)\n      kbo(:,51,11) = (/ &\n     &1.9162e-01_rb,2.2508e-01_rb,2.5888e-01_rb,2.9434e-01_rb,3.4519e-01_rb/)\n      kbo(:,52,11) = (/ &\n     &1.7326e-01_rb,2.0725e-01_rb,2.4087e-01_rb,2.7521e-01_rb,3.1976e-01_rb/)\n      kbo(:,53,11) = (/ &\n     &1.5761e-01_rb,1.9120e-01_rb,2.2695e-01_rb,2.6019e-01_rb,2.9822e-01_rb/)\n      kbo(:,54,11) = (/ &\n     &1.4365e-01_rb,1.7736e-01_rb,2.1379e-01_rb,2.4744e-01_rb,2.8175e-01_rb/)\n      kbo(:,55,11) = (/ &\n     &1.3037e-01_rb,1.6532e-01_rb,2.0060e-01_rb,2.3640e-01_rb,2.6972e-01_rb/)\n      kbo(:,56,11) = (/ &\n     &1.1768e-01_rb,1.5347e-01_rb,1.8925e-01_rb,2.2636e-01_rb,2.6180e-01_rb/)\n      kbo(:,57,11) = (/ &\n     &1.0584e-01_rb,1.4146e-01_rb,1.7843e-01_rb,2.1611e-01_rb,2.5112e-01_rb/)\n      kbo(:,58,11) = (/ &\n     &9.5443e-02_rb,1.3188e-01_rb,1.6746e-01_rb,2.0707e-01_rb,2.4328e-01_rb/)\n      kbo(:,59,11) = (/ &\n     &9.0897e-02_rb,1.2729e-01_rb,1.6511e-01_rb,2.0322e-01_rb,2.4119e-01_rb/)\n      kbo(:,13,12) = (/ &\n     &3.3504e+01_rb,3.7950e+01_rb,4.2337e+01_rb,4.6726e+01_rb,5.1022e+01_rb/)\n      kbo(:,14,12) = (/ &\n     &3.2726e+01_rb,3.7291e+01_rb,4.1814e+01_rb,4.6223e+01_rb,5.0163e+01_rb/)\n      kbo(:,15,12) = (/ &\n     &3.1900e+01_rb,3.6439e+01_rb,4.0782e+01_rb,4.4671e+01_rb,4.8184e+01_rb/)\n      kbo(:,16,12) = (/ &\n     &3.0776e+01_rb,3.4900e+01_rb,3.8620e+01_rb,4.2065e+01_rb,4.5353e+01_rb/)\n      kbo(:,17,12) = (/ &\n     &2.8746e+01_rb,3.2300e+01_rb,3.5697e+01_rb,3.8925e+01_rb,4.2020e+01_rb/)\n      kbo(:,18,12) = (/ &\n     &2.6146e+01_rb,2.9399e+01_rb,3.2494e+01_rb,3.5494e+01_rb,3.8316e+01_rb/)\n      kbo(:,19,12) = (/ &\n     &2.3524e+01_rb,2.6429e+01_rb,2.9272e+01_rb,3.2000e+01_rb,3.4621e+01_rb/)\n      kbo(:,20,12) = (/ &\n     &2.1002e+01_rb,2.3641e+01_rb,2.6168e+01_rb,2.8626e+01_rb,3.0966e+01_rb/)\n      kbo(:,21,12) = (/ &\n     &1.8638e+01_rb,2.0929e+01_rb,2.3211e+01_rb,2.5404e+01_rb,2.7506e+01_rb/)\n      kbo(:,22,12) = (/ &\n     &1.6511e+01_rb,1.8592e+01_rb,2.0614e+01_rb,2.2575e+01_rb,2.4466e+01_rb/)\n      kbo(:,23,12) = (/ &\n     &1.4666e+01_rb,1.6512e+01_rb,1.8295e+01_rb,2.0007e+01_rb,2.1707e+01_rb/)\n      kbo(:,24,12) = (/ &\n     &1.3045e+01_rb,1.4646e+01_rb,1.6188e+01_rb,1.7728e+01_rb,1.9330e+01_rb/)\n      kbo(:,25,12) = (/ &\n     &1.1583e+01_rb,1.2959e+01_rb,1.4347e+01_rb,1.5799e+01_rb,1.7308e+01_rb/)\n      kbo(:,26,12) = (/ &\n     &1.0289e+01_rb,1.1524e+01_rb,1.2828e+01_rb,1.4195e+01_rb,1.5608e+01_rb/)\n      kbo(:,27,12) = (/ &\n     &9.1629e+00_rb,1.0320e+01_rb,1.1545e+01_rb,1.2818e+01_rb,1.4160e+01_rb/)\n      kbo(:,28,12) = (/ &\n     &8.1951e+00_rb,9.2900e+00_rb,1.0435e+01_rb,1.1638e+01_rb,1.2904e+01_rb/)\n      kbo(:,29,12) = (/ &\n     &7.3862e+00_rb,8.4074e+00_rb,9.4905e+00_rb,1.0629e+01_rb,1.1848e+01_rb/)\n      kbo(:,30,12) = (/ &\n     &6.7112e+00_rb,7.6605e+00_rb,8.6762e+00_rb,9.7816e+00_rb,1.0954e+01_rb/)\n      kbo(:,31,12) = (/ &\n     &6.1419e+00_rb,7.0283e+00_rb,8.0036e+00_rb,9.0662e+00_rb,1.0224e+01_rb/)\n      kbo(:,32,12) = (/ &\n     &5.6561e+00_rb,6.5080e+00_rb,7.4459e+00_rb,8.4904e+00_rb,9.6547e+00_rb/)\n      kbo(:,33,12) = (/ &\n     &5.2496e+00_rb,6.0774e+00_rb,7.0019e+00_rb,8.0523e+00_rb,9.2390e+00_rb/)\n      kbo(:,34,12) = (/ &\n     &4.8878e+00_rb,5.7010e+00_rb,6.6301e+00_rb,7.6985e+00_rb,8.9231e+00_rb/)\n      kbo(:,35,12) = (/ &\n     &4.5253e+00_rb,5.3274e+00_rb,6.2605e+00_rb,7.3465e+00_rb,8.6116e+00_rb/)\n      kbo(:,36,12) = (/ &\n     &4.1488e+00_rb,4.9390e+00_rb,5.8698e+00_rb,6.9625e+00_rb,8.2516e+00_rb/)\n      kbo(:,37,12) = (/ &\n     &3.7312e+00_rb,4.4908e+00_rb,5.4013e+00_rb,6.4804e+00_rb,7.7554e+00_rb/)\n      kbo(:,38,12) = (/ &\n     &3.3680e+00_rb,4.1012e+00_rb,4.9908e+00_rb,6.0547e+00_rb,7.3121e+00_rb/)\n      kbo(:,39,12) = (/ &\n     &3.0586e+00_rb,3.7669e+00_rb,4.6363e+00_rb,5.6845e+00_rb,6.9229e+00_rb/)\n      kbo(:,40,12) = (/ &\n     &2.7296e+00_rb,3.4041e+00_rb,4.2320e+00_rb,5.2462e+00_rb,6.4437e+00_rb/)\n      kbo(:,41,12) = (/ &\n     &2.4362e+00_rb,3.0740e+00_rb,3.8624e+00_rb,4.8348e+00_rb,5.9904e+00_rb/)\n      kbo(:,42,12) = (/ &\n     &2.1809e+00_rb,2.7810e+00_rb,3.5324e+00_rb,4.4598e+00_rb,5.5747e+00_rb/)\n      kbo(:,43,12) = (/ &\n     &1.9255e+00_rb,2.4860e+00_rb,3.1917e+00_rb,4.0645e+00_rb,5.1258e+00_rb/)\n      kbo(:,44,12) = (/ &\n     &1.6844e+00_rb,2.2090e+00_rb,2.8652e+00_rb,3.6821e+00_rb,4.6820e+00_rb/)\n      kbo(:,45,12) = (/ &\n     &1.4745e+00_rb,1.9569e+00_rb,2.5696e+00_rb,3.3333e+00_rb,4.2717e+00_rb/)\n      kbo(:,46,12) = (/ &\n     &1.2799e+00_rb,1.7238e+00_rb,2.2842e+00_rb,2.9993e+00_rb,3.8727e+00_rb/)\n      kbo(:,47,12) = (/ &\n     &1.0954e+00_rb,1.4926e+00_rb,2.0054e+00_rb,2.6579e+00_rb,3.4668e+00_rb/)\n      kbo(:,48,12) = (/ &\n     &9.3943e-01_rb,1.2870e+00_rb,1.7558e+00_rb,2.3470e+00_rb,3.0956e+00_rb/)\n      kbo(:,49,12) = (/ &\n     &8.0789e-01_rb,1.1100e+00_rb,1.5297e+00_rb,2.0665e+00_rb,2.7506e+00_rb/)\n      kbo(:,50,12) = (/ &\n     &7.0633e-01_rb,9.6173e-01_rb,1.3381e+00_rb,1.8318e+00_rb,2.4528e+00_rb/)\n      kbo(:,51,12) = (/ &\n     &6.2380e-01_rb,8.4012e-01_rb,1.1696e+00_rb,1.6208e+00_rb,2.1914e+00_rb/)\n      kbo(:,52,12) = (/ &\n     &5.6356e-01_rb,7.3733e-01_rb,1.0234e+00_rb,1.4290e+00_rb,1.9532e+00_rb/)\n      kbo(:,53,12) = (/ &\n     &5.0909e-01_rb,6.5068e-01_rb,8.9219e-01_rb,1.2539e+00_rb,1.7345e+00_rb/)\n      kbo(:,54,12) = (/ &\n     &4.6136e-01_rb,5.8883e-01_rb,7.8810e-01_rb,1.1078e+00_rb,1.5488e+00_rb/)\n      kbo(:,55,12) = (/ &\n     &4.1950e-01_rb,5.3756e-01_rb,7.0213e-01_rb,9.8100e-01_rb,1.3825e+00_rb/)\n      kbo(:,56,12) = (/ &\n     &3.8410e-01_rb,4.8996e-01_rb,6.3016e-01_rb,8.6652e-01_rb,1.2252e+00_rb/)\n      kbo(:,57,12) = (/ &\n     &3.5624e-01_rb,4.4831e-01_rb,5.7215e-01_rb,7.6572e-01_rb,1.0848e+00_rb/)\n      kbo(:,58,12) = (/ &\n     &3.2868e-01_rb,4.1829e-01_rb,5.2553e-01_rb,6.8368e-01_rb,9.6165e-01_rb/)\n      kbo(:,59,12) = (/ &\n     &3.1733e-01_rb,4.0674e-01_rb,5.0354e-01_rb,6.5575e-01_rb,9.0743e-01_rb/)\n      kbo(:,13,13) = (/ &\n     &6.3252e+01_rb,7.1343e+01_rb,7.9418e+01_rb,8.6956e+01_rb,9.3893e+01_rb/)\n      kbo(:,14,13) = (/ &\n     &6.4432e+01_rb,7.3277e+01_rb,8.1636e+01_rb,8.9410e+01_rb,9.6695e+01_rb/)\n      kbo(:,15,13) = (/ &\n     &6.5832e+01_rb,7.4648e+01_rb,8.2893e+01_rb,9.0741e+01_rb,9.8138e+01_rb/)\n      kbo(:,16,13) = (/ &\n     &6.5929e+01_rb,7.4500e+01_rb,8.2870e+01_rb,9.0803e+01_rb,9.8296e+01_rb/)\n      kbo(:,17,13) = (/ &\n     &6.5097e+01_rb,7.3774e+01_rb,8.2069e+01_rb,9.0039e+01_rb,9.7697e+01_rb/)\n      kbo(:,18,13) = (/ &\n     &6.3876e+01_rb,7.2341e+01_rb,8.0612e+01_rb,8.8540e+01_rb,9.6103e+01_rb/)\n      kbo(:,19,13) = (/ &\n     &6.1808e+01_rb,7.0129e+01_rb,7.8103e+01_rb,8.5721e+01_rb,9.2920e+01_rb/)\n      kbo(:,20,13) = (/ &\n     &5.9337e+01_rb,6.7178e+01_rb,7.4740e+01_rb,8.1921e+01_rb,8.8860e+01_rb/)\n      kbo(:,21,13) = (/ &\n     &5.6051e+01_rb,6.3423e+01_rb,7.0500e+01_rb,7.7416e+01_rb,8.4103e+01_rb/)\n      kbo(:,22,13) = (/ &\n     &5.2578e+01_rb,5.9410e+01_rb,6.6220e+01_rb,7.2967e+01_rb,7.9639e+01_rb/)\n      kbo(:,23,13) = (/ &\n     &4.8800e+01_rb,5.5307e+01_rb,6.1937e+01_rb,6.8633e+01_rb,7.5406e+01_rb/)\n      kbo(:,24,13) = (/ &\n     &4.5172e+01_rb,5.1522e+01_rb,5.8057e+01_rb,6.4742e+01_rb,7.1436e+01_rb/)\n      kbo(:,25,13) = (/ &\n     &4.2002e+01_rb,4.8199e+01_rb,5.4646e+01_rb,6.1219e+01_rb,6.7880e+01_rb/)\n      kbo(:,26,13) = (/ &\n     &3.9325e+01_rb,4.5395e+01_rb,5.1713e+01_rb,5.8235e+01_rb,6.4961e+01_rb/)\n      kbo(:,27,13) = (/ &\n     &3.7049e+01_rb,4.2989e+01_rb,4.9236e+01_rb,5.5807e+01_rb,6.2667e+01_rb/)\n      kbo(:,28,13) = (/ &\n     &3.5161e+01_rb,4.0996e+01_rb,4.7272e+01_rb,5.3955e+01_rb,6.1012e+01_rb/)\n      kbo(:,29,13) = (/ &\n     &3.3638e+01_rb,3.9504e+01_rb,4.5884e+01_rb,5.2759e+01_rb,6.0034e+01_rb/)\n      kbo(:,30,13) = (/ &\n     &3.2492e+01_rb,3.8479e+01_rb,4.5047e+01_rb,5.2111e+01_rb,5.9617e+01_rb/)\n      kbo(:,31,13) = (/ &\n     &3.1781e+01_rb,3.7957e+01_rb,4.4719e+01_rb,5.2013e+01_rb,5.9720e+01_rb/)\n      kbo(:,32,13) = (/ &\n     &3.1516e+01_rb,3.7888e+01_rb,4.4882e+01_rb,5.2382e+01_rb,6.0245e+01_rb/)\n      kbo(:,33,13) = (/ &\n     &3.1641e+01_rb,3.8231e+01_rb,4.5439e+01_rb,5.3118e+01_rb,6.1113e+01_rb/)\n      kbo(:,34,13) = (/ &\n     &3.1881e+01_rb,3.8668e+01_rb,4.6052e+01_rb,5.3873e+01_rb,6.1967e+01_rb/)\n      kbo(:,35,13) = (/ &\n     &3.1765e+01_rb,3.8677e+01_rb,4.6167e+01_rb,5.4068e+01_rb,6.2237e+01_rb/)\n      kbo(:,36,13) = (/ &\n     &3.1127e+01_rb,3.8083e+01_rb,4.5619e+01_rb,5.3554e+01_rb,6.1754e+01_rb/)\n      kbo(:,37,13) = (/ &\n     &2.9631e+01_rb,3.6533e+01_rb,4.4019e+01_rb,5.1934e+01_rb,6.0138e+01_rb/)\n      kbo(:,38,13) = (/ &\n     &2.8216e+01_rb,3.5039e+01_rb,4.2468e+01_rb,5.0350e+01_rb,5.8547e+01_rb/)\n      kbo(:,39,13) = (/ &\n     &2.6913e+01_rb,3.3654e+01_rb,4.1024e+01_rb,4.8851e+01_rb,5.7030e+01_rb/)\n      kbo(:,40,13) = (/ &\n     &2.5061e+01_rb,3.1637e+01_rb,3.8879e+01_rb,4.6620e+01_rb,5.4739e+01_rb/)\n      kbo(:,41,13) = (/ &\n     &2.3239e+01_rb,2.9632e+01_rb,3.6721e+01_rb,4.4349e+01_rb,5.2395e+01_rb/)\n      kbo(:,42,13) = (/ &\n     &2.1518e+01_rb,2.7714e+01_rb,3.4638e+01_rb,4.2154e+01_rb,5.0111e+01_rb/)\n      kbo(:,43,13) = (/ &\n     &1.9578e+01_rb,2.5525e+01_rb,3.2232e+01_rb,3.9588e+01_rb,4.7417e+01_rb/)\n      kbo(:,44,13) = (/ &\n     &1.7631e+01_rb,2.3285e+01_rb,2.9750e+01_rb,3.6914e+01_rb,4.4596e+01_rb/)\n      kbo(:,45,13) = (/ &\n     &1.5817e+01_rb,2.1168e+01_rb,2.7372e+01_rb,3.4312e+01_rb,4.1842e+01_rb/)\n      kbo(:,46,13) = (/ &\n     &1.4031e+01_rb,1.9049e+01_rb,2.4960e+01_rb,3.1648e+01_rb,3.8993e+01_rb/)\n      kbo(:,47,13) = (/ &\n     &1.2204e+01_rb,1.6850e+01_rb,2.2409e+01_rb,2.8797e+01_rb,3.5899e+01_rb/)\n      kbo(:,48,13) = (/ &\n     &1.0543e+01_rb,1.4813e+01_rb,2.0005e+01_rb,2.6074e+01_rb,3.2906e+01_rb/)\n      kbo(:,49,13) = (/ &\n     &9.0410e+00_rb,1.2940e+01_rb,1.7763e+01_rb,2.3491e+01_rb,3.0027e+01_rb/)\n      kbo(:,50,13) = (/ &\n     &7.7723e+00_rb,1.1328e+01_rb,1.5799e+01_rb,2.1188e+01_rb,2.7436e+01_rb/)\n      kbo(:,51,13) = (/ &\n     &6.6603e+00_rb,9.8956e+00_rb,1.4031e+01_rb,1.9082e+01_rb,2.5030e+01_rb/)\n      kbo(:,52,13) = (/ &\n     &5.6483e+00_rb,8.5936e+00_rb,1.2389e+01_rb,1.7108e+01_rb,2.2735e+01_rb/)\n      kbo(:,53,13) = (/ &\n     &4.7548e+00_rb,7.4145e+00_rb,1.0879e+01_rb,1.5253e+01_rb,2.0556e+01_rb/)\n      kbo(:,54,13) = (/ &\n     &4.0362e+00_rb,6.4182e+00_rb,9.6047e+00_rb,1.3672e+01_rb,1.8664e+01_rb/)\n      kbo(:,55,13) = (/ &\n     &3.4328e+00_rb,5.5491e+00_rb,8.4816e+00_rb,1.2254e+01_rb,1.6947e+01_rb/)\n      kbo(:,56,13) = (/ &\n     &2.9068e+00_rb,4.7740e+00_rb,7.4485e+00_rb,1.0936e+01_rb,1.5335e+01_rb/)\n      kbo(:,57,13) = (/ &\n     &2.4469e+00_rb,4.0838e+00_rb,6.4921e+00_rb,9.7157e+00_rb,1.3818e+01_rb/)\n      kbo(:,58,13) = (/ &\n     &2.0735e+00_rb,3.4925e+00_rb,5.6637e+00_rb,8.6413e+00_rb,1.2467e+01_rb/)\n      kbo(:,59,13) = (/ &\n     &1.9355e+00_rb,3.2709e+00_rb,5.3499e+00_rb,8.2221e+00_rb,1.1950e+01_rb/)\n      kbo(:,13,14) = (/ &\n     &1.3763e+02_rb,1.5352e+02_rb,1.6709e+02_rb,1.7925e+02_rb,1.9013e+02_rb/)\n      kbo(:,14,14) = (/ &\n     &1.4836e+02_rb,1.6388e+02_rb,1.7793e+02_rb,1.9078e+02_rb,2.0291e+02_rb/)\n      kbo(:,15,14) = (/ &\n     &1.5609e+02_rb,1.7227e+02_rb,1.8754e+02_rb,2.0210e+02_rb,2.1605e+02_rb/)\n      kbo(:,16,14) = (/ &\n     &1.6287e+02_rb,1.8058e+02_rb,1.9742e+02_rb,2.1358e+02_rb,2.2879e+02_rb/)\n      kbo(:,17,14) = (/ &\n     &1.6936e+02_rb,1.8829e+02_rb,2.0654e+02_rb,2.2380e+02_rb,2.3943e+02_rb/)\n      kbo(:,18,14) = (/ &\n     &1.7409e+02_rb,1.9426e+02_rb,2.1359e+02_rb,2.3157e+02_rb,2.4840e+02_rb/)\n      kbo(:,19,14) = (/ &\n     &1.7751e+02_rb,1.9877e+02_rb,2.1900e+02_rb,2.3829e+02_rb,2.5666e+02_rb/)\n      kbo(:,20,14) = (/ &\n     &1.8029e+02_rb,2.0255e+02_rb,2.2414e+02_rb,2.4492e+02_rb,2.6421e+02_rb/)\n      kbo(:,21,14) = (/ &\n     &1.8288e+02_rb,2.0645e+02_rb,2.2930e+02_rb,2.5080e+02_rb,2.7109e+02_rb/)\n      kbo(:,22,14) = (/ &\n     &1.8758e+02_rb,2.1208e+02_rb,2.3543e+02_rb,2.5750e+02_rb,2.7832e+02_rb/)\n      kbo(:,23,14) = (/ &\n     &1.9239e+02_rb,2.1719e+02_rb,2.4091e+02_rb,2.6350e+02_rb,2.8469e+02_rb/)\n      kbo(:,24,14) = (/ &\n     &1.9651e+02_rb,2.2173e+02_rb,2.4591e+02_rb,2.6890e+02_rb,2.9066e+02_rb/)\n      kbo(:,25,14) = (/ &\n     &2.0022e+02_rb,2.2597e+02_rb,2.5071e+02_rb,2.7426e+02_rb,2.9648e+02_rb/)\n      kbo(:,26,14) = (/ &\n     &2.0417e+02_rb,2.3049e+02_rb,2.5589e+02_rb,2.7996e+02_rb,3.0257e+02_rb/)\n      kbo(:,27,14) = (/ &\n     &2.0832e+02_rb,2.3518e+02_rb,2.6110e+02_rb,2.8565e+02_rb,3.0854e+02_rb/)\n      kbo(:,28,14) = (/ &\n     &2.1279e+02_rb,2.4021e+02_rb,2.6653e+02_rb,2.9138e+02_rb,3.1446e+02_rb/)\n      kbo(:,29,14) = (/ &\n     &2.1796e+02_rb,2.4575e+02_rb,2.7237e+02_rb,2.9736e+02_rb,3.2050e+02_rb/)\n      kbo(:,30,14) = (/ &\n     &2.2364e+02_rb,2.5171e+02_rb,2.7842e+02_rb,3.0343e+02_rb,3.2655e+02_rb/)\n      kbo(:,31,14) = (/ &\n     &2.2986e+02_rb,2.5803e+02_rb,2.8476e+02_rb,3.0967e+02_rb,3.3263e+02_rb/)\n      kbo(:,32,14) = (/ &\n     &2.3644e+02_rb,2.6463e+02_rb,2.9123e+02_rb,3.1599e+02_rb,3.3870e+02_rb/)\n      kbo(:,33,14) = (/ &\n     &2.4330e+02_rb,2.7142e+02_rb,2.9784e+02_rb,3.2234e+02_rb,3.4468e+02_rb/)\n      kbo(:,34,14) = (/ &\n     &2.4932e+02_rb,2.7733e+02_rb,3.0352e+02_rb,3.2779e+02_rb,3.4977e+02_rb/)\n      kbo(:,35,14) = (/ &\n     &2.5266e+02_rb,2.8063e+02_rb,3.0678e+02_rb,3.3096e+02_rb,3.5278e+02_rb/)\n      kbo(:,36,14) = (/ &\n     &2.5297e+02_rb,2.8101e+02_rb,3.0732e+02_rb,3.3158e+02_rb,3.5352e+02_rb/)\n      kbo(:,37,14) = (/ &\n     &2.4886e+02_rb,2.7734e+02_rb,3.0396e+02_rb,3.2863e+02_rb,3.5100e+02_rb/)\n      kbo(:,38,14) = (/ &\n     &2.4449e+02_rb,2.7331e+02_rb,3.0032e+02_rb,3.2535e+02_rb,3.4818e+02_rb/)\n      kbo(:,39,14) = (/ &\n     &2.4014e+02_rb,2.6925e+02_rb,2.9663e+02_rb,3.2206e+02_rb,3.4524e+02_rb/)\n      kbo(:,40,14) = (/ &\n     &2.3269e+02_rb,2.6223e+02_rb,2.9013e+02_rb,3.1615e+02_rb,3.3997e+02_rb/)\n      kbo(:,41,14) = (/ &\n     &2.2477e+02_rb,2.5475e+02_rb,2.8316e+02_rb,3.0972e+02_rb,3.3417e+02_rb/)\n      kbo(:,42,14) = (/ &\n     &2.1674e+02_rb,2.4709e+02_rb,2.7597e+02_rb,3.0309e+02_rb,3.2816e+02_rb/)\n      kbo(:,43,14) = (/ &\n     &2.0690e+02_rb,2.3764e+02_rb,2.6708e+02_rb,2.9483e+02_rb,3.2058e+02_rb/)\n      kbo(:,44,14) = (/ &\n     &1.9620e+02_rb,2.2728e+02_rb,2.5727e+02_rb,2.8565e+02_rb,3.1213e+02_rb/)\n      kbo(:,45,14) = (/ &\n     &1.8544e+02_rb,2.1679e+02_rb,2.4722e+02_rb,2.7624e+02_rb,3.0339e+02_rb/)\n      kbo(:,46,14) = (/ &\n     &1.7394e+02_rb,2.0555e+02_rb,2.3639e+02_rb,2.6594e+02_rb,2.9386e+02_rb/)\n      kbo(:,47,14) = (/ &\n     &1.6112e+02_rb,1.9279e+02_rb,2.2405e+02_rb,2.5421e+02_rb,2.8283e+02_rb/)\n      kbo(:,48,14) = (/ &\n     &1.4837e+02_rb,1.8000e+02_rb,2.1155e+02_rb,2.4220e+02_rb,2.7155e+02_rb/)\n      kbo(:,49,14) = (/ &\n     &1.3570e+02_rb,1.6720e+02_rb,1.9889e+02_rb,2.3000e+02_rb,2.5992e+02_rb/)\n      kbo(:,50,14) = (/ &\n     &1.2401e+02_rb,1.5522e+02_rb,1.8690e+02_rb,2.1834e+02_rb,2.4877e+02_rb/)\n      kbo(:,51,14) = (/ &\n     &1.1285e+02_rb,1.4368e+02_rb,1.7528e+02_rb,2.0692e+02_rb,2.3777e+02_rb/)\n      kbo(:,52,14) = (/ &\n     &1.0205e+02_rb,1.3225e+02_rb,1.6371e+02_rb,1.9541e+02_rb,2.2663e+02_rb/)\n      kbo(:,53,14) = (/ &\n     &9.1561e+01_rb,1.2094e+02_rb,1.5208e+02_rb,1.8381e+02_rb,2.1529e+02_rb/)\n      kbo(:,54,14) = (/ &\n     &8.2288e+01_rb,1.1082e+02_rb,1.4154e+02_rb,1.7313e+02_rb,2.0480e+02_rb/)\n      kbo(:,55,14) = (/ &\n     &7.3729e+01_rb,1.0135e+02_rb,1.3152e+02_rb,1.6297e+02_rb,1.9471e+02_rb/)\n      kbo(:,56,14) = (/ &\n     &6.5504e+01_rb,9.2170e+01_rb,1.2164e+02_rb,1.5283e+02_rb,1.8453e+02_rb/)\n      kbo(:,57,14) = (/ &\n     &5.7661e+01_rb,8.3295e+01_rb,1.1195e+02_rb,1.4273e+02_rb,1.7435e+02_rb/)\n      kbo(:,58,14) = (/ &\n     &5.0636e+01_rb,7.5168e+01_rb,1.0296e+02_rb,1.3321e+02_rb,1.6472e+02_rb/)\n      kbo(:,59,14) = (/ &\n     &4.7932e+01_rb,7.1971e+01_rb,9.9421e+01_rb,1.2944e+02_rb,1.6088e+02_rb/)\n      kbo(:,13,15) = (/ &\n     &2.4469e+02_rb,2.6735e+02_rb,2.9101e+02_rb,3.1438e+02_rb,3.3674e+02_rb/)\n      kbo(:,14,15) = (/ &\n     &2.8094e+02_rb,3.0921e+02_rb,3.3701e+02_rb,3.6348e+02_rb,3.8824e+02_rb/)\n      kbo(:,15,15) = (/ &\n     &3.2313e+02_rb,3.5640e+02_rb,3.8804e+02_rb,4.1754e+02_rb,4.4448e+02_rb/)\n      kbo(:,16,15) = (/ &\n     &3.6992e+02_rb,4.0761e+02_rb,4.4269e+02_rb,4.7470e+02_rb,5.0364e+02_rb/)\n      kbo(:,17,15) = (/ &\n     &4.1926e+02_rb,4.6079e+02_rb,4.9879e+02_rb,5.3327e+02_rb,5.6513e+02_rb/)\n      kbo(:,18,15) = (/ &\n     &4.7156e+02_rb,5.1653e+02_rb,5.5718e+02_rb,5.9454e+02_rb,6.2828e+02_rb/)\n      kbo(:,19,15) = (/ &\n     &5.2525e+02_rb,5.7308e+02_rb,6.1700e+02_rb,6.5663e+02_rb,6.9127e+02_rb/)\n      kbo(:,20,15) = (/ &\n     &5.7876e+02_rb,6.2973e+02_rb,6.7595e+02_rb,7.1709e+02_rb,7.5345e+02_rb/)\n      kbo(:,21,15) = (/ &\n     &6.2988e+02_rb,6.8342e+02_rb,7.3148e+02_rb,7.7494e+02_rb,8.1239e+02_rb/)\n      kbo(:,22,15) = (/ &\n     &6.8118e+02_rb,7.3681e+02_rb,7.8702e+02_rb,8.3157e+02_rb,8.6949e+02_rb/)\n      kbo(:,23,15) = (/ &\n     &7.2944e+02_rb,7.8796e+02_rb,8.3973e+02_rb,8.8478e+02_rb,9.2278e+02_rb/)\n      kbo(:,24,15) = (/ &\n     &7.7652e+02_rb,8.3661e+02_rb,8.8931e+02_rb,9.3457e+02_rb,9.7211e+02_rb/)\n      kbo(:,25,15) = (/ &\n     &8.2208e+02_rb,8.8322e+02_rb,9.3559e+02_rb,9.8038e+02_rb,1.0170e+03_rb/)\n      kbo(:,26,15) = (/ &\n     &8.6654e+02_rb,9.2755e+02_rb,9.7898e+02_rb,1.0223e+03_rb,1.0574e+03_rb/)\n      kbo(:,27,15) = (/ &\n     &9.0828e+02_rb,9.6846e+02_rb,1.0184e+03_rb,1.0599e+03_rb,1.0932e+03_rb/)\n      kbo(:,28,15) = (/ &\n     &9.4716e+02_rb,1.0058e+03_rb,1.0539e+03_rb,1.0933e+03_rb,1.1247e+03_rb/)\n      kbo(:,29,15) = (/ &\n     &9.8313e+02_rb,1.0399e+03_rb,1.0858e+03_rb,1.1230e+03_rb,1.1519e+03_rb/)\n      kbo(:,30,15) = (/ &\n     &1.0160e+03_rb,1.0704e+03_rb,1.1141e+03_rb,1.1489e+03_rb,1.1756e+03_rb/)\n      kbo(:,31,15) = (/ &\n     &1.0460e+03_rb,1.0956e+03_rb,1.1391e+03_rb,1.1716e+03_rb,1.1960e+03_rb/)\n      kbo(:,32,15) = (/ &\n     &1.0732e+03_rb,1.1224e+03_rb,1.1612e+03_rb,1.1912e+03_rb,1.2136e+03_rb/)\n      kbo(:,33,15) = (/ &\n     &1.0978e+03_rb,1.1441e+03_rb,1.1805e+03_rb,1.2081e+03_rb,1.2287e+03_rb/)\n      kbo(:,34,15) = (/ &\n     &1.1183e+03_rb,1.1622e+03_rb,1.1963e+03_rb,1.2219e+03_rb,1.2409e+03_rb/)\n      kbo(:,35,15) = (/ &\n     &1.1319e+03_rb,1.1747e+03_rb,1.2074e+03_rb,1.2320e+03_rb,1.2497e+03_rb/)\n      kbo(:,36,15) = (/ &\n     &1.1393e+03_rb,1.1815e+03_rb,1.2141e+03_rb,1.2383e+03_rb,1.2557e+03_rb/)\n      kbo(:,37,15) = (/ &\n     &1.1379e+03_rb,1.1816e+03_rb,1.2154e+03_rb,1.2404e+03_rb,1.2585e+03_rb/)\n      kbo(:,38,15) = (/ &\n     &1.1350e+03_rb,1.1805e+03_rb,1.2153e+03_rb,1.2413e+03_rb,1.2601e+03_rb/)\n      kbo(:,39,15) = (/ &\n     &1.1312e+03_rb,1.1782e+03_rb,1.2145e+03_rb,1.2415e+03_rb,1.2613e+03_rb/)\n      kbo(:,40,15) = (/ &\n     &1.1209e+03_rb,1.1709e+03_rb,1.2094e+03_rb,1.2385e+03_rb,1.2597e+03_rb/)\n      kbo(:,41,15) = (/ &\n     &1.1085e+03_rb,1.1615e+03_rb,1.2028e+03_rb,1.2343e+03_rb,1.2572e+03_rb/)\n      kbo(:,42,15) = (/ &\n     &1.0950e+03_rb,1.1510e+03_rb,1.1953e+03_rb,1.2290e+03_rb,1.2540e+03_rb/)\n      kbo(:,43,15) = (/ &\n     &1.0762e+03_rb,1.1364e+03_rb,1.1842e+03_rb,1.2211e+03_rb,1.2485e+03_rb/)\n      kbo(:,44,15) = (/ &\n     &1.0545e+03_rb,1.1188e+03_rb,1.1706e+03_rb,1.2111e+03_rb,1.2414e+03_rb/)\n      kbo(:,45,15) = (/ &\n     &1.0306e+03_rb,1.0995e+03_rb,1.1556e+03_rb,1.1997e+03_rb,1.2332e+03_rb/)\n      kbo(:,46,15) = (/ &\n     &1.0035e+03_rb,1.0771e+03_rb,1.1376e+03_rb,1.1860e+03_rb,1.2231e+03_rb/)\n      kbo(:,47,15) = (/ &\n     &9.7068e+02_rb,1.0499e+03_rb,1.1155e+03_rb,1.1686e+03_rb,1.2101e+03_rb/)\n      kbo(:,48,15) = (/ &\n     &9.3560e+02_rb,1.0200e+03_rb,1.0913e+03_rb,1.1493e+03_rb,1.1954e+03_rb/)\n      kbo(:,49,15) = (/ &\n     &8.9859e+02_rb,9.8816e+02_rb,1.0648e+03_rb,1.1280e+03_rb,1.1788e+03_rb/)\n      kbo(:,50,15) = (/ &\n     &8.6187e+02_rb,9.5626e+02_rb,1.0379e+03_rb,1.1061e+03_rb,1.1615e+03_rb/)\n      kbo(:,51,15) = (/ &\n     &8.2436e+02_rb,9.2347e+02_rb,1.0097e+03_rb,1.0831e+03_rb,1.1429e+03_rb/)\n      kbo(:,52,15) = (/ &\n     &7.8552e+02_rb,8.8919e+02_rb,9.8012e+02_rb,1.0582e+03_rb,1.1227e+03_rb/)\n      kbo(:,53,15) = (/ &\n     &7.4472e+02_rb,8.5281e+02_rb,9.4852e+02_rb,1.0314e+03_rb,1.1008e+03_rb/)\n      kbo(:,54,15) = (/ &\n     &7.0603e+02_rb,8.1807e+02_rb,9.1796e+02_rb,1.0053e+03_rb,1.0792e+03_rb/)\n      kbo(:,55,15) = (/ &\n     &6.6818e+02_rb,7.8362e+02_rb,8.8753e+02_rb,9.7880e+02_rb,1.0572e+03_rb/)\n      kbo(:,56,15) = (/ &\n     &6.2949e+02_rb,7.4771e+02_rb,8.5573e+02_rb,9.5104e+02_rb,1.0336e+03_rb/)\n      kbo(:,57,15) = (/ &\n     &5.9013e+02_rb,7.1102e+02_rb,8.2256e+02_rb,9.2198e+02_rb,1.0088e+03_rb/)\n      kbo(:,58,15) = (/ &\n     &5.5222e+02_rb,6.7509e+02_rb,7.8994e+02_rb,8.9322e+02_rb,9.8385e+02_rb/)\n      kbo(:,59,15) = (/ &\n     &5.3696e+02_rb,6.6055e+02_rb,7.7661e+02_rb,8.8142e+02_rb,9.7364e+02_rb/)\n      kbo(:,13,16) = (/ &\n     &4.2045e+02_rb,4.6429e+02_rb,5.0303e+02_rb,5.3671e+02_rb,5.6546e+02_rb/)\n      kbo(:,14,16) = (/ &\n     &5.0808e+02_rb,5.5889e+02_rb,6.0315e+02_rb,6.4104e+02_rb,6.7319e+02_rb/)\n      kbo(:,15,16) = (/ &\n     &6.0971e+02_rb,6.6729e+02_rb,7.1666e+02_rb,7.5857e+02_rb,7.9337e+02_rb/)\n      kbo(:,16,16) = (/ &\n     &7.2443e+02_rb,7.8825e+02_rb,8.4219e+02_rb,8.8727e+02_rb,9.2382e+02_rb/)\n      kbo(:,17,16) = (/ &\n     &8.5000e+02_rb,9.1908e+02_rb,9.7683e+02_rb,1.0239e+03_rb,1.0613e+03_rb/)\n      kbo(:,18,16) = (/ &\n     &9.8305e+02_rb,1.0566e+03_rb,1.1167e+03_rb,1.1645e+03_rb,1.2017e+03_rb/)\n      kbo(:,19,16) = (/ &\n     &1.1204e+03_rb,1.1968e+03_rb,1.2579e+03_rb,1.3058e+03_rb,1.3449e+03_rb/)\n      kbo(:,20,16) = (/ &\n     &1.2624e+03_rb,1.3419e+03_rb,1.4045e+03_rb,1.4519e+03_rb,1.4914e+03_rb/)\n      kbo(:,21,16) = (/ &\n     &1.4128e+03_rb,1.4938e+03_rb,1.5557e+03_rb,1.6009e+03_rb,1.6375e+03_rb/)\n      kbo(:,22,16) = (/ &\n     &1.5738e+03_rb,1.6513e+03_rb,1.7095e+03_rb,1.7503e+03_rb,1.7825e+03_rb/)\n      kbo(:,23,16) = (/ &\n     &1.7348e+03_rb,1.8057e+03_rb,1.8583e+03_rb,1.8939e+03_rb,1.9201e+03_rb/)\n      kbo(:,24,16) = (/ &\n     &1.8918e+03_rb,1.9538e+03_rb,1.9990e+03_rb,2.0285e+03_rb,2.0481e+03_rb/)\n      kbo(:,25,16) = (/ &\n     &2.0394e+03_rb,2.0915e+03_rb,2.1288e+03_rb,2.1514e+03_rb,2.1633e+03_rb/)\n      kbo(:,26,16) = (/ &\n     &2.1757e+03_rb,2.2166e+03_rb,2.2458e+03_rb,2.2605e+03_rb,2.2652e+03_rb/)\n      kbo(:,27,16) = (/ &\n     &2.2965e+03_rb,2.3277e+03_rb,2.3485e+03_rb,2.3546e+03_rb,2.3529e+03_rb/)\n      kbo(:,28,16) = (/ &\n     &2.4019e+03_rb,2.4242e+03_rb,2.4364e+03_rb,2.4355e+03_rb,2.4262e+03_rb/)\n      kbo(:,29,16) = (/ &\n     &2.4918e+03_rb,2.5053e+03_rb,2.5101e+03_rb,2.5025e+03_rb,2.4871e+03_rb/)\n      kbo(:,30,16) = (/ &\n     &2.5673e+03_rb,2.5738e+03_rb,2.5706e+03_rb,2.5574e+03_rb,2.5361e+03_rb/)\n      kbo(:,31,16) = (/ &\n     &2.6301e+03_rb,2.6241e+03_rb,2.6201e+03_rb,2.6003e+03_rb,2.5741e+03_rb/)\n      kbo(:,32,16) = (/ &\n     &2.6807e+03_rb,2.6744e+03_rb,2.6583e+03_rb,2.6342e+03_rb,2.6035e+03_rb/)\n      kbo(:,33,16) = (/ &\n     &2.7216e+03_rb,2.7096e+03_rb,2.6883e+03_rb,2.6595e+03_rb,2.6244e+03_rb/)\n      kbo(:,34,16) = (/ &\n     &2.7530e+03_rb,2.7368e+03_rb,2.7115e+03_rb,2.6793e+03_rb,2.6415e+03_rb/)\n      kbo(:,35,16) = (/ &\n     &2.7800e+03_rb,2.7599e+03_rb,2.7318e+03_rb,2.6972e+03_rb,2.6568e+03_rb/)\n      kbo(:,36,16) = (/ &\n     &2.8032e+03_rb,2.7809e+03_rb,2.7511e+03_rb,2.7149e+03_rb,2.6728e+03_rb/)\n      kbo(:,37,16) = (/ &\n     &2.8255e+03_rb,2.8022e+03_rb,2.7720e+03_rb,2.7352e+03_rb,2.6929e+03_rb/)\n      kbo(:,38,16) = (/ &\n     &2.8447e+03_rb,2.8207e+03_rb,2.7907e+03_rb,2.7534e+03_rb,2.7108e+03_rb/)\n      kbo(:,39,16) = (/ &\n     &2.8614e+03_rb,2.8371e+03_rb,2.8072e+03_rb,2.7697e+03_rb,2.7272e+03_rb/)\n      kbo(:,40,16) = (/ &\n     &2.8775e+03_rb,2.8542e+03_rb,2.8246e+03_rb,2.7882e+03_rb,2.7463e+03_rb/)\n      kbo(:,41,16) = (/ &\n     &2.8919e+03_rb,2.8698e+03_rb,2.8410e+03_rb,2.8060e+03_rb,2.7644e+03_rb/)\n      kbo(:,42,16) = (/ &\n     &2.9035e+03_rb,2.8842e+03_rb,2.8555e+03_rb,2.8221e+03_rb,2.7810e+03_rb/)\n      kbo(:,43,16) = (/ &\n     &2.9142e+03_rb,2.8974e+03_rb,2.8713e+03_rb,2.8381e+03_rb,2.7994e+03_rb/)\n      kbo(:,44,16) = (/ &\n     &2.9225e+03_rb,2.9100e+03_rb,2.8852e+03_rb,2.8542e+03_rb,2.8174e+03_rb/)\n      kbo(:,45,16) = (/ &\n     &2.9284e+03_rb,2.9199e+03_rb,2.8988e+03_rb,2.8699e+03_rb,2.8343e+03_rb/)\n      kbo(:,46,16) = (/ &\n     &2.9312e+03_rb,2.9287e+03_rb,2.9114e+03_rb,2.8839e+03_rb,2.8514e+03_rb/)\n      kbo(:,47,16) = (/ &\n     &2.9278e+03_rb,2.9353e+03_rb,2.9229e+03_rb,2.8988e+03_rb,2.8673e+03_rb/)\n      kbo(:,48,16) = (/ &\n     &2.9198e+03_rb,2.9382e+03_rb,2.9322e+03_rb,2.9123e+03_rb,2.8825e+03_rb/)\n      kbo(:,49,16) = (/ &\n     &2.9055e+03_rb,2.9369e+03_rb,2.9391e+03_rb,2.9238e+03_rb,2.8967e+03_rb/)\n      kbo(:,50,16) = (/ &\n     &2.8866e+03_rb,2.9312e+03_rb,2.9427e+03_rb,2.9328e+03_rb,2.9100e+03_rb/)\n      kbo(:,51,16) = (/ &\n     &2.8621e+03_rb,2.9209e+03_rb,2.9426e+03_rb,2.9399e+03_rb,2.9204e+03_rb/)\n      kbo(:,52,16) = (/ &\n     &2.8313e+03_rb,2.9062e+03_rb,2.9403e+03_rb,2.9447e+03_rb,2.9298e+03_rb/)\n      kbo(:,53,16) = (/ &\n     &2.7937e+03_rb,2.8849e+03_rb,2.9330e+03_rb,2.9466e+03_rb,2.9378e+03_rb/)\n      kbo(:,54,16) = (/ &\n     &2.7518e+03_rb,2.8608e+03_rb,2.9213e+03_rb,2.9463e+03_rb,2.9434e+03_rb/)\n      kbo(:,55,16) = (/ &\n     &2.7066e+03_rb,2.8327e+03_rb,2.9070e+03_rb,2.9427e+03_rb,2.9473e+03_rb/)\n      kbo(:,56,16) = (/ &\n     &2.6539e+03_rb,2.7985e+03_rb,2.8885e+03_rb,2.9351e+03_rb,2.9485e+03_rb/)\n      kbo(:,57,16) = (/ &\n     &2.5953e+03_rb,2.7598e+03_rb,2.8651e+03_rb,2.9247e+03_rb,2.9481e+03_rb/)\n      kbo(:,58,16) = (/ &\n     &2.5319e+03_rb,2.7165e+03_rb,2.8391e+03_rb,2.9117e+03_rb,2.9450e+03_rb/)\n      kbo(:,59,16) = (/ &\n     &2.5058e+03_rb,2.6981e+03_rb,2.8277e+03_rb,2.9062e+03_rb,2.9427e+03_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &1.0515e-02_rb,1.4860e-02_rb,1.7181e-02_rb,1.6642e-02_rb,1.6644e-02_rb,1.5649e-02_rb, &\n     &1.7734e-02_rb,1.7521e-02_rb,1.7868e-02_rb,1.8400e-02_rb,1.9361e-02_rb,2.1487e-02_rb, &\n     &2.0192e-02_rb,1.6545e-02_rb,2.0922e-02_rb,2.0922e-02_rb/)\n      forrefo(2,:) = (/ &\n     &1.0423e-02_rb,1.4593e-02_rb,1.6329e-02_rb,1.7071e-02_rb,1.7252e-02_rb,1.6188e-02_rb, &\n     &1.7752e-02_rb,1.7913e-02_rb,1.7551e-02_rb,1.8203e-02_rb,1.7946e-02_rb,1.9828e-02_rb, &\n     &2.1566e-02_rb,1.9707e-02_rb,2.0944e-02_rb,2.0944e-02_rb/)\n      forrefo(3,:) = (/ &\n     &9.2770e-03_rb,1.2818e-02_rb,1.7181e-02_rb,1.7858e-02_rb,1.7888e-02_rb,1.7121e-02_rb, &\n     &1.8116e-02_rb,1.8230e-02_rb,1.7719e-02_rb,1.7833e-02_rb,1.8438e-02_rb,1.7995e-02_rb, &\n     &2.0895e-02_rb,2.1525e-02_rb,2.0517e-02_rb,2.0954e-02_rb/)\n      forrefo(4,:) = (/ &\n     &8.3290e-03_rb,1.3483e-02_rb,1.5432e-02_rb,2.0793e-02_rb,1.8404e-02_rb,1.7470e-02_rb, &\n     &1.7253e-02_rb,1.7132e-02_rb,1.7119e-02_rb,1.7376e-02_rb,1.7030e-02_rb,1.6847e-02_rb, &\n     &1.5562e-02_rb,1.6836e-02_rb,1.8746e-02_rb,2.1233e-02_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 2.41120e-01_rb, 2.27071e-01_rb, 2.13840e-01_rb, 2.01380e-01_rb, 1.89646e-01_rb, &\n     & 1.78596e-01_rb, 1.68190e-01_rb, 1.58390e-01_rb, 1.49161e-01_rb, 1.40470e-01_rb/)\n      selfrefo(:, 2) = (/ &\n     & 3.11156e-01_rb, 2.92249e-01_rb, 2.74490e-01_rb, 2.57810e-01_rb, 2.42144e-01_rb, &\n     & 2.27430e-01_rb, 2.13610e-01_rb, 2.00630e-01_rb, 1.88439e-01_rb, 1.76988e-01_rb/)\n      selfrefo(:, 3) = (/ &\n     & 3.37148e-01_rb, 3.17767e-01_rb, 2.99500e-01_rb, 2.82283e-01_rb, 2.66056e-01_rb, &\n     & 2.50762e-01_rb, 2.36347e-01_rb, 2.22760e-01_rb, 2.09955e-01_rb, 1.97885e-01_rb/)\n      selfrefo(:, 4) = (/ &\n     & 3.57139e-01_rb, 3.32763e-01_rb, 3.10050e-01_rb, 2.88888e-01_rb, 2.69170e-01_rb, &\n     & 2.50798e-01_rb, 2.33680e-01_rb, 2.17730e-01_rb, 2.02869e-01_rb, 1.89022e-01_rb/)\n      selfrefo(:, 5) = (/ &\n     & 3.60626e-01_rb, 3.35433e-01_rb, 3.12000e-01_rb, 2.90204e-01_rb, 2.69931e-01_rb, &\n     & 2.51074e-01_rb, 2.33534e-01_rb, 2.17220e-01_rb, 2.02045e-01_rb, 1.87931e-01_rb/)\n      selfrefo(:, 6) = (/ &\n     & 3.42420e-01_rb, 3.18795e-01_rb, 2.96800e-01_rb, 2.76323e-01_rb, 2.57258e-01_rb, &\n     & 2.39509e-01_rb, 2.22985e-01_rb, 2.07600e-01_rb, 1.93277e-01_rb, 1.79942e-01_rb/)\n      selfrefo(:, 7) = (/ &\n     & 3.65491e-01_rb, 3.41599e-01_rb, 3.19270e-01_rb, 2.98400e-01_rb, 2.78895e-01_rb, &\n     & 2.60664e-01_rb, 2.43625e-01_rb, 2.27700e-01_rb, 2.12816e-01_rb, 1.98905e-01_rb/)\n      selfrefo(:, 8) = (/ &\n     & 3.70354e-01_rb, 3.45005e-01_rb, 3.21390e-01_rb, 2.99392e-01_rb, 2.78899e-01_rb, &\n     & 2.59809e-01_rb, 2.42026e-01_rb, 2.25460e-01_rb, 2.10028e-01_rb, 1.95652e-01_rb/)\n      selfrefo(:, 9) = (/ &\n     & 3.60483e-01_rb, 3.37846e-01_rb, 3.16630e-01_rb, 2.96747e-01_rb, 2.78112e-01_rb, &\n     & 2.60648e-01_rb, 2.44280e-01_rb, 2.28940e-01_rb, 2.14563e-01_rb, 2.01090e-01_rb/)\n      selfrefo(:,10) = (/ &\n     & 3.71845e-01_rb, 3.48164e-01_rb, 3.25990e-01_rb, 3.05229e-01_rb, 2.85790e-01_rb, &\n     & 2.67588e-01_rb, 2.50547e-01_rb, 2.34590e-01_rb, 2.19650e-01_rb, 2.05661e-01_rb/)\n      selfrefo(:,11) = (/ &\n     & 3.60606e-01_rb, 3.40789e-01_rb, 3.22060e-01_rb, 3.04361e-01_rb, 2.87634e-01_rb, &\n     & 2.71826e-01_rb, 2.56888e-01_rb, 2.42770e-01_rb, 2.29428e-01_rb, 2.16819e-01_rb/)\n      selfrefo(:,12) = (/ &\n     & 3.90046e-01_rb, 3.68879e-01_rb, 3.48860e-01_rb, 3.29928e-01_rb, 3.12023e-01_rb, &\n     & 2.95089e-01_rb, 2.79075e-01_rb, 2.63930e-01_rb, 2.49607e-01_rb, 2.36061e-01_rb/)\n      selfrefo(:,13) = (/ &\n     & 4.38542e-01_rb, 4.05139e-01_rb, 3.74280e-01_rb, 3.45771e-01_rb, 3.19434e-01_rb, &\n     & 2.95103e-01_rb, 2.72626e-01_rb, 2.51860e-01_rb, 2.32676e-01_rb, 2.14953e-01_rb/)\n      selfrefo(:,14) = (/ &\n     & 4.19448e-01_rb, 3.81920e-01_rb, 3.47750e-01_rb, 3.16637e-01_rb, 2.88307e-01_rb, &\n     & 2.62513e-01_rb, 2.39026e-01_rb, 2.17640e-01_rb, 1.98168e-01_rb, 1.80438e-01_rb/)\n      selfrefo(:,15) = (/ &\n     & 4.20276e-01_rb, 3.92281e-01_rb, 3.66150e-01_rb, 3.41760e-01_rb, 3.18995e-01_rb, &\n     & 2.97746e-01_rb, 2.77912e-01_rb, 2.59400e-01_rb, 2.42121e-01_rb, 2.25993e-01_rb/)\n      selfrefo(:,16) = (/ &\n     & 4.20276e-01_rb, 3.92281e-01_rb, 3.66150e-01_rb, 3.41760e-01_rb, 3.18995e-01_rb, &\n     & 2.97746e-01_rb, 2.77912e-01_rb, 2.59400e-01_rb, 2.42121e-01_rb, 2.25993e-01_rb/)\n\n      end subroutine lw_kgb10\n\n! **************************************************************************\n      subroutine lw_kgb11\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg11, only : fracrefao, fracrefbo, kao, kbo, kao_mo2, &\n                            kbo_mo2, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P=1053.63 mb, T= 294.2 K\n      fracrefao(:) = (/ &\n     &  1.4601e-01_rb,1.3824e-01_rb,1.4240e-01_rb,1.3463e-01_rb,1.1948e-01_rb,1.0440e-01_rb, &\n     &  8.8667e-02_rb,6.5792e-02_rb,4.3893e-02_rb,4.7941e-03_rb,4.0760e-03_rb,3.3207e-03_rb, &\n     &  2.4087e-03_rb,1.3912e-03_rb,4.3482e-04_rb,6.0932e-05_rb/)\n\n! Planck fraction mapping level : P=0.353 mb, T = 262.11 K\n      fracrefbo(:) = (/ &\n     &  7.2928e-02_rb,1.4900e-01_rb,1.6156e-01_rb,1.5603e-01_rb,1.3934e-01_rb,1.1394e-01_rb, &\n     &  8.8783e-02_rb,6.2411e-02_rb,4.0191e-02_rb,4.4587e-03_rb,3.9533e-03_rb,3.0847e-03_rb, &\n     &  2.2317e-03_rb,1.4410e-03_rb,5.6722e-04_rb,7.7933e-05_rb/)\n\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels > ~100mb and temperatures.  The first\n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the corresponding TREF for this  pressure level, \n!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, \n!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second \n!     index, JP, runs from 1 to 13 and refers to the corresponding \n!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  \n!     The third index, IG, goes from 1 to 16, and tells us which \n!     g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &4.9423e-02_rb,4.8938e-02_rb,4.8236e-02_rb,4.7630e-02_rb,4.7027e-02_rb/)\n      kao(:, 2, 1) = (/ &\n     &4.0264e-02_rb,3.9991e-02_rb,3.9414e-02_rb,3.8921e-02_rb,3.8455e-02_rb/)\n      kao(:, 3, 1) = (/ &\n     &3.2762e-02_rb,3.2612e-02_rb,3.2225e-02_rb,3.1842e-02_rb,3.1448e-02_rb/)\n      kao(:, 4, 1) = (/ &\n     &2.6929e-02_rb,2.6828e-02_rb,2.6636e-02_rb,2.6311e-02_rb,2.5979e-02_rb/)\n      kao(:, 5, 1) = (/ &\n     &2.2254e-02_rb,2.2190e-02_rb,2.2139e-02_rb,2.1844e-02_rb,2.1606e-02_rb/)\n      kao(:, 6, 1) = (/ &\n     &1.8428e-02_rb,1.8406e-02_rb,1.8346e-02_rb,1.8223e-02_rb,1.7986e-02_rb/)\n      kao(:, 7, 1) = (/ &\n     &1.5302e-02_rb,1.5279e-02_rb,1.5227e-02_rb,1.5173e-02_rb,1.5001e-02_rb/)\n      kao(:, 8, 1) = (/ &\n     &1.2917e-02_rb,1.2821e-02_rb,1.2762e-02_rb,1.2673e-02_rb,1.2614e-02_rb/)\n      kao(:, 9, 1) = (/ &\n     &1.4361e-02_rb,1.3355e-02_rb,1.2836e-02_rb,1.2424e-02_rb,1.2069e-02_rb/)\n      kao(:,10, 1) = (/ &\n     &1.9078e-02_rb,1.9077e-02_rb,1.9301e-02_rb,1.9494e-02_rb,1.9600e-02_rb/)\n      kao(:,11, 1) = (/ &\n     &1.6651e-02_rb,1.7279e-02_rb,1.7762e-02_rb,1.8212e-02_rb,1.8508e-02_rb/)\n      kao(:,12, 1) = (/ &\n     &1.4359e-02_rb,1.4912e-02_rb,1.5370e-02_rb,1.5766e-02_rb,1.6068e-02_rb/)\n      kao(:,13, 1) = (/ &\n     &1.2190e-02_rb,1.2693e-02_rb,1.3086e-02_rb,1.3355e-02_rb,1.3602e-02_rb/)\n      kao(:, 1, 2) = (/ &\n     &1.3874e-01_rb,1.3507e-01_rb,1.3188e-01_rb,1.2875e-01_rb,1.2573e-01_rb/)\n      kao(:, 2, 2) = (/ &\n     &1.1449e-01_rb,1.1143e-01_rb,1.0880e-01_rb,1.0626e-01_rb,1.0384e-01_rb/)\n      kao(:, 3, 2) = (/ &\n     &9.4610e-02_rb,9.2157e-02_rb,8.9899e-02_rb,8.7836e-02_rb,8.5813e-02_rb/)\n      kao(:, 4, 2) = (/ &\n     &7.8921e-02_rb,7.6917e-02_rb,7.5042e-02_rb,7.3283e-02_rb,7.1619e-02_rb/)\n      kao(:, 5, 2) = (/ &\n     &6.6025e-02_rb,6.4395e-02_rb,6.2788e-02_rb,6.1406e-02_rb,5.9938e-02_rb/)\n      kao(:, 6, 2) = (/ &\n     &5.5198e-02_rb,5.3979e-02_rb,5.2652e-02_rb,5.1421e-02_rb,5.0291e-02_rb/)\n      kao(:, 7, 2) = (/ &\n     &4.5982e-02_rb,4.5142e-02_rb,4.4142e-02_rb,4.3045e-02_rb,4.2121e-02_rb/)\n      kao(:, 8, 2) = (/ &\n     &3.8128e-02_rb,3.7632e-02_rb,3.6913e-02_rb,3.6127e-02_rb,3.5207e-02_rb/)\n      kao(:, 9, 2) = (/ &\n     &2.9988e-02_rb,3.0199e-02_rb,2.9924e-02_rb,2.9588e-02_rb,2.9106e-02_rb/)\n      kao(:,10, 2) = (/ &\n     &4.8557e-02_rb,4.4974e-02_rb,3.7588e-02_rb,3.1508e-02_rb,2.7381e-02_rb/)\n      kao(:,11, 2) = (/ &\n     &4.6113e-02_rb,4.4271e-02_rb,4.2375e-02_rb,4.0024e-02_rb,3.7665e-02_rb/)\n      kao(:,12, 2) = (/ &\n     &4.0305e-02_rb,3.9408e-02_rb,3.7504e-02_rb,3.5981e-02_rb,3.4390e-02_rb/)\n      kao(:,13, 2) = (/ &\n     &3.3779e-02_rb,3.2735e-02_rb,3.1178e-02_rb,2.9814e-02_rb,2.8271e-02_rb/)\n      kao(:, 1, 3) = (/ &\n     &2.4150e-01_rb,2.3616e-01_rb,2.3111e-01_rb,2.2673e-01_rb,2.2290e-01_rb/)\n      kao(:, 2, 3) = (/ &\n     &2.0007e-01_rb,1.9568e-01_rb,1.9176e-01_rb,1.8825e-01_rb,1.8518e-01_rb/)\n      kao(:, 3, 3) = (/ &\n     &1.6573e-01_rb,1.6221e-01_rb,1.5908e-01_rb,1.5616e-01_rb,1.5376e-01_rb/)\n      kao(:, 4, 3) = (/ &\n     &1.3876e-01_rb,1.3573e-01_rb,1.3298e-01_rb,1.3059e-01_rb,1.2856e-01_rb/)\n      kao(:, 5, 3) = (/ &\n     &1.1663e-01_rb,1.1399e-01_rb,1.1156e-01_rb,1.0951e-01_rb,1.0785e-01_rb/)\n      kao(:, 6, 3) = (/ &\n     &9.8259e-02_rb,9.5861e-02_rb,9.3802e-02_rb,9.1948e-02_rb,9.0492e-02_rb/)\n      kao(:, 7, 3) = (/ &\n     &8.2887e-02_rb,8.0616e-02_rb,7.8766e-02_rb,7.7206e-02_rb,7.5856e-02_rb/)\n      kao(:, 8, 3) = (/ &\n     &6.9730e-02_rb,6.7730e-02_rb,6.5964e-02_rb,6.4565e-02_rb,6.3437e-02_rb/)\n      kao(:, 9, 3) = (/ &\n     &5.8101e-02_rb,5.6452e-02_rb,5.5028e-02_rb,5.3674e-02_rb,5.2557e-02_rb/)\n      kao(:,10, 3) = (/ &\n     &3.7373e-02_rb,3.5041e-02_rb,3.8621e-02_rb,4.1558e-02_rb,4.3012e-02_rb/)\n      kao(:,11, 3) = (/ &\n     &5.3584e-02_rb,4.0890e-02_rb,3.3882e-02_rb,2.9034e-02_rb,2.6383e-02_rb/)\n      kao(:,12, 3) = (/ &\n     &5.8428e-02_rb,4.4689e-02_rb,3.5111e-02_rb,2.9172e-02_rb,2.4695e-02_rb/)\n      kao(:,13, 3) = (/ &\n     &4.7904e-02_rb,3.6965e-02_rb,2.8601e-02_rb,2.3919e-02_rb,2.0680e-02_rb/)\n      kao(:, 1, 4) = (/ &\n     &4.2548e-01_rb,4.1807e-01_rb,4.1094e-01_rb,4.0423e-01_rb,3.9806e-01_rb/)\n      kao(:, 2, 4) = (/ &\n     &3.5494e-01_rb,3.4863e-01_rb,3.4235e-01_rb,3.3657e-01_rb,3.3155e-01_rb/)\n      kao(:, 3, 4) = (/ &\n     &2.9648e-01_rb,2.9099e-01_rb,2.8545e-01_rb,2.8071e-01_rb,2.7648e-01_rb/)\n      kao(:, 4, 4) = (/ &\n     &2.4939e-01_rb,2.4483e-01_rb,2.4021e-01_rb,2.3626e-01_rb,2.3256e-01_rb/)\n      kao(:, 5, 4) = (/ &\n     &2.1025e-01_rb,2.0654e-01_rb,2.0285e-01_rb,1.9937e-01_rb,1.9615e-01_rb/)\n      kao(:, 6, 4) = (/ &\n     &1.7714e-01_rb,1.7417e-01_rb,1.7124e-01_rb,1.6826e-01_rb,1.6547e-01_rb/)\n      kao(:, 7, 4) = (/ &\n     &1.4884e-01_rb,1.4658e-01_rb,1.4422e-01_rb,1.4179e-01_rb,1.3940e-01_rb/)\n      kao(:, 8, 4) = (/ &\n     &1.2471e-01_rb,1.2286e-01_rb,1.2117e-01_rb,1.1917e-01_rb,1.1721e-01_rb/)\n      kao(:, 9, 4) = (/ &\n     &1.0337e-01_rb,1.0218e-01_rb,1.0077e-01_rb,9.9333e-02_rb,9.7869e-02_rb/)\n      kao(:,10, 4) = (/ &\n     &8.5198e-02_rb,8.3413e-02_rb,8.1099e-02_rb,7.8395e-02_rb,7.6293e-02_rb/)\n      kao(:,11, 4) = (/ &\n     &6.0820e-02_rb,6.7915e-02_rb,6.7626e-02_rb,6.6844e-02_rb,6.6371e-02_rb/)\n      kao(:,12, 4) = (/ &\n     &4.0000e-02_rb,4.8190e-02_rb,5.3574e-02_rb,5.5575e-02_rb,5.5151e-02_rb/)\n      kao(:,13, 4) = (/ &\n     &3.3587e-02_rb,4.0386e-02_rb,4.5135e-02_rb,4.6401e-02_rb,4.5805e-02_rb/)\n      kao(:, 1, 5) = (/ &\n     &7.7524e-01_rb,7.6536e-01_rb,7.5522e-01_rb,7.4431e-01_rb,7.3311e-01_rb/)\n      kao(:, 2, 5) = (/ &\n     &6.5185e-01_rb,6.4405e-01_rb,6.3568e-01_rb,6.2684e-01_rb,6.1765e-01_rb/)\n      kao(:, 3, 5) = (/ &\n     &5.4580e-01_rb,5.3942e-01_rb,5.3289e-01_rb,5.2546e-01_rb,5.1768e-01_rb/)\n      kao(:, 4, 5) = (/ &\n     &4.5945e-01_rb,4.5416e-01_rb,4.4868e-01_rb,4.4229e-01_rb,4.3592e-01_rb/)\n      kao(:, 5, 5) = (/ &\n     &3.8777e-01_rb,3.8350e-01_rb,3.7876e-01_rb,3.7352e-01_rb,3.6853e-01_rb/)\n      kao(:, 6, 5) = (/ &\n     &3.2750e-01_rb,3.2403e-01_rb,3.2009e-01_rb,3.1598e-01_rb,3.1216e-01_rb/)\n      kao(:, 7, 5) = (/ &\n     &2.7610e-01_rb,2.7333e-01_rb,2.7016e-01_rb,2.6699e-01_rb,2.6402e-01_rb/)\n      kao(:, 8, 5) = (/ &\n     &2.3237e-01_rb,2.3021e-01_rb,2.2764e-01_rb,2.2511e-01_rb,2.2263e-01_rb/)\n      kao(:, 9, 5) = (/ &\n     &1.9461e-01_rb,1.9312e-01_rb,1.9116e-01_rb,1.8911e-01_rb,1.8708e-01_rb/)\n      kao(:,10, 5) = (/ &\n     &1.4772e-01_rb,1.4997e-01_rb,1.5067e-01_rb,1.5164e-01_rb,1.5169e-01_rb/)\n      kao(:,11, 5) = (/ &\n     &1.1317e-01_rb,1.1322e-01_rb,1.1552e-01_rb,1.1824e-01_rb,1.1886e-01_rb/)\n      kao(:,12, 5) = (/ &\n     &9.7948e-02_rb,9.4310e-02_rb,9.3527e-02_rb,9.3094e-02_rb,9.5273e-02_rb/)\n      kao(:,13, 5) = (/ &\n     &8.1443e-02_rb,7.8686e-02_rb,7.8076e-02_rb,7.8298e-02_rb,8.0221e-02_rb/)\n      kao(:, 1, 6) = (/ &\n     &1.5697e+00_rb,1.5485e+00_rb,1.5270e+00_rb,1.5062e+00_rb,1.4845e+00_rb/)\n      kao(:, 2, 6) = (/ &\n     &1.3465e+00_rb,1.3286e+00_rb,1.3101e+00_rb,1.2912e+00_rb,1.2719e+00_rb/)\n      kao(:, 3, 6) = (/ &\n     &1.1474e+00_rb,1.1322e+00_rb,1.1161e+00_rb,1.0997e+00_rb,1.0837e+00_rb/)\n      kao(:, 4, 6) = (/ &\n     &9.7861e-01_rb,9.6591e-01_rb,9.5236e-01_rb,9.3871e-01_rb,9.2522e-01_rb/)\n      kao(:, 5, 6) = (/ &\n     &8.3345e-01_rb,8.2282e-01_rb,8.1147e-01_rb,8.0015e-01_rb,7.8882e-01_rb/)\n      kao(:, 6, 6) = (/ &\n     &7.0768e-01_rb,6.9919e-01_rb,6.8975e-01_rb,6.8018e-01_rb,6.7024e-01_rb/)\n      kao(:, 7, 6) = (/ &\n     &5.9916e-01_rb,5.9240e-01_rb,5.8444e-01_rb,5.7632e-01_rb,5.6762e-01_rb/)\n      kao(:, 8, 6) = (/ &\n     &5.0612e-01_rb,5.0051e-01_rb,4.9423e-01_rb,4.8731e-01_rb,4.7989e-01_rb/)\n      kao(:, 9, 6) = (/ &\n     &4.2622e-01_rb,4.2196e-01_rb,4.1690e-01_rb,4.1124e-01_rb,4.0525e-01_rb/)\n      kao(:,10, 6) = (/ &\n     &3.5041e-01_rb,3.4937e-01_rb,3.4686e-01_rb,3.4326e-01_rb,3.3900e-01_rb/)\n      kao(:,11, 6) = (/ &\n     &2.8138e-01_rb,2.8270e-01_rb,2.8314e-01_rb,2.8109e-01_rb,2.7863e-01_rb/)\n      kao(:,12, 6) = (/ &\n     &2.2569e-01_rb,2.3115e-01_rb,2.3249e-01_rb,2.3233e-01_rb,2.3100e-01_rb/)\n      kao(:,13, 6) = (/ &\n     &1.8817e-01_rb,1.9206e-01_rb,1.9341e-01_rb,1.9316e-01_rb,1.9216e-01_rb/)\n      kao(:, 1, 7) = (/ &\n     &3.4196e+00_rb,3.3801e+00_rb,3.3399e+00_rb,3.2946e+00_rb,3.2477e+00_rb/)\n      kao(:, 2, 7) = (/ &\n     &3.0295e+00_rb,2.9903e+00_rb,2.9469e+00_rb,2.9032e+00_rb,2.8599e+00_rb/)\n      kao(:, 3, 7) = (/ &\n     &2.6483e+00_rb,2.6096e+00_rb,2.5696e+00_rb,2.5316e+00_rb,2.4936e+00_rb/)\n      kao(:, 4, 7) = (/ &\n     &2.3044e+00_rb,2.2705e+00_rb,2.2374e+00_rb,2.2055e+00_rb,2.1724e+00_rb/)\n      kao(:, 5, 7) = (/ &\n     &1.9970e+00_rb,1.9688e+00_rb,1.9416e+00_rb,1.9143e+00_rb,1.8852e+00_rb/)\n      kao(:, 6, 7) = (/ &\n     &1.7224e+00_rb,1.6992e+00_rb,1.6760e+00_rb,1.6526e+00_rb,1.6276e+00_rb/)\n      kao(:, 7, 7) = (/ &\n     &1.4770e+00_rb,1.4579e+00_rb,1.4384e+00_rb,1.4185e+00_rb,1.3976e+00_rb/)\n      kao(:, 8, 7) = (/ &\n     &1.2593e+00_rb,1.2433e+00_rb,1.2274e+00_rb,1.2112e+00_rb,1.1939e+00_rb/)\n      kao(:, 9, 7) = (/ &\n     &1.0697e+00_rb,1.0563e+00_rb,1.0434e+00_rb,1.0295e+00_rb,1.0150e+00_rb/)\n      kao(:,10, 7) = (/ &\n     &9.0213e-01_rb,8.9139e-01_rb,8.8119e-01_rb,8.6954e-01_rb,8.5716e-01_rb/)\n      kao(:,11, 7) = (/ &\n     &7.5061e-01_rb,7.4446e-01_rb,7.3597e-01_rb,7.2638e-01_rb,7.1615e-01_rb/)\n      kao(:,12, 7) = (/ &\n     &6.2457e-01_rb,6.1924e-01_rb,6.1219e-01_rb,6.0465e-01_rb,5.9633e-01_rb/)\n      kao(:,13, 7) = (/ &\n     &5.2204e-01_rb,5.1758e-01_rb,5.1182e-01_rb,5.0530e-01_rb,4.9787e-01_rb/)\n      kao(:, 1, 8) = (/ &\n     &7.9795e+00_rb,7.8457e+00_rb,7.7132e+00_rb,7.5890e+00_rb,7.4645e+00_rb/)\n      kao(:, 2, 8) = (/ &\n     &7.5076e+00_rb,7.3733e+00_rb,7.2519e+00_rb,7.1316e+00_rb,7.0099e+00_rb/)\n      kao(:, 3, 8) = (/ &\n     &6.9340e+00_rb,6.8148e+00_rb,6.7036e+00_rb,6.5875e+00_rb,6.4766e+00_rb/)\n      kao(:, 4, 8) = (/ &\n     &6.3414e+00_rb,6.2366e+00_rb,6.1298e+00_rb,6.0215e+00_rb,5.9183e+00_rb/)\n      kao(:, 5, 8) = (/ &\n     &5.7373e+00_rb,5.6423e+00_rb,5.5412e+00_rb,5.4426e+00_rb,5.3434e+00_rb/)\n      kao(:, 6, 8) = (/ &\n     &5.1373e+00_rb,5.0482e+00_rb,4.9577e+00_rb,4.8621e+00_rb,4.7659e+00_rb/)\n      kao(:, 7, 8) = (/ &\n     &4.5492e+00_rb,4.4684e+00_rb,4.3821e+00_rb,4.2928e+00_rb,4.2067e+00_rb/)\n      kao(:, 8, 8) = (/ &\n     &3.9884e+00_rb,3.9140e+00_rb,3.8349e+00_rb,3.7563e+00_rb,3.6821e+00_rb/)\n      kao(:, 9, 8) = (/ &\n     &3.4656e+00_rb,3.3995e+00_rb,3.3300e+00_rb,3.2636e+00_rb,3.2010e+00_rb/)\n      kao(:,10, 8) = (/ &\n     &2.9841e+00_rb,2.9267e+00_rb,2.8680e+00_rb,2.8124e+00_rb,2.7592e+00_rb/)\n      kao(:,11, 8) = (/ &\n     &2.5294e+00_rb,2.4795e+00_rb,2.4321e+00_rb,2.3862e+00_rb,2.3418e+00_rb/)\n      kao(:,12, 8) = (/ &\n     &2.1315e+00_rb,2.0918e+00_rb,2.0527e+00_rb,2.0146e+00_rb,1.9776e+00_rb/)\n      kao(:,13, 8) = (/ &\n     &1.7932e+00_rb,1.7598e+00_rb,1.7272e+00_rb,1.6957e+00_rb,1.6643e+00_rb/)\n      kao(:, 1, 9) = (/ &\n     &1.8965e+01_rb,1.8711e+01_rb,1.8469e+01_rb,1.8242e+01_rb,1.8035e+01_rb/)\n      kao(:, 2, 9) = (/ &\n     &1.9621e+01_rb,1.9373e+01_rb,1.9124e+01_rb,1.8882e+01_rb,1.8648e+01_rb/)\n      kao(:, 3, 9) = (/ &\n     &2.0111e+01_rb,1.9849e+01_rb,1.9576e+01_rb,1.9310e+01_rb,1.9047e+01_rb/)\n      kao(:, 4, 9) = (/ &\n     &2.0303e+01_rb,2.0017e+01_rb,1.9726e+01_rb,1.9447e+01_rb,1.9174e+01_rb/)\n      kao(:, 5, 9) = (/ &\n     &2.0176e+01_rb,1.9882e+01_rb,1.9591e+01_rb,1.9312e+01_rb,1.9035e+01_rb/)\n      kao(:, 6, 9) = (/ &\n     &1.9747e+01_rb,1.9457e+01_rb,1.9166e+01_rb,1.8888e+01_rb,1.8606e+01_rb/)\n      kao(:, 7, 9) = (/ &\n     &1.9018e+01_rb,1.8727e+01_rb,1.8446e+01_rb,1.8173e+01_rb,1.7878e+01_rb/)\n      kao(:, 8, 9) = (/ &\n     &1.8015e+01_rb,1.7734e+01_rb,1.7466e+01_rb,1.7191e+01_rb,1.6898e+01_rb/)\n      kao(:, 9, 9) = (/ &\n     &1.6785e+01_rb,1.6527e+01_rb,1.6264e+01_rb,1.5992e+01_rb,1.5711e+01_rb/)\n      kao(:,10, 9) = (/ &\n     &1.5379e+01_rb,1.5144e+01_rb,1.4899e+01_rb,1.4648e+01_rb,1.4396e+01_rb/)\n      kao(:,11, 9) = (/ &\n     &1.3809e+01_rb,1.3588e+01_rb,1.3370e+01_rb,1.3146e+01_rb,1.2927e+01_rb/)\n      kao(:,12, 9) = (/ &\n     &1.2243e+01_rb,1.2056e+01_rb,1.1862e+01_rb,1.1669e+01_rb,1.1464e+01_rb/)\n      kao(:,13, 9) = (/ &\n     &1.0743e+01_rb,1.0581e+01_rb,1.0416e+01_rb,1.0238e+01_rb,1.0057e+01_rb/)\n      kao(:, 1,10) = (/ &\n     &3.4918e+01_rb,3.4410e+01_rb,3.3938e+01_rb,3.3384e+01_rb,3.2811e+01_rb/)\n      kao(:, 2,10) = (/ &\n     &3.7421e+01_rb,3.6860e+01_rb,3.6321e+01_rb,3.5822e+01_rb,3.5445e+01_rb/)\n      kao(:, 3,10) = (/ &\n     &4.0412e+01_rb,3.9722e+01_rb,3.9217e+01_rb,3.8832e+01_rb,3.8460e+01_rb/)\n      kao(:, 4,10) = (/ &\n     &4.3162e+01_rb,4.2539e+01_rb,4.2112e+01_rb,4.1640e+01_rb,4.1120e+01_rb/)\n      kao(:, 5,10) = (/ &\n     &4.5609e+01_rb,4.5045e+01_rb,4.4552e+01_rb,4.3899e+01_rb,4.3271e+01_rb/)\n      kao(:, 6,10) = (/ &\n     &4.7877e+01_rb,4.7338e+01_rb,4.6747e+01_rb,4.6031e+01_rb,4.5492e+01_rb/)\n      kao(:, 7,10) = (/ &\n     &4.9831e+01_rb,4.9324e+01_rb,4.8717e+01_rb,4.8005e+01_rb,4.7611e+01_rb/)\n      kao(:, 8,10) = (/ &\n     &5.1031e+01_rb,5.0574e+01_rb,4.9915e+01_rb,4.9244e+01_rb,4.8761e+01_rb/)\n      kao(:, 9,10) = (/ &\n     &5.1465e+01_rb,5.0984e+01_rb,5.0270e+01_rb,4.9612e+01_rb,4.9032e+01_rb/)\n      kao(:,10,10) = (/ &\n     &5.0911e+01_rb,5.0267e+01_rb,4.9512e+01_rb,4.8818e+01_rb,4.8092e+01_rb/)\n      kao(:,11,10) = (/ &\n     &4.8719e+01_rb,4.7980e+01_rb,4.7190e+01_rb,4.6412e+01_rb,4.5593e+01_rb/)\n      kao(:,12,10) = (/ &\n     &4.5566e+01_rb,4.4779e+01_rb,4.4020e+01_rb,4.3287e+01_rb,4.2695e+01_rb/)\n      kao(:,13,10) = (/ &\n     &4.1842e+01_rb,4.1126e+01_rb,4.0474e+01_rb,3.9934e+01_rb,3.9455e+01_rb/)\n      kao(:, 1,11) = (/ &\n     &4.3485e+01_rb,4.3086e+01_rb,4.2575e+01_rb,4.2046e+01_rb,4.1574e+01_rb/)\n      kao(:, 2,11) = (/ &\n     &4.8017e+01_rb,4.7410e+01_rb,4.6743e+01_rb,4.6112e+01_rb,4.5460e+01_rb/)\n      kao(:, 3,11) = (/ &\n     &5.1964e+01_rb,5.1351e+01_rb,5.0628e+01_rb,4.9892e+01_rb,4.9112e+01_rb/)\n      kao(:, 4,11) = (/ &\n     &5.5970e+01_rb,5.5232e+01_rb,5.4425e+01_rb,5.3658e+01_rb,5.2964e+01_rb/)\n      kao(:, 5,11) = (/ &\n     &6.0234e+01_rb,5.9398e+01_rb,5.8467e+01_rb,5.7720e+01_rb,5.7104e+01_rb/)\n      kao(:, 6,11) = (/ &\n     &6.4036e+01_rb,6.3174e+01_rb,6.2265e+01_rb,6.1623e+01_rb,6.0928e+01_rb/)\n      kao(:, 7,11) = (/ &\n     &6.7087e+01_rb,6.6347e+01_rb,6.5603e+01_rb,6.4996e+01_rb,6.4192e+01_rb/)\n      kao(:, 8,11) = (/ &\n     &6.9922e+01_rb,6.9386e+01_rb,6.8783e+01_rb,6.8159e+01_rb,6.7317e+01_rb/)\n      kao(:, 9,11) = (/ &\n     &7.2326e+01_rb,7.1863e+01_rb,7.1404e+01_rb,7.0792e+01_rb,6.9972e+01_rb/)\n      kao(:,10,11) = (/ &\n     &7.3782e+01_rb,7.3486e+01_rb,7.3017e+01_rb,7.2321e+01_rb,7.1486e+01_rb/)\n      kao(:,11,11) = (/ &\n     &7.4137e+01_rb,7.3779e+01_rb,7.3113e+01_rb,7.2218e+01_rb,7.1354e+01_rb/)\n      kao(:,12,11) = (/ &\n     &7.3214e+01_rb,7.2506e+01_rb,7.1526e+01_rb,7.0521e+01_rb,6.9446e+01_rb/)\n      kao(:,13,11) = (/ &\n     &7.0360e+01_rb,6.9342e+01_rb,6.8249e+01_rb,6.7098e+01_rb,6.5980e+01_rb/)\n      kao(:, 1,12) = (/ &\n     &5.1887e+01_rb,5.1393e+01_rb,5.0969e+01_rb,5.0675e+01_rb,5.0203e+01_rb/)\n      kao(:, 2,12) = (/ &\n     &5.9704e+01_rb,5.9201e+01_rb,5.8829e+01_rb,5.8469e+01_rb,5.7899e+01_rb/)\n      kao(:, 3,12) = (/ &\n     &6.7858e+01_rb,6.7238e+01_rb,6.6756e+01_rb,6.6195e+01_rb,6.5626e+01_rb/)\n      kao(:, 4,12) = (/ &\n     &7.5062e+01_rb,7.4258e+01_rb,7.3522e+01_rb,7.2807e+01_rb,7.2094e+01_rb/)\n      kao(:, 5,12) = (/ &\n     &8.1152e+01_rb,8.0143e+01_rb,7.9393e+01_rb,7.8647e+01_rb,7.7881e+01_rb/)\n      kao(:, 6,12) = (/ &\n     &8.7340e+01_rb,8.6150e+01_rb,8.5372e+01_rb,8.4516e+01_rb,8.3657e+01_rb/)\n      kao(:, 7,12) = (/ &\n     &9.4121e+01_rb,9.2665e+01_rb,9.1695e+01_rb,9.0706e+01_rb,8.9764e+01_rb/)\n      kao(:, 8,12) = (/ &\n     &1.0086e+02_rb,9.9171e+01_rb,9.7989e+01_rb,9.6851e+01_rb,9.5921e+01_rb/)\n      kao(:, 9,12) = (/ &\n     &1.0671e+02_rb,1.0483e+02_rb,1.0352e+02_rb,1.0233e+02_rb,1.0145e+02_rb/)\n      kao(:,10,12) = (/ &\n     &1.1135e+02_rb,1.0957e+02_rb,1.0846e+02_rb,1.0742e+02_rb,1.0652e+02_rb/)\n      kao(:,11,12) = (/ &\n     &1.1430e+02_rb,1.1336e+02_rb,1.1254e+02_rb,1.1170e+02_rb,1.1063e+02_rb/)\n      kao(:,12,12) = (/ &\n     &1.1681e+02_rb,1.1638e+02_rb,1.1571e+02_rb,1.1469e+02_rb,1.1347e+02_rb/)\n      kao(:,13,12) = (/ &\n     &1.1832e+02_rb,1.1787e+02_rb,1.1696e+02_rb,1.1585e+02_rb,1.1448e+02_rb/)\n      kao(:, 1,13) = (/ &\n     &6.2138e+01_rb,6.1536e+01_rb,6.0957e+01_rb,6.0185e+01_rb,5.9644e+01_rb/)\n      kao(:, 2,13) = (/ &\n     &7.3104e+01_rb,7.2436e+01_rb,7.1604e+01_rb,7.0616e+01_rb,6.9923e+01_rb/)\n      kao(:, 3,13) = (/ &\n     &8.5575e+01_rb,8.4690e+01_rb,8.3633e+01_rb,8.2595e+01_rb,8.1733e+01_rb/)\n      kao(:, 4,13) = (/ &\n     &9.8880e+01_rb,9.7932e+01_rb,9.6845e+01_rb,9.5711e+01_rb,9.4631e+01_rb/)\n      kao(:, 5,13) = (/ &\n     &1.1273e+02_rb,1.1168e+02_rb,1.1051e+02_rb,1.0912e+02_rb,1.0775e+02_rb/)\n      kao(:, 6,13) = (/ &\n     &1.2651e+02_rb,1.2538e+02_rb,1.2389e+02_rb,1.2226e+02_rb,1.2074e+02_rb/)\n      kao(:, 7,13) = (/ &\n     &1.4003e+02_rb,1.3861e+02_rb,1.3671e+02_rb,1.3477e+02_rb,1.3302e+02_rb/)\n      kao(:, 8,13) = (/ &\n     &1.5267e+02_rb,1.5069e+02_rb,1.4845e+02_rb,1.4633e+02_rb,1.4433e+02_rb/)\n      kao(:, 9,13) = (/ &\n     &1.6510e+02_rb,1.6280e+02_rb,1.6039e+02_rb,1.5803e+02_rb,1.5572e+02_rb/)\n      kao(:,10,13) = (/ &\n     &1.7758e+02_rb,1.7506e+02_rb,1.7227e+02_rb,1.6951e+02_rb,1.6718e+02_rb/)\n      kao(:,11,13) = (/ &\n     &1.8910e+02_rb,1.8565e+02_rb,1.8227e+02_rb,1.7970e+02_rb,1.7779e+02_rb/)\n      kao(:,12,13) = (/ &\n     &1.9894e+02_rb,1.9500e+02_rb,1.9204e+02_rb,1.8987e+02_rb,1.8782e+02_rb/)\n      kao(:,13,13) = (/ &\n     &2.0665e+02_rb,2.0326e+02_rb,2.0074e+02_rb,1.9867e+02_rb,1.9680e+02_rb/)\n      kao(:, 1,14) = (/ &\n     &7.2473e+01_rb,7.1368e+01_rb,7.0428e+01_rb,6.9932e+01_rb,6.9604e+01_rb/)\n      kao(:, 2,14) = (/ &\n     &8.7789e+01_rb,8.6447e+01_rb,8.5315e+01_rb,8.4536e+01_rb,8.3865e+01_rb/)\n      kao(:, 3,14) = (/ &\n     &1.0616e+02_rb,1.0473e+02_rb,1.0338e+02_rb,1.0236e+02_rb,1.0132e+02_rb/)\n      kao(:, 4,14) = (/ &\n     &1.2669e+02_rb,1.2502e+02_rb,1.2342e+02_rb,1.2210e+02_rb,1.2081e+02_rb/)\n      kao(:, 5,14) = (/ &\n     &1.4951e+02_rb,1.4761e+02_rb,1.4568e+02_rb,1.4409e+02_rb,1.4262e+02_rb/)\n      kao(:, 6,14) = (/ &\n     &1.7487e+02_rb,1.7259e+02_rb,1.7054e+02_rb,1.6873e+02_rb,1.6691e+02_rb/)\n      kao(:, 7,14) = (/ &\n     &2.0246e+02_rb,2.0010e+02_rb,1.9793e+02_rb,1.9585e+02_rb,1.9382e+02_rb/)\n      kao(:, 8,14) = (/ &\n     &2.3272e+02_rb,2.3034e+02_rb,2.2811e+02_rb,2.2588e+02_rb,2.2363e+02_rb/)\n      kao(:, 9,14) = (/ &\n     &2.6521e+02_rb,2.6298e+02_rb,2.6062e+02_rb,2.5802e+02_rb,2.5525e+02_rb/)\n      kao(:,10,14) = (/ &\n     &2.9843e+02_rb,2.9609e+02_rb,2.9357e+02_rb,2.9069e+02_rb,2.8721e+02_rb/)\n      kao(:,11,14) = (/ &\n     &3.3019e+02_rb,3.2789e+02_rb,3.2506e+02_rb,3.2111e+02_rb,3.1667e+02_rb/)\n      kao(:,12,14) = (/ &\n     &3.6200e+02_rb,3.5928e+02_rb,3.5512e+02_rb,3.5030e+02_rb,3.4598e+02_rb/)\n      kao(:,13,14) = (/ &\n     &3.9453e+02_rb,3.9054e+02_rb,3.8556e+02_rb,3.8029e+02_rb,3.7518e+02_rb/)\n      kao(:, 1,15) = (/ &\n     &8.4296e+01_rb,8.4294e+01_rb,8.4592e+01_rb,8.4817e+01_rb,8.4944e+01_rb/)\n      kao(:, 2,15) = (/ &\n     &1.0316e+02_rb,1.0286e+02_rb,1.0304e+02_rb,1.0333e+02_rb,1.0370e+02_rb/)\n      kao(:, 3,15) = (/ &\n     &1.2648e+02_rb,1.2563e+02_rb,1.2552e+02_rb,1.2542e+02_rb,1.2564e+02_rb/)\n      kao(:, 4,15) = (/ &\n     &1.5355e+02_rb,1.5194e+02_rb,1.5117e+02_rb,1.5062e+02_rb,1.5044e+02_rb/)\n      kao(:, 5,15) = (/ &\n     &1.8607e+02_rb,1.8324e+02_rb,1.8143e+02_rb,1.8019e+02_rb,1.7911e+02_rb/)\n      kao(:, 6,15) = (/ &\n     &2.2538e+02_rb,2.2140e+02_rb,2.1806e+02_rb,2.1567e+02_rb,2.1369e+02_rb/)\n      kao(:, 7,15) = (/ &\n     &2.7204e+02_rb,2.6705e+02_rb,2.6220e+02_rb,2.5861e+02_rb,2.5549e+02_rb/)\n      kao(:, 8,15) = (/ &\n     &3.2681e+02_rb,3.2069e+02_rb,3.1478e+02_rb,3.0961e+02_rb,3.0517e+02_rb/)\n      kao(:, 9,15) = (/ &\n     &3.9109e+02_rb,3.8311e+02_rb,3.7570e+02_rb,3.6941e+02_rb,3.6369e+02_rb/)\n      kao(:,10,15) = (/ &\n     &4.6558e+02_rb,4.5519e+02_rb,4.4566e+02_rb,4.3786e+02_rb,4.3114e+02_rb/)\n      kao(:,11,15) = (/ &\n     &5.4422e+02_rb,5.3170e+02_rb,5.2160e+02_rb,5.1300e+02_rb,5.0502e+02_rb/)\n      kao(:,12,15) = (/ &\n     &6.3083e+02_rb,6.1809e+02_rb,6.0782e+02_rb,5.9755e+02_rb,5.8778e+02_rb/)\n      kao(:,13,15) = (/ &\n     &7.2633e+02_rb,7.1401e+02_rb,7.0254e+02_rb,6.9098e+02_rb,6.8020e+02_rb/)\n      kao(:, 1,16) = (/ &\n     &9.0293e+01_rb,9.1524e+01_rb,9.2499e+01_rb,9.3157e+01_rb,9.3569e+01_rb/)\n      kao(:, 2,16) = (/ &\n     &1.1228e+02_rb,1.1346e+02_rb,1.1477e+02_rb,1.1575e+02_rb,1.1638e+02_rb/)\n      kao(:, 3,16) = (/ &\n     &1.3962e+02_rb,1.4080e+02_rb,1.4217e+02_rb,1.4343e+02_rb,1.4444e+02_rb/)\n      kao(:, 4,16) = (/ &\n     &1.7141e+02_rb,1.7272e+02_rb,1.7425e+02_rb,1.7564e+02_rb,1.7671e+02_rb/)\n      kao(:, 5,16) = (/ &\n     &2.0680e+02_rb,2.1031e+02_rb,2.1221e+02_rb,2.1383e+02_rb,2.1512e+02_rb/)\n      kao(:, 6,16) = (/ &\n     &2.5314e+02_rb,2.5478e+02_rb,2.5735e+02_rb,2.5955e+02_rb,2.6116e+02_rb/)\n      kao(:, 7,16) = (/ &\n     &3.0938e+02_rb,3.0774e+02_rb,3.1113e+02_rb,3.1414e+02_rb,3.1633e+02_rb/)\n      kao(:, 8,16) = (/ &\n     &3.7909e+02_rb,3.7514e+02_rb,3.7476e+02_rb,3.7901e+02_rb,3.8212e+02_rb/)\n      kao(:, 9,16) = (/ &\n     &4.6433e+02_rb,4.5795e+02_rb,4.5378e+02_rb,4.5558e+02_rb,4.5979e+02_rb/)\n      kao(:,10,16) = (/ &\n     &5.6730e+02_rb,5.5767e+02_rb,5.5088e+02_rb,5.4957e+02_rb,5.5150e+02_rb/)\n      kao(:,11,16) = (/ &\n     &6.8668e+02_rb,6.7309e+02_rb,6.6516e+02_rb,6.6333e+02_rb,6.6322e+02_rb/)\n      kao(:,12,16) = (/ &\n     &8.3053e+02_rb,8.1176e+02_rb,8.0043e+02_rb,7.9744e+02_rb,7.9485e+02_rb/)\n      kao(:,13,16) = (/ &\n     &1.0026e+03_rb,9.7775e+02_rb,9.6058e+02_rb,9.5314e+02_rb,9.4719e+02_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &1.2190e-02_rb,1.2693e-02_rb,1.3086e-02_rb,1.3355e-02_rb,1.3602e-02_rb/)\n      kbo(:,14, 1) = (/ &\n     &1.0639e-02_rb,1.0991e-02_rb,1.1315e-02_rb,1.1564e-02_rb,1.1518e-02_rb/)\n      kbo(:,15, 1) = (/ &\n     &9.4343e-03_rb,9.6676e-03_rb,9.5938e-03_rb,9.5530e-03_rb,9.4890e-03_rb/)\n      kbo(:,16, 1) = (/ &\n     &7.9681e-03_rb,7.8419e-03_rb,7.8162e-03_rb,7.7492e-03_rb,7.7652e-03_rb/)\n      kbo(:,17, 1) = (/ &\n     &6.4068e-03_rb,6.3539e-03_rb,6.3265e-03_rb,6.3294e-03_rb,6.2292e-03_rb/)\n      kbo(:,18, 1) = (/ &\n     &5.1420e-03_rb,5.1335e-03_rb,5.0780e-03_rb,5.0408e-03_rb,5.0223e-03_rb/)\n      kbo(:,19, 1) = (/ &\n     &4.1739e-03_rb,4.1404e-03_rb,4.1032e-03_rb,4.0908e-03_rb,4.0562e-03_rb/)\n      kbo(:,20, 1) = (/ &\n     &3.3887e-03_rb,3.3668e-03_rb,3.3481e-03_rb,3.3359e-03_rb,3.2948e-03_rb/)\n      kbo(:,21, 1) = (/ &\n     &2.7580e-03_rb,2.7551e-03_rb,2.7356e-03_rb,2.7092e-03_rb,2.6841e-03_rb/)\n      kbo(:,22, 1) = (/ &\n     &2.2558e-03_rb,2.2435e-03_rb,2.2235e-03_rb,2.2041e-03_rb,2.1870e-03_rb/)\n      kbo(:,23, 1) = (/ &\n     &1.8426e-03_rb,1.8324e-03_rb,1.8088e-03_rb,1.7975e-03_rb,1.7882e-03_rb/)\n      kbo(:,24, 1) = (/ &\n     &1.5091e-03_rb,1.4914e-03_rb,1.4770e-03_rb,1.4698e-03_rb,1.4675e-03_rb/)\n      kbo(:,25, 1) = (/ &\n     &1.2361e-03_rb,1.2170e-03_rb,1.2068e-03_rb,1.2059e-03_rb,1.2054e-03_rb/)\n      kbo(:,26, 1) = (/ &\n     &1.0050e-03_rb,9.9424e-04_rb,9.8921e-04_rb,9.8950e-04_rb,9.9102e-04_rb/)\n      kbo(:,27, 1) = (/ &\n     &8.1924e-04_rb,8.1181e-04_rb,8.1111e-04_rb,8.1148e-04_rb,8.1057e-04_rb/)\n      kbo(:,28, 1) = (/ &\n     &6.6881e-04_rb,6.6398e-04_rb,6.6473e-04_rb,6.6536e-04_rb,6.6057e-04_rb/)\n      kbo(:,29, 1) = (/ &\n     &5.4452e-04_rb,5.4181e-04_rb,5.4254e-04_rb,5.4342e-04_rb,5.3551e-04_rb/)\n      kbo(:,30, 1) = (/ &\n     &4.4259e-04_rb,4.4140e-04_rb,4.4207e-04_rb,4.4326e-04_rb,4.2874e-04_rb/)\n      kbo(:,31, 1) = (/ &\n     &3.5899e-04_rb,3.5826e-04_rb,3.5911e-04_rb,3.5984e-04_rb,3.4298e-04_rb/)\n      kbo(:,32, 1) = (/ &\n     &2.9138e-04_rb,2.9104e-04_rb,2.9178e-04_rb,2.9237e-04_rb,2.7522e-04_rb/)\n      kbo(:,33, 1) = (/ &\n     &2.3674e-04_rb,2.3667e-04_rb,2.3708e-04_rb,2.3749e-04_rb,2.2116e-04_rb/)\n      kbo(:,34, 1) = (/ &\n     &1.9293e-04_rb,1.9295e-04_rb,1.9307e-04_rb,1.9353e-04_rb,1.7944e-04_rb/)\n      kbo(:,35, 1) = (/ &\n     &1.5741e-04_rb,1.5737e-04_rb,1.5735e-04_rb,1.5778e-04_rb,1.4713e-04_rb/)\n      kbo(:,36, 1) = (/ &\n     &1.2872e-04_rb,1.2833e-04_rb,1.2856e-04_rb,1.2886e-04_rb,1.2147e-04_rb/)\n      kbo(:,37, 1) = (/ &\n     &1.0573e-04_rb,1.0521e-04_rb,1.0532e-04_rb,1.0552e-04_rb,1.0153e-04_rb/)\n      kbo(:,38, 1) = (/ &\n     &8.6912e-05_rb,8.6294e-05_rb,8.6278e-05_rb,8.6393e-05_rb,8.5663e-05_rb/)\n      kbo(:,39, 1) = (/ &\n     &7.1476e-05_rb,7.0797e-05_rb,7.0693e-05_rb,7.0706e-05_rb,7.0752e-05_rb/)\n      kbo(:,40, 1) = (/ &\n     &5.8778e-05_rb,5.8375e-05_rb,5.8149e-05_rb,5.8120e-05_rb,5.8038e-05_rb/)\n      kbo(:,41, 1) = (/ &\n     &4.8208e-05_rb,4.8291e-05_rb,4.7939e-05_rb,4.7839e-05_rb,4.7717e-05_rb/)\n      kbo(:,42, 1) = (/ &\n     &3.9735e-05_rb,3.9794e-05_rb,3.9588e-05_rb,3.9414e-05_rb,3.9275e-05_rb/)\n      kbo(:,43, 1) = (/ &\n     &3.3069e-05_rb,3.2750e-05_rb,3.2898e-05_rb,3.2646e-05_rb,3.2434e-05_rb/)\n      kbo(:,44, 1) = (/ &\n     &2.7160e-05_rb,2.7263e-05_rb,2.7120e-05_rb,2.7165e-05_rb,2.6874e-05_rb/)\n      kbo(:,45, 1) = (/ &\n     &2.2285e-05_rb,2.2565e-05_rb,2.2508e-05_rb,2.2456e-05_rb,2.2357e-05_rb/)\n      kbo(:,46, 1) = (/ &\n     &1.8468e-05_rb,1.8529e-05_rb,1.8744e-05_rb,1.8640e-05_rb,1.8584e-05_rb/)\n      kbo(:,47, 1) = (/ &\n     &1.5267e-05_rb,1.5373e-05_rb,1.5389e-05_rb,1.5590e-05_rb,1.5417e-05_rb/)\n      kbo(:,48, 1) = (/ &\n     &1.2576e-05_rb,1.2765e-05_rb,1.2771e-05_rb,1.2828e-05_rb,1.2953e-05_rb/)\n      kbo(:,49, 1) = (/ &\n     &1.0526e-05_rb,1.0503e-05_rb,1.0641e-05_rb,1.0645e-05_rb,1.0671e-05_rb/)\n      kbo(:,50, 1) = (/ &\n     &8.5146e-06_rb,8.8286e-06_rb,8.7879e-06_rb,8.8870e-06_rb,8.8515e-06_rb/)\n      kbo(:,51, 1) = (/ &\n     &6.8551e-06_rb,7.1714e-06_rb,7.4262e-06_rb,7.3568e-06_rb,7.4039e-06_rb/)\n      kbo(:,52, 1) = (/ &\n     &5.5111e-06_rb,5.7854e-06_rb,6.0431e-06_rb,6.2230e-06_rb,6.1473e-06_rb/)\n      kbo(:,53, 1) = (/ &\n     &4.4382e-06_rb,4.6559e-06_rb,4.8718e-06_rb,5.0815e-06_rb,5.1941e-06_rb/)\n      kbo(:,54, 1) = (/ &\n     &3.6177e-06_rb,3.7935e-06_rb,3.9613e-06_rb,4.1342e-06_rb,4.2936e-06_rb/)\n      kbo(:,55, 1) = (/ &\n     &2.9336e-06_rb,3.1004e-06_rb,3.2420e-06_rb,3.3846e-06_rb,3.5194e-06_rb/)\n      kbo(:,56, 1) = (/ &\n     &2.3777e-06_rb,2.5393e-06_rb,2.6559e-06_rb,2.7737e-06_rb,2.8819e-06_rb/)\n      kbo(:,57, 1) = (/ &\n     &1.9258e-06_rb,2.0635e-06_rb,2.1875e-06_rb,2.2772e-06_rb,2.3684e-06_rb/)\n      kbo(:,58, 1) = (/ &\n     &1.5658e-06_rb,1.6813e-06_rb,1.7910e-06_rb,1.8800e-06_rb,1.9530e-06_rb/)\n      kbo(:,59, 1) = (/ &\n     &1.3188e-06_rb,1.4141e-06_rb,1.4979e-06_rb,1.5764e-06_rb,1.6384e-06_rb/)\n      kbo(:,13, 2) = (/ &\n     &3.3779e-02_rb,3.2735e-02_rb,3.1178e-02_rb,2.9814e-02_rb,2.8271e-02_rb/)\n      kbo(:,14, 2) = (/ &\n     &2.7945e-02_rb,2.6846e-02_rb,2.5419e-02_rb,2.4157e-02_rb,2.2814e-02_rb/)\n      kbo(:,15, 2) = (/ &\n     &2.2748e-02_rb,2.1521e-02_rb,2.0571e-02_rb,1.9559e-02_rb,1.8047e-02_rb/)\n      kbo(:,16, 2) = (/ &\n     &1.8337e-02_rb,1.7587e-02_rb,1.6750e-02_rb,1.5705e-02_rb,1.3259e-02_rb/)\n      kbo(:,17, 2) = (/ &\n     &1.5034e-02_rb,1.4343e-02_rb,1.3736e-02_rb,1.1541e-02_rb,9.7400e-03_rb/)\n      kbo(:,18, 2) = (/ &\n     &1.2164e-02_rb,1.1828e-02_rb,9.9998e-03_rb,8.2911e-03_rb,6.9774e-03_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.0053e-02_rb,8.7760e-03_rb,7.2944e-03_rb,6.0291e-03_rb,5.2188e-03_rb/)\n      kbo(:,20, 2) = (/ &\n     &8.0996e-03_rb,6.6628e-03_rb,5.4744e-03_rb,4.5474e-03_rb,4.0343e-03_rb/)\n      kbo(:,21, 2) = (/ &\n     &6.1685e-03_rb,5.0455e-03_rb,4.1278e-03_rb,3.5537e-03_rb,3.1461e-03_rb/)\n      kbo(:,22, 2) = (/ &\n     &4.6680e-03_rb,3.7894e-03_rb,3.1347e-03_rb,2.7602e-03_rb,2.4538e-03_rb/)\n      kbo(:,23, 2) = (/ &\n     &3.5105e-03_rb,2.8430e-03_rb,2.4311e-03_rb,2.1442e-03_rb,1.9116e-03_rb/)\n      kbo(:,24, 2) = (/ &\n     &2.6394e-03_rb,2.1852e-03_rb,1.8960e-03_rb,1.6702e-03_rb,1.4993e-03_rb/)\n      kbo(:,25, 2) = (/ &\n     &2.0041e-03_rb,1.6920e-03_rb,1.4784e-03_rb,1.3107e-03_rb,1.1883e-03_rb/)\n      kbo(:,26, 2) = (/ &\n     &1.5414e-03_rb,1.3189e-03_rb,1.1564e-03_rb,1.0333e-03_rb,9.4710e-04_rb/)\n      kbo(:,27, 2) = (/ &\n     &1.2025e-03_rb,1.0381e-03_rb,9.1423e-04_rb,8.1996e-04_rb,7.6323e-04_rb/)\n      kbo(:,28, 2) = (/ &\n     &9.4481e-04_rb,8.2314e-04_rb,7.2601e-04_rb,6.5680e-04_rb,6.2105e-04_rb/)\n      kbo(:,29, 2) = (/ &\n     &7.4291e-04_rb,6.5138e-04_rb,5.7968e-04_rb,5.2914e-04_rb,5.0508e-04_rb/)\n      kbo(:,30, 2) = (/ &\n     &5.8796e-04_rb,5.1841e-04_rb,4.6161e-04_rb,4.2521e-04_rb,4.1671e-04_rb/)\n      kbo(:,31, 2) = (/ &\n     &4.6334e-04_rb,4.1198e-04_rb,3.6828e-04_rb,3.4267e-04_rb,3.4322e-04_rb/)\n      kbo(:,32, 2) = (/ &\n     &3.6683e-04_rb,3.2718e-04_rb,2.9598e-04_rb,2.7743e-04_rb,2.8106e-04_rb/)\n      kbo(:,33, 2) = (/ &\n     &2.9220e-04_rb,2.6104e-04_rb,2.3912e-04_rb,2.2529e-04_rb,2.3032e-04_rb/)\n      kbo(:,34, 2) = (/ &\n     &2.3494e-04_rb,2.1114e-04_rb,1.9458e-04_rb,1.8336e-04_rb,1.8849e-04_rb/)\n      kbo(:,35, 2) = (/ &\n     &1.9117e-04_rb,1.7220e-04_rb,1.5969e-04_rb,1.5013e-04_rb,1.5359e-04_rb/)\n      kbo(:,36, 2) = (/ &\n     &1.5747e-04_rb,1.4221e-04_rb,1.3171e-04_rb,1.2370e-04_rb,1.2459e-04_rb/)\n      kbo(:,37, 2) = (/ &\n     &1.3250e-04_rb,1.1910e-04_rb,1.0968e-04_rb,1.0296e-04_rb,1.0130e-04_rb/)\n      kbo(:,38, 2) = (/ &\n     &1.1160e-04_rb,9.9715e-05_rb,9.1665e-05_rb,8.5730e-05_rb,8.1933e-05_rb/)\n      kbo(:,39, 2) = (/ &\n     &9.4135e-05_rb,8.3974e-05_rb,7.6783e-05_rb,7.1718e-05_rb,6.7517e-05_rb/)\n      kbo(:,40, 2) = (/ &\n     &8.0997e-05_rb,7.2288e-05_rb,6.5235e-05_rb,6.0491e-05_rb,5.6970e-05_rb/)\n      kbo(:,41, 2) = (/ &\n     &7.0436e-05_rb,6.2097e-05_rb,5.5431e-05_rb,5.1123e-05_rb,4.8054e-05_rb/)\n      kbo(:,42, 2) = (/ &\n     &6.1655e-05_rb,5.3367e-05_rb,4.7548e-05_rb,4.3416e-05_rb,4.0552e-05_rb/)\n      kbo(:,43, 2) = (/ &\n     &5.5272e-05_rb,4.6832e-05_rb,4.1549e-05_rb,3.7143e-05_rb,3.4563e-05_rb/)\n      kbo(:,44, 2) = (/ &\n     &5.0350e-05_rb,4.1911e-05_rb,3.6573e-05_rb,3.2553e-05_rb,2.9621e-05_rb/)\n      kbo(:,45, 2) = (/ &\n     &4.6680e-05_rb,3.8062e-05_rb,3.2149e-05_rb,2.8703e-05_rb,2.5694e-05_rb/)\n      kbo(:,46, 2) = (/ &\n     &4.2769e-05_rb,3.5698e-05_rb,2.9139e-05_rb,2.5199e-05_rb,2.2638e-05_rb/)\n      kbo(:,47, 2) = (/ &\n     &3.6477e-05_rb,3.2822e-05_rb,2.7467e-05_rb,2.2730e-05_rb,2.0075e-05_rb/)\n      kbo(:,48, 2) = (/ &\n     &3.0609e-05_rb,2.9832e-05_rb,2.5641e-05_rb,2.1246e-05_rb,1.7927e-05_rb/)\n      kbo(:,49, 2) = (/ &\n     &2.5892e-05_rb,2.4976e-05_rb,2.3819e-05_rb,2.0178e-05_rb,1.6719e-05_rb/)\n      kbo(:,50, 2) = (/ &\n     &2.2068e-05_rb,2.0897e-05_rb,2.0445e-05_rb,1.8401e-05_rb,1.5648e-05_rb/)\n      kbo(:,51, 2) = (/ &\n     &1.8894e-05_rb,1.8060e-05_rb,1.7047e-05_rb,1.6809e-05_rb,1.4426e-05_rb/)\n      kbo(:,52, 2) = (/ &\n     &1.6131e-05_rb,1.5345e-05_rb,1.4613e-05_rb,1.3961e-05_rb,1.3398e-05_rb/)\n      kbo(:,53, 2) = (/ &\n     &1.3727e-05_rb,1.3222e-05_rb,1.2619e-05_rb,1.1906e-05_rb,1.1467e-05_rb/)\n      kbo(:,54, 2) = (/ &\n     &1.1644e-05_rb,1.1203e-05_rb,1.0779e-05_rb,1.0373e-05_rb,9.7090e-06_rb/)\n      kbo(:,55, 2) = (/ &\n     &9.9606e-06_rb,9.5440e-06_rb,9.2216e-06_rb,8.7822e-06_rb,8.3198e-06_rb/)\n      kbo(:,56, 2) = (/ &\n     &8.4517e-06_rb,8.1696e-06_rb,7.8373e-06_rb,7.5094e-06_rb,7.2266e-06_rb/)\n      kbo(:,57, 2) = (/ &\n     &7.1634e-06_rb,7.0985e-06_rb,6.7296e-06_rb,6.4794e-06_rb,6.1647e-06_rb/)\n      kbo(:,58, 2) = (/ &\n     &6.2286e-06_rb,5.9713e-06_rb,5.8323e-06_rb,5.5370e-06_rb,5.3465e-06_rb/)\n      kbo(:,59, 2) = (/ &\n     &5.3307e-06_rb,5.0367e-06_rb,4.9690e-06_rb,4.6758e-06_rb,4.5062e-06_rb/)\n      kbo(:,13, 3) = (/ &\n     &4.7904e-02_rb,3.6965e-02_rb,2.8601e-02_rb,2.3919e-02_rb,2.0680e-02_rb/)\n      kbo(:,14, 3) = (/ &\n     &3.6570e-02_rb,2.7810e-02_rb,2.1848e-02_rb,1.8508e-02_rb,1.6582e-02_rb/)\n      kbo(:,15, 3) = (/ &\n     &2.6097e-02_rb,1.9628e-02_rb,1.6268e-02_rb,1.4252e-02_rb,1.3801e-02_rb/)\n      kbo(:,16, 3) = (/ &\n     &1.8293e-02_rb,1.4393e-02_rb,1.2369e-02_rb,1.1568e-02_rb,1.2855e-02_rb/)\n      kbo(:,17, 3) = (/ &\n     &1.3004e-02_rb,1.0838e-02_rb,9.6882e-03_rb,1.0818e-02_rb,1.1950e-02_rb/)\n      kbo(:,18, 3) = (/ &\n     &9.6007e-03_rb,8.2004e-03_rb,9.1048e-03_rb,1.0148e-02_rb,1.0662e-02_rb/)\n      kbo(:,19, 3) = (/ &\n     &7.2730e-03_rb,7.5847e-03_rb,8.4339e-03_rb,9.0734e-03_rb,9.2118e-03_rb/)\n      kbo(:,20, 3) = (/ &\n     &5.9400e-03_rb,6.7100e-03_rb,7.4249e-03_rb,7.7409e-03_rb,7.7182e-03_rb/)\n      kbo(:,21, 3) = (/ &\n     &5.2740e-03_rb,5.8871e-03_rb,6.3746e-03_rb,6.4908e-03_rb,6.3895e-03_rb/)\n      kbo(:,22, 3) = (/ &\n     &4.5973e-03_rb,5.1329e-03_rb,5.3865e-03_rb,5.3473e-03_rb,5.2488e-03_rb/)\n      kbo(:,23, 3) = (/ &\n     &4.0216e-03_rb,4.3958e-03_rb,4.5011e-03_rb,4.3919e-03_rb,4.3384e-03_rb/)\n      kbo(:,24, 3) = (/ &\n     &3.5050e-03_rb,3.6950e-03_rb,3.6848e-03_rb,3.6232e-03_rb,3.5889e-03_rb/)\n      kbo(:,25, 3) = (/ &\n     &3.0079e-03_rb,3.0947e-03_rb,3.0321e-03_rb,2.9863e-03_rb,2.9569e-03_rb/)\n      kbo(:,26, 3) = (/ &\n     &2.5223e-03_rb,2.5389e-03_rb,2.4899e-03_rb,2.4616e-03_rb,2.4119e-03_rb/)\n      kbo(:,27, 3) = (/ &\n     &2.0904e-03_rb,2.0720e-03_rb,2.0405e-03_rb,2.0263e-03_rb,1.9704e-03_rb/)\n      kbo(:,28, 3) = (/ &\n     &1.7240e-03_rb,1.6892e-03_rb,1.6695e-03_rb,1.6561e-03_rb,1.6055e-03_rb/)\n      kbo(:,29, 3) = (/ &\n     &1.4068e-03_rb,1.3720e-03_rb,1.3607e-03_rb,1.3422e-03_rb,1.3070e-03_rb/)\n      kbo(:,30, 3) = (/ &\n     &1.1328e-03_rb,1.1145e-03_rb,1.1117e-03_rb,1.0886e-03_rb,1.0628e-03_rb/)\n      kbo(:,31, 3) = (/ &\n     &9.1589e-04_rb,9.0415e-04_rb,9.0310e-04_rb,8.8069e-04_rb,8.6082e-04_rb/)\n      kbo(:,32, 3) = (/ &\n     &7.4268e-04_rb,7.3425e-04_rb,7.3091e-04_rb,7.1193e-04_rb,7.0016e-04_rb/)\n      kbo(:,33, 3) = (/ &\n     &5.9881e-04_rb,5.9536e-04_rb,5.8909e-04_rb,5.7513e-04_rb,5.6984e-04_rb/)\n      kbo(:,34, 3) = (/ &\n     &4.8522e-04_rb,4.8326e-04_rb,4.7702e-04_rb,4.6806e-04_rb,4.6482e-04_rb/)\n      kbo(:,35, 3) = (/ &\n     &3.9408e-04_rb,3.9282e-04_rb,3.8758e-04_rb,3.8191e-04_rb,3.7951e-04_rb/)\n      kbo(:,36, 3) = (/ &\n     &3.2090e-04_rb,3.1998e-04_rb,3.1651e-04_rb,3.1185e-04_rb,3.1064e-04_rb/)\n      kbo(:,37, 3) = (/ &\n     &2.6225e-04_rb,2.6215e-04_rb,2.6078e-04_rb,2.5651e-04_rb,2.5549e-04_rb/)\n      kbo(:,38, 3) = (/ &\n     &2.1480e-04_rb,2.1472e-04_rb,2.1476e-04_rb,2.1116e-04_rb,2.0969e-04_rb/)\n      kbo(:,39, 3) = (/ &\n     &1.7555e-04_rb,1.7537e-04_rb,1.7598e-04_rb,1.7350e-04_rb,1.7249e-04_rb/)\n      kbo(:,40, 3) = (/ &\n     &1.4506e-04_rb,1.4338e-04_rb,1.4427e-04_rb,1.4359e-04_rb,1.4195e-04_rb/)\n      kbo(:,41, 3) = (/ &\n     &1.1753e-04_rb,1.1789e-04_rb,1.1842e-04_rb,1.1899e-04_rb,1.1706e-04_rb/)\n      kbo(:,42, 3) = (/ &\n     &9.4811e-05_rb,9.6651e-05_rb,9.6909e-05_rb,9.7780e-05_rb,9.6573e-05_rb/)\n      kbo(:,43, 3) = (/ &\n     &7.5161e-05_rb,7.9489e-05_rb,7.9256e-05_rb,8.0096e-05_rb,8.0065e-05_rb/)\n      kbo(:,44, 3) = (/ &\n     &5.8204e-05_rb,6.3635e-05_rb,6.5251e-05_rb,6.5174e-05_rb,6.6162e-05_rb/)\n      kbo(:,45, 3) = (/ &\n     &4.3809e-05_rb,5.0393e-05_rb,5.3351e-05_rb,5.3552e-05_rb,5.3892e-05_rb/)\n      kbo(:,46, 3) = (/ &\n     &3.2980e-05_rb,3.7988e-05_rb,4.2459e-05_rb,4.3951e-05_rb,4.3847e-05_rb/)\n      kbo(:,47, 3) = (/ &\n     &2.7646e-05_rb,2.8723e-05_rb,3.2811e-05_rb,3.5391e-05_rb,3.6137e-05_rb/)\n      kbo(:,48, 3) = (/ &\n     &2.4543e-05_rb,2.1924e-05_rb,2.4598e-05_rb,2.7741e-05_rb,2.9339e-05_rb/)\n      kbo(:,49, 3) = (/ &\n     &2.2466e-05_rb,1.9218e-05_rb,1.8251e-05_rb,2.0876e-05_rb,2.3032e-05_rb/)\n      kbo(:,50, 3) = (/ &\n     &2.1181e-05_rb,1.7247e-05_rb,1.5253e-05_rb,1.5927e-05_rb,1.7960e-05_rb/)\n      kbo(:,51, 3) = (/ &\n     &2.0829e-05_rb,1.5682e-05_rb,1.3335e-05_rb,1.2152e-05_rb,1.3683e-05_rb/)\n      kbo(:,52, 3) = (/ &\n     &2.0195e-05_rb,1.5008e-05_rb,1.2032e-05_rb,1.0543e-05_rb,1.0211e-05_rb/)\n      kbo(:,53, 3) = (/ &\n     &1.9323e-05_rb,1.4642e-05_rb,1.1065e-05_rb,9.3359e-06_rb,8.4701e-06_rb/)\n      kbo(:,54, 3) = (/ &\n     &1.7666e-05_rb,1.4231e-05_rb,1.0596e-05_rb,8.3241e-06_rb,7.3928e-06_rb/)\n      kbo(:,55, 3) = (/ &\n     &1.5462e-05_rb,1.3265e-05_rb,1.0248e-05_rb,7.8075e-06_rb,6.5230e-06_rb/)\n      kbo(:,56, 3) = (/ &\n     &1.3370e-05_rb,1.2106e-05_rb,9.7995e-06_rb,7.4236e-06_rb,5.8878e-06_rb/)\n      kbo(:,57, 3) = (/ &\n     &1.1515e-05_rb,1.0653e-05_rb,9.2073e-06_rb,7.1981e-06_rb,5.4819e-06_rb/)\n      kbo(:,58, 3) = (/ &\n     &1.0034e-05_rb,9.2814e-06_rb,8.4358e-06_rb,6.8772e-06_rb,5.2130e-06_rb/)\n      kbo(:,59, 3) = (/ &\n     &8.4460e-06_rb,7.8198e-06_rb,7.3452e-06_rb,6.2331e-06_rb,4.7237e-06_rb/)\n      kbo(:,13, 4) = (/ &\n     &3.3587e-02_rb,4.0386e-02_rb,4.5135e-02_rb,4.6401e-02_rb,4.5805e-02_rb/)\n      kbo(:,14, 4) = (/ &\n     &3.1030e-02_rb,3.6513e-02_rb,3.9636e-02_rb,3.9291e-02_rb,3.8805e-02_rb/)\n      kbo(:,15, 4) = (/ &\n     &2.9952e-02_rb,3.3504e-02_rb,3.3526e-02_rb,3.3527e-02_rb,3.2785e-02_rb/)\n      kbo(:,16, 4) = (/ &\n     &2.7625e-02_rb,2.8337e-02_rb,2.8532e-02_rb,2.8121e-02_rb,2.7038e-02_rb/)\n      kbo(:,17, 4) = (/ &\n     &2.3797e-02_rb,2.4231e-02_rb,2.3927e-02_rb,2.3137e-02_rb,2.2675e-02_rb/)\n      kbo(:,18, 4) = (/ &\n     &2.0364e-02_rb,2.0218e-02_rb,1.9689e-02_rb,1.9353e-02_rb,1.9321e-02_rb/)\n      kbo(:,19, 4) = (/ &\n     &1.7135e-02_rb,1.6671e-02_rb,1.6414e-02_rb,1.6325e-02_rb,1.6362e-02_rb/)\n      kbo(:,20, 4) = (/ &\n     &1.4048e-02_rb,1.3836e-02_rb,1.3650e-02_rb,1.3725e-02_rb,1.3743e-02_rb/)\n      kbo(:,21, 4) = (/ &\n     &1.1598e-02_rb,1.1451e-02_rb,1.1386e-02_rb,1.1434e-02_rb,1.1536e-02_rb/)\n      kbo(:,22, 4) = (/ &\n     &9.5671e-03_rb,9.4431e-03_rb,9.4962e-03_rb,9.5565e-03_rb,9.6638e-03_rb/)\n      kbo(:,23, 4) = (/ &\n     &7.8733e-03_rb,7.8272e-03_rb,7.8608e-03_rb,8.0045e-03_rb,8.0429e-03_rb/)\n      kbo(:,24, 4) = (/ &\n     &6.4854e-03_rb,6.5239e-03_rb,6.5932e-03_rb,6.6847e-03_rb,6.6897e-03_rb/)\n      kbo(:,25, 4) = (/ &\n     &5.3475e-03_rb,5.3959e-03_rb,5.5055e-03_rb,5.5513e-03_rb,5.5516e-03_rb/)\n      kbo(:,26, 4) = (/ &\n     &4.4370e-03_rb,4.4984e-03_rb,4.5821e-03_rb,4.5978e-03_rb,4.6194e-03_rb/)\n      kbo(:,27, 4) = (/ &\n     &3.6654e-03_rb,3.7378e-03_rb,3.7830e-03_rb,3.7897e-03_rb,3.8209e-03_rb/)\n      kbo(:,28, 4) = (/ &\n     &3.0135e-03_rb,3.0852e-03_rb,3.1155e-03_rb,3.1198e-03_rb,3.1538e-03_rb/)\n      kbo(:,29, 4) = (/ &\n     &2.4690e-03_rb,2.5299e-03_rb,2.5457e-03_rb,2.5581e-03_rb,2.5884e-03_rb/)\n      kbo(:,30, 4) = (/ &\n     &2.0282e-03_rb,2.0645e-03_rb,2.0716e-03_rb,2.0943e-03_rb,2.1183e-03_rb/)\n      kbo(:,31, 4) = (/ &\n     &1.6532e-03_rb,1.6753e-03_rb,1.6810e-03_rb,1.7064e-03_rb,1.7271e-03_rb/)\n      kbo(:,32, 4) = (/ &\n     &1.3440e-03_rb,1.3610e-03_rb,1.3688e-03_rb,1.3929e-03_rb,1.4080e-03_rb/)\n      kbo(:,33, 4) = (/ &\n     &1.0937e-03_rb,1.1058e-03_rb,1.1183e-03_rb,1.1384e-03_rb,1.1495e-03_rb/)\n      kbo(:,34, 4) = (/ &\n     &8.9328e-04_rb,9.0340e-04_rb,9.1730e-04_rb,9.3209e-04_rb,9.4284e-04_rb/)\n      kbo(:,35, 4) = (/ &\n     &7.2895e-04_rb,7.3894e-04_rb,7.5120e-04_rb,7.6322e-04_rb,7.7389e-04_rb/)\n      kbo(:,36, 4) = (/ &\n     &5.9465e-04_rb,6.0388e-04_rb,6.1360e-04_rb,6.2477e-04_rb,6.3446e-04_rb/)\n      kbo(:,37, 4) = (/ &\n     &4.8509e-04_rb,4.9426e-04_rb,5.0234e-04_rb,5.1316e-04_rb,5.2248e-04_rb/)\n      kbo(:,38, 4) = (/ &\n     &3.9518e-04_rb,4.0486e-04_rb,4.1118e-04_rb,4.2126e-04_rb,4.3035e-04_rb/)\n      kbo(:,39, 4) = (/ &\n     &3.2206e-04_rb,3.3126e-04_rb,3.3692e-04_rb,3.4570e-04_rb,3.5386e-04_rb/)\n      kbo(:,40, 4) = (/ &\n     &2.6189e-04_rb,2.7140e-04_rb,2.7744e-04_rb,2.8454e-04_rb,2.9309e-04_rb/)\n      kbo(:,41, 4) = (/ &\n     &2.1513e-04_rb,2.2151e-04_rb,2.2843e-04_rb,2.3405e-04_rb,2.4235e-04_rb/)\n      kbo(:,42, 4) = (/ &\n     &1.7598e-04_rb,1.8130e-04_rb,1.8775e-04_rb,1.9283e-04_rb,2.0002e-04_rb/)\n      kbo(:,43, 4) = (/ &\n     &1.4391e-04_rb,1.4742e-04_rb,1.5366e-04_rb,1.5883e-04_rb,1.6416e-04_rb/)\n      kbo(:,44, 4) = (/ &\n     &1.1869e-04_rb,1.2058e-04_rb,1.2494e-04_rb,1.3042e-04_rb,1.3475e-04_rb/)\n      kbo(:,45, 4) = (/ &\n     &9.8053e-05_rb,9.8247e-05_rb,1.0155e-04_rb,1.0624e-04_rb,1.1079e-04_rb/)\n      kbo(:,46, 4) = (/ &\n     &8.0733e-05_rb,8.0988e-05_rb,8.2961e-05_rb,8.6570e-05_rb,9.0733e-05_rb/)\n      kbo(:,47, 4) = (/ &\n     &6.6646e-05_rb,6.6793e-05_rb,6.7614e-05_rb,7.0248e-05_rb,7.3658e-05_rb/)\n      kbo(:,48, 4) = (/ &\n     &5.5124e-05_rb,5.5074e-05_rb,5.5667e-05_rb,5.7150e-05_rb,5.9800e-05_rb/)\n      kbo(:,49, 4) = (/ &\n     &4.4694e-05_rb,4.5221e-05_rb,4.5769e-05_rb,4.6677e-05_rb,4.8625e-05_rb/)\n      kbo(:,50, 4) = (/ &\n     &3.5617e-05_rb,3.7343e-05_rb,3.7522e-05_rb,3.8384e-05_rb,3.9484e-05_rb/)\n      kbo(:,51, 4) = (/ &\n     &2.7917e-05_rb,3.0153e-05_rb,3.0833e-05_rb,3.1535e-05_rb,3.2403e-05_rb/)\n      kbo(:,52, 4) = (/ &\n     &2.1904e-05_rb,2.3837e-05_rb,2.5410e-05_rb,2.5925e-05_rb,2.6605e-05_rb/)\n      kbo(:,53, 4) = (/ &\n     &1.6636e-05_rb,1.9086e-05_rb,2.0539e-05_rb,2.1236e-05_rb,2.1831e-05_rb/)\n      kbo(:,54, 4) = (/ &\n     &1.2490e-05_rb,1.4743e-05_rb,1.6336e-05_rb,1.7546e-05_rb,1.7865e-05_rb/)\n      kbo(:,55, 4) = (/ &\n     &1.0189e-05_rb,1.1568e-05_rb,1.3196e-05_rb,1.4286e-05_rb,1.4740e-05_rb/)\n      kbo(:,56, 4) = (/ &\n     &9.0688e-06_rb,8.6690e-06_rb,1.0255e-05_rb,1.1493e-05_rb,1.2371e-05_rb/)\n      kbo(:,57, 4) = (/ &\n     &8.8593e-06_rb,6.9758e-06_rb,8.0033e-06_rb,9.3145e-06_rb,1.0058e-05_rb/)\n      kbo(:,58, 4) = (/ &\n     &8.9813e-06_rb,6.2718e-06_rb,5.9506e-06_rb,7.1169e-06_rb,8.0866e-06_rb/)\n      kbo(:,59, 4) = (/ &\n     &8.3077e-06_rb,5.6478e-06_rb,4.7582e-06_rb,5.5908e-06_rb,6.6051e-06_rb/)\n      kbo(:,13, 5) = (/ &\n     &8.1443e-02_rb,7.8686e-02_rb,7.8076e-02_rb,7.8298e-02_rb,8.0221e-02_rb/)\n      kbo(:,14, 5) = (/ &\n     &6.8138e-02_rb,6.7426e-02_rb,6.7266e-02_rb,6.8778e-02_rb,7.0029e-02_rb/)\n      kbo(:,15, 5) = (/ &\n     &5.7566e-02_rb,5.8181e-02_rb,6.0037e-02_rb,6.1077e-02_rb,6.2170e-02_rb/)\n      kbo(:,16, 5) = (/ &\n     &4.9602e-02_rb,5.1862e-02_rb,5.2830e-02_rb,5.3796e-02_rb,5.4837e-02_rb/)\n      kbo(:,17, 5) = (/ &\n     &4.4316e-02_rb,4.5504e-02_rb,4.6554e-02_rb,4.7427e-02_rb,4.7730e-02_rb/)\n      kbo(:,18, 5) = (/ &\n     &3.9127e-02_rb,4.0270e-02_rb,4.1019e-02_rb,4.1264e-02_rb,4.1372e-02_rb/)\n      kbo(:,19, 5) = (/ &\n     &3.4464e-02_rb,3.5381e-02_rb,3.5731e-02_rb,3.5860e-02_rb,3.6031e-02_rb/)\n      kbo(:,20, 5) = (/ &\n     &2.9866e-02_rb,3.0433e-02_rb,3.0697e-02_rb,3.0719e-02_rb,3.0767e-02_rb/)\n      kbo(:,21, 5) = (/ &\n     &2.5526e-02_rb,2.5898e-02_rb,2.6044e-02_rb,2.5989e-02_rb,2.5913e-02_rb/)\n      kbo(:,22, 5) = (/ &\n     &2.1617e-02_rb,2.1821e-02_rb,2.1825e-02_rb,2.1764e-02_rb,2.1636e-02_rb/)\n      kbo(:,23, 5) = (/ &\n     &1.8178e-02_rb,1.8256e-02_rb,1.8221e-02_rb,1.8126e-02_rb,1.8025e-02_rb/)\n      kbo(:,24, 5) = (/ &\n     &1.5221e-02_rb,1.5229e-02_rb,1.5185e-02_rb,1.5079e-02_rb,1.4988e-02_rb/)\n      kbo(:,25, 5) = (/ &\n     &1.2672e-02_rb,1.2670e-02_rb,1.2609e-02_rb,1.2518e-02_rb,1.2439e-02_rb/)\n      kbo(:,26, 5) = (/ &\n     &1.0521e-02_rb,1.0503e-02_rb,1.0444e-02_rb,1.0375e-02_rb,1.0305e-02_rb/)\n      kbo(:,27, 5) = (/ &\n     &8.6769e-03_rb,8.6518e-03_rb,8.6102e-03_rb,8.5574e-03_rb,8.4970e-03_rb/)\n      kbo(:,28, 5) = (/ &\n     &7.1348e-03_rb,7.1122e-03_rb,7.0812e-03_rb,7.0380e-03_rb,6.9899e-03_rb/)\n      kbo(:,29, 5) = (/ &\n     &5.8206e-03_rb,5.8023e-03_rb,5.7788e-03_rb,5.7535e-03_rb,5.7174e-03_rb/)\n      kbo(:,30, 5) = (/ &\n     &4.7381e-03_rb,4.7263e-03_rb,4.7093e-03_rb,4.6856e-03_rb,4.6651e-03_rb/)\n      kbo(:,31, 5) = (/ &\n     &3.8310e-03_rb,3.8249e-03_rb,3.8179e-03_rb,3.8007e-03_rb,3.7880e-03_rb/)\n      kbo(:,32, 5) = (/ &\n     &3.1058e-03_rb,3.1004e-03_rb,3.0969e-03_rb,3.0876e-03_rb,3.0842e-03_rb/)\n      kbo(:,33, 5) = (/ &\n     &2.5170e-03_rb,2.5165e-03_rb,2.5146e-03_rb,2.5120e-03_rb,2.5162e-03_rb/)\n      kbo(:,34, 5) = (/ &\n     &2.0509e-03_rb,2.0525e-03_rb,2.0528e-03_rb,2.0549e-03_rb,2.0638e-03_rb/)\n      kbo(:,35, 5) = (/ &\n     &1.6738e-03_rb,1.6767e-03_rb,1.6787e-03_rb,1.6855e-03_rb,1.6962e-03_rb/)\n      kbo(:,36, 5) = (/ &\n     &1.3688e-03_rb,1.3726e-03_rb,1.3769e-03_rb,1.3854e-03_rb,1.3974e-03_rb/)\n      kbo(:,37, 5) = (/ &\n     &1.1244e-03_rb,1.1287e-03_rb,1.1344e-03_rb,1.1436e-03_rb,1.1555e-03_rb/)\n      kbo(:,38, 5) = (/ &\n     &9.2354e-04_rb,9.2789e-04_rb,9.3393e-04_rb,9.4440e-04_rb,9.5553e-04_rb/)\n      kbo(:,39, 5) = (/ &\n     &7.5825e-04_rb,7.6213e-04_rb,7.6943e-04_rb,7.7957e-04_rb,7.9082e-04_rb/)\n      kbo(:,40, 5) = (/ &\n     &6.2483e-04_rb,6.2933e-04_rb,6.3674e-04_rb,6.4631e-04_rb,6.5698e-04_rb/)\n      kbo(:,41, 5) = (/ &\n     &5.1520e-04_rb,5.2035e-04_rb,5.2751e-04_rb,5.3662e-04_rb,5.4646e-04_rb/)\n      kbo(:,42, 5) = (/ &\n     &4.2480e-04_rb,4.3031e-04_rb,4.3691e-04_rb,4.4575e-04_rb,4.5526e-04_rb/)\n      kbo(:,43, 5) = (/ &\n     &3.5001e-04_rb,3.5557e-04_rb,3.6220e-04_rb,3.7053e-04_rb,3.7981e-04_rb/)\n      kbo(:,44, 5) = (/ &\n     &2.8750e-04_rb,2.9363e-04_rb,3.0042e-04_rb,3.0784e-04_rb,3.1671e-04_rb/)\n      kbo(:,45, 5) = (/ &\n     &2.3558e-04_rb,2.4233e-04_rb,2.4882e-04_rb,2.5588e-04_rb,2.6409e-04_rb/)\n      kbo(:,46, 5) = (/ &\n     &1.9252e-04_rb,1.9920e-04_rb,2.0547e-04_rb,2.1209e-04_rb,2.1984e-04_rb/)\n      kbo(:,47, 5) = (/ &\n     &1.5646e-04_rb,1.6321e-04_rb,1.6931e-04_rb,1.7555e-04_rb,1.8250e-04_rb/)\n      kbo(:,48, 5) = (/ &\n     &1.2570e-04_rb,1.3295e-04_rb,1.3900e-04_rb,1.4479e-04_rb,1.5118e-04_rb/)\n      kbo(:,49, 5) = (/ &\n     &1.0046e-04_rb,1.0778e-04_rb,1.1356e-04_rb,1.1908e-04_rb,1.2499e-04_rb/)\n      kbo(:,50, 5) = (/ &\n     &8.0435e-05_rb,8.6489e-05_rb,9.2769e-05_rb,9.7911e-05_rb,1.0325e-04_rb/)\n      kbo(:,51, 5) = (/ &\n     &6.3458e-05_rb,6.9460e-05_rb,7.5498e-05_rb,8.0303e-05_rb,8.5194e-05_rb/)\n      kbo(:,52, 5) = (/ &\n     &4.9865e-05_rb,5.5730e-05_rb,6.0501e-05_rb,6.5586e-05_rb,7.0113e-05_rb/)\n      kbo(:,53, 5) = (/ &\n     &3.9952e-05_rb,4.3532e-05_rb,4.8481e-05_rb,5.3147e-05_rb,5.7399e-05_rb/)\n      kbo(:,54, 5) = (/ &\n     &3.2880e-05_rb,3.4587e-05_rb,3.8794e-05_rb,4.2722e-05_rb,4.7074e-05_rb/)\n      kbo(:,55, 5) = (/ &\n     &2.7120e-05_rb,2.7717e-05_rb,3.0553e-05_rb,3.4428e-05_rb,3.8350e-05_rb/)\n      kbo(:,56, 5) = (/ &\n     &2.2127e-05_rb,2.2850e-05_rb,2.4431e-05_rb,2.7545e-05_rb,3.0669e-05_rb/)\n      kbo(:,57, 5) = (/ &\n     &1.8252e-05_rb,1.8866e-05_rb,1.9461e-05_rb,2.1577e-05_rb,2.4721e-05_rb/)\n      kbo(:,58, 5) = (/ &\n     &1.4337e-05_rb,1.5384e-05_rb,1.6084e-05_rb,1.7424e-05_rb,1.9750e-05_rb/)\n      kbo(:,59, 5) = (/ &\n     &1.1278e-05_rb,1.2651e-05_rb,1.3368e-05_rb,1.4398e-05_rb,1.6235e-05_rb/)\n      kbo(:,13, 6) = (/ &\n     &1.8817e-01_rb,1.9206e-01_rb,1.9341e-01_rb,1.9316e-01_rb,1.9216e-01_rb/)\n      kbo(:,14, 6) = (/ &\n     &1.5839e-01_rb,1.6013e-01_rb,1.6098e-01_rb,1.6083e-01_rb,1.6026e-01_rb/)\n      kbo(:,15, 6) = (/ &\n     &1.3908e-01_rb,1.4022e-01_rb,1.4029e-01_rb,1.3949e-01_rb,1.3862e-01_rb/)\n      kbo(:,16, 6) = (/ &\n     &1.2016e-01_rb,1.2041e-01_rb,1.1995e-01_rb,1.1931e-01_rb,1.1861e-01_rb/)\n      kbo(:,17, 6) = (/ &\n     &1.0302e-01_rb,1.0297e-01_rb,1.0263e-01_rb,1.0230e-01_rb,1.0181e-01_rb/)\n      kbo(:,18, 6) = (/ &\n     &8.8231e-02_rb,8.8161e-02_rb,8.7913e-02_rb,8.7602e-02_rb,8.7188e-02_rb/)\n      kbo(:,19, 6) = (/ &\n     &7.6358e-02_rb,7.6259e-02_rb,7.5975e-02_rb,7.5746e-02_rb,7.5236e-02_rb/)\n      kbo(:,20, 6) = (/ &\n     &6.5716e-02_rb,6.5541e-02_rb,6.5322e-02_rb,6.5232e-02_rb,6.4993e-02_rb/)\n      kbo(:,21, 6) = (/ &\n     &5.5986e-02_rb,5.5897e-02_rb,5.5927e-02_rb,5.6065e-02_rb,5.6062e-02_rb/)\n      kbo(:,22, 6) = (/ &\n     &4.7367e-02_rb,4.7462e-02_rb,4.7736e-02_rb,4.7820e-02_rb,4.7753e-02_rb/)\n      kbo(:,23, 6) = (/ &\n     &4.0099e-02_rb,4.0361e-02_rb,4.0481e-02_rb,4.0442e-02_rb,4.0254e-02_rb/)\n      kbo(:,24, 6) = (/ &\n     &3.3998e-02_rb,3.4135e-02_rb,3.4123e-02_rb,3.4025e-02_rb,3.3829e-02_rb/)\n      kbo(:,25, 6) = (/ &\n     &2.8658e-02_rb,2.8658e-02_rb,2.8582e-02_rb,2.8475e-02_rb,2.8305e-02_rb/)\n      kbo(:,26, 6) = (/ &\n     &2.3955e-02_rb,2.3909e-02_rb,2.3836e-02_rb,2.3748e-02_rb,2.3606e-02_rb/)\n      kbo(:,27, 6) = (/ &\n     &1.9889e-02_rb,1.9852e-02_rb,1.9780e-02_rb,1.9709e-02_rb,1.9615e-02_rb/)\n      kbo(:,28, 6) = (/ &\n     &1.6444e-02_rb,1.6406e-02_rb,1.6372e-02_rb,1.6318e-02_rb,1.6245e-02_rb/)\n      kbo(:,29, 6) = (/ &\n     &1.3491e-02_rb,1.3473e-02_rb,1.3456e-02_rb,1.3404e-02_rb,1.3356e-02_rb/)\n      kbo(:,30, 6) = (/ &\n     &1.1049e-02_rb,1.1039e-02_rb,1.1036e-02_rb,1.1011e-02_rb,1.0973e-02_rb/)\n      kbo(:,31, 6) = (/ &\n     &9.0143e-03_rb,9.0192e-03_rb,9.0194e-03_rb,9.0134e-03_rb,9.0031e-03_rb/)\n      kbo(:,32, 6) = (/ &\n     &7.3665e-03_rb,7.3853e-03_rb,7.3885e-03_rb,7.3955e-03_rb,7.4067e-03_rb/)\n      kbo(:,33, 6) = (/ &\n     &6.0271e-03_rb,6.0462e-03_rb,6.0622e-03_rb,6.0836e-03_rb,6.1045e-03_rb/)\n      kbo(:,34, 6) = (/ &\n     &4.9546e-03_rb,4.9811e-03_rb,5.0047e-03_rb,5.0339e-03_rb,5.0627e-03_rb/)\n      kbo(:,35, 6) = (/ &\n     &4.0822e-03_rb,4.1121e-03_rb,4.1424e-03_rb,4.1730e-03_rb,4.2061e-03_rb/)\n      kbo(:,36, 6) = (/ &\n     &3.3681e-03_rb,3.3993e-03_rb,3.4334e-03_rb,3.4635e-03_rb,3.4987e-03_rb/)\n      kbo(:,37, 6) = (/ &\n     &2.7875e-03_rb,2.8195e-03_rb,2.8505e-03_rb,2.8836e-03_rb,2.9180e-03_rb/)\n      kbo(:,38, 6) = (/ &\n     &2.3080e-03_rb,2.3382e-03_rb,2.3688e-03_rb,2.3992e-03_rb,2.4337e-03_rb/)\n      kbo(:,39, 6) = (/ &\n     &1.9086e-03_rb,1.9391e-03_rb,1.9678e-03_rb,1.9967e-03_rb,2.0294e-03_rb/)\n      kbo(:,40, 6) = (/ &\n     &1.5841e-03_rb,1.6128e-03_rb,1.6390e-03_rb,1.6667e-03_rb,1.6980e-03_rb/)\n      kbo(:,41, 6) = (/ &\n     &1.3139e-03_rb,1.3408e-03_rb,1.3651e-03_rb,1.3913e-03_rb,1.4213e-03_rb/)\n      kbo(:,42, 6) = (/ &\n     &1.0897e-03_rb,1.1135e-03_rb,1.1369e-03_rb,1.1616e-03_rb,1.1887e-03_rb/)\n      kbo(:,43, 6) = (/ &\n     &9.0311e-04_rb,9.2481e-04_rb,9.4572e-04_rb,9.6914e-04_rb,9.9399e-04_rb/)\n      kbo(:,44, 6) = (/ &\n     &7.4776e-04_rb,7.6718e-04_rb,7.8637e-04_rb,8.0787e-04_rb,8.3044e-04_rb/)\n      kbo(:,45, 6) = (/ &\n     &6.1863e-04_rb,6.3626e-04_rb,6.5392e-04_rb,6.7285e-04_rb,6.9425e-04_rb/)\n      kbo(:,46, 6) = (/ &\n     &5.1188e-04_rb,5.2759e-04_rb,5.4354e-04_rb,5.6054e-04_rb,5.8050e-04_rb/)\n      kbo(:,47, 6) = (/ &\n     &4.2255e-04_rb,4.3715e-04_rb,4.5173e-04_rb,4.6695e-04_rb,4.8462e-04_rb/)\n      kbo(:,48, 6) = (/ &\n     &3.4819e-04_rb,3.6156e-04_rb,3.7458e-04_rb,3.8864e-04_rb,4.0475e-04_rb/)\n      kbo(:,49, 6) = (/ &\n     &2.8602e-04_rb,2.9814e-04_rb,3.1015e-04_rb,3.2283e-04_rb,3.3769e-04_rb/)\n      kbo(:,50, 6) = (/ &\n     &2.3475e-04_rb,2.4603e-04_rb,2.5676e-04_rb,2.6851e-04_rb,2.8207e-04_rb/)\n      kbo(:,51, 6) = (/ &\n     &1.9267e-04_rb,2.0293e-04_rb,2.1257e-04_rb,2.2327e-04_rb,2.3584e-04_rb/)\n      kbo(:,52, 6) = (/ &\n     &1.5736e-04_rb,1.6664e-04_rb,1.7558e-04_rb,1.8519e-04_rb,1.9650e-04_rb/)\n      kbo(:,53, 6) = (/ &\n     &1.2741e-04_rb,1.3627e-04_rb,1.4450e-04_rb,1.5309e-04_rb,1.6331e-04_rb/)\n      kbo(:,54, 6) = (/ &\n     &1.0368e-04_rb,1.1186e-04_rb,1.1942e-04_rb,1.2720e-04_rb,1.3642e-04_rb/)\n      kbo(:,55, 6) = (/ &\n     &8.4018e-05_rb,9.1900e-05_rb,9.8814e-05_rb,1.0595e-04_rb,1.1419e-04_rb/)\n      kbo(:,56, 6) = (/ &\n     &6.7644e-05_rb,7.5107e-05_rb,8.1537e-05_rb,8.8130e-05_rb,9.5553e-05_rb/)\n      kbo(:,57, 6) = (/ &\n     &5.3052e-05_rb,6.0800e-05_rb,6.7049e-05_rb,7.3153e-05_rb,7.9865e-05_rb/)\n      kbo(:,58, 6) = (/ &\n     &4.1297e-05_rb,4.9020e-05_rb,5.4922e-05_rb,6.0589e-05_rb,6.6753e-05_rb/)\n      kbo(:,59, 6) = (/ &\n     &3.4006e-05_rb,4.0647e-05_rb,4.6127e-05_rb,5.1418e-05_rb,5.7293e-05_rb/)\n      kbo(:,13, 7) = (/ &\n     &5.2204e-01_rb,5.1758e-01_rb,5.1182e-01_rb,5.0530e-01_rb,4.9787e-01_rb/)\n      kbo(:,14, 7) = (/ &\n     &4.3225e-01_rb,4.2797e-01_rb,4.2283e-01_rb,4.1695e-01_rb,4.1054e-01_rb/)\n      kbo(:,15, 7) = (/ &\n     &3.5438e-01_rb,3.5034e-01_rb,3.4544e-01_rb,3.4060e-01_rb,3.3555e-01_rb/)\n      kbo(:,16, 7) = (/ &\n     &3.0255e-01_rb,2.9825e-01_rb,2.9421e-01_rb,2.8975e-01_rb,2.8561e-01_rb/)\n      kbo(:,17, 7) = (/ &\n     &2.5944e-01_rb,2.5596e-01_rb,2.5201e-01_rb,2.4828e-01_rb,2.4466e-01_rb/)\n      kbo(:,18, 7) = (/ &\n     &2.2110e-01_rb,2.1760e-01_rb,2.1435e-01_rb,2.1143e-01_rb,2.0904e-01_rb/)\n      kbo(:,19, 7) = (/ &\n     &1.8864e-01_rb,1.8589e-01_rb,1.8343e-01_rb,1.8143e-01_rb,1.7990e-01_rb/)\n      kbo(:,20, 7) = (/ &\n     &1.6121e-01_rb,1.5932e-01_rb,1.5784e-01_rb,1.5634e-01_rb,1.5506e-01_rb/)\n      kbo(:,21, 7) = (/ &\n     &1.3878e-01_rb,1.3751e-01_rb,1.3632e-01_rb,1.3482e-01_rb,1.3362e-01_rb/)\n      kbo(:,22, 7) = (/ &\n     &1.1962e-01_rb,1.1845e-01_rb,1.1744e-01_rb,1.1632e-01_rb,1.1539e-01_rb/)\n      kbo(:,23, 7) = (/ &\n     &1.0245e-01_rb,1.0173e-01_rb,1.0097e-01_rb,1.0038e-01_rb,9.9933e-02_rb/)\n      kbo(:,24, 7) = (/ &\n     &8.7666e-02_rb,8.7158e-02_rb,8.6968e-02_rb,8.6971e-02_rb,8.7255e-02_rb/)\n      kbo(:,25, 7) = (/ &\n     &7.4640e-02_rb,7.4734e-02_rb,7.5053e-02_rb,7.5269e-02_rb,7.5390e-02_rb/)\n      kbo(:,26, 7) = (/ &\n     &6.3735e-02_rb,6.4061e-02_rb,6.4333e-02_rb,6.4421e-02_rb,6.4368e-02_rb/)\n      kbo(:,27, 7) = (/ &\n     &5.4126e-02_rb,5.4429e-02_rb,5.4564e-02_rb,5.4521e-02_rb,5.4525e-02_rb/)\n      kbo(:,28, 7) = (/ &\n     &4.5724e-02_rb,4.5897e-02_rb,4.5948e-02_rb,4.5981e-02_rb,4.6016e-02_rb/)\n      kbo(:,29, 7) = (/ &\n     &3.8172e-02_rb,3.8308e-02_rb,3.8382e-02_rb,3.8489e-02_rb,3.8585e-02_rb/)\n      kbo(:,30, 7) = (/ &\n     &3.1718e-02_rb,3.1883e-02_rb,3.2020e-02_rb,3.2173e-02_rb,3.2316e-02_rb/)\n      kbo(:,31, 7) = (/ &\n     &2.6252e-02_rb,2.6436e-02_rb,2.6597e-02_rb,2.6780e-02_rb,2.6950e-02_rb/)\n      kbo(:,32, 7) = (/ &\n     &2.1754e-02_rb,2.1941e-02_rb,2.2153e-02_rb,2.2326e-02_rb,2.2517e-02_rb/)\n      kbo(:,33, 7) = (/ &\n     &1.8085e-02_rb,1.8277e-02_rb,1.8461e-02_rb,1.8652e-02_rb,1.8849e-02_rb/)\n      kbo(:,34, 7) = (/ &\n     &1.5122e-02_rb,1.5298e-02_rb,1.5478e-02_rb,1.5652e-02_rb,1.5844e-02_rb/)\n      kbo(:,35, 7) = (/ &\n     &1.2625e-02_rb,1.2802e-02_rb,1.2974e-02_rb,1.3152e-02_rb,1.3333e-02_rb/)\n      kbo(:,36, 7) = (/ &\n     &1.0557e-02_rb,1.0724e-02_rb,1.0878e-02_rb,1.1051e-02_rb,1.1225e-02_rb/)\n      kbo(:,37, 7) = (/ &\n     &8.8496e-03_rb,9.0081e-03_rb,9.1627e-03_rb,9.3269e-03_rb,9.4871e-03_rb/)\n      kbo(:,38, 7) = (/ &\n     &7.4071e-03_rb,7.5543e-03_rb,7.6993e-03_rb,7.8541e-03_rb,8.0170e-03_rb/)\n      kbo(:,39, 7) = (/ &\n     &6.1854e-03_rb,6.3247e-03_rb,6.4677e-03_rb,6.6094e-03_rb,6.7526e-03_rb/)\n      kbo(:,40, 7) = (/ &\n     &5.1922e-03_rb,5.3234e-03_rb,5.4554e-03_rb,5.5916e-03_rb,5.7266e-03_rb/)\n      kbo(:,41, 7) = (/ &\n     &4.3585e-03_rb,4.4819e-03_rb,4.6086e-03_rb,4.7343e-03_rb,4.8561e-03_rb/)\n      kbo(:,42, 7) = (/ &\n     &3.6533e-03_rb,3.7711e-03_rb,3.8861e-03_rb,3.9990e-03_rb,4.1168e-03_rb/)\n      kbo(:,43, 7) = (/ &\n     &3.0584e-03_rb,3.1667e-03_rb,3.2727e-03_rb,3.3777e-03_rb,3.4881e-03_rb/)\n      kbo(:,44, 7) = (/ &\n     &2.5534e-03_rb,2.6526e-03_rb,2.7492e-03_rb,2.8491e-03_rb,2.9548e-03_rb/)\n      kbo(:,45, 7) = (/ &\n     &2.1284e-03_rb,2.2160e-03_rb,2.3074e-03_rb,2.3986e-03_rb,2.4950e-03_rb/)\n      kbo(:,46, 7) = (/ &\n     &1.7695e-03_rb,1.8482e-03_rb,1.9316e-03_rb,2.0146e-03_rb,2.1010e-03_rb/)\n      kbo(:,47, 7) = (/ &\n     &1.4673e-03_rb,1.5398e-03_rb,1.6138e-03_rb,1.6894e-03_rb,1.7692e-03_rb/)\n      kbo(:,48, 7) = (/ &\n     &1.2142e-03_rb,1.2798e-03_rb,1.3450e-03_rb,1.4129e-03_rb,1.4833e-03_rb/)\n      kbo(:,49, 7) = (/ &\n     &1.0007e-03_rb,1.0578e-03_rb,1.1143e-03_rb,1.1757e-03_rb,1.2387e-03_rb/)\n      kbo(:,50, 7) = (/ &\n     &8.2795e-04_rb,8.7794e-04_rb,9.2798e-04_rb,9.8346e-04_rb,1.0399e-03_rb/)\n      kbo(:,51, 7) = (/ &\n     &6.8604e-04_rb,7.3011e-04_rb,7.7427e-04_rb,8.2321e-04_rb,8.7374e-04_rb/)\n      kbo(:,52, 7) = (/ &\n     &5.6660e-04_rb,6.0603e-04_rb,6.4555e-04_rb,6.8763e-04_rb,7.3282e-04_rb/)\n      kbo(:,53, 7) = (/ &\n     &4.6575e-04_rb,5.0073e-04_rb,5.3612e-04_rb,5.7296e-04_rb,6.1258e-04_rb/)\n      kbo(:,54, 7) = (/ &\n     &3.8679e-04_rb,4.1843e-04_rb,4.5022e-04_rb,4.8415e-04_rb,5.2013e-04_rb/)\n      kbo(:,55, 7) = (/ &\n     &3.2310e-04_rb,3.5117e-04_rb,3.8038e-04_rb,4.1226e-04_rb,4.4542e-04_rb/)\n      kbo(:,56, 7) = (/ &\n     &2.6895e-04_rb,2.9441e-04_rb,3.2135e-04_rb,3.5045e-04_rb,3.8084e-04_rb/)\n      kbo(:,57, 7) = (/ &\n     &2.2346e-04_rb,2.4644e-04_rb,2.7077e-04_rb,2.9691e-04_rb,3.2529e-04_rb/)\n      kbo(:,58, 7) = (/ &\n     &1.8566e-04_rb,2.0641e-04_rb,2.2834e-04_rb,2.5256e-04_rb,2.7894e-04_rb/)\n      kbo(:,59, 7) = (/ &\n     &1.5949e-04_rb,1.7859e-04_rb,1.9903e-04_rb,2.2176e-04_rb,2.4718e-04_rb/)\n      kbo(:,13, 8) = (/ &\n     &1.7932e+00_rb,1.7598e+00_rb,1.7272e+00_rb,1.6957e+00_rb,1.6643e+00_rb/)\n      kbo(:,14, 8) = (/ &\n     &1.5024e+00_rb,1.4748e+00_rb,1.4482e+00_rb,1.4213e+00_rb,1.3943e+00_rb/)\n      kbo(:,15, 8) = (/ &\n     &1.2493e+00_rb,1.2269e+00_rb,1.2042e+00_rb,1.1821e+00_rb,1.1593e+00_rb/)\n      kbo(:,16, 8) = (/ &\n     &1.0236e+00_rb,1.0050e+00_rb,9.8683e-01_rb,9.6754e-01_rb,9.4805e-01_rb/)\n      kbo(:,17, 8) = (/ &\n     &8.3764e-01_rb,8.2167e-01_rb,8.0558e-01_rb,7.8848e-01_rb,7.7231e-01_rb/)\n      kbo(:,18, 8) = (/ &\n     &7.0049e-01_rb,6.8715e-01_rb,6.7310e-01_rb,6.5885e-01_rb,6.4482e-01_rb/)\n      kbo(:,19, 8) = (/ &\n     &6.0067e-01_rb,5.8909e-01_rb,5.7714e-01_rb,5.6481e-01_rb,5.5329e-01_rb/)\n      kbo(:,20, 8) = (/ &\n     &5.1436e-01_rb,5.0417e-01_rb,4.9351e-01_rb,4.8348e-01_rb,4.7495e-01_rb/)\n      kbo(:,21, 8) = (/ &\n     &4.3696e-01_rb,4.2847e-01_rb,4.2014e-01_rb,4.1292e-01_rb,4.0709e-01_rb/)\n      kbo(:,22, 8) = (/ &\n     &3.7052e-01_rb,3.6397e-01_rb,3.5765e-01_rb,3.5323e-01_rb,3.4919e-01_rb/)\n      kbo(:,23, 8) = (/ &\n     &3.1534e-01_rb,3.1049e-01_rb,3.0630e-01_rb,3.0316e-01_rb,3.0035e-01_rb/)\n      kbo(:,24, 8) = (/ &\n     &2.7112e-01_rb,2.6740e-01_rb,2.6459e-01_rb,2.6223e-01_rb,2.5988e-01_rb/)\n      kbo(:,25, 8) = (/ &\n     &2.3380e-01_rb,2.3133e-01_rb,2.2943e-01_rb,2.2772e-01_rb,2.2653e-01_rb/)\n      kbo(:,26, 8) = (/ &\n     &2.0236e-01_rb,2.0088e-01_rb,1.9954e-01_rb,1.9878e-01_rb,1.9870e-01_rb/)\n      kbo(:,27, 8) = (/ &\n     &1.7470e-01_rb,1.7394e-01_rb,1.7356e-01_rb,1.7393e-01_rb,1.7411e-01_rb/)\n      kbo(:,28, 8) = (/ &\n     &1.5024e-01_rb,1.5047e-01_rb,1.5098e-01_rb,1.5164e-01_rb,1.5243e-01_rb/)\n      kbo(:,29, 8) = (/ &\n     &1.2816e-01_rb,1.2887e-01_rb,1.2996e-01_rb,1.3066e-01_rb,1.3197e-01_rb/)\n      kbo(:,30, 8) = (/ &\n     &1.0887e-01_rb,1.0998e-01_rb,1.1099e-01_rb,1.1227e-01_rb,1.1365e-01_rb/)\n      kbo(:,31, 8) = (/ &\n     &9.1656e-02_rb,9.2754e-02_rb,9.3840e-02_rb,9.5163e-02_rb,9.6499e-02_rb/)\n      kbo(:,32, 8) = (/ &\n     &7.7165e-02_rb,7.8228e-02_rb,7.9327e-02_rb,8.0584e-02_rb,8.1883e-02_rb/)\n      kbo(:,33, 8) = (/ &\n     &6.4796e-02_rb,6.5863e-02_rb,6.6915e-02_rb,6.7986e-02_rb,6.9105e-02_rb/)\n      kbo(:,34, 8) = (/ &\n     &5.4901e-02_rb,5.5964e-02_rb,5.6945e-02_rb,5.8000e-02_rb,5.9045e-02_rb/)\n      kbo(:,35, 8) = (/ &\n     &4.6607e-02_rb,4.7594e-02_rb,4.8499e-02_rb,4.9452e-02_rb,5.0386e-02_rb/)\n      kbo(:,36, 8) = (/ &\n     &3.9577e-02_rb,4.0492e-02_rb,4.1341e-02_rb,4.2242e-02_rb,4.3090e-02_rb/)\n      kbo(:,37, 8) = (/ &\n     &3.3790e-02_rb,3.4662e-02_rb,3.5486e-02_rb,3.6314e-02_rb,3.7168e-02_rb/)\n      kbo(:,38, 8) = (/ &\n     &2.8754e-02_rb,2.9559e-02_rb,3.0387e-02_rb,3.1137e-02_rb,3.1929e-02_rb/)\n      kbo(:,39, 8) = (/ &\n     &2.4394e-02_rb,2.5115e-02_rb,2.5838e-02_rb,2.6544e-02_rb,2.7274e-02_rb/)\n      kbo(:,40, 8) = (/ &\n     &2.0920e-02_rb,2.1659e-02_rb,2.2398e-02_rb,2.3092e-02_rb,2.3784e-02_rb/)\n      kbo(:,41, 8) = (/ &\n     &1.7960e-02_rb,1.8686e-02_rb,1.9408e-02_rb,2.0118e-02_rb,2.0798e-02_rb/)\n      kbo(:,42, 8) = (/ &\n     &1.5382e-02_rb,1.6080e-02_rb,1.6764e-02_rb,1.7451e-02_rb,1.8100e-02_rb/)\n      kbo(:,43, 8) = (/ &\n     &1.3156e-02_rb,1.3822e-02_rb,1.4465e-02_rb,1.5132e-02_rb,1.5767e-02_rb/)\n      kbo(:,44, 8) = (/ &\n     &1.1236e-02_rb,1.1847e-02_rb,1.2471e-02_rb,1.3074e-02_rb,1.3675e-02_rb/)\n      kbo(:,45, 8) = (/ &\n     &9.5475e-03_rb,1.0122e-02_rb,1.0686e-02_rb,1.1243e-02_rb,1.1794e-02_rb/)\n      kbo(:,46, 8) = (/ &\n     &8.0771e-03_rb,8.6018e-03_rb,9.1254e-03_rb,9.6411e-03_rb,1.0156e-02_rb/)\n      kbo(:,47, 8) = (/ &\n     &6.8185e-03_rb,7.3016e-03_rb,7.7913e-03_rb,8.2730e-03_rb,8.7590e-03_rb/)\n      kbo(:,48, 8) = (/ &\n     &5.7132e-03_rb,6.1559e-03_rb,6.5990e-03_rb,7.0467e-03_rb,7.5035e-03_rb/)\n      kbo(:,49, 8) = (/ &\n     &4.7309e-03_rb,5.1282e-03_rb,5.5334e-03_rb,5.9379e-03_rb,6.3413e-03_rb/)\n      kbo(:,50, 8) = (/ &\n     &3.9545e-03_rb,4.3092e-03_rb,4.6836e-03_rb,5.0555e-03_rb,5.4339e-03_rb/)\n      kbo(:,51, 8) = (/ &\n     &3.3094e-03_rb,3.6354e-03_rb,3.9810e-03_rb,4.3245e-03_rb,4.6768e-03_rb/)\n      kbo(:,52, 8) = (/ &\n     &2.7556e-03_rb,3.0488e-03_rb,3.3581e-03_rb,3.6757e-03_rb,3.9978e-03_rb/)\n      kbo(:,53, 8) = (/ &\n     &2.2741e-03_rb,2.5328e-03_rb,2.8070e-03_rb,3.0901e-03_rb,3.3837e-03_rb/)\n      kbo(:,54, 8) = (/ &\n     &1.9244e-03_rb,2.1630e-03_rb,2.4199e-03_rb,2.6919e-03_rb,2.9670e-03_rb/)\n      kbo(:,55, 8) = (/ &\n     &1.6527e-03_rb,1.8750e-03_rb,2.1244e-03_rb,2.3895e-03_rb,2.6621e-03_rb/)\n      kbo(:,56, 8) = (/ &\n     &1.4187e-03_rb,1.6262e-03_rb,1.8617e-03_rb,2.1120e-03_rb,2.3834e-03_rb/)\n      kbo(:,57, 8) = (/ &\n     &1.2123e-03_rb,1.4102e-03_rb,1.6308e-03_rb,1.8701e-03_rb,2.1361e-03_rb/)\n      kbo(:,58, 8) = (/ &\n     &1.0428e-03_rb,1.2269e-03_rb,1.4357e-03_rb,1.6692e-03_rb,1.9342e-03_rb/)\n      kbo(:,59, 8) = (/ &\n     &9.5774e-04_rb,1.1485e-03_rb,1.3717e-03_rb,1.6313e-03_rb,1.9270e-03_rb/)\n      kbo(:,13, 9) = (/ &\n     &1.0743e+01_rb,1.0581e+01_rb,1.0416e+01_rb,1.0238e+01_rb,1.0057e+01_rb/)\n      kbo(:,14, 9) = (/ &\n     &9.3266e+00_rb,9.1890e+00_rb,9.0401e+00_rb,8.8785e+00_rb,8.7093e+00_rb/)\n      kbo(:,15, 9) = (/ &\n     &8.0329e+00_rb,7.9105e+00_rb,7.7721e+00_rb,7.6225e+00_rb,7.4769e+00_rb/)\n      kbo(:,16, 9) = (/ &\n     &6.8686e+00_rb,6.7530e+00_rb,6.6275e+00_rb,6.5036e+00_rb,6.3858e+00_rb/)\n      kbo(:,17, 9) = (/ &\n     &5.8249e+00_rb,5.7232e+00_rb,5.6209e+00_rb,5.5225e+00_rb,5.4281e+00_rb/)\n      kbo(:,18, 9) = (/ &\n     &4.8929e+00_rb,4.8094e+00_rb,4.7279e+00_rb,4.6483e+00_rb,4.5724e+00_rb/)\n      kbo(:,19, 9) = (/ &\n     &4.0706e+00_rb,4.0042e+00_rb,3.9380e+00_rb,3.8751e+00_rb,3.8145e+00_rb/)\n      kbo(:,20, 9) = (/ &\n     &3.3806e+00_rb,3.3267e+00_rb,3.2749e+00_rb,3.2247e+00_rb,3.1746e+00_rb/)\n      kbo(:,21, 9) = (/ &\n     &2.8074e+00_rb,2.7644e+00_rb,2.7235e+00_rb,2.6821e+00_rb,2.6407e+00_rb/)\n      kbo(:,22, 9) = (/ &\n     &2.3283e+00_rb,2.2955e+00_rb,2.2616e+00_rb,2.2266e+00_rb,2.1957e+00_rb/)\n      kbo(:,23, 9) = (/ &\n     &1.9321e+00_rb,1.9042e+00_rb,1.8758e+00_rb,1.8494e+00_rb,1.8261e+00_rb/)\n      kbo(:,24, 9) = (/ &\n     &1.6234e+00_rb,1.5933e+00_rb,1.5660e+00_rb,1.5420e+00_rb,1.5232e+00_rb/)\n      kbo(:,25, 9) = (/ &\n     &1.3980e+00_rb,1.3704e+00_rb,1.3436e+00_rb,1.3210e+00_rb,1.3008e+00_rb/)\n      kbo(:,26, 9) = (/ &\n     &1.2106e+00_rb,1.1883e+00_rb,1.1672e+00_rb,1.1488e+00_rb,1.1330e+00_rb/)\n      kbo(:,27, 9) = (/ &\n     &1.0466e+00_rb,1.0297e+00_rb,1.0139e+00_rb,1.0016e+00_rb,9.9022e-01_rb/)\n      kbo(:,28, 9) = (/ &\n     &9.0567e-01_rb,8.9244e-01_rb,8.8275e-01_rb,8.7361e-01_rb,8.6722e-01_rb/)\n      kbo(:,29, 9) = (/ &\n     &7.7743e-01_rb,7.6923e-01_rb,7.6234e-01_rb,7.5840e-01_rb,7.5702e-01_rb/)\n      kbo(:,30, 9) = (/ &\n     &6.6693e-01_rb,6.6196e-01_rb,6.5810e-01_rb,6.5663e-01_rb,6.5785e-01_rb/)\n      kbo(:,31, 9) = (/ &\n     &5.6777e-01_rb,5.6527e-01_rb,5.6420e-01_rb,5.6593e-01_rb,5.6662e-01_rb/)\n      kbo(:,32, 9) = (/ &\n     &4.8384e-01_rb,4.8324e-01_rb,4.8562e-01_rb,4.8803e-01_rb,4.8996e-01_rb/)\n      kbo(:,33, 9) = (/ &\n     &4.1137e-01_rb,4.1406e-01_rb,4.1751e-01_rb,4.2081e-01_rb,4.2550e-01_rb/)\n      kbo(:,34, 9) = (/ &\n     &3.5416e-01_rb,3.5806e-01_rb,3.6166e-01_rb,3.6664e-01_rb,3.7277e-01_rb/)\n      kbo(:,35, 9) = (/ &\n     &3.0554e-01_rb,3.0948e-01_rb,3.1424e-01_rb,3.1976e-01_rb,3.2676e-01_rb/)\n      kbo(:,36, 9) = (/ &\n     &2.6418e-01_rb,2.6871e-01_rb,2.7383e-01_rb,2.8027e-01_rb,2.8707e-01_rb/)\n      kbo(:,37, 9) = (/ &\n     &2.2969e-01_rb,2.3421e-01_rb,2.3975e-01_rb,2.4624e-01_rb,2.5310e-01_rb/)\n      kbo(:,38, 9) = (/ &\n     &1.9950e-01_rb,2.0421e-01_rb,2.0978e-01_rb,2.1651e-01_rb,2.2302e-01_rb/)\n      kbo(:,39, 9) = (/ &\n     &1.7282e-01_rb,1.7783e-01_rb,1.8337e-01_rb,1.9005e-01_rb,1.9644e-01_rb/)\n      kbo(:,40, 9) = (/ &\n     &1.5139e-01_rb,1.5623e-01_rb,1.6190e-01_rb,1.6820e-01_rb,1.7447e-01_rb/)\n      kbo(:,41, 9) = (/ &\n     &1.3264e-01_rb,1.3745e-01_rb,1.4301e-01_rb,1.4932e-01_rb,1.5546e-01_rb/)\n      kbo(:,42, 9) = (/ &\n     &1.1607e-01_rb,1.2085e-01_rb,1.2625e-01_rb,1.3247e-01_rb,1.3847e-01_rb/)\n      kbo(:,43, 9) = (/ &\n     &1.0129e-01_rb,1.0600e-01_rb,1.1131e-01_rb,1.1735e-01_rb,1.2314e-01_rb/)\n      kbo(:,44, 9) = (/ &\n     &8.8076e-02_rb,9.2672e-02_rb,9.7764e-02_rb,1.0358e-01_rb,1.0942e-01_rb/)\n      kbo(:,45, 9) = (/ &\n     &7.6267e-02_rb,8.0788e-02_rb,8.5604e-02_rb,9.1124e-02_rb,9.6796e-02_rb/)\n      kbo(:,46, 9) = (/ &\n     &6.5896e-02_rb,7.0073e-02_rb,7.4628e-02_rb,7.9860e-02_rb,8.5349e-02_rb/)\n      kbo(:,47, 9) = (/ &\n     &5.6947e-02_rb,6.0912e-02_rb,6.5102e-02_rb,6.9953e-02_rb,7.5324e-02_rb/)\n      kbo(:,48, 9) = (/ &\n     &4.8993e-02_rb,5.2552e-02_rb,5.6622e-02_rb,6.1050e-02_rb,6.6050e-02_rb/)\n      kbo(:,49, 9) = (/ &\n     &4.1828e-02_rb,4.5103e-02_rb,4.8726e-02_rb,5.2827e-02_rb,5.7536e-02_rb/)\n      kbo(:,50, 9) = (/ &\n     &3.6237e-02_rb,3.9173e-02_rb,4.2523e-02_rb,4.6248e-02_rb,5.0679e-02_rb/)\n      kbo(:,51, 9) = (/ &\n     &3.1483e-02_rb,3.4194e-02_rb,3.7317e-02_rb,4.0792e-02_rb,4.4937e-02_rb/)\n      kbo(:,52, 9) = (/ &\n     &2.7288e-02_rb,2.9720e-02_rb,3.2635e-02_rb,3.5833e-02_rb,3.9605e-02_rb/)\n      kbo(:,53, 9) = (/ &\n     &2.3553e-02_rb,2.5752e-02_rb,2.8298e-02_rb,3.1273e-02_rb,3.4805e-02_rb/)\n      kbo(:,54, 9) = (/ &\n     &2.0927e-02_rb,2.2955e-02_rb,2.5436e-02_rb,2.8294e-02_rb,3.1547e-02_rb/)\n      kbo(:,55, 9) = (/ &\n     &1.8850e-02_rb,2.0892e-02_rb,2.3245e-02_rb,2.6068e-02_rb,2.9259e-02_rb/)\n      kbo(:,56, 9) = (/ &\n     &1.7133e-02_rb,1.9134e-02_rb,2.1378e-02_rb,2.4152e-02_rb,2.7278e-02_rb/)\n      kbo(:,57, 9) = (/ &\n     &1.5614e-02_rb,1.7616e-02_rb,1.9861e-02_rb,2.2450e-02_rb,2.5658e-02_rb/)\n      kbo(:,58, 9) = (/ &\n     &1.4386e-02_rb,1.6367e-02_rb,1.8612e-02_rb,2.1235e-02_rb,2.4366e-02_rb/)\n      kbo(:,59, 9) = (/ &\n     &1.4750e-02_rb,1.6838e-02_rb,1.9250e-02_rb,2.2069e-02_rb,2.5653e-02_rb/)\n      kbo(:,13,10) = (/ &\n     &4.1842e+01_rb,4.1126e+01_rb,4.0474e+01_rb,3.9934e+01_rb,3.9455e+01_rb/)\n      kbo(:,14,10) = (/ &\n     &3.7817e+01_rb,3.7244e+01_rb,3.6754e+01_rb,3.6387e+01_rb,3.5986e+01_rb/)\n      kbo(:,15,10) = (/ &\n     &3.3775e+01_rb,3.3359e+01_rb,3.3057e+01_rb,3.2734e+01_rb,3.2346e+01_rb/)\n      kbo(:,16,10) = (/ &\n     &2.9866e+01_rb,2.9628e+01_rb,2.9352e+01_rb,2.8982e+01_rb,2.8500e+01_rb/)\n      kbo(:,17,10) = (/ &\n     &2.6256e+01_rb,2.6026e+01_rb,2.5674e+01_rb,2.5248e+01_rb,2.4813e+01_rb/)\n      kbo(:,18,10) = (/ &\n     &2.2845e+01_rb,2.2539e+01_rb,2.2184e+01_rb,2.1830e+01_rb,2.1506e+01_rb/)\n      kbo(:,19,10) = (/ &\n     &1.9624e+01_rb,1.9336e+01_rb,1.9054e+01_rb,1.8789e+01_rb,1.8555e+01_rb/)\n      kbo(:,20,10) = (/ &\n     &1.6714e+01_rb,1.6495e+01_rb,1.6283e+01_rb,1.6088e+01_rb,1.5920e+01_rb/)\n      kbo(:,21,10) = (/ &\n     &1.4184e+01_rb,1.4023e+01_rb,1.3853e+01_rb,1.3722e+01_rb,1.3615e+01_rb/)\n      kbo(:,22,10) = (/ &\n     &1.2010e+01_rb,1.1876e+01_rb,1.1769e+01_rb,1.1693e+01_rb,1.1608e+01_rb/)\n      kbo(:,23,10) = (/ &\n     &1.0140e+01_rb,1.0060e+01_rb,1.0004e+01_rb,9.9480e+00_rb,9.8828e+00_rb/)\n      kbo(:,24,10) = (/ &\n     &8.3529e+00_rb,8.3955e+00_rb,8.4004e+00_rb,8.3887e+00_rb,8.3750e+00_rb/)\n      kbo(:,25,10) = (/ &\n     &6.5990e+00_rb,6.6692e+00_rb,6.7250e+00_rb,6.7763e+00_rb,6.8513e+00_rb/)\n      kbo(:,26,10) = (/ &\n     &5.2218e+00_rb,5.2429e+00_rb,5.2934e+00_rb,5.3672e+00_rb,5.4447e+00_rb/)\n      kbo(:,27,10) = (/ &\n     &4.4199e+00_rb,4.3564e+00_rb,4.3290e+00_rb,4.3162e+00_rb,4.3878e+00_rb/)\n      kbo(:,28,10) = (/ &\n     &3.8059e+00_rb,3.7536e+00_rb,3.6821e+00_rb,3.6546e+00_rb,3.6556e+00_rb/)\n      kbo(:,29,10) = (/ &\n     &3.2943e+00_rb,3.2284e+00_rb,3.1752e+00_rb,3.1401e+00_rb,3.1165e+00_rb/)\n      kbo(:,30,10) = (/ &\n     &2.8426e+00_rb,2.7881e+00_rb,2.7489e+00_rb,2.7185e+00_rb,2.7182e+00_rb/)\n      kbo(:,31,10) = (/ &\n     &2.4366e+00_rb,2.4010e+00_rb,2.3877e+00_rb,2.3684e+00_rb,2.4040e+00_rb/)\n      kbo(:,32,10) = (/ &\n     &2.1031e+00_rb,2.0888e+00_rb,2.0634e+00_rb,2.0885e+00_rb,2.1581e+00_rb/)\n      kbo(:,33,10) = (/ &\n     &1.8304e+00_rb,1.8104e+00_rb,1.8138e+00_rb,1.8703e+00_rb,1.9665e+00_rb/)\n      kbo(:,34,10) = (/ &\n     &1.5963e+00_rb,1.5877e+00_rb,1.6209e+00_rb,1.6809e+00_rb,1.8060e+00_rb/)\n      kbo(:,35,10) = (/ &\n     &1.3950e+00_rb,1.4093e+00_rb,1.4535e+00_rb,1.5372e+00_rb,1.6748e+00_rb/)\n      kbo(:,36,10) = (/ &\n     &1.2291e+00_rb,1.2517e+00_rb,1.3081e+00_rb,1.4001e+00_rb,1.5466e+00_rb/)\n      kbo(:,37,10) = (/ &\n     &1.0841e+00_rb,1.1159e+00_rb,1.1678e+00_rb,1.2585e+00_rb,1.4003e+00_rb/)\n      kbo(:,38,10) = (/ &\n     &9.5502e-01_rb,9.9217e-01_rb,1.0459e+00_rb,1.1387e+00_rb,1.2834e+00_rb/)\n      kbo(:,39,10) = (/ &\n     &8.4320e-01_rb,8.8008e-01_rb,9.3921e-01_rb,1.0432e+00_rb,1.1899e+00_rb/)\n      kbo(:,40,10) = (/ &\n     &7.4742e-01_rb,7.8308e-01_rb,8.3378e-01_rb,9.2859e-01_rb,1.0715e+00_rb/)\n      kbo(:,41,10) = (/ &\n     &6.6607e-01_rb,6.9838e-01_rb,7.4378e-01_rb,8.2580e-01_rb,9.6253e-01_rb/)\n      kbo(:,42,10) = (/ &\n     &5.9399e-01_rb,6.2402e-01_rb,6.6818e-01_rb,7.3908e-01_rb,8.7040e-01_rb/)\n      kbo(:,43,10) = (/ &\n     &5.3134e-01_rb,5.5822e-01_rb,5.9679e-01_rb,6.5834e-01_rb,7.8163e-01_rb/)\n      kbo(:,44,10) = (/ &\n     &4.7483e-01_rb,4.9813e-01_rb,5.3656e-01_rb,5.8775e-01_rb,7.0057e-01_rb/)\n      kbo(:,45,10) = (/ &\n     &4.2242e-01_rb,4.4383e-01_rb,4.8053e-01_rb,5.2923e-01_rb,6.3377e-01_rb/)\n      kbo(:,46,10) = (/ &\n     &3.7426e-01_rb,3.9626e-01_rb,4.2998e-01_rb,4.7693e-01_rb,5.7307e-01_rb/)\n      kbo(:,47,10) = (/ &\n     &3.3305e-01_rb,3.5232e-01_rb,3.8380e-01_rb,4.2680e-01_rb,5.1056e-01_rb/)\n      kbo(:,48,10) = (/ &\n     &2.9118e-01_rb,3.1195e-01_rb,3.3996e-01_rb,3.8124e-01_rb,4.5847e-01_rb/)\n      kbo(:,49,10) = (/ &\n     &2.5186e-01_rb,2.7185e-01_rb,2.9957e-01_rb,3.4007e-01_rb,4.1454e-01_rb/)\n      kbo(:,50,10) = (/ &\n     &2.1978e-01_rb,2.4030e-01_rb,2.6478e-01_rb,3.0486e-01_rb,3.7227e-01_rb/)\n      kbo(:,51,10) = (/ &\n     &1.9384e-01_rb,2.1260e-01_rb,2.3536e-01_rb,2.7096e-01_rb,3.3311e-01_rb/)\n      kbo(:,52,10) = (/ &\n     &1.6918e-01_rb,1.8784e-01_rb,2.0901e-01_rb,2.4060e-01_rb,2.9976e-01_rb/)\n      kbo(:,53,10) = (/ &\n     &1.4644e-01_rb,1.6376e-01_rb,1.8425e-01_rb,2.1431e-01_rb,2.7054e-01_rb/)\n      kbo(:,54,10) = (/ &\n     &1.3139e-01_rb,1.4808e-01_rb,1.6611e-01_rb,1.9208e-01_rb,2.4005e-01_rb/)\n      kbo(:,55,10) = (/ &\n     &1.2172e-01_rb,1.3644e-01_rb,1.5558e-01_rb,1.7831e-01_rb,2.1286e-01_rb/)\n      kbo(:,56,10) = (/ &\n     &1.1074e-01_rb,1.2717e-01_rb,1.4642e-01_rb,1.6603e-01_rb,1.9730e-01_rb/)\n      kbo(:,57,10) = (/ &\n     &1.0195e-01_rb,1.1787e-01_rb,1.3707e-01_rb,1.5838e-01_rb,1.8439e-01_rb/)\n      kbo(:,58,10) = (/ &\n     &9.6243e-02_rb,1.1076e-01_rb,1.2956e-01_rb,1.5169e-01_rb,1.7652e-01_rb/)\n      kbo(:,59,10) = (/ &\n     &9.7302e-02_rb,1.1627e-01_rb,1.3740e-01_rb,1.6328e-01_rb,1.9053e-01_rb/)\n      kbo(:,13,11) = (/ &\n     &7.0360e+01_rb,6.9342e+01_rb,6.8249e+01_rb,6.7098e+01_rb,6.5980e+01_rb/)\n      kbo(:,14,11) = (/ &\n     &6.5791e+01_rb,6.4723e+01_rb,6.3625e+01_rb,6.2598e+01_rb,6.1783e+01_rb/)\n      kbo(:,15,11) = (/ &\n     &6.0426e+01_rb,5.9395e+01_rb,5.8516e+01_rb,5.7828e+01_rb,5.7219e+01_rb/)\n      kbo(:,16,11) = (/ &\n     &5.4683e+01_rb,5.3915e+01_rb,5.3328e+01_rb,5.2878e+01_rb,5.2385e+01_rb/)\n      kbo(:,17,11) = (/ &\n     &4.8953e+01_rb,4.8487e+01_rb,4.8177e+01_rb,4.7782e+01_rb,4.7308e+01_rb/)\n      kbo(:,18,11) = (/ &\n     &4.3480e+01_rb,4.3274e+01_rb,4.2982e+01_rb,4.2563e+01_rb,4.2021e+01_rb/)\n      kbo(:,19,11) = (/ &\n     &3.8401e+01_rb,3.8213e+01_rb,3.7862e+01_rb,3.7391e+01_rb,3.6879e+01_rb/)\n      kbo(:,20,11) = (/ &\n     &3.3602e+01_rb,3.3341e+01_rb,3.2960e+01_rb,3.2565e+01_rb,3.2185e+01_rb/)\n      kbo(:,21,11) = (/ &\n     &2.9094e+01_rb,2.8806e+01_rb,2.8524e+01_rb,2.8243e+01_rb,2.8023e+01_rb/)\n      kbo(:,22,11) = (/ &\n     &2.4954e+01_rb,2.4758e+01_rb,2.4575e+01_rb,2.4433e+01_rb,2.4352e+01_rb/)\n      kbo(:,23,11) = (/ &\n     &2.1326e+01_rb,2.1219e+01_rb,2.1148e+01_rb,2.1108e+01_rb,2.1117e+01_rb/)\n      kbo(:,24,11) = (/ &\n     &1.8212e+01_rb,1.8167e+01_rb,1.8172e+01_rb,1.8221e+01_rb,1.8288e+01_rb/)\n      kbo(:,25,11) = (/ &\n     &1.5541e+01_rb,1.5569e+01_rb,1.5649e+01_rb,1.5756e+01_rb,1.5867e+01_rb/)\n      kbo(:,26,11) = (/ &\n     &1.3185e+01_rb,1.3326e+01_rb,1.3479e+01_rb,1.3624e+01_rb,1.3786e+01_rb/)\n      kbo(:,27,11) = (/ &\n     &1.0920e+01_rb,1.1211e+01_rb,1.1487e+01_rb,1.1743e+01_rb,1.1957e+01_rb/)\n      kbo(:,28,11) = (/ &\n     &9.0678e+00_rb,9.3710e+00_rb,9.6834e+00_rb,9.9920e+00_rb,1.0324e+01_rb/)\n      kbo(:,29,11) = (/ &\n     &7.6881e+00_rb,7.9879e+00_rb,8.2968e+00_rb,8.6379e+00_rb,9.0061e+00_rb/)\n      kbo(:,30,11) = (/ &\n     &6.6033e+00_rb,6.8954e+00_rb,7.2204e+00_rb,7.5787e+00_rb,7.9480e+00_rb/)\n      kbo(:,31,11) = (/ &\n     &5.8224e+00_rb,6.1213e+00_rb,6.4394e+00_rb,6.7947e+00_rb,7.1839e+00_rb/)\n      kbo(:,32,11) = (/ &\n     &5.1825e+00_rb,5.4854e+00_rb,5.8203e+00_rb,6.1672e+00_rb,6.5644e+00_rb/)\n      kbo(:,33,11) = (/ &\n     &4.6793e+00_rb,4.9853e+00_rb,5.3218e+00_rb,5.6796e+00_rb,6.0723e+00_rb/)\n      kbo(:,34,11) = (/ &\n     &4.2112e+00_rb,4.5240e+00_rb,4.8672e+00_rb,5.2510e+00_rb,5.6439e+00_rb/)\n      kbo(:,35,11) = (/ &\n     &3.8061e+00_rb,4.1193e+00_rb,4.4694e+00_rb,4.8571e+00_rb,5.2645e+00_rb/)\n      kbo(:,36,11) = (/ &\n     &3.4331e+00_rb,3.7452e+00_rb,4.0978e+00_rb,4.4887e+00_rb,4.9173e+00_rb/)\n      kbo(:,37,11) = (/ &\n     &3.0586e+00_rb,3.3607e+00_rb,3.7172e+00_rb,4.1153e+00_rb,4.5572e+00_rb/)\n      kbo(:,38,11) = (/ &\n     &2.7517e+00_rb,3.0453e+00_rb,3.3976e+00_rb,3.7947e+00_rb,4.2441e+00_rb/)\n      kbo(:,39,11) = (/ &\n     &2.5013e+00_rb,2.7908e+00_rb,3.1383e+00_rb,3.5236e+00_rb,3.9765e+00_rb/)\n      kbo(:,40,11) = (/ &\n     &2.2268e+00_rb,2.5094e+00_rb,2.8534e+00_rb,3.2426e+00_rb,3.6921e+00_rb/)\n      kbo(:,41,11) = (/ &\n     &1.9832e+00_rb,2.2609e+00_rb,2.6000e+00_rb,2.9899e+00_rb,3.4337e+00_rb/)\n      kbo(:,42,11) = (/ &\n     &1.7785e+00_rb,2.0479e+00_rb,2.3793e+00_rb,2.7692e+00_rb,3.2048e+00_rb/)\n      kbo(:,43,11) = (/ &\n     &1.5856e+00_rb,1.8448e+00_rb,2.1667e+00_rb,2.5496e+00_rb,2.9735e+00_rb/)\n      kbo(:,44,11) = (/ &\n     &1.4123e+00_rb,1.6629e+00_rb,1.9679e+00_rb,2.3444e+00_rb,2.7547e+00_rb/)\n      kbo(:,45,11) = (/ &\n     &1.2640e+00_rb,1.5067e+00_rb,1.7987e+00_rb,2.1603e+00_rb,2.5558e+00_rb/)\n      kbo(:,46,11) = (/ &\n     &1.1290e+00_rb,1.3620e+00_rb,1.6422e+00_rb,1.9855e+00_rb,2.3652e+00_rb/)\n      kbo(:,47,11) = (/ &\n     &9.9161e-01_rb,1.2154e+00_rb,1.4836e+00_rb,1.8087e+00_rb,2.1736e+00_rb/)\n      kbo(:,48,11) = (/ &\n     &8.7615e-01_rb,1.0875e+00_rb,1.3440e+00_rb,1.6515e+00_rb,1.9976e+00_rb/)\n      kbo(:,49,11) = (/ &\n     &7.7782e-01_rb,9.7773e-01_rb,1.2220e+00_rb,1.5130e+00_rb,1.8356e+00_rb/)\n      kbo(:,50,11) = (/ &\n     &6.8345e-01_rb,8.7089e-01_rb,1.1065e+00_rb,1.3830e+00_rb,1.6924e+00_rb/)\n      kbo(:,51,11) = (/ &\n     &5.9562e-01_rb,7.7251e-01_rb,9.9776e-01_rb,1.2648e+00_rb,1.5621e+00_rb/)\n      kbo(:,52,11) = (/ &\n     &5.1948e-01_rb,6.8509e-01_rb,8.9806e-01_rb,1.1564e+00_rb,1.4407e+00_rb/)\n      kbo(:,53,11) = (/ &\n     &4.5430e-01_rb,6.0810e-01_rb,8.0999e-01_rb,1.0551e+00_rb,1.3256e+00_rb/)\n      kbo(:,54,11) = (/ &\n     &3.8584e-01_rb,5.2960e-01_rb,7.1926e-01_rb,9.5469e-01_rb,1.2208e+00_rb/)\n      kbo(:,55,11) = (/ &\n     &3.2585e-01_rb,4.5415e-01_rb,6.2813e-01_rb,8.5255e-01_rb,1.1189e+00_rb/)\n      kbo(:,56,11) = (/ &\n     &2.9347e-01_rb,3.8309e-01_rb,5.4571e-01_rb,7.5695e-01_rb,1.0111e+00_rb/)\n      kbo(:,57,11) = (/ &\n     &2.6872e-01_rb,3.3263e-01_rb,4.6996e-01_rb,6.6376e-01_rb,9.0688e-01_rb/)\n      kbo(:,58,11) = (/ &\n     &2.4960e-01_rb,3.0758e-01_rb,4.0207e-01_rb,5.8213e-01_rb,8.0803e-01_rb/)\n      kbo(:,59,11) = (/ &\n     &2.6183e-01_rb,3.2106e-01_rb,3.9760e-01_rb,5.1091e-01_rb,7.1717e-01_rb/)\n      kbo(:,13,12) = (/ &\n     &1.1832e+02_rb,1.1787e+02_rb,1.1696e+02_rb,1.1585e+02_rb,1.1448e+02_rb/)\n      kbo(:,14,12) = (/ &\n     &1.1787e+02_rb,1.1706e+02_rb,1.1585e+02_rb,1.1435e+02_rb,1.1282e+02_rb/)\n      kbo(:,15,12) = (/ &\n     &1.1482e+02_rb,1.1352e+02_rb,1.1198e+02_rb,1.1040e+02_rb,1.0880e+02_rb/)\n      kbo(:,16,12) = (/ &\n     &1.0896e+02_rb,1.0749e+02_rb,1.0590e+02_rb,1.0433e+02_rb,1.0304e+02_rb/)\n      kbo(:,17,12) = (/ &\n     &1.0128e+02_rb,9.9814e+01_rb,9.8422e+01_rb,9.7349e+01_rb,9.6504e+01_rb/)\n      kbo(:,18,12) = (/ &\n     &9.2677e+01_rb,9.1506e+01_rb,9.0639e+01_rb,9.0100e+01_rb,8.9682e+01_rb/)\n      kbo(:,19,12) = (/ &\n     &8.3897e+01_rb,8.3222e+01_rb,8.2911e+01_rb,8.2751e+01_rb,8.2502e+01_rb/)\n      kbo(:,20,12) = (/ &\n     &7.5342e+01_rb,7.5217e+01_rb,7.5315e+01_rb,7.5254e+01_rb,7.5130e+01_rb/)\n      kbo(:,21,12) = (/ &\n     &6.7351e+01_rb,6.7622e+01_rb,6.7745e+01_rb,6.7796e+01_rb,6.7734e+01_rb/)\n      kbo(:,22,12) = (/ &\n     &5.9964e+01_rb,6.0293e+01_rb,6.0504e+01_rb,6.0565e+01_rb,6.0581e+01_rb/)\n      kbo(:,23,12) = (/ &\n     &5.3111e+01_rb,5.3464e+01_rb,5.3681e+01_rb,5.3837e+01_rb,5.4061e+01_rb/)\n      kbo(:,24,12) = (/ &\n     &4.6795e+01_rb,4.7144e+01_rb,4.7460e+01_rb,4.7828e+01_rb,4.8279e+01_rb/)\n      kbo(:,25,12) = (/ &\n     &4.1060e+01_rb,4.1497e+01_rb,4.1989e+01_rb,4.2550e+01_rb,4.3265e+01_rb/)\n      kbo(:,26,12) = (/ &\n     &3.6007e+01_rb,3.6594e+01_rb,3.7261e+01_rb,3.8060e+01_rb,3.9005e+01_rb/)\n      kbo(:,27,12) = (/ &\n     &3.1657e+01_rb,3.2380e+01_rb,3.3234e+01_rb,3.4259e+01_rb,3.5455e+01_rb/)\n      kbo(:,28,12) = (/ &\n     &2.7936e+01_rb,2.8816e+01_rb,2.9878e+01_rb,3.1120e+01_rb,3.2499e+01_rb/)\n      kbo(:,29,12) = (/ &\n     &2.4811e+01_rb,2.5887e+01_rb,2.7138e+01_rb,2.8541e+01_rb,3.0069e+01_rb/)\n      kbo(:,30,12) = (/ &\n     &2.2271e+01_rb,2.3484e+01_rb,2.4883e+01_rb,2.6431e+01_rb,2.8119e+01_rb/)\n      kbo(:,31,12) = (/ &\n     &2.0203e+01_rb,2.1534e+01_rb,2.3058e+01_rb,2.4751e+01_rb,2.6602e+01_rb/)\n      kbo(:,32,12) = (/ &\n     &1.8534e+01_rb,1.9980e+01_rb,2.1635e+01_rb,2.3479e+01_rb,2.5477e+01_rb/)\n      kbo(:,33,12) = (/ &\n     &1.7225e+01_rb,1.8794e+01_rb,2.0572e+01_rb,2.2559e+01_rb,2.4699e+01_rb/)\n      kbo(:,34,12) = (/ &\n     &1.6174e+01_rb,1.7857e+01_rb,1.9770e+01_rb,2.1880e+01_rb,2.4147e+01_rb/)\n      kbo(:,35,12) = (/ &\n     &1.5236e+01_rb,1.7017e+01_rb,1.9034e+01_rb,2.1242e+01_rb,2.3610e+01_rb/)\n      kbo(:,36,12) = (/ &\n     &1.4322e+01_rb,1.6183e+01_rb,1.8272e+01_rb,2.0552e+01_rb,2.2984e+01_rb/)\n      kbo(:,37,12) = (/ &\n     &1.3315e+01_rb,1.5210e+01_rb,1.7331e+01_rb,1.9645e+01_rb,2.2115e+01_rb/)\n      kbo(:,38,12) = (/ &\n     &1.2427e+01_rb,1.4349e+01_rb,1.6493e+01_rb,1.8831e+01_rb,2.1326e+01_rb/)\n      kbo(:,39,12) = (/ &\n     &1.1655e+01_rb,1.3594e+01_rb,1.5756e+01_rb,1.8111e+01_rb,2.0619e+01_rb/)\n      kbo(:,40,12) = (/ &\n     &1.0800e+01_rb,1.2718e+01_rb,1.4870e+01_rb,1.7214e+01_rb,1.9711e+01_rb/)\n      kbo(:,41,12) = (/ &\n     &1.0009e+01_rb,1.1890e+01_rb,1.4023e+01_rb,1.6343e+01_rb,1.8829e+01_rb/)\n      kbo(:,42,12) = (/ &\n     &9.2911e+00_rb,1.1131e+01_rb,1.3230e+01_rb,1.5526e+01_rb,1.7990e+01_rb/)\n      kbo(:,43,12) = (/ &\n     &8.5453e+00_rb,1.0322e+01_rb,1.2366e+01_rb,1.4622e+01_rb,1.7049e+01_rb/)\n      kbo(:,44,12) = (/ &\n     &7.8249e+00_rb,9.5233e+00_rb,1.1499e+01_rb,1.3704e+01_rb,1.6085e+01_rb/)\n      kbo(:,45,12) = (/ &\n     &7.1656e+00_rb,8.7847e+00_rb,1.0682e+01_rb,1.2826e+01_rb,1.5159e+01_rb/)\n      kbo(:,46,12) = (/ &\n     &6.5222e+00_rb,8.0621e+00_rb,9.8691e+00_rb,1.1939e+01_rb,1.4215e+01_rb/)\n      kbo(:,47,12) = (/ &\n     &5.8688e+00_rb,7.3253e+00_rb,9.0292e+00_rb,1.1003e+01_rb,1.3207e+01_rb/)\n      kbo(:,48,12) = (/ &\n     &5.2686e+00_rb,6.6401e+00_rb,8.2460e+00_rb,1.0116e+01_rb,1.2240e+01_rb/)\n      kbo(:,49,12) = (/ &\n     &4.7119e+00_rb,6.0011e+00_rb,7.5181e+00_rb,9.2810e+00_rb,1.1309e+01_rb/)\n      kbo(:,50,12) = (/ &\n     &4.2243e+00_rb,5.4409e+00_rb,6.8771e+00_rb,8.5451e+00_rb,1.0476e+01_rb/)\n      kbo(:,51,12) = (/ &\n     &3.7894e+00_rb,4.9333e+00_rb,6.2908e+00_rb,7.8717e+00_rb,9.7058e+00_rb/)\n      kbo(:,52,12) = (/ &\n     &3.3915e+00_rb,4.4569e+00_rb,5.7416e+00_rb,7.2423e+00_rb,8.9799e+00_rb/)\n      kbo(:,53,12) = (/ &\n     &3.0222e+00_rb,4.0130e+00_rb,5.2245e+00_rb,6.6473e+00_rb,8.2931e+00_rb/)\n      kbo(:,54,12) = (/ &\n     &2.7077e+00_rb,3.6347e+00_rb,4.7766e+00_rb,6.1280e+00_rb,7.6968e+00_rb/)\n      kbo(:,55,12) = (/ &\n     &2.4210e+00_rb,3.2970e+00_rb,4.3697e+00_rb,5.6562e+00_rb,7.1563e+00_rb/)\n      kbo(:,56,12) = (/ &\n     &2.1307e+00_rb,2.9831e+00_rb,3.9864e+00_rb,5.2103e+00_rb,6.6404e+00_rb/)\n      kbo(:,57,12) = (/ &\n     &1.8552e+00_rb,2.6736e+00_rb,3.6295e+00_rb,4.7868e+00_rb,6.1491e+00_rb/)\n      kbo(:,58,12) = (/ &\n     &1.6050e+00_rb,2.3734e+00_rb,3.3136e+00_rb,4.4004e+00_rb,5.7055e+00_rb/)\n      kbo(:,59,12) = (/ &\n     &1.4434e+00_rb,2.1814e+00_rb,3.1118e+00_rb,4.2418e+00_rb,5.5300e+00_rb/)\n      kbo(:,13,13) = (/ &\n     &2.0665e+02_rb,2.0326e+02_rb,2.0074e+02_rb,1.9867e+02_rb,1.9680e+02_rb/)\n      kbo(:,14,13) = (/ &\n     &2.1250e+02_rb,2.0998e+02_rb,2.0827e+02_rb,2.0659e+02_rb,2.0468e+02_rb/)\n      kbo(:,15,13) = (/ &\n     &2.1695e+02_rb,2.1587e+02_rb,2.1446e+02_rb,2.1260e+02_rb,2.1056e+02_rb/)\n      kbo(:,16,13) = (/ &\n     &2.2062e+02_rb,2.1972e+02_rb,2.1811e+02_rb,2.1619e+02_rb,2.1401e+02_rb/)\n      kbo(:,17,13) = (/ &\n     &2.2121e+02_rb,2.1996e+02_rb,2.1823e+02_rb,2.1618e+02_rb,2.1385e+02_rb/)\n      kbo(:,18,13) = (/ &\n     &2.1775e+02_rb,2.1636e+02_rb,2.1445e+02_rb,2.1229e+02_rb,2.1021e+02_rb/)\n      kbo(:,19,13) = (/ &\n     &2.1064e+02_rb,2.0900e+02_rb,2.0712e+02_rb,2.0551e+02_rb,2.0407e+02_rb/)\n      kbo(:,20,13) = (/ &\n     &2.0008e+02_rb,1.9874e+02_rb,1.9769e+02_rb,1.9686e+02_rb,1.9621e+02_rb/)\n      kbo(:,21,13) = (/ &\n     &1.8747e+02_rb,1.8700e+02_rb,1.8691e+02_rb,1.8703e+02_rb,1.8742e+02_rb/)\n      kbo(:,22,13) = (/ &\n     &1.7415e+02_rb,1.7476e+02_rb,1.7572e+02_rb,1.7701e+02_rb,1.7852e+02_rb/)\n      kbo(:,23,13) = (/ &\n     &1.6113e+02_rb,1.6295e+02_rb,1.6510e+02_rb,1.6752e+02_rb,1.7009e+02_rb/)\n      kbo(:,24,13) = (/ &\n     &1.4912e+02_rb,1.5211e+02_rb,1.5536e+02_rb,1.5887e+02_rb,1.6232e+02_rb/)\n      kbo(:,25,13) = (/ &\n     &1.3846e+02_rb,1.4246e+02_rb,1.4677e+02_rb,1.5111e+02_rb,1.5523e+02_rb/)\n      kbo(:,26,13) = (/ &\n     &1.2926e+02_rb,1.3422e+02_rb,1.3933e+02_rb,1.4432e+02_rb,1.4910e+02_rb/)\n      kbo(:,27,13) = (/ &\n     &1.2138e+02_rb,1.2724e+02_rb,1.3302e+02_rb,1.3864e+02_rb,1.4402e+02_rb/)\n      kbo(:,28,13) = (/ &\n     &1.1492e+02_rb,1.2144e+02_rb,1.2785e+02_rb,1.3411e+02_rb,1.4008e+02_rb/)\n      kbo(:,29,13) = (/ &\n     &1.0978e+02_rb,1.1690e+02_rb,1.2395e+02_rb,1.3076e+02_rb,1.3730e+02_rb/)\n      kbo(:,30,13) = (/ &\n     &1.0580e+02_rb,1.1355e+02_rb,1.2118e+02_rb,1.2849e+02_rb,1.3548e+02_rb/)\n      kbo(:,31,13) = (/ &\n     &1.0304e+02_rb,1.1137e+02_rb,1.1944e+02_rb,1.2716e+02_rb,1.3451e+02_rb/)\n      kbo(:,32,13) = (/ &\n     &1.0136e+02_rb,1.1014e+02_rb,1.1859e+02_rb,1.2663e+02_rb,1.3416e+02_rb/)\n      kbo(:,33,13) = (/ &\n     &1.0056e+02_rb,1.0971e+02_rb,1.1845e+02_rb,1.2667e+02_rb,1.3431e+02_rb/)\n      kbo(:,34,13) = (/ &\n     &1.0020e+02_rb,1.0961e+02_rb,1.1855e+02_rb,1.2688e+02_rb,1.3458e+02_rb/)\n      kbo(:,35,13) = (/ &\n     &9.9483e+01_rb,1.0912e+02_rb,1.1821e+02_rb,1.2667e+02_rb,1.3443e+02_rb/)\n      kbo(:,36,13) = (/ &\n     &9.8103e+01_rb,1.0792e+02_rb,1.1721e+02_rb,1.2581e+02_rb,1.3368e+02_rb/)\n      kbo(:,37,13) = (/ &\n     &9.5455e+01_rb,1.0552e+02_rb,1.1504e+02_rb,1.2386e+02_rb,1.3193e+02_rb/)\n      kbo(:,38,13) = (/ &\n     &9.2912e+01_rb,1.0319e+02_rb,1.1292e+02_rb,1.2195e+02_rb,1.3022e+02_rb/)\n      kbo(:,39,13) = (/ &\n     &9.0538e+01_rb,1.0100e+02_rb,1.1091e+02_rb,1.2014e+02_rb,1.2859e+02_rb/)\n      kbo(:,40,13) = (/ &\n     &8.7195e+01_rb,9.7854e+01_rb,1.0799e+02_rb,1.1748e+02_rb,1.2618e+02_rb/)\n      kbo(:,41,13) = (/ &\n     &8.3785e+01_rb,9.4631e+01_rb,1.0497e+02_rb,1.1470e+02_rb,1.2366e+02_rb/)\n      kbo(:,42,13) = (/ &\n     &8.0430e+01_rb,9.1433e+01_rb,1.0197e+02_rb,1.1192e+02_rb,1.2113e+02_rb/)\n      kbo(:,43,13) = (/ &\n     &7.6477e+01_rb,8.7634e+01_rb,9.8384e+01_rb,1.0856e+02_rb,1.1808e+02_rb/)\n      kbo(:,44,13) = (/ &\n     &7.2299e+01_rb,8.3562e+01_rb,9.4524e+01_rb,1.0494e+02_rb,1.1474e+02_rb/)\n      kbo(:,45,13) = (/ &\n     &6.8166e+01_rb,7.9496e+01_rb,9.0629e+01_rb,1.0127e+02_rb,1.1130e+02_rb/)\n      kbo(:,46,13) = (/ &\n     &6.3834e+01_rb,7.5188e+01_rb,8.6450e+01_rb,9.7312e+01_rb,1.0760e+02_rb/)\n      kbo(:,47,13) = (/ &\n     &5.9081e+01_rb,7.0413e+01_rb,8.1772e+01_rb,9.2852e+01_rb,1.0340e+02_rb/)\n      kbo(:,48,13) = (/ &\n     &5.4396e+01_rb,6.5661e+01_rb,7.7060e+01_rb,8.8317e+01_rb,9.9114e+01_rb/)\n      kbo(:,49,13) = (/ &\n     &4.9801e+01_rb,6.0961e+01_rb,7.2354e+01_rb,8.3709e+01_rb,9.4725e+01_rb/)\n      kbo(:,50,13) = (/ &\n     &4.5581e+01_rb,5.6585e+01_rb,6.7933e+01_rb,7.9345e+01_rb,9.0545e+01_rb/)\n      kbo(:,51,13) = (/ &\n     &4.1581e+01_rb,5.2405e+01_rb,6.3662e+01_rb,7.5096e+01_rb,8.6425e+01_rb/)\n      kbo(:,52,13) = (/ &\n     &3.7719e+01_rb,4.8309e+01_rb,5.9448e+01_rb,7.0850e+01_rb,8.2254e+01_rb/)\n      kbo(:,53,13) = (/ &\n     &3.4012e+01_rb,4.4282e+01_rb,5.5265e+01_rb,6.6609e+01_rb,7.8050e+01_rb/)\n      kbo(:,54,13) = (/ &\n     &3.0756e+01_rb,4.0675e+01_rb,5.1476e+01_rb,6.2735e+01_rb,7.4183e+01_rb/)\n      kbo(:,55,13) = (/ &\n     &2.7771e+01_rb,3.7316e+01_rb,4.7906e+01_rb,5.9042e+01_rb,7.0461e+01_rb/)\n      kbo(:,56,13) = (/ &\n     &2.4943e+01_rb,3.4093e+01_rb,4.4398e+01_rb,5.5401e+01_rb,6.6760e+01_rb/)\n      kbo(:,57,13) = (/ &\n     &2.2280e+01_rb,3.0993e+01_rb,4.0957e+01_rb,5.1794e+01_rb,6.3073e+01_rb/)\n      kbo(:,58,13) = (/ &\n     &1.9914e+01_rb,2.8171e+01_rb,3.7788e+01_rb,4.8428e+01_rb,5.9596e+01_rb/)\n      kbo(:,59,13) = (/ &\n     &1.9003e+01_rb,2.7062e+01_rb,3.6534e+01_rb,4.7084e+01_rb,5.8201e+01_rb/)\n      kbo(:,13,14) = (/ &\n     &3.9453e+02_rb,3.9054e+02_rb,3.8556e+02_rb,3.8029e+02_rb,3.7518e+02_rb/)\n      kbo(:,14,14) = (/ &\n     &4.2588e+02_rb,4.2023e+02_rb,4.1375e+02_rb,4.0776e+02_rb,4.0199e+02_rb/)\n      kbo(:,15,14) = (/ &\n     &4.5408e+02_rb,4.4627e+02_rb,4.3917e+02_rb,4.3301e+02_rb,4.2714e+02_rb/)\n      kbo(:,16,14) = (/ &\n     &4.7789e+02_rb,4.6976e+02_rb,4.6328e+02_rb,4.5698e+02_rb,4.5114e+02_rb/)\n      kbo(:,17,14) = (/ &\n     &5.0033e+02_rb,4.9329e+02_rb,4.8659e+02_rb,4.8030e+02_rb,4.7472e+02_rb/)\n      kbo(:,18,14) = (/ &\n     &5.2160e+02_rb,5.1479e+02_rb,5.0850e+02_rb,5.0281e+02_rb,4.9755e+02_rb/)\n      kbo(:,19,14) = (/ &\n     &5.3975e+02_rb,5.3405e+02_rb,5.2880e+02_rb,5.2359e+02_rb,5.1826e+02_rb/)\n      kbo(:,20,14) = (/ &\n     &5.5471e+02_rb,5.5025e+02_rb,5.4544e+02_rb,5.4054e+02_rb,5.3559e+02_rb/)\n      kbo(:,21,14) = (/ &\n     &5.6616e+02_rb,5.6246e+02_rb,5.5854e+02_rb,5.5439e+02_rb,5.5012e+02_rb/)\n      kbo(:,22,14) = (/ &\n     &5.7373e+02_rb,5.7143e+02_rb,5.6842e+02_rb,5.6526e+02_rb,5.6165e+02_rb/)\n      kbo(:,23,14) = (/ &\n     &5.7822e+02_rb,5.7745e+02_rb,5.7602e+02_rb,5.7378e+02_rb,5.7033e+02_rb/)\n      kbo(:,24,14) = (/ &\n     &5.8038e+02_rb,5.8144e+02_rb,5.8147e+02_rb,5.7978e+02_rb,5.7697e+02_rb/)\n      kbo(:,25,14) = (/ &\n     &5.8144e+02_rb,5.8416e+02_rb,5.8500e+02_rb,5.8436e+02_rb,5.8236e+02_rb/)\n      kbo(:,26,14) = (/ &\n     &5.8189e+02_rb,5.8575e+02_rb,5.8780e+02_rb,5.8818e+02_rb,5.8686e+02_rb/)\n      kbo(:,27,14) = (/ &\n     &5.8218e+02_rb,5.8719e+02_rb,5.9038e+02_rb,5.9148e+02_rb,5.9059e+02_rb/)\n      kbo(:,28,14) = (/ &\n     &5.8262e+02_rb,5.8871e+02_rb,5.9261e+02_rb,5.9417e+02_rb,5.9365e+02_rb/)\n      kbo(:,29,14) = (/ &\n     &5.8351e+02_rb,5.9046e+02_rb,5.9468e+02_rb,5.9643e+02_rb,5.9604e+02_rb/)\n      kbo(:,30,14) = (/ &\n     &5.8500e+02_rb,5.9236e+02_rb,5.9667e+02_rb,5.9846e+02_rb,5.9808e+02_rb/)\n      kbo(:,31,14) = (/ &\n     &5.8683e+02_rb,5.9418e+02_rb,5.9850e+02_rb,6.0020e+02_rb,5.9975e+02_rb/)\n      kbo(:,32,14) = (/ &\n     &5.8889e+02_rb,5.9602e+02_rb,6.0013e+02_rb,6.0165e+02_rb,6.0111e+02_rb/)\n      kbo(:,33,14) = (/ &\n     &5.9113e+02_rb,5.9792e+02_rb,6.0167e+02_rb,6.0289e+02_rb,6.0219e+02_rb/)\n      kbo(:,34,14) = (/ &\n     &5.9309e+02_rb,5.9954e+02_rb,6.0296e+02_rb,6.0390e+02_rb,6.0309e+02_rb/)\n      kbo(:,35,14) = (/ &\n     &5.9425e+02_rb,6.0057e+02_rb,6.0391e+02_rb,6.0481e+02_rb,6.0395e+02_rb/)\n      kbo(:,36,14) = (/ &\n     &5.9453e+02_rb,6.0102e+02_rb,6.0449e+02_rb,6.0555e+02_rb,6.0478e+02_rb/)\n      kbo(:,37,14) = (/ &\n     &5.9344e+02_rb,6.0064e+02_rb,6.0466e+02_rb,6.0613e+02_rb,6.0565e+02_rb/)\n      kbo(:,38,14) = (/ &\n     &5.9210e+02_rb,6.0005e+02_rb,6.0460e+02_rb,6.0657e+02_rb,6.0636e+02_rb/)\n      kbo(:,39,14) = (/ &\n     &5.9062e+02_rb,5.9933e+02_rb,6.0439e+02_rb,6.0685e+02_rb,6.0693e+02_rb/)\n      kbo(:,40,14) = (/ &\n     &5.8781e+02_rb,5.9770e+02_rb,6.0363e+02_rb,6.0675e+02_rb,6.0742e+02_rb/)\n      kbo(:,41,14) = (/ &\n     &5.8441e+02_rb,5.9563e+02_rb,6.0254e+02_rb,6.0641e+02_rb,6.0773e+02_rb/)\n      kbo(:,42,14) = (/ &\n     &5.8066e+02_rb,5.9320e+02_rb,6.0125e+02_rb,6.0582e+02_rb,6.0784e+02_rb/)\n      kbo(:,43,14) = (/ &\n     &5.7546e+02_rb,5.8975e+02_rb,5.9921e+02_rb,6.0478e+02_rb,6.0764e+02_rb/)\n      kbo(:,44,14) = (/ &\n     &5.6919e+02_rb,5.8551e+02_rb,5.9655e+02_rb,6.0334e+02_rb,6.0709e+02_rb/)\n      kbo(:,45,14) = (/ &\n     &5.6228e+02_rb,5.8057e+02_rb,5.9328e+02_rb,6.0149e+02_rb,6.0621e+02_rb/)\n      kbo(:,46,14) = (/ &\n     &5.5416e+02_rb,5.7453e+02_rb,5.8925e+02_rb,5.9904e+02_rb,6.0487e+02_rb/)\n      kbo(:,47,14) = (/ &\n     &5.4413e+02_rb,5.6695e+02_rb,5.8396e+02_rb,5.9568e+02_rb,6.0296e+02_rb/)\n      kbo(:,48,14) = (/ &\n     &5.3289e+02_rb,5.5838e+02_rb,5.7778e+02_rb,5.9151e+02_rb,6.0055e+02_rb/)\n      kbo(:,49,14) = (/ &\n     &5.2046e+02_rb,5.4886e+02_rb,5.7056e+02_rb,5.8661e+02_rb,5.9745e+02_rb/)\n      kbo(:,50,14) = (/ &\n     &5.0763e+02_rb,5.3890e+02_rb,5.6309e+02_rb,5.8123e+02_rb,5.9389e+02_rb/)\n      kbo(:,51,14) = (/ &\n     &4.9397e+02_rb,5.2829e+02_rb,5.5490e+02_rb,5.7522e+02_rb,5.8985e+02_rb/)\n      kbo(:,52,14) = (/ &\n     &4.7917e+02_rb,5.1663e+02_rb,5.4597e+02_rb,5.6843e+02_rb,5.8514e+02_rb/)\n      kbo(:,53,14) = (/ &\n     &4.6310e+02_rb,5.0389e+02_rb,5.3606e+02_rb,5.6086e+02_rb,5.7969e+02_rb/)\n      kbo(:,54,14) = (/ &\n     &4.4738e+02_rb,4.9113e+02_rb,5.2610e+02_rb,5.5325e+02_rb,5.7401e+02_rb/)\n      kbo(:,55,14) = (/ &\n     &4.3145e+02_rb,4.7800e+02_rb,5.1576e+02_rb,5.4530e+02_rb,5.6795e+02_rb/)\n      kbo(:,56,14) = (/ &\n     &4.1442e+02_rb,4.6397e+02_rb,5.0460e+02_rb,5.3665e+02_rb,5.6135e+02_rb/)\n      kbo(:,57,14) = (/ &\n     &3.9638e+02_rb,4.4904e+02_rb,4.9255e+02_rb,5.2719e+02_rb,5.5411e+02_rb/)\n      kbo(:,58,14) = (/ &\n     &3.7836e+02_rb,4.3410e+02_rb,4.8026e+02_rb,5.1754e+02_rb,5.4672e+02_rb/)\n      kbo(:,59,14) = (/ &\n     &3.7094e+02_rb,4.2781e+02_rb,4.7507e+02_rb,5.1348e+02_rb,5.4351e+02_rb/)\n      kbo(:,13,15) = (/ &\n     &7.2633e+02_rb,7.1401e+02_rb,7.0254e+02_rb,6.9098e+02_rb,6.8020e+02_rb/)\n      kbo(:,14,15) = (/ &\n     &8.3011e+02_rb,8.1776e+02_rb,8.0585e+02_rb,7.9323e+02_rb,7.8158e+02_rb/)\n      kbo(:,15,15) = (/ &\n     &9.4371e+02_rb,9.3141e+02_rb,9.1779e+02_rb,9.0358e+02_rb,8.9021e+02_rb/)\n      kbo(:,16,15) = (/ &\n     &1.0657e+03_rb,1.0512e+03_rb,1.0343e+03_rb,1.0183e+03_rb,1.0024e+03_rb/)\n      kbo(:,17,15) = (/ &\n     &1.1900e+03_rb,1.1715e+03_rb,1.1530e+03_rb,1.1344e+03_rb,1.1149e+03_rb/)\n      kbo(:,18,15) = (/ &\n     &1.3144e+03_rb,1.2934e+03_rb,1.2719e+03_rb,1.2491e+03_rb,1.2254e+03_rb/)\n      kbo(:,19,15) = (/ &\n     &1.4395e+03_rb,1.4148e+03_rb,1.3884e+03_rb,1.3607e+03_rb,1.3337e+03_rb/)\n      kbo(:,20,15) = (/ &\n     &1.5639e+03_rb,1.5338e+03_rb,1.5021e+03_rb,1.4707e+03_rb,1.4392e+03_rb/)\n      kbo(:,21,15) = (/ &\n     &1.6839e+03_rb,1.6488e+03_rb,1.6126e+03_rb,1.5763e+03_rb,1.5389e+03_rb/)\n      kbo(:,22,15) = (/ &\n     &1.7952e+03_rb,1.7545e+03_rb,1.7135e+03_rb,1.6710e+03_rb,1.6285e+03_rb/)\n      kbo(:,23,15) = (/ &\n     &1.8976e+03_rb,1.8509e+03_rb,1.8033e+03_rb,1.7556e+03_rb,1.7089e+03_rb/)\n      kbo(:,24,15) = (/ &\n     &1.9890e+03_rb,1.9360e+03_rb,1.8826e+03_rb,1.8303e+03_rb,1.7792e+03_rb/)\n      kbo(:,25,15) = (/ &\n     &2.0674e+03_rb,2.0090e+03_rb,1.9512e+03_rb,1.8940e+03_rb,1.8389e+03_rb/)\n      kbo(:,26,15) = (/ &\n     &2.1327e+03_rb,2.0701e+03_rb,2.0075e+03_rb,1.9460e+03_rb,1.8872e+03_rb/)\n      kbo(:,27,15) = (/ &\n     &2.1871e+03_rb,2.1199e+03_rb,2.0526e+03_rb,1.9878e+03_rb,1.9258e+03_rb/)\n      kbo(:,28,15) = (/ &\n     &2.2305e+03_rb,2.1590e+03_rb,2.0884e+03_rb,2.0207e+03_rb,1.9559e+03_rb/)\n      kbo(:,29,15) = (/ &\n     &2.2640e+03_rb,2.1881e+03_rb,2.1149e+03_rb,2.0446e+03_rb,1.9773e+03_rb/)\n      kbo(:,30,15) = (/ &\n     &2.2867e+03_rb,2.2086e+03_rb,2.1332e+03_rb,2.0610e+03_rb,1.9920e+03_rb/)\n      kbo(:,31,15) = (/ &\n     &2.3021e+03_rb,2.2217e+03_rb,2.1448e+03_rb,2.0709e+03_rb,2.0000e+03_rb/)\n      kbo(:,32,15) = (/ &\n     &2.3102e+03_rb,2.2286e+03_rb,2.1502e+03_rb,2.0751e+03_rb,2.0031e+03_rb/)\n      kbo(:,33,15) = (/ &\n     &2.3126e+03_rb,2.2299e+03_rb,2.1503e+03_rb,2.0747e+03_rb,2.0018e+03_rb/)\n      kbo(:,34,15) = (/ &\n     &2.3131e+03_rb,2.2295e+03_rb,2.1494e+03_rb,2.0730e+03_rb,1.9993e+03_rb/)\n      kbo(:,35,15) = (/ &\n     &2.3181e+03_rb,2.2337e+03_rb,2.1530e+03_rb,2.0757e+03_rb,2.0015e+03_rb/)\n      kbo(:,36,15) = (/ &\n     &2.3296e+03_rb,2.2444e+03_rb,2.1625e+03_rb,2.0844e+03_rb,2.0094e+03_rb/)\n      kbo(:,37,15) = (/ &\n     &2.3524e+03_rb,2.2655e+03_rb,2.1822e+03_rb,2.1029e+03_rb,2.0270e+03_rb/)\n      kbo(:,38,15) = (/ &\n     &2.3744e+03_rb,2.2859e+03_rb,2.2015e+03_rb,2.1208e+03_rb,2.0440e+03_rb/)\n      kbo(:,39,15) = (/ &\n     &2.3947e+03_rb,2.3050e+03_rb,2.2197e+03_rb,2.1376e+03_rb,2.0600e+03_rb/)\n      kbo(:,40,15) = (/ &\n     &2.4238e+03_rb,2.3323e+03_rb,2.2455e+03_rb,2.1621e+03_rb,2.0831e+03_rb/)\n      kbo(:,41,15) = (/ &\n     &2.4535e+03_rb,2.3601e+03_rb,2.2718e+03_rb,2.1873e+03_rb,2.1067e+03_rb/)\n      kbo(:,42,15) = (/ &\n     &2.4827e+03_rb,2.3879e+03_rb,2.2978e+03_rb,2.2120e+03_rb,2.1299e+03_rb/)\n      kbo(:,43,15) = (/ &\n     &2.5170e+03_rb,2.4207e+03_rb,2.3287e+03_rb,2.2417e+03_rb,2.1580e+03_rb/)\n      kbo(:,44,15) = (/ &\n     &2.5535e+03_rb,2.4558e+03_rb,2.3619e+03_rb,2.2731e+03_rb,2.1881e+03_rb/)\n      kbo(:,45,15) = (/ &\n     &2.5895e+03_rb,2.4909e+03_rb,2.3955e+03_rb,2.3046e+03_rb,2.2183e+03_rb/)\n      kbo(:,46,15) = (/ &\n     &2.6275e+03_rb,2.5286e+03_rb,2.4314e+03_rb,2.3383e+03_rb,2.2507e+03_rb/)\n      kbo(:,47,15) = (/ &\n     &2.6692e+03_rb,2.5702e+03_rb,2.4716e+03_rb,2.3766e+03_rb,2.2868e+03_rb/)\n      kbo(:,48,15) = (/ &\n     &2.7104e+03_rb,2.6117e+03_rb,2.5124e+03_rb,2.4158e+03_rb,2.3235e+03_rb/)\n      kbo(:,49,15) = (/ &\n     &2.7515e+03_rb,2.6527e+03_rb,2.5535e+03_rb,2.4553e+03_rb,2.3608e+03_rb/)\n      kbo(:,50,15) = (/ &\n     &2.7894e+03_rb,2.6912e+03_rb,2.5919e+03_rb,2.4928e+03_rb,2.3968e+03_rb/)\n      kbo(:,51,15) = (/ &\n     &2.8258e+03_rb,2.7283e+03_rb,2.6293e+03_rb,2.5297e+03_rb,2.4319e+03_rb/)\n      kbo(:,52,15) = (/ &\n     &2.8615e+03_rb,2.7650e+03_rb,2.6661e+03_rb,2.5667e+03_rb,2.4680e+03_rb/)\n      kbo(:,53,15) = (/ &\n     &2.8958e+03_rb,2.8012e+03_rb,2.7030e+03_rb,2.6033e+03_rb,2.5041e+03_rb/)\n      kbo(:,54,15) = (/ &\n     &2.9257e+03_rb,2.8343e+03_rb,2.7368e+03_rb,2.6377e+03_rb,2.5378e+03_rb/)\n      kbo(:,55,15) = (/ &\n     &2.9533e+03_rb,2.8653e+03_rb,2.7685e+03_rb,2.6697e+03_rb,2.5700e+03_rb/)\n      kbo(:,56,15) = (/ &\n     &2.9793e+03_rb,2.8948e+03_rb,2.8002e+03_rb,2.7018e+03_rb,2.6024e+03_rb/)\n      kbo(:,57,15) = (/ &\n     &3.0042e+03_rb,2.9237e+03_rb,2.8317e+03_rb,2.7340e+03_rb,2.6347e+03_rb/)\n      kbo(:,58,15) = (/ &\n     &3.0257e+03_rb,2.9495e+03_rb,2.8610e+03_rb,2.7641e+03_rb,2.6651e+03_rb/)\n      kbo(:,59,15) = (/ &\n     &3.0338e+03_rb,2.9597e+03_rb,2.8725e+03_rb,2.7761e+03_rb,2.6773e+03_rb/)\n      kbo(:,13,16) = (/ &\n     &1.0026e+03_rb,9.7775e+02_rb,9.6058e+02_rb,9.5314e+02_rb,9.4719e+02_rb/)\n      kbo(:,14,16) = (/ &\n     &1.2035e+03_rb,1.1711e+03_rb,1.1486e+03_rb,1.1339e+03_rb,1.1211e+03_rb/)\n      kbo(:,15,16) = (/ &\n     &1.4371e+03_rb,1.3952e+03_rb,1.3661e+03_rb,1.3423e+03_rb,1.3197e+03_rb/)\n      kbo(:,16,16) = (/ &\n     &1.7031e+03_rb,1.6520e+03_rb,1.6127e+03_rb,1.5775e+03_rb,1.5442e+03_rb/)\n      kbo(:,17,16) = (/ &\n     &2.0034e+03_rb,1.9408e+03_rb,1.8881e+03_rb,1.8394e+03_rb,1.7917e+03_rb/)\n      kbo(:,18,16) = (/ &\n     &2.3372e+03_rb,2.2594e+03_rb,2.1891e+03_rb,2.1223e+03_rb,2.0585e+03_rb/)\n      kbo(:,19,16) = (/ &\n     &2.7003e+03_rb,2.6007e+03_rb,2.5092e+03_rb,2.4222e+03_rb,2.3387e+03_rb/)\n      kbo(:,20,16) = (/ &\n     &3.0827e+03_rb,2.9575e+03_rb,2.8405e+03_rb,2.7290e+03_rb,2.6233e+03_rb/)\n      kbo(:,21,16) = (/ &\n     &3.4765e+03_rb,3.3200e+03_rb,3.1728e+03_rb,3.0348e+03_rb,2.9062e+03_rb/)\n      kbo(:,22,16) = (/ &\n     &3.8557e+03_rb,3.6642e+03_rb,3.4867e+03_rb,3.3227e+03_rb,3.1685e+03_rb/)\n      kbo(:,23,16) = (/ &\n     &4.2141e+03_rb,3.9881e+03_rb,3.7808e+03_rb,3.5882e+03_rb,3.4103e+03_rb/)\n      kbo(:,24,16) = (/ &\n     &4.5433e+03_rb,4.2837e+03_rb,4.0442e+03_rb,3.8246e+03_rb,3.6242e+03_rb/)\n      kbo(:,25,16) = (/ &\n     &4.8340e+03_rb,4.5405e+03_rb,4.2717e+03_rb,4.0284e+03_rb,3.8059e+03_rb/)\n      kbo(:,26,16) = (/ &\n     &5.0756e+03_rb,4.7511e+03_rb,4.4591e+03_rb,4.1940e+03_rb,3.9524e+03_rb/)\n      kbo(:,27,16) = (/ &\n     &5.2698e+03_rb,4.9206e+03_rb,4.6082e+03_rb,4.3247e+03_rb,4.0667e+03_rb/)\n      kbo(:,28,16) = (/ &\n     &5.4203e+03_rb,5.0514e+03_rb,4.7208e+03_rb,4.4225e+03_rb,4.1519e+03_rb/)\n      kbo(:,29,16) = (/ &\n     &5.5225e+03_rb,5.1430e+03_rb,4.7990e+03_rb,4.4889e+03_rb,4.2086e+03_rb/)\n      kbo(:,30,16) = (/ &\n     &5.5968e+03_rb,5.2018e+03_rb,4.8479e+03_rb,4.5299e+03_rb,4.2431e+03_rb/)\n      kbo(:,31,16) = (/ &\n     &5.6319e+03_rb,5.2297e+03_rb,4.8692e+03_rb,4.5471e+03_rb,4.2577e+03_rb/)\n      kbo(:,32,16) = (/ &\n     &5.6393e+03_rb,5.2323e+03_rb,4.8693e+03_rb,4.5451e+03_rb,4.2544e+03_rb/)\n      kbo(:,33,16) = (/ &\n     &5.6219e+03_rb,5.2153e+03_rb,4.8522e+03_rb,4.5281e+03_rb,4.2389e+03_rb/)\n      kbo(:,34,16) = (/ &\n     &5.6014e+03_rb,5.1950e+03_rb,4.8333e+03_rb,4.5105e+03_rb,4.2225e+03_rb/)\n      kbo(:,35,16) = (/ &\n     &5.6085e+03_rb,5.1993e+03_rb,4.8360e+03_rb,4.5120e+03_rb,4.2238e+03_rb/)\n      kbo(:,36,16) = (/ &\n     &5.6508e+03_rb,5.2362e+03_rb,4.8672e+03_rb,4.5401e+03_rb,4.2477e+03_rb/)\n      kbo(:,37,16) = (/ &\n     &5.7523e+03_rb,5.3259e+03_rb,4.9464e+03_rb,4.6095e+03_rb,4.3092e+03_rb/)\n      kbo(:,38,16) = (/ &\n     &5.8536e+03_rb,5.4145e+03_rb,5.0247e+03_rb,4.6788e+03_rb,4.3703e+03_rb/)\n      kbo(:,39,16) = (/ &\n     &5.9499e+03_rb,5.4442e+03_rb,5.0495e+03_rb,4.7451e+03_rb,4.4289e+03_rb/)\n      kbo(:,40,16) = (/ &\n     &6.0943e+03_rb,5.6261e+03_rb,5.2115e+03_rb,4.8437e+03_rb,4.5174e+03_rb/)\n      kbo(:,41,16) = (/ &\n     &6.2466e+03_rb,5.7599e+03_rb,5.3292e+03_rb,4.9481e+03_rb,4.6100e+03_rb/)\n      kbo(:,42,16) = (/ &\n     &6.4016e+03_rb,5.8949e+03_rb,5.4490e+03_rb,5.0540e+03_rb,4.7039e+03_rb/)\n      kbo(:,43,16) = (/ &\n     &6.5921e+03_rb,6.0603e+03_rb,5.5952e+03_rb,5.1830e+03_rb,4.8181e+03_rb/)\n      kbo(:,44,16) = (/ &\n     &6.8054e+03_rb,6.2437e+03_rb,5.7562e+03_rb,5.3258e+03_rb,4.9439e+03_rb/)\n      kbo(:,45,16) = (/ &\n     &7.0283e+03_rb,6.4351e+03_rb,5.9235e+03_rb,5.4736e+03_rb,5.0747e+03_rb/)\n      kbo(:,46,16) = (/ &\n     &7.2775e+03_rb,6.6473e+03_rb,6.1076e+03_rb,5.6361e+03_rb,5.2188e+03_rb/)\n      kbo(:,47,16) = (/ &\n     &7.5694e+03_rb,6.8970e+03_rb,6.3223e+03_rb,5.8241e+03_rb,5.3852e+03_rb/)\n      kbo(:,48,16) = (/ &\n     &7.8805e+03_rb,7.1623e+03_rb,6.5487e+03_rb,6.0220e+03_rb,5.5600e+03_rb/)\n      kbo(:,49,16) = (/ &\n     &8.2112e+03_rb,7.4430e+03_rb,6.7899e+03_rb,6.2293e+03_rb,5.7432e+03_rb/)\n      kbo(:,50,16) = (/ &\n     &8.5417e+03_rb,7.7234e+03_rb,7.0279e+03_rb,6.4340e+03_rb,5.9223e+03_rb/)\n      kbo(:,51,16) = (/ &\n     &8.8820e+03_rb,8.0126e+03_rb,7.2736e+03_rb,6.6439e+03_rb,6.1042e+03_rb/)\n      kbo(:,52,16) = (/ &\n     &9.2420e+03_rb,8.3170e+03_rb,7.5326e+03_rb,6.8651e+03_rb,6.2940e+03_rb/)\n      kbo(:,53,16) = (/ &\n     &9.6269e+03_rb,8.6414e+03_rb,7.8081e+03_rb,7.0991e+03_rb,6.4953e+03_rb/)\n      kbo(:,54,16) = (/ &\n     &1.0002e+04_rb,8.9556e+03_rb,8.0739e+03_rb,7.3265e+03_rb,6.6894e+03_rb/)\n      kbo(:,55,16) = (/ &\n     &1.0382e+04_rb,9.2723e+03_rb,8.3431e+03_rb,7.5548e+03_rb,6.8840e+03_rb/)\n      kbo(:,56,16) = (/ &\n     &1.0780e+04_rb,9.6091e+03_rb,8.6265e+03_rb,7.7944e+03_rb,7.0899e+03_rb/)\n      kbo(:,57,16) = (/ &\n     &1.1201e+04_rb,9.9648e+03_rb,8.9241e+03_rb,8.0480e+03_rb,7.3039e+03_rb/)\n      kbo(:,58,16) = (/ &\n     &1.1621e+04_rb,1.0321e+04_rb,9.2223e+03_rb,8.3005e+03_rb,7.5182e+03_rb/)\n      kbo(:,59,16) = (/ &\n     &1.1796e+04_rb,1.0468e+04_rb,9.3476e+03_rb,8.4058e+03_rb,7.6078e+03_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kao_mo2(:, 1) = (/ &\n     & 2.31723e-06_rb, 2.28697e-06_rb, 2.25710e-06_rb, 2.22762e-06_rb, 2.19852e-06_rb, &\n     & 2.16981e-06_rb, 2.14147e-06_rb, 2.11350e-06_rb, 2.08590e-06_rb, 2.05865e-06_rb, &\n     & 2.03176e-06_rb, 2.00523e-06_rb, 1.97904e-06_rb, 1.95319e-06_rb, 1.92768e-06_rb, &\n     & 1.90250e-06_rb, 1.87765e-06_rb, 1.85313e-06_rb, 1.82893e-06_rb/)\n      kao_mo2(:, 2) = (/ &\n     & 1.81980e-06_rb, 1.81352e-06_rb, 1.80726e-06_rb, 1.80101e-06_rb, 1.79479e-06_rb, &\n     & 1.78860e-06_rb, 1.78242e-06_rb, 1.77626e-06_rb, 1.77013e-06_rb, 1.76402e-06_rb, &\n     & 1.75792e-06_rb, 1.75185e-06_rb, 1.74580e-06_rb, 1.73977e-06_rb, 1.73377e-06_rb, &\n     & 1.72778e-06_rb, 1.72181e-06_rb, 1.71587e-06_rb, 1.70994e-06_rb/)\n      kao_mo2(:, 3) = (/ &\n     & 2.26922e-06_rb, 2.25413e-06_rb, 2.23914e-06_rb, 2.22425e-06_rb, 2.20945e-06_rb, &\n     & 2.19476e-06_rb, 2.18016e-06_rb, 2.16566e-06_rb, 2.15126e-06_rb, 2.13695e-06_rb, &\n     & 2.12274e-06_rb, 2.10862e-06_rb, 2.09459e-06_rb, 2.08066e-06_rb, 2.06683e-06_rb, &\n     & 2.05308e-06_rb, 2.03942e-06_rb, 2.02586e-06_rb, 2.01239e-06_rb/)\n      kao_mo2(:, 4) = (/ &\n     & 2.15555e-06_rb, 2.14539e-06_rb, 2.13527e-06_rb, 2.12520e-06_rb, 2.11517e-06_rb, &\n     & 2.10520e-06_rb, 2.09527e-06_rb, 2.08538e-06_rb, 2.07555e-06_rb, 2.06576e-06_rb, &\n     & 2.05601e-06_rb, 2.04631e-06_rb, 2.03666e-06_rb, 2.02706e-06_rb, 2.01749e-06_rb, &\n     & 2.00798e-06_rb, 1.99851e-06_rb, 1.98908e-06_rb, 1.97970e-06_rb/)\n      kao_mo2(:, 5) = (/ &\n     & 2.05821e-06_rb, 2.04914e-06_rb, 2.04011e-06_rb, 2.03111e-06_rb, 2.02216e-06_rb, &\n     & 2.01324e-06_rb, 2.00437e-06_rb, 1.99553e-06_rb, 1.98673e-06_rb, 1.97798e-06_rb, &\n     & 1.96926e-06_rb, 1.96057e-06_rb, 1.95193e-06_rb, 1.94333e-06_rb, 1.93476e-06_rb, &\n     & 1.92623e-06_rb, 1.91774e-06_rb, 1.90928e-06_rb, 1.90087e-06_rb/)\n      kao_mo2(:, 6) = (/ &\n     & 2.20148e-06_rb, 2.18998e-06_rb, 2.17854e-06_rb, 2.16717e-06_rb, 2.15585e-06_rb, &\n     & 2.14459e-06_rb, 2.13339e-06_rb, 2.12225e-06_rb, 2.11117e-06_rb, 2.10014e-06_rb, &\n     & 2.08918e-06_rb, 2.07827e-06_rb, 2.06741e-06_rb, 2.05662e-06_rb, 2.04588e-06_rb, &\n     & 2.03519e-06_rb, 2.02457e-06_rb, 2.01399e-06_rb, 2.00348e-06_rb/)\n      kao_mo2(:, 7) = (/ &\n     & 2.28960e-06_rb, 2.27651e-06_rb, 2.26349e-06_rb, 2.25054e-06_rb, 2.23767e-06_rb, &\n     & 2.22487e-06_rb, 2.21215e-06_rb, 2.19950e-06_rb, 2.18692e-06_rb, 2.17441e-06_rb, &\n     & 2.16198e-06_rb, 2.14961e-06_rb, 2.13732e-06_rb, 2.12509e-06_rb, 2.11294e-06_rb, &\n     & 2.10085e-06_rb, 2.08884e-06_rb, 2.07689e-06_rb, 2.06501e-06_rb/)\n      kao_mo2(:, 8) = (/ &\n     & 2.28564e-06_rb, 2.27363e-06_rb, 2.26168e-06_rb, 2.24980e-06_rb, 2.23798e-06_rb, &\n     & 2.22622e-06_rb, 2.21452e-06_rb, 2.20288e-06_rb, 2.19131e-06_rb, 2.17980e-06_rb, &\n     & 2.16834e-06_rb, 2.15695e-06_rb, 2.14562e-06_rb, 2.13434e-06_rb, 2.12313e-06_rb, &\n     & 2.11197e-06_rb, 2.10087e-06_rb, 2.08984e-06_rb, 2.07886e-06_rb/)\n      kao_mo2(:, 9) = (/ &\n     & 2.28505e-06_rb, 2.27395e-06_rb, 2.26291e-06_rb, 2.25192e-06_rb, 2.24099e-06_rb, &\n     & 2.23011e-06_rb, 2.21928e-06_rb, 2.20850e-06_rb, 2.19778e-06_rb, 2.18711e-06_rb, &\n     & 2.17649e-06_rb, 2.16592e-06_rb, 2.15540e-06_rb, 2.14494e-06_rb, 2.13452e-06_rb, &\n     & 2.12416e-06_rb, 2.11385e-06_rb, 2.10358e-06_rb, 2.09337e-06_rb/)\n      kao_mo2(:,10) = (/ &\n     & 2.25915e-06_rb, 2.24938e-06_rb, 2.23965e-06_rb, 2.22997e-06_rb, 2.22032e-06_rb, &\n     & 2.21072e-06_rb, 2.20116e-06_rb, 2.19164e-06_rb, 2.18216e-06_rb, 2.17272e-06_rb, &\n     & 2.16333e-06_rb, 2.15397e-06_rb, 2.14465e-06_rb, 2.13538e-06_rb, 2.12614e-06_rb, &\n     & 2.11695e-06_rb, 2.10779e-06_rb, 2.09868e-06_rb, 2.08960e-06_rb/)\n      kao_mo2(:,11) = (/ &\n     & 2.52025e-06_rb, 2.50423e-06_rb, 2.48831e-06_rb, 2.47249e-06_rb, 2.45677e-06_rb, &\n     & 2.44115e-06_rb, 2.42563e-06_rb, 2.41021e-06_rb, 2.39489e-06_rb, 2.37967e-06_rb, &\n     & 2.36454e-06_rb, 2.34951e-06_rb, 2.33457e-06_rb, 2.31973e-06_rb, 2.30498e-06_rb, &\n     & 2.29033e-06_rb, 2.27577e-06_rb, 2.26130e-06_rb, 2.24692e-06_rb/)\n      kao_mo2(:,12) = (/ &\n     & 2.52634e-06_rb, 2.51180e-06_rb, 2.49735e-06_rb, 2.48299e-06_rb, 2.46871e-06_rb, &\n     & 2.45451e-06_rb, 2.44039e-06_rb, 2.42635e-06_rb, 2.41239e-06_rb, 2.39851e-06_rb, &\n     & 2.38472e-06_rb, 2.37100e-06_rb, 2.35736e-06_rb, 2.34380e-06_rb, 2.33032e-06_rb, &\n     & 2.31691e-06_rb, 2.30358e-06_rb, 2.29033e-06_rb, 2.27716e-06_rb/)\n      kao_mo2(:,13) = (/ &\n     & 2.66614e-06_rb, 2.64897e-06_rb, 2.63191e-06_rb, 2.61496e-06_rb, 2.59812e-06_rb, &\n     & 2.58138e-06_rb, 2.56476e-06_rb, 2.54824e-06_rb, 2.53183e-06_rb, 2.51552e-06_rb, &\n     & 2.49932e-06_rb, 2.48322e-06_rb, 2.46723e-06_rb, 2.45134e-06_rb, 2.43555e-06_rb, &\n     & 2.41987e-06_rb, 2.40428e-06_rb, 2.38880e-06_rb, 2.37341e-06_rb/)\n      kao_mo2(:,14) = (/ &\n     & 2.96755e-06_rb, 2.94803e-06_rb, 2.92864e-06_rb, 2.90937e-06_rb, 2.89023e-06_rb, &\n     & 2.87122e-06_rb, 2.85233e-06_rb, 2.83357e-06_rb, 2.81493e-06_rb, 2.79641e-06_rb, &\n     & 2.77802e-06_rb, 2.75974e-06_rb, 2.74159e-06_rb, 2.72355e-06_rb, 2.70563e-06_rb, &\n     & 2.68784e-06_rb, 2.67015e-06_rb, 2.65259e-06_rb, 2.63514e-06_rb/)\n      kao_mo2(:,15) = (/ &\n     & 1.30668e-06_rb, 1.31378e-06_rb, 1.32091e-06_rb, 1.32808e-06_rb, 1.33530e-06_rb, &\n     & 1.34255e-06_rb, 1.34984e-06_rb, 1.35717e-06_rb, 1.36454e-06_rb, 1.37195e-06_rb, &\n     & 1.37941e-06_rb, 1.38690e-06_rb, 1.39443e-06_rb, 1.40200e-06_rb, 1.40962e-06_rb, &\n     & 1.41727e-06_rb, 1.42497e-06_rb, 1.43271e-06_rb, 1.44049e-06_rb/)\n      kao_mo2(:,16) = (/ &\n     & 5.99001e-07_rb, 6.16844e-07_rb, 6.35219e-07_rb, 6.54141e-07_rb, 6.73626e-07_rb, &\n     & 6.93692e-07_rb, 7.14356e-07_rb, 7.35635e-07_rb, 7.57548e-07_rb, 7.80114e-07_rb, &\n     & 8.03352e-07_rb, 8.27282e-07_rb, 8.51925e-07_rb, 8.77302e-07_rb, 9.03435e-07_rb, &\n     & 9.30347e-07_rb, 9.58060e-07_rb, 9.86599e-07_rb, 1.01599e-06_rb/)\n\n!     The array KBO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level above 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kbo_mo2(:, 1) = (/ &\n     & 4.97626e-07_rb, 5.05955e-07_rb, 5.14424e-07_rb, 5.23034e-07_rb, 5.31789e-07_rb, &\n     & 5.40690e-07_rb, 5.49739e-07_rb, 5.58941e-07_rb, 5.68296e-07_rb, 5.77808e-07_rb, &\n     & 5.87479e-07_rb, 5.97312e-07_rb, 6.07310e-07_rb, 6.17475e-07_rb, 6.27810e-07_rb, &\n     & 6.38318e-07_rb, 6.49002e-07_rb, 6.59865e-07_rb, 6.70910e-07_rb/)\n      kbo_mo2(:, 2) = (/ &\n     & 3.10232e-06_rb, 3.06339e-06_rb, 3.02496e-06_rb, 2.98700e-06_rb, 2.94952e-06_rb, &\n     & 2.91252e-06_rb, 2.87597e-06_rb, 2.83989e-06_rb, 2.80426e-06_rb, 2.76907e-06_rb, &\n     & 2.73433e-06_rb, 2.70002e-06_rb, 2.66614e-06_rb, 2.63269e-06_rb, 2.59966e-06_rb, &\n     & 2.56704e-06_rb, 2.53483e-06_rb, 2.50303e-06_rb, 2.47162e-06_rb/)\n      kbo_mo2(:, 3) = (/ &\n     & 2.91635e-06_rb, 2.88637e-06_rb, 2.85669e-06_rb, 2.82733e-06_rb, 2.79826e-06_rb, &\n     & 2.76949e-06_rb, 2.74102e-06_rb, 2.71284e-06_rb, 2.68495e-06_rb, 2.65735e-06_rb, &\n     & 2.63003e-06_rb, 2.60299e-06_rb, 2.57623e-06_rb, 2.54975e-06_rb, 2.52353e-06_rb, &\n     & 2.49759e-06_rb, 2.47191e-06_rb, 2.44650e-06_rb, 2.42135e-06_rb/)\n      kbo_mo2(:, 4) = (/ &\n     & 3.15584e-06_rb, 3.11986e-06_rb, 3.08430e-06_rb, 3.04914e-06_rb, 3.01438e-06_rb, &\n     & 2.98002e-06_rb, 2.94605e-06_rb, 2.91247e-06_rb, 2.87927e-06_rb, 2.84645e-06_rb, &\n     & 2.81400e-06_rb, 2.78192e-06_rb, 2.75021e-06_rb, 2.71886e-06_rb, 2.68787e-06_rb, &\n     & 2.65723e-06_rb, 2.62694e-06_rb, 2.59699e-06_rb, 2.56739e-06_rb/)\n      kbo_mo2(:, 5) = (/ &\n     & 2.52067e-06_rb, 2.50127e-06_rb, 2.48202e-06_rb, 2.46291e-06_rb, 2.44396e-06_rb, &\n     & 2.42515e-06_rb, 2.40648e-06_rb, 2.38796e-06_rb, 2.36958e-06_rb, 2.35134e-06_rb, &\n     & 2.33324e-06_rb, 2.31529e-06_rb, 2.29747e-06_rb, 2.27978e-06_rb, 2.26224e-06_rb, &\n     & 2.24482e-06_rb, 2.22755e-06_rb, 2.21040e-06_rb, 2.19339e-06_rb/)\n      kbo_mo2(:, 6) = (/ &\n     & 2.37304e-06_rb, 2.36340e-06_rb, 2.35380e-06_rb, 2.34423e-06_rb, 2.33471e-06_rb, &\n     & 2.32522e-06_rb, 2.31578e-06_rb, 2.30637e-06_rb, 2.29700e-06_rb, 2.28766e-06_rb, &\n     & 2.27837e-06_rb, 2.26911e-06_rb, 2.25989e-06_rb, 2.25071e-06_rb, 2.24157e-06_rb, &\n     & 2.23246e-06_rb, 2.22339e-06_rb, 2.21436e-06_rb, 2.20536e-06_rb/)\n      kbo_mo2(:, 7) = (/ &\n     & 2.56366e-06_rb, 2.56395e-06_rb, 2.56424e-06_rb, 2.56453e-06_rb, 2.56482e-06_rb, &\n     & 2.56510e-06_rb, 2.56539e-06_rb, 2.56568e-06_rb, 2.56597e-06_rb, 2.56625e-06_rb, &\n     & 2.56654e-06_rb, 2.56683e-06_rb, 2.56712e-06_rb, 2.56741e-06_rb, 2.56769e-06_rb, &\n     & 2.56798e-06_rb, 2.56827e-06_rb, 2.56856e-06_rb, 2.56885e-06_rb/)\n      kbo_mo2(:, 8) = (/ &\n     & 2.54502e-06_rb, 2.55393e-06_rb, 2.56287e-06_rb, 2.57185e-06_rb, 2.58085e-06_rb, &\n     & 2.58989e-06_rb, 2.59896e-06_rb, 2.60806e-06_rb, 2.61719e-06_rb, 2.62636e-06_rb, &\n     & 2.63555e-06_rb, 2.64478e-06_rb, 2.65404e-06_rb, 2.66334e-06_rb, 2.67266e-06_rb, &\n     & 2.68202e-06_rb, 2.69141e-06_rb, 2.70084e-06_rb, 2.71030e-06_rb/)\n      kbo_mo2(:, 9) = (/ &\n     & 1.84106e-06_rb, 1.83922e-06_rb, 1.83737e-06_rb, 1.83553e-06_rb, 1.83369e-06_rb, &\n     & 1.83186e-06_rb, 1.83002e-06_rb, 1.82819e-06_rb, 1.82636e-06_rb, 1.82453e-06_rb, &\n     & 1.82270e-06_rb, 1.82087e-06_rb, 1.81905e-06_rb, 1.81723e-06_rb, 1.81541e-06_rb, &\n     & 1.81359e-06_rb, 1.81177e-06_rb, 1.80996e-06_rb, 1.80814e-06_rb/)\n      kbo_mo2(:,10) = (/ &\n     & 1.83886e-06_rb, 1.83632e-06_rb, 1.83379e-06_rb, 1.83126e-06_rb, 1.82874e-06_rb, &\n     & 1.82622e-06_rb, 1.82370e-06_rb, 1.82119e-06_rb, 1.81868e-06_rb, 1.81617e-06_rb, &\n     & 1.81367e-06_rb, 1.81117e-06_rb, 1.80867e-06_rb, 1.80618e-06_rb, 1.80369e-06_rb, &\n     & 1.80120e-06_rb, 1.79872e-06_rb, 1.79624e-06_rb, 1.79377e-06_rb/)\n      kbo_mo2(:,11) = (/ &\n     & 2.30390e-06_rb, 2.30269e-06_rb, 2.30148e-06_rb, 2.30028e-06_rb, 2.29907e-06_rb, &\n     & 2.29787e-06_rb, 2.29667e-06_rb, 2.29546e-06_rb, 2.29426e-06_rb, 2.29306e-06_rb, &\n     & 2.29186e-06_rb, 2.29066e-06_rb, 2.28946e-06_rb, 2.28826e-06_rb, 2.28706e-06_rb, &\n     & 2.28586e-06_rb, 2.28466e-06_rb, 2.28347e-06_rb, 2.28227e-06_rb/)\n      kbo_mo2(:,12) = (/ &\n     & 2.38201e-06_rb, 2.36536e-06_rb, 2.34882e-06_rb, 2.33240e-06_rb, 2.31609e-06_rb, &\n     & 2.29990e-06_rb, 2.28382e-06_rb, 2.26785e-06_rb, 2.25199e-06_rb, 2.23625e-06_rb, &\n     & 2.22061e-06_rb, 2.20508e-06_rb, 2.18967e-06_rb, 2.17436e-06_rb, 2.15915e-06_rb, &\n     & 2.14406e-06_rb, 2.12907e-06_rb, 2.11418e-06_rb, 2.09940e-06_rb/)\n      kbo_mo2(:,13) = (/ &\n     & 2.33326e-06_rb, 2.32549e-06_rb, 2.31775e-06_rb, 2.31003e-06_rb, 2.30234e-06_rb, &\n     & 2.29467e-06_rb, 2.28703e-06_rb, 2.27941e-06_rb, 2.27182e-06_rb, 2.26426e-06_rb, &\n     & 2.25672e-06_rb, 2.24920e-06_rb, 2.24171e-06_rb, 2.23424e-06_rb, 2.22680e-06_rb, &\n     & 2.21939e-06_rb, 2.21200e-06_rb, 2.20463e-06_rb, 2.19729e-06_rb/)\n      kbo_mo2(:,14) = (/ &\n     & 2.75292e-06_rb, 2.75210e-06_rb, 2.75129e-06_rb, 2.75047e-06_rb, 2.74965e-06_rb, &\n     & 2.74883e-06_rb, 2.74801e-06_rb, 2.74720e-06_rb, 2.74638e-06_rb, 2.74556e-06_rb, &\n     & 2.74475e-06_rb, 2.74393e-06_rb, 2.74311e-06_rb, 2.74230e-06_rb, 2.74148e-06_rb, &\n     & 2.74067e-06_rb, 2.73985e-06_rb, 2.73904e-06_rb, 2.73822e-06_rb/)\n      kbo_mo2(:,15) = (/ &\n     & 2.55262e-06_rb, 2.53364e-06_rb, 2.51480e-06_rb, 2.49611e-06_rb, 2.47755e-06_rb, &\n     & 2.45913e-06_rb, 2.44084e-06_rb, 2.42269e-06_rb, 2.40468e-06_rb, 2.38680e-06_rb, &\n     & 2.36906e-06_rb, 2.35144e-06_rb, 2.33396e-06_rb, 2.31660e-06_rb, 2.29938e-06_rb, &\n     & 2.28228e-06_rb, 2.26531e-06_rb, 2.24847e-06_rb, 2.23175e-06_rb/)\n      kbo_mo2(:,16) = (/ &\n     & 3.11382e-06_rb, 3.08751e-06_rb, 3.06141e-06_rb, 3.03554e-06_rb, 3.00989e-06_rb, &\n     & 2.98445e-06_rb, 2.95923e-06_rb, 2.93422e-06_rb, 2.90942e-06_rb, 2.88483e-06_rb, &\n     & 2.86045e-06_rb, 2.83628e-06_rb, 2.81231e-06_rb, 2.78854e-06_rb, 2.76498e-06_rb, &\n     & 2.74161e-06_rb, 2.71844e-06_rb, 2.69547e-06_rb, 2.67269e-06_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &2.8858e-02_rb,3.6879e-02_rb,4.0746e-02_rb,4.2561e-02_rb,4.2740e-02_rb,4.2707e-02_rb, &\n     &4.4109e-02_rb,4.4540e-02_rb,4.5206e-02_rb,4.4679e-02_rb,4.5034e-02_rb,4.5364e-02_rb, &\n     &4.6790e-02_rb,4.7857e-02_rb,4.8328e-02_rb,4.8084e-02_rb/)\n      forrefo(2,:) = (/ &\n     &2.7887e-02_rb,3.7376e-02_rb,4.0980e-02_rb,4.2986e-02_rb,4.3054e-02_rb,4.2975e-02_rb, &\n     &4.3754e-02_rb,4.4352e-02_rb,4.4723e-02_rb,4.6236e-02_rb,4.5273e-02_rb,4.5360e-02_rb, &\n     &4.5332e-02_rb,4.7587e-02_rb,4.7035e-02_rb,5.0267e-02_rb/)\n      forrefo(3,:) = (/ &\n     &2.5846e-02_rb,3.6753e-02_rb,4.2334e-02_rb,4.3806e-02_rb,4.3848e-02_rb,4.3215e-02_rb, &\n     &4.3838e-02_rb,4.4278e-02_rb,4.4658e-02_rb,4.5403e-02_rb,4.5255e-02_rb,4.6347e-02_rb, &\n     &4.4722e-02_rb,4.6612e-02_rb,4.6836e-02_rb,4.8720e-02_rb/)\n      forrefo(4,:) = (/ &\n     &2.8955e-02_rb,3.7608e-02_rb,4.1989e-02_rb,4.4919e-02_rb,4.2803e-02_rb,4.2842e-02_rb, &\n     &4.2632e-02_rb,4.1056e-02_rb,4.0086e-02_rb,4.1401e-02_rb,4.2746e-02_rb,4.2142e-02_rb, &\n     &4.1871e-02_rb,4.3917e-02_rb,4.5462e-02_rb,4.8359e-02_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 5.96496e-01_rb, 5.49171e-01_rb, 5.05600e-01_rb, 4.65486e-01_rb, 4.28555e-01_rb, &\n     & 3.94554e-01_rb, 3.63250e-01_rb, 3.34430e-01_rb, 3.07897e-01_rb, 2.83468e-01_rb/)\n      selfrefo(:, 2) = (/ &\n     & 7.46455e-01_rb, 6.82459e-01_rb, 6.23950e-01_rb, 5.70457e-01_rb, 5.21550e-01_rb, &\n     & 4.76836e-01_rb, 4.35956e-01_rb, 3.98580e-01_rb, 3.64409e-01_rb, 3.33167e-01_rb/)\n      selfrefo(:, 3) = (/ &\n     & 7.86805e-01_rb, 7.21186e-01_rb, 6.61040e-01_rb, 6.05910e-01_rb, 5.55378e-01_rb, &\n     & 5.09059e-01_rb, 4.66605e-01_rb, 4.27690e-01_rb, 3.92021e-01_rb, 3.59327e-01_rb/)\n      selfrefo(:, 4) = (/ &\n     & 8.11740e-01_rb, 7.44359e-01_rb, 6.82570e-01_rb, 6.25910e-01_rb, 5.73954e-01_rb, &\n     & 5.26311e-01_rb, 4.82622e-01_rb, 4.42560e-01_rb, 4.05823e-01_rb, 3.72136e-01_rb/)\n      selfrefo(:, 5) = (/ &\n     & 8.14870e-01_rb, 7.47200e-01_rb, 6.85150e-01_rb, 6.28253e-01_rb, 5.76081e-01_rb, &\n     & 5.28241e-01_rb, 4.84374e-01_rb, 4.44150e-01_rb, 4.07266e-01_rb, 3.73446e-01_rb/)\n      selfrefo(:, 6) = (/ &\n     & 8.10104e-01_rb, 7.43259e-01_rb, 6.81930e-01_rb, 6.25661e-01_rb, 5.74035e-01_rb, &\n     & 5.26669e-01_rb, 4.83212e-01_rb, 4.43340e-01_rb, 4.06758e-01_rb, 3.73195e-01_rb/)\n      selfrefo(:, 7) = (/ &\n     & 8.13119e-01_rb, 7.48127e-01_rb, 6.88330e-01_rb, 6.33312e-01_rb, 5.82692e-01_rb, &\n     & 5.36118e-01_rb, 4.93267e-01_rb, 4.53840e-01_rb, 4.17565e-01_rb, 3.84189e-01_rb/)\n      selfrefo(:, 8) = (/ &\n     & 8.26137e-01_rb, 7.58984e-01_rb, 6.97290e-01_rb, 6.40611e-01_rb, 5.88539e-01_rb, &\n     & 5.40699e-01_rb, 4.96748e-01_rb, 4.56370e-01_rb, 4.19274e-01_rb, 3.85193e-01_rb/)\n      selfrefo(:, 9) = (/ &\n     & 8.30566e-01_rb, 7.63984e-01_rb, 7.02740e-01_rb, 6.46405e-01_rb, 5.94587e-01_rb, &\n     & 5.46922e-01_rb, 5.03079e-01_rb, 4.62750e-01_rb, 4.25654e-01_rb, 3.91532e-01_rb/)\n      selfrefo(:,10) = (/ &\n     & 8.67471e-01_rb, 7.91575e-01_rb, 7.22320e-01_rb, 6.59124e-01_rb, 6.01457e-01_rb, &\n     & 5.48835e-01_rb, 5.00817e-01_rb, 4.57000e-01_rb, 4.17017e-01_rb, 3.80532e-01_rb/)\n      selfrefo(:,11) = (/ &\n     & 8.51029e-01_rb, 7.79373e-01_rb, 7.13750e-01_rb, 6.53652e-01_rb, 5.98615e-01_rb, &\n     & 5.48212e-01_rb, 5.02053e-01_rb, 4.59780e-01_rb, 4.21067e-01_rb, 3.85613e-01_rb/)\n      selfrefo(:,12) = (/ &\n     & 8.36772e-01_rb, 7.68751e-01_rb, 7.06260e-01_rb, 6.48848e-01_rb, 5.96104e-01_rb, &\n     & 5.47647e-01_rb, 5.03129e-01_rb, 4.62230e-01_rb, 4.24655e-01_rb, 3.90136e-01_rb/)\n      selfrefo(:,13) = (/ &\n     & 8.36551e-01_rb, 7.71089e-01_rb, 7.10750e-01_rb, 6.55133e-01_rb, 6.03867e-01_rb, &\n     & 5.56614e-01_rb, 5.13058e-01_rb, 4.72910e-01_rb, 4.35904e-01_rb, 4.01794e-01_rb/)\n      selfrefo(:,14) = (/ &\n     & 8.84307e-01_rb, 8.11175e-01_rb, 7.44090e-01_rb, 6.82553e-01_rb, 6.26106e-01_rb, &\n     & 5.74326e-01_rb, 5.26829e-01_rb, 4.83260e-01_rb, 4.43294e-01_rb, 4.06633e-01_rb/)\n      selfrefo(:,15) = (/ &\n     & 8.90356e-01_rb, 8.19830e-01_rb, 7.54890e-01_rb, 6.95094e-01_rb, 6.40035e-01_rb, &\n     & 5.89337e-01_rb, 5.42655e-01_rb, 4.99670e-01_rb, 4.60090e-01_rb, 4.23646e-01_rb/)\n      selfrefo(:,16) = (/ &\n     & 9.67549e-01_rb, 8.79393e-01_rb, 7.99270e-01_rb, 7.26447e-01_rb, 6.60259e-01_rb, &\n     & 6.00101e-01_rb, 5.45425e-01_rb, 4.95730e-01_rb, 4.50563e-01_rb, 4.09511e-01_rb/)\n\n      end subroutine lw_kgb11\n\n! **************************************************************************\n      subroutine lw_kgb12\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg12, only : fracrefao, kao, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 174.1640 mbar, T= 215.78 K\n      fracrefao(:, 1) = (/ &\n     &  1.3984e-01_rb,1.6809e-01_rb,1.8072e-01_rb,1.5400e-01_rb,1.2613e-01_rb,9.6959e-02_rb, &\n     &  5.9713e-02_rb,3.8631e-02_rb,2.6937e-02_rb,3.1711e-03_rb,2.3458e-03_rb,1.4653e-03_rb, &\n     &  1.0567e-03_rb,6.6504e-04_rb,2.4957e-04_rb,3.5172e-05_rb/)\n      fracrefao(:, 2) = (/ &\n     &  1.2745e-01_rb,1.6107e-01_rb,1.6568e-01_rb,1.5436e-01_rb,1.3183e-01_rb,1.0166e-01_rb, &\n     &  6.4506e-02_rb,4.7756e-02_rb,3.4472e-02_rb,3.7189e-03_rb,2.9349e-03_rb,2.1469e-03_rb, &\n     &  1.3746e-03_rb,7.1691e-04_rb,2.8057e-04_rb,5.6242e-05_rb/)\n      fracrefao(:, 3) = (/ &\n     &  1.2181e-01_rb,1.5404e-01_rb,1.6540e-01_rb,1.5255e-01_rb,1.3736e-01_rb,9.8856e-02_rb, &\n     &  6.8927e-02_rb,5.1385e-02_rb,3.7046e-02_rb,4.0302e-03_rb,3.0949e-03_rb,2.3772e-03_rb, &\n     &  1.6538e-03_rb,8.9641e-04_rb,4.6991e-04_rb,1.1251e-04_rb/)\n      fracrefao(:, 4) = (/ &\n     &  1.1794e-01_rb,1.4864e-01_rb,1.6316e-01_rb,1.5341e-01_rb,1.3986e-01_rb,9.6656e-02_rb, &\n     &  7.2478e-02_rb,5.5061e-02_rb,3.8886e-02_rb,4.3398e-03_rb,3.3576e-03_rb,2.4891e-03_rb, &\n     &  1.7674e-03_rb,1.0764e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)\n      fracrefao(:, 5) = (/ &\n     &  1.1635e-01_rb,1.4342e-01_rb,1.5924e-01_rb,1.5670e-01_rb,1.3740e-01_rb,9.7087e-02_rb, &\n     &  7.6250e-02_rb,5.7802e-02_rb,4.0808e-02_rb,4.4113e-03_rb,3.6035e-03_rb,2.6269e-03_rb, &\n     &  1.7586e-03_rb,1.6498e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)\n      fracrefao(:, 6) = (/ &\n     &  1.1497e-01_rb,1.3751e-01_rb,1.5587e-01_rb,1.5904e-01_rb,1.3140e-01_rb,1.0159e-01_rb, &\n     &  7.9729e-02_rb,6.1475e-02_rb,4.2382e-02_rb,4.5291e-03_rb,3.8161e-03_rb,2.7683e-03_rb, &\n     &  1.9899e-03_rb,2.0395e-03_rb,7.7720e-04_rb,1.1251e-04_rb/)\n      fracrefao(:, 7) = (/ &\n     &  1.1331e-01_rb,1.3015e-01_rb,1.5574e-01_rb,1.5489e-01_rb,1.2697e-01_rb,1.0746e-01_rb, &\n     &  8.4777e-02_rb,6.5145e-02_rb,4.4293e-02_rb,4.7426e-03_rb,3.8383e-03_rb,2.9065e-03_rb, &\n     &  2.8430e-03_rb,2.0401e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)\n      fracrefao(:, 8) = (/ &\n     &  1.0993e-01_rb,1.2320e-01_rb,1.4893e-01_rb,1.4573e-01_rb,1.3174e-01_rb,1.1149e-01_rb, &\n     &  9.3326e-02_rb,6.9942e-02_rb,4.6762e-02_rb,4.9309e-03_rb,3.8583e-03_rb,4.1889e-03_rb, &\n     &  3.0415e-03_rb,2.0406e-03_rb,7.7720e-04_rb,1.1251e-04_rb/)\n      fracrefao(:, 9) = (/ &\n     &  1.2028e-01_rb,1.2091e-01_rb,1.3098e-01_rb,1.3442e-01_rb,1.3574e-01_rb,1.1739e-01_rb, &\n     &  9.5343e-02_rb,7.0224e-02_rb,5.3456e-02_rb,6.0206e-03_rb,5.0758e-03_rb,4.1906e-03_rb, &\n     &  3.0431e-03_rb,2.0400e-03_rb,7.7689e-04_rb,1.1251e-04_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &1.7511e-07_rb,6.8135e-05_rb,1.1804e-04_rb,1.6931e-04_rb,2.2006e-04_rb,2.8275e-04_rb, &\n     &3.5722e-04_rb,4.9530e-04_rb,3.5719e-04_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &1.9831e-07_rb,7.7459e-05_rb,1.3459e-04_rb,1.9095e-04_rb,2.5338e-04_rb,3.1724e-04_rb, &\n     &4.1347e-04_rb,5.5823e-04_rb,4.1876e-04_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &2.2440e-07_rb,8.7653e-05_rb,1.5288e-04_rb,2.1636e-04_rb,2.8321e-04_rb,3.6387e-04_rb, &\n     &4.5547e-04_rb,6.4036e-04_rb,4.9001e-04_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &2.4907e-07_rb,9.8921e-05_rb,1.7279e-04_rb,2.4495e-04_rb,3.1911e-04_rb,4.0317e-04_rb, &\n     &5.1922e-04_rb,7.1060e-04_rb,5.5803e-04_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &2.7577e-07_rb,1.1088e-04_rb,1.9448e-04_rb,2.7670e-04_rb,3.6112e-04_rb,4.5291e-04_rb, &\n     &5.7232e-04_rb,7.9647e-04_rb,6.3718e-04_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &2.1743e-07_rb,5.9697e-05_rb,1.0011e-04_rb,1.3856e-04_rb,1.7837e-04_rb,2.1937e-04_rb, &\n     &2.7665e-04_rb,3.5934e-04_rb,2.6865e-04_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &2.4689e-07_rb,6.8199e-05_rb,1.1473e-04_rb,1.5826e-04_rb,2.0299e-04_rb,2.5265e-04_rb, &\n     &3.0999e-04_rb,4.0941e-04_rb,3.2103e-04_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &2.7759e-07_rb,7.7428e-05_rb,1.3086e-04_rb,1.8044e-04_rb,2.2946e-04_rb,2.8434e-04_rb, &\n     &3.5412e-04_rb,4.7313e-04_rb,3.7455e-04_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &3.1162e-07_rb,8.7312e-05_rb,1.4837e-04_rb,2.0486e-04_rb,2.6086e-04_rb,3.2026e-04_rb, &\n     &3.9490e-04_rb,5.1882e-04_rb,4.3142e-04_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &3.4483e-07_rb,9.7902e-05_rb,1.6760e-04_rb,2.3163e-04_rb,2.9600e-04_rb,3.6332e-04_rb, &\n     &4.4224e-04_rb,5.8485e-04_rb,4.9654e-04_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &3.5522e-07_rb,5.4633e-05_rb,8.9953e-05_rb,1.1946e-04_rb,1.4735e-04_rb,1.7547e-04_rb, &\n     &2.0438e-04_rb,2.5064e-04_rb,1.9532e-04_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &4.0312e-07_rb,6.2965e-05_rb,1.0335e-04_rb,1.3746e-04_rb,1.6817e-04_rb,1.9939e-04_rb, &\n     &2.3562e-04_rb,2.9335e-04_rb,2.3482e-04_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &4.5344e-07_rb,7.1817e-05_rb,1.1822e-04_rb,1.5709e-04_rb,1.9287e-04_rb,2.2736e-04_rb, &\n     &2.6619e-04_rb,3.2521e-04_rb,2.7722e-04_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &5.1341e-07_rb,8.1197e-05_rb,1.3399e-04_rb,1.7909e-04_rb,2.2021e-04_rb,2.5936e-04_rb, &\n     &3.0089e-04_rb,3.7007e-04_rb,3.2243e-04_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &5.7093e-07_rb,9.0935e-05_rb,1.5129e-04_rb,2.0303e-04_rb,2.4981e-04_rb,2.9482e-04_rb, &\n     &3.4243e-04_rb,4.0910e-04_rb,3.7408e-04_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &5.9029e-07_rb,4.8269e-05_rb,8.1661e-05_rb,1.0687e-04_rb,1.2826e-04_rb,1.4610e-04_rb, &\n     &1.6333e-04_rb,1.8670e-04_rb,1.4151e-04_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &6.7060e-07_rb,5.6349e-05_rb,9.4916e-05_rb,1.2365e-04_rb,1.4803e-04_rb,1.6776e-04_rb, &\n     &1.8719e-04_rb,2.1036e-04_rb,1.7196e-04_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &7.5759e-07_rb,6.4869e-05_rb,1.0916e-04_rb,1.4206e-04_rb,1.6962e-04_rb,1.9348e-04_rb, &\n     &2.1325e-04_rb,2.4238e-04_rb,2.0611e-04_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &8.5937e-07_rb,7.4063e-05_rb,1.2416e-04_rb,1.6207e-04_rb,1.9412e-04_rb,2.2126e-04_rb, &\n     &2.4479e-04_rb,2.7146e-04_rb,2.4157e-04_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &9.5897e-07_rb,8.3687e-05_rb,1.3973e-04_rb,1.8364e-04_rb,2.2051e-04_rb,2.5234e-04_rb, &\n     &2.7911e-04_rb,3.0928e-04_rb,2.8248e-04_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &9.1759e-07_rb,4.1947e-05_rb,7.0794e-05_rb,9.4885e-05_rb,1.1243e-04_rb,1.2599e-04_rb, &\n     &1.3683e-04_rb,1.4293e-04_rb,1.0336e-04_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &1.0425e-06_rb,4.9113e-05_rb,8.3728e-05_rb,1.1140e-04_rb,1.3168e-04_rb,1.4605e-04_rb, &\n     &1.5650e-04_rb,1.6563e-04_rb,1.2713e-04_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &1.1835e-06_rb,5.7263e-05_rb,9.7394e-05_rb,1.2924e-04_rb,1.5190e-04_rb,1.6881e-04_rb, &\n     &1.8096e-04_rb,1.8906e-04_rb,1.5436e-04_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &1.3393e-06_rb,6.6178e-05_rb,1.1132e-04_rb,1.4759e-04_rb,1.7411e-04_rb,1.9396e-04_rb, &\n     &2.0764e-04_rb,2.1628e-04_rb,1.8190e-04_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &1.4988e-06_rb,7.5103e-05_rb,1.2617e-04_rb,1.6721e-04_rb,1.9778e-04_rb,2.2104e-04_rb, &\n     &2.3789e-04_rb,2.4796e-04_rb,2.1416e-04_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &1.3509e-06_rb,3.6190e-05_rb,6.0186e-05_rb,8.0089e-05_rb,9.7447e-05_rb,1.0817e-04_rb, &\n     &1.1477e-04_rb,1.1459e-04_rb,7.5216e-05_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &1.5379e-06_rb,4.3048e-05_rb,7.1223e-05_rb,9.5429e-05_rb,1.1555e-04_rb,1.2778e-04_rb, &\n     &1.3385e-04_rb,1.3550e-04_rb,9.3747e-05_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &1.7505e-06_rb,5.0649e-05_rb,8.3443e-05_rb,1.1225e-04_rb,1.3468e-04_rb,1.4925e-04_rb, &\n     &1.5516e-04_rb,1.5522e-04_rb,1.1566e-04_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &1.9769e-06_rb,5.8613e-05_rb,9.7176e-05_rb,1.2952e-04_rb,1.5512e-04_rb,1.7221e-04_rb, &\n     &1.7952e-04_rb,1.7884e-04_rb,1.3754e-04_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &2.2201e-06_rb,6.7356e-05_rb,1.1202e-04_rb,1.4825e-04_rb,1.7722e-04_rb,1.9650e-04_rb, &\n     &2.0554e-04_rb,2.0495e-04_rb,1.6355e-04_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &2.1304e-06_rb,3.3089e-05_rb,5.1849e-05_rb,6.8730e-05_rb,8.2305e-05_rb,9.3472e-05_rb, &\n     &9.9164e-05_rb,9.8631e-05_rb,5.9418e-05_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &2.4308e-06_rb,3.9636e-05_rb,6.2051e-05_rb,8.1968e-05_rb,9.8909e-05_rb,1.1256e-04_rb, &\n     &1.1810e-04_rb,1.1396e-04_rb,7.5269e-05_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &2.7537e-06_rb,4.6821e-05_rb,7.3795e-05_rb,9.6812e-05_rb,1.1738e-04_rb,1.3274e-04_rb, &\n     &1.3903e-04_rb,1.3282e-04_rb,9.2641e-05_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &3.1212e-06_rb,5.4439e-05_rb,8.6765e-05_rb,1.1374e-04_rb,1.3694e-04_rb,1.5474e-04_rb, &\n     &1.6192e-04_rb,1.5375e-04_rb,1.1184e-04_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &3.5210e-06_rb,6.2611e-05_rb,9.9782e-05_rb,1.3214e-04_rb,1.5850e-04_rb,1.7752e-04_rb, &\n     &1.8622e-04_rb,1.7734e-04_rb,1.3357e-04_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &4.1180e-06_rb,3.5356e-05_rb,4.9875e-05_rb,6.2112e-05_rb,7.3272e-05_rb,8.1665e-05_rb, &\n     &8.7559e-05_rb,8.6370e-05_rb,4.9881e-05_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &4.6880e-06_rb,4.2308e-05_rb,6.0139e-05_rb,7.5108e-05_rb,8.8001e-05_rb,9.9269e-05_rb, &\n     &1.0597e-04_rb,1.0409e-04_rb,6.3232e-05_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &5.2893e-06_rb,4.9705e-05_rb,7.1733e-05_rb,8.9997e-05_rb,1.0540e-04_rb,1.1807e-04_rb, &\n     &1.2729e-04_rb,1.2367e-04_rb,7.9488e-05_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &5.9934e-06_rb,5.7629e-05_rb,8.3852e-05_rb,1.0617e-04_rb,1.2505e-04_rb,1.3960e-04_rb, &\n     &1.5001e-04_rb,1.4519e-04_rb,9.7332e-05_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &6.8016e-06_rb,6.6193e-05_rb,9.7237e-05_rb,1.2349e-04_rb,1.4561e-04_rb,1.6359e-04_rb, &\n     &1.7405e-04_rb,1.6782e-04_rb,1.1691e-04_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &1.5173e-05_rb,6.0073e-05_rb,7.5522e-05_rb,8.4608e-05_rb,8.9391e-05_rb,9.1045e-05_rb, &\n     &9.0015e-05_rb,8.5089e-05_rb,6.2916e-05_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &1.7118e-05_rb,7.2165e-05_rb,9.0975e-05_rb,1.0209e-04_rb,1.0823e-04_rb,1.1031e-04_rb, &\n     &1.0910e-04_rb,1.0450e-04_rb,8.0378e-05_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &1.9333e-05_rb,8.4779e-05_rb,1.0715e-04_rb,1.2042e-04_rb,1.2865e-04_rb,1.3251e-04_rb, &\n     &1.3198e-04_rb,1.2575e-04_rb,1.0185e-04_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &2.2020e-05_rb,9.7885e-05_rb,1.2402e-04_rb,1.4031e-04_rb,1.5091e-04_rb,1.5615e-04_rb, &\n     &1.5775e-04_rb,1.5010e-04_rb,1.2495e-04_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &2.4990e-05_rb,1.1102e-04_rb,1.4167e-04_rb,1.6181e-04_rb,1.7511e-04_rb,1.8231e-04_rb, &\n     &1.8406e-04_rb,1.7738e-04_rb,1.4891e-04_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &6.3843e-05_rb,1.3785e-04_rb,1.5635e-04_rb,1.6287e-04_rb,1.6037e-04_rb,1.5248e-04_rb, &\n     &1.3606e-04_rb,1.0761e-04_rb,1.0144e-04_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &7.2156e-05_rb,1.6111e-04_rb,1.8530e-04_rb,1.9419e-04_rb,1.9482e-04_rb,1.8548e-04_rb, &\n     &1.6571e-04_rb,1.3139e-04_rb,1.2609e-04_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &8.1633e-05_rb,1.8623e-04_rb,2.1467e-04_rb,2.2993e-04_rb,2.3146e-04_rb,2.2096e-04_rb, &\n     &1.9656e-04_rb,1.5757e-04_rb,1.5350e-04_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &9.2413e-05_rb,2.1393e-04_rb,2.4898e-04_rb,2.6688e-04_rb,2.6838e-04_rb,2.5715e-04_rb, &\n     &2.2901e-04_rb,1.8640e-04_rb,1.8257e-04_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &1.0426e-04_rb,2.4538e-04_rb,2.8330e-04_rb,3.0298e-04_rb,3.0752e-04_rb,2.9416e-04_rb, &\n     &2.6511e-04_rb,2.1835e-04_rb,2.1288e-04_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &9.9914e-05_rb,1.8204e-04_rb,1.9923e-04_rb,2.0432e-04_rb,1.9733e-04_rb,1.8201e-04_rb, &\n     &1.5904e-04_rb,1.2299e-04_rb,1.0910e-04_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &1.1199e-04_rb,2.1265e-04_rb,2.3389e-04_rb,2.4089e-04_rb,2.3442e-04_rb,2.2069e-04_rb, &\n     &1.9371e-04_rb,1.4882e-04_rb,1.3411e-04_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &1.2687e-04_rb,2.4499e-04_rb,2.7026e-04_rb,2.7909e-04_rb,2.7675e-04_rb,2.6044e-04_rb, &\n     &2.2915e-04_rb,1.7718e-04_rb,1.6026e-04_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &1.4261e-04_rb,2.8101e-04_rb,3.1141e-04_rb,3.2255e-04_rb,3.1948e-04_rb,3.0150e-04_rb, &\n     &2.6612e-04_rb,2.0752e-04_rb,1.8601e-04_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &1.5789e-04_rb,3.1929e-04_rb,3.5513e-04_rb,3.6602e-04_rb,3.6282e-04_rb,3.4410e-04_rb, &\n     &3.0577e-04_rb,2.4097e-04_rb,2.1352e-04_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &1.1122e-04_rb,1.9022e-04_rb,2.0568e-04_rb,2.0798e-04_rb,2.0013e-04_rb,1.8369e-04_rb, &\n     &1.5756e-04_rb,1.2037e-04_rb,1.0098e-04_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &1.2500e-04_rb,2.2156e-04_rb,2.4046e-04_rb,2.4347e-04_rb,2.3764e-04_rb,2.2116e-04_rb, &\n     &1.9272e-04_rb,1.4643e-04_rb,1.2390e-04_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &1.4056e-04_rb,2.5489e-04_rb,2.7764e-04_rb,2.8122e-04_rb,2.7905e-04_rb,2.5886e-04_rb, &\n     &2.2636e-04_rb,1.7352e-04_rb,1.4664e-04_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &1.5858e-04_rb,2.9021e-04_rb,3.1841e-04_rb,3.2551e-04_rb,3.1903e-04_rb,2.9848e-04_rb, &\n     &2.6254e-04_rb,2.0265e-04_rb,1.7061e-04_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &1.7398e-04_rb,3.2750e-04_rb,3.6207e-04_rb,3.6880e-04_rb,3.6058e-04_rb,3.3907e-04_rb, &\n     &2.9970e-04_rb,2.3401e-04_rb,1.9575e-04_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &9.9982e-05_rb,1.6786e-04_rb,1.8157e-04_rb,1.8311e-04_rb,1.7732e-04_rb,1.6257e-04_rb, &\n     &1.4107e-04_rb,1.0684e-04_rb,8.8282e-05_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &1.1208e-04_rb,1.9489e-04_rb,2.1207e-04_rb,2.1420e-04_rb,2.0856e-04_rb,1.9501e-04_rb, &\n     &1.6942e-04_rb,1.2896e-04_rb,1.0706e-04_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &1.2580e-04_rb,2.2390e-04_rb,2.4368e-04_rb,2.4899e-04_rb,2.4426e-04_rb,2.2695e-04_rb, &\n     &1.9796e-04_rb,1.5273e-04_rb,1.2657e-04_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &1.4115e-04_rb,2.5382e-04_rb,2.8079e-04_rb,2.8499e-04_rb,2.7843e-04_rb,2.6072e-04_rb, &\n     &2.2903e-04_rb,1.7905e-04_rb,1.4711e-04_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &1.5465e-04_rb,2.8798e-04_rb,3.1774e-04_rb,3.2258e-04_rb,3.1431e-04_rb,2.9430e-04_rb, &\n     &2.6133e-04_rb,2.0499e-04_rb,1.6802e-04_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &3.7683e-07_rb,1.9808e-04_rb,3.6685e-04_rb,5.3916e-04_rb,7.1167e-04_rb,8.9309e-04_rb, &\n     &1.1251e-03_rb,1.6060e-03_rb,1.3216e-03_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &4.2181e-07_rb,2.2081e-04_rb,4.0843e-04_rb,6.0005e-04_rb,7.9854e-04_rb,1.0235e-03_rb, &\n     &1.2747e-03_rb,1.7730e-03_rb,1.5072e-03_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &4.6205e-07_rb,2.4503e-04_rb,4.5395e-04_rb,6.6471e-04_rb,8.8503e-04_rb,1.1345e-03_rb, &\n     &1.4567e-03_rb,1.9804e-03_rb,1.6670e-03_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &5.1491e-07_rb,2.7069e-04_rb,5.0378e-04_rb,7.3699e-04_rb,9.7626e-04_rb,1.2446e-03_rb, &\n     &1.5952e-03_rb,2.2188e-03_rb,1.8463e-03_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &5.5977e-07_rb,2.9608e-04_rb,5.5719e-04_rb,8.1557e-04_rb,1.0806e-03_rb,1.3738e-03_rb, &\n     &1.7497e-03_rb,2.4313e-03_rb,2.0562e-03_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &4.7123e-07_rb,1.6943e-04_rb,3.0287e-04_rb,4.3680e-04_rb,5.7665e-04_rb,7.0994e-04_rb, &\n     &8.5911e-04_rb,1.1308e-03_rb,1.0172e-03_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &5.2931e-07_rb,1.8961e-04_rb,3.3976e-04_rb,4.8868e-04_rb,6.4337e-04_rb,8.0862e-04_rb, &\n     &9.8935e-04_rb,1.2742e-03_rb,1.1602e-03_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &5.8844e-07_rb,2.1120e-04_rb,3.7935e-04_rb,5.4606e-04_rb,7.1722e-04_rb,8.9758e-04_rb, &\n     &1.1168e-03_rb,1.4348e-03_rb,1.3002e-03_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &6.4390e-07_rb,2.3336e-04_rb,4.2266e-04_rb,6.0899e-04_rb,7.9911e-04_rb,9.9511e-04_rb, &\n     &1.2304e-03_rb,1.6357e-03_rb,1.4539e-03_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &7.0717e-07_rb,2.5573e-04_rb,4.6939e-04_rb,6.7801e-04_rb,8.8876e-04_rb,1.1052e-03_rb, &\n     &1.3595e-03_rb,1.7810e-03_rb,1.6268e-03_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &7.7382e-07_rb,1.5592e-04_rb,2.6004e-04_rb,3.5917e-04_rb,4.5597e-04_rb,5.6221e-04_rb, &\n     &6.6191e-04_rb,7.8092e-04_rb,7.5320e-04_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &8.7904e-07_rb,1.7462e-04_rb,2.9301e-04_rb,4.0553e-04_rb,5.1639e-04_rb,6.3236e-04_rb, &\n     &7.5999e-04_rb,8.9592e-04_rb,8.6804e-04_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &9.8281e-07_rb,1.9263e-04_rb,3.2870e-04_rb,4.5631e-04_rb,5.8039e-04_rb,7.0848e-04_rb, &\n     &8.4867e-04_rb,1.0369e-03_rb,9.8463e-04_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &1.0791e-06_rb,2.1196e-04_rb,3.6740e-04_rb,5.1125e-04_rb,6.5128e-04_rb,7.9536e-04_rb, &\n     &9.4873e-04_rb,1.1498e-03_rb,1.1137e-03_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &1.1811e-06_rb,2.3314e-04_rb,4.0444e-04_rb,5.7096e-04_rb,7.2953e-04_rb,8.9019e-04_rb, &\n     &1.0598e-03_rb,1.2765e-03_rb,1.2563e-03_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &1.2931e-06_rb,1.5459e-04_rb,2.3712e-04_rb,3.1151e-04_rb,3.8051e-04_rb,4.4732e-04_rb, &\n     &5.1939e-04_rb,5.8139e-04_rb,5.5932e-04_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &1.4961e-06_rb,1.6924e-04_rb,2.6743e-04_rb,3.5309e-04_rb,4.3277e-04_rb,5.1005e-04_rb, &\n     &5.8720e-04_rb,6.8557e-04_rb,6.5449e-04_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &1.6687e-06_rb,1.8668e-04_rb,2.9946e-04_rb,3.9815e-04_rb,4.8978e-04_rb,5.7712e-04_rb, &\n     &6.6568e-04_rb,7.7293e-04_rb,7.4803e-04_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &1.8491e-06_rb,2.0517e-04_rb,3.2982e-04_rb,4.4741e-04_rb,5.5202e-04_rb,6.5205e-04_rb, &\n     &7.5198e-04_rb,8.7064e-04_rb,8.5540e-04_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &2.0324e-06_rb,2.2162e-04_rb,3.6469e-04_rb,4.9544e-04_rb,6.1968e-04_rb,7.3378e-04_rb, &\n     &8.4769e-04_rb,9.7614e-04_rb,9.7197e-04_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &2.0065e-06_rb,1.5150e-04_rb,2.2968e-04_rb,2.8386e-04_rb,3.3168e-04_rb,3.7581e-04_rb, &\n     &4.1489e-04_rb,4.5675e-04_rb,4.1358e-04_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &2.3252e-06_rb,1.6854e-04_rb,2.5480e-04_rb,3.2081e-04_rb,3.7754e-04_rb,4.3026e-04_rb, &\n     &4.7606e-04_rb,5.2820e-04_rb,4.9368e-04_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &2.6085e-06_rb,1.8331e-04_rb,2.8033e-04_rb,3.6056e-04_rb,4.2825e-04_rb,4.8928e-04_rb, &\n     &5.4309e-04_rb,5.9807e-04_rb,5.6993e-04_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &2.9132e-06_rb,1.9761e-04_rb,3.1015e-04_rb,3.9882e-04_rb,4.8412e-04_rb,5.5460e-04_rb, &\n     &6.1782e-04_rb,6.7980e-04_rb,6.5837e-04_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &3.2361e-06_rb,2.1434e-04_rb,3.4118e-04_rb,4.4180e-04_rb,5.3752e-04_rb,6.2588e-04_rb, &\n     &6.9930e-04_rb,7.7113e-04_rb,7.5327e-04_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &2.9230e-06_rb,1.3806e-04_rb,2.1835e-04_rb,2.7095e-04_rb,3.0194e-04_rb,3.2758e-04_rb, &\n     &3.4587e-04_rb,3.6408e-04_rb,3.0468e-04_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &3.4021e-06_rb,1.5365e-04_rb,2.4578e-04_rb,3.0400e-04_rb,3.4286e-04_rb,3.7318e-04_rb, &\n     &3.9861e-04_rb,4.1438e-04_rb,3.7021e-04_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &3.8620e-06_rb,1.7051e-04_rb,2.7334e-04_rb,3.3438e-04_rb,3.8715e-04_rb,4.2432e-04_rb, &\n     &4.5662e-04_rb,4.7772e-04_rb,4.3260e-04_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &4.2870e-06_rb,1.8887e-04_rb,2.9668e-04_rb,3.7137e-04_rb,4.2886e-04_rb,4.8133e-04_rb, &\n     &5.2053e-04_rb,5.4689e-04_rb,5.0258e-04_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &4.8423e-06_rb,2.0662e-04_rb,3.1977e-04_rb,4.1089e-04_rb,4.7609e-04_rb,5.3742e-04_rb, &\n     &5.9126e-04_rb,6.2337e-04_rb,5.7823e-04_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &4.5404e-06_rb,1.3143e-04_rb,2.0727e-04_rb,2.6052e-04_rb,2.9635e-04_rb,3.0743e-04_rb, &\n     &3.0825e-04_rb,2.9703e-04_rb,2.2197e-04_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &5.2640e-06_rb,1.4772e-04_rb,2.3068e-04_rb,2.9687e-04_rb,3.3184e-04_rb,3.4986e-04_rb, &\n     &3.5249e-04_rb,3.4543e-04_rb,2.7330e-04_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &6.0466e-06_rb,1.6470e-04_rb,2.5696e-04_rb,3.3234e-04_rb,3.6914e-04_rb,3.9626e-04_rb, &\n     &4.0246e-04_rb,3.9902e-04_rb,3.2329e-04_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &6.7565e-06_rb,1.8107e-04_rb,2.8421e-04_rb,3.6286e-04_rb,4.1183e-04_rb,4.3876e-04_rb, &\n     &4.5748e-04_rb,4.5835e-04_rb,3.7913e-04_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &7.6474e-06_rb,1.9867e-04_rb,3.1475e-04_rb,3.9310e-04_rb,4.5438e-04_rb,4.8957e-04_rb, &\n     &5.1385e-04_rb,5.2320e-04_rb,4.4016e-04_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &8.6520e-06_rb,1.4110e-04_rb,2.0496e-04_rb,2.5993e-04_rb,2.9742e-04_rb,3.1821e-04_rb, &\n     &3.1456e-04_rb,2.7649e-04_rb,1.8485e-04_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &1.0009e-05_rb,1.5517e-04_rb,2.3206e-04_rb,2.9171e-04_rb,3.4405e-04_rb,3.6414e-04_rb, &\n     &3.5939e-04_rb,3.1713e-04_rb,2.2424e-04_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &1.1509e-05_rb,1.7205e-04_rb,2.6018e-04_rb,3.2636e-04_rb,3.8244e-04_rb,4.1241e-04_rb, &\n     &4.0304e-04_rb,3.6377e-04_rb,2.6821e-04_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &1.3117e-05_rb,1.8959e-04_rb,2.8945e-04_rb,3.6544e-04_rb,4.2147e-04_rb,4.5788e-04_rb, &\n     &4.4922e-04_rb,4.1527e-04_rb,3.1806e-04_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &1.4790e-05_rb,2.0902e-04_rb,3.1840e-04_rb,4.0603e-04_rb,4.6521e-04_rb,4.9945e-04_rb, &\n     &5.0220e-04_rb,4.7045e-04_rb,3.7190e-04_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &3.0998e-05_rb,2.0637e-04_rb,2.7947e-04_rb,3.3530e-04_rb,3.6480e-04_rb,3.8205e-04_rb, &\n     &3.8653e-04_rb,3.4762e-04_rb,1.8242e-04_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &3.6096e-05_rb,2.3076e-04_rb,3.1240e-04_rb,3.7284e-04_rb,4.1471e-04_rb,4.3432e-04_rb, &\n     &4.4125e-04_rb,4.0372e-04_rb,2.2363e-04_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &4.2035e-05_rb,2.5734e-04_rb,3.4822e-04_rb,4.1425e-04_rb,4.6570e-04_rb,4.9153e-04_rb, &\n     &4.9534e-04_rb,4.6243e-04_rb,2.6686e-04_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &4.8029e-05_rb,2.8335e-04_rb,3.8624e-04_rb,4.5968e-04_rb,5.1473e-04_rb,5.5196e-04_rb, &\n     &5.5517e-04_rb,5.1807e-04_rb,3.1577e-04_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &5.5331e-05_rb,3.0966e-04_rb,4.2837e-04_rb,5.0793e-04_rb,5.6875e-04_rb,6.0971e-04_rb, &\n     &6.2368e-04_rb,5.6511e-04_rb,3.7171e-04_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &1.2964e-04_rb,4.0632e-04_rb,5.1358e-04_rb,5.5581e-04_rb,5.6980e-04_rb,5.6112e-04_rb, &\n     &5.2892e-04_rb,4.3728e-04_rb,2.8865e-04_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &1.5095e-04_rb,4.5953e-04_rb,5.7199e-04_rb,6.2596e-04_rb,6.3988e-04_rb,6.3023e-04_rb, &\n     &5.9124e-04_rb,5.0100e-04_rb,3.5610e-04_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &1.7573e-04_rb,5.1815e-04_rb,6.3409e-04_rb,6.9698e-04_rb,7.1541e-04_rb,7.0519e-04_rb, &\n     &6.6061e-04_rb,5.7112e-04_rb,4.2862e-04_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &2.0254e-04_rb,5.7408e-04_rb,7.0140e-04_rb,7.6485e-04_rb,7.9509e-04_rb,7.8487e-04_rb, &\n     &7.3767e-04_rb,6.4340e-04_rb,5.0196e-04_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &2.3735e-04_rb,6.3435e-04_rb,7.7477e-04_rb,8.4107e-04_rb,8.7369e-04_rb,8.7290e-04_rb, &\n     &8.2035e-04_rb,7.1353e-04_rb,5.7378e-04_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &2.0611e-04_rb,5.0579e-04_rb,6.0906e-04_rb,6.6598e-04_rb,6.7463e-04_rb,6.4325e-04_rb, &\n     &5.7358e-04_rb,4.6594e-04_rb,3.7105e-04_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &2.4168e-04_rb,5.7457e-04_rb,6.8930e-04_rb,7.4695e-04_rb,7.5788e-04_rb,7.2324e-04_rb, &\n     &6.4676e-04_rb,5.2943e-04_rb,4.4283e-04_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &2.7855e-04_rb,6.5109e-04_rb,7.7336e-04_rb,8.3624e-04_rb,8.3721e-04_rb,8.0652e-04_rb, &\n     &7.2648e-04_rb,5.9132e-04_rb,5.1523e-04_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &3.2934e-04_rb,7.2843e-04_rb,8.5922e-04_rb,9.2211e-04_rb,9.2829e-04_rb,8.9207e-04_rb, &\n     &8.1359e-04_rb,6.5969e-04_rb,5.9146e-04_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &3.7624e-04_rb,8.0764e-04_rb,9.4816e-04_rb,1.0176e-03_rb,1.0267e-03_rb,9.8589e-04_rb, &\n     &9.0003e-04_rb,7.3360e-04_rb,6.6373e-04_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &2.3690e-04_rb,5.2345e-04_rb,6.1583e-04_rb,6.6206e-04_rb,6.7308e-04_rb,6.4411e-04_rb, &\n     &5.7108e-04_rb,4.4594e-04_rb,3.6966e-04_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &2.7636e-04_rb,5.9693e-04_rb,6.9824e-04_rb,7.5086e-04_rb,7.5372e-04_rb,7.2129e-04_rb, &\n     &6.4015e-04_rb,5.0417e-04_rb,4.3519e-04_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &3.2475e-04_rb,6.7274e-04_rb,7.7976e-04_rb,8.4185e-04_rb,8.4051e-04_rb,8.0110e-04_rb, &\n     &7.2036e-04_rb,5.6771e-04_rb,5.0173e-04_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &3.7742e-04_rb,7.5354e-04_rb,8.6958e-04_rb,9.2971e-04_rb,9.3567e-04_rb,8.9034e-04_rb, &\n     &7.9942e-04_rb,6.3511e-04_rb,5.6743e-04_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &4.2656e-04_rb,8.3460e-04_rb,9.6197e-04_rb,1.0276e-03_rb,1.0348e-03_rb,9.8795e-04_rb, &\n     &8.8414e-04_rb,7.0917e-04_rb,6.3181e-04_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &2.1559e-04_rb,4.7034e-04_rb,5.5318e-04_rb,5.8764e-04_rb,5.9246e-04_rb,5.7342e-04_rb, &\n     &5.0467e-04_rb,3.9184e-04_rb,3.4198e-04_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &2.5152e-04_rb,5.3422e-04_rb,6.2195e-04_rb,6.6659e-04_rb,6.7272e-04_rb,6.3853e-04_rb, &\n     &5.7068e-04_rb,4.4436e-04_rb,3.9456e-04_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &3.0302e-04_rb,6.0127e-04_rb,6.9437e-04_rb,7.4686e-04_rb,7.5249e-04_rb,7.1183e-04_rb, &\n     &6.4004e-04_rb,5.0162e-04_rb,4.4714e-04_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &3.4242e-04_rb,6.7081e-04_rb,7.7273e-04_rb,8.2774e-04_rb,8.3533e-04_rb,7.9499e-04_rb, &\n     &7.1004e-04_rb,5.6394e-04_rb,5.0105e-04_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &3.8220e-04_rb,7.4575e-04_rb,8.5383e-04_rb,9.1037e-04_rb,9.2303e-04_rb,8.8587e-04_rb, &\n     &7.8559e-04_rb,6.3207e-04_rb,5.5475e-04_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &5.3797e-07_rb,4.8188e-04_rb,8.9729e-04_rb,1.3200e-03_rb,1.7770e-03_rb,2.3291e-03_rb, &\n     &3.1122e-03_rb,4.4511e-03_rb,3.5150e-03_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &6.1262e-07_rb,5.2615e-04_rb,9.8845e-04_rb,1.4517e-03_rb,1.9408e-03_rb,2.5148e-03_rb, &\n     &3.2963e-03_rb,4.8584e-03_rb,3.8321e-03_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &7.0635e-07_rb,5.6647e-04_rb,1.0753e-03_rb,1.5925e-03_rb,2.1392e-03_rb,2.7441e-03_rb, &\n     &3.5300e-03_rb,5.0419e-03_rb,4.2299e-03_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &7.6766e-07_rb,6.0727e-04_rb,1.1623e-03_rb,1.7247e-03_rb,2.3255e-03_rb,3.0054e-03_rb, &\n     &3.8553e-03_rb,5.3163e-03_rb,4.6081e-03_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &8.3851e-07_rb,6.4796e-04_rb,1.2484e-03_rb,1.8617e-03_rb,2.5127e-03_rb,3.2521e-03_rb, &\n     &4.1787e-03_rb,5.7407e-03_rb,4.9828e-03_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &6.9858e-07_rb,4.1220e-04_rb,7.5871e-04_rb,1.0893e-03_rb,1.4250e-03_rb,1.8069e-03_rb, &\n     &2.3218e-03_rb,3.2208e-03_rb,2.7451e-03_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &8.1006e-07_rb,4.4690e-04_rb,8.3751e-04_rb,1.2083e-03_rb,1.5781e-03_rb,1.9758e-03_rb, &\n     &2.4966e-03_rb,3.4638e-03_rb,3.0268e-03_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &9.0719e-07_rb,4.8245e-04_rb,9.0580e-04_rb,1.3167e-03_rb,1.7362e-03_rb,2.1788e-03_rb, &\n     &2.7148e-03_rb,3.6613e-03_rb,3.3476e-03_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &9.9070e-07_rb,5.1202e-04_rb,9.7859e-04_rb,1.4272e-03_rb,1.8822e-03_rb,2.3784e-03_rb, &\n     &2.9761e-03_rb,3.9189e-03_rb,3.6534e-03_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &1.0800e-06_rb,5.4986e-04_rb,1.0443e-03_rb,1.5370e-03_rb,2.0346e-03_rb,2.5754e-03_rb, &\n     &3.2289e-03_rb,4.2581e-03_rb,3.9665e-03_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &1.1956e-06_rb,3.6533e-04_rb,6.4857e-04_rb,9.1797e-04_rb,1.1753e-03_rb,1.4236e-03_rb, &\n     &1.7165e-03_rb,2.2362e-03_rb,2.0894e-03_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &1.3685e-06_rb,3.9659e-04_rb,7.1084e-04_rb,1.0164e-03_rb,1.3082e-03_rb,1.5859e-03_rb, &\n     &1.8841e-03_rb,2.3586e-03_rb,2.3274e-03_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &1.5093e-06_rb,4.2397e-04_rb,7.7009e-04_rb,1.1048e-03_rb,1.4344e-03_rb,1.7565e-03_rb, &\n     &2.0870e-03_rb,2.5514e-03_rb,2.5907e-03_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &1.6732e-06_rb,4.5580e-04_rb,8.2534e-04_rb,1.1953e-03_rb,1.5533e-03_rb,1.9057e-03_rb, &\n     &2.2804e-03_rb,2.8031e-03_rb,2.8387e-03_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &1.8304e-06_rb,4.8851e-04_rb,8.8340e-04_rb,1.2735e-03_rb,1.6704e-03_rb,2.0642e-03_rb, &\n     &2.4727e-03_rb,3.0561e-03_rb,3.0939e-03_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &2.0440e-06_rb,3.4190e-04_rb,5.7528e-04_rb,7.8555e-04_rb,9.8576e-04_rb,1.1789e-03_rb, &\n     &1.3557e-03_rb,1.6128e-03_rb,1.5891e-03_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &2.2803e-06_rb,3.6626e-04_rb,6.2613e-04_rb,8.6621e-04_rb,1.0945e-03_rb,1.3150e-03_rb, &\n     &1.5191e-03_rb,1.7412e-03_rb,1.7827e-03_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &2.5344e-06_rb,3.9307e-04_rb,6.7511e-04_rb,9.4372e-04_rb,1.1954e-03_rb,1.4474e-03_rb, &\n     &1.6882e-03_rb,1.9262e-03_rb,2.0030e-03_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &2.8636e-06_rb,4.1974e-04_rb,7.2769e-04_rb,1.0153e-03_rb,1.2977e-03_rb,1.5716e-03_rb, &\n     &1.8427e-03_rb,2.1315e-03_rb,2.2084e-03_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &3.0668e-06_rb,4.5207e-04_rb,7.8267e-04_rb,1.0885e-03_rb,1.3854e-03_rb,1.6897e-03_rb, &\n     &1.9964e-03_rb,2.3147e-03_rb,2.4195e-03_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &3.1319e-06_rb,3.2418e-04_rb,5.2433e-04_rb,6.9885e-04_rb,8.4707e-04_rb,9.8232e-04_rb, &\n     &1.1112e-03_rb,1.2410e-03_rb,1.2226e-03_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &3.5295e-06_rb,3.4929e-04_rb,5.6868e-04_rb,7.6274e-04_rb,9.3852e-04_rb,1.0972e-03_rb, &\n     &1.2472e-03_rb,1.3812e-03_rb,1.3798e-03_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &3.9745e-06_rb,3.7641e-04_rb,6.1261e-04_rb,8.2611e-04_rb,1.0255e-03_rb,1.2065e-03_rb, &\n     &1.3836e-03_rb,1.5454e-03_rb,1.5563e-03_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &4.4389e-06_rb,4.0602e-04_rb,6.5760e-04_rb,8.9247e-04_rb,1.1052e-03_rb,1.3151e-03_rb, &\n     &1.5074e-03_rb,1.7081e-03_rb,1.7334e-03_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &4.7663e-06_rb,4.3568e-04_rb,7.0547e-04_rb,9.6253e-04_rb,1.1901e-03_rb,1.4105e-03_rb, &\n     &1.6319e-03_rb,1.8559e-03_rb,1.9044e-03_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &4.5500e-06_rb,3.2085e-04_rb,4.8959e-04_rb,6.2597e-04_rb,7.4855e-04_rb,8.4386e-04_rb, &\n     &9.2463e-04_rb,9.8196e-04_rb,9.3322e-04_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &5.1832e-06_rb,3.4894e-04_rb,5.2646e-04_rb,6.8892e-04_rb,8.2642e-04_rb,9.4419e-04_rb, &\n     &1.0344e-03_rb,1.1120e-03_rb,1.0567e-03_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &5.7454e-06_rb,3.7624e-04_rb,5.6596e-04_rb,7.4193e-04_rb,8.9866e-04_rb,1.0339e-03_rb, &\n     &1.1478e-03_rb,1.2434e-03_rb,1.1989e-03_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &6.4183e-06_rb,4.0049e-04_rb,6.1119e-04_rb,7.9917e-04_rb,9.7241e-04_rb,1.1206e-03_rb, &\n     &1.2562e-03_rb,1.3721e-03_rb,1.3554e-03_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &6.9324e-06_rb,4.2668e-04_rb,6.6038e-04_rb,8.5368e-04_rb,1.0486e-03_rb,1.2116e-03_rb, &\n     &1.3599e-03_rb,1.5001e-03_rb,1.5043e-03_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &7.2797e-06_rb,3.0677e-04_rb,4.8071e-04_rb,5.9971e-04_rb,6.8742e-04_rb,7.5672e-04_rb, &\n     &8.0124e-04_rb,8.1058e-04_rb,7.0953e-04_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &8.1177e-06_rb,3.3920e-04_rb,5.2455e-04_rb,6.4489e-04_rb,7.6436e-04_rb,8.4338e-04_rb, &\n     &9.0408e-04_rb,9.2147e-04_rb,8.0482e-04_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &8.9509e-06_rb,3.6425e-04_rb,5.6797e-04_rb,6.9667e-04_rb,8.2046e-04_rb,9.2590e-04_rb, &\n     &9.9874e-04_rb,1.0317e-03_rb,9.2280e-04_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &9.9962e-06_rb,3.8975e-04_rb,6.1216e-04_rb,7.5517e-04_rb,8.8215e-04_rb,1.0000e-03_rb, &\n     &1.0895e-03_rb,1.1382e-03_rb,1.0492e-03_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &1.0669e-05_rb,4.1752e-04_rb,6.5205e-04_rb,8.1765e-04_rb,9.5018e-04_rb,1.0745e-03_rb, &\n     &1.1767e-03_rb,1.2498e-03_rb,1.1757e-03_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &1.3269e-05_rb,3.0208e-04_rb,4.8542e-04_rb,6.1720e-04_rb,7.0751e-04_rb,7.5832e-04_rb, &\n     &7.5956e-04_rb,7.2658e-04_rb,5.2753e-04_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &1.5282e-05_rb,3.2807e-04_rb,5.3968e-04_rb,6.8467e-04_rb,7.6733e-04_rb,8.2175e-04_rb, &\n     &8.4708e-04_rb,8.2655e-04_rb,6.1209e-04_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &1.6919e-05_rb,3.5455e-04_rb,5.8673e-04_rb,7.5006e-04_rb,8.3417e-04_rb,8.8820e-04_rb, &\n     &9.3120e-04_rb,9.2583e-04_rb,7.0621e-04_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &1.8616e-05_rb,3.8664e-04_rb,6.2653e-04_rb,8.0927e-04_rb,9.0712e-04_rb,9.6236e-04_rb, &\n     &1.0056e-03_rb,1.0184e-03_rb,8.0931e-04_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &2.0327e-05_rb,4.2321e-04_rb,6.7354e-04_rb,8.6755e-04_rb,9.7906e-04_rb,1.0424e-03_rb, &\n     &1.0862e-03_rb,1.0982e-03_rb,9.1316e-04_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &5.0114e-05_rb,4.1653e-04_rb,5.9063e-04_rb,7.3539e-04_rb,8.5123e-04_rb,9.2178e-04_rb, &\n     &9.4309e-04_rb,8.5391e-04_rb,5.1499e-04_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &5.7273e-05_rb,4.5656e-04_rb,6.4069e-04_rb,7.9699e-04_rb,9.4296e-04_rb,1.0365e-03_rb, &\n     &1.0446e-03_rb,9.3220e-04_rb,6.0883e-04_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &6.4035e-05_rb,4.9861e-04_rb,7.0653e-04_rb,8.6985e-04_rb,1.0116e-03_rb,1.1468e-03_rb, &\n     &1.1543e-03_rb,1.0092e-03_rb,7.0553e-04_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &7.2188e-05_rb,5.4617e-04_rb,7.8095e-04_rb,9.4772e-04_rb,1.1003e-03_rb,1.2322e-03_rb, &\n     &1.2562e-03_rb,1.0988e-03_rb,7.9526e-04_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &7.9550e-05_rb,6.0184e-04_rb,8.5464e-04_rb,1.0416e-03_rb,1.1956e-03_rb,1.3190e-03_rb, &\n     &1.3528e-03_rb,1.1984e-03_rb,8.7997e-04_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &2.3306e-04_rb,7.9772e-04_rb,9.8566e-04_rb,1.1183e-03_rb,1.1737e-03_rb,1.1902e-03_rb, &\n     &1.1793e-03_rb,1.0698e-03_rb,6.6407e-04_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &2.6771e-04_rb,8.8993e-04_rb,1.0956e-03_rb,1.2259e-03_rb,1.2971e-03_rb,1.3020e-03_rb, &\n     &1.2785e-03_rb,1.2036e-03_rb,7.5718e-04_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &3.0294e-04_rb,9.8041e-04_rb,1.2123e-03_rb,1.3475e-03_rb,1.4168e-03_rb,1.4273e-03_rb, &\n     &1.4006e-03_rb,1.3282e-03_rb,8.5838e-04_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &3.4186e-04_rb,1.0838e-03_rb,1.3329e-03_rb,1.4855e-03_rb,1.5514e-03_rb,1.5775e-03_rb, &\n     &1.5302e-03_rb,1.4297e-03_rb,9.7732e-04_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &3.7940e-04_rb,1.2006e-03_rb,1.4657e-03_rb,1.6333e-03_rb,1.7070e-03_rb,1.7269e-03_rb, &\n     &1.6832e-03_rb,1.5552e-03_rb,1.1108e-03_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &4.1370e-04_rb,1.0481e-03_rb,1.2382e-03_rb,1.3193e-03_rb,1.3405e-03_rb,1.3128e-03_rb, &\n     &1.2136e-03_rb,1.0530e-03_rb,7.9947e-04_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &4.6551e-04_rb,1.1702e-03_rb,1.3813e-03_rb,1.4636e-03_rb,1.4831e-03_rb,1.4472e-03_rb, &\n     &1.3317e-03_rb,1.1447e-03_rb,9.1716e-04_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &5.2337e-04_rb,1.3114e-03_rb,1.5380e-03_rb,1.6111e-03_rb,1.6417e-03_rb,1.5910e-03_rb, &\n     &1.4641e-03_rb,1.2585e-03_rb,1.0575e-03_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &5.8236e-04_rb,1.4612e-03_rb,1.6981e-03_rb,1.7829e-03_rb,1.8015e-03_rb,1.7452e-03_rb, &\n     &1.6069e-03_rb,1.3761e-03_rb,1.2010e-03_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &6.7131e-04_rb,1.6254e-03_rb,1.8811e-03_rb,1.9666e-03_rb,1.9744e-03_rb,1.9137e-03_rb, &\n     &1.7677e-03_rb,1.5105e-03_rb,1.3428e-03_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &5.0548e-04_rb,1.1217e-03_rb,1.2964e-03_rb,1.3785e-03_rb,1.3692e-03_rb,1.2935e-03_rb, &\n     &1.1705e-03_rb,9.6704e-04_rb,8.2680e-04_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &5.7320e-04_rb,1.2560e-03_rb,1.4612e-03_rb,1.5290e-03_rb,1.5133e-03_rb,1.4345e-03_rb, &\n     &1.2992e-03_rb,1.0595e-03_rb,9.5961e-04_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &6.3853e-04_rb,1.4125e-03_rb,1.6378e-03_rb,1.6918e-03_rb,1.6663e-03_rb,1.5909e-03_rb, &\n     &1.4283e-03_rb,1.1648e-03_rb,1.0789e-03_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &7.1367e-04_rb,1.5888e-03_rb,1.8194e-03_rb,1.8745e-03_rb,1.8358e-03_rb,1.7471e-03_rb, &\n     &1.5691e-03_rb,1.2862e-03_rb,1.2039e-03_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &8.2207e-04_rb,1.7742e-03_rb,2.0103e-03_rb,2.0603e-03_rb,2.0193e-03_rb,1.9194e-03_rb, &\n     &1.7244e-03_rb,1.4199e-03_rb,1.3514e-03_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &5.0420e-04_rb,1.0317e-03_rb,1.1965e-03_rb,1.2627e-03_rb,1.2425e-03_rb,1.1623e-03_rb, &\n     &1.0397e-03_rb,8.4556e-04_rb,7.6156e-04_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &5.6808e-04_rb,1.1670e-03_rb,1.3463e-03_rb,1.4009e-03_rb,1.3701e-03_rb,1.2956e-03_rb, &\n     &1.1567e-03_rb,9.3024e-04_rb,8.8050e-04_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &6.1838e-04_rb,1.3214e-03_rb,1.5180e-03_rb,1.5502e-03_rb,1.5020e-03_rb,1.4361e-03_rb, &\n     &1.2780e-03_rb,1.0272e-03_rb,9.9967e-04_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &7.0527e-04_rb,1.4908e-03_rb,1.6794e-03_rb,1.7102e-03_rb,1.6621e-03_rb,1.5793e-03_rb, &\n     &1.4142e-03_rb,1.1355e-03_rb,1.1267e-03_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &8.1247e-04_rb,1.6340e-03_rb,1.8549e-03_rb,1.8870e-03_rb,1.8374e-03_rb,1.7298e-03_rb, &\n     &1.5606e-03_rb,1.2534e-03_rb,1.2510e-03_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &7.9349e-07_rb,1.0718e-03_rb,2.1076e-03_rb,3.1773e-03_rb,4.3493e-03_rb,5.6505e-03_rb, &\n     &7.2449e-03_rb,1.0124e-02_rb,8.6807e-03_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &7.9171e-07_rb,1.1405e-03_rb,2.2617e-03_rb,3.4209e-03_rb,4.6727e-03_rb,6.0666e-03_rb, &\n     &7.8396e-03_rb,1.0702e-02_rb,9.3285e-03_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &8.3534e-07_rb,1.2022e-03_rb,2.3697e-03_rb,3.6079e-03_rb,4.9651e-03_rb,6.4864e-03_rb, &\n     &8.3654e-03_rb,1.1513e-02_rb,9.9193e-03_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &9.5267e-07_rb,1.2723e-03_rb,2.4978e-03_rb,3.7943e-03_rb,5.1994e-03_rb,6.8025e-03_rb, &\n     &8.8715e-03_rb,1.2190e-02_rb,1.0375e-02_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &1.1458e-06_rb,1.3554e-03_rb,2.6484e-03_rb,4.0109e-03_rb,5.4856e-03_rb,7.1578e-03_rb, &\n     &9.2726e-03_rb,1.2904e-02_rb,1.0954e-02_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &9.1454e-07_rb,9.0539e-04_rb,1.7315e-03_rb,2.5817e-03_rb,3.4611e-03_rb,4.4469e-03_rb, &\n     &5.5705e-03_rb,7.4448e-03_rb,6.8782e-03_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &9.5187e-07_rb,9.6041e-04_rb,1.8588e-03_rb,2.7755e-03_rb,3.7306e-03_rb,4.7775e-03_rb, &\n     &6.0319e-03_rb,7.9894e-03_rb,7.4238e-03_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &1.1150e-06_rb,1.0164e-03_rb,1.9573e-03_rb,2.9264e-03_rb,3.9480e-03_rb,5.1214e-03_rb, &\n     &6.4611e-03_rb,8.5702e-03_rb,7.8654e-03_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &1.3385e-06_rb,1.0876e-03_rb,2.0659e-03_rb,3.0814e-03_rb,4.1574e-03_rb,5.3507e-03_rb, &\n     &6.8052e-03_rb,9.1287e-03_rb,8.2842e-03_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &1.6022e-06_rb,1.1568e-03_rb,2.2052e-03_rb,3.2703e-03_rb,4.4002e-03_rb,5.6510e-03_rb, &\n     &7.1684e-03_rb,9.6207e-03_rb,8.7667e-03_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &1.5574e-06_rb,7.6371e-04_rb,1.4483e-03_rb,2.1006e-03_rb,2.7598e-03_rb,3.4620e-03_rb, &\n     &4.1959e-03_rb,5.2056e-03_rb,5.3344e-03_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &1.7591e-06_rb,8.1114e-04_rb,1.5471e-03_rb,2.2761e-03_rb,2.9860e-03_rb,3.7307e-03_rb, &\n     &4.5489e-03_rb,5.7315e-03_rb,5.7929e-03_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &2.0958e-06_rb,8.7335e-04_rb,1.6413e-03_rb,2.3988e-03_rb,3.1565e-03_rb,3.9689e-03_rb, &\n     &4.8920e-03_rb,6.1466e-03_rb,6.1501e-03_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &2.4948e-06_rb,9.3193e-04_rb,1.7550e-03_rb,2.5427e-03_rb,3.3388e-03_rb,4.1838e-03_rb, &\n     &5.1384e-03_rb,6.5670e-03_rb,6.5006e-03_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &2.9808e-06_rb,9.8734e-04_rb,1.8752e-03_rb,2.7256e-03_rb,3.5562e-03_rb,4.4297e-03_rb, &\n     &5.4345e-03_rb,6.8804e-03_rb,6.9100e-03_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &2.8339e-06_rb,6.5550e-04_rb,1.2204e-03_rb,1.7505e-03_rb,2.2569e-03_rb,2.7626e-03_rb, &\n     &3.2755e-03_rb,3.8524e-03_rb,4.1315e-03_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &3.2988e-06_rb,7.0845e-04_rb,1.2966e-03_rb,1.8754e-03_rb,2.4581e-03_rb,3.0020e-03_rb, &\n     &3.5639e-03_rb,4.2448e-03_rb,4.5130e-03_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &3.9491e-06_rb,7.6198e-04_rb,1.3871e-03_rb,1.9942e-03_rb,2.6023e-03_rb,3.1978e-03_rb, &\n     &3.8488e-03_rb,4.5802e-03_rb,4.8443e-03_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &4.6425e-06_rb,8.1982e-04_rb,1.4902e-03_rb,2.1380e-03_rb,2.7710e-03_rb,3.3974e-03_rb, &\n     &4.0487e-03_rb,4.8659e-03_rb,5.1413e-03_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &5.6265e-06_rb,8.8017e-04_rb,1.5882e-03_rb,2.2893e-03_rb,2.9763e-03_rb,3.6352e-03_rb, &\n     &4.2916e-03_rb,5.1439e-03_rb,5.4622e-03_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &4.8447e-06_rb,5.8594e-04_rb,1.0296e-03_rb,1.4656e-03_rb,1.8696e-03_rb,2.2619e-03_rb, &\n     &2.6388e-03_rb,3.0084e-03_rb,3.1950e-03_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &5.5680e-06_rb,6.3350e-04_rb,1.1054e-03_rb,1.5640e-03_rb,2.0148e-03_rb,2.4702e-03_rb, &\n     &2.8772e-03_rb,3.3130e-03_rb,3.5193e-03_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &6.5723e-06_rb,6.8615e-04_rb,1.1977e-03_rb,1.6753e-03_rb,2.1497e-03_rb,2.6254e-03_rb, &\n     &3.0969e-03_rb,3.5912e-03_rb,3.8422e-03_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &7.8530e-06_rb,7.4277e-04_rb,1.2884e-03_rb,1.8101e-03_rb,2.3101e-03_rb,2.7992e-03_rb, &\n     &3.2952e-03_rb,3.8151e-03_rb,4.0689e-03_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &9.4527e-06_rb,8.0105e-04_rb,1.3871e-03_rb,1.9371e-03_rb,2.4908e-03_rb,3.0121e-03_rb, &\n     &3.5288e-03_rb,4.0532e-03_rb,4.3486e-03_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &7.9687e-06_rb,5.4507e-04_rb,8.9513e-04_rb,1.2382e-03_rb,1.5589e-03_rb,1.8510e-03_rb, &\n     &2.1398e-03_rb,2.3860e-03_rb,2.4635e-03_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &8.8712e-06_rb,5.9098e-04_rb,9.7039e-04_rb,1.3235e-03_rb,1.6755e-03_rb,2.0285e-03_rb, &\n     &2.3501e-03_rb,2.6411e-03_rb,2.7555e-03_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &1.0300e-05_rb,6.3947e-04_rb,1.0497e-03_rb,1.4366e-03_rb,1.7944e-03_rb,2.1608e-03_rb, &\n     &2.5184e-03_rb,2.8809e-03_rb,3.0211e-03_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &1.2171e-05_rb,6.9277e-04_rb,1.1370e-03_rb,1.5510e-03_rb,1.9450e-03_rb,2.3217e-03_rb, &\n     &2.6890e-03_rb,3.0692e-03_rb,3.2284e-03_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &1.4564e-05_rb,7.4600e-04_rb,1.2318e-03_rb,1.6801e-03_rb,2.0948e-03_rb,2.5115e-03_rb, &\n     &2.8923e-03_rb,3.2756e-03_rb,3.4483e-03_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &1.3302e-05_rb,5.5386e-04_rb,8.3382e-04_rb,1.0993e-03_rb,1.3564e-03_rb,1.5663e-03_rb, &\n     &1.7522e-03_rb,1.9212e-03_rb,1.8928e-03_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &1.5137e-05_rb,6.0362e-04_rb,9.0303e-04_rb,1.1816e-03_rb,1.4350e-03_rb,1.6949e-03_rb, &\n     &1.9391e-03_rb,2.1345e-03_rb,2.1400e-03_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &1.7393e-05_rb,6.5556e-04_rb,9.7760e-04_rb,1.2752e-03_rb,1.5638e-03_rb,1.8142e-03_rb, &\n     &2.0760e-03_rb,2.3419e-03_rb,2.3618e-03_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &2.0190e-05_rb,7.0877e-04_rb,1.0583e-03_rb,1.3832e-03_rb,1.6934e-03_rb,1.9720e-03_rb, &\n     &2.2273e-03_rb,2.4896e-03_rb,2.5682e-03_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &2.3865e-05_rb,7.6246e-04_rb,1.1476e-03_rb,1.5003e-03_rb,1.8325e-03_rb,2.1363e-03_rb, &\n     &2.4216e-03_rb,2.6647e-03_rb,2.7377e-03_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &2.8723e-05_rb,5.8785e-04_rb,8.8654e-04_rb,1.0769e-03_rb,1.2579e-03_rb,1.4310e-03_rb, &\n     &1.5394e-03_rb,1.5987e-03_rb,1.4479e-03_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &3.1951e-05_rb,6.5934e-04_rb,9.7493e-04_rb,1.1672e-03_rb,1.3594e-03_rb,1.5243e-03_rb, &\n     &1.6749e-03_rb,1.7779e-03_rb,1.6535e-03_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &3.6028e-05_rb,7.3349e-04_rb,1.0597e-03_rb,1.2704e-03_rb,1.4675e-03_rb,1.6499e-03_rb, &\n     &1.7965e-03_rb,1.9280e-03_rb,1.8443e-03_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &4.1972e-05_rb,7.9901e-04_rb,1.1534e-03_rb,1.3845e-03_rb,1.5898e-03_rb,1.7819e-03_rb, &\n     &1.9610e-03_rb,2.0652e-03_rb,2.0278e-03_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &4.8818e-05_rb,8.6068e-04_rb,1.2469e-03_rb,1.5029e-03_rb,1.7252e-03_rb,1.9359e-03_rb, &\n     &2.1153e-03_rb,2.2493e-03_rb,2.1613e-03_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &1.2151e-04_rb,7.9394e-04_rb,1.1551e-03_rb,1.4165e-03_rb,1.6142e-03_rb,1.6912e-03_rb, &\n     &1.6602e-03_rb,1.6194e-03_rb,1.1991e-03_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &1.3408e-04_rb,8.8305e-04_rb,1.2970e-03_rb,1.6023e-03_rb,1.7938e-03_rb,1.8665e-03_rb, &\n     &1.8031e-03_rb,1.7264e-03_rb,1.3714e-03_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &1.5040e-04_rb,9.7901e-04_rb,1.4287e-03_rb,1.7867e-03_rb,2.0033e-03_rb,2.0339e-03_rb, &\n     &1.9620e-03_rb,1.8611e-03_rb,1.5284e-03_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &1.6901e-04_rb,1.0844e-03_rb,1.5638e-03_rb,1.9651e-03_rb,2.1812e-03_rb,2.2146e-03_rb, &\n     &2.1459e-03_rb,2.0086e-03_rb,1.6589e-03_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &1.9165e-04_rb,1.1941e-03_rb,1.7106e-03_rb,2.1260e-03_rb,2.3624e-03_rb,2.4142e-03_rb, &\n     &2.3405e-03_rb,2.1792e-03_rb,1.8085e-03_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &5.9868e-04_rb,1.5993e-03_rb,1.9364e-03_rb,2.1129e-03_rb,2.2524e-03_rb,2.3246e-03_rb, &\n     &2.2594e-03_rb,2.0146e-03_rb,1.3568e-03_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &6.6752e-04_rb,1.7567e-03_rb,2.1277e-03_rb,2.3435e-03_rb,2.4977e-03_rb,2.6109e-03_rb, &\n     &2.5681e-03_rb,2.2608e-03_rb,1.5177e-03_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &7.4901e-04_rb,1.9228e-03_rb,2.3324e-03_rb,2.5957e-03_rb,2.7706e-03_rb,2.8949e-03_rb, &\n     &2.8715e-03_rb,2.4740e-03_rb,1.6681e-03_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &8.4268e-04_rb,2.1035e-03_rb,2.5651e-03_rb,2.8675e-03_rb,3.0553e-03_rb,3.1760e-03_rb, &\n     &3.1745e-03_rb,2.7207e-03_rb,1.8575e-03_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &9.4245e-04_rb,2.2879e-03_rb,2.8080e-03_rb,3.1494e-03_rb,3.3540e-03_rb,3.4813e-03_rb, &\n     &3.4487e-03_rb,2.9536e-03_rb,2.0691e-03_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &1.0805e-03_rb,2.1148e-03_rb,2.4220e-03_rb,2.5310e-03_rb,2.5389e-03_rb,2.4625e-03_rb, &\n     &2.3509e-03_rb,2.0401e-03_rb,1.4417e-03_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &1.2248e-03_rb,2.3043e-03_rb,2.6421e-03_rb,2.7805e-03_rb,2.8051e-03_rb,2.7290e-03_rb, &\n     &2.6298e-03_rb,2.3094e-03_rb,1.6718e-03_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &1.3919e-03_rb,2.5018e-03_rb,2.8694e-03_rb,3.0522e-03_rb,3.0921e-03_rb,3.0140e-03_rb, &\n     &2.9024e-03_rb,2.5763e-03_rb,1.8644e-03_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &1.5591e-03_rb,2.7193e-03_rb,3.1319e-03_rb,3.3417e-03_rb,3.3992e-03_rb,3.3292e-03_rb, &\n     &3.1865e-03_rb,2.8388e-03_rb,2.0955e-03_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &1.7150e-03_rb,2.9473e-03_rb,3.3980e-03_rb,3.6551e-03_rb,3.7158e-03_rb,3.6708e-03_rb, &\n     &3.4907e-03_rb,3.0872e-03_rb,2.3494e-03_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &1.3897e-03_rb,2.3284e-03_rb,2.5562e-03_rb,2.6114e-03_rb,2.5756e-03_rb,2.4579e-03_rb, &\n     &2.2328e-03_rb,1.8907e-03_rb,1.4460e-03_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &1.5697e-03_rb,2.5462e-03_rb,2.7773e-03_rb,2.8739e-03_rb,2.8515e-03_rb,2.7127e-03_rb, &\n     &2.4702e-03_rb,2.1317e-03_rb,1.6710e-03_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &1.7564e-03_rb,2.7736e-03_rb,3.0368e-03_rb,3.1575e-03_rb,3.1336e-03_rb,2.9932e-03_rb, &\n     &2.7316e-03_rb,2.3689e-03_rb,1.9165e-03_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &1.9373e-03_rb,3.0028e-03_rb,3.3026e-03_rb,3.4473e-03_rb,3.4197e-03_rb,3.2885e-03_rb, &\n     &3.0105e-03_rb,2.5975e-03_rb,2.1734e-03_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &2.1103e-03_rb,3.2861e-03_rb,3.6126e-03_rb,3.7579e-03_rb,3.7472e-03_rb,3.5983e-03_rb, &\n     &3.3137e-03_rb,2.8243e-03_rb,2.4241e-03_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &1.4034e-03_rb,2.2073e-03_rb,2.3423e-03_rb,2.3940e-03_rb,2.3352e-03_rb,2.2289e-03_rb, &\n     &1.9861e-03_rb,1.6453e-03_rb,1.3641e-03_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &1.5468e-03_rb,2.3993e-03_rb,2.5715e-03_rb,2.6353e-03_rb,2.5905e-03_rb,2.4689e-03_rb, &\n     &2.2035e-03_rb,1.8516e-03_rb,1.5595e-03_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &1.7054e-03_rb,2.6002e-03_rb,2.8041e-03_rb,2.9001e-03_rb,2.8726e-03_rb,2.7020e-03_rb, &\n     &2.4437e-03_rb,2.0505e-03_rb,1.7798e-03_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &1.8746e-03_rb,2.8344e-03_rb,3.0758e-03_rb,3.1886e-03_rb,3.1543e-03_rb,2.9591e-03_rb, &\n     &2.7010e-03_rb,2.2473e-03_rb,2.0185e-03_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &2.0493e-03_rb,3.1290e-03_rb,3.3711e-03_rb,3.5047e-03_rb,3.4626e-03_rb,3.2529e-03_rb, &\n     &2.9617e-03_rb,2.4466e-03_rb,2.2855e-03_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &2.7288e-06_rb,2.0772e-03_rb,4.1339e-03_rb,6.3040e-03_rb,8.6169e-03_rb,1.1216e-02_rb, &\n     &1.4425e-02_rb,1.9774e-02_rb,1.7219e-02_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &3.1343e-06_rb,2.2547e-03_rb,4.4747e-03_rb,6.8269e-03_rb,9.3305e-03_rb,1.2134e-02_rb, &\n     &1.5662e-02_rb,2.1511e-02_rb,1.8646e-02_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &3.5230e-06_rb,2.4421e-03_rb,4.8659e-03_rb,7.3919e-03_rb,1.0064e-02_rb,1.3080e-02_rb, &\n     &1.6864e-02_rb,2.3200e-02_rb,2.0105e-02_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &3.8970e-06_rb,2.6162e-03_rb,5.2335e-03_rb,7.9722e-03_rb,1.0895e-02_rb,1.4129e-02_rb, &\n     &1.8093e-02_rb,2.4994e-02_rb,2.1780e-02_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &4.2153e-06_rb,2.7842e-03_rb,5.5880e-03_rb,8.5221e-03_rb,1.1648e-02_rb,1.5136e-02_rb, &\n     &1.9474e-02_rb,2.6742e-02_rb,2.3280e-02_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &3.8170e-06_rb,1.7299e-03_rb,3.3770e-03_rb,5.0561e-03_rb,6.8488e-03_rb,8.8137e-03_rb, &\n     &1.1142e-02_rb,1.4709e-02_rb,1.3674e-02_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &4.3252e-06_rb,1.8890e-03_rb,3.6509e-03_rb,5.4769e-03_rb,7.4269e-03_rb,9.5439e-03_rb, &\n     &1.2081e-02_rb,1.6033e-02_rb,1.4831e-02_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &4.7646e-06_rb,2.0435e-03_rb,3.9774e-03_rb,5.9664e-03_rb,8.0622e-03_rb,1.0295e-02_rb, &\n     &1.3026e-02_rb,1.7373e-02_rb,1.6093e-02_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &5.2162e-06_rb,2.1898e-03_rb,4.2814e-03_rb,6.4462e-03_rb,8.7251e-03_rb,1.1197e-02_rb, &\n     &1.4093e-02_rb,1.8642e-02_rb,1.7418e-02_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &5.6571e-06_rb,2.3346e-03_rb,4.5674e-03_rb,6.8936e-03_rb,9.3452e-03_rb,1.2004e-02_rb, &\n     &1.5146e-02_rb,2.0072e-02_rb,1.8662e-02_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &6.7841e-06_rb,1.4874e-03_rb,2.7805e-03_rb,4.0760e-03_rb,5.3909e-03_rb,6.7517e-03_rb, &\n     &8.3542e-03_rb,1.0487e-02_rb,1.0633e-02_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &7.5652e-06_rb,1.6242e-03_rb,3.0372e-03_rb,4.4125e-03_rb,5.8428e-03_rb,7.3572e-03_rb, &\n     &9.0599e-03_rb,1.1418e-02_rb,1.1564e-02_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &8.3338e-06_rb,1.7491e-03_rb,3.3027e-03_rb,4.8269e-03_rb,6.3750e-03_rb,7.9902e-03_rb, &\n     &9.8070e-03_rb,1.2345e-02_rb,1.2611e-02_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &9.1322e-06_rb,1.8750e-03_rb,3.5479e-03_rb,5.2057e-03_rb,6.8969e-03_rb,8.6842e-03_rb, &\n     &1.0693e-02_rb,1.3305e-02_rb,1.3678e-02_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &9.9531e-06_rb,2.0097e-03_rb,3.7981e-03_rb,5.5735e-03_rb,7.4004e-03_rb,9.3447e-03_rb, &\n     &1.1509e-02_rb,1.4423e-02_rb,1.4706e-02_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &1.2103e-05_rb,1.3043e-03_rb,2.3537e-03_rb,3.3772e-03_rb,4.3942e-03_rb,5.3862e-03_rb, &\n     &6.4402e-03_rb,7.7504e-03_rb,8.3034e-03_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &1.3453e-05_rb,1.4203e-03_rb,2.5925e-03_rb,3.7016e-03_rb,4.7682e-03_rb,5.8654e-03_rb, &\n     &7.0102e-03_rb,8.4347e-03_rb,9.0709e-03_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &1.4828e-05_rb,1.5367e-03_rb,2.8071e-03_rb,4.0356e-03_rb,5.2345e-03_rb,6.4096e-03_rb, &\n     &7.5937e-03_rb,9.1611e-03_rb,9.8978e-03_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &1.6265e-05_rb,1.6502e-03_rb,3.0181e-03_rb,4.3485e-03_rb,5.6510e-03_rb,6.9455e-03_rb, &\n     &8.2885e-03_rb,9.9540e-03_rb,1.0767e-02_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &1.7755e-05_rb,1.7615e-03_rb,3.2390e-03_rb,4.6692e-03_rb,6.0695e-03_rb,7.4667e-03_rb, &\n     &8.9542e-03_rb,1.0781e-02_rb,1.1635e-02_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &2.0332e-05_rb,1.1698e-03_rb,2.0394e-03_rb,2.8422e-03_rb,3.6398e-03_rb,4.4106e-03_rb, &\n     &5.1682e-03_rb,5.9629e-03_rb,6.5029e-03_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &2.2530e-05_rb,1.2736e-03_rb,2.2339e-03_rb,3.1431e-03_rb,3.9975e-03_rb,4.8072e-03_rb, &\n     &5.6451e-03_rb,6.5119e-03_rb,7.1285e-03_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &2.4796e-05_rb,1.3790e-03_rb,2.4265e-03_rb,3.4174e-03_rb,4.3749e-03_rb,5.2936e-03_rb, &\n     &6.1677e-03_rb,7.0807e-03_rb,7.7613e-03_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &2.7075e-05_rb,1.4796e-03_rb,2.6222e-03_rb,3.6840e-03_rb,4.7300e-03_rb,5.7397e-03_rb, &\n     &6.7237e-03_rb,7.7301e-03_rb,8.5090e-03_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &2.9544e-05_rb,1.5786e-03_rb,2.8146e-03_rb,3.9658e-03_rb,5.0797e-03_rb,6.1834e-03_rb, &\n     &7.2517e-03_rb,8.3791e-03_rb,9.2155e-03_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &3.1599e-05_rb,1.0623e-03_rb,1.7784e-03_rb,2.4227e-03_rb,3.0276e-03_rb,3.6296e-03_rb, &\n     &4.1838e-03_rb,4.7343e-03_rb,5.0477e-03_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &3.5232e-05_rb,1.1598e-03_rb,1.9531e-03_rb,2.6761e-03_rb,3.3625e-03_rb,3.9768e-03_rb, &\n     &4.5866e-03_rb,5.2016e-03_rb,5.5671e-03_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &3.8902e-05_rb,1.2546e-03_rb,2.1314e-03_rb,2.9272e-03_rb,3.6836e-03_rb,4.3880e-03_rb, &\n     &5.0585e-03_rb,5.6644e-03_rb,6.0941e-03_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &4.2647e-05_rb,1.3467e-03_rb,2.3051e-03_rb,3.1735e-03_rb,3.9922e-03_rb,4.7680e-03_rb, &\n     &5.5151e-03_rb,6.2191e-03_rb,6.7036e-03_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &4.6653e-05_rb,1.4422e-03_rb,2.4729e-03_rb,3.4216e-03_rb,4.3101e-03_rb,5.1401e-03_rb, &\n     &5.9675e-03_rb,6.7430e-03_rb,7.2989e-03_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &5.0846e-05_rb,1.0315e-03_rb,1.6111e-03_rb,2.1236e-03_rb,2.5799e-03_rb,3.0310e-03_rb, &\n     &3.4624e-03_rb,3.8172e-03_rb,3.8938e-03_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &5.6601e-05_rb,1.1149e-03_rb,1.7798e-03_rb,2.3658e-03_rb,2.8898e-03_rb,3.3716e-03_rb, &\n     &3.7952e-03_rb,4.1967e-03_rb,4.3621e-03_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &6.2823e-05_rb,1.2046e-03_rb,1.9431e-03_rb,2.5998e-03_rb,3.1765e-03_rb,3.7177e-03_rb, &\n     &4.2137e-03_rb,4.5955e-03_rb,4.7978e-03_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &6.9611e-05_rb,1.2957e-03_rb,2.0957e-03_rb,2.8201e-03_rb,3.4636e-03_rb,4.0605e-03_rb, &\n     &4.6007e-03_rb,5.0741e-03_rb,5.2639e-03_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &7.6939e-05_rb,1.3859e-03_rb,2.2478e-03_rb,3.0375e-03_rb,3.7523e-03_rb,4.4027e-03_rb, &\n     &4.9784e-03_rb,5.5148e-03_rb,5.7724e-03_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &9.6301e-05_rb,1.1719e-03_rb,1.6543e-03_rb,2.0770e-03_rb,2.3972e-03_rb,2.6733e-03_rb, &\n     &2.9412e-03_rb,3.1694e-03_rb,3.0111e-03_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &1.0686e-04_rb,1.2764e-03_rb,1.7930e-03_rb,2.2808e-03_rb,2.6778e-03_rb,3.0239e-03_rb, &\n     &3.3001e-03_rb,3.5015e-03_rb,3.3999e-03_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &1.1947e-04_rb,1.3739e-03_rb,1.9473e-03_rb,2.4712e-03_rb,2.9582e-03_rb,3.3516e-03_rb, &\n     &3.6623e-03_rb,3.8834e-03_rb,3.7468e-03_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &1.3232e-04_rb,1.4765e-03_rb,2.1012e-03_rb,2.6685e-03_rb,3.2209e-03_rb,3.6672e-03_rb, &\n     &4.0113e-03_rb,4.2720e-03_rb,4.1080e-03_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &1.4706e-04_rb,1.5789e-03_rb,2.2554e-03_rb,2.8711e-03_rb,3.4655e-03_rb,3.9725e-03_rb, &\n     &4.3795e-03_rb,4.6534e-03_rb,4.5441e-03_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &3.5361e-04_rb,1.7799e-03_rb,2.5051e-03_rb,2.9026e-03_rb,3.0684e-03_rb,3.1720e-03_rb, &\n     &3.1736e-03_rb,2.9481e-03_rb,2.3479e-03_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &3.8911e-04_rb,1.9917e-03_rb,2.7818e-03_rb,3.1870e-03_rb,3.3554e-03_rb,3.4634e-03_rb, &\n     &3.5258e-03_rb,3.3674e-03_rb,2.6687e-03_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &4.2895e-04_rb,2.2031e-03_rb,3.0511e-03_rb,3.4571e-03_rb,3.6423e-03_rb,3.7656e-03_rb, &\n     &3.8544e-03_rb,3.7669e-03_rb,2.9800e-03_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &4.7521e-04_rb,2.4131e-03_rb,3.3032e-03_rb,3.7275e-03_rb,3.9589e-03_rb,4.0895e-03_rb, &\n     &4.1693e-03_rb,4.1455e-03_rb,3.3334e-03_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &5.2696e-04_rb,2.6212e-03_rb,3.5469e-03_rb,4.0100e-03_rb,4.2674e-03_rb,4.4062e-03_rb, &\n     &4.4862e-03_rb,4.5098e-03_rb,3.6774e-03_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &1.5564e-03_rb,3.2260e-03_rb,4.0223e-03_rb,4.5990e-03_rb,4.8864e-03_rb,4.9553e-03_rb, &\n     &4.6372e-03_rb,3.8115e-03_rb,2.4163e-03_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &1.6655e-03_rb,3.5530e-03_rb,4.4984e-03_rb,5.1615e-03_rb,5.5140e-03_rb,5.5636e-03_rb, &\n     &5.1458e-03_rb,4.1627e-03_rb,2.8169e-03_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &1.7970e-03_rb,3.9283e-03_rb,4.9975e-03_rb,5.7194e-03_rb,6.1431e-03_rb,6.1500e-03_rb, &\n     &5.6336e-03_rb,4.5688e-03_rb,3.2157e-03_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &1.9389e-03_rb,4.3419e-03_rb,5.5082e-03_rb,6.3036e-03_rb,6.7602e-03_rb,6.7061e-03_rb, &\n     &6.1219e-03_rb,4.9831e-03_rb,3.5478e-03_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &2.1200e-03_rb,4.8101e-03_rb,6.0597e-03_rb,6.9046e-03_rb,7.3538e-03_rb,7.2522e-03_rb, &\n     &6.6229e-03_rb,5.4082e-03_rb,3.8617e-03_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &2.5844e-03_rb,4.2072e-03_rb,4.7201e-03_rb,5.1141e-03_rb,5.3078e-03_rb,5.2931e-03_rb, &\n     &4.9397e-03_rb,3.9983e-03_rb,2.6464e-03_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &2.7239e-03_rb,4.5852e-03_rb,5.1921e-03_rb,5.6631e-03_rb,5.9270e-03_rb,5.9381e-03_rb, &\n     &5.5459e-03_rb,4.4351e-03_rb,2.9283e-03_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &2.8937e-03_rb,4.9994e-03_rb,5.7378e-03_rb,6.2452e-03_rb,6.5647e-03_rb,6.5969e-03_rb, &\n     &6.1297e-03_rb,4.8694e-03_rb,3.2879e-03_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &3.0973e-03_rb,5.4803e-03_rb,6.2977e-03_rb,6.8750e-03_rb,7.2241e-03_rb,7.2627e-03_rb, &\n     &6.7036e-03_rb,5.3184e-03_rb,3.6746e-03_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &3.3444e-03_rb,6.0139e-03_rb,6.9682e-03_rb,7.5496e-03_rb,7.9438e-03_rb,7.9183e-03_rb, &\n     &7.2786e-03_rb,5.7800e-03_rb,4.1120e-03_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &3.1142e-03_rb,4.6509e-03_rb,5.0639e-03_rb,5.2099e-03_rb,5.2596e-03_rb,5.1306e-03_rb, &\n     &4.7167e-03_rb,3.8189e-03_rb,2.7150e-03_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &3.2756e-03_rb,5.0359e-03_rb,5.5390e-03_rb,5.7321e-03_rb,5.8154e-03_rb,5.7214e-03_rb, &\n     &5.2745e-03_rb,4.2400e-03_rb,3.0513e-03_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &3.4985e-03_rb,5.4685e-03_rb,6.0590e-03_rb,6.2917e-03_rb,6.4404e-03_rb,6.3170e-03_rb, &\n     &5.8354e-03_rb,4.6512e-03_rb,3.3763e-03_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &3.7766e-03_rb,5.9630e-03_rb,6.6546e-03_rb,6.9419e-03_rb,7.0961e-03_rb,6.9336e-03_rb, &\n     &6.4037e-03_rb,5.0749e-03_rb,3.7160e-03_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &4.1085e-03_rb,6.5232e-03_rb,7.2797e-03_rb,7.6482e-03_rb,7.7587e-03_rb,7.5770e-03_rb, &\n     &6.9583e-03_rb,5.5150e-03_rb,4.0847e-03_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &2.9969e-03_rb,4.3888e-03_rb,4.7684e-03_rb,4.8307e-03_rb,4.7938e-03_rb,4.5847e-03_rb, &\n     &4.1916e-03_rb,3.3359e-03_rb,2.6072e-03_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &3.2153e-03_rb,4.7897e-03_rb,5.2331e-03_rb,5.3333e-03_rb,5.2913e-03_rb,5.1054e-03_rb, &\n     &4.6633e-03_rb,3.6830e-03_rb,2.9306e-03_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &3.4754e-03_rb,5.2096e-03_rb,5.7373e-03_rb,5.8606e-03_rb,5.8296e-03_rb,5.6492e-03_rb, &\n     &5.1331e-03_rb,4.0274e-03_rb,3.2891e-03_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &3.7596e-03_rb,5.6812e-03_rb,6.2772e-03_rb,6.4413e-03_rb,6.4105e-03_rb,6.2095e-03_rb, &\n     &5.6055e-03_rb,4.3924e-03_rb,3.6856e-03_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &4.1250e-03_rb,6.2069e-03_rb,6.8482e-03_rb,7.0531e-03_rb,7.0243e-03_rb,6.7656e-03_rb, &\n     &6.0849e-03_rb,4.7766e-03_rb,4.1519e-03_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &8.6000e-06_rb,4.4651e-03_rb,9.0097e-03_rb,1.3704e-02_rb,1.8645e-02_rb,2.4046e-02_rb, &\n     &3.0633e-02_rb,4.1152e-02_rb,3.7281e-02_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &9.1677e-06_rb,4.8343e-03_rb,9.7595e-03_rb,1.4853e-02_rb,2.0235e-02_rb,2.6158e-02_rb, &\n     &3.3249e-02_rb,4.4739e-02_rb,4.0461e-02_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &9.7617e-06_rb,5.2064e-03_rb,1.0520e-02_rb,1.6024e-02_rb,2.1831e-02_rb,2.8229e-02_rb, &\n     &3.6006e-02_rb,4.8415e-02_rb,4.3651e-02_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &1.0395e-05_rb,5.5866e-03_rb,1.1290e-02_rb,1.7191e-02_rb,2.3426e-02_rb,3.0307e-02_rb, &\n     &3.8717e-02_rb,5.2240e-02_rb,4.6842e-02_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &1.1075e-05_rb,5.9593e-03_rb,1.2050e-02_rb,1.8360e-02_rb,2.5043e-02_rb,3.2426e-02_rb, &\n     &4.1434e-02_rb,5.5912e-02_rb,5.0074e-02_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &1.1648e-05_rb,3.7355e-03_rb,7.3892e-03_rb,1.1190e-02_rb,1.5132e-02_rb,1.9317e-02_rb, &\n     &2.4213e-02_rb,3.1544e-02_rb,3.0250e-02_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &1.2445e-05_rb,4.0410e-03_rb,8.0302e-03_rb,1.2160e-02_rb,1.6448e-02_rb,2.1055e-02_rb, &\n     &2.6369e-02_rb,3.4311e-02_rb,3.2880e-02_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &1.3310e-05_rb,4.3542e-03_rb,8.6703e-03_rb,1.3133e-02_rb,1.7778e-02_rb,2.2773e-02_rb, &\n     &2.8564e-02_rb,3.7228e-02_rb,3.5538e-02_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &1.4232e-05_rb,4.6616e-03_rb,9.3074e-03_rb,1.4103e-02_rb,1.9095e-02_rb,2.4467e-02_rb, &\n     &3.0730e-02_rb,4.0202e-02_rb,3.8172e-02_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &1.5231e-05_rb,4.9691e-03_rb,9.9386e-03_rb,1.5066e-02_rb,2.0413e-02_rb,2.6167e-02_rb, &\n     &3.2915e-02_rb,4.3077e-02_rb,4.0807e-02_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &2.0796e-05_rb,3.1636e-03_rb,6.0427e-03_rb,8.9479e-03_rb,1.1951e-02_rb,1.5111e-02_rb, &\n     &1.8532e-02_rb,2.3072e-02_rb,2.3870e-02_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &2.2285e-05_rb,3.4357e-03_rb,6.5684e-03_rb,9.7449e-03_rb,1.3046e-02_rb,1.6505e-02_rb, &\n     &2.0281e-02_rb,2.5200e-02_rb,2.6059e-02_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &2.3921e-05_rb,3.7148e-03_rb,7.1066e-03_rb,1.0556e-02_rb,1.4151e-02_rb,1.7911e-02_rb, &\n     &2.2018e-02_rb,2.7457e-02_rb,2.8268e-02_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &2.5678e-05_rb,3.9815e-03_rb,7.6234e-03_rb,1.1355e-02_rb,1.5233e-02_rb,1.9276e-02_rb, &\n     &2.3703e-02_rb,2.9635e-02_rb,3.0431e-02_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &2.7604e-05_rb,4.2441e-03_rb,8.1373e-03_rb,1.2146e-02_rb,1.6312e-02_rb,2.0656e-02_rb, &\n     &2.5417e-02_rb,3.1780e-02_rb,3.2590e-02_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &3.7548e-05_rb,2.7525e-03_rb,5.0829e-03_rb,7.3519e-03_rb,9.5921e-03_rb,1.1880e-02_rb, &\n     &1.4330e-02_rb,1.7270e-02_rb,1.8770e-02_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &4.0479e-05_rb,3.0018e-03_rb,5.5477e-03_rb,8.0335e-03_rb,1.0500e-02_rb,1.3017e-02_rb, &\n     &1.5741e-02_rb,1.8989e-02_rb,2.0592e-02_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &4.3632e-05_rb,3.2358e-03_rb,6.0288e-03_rb,8.7218e-03_rb,1.1388e-02_rb,1.4152e-02_rb, &\n     &1.7154e-02_rb,2.0724e-02_rb,2.2417e-02_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &4.6956e-05_rb,3.4641e-03_rb,6.4839e-03_rb,9.3953e-03_rb,1.2286e-02_rb,1.5294e-02_rb, &\n     &1.8543e-02_rb,2.2416e-02_rb,2.4245e-02_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &5.0658e-05_rb,3.6946e-03_rb,6.9352e-03_rb,1.0060e-02_rb,1.3165e-02_rb,1.6424e-02_rb, &\n     &1.9935e-02_rb,2.4115e-02_rb,2.6056e-02_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &6.1528e-05_rb,2.4644e-03_rb,4.3512e-03_rb,6.1626e-03_rb,7.9327e-03_rb,9.6496e-03_rb, &\n     &1.1347e-02_rb,1.3264e-02_rb,1.4745e-02_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &6.6793e-05_rb,2.6844e-03_rb,4.7746e-03_rb,6.7632e-03_rb,8.7202e-03_rb,1.0626e-02_rb, &\n     &1.2508e-02_rb,1.4649e-02_rb,1.6279e-02_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &7.2459e-05_rb,2.8961e-03_rb,5.1774e-03_rb,7.3853e-03_rb,9.5105e-03_rb,1.1570e-02_rb, &\n     &1.3632e-02_rb,1.6051e-02_rb,1.7802e-02_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &7.8727e-05_rb,3.1045e-03_rb,5.5659e-03_rb,7.9693e-03_rb,1.0288e-02_rb,1.2541e-02_rb, &\n     &1.4785e-02_rb,1.7438e-02_rb,1.9338e-02_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &8.5530e-05_rb,3.3182e-03_rb,5.9543e-03_rb,8.5528e-03_rb,1.1059e-02_rb,1.3485e-02_rb, &\n     &1.5922e-02_rb,1.8829e-02_rb,2.0873e-02_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &9.4265e-05_rb,2.2301e-03_rb,3.8046e-03_rb,5.2488e-03_rb,6.6170e-03_rb,7.9289e-03_rb, &\n     &9.1950e-03_rb,1.0423e-02_rb,1.1518e-02_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &1.0266e-04_rb,2.4246e-03_rb,4.1792e-03_rb,5.7800e-03_rb,7.2894e-03_rb,8.7747e-03_rb, &\n     &1.0200e-02_rb,1.1548e-02_rb,1.2780e-02_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &1.1200e-04_rb,2.6239e-03_rb,4.5381e-03_rb,6.2992e-03_rb,7.9916e-03_rb,9.6188e-03_rb, &\n     &1.1174e-02_rb,1.2683e-02_rb,1.4059e-02_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &1.2224e-04_rb,2.8287e-03_rb,4.8898e-03_rb,6.8010e-03_rb,8.6582e-03_rb,1.0462e-02_rb, &\n     &1.2176e-02_rb,1.3803e-02_rb,1.5334e-02_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &1.3337e-04_rb,3.0366e-03_rb,5.2437e-03_rb,7.3027e-03_rb,9.3153e-03_rb,1.1279e-02_rb, &\n     &1.3144e-02_rb,1.4949e-02_rb,1.6628e-02_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &1.5263e-04_rb,2.1146e-03_rb,3.4378e-03_rb,4.6052e-03_rb,5.6815e-03_rb,6.6787e-03_rb, &\n     &7.5592e-03_rb,8.3902e-03_rb,8.9861e-03_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &1.6683e-04_rb,2.3125e-03_rb,3.7648e-03_rb,5.0866e-03_rb,6.2982e-03_rb,7.4001e-03_rb, &\n     &8.4314e-03_rb,9.3717e-03_rb,1.0001e-02_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &1.8246e-04_rb,2.5152e-03_rb,4.0947e-03_rb,5.5502e-03_rb,6.9009e-03_rb,8.1426e-03_rb, &\n     &9.2748e-03_rb,1.0344e-02_rb,1.1085e-02_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &1.9965e-04_rb,2.7190e-03_rb,4.4394e-03_rb,6.0162e-03_rb,7.4822e-03_rb,8.8463e-03_rb, &\n     &1.0151e-02_rb,1.1321e-02_rb,1.2163e-02_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &2.1839e-04_rb,2.9201e-03_rb,4.7890e-03_rb,6.4854e-03_rb,8.0589e-03_rb,9.5473e-03_rb, &\n     &1.0985e-02_rb,1.2296e-02_rb,1.3266e-02_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &2.9912e-04_rb,2.3311e-03_rb,3.4065e-03_rb,4.3529e-03_rb,5.1991e-03_rb,5.9115e-03_rb, &\n     &6.5345e-03_rb,6.9536e-03_rb,6.9673e-03_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &3.2667e-04_rb,2.5198e-03_rb,3.7444e-03_rb,4.8113e-03_rb,5.7475e-03_rb,6.5852e-03_rb, &\n     &7.2722e-03_rb,7.8027e-03_rb,7.8100e-03_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &3.5783e-04_rb,2.7045e-03_rb,4.0852e-03_rb,5.2736e-03_rb,6.2947e-03_rb,7.2359e-03_rb, &\n     &8.0488e-03_rb,8.6314e-03_rb,8.7294e-03_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &3.9253e-04_rb,2.8930e-03_rb,4.4286e-03_rb,5.7246e-03_rb,6.8467e-03_rb,7.8891e-03_rb, &\n     &8.7826e-03_rb,9.4970e-03_rb,9.6421e-03_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &4.3012e-04_rb,3.0887e-03_rb,4.7690e-03_rb,6.1815e-03_rb,7.4286e-03_rb,8.5468e-03_rb, &\n     &9.5146e-03_rb,1.0319e-02_rb,1.0565e-02_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &1.0976e-03_rb,4.1506e-03_rb,5.1147e-03_rb,5.7794e-03_rb,6.2915e-03_rb,6.5755e-03_rb, &\n     &6.7173e-03_rb,6.5721e-03_rb,5.2619e-03_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &1.2019e-03_rb,4.4814e-03_rb,5.5166e-03_rb,6.2823e-03_rb,6.8818e-03_rb,7.2627e-03_rb, &\n     &7.4725e-03_rb,7.3662e-03_rb,5.9464e-03_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &1.3207e-03_rb,4.7927e-03_rb,5.9242e-03_rb,6.7576e-03_rb,7.4599e-03_rb,7.9614e-03_rb, &\n     &8.2442e-03_rb,8.1477e-03_rb,6.6764e-03_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &1.4520e-03_rb,5.0989e-03_rb,6.3402e-03_rb,7.2519e-03_rb,8.0196e-03_rb,8.6608e-03_rb, &\n     &9.0083e-03_rb,8.9373e-03_rb,7.4095e-03_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &1.5966e-03_rb,5.4241e-03_rb,6.7693e-03_rb,7.7581e-03_rb,8.6262e-03_rb,9.3645e-03_rb, &\n     &9.7704e-03_rb,9.7289e-03_rb,8.1550e-03_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &4.4394e-03_rb,9.1190e-03_rb,1.0725e-02_rb,1.1220e-02_rb,1.1152e-02_rb,1.0508e-02_rb, &\n     &9.4386e-03_rb,7.8107e-03_rb,4.9143e-03_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &4.8803e-03_rb,1.0187e-02_rb,1.1809e-02_rb,1.2265e-02_rb,1.2072e-02_rb,1.1380e-02_rb, &\n     &1.0318e-02_rb,8.6414e-03_rb,5.6112e-03_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &5.3784e-03_rb,1.1243e-02_rb,1.2866e-02_rb,1.3294e-02_rb,1.2988e-02_rb,1.2282e-02_rb, &\n     &1.1181e-02_rb,9.4518e-03_rb,6.2671e-03_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &5.9406e-03_rb,1.2247e-02_rb,1.3888e-02_rb,1.4276e-02_rb,1.3911e-02_rb,1.3225e-02_rb, &\n     &1.2026e-02_rb,1.0238e-02_rb,6.9421e-03_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &6.5660e-03_rb,1.3194e-02_rb,1.4891e-02_rb,1.5253e-02_rb,1.4902e-02_rb,1.4176e-02_rb, &\n     &1.2864e-02_rb,1.1066e-02_rb,7.6281e-03_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &6.6711e-03_rb,1.1267e-02_rb,1.2748e-02_rb,1.3242e-02_rb,1.2977e-02_rb,1.2030e-02_rb, &\n     &1.0523e-02_rb,8.3002e-03_rb,5.3202e-03_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &7.3092e-03_rb,1.2565e-02_rb,1.4207e-02_rb,1.4653e-02_rb,1.4245e-02_rb,1.3138e-02_rb, &\n     &1.1437e-02_rb,9.1124e-03_rb,6.0956e-03_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &8.0261e-03_rb,1.3900e-02_rb,1.5599e-02_rb,1.6022e-02_rb,1.5510e-02_rb,1.4232e-02_rb, &\n     &1.2399e-02_rb,9.8954e-03_rb,6.7920e-03_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &8.8835e-03_rb,1.5218e-02_rb,1.7018e-02_rb,1.7348e-02_rb,1.6755e-02_rb,1.5328e-02_rb, &\n     &1.3427e-02_rb,1.0676e-02_rb,7.4156e-03_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &9.8592e-03_rb,1.6591e-02_rb,1.8382e-02_rb,1.8693e-02_rb,1.7995e-02_rb,1.6489e-02_rb, &\n     &1.4464e-02_rb,1.1488e-02_rb,8.0687e-03_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &7.8286e-03_rb,1.1844e-02_rb,1.2951e-02_rb,1.3269e-02_rb,1.2819e-02_rb,1.1719e-02_rb, &\n     &1.0146e-02_rb,7.7901e-03_rb,5.3706e-03_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &8.5205e-03_rb,1.3089e-02_rb,1.4355e-02_rb,1.4624e-02_rb,1.4116e-02_rb,1.2895e-02_rb, &\n     &1.1103e-02_rb,8.5730e-03_rb,5.9882e-03_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &9.3309e-03_rb,1.4405e-02_rb,1.5746e-02_rb,1.6010e-02_rb,1.5387e-02_rb,1.4067e-02_rb, &\n     &1.2065e-02_rb,9.3726e-03_rb,6.6686e-03_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &1.0285e-02_rb,1.5780e-02_rb,1.7147e-02_rb,1.7368e-02_rb,1.6677e-02_rb,1.5224e-02_rb, &\n     &1.3058e-02_rb,1.0197e-02_rb,7.3827e-03_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &1.1378e-02_rb,1.7192e-02_rb,1.8621e-02_rb,1.8778e-02_rb,1.8045e-02_rb,1.6433e-02_rb, &\n     &1.4105e-02_rb,1.1017e-02_rb,8.1428e-03_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &7.7075e-03_rb,1.1053e-02_rb,1.1788e-02_rb,1.1798e-02_rb,1.1282e-02_rb,1.0218e-02_rb, &\n     &8.7608e-03_rb,6.6974e-03_rb,4.9774e-03_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &8.3931e-03_rb,1.2074e-02_rb,1.2868e-02_rb,1.2866e-02_rb,1.2320e-02_rb,1.1165e-02_rb, &\n     &9.5984e-03_rb,7.4025e-03_rb,5.6029e-03_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &9.1257e-03_rb,1.3198e-02_rb,1.3994e-02_rb,1.3989e-02_rb,1.3400e-02_rb,1.2194e-02_rb, &\n     &1.0455e-02_rb,8.1317e-03_rb,6.2279e-03_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &9.9594e-03_rb,1.4337e-02_rb,1.5200e-02_rb,1.5161e-02_rb,1.4494e-02_rb,1.3263e-02_rb, &\n     &1.1356e-02_rb,8.8525e-03_rb,6.8478e-03_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &1.0855e-02_rb,1.5527e-02_rb,1.6501e-02_rb,1.6412e-02_rb,1.5661e-02_rb,1.4395e-02_rb, &\n     &1.2355e-02_rb,9.5887e-03_rb,7.3951e-03_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &2.8482e-05_rb,1.1072e-02_rb,2.2376e-02_rb,3.4052e-02_rb,4.6363e-02_rb,5.9888e-02_rb, &\n     &7.6137e-02_rb,1.0147e-01_rb,9.2714e-02_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &2.9459e-05_rb,1.1920e-02_rb,2.4092e-02_rb,3.6662e-02_rb,4.9933e-02_rb,6.4531e-02_rb, &\n     &8.2136e-02_rb,1.0950e-01_rb,9.9856e-02_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &3.0378e-05_rb,1.2748e-02_rb,2.5776e-02_rb,3.9242e-02_rb,5.3450e-02_rb,6.9069e-02_rb, &\n     &8.7941e-02_rb,1.1741e-01_rb,1.0689e-01_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &3.1242e-05_rb,1.3565e-02_rb,2.7429e-02_rb,4.1762e-02_rb,5.6896e-02_rb,7.3556e-02_rb, &\n     &9.3626e-02_rb,1.2500e-01_rb,1.1378e-01_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &3.2096e-05_rb,1.4368e-02_rb,2.9038e-02_rb,4.4226e-02_rb,6.0256e-02_rb,7.7920e-02_rb, &\n     &9.9246e-02_rb,1.3270e-01_rb,1.2050e-01_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &3.8108e-05_rb,9.1980e-03_rb,1.8505e-02_rb,2.8037e-02_rb,3.7923e-02_rb,4.8524e-02_rb, &\n     &6.0800e-02_rb,7.8866e-02_rb,7.5829e-02_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &3.9453e-05_rb,9.9404e-03_rb,2.0012e-02_rb,3.0307e-02_rb,4.0999e-02_rb,5.2467e-02_rb, &\n     &6.5752e-02_rb,8.5496e-02_rb,8.1980e-02_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &4.0728e-05_rb,1.0645e-02_rb,2.1444e-02_rb,3.2483e-02_rb,4.3962e-02_rb,5.6282e-02_rb, &\n     &7.0607e-02_rb,9.1834e-02_rb,8.7906e-02_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &4.1960e-05_rb,1.1349e-02_rb,2.2852e-02_rb,3.4627e-02_rb,4.6872e-02_rb,6.0009e-02_rb, &\n     &7.5320e-02_rb,9.8100e-02_rb,9.3725e-02_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &4.3152e-05_rb,1.2042e-02_rb,2.4257e-02_rb,3.6759e-02_rb,4.9754e-02_rb,6.3714e-02_rb, &\n     &7.9963e-02_rb,1.0426e-01_rb,9.9487e-02_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &6.8682e-05_rb,7.6817e-03_rb,1.5032e-02_rb,2.2610e-02_rb,3.0354e-02_rb,3.8397e-02_rb, &\n     &4.7144e-02_rb,5.8545e-02_rb,6.0680e-02_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &7.1048e-05_rb,8.3077e-03_rb,1.6309e-02_rb,2.4554e-02_rb,3.2973e-02_rb,4.1716e-02_rb, &\n     &5.1249e-02_rb,6.3726e-02_rb,6.5916e-02_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &7.3516e-05_rb,8.8904e-03_rb,1.7519e-02_rb,2.6389e-02_rb,3.5446e-02_rb,4.4862e-02_rb, &\n     &5.5125e-02_rb,6.8637e-02_rb,7.0859e-02_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &7.5927e-05_rb,9.4787e-03_rb,1.8742e-02_rb,2.8235e-02_rb,3.7922e-02_rb,4.7994e-02_rb, &\n     &5.8964e-02_rb,7.3444e-02_rb,7.5806e-02_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &7.8228e-05_rb,1.0059e-02_rb,1.9946e-02_rb,3.0057e-02_rb,4.0372e-02_rb,5.1096e-02_rb, &\n     &6.2816e-02_rb,7.8277e-02_rb,8.0701e-02_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &1.2728e-04_rb,6.6847e-03_rb,1.2528e-02_rb,1.8338e-02_rb,2.4310e-02_rb,3.0521e-02_rb, &\n     &3.7034e-02_rb,4.4629e-02_rb,4.8506e-02_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &1.3229e-04_rb,7.2462e-03_rb,1.3606e-02_rb,1.9949e-02_rb,2.6505e-02_rb,3.3306e-02_rb, &\n     &4.0432e-02_rb,4.8804e-02_rb,5.2931e-02_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &1.3690e-04_rb,7.7950e-03_rb,1.4636e-02_rb,2.1498e-02_rb,2.8618e-02_rb,3.5967e-02_rb, &\n     &4.3669e-02_rb,5.2720e-02_rb,5.7159e-02_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &1.4141e-04_rb,8.3363e-03_rb,1.5650e-02_rb,2.3036e-02_rb,3.0707e-02_rb,3.8607e-02_rb, &\n     &4.6880e-02_rb,5.6623e-02_rb,6.1327e-02_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &1.4572e-04_rb,8.8720e-03_rb,1.6649e-02_rb,2.4570e-02_rb,3.2799e-02_rb,4.1227e-02_rb, &\n     &5.0069e-02_rb,6.0500e-02_rb,6.5502e-02_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &2.1573e-04_rb,5.8827e-03_rb,1.0779e-02_rb,1.5450e-02_rb,1.9971e-02_rb,2.4513e-02_rb, &\n     &2.9346e-02_rb,3.4831e-02_rb,3.8718e-02_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &2.2440e-04_rb,6.4009e-03_rb,1.1752e-02_rb,1.6862e-02_rb,2.1813e-02_rb,2.6822e-02_rb, &\n     &3.2187e-02_rb,3.8239e-02_rb,4.2467e-02_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &2.3312e-04_rb,6.9022e-03_rb,1.2696e-02_rb,1.8213e-02_rb,2.3573e-02_rb,2.9063e-02_rb, &\n     &3.4955e-02_rb,4.1525e-02_rb,4.6111e-02_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &2.4120e-04_rb,7.3983e-03_rb,1.3629e-02_rb,1.9546e-02_rb,2.5293e-02_rb,3.1249e-02_rb, &\n     &3.7630e-02_rb,4.4709e-02_rb,4.9634e-02_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &2.4900e-04_rb,7.8813e-03_rb,1.4548e-02_rb,2.0857e-02_rb,2.7012e-02_rb,3.3451e-02_rb, &\n     &4.0320e-02_rb,4.7915e-02_rb,5.3175e-02_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &3.4036e-04_rb,5.3231e-03_rb,9.2729e-03_rb,1.3061e-02_rb,1.6728e-02_rb,2.0215e-02_rb, &\n     &2.3560e-02_rb,2.7195e-02_rb,3.0556e-02_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &3.5502e-04_rb,5.8134e-03_rb,1.0151e-02_rb,1.4345e-02_rb,1.8389e-02_rb,2.2227e-02_rb, &\n     &2.5905e-02_rb,3.0036e-02_rb,3.3756e-02_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &3.6934e-04_rb,6.2790e-03_rb,1.1006e-02_rb,1.5584e-02_rb,1.9972e-02_rb,2.4157e-02_rb, &\n     &2.8189e-02_rb,3.2811e-02_rb,3.6865e-02_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &3.8386e-04_rb,6.7401e-03_rb,1.1853e-02_rb,1.6807e-02_rb,2.1541e-02_rb,2.6034e-02_rb, &\n     &3.0406e-02_rb,3.5498e-02_rb,3.9873e-02_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &3.9798e-04_rb,7.1899e-03_rb,1.2680e-02_rb,1.7996e-02_rb,2.3081e-02_rb,2.7888e-02_rb, &\n     &3.2622e-02_rb,3.8170e-02_rb,4.2864e-02_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &5.6321e-04_rb,5.0131e-03_rb,8.3197e-03_rb,1.1342e-02_rb,1.4164e-02_rb,1.6877e-02_rb, &\n     &1.9447e-02_rb,2.1713e-02_rb,2.3905e-02_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &5.9016e-04_rb,5.4925e-03_rb,9.1570e-03_rb,1.2482e-02_rb,1.5641e-02_rb,1.8693e-02_rb, &\n     &2.1556e-02_rb,2.4086e-02_rb,2.6629e-02_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &6.1706e-04_rb,5.9641e-03_rb,9.9615e-03_rb,1.3605e-02_rb,1.7087e-02_rb,2.0445e-02_rb, &\n     &2.3593e-02_rb,2.6361e-02_rb,2.9262e-02_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &6.4250e-04_rb,6.4355e-03_rb,1.0740e-02_rb,1.4689e-02_rb,1.8507e-02_rb,2.2162e-02_rb, &\n     &2.5558e-02_rb,2.8565e-02_rb,3.1822e-02_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &6.6706e-04_rb,6.9143e-03_rb,1.1505e-02_rb,1.5753e-02_rb,1.9886e-02_rb,2.3836e-02_rb, &\n     &2.7497e-02_rb,3.0749e-02_rb,3.4313e-02_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &1.1137e-03_rb,5.2798e-03_rb,8.0960e-03_rb,1.0553e-02_rb,1.2781e-02_rb,1.4788e-02_rb, &\n     &1.6508e-02_rb,1.7972e-02_rb,1.8634e-02_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &1.1746e-03_rb,5.8110e-03_rb,8.9215e-03_rb,1.1680e-02_rb,1.4167e-02_rb,1.6394e-02_rb, &\n     &1.8389e-02_rb,2.0091e-02_rb,2.0946e-02_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &1.2333e-03_rb,6.3510e-03_rb,9.7459e-03_rb,1.2786e-02_rb,1.5523e-02_rb,1.7978e-02_rb, &\n     &2.0210e-02_rb,2.2150e-02_rb,2.3198e-02_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &1.2923e-03_rb,6.8806e-03_rb,1.0573e-02_rb,1.3874e-02_rb,1.6833e-02_rb,1.9520e-02_rb, &\n     &2.2008e-02_rb,2.4130e-02_rb,2.5397e-02_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &1.3493e-03_rb,7.4001e-03_rb,1.1421e-02_rb,1.4955e-02_rb,1.8119e-02_rb,2.1028e-02_rb, &\n     &2.3751e-02_rb,2.6082e-02_rb,2.7521e-02_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &4.1652e-03_rb,9.1226e-03_rb,1.1391e-02_rb,1.3127e-02_rb,1.4574e-02_rb,1.5712e-02_rb, &\n     &1.6412e-02_rb,1.6590e-02_rb,1.4324e-02_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &4.4077e-03_rb,9.7658e-03_rb,1.2393e-02_rb,1.4489e-02_rb,1.6135e-02_rb,1.7441e-02_rb, &\n     &1.8307e-02_rb,1.8536e-02_rb,1.6186e-02_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &4.6510e-03_rb,1.0425e-02_rb,1.3450e-02_rb,1.5897e-02_rb,1.7759e-02_rb,1.9177e-02_rb, &\n     &2.0163e-02_rb,2.0445e-02_rb,1.8103e-02_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &4.8932e-03_rb,1.1096e-02_rb,1.4490e-02_rb,1.7265e-02_rb,1.9404e-02_rb,2.0920e-02_rb, &\n     &2.2008e-02_rb,2.2308e-02_rb,1.9978e-02_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &5.1319e-03_rb,1.1758e-02_rb,1.5541e-02_rb,1.8602e-02_rb,2.0988e-02_rb,2.2688e-02_rb, &\n     &2.3851e-02_rb,2.4156e-02_rb,2.1799e-02_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &1.7349e-02_rb,2.4277e-02_rb,2.5467e-02_rb,2.5566e-02_rb,2.4825e-02_rb,2.3373e-02_rb, &\n     &2.1223e-02_rb,1.8524e-02_rb,1.1809e-02_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &1.8441e-02_rb,2.5550e-02_rb,2.7079e-02_rb,2.7402e-02_rb,2.6767e-02_rb,2.5495e-02_rb, &\n     &2.3503e-02_rb,2.0675e-02_rb,1.3556e-02_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &1.9634e-02_rb,2.6955e-02_rb,2.8784e-02_rb,2.9151e-02_rb,2.8790e-02_rb,2.7521e-02_rb, &\n     &2.5774e-02_rb,2.2876e-02_rb,1.5334e-02_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &2.0834e-02_rb,2.8474e-02_rb,3.0492e-02_rb,3.0988e-02_rb,3.0837e-02_rb,2.9673e-02_rb, &\n     &2.8036e-02_rb,2.5100e-02_rb,1.7072e-02_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &2.2004e-02_rb,3.0118e-02_rb,3.2233e-02_rb,3.2923e-02_rb,3.2760e-02_rb,3.1852e-02_rb, &\n     &3.0321e-02_rb,2.7280e-02_rb,1.8710e-02_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &2.5621e-02_rb,3.2655e-02_rb,3.3386e-02_rb,3.2478e-02_rb,3.0535e-02_rb,2.7796e-02_rb, &\n     &2.3855e-02_rb,1.8680e-02_rb,1.0565e-02_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &2.7487e-02_rb,3.4718e-02_rb,3.5449e-02_rb,3.4659e-02_rb,3.2784e-02_rb,2.9958e-02_rb, &\n     &2.6042e-02_rb,2.0737e-02_rb,1.2143e-02_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &2.9493e-02_rb,3.6885e-02_rb,3.7684e-02_rb,3.6984e-02_rb,3.4999e-02_rb,3.2138e-02_rb, &\n     &2.8186e-02_rb,2.2834e-02_rb,1.3640e-02_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &3.1405e-02_rb,3.9361e-02_rb,4.0123e-02_rb,3.9393e-02_rb,3.7354e-02_rb,3.4345e-02_rb, &\n     &3.0182e-02_rb,2.4896e-02_rb,1.5233e-02_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &3.3372e-02_rb,4.1804e-02_rb,4.2639e-02_rb,4.1888e-02_rb,3.9776e-02_rb,3.6559e-02_rb, &\n     &3.2377e-02_rb,2.6934e-02_rb,1.6905e-02_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &2.8107e-02_rb,3.4513e-02_rb,3.4691e-02_rb,3.3440e-02_rb,3.1149e-02_rb,2.8092e-02_rb, &\n     &2.3835e-02_rb,1.7987e-02_rb,9.8223e-03_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &3.0318e-02_rb,3.7007e-02_rb,3.7165e-02_rb,3.5894e-02_rb,3.3524e-02_rb,3.0240e-02_rb, &\n     &2.5840e-02_rb,1.9792e-02_rb,1.1332e-02_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &3.2580e-02_rb,3.9682e-02_rb,3.9790e-02_rb,3.8457e-02_rb,3.5971e-02_rb,3.2486e-02_rb, &\n     &2.7883e-02_rb,2.1561e-02_rb,1.2728e-02_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &3.4838e-02_rb,4.2408e-02_rb,4.2616e-02_rb,4.1228e-02_rb,3.8571e-02_rb,3.4918e-02_rb, &\n     &2.9920e-02_rb,2.3363e-02_rb,1.4318e-02_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &3.7163e-02_rb,4.5231e-02_rb,4.5400e-02_rb,4.4006e-02_rb,4.1203e-02_rb,3.7331e-02_rb, &\n     &3.2004e-02_rb,2.5209e-02_rb,1.5927e-02_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &2.5217e-02_rb,3.0486e-02_rb,3.0548e-02_rb,2.9385e-02_rb,2.7336e-02_rb,2.4524e-02_rb, &\n     &2.0890e-02_rb,1.5756e-02_rb,9.4392e-03_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &2.7202e-02_rb,3.2841e-02_rb,3.2933e-02_rb,3.1772e-02_rb,2.9593e-02_rb,2.6611e-02_rb, &\n     &2.2741e-02_rb,1.7329e-02_rb,1.0602e-02_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &2.9280e-02_rb,3.5351e-02_rb,3.5444e-02_rb,3.4289e-02_rb,3.1993e-02_rb,2.8821e-02_rb, &\n     &2.4603e-02_rb,1.8828e-02_rb,1.1938e-02_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &3.1331e-02_rb,3.7956e-02_rb,3.7975e-02_rb,3.6801e-02_rb,3.4445e-02_rb,3.1086e-02_rb, &\n     &2.6513e-02_rb,2.0428e-02_rb,1.3267e-02_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &3.3613e-02_rb,4.0685e-02_rb,4.0655e-02_rb,3.9388e-02_rb,3.6935e-02_rb,3.3268e-02_rb, &\n     &2.8459e-02_rb,2.2050e-02_rb,1.4574e-02_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &7.0857e-05_rb,3.1247e-02_rb,6.3050e-02_rb,9.5741e-02_rb,1.2991e-01_rb,1.6688e-01_rb, &\n     &2.1008e-01_rb,2.7194e-01_rb,2.5981e-01_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &7.3061e-05_rb,3.3759e-02_rb,6.8122e-02_rb,1.0346e-01_rb,1.4038e-01_rb,1.8030e-01_rb, &\n     &2.2703e-01_rb,2.9445e-01_rb,2.8076e-01_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &7.5439e-05_rb,3.6248e-02_rb,7.3153e-02_rb,1.1109e-01_rb,1.5077e-01_rb,1.9367e-01_rb, &\n     &2.4381e-01_rb,3.1652e-01_rb,3.0153e-01_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &7.7957e-05_rb,3.8675e-02_rb,7.8063e-02_rb,1.1859e-01_rb,1.6099e-01_rb,2.0691e-01_rb, &\n     &2.6053e-01_rb,3.3811e-01_rb,3.2197e-01_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &8.0722e-05_rb,4.1119e-02_rb,8.2986e-02_rb,1.2604e-01_rb,1.7112e-01_rb,2.1995e-01_rb, &\n     &2.7714e-01_rb,3.5946e-01_rb,3.4222e-01_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &9.7224e-05_rb,2.6558e-02_rb,5.3452e-02_rb,8.0855e-02_rb,1.0918e-01_rb,1.3924e-01_rb, &\n     &1.7330e-01_rb,2.2109e-01_rb,2.1834e-01_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &1.0058e-04_rb,2.8759e-02_rb,5.7870e-02_rb,8.7575e-02_rb,1.1827e-01_rb,1.5089e-01_rb, &\n     &1.8793e-01_rb,2.3994e-01_rb,2.3652e-01_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &1.0421e-04_rb,3.0964e-02_rb,6.2308e-02_rb,9.4299e-02_rb,1.2733e-01_rb,1.6243e-01_rb, &\n     &2.0230e-01_rb,2.5862e-01_rb,2.5463e-01_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &1.0798e-04_rb,3.3179e-02_rb,6.6764e-02_rb,1.0101e-01_rb,1.3640e-01_rb,1.7400e-01_rb, &\n     &2.1675e-01_rb,2.7715e-01_rb,2.7277e-01_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &1.1188e-04_rb,3.5361e-02_rb,7.1160e-02_rb,1.0767e-01_rb,1.4545e-01_rb,1.8554e-01_rb, &\n     &2.3113e-01_rb,2.9555e-01_rb,2.9088e-01_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &1.7704e-04_rb,2.1958e-02_rb,4.4006e-02_rb,6.6294e-02_rb,8.8988e-02_rb,1.1245e-01_rb, &\n     &1.3781e-01_rb,1.7014e-01_rb,1.7794e-01_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &1.8401e-04_rb,2.3898e-02_rb,4.7908e-02_rb,7.2164e-02_rb,9.6867e-02_rb,1.2239e-01_rb, &\n     &1.4998e-01_rb,1.8528e-01_rb,1.9370e-01_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &1.9123e-04_rb,2.5882e-02_rb,5.1886e-02_rb,7.8168e-02_rb,1.0491e-01_rb,1.3257e-01_rb, &\n     &1.6241e-01_rb,2.0047e-01_rb,2.0978e-01_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &1.9826e-04_rb,2.7841e-02_rb,5.5828e-02_rb,8.4093e-02_rb,1.1289e-01_rb,1.4266e-01_rb, &\n     &1.7485e-01_rb,2.1582e-01_rb,2.2574e-01_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &2.0558e-04_rb,2.9781e-02_rb,5.9723e-02_rb,8.9997e-02_rb,1.2076e-01_rb,1.5262e-01_rb, &\n     &1.8706e-01_rb,2.3095e-01_rb,2.4148e-01_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &3.2677e-04_rb,1.8554e-02_rb,3.5926e-02_rb,5.3829e-02_rb,7.1995e-02_rb,9.0469e-02_rb, &\n     &1.0973e-01_rb,1.3198e-01_rb,1.4393e-01_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &3.3998e-04_rb,2.0214e-02_rb,3.9351e-02_rb,5.9051e-02_rb,7.8970e-02_rb,9.9220e-02_rb, &\n     &1.2030e-01_rb,1.4461e-01_rb,1.5787e-01_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &3.5423e-04_rb,2.1886e-02_rb,4.2819e-02_rb,6.4313e-02_rb,8.6016e-02_rb,1.0809e-01_rb, &\n     &1.3108e-01_rb,1.5763e-01_rb,1.7196e-01_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &3.6836e-04_rb,2.3526e-02_rb,4.6236e-02_rb,6.9481e-02_rb,9.2916e-02_rb,1.1677e-01_rb, &\n     &1.4164e-01_rb,1.7039e-01_rb,1.8576e-01_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &3.8269e-04_rb,2.5159e-02_rb,4.9646e-02_rb,7.4614e-02_rb,9.9776e-02_rb,1.2541e-01_rb, &\n     &1.5213e-01_rb,1.8307e-01_rb,1.9947e-01_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &5.5618e-04_rb,1.6693e-02_rb,3.0352e-02_rb,4.4004e-02_rb,5.8213e-02_rb,7.2865e-02_rb, &\n     &8.7904e-02_rb,1.0425e-01_rb,1.1619e-01_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &5.8090e-04_rb,1.8251e-02_rb,3.3255e-02_rb,4.8452e-02_rb,6.4257e-02_rb,8.0492e-02_rb, &\n     &9.7115e-02_rb,1.1513e-01_rb,1.2836e-01_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &6.0567e-04_rb,1.9782e-02_rb,3.6119e-02_rb,5.2854e-02_rb,7.0252e-02_rb,8.8045e-02_rb, &\n     &1.0624e-01_rb,1.2602e-01_rb,1.4037e-01_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &6.3036e-04_rb,2.1279e-02_rb,3.8977e-02_rb,5.7257e-02_rb,7.6243e-02_rb,9.5550e-02_rb, &\n     &1.1529e-01_rb,1.3680e-01_rb,1.5235e-01_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &6.5503e-04_rb,2.2767e-02_rb,4.1832e-02_rb,6.1655e-02_rb,8.2195e-02_rb,1.0302e-01_rb, &\n     &1.2434e-01_rb,1.4756e-01_rb,1.6424e-01_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &8.8779e-04_rb,1.5219e-02_rb,2.6847e-02_rb,3.7621e-02_rb,4.8063e-02_rb,5.8817e-02_rb, &\n     &7.0265e-02_rb,8.2696e-02_rb,9.3190e-02_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &9.2874e-04_rb,1.6673e-02_rb,2.9554e-02_rb,4.1458e-02_rb,5.3049e-02_rb,6.5160e-02_rb, &\n     &7.8074e-02_rb,9.1921e-02_rb,1.0355e-01_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &9.6950e-04_rb,1.8111e-02_rb,3.2190e-02_rb,4.5211e-02_rb,5.8015e-02_rb,7.1500e-02_rb, &\n     &8.5838e-02_rb,1.0107e-01_rb,1.1382e-01_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &1.0101e-03_rb,1.9522e-02_rb,3.4803e-02_rb,4.8905e-02_rb,6.3015e-02_rb,7.7875e-02_rb, &\n     &9.3602e-02_rb,1.1021e-01_rb,1.2414e-01_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &1.0515e-03_rb,2.0916e-02_rb,3.7389e-02_rb,5.2547e-02_rb,6.7966e-02_rb,8.4205e-02_rb, &\n     &1.0130e-01_rb,1.1932e-01_rb,1.3433e-01_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &1.4977e-03_rb,1.4733e-02_rb,2.4381e-02_rb,3.3428e-02_rb,4.1931e-02_rb,4.9753e-02_rb, &\n     &5.7173e-02_rb,6.5580e-02_rb,7.4312e-02_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &1.5637e-03_rb,1.6075e-02_rb,2.6857e-02_rb,3.6980e-02_rb,4.6449e-02_rb,5.5152e-02_rb, &\n     &6.3551e-02_rb,7.3261e-02_rb,8.3066e-02_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &1.6297e-03_rb,1.7399e-02_rb,2.9305e-02_rb,4.0484e-02_rb,5.0904e-02_rb,6.0470e-02_rb, &\n     &6.9956e-02_rb,8.1009e-02_rb,9.1840e-02_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &1.7004e-03_rb,1.8688e-02_rb,3.1747e-02_rb,4.3982e-02_rb,5.5347e-02_rb,6.5760e-02_rb, &\n     &7.6435e-02_rb,8.8798e-02_rb,1.0066e-01_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &1.7747e-03_rb,1.9942e-02_rb,3.4156e-02_rb,4.7424e-02_rb,5.9706e-02_rb,7.0996e-02_rb, &\n     &8.2872e-02_rb,9.6510e-02_rb,1.0938e-01_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &3.0289e-03_rb,1.6187e-02_rb,2.4623e-02_rb,3.1800e-02_rb,3.8382e-02_rb,4.4473e-02_rb, &\n     &4.9956e-02_rb,5.4111e-02_rb,5.8932e-02_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &3.1588e-03_rb,1.7601e-02_rb,2.6972e-02_rb,3.5067e-02_rb,4.2580e-02_rb,4.9539e-02_rb, &\n     &5.5733e-02_rb,6.0374e-02_rb,6.6309e-02_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &3.2918e-03_rb,1.8992e-02_rb,2.9294e-02_rb,3.8315e-02_rb,4.6735e-02_rb,5.4548e-02_rb, &\n     &6.1452e-02_rb,6.6677e-02_rb,7.3699e-02_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &3.4281e-03_rb,2.0362e-02_rb,3.1558e-02_rb,4.1571e-02_rb,5.0908e-02_rb,5.9537e-02_rb, &\n     &6.7138e-02_rb,7.3015e-02_rb,8.1106e-02_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &3.5753e-03_rb,2.1737e-02_rb,3.3774e-02_rb,4.4733e-02_rb,5.4993e-02_rb,6.4441e-02_rb, &\n     &7.2719e-02_rb,7.9338e-02_rb,8.8474e-02_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &1.1613e-02_rb,2.6600e-02_rb,3.4830e-02_rb,4.1045e-02_rb,4.5758e-02_rb,4.9187e-02_rb, &\n     &5.0957e-02_rb,5.0881e-02_rb,4.6332e-02_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &1.2035e-02_rb,2.8837e-02_rb,3.7970e-02_rb,4.4834e-02_rb,5.0301e-02_rb,5.4274e-02_rb, &\n     &5.6564e-02_rb,5.6979e-02_rb,5.2710e-02_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &1.2460e-02_rb,3.1118e-02_rb,4.1014e-02_rb,4.8606e-02_rb,5.4716e-02_rb,5.9241e-02_rb, &\n     &6.2128e-02_rb,6.3036e-02_rb,5.8975e-02_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &1.2980e-02_rb,3.3463e-02_rb,4.4127e-02_rb,5.2378e-02_rb,5.9008e-02_rb,6.4138e-02_rb, &\n     &6.7667e-02_rb,6.9075e-02_rb,6.5274e-02_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &1.3559e-02_rb,3.5809e-02_rb,4.7263e-02_rb,5.6212e-02_rb,6.3302e-02_rb,6.8912e-02_rb, &\n     &7.3069e-02_rb,7.5010e-02_rb,7.1590e-02_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &4.9669e-02_rb,6.5649e-02_rb,7.1116e-02_rb,7.3534e-02_rb,7.3825e-02_rb,7.2083e-02_rb, &\n     &6.7844e-02_rb,5.9498e-02_rb,3.3788e-02_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &5.1505e-02_rb,7.0624e-02_rb,7.6814e-02_rb,7.9826e-02_rb,8.0618e-02_rb,7.8892e-02_rb, &\n     &7.4439e-02_rb,6.5949e-02_rb,3.8529e-02_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &5.3297e-02_rb,7.5384e-02_rb,8.2789e-02_rb,8.6542e-02_rb,8.7369e-02_rb,8.5820e-02_rb, &\n     &8.1089e-02_rb,7.2258e-02_rb,4.3360e-02_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &5.5068e-02_rb,8.0008e-02_rb,8.8749e-02_rb,9.3221e-02_rb,9.4169e-02_rb,9.2692e-02_rb, &\n     &8.7784e-02_rb,7.8437e-02_rb,4.8014e-02_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &5.7734e-02_rb,8.4667e-02_rb,9.4556e-02_rb,9.9634e-02_rb,1.0118e-01_rb,9.9703e-02_rb, &\n     &9.4571e-02_rb,8.4495e-02_rb,5.2667e-02_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &7.6448e-02_rb,9.0381e-02_rb,9.1555e-02_rb,9.0047e-02_rb,8.6717e-02_rb,8.1217e-02_rb, &\n     &7.3241e-02_rb,6.1179e-02_rb,3.1726e-02_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &7.9612e-02_rb,9.5621e-02_rb,9.8574e-02_rb,9.7505e-02_rb,9.4314e-02_rb,8.8768e-02_rb, &\n     &8.0204e-02_rb,6.7360e-02_rb,3.6181e-02_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &8.2652e-02_rb,1.0183e-01_rb,1.0547e-01_rb,1.0483e-01_rb,1.0201e-01_rb,9.6508e-02_rb, &\n     &8.7273e-02_rb,7.3474e-02_rb,4.0817e-02_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &8.5862e-02_rb,1.0806e-01_rb,1.1212e-01_rb,1.1216e-01_rb,1.0950e-01_rb,1.0402e-01_rb, &\n     &9.4626e-02_rb,7.9735e-02_rb,4.5328e-02_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &8.9572e-02_rb,1.1434e-01_rb,1.1896e-01_rb,1.1939e-01_rb,1.1678e-01_rb,1.1141e-01_rb, &\n     &1.0160e-01_rb,8.6030e-02_rb,4.9522e-02_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &8.7861e-02_rb,9.9993e-02_rb,9.9171e-02_rb,9.4628e-02_rb,8.8704e-02_rb,8.0579e-02_rb, &\n     &7.0917e-02_rb,5.7333e-02_rb,2.8393e-02_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &9.1432e-02_rb,1.0608e-01_rb,1.0583e-01_rb,1.0218e-01_rb,9.6300e-02_rb,8.8064e-02_rb, &\n     &7.7816e-02_rb,6.3024e-02_rb,3.2578e-02_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &9.5110e-02_rb,1.1196e-01_rb,1.1325e-01_rb,1.0996e-01_rb,1.0369e-01_rb,9.5361e-02_rb, &\n     &8.4644e-02_rb,6.8902e-02_rb,3.7335e-02_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &9.9318e-02_rb,1.1859e-01_rb,1.2042e-01_rb,1.1748e-01_rb,1.1108e-01_rb,1.0241e-01_rb, &\n     &9.1344e-02_rb,7.4779e-02_rb,4.1207e-02_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &1.0395e-01_rb,1.2551e-01_rb,1.2774e-01_rb,1.2502e-01_rb,1.1865e-01_rb,1.0948e-01_rb, &\n     &9.7810e-02_rb,8.0483e-02_rb,4.4886e-02_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &7.9847e-02_rb,9.1714e-02_rb,9.0958e-02_rb,8.6422e-02_rb,8.0456e-02_rb,7.2533e-02_rb, &\n     &6.2189e-02_rb,4.9649e-02_rb,2.4638e-02_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &8.3442e-02_rb,9.7407e-02_rb,9.6872e-02_rb,9.3129e-02_rb,8.7376e-02_rb,7.8985e-02_rb, &\n     &6.8360e-02_rb,5.4702e-02_rb,2.8608e-02_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &8.7437e-02_rb,1.0293e-01_rb,1.0345e-01_rb,9.9852e-02_rb,9.3864e-02_rb,8.5454e-02_rb, &\n     &7.4382e-02_rb,5.9885e-02_rb,3.2171e-02_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &9.2235e-02_rb,1.0932e-01_rb,1.1033e-01_rb,1.0673e-01_rb,1.0043e-01_rb,9.1575e-02_rb, &\n     &8.0229e-02_rb,6.4806e-02_rb,3.5846e-02_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &9.7358e-02_rb,1.1603e-01_rb,1.1725e-01_rb,1.1373e-01_rb,1.0722e-01_rb,9.7942e-02_rb, &\n     &8.5906e-02_rb,6.9573e-02_rb,3.9453e-02_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &2.3734e-04_rb,1.2635e-01_rb,2.5378e-01_rb,3.8280e-01_rb,5.1449e-01_rb,6.5095e-01_rb, &\n     &7.9709e-01_rb,9.7059e-01_rb,1.0290e+00_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &2.4162e-04_rb,1.3562e-01_rb,2.7235e-01_rb,4.1078e-01_rb,5.5198e-01_rb,6.9838e-01_rb, &\n     &8.5534e-01_rb,1.0400e+00_rb,1.1040e+00_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &2.4599e-04_rb,1.4459e-01_rb,2.9042e-01_rb,4.3810e-01_rb,5.8884e-01_rb,7.4499e-01_rb, &\n     &9.1233e-01_rb,1.1085e+00_rb,1.1777e+00_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &2.5041e-04_rb,1.5330e-01_rb,3.0793e-01_rb,4.6450e-01_rb,6.2431e-01_rb,7.9002e-01_rb, &\n     &9.6789e-01_rb,1.1761e+00_rb,1.2486e+00_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &2.5474e-04_rb,1.6182e-01_rb,3.2498e-01_rb,4.9034e-01_rb,6.5899e-01_rb,8.3368e-01_rb, &\n     &1.0214e+00_rb,1.2421e+00_rb,1.3180e+00_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &3.4870e-04_rb,1.1450e-01_rb,2.2975e-01_rb,3.4621e-01_rb,4.6468e-01_rb,5.8691e-01_rb, &\n     &7.1765e-01_rb,8.7423e-01_rb,9.2933e-01_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &3.5536e-04_rb,1.2334e-01_rb,2.4755e-01_rb,3.7300e-01_rb,5.0064e-01_rb,6.3232e-01_rb, &\n     &7.7280e-01_rb,9.4059e-01_rb,1.0013e+00_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &3.6217e-04_rb,1.3183e-01_rb,2.6460e-01_rb,3.9876e-01_rb,5.3531e-01_rb,6.7635e-01_rb, &\n     &8.2730e-01_rb,1.0064e+00_rb,1.0706e+00_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &3.6933e-04_rb,1.4017e-01_rb,2.8129e-01_rb,4.2395e-01_rb,5.6909e-01_rb,7.1898e-01_rb, &\n     &8.7939e-01_rb,1.0712e+00_rb,1.1382e+00_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &3.7836e-04_rb,1.4828e-01_rb,2.9766e-01_rb,4.4860e-01_rb,6.0234e-01_rb,7.6096e-01_rb, &\n     &9.3060e-01_rb,1.1332e+00_rb,1.2047e+00_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &6.8597e-04_rb,1.0077e-01_rb,2.0189e-01_rb,3.0366e-01_rb,4.0641e-01_rb,5.1122e-01_rb, &\n     &6.2085e-01_rb,7.4738e-01_rb,8.1281e-01_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &6.9976e-04_rb,1.0900e-01_rb,2.1840e-01_rb,3.2848e-01_rb,4.3972e-01_rb,5.5316e-01_rb, &\n     &6.7192e-01_rb,8.0915e-01_rb,8.7943e-01_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &7.1420e-04_rb,1.1699e-01_rb,2.3444e-01_rb,3.5259e-01_rb,4.7192e-01_rb,5.9381e-01_rb, &\n     &7.2140e-01_rb,8.6946e-01_rb,9.4382e-01_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &7.3229e-04_rb,1.2483e-01_rb,2.5014e-01_rb,3.7620e-01_rb,5.0367e-01_rb,6.3374e-01_rb, &\n     &7.7001e-01_rb,9.2785e-01_rb,1.0073e+00_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &7.5049e-04_rb,1.3237e-01_rb,2.6526e-01_rb,3.9901e-01_rb,5.3417e-01_rb,6.7225e-01_rb, &\n     &8.1699e-01_rb,9.8549e-01_rb,1.0683e+00_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &1.3742e-03_rb,8.7179e-02_rb,1.7451e-01_rb,2.6209e-01_rb,3.5019e-01_rb,4.3920e-01_rb, &\n     &5.3064e-01_rb,6.3091e-01_rb,7.0034e-01_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &1.4034e-03_rb,9.4872e-02_rb,1.8987e-01_rb,2.8522e-01_rb,3.8105e-01_rb,4.7796e-01_rb, &\n     &5.7741e-01_rb,6.8650e-01_rb,7.6206e-01_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &1.4371e-03_rb,1.0231e-01_rb,2.0478e-01_rb,3.0758e-01_rb,4.1096e-01_rb,5.1550e-01_rb, &\n     &6.2287e-01_rb,7.4083e-01_rb,8.2187e-01_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &1.4753e-03_rb,1.0953e-01_rb,2.1924e-01_rb,3.2932e-01_rb,4.4000e-01_rb,5.5196e-01_rb, &\n     &6.6692e-01_rb,7.9351e-01_rb,8.7995e-01_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &1.5185e-03_rb,1.1661e-01_rb,2.3342e-01_rb,3.5060e-01_rb,4.6845e-01_rb,5.8764e-01_rb, &\n     &7.1008e-01_rb,8.4502e-01_rb,9.3684e-01_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &2.5355e-03_rb,7.5685e-02_rb,1.4908e-01_rb,2.2375e-01_rb,2.9863e-01_rb,3.7400e-01_rb, &\n     &4.5045e-01_rb,5.3139e-01_rb,5.9720e-01_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &2.5953e-03_rb,8.2577e-02_rb,1.6333e-01_rb,2.4515e-01_rb,3.2721e-01_rb,4.0982e-01_rb, &\n     &4.9365e-01_rb,5.8247e-01_rb,6.5435e-01_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &2.6636e-03_rb,8.9208e-02_rb,1.7705e-01_rb,2.6573e-01_rb,3.5473e-01_rb,4.4427e-01_rb, &\n     &5.3522e-01_rb,6.3160e-01_rb,7.0937e-01_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &2.7420e-03_rb,9.5746e-02_rb,1.9046e-01_rb,2.8588e-01_rb,3.8160e-01_rb,4.7792e-01_rb, &\n     &5.7573e-01_rb,6.7936e-01_rb,7.6310e-01_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &2.8238e-03_rb,1.0214e-01_rb,2.0360e-01_rb,3.0562e-01_rb,4.0796e-01_rb,5.1095e-01_rb, &\n     &6.1550e-01_rb,7.2630e-01_rb,8.1581e-01_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &4.3605e-03_rb,6.9106e-02_rb,1.2775e-01_rb,1.8881e-01_rb,2.5131e-01_rb,3.1447e-01_rb, &\n     &3.7819e-01_rb,4.4408e-01_rb,5.0252e-01_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &4.4677e-03_rb,7.5202e-02_rb,1.4031e-01_rb,2.0810e-01_rb,2.7735e-01_rb,3.4706e-01_rb, &\n     &4.1739e-01_rb,4.9016e-01_rb,5.5457e-01_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &4.5887e-03_rb,8.1094e-02_rb,1.5254e-01_rb,2.2684e-01_rb,3.0254e-01_rb,3.7858e-01_rb, &\n     &4.5531e-01_rb,5.3473e-01_rb,6.0493e-01_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &4.7247e-03_rb,8.6870e-02_rb,1.6450e-01_rb,2.4527e-01_rb,3.2719e-01_rb,4.0945e-01_rb, &\n     &4.9240e-01_rb,5.7834e-01_rb,6.5421e-01_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &4.8692e-03_rb,9.2597e-02_rb,1.7638e-01_rb,2.6357e-01_rb,3.5163e-01_rb,4.4001e-01_rb, &\n     &5.2913e-01_rb,6.2153e-01_rb,7.0308e-01_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &7.8126e-03_rb,6.9794e-02_rb,1.1632e-01_rb,1.6292e-01_rb,2.1140e-01_rb,2.6176e-01_rb, &\n     &3.1398e-01_rb,3.6765e-01_rb,4.1782e-01_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &8.0155e-03_rb,7.6059e-02_rb,1.2742e-01_rb,1.7989e-01_rb,2.3439e-01_rb,2.9098e-01_rb, &\n     &3.4941e-01_rb,4.0917e-01_rb,4.6495e-01_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &8.2416e-03_rb,8.1970e-02_rb,1.3813e-01_rb,1.9625e-01_rb,2.5659e-01_rb,3.1926e-01_rb, &\n     &3.8354e-01_rb,4.4917e-01_rb,5.1030e-01_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &8.4921e-03_rb,8.7603e-02_rb,1.4873e-01_rb,2.1252e-01_rb,2.7865e-01_rb,3.4736e-01_rb, &\n     &4.1730e-01_rb,4.8866e-01_rb,5.5524e-01_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &8.7515e-03_rb,9.3044e-02_rb,1.5925e-01_rb,2.2867e-01_rb,3.0064e-01_rb,3.7532e-01_rb, &\n     &4.5091e-01_rb,5.2808e-01_rb,5.9993e-01_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &1.6603e-02_rb,7.8794e-02_rb,1.2181e-01_rb,1.5872e-01_rb,1.9167e-01_rb,2.2528e-01_rb, &\n     &2.6122e-01_rb,3.0128e-01_rb,3.4340e-01_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &1.7055e-02_rb,8.5849e-02_rb,1.3372e-01_rb,1.7446e-01_rb,2.1153e-01_rb,2.5044e-01_rb, &\n     &2.9195e-01_rb,3.3805e-01_rb,3.8527e-01_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &1.7594e-02_rb,9.2738e-02_rb,1.4493e-01_rb,1.8895e-01_rb,2.3080e-01_rb,2.7486e-01_rb, &\n     &3.2173e-01_rb,3.7362e-01_rb,4.2584e-01_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &1.8162e-02_rb,9.9290e-02_rb,1.5571e-01_rb,2.0324e-01_rb,2.5013e-01_rb,2.9946e-01_rb, &\n     &3.5175e-01_rb,4.0935e-01_rb,4.6655e-01_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &1.8749e-02_rb,1.0557e-01_rb,1.6622e-01_rb,2.1745e-01_rb,2.6934e-01_rb,3.2386e-01_rb, &\n     &3.8166e-01_rb,4.4484e-01_rb,5.0696e-01_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &6.5840e-02_rb,1.3860e-01_rb,1.7838e-01_rb,2.0998e-01_rb,2.3508e-01_rb,2.5392e-01_rb, &\n     &2.6499e-01_rb,2.6488e-01_rb,2.7801e-01_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &6.7872e-02_rb,1.4849e-01_rb,1.9371e-01_rb,2.2975e-01_rb,2.5869e-01_rb,2.8072e-01_rb, &\n     &2.9363e-01_rb,2.9601e-01_rb,3.1493e-01_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &7.0225e-02_rb,1.5836e-01_rb,2.0886e-01_rb,2.4918e-01_rb,2.8159e-01_rb,3.0644e-01_rb, &\n     &3.2072e-01_rb,3.2657e-01_rb,3.5112e-01_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &7.2560e-02_rb,1.6804e-01_rb,2.2356e-01_rb,2.6776e-01_rb,3.0359e-01_rb,3.3128e-01_rb, &\n     &3.4695e-01_rb,3.5732e-01_rb,3.8745e-01_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &7.5125e-02_rb,1.7750e-01_rb,2.3755e-01_rb,2.8560e-01_rb,3.2501e-01_rb,3.5553e-01_rb, &\n     &3.7247e-01_rb,3.8768e-01_rb,4.2319e-01_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &2.8983e-01_rb,3.6990e-01_rb,4.0037e-01_rb,4.0949e-01_rb,4.0589e-01_rb,3.9081e-01_rb, &\n     &3.6404e-01_rb,3.1914e-01_rb,2.2264e-01_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &2.9917e-01_rb,3.8833e-01_rb,4.2499e-01_rb,4.3869e-01_rb,4.3868e-01_rb,4.2555e-01_rb, &\n     &3.9991e-01_rb,3.5416e-01_rb,2.5485e-01_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &3.0939e-01_rb,4.0713e-01_rb,4.4875e-01_rb,4.6776e-01_rb,4.7103e-01_rb,4.6014e-01_rb, &\n     &4.3525e-01_rb,3.8827e-01_rb,2.8738e-01_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &3.2110e-01_rb,4.2672e-01_rb,4.7284e-01_rb,4.9667e-01_rb,5.0290e-01_rb,4.9348e-01_rb, &\n     &4.6953e-01_rb,4.2184e-01_rb,3.1974e-01_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &3.3272e-01_rb,4.4730e-01_rb,4.9768e-01_rb,5.2532e-01_rb,5.3384e-01_rb,5.2588e-01_rb, &\n     &5.0287e-01_rb,4.5423e-01_rb,3.5166e-01_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &4.4524e-01_rb,5.1679e-01_rb,5.3684e-01_rb,5.3332e-01_rb,5.1092e-01_rb,4.7255e-01_rb, &\n     &4.1877e-01_rb,3.4229e-01_rb,1.8048e-01_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &4.5963e-01_rb,5.4202e-01_rb,5.6658e-01_rb,5.6626e-01_rb,5.4700e-01_rb,5.0983e-01_rb, &\n     &4.5605e-01_rb,3.7725e-01_rb,2.0742e-01_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &4.7588e-01_rb,5.6665e-01_rb,5.9649e-01_rb,5.9968e-01_rb,5.8254e-01_rb,5.4674e-01_rb, &\n     &4.9265e-01_rb,4.1176e-01_rb,2.3443e-01_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &4.9478e-01_rb,5.9201e-01_rb,6.2710e-01_rb,6.3330e-01_rb,6.1823e-01_rb,5.8344e-01_rb, &\n     &5.2842e-01_rb,4.4573e-01_rb,2.6065e-01_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &5.1485e-01_rb,6.2017e-01_rb,6.5811e-01_rb,6.6709e-01_rb,6.5355e-01_rb,6.1972e-01_rb, &\n     &5.6393e-01_rb,4.7838e-01_rb,2.8720e-01_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &5.0543e-01_rb,5.6903e-01_rb,5.8050e-01_rb,5.7018e-01_rb,5.4105e-01_rb,4.9466e-01_rb, &\n     &4.2828e-01_rb,3.3843e-01_rb,1.4652e-01_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &5.2298e-01_rb,5.9603e-01_rb,6.1306e-01_rb,6.0448e-01_rb,5.7710e-01_rb,5.3128e-01_rb, &\n     &4.6400e-01_rb,3.7149e-01_rb,1.6865e-01_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &5.4270e-01_rb,6.2472e-01_rb,6.4493e-01_rb,6.3902e-01_rb,6.1334e-01_rb,5.6783e-01_rb, &\n     &4.9936e-01_rb,4.0428e-01_rb,1.8993e-01_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &5.6576e-01_rb,6.5409e-01_rb,6.7814e-01_rb,6.7406e-01_rb,6.4973e-01_rb,6.0390e-01_rb, &\n     &5.3494e-01_rb,4.3628e-01_rb,2.1164e-01_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &5.9076e-01_rb,6.8665e-01_rb,7.1248e-01_rb,7.0991e-01_rb,6.8560e-01_rb,6.4007e-01_rb, &\n     &5.7053e-01_rb,4.6743e-01_rb,2.3320e-01_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &4.5979e-01_rb,5.1890e-01_rb,5.2855e-01_rb,5.1825e-01_rb,4.9146e-01_rb,4.4960e-01_rb, &\n     &3.8971e-01_rb,3.0598e-01_rb,1.2566e-01_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &4.7640e-01_rb,5.4480e-01_rb,5.5925e-01_rb,5.5059e-01_rb,5.2436e-01_rb,4.8283e-01_rb, &\n     &4.2163e-01_rb,3.3565e-01_rb,1.4550e-01_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &4.9565e-01_rb,5.7250e-01_rb,5.8989e-01_rb,5.8311e-01_rb,5.5799e-01_rb,5.1559e-01_rb, &\n     &4.5382e-01_rb,3.6511e-01_rb,1.6523e-01_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &5.1794e-01_rb,6.0150e-01_rb,6.2192e-01_rb,6.1629e-01_rb,5.9157e-01_rb,5.4908e-01_rb, &\n     &4.8624e-01_rb,3.9414e-01_rb,1.8408e-01_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &5.4127e-01_rb,6.3348e-01_rb,6.5477e-01_rb,6.5028e-01_rb,6.2556e-01_rb,5.8254e-01_rb, &\n     &5.1808e-01_rb,4.2264e-01_rb,2.0283e-01_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &6.5918e-04_rb,3.4888e-01_rb,6.9848e-01_rb,1.0485e+00_rb,1.4002e+00_rb,1.7549e+00_rb, &\n     &2.1190e+00_rb,2.5078e+00_rb,2.8004e+00_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &6.7280e-04_rb,3.7184e-01_rb,7.4416e-01_rb,1.1175e+00_rb,1.4925e+00_rb,1.8689e+00_rb, &\n     &2.2475e+00_rb,2.6390e+00_rb,2.9850e+00_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &6.8523e-04_rb,3.9709e-01_rb,7.9353e-01_rb,1.1893e+00_rb,1.5844e+00_rb,1.9796e+00_rb, &\n     &2.3755e+00_rb,2.7728e+00_rb,3.1689e+00_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &6.9619e-04_rb,4.2236e-01_rb,8.4460e-01_rb,1.2663e+00_rb,1.6869e+00_rb,2.1024e+00_rb, &\n     &2.5075e+00_rb,2.8990e+00_rb,3.3737e+00_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &7.0541e-04_rb,4.4505e-01_rb,8.9002e-01_rb,1.3353e+00_rb,1.7799e+00_rb,2.2235e+00_rb, &\n     &2.6534e+00_rb,3.0275e+00_rb,3.5598e+00_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &1.0168e-03_rb,3.3520e-01_rb,6.7064e-01_rb,1.0063e+00_rb,1.3424e+00_rb,1.6793e+00_rb, &\n     &2.0199e+00_rb,2.3746e+00_rb,2.6847e+00_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &1.0383e-03_rb,3.6090e-01_rb,7.2200e-01_rb,1.0832e+00_rb,1.4445e+00_rb,1.8057e+00_rb, &\n     &2.1681e+00_rb,2.5457e+00_rb,2.8891e+00_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &1.0584e-03_rb,3.8758e-01_rb,7.7508e-01_rb,1.1623e+00_rb,1.5490e+00_rb,1.9350e+00_rb, &\n     &2.3176e+00_rb,2.7064e+00_rb,3.0980e+00_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &1.0746e-03_rb,4.1292e-01_rb,8.2598e-01_rb,1.2389e+00_rb,1.6519e+00_rb,2.0646e+00_rb, &\n     &2.4744e+00_rb,2.8678e+00_rb,3.3037e+00_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &1.0744e-03_rb,4.3717e-01_rb,8.7417e-01_rb,1.3107e+00_rb,1.7471e+00_rb,2.1834e+00_rb, &\n     &2.6192e+00_rb,3.0444e+00_rb,3.4941e+00_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &2.0748e-03_rb,3.1600e-01_rb,6.3217e-01_rb,9.4857e-01_rb,1.2657e+00_rb,1.5838e+00_rb, &\n     &1.9039e+00_rb,2.2287e+00_rb,2.5314e+00_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &2.1217e-03_rb,3.4261e-01_rb,6.8545e-01_rb,1.0284e+00_rb,1.3716e+00_rb,1.7154e+00_rb, &\n     &2.0606e+00_rb,2.4138e+00_rb,2.7432e+00_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &2.1619e-03_rb,3.6999e-01_rb,7.4010e-01_rb,1.1107e+00_rb,1.4817e+00_rb,1.8526e+00_rb, &\n     &2.2240e+00_rb,2.5942e+00_rb,2.9634e+00_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &2.1755e-03_rb,3.9596e-01_rb,7.9208e-01_rb,1.1885e+00_rb,1.5854e+00_rb,1.9831e+00_rb, &\n     &2.3825e+00_rb,2.7842e+00_rb,3.1709e+00_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &2.1880e-03_rb,4.2191e-01_rb,8.4399e-01_rb,1.2664e+00_rb,1.6893e+00_rb,2.1130e+00_rb, &\n     &2.5373e+00_rb,2.9615e+00_rb,3.3787e+00_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &4.2494e-03_rb,2.8992e-01_rb,5.8012e-01_rb,8.7071e-01_rb,1.1620e+00_rb,1.4546e+00_rb, &\n     &1.7505e+00_rb,2.0568e+00_rb,2.3239e+00_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &4.3512e-03_rb,3.1537e-01_rb,6.3099e-01_rb,9.4695e-01_rb,1.2638e+00_rb,1.5819e+00_rb, &\n     &1.9039e+00_rb,2.2390e+00_rb,2.5276e+00_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &4.4136e-03_rb,3.4243e-01_rb,6.8516e-01_rb,1.0282e+00_rb,1.3719e+00_rb,1.7170e+00_rb, &\n     &2.0650e+00_rb,2.4245e+00_rb,2.7438e+00_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &4.4541e-03_rb,3.6913e-01_rb,7.3845e-01_rb,1.1085e+00_rb,1.4792e+00_rb,1.8513e+00_rb, &\n     &2.2276e+00_rb,2.6166e+00_rb,2.9583e+00_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &4.4637e-03_rb,3.9522e-01_rb,7.9055e-01_rb,1.1865e+00_rb,1.5830e+00_rb,1.9815e+00_rb, &\n     &2.3838e+00_rb,2.7994e+00_rb,3.1659e+00_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &7.8944e-03_rb,2.6027e-01_rb,5.2060e-01_rb,7.8129e-01_rb,1.0423e+00_rb,1.3045e+00_rb, &\n     &1.5691e+00_rb,1.8427e+00_rb,2.0845e+00_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &8.0572e-03_rb,2.8413e-01_rb,5.6833e-01_rb,8.5287e-01_rb,1.1378e+00_rb,1.4238e+00_rb, &\n     &1.7119e+00_rb,2.0096e+00_rb,2.2754e+00_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &8.1742e-03_rb,3.1030e-01_rb,6.2054e-01_rb,9.3122e-01_rb,1.2421e+00_rb,1.5541e+00_rb, &\n     &1.8685e+00_rb,2.1911e+00_rb,2.4841e+00_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &8.2414e-03_rb,3.3618e-01_rb,6.7234e-01_rb,1.0088e+00_rb,1.3458e+00_rb,1.6840e+00_rb, &\n     &2.0247e+00_rb,2.3758e+00_rb,2.6915e+00_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &8.3003e-03_rb,3.6135e-01_rb,7.2289e-01_rb,1.0847e+00_rb,1.4472e+00_rb,1.8109e+00_rb, &\n     &2.1782e+00_rb,2.5572e+00_rb,2.8943e+00_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &1.3769e-02_rb,2.2868e-01_rb,4.5729e-01_rb,6.8615e-01_rb,9.1532e-01_rb,1.1447e+00_rb, &\n     &1.3758e+00_rb,1.6126e+00_rb,1.8305e+00_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &1.4077e-02_rb,2.5186e-01_rb,5.0368e-01_rb,7.5558e-01_rb,1.0079e+00_rb,1.2605e+00_rb, &\n     &1.5146e+00_rb,1.7737e+00_rb,2.0155e+00_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &1.4339e-02_rb,2.7680e-01_rb,5.5350e-01_rb,8.3033e-01_rb,1.1075e+00_rb,1.3852e+00_rb, &\n     &1.6642e+00_rb,1.9484e+00_rb,2.2148e+00_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &1.4519e-02_rb,3.0142e-01_rb,6.0270e-01_rb,9.0418e-01_rb,1.2061e+00_rb,1.5083e+00_rb, &\n     &1.8129e+00_rb,2.1232e+00_rb,2.4121e+00_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &1.4692e-02_rb,3.2398e-01_rb,6.4788e-01_rb,9.7210e-01_rb,1.2967e+00_rb,1.6219e+00_rb, &\n     &1.9490e+00_rb,2.2841e+00_rb,2.5932e+00_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &2.5736e-02_rb,2.1730e-01_rb,3.9499e-01_rb,5.9240e-01_rb,7.9003e-01_rb,9.8783e-01_rb, &\n     &1.1864e+00_rb,1.3877e+00_rb,1.5798e+00_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &2.6391e-02_rb,2.3410e-01_rb,4.4100e-01_rb,6.6147e-01_rb,8.8204e-01_rb,1.1029e+00_rb, &\n     &1.3242e+00_rb,1.5482e+00_rb,1.7637e+00_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &2.6951e-02_rb,2.5201e-01_rb,4.8957e-01_rb,7.3433e-01_rb,9.7905e-01_rb,1.2243e+00_rb, &\n     &1.4699e+00_rb,1.7185e+00_rb,1.9578e+00_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &2.7390e-02_rb,2.7020e-01_rb,5.3407e-01_rb,8.0106e-01_rb,1.0682e+00_rb,1.3359e+00_rb, &\n     &1.6042e+00_rb,1.8761e+00_rb,2.1361e+00_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &2.8064e-02_rb,2.8861e-01_rb,5.7611e-01_rb,8.6397e-01_rb,1.1521e+00_rb,1.4408e+00_rb, &\n     &1.7300e+00_rb,2.0229e+00_rb,2.3040e+00_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &5.8578e-02_rb,2.6880e-01_rb,4.0001e-01_rb,5.2061e-01_rb,6.7938e-01_rb,8.4922e-01_rb, &\n     &1.0194e+00_rb,1.1905e+00_rb,1.3581e+00_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &6.0087e-02_rb,2.9139e-01_rb,4.3501e-01_rb,5.7583e-01_rb,7.6491e-01_rb,9.5619e-01_rb, &\n     &1.1477e+00_rb,1.3402e+00_rb,1.5292e+00_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &6.1083e-02_rb,3.1400e-01_rb,4.7010e-01_rb,6.4266e-01_rb,8.5685e-01_rb,1.0710e+00_rb, &\n     &1.2856e+00_rb,1.5014e+00_rb,1.7131e+00_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &6.2072e-02_rb,3.3715e-01_rb,5.0004e-01_rb,7.0498e-01_rb,9.3980e-01_rb,1.1748e+00_rb, &\n     &1.4102e+00_rb,1.6468e+00_rb,1.8789e+00_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &6.3481e-02_rb,3.5691e-01_rb,5.2888e-01_rb,7.6432e-01_rb,1.0191e+00_rb,1.2740e+00_rb, &\n     &1.5290e+00_rb,1.7860e+00_rb,2.0375e+00_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &2.5051e-01_rb,4.8216e-01_rb,6.3956e-01_rb,7.5081e-01_rb,8.3417e-01_rb,8.8639e-01_rb, &\n     &9.0389e-01_rb,1.0106e+00_rb,1.1541e+00_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &2.5603e-01_rb,5.1856e-01_rb,6.9227e-01_rb,8.2007e-01_rb,9.1537e-01_rb,9.7189e-01_rb, &\n     &9.9778e-01_rb,1.1454e+00_rb,1.3083e+00_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &2.6013e-01_rb,5.5198e-01_rb,7.4416e-01_rb,8.8806e-01_rb,9.9547e-01_rb,1.0583e+00_rb, &\n     &1.1091e+00_rb,1.2896e+00_rb,1.4729e+00_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &2.6455e-01_rb,5.8224e-01_rb,7.9653e-01_rb,9.5696e-01_rb,1.0752e+00_rb,1.1310e+00_rb, &\n     &1.2203e+00_rb,1.4235e+00_rb,1.6258e+00_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &2.6779e-01_rb,6.1167e-01_rb,8.4854e-01_rb,1.0208e+00_rb,1.1434e+00_rb,1.1964e+00_rb, &\n     &1.3330e+00_rb,1.5553e+00_rb,1.7761e+00_rb/)\n      kao(:, 1,10,10) = (/ &\n     &1.1877e+00_rb,1.3423e+00_rb,1.4114e+00_rb,1.4638e+00_rb,1.4747e+00_rb,1.4384e+00_rb, &\n     &1.3561e+00_rb,1.1884e+00_rb,9.6724e-01_rb/)\n      kao(:, 2,10,10) = (/ &\n     &1.2130e+00_rb,1.4001e+00_rb,1.4986e+00_rb,1.5677e+00_rb,1.5910e+00_rb,1.5689e+00_rb, &\n     &1.4918e+00_rb,1.3127e+00_rb,1.1039e+00_rb/)\n      kao(:, 3,10,10) = (/ &\n     &1.2346e+00_rb,1.4593e+00_rb,1.5877e+00_rb,1.6627e+00_rb,1.7012e+00_rb,1.6974e+00_rb, &\n     &1.6231e+00_rb,1.4376e+00_rb,1.2384e+00_rb/)\n      kao(:, 4,10,10) = (/ &\n     &1.2516e+00_rb,1.5151e+00_rb,1.6747e+00_rb,1.7501e+00_rb,1.8076e+00_rb,1.8250e+00_rb, &\n     &1.7537e+00_rb,1.5512e+00_rb,1.3735e+00_rb/)\n      kao(:, 5,10,10) = (/ &\n     &1.2661e+00_rb,1.5638e+00_rb,1.7522e+00_rb,1.8374e+00_rb,1.9121e+00_rb,1.9420e+00_rb, &\n     &1.8736e+00_rb,1.6582e+00_rb,1.5128e+00_rb/)\n      kao(:, 1,11,10) = (/ &\n     &1.9480e+00_rb,2.0492e+00_rb,2.0295e+00_rb,1.9735e+00_rb,1.8970e+00_rb,1.7736e+00_rb, &\n     &1.5866e+00_rb,1.3339e+00_rb,8.4829e-01_rb/)\n      kao(:, 2,11,10) = (/ &\n     &1.9908e+00_rb,2.1211e+00_rb,2.1260e+00_rb,2.0949e+00_rb,2.0240e+00_rb,1.9060e+00_rb, &\n     &1.7325e+00_rb,1.4683e+00_rb,9.6828e-01_rb/)\n      kao(:, 3,11,10) = (/ &\n     &2.0285e+00_rb,2.1879e+00_rb,2.2239e+00_rb,2.2116e+00_rb,2.1470e+00_rb,2.0366e+00_rb, &\n     &1.8735e+00_rb,1.6014e+00_rb,1.0930e+00_rb/)\n      kao(:, 4,11,10) = (/ &\n     &2.0556e+00_rb,2.2562e+00_rb,2.3222e+00_rb,2.3233e+00_rb,2.2648e+00_rb,2.1592e+00_rb, &\n     &2.0072e+00_rb,1.7228e+00_rb,1.2296e+00_rb/)\n      kao(:, 5,11,10) = (/ &\n     &2.0825e+00_rb,2.3069e+00_rb,2.4192e+00_rb,2.4269e+00_rb,2.3834e+00_rb,2.2768e+00_rb, &\n     &2.1248e+00_rb,1.8445e+00_rb,1.3568e+00_rb/)\n      kao(:, 1,12,10) = (/ &\n     &2.3362e+00_rb,2.4153e+00_rb,2.3669e+00_rb,2.2577e+00_rb,2.1055e+00_rb,1.9147e+00_rb, &\n     &1.6820e+00_rb,1.3486e+00_rb,7.4407e-01_rb/)\n      kao(:, 2,12,10) = (/ &\n     &2.3893e+00_rb,2.4937e+00_rb,2.4670e+00_rb,2.3773e+00_rb,2.2296e+00_rb,2.0482e+00_rb, &\n     &1.8201e+00_rb,1.4800e+00_rb,8.5242e-01_rb/)\n      kao(:, 3,12,10) = (/ &\n     &2.4357e+00_rb,2.5702e+00_rb,2.5666e+00_rb,2.4887e+00_rb,2.3537e+00_rb,2.1812e+00_rb, &\n     &1.9511e+00_rb,1.6049e+00_rb,9.6662e-01_rb/)\n      kao(:, 4,12,10) = (/ &\n     &2.4652e+00_rb,2.6456e+00_rb,2.6664e+00_rb,2.5981e+00_rb,2.4742e+00_rb,2.3104e+00_rb, &\n     &2.0695e+00_rb,1.7245e+00_rb,1.0828e+00_rb/)\n      kao(:, 5,12,10) = (/ &\n     &2.4945e+00_rb,2.7001e+00_rb,2.7645e+00_rb,2.7014e+00_rb,2.5936e+00_rb,2.4312e+00_rb, &\n     &2.1779e+00_rb,1.8427e+00_rb,1.2015e+00_rb/)\n      kao(:, 1,13,10) = (/ &\n     &2.2054e+00_rb,2.3120e+00_rb,2.2775e+00_rb,2.1807e+00_rb,2.0276e+00_rb,1.8297e+00_rb, &\n     &1.5931e+00_rb,1.2531e+00_rb,5.9202e-01_rb/)\n      kao(:, 2,13,10) = (/ &\n     &2.2559e+00_rb,2.3878e+00_rb,2.3725e+00_rb,2.2888e+00_rb,2.1438e+00_rb,1.9536e+00_rb, &\n     &1.7172e+00_rb,1.3694e+00_rb,6.7488e-01_rb/)\n      kao(:, 3,13,10) = (/ &\n     &2.2951e+00_rb,2.4612e+00_rb,2.4689e+00_rb,2.3923e+00_rb,2.2596e+00_rb,2.0732e+00_rb, &\n     &1.8332e+00_rb,1.4777e+00_rb,7.6019e-01_rb/)\n      kao(:, 4,13,10) = (/ &\n     &2.3235e+00_rb,2.5286e+00_rb,2.5591e+00_rb,2.4947e+00_rb,2.3722e+00_rb,2.1862e+00_rb, &\n     &1.9383e+00_rb,1.5857e+00_rb,8.5248e-01_rb/)\n      kao(:, 5,13,10) = (/ &\n     &2.3616e+00_rb,2.5838e+00_rb,2.6490e+00_rb,2.5951e+00_rb,2.4760e+00_rb,2.2908e+00_rb, &\n     &2.0454e+00_rb,1.6895e+00_rb,9.4490e-01_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &9.3294e-04_rb,5.3309e-01_rb,1.0647e+00_rb,1.5932e+00_rb,2.1160e+00_rb,2.6255e+00_rb, &\n     &3.0986e+00_rb,3.3968e+00_rb,4.2319e+00_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &9.5345e-04_rb,5.6455e-01_rb,1.1277e+00_rb,1.6875e+00_rb,2.2413e+00_rb,2.7825e+00_rb, &\n     &3.2884e+00_rb,3.6383e+00_rb,4.4826e+00_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &9.7241e-04_rb,5.9098e-01_rb,1.1810e+00_rb,1.7692e+00_rb,2.3540e+00_rb,2.9286e+00_rb, &\n     &3.4675e+00_rb,3.8516e+00_rb,4.7080e+00_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &9.8984e-04_rb,6.1800e-01_rb,1.2338e+00_rb,1.8462e+00_rb,2.4536e+00_rb,3.0526e+00_rb, &\n     &3.6266e+00_rb,4.0600e+00_rb,4.9071e+00_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &1.0059e-03_rb,6.4816e-01_rb,1.2933e+00_rb,1.9339e+00_rb,2.5658e+00_rb,3.1822e+00_rb, &\n     &3.7668e+00_rb,4.2510e+00_rb,5.1316e+00_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &1.5074e-03_rb,5.1913e-01_rb,1.0387e+00_rb,1.5585e+00_rb,2.0790e+00_rb,2.5998e+00_rb, &\n     &3.1169e+00_rb,3.5984e+00_rb,4.1578e+00_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &1.5417e-03_rb,5.5254e-01_rb,1.1053e+00_rb,1.6578e+00_rb,2.2101e+00_rb,2.7629e+00_rb, &\n     &3.3129e+00_rb,3.8170e+00_rb,4.4201e+00_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &1.5713e-03_rb,5.8438e-01_rb,1.1685e+00_rb,1.7524e+00_rb,2.3358e+00_rb,2.9174e+00_rb, &\n     &3.4950e+00_rb,4.0242e+00_rb,4.6716e+00_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &1.5983e-03_rb,6.1743e-01_rb,1.2340e+00_rb,1.8490e+00_rb,2.4617e+00_rb,3.0691e+00_rb, &\n     &3.6659e+00_rb,4.2202e+00_rb,4.9233e+00_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &1.6216e-03_rb,6.5216e-01_rb,1.3030e+00_rb,1.9521e+00_rb,2.5969e+00_rb,3.2326e+00_rb, &\n     &3.8472e+00_rb,4.4004e+00_rb,5.1936e+00_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &3.2100e-03_rb,4.8846e-01_rb,9.7712e-01_rb,1.4663e+00_rb,1.9565e+00_rb,2.4483e+00_rb, &\n     &2.9445e+00_rb,3.4602e+00_rb,3.9130e+00_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &3.2832e-03_rb,5.2715e-01_rb,1.0544e+00_rb,1.5820e+00_rb,2.1102e+00_rb,2.6392e+00_rb, &\n     &3.1691e+00_rb,3.7028e+00_rb,4.2204e+00_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &3.3509e-03_rb,5.6319e-01_rb,1.1265e+00_rb,1.6900e+00_rb,2.2533e+00_rb,2.8179e+00_rb, &\n     &3.3838e+00_rb,3.9526e+00_rb,4.5066e+00_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &3.4122e-03_rb,6.0075e-01_rb,1.2012e+00_rb,1.8012e+00_rb,2.4005e+00_rb,2.9988e+00_rb, &\n     &3.5947e+00_rb,4.1839e+00_rb,4.8011e+00_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &3.4694e-03_rb,6.3990e-01_rb,1.2794e+00_rb,1.9184e+00_rb,2.5559e+00_rb,3.1911e+00_rb, &\n     &3.8197e+00_rb,4.4273e+00_rb,5.1119e+00_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &6.8944e-03_rb,4.5524e-01_rb,9.1034e-01_rb,1.3656e+00_rb,1.8210e+00_rb,2.2768e+00_rb, &\n     &2.7339e+00_rb,3.1966e+00_rb,3.6419e+00_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &7.0719e-03_rb,4.9844e-01_rb,9.9694e-01_rb,1.4955e+00_rb,1.9943e+00_rb,2.4932e+00_rb, &\n     &2.9929e+00_rb,3.4921e+00_rb,3.9886e+00_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &7.2326e-03_rb,5.3850e-01_rb,1.0768e+00_rb,1.6152e+00_rb,2.1534e+00_rb,2.6917e+00_rb, &\n     &3.2302e+00_rb,3.7700e+00_rb,4.3067e+00_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &7.3806e-03_rb,5.7980e-01_rb,1.1594e+00_rb,1.7389e+00_rb,2.3180e+00_rb,2.8967e+00_rb, &\n     &3.4739e+00_rb,4.0439e+00_rb,4.6359e+00_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &7.4998e-03_rb,6.1978e-01_rb,1.2395e+00_rb,1.8590e+00_rb,2.4785e+00_rb,3.0979e+00_rb, &\n     &3.7146e+00_rb,4.3244e+00_rb,4.9568e+00_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &1.3442e-02_rb,4.2037e-01_rb,8.4065e-01_rb,1.2612e+00_rb,1.6819e+00_rb,2.1029e+00_rb, &\n     &2.5255e+00_rb,2.9520e+00_rb,3.3637e+00_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &1.3797e-02_rb,4.6626e-01_rb,9.3234e-01_rb,1.3987e+00_rb,1.8650e+00_rb,2.3319e+00_rb, &\n     &2.7996e+00_rb,3.2699e+00_rb,3.7300e+00_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &1.4112e-02_rb,5.0925e-01_rb,1.0185e+00_rb,1.5280e+00_rb,2.0375e+00_rb,2.5478e+00_rb, &\n     &3.0591e+00_rb,3.5748e+00_rb,4.0749e+00_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &1.4385e-02_rb,5.5077e-01_rb,1.1015e+00_rb,1.6526e+00_rb,2.2034e+00_rb,2.7548e+00_rb, &\n     &3.3072e+00_rb,3.8625e+00_rb,4.4066e+00_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &1.4645e-02_rb,5.9271e-01_rb,1.1855e+00_rb,1.7781e+00_rb,2.3710e+00_rb,2.9641e+00_rb, &\n     &3.5574e+00_rb,4.1512e+00_rb,4.7419e+00_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &2.4122e-02_rb,3.8084e-01_rb,7.6147e-01_rb,1.1422e+00_rb,1.5231e+00_rb,1.9045e+00_rb, &\n     &2.2870e+00_rb,2.6730e+00_rb,3.0460e+00_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &2.4797e-02_rb,4.2571e-01_rb,8.5136e-01_rb,1.2771e+00_rb,1.7031e+00_rb,2.1298e+00_rb, &\n     &2.5578e+00_rb,2.9908e+00_rb,3.4060e+00_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &2.5418e-02_rb,4.6778e-01_rb,9.3545e-01_rb,1.4036e+00_rb,1.8720e+00_rb,2.3409e+00_rb, &\n     &2.8115e+00_rb,3.2888e+00_rb,3.7438e+00_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &2.5988e-02_rb,5.1023e-01_rb,1.0205e+00_rb,1.5308e+00_rb,2.0415e+00_rb,2.5527e+00_rb, &\n     &3.0658e+00_rb,3.5842e+00_rb,4.0828e+00_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &2.6439e-02_rb,5.5329e-01_rb,1.1066e+00_rb,1.6600e+00_rb,2.2137e+00_rb,2.7680e+00_rb, &\n     &3.3240e+00_rb,3.8852e+00_rb,4.4272e+00_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &4.4902e-02_rb,3.4110e-01_rb,6.7879e-01_rb,1.0183e+00_rb,1.3577e+00_rb,1.6974e+00_rb, &\n     &2.0380e+00_rb,2.3811e+00_rb,2.7150e+00_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &4.6257e-02_rb,3.7900e-01_rb,7.5783e-01_rb,1.1366e+00_rb,1.5157e+00_rb,1.8951e+00_rb, &\n     &2.2756e+00_rb,2.6593e+00_rb,3.0311e+00_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &4.7417e-02_rb,4.1838e-01_rb,8.3644e-01_rb,1.2549e+00_rb,1.6732e+00_rb,2.0920e+00_rb, &\n     &2.5119e+00_rb,2.9363e+00_rb,3.3461e+00_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &4.8439e-02_rb,4.5979e-01_rb,9.1922e-01_rb,1.3788e+00_rb,1.8387e+00_rb,2.2989e+00_rb, &\n     &2.7602e+00_rb,3.2261e+00_rb,3.6771e+00_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &4.9115e-02_rb,5.0257e-01_rb,1.0048e+00_rb,1.5073e+00_rb,2.0099e+00_rb,2.5129e+00_rb, &\n     &3.0174e+00_rb,3.5268e+00_rb,4.0195e+00_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &9.9346e-02_rb,4.0741e-01_rb,6.1474e-01_rb,8.8954e-01_rb,1.1859e+00_rb,1.4823e+00_rb, &\n     &1.7793e+00_rb,2.0775e+00_rb,2.3709e+00_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &1.0236e-01_rb,4.4079e-01_rb,6.7253e-01_rb,9.9766e-01_rb,1.3301e+00_rb,1.6626e+00_rb, &\n     &1.9955e+00_rb,2.3301e+00_rb,2.6593e+00_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &1.0516e-01_rb,4.6951e-01_rb,7.3794e-01_rb,1.1060e+00_rb,1.4745e+00_rb,1.8432e+00_rb, &\n     &2.2125e+00_rb,2.5835e+00_rb,2.9480e+00_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &1.0772e-01_rb,4.9500e-01_rb,8.1532e-01_rb,1.2227e+00_rb,1.6302e+00_rb,2.0375e+00_rb, &\n     &2.4456e+00_rb,2.8562e+00_rb,3.2595e+00_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &1.0947e-01_rb,5.2130e-01_rb,8.9659e-01_rb,1.3445e+00_rb,1.7925e+00_rb,2.2406e+00_rb, &\n     &2.6897e+00_rb,3.1404e+00_rb,3.5840e+00_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &4.1823e-01_rb,7.9567e-01_rb,1.0382e+00_rb,1.1972e+00_rb,1.2989e+00_rb,1.3526e+00_rb, &\n     &1.5261e+00_rb,1.7800e+00_rb,2.0331e+00_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &4.3170e-01_rb,8.4637e-01_rb,1.1195e+00_rb,1.3007e+00_rb,1.4025e+00_rb,1.4821e+00_rb, &\n     &1.7319e+00_rb,2.0202e+00_rb,2.3074e+00_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &4.4387e-01_rb,8.9320e-01_rb,1.1954e+00_rb,1.3918e+00_rb,1.4965e+00_rb,1.6263e+00_rb, &\n     &1.9385e+00_rb,2.2615e+00_rb,2.5830e+00_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &4.5501e-01_rb,9.4246e-01_rb,1.2607e+00_rb,1.4727e+00_rb,1.5878e+00_rb,1.7989e+00_rb, &\n     &2.1575e+00_rb,2.5169e+00_rb,2.8754e+00_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &4.6515e-01_rb,9.9000e-01_rb,1.3196e+00_rb,1.5528e+00_rb,1.6906e+00_rb,1.9810e+00_rb, &\n     &2.3767e+00_rb,2.7728e+00_rb,3.1676e+00_rb/)\n      kao(:, 1,10,11) = (/ &\n     &1.9805e+00_rb,2.2049e+00_rb,2.3763e+00_rb,2.4479e+00_rb,2.4732e+00_rb,2.4264e+00_rb, &\n     &2.2604e+00_rb,1.8802e+00_rb,1.7493e+00_rb/)\n      kao(:, 2,10,11) = (/ &\n     &2.0472e+00_rb,2.3153e+00_rb,2.5048e+00_rb,2.6141e+00_rb,2.6517e+00_rb,2.6235e+00_rb, &\n     &2.4547e+00_rb,2.0470e+00_rb,2.0043e+00_rb/)\n      kao(:, 3,10,11) = (/ &\n     &2.1094e+00_rb,2.4143e+00_rb,2.6357e+00_rb,2.7700e+00_rb,2.8309e+00_rb,2.7965e+00_rb, &\n     &2.6317e+00_rb,2.2035e+00_rb,2.2660e+00_rb/)\n      kao(:, 4,10,11) = (/ &\n     &2.1647e+00_rb,2.5051e+00_rb,2.7487e+00_rb,2.9276e+00_rb,2.9982e+00_rb,2.9552e+00_rb, &\n     &2.7953e+00_rb,2.3731e+00_rb,2.5329e+00_rb/)\n      kao(:, 5,10,11) = (/ &\n     &2.2155e+00_rb,2.5942e+00_rb,2.8618e+00_rb,3.0775e+00_rb,3.1500e+00_rb,3.1109e+00_rb, &\n     &2.9560e+00_rb,2.5540e+00_rb,2.7905e+00_rb/)\n      kao(:, 1,11,11) = (/ &\n     &3.3272e+00_rb,3.3391e+00_rb,3.4265e+00_rb,3.3299e+00_rb,3.1864e+00_rb,3.0000e+00_rb, &\n     &2.7382e+00_rb,2.2548e+00_rb,1.5937e+00_rb/)\n      kao(:, 2,11,11) = (/ &\n     &3.4245e+00_rb,3.4923e+00_rb,3.5888e+00_rb,3.5207e+00_rb,3.3952e+00_rb,3.2270e+00_rb, &\n     &2.9458e+00_rb,2.4552e+00_rb,1.8248e+00_rb/)\n      kao(:, 3,11,11) = (/ &\n     &3.5147e+00_rb,3.6350e+00_rb,3.7493e+00_rb,3.6979e+00_rb,3.6003e+00_rb,3.4366e+00_rb, &\n     &3.1408e+00_rb,2.6446e+00_rb,2.0543e+00_rb/)\n      kao(:, 4,11,11) = (/ &\n     &3.5973e+00_rb,3.7611e+00_rb,3.8955e+00_rb,3.8697e+00_rb,3.7999e+00_rb,3.6320e+00_rb, &\n     &3.3291e+00_rb,2.8219e+00_rb,2.2769e+00_rb/)\n      kao(:, 5,11,11) = (/ &\n     &3.6658e+00_rb,3.8812e+00_rb,4.0226e+00_rb,4.0479e+00_rb,3.9815e+00_rb,3.8145e+00_rb, &\n     &3.5185e+00_rb,2.9782e+00_rb,2.4861e+00_rb/)\n      kao(:, 1,12,11) = (/ &\n     &4.1187e+00_rb,4.0374e+00_rb,4.0352e+00_rb,3.8356e+00_rb,3.5772e+00_rb,3.2668e+00_rb, &\n     &2.8837e+00_rb,2.3539e+00_rb,1.4349e+00_rb/)\n      kao(:, 2,12,11) = (/ &\n     &4.2212e+00_rb,4.1986e+00_rb,4.2178e+00_rb,4.0426e+00_rb,3.8006e+00_rb,3.4932e+00_rb, &\n     &3.0942e+00_rb,2.5554e+00_rb,1.6369e+00_rb/)\n      kao(:, 3,12,11) = (/ &\n     &4.3153e+00_rb,4.3421e+00_rb,4.3917e+00_rb,4.2429e+00_rb,4.0161e+00_rb,3.6975e+00_rb, &\n     &3.3039e+00_rb,2.7454e+00_rb,1.8396e+00_rb/)\n      kao(:, 4,12,11) = (/ &\n     &4.3996e+00_rb,4.4753e+00_rb,4.5481e+00_rb,4.4345e+00_rb,4.2153e+00_rb,3.8944e+00_rb, &\n     &3.5079e+00_rb,2.9264e+00_rb,2.0403e+00_rb/)\n      kao(:, 5,12,11) = (/ &\n     &4.4754e+00_rb,4.5978e+00_rb,4.6899e+00_rb,4.6220e+00_rb,4.4006e+00_rb,4.0838e+00_rb, &\n     &3.7036e+00_rb,3.0926e+00_rb,2.2349e+00_rb/)\n      kao(:, 1,13,11) = (/ &\n     &4.0592e+00_rb,4.0332e+00_rb,3.9681e+00_rb,3.7590e+00_rb,3.4963e+00_rb,3.1626e+00_rb, &\n     &2.7397e+00_rb,2.2238e+00_rb,1.2732e+00_rb/)\n      kao(:, 2,13,11) = (/ &\n     &4.1472e+00_rb,4.1742e+00_rb,4.1368e+00_rb,3.9606e+00_rb,3.7120e+00_rb,3.3731e+00_rb, &\n     &2.9427e+00_rb,2.4115e+00_rb,1.4537e+00_rb/)\n      kao(:, 3,13,11) = (/ &\n     &4.2292e+00_rb,4.3011e+00_rb,4.2979e+00_rb,4.1507e+00_rb,3.9119e+00_rb,3.5700e+00_rb, &\n     &3.1423e+00_rb,2.5914e+00_rb,1.6282e+00_rb/)\n      kao(:, 4,13,11) = (/ &\n     &4.3001e+00_rb,4.4170e+00_rb,4.4457e+00_rb,4.3341e+00_rb,4.0986e+00_rb,3.7637e+00_rb, &\n     &3.3341e+00_rb,2.7592e+00_rb,1.8128e+00_rb/)\n      kao(:, 5,13,11) = (/ &\n     &4.3627e+00_rb,4.5278e+00_rb,4.5856e+00_rb,4.5011e+00_rb,4.2740e+00_rb,3.9472e+00_rb, &\n     &3.5112e+00_rb,2.9185e+00_rb,1.9901e+00_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &1.2832e-03_rb,7.6911e-01_rb,1.5308e+00_rb,2.2815e+00_rb,3.0131e+00_rb,3.7102e+00_rb, &\n     &4.3339e+00_rb,4.8156e+00_rb,6.0262e+00_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &1.3165e-03_rb,8.3137e-01_rb,1.6545e+00_rb,2.4655e+00_rb,3.2561e+00_rb,4.0092e+00_rb, &\n     &4.6800e+00_rb,5.1382e+00_rb,6.5123e+00_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &1.3465e-03_rb,8.9467e-01_rb,1.7805e+00_rb,2.6534e+00_rb,3.5040e+00_rb,4.3130e+00_rb, &\n     &5.0270e+00_rb,5.5081e+00_rb,7.0080e+00_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &1.3733e-03_rb,9.5420e-01_rb,1.9011e+00_rb,2.8343e+00_rb,3.7449e+00_rb,4.6125e+00_rb, &\n     &5.3804e+00_rb,5.8655e+00_rb,7.4899e+00_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &1.3973e-03_rb,1.0065e+00_rb,2.0056e+00_rb,2.9931e+00_rb,3.9616e+00_rb,4.8908e+00_rb, &\n     &5.7173e+00_rb,6.2206e+00_rb,7.9232e+00_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &2.1567e-03_rb,7.9503e-01_rb,1.5851e+00_rb,2.3675e+00_rb,3.1367e+00_rb,3.8805e+00_rb, &\n     &4.5651e+00_rb,5.0566e+00_rb,6.2733e+00_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &2.2096e-03_rb,8.5765e-01_rb,1.7102e+00_rb,2.5549e+00_rb,3.3862e+00_rb,4.1922e+00_rb, &\n     &4.9361e+00_rb,5.4818e+00_rb,6.7723e+00_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &2.2593e-03_rb,9.2132e-01_rb,1.8371e+00_rb,2.7441e+00_rb,3.6360e+00_rb,4.5001e+00_rb, &\n     &5.3023e+00_rb,5.9092e+00_rb,7.2719e+00_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &2.3029e-03_rb,9.7961e-01_rb,1.9547e+00_rb,2.9227e+00_rb,3.8771e+00_rb,4.8047e+00_rb, &\n     &5.6684e+00_rb,6.3211e+00_rb,7.7542e+00_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &2.3432e-03_rb,1.0294e+00_rb,2.0551e+00_rb,3.0745e+00_rb,4.0831e+00_rb,5.0720e+00_rb, &\n     &6.0082e+00_rb,6.7230e+00_rb,8.1662e+00_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &4.8280e-03_rb,7.9900e-01_rb,1.5962e+00_rb,2.3906e+00_rb,3.1803e+00_rb,3.9604e+00_rb, &\n     &4.7157e+00_rb,5.3732e+00_rb,6.3605e+00_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &4.9522e-03_rb,8.6159e-01_rb,1.7217e+00_rb,2.5790e+00_rb,3.4316e+00_rb,4.2766e+00_rb, &\n     &5.0979e+00_rb,5.8264e+00_rb,6.8633e+00_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &5.0521e-03_rb,9.2450e-01_rb,1.8472e+00_rb,2.7674e+00_rb,3.6829e+00_rb,4.5888e+00_rb, &\n     &5.4724e+00_rb,6.2581e+00_rb,7.3659e+00_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &5.1417e-03_rb,9.8492e-01_rb,1.9684e+00_rb,2.9494e+00_rb,3.9267e+00_rb,4.8950e+00_rb, &\n     &5.8398e+00_rb,6.6855e+00_rb,7.8533e+00_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &5.2128e-03_rb,1.0351e+00_rb,2.0685e+00_rb,3.1013e+00_rb,4.1304e+00_rb,5.1536e+00_rb, &\n     &6.1563e+00_rb,7.0696e+00_rb,8.2608e+00_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &1.0891e-02_rb,7.7727e-01_rb,1.5543e+00_rb,2.3309e+00_rb,3.1067e+00_rb,3.8812e+00_rb, &\n     &4.6512e+00_rb,5.4004e+00_rb,6.2133e+00_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &1.1146e-02_rb,8.4013e-01_rb,1.6801e+00_rb,2.5195e+00_rb,3.3588e+00_rb,4.1965e+00_rb, &\n     &5.0315e+00_rb,5.8522e+00_rb,6.7175e+00_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &1.1369e-02_rb,9.0347e-01_rb,1.8066e+00_rb,2.7094e+00_rb,3.6116e+00_rb,4.5128e+00_rb, &\n     &5.4097e+00_rb,6.2868e+00_rb,7.2231e+00_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &1.1543e-02_rb,9.6345e-01_rb,1.9267e+00_rb,2.8898e+00_rb,3.8526e+00_rb,4.8146e+00_rb, &\n     &5.7741e+00_rb,6.7146e+00_rb,7.7051e+00_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &1.1696e-02_rb,1.0158e+00_rb,2.0314e+00_rb,3.0468e+00_rb,4.0618e+00_rb,5.0772e+00_rb, &\n     &6.0909e+00_rb,7.0982e+00_rb,8.1235e+00_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &2.2302e-02_rb,7.3490e-01_rb,1.4696e+00_rb,2.2046e+00_rb,2.9394e+00_rb,3.6745e+00_rb, &\n     &4.4097e+00_rb,5.1450e+00_rb,5.8787e+00_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &2.2823e-02_rb,7.9768e-01_rb,1.5952e+00_rb,2.3932e+00_rb,3.1913e+00_rb,3.9900e+00_rb, &\n     &4.7899e+00_rb,5.5934e+00_rb,6.3823e+00_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &2.3280e-02_rb,8.5775e-01_rb,1.7153e+00_rb,2.5734e+00_rb,3.4313e+00_rb,4.2902e+00_rb, &\n     &5.1502e+00_rb,6.0153e+00_rb,6.8623e+00_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &2.3683e-02_rb,9.1895e-01_rb,1.8383e+00_rb,2.7574e+00_rb,3.6772e+00_rb,4.5980e+00_rb, &\n     &5.5202e+00_rb,6.4486e+00_rb,7.3542e+00_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &2.3999e-02_rb,9.7537e-01_rb,1.9505e+00_rb,2.9260e+00_rb,3.9018e+00_rb,4.8784e+00_rb, &\n     &5.8576e+00_rb,6.8447e+00_rb,7.8034e+00_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &4.2265e-02_rb,6.7923e-01_rb,1.3583e+00_rb,2.0372e+00_rb,2.7164e+00_rb,3.3965e+00_rb, &\n     &4.0771e+00_rb,4.7611e+00_rb,5.4325e+00_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &4.3312e-02_rb,7.4027e-01_rb,1.4802e+00_rb,2.2203e+00_rb,2.9606e+00_rb,3.7016e+00_rb, &\n     &4.4440e+00_rb,5.1934e+00_rb,5.9209e+00_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &4.4154e-02_rb,8.0193e-01_rb,1.6036e+00_rb,2.4053e+00_rb,3.2071e+00_rb,4.0091e+00_rb, &\n     &4.8130e+00_rb,5.6200e+00_rb,6.4137e+00_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &4.4818e-02_rb,8.6447e-01_rb,1.7287e+00_rb,2.5931e+00_rb,3.4580e+00_rb,4.3234e+00_rb, &\n     &5.1892e+00_rb,6.0606e+00_rb,6.9157e+00_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &4.5427e-02_rb,9.2353e-01_rb,1.8468e+00_rb,2.7701e+00_rb,3.6940e+00_rb,4.6182e+00_rb, &\n     &5.5436e+00_rb,6.4744e+00_rb,7.3877e+00_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &8.2851e-02_rb,6.1813e-01_rb,1.2353e+00_rb,1.8525e+00_rb,2.4701e+00_rb,3.0880e+00_rb, &\n     &3.7064e+00_rb,4.3285e+00_rb,4.9392e+00_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &8.4778e-02_rb,6.8174e-01_rb,1.3624e+00_rb,2.0434e+00_rb,2.7245e+00_rb,3.4060e+00_rb, &\n     &4.0883e+00_rb,4.7735e+00_rb,5.4481e+00_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &8.6620e-02_rb,7.4569e-01_rb,1.4908e+00_rb,2.2359e+00_rb,2.9814e+00_rb,3.7272e+00_rb, &\n     &4.4733e+00_rb,5.2220e+00_rb,5.9623e+00_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &8.8221e-02_rb,8.0972e-01_rb,1.6191e+00_rb,2.4284e+00_rb,3.2380e+00_rb,4.0476e+00_rb, &\n     &4.8581e+00_rb,5.6715e+00_rb,6.4756e+00_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &8.9388e-02_rb,8.6929e-01_rb,1.7383e+00_rb,2.6072e+00_rb,3.4769e+00_rb,4.3464e+00_rb, &\n     &5.2172e+00_rb,6.0912e+00_rb,6.9533e+00_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &1.9209e-01_rb,6.2527e-01_rb,1.1133e+00_rb,1.6689e+00_rb,2.2244e+00_rb,2.7803e+00_rb, &\n     &3.3362e+00_rb,3.8938e+00_rb,4.4464e+00_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &1.9727e-01_rb,6.6108e-01_rb,1.2430e+00_rb,1.8635e+00_rb,2.4844e+00_rb,3.1054e+00_rb, &\n     &3.7267e+00_rb,4.3504e+00_rb,4.9671e+00_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &2.0144e-01_rb,7.0485e-01_rb,1.3718e+00_rb,2.0572e+00_rb,2.7423e+00_rb,3.4280e+00_rb, &\n     &4.1141e+00_rb,4.8012e+00_rb,5.4833e+00_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &2.0484e-01_rb,7.5576e-01_rb,1.4986e+00_rb,2.2473e+00_rb,2.9964e+00_rb,3.7450e+00_rb, &\n     &4.4951e+00_rb,5.2469e+00_rb,5.9915e+00_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &2.0777e-01_rb,8.0793e-01_rb,1.6132e+00_rb,2.4193e+00_rb,3.2252e+00_rb,4.0323e+00_rb, &\n     &4.8391e+00_rb,5.6481e+00_rb,6.4494e+00_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &8.2620e-01_rb,1.3515e+00_rb,1.6396e+00_rb,1.8633e+00_rb,2.0617e+00_rb,2.4827e+00_rb, &\n     &2.9771e+00_rb,3.4729e+00_rb,3.9666e+00_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &8.4850e-01_rb,1.4155e+00_rb,1.7443e+00_rb,1.9664e+00_rb,2.2558e+00_rb,2.7862e+00_rb, &\n     &3.3424e+00_rb,3.8990e+00_rb,4.4541e+00_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &8.6743e-01_rb,1.4840e+00_rb,1.8355e+00_rb,2.0729e+00_rb,2.4805e+00_rb,3.0958e+00_rb, &\n     &3.7138e+00_rb,4.3325e+00_rb,4.9497e+00_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &8.8373e-01_rb,1.5402e+00_rb,1.9288e+00_rb,2.1892e+00_rb,2.7106e+00_rb,3.3871e+00_rb, &\n     &4.0635e+00_rb,4.7407e+00_rb,5.4157e+00_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &8.9622e-01_rb,1.5897e+00_rb,2.0124e+00_rb,2.3107e+00_rb,2.9348e+00_rb,3.6673e+00_rb, &\n     &4.4005e+00_rb,5.1335e+00_rb,5.8643e+00_rb/)\n      kao(:, 1,10,12) = (/ &\n     &3.9173e+00_rb,3.9928e+00_rb,4.3366e+00_rb,4.4280e+00_rb,4.2663e+00_rb,3.9998e+00_rb, &\n     &3.6166e+00_rb,3.1308e+00_rb,3.5126e+00_rb/)\n      kao(:, 2,10,12) = (/ &\n     &4.0212e+00_rb,4.1687e+00_rb,4.5593e+00_rb,4.6368e+00_rb,4.5220e+00_rb,4.2834e+00_rb, &\n     &3.8634e+00_rb,3.4894e+00_rb,3.9713e+00_rb/)\n      kao(:, 3,10,12) = (/ &\n     &4.1147e+00_rb,4.3230e+00_rb,4.7454e+00_rb,4.8522e+00_rb,4.7749e+00_rb,4.5433e+00_rb, &\n     &4.0957e+00_rb,3.8708e+00_rb,4.4196e+00_rb/)\n      kao(:, 4,10,12) = (/ &\n     &4.1890e+00_rb,4.4586e+00_rb,4.9236e+00_rb,5.0494e+00_rb,4.9988e+00_rb,4.8016e+00_rb, &\n     &4.3028e+00_rb,4.2486e+00_rb,4.8508e+00_rb/)\n      kao(:, 5,10,12) = (/ &\n     &4.2486e+00_rb,4.5669e+00_rb,5.0902e+00_rb,5.2222e+00_rb,5.2265e+00_rb,5.0216e+00_rb, &\n     &4.5057e+00_rb,4.6204e+00_rb,5.2753e+00_rb/)\n      kao(:, 1,11,12) = (/ &\n     &6.5008e+00_rb,6.1849e+00_rb,6.2789e+00_rb,6.2685e+00_rb,5.9393e+00_rb,5.4109e+00_rb, &\n     &4.7099e+00_rb,3.7046e+00_rb,3.2687e+00_rb/)\n      kao(:, 2,11,12) = (/ &\n     &6.6711e+00_rb,6.4071e+00_rb,6.5745e+00_rb,6.5690e+00_rb,6.2447e+00_rb,5.7486e+00_rb, &\n     &5.0466e+00_rb,3.9652e+00_rb,3.6849e+00_rb/)\n      kao(:, 3,11,12) = (/ &\n     &6.8141e+00_rb,6.5961e+00_rb,6.8266e+00_rb,6.8425e+00_rb,6.5425e+00_rb,6.0645e+00_rb, &\n     &5.3679e+00_rb,4.1951e+00_rb,4.0848e+00_rb/)\n      kao(:, 4,11,12) = (/ &\n     &6.9309e+00_rb,6.7641e+00_rb,7.0497e+00_rb,7.0951e+00_rb,6.8173e+00_rb,6.3688e+00_rb, &\n     &5.6628e+00_rb,4.4427e+00_rb,4.4838e+00_rb/)\n      kao(:, 5,11,12) = (/ &\n     &7.0334e+00_rb,6.9031e+00_rb,7.2676e+00_rb,7.3125e+00_rb,7.0679e+00_rb,6.6762e+00_rb, &\n     &5.9144e+00_rb,4.7231e+00_rb,4.9084e+00_rb/)\n      kao(:, 1,12,12) = (/ &\n     &8.0356e+00_rb,7.5209e+00_rb,7.4229e+00_rb,7.2434e+00_rb,6.7979e+00_rb,6.1202e+00_rb, &\n     &5.2895e+00_rb,4.1070e+00_rb,2.9936e+00_rb/)\n      kao(:, 2,12,12) = (/ &\n     &8.2347e+00_rb,7.7748e+00_rb,7.7310e+00_rb,7.5713e+00_rb,7.1351e+00_rb,6.4951e+00_rb, &\n     &5.6590e+00_rb,4.4043e+00_rb,3.3743e+00_rb/)\n      kao(:, 3,12,12) = (/ &\n     &8.4084e+00_rb,7.9908e+00_rb,8.0012e+00_rb,7.8714e+00_rb,7.4600e+00_rb,6.8499e+00_rb, &\n     &6.0055e+00_rb,4.6706e+00_rb,3.7574e+00_rb/)\n      kao(:, 4,12,12) = (/ &\n     &8.5546e+00_rb,8.1702e+00_rb,8.2474e+00_rb,8.1496e+00_rb,7.7631e+00_rb,7.1869e+00_rb, &\n     &6.3250e+00_rb,4.9362e+00_rb,4.1426e+00_rb/)\n      kao(:, 5,12,12) = (/ &\n     &8.6676e+00_rb,8.3299e+00_rb,8.4723e+00_rb,8.3950e+00_rb,8.0405e+00_rb,7.5149e+00_rb, &\n     &6.6159e+00_rb,5.2129e+00_rb,4.5254e+00_rb/)\n      kao(:, 1,13,12) = (/ &\n     &7.9759e+00_rb,7.5343e+00_rb,7.4503e+00_rb,7.1563e+00_rb,6.6524e+00_rb,6.0033e+00_rb, &\n     &5.2080e+00_rb,4.0643e+00_rb,2.7278e+00_rb/)\n      kao(:, 2,13,12) = (/ &\n     &8.1794e+00_rb,7.7874e+00_rb,7.7473e+00_rb,7.4642e+00_rb,6.9912e+00_rb,6.3834e+00_rb, &\n     &5.5711e+00_rb,4.3572e+00_rb,3.0821e+00_rb/)\n      kao(:, 3,13,12) = (/ &\n     &8.3457e+00_rb,8.0091e+00_rb,8.0057e+00_rb,7.7578e+00_rb,7.3258e+00_rb,6.7364e+00_rb, &\n     &5.9096e+00_rb,4.6439e+00_rb,3.4477e+00_rb/)\n      kao(:, 4,13,12) = (/ &\n     &8.4812e+00_rb,8.2074e+00_rb,8.2395e+00_rb,8.0326e+00_rb,7.6295e+00_rb,7.0667e+00_rb, &\n     &6.2213e+00_rb,4.9334e+00_rb,3.7948e+00_rb/)\n      kao(:, 5,13,12) = (/ &\n     &8.5914e+00_rb,8.3651e+00_rb,8.4655e+00_rb,8.2768e+00_rb,7.9296e+00_rb,7.3785e+00_rb, &\n     &6.5133e+00_rb,5.2165e+00_rb,4.1485e+00_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &1.8376e-03_rb,1.2493e+00_rb,2.4869e+00_rb,3.7066e+00_rb,4.8962e+00_rb,6.0283e+00_rb, &\n     &7.0325e+00_rb,7.5732e+00_rb,9.7924e+00_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &1.8435e-03_rb,1.3137e+00_rb,2.6151e+00_rb,3.8978e+00_rb,5.1474e+00_rb,6.3345e+00_rb, &\n     &7.3693e+00_rb,7.9436e+00_rb,1.0295e+01_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &1.8457e-03_rb,1.3823e+00_rb,2.7512e+00_rb,4.0980e+00_rb,5.4060e+00_rb,6.6439e+00_rb, &\n     &7.7282e+00_rb,8.2817e+00_rb,1.0812e+01_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &1.8458e-03_rb,1.4480e+00_rb,2.8814e+00_rb,4.2920e+00_rb,5.6663e+00_rb,6.9707e+00_rb, &\n     &8.1084e+00_rb,8.6593e+00_rb,1.1333e+01_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &1.8581e-03_rb,1.5191e+00_rb,3.0214e+00_rb,4.4961e+00_rb,5.9276e+00_rb,7.2804e+00_rb, &\n     &8.4721e+00_rb,9.0750e+00_rb,1.1855e+01_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &3.0081e-03_rb,1.2887e+00_rb,2.5721e+00_rb,3.8463e+00_rb,5.1064e+00_rb,6.3378e+00_rb, &\n     &7.4987e+00_rb,8.3933e+00_rb,1.0213e+01_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &3.0389e-03_rb,1.3599e+00_rb,2.7131e+00_rb,4.0552e+00_rb,5.3783e+00_rb,6.6678e+00_rb, &\n     &7.8772e+00_rb,8.7981e+00_rb,1.0756e+01_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &3.0623e-03_rb,1.4308e+00_rb,2.8555e+00_rb,4.2711e+00_rb,5.6674e+00_rb,7.0255e+00_rb, &\n     &8.2810e+00_rb,9.2099e+00_rb,1.1335e+01_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &3.1073e-03_rb,1.4998e+00_rb,2.9927e+00_rb,4.4738e+00_rb,5.9361e+00_rb,7.3612e+00_rb, &\n     &8.6975e+00_rb,9.6506e+00_rb,1.1872e+01_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &3.1371e-03_rb,1.5763e+00_rb,3.1432e+00_rb,4.6958e+00_rb,6.2242e+00_rb,7.7091e+00_rb, &\n     &9.0917e+00_rb,1.0108e+01_rb,1.2448e+01_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &6.7566e-03_rb,1.3010e+00_rb,2.6001e+00_rb,3.8967e+00_rb,5.1878e+00_rb,6.4676e+00_rb, &\n     &7.7183e+00_rb,8.8575e+00_rb,1.0376e+01_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &6.8655e-03_rb,1.3725e+00_rb,2.7424e+00_rb,4.1083e+00_rb,5.4679e+00_rb,6.8133e+00_rb, &\n     &8.1286e+00_rb,9.3210e+00_rb,1.0936e+01_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &7.0162e-03_rb,1.4463e+00_rb,2.8900e+00_rb,4.3294e+00_rb,5.7613e+00_rb,7.1793e+00_rb, &\n     &8.5582e+00_rb,9.7979e+00_rb,1.1523e+01_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &7.1355e-03_rb,1.5186e+00_rb,3.0341e+00_rb,4.5447e+00_rb,6.0464e+00_rb,7.5309e+00_rb, &\n     &8.9783e+00_rb,1.0290e+01_rb,1.2093e+01_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &7.2326e-03_rb,1.6009e+00_rb,3.1979e+00_rb,4.7883e+00_rb,6.3681e+00_rb,7.9274e+00_rb, &\n     &9.4396e+00_rb,1.0789e+01_rb,1.2736e+01_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &1.5770e-02_rb,1.2974e+00_rb,2.5940e+00_rb,3.8891e+00_rb,5.1823e+00_rb,6.4711e+00_rb, &\n     &7.7497e+00_rb,8.9872e+00_rb,1.0364e+01_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &1.6102e-02_rb,1.3725e+00_rb,2.7438e+00_rb,4.1133e+00_rb,5.4792e+00_rb,6.8384e+00_rb, &\n     &8.1824e+00_rb,9.4681e+00_rb,1.0958e+01_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &1.6461e-02_rb,1.4529e+00_rb,2.9044e+00_rb,4.3540e+00_rb,5.7994e+00_rb,7.2375e+00_rb, &\n     &8.6575e+00_rb,1.0008e+01_rb,1.1599e+01_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &1.6764e-02_rb,1.5336e+00_rb,3.0659e+00_rb,4.5952e+00_rb,6.1201e+00_rb,7.6366e+00_rb, &\n     &9.1307e+00_rb,1.0552e+01_rb,1.2240e+01_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &1.6983e-02_rb,1.6203e+00_rb,3.2389e+00_rb,4.8548e+00_rb,6.4661e+00_rb,8.0668e+00_rb, &\n     &9.6455e+00_rb,1.1132e+01_rb,1.2932e+01_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &3.3958e-02_rb,1.2926e+00_rb,2.5850e+00_rb,3.8765e+00_rb,5.1671e+00_rb,6.4548e+00_rb, &\n     &7.7382e+00_rb,9.0001e+00_rb,1.0334e+01_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &3.4722e-02_rb,1.3756e+00_rb,2.7505e+00_rb,4.1243e+00_rb,5.4969e+00_rb,6.8654e+00_rb, &\n     &8.2252e+00_rb,9.5545e+00_rb,1.0994e+01_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &3.5363e-02_rb,1.4648e+00_rb,2.9290e+00_rb,4.3919e+00_rb,5.8529e+00_rb,7.3099e+00_rb, &\n     &8.7568e+00_rb,1.0164e+01_rb,1.1706e+01_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &3.6012e-02_rb,1.5505e+00_rb,3.1003e+00_rb,4.6491e+00_rb,6.1954e+00_rb,7.7382e+00_rb, &\n     &9.2690e+00_rb,1.0761e+01_rb,1.2391e+01_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &3.6453e-02_rb,1.6361e+00_rb,3.2714e+00_rb,4.9053e+00_rb,6.5374e+00_rb,8.1645e+00_rb, &\n     &9.7803e+00_rb,1.1352e+01_rb,1.3075e+01_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &6.7837e-02_rb,1.2756e+00_rb,2.5511e+00_rb,3.8262e+00_rb,5.1016e+00_rb,6.3755e+00_rb, &\n     &7.6486e+00_rb,8.9147e+00_rb,1.0203e+01_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &6.9368e-02_rb,1.3655e+00_rb,2.7307e+00_rb,4.0953e+00_rb,5.4595e+00_rb,6.8218e+00_rb, &\n     &8.1822e+00_rb,9.5288e+00_rb,1.0919e+01_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &7.0610e-02_rb,1.4598e+00_rb,2.9193e+00_rb,4.3789e+00_rb,5.8375e+00_rb,7.2946e+00_rb, &\n     &8.7480e+00_rb,1.0185e+01_rb,1.1675e+01_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &7.1895e-02_rb,1.5499e+00_rb,3.0992e+00_rb,4.6481e+00_rb,6.1963e+00_rb,7.7431e+00_rb, &\n     &9.2863e+00_rb,1.0814e+01_rb,1.2392e+01_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &7.2713e-02_rb,1.6401e+00_rb,3.2796e+00_rb,4.9184e+00_rb,6.5572e+00_rb,8.1927e+00_rb, &\n     &9.8252e+00_rb,1.1440e+01_rb,1.3114e+01_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &1.4148e-01_rb,1.2306e+00_rb,2.4611e+00_rb,3.6917e+00_rb,4.9218e+00_rb,6.1530e+00_rb, &\n     &7.3843e+00_rb,8.6153e+00_rb,9.8436e+00_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &1.4468e-01_rb,1.3267e+00_rb,2.6534e+00_rb,3.9799e+00_rb,5.3067e+00_rb,6.6328e+00_rb, &\n     &7.9589e+00_rb,9.2835e+00_rb,1.0613e+01_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &1.4723e-01_rb,1.4271e+00_rb,2.8538e+00_rb,4.2801e+00_rb,5.7062e+00_rb,7.1323e+00_rb, &\n     &8.5577e+00_rb,9.9797e+00_rb,1.1412e+01_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &1.4959e-01_rb,1.5234e+00_rb,3.0460e+00_rb,4.5687e+00_rb,6.0905e+00_rb,7.6133e+00_rb, &\n     &9.1342e+00_rb,1.0653e+01_rb,1.2180e+01_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &1.5109e-01_rb,1.6156e+00_rb,3.2301e+00_rb,4.8444e+00_rb,6.4594e+00_rb,8.0732e+00_rb, &\n     &9.6859e+00_rb,1.1294e+01_rb,1.2918e+01_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &3.4983e-01_rb,1.1544e+00_rb,2.3087e+00_rb,3.4632e+00_rb,4.6176e+00_rb,5.7728e+00_rb, &\n     &6.9283e+00_rb,8.0852e+00_rb,9.2350e+00_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &3.5757e-01_rb,1.2554e+00_rb,2.5092e+00_rb,3.7633e+00_rb,5.0176e+00_rb,6.2716e+00_rb, &\n     &7.5265e+00_rb,8.7822e+00_rb,1.0034e+01_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &3.6359e-01_rb,1.3606e+00_rb,2.7192e+00_rb,4.0780e+00_rb,5.4366e+00_rb,6.7958e+00_rb, &\n     &8.1543e+00_rb,9.5151e+00_rb,1.0871e+01_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &3.6947e-01_rb,1.4619e+00_rb,2.9219e+00_rb,4.3820e+00_rb,5.8417e+00_rb,7.3019e+00_rb, &\n     &8.7622e+00_rb,1.0223e+01_rb,1.1681e+01_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &3.7269e-01_rb,1.5629e+00_rb,3.1234e+00_rb,4.6839e+00_rb,6.2445e+00_rb,7.8052e+00_rb, &\n     &9.3661e+00_rb,1.0928e+01_rb,1.2487e+01_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &1.6120e+00_rb,2.1579e+00_rb,2.5856e+00_rb,3.2058e+00_rb,4.2226e+00_rb,5.2767e+00_rb, &\n     &6.3317e+00_rb,7.3871e+00_rb,8.4404e+00_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &1.6481e+00_rb,2.2537e+00_rb,2.6687e+00_rb,3.4901e+00_rb,4.6465e+00_rb,5.8062e+00_rb, &\n     &6.9659e+00_rb,8.1266e+00_rb,9.2849e+00_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &1.6791e+00_rb,2.3216e+00_rb,2.7898e+00_rb,3.8113e+00_rb,5.0781e+00_rb,6.3453e+00_rb, &\n     &7.6127e+00_rb,8.8803e+00_rb,1.0146e+01_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &1.7002e+00_rb,2.3849e+00_rb,2.9226e+00_rb,4.1389e+00_rb,5.5144e+00_rb,6.8902e+00_rb, &\n     &8.2665e+00_rb,9.6440e+00_rb,1.1018e+01_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &1.7139e+00_rb,2.4356e+00_rb,3.0744e+00_rb,4.4589e+00_rb,5.9418e+00_rb,7.4246e+00_rb, &\n     &8.9078e+00_rb,1.0391e+01_rb,1.1873e+01_rb/)\n      kao(:, 1,10,13) = (/ &\n     &8.1900e+00_rb,7.5735e+00_rb,7.5164e+00_rb,7.4868e+00_rb,7.2490e+00_rb,6.5441e+00_rb, &\n     &6.0001e+00_rb,6.6902e+00_rb,7.6402e+00_rb/)\n      kao(:, 2,10,13) = (/ &\n     &8.3686e+00_rb,7.7990e+00_rb,7.8449e+00_rb,7.8651e+00_rb,7.5310e+00_rb,6.7442e+00_rb, &\n     &6.5109e+00_rb,7.4533e+00_rb,8.5097e+00_rb/)\n      kao(:, 3,10,13) = (/ &\n     &8.5094e+00_rb,8.0068e+00_rb,8.1129e+00_rb,8.1601e+00_rb,7.7387e+00_rb,7.0241e+00_rb, &\n     &7.1098e+00_rb,8.2483e+00_rb,9.4190e+00_rb/)\n      kao(:, 4,10,13) = (/ &\n     &8.6083e+00_rb,8.1729e+00_rb,8.3302e+00_rb,8.3900e+00_rb,7.9589e+00_rb,7.3305e+00_rb, &\n     &7.7681e+00_rb,9.0471e+00_rb,1.0331e+01_rb/)\n      kao(:, 5,10,13) = (/ &\n     &8.6642e+00_rb,8.2947e+00_rb,8.5084e+00_rb,8.6017e+00_rb,8.1354e+00_rb,7.7044e+00_rb, &\n     &8.4486e+00_rb,9.8464e+00_rb,1.1244e+01_rb/)\n      kao(:, 1,11,13) = (/ &\n     &1.4422e+01_rb,1.2923e+01_rb,1.2146e+01_rb,1.1467e+01_rb,1.0797e+01_rb,9.7043e+00_rb, &\n     &7.9341e+00_rb,6.4523e+00_rb,7.2283e+00_rb/)\n      kao(:, 2,11,13) = (/ &\n     &1.4693e+01_rb,1.3224e+01_rb,1.2546e+01_rb,1.1961e+01_rb,1.1284e+01_rb,1.0051e+01_rb, &\n     &8.2717e+00_rb,7.1710e+00_rb,8.1411e+00_rb/)\n      kao(:, 3,11,13) = (/ &\n     &1.4865e+01_rb,1.3437e+01_rb,1.2872e+01_rb,1.2352e+01_rb,1.1673e+01_rb,1.0373e+01_rb, &\n     &8.6477e+00_rb,7.9776e+00_rb,9.0911e+00_rb/)\n      kao(:, 4,11,13) = (/ &\n     &1.4985e+01_rb,1.3594e+01_rb,1.3136e+01_rb,1.2689e+01_rb,1.2000e+01_rb,1.0700e+01_rb, &\n     &9.0501e+00_rb,8.7877e+00_rb,1.0028e+01_rb/)\n      kao(:, 5,11,13) = (/ &\n     &1.5049e+01_rb,1.3704e+01_rb,1.3344e+01_rb,1.2975e+01_rb,1.2311e+01_rb,1.0977e+01_rb, &\n     &9.5392e+00_rb,9.6092e+00_rb,1.0970e+01_rb/)\n      kao(:, 1,12,13) = (/ &\n     &1.8498e+01_rb,1.6493e+01_rb,1.5330e+01_rb,1.4296e+01_rb,1.3227e+01_rb,1.1776e+01_rb, &\n     &9.6093e+00_rb,6.9105e+00_rb,6.8698e+00_rb/)\n      kao(:, 2,12,13) = (/ &\n     &1.8757e+01_rb,1.6799e+01_rb,1.5767e+01_rb,1.4839e+01_rb,1.3780e+01_rb,1.2237e+01_rb, &\n     &1.0031e+01_rb,7.5179e+00_rb,7.8121e+00_rb/)\n      kao(:, 3,12,13) = (/ &\n     &1.8947e+01_rb,1.7036e+01_rb,1.6095e+01_rb,1.5249e+01_rb,1.4223e+01_rb,1.2650e+01_rb, &\n     &1.0480e+01_rb,8.1785e+00_rb,8.7273e+00_rb/)\n      kao(:, 4,12,13) = (/ &\n     &1.9063e+01_rb,1.7202e+01_rb,1.6365e+01_rb,1.5574e+01_rb,1.4614e+01_rb,1.3047e+01_rb, &\n     &1.0927e+01_rb,8.8781e+00_rb,9.6514e+00_rb/)\n      kao(:, 5,12,13) = (/ &\n     &1.9121e+01_rb,1.7309e+01_rb,1.6592e+01_rb,1.5868e+01_rb,1.4993e+01_rb,1.3399e+01_rb, &\n     &1.1411e+01_rb,9.6204e+00_rb,1.0609e+01_rb/)\n      kao(:, 1,13,13) = (/ &\n     &1.8681e+01_rb,1.6791e+01_rb,1.5759e+01_rb,1.4851e+01_rb,1.3770e+01_rb,1.2167e+01_rb, &\n     &1.0009e+01_rb,7.2580e+00_rb,6.5238e+00_rb/)\n      kao(:, 2,13,13) = (/ &\n     &1.8892e+01_rb,1.7070e+01_rb,1.6163e+01_rb,1.5373e+01_rb,1.4290e+01_rb,1.2645e+01_rb, &\n     &1.0505e+01_rb,7.8149e+00_rb,7.3987e+00_rb/)\n      kao(:, 3,13,13) = (/ &\n     &1.9028e+01_rb,1.7273e+01_rb,1.6517e+01_rb,1.5784e+01_rb,1.4702e+01_rb,1.3114e+01_rb, &\n     &1.1026e+01_rb,8.4153e+00_rb,8.2894e+00_rb/)\n      kao(:, 4,13,13) = (/ &\n     &1.9122e+01_rb,1.7418e+01_rb,1.6814e+01_rb,1.6131e+01_rb,1.5108e+01_rb,1.3570e+01_rb, &\n     &1.1549e+01_rb,9.0457e+00_rb,9.1940e+00_rb/)\n      kao(:, 5,13,13) = (/ &\n     &1.9151e+01_rb,1.7520e+01_rb,1.7041e+01_rb,1.6440e+01_rb,1.5494e+01_rb,1.4010e+01_rb, &\n     &1.2106e+01_rb,9.7104e+00_rb,1.0102e+01_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &3.3087e-03_rb,1.8715e+00_rb,3.7152e+00_rb,5.5155e+00_rb,7.2487e+00_rb,8.8573e+00_rb, &\n     &1.0201e+01_rb,1.0807e+01_rb,1.4497e+01_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &3.2220e-03_rb,1.9525e+00_rb,3.8750e+00_rb,5.7533e+00_rb,7.5552e+00_rb,9.2212e+00_rb, &\n     &1.0608e+01_rb,1.1197e+01_rb,1.5110e+01_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &3.1339e-03_rb,2.0260e+00_rb,4.0195e+00_rb,5.9653e+00_rb,7.8344e+00_rb,9.5608e+00_rb, &\n     &1.0981e+01_rb,1.1562e+01_rb,1.5669e+01_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &3.0455e-03_rb,2.1060e+00_rb,4.1769e+00_rb,6.1939e+00_rb,8.1222e+00_rb,9.8877e+00_rb, &\n     &1.1323e+01_rb,1.1897e+01_rb,1.6244e+01_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &2.9339e-03_rb,2.1869e+00_rb,4.3369e+00_rb,6.4318e+00_rb,8.4325e+00_rb,1.0262e+01_rb, &\n     &1.1718e+01_rb,1.2199e+01_rb,1.6865e+01_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &5.2878e-03_rb,2.0475e+00_rb,4.0760e+00_rb,6.0751e+00_rb,8.0240e+00_rb,9.8767e+00_rb, &\n     &1.1510e+01_rb,1.2463e+01_rb,1.6048e+01_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &5.1473e-03_rb,2.1393e+00_rb,4.2595e+00_rb,6.3491e+00_rb,8.3874e+00_rb,1.0326e+01_rb, &\n     &1.2039e+01_rb,1.3009e+01_rb,1.6775e+01_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &5.0049e-03_rb,2.2262e+00_rb,4.4297e+00_rb,6.5989e+00_rb,8.7109e+00_rb,1.0721e+01_rb, &\n     &1.2503e+01_rb,1.3517e+01_rb,1.7422e+01_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &4.8227e-03_rb,2.3172e+00_rb,4.6099e+00_rb,6.8638e+00_rb,9.0568e+00_rb,1.1128e+01_rb, &\n     &1.2937e+01_rb,1.3964e+01_rb,1.8113e+01_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &4.6542e-03_rb,2.4084e+00_rb,4.7911e+00_rb,7.1333e+00_rb,9.4086e+00_rb,1.1557e+01_rb, &\n     &1.3418e+01_rb,1.4407e+01_rb,1.8817e+01_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &1.1438e-02_rb,2.1889e+00_rb,4.3692e+00_rb,6.5353e+00_rb,8.6778e+00_rb,1.0773e+01_rb, &\n     &1.2758e+01_rb,1.4346e+01_rb,1.7356e+01_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &1.1139e-02_rb,2.3041e+00_rb,4.5995e+00_rb,6.8793e+00_rb,9.1316e+00_rb,1.1334e+01_rb, &\n     &1.3411e+01_rb,1.5052e+01_rb,1.8263e+01_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &1.0770e-02_rb,2.4104e+00_rb,4.8103e+00_rb,7.1935e+00_rb,9.5485e+00_rb,1.1847e+01_rb, &\n     &1.4017e+01_rb,1.5716e+01_rb,1.9097e+01_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &1.0423e-02_rb,2.5146e+00_rb,5.0181e+00_rb,7.5021e+00_rb,9.9570e+00_rb,1.2351e+01_rb, &\n     &1.4597e+01_rb,1.6319e+01_rb,1.9914e+01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &1.0104e-02_rb,2.6169e+00_rb,5.2203e+00_rb,7.8059e+00_rb,1.0356e+01_rb,1.2839e+01_rb, &\n     &1.5169e+01_rb,1.6937e+01_rb,2.0712e+01_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &2.5365e-02_rb,2.3050e+00_rb,4.6063e+00_rb,6.9017e+00_rb,9.1853e+00_rb,1.1448e+01_rb, &\n     &1.3656e+01_rb,1.5659e+01_rb,1.8370e+01_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &2.4778e-02_rb,2.4401e+00_rb,4.8764e+00_rb,7.3060e+00_rb,9.7240e+00_rb,1.2119e+01_rb, &\n     &1.4458e+01_rb,1.6580e+01_rb,1.9448e+01_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &2.4097e-02_rb,2.5614e+00_rb,5.1183e+00_rb,7.6688e+00_rb,1.0206e+01_rb,1.2719e+01_rb, &\n     &1.5172e+01_rb,1.7403e+01_rb,2.0411e+01_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &2.3478e-02_rb,2.6774e+00_rb,5.3500e+00_rb,8.0159e+00_rb,1.0665e+01_rb,1.3289e+01_rb, &\n     &1.5848e+01_rb,1.8161e+01_rb,2.1330e+01_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &2.2944e-02_rb,2.7978e+00_rb,5.5896e+00_rb,8.3727e+00_rb,1.1139e+01_rb,1.3876e+01_rb, &\n     &1.6535e+01_rb,1.8911e+01_rb,2.2278e+01_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &5.2400e-02_rb,2.3882e+00_rb,4.7744e+00_rb,7.1579e+00_rb,9.5370e+00_rb,1.1906e+01_rb, &\n     &1.4251e+01_rb,1.6502e+01_rb,1.9074e+01_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &5.1529e-02_rb,2.5417e+00_rb,5.0820e+00_rb,7.6184e+00_rb,1.0150e+01_rb,1.2670e+01_rb, &\n     &1.5165e+01_rb,1.7564e+01_rb,2.0300e+01_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &5.0713e-02_rb,2.6834e+00_rb,5.3644e+00_rb,8.0415e+00_rb,1.0713e+01_rb,1.3375e+01_rb, &\n     &1.6005e+01_rb,1.8525e+01_rb,2.1426e+01_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &4.9736e-02_rb,2.8194e+00_rb,5.6359e+00_rb,8.4488e+00_rb,1.1255e+01_rb,1.4048e+01_rb, &\n     &1.6805e+01_rb,1.9440e+01_rb,2.2511e+01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &4.8999e-02_rb,2.9595e+00_rb,5.9157e+00_rb,8.8682e+00_rb,1.1813e+01_rb,1.4742e+01_rb, &\n     &1.7634e+01_rb,2.0380e+01_rb,2.3625e+01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &1.0351e-01_rb,2.4306e+00_rb,4.8601e+00_rb,7.2890e+00_rb,9.7147e+00_rb,1.2135e+01_rb, &\n     &1.4543e+01_rb,1.6905e+01_rb,1.9429e+01_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &1.0255e-01_rb,2.6140e+00_rb,5.2274e+00_rb,7.8383e+00_rb,1.0448e+01_rb,1.3051e+01_rb, &\n     &1.5640e+01_rb,1.8174e+01_rb,2.0896e+01_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &1.0183e-01_rb,2.7755e+00_rb,5.5503e+00_rb,8.3234e+00_rb,1.1093e+01_rb,1.3857e+01_rb, &\n     &1.6607e+01_rb,1.9300e+01_rb,2.2186e+01_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &1.0081e-01_rb,2.9307e+00_rb,5.8597e+00_rb,8.7876e+00_rb,1.1711e+01_rb,1.4627e+01_rb, &\n     &1.7527e+01_rb,2.0360e+01_rb,2.3422e+01_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &1.0025e-01_rb,3.0883e+00_rb,6.1762e+00_rb,9.2605e+00_rb,1.2342e+01_rb,1.5414e+01_rb, &\n     &1.8466e+01_rb,2.1444e+01_rb,2.4683e+01_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &2.1803e-01_rb,2.4631e+00_rb,4.9259e+00_rb,7.3877e+00_rb,9.8477e+00_rb,1.2306e+01_rb, &\n     &1.4757e+01_rb,1.7182e+01_rb,1.9695e+01_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &2.1806e-01_rb,2.6703e+00_rb,5.3400e+00_rb,8.0091e+00_rb,1.0677e+01_rb,1.3341e+01_rb, &\n     &1.6000e+01_rb,1.8630e+01_rb,2.1354e+01_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &2.1815e-01_rb,2.8507e+00_rb,5.7004e+00_rb,8.5504e+00_rb,1.1399e+01_rb,1.4242e+01_rb, &\n     &1.7080e+01_rb,1.9888e+01_rb,2.2798e+01_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &2.1765e-01_rb,3.0257e+00_rb,6.0505e+00_rb,9.0745e+00_rb,1.2096e+01_rb,1.5115e+01_rb, &\n     &1.8125e+01_rb,2.1099e+01_rb,2.4193e+01_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &2.1725e-01_rb,3.2088e+00_rb,6.4163e+00_rb,9.6232e+00_rb,1.2829e+01_rb,1.6028e+01_rb, &\n     &1.9219e+01_rb,2.2369e+01_rb,2.5657e+01_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &5.5719e-01_rb,2.4793e+00_rb,4.9583e+00_rb,7.4367e+00_rb,9.9152e+00_rb,1.2393e+01_rb, &\n     &1.4868e+01_rb,1.7332e+01_rb,1.9830e+01_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &5.6059e-01_rb,2.7128e+00_rb,5.4248e+00_rb,8.1366e+00_rb,1.0849e+01_rb,1.3560e+01_rb, &\n     &1.6268e+01_rb,1.8965e+01_rb,2.1697e+01_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &5.6435e-01_rb,2.9177e+00_rb,5.8349e+00_rb,8.7514e+00_rb,1.1668e+01_rb,1.4583e+01_rb, &\n     &1.7497e+01_rb,2.0397e+01_rb,2.3335e+01_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &5.6354e-01_rb,3.1161e+00_rb,6.2315e+00_rb,9.3470e+00_rb,1.2462e+01_rb,1.5576e+01_rb, &\n     &1.8684e+01_rb,2.1779e+01_rb,2.4923e+01_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &5.6160e-01_rb,3.3171e+00_rb,6.6335e+00_rb,9.9496e+00_rb,1.3266e+01_rb,1.6580e+01_rb, &\n     &1.9888e+01_rb,2.3183e+01_rb,2.6532e+01_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &2.7023e+00_rb,3.1133e+00_rb,4.9392e+00_rb,7.4089e+00_rb,9.8776e+00_rb,1.2348e+01_rb, &\n     &1.4816e+01_rb,1.7282e+01_rb,1.9755e+01_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &2.7329e+00_rb,3.1899e+00_rb,5.4498e+00_rb,8.1745e+00_rb,1.0899e+01_rb,1.3624e+01_rb, &\n     &1.6348e+01_rb,1.9070e+01_rb,2.1798e+01_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &2.7414e+00_rb,3.2928e+00_rb,5.9087e+00_rb,8.8629e+00_rb,1.1816e+01_rb,1.4770e+01_rb, &\n     &1.7722e+01_rb,2.0675e+01_rb,2.3632e+01_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &2.7386e+00_rb,3.4095e+00_rb,6.3408e+00_rb,9.5112e+00_rb,1.2680e+01_rb,1.5850e+01_rb, &\n     &1.9019e+01_rb,2.2186e+01_rb,2.5359e+01_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &2.7253e+00_rb,3.5556e+00_rb,6.7742e+00_rb,1.0160e+01_rb,1.3547e+01_rb,1.6934e+01_rb, &\n     &2.0319e+01_rb,2.3701e+01_rb,2.7094e+01_rb/)\n      kao(:, 1,10,14) = (/ &\n     &1.4620e+01_rb,1.3012e+01_rb,1.2093e+01_rb,1.1252e+01_rb,1.0888e+01_rb,1.2263e+01_rb, &\n     &1.4693e+01_rb,1.7142e+01_rb,1.9590e+01_rb/)\n      kao(:, 2,10,14) = (/ &\n     &1.4753e+01_rb,1.3186e+01_rb,1.2290e+01_rb,1.1490e+01_rb,1.1589e+01_rb,1.3604e+01_rb, &\n     &1.6324e+01_rb,1.9044e+01_rb,2.1765e+01_rb/)\n      kao(:, 3,10,14) = (/ &\n     &1.4775e+01_rb,1.3219e+01_rb,1.2416e+01_rb,1.1687e+01_rb,1.2328e+01_rb,1.4817e+01_rb, &\n     &1.7779e+01_rb,2.0743e+01_rb,2.3705e+01_rb/)\n      kao(:, 4,10,14) = (/ &\n     &1.4749e+01_rb,1.3203e+01_rb,1.2546e+01_rb,1.1974e+01_rb,1.3088e+01_rb,1.5981e+01_rb, &\n     &1.9178e+01_rb,2.2373e+01_rb,2.5570e+01_rb/)\n      kao(:, 5,10,14) = (/ &\n     &1.4700e+01_rb,1.3186e+01_rb,1.2659e+01_rb,1.2331e+01_rb,1.3931e+01_rb,1.7138e+01_rb, &\n     &2.0565e+01_rb,2.3991e+01_rb,2.7418e+01_rb/)\n      kao(:, 1,11,14) = (/ &\n     &2.7410e+01_rb,2.3992e+01_rb,2.1335e+01_rb,1.9158e+01_rb,1.6847e+01_rb,1.4928e+01_rb, &\n     &1.5265e+01_rb,1.7677e+01_rb,2.0202e+01_rb/)\n      kao(:, 2,11,14) = (/ &\n     &2.7494e+01_rb,2.4097e+01_rb,2.1553e+01_rb,1.9434e+01_rb,1.7307e+01_rb,1.5809e+01_rb, &\n     &1.6793e+01_rb,1.9551e+01_rb,2.2343e+01_rb/)\n      kao(:, 3,11,14) = (/ &\n     &2.7540e+01_rb,2.4181e+01_rb,2.1730e+01_rb,1.9742e+01_rb,1.7701e+01_rb,1.6732e+01_rb, &\n     &1.8269e+01_rb,2.1306e+01_rb,2.4350e+01_rb/)\n      kao(:, 4,11,14) = (/ &\n     &2.7514e+01_rb,2.4204e+01_rb,2.1897e+01_rb,2.0034e+01_rb,1.8171e+01_rb,1.7696e+01_rb, &\n     &1.9766e+01_rb,2.3053e+01_rb,2.6341e+01_rb/)\n      kao(:, 5,11,14) = (/ &\n     &2.7458e+01_rb,2.4204e+01_rb,2.2040e+01_rb,2.0324e+01_rb,1.8730e+01_rb,1.8750e+01_rb, &\n     &2.1236e+01_rb,2.4764e+01_rb,2.8296e+01_rb/)\n      kao(:, 1,12,14) = (/ &\n     &3.7739e+01_rb,3.3022e+01_rb,2.9081e+01_rb,2.5731e+01_rb,2.2384e+01_rb,1.9192e+01_rb, &\n     &1.6882e+01_rb,1.7924e+01_rb,2.0483e+01_rb/)\n      kao(:, 2,12,14) = (/ &\n     &3.7888e+01_rb,3.3157e+01_rb,2.9316e+01_rb,2.6118e+01_rb,2.2987e+01_rb,1.9918e+01_rb, &\n     &1.8210e+01_rb,1.9805e+01_rb,2.2631e+01_rb/)\n      kao(:, 3,12,14) = (/ &\n     &3.7945e+01_rb,3.3236e+01_rb,2.9563e+01_rb,2.6509e+01_rb,2.3567e+01_rb,2.0714e+01_rb, &\n     &1.9521e+01_rb,2.1672e+01_rb,2.4760e+01_rb/)\n      kao(:, 4,12,14) = (/ &\n     &3.7956e+01_rb,3.3289e+01_rb,2.9765e+01_rb,2.6932e+01_rb,2.4108e+01_rb,2.1541e+01_rb, &\n     &2.0877e+01_rb,2.3478e+01_rb,2.6821e+01_rb/)\n      kao(:, 5,12,14) = (/ &\n     &3.7967e+01_rb,3.3331e+01_rb,2.9953e+01_rb,2.7347e+01_rb,2.4651e+01_rb,2.2457e+01_rb, &\n     &2.2265e+01_rb,2.5248e+01_rb,2.8840e+01_rb/)\n      kao(:, 1,13,14) = (/ &\n     &4.1396e+01_rb,3.6239e+01_rb,3.2059e+01_rb,2.8493e+01_rb,2.4944e+01_rb,2.1585e+01_rb, &\n     &1.8204e+01_rb,1.7791e+01_rb,2.0316e+01_rb/)\n      kao(:, 2,13,14) = (/ &\n     &4.1543e+01_rb,3.6421e+01_rb,3.2427e+01_rb,2.9033e+01_rb,2.5736e+01_rb,2.2468e+01_rb, &\n     &1.9493e+01_rb,1.9781e+01_rb,2.2598e+01_rb/)\n      kao(:, 3,13,14) = (/ &\n     &4.1678e+01_rb,3.6592e+01_rb,3.2739e+01_rb,2.9584e+01_rb,2.6500e+01_rb,2.3336e+01_rb, &\n     &2.0749e+01_rb,2.1701e+01_rb,2.4790e+01_rb/)\n      kao(:, 4,13,14) = (/ &\n     &4.1767e+01_rb,3.6719e+01_rb,3.3041e+01_rb,3.0106e+01_rb,2.7204e+01_rb,2.4205e+01_rb, &\n     &2.2086e+01_rb,2.3604e+01_rb,2.6962e+01_rb/)\n      kao(:, 5,13,14) = (/ &\n     &4.1856e+01_rb,3.6841e+01_rb,3.3340e+01_rb,3.0667e+01_rb,2.7878e+01_rb,2.5159e+01_rb, &\n     &2.3471e+01_rb,2.5553e+01_rb,2.9188e+01_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &4.1661e-03_rb,3.0613e+00_rb,6.0764e+00_rb,9.0246e+00_rb,1.1861e+01_rb,1.4480e+01_rb, &\n     &1.6622e+01_rb,1.7284e+01_rb,2.3722e+01_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &4.0148e-03_rb,3.1418e+00_rb,6.2320e+00_rb,9.2486e+00_rb,1.2140e+01_rb,1.4819e+01_rb, &\n     &1.7035e+01_rb,1.7764e+01_rb,2.4279e+01_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &3.8658e-03_rb,3.2144e+00_rb,6.3745e+00_rb,9.4527e+00_rb,1.2398e+01_rb,1.5111e+01_rb, &\n     &1.7346e+01_rb,1.8143e+01_rb,2.4796e+01_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &3.7196e-03_rb,3.2826e+00_rb,6.5071e+00_rb,9.6422e+00_rb,1.2633e+01_rb,1.5374e+01_rb, &\n     &1.7599e+01_rb,1.8433e+01_rb,2.5267e+01_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &3.5761e-03_rb,3.3515e+00_rb,6.6395e+00_rb,9.8324e+00_rb,1.2873e+01_rb,1.5639e+01_rb, &\n     &1.7844e+01_rb,1.8646e+01_rb,2.5747e+01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &6.8577e-03_rb,3.3744e+00_rb,6.7125e+00_rb,9.9952e+00_rb,1.3184e+01_rb,1.6201e+01_rb, &\n     &1.8839e+01_rb,2.0375e+01_rb,2.6368e+01_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &6.5948e-03_rb,3.4888e+00_rb,6.9393e+00_rb,1.0331e+01_rb,1.3623e+01_rb,1.6730e+01_rb, &\n     &1.9423e+01_rb,2.0902e+01_rb,2.7246e+01_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &6.3372e-03_rb,3.5940e+00_rb,7.1483e+00_rb,1.0636e+01_rb,1.4019e+01_rb,1.7199e+01_rb, &\n     &1.9946e+01_rb,2.1371e+01_rb,2.8038e+01_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &6.0860e-03_rb,3.6975e+00_rb,7.3505e+00_rb,1.0936e+01_rb,1.4402e+01_rb,1.7655e+01_rb, &\n     &2.0430e+01_rb,2.1802e+01_rb,2.8803e+01_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &5.8418e-03_rb,3.7949e+00_rb,7.5419e+00_rb,1.1217e+01_rb,1.4770e+01_rb,1.8090e+01_rb, &\n     &2.0913e+01_rb,2.2203e+01_rb,2.9539e+01_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &1.5312e-02_rb,3.7161e+00_rb,7.4117e+00_rb,1.1074e+01_rb,1.4677e+01_rb,1.8180e+01_rb, &\n     &2.1427e+01_rb,2.3812e+01_rb,2.9355e+01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &1.4697e-02_rb,3.8703e+00_rb,7.7181e+00_rb,1.1532e+01_rb,1.5288e+01_rb,1.8926e+01_rb, &\n     &2.2293e+01_rb,2.4742e+01_rb,3.0575e+01_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &1.4095e-02_rb,4.0069e+00_rb,7.9901e+00_rb,1.1939e+01_rb,1.5823e+01_rb,1.9587e+01_rb, &\n     &2.3063e+01_rb,2.5568e+01_rb,3.1646e+01_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &1.3512e-02_rb,4.1402e+00_rb,8.2563e+00_rb,1.2333e+01_rb,1.6342e+01_rb,2.0226e+01_rb, &\n     &2.3806e+01_rb,2.6351e+01_rb,3.2684e+01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &1.2949e-02_rb,4.2659e+00_rb,8.5058e+00_rb,1.2707e+01_rb,1.6836e+01_rb,2.0833e+01_rb, &\n     &2.4517e+01_rb,2.7109e+01_rb,3.3673e+01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &3.5017e-02_rb,4.0833e+00_rb,8.1553e+00_rb,1.2211e+01_rb,1.6236e+01_rb,2.0204e+01_rb, &\n     &2.4024e+01_rb,2.7316e+01_rb,3.2472e+01_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &3.3537e-02_rb,4.2828e+00_rb,8.5541e+00_rb,1.2808e+01_rb,1.7029e+01_rb,2.1189e+01_rb, &\n     &2.5196e+01_rb,2.8637e+01_rb,3.4057e+01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &3.2113e-02_rb,4.4600e+00_rb,8.9081e+00_rb,1.3336e+01_rb,1.7733e+01_rb,2.2059e+01_rb, &\n     &2.6228e+01_rb,2.9796e+01_rb,3.5465e+01_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &3.0746e-02_rb,4.6307e+00_rb,9.2473e+00_rb,1.3839e+01_rb,1.8403e+01_rb,2.2892e+01_rb, &\n     &2.7214e+01_rb,3.0894e+01_rb,3.6805e+01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &2.9433e-02_rb,4.7874e+00_rb,9.5611e+00_rb,1.4314e+01_rb,1.9029e+01_rb,2.3669e+01_rb, &\n     &2.8132e+01_rb,3.1929e+01_rb,3.8057e+01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &7.3896e-02_rb,4.4639e+00_rb,8.9220e+00_rb,1.3370e+01_rb,1.7804e+01_rb,2.2204e+01_rb, &\n     &2.6523e+01_rb,3.0537e+01_rb,3.5608e+01_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &7.0692e-02_rb,4.7138e+00_rb,9.4187e+00_rb,1.4116e+01_rb,1.8797e+01_rb,2.3443e+01_rb, &\n     &2.8005e+01_rb,3.2244e+01_rb,3.7595e+01_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &6.7622e-02_rb,4.9383e+00_rb,9.8707e+00_rb,1.4791e+01_rb,1.9696e+01_rb,2.4560e+01_rb, &\n     &2.9335e+01_rb,3.3760e+01_rb,3.9391e+01_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &6.4677e-02_rb,5.1515e+00_rb,1.0296e+01_rb,1.5428e+01_rb,2.0542e+01_rb,2.5616e+01_rb, &\n     &3.0597e+01_rb,3.5203e+01_rb,4.1084e+01_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &6.1858e-02_rb,5.3461e+00_rb,1.0685e+01_rb,1.6012e+01_rb,2.1318e+01_rb,2.6583e+01_rb, &\n     &3.1750e+01_rb,3.6527e+01_rb,4.2635e+01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &1.4684e-01_rb,4.8264e+00_rb,9.6500e+00_rb,1.4468e+01_rb,1.9279e+01_rb,2.4068e+01_rb, &\n     &2.8816e+01_rb,3.3389e+01_rb,3.8558e+01_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &1.4028e-01_rb,5.1303e+00_rb,1.0258e+01_rb,1.5380e+01_rb,2.0490e+01_rb,2.5585e+01_rb, &\n     &3.0631e+01_rb,3.5492e+01_rb,4.0980e+01_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &1.3401e-01_rb,5.4150e+00_rb,1.0825e+01_rb,1.6231e+01_rb,2.1624e+01_rb,2.7001e+01_rb, &\n     &3.2322e+01_rb,3.7445e+01_rb,4.3249e+01_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &1.2806e-01_rb,5.6771e+00_rb,1.1351e+01_rb,1.7018e+01_rb,2.2674e+01_rb,2.8310e+01_rb, &\n     &3.3887e+01_rb,3.9255e+01_rb,4.5348e+01_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &1.2235e-01_rb,5.9138e+00_rb,1.1824e+01_rb,1.7725e+01_rb,2.3617e+01_rb,2.9485e+01_rb, &\n     &3.5301e+01_rb,4.0890e+01_rb,4.7234e+01_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &3.0725e-01_rb,5.1535e+00_rb,1.0306e+01_rb,1.5454e+01_rb,2.0602e+01_rb,2.5736e+01_rb, &\n     &3.0848e+01_rb,3.5878e+01_rb,4.1204e+01_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &2.9321e-01_rb,5.5259e+00_rb,1.1050e+01_rb,1.6570e+01_rb,2.2088e+01_rb,2.7592e+01_rb, &\n     &3.3073e+01_rb,3.8464e+01_rb,4.4176e+01_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &2.7993e-01_rb,5.8735e+00_rb,1.1744e+01_rb,1.7612e+01_rb,2.3476e+01_rb,2.9329e+01_rb, &\n     &3.5155e+01_rb,4.0875e+01_rb,4.6953e+01_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &2.6791e-01_rb,6.1876e+00_rb,1.2373e+01_rb,1.8557e+01_rb,2.4734e+01_rb,3.0898e+01_rb, &\n     &3.7039e+01_rb,4.3070e+01_rb,4.9468e+01_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &2.5886e-01_rb,6.4685e+00_rb,1.2934e+01_rb,1.9398e+01_rb,2.5854e+01_rb,3.2302e+01_rb, &\n     &3.8716e+01_rb,4.5022e+01_rb,5.1708e+01_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &7.7279e-01_rb,5.4596e+00_rb,1.0918e+01_rb,1.6376e+01_rb,2.1832e+01_rb,2.7286e+01_rb, &\n     &3.2729e+01_rb,3.8130e+01_rb,4.3663e+01_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &7.3823e-01_rb,5.9033e+00_rb,1.1807e+01_rb,1.7707e+01_rb,2.3607e+01_rb,2.9503e+01_rb, &\n     &3.5387e+01_rb,4.1229e+01_rb,4.7214e+01_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &7.0825e-01_rb,6.3158e+00_rb,1.2632e+01_rb,1.8945e+01_rb,2.5259e+01_rb,3.1562e+01_rb, &\n     &3.7862e+01_rb,4.4105e+01_rb,5.0517e+01_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &6.8827e-01_rb,6.6883e+00_rb,1.3376e+01_rb,2.0062e+01_rb,2.6743e+01_rb,3.3422e+01_rb, &\n     &4.0088e+01_rb,4.6704e+01_rb,5.3485e+01_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &6.7674e-01_rb,7.0269e+00_rb,1.4054e+01_rb,2.1077e+01_rb,2.8099e+01_rb,3.5115e+01_rb, &\n     &4.2117e+01_rb,4.9067e+01_rb,5.6197e+01_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &3.6929e+00_rb,5.7245e+00_rb,1.1448e+01_rb,1.7170e+01_rb,2.2894e+01_rb,2.8616e+01_rb, &\n     &3.4335e+01_rb,4.0048e+01_rb,4.5789e+01_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &3.5483e+00_rb,6.2547e+00_rb,1.2509e+01_rb,1.8761e+01_rb,2.5016e+01_rb,3.1268e+01_rb, &\n     &3.7517e+01_rb,4.3757e+01_rb,5.0032e+01_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &3.4652e+00_rb,6.7430e+00_rb,1.3484e+01_rb,2.0224e+01_rb,2.6965e+01_rb,3.3705e+01_rb, &\n     &4.0443e+01_rb,4.7167e+01_rb,5.3930e+01_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &3.4260e+00_rb,7.1974e+00_rb,1.4393e+01_rb,2.1588e+01_rb,2.8784e+01_rb,3.5977e+01_rb, &\n     &4.3167e+01_rb,5.0348e+01_rb,5.7567e+01_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &3.4123e+00_rb,7.6134e+00_rb,1.5225e+01_rb,2.2838e+01_rb,3.0451e+01_rb,3.8059e+01_rb, &\n     &4.5665e+01_rb,5.3256e+01_rb,6.0901e+01_rb/)\n      kao(:, 1,10,15) = (/ &\n     &1.9879e+01_rb,1.7395e+01_rb,1.5929e+01_rb,1.8251e+01_rb,2.3917e+01_rb,2.9895e+01_rb, &\n     &3.5873e+01_rb,4.1851e+01_rb,4.7831e+01_rb/)\n      kao(:, 2,10,15) = (/ &\n     &1.9461e+01_rb,1.7089e+01_rb,1.6077e+01_rb,1.9823e+01_rb,2.6409e+01_rb,3.3015e+01_rb, &\n     &3.9616e+01_rb,4.6210e+01_rb,5.2815e+01_rb/)\n      kao(:, 3,10,15) = (/ &\n     &1.9336e+01_rb,1.7101e+01_rb,1.6570e+01_rb,2.1574e+01_rb,2.8765e+01_rb,3.5957e+01_rb, &\n     &4.3144e+01_rb,5.0330e+01_rb,5.7526e+01_rb/)\n      kao(:, 4,10,15) = (/ &\n     &1.9333e+01_rb,1.7178e+01_rb,1.7183e+01_rb,2.3203e+01_rb,3.0928e+01_rb,3.8662e+01_rb, &\n     &4.6389e+01_rb,5.4117e+01_rb,6.1850e+01_rb/)\n      kao(:, 5,10,15) = (/ &\n     &1.9454e+01_rb,1.7376e+01_rb,1.7879e+01_rb,2.4671e+01_rb,3.2892e+01_rb,4.1116e+01_rb, &\n     &4.9334e+01_rb,5.7555e+01_rb,6.5778e+01_rb/)\n      kao(:, 1,11,15) = (/ &\n     &3.7918e+01_rb,3.3177e+01_rb,2.9050e+01_rb,2.5728e+01_rb,2.6964e+01_rb,3.2638e+01_rb, &\n     &3.9160e+01_rb,4.5686e+01_rb,5.2215e+01_rb/)\n      kao(:, 2,11,15) = (/ &\n     &3.7982e+01_rb,3.3235e+01_rb,2.9190e+01_rb,2.6661e+01_rb,2.9222e+01_rb,3.6220e+01_rb, &\n     &4.3460e+01_rb,5.0704e+01_rb,5.7949e+01_rb/)\n      kao(:, 3,11,15) = (/ &\n     &3.8191e+01_rb,3.3419e+01_rb,2.9491e+01_rb,2.7784e+01_rb,3.1731e+01_rb,3.9527e+01_rb, &\n     &4.7423e+01_rb,5.5330e+01_rb,6.3238e+01_rb/)\n      kao(:, 4,11,15) = (/ &\n     &3.8572e+01_rb,3.3751e+01_rb,2.9960e+01_rb,2.8966e+01_rb,3.4093e+01_rb,4.2514e+01_rb, &\n     &5.1014e+01_rb,5.9516e+01_rb,6.8017e+01_rb/)\n      kao(:, 5,11,15) = (/ &\n     &3.9093e+01_rb,3.4206e+01_rb,3.0547e+01_rb,3.0263e+01_rb,3.6228e+01_rb,4.5245e+01_rb, &\n     &5.4290e+01_rb,6.3320e+01_rb,7.2371e+01_rb/)\n      kao(:, 1,12,15) = (/ &\n     &5.5475e+01_rb,4.8541e+01_rb,4.2038e+01_rb,3.6129e+01_rb,3.3332e+01_rb,3.5714e+01_rb, &\n     &4.2669e+01_rb,4.9771e+01_rb,5.6891e+01_rb/)\n      kao(:, 2,12,15) = (/ &\n     &5.6059e+01_rb,4.9052e+01_rb,4.2754e+01_rb,3.7078e+01_rb,3.5375e+01_rb,3.9558e+01_rb, &\n     &4.7442e+01_rb,5.5347e+01_rb,6.3258e+01_rb/)\n      kao(:, 3,12,15) = (/ &\n     &5.6760e+01_rb,4.9664e+01_rb,4.3494e+01_rb,3.8346e+01_rb,3.7575e+01_rb,4.3186e+01_rb, &\n     &5.1821e+01_rb,6.0453e+01_rb,6.9095e+01_rb/)\n      kao(:, 4,12,15) = (/ &\n     &5.7648e+01_rb,5.0443e+01_rb,4.4349e+01_rb,3.9649e+01_rb,3.9898e+01_rb,4.6561e+01_rb, &\n     &5.5869e+01_rb,6.5177e+01_rb,7.4491e+01_rb/)\n      kao(:, 5,12,15) = (/ &\n     &5.8564e+01_rb,5.1244e+01_rb,4.5202e+01_rb,4.0926e+01_rb,4.2120e+01_rb,4.9601e+01_rb, &\n     &5.9519e+01_rb,6.9433e+01_rb,7.9355e+01_rb/)\n      kao(:, 1,13,15) = (/ &\n     &6.5843e+01_rb,5.7608e+01_rb,4.9977e+01_rb,4.3124e+01_rb,3.8891e+01_rb,3.9628e+01_rb, &\n     &4.6579e+01_rb,5.4339e+01_rb,6.2102e+01_rb/)\n      kao(:, 2,13,15) = (/ &\n     &6.6934e+01_rb,5.8564e+01_rb,5.1105e+01_rb,4.4471e+01_rb,4.1117e+01_rb,4.3582e+01_rb, &\n     &5.1721e+01_rb,6.0334e+01_rb,6.8958e+01_rb/)\n      kao(:, 3,13,15) = (/ &\n     &6.8030e+01_rb,5.9532e+01_rb,5.2179e+01_rb,4.5978e+01_rb,4.3480e+01_rb,4.7374e+01_rb, &\n     &5.6498e+01_rb,6.5896e+01_rb,7.5328e+01_rb/)\n      kao(:, 4,13,15) = (/ &\n     &6.9202e+01_rb,6.0551e+01_rb,5.3246e+01_rb,4.7483e+01_rb,4.5884e+01_rb,5.0923e+01_rb, &\n     &6.0842e+01_rb,7.0980e+01_rb,8.1125e+01_rb/)\n      kao(:, 5,13,15) = (/ &\n     &7.0366e+01_rb,6.1567e+01_rb,5.4251e+01_rb,4.8884e+01_rb,4.8138e+01_rb,5.4098e+01_rb, &\n     &6.4681e+01_rb,7.5454e+01_rb,8.6236e+01_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &4.2680e-03_rb,4.0094e+00_rb,7.9109e+00_rb,1.1649e+01_rb,1.5123e+01_rb,1.8131e+01_rb, &\n     &2.0185e+01_rb,1.9759e+01_rb,3.0246e+01_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &4.1096e-03_rb,4.1769e+00_rb,8.2411e+00_rb,1.2134e+01_rb,1.5754e+01_rb,1.8883e+01_rb, &\n     &2.1013e+01_rb,2.0555e+01_rb,3.1509e+01_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &3.9552e-03_rb,4.3246e+00_rb,8.5324e+00_rb,1.2562e+01_rb,1.6307e+01_rb,1.9544e+01_rb, &\n     &2.1743e+01_rb,2.1252e+01_rb,3.2613e+01_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &3.8024e-03_rb,4.4537e+00_rb,8.7866e+00_rb,1.2936e+01_rb,1.6790e+01_rb,2.0122e+01_rb, &\n     &2.2380e+01_rb,2.1858e+01_rb,3.3579e+01_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &3.6530e-03_rb,4.5661e+00_rb,9.0077e+00_rb,1.3262e+01_rb,1.7211e+01_rb,2.0624e+01_rb, &\n     &2.2936e+01_rb,2.2383e+01_rb,3.4420e+01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &7.0518e-03_rb,4.7486e+00_rb,9.4112e+00_rb,1.3945e+01_rb,1.8257e+01_rb,2.2167e+01_rb, &\n     &2.5197e+01_rb,2.5646e+01_rb,3.6513e+01_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &6.7731e-03_rb,4.9653e+00_rb,9.8411e+00_rb,1.4578e+01_rb,1.9087e+01_rb,2.3173e+01_rb, &\n     &2.6338e+01_rb,2.6795e+01_rb,3.8174e+01_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &6.4989e-03_rb,5.1561e+00_rb,1.0219e+01_rb,1.5138e+01_rb,1.9822e+01_rb,2.4059e+01_rb, &\n     &2.7344e+01_rb,2.7802e+01_rb,3.9644e+01_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &6.2358e-03_rb,5.3229e+00_rb,1.0548e+01_rb,1.5628e+01_rb,2.0461e+01_rb,2.4836e+01_rb, &\n     &2.8225e+01_rb,2.8690e+01_rb,4.0921e+01_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &5.9777e-03_rb,5.4686e+00_rb,1.0838e+01_rb,1.6055e+01_rb,2.1017e+01_rb,2.5512e+01_rb, &\n     &2.8989e+01_rb,2.9460e+01_rb,4.2034e+01_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &1.5841e-02_rb,5.5685e+00_rb,1.1089e+01_rb,1.6529e+01_rb,2.1842e+01_rb,2.6900e+01_rb, &\n     &3.1365e+01_rb,3.3823e+01_rb,4.3684e+01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &1.5180e-02_rb,5.8535e+00_rb,1.1654e+01_rb,1.7376e+01_rb,2.2954e+01_rb,2.8269e+01_rb, &\n     &3.2966e+01_rb,3.5548e+01_rb,4.5909e+01_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &1.4542e-02_rb,6.1037e+00_rb,1.2154e+01_rb,1.8119e+01_rb,2.3939e+01_rb,2.9482e+01_rb, &\n     &3.4375e+01_rb,3.7061e+01_rb,4.7877e+01_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &1.3926e-02_rb,6.3236e+00_rb,1.2592e+01_rb,1.8771e+01_rb,2.4803e+01_rb,3.0545e+01_rb, &\n     &3.5612e+01_rb,3.8393e+01_rb,4.9606e+01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &1.3332e-02_rb,6.5149e+00_rb,1.2971e+01_rb,1.9341e+01_rb,2.5553e+01_rb,3.1470e+01_rb, &\n     &3.6691e+01_rb,3.9549e+01_rb,5.1106e+01_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &3.6504e-02_rb,6.4847e+00_rb,1.2941e+01_rb,1.9357e+01_rb,2.5697e+01_rb,3.1893e+01_rb, &\n     &3.7735e+01_rb,4.2276e+01_rb,5.1393e+01_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &3.4931e-02_rb,6.8562e+00_rb,1.3684e+01_rb,2.0466e+01_rb,2.7170e+01_rb,3.3719e+01_rb, &\n     &3.9896e+01_rb,4.4696e+01_rb,5.4340e+01_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &3.3404e-02_rb,7.1832e+00_rb,1.4337e+01_rb,2.1441e+01_rb,2.8465e+01_rb,3.5334e+01_rb, &\n     &4.1803e+01_rb,4.6838e+01_rb,5.6929e+01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &3.1940e-02_rb,7.4729e+00_rb,1.4911e+01_rb,2.2302e+01_rb,2.9607e+01_rb,3.6753e+01_rb, &\n     &4.3482e+01_rb,4.8710e+01_rb,5.9213e+01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &3.0537e-02_rb,7.7225e+00_rb,1.5413e+01_rb,2.3052e+01_rb,3.0605e+01_rb,3.7982e+01_rb, &\n     &4.4943e+01_rb,5.0367e+01_rb,6.1209e+01_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &7.7459e-02_rb,7.5153e+00_rb,1.5015e+01_rb,2.2490e+01_rb,2.9920e+01_rb,3.7263e+01_rb, &\n     &4.4388e+01_rb,5.0697e+01_rb,5.9839e+01_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &7.3973e-02_rb,7.9956e+00_rb,1.5974e+01_rb,2.3926e+01_rb,3.1831e+01_rb,3.9653e+01_rb, &\n     &4.7235e+01_rb,5.3936e+01_rb,6.3661e+01_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &7.0652e-02_rb,8.4194e+00_rb,1.6824e+01_rb,2.5198e+01_rb,3.3521e+01_rb,4.1754e+01_rb, &\n     &4.9742e+01_rb,5.6808e+01_rb,6.7041e+01_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &6.7486e-02_rb,8.7920e+00_rb,1.7565e+01_rb,2.6310e+01_rb,3.5003e+01_rb,4.3595e+01_rb, &\n     &5.1933e+01_rb,5.9317e+01_rb,7.0006e+01_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &6.4478e-02_rb,9.1159e+00_rb,1.8215e+01_rb,2.7284e+01_rb,3.6299e+01_rb,4.5208e+01_rb, &\n     &5.3851e+01_rb,6.1525e+01_rb,7.2598e+01_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &1.5475e-01_rb,8.6422e+00_rb,1.7275e+01_rb,2.5892e+01_rb,3.4482e+01_rb,4.3028e+01_rb, &\n     &5.1423e+01_rb,5.9299e+01_rb,6.8964e+01_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &1.4760e-01_rb,9.2603e+00_rb,1.8510e+01_rb,2.7740e+01_rb,3.6952e+01_rb,4.6093e+01_rb, &\n     &5.5105e+01_rb,6.3549e+01_rb,7.3905e+01_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &1.4090e-01_rb,9.8052e+00_rb,1.9599e+01_rb,2.9376e+01_rb,3.9123e+01_rb,4.8807e+01_rb, &\n     &5.8340e+01_rb,6.7288e+01_rb,7.8246e+01_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &1.3455e-01_rb,1.0284e+01_rb,2.0553e+01_rb,3.0809e+01_rb,4.1029e+01_rb,5.1188e+01_rb, &\n     &6.1191e+01_rb,7.0573e+01_rb,8.2057e+01_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &1.2855e-01_rb,1.0696e+01_rb,2.1381e+01_rb,3.2059e+01_rb,4.2695e+01_rb,5.3257e+01_rb, &\n     &6.3651e+01_rb,7.3440e+01_rb,8.5390e+01_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &3.2765e-01_rb,9.8708e+00_rb,1.9738e+01_rb,2.9598e+01_rb,3.9436e+01_rb,4.9244e+01_rb, &\n     &5.8981e+01_rb,6.8395e+01_rb,7.8872e+01_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &3.1237e-01_rb,1.0655e+01_rb,2.1308e+01_rb,3.1948e+01_rb,4.2573e+01_rb,5.3154e+01_rb, &\n     &6.3663e+01_rb,7.3848e+01_rb,8.5146e+01_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &2.9817e-01_rb,1.1348e+01_rb,2.2690e+01_rb,3.4027e+01_rb,4.5330e+01_rb,5.6613e+01_rb, &\n     &6.7816e+01_rb,7.8654e+01_rb,9.0660e+01_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &2.8488e-01_rb,1.1956e+01_rb,2.3907e+01_rb,3.5845e+01_rb,4.7755e+01_rb,5.9649e+01_rb, &\n     &7.1415e+01_rb,8.2866e+01_rb,9.5510e+01_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &2.7283e-01_rb,1.2480e+01_rb,2.4950e+01_rb,3.7415e+01_rb,4.9097e+01_rb,6.2266e+01_rb, &\n     &7.4578e+01_rb,8.6491e+01_rb,9.9702e+01_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &8.3606e-01_rb,1.1195e+01_rb,2.2388e+01_rb,3.3574e+01_rb,4.4755e+01_rb,5.5920e+01_rb, &\n     &6.7048e+01_rb,7.8029e+01_rb,8.9508e+01_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &7.9798e-01_rb,1.2177e+01_rb,2.4351e+01_rb,3.6522e+01_rb,4.8685e+01_rb,6.0830e+01_rb, &\n     &7.2963e+01_rb,8.4892e+01_rb,9.7369e+01_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &7.6304e-01_rb,1.3047e+01_rb,2.6090e+01_rb,3.9130e+01_rb,5.2156e+01_rb,6.5163e+01_rb, &\n     &7.8140e+01_rb,9.0945e+01_rb,1.0431e+02_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &7.3296e-01_rb,1.3800e+01_rb,2.7601e+01_rb,4.1393e+01_rb,5.5174e+01_rb,6.8947e+01_rb, &\n     &8.2670e+01_rb,9.6216e+01_rb,1.1035e+02_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &7.2250e-01_rb,1.4453e+01_rb,2.8899e+01_rb,4.3348e+01_rb,5.7784e+01_rb,7.2193e+01_rb, &\n     &8.6582e+01_rb,1.0076e+02_rb,1.1557e+02_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &4.0611e+00_rb,1.2573e+01_rb,2.5149e+01_rb,3.7721e+01_rb,5.0293e+01_rb,6.2854e+01_rb, &\n     &7.5422e+01_rb,8.7942e+01_rb,1.0059e+02_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &3.8919e+00_rb,1.3793e+01_rb,2.7583e+01_rb,4.1373e+01_rb,5.5157e+01_rb,6.8943e+01_rb, &\n     &8.2722e+01_rb,9.6458e+01_rb,1.1031e+02_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &3.7505e+00_rb,1.4863e+01_rb,2.9722e+01_rb,4.4587e+01_rb,5.9447e+01_rb,7.4303e+01_rb, &\n     &8.9145e+01_rb,1.0395e+02_rb,1.1889e+02_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &3.6915e+00_rb,1.5793e+01_rb,3.1587e+01_rb,4.7379e+01_rb,6.3167e+01_rb,7.8955e+01_rb, &\n     &9.4727e+01_rb,1.1046e+02_rb,1.2634e+02_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &3.8118e+00_rb,1.6590e+01_rb,3.3180e+01_rb,4.9767e+01_rb,6.6364e+01_rb,8.2935e+01_rb, &\n     &9.9506e+01_rb,1.1603e+02_rb,1.3273e+02_rb/)\n      kao(:, 1,10,16) = (/ &\n     &2.2252e+01_rb,1.9469e+01_rb,2.8181e+01_rb,4.2271e+01_rb,5.6359e+01_rb,7.0451e+01_rb, &\n     &8.4538e+01_rb,9.8612e+01_rb,1.1272e+02_rb/)\n      kao(:, 2,10,16) = (/ &\n     &2.1525e+01_rb,1.8834e+01_rb,3.1126e+01_rb,4.6690e+01_rb,6.2252e+01_rb,7.7813e+01_rb, &\n     &9.3373e+01_rb,1.0893e+02_rb,1.2450e+02_rb/)\n      kao(:, 3,10,16) = (/ &\n     &2.1146e+01_rb,1.8632e+01_rb,3.3699e+01_rb,5.0550e+01_rb,6.7413e+01_rb,8.4265e+01_rb, &\n     &1.0112e+02_rb,1.1795e+02_rb,1.3483e+02_rb/)\n      kao(:, 4,10,16) = (/ &\n     &2.1709e+01_rb,1.9529e+01_rb,3.5926e+01_rb,5.3893e+01_rb,7.1851e+01_rb,8.9812e+01_rb, &\n     &1.0777e+02_rb,1.2572e+02_rb,1.4370e+02_rb/)\n      kao(:, 5,10,16) = (/ &\n     &2.2565e+01_rb,2.0486e+01_rb,3.7826e+01_rb,5.6738e+01_rb,7.5652e+01_rb,9.4560e+01_rb, &\n     &1.1347e+02_rb,1.3237e+02_rb,1.5131e+02_rb/)\n      kao(:, 1,11,16) = (/ &\n     &4.2772e+01_rb,3.7423e+01_rb,3.4479e+01_rb,4.9359e+01_rb,6.5807e+01_rb,8.2260e+01_rb, &\n     &9.8714e+01_rb,1.1516e+02_rb,1.3161e+02_rb/)\n      kao(:, 2,11,16) = (/ &\n     &4.2480e+01_rb,3.7168e+01_rb,3.6886e+01_rb,5.4309e+01_rb,7.2413e+01_rb,9.0516e+01_rb, &\n     &1.0859e+02_rb,1.2671e+02_rb,1.4483e+02_rb/)\n      kao(:, 3,11,16) = (/ &\n     &4.3695e+01_rb,3.8234e+01_rb,3.9646e+01_rb,5.8582e+01_rb,7.8105e+01_rb,9.7632e+01_rb, &\n     &1.1715e+02_rb,1.3667e+02_rb,1.5621e+02_rb/)\n      kao(:, 4,11,16) = (/ &\n     &4.5497e+01_rb,3.9810e+01_rb,4.2112e+01_rb,6.2236e+01_rb,8.2974e+01_rb,1.0371e+02_rb, &\n     &1.2447e+02_rb,1.4520e+02_rb,1.6595e+02_rb/)\n      kao(:, 5,11,16) = (/ &\n     &4.7319e+01_rb,4.1402e+01_rb,4.4245e+01_rb,6.5288e+01_rb,8.7037e+01_rb,1.0880e+02_rb, &\n     &1.3053e+02_rb,1.5228e+02_rb,1.7407e+02_rb/)\n      kao(:, 1,12,16) = (/ &\n     &6.3760e+01_rb,5.5793e+01_rb,4.7823e+01_rb,5.6928e+01_rb,7.5904e+01_rb,9.4850e+01_rb, &\n     &1.1385e+02_rb,1.3279e+02_rb,1.5181e+02_rb/)\n      kao(:, 2,12,16) = (/ &\n     &6.5427e+01_rb,5.7247e+01_rb,4.9649e+01_rb,6.2349e+01_rb,8.3126e+01_rb,1.0392e+02_rb, &\n     &1.2469e+02_rb,1.4546e+02_rb,1.6625e+02_rb/)\n      kao(:, 3,12,16) = (/ &\n     &6.8202e+01_rb,5.9674e+01_rb,5.2535e+01_rb,6.6975e+01_rb,8.9301e+01_rb,1.1163e+02_rb, &\n     &1.3393e+02_rb,1.5627e+02_rb,1.7860e+02_rb/)\n      kao(:, 4,12,16) = (/ &\n     &7.0922e+01_rb,6.2055e+01_rb,5.5321e+01_rb,7.0905e+01_rb,9.4539e+01_rb,1.1818e+02_rb, &\n     &1.4181e+02_rb,1.6544e+02_rb,1.8908e+02_rb/)\n      kao(:, 5,12,16) = (/ &\n     &7.3649e+01_rb,6.4442e+01_rb,5.7813e+01_rb,7.4307e+01_rb,9.9092e+01_rb,1.2384e+02_rb, &\n     &1.4863e+02_rb,1.7339e+02_rb,1.9818e+02_rb/)\n      kao(:, 1,13,16) = (/ &\n     &7.8782e+01_rb,6.8941e+01_rb,5.9088e+01_rb,6.5861e+01_rb,8.6369e+01_rb,1.0796e+02_rb, &\n     &1.2954e+02_rb,1.5113e+02_rb,1.7274e+02_rb/)\n      kao(:, 2,13,16) = (/ &\n     &8.1731e+01_rb,7.1509e+01_rb,6.1634e+01_rb,7.1635e+01_rb,9.4482e+01_rb,1.1810e+02_rb, &\n     &1.4170e+02_rb,1.6534e+02_rb,1.8896e+02_rb/)\n      kao(:, 3,13,16) = (/ &\n     &8.5240e+01_rb,7.4588e+01_rb,6.4915e+01_rb,7.6648e+01_rb,1.0154e+02_rb,1.2693e+02_rb, &\n     &1.5232e+02_rb,1.7766e+02_rb,2.0308e+02_rb/)\n      kao(:, 4,13,16) = (/ &\n     &8.8622e+01_rb,7.7543e+01_rb,6.7967e+01_rb,8.0867e+01_rb,1.0759e+02_rb,1.3449e+02_rb, &\n     &1.6139e+02_rb,1.8828e+02_rb,2.1519e+02_rb/)\n      kao(:, 5,13,16) = (/ &\n     &9.1737e+01_rb,8.0288e+01_rb,7.0891e+01_rb,8.4742e+01_rb,1.1298e+02_rb,1.4117e+02_rb, &\n     &1.6939e+02_rb,1.9762e+02_rb,2.2595e+02_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &1.4739e-04_rb,3.1686e-04_rb,8.5973e-04_rb,1.9039e-03_rb,3.1820e-03_rb,3.6596e-03_rb, &\n     &3.8724e-03_rb,3.6785e-03_rb,3.7141e-03_rb,3.7646e-03_rb,4.2955e-03_rb,4.6343e-03_rb, &\n     &5.0612e-03_rb,4.0227e-03_rb,4.2966e-03_rb,4.6622e-03_rb/)\n      forrefo(2,:) = (/ &\n     &1.9397e-04_rb,3.6322e-04_rb,8.9797e-04_rb,2.1001e-03_rb,3.0307e-03_rb,3.5563e-03_rb, &\n     &3.8498e-03_rb,3.5741e-03_rb,3.5914e-03_rb,3.7658e-03_rb,3.8895e-03_rb,4.4072e-03_rb, &\n     &4.7112e-03_rb,4.2230e-03_rb,4.2666e-03_rb,4.6634e-03_rb/)\n      forrefo(3,:) = (/ &\n     &3.1506e-04_rb,7.3687e-04_rb,1.9678e-03_rb,2.5531e-03_rb,2.8345e-03_rb,2.7809e-03_rb, &\n     &2.9124e-03_rb,2.7125e-03_rb,2.6644e-03_rb,2.4907e-03_rb,2.7032e-03_rb,4.0967e-03_rb, &\n     &4.1971e-03_rb,4.4507e-03_rb,4.2293e-03_rb,4.6633e-03_rb/)\n      forrefo(4,:) = (/ &\n     &8.8196e-04_rb,2.1125e-03_rb,2.8042e-03_rb,2.8891e-03_rb,2.4362e-03_rb,1.8733e-03_rb, &\n     &1.4078e-03_rb,1.1987e-03_rb,1.2808e-03_rb,8.9050e-04_rb,9.4375e-04_rb,7.8351e-04_rb, &\n     &1.0756e-03_rb,1.6586e-03_rb,1.7511e-03_rb,4.7803e-03_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 2.37879e-02_rb, 2.10719e-02_rb, 1.86660e-02_rb, 1.65348e-02_rb, 1.46469e-02_rb, &\n     & 1.29746e-02_rb, 1.14932e-02_rb, 1.01810e-02_rb, 9.01858e-03_rb, 7.98888e-03_rb/)\n      selfrefo(:, 2) = (/ &\n     & 3.10625e-02_rb, 2.82664e-02_rb, 2.57220e-02_rb, 2.34066e-02_rb, 2.12997e-02_rb, &\n     & 1.93824e-02_rb, 1.76377e-02_rb, 1.60500e-02_rb, 1.46053e-02_rb, 1.32906e-02_rb/)\n      selfrefo(:, 3) = (/ &\n     & 5.19103e-02_rb, 4.80004e-02_rb, 4.43850e-02_rb, 4.10419e-02_rb, 3.79506e-02_rb, &\n     & 3.50922e-02_rb, 3.24491e-02_rb, 3.00050e-02_rb, 2.77450e-02_rb, 2.56553e-02_rb/)\n      selfrefo(:, 4) = (/ &\n     & 9.12444e-02_rb, 8.38675e-02_rb, 7.70870e-02_rb, 7.08547e-02_rb, 6.51263e-02_rb, &\n     & 5.98610e-02_rb, 5.50214e-02_rb, 5.05730e-02_rb, 4.64843e-02_rb, 4.27262e-02_rb/)\n      selfrefo(:, 5) = (/ &\n     & 1.11323e-01_rb, 1.04217e-01_rb, 9.75650e-02_rb, 9.13376e-02_rb, 8.55076e-02_rb, &\n     & 8.00498e-02_rb, 7.49403e-02_rb, 7.01570e-02_rb, 6.56790e-02_rb, 6.14868e-02_rb/)\n      selfrefo(:, 6) = (/ &\n     & 1.25301e-01_rb, 1.16877e-01_rb, 1.09020e-01_rb, 1.01691e-01_rb, 9.48543e-02_rb, &\n     & 8.84774e-02_rb, 8.25293e-02_rb, 7.69810e-02_rb, 7.18057e-02_rb, 6.69784e-02_rb/)\n      selfrefo(:, 7) = (/ &\n     & 1.34063e-01_rb, 1.24662e-01_rb, 1.15920e-01_rb, 1.07791e-01_rb, 1.00232e-01_rb, &\n     & 9.32035e-02_rb, 8.66676e-02_rb, 8.05900e-02_rb, 7.49386e-02_rb, 6.96836e-02_rb/)\n      selfrefo(:, 8) = (/ &\n     & 1.26997e-01_rb, 1.18306e-01_rb, 1.10210e-01_rb, 1.02668e-01_rb, 9.56417e-02_rb, &\n     & 8.90964e-02_rb, 8.29991e-02_rb, 7.73190e-02_rb, 7.20276e-02_rb, 6.70984e-02_rb/)\n      selfrefo(:, 9) = (/ &\n     & 1.28823e-01_rb, 1.20235e-01_rb, 1.12220e-01_rb, 1.04739e-01_rb, 9.77569e-02_rb, &\n     & 9.12402e-02_rb, 8.51579e-02_rb, 7.94810e-02_rb, 7.41826e-02_rb, 6.92374e-02_rb/)\n      selfrefo(:,10) = (/ &\n     & 1.35802e-01_rb, 1.25981e-01_rb, 1.16870e-01_rb, 1.08418e-01_rb, 1.00577e-01_rb, &\n     & 9.33034e-02_rb, 8.65557e-02_rb, 8.02960e-02_rb, 7.44890e-02_rb, 6.91020e-02_rb/)\n      selfrefo(:,11) = (/ &\n     & 1.35475e-01_rb, 1.27572e-01_rb, 1.20130e-01_rb, 1.13122e-01_rb, 1.06523e-01_rb, &\n     & 1.00309e-01_rb, 9.44573e-02_rb, 8.89470e-02_rb, 8.37582e-02_rb, 7.88721e-02_rb/)\n      selfrefo(:,12) = (/ &\n     & 1.51195e-01_rb, 1.41159e-01_rb, 1.31790e-01_rb, 1.23043e-01_rb, 1.14876e-01_rb, &\n     & 1.07251e-01_rb, 1.00132e-01_rb, 9.34860e-02_rb, 8.72809e-02_rb, 8.14877e-02_rb/)\n      selfrefo(:,13) = (/ &\n     & 1.57538e-01_rb, 1.47974e-01_rb, 1.38990e-01_rb, 1.30552e-01_rb, 1.22626e-01_rb, &\n     & 1.15181e-01_rb, 1.08188e-01_rb, 1.01620e-01_rb, 9.54505e-02_rb, 8.96556e-02_rb/)\n      selfrefo(:,14) = (/ &\n     & 1.53567e-01_rb, 1.41564e-01_rb, 1.30500e-01_rb, 1.20300e-01_rb, 1.10898e-01_rb, &\n     & 1.02231e-01_rb, 9.42406e-02_rb, 8.68750e-02_rb, 8.00851e-02_rb, 7.38259e-02_rb/)\n      selfrefo(:,15) = (/ &\n     & 1.53687e-01_rb, 1.42981e-01_rb, 1.33020e-01_rb, 1.23753e-01_rb, 1.15132e-01_rb, &\n     & 1.07112e-01_rb, 9.96500e-02_rb, 9.27080e-02_rb, 8.62496e-02_rb, 8.02412e-02_rb/)\n      selfrefo(:,16) = (/ &\n     & 1.65129e-01_rb, 1.53285e-01_rb, 1.42290e-01_rb, 1.32084e-01_rb, 1.22610e-01_rb, &\n     & 1.13815e-01_rb, 1.05651e-01_rb, 9.80730e-02_rb, 9.10384e-02_rb, 8.45083e-02_rb/)\n\n      end subroutine lw_kgb12\n\n! **************************************************************************\n      subroutine lw_kgb13\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg13, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mco, &\n                            kbo_mo3, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P=473.4280 mb, T = 259.83 K      \n      fracrefao(:, 1) = (/ &\n     &  1.7534e-01_rb,1.7394e-01_rb,1.6089e-01_rb,1.3782e-01_rb,1.0696e-01_rb,8.5853e-02_rb, &\n     &  6.6548e-02_rb,4.9053e-02_rb,3.2064e-02_rb,3.4820e-03_rb,2.8763e-03_rb,2.2204e-03_rb, &\n     &  1.5612e-03_rb,9.8572e-04_rb,3.6853e-04_rb,5.1612e-05_rb/)\n      fracrefao(:, 2) = (/ &\n     &  1.7489e-01_rb,1.7309e-01_rb,1.5981e-01_rb,1.3782e-01_rb,1.0797e-01_rb,8.6367e-02_rb, &\n     &  6.7042e-02_rb,4.9257e-02_rb,3.2207e-02_rb,3.4820e-03_rb,2.8767e-03_rb,2.2203e-03_rb, &\n     &  1.5613e-03_rb,9.8571e-04_rb,3.6853e-04_rb,5.1612e-05_rb/)\n      fracrefao(:, 3) = (/ &\n     &  1.7459e-01_rb,1.7259e-01_rb,1.5948e-01_rb,1.3694e-01_rb,1.0815e-01_rb,8.7376e-02_rb, &\n     &  6.7339e-02_rb,4.9541e-02_rb,3.2333e-02_rb,3.5019e-03_rb,2.8958e-03_rb,2.2527e-03_rb, &\n     &  1.6099e-03_rb,9.8574e-04_rb,3.6853e-04_rb,5.1612e-05_rb/)\n      fracrefao(:, 4) = (/ &\n     &  1.7391e-01_rb,1.7244e-01_rb,1.5921e-01_rb,1.3644e-01_rb,1.0787e-01_rb,8.7776e-02_rb, &\n     &  6.8361e-02_rb,4.9628e-02_rb,3.2578e-02_rb,3.5117e-03_rb,2.9064e-03_rb,2.2571e-03_rb, &\n     &  1.6887e-03_rb,1.0045e-03_rb,3.6853e-04_rb,5.1612e-05_rb/)\n      fracrefao(:, 5) = (/ &\n     &  1.7338e-01_rb,1.7157e-01_rb,1.5957e-01_rb,1.3571e-01_rb,1.0773e-01_rb,8.7966e-02_rb, &\n     &  6.9000e-02_rb,5.0300e-02_rb,3.2813e-02_rb,3.5470e-03_rb,2.9425e-03_rb,2.2552e-03_rb, &\n     &  1.7038e-03_rb,1.1025e-03_rb,3.6853e-04_rb,5.1612e-05_rb/)\n      fracrefao(:, 6) = (/ &\n     &  1.7230e-01_rb,1.7082e-01_rb,1.5917e-01_rb,1.3562e-01_rb,1.0806e-01_rb,8.7635e-02_rb, &\n     &  6.9815e-02_rb,5.1155e-02_rb,3.3139e-02_rb,3.6264e-03_rb,2.9436e-03_rb,2.3417e-03_rb, &\n     &  1.7731e-03_rb,1.1156e-03_rb,4.4533e-04_rb,5.1612e-05_rb/)\n      fracrefao(:, 7) = (/ &\n     &  1.7073e-01_rb,1.6961e-01_rb,1.5844e-01_rb,1.3594e-01_rb,1.0821e-01_rb,8.7791e-02_rb, &\n     &  7.0502e-02_rb,5.1904e-02_rb,3.4107e-02_rb,3.5888e-03_rb,2.9574e-03_rb,2.5851e-03_rb, &\n     &  1.9127e-03_rb,1.1537e-03_rb,4.7789e-04_rb,1.0016e-04_rb/)\n      fracrefao(:, 8) = (/ &\n     &  1.6700e-01_rb,1.6848e-01_rb,1.5628e-01_rb,1.3448e-01_rb,1.1011e-01_rb,8.9016e-02_rb, &\n     &  7.1973e-02_rb,5.2798e-02_rb,3.5650e-02_rb,3.8534e-03_rb,3.4142e-03_rb,2.7799e-03_rb, &\n     &  2.1288e-03_rb,1.3043e-03_rb,6.2858e-04_rb,1.0016e-04_rb/)\n      fracrefao(:, 9) = (/ &\n     &  1.6338e-01_rb,1.5565e-01_rb,1.4470e-01_rb,1.3500e-01_rb,1.1909e-01_rb,9.8312e-02_rb, &\n     &  7.9023e-02_rb,5.5728e-02_rb,3.6831e-02_rb,3.6569e-03_rb,3.0552e-03_rb,2.3431e-03_rb, &\n     &  1.7088e-03_rb,1.1082e-03_rb,3.6829e-04_rb,5.1612e-05_rb/)\n\n! Planck fraction mapping level : P=4.758820 mb, T = 250.85 K\n      fracrefbo(:) = (/ &\n     &  1.5411e-01_rb,1.3573e-01_rb,1.2527e-01_rb,1.2698e-01_rb,1.2394e-01_rb,1.0876e-01_rb, &\n     &  8.9906e-02_rb,6.9551e-02_rb,4.8240e-02_rb,5.2434e-03_rb,4.3630e-03_rb,3.4262e-03_rb, &\n     &  2.5124e-03_rb,1.5479e-03_rb,3.7294e-04_rb,5.1050e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &6.4065e-07_rb,1.0419e-05_rb,1.7041e-05_rb,2.3341e-05_rb,2.9288e-05_rb,3.6860e-05_rb, &\n     &5.2289e-05_rb,7.6369e-05_rb,2.2034e-05_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &7.4425e-07_rb,1.2994e-05_rb,2.1634e-05_rb,2.9437e-05_rb,3.6128e-05_rb,4.4577e-05_rb, &\n     &5.5507e-05_rb,7.3010e-05_rb,3.0368e-05_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &9.1477e-07_rb,1.6195e-05_rb,2.7037e-05_rb,3.6851e-05_rb,4.4956e-05_rb,5.3696e-05_rb, &\n     &6.5423e-05_rb,7.7959e-05_rb,3.9940e-05_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &1.0920e-06_rb,2.0021e-05_rb,3.3475e-05_rb,4.5528e-05_rb,5.5351e-05_rb,6.4790e-05_rb, &\n     &7.8460e-05_rb,9.0393e-05_rb,5.1295e-05_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &1.3489e-06_rb,2.4363e-05_rb,4.1025e-05_rb,5.5638e-05_rb,6.7646e-05_rb,7.8828e-05_rb, &\n     &9.2175e-05_rb,1.0262e-04_rb,6.4740e-05_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &9.4474e-07_rb,9.5739e-06_rb,1.4537e-05_rb,1.9319e-05_rb,2.3955e-05_rb,2.8125e-05_rb, &\n     &3.4867e-05_rb,5.4010e-05_rb,1.9403e-05_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &1.1323e-06_rb,1.1739e-05_rb,1.8325e-05_rb,2.4542e-05_rb,3.0201e-05_rb,3.5031e-05_rb, &\n     &4.2528e-05_rb,5.9167e-05_rb,2.5395e-05_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &1.3451e-06_rb,1.4450e-05_rb,2.3075e-05_rb,3.0847e-05_rb,3.7507e-05_rb,4.3224e-05_rb, &\n     &5.0526e-05_rb,6.6079e-05_rb,3.2769e-05_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &1.6171e-06_rb,1.7819e-05_rb,2.8678e-05_rb,3.8333e-05_rb,4.6715e-05_rb,5.3613e-05_rb, &\n     &6.0668e-05_rb,7.1518e-05_rb,4.1642e-05_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &1.9441e-06_rb,2.1692e-05_rb,3.5243e-05_rb,4.7173e-05_rb,5.7398e-05_rb,6.5939e-05_rb, &\n     &7.3567e-05_rb,8.2891e-05_rb,5.2140e-05_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &1.9997e-06_rb,1.0333e-05_rb,1.4351e-05_rb,1.7071e-05_rb,1.9818e-05_rb,2.2671e-05_rb, &\n     &2.5587e-05_rb,3.3080e-05_rb,2.1440e-05_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &2.2813e-06_rb,1.2534e-05_rb,1.7541e-05_rb,2.1448e-05_rb,2.5145e-05_rb,2.8879e-05_rb, &\n     &3.1889e-05_rb,3.7831e-05_rb,2.6738e-05_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &2.7401e-06_rb,1.5206e-05_rb,2.1444e-05_rb,2.7039e-05_rb,3.1929e-05_rb,3.6455e-05_rb, &\n     &3.9620e-05_rb,4.6057e-05_rb,3.1366e-05_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &3.2871e-06_rb,1.8031e-05_rb,2.6416e-05_rb,3.3815e-05_rb,3.9999e-05_rb,4.5410e-05_rb, &\n     &4.9342e-05_rb,5.4203e-05_rb,3.7064e-05_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &3.8869e-06_rb,2.1455e-05_rb,3.2368e-05_rb,4.1756e-05_rb,4.9581e-05_rb,5.6093e-05_rb, &\n     &6.1027e-05_rb,6.5117e-05_rb,4.4920e-05_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &4.3610e-06_rb,1.3316e-05_rb,1.6242e-05_rb,1.8257e-05_rb,1.9350e-05_rb,2.0037e-05_rb, &\n     &2.0833e-05_rb,2.3040e-05_rb,2.2366e-05_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &5.0348e-06_rb,1.5693e-05_rb,1.9649e-05_rb,2.2560e-05_rb,2.3970e-05_rb,2.5222e-05_rb, &\n     &2.6081e-05_rb,2.7399e-05_rb,2.7623e-05_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &5.7893e-06_rb,1.8717e-05_rb,2.3542e-05_rb,2.7248e-05_rb,2.9677e-05_rb,3.1779e-05_rb, &\n     &3.2973e-05_rb,3.3876e-05_rb,3.4347e-05_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &6.7700e-06_rb,2.2355e-05_rb,2.8015e-05_rb,3.2751e-05_rb,3.6706e-05_rb,3.9566e-05_rb, &\n     &4.1488e-05_rb,4.1986e-05_rb,4.0984e-05_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &8.0207e-06_rb,2.6505e-05_rb,3.3421e-05_rb,3.9357e-05_rb,4.5121e-05_rb,4.9003e-05_rb, &\n     &5.1776e-05_rb,5.2148e-05_rb,4.7085e-05_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &8.6602e-06_rb,1.8553e-05_rb,2.0839e-05_rb,2.1788e-05_rb,2.1544e-05_rb,2.1077e-05_rb, &\n     &1.9473e-05_rb,1.8495e-05_rb,2.3671e-05_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &9.9810e-06_rb,2.2031e-05_rb,2.4930e-05_rb,2.6247e-05_rb,2.6462e-05_rb,2.6137e-05_rb, &\n     &2.4415e-05_rb,2.2553e-05_rb,2.8177e-05_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &1.1619e-05_rb,2.6356e-05_rb,2.9247e-05_rb,3.1562e-05_rb,3.1911e-05_rb,3.1801e-05_rb, &\n     &3.0166e-05_rb,2.7978e-05_rb,3.2481e-05_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &1.3216e-05_rb,3.1104e-05_rb,3.4868e-05_rb,3.7332e-05_rb,3.8497e-05_rb,3.8279e-05_rb, &\n     &3.7615e-05_rb,3.4834e-05_rb,3.8514e-05_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &1.5414e-05_rb,3.5706e-05_rb,4.1155e-05_rb,4.4051e-05_rb,4.6023e-05_rb,4.6762e-05_rb, &\n     &4.6430e-05_rb,4.3490e-05_rb,4.6117e-05_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &1.6458e-05_rb,2.5684e-05_rb,2.8012e-05_rb,2.7844e-05_rb,2.6244e-05_rb,2.4237e-05_rb, &\n     &2.0656e-05_rb,1.6798e-05_rb,2.3796e-05_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &1.8595e-05_rb,3.0385e-05_rb,3.3443e-05_rb,3.3768e-05_rb,3.2056e-05_rb,2.9483e-05_rb, &\n     &2.5851e-05_rb,2.0866e-05_rb,2.8662e-05_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &2.1348e-05_rb,3.6540e-05_rb,3.9601e-05_rb,3.9640e-05_rb,3.8210e-05_rb,3.5898e-05_rb, &\n     &3.1968e-05_rb,2.5765e-05_rb,3.3968e-05_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &2.4741e-05_rb,4.2510e-05_rb,4.6979e-05_rb,4.6425e-05_rb,4.6165e-05_rb,4.2824e-05_rb, &\n     &3.8814e-05_rb,3.1863e-05_rb,3.8072e-05_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &2.8527e-05_rb,5.0183e-05_rb,5.5064e-05_rb,5.5234e-05_rb,5.4182e-05_rb,5.0966e-05_rb, &\n     &4.6758e-05_rb,3.9447e-05_rb,4.4935e-05_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &3.2476e-05_rb,3.8679e-05_rb,3.9032e-05_rb,3.7741e-05_rb,3.4552e-05_rb,2.9807e-05_rb, &\n     &2.4164e-05_rb,1.7294e-05_rb,2.4102e-05_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &3.6570e-05_rb,4.6320e-05_rb,4.7537e-05_rb,4.6067e-05_rb,4.2268e-05_rb,3.6503e-05_rb, &\n     &3.0476e-05_rb,2.2134e-05_rb,2.9448e-05_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &4.1124e-05_rb,5.4270e-05_rb,5.7210e-05_rb,5.5312e-05_rb,5.2106e-05_rb,4.5231e-05_rb, &\n     &3.7737e-05_rb,2.7811e-05_rb,3.4668e-05_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &4.8133e-05_rb,6.4794e-05_rb,6.7628e-05_rb,6.6254e-05_rb,6.2299e-05_rb,5.4379e-05_rb, &\n     &4.5931e-05_rb,3.4327e-05_rb,4.1743e-05_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &5.5532e-05_rb,7.7694e-05_rb,8.0423e-05_rb,7.9418e-05_rb,7.2354e-05_rb,6.4221e-05_rb, &\n     &5.4806e-05_rb,4.1684e-05_rb,4.8759e-05_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &7.4902e-05_rb,7.7106e-05_rb,7.0826e-05_rb,6.4010e-05_rb,5.5968e-05_rb,4.6986e-05_rb, &\n     &3.6409e-05_rb,2.2524e-05_rb,2.8079e-05_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &8.5067e-05_rb,8.8842e-05_rb,8.3769e-05_rb,7.6787e-05_rb,6.8134e-05_rb,5.7821e-05_rb, &\n     &4.4557e-05_rb,2.8824e-05_rb,3.6133e-05_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &9.7879e-05_rb,1.0460e-04_rb,9.9884e-05_rb,9.2458e-05_rb,8.3229e-05_rb,7.0097e-05_rb, &\n     &5.5355e-05_rb,3.6496e-05_rb,4.1979e-05_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &1.1321e-04_rb,1.2375e-04_rb,1.2003e-04_rb,1.1241e-04_rb,1.0088e-04_rb,8.6080e-05_rb, &\n     &6.8531e-05_rb,4.5034e-05_rb,5.0526e-05_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &1.3142e-04_rb,1.5020e-04_rb,1.4626e-04_rb,1.3653e-04_rb,1.2235e-04_rb,1.0518e-04_rb, &\n     &8.2469e-05_rb,5.5412e-05_rb,6.0484e-05_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &3.0190e-04_rb,2.8195e-04_rb,2.5208e-04_rb,2.1662e-04_rb,1.7929e-04_rb,1.4025e-04_rb, &\n     &1.0049e-04_rb,5.8291e-05_rb,3.9381e-05_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &3.5007e-04_rb,3.2966e-04_rb,2.9418e-04_rb,2.5482e-04_rb,2.1206e-04_rb,1.6775e-04_rb, &\n     &1.2208e-04_rb,7.2618e-05_rb,5.1006e-05_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &4.1355e-04_rb,3.9069e-04_rb,3.5043e-04_rb,3.0530e-04_rb,2.5611e-04_rb,2.0488e-04_rb, &\n     &1.4964e-04_rb,8.8870e-05_rb,6.5960e-05_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &4.9093e-04_rb,4.6398e-04_rb,4.1726e-04_rb,3.6373e-04_rb,3.0710e-04_rb,2.4775e-04_rb, &\n     &1.8258e-04_rb,1.0881e-04_rb,8.2307e-05_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &5.8022e-04_rb,5.5027e-04_rb,5.0137e-04_rb,4.3986e-04_rb,3.7225e-04_rb,2.9865e-04_rb, &\n     &2.2079e-04_rb,1.3406e-04_rb,9.5285e-05_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &1.2883e-03_rb,1.1451e-03_rb,9.9720e-04_rb,8.4603e-04_rb,6.8855e-04_rb,5.2856e-04_rb, &\n     &3.6226e-04_rb,1.9198e-04_rb,7.4637e-05_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &1.5104e-03_rb,1.3471e-03_rb,1.1771e-03_rb,9.9916e-04_rb,8.1528e-04_rb,6.2425e-04_rb, &\n     &4.3021e-04_rb,2.3018e-04_rb,8.8724e-05_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &1.8167e-03_rb,1.6260e-03_rb,1.4233e-03_rb,1.2086e-03_rb,9.8644e-04_rb,7.6173e-04_rb, &\n     &5.2737e-04_rb,2.8610e-04_rb,1.0717e-04_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &2.2177e-03_rb,1.9922e-03_rb,1.7424e-03_rb,1.4817e-03_rb,1.2127e-03_rb,9.3691e-04_rb, &\n     &6.5292e-04_rb,3.5708e-04_rb,1.2411e-04_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &2.7210e-03_rb,2.4399e-03_rb,2.1395e-03_rb,1.8137e-03_rb,1.4859e-03_rb,1.1551e-03_rb, &\n     &8.0975e-04_rb,4.4504e-04_rb,1.4851e-04_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &1.9516e-03_rb,1.7255e-03_rb,1.4956e-03_rb,1.2644e-03_rb,1.0251e-03_rb,7.8257e-04_rb, &\n     &5.3359e-04_rb,2.7877e-04_rb,7.8095e-05_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &2.3604e-03_rb,2.0924e-03_rb,1.8171e-03_rb,1.5363e-03_rb,1.2459e-03_rb,9.5100e-04_rb, &\n     &6.5089e-04_rb,3.4345e-04_rb,9.5842e-05_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &2.8804e-03_rb,2.5577e-03_rb,2.2239e-03_rb,1.8797e-03_rb,1.5233e-03_rb,1.1642e-03_rb, &\n     &8.0020e-04_rb,4.2543e-04_rb,1.1860e-04_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &3.5705e-03_rb,3.1731e-03_rb,2.7557e-03_rb,2.3268e-03_rb,1.8893e-03_rb,1.4468e-03_rb, &\n     &9.9612e-04_rb,5.3416e-04_rb,1.4487e-04_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &4.4488e-03_rb,3.9532e-03_rb,3.4428e-03_rb,2.9093e-03_rb,2.3658e-03_rb,1.8156e-03_rb, &\n     &1.2567e-03_rb,6.7979e-04_rb,1.7247e-04_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &2.1650e-03_rb,1.9116e-03_rb,1.6550e-03_rb,1.3963e-03_rb,1.1297e-03_rb,8.5899e-04_rb, &\n     &5.8509e-04_rb,3.0490e-04_rb,7.1706e-05_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &2.6267e-03_rb,2.3248e-03_rb,2.0167e-03_rb,1.7021e-03_rb,1.3758e-03_rb,1.0485e-03_rb, &\n     &7.1504e-04_rb,3.7456e-04_rb,8.9235e-05_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &3.2534e-03_rb,2.8836e-03_rb,2.5027e-03_rb,2.1051e-03_rb,1.7048e-03_rb,1.2988e-03_rb, &\n     &8.8817e-04_rb,4.6846e-04_rb,1.1111e-04_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &4.0663e-03_rb,3.6075e-03_rb,3.1250e-03_rb,2.6309e-03_rb,2.1307e-03_rb,1.6269e-03_rb, &\n     &1.1159e-03_rb,5.9423e-04_rb,1.3807e-04_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &5.1489e-03_rb,4.5663e-03_rb,3.9639e-03_rb,3.3363e-03_rb,2.7011e-03_rb,2.0639e-03_rb, &\n     &1.4193e-03_rb,7.5878e-04_rb,1.6511e-04_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &1.8892e-03_rb,1.6706e-03_rb,1.4468e-03_rb,1.2178e-03_rb,9.8369e-04_rb,7.4837e-04_rb, &\n     &5.0829e-04_rb,2.6445e-04_rb,6.0347e-05_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &2.3493e-03_rb,2.0800e-03_rb,1.8039e-03_rb,1.5176e-03_rb,1.2269e-03_rb,9.3478e-04_rb, &\n     &6.3614e-04_rb,3.3311e-04_rb,7.4952e-05_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &2.9367e-03_rb,2.6050e-03_rb,2.2571e-03_rb,1.8958e-03_rb,1.5337e-03_rb,1.1694e-03_rb, &\n     &7.9916e-04_rb,4.2184e-04_rb,9.2442e-05_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &3.6657e-03_rb,3.2513e-03_rb,2.8158e-03_rb,2.3704e-03_rb,1.9186e-03_rb,1.4653e-03_rb, &\n     &1.0024e-03_rb,5.3341e-04_rb,1.1484e-04_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &4.6760e-03_rb,4.1516e-03_rb,3.5983e-03_rb,3.0289e-03_rb,2.4503e-03_rb,1.8734e-03_rb, &\n     &1.2888e-03_rb,6.8680e-04_rb,1.3777e-04_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &1.8748e-06_rb,2.5986e-05_rb,3.9140e-05_rb,5.0515e-05_rb,6.0453e-05_rb,7.0222e-05_rb, &\n     &9.2153e-05_rb,1.1527e-04_rb,4.9863e-05_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &2.2195e-06_rb,3.2877e-05_rb,5.0201e-05_rb,6.4757e-05_rb,7.7459e-05_rb,8.9731e-05_rb, &\n     &1.0523e-04_rb,1.3275e-04_rb,6.4946e-05_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &2.6699e-06_rb,4.0948e-05_rb,6.3539e-05_rb,8.1241e-05_rb,9.7151e-05_rb,1.1092e-04_rb, &\n     &1.1761e-04_rb,1.3825e-04_rb,8.4658e-05_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &3.1333e-06_rb,5.0568e-05_rb,7.8106e-05_rb,9.9691e-05_rb,1.1981e-04_rb,1.3549e-04_rb, &\n     &1.3924e-04_rb,1.5344e-04_rb,1.0884e-04_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &3.7302e-06_rb,6.1696e-05_rb,9.4521e-05_rb,1.2091e-04_rb,1.4534e-04_rb,1.6166e-04_rb, &\n     &1.6745e-04_rb,1.7689e-04_rb,1.3808e-04_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &2.7303e-06_rb,2.4541e-05_rb,3.5763e-05_rb,4.4104e-05_rb,5.1595e-05_rb,5.8966e-05_rb, &\n     &6.8130e-05_rb,1.0200e-04_rb,3.9223e-05_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &3.2091e-06_rb,3.1379e-05_rb,4.5745e-05_rb,5.7229e-05_rb,6.6576e-05_rb,7.4659e-05_rb, &\n     &8.1615e-05_rb,9.9977e-05_rb,5.3367e-05_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &3.8233e-06_rb,3.9294e-05_rb,5.7741e-05_rb,7.2569e-05_rb,8.4616e-05_rb,9.4873e-05_rb, &\n     &1.0240e-04_rb,1.1173e-04_rb,6.9904e-05_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &4.4247e-06_rb,4.8330e-05_rb,7.1550e-05_rb,9.0142e-05_rb,1.0471e-04_rb,1.1736e-04_rb, &\n     &1.2542e-04_rb,1.2602e-04_rb,8.9761e-05_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &5.2245e-06_rb,5.9597e-05_rb,8.7482e-05_rb,1.0983e-04_rb,1.2772e-04_rb,1.4263e-04_rb, &\n     &1.4957e-04_rb,1.4619e-04_rb,1.1276e-04_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &5.2515e-06_rb,2.5764e-05_rb,3.5421e-05_rb,4.2053e-05_rb,4.7449e-05_rb,5.0608e-05_rb, &\n     &5.3790e-05_rb,6.3623e-05_rb,3.2707e-05_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &6.1812e-06_rb,3.3267e-05_rb,4.5617e-05_rb,5.4363e-05_rb,6.1462e-05_rb,6.5644e-05_rb, &\n     &6.8603e-05_rb,7.2538e-05_rb,4.2974e-05_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &7.0789e-06_rb,4.1750e-05_rb,5.7967e-05_rb,6.9149e-05_rb,7.8026e-05_rb,8.4324e-05_rb, &\n     &8.7723e-05_rb,8.7036e-05_rb,5.7402e-05_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &8.1019e-06_rb,5.2243e-05_rb,7.2254e-05_rb,8.6560e-05_rb,9.8380e-05_rb,1.0586e-04_rb, &\n     &1.1006e-04_rb,1.0834e-04_rb,7.4594e-05_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &9.5928e-06_rb,6.4752e-05_rb,8.9095e-05_rb,1.0726e-04_rb,1.2114e-04_rb,1.3016e-04_rb, &\n     &1.3551e-04_rb,1.3048e-04_rb,9.3901e-05_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &1.1020e-05_rb,2.8494e-05_rb,3.6932e-05_rb,4.2975e-05_rb,4.6074e-05_rb,4.6953e-05_rb, &\n     &4.6313e-05_rb,4.4542e-05_rb,3.2970e-05_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &1.2562e-05_rb,3.7065e-05_rb,4.7812e-05_rb,5.4915e-05_rb,5.9599e-05_rb,6.1605e-05_rb, &\n     &6.1355e-05_rb,5.8223e-05_rb,3.9379e-05_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &1.4576e-05_rb,4.7351e-05_rb,6.1614e-05_rb,7.0211e-05_rb,7.6184e-05_rb,7.9246e-05_rb, &\n     &7.8840e-05_rb,7.4646e-05_rb,4.5622e-05_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &1.6280e-05_rb,5.8550e-05_rb,7.7244e-05_rb,8.9750e-05_rb,9.5812e-05_rb,1.0028e-04_rb, &\n     &1.0042e-04_rb,9.4563e-05_rb,5.6157e-05_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &1.8452e-05_rb,7.1720e-05_rb,9.6110e-05_rb,1.1183e-04_rb,1.1944e-04_rb,1.2546e-04_rb, &\n     &1.2521e-04_rb,1.1758e-04_rb,7.2313e-05_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &2.1312e-05_rb,3.6806e-05_rb,4.2862e-05_rb,4.6599e-05_rb,4.7270e-05_rb,4.6274e-05_rb, &\n     &4.2916e-05_rb,3.6817e-05_rb,3.2593e-05_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &2.5202e-05_rb,4.5358e-05_rb,5.3413e-05_rb,5.8866e-05_rb,6.0628e-05_rb,5.9617e-05_rb, &\n     &5.6530e-05_rb,4.9579e-05_rb,3.9610e-05_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &2.8699e-05_rb,5.5778e-05_rb,6.8120e-05_rb,7.4417e-05_rb,7.7573e-05_rb,7.6799e-05_rb, &\n     &7.3323e-05_rb,6.4915e-05_rb,4.8072e-05_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &3.2753e-05_rb,6.7844e-05_rb,8.5625e-05_rb,9.3879e-05_rb,9.7934e-05_rb,9.8316e-05_rb, &\n     &9.3375e-05_rb,8.3569e-05_rb,5.7445e-05_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &3.6908e-05_rb,8.3612e-05_rb,1.0490e-04_rb,1.1632e-04_rb,1.2275e-04_rb,1.2328e-04_rb, &\n     &1.1667e-04_rb,1.0539e-04_rb,6.6570e-05_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &4.3241e-05_rb,5.7363e-05_rb,5.9383e-05_rb,5.9083e-05_rb,5.6687e-05_rb,5.1929e-05_rb, &\n     &4.4854e-05_rb,3.4134e-05_rb,3.3554e-05_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &4.8160e-05_rb,6.6362e-05_rb,7.1460e-05_rb,7.1908e-05_rb,6.9540e-05_rb,6.3380e-05_rb, &\n     &5.6957e-05_rb,4.4490e-05_rb,3.9435e-05_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &5.5150e-05_rb,7.8279e-05_rb,8.5897e-05_rb,8.6929e-05_rb,8.6216e-05_rb,7.9912e-05_rb, &\n     &7.1634e-05_rb,5.7727e-05_rb,4.6871e-05_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &6.2702e-05_rb,9.3878e-05_rb,1.0189e-04_rb,1.0755e-04_rb,1.0575e-04_rb,1.0053e-04_rb, &\n     &8.9365e-05_rb,7.5152e-05_rb,5.7874e-05_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &7.1646e-05_rb,1.0994e-04_rb,1.2283e-04_rb,1.3142e-04_rb,1.3048e-04_rb,1.2339e-04_rb, &\n     &1.1339e-04_rb,9.4667e-05_rb,6.9560e-05_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &9.4217e-05_rb,1.0625e-04_rb,1.0297e-04_rb,9.4341e-05_rb,8.4820e-05_rb,7.4540e-05_rb, &\n     &5.9573e-05_rb,4.0162e-05_rb,3.4032e-05_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &1.0328e-04_rb,1.1698e-04_rb,1.1273e-04_rb,1.0730e-04_rb,9.8854e-05_rb,8.8068e-05_rb, &\n     &7.1680e-05_rb,5.0363e-05_rb,4.1780e-05_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &1.1436e-04_rb,1.3466e-04_rb,1.3293e-04_rb,1.2807e-04_rb,1.1742e-04_rb,1.0440e-04_rb, &\n     &8.7142e-05_rb,6.2911e-05_rb,5.1346e-05_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &1.2805e-04_rb,1.5498e-04_rb,1.5579e-04_rb,1.5032e-04_rb,1.3953e-04_rb,1.2638e-04_rb, &\n     &1.0638e-04_rb,7.6925e-05_rb,6.1784e-05_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &1.4510e-04_rb,1.7937e-04_rb,1.8186e-04_rb,1.7514e-04_rb,1.6579e-04_rb,1.5232e-04_rb, &\n     &1.2822e-04_rb,9.5671e-05_rb,7.0048e-05_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &2.4926e-04_rb,2.4392e-04_rb,2.2297e-04_rb,1.9521e-04_rb,1.6651e-04_rb,1.3349e-04_rb, &\n     &9.8669e-05_rb,6.3201e-05_rb,3.1807e-05_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &2.7454e-04_rb,2.7755e-04_rb,2.5558e-04_rb,2.2780e-04_rb,1.9618e-04_rb,1.5908e-04_rb, &\n     &1.2121e-04_rb,7.6667e-05_rb,4.0012e-05_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &2.9508e-04_rb,3.0091e-04_rb,2.7929e-04_rb,2.5223e-04_rb,2.1930e-04_rb,1.8562e-04_rb, &\n     &1.4312e-04_rb,9.2529e-05_rb,5.6355e-05_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &3.2350e-04_rb,3.3697e-04_rb,3.1656e-04_rb,2.8676e-04_rb,2.5417e-04_rb,2.1233e-04_rb, &\n     &1.6702e-04_rb,1.1113e-04_rb,6.5692e-05_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &3.5413e-04_rb,3.7149e-04_rb,3.5724e-04_rb,3.2794e-04_rb,2.8883e-04_rb,2.4521e-04_rb, &\n     &1.9502e-04_rb,1.3265e-04_rb,7.4636e-05_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &1.1370e-03_rb,1.0245e-03_rb,9.0233e-04_rb,7.7373e-04_rb,6.3596e-04_rb,4.9782e-04_rb, &\n     &3.4706e-04_rb,1.8813e-04_rb,5.4967e-05_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &1.2549e-03_rb,1.1327e-03_rb,1.0081e-03_rb,8.6174e-04_rb,7.1233e-04_rb,5.5663e-04_rb, &\n     &3.9054e-04_rb,2.1740e-04_rb,6.5863e-05_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &1.4193e-03_rb,1.2929e-03_rb,1.1501e-03_rb,9.8954e-04_rb,8.1834e-04_rb,6.4034e-04_rb, &\n     &4.5590e-04_rb,2.5841e-04_rb,7.6782e-05_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &1.5730e-03_rb,1.4525e-03_rb,1.2939e-03_rb,1.1191e-03_rb,9.2869e-04_rb,7.2912e-04_rb, &\n     &5.2003e-04_rb,2.9928e-04_rb,9.3109e-05_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &1.7020e-03_rb,1.5888e-03_rb,1.4187e-03_rb,1.2315e-03_rb,1.0334e-03_rb,8.2293e-04_rb, &\n     &5.9761e-04_rb,3.4411e-04_rb,1.1836e-04_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &6.1528e-03_rb,5.4056e-03_rb,4.6635e-03_rb,3.9185e-03_rb,3.1663e-03_rb,2.4050e-03_rb, &\n     &1.6372e-03_rb,8.5009e-04_rb,8.0054e-05_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &6.8550e-03_rb,6.0391e-03_rb,5.2246e-03_rb,4.3821e-03_rb,3.5514e-03_rb,2.7172e-03_rb, &\n     &1.8529e-03_rb,9.7224e-04_rb,1.0130e-04_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &7.6163e-03_rb,6.7254e-03_rb,5.8028e-03_rb,4.8844e-03_rb,3.9710e-03_rb,3.0268e-03_rb, &\n     &2.0640e-03_rb,1.0804e-03_rb,1.3327e-04_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &8.4017e-03_rb,7.4385e-03_rb,6.4324e-03_rb,5.4278e-03_rb,4.4132e-03_rb,3.3677e-03_rb, &\n     &2.3075e-03_rb,1.2226e-03_rb,1.6598e-04_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &9.3911e-03_rb,8.3333e-03_rb,7.2272e-03_rb,6.1232e-03_rb,4.9837e-03_rb,3.8167e-03_rb, &\n     &2.6213e-03_rb,1.4063e-03_rb,2.0638e-04_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &1.1762e-02_rb,1.0306e-02_rb,8.8593e-03_rb,7.4127e-03_rb,5.9627e-03_rb,4.5045e-03_rb, &\n     &3.0511e-03_rb,1.5666e-03_rb,8.2025e-05_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &1.3012e-02_rb,1.1426e-02_rb,9.8347e-03_rb,8.2336e-03_rb,6.6323e-03_rb,5.0275e-03_rb, &\n     &3.4043e-03_rb,1.7550e-03_rb,1.0611e-04_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &1.4612e-02_rb,1.2845e-02_rb,1.1070e-02_rb,9.2725e-03_rb,7.4822e-03_rb,5.6847e-03_rb, &\n     &3.8534e-03_rb,1.9989e-03_rb,1.3346e-04_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &1.6251e-02_rb,1.4313e-02_rb,1.2347e-02_rb,1.0360e-02_rb,8.3777e-03_rb,6.3716e-03_rb, &\n     &4.3250e-03_rb,2.2445e-03_rb,1.6083e-04_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &1.8150e-02_rb,1.6016e-02_rb,1.3813e-02_rb,1.1608e-02_rb,9.3833e-03_rb,7.1360e-03_rb, &\n     &4.8421e-03_rb,2.5233e-03_rb,2.0030e-04_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &1.5059e-02_rb,1.3197e-02_rb,1.1332e-02_rb,9.4687e-03_rb,7.6107e-03_rb,5.7434e-03_rb, &\n     &3.8799e-03_rb,1.9799e-03_rb,8.0330e-05_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &1.6512e-02_rb,1.4476e-02_rb,1.2442e-02_rb,1.0410e-02_rb,8.3743e-03_rb,6.3355e-03_rb, &\n     &4.2771e-03_rb,2.1952e-03_rb,9.9323e-05_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &1.8685e-02_rb,1.6400e-02_rb,1.4116e-02_rb,1.1818e-02_rb,9.5219e-03_rb,7.2188e-03_rb, &\n     &4.8730e-03_rb,2.5083e-03_rb,1.2343e-04_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &2.1153e-02_rb,1.8588e-02_rb,1.6002e-02_rb,1.3413e-02_rb,1.0821e-02_rb,8.2029e-03_rb, &\n     &5.5391e-03_rb,2.8500e-03_rb,1.4931e-04_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &2.3737e-02_rb,2.0901e-02_rb,1.7991e-02_rb,1.5090e-02_rb,1.2172e-02_rb,9.2290e-03_rb, &\n     &6.2485e-03_rb,3.2234e-03_rb,1.9022e-04_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &1.4847e-02_rb,1.3010e-02_rb,1.1175e-02_rb,9.3417e-03_rb,7.5039e-03_rb,5.6608e-03_rb, &\n     &3.8195e-03_rb,1.9483e-03_rb,7.0259e-05_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &1.6739e-02_rb,1.4679e-02_rb,1.2619e-02_rb,1.0555e-02_rb,8.4903e-03_rb,6.4217e-03_rb, &\n     &4.3269e-03_rb,2.2129e-03_rb,8.5490e-05_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &1.8825e-02_rb,1.6518e-02_rb,1.4211e-02_rb,1.1898e-02_rb,9.5859e-03_rb,7.2507e-03_rb, &\n     &4.8896e-03_rb,2.5047e-03_rb,1.1226e-04_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &2.1292e-02_rb,1.8712e-02_rb,1.6107e-02_rb,1.3496e-02_rb,1.0877e-02_rb,8.2331e-03_rb, &\n     &5.5639e-03_rb,2.8510e-03_rb,1.4031e-04_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &2.4158e-02_rb,2.1241e-02_rb,1.8299e-02_rb,1.5344e-02_rb,1.2375e-02_rb,9.3646e-03_rb, &\n     &6.3197e-03_rb,3.2533e-03_rb,1.7265e-04_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &1.0410e-05_rb,6.1962e-05_rb,8.9498e-05_rb,1.0661e-04_rb,1.2164e-04_rb,1.3377e-04_rb, &\n     &1.2941e-04_rb,1.4521e-04_rb,8.1226e-05_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &1.1876e-05_rb,7.8368e-05_rb,1.1198e-04_rb,1.3409e-04_rb,1.5187e-04_rb,1.6090e-04_rb, &\n     &1.6481e-04_rb,1.6441e-04_rb,1.1141e-04_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &1.3686e-05_rb,9.7536e-05_rb,1.3724e-04_rb,1.6641e-04_rb,1.8557e-04_rb,1.9386e-04_rb, &\n     &1.9539e-04_rb,1.8991e-04_rb,1.4967e-04_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &1.5807e-05_rb,1.1754e-04_rb,1.6722e-04_rb,2.0238e-04_rb,2.2277e-04_rb,2.3084e-04_rb, &\n     &2.3103e-04_rb,2.1679e-04_rb,1.9490e-04_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &1.8430e-05_rb,1.4041e-04_rb,2.0063e-04_rb,2.4077e-04_rb,2.6088e-04_rb,2.7081e-04_rb, &\n     &2.7088e-04_rb,2.6451e-04_rb,2.4633e-04_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &1.4574e-05_rb,6.1181e-05_rb,8.5219e-05_rb,1.0233e-04_rb,1.1097e-04_rb,1.1864e-04_rb, &\n     &1.2443e-04_rb,1.2339e-04_rb,6.7714e-05_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &1.6727e-05_rb,7.7358e-05_rb,1.0881e-04_rb,1.2844e-04_rb,1.4104e-04_rb,1.5016e-04_rb, &\n     &1.5142e-04_rb,1.4164e-04_rb,9.0996e-05_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &1.9092e-05_rb,9.6319e-05_rb,1.3467e-04_rb,1.5937e-04_rb,1.7543e-04_rb,1.8362e-04_rb, &\n     &1.8038e-04_rb,1.5924e-04_rb,1.2122e-04_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &2.2128e-05_rb,1.1862e-04_rb,1.6445e-04_rb,1.9397e-04_rb,2.1438e-04_rb,2.2054e-04_rb, &\n     &2.1448e-04_rb,2.0102e-04_rb,1.5787e-04_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &2.5953e-05_rb,1.4141e-04_rb,1.9710e-04_rb,2.3342e-04_rb,2.5581e-04_rb,2.5978e-04_rb, &\n     &2.5390e-04_rb,2.3627e-04_rb,2.0062e-04_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &2.6011e-05_rb,6.9300e-05_rb,8.8885e-05_rb,1.0316e-04_rb,1.1255e-04_rb,1.1444e-04_rb, &\n     &1.1119e-04_rb,1.0838e-04_rb,5.7064e-05_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &2.9960e-05_rb,8.6707e-05_rb,1.1415e-04_rb,1.3351e-04_rb,1.4420e-04_rb,1.4685e-04_rb, &\n     &1.4419e-04_rb,1.3258e-04_rb,7.5649e-05_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &3.4740e-05_rb,1.0851e-04_rb,1.4450e-04_rb,1.6834e-04_rb,1.8054e-04_rb,1.8416e-04_rb, &\n     &1.8038e-04_rb,1.5855e-04_rb,9.9657e-05_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &4.0367e-05_rb,1.3338e-04_rb,1.7889e-04_rb,2.0752e-04_rb,2.2266e-04_rb,2.2792e-04_rb, &\n     &2.1975e-04_rb,1.8879e-04_rb,1.2950e-04_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &4.7325e-05_rb,1.6087e-04_rb,2.1635e-04_rb,2.5031e-04_rb,2.7116e-04_rb,2.7639e-04_rb, &\n     &2.6032e-04_rb,2.2480e-04_rb,1.6585e-04_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &4.6629e-05_rb,8.8856e-05_rb,1.0307e-04_rb,1.1034e-04_rb,1.1324e-04_rb,1.1518e-04_rb, &\n     &1.0941e-04_rb,9.2447e-05_rb,4.9807e-05_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &5.3813e-05_rb,1.0914e-04_rb,1.2953e-04_rb,1.4280e-04_rb,1.4973e-04_rb,1.5074e-04_rb, &\n     &1.4150e-04_rb,1.2111e-04_rb,6.6358e-05_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &6.3364e-05_rb,1.3307e-04_rb,1.6255e-04_rb,1.8292e-04_rb,1.9276e-04_rb,1.9285e-04_rb, &\n     &1.8002e-04_rb,1.5407e-04_rb,8.8052e-05_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &7.4529e-05_rb,1.6123e-04_rb,2.0145e-04_rb,2.2832e-04_rb,2.4093e-04_rb,2.3982e-04_rb, &\n     &2.2562e-04_rb,1.8990e-04_rb,1.1560e-04_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &8.8134e-05_rb,1.9717e-04_rb,2.4798e-04_rb,2.7909e-04_rb,2.9532e-04_rb,2.9441e-04_rb, &\n     &2.7564e-04_rb,2.2733e-04_rb,1.4686e-04_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &7.7279e-05_rb,1.1122e-04_rb,1.2109e-04_rb,1.2443e-04_rb,1.2189e-04_rb,1.1617e-04_rb, &\n     &1.0613e-04_rb,8.7521e-05_rb,4.7012e-05_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &8.9473e-05_rb,1.3546e-04_rb,1.5195e-04_rb,1.5794e-04_rb,1.5786e-04_rb,1.5329e-04_rb, &\n     &1.4127e-04_rb,1.1487e-04_rb,6.0204e-05_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &1.0328e-04_rb,1.6610e-04_rb,1.8961e-04_rb,1.9990e-04_rb,2.0229e-04_rb,2.0006e-04_rb, &\n     &1.8432e-04_rb,1.4896e-04_rb,7.6087e-05_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &1.2119e-04_rb,2.0367e-04_rb,2.3155e-04_rb,2.4851e-04_rb,2.5658e-04_rb,2.5211e-04_rb, &\n     &2.3296e-04_rb,1.8864e-04_rb,9.8744e-05_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &1.4337e-04_rb,2.4554e-04_rb,2.8278e-04_rb,3.0781e-04_rb,3.1834e-04_rb,3.1139e-04_rb, &\n     &2.8860e-04_rb,2.3262e-04_rb,1.2920e-04_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &1.1761e-04_rb,1.4538e-04_rb,1.4284e-04_rb,1.3740e-04_rb,1.2980e-04_rb,1.1847e-04_rb, &\n     &1.0232e-04_rb,8.1254e-05_rb,4.1748e-05_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &1.3703e-04_rb,1.7162e-04_rb,1.7382e-04_rb,1.7289e-04_rb,1.6644e-04_rb,1.5514e-04_rb, &\n     &1.3666e-04_rb,1.0938e-04_rb,5.6033e-05_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &1.5744e-04_rb,2.0479e-04_rb,2.1458e-04_rb,2.1922e-04_rb,2.1487e-04_rb,2.0072e-04_rb, &\n     &1.7976e-04_rb,1.4480e-04_rb,7.3663e-05_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &1.7947e-04_rb,2.4802e-04_rb,2.6658e-04_rb,2.7311e-04_rb,2.6613e-04_rb,2.5639e-04_rb, &\n     &2.3337e-04_rb,1.8491e-04_rb,9.1670e-05_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &2.1213e-04_rb,2.9698e-04_rb,3.2800e-04_rb,3.3255e-04_rb,3.3379e-04_rb,3.2227e-04_rb, &\n     &2.9213e-04_rb,2.3295e-04_rb,1.1053e-04_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &2.1717e-04_rb,2.2955e-04_rb,2.1661e-04_rb,1.9608e-04_rb,1.6989e-04_rb,1.4299e-04_rb, &\n     &1.1566e-04_rb,8.2895e-05_rb,3.7387e-05_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &2.4414e-04_rb,2.6643e-04_rb,2.5638e-04_rb,2.3114e-04_rb,2.0334e-04_rb,1.7738e-04_rb, &\n     &1.4895e-04_rb,1.0764e-04_rb,5.2222e-05_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &2.7286e-04_rb,3.0487e-04_rb,2.9526e-04_rb,2.7261e-04_rb,2.5126e-04_rb,2.2507e-04_rb, &\n     &1.8734e-04_rb,1.4022e-04_rb,6.8628e-05_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &3.1153e-04_rb,3.5338e-04_rb,3.4554e-04_rb,3.2591e-04_rb,3.0719e-04_rb,2.7679e-04_rb, &\n     &2.3565e-04_rb,1.8522e-04_rb,8.6360e-05_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &3.5307e-04_rb,4.0595e-04_rb,4.0654e-04_rb,3.9853e-04_rb,3.7853e-04_rb,3.4348e-04_rb, &\n     &3.0049e-04_rb,2.3594e-04_rb,1.1315e-04_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &5.5525e-04_rb,5.3290e-04_rb,4.9219e-04_rb,4.3834e-04_rb,3.7060e-04_rb,2.9620e-04_rb, &\n     &2.1670e-04_rb,1.3044e-04_rb,4.3913e-05_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &6.1273e-04_rb,5.9169e-04_rb,5.4415e-04_rb,4.8432e-04_rb,4.1256e-04_rb,3.3431e-04_rb, &\n     &2.4554e-04_rb,1.5735e-04_rb,5.6222e-05_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &6.6697e-04_rb,6.5930e-04_rb,6.1229e-04_rb,5.4542e-04_rb,4.6824e-04_rb,3.7897e-04_rb, &\n     &2.8714e-04_rb,1.8945e-04_rb,7.2182e-05_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &7.3789e-04_rb,7.3274e-04_rb,6.8030e-04_rb,6.0993e-04_rb,5.2803e-04_rb,4.3826e-04_rb, &\n     &3.4177e-04_rb,2.2879e-04_rb,9.7984e-05_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &8.2418e-04_rb,8.2930e-04_rb,7.7540e-04_rb,7.0471e-04_rb,6.2407e-04_rb,5.2518e-04_rb, &\n     &4.1114e-04_rb,2.7739e-04_rb,1.2917e-04_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &2.9866e-03_rb,2.6446e-03_rb,2.3122e-03_rb,1.9743e-03_rb,1.6235e-03_rb,1.2497e-03_rb, &\n     &8.7401e-04_rb,4.7254e-04_rb,6.5815e-05_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &3.1867e-03_rb,2.8548e-03_rb,2.5070e-03_rb,2.1512e-03_rb,1.7728e-03_rb,1.3804e-03_rb, &\n     &9.6416e-04_rb,5.2342e-04_rb,8.4426e-05_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &3.3577e-03_rb,3.0331e-03_rb,2.6681e-03_rb,2.2844e-03_rb,1.8894e-03_rb,1.4824e-03_rb, &\n     &1.0437e-03_rb,5.7926e-04_rb,1.1456e-04_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &3.5955e-03_rb,3.2669e-03_rb,2.8865e-03_rb,2.4786e-03_rb,2.0664e-03_rb,1.6261e-03_rb, &\n     &1.1591e-03_rb,6.6253e-04_rb,1.4708e-04_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &3.9554e-03_rb,3.6156e-03_rb,3.2186e-03_rb,2.7765e-03_rb,2.3055e-03_rb,1.8177e-03_rb, &\n     &1.3061e-03_rb,7.6692e-04_rb,1.9062e-04_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &1.6695e-02_rb,1.4628e-02_rb,1.2561e-02_rb,1.0499e-02_rb,8.4474e-03_rb,6.4042e-03_rb, &\n     &4.3459e-03_rb,2.2571e-03_rb,5.1038e-05_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &1.8223e-02_rb,1.5977e-02_rb,1.3728e-02_rb,1.1517e-02_rb,9.2932e-03_rb,7.0542e-03_rb, &\n     &4.8075e-03_rb,2.4890e-03_rb,1.1555e-04_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &2.0043e-02_rb,1.7593e-02_rb,1.5175e-02_rb,1.2748e-02_rb,1.0288e-02_rb,7.8318e-03_rb, &\n     &5.3279e-03_rb,2.7782e-03_rb,1.4398e-04_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &2.1904e-02_rb,1.9249e-02_rb,1.6643e-02_rb,1.3989e-02_rb,1.1315e-02_rb,8.6138e-03_rb, &\n     &5.8652e-03_rb,3.0632e-03_rb,1.9715e-04_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &2.3159e-02_rb,2.0410e-02_rb,1.7664e-02_rb,1.4873e-02_rb,1.2019e-02_rb,9.1728e-03_rb, &\n     &6.2874e-03_rb,3.3158e-03_rb,2.7195e-04_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &3.2603e-02_rb,2.8559e-02_rb,2.4510e-02_rb,2.0449e-02_rb,1.6397e-02_rb,1.2361e-02_rb, &\n     &8.3115e-03_rb,4.2614e-03_rb,4.3561e-05_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &3.5490e-02_rb,3.1085e-02_rb,2.6692e-02_rb,2.2303e-02_rb,1.7919e-02_rb,1.3525e-02_rb, &\n     &9.1241e-03_rb,4.6814e-03_rb,1.0680e-04_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &3.8854e-02_rb,3.4035e-02_rb,2.9244e-02_rb,2.4483e-02_rb,1.9700e-02_rb,1.4916e-02_rb, &\n     &1.0095e-02_rb,5.1808e-03_rb,1.8562e-04_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &4.2305e-02_rb,3.7086e-02_rb,3.1904e-02_rb,2.6732e-02_rb,2.1504e-02_rb,1.6276e-02_rb, &\n     &1.1000e-02_rb,5.6671e-03_rb,2.4195e-04_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &4.6003e-02_rb,4.0358e-02_rb,3.4797e-02_rb,2.9165e-02_rb,2.3531e-02_rb,1.7850e-02_rb, &\n     &1.2113e-02_rb,6.2729e-03_rb,3.2815e-04_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &4.2717e-02_rb,3.7390e-02_rb,3.2076e-02_rb,2.6766e-02_rb,2.1453e-02_rb,1.6148e-02_rb, &\n     &1.0833e-02_rb,5.5285e-03_rb,5.3162e-05_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &4.7716e-02_rb,4.1793e-02_rb,3.5854e-02_rb,2.9930e-02_rb,2.4020e-02_rb,1.8099e-02_rb, &\n     &1.2166e-02_rb,6.2010e-03_rb,1.2199e-04_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &5.2485e-02_rb,4.5967e-02_rb,3.9456e-02_rb,3.2983e-02_rb,2.6496e-02_rb,1.9981e-02_rb, &\n     &1.3462e-02_rb,6.8646e-03_rb,1.9551e-04_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &5.6971e-02_rb,4.9905e-02_rb,4.2910e-02_rb,3.5876e-02_rb,2.8829e-02_rb,2.1772e-02_rb, &\n     &1.4678e-02_rb,7.4885e-03_rb,2.4038e-04_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &6.1845e-02_rb,5.4216e-02_rb,4.6694e-02_rb,3.9065e-02_rb,3.1428e-02_rb,2.3760e-02_rb, &\n     &1.6034e-02_rb,8.2201e-03_rb,3.2330e-04_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &4.4159e-02_rb,3.8661e-02_rb,3.3159e-02_rb,2.7655e-02_rb,2.2159e-02_rb,1.6679e-02_rb, &\n     &1.1182e-02_rb,5.6866e-03_rb,7.0844e-05_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &4.9543e-02_rb,4.3376e-02_rb,3.7217e-02_rb,3.1073e-02_rb,2.4939e-02_rb,1.8777e-02_rb, &\n     &1.2622e-02_rb,6.4095e-03_rb,1.2350e-04_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &5.4720e-02_rb,4.7942e-02_rb,4.1156e-02_rb,3.4403e-02_rb,2.7607e-02_rb,2.0806e-02_rb, &\n     &1.3984e-02_rb,7.1021e-03_rb,1.5128e-04_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &5.9716e-02_rb,5.2321e-02_rb,4.4977e-02_rb,3.7585e-02_rb,3.0190e-02_rb,2.2781e-02_rb, &\n     &1.5325e-02_rb,7.8087e-03_rb,2.1269e-04_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &6.4624e-02_rb,5.6664e-02_rb,4.8723e-02_rb,4.0765e-02_rb,3.2763e-02_rb,2.4744e-02_rb, &\n     &1.6652e-02_rb,8.4913e-03_rb,3.0727e-04_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &5.7873e-05_rb,1.6488e-04_rb,2.0580e-04_rb,2.2960e-04_rb,2.3556e-04_rb,2.2261e-04_rb, &\n     &2.0972e-04_rb,1.9322e-04_rb,1.3088e-04_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &6.6249e-05_rb,1.9462e-04_rb,2.4549e-04_rb,2.7463e-04_rb,2.7934e-04_rb,2.6538e-04_rb, &\n     &2.3743e-04_rb,2.0925e-04_rb,1.7715e-04_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &7.5658e-05_rb,2.2561e-04_rb,2.8843e-04_rb,3.1940e-04_rb,3.2388e-04_rb,3.1216e-04_rb, &\n     &2.9036e-04_rb,2.7653e-04_rb,2.3143e-04_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &8.5832e-05_rb,2.6205e-04_rb,3.3188e-04_rb,3.6495e-04_rb,3.7173e-04_rb,3.6401e-04_rb, &\n     &3.4696e-04_rb,3.4171e-04_rb,2.9590e-04_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &9.6691e-05_rb,2.9985e-04_rb,3.7678e-04_rb,4.1538e-04_rb,4.2689e-04_rb,4.2505e-04_rb, &\n     &4.1168e-04_rb,4.0784e-04_rb,3.7540e-04_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &8.0001e-05_rb,1.7863e-04_rb,2.1664e-04_rb,2.3517e-04_rb,2.4432e-04_rb,2.3529e-04_rb, &\n     &2.0358e-04_rb,1.5402e-04_rb,1.1156e-04_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &9.2299e-05_rb,2.0953e-04_rb,2.5648e-04_rb,2.8347e-04_rb,2.9289e-04_rb,2.8063e-04_rb, &\n     &2.4649e-04_rb,1.9992e-04_rb,1.5181e-04_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &1.0437e-04_rb,2.4399e-04_rb,3.0364e-04_rb,3.3466e-04_rb,3.4277e-04_rb,3.2781e-04_rb, &\n     &2.9451e-04_rb,2.4303e-04_rb,2.0131e-04_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &1.1814e-04_rb,2.8134e-04_rb,3.5342e-04_rb,3.8732e-04_rb,3.9443e-04_rb,3.8031e-04_rb, &\n     &3.4829e-04_rb,2.8801e-04_rb,2.6066e-04_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &1.3198e-04_rb,3.2404e-04_rb,4.0415e-04_rb,4.4181e-04_rb,4.5121e-04_rb,4.4037e-04_rb, &\n     &4.0877e-04_rb,3.5353e-04_rb,3.3227e-04_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &1.4443e-04_rb,2.3826e-04_rb,2.7329e-04_rb,2.8523e-04_rb,2.8239e-04_rb,2.6871e-04_rb, &\n     &2.4140e-04_rb,1.7625e-04_rb,9.1057e-05_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &1.6500e-04_rb,2.7899e-04_rb,3.2197e-04_rb,3.3661e-04_rb,3.4010e-04_rb,3.2744e-04_rb, &\n     &2.9069e-04_rb,2.1583e-04_rb,1.2870e-04_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &1.8759e-04_rb,3.2667e-04_rb,3.7258e-04_rb,3.9759e-04_rb,4.0496e-04_rb,3.8750e-04_rb, &\n     &3.4189e-04_rb,2.6207e-04_rb,1.7564e-04_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &2.1411e-04_rb,3.7810e-04_rb,4.3373e-04_rb,4.6557e-04_rb,4.7150e-04_rb,4.5014e-04_rb, &\n     &3.9858e-04_rb,3.1356e-04_rb,2.3208e-04_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &2.3870e-04_rb,4.2957e-04_rb,5.0123e-04_rb,5.3924e-04_rb,5.3944e-04_rb,5.1553e-04_rb, &\n     &4.6343e-04_rb,3.7106e-04_rb,2.9980e-04_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &2.6076e-04_rb,3.4439e-04_rb,3.6366e-04_rb,3.6515e-04_rb,3.5256e-04_rb,3.2080e-04_rb, &\n     &2.7636e-04_rb,2.0889e-04_rb,8.2321e-05_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &2.9760e-04_rb,4.0373e-04_rb,4.3154e-04_rb,4.3412e-04_rb,4.1663e-04_rb,3.8448e-04_rb, &\n     &3.3798e-04_rb,2.5481e-04_rb,1.1139e-04_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &3.4031e-04_rb,4.7084e-04_rb,5.0815e-04_rb,5.1064e-04_rb,4.9099e-04_rb,4.5954e-04_rb, &\n     &4.0644e-04_rb,3.0187e-04_rb,1.5330e-04_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &3.8682e-04_rb,5.4745e-04_rb,5.9070e-04_rb,5.9370e-04_rb,5.7774e-04_rb,5.4347e-04_rb, &\n     &4.7190e-04_rb,3.5452e-04_rb,2.0604e-04_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &4.3959e-04_rb,6.2729e-04_rb,6.7728e-04_rb,6.8652e-04_rb,6.7377e-04_rb,6.2625e-04_rb, &\n     &5.4307e-04_rb,4.1535e-04_rb,2.7101e-04_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &4.3137e-04_rb,4.9354e-04_rb,4.9901e-04_rb,4.7432e-04_rb,4.3778e-04_rb,3.8485e-04_rb, &\n     &3.1938e-04_rb,2.2709e-04_rb,7.3559e-05_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &4.9217e-04_rb,5.7735e-04_rb,5.8525e-04_rb,5.6095e-04_rb,5.2221e-04_rb,4.6398e-04_rb, &\n     &3.8313e-04_rb,2.8160e-04_rb,1.0296e-04_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &5.6924e-04_rb,6.7555e-04_rb,6.8298e-04_rb,6.6362e-04_rb,6.1781e-04_rb,5.4692e-04_rb, &\n     &4.5981e-04_rb,3.4088e-04_rb,1.4005e-04_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &6.5162e-04_rb,7.8635e-04_rb,7.9830e-04_rb,7.7682e-04_rb,7.2322e-04_rb,6.4526e-04_rb, &\n     &5.4580e-04_rb,4.0061e-04_rb,1.8482e-04_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &7.5040e-04_rb,9.0883e-04_rb,9.2599e-04_rb,8.9925e-04_rb,8.3896e-04_rb,7.5567e-04_rb, &\n     &6.3867e-04_rb,4.6416e-04_rb,2.4367e-04_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &6.5259e-04_rb,6.7358e-04_rb,6.6023e-04_rb,6.1431e-04_rb,5.5026e-04_rb,4.6572e-04_rb, &\n     &3.6933e-04_rb,2.4724e-04_rb,6.3454e-05_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &7.5346e-04_rb,7.9866e-04_rb,7.7727e-04_rb,7.2579e-04_rb,6.4756e-04_rb,5.5655e-04_rb, &\n     &4.4395e-04_rb,3.0264e-04_rb,8.7333e-05_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &8.8029e-04_rb,9.4301e-04_rb,9.1678e-04_rb,8.5383e-04_rb,7.6672e-04_rb,6.6157e-04_rb, &\n     &5.3248e-04_rb,3.6645e-04_rb,1.2006e-04_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &1.0324e-03_rb,1.1112e-03_rb,1.0784e-03_rb,1.0064e-03_rb,9.0982e-04_rb,7.8126e-04_rb, &\n     &6.2832e-04_rb,4.4008e-04_rb,1.6674e-04_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &1.1873e-03_rb,1.2942e-03_rb,1.2623e-03_rb,1.1793e-03_rb,1.0646e-03_rb,9.2296e-04_rb, &\n     &7.3952e-04_rb,5.1891e-04_rb,2.2335e-04_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &1.0039e-03_rb,9.6265e-04_rb,8.9986e-04_rb,8.1533e-04_rb,7.1416e-04_rb,5.9439e-04_rb, &\n     &4.5276e-04_rb,2.8651e-04_rb,6.5221e-05_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &1.1698e-03_rb,1.1414e-03_rb,1.0686e-03_rb,9.8012e-04_rb,8.6148e-04_rb,7.1658e-04_rb, &\n     &5.4576e-04_rb,3.5076e-04_rb,8.8064e-05_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &1.3785e-03_rb,1.3654e-03_rb,1.2898e-03_rb,1.1834e-03_rb,1.0346e-03_rb,8.5792e-04_rb, &\n     &6.6115e-04_rb,4.2986e-04_rb,1.2055e-04_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &1.6296e-03_rb,1.6337e-03_rb,1.5460e-03_rb,1.4118e-03_rb,1.2372e-03_rb,1.0278e-03_rb, &\n     &7.9671e-04_rb,5.1331e-04_rb,1.5903e-04_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &1.9001e-03_rb,1.9217e-03_rb,1.8220e-03_rb,1.6571e-03_rb,1.4527e-03_rb,1.2164e-03_rb, &\n     &9.4433e-04_rb,6.1289e-04_rb,2.0363e-04_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &1.8226e-03_rb,1.6514e-03_rb,1.4839e-03_rb,1.2932e-03_rb,1.0982e-03_rb,8.8723e-04_rb, &\n     &6.5582e-04_rb,3.8869e-04_rb,7.0418e-05_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &2.1183e-03_rb,1.9484e-03_rb,1.7717e-03_rb,1.5557e-03_rb,1.3178e-03_rb,1.0649e-03_rb, &\n     &7.9415e-04_rb,4.7222e-04_rb,9.8173e-05_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &2.5295e-03_rb,2.3395e-03_rb,2.1347e-03_rb,1.8817e-03_rb,1.6058e-03_rb,1.3046e-03_rb, &\n     &9.6185e-04_rb,5.7415e-04_rb,1.2861e-04_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &3.0151e-03_rb,2.8208e-03_rb,2.5722e-03_rb,2.2683e-03_rb,1.9222e-03_rb,1.5620e-03_rb, &\n     &1.1535e-03_rb,7.0406e-04_rb,1.7432e-04_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &3.5096e-03_rb,3.3177e-03_rb,3.0150e-03_rb,2.6542e-03_rb,2.2606e-03_rb,1.8422e-03_rb, &\n     &1.3738e-03_rb,8.5046e-04_rb,2.3260e-04_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &7.9941e-03_rb,7.0328e-03_rb,6.0711e-03_rb,5.1105e-03_rb,4.1565e-03_rb,3.2070e-03_rb, &\n     &2.2152e-03_rb,1.1971e-03_rb,7.9032e-05_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &8.9783e-03_rb,7.9063e-03_rb,6.8488e-03_rb,5.7943e-03_rb,4.7410e-03_rb,3.6528e-03_rb, &\n     &2.5467e-03_rb,1.3852e-03_rb,1.1999e-04_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &1.0198e-02_rb,9.0183e-03_rb,7.8510e-03_rb,6.6811e-03_rb,5.4839e-03_rb,4.2200e-03_rb, &\n     &2.9428e-03_rb,1.6034e-03_rb,1.6821e-04_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &1.1749e-02_rb,1.0423e-02_rb,9.0948e-03_rb,7.7411e-03_rb,6.3357e-03_rb,4.8731e-03_rb, &\n     &3.3881e-03_rb,1.8608e-03_rb,2.4632e-04_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &1.3350e-02_rb,1.1910e-02_rb,1.0410e-02_rb,8.8879e-03_rb,7.2904e-03_rb,5.6383e-03_rb, &\n     &3.9275e-03_rb,2.1612e-03_rb,3.3903e-04_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &4.5801e-02_rb,4.0109e-02_rb,3.4395e-02_rb,2.8682e-02_rb,2.2984e-02_rb,1.7267e-02_rb, &\n     &1.1579e-02_rb,5.9235e-03_rb,6.3484e-05_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &4.9659e-02_rb,4.3500e-02_rb,3.7321e-02_rb,3.1127e-02_rb,2.4948e-02_rb,1.8778e-02_rb, &\n     &1.2636e-02_rb,6.5101e-03_rb,9.5466e-05_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &5.4357e-02_rb,4.7634e-02_rb,4.0874e-02_rb,3.4140e-02_rb,2.7418e-02_rb,2.0676e-02_rb, &\n     &1.3967e-02_rb,7.2134e-03_rb,2.1246e-04_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &6.0291e-02_rb,5.2843e-02_rb,4.5373e-02_rb,3.7958e-02_rb,3.0510e-02_rb,2.3082e-02_rb, &\n     &1.5672e-02_rb,8.0960e-03_rb,3.5404e-04_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &6.7661e-02_rb,5.9365e-02_rb,5.1042e-02_rb,4.2745e-02_rb,3.4451e-02_rb,2.6105e-02_rb, &\n     &1.7693e-02_rb,9.1211e-03_rb,4.7192e-04_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &9.0702e-02_rb,7.9394e-02_rb,6.8068e-02_rb,5.6747e-02_rb,4.5417e-02_rb,3.4107e-02_rb, &\n     &2.2797e-02_rb,1.1511e-02_rb,7.5853e-05_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &9.9244e-02_rb,8.6879e-02_rb,7.4483e-02_rb,6.2100e-02_rb,4.9720e-02_rb,3.7362e-02_rb, &\n     &2.5008e-02_rb,1.2672e-02_rb,1.0256e-04_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &1.0852e-01_rb,9.5023e-02_rb,8.1487e-02_rb,6.7960e-02_rb,5.4445e-02_rb,4.0919e-02_rb, &\n     &2.7423e-02_rb,1.3982e-02_rb,1.6509e-04_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &1.1956e-01_rb,1.0470e-01_rb,8.9828e-02_rb,7.4940e-02_rb,6.0117e-02_rb,4.5252e-02_rb, &\n     &3.0437e-02_rb,1.5543e-02_rb,3.1661e-04_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &1.3039e-01_rb,1.1429e-01_rb,9.8079e-02_rb,8.1967e-02_rb,6.5782e-02_rb,4.9565e-02_rb, &\n     &3.3397e-02_rb,1.7070e-02_rb,5.0645e-04_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &1.2021e-01_rb,1.0519e-01_rb,9.0195e-02_rb,7.5171e-02_rb,6.0154e-02_rb,4.5148e-02_rb, &\n     &3.0151e-02_rb,1.5167e-02_rb,6.7632e-05_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &1.3016e-01_rb,1.1394e-01_rb,9.7701e-02_rb,8.1469e-02_rb,6.5222e-02_rb,4.8981e-02_rb, &\n     &3.2777e-02_rb,1.6564e-02_rb,9.6691e-05_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &1.4257e-01_rb,1.2479e-01_rb,1.0706e-01_rb,8.9271e-02_rb,7.1459e-02_rb,5.3715e-02_rb, &\n     &3.5967e-02_rb,1.8266e-02_rb,1.8650e-04_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &1.5648e-01_rb,1.3701e-01_rb,1.1748e-01_rb,9.8018e-02_rb,7.8554e-02_rb,5.9075e-02_rb, &\n     &3.9673e-02_rb,2.0186e-02_rb,3.5387e-04_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &1.6740e-01_rb,1.4658e-01_rb,1.2570e-01_rb,1.0496e-01_rb,8.4156e-02_rb,6.3336e-02_rb, &\n     &4.2553e-02_rb,2.1604e-02_rb,5.3320e-04_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &1.2573e-01_rb,1.1000e-01_rb,9.4314e-02_rb,7.8615e-02_rb,6.2929e-02_rb,4.7219e-02_rb, &\n     &3.1536e-02_rb,1.5865e-02_rb,5.0474e-05_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &1.3569e-01_rb,1.1873e-01_rb,1.0180e-01_rb,8.4863e-02_rb,6.7917e-02_rb,5.1000e-02_rb, &\n     &3.4100e-02_rb,1.7211e-02_rb,1.0366e-04_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &1.4578e-01_rb,1.2755e-01_rb,1.0936e-01_rb,9.1174e-02_rb,7.3030e-02_rb,5.4868e-02_rb, &\n     &3.6725e-02_rb,1.8584e-02_rb,2.4417e-04_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &1.5300e-01_rb,1.3393e-01_rb,1.1485e-01_rb,9.5797e-02_rb,7.6755e-02_rb,5.7691e-02_rb, &\n     &3.8700e-02_rb,1.9588e-02_rb,3.9463e-04_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &1.5948e-01_rb,1.3959e-01_rb,1.1975e-01_rb,9.9939e-02_rb,8.0103e-02_rb,6.0267e-02_rb, &\n     &4.0442e-02_rb,2.0476e-02_rb,5.2489e-04_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &3.0730e-04_rb,4.0869e-04_rb,4.2558e-04_rb,4.1836e-04_rb,3.9519e-04_rb,3.6372e-04_rb, &\n     &2.8694e-04_rb,2.6584e-04_rb,2.1801e-04_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &3.2538e-04_rb,4.3862e-04_rb,4.6062e-04_rb,4.5800e-04_rb,4.4348e-04_rb,4.2125e-04_rb, &\n     &3.6505e-04_rb,3.2613e-04_rb,2.9396e-04_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &3.3965e-04_rb,4.6778e-04_rb,5.0124e-04_rb,5.0588e-04_rb,5.0627e-04_rb,4.8837e-04_rb, &\n     &4.4591e-04_rb,3.9091e-04_rb,3.8601e-04_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &3.5305e-04_rb,5.0005e-04_rb,5.4810e-04_rb,5.6545e-04_rb,5.7634e-04_rb,5.6350e-04_rb, &\n     &5.3398e-04_rb,4.9322e-04_rb,4.9703e-04_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &3.6843e-04_rb,5.3559e-04_rb,6.0074e-04_rb,6.3388e-04_rb,6.5476e-04_rb,6.5121e-04_rb, &\n     &6.3615e-04_rb,6.1596e-04_rb,6.2900e-04_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &4.2086e-04_rb,5.1417e-04_rb,5.1972e-04_rb,4.9790e-04_rb,4.6126e-04_rb,4.1005e-04_rb, &\n     &3.3841e-04_rb,2.3086e-04_rb,1.8396e-04_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &4.4142e-04_rb,5.4838e-04_rb,5.5918e-04_rb,5.4271e-04_rb,5.1015e-04_rb,4.6371e-04_rb, &\n     &3.9686e-04_rb,2.8420e-04_rb,2.4486e-04_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &4.6438e-04_rb,5.8432e-04_rb,6.0102e-04_rb,5.9651e-04_rb,5.6920e-04_rb,5.3041e-04_rb, &\n     &4.5976e-04_rb,3.7342e-04_rb,3.2265e-04_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &4.8279e-04_rb,6.2418e-04_rb,6.4960e-04_rb,6.5695e-04_rb,6.3988e-04_rb,6.0274e-04_rb, &\n     &5.3017e-04_rb,4.6801e-04_rb,4.1702e-04_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &4.9938e-04_rb,6.6314e-04_rb,7.0911e-04_rb,7.2552e-04_rb,7.1847e-04_rb,6.8356e-04_rb, &\n     &6.1801e-04_rb,5.7242e-04_rb,5.3937e-04_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &7.5073e-04_rb,8.1743e-04_rb,7.9414e-04_rb,7.4039e-04_rb,6.6425e-04_rb,5.6902e-04_rb, &\n     &4.5211e-04_rb,2.9071e-04_rb,1.7629e-04_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &7.9242e-04_rb,8.7156e-04_rb,8.5005e-04_rb,8.0165e-04_rb,7.1947e-04_rb,6.2467e-04_rb, &\n     &5.0816e-04_rb,3.5038e-04_rb,2.3642e-04_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &8.3043e-04_rb,9.2555e-04_rb,9.1453e-04_rb,8.6093e-04_rb,7.8464e-04_rb,6.9275e-04_rb, &\n     &5.7807e-04_rb,4.1288e-04_rb,3.0691e-04_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &8.6053e-04_rb,9.7674e-04_rb,9.7765e-04_rb,9.2813e-04_rb,8.5853e-04_rb,7.7377e-04_rb, &\n     &6.5702e-04_rb,4.8317e-04_rb,3.9911e-04_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &8.9084e-04_rb,1.0351e-03_rb,1.0435e-03_rb,1.0049e-03_rb,9.4814e-04_rb,8.6574e-04_rb, &\n     &7.4637e-04_rb,5.6491e-04_rb,5.0649e-04_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &1.3691e-03_rb,1.3420e-03_rb,1.2789e-03_rb,1.1571e-03_rb,1.0054e-03_rb,8.3457e-04_rb, &\n     &6.3859e-04_rb,4.0761e-04_rb,1.5090e-04_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &1.4497e-03_rb,1.4458e-03_rb,1.3693e-03_rb,1.2399e-03_rb,1.0886e-03_rb,9.0944e-04_rb, &\n     &6.9922e-04_rb,4.5891e-04_rb,2.1864e-04_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &1.5092e-03_rb,1.5288e-03_rb,1.4492e-03_rb,1.3231e-03_rb,1.1702e-03_rb,9.8222e-04_rb, &\n     &7.7013e-04_rb,5.2474e-04_rb,3.0407e-04_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &1.5602e-03_rb,1.6068e-03_rb,1.5312e-03_rb,1.4087e-03_rb,1.2594e-03_rb,1.0655e-03_rb, &\n     &8.5735e-04_rb,5.9578e-04_rb,3.9268e-04_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &1.6108e-03_rb,1.6853e-03_rb,1.6164e-03_rb,1.5057e-03_rb,1.3492e-03_rb,1.1682e-03_rb, &\n     &9.6058e-04_rb,6.7959e-04_rb,4.9525e-04_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &2.3434e-03_rb,2.1631e-03_rb,1.9859e-03_rb,1.7683e-03_rb,1.5141e-03_rb,1.2226e-03_rb, &\n     &8.9923e-04_rb,5.4477e-04_rb,1.2575e-04_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &2.4752e-03_rb,2.3171e-03_rb,2.1360e-03_rb,1.9016e-03_rb,1.6214e-03_rb,1.3108e-03_rb, &\n     &9.7831e-04_rb,5.9705e-04_rb,1.8419e-04_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &2.5685e-03_rb,2.4387e-03_rb,2.2507e-03_rb,2.0028e-03_rb,1.7171e-03_rb,1.4030e-03_rb, &\n     &1.0542e-03_rb,6.5942e-04_rb,2.6114e-04_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &2.6469e-03_rb,2.5385e-03_rb,2.3599e-03_rb,2.1047e-03_rb,1.8139e-03_rb,1.4974e-03_rb, &\n     &1.1404e-03_rb,7.3650e-04_rb,3.6173e-04_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &2.7111e-03_rb,2.6448e-03_rb,2.4645e-03_rb,2.2107e-03_rb,1.9222e-03_rb,1.6048e-03_rb, &\n     &1.2367e-03_rb,8.2822e-04_rb,4.7124e-04_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &3.6870e-03_rb,3.3081e-03_rb,2.9535e-03_rb,2.5781e-03_rb,2.1710e-03_rb,1.7353e-03_rb, &\n     &1.2527e-03_rb,7.1995e-04_rb,1.0649e-04_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &3.8867e-03_rb,3.5260e-03_rb,3.1721e-03_rb,2.7718e-03_rb,2.3392e-03_rb,1.8682e-03_rb, &\n     &1.3468e-03_rb,7.8719e-04_rb,1.5668e-04_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &4.0284e-03_rb,3.6872e-03_rb,3.3334e-03_rb,2.9169e-03_rb,2.4661e-03_rb,1.9733e-03_rb, &\n     &1.4372e-03_rb,8.5750e-04_rb,2.1580e-04_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &4.1355e-03_rb,3.8269e-03_rb,3.4723e-03_rb,3.0564e-03_rb,2.5962e-03_rb,2.0858e-03_rb, &\n     &1.5388e-03_rb,9.2919e-04_rb,2.8921e-04_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &4.2530e-03_rb,3.9771e-03_rb,3.6076e-03_rb,3.1973e-03_rb,2.7175e-03_rb,2.1980e-03_rb, &\n     &1.6503e-03_rb,1.0123e-03_rb,3.9933e-04_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &5.9303e-03_rb,5.2537e-03_rb,4.6038e-03_rb,3.9568e-03_rb,3.2763e-03_rb,2.5699e-03_rb, &\n     &1.8266e-03_rb,1.0238e-03_rb,9.0759e-05_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &6.2719e-03_rb,5.5854e-03_rb,4.9264e-03_rb,4.2403e-03_rb,3.5196e-03_rb,2.7643e-03_rb, &\n     &1.9714e-03_rb,1.1058e-03_rb,1.3173e-04_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &6.5193e-03_rb,5.8407e-03_rb,5.1576e-03_rb,4.4431e-03_rb,3.6909e-03_rb,2.9114e-03_rb, &\n     &2.0825e-03_rb,1.1806e-03_rb,1.8536e-04_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &6.6989e-03_rb,6.0314e-03_rb,5.3552e-03_rb,4.6281e-03_rb,3.8605e-03_rb,3.0624e-03_rb, &\n     &2.1992e-03_rb,1.2697e-03_rb,2.6787e-04_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &6.9450e-03_rb,6.3008e-03_rb,5.6152e-03_rb,4.8622e-03_rb,4.0675e-03_rb,3.2291e-03_rb, &\n     &2.3204e-03_rb,1.3675e-03_rb,3.5672e-04_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &1.1078e-02_rb,9.7294e-03_rb,8.3981e-03_rb,7.0957e-03_rb,5.7917e-03_rb,4.4718e-03_rb, &\n     &3.1091e-03_rb,1.6886e-03_rb,1.1294e-04_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &1.1717e-02_rb,1.0310e-02_rb,8.9257e-03_rb,7.5752e-03_rb,6.2113e-03_rb,4.8050e-03_rb, &\n     &3.3497e-03_rb,1.8274e-03_rb,1.4724e-04_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &1.2207e-02_rb,1.0778e-02_rb,9.3683e-03_rb,7.9668e-03_rb,6.5278e-03_rb,5.0484e-03_rb, &\n     &3.5310e-03_rb,1.9391e-03_rb,2.0653e-04_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &1.2674e-02_rb,1.1230e-02_rb,9.8021e-03_rb,8.3609e-03_rb,6.8807e-03_rb,5.3359e-03_rb, &\n     &3.7364e-03_rb,2.0615e-03_rb,2.8343e-04_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &1.3265e-02_rb,1.1790e-02_rb,1.0322e-02_rb,8.8148e-03_rb,7.2381e-03_rb,5.6108e-03_rb, &\n     &3.9433e-03_rb,2.1912e-03_rb,3.7254e-04_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &3.7052e-02_rb,3.2437e-02_rb,2.7835e-02_rb,2.3250e-02_rb,1.8658e-02_rb,1.4080e-02_rb, &\n     &9.5558e-03_rb,4.9966e-03_rb,1.9423e-04_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &3.9539e-02_rb,3.4640e-02_rb,2.9744e-02_rb,2.4857e-02_rb,1.9981e-02_rb,1.5146e-02_rb, &\n     &1.0322e-02_rb,5.4117e-03_rb,2.4661e-04_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &4.1918e-02_rb,3.6737e-02_rb,3.1561e-02_rb,2.6402e-02_rb,2.1269e-02_rb,1.6195e-02_rb, &\n     &1.1056e-02_rb,5.7963e-03_rb,3.2011e-04_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &4.4100e-02_rb,3.8673e-02_rb,3.3273e-02_rb,2.7895e-02_rb,2.2554e-02_rb,1.7214e-02_rb, &\n     &1.1779e-02_rb,6.1756e-03_rb,4.1260e-04_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &4.6405e-02_rb,4.0709e-02_rb,3.5073e-02_rb,2.9453e-02_rb,2.3852e-02_rb,1.8195e-02_rb, &\n     &1.2445e-02_rb,6.5667e-03_rb,5.2938e-04_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &1.5260e-01_rb,1.3356e-01_rb,1.1452e-01_rb,9.5486e-02_rb,7.6440e-02_rb,5.7459e-02_rb, &\n     &3.8411e-02_rb,1.9334e-02_rb,1.8781e-04_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &1.6192e-01_rb,1.4171e-01_rb,1.2154e-01_rb,1.0139e-01_rb,8.1225e-02_rb,6.1032e-02_rb, &\n     &4.0817e-02_rb,2.0639e-02_rb,3.0020e-04_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &1.6952e-01_rb,1.4839e-01_rb,1.2731e-01_rb,1.0623e-01_rb,8.5090e-02_rb,6.3990e-02_rb, &\n     &4.2882e-02_rb,2.1810e-02_rb,3.7223e-04_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &1.7675e-01_rb,1.5478e-01_rb,1.3285e-01_rb,1.1085e-01_rb,8.8843e-02_rb,6.6852e-02_rb, &\n     &4.4829e-02_rb,2.2833e-02_rb,4.6711e-04_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &1.8239e-01_rb,1.5968e-01_rb,1.3704e-01_rb,1.1434e-01_rb,9.1701e-02_rb,6.9058e-02_rb, &\n     &4.6429e-02_rb,2.3733e-02_rb,6.6086e-04_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &2.7058e-01_rb,2.3683e-01_rb,2.0302e-01_rb,1.6928e-01_rb,1.3552e-01_rb,1.0170e-01_rb, &\n     &6.7859e-02_rb,3.4017e-02_rb,1.5001e-04_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &2.7834e-01_rb,2.4359e-01_rb,2.0889e-01_rb,1.7416e-01_rb,1.3942e-01_rb,1.0462e-01_rb, &\n     &6.9857e-02_rb,3.5072e-02_rb,2.9190e-04_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &2.8582e-01_rb,2.5022e-01_rb,2.1462e-01_rb,1.7895e-01_rb,1.4327e-01_rb,1.0754e-01_rb, &\n     &7.1838e-02_rb,3.6157e-02_rb,3.9721e-04_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &2.8898e-01_rb,2.5301e-01_rb,2.1700e-01_rb,1.8097e-01_rb,1.4487e-01_rb,1.0884e-01_rb, &\n     &7.2766e-02_rb,3.6699e-02_rb,5.3597e-04_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &2.9536e-01_rb,2.5857e-01_rb,2.2177e-01_rb,1.8491e-01_rb,1.4809e-01_rb,1.1136e-01_rb, &\n     &7.4481e-02_rb,3.7679e-02_rb,7.1552e-04_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &3.2683e-01_rb,2.8605e-01_rb,2.4525e-01_rb,2.0441e-01_rb,1.6361e-01_rb,1.2282e-01_rb, &\n     &8.1893e-02_rb,4.1016e-02_rb,1.4076e-04_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &3.3106e-01_rb,2.8971e-01_rb,2.4839e-01_rb,2.0704e-01_rb,1.6570e-01_rb,1.2434e-01_rb, &\n     &8.2938e-02_rb,4.1600e-02_rb,2.8033e-04_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &3.3746e-01_rb,2.9539e-01_rb,2.5326e-01_rb,2.1111e-01_rb,1.6904e-01_rb,1.2682e-01_rb, &\n     &8.4697e-02_rb,4.2481e-02_rb,3.8254e-04_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &3.4047e-01_rb,2.9813e-01_rb,2.5560e-01_rb,2.1310e-01_rb,1.7062e-01_rb,1.2812e-01_rb, &\n     &8.5526e-02_rb,4.3047e-02_rb,5.1612e-04_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &3.4523e-01_rb,3.0226e-01_rb,2.5919e-01_rb,2.1613e-01_rb,1.7310e-01_rb,1.3003e-01_rb, &\n     &8.6933e-02_rb,4.3928e-02_rb,7.3625e-04_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &2.9792e-01_rb,2.6068e-01_rb,2.2349e-01_rb,1.8628e-01_rb,1.4905e-01_rb,1.1181e-01_rb, &\n     &7.4561e-02_rb,3.7329e-02_rb,1.5388e-04_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &3.0081e-01_rb,2.6326e-01_rb,2.2566e-01_rb,1.8811e-01_rb,1.5050e-01_rb,1.1291e-01_rb, &\n     &7.5310e-02_rb,3.7768e-02_rb,2.8934e-04_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &3.0121e-01_rb,2.6362e-01_rb,2.2602e-01_rb,1.8840e-01_rb,1.5077e-01_rb,1.1318e-01_rb, &\n     &7.5585e-02_rb,3.7991e-02_rb,3.3166e-04_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &3.0495e-01_rb,2.6698e-01_rb,2.2888e-01_rb,1.9082e-01_rb,1.5277e-01_rb,1.1476e-01_rb, &\n     &7.6636e-02_rb,3.8673e-02_rb,4.6400e-04_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &3.1093e-01_rb,2.7226e-01_rb,2.3342e-01_rb,1.9467e-01_rb,1.5596e-01_rb,1.1716e-01_rb, &\n     &7.8384e-02_rb,3.9602e-02_rb,6.9078e-04_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &6.7719e-04_rb,7.1472e-04_rb,7.1797e-04_rb,6.8628e-04_rb,6.3509e-04_rb,5.7059e-04_rb, &\n     &5.0987e-04_rb,3.4938e-04_rb,4.0895e-04_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &6.7482e-04_rb,7.4520e-04_rb,7.5758e-04_rb,7.4570e-04_rb,7.0620e-04_rb,6.5805e-04_rb, &\n     &6.1645e-04_rb,4.7281e-04_rb,5.4801e-04_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &6.7924e-04_rb,7.8313e-04_rb,8.0713e-04_rb,8.1739e-04_rb,7.9231e-04_rb,7.6723e-04_rb, &\n     &7.3523e-04_rb,6.1861e-04_rb,7.0683e-04_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &6.8649e-04_rb,8.2657e-04_rb,8.7129e-04_rb,9.0685e-04_rb,8.9681e-04_rb,8.9801e-04_rb, &\n     &8.6860e-04_rb,7.7360e-04_rb,8.9309e-04_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &6.9142e-04_rb,8.7359e-04_rb,9.5301e-04_rb,1.0075e-03_rb,1.0203e-03_rb,1.0461e-03_rb, &\n     &1.0218e-03_rb,9.5114e-04_rb,1.0965e-03_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &9.6029e-04_rb,9.5330e-04_rb,9.1502e-04_rb,8.4442e-04_rb,7.4240e-04_rb,6.3131e-04_rb, &\n     &5.2007e-04_rb,3.7829e-04_rb,3.5691e-04_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &9.5985e-04_rb,9.8942e-04_rb,9.6445e-04_rb,8.9433e-04_rb,8.0300e-04_rb,7.0134e-04_rb, &\n     &6.1315e-04_rb,5.0159e-04_rb,4.8663e-04_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &9.6320e-04_rb,1.0310e-03_rb,1.0191e-03_rb,9.5205e-04_rb,8.7761e-04_rb,7.9453e-04_rb, &\n     &7.3253e-04_rb,6.2365e-04_rb,6.4547e-04_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &9.7399e-04_rb,1.0755e-03_rb,1.0817e-03_rb,1.0333e-03_rb,9.7218e-04_rb,9.1068e-04_rb, &\n     &8.7686e-04_rb,7.5862e-04_rb,8.3212e-04_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &9.8138e-04_rb,1.1324e-03_rb,1.1507e-03_rb,1.1333e-03_rb,1.0937e-03_rb,1.0509e-03_rb, &\n     &1.0310e-03_rb,9.0559e-04_rb,1.0246e-03_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &1.8119e-03_rb,1.6817e-03_rb,1.5499e-03_rb,1.3740e-03_rb,1.1743e-03_rb,9.5554e-04_rb, &\n     &7.1656e-04_rb,4.7034e-04_rb,2.9777e-04_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &1.8107e-03_rb,1.7310e-03_rb,1.6189e-03_rb,1.4391e-03_rb,1.2510e-03_rb,1.0204e-03_rb, &\n     &7.8709e-04_rb,5.5271e-04_rb,4.0666e-04_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &1.8217e-03_rb,1.7823e-03_rb,1.6795e-03_rb,1.5235e-03_rb,1.3331e-03_rb,1.1033e-03_rb, &\n     &8.7727e-04_rb,6.6343e-04_rb,5.5347e-04_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &1.8325e-03_rb,1.8451e-03_rb,1.7507e-03_rb,1.6178e-03_rb,1.4289e-03_rb,1.2102e-03_rb, &\n     &9.9121e-04_rb,7.9875e-04_rb,7.2923e-04_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &1.8499e-03_rb,1.9065e-03_rb,1.8500e-03_rb,1.7218e-03_rb,1.5483e-03_rb,1.3411e-03_rb, &\n     &1.1326e-03_rb,9.4539e-04_rb,9.3725e-04_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &3.4114e-03_rb,3.0491e-03_rb,2.7140e-03_rb,2.3662e-03_rb,1.9783e-03_rb,1.5658e-03_rb, &\n     &1.1300e-03_rb,6.5946e-04_rb,2.6201e-04_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &3.4376e-03_rb,3.0989e-03_rb,2.7962e-03_rb,2.4537e-03_rb,2.0666e-03_rb,1.6491e-03_rb, &\n     &1.2098e-03_rb,7.2995e-04_rb,3.5441e-04_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &3.4485e-03_rb,3.1733e-03_rb,2.8848e-03_rb,2.5421e-03_rb,2.1715e-03_rb,1.7580e-03_rb, &\n     &1.3056e-03_rb,8.1745e-04_rb,4.7057e-04_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &3.4770e-03_rb,3.2632e-03_rb,3.0027e-03_rb,2.6508e-03_rb,2.2906e-03_rb,1.8839e-03_rb, &\n     &1.4242e-03_rb,9.3156e-04_rb,6.1906e-04_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &3.5195e-03_rb,3.3661e-03_rb,3.1261e-03_rb,2.7792e-03_rb,2.4277e-03_rb,2.0261e-03_rb, &\n     &1.5634e-03_rb,1.0703e-03_rb,8.1465e-04_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &5.7502e-03_rb,5.0807e-03_rb,4.4217e-03_rb,3.7897e-03_rb,3.1287e-03_rb,2.4547e-03_rb, &\n     &1.7341e-03_rb,9.6239e-04_rb,2.4204e-04_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &5.7894e-03_rb,5.1466e-03_rb,4.5231e-03_rb,3.9026e-03_rb,3.2431e-03_rb,2.5561e-03_rb, &\n     &1.8209e-03_rb,1.0387e-03_rb,3.3073e-04_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &5.8510e-03_rb,5.2408e-03_rb,4.6666e-03_rb,4.0479e-03_rb,3.3863e-03_rb,2.6690e-03_rb, &\n     &1.9231e-03_rb,1.1318e-03_rb,4.4023e-04_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &5.9488e-03_rb,5.3756e-03_rb,4.8127e-03_rb,4.2175e-03_rb,3.5437e-03_rb,2.8108e-03_rb, &\n     &2.0541e-03_rb,1.2413e-03_rb,5.7017e-04_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &6.0632e-03_rb,5.5286e-03_rb,4.9850e-03_rb,4.3894e-03_rb,3.7125e-03_rb,2.9737e-03_rb, &\n     &2.2202e-03_rb,1.3784e-03_rb,7.3804e-04_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &9.0144e-03_rb,7.9241e-03_rb,6.8389e-03_rb,5.7807e-03_rb,4.7224e-03_rb,3.6386e-03_rb, &\n     &2.5487e-03_rb,1.3755e-03_rb,2.0268e-04_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &9.0405e-03_rb,7.9650e-03_rb,6.9105e-03_rb,5.8762e-03_rb,4.8286e-03_rb,3.7488e-03_rb, &\n     &2.6372e-03_rb,1.4443e-03_rb,2.8152e-04_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &9.2000e-03_rb,8.1570e-03_rb,7.1089e-03_rb,6.0851e-03_rb,5.0081e-03_rb,3.9064e-03_rb, &\n     &2.7603e-03_rb,1.5330e-03_rb,3.9833e-04_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &9.3676e-03_rb,8.3397e-03_rb,7.3293e-03_rb,6.2884e-03_rb,5.2172e-03_rb,4.0838e-03_rb, &\n     &2.8967e-03_rb,1.6576e-03_rb,5.5504e-04_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &9.5404e-03_rb,8.5459e-03_rb,7.5717e-03_rb,6.5076e-03_rb,5.4312e-03_rb,4.2828e-03_rb, &\n     &3.0616e-03_rb,1.8170e-03_rb,7.2861e-04_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &1.4907e-02_rb,1.3059e-02_rb,1.1219e-02_rb,9.3912e-03_rb,7.6074e-03_rb,5.8006e-03_rb, &\n     &3.9637e-03_rb,2.0976e-03_rb,1.8870e-04_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &1.4960e-02_rb,1.3123e-02_rb,1.1304e-02_rb,9.5034e-03_rb,7.7189e-03_rb,5.9029e-03_rb, &\n     &4.0714e-03_rb,2.1752e-03_rb,2.5278e-04_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &1.5077e-02_rb,1.3255e-02_rb,1.1479e-02_rb,9.6943e-03_rb,7.9204e-03_rb,6.0871e-03_rb, &\n     &4.2229e-03_rb,2.2784e-03_rb,3.4866e-04_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &1.5413e-02_rb,1.3606e-02_rb,1.1805e-02_rb,1.0016e-02_rb,8.1764e-03_rb,6.3063e-03_rb, &\n     &4.3884e-03_rb,2.3906e-03_rb,4.7884e-04_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &1.5640e-02_rb,1.3874e-02_rb,1.2089e-02_rb,1.0323e-02_rb,8.4660e-03_rb,6.5392e-03_rb, &\n     &4.5932e-03_rb,2.5421e-03_rb,6.8588e-04_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &2.8559e-02_rb,2.4997e-02_rb,2.1448e-02_rb,1.7898e-02_rb,1.4352e-02_rb,1.0840e-02_rb, &\n     &7.3538e-03_rb,3.7976e-03_rb,1.9487e-04_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &2.8738e-02_rb,2.5172e-02_rb,2.1609e-02_rb,1.8050e-02_rb,1.4521e-02_rb,1.1028e-02_rb, &\n     &7.4791e-03_rb,3.8937e-03_rb,2.5597e-04_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &2.9088e-02_rb,2.5505e-02_rb,2.1920e-02_rb,1.8369e-02_rb,1.4844e-02_rb,1.1305e-02_rb, &\n     &7.7085e-03_rb,4.0334e-03_rb,3.3647e-04_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &2.9471e-02_rb,2.5866e-02_rb,2.2282e-02_rb,1.8723e-02_rb,1.5191e-02_rb,1.1604e-02_rb, &\n     &7.9478e-03_rb,4.2092e-03_rb,4.5107e-04_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &2.9965e-02_rb,2.6334e-02_rb,2.2760e-02_rb,1.9185e-02_rb,1.5605e-02_rb,1.1940e-02_rb, &\n     &8.2260e-03_rb,4.4031e-03_rb,6.3668e-04_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &1.0333e-01_rb,9.0409e-02_rb,7.7506e-02_rb,6.4597e-02_rb,5.1717e-02_rb,3.8817e-02_rb, &\n     &2.5905e-02_rb,1.3064e-02_rb,2.4712e-04_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &1.0373e-01_rb,9.0771e-02_rb,7.7825e-02_rb,6.4896e-02_rb,5.1961e-02_rb,3.9016e-02_rb, &\n     &2.6085e-02_rb,1.3262e-02_rb,3.3832e-04_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &1.0493e-01_rb,9.1818e-02_rb,7.8786e-02_rb,6.5718e-02_rb,5.2648e-02_rb,3.9574e-02_rb, &\n     &2.6569e-02_rb,1.3576e-02_rb,4.4601e-04_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &1.0587e-01_rb,9.2691e-02_rb,7.9566e-02_rb,6.6407e-02_rb,5.3246e-02_rb,4.0117e-02_rb, &\n     &2.7043e-02_rb,1.3891e-02_rb,5.4826e-04_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &1.0759e-01_rb,9.4255e-02_rb,8.0925e-02_rb,6.7610e-02_rb,5.4300e-02_rb,4.1036e-02_rb, &\n     &2.7792e-02_rb,1.4265e-02_rb,6.4886e-04_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &3.9062e-01_rb,3.4177e-01_rb,2.9293e-01_rb,2.4412e-01_rb,1.9530e-01_rb,1.4643e-01_rb, &\n     &9.7639e-02_rb,4.8848e-02_rb,1.4547e-04_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &3.9313e-01_rb,3.4397e-01_rb,2.9486e-01_rb,2.4569e-01_rb,1.9653e-01_rb,1.4745e-01_rb, &\n     &9.8352e-02_rb,4.9236e-02_rb,2.6944e-04_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &3.9636e-01_rb,3.4679e-01_rb,2.9726e-01_rb,2.4770e-01_rb,1.9822e-01_rb,1.4872e-01_rb, &\n     &9.9231e-02_rb,4.9728e-02_rb,4.9543e-04_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &4.0190e-01_rb,3.5169e-01_rb,3.0137e-01_rb,2.5124e-01_rb,2.0112e-01_rb,1.5095e-01_rb, &\n     &1.0079e-01_rb,5.0721e-02_rb,7.4715e-04_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &4.1118e-01_rb,3.5981e-01_rb,3.0844e-01_rb,2.5722e-01_rb,2.0591e-01_rb,1.5462e-01_rb, &\n     &1.0334e-01_rb,5.2226e-02_rb,1.0737e-03_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &5.2843e-01_rb,4.6229e-01_rb,3.9627e-01_rb,3.3017e-01_rb,2.6411e-01_rb,1.9813e-01_rb, &\n     &1.3214e-01_rb,6.6158e-02_rb,1.5345e-04_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &5.2350e-01_rb,4.5807e-01_rb,3.9260e-01_rb,3.2718e-01_rb,2.6177e-01_rb,1.9641e-01_rb, &\n     &1.3106e-01_rb,6.5668e-02_rb,2.3814e-04_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &5.2048e-01_rb,4.5536e-01_rb,3.9029e-01_rb,3.2525e-01_rb,2.6032e-01_rb,1.9539e-01_rb, &\n     &1.3041e-01_rb,6.5403e-02_rb,4.8642e-04_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &5.2442e-01_rb,4.5878e-01_rb,3.9329e-01_rb,3.2791e-01_rb,2.6245e-01_rb,1.9699e-01_rb, &\n     &1.3158e-01_rb,6.6140e-02_rb,7.7713e-04_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &5.3645e-01_rb,4.6936e-01_rb,4.0243e-01_rb,3.3557e-01_rb,2.6862e-01_rb,2.0159e-01_rb, &\n     &1.3470e-01_rb,6.7828e-02_rb,1.0827e-03_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &5.9047e-01_rb,5.1664e-01_rb,4.4278e-01_rb,3.6903e-01_rb,2.9521e-01_rb,2.2135e-01_rb, &\n     &1.4776e-01_rb,7.3993e-02_rb,1.4236e-04_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &5.8585e-01_rb,5.1270e-01_rb,4.3944e-01_rb,3.6623e-01_rb,2.9300e-01_rb,2.1996e-01_rb, &\n     &1.4676e-01_rb,7.3476e-02_rb,2.2023e-04_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &5.7367e-01_rb,5.0194e-01_rb,4.3031e-01_rb,3.5876e-01_rb,2.8718e-01_rb,2.1559e-01_rb, &\n     &1.4380e-01_rb,7.2153e-02_rb,4.4743e-04_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &5.7511e-01_rb,5.0312e-01_rb,4.3146e-01_rb,3.5985e-01_rb,2.8795e-01_rb,2.1609e-01_rb, &\n     &1.4436e-01_rb,7.2515e-02_rb,8.0036e-04_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &5.8792e-01_rb,5.1441e-01_rb,4.4120e-01_rb,3.6789e-01_rb,2.9440e-01_rb,2.2104e-01_rb, &\n     &1.4769e-01_rb,7.4288e-02_rb,1.0818e-03_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &5.2587e-01_rb,4.6012e-01_rb,3.9434e-01_rb,3.2864e-01_rb,2.6295e-01_rb,1.9729e-01_rb, &\n     &1.3161e-01_rb,6.5880e-02_rb,1.1855e-04_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &5.1655e-01_rb,4.5203e-01_rb,3.8739e-01_rb,3.2291e-01_rb,2.5848e-01_rb,1.9395e-01_rb, &\n     &1.2940e-01_rb,6.4811e-02_rb,1.8738e-04_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &5.1454e-01_rb,4.5033e-01_rb,3.8607e-01_rb,3.2190e-01_rb,2.5767e-01_rb,1.9330e-01_rb, &\n     &1.2903e-01_rb,6.4719e-02_rb,4.6442e-04_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &5.2306e-01_rb,4.5763e-01_rb,3.9250e-01_rb,3.2722e-01_rb,2.6190e-01_rb,1.9661e-01_rb, &\n     &1.3127e-01_rb,6.5873e-02_rb,7.3146e-04_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &5.3732e-01_rb,4.7035e-01_rb,4.0337e-01_rb,3.3620e-01_rb,2.6904e-01_rb,2.0206e-01_rb, &\n     &1.3501e-01_rb,6.8074e-02_rb,1.0136e-03_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &1.2103e-03_rb,1.2175e-03_rb,1.1935e-03_rb,1.1549e-03_rb,1.0791e-03_rb,9.5598e-04_rb, &\n     &8.1255e-04_rb,6.1193e-04_rb,6.2180e-04_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &1.2178e-03_rb,1.2781e-03_rb,1.2880e-03_rb,1.2578e-03_rb,1.2013e-03_rb,1.0898e-03_rb, &\n     &9.4696e-04_rb,8.3333e-04_rb,8.1545e-04_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &1.2282e-03_rb,1.3405e-03_rb,1.3881e-03_rb,1.3716e-03_rb,1.3394e-03_rb,1.2381e-03_rb, &\n     &1.1125e-03_rb,1.0711e-03_rb,1.0876e-03_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &1.2403e-03_rb,1.4084e-03_rb,1.4922e-03_rb,1.5029e-03_rb,1.4913e-03_rb,1.4226e-03_rb, &\n     &1.3116e-03_rb,1.3637e-03_rb,1.4095e-03_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &1.2587e-03_rb,1.4782e-03_rb,1.5894e-03_rb,1.6533e-03_rb,1.6739e-03_rb,1.6196e-03_rb, &\n     &1.5433e-03_rb,1.7053e-03_rb,1.8020e-03_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &1.5958e-03_rb,1.5396e-03_rb,1.4781e-03_rb,1.3976e-03_rb,1.2942e-03_rb,1.1273e-03_rb, &\n     &9.3307e-04_rb,7.0021e-04_rb,6.0904e-04_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &1.6176e-03_rb,1.6176e-03_rb,1.5750e-03_rb,1.5193e-03_rb,1.4296e-03_rb,1.2725e-03_rb, &\n     &1.0674e-03_rb,8.4851e-04_rb,7.7411e-04_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &1.6471e-03_rb,1.6851e-03_rb,1.6807e-03_rb,1.6583e-03_rb,1.5791e-03_rb,1.4314e-03_rb, &\n     &1.2293e-03_rb,1.0317e-03_rb,9.9584e-04_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &1.6650e-03_rb,1.7627e-03_rb,1.7970e-03_rb,1.8046e-03_rb,1.7334e-03_rb,1.6113e-03_rb, &\n     &1.4228e-03_rb,1.2451e-03_rb,1.2394e-03_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &1.7122e-03_rb,1.8558e-03_rb,1.9287e-03_rb,1.9533e-03_rb,1.9037e-03_rb,1.8293e-03_rb, &\n     &1.6473e-03_rb,1.5087e-03_rb,1.5795e-03_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &2.9351e-03_rb,2.6534e-03_rb,2.4324e-03_rb,2.1954e-03_rb,1.9158e-03_rb,1.6076e-03_rb, &\n     &1.2520e-03_rb,8.5789e-04_rb,6.1375e-04_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &2.9633e-03_rb,2.7281e-03_rb,2.5348e-03_rb,2.3132e-03_rb,2.0567e-03_rb,1.7614e-03_rb, &\n     &1.4143e-03_rb,9.9890e-04_rb,7.9742e-04_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &3.0018e-03_rb,2.8266e-03_rb,2.6658e-03_rb,2.4521e-03_rb,2.2182e-03_rb,1.9505e-03_rb, &\n     &1.5883e-03_rb,1.1664e-03_rb,9.9661e-04_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &3.0730e-03_rb,2.9520e-03_rb,2.8043e-03_rb,2.6204e-03_rb,2.4182e-03_rb,2.1521e-03_rb, &\n     &1.7967e-03_rb,1.3650e-03_rb,1.2315e-03_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &3.1816e-03_rb,3.1107e-03_rb,2.9552e-03_rb,2.8080e-03_rb,2.6346e-03_rb,2.3544e-03_rb, &\n     &2.0373e-03_rb,1.6039e-03_rb,1.5090e-03_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &5.7269e-03_rb,5.0918e-03_rb,4.4466e-03_rb,3.8641e-03_rb,3.2580e-03_rb,2.6083e-03_rb, &\n     &1.8965e-03_rb,1.1416e-03_rb,5.7204e-04_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &5.7492e-03_rb,5.1587e-03_rb,4.5741e-03_rb,4.0239e-03_rb,3.4230e-03_rb,2.7638e-03_rb, &\n     &2.0485e-03_rb,1.2804e-03_rb,7.6092e-04_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &5.8525e-03_rb,5.2748e-03_rb,4.7562e-03_rb,4.2073e-03_rb,3.6092e-03_rb,2.9384e-03_rb, &\n     &2.2265e-03_rb,1.4580e-03_rb,9.9771e-04_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &5.9797e-03_rb,5.4326e-03_rb,4.9495e-03_rb,4.4248e-03_rb,3.8014e-03_rb,3.1433e-03_rb, &\n     &2.4307e-03_rb,1.6612e-03_rb,1.3149e-03_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &6.1647e-03_rb,5.6540e-03_rb,5.1948e-03_rb,4.6848e-03_rb,4.0444e-03_rb,3.3860e-03_rb, &\n     &2.6695e-03_rb,1.9106e-03_rb,1.6620e-03_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &1.0220e-02_rb,9.0008e-03_rb,7.7868e-03_rb,6.5817e-03_rb,5.4248e-03_rb,4.2290e-03_rb, &\n     &3.0009e-03_rb,1.6787e-03_rb,5.3957e-04_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &1.0367e-02_rb,9.1668e-03_rb,7.9693e-03_rb,6.7850e-03_rb,5.6408e-03_rb,4.4280e-03_rb, &\n     &3.1863e-03_rb,1.8183e-03_rb,7.0339e-04_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &1.0581e-02_rb,9.4102e-03_rb,8.2049e-03_rb,7.0786e-03_rb,5.9001e-03_rb,4.6839e-03_rb, &\n     &3.3914e-03_rb,1.9878e-03_rb,9.2591e-04_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &1.0809e-02_rb,9.6775e-03_rb,8.5132e-03_rb,7.3701e-03_rb,6.2042e-03_rb,4.9938e-03_rb, &\n     &3.6238e-03_rb,2.1871e-03_rb,1.1943e-03_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &1.1112e-02_rb,1.0026e-02_rb,8.9250e-03_rb,7.7808e-03_rb,6.5932e-03_rb,5.3151e-03_rb, &\n     &3.9019e-03_rb,2.4156e-03_rb,1.5529e-03_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &1.6720e-02_rb,1.4665e-02_rb,1.2615e-02_rb,1.0575e-02_rb,8.5627e-03_rb,6.5744e-03_rb, &\n     &4.5286e-03_rb,2.4830e-03_rb,5.6458e-04_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &1.7104e-02_rb,1.5034e-02_rb,1.2975e-02_rb,1.0925e-02_rb,8.9009e-03_rb,6.8822e-03_rb, &\n     &4.7999e-03_rb,2.6619e-03_rb,7.2679e-04_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &1.7534e-02_rb,1.5438e-02_rb,1.3395e-02_rb,1.1323e-02_rb,9.3166e-03_rb,7.2349e-03_rb, &\n     &5.0972e-03_rb,2.8734e-03_rb,9.0147e-04_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &1.8091e-02_rb,1.6011e-02_rb,1.3940e-02_rb,1.1869e-02_rb,9.7728e-03_rb,7.6440e-03_rb, &\n     &5.4515e-03_rb,3.0818e-03_rb,1.1288e-03_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &1.8583e-02_rb,1.6530e-02_rb,1.4432e-02_rb,1.2438e-02_rb,1.0309e-02_rb,8.1409e-03_rb, &\n     &5.8462e-03_rb,3.3346e-03_rb,1.4293e-03_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &2.7982e-02_rb,2.4501e-02_rb,2.1043e-02_rb,1.7577e-02_rb,1.4110e-02_rb,1.0697e-02_rb, &\n     &7.3114e-03_rb,3.8393e-03_rb,5.1721e-04_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &2.8730e-02_rb,2.5189e-02_rb,2.1653e-02_rb,1.8120e-02_rb,1.4619e-02_rb,1.1160e-02_rb, &\n     &7.6475e-03_rb,4.0900e-03_rb,6.8268e-04_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &2.9602e-02_rb,2.5984e-02_rb,2.2367e-02_rb,1.8790e-02_rb,1.5226e-02_rb,1.1688e-02_rb, &\n     &8.0684e-03_rb,4.3672e-03_rb,8.7865e-04_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &3.0383e-02_rb,2.6722e-02_rb,2.3100e-02_rb,1.9474e-02_rb,1.5890e-02_rb,1.2270e-02_rb, &\n     &8.5486e-03_rb,4.6828e-03_rb,1.1058e-03_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &3.1027e-02_rb,2.7319e-02_rb,2.3722e-02_rb,2.0052e-02_rb,1.6464e-02_rb,1.2803e-02_rb, &\n     &9.0257e-03_rb,5.0413e-03_rb,1.3701e-03_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &5.4825e-02_rb,4.7970e-02_rb,4.1147e-02_rb,3.4322e-02_rb,2.7487e-02_rb,2.0656e-02_rb, &\n     &1.3854e-02_rb,7.1281e-03_rb,4.3340e-04_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &5.6231e-02_rb,4.9217e-02_rb,4.2253e-02_rb,3.5263e-02_rb,2.8269e-02_rb,2.1292e-02_rb, &\n     &1.4434e-02_rb,7.4660e-03_rb,6.0870e-04_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &5.7926e-02_rb,5.0738e-02_rb,4.3579e-02_rb,3.6411e-02_rb,2.9254e-02_rb,2.2161e-02_rb, &\n     &1.5102e-02_rb,7.9134e-03_rb,8.5563e-04_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &5.9329e-02_rb,5.2017e-02_rb,4.4709e-02_rb,3.7445e-02_rb,3.0174e-02_rb,2.2939e-02_rb, &\n     &1.5732e-02_rb,8.3409e-03_rb,1.1069e-03_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &6.0706e-02_rb,5.3284e-02_rb,4.5885e-02_rb,3.8526e-02_rb,3.1172e-02_rb,2.3870e-02_rb, &\n     &1.6429e-02_rb,8.7694e-03_rb,1.3835e-03_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &2.0429e-01_rb,1.7875e-01_rb,1.5322e-01_rb,1.2768e-01_rb,1.0216e-01_rb,7.6684e-02_rb, &\n     &5.1143e-02_rb,2.5629e-02_rb,2.9263e-04_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &2.0990e-01_rb,1.8367e-01_rb,1.5743e-01_rb,1.3122e-01_rb,1.0506e-01_rb,7.8849e-02_rb, &\n     &5.2652e-02_rb,2.6459e-02_rb,5.6921e-04_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &2.1338e-01_rb,1.8672e-01_rb,1.6006e-01_rb,1.3349e-01_rb,1.0689e-01_rb,8.0285e-02_rb, &\n     &5.3664e-02_rb,2.7200e-02_rb,9.3758e-04_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &2.2002e-01_rb,1.9252e-01_rb,1.6512e-01_rb,1.3776e-01_rb,1.1035e-01_rb,8.2930e-02_rb, &\n     &5.5562e-02_rb,2.8342e-02_rb,1.3055e-03_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &2.2506e-01_rb,1.9692e-01_rb,1.6901e-01_rb,1.4099e-01_rb,1.1303e-01_rb,8.5078e-02_rb, &\n     &5.7190e-02_rb,2.9461e-02_rb,1.8874e-03_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &8.3776e-01_rb,7.3310e-01_rb,6.2841e-01_rb,5.2361e-01_rb,4.1890e-01_rb,3.1415e-01_rb, &\n     &2.0945e-01_rb,1.0479e-01_rb,1.9258e-04_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &8.5667e-01_rb,7.4964e-01_rb,6.4250e-01_rb,5.3547e-01_rb,4.2837e-01_rb,3.2129e-01_rb, &\n     &2.1421e-01_rb,1.0723e-01_rb,3.0052e-04_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &8.7378e-01_rb,7.6452e-01_rb,6.5535e-01_rb,5.4608e-01_rb,4.3691e-01_rb,3.2776e-01_rb, &\n     &2.1870e-01_rb,1.0952e-01_rb,5.4766e-04_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &8.9911e-01_rb,7.8666e-01_rb,6.7423e-01_rb,5.6186e-01_rb,4.4961e-01_rb,3.3744e-01_rb, &\n     &2.2515e-01_rb,1.1291e-01_rb,1.0571e-03_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &9.2543e-01_rb,8.0983e-01_rb,6.9418e-01_rb,5.7864e-01_rb,4.6314e-01_rb,3.4767e-01_rb, &\n     &2.3212e-01_rb,1.1658e-01_rb,1.4779e-03_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &1.1170e+00_rb,9.7735e-01_rb,8.3780e-01_rb,6.9827e-01_rb,5.5860e-01_rb,4.1894e-01_rb, &\n     &2.7927e-01_rb,1.3969e-01_rb,1.8784e-04_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &1.1469e+00_rb,1.0035e+00_rb,8.6021e-01_rb,7.1681e-01_rb,5.7347e-01_rb,4.3009e-01_rb, &\n     &2.8675e-01_rb,1.4352e-01_rb,2.9142e-04_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &1.1926e+00_rb,1.0436e+00_rb,8.9439e-01_rb,7.4544e-01_rb,5.9622e-01_rb,4.4725e-01_rb, &\n     &2.9836e-01_rb,1.4934e-01_rb,4.5203e-04_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &1.2362e+00_rb,1.0816e+00_rb,9.2703e-01_rb,7.7246e-01_rb,6.1814e-01_rb,4.6378e-01_rb, &\n     &3.0936e-01_rb,1.5503e-01_rb,7.8924e-04_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &1.2847e+00_rb,1.1241e+00_rb,9.6352e-01_rb,8.0300e-01_rb,6.4259e-01_rb,4.8242e-01_rb, &\n     &3.2196e-01_rb,1.6156e-01_rb,1.3839e-03_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &1.0784e+00_rb,9.4374e-01_rb,8.0896e-01_rb,6.7399e-01_rb,5.3931e-01_rb,4.0450e-01_rb, &\n     &2.6958e-01_rb,1.3485e-01_rb,1.8250e-04_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &1.1016e+00_rb,9.6383e-01_rb,8.2624e-01_rb,6.8848e-01_rb,5.5081e-01_rb,4.1305e-01_rb, &\n     &2.7543e-01_rb,1.3793e-01_rb,2.7118e-04_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &1.1494e+00_rb,1.0057e+00_rb,8.6213e-01_rb,7.1839e-01_rb,5.7458e-01_rb,4.3099e-01_rb, &\n     &2.8756e-01_rb,1.4395e-01_rb,4.0903e-04_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &1.1966e+00_rb,1.0468e+00_rb,8.9727e-01_rb,7.4760e-01_rb,5.9830e-01_rb,4.4892e-01_rb, &\n     &2.9949e-01_rb,1.5008e-01_rb,6.0710e-04_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &1.2391e+00_rb,1.0842e+00_rb,9.2930e-01_rb,7.7450e-01_rb,6.1988e-01_rb,4.6531e-01_rb, &\n     &3.1051e-01_rb,1.5585e-01_rb,1.1075e-03_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &9.1609e-01_rb,8.0170e-01_rb,6.8730e-01_rb,5.7285e-01_rb,4.5825e-01_rb,3.4365e-01_rb, &\n     &2.2921e-01_rb,1.1478e-01_rb,1.8534e-04_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &9.2338e-01_rb,8.0782e-01_rb,6.9263e-01_rb,5.7718e-01_rb,4.6175e-01_rb,3.4635e-01_rb, &\n     &2.3110e-01_rb,1.1575e-01_rb,2.6985e-04_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &9.4678e-01_rb,8.2823e-01_rb,7.0984e-01_rb,5.9160e-01_rb,4.7336e-01_rb,3.5526e-01_rb, &\n     &2.3691e-01_rb,1.1874e-01_rb,3.9189e-04_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &9.5798e-01_rb,8.3839e-01_rb,7.1856e-01_rb,5.9888e-01_rb,4.7933e-01_rb,3.5969e-01_rb, &\n     &2.4009e-01_rb,1.2046e-01_rb,6.8070e-04_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &9.7420e-01_rb,8.5221e-01_rb,7.3072e-01_rb,6.0920e-01_rb,4.8778e-01_rb,3.6616e-01_rb, &\n     &2.4455e-01_rb,1.2274e-01_rb,1.2004e-03_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &2.2086e-03_rb,2.0999e-03_rb,2.0159e-03_rb,1.8719e-03_rb,1.7233e-03_rb,1.5637e-03_rb, &\n     &1.3735e-03_rb,1.3147e-03_rb,1.3769e-03_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &2.2485e-03_rb,2.2158e-03_rb,2.1547e-03_rb,2.0369e-03_rb,1.8898e-03_rb,1.7374e-03_rb, &\n     &1.6006e-03_rb,1.7014e-03_rb,1.7807e-03_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &2.2803e-03_rb,2.3414e-03_rb,2.2949e-03_rb,2.2265e-03_rb,2.0601e-03_rb,1.9356e-03_rb, &\n     &1.8992e-03_rb,2.1518e-03_rb,2.2509e-03_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &2.3178e-03_rb,2.4462e-03_rb,2.4702e-03_rb,2.4013e-03_rb,2.2630e-03_rb,2.1680e-03_rb, &\n     &2.2995e-03_rb,2.6824e-03_rb,2.8243e-03_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &2.3355e-03_rb,2.5902e-03_rb,2.6514e-03_rb,2.5825e-03_rb,2.4802e-03_rb,2.5028e-03_rb, &\n     &2.7971e-03_rb,3.2930e-03_rb,3.4957e-03_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &3.2554e-03_rb,3.0029e-03_rb,2.8238e-03_rb,2.5475e-03_rb,2.2552e-03_rb,1.9853e-03_rb, &\n     &1.6584e-03_rb,1.2784e-03_rb,1.0936e-03_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &3.3021e-03_rb,3.1146e-03_rb,2.9858e-03_rb,2.7302e-03_rb,2.4455e-03_rb,2.1856e-03_rb, &\n     &1.8782e-03_rb,1.5376e-03_rb,1.5050e-03_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &3.3434e-03_rb,3.2633e-03_rb,3.1581e-03_rb,2.9235e-03_rb,2.6724e-03_rb,2.4236e-03_rb, &\n     &2.1164e-03_rb,1.8700e-03_rb,1.9615e-03_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &3.3924e-03_rb,3.4464e-03_rb,3.3467e-03_rb,3.1420e-03_rb,2.9417e-03_rb,2.6854e-03_rb, &\n     &2.3908e-03_rb,2.2943e-03_rb,2.5456e-03_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &3.4124e-03_rb,3.5941e-03_rb,3.5577e-03_rb,3.4139e-03_rb,3.2366e-03_rb,2.9618e-03_rb, &\n     &2.7452e-03_rb,2.8336e-03_rb,3.1731e-03_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &6.2310e-03_rb,5.6159e-03_rb,4.9769e-03_rb,4.4245e-03_rb,3.8289e-03_rb,3.1465e-03_rb, &\n     &2.4651e-03_rb,1.6762e-03_rb,1.0171e-03_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &6.3558e-03_rb,5.7885e-03_rb,5.2143e-03_rb,4.7067e-03_rb,4.0833e-03_rb,3.4041e-03_rb, &\n     &2.6899e-03_rb,1.9219e-03_rb,1.2943e-03_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &6.4584e-03_rb,5.9604e-03_rb,5.4819e-03_rb,4.9958e-03_rb,4.3577e-03_rb,3.6662e-03_rb, &\n     &2.9872e-03_rb,2.1872e-03_rb,1.6861e-03_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &6.6103e-03_rb,6.1684e-03_rb,5.8142e-03_rb,5.2903e-03_rb,4.6437e-03_rb,3.9929e-03_rb, &\n     &3.3051e-03_rb,2.4974e-03_rb,2.2070e-03_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &6.6588e-03_rb,6.3708e-03_rb,6.1123e-03_rb,5.6154e-03_rb,4.9949e-03_rb,4.3617e-03_rb, &\n     &3.6895e-03_rb,2.8582e-03_rb,2.8798e-03_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &1.1807e-02_rb,1.0450e-02_rb,9.1344e-03_rb,7.7844e-03_rb,6.5100e-03_rb,5.2593e-03_rb, &\n     &3.9218e-03_rb,2.4635e-03_rb,1.1324e-03_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &1.2088e-02_rb,1.0775e-02_rb,9.4615e-03_rb,8.1147e-03_rb,6.9001e-03_rb,5.6187e-03_rb, &\n     &4.2536e-03_rb,2.7131e-03_rb,1.3848e-03_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &1.2276e-02_rb,1.1057e-02_rb,9.7542e-03_rb,8.5429e-03_rb,7.3199e-03_rb,6.0294e-03_rb, &\n     &4.5931e-03_rb,3.0093e-03_rb,1.7357e-03_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &1.2505e-02_rb,1.1360e-02_rb,1.0130e-02_rb,9.0368e-03_rb,7.7990e-03_rb,6.4476e-03_rb, &\n     &5.0000e-03_rb,3.3597e-03_rb,2.0753e-03_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &1.2694e-02_rb,1.1662e-02_rb,1.0517e-02_rb,9.4548e-03_rb,8.2827e-03_rb,6.9233e-03_rb, &\n     &5.4172e-03_rb,3.7628e-03_rb,2.5678e-03_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &2.0656e-02_rb,1.8160e-02_rb,1.5700e-02_rb,1.3242e-02_rb,1.0772e-02_rb,8.3779e-03_rb, &\n     &6.0246e-03_rb,3.5524e-03_rb,1.1630e-03_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &2.0910e-02_rb,1.8437e-02_rb,1.6005e-02_rb,1.3585e-02_rb,1.1145e-02_rb,8.8221e-03_rb, &\n     &6.4062e-03_rb,3.8753e-03_rb,1.4990e-03_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &2.1222e-02_rb,1.8787e-02_rb,1.6416e-02_rb,1.3970e-02_rb,1.1606e-02_rb,9.3057e-03_rb, &\n     &6.8725e-03_rb,4.2169e-03_rb,1.9100e-03_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &2.1675e-02_rb,1.9271e-02_rb,1.6942e-02_rb,1.4504e-02_rb,1.2206e-02_rb,9.8161e-03_rb, &\n     &7.3695e-03_rb,4.6216e-03_rb,2.4296e-03_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &2.2102e-02_rb,1.9781e-02_rb,1.7441e-02_rb,1.5076e-02_rb,1.2804e-02_rb,1.0400e-02_rb, &\n     &7.9027e-03_rb,5.0748e-03_rb,2.9846e-03_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &3.4516e-02_rb,3.0236e-02_rb,2.6032e-02_rb,2.1800e-02_rb,1.7574e-02_rb,1.3389e-02_rb, &\n     &9.2847e-03_rb,5.1122e-03_rb,1.0508e-03_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &3.4800e-02_rb,3.0544e-02_rb,2.6323e-02_rb,2.2117e-02_rb,1.7921e-02_rb,1.3756e-02_rb, &\n     &9.6631e-03_rb,5.4342e-03_rb,1.4451e-03_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &3.5127e-02_rb,3.0902e-02_rb,2.6702e-02_rb,2.2553e-02_rb,1.8369e-02_rb,1.4212e-02_rb, &\n     &1.0118e-02_rb,5.8263e-03_rb,1.8818e-03_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &3.5628e-02_rb,3.1400e-02_rb,2.7233e-02_rb,2.3087e-02_rb,1.8895e-02_rb,1.4840e-02_rb, &\n     &1.0658e-02_rb,6.2966e-03_rb,2.4028e-03_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &3.6414e-02_rb,3.2167e-02_rb,2.8039e-02_rb,2.3770e-02_rb,1.9619e-02_rb,1.5526e-02_rb, &\n     &1.1248e-02_rb,6.8040e-03_rb,2.9828e-03_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &6.0465e-02_rb,5.2915e-02_rb,4.5423e-02_rb,3.7947e-02_rb,3.0446e-02_rb,2.2948e-02_rb, &\n     &1.5515e-02_rb,8.2239e-03_rb,1.0379e-03_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &6.0755e-02_rb,5.3175e-02_rb,4.5748e-02_rb,3.8231e-02_rb,3.0723e-02_rb,2.3271e-02_rb, &\n     &1.5903e-02_rb,8.5285e-03_rb,1.3797e-03_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &6.1398e-02_rb,5.3805e-02_rb,4.6318e-02_rb,3.8793e-02_rb,3.1274e-02_rb,2.3804e-02_rb, &\n     &1.6410e-02_rb,8.9355e-03_rb,1.8226e-03_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &6.2566e-02_rb,5.4915e-02_rb,4.7291e-02_rb,3.9712e-02_rb,3.2135e-02_rb,2.4531e-02_rb, &\n     &1.7075e-02_rb,9.4211e-03_rb,2.3895e-03_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &6.4353e-02_rb,5.6526e-02_rb,4.8732e-02_rb,4.1035e-02_rb,3.3303e-02_rb,2.5613e-02_rb, &\n     &1.7950e-02_rb,9.9840e-03_rb,2.9275e-03_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &1.2368e-01_rb,1.0822e-01_rb,9.2766e-02_rb,7.7347e-02_rb,6.2005e-02_rb,4.6603e-02_rb, &\n     &3.1194e-02_rb,1.5883e-02_rb,8.5274e-04_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &1.2468e-01_rb,1.0911e-01_rb,9.3546e-02_rb,7.8108e-02_rb,6.2629e-02_rb,4.7130e-02_rb, &\n     &3.1595e-02_rb,1.6348e-02_rb,1.3444e-03_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &1.2638e-01_rb,1.1058e-01_rb,9.4937e-02_rb,7.9293e-02_rb,6.3607e-02_rb,4.7918e-02_rb, &\n     &3.2304e-02_rb,1.6902e-02_rb,1.7616e-03_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &1.2969e-01_rb,1.1353e-01_rb,9.7623e-02_rb,8.1508e-02_rb,6.5432e-02_rb,4.9461e-02_rb, &\n     &3.3527e-02_rb,1.7620e-02_rb,2.4617e-03_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &1.3392e-01_rb,1.1729e-01_rb,1.0082e-01_rb,8.4317e-02_rb,6.7894e-02_rb,5.1430e-02_rb, &\n     &3.4991e-02_rb,1.8580e-02_rb,3.1642e-03_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &4.6846e-01_rb,4.0990e-01_rb,3.5136e-01_rb,2.9284e-01_rb,2.3423e-01_rb,1.7564e-01_rb, &\n     &1.1723e-01_rb,5.8786e-02_rb,4.0030e-04_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &4.7406e-01_rb,4.1475e-01_rb,3.5556e-01_rb,2.9624e-01_rb,2.3703e-01_rb,1.7789e-01_rb, &\n     &1.1882e-01_rb,5.9622e-02_rb,6.8004e-04_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &4.8684e-01_rb,4.2603e-01_rb,3.6514e-01_rb,3.0430e-01_rb,2.4358e-01_rb,1.8292e-01_rb, &\n     &1.2220e-01_rb,6.1402e-02_rb,1.0402e-03_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &5.0043e-01_rb,4.3778e-01_rb,3.7520e-01_rb,3.1290e-01_rb,2.5060e-01_rb,1.8834e-01_rb, &\n     &1.2594e-01_rb,6.3564e-02_rb,1.7944e-03_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &5.2090e-01_rb,4.5588e-01_rb,3.9070e-01_rb,3.2594e-01_rb,2.6129e-01_rb,1.9629e-01_rb, &\n     &1.3136e-01_rb,6.6645e-02_rb,2.5620e-03_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &1.9599e+00_rb,1.7147e+00_rb,1.4700e+00_rb,1.2249e+00_rb,9.7999e-01_rb,7.3502e-01_rb, &\n     &4.8995e-01_rb,2.4496e-01_rb,4.5019e-04_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &2.0004e+00_rb,1.7503e+00_rb,1.5003e+00_rb,1.2502e+00_rb,1.0002e+00_rb,7.5004e-01_rb, &\n     &5.0013e-01_rb,2.5017e-01_rb,7.7160e-04_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &2.0706e+00_rb,1.8118e+00_rb,1.5527e+00_rb,1.2941e+00_rb,1.0353e+00_rb,7.7648e-01_rb, &\n     &5.1774e-01_rb,2.5926e-01_rb,1.2278e-03_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &2.1488e+00_rb,1.8803e+00_rb,1.6119e+00_rb,1.3430e+00_rb,1.0744e+00_rb,8.0582e-01_rb, &\n     &5.3747e-01_rb,2.6934e-01_rb,1.1252e-03_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &2.2415e+00_rb,1.9614e+00_rb,1.6811e+00_rb,1.4008e+00_rb,1.1207e+00_rb,8.4068e-01_rb, &\n     &5.6107e-01_rb,2.8130e-01_rb,1.6850e-03_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &2.8911e+00_rb,2.5300e+00_rb,2.1683e+00_rb,1.8069e+00_rb,1.4455e+00_rb,1.0841e+00_rb, &\n     &7.2274e-01_rb,3.6133e-01_rb,4.4874e-04_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &2.9950e+00_rb,2.6205e+00_rb,2.2462e+00_rb,1.8718e+00_rb,1.4974e+00_rb,1.1232e+00_rb, &\n     &7.4873e-01_rb,3.7448e-01_rb,7.8243e-04_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &3.1150e+00_rb,2.7257e+00_rb,2.3363e+00_rb,1.9467e+00_rb,1.5577e+00_rb,1.1681e+00_rb, &\n     &7.7884e-01_rb,3.8967e-01_rb,1.2703e-03_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &3.2669e+00_rb,2.8585e+00_rb,2.4505e+00_rb,2.0417e+00_rb,1.6337e+00_rb,1.2254e+00_rb, &\n     &8.1715e-01_rb,4.0914e-01_rb,1.7634e-03_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &3.4234e+00_rb,2.9957e+00_rb,2.5672e+00_rb,2.1393e+00_rb,1.7114e+00_rb,1.2836e+00_rb, &\n     &8.5639e-01_rb,4.2894e-01_rb,1.6787e-03_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &3.0768e+00_rb,2.6917e+00_rb,2.3070e+00_rb,1.9231e+00_rb,1.5383e+00_rb,1.1537e+00_rb, &\n     &7.6915e-01_rb,3.8462e-01_rb,4.7094e-04_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &3.2435e+00_rb,2.8382e+00_rb,2.4330e+00_rb,2.0274e+00_rb,1.6219e+00_rb,1.2164e+00_rb, &\n     &8.1089e-01_rb,4.0548e-01_rb,8.2872e-04_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &3.4231e+00_rb,2.9954e+00_rb,2.5672e+00_rb,2.1393e+00_rb,1.7115e+00_rb,1.2835e+00_rb, &\n     &8.5578e-01_rb,4.2826e-01_rb,1.3467e-03_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &3.5915e+00_rb,3.1425e+00_rb,2.6940e+00_rb,2.2448e+00_rb,1.7959e+00_rb,1.3469e+00_rb, &\n     &8.9804e-01_rb,4.4980e-01_rb,2.0869e-03_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &3.8078e+00_rb,3.3318e+00_rb,2.8557e+00_rb,2.3795e+00_rb,1.9039e+00_rb,1.4280e+00_rb, &\n     &9.5252e-01_rb,4.7712e-01_rb,1.8673e-03_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &2.3608e+00_rb,2.0656e+00_rb,1.7703e+00_rb,1.4752e+00_rb,1.1801e+00_rb,8.8512e-01_rb, &\n     &5.9005e-01_rb,2.9502e-01_rb,4.6667e-04_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &2.5500e+00_rb,2.2311e+00_rb,1.9119e+00_rb,1.5932e+00_rb,1.2746e+00_rb,9.5617e-01_rb, &\n     &6.3722e-01_rb,3.1884e-01_rb,8.1387e-04_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &2.7068e+00_rb,2.3688e+00_rb,2.0306e+00_rb,1.6919e+00_rb,1.3534e+00_rb,1.0151e+00_rb, &\n     &6.7709e-01_rb,3.3887e-01_rb,1.3055e-03_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &2.8840e+00_rb,2.5234e+00_rb,2.1627e+00_rb,1.8025e+00_rb,1.4417e+00_rb,1.0815e+00_rb, &\n     &7.2137e-01_rb,3.6139e-01_rb,1.9116e-03_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &3.0939e+00_rb,2.7071e+00_rb,2.3203e+00_rb,1.9334e+00_rb,1.5471e+00_rb,1.1606e+00_rb, &\n     &7.7438e-01_rb,3.8815e-01_rb,1.4651e-03_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &3.8342e-03_rb,3.6037e-03_rb,3.3390e-03_rb,3.1415e-03_rb,3.0062e-03_rb,3.0639e-03_rb, &\n     &3.3790e-03_rb,3.9710e-03_rb,4.6693e-03_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &3.8099e-03_rb,3.5245e-03_rb,3.4236e-03_rb,3.3696e-03_rb,3.4435e-03_rb,3.7521e-03_rb, &\n     &4.3079e-03_rb,5.1949e-03_rb,5.9521e-03_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &3.6846e-03_rb,3.4976e-03_rb,3.5740e-03_rb,3.6729e-03_rb,4.0680e-03_rb,4.6302e-03_rb, &\n     &5.4360e-03_rb,6.6553e-03_rb,7.4735e-03_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &3.5274e-03_rb,3.5376e-03_rb,3.7030e-03_rb,4.1336e-03_rb,4.8513e-03_rb,5.7165e-03_rb, &\n     &6.7340e-03_rb,8.3554e-03_rb,9.2181e-03_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &3.3692e-03_rb,3.5348e-03_rb,3.9656e-03_rb,4.7179e-03_rb,5.7827e-03_rb,6.9797e-03_rb, &\n     &8.2404e-03_rb,1.0337e-02_rb,1.1151e-02_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &6.4244e-03_rb,5.9003e-03_rb,5.2917e-03_rb,4.8738e-03_rb,4.2886e-03_rb,3.6979e-03_rb, &\n     &3.3432e-03_rb,3.4356e-03_rb,4.2740e-03_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &6.4294e-03_rb,5.9365e-03_rb,5.4378e-03_rb,5.0910e-03_rb,4.5359e-03_rb,4.1466e-03_rb, &\n     &4.0476e-03_rb,4.4354e-03_rb,5.4215e-03_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &6.3847e-03_rb,6.0135e-03_rb,5.5846e-03_rb,5.2573e-03_rb,4.8954e-03_rb,4.7657e-03_rb, &\n     &4.9765e-03_rb,5.6368e-03_rb,6.8419e-03_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &6.3412e-03_rb,5.9177e-03_rb,5.7222e-03_rb,5.4979e-03_rb,5.4021e-03_rb,5.5794e-03_rb, &\n     &6.1113e-03_rb,7.0879e-03_rb,8.4995e-03_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &6.1488e-03_rb,5.8853e-03_rb,5.8235e-03_rb,5.8427e-03_rb,6.0130e-03_rb,6.6088e-03_rb, &\n     &7.4819e-03_rb,8.8092e-03_rb,1.0289e-02_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &1.4195e-02_rb,1.2643e-02_rb,1.1125e-02_rb,9.5338e-03_rb,8.0743e-03_rb,6.7413e-03_rb, &\n     &5.1394e-03_rb,3.4808e-03_rb,3.6417e-03_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &1.4156e-02_rb,1.2714e-02_rb,1.1322e-02_rb,9.8573e-03_rb,8.5639e-03_rb,7.1930e-03_rb, &\n     &5.4628e-03_rb,4.1430e-03_rb,4.8796e-03_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &1.4281e-02_rb,1.3014e-02_rb,1.1636e-02_rb,1.0282e-02_rb,9.0638e-03_rb,7.5306e-03_rb, &\n     &5.9490e-03_rb,5.0136e-03_rb,6.2613e-03_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &1.4318e-02_rb,1.3194e-02_rb,1.1832e-02_rb,1.0698e-02_rb,9.4111e-03_rb,7.9426e-03_rb, &\n     &6.6489e-03_rb,6.1359e-03_rb,7.8675e-03_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &1.4241e-02_rb,1.3300e-02_rb,1.2028e-02_rb,1.0934e-02_rb,9.7284e-03_rb,8.5621e-03_rb, &\n     &7.5356e-03_rb,7.5232e-03_rb,9.7190e-03_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &3.1371e-02_rb,2.7594e-02_rb,2.3918e-02_rb,2.0236e-02_rb,1.6538e-02_rb,1.2862e-02_rb, &\n     &9.3415e-03_rb,5.6206e-03_rb,3.0136e-03_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &3.1367e-02_rb,2.7706e-02_rb,2.4150e-02_rb,2.0624e-02_rb,1.6974e-02_rb,1.3427e-02_rb, &\n     &9.9709e-03_rb,6.1282e-03_rb,4.2995e-03_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &3.1583e-02_rb,2.8007e-02_rb,2.4625e-02_rb,2.1088e-02_rb,1.7481e-02_rb,1.4076e-02_rb, &\n     &1.0648e-02_rb,6.6037e-03_rb,5.6873e-03_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &3.1875e-02_rb,2.8446e-02_rb,2.5140e-02_rb,2.1570e-02_rb,1.8204e-02_rb,1.5013e-02_rb, &\n     &1.1353e-02_rb,7.2455e-03_rb,7.5289e-03_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &3.2159e-02_rb,2.8870e-02_rb,2.5760e-02_rb,2.2306e-02_rb,1.9019e-02_rb,1.5749e-02_rb, &\n     &1.1959e-02_rb,8.0455e-03_rb,9.2604e-03_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &6.1996e-02_rb,5.4276e-02_rb,4.6766e-02_rb,3.9233e-02_rb,3.1722e-02_rb,2.4192e-02_rb, &\n     &1.6676e-02_rb,9.3526e-03_rb,2.3723e-03_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &6.2786e-02_rb,5.5036e-02_rb,4.7544e-02_rb,4.0014e-02_rb,3.2500e-02_rb,2.4919e-02_rb, &\n     &1.7414e-02_rb,9.9958e-03_rb,3.1775e-03_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &6.3408e-02_rb,5.5719e-02_rb,4.8263e-02_rb,4.0805e-02_rb,3.3340e-02_rb,2.5705e-02_rb, &\n     &1.8217e-02_rb,1.0807e-02_rb,4.4457e-03_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &6.3958e-02_rb,5.6455e-02_rb,4.8967e-02_rb,4.1701e-02_rb,3.4289e-02_rb,2.6801e-02_rb, &\n     &1.9500e-02_rb,1.1614e-02_rb,6.0592e-03_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &6.4544e-02_rb,5.7091e-02_rb,4.9896e-02_rb,4.2837e-02_rb,3.5365e-02_rb,2.7903e-02_rb, &\n     &2.0589e-02_rb,1.2558e-02_rb,7.7840e-03_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &1.1420e-01_rb,9.9928e-02_rb,8.5730e-02_rb,7.1669e-02_rb,5.7641e-02_rb,4.3533e-02_rb, &\n     &2.9463e-02_rb,1.5596e-02_rb,1.8870e-03_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &1.1463e-01_rb,1.0031e-01_rb,8.6249e-02_rb,7.2249e-02_rb,5.8195e-02_rb,4.4132e-02_rb, &\n     &3.0125e-02_rb,1.6255e-02_rb,2.7185e-03_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &1.1505e-01_rb,1.0074e-01_rb,8.6836e-02_rb,7.2850e-02_rb,5.8886e-02_rb,4.5056e-02_rb, &\n     &3.1103e-02_rb,1.7221e-02_rb,3.7627e-03_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &1.1693e-01_rb,1.0252e-01_rb,8.8568e-02_rb,7.4567e-02_rb,6.0606e-02_rb,4.6540e-02_rb, &\n     &3.2424e-02_rb,1.8275e-02_rb,5.0267e-03_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &1.1806e-01_rb,1.0371e-01_rb,8.9817e-02_rb,7.5865e-02_rb,6.1963e-02_rb,4.7866e-02_rb, &\n     &3.3695e-02_rb,1.9500e-02_rb,6.8317e-03_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &2.1427e-01_rb,1.8749e-01_rb,1.6070e-01_rb,1.3399e-01_rb,1.0738e-01_rb,8.0867e-02_rb, &\n     &5.4264e-02_rb,2.7682e-02_rb,1.2395e-03_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &2.1459e-01_rb,1.8775e-01_rb,1.6094e-01_rb,1.3438e-01_rb,1.0794e-01_rb,8.1406e-02_rb, &\n     &5.4844e-02_rb,2.8427e-02_rb,2.0965e-03_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &2.1615e-01_rb,1.8914e-01_rb,1.6231e-01_rb,1.3573e-01_rb,1.0921e-01_rb,8.2571e-02_rb, &\n     &5.5952e-02_rb,2.9582e-02_rb,3.1925e-03_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &2.1891e-01_rb,1.9155e-01_rb,1.6470e-01_rb,1.3802e-01_rb,1.1113e-01_rb,8.4390e-02_rb, &\n     &5.7587e-02_rb,3.0908e-02_rb,4.5715e-03_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &2.2155e-01_rb,1.9400e-01_rb,1.6713e-01_rb,1.4027e-01_rb,1.1333e-01_rb,8.6454e-02_rb, &\n     &5.9526e-02_rb,3.2445e-02_rb,6.5617e-03_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &4.6547e-01_rb,4.0732e-01_rb,3.4911e-01_rb,2.9100e-01_rb,2.3277e-01_rb,1.7470e-01_rb, &\n     &1.1672e-01_rb,5.8764e-02_rb,8.5250e-04_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &4.6469e-01_rb,4.0659e-01_rb,3.4854e-01_rb,2.9045e-01_rb,2.3244e-01_rb,1.7466e-01_rb, &\n     &1.1705e-01_rb,5.9152e-02_rb,1.3360e-03_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &4.6927e-01_rb,4.1062e-01_rb,3.5196e-01_rb,2.9346e-01_rb,2.3515e-01_rb,1.7702e-01_rb, &\n     &1.1874e-01_rb,6.0462e-02_rb,2.4435e-03_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &4.7393e-01_rb,4.1463e-01_rb,3.5541e-01_rb,2.9668e-01_rb,2.3809e-01_rb,1.7953e-01_rb, &\n     &1.2082e-01_rb,6.2242e-02_rb,3.3995e-03_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &4.8023e-01_rb,4.2020e-01_rb,3.6048e-01_rb,3.0117e-01_rb,2.4212e-01_rb,1.8271e-01_rb, &\n     &1.2350e-01_rb,6.4451e-02_rb,5.1655e-03_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &1.9039e+00_rb,1.6660e+00_rb,1.4281e+00_rb,1.1899e+00_rb,9.5193e-01_rb,7.1405e-01_rb, &\n     &4.7606e-01_rb,2.3807e-01_rb,5.1784e-04_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &1.8960e+00_rb,1.6589e+00_rb,1.4220e+00_rb,1.1850e+00_rb,9.4792e-01_rb,7.1098e-01_rb, &\n     &4.7399e-01_rb,2.3745e-01_rb,1.0379e-03_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &1.8985e+00_rb,1.6610e+00_rb,1.4239e+00_rb,1.1866e+00_rb,9.4922e-01_rb,7.1187e-01_rb, &\n     &4.7501e-01_rb,2.3850e-01_rb,1.9956e-03_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &1.9331e+00_rb,1.6922e+00_rb,1.4503e+00_rb,1.2084e+00_rb,9.6666e-01_rb,7.2514e-01_rb, &\n     &4.8432e-01_rb,2.4379e-01_rb,3.3200e-03_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &1.9563e+00_rb,1.7116e+00_rb,1.4675e+00_rb,1.2227e+00_rb,9.7814e-01_rb,7.3426e-01_rb, &\n     &4.9112e-01_rb,2.4753e-01_rb,5.3379e-03_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &8.5901e+00_rb,7.5167e+00_rb,6.4427e+00_rb,5.3701e+00_rb,4.2955e+00_rb,3.2213e+00_rb, &\n     &2.1478e+00_rb,1.0738e+00_rb,2.8232e-05_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &8.5325e+00_rb,7.4671e+00_rb,6.4018e+00_rb,5.3343e+00_rb,4.2664e+00_rb,3.2001e+00_rb, &\n     &2.1333e+00_rb,1.0667e+00_rb,3.4266e-05_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &8.5180e+00_rb,7.4539e+00_rb,6.3892e+00_rb,5.3241e+00_rb,4.2587e+00_rb,3.1944e+00_rb, &\n     &2.1293e+00_rb,1.0648e+00_rb,4.9015e-05_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &8.6373e+00_rb,7.5561e+00_rb,6.4798e+00_rb,5.3988e+00_rb,4.3190e+00_rb,3.2393e+00_rb, &\n     &2.1596e+00_rb,1.0801e+00_rb,1.1052e-03_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &8.7651e+00_rb,7.6691e+00_rb,6.5729e+00_rb,5.4773e+00_rb,4.3830e+00_rb,3.2869e+00_rb, &\n     &2.1915e+00_rb,1.0965e+00_rb,2.0612e-03_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &1.3293e+01_rb,1.1631e+01_rb,9.9694e+00_rb,8.3080e+00_rb,6.6463e+00_rb,4.9848e+00_rb, &\n     &3.3235e+00_rb,1.6616e+00_rb,8.6041e-05_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &1.3175e+01_rb,1.1527e+01_rb,9.8819e+00_rb,8.2359e+00_rb,6.5871e+00_rb,4.9407e+00_rb, &\n     &3.2935e+00_rb,1.6469e+00_rb,8.8405e-05_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &1.3260e+01_rb,1.1601e+01_rb,9.9453e+00_rb,8.2878e+00_rb,6.6300e+00_rb,4.9725e+00_rb, &\n     &3.3155e+00_rb,1.6576e+00_rb,7.6661e-05_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &1.3414e+01_rb,1.1737e+01_rb,1.0061e+01_rb,8.3841e+00_rb,6.7068e+00_rb,5.0294e+00_rb, &\n     &3.3528e+00_rb,1.6766e+00_rb,3.1506e-04_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &1.3624e+01_rb,1.1922e+01_rb,1.0219e+01_rb,8.5160e+00_rb,6.8128e+00_rb,5.1095e+00_rb, &\n     &3.4058e+00_rb,1.7038e+00_rb,1.6944e-03_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &1.4782e+01_rb,1.2935e+01_rb,1.1089e+01_rb,9.2388e+00_rb,7.3920e+00_rb,5.5445e+00_rb, &\n     &3.6962e+00_rb,1.8480e+00_rb,1.3867e-04_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &1.4730e+01_rb,1.2889e+01_rb,1.1047e+01_rb,9.2076e+00_rb,7.3659e+00_rb,5.5246e+00_rb, &\n     &3.6830e+00_rb,1.8415e+00_rb,1.5061e-04_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &1.4865e+01_rb,1.3005e+01_rb,1.1148e+01_rb,9.2913e+00_rb,7.4319e+00_rb,5.5733e+00_rb, &\n     &3.7153e+00_rb,1.8580e+00_rb,1.4666e-04_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &1.5163e+01_rb,1.3269e+01_rb,1.1374e+01_rb,9.4785e+00_rb,7.5816e+00_rb,5.6866e+00_rb, &\n     &3.7915e+00_rb,1.8957e+00_rb,1.4926e-04_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &1.5423e+01_rb,1.3495e+01_rb,1.1567e+01_rb,9.6394e+00_rb,7.7115e+00_rb,5.7838e+00_rb, &\n     &3.8558e+00_rb,1.9287e+00_rb,1.8983e-03_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &1.2526e+01_rb,1.0960e+01_rb,9.3953e+00_rb,7.8295e+00_rb,6.2636e+00_rb,4.6971e+00_rb, &\n     &3.1319e+00_rb,1.5656e+00_rb,2.2960e-04_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &1.2594e+01_rb,1.1020e+01_rb,9.4466e+00_rb,7.8734e+00_rb,6.2977e+00_rb,4.7229e+00_rb, &\n     &3.1489e+00_rb,1.5743e+00_rb,3.0250e-04_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &1.2808e+01_rb,1.1205e+01_rb,9.6060e+00_rb,8.0068e+00_rb,6.4043e+00_rb,4.8030e+00_rb, &\n     &3.2030e+00_rb,1.6008e+00_rb,4.1712e-04_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &1.3107e+01_rb,1.1466e+01_rb,9.8274e+00_rb,8.1873e+00_rb,6.5536e+00_rb,4.9140e+00_rb, &\n     &3.2751e+00_rb,1.6381e+00_rb,6.5679e-04_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &1.3444e+01_rb,1.1761e+01_rb,1.0081e+01_rb,8.4011e+00_rb,6.7204e+00_rb,5.0404e+00_rb, &\n     &3.3592e+00_rb,1.6815e+00_rb,2.8416e-03_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &4.6973e-03_rb,3.3679e-03_rb,3.0810e-03_rb,4.4179e-03_rb,5.3922e-03_rb,6.8127e-03_rb, &\n     &7.5300e-03_rb,9.6520e-03_rb,1.0742e-02_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &3.3940e-03_rb,3.6347e-03_rb,3.8181e-03_rb,5.7069e-03_rb,7.1993e-03_rb,9.1516e-03_rb, &\n     &1.0242e-02_rb,1.2914e-02_rb,1.4284e-02_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &2.9328e-03_rb,3.5249e-03_rb,5.0061e-03_rb,7.3569e-03_rb,8.9474e-03_rb,1.1546e-02_rb, &\n     &1.2963e-02_rb,1.7115e-02_rb,1.7551e-02_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &2.4964e-03_rb,3.6551e-03_rb,6.6228e-03_rb,8.9461e-03_rb,1.0774e-02_rb,1.3965e-02_rb, &\n     &1.7435e-02_rb,2.2332e-02_rb,2.1398e-02_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &2.1304e-03_rb,4.5161e-03_rb,8.4664e-03_rb,1.0811e-02_rb,1.3640e-02_rb,1.7099e-02_rb, &\n     &2.2735e-02_rb,2.8461e-02_rb,2.7259e-02_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &9.4205e-03_rb,8.2881e-03_rb,6.8055e-03_rb,5.1998e-03_rb,6.0003e-03_rb,6.4194e-03_rb, &\n     &7.3653e-03_rb,8.1269e-03_rb,1.1868e-02_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &8.5761e-03_rb,7.3303e-03_rb,5.6742e-03_rb,5.4200e-03_rb,7.5061e-03_rb,8.7164e-03_rb, &\n     &9.8614e-03_rb,1.1132e-02_rb,1.4929e-02_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &7.2342e-03_rb,5.9377e-03_rb,5.5335e-03_rb,7.0973e-03_rb,9.3181e-03_rb,1.1104e-02_rb, &\n     &1.2752e-02_rb,1.5333e-02_rb,1.8200e-02_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &5.3015e-03_rb,5.6105e-03_rb,6.0212e-03_rb,9.3735e-03_rb,1.1344e-02_rb,1.3845e-02_rb, &\n     &1.6350e-02_rb,2.0205e-02_rb,2.2040e-02_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &4.6868e-03_rb,5.1363e-03_rb,7.4969e-03_rb,1.0079e-02_rb,1.4155e-02_rb,1.6850e-02_rb, &\n     &1.9756e-02_rb,2.5412e-02_rb,2.7831e-02_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &2.2659e-02_rb,2.0083e-02_rb,1.7749e-02_rb,1.5132e-02_rb,1.2304e-02_rb,9.8131e-03_rb, &\n     &6.5475e-03_rb,7.6061e-03_rb,9.2024e-03_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &2.3012e-02_rb,2.0379e-02_rb,1.7548e-02_rb,1.4904e-02_rb,1.1694e-02_rb,9.3796e-03_rb, &\n     &9.2412e-03_rb,1.0030e-02_rb,1.2744e-02_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &2.1396e-02_rb,1.8727e-02_rb,1.6107e-02_rb,1.2456e-02_rb,1.0255e-02_rb,1.0536e-02_rb, &\n     &1.1966e-02_rb,1.3095e-02_rb,1.7259e-02_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &1.9331e-02_rb,1.6488e-02_rb,1.2963e-02_rb,1.0270e-02_rb,1.1515e-02_rb,1.2315e-02_rb, &\n     &1.5198e-02_rb,1.6672e-02_rb,2.2500e-02_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &1.6551e-02_rb,1.3344e-02_rb,1.1001e-02_rb,1.0385e-02_rb,1.2450e-02_rb,1.4894e-02_rb, &\n     &1.8912e-02_rb,2.0849e-02_rb,2.4782e-02_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &5.3443e-02_rb,4.6752e-02_rb,4.0212e-02_rb,3.3727e-02_rb,2.6764e-02_rb,2.0366e-02_rb, &\n     &1.4100e-02_rb,8.5626e-03_rb,5.0179e-03_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &5.5520e-02_rb,4.8788e-02_rb,4.2227e-02_rb,3.5776e-02_rb,2.9164e-02_rb,2.2326e-02_rb, &\n     &1.5452e-02_rb,9.1701e-03_rb,6.6031e-03_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &5.3841e-02_rb,4.7471e-02_rb,4.1338e-02_rb,3.5633e-02_rb,2.9297e-02_rb,2.2785e-02_rb, &\n     &1.5793e-02_rb,1.1481e-02_rb,9.9885e-03_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &5.4923e-02_rb,4.8665e-02_rb,4.2046e-02_rb,3.5458e-02_rb,2.8786e-02_rb,2.1135e-02_rb, &\n     &1.3946e-02_rb,1.4729e-02_rb,1.3190e-02_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &5.1650e-02_rb,4.6045e-02_rb,4.0319e-02_rb,3.3252e-02_rb,2.5245e-02_rb,1.9132e-02_rb, &\n     &1.5667e-02_rb,1.8634e-02_rb,1.9277e-02_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &1.1780e-01_rb,1.0308e-01_rb,8.8391e-02_rb,7.4152e-02_rb,5.9704e-02_rb,4.5204e-02_rb, &\n     &3.0807e-02_rb,1.6385e-02_rb,4.0089e-03_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &1.1261e-01_rb,9.8543e-02_rb,8.5059e-02_rb,7.1216e-02_rb,5.7505e-02_rb,4.3649e-02_rb, &\n     &3.0528e-02_rb,1.7529e-02_rb,9.3093e-03_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &1.1400e-01_rb,9.9742e-02_rb,8.6449e-02_rb,7.3042e-02_rb,5.9615e-02_rb,4.6638e-02_rb, &\n     &3.2532e-02_rb,1.8567e-02_rb,1.1184e-02_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &1.1613e-01_rb,1.0163e-01_rb,8.9121e-02_rb,7.4876e-02_rb,6.0453e-02_rb,4.6196e-02_rb, &\n     &3.1216e-02_rb,1.9048e-02_rb,1.2339e-02_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &1.2016e-01_rb,1.0608e-01_rb,9.2375e-02_rb,7.6465e-02_rb,6.2248e-02_rb,4.8476e-02_rb, &\n     &3.3522e-02_rb,1.7446e-02_rb,1.7040e-02_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &2.3387e-01_rb,2.0464e-01_rb,1.7541e-01_rb,1.4624e-01_rb,1.1769e-01_rb,8.8692e-02_rb, &\n     &5.9747e-02_rb,3.0756e-02_rb,2.5605e-03_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &2.3730e-01_rb,2.0756e-01_rb,1.7772e-01_rb,1.4892e-01_rb,1.1985e-01_rb,9.0758e-02_rb, &\n     &6.1778e-02_rb,3.2933e-02_rb,4.6893e-03_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &2.4203e-01_rb,2.1158e-01_rb,1.8155e-01_rb,1.5250e-01_rb,1.2284e-01_rb,9.2705e-02_rb, &\n     &6.3067e-02_rb,3.2776e-02_rb,9.7345e-03_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &2.3049e-01_rb,2.0160e-01_rb,1.7416e-01_rb,1.4569e-01_rb,1.1768e-01_rb,8.9784e-02_rb, &\n     &6.1642e-02_rb,3.4682e-02_rb,1.6936e-02_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &2.3636e-01_rb,2.0679e-01_rb,1.7932e-01_rb,1.5154e-01_rb,1.2337e-01_rb,9.4475e-02_rb, &\n     &6.5584e-02_rb,3.6305e-02_rb,2.2069e-02_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &4.9443e-01_rb,4.3211e-01_rb,3.7050e-01_rb,3.0887e-01_rb,2.4699e-01_rb,1.8540e-01_rb, &\n     &1.2438e-01_rb,6.2986e-02_rb,2.0096e-03_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &4.9639e-01_rb,4.3473e-01_rb,3.7266e-01_rb,3.1039e-01_rb,2.4852e-01_rb,1.8749e-01_rb, &\n     &1.2568e-01_rb,6.4131e-02_rb,3.0764e-03_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &4.9265e-01_rb,4.3128e-01_rb,3.6987e-01_rb,3.0823e-01_rb,2.4792e-01_rb,1.8671e-01_rb, &\n     &1.2562e-01_rb,6.4213e-02_rb,5.4655e-03_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &4.7703e-01_rb,4.1742e-01_rb,3.5749e-01_rb,2.9850e-01_rb,2.4081e-01_rb,1.8239e-01_rb, &\n     &1.2380e-01_rb,6.5802e-02_rb,1.0925e-02_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &4.8180e-01_rb,4.2216e-01_rb,3.6195e-01_rb,3.0277e-01_rb,2.4364e-01_rb,1.8402e-01_rb, &\n     &1.2523e-01_rb,6.7909e-02_rb,1.4296e-02_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &1.1962e+00_rb,1.0464e+00_rb,8.9717e-01_rb,7.4708e-01_rb,5.9764e-01_rb,4.4825e-01_rb, &\n     &2.9884e-01_rb,1.5061e-01_rb,3.8986e-03_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &1.2041e+00_rb,1.0536e+00_rb,9.0306e-01_rb,7.5220e-01_rb,6.0244e-01_rb,4.5171e-01_rb, &\n     &3.0103e-01_rb,1.5197e-01_rb,3.3573e-03_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &1.1525e+00_rb,1.0084e+00_rb,8.6433e-01_rb,7.2027e-01_rb,5.7631e-01_rb,4.3217e-01_rb, &\n     &2.8996e-01_rb,1.4673e-01_rb,3.4045e-03_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &1.1627e+00_rb,1.0178e+00_rb,8.7243e-01_rb,7.2665e-01_rb,5.8167e-01_rb,4.3823e-01_rb, &\n     &2.9244e-01_rb,1.4815e-01_rb,8.5595e-03_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &1.1683e+00_rb,1.0228e+00_rb,8.7612e-01_rb,7.3014e-01_rb,5.8445e-01_rb,4.4237e-01_rb, &\n     &2.9748e-01_rb,1.5239e-01_rb,1.0748e-02_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &5.3473e+00_rb,4.6810e+00_rb,4.0088e+00_rb,3.3420e+00_rb,2.6745e+00_rb,2.0052e+00_rb, &\n     &1.3357e+00_rb,6.6899e-01_rb,9.0646e-06_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &5.3849e+00_rb,4.7131e+00_rb,4.0386e+00_rb,3.3668e+00_rb,2.6936e+00_rb,2.0203e+00_rb, &\n     &1.3467e+00_rb,6.7337e-01_rb,1.6160e-05_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &5.2604e+00_rb,4.6046e+00_rb,3.9456e+00_rb,3.2881e+00_rb,2.6303e+00_rb,1.9734e+00_rb, &\n     &1.3151e+00_rb,6.5758e-01_rb,2.7795e-05_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &4.9950e+00_rb,4.3651e+00_rb,3.7432e+00_rb,3.1211e+00_rb,2.4979e+00_rb,1.8723e+00_rb, &\n     &1.2477e+00_rb,6.2561e-01_rb,4.1978e-05_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &5.1108e+00_rb,4.4671e+00_rb,3.8297e+00_rb,3.1913e+00_rb,2.5537e+00_rb,1.9170e+00_rb, &\n     &1.2756e+00_rb,6.4540e-01_rb,6.6209e-05_rb/)\n      kao(:, 1,10,10) = (/ &\n     &2.6042e+01_rb,2.2785e+01_rb,1.9540e+01_rb,1.6264e+01_rb,1.3016e+01_rb,9.7654e+00_rb, &\n     &6.5078e+00_rb,3.2552e+00_rb,5.7707e-06_rb/)\n      kao(:, 2,10,10) = (/ &\n     &2.6479e+01_rb,2.3167e+01_rb,1.9837e+01_rb,1.6530e+01_rb,1.3239e+01_rb,9.9265e+00_rb, &\n     &6.6195e+00_rb,3.3086e+00_rb,1.0081e-05_rb/)\n      kao(:, 3,10,10) = (/ &\n     &2.6009e+01_rb,2.2746e+01_rb,1.9506e+01_rb,1.6255e+01_rb,1.3009e+01_rb,9.7479e+00_rb, &\n     &6.5045e+00_rb,3.2511e+00_rb,1.6976e-05_rb/)\n      kao(:, 4,10,10) = (/ &\n     &2.4905e+01_rb,2.1818e+01_rb,1.8660e+01_rb,1.5572e+01_rb,1.2451e+01_rb,9.3433e+00_rb, &\n     &6.2220e+00_rb,3.1125e+00_rb,2.8117e-05_rb/)\n      kao(:, 5,10,10) = (/ &\n     &2.5169e+01_rb,2.2024e+01_rb,1.8885e+01_rb,1.5746e+01_rb,1.2587e+01_rb,9.4388e+00_rb, &\n     &6.2934e+00_rb,3.1427e+00_rb,4.4861e-05_rb/)\n      kao(:, 1,11,10) = (/ &\n     &4.3366e+01_rb,3.7949e+01_rb,3.2540e+01_rb,2.7105e+01_rb,2.1683e+01_rb,1.6263e+01_rb, &\n     &1.0837e+01_rb,5.4210e+00_rb,4.9323e-06_rb/)\n      kao(:, 2,11,10) = (/ &\n     &4.4481e+01_rb,3.8935e+01_rb,3.3362e+01_rb,2.7791e+01_rb,2.2247e+01_rb,1.6680e+01_rb, &\n     &1.1125e+01_rb,5.5599e+00_rb,8.9387e-06_rb/)\n      kao(:, 3,11,10) = (/ &\n     &4.2759e+01_rb,3.7428e+01_rb,3.2070e+01_rb,2.6725e+01_rb,2.1369e+01_rb,1.6026e+01_rb, &\n     &1.0686e+01_rb,5.3424e+00_rb,1.3904e-05_rb/)\n      kao(:, 4,11,10) = (/ &\n     &4.2776e+01_rb,3.7387e+01_rb,3.2051e+01_rb,2.6735e+01_rb,2.1399e+01_rb,1.6039e+01_rb, &\n     &1.0699e+01_rb,5.3492e+00_rb,2.3732e-05_rb/)\n      kao(:, 5,11,10) = (/ &\n     &4.2881e+01_rb,3.7499e+01_rb,3.2160e+01_rb,2.6814e+01_rb,2.1427e+01_rb,1.6080e+01_rb, &\n     &1.0724e+01_rb,5.3602e+00_rb,3.9053e-05_rb/)\n      kao(:, 1,12,10) = (/ &\n     &5.2035e+01_rb,4.5530e+01_rb,3.8991e+01_rb,3.2521e+01_rb,2.6007e+01_rb,1.9502e+01_rb, &\n     &1.3003e+01_rb,6.5017e+00_rb,4.1086e-06_rb/)\n      kao(:, 2,12,10) = (/ &\n     &5.2620e+01_rb,4.6040e+01_rb,3.9465e+01_rb,3.2876e+01_rb,2.6300e+01_rb,1.9726e+01_rb, &\n     &1.3150e+01_rb,6.5751e+00_rb,7.6006e-06_rb/)\n      kao(:, 3,12,10) = (/ &\n     &5.1699e+01_rb,4.5233e+01_rb,3.8772e+01_rb,3.2297e+01_rb,2.5847e+01_rb,1.9404e+01_rb, &\n     &1.2928e+01_rb,6.4618e+00_rb,1.3155e-05_rb/)\n      kao(:, 4,12,10) = (/ &\n     &5.1530e+01_rb,4.5092e+01_rb,3.8615e+01_rb,3.2196e+01_rb,2.5751e+01_rb,1.9320e+01_rb, &\n     &1.2877e+01_rb,6.4388e+00_rb,2.2125e-05_rb/)\n      kao(:, 5,12,10) = (/ &\n     &5.2358e+01_rb,4.5788e+01_rb,3.9246e+01_rb,3.2725e+01_rb,2.6162e+01_rb,1.9634e+01_rb, &\n     &1.3083e+01_rb,6.5448e+00_rb,3.4034e-05_rb/)\n      kao(:, 1,13,10) = (/ &\n     &4.8070e+01_rb,4.2058e+01_rb,3.6028e+01_rb,3.0041e+01_rb,2.4032e+01_rb,1.8020e+01_rb, &\n     &1.2016e+01_rb,6.0067e+00_rb,1.1683e-05_rb/)\n      kao(:, 2,13,10) = (/ &\n     &4.7586e+01_rb,4.1613e+01_rb,3.5689e+01_rb,2.9748e+01_rb,2.3780e+01_rb,1.7835e+01_rb, &\n     &1.1890e+01_rb,5.9450e+00_rb,6.6906e-06_rb/)\n      kao(:, 3,13,10) = (/ &\n     &4.7760e+01_rb,4.1804e+01_rb,3.5818e+01_rb,2.9821e+01_rb,2.3863e+01_rb,1.7898e+01_rb, &\n     &1.1923e+01_rb,5.9715e+00_rb,1.1688e-05_rb/)\n      kao(:, 4,13,10) = (/ &\n     &4.7976e+01_rb,4.1998e+01_rb,3.6011e+01_rb,3.0021e+01_rb,2.3989e+01_rb,1.7987e+01_rb, &\n     &1.2008e+01_rb,6.0018e+00_rb,2.0801e-05_rb/)\n      kao(:, 5,13,10) = (/ &\n     &4.8185e+01_rb,4.2179e+01_rb,3.6131e+01_rb,3.0110e+01_rb,2.4087e+01_rb,1.8066e+01_rb, &\n     &1.2054e+01_rb,6.0193e+00_rb,3.3629e-05_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &2.3144e-03_rb,3.0235e-03_rb,4.2030e-03_rb,4.5486e-03_rb,6.9673e-03_rb,8.5656e-03_rb, &\n     &1.0150e-02_rb,1.3548e-02_rb,1.3475e-02_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &2.0416e-03_rb,3.1999e-03_rb,4.6569e-03_rb,6.4031e-03_rb,9.8267e-03_rb,1.1395e-02_rb, &\n     &1.5022e-02_rb,1.8877e-02_rb,1.8904e-02_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &1.8509e-03_rb,4.2185e-03_rb,5.5775e-03_rb,9.1095e-03_rb,1.2979e-02_rb,1.4639e-02_rb, &\n     &2.1829e-02_rb,2.5577e-02_rb,2.5272e-02_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &1.7995e-03_rb,5.2396e-03_rb,7.4739e-03_rb,1.1646e-02_rb,1.7153e-02_rb,1.9747e-02_rb, &\n     &2.8712e-02_rb,3.3739e-02_rb,3.3147e-02_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &1.8412e-03_rb,6.1417e-03_rb,9.5119e-03_rb,1.5457e-02_rb,2.1034e-02_rb,2.5800e-02_rb, &\n     &3.6795e-02_rb,4.3339e-02_rb,4.2100e-02_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &7.4427e-03_rb,5.5490e-03_rb,4.6664e-03_rb,4.6380e-03_rb,5.2610e-03_rb,8.4068e-03_rb, &\n     &1.0505e-02_rb,1.1967e-02_rb,1.0119e-02_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &5.3180e-03_rb,5.4523e-03_rb,5.6480e-03_rb,5.7960e-03_rb,8.0504e-03_rb,1.1015e-02_rb, &\n     &1.3308e-02_rb,1.6901e-02_rb,1.5834e-02_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &4.1509e-03_rb,5.0420e-03_rb,5.9494e-03_rb,7.8778e-03_rb,1.1077e-02_rb,1.4709e-02_rb, &\n     &1.7403e-02_rb,2.2592e-02_rb,2.1710e-02_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &3.7251e-03_rb,5.8604e-03_rb,7.1881e-03_rb,1.0249e-02_rb,1.4831e-02_rb,1.9015e-02_rb, &\n     &2.1299e-02_rb,2.9770e-02_rb,2.9198e-02_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &3.3170e-03_rb,7.3759e-03_rb,9.2312e-03_rb,1.4285e-02_rb,1.9035e-02_rb,2.3096e-02_rb, &\n     &2.6856e-02_rb,3.8325e-02_rb,3.7190e-02_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &2.3930e-02_rb,2.1175e-02_rb,1.8068e-02_rb,1.3752e-02_rb,9.3232e-03_rb,6.3033e-03_rb, &\n     &9.0890e-03_rb,1.0309e-02_rb,9.2920e-03_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &2.1364e-02_rb,1.8346e-02_rb,1.4408e-02_rb,1.0567e-02_rb,7.3487e-03_rb,8.3255e-03_rb, &\n     &1.2320e-02_rb,1.3559e-02_rb,1.1942e-02_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &1.6897e-02_rb,1.4069e-02_rb,1.1090e-02_rb,9.4072e-03_rb,9.0158e-03_rb,1.2182e-02_rb, &\n     &1.6529e-02_rb,1.8032e-02_rb,1.6702e-02_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &1.1735e-02_rb,1.1062e-02_rb,1.1919e-02_rb,1.0177e-02_rb,1.1885e-02_rb,1.6740e-02_rb, &\n     &2.0422e-02_rb,2.2761e-02_rb,2.2381e-02_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &9.3268e-03_rb,1.0886e-02_rb,1.2245e-02_rb,1.2355e-02_rb,1.5695e-02_rb,2.1667e-02_rb, &\n     &2.4460e-02_rb,2.7729e-02_rb,3.0274e-02_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &5.8030e-02_rb,5.0790e-02_rb,4.4332e-02_rb,3.7503e-02_rb,3.1337e-02_rb,2.3862e-02_rb, &\n     &1.5919e-02_rb,8.9924e-03_rb,1.0517e-02_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &5.8203e-02_rb,5.1238e-02_rb,4.3852e-02_rb,3.6687e-02_rb,2.8842e-02_rb,2.1050e-02_rb, &\n     &1.3525e-02_rb,1.1884e-02_rb,1.5506e-02_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &6.0219e-02_rb,5.3113e-02_rb,4.5845e-02_rb,3.6288e-02_rb,2.6852e-02_rb,1.6648e-02_rb, &\n     &1.3537e-02_rb,1.6277e-02_rb,1.8129e-02_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &4.9871e-02_rb,4.2283e-02_rb,3.5849e-02_rb,2.8922e-02_rb,1.9343e-02_rb,1.4341e-02_rb, &\n     &1.8188e-02_rb,2.0990e-02_rb,2.0822e-02_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &3.8385e-02_rb,3.4058e-02_rb,2.7365e-02_rb,2.1994e-02_rb,1.7140e-02_rb,1.6164e-02_rb, &\n     &2.3472e-02_rb,2.6305e-02_rb,2.6373e-02_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &1.3556e-01_rb,1.1844e-01_rb,1.0158e-01_rb,8.5252e-02_rb,6.8440e-02_rb,5.1875e-02_rb, &\n     &3.5448e-02_rb,1.8978e-02_rb,8.8762e-03_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &1.3807e-01_rb,1.2082e-01_rb,1.0421e-01_rb,8.7432e-02_rb,7.0858e-02_rb,5.4903e-02_rb, &\n     &3.7824e-02_rb,2.0068e-02_rb,1.1692e-02_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &1.3721e-01_rb,1.2013e-01_rb,1.0360e-01_rb,8.7259e-02_rb,7.0575e-02_rb,5.3560e-02_rb, &\n     &3.5670e-02_rb,1.8870e-02_rb,1.8216e-02_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &1.2962e-01_rb,1.1333e-01_rb,9.6679e-02_rb,8.1723e-02_rb,6.6334e-02_rb,5.1939e-02_rb, &\n     &3.3737e-02_rb,2.0192e-02_rb,2.7154e-02_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &1.2340e-01_rb,1.0852e-01_rb,9.2540e-02_rb,7.8313e-02_rb,6.2622e-02_rb,4.1413e-02_rb, &\n     &2.5923e-02_rb,2.4326e-02_rb,3.4052e-02_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &2.8825e-01_rb,2.5222e-01_rb,2.1620e-01_rb,1.8017e-01_rb,1.4417e-01_rb,1.0893e-01_rb, &\n     &7.3359e-02_rb,3.7509e-02_rb,5.6670e-03_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &2.8768e-01_rb,2.5188e-01_rb,2.1600e-01_rb,1.7993e-01_rb,1.4497e-01_rb,1.0976e-01_rb, &\n     &7.3838e-02_rb,3.8599e-02_rb,8.8428e-03_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &2.8241e-01_rb,2.4722e-01_rb,2.1181e-01_rb,1.7724e-01_rb,1.4248e-01_rb,1.0766e-01_rb, &\n     &7.3624e-02_rb,3.9950e-02_rb,1.3973e-02_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &2.8627e-01_rb,2.5067e-01_rb,2.1487e-01_rb,1.8056e-01_rb,1.4619e-01_rb,1.1172e-01_rb, &\n     &7.8306e-02_rb,4.0986e-02_rb,2.0403e-02_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &2.7874e-01_rb,2.4399e-01_rb,2.0989e-01_rb,1.7645e-01_rb,1.4231e-01_rb,1.0969e-01_rb, &\n     &7.6704e-02_rb,4.0995e-02_rb,2.4450e-02_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &6.1169e-01_rb,5.3575e-01_rb,4.5923e-01_rb,3.8252e-01_rb,3.0616e-01_rb,2.2929e-01_rb, &\n     &1.5383e-01_rb,7.7531e-02_rb,2.8956e-03_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &6.1159e-01_rb,5.3511e-01_rb,4.5848e-01_rb,3.8242e-01_rb,3.0567e-01_rb,2.3004e-01_rb, &\n     &1.5345e-01_rb,7.7731e-02_rb,6.2629e-03_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &6.0642e-01_rb,5.3036e-01_rb,4.5410e-01_rb,3.7880e-01_rb,3.0308e-01_rb,2.2893e-01_rb, &\n     &1.5450e-01_rb,7.9546e-02_rb,1.1879e-02_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &6.2322e-01_rb,5.4531e-01_rb,4.6718e-01_rb,3.8974e-01_rb,3.1356e-01_rb,2.3563e-01_rb, &\n     &1.5873e-01_rb,8.1521e-02_rb,1.3030e-02_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &6.1773e-01_rb,5.4019e-01_rb,4.6283e-01_rb,3.8859e-01_rb,3.1161e-01_rb,2.3601e-01_rb, &\n     &1.5998e-01_rb,8.3125e-02_rb,1.9458e-02_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &1.4932e+00_rb,1.3065e+00_rb,1.1199e+00_rb,9.3315e-01_rb,7.4665e-01_rb,5.5991e-01_rb, &\n     &3.7327e-01_rb,1.8697e-01_rb,1.1999e-05_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &1.5196e+00_rb,1.3312e+00_rb,1.1397e+00_rb,9.5010e-01_rb,7.6026e-01_rb,5.7020e-01_rb, &\n     &3.8013e-01_rb,1.9174e-01_rb,7.7042e-03_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &1.5505e+00_rb,1.3567e+00_rb,1.1629e+00_rb,9.6902e-01_rb,7.7525e-01_rb,5.8146e-01_rb, &\n     &3.8981e-01_rb,1.9691e-01_rb,1.2006e-02_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &1.4878e+00_rb,1.3018e+00_rb,1.1160e+00_rb,9.2984e-01_rb,7.4341e-01_rb,5.5771e-01_rb, &\n     &3.7622e-01_rb,1.9146e-01_rb,1.2696e-02_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &1.4729e+00_rb,1.2883e+00_rb,1.1049e+00_rb,9.2129e-01_rb,7.3618e-01_rb,5.5599e-01_rb, &\n     &3.7163e-01_rb,1.8805e-01_rb,1.8722e-02_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &6.8904e+00_rb,6.0266e+00_rb,5.1680e+00_rb,4.3068e+00_rb,3.4452e+00_rb,2.5839e+00_rb, &\n     &1.7234e+00_rb,8.6092e-01_rb,6.7224e-06_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &7.0980e+00_rb,6.2107e+00_rb,5.3294e+00_rb,4.4415e+00_rb,3.5510e+00_rb,2.6633e+00_rb, &\n     &1.7755e+00_rb,8.8723e-01_rb,1.2025e-05_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &7.2688e+00_rb,6.3564e+00_rb,5.4482e+00_rb,4.5401e+00_rb,3.6343e+00_rb,2.7243e+00_rb, &\n     &1.8161e+00_rb,9.0754e-01_rb,1.9985e-05_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &7.1740e+00_rb,6.2782e+00_rb,5.3807e+00_rb,4.4818e+00_rb,3.5855e+00_rb,2.6901e+00_rb, &\n     &1.7938e+00_rb,8.9646e-01_rb,3.0947e-05_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &6.7468e+00_rb,5.9097e+00_rb,5.0601e+00_rb,4.2188e+00_rb,3.3754e+00_rb,2.5313e+00_rb, &\n     &1.6873e+00_rb,8.4597e-01_rb,4.6476e-05_rb/)\n      kao(:, 1,10,11) = (/ &\n     &3.5457e+01_rb,3.1027e+01_rb,2.6582e+01_rb,2.2175e+01_rb,1.7740e+01_rb,1.3297e+01_rb, &\n     &8.8648e+00_rb,4.4349e+00_rb,3.8551e-06_rb/)\n      kao(:, 2,10,11) = (/ &\n     &3.5857e+01_rb,3.1366e+01_rb,2.6891e+01_rb,2.2421e+01_rb,1.7929e+01_rb,1.3446e+01_rb, &\n     &8.9645e+00_rb,4.4822e+00_rb,7.1785e-06_rb/)\n      kao(:, 3,10,11) = (/ &\n     &3.7065e+01_rb,3.2447e+01_rb,2.7799e+01_rb,2.3166e+01_rb,1.8532e+01_rb,1.3906e+01_rb, &\n     &9.2664e+00_rb,4.6331e+00_rb,1.2630e-05_rb/)\n      kao(:, 4,10,11) = (/ &\n     &3.6718e+01_rb,3.2113e+01_rb,2.7539e+01_rb,2.2938e+01_rb,1.8366e+01_rb,1.3764e+01_rb, &\n     &9.1841e+00_rb,4.5916e+00_rb,2.1179e-05_rb/)\n      kao(:, 5,10,11) = (/ &\n     &3.5010e+01_rb,3.0613e+01_rb,2.6257e+01_rb,2.1870e+01_rb,1.7497e+01_rb,1.3129e+01_rb, &\n     &8.7481e+00_rb,4.3808e+00_rb,3.3504e-05_rb/)\n      kao(:, 1,11,11) = (/ &\n     &6.2218e+01_rb,5.4427e+01_rb,4.6646e+01_rb,3.8874e+01_rb,3.1110e+01_rb,2.3334e+01_rb, &\n     &1.5561e+01_rb,7.7776e+00_rb,3.5875e-06_rb/)\n      kao(:, 2,11,11) = (/ &\n     &6.2105e+01_rb,5.4407e+01_rb,4.6579e+01_rb,3.8839e+01_rb,3.1033e+01_rb,2.3318e+01_rb, &\n     &1.5536e+01_rb,7.7679e+00_rb,5.9066e-06_rb/)\n      kao(:, 3,11,11) = (/ &\n     &6.4816e+01_rb,5.6715e+01_rb,4.8615e+01_rb,4.0513e+01_rb,3.2442e+01_rb,2.4317e+01_rb, &\n     &1.6205e+01_rb,8.1056e+00_rb,1.0776e-05_rb/)\n      kao(:, 4,11,11) = (/ &\n     &6.2787e+01_rb,5.4987e+01_rb,4.7112e+01_rb,3.9241e+01_rb,3.1378e+01_rb,2.3555e+01_rb, &\n     &1.5697e+01_rb,7.8485e+00_rb,1.7304e-05_rb/)\n      kao(:, 5,11,11) = (/ &\n     &6.1876e+01_rb,5.4130e+01_rb,4.6407e+01_rb,3.8627e+01_rb,3.0933e+01_rb,2.3204e+01_rb, &\n     &1.5469e+01_rb,7.7346e+00_rb,2.7512e-05_rb/)\n      kao(:, 1,12,11) = (/ &\n     &8.0103e+01_rb,7.0095e+01_rb,6.0103e+01_rb,5.0066e+01_rb,4.0052e+01_rb,3.0040e+01_rb, &\n     &2.0026e+01_rb,1.0013e+01_rb,3.2505e-06_rb/)\n      kao(:, 2,12,11) = (/ &\n     &7.9090e+01_rb,6.9204e+01_rb,5.9318e+01_rb,4.9432e+01_rb,3.9544e+01_rb,2.9659e+01_rb, &\n     &1.9773e+01_rb,9.8860e+00_rb,5.5034e-06_rb/)\n      kao(:, 3,12,11) = (/ &\n     &7.9848e+01_rb,6.9859e+01_rb,5.9882e+01_rb,4.9902e+01_rb,3.9894e+01_rb,2.9946e+01_rb, &\n     &1.9960e+01_rb,9.9805e+00_rb,8.6063e-06_rb/)\n      kao(:, 4,12,11) = (/ &\n     &7.8661e+01_rb,6.8779e+01_rb,5.8977e+01_rb,4.9159e+01_rb,3.9293e+01_rb,2.9497e+01_rb, &\n     &1.9663e+01_rb,9.8183e+00_rb,1.4131e-05_rb/)\n      kao(:, 5,12,11) = (/ &\n     &7.8792e+01_rb,6.8975e+01_rb,5.9124e+01_rb,4.9246e+01_rb,3.9445e+01_rb,2.9569e+01_rb, &\n     &1.9707e+01_rb,9.8563e+00_rb,2.3305e-05_rb/)\n      kao(:, 1,13,11) = (/ &\n     &7.5314e+01_rb,6.5898e+01_rb,5.6507e+01_rb,4.7072e+01_rb,3.7657e+01_rb,2.8254e+01_rb, &\n     &1.8828e+01_rb,9.4159e+00_rb,2.7819e-06_rb/)\n      kao(:, 2,13,11) = (/ &\n     &7.4029e+01_rb,6.4852e+01_rb,5.5523e+01_rb,4.6247e+01_rb,3.7031e+01_rb,2.7774e+01_rb, &\n     &1.8528e+01_rb,9.2576e+00_rb,5.0908e-06_rb/)\n      kao(:, 3,13,11) = (/ &\n     &7.3797e+01_rb,6.4573e+01_rb,5.5347e+01_rb,4.6143e+01_rb,3.6917e+01_rb,2.7689e+01_rb, &\n     &1.8458e+01_rb,9.2250e+00_rb,8.2936e-06_rb/)\n      kao(:, 4,13,11) = (/ &\n     &7.5507e+01_rb,6.6112e+01_rb,5.6628e+01_rb,4.7225e+01_rb,3.7779e+01_rb,2.8348e+01_rb, &\n     &1.8877e+01_rb,9.4449e+00_rb,1.2487e-05_rb/)\n      kao(:, 5,13,11) = (/ &\n     &7.6962e+01_rb,6.7290e+01_rb,5.7729e+01_rb,4.8107e+01_rb,3.8486e+01_rb,2.8863e+01_rb, &\n     &1.9221e+01_rb,9.6284e+00_rb,1.8751e-05_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &1.1046e-03_rb,3.3707e-03_rb,5.0558e-03_rb,8.2647e-03_rb,9.1015e-03_rb,1.0694e-02_rb, &\n     &1.8807e-02_rb,2.2647e-02_rb,1.8110e-02_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &1.0969e-03_rb,4.7708e-03_rb,7.6740e-03_rb,1.0546e-02_rb,1.0900e-02_rb,1.6801e-02_rb, &\n     &2.5799e-02_rb,3.1294e-02_rb,2.2312e-02_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &1.0873e-03_rb,6.1594e-03_rb,1.0535e-02_rb,1.2275e-02_rb,1.5399e-02_rb,2.5780e-02_rb, &\n     &3.4278e-02_rb,4.1551e-02_rb,3.1702e-02_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &1.0681e-03_rb,6.7407e-03_rb,1.3124e-02_rb,1.6579e-02_rb,1.9835e-02_rb,3.5596e-02_rb, &\n     &4.4369e-02_rb,5.3472e-02_rb,4.1109e-02_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &1.0270e-03_rb,8.1418e-03_rb,1.5112e-02_rb,2.0848e-02_rb,2.8658e-02_rb,4.6490e-02_rb, &\n     &5.6118e-02_rb,6.7233e-02_rb,5.7448e-02_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &1.5646e-03_rb,3.6954e-03_rb,5.8279e-03_rb,7.1796e-03_rb,9.8217e-03_rb,9.7524e-03_rb, &\n     &1.1081e-02_rb,1.8489e-02_rb,1.8167e-02_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &1.5547e-03_rb,3.8903e-03_rb,7.0691e-03_rb,1.0316e-02_rb,1.1952e-02_rb,1.3642e-02_rb, &\n     &1.6631e-02_rb,2.5775e-02_rb,2.2105e-02_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &1.5005e-03_rb,5.8120e-03_rb,1.0164e-02_rb,1.2828e-02_rb,1.5616e-02_rb,1.8084e-02_rb, &\n     &2.4815e-02_rb,3.4836e-02_rb,2.8922e-02_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &1.4224e-03_rb,7.6958e-03_rb,1.3586e-02_rb,1.5505e-02_rb,1.9916e-02_rb,2.3661e-02_rb, &\n     &3.6496e-02_rb,4.5732e-02_rb,3.8152e-02_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &1.3736e-03_rb,9.1086e-03_rb,1.6016e-02_rb,2.0127e-02_rb,2.5470e-02_rb,3.1020e-02_rb, &\n     &5.0141e-02_rb,5.8654e-02_rb,5.1074e-02_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &1.0482e-02_rb,8.9646e-03_rb,6.8350e-03_rb,8.2815e-03_rb,8.8992e-03_rb,1.0605e-02_rb, &\n     &1.0328e-02_rb,1.1583e-02_rb,1.6044e-02_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &5.7078e-03_rb,6.1160e-03_rb,7.6830e-03_rb,9.7377e-03_rb,1.2964e-02_rb,1.2587e-02_rb, &\n     &1.4124e-02_rb,1.6978e-02_rb,2.4120e-02_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &3.9502e-03_rb,6.0459e-03_rb,1.0569e-02_rb,1.4120e-02_rb,1.6811e-02_rb,1.6440e-02_rb, &\n     &1.9141e-02_rb,2.2713e-02_rb,3.1566e-02_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &3.2701e-03_rb,7.5815e-03_rb,1.2592e-02_rb,1.9220e-02_rb,1.9128e-02_rb,2.1966e-02_rb, &\n     &2.6084e-02_rb,3.3096e-02_rb,3.6118e-02_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &2.7401e-03_rb,7.8080e-03_rb,1.5492e-02_rb,2.3290e-02_rb,2.4892e-02_rb,2.8848e-02_rb, &\n     &3.4321e-02_rb,4.6873e-02_rb,4.7340e-02_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &6.0672e-02_rb,5.3090e-02_rb,4.4556e-02_rb,3.6202e-02_rb,2.6483e-02_rb,1.8181e-02_rb, &\n     &1.2199e-02_rb,1.0993e-02_rb,1.4969e-02_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &4.3589e-02_rb,3.8144e-02_rb,3.0755e-02_rb,2.3593e-02_rb,1.9730e-02_rb,1.5624e-02_rb, &\n     &1.3490e-02_rb,1.5542e-02_rb,2.0057e-02_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &2.4695e-02_rb,2.2865e-02_rb,1.7074e-02_rb,1.5816e-02_rb,1.6661e-02_rb,2.0463e-02_rb, &\n     &1.7348e-02_rb,2.1210e-02_rb,2.8829e-02_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &1.4306e-02_rb,1.8283e-02_rb,1.4453e-02_rb,1.9081e-02_rb,2.2731e-02_rb,2.4085e-02_rb, &\n     &2.3223e-02_rb,2.7809e-02_rb,4.1362e-02_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &1.0713e-02_rb,1.1979e-02_rb,1.4158e-02_rb,2.2119e-02_rb,2.9428e-02_rb,2.9426e-02_rb, &\n     &3.0795e-02_rb,3.5958e-02_rb,5.4444e-02_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &1.5652e-01_rb,1.3723e-01_rb,1.1755e-01_rb,9.8247e-02_rb,7.8467e-02_rb,5.9349e-02_rb, &\n     &3.9820e-02_rb,1.8398e-02_rb,1.1394e-02_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &1.5350e-01_rb,1.3431e-01_rb,1.1514e-01_rb,9.6381e-02_rb,7.7667e-02_rb,5.6368e-02_rb, &\n     &3.3743e-02_rb,1.4780e-02_rb,1.5913e-02_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &1.3349e-01_rb,1.1672e-01_rb,9.9565e-02_rb,8.1852e-02_rb,6.1169e-02_rb,4.3464e-02_rb, &\n     &2.9522e-02_rb,1.7569e-02_rb,2.3571e-02_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &1.0423e-01_rb,9.1271e-02_rb,7.7253e-02_rb,6.0811e-02_rb,4.8046e-02_rb,3.4464e-02_rb, &\n     &2.5349e-02_rb,2.3626e-02_rb,3.4271e-02_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &6.1168e-02_rb,5.3666e-02_rb,4.5385e-02_rb,3.6131e-02_rb,3.2187e-02_rb,3.6873e-02_rb, &\n     &3.0883e-02_rb,3.2443e-02_rb,4.3030e-02_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &3.3296e-01_rb,2.9114e-01_rb,2.4975e-01_rb,2.0812e-01_rb,1.6650e-01_rb,1.2577e-01_rb, &\n     &8.4465e-02_rb,4.3210e-02_rb,7.5744e-03_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &3.2661e-01_rb,2.8604e-01_rb,2.4502e-01_rb,2.0429e-01_rb,1.6474e-01_rb,1.2400e-01_rb, &\n     &8.4046e-02_rb,4.3324e-02_rb,1.2737e-02_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &3.3274e-01_rb,2.9155e-01_rb,2.4958e-01_rb,2.1022e-01_rb,1.6841e-01_rb,1.2817e-01_rb, &\n     &8.5832e-02_rb,4.1156e-02_rb,1.9272e-02_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &3.2428e-01_rb,2.8378e-01_rb,2.4307e-01_rb,2.0420e-01_rb,1.6451e-01_rb,1.2138e-01_rb, &\n     &7.6212e-02_rb,3.3602e-02_rb,2.1893e-02_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &2.8830e-01_rb,2.5208e-01_rb,2.1788e-01_rb,1.7562e-01_rb,1.3634e-01_rb,9.6797e-02_rb, &\n     &6.1659e-02_rb,2.8996e-02_rb,3.3943e-02_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &7.1633e-01_rb,6.2687e-01_rb,5.3652e-01_rb,4.4712e-01_rb,3.5797e-01_rb,2.6845e-01_rb, &\n     &1.7938e-01_rb,9.0924e-02_rb,9.7506e-03_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &7.4602e-01_rb,6.5233e-01_rb,5.5949e-01_rb,4.6595e-01_rb,3.7278e-01_rb,2.7940e-01_rb, &\n     &1.8898e-01_rb,9.6146e-02_rb,1.9089e-02_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &7.5756e-01_rb,6.6287e-01_rb,5.6888e-01_rb,4.7384e-01_rb,3.7881e-01_rb,2.8626e-01_rb, &\n     &1.9222e-01_rb,9.8080e-02_rb,1.5850e-02_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &7.2210e-01_rb,6.3187e-01_rb,5.4195e-01_rb,4.5134e-01_rb,3.6428e-01_rb,2.7503e-01_rb, &\n     &1.8532e-01_rb,9.5998e-02_rb,2.2744e-02_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &7.1833e-01_rb,6.2908e-01_rb,5.3886e-01_rb,4.4907e-01_rb,3.6079e-01_rb,2.7147e-01_rb, &\n     &1.8148e-01_rb,9.1961e-02_rb,3.2788e-02_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &1.8651e+00_rb,1.6319e+00_rb,1.3988e+00_rb,1.1656e+00_rb,9.3248e-01_rb,6.9936e-01_rb, &\n     &4.6627e-01_rb,2.3315e-01_rb,7.1174e-06_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &1.9142e+00_rb,1.6730e+00_rb,1.4347e+00_rb,1.1964e+00_rb,9.5588e-01_rb,7.1697e-01_rb, &\n     &4.7797e-01_rb,2.4089e-01_rb,1.3089e-05_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &1.9338e+00_rb,1.6922e+00_rb,1.4504e+00_rb,1.2080e+00_rb,9.6694e-01_rb,7.2522e-01_rb, &\n     &4.8350e-01_rb,2.4403e-01_rb,6.4382e-03_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &1.9257e+00_rb,1.6851e+00_rb,1.4444e+00_rb,1.2027e+00_rb,9.6352e-01_rb,7.2222e-01_rb, &\n     &4.8580e-01_rb,2.4642e-01_rb,2.0202e-02_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &1.8578e+00_rb,1.6228e+00_rb,1.3921e+00_rb,1.1585e+00_rb,9.2745e-01_rb,6.9620e-01_rb, &\n     &4.7147e-01_rb,2.4294e-01_rb,3.5578e-02_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &8.9732e+00_rb,7.8574e+00_rb,6.7348e+00_rb,5.6085e+00_rb,4.4901e+00_rb,3.3675e+00_rb, &\n     &2.2449e+00_rb,1.1217e+00_rb,5.5128e-06_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &9.0176e+00_rb,7.8899e+00_rb,6.7555e+00_rb,5.6293e+00_rb,4.5061e+00_rb,3.3798e+00_rb, &\n     &2.2531e+00_rb,1.1272e+00_rb,1.0749e-05_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &9.1462e+00_rb,8.0080e+00_rb,6.8640e+00_rb,5.7226e+00_rb,4.5733e+00_rb,3.4343e+00_rb, &\n     &2.2880e+00_rb,1.1452e+00_rb,1.7030e-05_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &9.3997e+00_rb,8.2308e+00_rb,7.0500e+00_rb,5.8749e+00_rb,4.7035e+00_rb,3.5295e+00_rb, &\n     &2.3500e+00_rb,1.1750e+00_rb,2.7289e-05_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &9.4496e+00_rb,8.2622e+00_rb,7.0818e+00_rb,5.9018e+00_rb,4.7215e+00_rb,3.5410e+00_rb, &\n     &2.3622e+00_rb,1.1804e+00_rb,4.0208e-05_rb/)\n      kao(:, 1,10,12) = (/ &\n     &4.7340e+01_rb,4.1390e+01_rb,3.5503e+01_rb,2.9570e+01_rb,2.3638e+01_rb,1.7753e+01_rb, &\n     &1.1835e+01_rb,5.9140e+00_rb,4.0857e-06_rb/)\n      kao(:, 2,10,12) = (/ &\n     &4.7468e+01_rb,4.1532e+01_rb,3.5600e+01_rb,2.9666e+01_rb,2.3733e+01_rb,1.7801e+01_rb, &\n     &1.1867e+01_rb,5.9335e+00_rb,7.3318e-06_rb/)\n      kao(:, 3,10,12) = (/ &\n     &4.7779e+01_rb,4.1808e+01_rb,3.5836e+01_rb,2.9862e+01_rb,2.3890e+01_rb,1.7931e+01_rb, &\n     &1.1954e+01_rb,5.9724e+00_rb,1.2287e-05_rb/)\n      kao(:, 4,10,12) = (/ &\n     &5.0181e+01_rb,4.3911e+01_rb,3.7609e+01_rb,3.1364e+01_rb,2.5077e+01_rb,1.8819e+01_rb, &\n     &1.2546e+01_rb,6.2708e+00_rb,2.0136e-05_rb/)\n      kao(:, 5,10,12) = (/ &\n     &5.0358e+01_rb,4.4054e+01_rb,3.7768e+01_rb,3.1474e+01_rb,2.5199e+01_rb,1.8885e+01_rb, &\n     &1.2590e+01_rb,6.2949e+00_rb,3.0786e-05_rb/)\n      kao(:, 1,11,12) = (/ &\n     &8.8012e+01_rb,7.7091e+01_rb,6.6061e+01_rb,5.5064e+01_rb,4.4041e+01_rb,3.3007e+01_rb, &\n     &2.2019e+01_rb,1.1017e+01_rb,3.6494e-06_rb/)\n      kao(:, 2,11,12) = (/ &\n     &8.9290e+01_rb,7.8045e+01_rb,6.6917e+01_rb,5.5778e+01_rb,4.4669e+01_rb,3.3448e+01_rb, &\n     &2.2295e+01_rb,1.1156e+01_rb,6.7273e-06_rb/)\n      kao(:, 3,11,12) = (/ &\n     &8.6982e+01_rb,7.6115e+01_rb,6.5187e+01_rb,5.4368e+01_rb,4.3469e+01_rb,3.2619e+01_rb, &\n     &2.1748e+01_rb,1.0873e+01_rb,1.1236e-05_rb/)\n      kao(:, 4,11,12) = (/ &\n     &8.9808e+01_rb,7.8580e+01_rb,6.7351e+01_rb,5.6127e+01_rb,4.4937e+01_rb,3.3677e+01_rb, &\n     &2.2469e+01_rb,1.1226e+01_rb,1.9240e-05_rb/)\n      kao(:, 5,11,12) = (/ &\n     &9.0868e+01_rb,7.9552e+01_rb,6.8146e+01_rb,5.6871e+01_rb,4.5498e+01_rb,3.4074e+01_rb, &\n     &2.2716e+01_rb,1.1367e+01_rb,2.9192e-05_rb/)\n      kao(:, 1,12,12) = (/ &\n     &1.1586e+02_rb,1.0129e+02_rb,8.6824e+01_rb,7.2354e+01_rb,5.7931e+01_rb,4.3416e+01_rb, &\n     &2.8943e+01_rb,1.4471e+01_rb,2.9778e-06_rb/)\n      kao(:, 2,12,12) = (/ &\n     &1.1852e+02_rb,1.0370e+02_rb,8.8887e+01_rb,7.4073e+01_rb,5.9259e+01_rb,4.4444e+01_rb, &\n     &2.9629e+01_rb,1.4815e+01_rb,6.0415e-06_rb/)\n      kao(:, 3,12,12) = (/ &\n     &1.1782e+02_rb,1.0310e+02_rb,8.8376e+01_rb,7.3644e+01_rb,5.8951e+01_rb,4.4160e+01_rb, &\n     &2.9459e+01_rb,1.4728e+01_rb,1.0435e-05_rb/)\n      kao(:, 4,12,12) = (/ &\n     &1.1710e+02_rb,1.0244e+02_rb,8.7885e+01_rb,7.3194e+01_rb,5.8621e+01_rb,4.3876e+01_rb, &\n     &2.9251e+01_rb,1.4654e+01_rb,1.8188e-05_rb/)\n      kao(:, 5,12,12) = (/ &\n     &1.1577e+02_rb,1.0131e+02_rb,8.6825e+01_rb,7.2359e+01_rb,5.7901e+01_rb,4.3424e+01_rb, &\n     &2.8943e+01_rb,1.4462e+01_rb,2.8178e-05_rb/)\n      kao(:, 1,13,12) = (/ &\n     &1.1625e+02_rb,1.0180e+02_rb,8.7251e+01_rb,7.2708e+01_rb,5.8118e+01_rb,4.3593e+01_rb, &\n     &2.9061e+01_rb,1.4533e+01_rb,2.6097e-06_rb/)\n      kao(:, 2,13,12) = (/ &\n     &1.1986e+02_rb,1.0483e+02_rb,8.9927e+01_rb,7.4912e+01_rb,5.9931e+01_rb,4.4948e+01_rb, &\n     &2.9950e+01_rb,1.4982e+01_rb,4.5705e-06_rb/)\n      kao(:, 3,13,12) = (/ &\n     &1.1859e+02_rb,1.0377e+02_rb,8.8940e+01_rb,7.4121e+01_rb,5.9293e+01_rb,4.4471e+01_rb, &\n     &2.9646e+01_rb,1.4823e+01_rb,9.6333e-06_rb/)\n      kao(:, 4,13,12) = (/ &\n     &1.1553e+02_rb,1.0103e+02_rb,8.6643e+01_rb,7.2158e+01_rb,5.7729e+01_rb,4.3335e+01_rb, &\n     &2.8881e+01_rb,1.4445e+01_rb,1.6615e-05_rb/)\n      kao(:, 5,13,12) = (/ &\n     &1.1521e+02_rb,1.0087e+02_rb,8.6350e+01_rb,7.1959e+01_rb,5.7620e+01_rb,4.3214e+01_rb, &\n     &2.8812e+01_rb,1.4383e+01_rb,2.5689e-05_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &1.2352e-03_rb,5.0775e-03_rb,9.0568e-03_rb,9.6608e-03_rb,1.7051e-02_rb,2.9171e-02_rb, &\n     &3.4997e-02_rb,4.0847e-02_rb,3.4367e-02_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &1.2435e-03_rb,6.8803e-03_rb,1.1829e-02_rb,1.3668e-02_rb,2.8015e-02_rb,4.0318e-02_rb, &\n     &4.8254e-02_rb,5.5929e-02_rb,5.6166e-02_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &1.2378e-03_rb,7.6901e-03_rb,1.3370e-02_rb,2.0872e-02_rb,4.0011e-02_rb,5.3853e-02_rb, &\n     &6.4341e-02_rb,7.4163e-02_rb,8.0135e-02_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &1.2280e-03_rb,1.0734e-02_rb,1.6343e-02_rb,3.0629e-02_rb,5.6049e-02_rb,6.9850e-02_rb, &\n     &8.3340e-02_rb,9.5619e-02_rb,1.1209e-01_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &1.2088e-03_rb,1.3761e-02_rb,2.1254e-02_rb,4.2402e-02_rb,7.0900e-02_rb,8.8313e-02_rb, &\n     &1.0523e-01_rb,1.2032e-01_rb,1.4179e-01_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &1.7062e-03_rb,5.0744e-03_rb,8.6767e-03_rb,1.3080e-02_rb,1.1607e-02_rb,1.7056e-02_rb, &\n     &2.8742e-02_rb,3.5357e-02_rb,2.3747e-02_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &1.7222e-03_rb,6.7515e-03_rb,1.2374e-02_rb,1.5331e-02_rb,1.8393e-02_rb,2.7370e-02_rb, &\n     &4.2648e-02_rb,4.9678e-02_rb,3.7912e-02_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &1.7299e-03_rb,8.6001e-03_rb,1.6797e-02_rb,2.0526e-02_rb,2.6294e-02_rb,4.1034e-02_rb, &\n     &5.7948e-02_rb,6.7295e-02_rb,5.4721e-02_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &1.7668e-03_rb,1.0879e-02_rb,2.0064e-02_rb,2.7385e-02_rb,3.4476e-02_rb,5.8386e-02_rb, &\n     &7.6246e-02_rb,8.8358e-02_rb,7.0573e-02_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &1.7596e-03_rb,1.1860e-02_rb,2.3664e-02_rb,3.3939e-02_rb,4.8492e-02_rb,7.9884e-02_rb, &\n     &9.7519e-02_rb,1.1290e-01_rb,9.7083e-02_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &3.1651e-03_rb,5.2961e-03_rb,8.5469e-03_rb,1.1513e-02_rb,1.5558e-02_rb,1.4881e-02_rb, &\n     &1.6424e-02_rb,2.5024e-02_rb,2.8147e-02_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &3.3189e-03_rb,8.3809e-03_rb,1.1489e-02_rb,1.6299e-02_rb,2.2221e-02_rb,2.2841e-02_rb, &\n     &2.5024e-02_rb,3.8200e-02_rb,3.8233e-02_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &3.3701e-03_rb,1.1923e-02_rb,1.5036e-02_rb,2.2373e-02_rb,2.6383e-02_rb,3.1900e-02_rb, &\n     &3.2997e-02_rb,5.6522e-02_rb,4.6578e-02_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &3.3871e-03_rb,1.2781e-02_rb,1.7799e-02_rb,2.9758e-02_rb,3.5615e-02_rb,4.1357e-02_rb, &\n     &4.8578e-02_rb,7.5987e-02_rb,6.6261e-02_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &3.3797e-03_rb,1.4220e-02_rb,2.3964e-02_rb,3.5644e-02_rb,4.5626e-02_rb,4.9180e-02_rb, &\n     &6.9386e-02_rb,9.9109e-02_rb,8.8310e-02_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &1.0343e-02_rb,9.0620e-03_rb,1.2015e-02_rb,1.1324e-02_rb,1.3382e-02_rb,1.5654e-02_rb, &\n     &1.8625e-02_rb,1.7070e-02_rb,2.1331e-02_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &6.4226e-03_rb,5.6266e-03_rb,1.6045e-02_rb,1.6336e-02_rb,1.7909e-02_rb,2.2857e-02_rb, &\n     &2.5406e-02_rb,2.4740e-02_rb,3.1419e-02_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &6.5549e-03_rb,5.7385e-03_rb,1.8741e-02_rb,2.0901e-02_rb,2.5444e-02_rb,3.1318e-02_rb, &\n     &3.5488e-02_rb,3.2476e-02_rb,4.5848e-02_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &6.6407e-03_rb,5.8164e-03_rb,2.0962e-02_rb,2.6844e-02_rb,3.4892e-02_rb,4.1403e-02_rb, &\n     &4.7653e-02_rb,4.2426e-02_rb,6.5116e-02_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &6.8300e-03_rb,1.2571e-02_rb,2.5118e-02_rb,3.2793e-02_rb,4.7122e-02_rb,5.5638e-02_rb, &\n     &5.7712e-02_rb,6.2270e-02_rb,8.9700e-02_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &9.0149e-02_rb,7.8756e-02_rb,6.7503e-02_rb,5.7299e-02_rb,4.6607e-02_rb,3.2042e-02_rb, &\n     &2.0392e-02_rb,1.6128e-02_rb,1.9894e-02_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &4.8191e-02_rb,4.2297e-02_rb,3.6135e-02_rb,3.5890e-02_rb,2.5466e-02_rb,2.2998e-02_rb, &\n     &2.3063e-02_rb,2.5066e-02_rb,2.8493e-02_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &2.0878e-02_rb,1.8444e-02_rb,2.0162e-02_rb,2.6175e-02_rb,2.5330e-02_rb,2.8034e-02_rb, &\n     &3.3888e-02_rb,3.5693e-02_rb,3.9583e-02_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &1.2467e-02_rb,1.0910e-02_rb,2.2261e-02_rb,3.0489e-02_rb,3.2389e-02_rb,3.6918e-02_rb, &\n     &4.6126e-02_rb,4.7452e-02_rb,5.4222e-02_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &1.2730e-02_rb,1.1204e-02_rb,2.9691e-02_rb,3.6357e-02_rb,4.1593e-02_rb,4.9722e-02_rb, &\n     &6.1593e-02_rb,5.8372e-02_rb,7.2216e-02_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &3.3772e-01_rb,2.9577e-01_rb,2.5329e-01_rb,2.1108e-01_rb,1.6887e-01_rb,1.2604e-01_rb, &\n     &7.8045e-02_rb,3.5455e-02_rb,1.6952e-02_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &2.6913e-01_rb,2.3492e-01_rb,2.0161e-01_rb,1.6802e-01_rb,1.3597e-01_rb,9.6507e-02_rb, &\n     &6.1842e-02_rb,3.0282e-02_rb,3.2161e-02_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &1.8198e-01_rb,1.5897e-01_rb,1.3649e-01_rb,1.1355e-01_rb,1.0014e-01_rb,6.6575e-02_rb, &\n     &4.2969e-02_rb,3.1778e-02_rb,5.1438e-02_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &9.5916e-02_rb,8.3628e-02_rb,7.1947e-02_rb,6.5931e-02_rb,5.4714e-02_rb,4.3955e-02_rb, &\n     &3.9042e-02_rb,4.5021e-02_rb,5.3865e-02_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &3.8338e-02_rb,3.3822e-02_rb,2.8989e-02_rb,4.7523e-02_rb,4.4391e-02_rb,4.9375e-02_rb, &\n     &5.3458e-02_rb,6.4090e-02_rb,6.5458e-02_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &8.4065e-01_rb,7.3491e-01_rb,6.3155e-01_rb,5.2581e-01_rb,4.2110e-01_rb,3.1579e-01_rb, &\n     &2.1053e-01_rb,1.0597e-01_rb,2.9312e-06_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &8.3906e-01_rb,7.3475e-01_rb,6.2926e-01_rb,5.2485e-01_rb,4.1990e-01_rb,3.1520e-01_rb, &\n     &2.1013e-01_rb,9.8180e-02_rb,5.1556e-06_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &7.1003e-01_rb,6.2128e-01_rb,5.3203e-01_rb,4.4338e-01_rb,3.5504e-01_rb,2.6905e-01_rb, &\n     &1.6926e-01_rb,7.8231e-02_rb,2.0966e-02_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &5.6430e-01_rb,4.9377e-01_rb,4.2325e-01_rb,3.5272e-01_rb,2.8217e-01_rb,2.1549e-01_rb, &\n     &1.3644e-01_rb,6.7355e-02_rb,4.1095e-02_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &3.6362e-01_rb,3.1751e-01_rb,2.7269e-01_rb,2.2725e-01_rb,1.9431e-01_rb,1.4468e-01_rb, &\n     &9.9409e-02_rb,6.2076e-02_rb,6.3795e-02_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &2.2236e+00_rb,1.9437e+00_rb,1.6676e+00_rb,1.3884e+00_rb,1.1107e+00_rb,8.3381e-01_rb, &\n     &5.5588e-01_rb,2.7795e-01_rb,1.5745e-06_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &2.2078e+00_rb,1.9318e+00_rb,1.6572e+00_rb,1.3798e+00_rb,1.1048e+00_rb,8.2853e-01_rb, &\n     &5.5239e-01_rb,2.7779e-01_rb,2.9445e-06_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &2.2271e+00_rb,1.9469e+00_rb,1.6686e+00_rb,1.3901e+00_rb,1.1125e+00_rb,8.3518e-01_rb, &\n     &5.5623e-01_rb,2.8153e-01_rb,5.1096e-06_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &2.1637e+00_rb,1.8932e+00_rb,1.6227e+00_rb,1.3534e+00_rb,1.0818e+00_rb,8.1139e-01_rb, &\n     &5.4287e-01_rb,2.5697e-01_rb,9.9333e-06_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &1.8021e+00_rb,1.5805e+00_rb,1.3532e+00_rb,1.1288e+00_rb,9.0270e-01_rb,6.7733e-01_rb, &\n     &4.5729e-01_rb,2.1399e-01_rb,3.0555e-05_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &1.0795e+01_rb,9.4461e+00_rb,8.0967e+00_rb,6.7526e+00_rb,5.3928e+00_rb,4.0485e+00_rb, &\n     &2.6990e+00_rb,1.3503e+00_rb,8.4365e-07_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &1.1064e+01_rb,9.6811e+00_rb,8.2980e+00_rb,6.9149e+00_rb,5.5320e+00_rb,4.1492e+00_rb, &\n     &2.7660e+00_rb,1.3844e+00_rb,1.6130e-06_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &1.1399e+01_rb,9.9733e+00_rb,8.5488e+00_rb,7.1204e+00_rb,5.6991e+00_rb,4.2710e+00_rb, &\n     &2.8497e+00_rb,1.4241e+00_rb,6.0805e-06_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &1.1508e+01_rb,1.0061e+01_rb,8.6395e+00_rb,7.1995e+00_rb,5.7491e+00_rb,4.3120e+00_rb, &\n     &2.8800e+00_rb,1.4386e+00_rb,1.4128e-05_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &1.1400e+01_rb,9.9831e+00_rb,8.5576e+00_rb,7.1312e+00_rb,5.7049e+00_rb,4.2787e+00_rb, &\n     &2.8526e+00_rb,1.4263e+00_rb,2.6902e-05_rb/)\n      kao(:, 1,10,13) = (/ &\n     &6.0229e+01_rb,5.2742e+01_rb,4.5172e+01_rb,3.7644e+01_rb,3.0138e+01_rb,2.2585e+01_rb, &\n     &1.5057e+01_rb,7.5286e+00_rb,7.1488e-07_rb/)\n      kao(:, 2,10,13) = (/ &\n     &6.2236e+01_rb,5.4452e+01_rb,4.6675e+01_rb,3.8896e+01_rb,3.1118e+01_rb,2.3338e+01_rb, &\n     &1.5559e+01_rb,7.7794e+00_rb,2.2353e-06_rb/)\n      kao(:, 3,10,13) = (/ &\n     &6.3127e+01_rb,5.5205e+01_rb,4.7321e+01_rb,3.9431e+01_rb,3.1516e+01_rb,2.3656e+01_rb, &\n     &1.5745e+01_rb,7.8865e+00_rb,5.3891e-06_rb/)\n      kao(:, 4,10,13) = (/ &\n     &6.1110e+01_rb,5.3475e+01_rb,4.5823e+01_rb,3.8155e+01_rb,3.0566e+01_rb,2.2893e+01_rb, &\n     &1.5262e+01_rb,7.6312e+00_rb,1.1169e-05_rb/)\n      kao(:, 5,10,13) = (/ &\n     &6.4796e+01_rb,5.6740e+01_rb,4.8597e+01_rb,4.0457e+01_rb,3.2404e+01_rb,2.4299e+01_rb, &\n     &1.6199e+01_rb,8.1078e+00_rb,2.0550e-05_rb/)\n      kao(:, 1,11,13) = (/ &\n     &1.1504e+02_rb,1.0058e+02_rb,8.6129e+01_rb,7.1842e+01_rb,5.7476e+01_rb,4.3140e+01_rb, &\n     &2.8738e+01_rb,1.4357e+01_rb,9.3132e-07_rb/)\n      kao(:, 2,11,13) = (/ &\n     &1.1792e+02_rb,1.0317e+02_rb,8.8507e+01_rb,7.3697e+01_rb,5.8960e+01_rb,4.4221e+01_rb, &\n     &2.9502e+01_rb,1.4740e+01_rb,2.4724e-06_rb/)\n      kao(:, 3,11,13) = (/ &\n     &1.2218e+02_rb,1.0691e+02_rb,9.1705e+01_rb,7.6362e+01_rb,6.1091e+01_rb,4.5817e+01_rb, &\n     &3.0544e+01_rb,1.5272e+01_rb,5.4659e-06_rb/)\n      kao(:, 4,11,13) = (/ &\n     &1.2095e+02_rb,1.0583e+02_rb,9.0715e+01_rb,7.5596e+01_rb,6.0430e+01_rb,4.5404e+01_rb, &\n     &3.0213e+01_rb,1.5120e+01_rb,1.0930e-05_rb/)\n      kao(:, 5,11,13) = (/ &\n     &1.1751e+02_rb,1.0271e+02_rb,8.8136e+01_rb,7.3302e+01_rb,5.8706e+01_rb,4.4021e+01_rb, &\n     &2.9378e+01_rb,1.4677e+01_rb,1.9680e-05_rb/)\n      kao(:, 1,12,13) = (/ &\n     &1.6045e+02_rb,1.4037e+02_rb,1.2031e+02_rb,1.0025e+02_rb,8.0142e+01_rb,6.0153e+01_rb, &\n     &4.0104e+01_rb,2.0052e+01_rb,1.7476e-06_rb/)\n      kao(:, 2,12,13) = (/ &\n     &1.6342e+02_rb,1.4301e+02_rb,1.2246e+02_rb,1.0215e+02_rb,8.1640e+01_rb,6.1227e+01_rb, &\n     &4.0821e+01_rb,2.0431e+01_rb,2.4757e-06_rb/)\n      kao(:, 3,12,13) = (/ &\n     &1.6723e+02_rb,1.4633e+02_rb,1.2542e+02_rb,1.0452e+02_rb,8.3616e+01_rb,6.2709e+01_rb, &\n     &4.1810e+01_rb,2.0904e+01_rb,5.2593e-06_rb/)\n      kao(:, 4,12,13) = (/ &\n     &1.7014e+02_rb,1.4884e+02_rb,1.2747e+02_rb,1.0623e+02_rb,8.4980e+01_rb,6.3783e+01_rb, &\n     &4.2524e+01_rb,2.1245e+01_rb,9.8363e-06_rb/)\n      kao(:, 5,12,13) = (/ &\n     &1.6634e+02_rb,1.4563e+02_rb,1.2476e+02_rb,1.0397e+02_rb,8.3150e+01_rb,6.2327e+01_rb, &\n     &4.1610e+01_rb,2.0792e+01_rb,1.5825e-05_rb/)\n      kao(:, 1,13,13) = (/ &\n     &1.7420e+02_rb,1.5232e+02_rb,1.3056e+02_rb,1.0880e+02_rb,8.7095e+01_rb,6.5324e+01_rb, &\n     &4.3550e+01_rb,2.1773e+01_rb,2.0359e-06_rb/)\n      kao(:, 2,13,13) = (/ &\n     &1.7505e+02_rb,1.5318e+02_rb,1.3125e+02_rb,1.0942e+02_rb,8.7528e+01_rb,6.5649e+01_rb, &\n     &4.3765e+01_rb,2.1882e+01_rb,3.6885e-06_rb/)\n      kao(:, 3,13,13) = (/ &\n     &1.7705e+02_rb,1.5491e+02_rb,1.3279e+02_rb,1.1065e+02_rb,8.8524e+01_rb,6.6391e+01_rb, &\n     &4.4262e+01_rb,2.2130e+01_rb,4.3611e-06_rb/)\n      kao(:, 4,13,13) = (/ &\n     &1.7817e+02_rb,1.5590e+02_rb,1.3363e+02_rb,1.1135e+02_rb,8.9083e+01_rb,6.6758e+01_rb, &\n     &4.4540e+01_rb,2.2253e+01_rb,7.0150e-06_rb/)\n      kao(:, 5,13,13) = (/ &\n     &1.7584e+02_rb,1.5385e+02_rb,1.3199e+02_rb,1.0999e+02_rb,8.7917e+01_rb,6.5939e+01_rb, &\n     &4.3996e+01_rb,2.1972e+01_rb,1.1356e-05_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &1.3576e-03_rb,5.9355e-03_rb,1.2070e-02_rb,3.4616e-02_rb,5.3142e-02_rb,6.5578e-02_rb, &\n     &7.6852e-02_rb,8.4718e-02_rb,1.0628e-01_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &1.4884e-03_rb,6.6850e-03_rb,2.0385e-02_rb,5.2397e-02_rb,7.2846e-02_rb,8.9954e-02_rb, &\n     &1.0527e-01_rb,1.1545e-01_rb,1.4569e-01_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &1.6038e-03_rb,1.0153e-02_rb,3.3679e-02_rb,7.2611e-02_rb,9.6223e-02_rb,1.1901e-01_rb, &\n     &1.3945e-01_rb,1.5228e-01_rb,1.9245e-01_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &1.7044e-03_rb,1.3918e-02_rb,4.9229e-02_rb,9.2925e-02_rb,1.2323e-01_rb,1.5253e-01_rb, &\n     &1.7914e-01_rb,1.9539e-01_rb,2.4647e-01_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &1.8000e-03_rb,1.6377e-02_rb,6.7350e-02_rb,1.1593e-01_rb,1.5369e-01_rb,1.9039e-01_rb, &\n     &2.2401e-01_rb,2.4471e-01_rb,3.0739e-01_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &2.3036e-03_rb,8.1410e-03_rb,1.1112e-02_rb,1.5744e-02_rb,3.9389e-02_rb,5.9885e-02_rb, &\n     &7.1149e-02_rb,8.0027e-02_rb,7.8847e-02_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &2.5134e-03_rb,1.3270e-02_rb,1.6290e-02_rb,2.9767e-02_rb,5.8863e-02_rb,8.3096e-02_rb, &\n     &9.8866e-02_rb,1.1160e-01_rb,1.1776e-01_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &2.6930e-03_rb,1.4292e-02_rb,1.9903e-02_rb,4.6191e-02_rb,8.3472e-02_rb,1.1096e-01_rb, &\n     &1.3216e-01_rb,1.4974e-01_rb,1.6719e-01_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &2.7875e-03_rb,1.4114e-02_rb,2.4277e-02_rb,6.6428e-02_rb,1.1553e-01_rb,1.4377e-01_rb, &\n     &1.7103e-01_rb,1.9428e-01_rb,2.3106e-01_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &2.8719e-03_rb,1.9476e-02_rb,3.5900e-02_rb,9.2156e-02_rb,1.4592e-01_rb,1.8154e-01_rb, &\n     &2.1576e-01_rb,2.4502e-01_rb,2.9183e-01_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &5.1130e-03_rb,4.4754e-03_rb,1.7095e-02_rb,1.4542e-02_rb,2.0610e-02_rb,2.6947e-02_rb, &\n     &5.0520e-02_rb,6.8277e-02_rb,4.1188e-02_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &5.4209e-03_rb,4.7463e-03_rb,2.5747e-02_rb,2.2058e-02_rb,2.5589e-02_rb,4.5664e-02_rb, &\n     &7.6140e-02_rb,9.7102e-02_rb,5.5959e-02_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &5.7296e-03_rb,5.0218e-03_rb,2.3801e-02_rb,3.0343e-02_rb,3.8012e-02_rb,6.9885e-02_rb, &\n     &1.1346e-01_rb,1.3263e-01_rb,8.0840e-02_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &5.9993e-03_rb,9.9078e-03_rb,3.1169e-02_rb,3.4849e-02_rb,5.4434e-02_rb,1.0180e-01_rb, &\n     &1.5168e-01_rb,1.7523e-01_rb,1.1385e-01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &6.2420e-03_rb,1.8221e-02_rb,3.8314e-02_rb,4.8056e-02_rb,8.0195e-02_rb,1.4525e-01_rb, &\n     &1.9539e-01_rb,2.2499e-01_rb,1.6255e-01_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &1.0992e-02_rb,9.6146e-03_rb,8.2555e-03_rb,1.9598e-02_rb,2.6210e-02_rb,2.3069e-02_rb, &\n     &2.4334e-02_rb,4.0918e-02_rb,4.3847e-02_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &1.1861e-02_rb,1.0380e-02_rb,8.8997e-03_rb,3.1372e-02_rb,3.1071e-02_rb,3.3427e-02_rb, &\n     &3.7533e-02_rb,6.6384e-02_rb,5.4303e-02_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &1.2630e-02_rb,1.1058e-02_rb,1.5158e-02_rb,4.6362e-02_rb,4.1015e-02_rb,4.0980e-02_rb, &\n     &5.2909e-02_rb,1.0322e-01_rb,7.5185e-02_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &1.3324e-02_rb,1.1665e-02_rb,2.8664e-02_rb,4.2673e-02_rb,5.2993e-02_rb,5.8606e-02_rb, &\n     &7.8441e-02_rb,1.5172e-01_rb,9.8036e-02_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &1.3148e-02_rb,1.1477e-02_rb,4.1837e-02_rb,5.5479e-02_rb,6.7238e-02_rb,7.8671e-02_rb, &\n     &1.1999e-01_rb,1.9993e-01_rb,1.2716e-01_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &2.2062e-02_rb,1.9303e-02_rb,1.6547e-02_rb,1.3790e-02_rb,1.9210e-02_rb,3.4370e-02_rb, &\n     &2.6360e-02_rb,2.4628e-02_rb,2.1281e-02_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &2.4016e-02_rb,2.1018e-02_rb,1.8036e-02_rb,1.5017e-02_rb,3.4207e-02_rb,3.8549e-02_rb, &\n     &3.6828e-02_rb,3.7924e-02_rb,4.8887e-02_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &2.4307e-02_rb,2.1199e-02_rb,1.8170e-02_rb,2.0814e-02_rb,5.1440e-02_rb,4.8654e-02_rb, &\n     &5.0226e-02_rb,5.5730e-02_rb,8.3554e-02_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &2.3589e-02_rb,2.0645e-02_rb,1.7700e-02_rb,3.6957e-02_rb,7.2673e-02_rb,6.2587e-02_rb, &\n     &6.6284e-02_rb,7.5553e-02_rb,1.2501e-01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &2.3359e-02_rb,2.0344e-02_rb,1.7524e-02_rb,5.3828e-02_rb,7.8003e-02_rb,7.9260e-02_rb, &\n     &8.5892e-02_rb,1.2047e-01_rb,1.2633e-01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &4.0073e-02_rb,3.4956e-02_rb,2.9962e-02_rb,2.4964e-02_rb,1.9975e-02_rb,1.9358e-02_rb, &\n     &3.3916e-02_rb,2.3741e-02_rb,4.4372e-06_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &4.0377e-02_rb,3.5184e-02_rb,3.0162e-02_rb,2.5240e-02_rb,2.0191e-02_rb,3.6273e-02_rb, &\n     &4.6417e-02_rb,3.4541e-02_rb,7.2649e-06_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &4.0665e-02_rb,3.5540e-02_rb,3.0502e-02_rb,2.5425e-02_rb,2.0338e-02_rb,5.3239e-02_rb, &\n     &5.4545e-02_rb,5.0382e-02_rb,1.1617e-05_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &4.0830e-02_rb,3.5726e-02_rb,3.0620e-02_rb,2.5522e-02_rb,4.1685e-02_rb,7.6060e-02_rb, &\n     &6.8633e-02_rb,6.7501e-02_rb,4.8322e-02_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &4.0974e-02_rb,3.5852e-02_rb,3.0742e-02_rb,2.5614e-02_rb,6.3799e-02_rb,1.0670e-01_rb, &\n     &8.5712e-02_rb,8.9786e-02_rb,9.4019e-02_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &3.5883e-01_rb,3.1506e-01_rb,2.6911e-01_rb,2.2518e-01_rb,1.7880e-01_rb,1.3456e-01_rb, &\n     &8.9710e-02_rb,5.4606e-02_rb,2.4375e-06_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &1.1133e-01_rb,9.7402e-02_rb,8.3516e-02_rb,6.9576e-02_rb,5.5665e-02_rb,4.1750e-02_rb, &\n     &3.4893e-02_rb,3.9977e-02_rb,4.2861e-06_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &7.4556e-02_rb,6.5240e-02_rb,5.5921e-02_rb,4.6603e-02_rb,3.7275e-02_rb,2.7967e-02_rb, &\n     &5.4564e-02_rb,5.0979e-02_rb,7.1669e-06_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &7.6453e-02_rb,6.6897e-02_rb,5.7506e-02_rb,4.7791e-02_rb,3.8237e-02_rb,4.2981e-02_rb, &\n     &7.9842e-02_rb,6.6791e-02_rb,1.1410e-05_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &7.6151e-02_rb,6.6633e-02_rb,5.7121e-02_rb,4.7606e-02_rb,3.8095e-02_rb,6.8563e-02_rb, &\n     &1.1205e-01_rb,9.1020e-02_rb,1.8778e-05_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &1.6212e+00_rb,1.4215e+00_rb,1.2160e+00_rb,1.0153e+00_rb,8.1222e-01_rb,6.0796e-01_rb, &\n     &4.0531e-01_rb,2.0267e-01_rb,1.3659e-06_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &1.0949e+00_rb,9.5809e-01_rb,8.2118e-01_rb,6.8434e-01_rb,5.4744e-01_rb,4.1058e-01_rb, &\n     &2.7374e-01_rb,1.3687e-01_rb,2.5240e-06_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &5.4276e-01_rb,4.7782e-01_rb,4.0969e-01_rb,3.4354e-01_rb,2.7305e-01_rb,2.0349e-01_rb, &\n     &1.3658e-01_rb,8.0855e-02_rb,4.4900e-06_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &1.6665e-01_rb,1.4583e-01_rb,1.2498e-01_rb,1.0416e-01_rb,8.3314e-02_rb,6.2486e-02_rb, &\n     &4.1670e-02_rb,8.3057e-02_rb,7.7801e-06_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &1.6956e-01_rb,1.4835e-01_rb,1.2718e-01_rb,1.0598e-01_rb,8.5407e-02_rb,6.3592e-02_rb, &\n     &5.5348e-02_rb,1.2090e-01_rb,1.2725e-05_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &1.1544e+01_rb,1.0088e+01_rb,8.6483e+00_rb,7.2069e+00_rb,5.7730e+00_rb,4.3233e+00_rb, &\n     &2.8823e+00_rb,1.4419e+00_rb,7.6692e-07_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &9.0308e+00_rb,7.9019e+00_rb,6.7729e+00_rb,5.6441e+00_rb,4.5156e+00_rb,3.3865e+00_rb, &\n     &2.2577e+00_rb,1.1268e+00_rb,1.4786e-06_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &6.2830e+00_rb,5.4975e+00_rb,4.7120e+00_rb,3.9269e+00_rb,3.1414e+00_rb,2.3561e+00_rb, &\n     &1.5707e+00_rb,7.8536e-01_rb,2.7689e-06_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &3.6304e+00_rb,3.1764e+00_rb,2.7089e+00_rb,2.2550e+00_rb,1.8152e+00_rb,1.3614e+00_rb, &\n     &9.0300e-01_rb,4.5381e-01_rb,4.9167e-06_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &1.4890e+00_rb,1.3035e+00_rb,1.1168e+00_rb,9.3072e-01_rb,7.4457e-01_rb,5.5869e-01_rb, &\n     &3.7227e-01_rb,1.8616e-01_rb,8.2396e-06_rb/)\n      kao(:, 1,10,14) = (/ &\n     &7.2198e+01_rb,6.3175e+01_rb,5.4150e+01_rb,4.5125e+01_rb,3.6100e+01_rb,2.7075e+01_rb, &\n     &1.8050e+01_rb,9.0251e+00_rb,4.5184e-07_rb/)\n      kao(:, 2,10,14) = (/ &\n     &6.4999e+01_rb,5.6876e+01_rb,4.8750e+01_rb,4.0625e+01_rb,3.2499e+01_rb,2.4375e+01_rb, &\n     &1.6250e+01_rb,8.1250e+00_rb,9.0060e-07_rb/)\n      kao(:, 3,10,14) = (/ &\n     &5.3041e+01_rb,4.6463e+01_rb,3.9827e+01_rb,3.3188e+01_rb,2.6599e+01_rb,1.9891e+01_rb, &\n     &1.3300e+01_rb,6.6377e+00_rb,1.7393e-06_rb/)\n      kao(:, 4,10,14) = (/ &\n     &4.2448e+01_rb,3.7144e+01_rb,3.1913e+01_rb,2.6594e+01_rb,2.1225e+01_rb,1.5957e+01_rb, &\n     &1.0638e+01_rb,5.3187e+00_rb,3.1449e-06_rb/)\n      kao(:, 5,10,14) = (/ &\n     &2.5727e+01_rb,2.2511e+01_rb,1.9295e+01_rb,1.6144e+01_rb,1.2810e+01_rb,9.6477e+00_rb, &\n     &6.4321e+00_rb,3.2028e+00_rb,5.3500e-06_rb/)\n      kao(:, 1,11,14) = (/ &\n     &1.4503e+02_rb,1.2691e+02_rb,1.0890e+02_rb,9.0641e+01_rb,7.2517e+01_rb,5.4390e+01_rb, &\n     &3.6259e+01_rb,1.8129e+01_rb,3.6866e-07_rb/)\n      kao(:, 2,11,14) = (/ &\n     &1.4340e+02_rb,1.2547e+02_rb,1.0755e+02_rb,8.9629e+01_rb,7.1700e+01_rb,5.3764e+01_rb, &\n     &3.5851e+01_rb,1.7926e+01_rb,7.4257e-07_rb/)\n      kao(:, 3,11,14) = (/ &\n     &1.2279e+02_rb,1.0744e+02_rb,9.2097e+01_rb,7.6747e+01_rb,6.1397e+01_rb,4.6046e+01_rb, &\n     &3.0699e+01_rb,1.5350e+01_rb,1.4132e-06_rb/)\n      kao(:, 4,11,14) = (/ &\n     &1.0332e+02_rb,9.0407e+01_rb,7.7495e+01_rb,6.4577e+01_rb,5.1661e+01_rb,3.8673e+01_rb, &\n     &2.5832e+01_rb,1.2916e+01_rb,2.5660e-06_rb/)\n      kao(:, 5,11,14) = (/ &\n     &8.4752e+01_rb,7.4338e+01_rb,6.3562e+01_rb,5.3097e+01_rb,4.2377e+01_rb,3.1859e+01_rb, &\n     &2.1189e+01_rb,1.0594e+01_rb,4.3954e-06_rb/)\n      kao(:, 1,12,14) = (/ &\n     &2.1206e+02_rb,1.8578e+02_rb,1.5923e+02_rb,1.3269e+02_rb,1.0615e+02_rb,7.9613e+01_rb, &\n     &5.3076e+01_rb,2.6538e+01_rb,2.9519e-07_rb/)\n      kao(:, 2,12,14) = (/ &\n     &2.1371e+02_rb,1.8696e+02_rb,1.6019e+02_rb,1.3354e+02_rb,1.0696e+02_rb,8.0220e+01_rb, &\n     &5.3478e+01_rb,2.6706e+01_rb,5.9412e-07_rb/)\n      kao(:, 3,12,14) = (/ &\n     &1.9963e+02_rb,1.7467e+02_rb,1.4971e+02_rb,1.2476e+02_rb,9.9809e+01_rb,7.4861e+01_rb, &\n     &4.9906e+01_rb,2.4953e+01_rb,1.1512e-06_rb/)\n      kao(:, 4,12,14) = (/ &\n     &1.7291e+02_rb,1.5155e+02_rb,1.2989e+02_rb,1.0824e+02_rb,8.6596e+01_rb,6.4945e+01_rb, &\n     &4.3297e+01_rb,2.1649e+01_rb,2.0935e-06_rb/)\n      kao(:, 5,12,14) = (/ &\n     &1.4993e+02_rb,1.3106e+02_rb,1.1245e+02_rb,9.3704e+01_rb,7.4891e+01_rb,5.6224e+01_rb, &\n     &3.7445e+01_rb,1.8742e+01_rb,5.3426e-06_rb/)\n      kao(:, 1,13,14) = (/ &\n     &2.3337e+02_rb,2.0357e+02_rb,1.7476e+02_rb,1.4563e+02_rb,1.1651e+02_rb,8.7377e+01_rb, &\n     &5.8250e+01_rb,2.9126e+01_rb,2.3044e-07_rb/)\n      kao(:, 2,13,14) = (/ &\n     &2.3770e+02_rb,2.0799e+02_rb,1.7827e+02_rb,1.4856e+02_rb,1.1885e+02_rb,8.9136e+01_rb, &\n     &5.9426e+01_rb,2.9711e+01_rb,4.7533e-07_rb/)\n      kao(:, 3,13,14) = (/ &\n     &2.3937e+02_rb,2.0945e+02_rb,1.7953e+02_rb,1.4961e+02_rb,1.1968e+02_rb,8.9763e+01_rb, &\n     &5.9841e+01_rb,2.9920e+01_rb,1.2740e-06_rb/)\n      kao(:, 4,13,14) = (/ &\n     &2.1343e+02_rb,1.8675e+02_rb,1.6007e+02_rb,1.3339e+02_rb,1.0671e+02_rb,8.0033e+01_rb, &\n     &5.3356e+01_rb,2.6677e+01_rb,3.7441e-06_rb/)\n      kao(:, 5,13,14) = (/ &\n     &1.8434e+02_rb,1.6130e+02_rb,1.3825e+02_rb,1.1521e+02_rb,9.2167e+01_rb,6.9126e+01_rb, &\n     &4.6084e+01_rb,2.3083e+01_rb,8.0408e-06_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &4.3757e-04_rb,1.7661e-02_rb,6.5219e-02_rb,9.6736e-02_rb,1.2696e-01_rb,1.5472e-01_rb, &\n     &1.7677e-01_rb,1.8124e-01_rb,2.5391e-01_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &4.7244e-04_rb,2.2315e-02_rb,8.7744e-02_rb,1.3008e-01_rb,1.7055e-01_rb,2.0764e-01_rb, &\n     &2.3757e-01_rb,2.4446e-01_rb,3.4110e-01_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &4.9936e-04_rb,3.5467e-02_rb,1.1452e-01_rb,1.6964e-01_rb,2.2220e-01_rb,2.7019e-01_rb, &\n     &3.0873e-01_rb,3.1867e-01_rb,4.4441e-01_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &5.2088e-04_rb,5.0547e-02_rb,1.4538e-01_rb,2.1535e-01_rb,2.8212e-01_rb,3.4264e-01_rb, &\n     &3.9053e-01_rb,4.0360e-01_rb,5.6424e-01_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &5.3484e-04_rb,7.2405e-02_rb,1.8030e-01_rb,2.6712e-01_rb,3.4967e-01_rb,4.2472e-01_rb, &\n     &4.8331e-01_rb,4.9868e-01_rb,6.9933e-01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &5.8930e-04_rb,5.2056e-04_rb,3.8823e-02_rb,9.4547e-02_rb,1.2473e-01_rb,1.5329e-01_rb, &\n     &1.7814e-01_rb,1.9186e-01_rb,2.4946e-01_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &6.3170e-04_rb,5.6011e-04_rb,6.0488e-02_rb,1.2953e-01_rb,1.7093e-01_rb,2.0982e-01_rb, &\n     &2.4359e-01_rb,2.6142e-01_rb,3.4185e-01_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &6.6396e-04_rb,1.3947e-02_rb,9.3321e-02_rb,1.7148e-01_rb,2.2617e-01_rb,2.7768e-01_rb, &\n     &3.2205e-01_rb,3.4444e-01_rb,4.5233e-01_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &6.8779e-04_rb,3.2900e-02_rb,1.4029e-01_rb,2.2027e-01_rb,2.9047e-01_rb,3.5662e-01_rb, &\n     &4.1356e-01_rb,4.4128e-01_rb,5.8094e-01_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &7.0403e-04_rb,3.1909e-02_rb,1.8526e-01_rb,2.7582e-01_rb,3.6375e-01_rb,4.4666e-01_rb, &\n     &5.1781e-01_rb,5.5205e-01_rb,7.2748e-01_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &1.0314e-03_rb,9.3537e-04_rb,7.8009e-04_rb,3.5190e-02_rb,7.8660e-02_rb,1.3993e-01_rb, &\n     &1.6539e-01_rb,1.8481e-01_rb,1.5700e-01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &1.1044e-03_rb,9.7099e-04_rb,3.0472e-03_rb,6.2470e-02_rb,1.3066e-01_rb,1.9656e-01_rb, &\n     &2.3229e-01_rb,2.5938e-01_rb,2.6190e-01_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &1.1610e-03_rb,1.0227e-03_rb,3.8685e-02_rb,9.5707e-02_rb,2.0189e-01_rb,2.6560e-01_rb, &\n     &3.1379e-01_rb,3.5039e-01_rb,4.0559e-01_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &1.1999e-03_rb,1.0620e-03_rb,6.9192e-02_rb,1.4962e-01_rb,2.7976e-01_rb,3.4701e-01_rb, &\n     &4.1016e-01_rb,4.5806e-01_rb,5.5953e-01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &1.2331e-03_rb,1.0899e-03_rb,6.4034e-02_rb,2.1379e-01_rb,3.5531e-01_rb,4.4075e-01_rb, &\n     &5.2094e-01_rb,5.8205e-01_rb,7.1061e-01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &1.8101e-03_rb,1.5857e-03_rb,1.3614e-03_rb,1.1362e-03_rb,2.5114e-02_rb,5.7242e-02_rb, &\n     &1.1151e-01_rb,1.6445e-01_rb,5.0940e-02_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &1.9417e-03_rb,1.7009e-03_rb,1.4618e-03_rb,1.2222e-03_rb,6.6639e-02_rb,9.6622e-02_rb, &\n     &1.8463e-01_rb,2.3787e-01_rb,1.3472e-01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &2.0504e-03_rb,1.7934e-03_rb,1.5465e-03_rb,1.2907e-03_rb,6.6457e-02_rb,1.6526e-01_rb, &\n     &2.8062e-01_rb,3.2903e-01_rb,1.3147e-01_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &2.1280e-03_rb,1.8660e-03_rb,1.6076e-03_rb,5.7880e-02_rb,1.0798e-01_rb,2.4822e-01_rb, &\n     &3.8266e-01_rb,4.3856e-01_rb,2.1657e-01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &3.4223e-03_rb,3.1028e-03_rb,2.6690e-03_rb,1.0905e-01_rb,1.5760e-01_rb,3.4585e-01_rb, &\n     &4.9399e-01_rb,5.6645e-01_rb,3.1389e-01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &2.8907e-03_rb,2.5398e-03_rb,2.1780e-03_rb,1.8164e-03_rb,1.4541e-03_rb,1.0940e-03_rb, &\n     &7.0483e-02_rb,1.0515e-01_rb,9.1867e-06_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &3.1254e-03_rb,2.7393e-03_rb,2.3477e-03_rb,1.9606e-03_rb,1.5698e-03_rb,3.9518e-02_rb, &\n     &7.4031e-02_rb,1.7523e-01_rb,1.5406e-05_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &6.7235e-03_rb,5.8882e-03_rb,5.0497e-03_rb,4.2126e-03_rb,3.3747e-03_rb,9.4974e-02_rb, &\n     &1.2240e-01_rb,2.6835e-01_rb,2.4302e-05_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &1.0699e-02_rb,9.3645e-03_rb,8.0383e-03_rb,6.6993e-03_rb,5.3674e-03_rb,1.6163e-01_rb, &\n     &2.1236e-01_rb,3.9941e-01_rb,3.6217e-05_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &1.3717e-02_rb,1.2003e-02_rb,1.0303e-02_rb,8.5901e-03_rb,7.6360e-02_rb,1.2908e-01_rb, &\n     &3.1926e-01_rb,5.2644e-01_rb,1.7649e-01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &8.1592e-03_rb,7.4369e-03_rb,6.3758e-03_rb,5.3146e-03_rb,4.2520e-03_rb,3.1909e-03_rb, &\n     &2.1298e-03_rb,5.0122e-02_rb,5.2510e-06_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &1.6119e-02_rb,1.4482e-02_rb,1.2421e-02_rb,1.0082e-02_rb,8.0668e-03_rb,6.0513e-03_rb, &\n     &2.1472e-02_rb,7.5343e-02_rb,9.3553e-06_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &2.2594e-02_rb,1.9767e-02_rb,1.6948e-02_rb,1.4132e-02_rb,1.1307e-02_rb,8.4832e-03_rb, &\n     &8.7408e-02_rb,1.3678e-01_rb,1.5081e-05_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &2.8287e-02_rb,2.4765e-02_rb,2.1227e-02_rb,1.7693e-02_rb,1.4154e-02_rb,1.0619e-02_rb, &\n     &1.5774e-01_rb,2.2631e-01_rb,2.2824e-05_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &3.3007e-02_rb,2.8867e-02_rb,2.4778e-02_rb,2.0634e-02_rb,1.6523e-02_rb,1.2392e-02_rb, &\n     &2.0991e-01_rb,3.3594e-01_rb,3.3161e-05_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &3.2923e-02_rb,2.8801e-02_rb,2.4671e-02_rb,2.0232e-02_rb,1.6462e-02_rb,1.2339e-02_rb, &\n     &8.2302e-03_rb,4.1175e-03_rb,2.9069e-06_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &4.4354e-02_rb,3.8819e-02_rb,3.3267e-02_rb,2.7723e-02_rb,2.2187e-02_rb,1.6641e-02_rb, &\n     &1.1094e-02_rb,4.4470e-02_rb,5.3667e-06_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &5.4986e-02_rb,4.8115e-02_rb,4.1243e-02_rb,3.4364e-02_rb,2.7498e-02_rb,2.0642e-02_rb, &\n     &1.3901e-02_rb,1.0510e-01_rb,9.1519e-06_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &6.4798e-02_rb,5.6696e-02_rb,4.8186e-02_rb,4.0508e-02_rb,3.2405e-02_rb,2.4095e-02_rb, &\n     &1.6208e-02_rb,1.7836e-01_rb,1.4620e-05_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &7.2855e-02_rb,6.3755e-02_rb,5.4641e-02_rb,4.5546e-02_rb,3.6442e-02_rb,2.7544e-02_rb, &\n     &1.8370e-02_rb,1.8524e-01_rb,2.2125e-05_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &9.4104e-02_rb,8.2337e-02_rb,7.0574e-02_rb,5.8796e-02_rb,4.7043e-02_rb,3.5284e-02_rb, &\n     &2.3531e-02_rb,1.1762e-02_rb,1.5730e-06_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &1.1684e-01_rb,1.0226e-01_rb,8.7581e-02_rb,7.3021e-02_rb,5.8384e-02_rb,4.3796e-02_rb, &\n     &2.9205e-02_rb,1.4602e-02_rb,3.1057e-06_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &1.3899e-01_rb,1.2165e-01_rb,1.0424e-01_rb,8.6874e-02_rb,6.9512e-02_rb,5.2129e-02_rb, &\n     &3.4755e-02_rb,1.7377e-02_rb,5.5778e-06_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &1.6026e-01_rb,1.4023e-01_rb,1.2021e-01_rb,1.0019e-01_rb,8.0158e-02_rb,6.0094e-02_rb, &\n     &4.0057e-02_rb,2.0043e-02_rb,9.3711e-06_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &1.7464e-01_rb,1.5283e-01_rb,1.3102e-01_rb,1.0918e-01_rb,8.7353e-02_rb,6.5505e-02_rb, &\n     &4.3670e-02_rb,2.1848e-02_rb,1.4780e-05_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &4.3914e-01_rb,3.8426e-01_rb,3.2523e-01_rb,2.7101e-01_rb,2.1679e-01_rb,1.6466e-01_rb, &\n     &1.0980e-01_rb,5.4190e-02_rb,8.3394e-07_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &5.3157e-01_rb,4.6496e-01_rb,3.9866e-01_rb,3.3222e-01_rb,2.6580e-01_rb,1.9932e-01_rb, &\n     &1.3289e-01_rb,6.6437e-02_rb,1.7793e-06_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &6.2792e-01_rb,5.4930e-01_rb,4.7092e-01_rb,3.9242e-01_rb,3.1384e-01_rb,2.3543e-01_rb, &\n     &1.5698e-01_rb,7.8487e-02_rb,3.4095e-06_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &6.9612e-01_rb,6.0916e-01_rb,5.2207e-01_rb,4.4160e-01_rb,3.4808e-01_rb,2.6107e-01_rb, &\n     &1.7405e-01_rb,8.7030e-02_rb,6.0449e-06_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &7.1518e-01_rb,6.2568e-01_rb,5.3633e-01_rb,4.4688e-01_rb,3.5754e-01_rb,2.6806e-01_rb, &\n     &1.7876e-01_rb,8.9378e-02_rb,9.9175e-06_rb/)\n      kao(:, 1,10,15) = (/ &\n     &1.3796e+01_rb,1.2071e+01_rb,1.0346e+01_rb,8.6223e+00_rb,6.8983e+00_rb,5.1733e+00_rb, &\n     &3.4490e+00_rb,1.7245e+00_rb,4.7027e-07_rb/)\n      kao(:, 2,10,15) = (/ &\n     &2.6233e+00_rb,2.2954e+00_rb,1.9673e+00_rb,1.6395e+00_rb,1.3116e+00_rb,9.8356e-01_rb, &\n     &6.5573e-01_rb,3.2783e-01_rb,1.0735e-06_rb/)\n      kao(:, 3,10,15) = (/ &\n     &2.9028e+00_rb,2.5398e+00_rb,2.1774e+00_rb,1.8145e+00_rb,1.4515e+00_rb,1.0885e+00_rb, &\n     &7.2570e-01_rb,3.6294e-01_rb,2.1946e-06_rb/)\n      kao(:, 4,10,15) = (/ &\n     &2.9628e+00_rb,2.5919e+00_rb,2.2220e+00_rb,1.8518e+00_rb,1.4813e+00_rb,1.1109e+00_rb, &\n     &7.4065e-01_rb,3.7038e-01_rb,4.0439e-06_rb/)\n      kao(:, 5,10,15) = (/ &\n     &3.0421e+00_rb,2.6615e+00_rb,2.2818e+00_rb,1.9012e+00_rb,1.5210e+00_rb,1.1408e+00_rb, &\n     &7.6043e-01_rb,3.8023e-01_rb,6.8742e-06_rb/)\n      kao(:, 1,11,15) = (/ &\n     &5.1563e+01_rb,4.5117e+01_rb,3.8674e+01_rb,3.2227e+01_rb,2.5782e+01_rb,1.9336e+01_rb, &\n     &1.2891e+01_rb,6.4453e+00_rb,4.0707e-07_rb/)\n      kao(:, 2,11,15) = (/ &\n     &4.0297e+00_rb,3.5262e+00_rb,3.0227e+00_rb,2.5187e+00_rb,2.0150e+00_rb,1.5474e+00_rb, &\n     &1.0073e+00_rb,5.0377e-01_rb,9.5505e-07_rb/)\n      kao(:, 3,11,15) = (/ &\n     &4.2638e+00_rb,3.7317e+00_rb,3.1981e+00_rb,2.6654e+00_rb,2.1321e+00_rb,1.5993e+00_rb, &\n     &1.0662e+00_rb,5.3312e-01_rb,1.9370e-06_rb/)\n      kao(:, 4,11,15) = (/ &\n     &4.5225e+00_rb,3.9566e+00_rb,3.3892e+00_rb,2.8266e+00_rb,2.2603e+00_rb,1.6955e+00_rb, &\n     &1.1303e+00_rb,5.6504e-01_rb,3.5823e-06_rb/)\n      kao(:, 5,11,15) = (/ &\n     &4.7336e+00_rb,4.1418e+00_rb,3.5502e+00_rb,2.9582e+00_rb,2.3669e+00_rb,1.7755e+00_rb, &\n     &1.1834e+00_rb,5.9176e-01_rb,6.1298e-06_rb/)\n      kao(:, 1,12,15) = (/ &\n     &1.0350e+02_rb,9.0564e+01_rb,7.7625e+01_rb,6.4688e+01_rb,5.1750e+01_rb,3.8814e+01_rb, &\n     &2.5874e+01_rb,1.2937e+01_rb,3.8485e-07_rb/)\n      kao(:, 2,12,15) = (/ &\n     &3.5400e+01_rb,3.0974e+01_rb,2.7218e+01_rb,2.2126e+01_rb,1.7700e+01_rb,1.3275e+01_rb, &\n     &8.8500e+00_rb,4.4247e+00_rb,8.6295e-07_rb/)\n      kao(:, 3,12,15) = (/ &\n     &4.7917e+00_rb,4.1902e+00_rb,3.5927e+00_rb,2.9945e+00_rb,2.3939e+00_rb,1.7963e+00_rb, &\n     &1.1970e+00_rb,5.9908e-01_rb,1.7414e-06_rb/)\n      kao(:, 4,12,15) = (/ &\n     &4.7749e+00_rb,4.1779e+00_rb,3.5811e+00_rb,2.9844e+00_rb,2.3876e+00_rb,1.7905e+00_rb, &\n     &1.1938e+00_rb,5.9689e-01_rb,3.1576e-06_rb/)\n      kao(:, 5,12,15) = (/ &\n     &4.7755e+00_rb,4.1774e+00_rb,3.5815e+00_rb,2.9845e+00_rb,2.3876e+00_rb,1.7910e+00_rb, &\n     &1.1938e+00_rb,5.9711e-01_rb,5.4455e-06_rb/)\n      kao(:, 1,13,15) = (/ &\n     &1.3564e+02_rb,1.2035e+02_rb,1.0244e+02_rb,8.5373e+01_rb,6.8293e+01_rb,5.1221e+01_rb, &\n     &3.4147e+01_rb,1.7074e+01_rb,3.5301e-07_rb/)\n      kao(:, 2,13,15) = (/ &\n     &6.6923e+01_rb,5.8556e+01_rb,5.0190e+01_rb,4.1824e+01_rb,3.3458e+01_rb,2.5094e+01_rb, &\n     &1.6730e+01_rb,8.3652e+00_rb,7.8175e-07_rb/)\n      kao(:, 3,13,15) = (/ &\n     &3.7003e+00_rb,3.2381e+00_rb,2.7755e+00_rb,2.3126e+00_rb,1.8500e+00_rb,1.3876e+00_rb, &\n     &9.2513e-01_rb,4.6258e-01_rb,1.5659e-06_rb/)\n      kao(:, 4,13,15) = (/ &\n     &3.7328e+00_rb,3.2655e+00_rb,2.7985e+00_rb,2.3334e+00_rb,1.8661e+00_rb,1.3995e+00_rb, &\n     &9.3310e-01_rb,4.6647e-01_rb,2.9454e-06_rb/)\n      kao(:, 5,13,15) = (/ &\n     &3.7209e+00_rb,3.2581e+00_rb,2.7929e+00_rb,2.3278e+00_rb,1.8618e+00_rb,1.3966e+00_rb, &\n     &9.3071e-01_rb,4.6580e-01_rb,5.0591e-06_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &3.4803e-04_rb,3.1375e-04_rb,9.0029e-02_rb,1.3230e-01_rb,1.7123e-01_rb,2.0432e-01_rb, &\n     &2.2540e-01_rb,2.1561e-01_rb,3.4246e-01_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &3.6711e-04_rb,6.2185e-02_rb,1.2251e-01_rb,1.8007e-01_rb,2.3310e-01_rb,2.7812e-01_rb, &\n     &3.0698e-01_rb,2.9374e-01_rb,4.6619e-01_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &3.8231e-04_rb,8.1789e-02_rb,1.6116e-01_rb,2.3685e-01_rb,3.0661e-01_rb,3.6587e-01_rb, &\n     &4.0384e-01_rb,3.8690e-01_rb,6.1322e-01_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &3.9398e-04_rb,1.0451e-01_rb,2.0587e-01_rb,3.0259e-01_rb,3.9179e-01_rb,4.6767e-01_rb, &\n     &5.1634e-01_rb,4.9462e-01_rb,7.8358e-01_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &4.0251e-04_rb,1.3022e-01_rb,2.5663e-01_rb,3.7711e-01_rb,4.8832e-01_rb,5.8296e-01_rb, &\n     &6.4377e-01_rb,6.1717e-01_rb,9.7664e-01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &4.4386e-04_rb,3.9528e-04_rb,9.5606e-02_rb,1.4144e-01_rb,1.8490e-01_rb,2.2388e-01_rb, &\n     &2.5317e-01_rb,2.5424e-01_rb,3.6979e-01_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &4.6963e-04_rb,4.2143e-04_rb,1.3208e-01_rb,1.9543e-01_rb,2.5549e-01_rb,3.0939e-01_rb, &\n     &3.5000e-01_rb,3.5157e-01_rb,5.1097e-01_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &4.9052e-04_rb,4.4450e-04_rb,1.7597e-01_rb,2.6040e-01_rb,3.4044e-01_rb,4.1226e-01_rb, &\n     &4.6651e-01_rb,4.6873e-01_rb,6.8087e-01_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &5.0548e-04_rb,4.6448e-04_rb,2.2723e-01_rb,3.3632e-01_rb,4.3972e-01_rb,5.3255e-01_rb, &\n     &6.0266e-01_rb,6.0594e-01_rb,8.7943e-01_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &5.1704e-04_rb,1.4434e-01_rb,2.8579e-01_rb,4.2309e-01_rb,5.5324e-01_rb,6.7011e-01_rb, &\n     &7.5842e-01_rb,7.6291e-01_rb,1.1065e+00_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &7.4514e-04_rb,6.5703e-04_rb,5.6805e-04_rb,1.3986e-01_rb,1.8472e-01_rb,2.2721e-01_rb, &\n     &2.6439e-01_rb,2.8334e-01_rb,3.6943e-01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &7.9344e-04_rb,7.0163e-04_rb,6.1002e-04_rb,1.9810e-01_rb,2.6159e-01_rb,3.2183e-01_rb, &\n     &3.7436e-01_rb,4.0145e-01_rb,5.2319e-01_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &8.3288e-04_rb,7.4056e-04_rb,6.4608e-04_rb,2.6931e-01_rb,3.5570e-01_rb,4.3753e-01_rb, &\n     &5.0928e-01_rb,5.4624e-01_rb,7.1140e-01_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &8.6418e-04_rb,7.7079e-04_rb,1.2130e-02_rb,3.5401e-01_rb,4.6743e-01_rb,5.7518e-01_rb, &\n     &6.6923e-01_rb,7.1819e-01_rb,9.3487e-01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &8.8628e-04_rb,7.9797e-04_rb,3.0313e-01_rb,4.5187e-01_rb,5.9661e-01_rb,7.3417e-01_rb, &\n     &8.5463e-01_rb,9.1729e-01_rb,1.1932e+00_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &1.2636e-03_rb,1.1057e-03_rb,9.5136e-04_rb,7.9620e-04_rb,6.4188e-04_rb,2.1791e-01_rb, &\n     &2.5758e-01_rb,2.8791e-01_rb,2.3364e-05_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &1.3610e-03_rb,1.1957e-03_rb,1.0270e-03_rb,8.6413e-04_rb,7.0025e-04_rb,3.1776e-01_rb, &\n     &3.7570e-01_rb,4.1991e-01_rb,3.8771e-05_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &1.4417e-03_rb,1.2662e-03_rb,1.0946e-03_rb,9.2411e-04_rb,3.5694e-01_rb,4.4267e-01_rb, &\n     &5.2346e-01_rb,5.8520e-01_rb,7.1388e-01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &1.5012e-03_rb,1.3268e-03_rb,1.1484e-03_rb,9.7089e-04_rb,4.7866e-01_rb,5.9391e-01_rb, &\n     &7.0229e-01_rb,7.8545e-01_rb,9.5731e-01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &1.5493e-03_rb,1.3712e-03_rb,1.1941e-03_rb,1.0165e-03_rb,6.2163e-01_rb,7.7110e-01_rb, &\n     &9.1212e-01_rb,1.0202e+00_rb,1.2432e+00_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &1.9563e-03_rb,1.7130e-03_rb,1.4716e-03_rb,1.2286e-03_rb,9.8449e-04_rb,7.4210e-04_rb, &\n     &5.0011e-04_rb,2.7578e-01_rb,1.4521e-05_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &2.1251e-03_rb,1.8616e-03_rb,1.5991e-03_rb,1.3382e-03_rb,1.0747e-03_rb,8.1191e-04_rb, &\n     &3.6392e-01_rb,4.1523e-01_rb,2.5317e-05_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &2.2685e-03_rb,1.9902e-03_rb,1.7118e-03_rb,1.4319e-03_rb,1.1550e-03_rb,8.7607e-04_rb, &\n     &5.2057e-01_rb,5.9412e-01_rb,4.1189e-05_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &2.3834e-03_rb,2.0939e-03_rb,1.8039e-03_rb,1.5145e-03_rb,1.2237e-03_rb,9.3428e-04_rb, &\n     &7.1378e-01_rb,8.1462e-01_rb,6.3394e-05_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &2.4764e-03_rb,2.1786e-03_rb,1.8819e-03_rb,1.5832e-03_rb,1.2860e-03_rb,7.9256e-01_rb, &\n     &9.4410e-01_rb,1.0778e+00_rb,9.2980e-05_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &2.8061e-03_rb,2.4583e-03_rb,2.1085e-03_rb,1.7622e-03_rb,1.4067e-03_rb,1.0576e-03_rb, &\n     &7.0829e-04_rb,1.6992e-01_rb,8.6758e-06_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &3.0921e-03_rb,2.7056e-03_rb,2.3212e-03_rb,1.9356e-03_rb,1.5529e-03_rb,1.1677e-03_rb, &\n     &7.8418e-04_rb,3.9086e-01_rb,1.5977e-05_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &3.3322e-03_rb,2.9180e-03_rb,2.5057e-03_rb,2.0938e-03_rb,1.6795e-03_rb,1.2657e-03_rb, &\n     &8.5374e-04_rb,5.7620e-01_rb,2.7234e-05_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &3.5394e-03_rb,3.0979e-03_rb,2.6608e-03_rb,2.2263e-03_rb,1.7897e-03_rb,1.3517e-03_rb, &\n     &9.1571e-04_rb,8.0997e-01_rb,4.3592e-05_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &3.6973e-03_rb,3.2450e-03_rb,2.7879e-03_rb,2.3342e-03_rb,1.8813e-03_rb,1.4280e-03_rb, &\n     &2.3591e-01_rb,1.0936e+00_rb,6.6108e-05_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &4.1566e-03_rb,3.6382e-03_rb,3.1187e-03_rb,2.5984e-03_rb,2.0809e-03_rb,1.5620e-03_rb, &\n     &1.0430e-03_rb,5.2415e-04_rb,5.0515e-06_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &4.6397e-03_rb,4.0602e-03_rb,3.4821e-03_rb,2.9026e-03_rb,2.3244e-03_rb,1.7452e-03_rb, &\n     &1.1674e-03_rb,5.8830e-04_rb,9.8982e-06_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &5.0641e-03_rb,4.4282e-03_rb,3.8004e-03_rb,3.1687e-03_rb,2.5412e-03_rb,1.9080e-03_rb, &\n     &1.2777e-03_rb,6.4842e-04_rb,1.7758e-05_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &5.4224e-03_rb,4.7462e-03_rb,4.0771e-03_rb,3.3992e-03_rb,2.7272e-03_rb,2.0505e-03_rb, &\n     &1.3779e-03_rb,7.0354e-04_rb,2.9670e-05_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &5.7229e-03_rb,5.0101e-03_rb,4.3011e-03_rb,3.5983e-03_rb,2.8833e-03_rb,2.1757e-03_rb, &\n     &1.4658e-03_rb,6.1847e-01_rb,4.6639e-05_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &7.1654e-03_rb,6.2688e-03_rb,5.3745e-03_rb,4.4778e-03_rb,3.5800e-03_rb,2.6883e-03_rb, &\n     &1.7931e-03_rb,8.9706e-04_rb,2.8888e-06_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &8.1399e-03_rb,7.1118e-03_rb,6.0997e-03_rb,5.0831e-03_rb,4.0665e-03_rb,3.0517e-03_rb, &\n     &2.0386e-03_rb,1.0214e-03_rb,6.0412e-06_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &8.9800e-03_rb,7.8609e-03_rb,6.7393e-03_rb,5.6216e-03_rb,4.4978e-03_rb,3.3745e-03_rb, &\n     &2.2551e-03_rb,1.1328e-03_rb,1.1454e-05_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &9.7139e-03_rb,8.5067e-03_rb,7.2942e-03_rb,6.0777e-03_rb,4.8682e-03_rb,3.6593e-03_rb, &\n     &2.4437e-03_rb,1.2326e-03_rb,2.0029e-05_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &1.0337e-02_rb,9.0473e-03_rb,7.7560e-03_rb,6.4703e-03_rb,5.1860e-03_rb,3.8948e-03_rb, &\n     &2.6072e-03_rb,1.3207e-03_rb,3.2759e-05_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &2.3247e-02_rb,2.0336e-02_rb,1.7429e-02_rb,1.4524e-02_rb,1.1625e-02_rb,8.7188e-03_rb, &\n     &5.8147e-03_rb,2.9059e-03_rb,1.6015e-06_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &2.6840e-02_rb,2.3482e-02_rb,2.0132e-02_rb,1.6770e-02_rb,1.3422e-02_rb,1.0063e-02_rb, &\n     &6.7117e-03_rb,3.3577e-03_rb,3.6050e-06_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &3.0078e-02_rb,2.6329e-02_rb,2.2553e-02_rb,1.8793e-02_rb,1.5044e-02_rb,1.1280e-02_rb, &\n     &7.5240e-03_rb,3.7656e-03_rb,7.2546e-06_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &3.2925e-02_rb,2.8810e-02_rb,2.4697e-02_rb,2.0586e-02_rb,3.0583e-02_rb,1.2361e-02_rb, &\n     &8.2421e-03_rb,4.1354e-03_rb,1.3329e-05_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &3.5342e-02_rb,3.0934e-02_rb,2.6503e-02_rb,2.2104e-02_rb,1.7684e-02_rb,1.3262e-02_rb, &\n     &8.8536e-03_rb,4.4397e-03_rb,2.2693e-05_rb/)\n      kao(:, 1,10,16) = (/ &\n     &8.4703e-02_rb,7.4117e-02_rb,6.3535e-02_rb,5.2927e-02_rb,4.2343e-02_rb,3.1773e-02_rb, &\n     &2.1175e-02_rb,1.0588e-02_rb,9.2688e-07_rb/)\n      kao(:, 2,10,16) = (/ &\n     &9.9410e-02_rb,8.7009e-02_rb,7.4556e-02_rb,6.2160e-02_rb,4.9698e-02_rb,3.7265e-02_rb, &\n     &2.4850e-02_rb,1.2429e-02_rb,2.2335e-06_rb/)\n      kao(:, 3,10,16) = (/ &\n     &1.1291e-01_rb,9.8729e-02_rb,8.4692e-02_rb,7.0598e-02_rb,5.6422e-02_rb,4.2355e-02_rb, &\n     &2.8232e-02_rb,1.4106e-02_rb,4.7476e-06_rb/)\n      kao(:, 4,10,16) = (/ &\n     &1.2498e-01_rb,1.0930e-01_rb,9.3695e-02_rb,7.8057e-02_rb,6.2479e-02_rb,4.6859e-02_rb, &\n     &3.1244e-02_rb,1.5627e-02_rb,9.1259e-06_rb/)\n      kao(:, 5,10,16) = (/ &\n     &1.3523e-01_rb,1.1838e-01_rb,1.0149e-01_rb,8.4512e-02_rb,6.7619e-02_rb,5.0737e-02_rb, &\n     &3.3842e-02_rb,1.6917e-02_rb,1.6155e-05_rb/)\n      kao(:, 1,11,16) = (/ &\n     &1.1702e-01_rb,1.0242e-01_rb,8.7781e-02_rb,7.3100e-02_rb,5.8528e-02_rb,4.3847e-02_rb, &\n     &2.9250e-02_rb,1.4631e-02_rb,8.3202e-07_rb/)\n      kao(:, 2,11,16) = (/ &\n     &1.3733e-01_rb,1.2017e-01_rb,1.0300e-01_rb,8.5853e-02_rb,6.8653e-02_rb,5.1492e-02_rb, &\n     &3.4322e-02_rb,1.7153e-02_rb,2.0128e-06_rb/)\n      kao(:, 3,11,16) = (/ &\n     &1.5584e-01_rb,1.3638e-01_rb,1.1685e-01_rb,9.7461e-02_rb,7.7843e-02_rb,5.8372e-02_rb, &\n     &3.8976e-02_rb,1.9510e-02_rb,4.3129e-06_rb/)\n      kao(:, 4,11,16) = (/ &\n     &1.7239e-01_rb,1.5086e-01_rb,1.2928e-01_rb,1.0779e-01_rb,8.6176e-02_rb,6.4725e-02_rb, &\n     &4.3097e-02_rb,2.1516e-02_rb,8.3117e-06_rb/)\n      kao(:, 5,11,16) = (/ &\n     &1.8654e-01_rb,1.6325e-01_rb,1.3989e-01_rb,1.1667e-01_rb,9.3408e-02_rb,7.0060e-02_rb, &\n     &4.6775e-02_rb,2.3342e-02_rb,1.4729e-05_rb/)\n      kao(:, 1,12,16) = (/ &\n     &1.1854e-01_rb,1.0376e-01_rb,8.8946e-02_rb,7.4074e-02_rb,5.9255e-02_rb,4.4504e-02_rb, &\n     &2.9679e-02_rb,1.4800e-02_rb,7.4749e-07_rb/)\n      kao(:, 2,12,16) = (/ &\n     &1.3943e-01_rb,1.2204e-01_rb,1.0463e-01_rb,8.7342e-02_rb,6.9856e-02_rb,5.2356e-02_rb, &\n     &3.4894e-02_rb,1.7410e-02_rb,1.8161e-06_rb/)\n      kao(:, 3,12,16) = (/ &\n     &1.5836e-01_rb,1.3868e-01_rb,1.1885e-01_rb,9.9001e-02_rb,7.9338e-02_rb,5.9413e-02_rb, &\n     &3.9707e-02_rb,1.9806e-02_rb,3.8901e-06_rb/)\n      kao(:, 4,12,16) = (/ &\n     &1.7966e-01_rb,1.5728e-01_rb,1.3478e-01_rb,1.1217e-01_rb,8.9784e-02_rb,6.7270e-02_rb, &\n     &4.4900e-02_rb,2.2432e-02_rb,7.2752e-06_rb/)\n      kao(:, 5,12,16) = (/ &\n     &2.0635e-01_rb,1.8060e-01_rb,1.5479e-01_rb,1.2891e-01_rb,1.0321e-01_rb,7.7324e-02_rb, &\n     &5.1591e-02_rb,2.5791e-02_rb,1.2040e-05_rb/)\n      kao(:, 1,13,16) = (/ &\n     &2.1930e-01_rb,8.1271e-02_rb,6.9650e-02_rb,5.7973e-02_rb,4.6358e-02_rb,3.4782e-02_rb, &\n     &2.3204e-02_rb,1.1588e-02_rb,6.6806e-07_rb/)\n      kao(:, 2,13,16) = (/ &\n     &1.1205e-01_rb,9.8083e-02_rb,8.4056e-02_rb,7.0107e-02_rb,5.6050e-02_rb,4.2050e-02_rb, &\n     &2.7998e-02_rb,1.4011e-02_rb,1.5755e-06_rb/)\n      kao(:, 3,13,16) = (/ &\n     &1.3646e-01_rb,1.1932e-01_rb,1.0236e-01_rb,8.5263e-02_rb,6.8236e-02_rb,5.1131e-02_rb, &\n     &3.4091e-02_rb,1.7065e-02_rb,3.1454e-06_rb/)\n      kao(:, 4,13,16) = (/ &\n     &1.5976e-01_rb,1.3979e-01_rb,1.1981e-01_rb,9.9935e-02_rb,7.9931e-02_rb,5.9857e-02_rb, &\n     &3.9898e-02_rb,1.9961e-02_rb,5.5256e-06_rb/)\n      kao(:, 5,13,16) = (/ &\n     &1.7769e-01_rb,1.5548e-01_rb,1.3326e-01_rb,1.1109e-01_rb,8.8840e-02_rb,6.6629e-02_rb, &\n     &4.4447e-02_rb,2.2232e-02_rb,9.1943e-06_rb/)\n\n!     The array KAO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n      kao_mco2( 1, :, 1) = (/ &\n     & 1.09539e-04_rb, 1.17067e-04_rb, 1.25113e-04_rb, 1.33712e-04_rb, 1.42902e-04_rb, &\n     & 1.52724e-04_rb, 1.63221e-04_rb, 1.74439e-04_rb, 1.86428e-04_rb, 1.99241e-04_rb, &\n     & 2.12934e-04_rb, 2.27569e-04_rb, 2.43210e-04_rb, 2.59926e-04_rb, 2.77790e-04_rb, &\n     & 2.96883e-04_rb, 3.17287e-04_rb, 3.39094e-04_rb, 3.62400e-04_rb/)\n      kao_mco2( 2, :, 1) = (/ &\n     & 1.25202e-04_rb, 1.34718e-04_rb, 1.44957e-04_rb, 1.55974e-04_rb, 1.67829e-04_rb, &\n     & 1.80585e-04_rb, 1.94311e-04_rb, 2.09079e-04_rb, 2.24971e-04_rb, 2.42069e-04_rb, &\n     & 2.60468e-04_rb, 2.80265e-04_rb, 3.01567e-04_rb, 3.24488e-04_rb, 3.49150e-04_rb, &\n     & 3.75688e-04_rb, 4.04242e-04_rb, 4.34966e-04_rb, 4.68026e-04_rb/)\n      kao_mco2( 3, :, 1) = (/ &\n     & 1.12112e-04_rb, 1.21090e-04_rb, 1.30786e-04_rb, 1.41259e-04_rb, 1.52571e-04_rb, &\n     & 1.64788e-04_rb, 1.77984e-04_rb, 1.92237e-04_rb, 2.07631e-04_rb, 2.24257e-04_rb, &\n     & 2.42215e-04_rb, 2.61611e-04_rb, 2.82560e-04_rb, 3.05187e-04_rb, 3.29625e-04_rb, &\n     & 3.56021e-04_rb, 3.84530e-04_rb, 4.15322e-04_rb, 4.48580e-04_rb/)\n      kao_mco2( 4, :, 1) = (/ &\n     & 9.74130e-05_rb, 1.05372e-04_rb, 1.13982e-04_rb, 1.23295e-04_rb, 1.33369e-04_rb, &\n     & 1.44265e-04_rb, 1.56053e-04_rb, 1.68803e-04_rb, 1.82595e-04_rb, 1.97514e-04_rb, &\n     & 2.13652e-04_rb, 2.31109e-04_rb, 2.49992e-04_rb, 2.70418e-04_rb, 2.92512e-04_rb, &\n     & 3.16412e-04_rb, 3.42265e-04_rb, 3.70230e-04_rb, 4.00479e-04_rb/)\n      kao_mco2( 5, :, 1) = (/ &\n     & 8.71018e-05_rb, 9.40759e-05_rb, 1.01608e-04_rb, 1.09744e-04_rb, 1.18531e-04_rb, &\n     & 1.28022e-04_rb, 1.38272e-04_rb, 1.49343e-04_rb, 1.61301e-04_rb, 1.74216e-04_rb, &\n     & 1.88166e-04_rb, 2.03232e-04_rb, 2.19504e-04_rb, 2.37079e-04_rb, 2.56062e-04_rb, &\n     & 2.76565e-04_rb, 2.98709e-04_rb, 3.22626e-04_rb, 3.48458e-04_rb/)\n      kao_mco2( 6, :, 1) = (/ &\n     & 7.55256e-05_rb, 8.17414e-05_rb, 8.84688e-05_rb, 9.57500e-05_rb, 1.03630e-04_rb, &\n     & 1.12159e-04_rb, 1.21390e-04_rb, 1.31381e-04_rb, 1.42193e-04_rb, 1.53896e-04_rb, &\n     & 1.66562e-04_rb, 1.80270e-04_rb, 1.95107e-04_rb, 2.11164e-04_rb, 2.28543e-04_rb, &\n     & 2.47353e-04_rb, 2.67710e-04_rb, 2.89743e-04_rb, 3.13589e-04_rb/)\n      kao_mco2( 7, :, 1) = (/ &\n     & 5.31515e-05_rb, 6.06869e-05_rb, 6.92907e-05_rb, 7.91143e-05_rb, 9.03306e-05_rb, &\n     & 1.03137e-04_rb, 1.17759e-04_rb, 1.34454e-04_rb, 1.53516e-04_rb, 1.75281e-04_rb, &\n     & 2.00131e-04_rb, 2.28504e-04_rb, 2.60900e-04_rb, 2.97888e-04_rb, 3.40121e-04_rb, &\n     & 3.88341e-04_rb, 4.43397e-04_rb, 5.06259e-04_rb, 5.78033e-04_rb/)\n      kao_mco2( 8, :, 1) = (/ &\n     & 2.52471e-04_rb, 2.96005e-04_rb, 3.47045e-04_rb, 4.06886e-04_rb, 4.77045e-04_rb, &\n     & 5.59302e-04_rb, 6.55742e-04_rb, 7.68811e-04_rb, 9.01377e-04_rb, 1.05680e-03_rb, &\n     & 1.23902e-03_rb, 1.45267e-03_rb, 1.70315e-03_rb, 1.99683e-03_rb, 2.34114e-03_rb, &\n     & 2.74482e-03_rb, 3.21811e-03_rb, 3.77300e-03_rb, 4.42358e-03_rb/)\n      kao_mco2( 9, :, 1) = (/ &\n     & 4.06711e-05_rb, 4.53161e-05_rb, 5.04917e-05_rb, 5.62583e-05_rb, 6.26836e-05_rb, &\n     & 6.98427e-05_rb, 7.78194e-05_rb, 8.67071e-05_rb, 9.66100e-05_rb, 1.07644e-04_rb, &\n     & 1.19938e-04_rb, 1.33636e-04_rb, 1.48898e-04_rb, 1.65904e-04_rb, 1.84852e-04_rb, &\n     & 2.05964e-04_rb, 2.29487e-04_rb, 2.55697e-04_rb, 2.84900e-04_rb/)\n      kao_mco2( 1, :, 2) = (/ &\n     & 2.01759e-04_rb, 2.15641e-04_rb, 2.30478e-04_rb, 2.46336e-04_rb, 2.63285e-04_rb, &\n     & 2.81400e-04_rb, 3.00761e-04_rb, 3.21455e-04_rb, 3.43573e-04_rb, 3.67212e-04_rb, &\n     & 3.92477e-04_rb, 4.19482e-04_rb, 4.48344e-04_rb, 4.79192e-04_rb, 5.12162e-04_rb, &\n     & 5.47401e-04_rb, 5.85064e-04_rb, 6.25319e-04_rb, 6.68343e-04_rb/)\n      kao_mco2( 2, :, 2) = (/ &\n     & 2.53461e-04_rb, 2.70916e-04_rb, 2.89574e-04_rb, 3.09516e-04_rb, 3.30832e-04_rb, &\n     & 3.53616e-04_rb, 3.77969e-04_rb, 4.03999e-04_rb, 4.31822e-04_rb, 4.61561e-04_rb, &\n     & 4.93348e-04_rb, 5.27324e-04_rb, 5.63640e-04_rb, 6.02457e-04_rb, 6.43948e-04_rb, &\n     & 6.88295e-04_rb, 7.35697e-04_rb, 7.86364e-04_rb, 8.40519e-04_rb/)\n      kao_mco2( 3, :, 2) = (/ &\n     & 2.58821e-04_rb, 2.76943e-04_rb, 2.96334e-04_rb, 3.17082e-04_rb, 3.39283e-04_rb, &\n     & 3.63038e-04_rb, 3.88457e-04_rb, 4.15655e-04_rb, 4.44758e-04_rb, 4.75899e-04_rb, &\n     & 5.09220e-04_rb, 5.44874e-04_rb, 5.83024e-04_rb, 6.23845e-04_rb, 6.67525e-04_rb, &\n     & 7.14263e-04_rb, 7.64273e-04_rb, 8.17785e-04_rb, 8.75043e-04_rb/)\n      kao_mco2( 4, :, 2) = (/ &\n     & 2.46588e-04_rb, 2.64630e-04_rb, 2.83993e-04_rb, 3.04771e-04_rb, 3.27071e-04_rb, &\n     & 3.51001e-04_rb, 3.76683e-04_rb, 4.04244e-04_rb, 4.33821e-04_rb, 4.65563e-04_rb, &\n     & 4.99627e-04_rb, 5.36183e-04_rb, 5.75414e-04_rb, 6.17515e-04_rb, 6.62697e-04_rb, &\n     & 7.11185e-04_rb, 7.63220e-04_rb, 8.19063e-04_rb, 8.78991e-04_rb/)\n      kao_mco2( 5, :, 2) = (/ &\n     & 2.19140e-04_rb, 2.36464e-04_rb, 2.55158e-04_rb, 2.75330e-04_rb, 2.97097e-04_rb, &\n     & 3.20585e-04_rb, 3.45929e-04_rb, 3.73277e-04_rb, 4.02787e-04_rb, 4.34630e-04_rb, &\n     & 4.68991e-04_rb, 5.06068e-04_rb, 5.46076e-04_rb, 5.89247e-04_rb, 6.35831e-04_rb, &\n     & 6.86097e-04_rb, 7.40338e-04_rb, 7.98867e-04_rb, 8.62022e-04_rb/)\n      kao_mco2( 6, :, 2) = (/ &\n     & 1.74073e-04_rb, 1.92221e-04_rb, 2.12260e-04_rb, 2.34388e-04_rb, 2.58824e-04_rb, &\n     & 2.85807e-04_rb, 3.15603e-04_rb, 3.48505e-04_rb, 3.84837e-04_rb, 4.24957e-04_rb, &\n     & 4.69260e-04_rb, 5.18181e-04_rb, 5.72202e-04_rb, 6.31855e-04_rb, 6.97727e-04_rb, &\n     & 7.70466e-04_rb, 8.50789e-04_rb, 9.39485e-04_rb, 1.03743e-03_rb/)\n      kao_mco2( 7, :, 2) = (/ &\n     & 1.74359e-04_rb, 1.99276e-04_rb, 2.27753e-04_rb, 2.60299e-04_rb, 2.97497e-04_rb, &\n     & 3.40010e-04_rb, 3.88599e-04_rb, 4.44130e-04_rb, 5.07598e-04_rb, 5.80135e-04_rb, &\n     & 6.63039e-04_rb, 7.57789e-04_rb, 8.66079e-04_rb, 9.89845e-04_rb, 1.13130e-03_rb, &\n     & 1.29296e-03_rb, 1.47773e-03_rb, 1.68890e-03_rb, 1.93025e-03_rb/)\n      kao_mco2( 8, :, 2) = (/ &\n     & 1.08215e-03_rb, 1.20760e-03_rb, 1.34759e-03_rb, 1.50382e-03_rb, 1.67815e-03_rb, &\n     & 1.87270e-03_rb, 2.08980e-03_rb, 2.33206e-03_rb, 2.60242e-03_rb, 2.90411e-03_rb, &\n     & 3.24078e-03_rb, 3.61648e-03_rb, 4.03573e-03_rb, 4.50359e-03_rb, 5.02568e-03_rb, &\n     & 5.60830e-03_rb, 6.25846e-03_rb, 6.98399e-03_rb, 7.79363e-03_rb/)\n      kao_mco2( 9, :, 2) = (/ &\n     & 1.04969e-04_rb, 1.20766e-04_rb, 1.38939e-04_rb, 1.59848e-04_rb, 1.83903e-04_rb, &\n     & 2.11578e-04_rb, 2.43418e-04_rb, 2.80049e-04_rb, 3.22193e-04_rb, 3.70678e-04_rb, &\n     & 4.26461e-04_rb, 4.90638e-04_rb, 5.64472e-04_rb, 6.49418e-04_rb, 7.47147e-04_rb, &\n     & 8.59583e-04_rb, 9.88940e-04_rb, 1.13776e-03_rb, 1.30898e-03_rb/)\n      kao_mco2( 1, :, 3) = (/ &\n     & 3.72106e-04_rb, 3.96252e-04_rb, 4.21966e-04_rb, 4.49347e-04_rb, 4.78506e-04_rb, &\n     & 5.09557e-04_rb, 5.42623e-04_rb, 5.77834e-04_rb, 6.15330e-04_rb, 6.55260e-04_rb, &\n     & 6.97781e-04_rb, 7.43060e-04_rb, 7.91278e-04_rb, 8.42626e-04_rb, 8.97304e-04_rb, &\n     & 9.55532e-04_rb, 1.01754e-03_rb, 1.08357e-03_rb, 1.15388e-03_rb/)\n      kao_mco2( 2, :, 3) = (/ &\n     & 4.20563e-04_rb, 4.46162e-04_rb, 4.73319e-04_rb, 5.02130e-04_rb, 5.32693e-04_rb, &\n     & 5.65118e-04_rb, 5.99516e-04_rb, 6.36007e-04_rb, 6.74720e-04_rb, 7.15789e-04_rb, &\n     & 7.59358e-04_rb, 8.05579e-04_rb, 8.54613e-04_rb, 9.06632e-04_rb, 9.61817e-04_rb, &\n     & 1.02036e-03_rb, 1.08247e-03_rb, 1.14836e-03_rb, 1.21826e-03_rb/)\n      kao_mco2( 3, :, 3) = (/ &\n     & 4.89664e-04_rb, 5.18321e-04_rb, 5.48654e-04_rb, 5.80764e-04_rb, 6.14752e-04_rb, &\n     & 6.50729e-04_rb, 6.88812e-04_rb, 7.29124e-04_rb, 7.71795e-04_rb, 8.16963e-04_rb, &\n     & 8.64774e-04_rb, 9.15384e-04_rb, 9.68955e-04_rb, 1.02566e-03_rb, 1.08569e-03_rb, &\n     & 1.14922e-03_rb, 1.21648e-03_rb, 1.28767e-03_rb, 1.36303e-03_rb/)\n      kao_mco2( 4, :, 3) = (/ &\n     & 4.61143e-04_rb, 4.92198e-04_rb, 5.25343e-04_rb, 5.60720e-04_rb, 5.98480e-04_rb, &\n     & 6.38783e-04_rb, 6.81799e-04_rb, 7.27713e-04_rb, 7.76718e-04_rb, 8.29023e-04_rb, &\n     & 8.84851e-04_rb, 9.44438e-04_rb, 1.00804e-03_rb, 1.07592e-03_rb, 1.14837e-03_rb, &\n     & 1.22571e-03_rb, 1.30825e-03_rb, 1.39635e-03_rb, 1.49038e-03_rb/)\n      kao_mco2( 5, :, 3) = (/ &\n     & 4.01988e-04_rb, 4.36672e-04_rb, 4.74349e-04_rb, 5.15278e-04_rb, 5.59737e-04_rb, &\n     & 6.08032e-04_rb, 6.60495e-04_rb, 7.17484e-04_rb, 7.79390e-04_rb, 8.46638e-04_rb, &\n     & 9.19688e-04_rb, 9.99041e-04_rb, 1.08524e-03_rb, 1.17888e-03_rb, 1.28059e-03_rb, &\n     & 1.39109e-03_rb, 1.51111e-03_rb, 1.64149e-03_rb, 1.78313e-03_rb/)\n      kao_mco2( 6, :, 3) = (/ &\n     & 3.35536e-04_rb, 3.74371e-04_rb, 4.17700e-04_rb, 4.66045e-04_rb, 5.19985e-04_rb, &\n     & 5.80169e-04_rb, 6.47318e-04_rb, 7.22238e-04_rb, 8.05831e-04_rb, 8.99098e-04_rb, &\n     & 1.00316e-03_rb, 1.11927e-03_rb, 1.24881e-03_rb, 1.39335e-03_rb, 1.55461e-03_rb, &\n     & 1.73455e-03_rb, 1.93530e-03_rb, 2.15930e-03_rb, 2.40921e-03_rb/)\n      kao_mco2( 7, :, 3) = (/ &\n     & 3.24677e-04_rb, 3.75160e-04_rb, 4.33491e-04_rb, 5.00893e-04_rb, 5.78774e-04_rb, &\n     & 6.68765e-04_rb, 7.72749e-04_rb, 8.92900e-04_rb, 1.03173e-03_rb, 1.19215e-03_rb, &\n     & 1.37751e-03_rb, 1.59170e-03_rb, 1.83918e-03_rb, 2.12515e-03_rb, 2.45558e-03_rb, &\n     & 2.83738e-03_rb, 3.27856e-03_rb, 3.78832e-03_rb, 4.37735e-03_rb/)\n      kao_mco2( 8, :, 3) = (/ &\n     & 2.24656e-03_rb, 2.45550e-03_rb, 2.68386e-03_rb, 2.93347e-03_rb, 3.20629e-03_rb, &\n     & 3.50448e-03_rb, 3.83041e-03_rb, 4.18665e-03_rb, 4.57602e-03_rb, 5.00160e-03_rb, &\n     & 5.46677e-03_rb, 5.97519e-03_rb, 6.53090e-03_rb, 7.13829e-03_rb, 7.80217e-03_rb, &\n     & 8.52780e-03_rb, 9.32091e-03_rb, 1.01878e-02_rb, 1.11353e-02_rb/)\n      kao_mco2( 9, :, 3) = (/ &\n     & 2.07746e-04_rb, 2.38909e-04_rb, 2.74746e-04_rb, 3.15959e-04_rb, 3.63355e-04_rb, &\n     & 4.17860e-04_rb, 4.80541e-04_rb, 5.52625e-04_rb, 6.35521e-04_rb, 7.30852e-04_rb, &\n     & 8.40484e-04_rb, 9.66561e-04_rb, 1.11155e-03_rb, 1.27829e-03_rb, 1.47004e-03_rb, &\n     & 1.69055e-03_rb, 1.94414e-03_rb, 2.23577e-03_rb, 2.57115e-03_rb/)\n      kao_mco2( 1, :, 4) = (/ &\n     & 7.26052e-04_rb, 7.62476e-04_rb, 8.00726e-04_rb, 8.40896e-04_rb, 8.83081e-04_rb, &\n     & 9.27382e-04_rb, 9.73905e-04_rb, 1.02276e-03_rb, 1.07407e-03_rb, 1.12795e-03_rb, &\n     & 1.18454e-03_rb, 1.24396e-03_rb, 1.30637e-03_rb, 1.37190e-03_rb, 1.44073e-03_rb, &\n     & 1.51300e-03_rb, 1.58890e-03_rb, 1.66861e-03_rb, 1.75232e-03_rb/)\n      kao_mco2( 2, :, 4) = (/ &\n     & 4.65815e-04_rb, 5.01167e-04_rb, 5.39203e-04_rb, 5.80126e-04_rb, 6.24154e-04_rb, &\n     & 6.71524e-04_rb, 7.22489e-04_rb, 7.77322e-04_rb, 8.36316e-04_rb, 8.99788e-04_rb, &\n     & 9.68077e-04_rb, 1.04155e-03_rb, 1.12060e-03_rb, 1.20564e-03_rb, 1.29714e-03_rb, &\n     & 1.39559e-03_rb, 1.50151e-03_rb, 1.61546e-03_rb, 1.73807e-03_rb/)\n      kao_mco2( 3, :, 4) = (/ &\n     & 3.56225e-04_rb, 3.93073e-04_rb, 4.33732e-04_rb, 4.78598e-04_rb, 5.28105e-04_rb, &\n     & 5.82732e-04_rb, 6.43010e-04_rb, 7.09524e-04_rb, 7.82918e-04_rb, 8.63903e-04_rb, &\n     & 9.53266e-04_rb, 1.05187e-03_rb, 1.16068e-03_rb, 1.28074e-03_rb, 1.41322e-03_rb, &\n     & 1.55941e-03_rb, 1.72071e-03_rb, 1.89870e-03_rb, 2.09511e-03_rb/)\n      kao_mco2( 4, :, 4) = (/ &\n     & 3.37845e-04_rb, 3.79675e-04_rb, 4.26684e-04_rb, 4.79514e-04_rb, 5.38884e-04_rb, &\n     & 6.05606e-04_rb, 6.80589e-04_rb, 7.64855e-04_rb, 8.59555e-04_rb, 9.65980e-04_rb, &\n     & 1.08558e-03_rb, 1.21999e-03_rb, 1.37105e-03_rb, 1.54080e-03_rb, 1.73157e-03_rb, &\n     & 1.94597e-03_rb, 2.18691e-03_rb, 2.45767e-03_rb, 2.76197e-03_rb/)\n      kao_mco2( 5, :, 4) = (/ &\n     & 3.52456e-04_rb, 4.02782e-04_rb, 4.60294e-04_rb, 5.26017e-04_rb, 6.01126e-04_rb, &\n     & 6.86958e-04_rb, 7.85046e-04_rb, 8.97140e-04_rb, 1.02524e-03_rb, 1.17163e-03_rb, &\n     & 1.33892e-03_rb, 1.53010e-03_rb, 1.74858e-03_rb, 1.99825e-03_rb, 2.28358e-03_rb, &\n     & 2.60964e-03_rb, 2.98226e-03_rb, 3.40809e-03_rb, 3.89471e-03_rb/)\n      kao_mco2( 6, :, 4) = (/ &\n     & 4.42884e-04_rb, 5.08187e-04_rb, 5.83119e-04_rb, 6.69100e-04_rb, 7.67758e-04_rb, &\n     & 8.80963e-04_rb, 1.01086e-03_rb, 1.15991e-03_rb, 1.33094e-03_rb, 1.52718e-03_rb, &\n     & 1.75237e-03_rb, 2.01075e-03_rb, 2.30724e-03_rb, 2.64744e-03_rb, 3.03780e-03_rb, &\n     & 3.48572e-03_rb, 3.99969e-03_rb, 4.58944e-03_rb, 5.26614e-03_rb/)\n      kao_mco2( 7, :, 4) = (/ &\n     & 8.09850e-04_rb, 9.09940e-04_rb, 1.02240e-03_rb, 1.14876e-03_rb, 1.29074e-03_rb, &\n     & 1.45026e-03_rb, 1.62950e-03_rb, 1.83089e-03_rb, 2.05718e-03_rb, 2.31143e-03_rb, &\n     & 2.59710e-03_rb, 2.91808e-03_rb, 3.27873e-03_rb, 3.68395e-03_rb, 4.13926e-03_rb, &\n     & 4.65083e-03_rb, 5.22564e-03_rb, 5.87148e-03_rb, 6.59715e-03_rb/)\n      kao_mco2( 8, :, 4) = (/ &\n     & 3.13265e-03_rb, 3.42454e-03_rb, 3.74362e-03_rb, 4.09243e-03_rb, 4.47375e-03_rb, &\n     & 4.89059e-03_rb, 5.34627e-03_rb, 5.84441e-03_rb, 6.38897e-03_rb, 6.98426e-03_rb, &\n     & 7.63502e-03_rb, 8.34642e-03_rb, 9.12409e-03_rb, 9.97423e-03_rb, 1.09036e-02_rb, &\n     & 1.19195e-02_rb, 1.30301e-02_rb, 1.42442e-02_rb, 1.55714e-02_rb/)\n      kao_mco2( 9, :, 4) = (/ &\n     & 5.71287e-04_rb, 6.51252e-04_rb, 7.42411e-04_rb, 8.46330e-04_rb, 9.64794e-04_rb, &\n     & 1.09984e-03_rb, 1.25379e-03_rb, 1.42929e-03_rb, 1.62935e-03_rb, 1.85742e-03_rb, &\n     & 2.11741e-03_rb, 2.41380e-03_rb, 2.75167e-03_rb, 3.13683e-03_rb, 3.57591e-03_rb, &\n     & 4.07645e-03_rb, 4.64705e-03_rb, 5.29751e-03_rb, 6.03903e-03_rb/)\n      kao_mco2( 1, :, 5) = (/ &\n     & 2.92395e-04_rb, 3.32719e-04_rb, 3.78604e-04_rb, 4.30818e-04_rb, 4.90232e-04_rb, &\n     & 5.57839e-04_rb, 6.34771e-04_rb, 7.22312e-04_rb, 8.21927e-04_rb, 9.35278e-04_rb, &\n     & 1.06426e-03_rb, 1.21104e-03_rb, 1.37805e-03_rb, 1.56810e-03_rb, 1.78435e-03_rb, &\n     & 2.03043e-03_rb, 2.31045e-03_rb, 2.62908e-03_rb, 2.99166e-03_rb/)\n      kao_mco2( 2, :, 5) = (/ &\n     & 3.13069e-04_rb, 3.61343e-04_rb, 4.17061e-04_rb, 4.81371e-04_rb, 5.55597e-04_rb, &\n     & 6.41269e-04_rb, 7.40151e-04_rb, 8.54280e-04_rb, 9.86008e-04_rb, 1.13805e-03_rb, &\n     & 1.31353e-03_rb, 1.51608e-03_rb, 1.74985e-03_rb, 2.01967e-03_rb, 2.33110e-03_rb, &\n     & 2.69055e-03_rb, 3.10543e-03_rb, 3.58427e-03_rb, 4.13696e-03_rb/)\n      kao_mco2( 3, :, 5) = (/ &\n     & 3.06937e-04_rb, 3.57841e-04_rb, 4.17187e-04_rb, 4.86375e-04_rb, 5.67038e-04_rb, &\n     & 6.61078e-04_rb, 7.70714e-04_rb, 8.98532e-04_rb, 1.04755e-03_rb, 1.22128e-03_rb, &\n     & 1.42382e-03_rb, 1.65996e-03_rb, 1.93525e-03_rb, 2.25620e-03_rb, 2.63038e-03_rb, &\n     & 3.06661e-03_rb, 3.57519e-03_rb, 4.16812e-03_rb, 4.85937e-03_rb/)\n      kao_mco2( 4, :, 5) = (/ &\n     & 4.06428e-04_rb, 4.72379e-04_rb, 5.49033e-04_rb, 6.38125e-04_rb, 7.41674e-04_rb, &\n     & 8.62026e-04_rb, 1.00191e-03_rb, 1.16449e-03_rb, 1.35345e-03_rb, 1.57308e-03_rb, &\n     & 1.82834e-03_rb, 2.12503e-03_rb, 2.46986e-03_rb, 2.87064e-03_rb, 3.33647e-03_rb, &\n     & 3.87788e-03_rb, 4.50715e-03_rb, 5.23852e-03_rb, 6.08858e-03_rb/)\n      kao_mco2( 5, :, 5) = (/ &\n     & 6.01967e-04_rb, 6.90414e-04_rb, 7.91856e-04_rb, 9.08204e-04_rb, 1.04165e-03_rb, &\n     & 1.19470e-03_rb, 1.37023e-03_rb, 1.57156e-03_rb, 1.80247e-03_rb, 2.06731e-03_rb, &\n     & 2.37106e-03_rb, 2.71944e-03_rb, 3.11901e-03_rb, 3.57729e-03_rb, 4.10290e-03_rb, &\n     & 4.70574e-03_rb, 5.39716e-03_rb, 6.19017e-03_rb, 7.09969e-03_rb/)\n      kao_mco2( 6, :, 5) = (/ &\n     & 1.11622e-03_rb, 1.25799e-03_rb, 1.41776e-03_rb, 1.59783e-03_rb, 1.80077e-03_rb, &\n     & 2.02947e-03_rb, 2.28723e-03_rb, 2.57773e-03_rb, 2.90512e-03_rb, 3.27408e-03_rb, &\n     & 3.68992e-03_rb, 4.15856e-03_rb, 4.68673e-03_rb, 5.28197e-03_rb, 5.95282e-03_rb, &\n     & 6.70887e-03_rb, 7.56094e-03_rb, 8.52123e-03_rb, 9.60348e-03_rb/)\n      kao_mco2( 7, :, 5) = (/ &\n     & 3.63860e-03_rb, 3.96164e-03_rb, 4.31337e-03_rb, 4.69632e-03_rb, 5.11327e-03_rb, &\n     & 5.56724e-03_rb, 6.06151e-03_rb, 6.59967e-03_rb, 7.18561e-03_rb, 7.82356e-03_rb, &\n     & 8.51816e-03_rb, 9.27443e-03_rb, 1.00978e-02_rb, 1.09943e-02_rb, 1.19705e-02_rb, &\n     & 1.30332e-02_rb, 1.41904e-02_rb, 1.54502e-02_rb, 1.68219e-02_rb/)\n      kao_mco2( 8, :, 5) = (/ &\n     & 5.96957e-03_rb, 6.53049e-03_rb, 7.14412e-03_rb, 7.81541e-03_rb, 8.54977e-03_rb, &\n     & 9.35314e-03_rb, 1.02320e-02_rb, 1.11934e-02_rb, 1.22452e-02_rb, 1.33958e-02_rb, &\n     & 1.46545e-02_rb, 1.60315e-02_rb, 1.75379e-02_rb, 1.91858e-02_rb, 2.09886e-02_rb, &\n     & 2.29608e-02_rb, 2.51182e-02_rb, 2.74784e-02_rb, 3.00604e-02_rb/)\n      kao_mco2( 9, :, 5) = (/ &\n     & 1.19381e-03_rb, 1.33882e-03_rb, 1.50143e-03_rb, 1.68379e-03_rb, 1.88831e-03_rb, &\n     & 2.11767e-03_rb, 2.37488e-03_rb, 2.66333e-03_rb, 2.98683e-03_rb, 3.34961e-03_rb, &\n     & 3.75646e-03_rb, 4.21272e-03_rb, 4.72440e-03_rb, 5.29823e-03_rb, 5.94176e-03_rb, &\n     & 6.66345e-03_rb, 7.47280e-03_rb, 8.38045e-03_rb, 9.39835e-03_rb/)\n      kao_mco2( 1, :, 6) = (/ &\n     & 4.12429e-04_rb, 4.84830e-04_rb, 5.69942e-04_rb, 6.69995e-04_rb, 7.87613e-04_rb, &\n     & 9.25878e-04_rb, 1.08842e-03_rb, 1.27949e-03_rb, 1.50410e-03_rb, 1.76814e-03_rb, &\n     & 2.07854e-03_rb, 2.44343e-03_rb, 2.87237e-03_rb, 3.37662e-03_rb, 3.96938e-03_rb, &\n     & 4.66621e-03_rb, 5.48536e-03_rb, 6.44831e-03_rb, 7.58031e-03_rb/)\n      kao_mco2( 2, :, 6) = (/ &\n     & 6.43498e-04_rb, 7.46132e-04_rb, 8.65134e-04_rb, 1.00312e-03_rb, 1.16311e-03_rb, &\n     & 1.34861e-03_rb, 1.56371e-03_rb, 1.81310e-03_rb, 2.10228e-03_rb, 2.43758e-03_rb, &\n     & 2.82635e-03_rb, 3.27714e-03_rb, 3.79981e-03_rb, 4.40586e-03_rb, 5.10855e-03_rb, &\n     & 5.92333e-03_rb, 6.86806e-03_rb, 7.96346e-03_rb, 9.23357e-03_rb/)\n      kao_mco2( 3, :, 6) = (/ &\n     & 1.11336e-03_rb, 1.26910e-03_rb, 1.44662e-03_rb, 1.64897e-03_rb, 1.87962e-03_rb, &\n     & 2.14254e-03_rb, 2.44224e-03_rb, 2.78385e-03_rb, 3.17325e-03_rb, 3.61712e-03_rb, &\n     & 4.12308e-03_rb, 4.69981e-03_rb, 5.35720e-03_rb, 6.10656e-03_rb, 6.96073e-03_rb, &\n     & 7.93439e-03_rb, 9.04424e-03_rb, 1.03093e-02_rb, 1.17514e-02_rb/)\n      kao_mco2( 4, :, 6) = (/ &\n     & 1.87991e-03_rb, 2.10276e-03_rb, 2.35202e-03_rb, 2.63082e-03_rb, 2.94268e-03_rb, &\n     & 3.29150e-03_rb, 3.68168e-03_rb, 4.11810e-03_rb, 4.60626e-03_rb, 5.15228e-03_rb, &\n     & 5.76303e-03_rb, 6.44617e-03_rb, 7.21030e-03_rb, 8.06500e-03_rb, 9.02102e-03_rb, &\n     & 1.00904e-02_rb, 1.12865e-02_rb, 1.26244e-02_rb, 1.41208e-02_rb/)\n      kao_mco2( 5, :, 6) = (/ &\n     & 3.65848e-03_rb, 4.01372e-03_rb, 4.40346e-03_rb, 4.83104e-03_rb, 5.30015e-03_rb, &\n     & 5.81480e-03_rb, 6.37943e-03_rb, 6.99888e-03_rb, 7.67849e-03_rb, 8.42408e-03_rb, &\n     & 9.24208e-03_rb, 1.01395e-02_rb, 1.11241e-02_rb, 1.22042e-02_rb, 1.33893e-02_rb, &\n     & 1.46894e-02_rb, 1.61158e-02_rb, 1.76806e-02_rb, 1.93975e-02_rb/)\n      kao_mco2( 6, :, 6) = (/ &\n     & 5.38476e-03_rb, 5.85088e-03_rb, 6.35735e-03_rb, 6.90765e-03_rb, 7.50560e-03_rb, &\n     & 8.15530e-03_rb, 8.86124e-03_rb, 9.62829e-03_rb, 1.04617e-02_rb, 1.13673e-02_rb, &\n     & 1.23513e-02_rb, 1.34205e-02_rb, 1.45822e-02_rb, 1.58445e-02_rb, 1.72160e-02_rb, &\n     & 1.87062e-02_rb, 2.03255e-02_rb, 2.20849e-02_rb, 2.39966e-02_rb/)\n      kao_mco2( 7, :, 6) = (/ &\n     & 6.27017e-03_rb, 6.84772e-03_rb, 7.47846e-03_rb, 8.16731e-03_rb, 8.91960e-03_rb, &\n     & 9.74118e-03_rb, 1.06384e-02_rb, 1.16183e-02_rb, 1.26885e-02_rb, 1.38573e-02_rb, &\n     & 1.51336e-02_rb, 1.65276e-02_rb, 1.80500e-02_rb, 1.97125e-02_rb, 2.15283e-02_rb, &\n     & 2.35112e-02_rb, 2.56769e-02_rb, 2.80420e-02_rb, 3.06249e-02_rb/)\n      kao_mco2( 8, :, 6) = (/ &\n     & 9.61932e-03_rb, 1.04802e-02_rb, 1.14182e-02_rb, 1.24401e-02_rb, 1.35534e-02_rb, &\n     & 1.47664e-02_rb, 1.60880e-02_rb, 1.75278e-02_rb, 1.90965e-02_rb, 2.08056e-02_rb, &\n     & 2.26677e-02_rb, 2.46964e-02_rb, 2.69066e-02_rb, 2.93147e-02_rb, 3.19383e-02_rb, &\n     & 3.47967e-02_rb, 3.79110e-02_rb, 4.13039e-02_rb, 4.50005e-02_rb/)\n      kao_mco2( 9, :, 6) = (/ &\n     & 2.37921e-03_rb, 2.64556e-03_rb, 2.94173e-03_rb, 3.27105e-03_rb, 3.63724e-03_rb, &\n     & 4.04442e-03_rb, 4.49718e-03_rb, 5.00064e-03_rb, 5.56045e-03_rb, 6.18293e-03_rb, &\n     & 6.87510e-03_rb, 7.64475e-03_rb, 8.50057e-03_rb, 9.45219e-03_rb, 1.05103e-02_rb, &\n     & 1.16870e-02_rb, 1.29953e-02_rb, 1.44501e-02_rb, 1.60677e-02_rb/)\n      kao_mco2( 1, :, 7) = (/ &\n     & 4.64970e-03_rb, 5.13188e-03_rb, 5.66406e-03_rb, 6.25144e-03_rb, 6.89972e-03_rb, &\n     & 7.61523e-03_rb, 8.40493e-03_rb, 9.27654e-03_rb, 1.02385e-02_rb, 1.13003e-02_rb, &\n     & 1.24721e-02_rb, 1.37655e-02_rb, 1.51930e-02_rb, 1.67685e-02_rb, 1.85075e-02_rb, &\n     & 2.04267e-02_rb, 2.25450e-02_rb, 2.48829e-02_rb, 2.74633e-02_rb/)\n      kao_mco2( 2, :, 7) = (/ &\n     & 6.37148e-03_rb, 6.96805e-03_rb, 7.62046e-03_rb, 8.33397e-03_rb, 9.11428e-03_rb, &\n     & 9.96765e-03_rb, 1.09009e-02_rb, 1.19216e-02_rb, 1.30378e-02_rb, 1.42585e-02_rb, &\n     & 1.55935e-02_rb, 1.70536e-02_rb, 1.86503e-02_rb, 2.03965e-02_rb, 2.23062e-02_rb, &\n     & 2.43948e-02_rb, 2.66789e-02_rb, 2.91768e-02_rb, 3.19086e-02_rb/)\n      kao_mco2( 3, :, 7) = (/ &\n     & 7.79364e-03_rb, 8.48097e-03_rb, 9.22892e-03_rb, 1.00428e-02_rb, 1.09285e-02_rb, &\n     & 1.18923e-02_rb, 1.29411e-02_rb, 1.40825e-02_rb, 1.53244e-02_rb, 1.66759e-02_rb, &\n     & 1.81466e-02_rb, 1.97470e-02_rb, 2.14885e-02_rb, 2.33836e-02_rb, 2.54458e-02_rb, &\n     & 2.76899e-02_rb, 3.01320e-02_rb, 3.27893e-02_rb, 3.56811e-02_rb/)\n      kao_mco2( 4, :, 7) = (/ &\n     & 8.70586e-03_rb, 9.48737e-03_rb, 1.03390e-02_rb, 1.12672e-02_rb, 1.22786e-02_rb, &\n     & 1.33808e-02_rb, 1.45820e-02_rb, 1.58910e-02_rb, 1.73175e-02_rb, 1.88721e-02_rb, &\n     & 2.05662e-02_rb, 2.24124e-02_rb, 2.44243e-02_rb, 2.66169e-02_rb, 2.90062e-02_rb, &\n     & 3.16101e-02_rb, 3.44477e-02_rb, 3.75400e-02_rb, 4.09099e-02_rb/)\n      kao_mco2( 5, :, 7) = (/ &\n     & 9.24510e-03_rb, 1.00865e-02_rb, 1.10045e-02_rb, 1.20061e-02_rb, 1.30988e-02_rb, &\n     & 1.42910e-02_rb, 1.55916e-02_rb, 1.70106e-02_rb, 1.85588e-02_rb, 2.02479e-02_rb, &\n     & 2.20908e-02_rb, 2.41013e-02_rb, 2.62948e-02_rb, 2.86880e-02_rb, 3.12990e-02_rb, &\n     & 3.41476e-02_rb, 3.72555e-02_rb, 4.06462e-02_rb, 4.43455e-02_rb/)\n      kao_mco2( 6, :, 7) = (/ &\n     & 1.09559e-02_rb, 1.19933e-02_rb, 1.31290e-02_rb, 1.43722e-02_rb, 1.57331e-02_rb, &\n     & 1.72229e-02_rb, 1.88537e-02_rb, 2.06390e-02_rb, 2.25933e-02_rb, 2.47327e-02_rb, &\n     & 2.70747e-02_rb, 2.96384e-02_rb, 3.24449e-02_rb, 3.55171e-02_rb, 3.88802e-02_rb, &\n     & 4.25619e-02_rb, 4.65921e-02_rb, 5.10039e-02_rb, 5.58335e-02_rb/)\n      kao_mco2( 7, :, 7) = (/ &\n     & 1.36116e-02_rb, 1.48659e-02_rb, 1.62357e-02_rb, 1.77318e-02_rb, 1.93657e-02_rb, &\n     & 2.11502e-02_rb, 2.30991e-02_rb, 2.52276e-02_rb, 2.75522e-02_rb, 3.00910e-02_rb, &\n     & 3.28638e-02_rb, 3.58921e-02_rb, 3.91995e-02_rb, 4.28116e-02_rb, 4.67565e-02_rb, &\n     & 5.10650e-02_rb, 5.57704e-02_rb, 6.09095e-02_rb, 6.65221e-02_rb/)\n      kao_mco2( 8, :, 7) = (/ &\n     & 1.51783e-02_rb, 1.64551e-02_rb, 1.78392e-02_rb, 1.93399e-02_rb, 2.09667e-02_rb, &\n     & 2.27304e-02_rb, 2.46424e-02_rb, 2.67153e-02_rb, 2.89626e-02_rb, 3.13988e-02_rb, &\n     & 3.40401e-02_rb, 3.69035e-02_rb, 4.00077e-02_rb, 4.33731e-02_rb, 4.70216e-02_rb, &\n     & 5.09770e-02_rb, 5.52651e-02_rb, 5.99139e-02_rb, 6.49538e-02_rb/)\n      kao_mco2( 9, :, 7) = (/ &\n     & 1.00072e-02_rb, 1.08638e-02_rb, 1.17937e-02_rb, 1.28032e-02_rb, 1.38991e-02_rb, &\n     & 1.50888e-02_rb, 1.63803e-02_rb, 1.77824e-02_rb, 1.93045e-02_rb, 2.09568e-02_rb, &\n     & 2.27507e-02_rb, 2.46980e-02_rb, 2.68120e-02_rb, 2.91070e-02_rb, 3.15984e-02_rb, &\n     & 3.43031e-02_rb, 3.72393e-02_rb, 4.04268e-02_rb, 4.38872e-02_rb/)\n      kao_mco2( 1, :, 8) = (/ &\n     & 1.59610e-02_rb, 1.74387e-02_rb, 1.90532e-02_rb, 2.08171e-02_rb, 2.27444e-02_rb, &\n     & 2.48501e-02_rb, 2.71508e-02_rb, 2.96645e-02_rb, 3.24109e-02_rb, 3.54115e-02_rb, &\n     & 3.86900e-02_rb, 4.22720e-02_rb, 4.61856e-02_rb, 5.04616e-02_rb, 5.51334e-02_rb, &\n     & 6.02378e-02_rb, 6.58147e-02_rb, 7.19079e-02_rb, 7.85653e-02_rb/)\n      kao_mco2( 2, :, 8) = (/ &\n     & 1.61961e-02_rb, 1.76986e-02_rb, 1.93405e-02_rb, 2.11348e-02_rb, 2.30955e-02_rb, &\n     & 2.52381e-02_rb, 2.75794e-02_rb, 3.01380e-02_rb, 3.29340e-02_rb, 3.59893e-02_rb, &\n     & 3.93280e-02_rb, 4.29766e-02_rb, 4.69636e-02_rb, 5.13204e-02_rb, 5.60815e-02_rb, &\n     & 6.12843e-02_rb, 6.69697e-02_rb, 7.31826e-02_rb, 7.99718e-02_rb/)\n      kao_mco2( 3, :, 8) = (/ &\n     & 1.72034e-02_rb, 1.88241e-02_rb, 2.05974e-02_rb, 2.25377e-02_rb, 2.46609e-02_rb, &\n     & 2.69841e-02_rb, 2.95261e-02_rb, 3.23076e-02_rb, 3.53511e-02_rb, 3.86813e-02_rb, &\n     & 4.23253e-02_rb, 4.63126e-02_rb, 5.06754e-02_rb, 5.54493e-02_rb, 6.06728e-02_rb, &\n     & 6.63885e-02_rb, 7.26426e-02_rb, 7.94859e-02_rb, 8.69738e-02_rb/)\n      kao_mco2( 4, :, 8) = (/ &\n     & 1.79777e-02_rb, 1.96517e-02_rb, 2.14815e-02_rb, 2.34817e-02_rb, 2.56682e-02_rb, &\n     & 2.80583e-02_rb, 3.06709e-02_rb, 3.35268e-02_rb, 3.66486e-02_rb, 4.00611e-02_rb, &\n     & 4.37914e-02_rb, 4.78690e-02_rb, 5.23262e-02_rb, 5.71985e-02_rb, 6.25245e-02_rb, &\n     & 6.83464e-02_rb, 7.47104e-02_rb, 8.16670e-02_rb, 8.92713e-02_rb/)\n      kao_mco2( 5, :, 8) = (/ &\n     & 2.02540e-02_rb, 2.21214e-02_rb, 2.41610e-02_rb, 2.63887e-02_rb, 2.88218e-02_rb, &\n     & 3.14792e-02_rb, 3.43816e-02_rb, 3.75516e-02_rb, 4.10139e-02_rb, 4.47954e-02_rb, &\n     & 4.89256e-02_rb, 5.34366e-02_rb, 5.83635e-02_rb, 6.37447e-02_rb, 6.96220e-02_rb, &\n     & 7.60413e-02_rb, 8.30523e-02_rb, 9.07098e-02_rb, 9.90734e-02_rb/)\n      kao_mco2( 6, :, 8) = (/ &\n     & 2.19009e-02_rb, 2.38517e-02_rb, 2.59762e-02_rb, 2.82899e-02_rb, 3.08097e-02_rb, &\n     & 3.35540e-02_rb, 3.65427e-02_rb, 3.97976e-02_rb, 4.33424e-02_rb, 4.72030e-02_rb, &\n     & 5.14074e-02_rb, 5.59863e-02_rb, 6.09731e-02_rb, 6.64040e-02_rb, 7.23187e-02_rb, &\n     & 7.87603e-02_rb, 8.57755e-02_rb, 9.34157e-02_rb, 1.01736e-01_rb/)\n      kao_mco2( 7, :, 8) = (/ &\n     & 2.52383e-02_rb, 2.73978e-02_rb, 2.97421e-02_rb, 3.22869e-02_rb, 3.50496e-02_rb, &\n     & 3.80486e-02_rb, 4.13042e-02_rb, 4.48383e-02_rb, 4.86749e-02_rb, 5.28397e-02_rb, &\n     & 5.73610e-02_rb, 6.22690e-02_rb, 6.75970e-02_rb, 7.33810e-02_rb, 7.96598e-02_rb, &\n     & 8.64758e-02_rb, 9.38751e-02_rb, 1.01907e-01_rb, 1.10627e-01_rb/)\n      kao_mco2( 8, :, 8) = (/ &\n     & 3.36506e-02_rb, 3.59288e-02_rb, 3.83613e-02_rb, 4.09584e-02_rb, 4.37313e-02_rb, &\n     & 4.66920e-02_rb, 4.98531e-02_rb, 5.32283e-02_rb, 5.68319e-02_rb, 6.06795e-02_rb, &\n     & 6.47876e-02_rb, 6.91739e-02_rb, 7.38570e-02_rb, 7.88573e-02_rb, 8.41960e-02_rb, &\n     & 8.98962e-02_rb, 9.59824e-02_rb, 1.02481e-01_rb, 1.09419e-01_rb/)\n      kao_mco2( 9, :, 8) = (/ &\n     & 2.15151e-02_rb, 2.34420e-02_rb, 2.55415e-02_rb, 2.78291e-02_rb, 3.03215e-02_rb, &\n     & 3.30372e-02_rb, 3.59961e-02_rb, 3.92200e-02_rb, 4.27326e-02_rb, 4.65598e-02_rb, &\n     & 5.07299e-02_rb, 5.52734e-02_rb, 6.02238e-02_rb, 6.56176e-02_rb, 7.14944e-02_rb, &\n     & 7.78977e-02_rb, 8.48744e-02_rb, 9.24759e-02_rb, 1.00758e-01_rb/)\n      kao_mco2( 1, :, 9) = (/ &\n     & 3.34296e-02_rb, 3.64437e-02_rb, 3.97294e-02_rb, 4.33114e-02_rb, 4.72164e-02_rb, &\n     & 5.14734e-02_rb, 5.61143e-02_rb, 6.11735e-02_rb, 6.66890e-02_rb, 7.27016e-02_rb, &\n     & 7.92564e-02_rb, 8.64022e-02_rb, 9.41922e-02_rb, 1.02685e-01_rb, 1.11943e-01_rb, &\n     & 1.22035e-01_rb, 1.33038e-01_rb, 1.45033e-01_rb, 1.58109e-01_rb/)\n      kao_mco2( 2, :, 9) = (/ &\n     & 3.73946e-02_rb, 4.07543e-02_rb, 4.44160e-02_rb, 4.84066e-02_rb, 5.27558e-02_rb, &\n     & 5.74958e-02_rb, 6.26616e-02_rb, 6.82915e-02_rb, 7.44273e-02_rb, 8.11144e-02_rb, &\n     & 8.84023e-02_rb, 9.63449e-02_rb, 1.05001e-01_rb, 1.14435e-01_rb, 1.24717e-01_rb, &\n     & 1.35922e-01_rb, 1.48135e-01_rb, 1.61444e-01_rb, 1.75949e-01_rb/)\n      kao_mco2( 3, :, 9) = (/ &\n     & 4.24539e-02_rb, 4.61192e-02_rb, 5.01010e-02_rb, 5.44265e-02_rb, 5.91255e-02_rb, &\n     & 6.42302e-02_rb, 6.97756e-02_rb, 7.57998e-02_rb, 8.23442e-02_rb, 8.94535e-02_rb, &\n     & 9.71766e-02_rb, 1.05566e-01_rb, 1.14681e-01_rb, 1.24582e-01_rb, 1.35338e-01_rb, &\n     & 1.47022e-01_rb, 1.59716e-01_rb, 1.73505e-01_rb, 1.88485e-01_rb/)\n      kao_mco2( 4, :, 9) = (/ &\n     & 5.30296e-02_rb, 5.73416e-02_rb, 6.20043e-02_rb, 6.70462e-02_rb, 7.24980e-02_rb, &\n     & 7.83931e-02_rb, 8.47676e-02_rb, 9.16604e-02_rb, 9.91137e-02_rb, 1.07173e-01_rb, &\n     & 1.15888e-01_rb, 1.25311e-01_rb, 1.35501e-01_rb, 1.46519e-01_rb, 1.58433e-01_rb, &\n     & 1.71316e-01_rb, 1.85246e-01_rb, 2.00309e-01_rb, 2.16597e-01_rb/)\n      kao_mco2( 5, :, 9) = (/ &\n     & 6.26111e-02_rb, 6.74018e-02_rb, 7.25591e-02_rb, 7.81111e-02_rb, 8.40878e-02_rb, &\n     & 9.05218e-02_rb, 9.74482e-02_rb, 1.04904e-01_rb, 1.12931e-01_rb, 1.21572e-01_rb, &\n     & 1.30875e-01_rb, 1.40889e-01_rb, 1.51669e-01_rb, 1.63274e-01_rb, 1.75767e-01_rb, &\n     & 1.89216e-01_rb, 2.03694e-01_rb, 2.19279e-01_rb, 2.36058e-01_rb/)\n      kao_mco2( 6, :, 9) = (/ &\n     & 7.59080e-02_rb, 8.13446e-02_rb, 8.71706e-02_rb, 9.34139e-02_rb, 1.00104e-01_rb, &\n     & 1.07274e-01_rb, 1.14957e-01_rb, 1.23190e-01_rb, 1.32013e-01_rb, 1.41468e-01_rb, &\n     & 1.51600e-01_rb, 1.62458e-01_rb, 1.74094e-01_rb, 1.86562e-01_rb, 1.99924e-01_rb, &\n     & 2.14243e-01_rb, 2.29587e-01_rb, 2.46031e-01_rb, 2.63652e-01_rb/)\n      kao_mco2( 7, :, 9) = (/ &\n     & 8.81942e-02_rb, 9.39942e-02_rb, 1.00176e-01_rb, 1.06763e-01_rb, 1.13784e-01_rb, &\n     & 1.21267e-01_rb, 1.29242e-01_rb, 1.37742e-01_rb, 1.46800e-01_rb, 1.56454e-01_rb, &\n     & 1.66743e-01_rb, 1.77708e-01_rb, 1.89395e-01_rb, 2.01850e-01_rb, 2.15124e-01_rb, &\n     & 2.29272e-01_rb, 2.44349e-01_rb, 2.60418e-01_rb, 2.77544e-01_rb/)\n      kao_mco2( 8, :, 9) = (/ &\n     & 6.28535e-02_rb, 6.69314e-02_rb, 7.12740e-02_rb, 7.58982e-02_rb, 8.08225e-02_rb, &\n     & 8.60662e-02_rb, 9.16502e-02_rb, 9.75965e-02_rb, 1.03929e-01_rb, 1.10671e-01_rb, &\n     & 1.17852e-01_rb, 1.25498e-01_rb, 1.33640e-01_rb, 1.42311e-01_rb, 1.51544e-01_rb, &\n     & 1.61376e-01_rb, 1.71846e-01_rb, 1.82996e-01_rb, 1.94868e-01_rb/)\n      kao_mco2( 9, :, 9) = (/ &\n     & 6.39196e-02_rb, 6.86702e-02_rb, 7.37738e-02_rb, 7.92568e-02_rb, 8.51473e-02_rb, &\n     & 9.14756e-02_rb, 9.82742e-02_rb, 1.05578e-01_rb, 1.13425e-01_rb, 1.21855e-01_rb, &\n     & 1.30911e-01_rb, 1.40641e-01_rb, 1.51093e-01_rb, 1.62323e-01_rb, 1.74387e-01_rb, &\n     & 1.87348e-01_rb, 2.01272e-01_rb, 2.16231e-01_rb, 2.32301e-01_rb/)\n      kao_mco2( 1, :,10) = (/ &\n     & 9.44086e-02_rb, 1.02788e-01_rb, 1.11911e-01_rb, 1.21844e-01_rb, 1.32659e-01_rb, &\n     & 1.44434e-01_rb, 1.57253e-01_rb, 1.71211e-01_rb, 1.86407e-01_rb, 2.02952e-01_rb, &\n     & 2.20966e-01_rb, 2.40578e-01_rb, 2.61932e-01_rb, 2.85180e-01_rb, 3.10492e-01_rb, &\n     & 3.38051e-01_rb, 3.68056e-01_rb, 4.00723e-01_rb, 4.36291e-01_rb/)\n      kao_mco2( 2, :,10) = (/ &\n     & 1.29528e-01_rb, 1.39646e-01_rb, 1.50554e-01_rb, 1.62315e-01_rb, 1.74994e-01_rb, &\n     & 1.88664e-01_rb, 2.03401e-01_rb, 2.19290e-01_rb, 2.36419e-01_rb, 2.54887e-01_rb, &\n     & 2.74798e-01_rb, 2.96263e-01_rb, 3.19406e-01_rb, 3.44356e-01_rb, 3.71255e-01_rb, &\n     & 4.00256e-01_rb, 4.31522e-01_rb, 4.65230e-01_rb, 5.01571e-01_rb/)\n      kao_mco2( 3, :,10) = (/ &\n     & 1.52325e-01_rb, 1.62991e-01_rb, 1.74404e-01_rb, 1.86616e-01_rb, 1.99684e-01_rb, &\n     & 2.13666e-01_rb, 2.28628e-01_rb, 2.44637e-01_rb, 2.61767e-01_rb, 2.80096e-01_rb, &\n     & 2.99710e-01_rb, 3.20696e-01_rb, 3.43152e-01_rb, 3.67181e-01_rb, 3.92892e-01_rb, &\n     & 4.20403e-01_rb, 4.49841e-01_rb, 4.81340e-01_rb, 5.15045e-01_rb/)\n      kao_mco2( 4, :,10) = (/ &\n     & 1.59763e-01_rb, 1.70378e-01_rb, 1.81698e-01_rb, 1.93770e-01_rb, 2.06644e-01_rb, &\n     & 2.20373e-01_rb, 2.35015e-01_rb, 2.50629e-01_rb, 2.67281e-01_rb, 2.85039e-01_rb, &\n     & 3.03977e-01_rb, 3.24174e-01_rb, 3.45712e-01_rb, 3.68681e-01_rb, 3.93176e-01_rb, &\n     & 4.19299e-01_rb, 4.47157e-01_rb, 4.76866e-01_rb, 5.08549e-01_rb/)\n      kao_mco2( 5, :,10) = (/ &\n     & 1.79202e-01_rb, 1.91125e-01_rb, 2.03840e-01_rb, 2.17402e-01_rb, 2.31866e-01_rb, &\n     & 2.47292e-01_rb, 2.63744e-01_rb, 2.81291e-01_rb, 3.00005e-01_rb, 3.19964e-01_rb, &\n     & 3.41251e-01_rb, 3.63955e-01_rb, 3.88169e-01_rb, 4.13994e-01_rb, 4.41537e-01_rb, &\n     & 4.70912e-01_rb, 5.02242e-01_rb, 5.35656e-01_rb, 5.71293e-01_rb/)\n      kao_mco2( 6, :,10) = (/ &\n     & 1.66628e-01_rb, 1.76984e-01_rb, 1.87984e-01_rb, 1.99668e-01_rb, 2.12078e-01_rb, &\n     & 2.25259e-01_rb, 2.39259e-01_rb, 2.54129e-01_rb, 2.69924e-01_rb, 2.86700e-01_rb, &\n     & 3.04519e-01_rb, 3.23446e-01_rb, 3.43549e-01_rb, 3.64901e-01_rb, 3.87580e-01_rb, &\n     & 4.11669e-01_rb, 4.37255e-01_rb, 4.64431e-01_rb, 4.93297e-01_rb/)\n      kao_mco2( 7, :,10) = (/ &\n     & 2.03980e-01_rb, 2.17141e-01_rb, 2.31152e-01_rb, 2.46067e-01_rb, 2.61945e-01_rb, &\n     & 2.78847e-01_rb, 2.96839e-01_rb, 3.15993e-01_rb, 3.36382e-01_rb, 3.58087e-01_rb, &\n     & 3.81193e-01_rb, 4.05789e-01_rb, 4.31972e-01_rb, 4.59845e-01_rb, 4.89517e-01_rb, &\n     & 5.21103e-01_rb, 5.54727e-01_rb, 5.90520e-01_rb, 6.28623e-01_rb/)\n      kao_mco2( 8, :,10) = (/ &\n     & 1.96161e-04_rb, 2.07177e-04_rb, 2.18812e-04_rb, 2.31101e-04_rb, 2.44079e-04_rb, &\n     & 2.57787e-04_rb, 2.72264e-04_rb, 2.87554e-04_rb, 3.03703e-04_rb, 3.20758e-04_rb, &\n     & 3.38772e-04_rb, 3.57797e-04_rb, 3.77891e-04_rb, 3.99113e-04_rb, 4.21527e-04_rb, &\n     & 4.45200e-04_rb, 4.70202e-04_rb, 4.96608e-04_rb, 5.24498e-04_rb/)\n      kao_mco2( 9, :,10) = (/ &\n     & 1.76275e-01_rb, 1.88091e-01_rb, 2.00699e-01_rb, 2.14152e-01_rb, 2.28507e-01_rb, &\n     & 2.43824e-01_rb, 2.60168e-01_rb, 2.77607e-01_rb, 2.96216e-01_rb, 3.16071e-01_rb, &\n     & 3.37258e-01_rb, 3.59865e-01_rb, 3.83987e-01_rb, 4.09726e-01_rb, 4.37190e-01_rb, &\n     & 4.66495e-01_rb, 4.97765e-01_rb, 5.31131e-01_rb, 5.66733e-01_rb/)\n      kao_mco2( 1, :,11) = (/ &\n     & 1.99797e-01_rb, 2.14154e-01_rb, 2.29543e-01_rb, 2.46038e-01_rb, 2.63718e-01_rb, &\n     & 2.82669e-01_rb, 3.02981e-01_rb, 3.24753e-01_rb, 3.48090e-01_rb, 3.73104e-01_rb, &\n     & 3.99915e-01_rb, 4.28652e-01_rb, 4.59455e-01_rb, 4.92471e-01_rb, 5.27859e-01_rb, &\n     & 5.65791e-01_rb, 6.06448e-01_rb, 6.50027e-01_rb, 6.96738e-01_rb/)\n      kao_mco2( 2, :,11) = (/ &\n     & 2.20638e-01_rb, 2.35685e-01_rb, 2.51759e-01_rb, 2.68929e-01_rb, 2.87271e-01_rb, &\n     & 3.06863e-01_rb, 3.27791e-01_rb, 3.50146e-01_rb, 3.74026e-01_rb, 3.99535e-01_rb, &\n     & 4.26784e-01_rb, 4.55891e-01_rb, 4.86983e-01_rb, 5.20195e-01_rb, 5.55673e-01_rb, &\n     & 5.93570e-01_rb, 6.34052e-01_rb, 6.77294e-01_rb, 7.23486e-01_rb/)\n      kao_mco2( 3, :,11) = (/ &\n     & 2.62988e-01_rb, 2.80924e-01_rb, 3.00085e-01_rb, 3.20552e-01_rb, 3.42414e-01_rb, &\n     & 3.65768e-01_rb, 3.90715e-01_rb, 4.17363e-01_rb, 4.45829e-01_rb, 4.76237e-01_rb, &\n     & 5.08718e-01_rb, 5.43414e-01_rb, 5.80477e-01_rb, 6.20068e-01_rb, 6.62359e-01_rb, &\n     & 7.07535e-01_rb, 7.55791e-01_rb, 8.07339e-01_rb, 8.62403e-01_rb/)\n      kao_mco2( 4, :,11) = (/ &\n     & 2.43674e-01_rb, 2.59946e-01_rb, 2.77304e-01_rb, 2.95821e-01_rb, 3.15575e-01_rb, &\n     & 3.36647e-01_rb, 3.59127e-01_rb, 3.83108e-01_rb, 4.08691e-01_rb, 4.35981e-01_rb, &\n     & 4.65094e-01_rb, 4.96152e-01_rb, 5.29282e-01_rb, 5.64626e-01_rb, 6.02329e-01_rb, &\n     & 6.42550e-01_rb, 6.85457e-01_rb, 7.31229e-01_rb, 7.80057e-01_rb/)\n      kao_mco2( 5, :,11) = (/ &\n     & 2.23323e-01_rb, 2.37553e-01_rb, 2.52689e-01_rb, 2.68791e-01_rb, 2.85918e-01_rb, &\n     & 3.04136e-01_rb, 3.23515e-01_rb, 3.44129e-01_rb, 3.66057e-01_rb, 3.89381e-01_rb, &\n     & 4.14192e-01_rb, 4.40584e-01_rb, 4.68657e-01_rb, 4.98520e-01_rb, 5.30285e-01_rb, &\n     & 5.64074e-01_rb, 6.00016e-01_rb, 6.38248e-01_rb, 6.78917e-01_rb/)\n      kao_mco2( 6, :,11) = (/ &\n     & 2.83716e-01_rb, 3.02622e-01_rb, 3.22788e-01_rb, 3.44298e-01_rb, 3.67241e-01_rb, &\n     & 3.91713e-01_rb, 4.17816e-01_rb, 4.45658e-01_rb, 4.75356e-01_rb, 5.07033e-01_rb, &\n     & 5.40820e-01_rb, 5.76859e-01_rb, 6.15300e-01_rb, 6.56302e-01_rb, 7.00037e-01_rb, &\n     & 7.46686e-01_rb, 7.96443e-01_rb, 8.49516e-01_rb, 9.06126e-01_rb/)\n      kao_mco2( 7, :,11) = (/ &\n     & 1.00497e-03_rb, 1.06500e-03_rb, 1.12863e-03_rb, 1.19606e-03_rb, 1.26751e-03_rb, &\n     & 1.34323e-03_rb, 1.42348e-03_rb, 1.50852e-03_rb, 1.59864e-03_rb, 1.69414e-03_rb, &\n     & 1.79535e-03_rb, 1.90261e-03_rb, 2.01628e-03_rb, 2.13673e-03_rb, 2.26438e-03_rb, &\n     & 2.39966e-03_rb, 2.54302e-03_rb, 2.69494e-03_rb, 2.85594e-03_rb/)\n      kao_mco2( 8, :,11) = (/ &\n     & 3.22623e-04_rb, 3.39937e-04_rb, 3.58181e-04_rb, 3.77404e-04_rb, 3.97658e-04_rb, &\n     & 4.19000e-04_rb, 4.41487e-04_rb, 4.65180e-04_rb, 4.90146e-04_rb, 5.16451e-04_rb, &\n     & 5.44167e-04_rb, 5.73372e-04_rb, 6.04143e-04_rb, 6.36567e-04_rb, 6.70730e-04_rb, &\n     & 7.06726e-04_rb, 7.44655e-04_rb, 7.84619e-04_rb, 8.26727e-04_rb/)\n      kao_mco2( 9, :,11) = (/ &\n     & 2.23872e-01_rb, 2.38360e-01_rb, 2.53786e-01_rb, 2.70210e-01_rb, 2.87697e-01_rb, &\n     & 3.06316e-01_rb, 3.26140e-01_rb, 3.47247e-01_rb, 3.69720e-01_rb, 3.93647e-01_rb, &\n     & 4.19122e-01_rb, 4.46246e-01_rb, 4.75126e-01_rb, 5.05874e-01_rb, 5.38613e-01_rb, &\n     & 5.73470e-01_rb, 6.10583e-01_rb, 6.50098e-01_rb, 6.92170e-01_rb/)\n      kao_mco2( 1, :,12) = (/ &\n     & 3.52418e-01_rb, 3.76085e-01_rb, 4.01341e-01_rb, 4.28293e-01_rb, 4.57055e-01_rb, &\n     & 4.87749e-01_rb, 5.20504e-01_rb, 5.55458e-01_rb, 5.92760e-01_rb, 6.32567e-01_rb, &\n     & 6.75047e-01_rb, 7.20380e-01_rb, 7.68757e-01_rb, 8.20383e-01_rb, 8.75476e-01_rb, &\n     & 9.34268e-01_rb, 9.97009e-01_rb, 1.06396e+00_rb, 1.13541e+00_rb/)\n      kao_mco2( 2, :,12) = (/ &\n     & 3.38812e-01_rb, 3.61001e-01_rb, 3.84645e-01_rb, 4.09836e-01_rb, 4.36678e-01_rb, &\n     & 4.65278e-01_rb, 4.95750e-01_rb, 5.28219e-01_rb, 5.62814e-01_rb, 5.99674e-01_rb, &\n     & 6.38949e-01_rb, 6.80796e-01_rb, 7.25384e-01_rb, 7.72892e-01_rb, 8.23511e-01_rb, &\n     & 8.77446e-01_rb, 9.34913e-01_rb, 9.96144e-01_rb, 1.06138e+00_rb/)\n      kao_mco2( 3, :,12) = (/ &\n     & 3.44644e-01_rb, 3.66671e-01_rb, 3.90105e-01_rb, 4.15038e-01_rb, 4.41564e-01_rb, &\n     & 4.69785e-01_rb, 4.99810e-01_rb, 5.31754e-01_rb, 5.65740e-01_rb, 6.01897e-01_rb, &\n     & 6.40366e-01_rb, 6.81293e-01_rb, 7.24836e-01_rb, 7.71162e-01_rb, 8.20448e-01_rb, &\n     & 8.72885e-01_rb, 9.28673e-01_rb, 9.88027e-01_rb, 1.05117e+00_rb/)\n      kao_mco2( 4, :,12) = (/ &\n     & 4.20358e-01_rb, 4.47809e-01_rb, 4.77053e-01_rb, 5.08207e-01_rb, 5.41395e-01_rb, &\n     & 5.76750e-01_rb, 6.14414e-01_rb, 6.54538e-01_rb, 6.97282e-01_rb, 7.42818e-01_rb, &\n     & 7.91327e-01_rb, 8.43004e-01_rb, 8.98056e-01_rb, 9.56703e-01_rb, 1.01918e+00_rb, &\n     & 1.08574e+00_rb, 1.15664e+00_rb, 1.23217e+00_rb, 1.31264e+00_rb/)\n      kao_mco2( 5, :,12) = (/ &\n     & 4.42756e-01_rb, 4.72000e-01_rb, 5.03174e-01_rb, 5.36408e-01_rb, 5.71837e-01_rb, &\n     & 6.09606e-01_rb, 6.49870e-01_rb, 6.92793e-01_rb, 7.38551e-01_rb, 7.87331e-01_rb, &\n     & 8.39333e-01_rb, 8.94770e-01_rb, 9.53868e-01_rb, 1.01687e+00_rb, 1.08403e+00_rb, &\n     & 1.15563e+00_rb, 1.23196e+00_rb, 1.31333e+00_rb, 1.40007e+00_rb/)\n      kao_mco2( 6, :,12) = (/ &\n     & 1.53662e-01_rb, 1.63104e-01_rb, 1.73126e-01_rb, 1.83764e-01_rb, 1.95055e-01_rb, &\n     & 2.07040e-01_rb, 2.19762e-01_rb, 2.33265e-01_rb, 2.47598e-01_rb, 2.62811e-01_rb, &\n     & 2.78960e-01_rb, 2.96100e-01_rb, 3.14294e-01_rb, 3.33606e-01_rb, 3.54104e-01_rb, &\n     & 3.75862e-01_rb, 3.98956e-01_rb, 4.23470e-01_rb, 4.49490e-01_rb/)\n      kao_mco2( 7, :,12) = (/ &\n     & 5.41472e-04_rb, 5.65116e-04_rb, 5.89793e-04_rb, 6.15547e-04_rb, 6.42426e-04_rb, &\n     & 6.70479e-04_rb, 6.99757e-04_rb, 7.30313e-04_rb, 7.62203e-04_rb, 7.95486e-04_rb, &\n     & 8.30223e-04_rb, 8.66476e-04_rb, 9.04312e-04_rb, 9.43801e-04_rb, 9.85013e-04_rb, &\n     & 1.02803e-03_rb, 1.07292e-03_rb, 1.11977e-03_rb, 1.16866e-03_rb/)\n      kao_mco2( 8, :,12) = (/ &\n     & 5.94251e-04_rb, 6.17650e-04_rb, 6.41969e-04_rb, 6.67246e-04_rb, 6.93518e-04_rb, &\n     & 7.20824e-04_rb, 7.49206e-04_rb, 7.78705e-04_rb, 8.09366e-04_rb, 8.41234e-04_rb, &\n     & 8.74356e-04_rb, 9.08783e-04_rb, 9.44566e-04_rb, 9.81757e-04_rb, 1.02041e-03_rb, &\n     & 1.06059e-03_rb, 1.10235e-03_rb, 1.14575e-03_rb, 1.19087e-03_rb/)\n      kao_mco2( 9, :,12) = (/ &\n     & 4.21683e-01_rb, 4.49025e-01_rb, 4.78140e-01_rb, 5.09142e-01_rb, 5.42155e-01_rb, &\n     & 5.77309e-01_rb, 6.14741e-01_rb, 6.54601e-01_rb, 6.97046e-01_rb, 7.42242e-01_rb, &\n     & 7.90369e-01_rb, 8.41617e-01_rb, 8.96188e-01_rb, 9.54297e-01_rb, 1.01617e+00_rb, &\n     & 1.08206e+00_rb, 1.15222e+00_rb, 1.22693e+00_rb, 1.30649e+00_rb/)\n      kao_mco2( 1, :,13) = (/ &\n     & 5.61805e-01_rb, 5.98988e-01_rb, 6.38631e-01_rb, 6.80898e-01_rb, 7.25962e-01_rb, &\n     & 7.74009e-01_rb, 8.25236e-01_rb, 8.79853e-01_rb, 9.38085e-01_rb, 1.00017e+00_rb, &\n     & 1.06637e+00_rb, 1.13694e+00_rb, 1.21219e+00_rb, 1.29242e+00_rb, 1.37795e+00_rb, &\n     & 1.46915e+00_rb, 1.56638e+00_rb, 1.67005e+00_rb, 1.78058e+00_rb/)\n      kao_mco2( 2, :,13) = (/ &\n     & 5.55938e-01_rb, 5.91800e-01_rb, 6.29976e-01_rb, 6.70615e-01_rb, 7.13876e-01_rb, &\n     & 7.59927e-01_rb, 8.08949e-01_rb, 8.61133e-01_rb, 9.16683e-01_rb, 9.75817e-01_rb, &\n     & 1.03877e+00_rb, 1.10577e+00_rb, 1.17711e+00_rb, 1.25304e+00_rb, 1.33387e+00_rb, &\n     & 1.41992e+00_rb, 1.51152e+00_rb, 1.60902e+00_rb, 1.71282e+00_rb/)\n      kao_mco2( 3, :,13) = (/ &\n     & 5.94615e-01_rb, 6.33277e-01_rb, 6.74453e-01_rb, 7.18307e-01_rb, 7.65012e-01_rb, &\n     & 8.14753e-01_rb, 8.67729e-01_rb, 9.24149e-01_rb, 9.84238e-01_rb, 1.04823e+00_rb, &\n     & 1.11639e+00_rb, 1.18898e+00_rb, 1.26629e+00_rb, 1.34862e+00_rb, 1.43631e+00_rb, &\n     & 1.52970e+00_rb, 1.62916e+00_rb, 1.73509e+00_rb, 1.84791e+00_rb/)\n      kao_mco2( 4, :,13) = (/ &\n     & 5.48973e-01_rb, 5.84145e-01_rb, 6.21570e-01_rb, 6.61394e-01_rb, 7.03768e-01_rb, &\n     & 7.48858e-01_rb, 7.96836e-01_rb, 8.47889e-01_rb, 9.02212e-01_rb, 9.60015e-01_rb, &\n     & 1.02152e+00_rb, 1.08697e+00_rb, 1.15661e+00_rb, 1.23071e+00_rb, 1.30956e+00_rb, &\n     & 1.39347e+00_rb, 1.48274e+00_rb, 1.57774e+00_rb, 1.67883e+00_rb/)\n      kao_mco2( 5, :,13) = (/ &\n     & 1.49742e-01_rb, 1.59049e-01_rb, 1.68934e-01_rb, 1.79434e-01_rb, 1.90586e-01_rb, &\n     & 2.02432e-01_rb, 2.15013e-01_rb, 2.28377e-01_rb, 2.42571e-01_rb, 2.57648e-01_rb, &\n     & 2.73661e-01_rb, 2.90670e-01_rb, 3.08736e-01_rb, 3.27925e-01_rb, 3.48307e-01_rb, &\n     & 3.69955e-01_rb, 3.92949e-01_rb, 4.17372e-01_rb, 4.43312e-01_rb/)\n      kao_mco2( 6, :,13) = (/ &\n     & 8.81777e-04_rb, 9.16690e-04_rb, 9.52985e-04_rb, 9.90718e-04_rb, 1.02994e-03_rb, &\n     & 1.07072e-03_rb, 1.11312e-03_rb, 1.15719e-03_rb, 1.20301e-03_rb, 1.25064e-03_rb, &\n     & 1.30016e-03_rb, 1.35163e-03_rb, 1.40515e-03_rb, 1.46079e-03_rb, 1.51862e-03_rb, &\n     & 1.57875e-03_rb, 1.64126e-03_rb, 1.70624e-03_rb, 1.77380e-03_rb/)\n      kao_mco2( 7, :,13) = (/ &\n     & 8.84366e-04_rb, 9.20446e-04_rb, 9.57999e-04_rb, 9.97083e-04_rb, 1.03776e-03_rb, &\n     & 1.08010e-03_rb, 1.12417e-03_rb, 1.17003e-03_rb, 1.21777e-03_rb, 1.26745e-03_rb, &\n     & 1.31916e-03_rb, 1.37298e-03_rb, 1.42899e-03_rb, 1.48729e-03_rb, 1.54797e-03_rb, &\n     & 1.61113e-03_rb, 1.67686e-03_rb, 1.74527e-03_rb, 1.81647e-03_rb/)\n      kao_mco2( 8, :,13) = (/ &\n     & 8.92597e-04_rb, 9.33069e-04_rb, 9.75377e-04_rb, 1.01960e-03_rb, 1.06583e-03_rb, &\n     & 1.11416e-03_rb, 1.16468e-03_rb, 1.21749e-03_rb, 1.27269e-03_rb, 1.33040e-03_rb, &\n     & 1.39073e-03_rb, 1.45378e-03_rb, 1.51970e-03_rb, 1.58861e-03_rb, 1.66064e-03_rb, &\n     & 1.73594e-03_rb, 1.81465e-03_rb, 1.89693e-03_rb, 1.98294e-03_rb/)\n      kao_mco2( 9, :,13) = (/ &\n     & 1.46280e-01_rb, 1.55378e-01_rb, 1.65043e-01_rb, 1.75308e-01_rb, 1.86212e-01_rb, &\n     & 1.97794e-01_rb, 2.10097e-01_rb, 2.23164e-01_rb, 2.37045e-01_rb, 2.51788e-01_rb, &\n     & 2.67449e-01_rb, 2.84084e-01_rb, 3.01754e-01_rb, 3.20522e-01_rb, 3.40458e-01_rb, &\n     & 3.61634e-01_rb, 3.84127e-01_rb, 4.08020e-01_rb, 4.33398e-01_rb/)\n      kao_mco2( 1, :,14) = (/ &\n     & 9.20236e-01_rb, 9.80010e-01_rb, 1.04367e+00_rb, 1.11146e+00_rb, 1.18366e+00_rb, &\n     & 1.26054e+00_rb, 1.34242e+00_rb, 1.42962e+00_rb, 1.52248e+00_rb, 1.62137e+00_rb, &\n     & 1.72669e+00_rb, 1.83885e+00_rb, 1.95829e+00_rb, 2.08549e+00_rb, 2.22096e+00_rb, &\n     & 2.36522e+00_rb, 2.51886e+00_rb, 2.68247e+00_rb, 2.85671e+00_rb/)\n      kao_mco2( 2, :,14) = (/ &\n     & 8.39823e-01_rb, 8.95471e-01_rb, 9.54806e-01_rb, 1.01807e+00_rb, 1.08553e+00_rb, &\n     & 1.15746e+00_rb, 1.23416e+00_rb, 1.31593e+00_rb, 1.40313e+00_rb, 1.49610e+00_rb, &\n     & 1.59523e+00_rb, 1.70094e+00_rb, 1.81364e+00_rb, 1.93382e+00_rb, 2.06195e+00_rb, &\n     & 2.19858e+00_rb, 2.34426e+00_rb, 2.49960e+00_rb, 2.66522e+00_rb/)\n      kao_mco2( 3, :,14) = (/ &\n     & 5.39252e-01_rb, 5.73971e-01_rb, 6.10925e-01_rb, 6.50259e-01_rb, 6.92125e-01_rb, &\n     & 7.36686e-01_rb, 7.84117e-01_rb, 8.34601e-01_rb, 8.88336e-01_rb, 9.45530e-01_rb, &\n     & 1.00641e+00_rb, 1.07120e+00_rb, 1.14017e+00_rb, 1.21358e+00_rb, 1.29171e+00_rb, &\n     & 1.37488e+00_rb, 1.46340e+00_rb, 1.55762e+00_rb, 1.65790e+00_rb/)\n      kao_mco2( 4, :,14) = (/ &\n     & 1.14837e-03_rb, 1.19701e-03_rb, 1.24770e-03_rb, 1.30055e-03_rb, 1.35563e-03_rb, &\n     & 1.41305e-03_rb, 1.47289e-03_rb, 1.53528e-03_rb, 1.60030e-03_rb, 1.66808e-03_rb, &\n     & 1.73873e-03_rb, 1.81237e-03_rb, 1.88913e-03_rb, 1.96914e-03_rb, 2.05254e-03_rb, &\n     & 2.13947e-03_rb, 2.23009e-03_rb, 2.32454e-03_rb, 2.42299e-03_rb/)\n      kao_mco2( 5, :,14) = (/ &\n     & 1.14611e-03_rb, 1.19424e-03_rb, 1.24440e-03_rb, 1.29666e-03_rb, 1.35111e-03_rb, &\n     & 1.40786e-03_rb, 1.46698e-03_rb, 1.52859e-03_rb, 1.59279e-03_rb, 1.65968e-03_rb, &\n     & 1.72938e-03_rb, 1.80201e-03_rb, 1.87769e-03_rb, 1.95655e-03_rb, 2.03872e-03_rb, &\n     & 2.12434e-03_rb, 2.21355e-03_rb, 2.30651e-03_rb, 2.40338e-03_rb/)\n      kao_mco2( 6, :,14) = (/ &\n     & 1.14203e-03_rb, 1.18930e-03_rb, 1.23852e-03_rb, 1.28979e-03_rb, 1.34317e-03_rb, &\n     & 1.39877e-03_rb, 1.45666e-03_rb, 1.51695e-03_rb, 1.57974e-03_rb, 1.64513e-03_rb, &\n     & 1.71322e-03_rb, 1.78413e-03_rb, 1.85798e-03_rb, 1.93488e-03_rb, 2.01497e-03_rb, &\n     & 2.09837e-03_rb, 2.18522e-03_rb, 2.27567e-03_rb, 2.36986e-03_rb/)\n      kao_mco2( 7, :,14) = (/ &\n     & 1.11217e-03_rb, 1.15727e-03_rb, 1.20421e-03_rb, 1.25305e-03_rb, 1.30386e-03_rb, &\n     & 1.35674e-03_rb, 1.41177e-03_rb, 1.46902e-03_rb, 1.52860e-03_rb, 1.59059e-03_rb, &\n     & 1.65510e-03_rb, 1.72222e-03_rb, 1.79207e-03_rb, 1.86475e-03_rb, 1.94037e-03_rb, &\n     & 2.01907e-03_rb, 2.10095e-03_rb, 2.18616e-03_rb, 2.27482e-03_rb/)\n      kao_mco2( 8, :,14) = (/ &\n     & 1.21596e-03_rb, 1.25817e-03_rb, 1.30183e-03_rb, 1.34702e-03_rb, 1.39377e-03_rb, &\n     & 1.44214e-03_rb, 1.49219e-03_rb, 1.54398e-03_rb, 1.59757e-03_rb, 1.65302e-03_rb, &\n     & 1.71039e-03_rb, 1.76975e-03_rb, 1.83117e-03_rb, 1.89473e-03_rb, 1.96049e-03_rb, &\n     & 2.02853e-03_rb, 2.09893e-03_rb, 2.17178e-03_rb, 2.24716e-03_rb/)\n      kao_mco2( 9, :,14) = (/ &\n     & 1.14611e-03_rb, 1.19424e-03_rb, 1.24440e-03_rb, 1.29666e-03_rb, 1.35111e-03_rb, &\n     & 1.40786e-03_rb, 1.46698e-03_rb, 1.52859e-03_rb, 1.59279e-03_rb, 1.65968e-03_rb, &\n     & 1.72938e-03_rb, 1.80201e-03_rb, 1.87769e-03_rb, 1.95655e-03_rb, 2.03872e-03_rb, &\n     & 2.12434e-03_rb, 2.21355e-03_rb, 2.30651e-03_rb, 2.40338e-03_rb/)\n      kao_mco2( 1, :,15) = (/ &\n     & 1.29470e+00_rb, 1.37848e+00_rb, 1.46768e+00_rb, 1.56266e+00_rb, 1.66378e+00_rb, &\n     & 1.77145e+00_rb, 1.88609e+00_rb, 2.00814e+00_rb, 2.13809e+00_rb, 2.27645e+00_rb, &\n     & 2.42376e+00_rb, 2.58061e+00_rb, 2.74761e+00_rb, 2.92541e+00_rb, 3.11472e+00_rb, &\n     & 3.31628e+00_rb, 3.53088e+00_rb, 3.75938e+00_rb, 4.00265e+00_rb/)\n      kao_mco2( 2, :,15) = (/ &\n     & 7.23701e-01_rb, 7.68508e-01_rb, 8.16089e-01_rb, 8.66616e-01_rb, 9.20272e-01_rb, &\n     & 9.77250e-01_rb, 1.03775e+00_rb, 1.10201e+00_rb, 1.17024e+00_rb, 1.24269e+00_rb, &\n     & 1.31963e+00_rb, 1.40133e+00_rb, 1.48809e+00_rb, 1.58023e+00_rb, 1.67807e+00_rb, &\n     & 1.78196e+00_rb, 1.89229e+00_rb, 2.00945e+00_rb, 2.13386e+00_rb/)\n      kao_mco2( 3, :,15) = (/ &\n     & 1.81684e-03_rb, 1.85424e-03_rb, 1.89241e-03_rb, 1.93137e-03_rb, 1.97114e-03_rb, &\n     & 2.01172e-03_rb, 2.05313e-03_rb, 2.09540e-03_rb, 2.13854e-03_rb, 2.18257e-03_rb, &\n     & 2.22750e-03_rb, 2.27336e-03_rb, 2.32016e-03_rb, 2.36793e-03_rb, 2.41668e-03_rb, &\n     & 2.46643e-03_rb, 2.51721e-03_rb, 2.56903e-03_rb, 2.62192e-03_rb/)\n      kao_mco2( 4, :,15) = (/ &\n     & 1.84644e-03_rb, 1.88437e-03_rb, 1.92309e-03_rb, 1.96260e-03_rb, 2.00293e-03_rb, &\n     & 2.04408e-03_rb, 2.08608e-03_rb, 2.12894e-03_rb, 2.17268e-03_rb, 2.21732e-03_rb, &\n     & 2.26288e-03_rb, 2.30938e-03_rb, 2.35683e-03_rb, 2.40525e-03_rb, 2.45467e-03_rb, &\n     & 2.50510e-03_rb, 2.55658e-03_rb, 2.60910e-03_rb, 2.66271e-03_rb/)\n      kao_mco2( 5, :,15) = (/ &\n     & 1.88579e-03_rb, 1.92454e-03_rb, 1.96408e-03_rb, 2.00443e-03_rb, 2.04561e-03_rb, &\n     & 2.08764e-03_rb, 2.13054e-03_rb, 2.17431e-03_rb, 2.21898e-03_rb, 2.26457e-03_rb, &\n     & 2.31110e-03_rb, 2.35858e-03_rb, 2.40704e-03_rb, 2.45650e-03_rb, 2.50697e-03_rb, &\n     & 2.55848e-03_rb, 2.61104e-03_rb, 2.66469e-03_rb, 2.71943e-03_rb/)\n      kao_mco2( 6, :,15) = (/ &\n     & 1.95322e-03_rb, 1.99316e-03_rb, 2.03391e-03_rb, 2.07549e-03_rb, 2.11793e-03_rb, &\n     & 2.16123e-03_rb, 2.20542e-03_rb, 2.25051e-03_rb, 2.29652e-03_rb, 2.34347e-03_rb, &\n     & 2.39139e-03_rb, 2.44028e-03_rb, 2.49017e-03_rb, 2.54109e-03_rb, 2.59304e-03_rb, &\n     & 2.64605e-03_rb, 2.70015e-03_rb, 2.75536e-03_rb, 2.81169e-03_rb/)\n      kao_mco2( 7, :,15) = (/ &\n     & 2.13640e-03_rb, 2.17976e-03_rb, 2.22400e-03_rb, 2.26914e-03_rb, 2.31520e-03_rb, &\n     & 2.36219e-03_rb, 2.41013e-03_rb, 2.45905e-03_rb, 2.50896e-03_rb, 2.55988e-03_rb, &\n     & 2.61184e-03_rb, 2.66485e-03_rb, 2.71893e-03_rb, 2.77412e-03_rb, 2.83042e-03_rb, &\n     & 2.88787e-03_rb, 2.94648e-03_rb, 3.00629e-03_rb, 3.06730e-03_rb/)\n      kao_mco2( 8, :,15) = (/ &\n     & 2.17014e-03_rb, 2.21411e-03_rb, 2.25897e-03_rb, 2.30474e-03_rb, 2.35143e-03_rb, &\n     & 2.39908e-03_rb, 2.44769e-03_rb, 2.49728e-03_rb, 2.54788e-03_rb, 2.59950e-03_rb, &\n     & 2.65217e-03_rb, 2.70591e-03_rb, 2.76073e-03_rb, 2.81667e-03_rb, 2.87374e-03_rb, &\n     & 2.93197e-03_rb, 2.99137e-03_rb, 3.05198e-03_rb, 3.11382e-03_rb/)\n      kao_mco2( 9, :,15) = (/ &\n     & 1.88579e-03_rb, 1.92454e-03_rb, 1.96408e-03_rb, 2.00443e-03_rb, 2.04561e-03_rb, &\n     & 2.08764e-03_rb, 2.13054e-03_rb, 2.17431e-03_rb, 2.21898e-03_rb, 2.26457e-03_rb, &\n     & 2.31110e-03_rb, 2.35858e-03_rb, 2.40704e-03_rb, 2.45650e-03_rb, 2.50697e-03_rb, &\n     & 2.55848e-03_rb, 2.61104e-03_rb, 2.66469e-03_rb, 2.71943e-03_rb/)\n      kao_mco2( 1, :,16) = (/ &\n     & 1.48989e+00_rb, 1.58377e+00_rb, 1.68356e+00_rb, 1.78964e+00_rb, 1.90241e+00_rb, &\n     & 2.02228e+00_rb, 2.14971e+00_rb, 2.28516e+00_rb, 2.42915e+00_rb, 2.58221e+00_rb, &\n     & 2.74492e+00_rb, 2.91788e+00_rb, 3.10174e+00_rb, 3.29718e+00_rb, 3.50494e+00_rb, &\n     & 3.72578e+00_rb, 3.96055e+00_rb, 4.21010e+00_rb, 4.47538e+00_rb/)\n      kao_mco2( 2, :,16) = (/ &\n     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &\n     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &\n     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &\n     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)\n      kao_mco2( 3, :,16) = (/ &\n     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &\n     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &\n     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &\n     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)\n      kao_mco2( 4, :,16) = (/ &\n     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &\n     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &\n     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &\n     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)\n      kao_mco2( 5, :,16) = (/ &\n     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &\n     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &\n     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &\n     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)\n      kao_mco2( 6, :,16) = (/ &\n     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &\n     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &\n     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &\n     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)\n      kao_mco2( 7, :,16) = (/ &\n     & 2.09970e-03_rb, 2.14101e-03_rb, 2.18312e-03_rb, 2.22606e-03_rb, 2.26985e-03_rb, &\n     & 2.31450e-03_rb, 2.36003e-03_rb, 2.40645e-03_rb, 2.45379e-03_rb, 2.50205e-03_rb, &\n     & 2.55127e-03_rb, 2.60146e-03_rb, 2.65263e-03_rb, 2.70481e-03_rb, 2.75801e-03_rb, &\n     & 2.81226e-03_rb, 2.86758e-03_rb, 2.92399e-03_rb, 2.98150e-03_rb/)\n      kao_mco2( 8, :,16) = (/ &\n     & 2.09970e-03_rb, 2.14101e-03_rb, 2.18312e-03_rb, 2.22606e-03_rb, 2.26985e-03_rb, &\n     & 2.31450e-03_rb, 2.36003e-03_rb, 2.40645e-03_rb, 2.45379e-03_rb, 2.50205e-03_rb, &\n     & 2.55127e-03_rb, 2.60146e-03_rb, 2.65263e-03_rb, 2.70481e-03_rb, 2.75801e-03_rb, &\n     & 2.81226e-03_rb, 2.86758e-03_rb, 2.92399e-03_rb, 2.98150e-03_rb/)\n      kao_mco2( 9, :,16) = (/ &\n     & 2.10609e-03_rb, 2.14759e-03_rb, 2.18992e-03_rb, 2.23307e-03_rb, 2.27708e-03_rb, &\n     & 2.32196e-03_rb, 2.36771e-03_rb, 2.41438e-03_rb, 2.46196e-03_rb, 2.51047e-03_rb, &\n     & 2.55995e-03_rb, 2.61040e-03_rb, 2.66184e-03_rb, 2.71430e-03_rb, 2.76779e-03_rb, &\n     & 2.82234e-03_rb, 2.87796e-03_rb, 2.93467e-03_rb, 2.99251e-03_rb/)\n\n      kao_mco( 1, :, 1) = (/ &\n     & 4.58355e-01_rb, 4.47074e-01_rb, 4.36070e-01_rb, 4.25337e-01_rb, 4.14868e-01_rb, &\n     & 4.04657e-01_rb, 3.94697e-01_rb, 3.84982e-01_rb, 3.75506e-01_rb, 3.66264e-01_rb, &\n     & 3.57249e-01_rb, 3.48456e-01_rb, 3.39879e-01_rb, 3.31514e-01_rb, 3.23354e-01_rb, &\n     & 3.15395e-01_rb, 3.07632e-01_rb, 3.00061e-01_rb, 2.92675e-01_rb/)\n      kao_mco( 2, :, 1) = (/ &\n     & 7.03080e-01_rb, 6.84132e-01_rb, 6.65696e-01_rb, 6.47756e-01_rb, 6.30300e-01_rb, &\n     & 6.13314e-01_rb, 5.96786e-01_rb, 5.80703e-01_rb, 5.65053e-01_rb, 5.49826e-01_rb, &\n     & 5.35009e-01_rb, 5.20591e-01_rb, 5.06561e-01_rb, 4.92910e-01_rb, 4.79627e-01_rb, &\n     & 4.66701e-01_rb, 4.54124e-01_rb, 4.41886e-01_rb, 4.29978e-01_rb/)\n      kao_mco( 3, :, 1) = (/ &\n     & 8.53018e-01_rb, 8.29537e-01_rb, 8.06703e-01_rb, 7.84497e-01_rb, 7.62903e-01_rb, &\n     & 7.41903e-01_rb, 7.21481e-01_rb, 7.01621e-01_rb, 6.82307e-01_rb, 6.63526e-01_rb, &\n     & 6.45261e-01_rb, 6.27499e-01_rb, 6.10226e-01_rb, 5.93429e-01_rb, 5.77094e-01_rb, &\n     & 5.61208e-01_rb, 5.45760e-01_rb, 5.30737e-01_rb, 5.16128e-01_rb/)\n      kao_mco( 4, :, 1) = (/ &\n     & 9.58866e-01_rb, 9.31881e-01_rb, 9.05654e-01_rb, 8.80166e-01_rb, 8.55395e-01_rb, &\n     & 8.31321e-01_rb, 8.07925e-01_rb, 7.85187e-01_rb, 7.63089e-01_rb, 7.41613e-01_rb, &\n     & 7.20742e-01_rb, 7.00457e-01_rb, 6.80744e-01_rb, 6.61586e-01_rb, 6.42966e-01_rb, &\n     & 6.24871e-01_rb, 6.07285e-01_rb, 5.90194e-01_rb, 5.73584e-01_rb/)\n      kao_mco( 5, :, 1) = (/ &\n     & 1.07140e+00_rb, 1.04056e+00_rb, 1.01061e+00_rb, 9.81521e-01_rb, 9.53269e-01_rb, &\n     & 9.25829e-01_rb, 8.99180e-01_rb, 8.73297e-01_rb, 8.48160e-01_rb, 8.23746e-01_rb, &\n     & 8.00035e-01_rb, 7.77006e-01_rb, 7.54641e-01_rb, 7.32919e-01_rb, 7.11822e-01_rb, &\n     & 6.91333e-01_rb, 6.71433e-01_rb, 6.52106e-01_rb, 6.33336e-01_rb/)\n      kao_mco( 6, :, 1) = (/ &\n     & 1.21046e+00_rb, 1.17478e+00_rb, 1.14015e+00_rb, 1.10655e+00_rb, 1.07393e+00_rb, &\n     & 1.04228e+00_rb, 1.01156e+00_rb, 9.81740e-01_rb, 9.52803e-01_rb, 9.24720e-01_rb, &\n     & 8.97463e-01_rb, 8.71011e-01_rb, 8.45338e-01_rb, 8.20422e-01_rb, 7.96240e-01_rb, &\n     & 7.72771e-01_rb, 7.49993e-01_rb, 7.27887e-01_rb, 7.06433e-01_rb/)\n      kao_mco( 7, :, 1) = (/ &\n     & 1.57730e+00_rb, 1.52919e+00_rb, 1.48255e+00_rb, 1.43733e+00_rb, 1.39349e+00_rb, &\n     & 1.35099e+00_rb, 1.30978e+00_rb, 1.26983e+00_rb, 1.23110e+00_rb, 1.19355e+00_rb, &\n     & 1.15715e+00_rb, 1.12186e+00_rb, 1.08764e+00_rb, 1.05446e+00_rb, 1.02230e+00_rb, &\n     & 9.91121e-01_rb, 9.60890e-01_rb, 9.31583e-01_rb, 9.03169e-01_rb/)\n      kao_mco( 8, :, 1) = (/ &\n     & 2.43678e+00_rb, 2.36595e+00_rb, 2.29719e+00_rb, 2.23042e+00_rb, 2.16560e+00_rb, &\n     & 2.10266e+00_rb, 2.04154e+00_rb, 1.98221e+00_rb, 1.92460e+00_rb, 1.86866e+00_rb, &\n     & 1.81435e+00_rb, 1.76162e+00_rb, 1.71042e+00_rb, 1.66070e+00_rb, 1.61244e+00_rb, &\n     & 1.56557e+00_rb, 1.52007e+00_rb, 1.47589e+00_rb, 1.43300e+00_rb/)\n      kao_mco( 9, :, 1) = (/ &\n     & 9.66296e-01_rb, 9.39903e-01_rb, 9.14232e-01_rb, 8.89262e-01_rb, 8.64973e-01_rb, &\n     & 8.41348e-01_rb, 8.18369e-01_rb, 7.96017e-01_rb, 7.74275e-01_rb, 7.53128e-01_rb, &\n     & 7.32558e-01_rb, 7.12549e-01_rb, 6.93088e-01_rb, 6.74157e-01_rb, 6.55744e-01_rb, &\n     & 6.37834e-01_rb, 6.20413e-01_rb, 6.03468e-01_rb, 5.86985e-01_rb/)\n      kao_mco( 1, :, 2) = (/ &\n     & 1.15047e+00_rb, 1.12127e+00_rb, 1.09281e+00_rb, 1.06507e+00_rb, 1.03804e+00_rb, &\n     & 1.01169e+00_rb, 9.86010e-01_rb, 9.60983e-01_rb, 9.36591e-01_rb, 9.12818e-01_rb, &\n     & 8.89649e-01_rb, 8.67067e-01_rb, 8.45059e-01_rb, 8.23610e-01_rb, 8.02705e-01_rb, &\n     & 7.82330e-01_rb, 7.62473e-01_rb, 7.43119e-01_rb, 7.24257e-01_rb/)\n      kao_mco( 2, :, 2) = (/ &\n     & 1.43243e+00_rb, 1.39430e+00_rb, 1.35719e+00_rb, 1.32106e+00_rb, 1.28590e+00_rb, &\n     & 1.25167e+00_rb, 1.21836e+00_rb, 1.18593e+00_rb, 1.15436e+00_rb, 1.12364e+00_rb, &\n     & 1.09373e+00_rb, 1.06462e+00_rb, 1.03628e+00_rb, 1.00870e+00_rb, 9.81848e-01_rb, &\n     & 9.55714e-01_rb, 9.30275e-01_rb, 9.05514e-01_rb, 8.81412e-01_rb/)\n      kao_mco( 3, :, 2) = (/ &\n     & 1.61389e+00_rb, 1.56911e+00_rb, 1.52556e+00_rb, 1.48323e+00_rb, 1.44207e+00_rb, &\n     & 1.40205e+00_rb, 1.36314e+00_rb, 1.32531e+00_rb, 1.28854e+00_rb, 1.25278e+00_rb, &\n     & 1.21801e+00_rb, 1.18421e+00_rb, 1.15135e+00_rb, 1.11940e+00_rb, 1.08834e+00_rb, &\n     & 1.05814e+00_rb, 1.02877e+00_rb, 1.00022e+00_rb, 9.72466e-01_rb/)\n      kao_mco( 4, :, 2) = (/ &\n     & 1.78458e+00_rb, 1.73440e+00_rb, 1.68564e+00_rb, 1.63825e+00_rb, 1.59219e+00_rb, &\n     & 1.54742e+00_rb, 1.50391e+00_rb, 1.46163e+00_rb, 1.42053e+00_rb, 1.38059e+00_rb, &\n     & 1.34178e+00_rb, 1.30405e+00_rb, 1.26739e+00_rb, 1.23175e+00_rb, 1.19712e+00_rb, &\n     & 1.16346e+00_rb, 1.13075e+00_rb, 1.09896e+00_rb, 1.06806e+00_rb/)\n      kao_mco( 5, :, 2) = (/ &\n     & 1.92622e+00_rb, 1.87172e+00_rb, 1.81876e+00_rb, 1.76730e+00_rb, 1.71730e+00_rb, &\n     & 1.66871e+00_rb, 1.62150e+00_rb, 1.57562e+00_rb, 1.53104e+00_rb, 1.48772e+00_rb, &\n     & 1.44563e+00_rb, 1.40473e+00_rb, 1.36498e+00_rb, 1.32636e+00_rb, 1.28883e+00_rb, &\n     & 1.25237e+00_rb, 1.21693e+00_rb, 1.18250e+00_rb, 1.14905e+00_rb/)\n      kao_mco( 6, :, 2) = (/ &\n     & 2.23194e+00_rb, 2.16782e+00_rb, 2.10554e+00_rb, 2.04505e+00_rb, 1.98630e+00_rb, &\n     & 1.92924e+00_rb, 1.87381e+00_rb, 1.81998e+00_rb, 1.76770e+00_rb, 1.71691e+00_rb, &\n     & 1.66759e+00_rb, 1.61968e+00_rb, 1.57315e+00_rb, 1.52796e+00_rb, 1.48406e+00_rb, &\n     & 1.44143e+00_rb, 1.40002e+00_rb, 1.35980e+00_rb, 1.32073e+00_rb/)\n      kao_mco( 7, :, 2) = (/ &\n     & 2.64692e+00_rb, 2.57290e+00_rb, 2.50096e+00_rb, 2.43103e+00_rb, 2.36305e+00_rb, &\n     & 2.29697e+00_rb, 2.23275e+00_rb, 2.17031e+00_rb, 2.10963e+00_rb, 2.05064e+00_rb, &\n     & 1.99330e+00_rb, 1.93756e+00_rb, 1.88338e+00_rb, 1.83072e+00_rb, 1.77953e+00_rb, &\n     & 1.72977e+00_rb, 1.68140e+00_rb, 1.63438e+00_rb, 1.58868e+00_rb/)\n      kao_mco( 8, :, 2) = (/ &\n     & 2.86812e+00_rb, 2.80121e+00_rb, 2.73586e+00_rb, 2.67204e+00_rb, 2.60970e+00_rb, &\n     & 2.54882e+00_rb, 2.48936e+00_rb, 2.43129e+00_rb, 2.37457e+00_rb, 2.31917e+00_rb, &\n     & 2.26507e+00_rb, 2.21223e+00_rb, 2.16062e+00_rb, 2.11022e+00_rb, 2.06099e+00_rb, &\n     & 2.01291e+00_rb, 1.96595e+00_rb, 1.92009e+00_rb, 1.87529e+00_rb/)\n      kao_mco( 9, :, 2) = (/ &\n     & 1.25243e+00_rb, 1.22790e+00_rb, 1.20385e+00_rb, 1.18027e+00_rb, 1.15716e+00_rb, &\n     & 1.13449e+00_rb, 1.11227e+00_rb, 1.09049e+00_rb, 1.06913e+00_rb, 1.04819e+00_rb, &\n     & 1.02766e+00_rb, 1.00754e+00_rb, 9.87804e-01_rb, 9.68457e-01_rb, 9.49490e-01_rb, &\n     & 9.30894e-01_rb, 9.12662e-01_rb, 8.94787e-01_rb, 8.77263e-01_rb/)\n      kao_mco( 1, :, 3) = (/ &\n     & 2.55598e+00_rb, 2.48729e+00_rb, 2.42045e+00_rb, 2.35541e+00_rb, 2.29211e+00_rb, &\n     & 2.23052e+00_rb, 2.17058e+00_rb, 2.11225e+00_rb, 2.05549e+00_rb, 2.00025e+00_rb, &\n     & 1.94650e+00_rb, 1.89419e+00_rb, 1.84329e+00_rb, 1.79376e+00_rb, 1.74555e+00_rb, &\n     & 1.69865e+00_rb, 1.65300e+00_rb, 1.60858e+00_rb, 1.56535e+00_rb/)\n      kao_mco( 2, :, 3) = (/ &\n     & 2.93113e+00_rb, 2.85257e+00_rb, 2.77612e+00_rb, 2.70172e+00_rb, 2.62932e+00_rb, &\n     & 2.55885e+00_rb, 2.49028e+00_rb, 2.42354e+00_rb, 2.35859e+00_rb, 2.29538e+00_rb, &\n     & 2.23386e+00_rb, 2.17400e+00_rb, 2.11573e+00_rb, 2.05903e+00_rb, 2.00385e+00_rb, &\n     & 1.95015e+00_rb, 1.89788e+00_rb, 1.84702e+00_rb, 1.79752e+00_rb/)\n      kao_mco( 3, :, 3) = (/ &\n     & 3.26626e+00_rb, 3.18025e+00_rb, 3.09651e+00_rb, 3.01497e+00_rb, 2.93558e+00_rb, &\n     & 2.85828e+00_rb, 2.78302e+00_rb, 2.70973e+00_rb, 2.63838e+00_rb, 2.56891e+00_rb, &\n     & 2.50126e+00_rb, 2.43540e+00_rb, 2.37127e+00_rb, 2.30883e+00_rb, 2.24803e+00_rb, &\n     & 2.18883e+00_rb, 2.13120e+00_rb, 2.07508e+00_rb, 2.02044e+00_rb/)\n      kao_mco( 4, :, 3) = (/ &\n     & 3.65895e+00_rb, 3.56418e+00_rb, 3.47187e+00_rb, 3.38194e+00_rb, 3.29435e+00_rb, &\n     & 3.20903e+00_rb, 3.12591e+00_rb, 3.04495e+00_rb, 2.96608e+00_rb, 2.88926e+00_rb, &\n     & 2.81443e+00_rb, 2.74153e+00_rb, 2.67053e+00_rb, 2.60136e+00_rb, 2.53398e+00_rb, &\n     & 2.46835e+00_rb, 2.40442e+00_rb, 2.34214e+00_rb, 2.28148e+00_rb/)\n      kao_mco( 5, :, 3) = (/ &\n     & 4.13692e+00_rb, 4.03459e+00_rb, 3.93479e+00_rb, 3.83746e+00_rb, 3.74254e+00_rb, &\n     & 3.64997e+00_rb, 3.55968e+00_rb, 3.47163e+00_rb, 3.38576e+00_rb, 3.30201e+00_rb, &\n     & 3.22034e+00_rb, 3.14068e+00_rb, 3.06299e+00_rb, 2.98723e+00_rb, 2.91334e+00_rb, &\n     & 2.84128e+00_rb, 2.77100e+00_rb, 2.70246e+00_rb, 2.63561e+00_rb/)\n      kao_mco( 6, :, 3) = (/ &\n     & 4.42856e+00_rb, 4.32480e+00_rb, 4.22348e+00_rb, 4.12453e+00_rb, 4.02790e+00_rb, &\n     & 3.93353e+00_rb, 3.84137e+00_rb, 3.75137e+00_rb, 3.66348e+00_rb, 3.57765e+00_rb, &\n     & 3.49383e+00_rb, 3.41198e+00_rb, 3.33204e+00_rb, 3.25397e+00_rb, 3.17774e+00_rb, &\n     & 3.10329e+00_rb, 3.03058e+00_rb, 2.95958e+00_rb, 2.89024e+00_rb/)\n      kao_mco( 7, :, 3) = (/ &\n     & 4.31306e+00_rb, 4.21750e+00_rb, 4.12406e+00_rb, 4.03268e+00_rb, 3.94333e+00_rb, &\n     & 3.85596e+00_rb, 3.77053e+00_rb, 3.68699e+00_rb, 3.60530e+00_rb, 3.52542e+00_rb, &\n     & 3.44731e+00_rb, 3.37093e+00_rb, 3.29624e+00_rb, 3.22321e+00_rb, 3.15179e+00_rb, &\n     & 3.08196e+00_rb, 3.01368e+00_rb, 2.94691e+00_rb, 2.88161e+00_rb/)\n      kao_mco( 8, :, 3) = (/ &\n     & 4.38922e+00_rb, 4.32180e+00_rb, 4.25543e+00_rb, 4.19007e+00_rb, 4.12571e+00_rb, &\n     & 4.06234e+00_rb, 3.99995e+00_rb, 3.93851e+00_rb, 3.87802e+00_rb, 3.81846e+00_rb, &\n     & 3.75981e+00_rb, 3.70206e+00_rb, 3.64520e+00_rb, 3.58922e+00_rb, 3.53409e+00_rb, &\n     & 3.47981e+00_rb, 3.42636e+00_rb, 3.37374e+00_rb, 3.32192e+00_rb/)\n      kao_mco( 9, :, 3) = (/ &\n     & 1.56810e+00_rb, 1.54211e+00_rb, 1.51654e+00_rb, 1.49139e+00_rb, 1.46667e+00_rb, &\n     & 1.44235e+00_rb, 1.41844e+00_rb, 1.39492e+00_rb, 1.37179e+00_rb, 1.34905e+00_rb, &\n     & 1.32668e+00_rb, 1.30469e+00_rb, 1.28306e+00_rb, 1.26178e+00_rb, 1.24086e+00_rb, &\n     & 1.22029e+00_rb, 1.20006e+00_rb, 1.18016e+00_rb, 1.16059e+00_rb/)\n      kao_mco( 1, :, 4) = (/ &\n     & 6.58275e+00_rb, 6.43026e+00_rb, 6.28130e+00_rb, 6.13579e+00_rb, 5.99365e+00_rb, &\n     & 5.85481e+00_rb, 5.71918e+00_rb, 5.58669e+00_rb, 5.45727e+00_rb, 5.33085e+00_rb, &\n     & 5.20736e+00_rb, 5.08673e+00_rb, 4.96889e+00_rb, 4.85379e+00_rb, 4.74135e+00_rb, &\n     & 4.63151e+00_rb, 4.52422e+00_rb, 4.41942e+00_rb, 4.31704e+00_rb/)\n      kao_mco( 2, :, 4) = (/ &\n     & 6.59883e+00_rb, 6.45139e+00_rb, 6.30725e+00_rb, 6.16633e+00_rb, 6.02855e+00_rb, &\n     & 5.89386e+00_rb, 5.76217e+00_rb, 5.63342e+00_rb, 5.50756e+00_rb, 5.38450e+00_rb, &\n     & 5.26419e+00_rb, 5.14657e+00_rb, 5.03158e+00_rb, 4.91916e+00_rb, 4.80925e+00_rb, &\n     & 4.70180e+00_rb, 4.59675e+00_rb, 4.49404e+00_rb, 4.39363e+00_rb/)\n      kao_mco( 3, :, 4) = (/ &\n     & 6.58521e+00_rb, 6.44452e+00_rb, 6.30683e+00_rb, 6.17209e+00_rb, 6.04023e+00_rb, &\n     & 5.91118e+00_rb, 5.78489e+00_rb, 5.66130e+00_rb, 5.54034e+00_rb, 5.42198e+00_rb, &\n     & 5.30614e+00_rb, 5.19277e+00_rb, 5.08183e+00_rb, 4.97326e+00_rb, 4.86701e+00_rb, &\n     & 4.76303e+00_rb, 4.66127e+00_rb, 4.56168e+00_rb, 4.46422e+00_rb/)\n      kao_mco( 4, :, 4) = (/ &\n     & 6.33742e+00_rb, 6.20870e+00_rb, 6.08260e+00_rb, 5.95905e+00_rb, 5.83802e+00_rb, &\n     & 5.71945e+00_rb, 5.60328e+00_rb, 5.48947e+00_rb, 5.37798e+00_rb, 5.26875e+00_rb, &\n     & 5.16174e+00_rb, 5.05690e+00_rb, 4.95419e+00_rb, 4.85357e+00_rb, 4.75499e+00_rb, &\n     & 4.65841e+00_rb, 4.56379e+00_rb, 4.47110e+00_rb, 4.38029e+00_rb/)\n      kao_mco( 5, :, 4) = (/ &\n     & 5.99732e+00_rb, 5.88459e+00_rb, 5.77398e+00_rb, 5.66545e+00_rb, 5.55896e+00_rb, &\n     & 5.45447e+00_rb, 5.35194e+00_rb, 5.25134e+00_rb, 5.15263e+00_rb, 5.05578e+00_rb, &\n     & 4.96075e+00_rb, 4.86750e+00_rb, 4.77601e+00_rb, 4.68623e+00_rb, 4.59815e+00_rb, &\n     & 4.51171e+00_rb, 4.42691e+00_rb, 4.34370e+00_rb, 4.26205e+00_rb/)\n      kao_mco( 6, :, 4) = (/ &\n     & 5.74529e+00_rb, 5.65249e+00_rb, 5.56119e+00_rb, 5.47136e+00_rb, 5.38299e+00_rb, &\n     & 5.29604e+00_rb, 5.21049e+00_rb, 5.12633e+00_rb, 5.04353e+00_rb, 4.96206e+00_rb, &\n     & 4.88191e+00_rb, 4.80306e+00_rb, 4.72547e+00_rb, 4.64915e+00_rb, 4.57405e+00_rb, &\n     & 4.50017e+00_rb, 4.42748e+00_rb, 4.35596e+00_rb, 4.28560e+00_rb/)\n      kao_mco( 7, :, 4) = (/ &\n     & 5.87251e+00_rb, 5.79956e+00_rb, 5.72753e+00_rb, 5.65638e+00_rb, 5.58613e+00_rb, &\n     & 5.51674e+00_rb, 5.44822e+00_rb, 5.38054e+00_rb, 5.31371e+00_rb, 5.24771e+00_rb, &\n     & 5.18253e+00_rb, 5.11815e+00_rb, 5.05458e+00_rb, 4.99180e+00_rb, 4.92979e+00_rb, &\n     & 4.86856e+00_rb, 4.80809e+00_rb, 4.74837e+00_rb, 4.68939e+00_rb/)\n      kao_mco( 8, :, 4) = (/ &\n     & 5.68503e+00_rb, 5.62827e+00_rb, 5.57207e+00_rb, 5.51644e+00_rb, 5.46136e+00_rb, &\n     & 5.40684e+00_rb, 5.35285e+00_rb, 5.29941e+00_rb, 5.24650e+00_rb, 5.19412e+00_rb, &\n     & 5.14226e+00_rb, 5.09092e+00_rb, 5.04009e+00_rb, 4.98977e+00_rb, 4.93995e+00_rb, &\n     & 4.89063e+00_rb, 4.84180e+00_rb, 4.79346e+00_rb, 4.74560e+00_rb/)\n      kao_mco( 9, :, 4) = (/ &\n     & 2.69278e+00_rb, 2.65058e+00_rb, 2.60903e+00_rb, 2.56814e+00_rb, 2.52789e+00_rb, &\n     & 2.48827e+00_rb, 2.44927e+00_rb, 2.41088e+00_rb, 2.37310e+00_rb, 2.33590e+00_rb, &\n     & 2.29929e+00_rb, 2.26325e+00_rb, 2.22778e+00_rb, 2.19286e+00_rb, 2.15849e+00_rb, &\n     & 2.12466e+00_rb, 2.09136e+00_rb, 2.05859e+00_rb, 2.02632e+00_rb/)\n      kao_mco( 1, :, 5) = (/ &\n     & 9.12231e+00_rb, 9.00052e+00_rb, 8.88036e+00_rb, 8.76180e+00_rb, 8.64482e+00_rb, &\n     & 8.52941e+00_rb, 8.41553e+00_rb, 8.30318e+00_rb, 8.19233e+00_rb, 8.08295e+00_rb, &\n     & 7.97504e+00_rb, 7.86857e+00_rb, 7.76352e+00_rb, 7.65987e+00_rb, 7.55760e+00_rb, &\n     & 7.45671e+00_rb, 7.35715e+00_rb, 7.25893e+00_rb, 7.16202e+00_rb/)\n      kao_mco( 2, :, 5) = (/ &\n     & 8.37315e+00_rb, 8.27808e+00_rb, 8.18410e+00_rb, 8.09118e+00_rb, 7.99931e+00_rb, &\n     & 7.90849e+00_rb, 7.81871e+00_rb, 7.72994e+00_rb, 7.64217e+00_rb, 7.55541e+00_rb, &\n     & 7.46963e+00_rb, 7.38482e+00_rb, 7.30098e+00_rb, 7.21809e+00_rb, 7.13614e+00_rb, &\n     & 7.05512e+00_rb, 6.97502e+00_rb, 6.89582e+00_rb, 6.81753e+00_rb/)\n      kao_mco( 3, :, 5) = (/ &\n     & 8.14557e+00_rb, 8.06533e+00_rb, 7.98587e+00_rb, 7.90720e+00_rb, 7.82930e+00_rb, &\n     & 7.75217e+00_rb, 7.67580e+00_rb, 7.60018e+00_rb, 7.52530e+00_rb, 7.45117e+00_rb, &\n     & 7.37776e+00_rb, 7.30508e+00_rb, 7.23311e+00_rb, 7.16186e+00_rb, 7.09130e+00_rb, &\n     & 7.02144e+00_rb, 6.95227e+00_rb, 6.88378e+00_rb, 6.81596e+00_rb/)\n      kao_mco( 4, :, 5) = (/ &\n     & 8.18046e+00_rb, 8.11056e+00_rb, 8.04126e+00_rb, 7.97256e+00_rb, 7.90444e+00_rb, &\n     & 7.83690e+00_rb, 7.76994e+00_rb, 7.70355e+00_rb, 7.63773e+00_rb, 7.57247e+00_rb, &\n     & 7.50777e+00_rb, 7.44362e+00_rb, 7.38002e+00_rb, 7.31697e+00_rb, 7.25445e+00_rb, &\n     & 7.19247e+00_rb, 7.13101e+00_rb, 7.07008e+00_rb, 7.00968e+00_rb/)\n      kao_mco( 5, :, 5) = (/ &\n     & 8.30092e+00_rb, 8.23529e+00_rb, 8.17019e+00_rb, 8.10559e+00_rb, 8.04151e+00_rb, &\n     & 7.97794e+00_rb, 7.91487e+00_rb, 7.85230e+00_rb, 7.79022e+00_rb, 7.72863e+00_rb, &\n     & 7.66753e+00_rb, 7.60691e+00_rb, 7.54678e+00_rb, 7.48711e+00_rb, 7.42792e+00_rb, &\n     & 7.36920e+00_rb, 7.31094e+00_rb, 7.25314e+00_rb, 7.19580e+00_rb/)\n      kao_mco( 6, :, 5) = (/ &\n     & 8.30014e+00_rb, 8.24466e+00_rb, 8.18955e+00_rb, 8.13481e+00_rb, 8.08044e+00_rb, &\n     & 8.02642e+00_rb, 7.97277e+00_rb, 7.91948e+00_rb, 7.86655e+00_rb, 7.81396e+00_rb, &\n     & 7.76173e+00_rb, 7.70985e+00_rb, 7.65832e+00_rb, 7.60713e+00_rb, 7.55628e+00_rb, &\n     & 7.50577e+00_rb, 7.45560e+00_rb, 7.40577e+00_rb, 7.35627e+00_rb/)\n      kao_mco( 7, :, 5) = (/ &\n     & 7.95931e+00_rb, 7.93958e+00_rb, 7.91989e+00_rb, 7.90025e+00_rb, 7.88066e+00_rb, &\n     & 7.86112e+00_rb, 7.84163e+00_rb, 7.82219e+00_rb, 7.80279e+00_rb, 7.78344e+00_rb, &\n     & 7.76414e+00_rb, 7.74489e+00_rb, 7.72568e+00_rb, 7.70653e+00_rb, 7.68742e+00_rb, &\n     & 7.66836e+00_rb, 7.64934e+00_rb, 7.63038e+00_rb, 7.61146e+00_rb/)\n      kao_mco( 8, :, 5) = (/ &\n     & 9.32576e+00_rb, 9.31747e+00_rb, 9.30919e+00_rb, 9.30092e+00_rb, 9.29265e+00_rb, &\n     & 9.28439e+00_rb, 9.27613e+00_rb, 9.26789e+00_rb, 9.25965e+00_rb, 9.25142e+00_rb, &\n     & 9.24320e+00_rb, 9.23498e+00_rb, 9.22677e+00_rb, 9.21857e+00_rb, 9.21038e+00_rb, &\n     & 9.20219e+00_rb, 9.19401e+00_rb, 9.18584e+00_rb, 9.17767e+00_rb/)\n      kao_mco( 9, :, 5) = (/ &\n     & 4.13116e+00_rb, 4.08426e+00_rb, 4.03788e+00_rb, 3.99204e+00_rb, 3.94671e+00_rb, &\n     & 3.90190e+00_rb, 3.85760e+00_rb, 3.81380e+00_rb, 3.77049e+00_rb, 3.72768e+00_rb, &\n     & 3.68536e+00_rb, 3.64351e+00_rb, 3.60214e+00_rb, 3.56124e+00_rb, 3.52081e+00_rb, &\n     & 3.48083e+00_rb, 3.44131e+00_rb, 3.40224e+00_rb, 3.36361e+00_rb/)\n      kao_mco( 1, :, 6) = (/ &\n     & 1.21200e+01_rb, 1.21580e+01_rb, 1.21961e+01_rb, 1.22344e+01_rb, 1.22728e+01_rb, &\n     & 1.23113e+01_rb, 1.23499e+01_rb, 1.23886e+01_rb, 1.24275e+01_rb, 1.24664e+01_rb, &\n     & 1.25056e+01_rb, 1.25448e+01_rb, 1.25841e+01_rb, 1.26236e+01_rb, 1.26632e+01_rb, &\n     & 1.27029e+01_rb, 1.27428e+01_rb, 1.27827e+01_rb, 1.28228e+01_rb/)\n      kao_mco( 2, :, 6) = (/ &\n     & 1.25231e+01_rb, 1.25625e+01_rb, 1.26020e+01_rb, 1.26417e+01_rb, 1.26815e+01_rb, &\n     & 1.27214e+01_rb, 1.27614e+01_rb, 1.28015e+01_rb, 1.28418e+01_rb, 1.28822e+01_rb, &\n     & 1.29228e+01_rb, 1.29634e+01_rb, 1.30042e+01_rb, 1.30451e+01_rb, 1.30862e+01_rb, &\n     & 1.31274e+01_rb, 1.31687e+01_rb, 1.32101e+01_rb, 1.32517e+01_rb/)\n      kao_mco( 3, :, 6) = (/ &\n     & 1.27566e+01_rb, 1.27983e+01_rb, 1.28401e+01_rb, 1.28820e+01_rb, 1.29241e+01_rb, &\n     & 1.29663e+01_rb, 1.30087e+01_rb, 1.30512e+01_rb, 1.30938e+01_rb, 1.31366e+01_rb, &\n     & 1.31795e+01_rb, 1.32225e+01_rb, 1.32657e+01_rb, 1.33090e+01_rb, 1.33525e+01_rb, &\n     & 1.33961e+01_rb, 1.34399e+01_rb, 1.34838e+01_rb, 1.35278e+01_rb/)\n      kao_mco( 4, :, 6) = (/ &\n     & 1.27132e+01_rb, 1.27454e+01_rb, 1.27777e+01_rb, 1.28101e+01_rb, 1.28425e+01_rb, &\n     & 1.28750e+01_rb, 1.29077e+01_rb, 1.29403e+01_rb, 1.29731e+01_rb, 1.30060e+01_rb, &\n     & 1.30389e+01_rb, 1.30720e+01_rb, 1.31051e+01_rb, 1.31383e+01_rb, 1.31716e+01_rb, &\n     & 1.32049e+01_rb, 1.32384e+01_rb, 1.32719e+01_rb, 1.33055e+01_rb/)\n      kao_mco( 5, :, 6) = (/ &\n     & 1.33151e+01_rb, 1.33523e+01_rb, 1.33896e+01_rb, 1.34271e+01_rb, 1.34646e+01_rb, &\n     & 1.35022e+01_rb, 1.35400e+01_rb, 1.35779e+01_rb, 1.36158e+01_rb, 1.36539e+01_rb, &\n     & 1.36921e+01_rb, 1.37303e+01_rb, 1.37687e+01_rb, 1.38072e+01_rb, 1.38458e+01_rb, &\n     & 1.38846e+01_rb, 1.39234e+01_rb, 1.39623e+01_rb, 1.40013e+01_rb/)\n      kao_mco( 6, :, 6) = (/ &\n     & 1.41448e+01_rb, 1.41902e+01_rb, 1.42357e+01_rb, 1.42814e+01_rb, 1.43272e+01_rb, &\n     & 1.43732e+01_rb, 1.44194e+01_rb, 1.44656e+01_rb, 1.45121e+01_rb, 1.45586e+01_rb, &\n     & 1.46054e+01_rb, 1.46522e+01_rb, 1.46993e+01_rb, 1.47464e+01_rb, 1.47938e+01_rb, &\n     & 1.48413e+01_rb, 1.48889e+01_rb, 1.49367e+01_rb, 1.49846e+01_rb/)\n      kao_mco( 7, :, 6) = (/ &\n     & 1.56578e+01_rb, 1.56938e+01_rb, 1.57299e+01_rb, 1.57661e+01_rb, 1.58024e+01_rb, &\n     & 1.58388e+01_rb, 1.58752e+01_rb, 1.59117e+01_rb, 1.59484e+01_rb, 1.59851e+01_rb, &\n     & 1.60218e+01_rb, 1.60587e+01_rb, 1.60957e+01_rb, 1.61327e+01_rb, 1.61698e+01_rb, &\n     & 1.62070e+01_rb, 1.62443e+01_rb, 1.62817e+01_rb, 1.63192e+01_rb/)\n      kao_mco( 8, :, 6) = (/ &\n     & 1.73627e+01_rb, 1.74761e+01_rb, 1.75903e+01_rb, 1.77052e+01_rb, 1.78208e+01_rb, &\n     & 1.79373e+01_rb, 1.80544e+01_rb, 1.81724e+01_rb, 1.82911e+01_rb, 1.84106e+01_rb, &\n     & 1.85309e+01_rb, 1.86519e+01_rb, 1.87738e+01_rb, 1.88964e+01_rb, 1.90198e+01_rb, &\n     & 1.91441e+01_rb, 1.92692e+01_rb, 1.93950e+01_rb, 1.95217e+01_rb/)\n      kao_mco( 9, :, 6) = (/ &\n     & 7.16326e+00_rb, 7.12921e+00_rb, 7.09531e+00_rb, 7.06158e+00_rb, 7.02800e+00_rb, &\n     & 6.99459e+00_rb, 6.96133e+00_rb, 6.92824e+00_rb, 6.89530e+00_rb, 6.86252e+00_rb, &\n     & 6.82989e+00_rb, 6.79742e+00_rb, 6.76510e+00_rb, 6.73293e+00_rb, 6.70092e+00_rb, &\n     & 6.66906e+00_rb, 6.63736e+00_rb, 6.60580e+00_rb, 6.57439e+00_rb/)\n      kao_mco( 1, :, 7) = (/ &\n     & 2.09288e+01_rb, 2.10487e+01_rb, 2.11692e+01_rb, 2.12904e+01_rb, 2.14124e+01_rb, &\n     & 2.15350e+01_rb, 2.16583e+01_rb, 2.17823e+01_rb, 2.19070e+01_rb, 2.20325e+01_rb, &\n     & 2.21587e+01_rb, 2.22855e+01_rb, 2.24132e+01_rb, 2.25415e+01_rb, 2.26706e+01_rb, &\n     & 2.28004e+01_rb, 2.29310e+01_rb, 2.30623e+01_rb, 2.31943e+01_rb/)\n      kao_mco( 2, :, 7) = (/ &\n     & 2.08159e+01_rb, 2.09509e+01_rb, 2.10867e+01_rb, 2.12234e+01_rb, 2.13610e+01_rb, &\n     & 2.14994e+01_rb, 2.16388e+01_rb, 2.17791e+01_rb, 2.19202e+01_rb, 2.20623e+01_rb, &\n     & 2.22053e+01_rb, 2.23493e+01_rb, 2.24942e+01_rb, 2.26400e+01_rb, 2.27867e+01_rb, &\n     & 2.29345e+01_rb, 2.30831e+01_rb, 2.32328e+01_rb, 2.33834e+01_rb/)\n      kao_mco( 3, :, 7) = (/ &\n     & 2.10827e+01_rb, 2.12409e+01_rb, 2.14002e+01_rb, 2.15608e+01_rb, 2.17225e+01_rb, &\n     & 2.18855e+01_rb, 2.20497e+01_rb, 2.22151e+01_rb, 2.23818e+01_rb, 2.25497e+01_rb, &\n     & 2.27189e+01_rb, 2.28893e+01_rb, 2.30611e+01_rb, 2.32341e+01_rb, 2.34084e+01_rb, &\n     & 2.35840e+01_rb, 2.37609e+01_rb, 2.39392e+01_rb, 2.41188e+01_rb/)\n      kao_mco( 4, :, 7) = (/ &\n     & 2.13866e+01_rb, 2.15772e+01_rb, 2.17694e+01_rb, 2.19634e+01_rb, 2.21590e+01_rb, &\n     & 2.23565e+01_rb, 2.25556e+01_rb, 2.27566e+01_rb, 2.29594e+01_rb, 2.31639e+01_rb, &\n     & 2.33703e+01_rb, 2.35785e+01_rb, 2.37886e+01_rb, 2.40005e+01_rb, 2.42144e+01_rb, &\n     & 2.44301e+01_rb, 2.46477e+01_rb, 2.48673e+01_rb, 2.50889e+01_rb/)\n      kao_mco( 5, :, 7) = (/ &\n     & 1.93714e+01_rb, 1.95595e+01_rb, 1.97493e+01_rb, 1.99410e+01_rb, 2.01345e+01_rb, &\n     & 2.03300e+01_rb, 2.05273e+01_rb, 2.07265e+01_rb, 2.09277e+01_rb, 2.11308e+01_rb, &\n     & 2.13359e+01_rb, 2.15430e+01_rb, 2.17521e+01_rb, 2.19632e+01_rb, 2.21764e+01_rb, &\n     & 2.23917e+01_rb, 2.26090e+01_rb, 2.28284e+01_rb, 2.30500e+01_rb/)\n      kao_mco( 6, :, 7) = (/ &\n     & 1.70418e+01_rb, 1.72109e+01_rb, 1.73817e+01_rb, 1.75541e+01_rb, 1.77283e+01_rb, &\n     & 1.79041e+01_rb, 1.80818e+01_rb, 1.82612e+01_rb, 1.84423e+01_rb, 1.86253e+01_rb, &\n     & 1.88101e+01_rb, 1.89967e+01_rb, 1.91852e+01_rb, 1.93755e+01_rb, 1.95678e+01_rb, &\n     & 1.97619e+01_rb, 1.99580e+01_rb, 2.01560e+01_rb, 2.03560e+01_rb/)\n      kao_mco( 7, :, 7) = (/ &\n     & 1.31735e+01_rb, 1.32921e+01_rb, 1.34118e+01_rb, 1.35326e+01_rb, 1.36545e+01_rb, &\n     & 1.37775e+01_rb, 1.39015e+01_rb, 1.40267e+01_rb, 1.41531e+01_rb, 1.42805e+01_rb, &\n     & 1.44091e+01_rb, 1.45389e+01_rb, 1.46698e+01_rb, 1.48019e+01_rb, 1.49353e+01_rb, &\n     & 1.50698e+01_rb, 1.52055e+01_rb, 1.53424e+01_rb, 1.54806e+01_rb/)\n      kao_mco( 8, :, 7) = (/ &\n     & 4.97361e+00_rb, 4.96550e+00_rb, 4.95740e+00_rb, 4.94931e+00_rb, 4.94124e+00_rb, &\n     & 4.93318e+00_rb, 4.92513e+00_rb, 4.91709e+00_rb, 4.90907e+00_rb, 4.90106e+00_rb, &\n     & 4.89307e+00_rb, 4.88509e+00_rb, 4.87712e+00_rb, 4.86916e+00_rb, 4.86122e+00_rb, &\n     & 4.85329e+00_rb, 4.84537e+00_rb, 4.83747e+00_rb, 4.82958e+00_rb/)\n      kao_mco( 9, :, 7) = (/ &\n     & 1.76121e+01_rb, 1.75887e+01_rb, 1.75653e+01_rb, 1.75420e+01_rb, 1.75187e+01_rb, &\n     & 1.74955e+01_rb, 1.74722e+01_rb, 1.74490e+01_rb, 1.74259e+01_rb, 1.74027e+01_rb, &\n     & 1.73796e+01_rb, 1.73566e+01_rb, 1.73335e+01_rb, 1.73105e+01_rb, 1.72875e+01_rb, &\n     & 1.72646e+01_rb, 1.72416e+01_rb, 1.72188e+01_rb, 1.71959e+01_rb/)\n      kao_mco( 1, :, 8) = (/ &\n     & 5.99126e+00_rb, 6.08386e+00_rb, 6.17790e+00_rb, 6.27339e+00_rb, 6.37035e+00_rb, &\n     & 6.46881e+00_rb, 6.56880e+00_rb, 6.67033e+00_rb, 6.77343e+00_rb, 6.87812e+00_rb, &\n     & 6.98443e+00_rb, 7.09238e+00_rb, 7.20201e+00_rb, 7.31332e+00_rb, 7.42636e+00_rb, &\n     & 7.54115e+00_rb, 7.65771e+00_rb, 7.77607e+00_rb, 7.89626e+00_rb/)\n      kao_mco( 2, :, 8) = (/ &\n     & 4.71621e+00_rb, 4.78830e+00_rb, 4.86149e+00_rb, 4.93580e+00_rb, 5.01124e+00_rb, &\n     & 5.08784e+00_rb, 5.16561e+00_rb, 5.24456e+00_rb, 5.32473e+00_rb, 5.40612e+00_rb, &\n     & 5.48875e+00_rb, 5.57264e+00_rb, 5.65782e+00_rb, 5.74430e+00_rb, 5.83211e+00_rb, &\n     & 5.92125e+00_rb, 6.01176e+00_rb, 6.10365e+00_rb, 6.19694e+00_rb/)\n      kao_mco( 3, :, 8) = (/ &\n     & 2.77067e+00_rb, 2.81437e+00_rb, 2.85876e+00_rb, 2.90385e+00_rb, 2.94965e+00_rb, &\n     & 2.99617e+00_rb, 3.04343e+00_rb, 3.09143e+00_rb, 3.14019e+00_rb, 3.18972e+00_rb, &\n     & 3.24003e+00_rb, 3.29114e+00_rb, 3.34305e+00_rb, 3.39578e+00_rb, 3.44934e+00_rb, &\n     & 3.50374e+00_rb, 3.55901e+00_rb, 3.61514e+00_rb, 3.67216e+00_rb/)\n      kao_mco( 4, :, 8) = (/ &\n     & 1.22388e+00_rb, 1.24248e+00_rb, 1.26136e+00_rb, 1.28053e+00_rb, 1.29999e+00_rb, &\n     & 1.31974e+00_rb, 1.33979e+00_rb, 1.36015e+00_rb, 1.38082e+00_rb, 1.40181e+00_rb, &\n     & 1.42311e+00_rb, 1.44473e+00_rb, 1.46669e+00_rb, 1.48897e+00_rb, 1.51160e+00_rb, &\n     & 1.53457e+00_rb, 1.55789e+00_rb, 1.58156e+00_rb, 1.60559e+00_rb/)\n      kao_mco( 5, :, 8) = (/ &\n     & 1.41479e+00_rb, 1.43540e+00_rb, 1.45631e+00_rb, 1.47752e+00_rb, 1.49904e+00_rb, &\n     & 1.52088e+00_rb, 1.54303e+00_rb, 1.56550e+00_rb, 1.58831e+00_rb, 1.61144e+00_rb, &\n     & 1.63491e+00_rb, 1.65872e+00_rb, 1.68288e+00_rb, 1.70740e+00_rb, 1.73227e+00_rb, &\n     & 1.75750e+00_rb, 1.78310e+00_rb, 1.80907e+00_rb, 1.83542e+00_rb/)\n      kao_mco( 6, :, 8) = (/ &\n     & 1.43154e+00_rb, 1.46074e+00_rb, 1.49053e+00_rb, 1.52093e+00_rb, 1.55196e+00_rb, &\n     & 1.58361e+00_rb, 1.61591e+00_rb, 1.64887e+00_rb, 1.68250e+00_rb, 1.71682e+00_rb, &\n     & 1.75184e+00_rb, 1.78757e+00_rb, 1.82403e+00_rb, 1.86123e+00_rb, 1.89920e+00_rb, &\n     & 1.93793e+00_rb, 1.97746e+00_rb, 2.01779e+00_rb, 2.05895e+00_rb/)\n      kao_mco( 7, :, 8) = (/ &\n     & 2.49358e+00_rb, 2.56028e+00_rb, 2.62875e+00_rb, 2.69906e+00_rb, 2.77124e+00_rb, &\n     & 2.84536e+00_rb, 2.92146e+00_rb, 2.99960e+00_rb, 3.07982e+00_rb, 3.16219e+00_rb, &\n     & 3.24677e+00_rb, 3.33360e+00_rb, 3.42276e+00_rb, 3.51430e+00_rb, 3.60829e+00_rb, &\n     & 3.70480e+00_rb, 3.80388e+00_rb, 3.90562e+00_rb, 4.01007e+00_rb/)\n      kao_mco( 8, :, 8) = (/ &\n     & 4.32513e+00_rb, 4.39903e+00_rb, 4.47420e+00_rb, 4.55065e+00_rb, 4.62841e+00_rb, &\n     & 4.70750e+00_rb, 4.78794e+00_rb, 4.86975e+00_rb, 4.95296e+00_rb, 5.03759e+00_rb, &\n     & 5.12367e+00_rb, 5.21122e+00_rb, 5.30027e+00_rb, 5.39084e+00_rb, 5.48295e+00_rb, &\n     & 5.57664e+00_rb, 5.67193e+00_rb, 5.76885e+00_rb, 5.86743e+00_rb/)\n      kao_mco( 9, :, 8) = (/ &\n     & 3.35160e+01_rb, 3.36789e+01_rb, 3.38425e+01_rb, 3.40069e+01_rb, 3.41722e+01_rb, &\n     & 3.43382e+01_rb, 3.45050e+01_rb, 3.46727e+01_rb, 3.48412e+01_rb, 3.50105e+01_rb, &\n     & 3.51806e+01_rb, 3.53515e+01_rb, 3.55233e+01_rb, 3.56959e+01_rb, 3.58693e+01_rb, &\n     & 3.60436e+01_rb, 3.62187e+01_rb, 3.63947e+01_rb, 3.65715e+01_rb/)\n      kao_mco( 1, :, 9) = (/ &\n     & 8.68159e-01_rb, 9.13680e-01_rb, 9.61587e-01_rb, 1.01201e+00_rb, 1.06507e+00_rb, &\n     & 1.12091e+00_rb, 1.17969e+00_rb, 1.24154e+00_rb, 1.30664e+00_rb, 1.37515e+00_rb, &\n     & 1.44726e+00_rb, 1.52314e+00_rb, 1.60300e+00_rb, 1.68705e+00_rb, 1.77551e+00_rb, &\n     & 1.86861e+00_rb, 1.96658e+00_rb, 2.06970e+00_rb, 2.17822e+00_rb/)\n      kao_mco( 2, :, 9) = (/ &\n     & 9.04391e-01_rb, 9.49669e-01_rb, 9.97214e-01_rb, 1.04714e+00_rb, 1.09956e+00_rb, &\n     & 1.15461e+00_rb, 1.21242e+00_rb, 1.27312e+00_rb, 1.33685e+00_rb, 1.40378e+00_rb, &\n     & 1.47406e+00_rb, 1.54786e+00_rb, 1.62535e+00_rb, 1.70673e+00_rb, 1.79217e+00_rb, &\n     & 1.88190e+00_rb, 1.97611e+00_rb, 2.07505e+00_rb, 2.17893e+00_rb/)\n      kao_mco( 3, :, 9) = (/ &\n     & 9.67479e-01_rb, 1.01312e+00_rb, 1.06092e+00_rb, 1.11098e+00_rb, 1.16339e+00_rb, &\n     & 1.21828e+00_rb, 1.27576e+00_rb, 1.33595e+00_rb, 1.39898e+00_rb, 1.46499e+00_rb, &\n     & 1.53411e+00_rb, 1.60649e+00_rb, 1.68228e+00_rb, 1.76165e+00_rb, 1.84476e+00_rb, &\n     & 1.93180e+00_rb, 2.02294e+00_rb, 2.11839e+00_rb, 2.21833e+00_rb/)\n      kao_mco( 4, :, 9) = (/ &\n     & 1.05240e+00_rb, 1.09817e+00_rb, 1.14592e+00_rb, 1.19576e+00_rb, 1.24776e+00_rb, &\n     & 1.30202e+00_rb, 1.35864e+00_rb, 1.41772e+00_rb, 1.47937e+00_rb, 1.54371e+00_rb, &\n     & 1.61084e+00_rb, 1.68089e+00_rb, 1.75398e+00_rb, 1.83026e+00_rb, 1.90985e+00_rb, &\n     & 1.99290e+00_rb, 2.07957e+00_rb, 2.17000e+00_rb, 2.26437e+00_rb/)\n      kao_mco( 5, :, 9) = (/ &\n     & 1.25800e+00_rb, 1.30557e+00_rb, 1.35494e+00_rb, 1.40618e+00_rb, 1.45935e+00_rb, &\n     & 1.51454e+00_rb, 1.57181e+00_rb, 1.63125e+00_rb, 1.69293e+00_rb, 1.75695e+00_rb, &\n     & 1.82339e+00_rb, 1.89234e+00_rb, 1.96389e+00_rb, 2.03816e+00_rb, 2.11523e+00_rb, &\n     & 2.19522e+00_rb, 2.27823e+00_rb, 2.36438e+00_rb, 2.45378e+00_rb/)\n      kao_mco( 6, :, 9) = (/ &\n     & 1.76509e+00_rb, 1.80550e+00_rb, 1.84683e+00_rb, 1.88911e+00_rb, 1.93235e+00_rb, &\n     & 1.97658e+00_rb, 2.02183e+00_rb, 2.06811e+00_rb, 2.11546e+00_rb, 2.16388e+00_rb, &\n     & 2.21342e+00_rb, 2.26408e+00_rb, 2.31591e+00_rb, 2.36893e+00_rb, 2.42315e+00_rb, &\n     & 2.47862e+00_rb, 2.53536e+00_rb, 2.59340e+00_rb, 2.65277e+00_rb/)\n      kao_mco( 7, :, 9) = (/ &\n     & 2.03543e+00_rb, 2.05285e+00_rb, 2.07042e+00_rb, 2.08815e+00_rb, 2.10602e+00_rb, &\n     & 2.12405e+00_rb, 2.14223e+00_rb, 2.16057e+00_rb, 2.17907e+00_rb, 2.19772e+00_rb, &\n     & 2.21654e+00_rb, 2.23551e+00_rb, 2.25465e+00_rb, 2.27395e+00_rb, 2.29342e+00_rb, &\n     & 2.31305e+00_rb, 2.33285e+00_rb, 2.35282e+00_rb, 2.37296e+00_rb/)\n      kao_mco( 8, :, 9) = (/ &\n     & 3.18883e+00_rb, 3.20538e+00_rb, 3.22200e+00_rb, 3.23872e+00_rb, 3.25552e+00_rb, &\n     & 3.27241e+00_rb, 3.28939e+00_rb, 3.30645e+00_rb, 3.32360e+00_rb, 3.34085e+00_rb, &\n     & 3.35818e+00_rb, 3.37560e+00_rb, 3.39311e+00_rb, 3.41071e+00_rb, 3.42841e+00_rb, &\n     & 3.44619e+00_rb, 3.46407e+00_rb, 3.48204e+00_rb, 3.50011e+00_rb/)\n      kao_mco( 9, :, 9) = (/ &\n     & 3.97585e+00_rb, 3.96333e+00_rb, 3.95084e+00_rb, 3.93839e+00_rb, 3.92598e+00_rb, &\n     & 3.91361e+00_rb, 3.90128e+00_rb, 3.88899e+00_rb, 3.87674e+00_rb, 3.86452e+00_rb, &\n     & 3.85235e+00_rb, 3.84021e+00_rb, 3.82811e+00_rb, 3.81605e+00_rb, 3.80402e+00_rb, &\n     & 3.79204e+00_rb, 3.78009e+00_rb, 3.76818e+00_rb, 3.75631e+00_rb/)\n      kao_mco( 1, :,10) = (/ &\n     & 8.62646e-01_rb, 9.35164e-01_rb, 1.01378e+00_rb, 1.09900e+00_rb, 1.19139e+00_rb, &\n     & 1.29154e+00_rb, 1.40011e+00_rb, 1.51781e+00_rb, 1.64541e+00_rb, 1.78373e+00_rb, &\n     & 1.93367e+00_rb, 2.09623e+00_rb, 2.27245e+00_rb, 2.46348e+00_rb, 2.67057e+00_rb, &\n     & 2.89507e+00_rb, 3.13844e+00_rb, 3.40227e+00_rb, 3.68828e+00_rb/)\n      kao_mco( 2, :,10) = (/ &\n     & 8.04693e-01_rb, 8.72167e-01_rb, 9.45298e-01_rb, 1.02456e+00_rb, 1.11047e+00_rb, &\n     & 1.20358e+00_rb, 1.30450e+00_rb, 1.41389e+00_rb, 1.53244e+00_rb, 1.66094e+00_rb, &\n     & 1.80021e+00_rb, 1.95115e+00_rb, 2.11476e+00_rb, 2.29208e+00_rb, 2.48427e+00_rb, &\n     & 2.69258e+00_rb, 2.91835e+00_rb, 3.16305e+00_rb, 3.42827e+00_rb/)\n      kao_mco( 3, :,10) = (/ &\n     & 7.66566e-01_rb, 8.24651e-01_rb, 8.87137e-01_rb, 9.54358e-01_rb, 1.02667e+00_rb, &\n     & 1.10447e+00_rb, 1.18815e+00_rb, 1.27818e+00_rb, 1.37503e+00_rb, 1.47922e+00_rb, &\n     & 1.59131e+00_rb, 1.71189e+00_rb, 1.84160e+00_rb, 1.98114e+00_rb, 2.13126e+00_rb, &\n     & 2.29275e+00_rb, 2.46648e+00_rb, 2.65337e+00_rb, 2.85442e+00_rb/)\n      kao_mco( 4, :,10) = (/ &\n     & 5.40305e-01_rb, 5.77106e-01_rb, 6.16414e-01_rb, 6.58400e-01_rb, 7.03245e-01_rb, &\n     & 7.51145e-01_rb, 8.02307e-01_rb, 8.56954e-01_rb, 9.15323e-01_rb, 9.77668e-01_rb, &\n     & 1.04426e+00_rb, 1.11539e+00_rb, 1.19136e+00_rb, 1.27250e+00_rb, 1.35918e+00_rb, &\n     & 1.45175e+00_rb, 1.55064e+00_rb, 1.65625e+00_rb, 1.76906e+00_rb/)\n      kao_mco( 5, :,10) = (/ &\n     & 8.22474e-01_rb, 8.02911e-01_rb, 7.83814e-01_rb, 7.65171e-01_rb, 7.46971e-01_rb, &\n     & 7.29204e-01_rb, 7.11860e-01_rb, 6.94928e-01_rb, 6.78399e-01_rb, 6.62263e-01_rb, &\n     & 6.46511e-01_rb, 6.31133e-01_rb, 6.16122e-01_rb, 6.01467e-01_rb, 5.87161e-01_rb, &\n     & 5.73195e-01_rb, 5.59562e-01_rb, 5.46252e-01_rb, 5.33260e-01_rb/)\n      kao_mco( 6, :,10) = (/ &\n     & 1.28162e+00_rb, 1.25110e+00_rb, 1.22131e+00_rb, 1.19223e+00_rb, 1.16384e+00_rb, &\n     & 1.13613e+00_rb, 1.10908e+00_rb, 1.08267e+00_rb, 1.05689e+00_rb, 1.03173e+00_rb, &\n     & 1.00716e+00_rb, 9.83184e-01_rb, 9.59774e-01_rb, 9.36921e-01_rb, 9.14613e-01_rb, &\n     & 8.92836e-01_rb, 8.71577e-01_rb, 8.50825e-01_rb, 8.30567e-01_rb/)\n      kao_mco( 7, :,10) = (/ &\n     & 1.92679e+00_rb, 1.90551e+00_rb, 1.88446e+00_rb, 1.86365e+00_rb, 1.84307e+00_rb, &\n     & 1.82271e+00_rb, 1.80258e+00_rb, 1.78267e+00_rb, 1.76298e+00_rb, 1.74351e+00_rb, &\n     & 1.72425e+00_rb, 1.70520e+00_rb, 1.68637e+00_rb, 1.66774e+00_rb, 1.64932e+00_rb, &\n     & 1.63111e+00_rb, 1.61309e+00_rb, 1.59527e+00_rb, 1.57765e+00_rb/)\n      kao_mco( 8, :,10) = (/ &\n     & 4.66485e+00_rb, 4.60869e+00_rb, 4.55320e+00_rb, 4.49838e+00_rb, 4.44423e+00_rb, &\n     & 4.39072e+00_rb, 4.33786e+00_rb, 4.28563e+00_rb, 4.23404e+00_rb, 4.18306e+00_rb, &\n     & 4.13270e+00_rb, 4.08295e+00_rb, 4.03379e+00_rb, 3.98523e+00_rb, 3.93725e+00_rb, &\n     & 3.88985e+00_rb, 3.84301e+00_rb, 3.79675e+00_rb, 3.75104e+00_rb/)\n      kao_mco( 9, :,10) = (/ &\n     & 1.41505e+00_rb, 1.37820e+00_rb, 1.34232e+00_rb, 1.30736e+00_rb, 1.27332e+00_rb, &\n     & 1.24016e+00_rb, 1.20786e+00_rb, 1.17641e+00_rb, 1.14578e+00_rb, 1.11594e+00_rb, &\n     & 1.08688e+00_rb, 1.05858e+00_rb, 1.03101e+00_rb, 1.00416e+00_rb, 9.78015e-01_rb, &\n     & 9.52547e-01_rb, 9.27742e-01_rb, 9.03583e-01_rb, 8.80053e-01_rb/)\n      kao_mco( 1, :,11) = (/ &\n     & 3.40468e-03_rb, 4.05994e-03_rb, 4.84130e-03_rb, 5.77305e-03_rb, 6.88412e-03_rb, &\n     & 8.20902e-03_rb, 9.78890e-03_rb, 1.16728e-02_rb, 1.39194e-02_rb, 1.65983e-02_rb, &\n     & 1.97927e-02_rb, 2.36020e-02_rb, 2.81444e-02_rb, 3.35610e-02_rb, 4.00200e-02_rb, &\n     & 4.77222e-02_rb, 5.69067e-02_rb, 6.78588e-02_rb, 8.09187e-02_rb/)\n      kao_mco( 2, :,11) = (/ &\n     & 3.85021e-02_rb, 4.02208e-02_rb, 4.20162e-02_rb, 4.38918e-02_rb, 4.58512e-02_rb, &\n     & 4.78980e-02_rb, 5.00361e-02_rb, 5.22697e-02_rb, 5.46031e-02_rb, 5.70405e-02_rb, &\n     & 5.95868e-02_rb, 6.22468e-02_rb, 6.50254e-02_rb, 6.79282e-02_rb, 7.09605e-02_rb, &\n     & 7.41282e-02_rb, 7.74372e-02_rb, 8.08940e-02_rb, 8.45051e-02_rb/)\n      kao_mco( 3, :,11) = (/ &\n     & 5.24852e-01_rb, 5.10480e-01_rb, 4.96501e-01_rb, 4.82905e-01_rb, 4.69681e-01_rb, &\n     & 4.56820e-01_rb, 4.44310e-01_rb, 4.32143e-01_rb, 4.20310e-01_rb, 4.08800e-01_rb, &\n     & 3.97606e-01_rb, 3.86718e-01_rb, 3.76128e-01_rb, 3.65828e-01_rb, 3.55810e-01_rb, &\n     & 3.46067e-01_rb, 3.36590e-01_rb, 3.27373e-01_rb, 3.18409e-01_rb/)\n      kao_mco( 4, :,11) = (/ &\n     & 5.86290e-01_rb, 5.70241e-01_rb, 5.54632e-01_rb, 5.39450e-01_rb, 5.24683e-01_rb, &\n     & 5.10321e-01_rb, 4.96352e-01_rb, 4.82765e-01_rb, 4.69550e-01_rb, 4.56697e-01_rb, &\n     & 4.44196e-01_rb, 4.32036e-01_rb, 4.20210e-01_rb, 4.08708e-01_rb, 3.97520e-01_rb, &\n     & 3.86638e-01_rb, 3.76055e-01_rb, 3.65761e-01_rb, 3.55749e-01_rb/)\n      kao_mco( 5, :,11) = (/ &\n     & 1.66977e+00_rb, 1.61807e+00_rb, 1.56798e+00_rb, 1.51943e+00_rb, 1.47239e+00_rb, &\n     & 1.42681e+00_rb, 1.38264e+00_rb, 1.33983e+00_rb, 1.29835e+00_rb, 1.25815e+00_rb, &\n     & 1.21920e+00_rb, 1.18146e+00_rb, 1.14488e+00_rb, 1.10943e+00_rb, 1.07509e+00_rb, &\n     & 1.04180e+00_rb, 1.00955e+00_rb, 9.78295e-01_rb, 9.48008e-01_rb/)\n      kao_mco( 6, :,11) = (/ &\n     & 1.96627e+00_rb, 1.90948e+00_rb, 1.85432e+00_rb, 1.80076e+00_rb, 1.74875e+00_rb, &\n     & 1.69823e+00_rb, 1.64918e+00_rb, 1.60155e+00_rb, 1.55529e+00_rb, 1.51036e+00_rb, &\n     & 1.46674e+00_rb, 1.42437e+00_rb, 1.38323e+00_rb, 1.34328e+00_rb, 1.30448e+00_rb, &\n     & 1.26680e+00_rb, 1.23021e+00_rb, 1.19467e+00_rb, 1.16016e+00_rb/)\n      kao_mco( 7, :,11) = (/ &\n     & 1.67574e+00_rb, 1.63510e+00_rb, 1.59544e+00_rb, 1.55674e+00_rb, 1.51898e+00_rb, &\n     & 1.48213e+00_rb, 1.44618e+00_rb, 1.41111e+00_rb, 1.37688e+00_rb, 1.34348e+00_rb, &\n     & 1.31090e+00_rb, 1.27910e+00_rb, 1.24808e+00_rb, 1.21780e+00_rb, 1.18826e+00_rb, &\n     & 1.15944e+00_rb, 1.13132e+00_rb, 1.10388e+00_rb, 1.07710e+00_rb/)\n      kao_mco( 8, :,11) = (/ &\n     & 2.00764e+00_rb, 1.96233e+00_rb, 1.91803e+00_rb, 1.87474e+00_rb, 1.83242e+00_rb, &\n     & 1.79106e+00_rb, 1.75063e+00_rb, 1.71111e+00_rb, 1.67249e+00_rb, 1.63474e+00_rb, &\n     & 1.59784e+00_rb, 1.56177e+00_rb, 1.52652e+00_rb, 1.49206e+00_rb, 1.45838e+00_rb, &\n     & 1.42546e+00_rb, 1.39329e+00_rb, 1.36184e+00_rb, 1.33110e+00_rb/)\n      kao_mco( 9, :,11) = (/ &\n     & 1.83026e+00_rb, 1.77349e+00_rb, 1.71849e+00_rb, 1.66519e+00_rb, 1.61355e+00_rb, &\n     & 1.56350e+00_rb, 1.51501e+00_rb, 1.46803e+00_rb, 1.42250e+00_rb, 1.37838e+00_rb, &\n     & 1.33563e+00_rb, 1.29421e+00_rb, 1.25407e+00_rb, 1.21517e+00_rb, 1.17749e+00_rb, &\n     & 1.14097e+00_rb, 1.10558e+00_rb, 1.07129e+00_rb, 1.03807e+00_rb/)\n      kao_mco( 1, :,12) = (/ &\n     & 3.90309e-04_rb, 4.81310e-04_rb, 5.93528e-04_rb, 7.31909e-04_rb, 9.02554e-04_rb, &\n     & 1.11299e-03_rb, 1.37248e-03_rb, 1.69247e-03_rb, 2.08708e-03_rb, 2.57368e-03_rb, &\n     & 3.17374e-03_rb, 3.91370e-03_rb, 4.82617e-03_rb, 5.95140e-03_rb, 7.33897e-03_rb, &\n     & 9.05007e-03_rb, 1.11601e-02_rb, 1.37621e-02_rb, 1.69707e-02_rb/)\n      kao_mco( 2, :,12) = (/ &\n     & 9.80585e-02_rb, 9.77457e-02_rb, 9.74339e-02_rb, 9.71231e-02_rb, 9.68132e-02_rb, &\n     & 9.65044e-02_rb, 9.61965e-02_rb, 9.58897e-02_rb, 9.55838e-02_rb, 9.52789e-02_rb, &\n     & 9.49749e-02_rb, 9.46719e-02_rb, 9.43699e-02_rb, 9.40689e-02_rb, 9.37688e-02_rb, &\n     & 9.34697e-02_rb, 9.31715e-02_rb, 9.28743e-02_rb, 9.25780e-02_rb/)\n      kao_mco( 3, :,12) = (/ &\n     & 3.15258e-01_rb, 3.09936e-01_rb, 3.04704e-01_rb, 2.99560e-01_rb, 2.94503e-01_rb, &\n     & 2.89532e-01_rb, 2.84645e-01_rb, 2.79840e-01_rb, 2.75116e-01_rb, 2.70472e-01_rb, &\n     & 2.65906e-01_rb, 2.61417e-01_rb, 2.57004e-01_rb, 2.52666e-01_rb, 2.48401e-01_rb, &\n     & 2.44207e-01_rb, 2.40085e-01_rb, 2.36032e-01_rb, 2.32048e-01_rb/)\n      kao_mco( 4, :,12) = (/ &\n     & 9.74407e-01_rb, 9.46900e-01_rb, 9.20170e-01_rb, 8.94195e-01_rb, 8.68952e-01_rb, &\n     & 8.44422e-01_rb, 8.20585e-01_rb, 7.97421e-01_rb, 7.74910e-01_rb, 7.53035e-01_rb, &\n     & 7.31777e-01_rb, 7.11120e-01_rb, 6.91046e-01_rb, 6.71538e-01_rb, 6.52581e-01_rb, &\n     & 6.34159e-01_rb, 6.16257e-01_rb, 5.98861e-01_rb, 5.81956e-01_rb/)\n      kao_mco( 5, :,12) = (/ &\n     & 1.04234e+00_rb, 1.01364e+00_rb, 9.85726e-01_rb, 9.58581e-01_rb, 9.32184e-01_rb, &\n     & 9.06514e-01_rb, 8.81551e-01_rb, 8.57275e-01_rb, 8.33668e-01_rb, 8.10710e-01_rb, &\n     & 7.88385e-01_rb, 7.66675e-01_rb, 7.45563e-01_rb, 7.25032e-01_rb, 7.05066e-01_rb, &\n     & 6.85650e-01_rb, 6.66769e-01_rb, 6.48408e-01_rb, 6.30552e-01_rb/)\n      kao_mco( 6, :,12) = (/ &\n     & 1.79052e+00_rb, 1.73725e+00_rb, 1.68557e+00_rb, 1.63543e+00_rb, 1.58678e+00_rb, &\n     & 1.53957e+00_rb, 1.49377e+00_rb, 1.44933e+00_rb, 1.40622e+00_rb, 1.36439e+00_rb, &\n     & 1.32380e+00_rb, 1.28442e+00_rb, 1.24621e+00_rb, 1.20913e+00_rb, 1.17316e+00_rb, &\n     & 1.13826e+00_rb, 1.10440e+00_rb, 1.07155e+00_rb, 1.03967e+00_rb/)\n      kao_mco( 7, :,12) = (/ &\n     & 2.99551e+00_rb, 2.90366e+00_rb, 2.81462e+00_rb, 2.72831e+00_rb, 2.64464e+00_rb, &\n     & 2.56355e+00_rb, 2.48494e+00_rb, 2.40874e+00_rb, 2.33487e+00_rb, 2.26328e+00_rb, &\n     & 2.19387e+00_rb, 2.12660e+00_rb, 2.06139e+00_rb, 1.99818e+00_rb, 1.93690e+00_rb, &\n     & 1.87751e+00_rb, 1.81993e+00_rb, 1.76413e+00_rb, 1.71003e+00_rb/)\n      kao_mco( 8, :,12) = (/ &\n     & 2.89665e+00_rb, 2.81184e+00_rb, 2.72951e+00_rb, 2.64960e+00_rb, 2.57202e+00_rb, &\n     & 2.49672e+00_rb, 2.42362e+00_rb, 2.35266e+00_rb, 2.28378e+00_rb, 2.21692e+00_rb, &\n     & 2.15201e+00_rb, 2.08900e+00_rb, 2.02784e+00_rb, 1.96847e+00_rb, 1.91084e+00_rb, &\n     & 1.85489e+00_rb, 1.80059e+00_rb, 1.74787e+00_rb, 1.69669e+00_rb/)\n      kao_mco( 9, :,12) = (/ &\n     & 1.03145e+00_rb, 1.00335e+00_rb, 9.76014e-01_rb, 9.49426e-01_rb, 9.23561e-01_rb, &\n     & 8.98402e-01_rb, 8.73927e-01_rb, 8.50120e-01_rb, 8.26961e-01_rb, 8.04433e-01_rb, &\n     & 7.82518e-01_rb, 7.61201e-01_rb, 7.40464e-01_rb, 7.20293e-01_rb, 7.00670e-01_rb, &\n     & 6.81583e-01_rb, 6.63015e-01_rb, 6.44953e-01_rb, 6.27383e-01_rb/)\n      kao_mco( 1, :,13) = (/ &\n     & 5.27769e-04_rb, 6.65449e-04_rb, 8.39047e-04_rb, 1.05793e-03_rb, 1.33392e-03_rb, &\n     & 1.68190e-03_rb, 2.12066e-03_rb, 2.67388e-03_rb, 3.37143e-03_rb, 4.25094e-03_rb, &\n     & 5.35990e-03_rb, 6.75816e-03_rb, 8.52117e-03_rb, 1.07441e-02_rb, 1.35470e-02_rb, &\n     & 1.70810e-02_rb, 2.15370e-02_rb, 2.71554e-02_rb, 3.42395e-02_rb/)\n      kao_mco( 2, :,13) = (/ &\n     & 1.08329e-01_rb, 1.10179e-01_rb, 1.12060e-01_rb, 1.13974e-01_rb, 1.15920e-01_rb, &\n     & 1.17899e-01_rb, 1.19913e-01_rb, 1.21960e-01_rb, 1.24043e-01_rb, 1.26161e-01_rb, &\n     & 1.28316e-01_rb, 1.30507e-01_rb, 1.32735e-01_rb, 1.35002e-01_rb, 1.37307e-01_rb, &\n     & 1.39652e-01_rb, 1.42037e-01_rb, 1.44462e-01_rb, 1.46929e-01_rb/)\n      kao_mco( 3, :,13) = (/ &\n     & 1.95992e-01_rb, 1.94515e-01_rb, 1.93049e-01_rb, 1.91594e-01_rb, 1.90150e-01_rb, &\n     & 1.88717e-01_rb, 1.87294e-01_rb, 1.85882e-01_rb, 1.84481e-01_rb, 1.83091e-01_rb, &\n     & 1.81711e-01_rb, 1.80341e-01_rb, 1.78982e-01_rb, 1.77633e-01_rb, 1.76294e-01_rb, &\n     & 1.74965e-01_rb, 1.73646e-01_rb, 1.72337e-01_rb, 1.71038e-01_rb/)\n      kao_mco( 4, :,13) = (/ &\n     & 4.49766e-01_rb, 4.42749e-01_rb, 4.35841e-01_rb, 4.29042e-01_rb, 4.22348e-01_rb, &\n     & 4.15759e-01_rb, 4.09272e-01_rb, 4.02887e-01_rb, 3.96601e-01_rb, 3.90414e-01_rb, &\n     & 3.84323e-01_rb, 3.78327e-01_rb, 3.72424e-01_rb, 3.66614e-01_rb, 3.60894e-01_rb, &\n     & 3.55264e-01_rb, 3.49721e-01_rb, 3.44265e-01_rb, 3.38894e-01_rb/)\n      kao_mco( 5, :,13) = (/ &\n     & 1.07498e+00_rb, 1.04736e+00_rb, 1.02045e+00_rb, 9.94232e-01_rb, 9.68686e-01_rb, &\n     & 9.43797e-01_rb, 9.19547e-01_rb, 8.95920e-01_rb, 8.72900e-01_rb, 8.50471e-01_rb, &\n     & 8.28619e-01_rb, 8.07329e-01_rb, 7.86585e-01_rb, 7.66374e-01_rb, 7.46683e-01_rb, &\n     & 7.27498e-01_rb, 7.08805e-01_rb, 6.90593e-01_rb, 6.72849e-01_rb/)\n      kao_mco( 6, :,13) = (/ &\n     & 1.66569e+00_rb, 1.61740e+00_rb, 1.57052e+00_rb, 1.52500e+00_rb, 1.48080e+00_rb, &\n     & 1.43787e+00_rb, 1.39620e+00_rb, 1.35573e+00_rb, 1.31643e+00_rb, 1.27827e+00_rb, &\n     & 1.24122e+00_rb, 1.20524e+00_rb, 1.17031e+00_rb, 1.13638e+00_rb, 1.10344e+00_rb, &\n     & 1.07146e+00_rb, 1.04040e+00_rb, 1.01025e+00_rb, 9.80963e-01_rb/)\n      kao_mco( 7, :,13) = (/ &\n     & 1.52948e+00_rb, 1.48763e+00_rb, 1.44693e+00_rb, 1.40735e+00_rb, 1.36884e+00_rb, &\n     & 1.33139e+00_rb, 1.29497e+00_rb, 1.25954e+00_rb, 1.22508e+00_rb, 1.19156e+00_rb, &\n     & 1.15896e+00_rb, 1.12725e+00_rb, 1.09641e+00_rb, 1.06641e+00_rb, 1.03724e+00_rb, &\n     & 1.00886e+00_rb, 9.81259e-01_rb, 9.54412e-01_rb, 9.28301e-01_rb/)\n      kao_mco( 8, :,13) = (/ &\n     & 3.81027e+00_rb, 3.69422e+00_rb, 3.58170e+00_rb, 3.47261e+00_rb, 3.36684e+00_rb, &\n     & 3.26429e+00_rb, 3.16486e+00_rb, 3.06847e+00_rb, 2.97501e+00_rb, 2.88439e+00_rb, &\n     & 2.79654e+00_rb, 2.71136e+00_rb, 2.62878e+00_rb, 2.54871e+00_rb, 2.47108e+00_rb, &\n     & 2.39581e+00_rb, 2.32284e+00_rb, 2.25209e+00_rb, 2.18350e+00_rb/)\n      kao_mco( 9, :,13) = (/ &\n     & 1.12516e+00_rb, 1.09531e+00_rb, 1.06625e+00_rb, 1.03796e+00_rb, 1.01042e+00_rb, &\n     & 9.83616e-01_rb, 9.57520e-01_rb, 9.32117e-01_rb, 9.07387e-01_rb, 8.83314e-01_rb, &\n     & 8.59880e-01_rb, 8.37067e-01_rb, 8.14859e-01_rb, 7.93241e-01_rb, 7.72196e-01_rb, &\n     & 7.51709e-01_rb, 7.31766e-01_rb, 7.12352e-01_rb, 6.93454e-01_rb/)\n      kao_mco( 1, :,14) = (/ &\n     & 4.79165e-04_rb, 6.26966e-04_rb, 8.20356e-04_rb, 1.07340e-03_rb, 1.40450e-03_rb, &\n     & 1.83772e-03_rb, 2.40457e-03_rb, 3.14628e-03_rb, 4.11676e-03_rb, 5.38660e-03_rb, &\n     & 7.04813e-03_rb, 9.22216e-03_rb, 1.20668e-02_rb, 1.57889e-02_rb, 2.06590e-02_rb, &\n     & 2.70314e-02_rb, 3.53694e-02_rb, 4.62792e-02_rb, 6.05542e-02_rb/)\n      kao_mco( 2, :,14) = (/ &\n     & 4.75367e-04_rb, 6.21987e-04_rb, 8.13830e-04_rb, 1.06484e-03_rb, 1.39328e-03_rb, &\n     & 1.82302e-03_rb, 2.38530e-03_rb, 3.12101e-03_rb, 4.08365e-03_rb, 5.34318e-03_rb, &\n     & 6.99121e-03_rb, 9.14756e-03_rb, 1.19690e-02_rb, 1.56607e-02_rb, 2.04909e-02_rb, &\n     & 2.68111e-02_rb, 3.50806e-02_rb, 4.59007e-02_rb, 6.00580e-02_rb/)\n      kao_mco( 3, :,14) = (/ &\n     & 1.39594e-01_rb, 1.42407e-01_rb, 1.45276e-01_rb, 1.48202e-01_rb, 1.51188e-01_rb, &\n     & 1.54234e-01_rb, 1.57342e-01_rb, 1.60512e-01_rb, 1.63745e-01_rb, 1.67044e-01_rb, &\n     & 1.70410e-01_rb, 1.73843e-01_rb, 1.77345e-01_rb, 1.80918e-01_rb, 1.84563e-01_rb, &\n     & 1.88282e-01_rb, 1.92075e-01_rb, 1.95945e-01_rb, 1.99892e-01_rb/)\n      kao_mco( 4, :,14) = (/ &\n     & 2.73418e-01_rb, 2.71322e-01_rb, 2.69242e-01_rb, 2.67177e-01_rb, 2.65129e-01_rb, &\n     & 2.63096e-01_rb, 2.61079e-01_rb, 2.59077e-01_rb, 2.57091e-01_rb, 2.55120e-01_rb, &\n     & 2.53164e-01_rb, 2.51223e-01_rb, 2.49297e-01_rb, 2.47386e-01_rb, 2.45489e-01_rb, &\n     & 2.43607e-01_rb, 2.41739e-01_rb, 2.39886e-01_rb, 2.38047e-01_rb/)\n      kao_mco( 5, :,14) = (/ &\n     & 5.01880e-01_rb, 4.95066e-01_rb, 4.88344e-01_rb, 4.81713e-01_rb, 4.75173e-01_rb, &\n     & 4.68721e-01_rb, 4.62357e-01_rb, 4.56079e-01_rb, 4.49887e-01_rb, 4.43778e-01_rb, &\n     & 4.37753e-01_rb, 4.31809e-01_rb, 4.25946e-01_rb, 4.20163e-01_rb, 4.14458e-01_rb, &\n     & 4.08830e-01_rb, 4.03279e-01_rb, 3.97804e-01_rb, 3.92403e-01_rb/)\n      kao_mco( 6, :,14) = (/ &\n     & 9.46125e-01_rb, 9.29642e-01_rb, 9.13447e-01_rb, 8.97533e-01_rb, 8.81897e-01_rb, &\n     & 8.66533e-01_rb, 8.51437e-01_rb, 8.36603e-01_rb, 8.22029e-01_rb, 8.07708e-01_rb, &\n     & 7.93636e-01_rb, 7.79810e-01_rb, 7.66225e-01_rb, 7.52876e-01_rb, 7.39760e-01_rb, &\n     & 7.26872e-01_rb, 7.14209e-01_rb, 7.01766e-01_rb, 6.89540e-01_rb/)\n      kao_mco( 7, :,14) = (/ &\n     & 2.47697e+00_rb, 2.41183e+00_rb, 2.34840e+00_rb, 2.28664e+00_rb, 2.22650e+00_rb, &\n     & 2.16795e+00_rb, 2.11093e+00_rb, 2.05541e+00_rb, 2.00136e+00_rb, 1.94872e+00_rb, &\n     & 1.89747e+00_rb, 1.84757e+00_rb, 1.79898e+00_rb, 1.75167e+00_rb, 1.70560e+00_rb, &\n     & 1.66074e+00_rb, 1.61707e+00_rb, 1.57454e+00_rb, 1.53313e+00_rb/)\n      kao_mco( 8, :,14) = (/ &\n     & 2.19323e+00_rb, 2.13926e+00_rb, 2.08662e+00_rb, 2.03528e+00_rb, 1.98519e+00_rb, &\n     & 1.93635e+00_rb, 1.88870e+00_rb, 1.84222e+00_rb, 1.79689e+00_rb, 1.75268e+00_rb, &\n     & 1.70955e+00_rb, 1.66748e+00_rb, 1.62645e+00_rb, 1.58643e+00_rb, 1.54739e+00_rb, &\n     & 1.50932e+00_rb, 1.47218e+00_rb, 1.43595e+00_rb, 1.40062e+00_rb/)\n      kao_mco( 9, :,14) = (/ &\n     & 5.68351e-01_rb, 5.60360e-01_rb, 5.52481e-01_rb, 5.44712e-01_rb, 5.37053e-01_rb, &\n     & 5.29502e-01_rb, 5.22057e-01_rb, 5.14716e-01_rb, 5.07479e-01_rb, 5.00343e-01_rb, &\n     & 4.93308e-01_rb, 4.86372e-01_rb, 4.79533e-01_rb, 4.72790e-01_rb, 4.66142e-01_rb, &\n     & 4.59588e-01_rb, 4.53126e-01_rb, 4.46754e-01_rb, 4.40473e-01_rb/)\n      kao_mco( 1, :,15) = (/ &\n     & 7.87937e-04_rb, 1.01733e-03_rb, 1.31351e-03_rb, 1.69591e-03_rb, 2.18964e-03_rb, &\n     & 2.82712e-03_rb, 3.65018e-03_rb, 4.71286e-03_rb, 6.08493e-03_rb, 7.85644e-03_rb, &\n     & 1.01437e-02_rb, 1.30969e-02_rb, 1.69098e-02_rb, 2.18327e-02_rb, 2.81889e-02_rb, &\n     & 3.63956e-02_rb, 4.69915e-02_rb, 6.06722e-02_rb, 7.83357e-02_rb/)\n      kao_mco( 2, :,15) = (/ &\n     & 7.87937e-04_rb, 1.01733e-03_rb, 1.31351e-03_rb, 1.69591e-03_rb, 2.18964e-03_rb, &\n     & 2.82712e-03_rb, 3.65018e-03_rb, 4.71286e-03_rb, 6.08493e-03_rb, 7.85644e-03_rb, &\n     & 1.01437e-02_rb, 1.30969e-02_rb, 1.69098e-02_rb, 2.18327e-02_rb, 2.81889e-02_rb, &\n     & 3.63956e-02_rb, 4.69915e-02_rb, 6.06722e-02_rb, 7.83357e-02_rb/)\n      kao_mco( 3, :,15) = (/ &\n     & 1.97281e-01_rb, 2.00714e-01_rb, 2.04206e-01_rb, 2.07760e-01_rb, 2.11375e-01_rb, &\n     & 2.15053e-01_rb, 2.18795e-01_rb, 2.22603e-01_rb, 2.26476e-01_rb, 2.30417e-01_rb, &\n     & 2.34426e-01_rb, 2.38506e-01_rb, 2.42656e-01_rb, 2.46878e-01_rb, 2.51174e-01_rb, &\n     & 2.55545e-01_rb, 2.59992e-01_rb, 2.64516e-01_rb, 2.69119e-01_rb/)\n      kao_mco( 4, :,15) = (/ &\n     & 4.47509e-01_rb, 4.52222e-01_rb, 4.56985e-01_rb, 4.61799e-01_rb, 4.66663e-01_rb, &\n     & 4.71578e-01_rb, 4.76545e-01_rb, 4.81565e-01_rb, 4.86637e-01_rb, 4.91763e-01_rb, &\n     & 4.96942e-01_rb, 5.02177e-01_rb, 5.07466e-01_rb, 5.12811e-01_rb, 5.18213e-01_rb, &\n     & 5.23671e-01_rb, 5.29187e-01_rb, 5.34761e-01_rb, 5.40393e-01_rb/)\n      kao_mco( 5, :,15) = (/ &\n     & 1.02732e+00_rb, 1.02091e+00_rb, 1.01453e+00_rb, 1.00820e+00_rb, 1.00191e+00_rb, &\n     & 9.95660e-01_rb, 9.89447e-01_rb, 9.83273e-01_rb, 9.77137e-01_rb, 9.71039e-01_rb, &\n     & 9.64980e-01_rb, 9.58958e-01_rb, 9.52974e-01_rb, 9.47027e-01_rb, 9.41118e-01_rb, &\n     & 9.35245e-01_rb, 9.29409e-01_rb, 9.23609e-01_rb, 9.17846e-01_rb/)\n      kao_mco( 6, :,15) = (/ &\n     & 1.13766e+00_rb, 1.12944e+00_rb, 1.12128e+00_rb, 1.11318e+00_rb, 1.10514e+00_rb, &\n     & 1.09715e+00_rb, 1.08923e+00_rb, 1.08136e+00_rb, 1.07355e+00_rb, 1.06579e+00_rb, &\n     & 1.05809e+00_rb, 1.05045e+00_rb, 1.04286e+00_rb, 1.03532e+00_rb, 1.02784e+00_rb, &\n     & 1.02042e+00_rb, 1.01305e+00_rb, 1.00573e+00_rb, 9.98462e-01_rb/)\n      kao_mco( 7, :,15) = (/ &\n     & 1.13268e+00_rb, 1.12496e+00_rb, 1.11730e+00_rb, 1.10969e+00_rb, 1.10213e+00_rb, &\n     & 1.09462e+00_rb, 1.08717e+00_rb, 1.07976e+00_rb, 1.07241e+00_rb, 1.06510e+00_rb, &\n     & 1.05785e+00_rb, 1.05064e+00_rb, 1.04349e+00_rb, 1.03638e+00_rb, 1.02932e+00_rb, &\n     & 1.02231e+00_rb, 1.01535e+00_rb, 1.00843e+00_rb, 1.00156e+00_rb/)\n      kao_mco( 8, :,15) = (/ &\n     & 1.11982e+00_rb, 1.11343e+00_rb, 1.10707e+00_rb, 1.10075e+00_rb, 1.09447e+00_rb, &\n     & 1.08822e+00_rb, 1.08201e+00_rb, 1.07583e+00_rb, 1.06969e+00_rb, 1.06358e+00_rb, &\n     & 1.05751e+00_rb, 1.05147e+00_rb, 1.04547e+00_rb, 1.03950e+00_rb, 1.03356e+00_rb, &\n     & 1.02766e+00_rb, 1.02180e+00_rb, 1.01596e+00_rb, 1.01016e+00_rb/)\n      kao_mco( 9, :,15) = (/ &\n     & 1.03561e+00_rb, 1.02902e+00_rb, 1.02246e+00_rb, 1.01595e+00_rb, 1.00948e+00_rb, &\n     & 1.00305e+00_rb, 9.96667e-01_rb, 9.90320e-01_rb, 9.84013e-01_rb, 9.77747e-01_rb, &\n     & 9.71520e-01_rb, 9.65334e-01_rb, 9.59186e-01_rb, 9.53078e-01_rb, 9.47008e-01_rb, &\n     & 9.40978e-01_rb, 9.34985e-01_rb, 9.29031e-01_rb, 9.23115e-01_rb/)\n      kao_mco( 1, :,16) = (/ &\n     & 1.22217e-03_rb, 1.56836e-03_rb, 2.01261e-03_rb, 2.58271e-03_rb, 3.31429e-03_rb, &\n     & 4.25310e-03_rb, 5.45784e-03_rb, 7.00383e-03_rb, 8.98775e-03_rb, 1.15336e-02_rb, &\n     & 1.48007e-02_rb, 1.89931e-02_rb, 2.43731e-02_rb, 3.12771e-02_rb, 4.01367e-02_rb, &\n     & 5.15059e-02_rb, 6.60956e-02_rb, 8.48179e-02_rb, 1.08843e-01_rb/)\n      kao_mco( 2, :,16) = (/ &\n     & 1.22217e-03_rb, 1.56836e-03_rb, 2.01261e-03_rb, 2.58271e-03_rb, 3.31429e-03_rb, &\n     & 4.25310e-03_rb, 5.45784e-03_rb, 7.00383e-03_rb, 8.98775e-03_rb, 1.15336e-02_rb, &\n     & 1.48007e-02_rb, 1.89931e-02_rb, 2.43731e-02_rb, 3.12771e-02_rb, 4.01367e-02_rb, &\n     & 5.15059e-02_rb, 6.60956e-02_rb, 8.48179e-02_rb, 1.08843e-01_rb/)\n      kao_mco( 3, :,16) = (/ &\n     & 1.22217e-03_rb, 1.56836e-03_rb, 2.01261e-03_rb, 2.58271e-03_rb, 3.31429e-03_rb, &\n     & 4.25310e-03_rb, 5.45784e-03_rb, 7.00383e-03_rb, 8.98775e-03_rb, 1.15336e-02_rb, &\n     & 1.48007e-02_rb, 1.89931e-02_rb, 2.43731e-02_rb, 3.12771e-02_rb, 4.01367e-02_rb, &\n     & 5.15059e-02_rb, 6.60956e-02_rb, 8.48179e-02_rb, 1.08843e-01_rb/)\n      kao_mco( 4, :,16) = (/ &\n     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &\n     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &\n     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &\n     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)\n      kao_mco( 5, :,16) = (/ &\n     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &\n     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &\n     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &\n     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)\n      kao_mco( 6, :,16) = (/ &\n     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &\n     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &\n     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &\n     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)\n      kao_mco( 7, :,16) = (/ &\n     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &\n     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &\n     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &\n     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)\n      kao_mco( 8, :,16) = (/ &\n     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &\n     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &\n     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &\n     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)\n      kao_mco( 9, :,16) = (/ &\n     & 1.01221e+00_rb, 1.01660e+00_rb, 1.02101e+00_rb, 1.02544e+00_rb, 1.02989e+00_rb, &\n     & 1.03436e+00_rb, 1.03884e+00_rb, 1.04335e+00_rb, 1.04788e+00_rb, 1.05243e+00_rb, &\n     & 1.05699e+00_rb, 1.06158e+00_rb, 1.06619e+00_rb, 1.07081e+00_rb, 1.07546e+00_rb, &\n     & 1.08012e+00_rb, 1.08481e+00_rb, 1.08952e+00_rb, 1.09425e+00_rb/)\n\n!     The array KBO_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level above 100~ mb.   The first index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The second index \n!     runs over the g-channel (1 to 16).\n\n      kbo_mo3(:, 1) = (/ &\n     & 1.07596e-02_rb, 1.12146e-02_rb, 1.16887e-02_rb, 1.21830e-02_rb, 1.26981e-02_rb, &\n     & 1.32350e-02_rb, 1.37946e-02_rb, 1.43779e-02_rb, 1.49858e-02_rb, 1.56194e-02_rb, &\n     & 1.62799e-02_rb, 1.69682e-02_rb, 1.76857e-02_rb, 1.84334e-02_rb, 1.92129e-02_rb, &\n     & 2.00252e-02_rb, 2.08719e-02_rb, 2.17544e-02_rb, 2.26743e-02_rb/)\n      kbo_mo3(:, 2) = (/ &\n     & 9.48276e-02_rb, 9.66591e-02_rb, 9.85260e-02_rb, 1.00429e-01_rb, 1.02369e-01_rb, &\n     & 1.04346e-01_rb, 1.06361e-01_rb, 1.08416e-01_rb, 1.10510e-01_rb, 1.12644e-01_rb, &\n     & 1.14820e-01_rb, 1.17037e-01_rb, 1.19298e-01_rb, 1.21602e-01_rb, 1.23951e-01_rb, &\n     & 1.26345e-01_rb, 1.28785e-01_rb, 1.31273e-01_rb, 1.33808e-01_rb/)\n      kbo_mo3(:, 3) = (/ &\n     & 3.54721e-01_rb, 3.55779e-01_rb, 3.56841e-01_rb, 3.57906e-01_rb, 3.58973e-01_rb, &\n     & 3.60044e-01_rb, 3.61119e-01_rb, 3.62196e-01_rb, 3.63277e-01_rb, 3.64360e-01_rb, &\n     & 3.65448e-01_rb, 3.66538e-01_rb, 3.67631e-01_rb, 3.68728e-01_rb, 3.69828e-01_rb, &\n     & 3.70932e-01_rb, 3.72038e-01_rb, 3.73148e-01_rb, 3.74262e-01_rb/)\n      kbo_mo3(:, 4) = (/ &\n     & 6.46454e-01_rb, 6.43823e-01_rb, 6.41202e-01_rb, 6.38593e-01_rb, 6.35994e-01_rb, &\n     & 6.33405e-01_rb, 6.30827e-01_rb, 6.28260e-01_rb, 6.25703e-01_rb, 6.23156e-01_rb, &\n     & 6.20620e-01_rb, 6.18094e-01_rb, 6.15578e-01_rb, 6.13073e-01_rb, 6.10578e-01_rb, &\n     & 6.08093e-01_rb, 6.05618e-01_rb, 6.03153e-01_rb, 6.00698e-01_rb/)\n      kbo_mo3(:, 5) = (/ &\n     & 9.29832e-01_rb, 9.22877e-01_rb, 9.15975e-01_rb, 9.09124e-01_rb, 9.02324e-01_rb, &\n     & 8.95576e-01_rb, 8.88877e-01_rb, 8.82229e-01_rb, 8.75631e-01_rb, 8.69082e-01_rb, &\n     & 8.62582e-01_rb, 8.56130e-01_rb, 8.49727e-01_rb, 8.43372e-01_rb, 8.37064e-01_rb, &\n     & 8.30803e-01_rb, 8.24589e-01_rb, 8.18422e-01_rb, 8.12301e-01_rb/)\n      kbo_mo3(:, 6) = (/ &\n     & 1.43531e+00_rb, 1.42616e+00_rb, 1.41706e+00_rb, 1.40802e+00_rb, 1.39903e+00_rb, &\n     & 1.39010e+00_rb, 1.38124e+00_rb, 1.37242e+00_rb, 1.36367e+00_rb, 1.35496e+00_rb, &\n     & 1.34632e+00_rb, 1.33773e+00_rb, 1.32919e+00_rb, 1.32071e+00_rb, 1.31229e+00_rb, &\n     & 1.30391e+00_rb, 1.29559e+00_rb, 1.28733e+00_rb, 1.27911e+00_rb/)\n      kbo_mo3(:, 7) = (/ &\n     & 2.68664e+00_rb, 2.67196e+00_rb, 2.65736e+00_rb, 2.64284e+00_rb, 2.62840e+00_rb, &\n     & 2.61404e+00_rb, 2.59975e+00_rb, 2.58555e+00_rb, 2.57142e+00_rb, 2.55737e+00_rb, &\n     & 2.54340e+00_rb, 2.52950e+00_rb, 2.51568e+00_rb, 2.50193e+00_rb, 2.48826e+00_rb, &\n     & 2.47466e+00_rb, 2.46114e+00_rb, 2.44769e+00_rb, 2.43432e+00_rb/)\n      kbo_mo3(:, 8) = (/ &\n     & 2.45343e+00_rb, 2.43442e+00_rb, 2.41556e+00_rb, 2.39684e+00_rb, 2.37827e+00_rb, &\n     & 2.35984e+00_rb, 2.34156e+00_rb, 2.32342e+00_rb, 2.30541e+00_rb, 2.28755e+00_rb, &\n     & 2.26983e+00_rb, 2.25224e+00_rb, 2.23479e+00_rb, 2.21747e+00_rb, 2.20029e+00_rb, &\n     & 2.18324e+00_rb, 2.16633e+00_rb, 2.14954e+00_rb, 2.13289e+00_rb/)\n      kbo_mo3(:, 9) = (/ &\n     & 1.55879e-01_rb, 1.55998e-01_rb, 1.56118e-01_rb, 1.56238e-01_rb, 1.56358e-01_rb, &\n     & 1.56478e-01_rb, 1.56599e-01_rb, 1.56719e-01_rb, 1.56840e-01_rb, 1.56960e-01_rb, &\n     & 1.57081e-01_rb, 1.57201e-01_rb, 1.57322e-01_rb, 1.57443e-01_rb, 1.57564e-01_rb, &\n     & 1.57685e-01_rb, 1.57806e-01_rb, 1.57928e-01_rb, 1.58049e-01_rb/)\n      kbo_mo3(:,10) = (/ &\n     & 8.75149e-03_rb, 8.88794e-03_rb, 9.02651e-03_rb, 9.16725e-03_rb, 9.31018e-03_rb, &\n     & 9.45534e-03_rb, 9.60276e-03_rb, 9.75248e-03_rb, 9.90454e-03_rb, 1.00590e-02_rb, &\n     & 1.02158e-02_rb, 1.03751e-02_rb, 1.05368e-02_rb, 1.07011e-02_rb, 1.08680e-02_rb, &\n     & 1.10374e-02_rb, 1.12095e-02_rb, 1.13843e-02_rb, 1.15618e-02_rb/)\n      kbo_mo3(:,11) = (/ &\n     & 8.83874e-03_rb, 8.97926e-03_rb, 9.12201e-03_rb, 9.26703e-03_rb, 9.41436e-03_rb, &\n     & 9.56403e-03_rb, 9.71608e-03_rb, 9.87055e-03_rb, 1.00275e-02_rb, 1.01869e-02_rb, &\n     & 1.03488e-02_rb, 1.05134e-02_rb, 1.06805e-02_rb, 1.08503e-02_rb, 1.10228e-02_rb, &\n     & 1.11980e-02_rb, 1.13761e-02_rb, 1.15569e-02_rb, 1.17407e-02_rb/)\n      kbo_mo3(:,12) = (/ &\n     & 9.59461e-03_rb, 9.70417e-03_rb, 9.81498e-03_rb, 9.92705e-03_rb, 1.00404e-02_rb, &\n     & 1.01550e-02_rb, 1.02710e-02_rb, 1.03883e-02_rb, 1.05069e-02_rb, 1.06269e-02_rb, &\n     & 1.07482e-02_rb, 1.08709e-02_rb, 1.09951e-02_rb, 1.11206e-02_rb, 1.12476e-02_rb, &\n     & 1.13760e-02_rb, 1.15059e-02_rb, 1.16373e-02_rb, 1.17702e-02_rb/)\n      kbo_mo3(:,13) = (/ &\n     & 1.13077e-02_rb, 1.14079e-02_rb, 1.15089e-02_rb, 1.16109e-02_rb, 1.17138e-02_rb, &\n     & 1.18176e-02_rb, 1.19223e-02_rb, 1.20279e-02_rb, 1.21344e-02_rb, 1.22419e-02_rb, &\n     & 1.23504e-02_rb, 1.24598e-02_rb, 1.25702e-02_rb, 1.26816e-02_rb, 1.27939e-02_rb, &\n     & 1.29073e-02_rb, 1.30216e-02_rb, 1.31370e-02_rb, 1.32534e-02_rb/)\n      kbo_mo3(:,14) = (/ &\n     & 6.74844e-03_rb, 6.82637e-03_rb, 6.90519e-03_rb, 6.98493e-03_rb, 7.06558e-03_rb, &\n     & 7.14717e-03_rb, 7.22970e-03_rb, 7.31318e-03_rb, 7.39762e-03_rb, 7.48304e-03_rb, &\n     & 7.56945e-03_rb, 7.65686e-03_rb, 7.74527e-03_rb, 7.83470e-03_rb, 7.92517e-03_rb, &\n     & 8.01668e-03_rb, 8.10925e-03_rb, 8.20289e-03_rb, 8.29761e-03_rb/)\n      kbo_mo3(:,15) = (/ &\n     & 7.94595e-03_rb, 8.00015e-03_rb, 8.05472e-03_rb, 8.10966e-03_rb, 8.16497e-03_rb, &\n     & 8.22067e-03_rb, 8.27674e-03_rb, 8.33320e-03_rb, 8.39004e-03_rb, 8.44727e-03_rb, &\n     & 8.50489e-03_rb, 8.56290e-03_rb, 8.62130e-03_rb, 8.68011e-03_rb, 8.73932e-03_rb, &\n     & 8.79893e-03_rb, 8.85895e-03_rb, 8.91937e-03_rb, 8.98021e-03_rb/)\n      kbo_mo3(:,16) = (/ &\n     & 1.85967e-03_rb, 1.86082e-03_rb, 1.86197e-03_rb, 1.86312e-03_rb, 1.86428e-03_rb, &\n     & 1.86543e-03_rb, 1.86658e-03_rb, 1.86774e-03_rb, 1.86889e-03_rb, 1.87005e-03_rb, &\n     & 1.87121e-03_rb, 1.87236e-03_rb, 1.87352e-03_rb, 1.87468e-03_rb, 1.87584e-03_rb, &\n     & 1.87700e-03_rb, 1.87816e-03_rb, 1.87932e-03_rb, 1.88049e-03_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &1.6586e-05_rb,1.9995e-05_rb,1.8582e-05_rb,1.3988e-05_rb,1.3650e-05_rb,1.1079e-05_rb, &\n     &9.5855e-06_rb,8.4062e-06_rb,1.3558e-05_rb,1.8620e-05_rb,2.2652e-05_rb,1.7883e-05_rb, &\n     &2.6241e-05_rb,3.1171e-05_rb,3.9386e-05_rb,4.4415e-05_rb/)\n      forrefo(2,:) = (/ &\n     &2.0730e-05_rb,2.3258e-05_rb,2.1543e-05_rb,1.5660e-05_rb,9.7872e-06_rb,8.1078e-06_rb, &\n     &7.0246e-06_rb,6.0428e-06_rb,4.8793e-06_rb,4.4937e-06_rb,4.7078e-06_rb,4.6898e-06_rb, &\n     &6.9481e-06_rb,8.6269e-06_rb,3.1761e-06_rb,3.1440e-06_rb/)\n      forrefo(3,:) = (/ &\n     &1.5737e-05_rb,2.2501e-05_rb,2.3520e-05_rb,2.0288e-05_rb,1.2083e-05_rb,6.8256e-06_rb, &\n     &6.0637e-06_rb,5.5434e-06_rb,4.3888e-06_rb,3.8435e-06_rb,3.8477e-06_rb,3.8314e-06_rb, &\n     &3.8251e-06_rb,3.3637e-06_rb,3.1950e-06_rb,3.1440e-06_rb/)\n      forrefo(4,:) = (/ &\n     &1.1400e-05_rb,7.9751e-06_rb,8.8659e-06_rb,1.5884e-05_rb,1.9118e-05_rb,1.9429e-05_rb, &\n     &2.0532e-05_rb,2.2155e-05_rb,2.3894e-05_rb,2.2984e-05_rb,2.3731e-05_rb,2.4538e-05_rb, &\n     &2.6697e-05_rb,1.9329e-05_rb,3.3306e-06_rb,3.2018e-06_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 9.62275e-03_rb, 8.29909e-03_rb, 7.15750e-03_rb, 6.17294e-03_rb, 5.32382e-03_rb, &\n     & 4.59150e-03_rb, 3.95991e-03_rb, 3.41520e-03_rb, 2.94542e-03_rb, 2.54026e-03_rb/)\n      selfrefo(:, 2) = (/ &\n     & 9.76664e-03_rb, 8.47783e-03_rb, 7.35910e-03_rb, 6.38799e-03_rb, 5.54504e-03_rb, &\n     & 4.81331e-03_rb, 4.17815e-03_rb, 3.62680e-03_rb, 3.14821e-03_rb, 2.73277e-03_rb/)\n      selfrefo(:, 3) = (/ &\n     & 9.53856e-03_rb, 8.23750e-03_rb, 7.11390e-03_rb, 6.14356e-03_rb, 5.30558e-03_rb, &\n     & 4.58190e-03_rb, 3.95693e-03_rb, 3.41720e-03_rb, 2.95109e-03_rb, 2.54856e-03_rb/)\n      selfrefo(:, 4) = (/ &\n     & 8.47621e-03_rb, 7.29518e-03_rb, 6.27870e-03_rb, 5.40385e-03_rb, 4.65091e-03_rb, &\n     & 4.00287e-03_rb, 3.44513e-03_rb, 2.96510e-03_rb, 2.55196e-03_rb, 2.19638e-03_rb/)\n      selfrefo(:, 5) = (/ &\n     & 6.71258e-03_rb, 5.95346e-03_rb, 5.28020e-03_rb, 4.68307e-03_rb, 4.15348e-03_rb, &\n     & 3.68377e-03_rb, 3.26718e-03_rb, 2.89770e-03_rb, 2.57000e-03_rb, 2.27937e-03_rb/)\n      selfrefo(:, 6) = (/ &\n     & 6.29140e-03_rb, 5.55557e-03_rb, 4.90580e-03_rb, 4.33203e-03_rb, 3.82536e-03_rb, &\n     & 3.37795e-03_rb, 2.98287e-03_rb, 2.63400e-03_rb, 2.32593e-03_rb, 2.05389e-03_rb/)\n      selfrefo(:, 7) = (/ &\n     & 6.00229e-03_rb, 5.28180e-03_rb, 4.64780e-03_rb, 4.08990e-03_rb, 3.59897e-03_rb, &\n     & 3.16696e-03_rb, 2.78682e-03_rb, 2.45230e-03_rb, 2.15794e-03_rb, 1.89891e-03_rb/)\n      selfrefo(:, 8) = (/ &\n     & 5.78892e-03_rb, 5.07191e-03_rb, 4.44370e-03_rb, 3.89330e-03_rb, 3.41108e-03_rb, &\n     & 2.98858e-03_rb, 2.61842e-03_rb, 2.29410e-03_rb, 2.00995e-03_rb, 1.76100e-03_rb/)\n      selfrefo(:, 9) = (/ &\n     & 4.96186e-03_rb, 4.56767e-03_rb, 4.20480e-03_rb, 3.87076e-03_rb, 3.56325e-03_rb, &\n     & 3.28017e-03_rb, 3.01959e-03_rb, 2.77970e-03_rb, 2.55887e-03_rb, 2.35559e-03_rb/)\n      selfrefo(:,10) = (/ &\n     & 4.56849e-03_rb, 4.35527e-03_rb, 4.15200e-03_rb, 3.95822e-03_rb, 3.77348e-03_rb, &\n     & 3.59736e-03_rb, 3.42946e-03_rb, 3.26940e-03_rb, 3.11681e-03_rb, 2.97134e-03_rb/)\n      selfrefo(:,11) = (/ &\n     & 4.47310e-03_rb, 4.32453e-03_rb, 4.18090e-03_rb, 4.04204e-03_rb, 3.90779e-03_rb, &\n     & 3.77799e-03_rb, 3.65251e-03_rb, 3.53120e-03_rb, 3.41392e-03_rb, 3.30053e-03_rb/)\n      selfrefo(:,12) = (/ &\n     & 4.46459e-03_rb, 4.24031e-03_rb, 4.02730e-03_rb, 3.82499e-03_rb, 3.63284e-03_rb, &\n     & 3.45035e-03_rb, 3.27702e-03_rb, 3.11240e-03_rb, 2.95605e-03_rb, 2.80755e-03_rb/)\n      selfrefo(:,13) = (/ &\n     & 4.43961e-03_rb, 4.35658e-03_rb, 4.27510e-03_rb, 4.19514e-03_rb, 4.11669e-03_rb, &\n     & 4.03969e-03_rb, 3.96414e-03_rb, 3.89000e-03_rb, 3.81725e-03_rb, 3.74585e-03_rb/)\n      selfrefo(:,14) = (/ &\n     & 4.40512e-03_rb, 4.41515e-03_rb, 4.42520e-03_rb, 4.43527e-03_rb, 4.44537e-03_rb, &\n     & 4.45549e-03_rb, 4.46563e-03_rb, 4.47580e-03_rb, 4.48599e-03_rb, 4.49620e-03_rb/)\n      selfrefo(:,15) = (/ &\n     & 3.21965e-03_rb, 3.42479e-03_rb, 3.64300e-03_rb, 3.87512e-03_rb, 4.12202e-03_rb, &\n     & 4.38466e-03_rb, 4.66403e-03_rb, 4.96120e-03_rb, 5.27731e-03_rb, 5.61355e-03_rb/)\n      selfrefo(:,16) = (/ &\n     & 3.11402e-03_rb, 3.35870e-03_rb, 3.62260e-03_rb, 3.90724e-03_rb, 4.21424e-03_rb, &\n     & 4.54536e-03_rb, 4.90250e-03_rb, 5.28770e-03_rb, 5.70317e-03_rb, 6.15128e-03_rb/)\n\n      end subroutine lw_kgb13\n\n! **************************************************************************\n      subroutine lw_kgb14\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg14, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 142.5940 mb, T = 215.70 K\n      fracrefao(:) = (/ &\n     &  1.9360e-01_rb, 1.7276e-01_rb, 1.4811e-01_rb, 1.2238e-01_rb, &\n     &  1.0242e-01_rb, 8.6830e-02_rb, 7.1890e-02_rb, 5.4030e-02_rb, &\n     &  3.5075e-02_rb, 3.8052e-03_rb, 3.1458e-03_rb, 2.4873e-03_rb, &\n     &  1.8182e-03_rb, 1.1563e-03_rb, 4.3251e-04_rb, 5.7744e-05_rb/)\n\n! Planck fraction mapping level : P = 4.758820mb, T = 250.85 K\n      fracrefbo(:) = (/ &\n     &  1.8599e-01_rb, 1.6646e-01_rb, 1.4264e-01_rb, 1.2231e-01_rb, &\n     &  1.0603e-01_rb, 9.2014e-02_rb, 7.5287e-02_rb, 5.6758e-02_rb, &\n     &  3.8386e-02_rb, 4.2139e-03_rb, 3.5399e-03_rb, 2.7381e-03_rb, &\n     &  1.9202e-03_rb, 1.2083e-03_rb, 4.5395e-04_rb, 6.2699e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1) = (/ &\n     &3.5183e-01_rb,3.7165e-01_rb,3.9536e-01_rb,4.2364e-01_rb,4.5645e-01_rb/)\n      kao(:, 2, 1) = (/ &\n     &2.9958e-01_rb,3.1568e-01_rb,3.3580e-01_rb,3.6030e-01_rb,3.8890e-01_rb/)\n      kao(:, 3, 1) = (/ &\n     &2.5105e-01_rb,2.6327e-01_rb,2.7913e-01_rb,2.9918e-01_rb,3.2278e-01_rb/)\n      kao(:, 4, 1) = (/ &\n     &2.0894e-01_rb,2.1786e-01_rb,2.3000e-01_rb,2.4588e-01_rb,2.6517e-01_rb/)\n      kao(:, 5, 1) = (/ &\n     &1.7343e-01_rb,1.7993e-01_rb,1.8907e-01_rb,2.0143e-01_rb,2.1685e-01_rb/)\n      kao(:, 6, 1) = (/ &\n     &1.4374e-01_rb,1.4829e-01_rb,1.5503e-01_rb,1.6436e-01_rb,1.7642e-01_rb/)\n      kao(:, 7, 1) = (/ &\n     &1.1916e-01_rb,1.2232e-01_rb,1.2721e-01_rb,1.3426e-01_rb,1.4361e-01_rb/)\n      kao(:, 8, 1) = (/ &\n     &9.8898e-02_rb,1.0120e-01_rb,1.0467e-01_rb,1.0982e-01_rb,1.1705e-01_rb/)\n      kao(:, 9, 1) = (/ &\n     &8.2212e-02_rb,8.3740e-02_rb,8.6244e-02_rb,9.0121e-02_rb,9.5602e-02_rb/)\n      kao(:,10, 1) = (/ &\n     &6.8330e-02_rb,6.9351e-02_rb,7.1210e-02_rb,7.4137e-02_rb,7.8349e-02_rb/)\n      kao(:,11, 1) = (/ &\n     &5.6910e-02_rb,5.7856e-02_rb,5.9557e-02_rb,6.2211e-02_rb,6.6055e-02_rb/)\n      kao(:,12, 1) = (/ &\n     &4.7279e-02_rb,4.8187e-02_rb,4.9716e-02_rb,5.2169e-02_rb,5.5693e-02_rb/)\n      kao(:,13, 1) = (/ &\n     &3.9228e-02_rb,4.0055e-02_rb,4.1480e-02_rb,4.3734e-02_rb,4.6826e-02_rb/)\n      kao(:, 1, 2) = (/ &\n     &1.2827e+00_rb,1.3853e+00_rb,1.5108e+00_rb,1.6643e+00_rb,1.8505e+00_rb/)\n      kao(:, 2, 2) = (/ &\n     &1.1042e+00_rb,1.1988e+00_rb,1.3140e+00_rb,1.4542e+00_rb,1.6229e+00_rb/)\n      kao(:, 3, 2) = (/ &\n     &9.2790e-01_rb,1.0121e+00_rb,1.1133e+00_rb,1.2349e+00_rb,1.3807e+00_rb/)\n      kao(:, 4, 2) = (/ &\n     &7.7001e-01_rb,8.4339e-01_rb,9.3172e-01_rb,1.0366e+00_rb,1.1604e+00_rb/)\n      kao(:, 5, 2) = (/ &\n     &6.3550e-01_rb,6.9915e-01_rb,7.7552e-01_rb,8.6518e-01_rb,9.7050e-01_rb/)\n      kao(:, 6, 2) = (/ &\n     &5.2058e-01_rb,5.7460e-01_rb,6.3982e-01_rb,7.1578e-01_rb,8.0435e-01_rb/)\n      kao(:, 7, 2) = (/ &\n     &4.2451e-01_rb,4.7028e-01_rb,5.2464e-01_rb,5.8830e-01_rb,6.6179e-01_rb/)\n      kao(:, 8, 2) = (/ &\n     &3.4539e-01_rb,3.8222e-01_rb,4.2607e-01_rb,4.7789e-01_rb,5.3786e-01_rb/)\n      kao(:, 9, 2) = (/ &\n     &2.7941e-01_rb,3.0849e-01_rb,3.4320e-01_rb,3.8420e-01_rb,4.3240e-01_rb/)\n      kao(:,10, 2) = (/ &\n     &2.2666e-01_rb,2.5024e-01_rb,2.7777e-01_rb,3.1051e-01_rb,3.4934e-01_rb/)\n      kao(:,11, 2) = (/ &\n     &1.9193e-01_rb,2.1218e-01_rb,2.3589e-01_rb,2.6422e-01_rb,2.9804e-01_rb/)\n      kao(:,12, 2) = (/ &\n     &1.6216e-01_rb,1.7954e-01_rb,2.0015e-01_rb,2.2464e-01_rb,2.5376e-01_rb/)\n      kao(:,13, 2) = (/ &\n     &1.3654e-01_rb,1.5163e-01_rb,1.6956e-01_rb,1.9071e-01_rb,2.1617e-01_rb/)\n      kao(:, 1, 3) = (/ &\n     &5.3312e+00_rb,5.9534e+00_rb,6.6227e+00_rb,7.3398e+00_rb,8.1099e+00_rb/)\n      kao(:, 2, 3) = (/ &\n     &4.6807e+00_rb,5.2433e+00_rb,5.8458e+00_rb,6.4988e+00_rb,7.1971e+00_rb/)\n      kao(:, 3, 3) = (/ &\n     &3.9284e+00_rb,4.4200e+00_rb,4.9505e+00_rb,5.5235e+00_rb,6.1336e+00_rb/)\n      kao(:, 4, 3) = (/ &\n     &3.2160e+00_rb,3.6333e+00_rb,4.0896e+00_rb,4.5842e+00_rb,5.1138e+00_rb/)\n      kao(:, 5, 3) = (/ &\n     &2.5935e+00_rb,2.9443e+00_rb,3.3309e+00_rb,3.7529e+00_rb,4.2079e+00_rb/)\n      kao(:, 6, 3) = (/ &\n     &2.0555e+00_rb,2.3468e+00_rb,2.6695e+00_rb,3.0246e+00_rb,3.4114e+00_rb/)\n      kao(:, 7, 3) = (/ &\n     &1.6122e+00_rb,1.8522e+00_rb,2.1211e+00_rb,2.4178e+00_rb,2.7436e+00_rb/)\n      kao(:, 8, 3) = (/ &\n     &1.2572e+00_rb,1.4549e+00_rb,1.6787e+00_rb,1.9278e+00_rb,2.2011e+00_rb/)\n      kao(:, 9, 3) = (/ &\n     &9.7554e-01_rb,1.1374e+00_rb,1.3224e+00_rb,1.5307e+00_rb,1.7599e+00_rb/)\n      kao(:,10, 3) = (/ &\n     &7.6412e-01_rb,8.9744e-01_rb,1.0509e+00_rb,1.2253e+00_rb,1.4183e+00_rb/)\n      kao(:,11, 3) = (/ &\n     &6.4606e-01_rb,7.6360e-01_rb,8.9925e-01_rb,1.0524e+00_rb,1.2194e+00_rb/)\n      kao(:,12, 3) = (/ &\n     &5.4819e-01_rb,6.5159e-01_rb,7.6939e-01_rb,8.9987e-01_rb,1.0405e+00_rb/)\n      kao(:,13, 3) = (/ &\n     &4.6584e-01_rb,5.5439e-01_rb,6.5378e-01_rb,7.6270e-01_rb,8.8077e-01_rb/)\n      kao(:, 1, 4) = (/ &\n     &1.6140e+01_rb,1.7514e+01_rb,1.8771e+01_rb,1.9886e+01_rb,2.0829e+01_rb/)\n      kao(:, 2, 4) = (/ &\n     &1.4035e+01_rb,1.5167e+01_rb,1.6185e+01_rb,1.7079e+01_rb,1.7864e+01_rb/)\n      kao(:, 3, 4) = (/ &\n     &1.2090e+01_rb,1.3039e+01_rb,1.3889e+01_rb,1.4653e+01_rb,1.5339e+01_rb/)\n      kao(:, 4, 4) = (/ &\n     &1.0243e+01_rb,1.1063e+01_rb,1.1803e+01_rb,1.2472e+01_rb,1.3075e+01_rb/)\n      kao(:, 5, 4) = (/ &\n     &8.5658e+00_rb,9.2747e+00_rb,9.9250e+00_rb,1.0511e+01_rb,1.1040e+01_rb/)\n      kao(:, 6, 4) = (/ &\n     &7.0689e+00_rb,7.6839e+00_rb,8.2525e+00_rb,8.7702e+00_rb,9.2411e+00_rb/)\n      kao(:, 7, 4) = (/ &\n     &5.7728e+00_rb,6.3036e+00_rb,6.7993e+00_rb,7.2580e+00_rb,7.6760e+00_rb/)\n      kao(:, 8, 4) = (/ &\n     &4.6719e+00_rb,5.1262e+00_rb,5.5542e+00_rb,5.9566e+00_rb,6.3304e+00_rb/)\n      kao(:, 9, 4) = (/ &\n     &3.7449e+00_rb,4.1314e+00_rb,4.4992e+00_rb,4.8512e+00_rb,5.1834e+00_rb/)\n      kao(:,10, 4) = (/ &\n     &2.9983e+00_rb,3.3274e+00_rb,3.6424e+00_rb,3.9480e+00_rb,4.2418e+00_rb/)\n      kao(:,11, 4) = (/ &\n     &2.5136e+00_rb,2.7891e+00_rb,3.0545e+00_rb,3.3182e+00_rb,3.5747e+00_rb/)\n      kao(:,12, 4) = (/ &\n     &2.1004e+00_rb,2.3314e+00_rb,2.5605e+00_rb,2.7929e+00_rb,3.0174e+00_rb/)\n      kao(:,13, 4) = (/ &\n     &1.7524e+00_rb,1.9492e+00_rb,2.1512e+00_rb,2.3564e+00_rb,2.5478e+00_rb/)\n      kao(:, 1, 5) = (/ &\n     &3.4724e+01_rb,3.5203e+01_rb,3.5615e+01_rb,3.5967e+01_rb,3.6300e+01_rb/)\n      kao(:, 2, 5) = (/ &\n     &2.9704e+01_rb,3.0154e+01_rb,3.0541e+01_rb,3.0880e+01_rb,3.1155e+01_rb/)\n      kao(:, 3, 5) = (/ &\n     &2.5203e+01_rb,2.5623e+01_rb,2.5990e+01_rb,2.6275e+01_rb,2.6504e+01_rb/)\n      kao(:, 4, 5) = (/ &\n     &2.1552e+01_rb,2.1924e+01_rb,2.2232e+01_rb,2.2450e+01_rb,2.2639e+01_rb/)\n      kao(:, 5, 5) = (/ &\n     &1.8513e+01_rb,1.8836e+01_rb,1.9081e+01_rb,1.9246e+01_rb,1.9410e+01_rb/)\n      kao(:, 6, 5) = (/ &\n     &1.5765e+01_rb,1.6046e+01_rb,1.6242e+01_rb,1.6370e+01_rb,1.6509e+01_rb/)\n      kao(:, 7, 5) = (/ &\n     &1.3333e+01_rb,1.3583e+01_rb,1.3745e+01_rb,1.3853e+01_rb,1.3971e+01_rb/)\n      kao(:, 8, 5) = (/ &\n     &1.1230e+01_rb,1.1452e+01_rb,1.1589e+01_rb,1.1683e+01_rb,1.1782e+01_rb/)\n      kao(:, 9, 5) = (/ &\n     &9.4196e+00_rb,9.6109e+00_rb,9.7356e+00_rb,9.8175e+00_rb,9.8960e+00_rb/)\n      kao(:,10, 5) = (/ &\n     &7.8743e+00_rb,8.0366e+00_rb,8.1439e+00_rb,8.2124e+00_rb,8.2768e+00_rb/)\n      kao(:,11, 5) = (/ &\n     &6.6265e+00_rb,6.7386e+00_rb,6.8161e+00_rb,6.8681e+00_rb,6.9329e+00_rb/)\n      kao(:,12, 5) = (/ &\n     &5.5390e+00_rb,5.6241e+00_rb,5.6817e+00_rb,5.7305e+00_rb,5.8031e+00_rb/)\n      kao(:,13, 5) = (/ &\n     &4.6094e+00_rb,4.6772e+00_rb,4.7246e+00_rb,4.7737e+00_rb,4.8549e+00_rb/)\n      kao(:, 1, 6) = (/ &\n     &5.5082e+01_rb,5.5287e+01_rb,5.5714e+01_rb,5.6227e+01_rb,5.6768e+01_rb/)\n      kao(:, 2, 6) = (/ &\n     &4.8272e+01_rb,4.8698e+01_rb,4.9143e+01_rb,4.9607e+01_rb,5.0132e+01_rb/)\n      kao(:, 3, 6) = (/ &\n     &4.2021e+01_rb,4.2370e+01_rb,4.2729e+01_rb,4.3163e+01_rb,4.3674e+01_rb/)\n      kao(:, 4, 6) = (/ &\n     &3.6214e+01_rb,3.6443e+01_rb,3.6742e+01_rb,3.7158e+01_rb,3.7640e+01_rb/)\n      kao(:, 5, 6) = (/ &\n     &3.1082e+01_rb,3.1249e+01_rb,3.1507e+01_rb,3.1893e+01_rb,3.2320e+01_rb/)\n      kao(:, 6, 6) = (/ &\n     &2.6864e+01_rb,2.6986e+01_rb,2.7204e+01_rb,2.7526e+01_rb,2.7858e+01_rb/)\n      kao(:, 7, 6) = (/ &\n     &2.3146e+01_rb,2.3231e+01_rb,2.3407e+01_rb,2.3654e+01_rb,2.3926e+01_rb/)\n      kao(:, 8, 6) = (/ &\n     &1.9819e+01_rb,1.9868e+01_rb,1.9994e+01_rb,2.0178e+01_rb,2.0400e+01_rb/)\n      kao(:, 9, 6) = (/ &\n     &1.6892e+01_rb,1.6913e+01_rb,1.7001e+01_rb,1.7132e+01_rb,1.7310e+01_rb/)\n      kao(:,10, 6) = (/ &\n     &1.4365e+01_rb,1.4367e+01_rb,1.4429e+01_rb,1.4521e+01_rb,1.4660e+01_rb/)\n      kao(:,11, 6) = (/ &\n     &1.2162e+01_rb,1.2177e+01_rb,1.2223e+01_rb,1.2309e+01_rb,1.2439e+01_rb/)\n      kao(:,12, 6) = (/ &\n     &1.0257e+01_rb,1.0260e+01_rb,1.0295e+01_rb,1.0375e+01_rb,1.0502e+01_rb/)\n      kao(:,13, 6) = (/ &\n     &8.6109e+00_rb,8.6045e+00_rb,8.6391e+00_rb,8.7159e+00_rb,8.8472e+00_rb/)\n      kao(:, 1, 7) = (/ &\n     &9.6537e+01_rb,9.5488e+01_rb,9.4812e+01_rb,9.4687e+01_rb,9.5057e+01_rb/)\n      kao(:, 2, 7) = (/ &\n     &8.5306e+01_rb,8.4772e+01_rb,8.4928e+01_rb,8.5670e+01_rb,8.6805e+01_rb/)\n      kao(:, 3, 7) = (/ &\n     &7.4847e+01_rb,7.4994e+01_rb,7.5806e+01_rb,7.7131e+01_rb,7.8782e+01_rb/)\n      kao(:, 4, 7) = (/ &\n     &6.5341e+01_rb,6.6016e+01_rb,6.7305e+01_rb,6.9026e+01_rb,7.0761e+01_rb/)\n      kao(:, 5, 7) = (/ &\n     &5.6784e+01_rb,5.7825e+01_rb,5.9429e+01_rb,6.1058e+01_rb,6.2599e+01_rb/)\n      kao(:, 6, 7) = (/ &\n     &4.9097e+01_rb,5.0352e+01_rb,5.1865e+01_rb,5.3258e+01_rb,5.4642e+01_rb/)\n      kao(:, 7, 7) = (/ &\n     &4.2608e+01_rb,4.3857e+01_rb,4.5074e+01_rb,4.6282e+01_rb,4.7459e+01_rb/)\n      kao(:, 8, 7) = (/ &\n     &3.7209e+01_rb,3.8259e+01_rb,3.9241e+01_rb,4.0246e+01_rb,4.1244e+01_rb/)\n      kao(:, 9, 7) = (/ &\n     &3.2353e+01_rb,3.3212e+01_rb,3.4023e+01_rb,3.4877e+01_rb,3.5739e+01_rb/)\n      kao(:,10, 7) = (/ &\n     &2.7960e+01_rb,2.8627e+01_rb,2.9290e+01_rb,3.0022e+01_rb,3.0747e+01_rb/)\n      kao(:,11, 7) = (/ &\n     &2.4264e+01_rb,2.4777e+01_rb,2.5355e+01_rb,2.5965e+01_rb,2.6544e+01_rb/)\n      kao(:,12, 7) = (/ &\n     &2.0930e+01_rb,2.1372e+01_rb,2.1863e+01_rb,2.2353e+01_rb,2.2822e+01_rb/)\n      kao(:,13, 7) = (/ &\n     &1.7993e+01_rb,1.8373e+01_rb,1.8772e+01_rb,1.9157e+01_rb,1.9544e+01_rb/)\n      kao(:, 1, 8) = (/ &\n     &2.1856e+02_rb,2.1566e+02_rb,2.1284e+02_rb,2.0997e+02_rb,2.0718e+02_rb/)\n      kao(:, 2, 8) = (/ &\n     &2.0300e+02_rb,2.0022e+02_rb,1.9750e+02_rb,1.9481e+02_rb,1.9235e+02_rb/)\n      kao(:, 3, 8) = (/ &\n     &1.8584e+02_rb,1.8317e+02_rb,1.8063e+02_rb,1.7831e+02_rb,1.7621e+02_rb/)\n      kao(:, 4, 8) = (/ &\n     &1.6761e+02_rb,1.6519e+02_rb,1.6298e+02_rb,1.6101e+02_rb,1.5981e+02_rb/)\n      kao(:, 5, 8) = (/ &\n     &1.4928e+02_rb,1.4711e+02_rb,1.4522e+02_rb,1.4425e+02_rb,1.4420e+02_rb/)\n      kao(:, 6, 8) = (/ &\n     &1.3122e+02_rb,1.2933e+02_rb,1.2822e+02_rb,1.2825e+02_rb,1.2918e+02_rb/)\n      kao(:, 7, 8) = (/ &\n     &1.1410e+02_rb,1.1264e+02_rb,1.1239e+02_rb,1.1324e+02_rb,1.1505e+02_rb/)\n      kao(:, 8, 8) = (/ &\n     &9.8348e+01_rb,9.7493e+01_rb,9.7940e+01_rb,9.9442e+01_rb,1.0191e+02_rb/)\n      kao(:, 9, 8) = (/ &\n     &8.4647e+01_rb,8.4268e+01_rb,8.5204e+01_rb,8.7179e+01_rb,9.0023e+01_rb/)\n      kao(:,10, 8) = (/ &\n     &7.3021e+01_rb,7.3118e+01_rb,7.4447e+01_rb,7.6754e+01_rb,7.9414e+01_rb/)\n      kao(:,11, 8) = (/ &\n     &6.3300e+01_rb,6.4312e+01_rb,6.6319e+01_rb,6.8546e+01_rb,7.0686e+01_rb/)\n      kao(:,12, 8) = (/ &\n     &5.5501e+01_rb,5.7093e+01_rb,5.8983e+01_rb,6.0787e+01_rb,6.2564e+01_rb/)\n      kao(:,13, 8) = (/ &\n     &4.8706e+01_rb,5.0287e+01_rb,5.1813e+01_rb,5.3328e+01_rb,5.4791e+01_rb/)\n      kao(:, 1, 9) = (/ &\n     &5.5934e+02_rb,5.5574e+02_rb,5.5144e+02_rb,5.4673e+02_rb,5.4155e+02_rb/)\n      kao(:, 2, 9) = (/ &\n     &5.7946e+02_rb,5.7510e+02_rb,5.7015e+02_rb,5.6485e+02_rb,5.5885e+02_rb/)\n      kao(:, 3, 9) = (/ &\n     &5.9076e+02_rb,5.8577e+02_rb,5.8036e+02_rb,5.7428e+02_rb,5.6790e+02_rb/)\n      kao(:, 4, 9) = (/ &\n     &5.9122e+02_rb,5.8578e+02_rb,5.7964e+02_rb,5.7332e+02_rb,5.6635e+02_rb/)\n      kao(:, 5, 9) = (/ &\n     &5.8028e+02_rb,5.7411e+02_rb,5.6769e+02_rb,5.6068e+02_rb,5.5353e+02_rb/)\n      kao(:, 6, 9) = (/ &\n     &5.5962e+02_rb,5.5294e+02_rb,5.4600e+02_rb,5.3888e+02_rb,5.3142e+02_rb/)\n      kao(:, 7, 9) = (/ &\n     &5.2985e+02_rb,5.2302e+02_rb,5.1578e+02_rb,5.0845e+02_rb,5.0105e+02_rb/)\n      kao(:, 8, 9) = (/ &\n     &4.9277e+02_rb,4.8554e+02_rb,4.7838e+02_rb,4.7112e+02_rb,4.6381e+02_rb/)\n      kao(:, 9, 9) = (/ &\n     &4.5092e+02_rb,4.4373e+02_rb,4.3650e+02_rb,4.2952e+02_rb,4.2278e+02_rb/)\n      kao(:,10, 9) = (/ &\n     &4.0542e+02_rb,3.9841e+02_rb,3.9162e+02_rb,3.8505e+02_rb,3.7968e+02_rb/)\n      kao(:,11, 9) = (/ &\n     &3.5669e+02_rb,3.5010e+02_rb,3.4395e+02_rb,3.3923e+02_rb,3.3643e+02_rb/)\n      kao(:,12, 9) = (/ &\n     &3.0992e+02_rb,3.0411e+02_rb,2.9975e+02_rb,2.9742e+02_rb,2.9692e+02_rb/)\n      kao(:,13, 9) = (/ &\n     &2.6703e+02_rb,2.6279e+02_rb,2.6062e+02_rb,2.6039e+02_rb,2.6194e+02_rb/)\n      kao(:, 1,10) = (/ &\n     &9.5667e+02_rb,9.5651e+02_rb,9.5375e+02_rb,9.4993e+02_rb,9.4458e+02_rb/)\n      kao(:, 2,10) = (/ &\n     &1.0737e+03_rb,1.0712e+03_rb,1.0675e+03_rb,1.0621e+03_rb,1.0554e+03_rb/)\n      kao(:, 3,10) = (/ &\n     &1.1862e+03_rb,1.1837e+03_rb,1.1793e+03_rb,1.1732e+03_rb,1.1657e+03_rb/)\n      kao(:, 4,10) = (/ &\n     &1.2923e+03_rb,1.2885e+03_rb,1.2837e+03_rb,1.2762e+03_rb,1.2683e+03_rb/)\n      kao(:, 5,10) = (/ &\n     &1.3860e+03_rb,1.3831e+03_rb,1.3760e+03_rb,1.3692e+03_rb,1.3583e+03_rb/)\n      kao(:, 6,10) = (/ &\n     &1.4574e+03_rb,1.4515e+03_rb,1.4451e+03_rb,1.4344e+03_rb,1.4246e+03_rb/)\n      kao(:, 7,10) = (/ &\n     &1.5032e+03_rb,1.4948e+03_rb,1.4847e+03_rb,1.4737e+03_rb,1.4593e+03_rb/)\n      kao(:, 8,10) = (/ &\n     &1.5178e+03_rb,1.5093e+03_rb,1.4967e+03_rb,1.4828e+03_rb,1.4689e+03_rb/)\n      kao(:, 9,10) = (/ &\n     &1.5009e+03_rb,1.4874e+03_rb,1.4751e+03_rb,1.4596e+03_rb,1.4422e+03_rb/)\n      kao(:,10,10) = (/ &\n     &1.4526e+03_rb,1.4382e+03_rb,1.4207e+03_rb,1.4042e+03_rb,1.3871e+03_rb/)\n      kao(:,11,10) = (/ &\n     &1.3669e+03_rb,1.3492e+03_rb,1.3313e+03_rb,1.3144e+03_rb,1.2952e+03_rb/)\n      kao(:,12,10) = (/ &\n     &1.2561e+03_rb,1.2377e+03_rb,1.2201e+03_rb,1.2021e+03_rb,1.1826e+03_rb/)\n      kao(:,13,10) = (/ &\n     &1.1367e+03_rb,1.1187e+03_rb,1.1007e+03_rb,1.0822e+03_rb,1.0635e+03_rb/)\n      kao(:, 1,11) = (/ &\n     &1.0788e+03_rb,1.0784e+03_rb,1.0786e+03_rb,1.0769e+03_rb,1.0720e+03_rb/)\n      kao(:, 2,11) = (/ &\n     &1.2360e+03_rb,1.2387e+03_rb,1.2382e+03_rb,1.2346e+03_rb,1.2287e+03_rb/)\n      kao(:, 3,11) = (/ &\n     &1.4028e+03_rb,1.4050e+03_rb,1.4041e+03_rb,1.4005e+03_rb,1.3939e+03_rb/)\n      kao(:, 4,11) = (/ &\n     &1.5761e+03_rb,1.5770e+03_rb,1.5755e+03_rb,1.5691e+03_rb,1.5622e+03_rb/)\n      kao(:, 5,11) = (/ &\n     &1.7429e+03_rb,1.7443e+03_rb,1.7409e+03_rb,1.7348e+03_rb,1.7262e+03_rb/)\n      kao(:, 6,11) = (/ &\n     &1.9004e+03_rb,1.9007e+03_rb,1.8945e+03_rb,1.8893e+03_rb,1.8776e+03_rb/)\n      kao(:, 7,11) = (/ &\n     &2.0382e+03_rb,2.0344e+03_rb,2.0314e+03_rb,2.0213e+03_rb,2.0121e+03_rb/)\n      kao(:, 8,11) = (/ &\n     &2.1442e+03_rb,2.1390e+03_rb,2.1319e+03_rb,2.1222e+03_rb,2.1076e+03_rb/)\n      kao(:, 9,11) = (/ &\n     &2.2113e+03_rb,2.2063e+03_rb,2.1931e+03_rb,2.1796e+03_rb,2.1631e+03_rb/)\n      kao(:,10,11) = (/ &\n     &2.2360e+03_rb,2.2231e+03_rb,2.2114e+03_rb,2.1930e+03_rb,2.1737e+03_rb/)\n      kao(:,11,11) = (/ &\n     &2.2031e+03_rb,2.1887e+03_rb,2.1696e+03_rb,2.1476e+03_rb,2.1259e+03_rb/)\n      kao(:,12,11) = (/ &\n     &2.1236e+03_rb,2.1030e+03_rb,2.0791e+03_rb,2.0554e+03_rb,2.0303e+03_rb/)\n      kao(:,13,11) = (/ &\n     &1.9976e+03_rb,1.9732e+03_rb,1.9489e+03_rb,1.9244e+03_rb,1.8976e+03_rb/)\n      kao(:, 1,12) = (/ &\n     &1.1934e+03_rb,1.1955e+03_rb,1.1958e+03_rb,1.1936e+03_rb,1.1920e+03_rb/)\n      kao(:, 2,12) = (/ &\n     &1.3945e+03_rb,1.3970e+03_rb,1.3984e+03_rb,1.3987e+03_rb,1.3979e+03_rb/)\n      kao(:, 3,12) = (/ &\n     &1.6215e+03_rb,1.6249e+03_rb,1.6252e+03_rb,1.6264e+03_rb,1.6242e+03_rb/)\n      kao(:, 4,12) = (/ &\n     &1.8681e+03_rb,1.8729e+03_rb,1.8755e+03_rb,1.8766e+03_rb,1.8729e+03_rb/)\n      kao(:, 5,12) = (/ &\n     &2.1302e+03_rb,2.1346e+03_rb,2.1412e+03_rb,2.1410e+03_rb,2.1383e+03_rb/)\n      kao(:, 6,12) = (/ &\n     &2.4029e+03_rb,2.4115e+03_rb,2.4156e+03_rb,2.4143e+03_rb,2.4101e+03_rb/)\n      kao(:, 7,12) = (/ &\n     &2.6748e+03_rb,2.6869e+03_rb,2.6879e+03_rb,2.6884e+03_rb,2.6793e+03_rb/)\n      kao(:, 8,12) = (/ &\n     &2.9380e+03_rb,2.9477e+03_rb,2.9496e+03_rb,2.9469e+03_rb,2.9380e+03_rb/)\n      kao(:, 9,12) = (/ &\n     &3.1781e+03_rb,3.1822e+03_rb,3.1866e+03_rb,3.1790e+03_rb,3.1694e+03_rb/)\n      kao(:,10,12) = (/ &\n     &3.3770e+03_rb,3.3808e+03_rb,3.3765e+03_rb,3.3686e+03_rb,3.3530e+03_rb/)\n      kao(:,11,12) = (/ &\n     &3.5189e+03_rb,3.5130e+03_rb,3.5038e+03_rb,3.4874e+03_rb,3.4673e+03_rb/)\n      kao(:,12,12) = (/ &\n     &3.5908e+03_rb,3.5789e+03_rb,3.5609e+03_rb,3.5388e+03_rb,3.5103e+03_rb/)\n      kao(:,13,12) = (/ &\n     &3.5806e+03_rb,3.5582e+03_rb,3.5338e+03_rb,3.5034e+03_rb,3.4725e+03_rb/)\n      kao(:, 1,13) = (/ &\n     &1.2919e+03_rb,1.2953e+03_rb,1.2979e+03_rb,1.2980e+03_rb,1.2956e+03_rb/)\n      kao(:, 2,13) = (/ &\n     &1.5383e+03_rb,1.5420e+03_rb,1.5447e+03_rb,1.5440e+03_rb,1.5420e+03_rb/)\n      kao(:, 3,13) = (/ &\n     &1.8220e+03_rb,1.8287e+03_rb,1.8322e+03_rb,1.8325e+03_rb,1.8308e+03_rb/)\n      kao(:, 4,13) = (/ &\n     &2.1443e+03_rb,2.1550e+03_rb,2.1609e+03_rb,2.1623e+03_rb,2.1617e+03_rb/)\n      kao(:, 5,13) = (/ &\n     &2.5123e+03_rb,2.5251e+03_rb,2.5330e+03_rb,2.5368e+03_rb,2.5365e+03_rb/)\n      kao(:, 6,13) = (/ &\n     &2.9214e+03_rb,2.9360e+03_rb,2.9475e+03_rb,2.9537e+03_rb,2.9558e+03_rb/)\n      kao(:, 7,13) = (/ &\n     &3.3684e+03_rb,3.3871e+03_rb,3.4024e+03_rb,3.4082e+03_rb,3.4125e+03_rb/)\n      kao(:, 8,13) = (/ &\n     &3.8472e+03_rb,3.8701e+03_rb,3.8882e+03_rb,3.8980e+03_rb,3.9031e+03_rb/)\n      kao(:, 9,13) = (/ &\n     &4.3463e+03_rb,4.3744e+03_rb,4.3907e+03_rb,4.4045e+03_rb,4.4088e+03_rb/)\n      kao(:,10,13) = (/ &\n     &4.8548e+03_rb,4.8861e+03_rb,4.9050e+03_rb,4.9166e+03_rb,4.9195e+03_rb/)\n      kao(:,11,13) = (/ &\n     &5.3685e+03_rb,5.3944e+03_rb,5.4093e+03_rb,5.4165e+03_rb,5.4085e+03_rb/)\n      kao(:,12,13) = (/ &\n     &5.8390e+03_rb,5.8545e+03_rb,5.8642e+03_rb,5.8596e+03_rb,5.8502e+03_rb/)\n      kao(:,13,13) = (/ &\n     &6.2371e+03_rb,6.2518e+03_rb,6.2489e+03_rb,6.2389e+03_rb,6.2163e+03_rb/)\n      kao(:, 1,14) = (/ &\n     &1.3744e+03_rb,1.3784e+03_rb,1.3801e+03_rb,1.3822e+03_rb,1.3833e+03_rb/)\n      kao(:, 2,14) = (/ &\n     &1.6525e+03_rb,1.6579e+03_rb,1.6603e+03_rb,1.6628e+03_rb,1.6635e+03_rb/)\n      kao(:, 3,14) = (/ &\n     &1.9810e+03_rb,1.9908e+03_rb,1.9968e+03_rb,2.0006e+03_rb,2.0007e+03_rb/)\n      kao(:, 4,14) = (/ &\n     &2.3728e+03_rb,2.3844e+03_rb,2.3938e+03_rb,2.4019e+03_rb,2.4042e+03_rb/)\n      kao(:, 5,14) = (/ &\n     &2.8373e+03_rb,2.8532e+03_rb,2.8650e+03_rb,2.8745e+03_rb,2.8783e+03_rb/)\n      kao(:, 6,14) = (/ &\n     &3.3748e+03_rb,3.3991e+03_rb,3.4179e+03_rb,3.4320e+03_rb,3.4378e+03_rb/)\n      kao(:, 7,14) = (/ &\n     &3.9998e+03_rb,4.0298e+03_rb,4.0539e+03_rb,4.0746e+03_rb,4.0866e+03_rb/)\n      kao(:, 8,14) = (/ &\n     &4.7196e+03_rb,4.7615e+03_rb,4.7914e+03_rb,4.8146e+03_rb,4.8273e+03_rb/)\n      kao(:, 9,14) = (/ &\n     &5.5304e+03_rb,5.5847e+03_rb,5.6275e+03_rb,5.6623e+03_rb,5.6782e+03_rb/)\n      kao(:,10,14) = (/ &\n     &6.4513e+03_rb,6.5110e+03_rb,6.5637e+03_rb,6.6030e+03_rb,6.6279e+03_rb/)\n      kao(:,11,14) = (/ &\n     &7.5126e+03_rb,7.5759e+03_rb,7.6236e+03_rb,7.6577e+03_rb,7.6817e+03_rb/)\n      kao(:,12,14) = (/ &\n     &8.6584e+03_rb,8.7304e+03_rb,8.7796e+03_rb,8.8102e+03_rb,8.8235e+03_rb/)\n      kao(:,13,14) = (/ &\n     &9.8812e+03_rb,9.9499e+03_rb,9.9974e+03_rb,1.0022e+04_rb,1.0029e+04_rb/)\n      kao(:, 1,15) = (/ &\n     &1.4528e+03_rb,1.4581e+03_rb,1.4601e+03_rb,1.4582e+03_rb,1.4558e+03_rb/)\n      kao(:, 2,15) = (/ &\n     &1.7546e+03_rb,1.7631e+03_rb,1.7666e+03_rb,1.7671e+03_rb,1.7653e+03_rb/)\n      kao(:, 3,15) = (/ &\n     &2.1167e+03_rb,2.1275e+03_rb,2.1344e+03_rb,2.1393e+03_rb,2.1396e+03_rb/)\n      kao(:, 4,15) = (/ &\n     &2.5536e+03_rb,2.5679e+03_rb,2.5752e+03_rb,2.5829e+03_rb,2.5878e+03_rb/)\n      kao(:, 5,15) = (/ &\n     &3.0751e+03_rb,3.0964e+03_rb,3.1097e+03_rb,3.1178e+03_rb,3.1252e+03_rb/)\n      kao(:, 6,15) = (/ &\n     &3.6981e+03_rb,3.7293e+03_rb,3.7501e+03_rb,3.7620e+03_rb,3.7738e+03_rb/)\n      kao(:, 7,15) = (/ &\n     &4.4451e+03_rb,4.4852e+03_rb,4.5165e+03_rb,4.5355e+03_rb,4.5519e+03_rb/)\n      kao(:, 8,15) = (/ &\n     &5.3398e+03_rb,5.3890e+03_rb,5.4280e+03_rb,5.4575e+03_rb,5.4832e+03_rb/)\n      kao(:, 9,15) = (/ &\n     &6.4016e+03_rb,6.4666e+03_rb,6.5191e+03_rb,6.5509e+03_rb,6.5855e+03_rb/)\n      kao(:,10,15) = (/ &\n     &7.6539e+03_rb,7.7451e+03_rb,7.8138e+03_rb,7.8602e+03_rb,7.8961e+03_rb/)\n      kao(:,11,15) = (/ &\n     &9.1780e+03_rb,9.2834e+03_rb,9.3652e+03_rb,9.4242e+03_rb,9.4602e+03_rb/)\n      kao(:,12,15) = (/ &\n     &1.0986e+04_rb,1.1091e+04_rb,1.1175e+04_rb,1.1241e+04_rb,1.1280e+04_rb/)\n      kao(:,13,15) = (/ &\n     &1.3095e+04_rb,1.3203e+04_rb,1.3280e+04_rb,1.3335e+04_rb,1.3364e+04_rb/)\n      kao(:, 1,16) = (/ &\n     &1.4758e+03_rb,1.4811e+03_rb,1.4822e+03_rb,1.4873e+03_rb,1.4919e+03_rb/)\n      kao(:, 2,16) = (/ &\n     &1.7931e+03_rb,1.7988e+03_rb,1.8023e+03_rb,1.8054e+03_rb,1.8115e+03_rb/)\n      kao(:, 3,16) = (/ &\n     &2.1801e+03_rb,2.1858e+03_rb,2.1915e+03_rb,2.1950e+03_rb,2.1996e+03_rb/)\n      kao(:, 4,16) = (/ &\n     &2.6497e+03_rb,2.6575e+03_rb,2.6648e+03_rb,2.6696e+03_rb,2.6752e+03_rb/)\n      kao(:, 5,16) = (/ &\n     &3.2162e+03_rb,3.2298e+03_rb,3.2415e+03_rb,3.2482e+03_rb,3.2542e+03_rb/)\n      kao(:, 6,16) = (/ &\n     &3.8965e+03_rb,3.9207e+03_rb,3.9398e+03_rb,3.9520e+03_rb,3.9556e+03_rb/)\n      kao(:, 7,16) = (/ &\n     &4.7145e+03_rb,4.7502e+03_rb,4.7821e+03_rb,4.8036e+03_rb,4.8122e+03_rb/)\n      kao(:, 8,16) = (/ &\n     &5.7091e+03_rb,5.7519e+03_rb,5.7946e+03_rb,5.8300e+03_rb,5.8477e+03_rb/)\n      kao(:, 9,16) = (/ &\n     &6.9081e+03_rb,6.9691e+03_rb,7.0079e+03_rb,7.0618e+03_rb,7.0936e+03_rb/)\n      kao(:,10,16) = (/ &\n     &8.3531e+03_rb,8.4377e+03_rb,8.4862e+03_rb,8.5388e+03_rb,8.5857e+03_rb/)\n      kao(:,11,16) = (/ &\n     &1.0140e+04_rb,1.0233e+04_rb,1.0291e+04_rb,1.0344e+04_rb,1.0381e+04_rb/)\n      kao(:,12,16) = (/ &\n     &1.2278e+04_rb,1.2376e+04_rb,1.2452e+04_rb,1.2503e+04_rb,1.2519e+04_rb/)\n      kao(:,13,16) = (/ &\n     &1.4816e+04_rb,1.4930e+04_rb,1.5014e+04_rb,1.5052e+04_rb,1.5044e+04_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &3.9228e-02_rb,4.0055e-02_rb,4.1480e-02_rb,4.3734e-02_rb,4.6826e-02_rb/)\n      kbo(:,14, 1) = (/ &\n     &3.2541e-02_rb,3.3340e-02_rb,3.4715e-02_rb,3.6769e-02_rb,3.9564e-02_rb/)\n      kbo(:,15, 1) = (/ &\n     &2.6969e-02_rb,2.7753e-02_rb,2.9038e-02_rb,3.0896e-02_rb,3.3356e-02_rb/)\n      kbo(:,16, 1) = (/ &\n     &2.2342e-02_rb,2.3099e-02_rb,2.4270e-02_rb,2.5925e-02_rb,2.8078e-02_rb/)\n      kbo(:,17, 1) = (/ &\n     &1.8513e-02_rb,1.9222e-02_rb,2.0267e-02_rb,2.1721e-02_rb,2.3597e-02_rb/)\n      kbo(:,18, 1) = (/ &\n     &1.5353e-02_rb,1.5989e-02_rb,1.6916e-02_rb,1.8172e-02_rb,1.9812e-02_rb/)\n      kbo(:,19, 1) = (/ &\n     &1.2730e-02_rb,1.3292e-02_rb,1.4104e-02_rb,1.5198e-02_rb,1.6633e-02_rb/)\n      kbo(:,20, 1) = (/ &\n     &1.0558e-02_rb,1.1059e-02_rb,1.1764e-02_rb,1.2725e-02_rb,1.3995e-02_rb/)\n      kbo(:,21, 1) = (/ &\n     &8.7555e-03_rb,9.1943e-03_rb,9.8141e-03_rb,1.0663e-02_rb,1.1783e-02_rb/)\n      kbo(:,22, 1) = (/ &\n     &7.2788e-03_rb,7.6721e-03_rb,8.2312e-03_rb,8.9953e-03_rb,1.0002e-02_rb/)\n      kbo(:,23, 1) = (/ &\n     &6.0534e-03_rb,6.4084e-03_rb,6.9154e-03_rb,7.6052e-03_rb,8.5112e-03_rb/)\n      kbo(:,24, 1) = (/ &\n     &5.0381e-03_rb,5.3630e-03_rb,5.8249e-03_rb,6.4486e-03_rb,7.2625e-03_rb/)\n      kbo(:,25, 1) = (/ &\n     &4.2012e-03_rb,4.4994e-03_rb,4.9231e-03_rb,5.4862e-03_rb,6.2185e-03_rb/)\n      kbo(:,26, 1) = (/ &\n     &3.5140e-03_rb,3.7917e-03_rb,4.1803e-03_rb,4.6907e-03_rb,5.3531e-03_rb/)\n      kbo(:,27, 1) = (/ &\n     &2.9461e-03_rb,3.2058e-03_rb,3.5595e-03_rb,4.0238e-03_rb,4.6243e-03_rb/)\n      kbo(:,28, 1) = (/ &\n     &2.4782e-03_rb,2.7200e-03_rb,3.0408e-03_rb,3.4639e-03_rb,4.0087e-03_rb/)\n      kbo(:,29, 1) = (/ &\n     &2.0935e-03_rb,2.3161e-03_rb,2.6092e-03_rb,2.9949e-03_rb,3.4943e-03_rb/)\n      kbo(:,30, 1) = (/ &\n     &1.7747e-03_rb,1.9777e-03_rb,2.2475e-03_rb,2.5999e-03_rb,3.0591e-03_rb/)\n      kbo(:,31, 1) = (/ &\n     &1.5106e-03_rb,1.6973e-03_rb,1.9445e-03_rb,2.2691e-03_rb,2.6924e-03_rb/)\n      kbo(:,32, 1) = (/ &\n     &1.2905e-03_rb,1.4629e-03_rb,1.6903e-03_rb,1.9914e-03_rb,2.3817e-03_rb/)\n      kbo(:,33, 1) = (/ &\n     &1.1070e-03_rb,1.2664e-03_rb,1.4773e-03_rb,1.7562e-03_rb,2.1183e-03_rb/)\n      kbo(:,34, 1) = (/ &\n     &9.4969e-04_rb,1.0951e-03_rb,1.2897e-03_rb,1.5465e-03_rb,1.8794e-03_rb/)\n      kbo(:,35, 1) = (/ &\n     &8.0650e-04_rb,9.3657e-04_rb,1.1113e-03_rb,1.3423e-03_rb,1.6411e-03_rb/)\n      kbo(:,36, 1) = (/ &\n     &6.7527e-04_rb,7.8828e-04_rb,9.4082e-04_rb,1.1424e-03_rb,1.4040e-03_rb/)\n      kbo(:,37, 1) = (/ &\n     &5.5374e-04_rb,6.4781e-04_rb,7.7522e-04_rb,9.4463e-04_rb,1.1654e-03_rb/)\n      kbo(:,38, 1) = (/ &\n     &4.5356e-04_rb,5.3144e-04_rb,6.3765e-04_rb,7.7978e-04_rb,9.6558e-04_rb/)\n      kbo(:,39, 1) = (/ &\n     &3.7155e-04_rb,4.3614e-04_rb,5.2472e-04_rb,6.4387e-04_rb,8.0047e-04_rb/)\n      kbo(:,40, 1) = (/ &\n     &2.9980e-04_rb,3.5165e-04_rb,4.2320e-04_rb,5.2024e-04_rb,6.4874e-04_rb/)\n      kbo(:,41, 1) = (/ &\n     &2.4145e-04_rb,2.8281e-04_rb,3.4028e-04_rb,4.1898e-04_rb,5.2376e-04_rb/)\n      kbo(:,42, 1) = (/ &\n     &1.9444e-04_rb,2.2740e-04_rb,2.7348e-04_rb,3.3721e-04_rb,4.2264e-04_rb/)\n      kbo(:,43, 1) = (/ &\n     &1.5533e-04_rb,1.8108e-04_rb,2.1726e-04_rb,2.6787e-04_rb,3.3649e-04_rb/)\n      kbo(:,44, 1) = (/ &\n     &1.2372e-04_rb,1.4362e-04_rb,1.7176e-04_rb,2.1151e-04_rb,2.6597e-04_rb/)\n      kbo(:,45, 1) = (/ &\n     &9.8615e-05_rb,1.1395e-04_rb,1.3575e-04_rb,1.6686e-04_rb,2.0989e-04_rb/)\n      kbo(:,46, 1) = (/ &\n     &7.8410e-05_rb,9.0146e-05_rb,1.0684e-04_rb,1.3092e-04_rb,1.6455e-04_rb/)\n      kbo(:,47, 1) = (/ &\n     &6.2111e-05_rb,7.0925e-05_rb,8.3491e-05_rb,1.0171e-04_rb,1.2752e-04_rb/)\n      kbo(:,48, 1) = (/ &\n     &4.9292e-05_rb,5.5878e-05_rb,6.5308e-05_rb,7.9022e-05_rb,9.8758e-05_rb/)\n      kbo(:,49, 1) = (/ &\n     &3.9189e-05_rb,4.4083e-05_rb,5.1134e-05_rb,6.1433e-05_rb,7.6433e-05_rb/)\n      kbo(:,50, 1) = (/ &\n     &3.1297e-05_rb,3.4944e-05_rb,4.0262e-05_rb,4.8024e-05_rb,5.9468e-05_rb/)\n      kbo(:,51, 1) = (/ &\n     &2.5040e-05_rb,2.7793e-05_rb,3.1794e-05_rb,3.7665e-05_rb,4.6363e-05_rb/)\n      kbo(:,52, 1) = (/ &\n     &2.0024e-05_rb,2.2137e-05_rb,2.5151e-05_rb,2.9572e-05_rb,3.6157e-05_rb/)\n      kbo(:,53, 1) = (/ &\n     &1.5989e-05_rb,1.7662e-05_rb,1.9908e-05_rb,2.3247e-05_rb,2.8202e-05_rb/)\n      kbo(:,54, 1) = (/ &\n     &1.2802e-05_rb,1.4140e-05_rb,1.5857e-05_rb,1.8384e-05_rb,2.2160e-05_rb/)\n      kbo(:,55, 1) = (/ &\n     &1.0251e-05_rb,1.1335e-05_rb,1.2664e-05_rb,1.4589e-05_rb,1.7471e-05_rb/)\n      kbo(:,56, 1) = (/ &\n     &8.1863e-06_rb,9.0810e-06_rb,1.0125e-05_rb,1.1592e-05_rb,1.3791e-05_rb/)\n      kbo(:,57, 1) = (/ &\n     &6.5183e-06_rb,7.2717e-06_rb,8.0938e-06_rb,9.2169e-06_rb,1.0895e-05_rb/)\n      kbo(:,58, 1) = (/ &\n     &5.1879e-06_rb,5.8228e-06_rb,6.4835e-06_rb,7.3485e-06_rb,8.6418e-06_rb/)\n      kbo(:,59, 1) = (/ &\n     &4.2168e-06_rb,4.7498e-06_rb,5.3015e-06_rb,6.0144e-06_rb,7.0853e-06_rb/)\n      kbo(:,13, 2) = (/ &\n     &1.3654e-01_rb,1.5163e-01_rb,1.6956e-01_rb,1.9071e-01_rb,2.1617e-01_rb/)\n      kbo(:,14, 2) = (/ &\n     &1.1559e-01_rb,1.2885e-01_rb,1.4454e-01_rb,1.6328e-01_rb,1.8606e-01_rb/)\n      kbo(:,15, 2) = (/ &\n     &9.7693e-02_rb,1.0924e-01_rb,1.2296e-01_rb,1.3968e-01_rb,1.6004e-01_rb/)\n      kbo(:,16, 2) = (/ &\n     &8.2470e-02_rb,9.2497e-02_rb,1.0461e-01_rb,1.1951e-01_rb,1.3759e-01_rb/)\n      kbo(:,17, 2) = (/ &\n     &6.9485e-02_rb,7.8236e-02_rb,8.9019e-02_rb,1.0217e-01_rb,1.1819e-01_rb/)\n      kbo(:,18, 2) = (/ &\n     &5.8434e-02_rb,6.6177e-02_rb,7.5740e-02_rb,8.7380e-02_rb,1.0143e-01_rb/)\n      kbo(:,19, 2) = (/ &\n     &4.9105e-02_rb,5.5950e-02_rb,6.4367e-02_rb,7.4577e-02_rb,8.6834e-02_rb/)\n      kbo(:,20, 2) = (/ &\n     &4.1358e-02_rb,4.7392e-02_rb,5.4755e-02_rb,6.3671e-02_rb,7.4385e-02_rb/)\n      kbo(:,21, 2) = (/ &\n     &3.4862e-02_rb,4.0138e-02_rb,4.6538e-02_rb,5.4275e-02_rb,6.3577e-02_rb/)\n      kbo(:,22, 2) = (/ &\n     &2.9678e-02_rb,3.4317e-02_rb,3.9913e-02_rb,4.6700e-02_rb,5.4863e-02_rb/)\n      kbo(:,23, 2) = (/ &\n     &2.5302e-02_rb,2.9357e-02_rb,3.4270e-02_rb,4.0209e-02_rb,4.7364e-02_rb/)\n      kbo(:,24, 2) = (/ &\n     &2.1615e-02_rb,2.5159e-02_rb,2.9473e-02_rb,3.4693e-02_rb,4.0992e-02_rb/)\n      kbo(:,25, 2) = (/ &\n     &1.8506e-02_rb,2.1620e-02_rb,2.5407e-02_rb,3.0032e-02_rb,3.5645e-02_rb/)\n      kbo(:,26, 2) = (/ &\n     &1.5911e-02_rb,1.8663e-02_rb,2.2016e-02_rb,2.6153e-02_rb,3.1176e-02_rb/)\n      kbo(:,27, 2) = (/ &\n     &1.3710e-02_rb,1.6139e-02_rb,1.9144e-02_rb,2.2842e-02_rb,2.7378e-02_rb/)\n      kbo(:,28, 2) = (/ &\n     &1.1834e-02_rb,1.3997e-02_rb,1.6695e-02_rb,2.0027e-02_rb,2.4111e-02_rb/)\n      kbo(:,29, 2) = (/ &\n     &1.0249e-02_rb,1.2190e-02_rb,1.4630e-02_rb,1.7647e-02_rb,2.1313e-02_rb/)\n      kbo(:,30, 2) = (/ &\n     &8.9036e-03_rb,1.0661e-02_rb,1.2868e-02_rb,1.5600e-02_rb,1.8888e-02_rb/)\n      kbo(:,31, 2) = (/ &\n     &7.7687e-03_rb,9.3699e-03_rb,1.1378e-02_rb,1.3839e-02_rb,1.6787e-02_rb/)\n      kbo(:,32, 2) = (/ &\n     &6.8140e-03_rb,8.2759e-03_rb,1.0101e-02_rb,1.2319e-02_rb,1.4958e-02_rb/)\n      kbo(:,33, 2) = (/ &\n     &6.0058e-03_rb,7.3417e-03_rb,8.9915e-03_rb,1.0990e-02_rb,1.3357e-02_rb/)\n      kbo(:,34, 2) = (/ &\n     &5.2812e-03_rb,6.4864e-03_rb,7.9715e-03_rb,9.7608e-03_rb,1.1880e-02_rb/)\n      kbo(:,35, 2) = (/ &\n     &4.5664e-03_rb,5.6316e-03_rb,6.9402e-03_rb,8.5171e-03_rb,1.0395e-02_rb/)\n      kbo(:,36, 2) = (/ &\n     &3.8650e-03_rb,4.7853e-03_rb,5.9182e-03_rb,7.2844e-03_rb,8.9146e-03_rb/)\n      kbo(:,37, 2) = (/ &\n     &3.1698e-03_rb,3.9391e-03_rb,4.8941e-03_rb,6.0480e-03_rb,7.4275e-03_rb/)\n      kbo(:,38, 2) = (/ &\n     &2.5939e-03_rb,3.2378e-03_rb,4.0393e-03_rb,5.0137e-03_rb,6.1786e-03_rb/)\n      kbo(:,39, 2) = (/ &\n     &2.1228e-03_rb,2.6601e-03_rb,3.3343e-03_rb,4.1558e-03_rb,5.1416e-03_rb/)\n      kbo(:,40, 2) = (/ &\n     &1.6967e-03_rb,2.1355e-03_rb,2.6888e-03_rb,3.3677e-03_rb,4.1883e-03_rb/)\n      kbo(:,41, 2) = (/ &\n     &1.3505e-03_rb,1.7067e-03_rb,2.1592e-03_rb,2.7184e-03_rb,3.3988e-03_rb/)\n      kbo(:,42, 2) = (/ &\n     &1.0736e-03_rb,1.3626e-03_rb,1.7319e-03_rb,2.1915e-03_rb,2.7553e-03_rb/)\n      kbo(:,43, 2) = (/ &\n     &8.4090e-04_rb,1.0714e-03_rb,1.3684e-03_rb,1.7414e-03_rb,2.2023e-03_rb/)\n      kbo(:,44, 2) = (/ &\n     &6.5390e-04_rb,8.3586e-04_rb,1.0728e-03_rb,1.3727e-03_rb,1.7466e-03_rb/)\n      kbo(:,45, 2) = (/ &\n     &5.0782e-04_rb,6.5105e-04_rb,8.3889e-04_rb,1.0793e-03_rb,1.3823e-03_rb/)\n      kbo(:,46, 2) = (/ &\n     &3.9179e-04_rb,5.0302e-04_rb,6.5132e-04_rb,8.4212e-04_rb,1.0854e-03_rb/)\n      kbo(:,47, 2) = (/ &\n     &2.9882e-04_rb,3.8363e-04_rb,4.9873e-04_rb,6.4829e-04_rb,8.4103e-04_rb/)\n      kbo(:,48, 2) = (/ &\n     &2.2778e-04_rb,2.9209e-04_rb,3.8081e-04_rb,4.9759e-04_rb,6.4942e-04_rb/)\n      kbo(:,49, 2) = (/ &\n     &1.7348e-04_rb,2.2201e-04_rb,2.8994e-04_rb,3.8059e-04_rb,4.9968e-04_rb/)\n      kbo(:,50, 2) = (/ &\n     &1.3291e-04_rb,1.6970e-04_rb,2.2169e-04_rb,2.9250e-04_rb,3.8590e-04_rb/)\n      kbo(:,51, 2) = (/ &\n     &1.0207e-04_rb,1.2991e-04_rb,1.6972e-04_rb,2.2476e-04_rb,2.9809e-04_rb/)\n      kbo(:,52, 2) = (/ &\n     &7.8428e-05_rb,9.9370e-05_rb,1.2969e-04_rb,1.7236e-04_rb,2.2955e-04_rb/)\n      kbo(:,53, 2) = (/ &\n     &6.0320e-05_rb,7.5906e-05_rb,9.8948e-05_rb,1.3170e-04_rb,1.7631e-04_rb/)\n      kbo(:,54, 2) = (/ &\n     &4.6701e-05_rb,5.8457e-05_rb,7.5987e-05_rb,1.0130e-04_rb,1.3626e-04_rb/)\n      kbo(:,55, 2) = (/ &\n     &3.6311e-05_rb,4.5177e-05_rb,5.8536e-05_rb,7.8091e-05_rb,1.0548e-04_rb/)\n      kbo(:,56, 2) = (/ &\n     &2.8265e-05_rb,3.4933e-05_rb,4.5042e-05_rb,6.0092e-05_rb,8.1465e-05_rb/)\n      kbo(:,57, 2) = (/ &\n     &2.2041e-05_rb,2.7013e-05_rb,3.4636e-05_rb,4.6160e-05_rb,6.2788e-05_rb/)\n      kbo(:,58, 2) = (/ &\n     &1.7267e-05_rb,2.0998e-05_rb,2.6754e-05_rb,3.5587e-05_rb,4.8495e-05_rb/)\n      kbo(:,59, 2) = (/ &\n     &1.3975e-05_rb,1.7004e-05_rb,2.1693e-05_rb,2.8956e-05_rb,3.9630e-05_rb/)\n      kbo(:,13, 3) = (/ &\n     &4.6584e-01_rb,5.5439e-01_rb,6.5378e-01_rb,7.6270e-01_rb,8.8077e-01_rb/)\n      kbo(:,14, 3) = (/ &\n     &4.0124e-01_rb,4.7657e-01_rb,5.6034e-01_rb,6.5177e-01_rb,7.5174e-01_rb/)\n      kbo(:,15, 3) = (/ &\n     &3.4513e-01_rb,4.0912e-01_rb,4.7944e-01_rb,5.5671e-01_rb,6.4124e-01_rb/)\n      kbo(:,16, 3) = (/ &\n     &2.9666e-01_rb,3.5062e-01_rb,4.0982e-01_rb,4.7509e-01_rb,5.4644e-01_rb/)\n      kbo(:,17, 3) = (/ &\n     &2.5400e-01_rb,2.9955e-01_rb,3.4952e-01_rb,4.0464e-01_rb,4.6504e-01_rb/)\n      kbo(:,18, 3) = (/ &\n     &2.1648e-01_rb,2.5489e-01_rb,2.9720e-01_rb,3.4406e-01_rb,3.9550e-01_rb/)\n      kbo(:,19, 3) = (/ &\n     &1.8385e-01_rb,2.1623e-01_rb,2.5204e-01_rb,2.9205e-01_rb,3.3599e-01_rb/)\n      kbo(:,20, 3) = (/ &\n     &1.5627e-01_rb,1.8359e-01_rb,2.1416e-01_rb,2.4849e-01_rb,2.8606e-01_rb/)\n      kbo(:,21, 3) = (/ &\n     &1.3276e-01_rb,1.5592e-01_rb,1.8216e-01_rb,2.1168e-01_rb,2.4388e-01_rb/)\n      kbo(:,22, 3) = (/ &\n     &1.1395e-01_rb,1.3395e-01_rb,1.5675e-01_rb,1.8217e-01_rb,2.0967e-01_rb/)\n      kbo(:,23, 3) = (/ &\n     &9.7815e-02_rb,1.1526e-01_rb,1.3514e-01_rb,1.5691e-01_rb,1.8033e-01_rb/)\n      kbo(:,24, 3) = (/ &\n     &8.4102e-02_rb,9.9408e-02_rb,1.1660e-01_rb,1.3523e-01_rb,1.5511e-01_rb/)\n      kbo(:,25, 3) = (/ &\n     &7.2584e-02_rb,8.5921e-02_rb,1.0065e-01_rb,1.1653e-01_rb,1.3347e-01_rb/)\n      kbo(:,26, 3) = (/ &\n     &6.2935e-02_rb,7.4476e-02_rb,8.7054e-02_rb,1.0059e-01_rb,1.1498e-01_rb/)\n      kbo(:,27, 3) = (/ &\n     &5.4628e-02_rb,6.4547e-02_rb,7.5255e-02_rb,8.6846e-02_rb,9.9043e-02_rb/)\n      kbo(:,28, 3) = (/ &\n     &4.7438e-02_rb,5.5913e-02_rb,6.5081e-02_rb,7.4969e-02_rb,8.5391e-02_rb/)\n      kbo(:,29, 3) = (/ &\n     &4.1247e-02_rb,4.8483e-02_rb,5.6377e-02_rb,6.4788e-02_rb,7.3775e-02_rb/)\n      kbo(:,30, 3) = (/ &\n     &3.5874e-02_rb,4.2080e-02_rb,4.8862e-02_rb,5.6085e-02_rb,6.3787e-02_rb/)\n      kbo(:,31, 3) = (/ &\n     &3.1224e-02_rb,3.6582e-02_rb,4.2396e-02_rb,4.8680e-02_rb,5.5240e-02_rb/)\n      kbo(:,32, 3) = (/ &\n     &2.7211e-02_rb,3.1854e-02_rb,3.6880e-02_rb,4.2315e-02_rb,4.7892e-02_rb/)\n      kbo(:,33, 3) = (/ &\n     &2.3744e-02_rb,2.7755e-02_rb,3.2147e-02_rb,3.6823e-02_rb,4.1518e-02_rb/)\n      kbo(:,34, 3) = (/ &\n     &2.0626e-02_rb,2.4111e-02_rb,2.7927e-02_rb,3.1884e-02_rb,3.5825e-02_rb/)\n      kbo(:,35, 3) = (/ &\n     &1.7661e-02_rb,2.0671e-02_rb,2.3952e-02_rb,2.7283e-02_rb,3.0580e-02_rb/)\n      kbo(:,36, 3) = (/ &\n     &1.4872e-02_rb,1.7453e-02_rb,2.0237e-02_rb,2.3045e-02_rb,2.5826e-02_rb/)\n      kbo(:,37, 3) = (/ &\n     &1.2231e-02_rb,1.4407e-02_rb,1.6754e-02_rb,1.9119e-02_rb,2.1470e-02_rb/)\n      kbo(:,38, 3) = (/ &\n     &1.0046e-02_rb,1.1883e-02_rb,1.3859e-02_rb,1.5852e-02_rb,1.7844e-02_rb/)\n      kbo(:,39, 3) = (/ &\n     &8.2562e-03_rb,9.8067e-03_rb,1.1470e-02_rb,1.3152e-02_rb,1.4841e-02_rb/)\n      kbo(:,40, 3) = (/ &\n     &6.6596e-03_rb,7.9555e-03_rb,9.3542e-03_rb,1.0774e-02_rb,1.2201e-02_rb/)\n      kbo(:,41, 3) = (/ &\n     &5.3569e-03_rb,6.4354e-03_rb,7.6095e-03_rb,8.8054e-03_rb,1.0012e-02_rb/)\n      kbo(:,42, 3) = (/ &\n     &4.3009e-03_rb,5.1973e-03_rb,6.1851e-03_rb,7.1918e-03_rb,8.2134e-03_rb/)\n      kbo(:,43, 3) = (/ &\n     &3.4093e-03_rb,4.1490e-03_rb,4.9732e-03_rb,5.8239e-03_rb,6.6848e-03_rb/)\n      kbo(:,44, 3) = (/ &\n     &2.6823e-03_rb,3.2897e-03_rb,3.9739e-03_rb,4.6907e-03_rb,5.4167e-03_rb/)\n      kbo(:,45, 3) = (/ &\n     &2.1046e-03_rb,2.6003e-03_rb,3.1662e-03_rb,3.7704e-03_rb,4.3820e-03_rb/)\n      kbo(:,46, 3) = (/ &\n     &1.6388e-03_rb,2.0403e-03_rb,2.5048e-03_rb,3.0127e-03_rb,3.5286e-03_rb/)\n      kbo(:,47, 3) = (/ &\n     &1.2595e-03_rb,1.5807e-03_rb,1.9580e-03_rb,2.3819e-03_rb,2.8168e-03_rb/)\n      kbo(:,48, 3) = (/ &\n     &9.6423e-04_rb,1.2197e-03_rb,1.5249e-03_rb,1.8746e-03_rb,2.2418e-03_rb/)\n      kbo(:,49, 3) = (/ &\n     &7.3527e-04_rb,9.3718e-04_rb,1.1821e-03_rb,1.4684e-03_rb,1.7777e-03_rb/)\n      kbo(:,50, 3) = (/ &\n     &5.6217e-04_rb,7.2217e-04_rb,9.1835e-04_rb,1.1512e-03_rb,1.4112e-03_rb/)\n      kbo(:,51, 3) = (/ &\n     &4.2967e-04_rb,5.5583e-04_rb,7.1300e-04_rb,9.0190e-04_rb,1.1184e-03_rb/)\n      kbo(:,52, 3) = (/ &\n     &3.2742e-04_rb,4.2631e-04_rb,5.5137e-04_rb,7.0406e-04_rb,8.8313e-04_rb/)\n      kbo(:,53, 3) = (/ &\n     &2.4868e-04_rb,3.2582e-04_rb,4.2465e-04_rb,5.4760e-04_rb,6.9409e-04_rb/)\n      kbo(:,54, 3) = (/ &\n     &1.8974e-04_rb,2.5027e-04_rb,3.2861e-04_rb,4.2756e-04_rb,5.4716e-04_rb/)\n      kbo(:,55, 3) = (/ &\n     &1.4494e-04_rb,1.9239e-04_rb,2.5442e-04_rb,3.3395e-04_rb,4.3136e-04_rb/)\n      kbo(:,56, 3) = (/ &\n     &1.1043e-04_rb,1.4756e-04_rb,1.9639e-04_rb,2.5993e-04_rb,3.3900e-04_rb/)\n      kbo(:,57, 3) = (/ &\n     &8.3928e-05_rb,1.1287e-04_rb,1.5113e-04_rb,2.0155e-04_rb,2.6555e-04_rb/)\n      kbo(:,58, 3) = (/ &\n     &6.4018e-05_rb,8.6477e-05_rb,1.1648e-04_rb,1.5666e-04_rb,2.0830e-04_rb/)\n      kbo(:,59, 3) = (/ &\n     &5.1497e-05_rb,6.9896e-05_rb,9.4663e-05_rb,1.2810e-04_rb,1.7150e-04_rb/)\n      kbo(:,13, 4) = (/ &\n     &1.7524e+00_rb,1.9492e+00_rb,2.1512e+00_rb,2.3564e+00_rb,2.5478e+00_rb/)\n      kbo(:,14, 4) = (/ &\n     &1.4772e+00_rb,1.6494e+00_rb,1.8280e+00_rb,2.0044e+00_rb,2.1600e+00_rb/)\n      kbo(:,15, 4) = (/ &\n     &1.2495e+00_rb,1.4008e+00_rb,1.5559e+00_rb,1.6974e+00_rb,1.8203e+00_rb/)\n      kbo(:,16, 4) = (/ &\n     &1.0605e+00_rb,1.1902e+00_rb,1.3172e+00_rb,1.4293e+00_rb,1.5280e+00_rb/)\n      kbo(:,17, 4) = (/ &\n     &8.9958e-01_rb,1.0068e+00_rb,1.1092e+00_rb,1.1993e+00_rb,1.2798e+00_rb/)\n      kbo(:,18, 4) = (/ &\n     &7.6135e-01_rb,8.4970e-01_rb,9.3198e-01_rb,1.0052e+00_rb,1.0709e+00_rb/)\n      kbo(:,19, 4) = (/ &\n     &6.4340e-01_rb,7.1592e-01_rb,7.8258e-01_rb,8.4177e-01_rb,8.9530e-01_rb/)\n      kbo(:,20, 4) = (/ &\n     &5.4418e-01_rb,6.0357e-01_rb,6.5718e-01_rb,7.0498e-01_rb,7.4918e-01_rb/)\n      kbo(:,21, 4) = (/ &\n     &4.5911e-01_rb,5.0742e-01_rb,5.5063e-01_rb,5.8988e-01_rb,6.2662e-01_rb/)\n      kbo(:,22, 4) = (/ &\n     &3.8906e-01_rb,4.2787e-01_rb,4.6285e-01_rb,4.9521e-01_rb,5.2615e-01_rb/)\n      kbo(:,23, 4) = (/ &\n     &3.2912e-01_rb,3.6040e-01_rb,3.8895e-01_rb,4.1593e-01_rb,4.4229e-01_rb/)\n      kbo(:,24, 4) = (/ &\n     &2.7830e-01_rb,3.0371e-01_rb,3.2729e-01_rb,3.5001e-01_rb,3.7213e-01_rb/)\n      kbo(:,25, 4) = (/ &\n     &2.3534e-01_rb,2.5620e-01_rb,2.7595e-01_rb,2.9506e-01_rb,3.1323e-01_rb/)\n      kbo(:,26, 4) = (/ &\n     &1.9937e-01_rb,2.1667e-01_rb,2.3330e-01_rb,2.4915e-01_rb,2.6395e-01_rb/)\n      kbo(:,27, 4) = (/ &\n     &1.6896e-01_rb,1.8346e-01_rb,1.9732e-01_rb,2.1038e-01_rb,2.2245e-01_rb/)\n      kbo(:,28, 4) = (/ &\n     &1.4324e-01_rb,1.5539e-01_rb,1.6686e-01_rb,1.7760e-01_rb,1.8754e-01_rb/)\n      kbo(:,29, 4) = (/ &\n     &1.2158e-01_rb,1.3162e-01_rb,1.4109e-01_rb,1.4990e-01_rb,1.5824e-01_rb/)\n      kbo(:,30, 4) = (/ &\n     &1.0319e-01_rb,1.1149e-01_rb,1.1927e-01_rb,1.2651e-01_rb,1.3374e-01_rb/)\n      kbo(:,31, 4) = (/ &\n     &8.7596e-02_rb,9.4445e-02_rb,1.0083e-01_rb,1.0683e-01_rb,1.1324e-01_rb/)\n      kbo(:,32, 4) = (/ &\n     &7.4371e-02_rb,7.9986e-02_rb,8.5218e-02_rb,9.0404e-02_rb,9.6151e-02_rb/)\n      kbo(:,33, 4) = (/ &\n     &6.3127e-02_rb,6.7754e-02_rb,7.2100e-02_rb,7.6670e-02_rb,8.1947e-02_rb/)\n      kbo(:,34, 4) = (/ &\n     &5.3448e-02_rb,5.7257e-02_rb,6.0976e-02_rb,6.5117e-02_rb,6.9920e-02_rb/)\n      kbo(:,35, 4) = (/ &\n     &4.4958e-02_rb,4.8132e-02_rb,5.1386e-02_rb,5.5110e-02_rb,5.9396e-02_rb/)\n      kbo(:,36, 4) = (/ &\n     &3.7535e-02_rb,4.0225e-02_rb,4.3084e-02_rb,4.6370e-02_rb,5.0142e-02_rb/)\n      kbo(:,37, 4) = (/ &\n     &3.1000e-02_rb,3.3296e-02_rb,3.5751e-02_rb,3.8593e-02_rb,4.1835e-02_rb/)\n      kbo(:,38, 4) = (/ &\n     &2.5584e-02_rb,2.7542e-02_rb,2.9661e-02_rb,3.2102e-02_rb,3.4896e-02_rb/)\n      kbo(:,39, 4) = (/ &\n     &2.1117e-02_rb,2.2790e-02_rb,2.4613e-02_rb,2.6708e-02_rb,2.9115e-02_rb/)\n      kbo(:,40, 4) = (/ &\n     &1.7285e-02_rb,1.8708e-02_rb,2.0253e-02_rb,2.2025e-02_rb,2.4072e-02_rb/)\n      kbo(:,41, 4) = (/ &\n     &1.4124e-02_rb,1.5332e-02_rb,1.6640e-02_rb,1.8138e-02_rb,1.9869e-02_rb/)\n      kbo(:,42, 4) = (/ &\n     &1.1535e-02_rb,1.2562e-02_rb,1.3665e-02_rb,1.4929e-02_rb,1.6393e-02_rb/)\n      kbo(:,43, 4) = (/ &\n     &9.3628e-03_rb,1.0238e-02_rb,1.1164e-02_rb,1.2221e-02_rb,1.3452e-02_rb/)\n      kbo(:,44, 4) = (/ &\n     &7.5734e-03_rb,8.3195e-03_rb,9.0965e-03_rb,9.9764e-03_rb,1.1001e-02_rb/)\n      kbo(:,45, 4) = (/ &\n     &6.1205e-03_rb,6.7536e-03_rb,7.4083e-03_rb,8.1381e-03_rb,8.9936e-03_rb/)\n      kbo(:,46, 4) = (/ &\n     &4.9262e-03_rb,5.4662e-03_rb,6.0165e-03_rb,6.6206e-03_rb,7.3272e-03_rb/)\n      kbo(:,47, 4) = (/ &\n     &3.9391e-03_rb,4.3970e-03_rb,4.8610e-03_rb,5.3580e-03_rb,5.9369e-03_rb/)\n      kbo(:,48, 4) = (/ &\n     &3.1403e-03_rb,3.5287e-03_rb,3.9210e-03_rb,4.3323e-03_rb,4.8039e-03_rb/)\n      kbo(:,49, 4) = (/ &\n     &2.4956e-03_rb,2.8254e-03_rb,3.1568e-03_rb,3.4981e-03_rb,3.8839e-03_rb/)\n      kbo(:,50, 4) = (/ &\n     &1.9828e-03_rb,2.2636e-03_rb,2.5424e-03_rb,2.8288e-03_rb,3.1441e-03_rb/)\n      kbo(:,51, 4) = (/ &\n     &1.5714e-03_rb,1.8113e-03_rb,2.0459e-03_rb,2.2868e-03_rb,2.5462e-03_rb/)\n      kbo(:,52, 4) = (/ &\n     &1.2395e-03_rb,1.4453e-03_rb,1.6428e-03_rb,1.8457e-03_rb,2.0598e-03_rb/)\n      kbo(:,53, 4) = (/ &\n     &9.7290e-04_rb,1.1497e-03_rb,1.3161e-03_rb,1.4871e-03_rb,1.6649e-03_rb/)\n      kbo(:,54, 4) = (/ &\n     &7.6445e-04_rb,9.1516e-04_rb,1.0560e-03_rb,1.2000e-03_rb,1.3484e-03_rb/)\n      kbo(:,55, 4) = (/ &\n     &5.9991e-04_rb,7.2766e-04_rb,8.4765e-04_rb,9.6806e-04_rb,1.0927e-03_rb/)\n      kbo(:,56, 4) = (/ &\n     &4.6862e-04_rb,5.7638e-04_rb,6.7857e-04_rb,7.7940e-04_rb,8.8453e-04_rb/)\n      kbo(:,57, 4) = (/ &\n     &3.6453e-04_rb,4.5447e-04_rb,5.4199e-04_rb,6.2645e-04_rb,7.1474e-04_rb/)\n      kbo(:,58, 4) = (/ &\n     &2.8389e-04_rb,3.5818e-04_rb,4.3272e-04_rb,5.0377e-04_rb,5.7789e-04_rb/)\n      kbo(:,59, 4) = (/ &\n     &2.3060e-04_rb,2.9282e-04_rb,3.5542e-04_rb,4.1534e-04_rb,4.7810e-04_rb/)\n      kbo(:,13, 5) = (/ &\n     &4.6094e+00_rb,4.6772e+00_rb,4.7246e+00_rb,4.7737e+00_rb,4.8549e+00_rb/)\n      kbo(:,14, 5) = (/ &\n     &3.8278e+00_rb,3.8806e+00_rb,3.9251e+00_rb,3.9810e+00_rb,4.0718e+00_rb/)\n      kbo(:,15, 5) = (/ &\n     &3.1722e+00_rb,3.2168e+00_rb,3.2634e+00_rb,3.3308e+00_rb,3.4210e+00_rb/)\n      kbo(:,16, 5) = (/ &\n     &2.6249e+00_rb,2.6705e+00_rb,2.7237e+00_rb,2.7913e+00_rb,2.8656e+00_rb/)\n      kbo(:,17, 5) = (/ &\n     &2.1764e+00_rb,2.2249e+00_rb,2.2741e+00_rb,2.3304e+00_rb,2.3919e+00_rb/)\n      kbo(:,18, 5) = (/ &\n     &1.8098e+00_rb,1.8520e+00_rb,1.8935e+00_rb,1.9392e+00_rb,1.9922e+00_rb/)\n      kbo(:,19, 5) = (/ &\n     &1.5044e+00_rb,1.5380e+00_rb,1.5723e+00_rb,1.6122e+00_rb,1.6588e+00_rb/)\n      kbo(:,20, 5) = (/ &\n     &1.2493e+00_rb,1.2764e+00_rb,1.3059e+00_rb,1.3405e+00_rb,1.3817e+00_rb/)\n      kbo(:,21, 5) = (/ &\n     &1.0373e+00_rb,1.0597e+00_rb,1.0855e+00_rb,1.1148e+00_rb,1.1513e+00_rb/)\n      kbo(:,22, 5) = (/ &\n     &8.6282e-01_rb,8.8188e-01_rb,9.0343e-01_rb,9.2979e-01_rb,9.6231e-01_rb/)\n      kbo(:,23, 5) = (/ &\n     &7.1704e-01_rb,7.3333e-01_rb,7.5232e-01_rb,7.7633e-01_rb,8.0551e-01_rb/)\n      kbo(:,24, 5) = (/ &\n     &5.9518e-01_rb,6.0940e-01_rb,6.2643e-01_rb,6.4862e-01_rb,6.7508e-01_rb/)\n      kbo(:,25, 5) = (/ &\n     &4.9422e-01_rb,5.0656e-01_rb,5.2248e-01_rb,5.4283e-01_rb,5.6739e-01_rb/)\n      kbo(:,26, 5) = (/ &\n     &4.1037e-01_rb,4.2180e-01_rb,4.3687e-01_rb,4.5588e-01_rb,4.7822e-01_rb/)\n      kbo(:,27, 5) = (/ &\n     &3.4124e-01_rb,3.5223e-01_rb,3.6648e-01_rb,3.8368e-01_rb,4.0379e-01_rb/)\n      kbo(:,28, 5) = (/ &\n     &2.8464e-01_rb,2.9501e-01_rb,3.0821e-01_rb,3.2362e-01_rb,3.4157e-01_rb/)\n      kbo(:,29, 5) = (/ &\n     &2.3808e-01_rb,2.4801e-01_rb,2.5984e-01_rb,2.7366e-01_rb,2.8965e-01_rb/)\n      kbo(:,30, 5) = (/ &\n     &1.9967e-01_rb,2.0890e-01_rb,2.1955e-01_rb,2.3198e-01_rb,2.4657e-01_rb/)\n      kbo(:,31, 5) = (/ &\n     &1.6792e-01_rb,1.7624e-01_rb,1.8593e-01_rb,1.9729e-01_rb,2.1071e-01_rb/)\n      kbo(:,32, 5) = (/ &\n     &1.4147e-01_rb,1.4902e-01_rb,1.5786e-01_rb,1.6833e-01_rb,1.8092e-01_rb/)\n      kbo(:,33, 5) = (/ &\n     &1.1942e-01_rb,1.2630e-01_rb,1.3442e-01_rb,1.4414e-01_rb,1.5600e-01_rb/)\n      kbo(:,34, 5) = (/ &\n     &1.0087e-01_rb,1.0707e-01_rb,1.1451e-01_rb,1.2366e-01_rb,1.3474e-01_rb/)\n      kbo(:,35, 5) = (/ &\n     &8.4860e-02_rb,9.0419e-02_rb,9.7193e-02_rb,1.0562e-01_rb,1.1587e-01_rb/)\n      kbo(:,36, 5) = (/ &\n     &7.0999e-02_rb,7.5907e-02_rb,8.1988e-02_rb,8.9567e-02_rb,9.8842e-02_rb/)\n      kbo(:,37, 5) = (/ &\n     &5.8886e-02_rb,6.3102e-02_rb,6.8391e-02_rb,7.5008e-02_rb,8.3160e-02_rb/)\n      kbo(:,38, 5) = (/ &\n     &4.8832e-02_rb,5.2452e-02_rb,5.7040e-02_rb,6.2826e-02_rb,7.0009e-02_rb/)\n      kbo(:,39, 5) = (/ &\n     &4.0501e-02_rb,4.3616e-02_rb,4.7608e-02_rb,5.2697e-02_rb,5.9016e-02_rb/)\n      kbo(:,40, 5) = (/ &\n     &3.3361e-02_rb,3.5983e-02_rb,3.9374e-02_rb,4.3750e-02_rb,4.9196e-02_rb/)\n      kbo(:,41, 5) = (/ &\n     &2.7445e-02_rb,2.9649e-02_rb,3.2516e-02_rb,3.6256e-02_rb,4.0930e-02_rb/)\n      kbo(:,42, 5) = (/ &\n     &2.2572e-02_rb,2.4412e-02_rb,2.6829e-02_rb,3.0022e-02_rb,3.4040e-02_rb/)\n      kbo(:,43, 5) = (/ &\n     &1.8476e-02_rb,1.9991e-02_rb,2.1997e-02_rb,2.4673e-02_rb,2.8080e-02_rb/)\n      kbo(:,44, 5) = (/ &\n     &1.5092e-02_rb,1.6330e-02_rb,1.7973e-02_rb,2.0194e-02_rb,2.3058e-02_rb/)\n      kbo(:,45, 5) = (/ &\n     &1.2321e-02_rb,1.3334e-02_rb,1.4674e-02_rb,1.6507e-02_rb,1.8911e-02_rb/)\n      kbo(:,46, 5) = (/ &\n     &1.0036e-02_rb,1.0861e-02_rb,1.1940e-02_rb,1.3440e-02_rb,1.5434e-02_rb/)\n      kbo(:,47, 5) = (/ &\n     &8.1439e-03_rb,8.8117e-03_rb,9.6681e-03_rb,1.0871e-02_rb,1.2500e-02_rb/)\n      kbo(:,48, 5) = (/ &\n     &6.6059e-03_rb,7.1462e-03_rb,7.8259e-03_rb,8.7835e-03_rb,1.0106e-02_rb/)\n      kbo(:,49, 5) = (/ &\n     &5.3548e-03_rb,5.7913e-03_rb,6.3343e-03_rb,7.0935e-03_rb,8.1581e-03_rb/)\n      kbo(:,50, 5) = (/ &\n     &4.3482e-03_rb,4.7014e-03_rb,5.1411e-03_rb,5.7429e-03_rb,6.6034e-03_rb/)\n      kbo(:,51, 5) = (/ &\n     &3.5331e-03_rb,3.8185e-03_rb,4.1765e-03_rb,4.6543e-03_rb,5.3466e-03_rb/)\n      kbo(:,52, 5) = (/ &\n     &2.8695e-03_rb,3.1007e-03_rb,3.3920e-03_rb,3.7708e-03_rb,4.3257e-03_rb/)\n      kbo(:,53, 5) = (/ &\n     &2.3291e-03_rb,2.5165e-03_rb,2.7524e-03_rb,3.0532e-03_rb,3.4935e-03_rb/)\n      kbo(:,54, 5) = (/ &\n     &1.8925e-03_rb,2.0468e-03_rb,2.2382e-03_rb,2.4801e-03_rb,2.8323e-03_rb/)\n      kbo(:,55, 5) = (/ &\n     &1.5385e-03_rb,1.6657e-03_rb,1.8210e-03_rb,2.0171e-03_rb,2.2988e-03_rb/)\n      kbo(:,56, 5) = (/ &\n     &1.2499e-03_rb,1.3548e-03_rb,1.4808e-03_rb,1.6398e-03_rb,1.8634e-03_rb/)\n      kbo(:,57, 5) = (/ &\n     &1.0138e-03_rb,1.1010e-03_rb,1.2032e-03_rb,1.3320e-03_rb,1.5093e-03_rb/)\n      kbo(:,58, 5) = (/ &\n     &8.2159e-04_rb,8.9516e-04_rb,9.7844e-04_rb,1.0832e-03_rb,1.2245e-03_rb/)\n      kbo(:,59, 5) = (/ &\n     &6.7629e-04_rb,7.3875e-04_rb,8.0921e-04_rb,8.9812e-04_rb,1.0190e-03_rb/)\n      kbo(:,13, 6) = (/ &\n     &8.6109e+00_rb,8.6045e+00_rb,8.6391e+00_rb,8.7159e+00_rb,8.8472e+00_rb/)\n      kbo(:,14, 6) = (/ &\n     &7.2012e+00_rb,7.1992e+00_rb,7.2347e+00_rb,7.3193e+00_rb,7.4652e+00_rb/)\n      kbo(:,15, 6) = (/ &\n     &6.0036e+00_rb,6.0084e+00_rb,6.0525e+00_rb,6.1531e+00_rb,6.3134e+00_rb/)\n      kbo(:,16, 6) = (/ &\n     &4.9860e+00_rb,4.9990e+00_rb,5.0571e+00_rb,5.1776e+00_rb,5.3476e+00_rb/)\n      kbo(:,17, 6) = (/ &\n     &4.1286e+00_rb,4.1532e+00_rb,4.2350e+00_rb,4.3671e+00_rb,4.5277e+00_rb/)\n      kbo(:,18, 6) = (/ &\n     &3.4143e+00_rb,3.4596e+00_rb,3.5560e+00_rb,3.6799e+00_rb,3.8169e+00_rb/)\n      kbo(:,19, 6) = (/ &\n     &2.8306e+00_rb,2.8919e+00_rb,2.9820e+00_rb,3.0877e+00_rb,3.2050e+00_rb/)\n      kbo(:,20, 6) = (/ &\n     &2.3552e+00_rb,2.4158e+00_rb,2.4951e+00_rb,2.5846e+00_rb,2.6876e+00_rb/)\n      kbo(:,21, 6) = (/ &\n     &1.9600e+00_rb,2.0149e+00_rb,2.0826e+00_rb,2.1623e+00_rb,2.2526e+00_rb/)\n      kbo(:,22, 6) = (/ &\n     &1.6326e+00_rb,1.6825e+00_rb,1.7432e+00_rb,1.8140e+00_rb,1.8956e+00_rb/)\n      kbo(:,23, 6) = (/ &\n     &1.3616e+00_rb,1.4065e+00_rb,1.4611e+00_rb,1.5245e+00_rb,1.5974e+00_rb/)\n      kbo(:,24, 6) = (/ &\n     &1.1379e+00_rb,1.1784e+00_rb,1.2266e+00_rb,1.2828e+00_rb,1.3489e+00_rb/)\n      kbo(:,25, 6) = (/ &\n     &9.5263e-01_rb,9.8858e-01_rb,1.0309e+00_rb,1.0818e+00_rb,1.1428e+00_rb/)\n      kbo(:,26, 6) = (/ &\n     &7.9793e-01_rb,8.2975e-01_rb,8.6871e-01_rb,9.1620e-01_rb,9.7213e-01_rb/)\n      kbo(:,27, 6) = (/ &\n     &6.6853e-01_rb,6.9732e-01_rb,7.3341e-01_rb,7.7799e-01_rb,8.3032e-01_rb/)\n      kbo(:,28, 6) = (/ &\n     &5.6032e-01_rb,5.8734e-01_rb,6.2174e-01_rb,6.6339e-01_rb,7.1179e-01_rb/)\n      kbo(:,29, 6) = (/ &\n     &4.7080e-01_rb,4.9684e-01_rb,5.2958e-01_rb,5.6837e-01_rb,6.1280e-01_rb/)\n      kbo(:,30, 6) = (/ &\n     &3.9732e-01_rb,4.2229e-01_rb,4.5298e-01_rb,4.8884e-01_rb,5.2914e-01_rb/)\n      kbo(:,31, 6) = (/ &\n     &3.3719e-01_rb,3.6099e-01_rb,3.8930e-01_rb,4.2211e-01_rb,4.5851e-01_rb/)\n      kbo(:,32, 6) = (/ &\n     &2.8780e-01_rb,3.1000e-01_rb,3.3607e-01_rb,3.6581e-01_rb,3.9865e-01_rb/)\n      kbo(:,33, 6) = (/ &\n     &2.4698e-01_rb,2.6737e-01_rb,2.9124e-01_rb,3.1811e-01_rb,3.4839e-01_rb/)\n      kbo(:,34, 6) = (/ &\n     &2.1208e-01_rb,2.3079e-01_rb,2.5250e-01_rb,2.7695e-01_rb,3.0517e-01_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.8116e-01_rb,1.9828e-01_rb,2.1775e-01_rb,2.3997e-01_rb,2.6607e-01_rb/)\n      kbo(:,36, 6) = (/ &\n     &1.5361e-01_rb,1.6893e-01_rb,1.8633e-01_rb,2.0647e-01_rb,2.3023e-01_rb/)\n      kbo(:,37, 6) = (/ &\n     &1.2853e-01_rb,1.4194e-01_rb,1.5730e-01_rb,1.7520e-01_rb,1.9644e-01_rb/)\n      kbo(:,38, 6) = (/ &\n     &1.0750e-01_rb,1.1924e-01_rb,1.3275e-01_rb,1.4862e-01_rb,1.6766e-01_rb/)\n      kbo(:,39, 6) = (/ &\n     &8.9946e-02_rb,1.0018e-01_rb,1.1208e-01_rb,1.2616e-01_rb,1.4325e-01_rb/)\n      kbo(:,40, 6) = (/ &\n     &7.4468e-02_rb,8.3253e-02_rb,9.3534e-02_rb,1.0578e-01_rb,1.2083e-01_rb/)\n      kbo(:,41, 6) = (/ &\n     &6.1560e-02_rb,6.9060e-02_rb,7.7885e-02_rb,8.8512e-02_rb,1.0168e-01_rb/)\n      kbo(:,42, 6) = (/ &\n     &5.0884e-02_rb,5.7270e-02_rb,6.4836e-02_rb,7.4017e-02_rb,8.5530e-02_rb/)\n      kbo(:,43, 6) = (/ &\n     &4.1741e-02_rb,4.7136e-02_rb,5.3555e-02_rb,6.1413e-02_rb,7.1280e-02_rb/)\n      kbo(:,44, 6) = (/ &\n     &3.4114e-02_rb,3.8637e-02_rb,4.4075e-02_rb,5.0720e-02_rb,5.9134e-02_rb/)\n      kbo(:,45, 6) = (/ &\n     &2.7843e-02_rb,3.1631e-02_rb,3.6225e-02_rb,4.1848e-02_rb,4.9013e-02_rb/)\n      kbo(:,46, 6) = (/ &\n     &2.2624e-02_rb,2.5773e-02_rb,2.9633e-02_rb,3.4369e-02_rb,4.0405e-02_rb/)\n      kbo(:,47, 6) = (/ &\n     &1.8260e-02_rb,2.0843e-02_rb,2.4043e-02_rb,2.7985e-02_rb,3.3023e-02_rb/)\n      kbo(:,48, 6) = (/ &\n     &1.4711e-02_rb,1.6820e-02_rb,1.9466e-02_rb,2.2727e-02_rb,2.6914e-02_rb/)\n      kbo(:,49, 6) = (/ &\n     &1.1827e-02_rb,1.3542e-02_rb,1.5709e-02_rb,1.8410e-02_rb,2.1875e-02_rb/)\n      kbo(:,50, 6) = (/ &\n     &9.5219e-03_rb,1.0923e-02_rb,1.2699e-02_rb,1.4938e-02_rb,1.7808e-02_rb/)\n      kbo(:,51, 6) = (/ &\n     &7.6687e-03_rb,8.8049e-03_rb,1.0259e-02_rb,1.2113e-02_rb,1.4495e-02_rb/)\n      kbo(:,52, 6) = (/ &\n     &6.1732e-03_rb,7.0853e-03_rb,8.2719e-03_rb,9.7966e-03_rb,1.1770e-02_rb/)\n      kbo(:,53, 6) = (/ &\n     &4.9698e-03_rb,5.6903e-03_rb,6.6530e-03_rb,7.9081e-03_rb,9.5294e-03_rb/)\n      kbo(:,54, 6) = (/ &\n     &4.0149e-03_rb,4.5833e-03_rb,5.3685e-03_rb,6.4021e-03_rb,7.7450e-03_rb/)\n      kbo(:,55, 6) = (/ &\n     &3.2497e-03_rb,3.6951e-03_rb,4.3359e-03_rb,5.1870e-03_rb,6.3011e-03_rb/)\n      kbo(:,56, 6) = (/ &\n     &2.6325e-03_rb,2.9773e-03_rb,3.4964e-03_rb,4.1937e-03_rb,5.1170e-03_rb/)\n      kbo(:,57, 6) = (/ &\n     &2.1354e-03_rb,2.3977e-03_rb,2.8151e-03_rb,3.3845e-03_rb,4.1468e-03_rb/)\n      kbo(:,58, 6) = (/ &\n     &1.7364e-03_rb,1.9358e-03_rb,2.2698e-03_rb,2.7348e-03_rb,3.3639e-03_rb/)\n      kbo(:,59, 6) = (/ &\n     &1.4324e-03_rb,1.6023e-03_rb,1.8879e-03_rb,2.2888e-03_rb,2.8370e-03_rb/)\n      kbo(:,13, 7) = (/ &\n     &1.7993e+01_rb,1.8373e+01_rb,1.8772e+01_rb,1.9157e+01_rb,1.9544e+01_rb/)\n      kbo(:,14, 7) = (/ &\n     &1.5395e+01_rb,1.5713e+01_rb,1.6031e+01_rb,1.6348e+01_rb,1.6675e+01_rb/)\n      kbo(:,15, 7) = (/ &\n     &1.3087e+01_rb,1.3328e+01_rb,1.3586e+01_rb,1.3851e+01_rb,1.4166e+01_rb/)\n      kbo(:,16, 7) = (/ &\n     &1.1053e+01_rb,1.1254e+01_rb,1.1469e+01_rb,1.1711e+01_rb,1.2037e+01_rb/)\n      kbo(:,17, 7) = (/ &\n     &9.3076e+00_rb,9.4744e+00_rb,9.6627e+00_rb,9.9088e+00_rb,1.0257e+01_rb/)\n      kbo(:,18, 7) = (/ &\n     &7.8193e+00_rb,7.9665e+00_rb,8.1534e+00_rb,8.4211e+00_rb,8.7715e+00_rb/)\n      kbo(:,19, 7) = (/ &\n     &6.5448e+00_rb,6.6861e+00_rb,6.8916e+00_rb,7.1741e+00_rb,7.4962e+00_rb/)\n      kbo(:,20, 7) = (/ &\n     &5.4651e+00_rb,5.6202e+00_rb,5.8422e+00_rb,6.1124e+00_rb,6.3952e+00_rb/)\n      kbo(:,21, 7) = (/ &\n     &4.5716e+00_rb,4.7392e+00_rb,4.9589e+00_rb,5.1951e+00_rb,5.4343e+00_rb/)\n      kbo(:,22, 7) = (/ &\n     &3.8421e+00_rb,4.0181e+00_rb,4.2111e+00_rb,4.4111e+00_rb,4.6135e+00_rb/)\n      kbo(:,23, 7) = (/ &\n     &3.2420e+00_rb,3.4014e+00_rb,3.5676e+00_rb,3.7366e+00_rb,3.9163e+00_rb/)\n      kbo(:,24, 7) = (/ &\n     &2.7372e+00_rb,2.8745e+00_rb,3.0185e+00_rb,3.1680e+00_rb,3.3279e+00_rb/)\n      kbo(:,25, 7) = (/ &\n     &2.3109e+00_rb,2.4310e+00_rb,2.5564e+00_rb,2.6909e+00_rb,2.8371e+00_rb/)\n      kbo(:,26, 7) = (/ &\n     &1.9553e+00_rb,2.0603e+00_rb,2.1726e+00_rb,2.2928e+00_rb,2.4305e+00_rb/)\n      kbo(:,27, 7) = (/ &\n     &1.6578e+00_rb,1.7514e+00_rb,1.8510e+00_rb,1.9617e+00_rb,2.0943e+00_rb/)\n      kbo(:,28, 7) = (/ &\n     &1.4096e+00_rb,1.4926e+00_rb,1.5811e+00_rb,1.6863e+00_rb,1.8139e+00_rb/)\n      kbo(:,29, 7) = (/ &\n     &1.2014e+00_rb,1.2743e+00_rb,1.3570e+00_rb,1.4576e+00_rb,1.5798e+00_rb/)\n      kbo(:,30, 7) = (/ &\n     &1.0255e+00_rb,1.0913e+00_rb,1.1701e+00_rb,1.2677e+00_rb,1.3837e+00_rb/)\n      kbo(:,31, 7) = (/ &\n     &8.7693e-01_rb,9.3909e-01_rb,1.0166e+00_rb,1.1099e+00_rb,1.2195e+00_rb/)\n      kbo(:,32, 7) = (/ &\n     &7.5259e-01_rb,8.1353e-01_rb,8.8887e-01_rb,9.7843e-01_rb,1.0818e+00_rb/)\n      kbo(:,33, 7) = (/ &\n     &6.4947e-01_rb,7.0941e-01_rb,7.8262e-01_rb,8.6809e-01_rb,9.6577e-01_rb/)\n      kbo(:,34, 7) = (/ &\n     &5.6287e-01_rb,6.2118e-01_rb,6.9115e-01_rb,7.7236e-01_rb,8.6471e-01_rb/)\n      kbo(:,35, 7) = (/ &\n     &4.8662e-01_rb,5.4191e-01_rb,6.0756e-01_rb,6.8389e-01_rb,7.7035e-01_rb/)\n      kbo(:,36, 7) = (/ &\n     &4.1799e-01_rb,4.6899e-01_rb,5.2971e-01_rb,6.0005e-01_rb,6.8040e-01_rb/)\n      kbo(:,37, 7) = (/ &\n     &3.5425e-01_rb,3.9998e-01_rb,4.5446e-01_rb,5.1797e-01_rb,5.9123e-01_rb/)\n      kbo(:,38, 7) = (/ &\n     &3.0041e-01_rb,3.4120e-01_rb,3.9013e-01_rb,4.4734e-01_rb,5.1414e-01_rb/)\n      kbo(:,39, 7) = (/ &\n     &2.5510e-01_rb,2.9152e-01_rb,3.3528e-01_rb,3.8698e-01_rb,4.4801e-01_rb/)\n      kbo(:,40, 7) = (/ &\n     &2.1385e-01_rb,2.4566e-01_rb,2.8431e-01_rb,3.3018e-01_rb,3.8482e-01_rb/)\n      kbo(:,41, 7) = (/ &\n     &1.7890e-01_rb,2.0671e-01_rb,2.4058e-01_rb,2.8118e-01_rb,3.2987e-01_rb/)\n      kbo(:,42, 7) = (/ &\n     &1.4939e-01_rb,1.7381e-01_rb,2.0357e-01_rb,2.3938e-01_rb,2.8282e-01_rb/)\n      kbo(:,43, 7) = (/ &\n     &1.2354e-01_rb,1.4458e-01_rb,1.7057e-01_rb,2.0193e-01_rb,2.4014e-01_rb/)\n      kbo(:,44, 7) = (/ &\n     &1.0153e-01_rb,1.1950e-01_rb,1.4202e-01_rb,1.6945e-01_rb,2.0287e-01_rb/)\n      kbo(:,45, 7) = (/ &\n     &8.3299e-02_rb,9.8554e-02_rb,1.1794e-01_rb,1.4189e-01_rb,1.7119e-01_rb/)\n      kbo(:,46, 7) = (/ &\n     &6.7950e-02_rb,8.0732e-02_rb,9.7254e-02_rb,1.1796e-01_rb,1.4359e-01_rb/)\n      kbo(:,47, 7) = (/ &\n     &5.4969e-02_rb,6.5444e-02_rb,7.9285e-02_rb,9.6924e-02_rb,1.1901e-01_rb/)\n      kbo(:,48, 7) = (/ &\n     &4.4384e-02_rb,5.2919e-02_rb,6.4422e-02_rb,7.9306e-02_rb,9.8242e-02_rb/)\n      kbo(:,49, 7) = (/ &\n     &3.5781e-02_rb,4.2676e-02_rb,5.2185e-02_rb,6.4673e-02_rb,8.0797e-02_rb/)\n      kbo(:,50, 7) = (/ &\n     &2.8901e-02_rb,3.4506e-02_rb,4.2382e-02_rb,5.2852e-02_rb,6.6579e-02_rb/)\n      kbo(:,51, 7) = (/ &\n     &2.3369e-02_rb,2.7878e-02_rb,3.4389e-02_rb,4.3175e-02_rb,5.4833e-02_rb/)\n      kbo(:,52, 7) = (/ &\n     &1.8862e-02_rb,2.2473e-02_rb,2.7804e-02_rb,3.5169e-02_rb,4.5009e-02_rb/)\n      kbo(:,53, 7) = (/ &\n     &1.5202e-02_rb,1.8063e-02_rb,2.2412e-02_rb,2.8532e-02_rb,3.6823e-02_rb/)\n      kbo(:,54, 7) = (/ &\n     &1.2294e-02_rb,1.4584e-02_rb,1.8116e-02_rb,2.3236e-02_rb,3.0266e-02_rb/)\n      kbo(:,55, 7) = (/ &\n     &9.9456e-03_rb,1.1792e-02_rb,1.4659e-02_rb,1.8922e-02_rb,2.4874e-02_rb/)\n      kbo(:,56, 7) = (/ &\n     &8.0324e-03_rb,9.5190e-03_rb,1.1834e-02_rb,1.5356e-02_rb,2.0377e-02_rb/)\n      kbo(:,57, 7) = (/ &\n     &6.4764e-03_rb,7.6756e-03_rb,9.5255e-03_rb,1.2420e-02_rb,1.6628e-02_rb/)\n      kbo(:,58, 7) = (/ &\n     &5.2278e-03_rb,6.1981e-03_rb,7.6844e-03_rb,1.0060e-02_rb,1.3591e-02_rb/)\n      kbo(:,59, 7) = (/ &\n     &4.3384e-03_rb,5.1762e-03_rb,6.4759e-03_rb,8.5723e-03_rb,1.1730e-02_rb/)\n      kbo(:,13, 8) = (/ &\n     &4.8706e+01_rb,5.0287e+01_rb,5.1813e+01_rb,5.3328e+01_rb,5.4791e+01_rb/)\n      kbo(:,14, 8) = (/ &\n     &4.2745e+01_rb,4.3995e+01_rb,4.5243e+01_rb,4.6475e+01_rb,4.7668e+01_rb/)\n      kbo(:,15, 8) = (/ &\n     &3.7251e+01_rb,3.8260e+01_rb,3.9278e+01_rb,4.0277e+01_rb,4.1241e+01_rb/)\n      kbo(:,16, 8) = (/ &\n     &3.2307e+01_rb,3.3121e+01_rb,3.3949e+01_rb,3.4768e+01_rb,3.5567e+01_rb/)\n      kbo(:,17, 8) = (/ &\n     &2.7892e+01_rb,2.8569e+01_rb,2.9248e+01_rb,2.9919e+01_rb,3.0586e+01_rb/)\n      kbo(:,18, 8) = (/ &\n     &2.3896e+01_rb,2.4456e+01_rb,2.5013e+01_rb,2.5581e+01_rb,2.6214e+01_rb/)\n      kbo(:,19, 8) = (/ &\n     &2.0345e+01_rb,2.0796e+01_rb,2.1262e+01_rb,2.1777e+01_rb,2.2440e+01_rb/)\n      kbo(:,20, 8) = (/ &\n     &1.7240e+01_rb,1.7611e+01_rb,1.8026e+01_rb,1.8548e+01_rb,1.9267e+01_rb/)\n      kbo(:,21, 8) = (/ &\n     &1.4559e+01_rb,1.4881e+01_rb,1.5281e+01_rb,1.5850e+01_rb,1.6627e+01_rb/)\n      kbo(:,22, 8) = (/ &\n     &1.2297e+01_rb,1.2604e+01_rb,1.3048e+01_rb,1.3680e+01_rb,1.4474e+01_rb/)\n      kbo(:,23, 8) = (/ &\n     &1.0392e+01_rb,1.0731e+01_rb,1.1231e+01_rb,1.1887e+01_rb,1.2635e+01_rb/)\n      kbo(:,24, 8) = (/ &\n     &8.8024e+00_rb,9.1906e+00_rb,9.7265e+00_rb,1.0368e+01_rb,1.1047e+01_rb/)\n      kbo(:,25, 8) = (/ &\n     &7.4985e+00_rb,7.9218e+00_rb,8.4606e+00_rb,9.0520e+00_rb,9.6698e+00_rb/)\n      kbo(:,26, 8) = (/ &\n     &6.4322e+00_rb,6.8736e+00_rb,7.3794e+00_rb,7.9154e+00_rb,8.4712e+00_rb/)\n      kbo(:,27, 8) = (/ &\n     &5.5575e+00_rb,5.9810e+00_rb,6.4388e+00_rb,6.9229e+00_rb,7.4216e+00_rb/)\n      kbo(:,28, 8) = (/ &\n     &4.8206e+00_rb,5.2066e+00_rb,5.6224e+00_rb,6.0597e+00_rb,6.5182e+00_rb/)\n      kbo(:,29, 8) = (/ &\n     &4.1909e+00_rb,4.5439e+00_rb,4.9224e+00_rb,5.3216e+00_rb,5.7541e+00_rb/)\n      kbo(:,30, 8) = (/ &\n     &3.6537e+00_rb,3.9765e+00_rb,4.3215e+00_rb,4.6952e+00_rb,5.1087e+00_rb/)\n      kbo(:,31, 8) = (/ &\n     &3.1984e+00_rb,3.4930e+00_rb,3.8129e+00_rb,4.1678e+00_rb,4.5716e+00_rb/)\n      kbo(:,32, 8) = (/ &\n     &2.8116e+00_rb,3.0829e+00_rb,3.3853e+00_rb,3.7289e+00_rb,4.1280e+00_rb/)\n      kbo(:,33, 8) = (/ &\n     &2.4834e+00_rb,2.7385e+00_rb,3.0281e+00_rb,3.3657e+00_rb,3.7662e+00_rb/)\n      kbo(:,34, 8) = (/ &\n     &2.1985e+00_rb,2.4407e+00_rb,2.7219e+00_rb,3.0561e+00_rb,3.4576e+00_rb/)\n      kbo(:,35, 8) = (/ &\n     &1.9383e+00_rb,2.1683e+00_rb,2.4400e+00_rb,2.7681e+00_rb,3.1668e+00_rb/)\n      kbo(:,36, 8) = (/ &\n     &1.6974e+00_rb,1.9136e+00_rb,2.1729e+00_rb,2.4903e+00_rb,2.8775e+00_rb/)\n      kbo(:,37, 8) = (/ &\n     &1.4652e+00_rb,1.6633e+00_rb,1.9048e+00_rb,2.2035e+00_rb,2.5698e+00_rb/)\n      kbo(:,38, 8) = (/ &\n     &1.2656e+00_rb,1.4474e+00_rb,1.6717e+00_rb,1.9523e+00_rb,2.2987e+00_rb/)\n      kbo(:,39, 8) = (/ &\n     &1.0950e+00_rb,1.2617e+00_rb,1.4708e+00_rb,1.7354e+00_rb,2.0626e+00_rb/)\n      kbo(:,40, 8) = (/ &\n     &9.3521e-01_rb,1.0851e+00_rb,1.2754e+00_rb,1.5183e+00_rb,1.8212e+00_rb/)\n      kbo(:,41, 8) = (/ &\n     &7.9768e-01_rb,9.3182e-01_rb,1.1039e+00_rb,1.3257e+00_rb,1.6049e+00_rb/)\n      kbo(:,42, 8) = (/ &\n     &6.8000e-01_rb,8.0060e-01_rb,9.5561e-01_rb,1.1575e+00_rb,1.4146e+00_rb/)\n      kbo(:,43, 8) = (/ &\n     &5.7402e-01_rb,6.8098e-01_rb,8.1874e-01_rb,9.9948e-01_rb,1.2325e+00_rb/)\n      kbo(:,44, 8) = (/ &\n     &4.8186e-01_rb,5.7592e-01_rb,6.9798e-01_rb,8.5786e-01_rb,1.0670e+00_rb/)\n      kbo(:,45, 8) = (/ &\n     &4.0392e-01_rb,4.8633e-01_rb,5.9393e-01_rb,7.3592e-01_rb,9.2240e-01_rb/)\n      kbo(:,46, 8) = (/ &\n     &3.3669e-01_rb,4.0818e-01_rb,5.0211e-01_rb,6.2723e-01_rb,7.9252e-01_rb/)\n      kbo(:,47, 8) = (/ &\n     &2.7781e-01_rb,3.3888e-01_rb,4.1961e-01_rb,5.2781e-01_rb,6.7290e-01_rb/)\n      kbo(:,48, 8) = (/ &\n     &2.2877e-01_rb,2.8059e-01_rb,3.4952e-01_rb,4.4268e-01_rb,5.6946e-01_rb/)\n      kbo(:,49, 8) = (/ &\n     &1.8802e-01_rb,2.3180e-01_rb,2.9026e-01_rb,3.7003e-01_rb,4.7989e-01_rb/)\n      kbo(:,50, 8) = (/ &\n     &1.5486e-01_rb,1.9224e-01_rb,2.4194e-01_rb,3.1045e-01_rb,4.0570e-01_rb/)\n      kbo(:,51, 8) = (/ &\n     &1.2726e-01_rb,1.5950e-01_rb,2.0189e-01_rb,2.6070e-01_rb,3.4311e-01_rb/)\n      kbo(:,52, 8) = (/ &\n     &1.0409e-01_rb,1.3185e-01_rb,1.6823e-01_rb,2.1834e-01_rb,2.8934e-01_rb/)\n      kbo(:,53, 8) = (/ &\n     &8.4711e-02_rb,1.0844e-01_rb,1.3980e-01_rb,1.8253e-01_rb,2.4332e-01_rb/)\n      kbo(:,54, 8) = (/ &\n     &6.9167e-02_rb,8.9444e-02_rb,1.1665e-01_rb,1.5372e-01_rb,2.0609e-01_rb/)\n      kbo(:,55, 8) = (/ &\n     &5.6448e-02_rb,7.3743e-02_rb,9.7299e-02_rb,1.2965e-01_rb,1.7511e-01_rb/)\n      kbo(:,56, 8) = (/ &\n     &4.5936e-02_rb,6.0554e-02_rb,8.0824e-02_rb,1.0896e-01_rb,1.4860e-01_rb/)\n      kbo(:,57, 8) = (/ &\n     &3.7232e-02_rb,4.9532e-02_rb,6.6834e-02_rb,9.1174e-02_rb,1.2579e-01_rb/)\n      kbo(:,58, 8) = (/ &\n     &3.0170e-02_rb,4.0563e-02_rb,5.5307e-02_rb,7.6347e-02_rb,1.0664e-01_rb/)\n      kbo(:,59, 8) = (/ &\n     &2.5677e-02_rb,3.5025e-02_rb,4.8385e-02_rb,6.7734e-02_rb,9.6011e-02_rb/)\n      kbo(:,13, 9) = (/ &\n     &2.6703e+02_rb,2.6279e+02_rb,2.6062e+02_rb,2.6039e+02_rb,2.6194e+02_rb/)\n      kbo(:,14, 9) = (/ &\n     &2.2898e+02_rb,2.2692e+02_rb,2.2683e+02_rb,2.2864e+02_rb,2.3216e+02_rb/)\n      kbo(:,15, 9) = (/ &\n     &1.9675e+02_rb,1.9661e+02_rb,1.9840e+02_rb,2.0200e+02_rb,2.0726e+02_rb/)\n      kbo(:,16, 9) = (/ &\n     &1.6984e+02_rb,1.7136e+02_rb,1.7476e+02_rb,1.7992e+02_rb,1.8656e+02_rb/)\n      kbo(:,17, 9) = (/ &\n     &1.4758e+02_rb,1.5050e+02_rb,1.5527e+02_rb,1.6140e+02_rb,1.6749e+02_rb/)\n      kbo(:,18, 9) = (/ &\n     &1.2946e+02_rb,1.3358e+02_rb,1.3896e+02_rb,1.4424e+02_rb,1.4936e+02_rb/)\n      kbo(:,19, 9) = (/ &\n     &1.1448e+02_rb,1.1916e+02_rb,1.2382e+02_rb,1.2832e+02_rb,1.3257e+02_rb/)\n      kbo(:,20, 9) = (/ &\n     &1.0147e+02_rb,1.0559e+02_rb,1.0961e+02_rb,1.1348e+02_rb,1.1720e+02_rb/)\n      kbo(:,21, 9) = (/ &\n     &8.9412e+01_rb,9.2958e+01_rb,9.6430e+01_rb,9.9808e+01_rb,1.0309e+02_rb/)\n      kbo(:,22, 9) = (/ &\n     &7.8582e+01_rb,8.1638e+01_rb,8.4651e+01_rb,8.7620e+01_rb,9.0634e+01_rb/)\n      kbo(:,23, 9) = (/ &\n     &6.8855e+01_rb,7.1486e+01_rb,7.4134e+01_rb,7.6820e+01_rb,7.9730e+01_rb/)\n      kbo(:,24, 9) = (/ &\n     &6.0268e+01_rb,6.2580e+01_rb,6.4940e+01_rb,6.7498e+01_rb,7.0383e+01_rb/)\n      kbo(:,25, 9) = (/ &\n     &5.2817e+01_rb,5.4857e+01_rb,5.7070e+01_rb,5.9583e+01_rb,6.2456e+01_rb/)\n      kbo(:,26, 9) = (/ &\n     &4.6400e+01_rb,4.8304e+01_rb,5.0443e+01_rb,5.2928e+01_rb,5.5843e+01_rb/)\n      kbo(:,27, 9) = (/ &\n     &4.0882e+01_rb,4.2740e+01_rb,4.4869e+01_rb,4.7387e+01_rb,5.0354e+01_rb/)\n      kbo(:,28, 9) = (/ &\n     &3.6127e+01_rb,3.8035e+01_rb,4.0229e+01_rb,4.2798e+01_rb,4.5828e+01_rb/)\n      kbo(:,29, 9) = (/ &\n     &3.2099e+01_rb,3.4067e+01_rb,3.6357e+01_rb,3.9031e+01_rb,4.2139e+01_rb/)\n      kbo(:,30, 9) = (/ &\n     &2.8701e+01_rb,3.0741e+01_rb,3.3127e+01_rb,3.5914e+01_rb,3.9160e+01_rb/)\n      kbo(:,31, 9) = (/ &\n     &2.5860e+01_rb,2.7970e+01_rb,3.0458e+01_rb,3.3377e+01_rb,3.6776e+01_rb/)\n      kbo(:,32, 9) = (/ &\n     &2.3508e+01_rb,2.5694e+01_rb,2.8287e+01_rb,3.1347e+01_rb,3.4892e+01_rb/)\n      kbo(:,33, 9) = (/ &\n     &2.1570e+01_rb,2.3849e+01_rb,2.6553e+01_rb,2.9752e+01_rb,3.3419e+01_rb/)\n      kbo(:,34, 9) = (/ &\n     &1.9918e+01_rb,2.2276e+01_rb,2.5098e+01_rb,2.8399e+01_rb,3.2162e+01_rb/)\n      kbo(:,35, 9) = (/ &\n     &1.8364e+01_rb,2.0767e+01_rb,2.3651e+01_rb,2.7001e+01_rb,3.0813e+01_rb/)\n      kbo(:,36, 9) = (/ &\n     &1.6826e+01_rb,1.9227e+01_rb,2.2113e+01_rb,2.5466e+01_rb,2.9284e+01_rb/)\n      kbo(:,37, 9) = (/ &\n     &1.5183e+01_rb,1.7515e+01_rb,2.0322e+01_rb,2.3610e+01_rb,2.7381e+01_rb/)\n      kbo(:,38, 9) = (/ &\n     &1.3727e+01_rb,1.5985e+01_rb,1.8713e+01_rb,2.1934e+01_rb,2.5649e+01_rb/)\n      kbo(:,39, 9) = (/ &\n     &1.2450e+01_rb,1.4635e+01_rb,1.7282e+01_rb,2.0444e+01_rb,2.4108e+01_rb/)\n      kbo(:,40, 9) = (/ &\n     &1.1136e+01_rb,1.3200e+01_rb,1.5726e+01_rb,1.8770e+01_rb,2.2337e+01_rb/)\n      kbo(:,41, 9) = (/ &\n     &9.9523e+00_rb,1.1888e+01_rb,1.4289e+01_rb,1.7214e+01_rb,2.0673e+01_rb/)\n      kbo(:,42, 9) = (/ &\n     &8.8997e+00_rb,1.0713e+01_rb,1.2995e+01_rb,1.5799e+01_rb,1.9151e+01_rb/)\n      kbo(:,43, 9) = (/ &\n     &7.8779e+00_rb,9.5542e+00_rb,1.1690e+01_rb,1.4348e+01_rb,1.7554e+01_rb/)\n      kbo(:,44, 9) = (/ &\n     &6.9290e+00_rb,8.4792e+00_rb,1.0459e+01_rb,1.2952e+01_rb,1.5997e+01_rb/)\n      kbo(:,45, 9) = (/ &\n     &6.0796e+00_rb,7.5168e+00_rb,9.3520e+00_rb,1.1681e+01_rb,1.4566e+01_rb/)\n      kbo(:,46, 9) = (/ &\n     &5.2960e+00_rb,6.6184e+00_rb,8.3160e+00_rb,1.0473e+01_rb,1.3177e+01_rb/)\n      kbo(:,47, 9) = (/ &\n     &4.5500e+00_rb,5.7498e+00_rb,7.3069e+00_rb,9.2819e+00_rb,1.1781e+01_rb/)\n      kbo(:,48, 9) = (/ &\n     &3.8931e+00_rb,4.9768e+00_rb,6.3975e+00_rb,8.2101e+00_rb,1.0505e+01_rb/)\n      kbo(:,49, 9) = (/ &\n     &3.3134e+00_rb,4.2874e+00_rb,5.5792e+00_rb,7.2463e+00_rb,9.3480e+00_rb/)\n      kbo(:,50, 9) = (/ &\n     &2.8246e+00_rb,3.7000e+00_rb,4.8781e+00_rb,6.4148e+00_rb,8.3545e+00_rb/)\n      kbo(:,51, 9) = (/ &\n     &2.4042e+00_rb,3.1908e+00_rb,4.2622e+00_rb,5.6755e+00_rb,7.4755e+00_rb/)\n      kbo(:,52, 9) = (/ &\n     &2.0363e+00_rb,2.7388e+00_rb,3.7098e+00_rb,5.0044e+00_rb,6.6735e+00_rb/)\n      kbo(:,53, 9) = (/ &\n     &1.7163e+00_rb,2.3398e+00_rb,3.2134e+00_rb,4.3950e+00_rb,5.9331e+00_rb/)\n      kbo(:,54, 9) = (/ &\n     &1.4526e+00_rb,2.0075e+00_rb,2.7999e+00_rb,3.8816e+00_rb,5.3040e+00_rb/)\n      kbo(:,55, 9) = (/ &\n     &1.2300e+00_rb,1.7228e+00_rb,2.4419e+00_rb,3.4323e+00_rb,4.7483e+00_rb/)\n      kbo(:,56, 9) = (/ &\n     &1.0375e+00_rb,1.4731e+00_rb,2.1205e+00_rb,3.0254e+00_rb,4.2381e+00_rb/)\n      kbo(:,57, 9) = (/ &\n     &8.7139e-01_rb,1.2530e+00_rb,1.8332e+00_rb,2.6576e+00_rb,3.7724e+00_rb/)\n      kbo(:,58, 9) = (/ &\n     &7.3413e-01_rb,1.0690e+00_rb,1.5879e+00_rb,2.3382e+00_rb,3.3642e+00_rb/)\n      kbo(:,59, 9) = (/ &\n     &6.5989e-01_rb,9.7719e-01_rb,1.4752e+00_rb,2.2003e+00_rb,3.1955e+00_rb/)\n      kbo(:,13,10) = (/ &\n     &1.1367e+03_rb,1.1187e+03_rb,1.1007e+03_rb,1.0822e+03_rb,1.0635e+03_rb/)\n      kbo(:,14,10) = (/ &\n     &1.0074e+03_rb,9.9018e+02_rb,9.7308e+02_rb,9.5574e+02_rb,9.3889e+02_rb/)\n      kbo(:,15,10) = (/ &\n     &8.7706e+02_rb,8.6124e+02_rb,8.4557e+02_rb,8.3018e+02_rb,8.1545e+02_rb/)\n      kbo(:,16,10) = (/ &\n     &7.5406e+02_rb,7.4004e+02_rb,7.2614e+02_rb,7.1298e+02_rb,7.0106e+02_rb/)\n      kbo(:,17,10) = (/ &\n     &6.4217e+02_rb,6.3016e+02_rb,6.1851e+02_rb,6.1057e+02_rb,6.1770e+02_rb/)\n      kbo(:,18,10) = (/ &\n     &5.4317e+02_rb,5.3308e+02_rb,5.2858e+02_rb,5.4063e+02_rb,5.6728e+02_rb/)\n      kbo(:,19,10) = (/ &\n     &4.6024e+02_rb,4.5629e+02_rb,4.6936e+02_rb,4.9569e+02_rb,5.2404e+02_rb/)\n      kbo(:,20,10) = (/ &\n     &3.9833e+02_rb,4.0962e+02_rb,4.3282e+02_rb,4.5686e+02_rb,4.8096e+02_rb/)\n      kbo(:,21,10) = (/ &\n     &3.5836e+02_rb,3.7926e+02_rb,4.0031e+02_rb,4.2094e+02_rb,4.4134e+02_rb/)\n      kbo(:,22,10) = (/ &\n     &3.2968e+02_rb,3.4978e+02_rb,3.6939e+02_rb,3.8833e+02_rb,4.0603e+02_rb/)\n      kbo(:,23,10) = (/ &\n     &3.0114e+02_rb,3.1980e+02_rb,3.3812e+02_rb,3.5559e+02_rb,3.7182e+02_rb/)\n      kbo(:,24,10) = (/ &\n     &2.7330e+02_rb,2.9068e+02_rb,3.0752e+02_rb,3.2347e+02_rb,3.3875e+02_rb/)\n      kbo(:,25,10) = (/ &\n     &2.4688e+02_rb,2.6295e+02_rb,2.7833e+02_rb,2.9325e+02_rb,3.0804e+02_rb/)\n      kbo(:,26,10) = (/ &\n     &2.2243e+02_rb,2.3718e+02_rb,2.5149e+02_rb,2.6591e+02_rb,2.8021e+02_rb/)\n      kbo(:,27,10) = (/ &\n     &2.0056e+02_rb,2.1372e+02_rb,2.2739e+02_rb,2.4128e+02_rb,2.5540e+02_rb/)\n      kbo(:,28,10) = (/ &\n     &1.8160e+02_rb,1.9338e+02_rb,2.0609e+02_rb,2.1959e+02_rb,2.3363e+02_rb/)\n      kbo(:,29,10) = (/ &\n     &1.6537e+02_rb,1.7620e+02_rb,1.8800e+02_rb,2.0075e+02_rb,2.1484e+02_rb/)\n      kbo(:,30,10) = (/ &\n     &1.5182e+02_rb,1.6163e+02_rb,1.7256e+02_rb,1.8487e+02_rb,1.9853e+02_rb/)\n      kbo(:,31,10) = (/ &\n     &1.4022e+02_rb,1.4937e+02_rb,1.5973e+02_rb,1.7160e+02_rb,1.8530e+02_rb/)\n      kbo(:,32,10) = (/ &\n     &1.3043e+02_rb,1.3908e+02_rb,1.4919e+02_rb,1.6089e+02_rb,1.7519e+02_rb/)\n      kbo(:,33,10) = (/ &\n     &1.2206e+02_rb,1.3058e+02_rb,1.4055e+02_rb,1.5267e+02_rb,1.6777e+02_rb/)\n      kbo(:,34,10) = (/ &\n     &1.1470e+02_rb,1.2330e+02_rb,1.3342e+02_rb,1.4627e+02_rb,1.6240e+02_rb/)\n      kbo(:,35,10) = (/ &\n     &1.0771e+02_rb,1.1657e+02_rb,1.2696e+02_rb,1.4044e+02_rb,1.5769e+02_rb/)\n      kbo(:,36,10) = (/ &\n     &1.0083e+02_rb,1.1016e+02_rb,1.2074e+02_rb,1.3465e+02_rb,1.5261e+02_rb/)\n      kbo(:,37,10) = (/ &\n     &9.3496e+01_rb,1.0322e+02_rb,1.1406e+02_rb,1.2781e+02_rb,1.4573e+02_rb/)\n      kbo(:,38,10) = (/ &\n     &8.6889e+01_rb,9.7016e+01_rb,1.0824e+02_rb,1.2185e+02_rb,1.3969e+02_rb/)\n      kbo(:,39,10) = (/ &\n     &8.1021e+01_rb,9.1487e+01_rb,1.0329e+02_rb,1.1682e+02_rb,1.3445e+02_rb/)\n      kbo(:,40,10) = (/ &\n     &7.4776e+01_rb,8.5570e+01_rb,9.7630e+01_rb,1.1098e+02_rb,1.2786e+02_rb/)\n      kbo(:,41,10) = (/ &\n     &6.8905e+01_rb,7.9963e+01_rb,9.2277e+01_rb,1.0563e+02_rb,1.2163e+02_rb/)\n      kbo(:,42,10) = (/ &\n     &6.3556e+01_rb,7.4784e+01_rb,8.7205e+01_rb,1.0072e+02_rb,1.1596e+02_rb/)\n      kbo(:,43,10) = (/ &\n     &5.8129e+01_rb,6.9316e+01_rb,8.1730e+01_rb,9.5263e+01_rb,1.0987e+02_rb/)\n      kbo(:,44,10) = (/ &\n     &5.2913e+01_rb,6.3890e+01_rb,7.6248e+01_rb,8.9686e+01_rb,1.0397e+02_rb/)\n      kbo(:,45,10) = (/ &\n     &4.8208e+01_rb,5.8780e+01_rb,7.0988e+01_rb,8.4262e+01_rb,9.8407e+01_rb/)\n      kbo(:,46,10) = (/ &\n     &4.3761e+01_rb,5.3798e+01_rb,6.5649e+01_rb,7.8725e+01_rb,9.2702e+01_rb/)\n      kbo(:,47,10) = (/ &\n     &3.9326e+01_rb,4.8763e+01_rb,6.0030e+01_rb,7.2829e+01_rb,8.6540e+01_rb/)\n      kbo(:,48,10) = (/ &\n     &3.5364e+01_rb,4.4166e+01_rb,5.4802e+01_rb,6.7118e+01_rb,8.0555e+01_rb/)\n      kbo(:,49,10) = (/ &\n     &3.1766e+01_rb,3.9895e+01_rb,4.9874e+01_rb,6.1599e+01_rb,7.4720e+01_rb/)\n      kbo(:,50,10) = (/ &\n     &2.8694e+01_rb,3.6225e+01_rb,4.5586e+01_rb,5.6696e+01_rb,6.9417e+01_rb/)\n      kbo(:,51,10) = (/ &\n     &2.5920e+01_rb,3.2954e+01_rb,4.1705e+01_rb,5.2192e+01_rb,6.4368e+01_rb/)\n      kbo(:,52,10) = (/ &\n     &2.3265e+01_rb,2.9945e+01_rb,3.8066e+01_rb,4.7953e+01_rb,5.9548e+01_rb/)\n      kbo(:,53,10) = (/ &\n     &2.0700e+01_rb,2.7205e+01_rb,3.4731e+01_rb,4.4004e+01_rb,5.4983e+01_rb/)\n      kbo(:,54,10) = (/ &\n     &1.8407e+01_rb,2.4804e+01_rb,3.1883e+01_rb,4.0571e+01_rb,5.0997e+01_rb/)\n      kbo(:,55,10) = (/ &\n     &1.6304e+01_rb,2.2551e+01_rb,2.9350e+01_rb,3.7469e+01_rb,4.7350e+01_rb/)\n      kbo(:,56,10) = (/ &\n     &1.4323e+01_rb,2.0360e+01_rb,2.7019e+01_rb,3.4608e+01_rb,4.3950e+01_rb/)\n      kbo(:,57,10) = (/ &\n     &1.2463e+01_rb,1.8241e+01_rb,2.4765e+01_rb,3.1934e+01_rb,4.0687e+01_rb/)\n      kbo(:,58,10) = (/ &\n     &1.0795e+01_rb,1.6294e+01_rb,2.2666e+01_rb,2.9555e+01_rb,3.7776e+01_rb/)\n      kbo(:,59,10) = (/ &\n     &1.0106e+01_rb,1.5507e+01_rb,2.1812e+01_rb,2.8629e+01_rb,3.6645e+01_rb/)\n      kbo(:,13,11) = (/ &\n     &1.9976e+03_rb,1.9732e+03_rb,1.9489e+03_rb,1.9244e+03_rb,1.8976e+03_rb/)\n      kbo(:,14,11) = (/ &\n     &1.8361e+03_rb,1.8109e+03_rb,1.7859e+03_rb,1.7607e+03_rb,1.7342e+03_rb/)\n      kbo(:,15,11) = (/ &\n     &1.6588e+03_rb,1.6335e+03_rb,1.6090e+03_rb,1.5838e+03_rb,1.5592e+03_rb/)\n      kbo(:,16,11) = (/ &\n     &1.4709e+03_rb,1.4475e+03_rb,1.4246e+03_rb,1.4016e+03_rb,1.3798e+03_rb/)\n      kbo(:,17,11) = (/ &\n     &1.2816e+03_rb,1.2604e+03_rb,1.2396e+03_rb,1.2204e+03_rb,1.2023e+03_rb/)\n      kbo(:,18,11) = (/ &\n     &1.1028e+03_rb,1.0839e+03_rb,1.0668e+03_rb,1.0513e+03_rb,1.0382e+03_rb/)\n      kbo(:,19,11) = (/ &\n     &9.4023e+02_rb,9.2525e+02_rb,9.1156e+02_rb,9.0352e+02_rb,9.1240e+02_rb/)\n      kbo(:,20,11) = (/ &\n     &7.9708e+02_rb,7.8540e+02_rb,7.8133e+02_rb,7.9678e+02_rb,8.2988e+02_rb/)\n      kbo(:,21,11) = (/ &\n     &6.7587e+02_rb,6.7233e+02_rb,6.8973e+02_rb,7.2606e+02_rb,7.7277e+02_rb/)\n      kbo(:,22,11) = (/ &\n     &5.8284e+02_rb,5.9841e+02_rb,6.3319e+02_rb,6.7525e+02_rb,7.1925e+02_rb/)\n      kbo(:,23,11) = (/ &\n     &5.2309e+02_rb,5.5425e+02_rb,5.9038e+02_rb,6.2826e+02_rb,6.6879e+02_rb/)\n      kbo(:,24,11) = (/ &\n     &4.8568e+02_rb,5.1820e+02_rb,5.5078e+02_rb,5.8566e+02_rb,6.2252e+02_rb/)\n      kbo(:,25,11) = (/ &\n     &4.5215e+02_rb,4.8337e+02_rb,5.1498e+02_rb,5.4697e+02_rb,5.8166e+02_rb/)\n      kbo(:,26,11) = (/ &\n     &4.2013e+02_rb,4.5049e+02_rb,4.8168e+02_rb,5.1282e+02_rb,5.4620e+02_rb/)\n      kbo(:,27,11) = (/ &\n     &3.8959e+02_rb,4.1991e+02_rb,4.5056e+02_rb,4.8229e+02_rb,5.1534e+02_rb/)\n      kbo(:,28,11) = (/ &\n     &3.6165e+02_rb,3.9145e+02_rb,4.2248e+02_rb,4.5510e+02_rb,4.8890e+02_rb/)\n      kbo(:,29,11) = (/ &\n     &3.3655e+02_rb,3.6613e+02_rb,3.9802e+02_rb,4.3186e+02_rb,4.6748e+02_rb/)\n      kbo(:,30,11) = (/ &\n     &3.1395e+02_rb,3.4455e+02_rb,3.7776e+02_rb,4.1303e+02_rb,4.5043e+02_rb/)\n      kbo(:,31,11) = (/ &\n     &2.9496e+02_rb,3.2692e+02_rb,3.6155e+02_rb,3.9895e+02_rb,4.3848e+02_rb/)\n      kbo(:,32,11) = (/ &\n     &2.7981e+02_rb,3.1316e+02_rb,3.4973e+02_rb,3.8935e+02_rb,4.3105e+02_rb/)\n      kbo(:,33,11) = (/ &\n     &2.6816e+02_rb,3.0318e+02_rb,3.4211e+02_rb,3.8404e+02_rb,4.2836e+02_rb/)\n      kbo(:,34,11) = (/ &\n     &2.5884e+02_rb,2.9576e+02_rb,3.3707e+02_rb,3.8116e+02_rb,4.2770e+02_rb/)\n      kbo(:,35,11) = (/ &\n     &2.4952e+02_rb,2.8807e+02_rb,3.3125e+02_rb,3.7732e+02_rb,4.2524e+02_rb/)\n      kbo(:,36,11) = (/ &\n     &2.3943e+02_rb,2.7867e+02_rb,3.2325e+02_rb,3.7058e+02_rb,4.1944e+02_rb/)\n      kbo(:,37,11) = (/ &\n     &2.2613e+02_rb,2.6501e+02_rb,3.0984e+02_rb,3.5803e+02_rb,4.0758e+02_rb/)\n      kbo(:,38,11) = (/ &\n     &2.1436e+02_rb,2.5281e+02_rb,2.9747e+02_rb,3.4610e+02_rb,3.9628e+02_rb/)\n      kbo(:,39,11) = (/ &\n     &2.0421e+02_rb,2.4224e+02_rb,2.8638e+02_rb,3.3523e+02_rb,3.8565e+02_rb/)\n      kbo(:,40,11) = (/ &\n     &1.9196e+02_rb,2.2865e+02_rb,2.7155e+02_rb,3.1991e+02_rb,3.7045e+02_rb/)\n      kbo(:,41,11) = (/ &\n     &1.8048e+02_rb,2.1574e+02_rb,2.5717e+02_rb,3.0447e+02_rb,3.5504e+02_rb/)\n      kbo(:,42,11) = (/ &\n     &1.7002e+02_rb,2.0375e+02_rb,2.4381e+02_rb,2.8960e+02_rb,3.3999e+02_rb/)\n      kbo(:,43,11) = (/ &\n     &1.5882e+02_rb,1.9068e+02_rb,2.2888e+02_rb,2.7297e+02_rb,3.2243e+02_rb/)\n      kbo(:,44,11) = (/ &\n     &1.4807e+02_rb,1.7774e+02_rb,2.1381e+02_rb,2.5595e+02_rb,3.0384e+02_rb/)\n      kbo(:,45,11) = (/ &\n     &1.3832e+02_rb,1.6584e+02_rb,1.9975e+02_rb,2.3997e+02_rb,2.8600e+02_rb/)\n      kbo(:,46,11) = (/ &\n     &1.2854e+02_rb,1.5423e+02_rb,1.8595e+02_rb,2.2400e+02_rb,2.6785e+02_rb/)\n      kbo(:,47,11) = (/ &\n     &1.1798e+02_rb,1.4267e+02_rb,1.7172e+02_rb,2.0717e+02_rb,2.4874e+02_rb/)\n      kbo(:,48,11) = (/ &\n     &1.0754e+02_rb,1.3197e+02_rb,1.5865e+02_rb,1.9157e+02_rb,2.3076e+02_rb/)\n      kbo(:,49,11) = (/ &\n     &9.7426e+01_rb,1.2165e+02_rb,1.4680e+02_rb,1.7709e+02_rb,2.1383e+02_rb/)\n      kbo(:,50,11) = (/ &\n     &8.8058e+01_rb,1.1199e+02_rb,1.3670e+02_rb,1.6456e+02_rb,1.9880e+02_rb/)\n      kbo(:,51,11) = (/ &\n     &7.9382e+01_rb,1.0270e+02_rb,1.2731e+02_rb,1.5331e+02_rb,1.8527e+02_rb/)\n      kbo(:,52,11) = (/ &\n     &7.1270e+01_rb,9.3720e+01_rb,1.1802e+02_rb,1.4309e+02_rb,1.7263e+02_rb/)\n      kbo(:,53,11) = (/ &\n     &6.3724e+01_rb,8.4883e+01_rb,1.0881e+02_rb,1.3358e+02_rb,1.6088e+02_rb/)\n      kbo(:,54,11) = (/ &\n     &5.7330e+01_rb,7.7159e+01_rb,1.0045e+02_rb,1.2510e+02_rb,1.5088e+02_rb/)\n      kbo(:,55,11) = (/ &\n     &5.1611e+01_rb,7.0208e+01_rb,9.2617e+01_rb,1.1701e+02_rb,1.4209e+02_rb/)\n      kbo(:,56,11) = (/ &\n     &4.6383e+01_rb,6.3679e+01_rb,8.4927e+01_rb,1.0898e+02_rb,1.3380e+02_rb/)\n      kbo(:,57,11) = (/ &\n     &4.1604e+01_rb,5.7613e+01_rb,7.7613e+01_rb,1.0100e+02_rb,1.2575e+02_rb/)\n      kbo(:,58,11) = (/ &\n     &3.7495e+01_rb,5.2208e+01_rb,7.1056e+01_rb,9.3655e+01_rb,1.1815e+02_rb/)\n      kbo(:,59,11) = (/ &\n     &3.5885e+01_rb,5.0106e+01_rb,6.8487e+01_rb,9.0651e+01_rb,1.1506e+02_rb/)\n      kbo(:,13,12) = (/ &\n     &3.5806e+03_rb,3.5582e+03_rb,3.5338e+03_rb,3.5034e+03_rb,3.4725e+03_rb/)\n      kbo(:,14,12) = (/ &\n     &3.4862e+03_rb,3.4597e+03_rb,3.4292e+03_rb,3.3949e+03_rb,3.3614e+03_rb/)\n      kbo(:,15,12) = (/ &\n     &3.3163e+03_rb,3.2855e+03_rb,3.2498e+03_rb,3.2159e+03_rb,3.1795e+03_rb/)\n      kbo(:,16,12) = (/ &\n     &3.0905e+03_rb,3.0565e+03_rb,3.0217e+03_rb,2.9883e+03_rb,2.9514e+03_rb/)\n      kbo(:,17,12) = (/ &\n     &2.8252e+03_rb,2.7909e+03_rb,2.7597e+03_rb,2.7275e+03_rb,2.6935e+03_rb/)\n      kbo(:,18,12) = (/ &\n     &2.5391e+03_rb,2.5095e+03_rb,2.4810e+03_rb,2.4508e+03_rb,2.4233e+03_rb/)\n      kbo(:,19,12) = (/ &\n     &2.2475e+03_rb,2.2231e+03_rb,2.1980e+03_rb,2.1744e+03_rb,2.1532e+03_rb/)\n      kbo(:,20,12) = (/ &\n     &1.9592e+03_rb,1.9385e+03_rb,1.9191e+03_rb,1.9031e+03_rb,1.8880e+03_rb/)\n      kbo(:,21,12) = (/ &\n     &1.6882e+03_rb,1.6730e+03_rb,1.6603e+03_rb,1.6503e+03_rb,1.6513e+03_rb/)\n      kbo(:,22,12) = (/ &\n     &1.4424e+03_rb,1.4327e+03_rb,1.4274e+03_rb,1.4386e+03_rb,1.4720e+03_rb/)\n      kbo(:,23,12) = (/ &\n     &1.2274e+03_rb,1.2245e+03_rb,1.2417e+03_rb,1.2835e+03_rb,1.3444e+03_rb/)\n      kbo(:,24,12) = (/ &\n     &1.0462e+03_rb,1.0639e+03_rb,1.1088e+03_rb,1.1752e+03_rb,1.2597e+03_rb/)\n      kbo(:,25,12) = (/ &\n     &9.1114e+02_rb,9.5200e+02_rb,1.0177e+03_rb,1.1057e+03_rb,1.2094e+03_rb/)\n      kbo(:,26,12) = (/ &\n     &8.2003e+02_rb,8.7985e+02_rb,9.6324e+02_rb,1.0645e+03_rb,1.1739e+03_rb/)\n      kbo(:,27,12) = (/ &\n     &7.6267e+02_rb,8.3792e+02_rb,9.2956e+02_rb,1.0323e+03_rb,1.1455e+03_rb/)\n      kbo(:,28,12) = (/ &\n     &7.2963e+02_rb,8.0994e+02_rb,9.0250e+02_rb,1.0075e+03_rb,1.1258e+03_rb/)\n      kbo(:,29,12) = (/ &\n     &7.0594e+02_rb,7.8863e+02_rb,8.8342e+02_rb,9.9282e+02_rb,1.1166e+03_rb/)\n      kbo(:,30,12) = (/ &\n     &6.8865e+02_rb,7.7319e+02_rb,8.7237e+02_rb,9.8744e+02_rb,1.1171e+03_rb/)\n      kbo(:,31,12) = (/ &\n     &6.7685e+02_rb,7.6521e+02_rb,8.7052e+02_rb,9.9144e+02_rb,1.1267e+03_rb/)\n      kbo(:,32,12) = (/ &\n     &6.7111e+02_rb,7.6562e+02_rb,8.7695e+02_rb,1.0037e+03_rb,1.1434e+03_rb/)\n      kbo(:,33,12) = (/ &\n     &6.7259e+02_rb,7.7346e+02_rb,8.9020e+02_rb,1.0220e+03_rb,1.1658e+03_rb/)\n      kbo(:,34,12) = (/ &\n     &6.7713e+02_rb,7.8296e+02_rb,9.0470e+02_rb,1.0405e+03_rb,1.1875e+03_rb/)\n      kbo(:,35,12) = (/ &\n     &6.7665e+02_rb,7.8599e+02_rb,9.1053e+02_rb,1.0483e+03_rb,1.1976e+03_rb/)\n      kbo(:,36,12) = (/ &\n     &6.6854e+02_rb,7.7898e+02_rb,9.0439e+02_rb,1.0428e+03_rb,1.1928e+03_rb/)\n      kbo(:,37,12) = (/ &\n     &6.4709e+02_rb,7.5625e+02_rb,8.8001e+02_rb,1.0171e+03_rb,1.1660e+03_rb/)\n      kbo(:,38,12) = (/ &\n     &6.2682e+02_rb,7.3409e+02_rb,8.5611e+02_rb,9.9182e+02_rb,1.1392e+03_rb/)\n      kbo(:,39,12) = (/ &\n     &6.0784e+02_rb,7.1328e+02_rb,8.3356e+02_rb,9.6784e+02_rb,1.1136e+03_rb/)\n      kbo(:,40,12) = (/ &\n     &5.7971e+02_rb,6.8247e+02_rb,7.9953e+02_rb,9.3053e+02_rb,1.0739e+03_rb/)\n      kbo(:,41,12) = (/ &\n     &5.5088e+02_rb,6.5173e+02_rb,7.6511e+02_rb,8.9294e+02_rb,1.0334e+03_rb/)\n      kbo(:,42,12) = (/ &\n     &5.2250e+02_rb,6.2258e+02_rb,7.3222e+02_rb,8.5651e+02_rb,9.9385e+02_rb/)\n      kbo(:,43,12) = (/ &\n     &4.8933e+02_rb,5.8876e+02_rb,6.9433e+02_rb,8.1420e+02_rb,9.4769e+02_rb/)\n      kbo(:,44,12) = (/ &\n     &4.5428e+02_rb,5.5295e+02_rb,6.5546e+02_rb,7.7054e+02_rb,8.9971e+02_rb/)\n      kbo(:,45,12) = (/ &\n     &4.2007e+02_rb,5.1771e+02_rb,6.1870e+02_rb,7.2869e+02_rb,8.5325e+02_rb/)\n      kbo(:,46,12) = (/ &\n     &3.8522e+02_rb,4.8086e+02_rb,5.8089e+02_rb,6.8626e+02_rb,8.0577e+02_rb/)\n      kbo(:,47,12) = (/ &\n     &3.4877e+02_rb,4.4033e+02_rb,5.3933e+02_rb,6.4157e+02_rb,7.5519e+02_rb/)\n      kbo(:,48,12) = (/ &\n     &3.1493e+02_rb,4.0108e+02_rb,4.9823e+02_rb,5.9910e+02_rb,7.0691e+02_rb/)\n      kbo(:,49,12) = (/ &\n     &2.8364e+02_rb,3.6388e+02_rb,4.5779e+02_rb,5.5756e+02_rb,6.6121e+02_rb/)\n      kbo(:,50,12) = (/ &\n     &2.5678e+02_rb,3.3121e+02_rb,4.2060e+02_rb,5.1905e+02_rb,6.2075e+02_rb/)\n      kbo(:,51,12) = (/ &\n     &2.3307e+02_rb,3.0175e+02_rb,3.8585e+02_rb,4.8220e+02_rb,5.8283e+02_rb/)\n      kbo(:,52,12) = (/ &\n     &2.1162e+02_rb,2.7441e+02_rb,3.5299e+02_rb,4.4577e+02_rb,5.4547e+02_rb/)\n      kbo(:,53,12) = (/ &\n     &1.9234e+02_rb,2.4923e+02_rb,3.2216e+02_rb,4.1019e+02_rb,5.0837e+02_rb/)\n      kbo(:,54,12) = (/ &\n     &1.7628e+02_rb,2.2813e+02_rb,2.9582e+02_rb,3.7887e+02_rb,4.7480e+02_rb/)\n      kbo(:,55,12) = (/ &\n     &1.6140e+02_rb,2.0966e+02_rb,2.7210e+02_rb,3.5029e+02_rb,4.4296e+02_rb/)\n      kbo(:,56,12) = (/ &\n     &1.4678e+02_rb,1.9288e+02_rb,2.5016e+02_rb,3.2346e+02_rb,4.1177e+02_rb/)\n      kbo(:,57,12) = (/ &\n     &1.3255e+02_rb,1.7758e+02_rb,2.2997e+02_rb,2.9828e+02_rb,3.8188e+02_rb/)\n      kbo(:,58,12) = (/ &\n     &1.1943e+02_rb,1.6353e+02_rb,2.1228e+02_rb,2.7566e+02_rb,3.5477e+02_rb/)\n      kbo(:,59,12) = (/ &\n     &1.1423e+02_rb,1.5792e+02_rb,2.0564e+02_rb,2.6702e+02_rb,3.4426e+02_rb/)\n      kbo(:,13,13) = (/ &\n     &6.2371e+03_rb,6.2518e+03_rb,6.2489e+03_rb,6.2389e+03_rb,6.2163e+03_rb/)\n      kbo(:,14,13) = (/ &\n     &6.5479e+03_rb,6.5460e+03_rb,6.5322e+03_rb,6.5131e+03_rb,6.4799e+03_rb/)\n      kbo(:,15,13) = (/ &\n     &6.7275e+03_rb,6.7134e+03_rb,6.6981e+03_rb,6.6679e+03_rb,6.6340e+03_rb/)\n      kbo(:,16,13) = (/ &\n     &6.7706e+03_rb,6.7549e+03_rb,6.7279e+03_rb,6.6968e+03_rb,6.6585e+03_rb/)\n      kbo(:,17,13) = (/ &\n     &6.6836e+03_rb,6.6601e+03_rb,6.6362e+03_rb,6.6043e+03_rb,6.5760e+03_rb/)\n      kbo(:,18,13) = (/ &\n     &6.4651e+03_rb,6.4504e+03_rb,6.4295e+03_rb,6.4100e+03_rb,6.3855e+03_rb/)\n      kbo(:,19,13) = (/ &\n     &6.1476e+03_rb,6.1374e+03_rb,6.1314e+03_rb,6.1247e+03_rb,6.1206e+03_rb/)\n      kbo(:,20,13) = (/ &\n     &5.7657e+03_rb,5.7701e+03_rb,5.7793e+03_rb,5.7885e+03_rb,5.8038e+03_rb/)\n      kbo(:,21,13) = (/ &\n     &5.3372e+03_rb,5.3657e+03_rb,5.3946e+03_rb,5.4291e+03_rb,5.4659e+03_rb/)\n      kbo(:,22,13) = (/ &\n     &4.8964e+03_rb,4.9428e+03_rb,4.9998e+03_rb,5.0621e+03_rb,5.1258e+03_rb/)\n      kbo(:,23,13) = (/ &\n     &4.4608e+03_rb,4.5344e+03_rb,4.6177e+03_rb,4.7044e+03_rb,4.8008e+03_rb/)\n      kbo(:,24,13) = (/ &\n     &4.0572e+03_rb,4.1535e+03_rb,4.2613e+03_rb,4.3798e+03_rb,4.5026e+03_rb/)\n      kbo(:,25,13) = (/ &\n     &3.6891e+03_rb,3.8125e+03_rb,3.9482e+03_rb,4.0905e+03_rb,4.2411e+03_rb/)\n      kbo(:,26,13) = (/ &\n     &3.3690e+03_rb,3.5206e+03_rb,3.6781e+03_rb,3.8529e+03_rb,4.0416e+03_rb/)\n      kbo(:,27,13) = (/ &\n     &3.0960e+03_rb,3.2709e+03_rb,3.4667e+03_rb,3.6805e+03_rb,3.9027e+03_rb/)\n      kbo(:,28,13) = (/ &\n     &2.8685e+03_rb,3.0838e+03_rb,3.3203e+03_rb,3.5644e+03_rb,3.8131e+03_rb/)\n      kbo(:,29,13) = (/ &\n     &2.7079e+03_rb,2.9620e+03_rb,3.2275e+03_rb,3.4951e+03_rb,3.7635e+03_rb/)\n      kbo(:,30,13) = (/ &\n     &2.6061e+03_rb,2.8858e+03_rb,3.1752e+03_rb,3.4611e+03_rb,3.7451e+03_rb/)\n      kbo(:,31,13) = (/ &\n     &2.5477e+03_rb,2.8507e+03_rb,3.1575e+03_rb,3.4577e+03_rb,3.7506e+03_rb/)\n      kbo(:,32,13) = (/ &\n     &2.5270e+03_rb,2.8474e+03_rb,3.1664e+03_rb,3.4757e+03_rb,3.7742e+03_rb/)\n      kbo(:,33,13) = (/ &\n     &2.5348e+03_rb,2.8669e+03_rb,3.1934e+03_rb,3.5095e+03_rb,3.8093e+03_rb/)\n      kbo(:,34,13) = (/ &\n     &2.5519e+03_rb,2.8931e+03_rb,3.2251e+03_rb,3.5432e+03_rb,3.8451e+03_rb/)\n      kbo(:,35,13) = (/ &\n     &2.5512e+03_rb,2.8985e+03_rb,3.2338e+03_rb,3.5558e+03_rb,3.8584e+03_rb/)\n      kbo(:,36,13) = (/ &\n     &2.5221e+03_rb,2.8745e+03_rb,3.2143e+03_rb,3.5395e+03_rb,3.8450e+03_rb/)\n      kbo(:,37,13) = (/ &\n     &2.4460e+03_rb,2.8025e+03_rb,3.1490e+03_rb,3.4791e+03_rb,3.7899e+03_rb/)\n      kbo(:,38,13) = (/ &\n     &2.3708e+03_rb,2.7313e+03_rb,3.0831e+03_rb,3.4179e+03_rb,3.7342e+03_rb/)\n      kbo(:,39,13) = (/ &\n     &2.3003e+03_rb,2.6642e+03_rb,3.0201e+03_rb,3.3586e+03_rb,3.6803e+03_rb/)\n      kbo(:,40,13) = (/ &\n     &2.1969e+03_rb,2.5616e+03_rb,2.9219e+03_rb,3.2671e+03_rb,3.5954e+03_rb/)\n      kbo(:,41,13) = (/ &\n     &2.0924e+03_rb,2.4560e+03_rb,2.8204e+03_rb,3.1716e+03_rb,3.5055e+03_rb/)\n      kbo(:,42,13) = (/ &\n     &1.9915e+03_rb,2.3511e+03_rb,2.7188e+03_rb,3.0759e+03_rb,3.4151e+03_rb/)\n      kbo(:,43,13) = (/ &\n     &1.8747e+03_rb,2.2279e+03_rb,2.5969e+03_rb,2.9589e+03_rb,3.3053e+03_rb/)\n      kbo(:,44,13) = (/ &\n     &1.7544e+03_rb,2.0986e+03_rb,2.4653e+03_rb,2.8326e+03_rb,3.1860e+03_rb/)\n      kbo(:,45,13) = (/ &\n     &1.6386e+03_rb,1.9731e+03_rb,2.3348e+03_rb,2.7048e+03_rb,3.0644e+03_rb/)\n      kbo(:,46,13) = (/ &\n     &1.5205e+03_rb,1.8444e+03_rb,2.1974e+03_rb,2.5688e+03_rb,2.9332e+03_rb/)\n      kbo(:,47,13) = (/ &\n     &1.3958e+03_rb,1.7058e+03_rb,2.0486e+03_rb,2.4160e+03_rb,2.7851e+03_rb/)\n      kbo(:,48,13) = (/ &\n     &1.2783e+03_rb,1.5734e+03_rb,1.9036e+03_rb,2.2627e+03_rb,2.6347e+03_rb/)\n      kbo(:,49,13) = (/ &\n     &1.1678e+03_rb,1.4470e+03_rb,1.7643e+03_rb,2.1130e+03_rb,2.4832e+03_rb/)\n      kbo(:,50,13) = (/ &\n     &1.0712e+03_rb,1.3344e+03_rb,1.6384e+03_rb,1.9762e+03_rb,2.3408e+03_rb/)\n      kbo(:,51,13) = (/ &\n     &9.8353e+02_rb,1.2311e+03_rb,1.5209e+03_rb,1.8472e+03_rb,2.2032e+03_rb/)\n      kbo(:,52,13) = (/ &\n     &9.0254e+02_rb,1.1339e+03_rb,1.4093e+03_rb,1.7232e+03_rb,2.0693e+03_rb/)\n      kbo(:,53,13) = (/ &\n     &8.2760e+02_rb,1.0429e+03_rb,1.3025e+03_rb,1.6032e+03_rb,1.9381e+03_rb/)\n      kbo(:,54,13) = (/ &\n     &7.6424e+02_rb,9.6451e+02_rb,1.2096e+03_rb,1.4971e+03_rb,1.8216e+03_rb/)\n      kbo(:,55,13) = (/ &\n     &7.1080e+02_rb,8.9446e+02_rb,1.1253e+03_rb,1.4000e+03_rb,1.7133e+03_rb/)\n      kbo(:,56,13) = (/ &\n     &6.6381e+02_rb,8.2901e+02_rb,1.0458e+03_rb,1.3069e+03_rb,1.6083e+03_rb/)\n      kbo(:,57,13) = (/ &\n     &6.2290e+02_rb,7.6867e+02_rb,9.7122e+02_rb,1.2178e+03_rb,1.5070e+03_rb/)\n      kbo(:,58,13) = (/ &\n     &5.8709e+02_rb,7.1760e+02_rb,9.0453e+02_rb,1.1378e+03_rb,1.4149e+03_rb/)\n      kbo(:,59,13) = (/ &\n     &5.7268e+02_rb,6.9849e+02_rb,8.7854e+02_rb,1.1067e+03_rb,1.3783e+03_rb/)\n      kbo(:,13,14) = (/ &\n     &9.8812e+03_rb,9.9499e+03_rb,9.9974e+03_rb,1.0022e+04_rb,1.0029e+04_rb/)\n      kbo(:,14,14) = (/ &\n     &1.1156e+04_rb,1.1216e+04_rb,1.1254e+04_rb,1.1270e+04_rb,1.1265e+04_rb/)\n      kbo(:,15,14) = (/ &\n     &1.2449e+04_rb,1.2496e+04_rb,1.2517e+04_rb,1.2519e+04_rb,1.2490e+04_rb/)\n      kbo(:,16,14) = (/ &\n     &1.3700e+04_rb,1.3729e+04_rb,1.3741e+04_rb,1.3718e+04_rb,1.3680e+04_rb/)\n      kbo(:,17,14) = (/ &\n     &1.4861e+04_rb,1.4895e+04_rb,1.4882e+04_rb,1.4853e+04_rb,1.4786e+04_rb/)\n      kbo(:,18,14) = (/ &\n     &1.5910e+04_rb,1.5917e+04_rb,1.5910e+04_rb,1.5867e+04_rb,1.5794e+04_rb/)\n      kbo(:,19,14) = (/ &\n     &1.6801e+04_rb,1.6817e+04_rb,1.6802e+04_rb,1.6758e+04_rb,1.6676e+04_rb/)\n      kbo(:,20,14) = (/ &\n     &1.7524e+04_rb,1.7556e+04_rb,1.7546e+04_rb,1.7509e+04_rb,1.7437e+04_rb/)\n      kbo(:,21,14) = (/ &\n     &1.8096e+04_rb,1.8141e+04_rb,1.8145e+04_rb,1.8122e+04_rb,1.8064e+04_rb/)\n      kbo(:,22,14) = (/ &\n     &1.8520e+04_rb,1.8595e+04_rb,1.8633e+04_rb,1.8624e+04_rb,1.8566e+04_rb/)\n      kbo(:,23,14) = (/ &\n     &1.8825e+04_rb,1.8946e+04_rb,1.9018e+04_rb,1.9030e+04_rb,1.8984e+04_rb/)\n      kbo(:,24,14) = (/ &\n     &1.9042e+04_rb,1.9220e+04_rb,1.9316e+04_rb,1.9349e+04_rb,1.9324e+04_rb/)\n      kbo(:,25,14) = (/ &\n     &1.9210e+04_rb,1.9418e+04_rb,1.9542e+04_rb,1.9606e+04_rb,1.9602e+04_rb/)\n      kbo(:,26,14) = (/ &\n     &1.9338e+04_rb,1.9577e+04_rb,1.9740e+04_rb,1.9821e+04_rb,1.9828e+04_rb/)\n      kbo(:,27,14) = (/ &\n     &1.9451e+04_rb,1.9723e+04_rb,1.9903e+04_rb,2.0002e+04_rb,2.0015e+04_rb/)\n      kbo(:,28,14) = (/ &\n     &1.9563e+04_rb,1.9853e+04_rb,2.0047e+04_rb,2.0156e+04_rb,2.0162e+04_rb/)\n      kbo(:,29,14) = (/ &\n     &1.9675e+04_rb,1.9975e+04_rb,2.0176e+04_rb,2.0280e+04_rb,2.0284e+04_rb/)\n      kbo(:,30,14) = (/ &\n     &1.9781e+04_rb,2.0092e+04_rb,2.0291e+04_rb,2.0384e+04_rb,2.0380e+04_rb/)\n      kbo(:,31,14) = (/ &\n     &1.9898e+04_rb,2.0205e+04_rb,2.0389e+04_rb,2.0467e+04_rb,2.0456e+04_rb/)\n      kbo(:,32,14) = (/ &\n     &2.0014e+04_rb,2.0306e+04_rb,2.0476e+04_rb,2.0543e+04_rb,2.0514e+04_rb/)\n      kbo(:,33,14) = (/ &\n     &2.0125e+04_rb,2.0400e+04_rb,2.0544e+04_rb,2.0600e+04_rb,2.0558e+04_rb/)\n      kbo(:,34,14) = (/ &\n     &2.0217e+04_rb,2.0476e+04_rb,2.0611e+04_rb,2.0645e+04_rb,2.0591e+04_rb/)\n      kbo(:,35,14) = (/ &\n     &2.0276e+04_rb,2.0526e+04_rb,2.0654e+04_rb,2.0682e+04_rb,2.0620e+04_rb/)\n      kbo(:,36,14) = (/ &\n     &2.0294e+04_rb,2.0553e+04_rb,2.0682e+04_rb,2.0712e+04_rb,2.0656e+04_rb/)\n      kbo(:,37,14) = (/ &\n     &2.0260e+04_rb,2.0540e+04_rb,2.0692e+04_rb,2.0741e+04_rb,2.0704e+04_rb/)\n      kbo(:,38,14) = (/ &\n     &2.0217e+04_rb,2.0522e+04_rb,2.0695e+04_rb,2.0763e+04_rb,2.0734e+04_rb/)\n      kbo(:,39,14) = (/ &\n     &2.0167e+04_rb,2.0500e+04_rb,2.0691e+04_rb,2.0777e+04_rb,2.0762e+04_rb/)\n      kbo(:,40,14) = (/ &\n     &2.0068e+04_rb,2.0438e+04_rb,2.0666e+04_rb,2.0778e+04_rb,2.0786e+04_rb/)\n      kbo(:,41,14) = (/ &\n     &1.9949e+04_rb,2.0361e+04_rb,2.0631e+04_rb,2.0768e+04_rb,2.0804e+04_rb/)\n      kbo(:,42,14) = (/ &\n     &1.9819e+04_rb,2.0274e+04_rb,2.0579e+04_rb,2.0750e+04_rb,2.0814e+04_rb/)\n      kbo(:,43,14) = (/ &\n     &1.9645e+04_rb,2.0149e+04_rb,2.0503e+04_rb,2.0721e+04_rb,2.0814e+04_rb/)\n      kbo(:,44,14) = (/ &\n     &1.9429e+04_rb,1.9994e+04_rb,2.0396e+04_rb,2.0663e+04_rb,2.0798e+04_rb/)\n      kbo(:,45,14) = (/ &\n     &1.9189e+04_rb,1.9824e+04_rb,2.0285e+04_rb,2.0595e+04_rb,2.0770e+04_rb/)\n      kbo(:,46,14) = (/ &\n     &1.8912e+04_rb,1.9621e+04_rb,2.0139e+04_rb,2.0501e+04_rb,2.0722e+04_rb/)\n      kbo(:,47,14) = (/ &\n     &1.8574e+04_rb,1.9355e+04_rb,1.9947e+04_rb,2.0373e+04_rb,2.0652e+04_rb/)\n      kbo(:,48,14) = (/ &\n     &1.8199e+04_rb,1.9060e+04_rb,1.9733e+04_rb,2.0223e+04_rb,2.0560e+04_rb/)\n      kbo(:,49,14) = (/ &\n     &1.7788e+04_rb,1.8737e+04_rb,1.9487e+04_rb,2.0042e+04_rb,2.0440e+04_rb/)\n      kbo(:,50,14) = (/ &\n     &1.7372e+04_rb,1.8402e+04_rb,1.9222e+04_rb,1.9853e+04_rb,2.0312e+04_rb/)\n      kbo(:,51,14) = (/ &\n     &1.6932e+04_rb,1.8048e+04_rb,1.8944e+04_rb,1.9653e+04_rb,2.0163e+04_rb/)\n      kbo(:,52,14) = (/ &\n     &1.6460e+04_rb,1.7668e+04_rb,1.8640e+04_rb,1.9416e+04_rb,1.9992e+04_rb/)\n      kbo(:,53,14) = (/ &\n     &1.5959e+04_rb,1.7252e+04_rb,1.8310e+04_rb,1.9147e+04_rb,1.9806e+04_rb/)\n      kbo(:,54,14) = (/ &\n     &1.5461e+04_rb,1.6846e+04_rb,1.7980e+04_rb,1.8888e+04_rb,1.9606e+04_rb/)\n      kbo(:,55,14) = (/ &\n     &1.4966e+04_rb,1.6424e+04_rb,1.7640e+04_rb,1.8623e+04_rb,1.9399e+04_rb/)\n      kbo(:,56,14) = (/ &\n     &1.4452e+04_rb,1.5984e+04_rb,1.7276e+04_rb,1.8327e+04_rb,1.9166e+04_rb/)\n      kbo(:,57,14) = (/ &\n     &1.3910e+04_rb,1.5518e+04_rb,1.6891e+04_rb,1.8015e+04_rb,1.8917e+04_rb/)\n      kbo(:,58,14) = (/ &\n     &1.3384e+04_rb,1.5053e+04_rb,1.6496e+04_rb,1.7699e+04_rb,1.8667e+04_rb/)\n      kbo(:,59,14) = (/ &\n     &1.3166e+04_rb,1.4859e+04_rb,1.6332e+04_rb,1.7567e+04_rb,1.8563e+04_rb/)\n      kbo(:,13,15) = (/ &\n     &1.3095e+04_rb,1.3203e+04_rb,1.3280e+04_rb,1.3335e+04_rb,1.3364e+04_rb/)\n      kbo(:,14,15) = (/ &\n     &1.5533e+04_rb,1.5637e+04_rb,1.5702e+04_rb,1.5732e+04_rb,1.5730e+04_rb/)\n      kbo(:,15,15) = (/ &\n     &1.8283e+04_rb,1.8379e+04_rb,1.8421e+04_rb,1.8416e+04_rb,1.8371e+04_rb/)\n      kbo(:,16,15) = (/ &\n     &2.1357e+04_rb,2.1409e+04_rb,2.1406e+04_rb,2.1356e+04_rb,2.1240e+04_rb/)\n      kbo(:,17,15) = (/ &\n     &2.4722e+04_rb,2.4699e+04_rb,2.4632e+04_rb,2.4482e+04_rb,2.4282e+04_rb/)\n      kbo(:,18,15) = (/ &\n     &2.8315e+04_rb,2.8214e+04_rb,2.8019e+04_rb,2.7755e+04_rb,2.7441e+04_rb/)\n      kbo(:,19,15) = (/ &\n     &3.2071e+04_rb,3.1837e+04_rb,3.1501e+04_rb,3.1092e+04_rb,3.0622e+04_rb/)\n      kbo(:,20,15) = (/ &\n     &3.5875e+04_rb,3.5466e+04_rb,3.4981e+04_rb,3.4394e+04_rb,3.3745e+04_rb/)\n      kbo(:,21,15) = (/ &\n     &3.9627e+04_rb,3.9030e+04_rb,3.8357e+04_rb,3.7580e+04_rb,3.6746e+04_rb/)\n      kbo(:,22,15) = (/ &\n     &4.3205e+04_rb,4.2400e+04_rb,4.1478e+04_rb,4.0494e+04_rb,3.9468e+04_rb/)\n      kbo(:,23,15) = (/ &\n     &4.6532e+04_rb,4.5460e+04_rb,4.4309e+04_rb,4.3126e+04_rb,4.1899e+04_rb/)\n      kbo(:,24,15) = (/ &\n     &4.9513e+04_rb,4.8176e+04_rb,4.6831e+04_rb,4.5435e+04_rb,4.4005e+04_rb/)\n      kbo(:,25,15) = (/ &\n     &5.2106e+04_rb,5.0560e+04_rb,4.9001e+04_rb,4.7400e+04_rb,4.5767e+04_rb/)\n      kbo(:,26,15) = (/ &\n     &5.4289e+04_rb,5.2537e+04_rb,5.0767e+04_rb,4.8979e+04_rb,4.7180e+04_rb/)\n      kbo(:,27,15) = (/ &\n     &5.6074e+04_rb,5.4129e+04_rb,5.2176e+04_rb,5.0219e+04_rb,4.8292e+04_rb/)\n      kbo(:,28,15) = (/ &\n     &5.7491e+04_rb,5.5358e+04_rb,5.3246e+04_rb,5.1171e+04_rb,4.9128e+04_rb/)\n      kbo(:,29,15) = (/ &\n     &5.8538e+04_rb,5.6261e+04_rb,5.4015e+04_rb,5.1836e+04_rb,4.9710e+04_rb/)\n      kbo(:,30,15) = (/ &\n     &5.9277e+04_rb,5.6882e+04_rb,5.4538e+04_rb,5.2280e+04_rb,5.0075e+04_rb/)\n      kbo(:,31,15) = (/ &\n     &5.9738e+04_rb,5.7244e+04_rb,5.4845e+04_rb,5.2509e+04_rb,5.0252e+04_rb/)\n      kbo(:,32,15) = (/ &\n     &5.9975e+04_rb,5.7405e+04_rb,5.4958e+04_rb,5.2573e+04_rb,5.0275e+04_rb/)\n      kbo(:,33,15) = (/ &\n     &6.0007e+04_rb,5.7410e+04_rb,5.4914e+04_rb,5.2499e+04_rb,5.0167e+04_rb/)\n      kbo(:,34,15) = (/ &\n     &5.9998e+04_rb,5.7359e+04_rb,5.4840e+04_rb,5.2398e+04_rb,5.0041e+04_rb/)\n      kbo(:,35,15) = (/ &\n     &6.0132e+04_rb,5.7462e+04_rb,5.4907e+04_rb,5.2438e+04_rb,5.0062e+04_rb/)\n      kbo(:,36,15) = (/ &\n     &6.0467e+04_rb,5.7764e+04_rb,5.5174e+04_rb,5.2679e+04_rb,5.0279e+04_rb/)\n      kbo(:,37,15) = (/ &\n     &6.1171e+04_rb,5.8407e+04_rb,5.5781e+04_rb,5.3245e+04_rb,5.0803e+04_rb/)\n      kbo(:,38,15) = (/ &\n     &6.1845e+04_rb,5.9045e+04_rb,5.6369e+04_rb,5.3796e+04_rb,5.1321e+04_rb/)\n      kbo(:,39,15) = (/ &\n     &6.2474e+04_rb,5.9622e+04_rb,5.6925e+04_rb,5.4319e+04_rb,5.1811e+04_rb/)\n      kbo(:,40,15) = (/ &\n     &6.3380e+04_rb,6.0485e+04_rb,5.7724e+04_rb,5.5082e+04_rb,5.2540e+04_rb/)\n      kbo(:,41,15) = (/ &\n     &6.4308e+04_rb,6.1360e+04_rb,5.8546e+04_rb,5.5868e+04_rb,5.3286e+04_rb/)\n      kbo(:,42,15) = (/ &\n     &6.5214e+04_rb,6.2221e+04_rb,5.9366e+04_rb,5.6643e+04_rb,5.4029e+04_rb/)\n      kbo(:,43,15) = (/ &\n     &6.6280e+04_rb,6.3259e+04_rb,6.0335e+04_rb,5.7567e+04_rb,5.4915e+04_rb/)\n      kbo(:,44,15) = (/ &\n     &6.7443e+04_rb,6.4360e+04_rb,6.1383e+04_rb,5.8557e+04_rb,5.5857e+04_rb/)\n      kbo(:,45,15) = (/ &\n     &6.8616e+04_rb,6.5461e+04_rb,6.2445e+04_rb,5.9557e+04_rb,5.6818e+04_rb/)\n      kbo(:,46,15) = (/ &\n     &6.9855e+04_rb,6.6628e+04_rb,6.3578e+04_rb,6.0631e+04_rb,5.7835e+04_rb/)\n      kbo(:,47,15) = (/ &\n     &7.1240e+04_rb,6.7969e+04_rb,6.4839e+04_rb,6.1843e+04_rb,5.8987e+04_rb/)\n      kbo(:,48,15) = (/ &\n     &7.2637e+04_rb,6.9326e+04_rb,6.6121e+04_rb,6.3073e+04_rb,6.0145e+04_rb/)\n      kbo(:,49,15) = (/ &\n     &7.4017e+04_rb,7.0688e+04_rb,6.7429e+04_rb,6.4324e+04_rb,6.1340e+04_rb/)\n      kbo(:,50,15) = (/ &\n     &7.5349e+04_rb,7.1972e+04_rb,6.8674e+04_rb,6.5502e+04_rb,6.2467e+04_rb/)\n      kbo(:,51,15) = (/ &\n     &7.6637e+04_rb,7.3219e+04_rb,6.9913e+04_rb,6.6663e+04_rb,6.3587e+04_rb/)\n      kbo(:,52,15) = (/ &\n     &7.7955e+04_rb,7.4483e+04_rb,7.1122e+04_rb,6.7846e+04_rb,6.4721e+04_rb/)\n      kbo(:,53,15) = (/ &\n     &7.9280e+04_rb,7.5753e+04_rb,7.2364e+04_rb,6.9053e+04_rb,6.5858e+04_rb/)\n      kbo(:,54,15) = (/ &\n     &8.0495e+04_rb,7.6933e+04_rb,7.3504e+04_rb,7.0171e+04_rb,6.6914e+04_rb/)\n      kbo(:,55,15) = (/ &\n     &8.1662e+04_rb,7.8089e+04_rb,7.4612e+04_rb,7.1233e+04_rb,6.7959e+04_rb/)\n      kbo(:,56,15) = (/ &\n     &8.2843e+04_rb,7.9230e+04_rb,7.5715e+04_rb,7.2316e+04_rb,6.9008e+04_rb/)\n      kbo(:,57,15) = (/ &\n     &8.4005e+04_rb,8.0398e+04_rb,7.6842e+04_rb,7.3404e+04_rb,7.0077e+04_rb/)\n      kbo(:,58,15) = (/ &\n     &8.5078e+04_rb,8.1502e+04_rb,7.7919e+04_rb,7.4439e+04_rb,7.1083e+04_rb/)\n      kbo(:,59,15) = (/ &\n     &8.5505e+04_rb,8.1958e+04_rb,7.8361e+04_rb,7.4870e+04_rb,7.1482e+04_rb/)\n      kbo(:,13,16) = (/ &\n     &1.4816e+04_rb,1.4930e+04_rb,1.5014e+04_rb,1.5052e+04_rb,1.5044e+04_rb/)\n      kbo(:,14,16) = (/ &\n     &1.7836e+04_rb,1.7951e+04_rb,1.8019e+04_rb,1.8017e+04_rb,1.7984e+04_rb/)\n      kbo(:,15,16) = (/ &\n     &2.1381e+04_rb,2.1462e+04_rb,2.1481e+04_rb,2.1430e+04_rb,2.1342e+04_rb/)\n      kbo(:,16,16) = (/ &\n     &2.5477e+04_rb,2.5475e+04_rb,2.5403e+04_rb,2.5275e+04_rb,2.5089e+04_rb/)\n      kbo(:,17,16) = (/ &\n     &3.0124e+04_rb,3.0002e+04_rb,2.9773e+04_rb,2.9519e+04_rb,2.9186e+04_rb/)\n      kbo(:,18,16) = (/ &\n     &3.5286e+04_rb,3.4965e+04_rb,3.4530e+04_rb,3.4092e+04_rb,3.3540e+04_rb/)\n      kbo(:,19,16) = (/ &\n     &4.0852e+04_rb,4.0241e+04_rb,3.9575e+04_rb,3.8871e+04_rb,3.8057e+04_rb/)\n      kbo(:,20,16) = (/ &\n     &4.6699e+04_rb,4.5739e+04_rb,4.4741e+04_rb,4.3700e+04_rb,4.2576e+04_rb/)\n      kbo(:,21,16) = (/ &\n     &5.2654e+04_rb,5.1275e+04_rb,4.9864e+04_rb,4.8428e+04_rb,4.6961e+04_rb/)\n      kbo(:,22,16) = (/ &\n     &5.8403e+04_rb,5.6551e+04_rb,5.4684e+04_rb,5.2822e+04_rb,5.0976e+04_rb/)\n      kbo(:,23,16) = (/ &\n     &6.3816e+04_rb,6.1463e+04_rb,5.9121e+04_rb,5.6821e+04_rb,5.4590e+04_rb/)\n      kbo(:,24,16) = (/ &\n     &6.8713e+04_rb,6.5863e+04_rb,6.3058e+04_rb,6.0345e+04_rb,5.7751e+04_rb/)\n      kbo(:,25,16) = (/ &\n     &7.2989e+04_rb,6.9656e+04_rb,6.6424e+04_rb,6.3329e+04_rb,6.0404e+04_rb/)\n      kbo(:,26,16) = (/ &\n     &7.6570e+04_rb,7.2775e+04_rb,6.9149e+04_rb,6.5716e+04_rb,6.2522e+04_rb/)\n      kbo(:,27,16) = (/ &\n     &7.9459e+04_rb,7.5274e+04_rb,7.1313e+04_rb,6.7589e+04_rb,6.4169e+04_rb/)\n      kbo(:,28,16) = (/ &\n     &8.1683e+04_rb,7.7174e+04_rb,7.2947e+04_rb,6.8995e+04_rb,6.5376e+04_rb/)\n      kbo(:,29,16) = (/ &\n     &8.3285e+04_rb,7.8510e+04_rb,7.4071e+04_rb,6.9957e+04_rb,6.6188e+04_rb/)\n      kbo(:,30,16) = (/ &\n     &8.4346e+04_rb,7.9371e+04_rb,7.4777e+04_rb,7.0557e+04_rb,6.6673e+04_rb/)\n      kbo(:,31,16) = (/ &\n     &8.4928e+04_rb,7.9835e+04_rb,7.5096e+04_rb,7.0806e+04_rb,6.6861e+04_rb/)\n      kbo(:,32,16) = (/ &\n     &8.5101e+04_rb,7.9916e+04_rb,7.5117e+04_rb,7.0792e+04_rb,6.6791e+04_rb/)\n      kbo(:,33,16) = (/ &\n     &8.4949e+04_rb,7.9717e+04_rb,7.4898e+04_rb,7.0557e+04_rb,6.6529e+04_rb/)\n      kbo(:,34,16) = (/ &\n     &8.4743e+04_rb,7.9470e+04_rb,7.4656e+04_rb,7.0309e+04_rb,6.6256e+04_rb/)\n      kbo(:,35,16) = (/ &\n     &8.4858e+04_rb,7.9542e+04_rb,7.4709e+04_rb,7.0325e+04_rb,6.6240e+04_rb/)\n      kbo(:,36,16) = (/ &\n     &8.5440e+04_rb,8.0039e+04_rb,7.5130e+04_rb,7.0697e+04_rb,6.6564e+04_rb/)\n      kbo(:,37,16) = (/ &\n     &8.6760e+04_rb,8.1217e+04_rb,7.6179e+04_rb,7.1644e+04_rb,6.7431e+04_rb/)\n      kbo(:,38,16) = (/ &\n     &8.8049e+04_rb,8.2388e+04_rb,7.7214e+04_rb,7.2579e+04_rb,6.8294e+04_rb/)\n      kbo(:,39,16) = (/ &\n     &8.9280e+04_rb,8.3525e+04_rb,7.8218e+04_rb,7.3474e+04_rb,6.9111e+04_rb/)\n      kbo(:,40,16) = (/ &\n     &9.1121e+04_rb,8.5172e+04_rb,7.9710e+04_rb,7.4807e+04_rb,7.0344e+04_rb/)\n      kbo(:,41,16) = (/ &\n     &9.3033e+04_rb,8.6893e+04_rb,8.1281e+04_rb,7.6203e+04_rb,7.1626e+04_rb/)\n      kbo(:,42,16) = (/ &\n     &9.4965e+04_rb,8.8622e+04_rb,8.0415e+04_rb,7.7606e+04_rb,7.2910e+04_rb/)\n      kbo(:,43,16) = (/ &\n     &9.7303e+04_rb,9.0720e+04_rb,8.4775e+04_rb,7.9330e+04_rb,7.4454e+04_rb/)\n      kbo(:,44,16) = (/ &\n     &9.9859e+04_rb,9.3029e+04_rb,8.6867e+04_rb,8.1230e+04_rb,7.6153e+04_rb/)\n      kbo(:,45,16) = (/ &\n     &1.0249e+05_rb,9.5410e+04_rb,8.8999e+04_rb,8.3177e+04_rb,7.7890e+04_rb/)\n      kbo(:,46,16) = (/ &\n     &1.0536e+05_rb,9.7993e+04_rb,9.1330e+04_rb,8.5316e+04_rb,7.9796e+04_rb/)\n      kbo(:,47,16) = (/ &\n     &1.0871e+05_rb,1.0095e+05_rb,9.4014e+04_rb,8.7743e+04_rb,8.2024e+04_rb/)\n      kbo(:,48,16) = (/ &\n     &1.1228e+05_rb,1.0405e+05_rb,9.6823e+04_rb,9.0264e+04_rb,8.4322e+04_rb/)\n      kbo(:,49,16) = (/ &\n     &1.1602e+05_rb,1.0727e+05_rb,9.9709e+04_rb,9.2873e+04_rb,8.6711e+04_rb/)\n      kbo(:,50,16) = (/ &\n     &1.1975e+05_rb,1.1051e+05_rb,1.0253e+05_rb,9.5425e+04_rb,8.8999e+04_rb/)\n      kbo(:,51,16) = (/ &\n     &1.2354e+05_rb,1.1380e+05_rb,1.0536e+05_rb,9.7987e+04_rb,9.1299e+04_rb/)\n      kbo(:,52,16) = (/ &\n     &1.2745e+05_rb,1.1723e+05_rb,1.0833e+05_rb,1.0062e+05_rb,9.3694e+04_rb/)\n      kbo(:,53,16) = (/ &\n     &1.3160e+05_rb,1.2088e+05_rb,1.1148e+05_rb,1.0337e+05_rb,9.6183e+04_rb/)\n      kbo(:,54,16) = (/ &\n     &1.3555e+05_rb,1.2436e+05_rb,1.1452e+05_rb,1.0598e+05_rb,9.8537e+04_rb/)\n      kbo(:,55,16) = (/ &\n     &1.3946e+05_rb,1.2781e+05_rb,1.1754e+05_rb,1.0859e+05_rb,1.0085e+05_rb/)\n      kbo(:,56,16) = (/ &\n     &1.4362e+05_rb,1.3143e+05_rb,1.2072e+05_rb,1.1136e+05_rb,1.0326e+05_rb/)\n      kbo(:,57,16) = (/ &\n     &1.4797e+05_rb,1.3519e+05_rb,1.2403e+05_rb,1.1423e+05_rb,1.0573e+05_rb/)\n      kbo(:,58,16) = (/ &\n     &1.5241e+05_rb,1.3886e+05_rb,1.2729e+05_rb,1.1707e+05_rb,1.0818e+05_rb/)\n      kbo(:,59,16) = (/ &\n     &1.5431e+05_rb,1.4041e+05_rb,1.2862e+05_rb,1.1825e+05_rb,1.0919e+05_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &2.7075e-06_rb,2.2609e-06_rb,1.5633e-06_rb,8.7484e-07_rb,5.5470e-07_rb,4.8456e-07_rb, &\n     &4.7463e-07_rb,4.6154e-07_rb,4.4425e-07_rb,4.2960e-07_rb,4.2626e-07_rb,4.1715e-07_rb, &\n     &4.2607e-07_rb,3.6616e-07_rb,2.6366e-07_rb,2.6029e-07_rb/)\n      forrefo(2,:) = (/ &\n     &2.6759e-06_rb,2.2237e-06_rb,1.4466e-06_rb,9.3032e-07_rb,6.4927e-07_rb,5.4809e-07_rb, &\n     &4.9504e-07_rb,4.6305e-07_rb,4.4873e-07_rb,4.2146e-07_rb,4.2176e-07_rb,4.2812e-07_rb, &\n     &4.0529e-07_rb,4.0969e-07_rb,2.9442e-07_rb,2.6821e-07_rb/)\n      forrefo(3,:) = (/ &\n     &2.6608e-06_rb,2.1140e-06_rb,1.4838e-06_rb,9.2083e-07_rb,6.3350e-07_rb,5.7195e-07_rb, &\n     &6.2253e-07_rb,5.1783e-07_rb,4.4749e-07_rb,4.3261e-07_rb,4.2553e-07_rb,4.2175e-07_rb, &\n     &4.1085e-07_rb,4.0358e-07_rb,3.5340e-07_rb,2.7191e-07_rb/)\n      forrefo(4,:) = (/ &\n     &2.6412e-06_rb,1.9814e-06_rb,1.2672e-06_rb,8.1129e-07_rb,7.1447e-07_rb,7.5026e-07_rb, &\n     &7.4386e-07_rb,7.2759e-07_rb,7.3583e-07_rb,7.6493e-07_rb,8.8959e-07_rb,7.5534e-07_rb, &\n     &5.3734e-07_rb,4.5572e-07_rb,4.1676e-07_rb,3.6198e-07_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 4.67262e-03_rb, 3.95211e-03_rb, 3.34270e-03_rb, 2.82726e-03_rb, 2.39130e-03_rb, &\n     & 2.02256e-03_rb, 1.71069e-03_rb, 1.44690e-03_rb, 1.22379e-03_rb, 1.03508e-03_rb/)\n      selfrefo(:, 2) = (/ &\n     & 4.42593e-03_rb, 3.73338e-03_rb, 3.14920e-03_rb, 2.65643e-03_rb, 2.24076e-03_rb, &\n     & 1.89014e-03_rb, 1.59438e-03_rb, 1.34490e-03_rb, 1.13446e-03_rb, 9.56943e-04_rb/)\n      selfrefo(:, 3) = (/ &\n     & 3.96072e-03_rb, 3.33789e-03_rb, 2.81300e-03_rb, 2.37065e-03_rb, 1.99786e-03_rb, &\n     & 1.68369e-03_rb, 1.41893e-03_rb, 1.19580e-03_rb, 1.00776e-03_rb, 8.49286e-04_rb/)\n      selfrefo(:, 4) = (/ &\n     & 3.71833e-03_rb, 3.10030e-03_rb, 2.58500e-03_rb, 2.15535e-03_rb, 1.79711e-03_rb, &\n     & 1.49841e-03_rb, 1.24936e-03_rb, 1.04170e-03_rb, 8.68558e-04_rb, 7.24195e-04_rb/)\n      selfrefo(:, 5) = (/ &\n     & 3.55755e-03_rb, 2.95355e-03_rb, 2.45210e-03_rb, 2.03578e-03_rb, 1.69015e-03_rb, &\n     & 1.40320e-03_rb, 1.16497e-03_rb, 9.67180e-04_rb, 8.02973e-04_rb, 6.66646e-04_rb/)\n      selfrefo(:, 6) = (/ &\n     & 3.47601e-03_rb, 2.88628e-03_rb, 2.39660e-03_rb, 1.99000e-03_rb, 1.65238e-03_rb, &\n     & 1.37204e-03_rb, 1.13927e-03_rb, 9.45980e-04_rb, 7.85487e-04_rb, 6.52224e-04_rb/)\n      selfrefo(:, 7) = (/ &\n     & 3.44479e-03_rb, 2.86224e-03_rb, 2.37820e-03_rb, 1.97602e-03_rb, 1.64185e-03_rb, &\n     & 1.36420e-03_rb, 1.13350e-03_rb, 9.41810e-04_rb, 7.82539e-04_rb, 6.50204e-04_rb/)\n      selfrefo(:, 8) = (/ &\n     & 3.40154e-03_rb, 2.82953e-03_rb, 2.35370e-03_rb, 1.95789e-03_rb, 1.62864e-03_rb, &\n     & 1.35476e-03_rb, 1.12694e-03_rb, 9.37430e-04_rb, 7.79788e-04_rb, 6.48655e-04_rb/)\n      selfrefo(:, 9) = (/ &\n     & 3.39380e-03_rb, 2.82288e-03_rb, 2.34800e-03_rb, 1.95301e-03_rb, 1.62446e-03_rb, &\n     & 1.35119e-03_rb, 1.12389e-03_rb, 9.34820e-04_rb, 7.77560e-04_rb, 6.46755e-04_rb/)\n      selfrefo(:,10) = (/ &\n     & 3.37185e-03_rb, 2.80654e-03_rb, 2.33600e-03_rb, 1.94435e-03_rb, 1.61837e-03_rb, &\n     & 1.34704e-03_rb, 1.12120e-03_rb, 9.33220e-04_rb, 7.76759e-04_rb, 6.46530e-04_rb/)\n      selfrefo(:,11) = (/ &\n     & 3.37924e-03_rb, 2.81172e-03_rb, 2.33950e-03_rb, 1.94659e-03_rb, 1.61967e-03_rb, &\n     & 1.34765e-03_rb, 1.12132e-03_rb, 9.33000e-04_rb, 7.76306e-04_rb, 6.45930e-04_rb/)\n      selfrefo(:,12) = (/ &\n     & 3.39658e-03_rb, 2.82289e-03_rb, 2.34610e-03_rb, 1.94984e-03_rb, 1.62051e-03_rb, &\n     & 1.34680e-03_rb, 1.11933e-03_rb, 9.30270e-04_rb, 7.73146e-04_rb, 6.42561e-04_rb/)\n      selfrefo(:,13) = (/ &\n     & 3.36070e-03_rb, 2.79913e-03_rb, 2.33140e-03_rb, 1.94183e-03_rb, 1.61735e-03_rb, &\n     & 1.34709e-03_rb, 1.12199e-03_rb, 9.34510e-04_rb, 7.78354e-04_rb, 6.48292e-04_rb/)\n      selfrefo(:,14) = (/ &\n     & 3.40428e-03_rb, 2.81994e-03_rb, 2.33590e-03_rb, 1.93495e-03_rb, 1.60282e-03_rb, &\n     & 1.32770e-03_rb, 1.09980e-03_rb, 9.11020e-04_rb, 7.54645e-04_rb, 6.25111e-04_rb/)\n      selfrefo(:,15) = (/ &\n     & 3.27075e-03_rb, 2.70783e-03_rb, 2.24180e-03_rb, 1.85597e-03_rb, 1.53655e-03_rb, &\n     & 1.27210e-03_rb, 1.05317e-03_rb, 8.71910e-04_rb, 7.21849e-04_rb, 5.97615e-04_rb/)\n      selfrefo(:,16) = (/ &\n     & 3.23123e-03_rb, 2.67891e-03_rb, 2.22100e-03_rb, 1.84136e-03_rb, 1.52661e-03_rb, &\n     & 1.26567e-03_rb, 1.04932e-03_rb, 8.69960e-04_rb, 7.21256e-04_rb, 5.97970e-04_rb/)\n\n      end subroutine lw_kgb14\n\n! **************************************************************************\n      subroutine lw_kgb15\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg15, only : fracrefao, kao, kao_mn2, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level : P = 1053. mb, T = 294.2 K\n      fracrefao(:, 1) = (/ &\n     &  1.0689e-01_rb,1.1563e-01_rb,1.2447e-01_rb,1.2921e-01_rb,1.2840e-01_rb,1.2113e-01_rb, &\n     &  1.0643e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 2) = (/ &\n     &  1.0782e-01_rb,1.1637e-01_rb,1.2290e-01_rb,1.2911e-01_rb,1.2841e-01_rb,1.2113e-01_rb, &\n     &  1.0643e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 3) = (/ &\n     &  1.0858e-01_rb,1.1860e-01_rb,1.2237e-01_rb,1.2665e-01_rb,1.2841e-01_rb,1.2111e-01_rb, &\n     &  1.0642e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 4) = (/ &\n     &  1.1022e-01_rb,1.1965e-01_rb,1.2334e-01_rb,1.2383e-01_rb,1.2761e-01_rb,1.2109e-01_rb, &\n     &  1.0642e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 5) = (/ &\n     &  1.1342e-01_rb,1.2069e-01_rb,1.2360e-01_rb,1.2447e-01_rb,1.2340e-01_rb,1.2020e-01_rb, &\n     &  1.0639e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 6) = (/ &\n     &  1.1771e-01_rb,1.2280e-01_rb,1.2177e-01_rb,1.2672e-01_rb,1.2398e-01_rb,1.1787e-01_rb, &\n     &  1.0131e-01_rb,8.4987e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 7) = (/ &\n     &  1.2320e-01_rb,1.2491e-01_rb,1.2001e-01_rb,1.2936e-01_rb,1.2653e-01_rb,1.1929e-01_rb, &\n     &  9.8955e-02_rb,7.4887e-02_rb,6.0142e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 8) = (/ &\n     &  1.3105e-01_rb,1.2563e-01_rb,1.3055e-01_rb,1.2854e-01_rb,1.3402e-01_rb,1.1571e-01_rb, &\n     &  9.4876e-02_rb,6.0459e-02_rb,5.6457e-02_rb,6.6798e-03_rb,5.5293e-03_rb,4.3700e-03_rb, &\n     &  3.2061e-03_rb,2.0476e-03_rb,7.7366e-04_rb,1.0897e-04_rb/)\n      fracrefao(:, 9) = (/ &\n     &  1.1375e-01_rb,1.2090e-01_rb,1.2348e-01_rb,1.2458e-01_rb,1.2406e-01_rb,1.1921e-01_rb, &\n     &  1.0802e-01_rb,8.6613e-02_rb,5.8125e-02_rb,6.2984e-03_rb,5.2359e-03_rb,4.0641e-03_rb, &\n     &  2.9379e-03_rb,1.9001e-03_rb,7.2646e-04_rb,1.0553e-04_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &3.4242e-02_rb,1.7071e-01_rb,2.6138e-01_rb,3.1721e-01_rb,3.2432e-01_rb,2.6831e-01_rb, &\n     &2.0528e-01_rb,1.1088e-01_rb,5.8968e-01_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &3.3652e-02_rb,1.6779e-01_rb,2.5725e-01_rb,3.0829e-01_rb,3.1520e-01_rb,2.6815e-01_rb, &\n     &2.0103e-01_rb,1.1213e-01_rb,5.6496e-01_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &3.2936e-02_rb,1.6580e-01_rb,2.5340e-01_rb,3.0468e-01_rb,3.0583e-01_rb,2.6658e-01_rb, &\n     &1.9781e-01_rb,1.1388e-01_rb,5.5053e-01_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &3.2004e-02_rb,1.6475e-01_rb,2.5029e-01_rb,3.0171e-01_rb,3.0308e-01_rb,2.6842e-01_rb, &\n     &1.9857e-01_rb,1.1861e-01_rb,5.4961e-01_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &3.0990e-02_rb,1.6410e-01_rb,2.4670e-01_rb,2.9476e-01_rb,3.0044e-01_rb,2.7387e-01_rb, &\n     &1.9493e-01_rb,1.2451e-01_rb,5.3996e-01_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &3.0564e-02_rb,1.4940e-01_rb,2.2694e-01_rb,2.6721e-01_rb,2.6456e-01_rb,2.1891e-01_rb, &\n     &1.6459e-01_rb,9.1113e-02_rb,4.6587e-01_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &2.9826e-02_rb,1.4880e-01_rb,2.2345e-01_rb,2.6474e-01_rb,2.5889e-01_rb,2.2136e-01_rb, &\n     &1.6243e-01_rb,9.1934e-02_rb,4.6056e-01_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &2.9292e-02_rb,1.4800e-01_rb,2.2058e-01_rb,2.6235e-01_rb,2.5684e-01_rb,2.2295e-01_rb, &\n     &1.6276e-01_rb,9.5842e-02_rb,4.5687e-01_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &2.8631e-02_rb,1.4795e-01_rb,2.1809e-01_rb,2.5690e-01_rb,2.5387e-01_rb,2.2588e-01_rb, &\n     &1.6201e-01_rb,9.9403e-02_rb,4.5029e-01_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &2.7916e-02_rb,1.4649e-01_rb,2.1539e-01_rb,2.5025e-01_rb,2.5060e-01_rb,2.2852e-01_rb, &\n     &1.6118e-01_rb,1.0330e-01_rb,4.4510e-01_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &2.7060e-02_rb,1.3249e-01_rb,1.9563e-01_rb,2.2645e-01_rb,2.1616e-01_rb,1.7969e-01_rb, &\n     &1.3284e-01_rb,7.4965e-02_rb,3.7244e-01_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &2.6723e-02_rb,1.3208e-01_rb,1.9386e-01_rb,2.2490e-01_rb,2.1534e-01_rb,1.8332e-01_rb, &\n     &1.3372e-01_rb,7.6721e-02_rb,3.7364e-01_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &2.6384e-02_rb,1.3168e-01_rb,1.9203e-01_rb,2.2240e-01_rb,2.1507e-01_rb,1.8752e-01_rb, &\n     &1.3386e-01_rb,7.9482e-02_rb,3.7891e-01_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &2.5689e-02_rb,1.3020e-01_rb,1.8980e-01_rb,2.1868e-01_rb,2.1152e-01_rb,1.8912e-01_rb, &\n     &1.3349e-01_rb,8.2411e-02_rb,3.7480e-01_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &2.4939e-02_rb,1.2901e-01_rb,1.8570e-01_rb,2.1295e-01_rb,2.0942e-01_rb,1.8777e-01_rb, &\n     &1.3349e-01_rb,8.5566e-02_rb,3.6973e-01_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &2.4242e-02_rb,1.1699e-01_rb,1.6835e-01_rb,1.9257e-01_rb,1.7909e-01_rb,1.4906e-01_rb, &\n     &1.0978e-01_rb,6.3298e-02_rb,3.0317e-01_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &2.3651e-02_rb,1.1679e-01_rb,1.6721e-01_rb,1.9147e-01_rb,1.7987e-01_rb,1.5405e-01_rb, &\n     &1.1069e-01_rb,6.4435e-02_rb,3.0873e-01_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &2.2665e-02_rb,1.1583e-01_rb,1.6543e-01_rb,1.8831e-01_rb,1.8066e-01_rb,1.5730e-01_rb, &\n     &1.1107e-01_rb,6.6643e-02_rb,3.1154e-01_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &2.1814e-02_rb,1.1462e-01_rb,1.6249e-01_rb,1.8491e-01_rb,1.7772e-01_rb,1.5750e-01_rb, &\n     &1.1124e-01_rb,6.9078e-02_rb,3.1214e-01_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &2.1129e-02_rb,1.1306e-01_rb,1.5907e-01_rb,1.7919e-01_rb,1.7465e-01_rb,1.5650e-01_rb, &\n     &1.1133e-01_rb,7.1551e-02_rb,3.0812e-01_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &2.0560e-02_rb,1.0249e-01_rb,1.4447e-01_rb,1.6390e-01_rb,1.4827e-01_rb,1.2487e-01_rb, &\n     &9.0642e-02_rb,5.3488e-02_rb,2.4754e-01_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &1.9799e-02_rb,1.0201e-01_rb,1.4357e-01_rb,1.6295e-01_rb,1.5070e-01_rb,1.2910e-01_rb, &\n     &9.1763e-02_rb,5.4394e-02_rb,2.5641e-01_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &1.9183e-02_rb,1.0090e-01_rb,1.4151e-01_rb,1.5954e-01_rb,1.5069e-01_rb,1.3095e-01_rb, &\n     &9.2718e-02_rb,5.6321e-02_rb,2.5912e-01_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &1.8512e-02_rb,9.9552e-02_rb,1.3834e-01_rb,1.5497e-01_rb,1.4881e-01_rb,1.3077e-01_rb, &\n     &9.3091e-02_rb,5.8675e-02_rb,2.5974e-01_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &1.7786e-02_rb,9.7242e-02_rb,1.3532e-01_rb,1.5076e-01_rb,1.4713e-01_rb,1.3062e-01_rb, &\n     &9.3284e-02_rb,6.0479e-02_rb,2.5760e-01_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &1.7311e-02_rb,8.8922e-02_rb,1.2346e-01_rb,1.3907e-01_rb,1.2282e-01_rb,1.0362e-01_rb, &\n     &7.4353e-02_rb,4.4575e-02_rb,2.0465e-01_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &1.6759e-02_rb,8.7881e-02_rb,1.2272e-01_rb,1.3747e-01_rb,1.2636e-01_rb,1.0747e-01_rb, &\n     &7.5966e-02_rb,4.6065e-02_rb,2.1117e-01_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &1.6118e-02_rb,8.6674e-02_rb,1.1960e-01_rb,1.3378e-01_rb,1.2578e-01_rb,1.0890e-01_rb, &\n     &7.7032e-02_rb,4.7370e-02_rb,2.1535e-01_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &1.5604e-02_rb,8.5004e-02_rb,1.1715e-01_rb,1.3060e-01_rb,1.2464e-01_rb,1.0936e-01_rb, &\n     &7.8068e-02_rb,4.9979e-02_rb,2.1513e-01_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &1.5010e-02_rb,8.2612e-02_rb,1.1457e-01_rb,1.2694e-01_rb,1.2379e-01_rb,1.0886e-01_rb, &\n     &7.8577e-02_rb,5.1634e-02_rb,2.1475e-01_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &1.4769e-02_rb,7.6038e-02_rb,1.0565e-01_rb,1.1761e-01_rb,1.0346e-01_rb,8.6214e-02_rb, &\n     &6.1132e-02_rb,3.6999e-02_rb,1.7055e-01_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &1.4212e-02_rb,7.5191e-02_rb,1.0412e-01_rb,1.1565e-01_rb,1.0591e-01_rb,8.9750e-02_rb, &\n     &6.2857e-02_rb,3.8703e-02_rb,1.7619e-01_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &1.3756e-02_rb,7.4145e-02_rb,1.0177e-01_rb,1.1260e-01_rb,1.0586e-01_rb,9.1675e-02_rb, &\n     &6.4846e-02_rb,4.0069e-02_rb,1.8020e-01_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &1.3258e-02_rb,7.2484e-02_rb,9.9439e-02_rb,1.0966e-01_rb,1.0522e-01_rb,9.2290e-02_rb, &\n     &6.5394e-02_rb,4.2345e-02_rb,1.8038e-01_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &1.2766e-02_rb,7.0689e-02_rb,9.6896e-02_rb,1.0710e-01_rb,1.0411e-01_rb,9.1721e-02_rb, &\n     &6.6375e-02_rb,4.4166e-02_rb,1.8031e-01_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &1.2774e-02_rb,6.5331e-02_rb,9.0505e-02_rb,1.0027e-01_rb,8.8579e-02_rb,7.2873e-02_rb, &\n     &5.1439e-02_rb,3.0866e-02_rb,1.4484e-01_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &1.2386e-02_rb,6.4820e-02_rb,8.9216e-02_rb,9.8573e-02_rb,9.0271e-02_rb,7.6134e-02_rb, &\n     &5.3003e-02_rb,3.2488e-02_rb,1.4948e-01_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &1.1934e-02_rb,6.3787e-02_rb,8.6950e-02_rb,9.5946e-02_rb,9.0138e-02_rb,7.8085e-02_rb, &\n     &5.5347e-02_rb,3.4134e-02_rb,1.5219e-01_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &1.1544e-02_rb,6.2588e-02_rb,8.5063e-02_rb,9.3318e-02_rb,8.9759e-02_rb,7.8769e-02_rb, &\n     &5.5958e-02_rb,3.6086e-02_rb,1.5324e-01_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &1.1084e-02_rb,6.0720e-02_rb,8.2631e-02_rb,9.1723e-02_rb,8.9027e-02_rb,7.8819e-02_rb, &\n     &5.6823e-02_rb,3.7768e-02_rb,1.5367e-01_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &1.1061e-02_rb,5.5946e-02_rb,7.7372e-02_rb,8.4825e-02_rb,7.4671e-02_rb,6.0881e-02_rb, &\n     &4.3320e-02_rb,2.5693e-02_rb,1.2149e-01_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &1.0663e-02_rb,5.5517e-02_rb,7.6169e-02_rb,8.3555e-02_rb,7.6380e-02_rb,6.3832e-02_rb, &\n     &4.4653e-02_rb,2.7044e-02_rb,1.2592e-01_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &1.0298e-02_rb,5.4609e-02_rb,7.4061e-02_rb,8.1380e-02_rb,7.6283e-02_rb,6.5805e-02_rb, &\n     &4.6544e-02_rb,2.8652e-02_rb,1.2784e-01_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &9.9642e-03_rb,5.3590e-02_rb,7.2457e-02_rb,7.9291e-02_rb,7.6297e-02_rb,6.6701e-02_rb, &\n     &4.7215e-02_rb,3.0429e-02_rb,1.2985e-01_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &9.5838e-03_rb,5.1774e-02_rb,7.0525e-02_rb,7.7952e-02_rb,7.5761e-02_rb,6.7035e-02_rb, &\n     &4.8099e-02_rb,3.1771e-02_rb,1.2981e-01_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &9.5065e-03_rb,4.7743e-02_rb,6.5906e-02_rb,7.1569e-02_rb,6.3088e-02_rb,5.1008e-02_rb, &\n     &3.6270e-02_rb,2.1647e-02_rb,1.0151e-01_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &9.1696e-03_rb,4.7417e-02_rb,6.4599e-02_rb,7.0371e-02_rb,6.4348e-02_rb,5.3431e-02_rb, &\n     &3.7744e-02_rb,2.2620e-02_rb,1.0603e-01_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &8.8668e-03_rb,4.6740e-02_rb,6.2818e-02_rb,6.8749e-02_rb,6.4307e-02_rb,5.5442e-02_rb, &\n     &3.9323e-02_rb,2.3889e-02_rb,1.0716e-01_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &8.5593e-03_rb,4.5273e-02_rb,6.1475e-02_rb,6.7236e-02_rb,6.4539e-02_rb,5.6295e-02_rb, &\n     &4.0023e-02_rb,2.5561e-02_rb,1.0908e-01_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &8.2765e-03_rb,4.3918e-02_rb,5.9902e-02_rb,6.5936e-02_rb,6.4146e-02_rb,5.6753e-02_rb, &\n     &4.0609e-02_rb,2.6739e-02_rb,1.0938e-01_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &8.0135e-03_rb,4.0574e-02_rb,5.5523e-02_rb,5.9842e-02_rb,5.3590e-02_rb,4.3205e-02_rb, &\n     &3.0578e-02_rb,1.8553e-02_rb,8.6419e-02_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &7.7438e-03_rb,4.0051e-02_rb,5.3954e-02_rb,5.8561e-02_rb,5.4366e-02_rb,4.5533e-02_rb, &\n     &3.1980e-02_rb,1.9368e-02_rb,8.9461e-02_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &7.4839e-03_rb,3.9067e-02_rb,5.2580e-02_rb,5.7160e-02_rb,5.4156e-02_rb,4.6927e-02_rb, &\n     &3.3356e-02_rb,2.0535e-02_rb,9.0297e-02_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &7.2468e-03_rb,3.7809e-02_rb,5.1257e-02_rb,5.6080e-02_rb,5.4294e-02_rb,4.7574e-02_rb, &\n     &3.3980e-02_rb,2.1720e-02_rb,9.1828e-02_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &6.9859e-03_rb,3.6737e-02_rb,5.0287e-02_rb,5.5092e-02_rb,5.3946e-02_rb,4.8082e-02_rb, &\n     &3.4738e-02_rb,2.2682e-02_rb,9.1913e-02_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &6.8723e-03_rb,3.4461e-02_rb,4.6618e-02_rb,5.0325e-02_rb,4.5843e-02_rb,3.7154e-02_rb, &\n     &2.6350e-02_rb,1.5945e-02_rb,7.4796e-02_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &6.6342e-03_rb,3.3814e-02_rb,4.5285e-02_rb,4.9258e-02_rb,4.6140e-02_rb,3.8916e-02_rb, &\n     &2.7614e-02_rb,1.6684e-02_rb,7.6431e-02_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &6.4256e-03_rb,3.2718e-02_rb,4.4302e-02_rb,4.8163e-02_rb,4.5963e-02_rb,4.0038e-02_rb, &\n     &2.8672e-02_rb,1.7798e-02_rb,7.6864e-02_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &6.1980e-03_rb,3.1806e-02_rb,4.3232e-02_rb,4.7321e-02_rb,4.6023e-02_rb,4.0771e-02_rb, &\n     &2.9167e-02_rb,1.8567e-02_rb,7.7874e-02_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &5.9663e-03_rb,3.0964e-02_rb,4.2379e-02_rb,4.6375e-02_rb,4.5692e-02_rb,4.1306e-02_rb, &\n     &2.9920e-02_rb,1.9375e-02_rb,7.7903e-02_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &6.1312e-03_rb,2.9682e-02_rb,3.9975e-02_rb,4.3642e-02_rb,4.0252e-02_rb,3.3035e-02_rb, &\n     &2.3558e-02_rb,1.4050e-02_rb,6.6647e-02_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &5.9440e-03_rb,2.8920e-02_rb,3.8788e-02_rb,4.2829e-02_rb,4.0420e-02_rb,3.4105e-02_rb, &\n     &2.4570e-02_rb,1.4699e-02_rb,6.7206e-02_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &5.7437e-03_rb,2.7994e-02_rb,3.7951e-02_rb,4.1862e-02_rb,4.0303e-02_rb,3.5364e-02_rb, &\n     &2.5449e-02_rb,1.5507e-02_rb,6.7644e-02_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &5.5406e-03_rb,2.7263e-02_rb,3.7056e-02_rb,4.0900e-02_rb,3.9818e-02_rb,3.6193e-02_rb, &\n     &2.6077e-02_rb,1.6255e-02_rb,6.7402e-02_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &5.3457e-03_rb,2.6652e-02_rb,3.6336e-02_rb,3.9995e-02_rb,3.9467e-02_rb,3.6352e-02_rb, &\n     &2.6575e-02_rb,1.6998e-02_rb,6.7304e-02_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &4.1184e-02_rb,2.7179e-01_rb,3.3427e-01_rb,3.7214e-01_rb,4.0092e-01_rb,3.9640e-01_rb, &\n     &3.3752e-01_rb,3.1662e-01_rb,7.0395e-01_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &3.9613e-02_rb,2.5448e-01_rb,3.1529e-01_rb,3.6420e-01_rb,3.9285e-01_rb,3.8292e-01_rb, &\n     &3.4622e-01_rb,3.3570e-01_rb,7.0351e-01_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &3.8482e-02_rb,2.4018e-01_rb,3.0435e-01_rb,3.6080e-01_rb,3.8815e-01_rb,3.7286e-01_rb, &\n     &3.5535e-01_rb,3.5400e-01_rb,6.9477e-01_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &3.7848e-02_rb,2.2963e-01_rb,2.9537e-01_rb,3.6193e-01_rb,3.8220e-01_rb,3.7308e-01_rb, &\n     &3.6939e-01_rb,3.6570e-01_rb,6.8368e-01_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &3.7774e-02_rb,2.2394e-01_rb,2.9359e-01_rb,3.5744e-01_rb,3.7874e-01_rb,3.6962e-01_rb, &\n     &3.8607e-01_rb,3.7579e-01_rb,6.9280e-01_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &3.5631e-02_rb,2.2069e-01_rb,2.7258e-01_rb,3.1550e-01_rb,3.3342e-01_rb,3.2657e-01_rb, &\n     &2.8024e-01_rb,2.7588e-01_rb,5.9197e-01_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &3.4562e-02_rb,2.0891e-01_rb,2.6384e-01_rb,3.1412e-01_rb,3.2954e-01_rb,3.2211e-01_rb, &\n     &2.9490e-01_rb,2.9533e-01_rb,5.8323e-01_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &3.3571e-02_rb,1.9802e-01_rb,2.5784e-01_rb,3.1122e-01_rb,3.2677e-01_rb,3.1912e-01_rb, &\n     &3.0590e-01_rb,3.0715e-01_rb,5.7853e-01_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &3.2736e-02_rb,1.9123e-01_rb,2.5333e-01_rb,3.0890e-01_rb,3.2624e-01_rb,3.1676e-01_rb, &\n     &3.1863e-01_rb,3.1850e-01_rb,5.8754e-01_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &3.2264e-02_rb,1.8835e-01_rb,2.5452e-01_rb,3.0891e-01_rb,3.2749e-01_rb,3.1271e-01_rb, &\n     &3.2651e-01_rb,3.2839e-01_rb,5.9068e-01_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &3.1584e-02_rb,1.8152e-01_rb,2.2653e-01_rb,2.6984e-01_rb,2.8266e-01_rb,2.7419e-01_rb, &\n     &2.3718e-01_rb,2.3355e-01_rb,4.9551e-01_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &3.0265e-02_rb,1.7457e-01_rb,2.2109e-01_rb,2.6703e-01_rb,2.7958e-01_rb,2.7087e-01_rb, &\n     &2.4754e-01_rb,2.5014e-01_rb,4.9470e-01_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &2.9150e-02_rb,1.6735e-01_rb,2.1902e-01_rb,2.6391e-01_rb,2.7849e-01_rb,2.6534e-01_rb, &\n     &2.5781e-01_rb,2.6293e-01_rb,4.9430e-01_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &2.8592e-02_rb,1.6364e-01_rb,2.1995e-01_rb,2.6189e-01_rb,2.7866e-01_rb,2.6352e-01_rb, &\n     &2.7044e-01_rb,2.7363e-01_rb,4.9527e-01_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &2.8231e-02_rb,1.6046e-01_rb,2.1887e-01_rb,2.6443e-01_rb,2.7635e-01_rb,2.6884e-01_rb, &\n     &2.7778e-01_rb,2.8066e-01_rb,4.9153e-01_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &2.7586e-02_rb,1.5275e-01_rb,1.9293e-01_rb,2.2899e-01_rb,2.4107e-01_rb,2.3244e-01_rb, &\n     &2.0047e-01_rb,1.9534e-01_rb,4.2244e-01_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &2.6887e-02_rb,1.4829e-01_rb,1.9195e-01_rb,2.2560e-01_rb,2.3907e-01_rb,2.2550e-01_rb, &\n     &2.1032e-01_rb,2.1041e-01_rb,4.2198e-01_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &2.6805e-02_rb,1.4416e-01_rb,1.9016e-01_rb,2.2531e-01_rb,2.3789e-01_rb,2.2485e-01_rb, &\n     &2.1879e-01_rb,2.2259e-01_rb,4.1901e-01_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &2.6734e-02_rb,1.4087e-01_rb,1.9109e-01_rb,2.2675e-01_rb,2.3622e-01_rb,2.2628e-01_rb, &\n     &2.2901e-01_rb,2.3158e-01_rb,4.1030e-01_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &2.6617e-02_rb,1.3796e-01_rb,1.9377e-01_rb,2.2557e-01_rb,2.3342e-01_rb,2.2649e-01_rb, &\n     &2.3523e-01_rb,2.3617e-01_rb,4.1160e-01_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &2.5332e-02_rb,1.2963e-01_rb,1.6655e-01_rb,1.9042e-01_rb,2.0895e-01_rb,1.9510e-01_rb, &\n     &1.6916e-01_rb,1.6222e-01_rb,3.6316e-01_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &2.5181e-02_rb,1.2537e-01_rb,1.6592e-01_rb,1.8998e-01_rb,2.0621e-01_rb,1.9136e-01_rb, &\n     &1.7764e-01_rb,1.7625e-01_rb,3.5695e-01_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &2.4972e-02_rb,1.2219e-01_rb,1.6618e-01_rb,1.9129e-01_rb,2.0217e-01_rb,1.9130e-01_rb, &\n     &1.8535e-01_rb,1.8719e-01_rb,3.4788e-01_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &2.4749e-02_rb,1.2096e-01_rb,1.6848e-01_rb,1.9087e-01_rb,1.9911e-01_rb,1.9130e-01_rb, &\n     &1.9341e-01_rb,1.9372e-01_rb,3.4412e-01_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &2.4660e-02_rb,1.2126e-01_rb,1.7164e-01_rb,1.8946e-01_rb,1.9462e-01_rb,1.9216e-01_rb, &\n     &1.9926e-01_rb,1.9935e-01_rb,3.3902e-01_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &2.3422e-02_rb,1.0907e-01_rb,1.4314e-01_rb,1.6055e-01_rb,1.7919e-01_rb,1.6497e-01_rb, &\n     &1.4423e-01_rb,1.3518e-01_rb,3.0537e-01_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &2.3193e-02_rb,1.0714e-01_rb,1.4280e-01_rb,1.6151e-01_rb,1.7408e-01_rb,1.6236e-01_rb, &\n     &1.4991e-01_rb,1.4676e-01_rb,2.9795e-01_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &2.2992e-02_rb,1.0582e-01_rb,1.4541e-01_rb,1.6228e-01_rb,1.7059e-01_rb,1.6204e-01_rb, &\n     &1.5617e-01_rb,1.5704e-01_rb,2.9013e-01_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &2.2904e-02_rb,1.0595e-01_rb,1.4661e-01_rb,1.6015e-01_rb,1.6718e-01_rb,1.6268e-01_rb, &\n     &1.6254e-01_rb,1.6133e-01_rb,2.8558e-01_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &2.3037e-02_rb,1.0659e-01_rb,1.4720e-01_rb,1.5884e-01_rb,1.6394e-01_rb,1.6537e-01_rb, &\n     &1.6790e-01_rb,1.6640e-01_rb,2.8291e-01_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &2.1778e-02_rb,9.4871e-02_rb,1.2415e-01_rb,1.3737e-01_rb,1.5258e-01_rb,1.4160e-01_rb, &\n     &1.2347e-01_rb,1.1302e-01_rb,2.5408e-01_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &2.1522e-02_rb,9.3423e-02_rb,1.2417e-01_rb,1.3839e-01_rb,1.4741e-01_rb,1.4006e-01_rb, &\n     &1.2799e-01_rb,1.2268e-01_rb,2.4943e-01_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &2.1257e-02_rb,9.3282e-02_rb,1.2533e-01_rb,1.3843e-01_rb,1.4474e-01_rb,1.3911e-01_rb, &\n     &1.3239e-01_rb,1.3095e-01_rb,2.4208e-01_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &2.0841e-02_rb,9.3161e-02_rb,1.2672e-01_rb,1.3698e-01_rb,1.4106e-01_rb,1.4019e-01_rb, &\n     &1.3855e-01_rb,1.3550e-01_rb,2.3874e-01_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &2.0486e-02_rb,9.4079e-02_rb,1.2713e-01_rb,1.3508e-01_rb,1.3852e-01_rb,1.4171e-01_rb, &\n     &1.4291e-01_rb,1.3980e-01_rb,2.3641e-01_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &2.0219e-02_rb,8.3245e-02_rb,1.0821e-01_rb,1.1854e-01_rb,1.3123e-01_rb,1.2323e-01_rb, &\n     &1.0617e-01_rb,9.4794e-02_rb,2.1425e-01_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &1.9540e-02_rb,8.2217e-02_rb,1.0811e-01_rb,1.1985e-01_rb,1.2621e-01_rb,1.2208e-01_rb, &\n     &1.0997e-01_rb,1.0316e-01_rb,2.0956e-01_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &1.9115e-02_rb,8.1811e-02_rb,1.0961e-01_rb,1.1959e-01_rb,1.2388e-01_rb,1.2129e-01_rb, &\n     &1.1337e-01_rb,1.1053e-01_rb,2.0624e-01_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &1.8733e-02_rb,8.1851e-02_rb,1.1044e-01_rb,1.1828e-01_rb,1.2090e-01_rb,1.2160e-01_rb, &\n     &1.1850e-01_rb,1.1463e-01_rb,2.0160e-01_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &1.8489e-02_rb,8.3310e-02_rb,1.0940e-01_rb,1.1607e-01_rb,1.1923e-01_rb,1.2205e-01_rb, &\n     &1.2223e-01_rb,1.1845e-01_rb,2.0014e-01_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &1.7934e-02_rb,7.2499e-02_rb,9.3347e-02_rb,1.0259e-01_rb,1.1263e-01_rb,1.0693e-01_rb, &\n     &9.0284e-02_rb,7.9546e-02_rb,1.8180e-01_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &1.7445e-02_rb,7.1879e-02_rb,9.3312e-02_rb,1.0334e-01_rb,1.0867e-01_rb,1.0654e-01_rb, &\n     &9.3871e-02_rb,8.7011e-02_rb,1.7650e-01_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &1.7054e-02_rb,7.1164e-02_rb,9.4558e-02_rb,1.0223e-01_rb,1.0632e-01_rb,1.0559e-01_rb, &\n     &9.7124e-02_rb,9.3354e-02_rb,1.7444e-01_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &1.6642e-02_rb,7.2006e-02_rb,9.4764e-02_rb,1.0087e-01_rb,1.0340e-01_rb,1.0507e-01_rb, &\n     &1.0155e-01_rb,9.7191e-02_rb,1.7012e-01_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &1.6243e-02_rb,7.2866e-02_rb,9.2285e-02_rb,9.9097e-02_rb,1.0185e-01_rb,1.0516e-01_rb, &\n     &1.0490e-01_rb,1.0097e-01_rb,1.7041e-01_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &1.5979e-02_rb,6.3035e-02_rb,8.0318e-02_rb,8.8320e-02_rb,9.6214e-02_rb,9.2269e-02_rb, &\n     &7.7109e-02_rb,6.7263e-02_rb,1.5451e-01_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &1.5470e-02_rb,6.2313e-02_rb,8.0559e-02_rb,8.8699e-02_rb,9.3120e-02_rb,9.2382e-02_rb, &\n     &7.9788e-02_rb,7.3810e-02_rb,1.5001e-01_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &1.4968e-02_rb,6.2321e-02_rb,8.1515e-02_rb,8.7265e-02_rb,9.0898e-02_rb,9.1273e-02_rb, &\n     &8.3098e-02_rb,7.9462e-02_rb,1.4837e-01_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &1.4648e-02_rb,6.3201e-02_rb,8.0459e-02_rb,8.6353e-02_rb,8.8769e-02_rb,9.0582e-02_rb, &\n     &8.6861e-02_rb,8.2886e-02_rb,1.4494e-01_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &1.4327e-02_rb,6.4058e-02_rb,7.8092e-02_rb,8.4556e-02_rb,8.7537e-02_rb,9.0662e-02_rb, &\n     &8.9892e-02_rb,8.5887e-02_rb,1.4505e-01_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &1.3861e-02_rb,5.4196e-02_rb,6.8747e-02_rb,7.5984e-02_rb,8.0767e-02_rb,7.9801e-02_rb, &\n     &6.6830e-02_rb,5.9302e-02_rb,1.2963e-01_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &1.3347e-02_rb,5.4113e-02_rb,6.9722e-02_rb,7.5263e-02_rb,7.8466e-02_rb,7.8575e-02_rb, &\n     &6.9140e-02_rb,6.4556e-02_rb,1.2675e-01_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &1.3016e-02_rb,5.4555e-02_rb,6.9179e-02_rb,7.4613e-02_rb,7.7291e-02_rb,7.7531e-02_rb, &\n     &7.2200e-02_rb,6.9022e-02_rb,1.2482e-01_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &1.2671e-02_rb,5.5408e-02_rb,6.7230e-02_rb,7.3198e-02_rb,7.5526e-02_rb,7.7122e-02_rb, &\n     &7.5177e-02_rb,7.1296e-02_rb,1.2336e-01_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &1.2351e-02_rb,5.6031e-02_rb,6.5093e-02_rb,7.1581e-02_rb,7.4883e-02_rb,7.6822e-02_rb, &\n     &7.7284e-02_rb,7.3771e-02_rb,1.2246e-01_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &1.2126e-02_rb,4.7285e-02_rb,5.9933e-02_rb,6.5129e-02_rb,6.8290e-02_rb,6.7884e-02_rb, &\n     &5.7878e-02_rb,5.1782e-02_rb,1.0839e-01_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &1.1745e-02_rb,4.7398e-02_rb,5.9988e-02_rb,6.4477e-02_rb,6.6821e-02_rb,6.6892e-02_rb, &\n     &6.0270e-02_rb,5.6137e-02_rb,1.0621e-01_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &1.1385e-02_rb,4.8238e-02_rb,5.8218e-02_rb,6.3614e-02_rb,6.5819e-02_rb,6.5904e-02_rb, &\n     &6.2567e-02_rb,5.9036e-02_rb,1.0557e-01_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &1.1087e-02_rb,4.8582e-02_rb,5.6782e-02_rb,6.2244e-02_rb,6.4582e-02_rb,6.5133e-02_rb, &\n     &6.4669e-02_rb,6.1446e-02_rb,1.0435e-01_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &1.0909e-02_rb,4.7898e-02_rb,5.5031e-02_rb,6.0882e-02_rb,6.4057e-02_rb,6.5202e-02_rb, &\n     &6.6350e-02_rb,6.3114e-02_rb,1.0415e-01_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &1.1050e-02_rb,4.2216e-02_rb,5.3216e-02_rb,5.6607e-02_rb,5.8614e-02_rb,5.8762e-02_rb, &\n     &5.1111e-02_rb,4.5278e-02_rb,9.1112e-02_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &1.0650e-02_rb,4.2640e-02_rb,5.2374e-02_rb,5.5676e-02_rb,5.7428e-02_rb,5.7903e-02_rb, &\n     &5.3022e-02_rb,4.8756e-02_rb,9.0299e-02_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &1.0375e-02_rb,4.2997e-02_rb,5.0849e-02_rb,5.4963e-02_rb,5.6516e-02_rb,5.6613e-02_rb, &\n     &5.4398e-02_rb,5.1351e-02_rb,8.9757e-02_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &1.0186e-02_rb,4.2550e-02_rb,4.9650e-02_rb,5.4126e-02_rb,5.6087e-02_rb,5.6100e-02_rb, &\n     &5.5740e-02_rb,5.3111e-02_rb,8.9898e-02_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &9.9803e-03_rb,4.1596e-02_rb,4.8435e-02_rb,5.3214e-02_rb,5.5733e-02_rb,5.6166e-02_rb, &\n     &5.6820e-02_rb,5.4773e-02_rb,8.9718e-02_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &1.0349e-01_rb,2.2333e-01_rb,4.3448e-01_rb,4.7188e-01_rb,4.9049e-01_rb,5.6379e-01_rb, &\n     &6.8188e-01_rb,5.5213e-01_rb,8.7331e-01_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &9.8776e-02_rb,2.3587e-01_rb,4.2090e-01_rb,4.7099e-01_rb,4.8532e-01_rb,5.6756e-01_rb, &\n     &6.8304e-01_rb,5.3972e-01_rb,8.6585e-01_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &9.4379e-02_rb,2.4459e-01_rb,4.0703e-01_rb,4.4771e-01_rb,4.8054e-01_rb,5.8051e-01_rb, &\n     &6.8126e-01_rb,5.2715e-01_rb,8.6189e-01_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &8.9966e-02_rb,2.4911e-01_rb,4.0891e-01_rb,4.3132e-01_rb,4.8073e-01_rb,5.8214e-01_rb, &\n     &6.7058e-01_rb,5.2176e-01_rb,8.6463e-01_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &8.6080e-02_rb,2.4561e-01_rb,4.0823e-01_rb,4.3495e-01_rb,4.8341e-01_rb,5.8583e-01_rb, &\n     &6.6494e-01_rb,5.1295e-01_rb,8.6781e-01_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &9.1121e-02_rb,2.7597e-01_rb,3.6090e-01_rb,3.8864e-01_rb,4.2468e-01_rb,5.0778e-01_rb, &\n     &6.0614e-01_rb,4.7263e-01_rb,7.5147e-01_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &8.6968e-02_rb,2.8112e-01_rb,3.5384e-01_rb,3.7604e-01_rb,4.2522e-01_rb,5.1397e-01_rb, &\n     &5.9893e-01_rb,4.6387e-01_rb,7.5402e-01_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &8.3177e-02_rb,2.8458e-01_rb,3.4657e-01_rb,3.6832e-01_rb,4.2349e-01_rb,5.1886e-01_rb, &\n     &5.9537e-01_rb,4.5576e-01_rb,7.6481e-01_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &7.9593e-02_rb,2.8362e-01_rb,3.4405e-01_rb,3.6602e-01_rb,4.2737e-01_rb,5.2263e-01_rb, &\n     &5.9169e-01_rb,4.4715e-01_rb,7.7154e-01_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &7.6305e-02_rb,2.7901e-01_rb,3.3923e-01_rb,3.6563e-01_rb,4.2905e-01_rb,5.2631e-01_rb, &\n     &5.9188e-01_rb,4.4184e-01_rb,7.8075e-01_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &8.1532e-02_rb,2.6557e-01_rb,3.0691e-01_rb,3.2639e-01_rb,3.6998e-01_rb,4.4624e-01_rb, &\n     &5.2995e-01_rb,4.1015e-01_rb,6.5448e-01_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &7.8061e-02_rb,2.5705e-01_rb,3.0144e-01_rb,3.1922e-01_rb,3.7157e-01_rb,4.5007e-01_rb, &\n     &5.2671e-01_rb,4.0238e-01_rb,6.6049e-01_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &7.4871e-02_rb,2.4964e-01_rb,2.9703e-01_rb,3.1658e-01_rb,3.7272e-01_rb,4.5628e-01_rb, &\n     &5.2424e-01_rb,3.9540e-01_rb,6.6589e-01_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &7.1934e-02_rb,2.4252e-01_rb,2.8855e-01_rb,3.1667e-01_rb,3.7723e-01_rb,4.6275e-01_rb, &\n     &5.1485e-01_rb,3.8931e-01_rb,6.7492e-01_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &6.9067e-02_rb,2.3451e-01_rb,2.8461e-01_rb,3.1625e-01_rb,3.8425e-01_rb,4.6414e-01_rb, &\n     &5.0872e-01_rb,3.8671e-01_rb,6.9966e-01_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &7.4166e-02_rb,2.1898e-01_rb,2.6310e-01_rb,2.7673e-01_rb,3.2117e-01_rb,3.8906e-01_rb, &\n     &4.5677e-01_rb,3.5535e-01_rb,5.6605e-01_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &7.1027e-02_rb,2.1158e-01_rb,2.5634e-01_rb,2.7577e-01_rb,3.2463e-01_rb,3.9708e-01_rb, &\n     &4.5460e-01_rb,3.5060e-01_rb,5.7431e-01_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &6.8100e-02_rb,2.0832e-01_rb,2.5127e-01_rb,2.7640e-01_rb,3.2722e-01_rb,4.0091e-01_rb, &\n     &4.5112e-01_rb,3.4506e-01_rb,5.8564e-01_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &6.5366e-02_rb,2.0407e-01_rb,2.4599e-01_rb,2.7530e-01_rb,3.3554e-01_rb,4.0555e-01_rb, &\n     &4.3614e-01_rb,3.4106e-01_rb,6.0722e-01_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &6.2828e-02_rb,2.0183e-01_rb,2.4016e-01_rb,2.8032e-01_rb,3.4415e-01_rb,4.1256e-01_rb, &\n     &4.2811e-01_rb,3.3888e-01_rb,6.2274e-01_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &6.8085e-02_rb,1.8443e-01_rb,2.2193e-01_rb,2.4125e-01_rb,2.7858e-01_rb,3.3878e-01_rb, &\n     &3.9224e-01_rb,3.0775e-01_rb,4.8825e-01_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &6.5024e-02_rb,1.8062e-01_rb,2.1594e-01_rb,2.3959e-01_rb,2.8255e-01_rb,3.4709e-01_rb, &\n     &3.8693e-01_rb,3.0387e-01_rb,4.9773e-01_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &6.2309e-02_rb,1.7709e-01_rb,2.1233e-01_rb,2.4099e-01_rb,2.9052e-01_rb,3.5084e-01_rb, &\n     &3.7550e-01_rb,2.9937e-01_rb,5.1983e-01_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &6.0049e-02_rb,1.7340e-01_rb,2.0891e-01_rb,2.4567e-01_rb,2.9963e-01_rb,3.5573e-01_rb, &\n     &3.6423e-01_rb,2.9642e-01_rb,5.3792e-01_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &5.7860e-02_rb,1.7101e-01_rb,2.0517e-01_rb,2.5155e-01_rb,3.0986e-01_rb,3.5542e-01_rb, &\n     &3.5482e-01_rb,2.9214e-01_rb,5.5424e-01_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &6.1553e-02_rb,1.6486e-01_rb,1.8851e-01_rb,2.1013e-01_rb,2.4069e-01_rb,2.9423e-01_rb, &\n     &3.2998e-01_rb,2.6499e-01_rb,4.1520e-01_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &5.8962e-02_rb,1.6161e-01_rb,1.8469e-01_rb,2.1043e-01_rb,2.4572e-01_rb,3.0023e-01_rb, &\n     &3.2384e-01_rb,2.6279e-01_rb,4.2954e-01_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &5.6865e-02_rb,1.5845e-01_rb,1.8137e-01_rb,2.1320e-01_rb,2.5567e-01_rb,3.0422e-01_rb, &\n     &3.1399e-01_rb,2.5823e-01_rb,4.4811e-01_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &5.4727e-02_rb,1.5470e-01_rb,1.8033e-01_rb,2.2018e-01_rb,2.6466e-01_rb,3.0350e-01_rb, &\n     &3.0450e-01_rb,2.5479e-01_rb,4.6359e-01_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &5.2654e-02_rb,1.5114e-01_rb,1.8009e-01_rb,2.2727e-01_rb,2.7074e-01_rb,3.0288e-01_rb, &\n     &2.9697e-01_rb,2.5146e-01_rb,4.7630e-01_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &5.4386e-02_rb,1.4374e-01_rb,1.6223e-01_rb,1.8219e-01_rb,2.0984e-01_rb,2.5288e-01_rb, &\n     &2.7777e-01_rb,2.2929e-01_rb,3.5662e-01_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &5.2357e-02_rb,1.4042e-01_rb,1.5995e-01_rb,1.8335e-01_rb,2.1810e-01_rb,2.5710e-01_rb, &\n     &2.7180e-01_rb,2.2723e-01_rb,3.7033e-01_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &5.0433e-02_rb,1.3664e-01_rb,1.5916e-01_rb,1.8872e-01_rb,2.2495e-01_rb,2.5913e-01_rb, &\n     &2.6518e-01_rb,2.2296e-01_rb,3.8796e-01_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &4.8970e-02_rb,1.3435e-01_rb,1.5882e-01_rb,1.9514e-01_rb,2.3146e-01_rb,2.5861e-01_rb, &\n     &2.5643e-01_rb,2.1963e-01_rb,4.0045e-01_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &4.7677e-02_rb,1.3141e-01_rb,1.5996e-01_rb,2.0198e-01_rb,2.3377e-01_rb,2.5698e-01_rb, &\n     &2.5063e-01_rb,2.1548e-01_rb,4.0471e-01_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &4.9561e-02_rb,1.2585e-01_rb,1.4205e-01_rb,1.6041e-01_rb,1.8455e-01_rb,2.1813e-01_rb, &\n     &2.3719e-01_rb,1.9955e-01_rb,3.0456e-01_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &4.7879e-02_rb,1.2232e-01_rb,1.4089e-01_rb,1.6222e-01_rb,1.9194e-01_rb,2.2092e-01_rb, &\n     &2.3163e-01_rb,1.9730e-01_rb,3.1885e-01_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &4.6426e-02_rb,1.1957e-01_rb,1.4043e-01_rb,1.6717e-01_rb,1.9752e-01_rb,2.2121e-01_rb, &\n     &2.2638e-01_rb,1.9261e-01_rb,3.3187e-01_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &4.5268e-02_rb,1.1738e-01_rb,1.4149e-01_rb,1.7294e-01_rb,2.0208e-01_rb,2.2061e-01_rb, &\n     &2.1864e-01_rb,1.8926e-01_rb,3.4074e-01_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &4.3956e-02_rb,1.1566e-01_rb,1.4446e-01_rb,1.7951e-01_rb,2.0361e-01_rb,2.1938e-01_rb, &\n     &2.1462e-01_rb,1.8542e-01_rb,3.4583e-01_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &4.5250e-02_rb,1.0911e-01_rb,1.2308e-01_rb,1.4028e-01_rb,1.6172e-01_rb,1.8816e-01_rb, &\n     &2.0368e-01_rb,1.7299e-01_rb,2.5859e-01_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &4.3924e-02_rb,1.0618e-01_rb,1.2262e-01_rb,1.4258e-01_rb,1.6714e-01_rb,1.8918e-01_rb, &\n     &1.9807e-01_rb,1.7073e-01_rb,2.7235e-01_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &4.2608e-02_rb,1.0467e-01_rb,1.2300e-01_rb,1.4745e-01_rb,1.7253e-01_rb,1.8886e-01_rb, &\n     &1.9316e-01_rb,1.6589e-01_rb,2.8262e-01_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &4.1423e-02_rb,1.0229e-01_rb,1.2419e-01_rb,1.5295e-01_rb,1.7546e-01_rb,1.8853e-01_rb, &\n     &1.8673e-01_rb,1.6267e-01_rb,2.8816e-01_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &4.0021e-02_rb,1.0144e-01_rb,1.2853e-01_rb,1.5736e-01_rb,1.7632e-01_rb,1.8748e-01_rb, &\n     &1.8330e-01_rb,1.5887e-01_rb,2.9011e-01_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &4.1171e-02_rb,9.3658e-02_rb,1.0622e-01_rb,1.2188e-01_rb,1.4076e-01_rb,1.6261e-01_rb, &\n     &1.7423e-01_rb,1.4922e-01_rb,2.1862e-01_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &3.9662e-02_rb,9.1742e-02_rb,1.0641e-01_rb,1.2434e-01_rb,1.4583e-01_rb,1.6228e-01_rb, &\n     &1.6976e-01_rb,1.4678e-01_rb,2.3073e-01_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &3.8151e-02_rb,8.9581e-02_rb,1.0765e-01_rb,1.2937e-01_rb,1.4971e-01_rb,1.6177e-01_rb, &\n     &1.6479e-01_rb,1.4256e-01_rb,2.3771e-01_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &3.6829e-02_rb,8.8190e-02_rb,1.0980e-01_rb,1.3385e-01_rb,1.5088e-01_rb,1.6121e-01_rb, &\n     &1.5970e-01_rb,1.3919e-01_rb,2.4389e-01_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &3.5799e-02_rb,8.7081e-02_rb,1.1397e-01_rb,1.3613e-01_rb,1.5068e-01_rb,1.6032e-01_rb, &\n     &1.5668e-01_rb,1.3612e-01_rb,2.4347e-01_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &3.5950e-02_rb,7.9375e-02_rb,9.2025e-02_rb,1.0686e-01_rb,1.2416e-01_rb,1.3928e-01_rb, &\n     &1.4761e-01_rb,1.2730e-01_rb,1.9139e-01_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &3.4807e-02_rb,7.7447e-02_rb,9.2655e-02_rb,1.1006e-01_rb,1.2736e-01_rb,1.3892e-01_rb, &\n     &1.4381e-01_rb,1.2426e-01_rb,1.9723e-01_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &3.3668e-02_rb,7.6215e-02_rb,9.4748e-02_rb,1.1430e-01_rb,1.2842e-01_rb,1.3852e-01_rb, &\n     &1.3892e-01_rb,1.2007e-01_rb,2.0316e-01_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &3.2675e-02_rb,7.5405e-02_rb,9.7335e-02_rb,1.1502e-01_rb,1.2820e-01_rb,1.3796e-01_rb, &\n     &1.3569e-01_rb,1.1793e-01_rb,2.0391e-01_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &3.1803e-02_rb,7.5385e-02_rb,1.0078e-01_rb,1.1505e-01_rb,1.2792e-01_rb,1.3782e-01_rb, &\n     &1.3291e-01_rb,1.1573e-01_rb,2.0592e-01_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &3.2107e-02_rb,6.7817e-02_rb,8.0190e-02_rb,9.4418e-02_rb,1.0883e-01_rb,1.2016e-01_rb, &\n     &1.2478e-01_rb,1.0916e-01_rb,1.6437e-01_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &3.0865e-02_rb,6.6495e-02_rb,8.1339e-02_rb,9.7570e-02_rb,1.0958e-01_rb,1.1971e-01_rb, &\n     &1.2159e-01_rb,1.0575e-01_rb,1.6979e-01_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &2.9814e-02_rb,6.5982e-02_rb,8.4322e-02_rb,9.8160e-02_rb,1.0983e-01_rb,1.1899e-01_rb, &\n     &1.1775e-01_rb,1.0260e-01_rb,1.7251e-01_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &2.8719e-02_rb,6.6210e-02_rb,8.5962e-02_rb,9.8372e-02_rb,1.0963e-01_rb,1.1883e-01_rb, &\n     &1.1590e-01_rb,1.0037e-01_rb,1.7377e-01_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &2.7641e-02_rb,6.7001e-02_rb,8.6676e-02_rb,9.9268e-02_rb,1.1059e-01_rb,1.1880e-01_rb, &\n     &1.1301e-01_rb,9.8900e-02_rb,1.7602e-01_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &2.9283e-02_rb,6.0178e-02_rb,7.1238e-02_rb,8.4877e-02_rb,9.5368e-02_rb,1.0416e-01_rb, &\n     &1.0619e-01_rb,9.4038e-02_rb,1.4273e-01_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &2.8137e-02_rb,5.9367e-02_rb,7.3469e-02_rb,8.5617e-02_rb,9.5728e-02_rb,1.0364e-01_rb, &\n     &1.0343e-01_rb,9.0972e-02_rb,1.4741e-01_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &2.7056e-02_rb,5.9346e-02_rb,7.4992e-02_rb,8.5630e-02_rb,9.5820e-02_rb,1.0325e-01_rb, &\n     &1.0105e-01_rb,8.7823e-02_rb,1.4877e-01_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &2.6017e-02_rb,6.0117e-02_rb,7.5313e-02_rb,8.5867e-02_rb,9.6184e-02_rb,1.0321e-01_rb, &\n     &9.9567e-02_rb,8.6122e-02_rb,1.5028e-01_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &2.5188e-02_rb,6.1586e-02_rb,7.5405e-02_rb,8.7449e-02_rb,9.7275e-02_rb,1.0347e-01_rb, &\n     &9.7619e-02_rb,8.4749e-02_rb,1.5271e-01_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &2.0140e-01_rb,2.2296e-01_rb,3.8441e-01_rb,7.9237e-01_rb,8.6626e-01_rb,8.2263e-01_rb, &\n     &7.4305e-01_rb,7.5768e-01_rb,1.5145e+00_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &1.9181e-01_rb,2.1723e-01_rb,4.1174e-01_rb,7.7988e-01_rb,8.4188e-01_rb,7.8979e-01_rb, &\n     &7.0362e-01_rb,7.1757e-01_rb,1.4753e+00_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &1.8358e-01_rb,2.1296e-01_rb,4.3167e-01_rb,7.6375e-01_rb,8.2127e-01_rb,7.5942e-01_rb, &\n     &6.7535e-01_rb,6.8460e-01_rb,1.4372e+00_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &1.7731e-01_rb,2.0956e-01_rb,4.3260e-01_rb,7.5378e-01_rb,8.0524e-01_rb,7.2961e-01_rb, &\n     &6.5477e-01_rb,6.4648e-01_rb,1.3999e+00_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &1.7164e-01_rb,2.1055e-01_rb,4.2755e-01_rb,7.3334e-01_rb,7.8436e-01_rb,7.1000e-01_rb, &\n     &6.4297e-01_rb,6.0884e-01_rb,1.3521e+00_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &1.7302e-01_rb,2.0244e-01_rb,5.3076e-01_rb,6.9942e-01_rb,7.3274e-01_rb,6.9098e-01_rb, &\n     &6.5285e-01_rb,6.3638e-01_rb,1.2559e+00_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &1.6489e-01_rb,1.9797e-01_rb,5.4053e-01_rb,6.8204e-01_rb,7.0789e-01_rb,6.6109e-01_rb, &\n     &6.3152e-01_rb,6.0382e-01_rb,1.2010e+00_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &1.5760e-01_rb,1.9570e-01_rb,5.4478e-01_rb,6.6415e-01_rb,6.8272e-01_rb,6.3617e-01_rb, &\n     &6.0950e-01_rb,5.7193e-01_rb,1.1640e+00_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &1.5184e-01_rb,1.9435e-01_rb,5.4381e-01_rb,6.4780e-01_rb,6.6147e-01_rb,6.1692e-01_rb, &\n     &5.8732e-01_rb,5.4197e-01_rb,1.1223e+00_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &1.4698e-01_rb,1.9520e-01_rb,5.4107e-01_rb,6.3896e-01_rb,6.4395e-01_rb,6.0782e-01_rb, &\n     &5.7401e-01_rb,5.1623e-01_rb,1.0839e+00_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &1.5095e-01_rb,2.3961e-01_rb,5.3891e-01_rb,5.9274e-01_rb,6.0360e-01_rb,5.9975e-01_rb, &\n     &5.7583e-01_rb,5.3639e-01_rb,1.0254e+00_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &1.4378e-01_rb,2.4579e-01_rb,5.2840e-01_rb,5.8072e-01_rb,5.8574e-01_rb,5.7325e-01_rb, &\n     &5.5457e-01_rb,5.1150e-01_rb,9.9368e-01_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &1.3744e-01_rb,2.5218e-01_rb,5.1071e-01_rb,5.6679e-01_rb,5.6782e-01_rb,5.5647e-01_rb, &\n     &5.3781e-01_rb,4.7984e-01_rb,9.5622e-01_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &1.3182e-01_rb,2.5642e-01_rb,4.9891e-01_rb,5.5373e-01_rb,5.5212e-01_rb,5.4201e-01_rb, &\n     &5.2720e-01_rb,4.5497e-01_rb,9.3692e-01_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &1.2736e-01_rb,2.6156e-01_rb,4.9042e-01_rb,5.4609e-01_rb,5.4094e-01_rb,5.2788e-01_rb, &\n     &5.2063e-01_rb,4.2896e-01_rb,9.1393e-01_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &1.3296e-01_rb,3.0808e-01_rb,4.5560e-01_rb,5.0161e-01_rb,5.1973e-01_rb,5.1660e-01_rb, &\n     &5.1162e-01_rb,4.5889e-01_rb,8.7778e-01_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &1.2659e-01_rb,3.1156e-01_rb,4.4164e-01_rb,4.8779e-01_rb,5.0041e-01_rb,4.9812e-01_rb, &\n     &4.9015e-01_rb,4.3243e-01_rb,8.4542e-01_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &1.2094e-01_rb,3.1188e-01_rb,4.3105e-01_rb,4.7578e-01_rb,4.8617e-01_rb,4.8333e-01_rb, &\n     &4.7842e-01_rb,4.0299e-01_rb,8.1678e-01_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &1.1593e-01_rb,3.1351e-01_rb,4.2237e-01_rb,4.6451e-01_rb,4.7350e-01_rb,4.7079e-01_rb, &\n     &4.7610e-01_rb,3.7858e-01_rb,7.9667e-01_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &1.1150e-01_rb,3.1306e-01_rb,4.1390e-01_rb,4.5362e-01_rb,4.6429e-01_rb,4.6167e-01_rb, &\n     &4.7081e-01_rb,3.5772e-01_rb,7.7552e-01_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &1.1755e-01_rb,3.2807e-01_rb,3.8548e-01_rb,4.2521e-01_rb,4.4554e-01_rb,4.5203e-01_rb, &\n     &4.4500e-01_rb,3.9225e-01_rb,7.4478e-01_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &1.1209e-01_rb,3.1909e-01_rb,3.7705e-01_rb,4.1235e-01_rb,4.2996e-01_rb,4.3302e-01_rb, &\n     &4.3279e-01_rb,3.6494e-01_rb,7.1780e-01_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &1.0716e-01_rb,3.1181e-01_rb,3.6570e-01_rb,3.9834e-01_rb,4.1575e-01_rb,4.2162e-01_rb, &\n     &4.2981e-01_rb,3.4051e-01_rb,6.9974e-01_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &1.0275e-01_rb,3.0301e-01_rb,3.5750e-01_rb,3.8990e-01_rb,4.0553e-01_rb,4.1539e-01_rb, &\n     &4.2536e-01_rb,3.1843e-01_rb,6.8036e-01_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &9.8998e-02_rb,2.9446e-01_rb,3.5111e-01_rb,3.8417e-01_rb,3.9923e-01_rb,4.1474e-01_rb, &\n     &4.2083e-01_rb,3.0243e-01_rb,6.6644e-01_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &1.0705e-01_rb,2.7318e-01_rb,3.3208e-01_rb,3.6143e-01_rb,3.8591e-01_rb,3.9313e-01_rb, &\n     &3.9284e-01_rb,3.3741e-01_rb,6.4786e-01_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &1.0199e-01_rb,2.6545e-01_rb,3.2251e-01_rb,3.5040e-01_rb,3.7450e-01_rb,3.7890e-01_rb, &\n     &3.8585e-01_rb,3.0993e-01_rb,6.2347e-01_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &9.7437e-02_rb,2.5576e-01_rb,3.1499e-01_rb,3.4107e-01_rb,3.6300e-01_rb,3.7247e-01_rb, &\n     &3.8009e-01_rb,2.8815e-01_rb,6.0580e-01_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &9.3482e-02_rb,2.4922e-01_rb,3.0800e-01_rb,3.3313e-01_rb,3.5414e-01_rb,3.7096e-01_rb, &\n     &3.7706e-01_rb,2.7157e-01_rb,5.9892e-01_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &9.0031e-02_rb,2.4481e-01_rb,3.0199e-01_rb,3.2745e-01_rb,3.5204e-01_rb,3.7018e-01_rb, &\n     &3.6552e-01_rb,2.5507e-01_rb,5.9364e-01_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &1.0201e-01_rb,2.3487e-01_rb,2.8528e-01_rb,3.1378e-01_rb,3.3635e-01_rb,3.4598e-01_rb, &\n     &3.4770e-01_rb,2.9069e-01_rb,5.6026e-01_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &9.7333e-02_rb,2.2730e-01_rb,2.7830e-01_rb,3.0507e-01_rb,3.2187e-01_rb,3.3481e-01_rb, &\n     &3.4172e-01_rb,2.6797e-01_rb,5.4227e-01_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &9.3243e-02_rb,2.2136e-01_rb,2.6944e-01_rb,2.9618e-01_rb,3.1454e-01_rb,3.2973e-01_rb, &\n     &3.3451e-01_rb,2.4821e-01_rb,5.2884e-01_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &8.9660e-02_rb,2.1638e-01_rb,2.6334e-01_rb,2.9056e-01_rb,3.1245e-01_rb,3.2791e-01_rb, &\n     &3.2519e-01_rb,2.3192e-01_rb,5.2407e-01_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &8.6492e-02_rb,2.1156e-01_rb,2.5984e-01_rb,2.8528e-01_rb,3.1573e-01_rb,3.2789e-01_rb, &\n     &3.1681e-01_rb,2.1806e-01_rb,5.2688e-01_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &1.0039e-01_rb,2.1049e-01_rb,2.5117e-01_rb,2.7733e-01_rb,2.9294e-01_rb,3.0451e-01_rb, &\n     &3.0671e-01_rb,2.5418e-01_rb,4.9108e-01_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &9.6148e-02_rb,2.0539e-01_rb,2.4350e-01_rb,2.6931e-01_rb,2.8451e-01_rb,2.9582e-01_rb, &\n     &3.0170e-01_rb,2.3605e-01_rb,4.7511e-01_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &9.2145e-02_rb,2.0009e-01_rb,2.3646e-01_rb,2.6177e-01_rb,2.7896e-01_rb,2.9276e-01_rb, &\n     &2.9264e-01_rb,2.1892e-01_rb,4.6537e-01_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &8.8569e-02_rb,1.9568e-01_rb,2.3097e-01_rb,2.5688e-01_rb,2.7814e-01_rb,2.9214e-01_rb, &\n     &2.8481e-01_rb,2.0263e-01_rb,4.6603e-01_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &8.5629e-02_rb,1.9094e-01_rb,2.2714e-01_rb,2.5259e-01_rb,2.7953e-01_rb,2.8904e-01_rb, &\n     &2.7433e-01_rb,1.9066e-01_rb,4.6777e-01_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &9.8021e-02_rb,1.9151e-01_rb,2.2309e-01_rb,2.4564e-01_rb,2.5865e-01_rb,2.6783e-01_rb, &\n     &2.6894e-01_rb,2.2292e-01_rb,4.2854e-01_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &9.3022e-02_rb,1.8527e-01_rb,2.1592e-01_rb,2.3651e-01_rb,2.5064e-01_rb,2.6055e-01_rb, &\n     &2.6499e-01_rb,2.0617e-01_rb,4.1580e-01_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &8.8595e-02_rb,1.8097e-01_rb,2.1073e-01_rb,2.3156e-01_rb,2.4703e-01_rb,2.5851e-01_rb, &\n     &2.5441e-01_rb,1.9146e-01_rb,4.1005e-01_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &8.4486e-02_rb,1.7670e-01_rb,2.0686e-01_rb,2.2734e-01_rb,2.4622e-01_rb,2.5730e-01_rb, &\n     &2.4711e-01_rb,1.7700e-01_rb,4.1054e-01_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &8.1546e-02_rb,1.7284e-01_rb,2.0523e-01_rb,2.2674e-01_rb,2.4921e-01_rb,2.5266e-01_rb, &\n     &2.3614e-01_rb,1.6619e-01_rb,4.1551e-01_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &9.1049e-02_rb,1.7362e-01_rb,1.9833e-01_rb,2.1764e-01_rb,2.2798e-01_rb,2.3471e-01_rb, &\n     &2.3646e-01_rb,1.9422e-01_rb,3.7343e-01_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &8.6996e-02_rb,1.6791e-01_rb,1.9240e-01_rb,2.1075e-01_rb,2.2237e-01_rb,2.2936e-01_rb, &\n     &2.3178e-01_rb,1.7985e-01_rb,3.6356e-01_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &8.2800e-02_rb,1.6395e-01_rb,1.8777e-01_rb,2.0552e-01_rb,2.1940e-01_rb,2.2862e-01_rb, &\n     &2.2169e-01_rb,1.6614e-01_rb,3.6046e-01_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &7.8811e-02_rb,1.5975e-01_rb,1.8561e-01_rb,2.0375e-01_rb,2.1988e-01_rb,2.2450e-01_rb, &\n     &2.1345e-01_rb,1.5492e-01_rb,3.6096e-01_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &7.5529e-02_rb,1.5650e-01_rb,1.8353e-01_rb,2.0505e-01_rb,2.1950e-01_rb,2.1739e-01_rb, &\n     &2.0454e-01_rb,1.4507e-01_rb,3.6055e-01_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &7.7672e-02_rb,1.5145e-01_rb,1.7382e-01_rb,1.8990e-01_rb,1.9990e-01_rb,2.0432e-01_rb, &\n     &2.0547e-01_rb,1.6386e-01_rb,3.1843e-01_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &7.3723e-02_rb,1.4611e-01_rb,1.6807e-01_rb,1.8489e-01_rb,1.9610e-01_rb,2.0254e-01_rb, &\n     &1.9720e-01_rb,1.5217e-01_rb,3.1488e-01_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &7.0457e-02_rb,1.4249e-01_rb,1.6412e-01_rb,1.8266e-01_rb,1.9585e-01_rb,1.9778e-01_rb, &\n     &1.8906e-01_rb,1.4085e-01_rb,3.1421e-01_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &6.7094e-02_rb,1.3863e-01_rb,1.6386e-01_rb,1.8321e-01_rb,1.9415e-01_rb,1.9186e-01_rb, &\n     &1.8023e-01_rb,1.3105e-01_rb,3.1088e-01_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &6.4100e-02_rb,1.3524e-01_rb,1.6357e-01_rb,1.8497e-01_rb,1.9137e-01_rb,1.8498e-01_rb, &\n     &1.7319e-01_rb,1.2321e-01_rb,3.0324e-01_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &6.6765e-02_rb,1.2994e-01_rb,1.4944e-01_rb,1.6445e-01_rb,1.7587e-01_rb,1.8101e-01_rb, &\n     &1.7769e-01_rb,1.3984e-01_rb,2.7673e-01_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &6.3023e-02_rb,1.2593e-01_rb,1.4588e-01_rb,1.6162e-01_rb,1.7387e-01_rb,1.7653e-01_rb, &\n     &1.6990e-01_rb,1.2980e-01_rb,2.7397e-01_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &6.0078e-02_rb,1.2173e-01_rb,1.4433e-01_rb,1.6136e-01_rb,1.7141e-01_rb,1.7100e-01_rb, &\n     &1.6190e-01_rb,1.2017e-01_rb,2.6912e-01_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &5.7591e-02_rb,1.1797e-01_rb,1.4432e-01_rb,1.6200e-01_rb,1.6903e-01_rb,1.6549e-01_rb, &\n     &1.5510e-01_rb,1.1177e-01_rb,2.6329e-01_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &5.5506e-02_rb,1.1583e-01_rb,1.4556e-01_rb,1.5779e-01_rb,1.6302e-01_rb,1.5857e-01_rb, &\n     &1.4926e-01_rb,1.0509e-01_rb,2.5258e-01_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &5.9522e-02_rb,1.1440e-01_rb,1.3268e-01_rb,1.4518e-01_rb,1.5668e-01_rb,1.6016e-01_rb, &\n     &1.5672e-01_rb,1.2200e-01_rb,2.4269e-01_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &5.6603e-02_rb,1.1049e-01_rb,1.3023e-01_rb,1.4451e-01_rb,1.5437e-01_rb,1.5452e-01_rb, &\n     &1.4924e-01_rb,1.1346e-01_rb,2.3750e-01_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &5.4101e-02_rb,1.0639e-01_rb,1.2967e-01_rb,1.4482e-01_rb,1.5052e-01_rb,1.4869e-01_rb, &\n     &1.4191e-01_rb,1.0569e-01_rb,2.3366e-01_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &5.1959e-02_rb,1.0421e-01_rb,1.3053e-01_rb,1.4062e-01_rb,1.4577e-01_rb,1.4358e-01_rb, &\n     &1.3605e-01_rb,9.8273e-02_rb,2.2442e-01_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &4.9821e-02_rb,1.0307e-01_rb,1.3162e-01_rb,1.3605e-01_rb,1.4048e-01_rb,1.3772e-01_rb, &\n     &1.3142e-01_rb,9.2354e-02_rb,2.1552e-01_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &4.4662e-01_rb,4.5491e-01_rb,4.6518e-01_rb,4.8073e-01_rb,9.6301e-01_rb,1.0662e+00_rb, &\n     &9.6837e-01_rb,6.1516e-01_rb,1.5492e+00_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &4.3070e-01_rb,4.3901e-01_rb,4.4894e-01_rb,4.8843e-01_rb,9.7366e-01_rb,1.0185e+00_rb, &\n     &9.1919e-01_rb,5.9289e-01_rb,1.4372e+00_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &4.1920e-01_rb,4.2623e-01_rb,4.3584e-01_rb,5.1853e-01_rb,9.4077e-01_rb,9.6967e-01_rb, &\n     &8.7962e-01_rb,5.7716e-01_rb,1.3511e+00_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &4.1320e-01_rb,4.1951e-01_rb,4.2768e-01_rb,5.3113e-01_rb,8.9548e-01_rb,9.3086e-01_rb, &\n     &8.2656e-01_rb,5.7871e-01_rb,1.2540e+00_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &4.1049e-01_rb,4.1583e-01_rb,4.2551e-01_rb,5.4820e-01_rb,8.6249e-01_rb,8.9543e-01_rb, &\n     &7.7827e-01_rb,5.9312e-01_rb,1.1774e+00_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &3.7419e-01_rb,3.9315e-01_rb,4.1387e-01_rb,7.3684e-01_rb,9.3729e-01_rb,9.5798e-01_rb, &\n     &8.1977e-01_rb,5.4534e-01_rb,1.3830e+00_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &3.6046e-01_rb,3.7870e-01_rb,3.9949e-01_rb,7.5022e-01_rb,8.9119e-01_rb,9.0575e-01_rb, &\n     &7.6682e-01_rb,5.2408e-01_rb,1.3014e+00_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &3.5058e-01_rb,3.6732e-01_rb,3.9129e-01_rb,7.6077e-01_rb,8.5537e-01_rb,8.6853e-01_rb, &\n     &7.2131e-01_rb,5.2368e-01_rb,1.1992e+00_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &3.4363e-01_rb,3.5974e-01_rb,3.8593e-01_rb,7.6592e-01_rb,8.1963e-01_rb,8.3241e-01_rb, &\n     &6.8939e-01_rb,5.2630e-01_rb,1.1280e+00_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &3.4117e-01_rb,3.5633e-01_rb,3.8040e-01_rb,7.4257e-01_rb,7.9365e-01_rb,7.8846e-01_rb, &\n     &6.5921e-01_rb,5.2675e-01_rb,1.0716e+00_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &3.1617e-01_rb,3.4533e-01_rb,4.9004e-01_rb,8.0662e-01_rb,8.6490e-01_rb,8.2831e-01_rb, &\n     &6.9369e-01_rb,4.9053e-01_rb,1.2685e+00_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &3.0386e-01_rb,3.3185e-01_rb,4.9271e-01_rb,7.6499e-01_rb,8.1967e-01_rb,7.8960e-01_rb, &\n     &6.4565e-01_rb,4.7244e-01_rb,1.1699e+00_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &2.9464e-01_rb,3.2055e-01_rb,5.0043e-01_rb,7.2785e-01_rb,7.8235e-01_rb,7.5123e-01_rb, &\n     &6.1372e-01_rb,4.7097e-01_rb,1.0909e+00_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &2.8765e-01_rb,3.1339e-01_rb,5.0754e-01_rb,6.9697e-01_rb,7.5208e-01_rb,7.1843e-01_rb, &\n     &5.8571e-01_rb,4.6400e-01_rb,1.0036e+00_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &2.8344e-01_rb,3.0751e-01_rb,5.1242e-01_rb,6.6855e-01_rb,7.1995e-01_rb,6.9218e-01_rb, &\n     &5.7184e-01_rb,4.7451e-01_rb,9.2127e-01_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &2.6775e-01_rb,3.0604e-01_rb,6.4660e-01_rb,7.3076e-01_rb,7.6521e-01_rb,7.2923e-01_rb, &\n     &5.8618e-01_rb,4.3353e-01_rb,1.1015e+00_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &2.5632e-01_rb,2.9306e-01_rb,6.2522e-01_rb,6.9215e-01_rb,7.2674e-01_rb,6.8433e-01_rb, &\n     &5.5230e-01_rb,4.1918e-01_rb,1.0081e+00_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &2.4780e-01_rb,2.8292e-01_rb,5.9390e-01_rb,6.5413e-01_rb,6.8773e-01_rb,6.5028e-01_rb, &\n     &5.2160e-01_rb,4.1724e-01_rb,9.3062e-01_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &2.4100e-01_rb,2.7551e-01_rb,5.7041e-01_rb,6.2793e-01_rb,6.5534e-01_rb,6.2452e-01_rb, &\n     &5.0866e-01_rb,4.1719e-01_rb,8.4917e-01_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &2.3658e-01_rb,2.6967e-01_rb,5.4813e-01_rb,6.0747e-01_rb,6.2636e-01_rb,5.9897e-01_rb, &\n     &4.9899e-01_rb,4.2737e-01_rb,7.8635e-01_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &2.2714e-01_rb,3.0892e-01_rb,5.8868e-01_rb,6.5760e-01_rb,6.7083e-01_rb,6.2555e-01_rb, &\n     &5.1259e-01_rb,3.8131e-01_rb,9.5049e-01_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &2.1666e-01_rb,3.0798e-01_rb,5.5062e-01_rb,6.2165e-01_rb,6.2939e-01_rb,5.9031e-01_rb, &\n     &4.8040e-01_rb,3.7074e-01_rb,8.6898e-01_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &2.0871e-01_rb,3.0702e-01_rb,5.2691e-01_rb,5.8794e-01_rb,5.9599e-01_rb,5.6236e-01_rb, &\n     &4.6150e-01_rb,3.6395e-01_rb,7.8288e-01_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &2.0276e-01_rb,3.0943e-01_rb,5.0433e-01_rb,5.5988e-01_rb,5.6518e-01_rb,5.3494e-01_rb, &\n     &4.4833e-01_rb,3.6773e-01_rb,7.2419e-01_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &1.9892e-01_rb,3.1215e-01_rb,4.8278e-01_rb,5.3676e-01_rb,5.4170e-01_rb,5.0924e-01_rb, &\n     &4.4109e-01_rb,3.7855e-01_rb,6.8358e-01_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &1.9298e-01_rb,3.8310e-01_rb,5.2601e-01_rb,5.8117e-01_rb,5.8505e-01_rb,5.4459e-01_rb, &\n     &4.4513e-01_rb,3.3639e-01_rb,8.1804e-01_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &1.8380e-01_rb,3.7978e-01_rb,4.9784e-01_rb,5.4325e-01_rb,5.4503e-01_rb,5.1006e-01_rb, &\n     &4.1750e-01_rb,3.2606e-01_rb,7.4136e-01_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &1.7694e-01_rb,3.8180e-01_rb,4.7027e-01_rb,5.1699e-01_rb,5.1079e-01_rb,4.8235e-01_rb, &\n     &4.0208e-01_rb,3.2052e-01_rb,6.7777e-01_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &1.7133e-01_rb,3.7179e-01_rb,4.4558e-01_rb,4.8630e-01_rb,4.9002e-01_rb,4.5737e-01_rb, &\n     &3.9155e-01_rb,3.2262e-01_rb,6.2593e-01_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &1.6754e-01_rb,3.5443e-01_rb,4.2444e-01_rb,4.6383e-01_rb,4.6954e-01_rb,4.4064e-01_rb, &\n     &3.8904e-01_rb,3.3286e-01_rb,5.7664e-01_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &1.6680e-01_rb,3.8673e-01_rb,4.6977e-01_rb,5.0982e-01_rb,5.0645e-01_rb,4.7419e-01_rb, &\n     &3.9067e-01_rb,2.9795e-01_rb,7.1500e-01_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &1.5848e-01_rb,3.6483e-01_rb,4.3657e-01_rb,4.7719e-01_rb,4.7339e-01_rb,4.4276e-01_rb, &\n     &3.6591e-01_rb,2.8456e-01_rb,6.4266e-01_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &1.5206e-01_rb,3.4607e-01_rb,4.1294e-01_rb,4.4755e-01_rb,4.4747e-01_rb,4.1880e-01_rb, &\n     &3.5274e-01_rb,2.8027e-01_rb,5.8922e-01_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &1.4707e-01_rb,3.2827e-01_rb,3.9251e-01_rb,4.2303e-01_rb,4.2524e-01_rb,3.9890e-01_rb, &\n     &3.4920e-01_rb,2.8325e-01_rb,5.4340e-01_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &1.4361e-01_rb,3.1545e-01_rb,3.7348e-01_rb,4.0710e-01_rb,4.0646e-01_rb,3.8591e-01_rb, &\n     &3.3880e-01_rb,2.9285e-01_rb,5.0986e-01_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &1.4820e-01_rb,3.5091e-01_rb,4.2013e-01_rb,4.5147e-01_rb,4.5056e-01_rb,4.1729e-01_rb, &\n     &3.4786e-01_rb,2.6599e-01_rb,6.3121e-01_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &1.4070e-01_rb,3.2895e-01_rb,3.9148e-01_rb,4.1739e-01_rb,4.1786e-01_rb,3.8937e-01_rb, &\n     &3.2642e-01_rb,2.5048e-01_rb,5.6833e-01_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &1.3491e-01_rb,3.1064e-01_rb,3.6928e-01_rb,3.9231e-01_rb,3.9615e-01_rb,3.7023e-01_rb, &\n     &3.1619e-01_rb,2.4413e-01_rb,5.2283e-01_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &1.3040e-01_rb,2.9486e-01_rb,3.4865e-01_rb,3.7267e-01_rb,3.7585e-01_rb,3.5308e-01_rb, &\n     &3.1289e-01_rb,2.4763e-01_rb,4.8158e-01_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &1.2713e-01_rb,2.8372e-01_rb,3.3299e-01_rb,3.5768e-01_rb,3.6293e-01_rb,3.4468e-01_rb, &\n     &2.9924e-01_rb,2.5414e-01_rb,4.5058e-01_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &1.3333e-01_rb,3.1732e-01_rb,3.7806e-01_rb,3.9822e-01_rb,3.9576e-01_rb,3.6830e-01_rb, &\n     &3.0959e-01_rb,2.3751e-01_rb,5.5734e-01_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &1.2728e-01_rb,2.9745e-01_rb,3.4973e-01_rb,3.7018e-01_rb,3.6774e-01_rb,3.4366e-01_rb, &\n     &2.8994e-01_rb,2.2165e-01_rb,5.0172e-01_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &1.2260e-01_rb,2.7734e-01_rb,3.2656e-01_rb,3.4735e-01_rb,3.4508e-01_rb,3.2798e-01_rb, &\n     &2.8353e-01_rb,2.1398e-01_rb,4.5989e-01_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &1.1943e-01_rb,2.6308e-01_rb,3.0660e-01_rb,3.2980e-01_rb,3.3173e-01_rb,3.1278e-01_rb, &\n     &2.7390e-01_rb,2.1485e-01_rb,4.2942e-01_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &1.1701e-01_rb,2.4928e-01_rb,2.9183e-01_rb,3.1474e-01_rb,3.2039e-01_rb,3.0863e-01_rb, &\n     &2.6433e-01_rb,2.1871e-01_rb,3.9836e-01_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &1.2488e-01_rb,2.8649e-01_rb,3.3436e-01_rb,3.5060e-01_rb,3.4715e-01_rb,3.2381e-01_rb, &\n     &2.7352e-01_rb,2.0897e-01_rb,4.9029e-01_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &1.1908e-01_rb,2.6494e-01_rb,3.0883e-01_rb,3.2464e-01_rb,3.2171e-01_rb,3.0303e-01_rb, &\n     &2.5647e-01_rb,1.9520e-01_rb,4.4008e-01_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &1.1556e-01_rb,2.4763e-01_rb,2.8674e-01_rb,3.0514e-01_rb,3.0302e-01_rb,2.8868e-01_rb, &\n     &2.5222e-01_rb,1.8782e-01_rb,4.0842e-01_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &1.1322e-01_rb,2.3334e-01_rb,2.7126e-01_rb,2.8846e-01_rb,2.9340e-01_rb,2.7863e-01_rb, &\n     &2.4033e-01_rb,1.8521e-01_rb,3.8163e-01_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &1.1126e-01_rb,2.2285e-01_rb,2.5915e-01_rb,2.7811e-01_rb,2.8680e-01_rb,2.7376e-01_rb, &\n     &2.3030e-01_rb,1.8823e-01_rb,3.5861e-01_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &1.2133e-01_rb,2.4900e-01_rb,2.8640e-01_rb,2.9703e-01_rb,2.9301e-01_rb,2.7475e-01_rb, &\n     &2.3250e-01_rb,1.7899e-01_rb,4.0785e-01_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &1.1707e-01_rb,2.3382e-01_rb,2.6584e-01_rb,2.7776e-01_rb,2.7455e-01_rb,2.6096e-01_rb, &\n     &2.2631e-01_rb,1.6847e-01_rb,3.7573e-01_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &1.1375e-01_rb,2.1845e-01_rb,2.5115e-01_rb,2.6117e-01_rb,2.6335e-01_rb,2.5113e-01_rb, &\n     &2.1653e-01_rb,1.6132e-01_rb,3.4922e-01_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &1.1166e-01_rb,2.0864e-01_rb,2.3761e-01_rb,2.5163e-01_rb,2.5840e-01_rb,2.4419e-01_rb, &\n     &2.0592e-01_rb,1.6130e-01_rb,3.3156e-01_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &1.1026e-01_rb,2.0025e-01_rb,2.2827e-01_rb,2.4711e-01_rb,2.5459e-01_rb,2.3449e-01_rb, &\n     &1.9737e-01_rb,1.6301e-01_rb,3.1155e-01_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &1.2068e-01_rb,2.2498e-01_rb,2.5241e-01_rb,2.6093e-01_rb,2.5316e-01_rb,2.3830e-01_rb, &\n     &2.0580e-01_rb,1.5434e-01_rb,3.4650e-01_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &1.1732e-01_rb,2.1063e-01_rb,2.3754e-01_rb,2.4422e-01_rb,2.4130e-01_rb,2.2913e-01_rb, &\n     &1.9581e-01_rb,1.4538e-01_rb,3.2419e-01_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &1.1291e-01_rb,2.0050e-01_rb,2.2356e-01_rb,2.3528e-01_rb,2.3734e-01_rb,2.2099e-01_rb, &\n     &1.8732e-01_rb,1.4169e-01_rb,3.0809e-01_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &1.0801e-01_rb,1.9213e-01_rb,2.1514e-01_rb,2.2964e-01_rb,2.3229e-01_rb,2.1151e-01_rb, &\n     &1.7615e-01_rb,1.4140e-01_rb,2.8807e-01_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &1.0409e-01_rb,1.8478e-01_rb,2.0856e-01_rb,2.2937e-01_rb,2.2388e-01_rb,2.0038e-01_rb, &\n     &1.7052e-01_rb,1.4327e-01_rb,2.6150e-01_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &1.1514e-01_rb,2.0822e-01_rb,2.3178e-01_rb,2.3757e-01_rb,2.2988e-01_rb,2.1559e-01_rb, &\n     &1.8505e-01_rb,1.3755e-01_rb,3.0255e-01_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &1.0856e-01_rb,1.9378e-01_rb,2.1572e-01_rb,2.2466e-01_rb,2.2140e-01_rb,2.1071e-01_rb, &\n     &1.7476e-01_rb,1.2903e-01_rb,2.8912e-01_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &1.0257e-01_rb,1.8315e-01_rb,2.0306e-01_rb,2.1501e-01_rb,2.1837e-01_rb,1.9973e-01_rb, &\n     &1.6546e-01_rb,1.2594e-01_rb,2.7440e-01_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &9.7502e-02_rb,1.7382e-01_rb,1.9450e-01_rb,2.1448e-01_rb,2.0917e-01_rb,1.8735e-01_rb, &\n     &1.5671e-01_rb,1.2605e-01_rb,2.4875e-01_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &9.4048e-02_rb,1.6507e-01_rb,1.8951e-01_rb,2.1087e-01_rb,1.9884e-01_rb,1.7732e-01_rb, &\n     &1.5188e-01_rb,1.2757e-01_rb,2.1998e-01_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &1.2242e+00_rb,1.1159e+00_rb,1.0120e+00_rb,9.1389e-01_rb,8.1856e-01_rb,1.1483e+00_rb, &\n     &9.8709e-01_rb,9.2159e-01_rb,4.7502e-01_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &1.1928e+00_rb,1.0903e+00_rb,9.9311e-01_rb,9.0065e-01_rb,8.3223e-01_rb,1.1145e+00_rb, &\n     &9.5738e-01_rb,9.2153e-01_rb,6.9449e-01_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &1.1808e+00_rb,1.0824e+00_rb,9.8824e-01_rb,8.9828e-01_rb,8.9586e-01_rb,1.0864e+00_rb, &\n     &9.3281e-01_rb,9.2795e-01_rb,8.4213e-01_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &1.1721e+00_rb,1.0760e+00_rb,9.8481e-01_rb,8.9679e-01_rb,9.5583e-01_rb,1.0646e+00_rb, &\n     &9.4941e-01_rb,9.2047e-01_rb,8.5863e-01_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &1.1790e+00_rb,1.0814e+00_rb,9.8996e-01_rb,8.9927e-01_rb,1.0035e+00_rb,1.0346e+00_rb, &\n     &9.5167e-01_rb,9.2657e-01_rb,7.2509e-01_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &1.0264e+00_rb,9.4284e-01_rb,8.6709e-01_rb,7.9559e-01_rb,1.1080e+00_rb,1.0254e+00_rb, &\n     &9.2224e-01_rb,8.7122e-01_rb,1.0512e+00_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &1.0018e+00_rb,9.2359e-01_rb,8.5299e-01_rb,7.8672e-01_rb,1.0674e+00_rb,9.8417e-01_rb, &\n     &8.9700e-01_rb,8.6779e-01_rb,9.4293e-01_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &9.8988e-01_rb,9.1596e-01_rb,8.4833e-01_rb,7.8816e-01_rb,1.0499e+00_rb,9.5536e-01_rb, &\n     &8.7579e-01_rb,8.5648e-01_rb,8.1445e-01_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &9.8822e-01_rb,9.1536e-01_rb,8.4663e-01_rb,7.9377e-01_rb,1.0292e+00_rb,9.3843e-01_rb, &\n     &8.7227e-01_rb,8.6174e-01_rb,7.0730e-01_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &9.8800e-01_rb,9.1393e-01_rb,8.4855e-01_rb,8.2484e-01_rb,1.0072e+00_rb,9.4807e-01_rb, &\n     &8.8827e-01_rb,8.7216e-01_rb,5.9331e-01_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &8.6794e-01_rb,8.0430e-01_rb,7.5031e-01_rb,8.9541e-01_rb,1.0214e+00_rb,9.4865e-01_rb, &\n     &8.5821e-01_rb,7.9700e-01_rb,8.7719e-01_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &8.4313e-01_rb,7.8532e-01_rb,7.3608e-01_rb,9.3906e-01_rb,9.7060e-01_rb,9.0816e-01_rb, &\n     &8.3425e-01_rb,7.9621e-01_rb,7.6329e-01_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &8.3157e-01_rb,7.7858e-01_rb,7.3266e-01_rb,9.5972e-01_rb,9.4116e-01_rb,8.8096e-01_rb, &\n     &8.0848e-01_rb,7.9477e-01_rb,6.5966e-01_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &8.2987e-01_rb,7.7678e-01_rb,7.3040e-01_rb,9.3971e-01_rb,9.0923e-01_rb,8.7002e-01_rb, &\n     &8.0556e-01_rb,8.1217e-01_rb,6.0022e-01_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &8.2093e-01_rb,7.6968e-01_rb,7.2610e-01_rb,9.2404e-01_rb,8.9670e-01_rb,8.5391e-01_rb, &\n     &7.9373e-01_rb,8.1610e-01_rb,5.3117e-01_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &7.3504e-01_rb,6.8896e-01_rb,6.5474e-01_rb,9.5125e-01_rb,9.3510e-01_rb,8.8191e-01_rb, &\n     &7.8339e-01_rb,7.2709e-01_rb,7.9136e-01_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &7.1205e-01_rb,6.7167e-01_rb,6.7088e-01_rb,9.0689e-01_rb,8.7886e-01_rb,8.4133e-01_rb, &\n     &7.6196e-01_rb,7.2232e-01_rb,6.9067e-01_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &7.0055e-01_rb,6.6424e-01_rb,7.0492e-01_rb,8.8094e-01_rb,8.5026e-01_rb,8.0832e-01_rb, &\n     &7.4494e-01_rb,7.3074e-01_rb,6.1263e-01_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &6.9588e-01_rb,6.6015e-01_rb,7.3043e-01_rb,8.5040e-01_rb,8.2745e-01_rb,7.8458e-01_rb, &\n     &7.3728e-01_rb,7.3901e-01_rb,5.3700e-01_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &6.8558e-01_rb,6.5206e-01_rb,7.5371e-01_rb,8.2365e-01_rb,8.2063e-01_rb,7.6670e-01_rb, &\n     &7.3328e-01_rb,7.4717e-01_rb,4.4797e-01_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &6.2240e-01_rb,5.9202e-01_rb,7.9818e-01_rb,8.6221e-01_rb,8.4556e-01_rb,7.9840e-01_rb, &\n     &7.0353e-01_rb,6.4834e-01_rb,7.3196e-01_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &6.0152e-01_rb,5.7633e-01_rb,8.0789e-01_rb,8.1513e-01_rb,8.0789e-01_rb,7.5099e-01_rb, &\n     &6.7710e-01_rb,6.4945e-01_rb,6.3067e-01_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &5.8999e-01_rb,5.6942e-01_rb,7.6969e-01_rb,7.8647e-01_rb,7.7674e-01_rb,7.1468e-01_rb, &\n     &6.6534e-01_rb,6.5860e-01_rb,5.4173e-01_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &5.8241e-01_rb,5.6326e-01_rb,7.5015e-01_rb,7.6096e-01_rb,7.5392e-01_rb,6.9429e-01_rb, &\n     &6.6094e-01_rb,6.6621e-01_rb,4.4433e-01_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &5.7098e-01_rb,5.5310e-01_rb,7.2743e-01_rb,7.3939e-01_rb,7.3730e-01_rb,6.8982e-01_rb, &\n     &6.6680e-01_rb,6.6632e-01_rb,3.5896e-01_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &5.2885e-01_rb,5.1244e-01_rb,7.5494e-01_rb,7.8724e-01_rb,7.7080e-01_rb,7.0256e-01_rb, &\n     &6.2568e-01_rb,5.6883e-01_rb,6.4732e-01_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &5.0860e-01_rb,4.9747e-01_rb,7.1101e-01_rb,7.4294e-01_rb,7.2488e-01_rb,6.6139e-01_rb, &\n     &6.0894e-01_rb,5.7630e-01_rb,5.5132e-01_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &4.9680e-01_rb,4.8858e-01_rb,6.8601e-01_rb,7.0262e-01_rb,6.9083e-01_rb,6.2832e-01_rb, &\n     &5.9581e-01_rb,5.8177e-01_rb,4.5843e-01_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &4.8828e-01_rb,4.9338e-01_rb,6.6185e-01_rb,6.8834e-01_rb,6.6433e-01_rb,6.1518e-01_rb, &\n     &5.9405e-01_rb,5.8713e-01_rb,3.7286e-01_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &4.7758e-01_rb,5.0393e-01_rb,6.4306e-01_rb,6.6695e-01_rb,6.4365e-01_rb,6.0629e-01_rb, &\n     &5.9623e-01_rb,5.8994e-01_rb,3.0878e-01_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &4.5544e-01_rb,5.1675e-01_rb,6.9040e-01_rb,7.2442e-01_rb,6.9583e-01_rb,6.2374e-01_rb, &\n     &5.5330e-01_rb,4.9819e-01_rb,5.7066e-01_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &4.3526e-01_rb,5.2433e-01_rb,6.5887e-01_rb,6.7132e-01_rb,6.4888e-01_rb,5.8229e-01_rb, &\n     &5.3592e-01_rb,5.0387e-01_rb,4.7263e-01_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &4.2386e-01_rb,5.3503e-01_rb,6.2067e-01_rb,6.3646e-01_rb,6.0983e-01_rb,5.5722e-01_rb, &\n     &5.2827e-01_rb,5.1003e-01_rb,3.8891e-01_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &4.1478e-01_rb,5.3714e-01_rb,5.9921e-01_rb,6.0957e-01_rb,5.8334e-01_rb,5.4159e-01_rb, &\n     &5.2418e-01_rb,5.1278e-01_rb,3.1885e-01_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &4.0467e-01_rb,5.2009e-01_rb,5.7701e-01_rb,5.8575e-01_rb,5.6859e-01_rb,5.4155e-01_rb, &\n     &5.3930e-01_rb,5.1710e-01_rb,2.6235e-01_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &4.0091e-01_rb,5.6115e-01_rb,6.4335e-01_rb,6.5229e-01_rb,6.2013e-01_rb,5.5832e-01_rb, &\n     &4.9333e-01_rb,4.3362e-01_rb,5.1143e-01_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &3.8169e-01_rb,5.2953e-01_rb,5.9829e-01_rb,6.0811e-01_rb,5.7734e-01_rb,5.1950e-01_rb, &\n     &4.7393e-01_rb,4.3986e-01_rb,4.2322e-01_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &3.7078e-01_rb,5.0436e-01_rb,5.6958e-01_rb,5.7197e-01_rb,5.3831e-01_rb,4.9299e-01_rb, &\n     &4.6737e-01_rb,4.4557e-01_rb,3.4628e-01_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &3.6161e-01_rb,4.8989e-01_rb,5.4426e-01_rb,5.4657e-01_rb,5.1938e-01_rb,4.8189e-01_rb, &\n     &4.6346e-01_rb,4.4852e-01_rb,2.8491e-01_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &3.5235e-01_rb,4.6785e-01_rb,5.2499e-01_rb,5.2434e-01_rb,5.0210e-01_rb,4.7954e-01_rb, &\n     &4.8680e-01_rb,4.5258e-01_rb,2.3809e-01_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &3.5188e-01_rb,5.0784e-01_rb,5.8680e-01_rb,5.8599e-01_rb,5.5453e-01_rb,4.9355e-01_rb, &\n     &4.3434e-01_rb,3.7345e-01_rb,4.5760e-01_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &3.3384e-01_rb,4.7725e-01_rb,5.4527e-01_rb,5.4039e-01_rb,5.1277e-01_rb,4.6053e-01_rb, &\n     &4.1752e-01_rb,3.8054e-01_rb,3.7664e-01_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &3.2337e-01_rb,4.6079e-01_rb,5.0889e-01_rb,5.0540e-01_rb,4.8167e-01_rb,4.3259e-01_rb, &\n     &4.1005e-01_rb,3.8447e-01_rb,3.0502e-01_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &3.1489e-01_rb,4.4224e-01_rb,4.8906e-01_rb,4.8098e-01_rb,4.5962e-01_rb,4.2889e-01_rb, &\n     &4.1407e-01_rb,3.8891e-01_rb,2.4901e-01_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &3.0731e-01_rb,4.2604e-01_rb,4.6542e-01_rb,4.6457e-01_rb,4.4425e-01_rb,4.2325e-01_rb, &\n     &4.3000e-01_rb,3.9500e-01_rb,2.1365e-01_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &3.0872e-01_rb,4.6438e-01_rb,5.2605e-01_rb,5.1940e-01_rb,4.8758e-01_rb,4.3435e-01_rb, &\n     &3.8048e-01_rb,3.2415e-01_rb,4.0329e-01_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &2.9295e-01_rb,4.4115e-01_rb,4.8348e-01_rb,4.7740e-01_rb,4.4909e-01_rb,4.0221e-01_rb, &\n     &3.6624e-01_rb,3.2721e-01_rb,3.3011e-01_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &2.8328e-01_rb,4.1772e-01_rb,4.5515e-01_rb,4.4741e-01_rb,4.2330e-01_rb,3.8012e-01_rb, &\n     &3.5851e-01_rb,3.3085e-01_rb,2.6425e-01_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &2.7562e-01_rb,4.0009e-01_rb,4.2827e-01_rb,4.2695e-01_rb,4.0250e-01_rb,3.7844e-01_rb, &\n     &3.6844e-01_rb,3.3695e-01_rb,2.1886e-01_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &2.6849e-01_rb,3.8403e-01_rb,4.1066e-01_rb,4.0861e-01_rb,3.9231e-01_rb,3.7926e-01_rb, &\n     &3.7696e-01_rb,3.4332e-01_rb,1.9262e-01_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &2.6466e-01_rb,4.1355e-01_rb,4.4454e-01_rb,4.4042e-01_rb,4.1233e-01_rb,3.6752e-01_rb, &\n     &3.2678e-01_rb,2.7894e-01_rb,3.2749e-01_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &2.5291e-01_rb,3.8781e-01_rb,4.1430e-01_rb,4.0659e-01_rb,3.8277e-01_rb,3.4153e-01_rb, &\n     &3.1495e-01_rb,2.7988e-01_rb,2.6257e-01_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &2.4541e-01_rb,3.7100e-01_rb,3.8849e-01_rb,3.8315e-01_rb,3.6055e-01_rb,3.3569e-01_rb, &\n     &3.1896e-01_rb,2.8851e-01_rb,2.1720e-01_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &2.3761e-01_rb,3.4992e-01_rb,3.7138e-01_rb,3.6645e-01_rb,3.4895e-01_rb,3.3415e-01_rb, &\n     &3.2576e-01_rb,2.9375e-01_rb,1.9101e-01_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &2.3136e-01_rb,3.3422e-01_rb,3.5550e-01_rb,3.5462e-01_rb,3.4596e-01_rb,3.4410e-01_rb, &\n     &3.3336e-01_rb,3.0010e-01_rb,1.7683e-01_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &2.3099e-01_rb,3.6467e-01_rb,3.8654e-01_rb,3.7740e-01_rb,3.5454e-01_rb,3.1341e-01_rb, &\n     &2.8207e-01_rb,2.4141e-01_rb,2.7098e-01_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &2.2244e-01_rb,3.4190e-01_rb,3.5753e-01_rb,3.5048e-01_rb,3.3109e-01_rb,2.9786e-01_rb, &\n     &2.7909e-01_rb,2.4469e-01_rb,2.1730e-01_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &2.1694e-01_rb,3.2183e-01_rb,3.3982e-01_rb,3.3193e-01_rb,3.1521e-01_rb,2.9823e-01_rb, &\n     &2.8101e-01_rb,2.4988e-01_rb,1.8539e-01_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &2.1365e-01_rb,3.0582e-01_rb,3.2214e-01_rb,3.1915e-01_rb,3.0963e-01_rb,3.0101e-01_rb, &\n     &2.9010e-01_rb,2.5511e-01_rb,1.7246e-01_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &2.1126e-01_rb,2.9440e-01_rb,3.1065e-01_rb,3.1395e-01_rb,3.1604e-01_rb,3.0993e-01_rb, &\n     &2.9537e-01_rb,2.6162e-01_rb,1.5291e-01_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &2.2386e-01_rb,3.3097e-01_rb,3.4162e-01_rb,3.3327e-01_rb,3.1314e-01_rb,2.7728e-01_rb, &\n     &2.5014e-01_rb,2.1154e-01_rb,2.3428e-01_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &2.2040e-01_rb,3.1261e-01_rb,3.2237e-01_rb,3.1373e-01_rb,2.9682e-01_rb,2.6651e-01_rb, &\n     &2.5032e-01_rb,2.1702e-01_rb,1.9039e-01_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &2.1610e-01_rb,2.9730e-01_rb,3.0955e-01_rb,3.0133e-01_rb,2.8651e-01_rb,2.7201e-01_rb, &\n     &2.5430e-01_rb,2.2027e-01_rb,1.6665e-01_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &2.1312e-01_rb,2.8629e-01_rb,2.9748e-01_rb,2.9400e-01_rb,2.8967e-01_rb,2.7599e-01_rb, &\n     &2.5853e-01_rb,2.2523e-01_rb,1.5373e-01_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &2.0806e-01_rb,2.7757e-01_rb,2.8967e-01_rb,2.9354e-01_rb,2.9376e-01_rb,2.8253e-01_rb, &\n     &2.6218e-01_rb,2.3101e-01_rb,1.3574e-01_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &3.5613e+00_rb,3.1188e+00_rb,2.6764e+00_rb,2.2340e+00_rb,1.7917e+00_rb,1.6352e+00_rb, &\n     &1.8092e+00_rb,1.6379e+00_rb,2.7539e-02_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &3.4002e+00_rb,2.9785e+00_rb,2.5569e+00_rb,2.1349e+00_rb,1.7133e+00_rb,1.7200e+00_rb, &\n     &1.7738e+00_rb,1.6325e+00_rb,3.6313e-02_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &3.2557e+00_rb,2.8529e+00_rb,2.4503e+00_rb,2.0478e+00_rb,1.6479e+00_rb,1.7947e+00_rb, &\n     &1.7613e+00_rb,1.6123e+00_rb,7.9598e-02_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &3.1418e+00_rb,2.7541e+00_rb,2.3673e+00_rb,1.9817e+00_rb,1.6011e+00_rb,1.8327e+00_rb, &\n     &1.7198e+00_rb,1.6148e+00_rb,2.1944e-01_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &3.1204e+00_rb,2.7380e+00_rb,2.3562e+00_rb,1.9785e+00_rb,1.6099e+00_rb,1.8773e+00_rb, &\n     &1.7180e+00_rb,1.6127e+00_rb,2.9776e-01_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &2.9874e+00_rb,2.6163e+00_rb,2.2453e+00_rb,1.8746e+00_rb,1.5312e+00_rb,1.8525e+00_rb, &\n     &1.7071e+00_rb,1.5893e+00_rb,5.1776e-01_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &2.8505e+00_rb,2.4972e+00_rb,2.1440e+00_rb,1.7909e+00_rb,1.5966e+00_rb,1.8306e+00_rb, &\n     &1.6863e+00_rb,1.5842e+00_rb,4.3879e-01_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &2.7350e+00_rb,2.3969e+00_rb,2.0589e+00_rb,1.7214e+00_rb,1.6370e+00_rb,1.7877e+00_rb, &\n     &1.6805e+00_rb,1.5918e+00_rb,4.1523e-01_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &2.6409e+00_rb,2.3156e+00_rb,1.9935e+00_rb,1.6727e+00_rb,1.6830e+00_rb,1.7575e+00_rb, &\n     &1.6634e+00_rb,1.5980e+00_rb,2.9373e-01_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &2.5886e+00_rb,2.2740e+00_rb,1.9607e+00_rb,1.6497e+00_rb,1.7391e+00_rb,1.7232e+00_rb, &\n     &1.6344e+00_rb,1.6105e+00_rb,1.8509e-01_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &2.5285e+00_rb,2.2147e+00_rb,1.9010e+00_rb,1.5874e+00_rb,1.8079e+00_rb,1.7347e+00_rb, &\n     &1.6267e+00_rb,1.5173e+00_rb,4.9543e-01_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &2.4109e+00_rb,2.1124e+00_rb,1.8139e+00_rb,1.5156e+00_rb,1.7831e+00_rb,1.7011e+00_rb, &\n     &1.6143e+00_rb,1.5141e+00_rb,4.4268e-01_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &2.3122e+00_rb,2.0266e+00_rb,1.7413e+00_rb,1.4891e+00_rb,1.7442e+00_rb,1.6741e+00_rb, &\n     &1.6075e+00_rb,1.5297e+00_rb,3.4522e-01_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &2.2338e+00_rb,1.9602e+00_rb,1.6889e+00_rb,1.5208e+00_rb,1.7228e+00_rb,1.6317e+00_rb, &\n     &1.5933e+00_rb,1.5434e+00_rb,2.1394e-01_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &2.1901e+00_rb,1.9250e+00_rb,1.6600e+00_rb,1.5510e+00_rb,1.6972e+00_rb,1.6258e+00_rb, &\n     &1.5808e+00_rb,1.5686e+00_rb,1.5097e-01_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &2.1490e+00_rb,1.8824e+00_rb,1.6159e+00_rb,1.5783e+00_rb,1.6916e+00_rb,1.6097e+00_rb, &\n     &1.5676e+00_rb,1.4069e+00_rb,5.0896e-01_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &2.0429e+00_rb,1.7900e+00_rb,1.5373e+00_rb,1.6130e+00_rb,1.6613e+00_rb,1.5828e+00_rb, &\n     &1.5388e+00_rb,1.4176e+00_rb,3.7374e-01_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &1.9560e+00_rb,1.7146e+00_rb,1.4748e+00_rb,1.6326e+00_rb,1.6129e+00_rb,1.5608e+00_rb, &\n     &1.5146e+00_rb,1.4336e+00_rb,2.6187e-01_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &1.8914e+00_rb,1.6603e+00_rb,1.4322e+00_rb,1.6118e+00_rb,1.5843e+00_rb,1.5418e+00_rb, &\n     &1.4880e+00_rb,1.4608e+00_rb,1.8007e-01_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &1.8569e+00_rb,1.6328e+00_rb,1.4097e+00_rb,1.6022e+00_rb,1.5587e+00_rb,1.5446e+00_rb, &\n     &1.4805e+00_rb,1.4912e+00_rb,1.1749e-01_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &1.8276e+00_rb,1.6010e+00_rb,1.3745e+00_rb,1.6030e+00_rb,1.5630e+00_rb,1.5166e+00_rb, &\n     &1.4457e+00_rb,1.2855e+00_rb,4.3144e-01_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &1.7325e+00_rb,1.5182e+00_rb,1.3289e+00_rb,1.5483e+00_rb,1.5172e+00_rb,1.4962e+00_rb, &\n     &1.4204e+00_rb,1.2974e+00_rb,3.2532e-01_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &1.6556e+00_rb,1.4514e+00_rb,1.3491e+00_rb,1.5022e+00_rb,1.4839e+00_rb,1.4801e+00_rb, &\n     &1.3899e+00_rb,1.3214e+00_rb,2.2874e-01_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &1.6008e+00_rb,1.4058e+00_rb,1.3614e+00_rb,1.4817e+00_rb,1.4667e+00_rb,1.4542e+00_rb, &\n     &1.3728e+00_rb,1.3543e+00_rb,1.4774e-01_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &1.5722e+00_rb,1.3835e+00_rb,1.3910e+00_rb,1.4609e+00_rb,1.4510e+00_rb,1.4341e+00_rb, &\n     &1.3580e+00_rb,1.3940e+00_rb,9.9947e-02_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &1.5600e+00_rb,1.3665e+00_rb,1.3891e+00_rb,1.4520e+00_rb,1.4361e+00_rb,1.4207e+00_rb, &\n     &1.3105e+00_rb,1.1513e+00_rb,3.8692e-01_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &1.4739e+00_rb,1.2917e+00_rb,1.3972e+00_rb,1.4114e+00_rb,1.4085e+00_rb,1.3840e+00_rb, &\n     &1.2763e+00_rb,1.1653e+00_rb,2.7607e-01_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &1.4042e+00_rb,1.2317e+00_rb,1.3535e+00_rb,1.3731e+00_rb,1.3834e+00_rb,1.3540e+00_rb, &\n     &1.2537e+00_rb,1.1954e+00_rb,1.8549e-01_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &1.3553e+00_rb,1.1909e+00_rb,1.3235e+00_rb,1.3411e+00_rb,1.3606e+00_rb,1.3282e+00_rb, &\n     &1.2356e+00_rb,1.2339e+00_rb,1.3113e-01_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &1.3290e+00_rb,1.1708e+00_rb,1.3052e+00_rb,1.3291e+00_rb,1.3435e+00_rb,1.3084e+00_rb, &\n     &1.2394e+00_rb,1.2789e+00_rb,8.5104e-02_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &1.3486e+00_rb,1.1821e+00_rb,1.3320e+00_rb,1.3296e+00_rb,1.3530e+00_rb,1.2921e+00_rb, &\n     &1.1792e+00_rb,1.0146e+00_rb,3.3967e-01_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &1.2698e+00_rb,1.1140e+00_rb,1.2658e+00_rb,1.2934e+00_rb,1.3084e+00_rb,1.2591e+00_rb, &\n     &1.1496e+00_rb,1.0323e+00_rb,2.4089e-01_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &1.2066e+00_rb,1.0597e+00_rb,1.2265e+00_rb,1.2606e+00_rb,1.2717e+00_rb,1.2202e+00_rb, &\n     &1.1236e+00_rb,1.0630e+00_rb,1.6653e-01_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &1.1624e+00_rb,1.0337e+00_rb,1.1938e+00_rb,1.2388e+00_rb,1.2436e+00_rb,1.1958e+00_rb, &\n     &1.1143e+00_rb,1.1071e+00_rb,1.1640e-01_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &1.1373e+00_rb,1.0419e+00_rb,1.1824e+00_rb,1.2289e+00_rb,1.2206e+00_rb,1.1715e+00_rb, &\n     &1.1114e+00_rb,1.1517e+00_rb,7.1520e-02_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &1.1959e+00_rb,1.0587e+00_rb,1.2168e+00_rb,1.2562e+00_rb,1.2533e+00_rb,1.1755e+00_rb, &\n     &1.0535e+00_rb,8.9257e-01_rb,2.9562e-01_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &1.1212e+00_rb,1.0393e+00_rb,1.1676e+00_rb,1.2170e+00_rb,1.2001e+00_rb,1.1361e+00_rb, &\n     &1.0253e+00_rb,9.0430e-01_rb,2.1449e-01_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &1.0601e+00_rb,1.0297e+00_rb,1.1266e+00_rb,1.1809e+00_rb,1.1623e+00_rb,1.1020e+00_rb, &\n     &1.0023e+00_rb,9.3591e-01_rb,1.5382e-01_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &1.0187e+00_rb,1.0227e+00_rb,1.0991e+00_rb,1.1460e+00_rb,1.1243e+00_rb,1.0751e+00_rb, &\n     &9.9421e-01_rb,9.7855e-01_rb,1.0944e-01_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &9.9531e-01_rb,1.0219e+00_rb,1.0832e+00_rb,1.1243e+00_rb,1.1050e+00_rb,1.0609e+00_rb, &\n     &9.9136e-01_rb,1.0252e+00_rb,7.0614e-02_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &1.0539e+00_rb,1.0559e+00_rb,1.1142e+00_rb,1.1729e+00_rb,1.1295e+00_rb,1.0580e+00_rb, &\n     &9.3382e-01_rb,7.7194e-01_rb,2.7489e-01_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &9.8392e-01_rb,1.0263e+00_rb,1.0713e+00_rb,1.1148e+00_rb,1.0796e+00_rb,1.0137e+00_rb, &\n     &9.0260e-01_rb,7.8234e-01_rb,1.9796e-01_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &9.2807e-01_rb,9.7104e-01_rb,1.0401e+00_rb,1.0698e+00_rb,1.0381e+00_rb,9.8279e-01_rb, &\n     &8.8087e-01_rb,8.1424e-01_rb,1.4396e-01_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &8.9022e-01_rb,9.3422e-01_rb,1.0109e+00_rb,1.0366e+00_rb,1.0048e+00_rb,9.5511e-01_rb, &\n     &8.7539e-01_rb,8.5432e-01_rb,1.0430e-01_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &8.6877e-01_rb,9.2050e-01_rb,1.0000e+00_rb,1.0116e+00_rb,9.8826e-01_rb,9.4009e-01_rb, &\n     &8.7922e-01_rb,9.0156e-01_rb,6.8077e-02_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &9.2527e-01_rb,9.7705e-01_rb,1.0325e+00_rb,1.0578e+00_rb,1.0149e+00_rb,9.3478e-01_rb, &\n     &8.1724e-01_rb,6.6415e-01_rb,2.3891e-01_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &8.6097e-01_rb,9.1106e-01_rb,9.9506e-01_rb,1.0007e+00_rb,9.6610e-01_rb,8.9639e-01_rb, &\n     &7.8861e-01_rb,6.7596e-01_rb,1.7815e-01_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &8.1181e-01_rb,8.7070e-01_rb,9.5033e-01_rb,9.5476e-01_rb,9.2168e-01_rb,8.6431e-01_rb, &\n     &7.7032e-01_rb,7.0318e-01_rb,1.3199e-01_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &7.7887e-01_rb,8.4520e-01_rb,9.2163e-01_rb,9.1956e-01_rb,8.9130e-01_rb,8.3659e-01_rb, &\n     &7.6501e-01_rb,7.4145e-01_rb,9.1831e-02_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &7.5933e-01_rb,8.3227e-01_rb,9.0273e-01_rb,9.0188e-01_rb,8.7623e-01_rb,8.2773e-01_rb, &\n     &7.7824e-01_rb,7.8260e-01_rb,6.3171e-02_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &7.8226e-01_rb,8.4719e-01_rb,9.2612e-01_rb,9.1570e-01_rb,8.7421e-01_rb,8.0479e-01_rb, &\n     &6.9799e-01_rb,5.7039e-01_rb,1.8643e-01_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &7.3229e-01_rb,8.0376e-01_rb,8.7472e-01_rb,8.6879e-01_rb,8.2958e-01_rb,7.6891e-01_rb, &\n     &6.7602e-01_rb,5.8714e-01_rb,1.4000e-01_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &6.9599e-01_rb,7.7478e-01_rb,8.4133e-01_rb,8.3314e-01_rb,7.9919e-01_rb,7.4119e-01_rb, &\n     &6.6696e-01_rb,6.1671e-01_rb,1.0181e-01_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &6.7489e-01_rb,7.6185e-01_rb,8.1367e-01_rb,8.1128e-01_rb,7.7952e-01_rb,7.3228e-01_rb, &\n     &6.7358e-01_rb,6.5125e-01_rb,7.0225e-02_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &6.5905e-01_rb,7.5391e-01_rb,7.9725e-01_rb,7.9623e-01_rb,7.7236e-01_rb,7.3477e-01_rb, &\n     &6.9321e-01_rb,6.9245e-01_rb,4.7555e-02_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &6.7862e-01_rb,7.6075e-01_rb,8.1212e-01_rb,7.9974e-01_rb,7.5616e-01_rb,6.9320e-01_rb, &\n     &5.9851e-01_rb,4.9309e-01_rb,1.4949e-01_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &6.3807e-01_rb,7.3022e-01_rb,7.7190e-01_rb,7.6245e-01_rb,7.2390e-01_rb,6.6782e-01_rb, &\n     &5.8563e-01_rb,5.1153e-01_rb,1.1607e-01_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &6.1294e-01_rb,7.1220e-01_rb,7.4125e-01_rb,7.3342e-01_rb,6.9810e-01_rb,6.4969e-01_rb, &\n     &5.8866e-01_rb,5.3877e-01_rb,8.5989e-02_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &5.9734e-01_rb,7.0046e-01_rb,7.2548e-01_rb,7.1635e-01_rb,6.8868e-01_rb,6.5109e-01_rb, &\n     &5.9747e-01_rb,5.7263e-01_rb,5.7849e-02_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &5.8148e-01_rb,6.8644e-01_rb,7.1487e-01_rb,7.0660e-01_rb,6.8790e-01_rb,6.6368e-01_rb, &\n     &6.1903e-01_rb,6.0994e-01_rb,3.8734e-02_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &6.1552e-01_rb,7.1356e-01_rb,7.3721e-01_rb,7.1646e-01_rb,6.7473e-01_rb,6.1507e-01_rb, &\n     &5.2767e-01_rb,4.3311e-01_rb,1.2482e-01_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &5.8292e-01_rb,6.8409e-01_rb,7.0235e-01_rb,6.8503e-01_rb,6.4503e-01_rb,5.9514e-01_rb, &\n     &5.2204e-01_rb,4.4742e-01_rb,9.8236e-02_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &5.6436e-01_rb,6.6497e-01_rb,6.8075e-01_rb,6.6573e-01_rb,6.3039e-01_rb,5.8718e-01_rb, &\n     &5.2651e-01_rb,4.7434e-01_rb,7.2297e-02_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &5.4811e-01_rb,6.4832e-01_rb,6.6742e-01_rb,6.5348e-01_rb,6.2977e-01_rb,5.9747e-01_rb, &\n     &5.3863e-01_rb,5.0502e-01_rb,5.7494e-02_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &5.3739e-01_rb,6.3448e-01_rb,6.5434e-01_rb,6.4659e-01_rb,6.3825e-01_rb,6.0640e-01_rb, &\n     &5.6100e-01_rb,5.4046e-01_rb,3.2048e-02_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &1.1660e+01_rb,1.0203e+01_rb,8.7459e+00_rb,7.2889e+00_rb,5.8318e+00_rb,4.3748e+00_rb, &\n     &3.7766e+00_rb,3.7739e+00_rb,2.3608e-03_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &1.1346e+01_rb,9.9282e+00_rb,8.5104e+00_rb,7.0926e+00_rb,5.6748e+00_rb,4.2570e+00_rb, &\n     &3.8721e+00_rb,3.9057e+00_rb,3.1824e-03_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &1.1194e+01_rb,9.7951e+00_rb,8.3963e+00_rb,6.9976e+00_rb,5.5988e+00_rb,4.2000e+00_rb, &\n     &3.9469e+00_rb,4.0712e+00_rb,4.2520e-03_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &1.1228e+01_rb,9.8250e+00_rb,8.4220e+00_rb,7.0189e+00_rb,5.6159e+00_rb,4.2457e+00_rb, &\n     &4.0615e+00_rb,4.2140e+00_rb,1.1766e-02_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &1.1405e+01_rb,9.9798e+00_rb,8.5545e+00_rb,7.1289e+00_rb,5.7036e+00_rb,4.3747e+00_rb, &\n     &4.1857e+00_rb,4.3557e+00_rb,1.5766e-01_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &9.6985e+00_rb,8.4867e+00_rb,7.2748e+00_rb,6.0630e+00_rb,4.8511e+00_rb,3.9524e+00_rb, &\n     &3.9347e+00_rb,3.7679e+00_rb,7.6708e-02_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &9.4032e+00_rb,8.2283e+00_rb,7.0533e+00_rb,5.8784e+00_rb,4.7035e+00_rb,3.9843e+00_rb, &\n     &4.0089e+00_rb,3.9489e+00_rb,9.1596e-02_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &9.2359e+00_rb,8.0819e+00_rb,6.9278e+00_rb,5.7738e+00_rb,4.6198e+00_rb,4.0563e+00_rb, &\n     &4.1174e+00_rb,4.1185e+00_rb,7.3144e-02_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &9.2178e+00_rb,8.0660e+00_rb,6.9143e+00_rb,5.7625e+00_rb,4.6107e+00_rb,4.1515e+00_rb, &\n     &4.2394e+00_rb,4.2904e+00_rb,1.1674e-01_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &9.3781e+00_rb,8.2055e+00_rb,7.0329e+00_rb,5.8605e+00_rb,4.6883e+00_rb,4.2988e+00_rb, &\n     &4.3503e+00_rb,4.4505e+00_rb,1.2134e-01_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &8.1381e+00_rb,7.1213e+00_rb,6.1045e+00_rb,5.0877e+00_rb,4.0880e+00_rb,4.0519e+00_rb, &\n     &3.8139e+00_rb,3.6880e+00_rb,8.7204e-02_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &7.8478e+00_rb,6.8673e+00_rb,5.8868e+00_rb,4.9063e+00_rb,4.0625e+00_rb,4.0788e+00_rb, &\n     &3.9290e+00_rb,3.8689e+00_rb,6.5887e-02_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &7.6555e+00_rb,6.6990e+00_rb,5.7426e+00_rb,4.7861e+00_rb,4.0779e+00_rb,4.1101e+00_rb, &\n     &4.0765e+00_rb,4.0574e+00_rb,7.1216e-02_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &7.5783e+00_rb,6.6314e+00_rb,5.6846e+00_rb,4.7378e+00_rb,4.1353e+00_rb,4.1781e+00_rb, &\n     &4.2207e+00_rb,4.2405e+00_rb,8.4339e-02_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &7.6543e+00_rb,6.6980e+00_rb,5.7416e+00_rb,4.7853e+00_rb,4.2544e+00_rb,4.2669e+00_rb, &\n     &4.4018e+00_rb,4.4237e+00_rb,7.8612e-02_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &6.8589e+00_rb,6.0020e+00_rb,5.1451e+00_rb,4.2882e+00_rb,3.9706e+00_rb,3.8613e+00_rb, &\n     &3.5947e+00_rb,3.5300e+00_rb,6.1710e-02_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &6.5794e+00_rb,5.7574e+00_rb,4.9355e+00_rb,4.1135e+00_rb,3.9575e+00_rb,3.8878e+00_rb, &\n     &3.7477e+00_rb,3.7212e+00_rb,6.0817e-02_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &6.3760e+00_rb,5.5795e+00_rb,4.7829e+00_rb,3.9985e+00_rb,3.9783e+00_rb,3.9606e+00_rb, &\n     &3.9214e+00_rb,3.9164e+00_rb,6.3574e-02_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &6.2600e+00_rb,5.4779e+00_rb,4.6959e+00_rb,4.0045e+00_rb,4.0114e+00_rb,4.0769e+00_rb, &\n     &4.1164e+00_rb,4.1060e+00_rb,7.8132e-02_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &6.2608e+00_rb,5.4787e+00_rb,4.6966e+00_rb,4.0716e+00_rb,4.0797e+00_rb,4.1992e+00_rb, &\n     &4.3140e+00_rb,4.3043e+00_rb,7.5353e-02_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &5.7927e+00_rb,5.0691e+00_rb,4.3455e+00_rb,3.8105e+00_rb,3.8237e+00_rb,3.5526e+00_rb, &\n     &3.3728e+00_rb,3.3373e+00_rb,4.9756e-02_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &5.5277e+00_rb,4.8372e+00_rb,4.1467e+00_rb,3.7691e+00_rb,3.7793e+00_rb,3.6108e+00_rb, &\n     &3.5410e+00_rb,3.5220e+00_rb,4.2289e-02_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &5.3258e+00_rb,4.6606e+00_rb,3.9953e+00_rb,3.7485e+00_rb,3.7814e+00_rb,3.7044e+00_rb, &\n     &3.7302e+00_rb,3.7158e+00_rb,4.7217e-02_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &5.1933e+00_rb,4.5445e+00_rb,3.8958e+00_rb,3.7349e+00_rb,3.8276e+00_rb,3.8482e+00_rb, &\n     &3.9315e+00_rb,3.9070e+00_rb,5.2805e-02_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &5.1489e+00_rb,4.5057e+00_rb,3.8627e+00_rb,3.7753e+00_rb,3.9160e+00_rb,4.0236e+00_rb, &\n     &4.1558e+00_rb,4.1173e+00_rb,7.3119e-02_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &4.9153e+00_rb,4.3014e+00_rb,3.6874e+00_rb,3.6742e+00_rb,3.4664e+00_rb,3.2352e+00_rb, &\n     &3.1382e+00_rb,3.1290e+00_rb,5.3656e-02_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &4.6666e+00_rb,4.0837e+00_rb,3.5075e+00_rb,3.5947e+00_rb,3.4390e+00_rb,3.3186e+00_rb, &\n     &3.2995e+00_rb,3.2957e+00_rb,3.0716e-02_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &4.4714e+00_rb,3.9130e+00_rb,3.4299e+00_rb,3.5379e+00_rb,3.4620e+00_rb,3.4453e+00_rb, &\n     &3.4927e+00_rb,3.4789e+00_rb,2.2748e-02_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &4.3327e+00_rb,3.7916e+00_rb,3.3931e+00_rb,3.5287e+00_rb,3.5342e+00_rb,3.5995e+00_rb, &\n     &3.6934e+00_rb,3.6650e+00_rb,4.0419e-02_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &4.2621e+00_rb,3.7298e+00_rb,3.3976e+00_rb,3.5656e+00_rb,3.6513e+00_rb,3.7826e+00_rb, &\n     &3.9184e+00_rb,3.8666e+00_rb,1.0762e-01_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &4.2315e+00_rb,3.7030e+00_rb,3.3451e+00_rb,3.3493e+00_rb,3.1177e+00_rb,2.9742e+00_rb, &\n     &2.9072e+00_rb,2.9068e+00_rb,5.8460e-02_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &3.9985e+00_rb,3.4984e+00_rb,3.2669e+00_rb,3.2554e+00_rb,3.1149e+00_rb,3.0526e+00_rb, &\n     &3.0595e+00_rb,3.0700e+00_rb,2.7402e-02_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &3.8099e+00_rb,3.3338e+00_rb,3.2097e+00_rb,3.2104e+00_rb,3.1587e+00_rb,3.1808e+00_rb, &\n     &3.2348e+00_rb,3.2401e+00_rb,1.9004e-02_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &3.6700e+00_rb,3.2116e+00_rb,3.1648e+00_rb,3.2052e+00_rb,3.2433e+00_rb,3.3349e+00_rb, &\n     &3.4286e+00_rb,3.4160e+00_rb,4.2481e-02_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &3.5860e+00_rb,3.1383e+00_rb,3.1473e+00_rb,3.2492e+00_rb,3.3786e+00_rb,3.5157e+00_rb, &\n     &3.6429e+00_rb,3.6020e+00_rb,1.5676e-01_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &3.7309e+00_rb,3.2652e+00_rb,3.2085e+00_rb,3.0458e+00_rb,2.8667e+00_rb,2.7650e+00_rb, &\n     &2.6802e+00_rb,2.6374e+00_rb,6.7482e-02_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &3.5088e+00_rb,3.0710e+00_rb,3.0883e+00_rb,2.9531e+00_rb,2.8706e+00_rb,2.8363e+00_rb, &\n     &2.8330e+00_rb,2.8092e+00_rb,3.1671e-02_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &3.3283e+00_rb,2.9131e+00_rb,2.9801e+00_rb,2.9151e+00_rb,2.9077e+00_rb,2.9395e+00_rb, &\n     &2.9913e+00_rb,2.9792e+00_rb,1.9457e-02_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &3.1890e+00_rb,2.7912e+00_rb,2.9223e+00_rb,2.9235e+00_rb,2.9935e+00_rb,3.0761e+00_rb, &\n     &3.1767e+00_rb,3.1591e+00_rb,4.5502e-02_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &3.0966e+00_rb,2.7276e+00_rb,2.9000e+00_rb,2.9842e+00_rb,3.1139e+00_rb,3.2433e+00_rb, &\n     &3.3703e+00_rb,3.3444e+00_rb,1.7959e-01_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &3.2795e+00_rb,2.8728e+00_rb,2.9171e+00_rb,2.7516e+00_rb,2.6513e+00_rb,2.5188e+00_rb, &\n     &2.4080e+00_rb,2.3392e+00_rb,6.9869e-02_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &3.0734e+00_rb,2.7076e+00_rb,2.7821e+00_rb,2.6844e+00_rb,2.6368e+00_rb,2.5852e+00_rb, &\n     &2.5517e+00_rb,2.5045e+00_rb,4.1359e-02_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &2.9006e+00_rb,2.6099e+00_rb,2.6833e+00_rb,2.6568e+00_rb,2.6662e+00_rb,2.6837e+00_rb, &\n     &2.7125e+00_rb,2.6712e+00_rb,2.1538e-02_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &2.7639e+00_rb,2.5377e+00_rb,2.6242e+00_rb,2.6595e+00_rb,2.7323e+00_rb,2.8096e+00_rb, &\n     &2.8901e+00_rb,2.8466e+00_rb,5.4396e-02_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &2.6669e+00_rb,2.4856e+00_rb,2.6031e+00_rb,2.7098e+00_rb,2.8344e+00_rb,2.9696e+00_rb, &\n     &3.0834e+00_rb,3.0331e+00_rb,2.0077e-01_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &2.8722e+00_rb,2.6105e+00_rb,2.6085e+00_rb,2.5091e+00_rb,2.4056e+00_rb,2.2547e+00_rb, &\n     &2.1348e+00_rb,2.0413e+00_rb,7.1950e-02_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &2.6764e+00_rb,2.5038e+00_rb,2.4795e+00_rb,2.4482e+00_rb,2.3806e+00_rb,2.3128e+00_rb, &\n     &2.2556e+00_rb,2.1912e+00_rb,3.7979e-02_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &2.5139e+00_rb,2.4083e+00_rb,2.3949e+00_rb,2.4105e+00_rb,2.4135e+00_rb,2.4077e+00_rb, &\n     &2.4119e+00_rb,2.3558e+00_rb,2.2438e-02_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &2.3840e+00_rb,2.3185e+00_rb,2.3481e+00_rb,2.4127e+00_rb,2.4770e+00_rb,2.5357e+00_rb, &\n     &2.5771e+00_rb,2.5231e+00_rb,7.0033e-02_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &2.2922e+00_rb,2.2525e+00_rb,2.3358e+00_rb,2.4514e+00_rb,2.5719e+00_rb,2.6836e+00_rb, &\n     &2.7691e+00_rb,2.7055e+00_rb,2.1431e-01_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &2.4203e+00_rb,2.3366e+00_rb,2.2726e+00_rb,2.2388e+00_rb,2.1243e+00_rb,2.0012e+00_rb, &\n     &1.8959e+00_rb,1.8076e+00_rb,5.5769e-02_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &2.2551e+00_rb,2.2021e+00_rb,2.1879e+00_rb,2.1841e+00_rb,2.1218e+00_rb,2.0691e+00_rb, &\n     &2.0223e+00_rb,1.9543e+00_rb,2.8668e-02_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &2.1166e+00_rb,2.0926e+00_rb,2.1229e+00_rb,2.1590e+00_rb,2.1592e+00_rb,2.1682e+00_rb, &\n     &2.1642e+00_rb,2.1075e+00_rb,3.1850e-02_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &2.0122e+00_rb,2.0159e+00_rb,2.0901e+00_rb,2.1693e+00_rb,2.2337e+00_rb,2.2891e+00_rb, &\n     &2.3331e+00_rb,2.2748e+00_rb,1.4071e-01_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &1.9514e+00_rb,1.9763e+00_rb,2.0989e+00_rb,2.2225e+00_rb,2.3388e+00_rb,2.4447e+00_rb, &\n     &2.5215e+00_rb,2.4588e+00_rb,2.8723e-01_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &2.0683e+00_rb,2.0370e+00_rb,2.0375e+00_rb,1.9798e+00_rb,1.8792e+00_rb,1.7675e+00_rb, &\n     &1.6700e+00_rb,1.5868e+00_rb,4.4568e-02_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &1.9287e+00_rb,1.9214e+00_rb,1.9599e+00_rb,1.9353e+00_rb,1.8869e+00_rb,1.8278e+00_rb, &\n     &1.7894e+00_rb,1.7244e+00_rb,2.3573e-02_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &1.8200e+00_rb,1.8347e+00_rb,1.9076e+00_rb,1.9217e+00_rb,1.9295e+00_rb,1.9250e+00_rb, &\n     &1.9263e+00_rb,1.8738e+00_rb,5.2475e-02_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &1.7432e+00_rb,1.7845e+00_rb,1.8845e+00_rb,1.9488e+00_rb,2.0009e+00_rb,2.0498e+00_rb, &\n     &2.0942e+00_rb,2.0382e+00_rb,1.8765e-01_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &1.7053e+00_rb,1.7760e+00_rb,1.9065e+00_rb,2.0215e+00_rb,2.1153e+00_rb,2.2054e+00_rb, &\n     &2.2781e+00_rb,2.2210e+00_rb,3.6587e-01_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &1.8562e+00_rb,1.8459e+00_rb,1.8637e+00_rb,1.7957e+00_rb,1.6878e+00_rb,1.5797e+00_rb, &\n     &1.4757e+00_rb,1.3906e+00_rb,3.6132e-02_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &1.7399e+00_rb,1.7611e+00_rb,1.7971e+00_rb,1.7529e+00_rb,1.6955e+00_rb,1.6354e+00_rb, &\n     &1.5829e+00_rb,1.5250e+00_rb,2.1418e-02_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &1.6467e+00_rb,1.6945e+00_rb,1.7550e+00_rb,1.7487e+00_rb,1.7380e+00_rb,1.7251e+00_rb, &\n     &1.7178e+00_rb,1.6689e+00_rb,6.4309e-02_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &1.5930e+00_rb,1.6654e+00_rb,1.7520e+00_rb,1.7797e+00_rb,1.8113e+00_rb,1.8460e+00_rb, &\n     &1.8831e+00_rb,1.8288e+00_rb,2.0946e-01_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &1.5695e+00_rb,1.6755e+00_rb,1.7906e+00_rb,1.8612e+00_rb,1.9314e+00_rb,2.0101e+00_rb, &\n     &2.0671e+00_rb,2.0074e+00_rb,3.8278e-01_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &4.3448e+02_rb,3.8017e+02_rb,3.2586e+02_rb,2.7155e+02_rb,2.1724e+02_rb,1.6293e+02_rb, &\n     &1.0862e+02_rb,5.5107e+01_rb,2.7465e-03_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &5.8321e+02_rb,5.1031e+02_rb,4.3741e+02_rb,3.6451e+02_rb,2.9161e+02_rb,2.1870e+02_rb, &\n     &1.4580e+02_rb,7.3550e+01_rb,3.5822e-03_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &7.6101e+02_rb,6.6588e+02_rb,5.7076e+02_rb,4.7563e+02_rb,3.8051e+02_rb,2.8538e+02_rb, &\n     &1.9025e+02_rb,9.5593e+01_rb,5.6366e-03_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &9.6683e+02_rb,8.4598e+02_rb,7.2512e+02_rb,6.0427e+02_rb,4.8342e+02_rb,3.6256e+02_rb, &\n     &2.4171e+02_rb,1.2116e+02_rb,6.3697e-02_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &1.1977e+03_rb,1.0480e+03_rb,8.9827e+02_rb,7.4856e+02_rb,5.9885e+02_rb,4.4914e+02_rb, &\n     &2.9942e+02_rb,1.4986e+02_rb,2.8050e-01_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &3.3233e+02_rb,2.9079e+02_rb,2.4925e+02_rb,2.0770e+02_rb,1.6616e+02_rb,1.2462e+02_rb, &\n     &8.3297e+01_rb,4.3020e+01_rb,1.2769e-02_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &4.5139e+02_rb,3.9497e+02_rb,3.3854e+02_rb,2.8212e+02_rb,2.2570e+02_rb,1.6927e+02_rb, &\n     &1.1303e+02_rb,5.7664e+01_rb,6.8183e-02_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &5.9515e+02_rb,5.2076e+02_rb,4.4637e+02_rb,3.7197e+02_rb,2.9758e+02_rb,2.2318e+02_rb, &\n     &1.4890e+02_rb,7.5394e+01_rb,1.7070e-01_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &7.6179e+02_rb,6.6657e+02_rb,5.7134e+02_rb,4.7612e+02_rb,3.8090e+02_rb,2.8567e+02_rb, &\n     &1.9048e+02_rb,9.5968e+01_rb,4.9948e-01_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &9.5206e+02_rb,8.3305e+02_rb,7.1404e+02_rb,5.9504e+02_rb,4.7603e+02_rb,3.5702e+02_rb, &\n     &2.3802e+02_rb,1.1952e+02_rb,1.1527e+00_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &2.3507e+02_rb,2.0568e+02_rb,1.7630e+02_rb,1.4692e+02_rb,1.1753e+02_rb,8.8151e+01_rb, &\n     &5.9624e+01_rb,3.1706e+01_rb,5.0754e-02_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &3.2531e+02_rb,2.8465e+02_rb,2.4398e+02_rb,2.0332e+02_rb,1.6266e+02_rb,1.2199e+02_rb, &\n     &8.2067e+01_rb,4.2715e+01_rb,9.9945e-02_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &4.3545e+02_rb,3.8102e+02_rb,3.2659e+02_rb,2.7216e+02_rb,2.1773e+02_rb,1.6330e+02_rb, &\n     &1.0943e+02_rb,5.6175e+01_rb,4.3033e-01_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &5.6623e+02_rb,4.9545e+02_rb,4.2468e+02_rb,3.5390e+02_rb,2.8312e+02_rb,2.1234e+02_rb, &\n     &1.4196e+02_rb,7.2208e+01_rb,1.0055e+00_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &7.1637e+02_rb,6.2682e+02_rb,5.3728e+02_rb,4.4773e+02_rb,3.5819e+02_rb,2.6864e+02_rb, &\n     &1.7932e+02_rb,9.0659e+01_rb,1.5764e+00_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &1.6080e+02_rb,1.4070e+02_rb,1.2060e+02_rb,1.0050e+02_rb,8.0399e+01_rb,6.0779e+01_rb, &\n     &4.1842e+01_rb,2.3410e+01_rb,9.5747e-02_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &2.2661e+02_rb,1.9829e+02_rb,1.6996e+02_rb,1.4163e+02_rb,1.1331e+02_rb,8.5452e+01_rb, &\n     &5.8120e+01_rb,3.1330e+01_rb,8.2203e-01_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &3.0940e+02_rb,2.7072e+02_rb,2.3205e+02_rb,1.9338e+02_rb,1.5470e+02_rb,1.1642e+02_rb, &\n     &7.8610e+01_rb,4.1331e+01_rb,1.4967e+00_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &4.0889e+02_rb,3.5778e+02_rb,3.0667e+02_rb,2.5556e+02_rb,2.0445e+02_rb,1.5361e+02_rb, &\n     &1.0323e+02_rb,5.3416e+01_rb,2.0722e+00_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &5.2581e+02_rb,4.6008e+02_rb,3.9436e+02_rb,3.2863e+02_rb,2.6291e+02_rb,1.9734e+02_rb, &\n     &1.3221e+02_rb,6.7657e+01_rb,2.6260e+00_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &1.0850e+02_rb,9.4934e+01_rb,8.1372e+01_rb,6.7810e+01_rb,5.4459e+01_rb,4.1884e+01_rb, &\n     &2.9671e+01_rb,1.7923e+01_rb,1.1913e+00_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &1.5572e+02_rb,1.3625e+02_rb,1.1679e+02_rb,9.7324e+01_rb,7.8121e+01_rb,5.9526e+01_rb, &\n     &4.1277e+01_rb,2.3510e+01_rb,1.9137e+00_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &2.1676e+02_rb,1.8967e+02_rb,1.6257e+02_rb,1.3548e+02_rb,1.0864e+02_rb,8.2293e+01_rb, &\n     &5.6282e+01_rb,3.0781e+01_rb,2.5565e+00_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &2.9183e+02_rb,2.5535e+02_rb,2.1887e+02_rb,1.8239e+02_rb,1.4612e+02_rb,1.1027e+02_rb, &\n     &7.4761e+01_rb,3.9788e+01_rb,3.1260e+00_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &3.8115e+02_rb,3.3351e+02_rb,2.8587e+02_rb,2.3822e+02_rb,1.9070e+02_rb,1.4356e+02_rb, &\n     &9.6772e+01_rb,5.0545e+01_rb,3.5402e+00_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &7.1661e+01_rb,6.2704e+01_rb,5.3746e+01_rb,4.4797e+01_rb,3.6644e+01_rb,2.8875e+01_rb, &\n     &2.1420e+01_rb,1.4378e+01_rb,2.0773e+00_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &1.0465e+02_rb,9.1565e+01_rb,7.8484e+01_rb,6.5455e+01_rb,5.3153e+01_rb,4.1163e+01_rb, &\n     &2.9464e+01_rb,1.8199e+01_rb,2.7911e+00_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &1.4858e+02_rb,1.3001e+02_rb,1.1144e+02_rb,9.2961e+01_rb,7.5079e+01_rb,5.7480e+01_rb, &\n     &4.0178e+01_rb,2.3340e+01_rb,3.3860e+00_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &2.0400e+02_rb,1.7850e+02_rb,1.5300e+02_rb,1.2759e+02_rb,1.0268e+02_rb,7.8054e+01_rb, &\n     &5.3729e+01_rb,2.9889e+01_rb,3.8146e+00_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &2.7127e+02_rb,2.3736e+02_rb,2.0345e+02_rb,1.6959e+02_rb,1.3617e+02_rb,1.0303e+02_rb, &\n     &7.0191e+01_rb,3.7883e+01_rb,4.1027e+00_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &4.7664e+01_rb,4.1706e+01_rb,3.5748e+01_rb,3.0192e+01_rb,2.5283e+01_rb,2.0687e+01_rb, &\n     &1.6356e+01_rb,1.2414e+01_rb,2.7141e+00_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &7.0406e+01_rb,6.1605e+01_rb,5.2805e+01_rb,4.4485e+01_rb,3.6675e+01_rb,2.9135e+01_rb, &\n     &2.1846e+01_rb,1.4960e+01_rb,3.3740e+00_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &1.0189e+02_rb,8.9150e+01_rb,7.6414e+01_rb,6.4182e+01_rb,5.2360e+01_rb,4.0780e+01_rb, &\n     &2.9464e+01_rb,1.8559e+01_rb,3.8705e+00_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &1.4268e+02_rb,1.2484e+02_rb,1.0701e+02_rb,8.9652e+01_rb,7.2635e+01_rb,5.5858e+01_rb, &\n     &3.9357e+01_rb,2.3287e+01_rb,4.2268e+00_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &1.9337e+02_rb,1.6920e+02_rb,1.4503e+02_rb,1.2126e+02_rb,9.7796e+01_rb,7.4601e+01_rb, &\n     &5.1680e+01_rb,2.9228e+01_rb,4.3853e+00_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &3.2619e+01_rb,2.8542e+01_rb,2.4489e+01_rb,2.1251e+01_rb,1.8391e+01_rb,1.5792e+01_rb, &\n     &1.3493e+01_rb,1.1316e+01_rb,3.0747e+00_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &4.8375e+01_rb,4.2328e+01_rb,3.6375e+01_rb,3.1177e+01_rb,2.6286e+01_rb,2.1635e+01_rb, &\n     &1.7234e+01_rb,1.3233e+01_rb,3.6551e+00_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &7.1088e+01_rb,6.2202e+01_rb,5.3468e+01_rb,4.5389e+01_rb,3.7595e+01_rb,3.0015e+01_rb, &\n     &2.2675e+01_rb,1.5741e+01_rb,4.0898e+00_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &1.0151e+02_rb,8.8821e+01_rb,7.6303e+01_rb,6.4370e+01_rb,5.2682e+01_rb,4.1218e+01_rb, &\n     &2.9982e+01_rb,1.9170e+01_rb,4.3948e+00_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &1.4013e+02_rb,1.2261e+02_rb,1.0526e+02_rb,8.8413e+01_rb,7.1810e+01_rb,5.5432e+01_rb, &\n     &3.9307e+01_rb,2.3602e+01_rb,4.4795e+00_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &2.2374e+01_rb,1.9574e+01_rb,1.7087e+01_rb,1.5322e+01_rb,1.3873e+01_rb,1.2730e+01_rb, &\n     &1.1784e+01_rb,1.0057e+01_rb,3.2920e+00_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &3.3006e+01_rb,2.8880e+01_rb,2.5155e+01_rb,2.2057e+01_rb,1.9232e+01_rb,1.6658e+01_rb, &\n     &1.4329e+01_rb,1.1850e+01_rb,3.8043e+00_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &4.8965e+01_rb,4.2845e+01_rb,3.7181e+01_rb,3.2051e+01_rb,2.7172e+01_rb,2.2508e+01_rb, &\n     &1.8078e+01_rb,1.3961e+01_rb,4.2059e+00_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &7.1218e+01_rb,6.2316e+01_rb,5.3886e+01_rb,4.5928e+01_rb,3.8193e+01_rb,3.0649e+01_rb, &\n     &2.3347e+01_rb,1.6446e+01_rb,4.4539e+00_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &1.0013e+02_rb,8.7618e+01_rb,7.5558e+01_rb,6.3912e+01_rb,5.2481e+01_rb,4.1239e+01_rb, &\n     &3.0241e+01_rb,1.9662e+01_rb,4.4837e+00_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &1.6016e+01_rb,1.4014e+01_rb,1.2654e+01_rb,1.1832e+01_rb,1.1333e+01_rb,1.1079e+01_rb, &\n     &1.0430e+01_rb,8.9198e+00_rb,3.4165e+00_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &2.3316e+01_rb,2.0402e+01_rb,1.8216e+01_rb,1.6474e+01_rb,1.5033e+01_rb,1.3817e+01_rb, &\n     &1.2667e+01_rb,1.0521e+01_rb,3.8593e+00_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &3.4676e+01_rb,3.0345e+01_rb,2.6796e+01_rb,2.3607e+01_rb,2.0669e+01_rb,1.7940e+01_rb, &\n     &1.5414e+01_rb,1.2426e+01_rb,4.1980e+00_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &5.1075e+01_rb,4.4715e+01_rb,3.9109e+01_rb,3.3826e+01_rb,2.8757e+01_rb,2.3883e+01_rb, &\n     &1.9235e+01_rb,1.4676e+01_rb,4.3830e+00_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &7.2971e+01_rb,6.3894e+01_rb,5.5508e+01_rb,4.7426e+01_rb,3.9536e+01_rb,3.1844e+01_rb, &\n     &2.4374e+01_rb,1.7279e+01_rb,4.3810e+00_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &1.3577e+01_rb,1.1946e+01_rb,1.1209e+01_rb,1.0837e+01_rb,1.0794e+01_rb,1.0607e+01_rb, &\n     &9.9046e+00_rb,8.4158e+00_rb,3.5771e+00_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &1.9792e+01_rb,1.7445e+01_rb,1.5940e+01_rb,1.4785e+01_rb,1.3920e+01_rb,1.3199e+01_rb, &\n     &1.2097e+01_rb,9.9522e+00_rb,3.9185e+00_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &2.9476e+01_rb,2.5957e+01_rb,2.3237e+01_rb,2.0843e+01_rb,1.8688e+01_rb,1.6684e+01_rb, &\n     &1.4791e+01_rb,1.1766e+01_rb,4.1553e+00_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &4.3413e+01_rb,3.8176e+01_rb,3.3695e+01_rb,2.9502e+01_rb,2.5515e+01_rb,2.1698e+01_rb, &\n     &1.8077e+01_rb,1.3908e+01_rb,4.1942e+00_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &6.2007e+01_rb,5.4458e+01_rb,4.7606e+01_rb,4.1020e+01_rb,3.4622e+01_rb,2.8398e+01_rb, &\n     &2.2392e+01_rb,1.6392e+01_rb,4.1692e+00_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &1.1680e+01_rb,1.0479e+01_rb,1.0122e+01_rb,1.0167e+01_rb,1.0289e+01_rb,1.0072e+01_rb, &\n     &9.3417e+00_rb,7.9079e+00_rb,3.5200e+00_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &1.7053e+01_rb,1.5231e+01_rb,1.4215e+01_rb,1.3566e+01_rb,1.3123e+01_rb,1.2618e+01_rb, &\n     &1.1431e+01_rb,9.3416e+00_rb,3.7828e+00_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &2.5404e+01_rb,2.2573e+01_rb,2.0511e+01_rb,1.8777e+01_rb,1.7216e+01_rb,1.5812e+01_rb, &\n     &1.4031e+01_rb,1.1064e+01_rb,3.9374e+00_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &3.7431e+01_rb,3.3112e+01_rb,2.9529e+01_rb,2.6224e+01_rb,2.3088e+01_rb,2.0100e+01_rb, &\n     &1.7184e+01_rb,1.3093e+01_rb,3.9253e+00_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &5.3474e+01_rb,4.7145e+01_rb,4.1510e+01_rb,3.6119e+01_rb,3.0908e+01_rb,2.5843e+01_rb, &\n     &2.0970e+01_rb,1.5444e+01_rb,3.9004e+00_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &1.0438e+01_rb,9.5597e+00_rb,9.5087e+00_rb,9.7911e+00_rb,9.8820e+00_rb,9.5875e+00_rb, &\n     &8.8692e+00_rb,7.4811e+00_rb,3.3069e+00_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &1.5260e+01_rb,1.3818e+01_rb,1.3178e+01_rb,1.2874e+01_rb,1.2679e+01_rb,1.2091e+01_rb, &\n     &1.0875e+01_rb,8.8312e+00_rb,3.5228e+00_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &2.2789e+01_rb,2.0434e+01_rb,1.8837e+01_rb,1.7547e+01_rb,1.6403e+01_rb,1.5263e+01_rb, &\n     &1.3389e+01_rb,1.0463e+01_rb,3.6351e+00_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &3.3586e+01_rb,2.9891e+01_rb,2.6912e+01_rb,2.4218e+01_rb,2.1653e+01_rb,1.9218e+01_rb, &\n     &1.6457e+01_rb,1.2402e+01_rb,3.6180e+00_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &4.7989e+01_rb,4.2477e+01_rb,3.7650e+01_rb,3.3082e+01_rb,2.8647e+01_rb,2.4351e+01_rb, &\n     &2.0129e+01_rb,1.4659e+01_rb,3.6174e+00_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &2.6405e+03_rb,2.3104e+03_rb,1.9803e+03_rb,1.6503e+03_rb,1.3202e+03_rb,9.9017e+02_rb, &\n     &6.6011e+02_rb,3.3006e+02_rb,2.0071e-03_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &3.3430e+03_rb,2.9251e+03_rb,2.5072e+03_rb,2.0894e+03_rb,1.6715e+03_rb,1.2536e+03_rb, &\n     &8.3575e+02_rb,4.1787e+02_rb,3.1756e-03_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &4.1007e+03_rb,3.5881e+03_rb,3.0756e+03_rb,2.5630e+03_rb,2.0504e+03_rb,1.5378e+03_rb, &\n     &1.0252e+03_rb,5.1259e+02_rb,1.5257e-02_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &4.9110e+03_rb,4.2972e+03_rb,3.6833e+03_rb,3.0694e+03_rb,2.4555e+03_rb,1.8416e+03_rb, &\n     &1.2278e+03_rb,6.1388e+02_rb,1.9623e-01_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &5.7642e+03_rb,5.0437e+03_rb,4.3232e+03_rb,3.6026e+03_rb,2.8821e+03_rb,2.1616e+03_rb, &\n     &1.4411e+03_rb,7.2053e+02_rb,3.1630e-01_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &2.0643e+03_rb,1.8062e+03_rb,1.5482e+03_rb,1.2902e+03_rb,1.0321e+03_rb,7.7410e+02_rb, &\n     &5.1607e+02_rb,2.5804e+02_rb,7.9610e-02_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &2.6419e+03_rb,2.3117e+03_rb,1.9815e+03_rb,1.6512e+03_rb,1.3210e+03_rb,9.9073e+02_rb, &\n     &6.6049e+02_rb,3.3024e+02_rb,3.1756e-01_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &3.2679e+03_rb,2.8594e+03_rb,2.4509e+03_rb,2.0424e+03_rb,1.6340e+03_rb,1.2255e+03_rb, &\n     &8.1698e+02_rb,4.0849e+02_rb,1.6019e+00_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &3.9535e+03_rb,3.4593e+03_rb,2.9652e+03_rb,2.4710e+03_rb,1.9768e+03_rb,1.4826e+03_rb, &\n     &9.8838e+02_rb,4.9419e+02_rb,2.9545e+00_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &4.6801e+03_rb,4.0951e+03_rb,3.5101e+03_rb,2.9251e+03_rb,2.3401e+03_rb,1.7551e+03_rb, &\n     &1.1700e+03_rb,5.8502e+02_rb,4.1449e+00_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &1.5076e+03_rb,1.3191e+03_rb,1.1307e+03_rb,9.4224e+02_rb,7.5379e+02_rb,5.6534e+02_rb, &\n     &3.7689e+02_rb,1.8845e+02_rb,5.0945e-01_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &1.9623e+03_rb,1.7170e+03_rb,1.4718e+03_rb,1.2265e+03_rb,9.8117e+02_rb,7.3588e+02_rb, &\n     &4.9059e+02_rb,2.4529e+02_rb,2.4679e+00_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &2.4731e+03_rb,2.1640e+03_rb,1.8549e+03_rb,1.5457e+03_rb,1.2366e+03_rb,9.2743e+02_rb, &\n     &6.1829e+02_rb,3.0914e+02_rb,5.8082e+00_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &3.0330e+03_rb,2.6538e+03_rb,2.2747e+03_rb,1.8956e+03_rb,1.5165e+03_rb,1.1374e+03_rb, &\n     &7.5824e+02_rb,3.7912e+02_rb,6.6677e+00_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &3.6345e+03_rb,3.1802e+03_rb,2.7259e+03_rb,2.2715e+03_rb,1.8172e+03_rb,1.3629e+03_rb, &\n     &9.0862e+02_rb,4.5431e+02_rb,6.6949e+00_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &1.0627e+03_rb,9.2986e+02_rb,7.9702e+02_rb,6.6419e+02_rb,5.3135e+02_rb,3.9851e+02_rb, &\n     &2.6568e+02_rb,1.3284e+02_rb,8.6599e+00_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &1.4166e+03_rb,1.2395e+03_rb,1.0624e+03_rb,8.8537e+02_rb,7.0829e+02_rb,5.3122e+02_rb, &\n     &3.5415e+02_rb,1.7707e+02_rb,9.4746e+00_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &1.8198e+03_rb,1.5923e+03_rb,1.3648e+03_rb,1.1374e+03_rb,9.0989e+02_rb,6.8241e+02_rb, &\n     &4.5494e+02_rb,2.2747e+02_rb,9.4272e+00_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &2.2704e+03_rb,1.9866e+03_rb,1.7028e+03_rb,1.4190e+03_rb,1.1352e+03_rb,8.5140e+02_rb, &\n     &5.6760e+02_rb,2.8380e+02_rb,9.3833e+00_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &2.7615e+03_rb,2.4164e+03_rb,2.0712e+03_rb,1.7260e+03_rb,1.3808e+03_rb,1.0356e+03_rb, &\n     &6.9039e+02_rb,3.4519e+02_rb,9.3214e+00_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &7.3556e+02_rb,6.4362e+02_rb,5.5167e+02_rb,4.5973e+02_rb,3.6778e+02_rb,2.7584e+02_rb, &\n     &1.8389e+02_rb,9.1946e+01_rb,1.0345e+01_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &1.0082e+03_rb,8.8219e+02_rb,7.5616e+02_rb,6.3013e+02_rb,5.0411e+02_rb,3.7808e+02_rb, &\n     &2.5205e+02_rb,1.2603e+02_rb,1.0318e+01_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &1.3203e+03_rb,1.1552e+03_rb,9.9020e+02_rb,8.2516e+02_rb,6.6013e+02_rb,4.9510e+02_rb, &\n     &3.3007e+02_rb,1.6503e+02_rb,1.0269e+01_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &1.6790e+03_rb,1.4691e+03_rb,1.2593e+03_rb,1.0494e+03_rb,8.3951e+02_rb,6.2963e+02_rb, &\n     &4.1976e+02_rb,2.0988e+02_rb,1.0211e+01_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &2.0720e+03_rb,1.8130e+03_rb,1.5540e+03_rb,1.2950e+03_rb,1.0360e+03_rb,7.7699e+02_rb, &\n     &5.1799e+02_rb,2.5900e+02_rb,1.0128e+01_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &4.9443e+02_rb,4.3263e+02_rb,3.7082e+02_rb,3.0902e+02_rb,2.4721e+02_rb,1.8541e+02_rb, &\n     &1.2361e+02_rb,6.1804e+01_rb,1.1088e+01_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &6.9842e+02_rb,6.1111e+02_rb,5.2381e+02_rb,4.3651e+02_rb,3.4921e+02_rb,2.6191e+02_rb, &\n     &1.7460e+02_rb,8.7302e+01_rb,1.1041e+01_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &9.3821e+02_rb,8.2094e+02_rb,7.0366e+02_rb,5.8638e+02_rb,4.6911e+02_rb,3.5183e+02_rb, &\n     &2.3455e+02_rb,1.1728e+02_rb,1.0988e+01_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &1.2155e+03_rb,1.0636e+03_rb,9.1165e+02_rb,7.5971e+02_rb,6.0777e+02_rb,4.5582e+02_rb, &\n     &3.0388e+02_rb,1.5194e+02_rb,1.0913e+01_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &1.5286e+03_rb,1.3375e+03_rb,1.1464e+03_rb,9.5536e+02_rb,7.6429e+02_rb,5.7321e+02_rb, &\n     &3.8214e+02_rb,1.9107e+02_rb,1.0808e+01_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &3.2977e+02_rb,2.8854e+02_rb,2.4732e+02_rb,2.0610e+02_rb,1.6488e+02_rb,1.2366e+02_rb, &\n     &8.2441e+01_rb,4.1221e+01_rb,1.1566e+01_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &4.8209e+02_rb,4.2183e+02_rb,3.6157e+02_rb,3.0131e+02_rb,2.4104e+02_rb,1.8078e+02_rb, &\n     &1.2052e+02_rb,6.0261e+01_rb,1.1564e+01_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &6.6530e+02_rb,5.8214e+02_rb,4.9898e+02_rb,4.1581e+02_rb,3.3265e+02_rb,2.4949e+02_rb, &\n     &1.6632e+02_rb,8.3163e+01_rb,1.1535e+01_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &8.8049e+02_rb,7.7043e+02_rb,6.6036e+02_rb,5.5030e+02_rb,4.4024e+02_rb,3.3018e+02_rb, &\n     &2.2012e+02_rb,1.1006e+02_rb,1.1437e+01_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &1.1278e+03_rb,9.8684e+02_rb,8.4586e+02_rb,7.0488e+02_rb,5.6391e+02_rb,4.2293e+02_rb, &\n     &2.8195e+02_rb,1.4098e+02_rb,1.1316e+01_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &2.2204e+02_rb,1.9428e+02_rb,1.6653e+02_rb,1.3877e+02_rb,1.1102e+02_rb,8.3264e+01_rb, &\n     &5.5510e+01_rb,3.0059e+01_rb,1.1861e+01_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &3.3638e+02_rb,2.9433e+02_rb,2.5228e+02_rb,2.1024e+02_rb,1.6819e+02_rb,1.2614e+02_rb, &\n     &8.4095e+01_rb,4.2076e+01_rb,1.1785e+01_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &4.7771e+02_rb,4.1800e+02_rb,3.5828e+02_rb,2.9857e+02_rb,2.3886e+02_rb,1.7914e+02_rb, &\n     &1.1943e+02_rb,5.9714e+01_rb,1.1693e+01_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &6.4744e+02_rb,5.6651e+02_rb,4.8558e+02_rb,4.0465e+02_rb,3.2372e+02_rb,2.4279e+02_rb, &\n     &1.6186e+02_rb,8.0931e+01_rb,1.1572e+01_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &8.4463e+02_rb,7.3905e+02_rb,6.3347e+02_rb,5.2789e+02_rb,4.2232e+02_rb,3.1674e+02_rb, &\n     &2.1116e+02_rb,1.0558e+02_rb,1.1447e+01_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &1.4633e+02_rb,1.2804e+02_rb,1.0975e+02_rb,9.1455e+01_rb,7.3164e+01_rb,5.4873e+01_rb, &\n     &3.7228e+01_rb,2.6999e+01_rb,1.1829e+01_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &2.2961e+02_rb,2.0091e+02_rb,1.7220e+02_rb,1.4350e+02_rb,1.1480e+02_rb,8.6102e+01_rb, &\n     &5.7402e+01_rb,3.3291e+01_rb,1.1753e+01_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &3.3705e+02_rb,2.9492e+02_rb,2.5279e+02_rb,2.1066e+02_rb,1.6852e+02_rb,1.2639e+02_rb, &\n     &8.4263e+01_rb,4.2726e+01_rb,1.1656e+01_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &4.6791e+02_rb,4.0942e+02_rb,3.5094e+02_rb,2.9245e+02_rb,2.3396e+02_rb,1.7547e+02_rb, &\n     &1.1698e+02_rb,5.8490e+01_rb,1.1546e+01_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &6.2380e+02_rb,5.4582e+02_rb,4.6785e+02_rb,3.8987e+02_rb,3.1190e+02_rb,2.3392e+02_rb, &\n     &1.5595e+02_rb,7.7975e+01_rb,1.1440e+01_rb/)\n      kao(:, 1,10,10) = (/ &\n     &9.9121e+01_rb,8.6731e+01_rb,7.4340e+01_rb,6.1950e+01_rb,4.9560e+01_rb,3.7719e+01_rb, &\n     &3.0913e+01_rb,2.3571e+01_rb,1.2025e+01_rb/)\n      kao(:, 2,10,10) = (/ &\n     &1.5969e+02_rb,1.3973e+02_rb,1.1977e+02_rb,9.9804e+01_rb,7.9844e+01_rb,5.9883e+01_rb, &\n     &4.1267e+01_rb,2.9611e+01_rb,1.1959e+01_rb/)\n      kao(:, 3,10,10) = (/ &\n     &2.4182e+02_rb,2.1160e+02_rb,1.8137e+02_rb,1.5114e+02_rb,1.2091e+02_rb,9.0684e+01_rb, &\n     &6.0456e+01_rb,3.6780e+01_rb,1.1864e+01_rb/)\n      kao(:, 4,10,10) = (/ &\n     &3.4325e+02_rb,3.0034e+02_rb,2.5744e+02_rb,2.1453e+02_rb,1.7163e+02_rb,1.2872e+02_rb, &\n     &8.5813e+01_rb,4.5301e+01_rb,1.1768e+01_rb/)\n      kao(:, 5,10,10) = (/ &\n     &4.6649e+02_rb,4.0818e+02_rb,3.4987e+02_rb,2.9156e+02_rb,2.3325e+02_rb,1.7493e+02_rb, &\n     &1.1662e+02_rb,5.8448e+01_rb,1.1666e+01_rb/)\n      kao(:, 1,11,10) = (/ &\n     &8.4453e+01_rb,7.3896e+01_rb,6.3339e+01_rb,5.2783e+01_rb,4.2282e+01_rb,3.5008e+01_rb, &\n     &3.0468e+01_rb,2.2795e+01_rb,1.2480e+01_rb/)\n      kao(:, 2,11,10) = (/ &\n     &1.3606e+02_rb,1.1905e+02_rb,1.0204e+02_rb,8.5035e+01_rb,6.8028e+01_rb,5.1171e+01_rb, &\n     &3.9405e+01_rb,2.8346e+01_rb,1.2418e+01_rb/)\n      kao(:, 3,11,10) = (/ &\n     &2.0562e+02_rb,1.7991e+02_rb,1.5421e+02_rb,1.2851e+02_rb,1.0281e+02_rb,7.7106e+01_rb, &\n     &5.2236e+01_rb,3.5283e+01_rb,1.2333e+01_rb/)\n      kao(:, 4,11,10) = (/ &\n     &2.9197e+02_rb,2.5547e+02_rb,2.1898e+02_rb,1.8248e+02_rb,1.4598e+02_rb,1.0949e+02_rb, &\n     &7.2992e+01_rb,4.3383e+01_rb,1.2243e+01_rb/)\n      kao(:, 5,11,10) = (/ &\n     &3.9645e+02_rb,3.4690e+02_rb,2.9734e+02_rb,2.4778e+02_rb,1.9823e+02_rb,1.4867e+02_rb, &\n     &9.9113e+01_rb,5.2639e+01_rb,1.2132e+01_rb/)\n      kao(:, 1,12,10) = (/ &\n     &7.3008e+01_rb,6.3882e+01_rb,5.4756e+01_rb,4.5630e+01_rb,3.8097e+01_rb,3.4292e+01_rb, &\n     &2.9157e+01_rb,2.1820e+01_rb,1.2784e+01_rb/)\n      kao(:, 2,12,10) = (/ &\n     &1.1777e+02_rb,1.0304e+02_rb,8.8324e+01_rb,7.3604e+01_rb,5.8883e+01_rb,4.6283e+01_rb, &\n     &3.8218e+01_rb,2.7110e+01_rb,1.2693e+01_rb/)\n      kao(:, 3,12,10) = (/ &\n     &1.7754e+02_rb,1.5535e+02_rb,1.3316e+02_rb,1.1096e+02_rb,8.8771e+01_rb,6.6578e+01_rb, &\n     &4.9180e+01_rb,3.3603e+01_rb,1.2566e+01_rb/)\n      kao(:, 4,12,10) = (/ &\n     &2.5172e+02_rb,2.2026e+02_rb,1.8879e+02_rb,1.5733e+02_rb,1.2586e+02_rb,9.4396e+01_rb, &\n     &6.3855e+01_rb,4.1285e+01_rb,1.2431e+01_rb/)\n      kao(:, 5,12,10) = (/ &\n     &3.4203e+02_rb,2.9928e+02_rb,2.5652e+02_rb,2.1377e+02_rb,1.7102e+02_rb,1.2826e+02_rb, &\n     &8.5508e+01_rb,5.0087e+01_rb,1.2252e+01_rb/)\n      kao(:, 1,13,10) = (/ &\n     &6.5744e+01_rb,5.7526e+01_rb,4.9308e+01_rb,4.1412e+01_rb,3.7107e+01_rb,3.3686e+01_rb, &\n     &2.7959e+01_rb,2.0954e+01_rb,1.2543e+01_rb/)\n      kao(:, 2,13,10) = (/ &\n     &1.0592e+02_rb,9.2679e+01_rb,7.9440e+01_rb,6.6200e+01_rb,5.3492e+01_rb,4.5296e+01_rb, &\n     &3.7012e+01_rb,2.6073e+01_rb,1.2385e+01_rb/)\n      kao(:, 3,13,10) = (/ &\n     &1.5952e+02_rb,1.3958e+02_rb,1.1964e+02_rb,9.9699e+01_rb,7.9759e+01_rb,6.0961e+01_rb, &\n     &4.7985e+01_rb,3.2430e+01_rb,1.2250e+01_rb/)\n      kao(:, 4,13,10) = (/ &\n     &2.2626e+02_rb,1.9798e+02_rb,1.6969e+02_rb,1.4141e+02_rb,1.1313e+02_rb,8.4848e+01_rb, &\n     &6.0965e+01_rb,3.9929e+01_rb,1.2100e+01_rb/)\n      kao(:, 5,13,10) = (/ &\n     &3.0736e+02_rb,2.6894e+02_rb,2.3052e+02_rb,1.9210e+02_rb,1.5368e+02_rb,1.1526e+02_rb, &\n     &7.7678e+01_rb,4.8494e+01_rb,1.1980e+01_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &3.9010e+03_rb,3.4134e+03_rb,2.9257e+03_rb,2.4381e+03_rb,1.9505e+03_rb,1.4629e+03_rb, &\n     &9.7525e+02_rb,4.8762e+02_rb,2.5641e-03_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &4.8941e+03_rb,4.2823e+03_rb,3.6706e+03_rb,3.0588e+03_rb,2.4471e+03_rb,1.8353e+03_rb, &\n     &1.2235e+03_rb,6.1176e+02_rb,4.7147e-03_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &6.0244e+03_rb,5.2713e+03_rb,4.5183e+03_rb,3.7652e+03_rb,3.0122e+03_rb,2.2591e+03_rb, &\n     &1.5061e+03_rb,7.5305e+02_rb,1.8229e-02_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &7.2726e+03_rb,6.3635e+03_rb,5.4544e+03_rb,4.5454e+03_rb,3.6363e+03_rb,2.7272e+03_rb, &\n     &1.8181e+03_rb,9.0907e+02_rb,4.1403e-02_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &8.6200e+03_rb,7.5425e+03_rb,6.4650e+03_rb,5.3875e+03_rb,4.3100e+03_rb,3.2325e+03_rb, &\n     &2.1550e+03_rb,1.0775e+03_rb,7.0391e-01_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &3.0926e+03_rb,2.7060e+03_rb,2.3194e+03_rb,1.9329e+03_rb,1.5463e+03_rb,1.1597e+03_rb, &\n     &7.7315e+02_rb,3.8657e+02_rb,1.4758e-01_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &3.9512e+03_rb,3.4573e+03_rb,2.9634e+03_rb,2.4695e+03_rb,1.9756e+03_rb,1.4817e+03_rb, &\n     &9.8779e+02_rb,4.9390e+02_rb,7.5464e-01_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &4.9225e+03_rb,4.3072e+03_rb,3.6919e+03_rb,3.0766e+03_rb,2.4613e+03_rb,1.8460e+03_rb, &\n     &1.2306e+03_rb,6.1532e+02_rb,2.2469e+00_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &6.0042e+03_rb,5.2537e+03_rb,4.5032e+03_rb,3.7526e+03_rb,3.0021e+03_rb,2.2516e+03_rb, &\n     &1.5011e+03_rb,7.5053e+02_rb,4.5134e+00_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &7.1983e+03_rb,6.2985e+03_rb,5.3987e+03_rb,4.4989e+03_rb,3.5991e+03_rb,2.6994e+03_rb, &\n     &1.7996e+03_rb,8.9979e+02_rb,5.4294e+00_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &2.3009e+03_rb,2.0133e+03_rb,1.7257e+03_rb,1.4381e+03_rb,1.1505e+03_rb,8.6285e+02_rb, &\n     &5.7523e+02_rb,2.8762e+02_rb,4.0343e+00_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &2.9916e+03_rb,2.6177e+03_rb,2.2437e+03_rb,1.8698e+03_rb,1.4958e+03_rb,1.1219e+03_rb, &\n     &7.4790e+02_rb,3.7395e+02_rb,9.4960e+00_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &3.7957e+03_rb,3.3213e+03_rb,2.8468e+03_rb,2.3723e+03_rb,1.8979e+03_rb,1.4234e+03_rb, &\n     &9.4893e+02_rb,4.7447e+02_rb,9.8961e+00_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &4.7090e+03_rb,4.1204e+03_rb,3.5318e+03_rb,2.9432e+03_rb,2.3545e+03_rb,1.7659e+03_rb, &\n     &1.1773e+03_rb,5.8863e+02_rb,9.8448e+00_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &5.7119e+03_rb,4.9979e+03_rb,4.2839e+03_rb,3.5699e+03_rb,2.8560e+03_rb,2.1420e+03_rb, &\n     &1.4280e+03_rb,7.1399e+02_rb,9.5434e+00_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &1.6459e+03_rb,1.4402e+03_rb,1.2345e+03_rb,1.0287e+03_rb,8.2297e+02_rb,6.1723e+02_rb, &\n     &4.1148e+02_rb,2.0574e+02_rb,1.1261e+01_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &2.1944e+03_rb,1.9201e+03_rb,1.6458e+03_rb,1.3715e+03_rb,1.0972e+03_rb,8.2292e+02_rb, &\n     &5.4861e+02_rb,2.7431e+02_rb,1.1246e+01_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &2.8415e+03_rb,2.4863e+03_rb,2.1311e+03_rb,1.7759e+03_rb,1.4207e+03_rb,1.0656e+03_rb, &\n     &7.1037e+02_rb,3.5519e+02_rb,1.1203e+01_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &3.5819e+03_rb,3.1342e+03_rb,2.6865e+03_rb,2.2387e+03_rb,1.7910e+03_rb,1.3432e+03_rb, &\n     &8.9549e+02_rb,4.4774e+02_rb,1.1137e+01_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &4.4164e+03_rb,3.8643e+03_rb,3.3123e+03_rb,2.7602e+03_rb,2.2082e+03_rb,1.6561e+03_rb, &\n     &1.1041e+03_rb,5.5205e+02_rb,1.1062e+01_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &1.1573e+03_rb,1.0126e+03_rb,8.6797e+02_rb,7.2331e+02_rb,5.7865e+02_rb,4.3399e+02_rb, &\n     &2.8932e+02_rb,1.4466e+02_rb,1.2627e+01_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &1.5804e+03_rb,1.3829e+03_rb,1.1853e+03_rb,9.8775e+02_rb,7.9020e+02_rb,5.9265e+02_rb, &\n     &3.9510e+02_rb,1.9755e+02_rb,1.2599e+01_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &2.0873e+03_rb,1.8264e+03_rb,1.5655e+03_rb,1.3046e+03_rb,1.0437e+03_rb,7.8274e+02_rb, &\n     &5.2183e+02_rb,2.6092e+02_rb,1.2536e+01_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &2.6827e+03_rb,2.3473e+03_rb,2.0120e+03_rb,1.6767e+03_rb,1.3413e+03_rb,1.0060e+03_rb, &\n     &6.7067e+02_rb,3.3534e+02_rb,1.2467e+01_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &3.3592e+03_rb,2.9393e+03_rb,2.5194e+03_rb,2.0995e+03_rb,1.6796e+03_rb,1.2597e+03_rb, &\n     &8.3980e+02_rb,4.1990e+02_rb,1.2393e+01_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &7.9180e+02_rb,6.9282e+02_rb,5.9385e+02_rb,4.9487e+02_rb,3.9590e+02_rb,2.9692e+02_rb, &\n     &1.9795e+02_rb,9.8975e+01_rb,1.3948e+01_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &1.1067e+03_rb,9.6838e+02_rb,8.3004e+02_rb,6.9170e+02_rb,5.5336e+02_rb,4.1502e+02_rb, &\n     &2.7668e+02_rb,1.3834e+02_rb,1.3917e+01_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &1.4976e+03_rb,1.3104e+03_rb,1.1232e+03_rb,9.3600e+02_rb,7.4880e+02_rb,5.6160e+02_rb, &\n     &3.7440e+02_rb,1.8720e+02_rb,1.3860e+01_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &1.9619e+03_rb,1.7167e+03_rb,1.4715e+03_rb,1.2262e+03_rb,9.8097e+02_rb,7.3573e+02_rb, &\n     &4.9049e+02_rb,2.4524e+02_rb,1.3785e+01_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &2.4991e+03_rb,2.1867e+03_rb,1.8743e+03_rb,1.5619e+03_rb,1.2496e+03_rb,9.3716e+02_rb, &\n     &6.2477e+02_rb,3.1239e+02_rb,1.3707e+01_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &5.3794e+02_rb,4.7070e+02_rb,4.0346e+02_rb,3.3621e+02_rb,2.6897e+02_rb,2.0173e+02_rb, &\n     &1.3449e+02_rb,6.7243e+01_rb,1.5200e+01_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &7.7168e+02_rb,6.7522e+02_rb,5.7876e+02_rb,4.8230e+02_rb,3.8584e+02_rb,2.8938e+02_rb, &\n     &1.9292e+02_rb,9.6460e+01_rb,1.5161e+01_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &1.0690e+03_rb,9.3537e+02_rb,8.0174e+02_rb,6.6812e+02_rb,5.3449e+02_rb,4.0087e+02_rb, &\n     &2.6725e+02_rb,1.3362e+02_rb,1.5097e+01_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &1.4303e+03_rb,1.2515e+03_rb,1.0727e+03_rb,8.9396e+02_rb,7.1516e+02_rb,5.3637e+02_rb, &\n     &3.5758e+02_rb,1.7879e+02_rb,1.5017e+01_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &1.8576e+03_rb,1.6254e+03_rb,1.3932e+03_rb,1.1610e+03_rb,9.2880e+02_rb,6.9660e+02_rb, &\n     &4.6440e+02_rb,2.3220e+02_rb,1.4920e+01_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &3.6857e+02_rb,3.2250e+02_rb,2.7643e+02_rb,2.3036e+02_rb,1.8428e+02_rb,1.3821e+02_rb, &\n     &9.2143e+01_rb,4.6072e+01_rb,1.6297e+01_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &5.4427e+02_rb,4.7624e+02_rb,4.0820e+02_rb,3.4017e+02_rb,2.7214e+02_rb,2.0410e+02_rb, &\n     &1.3607e+02_rb,6.8035e+01_rb,1.6238e+01_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &7.7191e+02_rb,6.7542e+02_rb,5.7893e+02_rb,4.8244e+02_rb,3.8595e+02_rb,2.8947e+02_rb, &\n     &1.9298e+02_rb,9.6489e+01_rb,1.6155e+01_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &1.0564e+03_rb,9.2435e+02_rb,7.9230e+02_rb,6.6025e+02_rb,5.2820e+02_rb,3.9615e+02_rb, &\n     &2.6410e+02_rb,1.3205e+02_rb,1.6062e+01_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &1.3972e+03_rb,1.2225e+03_rb,1.0479e+03_rb,8.7322e+02_rb,6.9858e+02_rb,5.2393e+02_rb, &\n     &3.4929e+02_rb,1.7465e+02_rb,1.5943e+01_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &2.4734e+02_rb,2.1642e+02_rb,1.8550e+02_rb,1.5459e+02_rb,1.2367e+02_rb,9.2751e+01_rb, &\n     &6.1834e+01_rb,3.4329e+01_rb,1.7139e+01_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &3.7646e+02_rb,3.2941e+02_rb,2.8235e+02_rb,2.3529e+02_rb,1.8823e+02_rb,1.4117e+02_rb, &\n     &9.4116e+01_rb,4.7119e+01_rb,1.7064e+01_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &5.4702e+02_rb,4.7864e+02_rb,4.1027e+02_rb,3.4189e+02_rb,2.7351e+02_rb,2.0513e+02_rb, &\n     &1.3676e+02_rb,6.8378e+01_rb,1.6972e+01_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &7.6564e+02_rb,6.6994e+02_rb,5.7423e+02_rb,4.7853e+02_rb,3.8282e+02_rb,2.8712e+02_rb, &\n     &1.9141e+02_rb,9.5706e+01_rb,1.6856e+01_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &1.0333e+03_rb,9.0412e+02_rb,7.7496e+02_rb,6.4580e+02_rb,5.1664e+02_rb,3.8748e+02_rb, &\n     &2.5832e+02_rb,1.2916e+02_rb,1.6713e+01_rb/)\n      kao(:, 1,10,11) = (/ &\n     &1.6975e+02_rb,1.4853e+02_rb,1.2731e+02_rb,1.0609e+02_rb,8.4874e+01_rb,6.3656e+01_rb, &\n     &4.3000e+01_rb,3.1831e+01_rb,1.7572e+01_rb/)\n      kao(:, 2,10,11) = (/ &\n     &2.6544e+02_rb,2.3226e+02_rb,1.9908e+02_rb,1.6590e+02_rb,1.3272e+02_rb,9.9541e+01_rb, &\n     &6.6361e+01_rb,3.9122e+01_rb,1.7485e+01_rb/)\n      kao(:, 3,10,11) = (/ &\n     &3.9471e+02_rb,3.4537e+02_rb,2.9603e+02_rb,2.4669e+02_rb,1.9735e+02_rb,1.4801e+02_rb, &\n     &9.8676e+01_rb,5.0382e+01_rb,1.7381e+01_rb/)\n      kao(:, 4,10,11) = (/ &\n     &5.6315e+02_rb,4.9275e+02_rb,4.2236e+02_rb,3.5197e+02_rb,2.8157e+02_rb,2.1118e+02_rb, &\n     &1.4079e+02_rb,7.0394e+01_rb,1.7247e+01_rb/)\n      kao(:, 5,10,11) = (/ &\n     &7.7410e+02_rb,6.7734e+02_rb,5.8057e+02_rb,4.8381e+02_rb,3.8705e+02_rb,2.9029e+02_rb, &\n     &1.9352e+02_rb,9.6763e+01_rb,1.7092e+01_rb/)\n      kao(:, 1,11,11) = (/ &\n     &1.4476e+02_rb,1.2667e+02_rb,1.0857e+02_rb,9.0475e+01_rb,7.2380e+01_rb,5.4285e+01_rb, &\n     &4.0590e+01_rb,3.2171e+01_rb,1.7597e+01_rb/)\n      kao(:, 2,11,11) = (/ &\n     &2.2628e+02_rb,1.9800e+02_rb,1.6971e+02_rb,1.4143e+02_rb,1.1314e+02_rb,8.4856e+01_rb, &\n     &5.6719e+01_rb,3.9479e+01_rb,1.7480e+01_rb/)\n      kao(:, 3,11,11) = (/ &\n     &3.3682e+02_rb,2.9472e+02_rb,2.5262e+02_rb,2.1051e+02_rb,1.6841e+02_rb,1.2631e+02_rb, &\n     &8.4204e+01_rb,4.8355e+01_rb,1.7349e+01_rb/)\n      kao(:, 4,11,11) = (/ &\n     &4.8164e+02_rb,4.2144e+02_rb,3.6123e+02_rb,3.0103e+02_rb,2.4082e+02_rb,1.8062e+02_rb, &\n     &1.2041e+02_rb,6.1572e+01_rb,1.7186e+01_rb/)\n      kao(:, 5,11,11) = (/ &\n     &6.6267e+02_rb,5.7984e+02_rb,4.9701e+02_rb,4.1417e+02_rb,3.3134e+02_rb,2.4850e+02_rb, &\n     &1.6567e+02_rb,8.2835e+01_rb,1.7015e+01_rb/)\n      kao(:, 1,12,11) = (/ &\n     &1.2510e+02_rb,1.0946e+02_rb,9.3823e+01_rb,7.8186e+01_rb,6.2549e+01_rb,4.8100e+01_rb, &\n     &4.0318e+01_rb,3.2221e+01_rb,1.7708e+01_rb/)\n      kao(:, 2,12,11) = (/ &\n     &1.9563e+02_rb,1.7117e+02_rb,1.4672e+02_rb,1.2227e+02_rb,9.7813e+01_rb,7.3360e+01_rb, &\n     &5.2529e+01_rb,3.9562e+01_rb,1.7612e+01_rb/)\n      kao(:, 3,12,11) = (/ &\n     &2.9201e+02_rb,2.5551e+02_rb,2.1901e+02_rb,1.8251e+02_rb,1.4600e+02_rb,1.0950e+02_rb, &\n     &7.3154e+01_rb,4.8447e+01_rb,1.7481e+01_rb/)\n      kao(:, 4,12,11) = (/ &\n     &4.1774e+02_rb,3.6552e+02_rb,3.1331e+02_rb,2.6109e+02_rb,2.0887e+02_rb,1.5665e+02_rb, &\n     &1.0444e+02_rb,5.8915e+01_rb,1.7339e+01_rb/)\n      kao(:, 5,12,11) = (/ &\n     &5.7504e+02_rb,5.0316e+02_rb,4.3128e+02_rb,3.5940e+02_rb,2.8752e+02_rb,2.1564e+02_rb, &\n     &1.4376e+02_rb,7.3682e+01_rb,1.7186e+01_rb/)\n      kao(:, 1,13,11) = (/ &\n     &1.1264e+02_rb,9.8561e+01_rb,8.4481e+01_rb,7.0401e+01_rb,5.6432e+01_rb,4.7061e+01_rb, &\n     &4.0409e+01_rb,3.2253e+01_rb,1.8302e+01_rb/)\n      kao(:, 2,13,11) = (/ &\n     &1.7621e+02_rb,1.5419e+02_rb,1.3216e+02_rb,1.1013e+02_rb,8.8108e+01_rb,6.6456e+01_rb, &\n     &5.2592e+01_rb,3.9667e+01_rb,1.8194e+01_rb/)\n      kao(:, 3,13,11) = (/ &\n     &2.6303e+02_rb,2.3015e+02_rb,1.9727e+02_rb,1.6440e+02_rb,1.3152e+02_rb,9.8638e+01_rb, &\n     &6.8547e+01_rb,4.8772e+01_rb,1.8071e+01_rb/)\n      kao(:, 4,13,11) = (/ &\n     &3.7673e+02_rb,3.2964e+02_rb,2.8255e+02_rb,2.3546e+02_rb,1.8837e+02_rb,1.4128e+02_rb, &\n     &9.4251e+01_rb,5.9423e+01_rb,1.7926e+01_rb/)\n      kao(:, 5,13,11) = (/ &\n     &5.1904e+02_rb,4.5416e+02_rb,3.8928e+02_rb,3.2440e+02_rb,2.5952e+02_rb,1.9464e+02_rb, &\n     &1.2976e+02_rb,7.1698e+01_rb,1.7708e+01_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &6.1566e+03_rb,5.3871e+03_rb,4.6175e+03_rb,3.8479e+03_rb,3.0783e+03_rb,2.3087e+03_rb, &\n     &1.5392e+03_rb,7.6958e+02_rb,3.6622e-03_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &7.8640e+03_rb,6.8810e+03_rb,5.8980e+03_rb,4.9150e+03_rb,3.9320e+03_rb,2.9490e+03_rb, &\n     &1.9660e+03_rb,9.8301e+02_rb,3.6025e-03_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &9.7949e+03_rb,8.5705e+03_rb,7.3462e+03_rb,6.1218e+03_rb,4.8974e+03_rb,3.6731e+03_rb, &\n     &2.4487e+03_rb,1.2244e+03_rb,3.3010e-02_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &1.1959e+04_rb,1.0464e+04_rb,8.9695e+03_rb,7.4746e+03_rb,5.9797e+03_rb,4.4847e+03_rb, &\n     &2.9898e+03_rb,1.4949e+03_rb,6.0612e-02_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &1.4386e+04_rb,1.2588e+04_rb,1.0790e+04_rb,8.9913e+03_rb,7.1931e+03_rb,5.3948e+03_rb, &\n     &3.5965e+03_rb,1.7983e+03_rb,7.6915e-02_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &5.0811e+03_rb,4.4460e+03_rb,3.8109e+03_rb,3.1757e+03_rb,2.5406e+03_rb,1.9054e+03_rb, &\n     &1.2703e+03_rb,6.3514e+02_rb,2.7963e-01_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &6.5891e+03_rb,5.7655e+03_rb,4.9418e+03_rb,4.1182e+03_rb,3.2946e+03_rb,2.4709e+03_rb, &\n     &1.6473e+03_rb,8.2364e+02_rb,2.3002e+00_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &8.3666e+03_rb,7.3208e+03_rb,6.2750e+03_rb,5.2291e+03_rb,4.1833e+03_rb,3.1375e+03_rb, &\n     &2.0917e+03_rb,1.0458e+03_rb,4.9790e+00_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &1.0356e+04_rb,9.0616e+03_rb,7.7671e+03_rb,6.4726e+03_rb,5.1781e+03_rb,3.8836e+03_rb, &\n     &2.5890e+03_rb,1.2945e+03_rb,6.0169e+00_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &1.2531e+04_rb,1.0965e+04_rb,9.3984e+03_rb,7.8320e+03_rb,6.2656e+03_rb,4.6992e+03_rb, &\n     &3.1328e+03_rb,1.5664e+03_rb,6.8160e+00_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &3.8913e+03_rb,3.4049e+03_rb,2.9185e+03_rb,2.4321e+03_rb,1.9457e+03_rb,1.4593e+03_rb, &\n     &9.7284e+02_rb,4.8642e+02_rb,1.1253e+01_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &5.1870e+03_rb,4.5386e+03_rb,3.8902e+03_rb,3.2418e+03_rb,2.5935e+03_rb,1.9451e+03_rb, &\n     &1.2967e+03_rb,6.4837e+02_rb,1.1246e+01_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &6.6906e+03_rb,5.8543e+03_rb,5.0180e+03_rb,4.1816e+03_rb,3.3453e+03_rb,2.5090e+03_rb, &\n     &1.6727e+03_rb,8.3633e+02_rb,1.1235e+01_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &8.4124e+03_rb,7.3608e+03_rb,6.3093e+03_rb,5.2577e+03_rb,4.2062e+03_rb,3.1546e+03_rb, &\n     &2.1031e+03_rb,1.0515e+03_rb,1.1206e+01_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &1.0381e+04_rb,9.0837e+03_rb,7.7860e+03_rb,6.4883e+03_rb,5.1907e+03_rb,3.8930e+03_rb, &\n     &2.5953e+03_rb,1.2977e+03_rb,1.1154e+01_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &2.8697e+03_rb,2.5110e+03_rb,2.1523e+03_rb,1.7936e+03_rb,1.4349e+03_rb,1.0761e+03_rb, &\n     &7.1743e+02_rb,3.5872e+02_rb,1.3022e+01_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &3.9101e+03_rb,3.4213e+03_rb,2.9326e+03_rb,2.4438e+03_rb,1.9551e+03_rb,1.4663e+03_rb, &\n     &9.7753e+02_rb,4.8877e+02_rb,1.3025e+01_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &5.1573e+03_rb,4.5126e+03_rb,3.8680e+03_rb,3.2233e+03_rb,2.5786e+03_rb,1.9340e+03_rb, &\n     &1.2893e+03_rb,6.4466e+02_rb,1.3008e+01_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &6.6403e+03_rb,5.8103e+03_rb,4.9802e+03_rb,4.1502e+03_rb,3.3201e+03_rb,2.4901e+03_rb, &\n     &1.6601e+03_rb,8.3004e+02_rb,1.2981e+01_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &8.3023e+03_rb,7.2645e+03_rb,6.2267e+03_rb,5.1889e+03_rb,4.1511e+03_rb,3.1134e+03_rb, &\n     &2.0756e+03_rb,1.0378e+03_rb,1.2927e+01_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &2.0574e+03_rb,1.8002e+03_rb,1.5431e+03_rb,1.2859e+03_rb,1.0287e+03_rb,7.7153e+02_rb, &\n     &5.1435e+02_rb,2.5718e+02_rb,1.4941e+01_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &2.8796e+03_rb,2.5197e+03_rb,2.1597e+03_rb,1.7998e+03_rb,1.4398e+03_rb,1.0799e+03_rb, &\n     &7.1991e+02_rb,3.5996e+02_rb,1.4958e+01_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &3.9044e+03_rb,3.4163e+03_rb,2.9283e+03_rb,2.4402e+03_rb,1.9522e+03_rb,1.4641e+03_rb, &\n     &9.7610e+02_rb,4.8805e+02_rb,1.4965e+01_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &5.1045e+03_rb,4.4665e+03_rb,3.8284e+03_rb,3.1903e+03_rb,2.5523e+03_rb,1.9142e+03_rb, &\n     &1.2761e+03_rb,6.3807e+02_rb,1.4927e+01_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &6.5127e+03_rb,5.6986e+03_rb,4.8846e+03_rb,4.0705e+03_rb,3.2564e+03_rb,2.4423e+03_rb, &\n     &1.6282e+03_rb,8.1409e+02_rb,1.4857e+01_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &1.4218e+03_rb,1.2441e+03_rb,1.0663e+03_rb,8.8861e+02_rb,7.1089e+02_rb,5.3316e+02_rb, &\n     &3.5544e+02_rb,1.7772e+02_rb,1.7034e+01_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &2.0585e+03_rb,1.8012e+03_rb,1.5439e+03_rb,1.2865e+03_rb,1.0292e+03_rb,7.7193e+02_rb, &\n     &5.1462e+02_rb,2.5731e+02_rb,1.7052e+01_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &2.8529e+03_rb,2.4963e+03_rb,2.1397e+03_rb,1.7831e+03_rb,1.4265e+03_rb,1.0699e+03_rb, &\n     &7.1324e+02_rb,3.5662e+02_rb,1.7043e+01_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &3.8237e+03_rb,3.3458e+03_rb,2.8678e+03_rb,2.3898e+03_rb,1.9119e+03_rb,1.4339e+03_rb, &\n     &9.5593e+02_rb,4.7797e+02_rb,1.6999e+01_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &4.9757e+03_rb,4.3537e+03_rb,3.7318e+03_rb,3.1098e+03_rb,2.4878e+03_rb,1.8659e+03_rb, &\n     &1.2439e+03_rb,6.2196e+02_rb,1.6923e+01_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &9.7219e+02_rb,8.5066e+02_rb,7.2914e+02_rb,6.0761e+02_rb,4.8609e+02_rb,3.6457e+02_rb, &\n     &2.4305e+02_rb,1.2152e+02_rb,1.9204e+01_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &1.4501e+03_rb,1.2688e+03_rb,1.0876e+03_rb,9.0631e+02_rb,7.2505e+02_rb,5.4378e+02_rb, &\n     &3.6252e+02_rb,1.8126e+02_rb,1.9225e+01_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &2.0671e+03_rb,1.8087e+03_rb,1.5503e+03_rb,1.2919e+03_rb,1.0335e+03_rb,7.7515e+02_rb, &\n     &5.1676e+02_rb,2.5838e+02_rb,1.9209e+01_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &2.8414e+03_rb,2.4862e+03_rb,2.1311e+03_rb,1.7759e+03_rb,1.4207e+03_rb,1.0655e+03_rb, &\n     &7.1035e+02_rb,3.5518e+02_rb,1.9156e+01_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &3.7638e+03_rb,3.2933e+03_rb,2.8228e+03_rb,2.3524e+03_rb,1.8819e+03_rb,1.4114e+03_rb, &\n     &9.4094e+02_rb,4.7047e+02_rb,1.9066e+01_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &6.6611e+02_rb,5.8284e+02_rb,4.9958e+02_rb,4.1632e+02_rb,3.3305e+02_rb,2.4979e+02_rb, &\n     &1.6653e+02_rb,8.3265e+01_rb,2.1374e+01_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &1.0262e+03_rb,8.9794e+02_rb,7.6966e+02_rb,6.4139e+02_rb,5.1311e+02_rb,3.8483e+02_rb, &\n     &2.5656e+02_rb,1.2828e+02_rb,2.1403e+01_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &1.5100e+03_rb,1.3213e+03_rb,1.1325e+03_rb,9.4376e+02_rb,7.5501e+02_rb,5.6626e+02_rb, &\n     &3.7751e+02_rb,1.8875e+02_rb,2.1385e+01_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &2.1206e+03_rb,1.8555e+03_rb,1.5904e+03_rb,1.3254e+03_rb,1.0603e+03_rb,7.9522e+02_rb, &\n     &5.3015e+02_rb,2.6507e+02_rb,2.1320e+01_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &2.8794e+03_rb,2.5195e+03_rb,2.1596e+03_rb,1.7996e+03_rb,1.4397e+03_rb,1.0798e+03_rb, &\n     &7.1985e+02_rb,3.5993e+02_rb,2.1216e+01_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &4.4380e+02_rb,3.8832e+02_rb,3.3285e+02_rb,2.7737e+02_rb,2.2190e+02_rb,1.6642e+02_rb, &\n     &1.1095e+02_rb,5.5475e+01_rb,2.3490e+01_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &7.0869e+02_rb,6.2011e+02_rb,5.3152e+02_rb,4.4293e+02_rb,3.5435e+02_rb,2.6576e+02_rb, &\n     &1.7717e+02_rb,8.8587e+01_rb,2.3505e+01_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &1.0731e+03_rb,9.3894e+02_rb,8.0481e+02_rb,6.7067e+02_rb,5.3654e+02_rb,4.0240e+02_rb, &\n     &2.6827e+02_rb,1.3414e+02_rb,2.3465e+01_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &1.5496e+03_rb,1.3559e+03_rb,1.1622e+03_rb,9.6851e+02_rb,7.7481e+02_rb,5.8111e+02_rb, &\n     &3.8741e+02_rb,1.9370e+02_rb,2.3379e+01_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &2.1497e+03_rb,1.8810e+03_rb,1.6123e+03_rb,1.3436e+03_rb,1.0749e+03_rb,8.0615e+02_rb, &\n     &5.3743e+02_rb,2.6872e+02_rb,2.3258e+01_rb/)\n      kao(:, 1,10,12) = (/ &\n     &3.0213e+02_rb,2.6436e+02_rb,2.2659e+02_rb,1.8883e+02_rb,1.5106e+02_rb,1.1330e+02_rb, &\n     &7.5532e+01_rb,4.3106e+01_rb,2.5395e+01_rb/)\n      kao(:, 2,10,12) = (/ &\n     &4.9804e+02_rb,4.3578e+02_rb,3.7353e+02_rb,3.1127e+02_rb,2.4902e+02_rb,1.8676e+02_rb, &\n     &1.2451e+02_rb,6.2505e+01_rb,2.5385e+01_rb/)\n      kao(:, 3,10,12) = (/ &\n     &7.7418e+02_rb,6.7741e+02_rb,5.8063e+02_rb,4.8386e+02_rb,3.8709e+02_rb,2.9032e+02_rb, &\n     &1.9354e+02_rb,9.6773e+01_rb,2.5325e+01_rb/)\n      kao(:, 4,10,12) = (/ &\n     &1.1469e+03_rb,1.0035e+03_rb,8.6015e+02_rb,7.1679e+02_rb,5.7343e+02_rb,4.3007e+02_rb, &\n     &2.8671e+02_rb,1.4336e+02_rb,2.5217e+01_rb/)\n      kao(:, 5,10,12) = (/ &\n     &1.6217e+03_rb,1.4190e+03_rb,1.2162e+03_rb,1.0135e+03_rb,8.1083e+02_rb,6.0812e+02_rb, &\n     &4.0541e+02_rb,2.0271e+02_rb,2.5082e+01_rb/)\n      kao(:, 1,11,12) = (/ &\n     &2.6097e+02_rb,2.2835e+02_rb,1.9573e+02_rb,1.6311e+02_rb,1.3048e+02_rb,9.7863e+01_rb, &\n     &6.5361e+01_rb,4.5364e+01_rb,2.6989e+01_rb/)\n      kao(:, 2,11,12) = (/ &\n     &4.3087e+02_rb,3.7701e+02_rb,3.2315e+02_rb,2.6929e+02_rb,2.1543e+02_rb,1.6158e+02_rb, &\n     &1.0772e+02_rb,5.7754e+01_rb,2.6926e+01_rb/)\n      kao(:, 3,11,12) = (/ &\n     &6.7272e+02_rb,5.8863e+02_rb,5.0454e+02_rb,4.2045e+02_rb,3.3636e+02_rb,2.5227e+02_rb, &\n     &1.6818e+02_rb,8.4156e+01_rb,2.6813e+01_rb/)\n      kao(:, 4,11,12) = (/ &\n     &9.9607e+02_rb,8.7156e+02_rb,7.4705e+02_rb,6.2254e+02_rb,4.9803e+02_rb,3.7353e+02_rb, &\n     &2.4902e+02_rb,1.2451e+02_rb,2.6666e+01_rb/)\n      kao(:, 5,11,12) = (/ &\n     &1.4127e+03_rb,1.2361e+03_rb,1.0595e+03_rb,8.8291e+02_rb,7.0633e+02_rb,5.2975e+02_rb, &\n     &3.5316e+02_rb,1.7658e+02_rb,2.6473e+01_rb/)\n      kao(:, 1,12,12) = (/ &\n     &2.2830e+02_rb,1.9976e+02_rb,1.7123e+02_rb,1.4269e+02_rb,1.1415e+02_rb,8.5613e+01_rb, &\n     &6.0099e+01_rb,4.8249e+01_rb,2.8107e+01_rb/)\n      kao(:, 2,12,12) = (/ &\n     &3.7815e+02_rb,3.3089e+02_rb,2.8362e+02_rb,2.3635e+02_rb,1.8908e+02_rb,1.4181e+02_rb, &\n     &9.4540e+01_rb,5.8332e+01_rb,2.7966e+01_rb/)\n      kao(:, 3,12,12) = (/ &\n     &5.9040e+02_rb,5.1660e+02_rb,4.4280e+02_rb,3.6900e+02_rb,2.9520e+02_rb,2.2140e+02_rb, &\n     &1.4760e+02_rb,7.6746e+01_rb,2.7793e+01_rb/)\n      kao(:, 4,12,12) = (/ &\n     &8.7660e+02_rb,7.6702e+02_rb,6.5745e+02_rb,5.4787e+02_rb,4.3830e+02_rb,3.2873e+02_rb, &\n     &2.1915e+02_rb,1.0959e+02_rb,2.7580e+01_rb/)\n      kao(:, 5,12,12) = (/ &\n     &1.2432e+03_rb,1.0878e+03_rb,9.3242e+02_rb,7.7702e+02_rb,6.2161e+02_rb,4.6621e+02_rb, &\n     &3.1081e+02_rb,1.5540e+02_rb,2.7330e+01_rb/)\n      kao(:, 1,13,12) = (/ &\n     &2.0770e+02_rb,1.8173e+02_rb,1.5577e+02_rb,1.2981e+02_rb,1.0385e+02_rb,7.8129e+01_rb, &\n     &6.0586e+01_rb,5.1072e+01_rb,2.8383e+01_rb/)\n      kao(:, 2,13,12) = (/ &\n     &3.4420e+02_rb,3.0118e+02_rb,2.5815e+02_rb,2.1513e+02_rb,1.7210e+02_rb,1.2908e+02_rb, &\n     &8.7185e+01_rb,6.1802e+01_rb,2.8222e+01_rb/)\n      kao(:, 3,13,12) = (/ &\n     &5.3871e+02_rb,4.7137e+02_rb,4.0403e+02_rb,3.3670e+02_rb,2.6936e+02_rb,2.0202e+02_rb, &\n     &1.3468e+02_rb,7.6219e+01_rb,2.8010e+01_rb/)\n      kao(:, 4,13,12) = (/ &\n     &7.9982e+02_rb,6.9985e+02_rb,5.9987e+02_rb,4.9989e+02_rb,3.9991e+02_rb,2.9994e+02_rb, &\n     &1.9996e+02_rb,1.0196e+02_rb,2.7782e+01_rb/)\n      kao(:, 5,13,12) = (/ &\n     &1.1353e+03_rb,9.9341e+02_rb,8.5150e+02_rb,7.0958e+02_rb,5.6767e+02_rb,4.2575e+02_rb, &\n     &2.8384e+02_rb,1.4192e+02_rb,2.7521e+01_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &1.0877e+04_rb,9.5175e+03_rb,8.1579e+03_rb,6.7982e+03_rb,5.4386e+03_rb,4.0789e+03_rb, &\n     &2.7193e+03_rb,1.3596e+03_rb,2.7375e-03_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &1.4140e+04_rb,1.2372e+04_rb,1.0605e+04_rb,8.8373e+03_rb,7.0699e+03_rb,5.3024e+03_rb, &\n     &3.5349e+03_rb,1.7675e+03_rb,2.6515e-03_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &1.7904e+04_rb,1.5666e+04_rb,1.3428e+04_rb,1.1190e+04_rb,8.9519e+03_rb,6.7139e+03_rb, &\n     &4.4759e+03_rb,2.2380e+03_rb,3.8993e-02_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &2.2059e+04_rb,1.9302e+04_rb,1.6544e+04_rb,1.3787e+04_rb,1.1029e+04_rb,8.2721e+03_rb, &\n     &5.5147e+03_rb,2.7574e+03_rb,9.2576e-02_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &2.6544e+04_rb,2.3226e+04_rb,1.9908e+04_rb,1.6590e+04_rb,1.3272e+04_rb,9.9541e+03_rb, &\n     &6.6361e+03_rb,3.3180e+03_rb,1.0695e-01_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &9.6500e+03_rb,8.4437e+03_rb,7.2375e+03_rb,6.0312e+03_rb,4.8250e+03_rb,3.6187e+03_rb, &\n     &2.4125e+03_rb,1.2062e+03_rb,3.2200e-01_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &1.2735e+04_rb,1.1143e+04_rb,9.5512e+03_rb,7.9593e+03_rb,6.3674e+03_rb,4.7756e+03_rb, &\n     &3.1837e+03_rb,1.5919e+03_rb,5.1280e+00_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &1.6244e+04_rb,1.4213e+04_rb,1.2183e+04_rb,1.0152e+04_rb,8.1218e+03_rb,6.0913e+03_rb, &\n     &4.0609e+03_rb,2.0304e+03_rb,7.4252e+00_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &2.0224e+04_rb,1.7696e+04_rb,1.5168e+04_rb,1.2640e+04_rb,1.0112e+04_rb,7.5839e+03_rb, &\n     &5.0559e+03_rb,2.5280e+03_rb,7.7282e+00_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &2.4645e+04_rb,2.1565e+04_rb,1.8484e+04_rb,1.5403e+04_rb,1.2323e+04_rb,9.2420e+03_rb, &\n     &6.1614e+03_rb,3.0807e+03_rb,7.1576e+00_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &7.8601e+03_rb,6.8776e+03_rb,5.8951e+03_rb,4.9126e+03_rb,3.9300e+03_rb,2.9475e+03_rb, &\n     &1.9650e+03_rb,9.8251e+02_rb,1.2409e+01_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &1.0573e+04_rb,9.2512e+03_rb,7.9296e+03_rb,6.6080e+03_rb,5.2864e+03_rb,3.9648e+03_rb, &\n     &2.6432e+03_rb,1.3216e+03_rb,1.2422e+01_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &1.3794e+04_rb,1.2070e+04_rb,1.0346e+04_rb,8.6214e+03_rb,6.8971e+03_rb,5.1729e+03_rb, &\n     &3.4486e+03_rb,1.7243e+03_rb,1.2413e+01_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &1.7502e+04_rb,1.5315e+04_rb,1.3127e+04_rb,1.0939e+04_rb,8.7512e+03_rb,6.5634e+03_rb, &\n     &4.3756e+03_rb,2.1878e+03_rb,1.2394e+01_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &2.1662e+04_rb,1.8954e+04_rb,1.6247e+04_rb,1.3539e+04_rb,1.0831e+04_rb,8.1233e+03_rb, &\n     &5.4155e+03_rb,2.7078e+03_rb,1.2358e+01_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &6.0906e+03_rb,5.3293e+03_rb,4.5680e+03_rb,3.8067e+03_rb,3.0453e+03_rb,2.2840e+03_rb, &\n     &1.5227e+03_rb,7.6133e+02_rb,1.4627e+01_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &8.4475e+03_rb,7.3915e+03_rb,6.3356e+03_rb,5.2797e+03_rb,4.2237e+03_rb,3.1678e+03_rb, &\n     &2.1119e+03_rb,1.0559e+03_rb,1.4656e+01_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &1.1299e+04_rb,9.8868e+03_rb,8.4744e+03_rb,7.0620e+03_rb,5.6496e+03_rb,4.2372e+03_rb, &\n     &2.8248e+03_rb,1.4124e+03_rb,1.4666e+01_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &1.4605e+04_rb,1.2779e+04_rb,1.0954e+04_rb,9.1282e+03_rb,7.3025e+03_rb,5.4769e+03_rb, &\n     &3.6513e+03_rb,1.8256e+03_rb,1.4645e+01_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &1.8360e+04_rb,1.6065e+04_rb,1.3770e+04_rb,1.1475e+04_rb,9.1801e+03_rb,6.8851e+03_rb, &\n     &4.5900e+03_rb,2.2950e+03_rb,1.4604e+01_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &4.6024e+03_rb,4.0271e+03_rb,3.4518e+03_rb,2.8765e+03_rb,2.3012e+03_rb,1.7259e+03_rb, &\n     &1.1506e+03_rb,5.7529e+02_rb,1.7191e+01_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &6.5855e+03_rb,5.7623e+03_rb,4.9391e+03_rb,4.1159e+03_rb,3.2927e+03_rb,2.4695e+03_rb, &\n     &1.6464e+03_rb,8.2318e+02_rb,1.7235e+01_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &8.9962e+03_rb,7.8717e+03_rb,6.7471e+03_rb,5.6226e+03_rb,4.4981e+03_rb,3.3736e+03_rb, &\n     &2.2490e+03_rb,1.1245e+03_rb,1.7249e+01_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &1.1873e+04_rb,1.0388e+04_rb,8.9044e+03_rb,7.4203e+03_rb,5.9363e+03_rb,4.4522e+03_rb, &\n     &2.9681e+03_rb,1.4841e+03_rb,1.7236e+01_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &1.5203e+04_rb,1.3303e+04_rb,1.1402e+04_rb,9.5020e+03_rb,7.6016e+03_rb,5.7012e+03_rb, &\n     &3.8008e+03_rb,1.9004e+03_rb,1.7202e+01_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &3.3402e+03_rb,2.9227e+03_rb,2.5052e+03_rb,2.0876e+03_rb,1.6701e+03_rb,1.2526e+03_rb, &\n     &8.3506e+02_rb,4.1753e+02_rb,2.0086e+01_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &4.9170e+03_rb,4.3024e+03_rb,3.6877e+03_rb,3.0731e+03_rb,2.4585e+03_rb,1.8439e+03_rb, &\n     &1.2292e+03_rb,6.1462e+02_rb,2.0160e+01_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &6.9136e+03_rb,6.0494e+03_rb,5.1852e+03_rb,4.3210e+03_rb,3.4568e+03_rb,2.5926e+03_rb, &\n     &1.7284e+03_rb,8.6420e+02_rb,2.0194e+01_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &9.3499e+03_rb,8.1811e+03_rb,7.0124e+03_rb,5.8437e+03_rb,4.6749e+03_rb,3.5062e+03_rb, &\n     &2.3375e+03_rb,1.1687e+03_rb,2.0186e+01_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &1.2234e+04_rb,1.0705e+04_rb,9.1755e+03_rb,7.6462e+03_rb,6.1170e+03_rb,4.5877e+03_rb, &\n     &3.0585e+03_rb,1.5292e+03_rb,2.0149e+01_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &2.3634e+03_rb,2.0680e+03_rb,1.7726e+03_rb,1.4771e+03_rb,1.1817e+03_rb,8.8628e+02_rb, &\n     &5.9086e+02_rb,2.9543e+02_rb,2.3318e+01_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &3.6109e+03_rb,3.1596e+03_rb,2.7082e+03_rb,2.2568e+03_rb,1.8055e+03_rb,1.3541e+03_rb, &\n     &9.0273e+02_rb,4.5136e+02_rb,2.3426e+01_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &5.2430e+03_rb,4.5876e+03_rb,3.9322e+03_rb,3.2769e+03_rb,2.6215e+03_rb,1.9661e+03_rb, &\n     &1.3107e+03_rb,6.5537e+02_rb,2.3476e+01_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &7.2754e+03_rb,6.3660e+03_rb,5.4565e+03_rb,4.5471e+03_rb,3.6377e+03_rb,2.7283e+03_rb, &\n     &1.8188e+03_rb,9.0942e+02_rb,2.3476e+01_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &9.7107e+03_rb,8.4968e+03_rb,7.2830e+03_rb,6.0691e+03_rb,4.8553e+03_rb,3.6415e+03_rb, &\n     &2.4276e+03_rb,1.2138e+03_rb,2.3445e+01_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &1.6675e+03_rb,1.4591e+03_rb,1.2506e+03_rb,1.0422e+03_rb,8.3375e+02_rb,6.2531e+02_rb, &\n     &4.1687e+02_rb,2.0844e+02_rb,2.6870e+01_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &2.6544e+03_rb,2.3226e+03_rb,1.9908e+03_rb,1.6590e+03_rb,1.3272e+03_rb,9.9538e+02_rb, &\n     &6.6359e+02_rb,3.3179e+02_rb,2.6998e+01_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &3.9767e+03_rb,3.4797e+03_rb,2.9826e+03_rb,2.4855e+03_rb,1.9884e+03_rb,1.4913e+03_rb, &\n     &9.9419e+02_rb,4.9709e+02_rb,2.7066e+01_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &5.6620e+03_rb,4.9542e+03_rb,4.2465e+03_rb,3.5387e+03_rb,2.8310e+03_rb,2.1232e+03_rb, &\n     &1.4155e+03_rb,7.0775e+02_rb,2.7083e+01_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &7.7334e+03_rb,6.7667e+03_rb,5.8000e+03_rb,4.8334e+03_rb,3.8667e+03_rb,2.9000e+03_rb, &\n     &1.9333e+03_rb,9.6667e+02_rb,2.7049e+01_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &1.1358e+03_rb,9.9378e+02_rb,8.5181e+02_rb,7.0984e+02_rb,5.6787e+02_rb,4.2591e+02_rb, &\n     &2.8394e+02_rb,1.4197e+02_rb,3.0678e+01_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &1.8861e+03_rb,1.6503e+03_rb,1.4146e+03_rb,1.1788e+03_rb,9.4305e+02_rb,7.0729e+02_rb, &\n     &4.7153e+02_rb,2.3576e+02_rb,3.0840e+01_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &2.9209e+03_rb,2.5558e+03_rb,2.1907e+03_rb,1.8256e+03_rb,1.4605e+03_rb,1.0953e+03_rb, &\n     &7.3023e+02_rb,3.6511e+02_rb,3.0929e+01_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &4.2847e+03_rb,3.7491e+03_rb,3.2135e+03_rb,2.6779e+03_rb,2.1424e+03_rb,1.6068e+03_rb, &\n     &1.0712e+03_rb,5.3559e+02_rb,3.0953e+01_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &6.0053e+03_rb,5.2546e+03_rb,4.5040e+03_rb,3.7533e+03_rb,3.0026e+03_rb,2.2520e+03_rb, &\n     &1.5013e+03_rb,7.5066e+02_rb,3.0913e+01_rb/)\n      kao(:, 1,10,13) = (/ &\n     &7.8733e+02_rb,6.8892e+02_rb,5.9050e+02_rb,4.9208e+02_rb,3.9366e+02_rb,2.9525e+02_rb, &\n     &1.9683e+02_rb,9.8416e+01_rb,3.4699e+01_rb/)\n      kao(:, 2,10,13) = (/ &\n     &1.3543e+03_rb,1.1850e+03_rb,1.0157e+03_rb,8.4641e+02_rb,6.7713e+02_rb,5.0785e+02_rb, &\n     &3.3856e+02_rb,1.6928e+02_rb,3.4872e+01_rb/)\n      kao(:, 3,10,13) = (/ &\n     &2.1695e+03_rb,1.8983e+03_rb,1.6271e+03_rb,1.3559e+03_rb,1.0848e+03_rb,8.1356e+02_rb, &\n     &5.4238e+02_rb,2.7119e+02_rb,3.4962e+01_rb/)\n      kao(:, 4,10,13) = (/ &\n     &3.2703e+03_rb,2.8615e+03_rb,2.4527e+03_rb,2.0439e+03_rb,1.6351e+03_rb,1.2263e+03_rb, &\n     &8.1756e+02_rb,4.0878e+02_rb,3.4974e+01_rb/)\n      kao(:, 5,10,13) = (/ &\n     &4.6791e+03_rb,4.0942e+03_rb,3.5093e+03_rb,2.9244e+03_rb,2.3395e+03_rb,1.7546e+03_rb, &\n     &1.1698e+03_rb,5.8488e+02_rb,3.4915e+01_rb/)\n      kao(:, 1,11,13) = (/ &\n     &7.0254e+02_rb,6.1472e+02_rb,5.2690e+02_rb,4.3908e+02_rb,3.5127e+02_rb,2.6345e+02_rb, &\n     &1.7563e+02_rb,8.8441e+01_rb,3.8867e+01_rb/)\n      kao(:, 2,11,13) = (/ &\n     &1.2148e+03_rb,1.0630e+03_rb,9.1111e+02_rb,7.5926e+02_rb,6.0740e+02_rb,4.5555e+02_rb, &\n     &3.0370e+02_rb,1.5185e+02_rb,3.8999e+01_rb/)\n      kao(:, 3,11,13) = (/ &\n     &1.9474e+03_rb,1.7040e+03_rb,1.4606e+03_rb,1.2171e+03_rb,9.7371e+02_rb,7.3028e+02_rb, &\n     &4.8685e+02_rb,2.4343e+02_rb,3.9046e+01_rb/)\n      kao(:, 4,11,13) = (/ &\n     &2.9354e+03_rb,2.5684e+03_rb,2.2015e+03_rb,1.8346e+03_rb,1.4677e+03_rb,1.1008e+03_rb, &\n     &7.3384e+02_rb,3.6692e+02_rb,3.9009e+01_rb/)\n      kao(:, 5,11,13) = (/ &\n     &4.2118e+03_rb,3.6853e+03_rb,3.1589e+03_rb,2.6324e+03_rb,2.1059e+03_rb,1.5794e+03_rb, &\n     &1.0529e+03_rb,5.2647e+02_rb,3.8898e+01_rb/)\n      kao(:, 1,12,13) = (/ &\n     &6.3490e+02_rb,5.5553e+02_rb,4.7617e+02_rb,3.9681e+02_rb,3.1745e+02_rb,2.3809e+02_rb, &\n     &1.5872e+02_rb,8.3817e+01_rb,4.2920e+01_rb/)\n      kao(:, 2,12,13) = (/ &\n     &1.0964e+03_rb,9.5936e+02_rb,8.2231e+02_rb,6.8526e+02_rb,5.4821e+02_rb,4.1116e+02_rb, &\n     &2.7410e+02_rb,1.3705e+02_rb,4.3006e+01_rb/)\n      kao(:, 3,12,13) = (/ &\n     &1.7602e+03_rb,1.5402e+03_rb,1.3202e+03_rb,1.1001e+03_rb,8.8010e+02_rb,6.6008e+02_rb, &\n     &4.4005e+02_rb,2.2003e+02_rb,4.2996e+01_rb/)\n      kao(:, 4,12,13) = (/ &\n     &2.6586e+03_rb,2.3263e+03_rb,1.9940e+03_rb,1.6616e+03_rb,1.3293e+03_rb,9.9698e+02_rb, &\n     &6.6465e+02_rb,3.3233e+02_rb,4.2901e+01_rb/)\n      kao(:, 5,12,13) = (/ &\n     &3.8091e+03_rb,3.3329e+03_rb,2.8568e+03_rb,2.3807e+03_rb,1.9045e+03_rb,1.4284e+03_rb, &\n     &9.5227e+02_rb,4.7613e+02_rb,4.2723e+01_rb/)\n      kao(:, 1,13,13) = (/ &\n     &5.9158e+02_rb,5.1763e+02_rb,4.4368e+02_rb,3.6974e+02_rb,2.9579e+02_rb,2.2184e+02_rb, &\n     &1.4790e+02_rb,8.4889e+01_rb,4.6678e+01_rb/)\n      kao(:, 2,13,13) = (/ &\n     &1.0244e+03_rb,8.9631e+02_rb,7.6827e+02_rb,6.4022e+02_rb,5.1218e+02_rb,3.8414e+02_rb, &\n     &2.5609e+02_rb,1.2940e+02_rb,4.6683e+01_rb/)\n      kao(:, 3,13,13) = (/ &\n     &1.6452e+03_rb,1.4395e+03_rb,1.2339e+03_rb,1.0282e+03_rb,8.2259e+02_rb,6.1694e+02_rb, &\n     &4.1130e+02_rb,2.0565e+02_rb,4.6592e+01_rb/)\n      kao(:, 4,13,13) = (/ &\n     &2.4841e+03_rb,2.1736e+03_rb,1.8631e+03_rb,1.5526e+03_rb,1.2421e+03_rb,9.3154e+02_rb, &\n     &6.2103e+02_rb,3.1052e+02_rb,4.6412e+01_rb/)\n      kao(:, 5,13,13) = (/ &\n     &3.5669e+03_rb,3.1210e+03_rb,2.6752e+03_rb,2.2293e+03_rb,1.7834e+03_rb,1.3376e+03_rb, &\n     &8.9172e+02_rb,4.4586e+02_rb,4.6169e+01_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &2.0814e+04_rb,1.8212e+04_rb,1.5610e+04_rb,1.3008e+04_rb,1.0407e+04_rb,7.8051e+03_rb, &\n     &5.2034e+03_rb,2.6017e+03_rb,4.7014e-03_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &2.6951e+04_rb,2.3582e+04_rb,2.0213e+04_rb,1.6844e+04_rb,1.3475e+04_rb,1.0107e+04_rb, &\n     &6.7377e+03_rb,3.3688e+03_rb,6.0711e-03_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &3.3875e+04_rb,2.9641e+04_rb,2.5406e+04_rb,2.1172e+04_rb,1.6938e+04_rb,1.2703e+04_rb, &\n     &8.4688e+03_rb,4.2344e+03_rb,2.5176e-02_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &4.1606e+04_rb,3.6405e+04_rb,3.1205e+04_rb,2.6004e+04_rb,2.0803e+04_rb,1.5602e+04_rb, &\n     &1.0402e+04_rb,5.2008e+03_rb,1.0468e-01_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &5.0069e+04_rb,4.3810e+04_rb,3.7551e+04_rb,3.1293e+04_rb,2.5034e+04_rb,1.8776e+04_rb, &\n     &1.2517e+04_rb,6.2586e+03_rb,1.0717e-01_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &1.9736e+04_rb,1.7269e+04_rb,1.4802e+04_rb,1.2335e+04_rb,9.8681e+03_rb,7.4011e+03_rb, &\n     &4.9341e+03_rb,2.4670e+03_rb,1.4424e-01_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &2.5938e+04_rb,2.2696e+04_rb,1.9454e+04_rb,1.6211e+04_rb,1.2969e+04_rb,9.7268e+03_rb, &\n     &6.4845e+03_rb,3.2423e+03_rb,5.4893e+00_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &3.3117e+04_rb,2.8978e+04_rb,2.4838e+04_rb,2.0698e+04_rb,1.6559e+04_rb,1.2419e+04_rb, &\n     &8.2793e+03_rb,4.1397e+03_rb,6.5583e+00_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &4.1192e+04_rb,3.6043e+04_rb,3.0894e+04_rb,2.5745e+04_rb,2.0596e+04_rb,1.5447e+04_rb, &\n     &1.0298e+04_rb,5.1490e+03_rb,7.2955e+00_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &5.0084e+04_rb,4.3824e+04_rb,3.7563e+04_rb,3.1303e+04_rb,2.5042e+04_rb,1.8782e+04_rb, &\n     &1.2521e+04_rb,6.2605e+03_rb,4.5976e+00_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &1.7352e+04_rb,1.5183e+04_rb,1.3014e+04_rb,1.0845e+04_rb,8.6759e+03_rb,6.5069e+03_rb, &\n     &4.3379e+03_rb,2.1690e+03_rb,1.3353e+01_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &2.3378e+04_rb,2.0456e+04_rb,1.7533e+04_rb,1.4611e+04_rb,1.1689e+04_rb,8.7667e+03_rb, &\n     &5.8445e+03_rb,2.9222e+03_rb,1.3389e+01_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &3.0448e+04_rb,2.6642e+04_rb,2.2836e+04_rb,1.9030e+04_rb,1.5224e+04_rb,1.1418e+04_rb, &\n     &7.6119e+03_rb,3.8060e+03_rb,1.3397e+01_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &3.8507e+04_rb,3.3693e+04_rb,2.8880e+04_rb,2.4067e+04_rb,1.9253e+04_rb,1.4440e+04_rb, &\n     &9.6266e+03_rb,4.8133e+03_rb,1.3385e+01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &4.7469e+04_rb,4.1535e+04_rb,3.5602e+04_rb,2.9668e+04_rb,2.3734e+04_rb,1.7801e+04_rb, &\n     &1.1867e+04_rb,5.9336e+03_rb,1.3346e+01_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &1.4631e+04_rb,1.2802e+04_rb,1.0973e+04_rb,9.1445e+03_rb,7.3156e+03_rb,5.4867e+03_rb, &\n     &3.6578e+03_rb,1.8289e+03_rb,1.5943e+01_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &2.0262e+04_rb,1.7729e+04_rb,1.5197e+04_rb,1.2664e+04_rb,1.0131e+04_rb,7.5983e+03_rb, &\n     &5.0655e+03_rb,2.5328e+03_rb,1.6007e+01_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &2.6988e+04_rb,2.3615e+04_rb,2.0241e+04_rb,1.6868e+04_rb,1.3494e+04_rb,1.0121e+04_rb, &\n     &6.7470e+03_rb,3.3735e+03_rb,1.6031e+01_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &3.4853e+04_rb,3.0497e+04_rb,2.6140e+04_rb,2.1783e+04_rb,1.7427e+04_rb,1.3070e+04_rb, &\n     &8.7133e+03_rb,4.3567e+03_rb,1.6028e+01_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &4.3821e+04_rb,3.8343e+04_rb,3.2866e+04_rb,2.7388e+04_rb,2.1910e+04_rb,1.6433e+04_rb, &\n     &1.0955e+04_rb,5.4776e+03_rb,1.6009e+01_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &1.2010e+04_rb,1.0509e+04_rb,9.0077e+03_rb,7.5064e+03_rb,6.0051e+03_rb,4.5038e+03_rb, &\n     &3.0026e+03_rb,1.5013e+03_rb,1.9009e+01_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &1.7127e+04_rb,1.4986e+04_rb,1.2846e+04_rb,1.0705e+04_rb,8.5637e+03_rb,6.4228e+03_rb, &\n     &4.2818e+03_rb,2.1409e+03_rb,1.9111e+01_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &2.3449e+04_rb,2.0517e+04_rb,1.7586e+04_rb,1.4655e+04_rb,1.1724e+04_rb,8.7932e+03_rb, &\n     &5.8621e+03_rb,2.9311e+03_rb,1.9171e+01_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &3.0924e+04_rb,2.7059e+04_rb,2.3193e+04_rb,1.9328e+04_rb,1.5462e+04_rb,1.1597e+04_rb, &\n     &7.7310e+03_rb,3.8655e+03_rb,1.9184e+01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &3.9495e+04_rb,3.4558e+04_rb,2.9621e+04_rb,2.4684e+04_rb,1.9748e+04_rb,1.4811e+04_rb, &\n     &9.8738e+03_rb,4.9369e+03_rb,1.9172e+01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &9.4628e+03_rb,8.2800e+03_rb,7.0971e+03_rb,5.9142e+03_rb,4.7314e+03_rb,3.5485e+03_rb, &\n     &2.3657e+03_rb,1.1828e+03_rb,2.2644e+01_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &1.3981e+04_rb,1.2233e+04_rb,1.0486e+04_rb,8.7381e+03_rb,6.9905e+03_rb,5.2429e+03_rb, &\n     &3.4952e+03_rb,1.7476e+03_rb,2.2781e+01_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &1.9648e+04_rb,1.7192e+04_rb,1.4736e+04_rb,1.2280e+04_rb,9.8239e+03_rb,7.3679e+03_rb, &\n     &4.9119e+03_rb,2.4560e+03_rb,2.2869e+01_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &2.6483e+04_rb,2.3173e+04_rb,1.9862e+04_rb,1.6552e+04_rb,1.3242e+04_rb,9.9312e+03_rb, &\n     &6.6208e+03_rb,3.3104e+03_rb,2.2915e+01_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &3.4470e+04_rb,3.0161e+04_rb,2.5853e+04_rb,2.1544e+04_rb,1.7235e+04_rb,1.2926e+04_rb, &\n     &8.6175e+03_rb,4.3088e+03_rb,2.2923e+01_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &7.3078e+03_rb,6.3943e+03_rb,5.4808e+03_rb,4.5673e+03_rb,3.6539e+03_rb,2.7404e+03_rb, &\n     &1.8269e+03_rb,9.1346e+02_rb,2.6896e+01_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &1.1178e+04_rb,9.7811e+03_rb,8.3838e+03_rb,6.9865e+03_rb,5.5892e+03_rb,4.1919e+03_rb, &\n     &2.7946e+03_rb,1.3973e+03_rb,2.7090e+01_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &1.6168e+04_rb,1.4147e+04_rb,1.2126e+04_rb,1.0105e+04_rb,8.0839e+03_rb,6.0629e+03_rb, &\n     &4.0420e+03_rb,2.0210e+03_rb,2.7221e+01_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &2.2360e+04_rb,1.9565e+04_rb,1.6770e+04_rb,1.3975e+04_rb,1.1180e+04_rb,8.3848e+03_rb, &\n     &5.5899e+03_rb,2.7949e+03_rb,2.7298e+01_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &2.9827e+04_rb,2.6099e+04_rb,2.2370e+04_rb,1.8642e+04_rb,1.4913e+04_rb,1.1185e+04_rb, &\n     &7.4567e+03_rb,3.7283e+03_rb,2.7315e+01_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &5.5945e+03_rb,4.8952e+03_rb,4.1959e+03_rb,3.4966e+03_rb,2.7972e+03_rb,2.0979e+03_rb, &\n     &1.3986e+03_rb,6.9931e+02_rb,3.1842e+01_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &8.8907e+03_rb,7.7794e+03_rb,6.6680e+03_rb,5.5567e+03_rb,4.4454e+03_rb,3.3340e+03_rb, &\n     &2.2227e+03_rb,1.1113e+03_rb,3.2101e+01_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &1.3296e+04_rb,1.1634e+04_rb,9.9724e+03_rb,8.3103e+03_rb,6.6483e+03_rb,4.9862e+03_rb, &\n     &3.3241e+03_rb,1.6621e+03_rb,3.2282e+01_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &1.8955e+04_rb,1.6586e+04_rb,1.4216e+04_rb,1.1847e+04_rb,9.4776e+03_rb,7.1082e+03_rb, &\n     &4.7388e+03_rb,2.3694e+03_rb,3.2388e+01_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &2.5906e+04_rb,2.2668e+04_rb,1.9430e+04_rb,1.6191e+04_rb,1.2953e+04_rb,9.7149e+03_rb, &\n     &6.4766e+03_rb,3.2383e+03_rb,3.2425e+01_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &4.1067e+03_rb,3.5934e+03_rb,3.0800e+03_rb,2.5667e+03_rb,2.0533e+03_rb,1.5400e+03_rb, &\n     &1.0267e+03_rb,5.1334e+02_rb,3.7521e+01_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &6.8230e+03_rb,5.9701e+03_rb,5.1172e+03_rb,4.2644e+03_rb,3.4115e+03_rb,2.5586e+03_rb, &\n     &1.7057e+03_rb,8.5287e+02_rb,3.7865e+01_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &1.0614e+04_rb,9.2875e+03_rb,7.9607e+03_rb,6.6339e+03_rb,5.3071e+03_rb,3.9804e+03_rb, &\n     &2.6536e+03_rb,1.3268e+03_rb,3.8104e+01_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &1.5585e+04_rb,1.3637e+04_rb,1.1689e+04_rb,9.7408e+03_rb,7.7926e+03_rb,5.8445e+03_rb, &\n     &3.8963e+03_rb,1.9481e+03_rb,3.8251e+01_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &2.1772e+04_rb,1.9051e+04_rb,1.6329e+04_rb,1.3608e+04_rb,1.0886e+04_rb,8.1646e+03_rb, &\n     &5.4430e+03_rb,2.7215e+03_rb,3.8308e+01_rb/)\n      kao(:, 1,10,14) = (/ &\n     &3.0498e+03_rb,2.6686e+03_rb,2.2874e+03_rb,1.9061e+03_rb,1.5249e+03_rb,1.1437e+03_rb, &\n     &7.6245e+02_rb,3.8122e+02_rb,4.4006e+01_rb/)\n      kao(:, 2,10,14) = (/ &\n     &5.3046e+03_rb,4.6415e+03_rb,3.9785e+03_rb,3.3154e+03_rb,2.6523e+03_rb,1.9892e+03_rb, &\n     &1.3261e+03_rb,6.6307e+02_rb,4.4440e+01_rb/)\n      kao(:, 3,10,14) = (/ &\n     &8.5201e+03_rb,7.4551e+03_rb,6.3901e+03_rb,5.3250e+03_rb,4.2600e+03_rb,3.1950e+03_rb, &\n     &2.1300e+03_rb,1.0650e+03_rb,4.4746e+01_rb/)\n      kao(:, 4,10,14) = (/ &\n     &1.2818e+04_rb,1.1216e+04_rb,9.6138e+03_rb,8.0115e+03_rb,6.4092e+03_rb,4.8069e+03_rb, &\n     &3.2046e+03_rb,1.6023e+03_rb,4.4928e+01_rb/)\n      kao(:, 5,10,14) = (/ &\n     &1.8340e+04_rb,1.6048e+04_rb,1.3755e+04_rb,1.1463e+04_rb,9.1701e+03_rb,6.8776e+03_rb, &\n     &4.5851e+03_rb,2.2925e+03_rb,4.5005e+01_rb/)\n      kao(:, 1,11,14) = (/ &\n     &2.9434e+03_rb,2.5755e+03_rb,2.2076e+03_rb,1.8396e+03_rb,1.4717e+03_rb,1.1038e+03_rb, &\n     &7.3585e+02_rb,3.6793e+02_rb,5.1570e+01_rb/)\n      kao(:, 2,11,14) = (/ &\n     &5.1056e+03_rb,4.4674e+03_rb,3.8292e+03_rb,3.1910e+03_rb,2.5528e+03_rb,1.9146e+03_rb, &\n     &1.2764e+03_rb,6.3819e+02_rb,5.2012e+01_rb/)\n      kao(:, 3,11,14) = (/ &\n     &8.1976e+03_rb,7.1728e+03_rb,6.1481e+03_rb,5.1234e+03_rb,4.0987e+03_rb,3.0741e+03_rb, &\n     &2.0494e+03_rb,1.0247e+03_rb,5.2312e+01_rb/)\n      kao(:, 4,11,14) = (/ &\n     &1.2377e+04_rb,1.0830e+04_rb,9.2826e+03_rb,7.7355e+03_rb,6.1884e+03_rb,4.6413e+03_rb, &\n     &3.0942e+03_rb,1.5471e+03_rb,5.2478e+01_rb/)\n      kao(:, 5,11,14) = (/ &\n     &1.7764e+04_rb,1.5544e+04_rb,1.3323e+04_rb,1.1103e+04_rb,8.8820e+03_rb,6.6616e+03_rb, &\n     &4.4410e+03_rb,2.2205e+03_rb,5.2507e+01_rb/)\n      kao(:, 1,12,14) = (/ &\n     &2.8315e+03_rb,2.4776e+03_rb,2.1237e+03_rb,1.7697e+03_rb,1.4158e+03_rb,1.0618e+03_rb, &\n     &7.0789e+02_rb,3.5394e+02_rb,5.9960e+01_rb/)\n      kao(:, 2,12,14) = (/ &\n     &4.9224e+03_rb,4.3071e+03_rb,3.6918e+03_rb,3.0765e+03_rb,2.4612e+03_rb,1.8459e+03_rb, &\n     &1.2306e+03_rb,6.1530e+02_rb,6.0405e+01_rb/)\n      kao(:, 3,12,14) = (/ &\n     &7.9376e+03_rb,6.9454e+03_rb,5.9532e+03_rb,4.9610e+03_rb,3.9688e+03_rb,2.9766e+03_rb, &\n     &1.9844e+03_rb,9.9220e+02_rb,6.0667e+01_rb/)\n      kao(:, 4,12,14) = (/ &\n     &1.2004e+04_rb,1.0504e+04_rb,9.0032e+03_rb,7.5027e+03_rb,6.0021e+03_rb,4.5016e+03_rb, &\n     &3.0011e+03_rb,1.5005e+03_rb,6.0769e+01_rb/)\n      kao(:, 5,12,14) = (/ &\n     &1.7211e+04_rb,1.5059e+04_rb,1.2908e+04_rb,1.0757e+04_rb,8.6054e+03_rb,6.4541e+03_rb, &\n     &4.3027e+03_rb,2.1514e+03_rb,6.0741e+01_rb/)\n      kao(:, 1,13,14) = (/ &\n     &2.8060e+03_rb,2.4552e+03_rb,2.1045e+03_rb,1.7537e+03_rb,1.4030e+03_rb,1.0522e+03_rb, &\n     &7.0149e+02_rb,3.5075e+02_rb,6.9076e+01_rb/)\n      kao(:, 2,13,14) = (/ &\n     &4.9007e+03_rb,4.2881e+03_rb,3.6756e+03_rb,3.0630e+03_rb,2.4504e+03_rb,1.8378e+03_rb, &\n     &1.2252e+03_rb,6.1260e+02_rb,6.9478e+01_rb/)\n      kao(:, 3,13,14) = (/ &\n     &7.8921e+03_rb,6.9056e+03_rb,5.9191e+03_rb,4.9326e+03_rb,3.9460e+03_rb,2.9595e+03_rb, &\n     &1.9730e+03_rb,9.8652e+02_rb,6.9694e+01_rb/)\n      kao(:, 4,13,14) = (/ &\n     &1.1933e+04_rb,1.0441e+04_rb,8.9495e+03_rb,7.4579e+03_rb,5.9663e+03_rb,4.4748e+03_rb, &\n     &2.9832e+03_rb,1.4916e+03_rb,6.9728e+01_rb/)\n      kao(:, 5,13,14) = (/ &\n     &1.7152e+04_rb,1.5008e+04_rb,1.2864e+04_rb,1.0720e+04_rb,8.5759e+03_rb,6.4320e+03_rb, &\n     &4.2880e+03_rb,2.1440e+03_rb,6.9601e+01_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &3.5423e+04_rb,3.0995e+04_rb,2.6567e+04_rb,2.2139e+04_rb,1.7712e+04_rb,1.3284e+04_rb, &\n     &8.8558e+03_rb,4.4279e+03_rb,7.1610e-03_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &4.5820e+04_rb,4.0093e+04_rb,3.4365e+04_rb,2.8638e+04_rb,2.2910e+04_rb,1.7183e+04_rb, &\n     &1.1455e+04_rb,5.7276e+03_rb,7.1091e-03_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &5.7623e+04_rb,5.0421e+04_rb,4.3218e+04_rb,3.6015e+04_rb,2.8812e+04_rb,2.1609e+04_rb, &\n     &1.4406e+04_rb,7.2029e+03_rb,7.8150e-03_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &7.0726e+04_rb,6.1885e+04_rb,5.3044e+04_rb,4.4204e+04_rb,3.5363e+04_rb,2.6522e+04_rb, &\n     &1.7681e+04_rb,8.8407e+03_rb,4.0966e-02_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &8.4947e+04_rb,7.4329e+04_rb,6.3711e+04_rb,5.3092e+04_rb,4.2474e+04_rb,3.1855e+04_rb, &\n     &2.1237e+04_rb,1.0618e+04_rb,1.7079e-01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &3.6296e+04_rb,3.1759e+04_rb,2.7222e+04_rb,2.2685e+04_rb,1.8148e+04_rb,1.3611e+04_rb, &\n     &9.0740e+03_rb,4.5370e+03_rb,7.6264e-03_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &4.7676e+04_rb,4.1717e+04_rb,3.5757e+04_rb,2.9798e+04_rb,2.3838e+04_rb,1.7879e+04_rb, &\n     &1.1919e+04_rb,5.9595e+03_rb,7.8530e+00_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &6.0722e+04_rb,5.3132e+04_rb,4.5542e+04_rb,3.7951e+04_rb,3.0361e+04_rb,2.2771e+04_rb, &\n     &1.5181e+04_rb,7.5903e+03_rb,1.1682e+01_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &7.5305e+04_rb,6.5892e+04_rb,5.6479e+04_rb,4.7065e+04_rb,3.7652e+04_rb,2.8239e+04_rb, &\n     &1.8826e+04_rb,9.4131e+03_rb,7.5532e+00_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &9.1241e+04_rb,7.9835e+04_rb,6.8430e+04_rb,5.7025e+04_rb,4.5620e+04_rb,3.4215e+04_rb, &\n     &2.2810e+04_rb,1.1405e+04_rb,1.0957e+00_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &3.4715e+04_rb,3.0376e+04_rb,2.6036e+04_rb,2.1697e+04_rb,1.7358e+04_rb,1.3018e+04_rb, &\n     &8.6788e+03_rb,4.3394e+03_rb,1.4232e+01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &4.6613e+04_rb,4.0787e+04_rb,3.4960e+04_rb,2.9133e+04_rb,2.3307e+04_rb,1.7480e+04_rb, &\n     &1.1653e+04_rb,5.8267e+03_rb,1.4235e+01_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &6.0451e+04_rb,5.2894e+04_rb,4.5338e+04_rb,3.7782e+04_rb,3.0225e+04_rb,2.2669e+04_rb, &\n     &1.5113e+04_rb,7.5563e+03_rb,1.4209e+01_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &7.6104e+04_rb,6.6591e+04_rb,5.7078e+04_rb,4.7565e+04_rb,3.8052e+04_rb,2.8539e+04_rb, &\n     &1.9026e+04_rb,9.5130e+03_rb,1.4121e+01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &9.3385e+04_rb,8.1712e+04_rb,7.0039e+04_rb,5.8365e+04_rb,4.6692e+04_rb,3.5019e+04_rb, &\n     &2.3346e+04_rb,1.1673e+04_rb,1.4063e+01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &3.1974e+04_rb,2.7977e+04_rb,2.3981e+04_rb,1.9984e+04_rb,1.5987e+04_rb,1.1990e+04_rb, &\n     &7.9936e+03_rb,3.9968e+03_rb,1.7130e+01_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &4.4033e+04_rb,3.8529e+04_rb,3.3025e+04_rb,2.7521e+04_rb,2.2017e+04_rb,1.6512e+04_rb, &\n     &1.1008e+04_rb,5.5042e+03_rb,1.7154e+01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &5.8299e+04_rb,5.1012e+04_rb,4.3725e+04_rb,3.6437e+04_rb,2.9150e+04_rb,2.1862e+04_rb, &\n     &1.4575e+04_rb,7.2874e+03_rb,1.7147e+01_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &7.4658e+04_rb,6.5325e+04_rb,5.5993e+04_rb,4.6661e+04_rb,3.7329e+04_rb,2.7997e+04_rb, &\n     &1.8664e+04_rb,9.3322e+03_rb,1.7125e+01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &9.3061e+04_rb,8.1428e+04_rb,6.9796e+04_rb,5.8163e+04_rb,4.6530e+04_rb,3.4898e+04_rb, &\n     &2.3265e+04_rb,1.1633e+04_rb,1.7053e+01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &2.8780e+04_rb,2.5183e+04_rb,2.1585e+04_rb,1.7988e+04_rb,1.4390e+04_rb,1.0793e+04_rb, &\n     &7.1950e+03_rb,3.5975e+03_rb,2.0610e+01_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &4.0696e+04_rb,3.5609e+04_rb,3.0522e+04_rb,2.5435e+04_rb,2.0348e+04_rb,1.5261e+04_rb, &\n     &1.0174e+04_rb,5.0871e+03_rb,2.0673e+01_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &5.5132e+04_rb,4.8240e+04_rb,4.1349e+04_rb,3.4457e+04_rb,2.7566e+04_rb,2.0674e+04_rb, &\n     &1.3783e+04_rb,6.8915e+03_rb,2.0688e+01_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &7.2202e+04_rb,6.3177e+04_rb,5.4152e+04_rb,4.5126e+04_rb,3.6101e+04_rb,2.7076e+04_rb, &\n     &1.8051e+04_rb,9.0253e+03_rb,2.0678e+01_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &9.1794e+04_rb,8.0320e+04_rb,6.8846e+04_rb,5.7371e+04_rb,4.5897e+04_rb,3.4423e+04_rb, &\n     &2.2949e+04_rb,1.1474e+04_rb,2.0627e+01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &2.4928e+04_rb,2.1812e+04_rb,1.8696e+04_rb,1.5580e+04_rb,1.2464e+04_rb,9.3479e+03_rb, &\n     &6.2319e+03_rb,3.1160e+03_rb,2.4743e+01_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &3.6459e+04_rb,3.1902e+04_rb,2.7344e+04_rb,2.2787e+04_rb,1.8230e+04_rb,1.3672e+04_rb, &\n     &9.1148e+03_rb,4.5574e+03_rb,2.4868e+01_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &5.0921e+04_rb,4.4556e+04_rb,3.8191e+04_rb,3.1826e+04_rb,2.5461e+04_rb,1.9095e+04_rb, &\n     &1.2730e+04_rb,6.3651e+03_rb,2.4935e+01_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &6.8337e+04_rb,5.9795e+04_rb,5.1253e+04_rb,4.2711e+04_rb,3.4168e+04_rb,2.5626e+04_rb, &\n     &1.7084e+04_rb,8.5421e+03_rb,2.4952e+01_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &8.8665e+04_rb,7.7582e+04_rb,6.6499e+04_rb,5.5416e+04_rb,4.4333e+04_rb,3.3249e+04_rb, &\n     &2.2166e+04_rb,1.1083e+04_rb,2.4917e+01_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &2.1322e+04_rb,1.8657e+04_rb,1.5992e+04_rb,1.3326e+04_rb,1.0661e+04_rb,7.9957e+03_rb, &\n     &5.3305e+03_rb,2.6652e+03_rb,2.9665e+01_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &3.2413e+04_rb,2.8361e+04_rb,2.4310e+04_rb,2.0258e+04_rb,1.6206e+04_rb,1.2155e+04_rb, &\n     &8.1031e+03_rb,4.0516e+03_rb,2.9861e+01_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &4.6696e+04_rb,4.0859e+04_rb,3.5022e+04_rb,2.9185e+04_rb,2.3348e+04_rb,1.7511e+04_rb, &\n     &1.1674e+04_rb,5.8369e+03_rb,3.0001e+01_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &6.4261e+04_rb,5.6228e+04_rb,4.8195e+04_rb,4.0163e+04_rb,3.2130e+04_rb,2.4098e+04_rb, &\n     &1.6065e+04_rb,8.0325e+03_rb,3.0074e+01_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &8.5103e+04_rb,7.4465e+04_rb,6.3827e+04_rb,5.3189e+04_rb,4.2551e+04_rb,3.1914e+04_rb, &\n     &2.1276e+04_rb,1.0638e+04_rb,3.0077e+01_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &1.8276e+04_rb,1.5991e+04_rb,1.3707e+04_rb,1.1422e+04_rb,9.1380e+03_rb,6.8535e+03_rb, &\n     &4.5690e+03_rb,2.2845e+03_rb,3.5525e+01_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &2.8919e+04_rb,2.5304e+04_rb,2.1689e+04_rb,1.8074e+04_rb,1.4459e+04_rb,1.0845e+04_rb, &\n     &7.2298e+03_rb,3.6149e+03_rb,3.5844e+01_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &4.2999e+04_rb,3.7624e+04_rb,3.2249e+04_rb,2.6874e+04_rb,2.1500e+04_rb,1.6125e+04_rb, &\n     &1.0750e+04_rb,5.3749e+03_rb,3.6058e+01_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &6.0712e+04_rb,5.3123e+04_rb,4.5534e+04_rb,3.7945e+04_rb,3.0356e+04_rb,2.2767e+04_rb, &\n     &1.5178e+04_rb,7.5890e+03_rb,3.6184e+01_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &8.2146e+04_rb,7.1878e+04_rb,6.1610e+04_rb,5.1341e+04_rb,4.1073e+04_rb,3.0805e+04_rb, &\n     &2.0537e+04_rb,1.0268e+04_rb,3.6243e+01_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &1.5122e+04_rb,1.3232e+04_rb,1.1341e+04_rb,9.4512e+03_rb,7.5610e+03_rb,5.6707e+03_rb, &\n     &3.7805e+03_rb,1.8902e+03_rb,4.2513e+01_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &2.4972e+04_rb,2.1851e+04_rb,1.8729e+04_rb,1.5608e+04_rb,1.2486e+04_rb,9.3646e+03_rb, &\n     &6.2431e+03_rb,3.1215e+03_rb,4.2950e+01_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &3.8412e+04_rb,3.3611e+04_rb,2.8809e+04_rb,2.4007e+04_rb,1.9206e+04_rb,1.4404e+04_rb, &\n     &9.6030e+03_rb,4.8015e+03_rb,4.3278e+01_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &5.5843e+04_rb,4.8863e+04_rb,4.1882e+04_rb,3.4902e+04_rb,2.7921e+04_rb,2.0941e+04_rb, &\n     &1.3961e+04_rb,6.9804e+03_rb,4.3480e+01_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &7.7611e+04_rb,6.7910e+04_rb,5.8208e+04_rb,4.8507e+04_rb,3.8805e+04_rb,2.9104e+04_rb, &\n     &1.9403e+04_rb,9.7013e+03_rb,4.3587e+01_rb/)\n      kao(:, 1,10,15) = (/ &\n     &1.2684e+04_rb,1.1099e+04_rb,9.5132e+03_rb,7.9276e+03_rb,6.3421e+03_rb,4.7566e+03_rb, &\n     &3.1710e+03_rb,1.5855e+03_rb,5.0840e+01_rb/)\n      kao(:, 2,10,15) = (/ &\n     &2.1787e+04_rb,1.9064e+04_rb,1.6340e+04_rb,1.3617e+04_rb,1.0893e+04_rb,8.1700e+03_rb, &\n     &5.4467e+03_rb,2.7233e+03_rb,5.1430e+01_rb/)\n      kao(:, 3,10,15) = (/ &\n     &3.4684e+04_rb,3.0349e+04_rb,2.6013e+04_rb,2.1678e+04_rb,1.7342e+04_rb,1.3007e+04_rb, &\n     &8.6710e+03_rb,4.3355e+03_rb,5.1863e+01_rb/)\n      kao(:, 4,10,15) = (/ &\n     &5.1947e+04_rb,4.5454e+04_rb,3.8960e+04_rb,3.2467e+04_rb,2.5974e+04_rb,1.9480e+04_rb, &\n     &1.2987e+04_rb,6.4934e+03_rb,5.2160e+01_rb/)\n      kao(:, 5,10,15) = (/ &\n     &7.3912e+04_rb,6.4673e+04_rb,5.5434e+04_rb,4.6195e+04_rb,3.6956e+04_rb,2.7717e+04_rb, &\n     &1.8478e+04_rb,9.2389e+03_rb,5.2321e+01_rb/)\n      kao(:, 1,11,15) = (/ &\n     &1.3711e+04_rb,1.1997e+04_rb,1.0283e+04_rb,8.5694e+03_rb,6.8555e+03_rb,5.1416e+03_rb, &\n     &3.4277e+03_rb,1.7139e+03_rb,6.1054e+01_rb/)\n      kao(:, 2,11,15) = (/ &\n     &2.3669e+04_rb,2.0711e+04_rb,1.7752e+04_rb,1.4793e+04_rb,1.1835e+04_rb,8.8760e+03_rb, &\n     &5.9173e+03_rb,2.9586e+03_rb,6.1742e+01_rb/)\n      kao(:, 3,11,15) = (/ &\n     &3.7832e+04_rb,3.3103e+04_rb,2.8374e+04_rb,2.3645e+04_rb,1.8916e+04_rb,1.4187e+04_rb, &\n     &9.4579e+03_rb,4.7289e+03_rb,6.2215e+01_rb/)\n      kao(:, 4,11,15) = (/ &\n     &5.6757e+04_rb,4.9662e+04_rb,4.2568e+04_rb,3.5473e+04_rb,2.8378e+04_rb,2.1284e+04_rb, &\n     &1.4189e+04_rb,7.0945e+03_rb,6.2524e+01_rb/)\n      kao(:, 5,11,15) = (/ &\n     &8.0798e+04_rb,7.0698e+04_rb,6.0598e+04_rb,5.0499e+04_rb,4.0399e+04_rb,3.0299e+04_rb, &\n     &2.0199e+04_rb,1.0100e+04_rb,6.2689e+01_rb/)\n      kao(:, 1,12,15) = (/ &\n     &1.4989e+04_rb,1.3115e+04_rb,1.1241e+04_rb,9.3679e+03_rb,7.4943e+03_rb,5.6207e+03_rb, &\n     &3.7471e+03_rb,1.8736e+03_rb,7.3162e+01_rb/)\n      kao(:, 2,12,15) = (/ &\n     &2.5949e+04_rb,2.2705e+04_rb,1.9461e+04_rb,1.6218e+04_rb,1.2974e+04_rb,9.7307e+03_rb, &\n     &6.4871e+03_rb,3.2436e+03_rb,7.3885e+01_rb/)\n      kao(:, 3,12,15) = (/ &\n     &4.1513e+04_rb,3.6324e+04_rb,3.1134e+04_rb,2.5945e+04_rb,2.0756e+04_rb,1.5567e+04_rb, &\n     &1.0378e+04_rb,5.1891e+03_rb,7.4405e+01_rb/)\n      kao(:, 4,12,15) = (/ &\n     &6.2315e+04_rb,5.4526e+04_rb,4.6737e+04_rb,3.8947e+04_rb,3.1158e+04_rb,2.3368e+04_rb, &\n     &1.5579e+04_rb,7.7894e+03_rb,7.4701e+01_rb/)\n      kao(:, 5,12,15) = (/ &\n     &8.8861e+04_rb,7.7754e+04_rb,6.6646e+04_rb,5.5538e+04_rb,4.4431e+04_rb,3.3323e+04_rb, &\n     &2.2215e+04_rb,1.1108e+04_rb,7.4795e+01_rb/)\n      kao(:, 1,13,15) = (/ &\n     &1.6915e+04_rb,1.4801e+04_rb,1.2687e+04_rb,1.0572e+04_rb,8.4577e+03_rb,6.3433e+03_rb, &\n     &4.2289e+03_rb,2.1144e+03_rb,8.7334e+01_rb/)\n      kao(:, 2,13,15) = (/ &\n     &2.9284e+04_rb,2.5624e+04_rb,2.1963e+04_rb,1.8303e+04_rb,1.4642e+04_rb,1.0982e+04_rb, &\n     &7.3211e+03_rb,3.6605e+03_rb,8.8104e+01_rb/)\n      kao(:, 3,13,15) = (/ &\n     &4.6892e+04_rb,4.1031e+04_rb,3.5169e+04_rb,2.9308e+04_rb,2.3446e+04_rb,1.7585e+04_rb, &\n     &1.1723e+04_rb,5.8616e+03_rb,8.8585e+01_rb/)\n      kao(:, 4,13,15) = (/ &\n     &7.0448e+04_rb,6.1642e+04_rb,5.2836e+04_rb,4.4030e+04_rb,3.5224e+04_rb,2.6418e+04_rb, &\n     &1.7612e+04_rb,8.8061e+03_rb,8.8802e+01_rb/)\n      kao(:, 5,13,15) = (/ &\n     &1.0039e+05_rb,8.7843e+04_rb,7.5294e+04_rb,6.2745e+04_rb,5.0196e+04_rb,3.7647e+04_rb, &\n     &2.5098e+04_rb,1.2549e+04_rb,8.8791e+01_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &4.3683e+04_rb,3.8223e+04_rb,3.2762e+04_rb,2.7302e+04_rb,2.1842e+04_rb,1.6381e+04_rb, &\n     &1.0921e+04_rb,5.4604e+03_rb,7.6073e-03_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &5.6813e+04_rb,4.9712e+04_rb,4.2610e+04_rb,3.5508e+04_rb,2.8407e+04_rb,2.1305e+04_rb, &\n     &1.4203e+04_rb,7.1017e+03_rb,7.6403e-03_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &7.1746e+04_rb,6.2777e+04_rb,5.3809e+04_rb,4.4841e+04_rb,3.5873e+04_rb,2.6905e+04_rb, &\n     &1.7936e+04_rb,8.9682e+03_rb,3.7278e-03_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &8.8334e+04_rb,7.7292e+04_rb,6.6250e+04_rb,5.5209e+04_rb,4.4167e+04_rb,3.3125e+04_rb, &\n     &2.2083e+04_rb,1.1042e+04_rb,3.7292e-03_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &1.0639e+05_rb,9.3091e+04_rb,7.9793e+04_rb,6.6494e+04_rb,5.3195e+04_rb,3.9896e+04_rb, &\n     &2.6598e+04_rb,1.3299e+04_rb,7.8826e-01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &4.6897e+04_rb,4.1035e+04_rb,3.5173e+04_rb,2.9311e+04_rb,2.3449e+04_rb,1.7586e+04_rb, &\n     &1.1724e+04_rb,5.8622e+03_rb,8.2408e-03_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &6.1887e+04_rb,5.4151e+04_rb,4.6415e+04_rb,3.8679e+04_rb,3.0943e+04_rb,2.3208e+04_rb, &\n     &1.5472e+04_rb,7.7359e+03_rb,1.2063e+01_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &7.9108e+04_rb,6.9219e+04_rb,5.9331e+04_rb,4.9442e+04_rb,3.9554e+04_rb,2.9666e+04_rb, &\n     &1.9777e+04_rb,9.8885e+03_rb,1.1743e+01_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &9.8415e+04_rb,8.6113e+04_rb,7.3811e+04_rb,6.1509e+04_rb,4.9207e+04_rb,3.6906e+04_rb, &\n     &2.4604e+04_rb,1.2302e+04_rb,3.5693e-03_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &1.1961e+05_rb,1.0466e+05_rb,8.9707e+04_rb,7.4755e+04_rb,5.9804e+04_rb,4.4853e+04_rb, &\n     &2.9902e+04_rb,1.4951e+04_rb,5.8824e-01_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &4.7187e+04_rb,4.1289e+04_rb,3.5390e+04_rb,2.9492e+04_rb,2.3594e+04_rb,1.7695e+04_rb, &\n     &1.1797e+04_rb,5.8984e+03_rb,1.4554e+01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &6.3662e+04_rb,5.5704e+04_rb,4.7746e+04_rb,3.9789e+04_rb,3.1831e+04_rb,2.3873e+04_rb, &\n     &1.5915e+04_rb,7.9577e+03_rb,1.4573e+01_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &8.2931e+04_rb,7.2565e+04_rb,6.2198e+04_rb,5.1832e+04_rb,4.1465e+04_rb,3.1099e+04_rb, &\n     &2.0733e+04_rb,1.0366e+04_rb,1.4578e+01_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &1.0484e+05_rb,9.1735e+04_rb,7.8630e+04_rb,6.5525e+04_rb,5.2420e+04_rb,3.9315e+04_rb, &\n     &2.6210e+04_rb,1.3105e+04_rb,1.4538e+01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &1.2920e+05_rb,1.1305e+05_rb,9.6898e+04_rb,8.0748e+04_rb,6.4599e+04_rb,4.8449e+04_rb, &\n     &3.2299e+04_rb,1.6150e+04_rb,1.4475e+01_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &4.6077e+04_rb,4.0317e+04_rb,3.4558e+04_rb,2.8798e+04_rb,2.3038e+04_rb,1.7279e+04_rb, &\n     &1.1519e+04_rb,5.7596e+03_rb,1.7584e+01_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &6.3824e+04_rb,5.5846e+04_rb,4.7868e+04_rb,3.9890e+04_rb,3.1912e+04_rb,2.3934e+04_rb, &\n     &1.5956e+04_rb,7.9779e+03_rb,1.7639e+01_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &8.4999e+04_rb,7.4374e+04_rb,6.3749e+04_rb,5.3124e+04_rb,4.2499e+04_rb,3.1874e+04_rb, &\n     &2.1250e+04_rb,1.0625e+04_rb,1.7665e+01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &1.0949e+05_rb,9.5804e+04_rb,8.2118e+04_rb,6.8432e+04_rb,5.4745e+04_rb,4.1059e+04_rb, &\n     &2.7373e+04_rb,1.3686e+04_rb,1.7655e+01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &1.3706e+05_rb,1.1993e+05_rb,1.0280e+05_rb,8.5665e+04_rb,6.8532e+04_rb,5.1399e+04_rb, &\n     &3.4266e+04_rb,1.7133e+04_rb,1.7601e+01_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &4.4408e+04_rb,3.8857e+04_rb,3.3306e+04_rb,2.7755e+04_rb,2.2204e+04_rb,1.6653e+04_rb, &\n     &1.1102e+04_rb,5.5509e+03_rb,2.1257e+01_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &6.3274e+04_rb,5.5364e+04_rb,4.7455e+04_rb,3.9546e+04_rb,3.1637e+04_rb,2.3728e+04_rb, &\n     &1.5818e+04_rb,7.9092e+03_rb,2.1367e+01_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &8.6266e+04_rb,7.5483e+04_rb,6.4700e+04_rb,5.3916e+04_rb,4.3133e+04_rb,3.2350e+04_rb, &\n     &2.1567e+04_rb,1.0783e+04_rb,2.1428e+01_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &1.1336e+05_rb,9.9194e+04_rb,8.5023e+04_rb,7.0853e+04_rb,5.6682e+04_rb,4.2512e+04_rb, &\n     &2.8341e+04_rb,1.4171e+04_rb,2.1442e+01_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &1.4437e+05_rb,1.2632e+05_rb,1.0827e+05_rb,9.0229e+04_rb,7.2183e+04_rb,5.4137e+04_rb, &\n     &3.6091e+04_rb,1.8046e+04_rb,2.1411e+01_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &4.1622e+04_rb,3.6419e+04_rb,3.1217e+04_rb,2.6014e+04_rb,2.0811e+04_rb,1.5608e+04_rb, &\n     &1.0406e+04_rb,5.2028e+03_rb,2.5704e+01_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &6.1272e+04_rb,5.3613e+04_rb,4.5954e+04_rb,3.8295e+04_rb,3.0636e+04_rb,2.2977e+04_rb, &\n     &1.5318e+04_rb,7.6590e+03_rb,2.5880e+01_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &8.5823e+04_rb,7.5095e+04_rb,6.4367e+04_rb,5.3639e+04_rb,4.2911e+04_rb,3.2183e+04_rb, &\n     &2.1456e+04_rb,1.0728e+04_rb,2.5988e+01_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &1.1534e+05_rb,1.0092e+05_rb,8.6501e+04_rb,7.2084e+04_rb,5.7667e+04_rb,4.3251e+04_rb, &\n     &2.8834e+04_rb,1.4417e+04_rb,2.6050e+01_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &1.4970e+05_rb,1.3098e+05_rb,1.1227e+05_rb,9.3560e+04_rb,7.4848e+04_rb,5.6136e+04_rb, &\n     &3.7424e+04_rb,1.8712e+04_rb,2.6033e+01_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &3.8762e+04_rb,3.3917e+04_rb,2.9071e+04_rb,2.4226e+04_rb,1.9381e+04_rb,1.4536e+04_rb, &\n     &9.6904e+03_rb,4.8452e+03_rb,3.1098e+01_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &5.9114e+04_rb,5.1725e+04_rb,4.4335e+04_rb,3.6946e+04_rb,2.9557e+04_rb,2.2168e+04_rb, &\n     &1.4778e+04_rb,7.3892e+03_rb,3.1343e+01_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &8.5273e+04_rb,7.4614e+04_rb,6.3955e+04_rb,5.3296e+04_rb,4.2636e+04_rb,3.1977e+04_rb, &\n     &2.1318e+04_rb,1.0659e+04_rb,3.1509e+01_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &1.1738e+05_rb,1.0271e+05_rb,8.8034e+04_rb,7.3362e+04_rb,5.8689e+04_rb,4.4017e+04_rb, &\n     &2.9345e+04_rb,1.4672e+04_rb,3.1622e+01_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &1.5542e+05_rb,1.3599e+05_rb,1.1657e+05_rb,9.7138e+04_rb,7.7710e+04_rb,5.8283e+04_rb, &\n     &3.8855e+04_rb,1.9427e+04_rb,3.1655e+01_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &3.6377e+04_rb,3.1830e+04_rb,2.7279e+04_rb,2.2736e+04_rb,1.8189e+04_rb,1.3641e+04_rb, &\n     &9.0943e+03_rb,4.5472e+03_rb,3.7610e+01_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &5.7649e+04_rb,5.0443e+04_rb,4.3237e+04_rb,3.6031e+04_rb,2.8825e+04_rb,2.1619e+04_rb, &\n     &1.4412e+04_rb,7.2062e+03_rb,3.7934e+01_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &8.5747e+04_rb,7.5029e+04_rb,6.4311e+04_rb,5.3592e+04_rb,4.2874e+04_rb,3.2155e+04_rb, &\n     &2.1437e+04_rb,1.0718e+04_rb,3.8193e+01_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &1.2106e+05_rb,1.0593e+05_rb,9.0796e+04_rb,7.5663e+04_rb,6.0531e+04_rb,4.5398e+04_rb, &\n     &3.0265e+04_rb,1.5133e+04_rb,3.8356e+01_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &1.6369e+05_rb,1.4323e+05_rb,1.2277e+05_rb,1.0231e+05_rb,8.1844e+04_rb,6.1383e+04_rb, &\n     &4.0922e+04_rb,2.0461e+04_rb,3.8437e+01_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &3.3210e+04_rb,2.9058e+04_rb,2.4907e+04_rb,2.0756e+04_rb,1.6605e+04_rb,1.2454e+04_rb, &\n     &8.3024e+03_rb,4.1512e+03_rb,4.5425e+01_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &5.4859e+04_rb,4.8001e+04_rb,4.1144e+04_rb,3.4287e+04_rb,2.7429e+04_rb,2.0572e+04_rb, &\n     &1.3715e+04_rb,6.8573e+03_rb,4.5889e+01_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &8.4365e+04_rb,7.3820e+04_rb,6.3274e+04_rb,5.2728e+04_rb,4.2183e+04_rb,3.1637e+04_rb, &\n     &2.1091e+04_rb,1.0546e+04_rb,4.6246e+01_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &1.2241e+05_rb,1.0711e+05_rb,9.1805e+04_rb,7.6504e+04_rb,6.1203e+04_rb,4.5902e+04_rb, &\n     &3.0602e+04_rb,1.5301e+04_rb,4.6486e+01_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &1.6922e+05_rb,1.4806e+05_rb,1.2691e+05_rb,1.0576e+05_rb,8.4608e+04_rb,6.3456e+04_rb, &\n     &4.2304e+04_rb,2.1152e+04_rb,4.6625e+01_rb/)\n      kao(:, 1,10,16) = (/ &\n     &3.0979e+04_rb,2.7106e+04_rb,2.3234e+04_rb,1.9362e+04_rb,1.5489e+04_rb,1.1617e+04_rb, &\n     &7.7447e+03_rb,3.8723e+03_rb,5.4886e+01_rb/)\n      kao(:, 2,10,16) = (/ &\n     &5.3196e+04_rb,4.6547e+04_rb,3.9897e+04_rb,3.3248e+04_rb,2.6598e+04_rb,1.9948e+04_rb, &\n     &1.3299e+04_rb,6.6495e+03_rb,5.5476e+01_rb/)\n      kao(:, 3,10,16) = (/ &\n     &8.4341e+04_rb,7.3798e+04_rb,6.3256e+04_rb,5.2713e+04_rb,4.2170e+04_rb,3.1628e+04_rb, &\n     &2.1085e+04_rb,1.0332e+04_rb,5.5974e+01_rb/)\n      kao(:, 4,10,16) = (/ &\n     &1.2535e+05_rb,1.0968e+05_rb,9.4014e+04_rb,7.8345e+04_rb,6.2676e+04_rb,4.7007e+04_rb, &\n     &3.1338e+04_rb,1.5669e+04_rb,5.6279e+01_rb/)\n      kao(:, 5,10,16) = (/ &\n     &1.7674e+05_rb,1.5464e+05_rb,1.3255e+05_rb,1.1046e+05_rb,8.8368e+04_rb,6.6276e+04_rb, &\n     &4.4184e+04_rb,2.2092e+04_rb,5.6482e+01_rb/)\n      kao(:, 1,11,16) = (/ &\n     &3.7488e+04_rb,3.2802e+04_rb,2.8116e+04_rb,2.3430e+04_rb,1.8744e+04_rb,1.4058e+04_rb, &\n     &9.3718e+03_rb,4.6859e+03_rb,6.6623e+01_rb/)\n      kao(:, 2,11,16) = (/ &\n     &6.4180e+04_rb,5.6158e+04_rb,4.8135e+04_rb,4.0112e+04_rb,3.2090e+04_rb,2.4067e+04_rb, &\n     &1.6045e+04_rb,8.0224e+03_rb,6.7308e+01_rb/)\n      kao(:, 3,11,16) = (/ &\n     &1.0143e+05_rb,8.8753e+04_rb,7.6074e+04_rb,6.3395e+04_rb,5.0716e+04_rb,3.8037e+04_rb, &\n     &2.5358e+04_rb,1.2679e+04_rb,6.7849e+01_rb/)\n      kao(:, 4,11,16) = (/ &\n     &1.5034e+05_rb,1.3155e+05_rb,1.1275e+05_rb,9.3961e+04_rb,7.5169e+04_rb,5.6376e+04_rb, &\n     &3.7584e+04_rb,1.8792e+04_rb,6.8179e+01_rb/)\n      kao(:, 5,11,16) = (/ &\n     &2.1140e+05_rb,1.8498e+05_rb,1.5855e+05_rb,1.3213e+05_rb,1.0570e+05_rb,7.9275e+04_rb, &\n     &5.2850e+04_rb,2.6425e+04_rb,6.8333e+01_rb/)\n      kao(:, 1,12,16) = (/ &\n     &4.5641e+04_rb,3.9936e+04_rb,3.4231e+04_rb,2.8526e+04_rb,2.2821e+04_rb,1.7116e+04_rb, &\n     &1.1410e+04_rb,5.7052e+03_rb,8.0729e+01_rb/)\n      kao(:, 2,12,16) = (/ &\n     &7.7843e+04_rb,6.8113e+04_rb,5.8382e+04_rb,4.8652e+04_rb,3.8922e+04_rb,2.9191e+04_rb, &\n     &1.9461e+04_rb,9.7304e+03_rb,8.1511e+01_rb/)\n      kao(:, 3,12,16) = (/ &\n     &1.2264e+05_rb,1.0731e+05_rb,9.1979e+04_rb,7.6649e+04_rb,6.1320e+04_rb,4.5990e+04_rb, &\n     &3.0660e+04_rb,1.5330e+04_rb,8.2042e+01_rb/)\n      kao(:, 4,12,16) = (/ &\n     &1.8173e+05_rb,1.5901e+05_rb,1.3629e+05_rb,1.1358e+05_rb,9.0863e+04_rb,6.8147e+04_rb, &\n     &4.5431e+04_rb,2.2716e+04_rb,8.2374e+01_rb/)\n      kao(:, 5,12,16) = (/ &\n     &2.5615e+05_rb,2.2413e+05_rb,1.9211e+05_rb,1.6009e+05_rb,1.2807e+05_rb,9.6056e+04_rb, &\n     &6.4037e+04_rb,3.2019e+04_rb,8.2428e+01_rb/)\n      kao(:, 1,13,16) = (/ &\n     &5.7163e+04_rb,5.0018e+04_rb,4.2872e+04_rb,3.5727e+04_rb,2.8582e+04_rb,2.1436e+04_rb, &\n     &1.4291e+04_rb,7.1455e+03_rb,9.7539e+01_rb/)\n      kao(:, 2,13,16) = (/ &\n     &9.7458e+04_rb,8.5276e+04_rb,7.3094e+04_rb,6.0911e+04_rb,4.8729e+04_rb,3.6547e+04_rb, &\n     &2.4365e+04_rb,1.2182e+04_rb,9.8425e+01_rb/)\n      kao(:, 3,13,16) = (/ &\n     &1.5404e+05_rb,1.3479e+05_rb,1.1553e+05_rb,9.6277e+04_rb,7.7021e+04_rb,5.7766e+04_rb, &\n     &3.8511e+04_rb,1.9255e+04_rb,9.8903e+01_rb/)\n      kao(:, 4,13,16) = (/ &\n     &2.2887e+05_rb,2.0026e+05_rb,1.7165e+05_rb,1.4304e+05_rb,1.1444e+05_rb,8.5827e+04_rb, &\n     &5.7218e+04_rb,2.8609e+04_rb,9.9135e+01_rb/)\n      kao(:, 5,13,16) = (/ &\n     &3.2310e+05_rb,2.8271e+05_rb,2.4232e+05_rb,2.0194e+05_rb,1.6155e+05_rb,1.2116e+05_rb, &\n     &8.0775e+04_rb,4.0387e+04_rb,9.9042e+01_rb/)\n\n!     The array KA_Mxx contains the absorption coefficient for \n!     a minor species at the 16 chosen g-values for a reference pressure\n!     level below 100~ mb.   The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.  The second index refers to temperature \n!     in 7.2 degree increments.  For instance, JT = 1 refers to a \n!     temperature of 188.0, JT = 2 refers to 195.2, etc. The third index \n!     runs over the g-channel (1 to 16).\n\n       kao_mn2( 1, :, 1) = (/ &\n     & 3.24352e-08_rb, 3.39625e-08_rb, 3.55618e-08_rb, 3.72364e-08_rb, 3.89899e-08_rb, &\n     & 4.08259e-08_rb, 4.27484e-08_rb, 4.47614e-08_rb, 4.68692e-08_rb, 4.90763e-08_rb, &\n     & 5.13873e-08_rb, 5.38071e-08_rb, 5.63409e-08_rb, 5.89940e-08_rb, 6.17720e-08_rb, &\n     & 6.46808e-08_rb, 6.77266e-08_rb, 7.09158e-08_rb, 7.42553e-08_rb/)\n       kao_mn2( 2, :, 1) = (/ &\n     & 3.44203e-08_rb, 3.60254e-08_rb, 3.77053e-08_rb, 3.94636e-08_rb, 4.13038e-08_rb, &\n     & 4.32299e-08_rb, 4.52458e-08_rb, 4.73557e-08_rb, 4.95640e-08_rb, 5.18753e-08_rb, &\n     & 5.42943e-08_rb, 5.68262e-08_rb, 5.94761e-08_rb, 6.22496e-08_rb, 6.51524e-08_rb, &\n     & 6.81906e-08_rb, 7.13704e-08_rb, 7.46986e-08_rb, 7.81819e-08_rb/)\n       kao_mn2( 3, :, 1) = (/ &\n     & 3.44344e-08_rb, 3.61485e-08_rb, 3.79480e-08_rb, 3.98370e-08_rb, 4.18201e-08_rb, &\n     & 4.39019e-08_rb, 4.60873e-08_rb, 4.83815e-08_rb, 5.07899e-08_rb, 5.33182e-08_rb, &\n     & 5.59723e-08_rb, 5.87586e-08_rb, 6.16836e-08_rb, 6.47541e-08_rb, 6.79776e-08_rb, &\n     & 7.13614e-08_rb, 7.49138e-08_rb, 7.86429e-08_rb, 8.25577e-08_rb/)\n       kao_mn2( 4, :, 1) = (/ &\n     & 4.21102e-08_rb, 4.38921e-08_rb, 4.57493e-08_rb, 4.76852e-08_rb, 4.97029e-08_rb, &\n     & 5.18061e-08_rb, 5.39982e-08_rb, 5.62831e-08_rb, 5.86647e-08_rb, 6.11470e-08_rb, &\n     & 6.37344e-08_rb, 6.64313e-08_rb, 6.92422e-08_rb, 7.21722e-08_rb, 7.52261e-08_rb, &\n     & 7.84092e-08_rb, 8.17270e-08_rb, 8.51852e-08_rb, 8.87897e-08_rb/)\n       kao_mn2( 5, :, 1) = (/ &\n     & 4.78813e-08_rb, 5.01015e-08_rb, 5.24246e-08_rb, 5.48554e-08_rb, 5.73989e-08_rb, &\n     & 6.00603e-08_rb, 6.28452e-08_rb, 6.57592e-08_rb, 6.88083e-08_rb, 7.19987e-08_rb, &\n     & 7.53371e-08_rb, 7.88304e-08_rb, 8.24855e-08_rb, 8.63102e-08_rb, 9.03122e-08_rb, &\n     & 9.44997e-08_rb, 9.88815e-08_rb, 1.03466e-07_rb, 1.08264e-07_rb/)\n       kao_mn2( 6, :, 1) = (/ &\n     & 7.03115e-08_rb, 7.27877e-08_rb, 7.53511e-08_rb, 7.80048e-08_rb, 8.07519e-08_rb, &\n     & 8.35958e-08_rb, 8.65398e-08_rb, 8.95875e-08_rb, 9.27426e-08_rb, 9.60087e-08_rb, &\n     & 9.93899e-08_rb, 1.02890e-07_rb, 1.06514e-07_rb, 1.10265e-07_rb, 1.14148e-07_rb, &\n     & 1.18168e-07_rb, 1.22330e-07_rb, 1.26638e-07_rb, 1.31098e-07_rb/)\n       kao_mn2( 7, :, 1) = (/ &\n     & 8.86454e-08_rb, 9.20065e-08_rb, 9.54951e-08_rb, 9.91159e-08_rb, 1.02874e-07_rb, &\n     & 1.06775e-07_rb, 1.10823e-07_rb, 1.15025e-07_rb, 1.19387e-07_rb, 1.23913e-07_rb, &\n     & 1.28612e-07_rb, 1.33488e-07_rb, 1.38550e-07_rb, 1.43803e-07_rb, 1.49255e-07_rb, &\n     & 1.54915e-07_rb, 1.60788e-07_rb, 1.66885e-07_rb, 1.73213e-07_rb/)\n       kao_mn2( 8, :, 1) = (/ &\n     & 1.34118e-07_rb, 1.38267e-07_rb, 1.42545e-07_rb, 1.46955e-07_rb, 1.51502e-07_rb, &\n     & 1.56189e-07_rb, 1.61022e-07_rb, 1.66004e-07_rb, 1.71140e-07_rb, 1.76435e-07_rb, &\n     & 1.81893e-07_rb, 1.87521e-07_rb, 1.93323e-07_rb, 1.99304e-07_rb, 2.05470e-07_rb, &\n     & 2.11827e-07_rb, 2.18381e-07_rb, 2.25138e-07_rb, 2.32103e-07_rb/)\n       kao_mn2( 9, :, 1) = (/ &\n     & 5.08256e-08_rb, 5.30384e-08_rb, 5.53476e-08_rb, 5.77573e-08_rb, 6.02718e-08_rb, &\n     & 6.28959e-08_rb, 6.56342e-08_rb, 6.84917e-08_rb, 7.14737e-08_rb, 7.45854e-08_rb, &\n     & 7.78327e-08_rb, 8.12213e-08_rb, 8.47574e-08_rb, 8.84475e-08_rb, 9.22983e-08_rb, &\n     & 9.63167e-08_rb, 1.00510e-07_rb, 1.04886e-07_rb, 1.09452e-07_rb/)\n       kao_mn2( 1, :, 2) = (/ &\n     & 8.23958e-08_rb, 8.39092e-08_rb, 8.54504e-08_rb, 8.70200e-08_rb, 8.86183e-08_rb, &\n     & 9.02460e-08_rb, 9.19036e-08_rb, 9.35917e-08_rb, 9.53107e-08_rb, 9.70614e-08_rb, &\n     & 9.88442e-08_rb, 1.00660e-07_rb, 1.02509e-07_rb, 1.04391e-07_rb, 1.06309e-07_rb, &\n     & 1.08261e-07_rb, 1.10250e-07_rb, 1.12275e-07_rb, 1.14337e-07_rb/)\n       kao_mn2( 2, :, 2) = (/ &\n     & 8.52335e-08_rb, 8.69254e-08_rb, 8.86509e-08_rb, 9.04107e-08_rb, 9.22054e-08_rb, &\n     & 9.40357e-08_rb, 9.59024e-08_rb, 9.78061e-08_rb, 9.97476e-08_rb, 1.01728e-07_rb, &\n     & 1.03747e-07_rb, 1.05806e-07_rb, 1.07907e-07_rb, 1.10049e-07_rb, 1.12233e-07_rb, &\n     & 1.14461e-07_rb, 1.16733e-07_rb, 1.19050e-07_rb, 1.21414e-07_rb/)\n       kao_mn2( 3, :, 2) = (/ &\n     & 1.04608e-07_rb, 1.06067e-07_rb, 1.07546e-07_rb, 1.09046e-07_rb, 1.10567e-07_rb, &\n     & 1.12110e-07_rb, 1.13673e-07_rb, 1.15259e-07_rb, 1.16866e-07_rb, 1.18496e-07_rb, &\n     & 1.20149e-07_rb, 1.21825e-07_rb, 1.23524e-07_rb, 1.25247e-07_rb, 1.26994e-07_rb, &\n     & 1.28765e-07_rb, 1.30561e-07_rb, 1.32382e-07_rb, 1.34229e-07_rb/)\n       kao_mn2( 4, :, 2) = (/ &\n     & 1.17504e-07_rb, 1.18763e-07_rb, 1.20036e-07_rb, 1.21322e-07_rb, 1.22622e-07_rb, &\n     & 1.23936e-07_rb, 1.25265e-07_rb, 1.26607e-07_rb, 1.27964e-07_rb, 1.29335e-07_rb, &\n     & 1.30721e-07_rb, 1.32122e-07_rb, 1.33538e-07_rb, 1.34969e-07_rb, 1.36415e-07_rb, &\n     & 1.37877e-07_rb, 1.39354e-07_rb, 1.40848e-07_rb, 1.42357e-07_rb/)\n       kao_mn2( 5, :, 2) = (/ &\n     & 1.23552e-07_rb, 1.25200e-07_rb, 1.26870e-07_rb, 1.28562e-07_rb, 1.30277e-07_rb, &\n     & 1.32015e-07_rb, 1.33776e-07_rb, 1.35560e-07_rb, 1.37368e-07_rb, 1.39200e-07_rb, &\n     & 1.41057e-07_rb, 1.42938e-07_rb, 1.44845e-07_rb, 1.46777e-07_rb, 1.48735e-07_rb, &\n     & 1.50718e-07_rb, 1.52729e-07_rb, 1.54766e-07_rb, 1.56830e-07_rb/)\n       kao_mn2( 6, :, 2) = (/ &\n     & 1.29682e-07_rb, 1.32226e-07_rb, 1.34820e-07_rb, 1.37464e-07_rb, 1.40161e-07_rb, &\n     & 1.42910e-07_rb, 1.45713e-07_rb, 1.48571e-07_rb, 1.51486e-07_rb, 1.54457e-07_rb, &\n     & 1.57487e-07_rb, 1.60576e-07_rb, 1.63726e-07_rb, 1.66937e-07_rb, 1.70212e-07_rb, &\n     & 1.73551e-07_rb, 1.76955e-07_rb, 1.80426e-07_rb, 1.83965e-07_rb/)\n       kao_mn2( 7, :, 2) = (/ &\n     & 1.77416e-07_rb, 1.78627e-07_rb, 1.79846e-07_rb, 1.81073e-07_rb, 1.82309e-07_rb, &\n     & 1.83554e-07_rb, 1.84806e-07_rb, 1.86068e-07_rb, 1.87338e-07_rb, 1.88616e-07_rb, &\n     & 1.89904e-07_rb, 1.91200e-07_rb, 1.92505e-07_rb, 1.93819e-07_rb, 1.95142e-07_rb, &\n     & 1.96474e-07_rb, 1.97815e-07_rb, 1.99165e-07_rb, 2.00524e-07_rb/)\n       kao_mn2( 8, :, 2) = (/ &\n     & 2.20695e-07_rb, 2.20451e-07_rb, 2.20208e-07_rb, 2.19965e-07_rb, 2.19722e-07_rb, &\n     & 2.19480e-07_rb, 2.19238e-07_rb, 2.18996e-07_rb, 2.18754e-07_rb, 2.18513e-07_rb, &\n     & 2.18272e-07_rb, 2.18031e-07_rb, 2.17790e-07_rb, 2.17550e-07_rb, 2.17310e-07_rb, &\n     & 2.17070e-07_rb, 2.16831e-07_rb, 2.16591e-07_rb, 2.16352e-07_rb/)\n       kao_mn2( 9, :, 2) = (/ &\n     & 1.23015e-07_rb, 1.24808e-07_rb, 1.26626e-07_rb, 1.28471e-07_rb, 1.30343e-07_rb, &\n     & 1.32242e-07_rb, 1.34168e-07_rb, 1.36123e-07_rb, 1.38106e-07_rb, 1.40118e-07_rb, &\n     & 1.42160e-07_rb, 1.44231e-07_rb, 1.46332e-07_rb, 1.48464e-07_rb, 1.50627e-07_rb, &\n     & 1.52822e-07_rb, 1.55048e-07_rb, 1.57307e-07_rb, 1.59599e-07_rb/)\n       kao_mn2( 1, :, 3) = (/ &\n     & 1.87585e-07_rb, 1.89503e-07_rb, 1.91440e-07_rb, 1.93398e-07_rb, 1.95375e-07_rb, &\n     & 1.97372e-07_rb, 1.99390e-07_rb, 2.01429e-07_rb, 2.03488e-07_rb, 2.05568e-07_rb, &\n     & 2.07670e-07_rb, 2.09793e-07_rb, 2.11938e-07_rb, 2.14105e-07_rb, 2.16294e-07_rb, &\n     & 2.18505e-07_rb, 2.20739e-07_rb, 2.22996e-07_rb, 2.25275e-07_rb/)\n       kao_mn2( 2, :, 3) = (/ &\n     & 1.82585e-07_rb, 1.84249e-07_rb, 1.85929e-07_rb, 1.87624e-07_rb, 1.89335e-07_rb, &\n     & 1.91061e-07_rb, 1.92803e-07_rb, 1.94561e-07_rb, 1.96335e-07_rb, 1.98125e-07_rb, &\n     & 1.99932e-07_rb, 2.01755e-07_rb, 2.03594e-07_rb, 2.05451e-07_rb, 2.07324e-07_rb, &\n     & 2.09214e-07_rb, 2.11122e-07_rb, 2.13047e-07_rb, 2.14989e-07_rb/)\n       kao_mn2( 3, :, 3) = (/ &\n     & 1.64711e-07_rb, 1.67539e-07_rb, 1.70417e-07_rb, 1.73343e-07_rb, 1.76321e-07_rb, &\n     & 1.79349e-07_rb, 1.82429e-07_rb, 1.85562e-07_rb, 1.88749e-07_rb, 1.91990e-07_rb, &\n     & 1.95288e-07_rb, 1.98642e-07_rb, 2.02053e-07_rb, 2.05523e-07_rb, 2.09053e-07_rb, &\n     & 2.12643e-07_rb, 2.16295e-07_rb, 2.20010e-07_rb, 2.23788e-07_rb/)\n       kao_mn2( 4, :, 3) = (/ &\n     & 1.67494e-07_rb, 1.71011e-07_rb, 1.74601e-07_rb, 1.78267e-07_rb, 1.82009e-07_rb, &\n     & 1.85831e-07_rb, 1.89732e-07_rb, 1.93715e-07_rb, 1.97782e-07_rb, 2.01935e-07_rb, &\n     & 2.06174e-07_rb, 2.10503e-07_rb, 2.14922e-07_rb, 2.19434e-07_rb, 2.24041e-07_rb, &\n     & 2.28745e-07_rb, 2.33548e-07_rb, 2.38451e-07_rb, 2.43457e-07_rb/)\n       kao_mn2( 5, :, 3) = (/ &\n     & 1.97399e-07_rb, 2.00092e-07_rb, 2.02821e-07_rb, 2.05588e-07_rb, 2.08393e-07_rb, &\n     & 2.11236e-07_rb, 2.14118e-07_rb, 2.17039e-07_rb, 2.20000e-07_rb, 2.23001e-07_rb, &\n     & 2.26043e-07_rb, 2.29127e-07_rb, 2.32252e-07_rb, 2.35421e-07_rb, 2.38633e-07_rb, &\n     & 2.41888e-07_rb, 2.45188e-07_rb, 2.48533e-07_rb, 2.51923e-07_rb/)\n       kao_mn2( 6, :, 3) = (/ &\n     & 2.24021e-07_rb, 2.24970e-07_rb, 2.25923e-07_rb, 2.26880e-07_rb, 2.27840e-07_rb, &\n     & 2.28805e-07_rb, 2.29774e-07_rb, 2.30747e-07_rb, 2.31725e-07_rb, 2.32706e-07_rb, &\n     & 2.33692e-07_rb, 2.34681e-07_rb, 2.35675e-07_rb, 2.36673e-07_rb, 2.37675e-07_rb, &\n     & 2.38682e-07_rb, 2.39693e-07_rb, 2.40708e-07_rb, 2.41727e-07_rb/)\n       kao_mn2( 7, :, 3) = (/ &\n     & 1.98178e-07_rb, 2.00676e-07_rb, 2.03205e-07_rb, 2.05766e-07_rb, 2.08359e-07_rb, &\n     & 2.10986e-07_rb, 2.13645e-07_rb, 2.16337e-07_rb, 2.19064e-07_rb, 2.21825e-07_rb, &\n     & 2.24621e-07_rb, 2.27452e-07_rb, 2.30319e-07_rb, 2.33222e-07_rb, 2.36161e-07_rb, &\n     & 2.39138e-07_rb, 2.42152e-07_rb, 2.45204e-07_rb, 2.48294e-07_rb/)\n       kao_mn2( 8, :, 3) = (/ &\n     & 2.83042e-07_rb, 2.89941e-07_rb, 2.97009e-07_rb, 3.04250e-07_rb, 3.11666e-07_rb, &\n     & 3.19264e-07_rb, 3.27047e-07_rb, 3.35019e-07_rb, 3.43186e-07_rb, 3.51552e-07_rb, &\n     & 3.60122e-07_rb, 3.68901e-07_rb, 3.77893e-07_rb, 3.87105e-07_rb, 3.96542e-07_rb, &\n     & 4.06208e-07_rb, 4.16111e-07_rb, 4.26254e-07_rb, 4.36645e-07_rb/)\n       kao_mn2( 9, :, 3) = (/ &\n     & 1.98963e-07_rb, 2.01576e-07_rb, 2.04224e-07_rb, 2.06907e-07_rb, 2.09626e-07_rb, &\n     & 2.12379e-07_rb, 2.15169e-07_rb, 2.17996e-07_rb, 2.20860e-07_rb, 2.23761e-07_rb, &\n     & 2.26701e-07_rb, 2.29679e-07_rb, 2.32696e-07_rb, 2.35753e-07_rb, 2.38851e-07_rb, &\n     & 2.41988e-07_rb, 2.45167e-07_rb, 2.48388e-07_rb, 2.51651e-07_rb/)\n       kao_mn2( 1, :, 4) = (/ &\n     & 3.75434e-07_rb, 3.79581e-07_rb, 3.83775e-07_rb, 3.88014e-07_rb, 3.92301e-07_rb, &\n     & 3.96634e-07_rb, 4.01016e-07_rb, 4.05446e-07_rb, 4.09925e-07_rb, 4.14453e-07_rb, &\n     & 4.19032e-07_rb, 4.23661e-07_rb, 4.28341e-07_rb, 4.33073e-07_rb, 4.37857e-07_rb, &\n     & 4.42694e-07_rb, 4.47585e-07_rb, 4.52529e-07_rb, 4.57528e-07_rb/)\n       kao_mn2( 2, :, 4) = (/ &\n     & 3.76756e-07_rb, 3.80760e-07_rb, 3.84805e-07_rb, 3.88894e-07_rb, 3.93027e-07_rb, &\n     & 3.97203e-07_rb, 4.01423e-07_rb, 4.05689e-07_rb, 4.10000e-07_rb, 4.14356e-07_rb, &\n     & 4.18759e-07_rb, 4.23209e-07_rb, 4.27706e-07_rb, 4.32250e-07_rb, 4.36843e-07_rb, &\n     & 4.41485e-07_rb, 4.46176e-07_rb, 4.50917e-07_rb, 4.55708e-07_rb/)\n       kao_mn2( 3, :, 4) = (/ &\n     & 3.76258e-07_rb, 3.78929e-07_rb, 3.81619e-07_rb, 3.84329e-07_rb, 3.87057e-07_rb, &\n     & 3.89805e-07_rb, 3.92572e-07_rb, 3.95359e-07_rb, 3.98166e-07_rb, 4.00993e-07_rb, &\n     & 4.03839e-07_rb, 4.06706e-07_rb, 4.09594e-07_rb, 4.12502e-07_rb, 4.15430e-07_rb, &\n     & 4.18379e-07_rb, 4.21349e-07_rb, 4.24341e-07_rb, 4.27353e-07_rb/)\n       kao_mn2( 4, :, 4) = (/ &\n     & 3.17796e-07_rb, 3.22447e-07_rb, 3.27166e-07_rb, 3.31954e-07_rb, 3.36812e-07_rb, &\n     & 3.41742e-07_rb, 3.46743e-07_rb, 3.51818e-07_rb, 3.56967e-07_rb, 3.62191e-07_rb, &\n     & 3.67492e-07_rb, 3.72870e-07_rb, 3.78328e-07_rb, 3.83865e-07_rb, 3.89483e-07_rb, &\n     & 3.95183e-07_rb, 4.00967e-07_rb, 4.06835e-07_rb, 4.12789e-07_rb/)\n       kao_mn2( 5, :, 4) = (/ &\n     & 3.33793e-07_rb, 3.38941e-07_rb, 3.44169e-07_rb, 3.49478e-07_rb, 3.54868e-07_rb, &\n     & 3.60342e-07_rb, 3.65900e-07_rb, 3.71544e-07_rb, 3.77275e-07_rb, 3.83094e-07_rb, &\n     & 3.89003e-07_rb, 3.95003e-07_rb, 4.01096e-07_rb, 4.07283e-07_rb, 4.13565e-07_rb, &\n     & 4.19944e-07_rb, 4.26421e-07_rb, 4.32999e-07_rb, 4.39677e-07_rb/)\n       kao_mn2( 6, :, 4) = (/ &\n     & 3.60052e-07_rb, 3.66686e-07_rb, 3.73442e-07_rb, 3.80323e-07_rb, 3.87330e-07_rb, &\n     & 3.94466e-07_rb, 4.01734e-07_rb, 4.09136e-07_rb, 4.16674e-07_rb, 4.24351e-07_rb, &\n     & 4.32169e-07_rb, 4.40132e-07_rb, 4.48241e-07_rb, 4.56500e-07_rb, 4.64910e-07_rb, &\n     & 4.73476e-07_rb, 4.82200e-07_rb, 4.91084e-07_rb, 5.00132e-07_rb/)\n       kao_mn2( 7, :, 4) = (/ &\n     & 4.14713e-07_rb, 4.21885e-07_rb, 4.29181e-07_rb, 4.36603e-07_rb, 4.44153e-07_rb, &\n     & 4.51834e-07_rb, 4.59648e-07_rb, 4.67598e-07_rb, 4.75684e-07_rb, 4.83910e-07_rb, &\n     & 4.92279e-07_rb, 5.00793e-07_rb, 5.09453e-07_rb, 5.18264e-07_rb, 5.27226e-07_rb, &\n     & 5.36344e-07_rb, 5.45620e-07_rb, 5.55055e-07_rb, 5.64654e-07_rb/)\n       kao_mn2( 8, :, 4) = (/ &\n     & 4.15352e-07_rb, 4.24386e-07_rb, 4.33617e-07_rb, 4.43049e-07_rb, 4.52685e-07_rb, &\n     & 4.62532e-07_rb, 4.72592e-07_rb, 4.82872e-07_rb, 4.93374e-07_rb, 5.04106e-07_rb, &\n     & 5.15071e-07_rb, 5.26274e-07_rb, 5.37721e-07_rb, 5.49417e-07_rb, 5.61367e-07_rb, &\n     & 5.73577e-07_rb, 5.86053e-07_rb, 5.98800e-07_rb, 6.11825e-07_rb/)\n       kao_mn2( 9, :, 4) = (/ &\n     & 3.33820e-07_rb, 3.39144e-07_rb, 3.44553e-07_rb, 3.50048e-07_rb, 3.55631e-07_rb, &\n     & 3.61302e-07_rb, 3.67065e-07_rb, 3.72919e-07_rb, 3.78866e-07_rb, 3.84908e-07_rb, &\n     & 3.91047e-07_rb, 3.97284e-07_rb, 4.03620e-07_rb, 4.10057e-07_rb, 4.16597e-07_rb, &\n     & 4.23241e-07_rb, 4.29991e-07_rb, 4.36849e-07_rb, 4.43816e-07_rb/)\n       kao_mn2( 1, :, 5) = (/ &\n     & 6.99819e-07_rb, 7.04629e-07_rb, 7.09472e-07_rb, 7.14349e-07_rb, 7.19258e-07_rb, &\n     & 7.24202e-07_rb, 7.29180e-07_rb, 7.34192e-07_rb, 7.39238e-07_rb, 7.44319e-07_rb, &\n     & 7.49435e-07_rb, 7.54586e-07_rb, 7.59773e-07_rb, 7.64995e-07_rb, 7.70253e-07_rb, &\n     & 7.75547e-07_rb, 7.80877e-07_rb, 7.86245e-07_rb, 7.91649e-07_rb/)\n       kao_mn2( 2, :, 5) = (/ &\n     & 6.98257e-07_rb, 7.03182e-07_rb, 7.08143e-07_rb, 7.13138e-07_rb, 7.18169e-07_rb, &\n     & 7.23235e-07_rb, 7.28336e-07_rb, 7.33474e-07_rb, 7.38648e-07_rb, 7.43858e-07_rb, &\n     & 7.49106e-07_rb, 7.54390e-07_rb, 7.59711e-07_rb, 7.65071e-07_rb, 7.70467e-07_rb, &\n     & 7.75902e-07_rb, 7.81376e-07_rb, 7.86887e-07_rb, 7.92438e-07_rb/)\n       kao_mn2( 3, :, 5) = (/ &\n     & 6.98531e-07_rb, 7.03429e-07_rb, 7.08361e-07_rb, 7.13328e-07_rb, 7.18329e-07_rb, &\n     & 7.23365e-07_rb, 7.28437e-07_rb, 7.33545e-07_rb, 7.38688e-07_rb, 7.43867e-07_rb, &\n     & 7.49082e-07_rb, 7.54335e-07_rb, 7.59623e-07_rb, 7.64950e-07_rb, 7.70313e-07_rb, &\n     & 7.75714e-07_rb, 7.81153e-07_rb, 7.86630e-07_rb, 7.92145e-07_rb/)\n       kao_mn2( 4, :, 5) = (/ &\n     & 7.37210e-07_rb, 7.38869e-07_rb, 7.40532e-07_rb, 7.42198e-07_rb, 7.43868e-07_rb, &\n     & 7.45542e-07_rb, 7.47219e-07_rb, 7.48901e-07_rb, 7.50586e-07_rb, 7.52275e-07_rb, &\n     & 7.53967e-07_rb, 7.55664e-07_rb, 7.57364e-07_rb, 7.59068e-07_rb, 7.60777e-07_rb, &\n     & 7.62488e-07_rb, 7.64204e-07_rb, 7.65924e-07_rb, 7.67647e-07_rb/)\n       kao_mn2( 5, :, 5) = (/ &\n     & 6.07063e-07_rb, 6.12893e-07_rb, 6.18779e-07_rb, 6.24722e-07_rb, 6.30721e-07_rb, &\n     & 6.36778e-07_rb, 6.42893e-07_rb, 6.49067e-07_rb, 6.55301e-07_rb, 6.61594e-07_rb, &\n     & 6.67947e-07_rb, 6.74362e-07_rb, 6.80838e-07_rb, 6.87376e-07_rb, 6.93978e-07_rb, &\n     & 7.00642e-07_rb, 7.07371e-07_rb, 7.14164e-07_rb, 7.21022e-07_rb/)\n       kao_mn2( 6, :, 5) = (/ &\n     & 6.13354e-07_rb, 6.20147e-07_rb, 6.27016e-07_rb, 6.33961e-07_rb, 6.40983e-07_rb, &\n     & 6.48082e-07_rb, 6.55260e-07_rb, 6.62518e-07_rb, 6.69856e-07_rb, 6.77276e-07_rb, &\n     & 6.84777e-07_rb, 6.92362e-07_rb, 7.00030e-07_rb, 7.07784e-07_rb, 7.15624e-07_rb, &\n     & 7.23550e-07_rb, 7.31564e-07_rb, 7.39667e-07_rb, 7.47859e-07_rb/)\n       kao_mn2( 7, :, 5) = (/ &\n     & 6.86666e-07_rb, 6.92902e-07_rb, 6.99195e-07_rb, 7.05545e-07_rb, 7.11952e-07_rb, &\n     & 7.18418e-07_rb, 7.24943e-07_rb, 7.31526e-07_rb, 7.38170e-07_rb, 7.44874e-07_rb, &\n     & 7.51639e-07_rb, 7.58465e-07_rb, 7.65353e-07_rb, 7.72304e-07_rb, 7.79318e-07_rb, &\n     & 7.86395e-07_rb, 7.93537e-07_rb, 8.00744e-07_rb, 8.08016e-07_rb/)\n       kao_mn2( 8, :, 5) = (/ &\n     & 9.39664e-07_rb, 9.39765e-07_rb, 9.39866e-07_rb, 9.39966e-07_rb, 9.40067e-07_rb, &\n     & 9.40168e-07_rb, 9.40268e-07_rb, 9.40369e-07_rb, 9.40470e-07_rb, 9.40571e-07_rb, &\n     & 9.40671e-07_rb, 9.40772e-07_rb, 9.40873e-07_rb, 9.40974e-07_rb, 9.41074e-07_rb, &\n     & 9.41175e-07_rb, 9.41276e-07_rb, 9.41377e-07_rb, 9.41478e-07_rb/)\n       kao_mn2( 9, :, 5) = (/ &\n     & 6.02847e-07_rb, 6.09726e-07_rb, 6.16684e-07_rb, 6.23722e-07_rb, 6.30839e-07_rb, &\n     & 6.38038e-07_rb, 6.45320e-07_rb, 6.52684e-07_rb, 6.60132e-07_rb, 6.67665e-07_rb, &\n     & 6.75284e-07_rb, 6.82991e-07_rb, 6.90785e-07_rb, 6.98668e-07_rb, 7.06641e-07_rb, &\n     & 7.14705e-07_rb, 7.22861e-07_rb, 7.31110e-07_rb, 7.39453e-07_rb/)\n       kao_mn2( 1, :, 6) = (/ &\n     & 1.13692e-06_rb, 1.13231e-06_rb, 1.12772e-06_rb, 1.12315e-06_rb, 1.11859e-06_rb, &\n     & 1.11406e-06_rb, 1.10954e-06_rb, 1.10505e-06_rb, 1.10057e-06_rb, 1.09610e-06_rb, &\n     & 1.09166e-06_rb, 1.08724e-06_rb, 1.08283e-06_rb, 1.07844e-06_rb, 1.07407e-06_rb, &\n     & 1.06971e-06_rb, 1.06538e-06_rb, 1.06106e-06_rb, 1.05676e-06_rb/)\n       kao_mn2( 2, :, 6) = (/ &\n     & 1.13682e-06_rb, 1.13221e-06_rb, 1.12762e-06_rb, 1.12305e-06_rb, 1.11849e-06_rb, &\n     & 1.11396e-06_rb, 1.10944e-06_rb, 1.10495e-06_rb, 1.10047e-06_rb, 1.09600e-06_rb, &\n     & 1.09156e-06_rb, 1.08714e-06_rb, 1.08273e-06_rb, 1.07834e-06_rb, 1.07397e-06_rb, &\n     & 1.06961e-06_rb, 1.06528e-06_rb, 1.06096e-06_rb, 1.05666e-06_rb/)\n       kao_mn2( 3, :, 6) = (/ &\n     & 1.13642e-06_rb, 1.13181e-06_rb, 1.12722e-06_rb, 1.12265e-06_rb, 1.11809e-06_rb, &\n     & 1.11356e-06_rb, 1.10904e-06_rb, 1.10455e-06_rb, 1.10007e-06_rb, 1.09560e-06_rb, &\n     & 1.09116e-06_rb, 1.08674e-06_rb, 1.08233e-06_rb, 1.07794e-06_rb, 1.07357e-06_rb, &\n     & 1.06921e-06_rb, 1.06488e-06_rb, 1.06056e-06_rb, 1.05626e-06_rb/)\n       kao_mn2( 4, :, 6) = (/ &\n     & 1.13626e-06_rb, 1.13160e-06_rb, 1.12696e-06_rb, 1.12233e-06_rb, 1.11773e-06_rb, &\n     & 1.11314e-06_rb, 1.10858e-06_rb, 1.10403e-06_rb, 1.09950e-06_rb, 1.09498e-06_rb, &\n     & 1.09049e-06_rb, 1.08602e-06_rb, 1.08156e-06_rb, 1.07712e-06_rb, 1.07270e-06_rb, &\n     & 1.06830e-06_rb, 1.06392e-06_rb, 1.05955e-06_rb, 1.05520e-06_rb/)\n       kao_mn2( 5, :, 6) = (/ &\n     & 1.22429e-06_rb, 1.21163e-06_rb, 1.19909e-06_rb, 1.18669e-06_rb, 1.17441e-06_rb, &\n     & 1.16226e-06_rb, 1.15024e-06_rb, 1.13834e-06_rb, 1.12656e-06_rb, 1.11491e-06_rb, &\n     & 1.10338e-06_rb, 1.09196e-06_rb, 1.08067e-06_rb, 1.06949e-06_rb, 1.05842e-06_rb, &\n     & 1.04747e-06_rb, 1.03664e-06_rb, 1.02591e-06_rb, 1.01530e-06_rb/)\n       kao_mn2( 6, :, 6) = (/ &\n     & 1.02400e-06_rb, 1.02238e-06_rb, 1.02077e-06_rb, 1.01916e-06_rb, 1.01755e-06_rb, &\n     & 1.01594e-06_rb, 1.01433e-06_rb, 1.01273e-06_rb, 1.01113e-06_rb, 1.00953e-06_rb, &\n     & 1.00794e-06_rb, 1.00635e-06_rb, 1.00476e-06_rb, 1.00317e-06_rb, 1.00159e-06_rb, &\n     & 1.00000e-06_rb, 9.98425e-07_rb, 9.96848e-07_rb, 9.95273e-07_rb/)\n       kao_mn2( 7, :, 6) = (/ &\n     & 1.08594e-06_rb, 1.08185e-06_rb, 1.07778e-06_rb, 1.07373e-06_rb, 1.06969e-06_rb, &\n     & 1.06566e-06_rb, 1.06165e-06_rb, 1.05766e-06_rb, 1.05368e-06_rb, 1.04971e-06_rb, &\n     & 1.04576e-06_rb, 1.04183e-06_rb, 1.03791e-06_rb, 1.03400e-06_rb, 1.03011e-06_rb, &\n     & 1.02623e-06_rb, 1.02237e-06_rb, 1.01852e-06_rb, 1.01469e-06_rb/)\n       kao_mn2( 8, :, 6) = (/ &\n     & 1.25029e-06_rb, 1.22508e-06_rb, 1.20038e-06_rb, 1.17618e-06_rb, 1.15247e-06_rb, &\n     & 1.12924e-06_rb, 1.10647e-06_rb, 1.08416e-06_rb, 1.06231e-06_rb, 1.04089e-06_rb, &\n     & 1.01990e-06_rb, 9.99343e-07_rb, 9.79196e-07_rb, 9.59454e-07_rb, 9.40111e-07_rb, &\n     & 9.21158e-07_rb, 9.02587e-07_rb, 8.84390e-07_rb, 8.66560e-07_rb/)\n       kao_mn2( 9, :, 6) = (/ &\n     & 1.21299e-06_rb, 1.19953e-06_rb, 1.18622e-06_rb, 1.17305e-06_rb, 1.16003e-06_rb, &\n     & 1.14716e-06_rb, 1.13443e-06_rb, 1.12184e-06_rb, 1.10939e-06_rb, 1.09708e-06_rb, &\n     & 1.08491e-06_rb, 1.07287e-06_rb, 1.06096e-06_rb, 1.04919e-06_rb, 1.03755e-06_rb, &\n     & 1.02603e-06_rb, 1.01465e-06_rb, 1.00339e-06_rb, 9.92253e-07_rb/)\n       kao_mn2( 1, :, 7) = (/ &\n     & 1.53893e-06_rb, 1.51743e-06_rb, 1.49623e-06_rb, 1.47532e-06_rb, 1.45471e-06_rb, &\n     & 1.43438e-06_rb, 1.41434e-06_rb, 1.39458e-06_rb, 1.37509e-06_rb, 1.35588e-06_rb, &\n     & 1.33694e-06_rb, 1.31826e-06_rb, 1.29984e-06_rb, 1.28167e-06_rb, 1.26377e-06_rb, &\n     & 1.24611e-06_rb, 1.22870e-06_rb, 1.21153e-06_rb, 1.19460e-06_rb/)\n       kao_mn2( 2, :, 7) = (/ &\n     & 1.53809e-06_rb, 1.51665e-06_rb, 1.49552e-06_rb, 1.47467e-06_rb, 1.45412e-06_rb, &\n     & 1.43386e-06_rb, 1.41388e-06_rb, 1.39418e-06_rb, 1.37475e-06_rb, 1.35559e-06_rb, &\n     & 1.33670e-06_rb, 1.31807e-06_rb, 1.29970e-06_rb, 1.28159e-06_rb, 1.26373e-06_rb, &\n     & 1.24612e-06_rb, 1.22875e-06_rb, 1.21163e-06_rb, 1.19475e-06_rb/)\n       kao_mn2( 3, :, 7) = (/ &\n     & 1.53883e-06_rb, 1.51733e-06_rb, 1.49613e-06_rb, 1.47522e-06_rb, 1.45461e-06_rb, &\n     & 1.43428e-06_rb, 1.41424e-06_rb, 1.39448e-06_rb, 1.37499e-06_rb, 1.35578e-06_rb, &\n     & 1.33684e-06_rb, 1.31816e-06_rb, 1.29974e-06_rb, 1.28157e-06_rb, 1.26367e-06_rb, &\n     & 1.24601e-06_rb, 1.22860e-06_rb, 1.21143e-06_rb, 1.19450e-06_rb/)\n       kao_mn2( 4, :, 7) = (/ &\n     & 1.53789e-06_rb, 1.51645e-06_rb, 1.49532e-06_rb, 1.47448e-06_rb, 1.45393e-06_rb, &\n     & 1.43366e-06_rb, 1.41368e-06_rb, 1.39398e-06_rb, 1.37455e-06_rb, 1.35539e-06_rb, &\n     & 1.33650e-06_rb, 1.31787e-06_rb, 1.29950e-06_rb, 1.28139e-06_rb, 1.26353e-06_rb, &\n     & 1.24592e-06_rb, 1.22856e-06_rb, 1.21143e-06_rb, 1.19455e-06_rb/)\n       kao_mn2( 5, :, 7) = (/ &\n     & 1.54059e-06_rb, 1.51888e-06_rb, 1.49747e-06_rb, 1.47637e-06_rb, 1.45557e-06_rb, &\n     & 1.43505e-06_rb, 1.41483e-06_rb, 1.39489e-06_rb, 1.37523e-06_rb, 1.35585e-06_rb, &\n     & 1.33675e-06_rb, 1.31791e-06_rb, 1.29934e-06_rb, 1.28103e-06_rb, 1.26297e-06_rb, &\n     & 1.24517e-06_rb, 1.22763e-06_rb, 1.21033e-06_rb, 1.19327e-06_rb/)\n       kao_mn2( 6, :, 7) = (/ &\n     & 1.70605e-06_rb, 1.65759e-06_rb, 1.61052e-06_rb, 1.56478e-06_rb, 1.52034e-06_rb, &\n     & 1.47716e-06_rb, 1.43521e-06_rb, 1.39445e-06_rb, 1.35485e-06_rb, 1.31637e-06_rb, &\n     & 1.27898e-06_rb, 1.24266e-06_rb, 1.20737e-06_rb, 1.17308e-06_rb, 1.13976e-06_rb, &\n     & 1.10739e-06_rb, 1.07594e-06_rb, 1.04539e-06_rb, 1.01570e-06_rb/)\n       kao_mn2( 7, :, 7) = (/ &\n     & 1.39128e-06_rb, 1.36388e-06_rb, 1.33702e-06_rb, 1.31068e-06_rb, 1.28487e-06_rb, &\n     & 1.25956e-06_rb, 1.23475e-06_rb, 1.21044e-06_rb, 1.18659e-06_rb, 1.16322e-06_rb, &\n     & 1.14031e-06_rb, 1.11785e-06_rb, 1.09584e-06_rb, 1.07425e-06_rb, 1.05309e-06_rb, &\n     & 1.03235e-06_rb, 1.01202e-06_rb, 9.92088e-07_rb, 9.72548e-07_rb/)\n       kao_mn2( 8, :, 7) = (/ &\n     & 1.15676e-06_rb, 1.13709e-06_rb, 1.11775e-06_rb, 1.09874e-06_rb, 1.08005e-06_rb, &\n     & 1.06168e-06_rb, 1.04362e-06_rb, 1.02587e-06_rb, 1.00842e-06_rb, 9.91271e-07_rb, &\n     & 9.74411e-07_rb, 9.57838e-07_rb, 9.41547e-07_rb, 9.25532e-07_rb, 9.09791e-07_rb, &\n     & 8.94316e-07_rb, 8.79105e-07_rb, 8.64153e-07_rb, 8.49455e-07_rb/)\n       kao_mn2( 9, :, 7) = (/ &\n     & 1.53483e-06_rb, 1.51352e-06_rb, 1.49252e-06_rb, 1.47180e-06_rb, 1.45138e-06_rb, &\n     & 1.43123e-06_rb, 1.41137e-06_rb, 1.39178e-06_rb, 1.37246e-06_rb, 1.35341e-06_rb, &\n     & 1.33463e-06_rb, 1.31610e-06_rb, 1.29784e-06_rb, 1.27982e-06_rb, 1.26206e-06_rb, &\n     & 1.24454e-06_rb, 1.22727e-06_rb, 1.21024e-06_rb, 1.19344e-06_rb/)\n       kao_mn2( 1, :, 8) = (/ &\n     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &\n     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &\n     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &\n     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)\n       kao_mn2( 2, :, 8) = (/ &\n     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &\n     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &\n     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &\n     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)\n       kao_mn2( 3, :, 8) = (/ &\n     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &\n     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &\n     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &\n     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)\n       kao_mn2( 4, :, 8) = (/ &\n     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &\n     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &\n     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &\n     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)\n       kao_mn2( 5, :, 8) = (/ &\n     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &\n     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &\n     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &\n     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)\n       kao_mn2( 6, :, 8) = (/ &\n     & 1.70380e-06_rb, 1.67470e-06_rb, 1.64609e-06_rb, 1.61796e-06_rb, 1.59032e-06_rb, &\n     & 1.56315e-06_rb, 1.53645e-06_rb, 1.51020e-06_rb, 1.48440e-06_rb, 1.45904e-06_rb, &\n     & 1.43411e-06_rb, 1.40961e-06_rb, 1.38553e-06_rb, 1.36186e-06_rb, 1.33859e-06_rb, &\n     & 1.31572e-06_rb, 1.29324e-06_rb, 1.27115e-06_rb, 1.24943e-06_rb/)\n       kao_mn2( 7, :, 8) = (/ &\n     & 1.71827e-06_rb, 1.65481e-06_rb, 1.59370e-06_rb, 1.53484e-06_rb, 1.47816e-06_rb, &\n     & 1.42357e-06_rb, 1.37099e-06_rb, 1.32036e-06_rb, 1.27160e-06_rb, 1.22464e-06_rb, &\n     & 1.17941e-06_rb, 1.13585e-06_rb, 1.09390e-06_rb, 1.05350e-06_rb, 1.01459e-06_rb, &\n     & 9.77124e-07_rb, 9.41037e-07_rb, 9.06284e-07_rb, 8.72813e-07_rb/)\n       kao_mn2( 8, :, 8) = (/ &\n     & 1.77169e-06_rb, 1.62858e-06_rb, 1.49703e-06_rb, 1.37610e-06_rb, 1.26494e-06_rb, &\n     & 1.16276e-06_rb, 1.06883e-06_rb, 9.82495e-07_rb, 9.03131e-07_rb, 8.30177e-07_rb, &\n     & 7.63117e-07_rb, 7.01473e-07_rb, 6.44810e-07_rb, 5.92723e-07_rb, 5.44844e-07_rb, &\n     & 5.00832e-07_rb, 4.60376e-07_rb, 4.23187e-07_rb, 3.89003e-07_rb/)\n       kao_mn2( 9, :, 8) = (/ &\n     & 1.70025e-06_rb, 1.67042e-06_rb, 1.64110e-06_rb, 1.61231e-06_rb, 1.58401e-06_rb, &\n     & 1.55622e-06_rb, 1.52891e-06_rb, 1.50208e-06_rb, 1.47572e-06_rb, 1.44982e-06_rb, &\n     & 1.42438e-06_rb, 1.39939e-06_rb, 1.37483e-06_rb, 1.35071e-06_rb, 1.32700e-06_rb, &\n     & 1.30372e-06_rb, 1.28084e-06_rb, 1.25836e-06_rb, 1.23628e-06_rb/)\n       kao_mn2( 1, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 2, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 3, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 4, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 5, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 6, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 7, :, 9) = (/ &\n     & 1.74004e-06_rb, 1.70661e-06_rb, 1.67383e-06_rb, 1.64167e-06_rb, 1.61014e-06_rb, &\n     & 1.57921e-06_rb, 1.54887e-06_rb, 1.51912e-06_rb, 1.48994e-06_rb, 1.46132e-06_rb, &\n     & 1.43325e-06_rb, 1.40572e-06_rb, 1.37871e-06_rb, 1.35223e-06_rb, 1.32625e-06_rb, &\n     & 1.30078e-06_rb, 1.27579e-06_rb, 1.25128e-06_rb, 1.22725e-06_rb/)\n       kao_mn2( 8, :, 9) = (/ &\n     & 1.08654e-06_rb, 1.09039e-06_rb, 1.09425e-06_rb, 1.09812e-06_rb, 1.10201e-06_rb, &\n     & 1.10592e-06_rb, 1.10983e-06_rb, 1.11376e-06_rb, 1.11771e-06_rb, 1.12167e-06_rb, &\n     & 1.12564e-06_rb, 1.12962e-06_rb, 1.13363e-06_rb, 1.13764e-06_rb, 1.14167e-06_rb, &\n     & 1.14571e-06_rb, 1.14977e-06_rb, 1.15384e-06_rb, 1.15793e-06_rb/)\n       kao_mn2( 9, :, 9) = (/ &\n     & 1.74382e-06_rb, 1.71092e-06_rb, 1.67864e-06_rb, 1.64697e-06_rb, 1.61589e-06_rb, &\n     & 1.58541e-06_rb, 1.55549e-06_rb, 1.52615e-06_rb, 1.49735e-06_rb, 1.46910e-06_rb, &\n     & 1.44138e-06_rb, 1.41419e-06_rb, 1.38751e-06_rb, 1.36133e-06_rb, 1.33564e-06_rb, &\n     & 1.31045e-06_rb, 1.28572e-06_rb, 1.26146e-06_rb, 1.23766e-06_rb/)\n       kao_mn2( 1, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 2, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 3, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 4, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 5, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 6, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 7, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 8, :,10) = (/ &\n     & 1.73703e-06_rb, 1.70249e-06_rb, 1.66863e-06_rb, 1.63544e-06_rb, 1.60292e-06_rb, &\n     & 1.57104e-06_rb, 1.53980e-06_rb, 1.50917e-06_rb, 1.47916e-06_rb, 1.44974e-06_rb, &\n     & 1.42091e-06_rb, 1.39265e-06_rb, 1.36496e-06_rb, 1.33781e-06_rb, 1.31121e-06_rb, &\n     & 1.28513e-06_rb, 1.25957e-06_rb, 1.23452e-06_rb, 1.20997e-06_rb/)\n       kao_mn2( 9, :,10) = (/ &\n     & 1.82903e-06_rb, 1.78673e-06_rb, 1.74541e-06_rb, 1.70505e-06_rb, 1.66562e-06_rb, &\n     & 1.62710e-06_rb, 1.58947e-06_rb, 1.55271e-06_rb, 1.51680e-06_rb, 1.48172e-06_rb, &\n     & 1.44745e-06_rb, 1.41398e-06_rb, 1.38128e-06_rb, 1.34933e-06_rb, 1.31813e-06_rb, &\n     & 1.28765e-06_rb, 1.25787e-06_rb, 1.22878e-06_rb, 1.20036e-06_rb/)\n       kao_mn2( 1, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 2, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 3, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 4, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 5, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 6, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 7, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 8, :,11) = (/ &\n     & 1.73118e-06_rb, 1.69710e-06_rb, 1.66370e-06_rb, 1.63095e-06_rb, 1.59885e-06_rb, &\n     & 1.56737e-06_rb, 1.53652e-06_rb, 1.50628e-06_rb, 1.47663e-06_rb, 1.44756e-06_rb, &\n     & 1.41907e-06_rb, 1.39114e-06_rb, 1.36376e-06_rb, 1.33691e-06_rb, 1.31060e-06_rb, &\n     & 1.28480e-06_rb, 1.25951e-06_rb, 1.23472e-06_rb, 1.21041e-06_rb/)\n       kao_mn2( 9, :,11) = (/ &\n     & 1.81037e-06_rb, 1.76948e-06_rb, 1.72952e-06_rb, 1.69045e-06_rb, 1.65228e-06_rb, &\n     & 1.61496e-06_rb, 1.57848e-06_rb, 1.54283e-06_rb, 1.50799e-06_rb, 1.47393e-06_rb, &\n     & 1.44064e-06_rb, 1.40810e-06_rb, 1.37630e-06_rb, 1.34522e-06_rb, 1.31484e-06_rb, &\n     & 1.28514e-06_rb, 1.25611e-06_rb, 1.22774e-06_rb, 1.20002e-06_rb/)\n       kao_mn2( 1, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 2, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 3, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 4, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 5, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 6, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 7, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 8, :,12) = (/ &\n     & 1.73338e-06_rb, 1.69915e-06_rb, 1.66560e-06_rb, 1.63271e-06_rb, 1.60046e-06_rb, &\n     & 1.56886e-06_rb, 1.53788e-06_rb, 1.50751e-06_rb, 1.47774e-06_rb, 1.44856e-06_rb, &\n     & 1.41995e-06_rb, 1.39191e-06_rb, 1.36442e-06_rb, 1.33748e-06_rb, 1.31107e-06_rb, &\n     & 1.28518e-06_rb, 1.25980e-06_rb, 1.23492e-06_rb, 1.21053e-06_rb/)\n       kao_mn2( 9, :,12) = (/ &\n     & 2.04857e-06_rb, 1.98353e-06_rb, 1.92055e-06_rb, 1.85957e-06_rb, 1.80053e-06_rb, &\n     & 1.74336e-06_rb, 1.68800e-06_rb, 1.63441e-06_rb, 1.58251e-06_rb, 1.53227e-06_rb, &\n     & 1.48362e-06_rb, 1.43651e-06_rb, 1.39090e-06_rb, 1.34674e-06_rb, 1.30398e-06_rb, &\n     & 1.26257e-06_rb, 1.22249e-06_rb, 1.18367e-06_rb, 1.14609e-06_rb/)\n       kao_mn2( 1, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 2, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 3, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 4, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 5, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 6, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 7, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 8, :,13) = (/ &\n     & 1.73511e-06_rb, 1.70072e-06_rb, 1.66702e-06_rb, 1.63398e-06_rb, 1.60159e-06_rb, &\n     & 1.56985e-06_rb, 1.53874e-06_rb, 1.50824e-06_rb, 1.47835e-06_rb, 1.44905e-06_rb, &\n     & 1.42033e-06_rb, 1.39218e-06_rb, 1.36459e-06_rb, 1.33755e-06_rb, 1.31104e-06_rb, &\n     & 1.28505e-06_rb, 1.25958e-06_rb, 1.23462e-06_rb, 1.21015e-06_rb/)\n       kao_mn2( 9, :,13) = (/ &\n     & 2.13403e-06_rb, 2.05906e-06_rb, 1.98673e-06_rb, 1.91694e-06_rb, 1.84961e-06_rb, &\n     & 1.78463e-06_rb, 1.72194e-06_rb, 1.66145e-06_rb, 1.60309e-06_rb, 1.54678e-06_rb, &\n     & 1.49244e-06_rb, 1.44002e-06_rb, 1.38943e-06_rb, 1.34062e-06_rb, 1.29353e-06_rb, &\n     & 1.24809e-06_rb, 1.20425e-06_rb, 1.16195e-06_rb, 1.12113e-06_rb/)\n       kao_mn2( 1, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 2, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 3, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 4, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 5, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 6, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 7, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 8, :,14) = (/ &\n     & 1.73398e-06_rb, 1.69941e-06_rb, 1.66553e-06_rb, 1.63233e-06_rb, 1.59979e-06_rb, &\n     & 1.56790e-06_rb, 1.53664e-06_rb, 1.50601e-06_rb, 1.47598e-06_rb, 1.44656e-06_rb, &\n     & 1.41772e-06_rb, 1.38946e-06_rb, 1.36176e-06_rb, 1.33461e-06_rb, 1.30801e-06_rb, &\n     & 1.28193e-06_rb, 1.25637e-06_rb, 1.23133e-06_rb, 1.20678e-06_rb/)\n       kao_mn2( 9, :,14) = (/ &\n     & 1.83423e-06_rb, 1.79123e-06_rb, 1.74923e-06_rb, 1.70821e-06_rb, 1.66816e-06_rb, &\n     & 1.62904e-06_rb, 1.59085e-06_rb, 1.55354e-06_rb, 1.51712e-06_rb, 1.48154e-06_rb, &\n     & 1.44681e-06_rb, 1.41288e-06_rb, 1.37975e-06_rb, 1.34740e-06_rb, 1.31581e-06_rb, &\n     & 1.28496e-06_rb, 1.25483e-06_rb, 1.22540e-06_rb, 1.19667e-06_rb/)\n       kao_mn2( 1, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 2, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 3, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 4, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 5, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 6, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 7, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 8, :,15) = (/ &\n     & 1.73231e-06_rb, 1.69765e-06_rb, 1.66368e-06_rb, 1.63039e-06_rb, 1.59776e-06_rb, &\n     & 1.56579e-06_rb, 1.53445e-06_rb, 1.50375e-06_rb, 1.47366e-06_rb, 1.44417e-06_rb, &\n     & 1.41527e-06_rb, 1.38695e-06_rb, 1.35919e-06_rb, 1.33199e-06_rb, 1.30534e-06_rb, &\n     & 1.27922e-06_rb, 1.25362e-06_rb, 1.22853e-06_rb, 1.20395e-06_rb/)\n       kao_mn2( 9, :,15) = (/ &\n     & 1.71602e-06_rb, 1.68499e-06_rb, 1.65452e-06_rb, 1.62461e-06_rb, 1.59523e-06_rb, &\n     & 1.56639e-06_rb, 1.53807e-06_rb, 1.51026e-06_rb, 1.48295e-06_rb, 1.45614e-06_rb, &\n     & 1.42981e-06_rb, 1.40395e-06_rb, 1.37857e-06_rb, 1.35364e-06_rb, 1.32917e-06_rb, &\n     & 1.30513e-06_rb, 1.28153e-06_rb, 1.25836e-06_rb, 1.23561e-06_rb/)\n       kao_mn2( 1, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 2, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 3, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 4, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 5, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 6, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 7, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 8, :,16) = (/ &\n     & 1.73310e-06_rb, 1.69826e-06_rb, 1.66413e-06_rb, 1.63069e-06_rb, 1.59791e-06_rb, &\n     & 1.56580e-06_rb, 1.53433e-06_rb, 1.50349e-06_rb, 1.47328e-06_rb, 1.44367e-06_rb, &\n     & 1.41465e-06_rb, 1.38622e-06_rb, 1.35836e-06_rb, 1.33106e-06_rb, 1.30431e-06_rb, &\n     & 1.27810e-06_rb, 1.25241e-06_rb, 1.22724e-06_rb, 1.20257e-06_rb/)\n       kao_mn2( 9, :,16) = (/ &\n     & 1.79375e-06_rb, 1.75599e-06_rb, 1.71903e-06_rb, 1.68284e-06_rb, 1.64741e-06_rb, &\n     & 1.61273e-06_rb, 1.57878e-06_rb, 1.54554e-06_rb, 1.51301e-06_rb, 1.48116e-06_rb, &\n     & 1.44998e-06_rb, 1.41945e-06_rb, 1.38957e-06_rb, 1.36032e-06_rb, 1.33168e-06_rb, &\n     & 1.30365e-06_rb, 1.27620e-06_rb, 1.24934e-06_rb, 1.22304e-06_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &1.1755e-06_rb,6.5398e-07_rb,4.3915e-07_rb,3.0753e-07_rb,1.9677e-07_rb,1.4362e-07_rb, &\n     &9.4598e-08_rb,1.1848e-07_rb,1.4280e-07_rb,1.5821e-07_rb,1.5816e-07_rb,1.5769e-07_rb, &\n     &1.5844e-07_rb,1.6016e-07_rb,1.6232e-07_rb,1.6320e-07_rb/)\n      forrefo(2,:) = (/ &\n     &1.0703e-06_rb,6.2783e-07_rb,4.7122e-07_rb,2.6300e-07_rb,1.8538e-07_rb,1.5076e-07_rb, &\n     &1.9474e-07_rb,2.9543e-07_rb,2.0093e-07_rb,1.5819e-07_rb,1.5826e-07_rb,1.5737e-07_rb, &\n     &1.5751e-07_rb,1.5910e-07_rb,1.6181e-07_rb,1.6320e-07_rb/)\n      forrefo(3,:) = (/ &\n     &1.0470e-06_rb,5.8184e-07_rb,4.8218e-07_rb,2.7771e-07_rb,1.9036e-07_rb,1.5737e-07_rb, &\n     &1.8633e-07_rb,2.5754e-07_rb,4.0647e-07_rb,1.5839e-07_rb,1.5914e-07_rb,1.5788e-07_rb, &\n     &1.5731e-07_rb,1.5836e-07_rb,1.6103e-07_rb,1.6320e-07_rb/)\n      forrefo(4,:) = (/ &\n     &1.3891e-06_rb,5.4901e-07_rb,2.8850e-07_rb,1.9176e-07_rb,1.4549e-07_rb,1.3603e-07_rb, &\n     &1.7472e-07_rb,2.9796e-07_rb,3.2452e-07_rb,2.5231e-07_rb,2.8195e-07_rb,1.5527e-07_rb, &\n     &1.5507e-07_rb,1.5442e-07_rb,1.5275e-07_rb,1.6057e-07_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 1.73980e-03_rb, 1.41928e-03_rb, 1.15780e-03_rb, 9.44496e-04_rb, 7.70490e-04_rb, &\n     & 6.28541e-04_rb, 5.12744e-04_rb, 4.18280e-04_rb, 3.41219e-04_rb, 2.78356e-04_rb/)\n      selfrefo(:, 2) = (/ &\n     & 1.84082e-03_rb, 1.50228e-03_rb, 1.22600e-03_rb, 1.00053e-03_rb, 8.16525e-04_rb, &\n     & 6.66359e-04_rb, 5.43811e-04_rb, 4.43800e-04_rb, 3.62182e-04_rb, 2.95574e-04_rb/)\n      selfrefo(:, 3) = (/ &\n     & 1.92957e-03_rb, 1.57727e-03_rb, 1.28930e-03_rb, 1.05390e-03_rb, 8.61484e-04_rb, &\n     & 7.04197e-04_rb, 5.75627e-04_rb, 4.70530e-04_rb, 3.84622e-04_rb, 3.14399e-04_rb/)\n      selfrefo(:, 4) = (/ &\n     & 2.12958e-03_rb, 1.73572e-03_rb, 1.41470e-03_rb, 1.15305e-03_rb, 9.39798e-04_rb, &\n     & 7.65984e-04_rb, 6.24317e-04_rb, 5.08850e-04_rb, 4.14739e-04_rb, 3.38034e-04_rb/)\n      selfrefo(:, 5) = (/ &\n     & 2.30636e-03_rb, 1.88401e-03_rb, 1.53900e-03_rb, 1.25717e-03_rb, 1.02695e-03_rb, &\n     & 8.38891e-04_rb, 6.85270e-04_rb, 5.59780e-04_rb, 4.57270e-04_rb, 3.73533e-04_rb/)\n      selfrefo(:, 6) = (/ &\n     & 2.47824e-03_rb, 2.03278e-03_rb, 1.66740e-03_rb, 1.36769e-03_rb, 1.12185e-03_rb, &\n     & 9.20206e-04_rb, 7.54803e-04_rb, 6.19130e-04_rb, 5.07844e-04_rb, 4.16561e-04_rb/)\n      selfrefo(:, 7) = (/ &\n     & 2.54196e-03_rb, 2.10768e-03_rb, 1.74760e-03_rb, 1.44904e-03_rb, 1.20148e-03_rb, &\n     & 9.96215e-04_rb, 8.26019e-04_rb, 6.84900e-04_rb, 5.67890e-04_rb, 4.70870e-04_rb/)\n      selfrefo(:, 8) = (/ &\n     & 2.52650e-03_rb, 2.11773e-03_rb, 1.77510e-03_rb, 1.48790e-03_rb, 1.24717e-03_rb, &\n     & 1.04539e-03_rb, 8.76251e-04_rb, 7.34480e-04_rb, 6.15646e-04_rb, 5.16039e-04_rb/)\n      selfrefo(:, 9) = (/ &\n     & 2.82351e-03_rb, 2.34652e-03_rb, 1.95010e-03_rb, 1.62065e-03_rb, 1.34686e-03_rb, &\n     & 1.11933e-03_rb, 9.30232e-04_rb, 7.73080e-04_rb, 6.42477e-04_rb, 5.33939e-04_rb/)\n      selfrefo(:,10) = (/ &\n     & 2.98189e-03_rb, 2.46741e-03_rb, 2.04170e-03_rb, 1.68944e-03_rb, 1.39795e-03_rb, &\n     & 1.15676e-03_rb, 9.57176e-04_rb, 7.92030e-04_rb, 6.55377e-04_rb, 5.42302e-04_rb/)\n      selfrefo(:,11) = (/ &\n     & 2.98239e-03_rb, 2.46774e-03_rb, 2.04190e-03_rb, 1.68954e-03_rb, 1.39799e-03_rb, &\n     & 1.15675e-03_rb, 9.57137e-04_rb, 7.91970e-04_rb, 6.55305e-04_rb, 5.42224e-04_rb/)\n      selfrefo(:,12) = (/ &\n     & 2.97833e-03_rb, 2.46461e-03_rb, 2.03950e-03_rb, 1.68772e-03_rb, 1.39661e-03_rb, &\n     & 1.15571e-03_rb, 9.56370e-04_rb, 7.91410e-04_rb, 6.54903e-04_rb, 5.41942e-04_rb/)\n      selfrefo(:,13) = (/ &\n     & 2.97779e-03_rb, 2.46463e-03_rb, 2.03990e-03_rb, 1.68836e-03_rb, 1.39741e-03_rb, &\n     & 1.15659e-03_rb, 9.57278e-04_rb, 7.92310e-04_rb, 6.55771e-04_rb, 5.42762e-04_rb/)\n      selfrefo(:,14) = (/ &\n     & 2.98326e-03_rb, 2.46943e-03_rb, 2.04410e-03_rb, 1.69203e-03_rb, 1.40060e-03_rb, &\n     & 1.15936e-03_rb, 9.59673e-04_rb, 7.94380e-04_rb, 6.57557e-04_rb, 5.44301e-04_rb/)\n      selfrefo(:,15) = (/ &\n     & 2.99407e-03_rb, 2.47825e-03_rb, 2.05130e-03_rb, 1.69790e-03_rb, 1.40539e-03_rb, &\n     & 1.16327e-03_rb, 9.62862e-04_rb, 7.96980e-04_rb, 6.59676e-04_rb, 5.46028e-04_rb/)\n      selfrefo(:,16) = (/ &\n     & 3.00005e-03_rb, 2.48296e-03_rb, 2.05500e-03_rb, 1.70080e-03_rb, 1.40765e-03_rb, &\n     & 1.16503e-03_rb, 9.64224e-04_rb, 7.98030e-04_rb, 6.60481e-04_rb, 5.46641e-04_rb/)\n\n      end subroutine lw_kgb15\n\n! **************************************************************************\n      subroutine lw_kgb16\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrlw_kg16, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo\n\n      implicit none\n      save\n\n! Planck fraction mapping level: P = 387.6100 mbar, T = 250.17 K\n      fracrefao(:, 1) = (/ &\n     &  1.1593e-01_rb,2.3390e-01_rb,1.9120e-01_rb,1.3121e-01_rb,1.0590e-01_rb,8.4852e-02_rb, &\n     &  6.4168e-02_rb,4.2537e-02_rb,2.3220e-02_rb,2.1767e-03_rb,1.8203e-03_rb,1.3724e-03_rb, &\n     &  9.5452e-04_rb,5.5015e-04_rb,1.9348e-04_rb,2.7344e-05_rb/)\n      fracrefao(:, 2) = (/ &\n     &  2.8101e-01_rb,1.9773e-01_rb,1.4749e-01_rb,1.1399e-01_rb,8.8190e-02_rb,7.0531e-02_rb, &\n     &  4.6356e-02_rb,3.0774e-02_rb,1.7332e-02_rb,2.0054e-03_rb,1.5950e-03_rb,1.2760e-03_rb, &\n     &  9.5034e-04_rb,5.4992e-04_rb,1.9349e-04_rb,2.7309e-05_rb/)\n      fracrefao(:, 3) = (/ &\n     &  2.9054e-01_rb,2.1263e-01_rb,1.4133e-01_rb,1.1083e-01_rb,8.5107e-02_rb,6.5247e-02_rb, &\n     &  4.4542e-02_rb,2.7205e-02_rb,1.6495e-02_rb,1.8453e-03_rb,1.5222e-03_rb,1.1884e-03_rb, &\n     &  8.1094e-04_rb,4.9173e-04_rb,1.9344e-04_rb,2.7286e-05_rb/)\n      fracrefao(:, 4) = (/ &\n     &  2.9641e-01_rb,2.1738e-01_rb,1.4228e-01_rb,1.0830e-01_rb,8.2837e-02_rb,6.1359e-02_rb, &\n     &  4.4683e-02_rb,2.5027e-02_rb,1.6057e-02_rb,1.7558e-03_rb,1.4193e-03_rb,1.0970e-03_rb, &\n     &  7.8281e-04_rb,4.3260e-04_rb,1.4837e-04_rb,2.2958e-05_rb/)\n      fracrefao(:, 5) = (/ &\n     &  2.9553e-01_rb,2.2139e-01_rb,1.4816e-01_rb,1.0601e-01_rb,8.0048e-02_rb,6.0082e-02_rb, &\n     &  4.3952e-02_rb,2.3788e-02_rb,1.5734e-02_rb,1.6586e-03_rb,1.3434e-03_rb,1.0281e-03_rb, &\n     &  7.0256e-04_rb,4.2577e-04_rb,1.2803e-04_rb,1.3315e-05_rb/)\n      fracrefao(:, 6) = (/ &\n     &  2.9313e-01_rb,2.2476e-01_rb,1.5470e-01_rb,1.0322e-01_rb,7.8904e-02_rb,5.8175e-02_rb, &\n     &  4.3097e-02_rb,2.3618e-02_rb,1.5385e-02_rb,1.5942e-03_rb,1.2702e-03_rb,9.5566e-04_rb, &\n     &  6.5421e-04_rb,4.0165e-04_rb,1.2805e-04_rb,1.3355e-05_rb/)\n      fracrefao(:, 7) = (/ &\n     &  2.9069e-01_rb,2.2823e-01_rb,1.5995e-01_rb,1.0170e-01_rb,7.7287e-02_rb,5.6780e-02_rb, &\n     &  4.1752e-02_rb,2.3899e-02_rb,1.4937e-02_rb,1.4916e-03_rb,1.1909e-03_rb,9.1307e-04_rb, &\n     &  6.3518e-04_rb,3.9866e-04_rb,1.2805e-04_rb,1.3298e-05_rb/)\n      fracrefao(:, 8) = (/ &\n     &  2.8446e-01_rb,2.2651e-01_rb,1.7133e-01_rb,1.0299e-01_rb,7.4231e-02_rb,5.6031e-02_rb, &\n     &  4.1368e-02_rb,2.4318e-02_rb,1.4135e-02_rb,1.4216e-03_rb,1.1465e-03_rb,8.9800e-04_rb, &\n     &  6.3553e-04_rb,3.9536e-04_rb,1.2749e-04_rb,1.3298e-05_rb/)\n      fracrefao(:, 9) = (/ &\n     &  2.0568e-01_rb,2.5049e-01_rb,2.0568e-01_rb,1.1781e-01_rb,7.5579e-02_rb,5.8136e-02_rb, &\n     &  4.2397e-02_rb,2.6544e-02_rb,1.3067e-02_rb,1.4061e-03_rb,1.1455e-03_rb,8.9408e-04_rb, &\n     &  6.3652e-04_rb,3.9450e-04_rb,1.2841e-04_rb,1.3315e-05_rb/)\n\n! Planck fraction mapping level : P=95.58350 mb, T = 215.70 K\n      fracrefbo(:) = (/ &\n     &  1.8111e-01_rb,2.2612e-01_rb,1.6226e-01_rb,1.1872e-01_rb,9.9048e-02_rb,8.0390e-02_rb, &\n     &  6.1648e-02_rb,4.1704e-02_rb,2.2976e-02_rb,1.9263e-03_rb,1.4694e-03_rb,1.1498e-03_rb, &\n     &  7.9906e-04_rb,4.8310e-04_rb,1.6188e-04_rb,2.2651e-05_rb/)\n\n!     The array KAO contains absorption coefs for each of the 16 g-intervals\n!     for a range of pressure levels > ~100mb, temperatures, and ratios\n!     of water vapor to CO2.  The first index in the array, JS, runs\n!     from 1 to 10, and corresponds to different gas column amount ratios,\n!     as expressed through the binary species parameter eta, defined as\n!     eta = gas1/(gas1 + (rat) * gas2), where rat is the \n!     ratio of the reference MLS column amount value of gas 1 \n!     to that of gas2.\n!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds \n!     to different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this  pressure \n!     level, JT = 2 refers to the temperature\n!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the reference pressure level (e.g. JP = 1 is for a\n!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kao(:, 1, 1, 1) = (/ &\n     &2.6621e-07_rb,6.0791e-06_rb,9.3282e-06_rb,1.2208e-05_rb,1.4897e-05_rb,1.7596e-05_rb, &\n     &2.0729e-05_rb,2.6390e-05_rb,2.1078e-05_rb/)\n      kao(:, 2, 1, 1) = (/ &\n     &2.8927e-07_rb,6.1043e-06_rb,9.4020e-06_rb,1.2345e-05_rb,1.5126e-05_rb,1.7938e-05_rb, &\n     &2.1210e-05_rb,2.6769e-05_rb,2.1943e-05_rb/)\n      kao(:, 3, 1, 1) = (/ &\n     &3.1534e-07_rb,6.1325e-06_rb,9.4674e-06_rb,1.2459e-05_rb,1.5335e-05_rb,1.8250e-05_rb, &\n     &2.1635e-05_rb,2.7290e-05_rb,2.2718e-05_rb/)\n      kao(:, 4, 1, 1) = (/ &\n     &3.3330e-07_rb,6.1474e-06_rb,9.4677e-06_rb,1.2509e-05_rb,1.5444e-05_rb,1.8455e-05_rb, &\n     &2.1960e-05_rb,2.7695e-05_rb,2.3390e-05_rb/)\n      kao(:, 5, 1, 1) = (/ &\n     &3.5345e-07_rb,6.1735e-06_rb,9.4652e-06_rb,1.2538e-05_rb,1.5529e-05_rb,1.8608e-05_rb, &\n     &2.2197e-05_rb,2.8038e-05_rb,2.3906e-05_rb/)\n      kao(:, 1, 2, 1) = (/ &\n     &3.4774e-07_rb,6.3116e-06_rb,9.2039e-06_rb,1.1662e-05_rb,1.3842e-05_rb,1.5878e-05_rb, &\n     &1.7925e-05_rb,2.1213e-05_rb,1.7372e-05_rb/)\n      kao(:, 2, 2, 1) = (/ &\n     &3.7649e-07_rb,6.3618e-06_rb,9.2771e-06_rb,1.1777e-05_rb,1.4038e-05_rb,1.6170e-05_rb, &\n     &1.8345e-05_rb,2.1716e-05_rb,1.8135e-05_rb/)\n      kao(:, 3, 2, 1) = (/ &\n     &4.1206e-07_rb,6.4231e-06_rb,9.3322e-06_rb,1.1891e-05_rb,1.4202e-05_rb,1.6428e-05_rb, &\n     &1.8750e-05_rb,2.2212e-05_rb,1.8847e-05_rb/)\n      kao(:, 4, 2, 1) = (/ &\n     &4.4004e-07_rb,6.4581e-06_rb,9.3579e-06_rb,1.1962e-05_rb,1.4316e-05_rb,1.6601e-05_rb, &\n     &1.9025e-05_rb,2.2633e-05_rb,1.9458e-05_rb/)\n      kao(:, 5, 2, 1) = (/ &\n     &4.6078e-07_rb,6.4755e-06_rb,9.3704e-06_rb,1.1973e-05_rb,1.4371e-05_rb,1.6702e-05_rb, &\n     &1.9215e-05_rb,2.2953e-05_rb,1.9948e-05_rb/)\n      kao(:, 1, 3, 1) = (/ &\n     &5.9817e-07_rb,7.8428e-06_rb,1.0496e-05_rb,1.2549e-05_rb,1.4230e-05_rb,1.5565e-05_rb, &\n     &1.6588e-05_rb,1.7671e-05_rb,1.4245e-05_rb/)\n      kao(:, 2, 3, 1) = (/ &\n     &6.5182e-07_rb,7.9343e-06_rb,1.0585e-05_rb,1.2668e-05_rb,1.4392e-05_rb,1.5789e-05_rb, &\n     &1.6949e-05_rb,1.8125e-05_rb,1.4996e-05_rb/)\n      kao(:, 3, 3, 1) = (/ &\n     &7.0221e-07_rb,8.0226e-06_rb,1.0677e-05_rb,1.2755e-05_rb,1.4518e-05_rb,1.5973e-05_rb, &\n     &1.7236e-05_rb,1.8551e-05_rb,1.5656e-05_rb/)\n      kao(:, 4, 3, 1) = (/ &\n     &7.6366e-07_rb,8.1339e-06_rb,1.0778e-05_rb,1.2848e-05_rb,1.4645e-05_rb,1.6156e-05_rb, &\n     &1.7457e-05_rb,1.8931e-05_rb,1.6271e-05_rb/)\n      kao(:, 5, 3, 1) = (/ &\n     &7.9889e-07_rb,8.1643e-06_rb,1.0808e-05_rb,1.2886e-05_rb,1.4686e-05_rb,1.6241e-05_rb, &\n     &1.7601e-05_rb,1.9193e-05_rb,1.6837e-05_rb/)\n      kao(:, 1, 4, 1) = (/ &\n     &1.0320e-06_rb,1.0378e-05_rb,1.2935e-05_rb,1.4632e-05_rb,1.5802e-05_rb,1.6452e-05_rb, &\n     &1.6586e-05_rb,1.6155e-05_rb,1.2287e-05_rb/)\n      kao(:, 2, 4, 1) = (/ &\n     &1.1305e-06_rb,1.0573e-05_rb,1.3130e-05_rb,1.4798e-05_rb,1.5980e-05_rb,1.6653e-05_rb, &\n     &1.6853e-05_rb,1.6526e-05_rb,1.3070e-05_rb/)\n      kao(:, 3, 4, 1) = (/ &\n     &1.2198e-06_rb,1.0772e-05_rb,1.3274e-05_rb,1.4971e-05_rb,1.6111e-05_rb,1.6834e-05_rb, &\n     &1.7084e-05_rb,1.6873e-05_rb,1.3795e-05_rb/)\n      kao(:, 4, 4, 1) = (/ &\n     &1.3096e-06_rb,1.0937e-05_rb,1.3422e-05_rb,1.5096e-05_rb,1.6233e-05_rb,1.6971e-05_rb, &\n     &1.7284e-05_rb,1.7149e-05_rb,1.4420e-05_rb/)\n      kao(:, 5, 4, 1) = (/ &\n     &1.4155e-06_rb,1.1094e-05_rb,1.3596e-05_rb,1.5273e-05_rb,1.6388e-05_rb,1.7112e-05_rb, &\n     &1.7471e-05_rb,1.7381e-05_rb,1.4960e-05_rb/)\n      kao(:, 1, 5, 1) = (/ &\n     &1.6279e-06_rb,1.3142e-05_rb,1.6056e-05_rb,1.7394e-05_rb,1.8017e-05_rb,1.8011e-05_rb, &\n     &1.7308e-05_rb,1.5625e-05_rb,1.1008e-05_rb/)\n      kao(:, 2, 5, 1) = (/ &\n     &1.7835e-06_rb,1.3457e-05_rb,1.6348e-05_rb,1.7668e-05_rb,1.8277e-05_rb,1.8261e-05_rb, &\n     &1.7567e-05_rb,1.5970e-05_rb,1.1698e-05_rb/)\n      kao(:, 3, 5, 1) = (/ &\n     &1.9402e-06_rb,1.3791e-05_rb,1.6620e-05_rb,1.7922e-05_rb,1.8515e-05_rb,1.8474e-05_rb, &\n     &1.7802e-05_rb,1.6252e-05_rb,1.2372e-05_rb/)\n      kao(:, 4, 5, 1) = (/ &\n     &2.0835e-06_rb,1.4086e-05_rb,1.6875e-05_rb,1.8160e-05_rb,1.8703e-05_rb,1.8665e-05_rb, &\n     &1.7992e-05_rb,1.6486e-05_rb,1.3071e-05_rb/)\n      kao(:, 5, 5, 1) = (/ &\n     &2.2582e-06_rb,1.4511e-05_rb,1.7205e-05_rb,1.8422e-05_rb,1.8984e-05_rb,1.8898e-05_rb, &\n     &1.8217e-05_rb,1.6724e-05_rb,1.3787e-05_rb/)\n      kao(:, 1, 6, 1) = (/ &\n     &2.4034e-06_rb,1.6823e-05_rb,1.9391e-05_rb,2.0723e-05_rb,2.0772e-05_rb,2.0043e-05_rb, &\n     &1.8498e-05_rb,1.5704e-05_rb,9.8836e-06_rb/)\n      kao(:, 2, 6, 1) = (/ &\n     &2.6386e-06_rb,1.7226e-05_rb,1.9692e-05_rb,2.1124e-05_rb,2.1126e-05_rb,2.0392e-05_rb, &\n     &1.8810e-05_rb,1.6034e-05_rb,1.0751e-05_rb/)\n      kao(:, 3, 6, 1) = (/ &\n     &2.8660e-06_rb,1.7674e-05_rb,2.0029e-05_rb,2.1524e-05_rb,2.1484e-05_rb,2.0719e-05_rb, &\n     &1.9071e-05_rb,1.6298e-05_rb,1.1450e-05_rb/)\n      kao(:, 4, 6, 1) = (/ &\n     &3.0844e-06_rb,1.8072e-05_rb,2.0407e-05_rb,2.1899e-05_rb,2.1788e-05_rb,2.0987e-05_rb, &\n     &1.9304e-05_rb,1.6540e-05_rb,1.2182e-05_rb/)\n      kao(:, 5, 6, 1) = (/ &\n     &3.2920e-06_rb,1.8533e-05_rb,2.0800e-05_rb,2.2106e-05_rb,2.2044e-05_rb,2.1223e-05_rb, &\n     &1.9506e-05_rb,1.6741e-05_rb,1.2836e-05_rb/)\n      kao(:, 1, 7, 1) = (/ &\n     &3.8221e-06_rb,2.2204e-05_rb,2.4808e-05_rb,2.5531e-05_rb,2.5616e-05_rb,2.3917e-05_rb, &\n     &2.1120e-05_rb,1.6870e-05_rb,8.7171e-06_rb/)\n      kao(:, 2, 7, 1) = (/ &\n     &4.1828e-06_rb,2.2870e-05_rb,2.5558e-05_rb,2.5953e-05_rb,2.6151e-05_rb,2.4347e-05_rb, &\n     &2.1524e-05_rb,1.7202e-05_rb,9.2028e-06_rb/)\n      kao(:, 3, 7, 1) = (/ &\n     &4.5497e-06_rb,2.3564e-05_rb,2.6164e-05_rb,2.6493e-05_rb,2.6591e-05_rb,2.4767e-05_rb, &\n     &2.1899e-05_rb,1.7498e-05_rb,9.7937e-06_rb/)\n      kao(:, 4, 7, 1) = (/ &\n     &4.8742e-06_rb,2.4270e-05_rb,2.6708e-05_rb,2.7099e-05_rb,2.6759e-05_rb,2.5177e-05_rb, &\n     &2.2242e-05_rb,1.7759e-05_rb,1.0449e-05_rb/)\n      kao(:, 5, 7, 1) = (/ &\n     &5.1866e-06_rb,2.4962e-05_rb,2.7348e-05_rb,2.7664e-05_rb,2.7129e-05_rb,2.5537e-05_rb, &\n     &2.2515e-05_rb,1.7998e-05_rb,1.1128e-05_rb/)\n      kao(:, 1, 8, 1) = (/ &\n     &7.4211e-06_rb,3.2998e-05_rb,3.6610e-05_rb,3.7073e-05_rb,3.4983e-05_rb,3.2511e-05_rb, &\n     &2.7821e-05_rb,2.0603e-05_rb,7.1809e-06_rb/)\n      kao(:, 2, 8, 1) = (/ &\n     &8.1099e-06_rb,3.4342e-05_rb,3.7801e-05_rb,3.7976e-05_rb,3.5797e-05_rb,3.2823e-05_rb, &\n     &2.8347e-05_rb,2.1030e-05_rb,7.7735e-06_rb/)\n      kao(:, 3, 8, 1) = (/ &\n     &8.7992e-06_rb,3.5880e-05_rb,3.8837e-05_rb,3.8975e-05_rb,3.6756e-05_rb,3.3300e-05_rb, &\n     &2.8882e-05_rb,2.1428e-05_rb,8.4180e-06_rb/)\n      kao(:, 4, 8, 1) = (/ &\n     &9.4486e-06_rb,3.7431e-05_rb,3.9883e-05_rb,3.9775e-05_rb,3.7762e-05_rb,3.3901e-05_rb, &\n     &2.9403e-05_rb,2.1792e-05_rb,9.1057e-06_rb/)\n      kao(:, 5, 8, 1) = (/ &\n     &1.0041e-05_rb,3.9014e-05_rb,4.1019e-05_rb,4.0539e-05_rb,3.8447e-05_rb,3.4543e-05_rb, &\n     &2.9823e-05_rb,2.2110e-05_rb,9.8280e-06_rb/)\n      kao(:, 1, 9, 1) = (/ &\n     &2.6945e-05_rb,8.1804e-05_rb,8.6984e-05_rb,8.4462e-05_rb,7.8660e-05_rb,6.9398e-05_rb, &\n     &5.6216e-05_rb,3.9134e-05_rb,6.0831e-06_rb/)\n      kao(:, 2, 9, 1) = (/ &\n     &2.9562e-05_rb,8.5456e-05_rb,9.1284e-05_rb,8.7620e-05_rb,8.1311e-05_rb,7.1570e-05_rb, &\n     &5.7999e-05_rb,3.9483e-05_rb,6.6855e-06_rb/)\n      kao(:, 3, 9, 1) = (/ &\n     &3.2110e-05_rb,8.8183e-05_rb,9.6256e-05_rb,9.1033e-05_rb,8.3882e-05_rb,7.3603e-05_rb, &\n     &5.9334e-05_rb,4.0067e-05_rb,7.3573e-06_rb/)\n      kao(:, 4, 9, 1) = (/ &\n     &3.4494e-05_rb,9.0981e-05_rb,1.0082e-04_rb,9.4837e-05_rb,8.6631e-05_rb,7.5471e-05_rb, &\n     &6.0778e-05_rb,4.0870e-05_rb,8.0874e-06_rb/)\n      kao(:, 5, 9, 1) = (/ &\n     &3.6729e-05_rb,9.3406e-05_rb,1.0411e-04_rb,9.8963e-05_rb,8.9287e-05_rb,7.7185e-05_rb, &\n     &6.1987e-05_rb,4.1723e-05_rb,8.8598e-06_rb/)\n      kao(:, 1,10, 1) = (/ &\n     &1.1063e-04_rb,2.0470e-04_rb,2.2594e-04_rb,2.2784e-04_rb,2.0878e-04_rb,1.7781e-04_rb, &\n     &1.3876e-04_rb,9.0190e-05_rb,6.6238e-06_rb/)\n      kao(:, 2,10, 1) = (/ &\n     &1.2128e-04_rb,2.1612e-04_rb,2.3657e-04_rb,2.3782e-04_rb,2.2024e-04_rb,1.8545e-04_rb, &\n     &1.4406e-04_rb,9.3147e-05_rb,7.2888e-06_rb/)\n      kao(:, 3,10, 1) = (/ &\n     &1.3155e-04_rb,2.2685e-04_rb,2.4613e-04_rb,2.4648e-04_rb,2.3100e-04_rb,1.9523e-04_rb, &\n     &1.4909e-04_rb,9.5827e-05_rb,7.7784e-06_rb/)\n      kao(:, 4,10, 1) = (/ &\n     &1.4108e-04_rb,2.3656e-04_rb,2.5475e-04_rb,2.5395e-04_rb,2.3879e-04_rb,2.0427e-04_rb, &\n     &1.5511e-04_rb,9.8368e-05_rb,8.3069e-06_rb/)\n      kao(:, 5,10, 1) = (/ &\n     &1.4988e-04_rb,2.4526e-04_rb,2.6296e-04_rb,2.6141e-04_rb,2.4593e-04_rb,2.1313e-04_rb, &\n     &1.6065e-04_rb,1.0083e-04_rb,8.9709e-06_rb/)\n      kao(:, 1,11, 1) = (/ &\n     &1.6397e-04_rb,2.6056e-04_rb,2.8031e-04_rb,2.7866e-04_rb,2.6081e-04_rb,2.2383e-04_rb, &\n     &1.7351e-04_rb,1.0962e-04_rb,6.8264e-06_rb/)\n      kao(:, 2,11, 1) = (/ &\n     &1.7933e-04_rb,2.7580e-04_rb,2.9343e-04_rb,2.9042e-04_rb,2.7290e-04_rb,2.3596e-04_rb, &\n     &1.8069e-04_rb,1.1353e-04_rb,7.5502e-06_rb/)\n      kao(:, 3,11, 1) = (/ &\n     &1.9324e-04_rb,2.9031e-04_rb,3.0629e-04_rb,3.0108e-04_rb,2.8182e-04_rb,2.4730e-04_rb, &\n     &1.8878e-04_rb,1.1713e-04_rb,7.9027e-06_rb/)\n      kao(:, 4,11, 1) = (/ &\n     &2.0654e-04_rb,3.0384e-04_rb,3.1739e-04_rb,3.1103e-04_rb,2.9049e-04_rb,2.5555e-04_rb, &\n     &1.9705e-04_rb,1.2084e-04_rb,8.5383e-06_rb/)\n      kao(:, 5,11, 1) = (/ &\n     &2.1856e-04_rb,3.1574e-04_rb,3.2801e-04_rb,3.2141e-04_rb,2.9895e-04_rb,2.6285e-04_rb, &\n     &2.0518e-04_rb,1.2441e-04_rb,9.1615e-06_rb/)\n      kao(:, 1,12, 1) = (/ &\n     &1.7554e-04_rb,2.6383e-04_rb,2.7930e-04_rb,2.7562e-04_rb,2.5860e-04_rb,2.2333e-04_rb, &\n     &1.7363e-04_rb,1.0883e-04_rb,5.7385e-06_rb/)\n      kao(:, 2,12, 1) = (/ &\n     &1.9241e-04_rb,2.8007e-04_rb,2.9311e-04_rb,2.8776e-04_rb,2.6852e-04_rb,2.3492e-04_rb, &\n     &1.8150e-04_rb,1.1266e-04_rb,6.8723e-06_rb/)\n      kao(:, 3,12, 1) = (/ &\n     &2.0743e-04_rb,2.9497e-04_rb,3.0602e-04_rb,2.9878e-04_rb,2.7794e-04_rb,2.4424e-04_rb, &\n     &1.8850e-04_rb,1.1619e-04_rb,7.4728e-06_rb/)\n      kao(:, 4,12, 1) = (/ &\n     &2.2033e-04_rb,3.0884e-04_rb,3.1746e-04_rb,3.0874e-04_rb,2.8629e-04_rb,2.5127e-04_rb, &\n     &1.9681e-04_rb,1.2004e-04_rb,7.8331e-06_rb/)\n      kao(:, 5,12, 1) = (/ &\n     &2.3385e-04_rb,3.2096e-04_rb,3.2817e-04_rb,3.1852e-04_rb,2.9492e-04_rb,2.5838e-04_rb, &\n     &2.0541e-04_rb,1.2394e-04_rb,8.4107e-06_rb/)\n      kao(:, 1,13, 1) = (/ &\n     &1.4984e-04_rb,2.2462e-04_rb,2.3735e-04_rb,2.3350e-04_rb,2.1852e-04_rb,1.8858e-04_rb, &\n     &1.4655e-04_rb,9.1919e-05_rb,4.7944e-06_rb/)\n      kao(:, 2,13, 1) = (/ &\n     &1.6431e-04_rb,2.3822e-04_rb,2.4852e-04_rb,2.4374e-04_rb,2.2685e-04_rb,1.9798e-04_rb, &\n     &1.5298e-04_rb,9.5139e-05_rb,5.7512e-06_rb/)\n      kao(:, 3,13, 1) = (/ &\n     &1.7714e-04_rb,2.5149e-04_rb,2.5950e-04_rb,2.5249e-04_rb,2.3438e-04_rb,2.0591e-04_rb, &\n     &1.5891e-04_rb,9.8151e-05_rb,6.2816e-06_rb/)\n      kao(:, 4,13, 1) = (/ &\n     &1.8918e-04_rb,2.6227e-04_rb,2.6867e-04_rb,2.6081e-04_rb,2.4142e-04_rb,2.1149e-04_rb, &\n     &1.6602e-04_rb,1.0121e-04_rb,6.5742e-06_rb/)\n      kao(:, 5,13, 1) = (/ &\n     &1.9984e-04_rb,2.7202e-04_rb,2.7776e-04_rb,2.6884e-04_rb,2.4875e-04_rb,2.1766e-04_rb, &\n     &1.7300e-04_rb,1.0449e-04_rb,7.0482e-06_rb/)\n      kao(:, 1, 1, 2) = (/ &\n     &1.6519e-06_rb,1.6500e-05_rb,2.5026e-05_rb,3.2759e-05_rb,4.0208e-05_rb,4.7995e-05_rb, &\n     &5.7218e-05_rb,7.0450e-05_rb,6.2071e-05_rb/)\n      kao(:, 2, 1, 2) = (/ &\n     &1.7427e-06_rb,1.6766e-05_rb,2.5514e-05_rb,3.3509e-05_rb,4.1226e-05_rb,4.9256e-05_rb, &\n     &5.8782e-05_rb,7.2775e-05_rb,6.4227e-05_rb/)\n      kao(:, 3, 1, 2) = (/ &\n     &1.8342e-06_rb,1.7039e-05_rb,2.6012e-05_rb,3.4217e-05_rb,4.2214e-05_rb,5.0504e-05_rb, &\n     &6.0325e-05_rb,7.4727e-05_rb,6.6376e-05_rb/)\n      kao(:, 4, 1, 2) = (/ &\n     &1.9060e-06_rb,1.7243e-05_rb,2.6493e-05_rb,3.4981e-05_rb,4.3216e-05_rb,5.1749e-05_rb, &\n     &6.1747e-05_rb,7.6716e-05_rb,6.8482e-05_rb/)\n      kao(:, 5, 1, 2) = (/ &\n     &1.9873e-06_rb,1.7462e-05_rb,2.6980e-05_rb,3.5686e-05_rb,4.4149e-05_rb,5.2919e-05_rb, &\n     &6.3181e-05_rb,7.8643e-05_rb,7.0600e-05_rb/)\n      kao(:, 1, 2, 2) = (/ &\n     &2.1537e-06_rb,1.7686e-05_rb,2.5477e-05_rb,3.2084e-05_rb,3.8037e-05_rb,4.3791e-05_rb, &\n     &5.0118e-05_rb,5.9749e-05_rb,5.2659e-05_rb/)\n      kao(:, 2, 2, 2) = (/ &\n     &2.2967e-06_rb,1.7950e-05_rb,2.5979e-05_rb,3.2808e-05_rb,3.8966e-05_rb,4.4991e-05_rb, &\n     &5.1587e-05_rb,6.1578e-05_rb,5.4559e-05_rb/)\n      kao(:, 3, 2, 2) = (/ &\n     &2.4223e-06_rb,1.8241e-05_rb,2.6472e-05_rb,3.3476e-05_rb,3.9818e-05_rb,4.6056e-05_rb, &\n     &5.2876e-05_rb,6.3201e-05_rb,5.6392e-05_rb/)\n      kao(:, 4, 2, 2) = (/ &\n     &2.5452e-06_rb,1.8478e-05_rb,2.6920e-05_rb,3.4112e-05_rb,4.0714e-05_rb,4.7174e-05_rb, &\n     &5.4253e-05_rb,6.4831e-05_rb,5.8337e-05_rb/)\n      kao(:, 5, 2, 2) = (/ &\n     &2.6442e-06_rb,1.8696e-05_rb,2.7330e-05_rb,3.4790e-05_rb,4.1641e-05_rb,4.8326e-05_rb, &\n     &5.5567e-05_rb,6.6400e-05_rb,6.0213e-05_rb/)\n      kao(:, 1, 3, 2) = (/ &\n     &3.6781e-06_rb,2.1946e-05_rb,2.9916e-05_rb,3.5559e-05_rb,4.0089e-05_rb,4.3735e-05_rb, &\n     &4.6884e-05_rb,5.0541e-05_rb,4.3984e-05_rb/)\n      kao(:, 2, 3, 2) = (/ &\n     &3.9348e-06_rb,2.2135e-05_rb,3.0461e-05_rb,3.6306e-05_rb,4.1005e-05_rb,4.4863e-05_rb, &\n     &4.8174e-05_rb,5.2207e-05_rb,4.5557e-05_rb/)\n      kao(:, 3, 3, 2) = (/ &\n     &4.1798e-06_rb,2.2403e-05_rb,3.0963e-05_rb,3.7011e-05_rb,4.1865e-05_rb,4.5861e-05_rb, &\n     &4.9330e-05_rb,5.3612e-05_rb,4.7151e-05_rb/)\n      kao(:, 4, 3, 2) = (/ &\n     &4.4176e-06_rb,2.2879e-05_rb,3.1514e-05_rb,3.7717e-05_rb,4.2706e-05_rb,4.6836e-05_rb, &\n     &5.0501e-05_rb,5.4941e-05_rb,4.8733e-05_rb/)\n      kao(:, 5, 3, 2) = (/ &\n     &4.5930e-06_rb,2.3205e-05_rb,3.1822e-05_rb,3.8274e-05_rb,4.3472e-05_rb,4.7803e-05_rb, &\n     &5.1670e-05_rb,5.6326e-05_rb,5.0305e-05_rb/)\n      kao(:, 1, 4, 2) = (/ &\n     &6.4358e-06_rb,2.9282e-05_rb,3.6943e-05_rb,4.2596e-05_rb,4.5632e-05_rb,4.7319e-05_rb, &\n     &4.7633e-05_rb,4.6727e-05_rb,3.6481e-05_rb/)\n      kao(:, 2, 4, 2) = (/ &\n     &6.8669e-06_rb,2.9817e-05_rb,3.7275e-05_rb,4.3436e-05_rb,4.6592e-05_rb,4.8428e-05_rb, &\n     &4.8930e-05_rb,4.8153e-05_rb,3.7877e-05_rb/)\n      kao(:, 3, 4, 2) = (/ &\n     &7.3364e-06_rb,3.0199e-05_rb,3.7809e-05_rb,4.3827e-05_rb,4.7553e-05_rb,4.9496e-05_rb, &\n     &5.0112e-05_rb,4.9423e-05_rb,3.9242e-05_rb/)\n      kao(:, 4, 4, 2) = (/ &\n     &7.7623e-06_rb,3.0806e-05_rb,3.8513e-05_rb,4.4137e-05_rb,4.8467e-05_rb,5.0544e-05_rb, &\n     &5.1178e-05_rb,5.0627e-05_rb,4.0689e-05_rb/)\n      kao(:, 5, 4, 2) = (/ &\n     &8.2042e-06_rb,3.1502e-05_rb,3.9409e-05_rb,4.4849e-05_rb,4.9430e-05_rb,5.1580e-05_rb, &\n     &5.2292e-05_rb,5.1835e-05_rb,4.2152e-05_rb/)\n      kao(:, 1, 5, 2) = (/ &\n     &1.0402e-05_rb,3.8540e-05_rb,4.6318e-05_rb,5.0020e-05_rb,5.3672e-05_rb,5.3150e-05_rb, &\n     &5.0796e-05_rb,4.5989e-05_rb,3.1155e-05_rb/)\n      kao(:, 2, 5, 2) = (/ &\n     &1.1085e-05_rb,3.9241e-05_rb,4.7238e-05_rb,5.0920e-05_rb,5.3596e-05_rb,5.4294e-05_rb, &\n     &5.2010e-05_rb,4.7261e-05_rb,3.2691e-05_rb/)\n      kao(:, 3, 5, 2) = (/ &\n     &1.1793e-05_rb,3.9912e-05_rb,4.8110e-05_rb,5.1979e-05_rb,5.4361e-05_rb,5.5470e-05_rb, &\n     &5.3221e-05_rb,4.8498e-05_rb,3.4229e-05_rb/)\n      kao(:, 4, 5, 2) = (/ &\n     &1.2505e-05_rb,4.0706e-05_rb,4.8865e-05_rb,5.3127e-05_rb,5.5321e-05_rb,5.6646e-05_rb, &\n     &5.4402e-05_rb,4.9696e-05_rb,3.5620e-05_rb/)\n      kao(:, 5, 5, 2) = (/ &\n     &1.3238e-05_rb,4.1575e-05_rb,5.0157e-05_rb,5.4552e-05_rb,5.6339e-05_rb,5.7036e-05_rb, &\n     &5.5608e-05_rb,5.0863e-05_rb,3.6859e-05_rb/)\n      kao(:, 1, 6, 2) = (/ &\n     &1.5685e-05_rb,4.8160e-05_rb,5.7576e-05_rb,6.0816e-05_rb,6.0795e-05_rb,5.9888e-05_rb, &\n     &5.5641e-05_rb,4.7076e-05_rb,2.7125e-05_rb/)\n      kao(:, 2, 6, 2) = (/ &\n     &1.6746e-05_rb,4.9438e-05_rb,5.8728e-05_rb,6.2091e-05_rb,6.2171e-05_rb,6.0759e-05_rb, &\n     &5.6976e-05_rb,4.8239e-05_rb,2.8411e-05_rb/)\n      kao(:, 3, 6, 2) = (/ &\n     &1.7756e-05_rb,5.0622e-05_rb,5.9836e-05_rb,6.3203e-05_rb,6.3569e-05_rb,6.1458e-05_rb, &\n     &5.8288e-05_rb,4.9429e-05_rb,2.9823e-05_rb/)\n      kao(:, 4, 6, 2) = (/ &\n     &1.8829e-05_rb,5.1859e-05_rb,6.0806e-05_rb,6.4509e-05_rb,6.5119e-05_rb,6.2540e-05_rb, &\n     &5.8809e-05_rb,5.0652e-05_rb,3.1085e-05_rb/)\n      kao(:, 5, 6, 2) = (/ &\n     &1.9856e-05_rb,5.2975e-05_rb,6.2034e-05_rb,6.5989e-05_rb,6.6522e-05_rb,6.3894e-05_rb, &\n     &5.9538e-05_rb,5.1853e-05_rb,3.2453e-05_rb/)\n      kao(:, 1, 7, 2) = (/ &\n     &2.4856e-05_rb,6.4218e-05_rb,7.4055e-05_rb,7.7980e-05_rb,7.5911e-05_rb,7.1057e-05_rb, &\n     &6.3849e-05_rb,5.1579e-05_rb,2.5153e-05_rb/)\n      kao(:, 2, 7, 2) = (/ &\n     &2.6608e-05_rb,6.6305e-05_rb,7.5730e-05_rb,7.9533e-05_rb,7.7616e-05_rb,7.2887e-05_rb, &\n     &6.4610e-05_rb,5.2907e-05_rb,2.6881e-05_rb/)\n      kao(:, 3, 7, 2) = (/ &\n     &2.8288e-05_rb,6.8291e-05_rb,7.7618e-05_rb,8.1185e-05_rb,7.9322e-05_rb,7.4738e-05_rb, &\n     &6.5685e-05_rb,5.4242e-05_rb,2.8455e-05_rb/)\n      kao(:, 4, 7, 2) = (/ &\n     &3.0045e-05_rb,7.0265e-05_rb,7.9536e-05_rb,8.2799e-05_rb,8.1209e-05_rb,7.6305e-05_rb, &\n     &6.7186e-05_rb,5.5601e-05_rb,2.9886e-05_rb/)\n      kao(:, 5, 7, 2) = (/ &\n     &3.1755e-05_rb,7.2003e-05_rb,8.1183e-05_rb,8.4367e-05_rb,8.2925e-05_rb,7.7935e-05_rb, &\n     &6.8892e-05_rb,5.5914e-05_rb,3.1298e-05_rb/)\n      kao(:, 1, 8, 2) = (/ &\n     &4.6308e-05_rb,9.7055e-05_rb,1.0843e-04_rb,1.0990e-04_rb,1.0798e-04_rb,9.8279e-05_rb, &\n     &8.2910e-05_rb,6.2908e-05_rb,2.6615e-05_rb/)\n      kao(:, 2, 8, 2) = (/ &\n     &4.9990e-05_rb,1.0048e-04_rb,1.1189e-04_rb,1.1329e-04_rb,1.1038e-04_rb,1.0108e-04_rb, &\n     &8.5246e-05_rb,6.3800e-05_rb,2.8720e-05_rb/)\n      kao(:, 3, 8, 2) = (/ &\n     &5.3406e-05_rb,1.0353e-04_rb,1.1536e-04_rb,1.1646e-04_rb,1.1270e-04_rb,1.0316e-04_rb, &\n     &8.7419e-05_rb,6.5105e-05_rb,3.1055e-05_rb/)\n      kao(:, 4, 8, 2) = (/ &\n     &5.6634e-05_rb,1.0658e-04_rb,1.1884e-04_rb,1.1968e-04_rb,1.1489e-04_rb,1.0536e-04_rb, &\n     &8.9223e-05_rb,6.6739e-05_rb,3.2877e-05_rb/)\n      kao(:, 5, 8, 2) = (/ &\n     &5.9979e-05_rb,1.0942e-04_rb,1.2217e-04_rb,1.2302e-04_rb,1.1760e-04_rb,1.0763e-04_rb, &\n     &9.1750e-05_rb,6.8524e-05_rb,3.4517e-05_rb/)\n      kao(:, 1, 9, 2) = (/ &\n     &1.6574e-04_rb,2.3675e-04_rb,2.5425e-04_rb,2.5367e-04_rb,2.3792e-04_rb,2.1003e-04_rb, &\n     &1.7177e-04_rb,1.1936e-04_rb,3.2512e-05_rb/)\n      kao(:, 2, 9, 2) = (/ &\n     &1.7873e-04_rb,2.4657e-04_rb,2.6302e-04_rb,2.6299e-04_rb,2.4679e-04_rb,2.1704e-04_rb, &\n     &1.7629e-04_rb,1.2297e-04_rb,3.4956e-05_rb/)\n      kao(:, 3, 9, 2) = (/ &\n     &1.9203e-04_rb,2.5827e-04_rb,2.7104e-04_rb,2.7133e-04_rb,2.5463e-04_rb,2.2408e-04_rb, &\n     &1.8102e-04_rb,1.2579e-04_rb,3.6986e-05_rb/)\n      kao(:, 4, 9, 2) = (/ &\n     &2.0457e-04_rb,2.7047e-04_rb,2.8009e-04_rb,2.7979e-04_rb,2.6236e-04_rb,2.3082e-04_rb, &\n     &1.8610e-04_rb,1.2867e-04_rb,3.9201e-05_rb/)\n      kao(:, 5, 9, 2) = (/ &\n     &2.1654e-04_rb,2.8311e-04_rb,2.9060e-04_rb,2.8789e-04_rb,2.7019e-04_rb,2.3757e-04_rb, &\n     &1.9128e-04_rb,1.3157e-04_rb,4.1162e-05_rb/)\n      kao(:, 1,10, 2) = (/ &\n     &6.9835e-04_rb,7.7425e-04_rb,7.4212e-04_rb,6.8606e-04_rb,6.1917e-04_rb,5.3712e-04_rb, &\n     &4.2860e-04_rb,2.7889e-04_rb,3.4936e-05_rb/)\n      kao(:, 2,10, 2) = (/ &\n     &7.4976e-04_rb,8.1587e-04_rb,7.7895e-04_rb,7.1764e-04_rb,6.4311e-04_rb,5.5763e-04_rb, &\n     &4.4404e-04_rb,2.8872e-04_rb,3.8434e-05_rb/)\n      kao(:, 3,10, 2) = (/ &\n     &8.0421e-04_rb,8.6133e-04_rb,8.1873e-04_rb,7.5123e-04_rb,6.6805e-04_rb,5.7460e-04_rb, &\n     &4.5895e-04_rb,2.9845e-04_rb,4.2197e-05_rb/)\n      kao(:, 4,10, 2) = (/ &\n     &8.5541e-04_rb,9.0651e-04_rb,8.6169e-04_rb,7.8842e-04_rb,6.9649e-04_rb,5.9375e-04_rb, &\n     &4.7283e-04_rb,3.0790e-04_rb,4.6109e-05_rb/)\n      kao(:, 5,10, 2) = (/ &\n     &9.0554e-04_rb,9.5112e-04_rb,9.0374e-04_rb,8.2600e-04_rb,7.2587e-04_rb,6.1366e-04_rb, &\n     &4.8709e-04_rb,3.1697e-04_rb,4.9839e-05_rb/)\n      kao(:, 1,11, 2) = (/ &\n     &1.0573e-03_rb,1.1046e-03_rb,1.0331e-03_rb,9.3641e-04_rb,8.2149e-04_rb,6.9220e-04_rb, &\n     &5.4269e-04_rb,3.5137e-04_rb,3.2311e-05_rb/)\n      kao(:, 2,11, 2) = (/ &\n     &1.1354e-03_rb,1.1699e-03_rb,1.0957e-03_rb,9.8791e-04_rb,8.6081e-04_rb,7.2123e-04_rb, &\n     &5.6428e-04_rb,3.6441e-04_rb,3.5797e-05_rb/)\n      kao(:, 3,11, 2) = (/ &\n     &1.2157e-03_rb,1.2370e-03_rb,1.1565e-03_rb,1.0415e-03_rb,9.0546e-04_rb,7.4993e-04_rb, &\n     &5.8345e-04_rb,3.7768e-04_rb,3.9564e-05_rb/)\n      kao(:, 4,11, 2) = (/ &\n     &1.2894e-03_rb,1.3041e-03_rb,1.2183e-03_rb,1.0951e-03_rb,9.4833e-04_rb,7.8292e-04_rb, &\n     &6.0424e-04_rb,3.8988e-04_rb,4.3105e-05_rb/)\n      kao(:, 5,11, 2) = (/ &\n     &1.3602e-03_rb,1.3714e-03_rb,1.2775e-03_rb,1.1464e-03_rb,9.9122e-04_rb,8.1361e-04_rb, &\n     &6.2375e-04_rb,4.0138e-04_rb,4.6502e-05_rb/)\n      kao(:, 1,12, 2) = (/ &\n     &1.1559e-03_rb,1.1821e-03_rb,1.1002e-03_rb,9.8760e-04_rb,8.5869e-04_rb,7.1597e-04_rb, &\n     &5.5368e-04_rb,3.5629e-04_rb,2.8926e-05_rb/)\n      kao(:, 2,12, 2) = (/ &\n     &1.2387e-03_rb,1.2530e-03_rb,1.1642e-03_rb,1.0435e-03_rb,9.0422e-04_rb,7.4802e-04_rb, &\n     &5.7617e-04_rb,3.7052e-04_rb,3.1589e-05_rb/)\n      kao(:, 3,12, 2) = (/ &\n     &1.3216e-03_rb,1.3229e-03_rb,1.2283e-03_rb,1.1015e-03_rb,9.5193e-04_rb,7.8187e-04_rb, &\n     &5.9954e-04_rb,3.8460e-04_rb,3.4577e-05_rb/)\n      kao(:, 4,12, 2) = (/ &\n     &1.3983e-03_rb,1.3942e-03_rb,1.2931e-03_rb,1.1587e-03_rb,9.9709e-04_rb,8.1633e-04_rb, &\n     &6.2085e-04_rb,3.9719e-04_rb,3.7982e-05_rb/)\n      kao(:, 5,12, 2) = (/ &\n     &1.4751e-03_rb,1.4634e-03_rb,1.3557e-03_rb,1.2116e-03_rb,1.0389e-03_rb,8.4961e-04_rb, &\n     &6.4030e-04_rb,4.0878e-04_rb,4.0969e-05_rb/)\n      kao(:, 1,13, 2) = (/ &\n     &1.0038e-03_rb,1.0239e-03_rb,9.5244e-04_rb,8.5524e-04_rb,7.4348e-04_rb,6.2001e-04_rb, &\n     &4.7929e-04_rb,3.0767e-04_rb,2.4695e-05_rb/)\n      kao(:, 2,13, 2) = (/ &\n     &1.0734e-03_rb,1.0865e-03_rb,1.0094e-03_rb,9.0484e-04_rb,7.8346e-04_rb,6.4723e-04_rb, &\n     &4.9815e-04_rb,3.1985e-04_rb,2.6858e-05_rb/)\n      kao(:, 3,13, 2) = (/ &\n     &1.1391e-03_rb,1.1434e-03_rb,1.0621e-03_rb,9.5239e-04_rb,8.2130e-04_rb,6.7579e-04_rb, &\n     &5.1796e-04_rb,3.3140e-04_rb,2.9385e-05_rb/)\n      kao(:, 4,13, 2) = (/ &\n     &1.2032e-03_rb,1.2025e-03_rb,1.1163e-03_rb,9.9786e-04_rb,8.5960e-04_rb,7.0590e-04_rb, &\n     &5.3619e-04_rb,3.4228e-04_rb,3.2189e-05_rb/)\n      kao(:, 5,13, 2) = (/ &\n     &1.2690e-03_rb,1.2617e-03_rb,1.1676e-03_rb,1.0418e-03_rb,8.9504e-04_rb,7.3293e-04_rb, &\n     &5.5106e-04_rb,3.5176e-04_rb,3.4791e-05_rb/)\n      kao(:, 1, 1, 3) = (/ &\n     &3.4054e-06_rb,3.6169e-05_rb,5.7781e-05_rb,7.9702e-05_rb,9.9450e-05_rb,1.1908e-04_rb, &\n     &1.4021e-04_rb,1.6904e-04_rb,1.5965e-04_rb/)\n      kao(:, 2, 1, 3) = (/ &\n     &3.5406e-06_rb,3.7213e-05_rb,5.9148e-05_rb,7.9930e-05_rb,1.0281e-04_rb,1.2326e-04_rb, &\n     &1.4516e-04_rb,1.7473e-04_rb,1.6518e-04_rb/)\n      kao(:, 3, 1, 3) = (/ &\n     &3.6962e-06_rb,3.8392e-05_rb,6.0628e-05_rb,8.1614e-05_rb,1.0332e-04_rb,1.2805e-04_rb, &\n     &1.5083e-04_rb,1.8127e-04_rb,1.7179e-04_rb/)\n      kao(:, 4, 1, 3) = (/ &\n     &3.8150e-06_rb,3.9649e-05_rb,6.2587e-05_rb,8.4276e-05_rb,1.0580e-04_rb,1.2950e-04_rb, &\n     &1.5730e-04_rb,1.8884e-04_rb,1.7648e-04_rb/)\n      kao(:, 5, 1, 3) = (/ &\n     &3.9425e-06_rb,4.0895e-05_rb,6.4628e-05_rb,8.7067e-05_rb,1.0971e-04_rb,1.3287e-04_rb, &\n     &1.5979e-04_rb,1.9707e-04_rb,1.8056e-04_rb/)\n      kao(:, 1, 2, 3) = (/ &\n     &4.7659e-06_rb,3.7672e-05_rb,5.6772e-05_rb,7.4964e-05_rb,9.3354e-05_rb,1.1163e-04_rb, &\n     &1.2805e-04_rb,1.4897e-04_rb,1.4118e-04_rb/)\n      kao(:, 2, 2, 3) = (/ &\n     &4.9285e-06_rb,3.8459e-05_rb,5.8331e-05_rb,7.6310e-05_rb,9.3490e-05_rb,1.1292e-04_rb, &\n     &1.3218e-04_rb,1.5402e-04_rb,1.4609e-04_rb/)\n      kao(:, 3, 2, 3) = (/ &\n     &5.1241e-06_rb,3.9569e-05_rb,6.0060e-05_rb,7.8269e-05_rb,9.6361e-05_rb,1.1403e-04_rb, &\n     &1.3730e-04_rb,1.5986e-04_rb,1.4966e-04_rb/)\n      kao(:, 4, 2, 3) = (/ &\n     &5.2863e-06_rb,4.0536e-05_rb,6.2133e-05_rb,8.0760e-05_rb,9.8821e-05_rb,1.1724e-04_rb, &\n     &1.3737e-04_rb,1.6656e-04_rb,1.5208e-04_rb/)\n      kao(:, 5, 2, 3) = (/ &\n     &5.4310e-06_rb,4.1540e-05_rb,6.3967e-05_rb,8.3433e-05_rb,1.0178e-04_rb,1.2080e-04_rb, &\n     &1.4142e-04_rb,1.7063e-04_rb,1.5631e-04_rb/)\n      kao(:, 1, 3, 3) = (/ &\n     &8.9186e-06_rb,4.5407e-05_rb,6.3526e-05_rb,7.8550e-05_rb,9.1618e-05_rb,1.0496e-04_rb, &\n     &1.2158e-04_rb,1.3284e-04_rb,1.2340e-04_rb/)\n      kao(:, 2, 3, 3) = (/ &\n     &9.2443e-06_rb,4.6508e-05_rb,6.4784e-05_rb,8.0506e-05_rb,9.3613e-05_rb,1.0642e-04_rb, &\n     &1.2005e-04_rb,1.3711e-04_rb,1.2632e-04_rb/)\n      kao(:, 3, 3, 3) = (/ &\n     &9.5550e-06_rb,4.7677e-05_rb,6.6548e-05_rb,8.2736e-05_rb,9.6188e-05_rb,1.0877e-04_rb, &\n     &1.2156e-04_rb,1.4196e-04_rb,1.2696e-04_rb/)\n      kao(:, 4, 3, 3) = (/ &\n     &9.9051e-06_rb,4.8778e-05_rb,6.8112e-05_rb,8.4988e-05_rb,9.9246e-05_rb,1.1223e-04_rb, &\n     &1.2463e-04_rb,1.4159e-04_rb,1.2947e-04_rb/)\n      kao(:, 5, 3, 3) = (/ &\n     &1.0162e-05_rb,4.9942e-05_rb,6.9999e-05_rb,8.7421e-05_rb,1.0238e-04_rb,1.1576e-04_rb, &\n     &1.2839e-04_rb,1.4461e-04_rb,1.3351e-04_rb/)\n      kao(:, 1, 4, 3) = (/ &\n     &1.6753e-05_rb,5.8237e-05_rb,7.6272e-05_rb,8.8204e-05_rb,9.8762e-05_rb,1.0698e-04_rb, &\n     &1.1349e-04_rb,1.2379e-04_rb,1.0697e-04_rb/)\n      kao(:, 2, 4, 3) = (/ &\n     &1.7441e-05_rb,5.9610e-05_rb,7.7972e-05_rb,9.0358e-05_rb,1.0097e-04_rb,1.0919e-04_rb, &\n     &1.1491e-04_rb,1.2294e-04_rb,1.0628e-04_rb/)\n      kao(:, 3, 4, 3) = (/ &\n     &1.8082e-05_rb,6.1175e-05_rb,7.9988e-05_rb,9.2267e-05_rb,1.0332e-04_rb,1.1211e-04_rb, &\n     &1.1776e-04_rb,1.2346e-04_rb,1.0729e-04_rb/)\n      kao(:, 4, 4, 3) = (/ &\n     &1.8658e-05_rb,6.2685e-05_rb,8.1816e-05_rb,9.5481e-05_rb,1.0615e-04_rb,1.1496e-04_rb, &\n     &1.2097e-04_rb,1.2608e-04_rb,1.1024e-04_rb/)\n      kao(:, 5, 4, 3) = (/ &\n     &1.9340e-05_rb,6.4673e-05_rb,8.3970e-05_rb,9.8481e-05_rb,1.0873e-04_rb,1.1832e-04_rb, &\n     &1.2499e-04_rb,1.2979e-04_rb,1.1362e-04_rb/)\n      kao(:, 1, 5, 3) = (/ &\n     &2.8523e-05_rb,7.5471e-05_rb,9.2112e-05_rb,1.0383e-04_rb,1.0948e-04_rb,1.1290e-04_rb, &\n     &1.1403e-04_rb,1.1277e-04_rb,8.7972e-05_rb/)\n      kao(:, 2, 5, 3) = (/ &\n     &2.9775e-05_rb,7.7638e-05_rb,9.4306e-05_rb,1.0580e-04_rb,1.1226e-04_rb,1.1540e-04_rb, &\n     &1.1664e-04_rb,1.1378e-04_rb,8.7781e-05_rb/)\n      kao(:, 3, 5, 3) = (/ &\n     &3.1032e-05_rb,7.9995e-05_rb,9.6878e-05_rb,1.0807e-04_rb,1.1530e-04_rb,1.1833e-04_rb, &\n     &1.1968e-04_rb,1.1643e-04_rb,8.9738e-05_rb/)\n      kao(:, 4, 5, 3) = (/ &\n     &3.2122e-05_rb,8.2389e-05_rb,9.9387e-05_rb,1.1070e-04_rb,1.1849e-04_rb,1.2073e-04_rb, &\n     &1.2266e-04_rb,1.1931e-04_rb,9.1761e-05_rb/)\n      kao(:, 5, 5, 3) = (/ &\n     &3.3412e-05_rb,8.5294e-05_rb,1.0214e-04_rb,1.1395e-04_rb,1.2220e-04_rb,1.2513e-04_rb, &\n     &1.2589e-04_rb,1.2317e-04_rb,9.4332e-05_rb/)\n      kao(:, 1, 6, 3) = (/ &\n     &4.4933e-05_rb,9.9737e-05_rb,1.1255e-04_rb,1.2118e-04_rb,1.2554e-04_rb,1.2364e-04_rb, &\n     &1.1791e-04_rb,1.0852e-04_rb,7.4135e-05_rb/)\n      kao(:, 2, 6, 3) = (/ &\n     &4.7071e-05_rb,1.0236e-04_rb,1.1567e-04_rb,1.2397e-04_rb,1.2766e-04_rb,1.2658e-04_rb, &\n     &1.2060e-04_rb,1.1056e-04_rb,7.5435e-05_rb/)\n      kao(:, 3, 6, 3) = (/ &\n     &4.9151e-05_rb,1.0514e-04_rb,1.1921e-04_rb,1.2711e-04_rb,1.3040e-04_rb,1.2992e-04_rb, &\n     &1.2331e-04_rb,1.1371e-04_rb,7.6849e-05_rb/)\n      kao(:, 4, 6, 3) = (/ &\n     &5.1024e-05_rb,1.0807e-04_rb,1.2306e-04_rb,1.3034e-04_rb,1.3370e-04_rb,1.3344e-04_rb, &\n     &1.2682e-04_rb,1.1612e-04_rb,7.8630e-05_rb/)\n      kao(:, 5, 6, 3) = (/ &\n     &5.2854e-05_rb,1.1144e-04_rb,1.2670e-04_rb,1.3361e-04_rb,1.3751e-04_rb,1.3677e-04_rb, &\n     &1.3113e-04_rb,1.1903e-04_rb,8.1063e-05_rb/)\n      kao(:, 1, 7, 3) = (/ &\n     &7.4131e-05_rb,1.3771e-04_rb,1.5135e-04_rb,1.5339e-04_rb,1.5199e-04_rb,1.4542e-04_rb, &\n     &1.3212e-04_rb,1.1157e-04_rb,6.3305e-05_rb/)\n      kao(:, 2, 7, 3) = (/ &\n     &7.8122e-05_rb,1.4080e-04_rb,1.5542e-04_rb,1.5789e-04_rb,1.5525e-04_rb,1.4808e-04_rb, &\n     &1.3571e-04_rb,1.1400e-04_rb,6.4305e-05_rb/)\n      kao(:, 3, 7, 3) = (/ &\n     &8.1792e-05_rb,1.4429e-04_rb,1.5980e-04_rb,1.6259e-04_rb,1.5930e-04_rb,1.5173e-04_rb, &\n     &1.3906e-04_rb,1.1682e-04_rb,6.5778e-05_rb/)\n      kao(:, 4, 7, 3) = (/ &\n     &8.5102e-05_rb,1.4854e-04_rb,1.6447e-04_rb,1.6719e-04_rb,1.6365e-04_rb,1.5623e-04_rb, &\n     &1.4249e-04_rb,1.1910e-04_rb,6.8216e-05_rb/)\n      kao(:, 5, 7, 3) = (/ &\n     &8.8343e-05_rb,1.5302e-04_rb,1.6961e-04_rb,1.7246e-04_rb,1.6859e-04_rb,1.6045e-04_rb, &\n     &1.4567e-04_rb,1.2333e-04_rb,7.0812e-05_rb/)\n      kao(:, 1, 8, 3) = (/ &\n     &1.4407e-04_rb,2.1929e-04_rb,2.3408e-04_rb,2.3175e-04_rb,2.1747e-04_rb,1.9684e-04_rb, &\n     &1.7181e-04_rb,1.3227e-04_rb,5.5189e-05_rb/)\n      kao(:, 2, 8, 3) = (/ &\n     &1.5218e-04_rb,2.2535e-04_rb,2.3947e-04_rb,2.3742e-04_rb,2.2354e-04_rb,2.0175e-04_rb, &\n     &1.7481e-04_rb,1.3567e-04_rb,5.7508e-05_rb/)\n      kao(:, 3, 8, 3) = (/ &\n     &1.5981e-04_rb,2.3168e-04_rb,2.4529e-04_rb,2.4373e-04_rb,2.2990e-04_rb,2.0756e-04_rb, &\n     &1.7860e-04_rb,1.3869e-04_rb,5.9914e-05_rb/)\n      kao(:, 4, 8, 3) = (/ &\n     &1.6710e-04_rb,2.3880e-04_rb,2.5211e-04_rb,2.5020e-04_rb,2.3684e-04_rb,2.1373e-04_rb, &\n     &1.8326e-04_rb,1.4183e-04_rb,6.3164e-05_rb/)\n      kao(:, 5, 8, 3) = (/ &\n     &1.7380e-04_rb,2.4599e-04_rb,2.5929e-04_rb,2.5766e-04_rb,2.4400e-04_rb,2.1994e-04_rb, &\n     &1.8763e-04_rb,1.4519e-04_rb,6.6105e-05_rb/)\n      kao(:, 1, 9, 3) = (/ &\n     &5.2627e-04_rb,6.1534e-04_rb,6.0941e-04_rb,5.7646e-04_rb,5.2415e-04_rb,4.5407e-04_rb, &\n     &3.6135e-04_rb,2.4279e-04_rb,6.7993e-05_rb/)\n      kao(:, 2, 9, 3) = (/ &\n     &5.5864e-04_rb,6.4193e-04_rb,6.3124e-04_rb,5.9396e-04_rb,5.3793e-04_rb,4.6535e-04_rb, &\n     &3.7115e-04_rb,2.4862e-04_rb,7.5217e-05_rb/)\n      kao(:, 3, 9, 3) = (/ &\n     &5.8842e-04_rb,6.6676e-04_rb,6.5277e-04_rb,6.1271e-04_rb,5.5239e-04_rb,4.7636e-04_rb, &\n     &3.8150e-04_rb,2.5543e-04_rb,8.1799e-05_rb/)\n      kao(:, 4, 9, 3) = (/ &\n     &6.1785e-04_rb,6.9166e-04_rb,6.7437e-04_rb,6.3091e-04_rb,5.6815e-04_rb,4.8941e-04_rb, &\n     &3.9213e-04_rb,2.6284e-04_rb,8.7598e-05_rb/)\n      kao(:, 5, 9, 3) = (/ &\n     &6.4520e-04_rb,7.1602e-04_rb,6.9663e-04_rb,6.4913e-04_rb,5.8418e-04_rb,5.0317e-04_rb, &\n     &4.0334e-04_rb,2.7060e-04_rb,9.2801e-05_rb/)\n      kao(:, 1,10, 3) = (/ &\n     &2.1645e-03_rb,2.1618e-03_rb,2.0014e-03_rb,1.7923e-03_rb,1.5495e-03_rb,1.2769e-03_rb, &\n     &9.6609e-04_rb,6.0453e-04_rb,1.0410e-04_rb/)\n      kao(:, 2,10, 3) = (/ &\n     &2.3095e-03_rb,2.2836e-03_rb,2.1017e-03_rb,1.8749e-03_rb,1.6151e-03_rb,1.3240e-03_rb, &\n     &9.9711e-04_rb,6.2160e-04_rb,1.1408e-04_rb/)\n      kao(:, 3,10, 3) = (/ &\n     &2.4464e-03_rb,2.3906e-03_rb,2.1944e-03_rb,1.9559e-03_rb,1.6773e-03_rb,1.3715e-03_rb, &\n     &1.0290e-03_rb,6.3832e-04_rb,1.2224e-04_rb/)\n      kao(:, 4,10, 3) = (/ &\n     &2.5757e-03_rb,2.5009e-03_rb,2.2880e-03_rb,2.0317e-03_rb,1.7417e-03_rb,1.4189e-03_rb, &\n     &1.0630e-03_rb,6.5627e-04_rb,1.3004e-04_rb/)\n      kao(:, 5,10, 3) = (/ &\n     &2.6938e-03_rb,2.6117e-03_rb,2.3825e-03_rb,2.1099e-03_rb,1.8067e-03_rb,1.4685e-03_rb, &\n     &1.0955e-03_rb,6.7426e-04_rb,1.3892e-04_rb/)\n      kao(:, 1,11, 3) = (/ &\n     &3.2925e-03_rb,3.1585e-03_rb,2.8624e-03_rb,2.5152e-03_rb,2.1339e-03_rb,1.7245e-03_rb, &\n     &1.2749e-03_rb,7.7353e-04_rb,1.1570e-04_rb/)\n      kao(:, 2,11, 3) = (/ &\n     &3.4939e-03_rb,3.3275e-03_rb,2.9995e-03_rb,2.6330e-03_rb,2.2285e-03_rb,1.7928e-03_rb, &\n     &1.3221e-03_rb,7.9717e-04_rb,1.2609e-04_rb/)\n      kao(:, 3,11, 3) = (/ &\n     &3.6814e-03_rb,3.4852e-03_rb,3.1333e-03_rb,2.7438e-03_rb,2.3219e-03_rb,1.8667e-03_rb, &\n     &1.3711e-03_rb,8.2069e-04_rb,1.3849e-04_rb/)\n      kao(:, 4,11, 3) = (/ &\n     &3.8717e-03_rb,3.6472e-03_rb,3.2720e-03_rb,2.8608e-03_rb,2.4167e-03_rb,1.9357e-03_rb, &\n     &1.4194e-03_rb,8.4717e-04_rb,1.4796e-04_rb/)\n      kao(:, 5,11, 3) = (/ &\n     &4.0507e-03_rb,3.8076e-03_rb,3.4109e-03_rb,2.9754e-03_rb,2.5103e-03_rb,2.0111e-03_rb, &\n     &1.4691e-03_rb,8.7324e-04_rb,1.5498e-04_rb/)\n      kao(:, 1,12, 3) = (/ &\n     &3.6937e-03_rb,3.5033e-03_rb,3.1460e-03_rb,2.7421e-03_rb,2.3088e-03_rb,1.8436e-03_rb, &\n     &1.3493e-03_rb,8.0094e-04_rb,1.1298e-04_rb/)\n      kao(:, 2,12, 3) = (/ &\n     &3.9154e-03_rb,3.6887e-03_rb,3.2999e-03_rb,2.8717e-03_rb,2.4149e-03_rb,1.9245e-03_rb, &\n     &1.4017e-03_rb,8.2771e-04_rb,1.2419e-04_rb/)\n      kao(:, 3,12, 3) = (/ &\n     &4.1285e-03_rb,3.8698e-03_rb,3.4585e-03_rb,3.0012e-03_rb,2.5199e-03_rb,2.0022e-03_rb, &\n     &1.4553e-03_rb,8.5423e-04_rb,1.3225e-04_rb/)\n      kao(:, 4,12, 3) = (/ &\n     &4.3384e-03_rb,4.0509e-03_rb,3.6103e-03_rb,3.1297e-03_rb,2.6243e-03_rb,2.0861e-03_rb, &\n     &1.5110e-03_rb,8.8306e-04_rb,1.4212e-04_rb/)\n      kao(:, 5,12, 3) = (/ &\n     &4.5406e-03_rb,4.2341e-03_rb,3.7730e-03_rb,3.2693e-03_rb,2.7384e-03_rb,2.1705e-03_rb, &\n     &1.5683e-03_rb,9.1255e-04_rb,1.5213e-04_rb/)\n      kao(:, 1,13, 3) = (/ &\n     &3.2602e-03_rb,3.0914e-03_rb,2.7797e-03_rb,2.4220e-03_rb,2.0389e-03_rb,1.6288e-03_rb, &\n     &1.1889e-03_rb,7.0223e-04_rb,9.9450e-05_rb/)\n      kao(:, 2,13, 3) = (/ &\n     &3.4542e-03_rb,3.2567e-03_rb,2.9218e-03_rb,2.5424e-03_rb,2.1356e-03_rb,1.7009e-03_rb, &\n     &1.2356e-03_rb,7.2786e-04_rb,1.0781e-04_rb/)\n      kao(:, 3,13, 3) = (/ &\n     &3.6454e-03_rb,3.4269e-03_rb,3.0649e-03_rb,2.6592e-03_rb,2.2314e-03_rb,1.7744e-03_rb, &\n     &1.2855e-03_rb,7.5225e-04_rb,1.1667e-04_rb/)\n      kao(:, 4,13, 3) = (/ &\n     &3.8341e-03_rb,3.5875e-03_rb,3.2022e-03_rb,2.7784e-03_rb,2.3283e-03_rb,1.8470e-03_rb, &\n     &1.3345e-03_rb,7.7860e-04_rb,1.2556e-04_rb/)\n      kao(:, 5,13, 3) = (/ &\n     &4.0097e-03_rb,3.7448e-03_rb,3.3397e-03_rb,2.8965e-03_rb,2.4238e-03_rb,1.9205e-03_rb, &\n     &1.3873e-03_rb,8.0728e-04_rb,1.3156e-04_rb/)\n      kao(:, 1, 1, 4) = (/ &\n     &7.6190e-06_rb,7.2707e-05_rb,1.2159e-04_rb,1.6797e-04_rb,2.1749e-04_rb,2.7232e-04_rb, &\n     &3.3756e-04_rb,4.5000e-04_rb,3.7863e-04_rb/)\n      kao(:, 2, 1, 4) = (/ &\n     &7.7938e-06_rb,7.4481e-05_rb,1.2500e-04_rb,1.7416e-04_rb,2.2412e-04_rb,2.7984e-04_rb, &\n     &3.4630e-04_rb,4.4903e-04_rb,3.8823e-04_rb/)\n      kao(:, 3, 1, 4) = (/ &\n     &8.0028e-06_rb,7.6115e-05_rb,1.2829e-04_rb,1.8057e-04_rb,2.3237e-04_rb,2.8607e-04_rb, &\n     &3.5506e-04_rb,4.5741e-04_rb,3.9983e-04_rb/)\n      kao(:, 4, 1, 4) = (/ &\n     &8.1270e-06_rb,7.7997e-05_rb,1.3160e-04_rb,1.8544e-04_rb,2.4027e-04_rb,2.9656e-04_rb, &\n     &3.6016e-04_rb,4.6576e-04_rb,4.1176e-04_rb/)\n      kao(:, 5, 1, 4) = (/ &\n     &8.2916e-06_rb,8.0436e-05_rb,1.3585e-04_rb,1.9127e-04_rb,2.4691e-04_rb,3.0708e-04_rb, &\n     &3.7489e-04_rb,4.7422e-04_rb,4.3091e-04_rb/)\n      kao(:, 1, 2, 4) = (/ &\n     &1.0434e-05_rb,7.3238e-05_rb,1.1625e-04_rb,1.5526e-04_rb,1.9383e-04_rb,2.3419e-04_rb, &\n     &2.8405e-04_rb,3.6155e-04_rb,3.1532e-04_rb/)\n      kao(:, 2, 2, 4) = (/ &\n     &1.0681e-05_rb,7.5036e-05_rb,1.1854e-04_rb,1.5997e-04_rb,2.0074e-04_rb,2.4144e-04_rb, &\n     &2.9129e-04_rb,3.7038e-04_rb,3.2501e-04_rb/)\n      kao(:, 3, 2, 4) = (/ &\n     &1.0988e-05_rb,7.7182e-05_rb,1.2126e-04_rb,1.6374e-04_rb,2.0655e-04_rb,2.5052e-04_rb, &\n     &2.9566e-04_rb,3.7520e-04_rb,3.3554e-04_rb/)\n      kao(:, 4, 2, 4) = (/ &\n     &1.1243e-05_rb,7.9396e-05_rb,1.2452e-04_rb,1.6827e-04_rb,2.1213e-04_rb,2.5807e-04_rb, &\n     &3.0951e-04_rb,3.7973e-04_rb,3.4985e-04_rb/)\n      kao(:, 5, 2, 4) = (/ &\n     &1.1433e-05_rb,8.1733e-05_rb,1.2847e-04_rb,1.7400e-04_rb,2.1976e-04_rb,2.6675e-04_rb, &\n     &3.1873e-04_rb,3.9060e-04_rb,3.6531e-04_rb/)\n      kao(:, 1, 3, 4) = (/ &\n     &1.9121e-05_rb,8.5930e-05_rb,1.2401e-04_rb,1.5771e-04_rb,1.8803e-04_rb,2.1587e-04_rb, &\n     &2.4191e-04_rb,2.8659e-04_rb,2.6000e-04_rb/)\n      kao(:, 2, 3, 4) = (/ &\n     &1.9555e-05_rb,8.7968e-05_rb,1.2724e-04_rb,1.6033e-04_rb,1.9279e-04_rb,2.2305e-04_rb, &\n     &2.5217e-04_rb,2.9281e-04_rb,2.6982e-04_rb/)\n      kao(:, 3, 3, 4) = (/ &\n     &2.0014e-05_rb,9.0319e-05_rb,1.3030e-04_rb,1.6432e-04_rb,1.9658e-04_rb,2.2814e-04_rb, &\n     &2.6130e-04_rb,2.9767e-04_rb,2.8111e-04_rb/)\n      kao(:, 4, 3, 4) = (/ &\n     &2.0629e-05_rb,9.3145e-05_rb,1.3414e-04_rb,1.6939e-04_rb,2.0212e-04_rb,2.3402e-04_rb, &\n     &2.6796e-04_rb,3.0992e-04_rb,2.9328e-04_rb/)\n      kao(:, 5, 3, 4) = (/ &\n     &2.0980e-05_rb,9.5719e-05_rb,1.3796e-04_rb,1.7464e-04_rb,2.0857e-04_rb,2.4205e-04_rb, &\n     &2.7670e-04_rb,3.1994e-04_rb,3.0523e-04_rb/)\n      kao(:, 1, 4, 4) = (/ &\n     &3.5480e-05_rb,1.1130e-04_rb,1.4459e-04_rb,1.7323e-04_rb,1.9468e-04_rb,2.1444e-04_rb, &\n     &2.2966e-04_rb,2.4128e-04_rb,2.1617e-04_rb/)\n      kao(:, 2, 4, 4) = (/ &\n     &3.6323e-05_rb,1.1358e-04_rb,1.4824e-04_rb,1.7664e-04_rb,1.9952e-04_rb,2.1840e-04_rb, &\n     &2.3716e-04_rb,2.5075e-04_rb,2.2864e-04_rb/)\n      kao(:, 3, 4, 4) = (/ &\n     &3.7216e-05_rb,1.1624e-04_rb,1.5219e-04_rb,1.8108e-04_rb,2.0484e-04_rb,2.2378e-04_rb, &\n     &2.4107e-04_rb,2.5972e-04_rb,2.3687e-04_rb/)\n      kao(:, 4, 4, 4) = (/ &\n     &3.8132e-05_rb,1.1926e-04_rb,1.5631e-04_rb,1.8514e-04_rb,2.0992e-04_rb,2.3030e-04_rb, &\n     &2.4787e-04_rb,2.6623e-04_rb,2.4575e-04_rb/)\n      kao(:, 5, 4, 4) = (/ &\n     &3.9332e-05_rb,1.2292e-04_rb,1.6148e-04_rb,1.9104e-04_rb,2.1696e-04_rb,2.3764e-04_rb, &\n     &2.5623e-04_rb,2.7468e-04_rb,2.5520e-04_rb/)\n      kao(:, 1, 5, 4) = (/ &\n     &6.0558e-05_rb,1.4537e-04_rb,1.7679e-04_rb,1.9677e-04_rb,2.1242e-04_rb,2.2290e-04_rb, &\n     &2.2712e-04_rb,2.2468e-04_rb,1.8402e-04_rb/)\n      kao(:, 2, 5, 4) = (/ &\n     &6.2024e-05_rb,1.4763e-04_rb,1.8049e-04_rb,2.0169e-04_rb,2.1740e-04_rb,2.2816e-04_rb, &\n     &2.3141e-04_rb,2.3210e-04_rb,1.9363e-04_rb/)\n      kao(:, 3, 5, 4) = (/ &\n     &6.3560e-05_rb,1.5048e-04_rb,1.8446e-04_rb,2.0674e-04_rb,2.2245e-04_rb,2.3297e-04_rb, &\n     &2.3732e-04_rb,2.3625e-04_rb,1.9953e-04_rb/)\n      kao(:, 4, 5, 4) = (/ &\n     &6.5197e-05_rb,1.5389e-04_rb,1.8956e-04_rb,2.1242e-04_rb,2.2805e-04_rb,2.3893e-04_rb, &\n     &2.4394e-04_rb,2.4242e-04_rb,2.0731e-04_rb/)\n      kao(:, 5, 5, 4) = (/ &\n     &6.7408e-05_rb,1.5860e-04_rb,1.9588e-04_rb,2.1916e-04_rb,2.3481e-04_rb,2.4604e-04_rb, &\n     &2.5157e-04_rb,2.5058e-04_rb,2.1479e-04_rb/)\n      kao(:, 1, 6, 4) = (/ &\n     &9.6086e-05_rb,1.8511e-04_rb,2.1787e-04_rb,2.3286e-04_rb,2.3898e-04_rb,2.3907e-04_rb, &\n     &2.3360e-04_rb,2.1667e-04_rb,1.5583e-04_rb/)\n      kao(:, 2, 6, 4) = (/ &\n     &9.8537e-05_rb,1.8825e-04_rb,2.2157e-04_rb,2.3776e-04_rb,2.4456e-04_rb,2.4422e-04_rb, &\n     &2.3850e-04_rb,2.2088e-04_rb,1.6156e-04_rb/)\n      kao(:, 3, 6, 4) = (/ &\n     &1.0106e-04_rb,1.9192e-04_rb,2.2599e-04_rb,2.4309e-04_rb,2.5072e-04_rb,2.5018e-04_rb, &\n     &2.4346e-04_rb,2.2608e-04_rb,1.6736e-04_rb/)\n      kao(:, 4, 6, 4) = (/ &\n     &1.0368e-04_rb,1.9610e-04_rb,2.3144e-04_rb,2.4948e-04_rb,2.5710e-04_rb,2.5653e-04_rb, &\n     &2.4933e-04_rb,2.3314e-04_rb,1.7404e-04_rb/)\n      kao(:, 5, 6, 4) = (/ &\n     &1.0646e-04_rb,2.0089e-04_rb,2.3770e-04_rb,2.5701e-04_rb,2.6421e-04_rb,2.6433e-04_rb, &\n     &2.5582e-04_rb,2.4028e-04_rb,1.7876e-04_rb/)\n      kao(:, 1, 7, 4) = (/ &\n     &1.6042e-04_rb,2.5585e-04_rb,2.8519e-04_rb,2.9642e-04_rb,2.9350e-04_rb,2.7913e-04_rb, &\n     &2.5601e-04_rb,2.2211e-04_rb,1.3626e-04_rb/)\n      kao(:, 2, 7, 4) = (/ &\n     &1.6465e-04_rb,2.6056e-04_rb,2.8988e-04_rb,3.0133e-04_rb,2.9907e-04_rb,2.8588e-04_rb, &\n     &2.6187e-04_rb,2.2729e-04_rb,1.4135e-04_rb/)\n      kao(:, 3, 7, 4) = (/ &\n     &1.6901e-04_rb,2.6578e-04_rb,2.9572e-04_rb,3.0741e-04_rb,3.0551e-04_rb,2.9184e-04_rb, &\n     &2.6817e-04_rb,2.3205e-04_rb,1.4656e-04_rb/)\n      kao(:, 4, 7, 4) = (/ &\n     &1.7367e-04_rb,2.7110e-04_rb,3.0239e-04_rb,3.1497e-04_rb,3.1315e-04_rb,2.9895e-04_rb, &\n     &2.7506e-04_rb,2.3781e-04_rb,1.5059e-04_rb/)\n      kao(:, 5, 7, 4) = (/ &\n     &1.7865e-04_rb,2.7756e-04_rb,3.1008e-04_rb,3.2315e-04_rb,3.2186e-04_rb,3.0753e-04_rb, &\n     &2.8375e-04_rb,2.4404e-04_rb,1.5550e-04_rb/)\n      kao(:, 1, 8, 4) = (/ &\n     &3.1654e-04_rb,4.1629e-04_rb,4.3839e-04_rb,4.3773e-04_rb,4.1826e-04_rb,3.8213e-04_rb, &\n     &3.2793e-04_rb,2.5576e-04_rb,1.2647e-04_rb/)\n      kao(:, 2, 8, 4) = (/ &\n     &3.2537e-04_rb,4.2537e-04_rb,4.4661e-04_rb,4.4494e-04_rb,4.2500e-04_rb,3.8879e-04_rb, &\n     &3.3490e-04_rb,2.6206e-04_rb,1.2938e-04_rb/)\n      kao(:, 3, 8, 4) = (/ &\n     &3.3408e-04_rb,4.3504e-04_rb,4.5626e-04_rb,4.5382e-04_rb,4.3360e-04_rb,3.9751e-04_rb, &\n     &3.4272e-04_rb,2.6854e-04_rb,1.3239e-04_rb/)\n      kao(:, 4, 8, 4) = (/ &\n     &3.4318e-04_rb,4.4480e-04_rb,4.6645e-04_rb,4.6411e-04_rb,4.4358e-04_rb,4.0695e-04_rb, &\n     &3.5185e-04_rb,2.7598e-04_rb,1.3521e-04_rb/)\n      kao(:, 5, 8, 4) = (/ &\n     &3.5364e-04_rb,4.5591e-04_rb,4.7748e-04_rb,4.7551e-04_rb,4.5523e-04_rb,4.1803e-04_rb, &\n     &3.6238e-04_rb,2.8454e-04_rb,1.3901e-04_rb/)\n      kao(:, 1, 9, 4) = (/ &\n     &1.1778e-03_rb,1.2542e-03_rb,1.1993e-03_rb,1.1088e-03_rb,9.9621e-04_rb,8.5814e-04_rb, &\n     &6.9027e-04_rb,4.7338e-04_rb,1.4222e-04_rb/)\n      kao(:, 2, 9, 4) = (/ &\n     &1.2148e-03_rb,1.2865e-03_rb,1.2285e-03_rb,1.1318e-03_rb,1.0140e-03_rb,8.7230e-04_rb, &\n     &7.0194e-04_rb,4.8264e-04_rb,1.4691e-04_rb/)\n      kao(:, 3, 9, 4) = (/ &\n     &1.2493e-03_rb,1.3197e-03_rb,1.2603e-03_rb,1.1590e-03_rb,1.0363e-03_rb,8.9016e-04_rb, &\n     &7.1481e-04_rb,4.9330e-04_rb,1.5194e-04_rb/)\n      kao(:, 4, 9, 4) = (/ &\n     &1.2842e-03_rb,1.3516e-03_rb,1.2898e-03_rb,1.1881e-03_rb,1.0607e-03_rb,9.1030e-04_rb, &\n     &7.3056e-04_rb,5.0488e-04_rb,1.5874e-04_rb/)\n      kao(:, 5, 9, 4) = (/ &\n     &1.3233e-03_rb,1.3878e-03_rb,1.3225e-03_rb,1.2203e-03_rb,1.0882e-03_rb,9.3354e-04_rb, &\n     &7.4949e-04_rb,5.1819e-04_rb,1.6715e-04_rb/)\n      kao(:, 1,10, 4) = (/ &\n     &4.9223e-03_rb,4.6924e-03_rb,4.2372e-03_rb,3.7210e-03_rb,3.1598e-03_rb,2.5466e-03_rb, &\n     &1.8894e-03_rb,1.1610e-03_rb,2.5902e-04_rb/)\n      kao(:, 2,10, 4) = (/ &\n     &5.1019e-03_rb,4.8420e-03_rb,4.3700e-03_rb,3.8242e-03_rb,3.2382e-03_rb,2.6075e-03_rb, &\n     &1.9274e-03_rb,1.1773e-03_rb,2.7993e-04_rb/)\n      kao(:, 3,10, 4) = (/ &\n     &5.2624e-03_rb,4.9912e-03_rb,4.4976e-03_rb,3.9326e-03_rb,3.3295e-03_rb,2.6789e-03_rb, &\n     &1.9739e-03_rb,1.2013e-03_rb,2.9275e-04_rb/)\n      kao(:, 4,10, 4) = (/ &\n     &5.4202e-03_rb,5.1325e-03_rb,4.6211e-03_rb,4.0415e-03_rb,3.4179e-03_rb,2.7474e-03_rb, &\n     &2.0231e-03_rb,1.2303e-03_rb,3.0514e-04_rb/)\n      kao(:, 5,10, 4) = (/ &\n     &5.5922e-03_rb,5.2716e-03_rb,4.7430e-03_rb,4.1489e-03_rb,3.5047e-03_rb,2.8180e-03_rb, &\n     &2.0794e-03_rb,1.2643e-03_rb,3.1858e-04_rb/)\n      kao(:, 1,11, 4) = (/ &\n     &7.2623e-03_rb,6.7979e-03_rb,6.0744e-03_rb,5.2843e-03_rb,4.4298e-03_rb,3.5303e-03_rb, &\n     &2.5670e-03_rb,1.5127e-03_rb,3.1480e-04_rb/)\n      kao(:, 2,11, 4) = (/ &\n     &7.5607e-03_rb,7.0506e-03_rb,6.2894e-03_rb,5.4629e-03_rb,4.5682e-03_rb,3.6306e-03_rb, &\n     &2.6328e-03_rb,1.5436e-03_rb,3.2537e-04_rb/)\n      kao(:, 3,11, 4) = (/ &\n     &7.8471e-03_rb,7.2956e-03_rb,6.4988e-03_rb,5.6385e-03_rb,4.7125e-03_rb,3.7379e-03_rb, &\n     &2.7029e-03_rb,1.5776e-03_rb,3.3231e-04_rb/)\n      kao(:, 4,11, 4) = (/ &\n     &8.1128e-03_rb,7.5290e-03_rb,6.7020e-03_rb,5.8093e-03_rb,4.8535e-03_rb,3.8422e-03_rb, &\n     &2.7753e-03_rb,1.6189e-03_rb,3.4203e-04_rb/)\n      kao(:, 5,11, 4) = (/ &\n     &8.3759e-03_rb,7.7545e-03_rb,6.8899e-03_rb,5.9710e-03_rb,4.9875e-03_rb,3.9509e-03_rb, &\n     &2.8575e-03_rb,1.6684e-03_rb,3.5725e-04_rb/)\n      kao(:, 1,12, 4) = (/ &\n     &8.0096e-03_rb,7.4190e-03_rb,6.5933e-03_rb,5.7152e-03_rb,4.7757e-03_rb,3.7806e-03_rb, &\n     &2.7237e-03_rb,1.5850e-03_rb,3.0906e-04_rb/)\n      kao(:, 2,12, 4) = (/ &\n     &8.3245e-03_rb,7.6924e-03_rb,6.8377e-03_rb,5.9147e-03_rb,4.9319e-03_rb,3.8997e-03_rb, &\n     &2.8053e-03_rb,1.6213e-03_rb,3.1505e-04_rb/)\n      kao(:, 3,12, 4) = (/ &\n     &8.6504e-03_rb,7.9748e-03_rb,7.0681e-03_rb,6.1123e-03_rb,5.0902e-03_rb,4.0202e-03_rb, &\n     &2.8850e-03_rb,1.6649e-03_rb,3.2236e-04_rb/)\n      kao(:, 4,12, 4) = (/ &\n     &8.9354e-03_rb,8.2303e-03_rb,7.2913e-03_rb,6.2946e-03_rb,5.2436e-03_rb,4.1358e-03_rb, &\n     &2.9697e-03_rb,1.7144e-03_rb,3.2906e-04_rb/)\n      kao(:, 5,12, 4) = (/ &\n     &9.2169e-03_rb,8.4842e-03_rb,7.5093e-03_rb,6.4790e-03_rb,5.3967e-03_rb,4.2618e-03_rb, &\n     &3.0601e-03_rb,1.7687e-03_rb,3.3757e-04_rb/)\n      kao(:, 1,13, 4) = (/ &\n     &7.1631e-03_rb,6.6319e-03_rb,5.8920e-03_rb,5.0960e-03_rb,4.2500e-03_rb,3.3594e-03_rb, &\n     &2.4169e-03_rb,1.3985e-03_rb,2.7237e-04_rb/)\n      kao(:, 2,13, 4) = (/ &\n     &7.4650e-03_rb,6.8721e-03_rb,6.1020e-03_rb,5.2700e-03_rb,4.3954e-03_rb,3.4698e-03_rb, &\n     &2.4897e-03_rb,1.4341e-03_rb,2.7736e-04_rb/)\n      kao(:, 3,13, 4) = (/ &\n     &7.7609e-03_rb,7.1282e-03_rb,6.3106e-03_rb,5.4462e-03_rb,4.5330e-03_rb,3.5736e-03_rb, &\n     &2.5636e-03_rb,1.4770e-03_rb,2.8124e-04_rb/)\n      kao(:, 4,13, 4) = (/ &\n     &8.0101e-03_rb,7.3618e-03_rb,6.5123e-03_rb,5.6158e-03_rb,4.6733e-03_rb,3.6861e-03_rb, &\n     &2.6445e-03_rb,1.5233e-03_rb,2.8716e-04_rb/)\n      kao(:, 5,13, 4) = (/ &\n     &8.2606e-03_rb,7.6008e-03_rb,6.7314e-03_rb,5.7990e-03_rb,4.8288e-03_rb,3.8083e-03_rb, &\n     &2.7261e-03_rb,1.5712e-03_rb,2.9686e-04_rb/)\n      kao(:, 1, 1, 5) = (/ &\n     &1.3739e-05_rb,1.5137e-04_rb,2.5878e-04_rb,3.6225e-04_rb,4.6522e-04_rb,5.7109e-04_rb, &\n     &6.9199e-04_rb,8.4168e-04_rb,8.0480e-04_rb/)\n      kao(:, 2, 1, 5) = (/ &\n     &1.3888e-05_rb,1.5627e-04_rb,2.6885e-04_rb,3.7698e-04_rb,4.8125e-04_rb,5.9114e-04_rb, &\n     &7.1164e-04_rb,8.7936e-04_rb,8.3421e-04_rb/)\n      kao(:, 3, 1, 5) = (/ &\n     &1.4142e-05_rb,1.6264e-04_rb,2.8096e-04_rb,3.9281e-04_rb,5.0319e-04_rb,6.1580e-04_rb, &\n     &7.3800e-04_rb,9.1340e-04_rb,8.6788e-04_rb/)\n      kao(:, 4, 1, 5) = (/ &\n     &1.4278e-05_rb,1.6909e-04_rb,2.9347e-04_rb,4.1125e-04_rb,5.2641e-04_rb,6.4515e-04_rb, &\n     &7.7492e-04_rb,9.4989e-04_rb,9.0996e-04_rb/)\n      kao(:, 5, 1, 5) = (/ &\n     &1.4494e-05_rb,1.7605e-04_rb,3.0657e-04_rb,4.3067e-04_rb,5.5274e-04_rb,6.7670e-04_rb, &\n     &8.1211e-04_rb,9.9682e-04_rb,9.5292e-04_rb/)\n      kao(:, 1, 2, 5) = (/ &\n     &1.8692e-05_rb,1.5213e-04_rb,2.4704e-04_rb,3.3748e-04_rb,4.2434e-04_rb,5.1189e-04_rb, &\n     &6.0610e-04_rb,7.3668e-04_rb,6.9411e-04_rb/)\n      kao(:, 2, 2, 5) = (/ &\n     &1.8918e-05_rb,1.5679e-04_rb,2.5663e-04_rb,3.5044e-04_rb,4.4175e-04_rb,5.3243e-04_rb, &\n     &6.2710e-04_rb,7.5567e-04_rb,7.2022e-04_rb/)\n      kao(:, 3, 2, 5) = (/ &\n     &1.9322e-05_rb,1.6205e-04_rb,2.6764e-04_rb,3.6642e-04_rb,4.6108e-04_rb,5.5570e-04_rb, &\n     &6.5662e-04_rb,7.8535e-04_rb,7.5176e-04_rb/)\n      kao(:, 4, 2, 5) = (/ &\n     &1.9585e-05_rb,1.6765e-04_rb,2.7850e-04_rb,3.8286e-04_rb,4.8359e-04_rb,5.8272e-04_rb, &\n     &6.8652e-04_rb,8.2260e-04_rb,7.8717e-04_rb/)\n      kao(:, 5, 2, 5) = (/ &\n     &1.9818e-05_rb,1.7339e-04_rb,2.8992e-04_rb,3.9889e-04_rb,5.0485e-04_rb,6.1010e-04_rb, &\n     &7.2141e-04_rb,8.6363e-04_rb,8.2436e-04_rb/)\n      kao(:, 1, 3, 5) = (/ &\n     &3.4262e-05_rb,1.7533e-04_rb,2.6113e-04_rb,3.3571e-04_rb,4.0540e-04_rb,4.7229e-04_rb, &\n     &5.3818e-04_rb,6.1661e-04_rb,5.8845e-04_rb/)\n      kao(:, 2, 3, 5) = (/ &\n     &3.4716e-05_rb,1.7923e-04_rb,2.6899e-04_rb,3.4836e-04_rb,4.2096e-04_rb,4.9023e-04_rb, &\n     &5.6025e-04_rb,6.3703e-04_rb,6.0869e-04_rb/)\n      kao(:, 3, 3, 5) = (/ &\n     &3.5292e-05_rb,1.8347e-04_rb,2.7811e-04_rb,3.6147e-04_rb,4.3915e-04_rb,5.1242e-04_rb, &\n     &5.8378e-04_rb,6.6557e-04_rb,6.3564e-04_rb/)\n      kao(:, 4, 3, 5) = (/ &\n     &3.6120e-05_rb,1.8884e-04_rb,2.8797e-04_rb,3.7545e-04_rb,4.5740e-04_rb,5.3560e-04_rb, &\n     &6.1221e-04_rb,6.9822e-04_rb,6.6452e-04_rb/)\n      kao(:, 5, 3, 5) = (/ &\n     &3.6636e-05_rb,1.9428e-04_rb,2.9738e-04_rb,3.9013e-04_rb,4.7606e-04_rb,5.5790e-04_rb, &\n     &6.3990e-04_rb,7.3219e-04_rb,6.9591e-04_rb/)\n      kao(:, 1, 4, 5) = (/ &\n     &6.3937e-05_rb,2.1416e-04_rb,2.9895e-04_rb,3.6305e-04_rb,4.1697e-04_rb,4.6136e-04_rb, &\n     &4.9950e-04_rb,5.3752e-04_rb,4.9755e-04_rb/)\n      kao(:, 2, 4, 5) = (/ &\n     &6.4891e-05_rb,2.1788e-04_rb,3.0564e-04_rb,3.7373e-04_rb,4.2957e-04_rb,4.7819e-04_rb, &\n     &5.1730e-04_rb,5.5769e-04_rb,5.1340e-04_rb/)\n      kao(:, 3, 4, 5) = (/ &\n     &6.5931e-05_rb,2.2256e-04_rb,3.1273e-04_rb,3.8551e-04_rb,4.4411e-04_rb,4.9569e-04_rb, &\n     &5.4027e-04_rb,5.8134e-04_rb,5.3558e-04_rb/)\n      kao(:, 4, 4, 5) = (/ &\n     &6.7204e-05_rb,2.2716e-04_rb,3.2137e-04_rb,3.9776e-04_rb,4.6059e-04_rb,5.1431e-04_rb, &\n     &5.6246e-04_rb,6.0834e-04_rb,5.5897e-04_rb/)\n      kao(:, 5, 4, 5) = (/ &\n     &6.9088e-05_rb,2.3323e-04_rb,3.3076e-04_rb,4.1010e-04_rb,4.7742e-04_rb,5.3504e-04_rb, &\n     &5.8525e-04_rb,6.3600e-04_rb,5.8418e-04_rb/)\n      kao(:, 1, 5, 5) = (/ &\n     &1.0861e-04_rb,2.6518e-04_rb,3.4675e-04_rb,4.0531e-04_rb,4.4642e-04_rb,4.7448e-04_rb, &\n     &4.8963e-04_rb,4.9041e-04_rb,4.2330e-04_rb/)\n      kao(:, 2, 5, 5) = (/ &\n     &1.1058e-04_rb,2.6952e-04_rb,3.5268e-04_rb,4.1375e-04_rb,4.5888e-04_rb,4.8791e-04_rb, &\n     &5.0614e-04_rb,5.0767e-04_rb,4.3569e-04_rb/)\n      kao(:, 3, 5, 5) = (/ &\n     &1.1255e-04_rb,2.7465e-04_rb,3.6022e-04_rb,4.2322e-04_rb,4.7137e-04_rb,5.0379e-04_rb, &\n     &5.2287e-04_rb,5.2860e-04_rb,4.5259e-04_rb/)\n      kao(:, 4, 5, 5) = (/ &\n     &1.1490e-04_rb,2.8064e-04_rb,3.6839e-04_rb,4.3377e-04_rb,4.8454e-04_rb,5.2116e-04_rb, &\n     &5.4180e-04_rb,5.5017e-04_rb,4.7054e-04_rb/)\n      kao(:, 5, 5, 5) = (/ &\n     &1.1845e-04_rb,2.8778e-04_rb,3.7745e-04_rb,4.4611e-04_rb,4.9985e-04_rb,5.3937e-04_rb, &\n     &5.6277e-04_rb,5.7154e-04_rb,4.9105e-04_rb/)\n      kao(:, 1, 6, 5) = (/ &\n     &1.7235e-04_rb,3.3181e-04_rb,4.0736e-04_rb,4.5766e-04_rb,4.8926e-04_rb,5.0113e-04_rb, &\n     &4.9597e-04_rb,4.6976e-04_rb,3.5862e-04_rb/)\n      kao(:, 2, 6, 5) = (/ &\n     &1.7547e-04_rb,3.3667e-04_rb,4.1414e-04_rb,4.6509e-04_rb,4.9861e-04_rb,5.1384e-04_rb, &\n     &5.0976e-04_rb,4.8537e-04_rb,3.6976e-04_rb/)\n      kao(:, 3, 6, 5) = (/ &\n     &1.7903e-04_rb,3.4304e-04_rb,4.2198e-04_rb,4.7494e-04_rb,5.0792e-04_rb,5.2713e-04_rb, &\n     &5.2630e-04_rb,5.0120e-04_rb,3.8272e-04_rb/)\n      kao(:, 4, 6, 5) = (/ &\n     &1.8326e-04_rb,3.5076e-04_rb,4.3097e-04_rb,4.8545e-04_rb,5.2030e-04_rb,5.4158e-04_rb, &\n     &5.4362e-04_rb,5.1767e-04_rb,3.9660e-04_rb/)\n      kao(:, 5, 6, 5) = (/ &\n     &1.8798e-04_rb,3.5938e-04_rb,4.4150e-04_rb,4.9742e-04_rb,5.3429e-04_rb,5.5639e-04_rb, &\n     &5.6101e-04_rb,5.3674e-04_rb,4.1415e-04_rb/)\n      kao(:, 1, 7, 5) = (/ &\n     &2.9155e-04_rb,4.4941e-04_rb,5.1334e-04_rb,5.5160e-04_rb,5.6796e-04_rb,5.6534e-04_rb, &\n     &5.3624e-04_rb,4.7508e-04_rb,3.0367e-04_rb/)\n      kao(:, 2, 7, 5) = (/ &\n     &2.9728e-04_rb,4.5662e-04_rb,5.2104e-04_rb,5.6062e-04_rb,5.7827e-04_rb,5.7448e-04_rb, &\n     &5.4737e-04_rb,4.8748e-04_rb,3.1275e-04_rb/)\n      kao(:, 3, 7, 5) = (/ &\n     &3.0362e-04_rb,4.6646e-04_rb,5.3089e-04_rb,5.7148e-04_rb,5.9016e-04_rb,5.8669e-04_rb, &\n     &5.6081e-04_rb,5.0270e-04_rb,3.2221e-04_rb/)\n      kao(:, 4, 7, 5) = (/ &\n     &3.1074e-04_rb,4.7852e-04_rb,5.4299e-04_rb,5.8375e-04_rb,6.0313e-04_rb,6.0067e-04_rb, &\n     &5.7534e-04_rb,5.1934e-04_rb,3.3373e-04_rb/)\n      kao(:, 5, 7, 5) = (/ &\n     &3.1895e-04_rb,4.9180e-04_rb,5.5670e-04_rb,5.9847e-04_rb,6.1763e-04_rb,6.1617e-04_rb, &\n     &5.9045e-04_rb,5.3590e-04_rb,3.4594e-04_rb/)\n      kao(:, 1, 8, 5) = (/ &\n     &5.8477e-04_rb,7.4431e-04_rb,7.7278e-04_rb,7.7426e-04_rb,7.5736e-04_rb,7.1816e-04_rb, &\n     &6.5106e-04_rb,5.3737e-04_rb,2.7725e-04_rb/)\n      kao(:, 2, 8, 5) = (/ &\n     &5.9470e-04_rb,7.5491e-04_rb,7.8490e-04_rb,7.8595e-04_rb,7.6803e-04_rb,7.3022e-04_rb, &\n     &6.6291e-04_rb,5.4897e-04_rb,2.8497e-04_rb/)\n      kao(:, 3, 8, 5) = (/ &\n     &6.0851e-04_rb,7.7097e-04_rb,8.0204e-04_rb,8.0136e-04_rb,7.8218e-04_rb,7.4418e-04_rb, &\n     &6.7668e-04_rb,5.6182e-04_rb,2.9265e-04_rb/)\n      kao(:, 4, 8, 5) = (/ &\n     &6.2426e-04_rb,7.9122e-04_rb,8.2299e-04_rb,8.2167e-04_rb,7.9967e-04_rb,7.6040e-04_rb, &\n     &6.9192e-04_rb,5.7414e-04_rb,3.0175e-04_rb/)\n      kao(:, 5, 8, 5) = (/ &\n     &6.4049e-04_rb,8.1349e-04_rb,8.4675e-04_rb,8.4414e-04_rb,8.2107e-04_rb,7.7949e-04_rb, &\n     &7.0895e-04_rb,5.8878e-04_rb,3.1239e-04_rb/)\n      kao(:, 1, 9, 5) = (/ &\n     &2.2196e-03_rb,2.3078e-03_rb,2.1925e-03_rb,2.0227e-03_rb,1.7963e-03_rb,1.5336e-03_rb, &\n     &1.2354e-03_rb,8.8457e-04_rb,3.2582e-04_rb/)\n      kao(:, 2, 9, 5) = (/ &\n     &2.2570e-03_rb,2.3473e-03_rb,2.2277e-03_rb,2.0540e-03_rb,1.8274e-03_rb,1.5588e-03_rb, &\n     &1.2524e-03_rb,8.9724e-04_rb,3.2676e-04_rb/)\n      kao(:, 3, 9, 5) = (/ &\n     &2.3089e-03_rb,2.3978e-03_rb,2.2707e-03_rb,2.0928e-03_rb,1.8651e-03_rb,1.5919e-03_rb, &\n     &1.2779e-03_rb,9.1370e-04_rb,3.3500e-04_rb/)\n      kao(:, 4, 9, 5) = (/ &\n     &2.3733e-03_rb,2.4602e-03_rb,2.3315e-03_rb,2.1419e-03_rb,1.9119e-03_rb,1.6319e-03_rb, &\n     &1.3090e-03_rb,9.3384e-04_rb,3.3899e-04_rb/)\n      kao(:, 5, 9, 5) = (/ &\n     &2.4406e-03_rb,2.5271e-03_rb,2.3986e-03_rb,2.2033e-03_rb,1.9655e-03_rb,1.6770e-03_rb, &\n     &1.3445e-03_rb,9.5837e-04_rb,3.4762e-04_rb/)\n      kao(:, 1,10, 5) = (/ &\n     &9.4839e-03_rb,8.9137e-03_rb,7.9871e-03_rb,6.9719e-03_rb,5.8780e-03_rb,4.7134e-03_rb, &\n     &3.4759e-03_rb,2.1070e-03_rb,4.8830e-04_rb/)\n      kao(:, 2,10, 5) = (/ &\n     &9.6557e-03_rb,9.0801e-03_rb,8.1340e-03_rb,7.0972e-03_rb,5.9780e-03_rb,4.7945e-03_rb, &\n     &3.5398e-03_rb,2.1454e-03_rb,4.8857e-04_rb/)\n      kao(:, 3,10, 5) = (/ &\n     &9.8746e-03_rb,9.2754e-03_rb,8.2985e-03_rb,7.2339e-03_rb,6.1011e-03_rb,4.8911e-03_rb, &\n     &3.6103e-03_rb,2.1918e-03_rb,5.0136e-04_rb/)\n      kao(:, 4,10, 5) = (/ &\n     &1.0155e-02_rb,9.5179e-03_rb,8.5070e-03_rb,7.4122e-03_rb,6.2501e-03_rb,5.0174e-03_rb, &\n     &3.7003e-03_rb,2.2452e-03_rb,5.1609e-04_rb/)\n      kao(:, 5,10, 5) = (/ &\n     &1.0472e-02_rb,9.8032e-03_rb,8.7668e-03_rb,7.6331e-03_rb,6.4389e-03_rb,5.1659e-03_rb, &\n     &3.8012e-03_rb,2.3067e-03_rb,5.2606e-04_rb/)\n      kao(:, 1,11, 5) = (/ &\n     &1.4268e-02_rb,1.3170e-02_rb,1.1684e-02_rb,1.0078e-02_rb,8.4022e-03_rb,6.6241e-03_rb, &\n     &4.7723e-03_rb,2.7954e-03_rb,5.2361e-04_rb/)\n      kao(:, 2,11, 5) = (/ &\n     &1.4540e-02_rb,1.3417e-02_rb,1.1900e-02_rb,1.0250e-02_rb,8.5500e-03_rb,6.7539e-03_rb, &\n     &4.8654e-03_rb,2.8533e-03_rb,5.3348e-04_rb/)\n      kao(:, 3,11, 5) = (/ &\n     &1.4880e-02_rb,1.3732e-02_rb,1.2163e-02_rb,1.0481e-02_rb,8.7324e-03_rb,6.9009e-03_rb, &\n     &4.9833e-03_rb,2.9218e-03_rb,5.5883e-04_rb/)\n      kao(:, 4,11, 5) = (/ &\n     &1.5319e-02_rb,1.4123e-02_rb,1.2507e-02_rb,1.0772e-02_rb,8.9669e-03_rb,7.0955e-03_rb, &\n     &5.1189e-03_rb,2.9943e-03_rb,5.8850e-04_rb/)\n      kao(:, 5,11, 5) = (/ &\n     &1.5835e-02_rb,1.4577e-02_rb,1.2919e-02_rb,1.1125e-02_rb,9.2533e-03_rb,7.3128e-03_rb, &\n     &5.2667e-03_rb,3.0792e-03_rb,6.1073e-04_rb/)\n      kao(:, 1,12, 5) = (/ &\n     &1.5802e-02_rb,1.4518e-02_rb,1.2819e-02_rb,1.1003e-02_rb,9.1252e-03_rb,7.1742e-03_rb, &\n     &5.1262e-03_rb,2.9592e-03_rb,5.0816e-04_rb/)\n      kao(:, 2,12, 5) = (/ &\n     &1.6146e-02_rb,1.4810e-02_rb,1.3074e-02_rb,1.1225e-02_rb,9.3090e-03_rb,7.3135e-03_rb, &\n     &5.2412e-03_rb,3.0249e-03_rb,5.3398e-04_rb/)\n      kao(:, 3,12, 5) = (/ &\n     &1.6565e-02_rb,1.5205e-02_rb,1.3415e-02_rb,1.1514e-02_rb,9.5432e-03_rb,7.5058e-03_rb, &\n     &5.3826e-03_rb,3.1020e-03_rb,5.6164e-04_rb/)\n      kao(:, 4,12, 5) = (/ &\n     &1.7128e-02_rb,1.5682e-02_rb,1.3836e-02_rb,1.1883e-02_rb,9.8516e-03_rb,7.7437e-03_rb, &\n     &5.5313e-03_rb,3.1868e-03_rb,5.8823e-04_rb/)\n      kao(:, 5,12, 5) = (/ &\n     &1.7790e-02_rb,1.6267e-02_rb,1.4348e-02_rb,1.2311e-02_rb,1.0183e-02_rb,7.9904e-03_rb, &\n     &5.7100e-03_rb,3.2821e-03_rb,6.0779e-04_rb/)\n      kao(:, 1,13, 5) = (/ &\n     &1.4021e-02_rb,1.2885e-02_rb,1.1370e-02_rb,9.7666e-03_rb,8.0956e-03_rb,6.3531e-03_rb, &\n     &4.5485e-03_rb,2.6326e-03_rb,4.6002e-04_rb/)\n      kao(:, 2,13, 5) = (/ &\n     &1.4373e-02_rb,1.3207e-02_rb,1.1632e-02_rb,9.9865e-03_rb,8.2754e-03_rb,6.5087e-03_rb, &\n     &4.6669e-03_rb,2.6967e-03_rb,4.8163e-04_rb/)\n      kao(:, 3,13, 5) = (/ &\n     &1.4774e-02_rb,1.3588e-02_rb,1.1994e-02_rb,1.0306e-02_rb,8.5450e-03_rb,6.7168e-03_rb, &\n     &4.8089e-03_rb,2.7710e-03_rb,4.9996e-04_rb/)\n      kao(:, 4,13, 5) = (/ &\n     &1.5343e-02_rb,1.4084e-02_rb,1.2424e-02_rb,1.0664e-02_rb,8.8287e-03_rb,6.9355e-03_rb, &\n     &4.9590e-03_rb,2.8556e-03_rb,5.2093e-04_rb/)\n      kao(:, 5,13, 5) = (/ &\n     &1.5979e-02_rb,1.4619e-02_rb,1.2888e-02_rb,1.1066e-02_rb,9.1632e-03_rb,7.1872e-03_rb, &\n     &5.1400e-03_rb,2.9489e-03_rb,5.4238e-04_rb/)\n      kao(:, 1, 1, 6) = (/ &\n     &2.4381e-05_rb,3.5965e-04_rb,6.3963e-04_rb,9.0999e-04_rb,1.1781e-03_rb,1.4492e-03_rb, &\n     &1.7469e-03_rb,2.1949e-03_rb,2.0167e-03_rb/)\n      kao(:, 2, 1, 6) = (/ &\n     &2.4551e-05_rb,3.6820e-04_rb,6.5359e-04_rb,9.2911e-04_rb,1.2030e-03_rb,1.4796e-03_rb, &\n     &1.7884e-03_rb,2.2546e-03_rb,2.0633e-03_rb/)\n      kao(:, 3, 1, 6) = (/ &\n     &2.4844e-05_rb,3.7777e-04_rb,6.7015e-04_rb,9.5166e-04_rb,1.2316e-03_rb,1.5153e-03_rb, &\n     &1.8326e-03_rb,2.3125e-03_rb,2.1171e-03_rb/)\n      kao(:, 4, 1, 6) = (/ &\n     &2.5013e-05_rb,3.8840e-04_rb,6.8929e-04_rb,9.7743e-04_rb,1.2638e-03_rb,1.5559e-03_rb, &\n     &1.8833e-03_rb,2.3873e-03_rb,2.1814e-03_rb/)\n      kao(:, 5, 1, 6) = (/ &\n     &2.5349e-05_rb,4.0094e-04_rb,7.1137e-04_rb,1.0079e-03_rb,1.3021e-03_rb,1.6023e-03_rb, &\n     &1.9431e-03_rb,2.4704e-03_rb,2.2554e-03_rb/)\n      kao(:, 1, 2, 6) = (/ &\n     &3.3532e-05_rb,3.4195e-04_rb,5.9227e-04_rb,8.3115e-04_rb,1.0659e-03_rb,1.2984e-03_rb, &\n     &1.5375e-03_rb,1.8307e-03_rb,1.7555e-03_rb/)\n      kao(:, 2, 2, 6) = (/ &\n     &3.3884e-05_rb,3.4950e-04_rb,6.0496e-04_rb,8.4827e-04_rb,1.0865e-03_rb,1.3240e-03_rb, &\n     &1.5683e-03_rb,1.8747e-03_rb,1.7936e-03_rb/)\n      kao(:, 3, 2, 6) = (/ &\n     &3.4432e-05_rb,3.5837e-04_rb,6.1975e-04_rb,8.6913e-04_rb,1.1113e-03_rb,1.3536e-03_rb, &\n     &1.6021e-03_rb,1.9222e-03_rb,1.8373e-03_rb/)\n      kao(:, 4, 2, 6) = (/ &\n     &3.4886e-05_rb,3.6829e-04_rb,6.3662e-04_rb,8.9220e-04_rb,1.1391e-03_rb,1.3857e-03_rb, &\n     &1.6406e-03_rb,1.9755e-03_rb,1.8873e-03_rb/)\n      kao(:, 5, 2, 6) = (/ &\n     &3.5279e-05_rb,3.7968e-04_rb,6.5599e-04_rb,9.1909e-04_rb,1.1730e-03_rb,1.4257e-03_rb, &\n     &1.6862e-03_rb,2.0365e-03_rb,1.9484e-03_rb/)\n      kao(:, 1, 3, 6) = (/ &\n     &6.2269e-05_rb,3.6578e-04_rb,5.8707e-04_rb,7.9355e-04_rb,9.9285e-04_rb,1.1848e-03_rb, &\n     &1.3757e-03_rb,1.5822e-03_rb,1.5104e-03_rb/)\n      kao(:, 2, 3, 6) = (/ &\n     &6.2987e-05_rb,3.7248e-04_rb,5.9883e-04_rb,8.1016e-04_rb,1.0136e-03_rb,1.2090e-03_rb, &\n     &1.4023e-03_rb,1.6140e-03_rb,1.5440e-03_rb/)\n      kao(:, 3, 3, 6) = (/ &\n     &6.3830e-05_rb,3.8077e-04_rb,6.1238e-04_rb,8.2947e-04_rb,1.0380e-03_rb,1.2373e-03_rb, &\n     &1.4338e-03_rb,1.6476e-03_rb,1.5800e-03_rb/)\n      kao(:, 4, 3, 6) = (/ &\n     &6.5057e-05_rb,3.9038e-04_rb,6.2908e-04_rb,8.5186e-04_rb,1.0655e-03_rb,1.2690e-03_rb, &\n     &1.4686e-03_rb,1.6847e-03_rb,1.6204e-03_rb/)\n      kao(:, 5, 3, 6) = (/ &\n     &6.5891e-05_rb,4.0010e-04_rb,6.4778e-04_rb,8.7680e-04_rb,1.0962e-03_rb,1.3060e-03_rb, &\n     &1.5104e-03_rb,1.7307e-03_rb,1.6697e-03_rb/)\n      kao(:, 1, 4, 6) = (/ &\n     &1.1763e-04_rb,4.2852e-04_rb,6.2857e-04_rb,8.0251e-04_rb,9.6160e-04_rb,1.1103e-03_rb, &\n     &1.2549e-03_rb,1.3952e-03_rb,1.2948e-03_rb/)\n      kao(:, 2, 4, 6) = (/ &\n     &1.1903e-04_rb,4.3548e-04_rb,6.3935e-04_rb,8.1698e-04_rb,9.8074e-04_rb,1.1338e-03_rb, &\n     &1.2810e-03_rb,1.4231e-03_rb,1.3227e-03_rb/)\n      kao(:, 3, 4, 6) = (/ &\n     &1.2084e-04_rb,4.4304e-04_rb,6.5330e-04_rb,8.3469e-04_rb,1.0028e-03_rb,1.1604e-03_rb, &\n     &1.3104e-03_rb,1.4544e-03_rb,1.3535e-03_rb/)\n      kao(:, 4, 4, 6) = (/ &\n     &1.2295e-04_rb,4.5274e-04_rb,6.6888e-04_rb,8.5565e-04_rb,1.0277e-03_rb,1.1905e-03_rb, &\n     &1.3437e-03_rb,1.4894e-03_rb,1.3881e-03_rb/)\n      kao(:, 5, 4, 6) = (/ &\n     &1.2576e-04_rb,4.6369e-04_rb,6.8705e-04_rb,8.8171e-04_rb,1.0587e-03_rb,1.2251e-03_rb, &\n     &1.3822e-03_rb,1.5303e-03_rb,1.4309e-03_rb/)\n      kao(:, 1, 5, 6) = (/ &\n     &2.0248e-04_rb,5.1976e-04_rb,7.0294e-04_rb,8.5252e-04_rb,9.7761e-04_rb,1.0816e-03_rb, &\n     &1.1680e-03_rb,1.2476e-03_rb,1.1044e-03_rb/)\n      kao(:, 2, 5, 6) = (/ &\n     &2.0493e-04_rb,5.2640e-04_rb,7.1432e-04_rb,8.6690e-04_rb,9.9395e-04_rb,1.1019e-03_rb, &\n     &1.1914e-03_rb,1.2719e-03_rb,1.1285e-03_rb/)\n      kao(:, 3, 5, 6) = (/ &\n     &2.0806e-04_rb,5.3477e-04_rb,7.2739e-04_rb,8.8542e-04_rb,1.0148e-03_rb,1.1250e-03_rb, &\n     &1.2182e-03_rb,1.3005e-03_rb,1.1542e-03_rb/)\n      kao(:, 4, 5, 6) = (/ &\n     &2.1205e-04_rb,5.4496e-04_rb,7.4280e-04_rb,9.0607e-04_rb,1.0399e-03_rb,1.1525e-03_rb, &\n     &1.2484e-03_rb,1.3331e-03_rb,1.1843e-03_rb/)\n      kao(:, 5, 5, 6) = (/ &\n     &2.1768e-04_rb,5.5787e-04_rb,7.6255e-04_rb,9.3016e-04_rb,1.0697e-03_rb,1.1863e-03_rb, &\n     &1.2845e-03_rb,1.3711e-03_rb,1.2208e-03_rb/)\n      kao(:, 1, 6, 6) = (/ &\n     &3.2402e-04_rb,6.5065e-04_rb,8.1276e-04_rb,9.3175e-04_rb,1.0254e-03_rb,1.0960e-03_rb, &\n     &1.1336e-03_rb,1.1359e-03_rb,9.3926e-04_rb/)\n      kao(:, 2, 6, 6) = (/ &\n     &3.2839e-04_rb,6.5803e-04_rb,8.2121e-04_rb,9.4691e-04_rb,1.0426e-03_rb,1.1132e-03_rb, &\n     &1.1537e-03_rb,1.1594e-03_rb,9.5631e-04_rb/)\n      kao(:, 3, 6, 6) = (/ &\n     &3.3397e-04_rb,6.6749e-04_rb,8.3425e-04_rb,9.6403e-04_rb,1.0654e-03_rb,1.1356e-03_rb, &\n     &1.1768e-03_rb,1.1847e-03_rb,9.7614e-04_rb/)\n      kao(:, 4, 6, 6) = (/ &\n     &3.4074e-04_rb,6.7873e-04_rb,8.5077e-04_rb,9.8417e-04_rb,1.0893e-03_rb,1.1622e-03_rb, &\n     &1.2041e-03_rb,1.2139e-03_rb,1.0001e-03_rb/)\n      kao(:, 5, 6, 6) = (/ &\n     &3.4865e-04_rb,6.9287e-04_rb,8.6902e-04_rb,1.0071e-03_rb,1.1162e-03_rb,1.1933e-03_rb, &\n     &1.2370e-03_rb,1.2465e-03_rb,1.0295e-03_rb/)\n      kao(:, 1, 7, 6) = (/ &\n     &5.4679e-04_rb,8.8419e-04_rb,1.0272e-03_rb,1.1131e-03_rb,1.1586e-03_rb,1.1796e-03_rb, &\n     &1.1677e-03_rb,1.1006e-03_rb,7.9375e-04_rb/)\n      kao(:, 2, 7, 6) = (/ &\n     &5.5453e-04_rb,8.9535e-04_rb,1.0406e-03_rb,1.1278e-03_rb,1.1758e-03_rb,1.1986e-03_rb, &\n     &1.1860e-03_rb,1.1193e-03_rb,8.0863e-04_rb/)\n      kao(:, 3, 7, 6) = (/ &\n     &5.6482e-04_rb,9.0803e-04_rb,1.0560e-03_rb,1.1451e-03_rb,1.1955e-03_rb,1.2220e-03_rb, &\n     &1.2089e-03_rb,1.1408e-03_rb,8.2565e-04_rb/)\n      kao(:, 4, 7, 6) = (/ &\n     &5.7672e-04_rb,9.2334e-04_rb,1.0748e-03_rb,1.1654e-03_rb,1.2195e-03_rb,1.2479e-03_rb, &\n     &1.2361e-03_rb,1.1655e-03_rb,8.4564e-04_rb/)\n      kao(:, 5, 7, 6) = (/ &\n     &5.9187e-04_rb,9.4280e-04_rb,1.0968e-03_rb,1.1862e-03_rb,1.2479e-03_rb,1.2773e-03_rb, &\n     &1.2677e-03_rb,1.1958e-03_rb,8.6975e-04_rb/)\n      kao(:, 1, 8, 6) = (/ &\n     &1.0890e-03_rb,1.4212e-03_rb,1.5274e-03_rb,1.5635e-03_rb,1.5408e-03_rb,1.4729e-03_rb, &\n     &1.3514e-03_rb,1.1730e-03_rb,6.7724e-04_rb/)\n      kao(:, 2, 8, 6) = (/ &\n     &1.1074e-03_rb,1.4404e-03_rb,1.5493e-03_rb,1.5864e-03_rb,1.5647e-03_rb,1.4941e-03_rb, &\n     &1.3720e-03_rb,1.1894e-03_rb,6.8838e-04_rb/)\n      kao(:, 3, 8, 6) = (/ &\n     &1.1299e-03_rb,1.4626e-03_rb,1.5727e-03_rb,1.6115e-03_rb,1.5892e-03_rb,1.5170e-03_rb, &\n     &1.3954e-03_rb,1.2114e-03_rb,7.0024e-04_rb/)\n      kao(:, 4, 8, 6) = (/ &\n     &1.1562e-03_rb,1.4908e-03_rb,1.6005e-03_rb,1.6404e-03_rb,1.6196e-03_rb,1.5467e-03_rb, &\n     &1.4229e-03_rb,1.2388e-03_rb,7.1485e-04_rb/)\n      kao(:, 5, 8, 6) = (/ &\n     &1.1885e-03_rb,1.5267e-03_rb,1.6357e-03_rb,1.6752e-03_rb,1.6528e-03_rb,1.5764e-03_rb, &\n     &1.4553e-03_rb,1.2696e-03_rb,7.3183e-04_rb/)\n      kao(:, 1, 9, 6) = (/ &\n     &4.1665e-03_rb,4.3468e-03_rb,4.1293e-03_rb,3.8165e-03_rb,3.4449e-03_rb,3.0107e-03_rb, &\n     &2.4884e-03_rb,1.8186e-03_rb,7.0770e-04_rb/)\n      kao(:, 2, 9, 6) = (/ &\n     &4.2379e-03_rb,4.4019e-03_rb,4.1804e-03_rb,3.8702e-03_rb,3.4962e-03_rb,3.0618e-03_rb, &\n     &2.5301e-03_rb,1.8480e-03_rb,7.1084e-04_rb/)\n      kao(:, 3, 9, 6) = (/ &\n     &4.3206e-03_rb,4.4730e-03_rb,4.2494e-03_rb,3.9358e-03_rb,3.5562e-03_rb,3.1108e-03_rb, &\n     &2.5726e-03_rb,1.8787e-03_rb,7.1447e-04_rb/)\n      kao(:, 4, 9, 6) = (/ &\n     &4.4148e-03_rb,4.5672e-03_rb,4.3360e-03_rb,4.0233e-03_rb,3.6279e-03_rb,3.1667e-03_rb, &\n     &2.6211e-03_rb,1.9152e-03_rb,7.2547e-04_rb/)\n      kao(:, 5, 9, 6) = (/ &\n     &4.5366e-03_rb,4.6880e-03_rb,4.4475e-03_rb,4.1247e-03_rb,3.7148e-03_rb,3.2357e-03_rb, &\n     &2.6777e-03_rb,1.9564e-03_rb,7.3351e-04_rb/)\n      kao(:, 1,10, 6) = (/ &\n     &1.8255e-02_rb,1.7198e-02_rb,1.5391e-02_rb,1.3391e-02_rb,1.1273e-02_rb,9.0394e-03_rb, &\n     &6.6601e-03_rb,4.0944e-03_rb,9.8389e-04_rb/)\n      kao(:, 2,10, 6) = (/ &\n     &1.8579e-02_rb,1.7439e-02_rb,1.5601e-02_rb,1.3577e-02_rb,1.1427e-02_rb,9.1759e-03_rb, &\n     &6.7580e-03_rb,4.1605e-03_rb,9.8485e-04_rb/)\n      kao(:, 3,10, 6) = (/ &\n     &1.8934e-02_rb,1.7772e-02_rb,1.5898e-02_rb,1.3821e-02_rb,1.1616e-02_rb,9.3279e-03_rb, &\n     &6.8809e-03_rb,4.2287e-03_rb,9.8296e-04_rb/)\n      kao(:, 4,10, 6) = (/ &\n     &1.9364e-02_rb,1.8152e-02_rb,1.6246e-02_rb,1.4125e-02_rb,1.1868e-02_rb,9.5176e-03_rb, &\n     &7.0263e-03_rb,4.3137e-03_rb,9.8595e-04_rb/)\n      kao(:, 5,10, 6) = (/ &\n     &1.9876e-02_rb,1.8605e-02_rb,1.6643e-02_rb,1.4478e-02_rb,1.2165e-02_rb,9.7573e-03_rb, &\n     &7.2015e-03_rb,4.4138e-03_rb,9.9549e-04_rb/)\n      kao(:, 1,11, 6) = (/ &\n     &2.7906e-02_rb,2.5779e-02_rb,2.2845e-02_rb,1.9689e-02_rb,1.6356e-02_rb,1.2926e-02_rb, &\n     &9.3112e-03_rb,5.4266e-03_rb,1.1493e-03_rb/)\n      kao(:, 2,11, 6) = (/ &\n     &2.8474e-02_rb,2.6276e-02_rb,2.3282e-02_rb,2.0063e-02_rb,1.6649e-02_rb,1.3118e-02_rb, &\n     &9.4591e-03_rb,5.5176e-03_rb,1.1605e-03_rb/)\n      kao(:, 3,11, 6) = (/ &\n     &2.9161e-02_rb,2.6826e-02_rb,2.3755e-02_rb,2.0435e-02_rb,1.6944e-02_rb,1.3356e-02_rb, &\n     &9.6281e-03_rb,5.6370e-03_rb,1.1658e-03_rb/)\n      kao(:, 4,11, 6) = (/ &\n     &2.9864e-02_rb,2.7446e-02_rb,2.4305e-02_rb,2.0907e-02_rb,1.7344e-02_rb,1.3665e-02_rb, &\n     &9.8501e-03_rb,5.7787e-03_rb,1.1679e-03_rb/)\n      kao(:, 5,11, 6) = (/ &\n     &3.0716e-02_rb,2.8218e-02_rb,2.4989e-02_rb,2.1484e-02_rb,1.7837e-02_rb,1.4047e-02_rb, &\n     &1.0137e-02_rb,5.9391e-03_rb,1.1749e-03_rb/)\n      kao(:, 1,12, 6) = (/ &\n     &3.1456e-02_rb,2.8840e-02_rb,2.5490e-02_rb,2.1901e-02_rb,1.8104e-02_rb,1.4184e-02_rb, &\n     &1.0144e-02_rb,5.8131e-03_rb,1.1656e-03_rb/)\n      kao(:, 2,12, 6) = (/ &\n     &3.2212e-02_rb,2.9507e-02_rb,2.6048e-02_rb,2.2347e-02_rb,1.8450e-02_rb,1.4457e-02_rb, &\n     &1.0325e-02_rb,5.9330e-03_rb,1.1607e-03_rb/)\n      kao(:, 3,12, 6) = (/ &\n     &3.2965e-02_rb,3.0133e-02_rb,2.6613e-02_rb,2.2834e-02_rb,1.8888e-02_rb,1.4793e-02_rb, &\n     &1.0553e-02_rb,6.0675e-03_rb,1.1612e-03_rb/)\n      kao(:, 4,12, 6) = (/ &\n     &3.3903e-02_rb,3.0999e-02_rb,2.7365e-02_rb,2.3453e-02_rb,1.9368e-02_rb,1.5160e-02_rb, &\n     &1.0832e-02_rb,6.2310e-03_rb,1.1792e-03_rb/)\n      kao(:, 5,12, 6) = (/ &\n     &3.4986e-02_rb,3.1940e-02_rb,2.8176e-02_rb,2.4131e-02_rb,1.9947e-02_rb,1.5618e-02_rb, &\n     &1.1156e-02_rb,6.4247e-03_rb,1.2061e-03_rb/)\n      kao(:, 1,13, 6) = (/ &\n     &2.8494e-02_rb,2.6140e-02_rb,2.3086e-02_rb,1.9829e-02_rb,1.6410e-02_rb,1.2869e-02_rb, &\n     &9.1750e-03_rb,5.2477e-03_rb,1.0839e-03_rb/)\n      kao(:, 2,13, 6) = (/ &\n     &2.9204e-02_rb,2.6786e-02_rb,2.3660e-02_rb,2.0312e-02_rb,1.6791e-02_rb,1.3151e-02_rb, &\n     &9.3741e-03_rb,5.3670e-03_rb,1.0879e-03_rb/)\n      kao(:, 3,13, 6) = (/ &\n     &3.0028e-02_rb,2.7500e-02_rb,2.4267e-02_rb,2.0802e-02_rb,1.7182e-02_rb,1.3458e-02_rb, &\n     &9.5924e-03_rb,5.5018e-03_rb,1.1043e-03_rb/)\n      kao(:, 4,13, 6) = (/ &\n     &3.0958e-02_rb,2.8295e-02_rb,2.4961e-02_rb,2.1395e-02_rb,1.7690e-02_rb,1.3840e-02_rb, &\n     &9.8578e-03_rb,5.6588e-03_rb,1.1197e-03_rb/)\n      kao(:, 5,13, 6) = (/ &\n     &3.2042e-02_rb,2.9250e-02_rb,2.5779e-02_rb,2.2082e-02_rb,1.8250e-02_rb,1.4290e-02_rb, &\n     &1.0177e-02_rb,5.8420e-03_rb,1.1367e-03_rb/)\n      kao(:, 1, 1, 7) = (/ &\n     &4.8330e-05_rb,9.1748e-04_rb,1.6343e-03_rb,2.3037e-03_rb,2.9566e-03_rb,3.6315e-03_rb, &\n     &4.4475e-03_rb,5.8406e-03_rb,5.3151e-03_rb/)\n      kao(:, 2, 1, 7) = (/ &\n     &4.8596e-05_rb,9.3271e-04_rb,1.6606e-03_rb,2.3393e-03_rb,3.0027e-03_rb,3.6916e-03_rb, &\n     &4.5243e-03_rb,5.9244e-03_rb,5.4196e-03_rb/)\n      kao(:, 3, 1, 7) = (/ &\n     &4.9220e-05_rb,9.5049e-04_rb,1.6928e-03_rb,2.3820e-03_rb,3.0582e-03_rb,3.7632e-03_rb, &\n     &4.6161e-03_rb,6.0368e-03_rb,5.5387e-03_rb/)\n      kao(:, 4, 1, 7) = (/ &\n     &4.9714e-05_rb,9.7063e-04_rb,1.7276e-03_rb,2.4311e-03_rb,3.1220e-03_rb,3.8430e-03_rb, &\n     &4.7205e-03_rb,6.1613e-03_rb,5.6708e-03_rb/)\n      kao(:, 5, 1, 7) = (/ &\n     &5.0550e-05_rb,9.9274e-04_rb,1.7651e-03_rb,2.4850e-03_rb,3.1923e-03_rb,3.9328e-03_rb, &\n     &4.8316e-03_rb,6.3027e-03_rb,5.8156e-03_rb/)\n      kao(:, 1, 2, 7) = (/ &\n     &6.7697e-05_rb,8.5995e-04_rb,1.5004e-03_rb,2.0933e-03_rb,2.6519e-03_rb,3.1963e-03_rb, &\n     &3.7792e-03_rb,4.6863e-03_rb,4.4711e-03_rb/)\n      kao(:, 2, 2, 7) = (/ &\n     &6.8123e-05_rb,8.7528e-04_rb,1.5266e-03_rb,2.1301e-03_rb,2.6961e-03_rb,3.2484e-03_rb, &\n     &3.8450e-03_rb,4.7682e-03_rb,4.5579e-03_rb/)\n      kao(:, 3, 2, 7) = (/ &\n     &6.9098e-05_rb,8.9351e-04_rb,1.5568e-03_rb,2.1723e-03_rb,2.7472e-03_rb,3.3096e-03_rb, &\n     &3.9205e-03_rb,4.8697e-03_rb,4.6570e-03_rb/)\n      kao(:, 4, 2, 7) = (/ &\n     &7.0075e-05_rb,9.1426e-04_rb,1.5908e-03_rb,2.2183e-03_rb,2.8071e-03_rb,3.3815e-03_rb, &\n     &4.0084e-03_rb,4.9811e-03_rb,4.7715e-03_rb/)\n      kao(:, 5, 2, 7) = (/ &\n     &7.1192e-05_rb,9.3706e-04_rb,1.6283e-03_rb,2.2693e-03_rb,2.8718e-03_rb,3.4625e-03_rb, &\n     &4.1070e-03_rb,5.1037e-03_rb,4.8979e-03_rb/)\n      kao(:, 1, 3, 7) = (/ &\n     &1.2733e-04_rb,8.7624e-04_rb,1.4506e-03_rb,1.9805e-03_rb,2.4757e-03_rb,2.9317e-03_rb, &\n     &3.3558e-03_rb,3.8170e-03_rb,3.7686e-03_rb/)\n      kao(:, 2, 3, 7) = (/ &\n     &1.2826e-04_rb,8.9276e-04_rb,1.4769e-03_rb,2.0153e-03_rb,2.5174e-03_rb,2.9784e-03_rb, &\n     &3.4075e-03_rb,3.8801e-03_rb,3.8344e-03_rb/)\n      kao(:, 3, 3, 7) = (/ &\n     &1.2973e-04_rb,9.1170e-04_rb,1.5076e-03_rb,2.0539e-03_rb,2.5651e-03_rb,3.0352e-03_rb, &\n     &3.4680e-03_rb,3.9525e-03_rb,3.9125e-03_rb/)\n      kao(:, 4, 3, 7) = (/ &\n     &1.3225e-04_rb,9.3418e-04_rb,1.5436e-03_rb,2.1000e-03_rb,2.6202e-03_rb,3.1002e-03_rb, &\n     &3.5421e-03_rb,4.0383e-03_rb,4.0057e-03_rb/)\n      kao(:, 5, 3, 7) = (/ &\n     &1.3440e-04_rb,9.5794e-04_rb,1.5825e-03_rb,2.1509e-03_rb,2.6822e-03_rb,3.1720e-03_rb, &\n     &3.6252e-03_rb,4.1370e-03_rb,4.1108e-03_rb/)\n      kao(:, 1, 4, 7) = (/ &\n     &2.4414e-04_rb,9.8791e-04_rb,1.4797e-03_rb,1.9337e-03_rb,2.3609e-03_rb,2.7541e-03_rb, &\n     &3.0988e-03_rb,3.3862e-03_rb,3.2303e-03_rb/)\n      kao(:, 2, 4, 7) = (/ &\n     &2.4513e-04_rb,1.0039e-03_rb,1.5070e-03_rb,1.9692e-03_rb,2.4021e-03_rb,2.7995e-03_rb, &\n     &3.1468e-03_rb,3.4333e-03_rb,3.2790e-03_rb/)\n      kao(:, 3, 4, 7) = (/ &\n     &2.4808e-04_rb,1.0229e-03_rb,1.5373e-03_rb,2.0098e-03_rb,2.4481e-03_rb,2.8491e-03_rb, &\n     &3.2030e-03_rb,3.4903e-03_rb,3.3384e-03_rb/)\n      kao(:, 4, 4, 7) = (/ &\n     &2.5202e-04_rb,1.0447e-03_rb,1.5721e-03_rb,2.0572e-03_rb,2.5035e-03_rb,2.9093e-03_rb, &\n     &3.2672e-03_rb,3.5611e-03_rb,3.4115e-03_rb/)\n      kao(:, 5, 4, 7) = (/ &\n     &2.5833e-04_rb,1.0719e-03_rb,1.6144e-03_rb,2.1102e-03_rb,2.5658e-03_rb,2.9793e-03_rb, &\n     &3.3418e-03_rb,3.6423e-03_rb,3.4938e-03_rb/)\n      kao(:, 1, 5, 7) = (/ &\n     &4.2770e-04_rb,1.1830e-03_rb,1.6220e-03_rb,1.9840e-03_rb,2.3123e-03_rb,2.6214e-03_rb, &\n     &2.8956e-03_rb,3.0934e-03_rb,2.7805e-03_rb/)\n      kao(:, 2, 5, 7) = (/ &\n     &4.3162e-04_rb,1.2016e-03_rb,1.6476e-03_rb,2.0183e-03_rb,2.3523e-03_rb,2.6652e-03_rb, &\n     &2.9419e-03_rb,3.1389e-03_rb,2.8192e-03_rb/)\n      kao(:, 3, 5, 7) = (/ &\n     &4.3693e-04_rb,1.2232e-03_rb,1.6764e-03_rb,2.0550e-03_rb,2.3985e-03_rb,2.7158e-03_rb, &\n     &2.9926e-03_rb,3.1918e-03_rb,2.8694e-03_rb/)\n      kao(:, 4, 5, 7) = (/ &\n     &4.4235e-04_rb,1.2462e-03_rb,1.7099e-03_rb,2.0981e-03_rb,2.4518e-03_rb,2.7746e-03_rb, &\n     &3.0533e-03_rb,3.2519e-03_rb,2.9306e-03_rb/)\n      kao(:, 5, 5, 7) = (/ &\n     &4.5257e-04_rb,1.2739e-03_rb,1.7526e-03_rb,2.1524e-03_rb,2.5133e-03_rb,2.8432e-03_rb, &\n     &3.1246e-03_rb,3.3219e-03_rb,2.9994e-03_rb/)\n      kao(:, 1, 6, 7) = (/ &\n     &6.9917e-04_rb,1.4510e-03_rb,1.8508e-03_rb,2.1612e-03_rb,2.3969e-03_rb,2.5820e-03_rb, &\n     &2.7369e-03_rb,2.8411e-03_rb,2.3809e-03_rb/)\n      kao(:, 2, 6, 7) = (/ &\n     &7.0685e-04_rb,1.4737e-03_rb,1.8819e-03_rb,2.1948e-03_rb,2.4365e-03_rb,2.6262e-03_rb, &\n     &2.7822e-03_rb,2.8845e-03_rb,2.4163e-03_rb/)\n      kao(:, 3, 6, 7) = (/ &\n     &7.1685e-04_rb,1.4992e-03_rb,1.9139e-03_rb,2.2300e-03_rb,2.4777e-03_rb,2.6750e-03_rb, &\n     &2.8324e-03_rb,2.9331e-03_rb,2.4594e-03_rb/)\n      kao(:, 4, 6, 7) = (/ &\n     &7.2831e-04_rb,1.5276e-03_rb,1.9491e-03_rb,2.2715e-03_rb,2.5262e-03_rb,2.7293e-03_rb, &\n     &2.8927e-03_rb,2.9913e-03_rb,2.5109e-03_rb/)\n      kao(:, 5, 6, 7) = (/ &\n     &7.4174e-04_rb,1.5586e-03_rb,1.9900e-03_rb,2.3214e-03_rb,2.5825e-03_rb,2.7929e-03_rb, &\n     &2.9629e-03_rb,3.0587e-03_rb,2.5688e-03_rb/)\n      kao(:, 1, 7, 7) = (/ &\n     &1.2039e-03_rb,1.9587e-03_rb,2.2962e-03_rb,2.5331e-03_rb,2.6974e-03_rb,2.7733e-03_rb, &\n     &2.7634e-03_rb,2.6777e-03_rb,2.0245e-03_rb/)\n      kao(:, 2, 7, 7) = (/ &\n     &1.2204e-03_rb,1.9874e-03_rb,2.3314e-03_rb,2.5722e-03_rb,2.7404e-03_rb,2.8207e-03_rb, &\n     &2.8122e-03_rb,2.7221e-03_rb,2.0503e-03_rb/)\n      kao(:, 3, 7, 7) = (/ &\n     &1.2400e-03_rb,2.0184e-03_rb,2.3716e-03_rb,2.6156e-03_rb,2.7851e-03_rb,2.8685e-03_rb, &\n     &2.8623e-03_rb,2.7709e-03_rb,2.0844e-03_rb/)\n      kao(:, 4, 7, 7) = (/ &\n     &1.2633e-03_rb,2.0537e-03_rb,2.4164e-03_rb,2.6645e-03_rb,2.8368e-03_rb,2.9213e-03_rb, &\n     &2.9184e-03_rb,2.8302e-03_rb,2.1246e-03_rb/)\n      kao(:, 5, 7, 7) = (/ &\n     &1.2880e-03_rb,2.0946e-03_rb,2.4660e-03_rb,2.7241e-03_rb,2.8956e-03_rb,2.9852e-03_rb, &\n     &2.9850e-03_rb,2.8977e-03_rb,2.1717e-03_rb/)\n      kao(:, 1, 8, 7) = (/ &\n     &2.4360e-03_rb,3.2317e-03_rb,3.4336e-03_rb,3.4928e-03_rb,3.4872e-03_rb,3.3872e-03_rb, &\n     &3.1811e-03_rb,2.7989e-03_rb,1.6994e-03_rb/)\n      kao(:, 2, 8, 7) = (/ &\n     &2.4784e-03_rb,3.2772e-03_rb,3.4707e-03_rb,3.5477e-03_rb,3.5429e-03_rb,3.4442e-03_rb, &\n     &3.2393e-03_rb,2.8503e-03_rb,1.7216e-03_rb/)\n      kao(:, 3, 8, 7) = (/ &\n     &2.5215e-03_rb,3.3205e-03_rb,3.5181e-03_rb,3.6097e-03_rb,3.6079e-03_rb,3.5043e-03_rb, &\n     &3.2957e-03_rb,2.9015e-03_rb,1.7516e-03_rb/)\n      kao(:, 4, 8, 7) = (/ &\n     &2.5734e-03_rb,3.3690e-03_rb,3.5815e-03_rb,3.6774e-03_rb,3.6742e-03_rb,3.5696e-03_rb, &\n     &3.3583e-03_rb,2.9597e-03_rb,1.7852e-03_rb/)\n      kao(:, 5, 8, 7) = (/ &\n     &2.6287e-03_rb,3.4209e-03_rb,3.6564e-03_rb,3.7526e-03_rb,3.7488e-03_rb,3.6496e-03_rb, &\n     &3.4322e-03_rb,3.0257e-03_rb,1.8234e-03_rb/)\n      kao(:, 1, 9, 7) = (/ &\n     &9.2016e-03_rb,9.7823e-03_rb,9.4145e-03_rb,8.7411e-03_rb,7.8879e-03_rb,6.8736e-03_rb, &\n     &5.6569e-03_rb,4.2025e-03_rb,1.5538e-03_rb/)\n      kao(:, 2, 9, 7) = (/ &\n     &9.3962e-03_rb,9.9769e-03_rb,9.5905e-03_rb,8.8876e-03_rb,8.0147e-03_rb,6.9737e-03_rb, &\n     &5.7408e-03_rb,4.2797e-03_rb,1.5748e-03_rb/)\n      kao(:, 3, 9, 7) = (/ &\n     &9.5905e-03_rb,1.0169e-02_rb,9.7567e-03_rb,9.0284e-03_rb,8.1348e-03_rb,7.0770e-03_rb, &\n     &5.8473e-03_rb,4.3619e-03_rb,1.5893e-03_rb/)\n      kao(:, 4, 9, 7) = (/ &\n     &9.8163e-03_rb,1.0370e-02_rb,9.9309e-03_rb,9.1820e-03_rb,8.2703e-03_rb,7.1825e-03_rb, &\n     &5.9588e-03_rb,4.4477e-03_rb,1.6087e-03_rb/)\n      kao(:, 5, 9, 7) = (/ &\n     &1.0054e-02_rb,1.0584e-02_rb,1.0131e-02_rb,9.3626e-03_rb,8.4298e-03_rb,7.3350e-03_rb, &\n     &6.0835e-03_rb,4.5437e-03_rb,1.6313e-03_rb/)\n      kao(:, 1,10, 7) = (/ &\n     &3.9276e-02_rb,3.6749e-02_rb,3.3301e-02_rb,2.9241e-02_rb,2.4794e-02_rb,2.0028e-02_rb, &\n     &1.4912e-02_rb,9.3013e-03_rb,2.0443e-03_rb/)\n      kao(:, 2,10, 7) = (/ &\n     &4.0105e-02_rb,3.7556e-02_rb,3.4005e-02_rb,2.9863e-02_rb,2.5353e-02_rb,2.0438e-02_rb, &\n     &1.5180e-02_rb,9.4819e-03_rb,2.0242e-03_rb/)\n      kao(:, 3,10, 7) = (/ &\n     &4.0916e-02_rb,3.8307e-02_rb,3.4681e-02_rb,3.0487e-02_rb,2.5876e-02_rb,2.0814e-02_rb, &\n     &1.5451e-02_rb,9.6638e-03_rb,2.0047e-03_rb/)\n      kao(:, 4,10, 7) = (/ &\n     &4.1894e-02_rb,3.9199e-02_rb,3.5443e-02_rb,3.1118e-02_rb,2.6390e-02_rb,2.1233e-02_rb, &\n     &1.5746e-02_rb,9.8447e-03_rb,2.0155e-03_rb/)\n      kao(:, 5,10, 7) = (/ &\n     &4.2954e-02_rb,4.0161e-02_rb,3.6290e-02_rb,3.1839e-02_rb,2.6971e-02_rb,2.1693e-02_rb, &\n     &1.6115e-02_rb,1.0055e-02_rb,2.0394e-03_rb/)\n      kao(:, 1,11, 7) = (/ &\n     &6.0955e-02_rb,5.5737e-02_rb,4.9723e-02_rb,4.3019e-02_rb,3.5876e-02_rb,2.8379e-02_rb, &\n     &2.0432e-02_rb,1.2085e-02_rb,2.3716e-03_rb/)\n      kao(:, 2,11, 7) = (/ &\n     &6.2198e-02_rb,5.6869e-02_rb,5.0662e-02_rb,4.3787e-02_rb,3.6565e-02_rb,2.8915e-02_rb, &\n     &2.0814e-02_rb,1.2323e-02_rb,2.3542e-03_rb/)\n      kao(:, 3,11, 7) = (/ &\n     &6.3419e-02_rb,5.8024e-02_rb,5.1697e-02_rb,4.4702e-02_rb,3.7324e-02_rb,2.9465e-02_rb, &\n     &2.1204e-02_rb,1.2555e-02_rb,2.3313e-03_rb/)\n      kao(:, 4,11, 7) = (/ &\n     &6.4926e-02_rb,5.9386e-02_rb,5.2869e-02_rb,4.5680e-02_rb,3.8119e-02_rb,3.0075e-02_rb, &\n     &2.1667e-02_rb,1.2812e-02_rb,2.3155e-03_rb/)\n      kao(:, 5,11, 7) = (/ &\n     &6.6635e-02_rb,6.0864e-02_rb,5.4124e-02_rb,4.6774e-02_rb,3.9011e-02_rb,3.0829e-02_rb, &\n     &2.2206e-02_rb,1.3119e-02_rb,2.3251e-03_rb/)\n      kao(:, 1,12, 7) = (/ &\n     &6.9869e-02_rb,6.3637e-02_rb,5.6420e-02_rb,4.8546e-02_rb,4.0307e-02_rb,3.1740e-02_rb, &\n     &2.2682e-02_rb,1.3139e-02_rb,2.4428e-03_rb/)\n      kao(:, 2,12, 7) = (/ &\n     &7.1577e-02_rb,6.5133e-02_rb,5.7685e-02_rb,4.9634e-02_rb,4.1244e-02_rb,3.2466e-02_rb, &\n     &2.3165e-02_rb,1.3402e-02_rb,2.4417e-03_rb/)\n      kao(:, 3,12, 7) = (/ &\n     &7.3435e-02_rb,6.6765e-02_rb,5.9111e-02_rb,5.0782e-02_rb,4.2090e-02_rb,3.3070e-02_rb, &\n     &2.3631e-02_rb,1.3663e-02_rb,2.4312e-03_rb/)\n      kao(:, 4,12, 7) = (/ &\n     &7.5274e-02_rb,6.8406e-02_rb,6.0539e-02_rb,5.2024e-02_rb,4.3158e-02_rb,3.3897e-02_rb, &\n     &2.4213e-02_rb,1.3961e-02_rb,2.4213e-03_rb/)\n      kao(:, 5,12, 7) = (/ &\n     &7.7518e-02_rb,7.0447e-02_rb,6.2339e-02_rb,5.3608e-02_rb,4.4457e-02_rb,3.4884e-02_rb, &\n     &2.4882e-02_rb,1.4302e-02_rb,2.4144e-03_rb/)\n      kao(:, 1,13, 7) = (/ &\n     &6.3971e-02_rb,5.8270e-02_rb,5.1535e-02_rb,4.4263e-02_rb,3.6709e-02_rb,2.8872e-02_rb, &\n     &2.0629e-02_rb,1.1917e-02_rb,2.3953e-03_rb/)\n      kao(:, 2,13, 7) = (/ &\n     &6.5643e-02_rb,5.9813e-02_rb,5.2890e-02_rb,4.5419e-02_rb,3.7684e-02_rb,2.9600e-02_rb, &\n     &2.1119e-02_rb,1.2188e-02_rb,2.4046e-03_rb/)\n      kao(:, 3,13, 7) = (/ &\n     &6.7472e-02_rb,6.1457e-02_rb,5.4341e-02_rb,4.6654e-02_rb,3.8721e-02_rb,3.0402e-02_rb, &\n     &2.1696e-02_rb,1.2486e-02_rb,2.3922e-03_rb/)\n      kao(:, 4,13, 7) = (/ &\n     &6.9579e-02_rb,6.3365e-02_rb,5.6023e-02_rb,4.8132e-02_rb,3.9923e-02_rb,3.1337e-02_rb, &\n     &2.2348e-02_rb,1.2806e-02_rb,2.3768e-03_rb/)\n      kao(:, 5,13, 7) = (/ &\n     &7.1993e-02_rb,6.5596e-02_rb,5.7974e-02_rb,4.9776e-02_rb,4.1204e-02_rb,3.2317e-02_rb, &\n     &2.3035e-02_rb,1.3183e-02_rb,2.3765e-03_rb/)\n      kao(:, 1, 1, 8) = (/ &\n     &1.3552e-04_rb,2.4322e-03_rb,4.1951e-03_rb,5.8754e-03_rb,7.6297e-03_rb,9.6149e-03_rb, &\n     &1.1994e-02_rb,1.5380e-02_rb,1.4856e-02_rb/)\n      kao(:, 2, 1, 8) = (/ &\n     &1.3805e-04_rb,2.4459e-03_rb,4.2175e-03_rb,5.9121e-03_rb,7.6823e-03_rb,9.6825e-03_rb, &\n     &1.2072e-02_rb,1.5469e-02_rb,1.4971e-02_rb/)\n      kao(:, 3, 1, 8) = (/ &\n     &1.4131e-04_rb,2.4661e-03_rb,4.2478e-03_rb,5.9602e-03_rb,7.7525e-03_rb,9.7747e-03_rb, &\n     &1.2179e-02_rb,1.5577e-02_rb,1.5128e-02_rb/)\n      kao(:, 4, 1, 8) = (/ &\n     &1.4377e-04_rb,2.4912e-03_rb,4.2859e-03_rb,6.0170e-03_rb,7.8373e-03_rb,9.8887e-03_rb, &\n     &1.2314e-02_rb,1.5728e-02_rb,1.5316e-02_rb/)\n      kao(:, 5, 1, 8) = (/ &\n     &1.4692e-04_rb,2.5205e-03_rb,4.3310e-03_rb,6.0836e-03_rb,7.9343e-03_rb,1.0019e-02_rb, &\n     &1.2473e-02_rb,1.5904e-02_rb,1.5528e-02_rb/)\n      kao(:, 1, 2, 8) = (/ &\n     &1.8928e-04_rb,2.4121e-03_rb,4.0623e-03_rb,5.5541e-03_rb,6.9898e-03_rb,8.5008e-03_rb, &\n     &1.0323e-02_rb,1.3028e-02_rb,1.2924e-02_rb/)\n      kao(:, 2, 2, 8) = (/ &\n     &1.9267e-04_rb,2.4360e-03_rb,4.0898e-03_rb,5.5901e-03_rb,7.0384e-03_rb,8.5652e-03_rb, &\n     &1.0405e-02_rb,1.3116e-02_rb,1.3041e-02_rb/)\n      kao(:, 3, 2, 8) = (/ &\n     &1.9724e-04_rb,2.4656e-03_rb,4.1277e-03_rb,5.6355e-03_rb,7.0999e-03_rb,8.6497e-03_rb, &\n     &1.0515e-02_rb,1.3234e-02_rb,1.3193e-02_rb/)\n      kao(:, 4, 2, 8) = (/ &\n     &2.0128e-04_rb,2.4981e-03_rb,4.1715e-03_rb,5.6919e-03_rb,7.1715e-03_rb,8.7477e-03_rb, &\n     &1.0645e-02_rb,1.3388e-02_rb,1.3368e-02_rb/)\n      kao(:, 5, 2, 8) = (/ &\n     &2.0477e-04_rb,2.5328e-03_rb,4.2216e-03_rb,5.7557e-03_rb,7.2538e-03_rb,8.8556e-03_rb, &\n     &1.0788e-02_rb,1.3565e-02_rb,1.3563e-02_rb/)\n      kao(:, 1, 3, 8) = (/ &\n     &3.5927e-04_rb,2.5910e-03_rb,4.2037e-03_rb,5.6032e-03_rb,6.8389e-03_rb,7.9673e-03_rb, &\n     &9.0787e-03_rb,1.0659e-02_rb,1.1075e-02_rb/)\n      kao(:, 2, 3, 8) = (/ &\n     &3.6570e-04_rb,2.6231e-03_rb,4.2518e-03_rb,5.6510e-03_rb,6.8860e-03_rb,8.0235e-03_rb, &\n     &9.1475e-03_rb,1.0746e-02_rb,1.1185e-02_rb/)\n      kao(:, 3, 3, 8) = (/ &\n     &3.7255e-04_rb,2.6596e-03_rb,4.3088e-03_rb,5.7121e-03_rb,6.9479e-03_rb,8.0889e-03_rb, &\n     &9.2308e-03_rb,1.0860e-02_rb,1.1321e-02_rb/)\n      kao(:, 4, 3, 8) = (/ &\n     &3.8155e-04_rb,2.7037e-03_rb,4.3688e-03_rb,5.7837e-03_rb,7.0219e-03_rb,8.1712e-03_rb, &\n     &9.3303e-03_rb,1.0993e-02_rb,1.1473e-02_rb/)\n      kao(:, 5, 3, 8) = (/ &\n     &3.8777e-04_rb,2.7514e-03_rb,4.4348e-03_rb,5.8612e-03_rb,7.1061e-03_rb,8.2670e-03_rb, &\n     &9.4452e-03_rb,1.1141e-02_rb,1.1658e-02_rb/)\n      kao(:, 1, 4, 8) = (/ &\n     &6.9620e-04_rb,2.9029e-03_rb,4.4649e-03_rb,5.7896e-03_rb,6.9152e-03_rb,7.8788e-03_rb, &\n     &8.6335e-03_rb,9.2668e-03_rb,9.4651e-03_rb/)\n      kao(:, 2, 4, 8) = (/ &\n     &7.1019e-04_rb,2.9517e-03_rb,4.5263e-03_rb,5.8664e-03_rb,6.9912e-03_rb,7.9468e-03_rb, &\n     &8.6984e-03_rb,9.3401e-03_rb,9.5623e-03_rb/)\n      kao(:, 3, 4, 8) = (/ &\n     &7.2359e-04_rb,3.0044e-03_rb,4.5979e-03_rb,5.9489e-03_rb,7.0830e-03_rb,8.0315e-03_rb, &\n     &8.7768e-03_rb,9.4291e-03_rb,9.6859e-03_rb/)\n      kao(:, 4, 4, 8) = (/ &\n     &7.3828e-04_rb,3.0619e-03_rb,4.6789e-03_rb,6.0379e-03_rb,7.1842e-03_rb,8.1322e-03_rb, &\n     &8.8743e-03_rb,9.5317e-03_rb,9.8248e-03_rb/)\n      kao(:, 5, 4, 8) = (/ &\n     &7.5535e-04_rb,3.1266e-03_rb,4.7671e-03_rb,6.1369e-03_rb,7.2972e-03_rb,8.2469e-03_rb, &\n     &8.9884e-03_rb,9.6595e-03_rb,9.9955e-03_rb/)\n      kao(:, 1, 5, 8) = (/ &\n     &1.2367e-03_rb,3.3787e-03_rb,4.7869e-03_rb,5.9863e-03_rb,7.0094e-03_rb,7.8065e-03_rb, &\n     &8.3893e-03_rb,8.6393e-03_rb,8.1050e-03_rb/)\n      kao(:, 2, 5, 8) = (/ &\n     &1.2606e-03_rb,3.4408e-03_rb,4.8727e-03_rb,6.0829e-03_rb,7.1090e-03_rb,7.9083e-03_rb, &\n     &8.4736e-03_rb,8.7084e-03_rb,8.1896e-03_rb/)\n      kao(:, 3, 5, 8) = (/ &\n     &1.2858e-03_rb,3.5058e-03_rb,4.9695e-03_rb,6.1896e-03_rb,7.2184e-03_rb,8.0235e-03_rb, &\n     &8.5795e-03_rb,8.7948e-03_rb,8.2945e-03_rb/)\n      kao(:, 4, 5, 8) = (/ &\n     &1.3144e-03_rb,3.5781e-03_rb,5.0734e-03_rb,6.3066e-03_rb,7.3381e-03_rb,8.1502e-03_rb, &\n     &8.7050e-03_rb,8.8972e-03_rb,8.4098e-03_rb/)\n      kao(:, 5, 5, 8) = (/ &\n     &1.3469e-03_rb,3.6641e-03_rb,5.1833e-03_rb,6.4362e-03_rb,7.4701e-03_rb,8.2878e-03_rb, &\n     &8.8414e-03_rb,9.0166e-03_rb,8.5483e-03_rb/)\n      kao(:, 1, 6, 8) = (/ &\n     &2.0401e-03_rb,4.1601e-03_rb,5.3408e-03_rb,6.2948e-03_rb,7.1082e-03_rb,7.7648e-03_rb, &\n     &8.1607e-03_rb,8.2016e-03_rb,6.9653e-03_rb/)\n      kao(:, 2, 6, 8) = (/ &\n     &2.0844e-03_rb,4.2423e-03_rb,5.4455e-03_rb,6.4160e-03_rb,7.2313e-03_rb,7.8855e-03_rb, &\n     &8.2759e-03_rb,8.2810e-03_rb,7.0331e-03_rb/)\n      kao(:, 3, 6, 8) = (/ &\n     &2.1282e-03_rb,4.3237e-03_rb,5.5575e-03_rb,6.5512e-03_rb,7.3708e-03_rb,8.0202e-03_rb, &\n     &8.4033e-03_rb,8.3806e-03_rb,7.1162e-03_rb/)\n      kao(:, 4, 6, 8) = (/ &\n     &2.1756e-03_rb,4.4109e-03_rb,5.6792e-03_rb,6.6960e-03_rb,7.5224e-03_rb,8.1665e-03_rb, &\n     &8.5397e-03_rb,8.4981e-03_rb,7.2093e-03_rb/)\n      kao(:, 5, 6, 8) = (/ &\n     &2.2255e-03_rb,4.5091e-03_rb,5.8068e-03_rb,6.8485e-03_rb,7.6856e-03_rb,8.3228e-03_rb, &\n     &8.6864e-03_rb,8.6279e-03_rb,7.3203e-03_rb/)\n      kao(:, 1, 7, 8) = (/ &\n     &3.5433e-03_rb,5.7288e-03_rb,6.6788e-03_rb,7.3197e-03_rb,7.7679e-03_rb,8.0638e-03_rb, &\n     &8.2036e-03_rb,7.9558e-03_rb,6.0055e-03_rb/)\n      kao(:, 2, 7, 8) = (/ &\n     &3.6269e-03_rb,5.8458e-03_rb,6.8139e-03_rb,7.4674e-03_rb,7.9220e-03_rb,8.2152e-03_rb, &\n     &8.3417e-03_rb,8.0664e-03_rb,6.0619e-03_rb/)\n      kao(:, 3, 7, 8) = (/ &\n     &3.7095e-03_rb,5.9702e-03_rb,6.9487e-03_rb,7.6264e-03_rb,8.0952e-03_rb,8.3842e-03_rb, &\n     &8.4920e-03_rb,8.1889e-03_rb,6.1273e-03_rb/)\n      kao(:, 4, 7, 8) = (/ &\n     &3.7971e-03_rb,6.0972e-03_rb,7.0950e-03_rb,7.7981e-03_rb,8.2789e-03_rb,8.5668e-03_rb, &\n     &8.6571e-03_rb,8.3173e-03_rb,6.2019e-03_rb/)\n      kao(:, 5, 7, 8) = (/ &\n     &3.8894e-03_rb,6.2311e-03_rb,7.2602e-03_rb,7.9756e-03_rb,8.4749e-03_rb,8.7608e-03_rb, &\n     &8.8292e-03_rb,8.4586e-03_rb,6.2926e-03_rb/)\n      kao(:, 1, 8, 8) = (/ &\n     &7.2384e-03_rb,9.3960e-03_rb,1.0099e-02_rb,1.0331e-02_rb,1.0208e-02_rb,9.8199e-03_rb, &\n     &9.1852e-03_rb,8.2577e-03_rb,5.1301e-03_rb/)\n      kao(:, 2, 8, 8) = (/ &\n     &7.4182e-03_rb,9.6243e-03_rb,1.0349e-02_rb,1.0556e-02_rb,1.0419e-02_rb,1.0021e-02_rb, &\n     &9.3680e-03_rb,8.3968e-03_rb,5.1752e-03_rb/)\n      kao(:, 3, 8, 8) = (/ &\n     &7.6043e-03_rb,9.8546e-03_rb,1.0598e-02_rb,1.0777e-02_rb,1.0633e-02_rb,1.0249e-02_rb, &\n     &9.5676e-03_rb,8.5508e-03_rb,5.2269e-03_rb/)\n      kao(:, 4, 8, 8) = (/ &\n     &7.7980e-03_rb,1.0094e-02_rb,1.0836e-02_rb,1.1012e-02_rb,1.0870e-02_rb,1.0482e-02_rb, &\n     &9.7866e-03_rb,8.7162e-03_rb,5.2872e-03_rb/)\n      kao(:, 5, 8, 8) = (/ &\n     &8.0005e-03_rb,1.0352e-02_rb,1.1093e-02_rb,1.1272e-02_rb,1.1127e-02_rb,1.0726e-02_rb, &\n     &1.0012e-02_rb,8.8875e-03_rb,5.3638e-03_rb/)\n      kao(:, 1, 9, 8) = (/ &\n     &2.7897e-02_rb,2.8473e-02_rb,2.7594e-02_rb,2.5806e-02_rb,2.3354e-02_rb,2.0346e-02_rb, &\n     &1.6782e-02_rb,1.2341e-02_rb,4.1787e-03_rb/)\n      kao(:, 2, 9, 8) = (/ &\n     &2.8638e-02_rb,2.9187e-02_rb,2.8303e-02_rb,2.6475e-02_rb,2.3949e-02_rb,2.0857e-02_rb, &\n     &1.7181e-02_rb,1.2602e-02_rb,4.2128e-03_rb/)\n      kao(:, 3, 9, 8) = (/ &\n     &2.9413e-02_rb,2.9901e-02_rb,2.8994e-02_rb,2.7143e-02_rb,2.4571e-02_rb,2.1381e-02_rb, &\n     &1.7560e-02_rb,1.2888e-02_rb,4.2655e-03_rb/)\n      kao(:, 4, 9, 8) = (/ &\n     &3.0228e-02_rb,3.0665e-02_rb,2.9734e-02_rb,2.7828e-02_rb,2.5188e-02_rb,2.1923e-02_rb, &\n     &1.7970e-02_rb,1.3183e-02_rb,4.3190e-03_rb/)\n      kao(:, 5, 9, 8) = (/ &\n     &3.1084e-02_rb,3.1463e-02_rb,3.0494e-02_rb,2.8550e-02_rb,2.5844e-02_rb,2.2478e-02_rb, &\n     &1.8412e-02_rb,1.3496e-02_rb,4.3806e-03_rb/)\n      kao(:, 1,10, 8) = (/ &\n     &1.1962e-01_rb,1.0878e-01_rb,9.8349e-02_rb,8.6745e-02_rb,7.3912e-02_rb,5.9973e-02_rb, &\n     &4.4839e-02_rb,2.7943e-02_rb,4.7543e-03_rb/)\n      kao(:, 2,10, 8) = (/ &\n     &1.2315e-01_rb,1.1182e-01_rb,1.0110e-01_rb,8.9175e-02_rb,7.5937e-02_rb,6.1630e-02_rb, &\n     &4.6110e-02_rb,2.8679e-02_rb,4.8196e-03_rb/)\n      kao(:, 3,10, 8) = (/ &\n     &1.2693e-01_rb,1.1500e-01_rb,1.0391e-01_rb,9.1586e-02_rb,7.7974e-02_rb,6.3317e-02_rb, &\n     &4.7374e-02_rb,2.9424e-02_rb,4.8761e-03_rb/)\n      kao(:, 4,10, 8) = (/ &\n     &1.3084e-01_rb,1.1837e-01_rb,1.0689e-01_rb,9.4192e-02_rb,8.0184e-02_rb,6.5076e-02_rb, &\n     &4.8672e-02_rb,3.0173e-02_rb,4.8766e-03_rb/)\n      kao(:, 5,10, 8) = (/ &\n     &1.3499e-01_rb,1.2195e-01_rb,1.1004e-01_rb,9.6906e-02_rb,8.2479e-02_rb,6.6930e-02_rb, &\n     &4.9998e-02_rb,3.0984e-02_rb,4.9096e-03_rb/)\n      kao(:, 1,11, 8) = (/ &\n     &1.7854e-01_rb,1.6015e-01_rb,1.4269e-01_rb,1.2418e-01_rb,1.0441e-01_rb,8.3289e-02_rb, &\n     &6.0955e-02_rb,3.6472e-02_rb,5.4769e-03_rb/)\n      kao(:, 2,11, 8) = (/ &\n     &1.8442e-01_rb,1.6524e-01_rb,1.4721e-01_rb,1.2815e-01_rb,1.0771e-01_rb,8.5980e-02_rb, &\n     &6.2870e-02_rb,3.7580e-02_rb,5.4728e-03_rb/)\n      kao(:, 3,11, 8) = (/ &\n     &1.9077e-01_rb,1.7071e-01_rb,1.5197e-01_rb,1.3224e-01_rb,1.1114e-01_rb,8.8708e-02_rb, &\n     &6.4824e-02_rb,3.8654e-02_rb,5.4615e-03_rb/)\n      kao(:, 4,11, 8) = (/ &\n     &1.9746e-01_rb,1.7645e-01_rb,1.5699e-01_rb,1.3658e-01_rb,1.1475e-01_rb,9.1549e-02_rb, &\n     &6.6833e-02_rb,3.9764e-02_rb,5.4686e-03_rb/)\n      kao(:, 5,11, 8) = (/ &\n     &2.0452e-01_rb,1.8255e-01_rb,1.6232e-01_rb,1.4114e-01_rb,1.1852e-01_rb,9.4452e-02_rb, &\n     &6.8909e-02_rb,4.0947e-02_rb,5.4706e-03_rb/)\n      kao(:, 1,12, 8) = (/ &\n     &2.0120e-01_rb,1.7983e-01_rb,1.5919e-01_rb,1.3760e-01_rb,1.1465e-01_rb,9.0568e-02_rb, &\n     &6.5383e-02_rb,3.8355e-02_rb,5.7670e-03_rb/)\n      kao(:, 2,12, 8) = (/ &\n     &2.0757e-01_rb,1.8546e-01_rb,1.6435e-01_rb,1.4209e-01_rb,1.1843e-01_rb,9.3538e-02_rb, &\n     &6.7515e-02_rb,3.9583e-02_rb,5.7182e-03_rb/)\n      kao(:, 3,12, 8) = (/ &\n     &2.1449e-01_rb,1.9151e-01_rb,1.6961e-01_rb,1.4673e-01_rb,1.2244e-01_rb,9.6759e-02_rb, &\n     &6.9782e-02_rb,4.0857e-02_rb,5.7245e-03_rb/)\n      kao(:, 4,12, 8) = (/ &\n     &2.2222e-01_rb,1.9817e-01_rb,1.7542e-01_rb,1.5173e-01_rb,1.2653e-01_rb,1.0003e-01_rb, &\n     &7.2145e-02_rb,4.2184e-02_rb,5.7102e-03_rb/)\n      kao(:, 5,12, 8) = (/ &\n     &2.3023e-01_rb,2.0507e-01_rb,1.8144e-01_rb,1.5689e-01_rb,1.3087e-01_rb,1.0351e-01_rb, &\n     &7.4642e-02_rb,4.3620e-02_rb,5.7450e-03_rb/)\n      kao(:, 1,13, 8) = (/ &\n     &1.8448e-01_rb,1.6553e-01_rb,1.4649e-01_rb,1.2620e-01_rb,1.0471e-01_rb,8.2340e-02_rb, &\n     &5.9042e-02_rb,3.4367e-02_rb,5.6219e-03_rb/)\n      kao(:, 2,13, 8) = (/ &\n     &1.9034e-01_rb,1.7056e-01_rb,1.5103e-01_rb,1.3022e-01_rb,1.0811e-01_rb,8.5094e-02_rb, &\n     &6.1006e-02_rb,3.5479e-02_rb,5.5942e-03_rb/)\n      kao(:, 3,13, 8) = (/ &\n     &1.9658e-01_rb,1.7595e-01_rb,1.5589e-01_rb,1.3452e-01_rb,1.1170e-01_rb,8.7865e-02_rb, &\n     &6.2984e-02_rb,3.6599e-02_rb,5.6072e-03_rb/)\n      kao(:, 4,13, 8) = (/ &\n     &2.0338e-01_rb,1.8188e-01_rb,1.6115e-01_rb,1.3898e-01_rb,1.1533e-01_rb,9.0760e-02_rb, &\n     &6.5090e-02_rb,3.7803e-02_rb,5.6436e-03_rb/)\n      kao(:, 5,13, 8) = (/ &\n     &2.1087e-01_rb,1.8825e-01_rb,1.6661e-01_rb,1.4369e-01_rb,1.1939e-01_rb,9.3967e-02_rb, &\n     &6.7400e-02_rb,3.9148e-02_rb,5.6745e-03_rb/)\n      kao(:, 1, 1, 9) = (/ &\n     &9.4421e-04_rb,7.3440e-03_rb,1.3185e-02_rb,1.9434e-02_rb,2.5910e-02_rb,3.2531e-02_rb, &\n     &3.9377e-02_rb,4.6620e-02_rb,5.1571e-02_rb/)\n      kao(:, 2, 1, 9) = (/ &\n     &9.6482e-04_rb,7.2909e-03_rb,1.3109e-02_rb,1.9331e-02_rb,2.5776e-02_rb,3.2360e-02_rb, &\n     &3.9164e-02_rb,4.6323e-02_rb,5.1303e-02_rb/)\n      kao(:, 3, 1, 9) = (/ &\n     &9.8476e-04_rb,7.2409e-03_rb,1.3044e-02_rb,1.9248e-02_rb,2.5665e-02_rb,3.2216e-02_rb, &\n     &3.8981e-02_rb,4.6102e-02_rb,5.1082e-02_rb/)\n      kao(:, 4, 1, 9) = (/ &\n     &1.0020e-03_rb,7.1999e-03_rb,1.3010e-02_rb,1.9215e-02_rb,2.5618e-02_rb,3.2137e-02_rb, &\n     &3.8862e-02_rb,4.5932e-02_rb,5.0990e-02_rb/)\n      kao(:, 5, 1, 9) = (/ &\n     &1.0184e-03_rb,7.1770e-03_rb,1.3015e-02_rb,1.9243e-02_rb,2.5654e-02_rb,3.2165e-02_rb, &\n     &3.8858e-02_rb,4.5863e-02_rb,5.1066e-02_rb/)\n      kao(:, 1, 2, 9) = (/ &\n     &1.3462e-03_rb,8.0869e-03_rb,1.3393e-02_rb,1.9013e-02_rb,2.4987e-02_rb,3.1278e-02_rb, &\n     &3.7900e-02_rb,4.5296e-02_rb,4.9469e-02_rb/)\n      kao(:, 2, 2, 9) = (/ &\n     &1.3803e-03_rb,8.0241e-03_rb,1.3304e-02_rb,1.8903e-02_rb,2.4859e-02_rb,3.1123e-02_rb, &\n     &3.7707e-02_rb,4.5049e-02_rb,4.9230e-02_rb/)\n      kao(:, 3, 2, 9) = (/ &\n     &1.4130e-03_rb,7.9636e-03_rb,1.3235e-02_rb,1.8828e-02_rb,2.4777e-02_rb,3.1019e-02_rb, &\n     &3.7558e-02_rb,4.4839e-02_rb,4.9085e-02_rb/)\n      kao(:, 4, 2, 9) = (/ &\n     &1.4417e-03_rb,7.9144e-03_rb,1.3198e-02_rb,1.8807e-02_rb,2.4768e-02_rb,3.1006e-02_rb, &\n     &3.7513e-02_rb,4.4699e-02_rb,4.9090e-02_rb/)\n      kao(:, 5, 2, 9) = (/ &\n     &1.4672e-03_rb,7.8840e-03_rb,1.3197e-02_rb,1.8844e-02_rb,2.4841e-02_rb,3.1094e-02_rb, &\n     &3.7591e-02_rb,4.4701e-02_rb,4.9253e-02_rb/)\n      kao(:, 1, 3, 9) = (/ &\n     &2.5556e-03_rb,1.0082e-02_rb,1.5320e-02_rb,1.9920e-02_rb,2.4710e-02_rb,2.9907e-02_rb, &\n     &3.5684e-02_rb,4.2430e-02_rb,4.6609e-02_rb/)\n      kao(:, 2, 3, 9) = (/ &\n     &2.6284e-03_rb,1.0047e-02_rb,1.5209e-02_rb,1.9796e-02_rb,2.4582e-02_rb,2.9765e-02_rb, &\n     &3.5524e-02_rb,4.2220e-02_rb,4.6433e-02_rb/)\n      kao(:, 3, 3, 9) = (/ &\n     &2.6960e-03_rb,1.0006e-02_rb,1.5105e-02_rb,1.9696e-02_rb,2.4496e-02_rb,2.9686e-02_rb, &\n     &3.5446e-02_rb,4.2085e-02_rb,4.6365e-02_rb/)\n      kao(:, 4, 3, 9) = (/ &\n     &2.7589e-03_rb,9.9586e-03_rb,1.5035e-02_rb,1.9644e-02_rb,2.4475e-02_rb,2.9692e-02_rb, &\n     &3.5469e-02_rb,4.2071e-02_rb,4.6440e-02_rb/)\n      kao(:, 5, 3, 9) = (/ &\n     &2.8129e-03_rb,9.9196e-03_rb,1.4994e-02_rb,1.9639e-02_rb,2.4519e-02_rb,2.9788e-02_rb, &\n     &3.5597e-02_rb,4.2188e-02_rb,4.6642e-02_rb/)\n      kao(:, 1, 4, 9) = (/ &\n     &4.8937e-03_rb,1.3203e-02_rb,1.8921e-02_rb,2.3296e-02_rb,2.6924e-02_rb,3.0282e-02_rb, &\n     &3.4096e-02_rb,3.9071e-02_rb,4.3251e-02_rb/)\n      kao(:, 2, 4, 9) = (/ &\n     &5.0488e-03_rb,1.3226e-02_rb,1.8867e-02_rb,2.3170e-02_rb,2.6777e-02_rb,3.0147e-02_rb, &\n     &3.3963e-02_rb,3.8948e-02_rb,4.3159e-02_rb/)\n      kao(:, 3, 4, 9) = (/ &\n     &5.1910e-03_rb,1.3248e-02_rb,1.8795e-02_rb,2.3060e-02_rb,2.6655e-02_rb,3.0063e-02_rb, &\n     &3.3903e-02_rb,3.8899e-02_rb,4.3165e-02_rb/)\n      kao(:, 4, 4, 9) = (/ &\n     &5.3207e-03_rb,1.3268e-02_rb,1.8730e-02_rb,2.2981e-02_rb,2.6589e-02_rb,3.0040e-02_rb, &\n     &3.3930e-02_rb,3.8970e-02_rb,4.3287e-02_rb/)\n      kao(:, 5, 4, 9) = (/ &\n     &5.4422e-03_rb,1.3287e-02_rb,1.8693e-02_rb,2.2945e-02_rb,2.6576e-02_rb,3.0081e-02_rb, &\n     &3.4041e-02_rb,3.9135e-02_rb,4.3512e-02_rb/)\n      kao(:, 1, 5, 9) = (/ &\n     &8.5307e-03_rb,1.7183e-02_rb,2.3465e-02_rb,2.7970e-02_rb,3.1130e-02_rb,3.3358e-02_rb, &\n     &3.4774e-02_rb,3.6613e-02_rb,3.9589e-02_rb/)\n      kao(:, 2, 5, 9) = (/ &\n     &8.8245e-03_rb,1.7347e-02_rb,2.3508e-02_rb,2.7937e-02_rb,3.1047e-02_rb,3.3237e-02_rb, &\n     &3.4670e-02_rb,3.6530e-02_rb,3.9570e-02_rb/)\n      kao(:, 3, 5, 9) = (/ &\n     &9.0927e-03_rb,1.7496e-02_rb,2.3535e-02_rb,2.7881e-02_rb,3.0966e-02_rb,3.3147e-02_rb, &\n     &3.4603e-02_rb,3.6513e-02_rb,3.9628e-02_rb/)\n      kao(:, 4, 5, 9) = (/ &\n     &9.3371e-03_rb,1.7632e-02_rb,2.3559e-02_rb,2.7829e-02_rb,3.0920e-02_rb,3.3100e-02_rb, &\n     &3.4594e-02_rb,3.6581e-02_rb,3.9792e-02_rb/)\n      kao(:, 5, 5, 9) = (/ &\n     &9.5713e-03_rb,1.7760e-02_rb,2.3602e-02_rb,2.7816e-02_rb,3.0915e-02_rb,3.3109e-02_rb, &\n     &3.4648e-02_rb,3.6731e-02_rb,4.0039e-02_rb/)\n      kao(:, 1, 6, 9) = (/ &\n     &1.3837e-02_rb,2.2346e-02_rb,2.8803e-02_rb,3.3403e-02_rb,3.6375e-02_rb,3.7770e-02_rb, &\n     &3.7769e-02_rb,3.6158e-02_rb,3.5736e-02_rb/)\n      kao(:, 2, 6, 9) = (/ &\n     &1.4345e-02_rb,2.2684e-02_rb,2.9062e-02_rb,3.3523e-02_rb,3.6415e-02_rb,3.7748e-02_rb, &\n     &3.7698e-02_rb,3.6127e-02_rb,3.5788e-02_rb/)\n      kao(:, 3, 6, 9) = (/ &\n     &1.4814e-02_rb,2.3025e-02_rb,2.9297e-02_rb,3.3616e-02_rb,3.6414e-02_rb,3.7728e-02_rb, &\n     &3.7657e-02_rb,3.6132e-02_rb,3.5900e-02_rb/)\n      kao(:, 4, 6, 9) = (/ &\n     &1.5241e-02_rb,2.3333e-02_rb,2.9502e-02_rb,3.3707e-02_rb,3.6417e-02_rb,3.7743e-02_rb, &\n     &3.7671e-02_rb,3.6177e-02_rb,3.6086e-02_rb/)\n      kao(:, 5, 6, 9) = (/ &\n     &1.5643e-02_rb,2.3601e-02_rb,2.9688e-02_rb,3.3808e-02_rb,3.6468e-02_rb,3.7791e-02_rb, &\n     &3.7729e-02_rb,3.6273e-02_rb,3.6334e-02_rb/)\n      kao(:, 1, 7, 9) = (/ &\n     &2.3687e-02_rb,3.1230e-02_rb,3.7445e-02_rb,4.1636e-02_rb,4.4049e-02_rb,4.4684e-02_rb, &\n     &4.3161e-02_rb,3.8835e-02_rb,3.1866e-02_rb/)\n      kao(:, 2, 7, 9) = (/ &\n     &2.4610e-02_rb,3.1967e-02_rb,3.8037e-02_rb,4.2097e-02_rb,4.4354e-02_rb,4.4855e-02_rb, &\n     &4.3236e-02_rb,3.8850e-02_rb,3.1969e-02_rb/)\n      kao(:, 3, 7, 9) = (/ &\n     &2.5467e-02_rb,3.2639e-02_rb,3.8612e-02_rb,4.2519e-02_rb,4.4609e-02_rb,4.4967e-02_rb, &\n     &4.3302e-02_rb,3.8885e-02_rb,3.2129e-02_rb/)\n      kao(:, 4, 7, 9) = (/ &\n     &2.6267e-02_rb,3.3238e-02_rb,3.9137e-02_rb,4.2894e-02_rb,4.4845e-02_rb,4.5082e-02_rb, &\n     &4.3395e-02_rb,3.8965e-02_rb,3.2326e-02_rb/)\n      kao(:, 5, 7, 9) = (/ &\n     &2.6995e-02_rb,3.3786e-02_rb,3.9598e-02_rb,4.3239e-02_rb,4.5071e-02_rb,4.5249e-02_rb, &\n     &4.3527e-02_rb,3.9067e-02_rb,3.2557e-02_rb/)\n      kao(:, 1, 8, 9) = (/ &\n     &4.7920e-02_rb,5.2366e-02_rb,5.6749e-02_rb,5.9168e-02_rb,5.9712e-02_rb,5.8092e-02_rb, &\n     &5.3946e-02_rb,4.5783e-02_rb,2.8113e-02_rb/)\n      kao(:, 2, 8, 9) = (/ &\n     &4.9884e-02_rb,5.3965e-02_rb,5.8166e-02_rb,6.0347e-02_rb,6.0665e-02_rb,5.8786e-02_rb, &\n     &5.4351e-02_rb,4.5985e-02_rb,2.8254e-02_rb/)\n      kao(:, 3, 8, 9) = (/ &\n     &5.1719e-02_rb,5.5478e-02_rb,5.9448e-02_rb,6.1483e-02_rb,6.1565e-02_rb,5.9384e-02_rb, &\n     &5.4686e-02_rb,4.6159e-02_rb,2.8435e-02_rb/)\n      kao(:, 4, 8, 9) = (/ &\n     &5.3394e-02_rb,5.6807e-02_rb,6.0645e-02_rb,6.2509e-02_rb,6.2363e-02_rb,5.9916e-02_rb, &\n     &5.4999e-02_rb,4.6361e-02_rb,2.8611e-02_rb/)\n      kao(:, 5, 8, 9) = (/ &\n     &5.4964e-02_rb,5.7985e-02_rb,6.1688e-02_rb,6.3442e-02_rb,6.3043e-02_rb,6.0445e-02_rb, &\n     &5.5342e-02_rb,4.6592e-02_rb,2.8833e-02_rb/)\n      kao(:, 1, 9, 9) = (/ &\n     &1.8387e-01_rb,1.6808e-01_rb,1.5799e-01_rb,1.4671e-01_rb,1.3366e-01_rb,1.1828e-01_rb, &\n     &9.9590e-02_rb,7.4670e-02_rb,2.3960e-02_rb/)\n      kao(:, 2, 9, 9) = (/ &\n     &1.9171e-01_rb,1.7460e-01_rb,1.6351e-01_rb,1.5144e-01_rb,1.3758e-01_rb,1.2130e-01_rb, &\n     &1.0166e-01_rb,7.5740e-02_rb,2.4137e-02_rb/)\n      kao(:, 3, 9, 9) = (/ &\n     &1.9894e-01_rb,1.8065e-01_rb,1.6862e-01_rb,1.5587e-01_rb,1.4113e-01_rb,1.2411e-01_rb, &\n     &1.0364e-01_rb,7.6719e-02_rb,2.4294e-02_rb/)\n      kao(:, 4, 9, 9) = (/ &\n     &2.0563e-01_rb,1.8623e-01_rb,1.7319e-01_rb,1.5976e-01_rb,1.4435e-01_rb,1.2672e-01_rb, &\n     &1.0542e-01_rb,7.7598e-02_rb,2.4446e-02_rb/)\n      kao(:, 5, 9, 9) = (/ &\n     &2.1200e-01_rb,1.9152e-01_rb,1.7746e-01_rb,1.6330e-01_rb,1.4720e-01_rb,1.2898e-01_rb, &\n     &1.0699e-01_rb,7.8411e-02_rb,2.4664e-02_rb/)\n      kao(:, 1,10, 9) = (/ &\n     &7.9805e-01_rb,7.0103e-01_rb,6.0984e-01_rb,5.2274e-01_rb,4.3812e-01_rb,3.5220e-01_rb, &\n     &2.6270e-01_rb,1.6632e-01_rb,1.8620e-02_rb/)\n      kao(:, 2,10, 9) = (/ &\n     &8.3214e-01_rb,7.3068e-01_rb,6.3476e-01_rb,5.4295e-01_rb,4.5426e-01_rb,3.6461e-01_rb, &\n     &2.7128e-01_rb,1.7099e-01_rb,1.8699e-02_rb/)\n      kao(:, 3,10, 9) = (/ &\n     &8.6405e-01_rb,7.5844e-01_rb,6.5814e-01_rb,5.6198e-01_rb,4.6922e-01_rb,3.7620e-01_rb, &\n     &2.7918e-01_rb,1.7530e-01_rb,1.8761e-02_rb/)\n      kao(:, 4,10, 9) = (/ &\n     &8.9399e-01_rb,7.8448e-01_rb,6.8005e-01_rb,5.7978e-01_rb,4.8302e-01_rb,3.8668e-01_rb, &\n     &2.8631e-01_rb,1.7930e-01_rb,1.8825e-02_rb/)\n      kao(:, 5,10, 9) = (/ &\n     &9.2229e-01_rb,8.0909e-01_rb,7.0076e-01_rb,5.9657e-01_rb,4.9598e-01_rb,3.9642e-01_rb, &\n     &2.9286e-01_rb,1.8285e-01_rb,1.8959e-02_rb/)\n      kao(:, 1,11, 9) = (/ &\n     &1.2376e+00_rb,1.0851e+00_rb,9.3781e-01_rb,7.9479e-01_rb,6.5536e-01_rb,5.1636e-01_rb, &\n     &3.7350e-01_rb,2.2328e-01_rb,1.9046e-02_rb/)\n      kao(:, 2,11, 9) = (/ &\n     &1.2888e+00_rb,1.1296e+00_rb,9.7557e-01_rb,8.2566e-01_rb,6.7951e-01_rb,5.3467e-01_rb, &\n     &3.8601e-01_rb,2.3011e-01_rb,1.9117e-02_rb/)\n      kao(:, 3,11, 9) = (/ &\n     &1.3372e+00_rb,1.1719e+00_rb,1.0114e+00_rb,8.5500e-01_rb,7.0234e-01_rb,5.5187e-01_rb, &\n     &3.9765e-01_rb,2.3639e-01_rb,1.9165e-02_rb/)\n      kao(:, 4,11, 9) = (/ &\n     &1.3819e+00_rb,1.2109e+00_rb,1.0444e+00_rb,8.8194e-01_rb,7.2332e-01_rb,5.6752e-01_rb, &\n     &4.0827e-01_rb,2.4219e-01_rb,1.9058e-02_rb/)\n      kao(:, 5,11, 9) = (/ &\n     &1.4259e+00_rb,1.2494e+00_rb,1.0769e+00_rb,9.0854e-01_rb,7.4408e-01_rb,5.8286e-01_rb, &\n     &4.1859e-01_rb,2.4748e-01_rb,1.9067e-02_rb/)\n      kao(:, 1,12, 9) = (/ &\n     &1.4243e+00_rb,1.2488e+00_rb,1.0789e+00_rb,9.1317e-01_rb,7.5092e-01_rb,5.8812e-01_rb, &\n     &4.2112e-01_rb,2.4611e-01_rb,1.9872e-02_rb/)\n      kao(:, 2,12, 9) = (/ &\n     &1.4836e+00_rb,1.3004e+00_rb,1.1224e+00_rb,9.4876e-01_rb,7.7876e-01_rb,6.0917e-01_rb, &\n     &4.3528e-01_rb,2.5376e-01_rb,2.0064e-02_rb/)\n      kao(:, 3,12, 9) = (/ &\n     &1.5386e+00_rb,1.3484e+00_rb,1.1631e+00_rb,9.8199e-01_rb,8.0461e-01_rb,6.2868e-01_rb, &\n     &4.4843e-01_rb,2.6085e-01_rb,2.0179e-02_rb/)\n      kao(:, 4,12, 9) = (/ &\n     &1.5909e+00_rb,1.3940e+00_rb,1.2017e+00_rb,1.0136e+00_rb,8.2931e-01_rb,6.4713e-01_rb, &\n     &4.6088e-01_rb,2.6745e-01_rb,2.0157e-02_rb/)\n      kao(:, 5,12, 9) = (/ &\n     &1.6423e+00_rb,1.4388e+00_rb,1.2396e+00_rb,1.0446e+00_rb,8.5343e-01_rb,6.6506e-01_rb, &\n     &4.7297e-01_rb,2.7367e-01_rb,2.0135e-02_rb/)\n      kao(:, 1,13, 9) = (/ &\n     &1.3090e+00_rb,1.1487e+00_rb,9.9498e-01_rb,8.4529e-01_rb,6.9751e-01_rb,5.4690e-01_rb, &\n     &3.9201e-01_rb,2.2831e-01_rb,1.9648e-02_rb/)\n      kao(:, 2,13, 9) = (/ &\n     &1.3642e+00_rb,1.1967e+00_rb,1.0354e+00_rb,8.7822e-01_rb,7.2355e-01_rb,5.6643e-01_rb, &\n     &4.0528e-01_rb,2.3543e-01_rb,1.9783e-02_rb/)\n      kao(:, 3,13, 9) = (/ &\n     &1.4156e+00_rb,1.2415e+00_rb,1.0731e+00_rb,9.0892e-01_rb,7.4783e-01_rb,5.8491e-01_rb, &\n     &4.1788e-01_rb,2.4217e-01_rb,1.9878e-02_rb/)\n      kao(:, 4,13, 9) = (/ &\n     &1.4652e+00_rb,1.2846e+00_rb,1.1094e+00_rb,9.3863e-01_rb,7.7135e-01_rb,6.0268e-01_rb, &\n     &4.2988e-01_rb,2.4851e-01_rb,1.9864e-02_rb/)\n      kao(:, 5,13, 9) = (/ &\n     &1.5126e+00_rb,1.3260e+00_rb,1.1446e+00_rb,9.6741e-01_rb,7.9378e-01_rb,6.1968e-01_rb, &\n     &4.4123e-01_rb,2.5440e-01_rb,1.9877e-02_rb/)\n      kao(:, 1, 1,10) = (/ &\n     &3.3844e-03_rb,1.5864e-02_rb,3.0967e-02_rb,4.5960e-02_rb,6.0759e-02_rb,7.5076e-02_rb, &\n     &8.8299e-02_rb,9.7840e-02_rb,1.2109e-01_rb/)\n      kao(:, 2, 1,10) = (/ &\n     &3.3774e-03_rb,1.5840e-02_rb,3.0916e-02_rb,4.5912e-02_rb,6.0698e-02_rb,7.5010e-02_rb, &\n     &8.8211e-02_rb,9.7731e-02_rb,1.2099e-01_rb/)\n      kao(:, 3, 1,10) = (/ &\n     &3.3575e-03_rb,1.5844e-02_rb,3.0912e-02_rb,4.5937e-02_rb,6.0728e-02_rb,7.5022e-02_rb, &\n     &8.8124e-02_rb,9.7474e-02_rb,1.2106e-01_rb/)\n      kao(:, 4, 1,10) = (/ &\n     &3.3333e-03_rb,1.5824e-02_rb,3.0829e-02_rb,4.5838e-02_rb,6.0646e-02_rb,7.4990e-02_rb, &\n     &8.8084e-02_rb,9.7173e-02_rb,1.2089e-01_rb/)\n      kao(:, 5, 1,10) = (/ &\n     &3.3084e-03_rb,1.5776e-02_rb,3.0693e-02_rb,4.5649e-02_rb,6.0428e-02_rb,7.4773e-02_rb, &\n     &8.7909e-02_rb,9.6839e-02_rb,1.2042e-01_rb/)\n      kao(:, 1, 2,10) = (/ &\n     &5.1392e-03_rb,1.7464e-02_rb,3.2432e-02_rb,4.7915e-02_rb,6.3487e-02_rb,7.8847e-02_rb, &\n     &9.3621e-02_rb,1.0600e-01_rb,1.2635e-01_rb/)\n      kao(:, 2, 2,10) = (/ &\n     &5.1325e-03_rb,1.7471e-02_rb,3.2464e-02_rb,4.7934e-02_rb,6.3521e-02_rb,7.8889e-02_rb, &\n     &9.3606e-02_rb,1.0592e-01_rb,1.2642e-01_rb/)\n      kao(:, 3, 2,10) = (/ &\n     &5.1157e-03_rb,1.7466e-02_rb,3.2343e-02_rb,4.7787e-02_rb,6.3340e-02_rb,7.8722e-02_rb, &\n     &9.3575e-02_rb,1.0588e-01_rb,1.2605e-01_rb/)\n      kao(:, 4, 2,10) = (/ &\n     &5.0987e-03_rb,1.7399e-02_rb,3.2075e-02_rb,4.7428e-02_rb,6.2893e-02_rb,7.8221e-02_rb, &\n     &9.3145e-02_rb,1.0589e-01_rb,1.2513e-01_rb/)\n      kao(:, 5, 2,10) = (/ &\n     &5.0781e-03_rb,1.7287e-02_rb,3.1803e-02_rb,4.7068e-02_rb,6.2420e-02_rb,7.7655e-02_rb, &\n     &9.2528e-02_rb,1.0558e-01_rb,1.2418e-01_rb/)\n      kao(:, 1, 3,10) = (/ &\n     &1.0449e-02_rb,2.2920e-02_rb,3.5229e-02_rb,4.9841e-02_rb,6.5300e-02_rb,8.0993e-02_rb, &\n     &9.6715e-02_rb,1.1178e-01_rb,1.2900e-01_rb/)\n      kao(:, 2, 3,10) = (/ &\n     &1.0475e-02_rb,2.2840e-02_rb,3.5278e-02_rb,4.9881e-02_rb,6.5245e-02_rb,8.1037e-02_rb, &\n     &9.6863e-02_rb,1.1212e-01_rb,1.2899e-01_rb/)\n      kao(:, 3, 3,10) = (/ &\n     &1.0487e-02_rb,2.2756e-02_rb,3.5213e-02_rb,4.9645e-02_rb,6.4866e-02_rb,8.0649e-02_rb, &\n     &9.6451e-02_rb,1.1190e-01_rb,1.2830e-01_rb/)\n      kao(:, 4, 3,10) = (/ &\n     &1.0493e-02_rb,2.2711e-02_rb,3.4996e-02_rb,4.9204e-02_rb,6.4312e-02_rb,7.9994e-02_rb, &\n     &9.5693e-02_rb,1.1109e-01_rb,1.2723e-01_rb/)\n      kao(:, 5, 3,10) = (/ &\n     &1.0487e-02_rb,2.2599e-02_rb,3.4737e-02_rb,4.8786e-02_rb,6.3856e-02_rb,7.9443e-02_rb, &\n     &9.5024e-02_rb,1.1021e-01_rb,1.2638e-01_rb/)\n      kao(:, 1, 4,10) = (/ &\n     &2.1474e-02_rb,3.4011e-02_rb,4.5615e-02_rb,5.6742e-02_rb,6.8329e-02_rb,8.2791e-02_rb, &\n     &9.7759e-02_rb,1.1367e-01_rb,1.2934e-01_rb/)\n      kao(:, 2, 4,10) = (/ &\n     &2.1593e-02_rb,3.3751e-02_rb,4.5521e-02_rb,5.6645e-02_rb,6.8211e-02_rb,8.2434e-02_rb, &\n     &9.7517e-02_rb,1.1348e-01_rb,1.2896e-01_rb/)\n      kao(:, 3, 4,10) = (/ &\n     &2.1694e-02_rb,3.3429e-02_rb,4.5406e-02_rb,5.6399e-02_rb,6.7862e-02_rb,8.1741e-02_rb, &\n     &9.6866e-02_rb,1.1284e-01_rb,1.2803e-01_rb/)\n      kao(:, 4, 4,10) = (/ &\n     &2.1761e-02_rb,3.3088e-02_rb,4.5200e-02_rb,5.5990e-02_rb,6.7313e-02_rb,8.0951e-02_rb, &\n     &9.6103e-02_rb,1.1192e-01_rb,1.2712e-01_rb/)\n      kao(:, 5, 4,10) = (/ &\n     &2.1871e-02_rb,3.2779e-02_rb,4.4802e-02_rb,5.5607e-02_rb,6.6864e-02_rb,8.0377e-02_rb, &\n     &9.5554e-02_rb,1.1124e-01_rb,1.2647e-01_rb/)\n      kao(:, 1, 5,10) = (/ &\n     &3.9770e-02_rb,5.1894e-02_rb,6.3327e-02_rb,7.2180e-02_rb,8.0917e-02_rb,8.8056e-02_rb, &\n     &9.8598e-02_rb,1.1206e-01_rb,1.2671e-01_rb/)\n      kao(:, 2, 5,10) = (/ &\n     &4.0140e-02_rb,5.1409e-02_rb,6.3212e-02_rb,7.2060e-02_rb,8.0506e-02_rb,8.7647e-02_rb, &\n     &9.8026e-02_rb,1.1163e-01_rb,1.2617e-01_rb/)\n      kao(:, 3, 5,10) = (/ &\n     &4.0492e-02_rb,5.0925e-02_rb,6.2882e-02_rb,7.1952e-02_rb,8.0008e-02_rb,8.6965e-02_rb, &\n     &9.7225e-02_rb,1.1094e-01_rb,1.2542e-01_rb/)\n      kao(:, 4, 5,10) = (/ &\n     &4.0826e-02_rb,5.0532e-02_rb,6.2408e-02_rb,7.1612e-02_rb,7.9337e-02_rb,8.6238e-02_rb, &\n     &9.6327e-02_rb,1.1019e-01_rb,1.2470e-01_rb/)\n      kao(:, 5, 5,10) = (/ &\n     &4.1162e-02_rb,5.0261e-02_rb,6.1890e-02_rb,7.0980e-02_rb,7.8777e-02_rb,8.5713e-02_rb, &\n     &9.5778e-02_rb,1.0986e-01_rb,1.2449e-01_rb/)\n      kao(:, 1, 6,10) = (/ &\n     &6.7916e-02_rb,7.7649e-02_rb,8.9172e-02_rb,9.6900e-02_rb,1.0149e-01_rb,1.0503e-01_rb, &\n     &1.0523e-01_rb,1.0994e-01_rb,1.2156e-01_rb/)\n      kao(:, 2, 6,10) = (/ &\n     &6.8757e-02_rb,7.7814e-02_rb,8.8891e-02_rb,9.7030e-02_rb,1.0144e-01_rb,1.0468e-01_rb, &\n     &1.0479e-01_rb,1.0906e-01_rb,1.2102e-01_rb/)\n      kao(:, 3, 6,10) = (/ &\n     &6.9572e-02_rb,7.7629e-02_rb,8.8407e-02_rb,9.6716e-02_rb,1.0124e-01_rb,1.0403e-01_rb, &\n     &1.0408e-01_rb,1.0810e-01_rb,1.2040e-01_rb/)\n      kao(:, 4, 6,10) = (/ &\n     &7.0420e-02_rb,7.7345e-02_rb,8.8011e-02_rb,9.6134e-02_rb,1.0079e-01_rb,1.0305e-01_rb, &\n     &1.0321e-01_rb,1.0749e-01_rb,1.2017e-01_rb/)\n      kao(:, 5, 6,10) = (/ &\n     &7.1176e-02_rb,7.7213e-02_rb,8.7761e-02_rb,9.5353e-02_rb,9.9879e-02_rb,1.0215e-01_rb, &\n     &1.0265e-01_rb,1.0733e-01_rb,1.2038e-01_rb/)\n      kao(:, 1, 7,10) = (/ &\n     &1.2127e-01_rb,1.2412e-01_rb,1.3217e-01_rb,1.3765e-01_rb,1.3951e-01_rb,1.3625e-01_rb, &\n     &1.2814e-01_rb,1.1487e-01_rb,1.1426e-01_rb/)\n      kao(:, 2, 7,10) = (/ &\n     &1.2309e-01_rb,1.2453e-01_rb,1.3252e-01_rb,1.3798e-01_rb,1.3976e-01_rb,1.3644e-01_rb, &\n     &1.2796e-01_rb,1.1426e-01_rb,1.1391e-01_rb/)\n      kao(:, 3, 7,10) = (/ &\n     &1.2489e-01_rb,1.2494e-01_rb,1.3228e-01_rb,1.3764e-01_rb,1.3951e-01_rb,1.3625e-01_rb, &\n     &1.2756e-01_rb,1.1350e-01_rb,1.1349e-01_rb/)\n      kao(:, 4, 7,10) = (/ &\n     &1.2680e-01_rb,1.2557e-01_rb,1.3198e-01_rb,1.3739e-01_rb,1.3886e-01_rb,1.3552e-01_rb, &\n     &1.2649e-01_rb,1.1282e-01_rb,1.1362e-01_rb/)\n      kao(:, 5, 7,10) = (/ &\n     &1.2852e-01_rb,1.2615e-01_rb,1.3199e-01_rb,1.3726e-01_rb,1.3802e-01_rb,1.3430e-01_rb, &\n     &1.2550e-01_rb,1.1257e-01_rb,1.1419e-01_rb/)\n      kao(:, 1, 8,10) = (/ &\n     &2.5214e-01_rb,2.3134e-01_rb,2.3152e-01_rb,2.2506e-01_rb,2.1543e-01_rb,2.0242e-01_rb, &\n     &1.8079e-01_rb,1.4566e-01_rb,1.0565e-01_rb/)\n      kao(:, 2, 8,10) = (/ &\n     &2.5695e-01_rb,2.3363e-01_rb,2.3275e-01_rb,2.2604e-01_rb,2.1637e-01_rb,2.0282e-01_rb, &\n     &1.8105e-01_rb,1.4554e-01_rb,1.0546e-01_rb/)\n      kao(:, 3, 8,10) = (/ &\n     &2.6176e-01_rb,2.3588e-01_rb,2.3395e-01_rb,2.2621e-01_rb,2.1636e-01_rb,2.0257e-01_rb, &\n     &1.8076e-01_rb,1.4513e-01_rb,1.0533e-01_rb/)\n      kao(:, 4, 8,10) = (/ &\n     &2.6651e-01_rb,2.3871e-01_rb,2.3539e-01_rb,2.2647e-01_rb,2.1633e-01_rb,2.0229e-01_rb, &\n     &1.8002e-01_rb,1.4419e-01_rb,1.0597e-01_rb/)\n      kao(:, 5, 8,10) = (/ &\n     &2.7042e-01_rb,2.4131e-01_rb,2.3677e-01_rb,2.2700e-01_rb,2.1683e-01_rb,2.0167e-01_rb, &\n     &1.7891e-01_rb,1.4342e-01_rb,1.0666e-01_rb/)\n      kao(:, 1, 9,10) = (/ &\n     &9.7736e-01_rb,8.5726e-01_rb,7.4530e-01_rb,6.6330e-01_rb,5.7895e-01_rb,4.8711e-01_rb, &\n     &3.8944e-01_rb,2.7986e-01_rb,9.6120e-02_rb/)\n      kao(:, 2, 9,10) = (/ &\n     &1.0005e+00_rb,8.7740e-01_rb,7.5935e-01_rb,6.7173e-01_rb,5.8495e-01_rb,4.9078e-01_rb, &\n     &3.9206e-01_rb,2.8024e-01_rb,9.6028e-02_rb/)\n      kao(:, 3, 9,10) = (/ &\n     &1.0238e+00_rb,8.9765e-01_rb,7.7412e-01_rb,6.7963e-01_rb,5.9056e-01_rb,4.9392e-01_rb, &\n     &3.9381e-01_rb,2.7971e-01_rb,9.6387e-02_rb/)\n      kao(:, 4, 9,10) = (/ &\n     &1.0459e+00_rb,9.1704e-01_rb,7.8954e-01_rb,6.8917e-01_rb,5.9755e-01_rb,4.9657e-01_rb, &\n     &3.9497e-01_rb,2.7927e-01_rb,9.7373e-02_rb/)\n      kao(:, 5, 9,10) = (/ &\n     &1.0630e+00_rb,9.3201e-01_rb,8.0170e-01_rb,6.9634e-01_rb,6.0306e-01_rb,4.9955e-01_rb, &\n     &3.9651e-01_rb,2.7910e-01_rb,9.7962e-02_rb/)\n      kao(:, 1,10,10) = (/ &\n     &4.2057e+00_rb,3.6817e+00_rb,3.1579e+00_rb,2.6346e+00_rb,2.1198e+00_rb,1.6450e+00_rb, &\n     &1.1902e+00_rb,7.0817e-01_rb,7.8303e-02_rb/)\n      kao(:, 2,10,10) = (/ &\n     &4.3277e+00_rb,3.7881e+00_rb,3.2491e+00_rb,2.7104e+00_rb,2.1754e+00_rb,1.6774e+00_rb, &\n     &1.2094e+00_rb,7.1654e-01_rb,7.8798e-02_rb/)\n      kao(:, 3,10,10) = (/ &\n     &4.4500e+00_rb,3.8956e+00_rb,3.3411e+00_rb,2.7869e+00_rb,2.2338e+00_rb,1.7120e+00_rb, &\n     &1.2289e+00_rb,7.2324e-01_rb,7.8857e-02_rb/)\n      kao(:, 4,10,10) = (/ &\n     &4.5562e+00_rb,3.9883e+00_rb,3.4205e+00_rb,2.8532e+00_rb,2.2862e+00_rb,1.7446e+00_rb, &\n     &1.2492e+00_rb,7.3045e-01_rb,7.9497e-02_rb/)\n      kao(:, 5,10,10) = (/ &\n     &4.6429e+00_rb,4.0644e+00_rb,3.4858e+00_rb,2.9077e+00_rb,2.3298e+00_rb,1.7714e+00_rb, &\n     &1.2652e+00_rb,7.3636e-01_rb,7.8315e-02_rb/)\n      kao(:, 1,11,10) = (/ &\n     &6.3643e+00_rb,5.5702e+00_rb,4.7761e+00_rb,3.9823e+00_rb,3.1901e+00_rb,2.4267e+00_rb, &\n     &1.7139e+00_rb,9.8175e-01_rb,5.2396e-02_rb/)\n      kao(:, 2,11,10) = (/ &\n     &6.5707e+00_rb,5.7511e+00_rb,4.9312e+00_rb,4.1117e+00_rb,3.2928e+00_rb,2.4948e+00_rb, &\n     &1.7532e+00_rb,9.9614e-01_rb,5.2761e-02_rb/)\n      kao(:, 3,11,10) = (/ &\n     &6.7598e+00_rb,5.9160e+00_rb,5.0729e+00_rb,4.2301e+00_rb,3.3876e+00_rb,2.5590e+00_rb, &\n     &1.7914e+00_rb,1.0123e+00_rb,5.3574e-02_rb/)\n      kao(:, 4,11,10) = (/ &\n     &6.9211e+00_rb,6.0577e+00_rb,5.1942e+00_rb,4.3313e+00_rb,3.4687e+00_rb,2.6150e+00_rb, &\n     &1.8227e+00_rb,1.0262e+00_rb,5.6608e-02_rb/)\n      kao(:, 5,11,10) = (/ &\n     &7.0466e+00_rb,6.1673e+00_rb,5.2885e+00_rb,4.4096e+00_rb,3.5315e+00_rb,2.6584e+00_rb, &\n     &1.8463e+00_rb,1.0382e+00_rb,5.6583e-02_rb/)\n      kao(:, 1,12,10) = (/ &\n     &7.1591e+00_rb,6.2650e+00_rb,5.3715e+00_rb,4.4783e+00_rb,3.5872e+00_rb,2.7305e+00_rb, &\n     &1.9173e+00_rb,1.0829e+00_rb,5.4364e-02_rb/)\n      kao(:, 2,12,10) = (/ &\n     &7.3899e+00_rb,6.4678e+00_rb,5.5455e+00_rb,4.6234e+00_rb,3.7023e+00_rb,2.8086e+00_rb, &\n     &1.9670e+00_rb,1.1039e+00_rb,5.3004e-02_rb/)\n      kao(:, 3,12,10) = (/ &\n     &7.5932e+00_rb,6.6457e+00_rb,5.6978e+00_rb,4.7509e+00_rb,3.8044e+00_rb,2.8774e+00_rb, &\n     &2.0093e+00_rb,1.1228e+00_rb,5.1959e-02_rb/)\n      kao(:, 4,12,10) = (/ &\n     &7.7612e+00_rb,6.7925e+00_rb,5.8241e+00_rb,4.8562e+00_rb,3.8890e+00_rb,2.9344e+00_rb, &\n     &2.0429e+00_rb,1.1393e+00_rb,5.3174e-02_rb/)\n      kao(:, 5,12,10) = (/ &\n     &7.8969e+00_rb,6.9118e+00_rb,5.9263e+00_rb,4.9415e+00_rb,3.9571e+00_rb,2.9804e+00_rb, &\n     &2.0685e+00_rb,1.1516e+00_rb,5.1704e-02_rb/)\n      kao(:, 1,13,10) = (/ &\n     &6.4705e+00_rb,5.6627e+00_rb,4.8551e+00_rb,4.0480e+00_rb,3.2529e+00_rb,2.5042e+00_rb, &\n     &1.7607e+00_rb,9.9775e-01_rb,5.2819e-02_rb/)\n      kao(:, 2,13,10) = (/ &\n     &6.6649e+00_rb,5.8328e+00_rb,5.0012e+00_rb,4.1701e+00_rb,3.3469e+00_rb,2.5698e+00_rb, &\n     &1.8026e+00_rb,1.0186e+00_rb,5.2318e-02_rb/)\n      kao(:, 3,13,10) = (/ &\n     &6.8320e+00_rb,5.9796e+00_rb,5.1272e+00_rb,4.2755e+00_rb,3.4276e+00_rb,2.6233e+00_rb, &\n     &1.8383e+00_rb,1.0369e+00_rb,5.1248e-02_rb/)\n      kao(:, 4,13,10) = (/ &\n     &6.9674e+00_rb,6.0982e+00_rb,5.2289e+00_rb,4.3604e+00_rb,3.4933e+00_rb,2.6647e+00_rb, &\n     &1.8662e+00_rb,1.0505e+00_rb,5.2356e-02_rb/)\n      kao(:, 5,13,10) = (/ &\n     &7.0874e+00_rb,6.2027e+00_rb,5.3188e+00_rb,4.4355e+00_rb,3.5528e+00_rb,2.7014e+00_rb, &\n     &1.8899e+00_rb,1.0614e+00_rb,5.1111e-02_rb/)\n      kao(:, 1, 1,11) = (/ &\n     &4.6742e-03_rb,2.0279e-02_rb,3.9426e-02_rb,5.8543e-02_rb,7.7272e-02_rb,9.5241e-02_rb, &\n     &1.1148e-01_rb,1.2235e-01_rb,1.5408e-01_rb/)\n      kao(:, 2, 1,11) = (/ &\n     &4.6073e-03_rb,2.0296e-02_rb,3.9412e-02_rb,5.8523e-02_rb,7.7232e-02_rb,9.5132e-02_rb, &\n     &1.1121e-01_rb,1.2184e-01_rb,1.5399e-01_rb/)\n      kao(:, 3, 1,11) = (/ &\n     &4.5565e-03_rb,2.0227e-02_rb,3.9298e-02_rb,5.8356e-02_rb,7.7038e-02_rb,9.4961e-02_rb, &\n     &1.1109e-01_rb,1.2151e-01_rb,1.5359e-01_rb/)\n      kao(:, 4, 1,11) = (/ &\n     &4.5047e-03_rb,2.0130e-02_rb,3.9180e-02_rb,5.8173e-02_rb,7.6772e-02_rb,9.4618e-02_rb, &\n     &1.1074e-01_rb,1.2134e-01_rb,1.5306e-01_rb/)\n      kao(:, 5, 1,11) = (/ &\n     &4.4540e-03_rb,2.0027e-02_rb,3.9084e-02_rb,5.8025e-02_rb,7.6535e-02_rb,9.4251e-02_rb, &\n     &1.1025e-01_rb,1.2116e-01_rb,1.5260e-01_rb/)\n      kao(:, 1, 2,11) = (/ &\n     &7.4064e-03_rb,2.2194e-02_rb,4.1767e-02_rb,6.1911e-02_rb,8.1938e-02_rb,1.0155e-01_rb, &\n     &1.2014e-01_rb,1.3485e-01_rb,1.6319e-01_rb/)\n      kao(:, 2, 2,11) = (/ &\n     &7.3108e-03_rb,2.2143e-02_rb,4.1684e-02_rb,6.1877e-02_rb,8.1902e-02_rb,1.0152e-01_rb, &\n     &1.2013e-01_rb,1.3472e-01_rb,1.6312e-01_rb/)\n      kao(:, 3, 2,11) = (/ &\n     &7.2232e-03_rb,2.2079e-02_rb,4.1677e-02_rb,6.1891e-02_rb,8.1918e-02_rb,1.0151e-01_rb, &\n     &1.1999e-01_rb,1.3454e-01_rb,1.6316e-01_rb/)\n      kao(:, 4, 2,11) = (/ &\n     &7.1304e-03_rb,2.2033e-02_rb,4.1736e-02_rb,6.1998e-02_rb,8.2035e-02_rb,1.0158e-01_rb, &\n     &1.1988e-01_rb,1.3411e-01_rb,1.6341e-01_rb/)\n      kao(:, 5, 2,11) = (/ &\n     &7.0357e-03_rb,2.1988e-02_rb,4.1742e-02_rb,6.2041e-02_rb,8.2077e-02_rb,1.0158e-01_rb, &\n     &1.1983e-01_rb,1.3366e-01_rb,1.6350e-01_rb/)\n      kao(:, 1, 3,11) = (/ &\n     &1.5774e-02_rb,2.9169e-02_rb,4.5962e-02_rb,6.5827e-02_rb,8.6496e-02_rb,1.0742e-01_rb, &\n     &1.2791e-01_rb,1.4653e-01_rb,1.7156e-01_rb/)\n      kao(:, 2, 3,11) = (/ &\n     &1.5614e-02_rb,2.8989e-02_rb,4.5846e-02_rb,6.5612e-02_rb,8.6438e-02_rb,1.0734e-01_rb, &\n     &1.2776e-01_rb,1.4623e-01_rb,1.7149e-01_rb/)\n      kao(:, 3, 3,11) = (/ &\n     &1.5422e-02_rb,2.8825e-02_rb,4.5777e-02_rb,6.5531e-02_rb,8.6532e-02_rb,1.0747e-01_rb, &\n     &1.2790e-01_rb,1.4632e-01_rb,1.7170e-01_rb/)\n      kao(:, 4, 3,11) = (/ &\n     &1.5220e-02_rb,2.8664e-02_rb,4.5718e-02_rb,6.5531e-02_rb,8.6682e-02_rb,1.0768e-01_rb, &\n     &1.2815e-01_rb,1.4661e-01_rb,1.7201e-01_rb/)\n      kao(:, 5, 3,11) = (/ &\n     &1.5041e-02_rb,2.8491e-02_rb,4.5554e-02_rb,6.5387e-02_rb,8.6561e-02_rb,1.0758e-01_rb, &\n     &1.2814e-01_rb,1.4679e-01_rb,1.7174e-01_rb/)\n      kao(:, 1, 4,11) = (/ &\n     &3.3773e-02_rb,4.4438e-02_rb,5.9281e-02_rb,7.3962e-02_rb,9.2405e-02_rb,1.1202e-01_rb, &\n     &1.3347e-01_rb,1.5431e-01_rb,1.7769e-01_rb/)\n      kao(:, 2, 4,11) = (/ &\n     &3.3523e-02_rb,4.4307e-02_rb,5.8961e-02_rb,7.3730e-02_rb,9.2117e-02_rb,1.1213e-01_rb, &\n     &1.3369e-01_rb,1.5450e-01_rb,1.7797e-01_rb/)\n      kao(:, 3, 4,11) = (/ &\n     &3.3236e-02_rb,4.4011e-02_rb,5.8687e-02_rb,7.3516e-02_rb,9.1754e-02_rb,1.1213e-01_rb, &\n     &1.3376e-01_rb,1.5472e-01_rb,1.7805e-01_rb/)\n      kao(:, 4, 4,11) = (/ &\n     &3.2927e-02_rb,4.3662e-02_rb,5.8418e-02_rb,7.3212e-02_rb,9.1231e-02_rb,1.1190e-01_rb, &\n     &1.3353e-01_rb,1.5459e-01_rb,1.7761e-01_rb/)\n      kao(:, 5, 4,11) = (/ &\n     &3.2628e-02_rb,4.3294e-02_rb,5.8201e-02_rb,7.2680e-02_rb,9.0434e-02_rb,1.1128e-01_rb, &\n     &1.3281e-01_rb,1.5389e-01_rb,1.7655e-01_rb/)\n      kao(:, 1, 5,11) = (/ &\n     &6.5323e-02_rb,7.2628e-02_rb,8.3508e-02_rb,9.5963e-02_rb,1.0655e-01_rb,1.2020e-01_rb, &\n     &1.3782e-01_rb,1.5923e-01_rb,1.8200e-01_rb/)\n      kao(:, 2, 5,11) = (/ &\n     &6.5064e-02_rb,7.2406e-02_rb,8.3203e-02_rb,9.5444e-02_rb,1.0632e-01_rb,1.1979e-01_rb, &\n     &1.3760e-01_rb,1.5925e-01_rb,1.8207e-01_rb/)\n      kao(:, 3, 5,11) = (/ &\n     &6.4756e-02_rb,7.1969e-02_rb,8.2862e-02_rb,9.4908e-02_rb,1.0590e-01_rb,1.1930e-01_rb, &\n     &1.3724e-01_rb,1.5904e-01_rb,1.8162e-01_rb/)\n      kao(:, 4, 5,11) = (/ &\n     &6.4304e-02_rb,7.1135e-02_rb,8.2400e-02_rb,9.4416e-02_rb,1.0531e-01_rb,1.1853e-01_rb, &\n     &1.3656e-01_rb,1.5838e-01_rb,1.8061e-01_rb/)\n      kao(:, 5, 5,11) = (/ &\n     &6.3847e-02_rb,7.0072e-02_rb,8.1806e-02_rb,9.3969e-02_rb,1.0427e-01_rb,1.1735e-01_rb, &\n     &1.3557e-01_rb,1.5724e-01_rb,1.7920e-01_rb/)\n      kao(:, 1, 6,11) = (/ &\n     &1.1614e-01_rb,1.1612e-01_rb,1.2461e-01_rb,1.3093e-01_rb,1.3774e-01_rb,1.4186e-01_rb, &\n     &1.4765e-01_rb,1.6150e-01_rb,1.8364e-01_rb/)\n      kao(:, 2, 6,11) = (/ &\n     &1.1619e-01_rb,1.1550e-01_rb,1.2387e-01_rb,1.3036e-01_rb,1.3714e-01_rb,1.4135e-01_rb, &\n     &1.4700e-01_rb,1.6131e-01_rb,1.8335e-01_rb/)\n      kao(:, 3, 6,11) = (/ &\n     &1.1615e-01_rb,1.1477e-01_rb,1.2280e-01_rb,1.2991e-01_rb,1.3667e-01_rb,1.4072e-01_rb, &\n     &1.4596e-01_rb,1.6062e-01_rb,1.8242e-01_rb/)\n      kao(:, 4, 6,11) = (/ &\n     &1.1574e-01_rb,1.1387e-01_rb,1.2156e-01_rb,1.2938e-01_rb,1.3597e-01_rb,1.3977e-01_rb, &\n     &1.4470e-01_rb,1.5943e-01_rb,1.8095e-01_rb/)\n      kao(:, 5, 6,11) = (/ &\n     &1.1520e-01_rb,1.1286e-01_rb,1.2034e-01_rb,1.2877e-01_rb,1.3515e-01_rb,1.3854e-01_rb, &\n     &1.4325e-01_rb,1.5816e-01_rb,1.7948e-01_rb/)\n      kao(:, 1, 7,11) = (/ &\n     &2.1510e-01_rb,1.9619e-01_rb,2.0174e-01_rb,1.9935e-01_rb,1.9475e-01_rb,1.8847e-01_rb, &\n     &1.8001e-01_rb,1.6816e-01_rb,1.8086e-01_rb/)\n      kao(:, 2, 7,11) = (/ &\n     &2.1625e-01_rb,1.9617e-01_rb,2.0091e-01_rb,1.9825e-01_rb,1.9429e-01_rb,1.8801e-01_rb, &\n     &1.7902e-01_rb,1.6736e-01_rb,1.8038e-01_rb/)\n      kao(:, 3, 7,11) = (/ &\n     &2.1700e-01_rb,1.9569e-01_rb,1.9979e-01_rb,1.9686e-01_rb,1.9372e-01_rb,1.8767e-01_rb, &\n     &1.7767e-01_rb,1.6608e-01_rb,1.7932e-01_rb/)\n      kao(:, 4, 7,11) = (/ &\n     &2.1676e-01_rb,1.9471e-01_rb,1.9847e-01_rb,1.9536e-01_rb,1.9293e-01_rb,1.8720e-01_rb, &\n     &1.7635e-01_rb,1.6450e-01_rb,1.7799e-01_rb/)\n      kao(:, 5, 7,11) = (/ &\n     &2.1625e-01_rb,1.9358e-01_rb,1.9672e-01_rb,1.9373e-01_rb,1.9213e-01_rb,1.8631e-01_rb, &\n     &1.7483e-01_rb,1.6262e-01_rb,1.7662e-01_rb/)\n      kao(:, 1, 8,11) = (/ &\n     &4.6382e-01_rb,4.0807e-01_rb,3.7899e-01_rb,3.5840e-01_rb,3.2915e-01_rb,2.9613e-01_rb, &\n     &2.5854e-01_rb,2.1154e-01_rb,1.7388e-01_rb/)\n      kao(:, 2, 8,11) = (/ &\n     &4.6803e-01_rb,4.1204e-01_rb,3.7966e-01_rb,3.5758e-01_rb,3.2785e-01_rb,2.9605e-01_rb, &\n     &2.5875e-01_rb,2.1026e-01_rb,1.7332e-01_rb/)\n      kao(:, 3, 8,11) = (/ &\n     &4.7076e-01_rb,4.1406e-01_rb,3.7922e-01_rb,3.5601e-01_rb,3.2603e-01_rb,2.9561e-01_rb, &\n     &2.5861e-01_rb,2.0864e-01_rb,1.7242e-01_rb/)\n      kao(:, 4, 8,11) = (/ &\n     &4.7155e-01_rb,4.1450e-01_rb,3.7727e-01_rb,3.5413e-01_rb,3.2392e-01_rb,2.9447e-01_rb, &\n     &2.5827e-01_rb,2.0694e-01_rb,1.7120e-01_rb/)\n      kao(:, 5, 8,11) = (/ &\n     &4.7233e-01_rb,4.1516e-01_rb,3.7581e-01_rb,3.5208e-01_rb,3.2176e-01_rb,2.9332e-01_rb, &\n     &2.5728e-01_rb,2.0514e-01_rb,1.7042e-01_rb/)\n      kao(:, 1, 9,11) = (/ &\n     &1.8678e+00_rb,1.6362e+00_rb,1.4048e+00_rb,1.1793e+00_rb,9.9438e-01_rb,8.2136e-01_rb, &\n     &6.2834e-01_rb,4.2034e-01_rb,1.6334e-01_rb/)\n      kao(:, 2, 9,11) = (/ &\n     &1.8906e+00_rb,1.6563e+00_rb,1.4224e+00_rb,1.1919e+00_rb,9.9937e-01_rb,8.2259e-01_rb, &\n     &6.2713e-01_rb,4.2292e-01_rb,1.6311e-01_rb/)\n      kao(:, 3, 9,11) = (/ &\n     &1.9044e+00_rb,1.6682e+00_rb,1.4321e+00_rb,1.1983e+00_rb,1.0002e+00_rb,8.2124e-01_rb, &\n     &6.2419e-01_rb,4.2359e-01_rb,1.6249e-01_rb/)\n      kao(:, 4, 9,11) = (/ &\n     &1.9121e+00_rb,1.6748e+00_rb,1.4376e+00_rb,1.2016e+00_rb,9.9779e-01_rb,8.1901e-01_rb, &\n     &6.2159e-01_rb,4.2327e-01_rb,1.6166e-01_rb/)\n      kao(:, 5, 9,11) = (/ &\n     &1.9224e+00_rb,1.6839e+00_rb,1.4454e+00_rb,1.2078e+00_rb,9.9866e-01_rb,8.1827e-01_rb, &\n     &6.1893e-01_rb,4.2245e-01_rb,1.6163e-01_rb/)\n      kao(:, 1,10,11) = (/ &\n     &8.3490e+00_rb,7.3068e+00_rb,6.2652e+00_rb,5.2233e+00_rb,4.1816e+00_rb,3.1407e+00_rb, &\n     &2.1527e+00_rb,1.2369e+00_rb,1.2697e-01_rb/)\n      kao(:, 2,10,11) = (/ &\n     &8.4604e+00_rb,7.4045e+00_rb,6.3492e+00_rb,5.2936e+00_rb,4.2378e+00_rb,3.1825e+00_rb, &\n     &2.1701e+00_rb,1.2392e+00_rb,1.2746e-01_rb/)\n      kao(:, 3,10,11) = (/ &\n     &8.5299e+00_rb,7.4655e+00_rb,6.4008e+00_rb,5.3364e+00_rb,4.2721e+00_rb,3.2084e+00_rb, &\n     &2.1800e+00_rb,1.2385e+00_rb,1.2876e-01_rb/)\n      kao(:, 4,10,11) = (/ &\n     &8.6037e+00_rb,7.5302e+00_rb,6.4564e+00_rb,5.3827e+00_rb,4.3093e+00_rb,3.2362e+00_rb, &\n     &2.1902e+00_rb,1.2373e+00_rb,1.3016e-01_rb/)\n      kao(:, 5,10,11) = (/ &\n     &8.6811e+00_rb,7.5976e+00_rb,6.5142e+00_rb,5.4315e+00_rb,4.3481e+00_rb,3.2657e+00_rb, &\n     &2.2039e+00_rb,1.2408e+00_rb,1.3327e-01_rb/)\n      kao(:, 1,11,11) = (/ &\n     &1.2908e+01_rb,1.1296e+01_rb,9.6842e+00_rb,8.0726e+00_rb,6.4609e+00_rb,4.8491e+00_rb, &\n     &3.2606e+00_rb,1.7969e+00_rb,1.0870e-01_rb/)\n      kao(:, 2,11,11) = (/ &\n     &1.3081e+01_rb,1.1447e+01_rb,9.8136e+00_rb,8.1796e+00_rb,6.5463e+00_rb,4.9136e+00_rb, &\n     &3.2978e+00_rb,1.8090e+00_rb,1.0807e-01_rb/)\n      kao(:, 3,11,11) = (/ &\n     &1.3247e+01_rb,1.1593e+01_rb,9.9386e+00_rb,8.2843e+00_rb,6.6304e+00_rb,4.9764e+00_rb, &\n     &3.3344e+00_rb,1.8186e+00_rb,1.0723e-01_rb/)\n      kao(:, 4,11,11) = (/ &\n     &1.3412e+01_rb,1.1737e+01_rb,1.0062e+01_rb,8.3876e+00_rb,6.7133e+00_rb,5.0389e+00_rb, &\n     &3.3728e+00_rb,1.8302e+00_rb,1.0582e-01_rb/)\n      kao(:, 5,11,11) = (/ &\n     &1.3565e+01_rb,1.1871e+01_rb,1.0177e+01_rb,8.4837e+00_rb,6.7902e+00_rb,5.0972e+00_rb, &\n     &3.4088e+00_rb,1.8416e+00_rb,1.0800e-01_rb/)\n      kao(:, 1,12,11) = (/ &\n     &1.4642e+01_rb,1.2812e+01_rb,1.0983e+01_rb,9.1554e+00_rb,7.3265e+00_rb,5.4974e+00_rb, &\n     &3.7020e+00_rb,2.0284e+00_rb,8.2662e-02_rb/)\n      kao(:, 2,12,11) = (/ &\n     &1.4885e+01_rb,1.3026e+01_rb,1.1167e+01_rb,9.3078e+00_rb,7.4487e+00_rb,5.5898e+00_rb, &\n     &3.7559e+00_rb,2.0497e+00_rb,8.1390e-02_rb/)\n      kao(:, 3,12,11) = (/ &\n     &1.5119e+01_rb,1.3231e+01_rb,1.1343e+01_rb,9.4543e+00_rb,7.5661e+00_rb,5.6785e+00_rb, &\n     &3.8088e+00_rb,2.0698e+00_rb,8.0357e-02_rb/)\n      kao(:, 4,12,11) = (/ &\n     &1.5358e+01_rb,1.3440e+01_rb,1.1522e+01_rb,9.6047e+00_rb,7.6867e+00_rb,5.7694e+00_rb, &\n     &3.8642e+00_rb,2.0905e+00_rb,7.9812e-02_rb/)\n      kao(:, 5,12,11) = (/ &\n     &1.5578e+01_rb,1.3633e+01_rb,1.1688e+01_rb,9.7428e+00_rb,7.7978e+00_rb,5.8532e+00_rb, &\n     &3.9171e+00_rb,2.1122e+00_rb,8.2952e-02_rb/)\n      kao(:, 1,13,11) = (/ &\n     &1.3181e+01_rb,1.1536e+01_rb,9.8891e+00_rb,8.2428e+00_rb,6.5963e+00_rb,4.9547e+00_rb, &\n     &3.3878e+00_rb,1.8779e+00_rb,8.5930e-02_rb/)\n      kao(:, 2,13,11) = (/ &\n     &1.3431e+01_rb,1.1753e+01_rb,1.0076e+01_rb,8.3993e+00_rb,6.7218e+00_rb,5.0463e+00_rb, &\n     &3.4400e+00_rb,1.9003e+00_rb,8.2789e-02_rb/)\n      kao(:, 3,13,11) = (/ &\n     &1.3694e+01_rb,1.1985e+01_rb,1.0274e+01_rb,8.5642e+00_rb,6.8544e+00_rb,5.1452e+00_rb, &\n     &3.4940e+00_rb,1.9250e+00_rb,8.1321e-02_rb/)\n      kao(:, 4,13,11) = (/ &\n     &1.3957e+01_rb,1.2214e+01_rb,1.0471e+01_rb,8.7279e+00_rb,6.9861e+00_rb,5.2450e+00_rb, &\n     &3.5504e+00_rb,1.9524e+00_rb,7.8953e-02_rb/)\n      kao(:, 5,13,11) = (/ &\n     &1.4201e+01_rb,1.2428e+01_rb,1.0655e+01_rb,8.8819e+00_rb,7.1097e+00_rb,5.3381e+00_rb, &\n     &3.6055e+00_rb,1.9785e+00_rb,8.1036e-02_rb/)\n      kao(:, 1, 1,12) = (/ &\n     &6.5787e-03_rb,2.6236e-02_rb,5.1362e-02_rb,7.6305e-02_rb,1.0073e-01_rb,1.2420e-01_rb, &\n     &1.4556e-01_rb,1.6001e-01_rb,2.0088e-01_rb/)\n      kao(:, 2, 1,12) = (/ &\n     &6.5355e-03_rb,2.5963e-02_rb,5.1031e-02_rb,7.5853e-02_rb,1.0014e-01_rb,1.2346e-01_rb, &\n     &1.4463e-01_rb,1.5894e-01_rb,1.9973e-01_rb/)\n      kao(:, 3, 1,12) = (/ &\n     &6.4519e-03_rb,2.5842e-02_rb,5.0885e-02_rb,7.5629e-02_rb,9.9804e-02_rb,1.2294e-01_rb, &\n     &1.4394e-01_rb,1.5802e-01_rb,1.9913e-01_rb/)\n      kao(:, 4, 1,12) = (/ &\n     &6.3508e-03_rb,2.5827e-02_rb,5.0889e-02_rb,7.5643e-02_rb,9.9816e-02_rb,1.2289e-01_rb, &\n     &1.4367e-01_rb,1.5727e-01_rb,1.9918e-01_rb/)\n      kao(:, 5, 1,12) = (/ &\n     &6.2468e-03_rb,2.5824e-02_rb,5.0882e-02_rb,7.5643e-02_rb,9.9840e-02_rb,1.2300e-01_rb, &\n     &1.4386e-01_rb,1.5674e-01_rb,1.9923e-01_rb/)\n      kao(:, 1, 2,12) = (/ &\n     &1.0416e-02_rb,2.8932e-02_rb,5.5152e-02_rb,8.2023e-02_rb,1.0846e-01_rb,1.3404e-01_rb, &\n     &1.5780e-01_rb,1.7629e-01_rb,2.1619e-01_rb/)\n      kao(:, 2, 2,12) = (/ &\n     &1.0342e-02_rb,2.8637e-02_rb,5.4892e-02_rb,8.1654e-02_rb,1.0796e-01_rb,1.3340e-01_rb, &\n     &1.5695e-01_rb,1.7507e-01_rb,2.1532e-01_rb/)\n      kao(:, 3, 2,12) = (/ &\n     &1.0224e-02_rb,2.8457e-02_rb,5.4759e-02_rb,8.1469e-02_rb,1.0772e-01_rb,1.3310e-01_rb, &\n     &1.5656e-01_rb,1.7435e-01_rb,2.1487e-01_rb/)\n      kao(:, 4, 2,12) = (/ &\n     &1.0091e-02_rb,2.8318e-02_rb,5.4670e-02_rb,8.1344e-02_rb,1.0759e-01_rb,1.3299e-01_rb, &\n     &1.5649e-01_rb,1.7414e-01_rb,2.1459e-01_rb/)\n      kao(:, 5, 2,12) = (/ &\n     &9.9570e-03_rb,2.8146e-02_rb,5.4539e-02_rb,8.1138e-02_rb,1.0736e-01_rb,1.3278e-01_rb, &\n     &1.5638e-01_rb,1.7422e-01_rb,2.1411e-01_rb/)\n      kao(:, 1, 3,12) = (/ &\n     &2.2302e-02_rb,3.7417e-02_rb,6.1097e-02_rb,8.8747e-02_rb,1.1756e-01_rb,1.4593e-01_rb, &\n     &1.7314e-01_rb,1.9636e-01_rb,2.3403e-01_rb/)\n      kao(:, 2, 3,12) = (/ &\n     &2.2117e-02_rb,3.6950e-02_rb,6.0557e-02_rb,8.8385e-02_rb,1.1711e-01_rb,1.4537e-01_rb, &\n     &1.7254e-01_rb,1.9566e-01_rb,2.3319e-01_rb/)\n      kao(:, 3, 3,12) = (/ &\n     &2.1903e-02_rb,3.6596e-02_rb,6.0142e-02_rb,8.8214e-02_rb,1.1684e-01_rb,1.4504e-01_rb, &\n     &1.7207e-01_rb,1.9507e-01_rb,2.3270e-01_rb/)\n      kao(:, 4, 3,12) = (/ &\n     &2.1706e-02_rb,3.6379e-02_rb,5.9779e-02_rb,8.7937e-02_rb,1.1644e-01_rb,1.4454e-01_rb, &\n     &1.7162e-01_rb,1.9475e-01_rb,2.3180e-01_rb/)\n      kao(:, 5, 3,12) = (/ &\n     &2.1485e-02_rb,3.6152e-02_rb,5.9419e-02_rb,8.7609e-02_rb,1.1597e-01_rb,1.4392e-01_rb, &\n     &1.7083e-01_rb,1.9407e-01_rb,2.3079e-01_rb/)\n      kao(:, 1, 4,12) = (/ &\n     &4.8787e-02_rb,6.0363e-02_rb,7.6958e-02_rb,9.9608e-02_rb,1.2651e-01_rb,1.5698e-01_rb, &\n     &1.8722e-01_rb,2.1554e-01_rb,2.5046e-01_rb/)\n      kao(:, 2, 4,12) = (/ &\n     &4.8476e-02_rb,5.9621e-02_rb,7.6177e-02_rb,9.8903e-02_rb,1.2601e-01_rb,1.5644e-01_rb, &\n     &1.8652e-01_rb,2.1472e-01_rb,2.4963e-01_rb/)\n      kao(:, 3, 4,12) = (/ &\n     &4.8022e-02_rb,5.9054e-02_rb,7.5570e-02_rb,9.8295e-02_rb,1.2578e-01_rb,1.5620e-01_rb, &\n     &1.8618e-01_rb,2.1420e-01_rb,2.4913e-01_rb/)\n      kao(:, 4, 4,12) = (/ &\n     &4.7565e-02_rb,5.8399e-02_rb,7.5073e-02_rb,9.7780e-02_rb,1.2559e-01_rb,1.5591e-01_rb, &\n     &1.8579e-01_rb,2.1367e-01_rb,2.4858e-01_rb/)\n      kao(:, 5, 4,12) = (/ &\n     &4.7078e-02_rb,5.7702e-02_rb,7.4506e-02_rb,9.7303e-02_rb,1.2546e-01_rb,1.5568e-01_rb, &\n     &1.8546e-01_rb,2.1318e-01_rb,2.4815e-01_rb/)\n      kao(:, 1, 5,12) = (/ &\n     &9.7499e-02_rb,9.8718e-02_rb,1.1395e-01_rb,1.2710e-01_rb,1.4448e-01_rb,1.6872e-01_rb, &\n     &1.9875e-01_rb,2.3006e-01_rb,2.6441e-01_rb/)\n      kao(:, 2, 5,12) = (/ &\n     &9.6942e-02_rb,9.7852e-02_rb,1.1233e-01_rb,1.2606e-01_rb,1.4347e-01_rb,1.6785e-01_rb, &\n     &1.9829e-01_rb,2.2956e-01_rb,2.6367e-01_rb/)\n      kao(:, 3, 5,12) = (/ &\n     &9.6111e-02_rb,9.7066e-02_rb,1.1087e-01_rb,1.2520e-01_rb,1.4264e-01_rb,1.6720e-01_rb, &\n     &1.9804e-01_rb,2.2914e-01_rb,2.6333e-01_rb/)\n      kao(:, 4, 5,12) = (/ &\n     &9.5331e-02_rb,9.6285e-02_rb,1.0984e-01_rb,1.2440e-01_rb,1.4205e-01_rb,1.6680e-01_rb, &\n     &1.9797e-01_rb,2.2895e-01_rb,2.6319e-01_rb/)\n      kao(:, 5, 5,12) = (/ &\n     &9.4443e-02_rb,9.5498e-02_rb,1.0898e-01_rb,1.2351e-01_rb,1.4175e-01_rb,1.6646e-01_rb, &\n     &1.9775e-01_rb,2.2870e-01_rb,2.6275e-01_rb/)\n      kao(:, 1, 6,12) = (/ &\n     &1.8140e-01_rb,1.6408e-01_rb,1.7552e-01_rb,1.8196e-01_rb,1.8674e-01_rb,1.9489e-01_rb, &\n     &2.1183e-01_rb,2.4078e-01_rb,2.7512e-01_rb/)\n      kao(:, 2, 6,12) = (/ &\n     &1.8064e-01_rb,1.6323e-01_rb,1.7439e-01_rb,1.7956e-01_rb,1.8547e-01_rb,1.9334e-01_rb, &\n     &2.1068e-01_rb,2.4042e-01_rb,2.7473e-01_rb/)\n      kao(:, 3, 6,12) = (/ &\n     &1.7939e-01_rb,1.6216e-01_rb,1.7344e-01_rb,1.7751e-01_rb,1.8404e-01_rb,1.9207e-01_rb, &\n     &2.1020e-01_rb,2.4067e-01_rb,2.7502e-01_rb/)\n      kao(:, 4, 6,12) = (/ &\n     &1.7796e-01_rb,1.6097e-01_rb,1.7233e-01_rb,1.7595e-01_rb,1.8277e-01_rb,1.9147e-01_rb, &\n     &2.0971e-01_rb,2.4067e-01_rb,2.7492e-01_rb/)\n      kao(:, 5, 6,12) = (/ &\n     &1.7632e-01_rb,1.5943e-01_rb,1.7056e-01_rb,1.7456e-01_rb,1.8167e-01_rb,1.9081e-01_rb, &\n     &2.0890e-01_rb,2.4019e-01_rb,2.7421e-01_rb/)\n      kao(:, 1, 7,12) = (/ &\n     &3.5379e-01_rb,3.1064e-01_rb,2.9565e-01_rb,2.8816e-01_rb,2.7694e-01_rb,2.6472e-01_rb, &\n     &2.4939e-01_rb,2.5136e-01_rb,2.8304e-01_rb/)\n      kao(:, 2, 7,12) = (/ &\n     &3.5306e-01_rb,3.1059e-01_rb,2.9503e-01_rb,2.8682e-01_rb,2.7447e-01_rb,2.6248e-01_rb, &\n     &2.4787e-01_rb,2.5077e-01_rb,2.8333e-01_rb/)\n      kao(:, 3, 7,12) = (/ &\n     &3.5170e-01_rb,3.1024e-01_rb,2.9413e-01_rb,2.8605e-01_rb,2.7226e-01_rb,2.6030e-01_rb, &\n     &2.4686e-01_rb,2.5055e-01_rb,2.8358e-01_rb/)\n      kao(:, 4, 7,12) = (/ &\n     &3.4988e-01_rb,3.0935e-01_rb,2.9228e-01_rb,2.8440e-01_rb,2.7034e-01_rb,2.5822e-01_rb, &\n     &2.4645e-01_rb,2.4996e-01_rb,2.8315e-01_rb/)\n      kao(:, 5, 7,12) = (/ &\n     &3.4759e-01_rb,3.0773e-01_rb,2.8986e-01_rb,2.8199e-01_rb,2.6823e-01_rb,2.5660e-01_rb, &\n     &2.4547e-01_rb,2.4917e-01_rb,2.8239e-01_rb/)\n      kao(:, 1, 8,12) = (/ &\n     &8.0496e-01_rb,7.0527e-01_rb,6.0910e-01_rb,5.5199e-01_rb,5.0022e-01_rb,4.3776e-01_rb, &\n     &3.7465e-01_rb,3.0063e-01_rb,2.8877e-01_rb/)\n      kao(:, 2, 8,12) = (/ &\n     &8.0672e-01_rb,7.0707e-01_rb,6.1070e-01_rb,5.5311e-01_rb,5.0061e-01_rb,4.3582e-01_rb, &\n     &3.7176e-01_rb,2.9952e-01_rb,2.8902e-01_rb/)\n      kao(:, 3, 8,12) = (/ &\n     &8.0691e-01_rb,7.0823e-01_rb,6.1191e-01_rb,5.5364e-01_rb,5.0004e-01_rb,4.3422e-01_rb, &\n     &3.6951e-01_rb,2.9892e-01_rb,2.8876e-01_rb/)\n      kao(:, 4, 8,12) = (/ &\n     &8.0527e-01_rb,7.0753e-01_rb,6.1153e-01_rb,5.5173e-01_rb,4.9853e-01_rb,4.3157e-01_rb, &\n     &3.6699e-01_rb,2.9815e-01_rb,2.8834e-01_rb/)\n      kao(:, 5, 8,12) = (/ &\n     &8.0219e-01_rb,7.0523e-01_rb,6.0964e-01_rb,5.4776e-01_rb,4.9536e-01_rb,4.2816e-01_rb, &\n     &3.6486e-01_rb,2.9693e-01_rb,2.8675e-01_rb/)\n      kao(:, 1, 9,12) = (/ &\n     &3.4182e+00_rb,2.9916e+00_rb,2.5652e+00_rb,2.1389e+00_rb,1.7153e+00_rb,1.3419e+00_rb, &\n     &1.0101e+00_rb,6.4726e-01_rb,2.8926e-01_rb/)\n      kao(:, 2, 9,12) = (/ &\n     &3.4411e+00_rb,3.0119e+00_rb,2.5830e+00_rb,2.1544e+00_rb,1.7278e+00_rb,1.3490e+00_rb, &\n     &1.0168e+00_rb,6.4570e-01_rb,2.8901e-01_rb/)\n      kao(:, 3, 9,12) = (/ &\n     &3.4584e+00_rb,3.0278e+00_rb,2.5976e+00_rb,2.1679e+00_rb,1.7392e+00_rb,1.3535e+00_rb, &\n     &1.0208e+00_rb,6.4462e-01_rb,2.8863e-01_rb/)\n      kao(:, 4, 9,12) = (/ &\n     &3.4643e+00_rb,3.0337e+00_rb,2.6033e+00_rb,2.1735e+00_rb,1.7445e+00_rb,1.3538e+00_rb, &\n     &1.0204e+00_rb,6.4174e-01_rb,2.8774e-01_rb/)\n      kao(:, 5, 9,12) = (/ &\n     &3.4625e+00_rb,3.0324e+00_rb,2.6029e+00_rb,2.1736e+00_rb,1.7453e+00_rb,1.3500e+00_rb, &\n     &1.0152e+00_rb,6.3782e-01_rb,2.8595e-01_rb/)\n      kao(:, 1,10,12) = (/ &\n     &1.6048e+01_rb,1.4043e+01_rb,1.2038e+01_rb,1.0032e+01_rb,8.0269e+00_rb,6.0216e+00_rb, &\n     &4.0164e+00_rb,2.1217e+00_rb,2.8227e-01_rb/)\n      kao(:, 2,10,12) = (/ &\n     &1.6256e+01_rb,1.4226e+01_rb,1.2195e+01_rb,1.0164e+01_rb,8.1333e+00_rb,6.1029e+00_rb, &\n     &4.0729e+00_rb,2.1442e+00_rb,2.8170e-01_rb/)\n      kao(:, 3,10,12) = (/ &\n     &1.6399e+01_rb,1.4351e+01_rb,1.2303e+01_rb,1.0255e+01_rb,8.2073e+00_rb,6.1596e+00_rb, &\n     &4.1123e+00_rb,2.1594e+00_rb,2.8134e-01_rb/)\n      kao(:, 4,10,12) = (/ &\n     &1.6465e+01_rb,1.4409e+01_rb,1.2353e+01_rb,1.0297e+01_rb,8.2414e+00_rb,6.1861e+00_rb, &\n     &4.1319e+00_rb,2.1644e+00_rb,2.8049e-01_rb/)\n      kao(:, 5,10,12) = (/ &\n     &1.6472e+01_rb,1.4416e+01_rb,1.2359e+01_rb,1.0303e+01_rb,8.2464e+00_rb,6.1909e+00_rb, &\n     &4.1366e+00_rb,2.1582e+00_rb,2.7905e-01_rb/)\n      kao(:, 1,11,12) = (/ &\n     &2.6190e+01_rb,2.2917e+01_rb,1.9644e+01_rb,1.6372e+01_rb,1.3098e+01_rb,9.8258e+00_rb, &\n     &6.5533e+00_rb,3.3347e+00_rb,2.0130e-01_rb/)\n      kao(:, 2,11,12) = (/ &\n     &2.6572e+01_rb,2.3252e+01_rb,1.9932e+01_rb,1.6612e+01_rb,1.3292e+01_rb,9.9715e+00_rb, &\n     &6.6522e+00_rb,3.3768e+00_rb,2.0375e-01_rb/)\n      kao(:, 3,11,12) = (/ &\n     &2.6794e+01_rb,2.3447e+01_rb,2.0099e+01_rb,1.6751e+01_rb,1.3404e+01_rb,1.0057e+01_rb, &\n     &6.7102e+00_rb,3.4019e+00_rb,2.0648e-01_rb/)\n      kao(:, 4,11,12) = (/ &\n     &2.6905e+01_rb,2.3544e+01_rb,2.0183e+01_rb,1.6822e+01_rb,1.3461e+01_rb,1.0100e+01_rb, &\n     &6.7401e+00_rb,3.4102e+00_rb,2.0903e-01_rb/)\n      kao(:, 5,11,12) = (/ &\n     &2.6968e+01_rb,2.3599e+01_rb,2.0230e+01_rb,1.6860e+01_rb,1.3492e+01_rb,1.0123e+01_rb, &\n     &6.7556e+00_rb,3.4122e+00_rb,2.1045e-01_rb/)\n      kao(:, 1,12,12) = (/ &\n     &3.1310e+01_rb,2.7398e+01_rb,2.3484e+01_rb,1.9572e+01_rb,1.5659e+01_rb,1.1747e+01_rb, &\n     &7.8342e+00_rb,3.9879e+00_rb,1.6283e-01_rb/)\n      kao(:, 2,12,12) = (/ &\n     &3.1751e+01_rb,2.7784e+01_rb,2.3816e+01_rb,1.9849e+01_rb,1.5882e+01_rb,1.1914e+01_rb, &\n     &7.9470e+00_rb,4.0341e+00_rb,1.6415e-01_rb/)\n      kao(:, 3,12,12) = (/ &\n     &3.2043e+01_rb,2.8038e+01_rb,2.4036e+01_rb,2.0032e+01_rb,1.6028e+01_rb,1.2025e+01_rb, &\n     &8.0217e+00_rb,4.0620e+00_rb,1.6794e-01_rb/)\n      kao(:, 4,12,12) = (/ &\n     &3.2220e+01_rb,2.8195e+01_rb,2.4168e+01_rb,2.0143e+01_rb,1.6116e+01_rb,1.2091e+01_rb, &\n     &8.0659e+00_rb,4.0753e+00_rb,1.6850e-01_rb/)\n      kao(:, 5,12,12) = (/ &\n     &3.2373e+01_rb,2.8329e+01_rb,2.4283e+01_rb,2.0239e+01_rb,1.6193e+01_rb,1.2149e+01_rb, &\n     &8.1043e+00_rb,4.0871e+00_rb,1.6988e-01_rb/)\n      kao(:, 1,13,12) = (/ &\n     &2.9544e+01_rb,2.5852e+01_rb,2.2161e+01_rb,1.8469e+01_rb,1.4777e+01_rb,1.1085e+01_rb, &\n     &7.3931e+00_rb,3.8439e+00_rb,1.2880e-01_rb/)\n      kao(:, 2,13,12) = (/ &\n     &2.9974e+01_rb,2.6228e+01_rb,2.2483e+01_rb,1.8737e+01_rb,1.4992e+01_rb,1.1247e+01_rb, &\n     &7.5021e+00_rb,3.8830e+00_rb,1.3338e-01_rb/)\n      kao(:, 3,13,12) = (/ &\n     &3.0254e+01_rb,2.6474e+01_rb,2.2694e+01_rb,1.8912e+01_rb,1.5132e+01_rb,1.1352e+01_rb, &\n     &7.5719e+00_rb,3.9004e+00_rb,1.3721e-01_rb/)\n      kao(:, 4,13,12) = (/ &\n     &3.0504e+01_rb,2.6693e+01_rb,2.2881e+01_rb,1.9069e+01_rb,1.5258e+01_rb,1.1446e+01_rb, &\n     &7.6348e+00_rb,3.9163e+00_rb,1.3871e-01_rb/)\n      kao(:, 5,13,12) = (/ &\n     &3.0781e+01_rb,2.6934e+01_rb,2.3088e+01_rb,1.9241e+01_rb,1.5395e+01_rb,1.1550e+01_rb, &\n     &7.7042e+00_rb,3.9392e+00_rb,1.4036e-01_rb/)\n      kao(:, 1, 1,13) = (/ &\n     &9.0088e-03_rb,3.7171e-02_rb,7.3185e-02_rb,1.0841e-01_rb,1.4222e-01_rb,1.7328e-01_rb, &\n     &1.9823e-01_rb,2.0424e-01_rb,2.8396e-01_rb/)\n      kao(:, 2, 1,13) = (/ &\n     &8.8070e-03_rb,3.7017e-02_rb,7.2761e-02_rb,1.0769e-01_rb,1.4122e-01_rb,1.7208e-01_rb, &\n     &1.9703e-01_rb,2.0324e-01_rb,2.8185e-01_rb/)\n      kao(:, 3, 1,13) = (/ &\n     &8.6641e-03_rb,3.6729e-02_rb,7.2126e-02_rb,1.0675e-01_rb,1.4002e-01_rb,1.7072e-01_rb, &\n     &1.9555e-01_rb,2.0207e-01_rb,2.7936e-01_rb/)\n      kao(:, 4, 1,13) = (/ &\n     &8.5351e-03_rb,3.6304e-02_rb,7.1373e-02_rb,1.0562e-01_rb,1.3853e-01_rb,1.6891e-01_rb, &\n     &1.9361e-01_rb,2.0011e-01_rb,2.7631e-01_rb/)\n      kao(:, 5, 1,13) = (/ &\n     &8.4180e-03_rb,3.5892e-02_rb,7.0613e-02_rb,1.0456e-01_rb,1.3716e-01_rb,1.6725e-01_rb, &\n     &1.9159e-01_rb,1.9822e-01_rb,2.7366e-01_rb/)\n      kao(:, 1, 2,13) = (/ &\n     &1.4629e-02_rb,4.1401e-02_rb,8.1344e-02_rb,1.2092e-01_rb,1.5970e-01_rb,1.9686e-01_rb, &\n     &2.3007e-01_rb,2.4893e-01_rb,3.1872e-01_rb/)\n      kao(:, 2, 2,13) = (/ &\n     &1.4347e-02_rb,4.1149e-02_rb,8.0754e-02_rb,1.2000e-01_rb,1.5844e-01_rb,1.9525e-01_rb, &\n     &2.2811e-01_rb,2.4701e-01_rb,3.1592e-01_rb/)\n      kao(:, 3, 2,13) = (/ &\n     &1.4116e-02_rb,4.0731e-02_rb,7.9979e-02_rb,1.1881e-01_rb,1.5685e-01_rb,1.9333e-01_rb, &\n     &2.2600e-01_rb,2.4518e-01_rb,3.1267e-01_rb/)\n      kao(:, 4, 2,13) = (/ &\n     &1.3916e-02_rb,4.0235e-02_rb,7.9131e-02_rb,1.1757e-01_rb,1.5518e-01_rb,1.9122e-01_rb, &\n     &2.2354e-01_rb,2.4260e-01_rb,3.0926e-01_rb/)\n      kao(:, 5, 2,13) = (/ &\n     &1.3712e-02_rb,3.9826e-02_rb,7.8358e-02_rb,1.1644e-01_rb,1.5370e-01_rb,1.8938e-01_rb, &\n     &2.2131e-01_rb,2.4017e-01_rb,3.0647e-01_rb/)\n      kao(:, 1, 3,13) = (/ &\n     &3.2046e-02_rb,5.1387e-02_rb,8.9167e-02_rb,1.3251e-01_rb,1.7557e-01_rb,2.1798e-01_rb, &\n     &2.5867e-01_rb,2.9276e-01_rb,3.4967e-01_rb/)\n      kao(:, 2, 3,13) = (/ &\n     &3.1484e-02_rb,5.0885e-02_rb,8.8511e-02_rb,1.3146e-01_rb,1.7409e-01_rb,2.1604e-01_rb, &\n     &2.5621e-01_rb,2.8967e-01_rb,3.4641e-01_rb/)\n      kao(:, 3, 3,13) = (/ &\n     &3.1011e-02_rb,5.0194e-02_rb,8.7651e-02_rb,1.3011e-01_rb,1.7226e-01_rb,2.1375e-01_rb, &\n     &2.5357e-01_rb,2.8697e-01_rb,3.4255e-01_rb/)\n      kao(:, 4, 3,13) = (/ &\n     &3.0595e-02_rb,4.9306e-02_rb,8.6747e-02_rb,1.2888e-01_rb,1.7065e-01_rb,2.1172e-01_rb, &\n     &2.5094e-01_rb,2.8374e-01_rb,3.3932e-01_rb/)\n      kao(:, 5, 3,13) = (/ &\n     &3.0114e-02_rb,4.8480e-02_rb,8.6058e-02_rb,1.2788e-01_rb,1.6935e-01_rb,2.1010e-01_rb, &\n     &2.4901e-01_rb,2.8126e-01_rb,3.3697e-01_rb/)\n      kao(:, 1, 4,13) = (/ &\n     &7.1437e-02_rb,7.9531e-02_rb,1.0765e-01_rb,1.4496e-01_rb,1.9060e-01_rb,2.3699e-01_rb, &\n     &2.8255e-01_rb,3.2483e-01_rb,3.7856e-01_rb/)\n      kao(:, 2, 4,13) = (/ &\n     &7.0222e-02_rb,7.8795e-02_rb,1.0643e-01_rb,1.4338e-01_rb,1.8881e-01_rb,2.3460e-01_rb, &\n     &2.7960e-01_rb,3.2131e-01_rb,3.7439e-01_rb/)\n      kao(:, 3, 4,13) = (/ &\n     &6.9262e-02_rb,7.7852e-02_rb,1.0486e-01_rb,1.4165e-01_rb,1.8684e-01_rb,2.3207e-01_rb, &\n     &2.7650e-01_rb,3.1773e-01_rb,3.7008e-01_rb/)\n      kao(:, 4, 4,13) = (/ &\n     &6.8383e-02_rb,7.7009e-02_rb,1.0310e-01_rb,1.4004e-01_rb,1.8506e-01_rb,2.2994e-01_rb, &\n     &2.7397e-01_rb,3.1473e-01_rb,3.6682e-01_rb/)\n      kao(:, 5, 4,13) = (/ &\n     &6.7482e-02_rb,7.6264e-02_rb,1.0166e-01_rb,1.3889e-01_rb,1.8370e-01_rb,2.2828e-01_rb, &\n     &2.7201e-01_rb,3.1244e-01_rb,3.6430e-01_rb/)\n      kao(:, 1, 5,13) = (/ &\n     &1.4624e-01_rb,1.3361e-01_rb,1.5693e-01_rb,1.7752e-01_rb,2.1095e-01_rb,2.5537e-01_rb, &\n     &3.0486e-01_rb,3.5270e-01_rb,4.0651e-01_rb/)\n      kao(:, 2, 5,13) = (/ &\n     &1.4398e-01_rb,1.3165e-01_rb,1.5512e-01_rb,1.7519e-01_rb,2.0814e-01_rb,2.5302e-01_rb, &\n     &3.0184e-01_rb,3.4895e-01_rb,4.0217e-01_rb/)\n      kao(:, 3, 5,13) = (/ &\n     &1.4207e-01_rb,1.3000e-01_rb,1.5346e-01_rb,1.7248e-01_rb,2.0524e-01_rb,2.5056e-01_rb, &\n     &2.9880e-01_rb,3.4528e-01_rb,3.9789e-01_rb/)\n      kao(:, 4, 5,13) = (/ &\n     &1.4038e-01_rb,1.2884e-01_rb,1.5157e-01_rb,1.6985e-01_rb,2.0246e-01_rb,2.4823e-01_rb, &\n     &2.9613e-01_rb,3.4225e-01_rb,3.9462e-01_rb/)\n      kao(:, 5, 5,13) = (/ &\n     &1.3874e-01_rb,1.2784e-01_rb,1.4941e-01_rb,1.6780e-01_rb,2.0033e-01_rb,2.4657e-01_rb, &\n     &2.9417e-01_rb,3.3986e-01_rb,3.9218e-01_rb/)\n      kao(:, 1, 6,13) = (/ &\n     &2.8046e-01_rb,2.4640e-01_rb,2.4558e-01_rb,2.5477e-01_rb,2.6318e-01_rb,2.8661e-01_rb, &\n     &3.2769e-01_rb,3.7985e-01_rb,4.3568e-01_rb/)\n      kao(:, 2, 6,13) = (/ &\n     &2.7643e-01_rb,2.4318e-01_rb,2.4273e-01_rb,2.5156e-01_rb,2.5913e-01_rb,2.8275e-01_rb, &\n     &3.2478e-01_rb,3.7621e-01_rb,4.3126e-01_rb/)\n      kao(:, 3, 6,13) = (/ &\n     &2.7290e-01_rb,2.4050e-01_rb,2.4016e-01_rb,2.4894e-01_rb,2.5526e-01_rb,2.7880e-01_rb, &\n     &3.2177e-01_rb,3.7266e-01_rb,4.2706e-01_rb/)\n      kao(:, 4, 6,13) = (/ &\n     &2.7013e-01_rb,2.3869e-01_rb,2.3760e-01_rb,2.4573e-01_rb,2.5166e-01_rb,2.7510e-01_rb, &\n     &3.1929e-01_rb,3.6982e-01_rb,4.2412e-01_rb/)\n      kao(:, 5, 6,13) = (/ &\n     &2.6724e-01_rb,2.3701e-01_rb,2.3563e-01_rb,2.4210e-01_rb,2.4866e-01_rb,2.7240e-01_rb, &\n     &3.1774e-01_rb,3.6799e-01_rb,4.2206e-01_rb/)\n      kao(:, 1, 7,13) = (/ &\n     &5.6688e-01_rb,4.9674e-01_rb,4.3519e-01_rb,4.2029e-01_rb,3.9894e-01_rb,3.7594e-01_rb, &\n     &3.7424e-01_rb,4.0700e-01_rb,4.6486e-01_rb/)\n      kao(:, 2, 7,13) = (/ &\n     &5.6062e-01_rb,4.9147e-01_rb,4.2917e-01_rb,4.1552e-01_rb,3.9325e-01_rb,3.7043e-01_rb, &\n     &3.6935e-01_rb,4.0348e-01_rb,4.6044e-01_rb/)\n      kao(:, 3, 7,13) = (/ &\n     &5.5419e-01_rb,4.8620e-01_rb,4.2405e-01_rb,4.1052e-01_rb,3.8832e-01_rb,3.6566e-01_rb, &\n     &3.6433e-01_rb,4.0051e-01_rb,4.5715e-01_rb/)\n      kao(:, 4, 7,13) = (/ &\n     &5.4908e-01_rb,4.8208e-01_rb,4.2069e-01_rb,4.0630e-01_rb,3.8346e-01_rb,3.6097e-01_rb, &\n     &3.5952e-01_rb,3.9819e-01_rb,4.5457e-01_rb/)\n      kao(:, 5, 7,13) = (/ &\n     &5.4429e-01_rb,4.7829e-01_rb,4.1793e-01_rb,4.0260e-01_rb,3.7854e-01_rb,3.5674e-01_rb, &\n     &3.5560e-01_rb,3.9638e-01_rb,4.5240e-01_rb/)\n      kao(:, 1, 8,13) = (/ &\n     &1.3466e+00_rb,1.1788e+00_rb,1.0111e+00_rb,8.5366e-01_rb,7.5173e-01_rb,6.5869e-01_rb, &\n     &5.4376e-01_rb,4.6329e-01_rb,4.8785e-01_rb/)\n      kao(:, 2, 8,13) = (/ &\n     &1.3340e+00_rb,1.1680e+00_rb,1.0021e+00_rb,8.4354e-01_rb,7.4161e-01_rb,6.4846e-01_rb, &\n     &5.3530e-01_rb,4.5751e-01_rb,4.8487e-01_rb/)\n      kao(:, 3, 8,13) = (/ &\n     &1.3215e+00_rb,1.1573e+00_rb,9.9337e-01_rb,8.3476e-01_rb,7.3374e-01_rb,6.3918e-01_rb, &\n     &5.2901e-01_rb,4.5174e-01_rb,4.8277e-01_rb/)\n      kao(:, 4, 8,13) = (/ &\n     &1.3130e+00_rb,1.1502e+00_rb,9.8764e-01_rb,8.2958e-01_rb,7.2734e-01_rb,6.3251e-01_rb, &\n     &5.2258e-01_rb,4.4677e-01_rb,4.8075e-01_rb/)\n      kao(:, 5, 8,13) = (/ &\n     &1.3037e+00_rb,1.1423e+00_rb,9.8136e-01_rb,8.2511e-01_rb,7.2245e-01_rb,6.2665e-01_rb, &\n     &5.1636e-01_rb,4.4197e-01_rb,4.7928e-01_rb/)\n      kao(:, 1, 9,13) = (/ &\n     &6.0221e+00_rb,5.2697e+00_rb,4.5174e+00_rb,3.7653e+00_rb,3.0129e+00_rb,2.2622e+00_rb, &\n     &1.5952e+00_rb,9.9726e-01_rb,5.0671e-01_rb/)\n      kao(:, 2, 9,13) = (/ &\n     &5.9755e+00_rb,5.2290e+00_rb,4.4828e+00_rb,3.7364e+00_rb,2.9901e+00_rb,2.2441e+00_rb, &\n     &1.5732e+00_rb,9.8172e-01_rb,5.0573e-01_rb/)\n      kao(:, 3, 9,13) = (/ &\n     &5.9358e+00_rb,5.1947e+00_rb,4.4536e+00_rb,3.7125e+00_rb,2.9715e+00_rb,2.2305e+00_rb, &\n     &1.5561e+00_rb,9.6836e-01_rb,5.0514e-01_rb/)\n      kao(:, 4, 9,13) = (/ &\n     &5.9085e+00_rb,5.1712e+00_rb,4.4336e+00_rb,3.6962e+00_rb,2.9588e+00_rb,2.2217e+00_rb, &\n     &1.5446e+00_rb,9.5878e-01_rb,5.0373e-01_rb/)\n      kao(:, 5, 9,13) = (/ &\n     &5.8741e+00_rb,5.1412e+00_rb,4.4082e+00_rb,3.6753e+00_rb,2.9426e+00_rb,2.2110e+00_rb, &\n     &1.5366e+00_rb,9.5070e-01_rb,5.0223e-01_rb/)\n      kao(:, 1,10,13) = (/ &\n     &2.9983e+01_rb,2.6236e+01_rb,2.2488e+01_rb,1.8741e+01_rb,1.4994e+01_rb,1.1246e+01_rb, &\n     &7.4983e+00_rb,3.7584e+00_rb,5.2065e-01_rb/)\n      kao(:, 2,10,13) = (/ &\n     &2.9796e+01_rb,2.6072e+01_rb,2.2348e+01_rb,1.8624e+01_rb,1.4900e+01_rb,1.1176e+01_rb, &\n     &7.4520e+00_rb,3.7308e+00_rb,5.2186e-01_rb/)\n      kao(:, 3,10,13) = (/ &\n     &2.9702e+01_rb,2.5989e+01_rb,2.2278e+01_rb,1.8566e+01_rb,1.4854e+01_rb,1.1142e+01_rb, &\n     &7.4298e+00_rb,3.7183e+00_rb,5.2236e-01_rb/)\n      kao(:, 4,10,13) = (/ &\n     &2.9648e+01_rb,2.5942e+01_rb,2.2238e+01_rb,1.8533e+01_rb,1.4828e+01_rb,1.1123e+01_rb, &\n     &7.4177e+00_rb,3.7128e+00_rb,5.2097e-01_rb/)\n      kao(:, 5,10,13) = (/ &\n     &2.9599e+01_rb,2.5901e+01_rb,2.2202e+01_rb,1.8502e+01_rb,1.4804e+01_rb,1.1105e+01_rb, &\n     &7.4063e+00_rb,3.7092e+00_rb,5.1987e-01_rb/)\n      kao(:, 1,11,13) = (/ &\n     &5.1290e+01_rb,4.4882e+01_rb,3.8471e+01_rb,3.2058e+01_rb,2.5646e+01_rb,1.9236e+01_rb, &\n     &1.2824e+01_rb,6.4141e+00_rb,5.2983e-01_rb/)\n      kao(:, 2,11,13) = (/ &\n     &5.1244e+01_rb,4.4838e+01_rb,3.8434e+01_rb,3.2028e+01_rb,2.5623e+01_rb,1.9219e+01_rb, &\n     &1.2814e+01_rb,6.4089e+00_rb,5.3215e-01_rb/)\n      kao(:, 3,11,13) = (/ &\n     &5.1318e+01_rb,4.4905e+01_rb,3.8491e+01_rb,3.2076e+01_rb,2.5662e+01_rb,1.9248e+01_rb, &\n     &1.2833e+01_rb,6.4196e+00_rb,5.3209e-01_rb/)\n      kao(:, 4,11,13) = (/ &\n     &5.1488e+01_rb,4.5053e+01_rb,3.8617e+01_rb,3.2182e+01_rb,2.5747e+01_rb,1.9312e+01_rb, &\n     &1.2877e+01_rb,6.4422e+00_rb,5.3137e-01_rb/)\n      kao(:, 5,11,13) = (/ &\n     &5.1544e+01_rb,4.5101e+01_rb,3.8659e+01_rb,3.2218e+01_rb,2.5776e+01_rb,1.9335e+01_rb, &\n     &1.2893e+01_rb,6.4519e+00_rb,5.3038e-01_rb/)\n      kao(:, 1,12,13) = (/ &\n     &6.4625e+01_rb,5.6547e+01_rb,4.8469e+01_rb,4.0391e+01_rb,3.2315e+01_rb,2.4238e+01_rb, &\n     &1.6158e+01_rb,8.0814e+00_rb,4.6363e-01_rb/)\n      kao(:, 2,12,13) = (/ &\n     &6.4981e+01_rb,5.6858e+01_rb,4.8737e+01_rb,4.0614e+01_rb,3.2493e+01_rb,2.4371e+01_rb, &\n     &1.6249e+01_rb,8.1265e+00_rb,4.7141e-01_rb/)\n      kao(:, 3,12,13) = (/ &\n     &6.5489e+01_rb,5.7301e+01_rb,4.9118e+01_rb,4.0933e+01_rb,3.2747e+01_rb,2.4562e+01_rb, &\n     &1.6376e+01_rb,8.1908e+00_rb,4.7318e-01_rb/)\n      kao(:, 4,12,13) = (/ &\n     &6.5927e+01_rb,5.7688e+01_rb,4.9446e+01_rb,4.1208e+01_rb,3.2967e+01_rb,2.4727e+01_rb, &\n     &1.6488e+01_rb,8.2475e+00_rb,4.7664e-01_rb/)\n      kao(:, 5,12,13) = (/ &\n     &6.6087e+01_rb,5.7823e+01_rb,4.9566e+01_rb,4.1306e+01_rb,3.3048e+01_rb,2.4787e+01_rb, &\n     &1.6528e+01_rb,8.2690e+00_rb,4.7820e-01_rb/)\n      kao(:, 1,13,13) = (/ &\n     &6.4615e+01_rb,5.6540e+01_rb,4.8462e+01_rb,4.0385e+01_rb,3.2309e+01_rb,2.4232e+01_rb, &\n     &1.6156e+01_rb,8.0805e+00_rb,4.0088e-01_rb/)\n      kao(:, 2,13,13) = (/ &\n     &6.5417e+01_rb,5.7241e+01_rb,4.9064e+01_rb,4.0887e+01_rb,3.2711e+01_rb,2.4534e+01_rb, &\n     &1.6357e+01_rb,8.1804e+00_rb,3.9953e-01_rb/)\n      kao(:, 3,13,13) = (/ &\n     &6.6282e+01_rb,5.7998e+01_rb,4.9715e+01_rb,4.1430e+01_rb,3.3145e+01_rb,2.4860e+01_rb, &\n     &1.6576e+01_rb,8.2909e+00_rb,4.0385e-01_rb/)\n      kao(:, 4,13,13) = (/ &\n     &6.6847e+01_rb,5.8491e+01_rb,5.0137e+01_rb,4.1781e+01_rb,3.3427e+01_rb,2.5072e+01_rb, &\n     &1.6717e+01_rb,8.3627e+00_rb,4.1064e-01_rb/)\n      kao(:, 5,13,13) = (/ &\n     &6.7163e+01_rb,5.8769e+01_rb,5.0375e+01_rb,4.1983e+01_rb,3.3587e+01_rb,2.5193e+01_rb, &\n     &1.6798e+01_rb,8.4033e+00_rb,4.1414e-01_rb/)\n      kao(:, 1, 1,14) = (/ &\n     &1.2012e-02_rb,4.7001e-02_rb,9.2646e-02_rb,1.3669e-01_rb,1.7808e-01_rb,2.1465e-01_rb, &\n     &2.4110e-01_rb,2.4013e-01_rb,3.5593e-01_rb/)\n      kao(:, 2, 1,14) = (/ &\n     &1.1787e-02_rb,4.6471e-02_rb,9.1548e-02_rb,1.3506e-01_rb,1.7598e-01_rb,2.1215e-01_rb, &\n     &2.3833e-01_rb,2.3702e-01_rb,3.5168e-01_rb/)\n      kao(:, 3, 1,14) = (/ &\n     &1.1552e-02_rb,4.6117e-02_rb,9.0846e-02_rb,1.3398e-01_rb,1.7452e-01_rb,2.1037e-01_rb, &\n     &2.3630e-01_rb,2.3518e-01_rb,3.4867e-01_rb/)\n      kao(:, 4, 1,14) = (/ &\n     &1.1308e-02_rb,4.5919e-02_rb,9.0260e-02_rb,1.3312e-01_rb,1.7345e-01_rb,2.0914e-01_rb, &\n     &2.3511e-01_rb,2.3456e-01_rb,3.4647e-01_rb/)\n      kao(:, 5, 1,14) = (/ &\n     &1.1074e-02_rb,4.5680e-02_rb,8.9686e-02_rb,1.3217e-01_rb,1.7213e-01_rb,2.0750e-01_rb, &\n     &2.3330e-01_rb,2.3291e-01_rb,3.4372e-01_rb/)\n      kao(:, 1, 2,14) = (/ &\n     &1.9894e-02_rb,5.5751e-02_rb,1.1015e-01_rb,1.6336e-01_rb,2.1450e-01_rb,2.6180e-01_rb, &\n     &3.0044e-01_rb,3.1221e-01_rb,4.2855e-01_rb/)\n      kao(:, 2, 2,14) = (/ &\n     &1.9495e-02_rb,5.5076e-02_rb,1.0879e-01_rb,1.6130e-01_rb,2.1180e-01_rb,2.5853e-01_rb, &\n     &2.9678e-01_rb,3.0859e-01_rb,4.2309e-01_rb/)\n      kao(:, 3, 2,14) = (/ &\n     &1.9117e-02_rb,5.4639e-02_rb,1.0781e-01_rb,1.5983e-01_rb,2.0983e-01_rb,2.5605e-01_rb, &\n     &2.9379e-01_rb,3.0533e-01_rb,4.1905e-01_rb/)\n      kao(:, 4, 2,14) = (/ &\n     &1.8729e-02_rb,5.4397e-02_rb,1.0705e-01_rb,1.5861e-01_rb,2.0822e-01_rb,2.5408e-01_rb, &\n     &2.9159e-01_rb,3.0324e-01_rb,4.1584e-01_rb/)\n      kao(:, 5, 2,14) = (/ &\n     &1.8354e-02_rb,5.4135e-02_rb,1.0645e-01_rb,1.5762e-01_rb,2.0683e-01_rb,2.5235e-01_rb, &\n     &2.8960e-01_rb,3.0120e-01_rb,4.1280e-01_rb/)\n      kao(:, 1, 3,14) = (/ &\n     &4.4808e-02_rb,6.8120e-02_rb,1.3030e-01_rb,1.9402e-01_rb,2.5661e-01_rb,3.1701e-01_rb, &\n     &3.7210e-01_rb,4.0841e-01_rb,5.1219e-01_rb/)\n      kao(:, 2, 3,14) = (/ &\n     &4.3894e-02_rb,6.7026e-02_rb,1.2859e-01_rb,1.9144e-01_rb,2.5317e-01_rb,3.1271e-01_rb, &\n     &3.6711e-01_rb,4.0328e-01_rb,5.0524e-01_rb/)\n      kao(:, 3, 3,14) = (/ &\n     &4.3009e-02_rb,6.6189e-02_rb,1.2745e-01_rb,1.8969e-01_rb,2.5081e-01_rb,3.0975e-01_rb, &\n     &3.6348e-01_rb,3.9877e-01_rb,5.0039e-01_rb/)\n      kao(:, 4, 3,14) = (/ &\n     &4.2131e-02_rb,6.5604e-02_rb,1.2666e-01_rb,1.8820e-01_rb,2.4871e-01_rb,3.0709e-01_rb, &\n     &3.6038e-01_rb,3.9547e-01_rb,4.9608e-01_rb/)\n      kao(:, 5, 3,14) = (/ &\n     &4.1300e-02_rb,6.4954e-02_rb,1.2597e-01_rb,1.8706e-01_rb,2.4708e-01_rb,3.0499e-01_rb, &\n     &3.5781e-01_rb,3.9252e-01_rb,4.9231e-01_rb/)\n      kao(:, 1, 4,14) = (/ &\n     &1.0301e-01_rb,1.0024e-01_rb,1.5513e-01_rb,2.2660e-01_rb,3.0051e-01_rb,3.7330e-01_rb, &\n     &4.4331e-01_rb,5.0277e-01_rb,5.9886e-01_rb/)\n      kao(:, 2, 4,14) = (/ &\n     &1.0093e-01_rb,9.7693e-02_rb,1.5244e-01_rb,2.2368e-01_rb,2.9661e-01_rb,3.6838e-01_rb, &\n     &4.3740e-01_rb,4.9600e-01_rb,5.9091e-01_rb/)\n      kao(:, 3, 4,14) = (/ &\n     &9.8888e-02_rb,9.5814e-02_rb,1.5056e-01_rb,2.2160e-01_rb,2.9368e-01_rb,3.6475e-01_rb, &\n     &4.3305e-01_rb,4.9087e-01_rb,5.8504e-01_rb/)\n      kao(:, 4, 4,14) = (/ &\n     &9.6900e-02_rb,9.4385e-02_rb,1.4923e-01_rb,2.1998e-01_rb,2.9118e-01_rb,3.6134e-01_rb, &\n     &4.2884e-01_rb,4.8615e-01_rb,5.7910e-01_rb/)\n      kao(:, 5, 4,14) = (/ &\n     &9.5071e-02_rb,9.3054e-02_rb,1.4811e-01_rb,2.1854e-01_rb,2.8905e-01_rb,3.5852e-01_rb, &\n     &4.2539e-01_rb,4.8206e-01_rb,5.7407e-01_rb/)\n      kao(:, 1, 5,14) = (/ &\n     &2.1660e-01_rb,1.9045e-01_rb,2.0807e-01_rb,2.6919e-01_rb,3.4511e-01_rb,4.2945e-01_rb, &\n     &5.1231e-01_rb,5.8951e-01_rb,6.8618e-01_rb/)\n      kao(:, 2, 5,14) = (/ &\n     &2.1241e-01_rb,1.8672e-01_rb,2.0475e-01_rb,2.6424e-01_rb,3.4065e-01_rb,4.2384e-01_rb, &\n     &5.0554e-01_rb,5.8155e-01_rb,6.7701e-01_rb/)\n      kao(:, 3, 5,14) = (/ &\n     &2.0837e-01_rb,1.8314e-01_rb,2.0195e-01_rb,2.6053e-01_rb,3.3744e-01_rb,4.1942e-01_rb, &\n     &5.0021e-01_rb,5.7551e-01_rb,6.6986e-01_rb/)\n      kao(:, 4, 5,14) = (/ &\n     &2.0430e-01_rb,1.7971e-01_rb,1.9948e-01_rb,2.5756e-01_rb,3.3465e-01_rb,4.1558e-01_rb, &\n     &4.9517e-01_rb,5.6937e-01_rb,6.6243e-01_rb/)\n      kao(:, 5, 5,14) = (/ &\n     &2.0042e-01_rb,1.7656e-01_rb,1.9774e-01_rb,2.5482e-01_rb,3.3186e-01_rb,4.1183e-01_rb, &\n     &4.9052e-01_rb,5.6389e-01_rb,6.5569e-01_rb/)\n      kao(:, 1, 6,14) = (/ &\n     &4.2427e-01_rb,3.7203e-01_rb,3.3320e-01_rb,3.5686e-01_rb,4.1154e-01_rb,4.8492e-01_rb, &\n     &5.7932e-01_rb,6.7077e-01_rb,7.7255e-01_rb/)\n      kao(:, 2, 6,14) = (/ &\n     &4.1690e-01_rb,3.6557e-01_rb,3.2503e-01_rb,3.5212e-01_rb,4.0345e-01_rb,4.7827e-01_rb, &\n     &5.7140e-01_rb,6.6143e-01_rb,7.6181e-01_rb/)\n      kao(:, 3, 6,14) = (/ &\n     &4.0958e-01_rb,3.5909e-01_rb,3.1787e-01_rb,3.4706e-01_rb,3.9704e-01_rb,4.7318e-01_rb, &\n     &5.6463e-01_rb,6.5338e-01_rb,7.5243e-01_rb/)\n      kao(:, 4, 6,14) = (/ &\n     &4.0201e-01_rb,3.5239e-01_rb,3.1191e-01_rb,3.4259e-01_rb,3.9161e-01_rb,4.6839e-01_rb, &\n     &5.5839e-01_rb,6.4570e-01_rb,7.4289e-01_rb/)\n      kao(:, 5, 6,14) = (/ &\n     &3.9475e-01_rb,3.4591e-01_rb,3.0639e-01_rb,3.3917e-01_rb,3.8642e-01_rb,4.6363e-01_rb, &\n     &5.5236e-01_rb,6.3841e-01_rb,7.3426e-01_rb/)\n      kao(:, 1, 7,14) = (/ &\n     &8.8029e-01_rb,7.7094e-01_rb,6.6160e-01_rb,5.8339e-01_rb,5.7398e-01_rb,5.9529e-01_rb, &\n     &6.4618e-01_rb,7.4819e-01_rb,8.5701e-01_rb/)\n      kao(:, 2, 7,14) = (/ &\n     &8.6525e-01_rb,7.5771e-01_rb,6.5024e-01_rb,5.6937e-01_rb,5.6534e-01_rb,5.8297e-01_rb, &\n     &6.3577e-01_rb,7.3677e-01_rb,8.4377e-01_rb/)\n      kao(:, 3, 7,14) = (/ &\n     &8.5121e-01_rb,7.4536e-01_rb,6.3948e-01_rb,5.5760e-01_rb,5.5733e-01_rb,5.7172e-01_rb, &\n     &6.2728e-01_rb,7.2631e-01_rb,8.3134e-01_rb/)\n      kao(:, 4, 7,14) = (/ &\n     &8.3673e-01_rb,7.3261e-01_rb,6.2850e-01_rb,5.4720e-01_rb,5.4987e-01_rb,5.6219e-01_rb, &\n     &6.1953e-01_rb,7.1698e-01_rb,8.1995e-01_rb/)\n      kao(:, 5, 7,14) = (/ &\n     &8.2233e-01_rb,7.1991e-01_rb,6.1754e-01_rb,5.3796e-01_rb,5.4354e-01_rb,5.5330e-01_rb, &\n     &6.1303e-01_rb,7.0902e-01_rb,8.1040e-01_rb/)\n      kao(:, 1, 8,14) = (/ &\n     &2.1633e+00_rb,1.8933e+00_rb,1.6233e+00_rb,1.3534e+00_rb,1.1037e+00_rb,9.5036e-01_rb, &\n     &8.5982e-01_rb,8.2829e-01_rb,9.4205e-01_rb/)\n      kao(:, 2, 8,14) = (/ &\n     &2.1282e+00_rb,1.8626e+00_rb,1.5970e+00_rb,1.3314e+00_rb,1.0818e+00_rb,9.3527e-01_rb, &\n     &8.4498e-01_rb,8.1322e-01_rb,9.2537e-01_rb/)\n      kao(:, 3, 8,14) = (/ &\n     &2.0953e+00_rb,1.8337e+00_rb,1.5723e+00_rb,1.3107e+00_rb,1.0621e+00_rb,9.2114e-01_rb, &\n     &8.2743e-01_rb,8.0051e-01_rb,9.1039e-01_rb/)\n      kao(:, 4, 8,14) = (/ &\n     &2.0607e+00_rb,1.8035e+00_rb,1.5462e+00_rb,1.2890e+00_rb,1.0433e+00_rb,9.0766e-01_rb, &\n     &8.1242e-01_rb,7.8938e-01_rb,8.9703e-01_rb/)\n      kao(:, 5, 8,14) = (/ &\n     &2.0272e+00_rb,1.7741e+00_rb,1.5210e+00_rb,1.2680e+00_rb,1.0246e+00_rb,8.9475e-01_rb, &\n     &7.9856e-01_rb,7.8051e-01_rb,8.8639e-01_rb/)\n      kao(:, 1, 9,14) = (/ &\n     &1.0073e+01_rb,8.8141e+00_rb,7.5553e+00_rb,6.2968e+00_rb,5.0379e+00_rb,3.7790e+00_rb, &\n     &2.5252e+00_rb,1.5121e+00_rb,1.0239e+00_rb/)\n      kao(:, 2, 9,14) = (/ &\n     &9.9292e+00_rb,8.6881e+00_rb,7.4471e+00_rb,6.2062e+00_rb,4.9656e+00_rb,3.7249e+00_rb, &\n     &2.4866e+00_rb,1.4902e+00_rb,1.0036e+00_rb/)\n      kao(:, 3, 9,14) = (/ &\n     &9.7859e+00_rb,8.5628e+00_rb,7.3398e+00_rb,6.1169e+00_rb,4.8940e+00_rb,3.6711e+00_rb, &\n     &2.4492e+00_rb,1.4699e+00_rb,9.8554e-01_rb/)\n      kao(:, 4, 9,14) = (/ &\n     &9.6386e+00_rb,8.4340e+00_rb,7.2293e+00_rb,6.0249e+00_rb,4.8203e+00_rb,3.6156e+00_rb, &\n     &2.4114e+00_rb,1.4506e+00_rb,9.7113e-01_rb/)\n      kao(:, 5, 9,14) = (/ &\n     &9.4939e+00_rb,8.3072e+00_rb,7.1206e+00_rb,5.9343e+00_rb,4.7478e+00_rb,3.5614e+00_rb, &\n     &2.3752e+00_rb,1.4305e+00_rb,9.6050e-01_rb/)\n      kao(:, 1,10,14) = (/ &\n     &5.2612e+01_rb,4.6036e+01_rb,3.9459e+01_rb,3.2882e+01_rb,2.6307e+01_rb,1.9730e+01_rb, &\n     &1.3154e+01_rb,6.5782e+00_rb,1.1007e+00_rb/)\n      kao(:, 2,10,14) = (/ &\n     &5.2045e+01_rb,4.5541e+01_rb,3.9035e+01_rb,3.2530e+01_rb,2.6024e+01_rb,1.9518e+01_rb, &\n     &1.3013e+01_rb,6.5076e+00_rb,1.0772e+00_rb/)\n      kao(:, 3,10,14) = (/ &\n     &5.1396e+01_rb,4.4972e+01_rb,3.8548e+01_rb,3.2123e+01_rb,2.5700e+01_rb,1.9274e+01_rb, &\n     &1.2851e+01_rb,6.4259e+00_rb,1.0576e+00_rb/)\n      kao(:, 4,10,14) = (/ &\n     &5.0681e+01_rb,4.4348e+01_rb,3.8014e+01_rb,3.1677e+01_rb,2.5342e+01_rb,1.9007e+01_rb, &\n     &1.2671e+01_rb,6.3366e+00_rb,1.0433e+00_rb/)\n      kao(:, 5,10,14) = (/ &\n     &4.9909e+01_rb,4.3671e+01_rb,3.7433e+01_rb,3.1194e+01_rb,2.4957e+01_rb,1.8717e+01_rb, &\n     &1.2479e+01_rb,6.2406e+00_rb,1.0315e+00_rb/)\n      kao(:, 1,11,14) = (/ &\n     &9.5447e+01_rb,8.3519e+01_rb,7.1586e+01_rb,5.9654e+01_rb,4.7724e+01_rb,3.5792e+01_rb, &\n     &2.3862e+01_rb,1.1932e+01_rb,1.1580e+00_rb/)\n      kao(:, 2,11,14) = (/ &\n     &9.4633e+01_rb,8.2803e+01_rb,7.0974e+01_rb,5.9145e+01_rb,4.7317e+01_rb,3.5487e+01_rb, &\n     &2.3658e+01_rb,1.1830e+01_rb,1.1359e+00_rb/)\n      kao(:, 3,11,14) = (/ &\n     &9.3512e+01_rb,8.1822e+01_rb,7.0137e+01_rb,5.8447e+01_rb,4.6756e+01_rb,3.5068e+01_rb, &\n     &2.3379e+01_rb,1.1690e+01_rb,1.1191e+00_rb/)\n      kao(:, 4,11,14) = (/ &\n     &9.1943e+01_rb,8.0451e+01_rb,6.8957e+01_rb,5.7463e+01_rb,4.5972e+01_rb,3.4478e+01_rb, &\n     &2.2985e+01_rb,1.1494e+01_rb,1.1048e+00_rb/)\n      kao(:, 5,11,14) = (/ &\n     &9.0366e+01_rb,7.9072e+01_rb,6.7775e+01_rb,5.6480e+01_rb,4.5183e+01_rb,3.3888e+01_rb, &\n     &2.2593e+01_rb,1.1297e+01_rb,1.0941e+00_rb/)\n      kao(:, 1,12,14) = (/ &\n     &1.2829e+02_rb,1.1225e+02_rb,9.6218e+01_rb,8.0178e+01_rb,6.4148e+01_rb,4.8109e+01_rb, &\n     &3.2071e+01_rb,1.6037e+01_rb,1.2082e+00_rb/)\n      kao(:, 2,12,14) = (/ &\n     &1.2686e+02_rb,1.1100e+02_rb,9.5144e+01_rb,7.9288e+01_rb,6.3431e+01_rb,4.7572e+01_rb, &\n     &3.1716e+01_rb,1.5858e+01_rb,1.1882e+00_rb/)\n      kao(:, 3,12,14) = (/ &\n     &1.2492e+02_rb,1.0930e+02_rb,9.3686e+01_rb,7.8073e+01_rb,6.2461e+01_rb,4.6846e+01_rb, &\n     &3.1229e+01_rb,1.5615e+01_rb,1.1735e+00_rb/)\n      kao(:, 4,12,14) = (/ &\n     &1.2277e+02_rb,1.0742e+02_rb,9.2079e+01_rb,7.6735e+01_rb,6.1388e+01_rb,4.6041e+01_rb, &\n     &3.0695e+01_rb,1.5349e+01_rb,1.1628e+00_rb/)\n      kao(:, 5,12,14) = (/ &\n     &1.2083e+02_rb,1.0573e+02_rb,9.0624e+01_rb,7.5519e+01_rb,6.0418e+01_rb,4.5314e+01_rb, &\n     &3.0211e+01_rb,1.5107e+01_rb,1.1538e+00_rb/)\n      kao(:, 1,13,14) = (/ &\n     &1.3638e+02_rb,1.1933e+02_rb,1.0229e+02_rb,8.5232e+01_rb,6.8189e+01_rb,5.1142e+01_rb, &\n     &3.4096e+01_rb,1.7048e+01_rb,1.2383e+00_rb/)\n      kao(:, 2,13,14) = (/ &\n     &1.3472e+02_rb,1.1788e+02_rb,1.0104e+02_rb,8.4200e+01_rb,6.7359e+01_rb,5.0520e+01_rb, &\n     &3.3681e+01_rb,1.6841e+01_rb,1.2326e+00_rb/)\n      kao(:, 3,13,14) = (/ &\n     &1.3259e+02_rb,1.1602e+02_rb,9.9447e+01_rb,8.2873e+01_rb,6.6300e+01_rb,4.9725e+01_rb, &\n     &3.3151e+01_rb,1.6576e+01_rb,1.2214e+00_rb/)\n      kao(:, 4,13,14) = (/ &\n     &1.3062e+02_rb,1.1429e+02_rb,9.7966e+01_rb,8.1640e+01_rb,6.5311e+01_rb,4.8985e+01_rb, &\n     &3.2658e+01_rb,1.6329e+01_rb,1.2124e+00_rb/)\n      kao(:, 5,13,14) = (/ &\n     &1.2869e+02_rb,1.1261e+02_rb,9.6524e+01_rb,8.0437e+01_rb,6.4351e+01_rb,4.8263e+01_rb, &\n     &3.2178e+01_rb,1.6090e+01_rb,1.2063e+00_rb/)\n      kao(:, 1, 1,15) = (/ &\n     &1.6224e-02_rb,5.5981e-02_rb,1.1058e-01_rb,1.6311e-01_rb,2.1224e-01_rb,2.5534e-01_rb, &\n     &2.8563e-01_rb,2.8102e-01_rb,4.2449e-01_rb/)\n      kao(:, 2, 1,15) = (/ &\n     &1.5819e-02_rb,5.4235e-02_rb,1.0708e-01_rb,1.5789e-01_rb,2.0538e-01_rb,2.4690e-01_rb, &\n     &2.7600e-01_rb,2.7172e-01_rb,4.1075e-01_rb/)\n      kao(:, 3, 1,15) = (/ &\n     &1.5437e-02_rb,5.3030e-02_rb,1.0453e-01_rb,1.5410e-01_rb,2.0034e-01_rb,2.4064e-01_rb, &\n     &2.6869e-01_rb,2.6394e-01_rb,4.0067e-01_rb/)\n      kao(:, 4, 1,15) = (/ &\n     &1.5047e-02_rb,5.2309e-02_rb,1.0294e-01_rb,1.5163e-01_rb,1.9708e-01_rb,2.3671e-01_rb, &\n     &2.6420e-01_rb,2.5937e-01_rb,3.9409e-01_rb/)\n      kao(:, 5, 1,15) = (/ &\n     &1.4670e-02_rb,5.2264e-02_rb,1.0263e-01_rb,1.5109e-01_rb,1.9635e-01_rb,2.3592e-01_rb, &\n     &2.6369e-01_rb,2.6037e-01_rb,3.9232e-01_rb/)\n      kao(:, 1, 2,15) = (/ &\n     &2.7874e-02_rb,6.8016e-02_rb,1.3490e-01_rb,2.0013e-01_rb,2.6255e-01_rb,3.1976e-01_rb, &\n     &3.6546e-01_rb,3.7626e-01_rb,5.2506e-01_rb/)\n      kao(:, 2, 2,15) = (/ &\n     &2.7188e-02_rb,6.5949e-02_rb,1.3068e-01_rb,1.9379e-01_rb,2.5414e-01_rb,3.0936e-01_rb, &\n     &3.5322e-01_rb,3.6307e-01_rb,5.0826e-01_rb/)\n      kao(:, 3, 2,15) = (/ &\n     &2.6530e-02_rb,6.4457e-02_rb,1.2748e-01_rb,1.8895e-01_rb,2.4773e-01_rb,3.0143e-01_rb, &\n     &3.4397e-01_rb,3.5278e-01_rb,4.9544e-01_rb/)\n      kao(:, 4, 2,15) = (/ &\n     &2.5866e-02_rb,6.3478e-02_rb,1.2538e-01_rb,1.8573e-01_rb,2.4341e-01_rb,2.9608e-01_rb, &\n     &3.3770e-01_rb,3.4604e-01_rb,4.8658e-01_rb/)\n      kao(:, 5, 2,15) = (/ &\n     &2.5184e-02_rb,6.3069e-02_rb,1.2422e-01_rb,1.8387e-01_rb,2.4089e-01_rb,2.9292e-01_rb, &\n     &3.3402e-01_rb,3.4222e-01_rb,4.8125e-01_rb/)\n      kao(:, 1, 3,15) = (/ &\n     &6.4680e-02_rb,8.3094e-02_rb,1.6505e-01_rb,2.4624e-01_rb,3.2572e-01_rb,4.0189e-01_rb, &\n     &4.7033e-01_rb,5.1238e-01_rb,6.5139e-01_rb/)\n      kao(:, 2, 3,15) = (/ &\n     &6.3121e-02_rb,8.0680e-02_rb,1.6005e-01_rb,2.3872e-01_rb,3.1571e-01_rb,3.8944e-01_rb, &\n     &4.5551e-01_rb,4.9522e-01_rb,6.3135e-01_rb/)\n      kao(:, 3, 3,15) = (/ &\n     &6.1563e-02_rb,7.8867e-02_rb,1.5612e-01_rb,2.3258e-01_rb,3.0746e-01_rb,3.7914e-01_rb, &\n     &4.4323e-01_rb,4.8117e-01_rb,6.1483e-01_rb/)\n      kao(:, 4, 3,15) = (/ &\n     &6.0025e-02_rb,7.7639e-02_rb,1.5328e-01_rb,2.2820e-01_rb,3.0153e-01_rb,3.7164e-01_rb, &\n     &4.3426e-01_rb,4.7103e-01_rb,6.0254e-01_rb/)\n      kao(:, 5, 3,15) = (/ &\n     &5.8411e-02_rb,7.7256e-02_rb,1.5120e-01_rb,2.2490e-01_rb,2.9704e-01_rb,3.6599e-01_rb, &\n     &4.2759e-01_rb,4.6376e-01_rb,5.9316e-01_rb/)\n      kao(:, 1, 4,15) = (/ &\n     &1.5257e-01_rb,1.3544e-01_rb,2.0077e-01_rb,3.0036e-01_rb,3.9895e-01_rb,4.9562e-01_rb, &\n     &5.8758e-01_rb,6.6215e-01_rb,7.9779e-01_rb/)\n      kao(:, 2, 4,15) = (/ &\n     &1.4896e-01_rb,1.3204e-01_rb,1.9507e-01_rb,2.9140e-01_rb,3.8695e-01_rb,4.8067e-01_rb, &\n     &5.6978e-01_rb,6.4163e-01_rb,7.7379e-01_rb/)\n      kao(:, 3, 4,15) = (/ &\n     &1.4526e-01_rb,1.2874e-01_rb,1.9046e-01_rb,2.8415e-01_rb,3.7702e-01_rb,4.6809e-01_rb, &\n     &5.5459e-01_rb,6.2416e-01_rb,7.5329e-01_rb/)\n      kao(:, 4, 4,15) = (/ &\n     &1.4150e-01_rb,1.2551e-01_rb,1.8699e-01_rb,2.7869e-01_rb,3.6960e-01_rb,4.5869e-01_rb, &\n     &5.4325e-01_rb,6.1092e-01_rb,7.3794e-01_rb/)\n      kao(:, 5, 4,15) = (/ &\n     &1.3788e-01_rb,1.2292e-01_rb,1.8424e-01_rb,2.7423e-01_rb,3.6354e-01_rb,4.5105e-01_rb, &\n     &5.3408e-01_rb,6.0044e-01_rb,7.2537e-01_rb/)\n      kao(:, 1, 5,15) = (/ &\n     &3.2844e-01_rb,2.8856e-01_rb,2.7979e-01_rb,3.6340e-01_rb,4.8359e-01_rb,6.0259e-01_rb, &\n     &7.1867e-01_rb,8.2355e-01_rb,9.6702e-01_rb/)\n      kao(:, 2, 5,15) = (/ &\n     &3.2063e-01_rb,2.8155e-01_rb,2.6962e-01_rb,3.5320e-01_rb,4.6960e-01_rb,5.8494e-01_rb, &\n     &6.9755e-01_rb,7.9908e-01_rb,9.3875e-01_rb/)\n      kao(:, 3, 5,15) = (/ &\n     &3.1261e-01_rb,2.7434e-01_rb,2.6034e-01_rb,3.4461e-01_rb,4.5775e-01_rb,5.6986e-01_rb, &\n     &6.7919e-01_rb,7.7764e-01_rb,9.1375e-01_rb/)\n      kao(:, 4, 5,15) = (/ &\n     &3.0440e-01_rb,2.6704e-01_rb,2.5252e-01_rb,3.3787e-01_rb,4.4841e-01_rb,5.5807e-01_rb, &\n     &6.6481e-01_rb,7.6089e-01_rb,8.9431e-01_rb/)\n      kao(:, 5, 5,15) = (/ &\n     &2.9686e-01_rb,2.6035e-01_rb,2.4591e-01_rb,3.3225e-01_rb,4.4072e-01_rb,5.4821e-01_rb, &\n     &6.5299e-01_rb,7.4709e-01_rb,8.7822e-01_rb/)\n      kao(:, 1, 6,15) = (/ &\n     &6.6195e-01_rb,5.8013e-01_rb,4.9831e-01_rb,4.9605e-01_rb,5.8178e-01_rb,7.2595e-01_rb, &\n     &8.6836e-01_rb,1.0033e+00_rb,1.1633e+00_rb/)\n      kao(:, 2, 6,15) = (/ &\n     &6.4501e-01_rb,5.6519e-01_rb,4.8535e-01_rb,4.7586e-01_rb,5.6606e-01_rb,7.0584e-01_rb, &\n     &8.4395e-01_rb,9.7492e-01_rb,1.1306e+00_rb/)\n      kao(:, 3, 6,15) = (/ &\n     &6.2808e-01_rb,5.5020e-01_rb,4.7240e-01_rb,4.5801e-01_rb,5.5243e-01_rb,6.8837e-01_rb, &\n     &8.2269e-01_rb,9.4987e-01_rb,1.1015e+00_rb/)\n      kao(:, 4, 6,15) = (/ &\n     &6.1101e-01_rb,5.3520e-01_rb,4.5941e-01_rb,4.4278e-01_rb,5.4121e-01_rb,6.7408e-01_rb, &\n     &8.0538e-01_rb,9.2955e-01_rb,1.0781e+00_rb/)\n      kao(:, 5, 6,15) = (/ &\n     &5.9524e-01_rb,5.2132e-01_rb,4.4745e-01_rb,4.2965e-01_rb,5.3187e-01_rb,6.6218e-01_rb, &\n     &7.9084e-01_rb,9.1257e-01_rb,1.0584e+00_rb/)\n      kao(:, 1, 7,15) = (/ &\n     &1.4144e+00_rb,1.2384e+00_rb,1.0623e+00_rb,8.8626e-01_rb,8.1737e-01_rb,8.6950e-01_rb, &\n     &1.0395e+00_rb,1.2069e+00_rb,1.3892e+00_rb/)\n      kao(:, 2, 7,15) = (/ &\n     &1.3748e+00_rb,1.2036e+00_rb,1.0323e+00_rb,8.6117e-01_rb,7.8383e-01_rb,8.4592e-01_rb, &\n     &1.0122e+00_rb,1.1745e+00_rb,1.3519e+00_rb/)\n      kao(:, 3, 7,15) = (/ &\n     &1.3356e+00_rb,1.1692e+00_rb,1.0028e+00_rb,8.3643e-01_rb,7.5357e-01_rb,8.2575e-01_rb, &\n     &9.8798e-01_rb,1.1461e+00_rb,1.3189e+00_rb/)\n      kao(:, 4, 7,15) = (/ &\n     &1.2972e+00_rb,1.1356e+00_rb,9.7391e-01_rb,8.1222e-01_rb,7.2715e-01_rb,8.0916e-01_rb, &\n     &9.6777e-01_rb,1.1223e+00_rb,1.2914e+00_rb/)\n      kao(:, 5, 7,15) = (/ &\n     &1.2621e+00_rb,1.1049e+00_rb,9.4752e-01_rb,7.9014e-01_rb,7.0399e-01_rb,7.9481e-01_rb, &\n     &9.5022e-01_rb,1.1017e+00_rb,1.2675e+00_rb/)\n      kao(:, 1, 8,15) = (/ &\n     &3.5678e+00_rb,3.1226e+00_rb,2.6774e+00_rb,2.2323e+00_rb,1.7871e+00_rb,1.4068e+00_rb, &\n     &1.2751e+00_rb,1.4347e+00_rb,1.6442e+00_rb/)\n      kao(:, 2, 8,15) = (/ &\n     &3.4620e+00_rb,3.0298e+00_rb,2.5977e+00_rb,2.1657e+00_rb,1.7337e+00_rb,1.3525e+00_rb, &\n     &1.2330e+00_rb,1.4002e+00_rb,1.6038e+00_rb/)\n      kao(:, 3, 8,15) = (/ &\n     &3.3581e+00_rb,2.9387e+00_rb,2.5197e+00_rb,2.1005e+00_rb,1.6813e+00_rb,1.3030e+00_rb, &\n     &1.1987e+00_rb,1.3683e+00_rb,1.5668e+00_rb/)\n      kao(:, 4, 8,15) = (/ &\n     &3.2581e+00_rb,2.8514e+00_rb,2.4446e+00_rb,2.0378e+00_rb,1.6310e+00_rb,1.2580e+00_rb, &\n     &1.1700e+00_rb,1.3407e+00_rb,1.5349e+00_rb/)\n      kao(:, 5, 8,15) = (/ &\n     &3.1664e+00_rb,2.7709e+00_rb,2.3756e+00_rb,1.9802e+00_rb,1.5848e+00_rb,1.2171e+00_rb, &\n     &1.1461e+00_rb,1.3159e+00_rb,1.5061e+00_rb/)\n      kao(:, 1, 9,15) = (/ &\n     &1.6997e+01_rb,1.4874e+01_rb,1.2750e+01_rb,1.0625e+01_rb,8.5017e+00_rb,6.3777e+00_rb, &\n     &4.2536e+00_rb,2.2902e+00_rb,1.9313e+00_rb/)\n      kao(:, 2, 9,15) = (/ &\n     &1.6471e+01_rb,1.4414e+01_rb,1.2355e+01_rb,1.0296e+01_rb,8.2389e+00_rb,6.1803e+00_rb, &\n     &4.1219e+00_rb,2.1942e+00_rb,1.8874e+00_rb/)\n      kao(:, 3, 9,15) = (/ &\n     &1.5959e+01_rb,1.3964e+01_rb,1.1970e+01_rb,9.9759e+00_rb,7.9817e+00_rb,5.9872e+00_rb, &\n     &3.9932e+00_rb,2.1070e+00_rb,1.8460e+00_rb/)\n      kao(:, 4, 9,15) = (/ &\n     &1.5470e+01_rb,1.3538e+01_rb,1.1604e+01_rb,9.6708e+00_rb,7.7374e+00_rb,5.8040e+00_rb, &\n     &3.8707e+00_rb,2.0267e+00_rb,1.8089e+00_rb/)\n      kao(:, 5, 9,15) = (/ &\n     &1.5020e+01_rb,1.3143e+01_rb,1.1265e+01_rb,9.3885e+00_rb,7.5114e+00_rb,5.6345e+00_rb, &\n     &3.7577e+00_rb,1.9548e+00_rb,1.7742e+00_rb/)\n      kao(:, 1,10,15) = (/ &\n     &9.0636e+01_rb,7.9307e+01_rb,6.7977e+01_rb,5.6649e+01_rb,4.5320e+01_rb,3.3991e+01_rb, &\n     &2.2662e+01_rb,1.1334e+01_rb,2.2438e+00_rb/)\n      kao(:, 2,10,15) = (/ &\n     &8.7565e+01_rb,7.6621e+01_rb,6.5675e+01_rb,5.4728e+01_rb,4.3786e+01_rb,3.2842e+01_rb, &\n     &2.1895e+01_rb,1.0950e+01_rb,2.1955e+00_rb/)\n      kao(:, 3,10,15) = (/ &\n     &8.4686e+01_rb,7.4100e+01_rb,6.3516e+01_rb,5.2929e+01_rb,4.2345e+01_rb,3.1759e+01_rb, &\n     &2.1174e+01_rb,1.0590e+01_rb,2.1489e+00_rb/)\n      kao(:, 4,10,15) = (/ &\n     &8.2038e+01_rb,7.1783e+01_rb,6.1529e+01_rb,5.1276e+01_rb,4.1020e+01_rb,3.0766e+01_rb, &\n     &2.0512e+01_rb,1.0258e+01_rb,2.1057e+00_rb/)\n      kao(:, 5,10,15) = (/ &\n     &7.9656e+01_rb,6.9701e+01_rb,5.9744e+01_rb,4.9787e+01_rb,3.9829e+01_rb,2.9874e+01_rb, &\n     &1.9917e+01_rb,9.9593e+00_rb,2.0648e+00_rb/)\n      kao(:, 1,11,15) = (/ &\n     &1.6605e+02_rb,1.4529e+02_rb,1.2455e+02_rb,1.0378e+02_rb,8.3029e+01_rb,6.2280e+01_rb, &\n     &4.1517e+01_rb,2.0760e+01_rb,2.5530e+00_rb/)\n      kao(:, 2,11,15) = (/ &\n     &1.6006e+02_rb,1.4006e+02_rb,1.2005e+02_rb,1.0004e+02_rb,8.0031e+01_rb,6.0027e+01_rb, &\n     &4.0019e+01_rb,2.0011e+01_rb,2.4994e+00_rb/)\n      kao(:, 3,11,15) = (/ &\n     &1.5475e+02_rb,1.3539e+02_rb,1.1606e+02_rb,9.6709e+01_rb,7.7371e+01_rb,5.8029e+01_rb, &\n     &3.8687e+01_rb,1.9345e+01_rb,2.4484e+00_rb/)\n      kao(:, 4,11,15) = (/ &\n     &1.5058e+02_rb,1.3176e+02_rb,1.1294e+02_rb,9.4118e+01_rb,7.5292e+01_rb,5.6471e+01_rb, &\n     &3.7649e+01_rb,1.8825e+01_rb,2.4006e+00_rb/)\n      kao(:, 5,11,15) = (/ &\n     &1.4680e+02_rb,1.2845e+02_rb,1.1009e+02_rb,9.1748e+01_rb,7.3399e+01_rb,5.5050e+01_rb, &\n     &3.6700e+01_rb,1.8351e+01_rb,2.3540e+00_rb/)\n      kao(:, 1,12,15) = (/ &\n     &2.2602e+02_rb,1.9778e+02_rb,1.6953e+02_rb,1.4127e+02_rb,1.1301e+02_rb,8.4757e+01_rb, &\n     &5.6507e+01_rb,2.8257e+01_rb,2.8716e+00_rb/)\n      kao(:, 2,12,15) = (/ &\n     &2.1869e+02_rb,1.9135e+02_rb,1.6402e+02_rb,1.3669e+02_rb,1.0935e+02_rb,8.2013e+01_rb, &\n     &5.4674e+01_rb,2.7339e+01_rb,2.8132e+00_rb/)\n      kao(:, 3,12,15) = (/ &\n     &2.1253e+02_rb,1.8597e+02_rb,1.5940e+02_rb,1.3282e+02_rb,1.0626e+02_rb,7.9692e+01_rb, &\n     &5.3134e+01_rb,2.6567e+01_rb,2.7573e+00_rb/)\n      kao(:, 4,12,15) = (/ &\n     &2.0725e+02_rb,1.8134e+02_rb,1.5543e+02_rb,1.2952e+02_rb,1.0362e+02_rb,7.7720e+01_rb, &\n     &5.1811e+01_rb,2.5907e+01_rb,2.7022e+00_rb/)\n      kao(:, 5,12,15) = (/ &\n     &2.0216e+02_rb,1.7690e+02_rb,1.5162e+02_rb,1.2635e+02_rb,1.0108e+02_rb,7.5810e+01_rb, &\n     &5.0540e+01_rb,2.5271e+01_rb,2.6508e+00_rb/)\n      kao(:, 1,13,15) = (/ &\n     &2.4880e+02_rb,2.1770e+02_rb,1.8661e+02_rb,1.5550e+02_rb,1.2440e+02_rb,9.3305e+01_rb, &\n     &6.2205e+01_rb,3.1105e+01_rb,3.1971e+00_rb/)\n      kao(:, 2,13,15) = (/ &\n     &2.4131e+02_rb,2.1114e+02_rb,1.8097e+02_rb,1.5081e+02_rb,1.2065e+02_rb,9.0483e+01_rb, &\n     &6.0327e+01_rb,3.0165e+01_rb,3.1338e+00_rb/)\n      kao(:, 3,13,15) = (/ &\n     &2.3499e+02_rb,2.0562e+02_rb,1.7624e+02_rb,1.4687e+02_rb,1.1750e+02_rb,8.8123e+01_rb, &\n     &5.8749e+01_rb,2.9377e+01_rb,3.0697e+00_rb/)\n      kao(:, 4,13,15) = (/ &\n     &2.2900e+02_rb,2.0038e+02_rb,1.7175e+02_rb,1.4313e+02_rb,1.1451e+02_rb,8.5878e+01_rb, &\n     &5.7253e+01_rb,2.8627e+01_rb,3.0070e+00_rb/)\n      kao(:, 5,13,15) = (/ &\n     &2.2306e+02_rb,1.9518e+02_rb,1.6729e+02_rb,1.3941e+02_rb,1.1152e+02_rb,8.3649e+01_rb, &\n     &5.5766e+01_rb,2.7883e+01_rb,2.9481e+00_rb/)\n      kao(:, 1, 1,16) = (/ &\n     &1.9445e-02_rb,6.3230e-02_rb,1.2479e-01_rb,1.8384e-01_rb,2.3882e-01_rb,2.8643e-01_rb, &\n     &3.1893e-01_rb,3.1112e-01_rb,4.7763e-01_rb/)\n      kao(:, 2, 1,16) = (/ &\n     &1.8835e-02_rb,6.2634e-02_rb,1.2363e-01_rb,1.8213e-01_rb,2.3659e-01_rb,2.8379e-01_rb, &\n     &3.1600e-01_rb,3.0828e-01_rb,4.7319e-01_rb/)\n      kao(:, 3, 1,16) = (/ &\n     &1.8228e-02_rb,6.1941e-02_rb,1.2224e-01_rb,1.8013e-01_rb,2.3399e-01_rb,2.8070e-01_rb, &\n     &3.1257e-01_rb,3.0493e-01_rb,4.6798e-01_rb/)\n      kao(:, 4, 1,16) = (/ &\n     &1.7647e-02_rb,6.1170e-02_rb,1.2073e-01_rb,1.7790e-01_rb,2.3107e-01_rb,2.7723e-01_rb, &\n     &3.0877e-01_rb,3.0124e-01_rb,4.6215e-01_rb/)\n      kao(:, 5, 1,16) = (/ &\n     &1.7079e-02_rb,6.0350e-02_rb,1.1912e-01_rb,1.7548e-01_rb,2.2801e-01_rb,2.7357e-01_rb, &\n     &3.0466e-01_rb,2.9733e-01_rb,4.5602e-01_rb/)\n      kao(:, 1, 2,16) = (/ &\n     &3.4634e-02_rb,7.7044e-02_rb,1.5273e-01_rb,2.2632e-01_rb,2.9575e-01_rb,3.6021e-01_rb, &\n     &4.0997e-01_rb,4.1812e-01_rb,5.9296e-01_rb/)\n      kao(:, 2, 2,16) = (/ &\n     &3.3420e-02_rb,7.6207e-02_rb,1.5110e-01_rb,2.2402e-01_rb,2.9356e-01_rb,3.5685e-01_rb, &\n     &4.0638e-01_rb,4.1457e-01_rb,5.8711e-01_rb/)\n      kao(:, 3, 2,16) = (/ &\n     &3.2246e-02_rb,7.5373e-02_rb,1.4946e-01_rb,2.2157e-01_rb,2.9037e-01_rb,3.5299e-01_rb, &\n     &4.0204e-01_rb,4.1028e-01_rb,5.8073e-01_rb/)\n      kao(:, 4, 2,16) = (/ &\n     &3.1106e-02_rb,7.4437e-02_rb,1.4762e-01_rb,2.1883e-01_rb,2.8679e-01_rb,3.4868e-01_rb, &\n     &3.9718e-01_rb,4.0541e-01_rb,5.7357e-01_rb/)\n      kao(:, 5, 2,16) = (/ &\n     &3.0021e-02_rb,7.3426e-02_rb,1.4561e-01_rb,2.1587e-01_rb,2.8293e-01_rb,3.4400e-01_rb, &\n     &3.9193e-01_rb,4.0015e-01_rb,5.6584e-01_rb/)\n      kao(:, 1, 3,16) = (/ &\n     &8.3051e-02_rb,9.4793e-02_rb,1.8876e-01_rb,2.8144e-01_rb,3.7196e-01_rb,4.5816e-01_rb, &\n     &5.3450e-01_rb,5.7690e-01_rb,7.4391e-01_rb/)\n      kao(:, 2, 3,16) = (/ &\n     &7.9830e-02_rb,9.3082e-02_rb,1.8538e-01_rb,2.7644e-01_rb,3.6534e-01_rb,4.5017e-01_rb, &\n     &5.2550e-01_rb,5.6808e-01_rb,7.3067e-01_rb/)\n      kao(:, 3, 3,16) = (/ &\n     &7.6737e-02_rb,9.1705e-02_rb,1.8269e-01_rb,2.7246e-01_rb,3.6014e-01_rb,4.4395e-01_rb, &\n     &5.1857e-01_rb,5.6175e-01_rb,7.2028e-01_rb/)\n      kao(:, 4, 3,16) = (/ &\n     &7.3809e-02_rb,9.0497e-02_rb,1.8026e-01_rb,2.6888e-01_rb,3.5554e-01_rb,4.3839e-01_rb, &\n     &5.1223e-01_rb,5.5508e-01_rb,7.1107e-01_rb/)\n      kao(:, 5, 3,16) = (/ &\n     &7.1033e-02_rb,8.9276e-02_rb,1.7779e-01_rb,2.6523e-01_rb,3.5066e-01_rb,4.3243e-01_rb, &\n     &5.0536e-01_rb,5.4783e-01_rb,7.0132e-01_rb/)\n      kao(:, 1, 4,16) = (/ &\n     &2.0125e-01_rb,1.7779e-01_rb,2.3399e-01_rb,3.4997e-01_rb,4.6464e-01_rb,5.7674e-01_rb, &\n     &6.8253e-01_rb,7.6508e-01_rb,9.2928e-01_rb/)\n      kao(:, 2, 4,16) = (/ &\n     &1.9265e-01_rb,1.7048e-01_rb,2.2831e-01_rb,3.4146e-01_rb,4.5338e-01_rb,5.6281e-01_rb, &\n     &6.6618e-01_rb,7.4718e-01_rb,9.0679e-01_rb/)\n      kao(:, 3, 4,16) = (/ &\n     &1.8456e-01_rb,1.6365e-01_rb,2.2378e-01_rb,3.3476e-01_rb,4.4451e-01_rb,5.5182e-01_rb, &\n     &6.5330e-01_rb,7.3313e-01_rb,8.8901e-01_rb/)\n      kao(:, 4, 4,16) = (/ &\n     &1.7702e-01_rb,1.5723e-01_rb,2.1978e-01_rb,3.2875e-01_rb,4.3660e-01_rb,5.4199e-01_rb, &\n     &6.4188e-01_rb,7.2098e-01_rb,8.7320e-01_rb/)\n      kao(:, 5, 4,16) = (/ &\n     &1.6997e-01_rb,1.5116e-01_rb,2.1600e-01_rb,3.2314e-01_rb,4.2913e-01_rb,5.3288e-01_rb, &\n     &6.3120e-01_rb,7.0945e-01_rb,8.5826e-01_rb/)\n      kao(:, 1, 5,16) = (/ &\n     &4.4228e-01_rb,3.8795e-01_rb,3.3395e-01_rb,4.3605e-01_rb,5.8013e-01_rb,7.2255e-01_rb, &\n     &8.6084e-01_rb,9.8346e-01_rb,1.1603e+00_rb/)\n      kao(:, 2, 5,16) = (/ &\n     &4.2199e-01_rb,3.7056e-01_rb,3.1956e-01_rb,4.2215e-01_rb,5.6164e-01_rb,6.9945e-01_rb, &\n     &8.3347e-01_rb,9.5217e-01_rb,1.1233e+00_rb/)\n      kao(:, 3, 5,16) = (/ &\n     &4.0375e-01_rb,3.5492e-01_rb,3.0638e-01_rb,4.1150e-01_rb,5.4754e-01_rb,6.8200e-01_rb, &\n     &8.1260e-01_rb,9.2875e-01_rb,1.0951e+00_rb/)\n      kao(:, 4, 5,16) = (/ &\n     &3.8716e-01_rb,3.4051e-01_rb,2.9411e-01_rb,4.0247e-01_rb,5.3546e-01_rb,6.6706e-01_rb, &\n     &7.9494e-01_rb,9.0883e-01_rb,1.0709e+00_rb/)\n      kao(:, 5, 5,16) = (/ &\n     &3.7160e-01_rb,3.2689e-01_rb,2.8321e-01_rb,3.9414e-01_rb,5.2444e-01_rb,6.5338e-01_rb, &\n     &7.7865e-01_rb,8.9056e-01_rb,1.0489e+00_rb/)\n      kao(:, 1, 6,16) = (/ &\n     &9.0506e-01_rb,7.9284e-01_rb,6.8068e-01_rb,5.6916e-01_rb,7.2503e-01_rb,9.0468e-01_rb, &\n     &1.0813e+00_rb,1.2473e+00_rb,1.4500e+00_rb/)\n      kao(:, 2, 6,16) = (/ &\n     &8.6465e-01_rb,7.5773e-01_rb,6.5086e-01_rb,5.4531e-01_rb,6.9722e-01_rb,8.6983e-01_rb, &\n     &1.0397e+00_rb,1.1992e+00_rb,1.3944e+00_rb/)\n      kao(:, 3, 6,16) = (/ &\n     &8.2825e-01_rb,7.2598e-01_rb,6.2379e-01_rb,5.2549e-01_rb,6.7605e-01_rb,8.4340e-01_rb, &\n     &1.0082e+00_rb,1.1629e+00_rb,1.3521e+00_rb/)\n      kao(:, 4, 6,16) = (/ &\n     &7.9420e-01_rb,6.9632e-01_rb,5.9834e-01_rb,5.1029e-01_rb,6.5811e-01_rb,8.2106e-01_rb, &\n     &9.8160e-01_rb,1.1324e+00_rb,1.3162e+00_rb/)\n      kao(:, 5, 6,16) = (/ &\n     &7.6215e-01_rb,6.6829e-01_rb,5.7431e-01_rb,4.9359e-01_rb,6.4194e-01_rb,8.0089e-01_rb, &\n     &9.5749e-01_rb,1.1049e+00_rb,1.2839e+00_rb/)\n      kao(:, 1, 7,16) = (/ &\n     &1.9676e+00_rb,1.7224e+00_rb,1.4775e+00_rb,1.2325e+00_rb,9.8756e-01_rb,1.1304e+00_rb, &\n     &1.3539e+00_rb,1.5704e+00_rb,1.8105e+00_rb/)\n      kao(:, 2, 7,16) = (/ &\n     &1.8838e+00_rb,1.6493e+00_rb,1.4147e+00_rb,1.1804e+00_rb,9.4604e-01_rb,1.0806e+00_rb, &\n     &1.2942e+00_rb,1.5011e+00_rb,1.7307e+00_rb/)\n      kao(:, 3, 7,16) = (/ &\n     &1.8058e+00_rb,1.5808e+00_rb,1.3563e+00_rb,1.1318e+00_rb,9.0772e-01_rb,1.0432e+00_rb, &\n     &1.2494e+00_rb,1.4491e+00_rb,1.6707e+00_rb/)\n      kao(:, 4, 7,16) = (/ &\n     &1.7320e+00_rb,1.5166e+00_rb,1.3008e+00_rb,1.0854e+00_rb,8.7621e-01_rb,1.0114e+00_rb, &\n     &1.2114e+00_rb,1.4051e+00_rb,1.6197e+00_rb/)\n      kao(:, 5, 7,16) = (/ &\n     &1.6617e+00_rb,1.4551e+00_rb,1.2484e+00_rb,1.0417e+00_rb,8.4899e-01_rb,9.8293e-01_rb, &\n     &1.1773e+00_rb,1.3657e+00_rb,1.5743e+00_rb/)\n      kao(:, 1, 8,16) = (/ &\n     &5.0769e+00_rb,4.4432e+00_rb,3.8096e+00_rb,3.1755e+00_rb,2.5417e+00_rb,1.9082e+00_rb, &\n     &1.6892e+00_rb,1.9659e+00_rb,2.2550e+00_rb/)\n      kao(:, 2, 8,16) = (/ &\n     &4.8681e+00_rb,4.2603e+00_rb,3.6527e+00_rb,3.0450e+00_rb,2.4373e+00_rb,1.8300e+00_rb, &\n     &1.6072e+00_rb,1.8705e+00_rb,2.1455e+00_rb/)\n      kao(:, 3, 8,16) = (/ &\n     &4.6692e+00_rb,4.0861e+00_rb,3.5032e+00_rb,2.9205e+00_rb,2.3378e+00_rb,1.7550e+00_rb, &\n     &1.5446e+00_rb,1.7976e+00_rb,2.0621e+00_rb/)\n      kao(:, 4, 8,16) = (/ &\n     &4.4792e+00_rb,3.9199e+00_rb,3.3609e+00_rb,2.8016e+00_rb,2.2429e+00_rb,1.6836e+00_rb, &\n     &1.4923e+00_rb,1.7367e+00_rb,1.9921e+00_rb/)\n      kao(:, 5, 8,16) = (/ &\n     &4.2972e+00_rb,3.7609e+00_rb,3.2243e+00_rb,2.6879e+00_rb,2.1517e+00_rb,1.6153e+00_rb, &\n     &1.4455e+00_rb,1.6824e+00_rb,1.9297e+00_rb/)\n      kao(:, 1, 9,16) = (/ &\n     &2.4893e+01_rb,2.1786e+01_rb,1.8675e+01_rb,1.5563e+01_rb,1.2450e+01_rb,9.3398e+00_rb, &\n     &6.2286e+00_rb,3.1170e+00_rb,2.8014e+00_rb/)\n      kao(:, 2, 9,16) = (/ &\n     &2.3897e+01_rb,2.0912e+01_rb,1.7925e+01_rb,1.4937e+01_rb,1.1951e+01_rb,8.9651e+00_rb, &\n     &5.9788e+00_rb,2.9923e+00_rb,2.6581e+00_rb/)\n      kao(:, 3, 9,16) = (/ &\n     &2.2932e+01_rb,2.0066e+01_rb,1.7201e+01_rb,1.4334e+01_rb,1.1468e+01_rb,8.6027e+00_rb, &\n     &5.7371e+00_rb,2.8711e+00_rb,2.5442e+00_rb/)\n      kao(:, 4, 9,16) = (/ &\n     &2.1999e+01_rb,1.9250e+01_rb,1.6501e+01_rb,1.3753e+01_rb,1.1001e+01_rb,8.2533e+00_rb, &\n     &5.5038e+00_rb,2.7545e+00_rb,2.4493e+00_rb/)\n      kao(:, 5, 9,16) = (/ &\n     &2.1105e+01_rb,1.8469e+01_rb,1.5831e+01_rb,1.3195e+01_rb,1.0556e+01_rb,7.9178e+00_rb, &\n     &5.2806e+00_rb,2.6423e+00_rb,2.3650e+00_rb/)\n      kao(:, 1,10,16) = (/ &\n     &1.3702e+02_rb,1.1990e+02_rb,1.0277e+02_rb,8.5642e+01_rb,6.8515e+01_rb,5.1385e+01_rb, &\n     &3.4262e+01_rb,1.7133e+01_rb,3.4526e+00_rb/)\n      kao(:, 2,10,16) = (/ &\n     &1.3162e+02_rb,1.1516e+02_rb,9.8725e+01_rb,8.2273e+01_rb,6.5802e+01_rb,4.9353e+01_rb, &\n     &3.2909e+01_rb,1.6459e+01_rb,3.2683e+00_rb/)\n      kao(:, 3,10,16) = (/ &\n     &1.2631e+02_rb,1.1053e+02_rb,9.4741e+01_rb,7.8943e+01_rb,6.3147e+01_rb,4.7375e+01_rb, &\n     &3.1582e+01_rb,1.5793e+01_rb,3.1197e+00_rb/)\n      kao(:, 4,10,16) = (/ &\n     &1.2113e+02_rb,1.0599e+02_rb,9.0842e+01_rb,7.5703e+01_rb,6.0562e+01_rb,4.5424e+01_rb, &\n     &3.0282e+01_rb,1.5145e+01_rb,2.9946e+00_rb/)\n      kao(:, 5,10,16) = (/ &\n     &1.1642e+02_rb,1.0187e+02_rb,8.7320e+01_rb,7.2762e+01_rb,5.8215e+01_rb,4.3658e+01_rb, &\n     &2.9108e+01_rb,1.4557e+01_rb,2.8829e+00_rb/)\n      kao(:, 1,11,16) = (/ &\n     &2.5880e+02_rb,2.2644e+02_rb,1.9413e+02_rb,1.6174e+02_rb,1.2941e+02_rb,9.7065e+01_rb, &\n     &6.4700e+01_rb,3.2352e+01_rb,4.1212e+00_rb/)\n      kao(:, 2,11,16) = (/ &\n     &2.4838e+02_rb,2.1734e+02_rb,1.8628e+02_rb,1.5524e+02_rb,1.2419e+02_rb,9.3146e+01_rb, &\n     &6.2097e+01_rb,3.1052e+01_rb,3.9061e+00_rb/)\n      kao(:, 3,11,16) = (/ &\n     &2.3869e+02_rb,2.0886e+02_rb,1.7902e+02_rb,1.4918e+02_rb,1.1935e+02_rb,8.9511e+01_rb, &\n     &5.9677e+01_rb,2.9841e+01_rb,3.7301e+00_rb/)\n      kao(:, 4,11,16) = (/ &\n     &2.2943e+02_rb,2.0074e+02_rb,1.7207e+02_rb,1.4339e+02_rb,1.1472e+02_rb,8.6039e+01_rb, &\n     &5.7356e+01_rb,2.8682e+01_rb,3.5754e+00_rb/)\n      kao(:, 5,11,16) = (/ &\n     &2.2131e+02_rb,1.9367e+02_rb,1.6600e+02_rb,1.3834e+02_rb,1.1067e+02_rb,8.3001e+01_rb, &\n     &5.5340e+01_rb,2.7668e+01_rb,3.4351e+00_rb/)\n      kao(:, 1,12,16) = (/ &\n     &3.6519e+02_rb,3.1953e+02_rb,2.7390e+02_rb,2.2827e+02_rb,1.8260e+02_rb,1.3695e+02_rb, &\n     &9.1294e+01_rb,4.5654e+01_rb,4.8878e+00_rb/)\n      kao(:, 2,12,16) = (/ &\n     &3.5163e+02_rb,3.0767e+02_rb,2.6371e+02_rb,2.1977e+02_rb,1.7580e+02_rb,1.3186e+02_rb, &\n     &8.7903e+01_rb,4.3953e+01_rb,4.5957e+00_rb/)\n      kao(:, 3,12,16) = (/ &\n     &3.3818e+02_rb,2.9589e+02_rb,2.5364e+02_rb,2.1136e+02_rb,1.6910e+02_rb,1.2682e+02_rb, &\n     &8.4547e+01_rb,4.2272e+01_rb,4.4276e+00_rb/)\n      kao(:, 4,12,16) = (/ &\n     &3.2523e+02_rb,2.8457e+02_rb,2.4393e+02_rb,2.0329e+02_rb,1.6262e+02_rb,1.2197e+02_rb, &\n     &8.1319e+01_rb,4.0657e+01_rb,4.2352e+00_rb/)\n      kao(:, 5,12,16) = (/ &\n     &3.1377e+02_rb,2.7452e+02_rb,2.3534e+02_rb,1.9609e+02_rb,1.5688e+02_rb,1.1765e+02_rb, &\n     &7.8446e+01_rb,3.9220e+01_rb,4.0574e+00_rb/)\n      kao(:, 1,13,16) = (/ &\n     &4.1560e+02_rb,3.6364e+02_rb,3.1170e+02_rb,2.5976e+02_rb,2.0781e+02_rb,1.5585e+02_rb, &\n     &1.0390e+02_rb,5.1953e+01_rb,5.7636e+00_rb/)\n      kao(:, 2,13,16) = (/ &\n     &3.9970e+02_rb,3.4978e+02_rb,2.9980e+02_rb,2.4983e+02_rb,1.9986e+02_rb,1.4990e+02_rb, &\n     &9.9932e+01_rb,4.9970e+01_rb,5.4706e+00_rb/)\n      kao(:, 3,13,16) = (/ &\n     &3.8378e+02_rb,3.3582e+02_rb,2.8782e+02_rb,2.3987e+02_rb,1.9190e+02_rb,1.4391e+02_rb, &\n     &9.5948e+01_rb,4.7978e+01_rb,5.2080e+00_rb/)\n      kao(:, 4,13,16) = (/ &\n     &3.6900e+02_rb,3.2290e+02_rb,2.7675e+02_rb,2.3063e+02_rb,1.8451e+02_rb,1.3838e+02_rb, &\n     &9.2254e+01_rb,4.6129e+01_rb,4.9718e+00_rb/)\n      kao(:, 5,13,16) = (/ &\n     &3.5587e+02_rb,3.1138e+02_rb,2.6690e+02_rb,2.2242e+02_rb,1.7795e+02_rb,1.3345e+02_rb, &\n     &8.8970e+01_rb,4.4486e+01_rb,4.7553e+00_rb/)\n\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n\n      kbo(:,13, 1) = (/ &\n     &6.6242e-04_rb,6.9229e-04_rb,7.2125e-04_rb,7.5111e-04_rb,7.7882e-04_rb/)\n      kbo(:,14, 1) = (/ &\n     &5.7148e-04_rb,6.0011e-04_rb,6.2434e-04_rb,6.4765e-04_rb,6.6822e-04_rb/)\n      kbo(:,15, 1) = (/ &\n     &5.0245e-04_rb,5.2495e-04_rb,5.4519e-04_rb,5.6261e-04_rb,5.8004e-04_rb/)\n      kbo(:,16, 1) = (/ &\n     &4.4219e-04_rb,4.6335e-04_rb,4.7782e-04_rb,4.9293e-04_rb,5.0687e-04_rb/)\n      kbo(:,17, 1) = (/ &\n     &3.9452e-04_rb,4.1172e-04_rb,4.2558e-04_rb,4.3834e-04_rb,4.5031e-04_rb/)\n      kbo(:,18, 1) = (/ &\n     &3.5502e-04_rb,3.7021e-04_rb,3.8062e-04_rb,3.9326e-04_rb,4.0413e-04_rb/)\n      kbo(:,19, 1) = (/ &\n     &3.1835e-04_rb,3.3204e-04_rb,3.4438e-04_rb,3.5308e-04_rb,3.6251e-04_rb/)\n      kbo(:,20, 1) = (/ &\n     &2.7685e-04_rb,2.8739e-04_rb,2.9799e-04_rb,3.0565e-04_rb,3.1346e-04_rb/)\n      kbo(:,21, 1) = (/ &\n     &2.3803e-04_rb,2.4613e-04_rb,2.5507e-04_rb,2.6118e-04_rb,2.6805e-04_rb/)\n      kbo(:,22, 1) = (/ &\n     &2.0518e-04_rb,2.1064e-04_rb,2.1799e-04_rb,2.2345e-04_rb,2.2945e-04_rb/)\n      kbo(:,23, 1) = (/ &\n     &1.7609e-04_rb,1.8136e-04_rb,1.8691e-04_rb,1.9179e-04_rb,1.9680e-04_rb/)\n      kbo(:,24, 1) = (/ &\n     &1.5133e-04_rb,1.5582e-04_rb,1.6020e-04_rb,1.6517e-04_rb,1.6912e-04_rb/)\n      kbo(:,25, 1) = (/ &\n     &1.3023e-04_rb,1.3355e-04_rb,1.3826e-04_rb,1.4195e-04_rb,1.4464e-04_rb/)\n      kbo(:,26, 1) = (/ &\n     &1.1153e-04_rb,1.1437e-04_rb,1.1820e-04_rb,1.2126e-04_rb,1.2331e-04_rb/)\n      kbo(:,27, 1) = (/ &\n     &9.5262e-05_rb,9.8055e-05_rb,1.0080e-04_rb,1.0342e-04_rb,1.0508e-04_rb/)\n      kbo(:,28, 1) = (/ &\n     &8.1680e-05_rb,8.3691e-05_rb,8.6133e-05_rb,8.8128e-05_rb,8.9712e-05_rb/)\n      kbo(:,29, 1) = (/ &\n     &7.0309e-05_rb,7.1883e-05_rb,7.3686e-05_rb,7.5287e-05_rb,7.6689e-05_rb/)\n      kbo(:,30, 1) = (/ &\n     &6.0539e-05_rb,6.1910e-05_rb,6.3188e-05_rb,6.4488e-05_rb,6.6886e-05_rb/)\n      kbo(:,31, 1) = (/ &\n     &5.2744e-05_rb,5.3514e-05_rb,5.4453e-05_rb,5.5692e-05_rb,5.7687e-05_rb/)\n      kbo(:,32, 1) = (/ &\n     &4.5908e-05_rb,4.6319e-05_rb,4.7373e-05_rb,4.8133e-05_rb,4.9705e-05_rb/)\n      kbo(:,33, 1) = (/ &\n     &3.9867e-05_rb,4.0547e-05_rb,4.1159e-05_rb,4.1892e-05_rb,4.3045e-05_rb/)\n      kbo(:,34, 1) = (/ &\n     &3.4676e-05_rb,3.5573e-05_rb,3.6016e-05_rb,3.7022e-05_rb,3.7402e-05_rb/)\n      kbo(:,35, 1) = (/ &\n     &3.0380e-05_rb,3.1177e-05_rb,3.1680e-05_rb,3.2397e-05_rb,3.2578e-05_rb/)\n      kbo(:,36, 1) = (/ &\n     &2.6710e-05_rb,2.7409e-05_rb,2.7919e-05_rb,2.8397e-05_rb,2.8592e-05_rb/)\n      kbo(:,37, 1) = (/ &\n     &2.2468e-05_rb,2.3018e-05_rb,2.3378e-05_rb,2.3912e-05_rb,2.4011e-05_rb/)\n      kbo(:,38, 1) = (/ &\n     &1.8961e-05_rb,1.9311e-05_rb,1.9590e-05_rb,2.0060e-05_rb,2.0183e-05_rb/)\n      kbo(:,39, 1) = (/ &\n     &1.6038e-05_rb,1.6240e-05_rb,1.6497e-05_rb,1.6653e-05_rb,1.7067e-05_rb/)\n      kbo(:,40, 1) = (/ &\n     &1.3126e-05_rb,1.3247e-05_rb,1.3457e-05_rb,1.3586e-05_rb,1.3950e-05_rb/)\n      kbo(:,41, 1) = (/ &\n     &1.0642e-05_rb,1.0779e-05_rb,1.0904e-05_rb,1.1060e-05_rb,1.1348e-05_rb/)\n      kbo(:,42, 1) = (/ &\n     &8.5931e-06_rb,8.7256e-06_rb,8.8249e-06_rb,8.9763e-06_rb,9.1997e-06_rb/)\n      kbo(:,43, 1) = (/ &\n     &6.8315e-06_rb,7.0003e-06_rb,7.0825e-06_rb,7.1921e-06_rb,7.3080e-06_rb/)\n      kbo(:,44, 1) = (/ &\n     &5.4113e-06_rb,5.5622e-06_rb,5.6277e-06_rb,5.7357e-06_rb,5.8407e-06_rb/)\n      kbo(:,45, 1) = (/ &\n     &4.2868e-06_rb,4.4145e-06_rb,4.4700e-06_rb,4.5509e-06_rb,4.6597e-06_rb/)\n      kbo(:,46, 1) = (/ &\n     &3.3813e-06_rb,3.5001e-06_rb,3.5350e-06_rb,3.6083e-06_rb,3.6919e-06_rb/)\n      kbo(:,47, 1) = (/ &\n     &2.6664e-06_rb,2.7723e-06_rb,2.7972e-06_rb,2.8533e-06_rb,2.9267e-06_rb/)\n      kbo(:,48, 1) = (/ &\n     &2.0946e-06_rb,2.1711e-06_rb,2.2048e-06_rb,2.2465e-06_rb,2.3102e-06_rb/)\n      kbo(:,49, 1) = (/ &\n     &1.6333e-06_rb,1.6996e-06_rb,1.7388e-06_rb,1.7611e-06_rb,1.8115e-06_rb/)\n      kbo(:,50, 1) = (/ &\n     &1.2781e-06_rb,1.3328e-06_rb,1.3698e-06_rb,1.3938e-06_rb,1.4265e-06_rb/)\n      kbo(:,51, 1) = (/ &\n     &1.0076e-06_rb,1.0460e-06_rb,1.0807e-06_rb,1.1011e-06_rb,1.1257e-06_rb/)\n      kbo(:,52, 1) = (/ &\n     &7.9394e-07_rb,8.1840e-07_rb,8.4881e-07_rb,8.6654e-07_rb,8.8734e-07_rb/)\n      kbo(:,53, 1) = (/ &\n     &6.1785e-07_rb,6.3992e-07_rb,6.6144e-07_rb,6.7843e-07_rb,6.9618e-07_rb/)\n      kbo(:,54, 1) = (/ &\n     &4.8490e-07_rb,5.0506e-07_rb,5.1952e-07_rb,5.3413e-07_rb,5.4905e-07_rb/)\n      kbo(:,55, 1) = (/ &\n     &3.8198e-07_rb,3.9926e-07_rb,4.1207e-07_rb,4.2268e-07_rb,4.3489e-07_rb/)\n      kbo(:,56, 1) = (/ &\n     &3.0062e-07_rb,3.1357e-07_rb,3.2461e-07_rb,3.3313e-07_rb,3.4390e-07_rb/)\n      kbo(:,57, 1) = (/ &\n     &2.3579e-07_rb,2.4608e-07_rb,2.5500e-07_rb,2.6288e-07_rb,2.7145e-07_rb/)\n      kbo(:,58, 1) = (/ &\n     &1.8530e-07_rb,1.9293e-07_rb,2.0021e-07_rb,2.0804e-07_rb,2.1510e-07_rb/)\n      kbo(:,59, 1) = (/ &\n     &1.4951e-07_rb,1.5512e-07_rb,1.6259e-07_rb,1.6844e-07_rb,1.7451e-07_rb/)\n      kbo(:,13, 2) = (/ &\n     &2.8194e-03_rb,3.0121e-03_rb,3.1846e-03_rb,3.3490e-03_rb,3.5100e-03_rb/)\n      kbo(:,14, 2) = (/ &\n     &2.4827e-03_rb,2.6492e-03_rb,2.7938e-03_rb,2.9346e-03_rb,3.0538e-03_rb/)\n      kbo(:,15, 2) = (/ &\n     &2.2064e-03_rb,2.3375e-03_rb,2.4556e-03_rb,2.5697e-03_rb,2.6626e-03_rb/)\n      kbo(:,16, 2) = (/ &\n     &1.9378e-03_rb,2.0444e-03_rb,2.1458e-03_rb,2.2321e-03_rb,2.3069e-03_rb/)\n      kbo(:,17, 2) = (/ &\n     &1.7072e-03_rb,1.7953e-03_rb,1.8810e-03_rb,1.9513e-03_rb,2.0122e-03_rb/)\n      kbo(:,18, 2) = (/ &\n     &1.5182e-03_rb,1.5881e-03_rb,1.6604e-03_rb,1.7175e-03_rb,1.7691e-03_rb/)\n      kbo(:,19, 2) = (/ &\n     &1.3604e-03_rb,1.4237e-03_rb,1.4711e-03_rb,1.5216e-03_rb,1.5631e-03_rb/)\n      kbo(:,20, 2) = (/ &\n     &1.1858e-03_rb,1.2290e-03_rb,1.2712e-03_rb,1.3090e-03_rb,1.3421e-03_rb/)\n      kbo(:,21, 2) = (/ &\n     &1.0189e-03_rb,1.0547e-03_rb,1.0885e-03_rb,1.1186e-03_rb,1.1432e-03_rb/)\n      kbo(:,22, 2) = (/ &\n     &8.7055e-04_rb,9.0481e-04_rb,9.2821e-04_rb,9.5252e-04_rb,9.7075e-04_rb/)\n      kbo(:,23, 2) = (/ &\n     &7.4675e-04_rb,7.7099e-04_rb,7.9133e-04_rb,8.0933e-04_rb,8.2551e-04_rb/)\n      kbo(:,24, 2) = (/ &\n     &6.4034e-04_rb,6.5905e-04_rb,6.7517e-04_rb,6.8951e-04_rb,7.0349e-04_rb/)\n      kbo(:,25, 2) = (/ &\n     &5.4635e-04_rb,5.6117e-04_rb,5.7460e-04_rb,5.8668e-04_rb,5.9880e-04_rb/)\n      kbo(:,26, 2) = (/ &\n     &4.6328e-04_rb,4.7565e-04_rb,4.8724e-04_rb,4.9802e-04_rb,5.0785e-04_rb/)\n      kbo(:,27, 2) = (/ &\n     &3.9145e-04_rb,4.0138e-04_rb,4.1206e-04_rb,4.2067e-04_rb,4.2970e-04_rb/)\n      kbo(:,28, 2) = (/ &\n     &3.2965e-04_rb,3.3905e-04_rb,3.4755e-04_rb,3.5536e-04_rb,3.6345e-04_rb/)\n      kbo(:,29, 2) = (/ &\n     &2.7722e-04_rb,2.8535e-04_rb,2.9237e-04_rb,2.9947e-04_rb,3.0668e-04_rb/)\n      kbo(:,30, 2) = (/ &\n     &2.3378e-04_rb,2.4040e-04_rb,2.4667e-04_rb,2.5278e-04_rb,2.6270e-04_rb/)\n      kbo(:,31, 2) = (/ &\n     &1.9661e-04_rb,2.0207e-04_rb,2.0803e-04_rb,2.1348e-04_rb,2.2186e-04_rb/)\n      kbo(:,32, 2) = (/ &\n     &1.6562e-04_rb,1.7146e-04_rb,1.7695e-04_rb,1.8193e-04_rb,1.8929e-04_rb/)\n      kbo(:,33, 2) = (/ &\n     &1.4107e-04_rb,1.4666e-04_rb,1.5183e-04_rb,1.5594e-04_rb,1.6243e-04_rb/)\n      kbo(:,34, 2) = (/ &\n     &1.2158e-04_rb,1.2598e-04_rb,1.3011e-04_rb,1.3588e-04_rb,1.4023e-04_rb/)\n      kbo(:,35, 2) = (/ &\n     &1.0453e-04_rb,1.0824e-04_rb,1.1246e-04_rb,1.1806e-04_rb,1.2280e-04_rb/)\n      kbo(:,36, 2) = (/ &\n     &9.0281e-05_rb,9.3775e-05_rb,9.7901e-05_rb,1.0364e-04_rb,1.0744e-04_rb/)\n      kbo(:,37, 2) = (/ &\n     &7.5786e-05_rb,7.8742e-05_rb,8.2503e-05_rb,8.7040e-05_rb,8.9489e-05_rb/)\n      kbo(:,38, 2) = (/ &\n     &6.3149e-05_rb,6.6113e-05_rb,6.8833e-05_rb,7.2371e-05_rb,7.4496e-05_rb/)\n      kbo(:,39, 2) = (/ &\n     &5.2982e-05_rb,5.5381e-05_rb,5.7239e-05_rb,5.9241e-05_rb,6.1954e-05_rb/)\n      kbo(:,40, 2) = (/ &\n     &4.3111e-05_rb,4.5156e-05_rb,4.6617e-05_rb,4.8324e-05_rb,5.0544e-05_rb/)\n      kbo(:,41, 2) = (/ &\n     &3.4957e-05_rb,3.6661e-05_rb,3.7913e-05_rb,3.9243e-05_rb,4.1170e-05_rb/)\n      kbo(:,42, 2) = (/ &\n     &2.8335e-05_rb,2.9735e-05_rb,3.0788e-05_rb,3.1864e-05_rb,3.3563e-05_rb/)\n      kbo(:,43, 2) = (/ &\n     &2.2801e-05_rb,2.3962e-05_rb,2.4808e-05_rb,2.5685e-05_rb,2.6685e-05_rb/)\n      kbo(:,44, 2) = (/ &\n     &1.8216e-05_rb,1.9207e-05_rb,1.9940e-05_rb,2.0623e-05_rb,2.1468e-05_rb/)\n      kbo(:,45, 2) = (/ &\n     &1.4497e-05_rb,1.5369e-05_rb,1.6010e-05_rb,1.6560e-05_rb,1.7214e-05_rb/)\n      kbo(:,46, 2) = (/ &\n     &1.1546e-05_rb,1.2283e-05_rb,1.2829e-05_rb,1.3281e-05_rb,1.3789e-05_rb/)\n      kbo(:,47, 2) = (/ &\n     &9.1407e-06_rb,9.7102e-06_rb,1.0256e-05_rb,1.0642e-05_rb,1.1044e-05_rb/)\n      kbo(:,48, 2) = (/ &\n     &7.2582e-06_rb,7.7178e-06_rb,8.1771e-06_rb,8.5159e-06_rb,8.8287e-06_rb/)\n      kbo(:,49, 2) = (/ &\n     &5.7413e-06_rb,6.0895e-06_rb,6.4724e-06_rb,6.7948e-06_rb,7.0423e-06_rb/)\n      kbo(:,50, 2) = (/ &\n     &4.5645e-06_rb,4.8219e-06_rb,5.1398e-06_rb,5.4019e-06_rb,5.6251e-06_rb/)\n      kbo(:,51, 2) = (/ &\n     &3.6347e-06_rb,3.8345e-06_rb,4.0925e-06_rb,4.2999e-06_rb,4.4976e-06_rb/)\n      kbo(:,52, 2) = (/ &\n     &2.8914e-06_rb,3.0394e-06_rb,3.2506e-06_rb,3.4210e-06_rb,3.5835e-06_rb/)\n      kbo(:,53, 2) = (/ &\n     &2.2827e-06_rb,2.4183e-06_rb,2.5753e-06_rb,2.7165e-06_rb,2.8435e-06_rb/)\n      kbo(:,54, 2) = (/ &\n     &1.8109e-06_rb,1.9319e-06_rb,2.0517e-06_rb,2.1771e-06_rb,2.2825e-06_rb/)\n      kbo(:,55, 2) = (/ &\n     &1.4459e-06_rb,1.5442e-06_rb,1.6423e-06_rb,1.7466e-06_rb,1.8412e-06_rb/)\n      kbo(:,56, 2) = (/ &\n     &1.1487e-06_rb,1.2318e-06_rb,1.3168e-06_rb,1.4029e-06_rb,1.4853e-06_rb/)\n      kbo(:,57, 2) = (/ &\n     &9.1432e-07_rb,9.8206e-07_rb,1.0551e-06_rb,1.1262e-06_rb,1.1922e-06_rb/)\n      kbo(:,58, 2) = (/ &\n     &7.2392e-07_rb,7.8435e-07_rb,8.4467e-07_rb,9.0516e-07_rb,9.5596e-07_rb/)\n      kbo(:,59, 2) = (/ &\n     &5.9300e-07_rb,6.4245e-07_rb,6.9378e-07_rb,7.4259e-07_rb,7.8676e-07_rb/)\n      kbo(:,13, 3) = (/ &\n     &8.5247e-03_rb,8.9273e-03_rb,9.3494e-03_rb,9.7833e-03_rb,1.0198e-02_rb/)\n      kbo(:,14, 3) = (/ &\n     &7.6220e-03_rb,7.9465e-03_rb,8.3037e-03_rb,8.6680e-03_rb,9.0184e-03_rb/)\n      kbo(:,15, 3) = (/ &\n     &6.7313e-03_rb,7.0250e-03_rb,7.3390e-03_rb,7.6496e-03_rb,7.9523e-03_rb/)\n      kbo(:,16, 3) = (/ &\n     &5.8626e-03_rb,6.1324e-03_rb,6.4081e-03_rb,6.6680e-03_rb,6.9239e-03_rb/)\n      kbo(:,17, 3) = (/ &\n     &5.1190e-03_rb,5.3847e-03_rb,5.6114e-03_rb,5.8394e-03_rb,6.0319e-03_rb/)\n      kbo(:,18, 3) = (/ &\n     &4.4937e-03_rb,4.7329e-03_rb,4.9304e-03_rb,5.1178e-03_rb,5.2582e-03_rb/)\n      kbo(:,19, 3) = (/ &\n     &3.9714e-03_rb,4.1523e-03_rb,4.3393e-03_rb,4.4847e-03_rb,4.6081e-03_rb/)\n      kbo(:,20, 3) = (/ &\n     &3.4227e-03_rb,3.5888e-03_rb,3.7323e-03_rb,3.8457e-03_rb,3.9571e-03_rb/)\n      kbo(:,21, 3) = (/ &\n     &2.9355e-03_rb,3.0688e-03_rb,3.1813e-03_rb,3.2800e-03_rb,3.3665e-03_rb/)\n      kbo(:,22, 3) = (/ &\n     &2.5131e-03_rb,2.6136e-03_rb,2.7075e-03_rb,2.7888e-03_rb,2.8576e-03_rb/)\n      kbo(:,23, 3) = (/ &\n     &2.1439e-03_rb,2.2229e-03_rb,2.3069e-03_rb,2.3691e-03_rb,2.4314e-03_rb/)\n      kbo(:,24, 3) = (/ &\n     &1.8279e-03_rb,1.8995e-03_rb,1.9649e-03_rb,2.0190e-03_rb,2.0668e-03_rb/)\n      kbo(:,25, 3) = (/ &\n     &1.5582e-03_rb,1.6177e-03_rb,1.6674e-03_rb,1.7146e-03_rb,1.7550e-03_rb/)\n      kbo(:,26, 3) = (/ &\n     &1.3272e-03_rb,1.3717e-03_rb,1.4140e-03_rb,1.4536e-03_rb,1.4858e-03_rb/)\n      kbo(:,27, 3) = (/ &\n     &1.1230e-03_rb,1.1594e-03_rb,1.1953e-03_rb,1.2264e-03_rb,1.2540e-03_rb/)\n      kbo(:,28, 3) = (/ &\n     &9.4753e-04_rb,9.7763e-04_rb,1.0074e-03_rb,1.0308e-03_rb,1.0536e-03_rb/)\n      kbo(:,29, 3) = (/ &\n     &7.9502e-04_rb,8.1974e-04_rb,8.4372e-04_rb,8.6478e-04_rb,8.8308e-04_rb/)\n      kbo(:,30, 3) = (/ &\n     &6.6596e-04_rb,6.8697e-04_rb,7.0803e-04_rb,7.2439e-04_rb,7.5784e-04_rb/)\n      kbo(:,31, 3) = (/ &\n     &5.5745e-04_rb,5.7516e-04_rb,5.9220e-04_rb,6.0512e-04_rb,6.3289e-04_rb/)\n      kbo(:,32, 3) = (/ &\n     &4.6662e-04_rb,4.8150e-04_rb,4.9505e-04_rb,5.0361e-04_rb,5.2756e-04_rb/)\n      kbo(:,33, 3) = (/ &\n     &3.9094e-04_rb,4.0255e-04_rb,4.1211e-04_rb,4.1938e-04_rb,4.4050e-04_rb/)\n      kbo(:,34, 3) = (/ &\n     &3.2769e-04_rb,3.3699e-04_rb,3.4471e-04_rb,3.6275e-04_rb,3.6949e-04_rb/)\n      kbo(:,35, 3) = (/ &\n     &2.7475e-04_rb,2.8204e-04_rb,2.8828e-04_rb,3.0332e-04_rb,3.0836e-04_rb/)\n      kbo(:,36, 3) = (/ &\n     &2.2983e-04_rb,2.3568e-04_rb,2.4113e-04_rb,2.5319e-04_rb,2.5736e-04_rb/)\n      kbo(:,37, 3) = (/ &\n     &1.8895e-04_rb,1.9397e-04_rb,1.9807e-04_rb,2.0882e-04_rb,2.1275e-04_rb/)\n      kbo(:,38, 3) = (/ &\n     &1.5549e-04_rb,1.5951e-04_rb,1.6323e-04_rb,1.7252e-04_rb,1.7561e-04_rb/)\n      kbo(:,39, 3) = (/ &\n     &1.2765e-04_rb,1.3102e-04_rb,1.3443e-04_rb,1.3776e-04_rb,1.4478e-04_rb/)\n      kbo(:,40, 3) = (/ &\n     &1.0414e-04_rb,1.0697e-04_rb,1.0972e-04_rb,1.1251e-04_rb,1.1839e-04_rb/)\n      kbo(:,41, 3) = (/ &\n     &8.4861e-05_rb,8.7037e-05_rb,8.9345e-05_rb,9.1552e-05_rb,9.6450e-05_rb/)\n      kbo(:,42, 3) = (/ &\n     &6.9029e-05_rb,7.0620e-05_rb,7.2608e-05_rb,7.4362e-05_rb,7.8451e-05_rb/)\n      kbo(:,43, 3) = (/ &\n     &5.5731e-05_rb,5.6934e-05_rb,5.8627e-05_rb,6.0036e-05_rb,6.1419e-05_rb/)\n      kbo(:,44, 3) = (/ &\n     &4.4750e-05_rb,4.5795e-05_rb,4.7066e-05_rb,4.8320e-05_rb,4.9340e-05_rb/)\n      kbo(:,45, 3) = (/ &\n     &3.5902e-05_rb,3.6793e-05_rb,3.7710e-05_rb,3.8772e-05_rb,3.9634e-05_rb/)\n      kbo(:,46, 3) = (/ &\n     &2.8669e-05_rb,2.9406e-05_rb,3.0158e-05_rb,3.1055e-05_rb,3.1783e-05_rb/)\n      kbo(:,47, 3) = (/ &\n     &2.2957e-05_rb,2.3586e-05_rb,2.4179e-05_rb,2.4875e-05_rb,2.5463e-05_rb/)\n      kbo(:,48, 3) = (/ &\n     &1.8322e-05_rb,1.8764e-05_rb,1.9281e-05_rb,1.9846e-05_rb,2.0330e-05_rb/)\n      kbo(:,49, 3) = (/ &\n     &1.4581e-05_rb,1.4948e-05_rb,1.5326e-05_rb,1.5796e-05_rb,1.6188e-05_rb/)\n      kbo(:,50, 3) = (/ &\n     &1.1658e-05_rb,1.1996e-05_rb,1.2253e-05_rb,1.2626e-05_rb,1.2988e-05_rb/)\n      kbo(:,51, 3) = (/ &\n     &9.3098e-06_rb,9.6196e-06_rb,9.8320e-06_rb,1.0134e-05_rb,1.0431e-05_rb/)\n      kbo(:,52, 3) = (/ &\n     &7.3883e-06_rb,7.7108e-06_rb,7.8752e-06_rb,8.1035e-06_rb,8.3459e-06_rb/)\n      kbo(:,53, 3) = (/ &\n     &5.8592e-06_rb,6.1249e-06_rb,6.2920e-06_rb,6.4688e-06_rb,6.6480e-06_rb/)\n      kbo(:,54, 3) = (/ &\n     &4.7059e-06_rb,4.9088e-06_rb,5.0922e-06_rb,5.2219e-06_rb,5.3713e-06_rb/)\n      kbo(:,55, 3) = (/ &\n     &3.7899e-06_rb,3.9660e-06_rb,4.1365e-06_rb,4.2472e-06_rb,4.3644e-06_rb/)\n      kbo(:,56, 3) = (/ &\n     &3.0554e-06_rb,3.2100e-06_rb,3.3483e-06_rb,3.4494e-06_rb,3.5457e-06_rb/)\n      kbo(:,57, 3) = (/ &\n     &2.4489e-06_rb,2.5923e-06_rb,2.7014e-06_rb,2.7985e-06_rb,2.8823e-06_rb/)\n      kbo(:,58, 3) = (/ &\n     &1.9694e-06_rb,2.0948e-06_rb,2.1872e-06_rb,2.2740e-06_rb,2.3512e-06_rb/)\n      kbo(:,59, 3) = (/ &\n     &1.6303e-06_rb,1.7449e-06_rb,1.8268e-06_rb,1.9070e-06_rb,1.9708e-06_rb/)\n      kbo(:,13, 4) = (/ &\n     &1.8047e-02_rb,1.8718e-02_rb,1.9333e-02_rb,1.9945e-02_rb,2.0619e-02_rb/)\n      kbo(:,14, 4) = (/ &\n     &1.6432e-02_rb,1.7100e-02_rb,1.7741e-02_rb,1.8401e-02_rb,1.9089e-02_rb/)\n      kbo(:,15, 4) = (/ &\n     &1.4807e-02_rb,1.5451e-02_rb,1.6100e-02_rb,1.6750e-02_rb,1.7413e-02_rb/)\n      kbo(:,16, 4) = (/ &\n     &1.3139e-02_rb,1.3704e-02_rb,1.4262e-02_rb,1.4904e-02_rb,1.5552e-02_rb/)\n      kbo(:,17, 4) = (/ &\n     &1.1663e-02_rb,1.2130e-02_rb,1.2669e-02_rb,1.3218e-02_rb,1.3830e-02_rb/)\n      kbo(:,18, 4) = (/ &\n     &1.0329e-02_rb,1.0751e-02_rb,1.1271e-02_rb,1.1798e-02_rb,1.2374e-02_rb/)\n      kbo(:,19, 4) = (/ &\n     &9.2112e-03_rb,9.6353e-03_rb,1.0130e-02_rb,1.0649e-02_rb,1.1157e-02_rb/)\n      kbo(:,20, 4) = (/ &\n     &8.0574e-03_rb,8.4807e-03_rb,8.9054e-03_rb,9.3587e-03_rb,9.7992e-03_rb/)\n      kbo(:,21, 4) = (/ &\n     &7.0019e-03_rb,7.3853e-03_rb,7.7827e-03_rb,8.1758e-03_rb,8.5421e-03_rb/)\n      kbo(:,22, 4) = (/ &\n     &6.0893e-03_rb,6.4266e-03_rb,6.7752e-03_rb,7.1040e-03_rb,7.4095e-03_rb/)\n      kbo(:,23, 4) = (/ &\n     &5.2966e-03_rb,5.5992e-03_rb,5.8988e-03_rb,6.1748e-03_rb,6.4166e-03_rb/)\n      kbo(:,24, 4) = (/ &\n     &4.6174e-03_rb,4.8835e-03_rb,5.1353e-03_rb,5.3661e-03_rb,5.5632e-03_rb/)\n      kbo(:,25, 4) = (/ &\n     &4.0173e-03_rb,4.2433e-03_rb,4.4670e-03_rb,4.6521e-03_rb,4.8258e-03_rb/)\n      kbo(:,26, 4) = (/ &\n     &3.4865e-03_rb,3.6826e-03_rb,3.8670e-03_rb,4.0200e-03_rb,4.1614e-03_rb/)\n      kbo(:,27, 4) = (/ &\n     &3.0102e-03_rb,3.1785e-03_rb,3.3303e-03_rb,3.4548e-03_rb,3.5736e-03_rb/)\n      kbo(:,28, 4) = (/ &\n     &2.5902e-03_rb,2.7336e-03_rb,2.8553e-03_rb,2.9588e-03_rb,3.0603e-03_rb/)\n      kbo(:,29, 4) = (/ &\n     &2.2148e-03_rb,2.3314e-03_rb,2.4216e-03_rb,2.5098e-03_rb,2.5968e-03_rb/)\n      kbo(:,30, 4) = (/ &\n     &1.8884e-03_rb,1.9733e-03_rb,2.0479e-03_rb,2.1223e-03_rb,2.2826e-03_rb/)\n      kbo(:,31, 4) = (/ &\n     &1.5995e-03_rb,1.6617e-03_rb,1.7230e-03_rb,1.7883e-03_rb,1.9307e-03_rb/)\n      kbo(:,32, 4) = (/ &\n     &1.3496e-03_rb,1.3999e-03_rb,1.4538e-03_rb,1.5096e-03_rb,1.6319e-03_rb/)\n      kbo(:,33, 4) = (/ &\n     &1.1363e-03_rb,1.1813e-03_rb,1.2287e-03_rb,1.2753e-03_rb,1.3874e-03_rb/)\n      kbo(:,34, 4) = (/ &\n     &9.6663e-04_rb,1.0050e-03_rb,1.0440e-03_rb,1.1401e-03_rb,1.1914e-03_rb/)\n      kbo(:,35, 4) = (/ &\n     &8.2252e-04_rb,8.5291e-04_rb,8.9255e-04_rb,9.7906e-04_rb,1.0213e-03_rb/)\n      kbo(:,36, 4) = (/ &\n     &6.9843e-04_rb,7.2671e-04_rb,7.6052e-04_rb,8.3992e-04_rb,8.7893e-04_rb/)\n      kbo(:,37, 4) = (/ &\n     &5.7973e-04_rb,6.0624e-04_rb,6.3703e-04_rb,7.0532e-04_rb,7.4046e-04_rb/)\n      kbo(:,38, 4) = (/ &\n     &4.8124e-04_rb,5.0463e-04_rb,5.3059e-04_rb,5.8984e-04_rb,6.2161e-04_rb/)\n      kbo(:,39, 4) = (/ &\n     &3.9797e-04_rb,4.2007e-04_rb,4.4141e-04_rb,4.6508e-04_rb,5.2126e-04_rb/)\n      kbo(:,40, 4) = (/ &\n     &3.2587e-04_rb,3.4475e-04_rb,3.6264e-04_rb,3.8270e-04_rb,4.3106e-04_rb/)\n      kbo(:,41, 4) = (/ &\n     &2.6592e-04_rb,2.8134e-04_rb,2.9669e-04_rb,3.1406e-04_rb,3.5481e-04_rb/)\n      kbo(:,42, 4) = (/ &\n     &2.1654e-04_rb,2.2933e-04_rb,2.4233e-04_rb,2.5702e-04_rb,2.9186e-04_rb/)\n      kbo(:,43, 4) = (/ &\n     &1.7468e-04_rb,1.8487e-04_rb,1.9562e-04_rb,2.0857e-04_rb,2.2203e-04_rb/)\n      kbo(:,44, 4) = (/ &\n     &1.3990e-04_rb,1.4813e-04_rb,1.5725e-04_rb,1.6786e-04_rb,1.7935e-04_rb/)\n      kbo(:,45, 4) = (/ &\n     &1.1147e-04_rb,1.1816e-04_rb,1.2590e-04_rb,1.3456e-04_rb,1.4433e-04_rb/)\n      kbo(:,46, 4) = (/ &\n     &8.8593e-05_rb,9.4029e-05_rb,1.0037e-04_rb,1.0744e-04_rb,1.1598e-04_rb/)\n      kbo(:,47, 4) = (/ &\n     &7.0072e-05_rb,7.4712e-05_rb,7.9919e-05_rb,8.5900e-05_rb,9.3033e-05_rb/)\n      kbo(:,48, 4) = (/ &\n     &5.5180e-05_rb,5.9132e-05_rb,6.3502e-05_rb,6.8198e-05_rb,7.4266e-05_rb/)\n      kbo(:,49, 4) = (/ &\n     &4.3109e-05_rb,4.6388e-05_rb,5.0075e-05_rb,5.3912e-05_rb,5.8896e-05_rb/)\n      kbo(:,50, 4) = (/ &\n     &3.4049e-05_rb,3.6756e-05_rb,3.9830e-05_rb,4.3128e-05_rb,4.7184e-05_rb/)\n      kbo(:,51, 4) = (/ &\n     &2.7005e-05_rb,2.9148e-05_rb,3.1674e-05_rb,3.4539e-05_rb,3.7748e-05_rb/)\n      kbo(:,52, 4) = (/ &\n     &2.1299e-05_rb,2.3058e-05_rb,2.5114e-05_rb,2.7488e-05_rb,3.0113e-05_rb/)\n      kbo(:,53, 4) = (/ &\n     &1.6705e-05_rb,1.8140e-05_rb,1.9875e-05_rb,2.1784e-05_rb,2.3982e-05_rb/)\n      kbo(:,54, 4) = (/ &\n     &1.3350e-05_rb,1.4560e-05_rb,1.5930e-05_rb,1.7502e-05_rb,1.9341e-05_rb/)\n      kbo(:,55, 4) = (/ &\n     &1.0773e-05_rb,1.1749e-05_rb,1.2886e-05_rb,1.4153e-05_rb,1.5702e-05_rb/)\n      kbo(:,56, 4) = (/ &\n     &8.6460e-06_rb,9.4510e-06_rb,1.0398e-05_rb,1.1452e-05_rb,1.2706e-05_rb/)\n      kbo(:,57, 4) = (/ &\n     &6.9096e-06_rb,7.6015e-06_rb,8.3864e-06_rb,9.2473e-06_rb,1.0265e-05_rb/)\n      kbo(:,58, 4) = (/ &\n     &5.5254e-06_rb,6.1387e-06_rb,6.7789e-06_rb,7.4818e-06_rb,8.3075e-06_rb/)\n      kbo(:,59, 4) = (/ &\n     &4.6551e-06_rb,5.1865e-06_rb,5.7401e-06_rb,6.3194e-06_rb,7.0521e-06_rb/)\n      kbo(:,13, 5) = (/ &\n     &3.4718e-02_rb,3.5594e-02_rb,3.6803e-02_rb,3.8083e-02_rb,3.9520e-02_rb/)\n      kbo(:,14, 5) = (/ &\n     &3.2238e-02_rb,3.3220e-02_rb,3.4363e-02_rb,3.5532e-02_rb,3.6904e-02_rb/)\n      kbo(:,15, 5) = (/ &\n     &3.0600e-02_rb,3.1610e-02_rb,3.2771e-02_rb,3.3966e-02_rb,3.5285e-02_rb/)\n      kbo(:,16, 5) = (/ &\n     &2.8159e-02_rb,2.9168e-02_rb,3.0264e-02_rb,3.1396e-02_rb,3.2647e-02_rb/)\n      kbo(:,17, 5) = (/ &\n     &2.5788e-02_rb,2.6724e-02_rb,2.7768e-02_rb,2.8866e-02_rb,3.0013e-02_rb/)\n      kbo(:,18, 5) = (/ &\n     &2.3487e-02_rb,2.4520e-02_rb,2.5499e-02_rb,2.6557e-02_rb,2.7740e-02_rb/)\n      kbo(:,19, 5) = (/ &\n     &2.1508e-02_rb,2.2551e-02_rb,2.3562e-02_rb,2.4611e-02_rb,2.5770e-02_rb/)\n      kbo(:,20, 5) = (/ &\n     &1.9153e-02_rb,2.0099e-02_rb,2.1123e-02_rb,2.2234e-02_rb,2.3370e-02_rb/)\n      kbo(:,21, 5) = (/ &\n     &1.6910e-02_rb,1.7820e-02_rb,1.8821e-02_rb,1.9939e-02_rb,2.1019e-02_rb/)\n      kbo(:,22, 5) = (/ &\n     &1.4892e-02_rb,1.5824e-02_rb,1.6836e-02_rb,1.7897e-02_rb,1.8973e-02_rb/)\n      kbo(:,23, 5) = (/ &\n     &1.3201e-02_rb,1.4110e-02_rb,1.5066e-02_rb,1.6122e-02_rb,1.7163e-02_rb/)\n      kbo(:,24, 5) = (/ &\n     &1.1786e-02_rb,1.2643e-02_rb,1.3592e-02_rb,1.4574e-02_rb,1.5604e-02_rb/)\n      kbo(:,25, 5) = (/ &\n     &1.0551e-02_rb,1.1376e-02_rb,1.2278e-02_rb,1.3228e-02_rb,1.4135e-02_rb/)\n      kbo(:,26, 5) = (/ &\n     &9.4341e-03_rb,1.0259e-02_rb,1.1075e-02_rb,1.1949e-02_rb,1.2760e-02_rb/)\n      kbo(:,27, 5) = (/ &\n     &8.4286e-03_rb,9.1773e-03_rb,9.9233e-03_rb,1.0676e-02_rb,1.1418e-02_rb/)\n      kbo(:,28, 5) = (/ &\n     &7.5098e-03_rb,8.1852e-03_rb,8.8662e-03_rb,9.5190e-03_rb,1.0161e-02_rb/)\n      kbo(:,29, 5) = (/ &\n     &6.6339e-03_rb,7.2146e-03_rb,7.8111e-03_rb,8.3875e-03_rb,8.9339e-03_rb/)\n      kbo(:,30, 5) = (/ &\n     &5.8318e-03_rb,6.3504e-03_rb,6.8644e-03_rb,7.3656e-03_rb,8.2854e-03_rb/)\n      kbo(:,31, 5) = (/ &\n     &5.0938e-03_rb,5.5450e-03_rb,5.9883e-03_rb,6.4048e-03_rb,7.2251e-03_rb/)\n      kbo(:,32, 5) = (/ &\n     &4.4534e-03_rb,4.8436e-03_rb,5.2343e-03_rb,5.5836e-03_rb,6.3649e-03_rb/)\n      kbo(:,33, 5) = (/ &\n     &3.8952e-03_rb,4.2551e-03_rb,4.5701e-03_rb,4.9101e-03_rb,5.6667e-03_rb/)\n      kbo(:,34, 5) = (/ &\n     &3.4434e-03_rb,3.7546e-03_rb,4.0585e-03_rb,4.7206e-03_rb,5.1136e-03_rb/)\n      kbo(:,35, 5) = (/ &\n     &3.0323e-03_rb,3.3194e-03_rb,3.6005e-03_rb,4.2419e-03_rb,4.6276e-03_rb/)\n      kbo(:,36, 5) = (/ &\n     &2.6713e-03_rb,2.9283e-03_rb,3.2072e-03_rb,3.8119e-03_rb,4.2091e-03_rb/)\n      kbo(:,37, 5) = (/ &\n     &2.2748e-03_rb,2.5138e-03_rb,2.7697e-03_rb,3.3361e-03_rb,3.7192e-03_rb/)\n      kbo(:,38, 5) = (/ &\n     &1.9294e-03_rb,2.1456e-03_rb,2.3858e-03_rb,2.9205e-03_rb,3.2883e-03_rb/)\n      kbo(:,39, 5) = (/ &\n     &1.6394e-03_rb,1.8308e-03_rb,2.0616e-03_rb,2.3311e-03_rb,2.9179e-03_rb/)\n      kbo(:,40, 5) = (/ &\n     &1.3611e-03_rb,1.5347e-03_rb,1.7447e-03_rb,1.9909e-03_rb,2.5336e-03_rb/)\n      kbo(:,41, 5) = (/ &\n     &1.1258e-03_rb,1.2811e-03_rb,1.4710e-03_rb,1.6948e-03_rb,2.1957e-03_rb/)\n      kbo(:,42, 5) = (/ &\n     &9.3054e-04_rb,1.0685e-03_rb,1.2380e-03_rb,1.4417e-03_rb,1.8992e-03_rb/)\n      kbo(:,43, 5) = (/ &\n     &7.5595e-04_rb,8.7758e-04_rb,1.0267e-03_rb,1.2093e-03_rb,1.4383e-03_rb/)\n      kbo(:,44, 5) = (/ &\n     &6.0708e-04_rb,7.1329e-04_rb,8.4285e-04_rb,1.0050e-03_rb,1.2098e-03_rb/)\n      kbo(:,45, 5) = (/ &\n     &4.8565e-04_rb,5.7704e-04_rb,6.8980e-04_rb,8.3254e-04_rb,1.0112e-03_rb/)\n      kbo(:,46, 5) = (/ &\n     &3.8568e-04_rb,4.6292e-04_rb,5.6071e-04_rb,6.8523e-04_rb,8.4055e-04_rb/)\n      kbo(:,47, 5) = (/ &\n     &3.0303e-04_rb,3.6775e-04_rb,4.5081e-04_rb,5.5621e-04_rb,6.9040e-04_rb/)\n      kbo(:,48, 5) = (/ &\n     &2.3629e-04_rb,2.9047e-04_rb,3.6009e-04_rb,4.4971e-04_rb,5.6449e-04_rb/)\n      kbo(:,49, 5) = (/ &\n     &1.8277e-04_rb,2.2768e-04_rb,2.8500e-04_rb,3.5988e-04_rb,4.5780e-04_rb/)\n      kbo(:,50, 5) = (/ &\n     &1.4236e-04_rb,1.7948e-04_rb,2.2683e-04_rb,2.8959e-04_rb,3.7278e-04_rb/)\n      kbo(:,51, 5) = (/ &\n     &1.1105e-04_rb,1.4188e-04_rb,1.8087e-04_rb,2.3323e-04_rb,3.0421e-04_rb/)\n      kbo(:,52, 5) = (/ &\n     &8.5949e-05_rb,1.1090e-04_rb,1.4310e-04_rb,1.8669e-04_rb,2.4668e-04_rb/)\n      kbo(:,53, 5) = (/ &\n     &6.6010e-05_rb,8.6189e-05_rb,1.1254e-04_rb,1.4823e-04_rb,1.9832e-04_rb/)\n      kbo(:,54, 5) = (/ &\n     &5.1508e-05_rb,6.7802e-05_rb,8.9425e-05_rb,1.1908e-04_rb,1.6117e-04_rb/)\n      kbo(:,55, 5) = (/ &\n     &4.0450e-05_rb,5.3662e-05_rb,7.1436e-05_rb,9.6039e-05_rb,1.3135e-04_rb/)\n      kbo(:,56, 5) = (/ &\n     &3.1739e-05_rb,4.2180e-05_rb,5.6735e-05_rb,7.6991e-05_rb,1.0631e-04_rb/)\n      kbo(:,57, 5) = (/ &\n     &2.4823e-05_rb,3.2939e-05_rb,4.4784e-05_rb,6.1322e-05_rb,8.5682e-05_rb/)\n      kbo(:,58, 5) = (/ &\n     &1.9514e-05_rb,2.5849e-05_rb,3.5397e-05_rb,4.8867e-05_rb,6.9076e-05_rb/)\n      kbo(:,59, 5) = (/ &\n     &1.6536e-05_rb,2.1873e-05_rb,3.0188e-05_rb,4.2152e-05_rb,6.0090e-05_rb/)\n      kbo(:,13, 6) = (/ &\n     &7.0936e-02_rb,7.2599e-02_rb,7.4412e-02_rb,7.6631e-02_rb,7.9197e-02_rb/)\n      kbo(:,14, 6) = (/ &\n     &6.5108e-02_rb,6.6883e-02_rb,6.8861e-02_rb,7.1194e-02_rb,7.3890e-02_rb/)\n      kbo(:,15, 6) = (/ &\n     &6.1844e-02_rb,6.3875e-02_rb,6.5914e-02_rb,6.8440e-02_rb,7.1135e-02_rb/)\n      kbo(:,16, 6) = (/ &\n     &5.8757e-02_rb,6.1061e-02_rb,6.3588e-02_rb,6.6243e-02_rb,6.9218e-02_rb/)\n      kbo(:,17, 6) = (/ &\n     &5.6075e-02_rb,5.8373e-02_rb,6.0818e-02_rb,6.3696e-02_rb,6.6956e-02_rb/)\n      kbo(:,18, 6) = (/ &\n     &5.3195e-02_rb,5.5446e-02_rb,5.8088e-02_rb,6.0906e-02_rb,6.3907e-02_rb/)\n      kbo(:,19, 6) = (/ &\n     &5.0738e-02_rb,5.2979e-02_rb,5.5433e-02_rb,5.8280e-02_rb,6.1280e-02_rb/)\n      kbo(:,20, 6) = (/ &\n     &4.6694e-02_rb,4.8984e-02_rb,5.1371e-02_rb,5.4034e-02_rb,5.7035e-02_rb/)\n      kbo(:,21, 6) = (/ &\n     &4.2499e-02_rb,4.4760e-02_rb,4.7087e-02_rb,4.9709e-02_rb,5.2664e-02_rb/)\n      kbo(:,22, 6) = (/ &\n     &3.8535e-02_rb,4.0776e-02_rb,4.3118e-02_rb,4.5805e-02_rb,4.8711e-02_rb/)\n      kbo(:,23, 6) = (/ &\n     &3.4990e-02_rb,3.7200e-02_rb,3.9611e-02_rb,4.2290e-02_rb,4.5266e-02_rb/)\n      kbo(:,24, 6) = (/ &\n     &3.1926e-02_rb,3.4161e-02_rb,3.6618e-02_rb,3.9305e-02_rb,4.2288e-02_rb/)\n      kbo(:,25, 6) = (/ &\n     &2.9165e-02_rb,3.1418e-02_rb,3.3868e-02_rb,3.6528e-02_rb,3.9610e-02_rb/)\n      kbo(:,26, 6) = (/ &\n     &2.6632e-02_rb,2.8869e-02_rb,3.1334e-02_rb,3.4138e-02_rb,3.7332e-02_rb/)\n      kbo(:,27, 6) = (/ &\n     &2.4229e-02_rb,2.6481e-02_rb,2.9027e-02_rb,3.1970e-02_rb,3.5096e-02_rb/)\n      kbo(:,28, 6) = (/ &\n     &2.2118e-02_rb,2.4355e-02_rb,2.6986e-02_rb,2.9969e-02_rb,3.3170e-02_rb/)\n      kbo(:,29, 6) = (/ &\n     &2.0075e-02_rb,2.2435e-02_rb,2.5083e-02_rb,2.8074e-02_rb,3.1267e-02_rb/)\n      kbo(:,30, 6) = (/ &\n     &1.8356e-02_rb,2.0732e-02_rb,2.3448e-02_rb,2.6423e-02_rb,3.0839e-02_rb/)\n      kbo(:,31, 6) = (/ &\n     &1.6821e-02_rb,1.9252e-02_rb,2.1963e-02_rb,2.5007e-02_rb,2.9517e-02_rb/)\n      kbo(:,32, 6) = (/ &\n     &1.5646e-02_rb,1.8065e-02_rb,2.0807e-02_rb,2.3917e-02_rb,2.8359e-02_rb/)\n      kbo(:,33, 6) = (/ &\n     &1.4697e-02_rb,1.7147e-02_rb,1.9949e-02_rb,2.3040e-02_rb,2.7566e-02_rb/)\n      kbo(:,34, 6) = (/ &\n     &1.3988e-02_rb,1.6488e-02_rb,1.9318e-02_rb,2.3681e-02_rb,2.7159e-02_rb/)\n      kbo(:,35, 6) = (/ &\n     &1.3271e-02_rb,1.5781e-02_rb,1.8680e-02_rb,2.3148e-02_rb,2.6620e-02_rb/)\n      kbo(:,36, 6) = (/ &\n     &1.2443e-02_rb,1.5030e-02_rb,1.7973e-02_rb,2.2405e-02_rb,2.5873e-02_rb/)\n      kbo(:,37, 6) = (/ &\n     &1.1274e-02_rb,1.3767e-02_rb,1.6642e-02_rb,2.1024e-02_rb,2.4462e-02_rb/)\n      kbo(:,38, 6) = (/ &\n     &1.0206e-02_rb,1.2636e-02_rb,1.5395e-02_rb,1.9741e-02_rb,2.3148e-02_rb/)\n      kbo(:,39, 6) = (/ &\n     &9.2481e-03_rb,1.1600e-02_rb,1.4300e-02_rb,1.7327e-02_rb,2.1951e-02_rb/)\n      kbo(:,40, 6) = (/ &\n     &8.1267e-03_rb,1.0335e-02_rb,1.2898e-02_rb,1.5836e-02_rb,2.0384e-02_rb/)\n      kbo(:,41, 6) = (/ &\n     &7.0946e-03_rb,9.1506e-03_rb,1.1587e-02_rb,1.4430e-02_rb,1.8862e-02_rb/)\n      kbo(:,42, 6) = (/ &\n     &6.1743e-03_rb,8.0792e-03_rb,1.0417e-02_rb,1.3119e-02_rb,1.7424e-02_rb/)\n      kbo(:,43, 6) = (/ &\n     &5.2531e-03_rb,6.9901e-03_rb,9.1605e-03_rb,1.1697e-02_rb,1.4583e-02_rb/)\n      kbo(:,44, 6) = (/ &\n     &4.3985e-03_rb,5.9665e-03_rb,7.9494e-03_rb,1.0327e-02_rb,1.3038e-02_rb/)\n      kbo(:,45, 6) = (/ &\n     &3.6636e-03_rb,5.0581e-03_rb,6.8612e-03_rb,9.0504e-03_rb,1.1599e-02_rb/)\n      kbo(:,46, 6) = (/ &\n     &3.0066e-03_rb,4.2365e-03_rb,5.8498e-03_rb,7.8432e-03_rb,1.0214e-02_rb/)\n      kbo(:,47, 6) = (/ &\n     &2.4125e-03_rb,3.4783e-03_rb,4.8978e-03_rb,6.6863e-03_rb,8.8516e-03_rb/)\n      kbo(:,48, 6) = (/ &\n     &1.9141e-03_rb,2.8190e-03_rb,4.0533e-03_rb,5.6391e-03_rb,7.5940e-03_rb/)\n      kbo(:,49, 6) = (/ &\n     &1.4995e-03_rb,2.2582e-03_rb,3.3183e-03_rb,4.7078e-03_rb,6.4551e-03_rb/)\n      kbo(:,50, 6) = (/ &\n     &1.1787e-03_rb,1.8162e-03_rb,2.7290e-03_rb,3.9486e-03_rb,5.5105e-03_rb/)\n      kbo(:,51, 6) = (/ &\n     &9.2536e-04_rb,1.4546e-03_rb,2.2372e-03_rb,3.3051e-03_rb,4.6909e-03_rb/)\n      kbo(:,52, 6) = (/ &\n     &7.1718e-04_rb,1.1533e-03_rb,1.8133e-03_rb,2.7360e-03_rb,3.9584e-03_rb/)\n      kbo(:,53, 6) = (/ &\n     &5.4913e-04_rb,9.0136e-04_rb,1.4515e-03_rb,2.2390e-03_rb,3.3052e-03_rb/)\n      kbo(:,54, 6) = (/ &\n     &4.2639e-04_rb,7.1524e-04_rb,1.1781e-03_rb,1.8604e-03_rb,2.8043e-03_rb/)\n      kbo(:,55, 6) = (/ &\n     &3.3211e-04_rb,5.6986e-04_rb,9.6021e-04_rb,1.5541e-03_rb,2.3898e-03_rb/)\n      kbo(:,56, 6) = (/ &\n     &2.5572e-04_rb,4.4925e-04_rb,7.7580e-04_rb,1.2883e-03_rb,2.0250e-03_rb/)\n      kbo(:,57, 6) = (/ &\n     &1.9517e-04_rb,3.4994e-04_rb,6.2105e-04_rb,1.0576e-03_rb,1.7032e-03_rb/)\n      kbo(:,58, 6) = (/ &\n     &1.4935e-04_rb,2.7300e-04_rb,4.9776e-04_rb,8.6979e-04_rb,1.4384e-03_rb/)\n      kbo(:,59, 6) = (/ &\n     &1.2881e-04_rb,2.4100e-04_rb,4.4942e-04_rb,8.0211e-04_rb,1.3455e-03_rb/)\n      kbo(:,13, 7) = (/ &\n     &1.5834e-01_rb,1.6249e-01_rb,1.6718e-01_rb,1.7299e-01_rb,1.7881e-01_rb/)\n      kbo(:,14, 7) = (/ &\n     &1.4697e-01_rb,1.5136e-01_rb,1.5631e-01_rb,1.6088e-01_rb,1.6631e-01_rb/)\n      kbo(:,15, 7) = (/ &\n     &1.4037e-01_rb,1.4484e-01_rb,1.4966e-01_rb,1.5465e-01_rb,1.6040e-01_rb/)\n      kbo(:,16, 7) = (/ &\n     &1.3335e-01_rb,1.3799e-01_rb,1.4282e-01_rb,1.4817e-01_rb,1.5433e-01_rb/)\n      kbo(:,17, 7) = (/ &\n     &1.2994e-01_rb,1.3481e-01_rb,1.4043e-01_rb,1.4652e-01_rb,1.5312e-01_rb/)\n      kbo(:,18, 7) = (/ &\n     &1.2814e-01_rb,1.3395e-01_rb,1.4042e-01_rb,1.4789e-01_rb,1.5627e-01_rb/)\n      kbo(:,19, 7) = (/ &\n     &1.2710e-01_rb,1.3361e-01_rb,1.4139e-01_rb,1.4985e-01_rb,1.5917e-01_rb/)\n      kbo(:,20, 7) = (/ &\n     &1.2151e-01_rb,1.2844e-01_rb,1.3635e-01_rb,1.4526e-01_rb,1.5485e-01_rb/)\n      kbo(:,21, 7) = (/ &\n     &1.1463e-01_rb,1.2176e-01_rb,1.2980e-01_rb,1.3882e-01_rb,1.4834e-01_rb/)\n      kbo(:,22, 7) = (/ &\n     &1.0733e-01_rb,1.1471e-01_rb,1.2303e-01_rb,1.3189e-01_rb,1.4224e-01_rb/)\n      kbo(:,23, 7) = (/ &\n     &1.0056e-01_rb,1.0811e-01_rb,1.1675e-01_rb,1.2597e-01_rb,1.3621e-01_rb/)\n      kbo(:,24, 7) = (/ &\n     &9.4505e-02_rb,1.0259e-01_rb,1.1127e-01_rb,1.2075e-01_rb,1.3101e-01_rb/)\n      kbo(:,25, 7) = (/ &\n     &8.9426e-02_rb,9.7409e-02_rb,1.0620e-01_rb,1.1605e-01_rb,1.2683e-01_rb/)\n      kbo(:,26, 7) = (/ &\n     &8.4533e-02_rb,9.2442e-02_rb,1.0164e-01_rb,1.1173e-01_rb,1.2271e-01_rb/)\n      kbo(:,27, 7) = (/ &\n     &7.9749e-02_rb,8.8003e-02_rb,9.7311e-02_rb,1.0746e-01_rb,1.1871e-01_rb/)\n      kbo(:,28, 7) = (/ &\n     &7.5483e-02_rb,8.3936e-02_rb,9.3313e-02_rb,1.0378e-01_rb,1.1507e-01_rb/)\n      kbo(:,29, 7) = (/ &\n     &7.1103e-02_rb,7.9904e-02_rb,8.9739e-02_rb,1.0032e-01_rb,1.1148e-01_rb/)\n      kbo(:,30, 7) = (/ &\n     &6.7483e-02_rb,7.6590e-02_rb,8.6589e-02_rb,9.7210e-02_rb,1.1098e-01_rb/)\n      kbo(:,31, 7) = (/ &\n     &6.4404e-02_rb,7.3695e-02_rb,8.3853e-02_rb,9.4939e-02_rb,1.0916e-01_rb/)\n      kbo(:,32, 7) = (/ &\n     &6.2132e-02_rb,7.1593e-02_rb,8.2197e-02_rb,9.3726e-02_rb,1.0838e-01_rb/)\n      kbo(:,33, 7) = (/ &\n     &6.0812e-02_rb,7.0660e-02_rb,8.1722e-02_rb,9.3787e-02_rb,1.0875e-01_rb/)\n      kbo(:,34, 7) = (/ &\n     &6.0340e-02_rb,7.0788e-02_rb,8.2210e-02_rb,9.6618e-02_rb,1.0965e-01_rb/)\n      kbo(:,35, 7) = (/ &\n     &5.9655e-02_rb,7.0346e-02_rb,8.1926e-02_rb,9.6670e-02_rb,1.0999e-01_rb/)\n      kbo(:,36, 7) = (/ &\n     &5.8475e-02_rb,6.9222e-02_rb,8.1005e-02_rb,9.6061e-02_rb,1.0964e-01_rb/)\n      kbo(:,37, 7) = (/ &\n     &5.5330e-02_rb,6.5969e-02_rb,7.7716e-02_rb,9.2736e-02_rb,1.0626e-01_rb/)\n      kbo(:,38, 7) = (/ &\n     &5.2353e-02_rb,6.2872e-02_rb,7.4519e-02_rb,8.9400e-02_rb,1.0278e-01_rb/)\n      kbo(:,39, 7) = (/ &\n     &4.9669e-02_rb,5.9933e-02_rb,7.1439e-02_rb,8.4019e-02_rb,9.9553e-02_rb/)\n      kbo(:,40, 7) = (/ &\n     &4.5810e-02_rb,5.5845e-02_rb,6.7001e-02_rb,7.9231e-02_rb,9.4558e-02_rb/)\n      kbo(:,41, 7) = (/ &\n     &4.2118e-02_rb,5.1782e-02_rb,6.2542e-02_rb,7.4429e-02_rb,8.9527e-02_rb/)\n      kbo(:,42, 7) = (/ &\n     &3.8602e-02_rb,4.7947e-02_rb,5.8290e-02_rb,6.9790e-02_rb,8.4691e-02_rb/)\n      kbo(:,43, 7) = (/ &\n     &3.4683e-02_rb,4.3605e-02_rb,5.3513e-02_rb,6.4549e-02_rb,7.6612e-02_rb/)\n      kbo(:,44, 7) = (/ &\n     &3.0820e-02_rb,3.9228e-02_rb,4.8707e-02_rb,5.9113e-02_rb,7.0667e-02_rb/)\n      kbo(:,45, 7) = (/ &\n     &2.7206e-02_rb,3.5088e-02_rb,4.4017e-02_rb,5.3958e-02_rb,6.4971e-02_rb/)\n      kbo(:,46, 7) = (/ &\n     &2.3728e-02_rb,3.1004e-02_rb,3.9410e-02_rb,4.8844e-02_rb,5.9195e-02_rb/)\n      kbo(:,47, 7) = (/ &\n     &2.0318e-02_rb,2.6968e-02_rb,3.4803e-02_rb,4.3672e-02_rb,5.3514e-02_rb/)\n      kbo(:,48, 7) = (/ &\n     &1.7221e-02_rb,2.3270e-02_rb,3.0475e-02_rb,3.8751e-02_rb,4.8067e-02_rb/)\n      kbo(:,49, 7) = (/ &\n     &1.4371e-02_rb,1.9831e-02_rb,2.6371e-02_rb,3.4011e-02_rb,4.2706e-02_rb/)\n      kbo(:,50, 7) = (/ &\n     &1.2067e-02_rb,1.6953e-02_rb,2.2948e-02_rb,3.0025e-02_rb,3.8163e-02_rb/)\n      kbo(:,51, 7) = (/ &\n     &1.0081e-02_rb,1.4494e-02_rb,1.9976e-02_rb,2.6511e-02_rb,3.4117e-02_rb/)\n      kbo(:,52, 7) = (/ &\n     &8.3102e-03_rb,1.2227e-02_rb,1.7157e-02_rb,2.3198e-02_rb,3.0263e-02_rb/)\n      kbo(:,53, 7) = (/ &\n     &6.7300e-03_rb,1.0157e-02_rb,1.4580e-02_rb,2.0030e-02_rb,2.6549e-02_rb/)\n      kbo(:,54, 7) = (/ &\n     &5.5699e-03_rb,8.6183e-03_rb,1.2632e-02_rb,1.7641e-02_rb,2.3782e-02_rb/)\n      kbo(:,55, 7) = (/ &\n     &4.6424e-03_rb,7.3686e-03_rb,1.1048e-02_rb,1.5705e-02_rb,2.1480e-02_rb/)\n      kbo(:,56, 7) = (/ &\n     &3.8360e-03_rb,6.2508e-03_rb,9.5901e-03_rb,1.3914e-02_rb,1.9327e-02_rb/)\n      kbo(:,57, 7) = (/ &\n     &3.1377e-03_rb,5.2589e-03_rb,8.2647e-03_rb,1.2235e-02_rb,1.7290e-02_rb/)\n      kbo(:,58, 7) = (/ &\n     &2.5678e-03_rb,4.4320e-03_rb,7.1403e-03_rb,1.0793e-02_rb,1.5530e-02_rb/)\n      kbo(:,59, 7) = (/ &\n     &2.3969e-03_rb,4.2221e-03_rb,6.8990e-03_rb,1.0531e-02_rb,1.5294e-02_rb/)\n      kbo(:,13, 8) = (/ &\n     &4.5374e-01_rb,4.6892e-01_rb,4.8468e-01_rb,5.0059e-01_rb,5.1827e-01_rb/)\n      kbo(:,14, 8) = (/ &\n     &4.3219e-01_rb,4.4586e-01_rb,4.6019e-01_rb,4.7608e-01_rb,4.9298e-01_rb/)\n      kbo(:,15, 8) = (/ &\n     &4.0920e-01_rb,4.2277e-01_rb,4.3751e-01_rb,4.5370e-01_rb,4.7139e-01_rb/)\n      kbo(:,16, 8) = (/ &\n     &3.8774e-01_rb,3.9959e-01_rb,4.1438e-01_rb,4.3100e-01_rb,4.4920e-01_rb/)\n      kbo(:,17, 8) = (/ &\n     &3.7675e-01_rb,3.9034e-01_rb,4.0535e-01_rb,4.2142e-01_rb,4.3931e-01_rb/)\n      kbo(:,18, 8) = (/ &\n     &3.7210e-01_rb,3.8690e-01_rb,4.0196e-01_rb,4.1888e-01_rb,4.3633e-01_rb/)\n      kbo(:,19, 8) = (/ &\n     &3.8004e-01_rb,3.9604e-01_rb,4.1156e-01_rb,4.2942e-01_rb,4.4872e-01_rb/)\n      kbo(:,20, 8) = (/ &\n     &3.8032e-01_rb,3.9826e-01_rb,4.1629e-01_rb,4.3599e-01_rb,4.5653e-01_rb/)\n      kbo(:,21, 8) = (/ &\n     &3.7841e-01_rb,3.9929e-01_rb,4.1819e-01_rb,4.3972e-01_rb,4.6162e-01_rb/)\n      kbo(:,22, 8) = (/ &\n     &3.7504e-01_rb,3.9852e-01_rb,4.2087e-01_rb,4.4494e-01_rb,4.6985e-01_rb/)\n      kbo(:,23, 8) = (/ &\n     &3.7298e-01_rb,3.9721e-01_rb,4.2335e-01_rb,4.5127e-01_rb,4.7949e-01_rb/)\n      kbo(:,24, 8) = (/ &\n     &3.7096e-01_rb,3.9820e-01_rb,4.2817e-01_rb,4.5927e-01_rb,4.9128e-01_rb/)\n      kbo(:,25, 8) = (/ &\n     &3.6772e-01_rb,3.9818e-01_rb,4.3145e-01_rb,4.6548e-01_rb,5.0188e-01_rb/)\n      kbo(:,26, 8) = (/ &\n     &3.6515e-01_rb,3.9789e-01_rb,4.3248e-01_rb,4.6959e-01_rb,5.0716e-01_rb/)\n      kbo(:,27, 8) = (/ &\n     &3.5912e-01_rb,3.9421e-01_rb,4.3089e-01_rb,4.6934e-01_rb,5.0871e-01_rb/)\n      kbo(:,28, 8) = (/ &\n     &3.5260e-01_rb,3.8990e-01_rb,4.2842e-01_rb,4.6770e-01_rb,5.0872e-01_rb/)\n      kbo(:,29, 8) = (/ &\n     &3.4566e-01_rb,3.8302e-01_rb,4.2135e-01_rb,4.6236e-01_rb,5.0539e-01_rb/)\n      kbo(:,30, 8) = (/ &\n     &3.3909e-01_rb,3.7648e-01_rb,4.1601e-01_rb,4.5869e-01_rb,5.0690e-01_rb/)\n      kbo(:,31, 8) = (/ &\n     &3.3097e-01_rb,3.6927e-01_rb,4.1020e-01_rb,4.5248e-01_rb,5.0201e-01_rb/)\n      kbo(:,32, 8) = (/ &\n     &3.2677e-01_rb,3.6552e-01_rb,4.0712e-01_rb,4.4947e-01_rb,4.9828e-01_rb/)\n      kbo(:,33, 8) = (/ &\n     &3.2437e-01_rb,3.6324e-01_rb,4.0445e-01_rb,4.4744e-01_rb,4.9526e-01_rb/)\n      kbo(:,34, 8) = (/ &\n     &3.2478e-01_rb,3.6385e-01_rb,4.0433e-01_rb,4.5266e-01_rb,4.9618e-01_rb/)\n      kbo(:,35, 8) = (/ &\n     &3.2335e-01_rb,3.6225e-01_rb,4.0283e-01_rb,4.5093e-01_rb,4.9595e-01_rb/)\n      kbo(:,36, 8) = (/ &\n     &3.1952e-01_rb,3.5913e-01_rb,4.0020e-01_rb,4.4926e-01_rb,4.9354e-01_rb/)\n      kbo(:,37, 8) = (/ &\n     &3.0545e-01_rb,3.4531e-01_rb,3.8604e-01_rb,4.3520e-01_rb,4.7874e-01_rb/)\n      kbo(:,38, 8) = (/ &\n     &2.9161e-01_rb,3.3033e-01_rb,3.7111e-01_rb,4.1959e-01_rb,4.6334e-01_rb/)\n      kbo(:,39, 8) = (/ &\n     &2.7728e-01_rb,3.1579e-01_rb,3.5591e-01_rb,3.9884e-01_rb,4.4658e-01_rb/)\n      kbo(:,40, 8) = (/ &\n     &2.6059e-01_rb,2.9767e-01_rb,3.3670e-01_rb,3.7917e-01_rb,4.2621e-01_rb/)\n      kbo(:,41, 8) = (/ &\n     &2.4427e-01_rb,2.7974e-01_rb,3.1821e-01_rb,3.5868e-01_rb,4.0499e-01_rb/)\n      kbo(:,42, 8) = (/ &\n     &2.2818e-01_rb,2.6203e-01_rb,2.9920e-01_rb,3.3811e-01_rb,3.8330e-01_rb/)\n      kbo(:,43, 8) = (/ &\n     &2.1001e-01_rb,2.4274e-01_rb,2.7765e-01_rb,3.1477e-01_rb,3.5346e-01_rb/)\n      kbo(:,44, 8) = (/ &\n     &1.9124e-01_rb,2.2202e-01_rb,2.5515e-01_rb,2.8981e-01_rb,3.2699e-01_rb/)\n      kbo(:,45, 8) = (/ &\n     &1.7260e-01_rb,2.0229e-01_rb,2.3352e-01_rb,2.6561e-01_rb,2.9973e-01_rb/)\n      kbo(:,46, 8) = (/ &\n     &1.5463e-01_rb,1.8250e-01_rb,2.1175e-01_rb,2.4206e-01_rb,2.7362e-01_rb/)\n      kbo(:,47, 8) = (/ &\n     &1.3753e-01_rb,1.6353e-01_rb,1.9105e-01_rb,2.1973e-01_rb,2.4911e-01_rb/)\n      kbo(:,48, 8) = (/ &\n     &1.2102e-01_rb,1.4531e-01_rb,1.7086e-01_rb,1.9744e-01_rb,2.2473e-01_rb/)\n      kbo(:,49, 8) = (/ &\n     &1.0521e-01_rb,1.2719e-01_rb,1.5065e-01_rb,1.7507e-01_rb,1.9976e-01_rb/)\n      kbo(:,50, 8) = (/ &\n     &9.2290e-02_rb,1.1288e-01_rb,1.3468e-01_rb,1.5758e-01_rb,1.8102e-01_rb/)\n      kbo(:,51, 8) = (/ &\n     &8.1396e-02_rb,1.0065e-01_rb,1.2103e-01_rb,1.4278e-01_rb,1.6472e-01_rb/)\n      kbo(:,52, 8) = (/ &\n     &7.1108e-02_rb,8.8827e-02_rb,1.0785e-01_rb,1.2780e-01_rb,1.4857e-01_rb/)\n      kbo(:,53, 8) = (/ &\n     &6.0985e-02_rb,7.7296e-02_rb,9.4909e-02_rb,1.1304e-01_rb,1.3292e-01_rb/)\n      kbo(:,54, 8) = (/ &\n     &5.4165e-02_rb,6.9879e-02_rb,8.6686e-02_rb,1.0438e-01_rb,1.2336e-01_rb/)\n      kbo(:,55, 8) = (/ &\n     &4.9072e-02_rb,6.4377e-02_rb,8.0975e-02_rb,9.8517e-02_rb,1.1715e-01_rb/)\n      kbo(:,56, 8) = (/ &\n     &4.4131e-02_rb,5.9064e-02_rb,7.5254e-02_rb,9.2618e-02_rb,1.1083e-01_rb/)\n      kbo(:,57, 8) = (/ &\n     &3.9404e-02_rb,5.3744e-02_rb,6.9648e-02_rb,8.6728e-02_rb,1.0474e-01_rb/)\n      kbo(:,58, 8) = (/ &\n     &3.5245e-02_rb,4.9278e-02_rb,6.4917e-02_rb,8.1857e-02_rb,9.9966e-02_rb/)\n      kbo(:,59, 8) = (/ &\n     &3.5641e-02_rb,5.0530e-02_rb,6.7256e-02_rb,8.5600e-02_rb,1.0518e-01_rb/)\n      kbo(:,13, 9) = (/ &\n     &3.0582e+00_rb,3.1802e+00_rb,3.2924e+00_rb,3.3999e+00_rb,3.5039e+00_rb/)\n      kbo(:,14, 9) = (/ &\n     &2.7741e+00_rb,2.8902e+00_rb,2.9983e+00_rb,3.1018e+00_rb,3.1995e+00_rb/)\n      kbo(:,15, 9) = (/ &\n     &2.5019e+00_rb,2.6118e+00_rb,2.7174e+00_rb,2.8165e+00_rb,2.9092e+00_rb/)\n      kbo(:,16, 9) = (/ &\n     &2.2794e+00_rb,2.3785e+00_rb,2.4700e+00_rb,2.5601e+00_rb,2.6476e+00_rb/)\n      kbo(:,17, 9) = (/ &\n     &2.1431e+00_rb,2.2237e+00_rb,2.2973e+00_rb,2.3689e+00_rb,2.4470e+00_rb/)\n      kbo(:,18, 9) = (/ &\n     &2.1112e+00_rb,2.1931e+00_rb,2.2642e+00_rb,2.3350e+00_rb,2.3995e+00_rb/)\n      kbo(:,19, 9) = (/ &\n     &2.1192e+00_rb,2.1960e+00_rb,2.2679e+00_rb,2.3312e+00_rb,2.3985e+00_rb/)\n      kbo(:,20, 9) = (/ &\n     &2.0719e+00_rb,2.1504e+00_rb,2.2204e+00_rb,2.2883e+00_rb,2.3541e+00_rb/)\n      kbo(:,21, 9) = (/ &\n     &2.0023e+00_rb,2.0787e+00_rb,2.1566e+00_rb,2.2279e+00_rb,2.2981e+00_rb/)\n      kbo(:,22, 9) = (/ &\n     &1.9677e+00_rb,2.0354e+00_rb,2.1023e+00_rb,2.1820e+00_rb,2.2522e+00_rb/)\n      kbo(:,23, 9) = (/ &\n     &1.9509e+00_rb,2.0289e+00_rb,2.0929e+00_rb,2.1547e+00_rb,2.2177e+00_rb/)\n      kbo(:,24, 9) = (/ &\n     &1.9605e+00_rb,2.0316e+00_rb,2.0945e+00_rb,2.1537e+00_rb,2.2147e+00_rb/)\n      kbo(:,25, 9) = (/ &\n     &1.9774e+00_rb,2.0460e+00_rb,2.1037e+00_rb,2.1656e+00_rb,2.2237e+00_rb/)\n      kbo(:,26, 9) = (/ &\n     &1.9746e+00_rb,2.0494e+00_rb,2.1183e+00_rb,2.1793e+00_rb,2.2462e+00_rb/)\n      kbo(:,27, 9) = (/ &\n     &1.9769e+00_rb,2.0480e+00_rb,2.1184e+00_rb,2.1915e+00_rb,2.2594e+00_rb/)\n      kbo(:,28, 9) = (/ &\n     &1.9705e+00_rb,2.0478e+00_rb,2.1273e+00_rb,2.2021e+00_rb,2.2684e+00_rb/)\n      kbo(:,29, 9) = (/ &\n     &1.9428e+00_rb,2.0233e+00_rb,2.1092e+00_rb,2.1834e+00_rb,2.2523e+00_rb/)\n      kbo(:,30, 9) = (/ &\n     &1.9054e+00_rb,1.9928e+00_rb,2.0804e+00_rb,2.1559e+00_rb,2.2456e+00_rb/)\n      kbo(:,31, 9) = (/ &\n     &1.8578e+00_rb,1.9522e+00_rb,2.0363e+00_rb,2.1176e+00_rb,2.2067e+00_rb/)\n      kbo(:,32, 9) = (/ &\n     &1.8167e+00_rb,1.9163e+00_rb,1.9986e+00_rb,2.0826e+00_rb,2.1707e+00_rb/)\n      kbo(:,33, 9) = (/ &\n     &1.7835e+00_rb,1.8773e+00_rb,1.9713e+00_rb,2.0531e+00_rb,2.1415e+00_rb/)\n      kbo(:,34, 9) = (/ &\n     &1.7699e+00_rb,1.8654e+00_rb,1.9579e+00_rb,2.0589e+00_rb,2.1344e+00_rb/)\n      kbo(:,35, 9) = (/ &\n     &1.7588e+00_rb,1.8543e+00_rb,1.9464e+00_rb,2.0494e+00_rb,2.1255e+00_rb/)\n      kbo(:,36, 9) = (/ &\n     &1.7548e+00_rb,1.8549e+00_rb,1.9407e+00_rb,2.0440e+00_rb,2.1280e+00_rb/)\n      kbo(:,37, 9) = (/ &\n     &1.7109e+00_rb,1.8072e+00_rb,1.9003e+00_rb,1.9969e+00_rb,2.0787e+00_rb/)\n      kbo(:,38, 9) = (/ &\n     &1.6587e+00_rb,1.7570e+00_rb,1.8515e+00_rb,1.9517e+00_rb,2.0362e+00_rb/)\n      kbo(:,39, 9) = (/ &\n     &1.5996e+00_rb,1.6993e+00_rb,1.7940e+00_rb,1.8844e+00_rb,1.9872e+00_rb/)\n      kbo(:,40, 9) = (/ &\n     &1.5318e+00_rb,1.6341e+00_rb,1.7309e+00_rb,1.8212e+00_rb,1.9247e+00_rb/)\n      kbo(:,41, 9) = (/ &\n     &1.4675e+00_rb,1.5693e+00_rb,1.6630e+00_rb,1.7538e+00_rb,1.8608e+00_rb/)\n      kbo(:,42, 9) = (/ &\n     &1.4053e+00_rb,1.5014e+00_rb,1.5957e+00_rb,1.6862e+00_rb,1.7957e+00_rb/)\n      kbo(:,43, 9) = (/ &\n     &1.3266e+00_rb,1.4241e+00_rb,1.5193e+00_rb,1.6083e+00_rb,1.7037e+00_rb/)\n      kbo(:,44, 9) = (/ &\n     &1.2422e+00_rb,1.3405e+00_rb,1.4375e+00_rb,1.5296e+00_rb,1.6219e+00_rb/)\n      kbo(:,45, 9) = (/ &\n     &1.1571e+00_rb,1.2540e+00_rb,1.3469e+00_rb,1.4395e+00_rb,1.5427e+00_rb/)\n      kbo(:,46, 9) = (/ &\n     &1.0762e+00_rb,1.1688e+00_rb,1.2622e+00_rb,1.3587e+00_rb,1.4621e+00_rb/)\n      kbo(:,47, 9) = (/ &\n     &9.9321e-01_rb,1.0861e+00_rb,1.1791e+00_rb,1.2774e+00_rb,1.3779e+00_rb/)\n      kbo(:,48, 9) = (/ &\n     &9.0640e-01_rb,1.0035e+00_rb,1.0964e+00_rb,1.1955e+00_rb,1.2984e+00_rb/)\n      kbo(:,49, 9) = (/ &\n     &8.2476e-01_rb,9.1593e-01_rb,1.0111e+00_rb,1.1148e+00_rb,1.2202e+00_rb/)\n      kbo(:,50, 9) = (/ &\n     &7.5762e-01_rb,8.4984e-01_rb,9.4454e-01_rb,1.0468e+00_rb,1.1530e+00_rb/)\n      kbo(:,51, 9) = (/ &\n     &6.9972e-01_rb,7.8939e-01_rb,8.8551e-01_rb,9.8599e-01_rb,1.0894e+00_rb/)\n      kbo(:,52, 9) = (/ &\n     &6.4292e-01_rb,7.3062e-01_rb,8.2745e-01_rb,9.2620e-01_rb,1.0265e+00_rb/)\n      kbo(:,53, 9) = (/ &\n     &5.8631e-01_rb,6.7367e-01_rb,7.6794e-01_rb,8.6557e-01_rb,9.6191e-01_rb/)\n      kbo(:,54, 9) = (/ &\n     &5.4766e-01_rb,6.3312e-01_rb,7.2658e-01_rb,8.2340e-01_rb,9.1820e-01_rb/)\n      kbo(:,55, 9) = (/ &\n     &5.1893e-01_rb,6.0477e-01_rb,6.9346e-01_rb,7.9003e-01_rb,8.8552e-01_rb/)\n      kbo(:,56, 9) = (/ &\n     &4.9077e-01_rb,5.7504e-01_rb,6.6139e-01_rb,7.5822e-01_rb,8.5232e-01_rb/)\n      kbo(:,57, 9) = (/ &\n     &4.6294e-01_rb,5.4644e-01_rb,6.3217e-01_rb,7.2497e-01_rb,8.2095e-01_rb/)\n      kbo(:,58, 9) = (/ &\n     &4.3872e-01_rb,5.2209e-01_rb,6.0717e-01_rb,6.9576e-01_rb,7.9255e-01_rb/)\n      kbo(:,59, 9) = (/ &\n     &4.5355e-01_rb,5.4099e-01_rb,6.2851e-01_rb,7.1405e-01_rb,8.0552e-01_rb/)\n      kbo(:,13,10) = (/ &\n     &1.4982e+01_rb,1.5495e+01_rb,1.5954e+01_rb,1.6348e+01_rb,1.6704e+01_rb/)\n      kbo(:,14,10) = (/ &\n     &1.3335e+01_rb,1.3739e+01_rb,1.4075e+01_rb,1.4394e+01_rb,1.4701e+01_rb/)\n      kbo(:,15,10) = (/ &\n     &1.2249e+01_rb,1.2466e+01_rb,1.2680e+01_rb,1.2851e+01_rb,1.2999e+01_rb/)\n      kbo(:,16,10) = (/ &\n     &1.1258e+01_rb,1.1509e+01_rb,1.1735e+01_rb,1.1863e+01_rb,1.1992e+01_rb/)\n      kbo(:,17,10) = (/ &\n     &9.6399e+00_rb,9.9316e+00_rb,1.0198e+01_rb,1.0495e+01_rb,1.0685e+01_rb/)\n      kbo(:,18,10) = (/ &\n     &8.3200e+00_rb,8.3604e+00_rb,8.4791e+00_rb,8.5483e+00_rb,8.6485e+00_rb/)\n      kbo(:,19,10) = (/ &\n     &8.1074e+00_rb,8.1199e+00_rb,8.1734e+00_rb,8.2725e+00_rb,8.2532e+00_rb/)\n      kbo(:,20,10) = (/ &\n     &8.0251e+00_rb,8.0270e+00_rb,8.1639e+00_rb,8.2375e+00_rb,8.2230e+00_rb/)\n      kbo(:,21,10) = (/ &\n     &7.9993e+00_rb,8.0934e+00_rb,8.2060e+00_rb,8.1449e+00_rb,8.1878e+00_rb/)\n      kbo(:,22,10) = (/ &\n     &7.7052e+00_rb,7.8023e+00_rb,8.0192e+00_rb,8.0278e+00_rb,8.0411e+00_rb/)\n      kbo(:,23,10) = (/ &\n     &7.2443e+00_rb,7.3880e+00_rb,7.6036e+00_rb,7.7289e+00_rb,7.8141e+00_rb/)\n      kbo(:,24,10) = (/ &\n     &6.8599e+00_rb,6.9432e+00_rb,7.2334e+00_rb,7.4508e+00_rb,7.5685e+00_rb/)\n      kbo(:,25,10) = (/ &\n     &6.7077e+00_rb,6.7570e+00_rb,7.0253e+00_rb,7.1690e+00_rb,7.3506e+00_rb/)\n      kbo(:,26,10) = (/ &\n     &6.7805e+00_rb,6.7972e+00_rb,6.9739e+00_rb,6.9966e+00_rb,7.1457e+00_rb/)\n      kbo(:,27,10) = (/ &\n     &6.6456e+00_rb,6.8298e+00_rb,6.9537e+00_rb,6.8703e+00_rb,6.9847e+00_rb/)\n      kbo(:,28,10) = (/ &\n     &6.6227e+00_rb,6.7740e+00_rb,6.7717e+00_rb,6.7969e+00_rb,6.8834e+00_rb/)\n      kbo(:,29,10) = (/ &\n     &6.5026e+00_rb,6.7130e+00_rb,6.6983e+00_rb,6.7888e+00_rb,6.9842e+00_rb/)\n      kbo(:,30,10) = (/ &\n     &6.4613e+00_rb,6.7438e+00_rb,6.7406e+00_rb,6.8001e+00_rb,7.0628e+00_rb/)\n      kbo(:,31,10) = (/ &\n     &6.4453e+00_rb,6.5818e+00_rb,6.6914e+00_rb,6.8343e+00_rb,7.1118e+00_rb/)\n      kbo(:,32,10) = (/ &\n     &6.4750e+00_rb,6.5165e+00_rb,6.6931e+00_rb,6.9311e+00_rb,7.2907e+00_rb/)\n      kbo(:,33,10) = (/ &\n     &6.3852e+00_rb,6.5174e+00_rb,6.6687e+00_rb,7.0429e+00_rb,7.4921e+00_rb/)\n      kbo(:,34,10) = (/ &\n     &6.2937e+00_rb,6.5395e+00_rb,6.7522e+00_rb,7.1615e+00_rb,7.5856e+00_rb/)\n      kbo(:,35,10) = (/ &\n     &6.2760e+00_rb,6.5561e+00_rb,6.8772e+00_rb,7.3182e+00_rb,7.7508e+00_rb/)\n      kbo(:,36,10) = (/ &\n     &6.2498e+00_rb,6.5146e+00_rb,6.9721e+00_rb,7.4134e+00_rb,7.7777e+00_rb/)\n      kbo(:,37,10) = (/ &\n     &6.0875e+00_rb,6.4490e+00_rb,6.8813e+00_rb,7.4029e+00_rb,7.7937e+00_rb/)\n      kbo(:,38,10) = (/ &\n     &5.9776e+00_rb,6.3534e+00_rb,6.8337e+00_rb,7.2840e+00_rb,7.6800e+00_rb/)\n      kbo(:,39,10) = (/ &\n     &5.9369e+00_rb,6.2769e+00_rb,6.7228e+00_rb,7.1879e+00_rb,7.5772e+00_rb/)\n      kbo(:,40,10) = (/ &\n     &5.8199e+00_rb,6.1346e+00_rb,6.5569e+00_rb,7.0308e+00_rb,7.5139e+00_rb/)\n      kbo(:,41,10) = (/ &\n     &5.6637e+00_rb,5.9953e+00_rb,6.3928e+00_rb,6.8959e+00_rb,7.3899e+00_rb/)\n      kbo(:,42,10) = (/ &\n     &5.4578e+00_rb,5.8740e+00_rb,6.2837e+00_rb,6.7615e+00_rb,7.2182e+00_rb/)\n      kbo(:,43,10) = (/ &\n     &5.2432e+00_rb,5.6884e+00_rb,6.0915e+00_rb,6.5892e+00_rb,7.0176e+00_rb/)\n      kbo(:,44,10) = (/ &\n     &5.0352e+00_rb,5.5134e+00_rb,5.9765e+00_rb,6.3927e+00_rb,6.8192e+00_rb/)\n      kbo(:,45,10) = (/ &\n     &4.8185e+00_rb,5.3066e+00_rb,5.8216e+00_rb,6.2708e+00_rb,6.5394e+00_rb/)\n      kbo(:,46,10) = (/ &\n     &4.5458e+00_rb,5.0700e+00_rb,5.5601e+00_rb,5.9708e+00_rb,6.3061e+00_rb/)\n      kbo(:,47,10) = (/ &\n     &4.3290e+00_rb,4.8090e+00_rb,5.3177e+00_rb,5.7187e+00_rb,6.0493e+00_rb/)\n      kbo(:,48,10) = (/ &\n     &4.1252e+00_rb,4.6210e+00_rb,5.0031e+00_rb,5.3950e+00_rb,5.6779e+00_rb/)\n      kbo(:,49,10) = (/ &\n     &3.8776e+00_rb,4.3638e+00_rb,4.7491e+00_rb,5.0119e+00_rb,5.3209e+00_rb/)\n      kbo(:,50,10) = (/ &\n     &3.6432e+00_rb,4.1171e+00_rb,4.5036e+00_rb,4.8339e+00_rb,5.0310e+00_rb/)\n      kbo(:,51,10) = (/ &\n     &3.4528e+00_rb,3.8987e+00_rb,4.2685e+00_rb,4.6158e+00_rb,4.8586e+00_rb/)\n      kbo(:,52,10) = (/ &\n     &3.2373e+00_rb,3.6786e+00_rb,4.0057e+00_rb,4.3579e+00_rb,4.6615e+00_rb/)\n      kbo(:,53,10) = (/ &\n     &3.0066e+00_rb,3.4261e+00_rb,3.7660e+00_rb,4.0904e+00_rb,4.4162e+00_rb/)\n      kbo(:,54,10) = (/ &\n     &2.8305e+00_rb,3.2571e+00_rb,3.6215e+00_rb,3.9208e+00_rb,4.2651e+00_rb/)\n      kbo(:,55,10) = (/ &\n     &2.6852e+00_rb,3.0952e+00_rb,3.4961e+00_rb,3.7995e+00_rb,4.1315e+00_rb/)\n      kbo(:,56,10) = (/ &\n     &2.5024e+00_rb,2.9749e+00_rb,3.3840e+00_rb,3.6764e+00_rb,4.0215e+00_rb/)\n      kbo(:,57,10) = (/ &\n     &2.3413e+00_rb,2.8251e+00_rb,3.2333e+00_rb,3.5901e+00_rb,3.8695e+00_rb/)\n      kbo(:,58,10) = (/ &\n     &2.2399e+00_rb,2.6684e+00_rb,3.1055e+00_rb,3.4841e+00_rb,3.7568e+00_rb/)\n      kbo(:,59,10) = (/ &\n     &2.3106e+00_rb,2.6842e+00_rb,3.0911e+00_rb,3.5243e+00_rb,3.8718e+00_rb/)\n      kbo(:,13,11) = (/ &\n     &3.1114e+01_rb,3.1701e+01_rb,3.2323e+01_rb,3.2943e+01_rb,3.3516e+01_rb/)\n      kbo(:,14,11) = (/ &\n     &2.7715e+01_rb,2.8303e+01_rb,2.8933e+01_rb,2.9548e+01_rb,3.0169e+01_rb/)\n      kbo(:,15,11) = (/ &\n     &2.4338e+01_rb,2.4986e+01_rb,2.5617e+01_rb,2.6312e+01_rb,2.7005e+01_rb/)\n      kbo(:,16,11) = (/ &\n     &2.1212e+01_rb,2.1803e+01_rb,2.2432e+01_rb,2.3085e+01_rb,2.3696e+01_rb/)\n      kbo(:,17,11) = (/ &\n     &1.8965e+01_rb,1.9451e+01_rb,1.9925e+01_rb,2.0308e+01_rb,2.0718e+01_rb/)\n      kbo(:,18,11) = (/ &\n     &1.6301e+01_rb,1.6846e+01_rb,1.7358e+01_rb,1.7884e+01_rb,1.8436e+01_rb/)\n      kbo(:,19,11) = (/ &\n     &1.3305e+01_rb,1.3592e+01_rb,1.3869e+01_rb,1.4251e+01_rb,1.4704e+01_rb/)\n      kbo(:,20,11) = (/ &\n     &1.2734e+01_rb,1.2816e+01_rb,1.2643e+01_rb,1.2573e+01_rb,1.2686e+01_rb/)\n      kbo(:,21,11) = (/ &\n     &1.2657e+01_rb,1.2589e+01_rb,1.2354e+01_rb,1.2271e+01_rb,1.2114e+01_rb/)\n      kbo(:,22,11) = (/ &\n     &1.2492e+01_rb,1.2455e+01_rb,1.2170e+01_rb,1.1916e+01_rb,1.1871e+01_rb/)\n      kbo(:,23,11) = (/ &\n     &1.2437e+01_rb,1.2266e+01_rb,1.2152e+01_rb,1.1923e+01_rb,1.2016e+01_rb/)\n      kbo(:,24,11) = (/ &\n     &1.2312e+01_rb,1.2409e+01_rb,1.2179e+01_rb,1.1958e+01_rb,1.2034e+01_rb/)\n      kbo(:,25,11) = (/ &\n     &1.1905e+01_rb,1.2160e+01_rb,1.2010e+01_rb,1.2119e+01_rb,1.2127e+01_rb/)\n      kbo(:,26,11) = (/ &\n     &1.1398e+01_rb,1.1792e+01_rb,1.1851e+01_rb,1.2073e+01_rb,1.2295e+01_rb/)\n      kbo(:,27,11) = (/ &\n     &1.1115e+01_rb,1.1534e+01_rb,1.1738e+01_rb,1.2206e+01_rb,1.2469e+01_rb/)\n      kbo(:,28,11) = (/ &\n     &1.0833e+01_rb,1.1382e+01_rb,1.1757e+01_rb,1.2168e+01_rb,1.2751e+01_rb/)\n      kbo(:,29,11) = (/ &\n     &1.0849e+01_rb,1.1242e+01_rb,1.1765e+01_rb,1.2112e+01_rb,1.2581e+01_rb/)\n      kbo(:,30,11) = (/ &\n     &1.0908e+01_rb,1.1219e+01_rb,1.1698e+01_rb,1.2283e+01_rb,1.2675e+01_rb/)\n      kbo(:,31,11) = (/ &\n     &1.1065e+01_rb,1.1480e+01_rb,1.1755e+01_rb,1.2188e+01_rb,1.2848e+01_rb/)\n      kbo(:,32,11) = (/ &\n     &1.1087e+01_rb,1.1591e+01_rb,1.1912e+01_rb,1.2336e+01_rb,1.2746e+01_rb/)\n      kbo(:,33,11) = (/ &\n     &1.1325e+01_rb,1.1662e+01_rb,1.2022e+01_rb,1.2470e+01_rb,1.2619e+01_rb/)\n      kbo(:,34,11) = (/ &\n     &1.1533e+01_rb,1.1754e+01_rb,1.2155e+01_rb,1.2455e+01_rb,1.2615e+01_rb/)\n      kbo(:,35,11) = (/ &\n     &1.1659e+01_rb,1.1966e+01_rb,1.2184e+01_rb,1.2500e+01_rb,1.2545e+01_rb/)\n      kbo(:,36,11) = (/ &\n     &1.1755e+01_rb,1.2074e+01_rb,1.2225e+01_rb,1.2599e+01_rb,1.2813e+01_rb/)\n      kbo(:,37,11) = (/ &\n     &1.1716e+01_rb,1.1980e+01_rb,1.2067e+01_rb,1.2383e+01_rb,1.2671e+01_rb/)\n      kbo(:,38,11) = (/ &\n     &1.1652e+01_rb,1.1821e+01_rb,1.1815e+01_rb,1.2298e+01_rb,1.2561e+01_rb/)\n      kbo(:,39,11) = (/ &\n     &1.1437e+01_rb,1.1591e+01_rb,1.1776e+01_rb,1.2140e+01_rb,1.2306e+01_rb/)\n      kbo(:,40,11) = (/ &\n     &1.1267e+01_rb,1.1380e+01_rb,1.1567e+01_rb,1.1899e+01_rb,1.1967e+01_rb/)\n      kbo(:,41,11) = (/ &\n     &1.0928e+01_rb,1.1128e+01_rb,1.1355e+01_rb,1.1698e+01_rb,1.1735e+01_rb/)\n      kbo(:,42,11) = (/ &\n     &1.0609e+01_rb,1.0842e+01_rb,1.1168e+01_rb,1.1452e+01_rb,1.1524e+01_rb/)\n      kbo(:,43,11) = (/ &\n     &1.0251e+01_rb,1.0481e+01_rb,1.0835e+01_rb,1.1143e+01_rb,1.1300e+01_rb/)\n      kbo(:,44,11) = (/ &\n     &9.7650e+00_rb,1.0106e+01_rb,1.0340e+01_rb,1.0725e+01_rb,1.0899e+01_rb/)\n      kbo(:,45,11) = (/ &\n     &9.2584e+00_rb,9.6204e+00_rb,9.9580e+00_rb,1.0325e+01_rb,1.0626e+01_rb/)\n      kbo(:,46,11) = (/ &\n     &8.9377e+00_rb,9.1742e+00_rb,9.5458e+00_rb,9.9839e+00_rb,1.0197e+01_rb/)\n      kbo(:,47,11) = (/ &\n     &8.5371e+00_rb,8.7965e+00_rb,9.0763e+00_rb,9.5717e+00_rb,9.9938e+00_rb/)\n      kbo(:,48,11) = (/ &\n     &7.9850e+00_rb,8.3229e+00_rb,8.7471e+00_rb,9.1748e+00_rb,9.6663e+00_rb/)\n      kbo(:,49,11) = (/ &\n     &7.4325e+00_rb,7.8561e+00_rb,8.3257e+00_rb,8.9344e+00_rb,9.3488e+00_rb/)\n      kbo(:,50,11) = (/ &\n     &6.9934e+00_rb,7.5330e+00_rb,7.9938e+00_rb,8.5231e+00_rb,9.1226e+00_rb/)\n      kbo(:,51,11) = (/ &\n     &6.6292e+00_rb,7.1581e+00_rb,7.7030e+00_rb,8.1971e+00_rb,8.9077e+00_rb/)\n      kbo(:,52,11) = (/ &\n     &6.2107e+00_rb,6.7791e+00_rb,7.3981e+00_rb,7.9369e+00_rb,8.8177e+00_rb/)\n      kbo(:,53,11) = (/ &\n     &5.7771e+00_rb,6.3836e+00_rb,7.0431e+00_rb,7.8871e+00_rb,8.9292e+00_rb/)\n      kbo(:,54,11) = (/ &\n     &5.5085e+00_rb,6.1058e+00_rb,6.7091e+00_rb,7.6421e+00_rb,8.6682e+00_rb/)\n      kbo(:,55,11) = (/ &\n     &5.3542e+00_rb,5.9311e+00_rb,6.5099e+00_rb,7.2327e+00_rb,8.2463e+00_rb/)\n      kbo(:,56,11) = (/ &\n     &5.2013e+00_rb,5.6998e+00_rb,6.2622e+00_rb,6.8978e+00_rb,7.7861e+00_rb/)\n      kbo(:,57,11) = (/ &\n     &4.9844e+00_rb,5.4898e+00_rb,6.0972e+00_rb,6.6262e+00_rb,7.3665e+00_rb/)\n      kbo(:,58,11) = (/ &\n     &4.7470e+00_rb,5.3695e+00_rb,5.9047e+00_rb,6.4509e+00_rb,7.0483e+00_rb/)\n      kbo(:,59,11) = (/ &\n     &4.7734e+00_rb,5.4744e+00_rb,6.0332e+00_rb,6.5609e+00_rb,7.0505e+00_rb/)\n      kbo(:,13,12) = (/ &\n     &6.9738e+01_rb,7.0752e+01_rb,7.1414e+01_rb,7.2004e+01_rb,7.2657e+01_rb/)\n      kbo(:,14,12) = (/ &\n     &6.4422e+01_rb,6.5346e+01_rb,6.6191e+01_rb,6.7103e+01_rb,6.7985e+01_rb/)\n      kbo(:,15,12) = (/ &\n     &5.8702e+01_rb,5.9763e+01_rb,6.0895e+01_rb,6.1978e+01_rb,6.3157e+01_rb/)\n      kbo(:,16,12) = (/ &\n     &5.3091e+01_rb,5.4316e+01_rb,5.5558e+01_rb,5.6938e+01_rb,5.8399e+01_rb/)\n      kbo(:,17,12) = (/ &\n     &4.7175e+01_rb,4.8634e+01_rb,5.0234e+01_rb,5.1992e+01_rb,5.3803e+01_rb/)\n      kbo(:,18,12) = (/ &\n     &4.1145e+01_rb,4.2755e+01_rb,4.4548e+01_rb,4.6436e+01_rb,4.8468e+01_rb/)\n      kbo(:,19,12) = (/ &\n     &3.4889e+01_rb,3.6512e+01_rb,3.8406e+01_rb,4.0570e+01_rb,4.2997e+01_rb/)\n      kbo(:,20,12) = (/ &\n     &2.8470e+01_rb,3.0112e+01_rb,3.2281e+01_rb,3.4662e+01_rb,3.7243e+01_rb/)\n      kbo(:,21,12) = (/ &\n     &2.3947e+01_rb,2.5322e+01_rb,2.7206e+01_rb,2.9369e+01_rb,3.2034e+01_rb/)\n      kbo(:,22,12) = (/ &\n     &2.2071e+01_rb,2.2771e+01_rb,2.4136e+01_rb,2.6151e+01_rb,2.8304e+01_rb/)\n      kbo(:,23,12) = (/ &\n     &2.1437e+01_rb,2.2028e+01_rb,2.2789e+01_rb,2.3769e+01_rb,2.5664e+01_rb/)\n      kbo(:,24,12) = (/ &\n     &2.1104e+01_rb,2.1623e+01_rb,2.2496e+01_rb,2.3486e+01_rb,2.4592e+01_rb/)\n      kbo(:,25,12) = (/ &\n     &2.1238e+01_rb,2.1868e+01_rb,2.2645e+01_rb,2.3461e+01_rb,2.4762e+01_rb/)\n      kbo(:,26,12) = (/ &\n     &2.1604e+01_rb,2.2258e+01_rb,2.3294e+01_rb,2.4121e+01_rb,2.5265e+01_rb/)\n      kbo(:,27,12) = (/ &\n     &2.2115e+01_rb,2.2777e+01_rb,2.3909e+01_rb,2.4766e+01_rb,2.5867e+01_rb/)\n      kbo(:,28,12) = (/ &\n     &2.2448e+01_rb,2.3238e+01_rb,2.4298e+01_rb,2.5624e+01_rb,2.6343e+01_rb/)\n      kbo(:,29,12) = (/ &\n     &2.2577e+01_rb,2.3289e+01_rb,2.4323e+01_rb,2.5634e+01_rb,2.6765e+01_rb/)\n      kbo(:,30,12) = (/ &\n     &2.2578e+01_rb,2.3315e+01_rb,2.4386e+01_rb,2.5500e+01_rb,2.6908e+01_rb/)\n      kbo(:,31,12) = (/ &\n     &2.2201e+01_rb,2.3259e+01_rb,2.4131e+01_rb,2.5149e+01_rb,2.6545e+01_rb/)\n      kbo(:,32,12) = (/ &\n     &2.2079e+01_rb,2.2922e+01_rb,2.4111e+01_rb,2.5430e+01_rb,2.6527e+01_rb/)\n      kbo(:,33,12) = (/ &\n     &2.2095e+01_rb,2.2961e+01_rb,2.4279e+01_rb,2.5414e+01_rb,2.7005e+01_rb/)\n      kbo(:,34,12) = (/ &\n     &2.2319e+01_rb,2.3341e+01_rb,2.4447e+01_rb,2.6277e+01_rb,2.7940e+01_rb/)\n      kbo(:,35,12) = (/ &\n     &2.2552e+01_rb,2.3701e+01_rb,2.5211e+01_rb,2.6844e+01_rb,2.9224e+01_rb/)\n      kbo(:,36,12) = (/ &\n     &2.3085e+01_rb,2.4181e+01_rb,2.5665e+01_rb,2.7600e+01_rb,3.0387e+01_rb/)\n      kbo(:,37,12) = (/ &\n     &2.2925e+01_rb,2.4128e+01_rb,2.5553e+01_rb,2.7616e+01_rb,3.1077e+01_rb/)\n      kbo(:,38,12) = (/ &\n     &2.2707e+01_rb,2.3887e+01_rb,2.5581e+01_rb,2.8109e+01_rb,3.1584e+01_rb/)\n      kbo(:,39,12) = (/ &\n     &2.2511e+01_rb,2.3842e+01_rb,2.5754e+01_rb,2.8880e+01_rb,3.2658e+01_rb/)\n      kbo(:,40,12) = (/ &\n     &2.1948e+01_rb,2.3291e+01_rb,2.5416e+01_rb,2.8638e+01_rb,3.2604e+01_rb/)\n      kbo(:,41,12) = (/ &\n     &2.1476e+01_rb,2.2682e+01_rb,2.5024e+01_rb,2.8295e+01_rb,3.2225e+01_rb/)\n      kbo(:,42,12) = (/ &\n     &2.0874e+01_rb,2.2077e+01_rb,2.4841e+01_rb,2.8049e+01_rb,3.2070e+01_rb/)\n      kbo(:,43,12) = (/ &\n     &2.0317e+01_rb,2.1501e+01_rb,2.4302e+01_rb,2.7503e+01_rb,3.1532e+01_rb/)\n      kbo(:,44,12) = (/ &\n     &1.9539e+01_rb,2.0870e+01_rb,2.3855e+01_rb,2.7092e+01_rb,3.1110e+01_rb/)\n      kbo(:,45,12) = (/ &\n     &1.8830e+01_rb,2.0599e+01_rb,2.3570e+01_rb,2.6837e+01_rb,3.0566e+01_rb/)\n      kbo(:,46,12) = (/ &\n     &1.8029e+01_rb,2.0375e+01_rb,2.3363e+01_rb,2.6419e+01_rb,3.0085e+01_rb/)\n      kbo(:,47,12) = (/ &\n     &1.7365e+01_rb,1.9999e+01_rb,2.2921e+01_rb,2.5901e+01_rb,2.9166e+01_rb/)\n      kbo(:,48,12) = (/ &\n     &1.7043e+01_rb,1.9606e+01_rb,2.2433e+01_rb,2.5542e+01_rb,2.8495e+01_rb/)\n      kbo(:,49,12) = (/ &\n     &1.6912e+01_rb,1.9487e+01_rb,2.2139e+01_rb,2.5022e+01_rb,2.8110e+01_rb/)\n      kbo(:,50,12) = (/ &\n     &1.6517e+01_rb,1.8987e+01_rb,2.1585e+01_rb,2.4422e+01_rb,2.7428e+01_rb/)\n      kbo(:,51,12) = (/ &\n     &1.5891e+01_rb,1.8550e+01_rb,2.1056e+01_rb,2.3767e+01_rb,2.6461e+01_rb/)\n      kbo(:,52,12) = (/ &\n     &1.5362e+01_rb,1.8085e+01_rb,2.0538e+01_rb,2.3135e+01_rb,2.5477e+01_rb/)\n      kbo(:,53,12) = (/ &\n     &1.4979e+01_rb,1.7596e+01_rb,2.0169e+01_rb,2.2304e+01_rb,2.4351e+01_rb/)\n      kbo(:,54,12) = (/ &\n     &1.4292e+01_rb,1.6762e+01_rb,1.9386e+01_rb,2.1407e+01_rb,2.3360e+01_rb/)\n      kbo(:,55,12) = (/ &\n     &1.3424e+01_rb,1.5675e+01_rb,1.8295e+01_rb,2.0550e+01_rb,2.2398e+01_rb/)\n      kbo(:,56,12) = (/ &\n     &1.2558e+01_rb,1.4702e+01_rb,1.7198e+01_rb,1.9642e+01_rb,2.1560e+01_rb/)\n      kbo(:,57,12) = (/ &\n     &1.1789e+01_rb,1.3891e+01_rb,1.6101e+01_rb,1.8574e+01_rb,2.0696e+01_rb/)\n      kbo(:,58,12) = (/ &\n     &1.0944e+01_rb,1.2980e+01_rb,1.5007e+01_rb,1.7361e+01_rb,1.9688e+01_rb/)\n      kbo(:,59,12) = (/ &\n     &1.0805e+01_rb,1.1957e+01_rb,1.3692e+01_rb,1.5846e+01_rb,1.8110e+01_rb/)\n      kbo(:,13,13) = (/ &\n     &1.5252e+02_rb,1.5442e+02_rb,1.5646e+02_rb,1.5779e+02_rb,1.5854e+02_rb/)\n      kbo(:,14,13) = (/ &\n     &1.5029e+02_rb,1.5315e+02_rb,1.5552e+02_rb,1.5711e+02_rb,1.5813e+02_rb/)\n      kbo(:,15,13) = (/ &\n     &1.4712e+02_rb,1.5063e+02_rb,1.5294e+02_rb,1.5483e+02_rb,1.5630e+02_rb/)\n      kbo(:,16,13) = (/ &\n     &1.4282e+02_rb,1.4612e+02_rb,1.4898e+02_rb,1.5141e+02_rb,1.5352e+02_rb/)\n      kbo(:,17,13) = (/ &\n     &1.3686e+02_rb,1.4066e+02_rb,1.4417e+02_rb,1.4736e+02_rb,1.5020e+02_rb/)\n      kbo(:,18,13) = (/ &\n     &1.3031e+02_rb,1.3486e+02_rb,1.3910e+02_rb,1.4308e+02_rb,1.4669e+02_rb/)\n      kbo(:,19,13) = (/ &\n     &1.2305e+02_rb,1.2878e+02_rb,1.3410e+02_rb,1.3882e+02_rb,1.4318e+02_rb/)\n      kbo(:,20,13) = (/ &\n     &1.1539e+02_rb,1.2206e+02_rb,1.2838e+02_rb,1.3444e+02_rb,1.4010e+02_rb/)\n      kbo(:,21,13) = (/ &\n     &1.0694e+02_rb,1.1477e+02_rb,1.2233e+02_rb,1.2972e+02_rb,1.3638e+02_rb/)\n      kbo(:,22,13) = (/ &\n     &9.8072e+01_rb,1.0767e+02_rb,1.1673e+02_rb,1.2508e+02_rb,1.3303e+02_rb/)\n      kbo(:,23,13) = (/ &\n     &8.9638e+01_rb,1.0003e+02_rb,1.1035e+02_rb,1.2081e+02_rb,1.2954e+02_rb/)\n      kbo(:,24,13) = (/ &\n     &8.2450e+01_rb,9.3359e+01_rb,1.0421e+02_rb,1.1509e+02_rb,1.2544e+02_rb/)\n      kbo(:,25,13) = (/ &\n     &7.6879e+01_rb,8.7792e+01_rb,9.9290e+01_rb,1.1048e+02_rb,1.2100e+02_rb/)\n      kbo(:,26,13) = (/ &\n     &7.3470e+01_rb,8.4233e+01_rb,9.5225e+01_rb,1.0688e+02_rb,1.1752e+02_rb/)\n      kbo(:,27,13) = (/ &\n     &7.1984e+01_rb,8.2203e+01_rb,9.3044e+01_rb,1.0438e+02_rb,1.1537e+02_rb/)\n      kbo(:,28,13) = (/ &\n     &7.1683e+01_rb,8.1066e+01_rb,9.2180e+01_rb,1.0291e+02_rb,1.1419e+02_rb/)\n      kbo(:,29,13) = (/ &\n     &7.3240e+01_rb,8.2713e+01_rb,9.3261e+01_rb,1.0420e+02_rb,1.1497e+02_rb/)\n      kbo(:,30,13) = (/ &\n     &7.5656e+01_rb,8.5740e+01_rb,9.5155e+01_rb,1.0607e+02_rb,1.1653e+02_rb/)\n      kbo(:,31,13) = (/ &\n     &7.9639e+01_rb,8.9485e+01_rb,9.9623e+01_rb,1.0965e+02_rb,1.1967e+02_rb/)\n      kbo(:,32,13) = (/ &\n     &8.5052e+01_rb,9.4635e+01_rb,1.0433e+02_rb,1.1321e+02_rb,1.2287e+02_rb/)\n      kbo(:,33,13) = (/ &\n     &9.0468e+01_rb,1.0058e+02_rb,1.0969e+02_rb,1.1864e+02_rb,1.2671e+02_rb/)\n      kbo(:,34,13) = (/ &\n     &9.5615e+01_rb,1.0581e+02_rb,1.1476e+02_rb,1.2258e+02_rb,1.3070e+02_rb/)\n      kbo(:,35,13) = (/ &\n     &9.9168e+01_rb,1.0972e+02_rb,1.1933e+02_rb,1.2712e+02_rb,1.3373e+02_rb/)\n      kbo(:,36,13) = (/ &\n     &1.0086e+02_rb,1.1164e+02_rb,1.2168e+02_rb,1.3014e+02_rb,1.3667e+02_rb/)\n      kbo(:,37,13) = (/ &\n     &1.0047e+02_rb,1.1211e+02_rb,1.2253e+02_rb,1.3099e+02_rb,1.3706e+02_rb/)\n      kbo(:,38,13) = (/ &\n     &1.0049e+02_rb,1.1250e+02_rb,1.2313e+02_rb,1.3108e+02_rb,1.3732e+02_rb/)\n      kbo(:,39,13) = (/ &\n     &1.0115e+02_rb,1.1295e+02_rb,1.2350e+02_rb,1.3105e+02_rb,1.3768e+02_rb/)\n      kbo(:,40,13) = (/ &\n     &9.9765e+01_rb,1.1141e+02_rb,1.2196e+02_rb,1.2992e+02_rb,1.3631e+02_rb/)\n      kbo(:,41,13) = (/ &\n     &9.8221e+01_rb,1.1003e+02_rb,1.2037e+02_rb,1.2825e+02_rb,1.3487e+02_rb/)\n      kbo(:,42,13) = (/ &\n     &9.7048e+01_rb,1.0845e+02_rb,1.1823e+02_rb,1.2668e+02_rb,1.3349e+02_rb/)\n      kbo(:,43,13) = (/ &\n     &9.4582e+01_rb,1.0608e+02_rb,1.1575e+02_rb,1.2424e+02_rb,1.3118e+02_rb/)\n      kbo(:,44,13) = (/ &\n     &9.2428e+01_rb,1.0325e+02_rb,1.1298e+02_rb,1.2159e+02_rb,1.2888e+02_rb/)\n      kbo(:,45,13) = (/ &\n     &9.0012e+01_rb,1.0014e+02_rb,1.0975e+02_rb,1.1855e+02_rb,1.2634e+02_rb/)\n      kbo(:,46,13) = (/ &\n     &8.6912e+01_rb,9.6825e+01_rb,1.0618e+02_rb,1.1559e+02_rb,1.2362e+02_rb/)\n      kbo(:,47,13) = (/ &\n     &8.3243e+01_rb,9.2791e+01_rb,1.0216e+02_rb,1.1173e+02_rb,1.2014e+02_rb/)\n      kbo(:,48,13) = (/ &\n     &7.9277e+01_rb,8.8596e+01_rb,9.7998e+01_rb,1.0757e+02_rb,1.1661e+02_rb/)\n      kbo(:,49,13) = (/ &\n     &7.5292e+01_rb,8.4192e+01_rb,9.3715e+01_rb,1.0350e+02_rb,1.1301e+02_rb/)\n      kbo(:,50,13) = (/ &\n     &7.1230e+01_rb,8.0247e+01_rb,8.9698e+01_rb,9.9552e+01_rb,1.0903e+02_rb/)\n      kbo(:,51,13) = (/ &\n     &6.7476e+01_rb,7.6410e+01_rb,8.5492e+01_rb,9.5376e+01_rb,1.0529e+02_rb/)\n      kbo(:,52,13) = (/ &\n     &6.3984e+01_rb,7.2323e+01_rb,8.1379e+01_rb,9.1669e+01_rb,1.0161e+02_rb/)\n      kbo(:,53,13) = (/ &\n     &6.0507e+01_rb,6.8710e+01_rb,7.7291e+01_rb,8.7376e+01_rb,9.7642e+01_rb/)\n      kbo(:,54,13) = (/ &\n     &5.7140e+01_rb,6.5369e+01_rb,7.3636e+01_rb,8.3548e+01_rb,9.3708e+01_rb/)\n      kbo(:,55,13) = (/ &\n     &5.3812e+01_rb,6.2020e+01_rb,7.0040e+01_rb,7.9975e+01_rb,8.9949e+01_rb/)\n      kbo(:,56,13) = (/ &\n     &5.0680e+01_rb,5.8469e+01_rb,6.6837e+01_rb,7.6130e+01_rb,8.6168e+01_rb/)\n      kbo(:,57,13) = (/ &\n     &4.7704e+01_rb,5.5283e+01_rb,6.3212e+01_rb,7.2482e+01_rb,8.2593e+01_rb/)\n      kbo(:,58,13) = (/ &\n     &4.4831e+01_rb,5.2037e+01_rb,6.0082e+01_rb,6.9516e+01_rb,7.9098e+01_rb/)\n      kbo(:,59,13) = (/ &\n     &4.1993e+01_rb,5.0276e+01_rb,5.8426e+01_rb,6.7849e+01_rb,7.7045e+01_rb/)\n      kbo(:,13,14) = (/ &\n     &3.2192e+02_rb,3.1800e+02_rb,3.1299e+02_rb,3.0833e+02_rb,3.0378e+02_rb/)\n      kbo(:,14,14) = (/ &\n     &3.3616e+02_rb,3.3204e+02_rb,3.2756e+02_rb,3.2328e+02_rb,3.1928e+02_rb/)\n      kbo(:,15,14) = (/ &\n     &3.4851e+02_rb,3.4454e+02_rb,3.4128e+02_rb,3.3796e+02_rb,3.3453e+02_rb/)\n      kbo(:,16,14) = (/ &\n     &3.5910e+02_rb,3.5703e+02_rb,3.5472e+02_rb,3.5212e+02_rb,3.4919e+02_rb/)\n      kbo(:,17,14) = (/ &\n     &3.6944e+02_rb,3.6874e+02_rb,3.6739e+02_rb,3.6541e+02_rb,3.6285e+02_rb/)\n      kbo(:,18,14) = (/ &\n     &3.7860e+02_rb,3.7918e+02_rb,3.7877e+02_rb,3.7733e+02_rb,3.7491e+02_rb/)\n      kbo(:,19,14) = (/ &\n     &3.8633e+02_rb,3.8813e+02_rb,3.8858e+02_rb,3.8768e+02_rb,3.8541e+02_rb/)\n      kbo(:,20,14) = (/ &\n     &3.9291e+02_rb,3.9591e+02_rb,3.9708e+02_rb,3.9648e+02_rb,3.9435e+02_rb/)\n      kbo(:,21,14) = (/ &\n     &3.9871e+02_rb,4.0263e+02_rb,4.0428e+02_rb,4.0401e+02_rb,4.0199e+02_rb/)\n      kbo(:,22,14) = (/ &\n     &4.0411e+02_rb,4.0861e+02_rb,4.1054e+02_rb,4.1035e+02_rb,4.0818e+02_rb/)\n      kbo(:,23,14) = (/ &\n     &4.0907e+02_rb,4.1390e+02_rb,4.1591e+02_rb,4.1564e+02_rb,4.1319e+02_rb/)\n      kbo(:,24,14) = (/ &\n     &4.1361e+02_rb,4.1846e+02_rb,4.2039e+02_rb,4.1994e+02_rb,4.1722e+02_rb/)\n      kbo(:,25,14) = (/ &\n     &4.1735e+02_rb,4.2250e+02_rb,4.2427e+02_rb,4.2345e+02_rb,4.2038e+02_rb/)\n      kbo(:,26,14) = (/ &\n     &4.2023e+02_rb,4.2561e+02_rb,4.2741e+02_rb,4.2618e+02_rb,4.2275e+02_rb/)\n      kbo(:,27,14) = (/ &\n     &4.2191e+02_rb,4.2794e+02_rb,4.2966e+02_rb,4.2833e+02_rb,4.2447e+02_rb/)\n      kbo(:,28,14) = (/ &\n     &4.2376e+02_rb,4.3047e+02_rb,4.3157e+02_rb,4.2984e+02_rb,4.2560e+02_rb/)\n      kbo(:,29,14) = (/ &\n     &4.2494e+02_rb,4.3173e+02_rb,4.3312e+02_rb,4.3087e+02_rb,4.2623e+02_rb/)\n      kbo(:,30,14) = (/ &\n     &4.2606e+02_rb,4.3133e+02_rb,4.3417e+02_rb,4.3157e+02_rb,4.2642e+02_rb/)\n      kbo(:,31,14) = (/ &\n     &4.2650e+02_rb,4.3107e+02_rb,4.3305e+02_rb,4.3172e+02_rb,4.2612e+02_rb/)\n      kbo(:,32,14) = (/ &\n     &4.2471e+02_rb,4.2957e+02_rb,4.3084e+02_rb,4.2984e+02_rb,4.2547e+02_rb/)\n      kbo(:,33,14) = (/ &\n     &4.2258e+02_rb,4.2628e+02_rb,4.2740e+02_rb,4.2572e+02_rb,4.2270e+02_rb/)\n      kbo(:,34,14) = (/ &\n     &4.1904e+02_rb,4.2166e+02_rb,4.2281e+02_rb,4.2119e+02_rb,4.1745e+02_rb/)\n      kbo(:,35,14) = (/ &\n     &4.1547e+02_rb,4.1665e+02_rb,4.1587e+02_rb,4.1430e+02_rb,4.1140e+02_rb/)\n      kbo(:,36,14) = (/ &\n     &4.1132e+02_rb,4.1218e+02_rb,4.1072e+02_rb,4.0729e+02_rb,4.0326e+02_rb/)\n      kbo(:,37,14) = (/ &\n     &4.1025e+02_rb,4.1006e+02_rb,4.0857e+02_rb,4.0548e+02_rb,4.0090e+02_rb/)\n      kbo(:,38,14) = (/ &\n     &4.0864e+02_rb,4.0868e+02_rb,4.0686e+02_rb,4.0372e+02_rb,3.9921e+02_rb/)\n      kbo(:,39,14) = (/ &\n     &4.0644e+02_rb,4.0717e+02_rb,4.0510e+02_rb,4.0183e+02_rb,3.9677e+02_rb/)\n      kbo(:,40,14) = (/ &\n     &4.0674e+02_rb,4.0768e+02_rb,4.0593e+02_rb,4.0263e+02_rb,3.9822e+02_rb/)\n      kbo(:,41,14) = (/ &\n     &4.0619e+02_rb,4.0758e+02_rb,4.0668e+02_rb,4.0411e+02_rb,4.0014e+02_rb/)\n      kbo(:,42,14) = (/ &\n     &4.0516e+02_rb,4.0769e+02_rb,4.0744e+02_rb,4.0512e+02_rb,4.0147e+02_rb/)\n      kbo(:,43,14) = (/ &\n     &4.0427e+02_rb,4.0784e+02_rb,4.0882e+02_rb,4.0743e+02_rb,4.0425e+02_rb/)\n      kbo(:,44,14) = (/ &\n     &4.0222e+02_rb,4.0791e+02_rb,4.0985e+02_rb,4.0932e+02_rb,4.0671e+02_rb/)\n      kbo(:,45,14) = (/ &\n     &4.0049e+02_rb,4.0766e+02_rb,4.1090e+02_rb,4.1120e+02_rb,4.0941e+02_rb/)\n      kbo(:,46,14) = (/ &\n     &3.9818e+02_rb,4.0642e+02_rb,4.1148e+02_rb,4.1248e+02_rb,4.1163e+02_rb/)\n      kbo(:,47,14) = (/ &\n     &3.9380e+02_rb,4.0435e+02_rb,4.1138e+02_rb,4.1374e+02_rb,4.1407e+02_rb/)\n      kbo(:,48,14) = (/ &\n     &3.8928e+02_rb,4.0188e+02_rb,4.1084e+02_rb,4.1473e+02_rb,4.1611e+02_rb/)\n      kbo(:,49,14) = (/ &\n     &3.8359e+02_rb,3.9878e+02_rb,4.0957e+02_rb,4.1507e+02_rb,4.1710e+02_rb/)\n      kbo(:,50,14) = (/ &\n     &3.7809e+02_rb,3.9485e+02_rb,4.0769e+02_rb,4.1481e+02_rb,4.1835e+02_rb/)\n      kbo(:,51,14) = (/ &\n     &3.7168e+02_rb,3.9024e+02_rb,4.0538e+02_rb,4.1442e+02_rb,4.1907e+02_rb/)\n      kbo(:,52,14) = (/ &\n     &3.6416e+02_rb,3.8544e+02_rb,4.0242e+02_rb,4.1266e+02_rb,4.1894e+02_rb/)\n      kbo(:,53,14) = (/ &\n     &3.5526e+02_rb,3.7935e+02_rb,3.9858e+02_rb,4.1114e+02_rb,4.1870e+02_rb/)\n      kbo(:,54,14) = (/ &\n     &3.4652e+02_rb,3.7311e+02_rb,3.9451e+02_rb,4.0902e+02_rb,4.1841e+02_rb/)\n      kbo(:,55,14) = (/ &\n     &3.3749e+02_rb,3.6678e+02_rb,3.9033e+02_rb,4.0637e+02_rb,4.1776e+02_rb/)\n      kbo(:,56,14) = (/ &\n     &3.2816e+02_rb,3.6010e+02_rb,3.8512e+02_rb,4.0357e+02_rb,4.1651e+02_rb/)\n      kbo(:,57,14) = (/ &\n     &3.1792e+02_rb,3.5199e+02_rb,3.7987e+02_rb,4.0009e+02_rb,4.1450e+02_rb/)\n      kbo(:,58,14) = (/ &\n     &3.0792e+02_rb,3.4419e+02_rb,3.7396e+02_rb,3.9574e+02_rb,4.1235e+02_rb/)\n      kbo(:,59,14) = (/ &\n     &3.0450e+02_rb,3.4137e+02_rb,3.7215e+02_rb,3.9490e+02_rb,4.1294e+02_rb/)\n      kbo(:,13,15) = (/ &\n     &5.8728e+02_rb,5.6960e+02_rb,5.5469e+02_rb,5.4056e+02_rb,5.2654e+02_rb/)\n      kbo(:,14,15) = (/ &\n     &6.4066e+02_rb,6.2243e+02_rb,6.0593e+02_rb,5.8946e+02_rb,5.7294e+02_rb/)\n      kbo(:,15,15) = (/ &\n     &6.9682e+02_rb,6.7763e+02_rb,6.5849e+02_rb,6.3897e+02_rb,6.1931e+02_rb/)\n      kbo(:,16,15) = (/ &\n     &7.5471e+02_rb,7.3292e+02_rb,7.1026e+02_rb,6.8716e+02_rb,6.6402e+02_rb/)\n      kbo(:,17,15) = (/ &\n     &8.1231e+02_rb,7.8651e+02_rb,7.5977e+02_rb,7.3284e+02_rb,7.0637e+02_rb/)\n      kbo(:,18,15) = (/ &\n     &8.6774e+02_rb,8.3725e+02_rb,8.0641e+02_rb,7.7597e+02_rb,7.4653e+02_rb/)\n      kbo(:,19,15) = (/ &\n     &9.1989e+02_rb,8.8492e+02_rb,8.5007e+02_rb,8.1594e+02_rb,7.8315e+02_rb/)\n      kbo(:,20,15) = (/ &\n     &9.6712e+02_rb,9.2752e+02_rb,8.8885e+02_rb,8.5117e+02_rb,8.1509e+02_rb/)\n      kbo(:,21,15) = (/ &\n     &1.0088e+03_rb,9.6497e+02_rb,9.2264e+02_rb,8.8175e+02_rb,8.4261e+02_rb/)\n      kbo(:,22,15) = (/ &\n     &1.0418e+03_rb,9.9399e+02_rb,9.4844e+02_rb,9.0461e+02_rb,8.6306e+02_rb/)\n      kbo(:,23,15) = (/ &\n     &1.0679e+03_rb,1.0170e+03_rb,9.6858e+02_rb,9.2246e+02_rb,8.7882e+02_rb/)\n      kbo(:,24,15) = (/ &\n     &1.0878e+03_rb,1.0343e+03_rb,9.8346e+02_rb,9.3530e+02_rb,8.9008e+02_rb/)\n      kbo(:,25,15) = (/ &\n     &1.1017e+03_rb,1.0460e+03_rb,9.9332e+02_rb,9.4368e+02_rb,8.9722e+02_rb/)\n      kbo(:,26,15) = (/ &\n     &1.1097e+03_rb,1.0523e+03_rb,9.9837e+02_rb,9.4761e+02_rb,9.0024e+02_rb/)\n      kbo(:,27,15) = (/ &\n     &1.1134e+03_rb,1.0547e+03_rb,9.9983e+02_rb,9.4851e+02_rb,9.0041e+02_rb/)\n      kbo(:,28,15) = (/ &\n     &1.1133e+03_rb,1.0539e+03_rb,9.9848e+02_rb,9.4685e+02_rb,8.9828e+02_rb/)\n      kbo(:,29,15) = (/ &\n     &1.1100e+03_rb,1.0502e+03_rb,9.9454e+02_rb,9.4272e+02_rb,8.9398e+02_rb/)\n      kbo(:,30,15) = (/ &\n     &1.1040e+03_rb,1.0443e+03_rb,9.8865e+02_rb,9.3687e+02_rb,8.8821e+02_rb/)\n      kbo(:,31,15) = (/ &\n     &1.0960e+03_rb,1.0364e+03_rb,9.8114e+02_rb,9.2948e+02_rb,8.8105e+02_rb/)\n      kbo(:,32,15) = (/ &\n     &1.0862e+03_rb,1.0270e+03_rb,9.7213e+02_rb,9.2091e+02_rb,8.7298e+02_rb/)\n      kbo(:,33,15) = (/ &\n     &1.0752e+03_rb,1.0167e+03_rb,9.6230e+02_rb,9.1136e+02_rb,8.6427e+02_rb/)\n      kbo(:,34,15) = (/ &\n     &1.0653e+03_rb,1.0075e+03_rb,9.5353e+02_rb,9.0314e+02_rb,8.5654e+02_rb/)\n      kbo(:,35,15) = (/ &\n     &1.0607e+03_rb,1.0031e+03_rb,9.4921e+02_rb,8.9900e+02_rb,8.5273e+02_rb/)\n      kbo(:,36,15) = (/ &\n     &1.0620e+03_rb,1.0042e+03_rb,9.5018e+02_rb,8.9983e+02_rb,8.5343e+02_rb/)\n      kbo(:,37,15) = (/ &\n     &1.0721e+03_rb,1.0134e+03_rb,9.5885e+02_rb,9.0773e+02_rb,8.6067e+02_rb/)\n      kbo(:,38,15) = (/ &\n     &1.0824e+03_rb,1.0229e+03_rb,9.6769e+02_rb,9.1592e+02_rb,8.6811e+02_rb/)\n      kbo(:,39,15) = (/ &\n     &1.0926e+03_rb,1.0322e+03_rb,9.7633e+02_rb,9.2388e+02_rb,8.7544e+02_rb/)\n      kbo(:,40,15) = (/ &\n     &1.1061e+03_rb,1.0474e+03_rb,9.9047e+02_rb,9.3721e+02_rb,8.8756e+02_rb/)\n      kbo(:,41,15) = (/ &\n     &1.1226e+03_rb,1.0637e+03_rb,1.0055e+03_rb,9.5118e+02_rb,9.0046e+02_rb/)\n      kbo(:,42,15) = (/ &\n     &1.1394e+03_rb,1.0801e+03_rb,1.0206e+03_rb,9.6537e+02_rb,9.1362e+02_rb/)\n      kbo(:,43,15) = (/ &\n     &1.1611e+03_rb,1.1003e+03_rb,1.0393e+03_rb,9.8274e+02_rb,9.2982e+02_rb/)\n      kbo(:,44,15) = (/ &\n     &1.1862e+03_rb,1.1226e+03_rb,1.0598e+03_rb,1.0018e+03_rb,9.4776e+02_rb/)\n      kbo(:,45,15) = (/ &\n     &1.2106e+03_rb,1.1455e+03_rb,1.0808e+03_rb,1.0212e+03_rb,9.6597e+02_rb/)\n      kbo(:,46,15) = (/ &\n     &1.2373e+03_rb,1.1703e+03_rb,1.1039e+03_rb,1.0424e+03_rb,9.8575e+02_rb/)\n      kbo(:,47,15) = (/ &\n     &1.2689e+03_rb,1.1988e+03_rb,1.1303e+03_rb,1.0668e+03_rb,1.0082e+03_rb/)\n      kbo(:,48,15) = (/ &\n     &1.2999e+03_rb,1.2281e+03_rb,1.1575e+03_rb,1.0920e+03_rb,1.0314e+03_rb/)\n      kbo(:,49,15) = (/ &\n     &1.3314e+03_rb,1.2580e+03_rb,1.1855e+03_rb,1.1179e+03_rb,1.0553e+03_rb/)\n      kbo(:,50,15) = (/ &\n     &1.3612e+03_rb,1.2867e+03_rb,1.2124e+03_rb,1.1430e+03_rb,1.0785e+03_rb/)\n      kbo(:,51,15) = (/ &\n     &1.3905e+03_rb,1.3151e+03_rb,1.2392e+03_rb,1.1679e+03_rb,1.1016e+03_rb/)\n      kbo(:,52,15) = (/ &\n     &1.4202e+03_rb,1.3438e+03_rb,1.2667e+03_rb,1.1935e+03_rb,1.1254e+03_rb/)\n      kbo(:,53,15) = (/ &\n     &1.4513e+03_rb,1.3727e+03_rb,1.2946e+03_rb,1.2198e+03_rb,1.1498e+03_rb/)\n      kbo(:,54,15) = (/ &\n     &1.4800e+03_rb,1.3995e+03_rb,1.3206e+03_rb,1.2445e+03_rb,1.1728e+03_rb/)\n      kbo(:,55,15) = (/ &\n     &1.5077e+03_rb,1.4256e+03_rb,1.3457e+03_rb,1.2685e+03_rb,1.1953e+03_rb/)\n      kbo(:,56,15) = (/ &\n     &1.5346e+03_rb,1.4518e+03_rb,1.3711e+03_rb,1.2930e+03_rb,1.2182e+03_rb/)\n      kbo(:,57,15) = (/ &\n     &1.5614e+03_rb,1.4781e+03_rb,1.3967e+03_rb,1.3177e+03_rb,1.2417e+03_rb/)\n      kbo(:,58,15) = (/ &\n     &1.5868e+03_rb,1.5034e+03_rb,1.4212e+03_rb,1.3415e+03_rb,1.2645e+03_rb/)\n      kbo(:,59,15) = (/ &\n     &1.5970e+03_rb,1.5135e+03_rb,1.4312e+03_rb,1.3511e+03_rb,1.2737e+03_rb/)\n      kbo(:,13,16) = (/ &\n     &9.8102e+02_rb,9.4348e+02_rb,9.0592e+02_rb,8.7102e+02_rb,8.4003e+02_rb/)\n      kbo(:,14,16) = (/ &\n     &1.1017e+03_rb,1.0558e+03_rb,1.0119e+03_rb,9.7251e+02_rb,9.3606e+02_rb/)\n      kbo(:,15,16) = (/ &\n     &1.2294e+03_rb,1.1733e+03_rb,1.1221e+03_rb,1.0765e+03_rb,1.0331e+03_rb/)\n      kbo(:,16,16) = (/ &\n     &1.3605e+03_rb,1.2927e+03_rb,1.2335e+03_rb,1.1795e+03_rb,1.1282e+03_rb/)\n      kbo(:,17,16) = (/ &\n     &1.4907e+03_rb,1.4118e+03_rb,1.3426e+03_rb,1.2786e+03_rb,1.2181e+03_rb/)\n      kbo(:,18,16) = (/ &\n     &1.6164e+03_rb,1.5261e+03_rb,1.4460e+03_rb,1.3720e+03_rb,1.3020e+03_rb/)\n      kbo(:,19,16) = (/ &\n     &1.7353e+03_rb,1.6329e+03_rb,1.5412e+03_rb,1.4568e+03_rb,1.3777e+03_rb/)\n      kbo(:,20,16) = (/ &\n     &1.8432e+03_rb,1.7287e+03_rb,1.6256e+03_rb,1.5311e+03_rb,1.4432e+03_rb/)\n      kbo(:,21,16) = (/ &\n     &1.9386e+03_rb,1.8123e+03_rb,1.6986e+03_rb,1.5948e+03_rb,1.4993e+03_rb/)\n      kbo(:,22,16) = (/ &\n     &2.0105e+03_rb,1.8749e+03_rb,1.7520e+03_rb,1.6411e+03_rb,1.5395e+03_rb/)\n      kbo(:,23,16) = (/ &\n     &2.0682e+03_rb,1.9239e+03_rb,1.7938e+03_rb,1.6758e+03_rb,1.5698e+03_rb/)\n      kbo(:,24,16) = (/ &\n     &2.1097e+03_rb,1.9590e+03_rb,1.8231e+03_rb,1.7013e+03_rb,1.5912e+03_rb/)\n      kbo(:,25,16) = (/ &\n     &2.1366e+03_rb,1.9806e+03_rb,1.8412e+03_rb,1.7160e+03_rb,1.6035e+03_rb/)\n      kbo(:,26,16) = (/ &\n     &2.1483e+03_rb,1.9894e+03_rb,1.8477e+03_rb,1.7210e+03_rb,1.6077e+03_rb/)\n      kbo(:,27,16) = (/ &\n     &2.1499e+03_rb,1.9893e+03_rb,1.8466e+03_rb,1.7191e+03_rb,1.6062e+03_rb/)\n      kbo(:,28,16) = (/ &\n     &2.1427e+03_rb,1.9818e+03_rb,1.8393e+03_rb,1.7119e+03_rb,1.6006e+03_rb/)\n      kbo(:,29,16) = (/ &\n     &2.1277e+03_rb,1.9675e+03_rb,1.8260e+03_rb,1.6998e+03_rb,1.5909e+03_rb/)\n      kbo(:,30,16) = (/ &\n     &2.1075e+03_rb,1.9489e+03_rb,1.8089e+03_rb,1.6842e+03_rb,1.5788e+03_rb/)\n      kbo(:,31,16) = (/ &\n     &2.0822e+03_rb,1.9262e+03_rb,1.7881e+03_rb,1.6663e+03_rb,1.5639e+03_rb/)\n      kbo(:,32,16) = (/ &\n     &2.0533e+03_rb,1.9005e+03_rb,1.7649e+03_rb,1.6467e+03_rb,1.5469e+03_rb/)\n      kbo(:,33,16) = (/ &\n     &2.0222e+03_rb,1.8726e+03_rb,1.7400e+03_rb,1.6262e+03_rb,1.5282e+03_rb/)\n      kbo(:,34,16) = (/ &\n     &1.9951e+03_rb,1.8486e+03_rb,1.7187e+03_rb,1.6087e+03_rb,1.5123e+03_rb/)\n      kbo(:,35,16) = (/ &\n     &1.9819e+03_rb,1.8366e+03_rb,1.7081e+03_rb,1.6001e+03_rb,1.5043e+03_rb/)\n      kbo(:,36,16) = (/ &\n     &1.9843e+03_rb,1.8387e+03_rb,1.7099e+03_rb,1.6017e+03_rb,1.5056e+03_rb/)\n      kbo(:,37,16) = (/ &\n     &2.0096e+03_rb,1.8607e+03_rb,1.7293e+03_rb,1.6180e+03_rb,1.5204e+03_rb/)\n      kbo(:,38,16) = (/ &\n     &2.0360e+03_rb,1.8842e+03_rb,1.7495e+03_rb,1.6347e+03_rb,1.5358e+03_rb/)\n      kbo(:,39,16) = (/ &\n     &2.0619e+03_rb,1.9070e+03_rb,1.7697e+03_rb,1.6516e+03_rb,1.5509e+03_rb/)\n      kbo(:,40,16) = (/ &\n     &2.1060e+03_rb,1.9450e+03_rb,1.8033e+03_rb,1.6798e+03_rb,1.5761e+03_rb/)\n      kbo(:,41,16) = (/ &\n     &2.1534e+03_rb,1.9860e+03_rb,1.8395e+03_rb,1.7107e+03_rb,1.6027e+03_rb/)\n      kbo(:,42,16) = (/ &\n     &2.2020e+03_rb,2.0285e+03_rb,1.8771e+03_rb,1.7432e+03_rb,1.6297e+03_rb/)\n      kbo(:,43,16) = (/ &\n     &2.2623e+03_rb,2.0820e+03_rb,1.9234e+03_rb,1.7841e+03_rb,1.6639e+03_rb/)\n      kbo(:,44,16) = (/ &\n     &2.3303e+03_rb,2.1416e+03_rb,1.9758e+03_rb,1.8302e+03_rb,1.7027e+03_rb/)\n      kbo(:,45,16) = (/ &\n     &2.4015e+03_rb,2.2036e+03_rb,2.0305e+03_rb,1.8787e+03_rb,1.7442e+03_rb/)\n      kbo(:,46,16) = (/ &\n     &2.4806e+03_rb,2.2729e+03_rb,2.0910e+03_rb,1.9319e+03_rb,1.7910e+03_rb/)\n      kbo(:,47,16) = (/ &\n     &2.5738e+03_rb,2.3537e+03_rb,2.1621e+03_rb,1.9939e+03_rb,1.8463e+03_rb/)\n      kbo(:,48,16) = (/ &\n     &2.6744e+03_rb,2.4391e+03_rb,2.2368e+03_rb,2.0594e+03_rb,1.9042e+03_rb/)\n      kbo(:,49,16) = (/ &\n     &2.7827e+03_rb,2.5294e+03_rb,2.3154e+03_rb,2.1283e+03_rb,1.9646e+03_rb/)\n      kbo(:,50,16) = (/ &\n     &2.8923e+03_rb,2.6199e+03_rb,2.3931e+03_rb,2.1963e+03_rb,2.0240e+03_rb/)\n      kbo(:,51,16) = (/ &\n     &3.0068e+03_rb,2.7139e+03_rb,2.4725e+03_rb,2.2657e+03_rb,2.0848e+03_rb/)\n      kbo(:,52,16) = (/ &\n     &3.1290e+03_rb,2.8143e+03_rb,2.5557e+03_rb,2.3381e+03_rb,2.1483e+03_rb/)\n      kbo(:,53,16) = (/ &\n     &3.2592e+03_rb,2.9226e+03_rb,2.6451e+03_rb,2.4144e+03_rb,2.2150e+03_rb/)\n      kbo(:,54,16) = (/ &\n     &3.3865e+03_rb,3.0292e+03_rb,2.7322e+03_rb,2.4877e+03_rb,2.2788e+03_rb/)\n      kbo(:,55,16) = (/ &\n     &3.5154e+03_rb,3.1374e+03_rb,2.8210e+03_rb,2.5614e+03_rb,2.3429e+03_rb/)\n      kbo(:,56,16) = (/ &\n     &3.6521e+03_rb,3.2511e+03_rb,2.9159e+03_rb,2.6395e+03_rb,2.4095e+03_rb/)\n      kbo(:,57,16) = (/ &\n     &3.7974e+03_rb,3.3719e+03_rb,3.0171e+03_rb,2.7223e+03_rb,2.4795e+03_rb/)\n      kbo(:,58,16) = (/ &\n     &3.9425e+03_rb,3.4927e+03_rb,3.1186e+03_rb,2.8056e+03_rb,2.5484e+03_rb/)\n      kbo(:,59,16) = (/ &\n     &4.0032e+03_rb,3.5431e+03_rb,3.1604e+03_rb,2.8404e+03_rb,2.5772e+03_rb/)\n\n!     The array FORREFO contains the coefficient of the water vapor\n!     foreign-continuum (including the energy term).  The first \n!     index refers to reference temperature (296,260,224,260) and \n!     pressure (970,475,219,3 mbar) levels.  The second index \n!     runs over the g-channel (1 to 16).\n\n      forrefo(1,:) = (/ &\n     &5.1629e-06_rb,7.7578e-06_rb,1.9043e-05_rb,1.4802e-04_rb,2.2980e-04_rb,2.8057e-04_rb, &\n     &3.2824e-04_rb,3.4913e-04_rb,3.6515e-04_rb,3.8271e-04_rb,3.7499e-04_rb,3.6966e-04_rb, &\n     &3.7424e-04_rb,3.8884e-04_rb,3.7117e-04_rb,4.3710e-04_rb/)\n      forrefo(2,:) = (/ &\n     &5.0804e-06_rb,1.3466e-05_rb,7.2606e-05_rb,1.6940e-04_rb,2.1022e-04_rb,2.5900e-04_rb, &\n     &2.9106e-04_rb,3.2261e-04_rb,3.2066e-04_rb,3.5421e-04_rb,3.7128e-04_rb,3.8144e-04_rb, &\n     &3.7854e-04_rb,3.8347e-04_rb,3.8921e-04_rb,3.7339e-04_rb/)\n      forrefo(3,:) = (/ &\n     &5.4797e-05_rb,1.0026e-04_rb,1.2422e-04_rb,1.6386e-04_rb,1.8378e-04_rb,1.9616e-04_rb, &\n     &2.0711e-04_rb,2.2492e-04_rb,2.5240e-04_rb,2.6187e-04_rb,2.6058e-04_rb,2.4892e-04_rb, &\n     &2.6526e-04_rb,3.2105e-04_rb,3.6903e-04_rb,3.7213e-04_rb/)\n      forrefo(4,:) = (/ &\n     &4.2782e-05_rb,1.4775e-04_rb,1.4588e-04_rb,1.6964e-04_rb,1.6667e-04_rb,1.7192e-04_rb, &\n     &1.9057e-04_rb,2.0180e-04_rb,2.1177e-04_rb,2.2326e-04_rb,2.3801e-04_rb,2.9308e-04_rb, &\n     &3.1130e-04_rb,3.1829e-04_rb,3.5035e-04_rb,3.7782e-04_rb/)\n\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n     & 1.27793e-03_rb, 1.05944e-03_rb, 8.78300e-04_rb, 7.28133e-04_rb, 6.03641e-04_rb, &\n     & 5.00434e-04_rb, 4.14873e-04_rb, 3.43940e-04_rb, 2.85135e-04_rb, 2.36384e-04_rb/)\n      selfrefo(:, 2) = (/ &\n     & 1.42785e-03_rb, 1.17602e-03_rb, 9.68600e-04_rb, 7.97765e-04_rb, 6.57060e-04_rb, &\n     & 5.41172e-04_rb, 4.45724e-04_rb, 3.67110e-04_rb, 3.02361e-04_rb, 2.49033e-04_rb/)\n      selfrefo(:, 3) = (/ &\n     & 2.94095e-03_rb, 2.27102e-03_rb, 1.75370e-03_rb, 1.35422e-03_rb, 1.04574e-03_rb, &\n     & 8.07525e-04_rb, 6.23577e-04_rb, 4.81530e-04_rb, 3.71841e-04_rb, 2.87138e-04_rb/)\n      selfrefo(:, 4) = (/ &\n     & 3.94894e-03_rb, 3.48184e-03_rb, 3.07000e-03_rb, 2.70687e-03_rb, 2.38669e-03_rb, &\n     & 2.10439e-03_rb, 1.85547e-03_rb, 1.63600e-03_rb, 1.44249e-03_rb, 1.27187e-03_rb/)\n      selfrefo(:, 5) = (/ &\n     & 4.19971e-03_rb, 3.86333e-03_rb, 3.55390e-03_rb, 3.26925e-03_rb, 3.00740e-03_rb, &\n     & 2.76652e-03_rb, 2.54494e-03_rb, 2.34110e-03_rb, 2.15359e-03_rb, 1.98110e-03_rb/)\n      selfrefo(:, 6) = (/ &\n     & 4.95922e-03_rb, 4.57134e-03_rb, 4.21380e-03_rb, 3.88422e-03_rb, 3.58042e-03_rb, &\n     & 3.30038e-03_rb, 3.04225e-03_rb, 2.80430e-03_rb, 2.58496e-03_rb, 2.38278e-03_rb/)\n      selfrefo(:, 7) = (/ &\n     & 5.27379e-03_rb, 4.91005e-03_rb, 4.57140e-03_rb, 4.25611e-03_rb, 3.96256e-03_rb, &\n     & 3.68925e-03_rb, 3.43480e-03_rb, 3.19790e-03_rb, 2.97734e-03_rb, 2.77199e-03_rb/)\n      selfrefo(:, 8) = (/ &\n     & 5.75341e-03_rb, 5.31533e-03_rb, 4.91060e-03_rb, 4.53669e-03_rb, 4.19126e-03_rb, &\n     & 3.87212e-03_rb, 3.57729e-03_rb, 3.30490e-03_rb, 3.05325e-03_rb, 2.82077e-03_rb/)\n      selfrefo(:, 9) = (/ &\n     & 5.49849e-03_rb, 5.14295e-03_rb, 4.81040e-03_rb, 4.49935e-03_rb, 4.20842e-03_rb, &\n     & 3.93629e-03_rb, 3.68177e-03_rb, 3.44370e-03_rb, 3.22102e-03_rb, 3.01275e-03_rb/)\n      selfrefo(:,10) = (/ &\n     & 6.04962e-03_rb, 5.60945e-03_rb, 5.20130e-03_rb, 4.82285e-03_rb, 4.47194e-03_rb, &\n     & 4.14656e-03_rb, 3.84485e-03_rb, 3.56510e-03_rb, 3.30570e-03_rb, 3.06518e-03_rb/)\n      selfrefo(:,11) = (/ &\n     & 6.40108e-03_rb, 5.87551e-03_rb, 5.39310e-03_rb, 4.95029e-03_rb, 4.54385e-03_rb, &\n     & 4.17077e-03_rb, 3.82833e-03_rb, 3.51400e-03_rb, 3.22548e-03_rb, 2.96065e-03_rb/)\n      selfrefo(:,12) = (/ &\n     & 6.77938e-03_rb, 6.15713e-03_rb, 5.59200e-03_rb, 5.07874e-03_rb, 4.61259e-03_rb, &\n     & 4.18922e-03_rb, 3.80472e-03_rb, 3.45550e-03_rb, 3.13834e-03_rb, 2.85029e-03_rb/)\n      selfrefo(:,13) = (/ &\n     & 6.90020e-03_rb, 6.26766e-03_rb, 5.69310e-03_rb, 5.17121e-03_rb, 4.69717e-03_rb, &\n     & 4.26658e-03_rb, 3.87546e-03_rb, 3.52020e-03_rb, 3.19750e-03_rb, 2.90439e-03_rb/)\n      selfrefo(:,14) = (/ &\n     & 6.92759e-03_rb, 6.32882e-03_rb, 5.78180e-03_rb, 5.28206e-03_rb, 4.82552e-03_rb, &\n     & 4.40843e-03_rb, 4.02740e-03_rb, 3.67930e-03_rb, 3.36129e-03_rb, 3.07076e-03_rb/)\n      selfrefo(:,15) = (/ &\n     & 7.54539e-03_rb, 6.81161e-03_rb, 6.14920e-03_rb, 5.55120e-03_rb, 5.01136e-03_rb, &\n     & 4.52402e-03_rb, 4.08407e-03_rb, 3.68690e-03_rb, 3.32836e-03_rb, 3.00468e-03_rb/)\n      selfrefo(:,16) = (/ &\n     & 7.62039e-03_rb, 7.10834e-03_rb, 6.63070e-03_rb, 6.18515e-03_rb, 5.76955e-03_rb, &\n     & 5.38186e-03_rb, 5.02023e-03_rb, 4.68290e-03_rb, 4.36823e-03_rb, 4.07471e-03_rb/)\n\n      end subroutine lw_kgb16\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_rad.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_rad.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.11 $\n!     created:   $Date: 2009/11/12 20:52:25 $\n!\n\n       module rrtmg_lw_rad\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n!\n! ****************************************************************************\n! *                                                                          *\n! *                              RRTMG_LW                                    *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                   a rapid radiative transfer model                       *\n! *                       for the longwave region                            * \n! *             for application to general circulation models                *\n! *                                                                          *\n! *                                                                          *\n! *            Atmospheric and Environmental Research, Inc.                  *\n! *                        131 Hartwell Avenue                               *\n! *                        Lexington, MA 02421                               *\n! *                                                                          *\n! *                                                                          *\n! *                           Eli J. Mlawer                                  *\n! *                        Jennifer S. Delamere                              *\n! *                         Michael J. Iacono                                *\n! *                         Shepard A. Clough                                *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                       email:  miacono@aer.com                            *\n! *                       email:  emlawer@aer.com                            *\n! *                       email:  jdelamer@aer.com                           *\n! *                                                                          *\n! *        The authors wish to acknowledge the contributions of the          *\n! *        following people:  Steven J. Taubman, Karen Cady-Pereira,         *\n! *        Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.  *\n! *                                                                          *\n! ****************************************************************************\n\n! -------- Modules --------\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrlw_vsn\n      use mcica_subcol_gen_lw, only: mcica_subcol_lw\n      use rrtmg_lw_cldprmc, only: cldprmc\n! *** Move the required call to rrtmg_lw_ini below and the following \n! use association to the GCM initialization area ***\n!      use rrtmg_lw_init, only: rrtmg_lw_ini\n      use rrtmg_lw_rtrnmc, only: rtrnmc\n      use rrtmg_lw_setcoef, only: setcoef\n      use rrtmg_lw_taumol, only: taumol\n\n      implicit none\n\n! public interfaces/functions/subroutines\n      public :: rrtmg_lw, inatm\n\n!------------------------------------------------------------------\n      contains\n!------------------------------------------------------------------\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      recursive subroutine rrtmg_lw &\n            (ncol    ,nlay    ,icld    ,idrv    , &\n             play    ,plev    ,tlay    ,tlev    ,tsfc    , & \n             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr , &\n             cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &\n             inflglw ,iceflglw,liqflglw,cldfmcl , &\n             taucmcl ,ciwpmcl ,clwpmcl ,reicmcl ,relqmcl , &\n             tauaer  , &\n             uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &\n             duflx_dt,duflxc_dt )\n\n! -------- Description --------\n\n! This program is the driver subroutine for RRTMG_LW, the AER LW radiation \n! model for application to GCMs, that has been adapted from RRTM_LW for\n! improved efficiency.\n!\n! NOTE: The call to RRTMG_LW_INI should be moved to the GCM initialization\n!  area, since this has to be called only once. \n!\n! This routine:\n!    a) calls INATM to read in the atmospheric profile from GCM;\n!       all layering in RRTMG is ordered from surface to toa. \n!    b) calls CLDPRMC to set cloud optical depth for McICA based \n!       on input cloud properties \n!    c) calls SETCOEF to calculate various quantities needed for \n!       the radiative transfer algorithm\n!    d) calls TAUMOL to calculate gaseous optical depths for each \n!       of the 16 spectral bands\n!    e) calls RTRNMC (for both clear and cloudy profiles) to perform the\n!       radiative transfer calculation using McICA, the Monte-Carlo \n!       Independent Column Approximation, to represent sub-grid scale \n!       cloud variability\n!    f) passes the necessary fluxes and cooling rates back to GCM\n!\n! Two modes of operation are possible:\n!     The mode is chosen by using either rrtmg_lw.nomcica.f90 (to not use\n!     McICA) or rrtmg_lw.f90 (to use McICA) to interface with a GCM. \n!\n!    1) Standard, single forward model calculation (imca = 0)\n!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., \n!       JC, 2003) method is applied to the forward model calculation (imca = 1)\n!\n! This call to RRTMG_LW must be preceeded by a call to the module\n!     mcica_subcol_gen_lw.f90 to run the McICA sub-column cloud generator,\n!     which will provide the cloud physical or cloud optical properties\n!     on the RRTMG quadrature point (ngpt) dimension.\n!     Two random number generators are available for use when imca = 1.\n!     This is chosen by setting flag irnd on input to mcica_subcol_gen_lw.\n!     1) KISSVEC (irnd = 0)\n!     2) Mersenne-Twister (irnd = 1)\n!\n! Two methods of cloud property input are possible:\n!     Cloud properties can be input in one of two ways (controlled by input \n!     flags inflglw, iceflglw, and liqflglw; see text file rrtmg_lw_instructions\n!     and subroutine rrtmg_lw_cldprmc.f90 for further details):\n!\n!    1) Input cloud fraction and cloud optical depth directly (inflglw = 0)\n!    2) Input cloud fraction and cloud physical properties (inflglw = 1 or 2);  \n!       cloud optical properties are calculated by cldprmc or cldprmc based\n!       on input settings of iceflglw and liqflglw.  Ice particle size provided\n!       must be appropriately defined for the ice parameterization selected. \n!\n! One method of aerosol property input is possible:\n!     Aerosol properties can be input in only one way (controlled by input \n!     flag iaer; see text file rrtmg_lw_instructions for further details):\n!\n!    1) Input aerosol optical depth directly by layer and spectral band (iaer=10);\n!       band average optical depth at the mid-point of each spectral band.\n!       RRTMG_LW currently treats only aerosol absorption;\n!       scattering capability is not presently available.\n!\n! The optional calculation of the change in upward flux as a function of surface \n! temperature is available (controlled by input flag idrv).  This can be utilized \n! to approximate adjustments to the upward flux profile caused only by a change in \n! surface temperature between full radiation calls.  This feature uses the pre-\n! calculated derivative of the Planck function with respect to surface temperature. \n!\n!    1) Normal forward calculation for the input profile (idrv=0)\n!    2) Normal forward calculation with optional calculation of the change\n!       in upward flux as a function of surface temperature for clear sky\n!       and total sky flux.  Flux partial derivatives are provided in arrays\n!       duflx_dt and duflxc_dt for total and clear sky.  (idrv=1)\n!\n!\n! ------- Modifications -------\n!\n! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced \n! set of g-points for application to GCMs.  \n!\n!-- Original version (derived from RRTM_LW), reduction of g-points, other\n!   revisions for use with GCMs.  \n!     1999: M. J. Iacono, AER, Inc.\n!-- Adapted for use with NCAR/CAM.\n!     May 2004: M. J. Iacono, AER, Inc.\n!-- Revised to add McICA capability. \n!     Nov 2005: M. J. Iacono, AER, Inc.\n!-- Conversion to F90 formatting for consistency with rrtmg_sw.\n!     Feb 2007: M. J. Iacono, AER, Inc.\n!-- Modifications to formatting to use assumed-shape arrays.\n!     Aug 2007: M. J. Iacono, AER, Inc.\n!-- Modified to add longwave aerosol absorption.\n!     Apr 2008: M. J. Iacono, AER, Inc.\n!-- Added capability to calculate derivative of upward flux wrt surface temperature. \n!     Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc.\n\n! --------- Modules ----------\n\n      use parrrtm, only : nbndlw, ngptlw, maxxsec, mxmol\n      use rrlw_con, only: fluxfac, heatfac, oneminus, pi\n      use rrlw_wvn, only: ng, ngb, nspa, nspb, wavenum1, wavenum2, delwave\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns\n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method\n                                                      !    0: Clear only\n                                                      !    1: Random\n                                                      !    2: Maximum/random\n                                                      !    3: Maximum\n      integer(kind=im), intent(in) :: idrv            ! Flag for calculation of dFdT, the change\n                                                      !    in upward flux as a function of \n                                                      !    surface temperature [0=off, 1=on]\n                                                      !    0: Normal forward calculation\n                                                      !    1: Normal forward calculation with\n                                                      !       duflx_dt and duflxc_dt output\n\n      real(kind=rb), intent(in) :: play(ncol,nlay)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(ncol,nlay+1)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(ncol,nlay)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(ncol,nlay+1)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(ncol)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(ncol,nlay)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(ncol,nlay)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(ncol,nlay)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(ncol,nlay)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(ncol,nlay)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(ncol,nlay)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc11vmr(ncol,nlay)      ! CFC11 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc12vmr(ncol,nlay)      ! CFC12 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc22vmr(ncol,nlay)      ! CFC22 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ccl4vmr(ncol,nlay)       ! CCL4 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: emis(ncol,nbndlw)          ! Surface emissivity\n                                                      !    Dimensions: (ncol,nbndlw)\n\n      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfmcl(ngptlw,ncol,nlay)     ! Cloud fraction\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwpmcl(ngptlw,ncol,nlay)     ! In-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: clwpmcl(ngptlw,ncol,nlay)     ! In-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: reicmcl(ncol,nlay)       ! Cloud ice particle effective size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n                                                      ! specific definition of reicmcl depends on setting of iceflglw:\n                                                      ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec must be >= 10.0 microns\n                                                      ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !               r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflglw = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !               dge range is limited to 5.0 to 140.0 microns\n                                                      !               [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: relqmcl(ncol,nlay)       ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: taucmcl(ngptlw,ncol,nlay)     ! In-cloud optical depth\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n!      real(kind=rb), intent(in) :: ssacmcl(nbndlw,ncol,nlay)    ! In-cloud single scattering albedo\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n                                                      !   for future expansion\n                                                      !   lw scattering not yet available\n!      real(kind=rb), intent(in) :: asmcmcl(nbndlw,ncol,nlay)    ! In-cloud asymmetry parameter\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n                                                      !   for future expansion\n                                                      !   lw scattering not yet available\n      real(kind=rb), intent(in) :: tauaer(ncol,nlay,nbndlw)      ! aerosol optical depth\n                                                      !   at mid-point of LW spectral bands\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n!      real(kind=rb), intent(in) :: ssaaer(ncol,nlay,nbndlw)     ! aerosol single scattering albedo\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n                                                      !   for future expansion \n                                                      !   (lw aerosols/scattering not yet available)\n!      real(kind=rb), intent(in) :: asmaer(ncol,nlay,nbndlw)     ! aerosol asymmetry parameter\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n                                                      !   for future expansion \n                                                      !   (lw aerosols/scattering not yet available)\n\n! ----- Output -----\n\n      real(kind=rb), intent(out) :: uflx(ncol,nlay+1)         ! Total sky longwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: dflx(ncol,nlay+1)         ! Total sky longwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: hr(ncol,nlay)           ! Total sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: uflxc(ncol,nlay+1)        ! Clear sky longwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: dflxc(ncol,nlay+1)        ! Clear sky longwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: hrc(ncol,nlay)          ! Clear sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Optional Output -----\n      real(kind=rb), intent(out), optional :: duflx_dt(ncol,nlay)     \n                                                      ! change in upward longwave flux (w/m2/K)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out), optional :: duflxc_dt(ncol,nlay)    \n                                                      ! change in clear sky upward longwave flux (w/m2/K)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Local -----\n\n! Control\n      integer(kind=im) :: nlayers             ! total number of layers\n      integer(kind=im) :: istart              ! beginning band of calculation\n      integer(kind=im) :: iend                ! ending band of calculation\n      integer(kind=im) :: iout                ! output option flag (inactive)\n      integer(kind=im) :: iaer                ! aerosol option flag\n      integer(kind=im) :: iplon               ! column loop index\n      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]\n      integer(kind=im) :: ims                 ! value for changing mcica permute seed\n      integer(kind=im) :: k                   ! layer loop index\n      integer(kind=im) :: ig                  ! g-point loop index\n\n! Atmosphere\n      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) \n      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)\n      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)\n      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)\n      real(kind=rb) :: tbound                 ! surface temperature (K)\n      real(kind=rb) :: coldry(nlay+1)         ! dry air column density (mol/cm2)\n      real(kind=rb) :: wbrodl(nlay+1)         ! broadening gas column density (mol/cm2)\n      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)\n      real(kind=rb) :: wx(maxxsec,nlay+1)     ! cross-section amounts (mol/cm-2)\n      real(kind=rb) :: pwvcm                  ! precipitable water vapor (cm)\n      real(kind=rb) :: semiss(nbndlw)         ! lw surface emissivity\n      real(kind=rb) :: fracs(nlay+1,ngptlw)   ! \n      real(kind=rb) :: taug(nlay+1,ngptlw)    ! gaseous optical depths\n      real(kind=rb) :: taut(nlay+1,ngptlw)    ! gaseous + aerosol optical depths\n\n      real(kind=rb) :: taua(nlay+1,nbndlw)    ! aerosol optical depth\n!      real(kind=rb) :: ssaa(nlay+1,nbndlw)   ! aerosol single scattering albedo\n                                              !   for future expansion \n                                              !   (lw aerosols/scattering not yet available)\n!      real(kind=rb) :: asma(nlay+1,nbndlw)   ! aerosol asymmetry parameter\n                                              !   for future expansion \n                                              !   (lw aerosols/scattering not yet available)\n\n! Atmosphere - setcoef\n      integer(kind=im) :: laytrop             ! tropopause layer index\n      integer(kind=im) :: jp(nlay+1)          ! lookup table index \n      integer(kind=im) :: jt(nlay+1)          ! lookup table index \n      integer(kind=im) :: jt1(nlay+1)         ! lookup table index \n      real(kind=rb) :: planklay(nlay+1,nbndlw)! \n      real(kind=rb) :: planklev(0:nlay+1,nbndlw)! \n      real(kind=rb) :: plankbnd(nbndlw)       ! \n      real(kind=rb) :: dplankbnd_dt(nbndlw)   ! \n\n      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)\n      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)\n      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)\n      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)\n      real(kind=rb) :: colco(nlay+1)          ! column amount (co)\n      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)\n      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)\n      real(kind=rb) :: colbrd(nlay+1)         ! column amount (broadening gases)\n\n      integer(kind=im) :: indself(nlay+1)\n      integer(kind=im) :: indfor(nlay+1)\n      real(kind=rb) :: selffac(nlay+1)\n      real(kind=rb) :: selffrac(nlay+1)\n      real(kind=rb) :: forfac(nlay+1)\n      real(kind=rb) :: forfrac(nlay+1)\n\n      integer(kind=im) :: indminor(nlay+1)\n      real(kind=rb) :: minorfrac(nlay+1)\n      real(kind=rb) :: scaleminor(nlay+1)\n      real(kind=rb) :: scaleminorn2(nlay+1)\n\n      real(kind=rb) :: &                      !\n                         fac00(nlay+1), fac01(nlay+1), &\n                         fac10(nlay+1), fac11(nlay+1) \n      real(kind=rb) :: &                      !\n                         rat_h2oco2(nlay+1),rat_h2oco2_1(nlay+1), &\n                         rat_h2oo3(nlay+1),rat_h2oo3_1(nlay+1), &\n                         rat_h2on2o(nlay+1),rat_h2on2o_1(nlay+1), &\n                         rat_h2och4(nlay+1),rat_h2och4_1(nlay+1), &\n                         rat_n2oco2(nlay+1),rat_n2oco2_1(nlay+1), &\n                         rat_o3co2(nlay+1),rat_o3co2_1(nlay+1)\n\n! Atmosphere/clouds - cldprop\n      integer(kind=im) :: ncbands             ! number of cloud spectral bands\n      integer(kind=im) :: inflag              ! flag for cloud property method\n      integer(kind=im) :: iceflag             ! flag for ice cloud properties\n      integer(kind=im) :: liqflag             ! flag for liquid cloud properties\n\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb) :: cldfmc(ngptlw,nlay+1)  ! cloud fraction [mcica]\n      real(kind=rb) :: ciwpmc(ngptlw,nlay+1)  ! in-cloud ice water path [mcica]\n      real(kind=rb) :: clwpmc(ngptlw,nlay+1)  ! in-cloud liquid water path [mcica]\n      real(kind=rb) :: relqmc(nlay+1)         ! liquid particle effective radius (microns)\n      real(kind=rb) :: reicmc(nlay+1)         ! ice particle effective size (microns)\n      real(kind=rb) :: taucmc(ngptlw,nlay+1)  ! in-cloud optical depth [mcica]\n!      real(kind=rb) :: ssacmc(ngptlw,nlay+1) ! in-cloud single scattering albedo [mcica]\n                                              !   for future expansion \n                                              !   (lw scattering not yet available)\n!      real(kind=rb) :: asmcmc(ngptlw,nlay+1) ! in-cloud asymmetry parameter [mcica]\n                                              !   for future expansion \n                                              !   (lw scattering not yet available)\n\n! Output\n      real(kind=rb) :: totuflux(0:nlay+1)     ! upward longwave flux (w/m2)\n      real(kind=rb) :: totdflux(0:nlay+1)     ! downward longwave flux (w/m2)\n      real(kind=rb) :: fnet(0:nlay+1)         ! net longwave flux (w/m2)\n      real(kind=rb) :: htr(0:nlay+1)          ! longwave heating rate (k/day)\n      real(kind=rb) :: totuclfl(0:nlay+1)     ! clear sky upward longwave flux (w/m2)\n      real(kind=rb) :: totdclfl(0:nlay+1)     ! clear sky downward longwave flux (w/m2)\n      real(kind=rb) :: fnetc(0:nlay+1)        ! clear sky net longwave flux (w/m2)\n      real(kind=rb) :: htrc(0:nlay+1)         ! clear sky longwave heating rate (k/day)\n      real(kind=rb) :: dtotuflux_dt(0:nlay+1) ! change in upward longwave flux (w/m2/k)\n                                              ! with respect to surface temperature\n      real(kind=rb) :: dtotuclfl_dt(0:nlay+1) ! change in clear sky upward longwave flux (w/m2/k)\n                                              ! with respect to surface temperature\n\n!\n! Initializations\n\n      oneminus = 1._rb - 1.e-6_rb\n      pi = 2._rb * asin(1._rb)\n      fluxfac = pi * 2.e4_rb                  ! orig:   fluxfac = pi * 2.d4  \n      istart = 1\n      iend = 16\n      iout = 0\n      ims = 1\n\n! Set imca to select calculation type:\n!  imca = 0, use standard forward model calculation\n!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability\n\n! *** This version uses McICA (imca = 1) ***\n\n! Set icld to select of clear or cloud calculation and cloud overlap method  \n! icld = 0, clear only\n! icld = 1, with clouds using random cloud overlap\n! icld = 2, with clouds using maximum/random cloud overlap\n! icld = 3, with clouds using maximum cloud overlap (McICA only)\n      if (icld.lt.0.or.icld.gt.3) icld = 2\n\n! Set iaer to select aerosol option\n! iaer = 0, no aerosols\n! icld = 10, input total aerosol optical depth (tauaer) directly\n      iaer = 10\n\n! Call model and data initialization, compute lookup tables, perform\n! reduction of g-points from 256 to 140 for input absorption coefficient \n! data and other arrays.\n!\n! In a GCM this call should be placed in the model initialization\n! area, since this has to be called only once.  \n!      call rrtmg_lw_ini(cpdair)\n!  This is the main longitude/column loop within RRTMG.\n      do iplon = 1, ncol\n\n!  Prepare atmospheric profile from GCM for use in RRTMG, and define\n!  other input parameters.  \n      \n         call inatm (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &\n              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &\n              cldfmcl, taucmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, &\n              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &\n              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &\n              cldfmc, taucmc, ciwpmc, clwpmc, reicmc, relqmc, taua)\n!  Prepare atmospheric profile from GCM for use in RRTMG, and define\n!  For cloudy atmosphere, use cldprmc to set cloud optical properties based on\n!  input cloud physical properties.  Select method based on choices described\n!  in cldprmc.  Cloud fraction, water path, liquid droplet and ice particle\n!  effective radius must be passed into cldprmc.  Cloud fraction and cloud\n!  optical depth are transferred to rrtmg_lw arrays in cldprmc.  \n         call cldprmc(nlayers, inflag, iceflag, liqflag, cldfmc, ciwpmc, &\n                      clwpmc, reicmc, relqmc, ncbands, taucmc)\n\n! Calculate information needed by the radiative transfer routine\n! that is specific to this atmosphere, especially some of the \n! coefficients and indices needed to compute the optical depths\n! by interpolating data from stored reference atmospheres. \n         call setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &\n                      coldry, wkl, wbrodl, &\n                      laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                      idrv, dplankbnd_dt, &\n                      colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                      colbrd, fac00, fac01, fac10, fac11, &\n                      rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                      rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                      rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                      selffac, selffrac, indself, forfac, forfrac, indfor, &\n                      minorfrac, scaleminor, scaleminorn2, indminor)\n\n!  Calculate the gaseous optical depths and Planck fractions for \n!  each longwave spectral band.\n         call taumol(nlayers, pavel, wx, coldry, &\n                     laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                     colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                     colbrd, fac00, fac01, fac10, fac11, &\n                     rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                     rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                     rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                     selffac, selffrac, indself, forfac, forfrac, indfor, &\n                     minorfrac, scaleminor, scaleminorn2, indminor, &\n                     fracs, taug)\n\n\n! Combine gaseous and aerosol optical depths, if aerosol active\n         if (iaer .eq. 0) then\n            do k = 1, nlayers\n               do ig = 1, ngptlw\n                  taut(k,ig) = taug(k,ig)\n               enddo\n            enddo\n         elseif (iaer .eq. 10) then\n            do k = 1, nlayers\n               do ig = 1, ngptlw\n                  taut(k,ig) = taug(k,ig) + taua(k,ngb(ig))\n               enddo\n            enddo\n         endif\n\n! Call the radiative transfer routine.\n! Either routine can be called to do clear sky calculation.  If clouds\n! are present, then select routine based on cloud overlap assumption\n! to be used.  Clear sky calculation is done simultaneously.\n! For McICA, RTRNMC is called for clear and cloudy calculations.\n         call rtrnmc(nlayers, istart, iend, iout, pz, semiss, ncbands, &\n                     cldfmc, taucmc, planklay, planklev, plankbnd, &\n                     pwvcm, fracs, taut, &\n                     totuflux, totdflux, fnet, htr, &\n                     totuclfl, totdclfl, fnetc, htrc, &\n                     idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )\n\n!  Transfer up and down fluxes and heating rate to output arrays.\n!  Vertical indexing goes from bottom to top; reverse here for GCM if necessary.\n\n         do k = 0, nlayers\n            uflx(iplon,k+1) = totuflux(k)\n            dflx(iplon,k+1) = totdflux(k)\n            uflxc(iplon,k+1) = totuclfl(k)\n            dflxc(iplon,k+1) = totdclfl(k)\n         enddo\n         do k = 0, nlayers-1\n            hr(iplon,k+1) = htr(k)\n            hrc(iplon,k+1) = htrc(k)\n         enddo\n\n!  If idrv=1 option is active, transfer upward flux derivatives to output arrays.\n         \n         if (idrv .eq. 1) then \n            do k = 0, nlayers\n               duflx_dt(iplon,k+1) = dtotuflux_dt(k)\n               duflxc_dt(iplon,k+1) = dtotuclfl_dt(k)\n            enddo\n         endif\n\n! End longitude/column loop\n      enddo\n\n      end subroutine rrtmg_lw\n\n!***************************************************************************\n      subroutine inatm (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &\n              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &\n              cldfmcl, taucmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, &\n              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &\n              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &\n              cldfmc, taucmc, ciwpmc, clwpmc, reicmc, relqmc, taua)\n!***************************************************************************\n!\n!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_LW.\n!  Set other RRTMG_LW input parameters.  \n!\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use parrrtm, only : nbndlw, ngptlw, nmol, maxxsec, mxmol\n      use rrlw_con, only: fluxfac, heatfac, oneminus, pi, grav, avogad\n      use rrlw_wvn, only: ng, nspa, nspb, wavenum1, wavenum2, delwave, ixindx\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: iplon           ! column loop index\n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag\n      integer(kind=im), intent(in) :: iaer            ! aerosol option flag\n\n      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity\n                                                      !    Dimensions: (ncol,nbndlw)\n\n      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice effective size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n\n! ----- Output -----\n! Atmosphere\n      integer(kind=im), intent(out) :: nlayers        ! number of layers\n\n      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) \n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)\n                                                      !    Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)\n      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wbrodl(:)         ! broadening gas column density (mol/cm2)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)\n                                                      !    Dimensions: (mxmol,nlay)\n      real(kind=rb), intent(out) :: wx(:,:)           ! cross-section amounts (mol/cm-2)\n                                                      !    Dimensions: (maxxsec,nlay)\n      real(kind=rb), intent(out) :: pwvcm             ! precipitable water vapor (cm)\n      real(kind=rb), intent(out) :: semiss(:)         ! lw surface emissivity\n                                                      !    Dimensions: (nbndlw)\n\n! Atmosphere/clouds - cldprmc\n      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method\n      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties\n      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties\n\n      real(kind=rb), intent(out) :: cldfmc(:,:)       ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: reicmc(:)         ! ice particle effective size (microns)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: taua(:,:)         ! aerosol optical depth\n                                                      !    Dimensions: (nlay,nbndlw)\n\n\n! ----- Local -----\n      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)\n      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)\n!      real(kind=rb), parameter :: amc = 44.0098_rb    ! Molecular weight of carbon dioxide (g/mol)\n!      real(kind=rb), parameter :: amo = 47.9998_rb    ! Molecular weight of ozone (g/mol)\n!      real(kind=rb), parameter :: amo2 = 31.9999_rb   ! Molecular weight of oxygen (g/mol)\n!      real(kind=rb), parameter :: amch4 = 16.0430_rb  ! Molecular weight of methane (g/mol)\n!      real(kind=rb), parameter :: amn2o = 44.0128_rb  ! Molecular weight of nitrous oxide (g/mol)\n!      real(kind=rb), parameter :: amc11 = 137.3684_rb ! Molecular weight of CFC11 (g/mol) - CCL3F\n!      real(kind=rb), parameter :: amc12 = 120.9138_rb ! Molecular weight of CFC12 (g/mol) - CCL2F2\n!      real(kind=rb), parameter :: amc22 = 86.4688_rb  ! Molecular weight of CFC22 (g/mol) - CHCLF2\n!      real(kind=rb), parameter :: amcl4 = 153.823_rb  ! Molecular weight of CCL4 (g/mol) - CCL4\n\n! Set molecular weight ratios (for converting mmr to vmr)\n!  e.g. h2ovmr = h2ommr * amdw)\n      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor\n      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide\n      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone\n      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane\n      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide\n      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen\n      real(kind=rb), parameter :: amdc1 = 0.210852_rb ! Molecular weight of dry air / CFC11\n      real(kind=rb), parameter :: amdc2 = 0.239546_rb ! Molecular weight of dry air / CFC12\n\n      integer(kind=im) :: isp, l, ix, n, imol, ib, ig   ! Loop indices\n      real(kind=rb) :: amm, amttl, wvttl, wvsh, summol  \n\n! Add one to nlayers here to include extra model layer at top of atmosphere\n      nlayers = nlay\n\n!  Initialize all molecular amounts and cloud properties to zero here, then pass input amounts\n!  into RRTM arrays below.\n\n      wkl(:,:) = 0.0_rb\n      wx(:,:) = 0.0_rb\n      cldfmc(:,:) = 0.0_rb\n      taucmc(:,:) = 0.0_rb\n      ciwpmc(:,:) = 0.0_rb\n      clwpmc(:,:) = 0.0_rb\n      reicmc(:) = 0.0_rb\n      relqmc(:) = 0.0_rb\n      taua(:,:) = 0.0_rb\n      amttl = 0.0_rb\n      wvttl = 0.0_rb\n \n!  Set surface temperature.\n      tbound = tsfc(iplon)\n\n!  Install input GCM arrays into RRTMG_LW arrays for pressure, temperature,\n!  and molecular amounts.  \n!  Pressures are input in mb, or are converted to mb here.\n!  Molecular amounts are input in volume mixing ratio, or are converted from \n!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio\n!  here. These are then converted to molecular amount (molec/cm2) below.  \n!  The dry air column COLDRY (in molec/cm2) is calculated from the level \n!  pressures, pz (in mb), based on the hydrostatic equation and includes a \n!  correction to account for h2o in the layer.  The molecular weight of moist \n!  air (amm) is calculated for each layer.  \n!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below\n!  assumes GCM input fields are also bottom to top. Input layer indexing\n!  from GCM fields should be reversed here if necessary.\n\n      pz(0) = plev(iplon,1)\n      tz(0) = tlev(iplon,1)\n      do l = 1, nlayers\n         pavel(l) = play(iplon,l)\n         tavel(l) = tlay(iplon,l)\n         pz(l) = plev(iplon,l+1)\n         tz(l) = tlev(iplon,l+1)\n! For h2o input in vmr:\n         wkl(1,l) = h2ovmr(iplon,l)\n! For h2o input in mmr:\n!         wkl(1,l) = h2o(iplon,l)*amdw\n! For h2o input in specific humidity;\n!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw\n         wkl(2,l) = co2vmr(iplon,l)\n         wkl(3,l) = o3vmr(iplon,l)\n         wkl(4,l) = n2ovmr(iplon,l)\n         wkl(6,l) = ch4vmr(iplon,l)\n         wkl(7,l) = o2vmr(iplon,l)\n         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            \n         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &\n                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))\n      enddo\n\n! Set cross section molecule amounts from input; convert to vmr if necessary\n      do l=1, nlayers\n         wx(1,l) = ccl4vmr(iplon,l)\n         wx(2,l) = cfc11vmr(iplon,l)\n         wx(3,l) = cfc12vmr(iplon,l)\n         wx(4,l) = cfc22vmr(iplon,l)\n      enddo      \n\n! The following section can be used to set values for an additional layer (from\n! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. \n! Temperature and molecular amounts in the extra model layer are set to \n! their values in the top GCM model layer, though these can be modified\n! here if necessary. \n! If this feature is utilized, increase nlayers by one above, limit the two\n! loops above to (nlayers-1), and set the top most (extra) layer values here. \n\n!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)\n!      tavel(nlayers) = tavel(nlayers-1)\n!      pz(nlayers) = 1.e-4_rb\n!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))\n!      tz(nlayers) = tz(nlayers-1)\n!      wkl(1,nlayers) = wkl(1,nlayers-1)\n!      wkl(2,nlayers) = wkl(2,nlayers-1)\n!      wkl(3,nlayers) = wkl(3,nlayers-1)\n!      wkl(4,nlayers) = wkl(4,nlayers-1)\n!      wkl(6,nlayers) = wkl(6,nlayers-1)\n!      wkl(7,nlayers) = wkl(7,nlayers-1)\n!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw\n!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &\n!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))\n!      wx(1,nlayers) = wx(1,nlayers-1)\n!      wx(2,nlayers) = wx(2,nlayers-1)\n!      wx(3,nlayers) = wx(3,nlayers-1)\n!      wx(4,nlayers) = wx(4,nlayers-1)\n\n! At this point all molecular amounts in wkl and wx are in volume mixing ratio; \n! convert to molec/cm2 based on coldry for use in rrtm.  also, compute precipitable\n! water vapor for diffusivity angle adjustments in rtrn and rtrnmr.\n\n      do l = 1, nlayers\n         summol = 0.0_rb\n         do imol = 2, nmol\n            summol = summol + wkl(imol,l)\n         enddo\n         wbrodl(l) = coldry(l) * (1._rb - summol)\n         do imol = 1, nmol\n            wkl(imol,l) = coldry(l) * wkl(imol,l)\n         enddo\n         amttl = amttl + coldry(l)+wkl(1,l)\n         wvttl = wvttl + wkl(1,l)\n         do ix = 1,maxxsec\n            if (ixindx(ix) .ne. 0) then\n               wx(ixindx(ix),l) = coldry(l) * wx(ix,l) * 1.e-20_rb\n            endif\n         enddo\n      enddo\n\n      wvsh = (amw * wvttl) / (amd * amttl)\n      pwvcm = wvsh * (1.e3_rb * pz(0)) / (1.e2_rb * grav)\n\n! Set spectral surface emissivity for each longwave band.  \n\n      do n=1,nbndlw\n         semiss(n) = emis(iplon,n)\n!          semiss(n) = 1.0_rb\n      enddo\n\n! Transfer aerosol optical properties to RRTM variable;\n! modify to reverse layer indexing here if necessary.\n\n     if (iaer .ge. 1) then\n        do l = 1, nlayers\n           do ib = 1, nbndlw\n              taua(l,ib) = tauaer(iplon,l,ib)\n           enddo\n        enddo\n      endif\n\n! Transfer cloud fraction and cloud optical properties to RRTM variables,\n! modify to reverse layer indexing here if necessary.\n\n      if (icld .ge. 1) then \n         inflag = inflglw\n         iceflag = iceflglw\n         liqflag = liqflglw\n\n! Move incoming GCM cloud arrays to RRTMG cloud arrays.\n! For GCM input, incoming reicmcl is defined based on selected ice parameterization (inflglw)\n\n         do l = 1, nlayers\n            do ig = 1, ngptlw\n               cldfmc(ig,l) = cldfmcl(ig,iplon,l)\n               taucmc(ig,l) = taucmcl(ig,iplon,l)\n               ciwpmc(ig,l) = ciwpmcl(ig,iplon,l)\n               clwpmc(ig,l) = clwpmcl(ig,iplon,l)\n            enddo\n            reicmc(l) = reicmcl(iplon,l)\n            relqmc(l) = relqmcl(iplon,l)\n         enddo\n\n! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.\n\n!         cldfmc(:,nlayers) = 0.0_rb\n!         taucmc(:,nlayers) = 0.0_rb\n!         ciwpmc(:,nlayers) = 0.0_rb\n!         clwpmc(:,nlayers) = 0.0_rb\n!         reicmc(nlayers) = 0.0_rb\n!         relqmc(nlayers) = 0.0_rb\n!         taua(nlayers,:) = 0.0_rb\n\n      endif\n      \n      end subroutine inatm\n\n      end module rrtmg_lw_rad\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_rad.F90.safe",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_rad.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.11 $\n!     created:   $Date: 2009/11/12 20:52:25 $\n!\n\n       module rrtmg_lw_rad\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n!\n! ****************************************************************************\n! *                                                                          *\n! *                              RRTMG_LW                                    *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                   a rapid radiative transfer model                       *\n! *                       for the longwave region                            * \n! *             for application to general circulation models                *\n! *                                                                          *\n! *                                                                          *\n! *            Atmospheric and Environmental Research, Inc.                  *\n! *                        131 Hartwell Avenue                               *\n! *                        Lexington, MA 02421                               *\n! *                                                                          *\n! *                                                                          *\n! *                           Eli J. Mlawer                                  *\n! *                        Jennifer S. Delamere                              *\n! *                         Michael J. Iacono                                *\n! *                         Shepard A. Clough                                *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                       email:  miacono@aer.com                            *\n! *                       email:  emlawer@aer.com                            *\n! *                       email:  jdelamer@aer.com                           *\n! *                                                                          *\n! *        The authors wish to acknowledge the contributions of the          *\n! *        following people:  Steven J. Taubman, Karen Cady-Pereira,         *\n! *        Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.  *\n! *                                                                          *\n! ****************************************************************************\n\n! -------- Modules --------\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrlw_vsn\n      use mcica_subcol_gen_lw, only: mcica_subcol_lw\n      use rrtmg_lw_cldprmc, only: cldprmc\n! *** Move the required call to rrtmg_lw_ini below and the following \n! use association to the GCM initialization area ***\n!      use rrtmg_lw_init, only: rrtmg_lw_ini\n      use rrtmg_lw_rtrnmc, only: rtrnmc\n      use rrtmg_lw_setcoef, only: setcoef\n      use rrtmg_lw_taumol, only: taumol\n\n      implicit none\n\n! public interfaces/functions/subroutines\n      public :: rrtmg_lw, inatm\n\n!------------------------------------------------------------------\n      contains\n!------------------------------------------------------------------\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      subroutine rrtmg_lw &\n            (ncol    ,nlay    ,icld    ,idrv    , &\n             play    ,plev    ,tlay    ,tlev    ,tsfc    , & \n             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr , &\n             cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &\n             inflglw ,iceflglw,liqflglw,cldfmcl , &\n             taucmcl ,ciwpmcl ,clwpmcl ,reicmcl ,relqmcl , &\n             tauaer  , &\n             uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &\n             duflx_dt,duflxc_dt )\n\n! -------- Description --------\n\n! This program is the driver subroutine for RRTMG_LW, the AER LW radiation \n! model for application to GCMs, that has been adapted from RRTM_LW for\n! improved efficiency.\n!\n! NOTE: The call to RRTMG_LW_INI should be moved to the GCM initialization\n!  area, since this has to be called only once. \n!\n! This routine:\n!    a) calls INATM to read in the atmospheric profile from GCM;\n!       all layering in RRTMG is ordered from surface to toa. \n!    b) calls CLDPRMC to set cloud optical depth for McICA based \n!       on input cloud properties \n!    c) calls SETCOEF to calculate various quantities needed for \n!       the radiative transfer algorithm\n!    d) calls TAUMOL to calculate gaseous optical depths for each \n!       of the 16 spectral bands\n!    e) calls RTRNMC (for both clear and cloudy profiles) to perform the\n!       radiative transfer calculation using McICA, the Monte-Carlo \n!       Independent Column Approximation, to represent sub-grid scale \n!       cloud variability\n!    f) passes the necessary fluxes and cooling rates back to GCM\n!\n! Two modes of operation are possible:\n!     The mode is chosen by using either rrtmg_lw.nomcica.f90 (to not use\n!     McICA) or rrtmg_lw.f90 (to use McICA) to interface with a GCM. \n!\n!    1) Standard, single forward model calculation (imca = 0)\n!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., \n!       JC, 2003) method is applied to the forward model calculation (imca = 1)\n!\n! This call to RRTMG_LW must be preceeded by a call to the module\n!     mcica_subcol_gen_lw.f90 to run the McICA sub-column cloud generator,\n!     which will provide the cloud physical or cloud optical properties\n!     on the RRTMG quadrature point (ngpt) dimension.\n!     Two random number generators are available for use when imca = 1.\n!     This is chosen by setting flag irnd on input to mcica_subcol_gen_lw.\n!     1) KISSVEC (irnd = 0)\n!     2) Mersenne-Twister (irnd = 1)\n!\n! Two methods of cloud property input are possible:\n!     Cloud properties can be input in one of two ways (controlled by input \n!     flags inflglw, iceflglw, and liqflglw; see text file rrtmg_lw_instructions\n!     and subroutine rrtmg_lw_cldprmc.f90 for further details):\n!\n!    1) Input cloud fraction and cloud optical depth directly (inflglw = 0)\n!    2) Input cloud fraction and cloud physical properties (inflglw = 1 or 2);  \n!       cloud optical properties are calculated by cldprmc or cldprmc based\n!       on input settings of iceflglw and liqflglw.  Ice particle size provided\n!       must be appropriately defined for the ice parameterization selected. \n!\n! One method of aerosol property input is possible:\n!     Aerosol properties can be input in only one way (controlled by input \n!     flag iaer; see text file rrtmg_lw_instructions for further details):\n!\n!    1) Input aerosol optical depth directly by layer and spectral band (iaer=10);\n!       band average optical depth at the mid-point of each spectral band.\n!       RRTMG_LW currently treats only aerosol absorption;\n!       scattering capability is not presently available.\n!\n! The optional calculation of the change in upward flux as a function of surface \n! temperature is available (controlled by input flag idrv).  This can be utilized \n! to approximate adjustments to the upward flux profile caused only by a change in \n! surface temperature between full radiation calls.  This feature uses the pre-\n! calculated derivative of the Planck function with respect to surface temperature. \n!\n!    1) Normal forward calculation for the input profile (idrv=0)\n!    2) Normal forward calculation with optional calculation of the change\n!       in upward flux as a function of surface temperature for clear sky\n!       and total sky flux.  Flux partial derivatives are provided in arrays\n!       duflx_dt and duflxc_dt for total and clear sky.  (idrv=1)\n!\n!\n! ------- Modifications -------\n!\n! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced \n! set of g-points for application to GCMs.  \n!\n!-- Original version (derived from RRTM_LW), reduction of g-points, other\n!   revisions for use with GCMs.  \n!     1999: M. J. Iacono, AER, Inc.\n!-- Adapted for use with NCAR/CAM.\n!     May 2004: M. J. Iacono, AER, Inc.\n!-- Revised to add McICA capability. \n!     Nov 2005: M. J. Iacono, AER, Inc.\n!-- Conversion to F90 formatting for consistency with rrtmg_sw.\n!     Feb 2007: M. J. Iacono, AER, Inc.\n!-- Modifications to formatting to use assumed-shape arrays.\n!     Aug 2007: M. J. Iacono, AER, Inc.\n!-- Modified to add longwave aerosol absorption.\n!     Apr 2008: M. J. Iacono, AER, Inc.\n!-- Added capability to calculate derivative of upward flux wrt surface temperature. \n!     Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc.\n\n! --------- Modules ----------\n\n      use parrrtm, only : nbndlw, ngptlw, maxxsec, mxmol\n      use rrlw_con, only: fluxfac, heatfac, oneminus, pi\n      use rrlw_wvn, only: ng, ngb, nspa, nspb, wavenum1, wavenum2, delwave\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns\n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method\n                                                      !    0: Clear only\n                                                      !    1: Random\n                                                      !    2: Maximum/random\n                                                      !    3: Maximum\n      integer(kind=im), intent(in) :: idrv            ! Flag for calculation of dFdT, the change\n                                                      !    in upward flux as a function of \n                                                      !    surface temperature [0=off, 1=on]\n                                                      !    0: Normal forward calculation\n                                                      !    1: Normal forward calculation with\n                                                      !       duflx_dt and duflxc_dt output\n\n      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity\n                                                      !    Dimensions: (ncol,nbndlw)\n\n      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice particle effective size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n                                                      ! specific definition of reicmcl depends on setting of iceflglw:\n                                                      ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec must be >= 10.0 microns\n                                                      ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !               r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflglw = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !               dge range is limited to 5.0 to 140.0 microns\n                                                      !               [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n!      real(kind=rb), intent(in) :: ssacmcl(:,:,:)    ! In-cloud single scattering albedo\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n                                                      !   for future expansion\n                                                      !   lw scattering not yet available\n!      real(kind=rb), intent(in) :: asmcmcl(:,:,:)    ! In-cloud asymmetry parameter\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n                                                      !   for future expansion\n                                                      !   lw scattering not yet available\n      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! aerosol optical depth\n                                                      !   at mid-point of LW spectral bands\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n!      real(kind=rb), intent(in) :: ssaaer(:,:,:)     ! aerosol single scattering albedo\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n                                                      !   for future expansion \n                                                      !   (lw aerosols/scattering not yet available)\n!      real(kind=rb), intent(in) :: asmaer(:,:,:)     ! aerosol asymmetry parameter\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n                                                      !   for future expansion \n                                                      !   (lw aerosols/scattering not yet available)\n\n! ----- Output -----\n\n      real(kind=rb), intent(out) :: uflx(:,:)         ! Total sky longwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: dflx(:,:)         ! Total sky longwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: hr(:,:)           ! Total sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: uflxc(:,:)        ! Clear sky longwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: dflxc(:,:)        ! Clear sky longwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: hrc(:,:)          ! Clear sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Optional Output -----\n      real(kind=rb), intent(out), optional :: duflx_dt(:,:)     \n                                                      ! change in upward longwave flux (w/m2/K)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out), optional :: duflxc_dt(:,:)    \n                                                      ! change in clear sky upward longwave flux (w/m2/K)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Local -----\n\n! Control\n      integer(kind=im) :: nlayers             ! total number of layers\n      integer(kind=im) :: istart              ! beginning band of calculation\n      integer(kind=im) :: iend                ! ending band of calculation\n      integer(kind=im) :: iout                ! output option flag (inactive)\n      integer(kind=im) :: iaer                ! aerosol option flag\n      integer(kind=im) :: iplon               ! column loop index\n      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]\n      integer(kind=im) :: ims                 ! value for changing mcica permute seed\n      integer(kind=im) :: k                   ! layer loop index\n      integer(kind=im) :: ig                  ! g-point loop index\n\n! Atmosphere\n      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) \n      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)\n      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)\n      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)\n      real(kind=rb) :: tbound                 ! surface temperature (K)\n      real(kind=rb) :: coldry(nlay+1)         ! dry air column density (mol/cm2)\n      real(kind=rb) :: wbrodl(nlay+1)         ! broadening gas column density (mol/cm2)\n      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)\n      real(kind=rb) :: wx(maxxsec,nlay+1)     ! cross-section amounts (mol/cm-2)\n      real(kind=rb) :: pwvcm                  ! precipitable water vapor (cm)\n      real(kind=rb) :: semiss(nbndlw)         ! lw surface emissivity\n      real(kind=rb) :: fracs(nlay+1,ngptlw)   ! \n      real(kind=rb) :: taug(nlay+1,ngptlw)    ! gaseous optical depths\n      real(kind=rb) :: taut(nlay+1,ngptlw)    ! gaseous + aerosol optical depths\n\n      real(kind=rb) :: taua(nlay+1,nbndlw)    ! aerosol optical depth\n!      real(kind=rb) :: ssaa(nlay+1,nbndlw)   ! aerosol single scattering albedo\n                                              !   for future expansion \n                                              !   (lw aerosols/scattering not yet available)\n!      real(kind=rb) :: asma(nlay+1,nbndlw)   ! aerosol asymmetry parameter\n                                              !   for future expansion \n                                              !   (lw aerosols/scattering not yet available)\n\n! Atmosphere - setcoef\n      integer(kind=im) :: laytrop             ! tropopause layer index\n      integer(kind=im) :: jp(nlay+1)          ! lookup table index \n      integer(kind=im) :: jt(nlay+1)          ! lookup table index \n      integer(kind=im) :: jt1(nlay+1)         ! lookup table index \n      real(kind=rb) :: planklay(nlay+1,nbndlw)! \n      real(kind=rb) :: planklev(0:nlay+1,nbndlw)! \n      real(kind=rb) :: plankbnd(nbndlw)       ! \n      real(kind=rb) :: dplankbnd_dt(nbndlw)   ! \n\n      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)\n      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)\n      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)\n      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)\n      real(kind=rb) :: colco(nlay+1)          ! column amount (co)\n      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)\n      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)\n      real(kind=rb) :: colbrd(nlay+1)         ! column amount (broadening gases)\n\n      integer(kind=im) :: indself(nlay+1)\n      integer(kind=im) :: indfor(nlay+1)\n      real(kind=rb) :: selffac(nlay+1)\n      real(kind=rb) :: selffrac(nlay+1)\n      real(kind=rb) :: forfac(nlay+1)\n      real(kind=rb) :: forfrac(nlay+1)\n\n      integer(kind=im) :: indminor(nlay+1)\n      real(kind=rb) :: minorfrac(nlay+1)\n      real(kind=rb) :: scaleminor(nlay+1)\n      real(kind=rb) :: scaleminorn2(nlay+1)\n\n      real(kind=rb) :: &                      !\n                         fac00(nlay+1), fac01(nlay+1), &\n                         fac10(nlay+1), fac11(nlay+1) \n      real(kind=rb) :: &                      !\n                         rat_h2oco2(nlay+1),rat_h2oco2_1(nlay+1), &\n                         rat_h2oo3(nlay+1),rat_h2oo3_1(nlay+1), &\n                         rat_h2on2o(nlay+1),rat_h2on2o_1(nlay+1), &\n                         rat_h2och4(nlay+1),rat_h2och4_1(nlay+1), &\n                         rat_n2oco2(nlay+1),rat_n2oco2_1(nlay+1), &\n                         rat_o3co2(nlay+1),rat_o3co2_1(nlay+1)\n\n! Atmosphere/clouds - cldprop\n      integer(kind=im) :: ncbands             ! number of cloud spectral bands\n      integer(kind=im) :: inflag              ! flag for cloud property method\n      integer(kind=im) :: iceflag             ! flag for ice cloud properties\n      integer(kind=im) :: liqflag             ! flag for liquid cloud properties\n\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb) :: cldfmc(ngptlw,nlay+1)  ! cloud fraction [mcica]\n      real(kind=rb) :: ciwpmc(ngptlw,nlay+1)  ! in-cloud ice water path [mcica]\n      real(kind=rb) :: clwpmc(ngptlw,nlay+1)  ! in-cloud liquid water path [mcica]\n      real(kind=rb) :: relqmc(nlay+1)         ! liquid particle effective radius (microns)\n      real(kind=rb) :: reicmc(nlay+1)         ! ice particle effective size (microns)\n      real(kind=rb) :: taucmc(ngptlw,nlay+1)  ! in-cloud optical depth [mcica]\n!      real(kind=rb) :: ssacmc(ngptlw,nlay+1) ! in-cloud single scattering albedo [mcica]\n                                              !   for future expansion \n                                              !   (lw scattering not yet available)\n!      real(kind=rb) :: asmcmc(ngptlw,nlay+1) ! in-cloud asymmetry parameter [mcica]\n                                              !   for future expansion \n                                              !   (lw scattering not yet available)\n\n! Output\n      real(kind=rb) :: totuflux(0:nlay+1)     ! upward longwave flux (w/m2)\n      real(kind=rb) :: totdflux(0:nlay+1)     ! downward longwave flux (w/m2)\n      real(kind=rb) :: fnet(0:nlay+1)         ! net longwave flux (w/m2)\n      real(kind=rb) :: htr(0:nlay+1)          ! longwave heating rate (k/day)\n      real(kind=rb) :: totuclfl(0:nlay+1)     ! clear sky upward longwave flux (w/m2)\n      real(kind=rb) :: totdclfl(0:nlay+1)     ! clear sky downward longwave flux (w/m2)\n      real(kind=rb) :: fnetc(0:nlay+1)        ! clear sky net longwave flux (w/m2)\n      real(kind=rb) :: htrc(0:nlay+1)         ! clear sky longwave heating rate (k/day)\n      real(kind=rb) :: dtotuflux_dt(0:nlay+1) ! change in upward longwave flux (w/m2/k)\n                                              ! with respect to surface temperature\n      real(kind=rb) :: dtotuclfl_dt(0:nlay+1) ! change in clear sky upward longwave flux (w/m2/k)\n                                              ! with respect to surface temperature\n\n!\n! Initializations\n\n      oneminus = 1._rb - 1.e-6_rb\n      pi = 2._rb * asin(1._rb)\n      fluxfac = pi * 2.e4_rb                  ! orig:   fluxfac = pi * 2.d4  \n      istart = 1\n      iend = 16\n      iout = 0\n      ims = 1\n\n! Set imca to select calculation type:\n!  imca = 0, use standard forward model calculation\n!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability\n\n! *** This version uses McICA (imca = 1) ***\n\n! Set icld to select of clear or cloud calculation and cloud overlap method  \n! icld = 0, clear only\n! icld = 1, with clouds using random cloud overlap\n! icld = 2, with clouds using maximum/random cloud overlap\n! icld = 3, with clouds using maximum cloud overlap (McICA only)\n      if (icld.lt.0.or.icld.gt.3) icld = 2\n\n! Set iaer to select aerosol option\n! iaer = 0, no aerosols\n! icld = 10, input total aerosol optical depth (tauaer) directly\n      iaer = 10\n\n! Call model and data initialization, compute lookup tables, perform\n! reduction of g-points from 256 to 140 for input absorption coefficient \n! data and other arrays.\n!\n! In a GCM this call should be placed in the model initialization\n! area, since this has to be called only once.  \n!      call rrtmg_lw_ini(cpdair)\n\n!  This is the main longitude/column loop within RRTMG.\n      do iplon = 1, ncol\n\n!  Prepare atmospheric profile from GCM for use in RRTMG, and define\n!  other input parameters.  \n\n         call inatm (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &\n              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &\n              cldfmcl, taucmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, &\n              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &\n              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &\n              cldfmc, taucmc, ciwpmc, clwpmc, reicmc, relqmc, taua)\n\n!  For cloudy atmosphere, use cldprmc to set cloud optical properties based on\n!  input cloud physical properties.  Select method based on choices described\n!  in cldprmc.  Cloud fraction, water path, liquid droplet and ice particle\n!  effective radius must be passed into cldprmc.  Cloud fraction and cloud\n!  optical depth are transferred to rrtmg_lw arrays in cldprmc.  \n\n         call cldprmc(nlayers, inflag, iceflag, liqflag, cldfmc, ciwpmc, &\n                      clwpmc, reicmc, relqmc, ncbands, taucmc)\n\n! Calculate information needed by the radiative transfer routine\n! that is specific to this atmosphere, especially some of the \n! coefficients and indices needed to compute the optical depths\n! by interpolating data from stored reference atmospheres. \n\n         call setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &\n                      coldry, wkl, wbrodl, &\n                      laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                      idrv, dplankbnd_dt, &\n                      colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                      colbrd, fac00, fac01, fac10, fac11, &\n                      rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                      rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                      rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                      selffac, selffrac, indself, forfac, forfrac, indfor, &\n                      minorfrac, scaleminor, scaleminorn2, indminor)\n\n!  Calculate the gaseous optical depths and Planck fractions for \n!  each longwave spectral band.\n\n         call taumol(nlayers, pavel, wx, coldry, &\n                     laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                     colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                     colbrd, fac00, fac01, fac10, fac11, &\n                     rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                     rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                     rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                     selffac, selffrac, indself, forfac, forfrac, indfor, &\n                     minorfrac, scaleminor, scaleminorn2, indminor, &\n                     fracs, taug)\n\n\n! Combine gaseous and aerosol optical depths, if aerosol active\n         if (iaer .eq. 0) then\n            do k = 1, nlayers\n               do ig = 1, ngptlw\n                  taut(k,ig) = taug(k,ig)\n               enddo\n            enddo\n         elseif (iaer .eq. 10) then\n            do k = 1, nlayers\n               do ig = 1, ngptlw\n                  taut(k,ig) = taug(k,ig) + taua(k,ngb(ig))\n               enddo\n            enddo\n         endif\n\n! Call the radiative transfer routine.\n! Either routine can be called to do clear sky calculation.  If clouds\n! are present, then select routine based on cloud overlap assumption\n! to be used.  Clear sky calculation is done simultaneously.\n! For McICA, RTRNMC is called for clear and cloudy calculations.\n\n         call rtrnmc(nlayers, istart, iend, iout, pz, semiss, ncbands, &\n                     cldfmc, taucmc, planklay, planklev, plankbnd, &\n                     pwvcm, fracs, taut, &\n                     totuflux, totdflux, fnet, htr, &\n                     totuclfl, totdclfl, fnetc, htrc, &\n                     idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )\n\n!  Transfer up and down fluxes and heating rate to output arrays.\n!  Vertical indexing goes from bottom to top; reverse here for GCM if necessary.\n\n         do k = 0, nlayers\n            uflx(iplon,k+1) = totuflux(k)\n            dflx(iplon,k+1) = totdflux(k)\n            uflxc(iplon,k+1) = totuclfl(k)\n            dflxc(iplon,k+1) = totdclfl(k)\n         enddo\n         do k = 0, nlayers-1\n            hr(iplon,k+1) = htr(k)\n            hrc(iplon,k+1) = htrc(k)\n         enddo\n\n!  If idrv=1 option is active, transfer upward flux derivatives to output arrays.\n         \n         if (idrv .eq. 1) then \n            do k = 0, nlayers\n               duflx_dt(iplon,k+1) = dtotuflux_dt(k)\n               duflxc_dt(iplon,k+1) = dtotuclfl_dt(k)\n            enddo\n         endif\n\n! End longitude/column loop\n      enddo\n\n      end subroutine rrtmg_lw\n\n!***************************************************************************\n      subroutine inatm (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &\n              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &\n              cldfmcl, taucmcl, ciwpmcl, clwpmcl, reicmcl, relqmcl, tauaer, &\n              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &\n              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &\n              cldfmc, taucmc, ciwpmc, clwpmc, reicmc, relqmc, taua)\n!***************************************************************************\n!\n!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_LW.\n!  Set other RRTMG_LW input parameters.  \n!\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use parrrtm, only : nbndlw, ngptlw, nmol, maxxsec, mxmol\n      use rrlw_con, only: fluxfac, heatfac, oneminus, pi, grav, avogad\n      use rrlw_wvn, only: ng, nspa, nspb, wavenum1, wavenum2, delwave, ixindx\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: iplon           ! column loop index\n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag\n      integer(kind=im), intent(in) :: iaer            ! aerosol option flag\n\n      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity\n                                                      !    Dimensions: (ncol,nbndlw)\n\n      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice effective size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth\n                                                      !    Dimensions: (ngptlw,ncol,nlay)\n      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n\n! ----- Output -----\n! Atmosphere\n      integer(kind=im), intent(out) :: nlayers        ! number of layers\n\n      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) \n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)\n                                                      !    Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)\n      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wbrodl(:)         ! broadening gas column density (mol/cm2)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)\n                                                      !    Dimensions: (mxmol,nlay)\n      real(kind=rb), intent(out) :: wx(:,:)           ! cross-section amounts (mol/cm-2)\n                                                      !    Dimensions: (maxxsec,nlay)\n      real(kind=rb), intent(out) :: pwvcm             ! precipitable water vapor (cm)\n      real(kind=rb), intent(out) :: semiss(:)         ! lw surface emissivity\n                                                      !    Dimensions: (nbndlw)\n\n! Atmosphere/clouds - cldprmc\n      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method\n      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties\n      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties\n\n      real(kind=rb), intent(out) :: cldfmc(:,:)       ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: reicmc(:)         ! ice particle effective size (microns)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptlw,nlay)\n      real(kind=rb), intent(out) :: taua(:,:)         ! aerosol optical depth\n                                                      !    Dimensions: (nlay,nbndlw)\n\n\n! ----- Local -----\n      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)\n      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)\n!      real(kind=rb), parameter :: amc = 44.0098_rb    ! Molecular weight of carbon dioxide (g/mol)\n!      real(kind=rb), parameter :: amo = 47.9998_rb    ! Molecular weight of ozone (g/mol)\n!      real(kind=rb), parameter :: amo2 = 31.9999_rb   ! Molecular weight of oxygen (g/mol)\n!      real(kind=rb), parameter :: amch4 = 16.0430_rb  ! Molecular weight of methane (g/mol)\n!      real(kind=rb), parameter :: amn2o = 44.0128_rb  ! Molecular weight of nitrous oxide (g/mol)\n!      real(kind=rb), parameter :: amc11 = 137.3684_rb ! Molecular weight of CFC11 (g/mol) - CCL3F\n!      real(kind=rb), parameter :: amc12 = 120.9138_rb ! Molecular weight of CFC12 (g/mol) - CCL2F2\n!      real(kind=rb), parameter :: amc22 = 86.4688_rb  ! Molecular weight of CFC22 (g/mol) - CHCLF2\n!      real(kind=rb), parameter :: amcl4 = 153.823_rb  ! Molecular weight of CCL4 (g/mol) - CCL4\n\n! Set molecular weight ratios (for converting mmr to vmr)\n!  e.g. h2ovmr = h2ommr * amdw)\n      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor\n      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide\n      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone\n      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane\n      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide\n      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen\n      real(kind=rb), parameter :: amdc1 = 0.210852_rb ! Molecular weight of dry air / CFC11\n      real(kind=rb), parameter :: amdc2 = 0.239546_rb ! Molecular weight of dry air / CFC12\n\n      integer(kind=im) :: isp, l, ix, n, imol, ib, ig   ! Loop indices\n      real(kind=rb) :: amm, amttl, wvttl, wvsh, summol  \n\n! Add one to nlayers here to include extra model layer at top of atmosphere\n      nlayers = nlay\n\n!  Initialize all molecular amounts and cloud properties to zero here, then pass input amounts\n!  into RRTM arrays below.\n\n      wkl(:,:) = 0.0_rb\n      wx(:,:) = 0.0_rb\n      cldfmc(:,:) = 0.0_rb\n      taucmc(:,:) = 0.0_rb\n      ciwpmc(:,:) = 0.0_rb\n      clwpmc(:,:) = 0.0_rb\n      reicmc(:) = 0.0_rb\n      relqmc(:) = 0.0_rb\n      taua(:,:) = 0.0_rb\n      amttl = 0.0_rb\n      wvttl = 0.0_rb\n \n!  Set surface temperature.\n      tbound = tsfc(iplon)\n\n!  Install input GCM arrays into RRTMG_LW arrays for pressure, temperature,\n!  and molecular amounts.  \n!  Pressures are input in mb, or are converted to mb here.\n!  Molecular amounts are input in volume mixing ratio, or are converted from \n!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio\n!  here. These are then converted to molecular amount (molec/cm2) below.  \n!  The dry air column COLDRY (in molec/cm2) is calculated from the level \n!  pressures, pz (in mb), based on the hydrostatic equation and includes a \n!  correction to account for h2o in the layer.  The molecular weight of moist \n!  air (amm) is calculated for each layer.  \n!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below\n!  assumes GCM input fields are also bottom to top. Input layer indexing\n!  from GCM fields should be reversed here if necessary.\n\n      pz(0) = plev(iplon,1)\n      tz(0) = tlev(iplon,1)\n      do l = 1, nlayers\n         pavel(l) = play(iplon,l)\n         tavel(l) = tlay(iplon,l)\n         pz(l) = plev(iplon,l+1)\n         tz(l) = tlev(iplon,l+1)\n! For h2o input in vmr:\n         wkl(1,l) = h2ovmr(iplon,l)\n! For h2o input in mmr:\n!         wkl(1,l) = h2o(iplon,l)*amdw\n! For h2o input in specific humidity;\n!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw\n         wkl(2,l) = co2vmr(iplon,l)\n         wkl(3,l) = o3vmr(iplon,l)\n         wkl(4,l) = n2ovmr(iplon,l)\n         wkl(6,l) = ch4vmr(iplon,l)\n         wkl(7,l) = o2vmr(iplon,l)\n         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            \n         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &\n                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))\n      enddo\n\n! Set cross section molecule amounts from input; convert to vmr if necessary\n      do l=1, nlayers\n         wx(1,l) = ccl4vmr(iplon,l)\n         wx(2,l) = cfc11vmr(iplon,l)\n         wx(3,l) = cfc12vmr(iplon,l)\n         wx(4,l) = cfc22vmr(iplon,l)\n      enddo      \n\n! The following section can be used to set values for an additional layer (from\n! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. \n! Temperature and molecular amounts in the extra model layer are set to \n! their values in the top GCM model layer, though these can be modified\n! here if necessary. \n! If this feature is utilized, increase nlayers by one above, limit the two\n! loops above to (nlayers-1), and set the top most (extra) layer values here. \n\n!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)\n!      tavel(nlayers) = tavel(nlayers-1)\n!      pz(nlayers) = 1.e-4_rb\n!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))\n!      tz(nlayers) = tz(nlayers-1)\n!      wkl(1,nlayers) = wkl(1,nlayers-1)\n!      wkl(2,nlayers) = wkl(2,nlayers-1)\n!      wkl(3,nlayers) = wkl(3,nlayers-1)\n!      wkl(4,nlayers) = wkl(4,nlayers-1)\n!      wkl(6,nlayers) = wkl(6,nlayers-1)\n!      wkl(7,nlayers) = wkl(7,nlayers-1)\n!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw\n!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &\n!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))\n!      wx(1,nlayers) = wx(1,nlayers-1)\n!      wx(2,nlayers) = wx(2,nlayers-1)\n!      wx(3,nlayers) = wx(3,nlayers-1)\n!      wx(4,nlayers) = wx(4,nlayers-1)\n\n! At this point all molecular amounts in wkl and wx are in volume mixing ratio; \n! convert to molec/cm2 based on coldry for use in rrtm.  also, compute precipitable\n! water vapor for diffusivity angle adjustments in rtrn and rtrnmr.\n\n      do l = 1, nlayers\n         summol = 0.0_rb\n         do imol = 2, nmol\n            summol = summol + wkl(imol,l)\n         enddo\n         wbrodl(l) = coldry(l) * (1._rb - summol)\n         do imol = 1, nmol\n            wkl(imol,l) = coldry(l) * wkl(imol,l)\n         enddo\n         amttl = amttl + coldry(l)+wkl(1,l)\n         wvttl = wvttl + wkl(1,l)\n         do ix = 1,maxxsec\n            if (ixindx(ix) .ne. 0) then\n               wx(ixindx(ix),l) = coldry(l) * wx(ix,l) * 1.e-20_rb\n            endif\n         enddo\n      enddo\n\n      wvsh = (amw * wvttl) / (amd * amttl)\n      pwvcm = wvsh * (1.e3_rb * pz(0)) / (1.e2_rb * grav)\n\n! Set spectral surface emissivity for each longwave band.  \n\n      do n=1,nbndlw\n         semiss(n) = emis(iplon,n)\n!          semiss(n) = 1.0_rb\n      enddo\n\n! Transfer aerosol optical properties to RRTM variable;\n! modify to reverse layer indexing here if necessary.\n\n     if (iaer .ge. 1) then\n        do l = 1, nlayers\n           do ib = 1, nbndlw\n              taua(l,ib) = tauaer(iplon,l,ib)\n           enddo\n        enddo\n      endif\n\n! Transfer cloud fraction and cloud optical properties to RRTM variables,\n! modify to reverse layer indexing here if necessary.\n\n      if (icld .ge. 1) then \n         inflag = inflglw\n         iceflag = iceflglw\n         liqflag = liqflglw\n\n! Move incoming GCM cloud arrays to RRTMG cloud arrays.\n! For GCM input, incoming reicmcl is defined based on selected ice parameterization (inflglw)\n\n         do l = 1, nlayers\n            do ig = 1, ngptlw\n               cldfmc(ig,l) = cldfmcl(ig,iplon,l)\n               taucmc(ig,l) = taucmcl(ig,iplon,l)\n               ciwpmc(ig,l) = ciwpmcl(ig,iplon,l)\n               clwpmc(ig,l) = clwpmcl(ig,iplon,l)\n            enddo\n            reicmc(l) = reicmcl(iplon,l)\n            relqmc(l) = relqmcl(iplon,l)\n         enddo\n\n! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.\n\n!         cldfmc(:,nlayers) = 0.0_rb\n!         taucmc(:,nlayers) = 0.0_rb\n!         ciwpmc(:,nlayers) = 0.0_rb\n!         clwpmc(:,nlayers) = 0.0_rb\n!         reicmc(nlayers) = 0.0_rb\n!         relqmc(nlayers) = 0.0_rb\n!         taua(nlayers,:) = 0.0_rb\n\n      endif\n      \n      end subroutine inatm\n\n      end module rrtmg_lw_rad\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_rad.nomcica.F90.safe",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_rad.nomcica.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.11 $\n!     created:   $Date: 2009/11/12 20:52:25 $\n!\n\n       module rrtmg_lw_rad\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n!\n! ****************************************************************************\n! *                                                                          *\n! *                              RRTMG_LW                                    *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                   a rapid radiative transfer model                       *\n! *                       for the longwave region                            * \n! *             for application to general circulation models                *\n! *                                                                          *\n! *                                                                          *\n! *            Atmospheric and Environmental Research, Inc.                  *\n! *                        131 Hartwell Avenue                               *\n! *                        Lexington, MA 02421                               *\n! *                                                                          *\n! *                                                                          *\n! *                           Eli J. Mlawer                                  *\n! *                        Jennifer S. Delamere                              *\n! *                         Michael J. Iacono                                *\n! *                         Shepard A. Clough                                *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                       email:  emlawer@aer.com                            *\n! *                       email:  jdelamer@aer.com                           *\n! *                       email:  miacono@aer.com                            *\n! *                                                                          *\n! *        The authors wish to acknowledge the contributions of the          *\n! *        following people:  Steven J. Taubman, Karen Cady-Pereira,         *\n! *        Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.  *\n! *                                                                          *\n! ****************************************************************************\n\n! -------- Modules --------\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrlw_vsn\n      use rrtmg_lw_cldprop, only: cldprop\n! *** Move the required call to rrtmg_lw_ini below and the following \n! use association to the GCM initialization area ***\n!      use rrtmg_lw_init, only: rrtmg_lw_ini\n      use rrtmg_lw_rtrn, only: rtrn\n      use rrtmg_lw_rtrnmr, only: rtrnmr\n      use rrtmg_lw_setcoef, only: setcoef\n      use rrtmg_lw_taumol, only: taumol\n\n      implicit none\n\n! public interfaces/functions/subroutines\n      public :: rrtmg_lw, inatm\n\n!------------------------------------------------------------------\n      contains\n!------------------------------------------------------------------\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      subroutine rrtmg_lw &\n            (ncol    ,nlay    ,icld    ,idrv    , &\n             play    ,plev    ,tlay    ,tlev    ,tsfc    , &\n             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &\n             cfc11vmr,cfc12vmr,cfc22vmr,ccl4vmr ,emis    , &\n             inflglw ,iceflglw,liqflglw,cldfr   , &\n             taucld  ,cicewp  ,cliqwp  ,reice   ,reliq   , &\n             tauaer  , &\n             uflx    ,dflx    ,hr      ,uflxc   ,dflxc,  hrc, &\n             duflx_dt,duflxc_dt )\n\n! -------- Description --------\n\n! This program is the driver subroutine for RRTMG_LW, the AER LW radiation \n! model for application to GCMs, that has been adapted from RRTM_LW for\n! improved efficiency.\n!\n! NOTE: The call to RRTMG_LW_INI should be moved to the GCM initialization\n!  area, since this has to be called only once. \n!\n! This routine:\n!    a) calls INATM to read in the atmospheric profile from GCM;\n!       all layering in RRTMG is ordered from surface to toa. \n!    b) calls CLDPROP to set cloud optical depth based on input\n!       cloud properties\n!    c) calls SETCOEF to calculate various quantities needed for \n!       the radiative transfer algorithm\n!    d) calls TAUMOL to calculate gaseous optical depths for each \n!       of the 16 spectral bands\n!    e) calls RTRNMR (for both clear and cloudy profiles) to perform the\n!       radiative transfer calculation with a maximum-random cloud\n!       overlap method, or calls RTRN to use random cloud overlap.\n!    f) passes the necessary fluxes and cooling rates back to GCM\n!\n! Two modes of operation are possible:\n!     The mode is chosen by using either rrtmg_lw.nomcica.f90 (to not use\n!     McICA) or rrtmg_lw.f90 (to use McICA) to interface with a GCM. \n!\n!    1) Standard, single forward model calculation (imca = 0)\n!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., \n!       JC, 2003) method is applied to the forward model calculation (imca = 1)\n!\n! Two methods of cloud property input are possible:\n!     Cloud properties can be input in one of two ways (controlled by input \n!     flags inflglw, iceflglw, and liqflglw; see text file rrtmg_lw_instructions\n!     and subroutine rrtmg_lw_cldprop.f90 for further details):\n!\n!    1) Input cloud fraction and cloud optical depth directly (inflglw = 0)\n!    2) Input cloud fraction and cloud physical properties (inflglw = 1 or 2);  \n!       cloud optical properties are calculated by cldprop or cldprmc based\n!       on input settings of iceflglw and liqflglw.  Ice particle size provided\n!       must be appropriately defined for the ice parameterization selected. \n!\n! One method of aerosol property input is possible:\n!     Aerosol properties can be input in only one way (controlled by input \n!     flag iaer; see text file rrtmg_lw_instructions for further details):\n!\n!    1) Input aerosol optical depth directly by layer and spectral band (iaer=10);\n!       band average optical depth at the mid-point of each spectral band.\n!       RRTMG_LW currently treats only aerosol absorption;\n!       scattering capability is not presently available.\n!\n! The optional calculation of the change in upward flux as a function of surface \n! temperature is available (controlled by input flag idrv).  This can be utilized \n! to approximate adjustments to the upward flux profile caused only by a change in \n! surface temperature between full radiation calls.  This feature uses the pre-\n! calculated derivative of the Planck function with respect to surface temperature. \n!\n!    1) Normal forward calculation for the input profile (idrv=0)\n!    2) Normal forward calculation with optional calculation of the change\n!       in upward flux as a function of surface temperature for clear sky\n!       and total sky flux.  Flux partial derivatives are provided in arrays\n!       duflx_dt and duflxc_dt for total and clear sky.  (idrv=1)\n!\n!\n! ------- Modifications -------\n!\n! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced \n! set of g-points for application to GCMs.  \n!\n!-- Original version (derived from RRTM_LW), reduction of g-points, other\n!   revisions for use with GCMs.  \n!     1999: M. J. Iacono, AER, Inc.\n!-- Adapted for use with NCAR/CAM.\n!     May 2004: M. J. Iacono, AER, Inc.\n!-- Conversion to F90 formatting for consistency with rrtmg_sw.\n!     Feb 2007: M. J. Iacono, AER, Inc.\n!-- Modifications to formatting to use assumed-shape arrays.\n!     Aug 2007: M. J. Iacono, AER, Inc.\n!-- Modified to add longwave aerosol absorption.\n!     Apr 2008: M. J. Iacono, AER, Inc.\n!-- Added capability to calculate derivative of upward flux wrt surface temperature. \n!     Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc.\n\n! --------- Modules ----------\n\n      use parrrtm, only : nbndlw, ngptlw, maxxsec, mxmol\n      use rrlw_con, only: fluxfac, heatfac, oneminus, pi\n      use rrlw_wvn, only: ng, ngb, nspa, nspb, wavenum1, wavenum2, delwave\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns\n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method\n                                                      !    0: Clear only\n                                                      !    1: Random\n                                                      !    2: Maximum/random\n                                                      !    3: Maximum\n      integer(kind=im), intent(in) :: idrv            ! Flag for calculation of dFdT, the change\n                                                      !    in upward flux as a function of \n                                                      !    surface temperature [0=off, 1=on]\n                                                      !    0: Normal forward calculation\n                                                      !    1: Normal forward calculation with\n                                                      !       duflx_dt and duflxc_dt output\n\n      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity\n                                                      !    Dimensions: (ncol,nbndlw)\n\n      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfr(:,:)         ! Cloud fraction\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cicewp(:,:)        ! Cloud ice water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cliqwp(:,:)        ! Cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: reice(:,:)         ! Cloud ice particle effective size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n                                                      ! specific definition of reice depends on setting of iceflglw:\n                                                      ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec must be >= 10.0 microns\n                                                      ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !               r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflglw = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !               dge range is limited to 5.0 to 140.0 microns\n                                                      !               [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: reliq(:,:)         ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: taucld(:,:,:)      ! In-cloud optical depth\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n!      real(kind=rb), intent(in) :: ssacld(:,:,:)     ! In-cloud single scattering albedo\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n                                                      !   for future expansion \n                                                      !   (lw scattering not yet available)\n!      real(kind=rb), intent(in) :: asmcld(:,:,:)     ! In-cloud asymmetry parameter\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n                                                      !   for future expansion \n                                                      !   (lw scattering not yet available)\n      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! aerosol optical depth\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n!      real(kind=rb), intent(in) :: ssaaer(:,:,:)     ! aerosol single scattering albedo\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n                                                      !   for future expansion \n                                                      !   (lw aerosols/scattering not yet available)\n!      real(kind=rb), intent(in) :: asmaer(:,:,:)     ! aerosol asymmetry parameter\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n                                                      !   for future expansion \n                                                      !   (lw aerosols/scattering not yet available)\n\n\n! ----- Output -----\n\n      real(kind=rb), intent(out) :: uflx(:,:)         ! Total sky longwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: dflx(:,:)         ! Total sky longwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: hr(:,:)           ! Total sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: uflxc(:,:)        ! Clear sky longwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: dflxc(:,:)        ! Clear sky longwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: hrc(:,:)          ! Clear sky longwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Optional Output -----\n      real(kind=rb), intent(out), optional :: duflx_dt(:,:)     \n                                                      ! change in upward longwave flux (w/m2/k)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out), optional :: duflxc_dt(:,:)    \n                                                      ! change in clear sky upward longwave flux (w/m2/k)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Local -----\n\n! Control\n      integer(kind=im) :: nlayers             ! total number of layers\n      integer(kind=im) :: istart              ! beginning band of calculation\n      integer(kind=im) :: iend                ! ending band of calculation\n      integer(kind=im) :: iout                ! output option flag (inactive)\n      integer(kind=im) :: iaer                ! aerosol option flag\n      integer(kind=im) :: iplon               ! column loop index\n      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]\n      integer(kind=im) :: k                   ! layer loop index\n      integer(kind=im) :: ig                  ! g-point loop index\n\n! Atmosphere\n      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) \n      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)\n      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)\n      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)\n      real(kind=rb) :: tbound                 ! surface temperature (K)\n      real(kind=rb) :: coldry(nlay+1)         ! dry air column density (mol/cm2)\n      real(kind=rb) :: wbrodl(nlay+1)         ! broadening gas column density (mol/cm2)\n      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)\n      real(kind=rb) :: wx(maxxsec,nlay+1)     ! cross-section amounts (mol/cm-2)\n      real(kind=rb) :: pwvcm                  ! precipitable water vapor (cm)\n      real(kind=rb) :: semiss(nbndlw)         ! lw surface emissivity\n      real(kind=rb) :: fracs(nlay+1,ngptlw)   ! \n      real(kind=rb) :: taug(nlay+1,ngptlw)    ! gaseous optical depths\n      real(kind=rb) :: taut(nlay+1,ngptlw)    ! gaseous + aerosol optical depths\n\n      real(kind=rb) :: taua(nlay+1,nbndlw)    ! aerosol optical depth\n!      real(kind=rb) :: ssaa(nlay+1,nbndlw)   ! aerosol single scattering albedo\n                                              !   for future expansion \n                                              !   (lw aerosols/scattering not yet available)\n!      real(kind=rb) :: asma(nlay+1,nbndlw)   ! aerosol asymmetry parameter\n                                              !   for future expansion \n                                              !   (lw aerosols/scattering not yet available)\n\n! Atmosphere - setcoef\n      integer(kind=im) :: laytrop             ! tropopause layer index\n      integer(kind=im) :: jp(nlay+1)          ! lookup table index \n      integer(kind=im) :: jt(nlay+1)          ! lookup table index \n      integer(kind=im) :: jt1(nlay+1)         ! lookup table index \n      real(kind=rb) :: planklay(nlay+1,nbndlw)! \n      real(kind=rb) :: planklev(0:nlay+1,nbndlw)! \n      real(kind=rb) :: plankbnd(nbndlw)       ! \n      real(kind=rb) :: dplankbnd_dt(nbndlw)   ! \n\n      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)\n      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)\n      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)\n      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)\n      real(kind=rb) :: colco(nlay+1)          ! column amount (co)\n      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)\n      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)\n      real(kind=rb) :: colbrd(nlay+1)         ! column amount (broadening gases)\n\n      integer(kind=im) :: indself(nlay+1)\n      integer(kind=im) :: indfor(nlay+1)\n      real(kind=rb) :: selffac(nlay+1)\n      real(kind=rb) :: selffrac(nlay+1)\n      real(kind=rb) :: forfac(nlay+1)\n      real(kind=rb) :: forfrac(nlay+1)\n\n      integer(kind=im) :: indminor(nlay+1)\n      real(kind=rb) :: minorfrac(nlay+1)\n      real(kind=rb) :: scaleminor(nlay+1)\n      real(kind=rb) :: scaleminorn2(nlay+1)\n\n      real(kind=rb) :: &                      !\n                         fac00(nlay+1), fac01(nlay+1), &\n                         fac10(nlay+1), fac11(nlay+1) \n      real(kind=rb) :: &                      !\n                         rat_h2oco2(nlay+1),rat_h2oco2_1(nlay+1), &\n                         rat_h2oo3(nlay+1),rat_h2oo3_1(nlay+1), &\n                         rat_h2on2o(nlay+1),rat_h2on2o_1(nlay+1), &\n                         rat_h2och4(nlay+1),rat_h2och4_1(nlay+1), &\n                         rat_n2oco2(nlay+1),rat_n2oco2_1(nlay+1), &\n                         rat_o3co2(nlay+1),rat_o3co2_1(nlay+1)\n\n! Atmosphere/clouds - cldprop\n      integer(kind=im) :: ncbands             ! number of cloud spectral bands\n      integer(kind=im) :: inflag              ! flag for cloud property method\n      integer(kind=im) :: iceflag             ! flag for ice cloud properties\n      integer(kind=im) :: liqflag             ! flag for liquid cloud properties\n\n      real(kind=rb) :: cldfrac(nlay+1)        ! layer cloud fraction\n      real(kind=rb) :: tauc(nbndlw,nlay+1)    ! in-cloud optical depth\n!      real(kind=rb) :: ssac(nbndlw,nlay+1)   ! in-cloud single scattering albedo\n                                              !   for future expansion \n                                              !   (lw scattering not yet available)\n!      real(kind=rb) :: asmc(nbndlw,nlay+1)   ! in-cloud asymmetry parameter\n                                              !   for future expansion \n                                              !   (lw scattering not yet available)\n      real(kind=rb) :: ciwp(nlay+1)           ! cloud ice water path\n      real(kind=rb) :: clwp(nlay+1)           ! cloud liquid water path\n      real(kind=rb) :: rel(nlay+1)            ! cloud liquid particle effective radius (microns)\n      real(kind=rb) :: rei(nlay+1)            ! cloud ice particle effective size (microns)\n      real(kind=rb) :: taucloud(nlay+1,nbndlw)! layer in-cloud optical depth\n\n! Output\n      real(kind=rb) :: totuflux(0:nlay+1)     ! upward longwave flux (w/m2)\n      real(kind=rb) :: totdflux(0:nlay+1)     ! downward longwave flux (w/m2)\n      real(kind=rb) :: fnet(0:nlay+1)         ! net longwave flux (w/m2)\n      real(kind=rb) :: htr(0:nlay+1)          ! longwave heating rate (k/day)\n      real(kind=rb) :: totuclfl(0:nlay+1)     ! clear sky upward longwave flux (w/m2)\n      real(kind=rb) :: totdclfl(0:nlay+1)     ! clear sky downward longwave flux (w/m2)\n      real(kind=rb) :: fnetc(0:nlay+1)        ! clear sky net longwave flux (w/m2)\n      real(kind=rb) :: htrc(0:nlay+1)         ! clear sky longwave heating rate (k/day)\n      real(kind=rb) :: dtotuflux_dt(0:nlay+1) ! change in upward longwave flux (w/m2/k)\n                                              ! with respect to surface temperature\n      real(kind=rb) :: dtotuclfl_dt(0:nlay+1) ! change in clear sky upward longwave flux (w/m2/k)\n                                              ! with respect to surface temperature\n\n!\n! Initializations\n\n      oneminus = 1._rb - 1.e-6_rb\n      pi = 2._rb*asin(1._rb)\n      fluxfac = pi * 2.e4_rb                  ! orig:   fluxfac = pi * 2.d4  \n      istart = 1\n      iend = 16\n      iout = 0\n\n\n! Set imca to select calculation type:\n!  imca = 0, use standard forward model calculation\n!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability\n\n! *** This version does not use McICA (imca = 0) ***\n\n! Set default icld to select of clear or cloud calculation and cloud overlap method  \n! icld = 0, clear only\n! icld = 1, with clouds using random cloud overlap\n! icld = 2, with clouds using maximum/random cloud overlap\n! icld = 3, with clouds using maximum cloud overlap (McICA only)\n      if (icld.lt.0.or.icld.gt.3) icld = 2\n\n! Set iaer to select aerosol option\n! iaer = 0, no aerosols\n! icld = 10, input total aerosol optical depth (tauaer) directly\n      iaer = 10\n\n! Call model and data initialization, compute lookup tables, perform\n! reduction of g-points from 256 to 140 for input absorption coefficient \n! data and other arrays.\n!\n! In a GCM this call should be placed in the model initialization\n! area, since this has to be called only once.  \n!      call rrtmg_lw_ini(cpdair)\n\n!  This is the main longitude/column loop within RRTMG.\n      do iplon = 1, ncol\n\n!  Prepare atmospheric profile from GCM for use in RRTMG, and define\n!  other input parameters.  \n\n         call inatm (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &\n              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &\n              cldfr, taucld, cicewp, cliqwp, reice, reliq, tauaer, &\n              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &\n              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &\n              cldfrac, tauc, ciwp, clwp, rei, rel, taua)\n\n!  For cloudy atmosphere, use cldprop to set cloud optical properties based on\n!  input cloud physical properties.  Select method based on choices described\n!  in cldprop.  Cloud fraction, water path, liquid droplet and ice particle\n!  effective radius must be passed into cldprop.  Cloud fraction and cloud\n!  optical depth are transferred to rrtmg_lw arrays in cldprop.  \n\n         call cldprop(nlayers, inflag, iceflag, liqflag, cldfrac, tauc, &\n                      ciwp, clwp, rei, rel, ncbands, taucloud)\n\n! Calculate information needed by the radiative transfer routine\n! that is specific to this atmosphere, especially some of the \n! coefficients and indices needed to compute the optical depths\n! by interpolating data from stored reference atmospheres. \n\n         call setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &\n                      coldry, wkl, wbrodl, &\n                      laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                      idrv, dplankbnd_dt, &\n                      colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                      colbrd, fac00, fac01, fac10, fac11, &\n                      rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                      rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                      rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                      selffac, selffrac, indself, forfac, forfrac, indfor, &\n                      minorfrac, scaleminor, scaleminorn2, indminor)\n\n!  Calculate the gaseous optical depths and Planck fractions for \n!  each longwave spectral band.\n\n         call taumol(nlayers, pavel, wx, coldry, &\n                     laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                     colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                     colbrd, fac00, fac01, fac10, fac11, &\n                     rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                     rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                     rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                     selffac, selffrac, indself, forfac, forfrac, indfor, &\n                     minorfrac, scaleminor, scaleminorn2, indminor, &\n                     fracs, taug)\n\n! Combine gaseous and aerosol optical depths, if aerosol active\n         if (iaer .eq. 0) then\n            do k = 1, nlayers\n               do ig = 1, ngptlw\n                  taut(k,ig) = taug(k,ig)\n               enddo\n            enddo\n         elseif (iaer .eq. 10) then\n            do k = 1, nlayers\n               do ig = 1, ngptlw\n                  taut(k,ig) = taug(k,ig) + taua(k,ngb(ig))\n               enddo\n            enddo\n         endif\n\n! Call the radiative transfer routine.\n! Either routine can be called to do clear sky calculation.  If clouds\n! are present, then select routine based on cloud overlap assumption\n! to be used.  Clear sky calculation is done simultaneously.\n\n        if (icld .eq. 1) then\n           call rtrn(nlayers, istart, iend, iout, pz, semiss, ncbands, &\n                  cldfrac, taucloud, planklay, planklev, plankbnd, &\n                  pwvcm, fracs, taut, &\n                  totuflux, totdflux, fnet, htr, &\n                  totuclfl, totdclfl, fnetc, htrc, &\n                  idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )\n        else\n           call rtrnmr(nlayers, istart, iend, iout, pz, semiss, ncbands, &\n                  cldfrac, taucloud, planklay, planklev, plankbnd, &\n                  pwvcm, fracs, taut, &\n                  totuflux, totdflux, fnet, htr, &\n                  totuclfl, totdclfl, fnetc, htrc, &\n                  idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )\n        endif\n\n!  Transfer up and down fluxes and heating rate to output arrays.\n!  Vertical indexing goes from bottom to top; reverse here for GCM if necessary.\n\n           do k = 0, nlayers\n              uflx(iplon,k+1) = totuflux(k)\n              dflx(iplon,k+1) = totdflux(k)\n              uflxc(iplon,k+1) = totuclfl(k)\n              dflxc(iplon,k+1) = totdclfl(k)\n           enddo\n           do k = 0, nlayers-1\n              hr(iplon,k+1) = htr(k)\n              hrc(iplon,k+1) = htrc(k)\n           enddo\n\n!  If idrv=1 option is active, transfer upward flux derivatives to output arrays.\n\n         if (idrv .eq. 1) then \n            do k = 0, nlayers\n               duflx_dt(iplon,k+1) = dtotuflux_dt(k)\n               duflxc_dt(iplon,k+1) = dtotuclfl_dt(k)\n            enddo\n         endif\n\n! End longitude/column loop\n      enddo\n\n      end subroutine rrtmg_lw\n\n!***************************************************************************\n      subroutine inatm (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, cfc11vmr, cfc12vmr, &\n              cfc22vmr, ccl4vmr, emis, inflglw, iceflglw, liqflglw, &\n              cldfr, taucld, cicewp, cliqwp, reice, reliq, tauaer, &\n              nlayers, pavel, pz, tavel, tz, tbound, semiss, coldry, &\n              wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &\n              cldfrac, tauc, ciwp, clwp, rei, rel, taua)\n!***************************************************************************\n!\n!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_LW.\n!  Set other RRTMG_LW input parameters.  \n!\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use parrrtm, only : nbndlw, ngptlw, nmol, maxxsec, mxmol\n      use rrlw_con, only: fluxfac, heatfac, oneminus, pi, grav, avogad\n      use rrlw_wvn, only: ng, nspa, nspb, wavenum1, wavenum2, delwave, ixindx\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: iplon           ! column loop index\n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag\n      integer(kind=im), intent(in) :: iaer            ! aerosol option flag\n\n      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc11vmr(:,:)      ! CFC11 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc12vmr(:,:)      ! CFC12 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cfc22vmr(:,:)      ! CFC22 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ccl4vmr(:,:)       ! CCL4 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: emis(:,:)          ! Surface emissivity\n                                                      !    Dimensions: (ncol,nbndlw)\n\n      integer(kind=im), intent(in) :: inflglw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflglw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflglw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfr(:,:)         ! Cloud fraction\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cicewp(:,:)        ! Cloud ice water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: cliqwp(:,:)        ! Cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: reice(:,:)         ! Cloud ice effective size (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: reliq(:,:)         ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: taucld(:,:,:)      ! In-cloud optical depth\n                                                      !    Dimensions: (nbndlw,ncol,nlay)\n      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth\n                                                      !    Dimensions: (ncol,nlay,nbndlw)\n\n! ----- Output -----\n! Atmosphere\n      integer(kind=im), intent(out) :: nlayers        ! number of layers\n\n      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) \n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)\n                                                      !    Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)\n      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wbrodl(:)         ! broadening gas column density (mol/cm2)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)\n                                                      !    Dimensions: (mxmol,nlay)\n      real(kind=rb), intent(out) :: wx(:,:)           ! cross-section amounts (mol/cm-2)\n                                                      !    Dimensions: (maxxsec,nlay)\n      real(kind=rb), intent(out) :: pwvcm             ! precipitable water vapor (cm)\n      real(kind=rb), intent(out) :: semiss(:)         ! lw surface emissivity\n                                                      !    Dimensions: (nbndlw)\n\n! Atmosphere/clouds - cldprop\n      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method\n      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties\n      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties\n\n      real(kind=rb), intent(out) :: cldfrac(:)        ! layer cloud fraction\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: ciwp(:)           ! cloud ice water path\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: clwp(:)           ! cloud liquid water path\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: rel(:)            ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: rei(:)            ! cloud ice particle effective size (microns)\n                                                      !    Dimensions: (nlay)\n      real(kind=rb), intent(out) :: tauc(:,:)         ! in-cloud optical depth\n                                                      !    Dimensions: (nbndlw,nlay)\n      real(kind=rb), intent(out) :: taua(:,:)         ! aerosol optical depth\n                                                      !    Dimensions: (nlay,nbndlw)\n\n\n! ----- Local -----\n      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)\n      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)\n!      real(kind=rb), parameter :: amc = 44.0098_rb    ! Molecular weight of carbon dioxide (g/mol)\n!      real(kind=rb), parameter :: amo = 47.9998_rb    ! Molecular weight of ozone (g/mol)\n!      real(kind=rb), parameter :: amo2 = 31.9999_rb   ! Molecular weight of oxygen (g/mol)\n!      real(kind=rb), parameter :: amch4 = 16.0430_rb  ! Molecular weight of methane (g/mol)\n!      real(kind=rb), parameter :: amn2o = 44.0128_rb  ! Molecular weight of nitrous oxide (g/mol)\n!      real(kind=rb), parameter :: amc11 = 137.3684_rb ! Molecular weight of CFC11 (g/mol) - CCL3F\n!      real(kind=rb), parameter :: amc12 = 120.9138_rb ! Molecular weight of CFC12 (g/mol) - CCL2F2\n!      real(kind=rb), parameter :: amc22 = 86.4688_rb  ! Molecular weight of CFC22 (g/mol) - CHCLF2\n!      real(kind=rb), parameter :: amcl4 = 153.823_rb  ! Molecular weight of CCL4 (g/mol) - CCL4\n\n! Set molecular weight ratios (for converting mmr to vmr)\n!  e.g. h2ovmr = h2ommr * amdw)\n      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor\n      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide\n      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone\n      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane\n      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide\n      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen\n      real(kind=rb), parameter :: amdc1 = 0.210852_rb ! Molecular weight of dry air / CFC11\n      real(kind=rb), parameter :: amdc2 = 0.239546_rb ! Molecular weight of dry air / CFC12\n\n      integer(kind=im) :: isp, l, ix, n, imol, ib       ! Loop indices\n      real(kind=rb) :: amm, amttl, wvttl, wvsh, summol  \n\n! Add one to nlayers here to include extra model layer at top of atmosphere\n      nlayers = nlay\n\n!  Initialize all molecular amounts and cloud properties to zero here, then pass input amounts\n!  into RRTM arrays below.\n\n      wkl(:,:) = 0.0_rb\n      wx(:,:) = 0.0_rb\n      cldfrac(:) = 0.0_rb\n      tauc(:,:) = 0.0_rb\n      ciwp(:) = 0.0_rb\n      clwp(:) = 0.0_rb\n      rei(:) = 0.0_rb\n      rel(:) = 0.0_rb\n      taua(:,:) = 0.0_rb\n      amttl = 0.0_rb\n      wvttl = 0.0_rb\n \n!  Set surface temperature.\n      tbound = tsfc(iplon)\n\n!  Install input GCM arrays into RRTMG_LW arrays for pressure, temperature,\n!  and molecular amounts.  \n!  Pressures are input in mb, or are converted to mb here.\n!  Molecular amounts are input in volume mixing ratio, or are converted from \n!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio\n!  here. These are then converted to molecular amount (molec/cm2) below.  \n!  The dry air column COLDRY (in molec/cm2) is calculated from the level \n!  pressures, pz (in mb), based on the hydrostatic equation and includes a \n!  correction to account for h2o in the layer.  The molecular weight of moist \n!  air (amm) is calculated for each layer.  \n!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below\n!  assumes GCM input fields are also bottom to top. Input layer indexing\n!  from GCM fields should be reversed here if necessary.\n\n      pz(0) = plev(iplon,1)\n      tz(0) = tlev(iplon,1)\n      do l = 1, nlayers\n         pavel(l) = play(iplon,l)\n         tavel(l) = tlay(iplon,l)\n         pz(l) = plev(iplon,l+1)\n         tz(l) = tlev(iplon,l+1)\n! For h2o input in vmr:\n         wkl(1,l) = h2ovmr(iplon,l)\n! For h2o input in mmr:\n!         wkl(1,l) = h2o(iplon,l)*amdw\n! For h2o input in specific humidity;\n!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw\n         wkl(2,l) = co2vmr(iplon,l)\n         wkl(3,l) = o3vmr(iplon,l)\n         wkl(4,l) = n2ovmr(iplon,l)\n         wkl(6,l) = ch4vmr(iplon,l)\n         wkl(7,l) = o2vmr(iplon,l)\n         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            \n         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &\n                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))\n      enddo\n\n! Set cross section molecule amounts from input; convert to vmr if necessary\n      do l=1, nlayers\n         wx(1,l) = ccl4vmr(iplon,l)\n         wx(2,l) = cfc11vmr(iplon,l)\n         wx(3,l) = cfc12vmr(iplon,l)\n         wx(4,l) = cfc22vmr(iplon,l)\n      enddo      \n\n! The following section can be used to set values for an additional layer (from\n! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. \n! Temperature and molecular amounts in the extra model layer are set to \n! their values in the top GCM model layer, though these can be modified\n! here if necessary. \n! If this feature is utilized, increase nlayers by one above, limit the two\n! loops above to (nlayers-1), and set the top most (extra) layer values here. \n\n!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)\n!      tavel(nlayers) = tavel(nlayers-1)\n!      pz(nlayers) = 1.e-4_rb\n!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))\n!      tz(nlayers) = tz(nlayers-1)\n!      wkl(1,nlayers) = wkl(1,nlayers-1)\n!      wkl(2,nlayers) = wkl(2,nlayers-1)\n!      wkl(3,nlayers) = wkl(3,nlayers-1)\n!      wkl(4,nlayers) = wkl(4,nlayers-1)\n!      wkl(6,nlayers) = wkl(6,nlayers-1)\n!      wkl(7,nlayers) = wkl(7,nlayers-1)\n!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw\n!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &\n!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))\n!      wx(1,nlayers) = wx(1,nlayers-1)\n!      wx(2,nlayers) = wx(2,nlayers-1)\n!      wx(3,nlayers) = wx(3,nlayers-1)\n!      wx(4,nlayers) = wx(4,nlayers-1)\n\n! At this point all moleculular amounts in wkl and wx are in volume mixing ratio; \n! convert to molec/cm2 based on coldry for use in rrtm.  also, compute precipitable\n! water vapor for diffusivity angle adjustments in rtrn and rtrnmr.\n\n      do l = 1, nlayers\n         summol = 0.0_rb\n         do imol = 2, nmol\n            summol = summol + wkl(imol,l)\n         enddo\n         wbrodl(l) = coldry(l) * (1._rb - summol)\n         do imol = 1, nmol\n            wkl(imol,l) = coldry(l) * wkl(imol,l)\n         enddo\n         amttl = amttl + coldry(l)+wkl(1,l)\n         wvttl = wvttl + wkl(1,l)\n         do ix = 1,maxxsec\n            if (ixindx(ix) .ne. 0) then\n               wx(ixindx(ix),l) = coldry(l) * wx(ix,l) * 1.e-20_rb\n            endif\n         enddo\n      enddo\n\n      wvsh = (amw * wvttl) / (amd * amttl)\n      pwvcm = wvsh * (1.e3_rb * pz(0)) / (1.e2_rb * grav)\n\n! Set spectral surface emissivity for each longwave band.  \n\n      do n=1,nbndlw\n         semiss(n) = emis(iplon,n)\n!          semiss(n) = 1.0_rb\n      enddo\n\n! Transfer aerosol optical properties to RRTM variable;\n! modify to reverse layer indexing here if necessary.\n\n     if (iaer .ge. 1) then\n        do l = 1, nlayers\n           do ib = 1, nbndlw\n              taua(l,ib) = tauaer(iplon,l,ib)\n           enddo\n        enddo\n      endif\n\n! Transfer cloud fraction and cloud optical properties to RRTM variables,\n! modify to reverse layer indexing here if necessary.\n\n      if (icld .ge. 1) then \n         inflag = inflglw\n         iceflag = iceflglw\n         liqflag = liqflglw\n\n! Move incoming GCM cloud arrays to RRTMG cloud arrays.\n! For GCM input, incoming reice is defined based on selected ice parameterization (inflglw)\n\n         do l = 1, nlayers\n            cldfrac(l) = cldfr(iplon,l)\n            ciwp(l) = cicewp(iplon,l)\n            clwp(l) = cliqwp(iplon,l)\n            rei(l) = reice(iplon,l)\n            rel(l) = reliq(iplon,l)\n            do n=1,nbndlw\n               tauc(n,l) = taucld(n,iplon,l)\n!               ssac(n,l) = ssacld(n,iplon,l)\n!               asmc(n,l) = asmcld(n,iplon,l)\n            enddo\n         enddo\n\n! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.\n\n!         cldfrac(nlayers) = 0.0_rb\n!         tauc(:nbndlw,nlayers) = 0.0_rb\n!         ciwp(nlayers) = 0.0_rb\n!         clwp(nlayers) = 0.0_rb\n!         rei(nlayers) = 0.0_rb\n!         rel(nlayers) = 0.0_rb\n!         taua(nlayers,:) = 0.0_rb\n\n      endif\n      \n      end subroutine inatm\n\n      end module rrtmg_lw_rad\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_rtrnmc.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_rtrnmc.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.7 $\n!     created:   $Date: 2009/11/12 20:52:25 $\n!\n      module rrtmg_lw_rtrnmc\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! --------- Modules ----------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : mg, nbndlw, ngptlw\n      use rrlw_con, only: fluxfac, heatfac\n      use rrlw_wvn, only: delwave, ngb, ngs\n      use rrlw_tbl, only: tblint, bpade, tau_tbl, exp_tbl, tfn_tbl\n      use rrlw_vsn, only: hvrrtc, hnamrtc\n\n      implicit none\n\n      contains\n\n!-----------------------------------------------------------------------------\n      subroutine rtrnmc(nlayers, istart, iend, iout, pz, semiss, ncbands, &\n                        cldfmc, taucmc, planklay, planklev, plankbnd, &\n                        pwvcm, fracs, taut, &\n                        totuflux, totdflux, fnet, htr, &\n                        totuclfl, totdclfl, fnetc, htrc, &\n                        idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )\n!-----------------------------------------------------------------------------\n!\n!  Original version:   E. J. Mlawer, et al. RRTM_V3.0\n!  Revision for GCMs:  Michael J. Iacono; October, 2002\n!  Revision for F90:  Michael J. Iacono; June, 2006\n!  Revision for dFdT option: M. J. Iacono and E. J. Mlawer, November 2009\n!\n!  This program calculates the upward fluxes, downward fluxes, and\n!  heating rates for an arbitrary clear or cloudy atmosphere.  The input\n!  to this program is the atmospheric profile, all Planck function\n!  information, and the cloud fraction by layer.  A variable diffusivity \n!  angle (SECDIFF) is used for the angle integration.  Bands 2-3 and 5-9 \n!  use a value for SECDIFF that varies from 1.50 to 1.80 as a function of \n!  the column water vapor, and other bands use a value of 1.66.  The Gaussian \n!  weight appropriate to this angle (WTDIFF=0.5) is applied here.  Note that \n!  use of the emissivity angle for the flux integration can cause errors of \n!  1 to 4 W/m2 within cloudy layers.  \n!  Clouds are treated with the McICA stochastic approach and maximum-random\n!  cloud overlap. \n!  This subroutine also provides the optional capability to calculate\n!  the derivative of upward flux respect to surface temperature using\n!  the pre-tabulated derivative of the Planck function with respect to \n!  temperature integrated over each spectral band.\n!***************************************************************************\n\n! ------- Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: istart          ! beginning band of calculation\n      integer(kind=im), intent(in) :: iend            ! ending band of calculation\n      integer(kind=im), intent(in) :: iout            ! output option flag\n\n! Atmosphere\n      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: pwvcm              ! precipitable water vapor (cm)\n      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity\n                                                      !    Dimensions: (nbndlw)\n      real(kind=rb), intent(in) :: planklay(:,:)      ! \n                                                      !    Dimensions: (nlayers,nbndlw)\n      real(kind=rb), intent(in) :: planklev(0:,:)     ! \n                                                      !    Dimensions: (0:nlayers,nbndlw)\n      real(kind=rb), intent(in) :: plankbnd(:)        ! \n                                                      !    Dimensions: (nbndlw)\n      real(kind=rb), intent(in) :: fracs(:,:)         ! \n                                                      !    Dimensions: (nlayers,ngptw)\n      real(kind=rb), intent(in) :: taut(:,:)          ! gaseous + aerosol optical depths\n                                                      !    Dimensions: (nlayers,ngptlw)\n\n! Clouds\n      integer(kind=im), intent(in) :: ncbands         ! number of cloud spectral bands\n      real(kind=rb), intent(in) :: cldfmc(:,:)        ! layer cloud fraction [mcica]\n                                                      !    Dimensions: (ngptlw,nlayers)\n      real(kind=rb), intent(in) :: taucmc(:,:)        ! layer cloud optical depth [mcica]\n                                                      !    Dimensions: (ngptlw,nlayers)\n      integer(kind=im), intent(in) :: idrv            ! flag for calculation of dF/dt from \n                                                      ! Planck derivative [0=off, 1=on]\n      real(kind=rb), intent(in) :: dplankbnd_dt(:)    ! derivative of Planck function wrt temp\n                                                      !    Dimensions: (nbndlw)\n\n! ----- Output -----\n      real(kind=rb), intent(out) :: totuflux(0:)      ! upward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: totdflux(0:)      ! downward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: fnet(0:)          ! net longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: htr(0:)           ! longwave heating rate (k/day)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: totuclfl(0:)      ! clear sky upward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: totdclfl(0:)      ! clear sky downward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: fnetc(0:)         ! clear sky net longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: htrc(0:)          ! clear sky longwave heating rate (k/day)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: dtotuflux_dt(0:)  ! change in upward longwave flux (w/m2/k)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: dtotuclfl_dt(0:)  ! change in upward longwave flux (w/m2/k)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (0:nlayers)\n\n! ----- Local -----\n! Declarations for radiative transfer\n      real(kind=rb) :: abscld(nlayers,ngptlw)\n      real(kind=rb) :: atot(nlayers)\n      real(kind=rb) :: atrans(nlayers)\n      real(kind=rb) :: bbugas(nlayers)\n      real(kind=rb) :: bbutot(nlayers)\n      real(kind=rb) :: clrurad(0:nlayers)\n      real(kind=rb) :: clrdrad(0:nlayers)\n      real(kind=rb) :: efclfrac(nlayers,ngptlw)\n      real(kind=rb) :: uflux(0:nlayers)\n      real(kind=rb) :: dflux(0:nlayers)\n      real(kind=rb) :: urad(0:nlayers)\n      real(kind=rb) :: drad(0:nlayers)\n      real(kind=rb) :: uclfl(0:nlayers)\n      real(kind=rb) :: dclfl(0:nlayers)\n      real(kind=rb) :: odcld(nlayers,ngptlw)\n\n\n      real(kind=rb) :: secdiff(nbndlw)                 ! secant of diffusivity angle\n      real(kind=rb) :: a0(nbndlw),a1(nbndlw),a2(nbndlw)! diffusivity angle adjustment coefficients\n      real(kind=rb) :: wtdiff, rec_6\n      real(kind=rb) :: transcld, radld, radclrd, plfrac, blay, dplankup, dplankdn\n      real(kind=rb) :: odepth, odtot, odepth_rec, odtot_rec, gassrc\n      real(kind=rb) :: tblind, tfactot, bbd, bbdtot, tfacgas, transc, tausfac\n      real(kind=rb) :: rad0, reflect, radlu, radclru\n\n      real(kind=rb) :: duflux_dt(0:nlayers)\n      real(kind=rb) :: duclfl_dt(0:nlayers)\n      real(kind=rb) :: d_urad_dt(0:nlayers)\n      real(kind=rb) :: d_clrurad_dt(0:nlayers)\n      real(kind=rb) :: d_rad0_dt, d_radlu_dt, d_radclru_dt\n\n      integer(kind=im) :: icldlyr(nlayers)                  ! flag for cloud in layer\n      integer(kind=im) :: ibnd, ib, iband, lay, lev, l, ig  ! loop indices\n      integer(kind=im) :: igc                               ! g-point interval counter\n      integer(kind=im) :: iclddn                            ! flag for cloud in down path\n      integer(kind=im) :: ittot, itgas, itr                 ! lookup table indices\n\n! ------- Definitions -------\n! input\n!    nlayers                      ! number of model layers\n!    ngptlw                       ! total number of g-point subintervals\n!    nbndlw                       ! number of longwave spectral bands\n!    ncbands                      ! number of spectral bands for clouds\n!    secdiff                      ! diffusivity angle\n!    wtdiff                       ! weight for radiance to flux conversion\n!    pavel                        ! layer pressures (mb)\n!    pz                           ! level (interface) pressures (mb)\n!    tavel                        ! layer temperatures (k)\n!    tz                           ! level (interface) temperatures(mb)\n!    tbound                       ! surface temperature (k)\n!    cldfrac                      ! layer cloud fraction\n!    taucloud                     ! layer cloud optical depth\n!    itr                          ! integer look-up table index\n!    icldlyr                      ! flag for cloudy layers\n!    iclddn                       ! flag for cloud in column at any layer\n!    semiss                       ! surface emissivities for each band\n!    reflect                      ! surface reflectance\n!    bpade                        ! 1/(pade constant)\n!    tau_tbl                      ! clear sky optical depth look-up table\n!    exp_tbl                      ! exponential look-up table for transmittance\n!    tfn_tbl                      ! tau transition function look-up table\n\n! local\n!    atrans                       ! gaseous absorptivity\n!    abscld                       ! cloud absorptivity\n!    atot                         ! combined gaseous and cloud absorptivity\n!    odclr                        ! clear sky (gaseous) optical depth\n!    odcld                        ! cloud optical depth\n!    odtot                        ! optical depth of gas and cloud\n!    tfacgas                      ! gas-only pade factor, used for planck fn\n!    tfactot                      ! gas and cloud pade factor, used for planck fn\n!    bbdgas                       ! gas-only planck function for downward rt\n!    bbugas                       ! gas-only planck function for upward rt\n!    bbdtot                       ! gas and cloud planck function for downward rt\n!    bbutot                       ! gas and cloud planck function for upward calc.\n!    gassrc                       ! source radiance due to gas only\n!    efclfrac                     ! effective cloud fraction\n!    radlu                        ! spectrally summed upward radiance \n!    radclru                      ! spectrally summed clear sky upward radiance \n!    urad                         ! upward radiance by layer\n!    clrurad                      ! clear sky upward radiance by layer\n!    radld                        ! spectrally summed downward radiance \n!    radclrd                      ! spectrally summed clear sky downward radiance \n!    drad                         ! downward radiance by layer\n!    clrdrad                      ! clear sky downward radiance by layer\n!    d_radlu_dt                   ! spectrally summed upward radiance \n!    d_radclru_dt                 ! spectrally summed clear sky upward radiance \n!    d_urad_dt                    ! upward radiance by layer\n!    d_clrurad_dt                 ! clear sky upward radiance by layer\n\n! output\n!    totuflux                     ! upward longwave flux (w/m2)\n!    totdflux                     ! downward longwave flux (w/m2)\n!    fnet                         ! net longwave flux (w/m2)\n!    htr                          ! longwave heating rate (k/day)\n!    totuclfl                     ! clear sky upward longwave flux (w/m2)\n!    totdclfl                     ! clear sky downward longwave flux (w/m2)\n!    fnetc                        ! clear sky net longwave flux (w/m2)\n!    htrc                         ! clear sky longwave heating rate (k/day)\n!    dtotuflux_dt                 ! change in upward longwave flux (w/m2/k)\n!                                 ! with respect to surface temperature\n!    dtotuclfl_dt                 ! change in clear sky upward longwave flux (w/m2/k)\n!                                 ! with respect to surface temperature\n\n\n! This secant and weight corresponds to the standard diffusivity \n! angle.  This initial value is redefined below for some bands.\n      data wtdiff /0.5_rb/\n      data rec_6 /0.166667_rb/\n\n! Reset diffusivity angle for Bands 2-3 and 5-9 to vary (between 1.50\n! and 1.80) as a function of total column water vapor.  The function\n! has been defined to minimize flux and cooling rate errors in these bands\n! over a wide range of precipitable water values.\n      data a0 / 1.66_rb,  1.55_rb,  1.58_rb,  1.66_rb, &\n                1.54_rb, 1.454_rb,  1.89_rb,  1.33_rb, &\n               1.668_rb,  1.66_rb,  1.66_rb,  1.66_rb, &\n                1.66_rb,  1.66_rb,  1.66_rb,  1.66_rb /\n      data a1 / 0.00_rb,  0.25_rb,  0.22_rb,  0.00_rb, &\n                0.13_rb, 0.446_rb, -0.10_rb,  0.40_rb, &\n              -0.006_rb,  0.00_rb,  0.00_rb,  0.00_rb, &\n                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /\n      data a2 / 0.00_rb, -12.0_rb, -11.7_rb,  0.00_rb, &\n               -0.72_rb,-0.243_rb,  0.19_rb,-0.062_rb, &\n               0.414_rb,  0.00_rb,  0.00_rb,  0.00_rb, &\n                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /\n\n      hvrrtc = '$Revision: 1.7 $'\n\n      do ibnd = 1,nbndlw\n         if (ibnd.eq.1 .or. ibnd.eq.4 .or. ibnd.ge.10) then\n           secdiff(ibnd) = 1.66_rb\n         else\n           secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)\n           if (secdiff(ibnd) .gt. 1.80_rb) secdiff(ibnd) = 1.80_rb\n           if (secdiff(ibnd) .lt. 1.50_rb) secdiff(ibnd) = 1.50_rb\n         endif\n      enddo\n\n      urad(0) = 0.0_rb\n      drad(0) = 0.0_rb\n      totuflux(0) = 0.0_rb\n      totdflux(0) = 0.0_rb\n      clrurad(0) = 0.0_rb\n      clrdrad(0) = 0.0_rb\n      totuclfl(0) = 0.0_rb\n      totdclfl(0) = 0.0_rb\n      if (idrv .eq. 1) then\n         d_urad_dt(0) = 0.0_rb\n         d_clrurad_dt(0) = 0.0_rb\n         dtotuflux_dt(0) = 0.0_rb\n         dtotuclfl_dt(0) = 0.0_rb\n      endif\n\n      do lay = 1, nlayers\n         urad(lay) = 0.0_rb\n         drad(lay) = 0.0_rb\n         totuflux(lay) = 0.0_rb\n         totdflux(lay) = 0.0_rb\n         clrurad(lay) = 0.0_rb\n         clrdrad(lay) = 0.0_rb\n         totuclfl(lay) = 0.0_rb\n         totdclfl(lay) = 0.0_rb\n         icldlyr(lay) = 0\n         if (idrv .eq. 1) then\n            d_urad_dt(lay) = 0.0_rb\n            d_clrurad_dt(lay) = 0.0_rb\n            dtotuflux_dt(lay) = 0.0_rb\n            dtotuclfl_dt(lay) = 0.0_rb\n         endif\n\n! Change to band loop?\n         do ig = 1, ngptlw\n            if (cldfmc(ig,lay) .eq. 1._rb) then\n               ib = ngb(ig)\n               odcld(lay,ig) = secdiff(ib) * taucmc(ig,lay)\n               transcld = exp(-odcld(lay,ig))\n               abscld(lay,ig) = 1._rb - transcld\n               efclfrac(lay,ig) = abscld(lay,ig) * cldfmc(ig,lay)\n               icldlyr(lay) = 1\n            else\n               odcld(lay,ig) = 0.0_rb\n               abscld(lay,ig) = 0.0_rb\n               efclfrac(lay,ig) = 0.0_rb\n            endif\n         enddo\n\n      enddo\n\n      igc = 1\n! Loop over frequency bands.\n      do iband = istart, iend\n\n! Reinitialize g-point counter for each band if output for each band is requested.\n         if (iout.gt.0.and.iband.ge.2) igc = ngs(iband-1)+1\n\n! Loop over g-channels.\n 1000    continue\n\n! Radiative transfer starts here.\n         radld = 0._rb\n         radclrd = 0._rb\n         iclddn = 0\n\n! Downward radiative transfer loop.  \n\n         do lev = nlayers, 1, -1\n               plfrac = fracs(lev,igc)\n               blay = planklay(lev,iband)\n               dplankup = planklev(lev,iband) - blay\n               dplankdn = planklev(lev-1,iband) - blay\n               odepth = secdiff(iband) * taut(lev,igc)\n               if (odepth .lt. 0.0_rb) odepth = 0.0_rb\n!  Cloudy layer\n               if (icldlyr(lev).eq.1) then\n                  iclddn = 1\n                  odtot = odepth + odcld(lev,igc)\n                  if (odtot .lt. 0.06_rb) then\n                     atrans(lev) = odepth - 0.5_rb*odepth*odepth\n                     odepth_rec = rec_6*odepth\n                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)\n\n                     atot(lev) =  odtot - 0.5_rb*odtot*odtot\n                     odtot_rec = rec_6*odtot\n                     bbdtot =  plfrac * (blay+dplankdn*odtot_rec)\n                     bbd = plfrac*(blay+dplankdn*odepth_rec)\n                     radld = radld - radld * (atrans(lev) + &\n                         efclfrac(lev,igc) * (1. - atrans(lev))) + &\n                         gassrc + cldfmc(igc,lev) * &\n                         (bbdtot * atot(lev) - gassrc)\n                     drad(lev-1) = drad(lev-1) + radld\n                  \n                     bbugas(lev) =  plfrac * (blay+dplankup*odepth_rec)\n                     bbutot(lev) =  plfrac * (blay+dplankup*odtot_rec)\n\n                  elseif (odepth .le. 0.06_rb) then\n                     atrans(lev) = odepth - 0.5_rb*odepth*odepth\n                     odepth_rec = rec_6*odepth\n                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)\n\n                     odtot = odepth + odcld(lev,igc)\n                     tblind = odtot/(bpade+odtot)\n                     ittot = tblint*tblind + 0.5_rb\n                     tfactot = tfn_tbl(ittot)\n                     bbdtot = plfrac * (blay + tfactot*dplankdn)\n                     bbd = plfrac*(blay+dplankdn*odepth_rec)\n                     atot(lev) = 1. - exp_tbl(ittot)\n\n                     radld = radld - radld * (atrans(lev) + &\n                         efclfrac(lev,igc) * (1._rb - atrans(lev))) + &\n                         gassrc + cldfmc(igc,lev) * &\n                         (bbdtot * atot(lev) - gassrc)\n                     drad(lev-1) = drad(lev-1) + radld\n\n                     bbugas(lev) = plfrac * (blay + dplankup*odepth_rec)\n                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)\n\n                  else\n\n                     tblind = odepth/(bpade+odepth)\n                     itgas = tblint*tblind+0.5_rb\n                     odepth = tau_tbl(itgas)\n                     atrans(lev) = 1._rb - exp_tbl(itgas)\n                     tfacgas = tfn_tbl(itgas)\n                     gassrc = atrans(lev) * plfrac * (blay + tfacgas*dplankdn)\n\n                     odtot = odepth + odcld(lev,igc)\n                     tblind = odtot/(bpade+odtot)\n                     ittot = tblint*tblind + 0.5_rb\n                     tfactot = tfn_tbl(ittot)\n                     bbdtot = plfrac * (blay + tfactot*dplankdn)\n                     bbd = plfrac*(blay+tfacgas*dplankdn)\n                     atot(lev) = 1._rb - exp_tbl(ittot)\n\n                  radld = radld - radld * (atrans(lev) + &\n                    efclfrac(lev,igc) * (1._rb - atrans(lev))) + &\n                    gassrc + cldfmc(igc,lev) * &\n                    (bbdtot * atot(lev) - gassrc)\n                  drad(lev-1) = drad(lev-1) + radld\n                  bbugas(lev) = plfrac * (blay + tfacgas * dplankup)\n                  bbutot(lev) = plfrac * (blay + tfactot * dplankup)\n                  endif\n!  Clear layer\n               else\n                  if (odepth .le. 0.06_rb) then\n                     atrans(lev) = odepth-0.5_rb*odepth*odepth\n                     odepth = rec_6*odepth\n                     bbd = plfrac*(blay+dplankdn*odepth)\n                     bbugas(lev) = plfrac*(blay+dplankup*odepth)\n                  else\n                     tblind = odepth/(bpade+odepth)\n                     itr = tblint*tblind+0.5_rb\n                     transc = exp_tbl(itr)\n                     atrans(lev) = 1._rb-transc\n                     tausfac = tfn_tbl(itr)\n                     bbd = plfrac*(blay+tausfac*dplankdn)\n                     bbugas(lev) = plfrac * (blay + tausfac * dplankup)\n                  endif   \n                  radld = radld + (bbd-radld)*atrans(lev)\n                  drad(lev-1) = drad(lev-1) + radld\n               endif\n!  Set clear sky stream to total sky stream as long as layers\n!  remain clear.  Streams diverge when a cloud is reached (iclddn=1),\n!  and clear sky stream must be computed separately from that point.\n                  if (iclddn.eq.1) then\n                     radclrd = radclrd + (bbd-radclrd) * atrans(lev) \n                     clrdrad(lev-1) = clrdrad(lev-1) + radclrd\n                  else\n                     radclrd = radld\n                     clrdrad(lev-1) = drad(lev-1)\n                  endif\n            enddo\n\n! Spectral emissivity & reflectance\n!  Include the contribution of spectrally varying longwave emissivity\n!  and reflection from the surface to the upward radiative transfer.\n!  Note: Spectral and Lambertian reflection are identical for the\n!  diffusivity angle flux integration used here.\n!  Note: The emissivity is applied to plankbnd and dplankbnd_dt when \n!  they are defined in subroutine setcoef. \n\n         rad0 = fracs(1,igc) * plankbnd(iband)\n         if (idrv .eq. 1) then\n            d_rad0_dt = fracs(1,igc) * dplankbnd_dt(iband)\n         endif\n\n!  Add in specular reflection of surface downward radiance.\n         reflect = 1._rb - semiss(iband)\n         radlu = rad0 + reflect * radld\n         radclru = rad0 + reflect * radclrd\n\n\n! Upward radiative transfer loop.\n         urad(0) = urad(0) + radlu\n         clrurad(0) = clrurad(0) + radclru\n         if (idrv .eq. 1) then\n            d_radlu_dt = d_rad0_dt\n            d_urad_dt(0) = d_urad_dt(0) + d_radlu_dt\n            d_radclru_dt = d_rad0_dt\n            d_clrurad_dt(0) = d_clrurad_dt(0) + d_radclru_dt\n         endif\n\n         do lev = 1, nlayers\n!  Cloudy layer\n            if (icldlyr(lev) .eq. 1) then\n               gassrc = bbugas(lev) * atrans(lev)\n               radlu = radlu - radlu * (atrans(lev) + &\n                   efclfrac(lev,igc) * (1._rb - atrans(lev))) + &\n                   gassrc + cldfmc(igc,lev) * &\n                   (bbutot(lev) * atot(lev) - gassrc)\n               urad(lev) = urad(lev) + radlu\n               if (idrv .eq. 1) then\n                  d_radlu_dt = d_radlu_dt * cldfmc(igc,lev) * (1.0_rb - atot(lev)) + &\n                         d_radlu_dt * (1.0_rb - cldfmc(igc,lev)) * (1.0_rb - atrans(lev))\n                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt\n               endif\n!  Clear layer\n            else\n               radlu = radlu + (bbugas(lev)-radlu)*atrans(lev)\n               urad(lev) = urad(lev) + radlu\n               if (idrv .eq. 1) then\n                  d_radlu_dt = d_radlu_dt * (1.0_rb - atrans(lev))\n                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt\n               endif\n            endif\n!  Set clear sky stream to total sky stream as long as all layers\n!  are clear (iclddn=0).  Streams must be calculated separately at \n!  all layers when a cloud is present (ICLDDN=1), because surface \n!  reflectance is different for each stream.\n               if (iclddn.eq.1) then\n                  radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) \n                  clrurad(lev) = clrurad(lev) + radclru\n               else\n                  radclru = radlu\n                  clrurad(lev) = urad(lev)\n               endif\n               if (idrv .eq. 1) then\n                  if (iclddn.eq.1) then\n                     d_radclru_dt = d_radclru_dt * (1.0_rb - atrans(lev))\n                     d_clrurad_dt(lev) = d_clrurad_dt(lev) + d_radclru_dt\n                  else\n                     d_radclru_dt = d_radlu_dt\n                     d_clrurad_dt(lev) = d_urad_dt(lev)\n                  endif\n               endif\n         enddo\n\n! Increment g-point counter\n         igc = igc + 1\n! Return to continue radiative transfer for all g-channels in present band\n         if (igc .le. ngs(iband)) go to 1000\n\n! Process longwave output from band for total and clear streams.\n! Calculate upward, downward, and net flux.\n         do lev = nlayers, 0, -1\n            uflux(lev) = urad(lev)*wtdiff\n            dflux(lev) = drad(lev)*wtdiff\n            urad(lev) = 0.0_rb\n            drad(lev) = 0.0_rb\n            totuflux(lev) = totuflux(lev) + uflux(lev) * delwave(iband)\n            totdflux(lev) = totdflux(lev) + dflux(lev) * delwave(iband)\n            uclfl(lev) = clrurad(lev)*wtdiff\n            dclfl(lev) = clrdrad(lev)*wtdiff\n            clrurad(lev) = 0.0_rb\n            clrdrad(lev) = 0.0_rb\n            totuclfl(lev) = totuclfl(lev) + uclfl(lev) * delwave(iband)\n            totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)\n         enddo\n\n! Calculate total change in upward flux wrt surface temperature\n         if (idrv .eq. 1) then\n            do lev = nlayers, 0, -1\n               duflux_dt(lev) = d_urad_dt(lev) * wtdiff\n               d_urad_dt(lev) = 0.0_rb\n               dtotuflux_dt(lev) = dtotuflux_dt(lev) + duflux_dt(lev) * delwave(iband) * fluxfac\n               duclfl_dt(lev) = d_clrurad_dt(lev) * wtdiff\n               d_clrurad_dt(lev) = 0.0_rb\n               dtotuclfl_dt(lev) = dtotuclfl_dt(lev) + duclfl_dt(lev) * delwave(iband) * fluxfac\n            enddo\n         endif\n\n! End spectral band loop\n      enddo\n\n! Calculate fluxes at surface\n      totuflux(0) = totuflux(0) * fluxfac\n      totdflux(0) = totdflux(0) * fluxfac\n      fnet(0) = totuflux(0) - totdflux(0)\n      totuclfl(0) = totuclfl(0) * fluxfac\n      totdclfl(0) = totdclfl(0) * fluxfac\n      fnetc(0) = totuclfl(0) - totdclfl(0)\n\n! Calculate fluxes at model levels\n      do lev = 1, nlayers\n         totuflux(lev) = totuflux(lev) * fluxfac\n         totdflux(lev) = totdflux(lev) * fluxfac\n         fnet(lev) = totuflux(lev) - totdflux(lev)\n         totuclfl(lev) = totuclfl(lev) * fluxfac\n         totdclfl(lev) = totdclfl(lev) * fluxfac\n         fnetc(lev) = totuclfl(lev) - totdclfl(lev)\n         l = lev - 1\n\n! Calculate heating rates at model layers\n         htr(l)=heatfac*(fnet(l)-fnet(lev))/(pz(l)-pz(lev)) \n         htrc(l)=heatfac*(fnetc(l)-fnetc(lev))/(pz(l)-pz(lev)) \n      enddo\n\n! Set heating rate to zero in top layer\n      htr(nlayers) = 0.0_rb\n      htrc(nlayers) = 0.0_rb\n\n      end subroutine rtrnmc\n\n      end module rrtmg_lw_rtrnmc\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_rtrnmr.F90.safe",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_rtrnmr.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.7 $\n!     created:   $Date: 2009/11/12 20:52:26 $\n!\n      module rrtmg_lw_rtrnmr\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : mg, nbndlw, ngptlw\n      use rrlw_con, only: fluxfac, heatfac\n      use rrlw_wvn, only: delwave, ngs\n      use rrlw_tbl, only: tblint, bpade, tau_tbl, exp_tbl, tfn_tbl\n      use rrlw_vsn, only: hvrrtx, hnamrtx\n\n      implicit none\n\n      contains\n\n!-----------------------------------------------------------------------------\n      subroutine rtrnmr(nlayers, istart, iend, iout, pz, semiss, ncbands, &\n                        cldfrac, taucloud, planklay, planklev, plankbnd, &\n                        pwvcm, fracs, taut, & \n                        totuflux, totdflux, fnet, htr, &\n                        totuclfl, totdclfl, fnetc, htrc, &\n                        idrv, dplankbnd_dt, dtotuflux_dt, dtotuclfl_dt )\n!-----------------------------------------------------------------------------\n!\n!  Original version:   E. J. Mlawer, et al. RRTM_V3.0\n!  Revision for GCMs:  Michael J. Iacono; October, 2002\n!  Revision for F90:  Michael J. Iacono; June, 2006\n!  Revision for dFdT option: M. J. Iacono and E. J. Mlawer, November 2009\n!\n!  This program calculates the upward fluxes, downward fluxes, and\n!  heating rates for an arbitrary clear or cloudy atmosphere.  The input\n!  to this program is the atmospheric profile, all Planck function\n!  information, and the cloud fraction by layer.  A variable diffusivity \n!  angle (SECDIFF) is used for the angle integration.  Bands 2-3 and 5-9 \n!  use a value for SECDIFF that varies from 1.50 to 1.80 as a function of \n!  the column water vapor, and other bands use a value of 1.66.  The Gaussian \n!  weight appropriate to this angle (WTDIFF=0.5) is applied here.  Note that \n!  use of the emissivity angle for the flux integration can cause errors of \n!  1 to 4 W/m2 within cloudy layers.  \n!  Clouds are treated with a maximum-random cloud overlap method.\n!  This subroutine also provides the optional capability to calculate\n!  the derivative of upward flux respect to surface temperature using\n!  the pre-tabulated derivative of the Planck function with respect to \n!  temperature integrated over each spectral band.\n!***************************************************************************\n\n! ------- Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: istart          ! beginning band of calculation\n      integer(kind=im), intent(in) :: iend            ! ending band of calculation\n      integer(kind=im), intent(in) :: iout            ! output option flag\n\n! Atmosphere\n      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: pwvcm              ! precipitable water vapor (cm)\n      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity\n                                                      !    Dimensions: (nbndlw)\n      real(kind=rb), intent(in) :: planklay(:,:)      ! \n                                                      !    Dimensions: (nlayers,nbndlw)\n      real(kind=rb), intent(in) :: planklev(0:,:)     ! \n                                                      !    Dimensions: (0:nlayers,nbndlw)\n      real(kind=rb), intent(in) :: plankbnd(:)        ! \n                                                      !    Dimensions: (nbndlw)\n      real(kind=rb), intent(in) :: fracs(:,:)         ! \n                                                      !    Dimensions: (nlayers,ngptw)\n      real(kind=rb), intent(in) :: taut(:,:)          ! gaseous + aerosol optical depths\n                                                      !    Dimensions: (nlayers,ngptlw)\n\n! Clouds\n      integer(kind=im), intent(in) :: ncbands         ! number of cloud spectral bands\n      real(kind=rb), intent(in) :: cldfrac(:)         ! layer cloud fraction\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: taucloud(:,:)      ! layer cloud optical depth\n                                                      !    Dimensions: (nlayers,nbndlw)\n      integer(kind=im), intent(in) :: idrv            ! flag for calculation of dF/dt from \n                                                      ! Planck derivative [0=off, 1=on]\n      real(kind=rb), intent(in) :: dplankbnd_dt(:)    ! derivative of Planck function wrt temp\n                                                      !    Dimensions: (nbndlw)\n\n! ----- Output -----\n      real(kind=rb), intent(out) :: totuflux(0:)      ! upward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: totdflux(0:)      ! downward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: fnet(0:)          ! net longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: htr(0:)           ! longwave heating rate (k/day)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: totuclfl(0:)      ! clear sky upward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: totdclfl(0:)      ! clear sky downward longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: fnetc(0:)         ! clear sky net longwave flux (w/m2)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: htrc(0:)          ! clear sky longwave heating rate (k/day)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: dtotuflux_dt(0:)  ! change in upward longwave flux (w/m2/k)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(out) :: dtotuclfl_dt(0:)  ! change in upward longwave flux (w/m2/k)\n                                                      ! with respect to surface temperature\n                                                      !    Dimensions: (0:nlayers)\n\n! ----- Local -----\n! Declarations for radiative transfer\n      real(kind=rb) :: abscld(nlayers,nbndlw)\n      real(kind=rb) :: atot(nlayers)\n      real(kind=rb) :: atrans(nlayers)\n      real(kind=rb) :: bbugas(nlayers)\n      real(kind=rb) :: bbutot(nlayers)\n      real(kind=rb) :: clrurad(0:nlayers)\n      real(kind=rb) :: clrdrad(0:nlayers)\n      real(kind=rb) :: efclfrac(nlayers,nbndlw)\n      real(kind=rb) :: uflux(0:nlayers)\n      real(kind=rb) :: dflux(0:nlayers)\n      real(kind=rb) :: urad(0:nlayers)\n      real(kind=rb) :: drad(0:nlayers)\n      real(kind=rb) :: uclfl(0:nlayers)\n      real(kind=rb) :: dclfl(0:nlayers)\n      real(kind=rb) :: odcld(nlayers,nbndlw)\n\n      real(kind=rb) :: secdiff(nbndlw)                 ! secant of diffusivity angle\n      real(kind=rb) :: a0(nbndlw),a1(nbndlw),a2(nbndlw)! diffusivity angle adjustment coefficients\n      real(kind=rb) :: wtdiff, rec_6\n      real(kind=rb) :: transcld, radld, radclrd, plfrac, blay, dplankup, dplankdn\n      real(kind=rb) :: odepth, odtot, odepth_rec, odtot_rec, gassrc, ttot\n      real(kind=rb) :: tblind, tfactot, bbd, bbdtot, tfacgas, transc, tausfac\n      real(kind=rb) :: rad0, reflect, radlu, radclru\n\n      real(kind=rb) :: duflux_dt(0:nlayers)\n      real(kind=rb) :: duclfl_dt(0:nlayers)\n      real(kind=rb) :: d_urad_dt(0:nlayers)\n      real(kind=rb) :: d_clrurad_dt(0:nlayers)\n      real(kind=rb) :: d_rad0_dt, d_radlu_dt, d_radclru_dt\n\n      integer(kind=im) :: icldlyr(nlayers)             ! flag for cloud in layer\n      integer(kind=im) :: ibnd, ib, iband, lay, lev, l ! loop indices\n      integer(kind=im) :: igc                          ! g-point interval counter\n      integer(kind=im) :: iclddn                       ! flag for cloud in down path\n      integer(kind=im) :: ittot, itgas, itr            ! lookup table indices\n      integer(kind=im) :: ipat(16,0:2)\n\n! Declarations for cloud overlap adjustment\n      real(kind=rb) :: faccld1(nlayers+1),faccld2(nlayers+1)\n      real(kind=rb) :: facclr1(nlayers+1),facclr2(nlayers+1)\n      real(kind=rb) :: faccmb1(nlayers+1),faccmb2(nlayers+1)\n      real(kind=rb) :: faccld1d(0:nlayers),faccld2d(0:nlayers)\n      real(kind=rb) :: facclr1d(0:nlayers),facclr2d(0:nlayers)\n      real(kind=rb) :: faccmb1d(0:nlayers),faccmb2d(0:nlayers)\n\n      real(kind=rb) :: fmax, fmin, rat1, rat2\n      real(kind=rb) :: clrradd, cldradd, clrradu, cldradu, oldclr, oldcld\n      real(kind=rb) :: rad, cldsrc, radmod\n\n      integer(kind=im) :: istcld(nlayers+1),istcldd(0:nlayers)\n\n! ------- Definitions -------\n! input\n!    nlayers                      ! number of model layers\n!    ngptlw                       ! total number of g-point subintervals\n!    nbndlw                       ! number of longwave spectral bands\n!    ncbands                      ! number of spectral bands for clouds\n!    secdiff                      ! diffusivity angle\n!    wtdiff                       ! weight for radiance to flux conversion\n!    pavel                        ! layer pressures (mb)\n!    pz                           ! level (interface) pressures (mb)\n!    tavel                        ! layer temperatures (k)\n!    tz                           ! level (interface) temperatures(mb)\n!    tbound                       ! surface temperature (k)\n!    cldfrac                      ! layer cloud fraction\n!    taucloud                     ! layer cloud optical depth\n!    itr                          ! integer look-up table index\n!    icldlyr                      ! flag for cloudy layers\n!    iclddn                       ! flag for cloud in column at any layer\n!    semiss                       ! surface emissivities for each band\n!    reflect                      ! surface reflectance\n!    bpade                        ! 1/(pade constant)\n!    tau_tbl                      ! clear sky optical depth look-up table\n!    exp_tbl                      ! exponential look-up table for transmittance\n!    tfn_tbl                      ! tau transition function look-up table\n\n! local\n!    atrans                       ! gaseous absorptivity\n!    abscld                       ! cloud absorptivity\n!    atot                         ! combined gaseous and cloud absorptivity\n!    odclr                        ! clear sky (gaseous) optical depth\n!    odcld                        ! cloud optical depth\n!    odtot                        ! optical depth of gas and cloud\n!    tfacgas                      ! gas-only pade factor, used for planck fn\n!    tfactot                      ! gas and cloud pade factor, used for planck fn\n!    bbdgas                       ! gas-only planck function for downward rt\n!    bbugas                       ! gas-only planck function for upward rt\n!    bbdtot                       ! gas and cloud planck function for downward rt\n!    bbutot                       ! gas and cloud planck function for upward calc.\n!    gassrc                       ! source radiance due to gas only\n!    efclfrac                     ! effective cloud fraction\n!    radlu                        ! spectrally summed upward radiance \n!    radclru                      ! spectrally summed clear sky upward radiance \n!    urad                         ! upward radiance by layer\n!    clrurad                      ! clear sky upward radiance by layer\n!    radld                        ! spectrally summed downward radiance \n!    radclrd                      ! spectrally summed clear sky downward radiance \n!    drad                         ! downward radiance by layer\n!    clrdrad                      ! clear sky downward radiance by layer\n!    d_radlu_dt                   ! spectrally summed upward radiance \n!    d_radclru_dt                 ! spectrally summed clear sky upward radiance \n!    d_urad_dt                    ! upward radiance by layer\n!    d_clrurad_dt                 ! clear sky upward radiance by layer\n\n! output\n!    totuflux                     ! upward longwave flux (w/m2)\n!    totdflux                     ! downward longwave flux (w/m2)\n!    fnet                         ! net longwave flux (w/m2)\n!    htr                          ! longwave heating rate (k/day)\n!    totuclfl                     ! clear sky upward longwave flux (w/m2)\n!    totdclfl                     ! clear sky downward longwave flux (w/m2)\n!    fnetc                        ! clear sky net longwave flux (w/m2)\n!    htrc                         ! clear sky longwave heating rate (k/day)\n!    dtotuflux_dt                 ! change in upward longwave flux (w/m2/k)\n!                                 ! with respect to surface temperature\n!    dtotuclfl_dt                 ! change in clear sky upward longwave flux (w/m2/k)\n!                                 ! with respect to surface temperature\n\n\n! These arrays indicate the spectral 'region' (used in the \n! calculation of ice cloud optical depths) corresponding\n! to each spectral band.  See cldprop.f for more details.\n      data ipat /1,1,1,1,1,1,1,1,1, 1, 1, 1, 1, 1, 1, 1, &\n                 1,2,3,3,3,4,4,4,5, 5, 5, 5, 5, 5, 5, 5, &\n                 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/\n\n! This secant and weight corresponds to the standard diffusivity \n! angle.  This initial value is redefined below for some bands.\n      data wtdiff /0.5_rb/\n      data rec_6 /0.166667_rb/\n\n! Reset diffusivity angle for Bands 2-3 and 5-9 to vary (between 1.50\n! and 1.80) as a function of total column water vapor.  The function\n! has been defined to minimize flux and cooling rate errors in these bands\n! over a wide range of precipitable water values.\n      data a0 / 1.66_rb,  1.55_rb,  1.58_rb,  1.66_rb, &\n                1.54_rb, 1.454_rb,  1.89_rb,  1.33_rb, &\n               1.668_rb,  1.66_rb,  1.66_rb,  1.66_rb, &\n                1.66_rb,  1.66_rb,  1.66_rb,  1.66_rb /\n      data a1 / 0.00_rb,  0.25_rb,  0.22_rb,  0.00_rb, &\n                0.13_rb, 0.446_rb, -0.10_rb,  0.40_rb, &\n              -0.006_rb,  0.00_rb,  0.00_rb,  0.00_rb, &\n                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /\n      data a2 / 0.00_rb, -12.0_rb, -11.7_rb,  0.00_rb, &\n               -0.72_rb,-0.243_rb,  0.19_rb,-0.062_rb, &\n               0.414_rb,  0.00_rb,  0.00_rb,  0.00_rb, &\n                0.00_rb,  0.00_rb,  0.00_rb,  0.00_rb /\n\n      do ibnd = 1,nbndlw\n         if (ibnd.eq.1 .or. ibnd.eq.4 .or. ibnd.ge.10) then\n           secdiff(ibnd) = 1.66_rb\n         else\n           secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)\n           if (secdiff(ibnd) .gt. 1.80_rb) secdiff(ibnd) = 1.80_rb\n           if (secdiff(ibnd) .lt. 1.50_rb) secdiff(ibnd) = 1.50_rb\n         endif\n      enddo\n\n      hvrrtx = '$Revision: 1.7 $'\n\n      urad(0) = 0.0_rb\n      drad(0) = 0.0_rb\n      totuflux(0) = 0.0_rb\n      totdflux(0) = 0.0_rb\n      clrurad(0) = 0.0_rb\n      clrdrad(0) = 0.0_rb\n      totuclfl(0) = 0.0_rb\n      totdclfl(0) = 0.0_rb\n      if (idrv .eq. 1) then\n         d_urad_dt(0) = 0.0_rb\n         d_clrurad_dt(0) = 0.0_rb\n         dtotuflux_dt(0) = 0.0_rb\n         dtotuclfl_dt(0) = 0.0_rb\n      endif\n\n      do lay = 1, nlayers\n         urad(lay) = 0.0_rb\n         drad(lay) = 0.0_rb\n         totuflux(lay) = 0.0_rb\n         totdflux(lay) = 0.0_rb\n         clrurad(lay) = 0.0_rb\n         clrdrad(lay) = 0.0_rb\n         totuclfl(lay) = 0.0_rb\n         totdclfl(lay) = 0.0_rb\n         if (idrv .eq. 1) then\n            d_urad_dt(lay) = 0.0_rb\n            d_clrurad_dt(lay) = 0.0_rb\n            dtotuflux_dt(lay) = 0.0_rb\n            dtotuclfl_dt(lay) = 0.0_rb\n         endif\n\n         do ib = 1, ncbands\n            if (cldfrac(lay) .ge. 1.e-6_rb) then\n               odcld(lay,ib) = secdiff(ib) * taucloud(lay,ib)\n               icldlyr(lay) = 1\n            else\n               odcld(lay,ib) = 0.0_rb\n               icldlyr(lay) = 0\n            endif\n         enddo\n      enddo\n\n! Maximum/Random cloud overlap parameter\n\n      istcld(1) = 1\n      istcldd(nlayers) = 1\n      do lev = 1, nlayers\n\n         if (icldlyr(lev).eq.1) then\n! Maximum/random cloud overlap\n            istcld(lev+1) = 0\n            if (lev .eq. nlayers) then\n               faccld1(lev+1) = 0._rb\n               faccld2(lev+1) = 0._rb\n               facclr1(lev+1) = 0._rb\n               facclr2(lev+1) = 0._rb\n               faccmb1(lev+1) = 0._rb\n               faccmb2(lev+1) = 0._rb\n            elseif (cldfrac(lev+1) .ge. cldfrac(lev)) then\n               faccld1(lev+1) = 0._rb\n               faccld2(lev+1) = 0._rb\n               if (istcld(lev) .eq. 1) then\n                  facclr1(lev+1) = 0._rb\n                  facclr2(lev+1) = 0._rb\n                  if (cldfrac(lev) .lt. 1._rb) facclr2(lev+1) = &\n                     (cldfrac(lev+1)-cldfrac(lev))/(1._rb-cldfrac(lev))\n                  facclr2(lev) = 0._rb\n                  faccld2(lev) = 0._rb\n               else\n                  fmax = max(cldfrac(lev),cldfrac(lev-1))\n                  if (cldfrac(lev+1) .gt. fmax) then\n                     facclr1(lev+1) = rat2\n                     facclr2(lev+1) = (cldfrac(lev+1)-fmax)/(1._rb-fmax)\n                  elseif (cldfrac(lev+1) .lt. fmax) then\n                     facclr1(lev+1) = (cldfrac(lev+1)-cldfrac(lev))/ &\n                        (cldfrac(lev-1)-cldfrac(lev))\n                     facclr2(lev+1) = 0._rb\n                  else\n                     facclr1(lev+1) = rat2\n                     facclr2(lev+1) = 0._rb\n                  endif\n               endif\n               if (facclr1(lev+1).gt.0._rb .or. facclr2(lev+1).gt.0._rb) then\n                  rat1 = 1._rb\n                  rat2 = 0._rb\n               else\n                  rat1 = 0._rb\n                  rat2 = 0._rb\n               endif\n            else\n               facclr1(lev+1) = 0._rb\n               facclr2(lev+1) = 0._rb\n               if (istcld(lev) .eq. 1) then\n                  faccld1(lev+1) = 0._rb\n                  faccld2(lev+1) = (cldfrac(lev)-cldfrac(lev+1))/cldfrac(lev)\n\n                  facclr2(lev) = 0._rb\n                  faccld2(lev) = 0._rb\n               else\n                  fmin = min(cldfrac(lev),cldfrac(lev-1))\n                  if (cldfrac(lev+1) .le. fmin) then\n                     faccld1(lev+1) = rat1\n                     faccld2(lev+1) = (fmin-cldfrac(lev+1))/fmin\n                  else\n                     faccld1(lev+1) = (cldfrac(lev)-cldfrac(lev+1))/(cldfrac(lev)-fmin)\n                     faccld2(lev+1) = 0._rb\n                  endif\n               endif\n               if (faccld1(lev+1).gt.0._rb .or. faccld2(lev+1).gt.0._rb) then\n                  rat1 = 0._rb\n                  rat2 = 1._rb\n               else\n                  rat1 = 0._rb\n                  rat2 = 0._rb\n               endif\n            endif\n            faccmb1(lev+1) = facclr1(lev+1) * faccld2(lev) * cldfrac(lev-1) \n            faccmb2(lev+1) = faccld1(lev+1) * facclr2(lev) * (1._rb - cldfrac(lev-1)) \n         else\n            istcld(lev+1) = 1\n         endif\n      enddo\n\n      do lev = nlayers, 1, -1\n         if (icldlyr(lev).eq.1) then\n            istcldd(lev-1) = 0\n            if (lev .eq. 1) then\n               faccld1d(lev-1) = 0._rb\n               faccld2d(lev-1) = 0._rb\n               facclr1d(lev-1) = 0._rb\n               facclr2d(lev-1) = 0._rb\n               faccmb1d(lev-1) = 0._rb\n               faccmb2d(lev-1) = 0._rb\n            elseif (cldfrac(lev-1) .ge. cldfrac(lev)) then\n               faccld1d(lev-1) = 0._rb\n               faccld2d(lev-1) = 0._rb\n               if (istcldd(lev) .eq. 1) then\n                  facclr1d(lev-1) = 0._rb\n                  facclr2d(lev-1) = 0._rb\n                  if (cldfrac(lev) .lt. 1._rb) facclr2d(lev-1) = &\n                     (cldfrac(lev-1)-cldfrac(lev))/(1._rb-cldfrac(lev))\n                  facclr2d(lev) = 0._rb\n                  faccld2d(lev) = 0._rb\n               else\n                  fmax = max(cldfrac(lev),cldfrac(lev+1))\n                  if (cldfrac(lev-1) .gt. fmax) then\n                     facclr1d(lev-1) = rat2\n                     facclr2d(lev-1) = (cldfrac(lev-1)-fmax)/(1._rb-fmax)\n                  elseif (cldfrac(lev-1) .lt. fmax) then\n                     facclr1d(lev-1) = (cldfrac(lev-1)-cldfrac(lev))/ &\n                        (cldfrac(lev+1)-cldfrac(lev))\n                     facclr2d(lev-1) = 0.\n                  else\n                     facclr1d(lev-1) = rat2\n                     facclr2d(lev-1) = 0._rb\n                  endif\n               endif\n               if (facclr1d(lev-1).gt.0._rb .or. facclr2d(lev-1).gt.0._rb)then\n                  rat1 = 1._rb\n                  rat2 = 0._rb\n               else\n                  rat1 = 0._rb\n                  rat2 = 0._rb\n               endif\n            else\n               facclr1d(lev-1) = 0._rb\n               facclr2d(lev-1) = 0._rb\n               if (istcldd(lev) .eq. 1) then\n                  faccld1d(lev-1) = 0._rb\n                  faccld2d(lev-1) = (cldfrac(lev)-cldfrac(lev-1))/cldfrac(lev)\n                  facclr2d(lev) = 0._rb\n                  faccld2d(lev) = 0._rb\n               else\n                  fmin = min(cldfrac(lev),cldfrac(lev+1))\n                  if (cldfrac(lev-1) .le. fmin) then\n                     faccld1d(lev-1) = rat1\n                     faccld2d(lev-1) = (fmin-cldfrac(lev-1))/fmin\n                  else\n                     faccld1d(lev-1) = (cldfrac(lev)-cldfrac(lev-1))/(cldfrac(lev)-fmin)\n                     faccld2d(lev-1) = 0._rb\n                  endif\n               endif\n               if (faccld1d(lev-1).gt.0._rb .or. faccld2d(lev-1).gt.0._rb)then\n                  rat1 = 0._rb\n                  rat2 = 1._rb\n               else\n                  rat1 = 0._rb\n                  rat2 = 0._rb\n               endif\n            endif\n            faccmb1d(lev-1) = facclr1d(lev-1) * faccld2d(lev) * cldfrac(lev+1) \n            faccmb2d(lev-1) = faccld1d(lev-1) * facclr2d(lev) * (1._rb - cldfrac(lev+1))\n         else\n            istcldd(lev-1) = 1\n         endif\n      enddo\n\n      igc = 1\n! Loop over frequency bands.\n      do iband = istart, iend\n\n! Reinitialize g-point counter for each band if output for each band is requested.\n         if (iout.gt.0.and.iband.ge.2) igc = ngs(iband-1)+1\n         if (ncbands .eq. 1) then\n            ib = ipat(iband,0)\n         elseif (ncbands .eq.  5) then\n            ib = ipat(iband,1)\n         elseif (ncbands .eq. 16) then\n            ib = ipat(iband,2)\n         endif\n\n! Loop over g-channels.\n 1000    continue\n\n! Radiative transfer starts here.\n         radld = 0._rb\n         radclrd = 0._rb\n         iclddn = 0\n\n! Downward radiative transfer loop.  \n\n         do lev = nlayers, 1, -1\n               plfrac = fracs(lev,igc)\n               blay = planklay(lev,iband)\n               dplankup = planklev(lev,iband) - blay\n               dplankdn = planklev(lev-1,iband) - blay\n               odepth = secdiff(iband) * taut(lev,igc)\n\n               if (odepth .lt. 0.0_rb) odepth = 0.0_rb\n! Cloudy layer\n               if (icldlyr(lev).eq.1) then\n                  iclddn = 1\n                  odtot = odepth + odcld(lev,ib)\n                  if (odtot .lt. 0.06_rb) then\n                     atrans(lev) = odepth - 0.5_rb*odepth*odepth\n                     odepth_rec = rec_6*odepth\n                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)\n\n                     atot(lev) =  odtot - 0.5_rb*odtot*odtot\n                     odtot_rec = rec_6*odtot\n                     bbdtot =  plfrac * (blay+dplankdn*odtot_rec)\n                     bbd = plfrac*(blay+dplankdn*odepth_rec)\n                  \n                     bbugas(lev) =  plfrac * (blay+dplankup*odepth_rec)\n                     bbutot(lev) =  plfrac * (blay+dplankup*odtot_rec)\n                  elseif (odepth .le. 0.06_rb) then\n                     atrans(lev) = odepth - 0.5_rb*odepth*odepth\n                     odepth_rec = rec_6*odepth\n                     gassrc = plfrac*(blay+dplankdn*odepth_rec)*atrans(lev)\n\n                     odtot = odepth + odcld(lev,ib)\n                     tblind = odtot/(bpade+odtot)\n                     ittot = tblint*tblind + 0.5_rb\n                     tfactot = tfn_tbl(ittot)\n                     bbdtot = plfrac * (blay + tfactot*dplankdn)\n                     bbd = plfrac*(blay+dplankdn*odepth_rec)\n                     atot(lev) = 1._rb - exp_tbl(ittot)\n\n                     bbugas(lev) = plfrac * (blay + dplankup*odepth_rec)\n                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)\n                  else\n                     tblind = odepth/(bpade+odepth)\n                     itgas = tblint*tblind+0.5_rb\n                     odepth = tau_tbl(itgas)\n                     atrans(lev) = 1._rb - exp_tbl(itgas)\n                     tfacgas = tfn_tbl(itgas)\n                     gassrc = atrans(lev) * plfrac * (blay + tfacgas*dplankdn)\n\n                     odtot = odepth + odcld(lev,ib)\n                     tblind = odtot/(bpade+odtot)\n                     ittot = tblint*tblind + 0.5_rb\n                     tfactot = tfn_tbl(ittot)\n                     bbdtot = plfrac * (blay + tfactot*dplankdn)\n                     bbd = plfrac*(blay+tfacgas*dplankdn)\n                     atot(lev) = 1._rb - exp_tbl(ittot)\n\n                     bbugas(lev) = plfrac * (blay + tfacgas * dplankup)\n                     bbutot(lev) = plfrac * (blay + tfactot * dplankup)\n                  endif\n\n                  if (istcldd(lev) .eq. 1) then\n                     cldradd = cldfrac(lev) * radld\n                     clrradd = radld - cldradd\n                     oldcld = cldradd\n                     oldclr = clrradd\n                     rad = 0._rb\n                  endif\n                  ttot = 1._rb - atot(lev)\n                  cldsrc = bbdtot * atot(lev)\n                  cldradd = cldradd * ttot + cldfrac(lev) * cldsrc\n                  clrradd = clrradd * (1._rb-atrans(lev)) + (1._rb - cldfrac(lev)) * gassrc\n                  radld = cldradd + clrradd\n                  drad(lev-1) = drad(lev-1) + radld\n\n                  radmod = rad * &\n                       (facclr1d(lev-1) * (1.-atrans(lev)) + &\n                       faccld1d(lev-1) *  ttot) - &\n                       faccmb1d(lev-1) * gassrc + &\n                       faccmb2d(lev-1) * cldsrc\n\n                  oldcld = cldradd - radmod\n                  oldclr = clrradd + radmod\n                  rad = -radmod + facclr2d(lev-1)*oldclr - faccld2d(lev-1)*oldcld\n                  cldradd = cldradd + rad\n                  clrradd = clrradd - rad\n! Clear layer\n               else\n                  if (odepth .le. 0.06_rb) then\n                     atrans(lev) = odepth-0.5_rb*odepth*odepth\n                     odepth = rec_6*odepth\n                     bbd = plfrac*(blay+dplankdn*odepth)\n                     bbugas(lev) = plfrac*(blay+dplankup*odepth)\n                  else\n                     tblind = odepth/(bpade+odepth)\n                     itr = tblint*tblind+0.5_rb\n                     transc = exp_tbl(itr)\n                     atrans(lev) = 1._rb-transc\n                     tausfac = tfn_tbl(itr)\n                     bbd = plfrac*(blay+tausfac*dplankdn)\n                     bbugas(lev) = plfrac * (blay + tausfac * dplankup)\n                  endif   \n                  radld = radld + (bbd-radld)*atrans(lev)\n                  drad(lev-1) = drad(lev-1) + radld\n                endif\n!  Set clear sky stream to total sky stream as long as layers\n!  remain clear.  Streams diverge when a cloud is reached (iclddn=1),\n!  and clear sky stream must be computed separately from that point.\n                 if (iclddn.eq.1) then\n                     radclrd = radclrd + (bbd-radclrd) * atrans(lev) \n                     clrdrad(lev-1) = clrdrad(lev-1) + radclrd\n                  else\n                     radclrd = radld\n                     clrdrad(lev-1) = drad(lev-1)\n                  endif\n            enddo\n\n! Spectral emissivity & reflectance\n!  Include the contribution of spectrally varying longwave emissivity\n!  and reflection from the surface to the upward radiative transfer.\n!  Note: Spectral and Lambertian reflection are identical for the\n!  diffusivity angle flux integration used here.\n!  Note: The emissivity is applied to plankbnd and dplankbnd_dt when \n!  they are defined in subroutine setcoef. \n\n         rad0 = fracs(1,igc) * plankbnd(iband)\n         if (idrv .eq. 1) then\n            d_rad0_dt = fracs(1,igc) * dplankbnd_dt(iband)\n         endif\n\n!  Add in reflection of surface downward radiance.\n         reflect = 1._rb - semiss(iband)\n         radlu = rad0 + reflect * radld\n         radclru = rad0 + reflect * radclrd\n\n! Upward radiative transfer loop.\n\n         urad(0) = urad(0) + radlu\n         clrurad(0) = clrurad(0) + radclru\n         if (idrv .eq. 1) then\n            d_radlu_dt = d_rad0_dt\n            d_urad_dt(0) = d_urad_dt(0) + d_radlu_dt\n            d_radclru_dt = d_rad0_dt\n            d_clrurad_dt(0) = d_clrurad_dt(0) + d_radclru_dt\n         endif\n\n         do lev = 1, nlayers\n! Cloudy layer\n            if (icldlyr(lev) .eq. 1) then\n               gassrc = bbugas(lev) * atrans(lev)\n               if (istcld(lev) .eq. 1) then\n                  cldradu = cldfrac(lev) * radlu\n                  clrradu = radlu - cldradu\n                  oldcld = cldradu\n                  oldclr = clrradu\n                  rad = 0._rb\n               endif\n               ttot = 1._rb - atot(lev)\n               cldsrc = bbutot(lev) * atot(lev)\n               cldradu = cldradu * ttot + cldfrac(lev) * cldsrc\n               clrradu = clrradu * (1.0_rb-atrans(lev)) + (1._rb - cldfrac(lev)) * gassrc\n! Total sky radiance\n               radlu = cldradu + clrradu\n               urad(lev) = urad(lev) + radlu\n               radmod = rad * &\n                   (facclr1(lev+1)*(1.0_rb-atrans(lev))+ &\n                   faccld1(lev+1) *  ttot) - &\n                   faccmb1(lev+1) * gassrc + &\n                   faccmb2(lev+1) * cldsrc\n               oldcld = cldradu - radmod\n               oldclr = clrradu + radmod\n               rad = -radmod + facclr2(lev+1)*oldclr - faccld2(lev+1)*oldcld\n               cldradu = cldradu + rad\n               clrradu = clrradu - rad\n               if (idrv .eq. 1) then\n                  d_radlu_dt = d_radlu_dt * cldfrac(lev) * (1.0_rb - atot(lev)) + &\n                         d_radlu_dt * (1.0_rb - cldfrac(lev)) * (1.0_rb - atrans(lev))\n                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt\n               endif\n! Clear layer\n            else\n               radlu = radlu + (bbugas(lev)-radlu)*atrans(lev)\n               urad(lev) = urad(lev) + radlu\n               if (idrv .eq. 1) then\n                  d_radlu_dt = d_radlu_dt * (1.0_rb - atrans(lev))\n                  d_urad_dt(lev) = d_urad_dt(lev) + d_radlu_dt\n               endif\n            endif\n!  Set clear sky stream to total sky stream as long as all layers\n!  are clear (iclddn=0).  Streams must be calculated separately at \n!  all layers when a cloud is present (iclddn=1), because surface \n!  reflectance is different for each stream.\n               if (iclddn.eq.1) then\n                  radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) \n                  clrurad(lev) = clrurad(lev) + radclru\n               else\n                  radclru = radlu\n                  clrurad(lev) = urad(lev)\n               endif\n               if (idrv .eq. 1) then\n                  if (iclddn.eq.1) then\n                     d_radclru_dt = d_radclru_dt * (1.0_rb - atrans(lev))\n                     d_clrurad_dt(lev) = d_clrurad_dt(lev) + d_radclru_dt\n                  else\n                     d_radclru_dt = d_radlu_dt\n                     d_clrurad_dt(lev) = d_urad_dt(lev)\n                  endif\n               endif\n         enddo\n\n! Increment g-point counter\n         igc = igc + 1\n! Return to continue radiative transfer for all g-channels in present band\n         if (igc .le. ngs(iband)) go to 1000\n\n! Process longwave output from band.\n! Calculate upward, downward, and net flux.\n         do lev = nlayers, 0, -1\n            uflux(lev) = urad(lev)*wtdiff\n            dflux(lev) = drad(lev)*wtdiff\n            urad(lev) = 0.0_rb\n            drad(lev) = 0.0_rb\n            totuflux(lev) = totuflux(lev) + uflux(lev) * delwave(iband)\n            totdflux(lev) = totdflux(lev) + dflux(lev) * delwave(iband)\n            uclfl(lev) = clrurad(lev)*wtdiff\n            dclfl(lev) = clrdrad(lev)*wtdiff\n            clrurad(lev) = 0.0_rb\n            clrdrad(lev) = 0.0_rb\n            totuclfl(lev) = totuclfl(lev) + uclfl(lev) * delwave(iband)\n            totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)\n         enddo\n\n! Calculate total change in upward flux wrt surface temperature\n         if (idrv .eq. 1) then\n            do lev = nlayers, 0, -1\n               duflux_dt(lev) = d_urad_dt(lev) * wtdiff\n               d_urad_dt(lev) = 0.0_rb\n               dtotuflux_dt(lev) = dtotuflux_dt(lev) + duflux_dt(lev) * delwave(iband) * fluxfac\n\n               duclfl_dt(lev) = d_clrurad_dt(lev) * wtdiff\n               d_clrurad_dt(lev) = 0.0_rb\n               dtotuclfl_dt(lev) = dtotuclfl_dt(lev) + duclfl_dt(lev) * delwave(iband) * fluxfac\n            enddo\n         endif\n\n! End spectral band loop\n      enddo\n\n! Calculate fluxes at surface\n      totuflux(0) = totuflux(0) * fluxfac\n      totdflux(0) = totdflux(0) * fluxfac\n      fnet(0) = totuflux(0) - totdflux(0)\n\n      totuclfl(0) = totuclfl(0) * fluxfac\n      totdclfl(0) = totdclfl(0) * fluxfac\n      fnetc(0) = totuclfl(0) - totdclfl(0)\n\n! Calculate fluxes at model levels\n      do lev = 1, nlayers\n         totuflux(lev) = totuflux(lev) * fluxfac\n         totdflux(lev) = totdflux(lev) * fluxfac\n         fnet(lev) = totuflux(lev) - totdflux(lev)\n         totuclfl(lev) = totuclfl(lev) * fluxfac\n         totdclfl(lev) = totdclfl(lev) * fluxfac\n         fnetc(lev) = totuclfl(lev) - totdclfl(lev)\n         l = lev - 1\n\n! Calculate heating rates at model layers\n         htr(l)=heatfac*(fnet(l)-fnet(lev))/(pz(l)-pz(lev)) \n         htrc(l)=heatfac*(fnetc(l)-fnetc(lev))/(pz(l)-pz(lev)) \n      enddo\n\n! Set heating rate to zero in top layer\n      htr(nlayers) = 0.0_rb\n      htrc(nlayers) = 0.0_rb\n\n      end subroutine rtrnmr\n\n      end module rrtmg_lw_rtrnmr\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_setcoef.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_setcoef.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.5 $\n!     created:   $Date: 2009/11/12 20:52:26 $\n!\n      module rrtmg_lw_setcoef\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrtm, only : nbndlw, mg, maxxsec, mxmol\n      use rrlw_wvn, only: totplnk, totplk16, totplnkderiv, totplk16deriv\n      use rrlw_ref\n      use rrlw_vsn, only: hvrset, hnamset\n\n      implicit none\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine setcoef(nlayers, istart, pavel, tavel, tz, tbound, semiss, &\n                         coldry, wkl, wbroad, &\n                         laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                         idrv, dplankbnd_dt, &\n                         colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                         colbrd, fac00, fac01, fac10, fac11, &\n                         rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                         rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                         rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                         selffac, selffrac, indself, forfac, forfrac, indfor, &\n                         minorfrac, scaleminor, scaleminorn2, indminor)\n!----------------------------------------------------------------------------\n!\n!  Purpose:  For a given atmosphere, calculate the indices and\n!  fractions related to the pressure and temperature interpolations.\n!  Also calculate the values of the integrated Planck functions \n!  for each band at the level and layer temperatures.\n\n! ------- Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: istart          ! beginning band of calculation\n      integer(kind=im), intent(in) :: idrv            ! Planck derivative option flag\n\n      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) \n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tavel(:)           ! layer temperatures (K)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tz(0:)             ! level (interface) temperatures (K)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tbound             ! surface temperature (K)\n      real(kind=rb), intent(in) :: coldry(:)          ! dry air column density (mol/cm2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: wbroad(:)          ! broadening gas column density (mol/cm2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: wkl(:,:)           ! molecular amounts (mol/cm-2)\n                                                      !    Dimensions: (mxmol,nlayers)\n      real(kind=rb), intent(in) :: semiss(:)          ! lw surface emissivity\n                                                      !    Dimensions: (nbndlw)\n\n! ----- Output -----\n      integer(kind=im), intent(out) :: laytrop        ! tropopause layer index\n      integer(kind=im), intent(out) :: jp(:)          ! \n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: jt(:)          !\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: jt1(:)         !\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: planklay(:,:)     ! \n                                                      !    Dimensions: (nlayers,nbndlw)\n      real(kind=rb), intent(out) :: planklev(0:,:)    ! \n                                                      !    Dimensions: (0:nlayers,nbndlw)\n      real(kind=rb), intent(out) :: plankbnd(:)       ! \n                                                      !    Dimensions: (nbndlw)\n      real(kind=rb), intent(out) :: dplankbnd_dt(:)   ! \n                                                      !    Dimensions: (nbndlw)\n\n      real(kind=rb), intent(out) :: colh2o(:)         ! column amount (h2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colco2(:)         ! column amount (co2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colo3(:)          ! column amount (o3)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: coln2o(:)         ! column amount (n2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colco(:)          ! column amount (co)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colch4(:)         ! column amount (ch4)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colo2(:)          ! column amount (o2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colbrd(:)         ! column amount (broadening gases)\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(out) :: indself(:)\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: indfor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: selffac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: selffrac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: forfac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: forfrac(:)\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(out) :: indminor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: minorfrac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: scaleminor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: scaleminorn2(:)\n                                                      !    Dimensions: (nlayers)\n\n      real(kind=rb), intent(out) :: &                 !\n                       fac00(:), fac01(:), &          !    Dimensions: (nlayers)\n                       fac10(:), fac11(:) \n                                                        \n      real(kind=rb), intent(out) :: &                 !\n                       rat_h2oco2(:),rat_h2oco2_1(:), &\n                       rat_h2oo3(:),rat_h2oo3_1(:), & !    Dimensions: (nlayers)\n                       rat_h2on2o(:),rat_h2on2o_1(:), &\n                       rat_h2och4(:),rat_h2och4_1(:), &\n                       rat_n2oco2(:),rat_n2oco2_1(:), &\n                       rat_o3co2(:),rat_o3co2_1(:)\n                                                        \n\n! ----- Local -----\n      integer(kind=im) :: indbound, indlev0\n      integer(kind=im) :: lay, indlay, indlev, iband\n      integer(kind=im) :: jp1\n      real(kind=rb) :: stpfac, tbndfrac, t0frac, tlayfrac, tlevfrac\n      real(kind=rb) :: dbdtlev, dbdtlay\n      real(kind=rb) :: plog, fp, ft, ft1, water, scalefac, factor, compfp\n\n\n      hvrset = '$Revision: 1.5 $'\n\n      stpfac = 296._rb/1013._rb\n\n      indbound = tbound - 159._rb\n      if (indbound .lt. 1) then\n         indbound = 1\n      elseif (indbound .gt. 180) then\n         indbound = 180\n      endif\n      tbndfrac = tbound - 159._rb - float(indbound)\n      indlev0 = tz(0) - 159._rb\n      if (indlev0 .lt. 1) then\n         indlev0 = 1\n      elseif (indlev0 .gt. 180) then\n         indlev0 = 180\n      endif\n      t0frac = tz(0) - 159._rb - float(indlev0)\n      laytrop = 0\n\n! Begin layer loop \n!  Calculate the integrated Planck functions for each band at the\n!  surface, level, and layer temperatures.\n      do lay = 1, nlayers\n         indlay = tavel(lay) - 159._rb\n         if (indlay .lt. 1) then\n            indlay = 1\n         elseif (indlay .gt. 180) then\n            indlay = 180\n         endif\n         tlayfrac = tavel(lay) - 159._rb - float(indlay)\n         indlev = tz(lay) - 159._rb\n         if (indlev .lt. 1) then\n            indlev = 1\n         elseif (indlev .gt. 180) then\n            indlev = 180\n         endif\n         tlevfrac = tz(lay) - 159._rb - float(indlev)\n\n! Begin spectral band loop \n         do iband = 1, 15\n            if (lay.eq.1) then\n               dbdtlev = totplnk(indbound+1,iband) - totplnk(indbound,iband)\n               plankbnd(iband) = semiss(iband) * &\n                   (totplnk(indbound,iband) + tbndfrac * dbdtlev)\n               dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband)\n               planklev(0,iband) = totplnk(indlev0,iband) + t0frac * dbdtlev\n               if (idrv .eq. 1) then \n                  dbdtlev = totplnkderiv(indbound+1,iband) - totplnkderiv(indbound,iband)\n                  dplankbnd_dt(iband) = semiss(iband) * &\n                      (totplnkderiv(indbound,iband) + tbndfrac * dbdtlev)\n               endif\n            endif\n            dbdtlev = totplnk(indlev+1,iband) - totplnk(indlev,iband)\n            dbdtlay = totplnk(indlay+1,iband) - totplnk(indlay,iband)\n            planklay(lay,iband) = totplnk(indlay,iband) + tlayfrac * dbdtlay\n            planklev(lay,iband) = totplnk(indlev,iband) + tlevfrac * dbdtlev\n         enddo\n\n!  For band 16, if radiative transfer will be performed on just\n!  this band, use integrated Planck values up to 3250 cm-1.  \n!  If radiative transfer will be performed across all 16 bands,\n!  then include in the integrated Planck values for this band\n!  contributions from 2600 cm-1 to infinity.\n         iband = 16\n         if (istart .eq. 16) then\n            if (lay.eq.1) then\n               dbdtlev = totplk16(indbound+1) - totplk16(indbound)\n               plankbnd(iband) = semiss(iband) * &\n                    (totplk16(indbound) + tbndfrac * dbdtlev)\n               if (idrv .eq. 1) then\n                  dbdtlev = totplk16deriv(indbound+1) - totplk16deriv(indbound)\n                  dplankbnd_dt(iband) = semiss(iband) * &\n                       (totplk16deriv(indbound) + tbndfrac * dbdtlev)\n               endif\n               dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband)\n               planklev(0,iband) = totplk16(indlev0) + &\n                    t0frac * dbdtlev\n            endif\n            dbdtlev = totplk16(indlev+1) - totplk16(indlev)\n            dbdtlay = totplk16(indlay+1) - totplk16(indlay)\n            planklay(lay,iband) = totplk16(indlay) + tlayfrac * dbdtlay\n            planklev(lay,iband) = totplk16(indlev) + tlevfrac * dbdtlev\n         else\n            if (lay.eq.1) then\n               dbdtlev = totplnk(indbound+1,iband) - totplnk(indbound,iband)\n               plankbnd(iband) = semiss(iband) * &\n                    (totplnk(indbound,iband) + tbndfrac * dbdtlev)\n               if (idrv .eq. 1) then \n                  dbdtlev = totplnkderiv(indbound+1,iband) - totplnkderiv(indbound,iband)\n                  dplankbnd_dt(iband) = semiss(iband) * &\n                       (totplnkderiv(indbound,iband) + tbndfrac * dbdtlev)\n               endif\n               dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband)\n               planklev(0,iband) = totplnk(indlev0,iband) + t0frac * dbdtlev\n            endif\n            dbdtlev = totplnk(indlev+1,iband) - totplnk(indlev,iband)\n            dbdtlay = totplnk(indlay+1,iband) - totplnk(indlay,iband)\n            planklay(lay,iband) = totplnk(indlay,iband) + tlayfrac * dbdtlay\n            planklev(lay,iband) = totplnk(indlev,iband) + tlevfrac * dbdtlev\n         endif\n\n!  Find the two reference pressures on either side of the\n!  layer pressure.  Store them in JP and JP1.  Store in FP the\n!  fraction of the difference (in ln(pressure)) between these\n!  two values that the layer pressure lies.\n         plog = LOG(pavel(lay))\n         jp(lay) = int(36._rb - 5*(plog+0.04_rb))\n         if (jp(lay) .lt. 1) then\n            jp(lay) = 1\n         elseif (jp(lay) .gt. 58) then\n            jp(lay) = 58\n         endif\n         jp1 = jp(lay) + 1\n         fp = 5._rb *(preflog(jp(lay)) - plog)\n\n!  Determine, for each reference pressure (JP and JP1), which\n!  reference temperature (these are different for each  \n!  reference pressure) is nearest the layer temperature but does\n!  not exceed it.  Store these indices in JT and JT1, resp.\n!  Store in FT (resp. FT1) the fraction of the way between JT\n!  (JT1) and the next highest reference temperature that the \n!  layer temperature falls.\n         jt(lay) = int(3._rb + (tavel(lay)-tref(jp(lay)))/15._rb)\n         if (jt(lay) .lt. 1) then\n            jt(lay) = 1\n         elseif (jt(lay) .gt. 4) then\n            jt(lay) = 4\n         endif\n         ft = ((tavel(lay)-tref(jp(lay)))/15._rb) - float(jt(lay)-3)\n         jt1(lay) = int(3._rb + (tavel(lay)-tref(jp1))/15._rb)\n         if (jt1(lay) .lt. 1) then\n            jt1(lay) = 1\n         elseif (jt1(lay) .gt. 4) then\n            jt1(lay) = 4\n         endif\n         ft1 = ((tavel(lay)-tref(jp1))/15._rb) - float(jt1(lay)-3)\n         water = wkl(1,lay)/coldry(lay)\n         scalefac = pavel(lay) * stpfac / tavel(lay)\n\n!  If the pressure is less than ~100mb, perform a different\n!  set of species interpolations.\n         if (plog .le. 4.56_rb) go to 5300\n         laytrop =  laytrop + 1\n\n         forfac(lay) = scalefac / (1.+water)\n         factor = (332.0_rb-tavel(lay))/36.0_rb\n         indfor(lay) = min(2, max(1, int(factor)))\n         forfrac(lay) = factor - float(indfor(lay))\n\n!  Set up factors needed to separately include the water vapor\n!  self-continuum in the calculation of absorption coefficient.\n         selffac(lay) = water * forfac(lay)\n         factor = (tavel(lay)-188.0_rb)/7.2_rb\n         indself(lay) = min(9, max(1, int(factor)-7))\n         selffrac(lay) = factor - float(indself(lay) + 7)\n\n!  Set up factors needed to separately include the minor gases\n!  in the calculation of absorption coefficient\n         scaleminor(lay) = pavel(lay)/tavel(lay)\n         scaleminorn2(lay) = (pavel(lay)/tavel(lay)) &\n             *(wbroad(lay)/(coldry(lay)+wkl(1,lay)))\n         factor = (tavel(lay)-180.8_rb)/7.2_rb\n         indminor(lay) = min(18, max(1, int(factor)))\n         minorfrac(lay) = factor - float(indminor(lay))\n\n!  Setup reference ratio to be used in calculation of binary\n!  species parameter in lower atmosphere.\n         rat_h2oco2(lay)=chi_mls(1,jp(lay))/chi_mls(2,jp(lay))\n         rat_h2oco2_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(2,jp(lay)+1)\n\n         rat_h2oo3(lay)=chi_mls(1,jp(lay))/chi_mls(3,jp(lay))\n         rat_h2oo3_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(3,jp(lay)+1)\n\n         rat_h2on2o(lay)=chi_mls(1,jp(lay))/chi_mls(4,jp(lay))\n         rat_h2on2o_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(4,jp(lay)+1)\n\n         rat_h2och4(lay)=chi_mls(1,jp(lay))/chi_mls(6,jp(lay))\n         rat_h2och4_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(6,jp(lay)+1)\n\n         rat_n2oco2(lay)=chi_mls(4,jp(lay))/chi_mls(2,jp(lay))\n         rat_n2oco2_1(lay)=chi_mls(4,jp(lay)+1)/chi_mls(2,jp(lay)+1)\n\n!  Calculate needed column amounts.\n         colh2o(lay) = 1.e-20_rb * wkl(1,lay)\n         colco2(lay) = 1.e-20_rb * wkl(2,lay)\n         colo3(lay) = 1.e-20_rb * wkl(3,lay)\n         coln2o(lay) = 1.e-20_rb * wkl(4,lay)\n         colco(lay) = 1.e-20_rb * wkl(5,lay)\n         colch4(lay) = 1.e-20_rb * wkl(6,lay)\n         colo2(lay) = 1.e-20_rb * wkl(7,lay)\n         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)\n         if (colo3(lay) .eq. 0._rb) colo3(lay) = 1.e-32_rb * coldry(lay)\n         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)\n         if (colco(lay) .eq. 0._rb) colco(lay) = 1.e-32_rb * coldry(lay)\n         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)\n         colbrd(lay) = 1.e-20_rb * wbroad(lay)\n         go to 5400\n\n!  Above laytrop.\n 5300    continue\n\n         forfac(lay) = scalefac / (1.+water)\n         factor = (tavel(lay)-188.0_rb)/36.0_rb\n         indfor(lay) = 3\n         forfrac(lay) = factor - 1.0_rb\n\n!  Set up factors needed to separately include the water vapor\n!  self-continuum in the calculation of absorption coefficient.\n         selffac(lay) = water * forfac(lay)\n\n!  Set up factors needed to separately include the minor gases\n!  in the calculation of absorption coefficient\n         scaleminor(lay) = pavel(lay)/tavel(lay)         \n         scaleminorn2(lay) = (pavel(lay)/tavel(lay)) &\n             * (wbroad(lay)/(coldry(lay)+wkl(1,lay)))\n         factor = (tavel(lay)-180.8_rb)/7.2_rb\n         indminor(lay) = min(18, max(1, int(factor)))\n         minorfrac(lay) = factor - float(indminor(lay))\n\n!  Setup reference ratio to be used in calculation of binary\n!  species parameter in upper atmosphere.\n         rat_h2oco2(lay)=chi_mls(1,jp(lay))/chi_mls(2,jp(lay))\n         rat_h2oco2_1(lay)=chi_mls(1,jp(lay)+1)/chi_mls(2,jp(lay)+1)         \n\n         rat_o3co2(lay)=chi_mls(3,jp(lay))/chi_mls(2,jp(lay))\n         rat_o3co2_1(lay)=chi_mls(3,jp(lay)+1)/chi_mls(2,jp(lay)+1)         \n\n!  Calculate needed column amounts.\n         colh2o(lay) = 1.e-20_rb * wkl(1,lay)\n         colco2(lay) = 1.e-20_rb * wkl(2,lay)\n         colo3(lay) = 1.e-20_rb * wkl(3,lay)\n         coln2o(lay) = 1.e-20_rb * wkl(4,lay)\n         colco(lay) = 1.e-20_rb * wkl(5,lay)\n         colch4(lay) = 1.e-20_rb * wkl(6,lay)\n         colo2(lay) = 1.e-20_rb * wkl(7,lay)\n         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)\n         if (colo3(lay) .eq. 0._rb) colo3(lay) = 1.e-32_rb * coldry(lay)\n         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)\n         if (colco(lay)  .eq. 0._rb) colco(lay) = 1.e-32_rb * coldry(lay)\n         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)\n         colbrd(lay) = 1.e-20_rb * wbroad(lay)\n 5400    continue\n\n!  We have now isolated the layer ln pressure and temperature,\n!  between two reference pressures and two reference temperatures \n!  (for each reference pressure).  We multiply the pressure \n!  fraction FP with the appropriate temperature fractions to get \n!  the factors that will be needed for the interpolation that yields\n!  the optical depths (performed in routines TAUGBn for band n).`\n\n         compfp = 1. - fp\n         fac10(lay) = compfp * ft\n         fac00(lay) = compfp * (1._rb - ft)\n         fac11(lay) = fp * ft1\n         fac01(lay) = fp * (1._rb - ft1)\n\n!  Rescale selffac and forfac for use in taumol\n         selffac(lay) = colh2o(lay)*selffac(lay)\n         forfac(lay) = colh2o(lay)*forfac(lay)\n\n! End layer loop\n      enddo\n\n      end subroutine setcoef\n\n!***************************************************************************\n      subroutine lwatmref\n!***************************************************************************\n\n      save\n \n! These pressures are chosen such that the ln of the first pressure\n! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and\n! each subsequent ln(pressure) differs from the previous one by 0.2.\n\n      pref(:) = (/ &\n          1.05363e+03_rb,8.62642e+02_rb,7.06272e+02_rb,5.78246e+02_rb,4.73428e+02_rb, &\n          3.87610e+02_rb,3.17348e+02_rb,2.59823e+02_rb,2.12725e+02_rb,1.74164e+02_rb, &\n          1.42594e+02_rb,1.16746e+02_rb,9.55835e+01_rb,7.82571e+01_rb,6.40715e+01_rb, &\n          5.24573e+01_rb,4.29484e+01_rb,3.51632e+01_rb,2.87892e+01_rb,2.35706e+01_rb, &\n          1.92980e+01_rb,1.57998e+01_rb,1.29358e+01_rb,1.05910e+01_rb,8.67114e+00_rb, &\n          7.09933e+00_rb,5.81244e+00_rb,4.75882e+00_rb,3.89619e+00_rb,3.18993e+00_rb, &\n          2.61170e+00_rb,2.13828e+00_rb,1.75067e+00_rb,1.43333e+00_rb,1.17351e+00_rb, &\n          9.60789e-01_rb,7.86628e-01_rb,6.44036e-01_rb,5.27292e-01_rb,4.31710e-01_rb, &\n          3.53455e-01_rb,2.89384e-01_rb,2.36928e-01_rb,1.93980e-01_rb,1.58817e-01_rb, &\n          1.30029e-01_rb,1.06458e-01_rb,8.71608e-02_rb,7.13612e-02_rb,5.84256e-02_rb, &\n          4.78349e-02_rb,3.91639e-02_rb,3.20647e-02_rb,2.62523e-02_rb,2.14936e-02_rb, &\n          1.75975e-02_rb,1.44076e-02_rb,1.17959e-02_rb,9.65769e-03_rb/)\n\n      preflog(:) = (/ &\n           6.9600e+00_rb, 6.7600e+00_rb, 6.5600e+00_rb, 6.3600e+00_rb, 6.1600e+00_rb, &\n           5.9600e+00_rb, 5.7600e+00_rb, 5.5600e+00_rb, 5.3600e+00_rb, 5.1600e+00_rb, &\n           4.9600e+00_rb, 4.7600e+00_rb, 4.5600e+00_rb, 4.3600e+00_rb, 4.1600e+00_rb, &\n           3.9600e+00_rb, 3.7600e+00_rb, 3.5600e+00_rb, 3.3600e+00_rb, 3.1600e+00_rb, &\n           2.9600e+00_rb, 2.7600e+00_rb, 2.5600e+00_rb, 2.3600e+00_rb, 2.1600e+00_rb, &\n           1.9600e+00_rb, 1.7600e+00_rb, 1.5600e+00_rb, 1.3600e+00_rb, 1.1600e+00_rb, &\n           9.6000e-01_rb, 7.6000e-01_rb, 5.6000e-01_rb, 3.6000e-01_rb, 1.6000e-01_rb, &\n          -4.0000e-02_rb,-2.4000e-01_rb,-4.4000e-01_rb,-6.4000e-01_rb,-8.4000e-01_rb, &\n          -1.0400e+00_rb,-1.2400e+00_rb,-1.4400e+00_rb,-1.6400e+00_rb,-1.8400e+00_rb, &\n          -2.0400e+00_rb,-2.2400e+00_rb,-2.4400e+00_rb,-2.6400e+00_rb,-2.8400e+00_rb, &\n          -3.0400e+00_rb,-3.2400e+00_rb,-3.4400e+00_rb,-3.6400e+00_rb,-3.8400e+00_rb, &\n          -4.0400e+00_rb,-4.2400e+00_rb,-4.4400e+00_rb,-4.6400e+00_rb/)\n\n! These are the temperatures associated with the respective \n! pressures for the mls standard atmosphere. \n\n      tref(:) = (/ &\n           2.9420e+02_rb, 2.8799e+02_rb, 2.7894e+02_rb, 2.6925e+02_rb, 2.5983e+02_rb, &\n           2.5017e+02_rb, 2.4077e+02_rb, 2.3179e+02_rb, 2.2306e+02_rb, 2.1578e+02_rb, &\n           2.1570e+02_rb, 2.1570e+02_rb, 2.1570e+02_rb, 2.1706e+02_rb, 2.1858e+02_rb, &\n           2.2018e+02_rb, 2.2174e+02_rb, 2.2328e+02_rb, 2.2479e+02_rb, 2.2655e+02_rb, &\n           2.2834e+02_rb, 2.3113e+02_rb, 2.3401e+02_rb, 2.3703e+02_rb, 2.4022e+02_rb, &\n           2.4371e+02_rb, 2.4726e+02_rb, 2.5085e+02_rb, 2.5457e+02_rb, 2.5832e+02_rb, &\n           2.6216e+02_rb, 2.6606e+02_rb, 2.6999e+02_rb, 2.7340e+02_rb, 2.7536e+02_rb, &\n           2.7568e+02_rb, 2.7372e+02_rb, 2.7163e+02_rb, 2.6955e+02_rb, 2.6593e+02_rb, &\n           2.6211e+02_rb, 2.5828e+02_rb, 2.5360e+02_rb, 2.4854e+02_rb, 2.4348e+02_rb, &\n           2.3809e+02_rb, 2.3206e+02_rb, 2.2603e+02_rb, 2.2000e+02_rb, 2.1435e+02_rb, &\n           2.0887e+02_rb, 2.0340e+02_rb, 1.9792e+02_rb, 1.9290e+02_rb, 1.8809e+02_rb, &\n           1.8329e+02_rb, 1.7849e+02_rb, 1.7394e+02_rb, 1.7212e+02_rb/)\n\n       chi_mls(1,1:12) = (/ &\n        1.8760e-02_rb, 1.2223e-02_rb, 5.8909e-03_rb, 2.7675e-03_rb, 1.4065e-03_rb, &\n        7.5970e-04_rb, 3.8876e-04_rb, 1.6542e-04_rb, 3.7190e-05_rb, 7.4765e-06_rb, &\n        4.3082e-06_rb, 3.3319e-06_rb/)\n       chi_mls(1,13:59) = (/ &\n        3.2039e-06_rb,  3.1619e-06_rb,  3.2524e-06_rb,  3.4226e-06_rb,  3.6288e-06_rb, &\n        3.9148e-06_rb,  4.1488e-06_rb,  4.3081e-06_rb,  4.4420e-06_rb,  4.5778e-06_rb, &\n        4.7087e-06_rb,  4.7943e-06_rb,  4.8697e-06_rb,  4.9260e-06_rb,  4.9669e-06_rb, &\n        4.9963e-06_rb,  5.0527e-06_rb,  5.1266e-06_rb,  5.2503e-06_rb,  5.3571e-06_rb, &\n        5.4509e-06_rb,  5.4830e-06_rb,  5.5000e-06_rb,  5.5000e-06_rb,  5.4536e-06_rb, &\n        5.4047e-06_rb,  5.3558e-06_rb,  5.2533e-06_rb,  5.1436e-06_rb,  5.0340e-06_rb, &\n        4.8766e-06_rb,  4.6979e-06_rb,  4.5191e-06_rb,  4.3360e-06_rb,  4.1442e-06_rb, &\n        3.9523e-06_rb,  3.7605e-06_rb,  3.5722e-06_rb,  3.3855e-06_rb,  3.1988e-06_rb, &\n        3.0121e-06_rb,  2.8262e-06_rb,  2.6407e-06_rb,  2.4552e-06_rb,  2.2696e-06_rb, &\n        4.3360e-06_rb,  4.1442e-06_rb/)\n       chi_mls(2,1:12) = (/ &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb/)\n       chi_mls(2,13:59) = (/ &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb,  3.5500e-04_rb, &\n        3.5500e-04_rb,  3.5471e-04_rb,  3.5427e-04_rb,  3.5384e-04_rb,  3.5340e-04_rb, &\n        3.5500e-04_rb,  3.5500e-04_rb/)\n       chi_mls(3,1:12) = (/ &\n        3.0170e-08_rb,  3.4725e-08_rb,  4.2477e-08_rb,  5.2759e-08_rb,  6.6944e-08_rb, &\n        8.7130e-08_rb,  1.1391e-07_rb,  1.5677e-07_rb,  2.1788e-07_rb,  3.2443e-07_rb, &\n        4.6594e-07_rb,  5.6806e-07_rb/)\n       chi_mls(3,13:59) = (/ &\n        6.9607e-07_rb,  1.1186e-06_rb,  1.7618e-06_rb,  2.3269e-06_rb,  2.9577e-06_rb, &\n        3.6593e-06_rb,  4.5950e-06_rb,  5.3189e-06_rb,  5.9618e-06_rb,  6.5113e-06_rb, &\n        7.0635e-06_rb,  7.6917e-06_rb,  8.2577e-06_rb,  8.7082e-06_rb,  8.8325e-06_rb, &\n        8.7149e-06_rb,  8.0943e-06_rb,  7.3307e-06_rb,  6.3101e-06_rb,  5.3672e-06_rb, &\n        4.4829e-06_rb,  3.8391e-06_rb,  3.2827e-06_rb,  2.8235e-06_rb,  2.4906e-06_rb, &\n        2.1645e-06_rb,  1.8385e-06_rb,  1.6618e-06_rb,  1.5052e-06_rb,  1.3485e-06_rb, &\n        1.1972e-06_rb,  1.0482e-06_rb,  8.9926e-07_rb,  7.6343e-07_rb,  6.5381e-07_rb, &\n        5.4419e-07_rb,  4.3456e-07_rb,  3.6421e-07_rb,  3.1194e-07_rb,  2.5967e-07_rb, &\n        2.0740e-07_rb,  1.9146e-07_rb,  1.9364e-07_rb,  1.9582e-07_rb,  1.9800e-07_rb, &\n        7.6343e-07_rb,  6.5381e-07_rb/)\n       chi_mls(4,1:12) = (/ &\n        3.2000e-07_rb,  3.2000e-07_rb,  3.2000e-07_rb,  3.2000e-07_rb,  3.2000e-07_rb, &\n        3.1965e-07_rb,  3.1532e-07_rb,  3.0383e-07_rb,  2.9422e-07_rb,  2.8495e-07_rb, &\n        2.7671e-07_rb,  2.6471e-07_rb/)\n       chi_mls(4,13:59) = (/ &\n        2.4285e-07_rb,  2.0955e-07_rb,  1.7195e-07_rb,  1.3749e-07_rb,  1.1332e-07_rb, &\n        1.0035e-07_rb,  9.1281e-08_rb,  8.5463e-08_rb,  8.0363e-08_rb,  7.3372e-08_rb, &\n        6.5975e-08_rb,  5.6039e-08_rb,  4.7090e-08_rb,  3.9977e-08_rb,  3.2979e-08_rb, &\n        2.6064e-08_rb,  2.1066e-08_rb,  1.6592e-08_rb,  1.3017e-08_rb,  1.0090e-08_rb, &\n        7.6249e-09_rb,  6.1159e-09_rb,  4.6672e-09_rb,  3.2857e-09_rb,  2.8484e-09_rb, &\n        2.4620e-09_rb,  2.0756e-09_rb,  1.8551e-09_rb,  1.6568e-09_rb,  1.4584e-09_rb, &\n        1.3195e-09_rb,  1.2072e-09_rb,  1.0948e-09_rb,  9.9780e-10_rb,  9.3126e-10_rb, &\n        8.6472e-10_rb,  7.9818e-10_rb,  7.5138e-10_rb,  7.1367e-10_rb,  6.7596e-10_rb, &\n        6.3825e-10_rb,  6.0981e-10_rb,  5.8600e-10_rb,  5.6218e-10_rb,  5.3837e-10_rb, &\n        9.9780e-10_rb,  9.3126e-10_rb/)\n       chi_mls(5,1:12) = (/ &\n        1.5000e-07_rb,  1.4306e-07_rb,  1.3474e-07_rb,  1.3061e-07_rb,  1.2793e-07_rb, &\n        1.2038e-07_rb,  1.0798e-07_rb,  9.4238e-08_rb,  7.9488e-08_rb,  6.1386e-08_rb, &\n        4.5563e-08_rb,  3.3475e-08_rb/)\n       chi_mls(5,13:59) = (/ &\n        2.5118e-08_rb,  1.8671e-08_rb,  1.4349e-08_rb,  1.2501e-08_rb,  1.2407e-08_rb, &\n        1.3472e-08_rb,  1.4900e-08_rb,  1.6079e-08_rb,  1.7156e-08_rb,  1.8616e-08_rb, &\n        2.0106e-08_rb,  2.1654e-08_rb,  2.3096e-08_rb,  2.4340e-08_rb,  2.5643e-08_rb, &\n        2.6990e-08_rb,  2.8456e-08_rb,  2.9854e-08_rb,  3.0943e-08_rb,  3.2023e-08_rb, &\n        3.3101e-08_rb,  3.4260e-08_rb,  3.5360e-08_rb,  3.6397e-08_rb,  3.7310e-08_rb, &\n        3.8217e-08_rb,  3.9123e-08_rb,  4.1303e-08_rb,  4.3652e-08_rb,  4.6002e-08_rb, &\n        5.0289e-08_rb,  5.5446e-08_rb,  6.0603e-08_rb,  6.8946e-08_rb,  8.3652e-08_rb, &\n        9.8357e-08_rb,  1.1306e-07_rb,  1.4766e-07_rb,  1.9142e-07_rb,  2.3518e-07_rb, &\n        2.7894e-07_rb,  3.5001e-07_rb,  4.3469e-07_rb,  5.1938e-07_rb,  6.0407e-07_rb, &\n        6.8946e-08_rb,  8.3652e-08_rb/)\n       chi_mls(6,1:12) = (/ &\n        1.7000e-06_rb,  1.7000e-06_rb,  1.6999e-06_rb,  1.6904e-06_rb,  1.6671e-06_rb, &\n        1.6351e-06_rb,  1.6098e-06_rb,  1.5590e-06_rb,  1.5120e-06_rb,  1.4741e-06_rb, &\n        1.4385e-06_rb,  1.4002e-06_rb/)\n       chi_mls(6,13:59) = (/ &\n        1.3573e-06_rb,  1.3130e-06_rb,  1.2512e-06_rb,  1.1668e-06_rb,  1.0553e-06_rb, &\n        9.3281e-07_rb,  8.1217e-07_rb,  7.5239e-07_rb,  7.0728e-07_rb,  6.6722e-07_rb, &\n        6.2733e-07_rb,  5.8604e-07_rb,  5.4769e-07_rb,  5.1480e-07_rb,  4.8206e-07_rb, &\n        4.4943e-07_rb,  4.1702e-07_rb,  3.8460e-07_rb,  3.5200e-07_rb,  3.1926e-07_rb, &\n        2.8646e-07_rb,  2.5498e-07_rb,  2.2474e-07_rb,  1.9588e-07_rb,  1.8295e-07_rb, &\n        1.7089e-07_rb,  1.5882e-07_rb,  1.5536e-07_rb,  1.5304e-07_rb,  1.5072e-07_rb, &\n        1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb, &\n        1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb, &\n        1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb,  1.5000e-07_rb, &\n        1.5000e-07_rb,  1.5000e-07_rb/)\n       chi_mls(7,1:12) = (/ &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb/)\n       chi_mls(7,13:59) = (/ &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb,  0.2090_rb, &\n        0.2090_rb,  0.2090_rb/)\n\n      end subroutine lwatmref\n\n!***************************************************************************\n      subroutine lwavplank\n!***************************************************************************\n\n      save\n \n      totplnk(1:50,  1) = (/ &\n      0.14783e-05_rb,0.15006e-05_rb,0.15230e-05_rb,0.15455e-05_rb,0.15681e-05_rb, &\n      0.15908e-05_rb,0.16136e-05_rb,0.16365e-05_rb,0.16595e-05_rb,0.16826e-05_rb, &\n      0.17059e-05_rb,0.17292e-05_rb,0.17526e-05_rb,0.17762e-05_rb,0.17998e-05_rb, &\n      0.18235e-05_rb,0.18473e-05_rb,0.18712e-05_rb,0.18953e-05_rb,0.19194e-05_rb, &\n      0.19435e-05_rb,0.19678e-05_rb,0.19922e-05_rb,0.20166e-05_rb,0.20412e-05_rb, &\n      0.20658e-05_rb,0.20905e-05_rb,0.21153e-05_rb,0.21402e-05_rb,0.21652e-05_rb, &\n      0.21902e-05_rb,0.22154e-05_rb,0.22406e-05_rb,0.22659e-05_rb,0.22912e-05_rb, &\n      0.23167e-05_rb,0.23422e-05_rb,0.23678e-05_rb,0.23934e-05_rb,0.24192e-05_rb, &\n      0.24450e-05_rb,0.24709e-05_rb,0.24968e-05_rb,0.25229e-05_rb,0.25490e-05_rb, &\n      0.25751e-05_rb,0.26014e-05_rb,0.26277e-05_rb,0.26540e-05_rb,0.26805e-05_rb/)\n      totplnk(51:100,  1) = (/ &\n      0.27070e-05_rb,0.27335e-05_rb,0.27602e-05_rb,0.27869e-05_rb,0.28136e-05_rb, &\n      0.28404e-05_rb,0.28673e-05_rb,0.28943e-05_rb,0.29213e-05_rb,0.29483e-05_rb, &\n      0.29754e-05_rb,0.30026e-05_rb,0.30298e-05_rb,0.30571e-05_rb,0.30845e-05_rb, &\n      0.31119e-05_rb,0.31393e-05_rb,0.31669e-05_rb,0.31944e-05_rb,0.32220e-05_rb, &\n      0.32497e-05_rb,0.32774e-05_rb,0.33052e-05_rb,0.33330e-05_rb,0.33609e-05_rb, &\n      0.33888e-05_rb,0.34168e-05_rb,0.34448e-05_rb,0.34729e-05_rb,0.35010e-05_rb, &\n      0.35292e-05_rb,0.35574e-05_rb,0.35857e-05_rb,0.36140e-05_rb,0.36424e-05_rb, &\n      0.36708e-05_rb,0.36992e-05_rb,0.37277e-05_rb,0.37563e-05_rb,0.37848e-05_rb, &\n      0.38135e-05_rb,0.38421e-05_rb,0.38708e-05_rb,0.38996e-05_rb,0.39284e-05_rb, &\n      0.39572e-05_rb,0.39861e-05_rb,0.40150e-05_rb,0.40440e-05_rb,0.40730e-05_rb/)\n      totplnk(101:150,  1) = (/ &\n      0.41020e-05_rb,0.41311e-05_rb,0.41602e-05_rb,0.41893e-05_rb,0.42185e-05_rb, &\n      0.42477e-05_rb,0.42770e-05_rb,0.43063e-05_rb,0.43356e-05_rb,0.43650e-05_rb, &\n      0.43944e-05_rb,0.44238e-05_rb,0.44533e-05_rb,0.44828e-05_rb,0.45124e-05_rb, &\n      0.45419e-05_rb,0.45715e-05_rb,0.46012e-05_rb,0.46309e-05_rb,0.46606e-05_rb, &\n      0.46903e-05_rb,0.47201e-05_rb,0.47499e-05_rb,0.47797e-05_rb,0.48096e-05_rb, &\n      0.48395e-05_rb,0.48695e-05_rb,0.48994e-05_rb,0.49294e-05_rb,0.49594e-05_rb, &\n      0.49895e-05_rb,0.50196e-05_rb,0.50497e-05_rb,0.50798e-05_rb,0.51100e-05_rb, &\n      0.51402e-05_rb,0.51704e-05_rb,0.52007e-05_rb,0.52309e-05_rb,0.52612e-05_rb, &\n      0.52916e-05_rb,0.53219e-05_rb,0.53523e-05_rb,0.53827e-05_rb,0.54132e-05_rb, &\n      0.54436e-05_rb,0.54741e-05_rb,0.55047e-05_rb,0.55352e-05_rb,0.55658e-05_rb/)\n      totplnk(151:181,  1) = (/ &\n      0.55964e-05_rb,0.56270e-05_rb,0.56576e-05_rb,0.56883e-05_rb,0.57190e-05_rb, &\n      0.57497e-05_rb,0.57804e-05_rb,0.58112e-05_rb,0.58420e-05_rb,0.58728e-05_rb, &\n      0.59036e-05_rb,0.59345e-05_rb,0.59653e-05_rb,0.59962e-05_rb,0.60272e-05_rb, &\n      0.60581e-05_rb,0.60891e-05_rb,0.61201e-05_rb,0.61511e-05_rb,0.61821e-05_rb, &\n      0.62131e-05_rb,0.62442e-05_rb,0.62753e-05_rb,0.63064e-05_rb,0.63376e-05_rb, &\n      0.63687e-05_rb,0.63998e-05_rb,0.64310e-05_rb,0.64622e-05_rb,0.64935e-05_rb, &\n      0.65247e-05_rb/)\n      totplnk(1:50,  2) = (/ &\n      0.20262e-05_rb,0.20757e-05_rb,0.21257e-05_rb,0.21763e-05_rb,0.22276e-05_rb, &\n      0.22794e-05_rb,0.23319e-05_rb,0.23849e-05_rb,0.24386e-05_rb,0.24928e-05_rb, &\n      0.25477e-05_rb,0.26031e-05_rb,0.26591e-05_rb,0.27157e-05_rb,0.27728e-05_rb, &\n      0.28306e-05_rb,0.28889e-05_rb,0.29478e-05_rb,0.30073e-05_rb,0.30673e-05_rb, &\n      0.31279e-05_rb,0.31890e-05_rb,0.32507e-05_rb,0.33129e-05_rb,0.33757e-05_rb, &\n      0.34391e-05_rb,0.35029e-05_rb,0.35674e-05_rb,0.36323e-05_rb,0.36978e-05_rb, &\n      0.37638e-05_rb,0.38304e-05_rb,0.38974e-05_rb,0.39650e-05_rb,0.40331e-05_rb, &\n      0.41017e-05_rb,0.41708e-05_rb,0.42405e-05_rb,0.43106e-05_rb,0.43812e-05_rb, &\n      0.44524e-05_rb,0.45240e-05_rb,0.45961e-05_rb,0.46687e-05_rb,0.47418e-05_rb, &\n      0.48153e-05_rb,0.48894e-05_rb,0.49639e-05_rb,0.50389e-05_rb,0.51143e-05_rb/)\n      totplnk(51:100,  2) = (/ &\n      0.51902e-05_rb,0.52666e-05_rb,0.53434e-05_rb,0.54207e-05_rb,0.54985e-05_rb, &\n      0.55767e-05_rb,0.56553e-05_rb,0.57343e-05_rb,0.58139e-05_rb,0.58938e-05_rb, &\n      0.59742e-05_rb,0.60550e-05_rb,0.61362e-05_rb,0.62179e-05_rb,0.63000e-05_rb, &\n      0.63825e-05_rb,0.64654e-05_rb,0.65487e-05_rb,0.66324e-05_rb,0.67166e-05_rb, &\n      0.68011e-05_rb,0.68860e-05_rb,0.69714e-05_rb,0.70571e-05_rb,0.71432e-05_rb, &\n      0.72297e-05_rb,0.73166e-05_rb,0.74039e-05_rb,0.74915e-05_rb,0.75796e-05_rb, &\n      0.76680e-05_rb,0.77567e-05_rb,0.78459e-05_rb,0.79354e-05_rb,0.80252e-05_rb, &\n      0.81155e-05_rb,0.82061e-05_rb,0.82970e-05_rb,0.83883e-05_rb,0.84799e-05_rb, &\n      0.85719e-05_rb,0.86643e-05_rb,0.87569e-05_rb,0.88499e-05_rb,0.89433e-05_rb, &\n      0.90370e-05_rb,0.91310e-05_rb,0.92254e-05_rb,0.93200e-05_rb,0.94150e-05_rb/)\n      totplnk(101:150,  2) = (/ &\n      0.95104e-05_rb,0.96060e-05_rb,0.97020e-05_rb,0.97982e-05_rb,0.98948e-05_rb, &\n      0.99917e-05_rb,0.10089e-04_rb,0.10186e-04_rb,0.10284e-04_rb,0.10382e-04_rb, &\n      0.10481e-04_rb,0.10580e-04_rb,0.10679e-04_rb,0.10778e-04_rb,0.10877e-04_rb, &\n      0.10977e-04_rb,0.11077e-04_rb,0.11178e-04_rb,0.11279e-04_rb,0.11380e-04_rb, &\n      0.11481e-04_rb,0.11583e-04_rb,0.11684e-04_rb,0.11786e-04_rb,0.11889e-04_rb, &\n      0.11992e-04_rb,0.12094e-04_rb,0.12198e-04_rb,0.12301e-04_rb,0.12405e-04_rb, &\n      0.12509e-04_rb,0.12613e-04_rb,0.12717e-04_rb,0.12822e-04_rb,0.12927e-04_rb, &\n      0.13032e-04_rb,0.13138e-04_rb,0.13244e-04_rb,0.13349e-04_rb,0.13456e-04_rb, &\n      0.13562e-04_rb,0.13669e-04_rb,0.13776e-04_rb,0.13883e-04_rb,0.13990e-04_rb, &\n      0.14098e-04_rb,0.14206e-04_rb,0.14314e-04_rb,0.14422e-04_rb,0.14531e-04_rb/)\n      totplnk(151:181,  2) = (/ &\n      0.14639e-04_rb,0.14748e-04_rb,0.14857e-04_rb,0.14967e-04_rb,0.15076e-04_rb, &\n      0.15186e-04_rb,0.15296e-04_rb,0.15407e-04_rb,0.15517e-04_rb,0.15628e-04_rb, &\n      0.15739e-04_rb,0.15850e-04_rb,0.15961e-04_rb,0.16072e-04_rb,0.16184e-04_rb, &\n      0.16296e-04_rb,0.16408e-04_rb,0.16521e-04_rb,0.16633e-04_rb,0.16746e-04_rb, &\n      0.16859e-04_rb,0.16972e-04_rb,0.17085e-04_rb,0.17198e-04_rb,0.17312e-04_rb, &\n      0.17426e-04_rb,0.17540e-04_rb,0.17654e-04_rb,0.17769e-04_rb,0.17883e-04_rb, &\n      0.17998e-04_rb/)\n      totplnk(1:50, 3) = (/ &\n      1.34822e-06_rb,1.39134e-06_rb,1.43530e-06_rb,1.48010e-06_rb,1.52574e-06_rb, &\n      1.57222e-06_rb,1.61956e-06_rb,1.66774e-06_rb,1.71678e-06_rb,1.76666e-06_rb, &\n      1.81741e-06_rb,1.86901e-06_rb,1.92147e-06_rb,1.97479e-06_rb,2.02898e-06_rb, &\n      2.08402e-06_rb,2.13993e-06_rb,2.19671e-06_rb,2.25435e-06_rb,2.31285e-06_rb, &\n      2.37222e-06_rb,2.43246e-06_rb,2.49356e-06_rb,2.55553e-06_rb,2.61837e-06_rb, &\n      2.68207e-06_rb,2.74664e-06_rb,2.81207e-06_rb,2.87837e-06_rb,2.94554e-06_rb, &\n      3.01356e-06_rb,3.08245e-06_rb,3.15221e-06_rb,3.22282e-06_rb,3.29429e-06_rb, &\n      3.36662e-06_rb,3.43982e-06_rb,3.51386e-06_rb,3.58876e-06_rb,3.66451e-06_rb, &\n      3.74112e-06_rb,3.81857e-06_rb,3.89688e-06_rb,3.97602e-06_rb,4.05601e-06_rb, &\n      4.13685e-06_rb,4.21852e-06_rb,4.30104e-06_rb,4.38438e-06_rb,4.46857e-06_rb/)\n      totplnk(51:100, 3) = (/ &\n      4.55358e-06_rb,4.63943e-06_rb,4.72610e-06_rb,4.81359e-06_rb,4.90191e-06_rb, &\n      4.99105e-06_rb,5.08100e-06_rb,5.17176e-06_rb,5.26335e-06_rb,5.35573e-06_rb, &\n      5.44892e-06_rb,5.54292e-06_rb,5.63772e-06_rb,5.73331e-06_rb,5.82970e-06_rb, &\n      5.92688e-06_rb,6.02485e-06_rb,6.12360e-06_rb,6.22314e-06_rb,6.32346e-06_rb, &\n      6.42455e-06_rb,6.52641e-06_rb,6.62906e-06_rb,6.73247e-06_rb,6.83664e-06_rb, &\n      6.94156e-06_rb,7.04725e-06_rb,7.15370e-06_rb,7.26089e-06_rb,7.36883e-06_rb, &\n      7.47752e-06_rb,7.58695e-06_rb,7.69712e-06_rb,7.80801e-06_rb,7.91965e-06_rb, &\n      8.03201e-06_rb,8.14510e-06_rb,8.25891e-06_rb,8.37343e-06_rb,8.48867e-06_rb, &\n      8.60463e-06_rb,8.72128e-06_rb,8.83865e-06_rb,8.95672e-06_rb,9.07548e-06_rb, &\n      9.19495e-06_rb,9.31510e-06_rb,9.43594e-06_rb,9.55745e-06_rb,9.67966e-06_rb/)\n      totplnk(101:150, 3) = (/ &\n      9.80254e-06_rb,9.92609e-06_rb,1.00503e-05_rb,1.01752e-05_rb,1.03008e-05_rb, &\n      1.04270e-05_rb,1.05539e-05_rb,1.06814e-05_rb,1.08096e-05_rb,1.09384e-05_rb, &\n      1.10679e-05_rb,1.11980e-05_rb,1.13288e-05_rb,1.14601e-05_rb,1.15922e-05_rb, &\n      1.17248e-05_rb,1.18581e-05_rb,1.19920e-05_rb,1.21265e-05_rb,1.22616e-05_rb, &\n      1.23973e-05_rb,1.25337e-05_rb,1.26706e-05_rb,1.28081e-05_rb,1.29463e-05_rb, &\n      1.30850e-05_rb,1.32243e-05_rb,1.33642e-05_rb,1.35047e-05_rb,1.36458e-05_rb, &\n      1.37875e-05_rb,1.39297e-05_rb,1.40725e-05_rb,1.42159e-05_rb,1.43598e-05_rb, &\n      1.45044e-05_rb,1.46494e-05_rb,1.47950e-05_rb,1.49412e-05_rb,1.50879e-05_rb, &\n      1.52352e-05_rb,1.53830e-05_rb,1.55314e-05_rb,1.56803e-05_rb,1.58297e-05_rb, &\n      1.59797e-05_rb,1.61302e-05_rb,1.62812e-05_rb,1.64327e-05_rb,1.65848e-05_rb/)\n      totplnk(151:181, 3) = (/ &\n      1.67374e-05_rb,1.68904e-05_rb,1.70441e-05_rb,1.71982e-05_rb,1.73528e-05_rb, &\n      1.75079e-05_rb,1.76635e-05_rb,1.78197e-05_rb,1.79763e-05_rb,1.81334e-05_rb, &\n      1.82910e-05_rb,1.84491e-05_rb,1.86076e-05_rb,1.87667e-05_rb,1.89262e-05_rb, &\n      1.90862e-05_rb,1.92467e-05_rb,1.94076e-05_rb,1.95690e-05_rb,1.97309e-05_rb, &\n      1.98932e-05_rb,2.00560e-05_rb,2.02193e-05_rb,2.03830e-05_rb,2.05472e-05_rb, &\n      2.07118e-05_rb,2.08768e-05_rb,2.10423e-05_rb,2.12083e-05_rb,2.13747e-05_rb, &\n      2.15414e-05_rb/)\n      totplnk(1:50, 4) = (/ &\n      8.90528e-07_rb,9.24222e-07_rb,9.58757e-07_rb,9.94141e-07_rb,1.03038e-06_rb, &\n      1.06748e-06_rb,1.10545e-06_rb,1.14430e-06_rb,1.18403e-06_rb,1.22465e-06_rb, &\n      1.26618e-06_rb,1.30860e-06_rb,1.35193e-06_rb,1.39619e-06_rb,1.44136e-06_rb, &\n      1.48746e-06_rb,1.53449e-06_rb,1.58246e-06_rb,1.63138e-06_rb,1.68124e-06_rb, &\n      1.73206e-06_rb,1.78383e-06_rb,1.83657e-06_rb,1.89028e-06_rb,1.94495e-06_rb, &\n      2.00060e-06_rb,2.05724e-06_rb,2.11485e-06_rb,2.17344e-06_rb,2.23303e-06_rb, &\n      2.29361e-06_rb,2.35519e-06_rb,2.41777e-06_rb,2.48134e-06_rb,2.54592e-06_rb, &\n      2.61151e-06_rb,2.67810e-06_rb,2.74571e-06_rb,2.81433e-06_rb,2.88396e-06_rb, &\n      2.95461e-06_rb,3.02628e-06_rb,3.09896e-06_rb,3.17267e-06_rb,3.24741e-06_rb, &\n      3.32316e-06_rb,3.39994e-06_rb,3.47774e-06_rb,3.55657e-06_rb,3.63642e-06_rb/)\n      totplnk(51:100, 4) = (/ &\n      3.71731e-06_rb,3.79922e-06_rb,3.88216e-06_rb,3.96612e-06_rb,4.05112e-06_rb, &\n      4.13714e-06_rb,4.22419e-06_rb,4.31227e-06_rb,4.40137e-06_rb,4.49151e-06_rb, &\n      4.58266e-06_rb,4.67485e-06_rb,4.76806e-06_rb,4.86229e-06_rb,4.95754e-06_rb, &\n      5.05383e-06_rb,5.15113e-06_rb,5.24946e-06_rb,5.34879e-06_rb,5.44916e-06_rb, &\n      5.55053e-06_rb,5.65292e-06_rb,5.75632e-06_rb,5.86073e-06_rb,5.96616e-06_rb, &\n      6.07260e-06_rb,6.18003e-06_rb,6.28848e-06_rb,6.39794e-06_rb,6.50838e-06_rb, &\n      6.61983e-06_rb,6.73229e-06_rb,6.84573e-06_rb,6.96016e-06_rb,7.07559e-06_rb, &\n      7.19200e-06_rb,7.30940e-06_rb,7.42779e-06_rb,7.54715e-06_rb,7.66749e-06_rb, &\n      7.78882e-06_rb,7.91110e-06_rb,8.03436e-06_rb,8.15859e-06_rb,8.28379e-06_rb, &\n      8.40994e-06_rb,8.53706e-06_rb,8.66515e-06_rb,8.79418e-06_rb,8.92416e-06_rb/)\n      totplnk(101:150, 4) = (/ &\n      9.05510e-06_rb,9.18697e-06_rb,9.31979e-06_rb,9.45356e-06_rb,9.58826e-06_rb, &\n      9.72389e-06_rb,9.86046e-06_rb,9.99793e-06_rb,1.01364e-05_rb,1.02757e-05_rb, &\n      1.04159e-05_rb,1.05571e-05_rb,1.06992e-05_rb,1.08422e-05_rb,1.09861e-05_rb, &\n      1.11309e-05_rb,1.12766e-05_rb,1.14232e-05_rb,1.15707e-05_rb,1.17190e-05_rb, &\n      1.18683e-05_rb,1.20184e-05_rb,1.21695e-05_rb,1.23214e-05_rb,1.24741e-05_rb, &\n      1.26277e-05_rb,1.27822e-05_rb,1.29376e-05_rb,1.30939e-05_rb,1.32509e-05_rb, &\n      1.34088e-05_rb,1.35676e-05_rb,1.37273e-05_rb,1.38877e-05_rb,1.40490e-05_rb, &\n      1.42112e-05_rb,1.43742e-05_rb,1.45380e-05_rb,1.47026e-05_rb,1.48680e-05_rb, &\n      1.50343e-05_rb,1.52014e-05_rb,1.53692e-05_rb,1.55379e-05_rb,1.57074e-05_rb, &\n      1.58778e-05_rb,1.60488e-05_rb,1.62207e-05_rb,1.63934e-05_rb,1.65669e-05_rb/)\n      totplnk(151:181, 4) = (/ &\n      1.67411e-05_rb,1.69162e-05_rb,1.70920e-05_rb,1.72685e-05_rb,1.74459e-05_rb, &\n      1.76240e-05_rb,1.78029e-05_rb,1.79825e-05_rb,1.81629e-05_rb,1.83440e-05_rb, &\n      1.85259e-05_rb,1.87086e-05_rb,1.88919e-05_rb,1.90760e-05_rb,1.92609e-05_rb, &\n      1.94465e-05_rb,1.96327e-05_rb,1.98199e-05_rb,2.00076e-05_rb,2.01961e-05_rb, &\n      2.03853e-05_rb,2.05752e-05_rb,2.07658e-05_rb,2.09571e-05_rb,2.11491e-05_rb, &\n      2.13418e-05_rb,2.15352e-05_rb,2.17294e-05_rb,2.19241e-05_rb,2.21196e-05_rb, &\n      2.23158e-05_rb/)\n      totplnk(1:50, 5) = (/ &\n      5.70230e-07_rb,5.94788e-07_rb,6.20085e-07_rb,6.46130e-07_rb,6.72936e-07_rb, &\n      7.00512e-07_rb,7.28869e-07_rb,7.58019e-07_rb,7.87971e-07_rb,8.18734e-07_rb, &\n      8.50320e-07_rb,8.82738e-07_rb,9.15999e-07_rb,9.50110e-07_rb,9.85084e-07_rb, &\n      1.02093e-06_rb,1.05765e-06_rb,1.09527e-06_rb,1.13378e-06_rb,1.17320e-06_rb, &\n      1.21353e-06_rb,1.25479e-06_rb,1.29698e-06_rb,1.34011e-06_rb,1.38419e-06_rb, &\n      1.42923e-06_rb,1.47523e-06_rb,1.52221e-06_rb,1.57016e-06_rb,1.61910e-06_rb, &\n      1.66904e-06_rb,1.71997e-06_rb,1.77192e-06_rb,1.82488e-06_rb,1.87886e-06_rb, &\n      1.93387e-06_rb,1.98991e-06_rb,2.04699e-06_rb,2.10512e-06_rb,2.16430e-06_rb, &\n      2.22454e-06_rb,2.28584e-06_rb,2.34821e-06_rb,2.41166e-06_rb,2.47618e-06_rb, &\n      2.54178e-06_rb,2.60847e-06_rb,2.67626e-06_rb,2.74514e-06_rb,2.81512e-06_rb/)\n      totplnk(51:100, 5) = (/ &\n      2.88621e-06_rb,2.95841e-06_rb,3.03172e-06_rb,3.10615e-06_rb,3.18170e-06_rb, &\n      3.25838e-06_rb,3.33618e-06_rb,3.41511e-06_rb,3.49518e-06_rb,3.57639e-06_rb, &\n      3.65873e-06_rb,3.74221e-06_rb,3.82684e-06_rb,3.91262e-06_rb,3.99955e-06_rb, &\n      4.08763e-06_rb,4.17686e-06_rb,4.26725e-06_rb,4.35880e-06_rb,4.45150e-06_rb, &\n      4.54537e-06_rb,4.64039e-06_rb,4.73659e-06_rb,4.83394e-06_rb,4.93246e-06_rb, &\n      5.03215e-06_rb,5.13301e-06_rb,5.23504e-06_rb,5.33823e-06_rb,5.44260e-06_rb, &\n      5.54814e-06_rb,5.65484e-06_rb,5.76272e-06_rb,5.87177e-06_rb,5.98199e-06_rb, &\n      6.09339e-06_rb,6.20596e-06_rb,6.31969e-06_rb,6.43460e-06_rb,6.55068e-06_rb, &\n      6.66793e-06_rb,6.78636e-06_rb,6.90595e-06_rb,7.02670e-06_rb,7.14863e-06_rb, &\n      7.27173e-06_rb,7.39599e-06_rb,7.52142e-06_rb,7.64802e-06_rb,7.77577e-06_rb/)\n      totplnk(101:150, 5) = (/ &\n      7.90469e-06_rb,8.03477e-06_rb,8.16601e-06_rb,8.29841e-06_rb,8.43198e-06_rb, &\n      8.56669e-06_rb,8.70256e-06_rb,8.83957e-06_rb,8.97775e-06_rb,9.11706e-06_rb, &\n      9.25753e-06_rb,9.39915e-06_rb,9.54190e-06_rb,9.68580e-06_rb,9.83085e-06_rb, &\n      9.97704e-06_rb,1.01243e-05_rb,1.02728e-05_rb,1.04224e-05_rb,1.05731e-05_rb, &\n      1.07249e-05_rb,1.08779e-05_rb,1.10320e-05_rb,1.11872e-05_rb,1.13435e-05_rb, &\n      1.15009e-05_rb,1.16595e-05_rb,1.18191e-05_rb,1.19799e-05_rb,1.21418e-05_rb, &\n      1.23048e-05_rb,1.24688e-05_rb,1.26340e-05_rb,1.28003e-05_rb,1.29676e-05_rb, &\n      1.31361e-05_rb,1.33056e-05_rb,1.34762e-05_rb,1.36479e-05_rb,1.38207e-05_rb, &\n      1.39945e-05_rb,1.41694e-05_rb,1.43454e-05_rb,1.45225e-05_rb,1.47006e-05_rb, &\n      1.48797e-05_rb,1.50600e-05_rb,1.52413e-05_rb,1.54236e-05_rb,1.56070e-05_rb/)\n      totplnk(151:181, 5) = (/ &\n      1.57914e-05_rb,1.59768e-05_rb,1.61633e-05_rb,1.63509e-05_rb,1.65394e-05_rb, &\n      1.67290e-05_rb,1.69197e-05_rb,1.71113e-05_rb,1.73040e-05_rb,1.74976e-05_rb, &\n      1.76923e-05_rb,1.78880e-05_rb,1.80847e-05_rb,1.82824e-05_rb,1.84811e-05_rb, &\n      1.86808e-05_rb,1.88814e-05_rb,1.90831e-05_rb,1.92857e-05_rb,1.94894e-05_rb, &\n      1.96940e-05_rb,1.98996e-05_rb,2.01061e-05_rb,2.03136e-05_rb,2.05221e-05_rb, &\n      2.07316e-05_rb,2.09420e-05_rb,2.11533e-05_rb,2.13657e-05_rb,2.15789e-05_rb, &\n      2.17931e-05_rb/)\n      totplnk(1:50, 6) = (/ &\n      2.73493e-07_rb,2.87408e-07_rb,3.01848e-07_rb,3.16825e-07_rb,3.32352e-07_rb, &\n      3.48439e-07_rb,3.65100e-07_rb,3.82346e-07_rb,4.00189e-07_rb,4.18641e-07_rb, &\n      4.37715e-07_rb,4.57422e-07_rb,4.77774e-07_rb,4.98784e-07_rb,5.20464e-07_rb, &\n      5.42824e-07_rb,5.65879e-07_rb,5.89638e-07_rb,6.14115e-07_rb,6.39320e-07_rb, &\n      6.65266e-07_rb,6.91965e-07_rb,7.19427e-07_rb,7.47666e-07_rb,7.76691e-07_rb, &\n      8.06516e-07_rb,8.37151e-07_rb,8.68607e-07_rb,9.00896e-07_rb,9.34029e-07_rb, &\n      9.68018e-07_rb,1.00287e-06_rb,1.03860e-06_rb,1.07522e-06_rb,1.11274e-06_rb, &\n      1.15117e-06_rb,1.19052e-06_rb,1.23079e-06_rb,1.27201e-06_rb,1.31418e-06_rb, &\n      1.35731e-06_rb,1.40141e-06_rb,1.44650e-06_rb,1.49257e-06_rb,1.53965e-06_rb, &\n      1.58773e-06_rb,1.63684e-06_rb,1.68697e-06_rb,1.73815e-06_rb,1.79037e-06_rb/)\n      totplnk(51:100, 6) = (/ &\n      1.84365e-06_rb,1.89799e-06_rb,1.95341e-06_rb,2.00991e-06_rb,2.06750e-06_rb, &\n      2.12619e-06_rb,2.18599e-06_rb,2.24691e-06_rb,2.30895e-06_rb,2.37212e-06_rb, &\n      2.43643e-06_rb,2.50189e-06_rb,2.56851e-06_rb,2.63628e-06_rb,2.70523e-06_rb, &\n      2.77536e-06_rb,2.84666e-06_rb,2.91916e-06_rb,2.99286e-06_rb,3.06776e-06_rb, &\n      3.14387e-06_rb,3.22120e-06_rb,3.29975e-06_rb,3.37953e-06_rb,3.46054e-06_rb, &\n      3.54280e-06_rb,3.62630e-06_rb,3.71105e-06_rb,3.79707e-06_rb,3.88434e-06_rb, &\n      3.97288e-06_rb,4.06270e-06_rb,4.15380e-06_rb,4.24617e-06_rb,4.33984e-06_rb, &\n      4.43479e-06_rb,4.53104e-06_rb,4.62860e-06_rb,4.72746e-06_rb,4.82763e-06_rb, &\n      4.92911e-06_rb,5.03191e-06_rb,5.13603e-06_rb,5.24147e-06_rb,5.34824e-06_rb, &\n      5.45634e-06_rb,5.56578e-06_rb,5.67656e-06_rb,5.78867e-06_rb,5.90213e-06_rb/)\n      totplnk(101:150, 6) = (/ &\n      6.01694e-06_rb,6.13309e-06_rb,6.25060e-06_rb,6.36947e-06_rb,6.48968e-06_rb, &\n      6.61126e-06_rb,6.73420e-06_rb,6.85850e-06_rb,6.98417e-06_rb,7.11120e-06_rb, &\n      7.23961e-06_rb,7.36938e-06_rb,7.50053e-06_rb,7.63305e-06_rb,7.76694e-06_rb, &\n      7.90221e-06_rb,8.03887e-06_rb,8.17690e-06_rb,8.31632e-06_rb,8.45710e-06_rb, &\n      8.59928e-06_rb,8.74282e-06_rb,8.88776e-06_rb,9.03409e-06_rb,9.18179e-06_rb, &\n      9.33088e-06_rb,9.48136e-06_rb,9.63323e-06_rb,9.78648e-06_rb,9.94111e-06_rb, &\n      1.00971e-05_rb,1.02545e-05_rb,1.04133e-05_rb,1.05735e-05_rb,1.07351e-05_rb, &\n      1.08980e-05_rb,1.10624e-05_rb,1.12281e-05_rb,1.13952e-05_rb,1.15637e-05_rb, &\n      1.17335e-05_rb,1.19048e-05_rb,1.20774e-05_rb,1.22514e-05_rb,1.24268e-05_rb, &\n      1.26036e-05_rb,1.27817e-05_rb,1.29612e-05_rb,1.31421e-05_rb,1.33244e-05_rb/)\n      totplnk(151:181, 6) = (/ &\n      1.35080e-05_rb,1.36930e-05_rb,1.38794e-05_rb,1.40672e-05_rb,1.42563e-05_rb, &\n      1.44468e-05_rb,1.46386e-05_rb,1.48318e-05_rb,1.50264e-05_rb,1.52223e-05_rb, &\n      1.54196e-05_rb,1.56182e-05_rb,1.58182e-05_rb,1.60196e-05_rb,1.62223e-05_rb, &\n      1.64263e-05_rb,1.66317e-05_rb,1.68384e-05_rb,1.70465e-05_rb,1.72559e-05_rb, &\n      1.74666e-05_rb,1.76787e-05_rb,1.78921e-05_rb,1.81069e-05_rb,1.83230e-05_rb, &\n      1.85404e-05_rb,1.87591e-05_rb,1.89791e-05_rb,1.92005e-05_rb,1.94232e-05_rb, &\n      1.96471e-05_rb/)\n      totplnk(1:50, 7) = (/ &\n      1.25349e-07_rb,1.32735e-07_rb,1.40458e-07_rb,1.48527e-07_rb,1.56954e-07_rb, &\n      1.65748e-07_rb,1.74920e-07_rb,1.84481e-07_rb,1.94443e-07_rb,2.04814e-07_rb, &\n      2.15608e-07_rb,2.26835e-07_rb,2.38507e-07_rb,2.50634e-07_rb,2.63229e-07_rb, &\n      2.76301e-07_rb,2.89864e-07_rb,3.03930e-07_rb,3.18508e-07_rb,3.33612e-07_rb, &\n      3.49253e-07_rb,3.65443e-07_rb,3.82195e-07_rb,3.99519e-07_rb,4.17428e-07_rb, &\n      4.35934e-07_rb,4.55050e-07_rb,4.74785e-07_rb,4.95155e-07_rb,5.16170e-07_rb, &\n      5.37844e-07_rb,5.60186e-07_rb,5.83211e-07_rb,6.06929e-07_rb,6.31355e-07_rb, &\n      6.56498e-07_rb,6.82373e-07_rb,7.08990e-07_rb,7.36362e-07_rb,7.64501e-07_rb, &\n      7.93420e-07_rb,8.23130e-07_rb,8.53643e-07_rb,8.84971e-07_rb,9.17128e-07_rb, &\n      9.50123e-07_rb,9.83969e-07_rb,1.01868e-06_rb,1.05426e-06_rb,1.09073e-06_rb/)\n      totplnk(51:100, 7) = (/ &\n      1.12810e-06_rb,1.16638e-06_rb,1.20558e-06_rb,1.24572e-06_rb,1.28680e-06_rb, &\n      1.32883e-06_rb,1.37183e-06_rb,1.41581e-06_rb,1.46078e-06_rb,1.50675e-06_rb, &\n      1.55374e-06_rb,1.60174e-06_rb,1.65078e-06_rb,1.70087e-06_rb,1.75200e-06_rb, &\n      1.80421e-06_rb,1.85749e-06_rb,1.91186e-06_rb,1.96732e-06_rb,2.02389e-06_rb, &\n      2.08159e-06_rb,2.14040e-06_rb,2.20035e-06_rb,2.26146e-06_rb,2.32372e-06_rb, &\n      2.38714e-06_rb,2.45174e-06_rb,2.51753e-06_rb,2.58451e-06_rb,2.65270e-06_rb, &\n      2.72210e-06_rb,2.79272e-06_rb,2.86457e-06_rb,2.93767e-06_rb,3.01201e-06_rb, &\n      3.08761e-06_rb,3.16448e-06_rb,3.24261e-06_rb,3.32204e-06_rb,3.40275e-06_rb, &\n      3.48476e-06_rb,3.56808e-06_rb,3.65271e-06_rb,3.73866e-06_rb,3.82595e-06_rb, &\n      3.91456e-06_rb,4.00453e-06_rb,4.09584e-06_rb,4.18851e-06_rb,4.28254e-06_rb/)\n      totplnk(101:150, 7) = (/ &\n      4.37796e-06_rb,4.47475e-06_rb,4.57293e-06_rb,4.67249e-06_rb,4.77346e-06_rb, &\n      4.87583e-06_rb,4.97961e-06_rb,5.08481e-06_rb,5.19143e-06_rb,5.29948e-06_rb, &\n      5.40896e-06_rb,5.51989e-06_rb,5.63226e-06_rb,5.74608e-06_rb,5.86136e-06_rb, &\n      5.97810e-06_rb,6.09631e-06_rb,6.21597e-06_rb,6.33713e-06_rb,6.45976e-06_rb, &\n      6.58388e-06_rb,6.70950e-06_rb,6.83661e-06_rb,6.96521e-06_rb,7.09531e-06_rb, &\n      7.22692e-06_rb,7.36005e-06_rb,7.49468e-06_rb,7.63084e-06_rb,7.76851e-06_rb, &\n      7.90773e-06_rb,8.04846e-06_rb,8.19072e-06_rb,8.33452e-06_rb,8.47985e-06_rb, &\n      8.62674e-06_rb,8.77517e-06_rb,8.92514e-06_rb,9.07666e-06_rb,9.22975e-06_rb, &\n      9.38437e-06_rb,9.54057e-06_rb,9.69832e-06_rb,9.85762e-06_rb,1.00185e-05_rb, &\n      1.01810e-05_rb,1.03450e-05_rb,1.05106e-05_rb,1.06777e-05_rb,1.08465e-05_rb/)\n      totplnk(151:181, 7) = (/ &\n      1.10168e-05_rb,1.11887e-05_rb,1.13621e-05_rb,1.15372e-05_rb,1.17138e-05_rb, &\n      1.18920e-05_rb,1.20718e-05_rb,1.22532e-05_rb,1.24362e-05_rb,1.26207e-05_rb, &\n      1.28069e-05_rb,1.29946e-05_rb,1.31839e-05_rb,1.33749e-05_rb,1.35674e-05_rb, &\n      1.37615e-05_rb,1.39572e-05_rb,1.41544e-05_rb,1.43533e-05_rb,1.45538e-05_rb, &\n      1.47558e-05_rb,1.49595e-05_rb,1.51647e-05_rb,1.53716e-05_rb,1.55800e-05_rb, &\n      1.57900e-05_rb,1.60017e-05_rb,1.62149e-05_rb,1.64296e-05_rb,1.66460e-05_rb, &\n      1.68640e-05_rb/)\n      totplnk(1:50, 8) = (/ &\n      6.74445e-08_rb,7.18176e-08_rb,7.64153e-08_rb,8.12456e-08_rb,8.63170e-08_rb, &\n      9.16378e-08_rb,9.72168e-08_rb,1.03063e-07_rb,1.09184e-07_rb,1.15591e-07_rb, &\n      1.22292e-07_rb,1.29296e-07_rb,1.36613e-07_rb,1.44253e-07_rb,1.52226e-07_rb, &\n      1.60540e-07_rb,1.69207e-07_rb,1.78236e-07_rb,1.87637e-07_rb,1.97421e-07_rb, &\n      2.07599e-07_rb,2.18181e-07_rb,2.29177e-07_rb,2.40598e-07_rb,2.52456e-07_rb, &\n      2.64761e-07_rb,2.77523e-07_rb,2.90755e-07_rb,3.04468e-07_rb,3.18673e-07_rb, &\n      3.33381e-07_rb,3.48603e-07_rb,3.64352e-07_rb,3.80638e-07_rb,3.97474e-07_rb, &\n      4.14871e-07_rb,4.32841e-07_rb,4.51395e-07_rb,4.70547e-07_rb,4.90306e-07_rb, &\n      5.10687e-07_rb,5.31699e-07_rb,5.53357e-07_rb,5.75670e-07_rb,5.98652e-07_rb, &\n      6.22315e-07_rb,6.46672e-07_rb,6.71731e-07_rb,6.97511e-07_rb,7.24018e-07_rb/)\n      totplnk(51:100, 8) = (/ &\n      7.51266e-07_rb,7.79269e-07_rb,8.08038e-07_rb,8.37584e-07_rb,8.67922e-07_rb, &\n      8.99061e-07_rb,9.31016e-07_rb,9.63797e-07_rb,9.97417e-07_rb,1.03189e-06_rb, &\n      1.06722e-06_rb,1.10343e-06_rb,1.14053e-06_rb,1.17853e-06_rb,1.21743e-06_rb, &\n      1.25726e-06_rb,1.29803e-06_rb,1.33974e-06_rb,1.38241e-06_rb,1.42606e-06_rb, &\n      1.47068e-06_rb,1.51630e-06_rb,1.56293e-06_rb,1.61056e-06_rb,1.65924e-06_rb, &\n      1.70894e-06_rb,1.75971e-06_rb,1.81153e-06_rb,1.86443e-06_rb,1.91841e-06_rb, &\n      1.97350e-06_rb,2.02968e-06_rb,2.08699e-06_rb,2.14543e-06_rb,2.20500e-06_rb, &\n      2.26573e-06_rb,2.32762e-06_rb,2.39068e-06_rb,2.45492e-06_rb,2.52036e-06_rb, &\n      2.58700e-06_rb,2.65485e-06_rb,2.72393e-06_rb,2.79424e-06_rb,2.86580e-06_rb, &\n      2.93861e-06_rb,3.01269e-06_rb,3.08803e-06_rb,3.16467e-06_rb,3.24259e-06_rb/)\n      totplnk(101:150, 8) = (/ &\n      3.32181e-06_rb,3.40235e-06_rb,3.48420e-06_rb,3.56739e-06_rb,3.65192e-06_rb, &\n      3.73779e-06_rb,3.82502e-06_rb,3.91362e-06_rb,4.00359e-06_rb,4.09494e-06_rb, &\n      4.18768e-06_rb,4.28182e-06_rb,4.37737e-06_rb,4.47434e-06_rb,4.57273e-06_rb, &\n      4.67254e-06_rb,4.77380e-06_rb,4.87651e-06_rb,4.98067e-06_rb,5.08630e-06_rb, &\n      5.19339e-06_rb,5.30196e-06_rb,5.41201e-06_rb,5.52356e-06_rb,5.63660e-06_rb, &\n      5.75116e-06_rb,5.86722e-06_rb,5.98479e-06_rb,6.10390e-06_rb,6.22453e-06_rb, &\n      6.34669e-06_rb,6.47042e-06_rb,6.59569e-06_rb,6.72252e-06_rb,6.85090e-06_rb, &\n      6.98085e-06_rb,7.11238e-06_rb,7.24549e-06_rb,7.38019e-06_rb,7.51646e-06_rb, &\n      7.65434e-06_rb,7.79382e-06_rb,7.93490e-06_rb,8.07760e-06_rb,8.22192e-06_rb, &\n      8.36784e-06_rb,8.51540e-06_rb,8.66459e-06_rb,8.81542e-06_rb,8.96786e-06_rb/)\n      totplnk(151:181, 8) = (/ &\n      9.12197e-06_rb,9.27772e-06_rb,9.43513e-06_rb,9.59419e-06_rb,9.75490e-06_rb, &\n      9.91728e-06_rb,1.00813e-05_rb,1.02471e-05_rb,1.04144e-05_rb,1.05835e-05_rb, &\n      1.07543e-05_rb,1.09267e-05_rb,1.11008e-05_rb,1.12766e-05_rb,1.14541e-05_rb, &\n      1.16333e-05_rb,1.18142e-05_rb,1.19969e-05_rb,1.21812e-05_rb,1.23672e-05_rb, &\n      1.25549e-05_rb,1.27443e-05_rb,1.29355e-05_rb,1.31284e-05_rb,1.33229e-05_rb, &\n      1.35193e-05_rb,1.37173e-05_rb,1.39170e-05_rb,1.41185e-05_rb,1.43217e-05_rb, &\n      1.45267e-05_rb/)\n      totplnk(1:50, 9) = (/ &\n      2.61522e-08_rb,2.80613e-08_rb,3.00838e-08_rb,3.22250e-08_rb,3.44899e-08_rb, &\n      3.68841e-08_rb,3.94129e-08_rb,4.20820e-08_rb,4.48973e-08_rb,4.78646e-08_rb, &\n      5.09901e-08_rb,5.42799e-08_rb,5.77405e-08_rb,6.13784e-08_rb,6.52001e-08_rb, &\n      6.92126e-08_rb,7.34227e-08_rb,7.78375e-08_rb,8.24643e-08_rb,8.73103e-08_rb, &\n      9.23832e-08_rb,9.76905e-08_rb,1.03240e-07_rb,1.09039e-07_rb,1.15097e-07_rb, &\n      1.21421e-07_rb,1.28020e-07_rb,1.34902e-07_rb,1.42075e-07_rb,1.49548e-07_rb, &\n      1.57331e-07_rb,1.65432e-07_rb,1.73860e-07_rb,1.82624e-07_rb,1.91734e-07_rb, &\n      2.01198e-07_rb,2.11028e-07_rb,2.21231e-07_rb,2.31818e-07_rb,2.42799e-07_rb, &\n      2.54184e-07_rb,2.65983e-07_rb,2.78205e-07_rb,2.90862e-07_rb,3.03963e-07_rb, &\n      3.17519e-07_rb,3.31541e-07_rb,3.46039e-07_rb,3.61024e-07_rb,3.76507e-07_rb/)\n      totplnk(51:100, 9) = (/ &\n      3.92498e-07_rb,4.09008e-07_rb,4.26050e-07_rb,4.43633e-07_rb,4.61769e-07_rb, &\n      4.80469e-07_rb,4.99744e-07_rb,5.19606e-07_rb,5.40067e-07_rb,5.61136e-07_rb, &\n      5.82828e-07_rb,6.05152e-07_rb,6.28120e-07_rb,6.51745e-07_rb,6.76038e-07_rb, &\n      7.01010e-07_rb,7.26674e-07_rb,7.53041e-07_rb,7.80124e-07_rb,8.07933e-07_rb, &\n      8.36482e-07_rb,8.65781e-07_rb,8.95845e-07_rb,9.26683e-07_rb,9.58308e-07_rb, &\n      9.90732e-07_rb,1.02397e-06_rb,1.05803e-06_rb,1.09292e-06_rb,1.12866e-06_rb, &\n      1.16526e-06_rb,1.20274e-06_rb,1.24109e-06_rb,1.28034e-06_rb,1.32050e-06_rb, &\n      1.36158e-06_rb,1.40359e-06_rb,1.44655e-06_rb,1.49046e-06_rb,1.53534e-06_rb, &\n      1.58120e-06_rb,1.62805e-06_rb,1.67591e-06_rb,1.72478e-06_rb,1.77468e-06_rb, &\n      1.82561e-06_rb,1.87760e-06_rb,1.93066e-06_rb,1.98479e-06_rb,2.04000e-06_rb/)\n      totplnk(101:150, 9) = (/ &\n      2.09631e-06_rb,2.15373e-06_rb,2.21228e-06_rb,2.27196e-06_rb,2.33278e-06_rb, &\n      2.39475e-06_rb,2.45790e-06_rb,2.52222e-06_rb,2.58773e-06_rb,2.65445e-06_rb, &\n      2.72238e-06_rb,2.79152e-06_rb,2.86191e-06_rb,2.93354e-06_rb,3.00643e-06_rb, &\n      3.08058e-06_rb,3.15601e-06_rb,3.23273e-06_rb,3.31075e-06_rb,3.39009e-06_rb, &\n      3.47074e-06_rb,3.55272e-06_rb,3.63605e-06_rb,3.72072e-06_rb,3.80676e-06_rb, &\n      3.89417e-06_rb,3.98297e-06_rb,4.07315e-06_rb,4.16474e-06_rb,4.25774e-06_rb, &\n      4.35217e-06_rb,4.44802e-06_rb,4.54532e-06_rb,4.64406e-06_rb,4.74428e-06_rb, &\n      4.84595e-06_rb,4.94911e-06_rb,5.05376e-06_rb,5.15990e-06_rb,5.26755e-06_rb, &\n      5.37671e-06_rb,5.48741e-06_rb,5.59963e-06_rb,5.71340e-06_rb,5.82871e-06_rb, &\n      5.94559e-06_rb,6.06403e-06_rb,6.18404e-06_rb,6.30565e-06_rb,6.42885e-06_rb/)\n      totplnk(151:181, 9) = (/ &\n      6.55364e-06_rb,6.68004e-06_rb,6.80806e-06_rb,6.93771e-06_rb,7.06898e-06_rb, &\n      7.20190e-06_rb,7.33646e-06_rb,7.47267e-06_rb,7.61056e-06_rb,7.75010e-06_rb, &\n      7.89133e-06_rb,8.03423e-06_rb,8.17884e-06_rb,8.32514e-06_rb,8.47314e-06_rb, &\n      8.62284e-06_rb,8.77427e-06_rb,8.92743e-06_rb,9.08231e-06_rb,9.23893e-06_rb, &\n      9.39729e-06_rb,9.55741e-06_rb,9.71927e-06_rb,9.88291e-06_rb,1.00483e-05_rb, &\n      1.02155e-05_rb,1.03844e-05_rb,1.05552e-05_rb,1.07277e-05_rb,1.09020e-05_rb, &\n      1.10781e-05_rb/)\n      totplnk(1:50,10) = (/ &\n      8.89300e-09_rb,9.63263e-09_rb,1.04235e-08_rb,1.12685e-08_rb,1.21703e-08_rb, &\n      1.31321e-08_rb,1.41570e-08_rb,1.52482e-08_rb,1.64090e-08_rb,1.76428e-08_rb, &\n      1.89533e-08_rb,2.03441e-08_rb,2.18190e-08_rb,2.33820e-08_rb,2.50370e-08_rb, &\n      2.67884e-08_rb,2.86402e-08_rb,3.05969e-08_rb,3.26632e-08_rb,3.48436e-08_rb, &\n      3.71429e-08_rb,3.95660e-08_rb,4.21179e-08_rb,4.48040e-08_rb,4.76294e-08_rb, &\n      5.05996e-08_rb,5.37201e-08_rb,5.69966e-08_rb,6.04349e-08_rb,6.40411e-08_rb, &\n      6.78211e-08_rb,7.17812e-08_rb,7.59276e-08_rb,8.02670e-08_rb,8.48059e-08_rb, &\n      8.95508e-08_rb,9.45090e-08_rb,9.96873e-08_rb,1.05093e-07_rb,1.10733e-07_rb, &\n      1.16614e-07_rb,1.22745e-07_rb,1.29133e-07_rb,1.35786e-07_rb,1.42711e-07_rb, &\n      1.49916e-07_rb,1.57410e-07_rb,1.65202e-07_rb,1.73298e-07_rb,1.81709e-07_rb/)\n      totplnk(51:100,10) = (/ &\n      1.90441e-07_rb,1.99505e-07_rb,2.08908e-07_rb,2.18660e-07_rb,2.28770e-07_rb, &\n      2.39247e-07_rb,2.50101e-07_rb,2.61340e-07_rb,2.72974e-07_rb,2.85013e-07_rb, &\n      2.97467e-07_rb,3.10345e-07_rb,3.23657e-07_rb,3.37413e-07_rb,3.51623e-07_rb, &\n      3.66298e-07_rb,3.81448e-07_rb,3.97082e-07_rb,4.13212e-07_rb,4.29848e-07_rb, &\n      4.47000e-07_rb,4.64680e-07_rb,4.82898e-07_rb,5.01664e-07_rb,5.20991e-07_rb, &\n      5.40888e-07_rb,5.61369e-07_rb,5.82440e-07_rb,6.04118e-07_rb,6.26410e-07_rb, &\n      6.49329e-07_rb,6.72887e-07_rb,6.97095e-07_rb,7.21964e-07_rb,7.47506e-07_rb, &\n      7.73732e-07_rb,8.00655e-07_rb,8.28287e-07_rb,8.56635e-07_rb,8.85717e-07_rb, &\n      9.15542e-07_rb,9.46122e-07_rb,9.77469e-07_rb,1.00960e-06_rb,1.04251e-06_rb, &\n      1.07623e-06_rb,1.11077e-06_rb,1.14613e-06_rb,1.18233e-06_rb,1.21939e-06_rb/)\n      totplnk(101:150,10) = (/ &\n      1.25730e-06_rb,1.29610e-06_rb,1.33578e-06_rb,1.37636e-06_rb,1.41785e-06_rb, &\n      1.46027e-06_rb,1.50362e-06_rb,1.54792e-06_rb,1.59319e-06_rb,1.63942e-06_rb, &\n      1.68665e-06_rb,1.73487e-06_rb,1.78410e-06_rb,1.83435e-06_rb,1.88564e-06_rb, &\n      1.93797e-06_rb,1.99136e-06_rb,2.04582e-06_rb,2.10137e-06_rb,2.15801e-06_rb, &\n      2.21576e-06_rb,2.27463e-06_rb,2.33462e-06_rb,2.39577e-06_rb,2.45806e-06_rb, &\n      2.52153e-06_rb,2.58617e-06_rb,2.65201e-06_rb,2.71905e-06_rb,2.78730e-06_rb, &\n      2.85678e-06_rb,2.92749e-06_rb,2.99946e-06_rb,3.07269e-06_rb,3.14720e-06_rb, &\n      3.22299e-06_rb,3.30007e-06_rb,3.37847e-06_rb,3.45818e-06_rb,3.53923e-06_rb, &\n      3.62161e-06_rb,3.70535e-06_rb,3.79046e-06_rb,3.87695e-06_rb,3.96481e-06_rb, &\n      4.05409e-06_rb,4.14477e-06_rb,4.23687e-06_rb,4.33040e-06_rb,4.42538e-06_rb/)\n      totplnk(151:181,10) = (/ &\n      4.52180e-06_rb,4.61969e-06_rb,4.71905e-06_rb,4.81991e-06_rb,4.92226e-06_rb, &\n      5.02611e-06_rb,5.13148e-06_rb,5.23839e-06_rb,5.34681e-06_rb,5.45681e-06_rb, &\n      5.56835e-06_rb,5.68146e-06_rb,5.79614e-06_rb,5.91242e-06_rb,6.03030e-06_rb, &\n      6.14978e-06_rb,6.27088e-06_rb,6.39360e-06_rb,6.51798e-06_rb,6.64398e-06_rb, &\n      6.77165e-06_rb,6.90099e-06_rb,7.03198e-06_rb,7.16468e-06_rb,7.29906e-06_rb, &\n      7.43514e-06_rb,7.57294e-06_rb,7.71244e-06_rb,7.85369e-06_rb,7.99666e-06_rb, &\n      8.14138e-06_rb/)\n      totplnk(1:50,11) = (/ &\n      2.53767e-09_rb,2.77242e-09_rb,3.02564e-09_rb,3.29851e-09_rb,3.59228e-09_rb, &\n      3.90825e-09_rb,4.24777e-09_rb,4.61227e-09_rb,5.00322e-09_rb,5.42219e-09_rb, &\n      5.87080e-09_rb,6.35072e-09_rb,6.86370e-09_rb,7.41159e-09_rb,7.99628e-09_rb, &\n      8.61974e-09_rb,9.28404e-09_rb,9.99130e-09_rb,1.07437e-08_rb,1.15436e-08_rb, &\n      1.23933e-08_rb,1.32953e-08_rb,1.42522e-08_rb,1.52665e-08_rb,1.63410e-08_rb, &\n      1.74786e-08_rb,1.86820e-08_rb,1.99542e-08_rb,2.12985e-08_rb,2.27179e-08_rb, &\n      2.42158e-08_rb,2.57954e-08_rb,2.74604e-08_rb,2.92141e-08_rb,3.10604e-08_rb, &\n      3.30029e-08_rb,3.50457e-08_rb,3.71925e-08_rb,3.94476e-08_rb,4.18149e-08_rb, &\n      4.42991e-08_rb,4.69043e-08_rb,4.96352e-08_rb,5.24961e-08_rb,5.54921e-08_rb, &\n      5.86277e-08_rb,6.19081e-08_rb,6.53381e-08_rb,6.89231e-08_rb,7.26681e-08_rb/)\n      totplnk(51:100,11) = (/ &\n      7.65788e-08_rb,8.06604e-08_rb,8.49187e-08_rb,8.93591e-08_rb,9.39879e-08_rb, &\n      9.88106e-08_rb,1.03834e-07_rb,1.09063e-07_rb,1.14504e-07_rb,1.20165e-07_rb, &\n      1.26051e-07_rb,1.32169e-07_rb,1.38525e-07_rb,1.45128e-07_rb,1.51982e-07_rb, &\n      1.59096e-07_rb,1.66477e-07_rb,1.74132e-07_rb,1.82068e-07_rb,1.90292e-07_rb, &\n      1.98813e-07_rb,2.07638e-07_rb,2.16775e-07_rb,2.26231e-07_rb,2.36015e-07_rb, &\n      2.46135e-07_rb,2.56599e-07_rb,2.67415e-07_rb,2.78592e-07_rb,2.90137e-07_rb, &\n      3.02061e-07_rb,3.14371e-07_rb,3.27077e-07_rb,3.40186e-07_rb,3.53710e-07_rb, &\n      3.67655e-07_rb,3.82031e-07_rb,3.96848e-07_rb,4.12116e-07_rb,4.27842e-07_rb, &\n      4.44039e-07_rb,4.60713e-07_rb,4.77876e-07_rb,4.95537e-07_rb,5.13706e-07_rb, &\n      5.32392e-07_rb,5.51608e-07_rb,5.71360e-07_rb,5.91662e-07_rb,6.12521e-07_rb/)\n      totplnk(101:150,11) = (/ &\n      6.33950e-07_rb,6.55958e-07_rb,6.78556e-07_rb,7.01753e-07_rb,7.25562e-07_rb, &\n      7.49992e-07_rb,7.75055e-07_rb,8.00760e-07_rb,8.27120e-07_rb,8.54145e-07_rb, &\n      8.81845e-07_rb,9.10233e-07_rb,9.39318e-07_rb,9.69113e-07_rb,9.99627e-07_rb, &\n      1.03087e-06_rb,1.06286e-06_rb,1.09561e-06_rb,1.12912e-06_rb,1.16340e-06_rb, &\n      1.19848e-06_rb,1.23435e-06_rb,1.27104e-06_rb,1.30855e-06_rb,1.34690e-06_rb, &\n      1.38609e-06_rb,1.42614e-06_rb,1.46706e-06_rb,1.50886e-06_rb,1.55155e-06_rb, &\n      1.59515e-06_rb,1.63967e-06_rb,1.68512e-06_rb,1.73150e-06_rb,1.77884e-06_rb, &\n      1.82715e-06_rb,1.87643e-06_rb,1.92670e-06_rb,1.97797e-06_rb,2.03026e-06_rb, &\n      2.08356e-06_rb,2.13791e-06_rb,2.19330e-06_rb,2.24975e-06_rb,2.30728e-06_rb, &\n      2.36589e-06_rb,2.42560e-06_rb,2.48641e-06_rb,2.54835e-06_rb,2.61142e-06_rb/)\n      totplnk(151:181,11) = (/ &\n      2.67563e-06_rb,2.74100e-06_rb,2.80754e-06_rb,2.87526e-06_rb,2.94417e-06_rb, &\n      3.01429e-06_rb,3.08562e-06_rb,3.15819e-06_rb,3.23199e-06_rb,3.30704e-06_rb, &\n      3.38336e-06_rb,3.46096e-06_rb,3.53984e-06_rb,3.62002e-06_rb,3.70151e-06_rb, &\n      3.78433e-06_rb,3.86848e-06_rb,3.95399e-06_rb,4.04084e-06_rb,4.12907e-06_rb, &\n      4.21868e-06_rb,4.30968e-06_rb,4.40209e-06_rb,4.49592e-06_rb,4.59117e-06_rb, &\n      4.68786e-06_rb,4.78600e-06_rb,4.88561e-06_rb,4.98669e-06_rb,5.08926e-06_rb, &\n      5.19332e-06_rb/)\n      totplnk(1:50,12) = (/ &\n      2.73921e-10_rb,3.04500e-10_rb,3.38056e-10_rb,3.74835e-10_rb,4.15099e-10_rb, &\n      4.59126e-10_rb,5.07214e-10_rb,5.59679e-10_rb,6.16857e-10_rb,6.79103e-10_rb, &\n      7.46796e-10_rb,8.20335e-10_rb,9.00144e-10_rb,9.86671e-10_rb,1.08039e-09_rb, &\n      1.18180e-09_rb,1.29142e-09_rb,1.40982e-09_rb,1.53757e-09_rb,1.67529e-09_rb, &\n      1.82363e-09_rb,1.98327e-09_rb,2.15492e-09_rb,2.33932e-09_rb,2.53726e-09_rb, &\n      2.74957e-09_rb,2.97710e-09_rb,3.22075e-09_rb,3.48145e-09_rb,3.76020e-09_rb, &\n      4.05801e-09_rb,4.37595e-09_rb,4.71513e-09_rb,5.07672e-09_rb,5.46193e-09_rb, &\n      5.87201e-09_rb,6.30827e-09_rb,6.77205e-09_rb,7.26480e-09_rb,7.78794e-09_rb, &\n      8.34304e-09_rb,8.93163e-09_rb,9.55537e-09_rb,1.02159e-08_rb,1.09151e-08_rb, &\n      1.16547e-08_rb,1.24365e-08_rb,1.32625e-08_rb,1.41348e-08_rb,1.50554e-08_rb/)\n      totplnk(51:100,12) = (/ &\n      1.60264e-08_rb,1.70500e-08_rb,1.81285e-08_rb,1.92642e-08_rb,2.04596e-08_rb, &\n      2.17171e-08_rb,2.30394e-08_rb,2.44289e-08_rb,2.58885e-08_rb,2.74209e-08_rb, &\n      2.90290e-08_rb,3.07157e-08_rb,3.24841e-08_rb,3.43371e-08_rb,3.62782e-08_rb, &\n      3.83103e-08_rb,4.04371e-08_rb,4.26617e-08_rb,4.49878e-08_rb,4.74190e-08_rb, &\n      4.99589e-08_rb,5.26113e-08_rb,5.53801e-08_rb,5.82692e-08_rb,6.12826e-08_rb, &\n      6.44245e-08_rb,6.76991e-08_rb,7.11105e-08_rb,7.46634e-08_rb,7.83621e-08_rb, &\n      8.22112e-08_rb,8.62154e-08_rb,9.03795e-08_rb,9.47081e-08_rb,9.92066e-08_rb, &\n      1.03879e-07_rb,1.08732e-07_rb,1.13770e-07_rb,1.18998e-07_rb,1.24422e-07_rb, &\n      1.30048e-07_rb,1.35880e-07_rb,1.41924e-07_rb,1.48187e-07_rb,1.54675e-07_rb, &\n      1.61392e-07_rb,1.68346e-07_rb,1.75543e-07_rb,1.82988e-07_rb,1.90688e-07_rb/)\n      totplnk(101:150,12) = (/ &\n      1.98650e-07_rb,2.06880e-07_rb,2.15385e-07_rb,2.24172e-07_rb,2.33247e-07_rb, &\n      2.42617e-07_rb,2.52289e-07_rb,2.62272e-07_rb,2.72571e-07_rb,2.83193e-07_rb, &\n      2.94147e-07_rb,3.05440e-07_rb,3.17080e-07_rb,3.29074e-07_rb,3.41430e-07_rb, &\n      3.54155e-07_rb,3.67259e-07_rb,3.80747e-07_rb,3.94631e-07_rb,4.08916e-07_rb, &\n      4.23611e-07_rb,4.38725e-07_rb,4.54267e-07_rb,4.70245e-07_rb,4.86666e-07_rb, &\n      5.03541e-07_rb,5.20879e-07_rb,5.38687e-07_rb,5.56975e-07_rb,5.75751e-07_rb, &\n      5.95026e-07_rb,6.14808e-07_rb,6.35107e-07_rb,6.55932e-07_rb,6.77293e-07_rb, &\n      6.99197e-07_rb,7.21656e-07_rb,7.44681e-07_rb,7.68278e-07_rb,7.92460e-07_rb, &\n      8.17235e-07_rb,8.42614e-07_rb,8.68606e-07_rb,8.95223e-07_rb,9.22473e-07_rb, &\n      9.50366e-07_rb,9.78915e-07_rb,1.00813e-06_rb,1.03802e-06_rb,1.06859e-06_rb/)\n      totplnk(151:181,12) = (/ &\n      1.09986e-06_rb,1.13184e-06_rb,1.16453e-06_rb,1.19796e-06_rb,1.23212e-06_rb, &\n      1.26703e-06_rb,1.30270e-06_rb,1.33915e-06_rb,1.37637e-06_rb,1.41440e-06_rb, &\n      1.45322e-06_rb,1.49286e-06_rb,1.53333e-06_rb,1.57464e-06_rb,1.61679e-06_rb, &\n      1.65981e-06_rb,1.70370e-06_rb,1.74847e-06_rb,1.79414e-06_rb,1.84071e-06_rb, &\n      1.88821e-06_rb,1.93663e-06_rb,1.98599e-06_rb,2.03631e-06_rb,2.08759e-06_rb, &\n      2.13985e-06_rb,2.19310e-06_rb,2.24734e-06_rb,2.30260e-06_rb,2.35888e-06_rb, &\n      2.41619e-06_rb/)\n      totplnk(1:50,13) = (/ &\n      4.53634e-11_rb,5.11435e-11_rb,5.75754e-11_rb,6.47222e-11_rb,7.26531e-11_rb, &\n      8.14420e-11_rb,9.11690e-11_rb,1.01921e-10_rb,1.13790e-10_rb,1.26877e-10_rb, &\n      1.41288e-10_rb,1.57140e-10_rb,1.74555e-10_rb,1.93665e-10_rb,2.14613e-10_rb, &\n      2.37548e-10_rb,2.62633e-10_rb,2.90039e-10_rb,3.19948e-10_rb,3.52558e-10_rb, &\n      3.88073e-10_rb,4.26716e-10_rb,4.68719e-10_rb,5.14331e-10_rb,5.63815e-10_rb, &\n      6.17448e-10_rb,6.75526e-10_rb,7.38358e-10_rb,8.06277e-10_rb,8.79625e-10_rb, &\n      9.58770e-10_rb,1.04410e-09_rb,1.13602e-09_rb,1.23495e-09_rb,1.34135e-09_rb, &\n      1.45568e-09_rb,1.57845e-09_rb,1.71017e-09_rb,1.85139e-09_rb,2.00268e-09_rb, &\n      2.16464e-09_rb,2.33789e-09_rb,2.52309e-09_rb,2.72093e-09_rb,2.93212e-09_rb, &\n      3.15740e-09_rb,3.39757e-09_rb,3.65341e-09_rb,3.92579e-09_rb,4.21559e-09_rb/)\n      totplnk(51:100,13) = (/ &\n      4.52372e-09_rb,4.85115e-09_rb,5.19886e-09_rb,5.56788e-09_rb,5.95928e-09_rb, &\n      6.37419e-09_rb,6.81375e-09_rb,7.27917e-09_rb,7.77168e-09_rb,8.29256e-09_rb, &\n      8.84317e-09_rb,9.42487e-09_rb,1.00391e-08_rb,1.06873e-08_rb,1.13710e-08_rb, &\n      1.20919e-08_rb,1.28515e-08_rb,1.36514e-08_rb,1.44935e-08_rb,1.53796e-08_rb, &\n      1.63114e-08_rb,1.72909e-08_rb,1.83201e-08_rb,1.94008e-08_rb,2.05354e-08_rb, &\n      2.17258e-08_rb,2.29742e-08_rb,2.42830e-08_rb,2.56545e-08_rb,2.70910e-08_rb, &\n      2.85950e-08_rb,3.01689e-08_rb,3.18155e-08_rb,3.35373e-08_rb,3.53372e-08_rb, &\n      3.72177e-08_rb,3.91818e-08_rb,4.12325e-08_rb,4.33727e-08_rb,4.56056e-08_rb, &\n      4.79342e-08_rb,5.03617e-08_rb,5.28915e-08_rb,5.55270e-08_rb,5.82715e-08_rb, &\n      6.11286e-08_rb,6.41019e-08_rb,6.71951e-08_rb,7.04119e-08_rb,7.37560e-08_rb/)\n      totplnk(101:150,13) = (/ &\n      7.72315e-08_rb,8.08424e-08_rb,8.45927e-08_rb,8.84866e-08_rb,9.25281e-08_rb, &\n      9.67218e-08_rb,1.01072e-07_rb,1.05583e-07_rb,1.10260e-07_rb,1.15107e-07_rb, &\n      1.20128e-07_rb,1.25330e-07_rb,1.30716e-07_rb,1.36291e-07_rb,1.42061e-07_rb, &\n      1.48031e-07_rb,1.54206e-07_rb,1.60592e-07_rb,1.67192e-07_rb,1.74015e-07_rb, &\n      1.81064e-07_rb,1.88345e-07_rb,1.95865e-07_rb,2.03628e-07_rb,2.11643e-07_rb, &\n      2.19912e-07_rb,2.28443e-07_rb,2.37244e-07_rb,2.46318e-07_rb,2.55673e-07_rb, &\n      2.65316e-07_rb,2.75252e-07_rb,2.85489e-07_rb,2.96033e-07_rb,3.06891e-07_rb, &\n      3.18070e-07_rb,3.29576e-07_rb,3.41417e-07_rb,3.53600e-07_rb,3.66133e-07_rb, &\n      3.79021e-07_rb,3.92274e-07_rb,4.05897e-07_rb,4.19899e-07_rb,4.34288e-07_rb, &\n      4.49071e-07_rb,4.64255e-07_rb,4.79850e-07_rb,4.95863e-07_rb,5.12300e-07_rb/)\n      totplnk(151:181,13) = (/ &\n      5.29172e-07_rb,5.46486e-07_rb,5.64250e-07_rb,5.82473e-07_rb,6.01164e-07_rb, &\n      6.20329e-07_rb,6.39979e-07_rb,6.60122e-07_rb,6.80767e-07_rb,7.01922e-07_rb, &\n      7.23596e-07_rb,7.45800e-07_rb,7.68539e-07_rb,7.91826e-07_rb,8.15669e-07_rb, &\n      8.40076e-07_rb,8.65058e-07_rb,8.90623e-07_rb,9.16783e-07_rb,9.43544e-07_rb, &\n      9.70917e-07_rb,9.98912e-07_rb,1.02754e-06_rb,1.05681e-06_rb,1.08673e-06_rb, &\n      1.11731e-06_rb,1.14856e-06_rb,1.18050e-06_rb,1.21312e-06_rb,1.24645e-06_rb, &\n      1.28049e-06_rb/)\n      totplnk(1:50,14) = (/ &\n      1.40113e-11_rb,1.59358e-11_rb,1.80960e-11_rb,2.05171e-11_rb,2.32266e-11_rb, &\n      2.62546e-11_rb,2.96335e-11_rb,3.33990e-11_rb,3.75896e-11_rb,4.22469e-11_rb, &\n      4.74164e-11_rb,5.31466e-11_rb,5.94905e-11_rb,6.65054e-11_rb,7.42522e-11_rb, &\n      8.27975e-11_rb,9.22122e-11_rb,1.02573e-10_rb,1.13961e-10_rb,1.26466e-10_rb, &\n      1.40181e-10_rb,1.55206e-10_rb,1.71651e-10_rb,1.89630e-10_rb,2.09265e-10_rb, &\n      2.30689e-10_rb,2.54040e-10_rb,2.79467e-10_rb,3.07128e-10_rb,3.37190e-10_rb, &\n      3.69833e-10_rb,4.05243e-10_rb,4.43623e-10_rb,4.85183e-10_rb,5.30149e-10_rb, &\n      5.78755e-10_rb,6.31255e-10_rb,6.87910e-10_rb,7.49002e-10_rb,8.14824e-10_rb, &\n      8.85687e-10_rb,9.61914e-10_rb,1.04385e-09_rb,1.13186e-09_rb,1.22631e-09_rb, &\n      1.32761e-09_rb,1.43617e-09_rb,1.55243e-09_rb,1.67686e-09_rb,1.80992e-09_rb/)\n      totplnk(51:100,14) = (/ &\n      1.95212e-09_rb,2.10399e-09_rb,2.26607e-09_rb,2.43895e-09_rb,2.62321e-09_rb, &\n      2.81949e-09_rb,3.02844e-09_rb,3.25073e-09_rb,3.48707e-09_rb,3.73820e-09_rb, &\n      4.00490e-09_rb,4.28794e-09_rb,4.58819e-09_rb,4.90647e-09_rb,5.24371e-09_rb, &\n      5.60081e-09_rb,5.97875e-09_rb,6.37854e-09_rb,6.80120e-09_rb,7.24782e-09_rb, &\n      7.71950e-09_rb,8.21740e-09_rb,8.74271e-09_rb,9.29666e-09_rb,9.88054e-09_rb, &\n      1.04956e-08_rb,1.11434e-08_rb,1.18251e-08_rb,1.25422e-08_rb,1.32964e-08_rb, &\n      1.40890e-08_rb,1.49217e-08_rb,1.57961e-08_rb,1.67140e-08_rb,1.76771e-08_rb, &\n      1.86870e-08_rb,1.97458e-08_rb,2.08553e-08_rb,2.20175e-08_rb,2.32342e-08_rb, &\n      2.45077e-08_rb,2.58401e-08_rb,2.72334e-08_rb,2.86900e-08_rb,3.02122e-08_rb, &\n      3.18021e-08_rb,3.34624e-08_rb,3.51954e-08_rb,3.70037e-08_rb,3.88899e-08_rb/)\n      totplnk(101:150,14) = (/ &\n      4.08568e-08_rb,4.29068e-08_rb,4.50429e-08_rb,4.72678e-08_rb,4.95847e-08_rb, &\n      5.19963e-08_rb,5.45058e-08_rb,5.71161e-08_rb,5.98309e-08_rb,6.26529e-08_rb, &\n      6.55857e-08_rb,6.86327e-08_rb,7.17971e-08_rb,7.50829e-08_rb,7.84933e-08_rb, &\n      8.20323e-08_rb,8.57035e-08_rb,8.95105e-08_rb,9.34579e-08_rb,9.75488e-08_rb, &\n      1.01788e-07_rb,1.06179e-07_rb,1.10727e-07_rb,1.15434e-07_rb,1.20307e-07_rb, &\n      1.25350e-07_rb,1.30566e-07_rb,1.35961e-07_rb,1.41539e-07_rb,1.47304e-07_rb, &\n      1.53263e-07_rb,1.59419e-07_rb,1.65778e-07_rb,1.72345e-07_rb,1.79124e-07_rb, &\n      1.86122e-07_rb,1.93343e-07_rb,2.00792e-07_rb,2.08476e-07_rb,2.16400e-07_rb, &\n      2.24568e-07_rb,2.32988e-07_rb,2.41666e-07_rb,2.50605e-07_rb,2.59813e-07_rb, &\n      2.69297e-07_rb,2.79060e-07_rb,2.89111e-07_rb,2.99455e-07_rb,3.10099e-07_rb/)\n      totplnk(151:181,14) = (/ &\n      3.21049e-07_rb,3.32311e-07_rb,3.43893e-07_rb,3.55801e-07_rb,3.68041e-07_rb, &\n      3.80621e-07_rb,3.93547e-07_rb,4.06826e-07_rb,4.20465e-07_rb,4.34473e-07_rb, &\n      4.48856e-07_rb,4.63620e-07_rb,4.78774e-07_rb,4.94325e-07_rb,5.10280e-07_rb, &\n      5.26648e-07_rb,5.43436e-07_rb,5.60652e-07_rb,5.78302e-07_rb,5.96397e-07_rb, &\n      6.14943e-07_rb,6.33949e-07_rb,6.53421e-07_rb,6.73370e-07_rb,6.93803e-07_rb, &\n      7.14731e-07_rb,7.36157e-07_rb,7.58095e-07_rb,7.80549e-07_rb,8.03533e-07_rb, &\n      8.27050e-07_rb/)\n      totplnk(1:50,15) = (/ &\n      3.90483e-12_rb,4.47999e-12_rb,5.13122e-12_rb,5.86739e-12_rb,6.69829e-12_rb, &\n      7.63467e-12_rb,8.68833e-12_rb,9.87221e-12_rb,1.12005e-11_rb,1.26885e-11_rb, &\n      1.43534e-11_rb,1.62134e-11_rb,1.82888e-11_rb,2.06012e-11_rb,2.31745e-11_rb, &\n      2.60343e-11_rb,2.92087e-11_rb,3.27277e-11_rb,3.66242e-11_rb,4.09334e-11_rb, &\n      4.56935e-11_rb,5.09455e-11_rb,5.67338e-11_rb,6.31057e-11_rb,7.01127e-11_rb, &\n      7.78096e-11_rb,8.62554e-11_rb,9.55130e-11_rb,1.05651e-10_rb,1.16740e-10_rb, &\n      1.28858e-10_rb,1.42089e-10_rb,1.56519e-10_rb,1.72243e-10_rb,1.89361e-10_rb, &\n      2.07978e-10_rb,2.28209e-10_rb,2.50173e-10_rb,2.73999e-10_rb,2.99820e-10_rb, &\n      3.27782e-10_rb,3.58034e-10_rb,3.90739e-10_rb,4.26067e-10_rb,4.64196e-10_rb, &\n      5.05317e-10_rb,5.49631e-10_rb,5.97347e-10_rb,6.48689e-10_rb,7.03891e-10_rb/)\n      totplnk(51:100,15) = (/ &\n      7.63201e-10_rb,8.26876e-10_rb,8.95192e-10_rb,9.68430e-10_rb,1.04690e-09_rb, &\n      1.13091e-09_rb,1.22079e-09_rb,1.31689e-09_rb,1.41957e-09_rb,1.52922e-09_rb, &\n      1.64623e-09_rb,1.77101e-09_rb,1.90401e-09_rb,2.04567e-09_rb,2.19647e-09_rb, &\n      2.35690e-09_rb,2.52749e-09_rb,2.70875e-09_rb,2.90127e-09_rb,3.10560e-09_rb, &\n      3.32238e-09_rb,3.55222e-09_rb,3.79578e-09_rb,4.05375e-09_rb,4.32682e-09_rb, &\n      4.61574e-09_rb,4.92128e-09_rb,5.24420e-09_rb,5.58536e-09_rb,5.94558e-09_rb, &\n      6.32575e-09_rb,6.72678e-09_rb,7.14964e-09_rb,7.59526e-09_rb,8.06470e-09_rb, &\n      8.55897e-09_rb,9.07916e-09_rb,9.62638e-09_rb,1.02018e-08_rb,1.08066e-08_rb, &\n      1.14420e-08_rb,1.21092e-08_rb,1.28097e-08_rb,1.35446e-08_rb,1.43155e-08_rb, &\n      1.51237e-08_rb,1.59708e-08_rb,1.68581e-08_rb,1.77873e-08_rb,1.87599e-08_rb/)\n      totplnk(101:150,15) = (/ &\n      1.97777e-08_rb,2.08423e-08_rb,2.19555e-08_rb,2.31190e-08_rb,2.43348e-08_rb, &\n      2.56045e-08_rb,2.69302e-08_rb,2.83140e-08_rb,2.97578e-08_rb,3.12636e-08_rb, &\n      3.28337e-08_rb,3.44702e-08_rb,3.61755e-08_rb,3.79516e-08_rb,3.98012e-08_rb, &\n      4.17265e-08_rb,4.37300e-08_rb,4.58143e-08_rb,4.79819e-08_rb,5.02355e-08_rb, &\n      5.25777e-08_rb,5.50114e-08_rb,5.75393e-08_rb,6.01644e-08_rb,6.28896e-08_rb, &\n      6.57177e-08_rb,6.86521e-08_rb,7.16959e-08_rb,7.48520e-08_rb,7.81239e-08_rb, &\n      8.15148e-08_rb,8.50282e-08_rb,8.86675e-08_rb,9.24362e-08_rb,9.63380e-08_rb, &\n      1.00376e-07_rb,1.04555e-07_rb,1.08878e-07_rb,1.13349e-07_rb,1.17972e-07_rb, &\n      1.22751e-07_rb,1.27690e-07_rb,1.32793e-07_rb,1.38064e-07_rb,1.43508e-07_rb, &\n      1.49129e-07_rb,1.54931e-07_rb,1.60920e-07_rb,1.67099e-07_rb,1.73473e-07_rb/)\n      totplnk(151:181,15) = (/ &\n      1.80046e-07_rb,1.86825e-07_rb,1.93812e-07_rb,2.01014e-07_rb,2.08436e-07_rb, &\n      2.16082e-07_rb,2.23957e-07_rb,2.32067e-07_rb,2.40418e-07_rb,2.49013e-07_rb, &\n      2.57860e-07_rb,2.66963e-07_rb,2.76328e-07_rb,2.85961e-07_rb,2.95868e-07_rb, &\n      3.06053e-07_rb,3.16524e-07_rb,3.27286e-07_rb,3.38345e-07_rb,3.49707e-07_rb, &\n      3.61379e-07_rb,3.73367e-07_rb,3.85676e-07_rb,3.98315e-07_rb,4.11287e-07_rb, &\n      4.24602e-07_rb,4.38265e-07_rb,4.52283e-07_rb,4.66662e-07_rb,4.81410e-07_rb, &\n      4.96535e-07_rb/)\n      totplnk(1:50,16) = (/ &\n      0.28639e-12_rb,0.33349e-12_rb,0.38764e-12_rb,0.44977e-12_rb,0.52093e-12_rb, &\n      0.60231e-12_rb,0.69522e-12_rb,0.80111e-12_rb,0.92163e-12_rb,0.10586e-11_rb, &\n      0.12139e-11_rb,0.13899e-11_rb,0.15890e-11_rb,0.18138e-11_rb,0.20674e-11_rb, &\n      0.23531e-11_rb,0.26744e-11_rb,0.30352e-11_rb,0.34401e-11_rb,0.38936e-11_rb, &\n      0.44011e-11_rb,0.49681e-11_rb,0.56010e-11_rb,0.63065e-11_rb,0.70919e-11_rb, &\n      0.79654e-11_rb,0.89357e-11_rb,0.10012e-10_rb,0.11205e-10_rb,0.12526e-10_rb, &\n      0.13986e-10_rb,0.15600e-10_rb,0.17380e-10_rb,0.19342e-10_rb,0.21503e-10_rb, &\n      0.23881e-10_rb,0.26494e-10_rb,0.29362e-10_rb,0.32509e-10_rb,0.35958e-10_rb, &\n      0.39733e-10_rb,0.43863e-10_rb,0.48376e-10_rb,0.53303e-10_rb,0.58679e-10_rb, &\n      0.64539e-10_rb,0.70920e-10_rb,0.77864e-10_rb,0.85413e-10_rb,0.93615e-10_rb/)\n      totplnk(51:100,16) = (/ &\n      0.10252e-09_rb,0.11217e-09_rb,0.12264e-09_rb,0.13397e-09_rb,0.14624e-09_rb, &\n      0.15950e-09_rb,0.17383e-09_rb,0.18930e-09_rb,0.20599e-09_rb,0.22399e-09_rb, &\n      0.24339e-09_rb,0.26427e-09_rb,0.28674e-09_rb,0.31090e-09_rb,0.33686e-09_rb, &\n      0.36474e-09_rb,0.39466e-09_rb,0.42676e-09_rb,0.46115e-09_rb,0.49800e-09_rb, &\n      0.53744e-09_rb,0.57964e-09_rb,0.62476e-09_rb,0.67298e-09_rb,0.72448e-09_rb, &\n      0.77945e-09_rb,0.83809e-09_rb,0.90062e-09_rb,0.96725e-09_rb,0.10382e-08_rb, &\n      0.11138e-08_rb,0.11941e-08_rb,0.12796e-08_rb,0.13704e-08_rb,0.14669e-08_rb, &\n      0.15694e-08_rb,0.16781e-08_rb,0.17934e-08_rb,0.19157e-08_rb,0.20453e-08_rb, &\n      0.21825e-08_rb,0.23278e-08_rb,0.24815e-08_rb,0.26442e-08_rb,0.28161e-08_rb, &\n      0.29978e-08_rb,0.31898e-08_rb,0.33925e-08_rb,0.36064e-08_rb,0.38321e-08_rb/)\n      totplnk(101:150,16) = (/ &\n      0.40700e-08_rb,0.43209e-08_rb,0.45852e-08_rb,0.48636e-08_rb,0.51567e-08_rb, &\n      0.54652e-08_rb,0.57897e-08_rb,0.61310e-08_rb,0.64897e-08_rb,0.68667e-08_rb, &\n      0.72626e-08_rb,0.76784e-08_rb,0.81148e-08_rb,0.85727e-08_rb,0.90530e-08_rb, &\n      0.95566e-08_rb,0.10084e-07_rb,0.10638e-07_rb,0.11217e-07_rb,0.11824e-07_rb, &\n      0.12458e-07_rb,0.13123e-07_rb,0.13818e-07_rb,0.14545e-07_rb,0.15305e-07_rb, &\n      0.16099e-07_rb,0.16928e-07_rb,0.17795e-07_rb,0.18699e-07_rb,0.19643e-07_rb, &\n      0.20629e-07_rb,0.21656e-07_rb,0.22728e-07_rb,0.23845e-07_rb,0.25010e-07_rb, &\n      0.26223e-07_rb,0.27487e-07_rb,0.28804e-07_rb,0.30174e-07_rb,0.31600e-07_rb, &\n      0.33084e-07_rb,0.34628e-07_rb,0.36233e-07_rb,0.37902e-07_rb,0.39637e-07_rb, &\n      0.41440e-07_rb,0.43313e-07_rb,0.45259e-07_rb,0.47279e-07_rb,0.49376e-07_rb/)\n      totplnk(151:181,16) = (/ &\n      0.51552e-07_rb,0.53810e-07_rb,0.56153e-07_rb,0.58583e-07_rb,0.61102e-07_rb, &\n      0.63713e-07_rb,0.66420e-07_rb,0.69224e-07_rb,0.72129e-07_rb,0.75138e-07_rb, &\n      0.78254e-07_rb,0.81479e-07_rb,0.84818e-07_rb,0.88272e-07_rb,0.91846e-07_rb, &\n      0.95543e-07_rb,0.99366e-07_rb,0.10332e-06_rb,0.10740e-06_rb,0.11163e-06_rb, &\n      0.11599e-06_rb,0.12050e-06_rb,0.12515e-06_rb,0.12996e-06_rb,0.13493e-06_rb, &\n      0.14005e-06_rb,0.14534e-06_rb,0.15080e-06_rb,0.15643e-06_rb,0.16224e-06_rb, &\n      0.16823e-06_rb/)\n      totplk16(1:50) = (/ &\n      0.28481e-12_rb,0.33159e-12_rb,0.38535e-12_rb,0.44701e-12_rb,0.51763e-12_rb, &\n      0.59836e-12_rb,0.69049e-12_rb,0.79549e-12_rb,0.91493e-12_rb,0.10506e-11_rb, &\n      0.12045e-11_rb,0.13788e-11_rb,0.15758e-11_rb,0.17984e-11_rb,0.20493e-11_rb, &\n      0.23317e-11_rb,0.26494e-11_rb,0.30060e-11_rb,0.34060e-11_rb,0.38539e-11_rb, &\n      0.43548e-11_rb,0.49144e-11_rb,0.55387e-11_rb,0.62344e-11_rb,0.70086e-11_rb, &\n      0.78692e-11_rb,0.88248e-11_rb,0.98846e-11_rb,0.11059e-10_rb,0.12358e-10_rb, &\n      0.13794e-10_rb,0.15379e-10_rb,0.17128e-10_rb,0.19055e-10_rb,0.21176e-10_rb, &\n      0.23508e-10_rb,0.26070e-10_rb,0.28881e-10_rb,0.31963e-10_rb,0.35339e-10_rb, &\n      0.39034e-10_rb,0.43073e-10_rb,0.47484e-10_rb,0.52299e-10_rb,0.57548e-10_rb, &\n      0.63267e-10_rb,0.69491e-10_rb,0.76261e-10_rb,0.83616e-10_rb,0.91603e-10_rb/)\n      totplk16(51:100) = (/ &\n      0.10027e-09_rb,0.10966e-09_rb,0.11983e-09_rb,0.13084e-09_rb,0.14275e-09_rb, &\n      0.15562e-09_rb,0.16951e-09_rb,0.18451e-09_rb,0.20068e-09_rb,0.21810e-09_rb, &\n      0.23686e-09_rb,0.25704e-09_rb,0.27875e-09_rb,0.30207e-09_rb,0.32712e-09_rb, &\n      0.35400e-09_rb,0.38282e-09_rb,0.41372e-09_rb,0.44681e-09_rb,0.48223e-09_rb, &\n      0.52013e-09_rb,0.56064e-09_rb,0.60392e-09_rb,0.65015e-09_rb,0.69948e-09_rb, &\n      0.75209e-09_rb,0.80818e-09_rb,0.86794e-09_rb,0.93157e-09_rb,0.99929e-09_rb, &\n      0.10713e-08_rb,0.11479e-08_rb,0.12293e-08_rb,0.13157e-08_rb,0.14074e-08_rb, &\n      0.15047e-08_rb,0.16079e-08_rb,0.17172e-08_rb,0.18330e-08_rb,0.19557e-08_rb, &\n      0.20855e-08_rb,0.22228e-08_rb,0.23680e-08_rb,0.25214e-08_rb,0.26835e-08_rb, &\n      0.28546e-08_rb,0.30352e-08_rb,0.32257e-08_rb,0.34266e-08_rb,0.36384e-08_rb/)\n      totplk16(101:150) = (/ &\n      0.38615e-08_rb,0.40965e-08_rb,0.43438e-08_rb,0.46041e-08_rb,0.48779e-08_rb, &\n      0.51658e-08_rb,0.54683e-08_rb,0.57862e-08_rb,0.61200e-08_rb,0.64705e-08_rb, &\n      0.68382e-08_rb,0.72240e-08_rb,0.76285e-08_rb,0.80526e-08_rb,0.84969e-08_rb, &\n      0.89624e-08_rb,0.94498e-08_rb,0.99599e-08_rb,0.10494e-07_rb,0.11052e-07_rb, &\n      0.11636e-07_rb,0.12246e-07_rb,0.12884e-07_rb,0.13551e-07_rb,0.14246e-07_rb, &\n      0.14973e-07_rb,0.15731e-07_rb,0.16522e-07_rb,0.17347e-07_rb,0.18207e-07_rb, &\n      0.19103e-07_rb,0.20037e-07_rb,0.21011e-07_rb,0.22024e-07_rb,0.23079e-07_rb, &\n      0.24177e-07_rb,0.25320e-07_rb,0.26508e-07_rb,0.27744e-07_rb,0.29029e-07_rb, &\n      0.30365e-07_rb,0.31753e-07_rb,0.33194e-07_rb,0.34691e-07_rb,0.36246e-07_rb, &\n      0.37859e-07_rb,0.39533e-07_rb,0.41270e-07_rb,0.43071e-07_rb,0.44939e-07_rb/)\n      totplk16(151:181) = (/ &\n      0.46875e-07_rb,0.48882e-07_rb,0.50961e-07_rb,0.53115e-07_rb,0.55345e-07_rb, &\n      0.57655e-07_rb,0.60046e-07_rb,0.62520e-07_rb,0.65080e-07_rb,0.67728e-07_rb, &\n      0.70466e-07_rb,0.73298e-07_rb,0.76225e-07_rb,0.79251e-07_rb,0.82377e-07_rb, &\n      0.85606e-07_rb,0.88942e-07_rb,0.92386e-07_rb,0.95942e-07_rb,0.99612e-07_rb, &\n      0.10340e-06_rb,0.10731e-06_rb,0.11134e-06_rb,0.11550e-06_rb,0.11979e-06_rb, &\n      0.12421e-06_rb,0.12876e-06_rb,0.13346e-06_rb,0.13830e-06_rb,0.14328e-06_rb, &\n      0.14841e-06_rb/)\n\n      end subroutine lwavplank\n\n!***************************************************************************\n      subroutine lwavplankderiv\n!***************************************************************************\n\n      save\n \n      totplnkderiv(1:50,  1) = (/ &\n      2.22125e-08_rb,2.23245e-08_rb,2.24355e-08_rb,2.25435e-08_rb,2.26560e-08_rb, &\n      2.27620e-08_rb,2.28690e-08_rb,2.29760e-08_rb,2.30775e-08_rb,2.31800e-08_rb, &\n      2.32825e-08_rb,2.33825e-08_rb,2.34820e-08_rb,2.35795e-08_rb,2.36760e-08_rb, &\n      2.37710e-08_rb,2.38655e-08_rb,2.39595e-08_rb,2.40530e-08_rb,2.41485e-08_rb, &\n      2.42395e-08_rb,2.43300e-08_rb,2.44155e-08_rb,2.45085e-08_rb,2.45905e-08_rb, &\n      2.46735e-08_rb,2.47565e-08_rb,2.48465e-08_rb,2.49315e-08_rb,2.50100e-08_rb, &\n      2.50905e-08_rb,2.51705e-08_rb,2.52490e-08_rb,2.53260e-08_rb,2.54075e-08_rb, &\n      2.54785e-08_rb,2.55555e-08_rb,2.56340e-08_rb,2.57050e-08_rb,2.57820e-08_rb, &\n      2.58525e-08_rb,2.59205e-08_rb,2.59945e-08_rb,2.60680e-08_rb,2.61375e-08_rb, &\n      2.61980e-08_rb,2.62745e-08_rb,2.63335e-08_rb,2.63995e-08_rb,2.64710e-08_rb/)\n      totplnkderiv(51:100,  1) = (/ &\n      2.65300e-08_rb,2.66005e-08_rb,2.66685e-08_rb,2.67310e-08_rb,2.67915e-08_rb, &\n      2.68540e-08_rb,2.69065e-08_rb,2.69730e-08_rb,2.70270e-08_rb,2.70690e-08_rb, &\n      2.71420e-08_rb,2.71985e-08_rb,2.72560e-08_rb,2.73180e-08_rb,2.73760e-08_rb, &\n      2.74285e-08_rb,2.74840e-08_rb,2.75290e-08_rb,2.75950e-08_rb,2.76360e-08_rb, &\n      2.76975e-08_rb,2.77475e-08_rb,2.78080e-08_rb,2.78375e-08_rb,2.79120e-08_rb, &\n      2.79510e-08_rb,2.79955e-08_rb,2.80625e-08_rb,2.80920e-08_rb,2.81570e-08_rb, &\n      2.81990e-08_rb,2.82330e-08_rb,2.82830e-08_rb,2.83365e-08_rb,2.83740e-08_rb, &\n      2.84295e-08_rb,2.84910e-08_rb,2.85275e-08_rb,2.85525e-08_rb,2.86085e-08_rb, &\n      2.86535e-08_rb,2.86945e-08_rb,2.87355e-08_rb,2.87695e-08_rb,2.88105e-08_rb, &\n      2.88585e-08_rb,2.88945e-08_rb,2.89425e-08_rb,2.89580e-08_rb,2.90265e-08_rb/)\n      totplnkderiv(101:150,  1) = (/ &\n      2.90445e-08_rb,2.90905e-08_rb,2.91425e-08_rb,2.91560e-08_rb,2.91970e-08_rb, &\n      2.91905e-08_rb,2.92880e-08_rb,2.92950e-08_rb,2.93630e-08_rb,2.93995e-08_rb, &\n      2.94425e-08_rb,2.94635e-08_rb,2.94770e-08_rb,2.95290e-08_rb,2.95585e-08_rb, &\n      2.95815e-08_rb,2.95995e-08_rb,2.96745e-08_rb,2.96725e-08_rb,2.97040e-08_rb, &\n      2.97750e-08_rb,2.97905e-08_rb,2.98175e-08_rb,2.98355e-08_rb,2.98705e-08_rb, &\n      2.99040e-08_rb,2.99680e-08_rb,2.99860e-08_rb,3.00270e-08_rb,3.00200e-08_rb, &\n      3.00770e-08_rb,3.00795e-08_rb,3.01065e-08_rb,3.01795e-08_rb,3.01815e-08_rb, &\n      3.02025e-08_rb,3.02360e-08_rb,3.02360e-08_rb,3.03090e-08_rb,3.03155e-08_rb, &\n      3.03725e-08_rb,3.03635e-08_rb,3.04270e-08_rb,3.04610e-08_rb,3.04635e-08_rb, &\n      3.04610e-08_rb,3.05180e-08_rb,3.05430e-08_rb,3.05290e-08_rb,3.05885e-08_rb/)\n      totplnkderiv(151:181,  1) = (/ &\n      3.05750e-08_rb,3.05775e-08_rb,3.06795e-08_rb,3.07025e-08_rb,3.07365e-08_rb, &\n      3.07435e-08_rb,3.07525e-08_rb,3.07680e-08_rb,3.08115e-08_rb,3.07930e-08_rb, &\n      3.08155e-08_rb,3.08660e-08_rb,3.08865e-08_rb,3.08390e-08_rb,3.09340e-08_rb, &\n      3.09685e-08_rb,3.09340e-08_rb,3.09820e-08_rb,3.10365e-08_rb,3.10705e-08_rb, &\n      3.10750e-08_rb,3.10475e-08_rb,3.11685e-08_rb,3.11455e-08_rb,3.11500e-08_rb, &\n      3.11775e-08_rb,3.11890e-08_rb,3.12045e-08_rb,3.12185e-08_rb,3.12415e-08_rb, &\n      3.12590e-08_rb/)\n      totplnkderiv(1:50,  2) = (/ &\n      4.91150e-08_rb,4.97290e-08_rb,5.03415e-08_rb,5.09460e-08_rb,5.15550e-08_rb, &\n      5.21540e-08_rb,5.27575e-08_rb,5.33500e-08_rb,5.39500e-08_rb,5.45445e-08_rb, &\n      5.51290e-08_rb,5.57235e-08_rb,5.62955e-08_rb,5.68800e-08_rb,5.74620e-08_rb, &\n      5.80425e-08_rb,5.86145e-08_rb,5.91810e-08_rb,5.97435e-08_rb,6.03075e-08_rb, &\n      6.08625e-08_rb,6.14135e-08_rb,6.19775e-08_rb,6.25185e-08_rb,6.30675e-08_rb, &\n      6.36145e-08_rb,6.41535e-08_rb,6.46920e-08_rb,6.52265e-08_rb,6.57470e-08_rb, &\n      6.62815e-08_rb,6.68000e-08_rb,6.73320e-08_rb,6.78550e-08_rb,6.83530e-08_rb, &\n      6.88760e-08_rb,6.93735e-08_rb,6.98790e-08_rb,7.03950e-08_rb,7.08810e-08_rb, &\n      7.13815e-08_rb,7.18795e-08_rb,7.23415e-08_rb,7.28505e-08_rb,7.33285e-08_rb, &\n      7.38075e-08_rb,7.42675e-08_rb,7.47605e-08_rb,7.52380e-08_rb,7.57020e-08_rb/)\n      totplnkderiv(51:100,  2) = (/ &\n      7.61495e-08_rb,7.65955e-08_rb,7.70565e-08_rb,7.75185e-08_rb,7.79735e-08_rb, &\n      7.83915e-08_rb,7.88625e-08_rb,7.93215e-08_rb,7.97425e-08_rb,8.02195e-08_rb, &\n      8.05905e-08_rb,8.10335e-08_rb,8.14770e-08_rb,8.19025e-08_rb,8.22955e-08_rb, &\n      8.27115e-08_rb,8.31165e-08_rb,8.35645e-08_rb,8.39440e-08_rb,8.43785e-08_rb, &\n      8.47380e-08_rb,8.51495e-08_rb,8.55405e-08_rb,8.59720e-08_rb,8.63135e-08_rb, &\n      8.67065e-08_rb,8.70930e-08_rb,8.74545e-08_rb,8.78780e-08_rb,8.82160e-08_rb, &\n      8.85625e-08_rb,8.89850e-08_rb,8.93395e-08_rb,8.97080e-08_rb,9.00675e-08_rb, &\n      9.04085e-08_rb,9.07360e-08_rb,9.11315e-08_rb,9.13815e-08_rb,9.18320e-08_rb, &\n      9.21500e-08_rb,9.24725e-08_rb,9.28640e-08_rb,9.31955e-08_rb,9.35185e-08_rb, &\n      9.38645e-08_rb,9.41780e-08_rb,9.45465e-08_rb,9.48470e-08_rb,9.51375e-08_rb/)\n      totplnkderiv(101:150,  2) = (/ &\n      9.55245e-08_rb,9.57925e-08_rb,9.61195e-08_rb,9.64750e-08_rb,9.68110e-08_rb, &\n      9.71715e-08_rb,9.74150e-08_rb,9.77250e-08_rb,9.79600e-08_rb,9.82600e-08_rb, &\n      9.85300e-08_rb,9.88400e-08_rb,9.91600e-08_rb,9.95350e-08_rb,9.97500e-08_rb, &\n      1.00090e-07_rb,1.00370e-07_rb,1.00555e-07_rb,1.00935e-07_rb,1.01275e-07_rb, &\n      1.01400e-07_rb,1.01790e-07_rb,1.01945e-07_rb,1.02225e-07_rb,1.02585e-07_rb, &\n      1.02895e-07_rb,1.03010e-07_rb,1.03285e-07_rb,1.03540e-07_rb,1.03890e-07_rb, &\n      1.04015e-07_rb,1.04420e-07_rb,1.04640e-07_rb,1.04810e-07_rb,1.05090e-07_rb, &\n      1.05385e-07_rb,1.05600e-07_rb,1.05965e-07_rb,1.06050e-07_rb,1.06385e-07_rb, &\n      1.06390e-07_rb,1.06795e-07_rb,1.06975e-07_rb,1.07240e-07_rb,1.07435e-07_rb, &\n      1.07815e-07_rb,1.07960e-07_rb,1.08010e-07_rb,1.08535e-07_rb,1.08670e-07_rb/)\n      totplnkderiv(151:181,  2) = (/ &\n      1.08855e-07_rb,1.09210e-07_rb,1.09195e-07_rb,1.09510e-07_rb,1.09665e-07_rb, &\n      1.09885e-07_rb,1.10130e-07_rb,1.10440e-07_rb,1.10640e-07_rb,1.10760e-07_rb, &\n      1.11125e-07_rb,1.11195e-07_rb,1.11345e-07_rb,1.11710e-07_rb,1.11765e-07_rb, &\n      1.11960e-07_rb,1.12225e-07_rb,1.12460e-07_rb,1.12595e-07_rb,1.12730e-07_rb, &\n      1.12880e-07_rb,1.13295e-07_rb,1.13215e-07_rb,1.13505e-07_rb,1.13665e-07_rb, &\n      1.13870e-07_rb,1.14025e-07_rb,1.14325e-07_rb,1.14495e-07_rb,1.14605e-07_rb, &\n      1.14905e-07_rb/)\n      totplnkderiv(1:50, 3) = (/ &\n      4.27040e-08_rb,4.35430e-08_rb,4.43810e-08_rb,4.52210e-08_rb,4.60630e-08_rb, &\n      4.69135e-08_rb,4.77585e-08_rb,4.86135e-08_rb,4.94585e-08_rb,5.03230e-08_rb, &\n      5.11740e-08_rb,5.20250e-08_rb,5.28940e-08_rb,5.37465e-08_rb,5.46175e-08_rb, &\n      5.54700e-08_rb,5.63430e-08_rb,5.72085e-08_rb,5.80735e-08_rb,5.89430e-08_rb, &\n      5.98015e-08_rb,6.06680e-08_rb,6.15380e-08_rb,6.24130e-08_rb,6.32755e-08_rb, &\n      6.41340e-08_rb,6.50060e-08_rb,6.58690e-08_rb,6.67315e-08_rb,6.76025e-08_rb, &\n      6.84585e-08_rb,6.93205e-08_rb,7.01845e-08_rb,7.10485e-08_rb,7.19160e-08_rb, &\n      7.27695e-08_rb,7.36145e-08_rb,7.44840e-08_rb,7.53405e-08_rb,7.61770e-08_rb, &\n      7.70295e-08_rb,7.78745e-08_rb,7.87350e-08_rb,7.95740e-08_rb,8.04150e-08_rb, &\n      8.12565e-08_rb,8.20885e-08_rb,8.29455e-08_rb,8.37830e-08_rb,8.46035e-08_rb/)\n      totplnkderiv(51:100, 3) = (/ &\n      8.54315e-08_rb,8.62770e-08_rb,8.70975e-08_rb,8.79140e-08_rb,8.87190e-08_rb, &\n      8.95625e-08_rb,9.03625e-08_rb,9.11795e-08_rb,9.19930e-08_rb,9.27685e-08_rb, &\n      9.36095e-08_rb,9.43785e-08_rb,9.52375e-08_rb,9.59905e-08_rb,9.67680e-08_rb, &\n      9.75840e-08_rb,9.83755e-08_rb,9.91710e-08_rb,9.99445e-08_rb,1.00706e-07_rb, &\n      1.01477e-07_rb,1.02255e-07_rb,1.03021e-07_rb,1.03776e-07_rb,1.04544e-07_rb, &\n      1.05338e-07_rb,1.06082e-07_rb,1.06843e-07_rb,1.07543e-07_rb,1.08298e-07_rb, &\n      1.09103e-07_rb,1.09812e-07_rb,1.10536e-07_rb,1.11268e-07_rb,1.12027e-07_rb, &\n      1.12727e-07_rb,1.13464e-07_rb,1.14183e-07_rb,1.15037e-07_rb,1.15615e-07_rb, &\n      1.16329e-07_rb,1.17057e-07_rb,1.17734e-07_rb,1.18448e-07_rb,1.19149e-07_rb, &\n      1.19835e-07_rb,1.20512e-07_rb,1.21127e-07_rb,1.21895e-07_rb,1.22581e-07_rb/)\n      totplnkderiv(101:150, 3) = (/ &\n      1.23227e-07_rb,1.23928e-07_rb,1.24560e-07_rb,1.25220e-07_rb,1.25895e-07_rb, &\n      1.26565e-07_rb,1.27125e-07_rb,1.27855e-07_rb,1.28490e-07_rb,1.29195e-07_rb, &\n      1.29790e-07_rb,1.30470e-07_rb,1.31070e-07_rb,1.31690e-07_rb,1.32375e-07_rb, &\n      1.32960e-07_rb,1.33570e-07_rb,1.34230e-07_rb,1.34840e-07_rb,1.35315e-07_rb, &\n      1.35990e-07_rb,1.36555e-07_rb,1.37265e-07_rb,1.37945e-07_rb,1.38425e-07_rb, &\n      1.38950e-07_rb,1.39640e-07_rb,1.40220e-07_rb,1.40775e-07_rb,1.41400e-07_rb, &\n      1.42020e-07_rb,1.42500e-07_rb,1.43085e-07_rb,1.43680e-07_rb,1.44255e-07_rb, &\n      1.44855e-07_rb,1.45385e-07_rb,1.45890e-07_rb,1.46430e-07_rb,1.46920e-07_rb, &\n      1.47715e-07_rb,1.48090e-07_rb,1.48695e-07_rb,1.49165e-07_rb,1.49715e-07_rb, &\n      1.50130e-07_rb,1.50720e-07_rb,1.51330e-07_rb,1.51725e-07_rb,1.52350e-07_rb/)\n      totplnkderiv(151:181, 3) = (/ &\n      1.52965e-07_rb,1.53305e-07_rb,1.53915e-07_rb,1.54280e-07_rb,1.54950e-07_rb, &\n      1.55370e-07_rb,1.55850e-07_rb,1.56260e-07_rb,1.56825e-07_rb,1.57470e-07_rb, &\n      1.57760e-07_rb,1.58295e-07_rb,1.58780e-07_rb,1.59470e-07_rb,1.59940e-07_rb, &\n      1.60325e-07_rb,1.60825e-07_rb,1.61100e-07_rb,1.61605e-07_rb,1.62045e-07_rb, &\n      1.62670e-07_rb,1.63020e-07_rb,1.63625e-07_rb,1.63900e-07_rb,1.64420e-07_rb, &\n      1.64705e-07_rb,1.65430e-07_rb,1.65610e-07_rb,1.66220e-07_rb,1.66585e-07_rb, &\n      1.66965e-07_rb/)\n      totplnkderiv(1:50, 4) = (/ &\n      3.32829e-08_rb,3.41160e-08_rb,3.49626e-08_rb,3.58068e-08_rb,3.66765e-08_rb, &\n      3.75320e-08_rb,3.84095e-08_rb,3.92920e-08_rb,4.01830e-08_rb,4.10715e-08_rb, &\n      4.19735e-08_rb,4.28835e-08_rb,4.37915e-08_rb,4.47205e-08_rb,4.56410e-08_rb, &\n      4.65770e-08_rb,4.75090e-08_rb,4.84530e-08_rb,4.93975e-08_rb,5.03470e-08_rb, &\n      5.13000e-08_rb,5.22560e-08_rb,5.32310e-08_rb,5.41865e-08_rb,5.51655e-08_rb, &\n      5.61590e-08_rb,5.71120e-08_rb,5.81075e-08_rb,5.91060e-08_rb,6.00895e-08_rb, &\n      6.10750e-08_rb,6.20740e-08_rb,6.30790e-08_rb,6.40765e-08_rb,6.50940e-08_rb, &\n      6.60895e-08_rb,6.71230e-08_rb,6.81200e-08_rb,6.91260e-08_rb,7.01485e-08_rb, &\n      7.11625e-08_rb,7.21870e-08_rb,7.32010e-08_rb,7.42080e-08_rb,7.52285e-08_rb, &\n      7.62930e-08_rb,7.73040e-08_rb,7.83185e-08_rb,7.93410e-08_rb,8.03560e-08_rb/)\n      totplnkderiv(51:100, 4) = (/ &\n      8.14115e-08_rb,8.24200e-08_rb,8.34555e-08_rb,8.45100e-08_rb,8.55265e-08_rb, &\n      8.65205e-08_rb,8.75615e-08_rb,8.85870e-08_rb,8.96175e-08_rb,9.07015e-08_rb, &\n      9.16475e-08_rb,9.27525e-08_rb,9.37055e-08_rb,9.47375e-08_rb,9.57995e-08_rb, &\n      9.67635e-08_rb,9.77980e-08_rb,9.87735e-08_rb,9.98485e-08_rb,1.00904e-07_rb, &\n      1.01900e-07_rb,1.02876e-07_rb,1.03905e-07_rb,1.04964e-07_rb,1.05956e-07_rb, &\n      1.06870e-07_rb,1.07952e-07_rb,1.08944e-07_rb,1.10003e-07_rb,1.10965e-07_rb, &\n      1.11952e-07_rb,1.12927e-07_rb,1.13951e-07_rb,1.14942e-07_rb,1.15920e-07_rb, &\n      1.16968e-07_rb,1.17877e-07_rb,1.18930e-07_rb,1.19862e-07_rb,1.20817e-07_rb, &\n      1.21817e-07_rb,1.22791e-07_rb,1.23727e-07_rb,1.24751e-07_rb,1.25697e-07_rb, &\n      1.26634e-07_rb,1.27593e-07_rb,1.28585e-07_rb,1.29484e-07_rb,1.30485e-07_rb/)\n      totplnkderiv(101:150, 4) = (/ &\n      1.31363e-07_rb,1.32391e-07_rb,1.33228e-07_rb,1.34155e-07_rb,1.35160e-07_rb, &\n      1.36092e-07_rb,1.37070e-07_rb,1.37966e-07_rb,1.38865e-07_rb,1.39740e-07_rb, &\n      1.40770e-07_rb,1.41620e-07_rb,1.42605e-07_rb,1.43465e-07_rb,1.44240e-07_rb, &\n      1.45305e-07_rb,1.46220e-07_rb,1.47070e-07_rb,1.47935e-07_rb,1.48890e-07_rb, &\n      1.49905e-07_rb,1.50640e-07_rb,1.51435e-07_rb,1.52335e-07_rb,1.53235e-07_rb, &\n      1.54045e-07_rb,1.54895e-07_rb,1.55785e-07_rb,1.56870e-07_rb,1.57360e-07_rb, &\n      1.58395e-07_rb,1.59185e-07_rb,1.60060e-07_rb,1.60955e-07_rb,1.61770e-07_rb, &\n      1.62445e-07_rb,1.63415e-07_rb,1.64170e-07_rb,1.65125e-07_rb,1.65995e-07_rb, &\n      1.66545e-07_rb,1.67580e-07_rb,1.68295e-07_rb,1.69130e-07_rb,1.69935e-07_rb, &\n      1.70800e-07_rb,1.71610e-07_rb,1.72365e-07_rb,1.73215e-07_rb,1.73770e-07_rb/)\n      totplnkderiv(151:181, 4) = (/ &\n      1.74590e-07_rb,1.75525e-07_rb,1.76095e-07_rb,1.77125e-07_rb,1.77745e-07_rb, &\n      1.78580e-07_rb,1.79315e-07_rb,1.80045e-07_rb,1.80695e-07_rb,1.81580e-07_rb, &\n      1.82360e-07_rb,1.83205e-07_rb,1.84055e-07_rb,1.84315e-07_rb,1.85225e-07_rb, &\n      1.85865e-07_rb,1.86660e-07_rb,1.87445e-07_rb,1.88350e-07_rb,1.88930e-07_rb, &\n      1.89420e-07_rb,1.90275e-07_rb,1.90630e-07_rb,1.91650e-07_rb,1.92485e-07_rb, &\n      1.93285e-07_rb,1.93695e-07_rb,1.94595e-07_rb,1.94895e-07_rb,1.95960e-07_rb, &\n      1.96525e-07_rb/)\n      totplnkderiv(1:50, 5) = (/ &\n      2.41948e-08_rb,2.49273e-08_rb,2.56705e-08_rb,2.64263e-08_rb,2.71899e-08_rb, &\n      2.79687e-08_rb,2.87531e-08_rb,2.95520e-08_rb,3.03567e-08_rb,3.11763e-08_rb, &\n      3.20014e-08_rb,3.28390e-08_rb,3.36865e-08_rb,3.45395e-08_rb,3.54083e-08_rb, &\n      3.62810e-08_rb,3.71705e-08_rb,3.80585e-08_rb,3.89650e-08_rb,3.98750e-08_rb, &\n      4.07955e-08_rb,4.17255e-08_rb,4.26635e-08_rb,4.36095e-08_rb,4.45605e-08_rb, &\n      4.55190e-08_rb,4.64910e-08_rb,4.74670e-08_rb,4.84480e-08_rb,4.94430e-08_rb, &\n      5.04460e-08_rb,5.14440e-08_rb,5.24500e-08_rb,5.34835e-08_rb,5.44965e-08_rb, &\n      5.55325e-08_rb,5.65650e-08_rb,5.76050e-08_rb,5.86615e-08_rb,5.97175e-08_rb, &\n      6.07750e-08_rb,6.18400e-08_rb,6.29095e-08_rb,6.39950e-08_rb,6.50665e-08_rb, &\n      6.61405e-08_rb,6.72290e-08_rb,6.82800e-08_rb,6.94445e-08_rb,7.05460e-08_rb/)\n      totplnkderiv(51:100, 5) = (/ &\n      7.16400e-08_rb,7.27475e-08_rb,7.38790e-08_rb,7.49845e-08_rb,7.61270e-08_rb, &\n      7.72375e-08_rb,7.83770e-08_rb,7.95045e-08_rb,8.06315e-08_rb,8.17715e-08_rb, &\n      8.29275e-08_rb,8.40555e-08_rb,8.52110e-08_rb,8.63565e-08_rb,8.75045e-08_rb, &\n      8.86735e-08_rb,8.98150e-08_rb,9.09970e-08_rb,9.21295e-08_rb,9.32730e-08_rb, &\n      9.44605e-08_rb,9.56170e-08_rb,9.67885e-08_rb,9.79275e-08_rb,9.91190e-08_rb, &\n      1.00278e-07_rb,1.01436e-07_rb,1.02625e-07_rb,1.03792e-07_rb,1.04989e-07_rb, &\n      1.06111e-07_rb,1.07320e-07_rb,1.08505e-07_rb,1.09626e-07_rb,1.10812e-07_rb, &\n      1.11948e-07_rb,1.13162e-07_rb,1.14289e-07_rb,1.15474e-07_rb,1.16661e-07_rb, &\n      1.17827e-07_rb,1.19023e-07_rb,1.20167e-07_rb,1.21356e-07_rb,1.22499e-07_rb, &\n      1.23653e-07_rb,1.24876e-07_rb,1.25983e-07_rb,1.27175e-07_rb,1.28325e-07_rb/)\n      totplnkderiv(101:150, 5) = (/ &\n      1.29517e-07_rb,1.30685e-07_rb,1.31840e-07_rb,1.33013e-07_rb,1.34160e-07_rb, &\n      1.35297e-07_rb,1.36461e-07_rb,1.37630e-07_rb,1.38771e-07_rb,1.39913e-07_rb, &\n      1.41053e-07_rb,1.42218e-07_rb,1.43345e-07_rb,1.44460e-07_rb,1.45692e-07_rb, &\n      1.46697e-07_rb,1.47905e-07_rb,1.49010e-07_rb,1.50210e-07_rb,1.51285e-07_rb, &\n      1.52380e-07_rb,1.53555e-07_rb,1.54655e-07_rb,1.55805e-07_rb,1.56850e-07_rb, &\n      1.58055e-07_rb,1.59115e-07_rb,1.60185e-07_rb,1.61255e-07_rb,1.62465e-07_rb, &\n      1.63575e-07_rb,1.64675e-07_rb,1.65760e-07_rb,1.66765e-07_rb,1.67945e-07_rb, &\n      1.69070e-07_rb,1.70045e-07_rb,1.71145e-07_rb,1.72260e-07_rb,1.73290e-07_rb, &\n      1.74470e-07_rb,1.75490e-07_rb,1.76515e-07_rb,1.77555e-07_rb,1.78660e-07_rb, &\n      1.79670e-07_rb,1.80705e-07_rb,1.81895e-07_rb,1.82745e-07_rb,1.83950e-07_rb/)\n      totplnkderiv(151:181, 5) = (/ &\n      1.84955e-07_rb,1.85940e-07_rb,1.87080e-07_rb,1.88010e-07_rb,1.89145e-07_rb, &\n      1.90130e-07_rb,1.91110e-07_rb,1.92130e-07_rb,1.93205e-07_rb,1.94230e-07_rb, &\n      1.95045e-07_rb,1.96070e-07_rb,1.97155e-07_rb,1.98210e-07_rb,1.99080e-07_rb, &\n      2.00280e-07_rb,2.01135e-07_rb,2.02150e-07_rb,2.03110e-07_rb,2.04135e-07_rb, &\n      2.05110e-07_rb,2.06055e-07_rb,2.07120e-07_rb,2.08075e-07_rb,2.08975e-07_rb, &\n      2.09950e-07_rb,2.10870e-07_rb,2.11830e-07_rb,2.12960e-07_rb,2.13725e-07_rb, &\n      2.14765e-07_rb/)\n      totplnkderiv(1:50, 6) = (/ &\n      1.36567e-08_rb,1.41766e-08_rb,1.47079e-08_rb,1.52499e-08_rb,1.58075e-08_rb, &\n      1.63727e-08_rb,1.69528e-08_rb,1.75429e-08_rb,1.81477e-08_rb,1.87631e-08_rb, &\n      1.93907e-08_rb,2.00297e-08_rb,2.06808e-08_rb,2.13432e-08_rb,2.20183e-08_rb, &\n      2.27076e-08_rb,2.34064e-08_rb,2.41181e-08_rb,2.48400e-08_rb,2.55750e-08_rb, &\n      2.63231e-08_rb,2.70790e-08_rb,2.78502e-08_rb,2.86326e-08_rb,2.94259e-08_rb, &\n      3.02287e-08_rb,3.10451e-08_rb,3.18752e-08_rb,3.27108e-08_rb,3.35612e-08_rb, &\n      3.44198e-08_rb,3.52930e-08_rb,3.61785e-08_rb,3.70690e-08_rb,3.79725e-08_rb, &\n      3.88845e-08_rb,3.98120e-08_rb,4.07505e-08_rb,4.16965e-08_rb,4.26515e-08_rb, &\n      4.36190e-08_rb,4.45925e-08_rb,4.55760e-08_rb,4.65735e-08_rb,4.75835e-08_rb, &\n      4.85970e-08_rb,4.96255e-08_rb,5.06975e-08_rb,5.16950e-08_rb,5.27530e-08_rb/)\n      totplnkderiv(51:100, 6) = (/ &\n      5.38130e-08_rb,5.48860e-08_rb,5.59715e-08_rb,5.70465e-08_rb,5.81385e-08_rb, &\n      5.92525e-08_rb,6.03565e-08_rb,6.14815e-08_rb,6.26175e-08_rb,6.37475e-08_rb, &\n      6.48855e-08_rb,6.60340e-08_rb,6.71980e-08_rb,6.83645e-08_rb,6.95430e-08_rb, &\n      7.07145e-08_rb,7.19015e-08_rb,7.30995e-08_rb,7.43140e-08_rb,7.55095e-08_rb, &\n      7.67115e-08_rb,7.79485e-08_rb,7.91735e-08_rb,8.03925e-08_rb,8.16385e-08_rb, &\n      8.28775e-08_rb,8.41235e-08_rb,8.53775e-08_rb,8.66405e-08_rb,8.78940e-08_rb, &\n      8.91805e-08_rb,9.04515e-08_rb,9.17290e-08_rb,9.30230e-08_rb,9.43145e-08_rb, &\n      9.56200e-08_rb,9.69160e-08_rb,9.82140e-08_rb,9.95285e-08_rb,1.00829e-07_rb, &\n      1.02145e-07_rb,1.03478e-07_rb,1.04787e-07_rb,1.06095e-07_rb,1.07439e-07_rb, &\n      1.08785e-07_rb,1.10078e-07_rb,1.11466e-07_rb,1.12795e-07_rb,1.14133e-07_rb/)\n      totplnkderiv(101:150, 6) = (/ &\n      1.15479e-07_rb,1.16825e-07_rb,1.18191e-07_rb,1.19540e-07_rb,1.20908e-07_rb, &\n      1.22257e-07_rb,1.23634e-07_rb,1.24992e-07_rb,1.26345e-07_rb,1.27740e-07_rb, &\n      1.29098e-07_rb,1.30447e-07_rb,1.31831e-07_rb,1.33250e-07_rb,1.34591e-07_rb, &\n      1.36011e-07_rb,1.37315e-07_rb,1.38721e-07_rb,1.40103e-07_rb,1.41504e-07_rb, &\n      1.42882e-07_rb,1.44259e-07_rb,1.45674e-07_rb,1.46997e-07_rb,1.48412e-07_rb, &\n      1.49794e-07_rb,1.51167e-07_rb,1.52577e-07_rb,1.53941e-07_rb,1.55369e-07_rb, &\n      1.56725e-07_rb,1.58125e-07_rb,1.59460e-07_rb,1.60895e-07_rb,1.62260e-07_rb, &\n      1.63610e-07_rb,1.65085e-07_rb,1.66410e-07_rb,1.67805e-07_rb,1.69185e-07_rb, &\n      1.70570e-07_rb,1.71915e-07_rb,1.73375e-07_rb,1.74775e-07_rb,1.76090e-07_rb, &\n      1.77485e-07_rb,1.78905e-07_rb,1.80190e-07_rb,1.81610e-07_rb,1.82960e-07_rb/)\n      totplnkderiv(151:181, 6) = (/ &\n      1.84330e-07_rb,1.85750e-07_rb,1.87060e-07_rb,1.88470e-07_rb,1.89835e-07_rb, &\n      1.91250e-07_rb,1.92565e-07_rb,1.93925e-07_rb,1.95220e-07_rb,1.96620e-07_rb, &\n      1.98095e-07_rb,1.99330e-07_rb,2.00680e-07_rb,2.02090e-07_rb,2.03360e-07_rb, &\n      2.04775e-07_rb,2.06080e-07_rb,2.07440e-07_rb,2.08820e-07_rb,2.10095e-07_rb, &\n      2.11445e-07_rb,2.12785e-07_rb,2.14050e-07_rb,2.15375e-07_rb,2.16825e-07_rb, &\n      2.18080e-07_rb,2.19345e-07_rb,2.20710e-07_rb,2.21980e-07_rb,2.23425e-07_rb, &\n      2.24645e-07_rb/)\n      totplnkderiv(1:50, 7) = (/ &\n      7.22270e-09_rb,7.55350e-09_rb,7.89480e-09_rb,8.24725e-09_rb,8.60780e-09_rb, &\n      8.98215e-09_rb,9.36430e-09_rb,9.76035e-09_rb,1.01652e-08_rb,1.05816e-08_rb, &\n      1.10081e-08_rb,1.14480e-08_rb,1.18981e-08_rb,1.23600e-08_rb,1.28337e-08_rb, &\n      1.33172e-08_rb,1.38139e-08_rb,1.43208e-08_rb,1.48413e-08_rb,1.53702e-08_rb, &\n      1.59142e-08_rb,1.64704e-08_rb,1.70354e-08_rb,1.76178e-08_rb,1.82065e-08_rb, &\n      1.88083e-08_rb,1.94237e-08_rb,2.00528e-08_rb,2.06913e-08_rb,2.13413e-08_rb, &\n      2.20058e-08_rb,2.26814e-08_rb,2.33686e-08_rb,2.40729e-08_rb,2.47812e-08_rb, &\n      2.55099e-08_rb,2.62449e-08_rb,2.69966e-08_rb,2.77569e-08_rb,2.85269e-08_rb, &\n      2.93144e-08_rb,3.01108e-08_rb,3.09243e-08_rb,3.17433e-08_rb,3.25756e-08_rb, &\n      3.34262e-08_rb,3.42738e-08_rb,3.51480e-08_rb,3.60285e-08_rb,3.69160e-08_rb/)\n      totplnkderiv(51:100, 7) = (/ &\n      3.78235e-08_rb,3.87390e-08_rb,3.96635e-08_rb,4.06095e-08_rb,4.15600e-08_rb, &\n      4.25180e-08_rb,4.34895e-08_rb,4.44800e-08_rb,4.54715e-08_rb,4.64750e-08_rb, &\n      4.74905e-08_rb,4.85210e-08_rb,4.95685e-08_rb,5.06135e-08_rb,5.16725e-08_rb, &\n      5.27480e-08_rb,5.38265e-08_rb,5.49170e-08_rb,5.60120e-08_rb,5.71275e-08_rb, &\n      5.82610e-08_rb,5.93775e-08_rb,6.05245e-08_rb,6.17025e-08_rb,6.28355e-08_rb, &\n      6.40135e-08_rb,6.52015e-08_rb,6.63865e-08_rb,6.75790e-08_rb,6.88120e-08_rb, &\n      7.00070e-08_rb,7.12335e-08_rb,7.24720e-08_rb,7.37340e-08_rb,7.49775e-08_rb, &\n      7.62415e-08_rb,7.75185e-08_rb,7.87915e-08_rb,8.00875e-08_rb,8.13630e-08_rb, &\n      8.26710e-08_rb,8.39645e-08_rb,8.53060e-08_rb,8.66305e-08_rb,8.79915e-08_rb, &\n      8.93080e-08_rb,9.06560e-08_rb,9.19860e-08_rb,9.33550e-08_rb,9.47305e-08_rb/)\n      totplnkderiv(101:150, 7) = (/ &\n      9.61180e-08_rb,9.74500e-08_rb,9.88850e-08_rb,1.00263e-07_rb,1.01688e-07_rb, &\n      1.03105e-07_rb,1.04489e-07_rb,1.05906e-07_rb,1.07345e-07_rb,1.08771e-07_rb, &\n      1.10220e-07_rb,1.11713e-07_rb,1.13098e-07_rb,1.14515e-07_rb,1.16019e-07_rb, &\n      1.17479e-07_rb,1.18969e-07_rb,1.20412e-07_rb,1.21852e-07_rb,1.23387e-07_rb, &\n      1.24851e-07_rb,1.26319e-07_rb,1.27811e-07_rb,1.29396e-07_rb,1.30901e-07_rb, &\n      1.32358e-07_rb,1.33900e-07_rb,1.35405e-07_rb,1.36931e-07_rb,1.38443e-07_rb, &\n      1.39985e-07_rb,1.41481e-07_rb,1.43072e-07_rb,1.44587e-07_rb,1.46133e-07_rb, &\n      1.47698e-07_rb,1.49203e-07_rb,1.50712e-07_rb,1.52363e-07_rb,1.53795e-07_rb, &\n      1.55383e-07_rb,1.56961e-07_rb,1.58498e-07_rb,1.60117e-07_rb,1.61745e-07_rb, &\n      1.63190e-07_rb,1.64790e-07_rb,1.66370e-07_rb,1.67975e-07_rb,1.69555e-07_rb/)\n      totplnkderiv(151:181, 7) = (/ &\n      1.71060e-07_rb,1.72635e-07_rb,1.74345e-07_rb,1.75925e-07_rb,1.77395e-07_rb, &\n      1.78960e-07_rb,1.80620e-07_rb,1.82180e-07_rb,1.83840e-07_rb,1.85340e-07_rb, &\n      1.86940e-07_rb,1.88550e-07_rb,1.90095e-07_rb,1.91670e-07_rb,1.93385e-07_rb, &\n      1.94895e-07_rb,1.96500e-07_rb,1.98090e-07_rb,1.99585e-07_rb,2.01280e-07_rb, &\n      2.02950e-07_rb,2.04455e-07_rb,2.06075e-07_rb,2.07635e-07_rb,2.09095e-07_rb, &\n      2.10865e-07_rb,2.12575e-07_rb,2.14050e-07_rb,2.15630e-07_rb,2.17060e-07_rb, &\n      2.18715e-07_rb/)\n      totplnkderiv(1:50, 8) = (/ &\n      4.26397e-09_rb,4.48470e-09_rb,4.71299e-09_rb,4.94968e-09_rb,5.19542e-09_rb, &\n      5.44847e-09_rb,5.71195e-09_rb,5.98305e-09_rb,6.26215e-09_rb,6.55290e-09_rb, &\n      6.85190e-09_rb,7.15950e-09_rb,7.47745e-09_rb,7.80525e-09_rb,8.14190e-09_rb, &\n      8.48915e-09_rb,8.84680e-09_rb,9.21305e-09_rb,9.59105e-09_rb,9.98130e-09_rb, &\n      1.03781e-08_rb,1.07863e-08_rb,1.12094e-08_rb,1.16371e-08_rb,1.20802e-08_rb, &\n      1.25327e-08_rb,1.29958e-08_rb,1.34709e-08_rb,1.39592e-08_rb,1.44568e-08_rb, &\n      1.49662e-08_rb,1.54828e-08_rb,1.60186e-08_rb,1.65612e-08_rb,1.71181e-08_rb, &\n      1.76822e-08_rb,1.82591e-08_rb,1.88487e-08_rb,1.94520e-08_rb,2.00691e-08_rb, &\n      2.06955e-08_rb,2.13353e-08_rb,2.19819e-08_rb,2.26479e-08_rb,2.33234e-08_rb, &\n      2.40058e-08_rb,2.47135e-08_rb,2.54203e-08_rb,2.61414e-08_rb,2.68778e-08_rb/)\n      totplnkderiv(51:100, 8) = (/ &\n      2.76265e-08_rb,2.83825e-08_rb,2.91632e-08_rb,2.99398e-08_rb,3.07389e-08_rb, &\n      3.15444e-08_rb,3.23686e-08_rb,3.31994e-08_rb,3.40487e-08_rb,3.49020e-08_rb, &\n      3.57715e-08_rb,3.66515e-08_rb,3.75465e-08_rb,3.84520e-08_rb,3.93675e-08_rb, &\n      4.02985e-08_rb,4.12415e-08_rb,4.21965e-08_rb,4.31630e-08_rb,4.41360e-08_rb, &\n      4.51220e-08_rb,4.61235e-08_rb,4.71440e-08_rb,4.81515e-08_rb,4.91905e-08_rb, &\n      5.02395e-08_rb,5.12885e-08_rb,5.23735e-08_rb,5.34460e-08_rb,5.45245e-08_rb, &\n      5.56375e-08_rb,5.67540e-08_rb,5.78780e-08_rb,5.90065e-08_rb,6.01520e-08_rb, &\n      6.13000e-08_rb,6.24720e-08_rb,6.36530e-08_rb,6.48500e-08_rb,6.60500e-08_rb, &\n      6.72435e-08_rb,6.84735e-08_rb,6.97025e-08_rb,7.09530e-08_rb,7.21695e-08_rb, &\n      7.34270e-08_rb,7.47295e-08_rb,7.59915e-08_rb,7.72685e-08_rb,7.85925e-08_rb/)\n      totplnkderiv(101:150, 8) = (/ &\n      7.98855e-08_rb,8.12205e-08_rb,8.25120e-08_rb,8.38565e-08_rb,8.52005e-08_rb, &\n      8.65570e-08_rb,8.79075e-08_rb,8.92920e-08_rb,9.06535e-08_rb,9.20455e-08_rb, &\n      9.34230e-08_rb,9.48355e-08_rb,9.62720e-08_rb,9.76890e-08_rb,9.90755e-08_rb, &\n      1.00528e-07_rb,1.01982e-07_rb,1.03436e-07_rb,1.04919e-07_rb,1.06368e-07_rb, &\n      1.07811e-07_rb,1.09326e-07_rb,1.10836e-07_rb,1.12286e-07_rb,1.13803e-07_rb, &\n      1.15326e-07_rb,1.16809e-07_rb,1.18348e-07_rb,1.19876e-07_rb,1.21413e-07_rb, &\n      1.22922e-07_rb,1.24524e-07_rb,1.26049e-07_rb,1.27573e-07_rb,1.29155e-07_rb, &\n      1.30708e-07_rb,1.32327e-07_rb,1.33958e-07_rb,1.35480e-07_rb,1.37081e-07_rb, &\n      1.38716e-07_rb,1.40326e-07_rb,1.41872e-07_rb,1.43468e-07_rb,1.45092e-07_rb, &\n      1.46806e-07_rb,1.48329e-07_rb,1.49922e-07_rb,1.51668e-07_rb,1.53241e-07_rb/)\n      totplnkderiv(151:181, 8) = (/ &\n      1.54996e-07_rb,1.56561e-07_rb,1.58197e-07_rb,1.59884e-07_rb,1.61576e-07_rb, &\n      1.63200e-07_rb,1.64885e-07_rb,1.66630e-07_rb,1.68275e-07_rb,1.69935e-07_rb, &\n      1.71650e-07_rb,1.73245e-07_rb,1.75045e-07_rb,1.76710e-07_rb,1.78330e-07_rb, &\n      1.79995e-07_rb,1.81735e-07_rb,1.83470e-07_rb,1.85200e-07_rb,1.86890e-07_rb, &\n      1.88595e-07_rb,1.90300e-07_rb,1.91995e-07_rb,1.93715e-07_rb,1.95495e-07_rb, &\n      1.97130e-07_rb,1.98795e-07_rb,2.00680e-07_rb,2.02365e-07_rb,2.04090e-07_rb, &\n      2.05830e-07_rb/)\n      totplnkderiv(1:50, 9) = (/ &\n      1.85410e-09_rb,1.96515e-09_rb,2.08117e-09_rb,2.20227e-09_rb,2.32861e-09_rb, &\n      2.46066e-09_rb,2.59812e-09_rb,2.74153e-09_rb,2.89058e-09_rb,3.04567e-09_rb, &\n      3.20674e-09_rb,3.37442e-09_rb,3.54854e-09_rb,3.72892e-09_rb,3.91630e-09_rb, &\n      4.11013e-09_rb,4.31150e-09_rb,4.52011e-09_rb,4.73541e-09_rb,4.95870e-09_rb, &\n      5.18913e-09_rb,5.42752e-09_rb,5.67340e-09_rb,5.92810e-09_rb,6.18995e-09_rb, &\n      6.46055e-09_rb,6.73905e-09_rb,7.02620e-09_rb,7.32260e-09_rb,7.62700e-09_rb, &\n      7.94050e-09_rb,8.26370e-09_rb,8.59515e-09_rb,8.93570e-09_rb,9.28535e-09_rb, &\n      9.64575e-09_rb,1.00154e-08_rb,1.03944e-08_rb,1.07839e-08_rb,1.11832e-08_rb, &\n      1.15909e-08_rb,1.20085e-08_rb,1.24399e-08_rb,1.28792e-08_rb,1.33280e-08_rb, &\n      1.37892e-08_rb,1.42573e-08_rb,1.47408e-08_rb,1.52345e-08_rb,1.57371e-08_rb/)\n      totplnkderiv(51:100, 9) = (/ &\n      1.62496e-08_rb,1.67756e-08_rb,1.73101e-08_rb,1.78596e-08_rb,1.84161e-08_rb, &\n      1.89869e-08_rb,1.95681e-08_rb,2.01632e-08_rb,2.07626e-08_rb,2.13800e-08_rb, &\n      2.20064e-08_rb,2.26453e-08_rb,2.32970e-08_rb,2.39595e-08_rb,2.46340e-08_rb, &\n      2.53152e-08_rb,2.60158e-08_rb,2.67235e-08_rb,2.74471e-08_rb,2.81776e-08_rb, &\n      2.89233e-08_rb,2.96822e-08_rb,3.04488e-08_rb,3.12298e-08_rb,3.20273e-08_rb, &\n      3.28304e-08_rb,3.36455e-08_rb,3.44765e-08_rb,3.53195e-08_rb,3.61705e-08_rb, &\n      3.70385e-08_rb,3.79155e-08_rb,3.88065e-08_rb,3.97055e-08_rb,4.06210e-08_rb, &\n      4.15490e-08_rb,4.24825e-08_rb,4.34355e-08_rb,4.43920e-08_rb,4.53705e-08_rb, &\n      4.63560e-08_rb,4.73565e-08_rb,4.83655e-08_rb,4.93815e-08_rb,5.04180e-08_rb, &\n      5.14655e-08_rb,5.25175e-08_rb,5.35865e-08_rb,5.46720e-08_rb,5.57670e-08_rb/)\n      totplnkderiv(101:150, 9) = (/ &\n      5.68640e-08_rb,5.79825e-08_rb,5.91140e-08_rb,6.02515e-08_rb,6.13985e-08_rb, &\n      6.25525e-08_rb,6.37420e-08_rb,6.49220e-08_rb,6.61145e-08_rb,6.73185e-08_rb, &\n      6.85520e-08_rb,6.97760e-08_rb,7.10050e-08_rb,7.22650e-08_rb,7.35315e-08_rb, &\n      7.48035e-08_rb,7.60745e-08_rb,7.73740e-08_rb,7.86870e-08_rb,7.99845e-08_rb, &\n      8.13325e-08_rb,8.26615e-08_rb,8.40010e-08_rb,8.53640e-08_rb,8.67235e-08_rb, &\n      8.80960e-08_rb,8.95055e-08_rb,9.08945e-08_rb,9.23045e-08_rb,9.37100e-08_rb, &\n      9.51555e-08_rb,9.65630e-08_rb,9.80235e-08_rb,9.94920e-08_rb,1.00966e-07_rb, &\n      1.02434e-07_rb,1.03898e-07_rb,1.05386e-07_rb,1.06905e-07_rb,1.08418e-07_rb, &\n      1.09926e-07_rb,1.11454e-07_rb,1.13010e-07_rb,1.14546e-07_rb,1.16106e-07_rb, &\n      1.17652e-07_rb,1.19264e-07_rb,1.20817e-07_rb,1.22395e-07_rb,1.24024e-07_rb/)\n      totplnkderiv(151:181, 9) = (/ &\n      1.25585e-07_rb,1.27213e-07_rb,1.28817e-07_rb,1.30472e-07_rb,1.32088e-07_rb, &\n      1.33752e-07_rb,1.35367e-07_rb,1.37018e-07_rb,1.38698e-07_rb,1.40394e-07_rb, &\n      1.42026e-07_rb,1.43796e-07_rb,1.45438e-07_rb,1.47175e-07_rb,1.48866e-07_rb, &\n      1.50576e-07_rb,1.52281e-07_rb,1.54018e-07_rb,1.55796e-07_rb,1.57515e-07_rb, &\n      1.59225e-07_rb,1.60989e-07_rb,1.62754e-07_rb,1.64532e-07_rb,1.66285e-07_rb, &\n      1.68070e-07_rb,1.69870e-07_rb,1.71625e-07_rb,1.73440e-07_rb,1.75275e-07_rb, &\n      1.77040e-07_rb/)\n      totplnkderiv(1:50,10) = (/ &\n      7.14917e-10_rb,7.64833e-10_rb,8.17460e-10_rb,8.72980e-10_rb,9.31380e-10_rb, &\n      9.92940e-10_rb,1.05746e-09_rb,1.12555e-09_rb,1.19684e-09_rb,1.27162e-09_rb, &\n      1.35001e-09_rb,1.43229e-09_rb,1.51815e-09_rb,1.60831e-09_rb,1.70271e-09_rb, &\n      1.80088e-09_rb,1.90365e-09_rb,2.01075e-09_rb,2.12261e-09_rb,2.23924e-09_rb, &\n      2.36057e-09_rb,2.48681e-09_rb,2.61814e-09_rb,2.75506e-09_rb,2.89692e-09_rb, &\n      3.04423e-09_rb,3.19758e-09_rb,3.35681e-09_rb,3.52113e-09_rb,3.69280e-09_rb, &\n      3.86919e-09_rb,4.05205e-09_rb,4.24184e-09_rb,4.43877e-09_rb,4.64134e-09_rb, &\n      4.85088e-09_rb,5.06670e-09_rb,5.29143e-09_rb,5.52205e-09_rb,5.75980e-09_rb, &\n      6.00550e-09_rb,6.25840e-09_rb,6.51855e-09_rb,6.78800e-09_rb,7.06435e-09_rb, &\n      7.34935e-09_rb,7.64220e-09_rb,7.94470e-09_rb,8.25340e-09_rb,8.57030e-09_rb/)\n      totplnkderiv(51:100,10) = (/ &\n      8.89680e-09_rb,9.23255e-09_rb,9.57770e-09_rb,9.93045e-09_rb,1.02932e-08_rb, &\n      1.06649e-08_rb,1.10443e-08_rb,1.14348e-08_rb,1.18350e-08_rb,1.22463e-08_rb, &\n      1.26679e-08_rb,1.30949e-08_rb,1.35358e-08_rb,1.39824e-08_rb,1.44425e-08_rb, &\n      1.49126e-08_rb,1.53884e-08_rb,1.58826e-08_rb,1.63808e-08_rb,1.68974e-08_rb, &\n      1.74159e-08_rb,1.79447e-08_rb,1.84886e-08_rb,1.90456e-08_rb,1.96124e-08_rb, &\n      2.01863e-08_rb,2.07737e-08_rb,2.13720e-08_rb,2.19837e-08_rb,2.26044e-08_rb, &\n      2.32396e-08_rb,2.38856e-08_rb,2.45344e-08_rb,2.52055e-08_rb,2.58791e-08_rb, &\n      2.65706e-08_rb,2.72758e-08_rb,2.79852e-08_rb,2.87201e-08_rb,2.94518e-08_rb, &\n      3.02063e-08_rb,3.09651e-08_rb,3.17357e-08_rb,3.25235e-08_rb,3.33215e-08_rb, &\n      3.41285e-08_rb,3.49485e-08_rb,3.57925e-08_rb,3.66330e-08_rb,3.74765e-08_rb/)\n      totplnkderiv(101:150,10) = (/ &\n      3.83675e-08_rb,3.92390e-08_rb,4.01330e-08_rb,4.10340e-08_rb,4.19585e-08_rb, &\n      4.28815e-08_rb,4.38210e-08_rb,4.47770e-08_rb,4.57575e-08_rb,4.67325e-08_rb, &\n      4.77170e-08_rb,4.87205e-08_rb,4.97410e-08_rb,5.07620e-08_rb,5.18180e-08_rb, &\n      5.28540e-08_rb,5.39260e-08_rb,5.50035e-08_rb,5.60885e-08_rb,5.71900e-08_rb, &\n      5.82940e-08_rb,5.94380e-08_rb,6.05690e-08_rb,6.17185e-08_rb,6.28860e-08_rb, &\n      6.40670e-08_rb,6.52300e-08_rb,6.64225e-08_rb,6.76485e-08_rb,6.88715e-08_rb, &\n      7.00750e-08_rb,7.13760e-08_rb,7.25910e-08_rb,7.38860e-08_rb,7.51290e-08_rb, &\n      7.64420e-08_rb,7.77550e-08_rb,7.90725e-08_rb,8.03825e-08_rb,8.17330e-08_rb, &\n      8.30810e-08_rb,8.44330e-08_rb,8.57720e-08_rb,8.72115e-08_rb,8.85800e-08_rb, &\n      8.99945e-08_rb,9.13905e-08_rb,9.28345e-08_rb,9.42665e-08_rb,9.56765e-08_rb/)\n      totplnkderiv(151:181,10) = (/ &\n      9.72000e-08_rb,9.86780e-08_rb,1.00105e-07_rb,1.01616e-07_rb,1.03078e-07_rb, &\n      1.04610e-07_rb,1.06154e-07_rb,1.07639e-07_rb,1.09242e-07_rb,1.10804e-07_rb, &\n      1.12384e-07_rb,1.13871e-07_rb,1.15478e-07_rb,1.17066e-07_rb,1.18703e-07_rb, &\n      1.20294e-07_rb,1.21930e-07_rb,1.23543e-07_rb,1.25169e-07_rb,1.26806e-07_rb, &\n      1.28503e-07_rb,1.30233e-07_rb,1.31834e-07_rb,1.33596e-07_rb,1.35283e-07_rb, &\n      1.36947e-07_rb,1.38594e-07_rb,1.40362e-07_rb,1.42131e-07_rb,1.43823e-07_rb, &\n      1.45592e-07_rb/)\n      totplnkderiv(1:50,11) = (/ &\n      2.25919e-10_rb,2.43810e-10_rb,2.62866e-10_rb,2.83125e-10_rb,3.04676e-10_rb, &\n      3.27536e-10_rb,3.51796e-10_rb,3.77498e-10_rb,4.04714e-10_rb,4.33528e-10_rb, &\n      4.64000e-10_rb,4.96185e-10_rb,5.30165e-10_rb,5.65999e-10_rb,6.03749e-10_rb, &\n      6.43579e-10_rb,6.85479e-10_rb,7.29517e-10_rb,7.75810e-10_rb,8.24440e-10_rb, &\n      8.75520e-10_rb,9.29065e-10_rb,9.85175e-10_rb,1.04405e-09_rb,1.10562e-09_rb, &\n      1.17005e-09_rb,1.23742e-09_rb,1.30780e-09_rb,1.38141e-09_rb,1.45809e-09_rb, &\n      1.53825e-09_rb,1.62177e-09_rb,1.70884e-09_rb,1.79942e-09_rb,1.89390e-09_rb, &\n      1.99205e-09_rb,2.09429e-09_rb,2.20030e-09_rb,2.31077e-09_rb,2.42510e-09_rb, &\n      2.54410e-09_rb,2.66754e-09_rb,2.79529e-09_rb,2.92777e-09_rb,3.06498e-09_rb, &\n      3.20691e-09_rb,3.35450e-09_rb,3.50653e-09_rb,3.66427e-09_rb,3.82723e-09_rb/)\n      totplnkderiv(51:100,11) = (/ &\n      3.99549e-09_rb,4.16911e-09_rb,4.34892e-09_rb,4.53415e-09_rb,4.72504e-09_rb, &\n      4.92197e-09_rb,5.12525e-09_rb,5.33485e-09_rb,5.55085e-09_rb,5.77275e-09_rb, &\n      6.00105e-09_rb,6.23650e-09_rb,6.47855e-09_rb,6.72735e-09_rb,6.98325e-09_rb, &\n      7.24695e-09_rb,7.51730e-09_rb,7.79480e-09_rb,8.07975e-09_rb,8.37170e-09_rb, &\n      8.67195e-09_rb,8.98050e-09_rb,9.29575e-09_rb,9.61950e-09_rb,9.95150e-09_rb, &\n      1.02912e-08_rb,1.06397e-08_rb,1.09964e-08_rb,1.13611e-08_rb,1.17348e-08_rb, &\n      1.21158e-08_rb,1.25072e-08_rb,1.29079e-08_rb,1.33159e-08_rb,1.37342e-08_rb, &\n      1.41599e-08_rb,1.45966e-08_rb,1.50438e-08_rb,1.54964e-08_rb,1.59605e-08_rb, &\n      1.64337e-08_rb,1.69189e-08_rb,1.74134e-08_rb,1.79136e-08_rb,1.84272e-08_rb, &\n      1.89502e-08_rb,1.94845e-08_rb,2.00248e-08_rb,2.05788e-08_rb,2.11455e-08_rb/)\n      totplnkderiv(101:150,11) = (/ &\n      2.17159e-08_rb,2.23036e-08_rb,2.28983e-08_rb,2.35033e-08_rb,2.41204e-08_rb, &\n      2.47485e-08_rb,2.53860e-08_rb,2.60331e-08_rb,2.66891e-08_rb,2.73644e-08_rb, &\n      2.80440e-08_rb,2.87361e-08_rb,2.94412e-08_rb,3.01560e-08_rb,3.08805e-08_rb, &\n      3.16195e-08_rb,3.23690e-08_rb,3.31285e-08_rb,3.39015e-08_rb,3.46820e-08_rb, &\n      3.54770e-08_rb,3.62805e-08_rb,3.70960e-08_rb,3.79295e-08_rb,3.87715e-08_rb, &\n      3.96185e-08_rb,4.04860e-08_rb,4.13600e-08_rb,4.22500e-08_rb,4.31490e-08_rb, &\n      4.40610e-08_rb,4.49810e-08_rb,4.59205e-08_rb,4.68650e-08_rb,4.78260e-08_rb, &\n      4.87970e-08_rb,4.97790e-08_rb,5.07645e-08_rb,5.17730e-08_rb,5.27960e-08_rb, &\n      5.38285e-08_rb,5.48650e-08_rb,5.59205e-08_rb,5.69960e-08_rb,5.80690e-08_rb, &\n      5.91570e-08_rb,6.02640e-08_rb,6.13750e-08_rb,6.25015e-08_rb,6.36475e-08_rb/)\n      totplnkderiv(151:181,11) = (/ &\n      6.47950e-08_rb,6.59510e-08_rb,6.71345e-08_rb,6.83175e-08_rb,6.95250e-08_rb, &\n      7.07325e-08_rb,7.19490e-08_rb,7.31880e-08_rb,7.44315e-08_rb,7.56880e-08_rb, &\n      7.69500e-08_rb,7.82495e-08_rb,7.95330e-08_rb,8.08450e-08_rb,8.21535e-08_rb, &\n      8.34860e-08_rb,8.48330e-08_rb,8.61795e-08_rb,8.75480e-08_rb,8.89235e-08_rb, &\n      9.03060e-08_rb,9.17045e-08_rb,9.31140e-08_rb,9.45240e-08_rb,9.59720e-08_rb, &\n      9.74140e-08_rb,9.88825e-08_rb,1.00347e-07_rb,1.01825e-07_rb,1.03305e-07_rb, &\n      1.04826e-07_rb/)\n      totplnkderiv(1:50,12) = (/ &\n      2.91689e-11_rb,3.20300e-11_rb,3.51272e-11_rb,3.84803e-11_rb,4.21014e-11_rb, &\n      4.60107e-11_rb,5.02265e-11_rb,5.47685e-11_rb,5.96564e-11_rb,6.49111e-11_rb, &\n      7.05522e-11_rb,7.66060e-11_rb,8.30974e-11_rb,9.00441e-11_rb,9.74820e-11_rb, &\n      1.05435e-10_rb,1.13925e-10_rb,1.22981e-10_rb,1.32640e-10_rb,1.42933e-10_rb, &\n      1.53882e-10_rb,1.65527e-10_rb,1.77903e-10_rb,1.91054e-10_rb,2.05001e-10_rb, &\n      2.19779e-10_rb,2.35448e-10_rb,2.52042e-10_rb,2.69565e-10_rb,2.88128e-10_rb, &\n      3.07714e-10_rb,3.28370e-10_rb,3.50238e-10_rb,3.73235e-10_rb,3.97433e-10_rb, &\n      4.22964e-10_rb,4.49822e-10_rb,4.78042e-10_rb,5.07721e-10_rb,5.38915e-10_rb, &\n      5.71610e-10_rb,6.05916e-10_rb,6.41896e-10_rb,6.79600e-10_rb,7.19110e-10_rb, &\n      7.60455e-10_rb,8.03625e-10_rb,8.48870e-10_rb,8.96080e-10_rb,9.45490e-10_rb/)\n      totplnkderiv(51:100,12) = (/ &\n      9.96930e-10_rb,1.05071e-09_rb,1.10679e-09_rb,1.16521e-09_rb,1.22617e-09_rb, &\n      1.28945e-09_rb,1.35554e-09_rb,1.42427e-09_rb,1.49574e-09_rb,1.56984e-09_rb, &\n      1.64695e-09_rb,1.72715e-09_rb,1.81034e-09_rb,1.89656e-09_rb,1.98613e-09_rb, &\n      2.07898e-09_rb,2.17515e-09_rb,2.27498e-09_rb,2.37826e-09_rb,2.48517e-09_rb, &\n      2.59566e-09_rb,2.71004e-09_rb,2.82834e-09_rb,2.95078e-09_rb,3.07686e-09_rb, &\n      3.20739e-09_rb,3.34232e-09_rb,3.48162e-09_rb,3.62515e-09_rb,3.77337e-09_rb, &\n      3.92614e-09_rb,4.08317e-09_rb,4.24567e-09_rb,4.41272e-09_rb,4.58524e-09_rb, &\n      4.76245e-09_rb,4.94450e-09_rb,5.13235e-09_rb,5.32535e-09_rb,5.52415e-09_rb, &\n      5.72770e-09_rb,5.93815e-09_rb,6.15315e-09_rb,6.37525e-09_rb,6.60175e-09_rb, &\n      6.83485e-09_rb,7.07490e-09_rb,7.32060e-09_rb,7.57225e-09_rb,7.83035e-09_rb/)\n      totplnkderiv(101:150,12) = (/ &\n      8.09580e-09_rb,8.36620e-09_rb,8.64410e-09_rb,8.93110e-09_rb,9.22170e-09_rb, &\n      9.52055e-09_rb,9.82595e-09_rb,1.01399e-08_rb,1.04613e-08_rb,1.07878e-08_rb, &\n      1.11223e-08_rb,1.14667e-08_rb,1.18152e-08_rb,1.21748e-08_rb,1.25410e-08_rb, &\n      1.29147e-08_rb,1.32948e-08_rb,1.36858e-08_rb,1.40827e-08_rb,1.44908e-08_rb, &\n      1.49040e-08_rb,1.53284e-08_rb,1.57610e-08_rb,1.61995e-08_rb,1.66483e-08_rb, &\n      1.71068e-08_rb,1.75714e-08_rb,1.80464e-08_rb,1.85337e-08_rb,1.90249e-08_rb, &\n      1.95309e-08_rb,2.00407e-08_rb,2.05333e-08_rb,2.10929e-08_rb,2.16346e-08_rb, &\n      2.21829e-08_rb,2.27402e-08_rb,2.33112e-08_rb,2.38922e-08_rb,2.44802e-08_rb, &\n      2.50762e-08_rb,2.56896e-08_rb,2.63057e-08_rb,2.69318e-08_rb,2.75705e-08_rb, &\n      2.82216e-08_rb,2.88787e-08_rb,2.95505e-08_rb,3.02335e-08_rb,3.09215e-08_rb/)\n      totplnkderiv(151:181,12) = (/ &\n      3.16235e-08_rb,3.23350e-08_rb,3.30590e-08_rb,3.37960e-08_rb,3.45395e-08_rb, &\n      3.52955e-08_rb,3.60615e-08_rb,3.68350e-08_rb,3.76265e-08_rb,3.84255e-08_rb, &\n      3.92400e-08_rb,4.00485e-08_rb,4.08940e-08_rb,4.17310e-08_rb,4.25860e-08_rb, &\n      4.34585e-08_rb,4.43270e-08_rb,4.52220e-08_rb,4.61225e-08_rb,4.70345e-08_rb, &\n      4.79560e-08_rb,4.89000e-08_rb,4.98445e-08_rb,5.07985e-08_rb,5.17705e-08_rb, &\n      5.27575e-08_rb,5.37420e-08_rb,5.47495e-08_rb,5.57725e-08_rb,5.68105e-08_rb, &\n      5.78395e-08_rb/)\n      totplnkderiv(1:50,13) = (/ &\n      5.47482e-12_rb,6.09637e-12_rb,6.77874e-12_rb,7.52703e-12_rb,8.34784e-12_rb, &\n      9.24486e-12_rb,1.02246e-11_rb,1.12956e-11_rb,1.24615e-11_rb,1.37321e-11_rb, &\n      1.51131e-11_rb,1.66129e-11_rb,1.82416e-11_rb,2.00072e-11_rb,2.19187e-11_rb, &\n      2.39828e-11_rb,2.62171e-11_rb,2.86290e-11_rb,3.12283e-11_rb,3.40276e-11_rb, &\n      3.70433e-11_rb,4.02847e-11_rb,4.37738e-11_rb,4.75070e-11_rb,5.15119e-11_rb, &\n      5.58120e-11_rb,6.04059e-11_rb,6.53208e-11_rb,7.05774e-11_rb,7.61935e-11_rb, &\n      8.21832e-11_rb,8.85570e-11_rb,9.53575e-11_rb,1.02592e-10_rb,1.10298e-10_rb, &\n      1.18470e-10_rb,1.27161e-10_rb,1.36381e-10_rb,1.46161e-10_rb,1.56529e-10_rb, &\n      1.67521e-10_rb,1.79142e-10_rb,1.91423e-10_rb,2.04405e-10_rb,2.18123e-10_rb, &\n      2.32608e-10_rb,2.47889e-10_rb,2.63994e-10_rb,2.80978e-10_rb,2.98843e-10_rb/)\n      totplnkderiv(51:100,13) = (/ &\n      3.17659e-10_rb,3.37423e-10_rb,3.58206e-10_rb,3.80090e-10_rb,4.02996e-10_rb, &\n      4.27065e-10_rb,4.52298e-10_rb,4.78781e-10_rb,5.06493e-10_rb,5.35576e-10_rb, &\n      5.65942e-10_rb,5.97761e-10_rb,6.31007e-10_rb,6.65740e-10_rb,7.02095e-10_rb, &\n      7.39945e-10_rb,7.79575e-10_rb,8.20845e-10_rb,8.63870e-10_rb,9.08680e-10_rb, &\n      9.55385e-10_rb,1.00416e-09_rb,1.05464e-09_rb,1.10737e-09_rb,1.16225e-09_rb, &\n      1.21918e-09_rb,1.27827e-09_rb,1.33988e-09_rb,1.40370e-09_rb,1.46994e-09_rb, &\n      1.53850e-09_rb,1.60993e-09_rb,1.68382e-09_rb,1.76039e-09_rb,1.83997e-09_rb, &\n      1.92182e-09_rb,2.00686e-09_rb,2.09511e-09_rb,2.18620e-09_rb,2.28034e-09_rb, &\n      2.37753e-09_rb,2.47805e-09_rb,2.58193e-09_rb,2.68935e-09_rb,2.80064e-09_rb, &\n      2.91493e-09_rb,3.03271e-09_rb,3.15474e-09_rb,3.27987e-09_rb,3.40936e-09_rb/)\n      totplnkderiv(101:150,13) = (/ &\n      3.54277e-09_rb,3.68019e-09_rb,3.82173e-09_rb,3.96703e-09_rb,4.11746e-09_rb, &\n      4.27104e-09_rb,4.43020e-09_rb,4.59395e-09_rb,4.76060e-09_rb,4.93430e-09_rb, &\n      5.11085e-09_rb,5.29280e-09_rb,5.48055e-09_rb,5.67300e-09_rb,5.86950e-09_rb, &\n      6.07160e-09_rb,6.28015e-09_rb,6.49295e-09_rb,6.71195e-09_rb,6.93455e-09_rb, &\n      7.16470e-09_rb,7.39985e-09_rb,7.64120e-09_rb,7.88885e-09_rb,8.13910e-09_rb, &\n      8.39930e-09_rb,8.66535e-09_rb,8.93600e-09_rb,9.21445e-09_rb,9.49865e-09_rb, &\n      9.78845e-09_rb,1.00856e-08_rb,1.04361e-08_rb,1.07018e-08_rb,1.10164e-08_rb, &\n      1.13438e-08_rb,1.16748e-08_rb,1.20133e-08_rb,1.23575e-08_rb,1.27117e-08_rb, &\n      1.30708e-08_rb,1.34383e-08_rb,1.38138e-08_rb,1.41985e-08_rb,1.45859e-08_rb, &\n      1.49846e-08_rb,1.53879e-08_rb,1.58042e-08_rb,1.62239e-08_rb,1.66529e-08_rb/)\n      totplnkderiv(151:181,13) = (/ &\n      1.70954e-08_rb,1.75422e-08_rb,1.79943e-08_rb,1.84537e-08_rb,1.89280e-08_rb, &\n      1.94078e-08_rb,1.98997e-08_rb,2.03948e-08_rb,2.08956e-08_rb,2.14169e-08_rb, &\n      2.19330e-08_rb,2.24773e-08_rb,2.30085e-08_rb,2.35676e-08_rb,2.41237e-08_rb, &\n      2.46919e-08_rb,2.52720e-08_rb,2.58575e-08_rb,2.64578e-08_rb,2.70675e-08_rb, &\n      2.76878e-08_rb,2.83034e-08_rb,2.89430e-08_rb,2.95980e-08_rb,3.02480e-08_rb, &\n      3.09105e-08_rb,3.15980e-08_rb,3.22865e-08_rb,3.29755e-08_rb,3.36775e-08_rb, &\n      3.43990e-08_rb/)\n      totplnkderiv(1:50,14) = (/ &\n      1.81489e-12_rb,2.03846e-12_rb,2.28659e-12_rb,2.56071e-12_rb,2.86352e-12_rb, &\n      3.19789e-12_rb,3.56668e-12_rb,3.97211e-12_rb,4.41711e-12_rb,4.90616e-12_rb, &\n      5.44153e-12_rb,6.02790e-12_rb,6.67001e-12_rb,7.37018e-12_rb,8.13433e-12_rb, &\n      8.96872e-12_rb,9.87526e-12_rb,1.08601e-11_rb,1.19328e-11_rb,1.30938e-11_rb, &\n      1.43548e-11_rb,1.57182e-11_rb,1.71916e-11_rb,1.87875e-11_rb,2.05091e-11_rb, &\n      2.23652e-11_rb,2.43627e-11_rb,2.65190e-11_rb,2.88354e-11_rb,3.13224e-11_rb, &\n      3.39926e-11_rb,3.68664e-11_rb,3.99372e-11_rb,4.32309e-11_rb,4.67496e-11_rb, &\n      5.05182e-11_rb,5.45350e-11_rb,5.88268e-11_rb,6.34126e-11_rb,6.82878e-11_rb, &\n      7.34973e-11_rb,7.90201e-11_rb,8.49075e-11_rb,9.11725e-11_rb,9.78235e-11_rb, &\n      1.04856e-10_rb,1.12342e-10_rb,1.20278e-10_rb,1.28680e-10_rb,1.37560e-10_rb/)\n      totplnkderiv(51:100,14) = (/ &\n      1.46953e-10_rb,1.56900e-10_rb,1.67401e-10_rb,1.78498e-10_rb,1.90161e-10_rb, &\n      2.02523e-10_rb,2.15535e-10_rb,2.29239e-10_rb,2.43665e-10_rb,2.58799e-10_rb, &\n      2.74767e-10_rb,2.91522e-10_rb,3.09141e-10_rb,3.27625e-10_rb,3.47011e-10_rb, &\n      3.67419e-10_rb,3.88720e-10_rb,4.11066e-10_rb,4.34522e-10_rb,4.59002e-10_rb, &\n      4.84657e-10_rb,5.11391e-10_rb,5.39524e-10_rb,5.68709e-10_rb,5.99240e-10_rb, &\n      6.31295e-10_rb,6.64520e-10_rb,6.99200e-10_rb,7.35525e-10_rb,7.73135e-10_rb, &\n      8.12440e-10_rb,8.53275e-10_rb,8.95930e-10_rb,9.40165e-10_rb,9.86260e-10_rb, &\n      1.03423e-09_rb,1.08385e-09_rb,1.13567e-09_rb,1.18916e-09_rb,1.24469e-09_rb, &\n      1.30262e-09_rb,1.36268e-09_rb,1.42479e-09_rb,1.48904e-09_rb,1.55557e-09_rb, &\n      1.62478e-09_rb,1.69642e-09_rb,1.77023e-09_rb,1.84696e-09_rb,1.92646e-09_rb/)\n      totplnkderiv(101:150,14) = (/ &\n      2.00831e-09_rb,2.09299e-09_rb,2.18007e-09_rb,2.27093e-09_rb,2.36398e-09_rb, &\n      2.46020e-09_rb,2.55985e-09_rb,2.66230e-09_rb,2.76795e-09_rb,2.87667e-09_rb, &\n      2.98971e-09_rb,3.10539e-09_rb,3.22462e-09_rb,3.34779e-09_rb,3.47403e-09_rb, &\n      3.60419e-09_rb,3.73905e-09_rb,3.87658e-09_rb,4.01844e-09_rb,4.16535e-09_rb, &\n      4.31470e-09_rb,4.46880e-09_rb,4.62765e-09_rb,4.78970e-09_rb,4.95735e-09_rb, &\n      5.12890e-09_rb,5.30430e-09_rb,5.48595e-09_rb,5.67010e-09_rb,5.86145e-09_rb, &\n      6.05740e-09_rb,6.25725e-09_rb,6.46205e-09_rb,6.67130e-09_rb,6.88885e-09_rb, &\n      7.10845e-09_rb,7.33450e-09_rb,7.56700e-09_rb,7.80440e-09_rb,8.04465e-09_rb, &\n      8.29340e-09_rb,8.54820e-09_rb,8.80790e-09_rb,9.07195e-09_rb,9.34605e-09_rb, &\n      9.62005e-09_rb,9.90685e-09_rb,1.01939e-08_rb,1.04938e-08_rb,1.07957e-08_rb/)\n      totplnkderiv(151:181,14) = (/ &\n      1.11059e-08_rb,1.14208e-08_rb,1.17447e-08_rb,1.20717e-08_rb,1.24088e-08_rb, &\n      1.27490e-08_rb,1.31020e-08_rb,1.34601e-08_rb,1.38231e-08_rb,1.41966e-08_rb, &\n      1.45767e-08_rb,1.49570e-08_rb,1.53503e-08_rb,1.57496e-08_rb,1.61663e-08_rb, &\n      1.65784e-08_rb,1.70027e-08_rb,1.74290e-08_rb,1.78730e-08_rb,1.83235e-08_rb, &\n      1.87810e-08_rb,1.92418e-08_rb,1.97121e-08_rb,2.01899e-08_rb,2.05787e-08_rb, &\n      2.11784e-08_rb,2.16824e-08_rb,2.21931e-08_rb,2.27235e-08_rb,2.32526e-08_rb, &\n      2.37850e-08_rb/)\n      totplnkderiv(1:50,15) = (/ &\n      5.39905e-13_rb,6.11835e-13_rb,6.92224e-13_rb,7.81886e-13_rb,8.81851e-13_rb, &\n      9.93072e-13_rb,1.11659e-12_rb,1.25364e-12_rb,1.40562e-12_rb,1.57359e-12_rb, &\n      1.75937e-12_rb,1.96449e-12_rb,2.19026e-12_rb,2.43892e-12_rb,2.71249e-12_rb, &\n      3.01233e-12_rb,3.34163e-12_rb,3.70251e-12_rb,4.09728e-12_rb,4.52885e-12_rb, &\n      4.99939e-12_rb,5.51242e-12_rb,6.07256e-12_rb,6.68167e-12_rb,7.34274e-12_rb, &\n      8.06178e-12_rb,8.84185e-12_rb,9.68684e-12_rb,1.06020e-11_rb,1.15909e-11_rb, &\n      1.26610e-11_rb,1.38158e-11_rb,1.50620e-11_rb,1.64047e-11_rb,1.78508e-11_rb, &\n      1.94055e-11_rb,2.10805e-11_rb,2.28753e-11_rb,2.48000e-11_rb,2.68699e-11_rb, &\n      2.90824e-11_rb,3.14526e-11_rb,3.39882e-11_rb,3.67020e-11_rb,3.95914e-11_rb, &\n      4.26870e-11_rb,4.59824e-11_rb,4.94926e-11_rb,5.32302e-11_rb,5.72117e-11_rb/)\n      totplnkderiv(51:100,15) = (/ &\n      6.14475e-11_rb,6.59483e-11_rb,7.07393e-11_rb,7.57999e-11_rb,8.11980e-11_rb, &\n      8.68920e-11_rb,9.29390e-11_rb,9.93335e-11_rb,1.06101e-10_rb,1.13263e-10_rb, &\n      1.20827e-10_rb,1.28819e-10_rb,1.37255e-10_rb,1.46163e-10_rb,1.55547e-10_rb, &\n      1.65428e-10_rb,1.75837e-10_rb,1.86816e-10_rb,1.98337e-10_rb,2.10476e-10_rb, &\n      2.23218e-10_rb,2.36600e-10_rb,2.50651e-10_rb,2.65425e-10_rb,2.80895e-10_rb, &\n      2.97102e-10_rb,3.14100e-10_rb,3.31919e-10_rb,3.50568e-10_rb,3.70064e-10_rb, &\n      3.90464e-10_rb,4.11813e-10_rb,4.34111e-10_rb,4.57421e-10_rb,4.81717e-10_rb, &\n      5.07039e-10_rb,5.33569e-10_rb,5.61137e-10_rb,5.89975e-10_rb,6.19980e-10_rb, &\n      6.51170e-10_rb,6.83650e-10_rb,7.17520e-10_rb,7.52735e-10_rb,7.89390e-10_rb, &\n      8.27355e-10_rb,8.66945e-10_rb,9.08020e-10_rb,9.50665e-10_rb,9.95055e-10_rb/)\n      totplnkderiv(101:150,15) = (/ &\n      1.04101e-09_rb,1.08864e-09_rb,1.13823e-09_rb,1.18923e-09_rb,1.24257e-09_rb, &\n      1.29741e-09_rb,1.35442e-09_rb,1.41347e-09_rb,1.47447e-09_rb,1.53767e-09_rb, &\n      1.60322e-09_rb,1.67063e-09_rb,1.74033e-09_rb,1.81256e-09_rb,1.88704e-09_rb, &\n      1.96404e-09_rb,2.04329e-09_rb,2.12531e-09_rb,2.21032e-09_rb,2.29757e-09_rb, &\n      2.38739e-09_rb,2.48075e-09_rb,2.57628e-09_rb,2.67481e-09_rb,2.77627e-09_rb, &\n      2.88100e-09_rb,2.98862e-09_rb,3.09946e-09_rb,3.21390e-09_rb,3.33105e-09_rb, &\n      3.45185e-09_rb,3.57599e-09_rb,3.70370e-09_rb,3.83512e-09_rb,3.96909e-09_rb, &\n      4.10872e-09_rb,4.25070e-09_rb,4.39605e-09_rb,4.54670e-09_rb,4.70015e-09_rb, &\n      4.85850e-09_rb,5.02050e-09_rb,5.18655e-09_rb,5.35815e-09_rb,5.53180e-09_rb, &\n      5.71225e-09_rb,5.89495e-09_rb,6.08260e-09_rb,6.27485e-09_rb,6.47345e-09_rb/)\n      totplnkderiv(151:181,15) = (/ &\n      6.67520e-09_rb,6.88310e-09_rb,7.09400e-09_rb,7.31140e-09_rb,7.53350e-09_rb, &\n      7.76040e-09_rb,7.99215e-09_rb,8.22850e-09_rb,8.47235e-09_rb,8.71975e-09_rb, &\n      8.97360e-09_rb,9.23365e-09_rb,9.49950e-09_rb,9.76965e-09_rb,1.00441e-08_rb, &\n      1.03270e-08_rb,1.06158e-08_rb,1.09112e-08_rb,1.12111e-08_rb,1.15172e-08_rb, &\n      1.18263e-08_rb,1.21475e-08_rb,1.24735e-08_rb,1.28027e-08_rb,1.32023e-08_rb, &\n      1.34877e-08_rb,1.38399e-08_rb,1.42000e-08_rb,1.45625e-08_rb,1.49339e-08_rb, &\n      1.53156e-08_rb/)\n      totplnkderiv(1:50,16) = (/ &\n      4.38799e-14_rb,5.04835e-14_rb,5.79773e-14_rb,6.64627e-14_rb,7.60706e-14_rb, &\n      8.69213e-14_rb,9.91554e-14_rb,1.12932e-13_rb,1.28419e-13_rb,1.45809e-13_rb, &\n      1.65298e-13_rb,1.87109e-13_rb,2.11503e-13_rb,2.38724e-13_rb,2.69058e-13_rb, &\n      3.02878e-13_rb,3.40423e-13_rb,3.82128e-13_rb,4.28390e-13_rb,4.79625e-13_rb, &\n      5.36292e-13_rb,5.98933e-13_rb,6.68066e-13_rb,7.44216e-13_rb,8.28159e-13_rb, &\n      9.20431e-13_rb,1.02180e-12_rb,1.13307e-12_rb,1.25504e-12_rb,1.38863e-12_rb, &\n      1.53481e-12_rb,1.69447e-12_rb,1.86896e-12_rb,2.05903e-12_rb,2.26637e-12_rb, &\n      2.49193e-12_rb,2.73736e-12_rb,3.00416e-12_rb,3.29393e-12_rb,3.60781e-12_rb, &\n      3.94805e-12_rb,4.31675e-12_rb,4.71543e-12_rb,5.14627e-12_rb,5.61226e-12_rb, &\n      6.11456e-12_rb,6.65585e-12_rb,7.23969e-12_rb,7.86811e-12_rb,8.54456e-12_rb/)\n      totplnkderiv(51:100,16) = (/ &\n      9.27075e-12_rb,1.00516e-11_rb,1.08898e-11_rb,1.17884e-11_rb,1.27514e-11_rb, &\n      1.37839e-11_rb,1.48893e-11_rb,1.60716e-11_rb,1.73333e-11_rb,1.86849e-11_rb, &\n      2.01237e-11_rb,2.16610e-11_rb,2.33001e-11_rb,2.50440e-11_rb,2.69035e-11_rb, &\n      2.88827e-11_rb,3.09881e-11_rb,3.32234e-11_rb,3.55981e-11_rb,3.81193e-11_rb, &\n      4.07946e-11_rb,4.36376e-11_rb,4.66485e-11_rb,4.98318e-11_rb,5.32080e-11_rb, &\n      5.67754e-11_rb,6.05524e-11_rb,6.45450e-11_rb,6.87639e-11_rb,7.32160e-11_rb, &\n      7.79170e-11_rb,8.28780e-11_rb,8.81045e-11_rb,9.36200e-11_rb,9.94280e-11_rb, &\n      1.05545e-10_rb,1.11982e-10_rb,1.18752e-10_rb,1.25866e-10_rb,1.33350e-10_rb, &\n      1.41210e-10_rb,1.49469e-10_rb,1.58143e-10_rb,1.67233e-10_rb,1.76760e-10_rb, &\n      1.86758e-10_rb,1.97236e-10_rb,2.08227e-10_rb,2.19723e-10_rb,2.31737e-10_rb/)\n      totplnkderiv(101:150,16) = (/ &\n      2.44329e-10_rb,2.57503e-10_rb,2.71267e-10_rb,2.85647e-10_rb,3.00706e-10_rb, &\n      3.16391e-10_rb,3.32807e-10_rb,3.49887e-10_rb,3.67748e-10_rb,3.86369e-10_rb, &\n      4.05746e-10_rb,4.25984e-10_rb,4.47060e-10_rb,4.68993e-10_rb,4.91860e-10_rb, &\n      5.15601e-10_rb,5.40365e-10_rb,5.66085e-10_rb,5.92855e-10_rb,6.20640e-10_rb, &\n      6.49605e-10_rb,6.79585e-10_rb,7.10710e-10_rb,7.43145e-10_rb,7.76805e-10_rb, &\n      8.11625e-10_rb,8.47800e-10_rb,8.85300e-10_rb,9.24220e-10_rb,9.64550e-10_rb, &\n      1.00623e-09_rb,1.04957e-09_rb,1.09429e-09_rb,1.14079e-09_rb,1.18882e-09_rb, &\n      1.23848e-09_rb,1.28986e-09_rb,1.34301e-09_rb,1.39796e-09_rb,1.45493e-09_rb, &\n      1.51372e-09_rb,1.57440e-09_rb,1.63702e-09_rb,1.70173e-09_rb,1.76874e-09_rb, &\n      1.83753e-09_rb,1.90898e-09_rb,1.98250e-09_rb,2.05836e-09_rb,2.13646e-09_rb/)\n      totplnkderiv(151:181,16) = (/ &\n      2.21710e-09_rb,2.30027e-09_rb,2.38591e-09_rb,2.47432e-09_rb,2.56503e-09_rb, &\n      2.65878e-09_rb,2.75516e-09_rb,2.85432e-09_rb,2.95688e-09_rb,3.06201e-09_rb, &\n      3.17023e-09_rb,3.28153e-09_rb,3.39604e-09_rb,3.51391e-09_rb,3.63517e-09_rb, &\n      3.75955e-09_rb,3.88756e-09_rb,4.01880e-09_rb,4.15405e-09_rb,4.29255e-09_rb, &\n      4.43535e-09_rb,4.58145e-09_rb,4.73165e-09_rb,4.88560e-09_rb,5.04390e-09_rb, &\n      5.20630e-09_rb,5.37255e-09_rb,5.54355e-09_rb,5.71915e-09_rb,5.89855e-09_rb, &\n      6.08280e-09_rb/)\n      totplk16deriv(1:50) = (/ &\n      4.35811e-14_rb,5.01270e-14_rb,5.75531e-14_rb,6.59588e-14_rb,7.54735e-14_rb, &\n      8.62147e-14_rb,9.83225e-14_rb,1.11951e-13_rb,1.27266e-13_rb,1.44456e-13_rb, &\n      1.63715e-13_rb,1.85257e-13_rb,2.09343e-13_rb,2.36209e-13_rb,2.66136e-13_rb, &\n      2.99486e-13_rb,3.36493e-13_rb,3.77582e-13_rb,4.23146e-13_rb,4.73578e-13_rb, &\n      5.29332e-13_rb,5.90936e-13_rb,6.58891e-13_rb,7.33710e-13_rb,8.16135e-13_rb, &\n      9.06705e-13_rb,1.00614e-12_rb,1.11524e-12_rb,1.23477e-12_rb,1.36561e-12_rb, &\n      1.50871e-12_rb,1.66488e-12_rb,1.83552e-12_rb,2.02123e-12_rb,2.22375e-12_rb, &\n      2.44389e-12_rb,2.68329e-12_rb,2.94338e-12_rb,3.22570e-12_rb,3.53129e-12_rb, &\n      3.86236e-12_rb,4.22086e-12_rb,4.60827e-12_rb,5.02666e-12_rb,5.47890e-12_rb, &\n      5.96595e-12_rb,6.49057e-12_rb,7.05592e-12_rb,7.66401e-12_rb,8.31821e-12_rb/)\n      totplk16deriv(51:100) = (/ &\n      9.01998e-12_rb,9.77390e-12_rb,1.05826e-11_rb,1.14491e-11_rb,1.23769e-11_rb, &\n      1.33709e-11_rb,1.44341e-11_rb,1.55706e-11_rb,1.67821e-11_rb,1.80793e-11_rb, &\n      1.94586e-11_rb,2.09316e-11_rb,2.25007e-11_rb,2.41685e-11_rb,2.59454e-11_rb, &\n      2.78356e-11_rb,2.98440e-11_rb,3.19744e-11_rb,3.42355e-11_rb,3.66340e-11_rb, &\n      3.91772e-11_rb,4.18773e-11_rb,4.47339e-11_rb,4.77509e-11_rb,5.09490e-11_rb, &\n      5.43240e-11_rb,5.78943e-11_rb,6.16648e-11_rb,6.56445e-11_rb,6.98412e-11_rb, &\n      7.42680e-11_rb,7.89335e-11_rb,8.38450e-11_rb,8.90220e-11_rb,9.44695e-11_rb, &\n      1.00197e-10_rb,1.06221e-10_rb,1.12550e-10_rb,1.19193e-10_rb,1.26175e-10_rb, &\n      1.33498e-10_rb,1.41188e-10_rb,1.49251e-10_rb,1.57693e-10_rb,1.66530e-10_rb, &\n      1.75798e-10_rb,1.85495e-10_rb,1.95661e-10_rb,2.06275e-10_rb,2.17357e-10_rb/)\n      totplk16deriv(101:150) = (/ &\n      2.28959e-10_rb,2.41085e-10_rb,2.53739e-10_rb,2.66944e-10_rb,2.80755e-10_rb, &\n      2.95121e-10_rb,3.10141e-10_rb,3.25748e-10_rb,3.42057e-10_rb,3.59026e-10_rb, &\n      3.76668e-10_rb,3.95066e-10_rb,4.14211e-10_rb,4.34111e-10_rb,4.54818e-10_rb, &\n      4.76295e-10_rb,4.98681e-10_rb,5.21884e-10_rb,5.46000e-10_rb,5.71015e-10_rb, &\n      5.97065e-10_rb,6.23965e-10_rb,6.51865e-10_rb,6.80905e-10_rb,7.11005e-10_rb, &\n      7.42100e-10_rb,7.74350e-10_rb,8.07745e-10_rb,8.42355e-10_rb,8.78185e-10_rb, &\n      9.15130e-10_rb,9.53520e-10_rb,9.93075e-10_rb,1.03415e-09_rb,1.07649e-09_rb, &\n      1.12021e-09_rb,1.16539e-09_rb,1.21207e-09_rb,1.26025e-09_rb,1.31014e-09_rb, &\n      1.36156e-09_rb,1.41453e-09_rb,1.46909e-09_rb,1.52540e-09_rb,1.58368e-09_rb, &\n      1.64334e-09_rb,1.70527e-09_rb,1.76888e-09_rb,1.83442e-09_rb,1.90182e-09_rb/)\n      totplk16deriv(151:181) = (/ &\n      1.97128e-09_rb,2.04281e-09_rb,2.11635e-09_rb,2.19219e-09_rb,2.26979e-09_rb, &\n      2.34989e-09_rb,2.43219e-09_rb,2.51660e-09_rb,2.60396e-09_rb,2.69317e-09_rb, &\n      2.78501e-09_rb,2.87927e-09_rb,2.97600e-09_rb,3.07548e-09_rb,3.17772e-09_rb, &\n      3.28235e-09_rb,3.38982e-09_rb,3.49985e-09_rb,3.61307e-09_rb,3.72883e-09_rb, &\n      3.84805e-09_rb,3.96975e-09_rb,4.09465e-09_rb,4.22240e-09_rb,4.35370e-09_rb, &\n      4.48800e-09_rb,4.62535e-09_rb,4.76640e-09_rb,4.91110e-09_rb,5.05850e-09_rb, &\n      5.20965e-09_rb/)\n\n      end subroutine lwavplankderiv\n\n      end module rrtmg_lw_setcoef\n\n"
  },
  {
    "path": "GeosRad/rrtmg_lw_taumol.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_lw/src/rrtmg_lw_taumol.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.7 $\n!     created:   $Date: 2009/10/20 15:08:37 $\n!\n      module rrtmg_lw_taumol\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use parrrtm, only : mg, nbndlw, maxxsec, ngptlw\n      use rrlw_con, only: oneminus\n      use rrlw_wvn, only: nspa, nspb\n      use rrlw_vsn, only: hvrtau, hnamtau\n\n      implicit none\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine taumol(nlayers, pavel, wx, coldry, &\n                        laytrop, jp, jt, jt1, planklay, planklev, plankbnd, &\n                        colh2o, colco2, colo3, coln2o, colco, colch4, colo2, &\n                        colbrd, fac00, fac01, fac10, fac11, &\n                        rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, &\n                        rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, &\n                        rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1, &\n                        selffac, selffrac, indself, forfac, forfrac, indfor, &\n                        minorfrac, scaleminor, scaleminorn2, indminor, &\n                        fracs, taug)\n!----------------------------------------------------------------------------\n\n! *******************************************************************************\n! *                                                                             *\n! *                  Optical depths developed for the                           *\n! *                                                                             *\n! *                RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *\n! *                                                                             *\n! *                                                                             *\n! *            ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *\n! *                        131 HARTWELL AVENUE                                  *\n! *                        LEXINGTON, MA 02421                                  *\n! *                                                                             *\n! *                                                                             *\n! *                           ELI J. MLAWER                                     * \n! *                         JENNIFER DELAMERE                                   * \n! *                         STEVEN J. TAUBMAN                                   *\n! *                         SHEPARD A. CLOUGH                                   *\n! *                                                                             *\n! *                                                                             *\n! *                                                                             *\n! *                                                                             *\n! *                       email:  mlawer@aer.com                                *\n! *                       email:  jdelamer@aer.com                              *\n! *                                                                             *\n! *        The authors wish to acknowledge the contributions of the             *\n! *        following people:  Karen Cady-Pereira, Patrick D. Brown,             *  \n! *        Michael J. Iacono, Ronald E. Farren, Luke Chen, Robert Bergstrom.    *\n! *                                                                             *\n! *******************************************************************************\n! *                                                                             *\n! *  Revision for g-point reduction: Michael J. Iacono, AER, Inc.               *\n! *                                                                             *\n! *******************************************************************************\n! *     TAUMOL                                                                  *\n! *                                                                             *\n! *     This file contains the subroutines TAUGBn (where n goes from            *\n! *     1 to 16).  TAUGBn calculates the optical depths and Planck fractions    *\n! *     per g-value and layer for band n.                                       *\n! *                                                                             *\n! *  Output:  optical depths (unitless)                                         *\n! *           fractions needed to compute Planck functions at every layer       *\n! *               and g-value                                                   *\n! *                                                                             *\n! *     COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *\n! *     COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *\n! *                                                                             *\n! *  Input                                                                      *\n! *                                                                             *\n! *     COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *\n! *     COMMON /PRECISE/  ONEMINUS                                              *\n! *     COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *\n! *     &                 PZ(0:MXLAY),TZ(0:MXLAY)                               *\n! *     COMMON /PROFDATA/ LAYTROP,                                              *\n! *    &                  COLH2O(MXLAY),COLCO2(MXLAY),COLO3(MXLAY),             *\n! *    &                  COLN2O(MXLAY),COLCO(MXLAY),COLCH4(MXLAY),             *\n! *    &                  COLO2(MXLAY)\n! *     COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *\n! *    &                  FAC10(MXLAY),FAC11(MXLAY)                             *\n! *     COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *\n! *     COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *\n! *                                                                             *\n! *     Description:                                                            *\n! *     NG(IBAND) - number of g-values in band IBAND                            *\n! *     NSPA(IBAND) - for the lower atmosphere, the number of reference         *\n! *                   atmospheres that are stored for band IBAND per            *\n! *                   pressure level and temperature.  Each of these            *\n! *                   atmospheres has different relative amounts of the         *\n! *                   key species for the band (i.e. different binary           *\n! *                   species parameters).                                      *\n! *     NSPB(IBAND) - same for upper atmosphere                                 *\n! *     ONEMINUS - since problems are caused in some cases by interpolation     *\n! *                parameters equal to or greater than 1, for these cases       *\n! *                these parameters are set to this value, slightly < 1.        *\n! *     PAVEL - layer pressures (mb)                                            *\n! *     TAVEL - layer temperatures (degrees K)                                  *\n! *     PZ - level pressures (mb)                                               *\n! *     TZ - level temperatures (degrees K)                                     *\n! *     LAYTROP - layer at which switch is made from one combination of         *\n! *               key species to another                                        *\n! *     COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *\n! *               vapor,carbon dioxide, ozone, nitrous ozide, methane,          *\n! *               respectively (molecules/cm**2)                                *\n! *     FACij(LAY) - for layer LAY, these are factors that are needed to        *\n! *                  compute the interpolation factors that multiply the        *\n! *                  appropriate reference k-values.  A value of 0 (1) for      *\n! *                  i,j indicates that the corresponding factor multiplies     *\n! *                  reference k-value for the lower (higher) of the two        *\n! *                  appropriate temperatures, and altitudes, respectively.     *\n! *     JP - the index of the lower (in altitude) of the two appropriate        *\n! *          reference pressure levels needed for interpolation                 *\n! *     JT, JT1 - the indices of the lower of the two appropriate reference     *\n! *               temperatures needed for interpolation (for pressure           *\n! *               levels JP and JP+1, respectively)                             *\n! *     SELFFAC - scale factor needed for water vapor self-continuum, equals    *\n! *               (water vapor density)/(atmospheric density at 296K and        *\n! *               1013 mb)                                                      *\n! *     SELFFRAC - factor needed for temperature interpolation of reference     *\n! *                water vapor self-continuum data                              *\n! *     INDSELF - index of the lower of the two appropriate reference           *\n! *               temperatures needed for the self-continuum interpolation      *\n! *     FORFAC  - scale factor needed for water vapor foreign-continuum.        *\n! *     FORFRAC - factor needed for temperature interpolation of reference      *\n! *                water vapor foreign-continuum data                           *\n! *     INDFOR  - index of the lower of the two appropriate reference           *\n! *               temperatures needed for the foreign-continuum interpolation   *\n! *                                                                             *\n! *  Data input                                                                 *\n! *     COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG),*\n! *                 FORREF(4,MG), KA_M'MGAS', KB_M'MGAS'                        *\n! *        (note:  n is the band number,'MGAS' is the species name of the minor *\n! *         gas)                                                                *\n! *                                                                             *\n! *     Description:                                                            *\n! *     KA - k-values for low reference atmospheres (key-species only)          *\n! *          (units: cm**2/molecule)                                            *\n! *     KB - k-values for high reference atmospheres (key-species only)         *\n! *          (units: cm**2/molecule)                                            *\n! *     KA_M'MGAS' - k-values for low reference atmosphere minor species        *\n! *          (units: cm**2/molecule)                                            *\n! *     KB_M'MGAS' - k-values for high reference atmosphere minor species       *\n! *          (units: cm**2/molecule)                                            *\n! *     SELFREF - k-values for water vapor self-continuum for reference         *\n! *               atmospheres (used below LAYTROP)                              *\n! *               (units: cm**2/molecule)                                       *\n! *     FORREF  - k-values for water vapor foreign-continuum for reference      *\n! *               atmospheres (used below/above LAYTROP)                        *\n! *               (units: cm**2/molecule)                                       *\n! *                                                                             *\n! *     DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *\n! *     EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *\n! *                                                                             *\n!*******************************************************************************\n\n! ------- Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) \n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: wx(:,:)            ! cross-section amounts (mol/cm2)\n                                                      !    Dimensions: (maxxsec,nlayers)\n      real(kind=rb), intent(in) :: coldry(:)          ! column amount (dry air)\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(in) :: laytrop         ! tropopause layer index\n      integer(kind=im), intent(in) :: jp(:)           ! \n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt(:)           !\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt1(:)          !\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: planklay(:,:)      ! \n                                                      !    Dimensions: (nlayers,nbndlw)\n      real(kind=rb), intent(in) :: planklev(0:,:)     ! \n                                                      !    Dimensions: (nlayers,nbndlw)\n      real(kind=rb), intent(in) :: plankbnd(:)        ! \n                                                      !    Dimensions: (nbndlw)\n\n      real(kind=rb), intent(in) :: colh2o(:)          ! column amount (h2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco2(:)          ! column amount (co2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo3(:)           ! column amount (o3)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: coln2o(:)          ! column amount (n2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco(:)           ! column amount (co)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colch4(:)          ! column amount (ch4)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo2(:)           ! column amount (o2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colbrd(:)          ! column amount (broadening gases)\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(in) :: indself(:)\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: indfor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffrac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfrac(:)\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(in) :: indminor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: minorfrac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: scaleminor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: scaleminorn2(:)\n                                                      !    Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: &                  !\n                       fac00(:), fac01(:), &          !    Dimensions: (nlayers)\n                       fac10(:), fac11(:) \n      real(kind=rb), intent(in) :: &                  !\n                       rat_h2oco2(:),rat_h2oco2_1(:), &\n                       rat_h2oo3(:),rat_h2oo3_1(:), & !    Dimensions: (nlayers)\n                       rat_h2on2o(:),rat_h2on2o_1(:), &\n                       rat_h2och4(:),rat_h2och4_1(:), &\n                       rat_n2oco2(:),rat_n2oco2_1(:), &\n                       rat_o3co2(:),rat_o3co2_1(:)\n\n! ----- Output -----\n      real(kind=rb), intent(out) :: fracs(:,:)        ! planck fractions\n                                                      !    Dimensions: (nlayers,ngptlw)\n      real(kind=rb), intent(out) :: taug(:,:)         ! gaseous optical depth \n                                                      !    Dimensions: (nlayers,ngptlw)\n\n      hvrtau = '$Revision: 1.7 $'\n\n! Calculate gaseous optical depth and planck fractions for each spectral band.\n\n      call taugb1\n      call taugb2\n      call taugb3\n      call taugb4\n      call taugb5\n      call taugb6\n      call taugb7\n      call taugb8\n      call taugb9\n      call taugb10\n      call taugb11\n      call taugb12\n      call taugb13\n      call taugb14\n      call taugb15\n      call taugb16\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine taugb1\n!----------------------------------------------------------------------------\n\n! ------- Modifications -------\n!  Written by Eli J. Mlawer, Atmospheric & Environmental Research.\n!  Revised by Michael J. Iacono, Atmospheric & Environmental Research.\n!\n!     band 1:  10-350 cm-1 (low key - h2o; low minor - n2)\n!                          (high key - h2o; high minor - n2)\n!\n!     note: previous versions of rrtm band 1: \n!           10-250 cm-1 (low - h2o; high - h2o)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng1\n      use rrlw_kg01, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mn2, kb_mn2, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      real(kind=rb) :: pp, corradj, scalen2, tauself, taufor, taun2\n\n\n! Minor gas mapping levels:\n!     lower - n2, p = 142.5490 mbar, t = 215.70 k\n!     upper - n2, p = 142.5490 mbar, t = 215.70 k\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature.  Below laytrop, the water vapor self-continuum and\n! foreign continuum is interpolated (in temperature) separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(1) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(1) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n         pp = pavel(lay)\n         corradj =  1.\n         if (pp .lt. 250._rb) then\n            corradj = 1._rb - 0.15_rb * (250._rb-pp) / 154.4_rb\n         endif\n\n         scalen2 = colbrd(lay) * scaleminorn2(lay)\n         do ig = 1, ng1\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) -  forref(indf,ig))) \n            taun2 = scalen2*(ka_mn2(indm,ig) + & \n                 minorfrac(lay) * (ka_mn2(indm+1,ig) - ka_mn2(indm,ig)))\n            taug(lay,ig) = corradj * (colh2o(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) & \n                 + tauself + taufor + taun2)\n             fracs(lay,ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(1) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(1) + 1\n         indf = indfor(lay)\n         indm = indminor(lay)\n         pp = pavel(lay)\n         corradj =  1._rb - 0.15_rb * (pp / 95.6_rb)\n\n         scalen2 = colbrd(lay) * scaleminorn2(lay)\n         do ig = 1, ng1\n            taufor = forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * (forref(indf+1,ig) - forref(indf,ig))) \n            taun2 = scalen2*(kb_mn2(indm,ig) + & \n                 minorfrac(lay) * (kb_mn2(indm+1,ig) - kb_mn2(indm,ig)))\n            taug(lay,ig) = corradj * (colh2o(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) &  \n                 + taufor + taun2)\n            fracs(lay,ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb1\n\n!----------------------------------------------------------------------------\n      subroutine taugb2\n!----------------------------------------------------------------------------\n!\n!     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)\n!\n!     note: previous version of rrtm band 2: \n!           250 - 500 cm-1 (low - h2o; high - h2o)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng2, ngs1\n      use rrlw_kg02, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig\n      real(kind=rb) :: pp, corradj, tauself, taufor\n\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature.  Below laytrop, the water vapor self-continuum and\n! foreign continuum is interpolated (in temperature) separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(2) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(2) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         pp = pavel(lay)\n         corradj = 1._rb - .05_rb * (pp - 100._rb) / 900._rb\n         do ig = 1, ng2\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            taug(lay,ngs1+ig) = corradj * (colh2o(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) &\n                 + tauself + taufor)\n            fracs(lay,ngs1+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(2) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(2) + 1\n         indf = indfor(lay)\n         do ig = 1, ng2\n            taufor =  forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * (forref(indf+1,ig) - forref(indf,ig))) \n            taug(lay,ngs1+ig) = colh2o(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) &\n                 + taufor\n            fracs(lay,ngs1+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb2\n\n!----------------------------------------------------------------------------\n      subroutine taugb3\n!----------------------------------------------------------------------------\n!\n!     band 3:  500-630 cm-1 (low key - h2o,co2; low minor - n2o)\n!                           (high key - h2o,co2; high minor - n2o)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng3, ngs2\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg03, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mn2o, kb_mn2o, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      integer(kind=im) :: js, js1, jmn2o, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_mn2o, specparm_mn2o, specmult_mn2o, &\n                       fmn2o, fmn2omf, chi_n2o, ratn2o, adjfac, adjcoln2o\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor, n2om1, n2om2, absn2o\n      real(kind=rb) :: refrat_planck_a, refrat_planck_b, refrat_m_a, refrat_m_b\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Minor gas mapping levels:\n!     lower - n2o, p = 706.272 mbar, t = 278.94 k\n!     upper - n2o, p = 95.58 mbar, t = 215.7 k\n\n!  P = 212.725 mb\n      refrat_planck_a = chi_mls(1,9)/chi_mls(2,9)\n\n!  P = 95.58 mb\n      refrat_planck_b = chi_mls(1,13)/chi_mls(2,13)\n\n!  P = 706.270mb\n      refrat_m_a = chi_mls(1,3)/chi_mls(2,3)\n\n!  P = 95.58 mb \n      refrat_m_b = chi_mls(1,13)/chi_mls(2,13)\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature, and appropriate species.  Below laytrop, the water vapor \n! self-continuum and foreign continuum is interpolated (in temperature) \n! separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)        \n\n         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_mn2o = colh2o(lay) + refrat_m_a*colco2(lay)\n         specparm_mn2o = colh2o(lay)/speccomb_mn2o\n         if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus\n         specmult_mn2o = 8._rb*specparm_mn2o\n         jmn2o = 1 + int(specmult_mn2o)\n         fmn2o = mod(specmult_mn2o,1.0_rb)\n         fmn2omf = minorfrac(lay)*fmn2o\n!  In atmospheres where the amount of N2O is too great to be considered\n!  a minor species, adjust the column amount of N2O by an empirical factor \n!  to obtain the proper contribution.\n         chi_n2o = coln2o(lay)/coldry(lay)\n         ratn2o = 1.e20_rb*chi_n2o/chi_mls(4,jp(lay)+1)\n         if (ratn2o .gt. 1.5_rb) then\n            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb\n            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcoln2o = coln2o(lay)\n         endif\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(3) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(3) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng3\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * &\n                 (ka_mn2o(jmn2o+1,indm,ig) - ka_mn2o(jmn2o,indm,ig))\n            n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * &\n                 (ka_mn2o(jmn2o+1,indm+1,ig) - ka_mn2o(jmn2o,indm+1,ig))\n            absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)\n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) +  &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs2+ig) = tau_major + tau_major1 &\n                 + tauself + taufor &\n                 + adjcoln2o*absn2o\n            fracs(lay,ngs2+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 4._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs1) * fac01(lay)\n         fac011 = (1._rb - fs1) * fac11(lay)\n         fac101 = fs1 * fac01(lay)\n         fac111 = fs1 * fac11(lay)\n\n         speccomb_mn2o = colh2o(lay) + refrat_m_b*colco2(lay)\n         specparm_mn2o = colh2o(lay)/speccomb_mn2o\n         if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus\n         specmult_mn2o = 4._rb*specparm_mn2o\n         jmn2o = 1 + int(specmult_mn2o)\n         fmn2o = mod(specmult_mn2o,1.0_rb)\n         fmn2omf = minorfrac(lay)*fmn2o\n!  In atmospheres where the amount of N2O is too great to be considered\n!  a minor species, adjust the column amount of N2O by an empirical factor \n!  to obtain the proper contribution.\n         chi_n2o = coln2o(lay)/coldry(lay)\n         ratn2o = 1.e20*chi_n2o/chi_mls(4,jp(lay)+1)\n         if (ratn2o .gt. 1.5_rb) then\n            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb\n            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcoln2o = coln2o(lay)\n         endif\n\n         speccomb_planck = colh2o(lay)+refrat_planck_b*colco2(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 4._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(3) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(3) + js1\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         do ig = 1, ng3\n            taufor = forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * (forref(indf+1,ig) - forref(indf,ig))) \n            n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * &\n                 (kb_mn2o(jmn2o+1,indm,ig)-kb_mn2o(jmn2o,indm,ig))\n            n2om2 = kb_mn2o(jmn2o,indm+1,ig) + fmn2o * &\n                 (kb_mn2o(jmn2o+1,indm+1,ig)-kb_mn2o(jmn2o,indm+1,ig))\n            absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)\n            taug(lay,ngs2+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                fac100 * absb(ind0+1,ig) + &\n                fac010 * absb(ind0+5,ig) + &\n                fac110 * absb(ind0+6,ig)) &\n                + speccomb1 * &\n                (fac001 * absb(ind1,ig) +  &\n                fac101 * absb(ind1+1,ig) + &\n                fac011 * absb(ind1+5,ig) + &\n                fac111 * absb(ind1+6,ig))  &\n                + taufor &\n                + adjcoln2o*absn2o\n            fracs(lay,ngs2+ig) = fracrefb(ig,jpl) + fpl * &\n                (fracrefb(ig,jpl+1)-fracrefb(ig,jpl))\n         enddo\n      enddo\n\n      end subroutine taugb3\n\n!----------------------------------------------------------------------------\n      subroutine taugb4\n!----------------------------------------------------------------------------\n!\n!     band 4:  630-700 cm-1 (low key - h2o,co2; high key - o3,co2)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng4, ngs3\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg04, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig\n      integer(kind=im) :: js, js1, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor\n      real(kind=rb) :: refrat_planck_a, refrat_planck_b\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! P =   142.5940 mb\n      refrat_planck_a = chi_mls(1,11)/chi_mls(2,11)\n\n! P = 95.58350 mb\n      refrat_planck_b = chi_mls(3,13)/chi_mls(2,13)\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature, and appropriate species.  Below laytrop, the water \n! vapor self-continuum and foreign continuum is interpolated (in temperature) \n! separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(4) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(4) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng4\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) +  &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs3+ig) = tau_major + tau_major1 &\n                 + tauself + taufor\n            fracs(lay,ngs3+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n         speccomb = colo3(lay) + rat_o3co2(lay)*colco2(lay)\n         specparm = colo3(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colo3(lay) + rat_o3co2_1(lay)*colco2(lay)\n         specparm1 = colo3(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 4._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs1) * fac01(lay)\n         fac011 = (1._rb - fs1) * fac11(lay)\n         fac101 = fs1 * fac01(lay)\n         fac111 = fs1 * fac11(lay)\n\n         speccomb_planck = colo3(lay)+refrat_planck_b*colco2(lay)\n         specparm_planck = colo3(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 4._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(4) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(4) + js1\n\n         do ig = 1, ng4\n            taug(lay,ngs3+ig) =  speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                fac100 * absb(ind0+1,ig) + &\n                fac010 * absb(ind0+5,ig) + &\n                fac110 * absb(ind0+6,ig)) &\n                + speccomb1 * &\n                (fac001 * absb(ind1,ig) +  &\n                fac101 * absb(ind1+1,ig) + &\n                fac011 * absb(ind1+5,ig) + &\n                fac111 * absb(ind1+6,ig))\n            fracs(lay,ngs3+ig) = fracrefb(ig,jpl) + fpl * &\n                (fracrefb(ig,jpl+1)-fracrefb(ig,jpl))\n         enddo\n\n! Empirical modification to code to improve stratospheric cooling rates\n! for co2.  Revised to apply weighting for g-point reduction in this band.\n\n         taug(lay,ngs3+8)=taug(lay,ngs3+8)*0.92\n         taug(lay,ngs3+9)=taug(lay,ngs3+9)*0.88\n         taug(lay,ngs3+10)=taug(lay,ngs3+10)*1.07\n         taug(lay,ngs3+11)=taug(lay,ngs3+11)*1.1\n         taug(lay,ngs3+12)=taug(lay,ngs3+12)*0.99\n         taug(lay,ngs3+13)=taug(lay,ngs3+13)*0.88\n         taug(lay,ngs3+14)=taug(lay,ngs3+14)*0.943\n\n      enddo\n\n      end subroutine taugb4\n\n!----------------------------------------------------------------------------\n      subroutine taugb5\n!----------------------------------------------------------------------------\n!\n!     band 5:  700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4)\n!                           (high key - o3,co2)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng5, ngs4\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg05, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mo3, selfref, forref, ccl4\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      integer(kind=im) :: js, js1, jmo3, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_mo3, specparm_mo3, specmult_mo3, fmo3\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor, o3m1, o3m2, abso3\n      real(kind=rb) :: refrat_planck_a, refrat_planck_b, refrat_m_a\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Minor gas mapping level :\n!     lower - o3, p = 317.34 mbar, t = 240.77 k\n!     lower - ccl4\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower/upper atmosphere.\n\n! P = 473.420 mb\n      refrat_planck_a = chi_mls(1,5)/chi_mls(2,5)\n\n! P = 0.2369 mb\n      refrat_planck_b = chi_mls(3,43)/chi_mls(2,43)\n\n! P = 317.3480\n      refrat_m_a = chi_mls(1,7)/chi_mls(2,7)\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature, and appropriate species.  Below laytrop, the \n! water vapor self-continuum and foreign continuum is \n! interpolated (in temperature) separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_mo3 = colh2o(lay) + refrat_m_a*colco2(lay)\n         specparm_mo3 = colh2o(lay)/speccomb_mo3\n         if (specparm_mo3 .ge. oneminus) specparm_mo3 = oneminus\n         specmult_mo3 = 8._rb*specparm_mo3\n         jmo3 = 1 + int(specmult_mo3)\n         fmo3 = mod(specmult_mo3,1.0_rb)\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(5) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(5) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng5\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            o3m1 = ka_mo3(jmo3,indm,ig) + fmo3 * &\n                 (ka_mo3(jmo3+1,indm,ig)-ka_mo3(jmo3,indm,ig))\n            o3m2 = ka_mo3(jmo3,indm+1,ig) + fmo3 * &\n                 (ka_mo3(jmo3+1,indm+1,ig)-ka_mo3(jmo3,indm+1,ig))\n            abso3 = o3m1 + minorfrac(lay)*(o3m2-o3m1)\n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * & \n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs4+ig) = tau_major + tau_major1 &\n                 + tauself + taufor &\n                 + abso3*colo3(lay) &\n                 + wx(1,lay) * ccl4(ig)\n            fracs(lay,ngs4+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n         speccomb = colo3(lay) + rat_o3co2(lay)*colco2(lay)\n         specparm = colo3(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colo3(lay) + rat_o3co2_1(lay)*colco2(lay)\n         specparm1 = colo3(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 4._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs1) * fac01(lay)\n         fac011 = (1._rb - fs1) * fac11(lay)\n         fac101 = fs1 * fac01(lay)\n         fac111 = fs1 * fac11(lay)\n\n         speccomb_planck = colo3(lay)+refrat_planck_b*colco2(lay)\n         specparm_planck = colo3(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 4._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(5) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(5) + js1\n         \n         do ig = 1, ng5\n            taug(lay,ngs4+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                fac100 * absb(ind0+1,ig) + &\n                fac010 * absb(ind0+5,ig) + &\n                fac110 * absb(ind0+6,ig)) &\n                + speccomb1 * &\n                (fac001 * absb(ind1,ig) + &\n                fac101 * absb(ind1+1,ig) + &\n                fac011 * absb(ind1+5,ig) + &\n                fac111 * absb(ind1+6,ig))  &\n                + wx(1,lay) * ccl4(ig)\n            fracs(lay,ngs4+ig) = fracrefb(ig,jpl) + fpl * &\n                (fracrefb(ig,jpl+1)-fracrefb(ig,jpl))\n         enddo\n      enddo\n\n      end subroutine taugb5\n\n!----------------------------------------------------------------------------\n      subroutine taugb6\n!----------------------------------------------------------------------------\n!\n!     band 6:  820-980 cm-1 (low key - h2o; low minor - co2)\n!                           (high key - nothing; high minor - cfc11, cfc12)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng6, ngs5\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg06, only : fracrefa, absa, ka, ka_mco2, &\n                            selfref, forref, cfc11adj, cfc12\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2\n      real(kind=rb) :: tauself, taufor, absco2\n\n\n! Minor gas mapping level:\n!     lower - co2, p = 706.2720 mb, t = 294.2 k\n!     upper - cfc11, cfc12\n\n! Compute the optical depth by interpolating in ln(pressure) and\n! temperature. The water vapor self-continuum and foreign continuum\n! is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n! In atmospheres where the amount of CO2 is too great to be considered\n! a minor species, adjust the column amount of CO2 by an empirical factor \n! to obtain the proper contribution.\n         chi_co2 = colco2(lay)/(coldry(lay))\n         ratco2 = 1.e20_rb*chi_co2/chi_mls(2,jp(lay)+1)\n         if (ratco2 .gt. 3.0_rb) then\n            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.77_rb\n            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcolco2 = colco2(lay)\n         endif\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(6) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(6) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         do ig = 1, ng6\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))\n            absco2 =  (ka_mco2(indm,ig) + minorfrac(lay) * &\n                 (ka_mco2(indm+1,ig) - ka_mco2(indm,ig)))\n            taug(lay,ngs5+ig) = colh2o(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) +  &\n                 fac11(lay) * absa(ind1+1,ig))  &\n                 + tauself + taufor &\n                 + adjcolco2 * absco2 &\n                 + wx(2,lay) * cfc11adj(ig) &\n                 + wx(3,lay) * cfc12(ig)\n            fracs(lay,ngs5+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n! Nothing important goes on above laytrop in this band.\n      do lay = laytrop+1, nlayers\n\n         do ig = 1, ng6\n            taug(lay,ngs5+ig) = 0.0_rb &\n                 + wx(2,lay) * cfc11adj(ig) &\n                 + wx(3,lay) * cfc12(ig)\n            fracs(lay,ngs5+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n      end subroutine taugb6\n\n!----------------------------------------------------------------------------\n      subroutine taugb7\n!----------------------------------------------------------------------------\n!\n!     band 7:  980-1080 cm-1 (low key - h2o,o3; low minor - co2)\n!                            (high key - o3; high minor - co2)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng7, ngs6\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg07, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mco2, kb_mco2, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      integer(kind=im) :: js, js1, jmco2, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_mco2, specparm_mco2, specmult_mco2, fmco2\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor, co2m1, co2m2, absco2\n      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2\n      real(kind=rb) :: refrat_planck_a, refrat_m_a\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Minor gas mapping level :\n!     lower - co2, p = 706.2620 mbar, t= 278.94 k\n!     upper - co2, p = 12.9350 mbar, t = 234.01 k\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower atmosphere.\n\n! P = 706.2620 mb\n      refrat_planck_a = chi_mls(1,3)/chi_mls(3,3)\n\n! P = 706.2720 mb\n      refrat_m_a = chi_mls(1,3)/chi_mls(3,3)\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below laytrop, the water\n! vapor self-continuum and foreign continuum is interpolated \n! (in temperature) separately. \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2oo3(lay)*colo3(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2oo3_1(lay)*colo3(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_mco2 = colh2o(lay) + refrat_m_a*colo3(lay)\n         specparm_mco2 = colh2o(lay)/speccomb_mco2\n         if (specparm_mco2 .ge. oneminus) specparm_mco2 = oneminus\n         specmult_mco2 = 8._rb*specparm_mco2\n\n         jmco2 = 1 + int(specmult_mco2)\n         fmco2 = mod(specmult_mco2,1.0_rb)\n\n!  In atmospheres where the amount of CO2 is too great to be considered\n!  a minor species, adjust the column amount of CO2 by an empirical factor \n!  to obtain the proper contribution.\n         chi_co2 = colco2(lay)/(coldry(lay))\n         ratco2 = 1.e20*chi_co2/chi_mls(2,jp(lay)+1)\n         if (ratco2 .gt. 3.0_rb) then\n            adjfac = 3.0_rb+(ratco2-3.0_rb)**0.79_rb\n            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcolco2 = colco2(lay)\n         endif\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colo3(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(7) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(7) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n         if (specparm .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng7\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            co2m1 = ka_mco2(jmco2,indm,ig) + fmco2 * &\n                 (ka_mco2(jmco2+1,indm,ig) - ka_mco2(jmco2,indm,ig))\n            co2m2 = ka_mco2(jmco2,indm+1,ig) + fmco2 * &\n                 (ka_mco2(jmco2+1,indm+1,ig) - ka_mco2(jmco2,indm+1,ig))\n            absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)\n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) +  &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs6+ig) = tau_major + tau_major1 &\n                 + tauself + taufor &\n                 + adjcolco2*absco2\n            fracs(lay,ngs6+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n!  In atmospheres where the amount of CO2 is too great to be considered\n!  a minor species, adjust the column amount of CO2 by an empirical factor \n!  to obtain the proper contribution.\n         chi_co2 = colco2(lay)/(coldry(lay))\n         ratco2 = 1.e20*chi_co2/chi_mls(2,jp(lay)+1)\n         if (ratco2 .gt. 3.0_rb) then\n            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.79_rb\n            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcolco2 = colco2(lay)\n         endif\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(7) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(7) + 1\n         indm = indminor(lay)\n\n         do ig = 1, ng7\n            absco2 = kb_mco2(indm,ig) + minorfrac(lay) * &\n                 (kb_mco2(indm+1,ig) - kb_mco2(indm,ig))\n            taug(lay,ngs6+ig) = colo3(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) &\n                 + adjcolco2 * absco2\n            fracs(lay,ngs6+ig) = fracrefb(ig)\n         enddo\n\n! Empirical modification to code to improve stratospheric cooling rates\n! for o3.  Revised to apply weighting for g-point reduction in this band.\n\n         taug(lay,ngs6+6)=taug(lay,ngs6+6)*0.92_rb\n         taug(lay,ngs6+7)=taug(lay,ngs6+7)*0.88_rb\n         taug(lay,ngs6+8)=taug(lay,ngs6+8)*1.07_rb\n         taug(lay,ngs6+9)=taug(lay,ngs6+9)*1.1_rb\n         taug(lay,ngs6+10)=taug(lay,ngs6+10)*0.99_rb\n         taug(lay,ngs6+11)=taug(lay,ngs6+11)*0.855_rb\n\n      enddo\n\n      end subroutine taugb7\n\n!----------------------------------------------------------------------------\n      subroutine taugb8\n!----------------------------------------------------------------------------\n!\n!     band 8:  1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o)\n!                             (high key - o3; high minor - co2, n2o)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng8, ngs7\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg08, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mco2, ka_mn2o, ka_mo3, kb_mco2, kb_mn2o, &\n                            selfref, forref, cfc12, cfc22adj\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      real(kind=rb) :: tauself, taufor, absco2, abso3, absn2o\n      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2\n\n\n! Minor gas mapping level:\n!     lower - co2, p = 1053.63 mb, t = 294.2 k\n!     lower - o3,  p = 317.348 mb, t = 240.77 k\n!     lower - n2o, p = 706.2720 mb, t= 278.94 k\n!     lower - cfc12,cfc11\n!     upper - co2, p = 35.1632 mb, t = 223.28 k\n!     upper - n2o, p = 8.716e-2 mb, t = 226.03 k\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature, and appropriate species.  Below laytrop, the water vapor \n! self-continuum and foreign continuum is interpolated (in temperature) \n! separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n!  In atmospheres where the amount of CO2 is too great to be considered\n!  a minor species, adjust the column amount of CO2 by an empirical factor \n!  to obtain the proper contribution.\n         chi_co2 = colco2(lay)/(coldry(lay))\n         ratco2 = 1.e20_rb*chi_co2/chi_mls(2,jp(lay)+1)\n         if (ratco2 .gt. 3.0_rb) then\n            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.65_rb\n            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcolco2 = colco2(lay)\n         endif\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(8) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(8) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         do ig = 1, ng8\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))\n            absco2 =  (ka_mco2(indm,ig) + minorfrac(lay) * &\n                 (ka_mco2(indm+1,ig) - ka_mco2(indm,ig)))\n            abso3 =  (ka_mo3(indm,ig) + minorfrac(lay) * &\n                 (ka_mo3(indm+1,ig) - ka_mo3(indm,ig)))\n            absn2o =  (ka_mn2o(indm,ig) + minorfrac(lay) * &\n                 (ka_mn2o(indm+1,ig) - ka_mn2o(indm,ig)))\n            taug(lay,ngs7+ig) = colh2o(lay) * &\n                 (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) +  &\n                 fac11(lay) * absa(ind1+1,ig)) &\n                 + tauself + taufor &\n                 + adjcolco2*absco2 &\n                 + colo3(lay) * abso3 &\n                 + coln2o(lay) * absn2o &\n                 + wx(3,lay) * cfc12(ig) &\n                 + wx(4,lay) * cfc22adj(ig)\n            fracs(lay,ngs7+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n!  In atmospheres where the amount of CO2 is too great to be considered\n!  a minor species, adjust the column amount of CO2 by an empirical factor \n!  to obtain the proper contribution.\n         chi_co2 = colco2(lay)/coldry(lay)\n         ratco2 = 1.e20_rb*chi_co2/chi_mls(2,jp(lay)+1)\n         if (ratco2 .gt. 3.0_rb) then\n            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.65_rb\n            adjcolco2 = adjfac*chi_mls(2,jp(lay)+1) * coldry(lay)*1.e-20_rb\n         else\n            adjcolco2 = colco2(lay)\n         endif\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(8) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(8) + 1\n         indm = indminor(lay)\n\n         do ig = 1, ng8\n            absco2 =  (kb_mco2(indm,ig) + minorfrac(lay) * &\n                 (kb_mco2(indm+1,ig) - kb_mco2(indm,ig)))\n            absn2o =  (kb_mn2o(indm,ig) + minorfrac(lay) * &\n                 (kb_mn2o(indm+1,ig) - kb_mn2o(indm,ig)))\n            taug(lay,ngs7+ig) = colo3(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) &\n                 + adjcolco2*absco2 &\n                 + coln2o(lay)*absn2o & \n                 + wx(3,lay) * cfc12(ig) &\n                 + wx(4,lay) * cfc22adj(ig)\n            fracs(lay,ngs7+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb8\n\n!----------------------------------------------------------------------------\n      subroutine taugb9\n!----------------------------------------------------------------------------\n!\n!     band 9:  1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o)\n!                             (high key - ch4; high minor - n2o)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng9, ngs8\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg09, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mn2o, kb_mn2o, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      integer(kind=im) :: js, js1, jmn2o, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_mn2o, specparm_mn2o, specmult_mn2o, fmn2o\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor, n2om1, n2om2, absn2o\n      real(kind=rb) :: chi_n2o, ratn2o, adjfac, adjcoln2o\n      real(kind=rb) :: refrat_planck_a, refrat_m_a\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Minor gas mapping level :\n!     lower - n2o, p = 706.272 mbar, t = 278.94 k\n!     upper - n2o, p = 95.58 mbar, t = 215.7 k\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower/upper atmosphere.\n\n! P = 212 mb\n      refrat_planck_a = chi_mls(1,9)/chi_mls(6,9)\n\n! P = 706.272 mb \n      refrat_m_a = chi_mls(1,3)/chi_mls(6,3)\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below laytrop, the water\n! vapor self-continuum and foreign continuum is interpolated \n! (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2och4(lay)*colch4(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2och4_1(lay)*colch4(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_mn2o = colh2o(lay) + refrat_m_a*colch4(lay)\n         specparm_mn2o = colh2o(lay)/speccomb_mn2o\n         if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus\n         specmult_mn2o = 8._rb*specparm_mn2o\n         jmn2o = 1 + int(specmult_mn2o)\n         fmn2o = mod(specmult_mn2o,1.0_rb)\n\n!  In atmospheres where the amount of N2O is too great to be considered\n!  a minor species, adjust the column amount of N2O by an empirical factor \n!  to obtain the proper contribution.\n         chi_n2o = coln2o(lay)/(coldry(lay))\n         ratn2o = 1.e20_rb*chi_n2o/chi_mls(4,jp(lay)+1)\n         if (ratn2o .gt. 1.5_rb) then\n            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb\n            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcoln2o = coln2o(lay)\n         endif\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colch4(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(9) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(9) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng9\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * &\n                 (ka_mn2o(jmn2o+1,indm,ig) - ka_mn2o(jmn2o,indm,ig))\n            n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * &\n                 (ka_mn2o(jmn2o+1,indm+1,ig) - ka_mn2o(jmn2o,indm+1,ig))\n            absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)\n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + & \n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs8+ig) = tau_major + tau_major1 &\n                 + tauself + taufor &\n                 + adjcoln2o*absn2o\n            fracs(lay,ngs8+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n\n!  In atmospheres where the amount of N2O is too great to be considered\n!  a minor species, adjust the column amount of N2O by an empirical factor \n!  to obtain the proper contribution.\n         chi_n2o = coln2o(lay)/(coldry(lay))\n         ratn2o = 1.e20_rb*chi_n2o/chi_mls(4,jp(lay)+1)\n         if (ratn2o .gt. 1.5_rb) then\n            adjfac = 0.5_rb+(ratn2o-0.5_rb)**0.65_rb\n            adjcoln2o = adjfac*chi_mls(4,jp(lay)+1)*coldry(lay)*1.e-20_rb\n         else\n            adjcoln2o = coln2o(lay)\n         endif\n\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(9) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(9) + 1\n         indm = indminor(lay)\n\n         do ig = 1, ng9\n            absn2o = kb_mn2o(indm,ig) + minorfrac(lay) * &\n                (kb_mn2o(indm+1,ig) - kb_mn2o(indm,ig))\n            taug(lay,ngs8+ig) = colch4(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) +  &\n                 fac11(lay) * absb(ind1+1,ig)) &\n                 + adjcoln2o*absn2o\n            fracs(lay,ngs8+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb9\n\n!----------------------------------------------------------------------------\n      subroutine taugb10\n!----------------------------------------------------------------------------\n!\n!     band 10:  1390-1480 cm-1 (low key - h2o; high key - h2o)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng10, ngs9\n      use rrlw_kg10, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig\n      real(kind=rb) :: tauself, taufor\n\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature.  Below laytrop, the water vapor self-continuum and\n! foreign continuum is interpolated (in temperature) separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(10) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(10) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         do ig = 1, ng10\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            taug(lay,ngs9+ig) = colh2o(lay) * &\n                 (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig))  &\n                 + tauself + taufor\n            fracs(lay,ngs9+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(10) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(10) + 1\n         indf = indfor(lay)\n\n         do ig = 1, ng10\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            taug(lay,ngs9+ig) = colh2o(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) +  &\n                 fac11(lay) * absb(ind1+1,ig)) &\n                 + taufor\n            fracs(lay,ngs9+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb10\n\n!----------------------------------------------------------------------------\n      subroutine taugb11\n!----------------------------------------------------------------------------\n!\n!     band 11:  1480-1800 cm-1 (low - h2o; low minor - o2)\n!                              (high key - h2o; high minor - o2)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng11, ngs10\n      use rrlw_kg11, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            ka_mo2, kb_mo2, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      real(kind=rb) :: scaleo2, tauself, taufor, tauo2\n\n\n! Minor gas mapping level :\n!     lower - o2, p = 706.2720 mbar, t = 278.94 k\n!     upper - o2, p = 4.758820 mbarm t = 250.85 k\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature.  Below laytrop, the water vapor self-continuum and\n! foreign continuum is interpolated (in temperature) separately.\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(11) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(11) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n         scaleo2 = colo2(lay)*scaleminor(lay)\n         do ig = 1, ng11\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))\n            tauo2 =  scaleo2 * (ka_mo2(indm,ig) + minorfrac(lay) * &\n                 (ka_mo2(indm+1,ig) - ka_mo2(indm,ig)))\n            taug(lay,ngs10+ig) = colh2o(lay) * &\n                 (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) &\n                 + tauself + taufor &\n                 + tauo2\n            fracs(lay,ngs10+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(11) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(11) + 1\n         indf = indfor(lay)\n         indm = indminor(lay)\n         scaleo2 = colo2(lay)*scaleminor(lay)\n         do ig = 1, ng11\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            tauo2 =  scaleo2 * (kb_mo2(indm,ig) + minorfrac(lay) * &\n                 (kb_mo2(indm+1,ig) - kb_mo2(indm,ig)))\n            taug(lay,ngs10+ig) = colh2o(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig))  &\n                 + taufor &\n                 + tauo2\n            fracs(lay,ngs10+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb11\n\n!----------------------------------------------------------------------------\n      subroutine taugb12\n!----------------------------------------------------------------------------\n!\n!     band 12:  1800-2080 cm-1 (low - h2o,co2; high - nothing)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng12, ngs11\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg12, only : fracrefa, absa, ka, &\n                            selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig\n      integer(kind=im) :: js, js1, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor\n      real(kind=rb) :: refrat_planck_a\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower/upper atmosphere.\n\n! P =   174.164 mb \n      refrat_planck_a = chi_mls(1,10)/chi_mls(2,10)\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below laytrop, the water\n! vapor self-continuum adn foreign continuum is interpolated \n! (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2oco2_1(lay)*colco2(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colco2(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(12) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(12) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng12\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs11+ig) = tau_major + tau_major1 &\n                 + tauself + taufor\n            fracs(lay,ngs11+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng12\n            taug(lay,ngs11+ig) = 0.0_rb\n            fracs(lay,ngs11+ig) = 0.0_rb\n         enddo\n      enddo\n\n      end subroutine taugb12\n\n!----------------------------------------------------------------------------\n      subroutine taugb13\n!----------------------------------------------------------------------------\n!\n!     band 13:  2080-2250 cm-1 (low key - h2o,n2o; high minor - o3 minor)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng13, ngs12\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg13, only : fracrefa, fracrefb, absa, ka, &\n                            ka_mco2, ka_mco, kb_mo3, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      integer(kind=im) :: js, js1, jmco2, jmco, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_mco2, specparm_mco2, specmult_mco2, fmco2\n      real(kind=rb) :: speccomb_mco, specparm_mco, specmult_mco, fmco\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor, co2m1, co2m2, absco2 \n      real(kind=rb) :: com1, com2, absco, abso3\n      real(kind=rb) :: chi_co2, ratco2, adjfac, adjcolco2\n      real(kind=rb) :: refrat_planck_a, refrat_m_a, refrat_m_a3\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Minor gas mapping levels :\n!     lower - co2, p = 1053.63 mb, t = 294.2 k\n!     lower - co, p = 706 mb, t = 278.94 k\n!     upper - o3, p = 95.5835 mb, t = 215.7 k\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower/upper atmosphere.\n\n! P = 473.420 mb (Level 5)\n      refrat_planck_a = chi_mls(1,5)/chi_mls(4,5)\n\n! P = 1053. (Level 1)\n      refrat_m_a = chi_mls(1,1)/chi_mls(4,1)\n\n! P = 706. (Level 3)\n      refrat_m_a3 = chi_mls(1,3)/chi_mls(4,3)\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below laytrop, the water\n! vapor self-continuum and foreign continuum is interpolated \n! (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2on2o(lay)*coln2o(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2on2o_1(lay)*coln2o(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_mco2 = colh2o(lay) + refrat_m_a*coln2o(lay)\n         specparm_mco2 = colh2o(lay)/speccomb_mco2\n         if (specparm_mco2 .ge. oneminus) specparm_mco2 = oneminus\n         specmult_mco2 = 8._rb*specparm_mco2\n         jmco2 = 1 + int(specmult_mco2)\n         fmco2 = mod(specmult_mco2,1.0_rb)\n\n!  In atmospheres where the amount of CO2 is too great to be considered\n!  a minor species, adjust the column amount of CO2 by an empirical factor \n!  to obtain the proper contribution.\n         chi_co2 = colco2(lay)/(coldry(lay))\n         ratco2 = 1.e20_rb*chi_co2/3.55e-4_rb\n         if (ratco2 .gt. 3.0_rb) then\n            adjfac = 2.0_rb+(ratco2-2.0_rb)**0.68_rb\n            adjcolco2 = adjfac*3.55e-4*coldry(lay)*1.e-20_rb\n         else\n            adjcolco2 = colco2(lay)\n         endif\n\n         speccomb_mco = colh2o(lay) + refrat_m_a3*coln2o(lay)\n         specparm_mco = colh2o(lay)/speccomb_mco\n         if (specparm_mco .ge. oneminus) specparm_mco = oneminus\n         specmult_mco = 8._rb*specparm_mco\n         jmco = 1 + int(specmult_mco)\n         fmco = mod(specmult_mco,1.0_rb)\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*coln2o(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(13) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(13) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng13\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor = forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            co2m1 = ka_mco2(jmco2,indm,ig) + fmco2 * &\n                 (ka_mco2(jmco2+1,indm,ig) - ka_mco2(jmco2,indm,ig))\n            co2m2 = ka_mco2(jmco2,indm+1,ig) + fmco2 * &\n                 (ka_mco2(jmco2+1,indm+1,ig) - ka_mco2(jmco2,indm+1,ig))\n            absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)\n            com1 = ka_mco(jmco,indm,ig) + fmco * &\n                 (ka_mco(jmco+1,indm,ig) - ka_mco(jmco,indm,ig))\n            com2 = ka_mco(jmco,indm+1,ig) + fmco * &\n                 (ka_mco(jmco+1,indm+1,ig) - ka_mco(jmco,indm+1,ig))\n            absco = com1 + minorfrac(lay) * (com2 - com1)\n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs12+ig) = tau_major + tau_major1 &\n                 + tauself + taufor &\n                 + adjcolco2*absco2 &\n                 + colco(lay)*absco\n            fracs(lay,ngs12+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         indm = indminor(lay)\n         do ig = 1, ng13\n            abso3 = kb_mo3(indm,ig) + minorfrac(lay) * &\n                 (kb_mo3(indm+1,ig) - kb_mo3(indm,ig))\n            taug(lay,ngs12+ig) = colo3(lay)*abso3\n            fracs(lay,ngs12+ig) =  fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb13\n\n!----------------------------------------------------------------------------\n      subroutine taugb14\n!----------------------------------------------------------------------------\n!\n!     band 14:  2250-2380 cm-1 (low - co2; high - co2)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng14, ngs13\n      use rrlw_kg14, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig\n      real(kind=rb) :: tauself, taufor\n\n\n! Compute the optical depth by interpolating in ln(pressure) and \n! temperature.  Below laytrop, the water vapor self-continuum \n! and foreign continuum is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(14) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(14) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         do ig = 1, ng14\n            tauself = selffac(lay) * (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            taug(lay,ngs13+ig) = colco2(lay) * &\n                 (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) &\n                 + tauself + taufor\n            fracs(lay,ngs13+ig) = fracrefa(ig)\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(14) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(14) + 1\n         do ig = 1, ng14\n            taug(lay,ngs13+ig) = colco2(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig))\n            fracs(lay,ngs13+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb14\n\n!----------------------------------------------------------------------------\n      subroutine taugb15\n!----------------------------------------------------------------------------\n!\n!     band 15:  2380-2600 cm-1 (low - n2o,co2; low minor - n2)\n!                              (high - nothing)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng15, ngs14\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg15, only : fracrefa, absa, ka, &\n                            ka_mn2, selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, indm, ig\n      integer(kind=im) :: js, js1, jmn2, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_mn2, specparm_mn2, specmult_mn2, fmn2\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: scalen2, tauself, taufor, n2m1, n2m2, taun2 \n      real(kind=rb) :: refrat_planck_a, refrat_m_a\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Minor gas mapping level : \n!     Lower - Nitrogen Continuum, P = 1053., T = 294.\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower atmosphere.\n! P = 1053. mb (Level 1)\n      refrat_planck_a = chi_mls(4,1)/chi_mls(2,1)\n\n! P = 1053.\n      refrat_m_a = chi_mls(4,1)/chi_mls(2,1)\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below laytrop, the water\n! vapor self-continuum and foreign continuum is interpolated \n! (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = coln2o(lay) + rat_n2oco2(lay)*colco2(lay)\n         specparm = coln2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = coln2o(lay) + rat_n2oco2_1(lay)*colco2(lay)\n         specparm1 = coln2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_mn2 = coln2o(lay) + refrat_m_a*colco2(lay)\n         specparm_mn2 = coln2o(lay)/speccomb_mn2\n         if (specparm_mn2 .ge. oneminus) specparm_mn2 = oneminus\n         specmult_mn2 = 8._rb*specparm_mn2\n         jmn2 = 1 + int(specmult_mn2)\n         fmn2 = mod(specmult_mn2,1.0_rb)\n\n         speccomb_planck = coln2o(lay)+refrat_planck_a*colco2(lay)\n         specparm_planck = coln2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(15) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(15) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n         indm = indminor(lay)\n         \n         scalen2 = colbrd(lay)*scaleminor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng15\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n            n2m1 = ka_mn2(jmn2,indm,ig) + fmn2 * &\n                 (ka_mn2(jmn2+1,indm,ig) - ka_mn2(jmn2,indm,ig))\n            n2m2 = ka_mn2(jmn2,indm+1,ig) + fmn2 * &\n                 (ka_mn2(jmn2+1,indm+1,ig) - ka_mn2(jmn2,indm+1,ig))\n            taun2 = scalen2 * (n2m1 + minorfrac(lay) * (n2m2 - n2m1))\n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif \n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs14+ig) = tau_major + tau_major1 &\n                 + tauself + taufor &\n                 + taun2\n            fracs(lay,ngs14+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng15\n            taug(lay,ngs14+ig) = 0.0_rb\n            fracs(lay,ngs14+ig) = 0.0_rb\n         enddo\n      enddo\n\n      end subroutine taugb15\n\n!----------------------------------------------------------------------------\n      subroutine taugb16\n!----------------------------------------------------------------------------\n!\n!     band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrtm, only : ng16, ngs15\n      use rrlw_ref, only : chi_mls\n      use rrlw_kg16, only : fracrefa, fracrefb, absa, ka, absb, kb, &\n                            selfref, forref\n\n! ------- Declarations -------\n\n! Local \n      integer(kind=im) :: lay, ind0, ind1, inds, indf, ig\n      integer(kind=im) :: js, js1, jpl\n      real(kind=rb) :: speccomb, specparm, specmult, fs\n      real(kind=rb) :: speccomb1, specparm1, specmult1, fs1\n      real(kind=rb) :: speccomb_planck, specparm_planck, specmult_planck, fpl\n      real(kind=rb) :: p, p4, fk0, fk1, fk2\n      real(kind=rb) :: fac000, fac100, fac200, fac010, fac110, fac210\n      real(kind=rb) :: fac001, fac101, fac201, fac011, fac111, fac211\n      real(kind=rb) :: tauself, taufor\n      real(kind=rb) :: refrat_planck_a\n      real(kind=rb) :: tau_major, tau_major1\n\n\n! Calculate reference ratio to be used in calculation of Planck\n! fraction in lower atmosphere.\n\n! P = 387. mb (Level 6)\n      refrat_planck_a = chi_mls(1,6)/chi_mls(6,6)\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature,and appropriate species.  Below laytrop, the water\n! vapor self-continuum and foreign continuum is interpolated \n! (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n\n         speccomb = colh2o(lay) + rat_h2och4(lay)*colch4(lay)\n         specparm = colh2o(lay)/speccomb\n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult,1.0_rb)\n\n         speccomb1 = colh2o(lay) + rat_h2och4_1(lay)*colch4(lay)\n         specparm1 = colh2o(lay)/speccomb1\n         if (specparm1 .ge. oneminus) specparm1 = oneminus\n         specmult1 = 8._rb*(specparm1)\n         js1 = 1 + int(specmult1)\n         fs1 = mod(specmult1,1.0_rb)\n\n         speccomb_planck = colh2o(lay)+refrat_planck_a*colch4(lay)\n         specparm_planck = colh2o(lay)/speccomb_planck\n         if (specparm_planck .ge. oneminus) specparm_planck=oneminus\n         specmult_planck = 8._rb*specparm_planck\n         jpl= 1 + int(specmult_planck)\n         fpl = mod(specmult_planck,1.0_rb)\n\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(16) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(16) + js1\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         if (specparm .lt. 0.125_rb) then\n            p = fs - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else if (specparm .gt. 0.875_rb) then\n            p = -fs \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac000 = fk0*fac00(lay)\n            fac100 = fk1*fac00(lay)\n            fac200 = fk2*fac00(lay)\n            fac010 = fk0*fac10(lay)\n            fac110 = fk1*fac10(lay)\n            fac210 = fk2*fac10(lay)\n         else\n            fac000 = (1._rb - fs) * fac00(lay)\n            fac010 = (1._rb - fs) * fac10(lay)\n            fac100 = fs * fac00(lay)\n            fac110 = fs * fac10(lay)\n         endif\n\n         if (specparm1 .lt. 0.125_rb) then\n            p = fs1 - 1\n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else if (specparm1 .gt. 0.875_rb) then\n            p = -fs1 \n            p4 = p**4\n            fk0 = p4\n            fk1 = 1 - p - 2.0_rb*p4\n            fk2 = p + p4\n            fac001 = fk0*fac01(lay)\n            fac101 = fk1*fac01(lay)\n            fac201 = fk2*fac01(lay)\n            fac011 = fk0*fac11(lay)\n            fac111 = fk1*fac11(lay)\n            fac211 = fk2*fac11(lay)\n         else\n            fac001 = (1._rb - fs1) * fac01(lay)\n            fac011 = (1._rb - fs1) * fac11(lay)\n            fac101 = fs1 * fac01(lay)\n            fac111 = fs1 * fac11(lay)\n         endif\n\n         do ig = 1, ng16\n            tauself = selffac(lay)* (selfref(inds,ig) + selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig)))\n            taufor =  forfac(lay) * (forref(indf,ig) + forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n\n            if (specparm .lt. 0.125_rb) then\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac200 * absa(ind0+2,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig) + &\n                    fac210 * absa(ind0+11,ig))\n            else if (specparm .gt. 0.875_rb) then\n               tau_major = speccomb * &\n                    (fac200 * absa(ind0-1,ig) + &\n                    fac100 * absa(ind0,ig) + &\n                    fac000 * absa(ind0+1,ig) + &\n                    fac210 * absa(ind0+8,ig) + &\n                    fac110 * absa(ind0+9,ig) + &\n                    fac010 * absa(ind0+10,ig))\n            else\n               tau_major = speccomb * &\n                    (fac000 * absa(ind0,ig) + &\n                    fac100 * absa(ind0+1,ig) + &\n                    fac010 * absa(ind0+9,ig) + &\n                    fac110 * absa(ind0+10,ig))\n            endif\n\n            if (specparm1 .lt. 0.125_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac201 * absa(ind1+2,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig) + &\n                    fac211 * absa(ind1+11,ig))\n            else if (specparm1 .gt. 0.875_rb) then\n               tau_major1 = speccomb1 * &\n                    (fac201 * absa(ind1-1,ig) + &\n                    fac101 * absa(ind1,ig) + &\n                    fac001 * absa(ind1+1,ig) + &\n                    fac211 * absa(ind1+8,ig) + &\n                    fac111 * absa(ind1+9,ig) + &\n                    fac011 * absa(ind1+10,ig))\n            else\n               tau_major1 = speccomb1 * &\n                    (fac001 * absa(ind1,ig) + &\n                    fac101 * absa(ind1+1,ig) + &\n                    fac011 * absa(ind1+9,ig) + &\n                    fac111 * absa(ind1+10,ig))\n            endif\n\n            taug(lay,ngs15+ig) = tau_major + tau_major1 &\n                 + tauself + taufor\n            fracs(lay,ngs15+ig) = fracrefa(ig,jpl) + fpl * &\n                 (fracrefa(ig,jpl+1)-fracrefa(ig,jpl))\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(16) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(16) + 1\n         do ig = 1, ng16\n            taug(lay,ngs15+ig) = colch4(lay) * &\n                 (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig))\n            fracs(lay,ngs15+ig) = fracrefb(ig)\n         enddo\n      enddo\n\n      end subroutine taugb16\n\n      end subroutine taumol\n\n      end module rrtmg_lw_taumol\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_cldprmc.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_cldprmc.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.7 $\n!     created:   $Date: 2009/02/09 19:45:54 $\n\n      module rrtmg_sw_cldprmc\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : ngptsw, jpband, jpb1, jpb2\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n      use rrsw_wvn, only : wavenum1, wavenum2, ngb\n      use rrsw_vsn, only : hvrclc, hnamclc\n\n      implicit none\n\n      contains\n\n! ----------------------------------------------------------------------------\n      subroutine cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &\n                            ciwpmc, clwpmc, reicmc, relqmc, &\n                            taormc, taucmc, ssacmc, asmcmc, fsfcmc)\n! ----------------------------------------------------------------------------\n\n! Purpose: Compute the cloud optical properties for each cloudy layer\n! and g-point interval for use by the McICA method.  \n! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;\n! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented. \n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: inflag          ! see definitions\n      integer(kind=im), intent(in) :: iceflag         ! see definitions\n      integer(kind=im), intent(in) :: liqflag         ! see definitions\n\n      real(kind=rb), intent(in) :: cldfmc(:,:)        ! cloud fraction [mcica]\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(in) :: ciwpmc(:,:)        ! cloud ice water path [mcica]\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(in) :: clwpmc(:,:)        ! cloud liquid water path [mcica]\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(in) :: relqmc(:)          ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: reicmc(:)          ! cloud ice particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of reicmc depends on setting of iceflag:\n                                                      ! iceflag = 0: (inactive)\n                                                      !              \n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: fsfcmc(:,:)        ! cloud forward scattering fraction\n                                                      !    Dimensions: (ngptsw,nlayers)\n\n! ------- Output -------\n\n      real(kind=rb), intent(inout) :: taucmc(:,:)     ! cloud optical depth (delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(inout) :: ssacmc(:,:)     ! single scattering albedo (delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(inout) :: asmcmc(:,:)     ! asymmetry parameter (delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n      real(kind=rb), intent(out) :: taormc(:,:)       ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (ngptsw,nlayers)\n\n! ------- Local -------\n\n!      integer(kind=im) :: ncbands\n      integer(kind=im) :: ib, lay, istr, index, icx, ig\n\n      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n      real(kind=rb) :: cwp                            ! total cloud water path\n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor\n      real(kind=rb) :: fint\n\n      real(kind=rb) :: taucldorig_a, taucloud_a, ssacloud_a, ffp, ffp1, ffpssa\n      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq\n\n      real(kind=rb) :: fdelta(ngptsw)\n      real(kind=rb) :: extcoice(ngptsw), gice(ngptsw)\n      real(kind=rb) :: ssacoice(ngptsw), forwice(ngptsw)\n      real(kind=rb) :: extcoliq(ngptsw), gliq(ngptsw)\n      real(kind=rb) :: ssacoliq(ngptsw), forwliq(ngptsw)\n\n! Initialize\n\n      hvrclc = '$Revision: 1.7 $'\n\n! Some of these initializations are done elsewhere\n      do lay = 1, nlayers\n         do ig = 1, ngptsw\n            taormc(ig,lay) = taucmc(ig,lay)\n!            taucmc(ig,lay) = 0.0_rb\n!            ssacmc(ig,lay) = 1.0_rb\n!            asmcmc(ig,lay) = 0.0_rb\n         enddo\n      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n\n! Main g-point interval loop\n         do ig = 1, ngptsw \n            cwp = ciwpmc(ig,lay) + clwpmc(ig,lay)\n            if (cldfmc(ig,lay) .ge. cldmin .and. &\n               (cwp .ge. cldmin .or. taucmc(ig,lay) .ge. cldmin)) then\n\n! (inflag=0): Cloud optical properties input directly\n               if (inflag .eq. 0) then\n! Cloud optical properties already defined in taucmc, ssacmc, asmcmc are unscaled;\n! Apply delta-M scaling here (using Henyey-Greenstein approximation)\n                  taucldorig_a = taucmc(ig,lay)\n                  ffp = fsfcmc(ig,lay)\n                  ffp1 = 1.0_rb - ffp\n                  ffpssa = 1.0_rb - ffp * ssacmc(ig,lay)\n                  ssacloud_a = ffp1 * ssacmc(ig,lay) / ffpssa\n                  taucloud_a = ffpssa * taucldorig_a\n\n                  taormc(ig,lay) = taucldorig_a\n                  ssacmc(ig,lay) = ssacloud_a\n                  taucmc(ig,lay) = taucloud_a\n                  asmcmc(ig,lay) = (asmcmc(ig,lay) - ffp) / (ffp1)\n\n               elseif (inflag .eq. 1) then \n                  stop 'INFLAG = 1 OPTION NOT AVAILABLE WITH MCICA'\n\n! (inflag=2): Separate treatement of ice clouds and water clouds.\n               elseif (inflag .eq. 2) then       \n                  radice = reicmc(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n                  if (ciwpmc(ig,lay) .eq. 0.0_rb) then\n                     extcoice(ig) = 0.0_rb\n                     ssacoice(ig) = 0.0_rb\n                     gice(ig)     = 0.0_rb\n                     forwice(ig)  = 0.0_rb\n\n! (iceflag = 1): \n! Note: This option uses Ebert and Curry approach for all particle sizes similar to\n! CAM3 implementation, though this is somewhat unjustified for large ice particles\n                  elseif (iceflag .eq. 1) then\n                     ib = ngb(ig)\n                     if (wavenum2(ib) .gt. 1.43e04_rb) then\n                        icx = 1\n                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then\n                        icx = 2\n                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then\n                        icx = 3\n                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then\n                        icx = 4\n                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then\n                        icx = 5\n                     endif\n                     extcoice(ig) = (abari(icx) + bbari(icx)/radice)\n                     ssacoice(ig) = 1._rb - cbari(icx) - dbari(icx) * radice\n                     gice(ig) = ebari(icx) + fbari(icx) * radice\n! Check to ensure upper limit of gice is within physical limits for large particles\n                     if (gice(ig).ge.1._rb) gice(ig) = 1._rb - eps\n                     forwice(ig) = gice(ig)*gice(ig)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n                  elseif (iceflag .eq. 2) then\n                     if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 43) index = 42\n                     fint = factor - float(index)\n                     ib = ngb(ig)\n                     extcoice(ig) = extice2(index,ib) + fint * &\n                                   (extice2(index+1,ib) -  extice2(index,ib))\n                     ssacoice(ig) = ssaice2(index,ib) + fint * &\n                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))\n                     gice(ig) = asyice2(index,ib) + fint * &\n                                   (asyice2(index+1,ib) -  asyice2(index,ib))\n                     forwice(ig) = gice(ig)*gice(ig)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n\n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n                  elseif (iceflag .eq. 3) then\n                     if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                     factor = (radice - 2._rb)/3._rb\n                     index = int(factor)\n                     if (index .eq. 46) index = 45\n                     fint = factor - float(index)\n                     ib = ngb(ig)\n                     extcoice(ig) = extice3(index,ib) + fint * &\n                                   (extice3(index+1,ib) - extice3(index,ib))\n                     ssacoice(ig) = ssaice3(index,ib) + fint * &\n                                   (ssaice3(index+1,ib) - ssaice3(index,ib))\n                     gice(ig) = asyice3(index,ib) + fint * &\n                               (asyice3(index+1,ib) - asyice3(index,ib))\n                     fdelta(ig) = fdlice3(index,ib) + fint * &\n                                 (fdlice3(index+1,ib) - fdlice3(index,ib))\n                     if (fdelta(ig) .lt. 0.0_rb) stop 'FDELTA LESS THAN 0.0'\n                     if (fdelta(ig) .gt. 1.0_rb) stop 'FDELTA GT THAN 1.0'\n                     forwice(ig) = fdelta(ig) + 0.5_rb / ssacoice(ig)\n! See Fu 1996 p. 2067 \n                     if (forwice(ig) .gt. gice(ig)) forwice(ig) = gice(ig)\n! Check to ensure all calculated quantities are within physical limits.  \n                     if (extcoice(ig) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ig) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ig) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ig) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ig) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n\n                  endif\n\n! Calculation of absorption coefficients due to water clouds.\n                  if (clwpmc(ig,lay) .eq. 0.0_rb) then\n                     extcoliq(ig) = 0.0_rb\n                     ssacoliq(ig) = 0.0_rb\n                     gliq(ig) = 0.0_rb\n                     forwliq(ig) = 0.0_rb\n\n                  elseif (liqflag .eq. 1) then\n                     radliq = relqmc(lay)\n                     if (radliq .lt. 1.5_rb .or. radliq .gt. 60._rb) stop &\n                        'liquid effective radius out of bounds'\n                     index = int(radliq - 1.5_rb)\n                     if (index .eq. 0) index = 1\n                     if (index .eq. 58) index = 57\n                     fint = radliq - 1.5_rb - float(index)\n                     ib = ngb(ig)\n                     extcoliq(ig) = extliq1(index,ib) + fint * &\n                                   (extliq1(index+1,ib) - extliq1(index,ib))\n                     ssacoliq(ig) = ssaliq1(index,ib) + fint * &\n                                   (ssaliq1(index+1,ib) - ssaliq1(index,ib))\n                     if (fint .lt. 0._rb .and. ssacoliq(ig) .gt. 1._rb) &\n                                    ssacoliq(ig) = ssaliq1(index,ib)\n                     gliq(ig) = asyliq1(index,ib) + fint * &\n                               (asyliq1(index+1,ib) - asyliq1(index,ib))\n                     forwliq(ig) = gliq(ig)*gliq(ig)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoliq(ig) .lt. 0.0_rb) stop 'LIQUID EXTINCTION LESS THAN 0.0'\n                     if (ssacoliq(ig) .gt. 1.0_rb) stop 'LIQUID SSA GRTR THAN 1.0'\n                     if (ssacoliq(ig) .lt. 0.0_rb) stop 'LIQUID SSA LESS THAN 0.0'\n                     if (gliq(ig) .gt. 1.0_rb) stop 'LIQUID ASYM GRTR THAN 1.0'\n                     if (gliq(ig) .lt. 0.0_rb) stop 'LIQUID ASYM LESS THAN 0.0'\n                  endif\n   \n                  tauliqorig = clwpmc(ig,lay) * extcoliq(ig)\n                  tauiceorig = ciwpmc(ig,lay) * extcoice(ig)\n                  taormc(ig,lay) = tauliqorig + tauiceorig\n\n                  ssaliq = ssacoliq(ig) * (1._rb - forwliq(ig)) / &\n                          (1._rb - forwliq(ig) * ssacoliq(ig))\n                  tauliq = (1._rb - forwliq(ig) * ssacoliq(ig)) * tauliqorig\n                  ssaice = ssacoice(ig) * (1._rb - forwice(ig)) / &\n                          (1._rb - forwice(ig) * ssacoice(ig))\n                  tauice = (1._rb - forwice(ig) * ssacoice(ig)) * tauiceorig\n\n                  scatliq = ssaliq * tauliq\n                  scatice = ssaice * tauice\n                  taucmc(ig,lay) = tauliq + tauice\n\n! Ensure non-zero taucmc and scatice\n                  if(taucmc(ig,lay).eq.0.) taucmc(ig,lay) = cldmin\n                  if(scatice.eq.0.) scatice = cldmin\n\n                  ssacmc(ig,lay) = (scatliq + scatice) / taucmc(ig,lay)\n\n                  if (iceflag .eq. 3) then\n! In accordance with the 1996 Fu paper, equation A.3, \n! the moments for ice were calculated depending on whether using spheres\n! or hexagonal ice crystals.\n! Set asymetry parameter to first moment (istr=1)\n                     istr = 1\n                     asmcmc(ig,lay) = (1.0_rb/(scatliq+scatice))* &\n                        (scatliq*(gliq(ig)**istr - forwliq(ig)) / &\n                        (1.0_rb - forwliq(ig)) + scatice * ((gice(ig)-forwice(ig))/ &\n                        (1.0_rb - forwice(ig)))**istr)\n\n                  else \n! This code is the standard method for delta-m scaling. \n! Set asymetry parameter to first moment (istr=1)\n                     istr = 1\n                     asmcmc(ig,lay) = (scatliq *  &\n                        (gliq(ig)**istr - forwliq(ig)) / &\n                        (1.0_rb - forwliq(ig)) + scatice * (gice(ig)**istr - forwice(ig)) / &\n                        (1.0_rb - forwice(ig)))/(scatliq + scatice)\n                  endif \n\n               endif\n\n            endif\n\n! End g-point interval loop\n         enddo\n\n! End layer loop\n      enddo\n\n      end subroutine cldprmc_sw\n\n      end module rrtmg_sw_cldprmc\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_cldprop.F90.safe",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_cldprop.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.7 $\n!     created:   $Date: 2009/02/09 19:45:55 $\n\n      module rrtmg_sw_cldprop\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, jpband, jpb1, jpb2\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n      use rrsw_wvn, only : wavenum1, wavenum2\n      use rrsw_vsn, only : hvrcld, hnamcld\n\n      implicit none\n\n      contains\n\n! ----------------------------------------------------------------------------\n      subroutine cldprop_sw(nlayers, inflag, iceflag, liqflag, cldfrac, &\n                            tauc, ssac, asmc, fsfc, ciwp, clwp, rei, rel, &\n                            taucldorig, taucloud, ssacloud, asmcloud)\n! ----------------------------------------------------------------------------\n\n! Purpose: Compute the cloud optical properties for each cloudy layer.\n! Note: Only inflag = 0 and inflag=2/liqflag=1/iceflag=1,2,3 are available;\n! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented.\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n      integer(kind=im), intent(in) :: inflag          ! see definitions\n      integer(kind=im), intent(in) :: iceflag         ! see definitions\n      integer(kind=im), intent(in) :: liqflag         ! see definitions\n\n      real(kind=rb), intent(in) :: cldfrac(:)         ! cloud fraction\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ciwp(:)            ! cloud ice water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: clwp(:)            ! cloud liquid water path\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: rei(:)             ! cloud ice particle effective size (microns)\n                                                      !    Dimensions: (nlayers)\n                                                      ! specific definition of rei depends on setting of iceflag:\n                                                      ! iceflag = 0: (inactive)\n                                                      !              \n                                                      ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !              r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !              r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflag = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !              dge range is limited to 5.0 to 140.0 microns\n                                                      !              [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: rel(:)             ! cloud liquid particle effective radius (microns)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tauc(:,:)          ! cloud optical depth\n                                                      !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb), intent(in) :: ssac(:,:)          ! single scattering albedo\n                                                      !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb), intent(in) :: asmc(:,:)          ! asymmetry parameter\n                                                      !    Dimensions: (nbndsw,nlayers)\n      real(kind=rb), intent(in) :: fsfc(:,:)          ! forward scattering fraction\n                                                      !    Dimensions: (nbndsw,nlayers)\n\n! ------- Output -------\n\n      real(kind=rb), intent(out) :: taucloud(:,:)     ! cloud optical depth (delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: taucldorig(:,:)   ! cloud optical depth (non-delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: ssacloud(:,:)     ! single scattering albedo (delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n      real(kind=rb), intent(out) :: asmcloud(:,:)     ! asymmetry parameter (delta scaled)\n                                                      !    Dimensions: (nlayers,jpband)\n\n! ------- Local -------\n\n!      integer(kind=im) :: ncbands\n      integer(kind=im) :: ib, ib1, ib2, lay, istr, index, icx\n\n      real(kind=rb), parameter :: eps = 1.e-06_rb     ! epsilon\n      real(kind=rb), parameter :: cldmin = 1.e-20_rb  ! minimum value for cloud quantities\n      real(kind=rb) :: cwp                            ! total cloud water path\n      real(kind=rb) :: radliq                         ! cloud liquid droplet radius (microns)\n      real(kind=rb) :: radice                         ! cloud ice effective size (microns)\n      real(kind=rb) :: factor\n      real(kind=rb) :: fint\n      real(kind=rb) :: tauctot(nlayers)               ! band integrated cloud optical depth\n\n      real(kind=rb) :: taucldorig_a, ssacloud_a, taucloud_a, ffp, ffp1, ffpssa\n      real(kind=rb) :: tauiceorig, scatice, ssaice, tauice, tauliqorig, scatliq, ssaliq, tauliq\n\n      real(kind=rb) :: fdelta(jpb1:jpb2)\n      real(kind=rb) :: extcoice(jpb1:jpb2), gice(jpb1:jpb2)\n      real(kind=rb) :: ssacoice(jpb1:jpb2), forwice(jpb1:jpb2)\n      real(kind=rb) :: extcoliq(jpb1:jpb2), gliq(jpb1:jpb2)\n      real(kind=rb) :: ssacoliq(jpb1:jpb2), forwliq(jpb1:jpb2)\n\n! Initialize\n\n      hvrcld = '$Revision: 1.7 $'\n\n!      ncbands = 29\n      ib1 = jpb1\n      ib2 = jpb2\n      tauctot(:) = 0._rb\n\n      do lay = 1, nlayers\n         do ib = ib1 , ib2\n            taucldorig(lay,ib) = tauc(ib-15,lay)\n            taucloud(lay,ib) = 0.0_rb\n            ssacloud(lay,ib) = 1.0_rb\n            asmcloud(lay,ib) = 0.0_rb\n            tauctot(lay) = tauctot(lay) + tauc(ib-15,lay)\n         enddo\n      enddo\n\n! Main layer loop\n      do lay = 1, nlayers\n\n         cwp = ciwp(lay) + clwp(lay)\n         if (cldfrac(lay) .ge. cldmin .and. &\n            (cwp .ge. cldmin .or. tauctot(lay) .ge. cldmin)) then\n\n! (inflag=0): Cloud optical properties input directly\n! Cloud optical properties already defined in tauc, ssac, asmc are unscaled;\n! Apply delta-M scaling here\n            if (inflag .eq. 0) then\n\n               do ib = ib1 , ib2\n                  taucldorig_a = tauc(ib-15,lay)\n                  ffp = fsfc(ib-15,lay)\n                  ffp1 = 1.0_rb - ffp\n                  ffpssa = 1.0_rb - ffp * ssac(ib-15,lay)\n                  ssacloud_a = ffp1 * ssac(ib-15,lay) / ffpssa\n                  taucloud_a = ffpssa * taucldorig_a\n\n                  taucldorig(lay,ib) = taucldorig_a\n                  ssacloud(lay,ib) = ssacloud_a\n                  taucloud(lay,ib) = taucloud_a\n                  asmcloud(lay,ib) = (asmc(ib-15,lay) - ffp) / (ffp1)\n               enddo\n\n! (inflag=2): Separate treatement of ice clouds and water clouds.\n            elseif (inflag .eq. 2) then       \n               radice = rei(lay)\n\n! Calculation of absorption coefficients due to ice clouds.\n               if (ciwp(lay) .eq. 0.0_rb) then\n                  do ib = ib1 , ib2\n                     extcoice(ib) = 0.0_rb\n                     ssacoice(ib) = 0.0_rb\n                     gice(ib)     = 0.0_rb\n                     forwice(ib)  = 0.0_rb\n                  enddo\n\n! (iceflag = 1): \n! Note: This option uses Ebert and Curry approach for all particle sizes similar to\n! CAM3 implementation, though this is somewhat ineffective for large ice particles\n               elseif (iceflag .eq. 1) then\n                  do ib = ib1, ib2\n                     if (wavenum2(ib) .gt. 1.43e04_rb) then\n                        icx = 1\n                     elseif (wavenum2(ib) .gt. 7.7e03_rb) then\n                        icx = 2\n                     elseif (wavenum2(ib) .gt. 5.3e03_rb) then\n                        icx = 3\n                     elseif (wavenum2(ib) .gt. 4.0e03_rb) then\n                        icx = 4\n                     elseif (wavenum2(ib) .ge. 2.5e03_rb) then\n                        icx = 5\n                     endif\n                     extcoice(ib) = abari(icx) + bbari(icx)/radice\n                     ssacoice(ib) = 1._rb - cbari(icx) - dbari(icx) * radice\n                     gice(ib) = ebari(icx) + fbari(icx) * radice\n\n! Check to ensure upper limit of gice is within physical limits for large particles\n                     if (gice(ib) .ge. 1.0_rb) gice(ib) = 1.0_rb - eps\n                     forwice(ib) = gice(ib)*gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n! For iceflag=2 option, ice particle effective radius is limited to 5.0 to 131.0 microns\n\n               elseif (iceflag .eq. 2) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 131.0_rb) stop 'ICE RADIUS OUT OF BOUNDS'\n                  factor = (radice - 2._rb)/3._rb\n                  index = int(factor)\n                  if (index .eq. 43) index = 42\n                  fint = factor - float(index)\n                  do ib = ib1, ib2\n                     extcoice(ib) = extice2(index,ib) + fint * &\n                                   (extice2(index+1,ib) -  extice2(index,ib))\n                     ssacoice(ib) = ssaice2(index,ib) + fint * &\n                                   (ssaice2(index+1,ib) -  ssaice2(index,ib))\n                     gice(ib) = asyice2(index,ib) + fint * &\n                                   (asyice2(index+1,ib) -  asyice2(index,ib))\n                     forwice(ib) = gice(ib)*gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n! For iceflag=3 option, ice particle generalized effective size is limited to 5.0 to 140.0 microns\n\n               elseif (iceflag .eq. 3) then\n                  if (radice .lt. 5.0_rb .or. radice .gt. 140.0_rb) stop 'ICE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS'\n                  factor = (radice - 2._rb)/3._rb\n                  index = int(factor)\n                  if (index .eq. 46) index = 45\n                  fint = factor - float(index)\n                  do ib = ib1 , ib2\n                     extcoice(ib) = extice3(index,ib) + fint * &\n                                   (extice3(index+1,ib) - extice3(index,ib))\n                     ssacoice(ib) = ssaice3(index,ib) + fint * &\n                                   (ssaice3(index+1,ib) - ssaice3(index,ib))\n                     gice(ib) = asyice3(index,ib) + fint * &\n                               (asyice3(index+1,ib) - asyice3(index,ib))\n                     fdelta(ib) = fdlice3(index,ib) + fint * &\n                                 (fdlice3(index+1,ib) - fdlice3(index,ib))\n                     if (fdelta(ib) .lt. 0.0_rb) stop 'FDELTA LESS THAN 0.0'\n                     if (fdelta(ib) .gt. 1.0_rb) stop 'FDELTA GT THAN 1.0'                     \n                     forwice(ib) = fdelta(ib) + 0.5_rb / ssacoice(ib)\n! See Fu 1996 p. 2067 \n                     if (forwice(ib) .gt. gice(ib)) forwice(ib) = gice(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                     if (extcoice(ib) .lt. 0.0_rb) stop 'ICE EXTINCTION LESS THAN 0.0'\n                     if (ssacoice(ib) .gt. 1.0_rb) stop 'ICE SSA GRTR THAN 1.0'\n                     if (ssacoice(ib) .lt. 0.0_rb) stop 'ICE SSA LESS THAN 0.0'\n                     if (gice(ib) .gt. 1.0_rb) stop 'ICE ASYM GRTR THAN 1.0'\n                     if (gice(ib) .lt. 0.0_rb) stop 'ICE ASYM LESS THAN 0.0'\n                  enddo\n\n               endif\n                  \n! Calculation of absorption coefficients due to water clouds.\n                if (clwp(lay) .eq. 0.0_rb) then\n                   do ib = ib1 , ib2\n                      extcoliq(ib) = 0.0_rb\n                      ssacoliq(ib) = 0.0_rb\n                      gliq(ib) = 0.0_rb\n                      forwliq(ib) = 0.0_rb\n                   enddo\n\n                elseif (liqflag .eq. 1) then\n                   radliq = rel(lay)\n                   if (radliq .lt. 1.5_rb .or. radliq .gt. 60._rb) stop &\n                      'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'\n                   index = int(radliq - 1.5_rb)\n                   if (index .eq. 0) index = 1\n                   if (index .eq. 58) index = 57\n                   fint = radliq - 1.5_rb - float(index)\n\n                   do ib = ib1 , ib2\n                      extcoliq(ib) = extliq1(index,ib) + fint * &\n                                    (extliq1(index+1,ib) - extliq1(index,ib))\n                      ssacoliq(ib) = ssaliq1(index,ib) + fint * &\n                                    (ssaliq1(index+1,ib) - ssaliq1(index,ib))\n                      if (fint .lt. 0._rb .and. ssacoliq(ib) .gt. 1._rb) &\n                                     ssacoliq(ib) = ssaliq1(index,ib)\n                      gliq(ib) = asyliq1(index,ib) + fint * &\n                                (asyliq1(index+1,ib) - asyliq1(index,ib))\n                      forwliq(ib) = gliq(ib)*gliq(ib)\n! Check to ensure all calculated quantities are within physical limits.\n                      if (extcoliq(ib) .lt. 0.0_rb) stop 'LIQUID EXTINCTION LESS THAN 0.0'\n                      if (ssacoliq(ib) .gt. 1.0_rb) stop 'LIQUID SSA GRTR THAN 1.0'\n                      if (ssacoliq(ib) .lt. 0.0_rb) stop 'LIQUID SSA LESS THAN 0.0'\n                      if (gliq(ib) .gt. 1.0_rb) stop 'LIQUID ASYM GRTR THAN 1.0'\n                      if (gliq(ib) .lt. 0.0_rb) stop 'LIQUID ASYM LESS THAN 0.0'\n                   enddo\n                endif\n\n                do ib = ib1 , ib2\n                   tauliqorig = clwp(lay) * extcoliq(ib)\n                   tauiceorig = ciwp(lay) * extcoice(ib)\n                   taucldorig(lay,ib) = tauliqorig + tauiceorig\n\n                   ssaliq = ssacoliq(ib) * (1.0_rb - forwliq(ib)) / &\n                           (1.0_rb - forwliq(ib) * ssacoliq(ib))\n                   tauliq = (1.0_rb - forwliq(ib) * ssacoliq(ib)) * tauliqorig\n                   ssaice = ssacoice(ib) * (1.0_rb - forwice(ib)) / &\n                           (1.0_rb - forwice(ib) * ssacoice(ib))\n                   tauice = (1.0_rb - forwice(ib) * ssacoice(ib)) * tauiceorig\n\n                   scatliq = ssaliq * tauliq\n                   scatice = ssaice * tauice\n\n                   taucloud(lay,ib) = tauliq + tauice\n\n! Ensure non-zero taucmc and scatice\n                   if (taucloud(lay,ib).eq.0.0_rb) taucloud(lay,ib) = cldmin\n                   if (scatice.eq.0.0_rb) scatice = cldmin\n\n                   ssacloud(lay,ib) = (scatliq + scatice) / taucloud(lay,ib)\n\n                   if (iceflag .eq. 3) then\n! In accordance with the 1996 Fu paper, equation A.3, \n! the moments for ice were calculated depending on whether using spheres\n! or hexagonal ice crystals.\n                      istr = 1\n                      asmcloud(lay,ib) = (1.0_rb/(scatliq+scatice)) * &\n                         (scatliq*(gliq(ib)**istr - forwliq(ib)) / &\n                         (1.0_rb - forwliq(ib)) + scatice * ((gice(ib)-forwice(ib)) / &\n                         (1.0_rb - forwice(ib)))**istr)\n                   else \n! This code is the standard method for delta-m scaling. \n                      istr = 1\n                      asmcloud(lay,ib) = (scatliq *  &\n                         (gliq(ib)**istr - forwliq(ib)) / &\n                         (1.0_rb - forwliq(ib)) + scatice * (gice(ib)**istr - forwice(ib)) / &\n                         (1.0_rb - forwice(ib)))/(scatliq + scatice)\n                   endif \n\n                enddo\n\n            endif\n\n         endif\n\n! End layer loop\n      enddo\n\n      end subroutine cldprop_sw\n\n      end module rrtmg_sw_cldprop\n\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_init.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_init.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/02/09 19:45:55 $\n\n      module rrtmg_sw_init\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrsw_wvn\n      use rrtmg_sw_setcoef, only: swatmref\n\n      implicit none\n\n      contains\n\n! **************************************************************************\n      subroutine rrtmg_sw_ini\n! **************************************************************************\n!\n!  Original version:   Michael J. Iacono; February, 2004\n!  Revision for F90 formatting:  M. J. Iacono, July, 2006\n!\n!  This subroutine performs calculations necessary for the initialization\n!  of the shortwave model.  Lookup tables are computed for use in the SW\n!  radiative transfer, and input absorption coefficient data for each\n!  spectral band are reduced from 224 g-point intervals to 112.\n! **************************************************************************\n\n      use parrrsw, only : mg, nbndsw, ngptsw\n      use rrsw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl\n      use rrsw_vsn, only: hvrini, hnamini\n      use rrtmg_sw_k_g\n\n      real(kind=rb), parameter :: cpdair=1003.5     ! Specific heat capacity of dry air\n                                                    ! at constant pressure at 273 K\n                                                    ! (J kg-1 K-1)\n\n! ------- Local -------\n\n      integer(kind=im) :: ibnd, igc, ig, ind, ipr\n      integer(kind=im) :: igcsm, iprsm\n      integer(kind=im) :: itr\n\n      real(kind=rb) :: wtsum, wtsm(mg)\n      real(kind=rb) :: tfn\n\n      real(kind=rb), parameter :: expeps = 1.e-20_rb   ! Smallest value for exponential table\n\n! ------- Definitions -------\n!     Arrays for 10000-point look-up tables:\n!     TAU_TBL  Clear-sky optical depth \n!     EXP_TBL  Exponential lookup table for transmittance\n!     PADE     Pade approximation constant (= 0.278)\n!     BPADE    Inverse of the Pade approximation constant\n!\n\n      hvrini = '$Revision: 1.4 $'\n\n! Initialize model data\n      call swdatinit(cpdair)\n      call swcmbdat              ! g-point interval reduction data\n      call swaerpr               ! aerosol optical properties\n      call swcldpr               ! cloud optical properties\n      call swatmref              ! reference MLS profile\n      call sw_kgb16              ! molecular absorption coefficients\n      call sw_kgb17\n      call sw_kgb18\n      call sw_kgb19\n      call sw_kgb20\n      call sw_kgb21\n      call sw_kgb22\n      call sw_kgb23\n      call sw_kgb24\n      call sw_kgb25\n      call sw_kgb26\n      call sw_kgb27\n      call sw_kgb28\n      call sw_kgb29\n\n! Define exponential lookup tables for transmittance. Tau is\n! computed as a function of the tau transition function, and transmittance \n! is calculated as a function of tau.  All tables are computed at intervals \n! of 0.0001.  The inverse of the constant used in the Pade approximation to \n! the tau transition function is set to bpade.\n\n      exp_tbl(0) = 1.0_rb\n      exp_tbl(ntbl) = expeps\n      bpade = 1.0_rb / pade\n      do itr = 1, ntbl-1\n         tfn = float(itr) / float(ntbl)\n         tau_tbl = bpade * tfn / (1._rb - tfn)\n         exp_tbl(itr) = exp(-tau_tbl)\n         if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps\n      enddo\n\n! Perform g-point reduction from 16 per band (224 total points) to\n! a band dependent number (112 total points) for all absorption\n! coefficient input data and Planck fraction input data.\n! Compute relative weighting for new g-point combinations.\n\n      igcsm = 0\n      do ibnd = 1,nbndsw\n         iprsm = 0\n         if (ngc(ibnd).lt.mg) then\n            do igc = 1,ngc(ibnd)\n               igcsm = igcsm + 1\n               wtsum = 0.\n               do ipr = 1, ngn(igcsm)\n                  iprsm = iprsm + 1\n                  wtsum = wtsum + wt(iprsm)\n               enddo\n               wtsm(igc) = wtsum\n            enddo\n            do ig = 1, ng(ibnd+15)\n               ind = (ibnd-1)*mg + ig\n               rwgt(ind) = wt(ig)/wtsm(ngm(ind))\n            enddo\n         else\n            do ig = 1, ng(ibnd+15)\n               igcsm = igcsm + 1\n               ind = (ibnd-1)*mg + ig\n               rwgt(ind) = 1.0_rb\n            enddo\n         endif\n      enddo\n\n! Reduce g-points for absorption coefficient data in each LW spectral band.\n\n      call cmbgb16s\n      call cmbgb17\n      call cmbgb18\n      call cmbgb19\n      call cmbgb20\n      call cmbgb21\n      call cmbgb22\n      call cmbgb23\n      call cmbgb24\n      call cmbgb25\n      call cmbgb26\n      call cmbgb27\n      call cmbgb28\n      call cmbgb29\n\n      end subroutine rrtmg_sw_ini\n\n!***************************************************************************\n      subroutine swdatinit(cpdair)\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use rrsw_con, only: heatfac, grav, planck, boltz, &\n                          clight, avogad, alosmt, gascon, radcn1, radcn2, &\n                          sbcnst, secdy \n      use rrsw_vsn\n\n      save \n \n      real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air\n                                              ! at constant pressure at 273 K\n                                              ! (J kg-1 K-1)\n\n! Shortwave spectral band limits (wavenumbers)\n      wavenum1(:) = (/2600._rb, 3250._rb, 4000._rb, 4650._rb, 5150._rb, 6150._rb, 7700._rb, &\n                      8050._rb,12850._rb,16000._rb,22650._rb,29000._rb,38000._rb,  820._rb/)\n      wavenum2(:) = (/3250._rb, 4000._rb, 4650._rb, 5150._rb, 6150._rb, 7700._rb, 8050._rb, &\n                     12850._rb,16000._rb,22650._rb,29000._rb,38000._rb,50000._rb, 2600._rb/)\n      delwave(:) =  (/ 650._rb,  750._rb,  650._rb,  500._rb, 1000._rb, 1550._rb,  350._rb, &\n                      4800._rb, 3150._rb, 6650._rb, 6350._rb, 9000._rb,12000._rb, 1780._rb/)\n\n! Spectral band information\n      ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16/)\n      nspa(:) = (/9,9,9,9,1,9,9,1,9,1,0,1,9,1/)\n      nspb(:) = (/1,5,1,1,1,5,1,0,1,0,0,1,5,1/)\n\n! Fundamental physical constants from NIST 2002\n\n      grav = 9.8066_rb                        ! Acceleration of gravity\n                                              ! (m s-2)\n      planck = 6.62606876e-27_rb              ! Planck constant\n                                              ! (ergs s; g cm2 s-1)\n      boltz = 1.3806503e-16_rb                ! Boltzmann constant\n                                              ! (ergs K-1; g cm2 s-2 K-1)\n      clight = 2.99792458e+10_rb              ! Speed of light in a vacuum  \n                                              ! (cm s-1)\n      avogad = 6.02214199e+23_rb              ! Avogadro constant\n                                              ! (mol-1)\n      alosmt = 2.6867775e+19_rb               ! Loschmidt constant\n                                              ! (cm-3)\n      gascon = 8.31447200e+07_rb              ! Molar gas constant\n                                              ! (ergs mol-1 K-1)\n      radcn1 = 1.191042772e-12_rb             ! First radiation constant\n                                              ! (W cm2 sr-1)\n      radcn2 = 1.4387752_rb                   ! Second radiation constant\n                                              ! (cm K)\n      sbcnst = 5.670400e-04_rb                ! Stefan-Boltzmann constant\n                                              ! (W cm-2 K-4)\n      secdy = 8.6400e4_rb                     ! Number of seconds per day\n                                              ! (s d-1)\n!\n!     units are generally cgs\n!\n!     The first and second radiation constants are taken from NIST.\n!     They were previously obtained from the relations:\n!          radcn1 = 2.*planck*clight*clight*1.e-07\n!          radcn2 = planck*clight/boltz\n\n!     Heatfac is the factor by which delta-flux / delta-pressure is\n!     multiplied, with flux in W/m-2 and pressure in mbar, to get \n!     the heating rate in units of degrees/day.  It is equal to:\n!     Original value:\n!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)\n!           Here, cpdair (1.004) is in units of J g-1 K-1, and the \n!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.\n!        =  (9.8066)(86400)(1e-5)/(1.004)\n!      heatfac = 8.4391_rb\n!\n!     Modified value for consistency with CAM3:\n!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)\n!           Here, cpdair (1.00464) is in units of J g-1 K-1, and the\n!           constant (1.e-5) converts mb to Pa and g-1 to kg-1.\n!        =  (9.80616)(86400)(1e-5)/(1.00464)\n!      heatfac = 8.43339130434_rb\n!\n!     Calculated value (from constants above and input cpdair)\n!        (grav) x (#sec/day) / (specific heat of dry air at const. p x 1.e2)\n!           Here, cpdair is in units of J kg-1 K-1, and the constant (1.e2) \n!           converts mb to Pa when heatfac is multiplied by W m-2 mb-1. \n      heatfac = grav * secdy / (cpdair * 1.e2_rb)\n\n      end subroutine swdatinit\n\n!***************************************************************************\n      subroutine swcmbdat\n!***************************************************************************\n\n      save\n \n! ------- Definitions -------\n!     Arrays for the g-point reduction from 224 to 112 for the 16 LW bands:\n!     This mapping from 224 to 112 points has been carefully selected to \n!     minimize the effect on the resulting fluxes and cooling rates, and\n!     caution should be used if the mapping is modified.  The full 224\n!     g-point set can be restored with ngpt=224, ngc=16*16, ngn=224*1., etc.\n!     ngpt    The total number of new g-points\n!     ngc     The number of new g-points in each band\n!     ngs     The cumulative sum of new g-points for each band\n!     ngm     The index of each new g-point relative to the original\n!             16 g-points for each band.  \n!     ngn     The number of original g-points that are combined to make\n!             each new g-point in each band.\n!     ngb     The band index for each new g-point.\n!     wt      RRTM weights for 16 g-points.\n\n! Use this set for 112 quadrature point (g-point) model\n! ------- Data statements -------\n      ngc(:) = (/ 6,12, 8, 8,10,10, 2,10, 8, 6, 6, 8, 6,12 /)\n      ngs(:) = (/ 6,18,26,34,44,54,56,66,74,80,86,94,100,112 /)\n      ngm(:) = (/ 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! band 16\n                  1,2,3,4,5,6,6,7,8,8,9,10,10,11,12,12, &      ! band 17\n                  1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 18\n                  1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! band 19\n                  1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! band 20\n                  1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! band 21\n                  1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! band 22\n                  1,1,2,2,3,4,5,6,7,8,9,9,10,10,10,10, &       ! band 23\n                  1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! band 24\n                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 25\n                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 26\n                  1,2,3,4,5,6,7,7,7,7,8,8,8,8,8,8, &           ! band 27\n                  1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! band 28\n                  1,2,3,4,5,5,6,6,7,7,8,8,9,10,11,12 /)        ! band 29\n      ngn(:) = (/ 2,2,2,2,4,4, &                               ! band 16\n                  1,1,1,1,1,2,1,2,1,2,1,2, &                   ! band 17\n                  1,1,1,1,2,2,4,4, &                           ! band 18\n                  1,1,1,1,2,2,4,4, &                           ! band 19\n                  1,1,1,1,1,1,1,1,2,6, &                       ! band 20\n                  1,1,1,1,1,1,1,1,2,6, &                       ! band 21\n                  8,8, &                                       ! band 22\n                  2,2,1,1,1,1,1,1,2,4, &                       ! band 23\n                  2,2,2,2,2,2,2,2, &                           ! band 24\n                  1,1,2,2,4,6, &                               ! band 25\n                  1,1,2,2,4,6, &                               ! band 26\n                  1,1,1,1,1,1,4,6, &                           ! band 27\n                  1,1,2,2,4,6, &                               ! band 28\n                  1,1,1,1,2,2,2,2,1,1,1,1 /)                   ! band 29\n      ngb(:) = (/ 16,16,16,16,16,16, &                         ! band 16\n                  17,17,17,17,17,17,17,17,17,17,17,17, &       ! band 17\n                  18,18,18,18,18,18,18,18, &                   ! band 18\n                  19,19,19,19,19,19,19,19, &                   ! band 19\n                  20,20,20,20,20,20,20,20,20,20, &             ! band 20\n                  21,21,21,21,21,21,21,21,21,21, &             ! band 21\n                  22,22, &                                     ! band 22\n                  23,23,23,23,23,23,23,23,23,23, &             ! band 23\n                  24,24,24,24,24,24,24,24, &                   ! band 24\n                  25,25,25,25,25,25, &                         ! band 25\n                  26,26,26,26,26,26, &                         ! band 26\n                  27,27,27,27,27,27,27,27, &                   ! band 27\n                  28,28,28,28,28,28, &                         ! band 28\n                  29,29,29,29,29,29,29,29,29,29,29,29 /)       ! band 29\n\n! Use this set for full 224 quadrature point (g-point) model\n! ------- Data statements -------\n!      ngc(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)\n!      ngs(:) = (/ 16,32,48,64,80,96,112,128,144,160,176,192,208,224 /)\n!      ngm(:) = (/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 16\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 17\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 18\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 19\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 20\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 21\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 22\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 23\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 24\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 25\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 26\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 27\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! band 28\n!                  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /)    ! band 29\n!      ngn(:) = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 16\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 17\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 18\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 19\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 20\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 21\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 22\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 23\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 24\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 25\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 26\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 27\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! band 28\n!                  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 /)           ! band 29\n!      ngb(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, &   ! band 16\n!                  17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, &   ! band 17\n!                  18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, &   ! band 18\n!                  19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, &   ! band 19\n!                  20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, &   ! band 20\n!                  21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, &   ! band 21\n!                  22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, &   ! band 22\n!                  23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, &   ! band 23\n!                  24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, &   ! band 24\n!                  25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, &   ! band 25\n!                  26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, &   ! band 26\n!                  27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, &   ! band 27\n!                  28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, &   ! band 28\n!                  29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29 /)   ! band 29\n\n\n      wt(:) =  (/ 0.1527534276_rb, 0.1491729617_rb, 0.1420961469_rb, &\n                  0.1316886544_rb, 0.1181945205_rb, 0.1019300893_rb, &\n                  0.0832767040_rb, 0.0626720116_rb, 0.0424925000_rb, &\n                  0.0046269894_rb, 0.0038279891_rb, 0.0030260086_rb, &\n                  0.0022199750_rb, 0.0014140010_rb, 0.0005330000_rb, &\n                  0.0000750000_rb /)\n\n      end subroutine swcmbdat\n\n!***************************************************************************\n      subroutine swaerpr\n!***************************************************************************\n\n! Purpose: Define spectral aerosol properties for six ECMWF aerosol types\n! as used in the ECMWF IFS model (see module rrsw_aer.F90 for details)\n!\n! Original: Defined for rrtmg_sw 14 spectral bands, JJMorcrette, ECMWF Feb 2003\n! Revision: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006\n\n      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya\n\n      save\n\n      rsrtaua( 1, :) = (/ &\n        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)\n      rsrtaua( 2, :) = (/ &\n        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)\n      rsrtaua( 3, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 4, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 5, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 6, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 7, :) = (/ &\n        0.20543_rb, 0.84642_rb, 0.84958_rb, 0.21673_rb, 0.28270_rb, 0.10915_rb/)\n      rsrtaua( 8, :) = (/ &\n        0.52838_rb, 0.93285_rb, 0.93449_rb, 0.53078_rb, 0.67148_rb, 0.46608_rb/)\n      rsrtaua( 9, :) = (/ &\n        0.52838_rb, 0.93285_rb, 0.93449_rb, 0.53078_rb, 0.67148_rb, 0.46608_rb/)\n      rsrtaua(10, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(11, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(12, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(13, :) = (/ &\n        1.69446_rb, 1.11855_rb, 1.09212_rb, 1.72145_rb, 1.03858_rb, 1.12044_rb/)\n      rsrtaua(14, :) = (/ &\n        0.10849_rb, 0.66699_rb, 0.65255_rb, 0.11600_rb, 0.06529_rb, 0.04468_rb/)\n \n      rsrpiza( 1, :) = (/ &\n        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)\n      rsrpiza( 2, :) = (/ &\n        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)\n      rsrpiza( 3, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 4, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 5, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 6, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 7, :) = (/ &\n        .8287144_rb, .9949396_rb, .9279543_rb, .6765051_rb, .9467578_rb, .9955938_rb/)\n      rsrpiza( 8, :) = (/ &\n        .8970131_rb, .9984940_rb, .9245594_rb, .7768385_rb, .9532763_rb, .9999999_rb/)\n      rsrpiza( 9, :) = (/ &\n        .8970131_rb, .9984940_rb, .9245594_rb, .7768385_rb, .9532763_rb, .9999999_rb/)\n      rsrpiza(10, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(11, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(12, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(13, :) = (/ &\n        .9148907_rb, .9956173_rb, .7504584_rb, .8131335_rb, .9401905_rb, .9999999_rb/)\n      rsrpiza(14, :) = (/ &\n        .5230504_rb, .7868518_rb, .8531531_rb, .4048149_rb, .8748231_rb, .2355667_rb/)\n\n      rsrasya( 1, :) = (/ &\n        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)\n      rsrasya( 2, :) = (/ &\n        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)\n      rsrasya( 3, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 4, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 5, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 6, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 7, :) = (/ &\n        0.636342_rb, 0.802467_rb, 0.691305_rb, 0.627497_rb, .6105750_rb, .4760794_rb/)\n      rsrasya( 8, :) = (/ &\n        0.668431_rb, 0.788530_rb, 0.698682_rb, 0.657422_rb, .6735182_rb, .6519706_rb/)\n      rsrasya( 9, :) = (/ &\n        0.668431_rb, 0.788530_rb, 0.698682_rb, 0.657422_rb, .6735182_rb, .6519706_rb/)\n      rsrasya(10, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(11, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(12, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(13, :) = (/ &\n        0.729019_rb, 0.803129_rb, 0.784592_rb, 0.712208_rb, .7008249_rb, .7270548_rb/)\n      rsrasya(14, :) = (/ &\n        0.700610_rb, 0.818871_rb, 0.702399_rb, 0.689886_rb, .4629866_rb, .1907639_rb/)\n\n      end subroutine swaerpr\n \n!***************************************************************************\n      subroutine cmbgb16s\n!***************************************************************************\n!\n!  Original version:       MJIacono; July 1998\n!  Revision for RRTM_SW:   MJIacono; November 2002\n!  Revision for RRTMG_SW:  MJIacono; December 2003\n!  Revision for F90 reformatting:  MJIacono; July 2006\n!\n!  The subroutines CMBGB16->CMBGB29 input the absorption coefficient\n!  data for each band, which are defined for 16 g-points and 14 spectral\n!  bands. The data are combined with appropriate weighting following the\n!  g-point mapping arrays specified in RRTMG_SW_INIT.  Solar source \n!  function data in array SFLUXREF are combined without weighting.  All\n!  g-point reduced data are put into new arrays for use in RRTMG_SW.\n!\n!  band 16:  2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)\n!\n!-----------------------------------------------------------------------\n\n      use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(1)\n                  sumk = 0.\n                  do ipr = 1, ngn(igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(1)\n               sumk = 0.\n               do ipr = 1, ngn(igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(1)\n            sumk = 0.\n            do ipr = 1, ngn(igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(1)\n         sumf = 0.\n         do ipr = 1, ngn(igc)\n            iprsm = iprsm + 1\n            sumf = sumf + sfluxrefo(iprsm)\n         enddo\n         sfluxref(igc) = sumf\n      enddo\n\n      end subroutine cmbgb16s\n\n!***************************************************************************\n      subroutine cmbgb17\n!***************************************************************************\n!\n!     band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(2)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(1)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+16)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(2)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(1)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+16)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(2)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(1)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb17\n\n!***************************************************************************\n      subroutine cmbgb18\n!***************************************************************************\n!\n!     band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(3)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(2)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(3)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(2)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+32)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(3)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(2)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb18\n\n!***************************************************************************\n      subroutine cmbgb19\n!***************************************************************************\n!\n!     band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(4)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(3)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(4)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(3)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+48)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(4)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(3)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb19\n\n!***************************************************************************\n      subroutine cmbgb20\n!***************************************************************************\n!\n!     band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, absch4o, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref, absch4\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(5)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(4)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+64)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(5)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(4)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+64)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(5)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(4)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(5)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(4)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + absch4o(iprsm)*rwgt(iprsm+64)\n         enddo\n         sfluxref(igc) = sumf1\n         absch4(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb20\n\n!***************************************************************************\n      subroutine cmbgb21\n!***************************************************************************\n!\n!     band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(6)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(5)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+80)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(6)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(5)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+80)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(6)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(5)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb21\n\n!***************************************************************************\n      subroutine cmbgb22\n!***************************************************************************\n!\n!     band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(7)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(6)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(7)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(6)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(7)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(6)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb22\n\n!***************************************************************************\n      subroutine cmbgb23\n!***************************************************************************\n!\n!     band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo, &\n                            absa, ka, selfref, forref, sfluxref, rayl\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(8)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(7)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(8)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(7)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(8)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(7)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+112)\n         enddo\n         sfluxref(igc) = sumf1\n         rayl(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb23\n\n!***************************************************************************\n      subroutine cmbgb24\n!***************************************************************************\n!\n!     band 24:  12850-16000 cm-1 (low - h2o,o2; high - o2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            abso3ao, abso3bo, raylao, raylbo, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref, &\n                            abso3a, abso3b, rayla, raylb\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2, sumf3\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(9)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(8)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,5\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(9)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(8)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,3\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(9)\n         sumf1 = 0.\n         sumf2 = 0.\n         sumf3 = 0.\n         do ipr = 1, ngn(ngs(8)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + raylbo(iprsm)*rwgt(iprsm+128)\n            sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+128)\n            sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+128)\n         enddo\n         raylb(igc) = sumf1\n         abso3a(igc) = sumf2\n         abso3b(igc) = sumf3\n      enddo\n\n      do jp = 1,9\n         iprsm = 0\n         do igc = 1,ngc(9)\n            sumf1 = 0.\n            sumf2 = 0.\n            do ipr = 1, ngn(ngs(8)+igc)\n               iprsm = iprsm + 1\n               sumf1 = sumf1 + sfluxrefo(iprsm,jp)\n               sumf2 = sumf2 + raylao(iprsm,jp)*rwgt(iprsm+128)\n            enddo\n            sfluxref(igc,jp) = sumf1\n            rayla(igc,jp) = sumf2\n         enddo\n      enddo\n\n      end subroutine cmbgb24\n\n!***************************************************************************\n      subroutine cmbgb25\n!***************************************************************************\n!\n!     band 25:  16000-22650 cm-1 (low - h2o; high - nothing)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg25, only : kao, sfluxrefo, &\n                            abso3ao, abso3bo, raylo, &\n                            absa, ka, sfluxref, &\n                            abso3a, abso3b, rayl\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2, sumf3, sumf4\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(10)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(9)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(10)\n         sumf1 = 0.\n         sumf2 = 0.\n         sumf3 = 0.\n         sumf4 = 0.\n         do ipr = 1, ngn(ngs(9)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+144)\n            sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+144)\n            sumf4 = sumf4 + raylo(iprsm)*rwgt(iprsm+144)\n         enddo\n         sfluxref(igc) = sumf1\n         abso3a(igc) = sumf2\n         abso3b(igc) = sumf3\n         rayl(igc) = sumf4\n      enddo\n\n      end subroutine cmbgb25\n\n!***************************************************************************\n      subroutine cmbgb26\n!***************************************************************************\n!\n!     band 26:  22650-29000 cm-1 (low - nothing; high - nothing)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg26, only : sfluxrefo, raylo, &\n                            sfluxref, rayl\n\n! ------- Local -------\n      integer(kind=im) :: igc, ipr, iprsm\n      real(kind=rb) :: sumf1, sumf2\n\n\n      iprsm = 0\n      do igc = 1,ngc(11)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(10)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + raylo(iprsm)*rwgt(iprsm+160)\n            sumf2 = sumf2 + sfluxrefo(iprsm)\n         enddo\n         rayl(igc) = sumf1\n         sfluxref(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb26\n\n!***************************************************************************\n      subroutine cmbgb27\n!***************************************************************************\n!\n!     band 27:  29000-38000 cm-1 (low - o3; high - o3)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, &\n                            absa, ka, absb, kb, sfluxref, rayl\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(12)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(11)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+176)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(12)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(11)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+176)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(12)\n         sumf1 = 0.\n         sumf2 = 0.\n         do ipr = 1, ngn(ngs(11)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+176)\n         enddo\n         sfluxref(igc) = sumf1\n         rayl(igc) = sumf2\n      enddo\n\n      end subroutine cmbgb27\n\n!***************************************************************************\n      subroutine cmbgb28\n!***************************************************************************\n!\n!     band 28:  38000-50000 cm-1 (low - o3,o2; high - o3,o2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg28, only : kao, kbo, sfluxrefo, &\n                            absa, ka, absb, kb, sfluxref\n\n! ------- Local -------\n      integer(kind=im) :: jn, jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf\n\n\n      do jn = 1,9\n         do jt = 1,5\n            do jp = 1,13\n               iprsm = 0\n               do igc = 1,ngc(13)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(12)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192)\n                  enddo\n                  ka(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jn = 1,5\n         do jt = 1,5\n            do jp = 13,59\n               iprsm = 0\n               do igc = 1,ngc(13)\n                  sumk = 0.\n                  do ipr = 1, ngn(ngs(12)+igc)\n                     iprsm = iprsm + 1\n                     sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+192)\n                  enddo\n                  kb(jn,jt,jp,igc) = sumk\n               enddo\n            enddo\n         enddo\n      enddo\n\n      do jp = 1,5\n         iprsm = 0\n         do igc = 1,ngc(13)\n            sumf = 0.\n            do ipr = 1, ngn(ngs(12)+igc)\n               iprsm = iprsm + 1\n               sumf = sumf + sfluxrefo(iprsm,jp)\n            enddo\n            sfluxref(igc,jp) = sumf\n         enddo\n      enddo\n\n      end subroutine cmbgb28\n\n!***************************************************************************\n      subroutine cmbgb29\n!***************************************************************************\n!\n!     band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!-----------------------------------------------------------------------\n\n      use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absh2oo, absco2o, &\n                            absa, ka, absb, kb, selfref, forref, sfluxref, &\n                            absh2o, absco2\n\n! ------- Local -------\n      integer(kind=im) :: jt, jp, igc, ipr, iprsm\n      real(kind=rb) :: sumk, sumf1, sumf2, sumf3\n\n\n      do jt = 1,5\n         do jp = 1,13\n            iprsm = 0\n            do igc = 1,ngc(14)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(13)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208)\n               enddo\n               ka(jt,jp,igc) = sumk\n            enddo\n         enddo\n         do jp = 13,59\n            iprsm = 0\n            do igc = 1,ngc(14)\n               sumk = 0.\n               do ipr = 1, ngn(ngs(13)+igc)\n                  iprsm = iprsm + 1\n                  sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208)\n               enddo\n               kb(jt,jp,igc) = sumk\n            enddo\n         enddo\n      enddo\n\n      do jt = 1,10\n         iprsm = 0\n         do igc = 1,ngc(14)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(13)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208)\n            enddo\n            selfref(jt,igc) = sumk\n         enddo\n      enddo\n\n      do jt = 1,4\n         iprsm = 0\n         do igc = 1,ngc(14)\n            sumk = 0.\n            do ipr = 1, ngn(ngs(13)+igc)\n               iprsm = iprsm + 1\n               sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208)\n            enddo\n            forref(jt,igc) = sumk\n         enddo\n      enddo\n\n      iprsm = 0\n      do igc = 1,ngc(14)\n         sumf1 = 0.\n         sumf2 = 0.\n         sumf3 = 0.\n         do ipr = 1, ngn(ngs(13)+igc)\n            iprsm = iprsm + 1\n            sumf1 = sumf1 + sfluxrefo(iprsm)\n            sumf2 = sumf2 + absco2o(iprsm)*rwgt(iprsm+208)\n            sumf3 = sumf3 + absh2oo(iprsm)*rwgt(iprsm+208)\n         enddo\n         sfluxref(igc) = sumf1\n         absco2(igc) = sumf2\n         absh2o(igc) = sumf3\n      enddo\n\n      end subroutine cmbgb29\n\n!***********************************************************************\n      subroutine swcldpr\n!***********************************************************************\n\n! Purpose: Define cloud extinction coefficient, single scattering albedo\n!          and asymmetry parameter data.\n!\n\n! ------- Modules -------\n\n      use rrsw_cld, only : extliq1, ssaliq1, asyliq1, &\n                           extice2, ssaice2, asyice2, &\n                           extice3, ssaice3, asyice3, fdlice3, &\n                           abari, bbari, cbari, dbari, ebari, fbari\n\n      save\n\n!-----------------------------------------------------------------------\n!\n! Explanation of the method for each value of INFLAG.  A value of\n!  0 for INFLAG do not distingish being liquid and ice clouds.\n!  INFLAG = 2 does distinguish between liquid and ice clouds, and\n!    requires further user input to specify the method to be used to \n!    compute the aborption due to each.\n!  INFLAG = 0:  For each cloudy layer, the cloud fraction, the cloud optical\n!    depth, the cloud single-scattering albedo, and the\n!    moments of the phase function (0:NSTREAM).  Note\n!    that these values are delta-m scaled within this\n!    subroutine.\n\n!  INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud \n!    water path (g/m2), and cloud ice fraction are input.\n!  ICEFLAG = 2:  The ice effective radius (microns) is input and the\n!    optical properties due to ice clouds are computed from\n!    the optical properties stored in the RT code, STREAMER v3.0 \n!    (Reference: Key. J., Streamer User's Guide, Cooperative \n!    Institute for Meteorological Satellite Studies, 2001, 96 pp.).\n!    Valid range of values for re are between 5.0 and\n!    131.0 micron.\n!    This version uses Ebert and Curry, JGR, (1992) method for \n!    ice particles larger than 131.0 microns. \n!  ICEFLAG = 3:  The ice generalized effective size (dge) is input\n!    and the optical depths, single-scattering albedo,\n!    and phase function moments are calculated as in\n!    Q. Fu, J. Climate, (1996). Q. Fu provided high resolution\n!    tables which were appropriately averaged for the\n!    bands in RRTM_SW.  Linear interpolation is used to\n!    get the coefficients from the stored tables.\n!    Valid range of values for dge are between 5.0 and\n!    140.0 micron. \n!    This version uses Ebert and Curry, JGR, (1992) method for \n!    ice particles larger than 140.0 microns. \n!  LIQFLAG = 1:  The water droplet effective radius (microns) is input \n!    and the optical depths due to water clouds are computed \n!    as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).\n!    The values for absorption coefficients appropriate for\n!    the spectral bands in RRTM have been obtained for a \n!    range of effective radii by an averaging procedure \n!    based on the work of J. Pinto (private communication).\n!    Linear interpolation is used to get the absorption \n!    coefficients for the input effective radius.\n!\n!     ------------------------------------------------------------------\n\n! Everything below is for INFLAG = 2.\n\n! Coefficients for Ebert and Curry method\n      abari(:) = (/ &\n        & 3.448e-03_rb,3.448e-03_rb,3.448e-03_rb,3.448e-03_rb,3.448e-03_rb /)\n      bbari(:) = (/ &\n        & 2.431e+00_rb,2.431e+00_rb,2.431e+00_rb,2.431e+00_rb,2.431e+00_rb /)\n      cbari(:) = (/ &\n        & 1.000e-05_rb,1.100e-04_rb,1.240e-02_rb,3.779e-02_rb,4.666e-01_rb /)\n      dbari(:) = (/ &\n        & 0.000e+00_rb,1.405e-05_rb,6.867e-04_rb,1.284e-03_rb,2.050e-05_rb /)\n      ebari(:) = (/ &\n        & 7.661e-01_rb,7.730e-01_rb,7.865e-01_rb,8.172e-01_rb,9.595e-01_rb /)\n      fbari(:) = (/ &\n        & 5.851e-04_rb,5.665e-04_rb,7.204e-04_rb,7.463e-04_rb,1.076e-04_rb /)\n\n! Extinction coefficient\n      extliq1(:, 16) = (/ &\n        & 8.981463e-01_rb,6.317895e-01_rb,4.557508e-01_rb,3.481624e-01_rb,2.797950e-01_rb,&\n        & 2.342753e-01_rb,2.026934e-01_rb,1.800102e-01_rb,1.632408e-01_rb,1.505384e-01_rb,&\n        & 1.354524e-01_rb,1.246520e-01_rb,1.154342e-01_rb,1.074756e-01_rb,1.005353e-01_rb,&\n        & 9.442987e-02_rb,8.901760e-02_rb,8.418693e-02_rb,7.984904e-02_rb,7.593229e-02_rb,&\n        & 7.237827e-02_rb,6.913887e-02_rb,6.617415e-02_rb,6.345061e-02_rb,6.094001e-02_rb,&\n        & 5.861834e-02_rb,5.646506e-02_rb,5.446250e-02_rb,5.249596e-02_rb,5.081114e-02_rb,&\n        & 4.922243e-02_rb,4.772189e-02_rb,4.630243e-02_rb,4.495766e-02_rb,4.368189e-02_rb,&\n        & 4.246995e-02_rb,4.131720e-02_rb,4.021941e-02_rb,3.917276e-02_rb,3.817376e-02_rb,&\n        & 3.721926e-02_rb,3.630635e-02_rb,3.543237e-02_rb,3.459491e-02_rb,3.379171e-02_rb,&\n        & 3.302073e-02_rb,3.228007e-02_rb,3.156798e-02_rb,3.088284e-02_rb,3.022315e-02_rb,&\n        & 2.958753e-02_rb,2.897468e-02_rb,2.838340e-02_rb,2.781258e-02_rb,2.726117e-02_rb,&\n        & 2.672821e-02_rb,2.621278e-02_rb,2.5714e-02_rb /)\n      extliq1(:, 17) = (/ &\n        & 8.293797e-01_rb,6.048371e-01_rb,4.465706e-01_rb,3.460387e-01_rb,2.800064e-01_rb,&\n        & 2.346584e-01_rb,2.022399e-01_rb,1.782626e-01_rb,1.600153e-01_rb,1.457903e-01_rb,&\n        & 1.334061e-01_rb,1.228548e-01_rb,1.138396e-01_rb,1.060486e-01_rb,9.924856e-02_rb,&\n        & 9.326208e-02_rb,8.795158e-02_rb,8.320883e-02_rb,7.894750e-02_rb,7.509792e-02_rb,&\n        & 7.160323e-02_rb,6.841653e-02_rb,6.549889e-02_rb,6.281763e-02_rb,6.034516e-02_rb,&\n        & 5.805802e-02_rb,5.593615e-02_rb,5.396226e-02_rb,5.202302e-02_rb,5.036246e-02_rb,&\n        & 4.879606e-02_rb,4.731610e-02_rb,4.591565e-02_rb,4.458852e-02_rb,4.332912e-02_rb,&\n        & 4.213243e-02_rb,4.099390e-02_rb,3.990941e-02_rb,3.887522e-02_rb,3.788792e-02_rb,&\n        & 3.694440e-02_rb,3.604183e-02_rb,3.517760e-02_rb,3.434934e-02_rb,3.355485e-02_rb,&\n        & 3.279211e-02_rb,3.205925e-02_rb,3.135458e-02_rb,3.067648e-02_rb,3.002349e-02_rb,&\n        & 2.939425e-02_rb,2.878748e-02_rb,2.820200e-02_rb,2.763673e-02_rb,2.709062e-02_rb,&\n        & 2.656272e-02_rb,2.605214e-02_rb,2.5558e-02_rb /)\n      extliq1(:, 18) = (/ &\n        & 9.193685e-01_rb,6.128292e-01_rb,4.344150e-01_rb,3.303048e-01_rb,2.659500e-01_rb,&\n        & 2.239727e-01_rb,1.953457e-01_rb,1.751012e-01_rb,1.603515e-01_rb,1.493360e-01_rb,&\n        & 1.323791e-01_rb,1.219335e-01_rb,1.130076e-01_rb,1.052926e-01_rb,9.855839e-02_rb,&\n        & 9.262925e-02_rb,8.736918e-02_rb,8.267112e-02_rb,7.844965e-02_rb,7.463585e-02_rb,&\n        & 7.117343e-02_rb,6.801601e-02_rb,6.512503e-02_rb,6.246815e-02_rb,6.001806e-02_rb,&\n        & 5.775154e-02_rb,5.564872e-02_rb,5.369250e-02_rb,5.176284e-02_rb,5.011536e-02_rb,&\n        & 4.856099e-02_rb,4.709211e-02_rb,4.570193e-02_rb,4.438430e-02_rb,4.313375e-02_rb,&\n        & 4.194529e-02_rb,4.081443e-02_rb,3.973712e-02_rb,3.870966e-02_rb,3.772866e-02_rb,&\n        & 3.679108e-02_rb,3.589409e-02_rb,3.503514e-02_rb,3.421185e-02_rb,3.342206e-02_rb,&\n        & 3.266377e-02_rb,3.193513e-02_rb,3.123447e-02_rb,3.056018e-02_rb,2.991081e-02_rb,&\n        & 2.928502e-02_rb,2.868154e-02_rb,2.809920e-02_rb,2.753692e-02_rb,2.699367e-02_rb,&\n        & 2.646852e-02_rb,2.596057e-02_rb,2.5469e-02_rb /)\n      extliq1(:, 19) = (/ &\n        & 9.136931e-01_rb,5.743244e-01_rb,4.080708e-01_rb,3.150572e-01_rb,2.577261e-01_rb,&\n        & 2.197900e-01_rb,1.933037e-01_rb,1.740212e-01_rb,1.595056e-01_rb,1.482756e-01_rb,&\n        & 1.312164e-01_rb,1.209246e-01_rb,1.121227e-01_rb,1.045095e-01_rb,9.785967e-02_rb,&\n        & 9.200149e-02_rb,8.680170e-02_rb,8.215531e-02_rb,7.797850e-02_rb,7.420361e-02_rb,&\n        & 7.077530e-02_rb,6.764798e-02_rb,6.478369e-02_rb,6.215063e-02_rb,5.972189e-02_rb,&\n        & 5.747458e-02_rb,5.538913e-02_rb,5.344866e-02_rb,5.153216e-02_rb,4.989745e-02_rb,&\n        & 4.835476e-02_rb,4.689661e-02_rb,4.551629e-02_rb,4.420777e-02_rb,4.296563e-02_rb,&\n        & 4.178497e-02_rb,4.066137e-02_rb,3.959081e-02_rb,3.856963e-02_rb,3.759452e-02_rb,&\n        & 3.666244e-02_rb,3.577061e-02_rb,3.491650e-02_rb,3.409777e-02_rb,3.331227e-02_rb,&\n        & 3.255803e-02_rb,3.183322e-02_rb,3.113617e-02_rb,3.046530e-02_rb,2.981918e-02_rb,&\n        & 2.919646e-02_rb,2.859591e-02_rb,2.801635e-02_rb,2.745671e-02_rb,2.691599e-02_rb,&\n        & 2.639324e-02_rb,2.588759e-02_rb,2.5398e-02_rb /)\n      extliq1(:, 20) = (/ &\n        & 8.447548e-01_rb,5.326840e-01_rb,3.921523e-01_rb,3.119082e-01_rb,2.597055e-01_rb,&\n        & 2.228737e-01_rb,1.954157e-01_rb,1.741155e-01_rb,1.570881e-01_rb,1.431520e-01_rb,&\n        & 1.302034e-01_rb,1.200491e-01_rb,1.113571e-01_rb,1.038330e-01_rb,9.725657e-02_rb,&\n        & 9.145949e-02_rb,8.631112e-02_rb,8.170840e-02_rb,7.756901e-02_rb,7.382641e-02_rb,&\n        & 7.042616e-02_rb,6.732338e-02_rb,6.448069e-02_rb,6.186672e-02_rb,5.945494e-02_rb,&\n        & 5.722277e-02_rb,5.515089e-02_rb,5.322262e-02_rb,5.132153e-02_rb,4.969799e-02_rb,&\n        & 4.816556e-02_rb,4.671686e-02_rb,4.534525e-02_rb,4.404480e-02_rb,4.281014e-02_rb,&\n        & 4.163643e-02_rb,4.051930e-02_rb,3.945479e-02_rb,3.843927e-02_rb,3.746945e-02_rb,&\n        & 3.654234e-02_rb,3.565518e-02_rb,3.480547e-02_rb,3.399088e-02_rb,3.320930e-02_rb,&\n        & 3.245876e-02_rb,3.173745e-02_rb,3.104371e-02_rb,3.037600e-02_rb,2.973287e-02_rb,&\n        & 2.911300e-02_rb,2.851516e-02_rb,2.793818e-02_rb,2.738101e-02_rb,2.684264e-02_rb,&\n        & 2.632214e-02_rb,2.581863e-02_rb,2.5331e-02_rb /)\n      extliq1(:, 21) = (/ &\n        & 7.727642e-01_rb,5.034865e-01_rb,3.808673e-01_rb,3.080333e-01_rb,2.586453e-01_rb,&\n        & 2.224989e-01_rb,1.947060e-01_rb,1.725821e-01_rb,1.545096e-01_rb,1.394456e-01_rb,&\n        & 1.288683e-01_rb,1.188852e-01_rb,1.103317e-01_rb,1.029214e-01_rb,9.643967e-02_rb,&\n        & 9.072239e-02_rb,8.564194e-02_rb,8.109758e-02_rb,7.700875e-02_rb,7.331026e-02_rb,&\n        & 6.994879e-02_rb,6.688028e-02_rb,6.406807e-02_rb,6.148133e-02_rb,5.909400e-02_rb,&\n        & 5.688388e-02_rb,5.483197e-02_rb,5.292185e-02_rb,5.103763e-02_rb,4.942905e-02_rb,&\n        & 4.791039e-02_rb,4.647438e-02_rb,4.511453e-02_rb,4.382497e-02_rb,4.260043e-02_rb,&\n        & 4.143616e-02_rb,4.032784e-02_rb,3.927155e-02_rb,3.826375e-02_rb,3.730117e-02_rb,&\n        & 3.638087e-02_rb,3.550013e-02_rb,3.465646e-02_rb,3.384759e-02_rb,3.307141e-02_rb,&\n        & 3.232598e-02_rb,3.160953e-02_rb,3.092040e-02_rb,3.025706e-02_rb,2.961810e-02_rb,&\n        & 2.900220e-02_rb,2.840814e-02_rb,2.783478e-02_rb,2.728106e-02_rb,2.674599e-02_rb,&\n        & 2.622864e-02_rb,2.572816e-02_rb,2.5244e-02_rb /)\n      extliq1(:, 22) = (/ &\n        & 7.416833e-01_rb,4.959591e-01_rb,3.775057e-01_rb,3.056353e-01_rb,2.565943e-01_rb,&\n        & 2.206935e-01_rb,1.931479e-01_rb,1.712860e-01_rb,1.534837e-01_rb,1.386906e-01_rb,&\n        & 1.281198e-01_rb,1.182344e-01_rb,1.097595e-01_rb,1.024137e-01_rb,9.598552e-02_rb,&\n        & 9.031320e-02_rb,8.527093e-02_rb,8.075927e-02_rb,7.669869e-02_rb,7.302481e-02_rb,&\n        & 6.968491e-02_rb,6.663542e-02_rb,6.384008e-02_rb,6.126838e-02_rb,5.889452e-02_rb,&\n        & 5.669654e-02_rb,5.465558e-02_rb,5.275540e-02_rb,5.087937e-02_rb,4.927904e-02_rb,&\n        & 4.776796e-02_rb,4.633895e-02_rb,4.498557e-02_rb,4.370202e-02_rb,4.248306e-02_rb,&\n        & 4.132399e-02_rb,4.022052e-02_rb,3.916878e-02_rb,3.816523e-02_rb,3.720665e-02_rb,&\n        & 3.629011e-02_rb,3.541290e-02_rb,3.457257e-02_rb,3.376685e-02_rb,3.299365e-02_rb,&\n        & 3.225105e-02_rb,3.153728e-02_rb,3.085069e-02_rb,3.018977e-02_rb,2.955310e-02_rb,&\n        & 2.893940e-02_rb,2.834742e-02_rb,2.777606e-02_rb,2.722424e-02_rb,2.669099e-02_rb,&\n        & 2.617539e-02_rb,2.567658e-02_rb,2.5194e-02_rb /)\n      extliq1(:, 23) = (/ &\n        & 7.058580e-01_rb,4.866573e-01_rb,3.712238e-01_rb,2.998638e-01_rb,2.513441e-01_rb,&\n        & 2.161972e-01_rb,1.895576e-01_rb,1.686669e-01_rb,1.518437e-01_rb,1.380046e-01_rb,&\n        & 1.267564e-01_rb,1.170399e-01_rb,1.087026e-01_rb,1.014704e-01_rb,9.513729e-02_rb,&\n        & 8.954555e-02_rb,8.457221e-02_rb,8.012009e-02_rb,7.611136e-02_rb,7.248294e-02_rb,&\n        & 6.918317e-02_rb,6.616934e-02_rb,6.340584e-02_rb,6.086273e-02_rb,5.851465e-02_rb,&\n        & 5.634001e-02_rb,5.432027e-02_rb,5.243946e-02_rb,5.058070e-02_rb,4.899628e-02_rb,&\n        & 4.749975e-02_rb,4.608411e-02_rb,4.474303e-02_rb,4.347082e-02_rb,4.226237e-02_rb,&\n        & 4.111303e-02_rb,4.001861e-02_rb,3.897528e-02_rb,3.797959e-02_rb,3.702835e-02_rb,&\n        & 3.611867e-02_rb,3.524791e-02_rb,3.441364e-02_rb,3.361360e-02_rb,3.284577e-02_rb,&\n        & 3.210823e-02_rb,3.139923e-02_rb,3.071716e-02_rb,3.006052e-02_rb,2.942791e-02_rb,&\n        & 2.881806e-02_rb,2.822974e-02_rb,2.766185e-02_rb,2.711335e-02_rb,2.658326e-02_rb,&\n        & 2.607066e-02_rb,2.557473e-02_rb,2.5095e-02_rb /)\n      extliq1(:, 24) = (/ &\n        & 6.822779e-01_rb,4.750373e-01_rb,3.634834e-01_rb,2.940726e-01_rb,2.468060e-01_rb,&\n        & 2.125768e-01_rb,1.866586e-01_rb,1.663588e-01_rb,1.500326e-01_rb,1.366192e-01_rb,&\n        & 1.253472e-01_rb,1.158052e-01_rb,1.076101e-01_rb,1.004954e-01_rb,9.426089e-02_rb,&\n        & 8.875268e-02_rb,8.385090e-02_rb,7.946063e-02_rb,7.550578e-02_rb,7.192466e-02_rb,&\n        & 6.866669e-02_rb,6.569001e-02_rb,6.295971e-02_rb,6.044642e-02_rb,5.812526e-02_rb,&\n        & 5.597500e-02_rb,5.397746e-02_rb,5.211690e-02_rb,5.027505e-02_rb,4.870703e-02_rb,&\n        & 4.722555e-02_rb,4.582373e-02_rb,4.449540e-02_rb,4.323497e-02_rb,4.203742e-02_rb,&\n        & 4.089821e-02_rb,3.981321e-02_rb,3.877867e-02_rb,3.779118e-02_rb,3.684762e-02_rb,&\n        & 3.594514e-02_rb,3.508114e-02_rb,3.425322e-02_rb,3.345917e-02_rb,3.269698e-02_rb,&\n        & 3.196477e-02_rb,3.126082e-02_rb,3.058352e-02_rb,2.993141e-02_rb,2.930310e-02_rb,&\n        & 2.869732e-02_rb,2.811289e-02_rb,2.754869e-02_rb,2.700371e-02_rb,2.647698e-02_rb,&\n        & 2.596760e-02_rb,2.547473e-02_rb,2.4998e-02_rb /)\n      extliq1(:, 25) = (/ &\n        & 6.666233e-01_rb,4.662044e-01_rb,3.579517e-01_rb,2.902984e-01_rb,2.440475e-01_rb,&\n        & 2.104431e-01_rb,1.849277e-01_rb,1.648970e-01_rb,1.487555e-01_rb,1.354714e-01_rb,&\n        & 1.244173e-01_rb,1.149913e-01_rb,1.068903e-01_rb,9.985323e-02_rb,9.368351e-02_rb,&\n        & 8.823009e-02_rb,8.337507e-02_rb,7.902511e-02_rb,7.510529e-02_rb,7.155482e-02_rb,&\n        & 6.832386e-02_rb,6.537113e-02_rb,6.266218e-02_rb,6.016802e-02_rb,5.786408e-02_rb,&\n        & 5.572939e-02_rb,5.374598e-02_rb,5.189830e-02_rb,5.006825e-02_rb,4.851081e-02_rb,&\n        & 4.703906e-02_rb,4.564623e-02_rb,4.432621e-02_rb,4.307349e-02_rb,4.188312e-02_rb,&\n        & 4.075060e-02_rb,3.967183e-02_rb,3.864313e-02_rb,3.766111e-02_rb,3.672269e-02_rb,&\n        & 3.582505e-02_rb,3.496559e-02_rb,3.414196e-02_rb,3.335198e-02_rb,3.259362e-02_rb,&\n        & 3.186505e-02_rb,3.116454e-02_rb,3.049052e-02_rb,2.984152e-02_rb,2.921617e-02_rb,&\n        & 2.861322e-02_rb,2.803148e-02_rb,2.746986e-02_rb,2.692733e-02_rb,2.640295e-02_rb,&\n        & 2.589582e-02_rb,2.540510e-02_rb,2.4930e-02_rb /)\n      extliq1(:, 26) = (/ &\n        & 6.535669e-01_rb,4.585865e-01_rb,3.529226e-01_rb,2.867245e-01_rb,2.413848e-01_rb,&\n        & 2.083956e-01_rb,1.833191e-01_rb,1.636150e-01_rb,1.477247e-01_rb,1.346392e-01_rb,&\n        & 1.236449e-01_rb,1.143095e-01_rb,1.062828e-01_rb,9.930773e-02_rb,9.319029e-02_rb,&\n        & 8.778150e-02_rb,8.296497e-02_rb,7.864847e-02_rb,7.475799e-02_rb,7.123343e-02_rb,&\n        & 6.802549e-02_rb,6.509332e-02_rb,6.240285e-02_rb,5.992538e-02_rb,5.763657e-02_rb,&\n        & 5.551566e-02_rb,5.354483e-02_rb,5.170870e-02_rb,4.988866e-02_rb,4.834061e-02_rb,&\n        & 4.687751e-02_rb,4.549264e-02_rb,4.417999e-02_rb,4.293410e-02_rb,4.175006e-02_rb,&\n        & 4.062344e-02_rb,3.955019e-02_rb,3.852663e-02_rb,3.754943e-02_rb,3.661553e-02_rb,&\n        & 3.572214e-02_rb,3.486669e-02_rb,3.404683e-02_rb,3.326040e-02_rb,3.250542e-02_rb,&\n        & 3.178003e-02_rb,3.108254e-02_rb,3.041139e-02_rb,2.976511e-02_rb,2.914235e-02_rb,&\n        & 2.854187e-02_rb,2.796247e-02_rb,2.740309e-02_rb,2.686271e-02_rb,2.634038e-02_rb,&\n        & 2.583520e-02_rb,2.534636e-02_rb,2.4873e-02_rb /)\n      extliq1(:, 27) = (/ &\n        & 6.448790e-01_rb,4.541425e-01_rb,3.503348e-01_rb,2.850494e-01_rb,2.401966e-01_rb,&\n        & 2.074811e-01_rb,1.825631e-01_rb,1.629515e-01_rb,1.471142e-01_rb,1.340574e-01_rb,&\n        & 1.231462e-01_rb,1.138628e-01_rb,1.058802e-01_rb,9.894286e-02_rb,9.285818e-02_rb,&\n        & 8.747802e-02_rb,8.268676e-02_rb,7.839271e-02_rb,7.452230e-02_rb,7.101580e-02_rb,&\n        & 6.782418e-02_rb,6.490685e-02_rb,6.222991e-02_rb,5.976484e-02_rb,5.748742e-02_rb,&\n        & 5.537703e-02_rb,5.341593e-02_rb,5.158883e-02_rb,4.977355e-02_rb,4.823172e-02_rb,&\n        & 4.677430e-02_rb,4.539465e-02_rb,4.408680e-02_rb,4.284533e-02_rb,4.166539e-02_rb,&\n        & 4.054257e-02_rb,3.947283e-02_rb,3.845256e-02_rb,3.747842e-02_rb,3.654737e-02_rb,&\n        & 3.565665e-02_rb,3.480370e-02_rb,3.398620e-02_rb,3.320198e-02_rb,3.244908e-02_rb,&\n        & 3.172566e-02_rb,3.103002e-02_rb,3.036062e-02_rb,2.971600e-02_rb,2.909482e-02_rb,&\n        & 2.849582e-02_rb,2.791785e-02_rb,2.735982e-02_rb,2.682072e-02_rb,2.629960e-02_rb,&\n        & 2.579559e-02_rb,2.530786e-02_rb,2.4836e-02_rb /)\n      extliq1(:, 28) = (/ &\n        & 6.422688e-01_rb,4.528453e-01_rb,3.497232e-01_rb,2.847724e-01_rb,2.400815e-01_rb,&\n        & 2.074403e-01_rb,1.825502e-01_rb,1.629415e-01_rb,1.470934e-01_rb,1.340183e-01_rb,&\n        & 1.230935e-01_rb,1.138049e-01_rb,1.058201e-01_rb,9.888245e-02_rb,9.279878e-02_rb,&\n        & 8.742053e-02_rb,8.263175e-02_rb,7.834058e-02_rb,7.447327e-02_rb,7.097000e-02_rb,&\n        & 6.778167e-02_rb,6.486765e-02_rb,6.219400e-02_rb,5.973215e-02_rb,5.745790e-02_rb,&\n        & 5.535059e-02_rb,5.339250e-02_rb,5.156831e-02_rb,4.975308e-02_rb,4.821235e-02_rb,&\n        & 4.675596e-02_rb,4.537727e-02_rb,4.407030e-02_rb,4.282968e-02_rb,4.165053e-02_rb,&\n        & 4.052845e-02_rb,3.945941e-02_rb,3.843980e-02_rb,3.746628e-02_rb,3.653583e-02_rb,&\n        & 3.564567e-02_rb,3.479326e-02_rb,3.397626e-02_rb,3.319253e-02_rb,3.244008e-02_rb,&\n        & 3.171711e-02_rb,3.102189e-02_rb,3.035289e-02_rb,2.970866e-02_rb,2.908784e-02_rb,&\n        & 2.848920e-02_rb,2.791156e-02_rb,2.735385e-02_rb,2.681507e-02_rb,2.629425e-02_rb,&\n        & 2.579053e-02_rb,2.530308e-02_rb,2.4831e-02_rb /)\n      extliq1(:, 29) = (/ &\n        & 4.614710e-01_rb,4.556116e-01_rb,4.056568e-01_rb,3.529833e-01_rb,3.060334e-01_rb,&\n        & 2.658127e-01_rb,2.316095e-01_rb,2.024325e-01_rb,1.773749e-01_rb,1.556867e-01_rb,&\n        & 1.455558e-01_rb,1.332882e-01_rb,1.229052e-01_rb,1.140067e-01_rb,1.062981e-01_rb,&\n        & 9.955703e-02_rb,9.361333e-02_rb,8.833420e-02_rb,8.361467e-02_rb,7.937071e-02_rb,&\n        & 7.553420e-02_rb,7.204942e-02_rb,6.887031e-02_rb,6.595851e-02_rb,6.328178e-02_rb,&\n        & 6.081286e-02_rb,5.852854e-02_rb,5.640892e-02_rb,5.431269e-02_rb,5.252561e-02_rb,&\n        & 5.084345e-02_rb,4.925727e-02_rb,4.775910e-02_rb,4.634182e-02_rb,4.499907e-02_rb,&\n        & 4.372512e-02_rb,4.251484e-02_rb,4.136357e-02_rb,4.026710e-02_rb,3.922162e-02_rb,&\n        & 3.822365e-02_rb,3.727004e-02_rb,3.635790e-02_rb,3.548457e-02_rb,3.464764e-02_rb,&\n        & 3.384488e-02_rb,3.307424e-02_rb,3.233384e-02_rb,3.162192e-02_rb,3.093688e-02_rb,&\n        & 3.027723e-02_rb,2.964158e-02_rb,2.902864e-02_rb,2.843722e-02_rb,2.786621e-02_rb,&\n        & 2.731457e-02_rb,2.678133e-02_rb,2.6266e-02_rb /)\n\n! Single scattering albedo     \n      ssaliq1(:, 16) = (/ &\n        & 8.143821e-01_rb,7.836739e-01_rb,7.550722e-01_rb,7.306269e-01_rb,7.105612e-01_rb,&\n        & 6.946649e-01_rb,6.825556e-01_rb,6.737762e-01_rb,6.678448e-01_rb,6.642830e-01_rb,&\n        & 6.679741e-01_rb,6.584607e-01_rb,6.505598e-01_rb,6.440951e-01_rb,6.388901e-01_rb,&\n        & 6.347689e-01_rb,6.315549e-01_rb,6.290718e-01_rb,6.271432e-01_rb,6.255928e-01_rb,&\n        & 6.242441e-01_rb,6.229207e-01_rb,6.214464e-01_rb,6.196445e-01_rb,6.173388e-01_rb,&\n        & 6.143527e-01_rb,6.105099e-01_rb,6.056339e-01_rb,6.108290e-01_rb,6.073939e-01_rb,&\n        & 6.043073e-01_rb,6.015473e-01_rb,5.990913e-01_rb,5.969173e-01_rb,5.950028e-01_rb,&\n        & 5.933257e-01_rb,5.918636e-01_rb,5.905944e-01_rb,5.894957e-01_rb,5.885453e-01_rb,&\n        & 5.877209e-01_rb,5.870003e-01_rb,5.863611e-01_rb,5.857811e-01_rb,5.852381e-01_rb,&\n        & 5.847098e-01_rb,5.841738e-01_rb,5.836081e-01_rb,5.829901e-01_rb,5.822979e-01_rb,&\n        & 5.815089e-01_rb,5.806011e-01_rb,5.795521e-01_rb,5.783396e-01_rb,5.769413e-01_rb,&\n        & 5.753351e-01_rb,5.734986e-01_rb,5.7141e-01_rb /)\n      ssaliq1(:, 17) = (/ &\n        & 8.165821e-01_rb,8.002015e-01_rb,7.816921e-01_rb,7.634131e-01_rb,7.463721e-01_rb,&\n        & 7.312469e-01_rb,7.185883e-01_rb,7.088975e-01_rb,7.026671e-01_rb,7.004020e-01_rb,&\n        & 7.042138e-01_rb,6.960930e-01_rb,6.894243e-01_rb,6.840459e-01_rb,6.797957e-01_rb,&\n        & 6.765119e-01_rb,6.740325e-01_rb,6.721955e-01_rb,6.708391e-01_rb,6.698013e-01_rb,&\n        & 6.689201e-01_rb,6.680339e-01_rb,6.669805e-01_rb,6.655982e-01_rb,6.637250e-01_rb,&\n        & 6.611992e-01_rb,6.578588e-01_rb,6.535420e-01_rb,6.584449e-01_rb,6.553992e-01_rb,&\n        & 6.526547e-01_rb,6.501917e-01_rb,6.479905e-01_rb,6.460313e-01_rb,6.442945e-01_rb,&\n        & 6.427605e-01_rb,6.414094e-01_rb,6.402217e-01_rb,6.391775e-01_rb,6.382573e-01_rb,&\n        & 6.374413e-01_rb,6.367099e-01_rb,6.360433e-01_rb,6.354218e-01_rb,6.348257e-01_rb,&\n        & 6.342355e-01_rb,6.336313e-01_rb,6.329935e-01_rb,6.323023e-01_rb,6.315383e-01_rb,&\n        & 6.306814e-01_rb,6.297122e-01_rb,6.286110e-01_rb,6.273579e-01_rb,6.259333e-01_rb,&\n        & 6.243176e-01_rb,6.224910e-01_rb,6.2043e-01_rb /)\n      ssaliq1(:, 18) = (/ &\n        & 9.900163e-01_rb,9.854307e-01_rb,9.797730e-01_rb,9.733113e-01_rb,9.664245e-01_rb,&\n        & 9.594976e-01_rb,9.529055e-01_rb,9.470112e-01_rb,9.421695e-01_rb,9.387304e-01_rb,&\n        & 9.344918e-01_rb,9.305302e-01_rb,9.267048e-01_rb,9.230072e-01_rb,9.194289e-01_rb,&\n        & 9.159616e-01_rb,9.125968e-01_rb,9.093260e-01_rb,9.061409e-01_rb,9.030330e-01_rb,&\n        & 8.999940e-01_rb,8.970154e-01_rb,8.940888e-01_rb,8.912058e-01_rb,8.883579e-01_rb,&\n        & 8.855368e-01_rb,8.827341e-01_rb,8.799413e-01_rb,8.777423e-01_rb,8.749566e-01_rb,&\n        & 8.722298e-01_rb,8.695605e-01_rb,8.669469e-01_rb,8.643875e-01_rb,8.618806e-01_rb,&\n        & 8.594246e-01_rb,8.570179e-01_rb,8.546589e-01_rb,8.523459e-01_rb,8.500773e-01_rb,&\n        & 8.478516e-01_rb,8.456670e-01_rb,8.435219e-01_rb,8.414148e-01_rb,8.393439e-01_rb,&\n        & 8.373078e-01_rb,8.353047e-01_rb,8.333330e-01_rb,8.313911e-01_rb,8.294774e-01_rb,&\n        & 8.275904e-01_rb,8.257282e-01_rb,8.238893e-01_rb,8.220721e-01_rb,8.202751e-01_rb,&\n        & 8.184965e-01_rb,8.167346e-01_rb,8.1499e-01_rb /)\n      ssaliq1(:, 19) = (/ &\n        & 9.999916e-01_rb,9.987396e-01_rb,9.966900e-01_rb,9.950738e-01_rb,9.937531e-01_rb,&\n        & 9.925912e-01_rb,9.914525e-01_rb,9.902018e-01_rb,9.887046e-01_rb,9.868263e-01_rb,&\n        & 9.849039e-01_rb,9.832372e-01_rb,9.815265e-01_rb,9.797770e-01_rb,9.779940e-01_rb,&\n        & 9.761827e-01_rb,9.743481e-01_rb,9.724955e-01_rb,9.706303e-01_rb,9.687575e-01_rb,&\n        & 9.668823e-01_rb,9.650100e-01_rb,9.631457e-01_rb,9.612947e-01_rb,9.594622e-01_rb,&\n        & 9.576534e-01_rb,9.558734e-01_rb,9.541275e-01_rb,9.522059e-01_rb,9.504258e-01_rb,&\n        & 9.486459e-01_rb,9.468676e-01_rb,9.450921e-01_rb,9.433208e-01_rb,9.415548e-01_rb,&\n        & 9.397955e-01_rb,9.380441e-01_rb,9.363022e-01_rb,9.345706e-01_rb,9.328510e-01_rb,&\n        & 9.311445e-01_rb,9.294524e-01_rb,9.277761e-01_rb,9.261167e-01_rb,9.244755e-01_rb,&\n        & 9.228540e-01_rb,9.212534e-01_rb,9.196748e-01_rb,9.181197e-01_rb,9.165894e-01_rb,&\n        & 9.150851e-01_rb,9.136080e-01_rb,9.121596e-01_rb,9.107410e-01_rb,9.093536e-01_rb,&\n        & 9.079987e-01_rb,9.066775e-01_rb,9.0539e-01_rb /)\n      ssaliq1(:, 20) = (/ &\n        & 9.979493e-01_rb,9.964113e-01_rb,9.950014e-01_rb,9.937045e-01_rb,9.924964e-01_rb,&\n        & 9.913546e-01_rb,9.902575e-01_rb,9.891843e-01_rb,9.881136e-01_rb,9.870238e-01_rb,&\n        & 9.859934e-01_rb,9.849372e-01_rb,9.838873e-01_rb,9.828434e-01_rb,9.818052e-01_rb,&\n        & 9.807725e-01_rb,9.797450e-01_rb,9.787225e-01_rb,9.777047e-01_rb,9.766914e-01_rb,&\n        & 9.756823e-01_rb,9.746771e-01_rb,9.736756e-01_rb,9.726775e-01_rb,9.716827e-01_rb,&\n        & 9.706907e-01_rb,9.697014e-01_rb,9.687145e-01_rb,9.678060e-01_rb,9.668108e-01_rb,&\n        & 9.658218e-01_rb,9.648391e-01_rb,9.638629e-01_rb,9.628936e-01_rb,9.619313e-01_rb,&\n        & 9.609763e-01_rb,9.600287e-01_rb,9.590888e-01_rb,9.581569e-01_rb,9.572330e-01_rb,&\n        & 9.563176e-01_rb,9.554108e-01_rb,9.545128e-01_rb,9.536239e-01_rb,9.527443e-01_rb,&\n        & 9.518741e-01_rb,9.510137e-01_rb,9.501633e-01_rb,9.493230e-01_rb,9.484931e-01_rb,&\n        & 9.476740e-01_rb,9.468656e-01_rb,9.460683e-01_rb,9.452824e-01_rb,9.445080e-01_rb,&\n        & 9.437454e-01_rb,9.429948e-01_rb,9.4226e-01_rb /)\n      ssaliq1(:, 21) = (/ &\n        & 9.988742e-01_rb,9.982668e-01_rb,9.976935e-01_rb,9.971497e-01_rb,9.966314e-01_rb,&\n        & 9.961344e-01_rb,9.956545e-01_rb,9.951873e-01_rb,9.947286e-01_rb,9.942741e-01_rb,&\n        & 9.938457e-01_rb,9.933947e-01_rb,9.929473e-01_rb,9.925032e-01_rb,9.920621e-01_rb,&\n        & 9.916237e-01_rb,9.911875e-01_rb,9.907534e-01_rb,9.903209e-01_rb,9.898898e-01_rb,&\n        & 9.894597e-01_rb,9.890304e-01_rb,9.886015e-01_rb,9.881726e-01_rb,9.877435e-01_rb,&\n        & 9.873138e-01_rb,9.868833e-01_rb,9.864516e-01_rb,9.860698e-01_rb,9.856317e-01_rb,&\n        & 9.851957e-01_rb,9.847618e-01_rb,9.843302e-01_rb,9.839008e-01_rb,9.834739e-01_rb,&\n        & 9.830494e-01_rb,9.826275e-01_rb,9.822083e-01_rb,9.817918e-01_rb,9.813782e-01_rb,&\n        & 9.809675e-01_rb,9.805598e-01_rb,9.801552e-01_rb,9.797538e-01_rb,9.793556e-01_rb,&\n        & 9.789608e-01_rb,9.785695e-01_rb,9.781817e-01_rb,9.777975e-01_rb,9.774171e-01_rb,&\n        & 9.770404e-01_rb,9.766676e-01_rb,9.762988e-01_rb,9.759340e-01_rb,9.755733e-01_rb,&\n        & 9.752169e-01_rb,9.748649e-01_rb,9.7452e-01_rb /)\n      ssaliq1(:, 22) = (/ &\n        & 9.994441e-01_rb,9.991608e-01_rb,9.988949e-01_rb,9.986439e-01_rb,9.984054e-01_rb,&\n        & 9.981768e-01_rb,9.979557e-01_rb,9.977396e-01_rb,9.975258e-01_rb,9.973120e-01_rb,&\n        & 9.971011e-01_rb,9.968852e-01_rb,9.966708e-01_rb,9.964578e-01_rb,9.962462e-01_rb,&\n        & 9.960357e-01_rb,9.958264e-01_rb,9.956181e-01_rb,9.954108e-01_rb,9.952043e-01_rb,&\n        & 9.949987e-01_rb,9.947937e-01_rb,9.945892e-01_rb,9.943853e-01_rb,9.941818e-01_rb,&\n        & 9.939786e-01_rb,9.937757e-01_rb,9.935728e-01_rb,9.933922e-01_rb,9.931825e-01_rb,&\n        & 9.929739e-01_rb,9.927661e-01_rb,9.925592e-01_rb,9.923534e-01_rb,9.921485e-01_rb,&\n        & 9.919447e-01_rb,9.917421e-01_rb,9.915406e-01_rb,9.913403e-01_rb,9.911412e-01_rb,&\n        & 9.909435e-01_rb,9.907470e-01_rb,9.905519e-01_rb,9.903581e-01_rb,9.901659e-01_rb,&\n        & 9.899751e-01_rb,9.897858e-01_rb,9.895981e-01_rb,9.894120e-01_rb,9.892276e-01_rb,&\n        & 9.890447e-01_rb,9.888637e-01_rb,9.886845e-01_rb,9.885070e-01_rb,9.883314e-01_rb,&\n        & 9.881576e-01_rb,9.879859e-01_rb,9.8782e-01_rb /)\n      ssaliq1(:, 23) = (/ &\n        & 9.999138e-01_rb,9.998730e-01_rb,9.998338e-01_rb,9.997965e-01_rb,9.997609e-01_rb,&\n        & 9.997270e-01_rb,9.996944e-01_rb,9.996629e-01_rb,9.996321e-01_rb,9.996016e-01_rb,&\n        & 9.995690e-01_rb,9.995372e-01_rb,9.995057e-01_rb,9.994744e-01_rb,9.994433e-01_rb,&\n        & 9.994124e-01_rb,9.993817e-01_rb,9.993510e-01_rb,9.993206e-01_rb,9.992903e-01_rb,&\n        & 9.992600e-01_rb,9.992299e-01_rb,9.991998e-01_rb,9.991698e-01_rb,9.991398e-01_rb,&\n        & 9.991098e-01_rb,9.990799e-01_rb,9.990499e-01_rb,9.990231e-01_rb,9.989920e-01_rb,&\n        & 9.989611e-01_rb,9.989302e-01_rb,9.988996e-01_rb,9.988690e-01_rb,9.988386e-01_rb,&\n        & 9.988084e-01_rb,9.987783e-01_rb,9.987485e-01_rb,9.987187e-01_rb,9.986891e-01_rb,&\n        & 9.986598e-01_rb,9.986306e-01_rb,9.986017e-01_rb,9.985729e-01_rb,9.985443e-01_rb,&\n        & 9.985160e-01_rb,9.984879e-01_rb,9.984600e-01_rb,9.984324e-01_rb,9.984050e-01_rb,&\n        & 9.983778e-01_rb,9.983509e-01_rb,9.983243e-01_rb,9.982980e-01_rb,9.982719e-01_rb,&\n        & 9.982461e-01_rb,9.982206e-01_rb,9.9820e-01_rb /)\n      ssaliq1(:, 24) = (/ &\n        & 9.999985e-01_rb,9.999979e-01_rb,9.999972e-01_rb,9.999966e-01_rb,9.999961e-01_rb,&\n        & 9.999955e-01_rb,9.999950e-01_rb,9.999944e-01_rb,9.999938e-01_rb,9.999933e-01_rb,&\n        & 9.999927e-01_rb,9.999921e-01_rb,9.999915e-01_rb,9.999910e-01_rb,9.999904e-01_rb,&\n        & 9.999899e-01_rb,9.999893e-01_rb,9.999888e-01_rb,9.999882e-01_rb,9.999877e-01_rb,&\n        & 9.999871e-01_rb,9.999866e-01_rb,9.999861e-01_rb,9.999855e-01_rb,9.999850e-01_rb,&\n        & 9.999844e-01_rb,9.999839e-01_rb,9.999833e-01_rb,9.999828e-01_rb,9.999823e-01_rb,&\n        & 9.999817e-01_rb,9.999812e-01_rb,9.999807e-01_rb,9.999801e-01_rb,9.999796e-01_rb,&\n        & 9.999791e-01_rb,9.999786e-01_rb,9.999781e-01_rb,9.999776e-01_rb,9.999770e-01_rb,&\n        & 9.999765e-01_rb,9.999761e-01_rb,9.999756e-01_rb,9.999751e-01_rb,9.999746e-01_rb,&\n        & 9.999741e-01_rb,9.999736e-01_rb,9.999732e-01_rb,9.999727e-01_rb,9.999722e-01_rb,&\n        & 9.999718e-01_rb,9.999713e-01_rb,9.999709e-01_rb,9.999705e-01_rb,9.999701e-01_rb,&\n        & 9.999697e-01_rb,9.999692e-01_rb,9.9997e-01_rb /)\n      ssaliq1(:, 25) = (/ &\n        & 9.999999e-01_rb,9.999998e-01_rb,9.999997e-01_rb,9.999997e-01_rb,9.999997e-01_rb,&\n        & 9.999996e-01_rb,9.999996e-01_rb,9.999995e-01_rb,9.999995e-01_rb,9.999994e-01_rb,&\n        & 9.999994e-01_rb,9.999993e-01_rb,9.999993e-01_rb,9.999992e-01_rb,9.999992e-01_rb,&\n        & 9.999991e-01_rb,9.999991e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&\n        & 9.999989e-01_rb,9.999989e-01_rb,9.999988e-01_rb,9.999988e-01_rb,9.999987e-01_rb,&\n        & 9.999987e-01_rb,9.999986e-01_rb,9.999986e-01_rb,9.999985e-01_rb,9.999985e-01_rb,&\n        & 9.999984e-01_rb,9.999984e-01_rb,9.999984e-01_rb,9.999983e-01_rb,9.999983e-01_rb,&\n        & 9.999982e-01_rb,9.999982e-01_rb,9.999982e-01_rb,9.999981e-01_rb,9.999980e-01_rb,&\n        & 9.999980e-01_rb,9.999980e-01_rb,9.999979e-01_rb,9.999979e-01_rb,9.999978e-01_rb,&\n        & 9.999978e-01_rb,9.999977e-01_rb,9.999977e-01_rb,9.999977e-01_rb,9.999976e-01_rb,&\n        & 9.999976e-01_rb,9.999975e-01_rb,9.999975e-01_rb,9.999974e-01_rb,9.999974e-01_rb,&\n        & 9.999974e-01_rb,9.999973e-01_rb,1.0000e+00_rb /)\n      ssaliq1(:, 26) = (/ &\n        & 9.999997e-01_rb,9.999995e-01_rb,9.999993e-01_rb,9.999992e-01_rb,9.999990e-01_rb,&\n        & 9.999989e-01_rb,9.999988e-01_rb,9.999987e-01_rb,9.999986e-01_rb,9.999985e-01_rb,&\n        & 9.999984e-01_rb,9.999983e-01_rb,9.999982e-01_rb,9.999981e-01_rb,9.999980e-01_rb,&\n        & 9.999978e-01_rb,9.999977e-01_rb,9.999976e-01_rb,9.999975e-01_rb,9.999974e-01_rb,&\n        & 9.999973e-01_rb,9.999972e-01_rb,9.999970e-01_rb,9.999969e-01_rb,9.999968e-01_rb,&\n        & 9.999967e-01_rb,9.999966e-01_rb,9.999965e-01_rb,9.999964e-01_rb,9.999963e-01_rb,&\n        & 9.999962e-01_rb,9.999961e-01_rb,9.999959e-01_rb,9.999958e-01_rb,9.999957e-01_rb,&\n        & 9.999956e-01_rb,9.999955e-01_rb,9.999954e-01_rb,9.999953e-01_rb,9.999952e-01_rb,&\n        & 9.999951e-01_rb,9.999949e-01_rb,9.999949e-01_rb,9.999947e-01_rb,9.999946e-01_rb,&\n        & 9.999945e-01_rb,9.999944e-01_rb,9.999943e-01_rb,9.999942e-01_rb,9.999941e-01_rb,&\n        & 9.999940e-01_rb,9.999939e-01_rb,9.999938e-01_rb,9.999937e-01_rb,9.999936e-01_rb,&\n        & 9.999935e-01_rb,9.999934e-01_rb,9.9999e-01_rb /)\n      ssaliq1(:, 27) = (/ &\n        & 9.999984e-01_rb,9.999976e-01_rb,9.999969e-01_rb,9.999962e-01_rb,9.999956e-01_rb,&\n        & 9.999950e-01_rb,9.999945e-01_rb,9.999940e-01_rb,9.999935e-01_rb,9.999931e-01_rb,&\n        & 9.999926e-01_rb,9.999920e-01_rb,9.999914e-01_rb,9.999908e-01_rb,9.999903e-01_rb,&\n        & 9.999897e-01_rb,9.999891e-01_rb,9.999886e-01_rb,9.999880e-01_rb,9.999874e-01_rb,&\n        & 9.999868e-01_rb,9.999863e-01_rb,9.999857e-01_rb,9.999851e-01_rb,9.999846e-01_rb,&\n        & 9.999840e-01_rb,9.999835e-01_rb,9.999829e-01_rb,9.999824e-01_rb,9.999818e-01_rb,&\n        & 9.999812e-01_rb,9.999806e-01_rb,9.999800e-01_rb,9.999795e-01_rb,9.999789e-01_rb,&\n        & 9.999783e-01_rb,9.999778e-01_rb,9.999773e-01_rb,9.999767e-01_rb,9.999761e-01_rb,&\n        & 9.999756e-01_rb,9.999750e-01_rb,9.999745e-01_rb,9.999739e-01_rb,9.999734e-01_rb,&\n        & 9.999729e-01_rb,9.999723e-01_rb,9.999718e-01_rb,9.999713e-01_rb,9.999708e-01_rb,&\n        & 9.999703e-01_rb,9.999697e-01_rb,9.999692e-01_rb,9.999687e-01_rb,9.999683e-01_rb,&\n        & 9.999678e-01_rb,9.999673e-01_rb,9.9997e-01_rb /)\n      ssaliq1(:, 28) = (/ &\n        & 9.999981e-01_rb,9.999973e-01_rb,9.999965e-01_rb,9.999958e-01_rb,9.999951e-01_rb,&\n        & 9.999943e-01_rb,9.999937e-01_rb,9.999930e-01_rb,9.999924e-01_rb,9.999918e-01_rb,&\n        & 9.999912e-01_rb,9.999905e-01_rb,9.999897e-01_rb,9.999890e-01_rb,9.999883e-01_rb,&\n        & 9.999876e-01_rb,9.999869e-01_rb,9.999862e-01_rb,9.999855e-01_rb,9.999847e-01_rb,&\n        & 9.999840e-01_rb,9.999834e-01_rb,9.999827e-01_rb,9.999819e-01_rb,9.999812e-01_rb,&\n        & 9.999805e-01_rb,9.999799e-01_rb,9.999791e-01_rb,9.999785e-01_rb,9.999778e-01_rb,&\n        & 9.999771e-01_rb,9.999764e-01_rb,9.999757e-01_rb,9.999750e-01_rb,9.999743e-01_rb,&\n        & 9.999736e-01_rb,9.999729e-01_rb,9.999722e-01_rb,9.999715e-01_rb,9.999709e-01_rb,&\n        & 9.999701e-01_rb,9.999695e-01_rb,9.999688e-01_rb,9.999682e-01_rb,9.999675e-01_rb,&\n        & 9.999669e-01_rb,9.999662e-01_rb,9.999655e-01_rb,9.999649e-01_rb,9.999642e-01_rb,&\n        & 9.999636e-01_rb,9.999630e-01_rb,9.999624e-01_rb,9.999618e-01_rb,9.999612e-01_rb,&\n        & 9.999606e-01_rb,9.999600e-01_rb,9.9996e-01_rb /)\n      ssaliq1(:, 29) = (/ &\n        & 8.505737e-01_rb,8.465102e-01_rb,8.394829e-01_rb,8.279508e-01_rb,8.110806e-01_rb,&\n        & 7.900397e-01_rb,7.669615e-01_rb,7.444422e-01_rb,7.253055e-01_rb,7.124831e-01_rb,&\n        & 7.016434e-01_rb,6.885485e-01_rb,6.767340e-01_rb,6.661029e-01_rb,6.565577e-01_rb,&\n        & 6.480013e-01_rb,6.403373e-01_rb,6.334697e-01_rb,6.273034e-01_rb,6.217440e-01_rb,&\n        & 6.166983e-01_rb,6.120740e-01_rb,6.077796e-01_rb,6.037249e-01_rb,5.998207e-01_rb,&\n        & 5.959788e-01_rb,5.921123e-01_rb,5.881354e-01_rb,5.891285e-01_rb,5.851143e-01_rb,&\n        & 5.814653e-01_rb,5.781606e-01_rb,5.751792e-01_rb,5.724998e-01_rb,5.701016e-01_rb,&\n        & 5.679634e-01_rb,5.660642e-01_rb,5.643829e-01_rb,5.628984e-01_rb,5.615898e-01_rb,&\n        & 5.604359e-01_rb,5.594158e-01_rb,5.585083e-01_rb,5.576924e-01_rb,5.569470e-01_rb,&\n        & 5.562512e-01_rb,5.555838e-01_rb,5.549239e-01_rb,5.542503e-01_rb,5.535420e-01_rb,&\n        & 5.527781e-01_rb,5.519374e-01_rb,5.509989e-01_rb,5.499417e-01_rb,5.487445e-01_rb,&\n        & 5.473865e-01_rb,5.458466e-01_rb,5.4410e-01_rb /)\n\n! asymmetry parameter\n      asyliq1(:, 16) = (/ &\n        & 8.133297e-01_rb,8.133528e-01_rb,8.173865e-01_rb,8.243205e-01_rb,8.333063e-01_rb,&\n        & 8.436317e-01_rb,8.546611e-01_rb,8.657934e-01_rb,8.764345e-01_rb,8.859837e-01_rb,&\n        & 8.627394e-01_rb,8.824569e-01_rb,8.976887e-01_rb,9.089541e-01_rb,9.167699e-01_rb,&\n        & 9.216517e-01_rb,9.241147e-01_rb,9.246743e-01_rb,9.238469e-01_rb,9.221504e-01_rb,&\n        & 9.201045e-01_rb,9.182299e-01_rb,9.170491e-01_rb,9.170862e-01_rb,9.188653e-01_rb,&\n        & 9.229111e-01_rb,9.297468e-01_rb,9.398950e-01_rb,9.203269e-01_rb,9.260693e-01_rb,&\n        & 9.309373e-01_rb,9.349918e-01_rb,9.382935e-01_rb,9.409030e-01_rb,9.428809e-01_rb,&\n        & 9.442881e-01_rb,9.451851e-01_rb,9.456331e-01_rb,9.456926e-01_rb,9.454247e-01_rb,&\n        & 9.448902e-01_rb,9.441503e-01_rb,9.432661e-01_rb,9.422987e-01_rb,9.413094e-01_rb,&\n        & 9.403594e-01_rb,9.395102e-01_rb,9.388230e-01_rb,9.383594e-01_rb,9.381810e-01_rb,&\n        & 9.383489e-01_rb,9.389251e-01_rb,9.399707e-01_rb,9.415475e-01_rb,9.437167e-01_rb,&\n        & 9.465399e-01_rb,9.500786e-01_rb,9.5439e-01_rb /)\n      asyliq1(:, 17) = (/ &\n        & 8.794448e-01_rb,8.819306e-01_rb,8.837667e-01_rb,8.853832e-01_rb,8.871010e-01_rb,&\n        & 8.892675e-01_rb,8.922584e-01_rb,8.964666e-01_rb,9.022940e-01_rb,9.101456e-01_rb,&\n        & 8.839999e-01_rb,9.035610e-01_rb,9.184568e-01_rb,9.292315e-01_rb,9.364282e-01_rb,&\n        & 9.405887e-01_rb,9.422554e-01_rb,9.419703e-01_rb,9.402759e-01_rb,9.377159e-01_rb,&\n        & 9.348345e-01_rb,9.321769e-01_rb,9.302888e-01_rb,9.297166e-01_rb,9.310075e-01_rb,&\n        & 9.347080e-01_rb,9.413643e-01_rb,9.515216e-01_rb,9.306286e-01_rb,9.361781e-01_rb,&\n        & 9.408374e-01_rb,9.446692e-01_rb,9.477363e-01_rb,9.501013e-01_rb,9.518268e-01_rb,&\n        & 9.529756e-01_rb,9.536105e-01_rb,9.537938e-01_rb,9.535886e-01_rb,9.530574e-01_rb,&\n        & 9.522633e-01_rb,9.512688e-01_rb,9.501370e-01_rb,9.489306e-01_rb,9.477126e-01_rb,&\n        & 9.465459e-01_rb,9.454934e-01_rb,9.446183e-01_rb,9.439833e-01_rb,9.436519e-01_rb,&\n        & 9.436866e-01_rb,9.441508e-01_rb,9.451073e-01_rb,9.466195e-01_rb,9.487501e-01_rb,&\n        & 9.515621e-01_rb,9.551185e-01_rb,9.5948e-01_rb /)\n      asyliq1(:, 18) = (/ &\n        & 8.478817e-01_rb,8.269312e-01_rb,8.161352e-01_rb,8.135960e-01_rb,8.173586e-01_rb,&\n        & 8.254167e-01_rb,8.357072e-01_rb,8.461167e-01_rb,8.544952e-01_rb,8.586776e-01_rb,&\n        & 8.335562e-01_rb,8.524273e-01_rb,8.669052e-01_rb,8.775014e-01_rb,8.847277e-01_rb,&\n        & 8.890958e-01_rb,8.911173e-01_rb,8.913038e-01_rb,8.901669e-01_rb,8.882182e-01_rb,&\n        & 8.859692e-01_rb,8.839315e-01_rb,8.826164e-01_rb,8.825356e-01_rb,8.842004e-01_rb,&\n        & 8.881223e-01_rb,8.948131e-01_rb,9.047837e-01_rb,8.855951e-01_rb,8.911796e-01_rb,&\n        & 8.959229e-01_rb,8.998837e-01_rb,9.031209e-01_rb,9.056939e-01_rb,9.076609e-01_rb,&\n        & 9.090812e-01_rb,9.100134e-01_rb,9.105167e-01_rb,9.106496e-01_rb,9.104712e-01_rb,&\n        & 9.100404e-01_rb,9.094159e-01_rb,9.086568e-01_rb,9.078218e-01_rb,9.069697e-01_rb,&\n        & 9.061595e-01_rb,9.054499e-01_rb,9.048999e-01_rb,9.045683e-01_rb,9.045142e-01_rb,&\n        & 9.047962e-01_rb,9.054730e-01_rb,9.066037e-01_rb,9.082472e-01_rb,9.104623e-01_rb,&\n        & 9.133079e-01_rb,9.168427e-01_rb,9.2113e-01_rb /)\n      asyliq1(:, 19) = (/ &\n        & 8.216697e-01_rb,7.982871e-01_rb,7.891147e-01_rb,7.909083e-01_rb,8.003833e-01_rb,&\n        & 8.142516e-01_rb,8.292290e-01_rb,8.420356e-01_rb,8.493945e-01_rb,8.480316e-01_rb,&\n        & 8.212381e-01_rb,8.394984e-01_rb,8.534095e-01_rb,8.634813e-01_rb,8.702242e-01_rb,&\n        & 8.741483e-01_rb,8.757638e-01_rb,8.755808e-01_rb,8.741095e-01_rb,8.718604e-01_rb,&\n        & 8.693433e-01_rb,8.670686e-01_rb,8.655464e-01_rb,8.652872e-01_rb,8.668006e-01_rb,&\n        & 8.705973e-01_rb,8.771874e-01_rb,8.870809e-01_rb,8.678284e-01_rb,8.732315e-01_rb,&\n        & 8.778084e-01_rb,8.816166e-01_rb,8.847146e-01_rb,8.871603e-01_rb,8.890116e-01_rb,&\n        & 8.903266e-01_rb,8.911632e-01_rb,8.915796e-01_rb,8.916337e-01_rb,8.913834e-01_rb,&\n        & 8.908869e-01_rb,8.902022e-01_rb,8.893873e-01_rb,8.885001e-01_rb,8.875986e-01_rb,&\n        & 8.867411e-01_rb,8.859852e-01_rb,8.853891e-01_rb,8.850111e-01_rb,8.849089e-01_rb,&\n        & 8.851405e-01_rb,8.857639e-01_rb,8.868372e-01_rb,8.884185e-01_rb,8.905656e-01_rb,&\n        & 8.933368e-01_rb,8.967899e-01_rb,9.0098e-01_rb /)\n      asyliq1(:, 20) = (/ &\n        & 8.063610e-01_rb,7.938147e-01_rb,7.921304e-01_rb,7.985092e-01_rb,8.101339e-01_rb,&\n        & 8.242175e-01_rb,8.379913e-01_rb,8.486920e-01_rb,8.535547e-01_rb,8.498083e-01_rb,&\n        & 8.224849e-01_rb,8.405509e-01_rb,8.542436e-01_rb,8.640770e-01_rb,8.705653e-01_rb,&\n        & 8.742227e-01_rb,8.755630e-01_rb,8.751004e-01_rb,8.733491e-01_rb,8.708231e-01_rb,&\n        & 8.680365e-01_rb,8.655035e-01_rb,8.637381e-01_rb,8.632544e-01_rb,8.645665e-01_rb,&\n        & 8.681885e-01_rb,8.746346e-01_rb,8.844188e-01_rb,8.648180e-01_rb,8.700563e-01_rb,&\n        & 8.744672e-01_rb,8.781087e-01_rb,8.810393e-01_rb,8.833174e-01_rb,8.850011e-01_rb,&\n        & 8.861485e-01_rb,8.868183e-01_rb,8.870687e-01_rb,8.869579e-01_rb,8.865441e-01_rb,&\n        & 8.858857e-01_rb,8.850412e-01_rb,8.840686e-01_rb,8.830263e-01_rb,8.819726e-01_rb,&\n        & 8.809658e-01_rb,8.800642e-01_rb,8.793260e-01_rb,8.788099e-01_rb,8.785737e-01_rb,&\n        & 8.786758e-01_rb,8.791746e-01_rb,8.801283e-01_rb,8.815955e-01_rb,8.836340e-01_rb,&\n        & 8.863024e-01_rb,8.896592e-01_rb,8.9376e-01_rb /)\n      asyliq1(:, 21) = (/ &\n        & 7.885899e-01_rb,7.937172e-01_rb,8.020658e-01_rb,8.123971e-01_rb,8.235502e-01_rb,&\n        & 8.343776e-01_rb,8.437336e-01_rb,8.504711e-01_rb,8.534421e-01_rb,8.514978e-01_rb,&\n        & 8.238888e-01_rb,8.417463e-01_rb,8.552057e-01_rb,8.647853e-01_rb,8.710038e-01_rb,&\n        & 8.743798e-01_rb,8.754319e-01_rb,8.746786e-01_rb,8.726386e-01_rb,8.698303e-01_rb,&\n        & 8.667724e-01_rb,8.639836e-01_rb,8.619823e-01_rb,8.612870e-01_rb,8.624165e-01_rb,&\n        & 8.658893e-01_rb,8.722241e-01_rb,8.819394e-01_rb,8.620216e-01_rb,8.671239e-01_rb,&\n        & 8.713983e-01_rb,8.749032e-01_rb,8.776970e-01_rb,8.798385e-01_rb,8.813860e-01_rb,&\n        & 8.823980e-01_rb,8.829332e-01_rb,8.830500e-01_rb,8.828068e-01_rb,8.822623e-01_rb,&\n        & 8.814750e-01_rb,8.805031e-01_rb,8.794056e-01_rb,8.782407e-01_rb,8.770672e-01_rb,&\n        & 8.759432e-01_rb,8.749275e-01_rb,8.740784e-01_rb,8.734547e-01_rb,8.731146e-01_rb,&\n        & 8.731170e-01_rb,8.735199e-01_rb,8.743823e-01_rb,8.757625e-01_rb,8.777191e-01_rb,&\n        & 8.803105e-01_rb,8.835953e-01_rb,8.8763e-01_rb /)\n      asyliq1(:, 22) = (/ &\n        & 7.811516e-01_rb,7.962229e-01_rb,8.096199e-01_rb,8.212996e-01_rb,8.312212e-01_rb,&\n        & 8.393430e-01_rb,8.456236e-01_rb,8.500214e-01_rb,8.524950e-01_rb,8.530031e-01_rb,&\n        & 8.251485e-01_rb,8.429043e-01_rb,8.562461e-01_rb,8.656954e-01_rb,8.717737e-01_rb,&\n        & 8.750020e-01_rb,8.759022e-01_rb,8.749953e-01_rb,8.728027e-01_rb,8.698461e-01_rb,&\n        & 8.666466e-01_rb,8.637257e-01_rb,8.616047e-01_rb,8.608051e-01_rb,8.618483e-01_rb,&\n        & 8.652557e-01_rb,8.715487e-01_rb,8.812485e-01_rb,8.611645e-01_rb,8.662052e-01_rb,&\n        & 8.704173e-01_rb,8.738594e-01_rb,8.765901e-01_rb,8.786678e-01_rb,8.801517e-01_rb,&\n        & 8.810999e-01_rb,8.815713e-01_rb,8.816246e-01_rb,8.813185e-01_rb,8.807114e-01_rb,&\n        & 8.798621e-01_rb,8.788290e-01_rb,8.776713e-01_rb,8.764470e-01_rb,8.752152e-01_rb,&\n        & 8.740343e-01_rb,8.729631e-01_rb,8.720602e-01_rb,8.713842e-01_rb,8.709936e-01_rb,&\n        & 8.709475e-01_rb,8.713041e-01_rb,8.721221e-01_rb,8.734602e-01_rb,8.753774e-01_rb,&\n        & 8.779319e-01_rb,8.811825e-01_rb,8.8519e-01_rb /)\n      asyliq1(:, 23) = (/ &\n        & 7.865744e-01_rb,8.093340e-01_rb,8.257596e-01_rb,8.369940e-01_rb,8.441574e-01_rb,&\n        & 8.483602e-01_rb,8.507096e-01_rb,8.523139e-01_rb,8.542834e-01_rb,8.577321e-01_rb,&\n        & 8.288960e-01_rb,8.465308e-01_rb,8.597175e-01_rb,8.689830e-01_rb,8.748542e-01_rb,&\n        & 8.778584e-01_rb,8.785222e-01_rb,8.773728e-01_rb,8.749370e-01_rb,8.717419e-01_rb,&\n        & 8.683145e-01_rb,8.651816e-01_rb,8.628704e-01_rb,8.619077e-01_rb,8.628205e-01_rb,&\n        & 8.661356e-01_rb,8.723803e-01_rb,8.820815e-01_rb,8.616715e-01_rb,8.666389e-01_rb,&\n        & 8.707753e-01_rb,8.741398e-01_rb,8.767912e-01_rb,8.787885e-01_rb,8.801908e-01_rb,&\n        & 8.810570e-01_rb,8.814460e-01_rb,8.814167e-01_rb,8.810283e-01_rb,8.803395e-01_rb,&\n        & 8.794095e-01_rb,8.782971e-01_rb,8.770613e-01_rb,8.757610e-01_rb,8.744553e-01_rb,&\n        & 8.732031e-01_rb,8.720634e-01_rb,8.710951e-01_rb,8.703572e-01_rb,8.699086e-01_rb,&\n        & 8.698084e-01_rb,8.701155e-01_rb,8.708887e-01_rb,8.721872e-01_rb,8.740698e-01_rb,&\n        & 8.765957e-01_rb,8.798235e-01_rb,8.8381e-01_rb /)\n      asyliq1(:, 24) = (/ &\n        & 8.069513e-01_rb,8.262939e-01_rb,8.398241e-01_rb,8.486352e-01_rb,8.538213e-01_rb,&\n        & 8.564743e-01_rb,8.576854e-01_rb,8.585455e-01_rb,8.601452e-01_rb,8.635755e-01_rb,&\n        & 8.337383e-01_rb,8.512655e-01_rb,8.643049e-01_rb,8.733896e-01_rb,8.790535e-01_rb,&\n        & 8.818295e-01_rb,8.822518e-01_rb,8.808533e-01_rb,8.781676e-01_rb,8.747284e-01_rb,&\n        & 8.710690e-01_rb,8.677229e-01_rb,8.652236e-01_rb,8.641047e-01_rb,8.648993e-01_rb,&\n        & 8.681413e-01_rb,8.743640e-01_rb,8.841007e-01_rb,8.633558e-01_rb,8.682719e-01_rb,&\n        & 8.723543e-01_rb,8.756621e-01_rb,8.782547e-01_rb,8.801915e-01_rb,8.815318e-01_rb,&\n        & 8.823347e-01_rb,8.826598e-01_rb,8.825663e-01_rb,8.821135e-01_rb,8.813608e-01_rb,&\n        & 8.803674e-01_rb,8.791928e-01_rb,8.778960e-01_rb,8.765366e-01_rb,8.751738e-01_rb,&\n        & 8.738670e-01_rb,8.726755e-01_rb,8.716585e-01_rb,8.708755e-01_rb,8.703856e-01_rb,&\n        & 8.702483e-01_rb,8.705229e-01_rb,8.712687e-01_rb,8.725448e-01_rb,8.744109e-01_rb,&\n        & 8.769260e-01_rb,8.801496e-01_rb,8.8414e-01_rb /)\n      asyliq1(:, 25) = (/ &\n        & 8.252182e-01_rb,8.379244e-01_rb,8.471709e-01_rb,8.535760e-01_rb,8.577540e-01_rb,&\n        & 8.603183e-01_rb,8.618820e-01_rb,8.630578e-01_rb,8.644587e-01_rb,8.666970e-01_rb,&\n        & 8.362159e-01_rb,8.536817e-01_rb,8.666387e-01_rb,8.756240e-01_rb,8.811746e-01_rb,&\n        & 8.838273e-01_rb,8.841191e-01_rb,8.825871e-01_rb,8.797681e-01_rb,8.761992e-01_rb,&\n        & 8.724174e-01_rb,8.689593e-01_rb,8.663623e-01_rb,8.651632e-01_rb,8.658988e-01_rb,&\n        & 8.691064e-01_rb,8.753226e-01_rb,8.850847e-01_rb,8.641620e-01_rb,8.690500e-01_rb,&\n        & 8.731026e-01_rb,8.763795e-01_rb,8.789400e-01_rb,8.808438e-01_rb,8.821503e-01_rb,&\n        & 8.829191e-01_rb,8.832095e-01_rb,8.830813e-01_rb,8.825938e-01_rb,8.818064e-01_rb,&\n        & 8.807787e-01_rb,8.795704e-01_rb,8.782408e-01_rb,8.768493e-01_rb,8.754557e-01_rb,&\n        & 8.741193e-01_rb,8.728995e-01_rb,8.718561e-01_rb,8.710484e-01_rb,8.705360e-01_rb,&\n        & 8.703782e-01_rb,8.706347e-01_rb,8.713650e-01_rb,8.726285e-01_rb,8.744849e-01_rb,&\n        & 8.769933e-01_rb,8.802136e-01_rb,8.8421e-01_rb /)\n      asyliq1(:, 26) = (/ &\n        & 8.370583e-01_rb,8.467920e-01_rb,8.537769e-01_rb,8.585136e-01_rb,8.615034e-01_rb,&\n        & 8.632474e-01_rb,8.642468e-01_rb,8.650026e-01_rb,8.660161e-01_rb,8.677882e-01_rb,&\n        & 8.369760e-01_rb,8.543821e-01_rb,8.672699e-01_rb,8.761782e-01_rb,8.816454e-01_rb,&\n        & 8.842103e-01_rb,8.844114e-01_rb,8.827872e-01_rb,8.798766e-01_rb,8.762179e-01_rb,&\n        & 8.723500e-01_rb,8.688112e-01_rb,8.661403e-01_rb,8.648758e-01_rb,8.655563e-01_rb,&\n        & 8.687206e-01_rb,8.749072e-01_rb,8.846546e-01_rb,8.636289e-01_rb,8.684849e-01_rb,&\n        & 8.725054e-01_rb,8.757501e-01_rb,8.782785e-01_rb,8.801503e-01_rb,8.814249e-01_rb,&\n        & 8.821620e-01_rb,8.824211e-01_rb,8.822620e-01_rb,8.817440e-01_rb,8.809268e-01_rb,&\n        & 8.798699e-01_rb,8.786330e-01_rb,8.772756e-01_rb,8.758572e-01_rb,8.744374e-01_rb,&\n        & 8.730760e-01_rb,8.718323e-01_rb,8.707660e-01_rb,8.699366e-01_rb,8.694039e-01_rb,&\n        & 8.692271e-01_rb,8.694661e-01_rb,8.701803e-01_rb,8.714293e-01_rb,8.732727e-01_rb,&\n        & 8.757702e-01_rb,8.789811e-01_rb,8.8297e-01_rb /)\n      asyliq1(:, 27) = (/ &\n        & 8.430819e-01_rb,8.510060e-01_rb,8.567270e-01_rb,8.606533e-01_rb,8.631934e-01_rb,&\n        & 8.647554e-01_rb,8.657471e-01_rb,8.665760e-01_rb,8.676496e-01_rb,8.693754e-01_rb,&\n        & 8.384298e-01_rb,8.557913e-01_rb,8.686214e-01_rb,8.774605e-01_rb,8.828495e-01_rb,&\n        & 8.853287e-01_rb,8.854393e-01_rb,8.837215e-01_rb,8.807161e-01_rb,8.769639e-01_rb,&\n        & 8.730053e-01_rb,8.693812e-01_rb,8.666321e-01_rb,8.652988e-01_rb,8.659219e-01_rb,&\n        & 8.690419e-01_rb,8.751999e-01_rb,8.849360e-01_rb,8.638013e-01_rb,8.686371e-01_rb,&\n        & 8.726369e-01_rb,8.758605e-01_rb,8.783674e-01_rb,8.802176e-01_rb,8.814705e-01_rb,&\n        & 8.821859e-01_rb,8.824234e-01_rb,8.822429e-01_rb,8.817038e-01_rb,8.808658e-01_rb,&\n        & 8.797887e-01_rb,8.785323e-01_rb,8.771560e-01_rb,8.757196e-01_rb,8.742828e-01_rb,&\n        & 8.729052e-01_rb,8.716467e-01_rb,8.705666e-01_rb,8.697250e-01_rb,8.691812e-01_rb,&\n        & 8.689950e-01_rb,8.692264e-01_rb,8.699346e-01_rb,8.711795e-01_rb,8.730209e-01_rb,&\n        & 8.755181e-01_rb,8.787312e-01_rb,8.8272e-01_rb /)\n      asyliq1(:, 28) = (/ &\n        & 8.452284e-01_rb,8.522700e-01_rb,8.572973e-01_rb,8.607031e-01_rb,8.628802e-01_rb,&\n        & 8.642215e-01_rb,8.651198e-01_rb,8.659679e-01_rb,8.671588e-01_rb,8.690853e-01_rb,&\n        & 8.383803e-01_rb,8.557485e-01_rb,8.685851e-01_rb,8.774303e-01_rb,8.828245e-01_rb,&\n        & 8.853077e-01_rb,8.854207e-01_rb,8.837034e-01_rb,8.806962e-01_rb,8.769398e-01_rb,&\n        & 8.729740e-01_rb,8.693393e-01_rb,8.665761e-01_rb,8.652247e-01_rb,8.658253e-01_rb,&\n        & 8.689182e-01_rb,8.750438e-01_rb,8.847424e-01_rb,8.636140e-01_rb,8.684449e-01_rb,&\n        & 8.724400e-01_rb,8.756589e-01_rb,8.781613e-01_rb,8.800072e-01_rb,8.812559e-01_rb,&\n        & 8.819671e-01_rb,8.822007e-01_rb,8.820165e-01_rb,8.814737e-01_rb,8.806322e-01_rb,&\n        & 8.795518e-01_rb,8.782923e-01_rb,8.769129e-01_rb,8.754737e-01_rb,8.740342e-01_rb,&\n        & 8.726542e-01_rb,8.713934e-01_rb,8.703111e-01_rb,8.694677e-01_rb,8.689222e-01_rb,&\n        & 8.687344e-01_rb,8.689646e-01_rb,8.696715e-01_rb,8.709156e-01_rb,8.727563e-01_rb,&\n        & 8.752531e-01_rb,8.784659e-01_rb,8.8245e-01_rb /)\n      asyliq1(:, 29) = (/ &\n        & 7.800869e-01_rb,8.091120e-01_rb,8.325369e-01_rb,8.466266e-01_rb,8.515495e-01_rb,&\n        & 8.499371e-01_rb,8.456203e-01_rb,8.430521e-01_rb,8.470286e-01_rb,8.625431e-01_rb,&\n        & 8.402261e-01_rb,8.610822e-01_rb,8.776608e-01_rb,8.904485e-01_rb,8.999294e-01_rb,&\n        & 9.065860e-01_rb,9.108995e-01_rb,9.133503e-01_rb,9.144187e-01_rb,9.145855e-01_rb,&\n        & 9.143320e-01_rb,9.141402e-01_rb,9.144933e-01_rb,9.158754e-01_rb,9.187716e-01_rb,&\n        & 9.236677e-01_rb,9.310503e-01_rb,9.414058e-01_rb,9.239108e-01_rb,9.300719e-01_rb,&\n        & 9.353612e-01_rb,9.398378e-01_rb,9.435609e-01_rb,9.465895e-01_rb,9.489829e-01_rb,&\n        & 9.508000e-01_rb,9.521002e-01_rb,9.529424e-01_rb,9.533860e-01_rb,9.534902e-01_rb,&\n        & 9.533143e-01_rb,9.529177e-01_rb,9.523596e-01_rb,9.516997e-01_rb,9.509973e-01_rb,&\n        & 9.503121e-01_rb,9.497037e-01_rb,9.492317e-01_rb,9.489558e-01_rb,9.489356e-01_rb,&\n        & 9.492311e-01_rb,9.499019e-01_rb,9.510077e-01_rb,9.526084e-01_rb,9.547636e-01_rb,&\n        & 9.575331e-01_rb,9.609766e-01_rb,9.6515e-01_rb /)\n\n! Spherical Ice Particle Parameterization\n! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]\n      extice2(:, 16) = (/ &\n! band 16\n        & 4.101824e-01_rb,2.435514e-01_rb,1.713697e-01_rb,1.314865e-01_rb,1.063406e-01_rb,&\n        & 8.910701e-02_rb,7.659480e-02_rb,6.711784e-02_rb,5.970353e-02_rb,5.375249e-02_rb,&\n        & 4.887577e-02_rb,4.481025e-02_rb,4.137171e-02_rb,3.842744e-02_rb,3.587948e-02_rb,&\n        & 3.365396e-02_rb,3.169419e-02_rb,2.995593e-02_rb,2.840419e-02_rb,2.701091e-02_rb,&\n        & 2.575336e-02_rb,2.461293e-02_rb,2.357423e-02_rb,2.262443e-02_rb,2.175276e-02_rb,&\n        & 2.095012e-02_rb,2.020875e-02_rb,1.952199e-02_rb,1.888412e-02_rb,1.829018e-02_rb,&\n        & 1.773586e-02_rb,1.721738e-02_rb,1.673144e-02_rb,1.627510e-02_rb,1.584579e-02_rb,&\n        & 1.544122e-02_rb,1.505934e-02_rb,1.469833e-02_rb,1.435654e-02_rb,1.403251e-02_rb,&\n        & 1.372492e-02_rb,1.343255e-02_rb,1.315433e-02_rb /)\n      extice2(:, 17) = (/ &\n! band 17\n        & 3.836650e-01_rb,2.304055e-01_rb,1.637265e-01_rb,1.266681e-01_rb,1.031602e-01_rb,&\n        & 8.695191e-02_rb,7.511544e-02_rb,6.610009e-02_rb,5.900909e-02_rb,5.328833e-02_rb,&\n        & 4.857728e-02_rb,4.463133e-02_rb,4.127880e-02_rb,3.839567e-02_rb,3.589013e-02_rb,&\n        & 3.369280e-02_rb,3.175027e-02_rb,3.002079e-02_rb,2.847121e-02_rb,2.707493e-02_rb,&\n        & 2.581031e-02_rb,2.465962e-02_rb,2.360815e-02_rb,2.264363e-02_rb,2.175571e-02_rb,&\n        & 2.093563e-02_rb,2.017592e-02_rb,1.947015e-02_rb,1.881278e-02_rb,1.819901e-02_rb,&\n        & 1.762463e-02_rb,1.708598e-02_rb,1.657982e-02_rb,1.610330e-02_rb,1.565390e-02_rb,&\n        & 1.522937e-02_rb,1.482768e-02_rb,1.444706e-02_rb,1.408588e-02_rb,1.374270e-02_rb,&\n        & 1.341619e-02_rb,1.310517e-02_rb,1.280857e-02_rb /)\n      extice2(:, 18) = (/ &\n! band 18\n        & 4.152673e-01_rb,2.436816e-01_rb,1.702243e-01_rb,1.299704e-01_rb,1.047528e-01_rb,&\n        & 8.756039e-02_rb,7.513327e-02_rb,6.575690e-02_rb,5.844616e-02_rb,5.259609e-02_rb,&\n        & 4.781531e-02_rb,4.383980e-02_rb,4.048517e-02_rb,3.761891e-02_rb,3.514342e-02_rb,&\n        & 3.298525e-02_rb,3.108814e-02_rb,2.940825e-02_rb,2.791096e-02_rb,2.656858e-02_rb,&\n        & 2.535869e-02_rb,2.426297e-02_rb,2.326627e-02_rb,2.235602e-02_rb,2.152164e-02_rb,&\n        & 2.075420e-02_rb,2.004613e-02_rb,1.939091e-02_rb,1.878296e-02_rb,1.821744e-02_rb,&\n        & 1.769015e-02_rb,1.719741e-02_rb,1.673600e-02_rb,1.630308e-02_rb,1.589615e-02_rb,&\n        & 1.551298e-02_rb,1.515159e-02_rb,1.481021e-02_rb,1.448726e-02_rb,1.418131e-02_rb,&\n        & 1.389109e-02_rb,1.361544e-02_rb,1.335330e-02_rb /)\n      extice2(:, 19) = (/ &\n! band 19\n        & 3.873250e-01_rb,2.331609e-01_rb,1.655002e-01_rb,1.277753e-01_rb,1.038247e-01_rb,&\n        & 8.731780e-02_rb,7.527638e-02_rb,6.611873e-02_rb,5.892850e-02_rb,5.313885e-02_rb,&\n        & 4.838068e-02_rb,4.440356e-02_rb,4.103167e-02_rb,3.813804e-02_rb,3.562870e-02_rb,&\n        & 3.343269e-02_rb,3.149539e-02_rb,2.977414e-02_rb,2.823510e-02_rb,2.685112e-02_rb,&\n        & 2.560015e-02_rb,2.446411e-02_rb,2.342805e-02_rb,2.247948e-02_rb,2.160789e-02_rb,&\n        & 2.080438e-02_rb,2.006139e-02_rb,1.937238e-02_rb,1.873177e-02_rb,1.813469e-02_rb,&\n        & 1.757689e-02_rb,1.705468e-02_rb,1.656479e-02_rb,1.610435e-02_rb,1.567081e-02_rb,&\n        & 1.526192e-02_rb,1.487565e-02_rb,1.451020e-02_rb,1.416396e-02_rb,1.383546e-02_rb,&\n        & 1.352339e-02_rb,1.322657e-02_rb,1.294392e-02_rb /)\n      extice2(:, 20) = (/ &\n! band 20\n        & 3.784280e-01_rb,2.291396e-01_rb,1.632551e-01_rb,1.263775e-01_rb,1.028944e-01_rb,&\n        & 8.666975e-02_rb,7.480952e-02_rb,6.577335e-02_rb,5.866714e-02_rb,5.293694e-02_rb,&\n        & 4.822153e-02_rb,4.427547e-02_rb,4.092626e-02_rb,3.804918e-02_rb,3.555184e-02_rb,&\n        & 3.336440e-02_rb,3.143307e-02_rb,2.971577e-02_rb,2.817912e-02_rb,2.679632e-02_rb,&\n        & 2.554558e-02_rb,2.440903e-02_rb,2.337187e-02_rb,2.242173e-02_rb,2.154821e-02_rb,&\n        & 2.074249e-02_rb,1.999706e-02_rb,1.930546e-02_rb,1.866212e-02_rb,1.806221e-02_rb,&\n        & 1.750152e-02_rb,1.697637e-02_rb,1.648352e-02_rb,1.602010e-02_rb,1.558358e-02_rb,&\n        & 1.517172e-02_rb,1.478250e-02_rb,1.441413e-02_rb,1.406498e-02_rb,1.373362e-02_rb,&\n        & 1.341872e-02_rb,1.311911e-02_rb,1.283371e-02_rb /)\n      extice2(:, 21) = (/ &\n! band 21\n        & 3.719909e-01_rb,2.259490e-01_rb,1.613144e-01_rb,1.250648e-01_rb,1.019462e-01_rb,&\n        & 8.595358e-02_rb,7.425064e-02_rb,6.532618e-02_rb,5.830218e-02_rb,5.263421e-02_rb,&\n        & 4.796697e-02_rb,4.405891e-02_rb,4.074013e-02_rb,3.788776e-02_rb,3.541071e-02_rb,&\n        & 3.324008e-02_rb,3.132280e-02_rb,2.961733e-02_rb,2.809071e-02_rb,2.671645e-02_rb,&\n        & 2.547302e-02_rb,2.434276e-02_rb,2.331102e-02_rb,2.236558e-02_rb,2.149614e-02_rb,&\n        & 2.069397e-02_rb,1.995163e-02_rb,1.926272e-02_rb,1.862174e-02_rb,1.802389e-02_rb,&\n        & 1.746500e-02_rb,1.694142e-02_rb,1.644994e-02_rb,1.598772e-02_rb,1.555225e-02_rb,&\n        & 1.514129e-02_rb,1.475286e-02_rb,1.438515e-02_rb,1.403659e-02_rb,1.370572e-02_rb,&\n        & 1.339124e-02_rb,1.309197e-02_rb,1.280685e-02_rb /)\n      extice2(:, 22) = (/ &\n! band 22\n        & 3.713158e-01_rb,2.253816e-01_rb,1.608461e-01_rb,1.246718e-01_rb,1.016109e-01_rb,&\n        & 8.566332e-02_rb,7.399666e-02_rb,6.510199e-02_rb,5.810290e-02_rb,5.245608e-02_rb,&\n        & 4.780702e-02_rb,4.391478e-02_rb,4.060989e-02_rb,3.776982e-02_rb,3.530374e-02_rb,&\n        & 3.314296e-02_rb,3.123458e-02_rb,2.953719e-02_rb,2.801794e-02_rb,2.665043e-02_rb,&\n        & 2.541321e-02_rb,2.428868e-02_rb,2.326224e-02_rb,2.232173e-02_rb,2.145688e-02_rb,&\n        & 2.065899e-02_rb,1.992067e-02_rb,1.923552e-02_rb,1.859808e-02_rb,1.800356e-02_rb,&\n        & 1.744782e-02_rb,1.692721e-02_rb,1.643855e-02_rb,1.597900e-02_rb,1.554606e-02_rb,&\n        & 1.513751e-02_rb,1.475137e-02_rb,1.438586e-02_rb,1.403938e-02_rb,1.371050e-02_rb,&\n        & 1.339793e-02_rb,1.310050e-02_rb,1.281713e-02_rb /)\n      extice2(:, 23) = (/ &\n! band 23\n        & 3.605883e-01_rb,2.204388e-01_rb,1.580431e-01_rb,1.229033e-01_rb,1.004203e-01_rb,&\n        & 8.482616e-02_rb,7.338941e-02_rb,6.465105e-02_rb,5.776176e-02_rb,5.219398e-02_rb,&\n        & 4.760288e-02_rb,4.375369e-02_rb,4.048111e-02_rb,3.766539e-02_rb,3.521771e-02_rb,&\n        & 3.307079e-02_rb,3.117277e-02_rb,2.948303e-02_rb,2.796929e-02_rb,2.660560e-02_rb,&\n        & 2.537086e-02_rb,2.424772e-02_rb,2.322182e-02_rb,2.228114e-02_rb,2.141556e-02_rb,&\n        & 2.061649e-02_rb,1.987661e-02_rb,1.918962e-02_rb,1.855009e-02_rb,1.795330e-02_rb,&\n        & 1.739514e-02_rb,1.687199e-02_rb,1.638069e-02_rb,1.591845e-02_rb,1.548276e-02_rb,&\n        & 1.507143e-02_rb,1.468249e-02_rb,1.431416e-02_rb,1.396486e-02_rb,1.363318e-02_rb,&\n        & 1.331781e-02_rb,1.301759e-02_rb,1.273147e-02_rb /)\n      extice2(:, 24) = (/ &\n! band 24\n        & 3.527890e-01_rb,2.168469e-01_rb,1.560090e-01_rb,1.216216e-01_rb,9.955787e-02_rb,&\n        & 8.421942e-02_rb,7.294827e-02_rb,6.432192e-02_rb,5.751081e-02_rb,5.199888e-02_rb,&\n        & 4.744835e-02_rb,4.362899e-02_rb,4.037847e-02_rb,3.757910e-02_rb,3.514351e-02_rb,&\n        & 3.300546e-02_rb,3.111382e-02_rb,2.942853e-02_rb,2.791775e-02_rb,2.655584e-02_rb,&\n        & 2.532195e-02_rb,2.419892e-02_rb,2.317255e-02_rb,2.223092e-02_rb,2.136402e-02_rb,&\n        & 2.056334e-02_rb,1.982160e-02_rb,1.913258e-02_rb,1.849087e-02_rb,1.789178e-02_rb,&\n        & 1.733124e-02_rb,1.680565e-02_rb,1.631187e-02_rb,1.584711e-02_rb,1.540889e-02_rb,&\n        & 1.499502e-02_rb,1.460354e-02_rb,1.423269e-02_rb,1.388088e-02_rb,1.354670e-02_rb,&\n        & 1.322887e-02_rb,1.292620e-02_rb,1.263767e-02_rb /)\n      extice2(:, 25) = (/ &\n! band 25\n        & 3.477874e-01_rb,2.143515e-01_rb,1.544887e-01_rb,1.205942e-01_rb,9.881779e-02_rb,&\n        & 8.366261e-02_rb,7.251586e-02_rb,6.397790e-02_rb,5.723183e-02_rb,5.176908e-02_rb,&\n        & 4.725658e-02_rb,4.346715e-02_rb,4.024055e-02_rb,3.746055e-02_rb,3.504080e-02_rb,&\n        & 3.291583e-02_rb,3.103507e-02_rb,2.935891e-02_rb,2.785582e-02_rb,2.650042e-02_rb,&\n        & 2.527206e-02_rb,2.415376e-02_rb,2.313142e-02_rb,2.219326e-02_rb,2.132934e-02_rb,&\n        & 2.053122e-02_rb,1.979169e-02_rb,1.910456e-02_rb,1.846448e-02_rb,1.786680e-02_rb,&\n        & 1.730745e-02_rb,1.678289e-02_rb,1.628998e-02_rb,1.582595e-02_rb,1.538835e-02_rb,&\n        & 1.497499e-02_rb,1.458393e-02_rb,1.421341e-02_rb,1.386187e-02_rb,1.352788e-02_rb,&\n        & 1.321019e-02_rb,1.290762e-02_rb,1.261913e-02_rb /)\n      extice2(:, 26) = (/ &\n! band 26\n        & 3.453721e-01_rb,2.130744e-01_rb,1.536698e-01_rb,1.200140e-01_rb,9.838078e-02_rb,&\n        & 8.331940e-02_rb,7.223803e-02_rb,6.374775e-02_rb,5.703770e-02_rb,5.160290e-02_rb,&\n        & 4.711259e-02_rb,4.334110e-02_rb,4.012923e-02_rb,3.736150e-02_rb,3.495208e-02_rb,&\n        & 3.283589e-02_rb,3.096267e-02_rb,2.929302e-02_rb,2.779560e-02_rb,2.644517e-02_rb,&\n        & 2.522119e-02_rb,2.410677e-02_rb,2.308788e-02_rb,2.215281e-02_rb,2.129165e-02_rb,&\n        & 2.049602e-02_rb,1.975874e-02_rb,1.907365e-02_rb,1.843542e-02_rb,1.783943e-02_rb,&\n        & 1.728162e-02_rb,1.675847e-02_rb,1.626685e-02_rb,1.580401e-02_rb,1.536750e-02_rb,&\n        & 1.495515e-02_rb,1.456502e-02_rb,1.419537e-02_rb,1.384463e-02_rb,1.351139e-02_rb,&\n        & 1.319438e-02_rb,1.289246e-02_rb,1.260456e-02_rb /)\n      extice2(:, 27) = (/ &\n! band 27\n        & 3.417883e-01_rb,2.113379e-01_rb,1.526395e-01_rb,1.193347e-01_rb,9.790253e-02_rb,&\n        & 8.296715e-02_rb,7.196979e-02_rb,6.353806e-02_rb,5.687024e-02_rb,5.146670e-02_rb,&\n        & 4.700001e-02_rb,4.324667e-02_rb,4.004894e-02_rb,3.729233e-02_rb,3.489172e-02_rb,&\n        & 3.278257e-02_rb,3.091499e-02_rb,2.924987e-02_rb,2.775609e-02_rb,2.640859e-02_rb,&\n        & 2.518695e-02_rb,2.407439e-02_rb,2.305697e-02_rb,2.212303e-02_rb,2.126273e-02_rb,&\n        & 2.046774e-02_rb,1.973090e-02_rb,1.904610e-02_rb,1.840801e-02_rb,1.781204e-02_rb,&\n        & 1.725417e-02_rb,1.673086e-02_rb,1.623902e-02_rb,1.577590e-02_rb,1.533906e-02_rb,&\n        & 1.492634e-02_rb,1.453580e-02_rb,1.416571e-02_rb,1.381450e-02_rb,1.348078e-02_rb,&\n        & 1.316327e-02_rb,1.286082e-02_rb,1.257240e-02_rb /)\n      extice2(:, 28) = (/ &\n! band 28\n        & 3.416111e-01_rb,2.114124e-01_rb,1.527734e-01_rb,1.194809e-01_rb,9.804612e-02_rb,&\n        & 8.310287e-02_rb,7.209595e-02_rb,6.365442e-02_rb,5.697710e-02_rb,5.156460e-02_rb,&\n        & 4.708957e-02_rb,4.332850e-02_rb,4.012361e-02_rb,3.736037e-02_rb,3.495364e-02_rb,&\n        & 3.283879e-02_rb,3.096593e-02_rb,2.929589e-02_rb,2.779751e-02_rb,2.644571e-02_rb,&\n        & 2.522004e-02_rb,2.410369e-02_rb,2.308271e-02_rb,2.214542e-02_rb,2.128195e-02_rb,&\n        & 2.048396e-02_rb,1.974429e-02_rb,1.905679e-02_rb,1.841614e-02_rb,1.781774e-02_rb,&\n        & 1.725754e-02_rb,1.673203e-02_rb,1.623807e-02_rb,1.577293e-02_rb,1.533416e-02_rb,&\n        & 1.491958e-02_rb,1.452727e-02_rb,1.415547e-02_rb,1.380262e-02_rb,1.346732e-02_rb,&\n        & 1.314830e-02_rb,1.284439e-02_rb,1.255456e-02_rb /)\n      extice2(:, 29) = (/ &\n! band 29\n        & 4.196611e-01_rb,2.493642e-01_rb,1.761261e-01_rb,1.357197e-01_rb,1.102161e-01_rb,&\n        & 9.269376e-02_rb,7.992985e-02_rb,7.022538e-02_rb,6.260168e-02_rb,5.645603e-02_rb,&\n        & 5.139732e-02_rb,4.716088e-02_rb,4.356133e-02_rb,4.046498e-02_rb,3.777303e-02_rb,&\n        & 3.541094e-02_rb,3.332137e-02_rb,3.145954e-02_rb,2.978998e-02_rb,2.828419e-02_rb,&\n        & 2.691905e-02_rb,2.567559e-02_rb,2.453811e-02_rb,2.349350e-02_rb,2.253072e-02_rb,&\n        & 2.164042e-02_rb,2.081464e-02_rb,2.004652e-02_rb,1.933015e-02_rb,1.866041e-02_rb,&\n        & 1.803283e-02_rb,1.744348e-02_rb,1.688894e-02_rb,1.636616e-02_rb,1.587244e-02_rb,&\n        & 1.540539e-02_rb,1.496287e-02_rb,1.454295e-02_rb,1.414392e-02_rb,1.376423e-02_rb,&\n        & 1.340247e-02_rb,1.305739e-02_rb,1.272784e-02_rb /)\n\n! single-scattering albedo: unitless\n      ssaice2(:, 16) = (/ &\n! band 16\n        & 6.630615e-01_rb,6.451169e-01_rb,6.333696e-01_rb,6.246927e-01_rb,6.178420e-01_rb,&\n        & 6.121976e-01_rb,6.074069e-01_rb,6.032505e-01_rb,5.995830e-01_rb,5.963030e-01_rb,&\n        & 5.933372e-01_rb,5.906311e-01_rb,5.881427e-01_rb,5.858395e-01_rb,5.836955e-01_rb,&\n        & 5.816896e-01_rb,5.798046e-01_rb,5.780264e-01_rb,5.763429e-01_rb,5.747441e-01_rb,&\n        & 5.732213e-01_rb,5.717672e-01_rb,5.703754e-01_rb,5.690403e-01_rb,5.677571e-01_rb,&\n        & 5.665215e-01_rb,5.653297e-01_rb,5.641782e-01_rb,5.630643e-01_rb,5.619850e-01_rb,&\n        & 5.609381e-01_rb,5.599214e-01_rb,5.589328e-01_rb,5.579707e-01_rb,5.570333e-01_rb,&\n        & 5.561193e-01_rb,5.552272e-01_rb,5.543558e-01_rb,5.535041e-01_rb,5.526708e-01_rb,&\n        & 5.518551e-01_rb,5.510561e-01_rb,5.502729e-01_rb /)\n      ssaice2(:, 17) = (/ &\n! band 17\n        & 7.689749e-01_rb,7.398171e-01_rb,7.205819e-01_rb,7.065690e-01_rb,6.956928e-01_rb,&\n        & 6.868989e-01_rb,6.795813e-01_rb,6.733606e-01_rb,6.679838e-01_rb,6.632742e-01_rb,&\n        & 6.591036e-01_rb,6.553766e-01_rb,6.520197e-01_rb,6.489757e-01_rb,6.461991e-01_rb,&\n        & 6.436531e-01_rb,6.413075e-01_rb,6.391375e-01_rb,6.371221e-01_rb,6.352438e-01_rb,&\n        & 6.334876e-01_rb,6.318406e-01_rb,6.302918e-01_rb,6.288315e-01_rb,6.274512e-01_rb,&\n        & 6.261436e-01_rb,6.249022e-01_rb,6.237211e-01_rb,6.225953e-01_rb,6.215201e-01_rb,&\n        & 6.204914e-01_rb,6.195055e-01_rb,6.185592e-01_rb,6.176492e-01_rb,6.167730e-01_rb,&\n        & 6.159280e-01_rb,6.151120e-01_rb,6.143228e-01_rb,6.135587e-01_rb,6.128177e-01_rb,&\n        & 6.120984e-01_rb,6.113993e-01_rb,6.107189e-01_rb /)\n      ssaice2(:, 18) = (/ &\n! band 18\n        & 9.956167e-01_rb,9.814770e-01_rb,9.716104e-01_rb,9.639746e-01_rb,9.577179e-01_rb,&\n        & 9.524010e-01_rb,9.477672e-01_rb,9.436527e-01_rb,9.399467e-01_rb,9.365708e-01_rb,&\n        & 9.334672e-01_rb,9.305921e-01_rb,9.279118e-01_rb,9.253993e-01_rb,9.230330e-01_rb,&\n        & 9.207954e-01_rb,9.186719e-01_rb,9.166501e-01_rb,9.147199e-01_rb,9.128722e-01_rb,&\n        & 9.110997e-01_rb,9.093956e-01_rb,9.077544e-01_rb,9.061708e-01_rb,9.046406e-01_rb,&\n        & 9.031598e-01_rb,9.017248e-01_rb,9.003326e-01_rb,8.989804e-01_rb,8.976655e-01_rb,&\n        & 8.963857e-01_rb,8.951389e-01_rb,8.939233e-01_rb,8.927370e-01_rb,8.915785e-01_rb,&\n        & 8.904464e-01_rb,8.893392e-01_rb,8.882559e-01_rb,8.871951e-01_rb,8.861559e-01_rb,&\n        & 8.851373e-01_rb,8.841383e-01_rb,8.831581e-01_rb /)\n      ssaice2(:, 19) = (/ &\n! band 19\n        & 9.723177e-01_rb,9.452119e-01_rb,9.267592e-01_rb,9.127393e-01_rb,9.014238e-01_rb,&\n        & 8.919334e-01_rb,8.837584e-01_rb,8.765773e-01_rb,8.701736e-01_rb,8.643950e-01_rb,&\n        & 8.591299e-01_rb,8.542942e-01_rb,8.498230e-01_rb,8.456651e-01_rb,8.417794e-01_rb,&\n        & 8.381324e-01_rb,8.346964e-01_rb,8.314484e-01_rb,8.283687e-01_rb,8.254408e-01_rb,&\n        & 8.226505e-01_rb,8.199854e-01_rb,8.174348e-01_rb,8.149891e-01_rb,8.126403e-01_rb,&\n        & 8.103808e-01_rb,8.082041e-01_rb,8.061044e-01_rb,8.040765e-01_rb,8.021156e-01_rb,&\n        & 8.002174e-01_rb,7.983781e-01_rb,7.965941e-01_rb,7.948622e-01_rb,7.931795e-01_rb,&\n        & 7.915432e-01_rb,7.899508e-01_rb,7.884002e-01_rb,7.868891e-01_rb,7.854156e-01_rb,&\n        & 7.839779e-01_rb,7.825742e-01_rb,7.812031e-01_rb /)\n      ssaice2(:, 20) = (/ &\n! band 20\n        & 9.933294e-01_rb,9.860917e-01_rb,9.811564e-01_rb,9.774008e-01_rb,9.743652e-01_rb,&\n        & 9.718155e-01_rb,9.696159e-01_rb,9.676810e-01_rb,9.659531e-01_rb,9.643915e-01_rb,&\n        & 9.629667e-01_rb,9.616561e-01_rb,9.604426e-01_rb,9.593125e-01_rb,9.582548e-01_rb,&\n        & 9.572607e-01_rb,9.563227e-01_rb,9.554347e-01_rb,9.545915e-01_rb,9.537888e-01_rb,&\n        & 9.530226e-01_rb,9.522898e-01_rb,9.515874e-01_rb,9.509130e-01_rb,9.502643e-01_rb,&\n        & 9.496394e-01_rb,9.490366e-01_rb,9.484542e-01_rb,9.478910e-01_rb,9.473456e-01_rb,&\n        & 9.468169e-01_rb,9.463039e-01_rb,9.458056e-01_rb,9.453212e-01_rb,9.448499e-01_rb,&\n        & 9.443910e-01_rb,9.439438e-01_rb,9.435077e-01_rb,9.430821e-01_rb,9.426666e-01_rb,&\n        & 9.422607e-01_rb,9.418638e-01_rb,9.414756e-01_rb /)\n      ssaice2(:, 21) = (/ &\n! band 21\n        & 9.900787e-01_rb,9.828880e-01_rb,9.779258e-01_rb,9.741173e-01_rb,9.710184e-01_rb,&\n        & 9.684012e-01_rb,9.661332e-01_rb,9.641301e-01_rb,9.623352e-01_rb,9.607083e-01_rb,&\n        & 9.592198e-01_rb,9.578474e-01_rb,9.565739e-01_rb,9.553856e-01_rb,9.542715e-01_rb,&\n        & 9.532226e-01_rb,9.522314e-01_rb,9.512919e-01_rb,9.503986e-01_rb,9.495472e-01_rb,&\n        & 9.487337e-01_rb,9.479549e-01_rb,9.472077e-01_rb,9.464897e-01_rb,9.457985e-01_rb,&\n        & 9.451322e-01_rb,9.444890e-01_rb,9.438673e-01_rb,9.432656e-01_rb,9.426826e-01_rb,&\n        & 9.421173e-01_rb,9.415684e-01_rb,9.410351e-01_rb,9.405164e-01_rb,9.400115e-01_rb,&\n        & 9.395198e-01_rb,9.390404e-01_rb,9.385728e-01_rb,9.381164e-01_rb,9.376707e-01_rb,&\n        & 9.372350e-01_rb,9.368091e-01_rb,9.363923e-01_rb /)\n      ssaice2(:, 22) = (/ &\n! band 22\n        & 9.986793e-01_rb,9.985239e-01_rb,9.983911e-01_rb,9.982715e-01_rb,9.981606e-01_rb,&\n        & 9.980562e-01_rb,9.979567e-01_rb,9.978613e-01_rb,9.977691e-01_rb,9.976798e-01_rb,&\n        & 9.975929e-01_rb,9.975081e-01_rb,9.974251e-01_rb,9.973438e-01_rb,9.972640e-01_rb,&\n        & 9.971855e-01_rb,9.971083e-01_rb,9.970322e-01_rb,9.969571e-01_rb,9.968830e-01_rb,&\n        & 9.968099e-01_rb,9.967375e-01_rb,9.966660e-01_rb,9.965951e-01_rb,9.965250e-01_rb,&\n        & 9.964555e-01_rb,9.963867e-01_rb,9.963185e-01_rb,9.962508e-01_rb,9.961836e-01_rb,&\n        & 9.961170e-01_rb,9.960508e-01_rb,9.959851e-01_rb,9.959198e-01_rb,9.958550e-01_rb,&\n        & 9.957906e-01_rb,9.957266e-01_rb,9.956629e-01_rb,9.955997e-01_rb,9.955367e-01_rb,&\n        & 9.954742e-01_rb,9.954119e-01_rb,9.953500e-01_rb /)\n      ssaice2(:, 23) = (/ &\n! band 23\n        & 9.997944e-01_rb,9.997791e-01_rb,9.997664e-01_rb,9.997547e-01_rb,9.997436e-01_rb,&\n        & 9.997327e-01_rb,9.997219e-01_rb,9.997110e-01_rb,9.996999e-01_rb,9.996886e-01_rb,&\n        & 9.996771e-01_rb,9.996653e-01_rb,9.996533e-01_rb,9.996409e-01_rb,9.996282e-01_rb,&\n        & 9.996152e-01_rb,9.996019e-01_rb,9.995883e-01_rb,9.995743e-01_rb,9.995599e-01_rb,&\n        & 9.995453e-01_rb,9.995302e-01_rb,9.995149e-01_rb,9.994992e-01_rb,9.994831e-01_rb,&\n        & 9.994667e-01_rb,9.994500e-01_rb,9.994329e-01_rb,9.994154e-01_rb,9.993976e-01_rb,&\n        & 9.993795e-01_rb,9.993610e-01_rb,9.993422e-01_rb,9.993230e-01_rb,9.993035e-01_rb,&\n        & 9.992837e-01_rb,9.992635e-01_rb,9.992429e-01_rb,9.992221e-01_rb,9.992008e-01_rb,&\n        & 9.991793e-01_rb,9.991574e-01_rb,9.991352e-01_rb /)\n      ssaice2(:, 24) = (/ &\n! band 24\n        & 9.999949e-01_rb,9.999947e-01_rb,9.999943e-01_rb,9.999939e-01_rb,9.999934e-01_rb,&\n        & 9.999927e-01_rb,9.999920e-01_rb,9.999913e-01_rb,9.999904e-01_rb,9.999895e-01_rb,&\n        & 9.999885e-01_rb,9.999874e-01_rb,9.999863e-01_rb,9.999851e-01_rb,9.999838e-01_rb,&\n        & 9.999824e-01_rb,9.999810e-01_rb,9.999795e-01_rb,9.999780e-01_rb,9.999764e-01_rb,&\n        & 9.999747e-01_rb,9.999729e-01_rb,9.999711e-01_rb,9.999692e-01_rb,9.999673e-01_rb,&\n        & 9.999653e-01_rb,9.999632e-01_rb,9.999611e-01_rb,9.999589e-01_rb,9.999566e-01_rb,&\n        & 9.999543e-01_rb,9.999519e-01_rb,9.999495e-01_rb,9.999470e-01_rb,9.999444e-01_rb,&\n        & 9.999418e-01_rb,9.999392e-01_rb,9.999364e-01_rb,9.999336e-01_rb,9.999308e-01_rb,&\n        & 9.999279e-01_rb,9.999249e-01_rb,9.999219e-01_rb /)\n      ssaice2(:, 25) = (/ &\n! band 25\n        & 9.999997e-01_rb,9.999997e-01_rb,9.999997e-01_rb,9.999996e-01_rb,9.999996e-01_rb,&\n        & 9.999995e-01_rb,9.999994e-01_rb,9.999993e-01_rb,9.999993e-01_rb,9.999992e-01_rb,&\n        & 9.999991e-01_rb,9.999989e-01_rb,9.999988e-01_rb,9.999987e-01_rb,9.999986e-01_rb,&\n        & 9.999984e-01_rb,9.999983e-01_rb,9.999981e-01_rb,9.999980e-01_rb,9.999978e-01_rb,&\n        & 9.999976e-01_rb,9.999974e-01_rb,9.999972e-01_rb,9.999971e-01_rb,9.999969e-01_rb,&\n        & 9.999966e-01_rb,9.999964e-01_rb,9.999962e-01_rb,9.999960e-01_rb,9.999957e-01_rb,&\n        & 9.999955e-01_rb,9.999953e-01_rb,9.999950e-01_rb,9.999947e-01_rb,9.999945e-01_rb,&\n        & 9.999942e-01_rb,9.999939e-01_rb,9.999936e-01_rb,9.999934e-01_rb,9.999931e-01_rb,&\n        & 9.999928e-01_rb,9.999925e-01_rb,9.999921e-01_rb /)\n      ssaice2(:, 26) = (/ &\n! band 26\n        & 9.999997e-01_rb,9.999996e-01_rb,9.999996e-01_rb,9.999995e-01_rb,9.999994e-01_rb,&\n        & 9.999993e-01_rb,9.999992e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&\n        & 9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,9.999982e-01_rb,9.999980e-01_rb,&\n        & 9.999978e-01_rb,9.999976e-01_rb,9.999974e-01_rb,9.999972e-01_rb,9.999970e-01_rb,&\n        & 9.999967e-01_rb,9.999965e-01_rb,9.999962e-01_rb,9.999959e-01_rb,9.999956e-01_rb,&\n        & 9.999954e-01_rb,9.999951e-01_rb,9.999947e-01_rb,9.999944e-01_rb,9.999941e-01_rb,&\n        & 9.999938e-01_rb,9.999934e-01_rb,9.999931e-01_rb,9.999927e-01_rb,9.999923e-01_rb,&\n        & 9.999920e-01_rb,9.999916e-01_rb,9.999912e-01_rb,9.999908e-01_rb,9.999904e-01_rb,&\n        & 9.999899e-01_rb,9.999895e-01_rb,9.999891e-01_rb /)\n      ssaice2(:, 27) = (/ &\n! band 27\n        & 9.999987e-01_rb,9.999987e-01_rb,9.999985e-01_rb,9.999984e-01_rb,9.999982e-01_rb,&\n        & 9.999980e-01_rb,9.999978e-01_rb,9.999976e-01_rb,9.999973e-01_rb,9.999970e-01_rb,&\n        & 9.999967e-01_rb,9.999964e-01_rb,9.999960e-01_rb,9.999956e-01_rb,9.999952e-01_rb,&\n        & 9.999948e-01_rb,9.999944e-01_rb,9.999939e-01_rb,9.999934e-01_rb,9.999929e-01_rb,&\n        & 9.999924e-01_rb,9.999918e-01_rb,9.999913e-01_rb,9.999907e-01_rb,9.999901e-01_rb,&\n        & 9.999894e-01_rb,9.999888e-01_rb,9.999881e-01_rb,9.999874e-01_rb,9.999867e-01_rb,&\n        & 9.999860e-01_rb,9.999853e-01_rb,9.999845e-01_rb,9.999837e-01_rb,9.999829e-01_rb,&\n        & 9.999821e-01_rb,9.999813e-01_rb,9.999804e-01_rb,9.999796e-01_rb,9.999787e-01_rb,&\n        & 9.999778e-01_rb,9.999768e-01_rb,9.999759e-01_rb /)\n      ssaice2(:, 28) = (/ &\n! band 28\n        & 9.999989e-01_rb,9.999989e-01_rb,9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,&\n        & 9.999982e-01_rb,9.999980e-01_rb,9.999978e-01_rb,9.999975e-01_rb,9.999972e-01_rb,&\n        & 9.999969e-01_rb,9.999966e-01_rb,9.999962e-01_rb,9.999958e-01_rb,9.999954e-01_rb,&\n        & 9.999950e-01_rb,9.999945e-01_rb,9.999941e-01_rb,9.999936e-01_rb,9.999931e-01_rb,&\n        & 9.999925e-01_rb,9.999920e-01_rb,9.999914e-01_rb,9.999908e-01_rb,9.999902e-01_rb,&\n        & 9.999896e-01_rb,9.999889e-01_rb,9.999883e-01_rb,9.999876e-01_rb,9.999869e-01_rb,&\n        & 9.999861e-01_rb,9.999854e-01_rb,9.999846e-01_rb,9.999838e-01_rb,9.999830e-01_rb,&\n        & 9.999822e-01_rb,9.999814e-01_rb,9.999805e-01_rb,9.999796e-01_rb,9.999787e-01_rb,&\n        & 9.999778e-01_rb,9.999769e-01_rb,9.999759e-01_rb /)\n      ssaice2(:, 29) = (/ &\n! band 29\n        & 7.042143e-01_rb,6.691161e-01_rb,6.463240e-01_rb,6.296590e-01_rb,6.166381e-01_rb,&\n        & 6.060183e-01_rb,5.970908e-01_rb,5.894144e-01_rb,5.826968e-01_rb,5.767343e-01_rb,&\n        & 5.713804e-01_rb,5.665256e-01_rb,5.620867e-01_rb,5.579987e-01_rb,5.542101e-01_rb,&\n        & 5.506794e-01_rb,5.473727e-01_rb,5.442620e-01_rb,5.413239e-01_rb,5.385389e-01_rb,&\n        & 5.358901e-01_rb,5.333633e-01_rb,5.309460e-01_rb,5.286277e-01_rb,5.263988e-01_rb,&\n        & 5.242512e-01_rb,5.221777e-01_rb,5.201719e-01_rb,5.182280e-01_rb,5.163410e-01_rb,&\n        & 5.145062e-01_rb,5.127197e-01_rb,5.109776e-01_rb,5.092766e-01_rb,5.076137e-01_rb,&\n        & 5.059860e-01_rb,5.043911e-01_rb,5.028266e-01_rb,5.012904e-01_rb,4.997805e-01_rb,&\n        & 4.982951e-01_rb,4.968326e-01_rb,4.953913e-01_rb /)\n\n! asymmetry factor: unitless\n      asyice2(:, 16) = (/ &\n! band 16\n        & 7.946655e-01_rb,8.547685e-01_rb,8.806016e-01_rb,8.949880e-01_rb,9.041676e-01_rb,&\n        & 9.105399e-01_rb,9.152249e-01_rb,9.188160e-01_rb,9.216573e-01_rb,9.239620e-01_rb,&\n        & 9.258695e-01_rb,9.274745e-01_rb,9.288441e-01_rb,9.300267e-01_rb,9.310584e-01_rb,&\n        & 9.319665e-01_rb,9.327721e-01_rb,9.334918e-01_rb,9.341387e-01_rb,9.347236e-01_rb,&\n        & 9.352551e-01_rb,9.357402e-01_rb,9.361850e-01_rb,9.365942e-01_rb,9.369722e-01_rb,&\n        & 9.373225e-01_rb,9.376481e-01_rb,9.379516e-01_rb,9.382352e-01_rb,9.385010e-01_rb,&\n        & 9.387505e-01_rb,9.389854e-01_rb,9.392070e-01_rb,9.394163e-01_rb,9.396145e-01_rb,&\n        & 9.398024e-01_rb,9.399809e-01_rb,9.401508e-01_rb,9.403126e-01_rb,9.404670e-01_rb,&\n        & 9.406144e-01_rb,9.407555e-01_rb,9.408906e-01_rb /)\n      asyice2(:, 17) = (/ &\n! band 17\n        & 9.078091e-01_rb,9.195850e-01_rb,9.267250e-01_rb,9.317083e-01_rb,9.354632e-01_rb,&\n        & 9.384323e-01_rb,9.408597e-01_rb,9.428935e-01_rb,9.446301e-01_rb,9.461351e-01_rb,&\n        & 9.474555e-01_rb,9.486259e-01_rb,9.496722e-01_rb,9.506146e-01_rb,9.514688e-01_rb,&\n        & 9.522476e-01_rb,9.529612e-01_rb,9.536181e-01_rb,9.542251e-01_rb,9.547883e-01_rb,&\n        & 9.553124e-01_rb,9.558019e-01_rb,9.562601e-01_rb,9.566904e-01_rb,9.570953e-01_rb,&\n        & 9.574773e-01_rb,9.578385e-01_rb,9.581806e-01_rb,9.585054e-01_rb,9.588142e-01_rb,&\n        & 9.591083e-01_rb,9.593888e-01_rb,9.596569e-01_rb,9.599135e-01_rb,9.601593e-01_rb,&\n        & 9.603952e-01_rb,9.606219e-01_rb,9.608399e-01_rb,9.610499e-01_rb,9.612523e-01_rb,&\n        & 9.614477e-01_rb,9.616365e-01_rb,9.618192e-01_rb /)\n      asyice2(:, 18) = (/ &\n! band 18\n        & 8.322045e-01_rb,8.528693e-01_rb,8.648167e-01_rb,8.729163e-01_rb,8.789054e-01_rb,&\n        & 8.835845e-01_rb,8.873819e-01_rb,8.905511e-01_rb,8.932532e-01_rb,8.955965e-01_rb,&\n        & 8.976567e-01_rb,8.994887e-01_rb,9.011334e-01_rb,9.026221e-01_rb,9.039791e-01_rb,&\n        & 9.052237e-01_rb,9.063715e-01_rb,9.074349e-01_rb,9.084245e-01_rb,9.093489e-01_rb,&\n        & 9.102154e-01_rb,9.110303e-01_rb,9.117987e-01_rb,9.125253e-01_rb,9.132140e-01_rb,&\n        & 9.138682e-01_rb,9.144910e-01_rb,9.150850e-01_rb,9.156524e-01_rb,9.161955e-01_rb,&\n        & 9.167160e-01_rb,9.172157e-01_rb,9.176959e-01_rb,9.181581e-01_rb,9.186034e-01_rb,&\n        & 9.190330e-01_rb,9.194478e-01_rb,9.198488e-01_rb,9.202368e-01_rb,9.206126e-01_rb,&\n        & 9.209768e-01_rb,9.213301e-01_rb,9.216731e-01_rb /)\n      asyice2(:, 19) = (/ &\n! band 19\n        & 8.116560e-01_rb,8.488278e-01_rb,8.674331e-01_rb,8.788148e-01_rb,8.865810e-01_rb,&\n        & 8.922595e-01_rb,8.966149e-01_rb,9.000747e-01_rb,9.028980e-01_rb,9.052513e-01_rb,&\n        & 9.072468e-01_rb,9.089632e-01_rb,9.104574e-01_rb,9.117713e-01_rb,9.129371e-01_rb,&\n        & 9.139793e-01_rb,9.149174e-01_rb,9.157668e-01_rb,9.165400e-01_rb,9.172473e-01_rb,&\n        & 9.178970e-01_rb,9.184962e-01_rb,9.190508e-01_rb,9.195658e-01_rb,9.200455e-01_rb,&\n        & 9.204935e-01_rb,9.209130e-01_rb,9.213067e-01_rb,9.216771e-01_rb,9.220262e-01_rb,&\n        & 9.223560e-01_rb,9.226680e-01_rb,9.229636e-01_rb,9.232443e-01_rb,9.235112e-01_rb,&\n        & 9.237652e-01_rb,9.240074e-01_rb,9.242385e-01_rb,9.244594e-01_rb,9.246708e-01_rb,&\n        & 9.248733e-01_rb,9.250674e-01_rb,9.252536e-01_rb /)\n      asyice2(:, 20) = (/ &\n! band 20\n        & 8.047113e-01_rb,8.402864e-01_rb,8.570332e-01_rb,8.668455e-01_rb,8.733206e-01_rb,&\n        & 8.779272e-01_rb,8.813796e-01_rb,8.840676e-01_rb,8.862225e-01_rb,8.879904e-01_rb,&\n        & 8.894682e-01_rb,8.907228e-01_rb,8.918019e-01_rb,8.927404e-01_rb,8.935645e-01_rb,&\n        & 8.942943e-01_rb,8.949452e-01_rb,8.955296e-01_rb,8.960574e-01_rb,8.965366e-01_rb,&\n        & 8.969736e-01_rb,8.973740e-01_rb,8.977422e-01_rb,8.980820e-01_rb,8.983966e-01_rb,&\n        & 8.986889e-01_rb,8.989611e-01_rb,8.992153e-01_rb,8.994533e-01_rb,8.996766e-01_rb,&\n        & 8.998865e-01_rb,9.000843e-01_rb,9.002709e-01_rb,9.004474e-01_rb,9.006146e-01_rb,&\n        & 9.007731e-01_rb,9.009237e-01_rb,9.010670e-01_rb,9.012034e-01_rb,9.013336e-01_rb,&\n        & 9.014579e-01_rb,9.015767e-01_rb,9.016904e-01_rb /)\n      asyice2(:, 21) = (/ &\n! band 21\n        & 8.179122e-01_rb,8.480726e-01_rb,8.621945e-01_rb,8.704354e-01_rb,8.758555e-01_rb,&\n        & 8.797007e-01_rb,8.825750e-01_rb,8.848078e-01_rb,8.865939e-01_rb,8.880564e-01_rb,&\n        & 8.892765e-01_rb,8.903105e-01_rb,8.911982e-01_rb,8.919689e-01_rb,8.926446e-01_rb,&\n        & 8.932419e-01_rb,8.937738e-01_rb,8.942506e-01_rb,8.946806e-01_rb,8.950702e-01_rb,&\n        & 8.954251e-01_rb,8.957497e-01_rb,8.960477e-01_rb,8.963223e-01_rb,8.965762e-01_rb,&\n        & 8.968116e-01_rb,8.970306e-01_rb,8.972347e-01_rb,8.974255e-01_rb,8.976042e-01_rb,&\n        & 8.977720e-01_rb,8.979298e-01_rb,8.980784e-01_rb,8.982188e-01_rb,8.983515e-01_rb,&\n        & 8.984771e-01_rb,8.985963e-01_rb,8.987095e-01_rb,8.988171e-01_rb,8.989195e-01_rb,&\n        & 8.990172e-01_rb,8.991104e-01_rb,8.991994e-01_rb /)\n      asyice2(:, 22) = (/ &\n! band 22\n        & 8.169789e-01_rb,8.455024e-01_rb,8.586925e-01_rb,8.663283e-01_rb,8.713217e-01_rb,&\n        & 8.748488e-01_rb,8.774765e-01_rb,8.795122e-01_rb,8.811370e-01_rb,8.824649e-01_rb,&\n        & 8.835711e-01_rb,8.845073e-01_rb,8.853103e-01_rb,8.860068e-01_rb,8.866170e-01_rb,&\n        & 8.871560e-01_rb,8.876358e-01_rb,8.880658e-01_rb,8.884533e-01_rb,8.888044e-01_rb,&\n        & 8.891242e-01_rb,8.894166e-01_rb,8.896851e-01_rb,8.899324e-01_rb,8.901612e-01_rb,&\n        & 8.903733e-01_rb,8.905706e-01_rb,8.907545e-01_rb,8.909265e-01_rb,8.910876e-01_rb,&\n        & 8.912388e-01_rb,8.913812e-01_rb,8.915153e-01_rb,8.916419e-01_rb,8.917617e-01_rb,&\n        & 8.918752e-01_rb,8.919829e-01_rb,8.920851e-01_rb,8.921824e-01_rb,8.922751e-01_rb,&\n        & 8.923635e-01_rb,8.924478e-01_rb,8.925284e-01_rb /)\n      asyice2(:, 23) = (/ &\n! band 23\n        & 8.387642e-01_rb,8.569979e-01_rb,8.658630e-01_rb,8.711825e-01_rb,8.747605e-01_rb,&\n        & 8.773472e-01_rb,8.793129e-01_rb,8.808621e-01_rb,8.821179e-01_rb,8.831583e-01_rb,&\n        & 8.840361e-01_rb,8.847875e-01_rb,8.854388e-01_rb,8.860094e-01_rb,8.865138e-01_rb,&\n        & 8.869634e-01_rb,8.873668e-01_rb,8.877310e-01_rb,8.880617e-01_rb,8.883635e-01_rb,&\n        & 8.886401e-01_rb,8.888947e-01_rb,8.891298e-01_rb,8.893477e-01_rb,8.895504e-01_rb,&\n        & 8.897393e-01_rb,8.899159e-01_rb,8.900815e-01_rb,8.902370e-01_rb,8.903833e-01_rb,&\n        & 8.905214e-01_rb,8.906518e-01_rb,8.907753e-01_rb,8.908924e-01_rb,8.910036e-01_rb,&\n        & 8.911094e-01_rb,8.912101e-01_rb,8.913062e-01_rb,8.913979e-01_rb,8.914856e-01_rb,&\n        & 8.915695e-01_rb,8.916498e-01_rb,8.917269e-01_rb /)\n      asyice2(:, 24) = (/ &\n! band 24\n        & 8.522208e-01_rb,8.648132e-01_rb,8.711224e-01_rb,8.749901e-01_rb,8.776354e-01_rb,&\n        & 8.795743e-01_rb,8.810649e-01_rb,8.822518e-01_rb,8.832225e-01_rb,8.840333e-01_rb,&\n        & 8.847224e-01_rb,8.853162e-01_rb,8.858342e-01_rb,8.862906e-01_rb,8.866962e-01_rb,&\n        & 8.870595e-01_rb,8.873871e-01_rb,8.876842e-01_rb,8.879551e-01_rb,8.882032e-01_rb,&\n        & 8.884316e-01_rb,8.886425e-01_rb,8.888380e-01_rb,8.890199e-01_rb,8.891895e-01_rb,&\n        & 8.893481e-01_rb,8.894968e-01_rb,8.896366e-01_rb,8.897683e-01_rb,8.898926e-01_rb,&\n        & 8.900102e-01_rb,8.901215e-01_rb,8.902272e-01_rb,8.903276e-01_rb,8.904232e-01_rb,&\n        & 8.905144e-01_rb,8.906014e-01_rb,8.906845e-01_rb,8.907640e-01_rb,8.908402e-01_rb,&\n        & 8.909132e-01_rb,8.909834e-01_rb,8.910507e-01_rb /)\n      asyice2(:, 25) = (/ &\n! band 25\n        & 8.578202e-01_rb,8.683033e-01_rb,8.735431e-01_rb,8.767488e-01_rb,8.789378e-01_rb,&\n        & 8.805399e-01_rb,8.817701e-01_rb,8.827485e-01_rb,8.835480e-01_rb,8.842152e-01_rb,&\n        & 8.847817e-01_rb,8.852696e-01_rb,8.856949e-01_rb,8.860694e-01_rb,8.864020e-01_rb,&\n        & 8.866997e-01_rb,8.869681e-01_rb,8.872113e-01_rb,8.874330e-01_rb,8.876360e-01_rb,&\n        & 8.878227e-01_rb,8.879951e-01_rb,8.881548e-01_rb,8.883033e-01_rb,8.884418e-01_rb,&\n        & 8.885712e-01_rb,8.886926e-01_rb,8.888066e-01_rb,8.889139e-01_rb,8.890152e-01_rb,&\n        & 8.891110e-01_rb,8.892017e-01_rb,8.892877e-01_rb,8.893695e-01_rb,8.894473e-01_rb,&\n        & 8.895214e-01_rb,8.895921e-01_rb,8.896597e-01_rb,8.897243e-01_rb,8.897862e-01_rb,&\n        & 8.898456e-01_rb,8.899025e-01_rb,8.899572e-01_rb /)\n      asyice2(:, 26) = (/ &\n! band 26\n        & 8.625615e-01_rb,8.713831e-01_rb,8.755799e-01_rb,8.780560e-01_rb,8.796983e-01_rb,&\n        & 8.808714e-01_rb,8.817534e-01_rb,8.824420e-01_rb,8.829953e-01_rb,8.834501e-01_rb,&\n        & 8.838310e-01_rb,8.841549e-01_rb,8.844338e-01_rb,8.846767e-01_rb,8.848902e-01_rb,&\n        & 8.850795e-01_rb,8.852484e-01_rb,8.854002e-01_rb,8.855374e-01_rb,8.856620e-01_rb,&\n        & 8.857758e-01_rb,8.858800e-01_rb,8.859759e-01_rb,8.860644e-01_rb,8.861464e-01_rb,&\n        & 8.862225e-01_rb,8.862935e-01_rb,8.863598e-01_rb,8.864218e-01_rb,8.864800e-01_rb,&\n        & 8.865347e-01_rb,8.865863e-01_rb,8.866349e-01_rb,8.866809e-01_rb,8.867245e-01_rb,&\n        & 8.867658e-01_rb,8.868050e-01_rb,8.868423e-01_rb,8.868778e-01_rb,8.869117e-01_rb,&\n        & 8.869440e-01_rb,8.869749e-01_rb,8.870044e-01_rb /)\n      asyice2(:, 27) = (/ &\n! band 27\n        & 8.587495e-01_rb,8.684764e-01_rb,8.728189e-01_rb,8.752872e-01_rb,8.768846e-01_rb,&\n        & 8.780060e-01_rb,8.788386e-01_rb,8.794824e-01_rb,8.799960e-01_rb,8.804159e-01_rb,&\n        & 8.807660e-01_rb,8.810626e-01_rb,8.813175e-01_rb,8.815390e-01_rb,8.817335e-01_rb,&\n        & 8.819057e-01_rb,8.820593e-01_rb,8.821973e-01_rb,8.823220e-01_rb,8.824353e-01_rb,&\n        & 8.825387e-01_rb,8.826336e-01_rb,8.827209e-01_rb,8.828016e-01_rb,8.828764e-01_rb,&\n        & 8.829459e-01_rb,8.830108e-01_rb,8.830715e-01_rb,8.831283e-01_rb,8.831817e-01_rb,&\n        & 8.832320e-01_rb,8.832795e-01_rb,8.833244e-01_rb,8.833668e-01_rb,8.834071e-01_rb,&\n        & 8.834454e-01_rb,8.834817e-01_rb,8.835164e-01_rb,8.835495e-01_rb,8.835811e-01_rb,&\n        & 8.836113e-01_rb,8.836402e-01_rb,8.836679e-01_rb /)\n      asyice2(:, 28) = (/ &\n! band 28\n        & 8.561110e-01_rb,8.678583e-01_rb,8.727554e-01_rb,8.753892e-01_rb,8.770154e-01_rb,&\n        & 8.781109e-01_rb,8.788949e-01_rb,8.794812e-01_rb,8.799348e-01_rb,8.802952e-01_rb,&\n        & 8.805880e-01_rb,8.808300e-01_rb,8.810331e-01_rb,8.812058e-01_rb,8.813543e-01_rb,&\n        & 8.814832e-01_rb,8.815960e-01_rb,8.816956e-01_rb,8.817839e-01_rb,8.818629e-01_rb,&\n        & 8.819339e-01_rb,8.819979e-01_rb,8.820560e-01_rb,8.821089e-01_rb,8.821573e-01_rb,&\n        & 8.822016e-01_rb,8.822425e-01_rb,8.822801e-01_rb,8.823150e-01_rb,8.823474e-01_rb,&\n        & 8.823775e-01_rb,8.824056e-01_rb,8.824318e-01_rb,8.824564e-01_rb,8.824795e-01_rb,&\n        & 8.825011e-01_rb,8.825215e-01_rb,8.825408e-01_rb,8.825589e-01_rb,8.825761e-01_rb,&\n        & 8.825924e-01_rb,8.826078e-01_rb,8.826224e-01_rb /)\n      asyice2(:, 29) = (/ &\n! band 29\n        & 8.311124e-01_rb,8.688197e-01_rb,8.900274e-01_rb,9.040696e-01_rb,9.142334e-01_rb,&\n        & 9.220181e-01_rb,9.282195e-01_rb,9.333048e-01_rb,9.375689e-01_rb,9.412085e-01_rb,&\n        & 9.443604e-01_rb,9.471230e-01_rb,9.495694e-01_rb,9.517549e-01_rb,9.537224e-01_rb,&\n        & 9.555057e-01_rb,9.571316e-01_rb,9.586222e-01_rb,9.599952e-01_rb,9.612656e-01_rb,&\n        & 9.624458e-01_rb,9.635461e-01_rb,9.645756e-01_rb,9.655418e-01_rb,9.664513e-01_rb,&\n        & 9.673098e-01_rb,9.681222e-01_rb,9.688928e-01_rb,9.696256e-01_rb,9.703237e-01_rb,&\n        & 9.709903e-01_rb,9.716280e-01_rb,9.722391e-01_rb,9.728258e-01_rb,9.733901e-01_rb,&\n        & 9.739336e-01_rb,9.744579e-01_rb,9.749645e-01_rb,9.754546e-01_rb,9.759294e-01_rb,&\n        & 9.763901e-01_rb,9.768376e-01_rb,9.772727e-01_rb /)\n\n! Hexagonal Ice Particle Parameterization\n! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]\n      extice3(:, 16) = (/ &\n! band 16\n        & 5.194013e-01_rb,3.215089e-01_rb,2.327917e-01_rb,1.824424e-01_rb,1.499977e-01_rb,&\n        & 1.273492e-01_rb,1.106421e-01_rb,9.780982e-02_rb,8.764435e-02_rb,7.939266e-02_rb,&\n        & 7.256081e-02_rb,6.681137e-02_rb,6.190600e-02_rb,5.767154e-02_rb,5.397915e-02_rb,&\n        & 5.073102e-02_rb,4.785151e-02_rb,4.528125e-02_rb,4.297296e-02_rb,4.088853e-02_rb,&\n        & 3.899690e-02_rb,3.727251e-02_rb,3.569411e-02_rb,3.424393e-02_rb,3.290694e-02_rb,&\n        & 3.167040e-02_rb,3.052340e-02_rb,2.945654e-02_rb,2.846172e-02_rb,2.753188e-02_rb,&\n        & 2.666085e-02_rb,2.584322e-02_rb,2.507423e-02_rb,2.434967e-02_rb,2.366579e-02_rb,&\n        & 2.301926e-02_rb,2.240711e-02_rb,2.182666e-02_rb,2.127551e-02_rb,2.075150e-02_rb,&\n        & 2.025267e-02_rb,1.977725e-02_rb,1.932364e-02_rb,1.889035e-02_rb,1.847607e-02_rb,&\n        & 1.807956e-02_rb /)\n      extice3(:, 17) = (/ &\n! band 17\n        & 4.901155e-01_rb,3.065286e-01_rb,2.230800e-01_rb,1.753951e-01_rb,1.445402e-01_rb,&\n        & 1.229417e-01_rb,1.069777e-01_rb,9.469760e-02_rb,8.495824e-02_rb,7.704501e-02_rb,&\n        & 7.048834e-02_rb,6.496693e-02_rb,6.025353e-02_rb,5.618286e-02_rb,5.263186e-02_rb,&\n        & 4.950698e-02_rb,4.673585e-02_rb,4.426164e-02_rb,4.203904e-02_rb,4.003153e-02_rb,&\n        & 3.820932e-02_rb,3.654790e-02_rb,3.502688e-02_rb,3.362919e-02_rb,3.234041e-02_rb,&\n        & 3.114829e-02_rb,3.004234e-02_rb,2.901356e-02_rb,2.805413e-02_rb,2.715727e-02_rb,&\n        & 2.631705e-02_rb,2.552828e-02_rb,2.478637e-02_rb,2.408725e-02_rb,2.342734e-02_rb,&\n        & 2.280343e-02_rb,2.221264e-02_rb,2.165242e-02_rb,2.112043e-02_rb,2.061461e-02_rb,&\n        & 2.013308e-02_rb,1.967411e-02_rb,1.923616e-02_rb,1.881783e-02_rb,1.841781e-02_rb,&\n        & 1.803494e-02_rb /)\n      extice3(:, 18) = (/ &\n! band 18\n        & 5.056264e-01_rb,3.160261e-01_rb,2.298442e-01_rb,1.805973e-01_rb,1.487318e-01_rb,&\n        & 1.264258e-01_rb,1.099389e-01_rb,9.725656e-02_rb,8.719819e-02_rb,7.902576e-02_rb,&\n        & 7.225433e-02_rb,6.655206e-02_rb,6.168427e-02_rb,5.748028e-02_rb,5.381296e-02_rb,&\n        & 5.058572e-02_rb,4.772383e-02_rb,4.516857e-02_rb,4.287317e-02_rb,4.079990e-02_rb,&\n        & 3.891801e-02_rb,3.720217e-02_rb,3.563133e-02_rb,3.418786e-02_rb,3.285686e-02_rb,&\n        & 3.162569e-02_rb,3.048352e-02_rb,2.942104e-02_rb,2.843018e-02_rb,2.750395e-02_rb,&\n        & 2.663621e-02_rb,2.582160e-02_rb,2.505539e-02_rb,2.433337e-02_rb,2.365185e-02_rb,&\n        & 2.300750e-02_rb,2.239736e-02_rb,2.181878e-02_rb,2.126937e-02_rb,2.074699e-02_rb,&\n        & 2.024968e-02_rb,1.977567e-02_rb,1.932338e-02_rb,1.889134e-02_rb,1.847823e-02_rb,&\n        & 1.808281e-02_rb /)\n      extice3(:, 19) = (/ &\n! band 19\n        & 4.881605e-01_rb,3.055237e-01_rb,2.225070e-01_rb,1.750688e-01_rb,1.443736e-01_rb,&\n        & 1.228869e-01_rb,1.070054e-01_rb,9.478893e-02_rb,8.509997e-02_rb,7.722769e-02_rb,&\n        & 7.070495e-02_rb,6.521211e-02_rb,6.052311e-02_rb,5.647351e-02_rb,5.294088e-02_rb,&\n        & 4.983217e-02_rb,4.707539e-02_rb,4.461398e-02_rb,4.240288e-02_rb,4.040575e-02_rb,&\n        & 3.859298e-02_rb,3.694016e-02_rb,3.542701e-02_rb,3.403655e-02_rb,3.275444e-02_rb,&\n        & 3.156849e-02_rb,3.046827e-02_rb,2.944481e-02_rb,2.849034e-02_rb,2.759812e-02_rb,&\n        & 2.676226e-02_rb,2.597757e-02_rb,2.523949e-02_rb,2.454400e-02_rb,2.388750e-02_rb,&\n        & 2.326682e-02_rb,2.267909e-02_rb,2.212176e-02_rb,2.159253e-02_rb,2.108933e-02_rb,&\n        & 2.061028e-02_rb,2.015369e-02_rb,1.971801e-02_rb,1.930184e-02_rb,1.890389e-02_rb,&\n        & 1.852300e-02_rb /)\n      extice3(:, 20) = (/ &\n! band 20\n        & 5.103703e-01_rb,3.188144e-01_rb,2.317435e-01_rb,1.819887e-01_rb,1.497944e-01_rb,&\n        & 1.272584e-01_rb,1.106013e-01_rb,9.778822e-02_rb,8.762610e-02_rb,7.936938e-02_rb,&\n        & 7.252809e-02_rb,6.676701e-02_rb,6.184901e-02_rb,5.760165e-02_rb,5.389651e-02_rb,&\n        & 5.063598e-02_rb,4.774457e-02_rb,4.516295e-02_rb,4.284387e-02_rb,4.074922e-02_rb,&\n        & 3.884792e-02_rb,3.711438e-02_rb,3.552734e-02_rb,3.406898e-02_rb,3.272425e-02_rb,&\n        & 3.148038e-02_rb,3.032643e-02_rb,2.925299e-02_rb,2.825191e-02_rb,2.731612e-02_rb,&\n        & 2.643943e-02_rb,2.561642e-02_rb,2.484230e-02_rb,2.411284e-02_rb,2.342429e-02_rb,&\n        & 2.277329e-02_rb,2.215686e-02_rb,2.157231e-02_rb,2.101724e-02_rb,2.048946e-02_rb,&\n        & 1.998702e-02_rb,1.950813e-02_rb,1.905118e-02_rb,1.861468e-02_rb,1.819730e-02_rb,&\n        & 1.779781e-02_rb /)\n      extice3(:, 21) = (/ &\n! band 21\n        & 5.031161e-01_rb,3.144511e-01_rb,2.286942e-01_rb,1.796903e-01_rb,1.479819e-01_rb,&\n        & 1.257860e-01_rb,1.093803e-01_rb,9.676059e-02_rb,8.675183e-02_rb,7.861971e-02_rb,&\n        & 7.188168e-02_rb,6.620754e-02_rb,6.136376e-02_rb,5.718050e-02_rb,5.353127e-02_rb,&\n        & 5.031995e-02_rb,4.747218e-02_rb,4.492952e-02_rb,4.264544e-02_rb,4.058240e-02_rb,&\n        & 3.870979e-02_rb,3.700242e-02_rb,3.543933e-02_rb,3.400297e-02_rb,3.267854e-02_rb,&\n        & 3.145345e-02_rb,3.031691e-02_rb,2.925967e-02_rb,2.827370e-02_rb,2.735203e-02_rb,&\n        & 2.648858e-02_rb,2.567798e-02_rb,2.491555e-02_rb,2.419710e-02_rb,2.351893e-02_rb,&\n        & 2.287776e-02_rb,2.227063e-02_rb,2.169491e-02_rb,2.114821e-02_rb,2.062840e-02_rb,&\n        & 2.013354e-02_rb,1.966188e-02_rb,1.921182e-02_rb,1.878191e-02_rb,1.837083e-02_rb,&\n        & 1.797737e-02_rb /)\n      extice3(:, 22) = (/ &\n! band 22\n        & 4.949453e-01_rb,3.095918e-01_rb,2.253402e-01_rb,1.771964e-01_rb,1.460446e-01_rb,&\n        & 1.242383e-01_rb,1.081206e-01_rb,9.572235e-02_rb,8.588928e-02_rb,7.789990e-02_rb,&\n        & 7.128013e-02_rb,6.570559e-02_rb,6.094684e-02_rb,5.683701e-02_rb,5.325183e-02_rb,&\n        & 5.009688e-02_rb,4.729909e-02_rb,4.480106e-02_rb,4.255708e-02_rb,4.053025e-02_rb,&\n        & 3.869051e-02_rb,3.701310e-02_rb,3.547745e-02_rb,3.406631e-02_rb,3.276512e-02_rb,&\n        & 3.156153e-02_rb,3.044494e-02_rb,2.940626e-02_rb,2.843759e-02_rb,2.753211e-02_rb,&\n        & 2.668381e-02_rb,2.588744e-02_rb,2.513839e-02_rb,2.443255e-02_rb,2.376629e-02_rb,&\n        & 2.313637e-02_rb,2.253990e-02_rb,2.197428e-02_rb,2.143718e-02_rb,2.092649e-02_rb,&\n        & 2.044032e-02_rb,1.997694e-02_rb,1.953478e-02_rb,1.911241e-02_rb,1.870855e-02_rb,&\n        & 1.832199e-02_rb /)\n      extice3(:, 23) = (/ &\n! band 23\n        & 5.052816e-01_rb,3.157665e-01_rb,2.296233e-01_rb,1.803986e-01_rb,1.485473e-01_rb,&\n        & 1.262514e-01_rb,1.097718e-01_rb,9.709524e-02_rb,8.704139e-02_rb,7.887264e-02_rb,&\n        & 7.210424e-02_rb,6.640454e-02_rb,6.153894e-02_rb,5.733683e-02_rb,5.367116e-02_rb,&\n        & 5.044537e-02_rb,4.758477e-02_rb,4.503066e-02_rb,4.273629e-02_rb,4.066395e-02_rb,&\n        & 3.878291e-02_rb,3.706784e-02_rb,3.549771e-02_rb,3.405488e-02_rb,3.272448e-02_rb,&\n        & 3.149387e-02_rb,3.035221e-02_rb,2.929020e-02_rb,2.829979e-02_rb,2.737397e-02_rb,&\n        & 2.650663e-02_rb,2.569238e-02_rb,2.492651e-02_rb,2.420482e-02_rb,2.352361e-02_rb,&\n        & 2.287954e-02_rb,2.226968e-02_rb,2.169136e-02_rb,2.114220e-02_rb,2.062005e-02_rb,&\n        & 2.012296e-02_rb,1.964917e-02_rb,1.919709e-02_rb,1.876524e-02_rb,1.835231e-02_rb,&\n        & 1.795707e-02_rb /)\n      extice3(:, 24) = (/ &\n! band 24\n        & 5.042067e-01_rb,3.151195e-01_rb,2.291708e-01_rb,1.800573e-01_rb,1.482779e-01_rb,&\n        & 1.260324e-01_rb,1.095900e-01_rb,9.694202e-02_rb,8.691087e-02_rb,7.876056e-02_rb,&\n        & 7.200745e-02_rb,6.632062e-02_rb,6.146600e-02_rb,5.727338e-02_rb,5.361599e-02_rb,&\n        & 5.039749e-02_rb,4.754334e-02_rb,4.499500e-02_rb,4.270580e-02_rb,4.063815e-02_rb,&\n        & 3.876135e-02_rb,3.705016e-02_rb,3.548357e-02_rb,3.404400e-02_rb,3.271661e-02_rb,&\n        & 3.148877e-02_rb,3.034969e-02_rb,2.929008e-02_rb,2.830191e-02_rb,2.737818e-02_rb,&\n        & 2.651279e-02_rb,2.570039e-02_rb,2.493624e-02_rb,2.421618e-02_rb,2.353650e-02_rb,&\n        & 2.289390e-02_rb,2.228541e-02_rb,2.170840e-02_rb,2.116048e-02_rb,2.063950e-02_rb,&\n        & 2.014354e-02_rb,1.967082e-02_rb,1.921975e-02_rb,1.878888e-02_rb,1.837688e-02_rb,&\n        & 1.798254e-02_rb /)\n      extice3(:, 25) = (/ &\n! band 25\n        & 5.022507e-01_rb,3.139246e-01_rb,2.283218e-01_rb,1.794059e-01_rb,1.477544e-01_rb,&\n        & 1.255984e-01_rb,1.092222e-01_rb,9.662516e-02_rb,8.663439e-02_rb,7.851688e-02_rb,&\n        & 7.179095e-02_rb,6.612700e-02_rb,6.129193e-02_rb,5.711618e-02_rb,5.347351e-02_rb,&\n        & 5.026796e-02_rb,4.742530e-02_rb,4.488721e-02_rb,4.260724e-02_rb,4.054790e-02_rb,&\n        & 3.867866e-02_rb,3.697435e-02_rb,3.541407e-02_rb,3.398029e-02_rb,3.265824e-02_rb,&\n        & 3.143535e-02_rb,3.030085e-02_rb,2.924551e-02_rb,2.826131e-02_rb,2.734130e-02_rb,&\n        & 2.647939e-02_rb,2.567026e-02_rb,2.490919e-02_rb,2.419203e-02_rb,2.351509e-02_rb,&\n        & 2.287507e-02_rb,2.226903e-02_rb,2.169434e-02_rb,2.114862e-02_rb,2.062975e-02_rb,&\n        & 2.013578e-02_rb,1.966496e-02_rb,1.921571e-02_rb,1.878658e-02_rb,1.837623e-02_rb,&\n        & 1.798348e-02_rb /)\n      extice3(:, 26) = (/ &\n! band 26\n        & 5.068316e-01_rb,3.166869e-01_rb,2.302576e-01_rb,1.808693e-01_rb,1.489122e-01_rb,&\n        & 1.265423e-01_rb,1.100080e-01_rb,9.728926e-02_rb,8.720201e-02_rb,7.900612e-02_rb,&\n        & 7.221524e-02_rb,6.649660e-02_rb,6.161484e-02_rb,5.739877e-02_rb,5.372093e-02_rb,&\n        & 5.048442e-02_rb,4.761431e-02_rb,4.505172e-02_rb,4.274972e-02_rb,4.067050e-02_rb,&\n        & 3.878321e-02_rb,3.706244e-02_rb,3.548710e-02_rb,3.403948e-02_rb,3.270466e-02_rb,&\n        & 3.146995e-02_rb,3.032450e-02_rb,2.925897e-02_rb,2.826527e-02_rb,2.733638e-02_rb,&\n        & 2.646615e-02_rb,2.564920e-02_rb,2.488078e-02_rb,2.415670e-02_rb,2.347322e-02_rb,&\n        & 2.282702e-02_rb,2.221513e-02_rb,2.163489e-02_rb,2.108390e-02_rb,2.056002e-02_rb,&\n        & 2.006128e-02_rb,1.958591e-02_rb,1.913232e-02_rb,1.869904e-02_rb,1.828474e-02_rb,&\n        & 1.788819e-02_rb /)\n      extice3(:, 27) = (/ &\n! band 27\n        & 5.077707e-01_rb,3.172636e-01_rb,2.306695e-01_rb,1.811871e-01_rb,1.491691e-01_rb,&\n        & 1.267565e-01_rb,1.101907e-01_rb,9.744773e-02_rb,8.734125e-02_rb,7.912973e-02_rb,&\n        & 7.232591e-02_rb,6.659637e-02_rb,6.170530e-02_rb,5.748120e-02_rb,5.379634e-02_rb,&\n        & 5.055367e-02_rb,4.767809e-02_rb,4.511061e-02_rb,4.280423e-02_rb,4.072104e-02_rb,&\n        & 3.883015e-02_rb,3.710611e-02_rb,3.552776e-02_rb,3.407738e-02_rb,3.274002e-02_rb,&\n        & 3.150296e-02_rb,3.035532e-02_rb,2.928776e-02_rb,2.829216e-02_rb,2.736150e-02_rb,&\n        & 2.648961e-02_rb,2.567111e-02_rb,2.490123e-02_rb,2.417576e-02_rb,2.349098e-02_rb,&\n        & 2.284354e-02_rb,2.223049e-02_rb,2.164914e-02_rb,2.109711e-02_rb,2.057222e-02_rb,&\n        & 2.007253e-02_rb,1.959626e-02_rb,1.914181e-02_rb,1.870770e-02_rb,1.829261e-02_rb,&\n        & 1.789531e-02_rb /)\n      extice3(:, 28) = (/ &\n! band 28\n        & 5.062281e-01_rb,3.163402e-01_rb,2.300275e-01_rb,1.807060e-01_rb,1.487921e-01_rb,&\n        & 1.264523e-01_rb,1.099403e-01_rb,9.723879e-02_rb,8.716516e-02_rb,7.898034e-02_rb,&\n        & 7.219863e-02_rb,6.648771e-02_rb,6.161254e-02_rb,5.740217e-02_rb,5.372929e-02_rb,&\n        & 5.049716e-02_rb,4.763092e-02_rb,4.507179e-02_rb,4.277290e-02_rb,4.069649e-02_rb,&\n        & 3.881175e-02_rb,3.709331e-02_rb,3.552008e-02_rb,3.407442e-02_rb,3.274141e-02_rb,&\n        & 3.150837e-02_rb,3.036447e-02_rb,2.930037e-02_rb,2.830801e-02_rb,2.738037e-02_rb,&\n        & 2.651132e-02_rb,2.569547e-02_rb,2.492810e-02_rb,2.420499e-02_rb,2.352243e-02_rb,&\n        & 2.287710e-02_rb,2.226604e-02_rb,2.168658e-02_rb,2.113634e-02_rb,2.061316e-02_rb,&\n        & 2.011510e-02_rb,1.964038e-02_rb,1.918740e-02_rb,1.875471e-02_rb,1.834096e-02_rb,&\n        & 1.794495e-02_rb /)\n      extice3(:, 29) = (/ &\n! band 29\n        & 1.338834e-01_rb,1.924912e-01_rb,1.755523e-01_rb,1.534793e-01_rb,1.343937e-01_rb,&\n        & 1.187883e-01_rb,1.060654e-01_rb,9.559106e-02_rb,8.685880e-02_rb,7.948698e-02_rb,&\n        & 7.319086e-02_rb,6.775669e-02_rb,6.302215e-02_rb,5.886236e-02_rb,5.517996e-02_rb,&\n        & 5.189810e-02_rb,4.895539e-02_rb,4.630225e-02_rb,4.389823e-02_rb,4.171002e-02_rb,&\n        & 3.970998e-02_rb,3.787493e-02_rb,3.618537e-02_rb,3.462471e-02_rb,3.317880e-02_rb,&\n        & 3.183547e-02_rb,3.058421e-02_rb,2.941590e-02_rb,2.832256e-02_rb,2.729724e-02_rb,&\n        & 2.633377e-02_rb,2.542675e-02_rb,2.457136e-02_rb,2.376332e-02_rb,2.299882e-02_rb,&\n        & 2.227443e-02_rb,2.158707e-02_rb,2.093400e-02_rb,2.031270e-02_rb,1.972091e-02_rb,&\n        & 1.915659e-02_rb,1.861787e-02_rb,1.810304e-02_rb,1.761055e-02_rb,1.713899e-02_rb,&\n        & 1.668704e-02_rb /)\n\n! single-scattering albedo: unitless\n      ssaice3(:, 16) = (/ &\n! band 16\n        & 6.749442e-01_rb,6.649947e-01_rb,6.565828e-01_rb,6.489928e-01_rb,6.420046e-01_rb,&\n        & 6.355231e-01_rb,6.294964e-01_rb,6.238901e-01_rb,6.186783e-01_rb,6.138395e-01_rb,&\n        & 6.093543e-01_rb,6.052049e-01_rb,6.013742e-01_rb,5.978457e-01_rb,5.946030e-01_rb,&\n        & 5.916302e-01_rb,5.889115e-01_rb,5.864310e-01_rb,5.841731e-01_rb,5.821221e-01_rb,&\n        & 5.802624e-01_rb,5.785785e-01_rb,5.770549e-01_rb,5.756759e-01_rb,5.744262e-01_rb,&\n        & 5.732901e-01_rb,5.722524e-01_rb,5.712974e-01_rb,5.704097e-01_rb,5.695739e-01_rb,&\n        & 5.687747e-01_rb,5.679964e-01_rb,5.672238e-01_rb,5.664415e-01_rb,5.656340e-01_rb,&\n        & 5.647860e-01_rb,5.638821e-01_rb,5.629070e-01_rb,5.618452e-01_rb,5.606815e-01_rb,&\n        & 5.594006e-01_rb,5.579870e-01_rb,5.564255e-01_rb,5.547008e-01_rb,5.527976e-01_rb,&\n        & 5.507005e-01_rb /)\n      ssaice3(:, 17) = (/ &\n! band 17\n        & 7.628550e-01_rb,7.567297e-01_rb,7.508463e-01_rb,7.451972e-01_rb,7.397745e-01_rb,&\n        & 7.345705e-01_rb,7.295775e-01_rb,7.247881e-01_rb,7.201945e-01_rb,7.157894e-01_rb,&\n        & 7.115652e-01_rb,7.075145e-01_rb,7.036300e-01_rb,6.999044e-01_rb,6.963304e-01_rb,&\n        & 6.929007e-01_rb,6.896083e-01_rb,6.864460e-01_rb,6.834067e-01_rb,6.804833e-01_rb,&\n        & 6.776690e-01_rb,6.749567e-01_rb,6.723397e-01_rb,6.698109e-01_rb,6.673637e-01_rb,&\n        & 6.649913e-01_rb,6.626870e-01_rb,6.604441e-01_rb,6.582561e-01_rb,6.561163e-01_rb,&\n        & 6.540182e-01_rb,6.519554e-01_rb,6.499215e-01_rb,6.479099e-01_rb,6.459145e-01_rb,&\n        & 6.439289e-01_rb,6.419468e-01_rb,6.399621e-01_rb,6.379686e-01_rb,6.359601e-01_rb,&\n        & 6.339306e-01_rb,6.318740e-01_rb,6.297845e-01_rb,6.276559e-01_rb,6.254825e-01_rb,&\n        & 6.232583e-01_rb /)\n      ssaice3(:, 18) = (/ &\n! band 18\n        & 9.924147e-01_rb,9.882792e-01_rb,9.842257e-01_rb,9.802522e-01_rb,9.763566e-01_rb,&\n        & 9.725367e-01_rb,9.687905e-01_rb,9.651157e-01_rb,9.615104e-01_rb,9.579725e-01_rb,&\n        & 9.544997e-01_rb,9.510901e-01_rb,9.477416e-01_rb,9.444520e-01_rb,9.412194e-01_rb,&\n        & 9.380415e-01_rb,9.349165e-01_rb,9.318421e-01_rb,9.288164e-01_rb,9.258373e-01_rb,&\n        & 9.229027e-01_rb,9.200106e-01_rb,9.171589e-01_rb,9.143457e-01_rb,9.115688e-01_rb,&\n        & 9.088263e-01_rb,9.061161e-01_rb,9.034362e-01_rb,9.007846e-01_rb,8.981592e-01_rb,&\n        & 8.955581e-01_rb,8.929792e-01_rb,8.904206e-01_rb,8.878803e-01_rb,8.853562e-01_rb,&\n        & 8.828464e-01_rb,8.803488e-01_rb,8.778616e-01_rb,8.753827e-01_rb,8.729102e-01_rb,&\n        & 8.704421e-01_rb,8.679764e-01_rb,8.655112e-01_rb,8.630445e-01_rb,8.605744e-01_rb,&\n        & 8.580989e-01_rb /)\n      ssaice3(:, 19) = (/ &\n! band 19\n        & 9.629413e-01_rb,9.517182e-01_rb,9.409209e-01_rb,9.305366e-01_rb,9.205529e-01_rb,&\n        & 9.109569e-01_rb,9.017362e-01_rb,8.928780e-01_rb,8.843699e-01_rb,8.761992e-01_rb,&\n        & 8.683536e-01_rb,8.608204e-01_rb,8.535873e-01_rb,8.466417e-01_rb,8.399712e-01_rb,&\n        & 8.335635e-01_rb,8.274062e-01_rb,8.214868e-01_rb,8.157932e-01_rb,8.103129e-01_rb,&\n        & 8.050336e-01_rb,7.999432e-01_rb,7.950294e-01_rb,7.902798e-01_rb,7.856825e-01_rb,&\n        & 7.812250e-01_rb,7.768954e-01_rb,7.726815e-01_rb,7.685711e-01_rb,7.645522e-01_rb,&\n        & 7.606126e-01_rb,7.567404e-01_rb,7.529234e-01_rb,7.491498e-01_rb,7.454074e-01_rb,&\n        & 7.416844e-01_rb,7.379688e-01_rb,7.342485e-01_rb,7.305118e-01_rb,7.267468e-01_rb,&\n        & 7.229415e-01_rb,7.190841e-01_rb,7.151628e-01_rb,7.111657e-01_rb,7.070811e-01_rb,&\n        & 7.028972e-01_rb /)\n      ssaice3(:, 20) = (/ &\n! band 20\n        & 9.942270e-01_rb,9.909206e-01_rb,9.876775e-01_rb,9.844960e-01_rb,9.813746e-01_rb,&\n        & 9.783114e-01_rb,9.753049e-01_rb,9.723535e-01_rb,9.694553e-01_rb,9.666088e-01_rb,&\n        & 9.638123e-01_rb,9.610641e-01_rb,9.583626e-01_rb,9.557060e-01_rb,9.530928e-01_rb,&\n        & 9.505211e-01_rb,9.479895e-01_rb,9.454961e-01_rb,9.430393e-01_rb,9.406174e-01_rb,&\n        & 9.382288e-01_rb,9.358717e-01_rb,9.335446e-01_rb,9.312456e-01_rb,9.289731e-01_rb,&\n        & 9.267255e-01_rb,9.245010e-01_rb,9.222980e-01_rb,9.201147e-01_rb,9.179496e-01_rb,&\n        & 9.158008e-01_rb,9.136667e-01_rb,9.115457e-01_rb,9.094359e-01_rb,9.073358e-01_rb,&\n        & 9.052436e-01_rb,9.031577e-01_rb,9.010763e-01_rb,8.989977e-01_rb,8.969203e-01_rb,&\n        & 8.948423e-01_rb,8.927620e-01_rb,8.906778e-01_rb,8.885879e-01_rb,8.864907e-01_rb,&\n        & 8.843843e-01_rb /)\n      ssaice3(:, 21) = (/ &\n! band 21\n        & 9.934014e-01_rb,9.899331e-01_rb,9.865537e-01_rb,9.832610e-01_rb,9.800523e-01_rb,&\n        & 9.769254e-01_rb,9.738777e-01_rb,9.709069e-01_rb,9.680106e-01_rb,9.651862e-01_rb,&\n        & 9.624315e-01_rb,9.597439e-01_rb,9.571212e-01_rb,9.545608e-01_rb,9.520605e-01_rb,&\n        & 9.496177e-01_rb,9.472301e-01_rb,9.448954e-01_rb,9.426111e-01_rb,9.403749e-01_rb,&\n        & 9.381843e-01_rb,9.360370e-01_rb,9.339307e-01_rb,9.318629e-01_rb,9.298313e-01_rb,&\n        & 9.278336e-01_rb,9.258673e-01_rb,9.239302e-01_rb,9.220198e-01_rb,9.201338e-01_rb,&\n        & 9.182700e-01_rb,9.164258e-01_rb,9.145991e-01_rb,9.127874e-01_rb,9.109884e-01_rb,&\n        & 9.091999e-01_rb,9.074194e-01_rb,9.056447e-01_rb,9.038735e-01_rb,9.021033e-01_rb,&\n        & 9.003320e-01_rb,8.985572e-01_rb,8.967766e-01_rb,8.949879e-01_rb,8.931888e-01_rb,&\n        & 8.913770e-01_rb /)\n      ssaice3(:, 22) = (/ &\n! band 22\n        & 9.994833e-01_rb,9.992055e-01_rb,9.989278e-01_rb,9.986500e-01_rb,9.983724e-01_rb,&\n        & 9.980947e-01_rb,9.978172e-01_rb,9.975397e-01_rb,9.972623e-01_rb,9.969849e-01_rb,&\n        & 9.967077e-01_rb,9.964305e-01_rb,9.961535e-01_rb,9.958765e-01_rb,9.955997e-01_rb,&\n        & 9.953230e-01_rb,9.950464e-01_rb,9.947699e-01_rb,9.944936e-01_rb,9.942174e-01_rb,&\n        & 9.939414e-01_rb,9.936656e-01_rb,9.933899e-01_rb,9.931144e-01_rb,9.928390e-01_rb,&\n        & 9.925639e-01_rb,9.922889e-01_rb,9.920141e-01_rb,9.917396e-01_rb,9.914652e-01_rb,&\n        & 9.911911e-01_rb,9.909171e-01_rb,9.906434e-01_rb,9.903700e-01_rb,9.900967e-01_rb,&\n        & 9.898237e-01_rb,9.895510e-01_rb,9.892784e-01_rb,9.890062e-01_rb,9.887342e-01_rb,&\n        & 9.884625e-01_rb,9.881911e-01_rb,9.879199e-01_rb,9.876490e-01_rb,9.873784e-01_rb,&\n        & 9.871081e-01_rb /)\n      ssaice3(:, 23) = (/ &\n! band 23\n        & 9.999343e-01_rb,9.998917e-01_rb,9.998492e-01_rb,9.998067e-01_rb,9.997642e-01_rb,&\n        & 9.997218e-01_rb,9.996795e-01_rb,9.996372e-01_rb,9.995949e-01_rb,9.995528e-01_rb,&\n        & 9.995106e-01_rb,9.994686e-01_rb,9.994265e-01_rb,9.993845e-01_rb,9.993426e-01_rb,&\n        & 9.993007e-01_rb,9.992589e-01_rb,9.992171e-01_rb,9.991754e-01_rb,9.991337e-01_rb,&\n        & 9.990921e-01_rb,9.990505e-01_rb,9.990089e-01_rb,9.989674e-01_rb,9.989260e-01_rb,&\n        & 9.988846e-01_rb,9.988432e-01_rb,9.988019e-01_rb,9.987606e-01_rb,9.987194e-01_rb,&\n        & 9.986782e-01_rb,9.986370e-01_rb,9.985959e-01_rb,9.985549e-01_rb,9.985139e-01_rb,&\n        & 9.984729e-01_rb,9.984319e-01_rb,9.983910e-01_rb,9.983502e-01_rb,9.983094e-01_rb,&\n        & 9.982686e-01_rb,9.982279e-01_rb,9.981872e-01_rb,9.981465e-01_rb,9.981059e-01_rb,&\n        & 9.980653e-01_rb /)\n      ssaice3(:, 24) = (/ &\n! band 24\n        & 9.999978e-01_rb,9.999965e-01_rb,9.999952e-01_rb,9.999939e-01_rb,9.999926e-01_rb,&\n        & 9.999913e-01_rb,9.999900e-01_rb,9.999887e-01_rb,9.999873e-01_rb,9.999860e-01_rb,&\n        & 9.999847e-01_rb,9.999834e-01_rb,9.999821e-01_rb,9.999808e-01_rb,9.999795e-01_rb,&\n        & 9.999782e-01_rb,9.999769e-01_rb,9.999756e-01_rb,9.999743e-01_rb,9.999730e-01_rb,&\n        & 9.999717e-01_rb,9.999704e-01_rb,9.999691e-01_rb,9.999678e-01_rb,9.999665e-01_rb,&\n        & 9.999652e-01_rb,9.999639e-01_rb,9.999626e-01_rb,9.999613e-01_rb,9.999600e-01_rb,&\n        & 9.999587e-01_rb,9.999574e-01_rb,9.999561e-01_rb,9.999548e-01_rb,9.999535e-01_rb,&\n        & 9.999522e-01_rb,9.999509e-01_rb,9.999496e-01_rb,9.999483e-01_rb,9.999470e-01_rb,&\n        & 9.999457e-01_rb,9.999444e-01_rb,9.999431e-01_rb,9.999418e-01_rb,9.999405e-01_rb,&\n        & 9.999392e-01_rb /)\n      ssaice3(:, 25) = (/ &\n! band 25\n        & 9.999994e-01_rb,9.999993e-01_rb,9.999991e-01_rb,9.999990e-01_rb,9.999989e-01_rb,&\n        & 9.999987e-01_rb,9.999986e-01_rb,9.999984e-01_rb,9.999983e-01_rb,9.999982e-01_rb,&\n        & 9.999980e-01_rb,9.999979e-01_rb,9.999977e-01_rb,9.999976e-01_rb,9.999975e-01_rb,&\n        & 9.999973e-01_rb,9.999972e-01_rb,9.999970e-01_rb,9.999969e-01_rb,9.999967e-01_rb,&\n        & 9.999966e-01_rb,9.999965e-01_rb,9.999963e-01_rb,9.999962e-01_rb,9.999960e-01_rb,&\n        & 9.999959e-01_rb,9.999957e-01_rb,9.999956e-01_rb,9.999954e-01_rb,9.999953e-01_rb,&\n        & 9.999952e-01_rb,9.999950e-01_rb,9.999949e-01_rb,9.999947e-01_rb,9.999946e-01_rb,&\n        & 9.999944e-01_rb,9.999943e-01_rb,9.999941e-01_rb,9.999940e-01_rb,9.999939e-01_rb,&\n        & 9.999937e-01_rb,9.999936e-01_rb,9.999934e-01_rb,9.999933e-01_rb,9.999931e-01_rb,&\n        & 9.999930e-01_rb /)\n      ssaice3(:, 26) = (/ &\n! band 26\n        & 9.999997e-01_rb,9.999995e-01_rb,9.999992e-01_rb,9.999990e-01_rb,9.999987e-01_rb,&\n        & 9.999985e-01_rb,9.999983e-01_rb,9.999980e-01_rb,9.999978e-01_rb,9.999976e-01_rb,&\n        & 9.999973e-01_rb,9.999971e-01_rb,9.999969e-01_rb,9.999967e-01_rb,9.999965e-01_rb,&\n        & 9.999963e-01_rb,9.999960e-01_rb,9.999958e-01_rb,9.999956e-01_rb,9.999954e-01_rb,&\n        & 9.999952e-01_rb,9.999950e-01_rb,9.999948e-01_rb,9.999946e-01_rb,9.999944e-01_rb,&\n        & 9.999942e-01_rb,9.999939e-01_rb,9.999937e-01_rb,9.999935e-01_rb,9.999933e-01_rb,&\n        & 9.999931e-01_rb,9.999929e-01_rb,9.999927e-01_rb,9.999925e-01_rb,9.999923e-01_rb,&\n        & 9.999920e-01_rb,9.999918e-01_rb,9.999916e-01_rb,9.999914e-01_rb,9.999911e-01_rb,&\n        & 9.999909e-01_rb,9.999907e-01_rb,9.999905e-01_rb,9.999902e-01_rb,9.999900e-01_rb,&\n        & 9.999897e-01_rb /)\n      ssaice3(:, 27) = (/ &\n! band 27\n        & 9.999991e-01_rb,9.999985e-01_rb,9.999980e-01_rb,9.999974e-01_rb,9.999968e-01_rb,&\n        & 9.999963e-01_rb,9.999957e-01_rb,9.999951e-01_rb,9.999946e-01_rb,9.999940e-01_rb,&\n        & 9.999934e-01_rb,9.999929e-01_rb,9.999923e-01_rb,9.999918e-01_rb,9.999912e-01_rb,&\n        & 9.999907e-01_rb,9.999901e-01_rb,9.999896e-01_rb,9.999891e-01_rb,9.999885e-01_rb,&\n        & 9.999880e-01_rb,9.999874e-01_rb,9.999869e-01_rb,9.999863e-01_rb,9.999858e-01_rb,&\n        & 9.999853e-01_rb,9.999847e-01_rb,9.999842e-01_rb,9.999836e-01_rb,9.999831e-01_rb,&\n        & 9.999826e-01_rb,9.999820e-01_rb,9.999815e-01_rb,9.999809e-01_rb,9.999804e-01_rb,&\n        & 9.999798e-01_rb,9.999793e-01_rb,9.999787e-01_rb,9.999782e-01_rb,9.999776e-01_rb,&\n        & 9.999770e-01_rb,9.999765e-01_rb,9.999759e-01_rb,9.999754e-01_rb,9.999748e-01_rb,&\n        & 9.999742e-01_rb /)\n      ssaice3(:, 28) = (/ &\n! band 28\n        & 9.999975e-01_rb,9.999961e-01_rb,9.999946e-01_rb,9.999931e-01_rb,9.999917e-01_rb,&\n        & 9.999903e-01_rb,9.999888e-01_rb,9.999874e-01_rb,9.999859e-01_rb,9.999845e-01_rb,&\n        & 9.999831e-01_rb,9.999816e-01_rb,9.999802e-01_rb,9.999788e-01_rb,9.999774e-01_rb,&\n        & 9.999759e-01_rb,9.999745e-01_rb,9.999731e-01_rb,9.999717e-01_rb,9.999702e-01_rb,&\n        & 9.999688e-01_rb,9.999674e-01_rb,9.999660e-01_rb,9.999646e-01_rb,9.999631e-01_rb,&\n        & 9.999617e-01_rb,9.999603e-01_rb,9.999589e-01_rb,9.999574e-01_rb,9.999560e-01_rb,&\n        & 9.999546e-01_rb,9.999532e-01_rb,9.999517e-01_rb,9.999503e-01_rb,9.999489e-01_rb,&\n        & 9.999474e-01_rb,9.999460e-01_rb,9.999446e-01_rb,9.999431e-01_rb,9.999417e-01_rb,&\n        & 9.999403e-01_rb,9.999388e-01_rb,9.999374e-01_rb,9.999359e-01_rb,9.999345e-01_rb,&\n        & 9.999330e-01_rb /)\n      ssaice3(:, 29) = (/ &\n! band 29\n        & 4.526500e-01_rb,5.287890e-01_rb,5.410487e-01_rb,5.459865e-01_rb,5.485149e-01_rb,&\n        & 5.498914e-01_rb,5.505895e-01_rb,5.508310e-01_rb,5.507364e-01_rb,5.503793e-01_rb,&\n        & 5.498090e-01_rb,5.490612e-01_rb,5.481637e-01_rb,5.471395e-01_rb,5.460083e-01_rb,&\n        & 5.447878e-01_rb,5.434946e-01_rb,5.421442e-01_rb,5.407514e-01_rb,5.393309e-01_rb,&\n        & 5.378970e-01_rb,5.364641e-01_rb,5.350464e-01_rb,5.336582e-01_rb,5.323140e-01_rb,&\n        & 5.310283e-01_rb,5.298158e-01_rb,5.286914e-01_rb,5.276704e-01_rb,5.267680e-01_rb,&\n        & 5.260000e-01_rb,5.253823e-01_rb,5.249311e-01_rb,5.246629e-01_rb,5.245946e-01_rb,&\n        & 5.247434e-01_rb,5.251268e-01_rb,5.257626e-01_rb,5.266693e-01_rb,5.278653e-01_rb,&\n        & 5.293698e-01_rb,5.312022e-01_rb,5.333823e-01_rb,5.359305e-01_rb,5.388676e-01_rb,&\n        & 5.422146e-01_rb /)\n\n! asymmetry factor: unitless\n      asyice3(:, 16) = (/ &\n! band 16\n        & 8.340752e-01_rb,8.435170e-01_rb,8.517487e-01_rb,8.592064e-01_rb,8.660387e-01_rb,&\n        & 8.723204e-01_rb,8.780997e-01_rb,8.834137e-01_rb,8.882934e-01_rb,8.927662e-01_rb,&\n        & 8.968577e-01_rb,9.005914e-01_rb,9.039899e-01_rb,9.070745e-01_rb,9.098659e-01_rb,&\n        & 9.123836e-01_rb,9.146466e-01_rb,9.166734e-01_rb,9.184817e-01_rb,9.200886e-01_rb,&\n        & 9.215109e-01_rb,9.227648e-01_rb,9.238661e-01_rb,9.248304e-01_rb,9.256727e-01_rb,&\n        & 9.264078e-01_rb,9.270505e-01_rb,9.276150e-01_rb,9.281156e-01_rb,9.285662e-01_rb,&\n        & 9.289806e-01_rb,9.293726e-01_rb,9.297557e-01_rb,9.301435e-01_rb,9.305491e-01_rb,&\n        & 9.309859e-01_rb,9.314671e-01_rb,9.320055e-01_rb,9.326140e-01_rb,9.333053e-01_rb,&\n        & 9.340919e-01_rb,9.349861e-01_rb,9.360000e-01_rb,9.371451e-01_rb,9.384329e-01_rb,&\n        & 9.398744e-01_rb /)\n      asyice3(:, 17) = (/ &\n! band 17\n        & 8.728160e-01_rb,8.777333e-01_rb,8.823754e-01_rb,8.867535e-01_rb,8.908785e-01_rb,&\n        & 8.947611e-01_rb,8.984118e-01_rb,9.018408e-01_rb,9.050582e-01_rb,9.080739e-01_rb,&\n        & 9.108976e-01_rb,9.135388e-01_rb,9.160068e-01_rb,9.183106e-01_rb,9.204595e-01_rb,&\n        & 9.224620e-01_rb,9.243271e-01_rb,9.260632e-01_rb,9.276788e-01_rb,9.291822e-01_rb,&\n        & 9.305817e-01_rb,9.318853e-01_rb,9.331012e-01_rb,9.342372e-01_rb,9.353013e-01_rb,&\n        & 9.363013e-01_rb,9.372450e-01_rb,9.381400e-01_rb,9.389939e-01_rb,9.398145e-01_rb,&\n        & 9.406092e-01_rb,9.413856e-01_rb,9.421511e-01_rb,9.429131e-01_rb,9.436790e-01_rb,&\n        & 9.444561e-01_rb,9.452517e-01_rb,9.460729e-01_rb,9.469270e-01_rb,9.478209e-01_rb,&\n        & 9.487617e-01_rb,9.497562e-01_rb,9.508112e-01_rb,9.519335e-01_rb,9.531294e-01_rb,&\n        & 9.544055e-01_rb /)\n      asyice3(:, 18) = (/ &\n! band 18\n        & 7.897566e-01_rb,7.948704e-01_rb,7.998041e-01_rb,8.045623e-01_rb,8.091495e-01_rb,&\n        & 8.135702e-01_rb,8.178290e-01_rb,8.219305e-01_rb,8.258790e-01_rb,8.296792e-01_rb,&\n        & 8.333355e-01_rb,8.368524e-01_rb,8.402343e-01_rb,8.434856e-01_rb,8.466108e-01_rb,&\n        & 8.496143e-01_rb,8.525004e-01_rb,8.552737e-01_rb,8.579384e-01_rb,8.604990e-01_rb,&\n        & 8.629597e-01_rb,8.653250e-01_rb,8.675992e-01_rb,8.697867e-01_rb,8.718916e-01_rb,&\n        & 8.739185e-01_rb,8.758715e-01_rb,8.777551e-01_rb,8.795734e-01_rb,8.813308e-01_rb,&\n        & 8.830315e-01_rb,8.846799e-01_rb,8.862802e-01_rb,8.878366e-01_rb,8.893534e-01_rb,&\n        & 8.908350e-01_rb,8.922854e-01_rb,8.937090e-01_rb,8.951099e-01_rb,8.964925e-01_rb,&\n        & 8.978609e-01_rb,8.992192e-01_rb,9.005718e-01_rb,9.019229e-01_rb,9.032765e-01_rb,&\n        & 9.046369e-01_rb /)\n      asyice3(:, 19) = (/ &\n! band 19\n        & 7.812615e-01_rb,7.887764e-01_rb,7.959664e-01_rb,8.028413e-01_rb,8.094109e-01_rb,&\n        & 8.156849e-01_rb,8.216730e-01_rb,8.273846e-01_rb,8.328294e-01_rb,8.380166e-01_rb,&\n        & 8.429556e-01_rb,8.476556e-01_rb,8.521258e-01_rb,8.563753e-01_rb,8.604131e-01_rb,&\n        & 8.642481e-01_rb,8.678893e-01_rb,8.713455e-01_rb,8.746254e-01_rb,8.777378e-01_rb,&\n        & 8.806914e-01_rb,8.834948e-01_rb,8.861566e-01_rb,8.886854e-01_rb,8.910897e-01_rb,&\n        & 8.933779e-01_rb,8.955586e-01_rb,8.976402e-01_rb,8.996311e-01_rb,9.015398e-01_rb,&\n        & 9.033745e-01_rb,9.051436e-01_rb,9.068555e-01_rb,9.085185e-01_rb,9.101410e-01_rb,&\n        & 9.117311e-01_rb,9.132972e-01_rb,9.148476e-01_rb,9.163905e-01_rb,9.179340e-01_rb,&\n        & 9.194864e-01_rb,9.210559e-01_rb,9.226505e-01_rb,9.242784e-01_rb,9.259476e-01_rb,&\n        & 9.276661e-01_rb /)\n      asyice3(:, 20) = (/ &\n! band 20\n        & 7.640720e-01_rb,7.691119e-01_rb,7.739941e-01_rb,7.787222e-01_rb,7.832998e-01_rb,&\n        & 7.877304e-01_rb,7.920177e-01_rb,7.961652e-01_rb,8.001765e-01_rb,8.040551e-01_rb,&\n        & 8.078044e-01_rb,8.114280e-01_rb,8.149294e-01_rb,8.183119e-01_rb,8.215791e-01_rb,&\n        & 8.247344e-01_rb,8.277812e-01_rb,8.307229e-01_rb,8.335629e-01_rb,8.363046e-01_rb,&\n        & 8.389514e-01_rb,8.415067e-01_rb,8.439738e-01_rb,8.463560e-01_rb,8.486568e-01_rb,&\n        & 8.508795e-01_rb,8.530274e-01_rb,8.551039e-01_rb,8.571122e-01_rb,8.590558e-01_rb,&\n        & 8.609378e-01_rb,8.627618e-01_rb,8.645309e-01_rb,8.662485e-01_rb,8.679178e-01_rb,&\n        & 8.695423e-01_rb,8.711251e-01_rb,8.726697e-01_rb,8.741792e-01_rb,8.756571e-01_rb,&\n        & 8.771065e-01_rb,8.785307e-01_rb,8.799331e-01_rb,8.813169e-01_rb,8.826854e-01_rb,&\n        & 8.840419e-01_rb /)\n      asyice3(:, 21) = (/ &\n! band 21\n        & 7.602598e-01_rb,7.651572e-01_rb,7.699014e-01_rb,7.744962e-01_rb,7.789452e-01_rb,&\n        & 7.832522e-01_rb,7.874205e-01_rb,7.914538e-01_rb,7.953555e-01_rb,7.991290e-01_rb,&\n        & 8.027777e-01_rb,8.063049e-01_rb,8.097140e-01_rb,8.130081e-01_rb,8.161906e-01_rb,&\n        & 8.192645e-01_rb,8.222331e-01_rb,8.250993e-01_rb,8.278664e-01_rb,8.305374e-01_rb,&\n        & 8.331153e-01_rb,8.356030e-01_rb,8.380037e-01_rb,8.403201e-01_rb,8.425553e-01_rb,&\n        & 8.447121e-01_rb,8.467935e-01_rb,8.488022e-01_rb,8.507412e-01_rb,8.526132e-01_rb,&\n        & 8.544210e-01_rb,8.561675e-01_rb,8.578554e-01_rb,8.594875e-01_rb,8.610665e-01_rb,&\n        & 8.625951e-01_rb,8.640760e-01_rb,8.655119e-01_rb,8.669055e-01_rb,8.682594e-01_rb,&\n        & 8.695763e-01_rb,8.708587e-01_rb,8.721094e-01_rb,8.733308e-01_rb,8.745255e-01_rb,&\n        & 8.756961e-01_rb /)\n      asyice3(:, 22) = (/ &\n! band 22\n        & 7.568957e-01_rb,7.606995e-01_rb,7.644072e-01_rb,7.680204e-01_rb,7.715402e-01_rb,&\n        & 7.749682e-01_rb,7.783057e-01_rb,7.815541e-01_rb,7.847148e-01_rb,7.877892e-01_rb,&\n        & 7.907786e-01_rb,7.936846e-01_rb,7.965084e-01_rb,7.992515e-01_rb,8.019153e-01_rb,&\n        & 8.045011e-01_rb,8.070103e-01_rb,8.094444e-01_rb,8.118048e-01_rb,8.140927e-01_rb,&\n        & 8.163097e-01_rb,8.184571e-01_rb,8.205364e-01_rb,8.225488e-01_rb,8.244958e-01_rb,&\n        & 8.263789e-01_rb,8.281993e-01_rb,8.299586e-01_rb,8.316580e-01_rb,8.332991e-01_rb,&\n        & 8.348831e-01_rb,8.364115e-01_rb,8.378857e-01_rb,8.393071e-01_rb,8.406770e-01_rb,&\n        & 8.419969e-01_rb,8.432682e-01_rb,8.444923e-01_rb,8.456706e-01_rb,8.468044e-01_rb,&\n        & 8.478952e-01_rb,8.489444e-01_rb,8.499533e-01_rb,8.509234e-01_rb,8.518561e-01_rb,&\n        & 8.527528e-01_rb /)\n      asyice3(:, 23) = (/ &\n! band 23\n        & 7.575066e-01_rb,7.606912e-01_rb,7.638236e-01_rb,7.669035e-01_rb,7.699306e-01_rb,&\n        & 7.729046e-01_rb,7.758254e-01_rb,7.786926e-01_rb,7.815060e-01_rb,7.842654e-01_rb,&\n        & 7.869705e-01_rb,7.896211e-01_rb,7.922168e-01_rb,7.947574e-01_rb,7.972428e-01_rb,&\n        & 7.996726e-01_rb,8.020466e-01_rb,8.043646e-01_rb,8.066262e-01_rb,8.088313e-01_rb,&\n        & 8.109796e-01_rb,8.130709e-01_rb,8.151049e-01_rb,8.170814e-01_rb,8.190001e-01_rb,&\n        & 8.208608e-01_rb,8.226632e-01_rb,8.244071e-01_rb,8.260924e-01_rb,8.277186e-01_rb,&\n        & 8.292856e-01_rb,8.307932e-01_rb,8.322411e-01_rb,8.336291e-01_rb,8.349570e-01_rb,&\n        & 8.362244e-01_rb,8.374312e-01_rb,8.385772e-01_rb,8.396621e-01_rb,8.406856e-01_rb,&\n        & 8.416476e-01_rb,8.425479e-01_rb,8.433861e-01_rb,8.441620e-01_rb,8.448755e-01_rb,&\n        & 8.455263e-01_rb /)\n      asyice3(:, 24) = (/ &\n! band 24\n        & 7.568829e-01_rb,7.597947e-01_rb,7.626745e-01_rb,7.655212e-01_rb,7.683337e-01_rb,&\n        & 7.711111e-01_rb,7.738523e-01_rb,7.765565e-01_rb,7.792225e-01_rb,7.818494e-01_rb,&\n        & 7.844362e-01_rb,7.869819e-01_rb,7.894854e-01_rb,7.919459e-01_rb,7.943623e-01_rb,&\n        & 7.967337e-01_rb,7.990590e-01_rb,8.013373e-01_rb,8.035676e-01_rb,8.057488e-01_rb,&\n        & 8.078802e-01_rb,8.099605e-01_rb,8.119890e-01_rb,8.139645e-01_rb,8.158862e-01_rb,&\n        & 8.177530e-01_rb,8.195641e-01_rb,8.213183e-01_rb,8.230149e-01_rb,8.246527e-01_rb,&\n        & 8.262308e-01_rb,8.277483e-01_rb,8.292042e-01_rb,8.305976e-01_rb,8.319275e-01_rb,&\n        & 8.331929e-01_rb,8.343929e-01_rb,8.355265e-01_rb,8.365928e-01_rb,8.375909e-01_rb,&\n        & 8.385197e-01_rb,8.393784e-01_rb,8.401659e-01_rb,8.408815e-01_rb,8.415240e-01_rb,&\n        & 8.420926e-01_rb /)\n      asyice3(:, 25) = (/ &\n! band 25\n        & 7.548616e-01_rb,7.575454e-01_rb,7.602153e-01_rb,7.628696e-01_rb,7.655067e-01_rb,&\n        & 7.681249e-01_rb,7.707225e-01_rb,7.732978e-01_rb,7.758492e-01_rb,7.783750e-01_rb,&\n        & 7.808735e-01_rb,7.833430e-01_rb,7.857819e-01_rb,7.881886e-01_rb,7.905612e-01_rb,&\n        & 7.928983e-01_rb,7.951980e-01_rb,7.974588e-01_rb,7.996789e-01_rb,8.018567e-01_rb,&\n        & 8.039905e-01_rb,8.060787e-01_rb,8.081196e-01_rb,8.101115e-01_rb,8.120527e-01_rb,&\n        & 8.139416e-01_rb,8.157764e-01_rb,8.175557e-01_rb,8.192776e-01_rb,8.209405e-01_rb,&\n        & 8.225427e-01_rb,8.240826e-01_rb,8.255585e-01_rb,8.269688e-01_rb,8.283117e-01_rb,&\n        & 8.295856e-01_rb,8.307889e-01_rb,8.319198e-01_rb,8.329767e-01_rb,8.339579e-01_rb,&\n        & 8.348619e-01_rb,8.356868e-01_rb,8.364311e-01_rb,8.370930e-01_rb,8.376710e-01_rb,&\n        & 8.381633e-01_rb /)\n      asyice3(:, 26) = (/ &\n! band 26\n        & 7.491854e-01_rb,7.518523e-01_rb,7.545089e-01_rb,7.571534e-01_rb,7.597839e-01_rb,&\n        & 7.623987e-01_rb,7.649959e-01_rb,7.675737e-01_rb,7.701303e-01_rb,7.726639e-01_rb,&\n        & 7.751727e-01_rb,7.776548e-01_rb,7.801084e-01_rb,7.825318e-01_rb,7.849230e-01_rb,&\n        & 7.872804e-01_rb,7.896020e-01_rb,7.918862e-01_rb,7.941309e-01_rb,7.963345e-01_rb,&\n        & 7.984951e-01_rb,8.006109e-01_rb,8.026802e-01_rb,8.047009e-01_rb,8.066715e-01_rb,&\n        & 8.085900e-01_rb,8.104546e-01_rb,8.122636e-01_rb,8.140150e-01_rb,8.157072e-01_rb,&\n        & 8.173382e-01_rb,8.189063e-01_rb,8.204096e-01_rb,8.218464e-01_rb,8.232148e-01_rb,&\n        & 8.245130e-01_rb,8.257391e-01_rb,8.268915e-01_rb,8.279682e-01_rb,8.289675e-01_rb,&\n        & 8.298875e-01_rb,8.307264e-01_rb,8.314824e-01_rb,8.321537e-01_rb,8.327385e-01_rb,&\n        & 8.332350e-01_rb /)\n      asyice3(:, 27) = (/ &\n! band 27\n        & 7.397086e-01_rb,7.424069e-01_rb,7.450955e-01_rb,7.477725e-01_rb,7.504362e-01_rb,&\n        & 7.530846e-01_rb,7.557159e-01_rb,7.583283e-01_rb,7.609199e-01_rb,7.634888e-01_rb,&\n        & 7.660332e-01_rb,7.685512e-01_rb,7.710411e-01_rb,7.735009e-01_rb,7.759288e-01_rb,&\n        & 7.783229e-01_rb,7.806814e-01_rb,7.830024e-01_rb,7.852841e-01_rb,7.875246e-01_rb,&\n        & 7.897221e-01_rb,7.918748e-01_rb,7.939807e-01_rb,7.960380e-01_rb,7.980449e-01_rb,&\n        & 7.999995e-01_rb,8.019000e-01_rb,8.037445e-01_rb,8.055311e-01_rb,8.072581e-01_rb,&\n        & 8.089235e-01_rb,8.105255e-01_rb,8.120623e-01_rb,8.135319e-01_rb,8.149326e-01_rb,&\n        & 8.162626e-01_rb,8.175198e-01_rb,8.187025e-01_rb,8.198089e-01_rb,8.208371e-01_rb,&\n        & 8.217852e-01_rb,8.226514e-01_rb,8.234338e-01_rb,8.241306e-01_rb,8.247399e-01_rb,&\n        & 8.252599e-01_rb /)\n      asyice3(:, 28) = (/ &\n! band 28\n        & 7.224533e-01_rb,7.251681e-01_rb,7.278728e-01_rb,7.305654e-01_rb,7.332444e-01_rb,&\n        & 7.359078e-01_rb,7.385539e-01_rb,7.411808e-01_rb,7.437869e-01_rb,7.463702e-01_rb,&\n        & 7.489291e-01_rb,7.514616e-01_rb,7.539661e-01_rb,7.564408e-01_rb,7.588837e-01_rb,&\n        & 7.612933e-01_rb,7.636676e-01_rb,7.660049e-01_rb,7.683034e-01_rb,7.705612e-01_rb,&\n        & 7.727767e-01_rb,7.749480e-01_rb,7.770733e-01_rb,7.791509e-01_rb,7.811789e-01_rb,&\n        & 7.831556e-01_rb,7.850791e-01_rb,7.869478e-01_rb,7.887597e-01_rb,7.905131e-01_rb,&\n        & 7.922062e-01_rb,7.938372e-01_rb,7.954044e-01_rb,7.969059e-01_rb,7.983399e-01_rb,&\n        & 7.997047e-01_rb,8.009985e-01_rb,8.022195e-01_rb,8.033658e-01_rb,8.044357e-01_rb,&\n        & 8.054275e-01_rb,8.063392e-01_rb,8.071692e-01_rb,8.079157e-01_rb,8.085768e-01_rb,&\n        & 8.091507e-01_rb /)\n      asyice3(:, 29) = (/ &\n! band 29\n        & 8.850026e-01_rb,9.005489e-01_rb,9.069242e-01_rb,9.121799e-01_rb,9.168987e-01_rb,&\n        & 9.212259e-01_rb,9.252176e-01_rb,9.289028e-01_rb,9.323000e-01_rb,9.354235e-01_rb,&\n        & 9.382858e-01_rb,9.408985e-01_rb,9.432734e-01_rb,9.454218e-01_rb,9.473557e-01_rb,&\n        & 9.490871e-01_rb,9.506282e-01_rb,9.519917e-01_rb,9.531904e-01_rb,9.542374e-01_rb,&\n        & 9.551461e-01_rb,9.559298e-01_rb,9.566023e-01_rb,9.571775e-01_rb,9.576692e-01_rb,&\n        & 9.580916e-01_rb,9.584589e-01_rb,9.587853e-01_rb,9.590851e-01_rb,9.593729e-01_rb,&\n        & 9.596632e-01_rb,9.599705e-01_rb,9.603096e-01_rb,9.606954e-01_rb,9.611427e-01_rb,&\n        & 9.616667e-01_rb,9.622826e-01_rb,9.630060e-01_rb,9.638524e-01_rb,9.648379e-01_rb,&\n        & 9.659788e-01_rb,9.672916e-01_rb,9.687933e-01_rb,9.705014e-01_rb,9.724337e-01_rb,&\n        & 9.746084e-01_rb /)\n\n! fdelta: unitless\n      fdlice3(:, 16) = (/ &\n! band 16\n        & 4.959277e-02_rb,4.685292e-02_rb,4.426104e-02_rb,4.181231e-02_rb,3.950191e-02_rb,&\n        & 3.732500e-02_rb,3.527675e-02_rb,3.335235e-02_rb,3.154697e-02_rb,2.985578e-02_rb,&\n        & 2.827395e-02_rb,2.679666e-02_rb,2.541909e-02_rb,2.413640e-02_rb,2.294378e-02_rb,&\n        & 2.183639e-02_rb,2.080940e-02_rb,1.985801e-02_rb,1.897736e-02_rb,1.816265e-02_rb,&\n        & 1.740905e-02_rb,1.671172e-02_rb,1.606585e-02_rb,1.546661e-02_rb,1.490917e-02_rb,&\n        & 1.438870e-02_rb,1.390038e-02_rb,1.343939e-02_rb,1.300089e-02_rb,1.258006e-02_rb,&\n        & 1.217208e-02_rb,1.177212e-02_rb,1.137536e-02_rb,1.097696e-02_rb,1.057210e-02_rb,&\n        & 1.015596e-02_rb,9.723704e-03_rb,9.270516e-03_rb,8.791565e-03_rb,8.282026e-03_rb,&\n        & 7.737072e-03_rb,7.151879e-03_rb,6.521619e-03_rb,5.841467e-03_rb,5.106597e-03_rb,&\n        & 4.312183e-03_rb /)\n      fdlice3(:, 17) = (/ &\n! band 17\n        & 5.071224e-02_rb,5.000217e-02_rb,4.933872e-02_rb,4.871992e-02_rb,4.814380e-02_rb,&\n        & 4.760839e-02_rb,4.711170e-02_rb,4.665177e-02_rb,4.622662e-02_rb,4.583426e-02_rb,&\n        & 4.547274e-02_rb,4.514007e-02_rb,4.483428e-02_rb,4.455340e-02_rb,4.429544e-02_rb,&\n        & 4.405844e-02_rb,4.384041e-02_rb,4.363939e-02_rb,4.345340e-02_rb,4.328047e-02_rb,&\n        & 4.311861e-02_rb,4.296586e-02_rb,4.282024e-02_rb,4.267977e-02_rb,4.254248e-02_rb,&\n        & 4.240640e-02_rb,4.226955e-02_rb,4.212995e-02_rb,4.198564e-02_rb,4.183462e-02_rb,&\n        & 4.167494e-02_rb,4.150462e-02_rb,4.132167e-02_rb,4.112413e-02_rb,4.091003e-02_rb,&\n        & 4.067737e-02_rb,4.042420e-02_rb,4.014854e-02_rb,3.984840e-02_rb,3.952183e-02_rb,&\n        & 3.916683e-02_rb,3.878144e-02_rb,3.836368e-02_rb,3.791158e-02_rb,3.742316e-02_rb,&\n        & 3.689645e-02_rb /)\n      fdlice3(:, 18) = (/ &\n! band 18\n        & 1.062938e-01_rb,1.065234e-01_rb,1.067822e-01_rb,1.070682e-01_rb,1.073793e-01_rb,&\n        & 1.077137e-01_rb,1.080693e-01_rb,1.084442e-01_rb,1.088364e-01_rb,1.092439e-01_rb,&\n        & 1.096647e-01_rb,1.100970e-01_rb,1.105387e-01_rb,1.109878e-01_rb,1.114423e-01_rb,&\n        & 1.119004e-01_rb,1.123599e-01_rb,1.128190e-01_rb,1.132757e-01_rb,1.137279e-01_rb,&\n        & 1.141738e-01_rb,1.146113e-01_rb,1.150385e-01_rb,1.154534e-01_rb,1.158540e-01_rb,&\n        & 1.162383e-01_rb,1.166045e-01_rb,1.169504e-01_rb,1.172741e-01_rb,1.175738e-01_rb,&\n        & 1.178472e-01_rb,1.180926e-01_rb,1.183080e-01_rb,1.184913e-01_rb,1.186405e-01_rb,&\n        & 1.187538e-01_rb,1.188291e-01_rb,1.188645e-01_rb,1.188580e-01_rb,1.188076e-01_rb,&\n        & 1.187113e-01_rb,1.185672e-01_rb,1.183733e-01_rb,1.181277e-01_rb,1.178282e-01_rb,&\n        & 1.174731e-01_rb /)\n      fdlice3(:, 19) = (/ &\n! band 19\n        & 1.076195e-01_rb,1.065195e-01_rb,1.054696e-01_rb,1.044673e-01_rb,1.035099e-01_rb,&\n        & 1.025951e-01_rb,1.017203e-01_rb,1.008831e-01_rb,1.000808e-01_rb,9.931116e-02_rb,&\n        & 9.857151e-02_rb,9.785939e-02_rb,9.717230e-02_rb,9.650774e-02_rb,9.586322e-02_rb,&\n        & 9.523623e-02_rb,9.462427e-02_rb,9.402484e-02_rb,9.343544e-02_rb,9.285358e-02_rb,&\n        & 9.227675e-02_rb,9.170245e-02_rb,9.112818e-02_rb,9.055144e-02_rb,8.996974e-02_rb,&\n        & 8.938056e-02_rb,8.878142e-02_rb,8.816981e-02_rb,8.754323e-02_rb,8.689919e-02_rb,&\n        & 8.623517e-02_rb,8.554869e-02_rb,8.483724e-02_rb,8.409832e-02_rb,8.332943e-02_rb,&\n        & 8.252807e-02_rb,8.169175e-02_rb,8.081795e-02_rb,7.990419e-02_rb,7.894796e-02_rb,&\n        & 7.794676e-02_rb,7.689809e-02_rb,7.579945e-02_rb,7.464834e-02_rb,7.344227e-02_rb,&\n        & 7.217872e-02_rb /)\n      fdlice3(:, 20) = (/ &\n! band 20\n        & 1.119014e-01_rb,1.122706e-01_rb,1.126690e-01_rb,1.130947e-01_rb,1.135456e-01_rb,&\n        & 1.140199e-01_rb,1.145154e-01_rb,1.150302e-01_rb,1.155623e-01_rb,1.161096e-01_rb,&\n        & 1.166703e-01_rb,1.172422e-01_rb,1.178233e-01_rb,1.184118e-01_rb,1.190055e-01_rb,&\n        & 1.196025e-01_rb,1.202008e-01_rb,1.207983e-01_rb,1.213931e-01_rb,1.219832e-01_rb,&\n        & 1.225665e-01_rb,1.231411e-01_rb,1.237050e-01_rb,1.242561e-01_rb,1.247926e-01_rb,&\n        & 1.253122e-01_rb,1.258132e-01_rb,1.262934e-01_rb,1.267509e-01_rb,1.271836e-01_rb,&\n        & 1.275896e-01_rb,1.279669e-01_rb,1.283134e-01_rb,1.286272e-01_rb,1.289063e-01_rb,&\n        & 1.291486e-01_rb,1.293522e-01_rb,1.295150e-01_rb,1.296351e-01_rb,1.297104e-01_rb,&\n        & 1.297390e-01_rb,1.297189e-01_rb,1.296480e-01_rb,1.295244e-01_rb,1.293460e-01_rb,&\n        & 1.291109e-01_rb /)\n      fdlice3(:, 21) = (/ &\n! band 21\n        & 1.133298e-01_rb,1.136777e-01_rb,1.140556e-01_rb,1.144615e-01_rb,1.148934e-01_rb,&\n        & 1.153492e-01_rb,1.158269e-01_rb,1.163243e-01_rb,1.168396e-01_rb,1.173706e-01_rb,&\n        & 1.179152e-01_rb,1.184715e-01_rb,1.190374e-01_rb,1.196108e-01_rb,1.201897e-01_rb,&\n        & 1.207720e-01_rb,1.213558e-01_rb,1.219389e-01_rb,1.225194e-01_rb,1.230951e-01_rb,&\n        & 1.236640e-01_rb,1.242241e-01_rb,1.247733e-01_rb,1.253096e-01_rb,1.258309e-01_rb,&\n        & 1.263352e-01_rb,1.268205e-01_rb,1.272847e-01_rb,1.277257e-01_rb,1.281415e-01_rb,&\n        & 1.285300e-01_rb,1.288893e-01_rb,1.292173e-01_rb,1.295118e-01_rb,1.297710e-01_rb,&\n        & 1.299927e-01_rb,1.301748e-01_rb,1.303154e-01_rb,1.304124e-01_rb,1.304637e-01_rb,&\n        & 1.304673e-01_rb,1.304212e-01_rb,1.303233e-01_rb,1.301715e-01_rb,1.299638e-01_rb,&\n        & 1.296983e-01_rb /)\n      fdlice3(:, 22) = (/ &\n! band 22\n        & 1.145360e-01_rb,1.153256e-01_rb,1.161453e-01_rb,1.169929e-01_rb,1.178666e-01_rb,&\n        & 1.187641e-01_rb,1.196835e-01_rb,1.206227e-01_rb,1.215796e-01_rb,1.225522e-01_rb,&\n        & 1.235383e-01_rb,1.245361e-01_rb,1.255433e-01_rb,1.265579e-01_rb,1.275779e-01_rb,&\n        & 1.286011e-01_rb,1.296257e-01_rb,1.306494e-01_rb,1.316703e-01_rb,1.326862e-01_rb,&\n        & 1.336951e-01_rb,1.346950e-01_rb,1.356838e-01_rb,1.366594e-01_rb,1.376198e-01_rb,&\n        & 1.385629e-01_rb,1.394866e-01_rb,1.403889e-01_rb,1.412678e-01_rb,1.421212e-01_rb,&\n        & 1.429469e-01_rb,1.437430e-01_rb,1.445074e-01_rb,1.452381e-01_rb,1.459329e-01_rb,&\n        & 1.465899e-01_rb,1.472069e-01_rb,1.477819e-01_rb,1.483128e-01_rb,1.487976e-01_rb,&\n        & 1.492343e-01_rb,1.496207e-01_rb,1.499548e-01_rb,1.502346e-01_rb,1.504579e-01_rb,&\n        & 1.506227e-01_rb /)\n      fdlice3(:, 23) = (/ &\n! band 23\n        & 1.153263e-01_rb,1.161445e-01_rb,1.169932e-01_rb,1.178703e-01_rb,1.187738e-01_rb,&\n        & 1.197016e-01_rb,1.206516e-01_rb,1.216217e-01_rb,1.226099e-01_rb,1.236141e-01_rb,&\n        & 1.246322e-01_rb,1.256621e-01_rb,1.267017e-01_rb,1.277491e-01_rb,1.288020e-01_rb,&\n        & 1.298584e-01_rb,1.309163e-01_rb,1.319736e-01_rb,1.330281e-01_rb,1.340778e-01_rb,&\n        & 1.351207e-01_rb,1.361546e-01_rb,1.371775e-01_rb,1.381873e-01_rb,1.391820e-01_rb,&\n        & 1.401593e-01_rb,1.411174e-01_rb,1.420540e-01_rb,1.429671e-01_rb,1.438547e-01_rb,&\n        & 1.447146e-01_rb,1.455449e-01_rb,1.463433e-01_rb,1.471078e-01_rb,1.478364e-01_rb,&\n        & 1.485270e-01_rb,1.491774e-01_rb,1.497857e-01_rb,1.503497e-01_rb,1.508674e-01_rb,&\n        & 1.513367e-01_rb,1.517554e-01_rb,1.521216e-01_rb,1.524332e-01_rb,1.526880e-01_rb,&\n        & 1.528840e-01_rb /)\n      fdlice3(:, 24) = (/ &\n! band 24\n        & 1.160842e-01_rb,1.169118e-01_rb,1.177697e-01_rb,1.186556e-01_rb,1.195676e-01_rb,&\n        & 1.205036e-01_rb,1.214616e-01_rb,1.224394e-01_rb,1.234349e-01_rb,1.244463e-01_rb,&\n        & 1.254712e-01_rb,1.265078e-01_rb,1.275539e-01_rb,1.286075e-01_rb,1.296664e-01_rb,&\n        & 1.307287e-01_rb,1.317923e-01_rb,1.328550e-01_rb,1.339149e-01_rb,1.349699e-01_rb,&\n        & 1.360179e-01_rb,1.370567e-01_rb,1.380845e-01_rb,1.390991e-01_rb,1.400984e-01_rb,&\n        & 1.410803e-01_rb,1.420429e-01_rb,1.429840e-01_rb,1.439016e-01_rb,1.447936e-01_rb,&\n        & 1.456579e-01_rb,1.464925e-01_rb,1.472953e-01_rb,1.480642e-01_rb,1.487972e-01_rb,&\n        & 1.494923e-01_rb,1.501472e-01_rb,1.507601e-01_rb,1.513287e-01_rb,1.518511e-01_rb,&\n        & 1.523252e-01_rb,1.527489e-01_rb,1.531201e-01_rb,1.534368e-01_rb,1.536969e-01_rb,&\n        & 1.538984e-01_rb /)\n      fdlice3(:, 25) = (/ &\n! band 25\n        & 1.168725e-01_rb,1.177088e-01_rb,1.185747e-01_rb,1.194680e-01_rb,1.203867e-01_rb,&\n        & 1.213288e-01_rb,1.222923e-01_rb,1.232750e-01_rb,1.242750e-01_rb,1.252903e-01_rb,&\n        & 1.263187e-01_rb,1.273583e-01_rb,1.284069e-01_rb,1.294626e-01_rb,1.305233e-01_rb,&\n        & 1.315870e-01_rb,1.326517e-01_rb,1.337152e-01_rb,1.347756e-01_rb,1.358308e-01_rb,&\n        & 1.368788e-01_rb,1.379175e-01_rb,1.389449e-01_rb,1.399590e-01_rb,1.409577e-01_rb,&\n        & 1.419389e-01_rb,1.429007e-01_rb,1.438410e-01_rb,1.447577e-01_rb,1.456488e-01_rb,&\n        & 1.465123e-01_rb,1.473461e-01_rb,1.481483e-01_rb,1.489166e-01_rb,1.496492e-01_rb,&\n        & 1.503439e-01_rb,1.509988e-01_rb,1.516118e-01_rb,1.521808e-01_rb,1.527038e-01_rb,&\n        & 1.531788e-01_rb,1.536037e-01_rb,1.539764e-01_rb,1.542951e-01_rb,1.545575e-01_rb,&\n        & 1.547617e-01_rb /)\n      fdlice3(:, 26) = (/ &\n!band 26\n        & 1.180509e-01_rb,1.189025e-01_rb,1.197820e-01_rb,1.206875e-01_rb,1.216171e-01_rb,&\n        & 1.225687e-01_rb,1.235404e-01_rb,1.245303e-01_rb,1.255363e-01_rb,1.265564e-01_rb,&\n        & 1.275888e-01_rb,1.286313e-01_rb,1.296821e-01_rb,1.307392e-01_rb,1.318006e-01_rb,&\n        & 1.328643e-01_rb,1.339284e-01_rb,1.349908e-01_rb,1.360497e-01_rb,1.371029e-01_rb,&\n        & 1.381486e-01_rb,1.391848e-01_rb,1.402095e-01_rb,1.412208e-01_rb,1.422165e-01_rb,&\n        & 1.431949e-01_rb,1.441539e-01_rb,1.450915e-01_rb,1.460058e-01_rb,1.468947e-01_rb,&\n        & 1.477564e-01_rb,1.485888e-01_rb,1.493900e-01_rb,1.501580e-01_rb,1.508907e-01_rb,&\n        & 1.515864e-01_rb,1.522428e-01_rb,1.528582e-01_rb,1.534305e-01_rb,1.539578e-01_rb,&\n        & 1.544380e-01_rb,1.548692e-01_rb,1.552494e-01_rb,1.555767e-01_rb,1.558490e-01_rb,&\n        & 1.560645e-01_rb /)\n      fdlice3(:, 27) = (/ &\n! band 27\n        & 1.200480e-01_rb,1.209267e-01_rb,1.218304e-01_rb,1.227575e-01_rb,1.237059e-01_rb,&\n        & 1.246739e-01_rb,1.256595e-01_rb,1.266610e-01_rb,1.276765e-01_rb,1.287041e-01_rb,&\n        & 1.297420e-01_rb,1.307883e-01_rb,1.318412e-01_rb,1.328988e-01_rb,1.339593e-01_rb,&\n        & 1.350207e-01_rb,1.360813e-01_rb,1.371393e-01_rb,1.381926e-01_rb,1.392396e-01_rb,&\n        & 1.402783e-01_rb,1.413069e-01_rb,1.423235e-01_rb,1.433263e-01_rb,1.443134e-01_rb,&\n        & 1.452830e-01_rb,1.462332e-01_rb,1.471622e-01_rb,1.480681e-01_rb,1.489490e-01_rb,&\n        & 1.498032e-01_rb,1.506286e-01_rb,1.514236e-01_rb,1.521863e-01_rb,1.529147e-01_rb,&\n        & 1.536070e-01_rb,1.542614e-01_rb,1.548761e-01_rb,1.554491e-01_rb,1.559787e-01_rb,&\n        & 1.564629e-01_rb,1.568999e-01_rb,1.572879e-01_rb,1.576249e-01_rb,1.579093e-01_rb,&\n        & 1.581390e-01_rb /)\n      fdlice3(:, 28) = (/ &\n! band 28\n        & 1.247813e-01_rb,1.256496e-01_rb,1.265417e-01_rb,1.274560e-01_rb,1.283905e-01_rb,&\n        & 1.293436e-01_rb,1.303135e-01_rb,1.312983e-01_rb,1.322964e-01_rb,1.333060e-01_rb,&\n        & 1.343252e-01_rb,1.353523e-01_rb,1.363855e-01_rb,1.374231e-01_rb,1.384632e-01_rb,&\n        & 1.395042e-01_rb,1.405441e-01_rb,1.415813e-01_rb,1.426140e-01_rb,1.436404e-01_rb,&\n        & 1.446587e-01_rb,1.456672e-01_rb,1.466640e-01_rb,1.476475e-01_rb,1.486157e-01_rb,&\n        & 1.495671e-01_rb,1.504997e-01_rb,1.514117e-01_rb,1.523016e-01_rb,1.531673e-01_rb,&\n        & 1.540073e-01_rb,1.548197e-01_rb,1.556026e-01_rb,1.563545e-01_rb,1.570734e-01_rb,&\n        & 1.577576e-01_rb,1.584054e-01_rb,1.590149e-01_rb,1.595843e-01_rb,1.601120e-01_rb,&\n        & 1.605962e-01_rb,1.610349e-01_rb,1.614266e-01_rb,1.617693e-01_rb,1.620614e-01_rb,&\n        & 1.623011e-01_rb /)\n      fdlice3(:, 29) = (/ &\n! band 29\n        & 1.006055e-01_rb,9.549582e-02_rb,9.063960e-02_rb,8.602900e-02_rb,8.165612e-02_rb,&\n        & 7.751308e-02_rb,7.359199e-02_rb,6.988496e-02_rb,6.638412e-02_rb,6.308156e-02_rb,&\n        & 5.996942e-02_rb,5.703979e-02_rb,5.428481e-02_rb,5.169657e-02_rb,4.926719e-02_rb,&\n        & 4.698880e-02_rb,4.485349e-02_rb,4.285339e-02_rb,4.098061e-02_rb,3.922727e-02_rb,&\n        & 3.758547e-02_rb,3.604733e-02_rb,3.460497e-02_rb,3.325051e-02_rb,3.197604e-02_rb,&\n        & 3.077369e-02_rb,2.963558e-02_rb,2.855381e-02_rb,2.752050e-02_rb,2.652776e-02_rb,&\n        & 2.556772e-02_rb,2.463247e-02_rb,2.371415e-02_rb,2.280485e-02_rb,2.189670e-02_rb,&\n        & 2.098180e-02_rb,2.005228e-02_rb,1.910024e-02_rb,1.811781e-02_rb,1.709709e-02_rb,&\n        & 1.603020e-02_rb,1.490925e-02_rb,1.372635e-02_rb,1.247363e-02_rb,1.114319e-02_rb,&\n        & 9.727157e-03_rb /)\n\n      end subroutine swcldpr\n\n      end module rrtmg_sw_init\n\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_k_g.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_k_g.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.3 $\n!     created:   $Date: 2008/08/29 17:59:09 $\n\n      module rrtmg_sw_k_g\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n      implicit none\n\n      contains\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n! **************************************************************************\n!      subroutine sw_kgbnn\n! **************************************************************************\n!  RRTM Shortwave Radiative Transfer Model\n!  Atmospheric and Environmental Research, Inc., Cambridge, MA\n!\n!  Original by J.Delamere, Atmospheric & Environmental Research.\n!  Reformatted for F90: JJMorcrette, ECMWF\n!  Further F90 and GCM revisions:  MJIacono, AER, July 2002\n!\n!  This file contains 14 subroutines that include the \n!  absorption coefficients and other data for each of the 14 shortwave\n!  spectral bands used in RRTM_SW.  Here, the data are defined for 16\n!  g-points, or sub-intervals, per band.  These data are combined and\n!  weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce\n!  the total number of g-points from 224 to 112 for use in the GCM.\n! **************************************************************************\n      subroutine sw_kgb16\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            rayl, strrat1, layreffr\n      use rrsw_vsn, only: hvrkg, hnamkg\n\n      implicit none\n      save\n\n      hvrkg = '$Revision: 1.3 $'\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        &  1.92269_rb    , 1.72844_rb    , 1.64326_rb    , 1.58451_rb     &\n        &, 1.44031_rb    , 1.25108_rb    , 1.02724_rb    , 0.776759_rb    &\n        &, 0.534444_rb   , 5.87755e-02_rb, 4.86706e-02_rb, 3.87989e-02_rb &\n        &, 2.84532e-02_rb, 1.82431e-02_rb, 6.92320e-03_rb, 9.70770e-04_rb /)\n\n! Rayleigh extinction coefficient at v = 2925 cm-1.\n      rayl = 2.91e-10_rb\n\n      strrat1 = 252.131_rb\n\n      layreffr = 18\n\n!     -----------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.15349e-04_rb,0.89162e-04_rb,0.97706e-04_rb,0.96973e-04_rb,0.90703e-04_rb, &\n        & 0.80393e-04_rb,0.67242e-04_rb,0.50804e-04_rb,0.23334e-04_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.16138e-04_rb,0.89235e-04_rb,0.97696e-04_rb,0.96116e-04_rb,0.89625e-04_rb, &\n        & 0.79382e-04_rb,0.66587e-04_rb,0.50583e-04_rb,0.24342e-04_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.16801e-04_rb,0.89390e-04_rb,0.97492e-04_rb,0.95146e-04_rb,0.88483e-04_rb, &\n        & 0.78325e-04_rb,0.65873e-04_rb,0.50342e-04_rb,0.25245e-04_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.17584e-04_rb,0.89321e-04_rb,0.97141e-04_rb,0.93952e-04_rb,0.87141e-04_rb, &\n        & 0.77126e-04_rb,0.65068e-04_rb,0.49985e-04_rb,0.26046e-04_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.18258e-04_rb,0.89204e-04_rb,0.96602e-04_rb,0.92773e-04_rb,0.85832e-04_rb, &\n        & 0.76015e-04_rb,0.64318e-04_rb,0.49612e-04_rb,0.26697e-04_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.12783e-04_rb,0.77013e-04_rb,0.85056e-04_rb,0.84160e-04_rb,0.79021e-04_rb, &\n        & 0.70101e-04_rb,0.58520e-04_rb,0.44007e-04_rb,0.19895e-04_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.13452e-04_rb,0.77084e-04_rb,0.84929e-04_rb,0.83386e-04_rb,0.78122e-04_rb, &\n        & 0.69293e-04_rb,0.57974e-04_rb,0.43855e-04_rb,0.20713e-04_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.14066e-04_rb,0.77185e-04_rb,0.84612e-04_rb,0.82498e-04_rb,0.77177e-04_rb, &\n        & 0.68443e-04_rb,0.57444e-04_rb,0.43722e-04_rb,0.21494e-04_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.14678e-04_rb,0.76996e-04_rb,0.83962e-04_rb,0.81526e-04_rb,0.76049e-04_rb, &\n        & 0.67485e-04_rb,0.56822e-04_rb,0.43530e-04_rb,0.22200e-04_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.15258e-04_rb,0.76788e-04_rb,0.82821e-04_rb,0.80320e-04_rb,0.74845e-04_rb, &\n        & 0.66487e-04_rb,0.56144e-04_rb,0.43262e-04_rb,0.22757e-04_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.10474e-04_rb,0.66144e-04_rb,0.73703e-04_rb,0.72701e-04_rb,0.68638e-04_rb, &\n        & 0.60826e-04_rb,0.50854e-04_rb,0.37989e-04_rb,0.17743e-04_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.11024e-04_rb,0.66096e-04_rb,0.73447e-04_rb,0.72029e-04_rb,0.67858e-04_rb, &\n        & 0.60163e-04_rb,0.50424e-04_rb,0.37886e-04_rb,0.18519e-04_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.11534e-04_rb,0.65974e-04_rb,0.72795e-04_rb,0.71229e-04_rb,0.67005e-04_rb, &\n        & 0.59442e-04_rb,0.49950e-04_rb,0.37779e-04_rb,0.19184e-04_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.12091e-04_rb,0.65752e-04_rb,0.72003e-04_rb,0.70357e-04_rb,0.66129e-04_rb, &\n        & 0.58718e-04_rb,0.49503e-04_rb,0.37690e-04_rb,0.19788e-04_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.12560e-04_rb,0.65678e-04_rb,0.71013e-04_rb,0.69266e-04_rb,0.65076e-04_rb, &\n        & 0.57873e-04_rb,0.48947e-04_rb,0.37519e-04_rb,0.20290e-04_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.85236e-05_rb,0.56692e-04_rb,0.63625e-04_rb,0.62567e-04_rb,0.59412e-04_rb, &\n        & 0.52601e-04_rb,0.43957e-04_rb,0.32602e-04_rb,0.16862e-04_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.89886e-05_rb,0.56512e-04_rb,0.63288e-04_rb,0.61902e-04_rb,0.58733e-04_rb, &\n        & 0.52036e-04_rb,0.43629e-04_rb,0.32592e-04_rb,0.17543e-04_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.94085e-05_rb,0.56287e-04_rb,0.62588e-04_rb,0.61197e-04_rb,0.58020e-04_rb, &\n        & 0.51469e-04_rb,0.43247e-04_rb,0.32567e-04_rb,0.18199e-04_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.98830e-05_rb,0.55998e-04_rb,0.61716e-04_rb,0.60485e-04_rb,0.57250e-04_rb, &\n        & 0.50840e-04_rb,0.42842e-04_rb,0.32520e-04_rb,0.18771e-04_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.10278e-04_rb,0.55929e-04_rb,0.61011e-04_rb,0.59745e-04_rb,0.56462e-04_rb, &\n        & 0.50254e-04_rb,0.42468e-04_rb,0.32457e-04_rb,0.19296e-04_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.68852e-05_rb,0.48282e-04_rb,0.54761e-04_rb,0.53543e-04_rb,0.51345e-04_rb, &\n        & 0.45380e-04_rb,0.37794e-04_rb,0.27880e-04_rb,0.14959e-04_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.72830e-05_rb,0.48206e-04_rb,0.54379e-04_rb,0.52923e-04_rb,0.50723e-04_rb, &\n        & 0.44903e-04_rb,0.37536e-04_rb,0.27938e-04_rb,0.15841e-04_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.76436e-05_rb,0.47928e-04_rb,0.53597e-04_rb,0.52299e-04_rb,0.50061e-04_rb, &\n        & 0.44426e-04_rb,0.37240e-04_rb,0.27962e-04_rb,0.16760e-04_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.80055e-05_rb,0.47625e-04_rb,0.52896e-04_rb,0.51678e-04_rb,0.49302e-04_rb, &\n        & 0.43902e-04_rb,0.36930e-04_rb,0.27968e-04_rb,0.17586e-04_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.83555e-05_rb,0.47486e-04_rb,0.52258e-04_rb,0.51112e-04_rb,0.48444e-04_rb, &\n        & 0.43409e-04_rb,0.36652e-04_rb,0.27966e-04_rb,0.18270e-04_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.55363e-05_rb,0.40995e-04_rb,0.46991e-04_rb,0.45840e-04_rb,0.44200e-04_rb, &\n        & 0.38984e-04_rb,0.32341e-04_rb,0.23743e-04_rb,0.12825e-04_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.58741e-05_rb,0.40851e-04_rb,0.46490e-04_rb,0.45277e-04_rb,0.43651e-04_rb, &\n        & 0.38565e-04_rb,0.32141e-04_rb,0.23813e-04_rb,0.13671e-04_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.61821e-05_rb,0.40643e-04_rb,0.45850e-04_rb,0.44728e-04_rb,0.42924e-04_rb, &\n        & 0.38164e-04_rb,0.31920e-04_rb,0.23858e-04_rb,0.14647e-04_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.64614e-05_rb,0.40329e-04_rb,0.45202e-04_rb,0.44163e-04_rb,0.42054e-04_rb, &\n        & 0.37723e-04_rb,0.31679e-04_rb,0.23886e-04_rb,0.15533e-04_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.67675e-05_rb,0.40137e-04_rb,0.44578e-04_rb,0.43574e-04_rb,0.41267e-04_rb, &\n        & 0.37271e-04_rb,0.31420e-04_rb,0.23883e-04_rb,0.16436e-04_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.44217e-05_rb,0.34626e-04_rb,0.39970e-04_rb,0.39080e-04_rb,0.37744e-04_rb, &\n        & 0.33237e-04_rb,0.27507e-04_rb,0.20074e-04_rb,0.11007e-04_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.47104e-05_rb,0.34494e-04_rb,0.39592e-04_rb,0.38568e-04_rb,0.37283e-04_rb, &\n        & 0.32875e-04_rb,0.27342e-04_rb,0.20149e-04_rb,0.11834e-04_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.49764e-05_rb,0.34300e-04_rb,0.39007e-04_rb,0.38074e-04_rb,0.36415e-04_rb, &\n        & 0.32528e-04_rb,0.27158e-04_rb,0.20213e-04_rb,0.12801e-04_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.52135e-05_rb,0.34067e-04_rb,0.38449e-04_rb,0.37591e-04_rb,0.35661e-04_rb, &\n        & 0.32173e-04_rb,0.26959e-04_rb,0.20265e-04_rb,0.13763e-04_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.54275e-05_rb,0.33832e-04_rb,0.37875e-04_rb,0.37057e-04_rb,0.35065e-04_rb, &\n        & 0.31800e-04_rb,0.26760e-04_rb,0.20278e-04_rb,0.14677e-04_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.35317e-05_rb,0.29115e-04_rb,0.33824e-04_rb,0.33370e-04_rb,0.32237e-04_rb, &\n        & 0.28331e-04_rb,0.23362e-04_rb,0.16932e-04_rb,0.96086e-05_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.37854e-05_rb,0.29084e-04_rb,0.33632e-04_rb,0.32929e-04_rb,0.31805e-04_rb, &\n        & 0.28018e-04_rb,0.23236e-04_rb,0.17006e-04_rb,0.10621e-04_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.40127e-05_rb,0.28935e-04_rb,0.33190e-04_rb,0.32483e-04_rb,0.30936e-04_rb, &\n        & 0.27716e-04_rb,0.23074e-04_rb,0.17087e-04_rb,0.11657e-04_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.42184e-05_rb,0.28732e-04_rb,0.32711e-04_rb,0.32042e-04_rb,0.30351e-04_rb, &\n        & 0.27404e-04_rb,0.22906e-04_rb,0.17140e-04_rb,0.12504e-04_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.44040e-05_rb,0.28488e-04_rb,0.32207e-04_rb,0.31581e-04_rb,0.29852e-04_rb, &\n        & 0.27086e-04_rb,0.22740e-04_rb,0.17166e-04_rb,0.13401e-04_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.28004e-05_rb,0.24421e-04_rb,0.28507e-04_rb,0.28270e-04_rb,0.27415e-04_rb, &\n        & 0.24038e-04_rb,0.19759e-04_rb,0.14209e-04_rb,0.88498e-05_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.30342e-05_rb,0.24385e-04_rb,0.28391e-04_rb,0.27999e-04_rb,0.26969e-04_rb, &\n        & 0.23770e-04_rb,0.19651e-04_rb,0.14288e-04_rb,0.10048e-04_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.32304e-05_rb,0.24304e-04_rb,0.28136e-04_rb,0.27602e-04_rb,0.26246e-04_rb, &\n        & 0.23508e-04_rb,0.19517e-04_rb,0.14360e-04_rb,0.11188e-04_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.34049e-05_rb,0.24160e-04_rb,0.27731e-04_rb,0.27211e-04_rb,0.25756e-04_rb, &\n        & 0.23246e-04_rb,0.19380e-04_rb,0.14426e-04_rb,0.12319e-04_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.35648e-05_rb,0.23940e-04_rb,0.27283e-04_rb,0.26806e-04_rb,0.25320e-04_rb, &\n        & 0.22960e-04_rb,0.19234e-04_rb,0.14451e-04_rb,0.13506e-04_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.22115e-05_rb,0.20358e-04_rb,0.23898e-04_rb,0.23781e-04_rb,0.23142e-04_rb, &\n        & 0.20260e-04_rb,0.16593e-04_rb,0.11876e-04_rb,0.77665e-05_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.24264e-05_rb,0.20362e-04_rb,0.23820e-04_rb,0.23569e-04_rb,0.22708e-04_rb, &\n        & 0.20037e-04_rb,0.16524e-04_rb,0.11954e-04_rb,0.90216e-05_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.26002e-05_rb,0.20303e-04_rb,0.23663e-04_rb,0.23295e-04_rb,0.22132e-04_rb, &\n        & 0.19806e-04_rb,0.16414e-04_rb,0.12011e-04_rb,0.10379e-04_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.27486e-05_rb,0.20198e-04_rb,0.23357e-04_rb,0.22943e-04_rb,0.21707e-04_rb, &\n        & 0.19580e-04_rb,0.16298e-04_rb,0.12060e-04_rb,0.11771e-04_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.28881e-05_rb,0.20019e-04_rb,0.22982e-04_rb,0.22584e-04_rb,0.21296e-04_rb, &\n        & 0.19341e-04_rb,0.16164e-04_rb,0.12088e-04_rb,0.13279e-04_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.18320e-05_rb,0.16927e-04_rb,0.19968e-04_rb,0.19856e-04_rb,0.19352e-04_rb, &\n        & 0.16934e-04_rb,0.13866e-04_rb,0.99116e-05_rb,0.67134e-05_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.20049e-05_rb,0.16927e-04_rb,0.19853e-04_rb,0.19674e-04_rb,0.18853e-04_rb, &\n        & 0.16739e-04_rb,0.13797e-04_rb,0.99757e-05_rb,0.78968e-05_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.21502e-05_rb,0.16866e-04_rb,0.19704e-04_rb,0.19448e-04_rb,0.18441e-04_rb, &\n        & 0.16541e-04_rb,0.13705e-04_rb,0.10023e-04_rb,0.91593e-05_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.22714e-05_rb,0.16777e-04_rb,0.19465e-04_rb,0.19143e-04_rb,0.18062e-04_rb, &\n        & 0.16347e-04_rb,0.13601e-04_rb,0.10057e-04_rb,0.10536e-04_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.23867e-05_rb,0.16634e-04_rb,0.19123e-04_rb,0.18829e-04_rb,0.17732e-04_rb, &\n        & 0.16132e-04_rb,0.13484e-04_rb,0.10082e-04_rb,0.12018e-04_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.15169e-05_rb,0.14042e-04_rb,0.16626e-04_rb,0.16552e-04_rb,0.16148e-04_rb, &\n        & 0.14121e-04_rb,0.11557e-04_rb,0.82558e-05_rb,0.56116e-05_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.16576e-05_rb,0.14051e-04_rb,0.16515e-04_rb,0.16389e-04_rb,0.15651e-04_rb, &\n        & 0.13956e-04_rb,0.11498e-04_rb,0.83065e-05_rb,0.66756e-05_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.17786e-05_rb,0.13996e-04_rb,0.16382e-04_rb,0.16200e-04_rb,0.15335e-04_rb, &\n        & 0.13791e-04_rb,0.11414e-04_rb,0.83396e-05_rb,0.78609e-05_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.18784e-05_rb,0.13920e-04_rb,0.16173e-04_rb,0.15944e-04_rb,0.15016e-04_rb, &\n        & 0.13612e-04_rb,0.11321e-04_rb,0.83696e-05_rb,0.90657e-05_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.19730e-05_rb,0.13808e-04_rb,0.15876e-04_rb,0.15671e-04_rb,0.14704e-04_rb, &\n        & 0.13425e-04_rb,0.11218e-04_rb,0.83846e-05_rb,0.10342e-04_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.12548e-05_rb,0.11622e-04_rb,0.13817e-04_rb,0.13765e-04_rb,0.13366e-04_rb, &\n        & 0.11761e-04_rb,0.96214e-05_rb,0.68586e-05_rb,0.46815e-05_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.13720e-05_rb,0.11638e-04_rb,0.13707e-04_rb,0.13640e-04_rb,0.13007e-04_rb, &\n        & 0.11624e-04_rb,0.95672e-05_rb,0.68978e-05_rb,0.55831e-05_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.14716e-05_rb,0.11595e-04_rb,0.13603e-04_rb,0.13476e-04_rb,0.12728e-04_rb, &\n        & 0.11474e-04_rb,0.94883e-05_rb,0.69284e-05_rb,0.65694e-05_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.15544e-05_rb,0.11533e-04_rb,0.13432e-04_rb,0.13265e-04_rb,0.12450e-04_rb, &\n        & 0.11320e-04_rb,0.94054e-05_rb,0.69510e-05_rb,0.75699e-05_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.16324e-05_rb,0.11450e-04_rb,0.13177e-04_rb,0.13030e-04_rb,0.12193e-04_rb, &\n        & 0.11159e-04_rb,0.93157e-05_rb,0.69543e-05_rb,0.86449e-05_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.10905e-03_rb,0.19084e-03_rb,0.20069e-03_rb,0.19832e-03_rb,0.18610e-03_rb, &\n        & 0.17089e-03_rb,0.14990e-03_rb,0.11759e-03_rb,0.64675e-04_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.11105e-03_rb,0.18952e-03_rb,0.19885e-03_rb,0.19823e-03_rb,0.18675e-03_rb, &\n        & 0.17126e-03_rb,0.15098e-03_rb,0.11929e-03_rb,0.67071e-04_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.11276e-03_rb,0.18853e-03_rb,0.19769e-03_rb,0.19892e-03_rb,0.18804e-03_rb, &\n        & 0.17228e-03_rb,0.15234e-03_rb,0.12104e-03_rb,0.69562e-04_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.11331e-03_rb,0.18716e-03_rb,0.19673e-03_rb,0.19862e-03_rb,0.18922e-03_rb, &\n        & 0.17345e-03_rb,0.15364e-03_rb,0.12287e-03_rb,0.72145e-04_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.11374e-03_rb,0.18626e-03_rb,0.19656e-03_rb,0.19857e-03_rb,0.19062e-03_rb, &\n        & 0.17445e-03_rb,0.15373e-03_rb,0.12483e-03_rb,0.74697e-04_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.94458e-04_rb,0.16650e-03_rb,0.17483e-03_rb,0.17491e-03_rb,0.16501e-03_rb, &\n        & 0.15069e-03_rb,0.13359e-03_rb,0.10498e-03_rb,0.55352e-04_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.96121e-04_rb,0.16557e-03_rb,0.17383e-03_rb,0.17514e-03_rb,0.16597e-03_rb, &\n        & 0.15082e-03_rb,0.13480e-03_rb,0.10677e-03_rb,0.57531e-04_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.97581e-04_rb,0.16494e-03_rb,0.17349e-03_rb,0.17480e-03_rb,0.16726e-03_rb, &\n        & 0.15206e-03_rb,0.13520e-03_rb,0.10844e-03_rb,0.59621e-04_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.98152e-04_rb,0.16427e-03_rb,0.17323e-03_rb,0.17471e-03_rb,0.16812e-03_rb, &\n        & 0.15352e-03_rb,0.13523e-03_rb,0.11008e-03_rb,0.61894e-04_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.98081e-04_rb,0.16346e-03_rb,0.17334e-03_rb,0.17481e-03_rb,0.16845e-03_rb, &\n        & 0.15496e-03_rb,0.13612e-03_rb,0.11175e-03_rb,0.64159e-04_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.80988e-04_rb,0.14444e-03_rb,0.15236e-03_rb,0.15355e-03_rb,0.14515e-03_rb, &\n        & 0.13201e-03_rb,0.11827e-03_rb,0.92843e-04_rb,0.47818e-04_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.82627e-04_rb,0.14399e-03_rb,0.15198e-03_rb,0.15308e-03_rb,0.14622e-03_rb, &\n        & 0.13285e-03_rb,0.11829e-03_rb,0.94579e-04_rb,0.49498e-04_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.83666e-04_rb,0.14365e-03_rb,0.15183e-03_rb,0.15300e-03_rb,0.14704e-03_rb, &\n        & 0.13418e-03_rb,0.11832e-03_rb,0.96259e-04_rb,0.51225e-04_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.84164e-04_rb,0.14362e-03_rb,0.15205e-03_rb,0.15285e-03_rb,0.14764e-03_rb, &\n        & 0.13590e-03_rb,0.11954e-03_rb,0.97885e-04_rb,0.52990e-04_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.84014e-04_rb,0.14269e-03_rb,0.15214e-03_rb,0.15331e-03_rb,0.14865e-03_rb, &\n        & 0.13747e-03_rb,0.12089e-03_rb,0.99389e-04_rb,0.54936e-04_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.69055e-04_rb,0.12498e-03_rb,0.13260e-03_rb,0.13427e-03_rb,0.12748e-03_rb, &\n        & 0.11593e-03_rb,0.10318e-03_rb,0.81535e-04_rb,0.43344e-04_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.70374e-04_rb,0.12479e-03_rb,0.13217e-03_rb,0.13387e-03_rb,0.12823e-03_rb, &\n        & 0.11702e-03_rb,0.10316e-03_rb,0.83059e-04_rb,0.44577e-04_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.71321e-04_rb,0.12483e-03_rb,0.13205e-03_rb,0.13371e-03_rb,0.12866e-03_rb, &\n        & 0.11820e-03_rb,0.10422e-03_rb,0.84648e-04_rb,0.45880e-04_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.71712e-04_rb,0.12475e-03_rb,0.13249e-03_rb,0.13379e-03_rb,0.12934e-03_rb, &\n        & 0.11960e-03_rb,0.10551e-03_rb,0.86238e-04_rb,0.47243e-04_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.71917e-04_rb,0.12433e-03_rb,0.13275e-03_rb,0.13434e-03_rb,0.13049e-03_rb, &\n        & 0.12131e-03_rb,0.10676e-03_rb,0.87830e-04_rb,0.48641e-04_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.58527e-04_rb,0.10840e-03_rb,0.11507e-03_rb,0.11730e-03_rb,0.11099e-03_rb, &\n        & 0.10118e-03_rb,0.89566e-04_rb,0.71122e-04_rb,0.43658e-04_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.59798e-04_rb,0.10799e-03_rb,0.11447e-03_rb,0.11692e-03_rb,0.11189e-03_rb, &\n        & 0.10224e-03_rb,0.90255e-04_rb,0.72476e-04_rb,0.44361e-04_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.60601e-04_rb,0.10799e-03_rb,0.11464e-03_rb,0.11677e-03_rb,0.11225e-03_rb, &\n        & 0.10358e-03_rb,0.91122e-04_rb,0.73922e-04_rb,0.45004e-04_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.60971e-04_rb,0.10798e-03_rb,0.11486e-03_rb,0.11681e-03_rb,0.11304e-03_rb, &\n        & 0.10512e-03_rb,0.91981e-04_rb,0.75441e-04_rb,0.45782e-04_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.61166e-04_rb,0.10769e-03_rb,0.11529e-03_rb,0.11740e-03_rb,0.11428e-03_rb, &\n        & 0.10674e-03_rb,0.93329e-04_rb,0.76963e-04_rb,0.46781e-04_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.49298e-04_rb,0.93665e-04_rb,0.99302e-04_rb,0.10166e-03_rb,0.96125e-04_rb, &\n        & 0.87991e-04_rb,0.77830e-04_rb,0.61651e-04_rb,0.45761e-04_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.50498e-04_rb,0.93479e-04_rb,0.98966e-04_rb,0.10139e-03_rb,0.96705e-04_rb, &\n        & 0.89173e-04_rb,0.78227e-04_rb,0.62850e-04_rb,0.46039e-04_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.51269e-04_rb,0.93203e-04_rb,0.98973e-04_rb,0.10127e-03_rb,0.97298e-04_rb, &\n        & 0.90362e-04_rb,0.78802e-04_rb,0.64157e-04_rb,0.46346e-04_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.51588e-04_rb,0.93137e-04_rb,0.99162e-04_rb,0.10129e-03_rb,0.98592e-04_rb, &\n        & 0.91554e-04_rb,0.79929e-04_rb,0.65574e-04_rb,0.46727e-04_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.51597e-04_rb,0.92792e-04_rb,0.99458e-04_rb,0.10170e-03_rb,0.99448e-04_rb, &\n        & 0.92834e-04_rb,0.81330e-04_rb,0.66366e-04_rb,0.47183e-04_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.41246e-04_rb,0.80496e-04_rb,0.85316e-04_rb,0.87435e-04_rb,0.82542e-04_rb, &\n        & 0.75819e-04_rb,0.67022e-04_rb,0.53111e-04_rb,0.48352e-04_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.42332e-04_rb,0.80236e-04_rb,0.84984e-04_rb,0.87173e-04_rb,0.83192e-04_rb, &\n        & 0.76872e-04_rb,0.67154e-04_rb,0.54235e-04_rb,0.49203e-04_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.43069e-04_rb,0.79969e-04_rb,0.85117e-04_rb,0.87191e-04_rb,0.83963e-04_rb, &\n        & 0.78027e-04_rb,0.67911e-04_rb,0.55423e-04_rb,0.50036e-04_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.43347e-04_rb,0.79762e-04_rb,0.85176e-04_rb,0.87282e-04_rb,0.84970e-04_rb, &\n        & 0.78971e-04_rb,0.69097e-04_rb,0.56659e-04_rb,0.50699e-04_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.43381e-04_rb,0.79473e-04_rb,0.85320e-04_rb,0.87550e-04_rb,0.85526e-04_rb, &\n        & 0.80111e-04_rb,0.70399e-04_rb,0.56992e-04_rb,0.51218e-04_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.34402e-04_rb,0.69256e-04_rb,0.73264e-04_rb,0.74907e-04_rb,0.70733e-04_rb, &\n        & 0.65058e-04_rb,0.57123e-04_rb,0.45547e-04_rb,0.49061e-04_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.35394e-04_rb,0.68938e-04_rb,0.72891e-04_rb,0.74693e-04_rb,0.71198e-04_rb, &\n        & 0.66010e-04_rb,0.57419e-04_rb,0.46585e-04_rb,0.51368e-04_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.36086e-04_rb,0.68637e-04_rb,0.72875e-04_rb,0.74679e-04_rb,0.72090e-04_rb, &\n        & 0.66902e-04_rb,0.58282e-04_rb,0.47622e-04_rb,0.51837e-04_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.36445e-04_rb,0.68326e-04_rb,0.72869e-04_rb,0.74856e-04_rb,0.72765e-04_rb, &\n        & 0.67827e-04_rb,0.59362e-04_rb,0.48483e-04_rb,0.52297e-04_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.36483e-04_rb,0.68010e-04_rb,0.72961e-04_rb,0.75096e-04_rb,0.73241e-04_rb, &\n        & 0.68587e-04_rb,0.60512e-04_rb,0.48784e-04_rb,0.53745e-04_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.28433e-04_rb,0.59232e-04_rb,0.62701e-04_rb,0.63901e-04_rb,0.60103e-04_rb, &\n        & 0.55141e-04_rb,0.48531e-04_rb,0.38847e-04_rb,0.54662e-04_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.29405e-04_rb,0.58918e-04_rb,0.62216e-04_rb,0.63604e-04_rb,0.60633e-04_rb, &\n        & 0.55830e-04_rb,0.48918e-04_rb,0.39795e-04_rb,0.56459e-04_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.30040e-04_rb,0.58597e-04_rb,0.61986e-04_rb,0.63627e-04_rb,0.61357e-04_rb, &\n        & 0.56779e-04_rb,0.49706e-04_rb,0.40729e-04_rb,0.58698e-04_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.30412e-04_rb,0.58268e-04_rb,0.61940e-04_rb,0.63690e-04_rb,0.61916e-04_rb, &\n        & 0.57700e-04_rb,0.50677e-04_rb,0.41137e-04_rb,0.60426e-04_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.30517e-04_rb,0.57913e-04_rb,0.61982e-04_rb,0.63808e-04_rb,0.62307e-04_rb, &\n        & 0.58353e-04_rb,0.51602e-04_rb,0.41668e-04_rb,0.61933e-04_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.23291e-04_rb,0.50308e-04_rb,0.53243e-04_rb,0.54258e-04_rb,0.50787e-04_rb, &\n        & 0.46509e-04_rb,0.41036e-04_rb,0.32969e-04_rb,0.63749e-04_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.24304e-04_rb,0.50027e-04_rb,0.52858e-04_rb,0.54035e-04_rb,0.51457e-04_rb, &\n        & 0.47117e-04_rb,0.41427e-04_rb,0.33795e-04_rb,0.67891e-04_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.24884e-04_rb,0.49658e-04_rb,0.52484e-04_rb,0.53877e-04_rb,0.52001e-04_rb, &\n        & 0.47908e-04_rb,0.42080e-04_rb,0.34652e-04_rb,0.71374e-04_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.25245e-04_rb,0.49329e-04_rb,0.52369e-04_rb,0.53861e-04_rb,0.52353e-04_rb, &\n        & 0.48763e-04_rb,0.42918e-04_rb,0.34903e-04_rb,0.73983e-04_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.25399e-04_rb,0.49019e-04_rb,0.52344e-04_rb,0.53920e-04_rb,0.52702e-04_rb, &\n        & 0.49354e-04_rb,0.43795e-04_rb,0.35336e-04_rb,0.76874e-04_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.19464e-04_rb,0.42428e-04_rb,0.44774e-04_rb,0.45764e-04_rb,0.43065e-04_rb, &\n        & 0.39257e-04_rb,0.34681e-04_rb,0.28149e-04_rb,0.56538e-04_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.20274e-04_rb,0.42118e-04_rb,0.44484e-04_rb,0.45525e-04_rb,0.43594e-04_rb, &\n        & 0.39908e-04_rb,0.35109e-04_rb,0.28880e-04_rb,0.61143e-04_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.20723e-04_rb,0.41781e-04_rb,0.44183e-04_rb,0.45345e-04_rb,0.43968e-04_rb, &\n        & 0.40542e-04_rb,0.35722e-04_rb,0.29427e-04_rb,0.66428e-04_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.20986e-04_rb,0.41469e-04_rb,0.44005e-04_rb,0.45299e-04_rb,0.44240e-04_rb, &\n        & 0.41204e-04_rb,0.36501e-04_rb,0.29565e-04_rb,0.70536e-04_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.21088e-04_rb,0.41122e-04_rb,0.44008e-04_rb,0.45344e-04_rb,0.44427e-04_rb, &\n        & 0.41695e-04_rb,0.37345e-04_rb,0.29974e-04_rb,0.74164e-04_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.16205e-04_rb,0.35661e-04_rb,0.37585e-04_rb,0.38332e-04_rb,0.36196e-04_rb, &\n        & 0.33054e-04_rb,0.29216e-04_rb,0.23917e-04_rb,0.49111e-04_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.16873e-04_rb,0.35314e-04_rb,0.37290e-04_rb,0.38165e-04_rb,0.36667e-04_rb, &\n        & 0.33618e-04_rb,0.29598e-04_rb,0.24536e-04_rb,0.53408e-04_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.17216e-04_rb,0.35012e-04_rb,0.37013e-04_rb,0.37971e-04_rb,0.36937e-04_rb, &\n        & 0.34200e-04_rb,0.30188e-04_rb,0.24727e-04_rb,0.56692e-04_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.17409e-04_rb,0.34711e-04_rb,0.36851e-04_rb,0.37885e-04_rb,0.37053e-04_rb, &\n        & 0.34609e-04_rb,0.30881e-04_rb,0.24937e-04_rb,0.60809e-04_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.17480e-04_rb,0.34362e-04_rb,0.36830e-04_rb,0.37891e-04_rb,0.37213e-04_rb, &\n        & 0.35045e-04_rb,0.31524e-04_rb,0.25269e-04_rb,0.65163e-04_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.13457e-04_rb,0.29884e-04_rb,0.31446e-04_rb,0.32052e-04_rb,0.30374e-04_rb, &\n        & 0.27733e-04_rb,0.24511e-04_rb,0.20198e-04_rb,0.41009e-04_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.14007e-04_rb,0.29560e-04_rb,0.31187e-04_rb,0.31882e-04_rb,0.30716e-04_rb, &\n        & 0.28181e-04_rb,0.24877e-04_rb,0.20737e-04_rb,0.44661e-04_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.14280e-04_rb,0.29273e-04_rb,0.30932e-04_rb,0.31685e-04_rb,0.30856e-04_rb, &\n        & 0.28687e-04_rb,0.25310e-04_rb,0.20664e-04_rb,0.47397e-04_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.14434e-04_rb,0.28982e-04_rb,0.30751e-04_rb,0.31601e-04_rb,0.30957e-04_rb, &\n        & 0.28945e-04_rb,0.25864e-04_rb,0.20868e-04_rb,0.50575e-04_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.14483e-04_rb,0.28660e-04_rb,0.30711e-04_rb,0.31533e-04_rb,0.31075e-04_rb, &\n        & 0.29320e-04_rb,0.26408e-04_rb,0.21257e-04_rb,0.54097e-04_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.22536e-03_rb,0.32037e-03_rb,0.33781e-03_rb,0.34273e-03_rb,0.33729e-03_rb, &\n        & 0.32075e-03_rb,0.29153e-03_rb,0.24856e-03_rb,0.16410e-03_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.22342e-03_rb,0.32281e-03_rb,0.34293e-03_rb,0.34673e-03_rb,0.34167e-03_rb, &\n        & 0.32688e-03_rb,0.29787e-03_rb,0.25566e-03_rb,0.17029e-03_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.22157e-03_rb,0.32559e-03_rb,0.34865e-03_rb,0.35164e-03_rb,0.34805e-03_rb, &\n        & 0.33353e-03_rb,0.30505e-03_rb,0.26380e-03_rb,0.17749e-03_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.21986e-03_rb,0.32894e-03_rb,0.35375e-03_rb,0.35845e-03_rb,0.35514e-03_rb, &\n        & 0.33992e-03_rb,0.31266e-03_rb,0.27259e-03_rb,0.18209e-03_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.21815e-03_rb,0.33282e-03_rb,0.35982e-03_rb,0.36699e-03_rb,0.36319e-03_rb, &\n        & 0.34849e-03_rb,0.32265e-03_rb,0.28174e-03_rb,0.18630e-03_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.19541e-03_rb,0.28383e-03_rb,0.30057e-03_rb,0.30208e-03_rb,0.29811e-03_rb, &\n        & 0.28614e-03_rb,0.25813e-03_rb,0.22172e-03_rb,0.14533e-03_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.19410e-03_rb,0.28606e-03_rb,0.30502e-03_rb,0.30638e-03_rb,0.30342e-03_rb, &\n        & 0.29123e-03_rb,0.26438e-03_rb,0.22759e-03_rb,0.15063e-03_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.19280e-03_rb,0.28892e-03_rb,0.31031e-03_rb,0.31345e-03_rb,0.30930e-03_rb, &\n        & 0.29708e-03_rb,0.27075e-03_rb,0.23476e-03_rb,0.15387e-03_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.19169e-03_rb,0.29226e-03_rb,0.31596e-03_rb,0.32060e-03_rb,0.31687e-03_rb, &\n        & 0.30282e-03_rb,0.27961e-03_rb,0.24147e-03_rb,0.15653e-03_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.19047e-03_rb,0.29594e-03_rb,0.32186e-03_rb,0.32831e-03_rb,0.32510e-03_rb, &\n        & 0.31022e-03_rb,0.28786e-03_rb,0.24847e-03_rb,0.16195e-03_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.16871e-03_rb,0.24969e-03_rb,0.26468e-03_rb,0.26465e-03_rb,0.26214e-03_rb, &\n        & 0.25247e-03_rb,0.22732e-03_rb,0.19530e-03_rb,0.12777e-03_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.16793e-03_rb,0.25161e-03_rb,0.26876e-03_rb,0.26973e-03_rb,0.26695e-03_rb, &\n        & 0.25688e-03_rb,0.23244e-03_rb,0.20054e-03_rb,0.12972e-03_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.16733e-03_rb,0.25378e-03_rb,0.27385e-03_rb,0.27612e-03_rb,0.27305e-03_rb, &\n        & 0.26119e-03_rb,0.23922e-03_rb,0.20542e-03_rb,0.13061e-03_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.16706e-03_rb,0.25676e-03_rb,0.27970e-03_rb,0.28379e-03_rb,0.28013e-03_rb, &\n        & 0.26708e-03_rb,0.24668e-03_rb,0.21081e-03_rb,0.13394e-03_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.16637e-03_rb,0.26037e-03_rb,0.28504e-03_rb,0.29050e-03_rb,0.28611e-03_rb, &\n        & 0.27355e-03_rb,0.25260e-03_rb,0.21670e-03_rb,0.13844e-03_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.14579e-03_rb,0.21908e-03_rb,0.23187e-03_rb,0.23162e-03_rb,0.22921e-03_rb, &\n        & 0.22070e-03_rb,0.19997e-03_rb,0.17094e-03_rb,0.11198e-03_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.14542e-03_rb,0.22095e-03_rb,0.23576e-03_rb,0.23659e-03_rb,0.23393e-03_rb, &\n        & 0.22421e-03_rb,0.20413e-03_rb,0.17485e-03_rb,0.11080e-03_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.14519e-03_rb,0.22277e-03_rb,0.24039e-03_rb,0.24264e-03_rb,0.23941e-03_rb, &\n        & 0.22826e-03_rb,0.20957e-03_rb,0.17862e-03_rb,0.11236e-03_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.14504e-03_rb,0.22526e-03_rb,0.24523e-03_rb,0.24877e-03_rb,0.24473e-03_rb, &\n        & 0.23381e-03_rb,0.21512e-03_rb,0.18339e-03_rb,0.11577e-03_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.14497e-03_rb,0.22869e-03_rb,0.25070e-03_rb,0.25513e-03_rb,0.25076e-03_rb, &\n        & 0.23990e-03_rb,0.22117e-03_rb,0.18804e-03_rb,0.11947e-03_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.12609e-03_rb,0.19125e-03_rb,0.20302e-03_rb,0.20235e-03_rb,0.20038e-03_rb, &\n        & 0.19210e-03_rb,0.17493e-03_rb,0.14918e-03_rb,0.95914e-04_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.12575e-03_rb,0.19304e-03_rb,0.20668e-03_rb,0.20708e-03_rb,0.20395e-03_rb, &\n        & 0.19513e-03_rb,0.17862e-03_rb,0.15191e-03_rb,0.95952e-04_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.12572e-03_rb,0.19504e-03_rb,0.21070e-03_rb,0.21227e-03_rb,0.20862e-03_rb, &\n        & 0.19877e-03_rb,0.18323e-03_rb,0.15540e-03_rb,0.98040e-04_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.12578e-03_rb,0.19736e-03_rb,0.21498e-03_rb,0.21770e-03_rb,0.21305e-03_rb, &\n        & 0.20380e-03_rb,0.18766e-03_rb,0.15949e-03_rb,0.10020e-03_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.12588e-03_rb,0.20051e-03_rb,0.21971e-03_rb,0.22313e-03_rb,0.21848e-03_rb, &\n        & 0.20915e-03_rb,0.19284e-03_rb,0.16321e-03_rb,0.10267e-03_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.10863e-03_rb,0.16576e-03_rb,0.17695e-03_rb,0.17678e-03_rb,0.17469e-03_rb, &\n        & 0.16678e-03_rb,0.15163e-03_rb,0.12940e-03_rb,0.89550e-04_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.10863e-03_rb,0.16706e-03_rb,0.18030e-03_rb,0.18081e-03_rb,0.17775e-03_rb, &\n        & 0.16938e-03_rb,0.15534e-03_rb,0.13148e-03_rb,0.89670e-04_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.10855e-03_rb,0.16916e-03_rb,0.18384e-03_rb,0.18538e-03_rb,0.18134e-03_rb, &\n        & 0.17272e-03_rb,0.15912e-03_rb,0.13459e-03_rb,0.90520e-04_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.10855e-03_rb,0.17152e-03_rb,0.18761e-03_rb,0.18997e-03_rb,0.18510e-03_rb, &\n        & 0.17711e-03_rb,0.16286e-03_rb,0.13757e-03_rb,0.91792e-04_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.10853e-03_rb,0.17415e-03_rb,0.19152e-03_rb,0.19450e-03_rb,0.18955e-03_rb, &\n        & 0.18160e-03_rb,0.16658e-03_rb,0.14151e-03_rb,0.94030e-04_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.92930e-04_rb,0.14283e-03_rb,0.15332e-03_rb,0.15365e-03_rb,0.15192e-03_rb, &\n        & 0.14476e-03_rb,0.13092e-03_rb,0.11095e-03_rb,0.91877e-04_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.92984e-04_rb,0.14401e-03_rb,0.15614e-03_rb,0.15721e-03_rb,0.15413e-03_rb, &\n        & 0.14688e-03_rb,0.13443e-03_rb,0.11315e-03_rb,0.90405e-04_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.92945e-04_rb,0.14573e-03_rb,0.15905e-03_rb,0.16110e-03_rb,0.15737e-03_rb, &\n        & 0.14983e-03_rb,0.13738e-03_rb,0.11591e-03_rb,0.89977e-04_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.93035e-04_rb,0.14787e-03_rb,0.16239e-03_rb,0.16472e-03_rb,0.16084e-03_rb, &\n        & 0.15371e-03_rb,0.14051e-03_rb,0.11827e-03_rb,0.90955e-04_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.92985e-04_rb,0.15023e-03_rb,0.16593e-03_rb,0.16877e-03_rb,0.16496e-03_rb, &\n        & 0.15743e-03_rb,0.14348e-03_rb,0.12221e-03_rb,0.92269e-04_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.79600e-04_rb,0.12290e-03_rb,0.13269e-03_rb,0.13322e-03_rb,0.13145e-03_rb, &\n        & 0.12540e-03_rb,0.11354e-03_rb,0.94559e-04_rb,0.10796e-03_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.79683e-04_rb,0.12390e-03_rb,0.13495e-03_rb,0.13633e-03_rb,0.13351e-03_rb, &\n        & 0.12708e-03_rb,0.11620e-03_rb,0.96898e-04_rb,0.10854e-03_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.79630e-04_rb,0.12537e-03_rb,0.13745e-03_rb,0.13937e-03_rb,0.13626e-03_rb, &\n        & 0.12970e-03_rb,0.11867e-03_rb,0.99068e-04_rb,0.10974e-03_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.79625e-04_rb,0.12719e-03_rb,0.14027e-03_rb,0.14234e-03_rb,0.13941e-03_rb, &\n        & 0.13283e-03_rb,0.12113e-03_rb,0.10155e-03_rb,0.11075e-03_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.79589e-04_rb,0.12914e-03_rb,0.14322e-03_rb,0.14575e-03_rb,0.14305e-03_rb, &\n        & 0.13597e-03_rb,0.12361e-03_rb,0.10505e-03_rb,0.11038e-03_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.67917e-04_rb,0.10525e-03_rb,0.11421e-03_rb,0.11510e-03_rb,0.11341e-03_rb, &\n        & 0.10850e-03_rb,0.97945e-04_rb,0.80197e-04_rb,0.13259e-03_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.67928e-04_rb,0.10625e-03_rb,0.11606e-03_rb,0.11762e-03_rb,0.11532e-03_rb, &\n        & 0.11035e-03_rb,0.10017e-03_rb,0.82394e-04_rb,0.13427e-03_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.67856e-04_rb,0.10744e-03_rb,0.11824e-03_rb,0.11998e-03_rb,0.11756e-03_rb, &\n        & 0.11235e-03_rb,0.10203e-03_rb,0.84408e-04_rb,0.13461e-03_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.67768e-04_rb,0.10890e-03_rb,0.12070e-03_rb,0.12262e-03_rb,0.12012e-03_rb, &\n        & 0.11456e-03_rb,0.10420e-03_rb,0.86916e-04_rb,0.13504e-03_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.67707e-04_rb,0.11054e-03_rb,0.12323e-03_rb,0.12567e-03_rb,0.12318e-03_rb, &\n        & 0.11694e-03_rb,0.10644e-03_rb,0.89648e-04_rb,0.13829e-03_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.57658e-04_rb,0.89812e-04_rb,0.97774e-04_rb,0.98825e-04_rb,0.97412e-04_rb, &\n        & 0.93433e-04_rb,0.84119e-04_rb,0.68026e-04_rb,0.20137e-03_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.57461e-04_rb,0.90575e-04_rb,0.99228e-04_rb,0.10076e-03_rb,0.98930e-04_rb, &\n        & 0.94984e-04_rb,0.86081e-04_rb,0.70085e-04_rb,0.20178e-03_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.57397e-04_rb,0.91666e-04_rb,0.10122e-03_rb,0.10281e-03_rb,0.10088e-03_rb, &\n        & 0.96688e-04_rb,0.87695e-04_rb,0.72010e-04_rb,0.20052e-03_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.57291e-04_rb,0.92869e-04_rb,0.10334e-03_rb,0.10517e-03_rb,0.10317e-03_rb, &\n        & 0.98293e-04_rb,0.89394e-04_rb,0.74251e-04_rb,0.20103e-03_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.57126e-04_rb,0.94072e-04_rb,0.10545e-03_rb,0.10789e-03_rb,0.10579e-03_rb, &\n        & 0.10034e-03_rb,0.91420e-04_rb,0.76761e-04_rb,0.20035e-03_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.48600e-04_rb,0.76535e-04_rb,0.83721e-04_rb,0.84782e-04_rb,0.83379e-04_rb, &\n        & 0.80481e-04_rb,0.72441e-04_rb,0.58503e-04_rb,0.20926e-03_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.48356e-04_rb,0.77272e-04_rb,0.85067e-04_rb,0.86588e-04_rb,0.84928e-04_rb, &\n        & 0.81803e-04_rb,0.74015e-04_rb,0.60222e-04_rb,0.21110e-03_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.48180e-04_rb,0.78198e-04_rb,0.86939e-04_rb,0.88416e-04_rb,0.86712e-04_rb, &\n        & 0.83176e-04_rb,0.75535e-04_rb,0.61973e-04_rb,0.20823e-03_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.48042e-04_rb,0.79160e-04_rb,0.88776e-04_rb,0.90704e-04_rb,0.88934e-04_rb, &\n        & 0.84522e-04_rb,0.76983e-04_rb,0.64264e-04_rb,0.20745e-03_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.47901e-04_rb,0.80171e-04_rb,0.90395e-04_rb,0.92950e-04_rb,0.91253e-04_rb, &\n        & 0.86364e-04_rb,0.78675e-04_rb,0.66159e-04_rb,0.20642e-03_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.40769e-04_rb,0.64775e-04_rb,0.71240e-04_rb,0.72409e-04_rb,0.71085e-04_rb, &\n        & 0.68679e-04_rb,0.61925e-04_rb,0.50009e-04_rb,0.19056e-03_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.40486e-04_rb,0.65479e-04_rb,0.72574e-04_rb,0.73906e-04_rb,0.72438e-04_rb, &\n        & 0.69693e-04_rb,0.63286e-04_rb,0.51717e-04_rb,0.19000e-03_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.40313e-04_rb,0.66212e-04_rb,0.74137e-04_rb,0.75686e-04_rb,0.74201e-04_rb, &\n        & 0.70781e-04_rb,0.64554e-04_rb,0.53372e-04_rb,0.19242e-03_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.40107e-04_rb,0.66938e-04_rb,0.75524e-04_rb,0.77664e-04_rb,0.76142e-04_rb, &\n        & 0.72280e-04_rb,0.65894e-04_rb,0.55174e-04_rb,0.19382e-03_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.39910e-04_rb,0.67782e-04_rb,0.76780e-04_rb,0.79463e-04_rb,0.78210e-04_rb, &\n        & 0.73902e-04_rb,0.67292e-04_rb,0.56789e-04_rb,0.19106e-03_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.34103e-04_rb,0.54622e-04_rb,0.60315e-04_rb,0.61417e-04_rb,0.60332e-04_rb, &\n        & 0.58110e-04_rb,0.52537e-04_rb,0.42612e-04_rb,0.15955e-03_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.33853e-04_rb,0.55148e-04_rb,0.61492e-04_rb,0.62745e-04_rb,0.61577e-04_rb, &\n        & 0.59061e-04_rb,0.53702e-04_rb,0.43873e-04_rb,0.15892e-03_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.33647e-04_rb,0.55699e-04_rb,0.62687e-04_rb,0.64355e-04_rb,0.63160e-04_rb, &\n        & 0.60072e-04_rb,0.54954e-04_rb,0.45643e-04_rb,0.16047e-03_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.33430e-04_rb,0.56291e-04_rb,0.63770e-04_rb,0.65844e-04_rb,0.64844e-04_rb, &\n        & 0.61457e-04_rb,0.56064e-04_rb,0.47101e-04_rb,0.16125e-03_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.33186e-04_rb,0.56947e-04_rb,0.64747e-04_rb,0.67352e-04_rb,0.66508e-04_rb, &\n        & 0.62903e-04_rb,0.57307e-04_rb,0.48379e-04_rb,0.16021e-03_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.36602e-03_rb,0.52858e-03_rb,0.59251e-03_rb,0.61027e-03_rb,0.60893e-03_rb, &\n        & 0.58987e-03_rb,0.55560e-03_rb,0.49855e-03_rb,0.38105e-03_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.36935e-03_rb,0.53570e-03_rb,0.60138e-03_rb,0.62341e-03_rb,0.62297e-03_rb, &\n        & 0.60228e-03_rb,0.56872e-03_rb,0.51035e-03_rb,0.39106e-03_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.37348e-03_rb,0.54590e-03_rb,0.61238e-03_rb,0.63855e-03_rb,0.63820e-03_rb, &\n        & 0.61734e-03_rb,0.58475e-03_rb,0.52206e-03_rb,0.40317e-03_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.37665e-03_rb,0.55373e-03_rb,0.62261e-03_rb,0.65120e-03_rb,0.65250e-03_rb, &\n        & 0.63373e-03_rb,0.59840e-03_rb,0.53517e-03_rb,0.41639e-03_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.38076e-03_rb,0.56302e-03_rb,0.63456e-03_rb,0.66611e-03_rb,0.66857e-03_rb, &\n        & 0.65240e-03_rb,0.61521e-03_rb,0.55178e-03_rb,0.43702e-03_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.32225e-03_rb,0.47151e-03_rb,0.53262e-03_rb,0.55192e-03_rb,0.54706e-03_rb, &\n        & 0.52658e-03_rb,0.49569e-03_rb,0.43958e-03_rb,0.31739e-03_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.32532e-03_rb,0.47816e-03_rb,0.54076e-03_rb,0.56222e-03_rb,0.55834e-03_rb, &\n        & 0.53879e-03_rb,0.50612e-03_rb,0.44777e-03_rb,0.32763e-03_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.32941e-03_rb,0.48729e-03_rb,0.55083e-03_rb,0.57497e-03_rb,0.57312e-03_rb, &\n        & 0.55394e-03_rb,0.51991e-03_rb,0.45969e-03_rb,0.33942e-03_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.33303e-03_rb,0.49510e-03_rb,0.56036e-03_rb,0.58720e-03_rb,0.58669e-03_rb, &\n        & 0.56974e-03_rb,0.53255e-03_rb,0.47385e-03_rb,0.35453e-03_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.33657e-03_rb,0.50290e-03_rb,0.57014e-03_rb,0.59917e-03_rb,0.59997e-03_rb, &\n        & 0.58475e-03_rb,0.54777e-03_rb,0.48909e-03_rb,0.36980e-03_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.28263e-03_rb,0.41968e-03_rb,0.47376e-03_rb,0.49297e-03_rb,0.48633e-03_rb, &\n        & 0.46530e-03_rb,0.43654e-03_rb,0.38496e-03_rb,0.26217e-03_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.28517e-03_rb,0.42528e-03_rb,0.48017e-03_rb,0.50148e-03_rb,0.49564e-03_rb, &\n        & 0.47634e-03_rb,0.44517e-03_rb,0.39228e-03_rb,0.27386e-03_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.28805e-03_rb,0.43254e-03_rb,0.48769e-03_rb,0.51075e-03_rb,0.50628e-03_rb, &\n        & 0.48940e-03_rb,0.45557e-03_rb,0.40274e-03_rb,0.28527e-03_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.29156e-03_rb,0.44130e-03_rb,0.49824e-03_rb,0.52245e-03_rb,0.52001e-03_rb, &\n        & 0.50355e-03_rb,0.46711e-03_rb,0.41540e-03_rb,0.29729e-03_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.29453e-03_rb,0.44828e-03_rb,0.50753e-03_rb,0.53257e-03_rb,0.53321e-03_rb, &\n        & 0.51645e-03_rb,0.48189e-03_rb,0.42882e-03_rb,0.30960e-03_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.24709e-03_rb,0.37040e-03_rb,0.41811e-03_rb,0.43692e-03_rb,0.42924e-03_rb, &\n        & 0.40974e-03_rb,0.38217e-03_rb,0.33504e-03_rb,0.21956e-03_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.24935e-03_rb,0.37531e-03_rb,0.42359e-03_rb,0.44356e-03_rb,0.43669e-03_rb, &\n        & 0.41955e-03_rb,0.39063e-03_rb,0.34337e-03_rb,0.23257e-03_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.25192e-03_rb,0.38183e-03_rb,0.43049e-03_rb,0.45130e-03_rb,0.44572e-03_rb, &\n        & 0.43016e-03_rb,0.39919e-03_rb,0.35274e-03_rb,0.24051e-03_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.25420e-03_rb,0.38887e-03_rb,0.43864e-03_rb,0.46020e-03_rb,0.45692e-03_rb, &\n        & 0.44111e-03_rb,0.40882e-03_rb,0.36219e-03_rb,0.24966e-03_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.25772e-03_rb,0.39769e-03_rb,0.44993e-03_rb,0.47213e-03_rb,0.47068e-03_rb, &\n        & 0.45426e-03_rb,0.42157e-03_rb,0.37400e-03_rb,0.25930e-03_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.21574e-03_rb,0.32603e-03_rb,0.36644e-03_rb,0.38307e-03_rb,0.37721e-03_rb, &\n        & 0.36018e-03_rb,0.33363e-03_rb,0.29143e-03_rb,0.18896e-03_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.21778e-03_rb,0.33044e-03_rb,0.37107e-03_rb,0.38833e-03_rb,0.38426e-03_rb, &\n        & 0.36797e-03_rb,0.34054e-03_rb,0.29920e-03_rb,0.19816e-03_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.22015e-03_rb,0.33584e-03_rb,0.37735e-03_rb,0.39513e-03_rb,0.39228e-03_rb, &\n        & 0.37720e-03_rb,0.34842e-03_rb,0.30654e-03_rb,0.20383e-03_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.22252e-03_rb,0.34167e-03_rb,0.38484e-03_rb,0.40343e-03_rb,0.40251e-03_rb, &\n        & 0.38567e-03_rb,0.35760e-03_rb,0.31401e-03_rb,0.21178e-03_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.22604e-03_rb,0.34964e-03_rb,0.39509e-03_rb,0.41443e-03_rb,0.41465e-03_rb, &\n        & 0.39685e-03_rb,0.36847e-03_rb,0.32400e-03_rb,0.21929e-03_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.18783e-03_rb,0.28666e-03_rb,0.32037e-03_rb,0.33351e-03_rb,0.32945e-03_rb, &\n        & 0.31516e-03_rb,0.29066e-03_rb,0.25263e-03_rb,0.16238e-03_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.18921e-03_rb,0.29078e-03_rb,0.32423e-03_rb,0.33799e-03_rb,0.33536e-03_rb, &\n        & 0.32156e-03_rb,0.29643e-03_rb,0.25941e-03_rb,0.16831e-03_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.19117e-03_rb,0.29487e-03_rb,0.32978e-03_rb,0.34375e-03_rb,0.34274e-03_rb, &\n        & 0.32907e-03_rb,0.30344e-03_rb,0.26560e-03_rb,0.17389e-03_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.19356e-03_rb,0.29979e-03_rb,0.33631e-03_rb,0.35135e-03_rb,0.35098e-03_rb, &\n        & 0.33648e-03_rb,0.31108e-03_rb,0.27199e-03_rb,0.18056e-03_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.19643e-03_rb,0.30567e-03_rb,0.34396e-03_rb,0.35996e-03_rb,0.36067e-03_rb, &\n        & 0.34559e-03_rb,0.32056e-03_rb,0.28009e-03_rb,0.18507e-03_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.16233e-03_rb,0.25159e-03_rb,0.28051e-03_rb,0.29071e-03_rb,0.28724e-03_rb, &\n        & 0.27399e-03_rb,0.25257e-03_rb,0.21995e-03_rb,0.15053e-03_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.16394e-03_rb,0.25497e-03_rb,0.28374e-03_rb,0.29454e-03_rb,0.29203e-03_rb, &\n        & 0.28002e-03_rb,0.25781e-03_rb,0.22523e-03_rb,0.15467e-03_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.16554e-03_rb,0.25862e-03_rb,0.28837e-03_rb,0.29946e-03_rb,0.29804e-03_rb, &\n        & 0.28580e-03_rb,0.26386e-03_rb,0.23003e-03_rb,0.15858e-03_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.16755e-03_rb,0.26275e-03_rb,0.29380e-03_rb,0.30624e-03_rb,0.30499e-03_rb, &\n        & 0.29233e-03_rb,0.27029e-03_rb,0.23539e-03_rb,0.16161e-03_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.17007e-03_rb,0.26765e-03_rb,0.30035e-03_rb,0.31353e-03_rb,0.31332e-03_rb, &\n        & 0.30019e-03_rb,0.27871e-03_rb,0.24192e-03_rb,0.16587e-03_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.14021e-03_rb,0.21983e-03_rb,0.24557e-03_rb,0.25394e-03_rb,0.25027e-03_rb, &\n        & 0.23769e-03_rb,0.21853e-03_rb,0.19056e-03_rb,0.17210e-03_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.14181e-03_rb,0.22244e-03_rb,0.24837e-03_rb,0.25730e-03_rb,0.25433e-03_rb, &\n        & 0.24284e-03_rb,0.22361e-03_rb,0.19448e-03_rb,0.16707e-03_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.14344e-03_rb,0.22578e-03_rb,0.25216e-03_rb,0.26169e-03_rb,0.25950e-03_rb, &\n        & 0.24760e-03_rb,0.22868e-03_rb,0.19861e-03_rb,0.16518e-03_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.14524e-03_rb,0.22935e-03_rb,0.25652e-03_rb,0.26715e-03_rb,0.26554e-03_rb, &\n        & 0.25327e-03_rb,0.23470e-03_rb,0.20360e-03_rb,0.16514e-03_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.14752e-03_rb,0.23348e-03_rb,0.26209e-03_rb,0.27316e-03_rb,0.27225e-03_rb, &\n        & 0.26056e-03_rb,0.24203e-03_rb,0.20916e-03_rb,0.16671e-03_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.12008e-03_rb,0.19084e-03_rb,0.21359e-03_rb,0.22137e-03_rb,0.21826e-03_rb, &\n        & 0.20646e-03_rb,0.18855e-03_rb,0.16443e-03_rb,0.31379e-03_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.12170e-03_rb,0.19281e-03_rb,0.21619e-03_rb,0.22414e-03_rb,0.22156e-03_rb, &\n        & 0.21036e-03_rb,0.19272e-03_rb,0.16751e-03_rb,0.30810e-03_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.12341e-03_rb,0.19553e-03_rb,0.21930e-03_rb,0.22810e-03_rb,0.22604e-03_rb, &\n        & 0.21457e-03_rb,0.19724e-03_rb,0.17093e-03_rb,0.30579e-03_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.12515e-03_rb,0.19866e-03_rb,0.22306e-03_rb,0.23273e-03_rb,0.23128e-03_rb, &\n        & 0.22000e-03_rb,0.20255e-03_rb,0.17520e-03_rb,0.30468e-03_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.12711e-03_rb,0.20244e-03_rb,0.22780e-03_rb,0.23779e-03_rb,0.23723e-03_rb, &\n        & 0.22672e-03_rb,0.20873e-03_rb,0.18006e-03_rb,0.30071e-03_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.10239e-03_rb,0.16495e-03_rb,0.18568e-03_rb,0.19287e-03_rb,0.19038e-03_rb, &\n        & 0.17962e-03_rb,0.16274e-03_rb,0.14112e-03_rb,0.46281e-03_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.10386e-03_rb,0.16652e-03_rb,0.18791e-03_rb,0.19539e-03_rb,0.19307e-03_rb, &\n        & 0.18291e-03_rb,0.16628e-03_rb,0.14354e-03_rb,0.46032e-03_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.10550e-03_rb,0.16884e-03_rb,0.19060e-03_rb,0.19863e-03_rb,0.19685e-03_rb, &\n        & 0.18669e-03_rb,0.17045e-03_rb,0.14674e-03_rb,0.45882e-03_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.10710e-03_rb,0.17185e-03_rb,0.19377e-03_rb,0.20238e-03_rb,0.20140e-03_rb, &\n        & 0.19164e-03_rb,0.17544e-03_rb,0.15076e-03_rb,0.45556e-03_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.10887e-03_rb,0.17528e-03_rb,0.19755e-03_rb,0.20663e-03_rb,0.20650e-03_rb, &\n        & 0.19756e-03_rb,0.18068e-03_rb,0.15495e-03_rb,0.45295e-03_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.87454e-04_rb,0.14214e-03_rb,0.16093e-03_rb,0.16784e-03_rb,0.16634e-03_rb, &\n        & 0.15750e-03_rb,0.14233e-03_rb,0.12157e-03_rb,0.50227e-03_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.89026e-04_rb,0.14363e-03_rb,0.16297e-03_rb,0.17024e-03_rb,0.16905e-03_rb, &\n        & 0.16052e-03_rb,0.14560e-03_rb,0.12384e-03_rb,0.48800e-03_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.90456e-04_rb,0.14595e-03_rb,0.16534e-03_rb,0.17342e-03_rb,0.17281e-03_rb, &\n        & 0.16441e-03_rb,0.14965e-03_rb,0.12699e-03_rb,0.48638e-03_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.91788e-04_rb,0.14885e-03_rb,0.16823e-03_rb,0.17680e-03_rb,0.17688e-03_rb, &\n        & 0.16911e-03_rb,0.15409e-03_rb,0.13060e-03_rb,0.48097e-03_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.92958e-04_rb,0.15220e-03_rb,0.17197e-03_rb,0.18085e-03_rb,0.18150e-03_rb, &\n        & 0.17440e-03_rb,0.15892e-03_rb,0.13466e-03_rb,0.48115e-03_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.74228e-04_rb,0.12171e-03_rb,0.13828e-03_rb,0.14464e-03_rb,0.14381e-03_rb, &\n        & 0.13674e-03_rb,0.12370e-03_rb,0.10454e-03_rb,0.48263e-03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.75542e-04_rb,0.12330e-03_rb,0.13992e-03_rb,0.14688e-03_rb,0.14666e-03_rb, &\n        & 0.13981e-03_rb,0.12694e-03_rb,0.10662e-03_rb,0.46961e-03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.76696e-04_rb,0.12551e-03_rb,0.14218e-03_rb,0.14964e-03_rb,0.14989e-03_rb, &\n        & 0.14346e-03_rb,0.13058e-03_rb,0.10986e-03_rb,0.45986e-03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.77769e-04_rb,0.12821e-03_rb,0.14505e-03_rb,0.15276e-03_rb,0.15361e-03_rb, &\n        & 0.14764e-03_rb,0.13466e-03_rb,0.11322e-03_rb,0.45064e-03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.78633e-04_rb,0.13113e-03_rb,0.14863e-03_rb,0.15667e-03_rb,0.15783e-03_rb, &\n        & 0.15249e-03_rb,0.13915e-03_rb,0.11696e-03_rb,0.45257e-03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.62659e-04_rb,0.10388e-03_rb,0.11828e-03_rb,0.12392e-03_rb,0.12371e-03_rb, &\n        & 0.11811e-03_rb,0.10712e-03_rb,0.89769e-04_rb,0.40925e-03_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.63709e-04_rb,0.10546e-03_rb,0.11986e-03_rb,0.12594e-03_rb,0.12627e-03_rb, &\n        & 0.12095e-03_rb,0.11006e-03_rb,0.92053e-04_rb,0.39852e-03_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.64717e-04_rb,0.10750e-03_rb,0.12189e-03_rb,0.12839e-03_rb,0.12907e-03_rb, &\n        & 0.12414e-03_rb,0.11317e-03_rb,0.94939e-04_rb,0.39013e-03_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.65465e-04_rb,0.10983e-03_rb,0.12464e-03_rb,0.13149e-03_rb,0.13253e-03_rb, &\n        & 0.12801e-03_rb,0.11693e-03_rb,0.98001e-04_rb,0.38349e-03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.66137e-04_rb,0.11222e-03_rb,0.12786e-03_rb,0.13517e-03_rb,0.13652e-03_rb, &\n        & 0.13219e-03_rb,0.12093e-03_rb,0.10155e-03_rb,0.38305e-03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.60998e-03_rb,0.92357e-03_rb,0.10463e-02_rb,0.11196e-02_rb,0.11571e-02_rb, &\n        & 0.11569e-02_rb,0.11152e-02_rb,0.10342e-02_rb,0.80721e-03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.61496e-03_rb,0.93510e-03_rb,0.10604e-02_rb,0.11361e-02_rb,0.11777e-02_rb, &\n        & 0.11834e-02_rb,0.11457e-02_rb,0.10708e-02_rb,0.83732e-03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.62454e-03_rb,0.95002e-03_rb,0.10819e-02_rb,0.11594e-02_rb,0.12038e-02_rb, &\n        & 0.12158e-02_rb,0.11823e-02_rb,0.11158e-02_rb,0.87187e-03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.63013e-03_rb,0.96444e-03_rb,0.11010e-02_rb,0.11847e-02_rb,0.12326e-02_rb, &\n        & 0.12499e-02_rb,0.12239e-02_rb,0.11623e-02_rb,0.91505e-03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.63867e-03_rb,0.98562e-03_rb,0.11276e-02_rb,0.12151e-02_rb,0.12673e-02_rb, &\n        & 0.12886e-02_rb,0.12687e-02_rb,0.12127e-02_rb,0.95931e-03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.54006e-03_rb,0.82110e-03_rb,0.93517e-03_rb,0.10086e-02_rb,0.10436e-02_rb, &\n        & 0.10473e-02_rb,0.10071e-02_rb,0.92435e-03_rb,0.69632e-03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.54512e-03_rb,0.83214e-03_rb,0.94586e-03_rb,0.10224e-02_rb,0.10616e-02_rb, &\n        & 0.10697e-02_rb,0.10360e-02_rb,0.95897e-03_rb,0.72282e-03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.55430e-03_rb,0.84713e-03_rb,0.96481e-03_rb,0.10423e-02_rb,0.10850e-02_rb, &\n        & 0.10972e-02_rb,0.10691e-02_rb,0.99640e-03_rb,0.75512e-03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.56089e-03_rb,0.86369e-03_rb,0.98575e-03_rb,0.10648e-02_rb,0.11112e-02_rb, &\n        & 0.11281e-02_rb,0.11049e-02_rb,0.10361e-02_rb,0.79150e-03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.56701e-03_rb,0.88105e-03_rb,0.10081e-02_rb,0.10898e-02_rb,0.11420e-02_rb, &\n        & 0.11626e-02_rb,0.11406e-02_rb,0.10780e-02_rb,0.83023e-03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.47586e-03_rb,0.72781e-03_rb,0.83369e-03_rb,0.89860e-03_rb,0.93234e-03_rb, &\n        & 0.93626e-03_rb,0.89909e-03_rb,0.81585e-03_rb,0.59036e-03_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.48035e-03_rb,0.73757e-03_rb,0.84502e-03_rb,0.91276e-03_rb,0.94800e-03_rb, &\n        & 0.95536e-03_rb,0.92668e-03_rb,0.84501e-03_rb,0.61080e-03_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.48667e-03_rb,0.74941e-03_rb,0.86058e-03_rb,0.92996e-03_rb,0.96794e-03_rb, &\n        & 0.97737e-03_rb,0.95368e-03_rb,0.87646e-03_rb,0.63872e-03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.49637e-03_rb,0.76538e-03_rb,0.87882e-03_rb,0.95073e-03_rb,0.99190e-03_rb, &\n        & 0.10051e-02_rb,0.98438e-03_rb,0.91070e-03_rb,0.66866e-03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.50269e-03_rb,0.78028e-03_rb,0.89635e-03_rb,0.97198e-03_rb,0.10179e-02_rb, &\n        & 0.10338e-02_rb,0.10130e-02_rb,0.94553e-03_rb,0.70095e-03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.41745e-03_rb,0.64505e-03_rb,0.73966e-03_rb,0.79761e-03_rb,0.82752e-03_rb, &\n        & 0.82878e-03_rb,0.79470e-03_rb,0.71636e-03_rb,0.49987e-03_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.42212e-03_rb,0.65318e-03_rb,0.75017e-03_rb,0.80979e-03_rb,0.84194e-03_rb, &\n        & 0.84473e-03_rb,0.81717e-03_rb,0.73865e-03_rb,0.51625e-03_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.42808e-03_rb,0.66407e-03_rb,0.76314e-03_rb,0.82416e-03_rb,0.85814e-03_rb, &\n        & 0.86375e-03_rb,0.83972e-03_rb,0.76440e-03_rb,0.53894e-03_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.43544e-03_rb,0.67737e-03_rb,0.77911e-03_rb,0.84222e-03_rb,0.87777e-03_rb, &\n        & 0.88583e-03_rb,0.86479e-03_rb,0.79362e-03_rb,0.56271e-03_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.44549e-03_rb,0.69330e-03_rb,0.79686e-03_rb,0.86274e-03_rb,0.90103e-03_rb, &\n        & 0.91189e-03_rb,0.89184e-03_rb,0.82416e-03_rb,0.58887e-03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.36593e-03_rb,0.56942e-03_rb,0.65432e-03_rb,0.70354e-03_rb,0.72916e-03_rb, &\n        & 0.72850e-03_rb,0.69713e-03_rb,0.62558e-03_rb,0.42621e-03_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.37099e-03_rb,0.57654e-03_rb,0.66395e-03_rb,0.71472e-03_rb,0.74107e-03_rb, &\n        & 0.74240e-03_rb,0.71535e-03_rb,0.64376e-03_rb,0.43884e-03_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.37647e-03_rb,0.58652e-03_rb,0.67530e-03_rb,0.72837e-03_rb,0.75654e-03_rb, &\n        & 0.75759e-03_rb,0.73402e-03_rb,0.66546e-03_rb,0.45630e-03_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.38311e-03_rb,0.59837e-03_rb,0.68871e-03_rb,0.74328e-03_rb,0.77277e-03_rb, &\n        & 0.77677e-03_rb,0.75490e-03_rb,0.68962e-03_rb,0.47449e-03_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.39217e-03_rb,0.61368e-03_rb,0.70480e-03_rb,0.76178e-03_rb,0.79297e-03_rb, &\n        & 0.79889e-03_rb,0.77761e-03_rb,0.71542e-03_rb,0.49580e-03_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.32055e-03_rb,0.49922e-03_rb,0.57435e-03_rb,0.61868e-03_rb,0.63931e-03_rb, &\n        & 0.63779e-03_rb,0.60689e-03_rb,0.54327e-03_rb,0.36282e-03_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.32502e-03_rb,0.50520e-03_rb,0.58251e-03_rb,0.62835e-03_rb,0.64977e-03_rb, &\n        & 0.64920e-03_rb,0.62209e-03_rb,0.55837e-03_rb,0.37399e-03_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.33055e-03_rb,0.51462e-03_rb,0.59267e-03_rb,0.63972e-03_rb,0.66253e-03_rb, &\n        & 0.66213e-03_rb,0.63802e-03_rb,0.57660e-03_rb,0.38710e-03_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.33647e-03_rb,0.52569e-03_rb,0.60454e-03_rb,0.65260e-03_rb,0.67645e-03_rb, &\n        & 0.67638e-03_rb,0.65560e-03_rb,0.59667e-03_rb,0.40130e-03_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.34306e-03_rb,0.53846e-03_rb,0.61820e-03_rb,0.66796e-03_rb,0.69284e-03_rb, &\n        & 0.69400e-03_rb,0.67340e-03_rb,0.61700e-03_rb,0.41923e-03_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.28149e-03_rb,0.43644e-03_rb,0.49974e-03_rb,0.53938e-03_rb,0.55701e-03_rb, &\n        & 0.55579e-03_rb,0.52736e-03_rb,0.47001e-03_rb,0.31306e-03_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.28528e-03_rb,0.44207e-03_rb,0.50655e-03_rb,0.54763e-03_rb,0.56691e-03_rb, &\n        & 0.56439e-03_rb,0.53930e-03_rb,0.48247e-03_rb,0.32173e-03_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.29004e-03_rb,0.45020e-03_rb,0.51518e-03_rb,0.55741e-03_rb,0.57771e-03_rb, &\n        & 0.57585e-03_rb,0.55263e-03_rb,0.49748e-03_rb,0.33090e-03_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.29568e-03_rb,0.46070e-03_rb,0.52625e-03_rb,0.56864e-03_rb,0.58962e-03_rb, &\n        & 0.58944e-03_rb,0.56702e-03_rb,0.51458e-03_rb,0.34232e-03_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.30178e-03_rb,0.47274e-03_rb,0.53886e-03_rb,0.58253e-03_rb,0.60354e-03_rb, &\n        & 0.60454e-03_rb,0.58225e-03_rb,0.53128e-03_rb,0.35470e-03_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.24786e-03_rb,0.38205e-03_rb,0.43403e-03_rb,0.46727e-03_rb,0.48302e-03_rb, &\n        & 0.48227e-03_rb,0.45812e-03_rb,0.40611e-03_rb,0.30468e-03_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.25026e-03_rb,0.38705e-03_rb,0.43948e-03_rb,0.47351e-03_rb,0.49158e-03_rb, &\n        & 0.49003e-03_rb,0.46771e-03_rb,0.41673e-03_rb,0.30992e-03_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.25464e-03_rb,0.39453e-03_rb,0.44681e-03_rb,0.48211e-03_rb,0.50112e-03_rb, &\n        & 0.49992e-03_rb,0.47844e-03_rb,0.42901e-03_rb,0.31626e-03_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.25978e-03_rb,0.40390e-03_rb,0.45683e-03_rb,0.49220e-03_rb,0.51134e-03_rb, &\n        & 0.51141e-03_rb,0.48898e-03_rb,0.44238e-03_rb,0.32406e-03_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.26514e-03_rb,0.41428e-03_rb,0.46827e-03_rb,0.50433e-03_rb,0.52333e-03_rb, &\n        & 0.52414e-03_rb,0.50147e-03_rb,0.45619e-03_rb,0.33317e-03_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.21824e-03_rb,0.33786e-03_rb,0.37946e-03_rb,0.40535e-03_rb,0.41752e-03_rb, &\n        & 0.41661e-03_rb,0.39611e-03_rb,0.34986e-03_rb,0.52178e-03_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.22059e-03_rb,0.34230e-03_rb,0.38410e-03_rb,0.41056e-03_rb,0.42477e-03_rb, &\n        & 0.42372e-03_rb,0.40485e-03_rb,0.35866e-03_rb,0.50681e-03_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.22400e-03_rb,0.34814e-03_rb,0.39039e-03_rb,0.41748e-03_rb,0.43284e-03_rb, &\n        & 0.43220e-03_rb,0.41363e-03_rb,0.36885e-03_rb,0.49302e-03_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.22873e-03_rb,0.35603e-03_rb,0.39905e-03_rb,0.42659e-03_rb,0.44174e-03_rb, &\n        & 0.44167e-03_rb,0.42288e-03_rb,0.37972e-03_rb,0.48294e-03_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.23347e-03_rb,0.36495e-03_rb,0.40893e-03_rb,0.43763e-03_rb,0.45181e-03_rb, &\n        & 0.45234e-03_rb,0.43347e-03_rb,0.39120e-03_rb,0.47762e-03_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.19122e-03_rb,0.29954e-03_rb,0.33486e-03_rb,0.35474e-03_rb,0.36349e-03_rb, &\n        & 0.36120e-03_rb,0.34300e-03_rb,0.30153e-03_rb,0.10818e-02_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.19375e-03_rb,0.30331e-03_rb,0.33858e-03_rb,0.35959e-03_rb,0.36963e-03_rb, &\n        & 0.36736e-03_rb,0.35033e-03_rb,0.30927e-03_rb,0.10683e-02_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.19685e-03_rb,0.30858e-03_rb,0.34410e-03_rb,0.36599e-03_rb,0.37648e-03_rb, &\n        & 0.37420e-03_rb,0.35748e-03_rb,0.31737e-03_rb,0.10704e-02_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.20091e-03_rb,0.31499e-03_rb,0.35151e-03_rb,0.37400e-03_rb,0.38421e-03_rb, &\n        & 0.38207e-03_rb,0.36506e-03_rb,0.32617e-03_rb,0.10743e-02_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.20539e-03_rb,0.32294e-03_rb,0.36050e-03_rb,0.38325e-03_rb,0.39308e-03_rb, &\n        & 0.39074e-03_rb,0.37406e-03_rb,0.33544e-03_rb,0.10696e-02_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.16667e-03_rb,0.26520e-03_rb,0.29671e-03_rb,0.31441e-03_rb,0.32093e-03_rb, &\n        & 0.31659e-03_rb,0.30045e-03_rb,0.26340e-03_rb,0.11835e-02_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.16885e-03_rb,0.26948e-03_rb,0.30096e-03_rb,0.31914e-03_rb,0.32661e-03_rb, &\n        & 0.32210e-03_rb,0.30657e-03_rb,0.27004e-03_rb,0.11814e-02_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.17223e-03_rb,0.27439e-03_rb,0.30661e-03_rb,0.32470e-03_rb,0.33272e-03_rb, &\n        & 0.32842e-03_rb,0.31227e-03_rb,0.27654e-03_rb,0.11630e-02_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.17618e-03_rb,0.28049e-03_rb,0.31365e-03_rb,0.33181e-03_rb,0.33965e-03_rb, &\n        & 0.33555e-03_rb,0.31903e-03_rb,0.28400e-03_rb,0.11485e-02_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.18103e-03_rb,0.28752e-03_rb,0.32181e-03_rb,0.34031e-03_rb,0.34776e-03_rb, &\n        & 0.34353e-03_rb,0.32710e-03_rb,0.29221e-03_rb,0.11367e-02_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.14364e-03_rb,0.23191e-03_rb,0.26011e-03_rb,0.27602e-03_rb,0.28230e-03_rb, &\n        & 0.27753e-03_rb,0.26259e-03_rb,0.22940e-03_rb,0.11242e-02_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.14586e-03_rb,0.23578e-03_rb,0.26464e-03_rb,0.28074e-03_rb,0.28728e-03_rb, &\n        & 0.28268e-03_rb,0.26740e-03_rb,0.23511e-03_rb,0.11131e-02_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.14908e-03_rb,0.24042e-03_rb,0.27020e-03_rb,0.28659e-03_rb,0.29280e-03_rb, &\n        & 0.28866e-03_rb,0.27254e-03_rb,0.24089e-03_rb,0.10996e-02_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.15297e-03_rb,0.24595e-03_rb,0.27661e-03_rb,0.29313e-03_rb,0.29926e-03_rb, &\n        & 0.29513e-03_rb,0.27870e-03_rb,0.24706e-03_rb,0.10965e-02_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.15735e-03_rb,0.25242e-03_rb,0.28422e-03_rb,0.30069e-03_rb,0.30695e-03_rb, &\n        & 0.30241e-03_rb,0.28613e-03_rb,0.25425e-03_rb,0.10839e-02_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.12345e-03_rb,0.20108e-03_rb,0.22674e-03_rb,0.24086e-03_rb,0.24638e-03_rb, &\n        & 0.24238e-03_rb,0.22876e-03_rb,0.19931e-03_rb,0.96895e-03_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.12581e-03_rb,0.20480e-03_rb,0.23117e-03_rb,0.24535e-03_rb,0.25104e-03_rb, &\n        & 0.24702e-03_rb,0.23303e-03_rb,0.20421e-03_rb,0.96294e-03_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.12856e-03_rb,0.20921e-03_rb,0.23606e-03_rb,0.25076e-03_rb,0.25631e-03_rb, &\n        & 0.25243e-03_rb,0.23816e-03_rb,0.20920e-03_rb,0.95736e-03_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.13210e-03_rb,0.21428e-03_rb,0.24223e-03_rb,0.25691e-03_rb,0.26218e-03_rb, &\n        & 0.25847e-03_rb,0.24400e-03_rb,0.21468e-03_rb,0.95389e-03_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.13599e-03_rb,0.22037e-03_rb,0.24914e-03_rb,0.26391e-03_rb,0.26911e-03_rb, &\n        & 0.26543e-03_rb,0.25095e-03_rb,0.22101e-03_rb,0.94116e-03_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.10602e-02_rb,0.17123e-02_rb,0.20157e-02_rb,0.22277e-02_rb,0.23726e-02_rb, &\n        & 0.24628e-02_rb,0.25069e-02_rb,0.24686e-02_rb,0.20168e-02_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.10672e-02_rb,0.17270e-02_rb,0.20414e-02_rb,0.22652e-02_rb,0.24211e-02_rb, &\n        & 0.25212e-02_rb,0.25704e-02_rb,0.25272e-02_rb,0.20646e-02_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.10788e-02_rb,0.17509e-02_rb,0.20769e-02_rb,0.23112e-02_rb,0.24814e-02_rb, &\n        & 0.25914e-02_rb,0.26418e-02_rb,0.25942e-02_rb,0.21193e-02_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.10874e-02_rb,0.17764e-02_rb,0.21176e-02_rb,0.23585e-02_rb,0.25381e-02_rb, &\n        & 0.26622e-02_rb,0.27175e-02_rb,0.26689e-02_rb,0.21851e-02_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.11018e-02_rb,0.18090e-02_rb,0.21640e-02_rb,0.24172e-02_rb,0.26051e-02_rb, &\n        & 0.27415e-02_rb,0.28075e-02_rb,0.27566e-02_rb,0.22604e-02_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.95075e-03_rb,0.15355e-02_rb,0.17976e-02_rb,0.19766e-02_rb,0.21006e-02_rb, &\n        & 0.21710e-02_rb,0.21998e-02_rb,0.21663e-02_rb,0.17568e-02_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.96010e-03_rb,0.15501e-02_rb,0.18242e-02_rb,0.20112e-02_rb,0.21419e-02_rb, &\n        & 0.22180e-02_rb,0.22475e-02_rb,0.22135e-02_rb,0.17960e-02_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.97337e-03_rb,0.15726e-02_rb,0.18580e-02_rb,0.20531e-02_rb,0.21905e-02_rb, &\n        & 0.22742e-02_rb,0.23072e-02_rb,0.22697e-02_rb,0.18409e-02_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.98600e-03_rb,0.15975e-02_rb,0.18942e-02_rb,0.20984e-02_rb,0.22403e-02_rb, &\n        & 0.23334e-02_rb,0.23735e-02_rb,0.23328e-02_rb,0.18922e-02_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.99685e-03_rb,0.16266e-02_rb,0.19353e-02_rb,0.21493e-02_rb,0.22931e-02_rb, &\n        & 0.23955e-02_rb,0.24466e-02_rb,0.24068e-02_rb,0.19548e-02_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.85253e-03_rb,0.13731e-02_rb,0.15966e-02_rb,0.17555e-02_rb,0.18660e-02_rb, &\n        & 0.19267e-02_rb,0.19415e-02_rb,0.18992e-02_rb,0.15125e-02_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.86131e-03_rb,0.13853e-02_rb,0.16172e-02_rb,0.17827e-02_rb,0.18992e-02_rb, &\n        & 0.19616e-02_rb,0.19781e-02_rb,0.19388e-02_rb,0.15472e-02_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.87215e-03_rb,0.13990e-02_rb,0.16433e-02_rb,0.18151e-02_rb,0.19357e-02_rb, &\n        & 0.20044e-02_rb,0.20244e-02_rb,0.19864e-02_rb,0.15842e-02_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.88704e-03_rb,0.14261e-02_rb,0.16795e-02_rb,0.18576e-02_rb,0.19802e-02_rb, &\n        & 0.20536e-02_rb,0.20804e-02_rb,0.20410e-02_rb,0.16256e-02_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.89758e-03_rb,0.14527e-02_rb,0.17171e-02_rb,0.19025e-02_rb,0.20236e-02_rb, &\n        & 0.21045e-02_rb,0.21413e-02_rb,0.21023e-02_rb,0.16764e-02_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.76168e-03_rb,0.12206e-02_rb,0.14175e-02_rb,0.15588e-02_rb,0.16575e-02_rb, &\n        & 0.17098e-02_rb,0.17134e-02_rb,0.16603e-02_rb,0.12974e-02_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.76958e-03_rb,0.12314e-02_rb,0.14342e-02_rb,0.15807e-02_rb,0.16847e-02_rb, &\n        & 0.17400e-02_rb,0.17442e-02_rb,0.16938e-02_rb,0.13260e-02_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.78002e-03_rb,0.12481e-02_rb,0.14573e-02_rb,0.16092e-02_rb,0.17173e-02_rb, &\n        & 0.17771e-02_rb,0.17830e-02_rb,0.17337e-02_rb,0.13577e-02_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.79261e-03_rb,0.12694e-02_rb,0.14861e-02_rb,0.16420e-02_rb,0.17536e-02_rb, &\n        & 0.18179e-02_rb,0.18286e-02_rb,0.17776e-02_rb,0.13930e-02_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.80905e-03_rb,0.12930e-02_rb,0.15216e-02_rb,0.16835e-02_rb,0.17969e-02_rb, &\n        & 0.18651e-02_rb,0.18829e-02_rb,0.18324e-02_rb,0.14370e-02_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.67567e-03_rb,0.10847e-02_rb,0.12673e-02_rb,0.13865e-02_rb,0.14678e-02_rb, &\n        & 0.15102e-02_rb,0.15099e-02_rb,0.14466e-02_rb,0.11079e-02_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.68234e-03_rb,0.10948e-02_rb,0.12810e-02_rb,0.14048e-02_rb,0.14909e-02_rb, &\n        & 0.15364e-02_rb,0.15351e-02_rb,0.14749e-02_rb,0.11322e-02_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.69172e-03_rb,0.11094e-02_rb,0.12954e-02_rb,0.14275e-02_rb,0.15177e-02_rb, &\n        & 0.15693e-02_rb,0.15680e-02_rb,0.15069e-02_rb,0.11581e-02_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.70397e-03_rb,0.11284e-02_rb,0.13174e-02_rb,0.14563e-02_rb,0.15501e-02_rb, &\n        & 0.16053e-02_rb,0.16071e-02_rb,0.15445e-02_rb,0.11891e-02_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.72110e-03_rb,0.11540e-02_rb,0.13487e-02_rb,0.14917e-02_rb,0.15891e-02_rb, &\n        & 0.16474e-02_rb,0.16536e-02_rb,0.15913e-02_rb,0.12262e-02_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.59508e-03_rb,0.96565e-03_rb,0.11271e-02_rb,0.12321e-02_rb,0.12935e-02_rb, &\n        & 0.13263e-02_rb,0.13235e-02_rb,0.12583e-02_rb,0.94318e-03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.60163e-03_rb,0.97555e-03_rb,0.11390e-02_rb,0.12428e-02_rb,0.13136e-02_rb, &\n        & 0.13483e-02_rb,0.13443e-02_rb,0.12812e-02_rb,0.96040e-03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.61035e-03_rb,0.98842e-03_rb,0.11551e-02_rb,0.12623e-02_rb,0.13370e-02_rb, &\n        & 0.13759e-02_rb,0.13716e-02_rb,0.13073e-02_rb,0.98049e-03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.62216e-03_rb,0.10038e-02_rb,0.11750e-02_rb,0.12870e-02_rb,0.13646e-02_rb, &\n        & 0.14087e-02_rb,0.14042e-02_rb,0.13389e-02_rb,0.10049e-02_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.63568e-03_rb,0.10246e-02_rb,0.11986e-02_rb,0.13152e-02_rb,0.13969e-02_rb, &\n        & 0.14439e-02_rb,0.14425e-02_rb,0.13760e-02_rb,0.10351e-02_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.52222e-03_rb,0.85609e-03_rb,0.99991e-03_rb,0.10870e-02_rb,0.11353e-02_rb, &\n        & 0.11602e-02_rb,0.11537e-02_rb,0.10909e-02_rb,0.79969e-03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.52839e-03_rb,0.86572e-03_rb,0.10120e-02_rb,0.11011e-02_rb,0.11521e-02_rb, &\n        & 0.11786e-02_rb,0.11705e-02_rb,0.11093e-02_rb,0.81421e-03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.53695e-03_rb,0.87703e-03_rb,0.10261e-02_rb,0.11177e-02_rb,0.11714e-02_rb, &\n        & 0.12016e-02_rb,0.11930e-02_rb,0.11309e-02_rb,0.83157e-03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.54734e-03_rb,0.89105e-03_rb,0.10435e-02_rb,0.11340e-02_rb,0.11954e-02_rb, &\n        & 0.12276e-02_rb,0.12204e-02_rb,0.11559e-02_rb,0.85189e-03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.56071e-03_rb,0.90902e-03_rb,0.10648e-02_rb,0.11575e-02_rb,0.12234e-02_rb, &\n        & 0.12571e-02_rb,0.12523e-02_rb,0.11865e-02_rb,0.87630e-03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.45809e-03_rb,0.75296e-03_rb,0.88022e-03_rb,0.95530e-03_rb,0.99775e-03_rb, &\n        & 0.10107e-02_rb,0.99991e-03_rb,0.94255e-03_rb,0.69349e-03_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.46457e-03_rb,0.76241e-03_rb,0.89241e-03_rb,0.96833e-03_rb,0.10107e-02_rb, &\n        & 0.10258e-02_rb,0.10136e-02_rb,0.95735e-03_rb,0.70413e-03_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.47249e-03_rb,0.77258e-03_rb,0.90578e-03_rb,0.98260e-03_rb,0.10233e-02_rb, &\n        & 0.10448e-02_rb,0.10324e-02_rb,0.97481e-03_rb,0.71522e-03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.48263e-03_rb,0.78537e-03_rb,0.92183e-03_rb,0.10012e-02_rb,0.10427e-02_rb, &\n        & 0.10663e-02_rb,0.10558e-02_rb,0.99531e-03_rb,0.72922e-03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.49501e-03_rb,0.80218e-03_rb,0.94059e-03_rb,0.10219e-02_rb,0.10669e-02_rb, &\n        & 0.10907e-02_rb,0.10824e-02_rb,0.10204e-02_rb,0.74659e-03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.40630e-03_rb,0.65697e-03_rb,0.76693e-03_rb,0.83253e-03_rb,0.86881e-03_rb, &\n        & 0.87661e-03_rb,0.86393e-03_rb,0.81158e-03_rb,0.85763e-03_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.41166e-03_rb,0.66657e-03_rb,0.77941e-03_rb,0.84564e-03_rb,0.88174e-03_rb, &\n        & 0.88952e-03_rb,0.87488e-03_rb,0.82351e-03_rb,0.84633e-03_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.41847e-03_rb,0.67680e-03_rb,0.79185e-03_rb,0.85875e-03_rb,0.89476e-03_rb, &\n        & 0.90456e-03_rb,0.89101e-03_rb,0.83833e-03_rb,0.84017e-03_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.42661e-03_rb,0.68815e-03_rb,0.80637e-03_rb,0.87435e-03_rb,0.91036e-03_rb, &\n        & 0.92205e-03_rb,0.90961e-03_rb,0.85502e-03_rb,0.83895e-03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.43776e-03_rb,0.70278e-03_rb,0.82329e-03_rb,0.89247e-03_rb,0.92828e-03_rb, &\n        & 0.94238e-03_rb,0.93168e-03_rb,0.87536e-03_rb,0.84088e-03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.36854e-03_rb,0.57908e-03_rb,0.66869e-03_rb,0.72258e-03_rb,0.75231e-03_rb, &\n        & 0.75942e-03_rb,0.74383e-03_rb,0.69709e-03_rb,0.20395e-02_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.37298e-03_rb,0.58711e-03_rb,0.68015e-03_rb,0.73349e-03_rb,0.76293e-03_rb, &\n        & 0.77052e-03_rb,0.75338e-03_rb,0.70798e-03_rb,0.19202e-02_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.37876e-03_rb,0.59595e-03_rb,0.69100e-03_rb,0.74575e-03_rb,0.77497e-03_rb, &\n        & 0.78295e-03_rb,0.76740e-03_rb,0.72017e-03_rb,0.18161e-02_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.38615e-03_rb,0.60708e-03_rb,0.70373e-03_rb,0.75914e-03_rb,0.78952e-03_rb, &\n        & 0.79663e-03_rb,0.78331e-03_rb,0.73385e-03_rb,0.17247e-02_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.39564e-03_rb,0.62052e-03_rb,0.71856e-03_rb,0.77512e-03_rb,0.80699e-03_rb, &\n        & 0.81444e-03_rb,0.80141e-03_rb,0.75081e-03_rb,0.16568e-02_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.33320e-03_rb,0.52088e-03_rb,0.59646e-03_rb,0.63812e-03_rb,0.65660e-03_rb, &\n        & 0.65900e-03_rb,0.64138e-03_rb,0.60020e-03_rb,0.25696e-02_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.33882e-03_rb,0.52942e-03_rb,0.60584e-03_rb,0.64728e-03_rb,0.66639e-03_rb, &\n        & 0.66995e-03_rb,0.65115e-03_rb,0.61030e-03_rb,0.24243e-02_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.34516e-03_rb,0.53993e-03_rb,0.61579e-03_rb,0.65783e-03_rb,0.67758e-03_rb, &\n        & 0.68193e-03_rb,0.66413e-03_rb,0.62169e-03_rb,0.23408e-02_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.35301e-03_rb,0.55124e-03_rb,0.62753e-03_rb,0.66999e-03_rb,0.69148e-03_rb, &\n        & 0.69508e-03_rb,0.67858e-03_rb,0.63426e-03_rb,0.22732e-02_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.36214e-03_rb,0.56453e-03_rb,0.64151e-03_rb,0.68481e-03_rb,0.70755e-03_rb, &\n        & 0.71086e-03_rb,0.69483e-03_rb,0.64938e-03_rb,0.21869e-02_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.29653e-03_rb,0.46559e-03_rb,0.53073e-03_rb,0.56520e-03_rb,0.57894e-03_rb, &\n        & 0.57686e-03_rb,0.55698e-03_rb,0.51584e-03_rb,0.26304e-02_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.30188e-03_rb,0.47447e-03_rb,0.54017e-03_rb,0.57406e-03_rb,0.58804e-03_rb, &\n        & 0.58653e-03_rb,0.56630e-03_rb,0.52472e-03_rb,0.24930e-02_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.30861e-03_rb,0.48517e-03_rb,0.55102e-03_rb,0.58380e-03_rb,0.59890e-03_rb, &\n        & 0.59725e-03_rb,0.57721e-03_rb,0.53486e-03_rb,0.23834e-02_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.31637e-03_rb,0.49701e-03_rb,0.56299e-03_rb,0.59618e-03_rb,0.61191e-03_rb, &\n        & 0.60936e-03_rb,0.58930e-03_rb,0.54649e-03_rb,0.22824e-02_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.32604e-03_rb,0.51148e-03_rb,0.57604e-03_rb,0.61103e-03_rb,0.62611e-03_rb, &\n        & 0.62412e-03_rb,0.60375e-03_rb,0.56026e-03_rb,0.22084e-02_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.26154e-03_rb,0.41366e-03_rb,0.47019e-03_rb,0.50056e-03_rb,0.51140e-03_rb, &\n        & 0.50695e-03_rb,0.48611e-03_rb,0.44348e-03_rb,0.22773e-02_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.26669e-03_rb,0.42267e-03_rb,0.47957e-03_rb,0.51009e-03_rb,0.52067e-03_rb, &\n        & 0.51611e-03_rb,0.49506e-03_rb,0.45138e-03_rb,0.21516e-02_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.27302e-03_rb,0.43290e-03_rb,0.49082e-03_rb,0.52081e-03_rb,0.53105e-03_rb, &\n        & 0.52578e-03_rb,0.50476e-03_rb,0.46026e-03_rb,0.20522e-02_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.28114e-03_rb,0.44552e-03_rb,0.50271e-03_rb,0.53316e-03_rb,0.54314e-03_rb, &\n        & 0.53754e-03_rb,0.51555e-03_rb,0.47096e-03_rb,0.19694e-02_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.29046e-03_rb,0.45904e-03_rb,0.51716e-03_rb,0.54751e-03_rb,0.55727e-03_rb, &\n        & 0.55147e-03_rb,0.52828e-03_rb,0.48333e-03_rb,0.19102e-02_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.21025e-02_rb,0.35934e-02_rb,0.44505e-02_rb,0.51294e-02_rb,0.56565e-02_rb, &\n        & 0.60638e-02_rb,0.63051e-02_rb,0.63060e-02_rb,0.53132e-02_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.21147e-02_rb,0.36363e-02_rb,0.45228e-02_rb,0.52203e-02_rb,0.57590e-02_rb, &\n        & 0.61627e-02_rb,0.64080e-02_rb,0.64123e-02_rb,0.54186e-02_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.21423e-02_rb,0.36907e-02_rb,0.46129e-02_rb,0.53384e-02_rb,0.58809e-02_rb, &\n        & 0.62832e-02_rb,0.65320e-02_rb,0.65359e-02_rb,0.55396e-02_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.21655e-02_rb,0.37303e-02_rb,0.46928e-02_rb,0.54454e-02_rb,0.60067e-02_rb, &\n        & 0.64159e-02_rb,0.66758e-02_rb,0.66776e-02_rb,0.56738e-02_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.22041e-02_rb,0.37865e-02_rb,0.47900e-02_rb,0.55720e-02_rb,0.61575e-02_rb, &\n        & 0.65795e-02_rb,0.68426e-02_rb,0.68332e-02_rb,0.58218e-02_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.19184e-02_rb,0.32868e-02_rb,0.40037e-02_rb,0.45520e-02_rb,0.49723e-02_rb, &\n        & 0.52862e-02_rb,0.54779e-02_rb,0.54778e-02_rb,0.44696e-02_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.19302e-02_rb,0.33258e-02_rb,0.40693e-02_rb,0.46336e-02_rb,0.50634e-02_rb, &\n        & 0.53829e-02_rb,0.55797e-02_rb,0.55784e-02_rb,0.45568e-02_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.19586e-02_rb,0.33762e-02_rb,0.41518e-02_rb,0.47383e-02_rb,0.51749e-02_rb, &\n        & 0.54993e-02_rb,0.56986e-02_rb,0.56923e-02_rb,0.46572e-02_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.19876e-02_rb,0.34214e-02_rb,0.42297e-02_rb,0.48395e-02_rb,0.52957e-02_rb, &\n        & 0.56305e-02_rb,0.58340e-02_rb,0.58219e-02_rb,0.47733e-02_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.20222e-02_rb,0.34660e-02_rb,0.43057e-02_rb,0.49428e-02_rb,0.54286e-02_rb, &\n        & 0.57769e-02_rb,0.59846e-02_rb,0.59651e-02_rb,0.49022e-02_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.17389e-02_rb,0.29833e-02_rb,0.35894e-02_rb,0.40314e-02_rb,0.43535e-02_rb, &\n        & 0.45848e-02_rb,0.47251e-02_rb,0.47273e-02_rb,0.37675e-02_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.17511e-02_rb,0.30210e-02_rb,0.36487e-02_rb,0.40996e-02_rb,0.44314e-02_rb, &\n        & 0.46730e-02_rb,0.48141e-02_rb,0.48126e-02_rb,0.38333e-02_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.17713e-02_rb,0.30646e-02_rb,0.37133e-02_rb,0.41800e-02_rb,0.45216e-02_rb, &\n        & 0.47732e-02_rb,0.49178e-02_rb,0.49079e-02_rb,0.39121e-02_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.18058e-02_rb,0.31149e-02_rb,0.37889e-02_rb,0.42777e-02_rb,0.46349e-02_rb, &\n        & 0.48925e-02_rb,0.50383e-02_rb,0.50219e-02_rb,0.40071e-02_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.18379e-02_rb,0.31573e-02_rb,0.38545e-02_rb,0.43660e-02_rb,0.47479e-02_rb, &\n        & 0.50186e-02_rb,0.51717e-02_rb,0.51483e-02_rb,0.41141e-02_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.15760e-02_rb,0.26881e-02_rb,0.32116e-02_rb,0.35706e-02_rb,0.38258e-02_rb, &\n        & 0.39911e-02_rb,0.40833e-02_rb,0.40813e-02_rb,0.32298e-02_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.15813e-02_rb,0.27249e-02_rb,0.32627e-02_rb,0.36295e-02_rb,0.38889e-02_rb, &\n        & 0.40640e-02_rb,0.41571e-02_rb,0.41534e-02_rb,0.32787e-02_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.16001e-02_rb,0.27603e-02_rb,0.33193e-02_rb,0.36971e-02_rb,0.39631e-02_rb, &\n        & 0.41442e-02_rb,0.42435e-02_rb,0.42324e-02_rb,0.33394e-02_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.16258e-02_rb,0.28020e-02_rb,0.33780e-02_rb,0.37750e-02_rb,0.40494e-02_rb, &\n        & 0.42369e-02_rb,0.43436e-02_rb,0.43281e-02_rb,0.34138e-02_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.16664e-02_rb,0.28640e-02_rb,0.34503e-02_rb,0.38637e-02_rb,0.41572e-02_rb, &\n        & 0.43540e-02_rb,0.44611e-02_rb,0.44376e-02_rb,0.34982e-02_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.14233e-02_rb,0.24061e-02_rb,0.28484e-02_rb,0.31675e-02_rb,0.33803e-02_rb, &\n        & 0.35027e-02_rb,0.35528e-02_rb,0.35417e-02_rb,0.27814e-02_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.14350e-02_rb,0.24395e-02_rb,0.28937e-02_rb,0.32168e-02_rb,0.34318e-02_rb, &\n        & 0.35619e-02_rb,0.36148e-02_rb,0.35990e-02_rb,0.28208e-02_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.14521e-02_rb,0.24725e-02_rb,0.29512e-02_rb,0.32733e-02_rb,0.34917e-02_rb, &\n        & 0.36258e-02_rb,0.36856e-02_rb,0.36654e-02_rb,0.28719e-02_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.14701e-02_rb,0.25117e-02_rb,0.30081e-02_rb,0.33364e-02_rb,0.35619e-02_rb, &\n        & 0.37016e-02_rb,0.37673e-02_rb,0.37455e-02_rb,0.29344e-02_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.15037e-02_rb,0.25667e-02_rb,0.30753e-02_rb,0.34136e-02_rb,0.36518e-02_rb, &\n        & 0.37975e-02_rb,0.38648e-02_rb,0.38367e-02_rb,0.30050e-02_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.12833e-02_rb,0.21397e-02_rb,0.25249e-02_rb,0.27989e-02_rb,0.29941e-02_rb, &\n        & 0.30943e-02_rb,0.31134e-02_rb,0.30718e-02_rb,0.23837e-02_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.12955e-02_rb,0.21689e-02_rb,0.25640e-02_rb,0.28465e-02_rb,0.30386e-02_rb, &\n        & 0.31442e-02_rb,0.31666e-02_rb,0.31216e-02_rb,0.24190e-02_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.13128e-02_rb,0.22001e-02_rb,0.26092e-02_rb,0.28949e-02_rb,0.30875e-02_rb, &\n        & 0.31967e-02_rb,0.32254e-02_rb,0.31772e-02_rb,0.24633e-02_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.13321e-02_rb,0.22373e-02_rb,0.26583e-02_rb,0.29483e-02_rb,0.31454e-02_rb, &\n        & 0.32584e-02_rb,0.32916e-02_rb,0.32451e-02_rb,0.25158e-02_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.13570e-02_rb,0.22801e-02_rb,0.27142e-02_rb,0.30110e-02_rb,0.32147e-02_rb, &\n        & 0.33324e-02_rb,0.33699e-02_rb,0.33240e-02_rb,0.25751e-02_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.11500e-02_rb,0.18956e-02_rb,0.22352e-02_rb,0.24771e-02_rb,0.26462e-02_rb, &\n        & 0.27285e-02_rb,0.27284e-02_rb,0.26574e-02_rb,0.20286e-02_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.11641e-02_rb,0.19221e-02_rb,0.22681e-02_rb,0.25137e-02_rb,0.26876e-02_rb, &\n        & 0.27741e-02_rb,0.27762e-02_rb,0.27013e-02_rb,0.20553e-02_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.11813e-02_rb,0.19513e-02_rb,0.23065e-02_rb,0.25547e-02_rb,0.27305e-02_rb, &\n        & 0.28210e-02_rb,0.28261e-02_rb,0.27499e-02_rb,0.20900e-02_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.12020e-02_rb,0.19854e-02_rb,0.23499e-02_rb,0.26064e-02_rb,0.27813e-02_rb, &\n        & 0.28738e-02_rb,0.28824e-02_rb,0.28095e-02_rb,0.21311e-02_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.12251e-02_rb,0.20252e-02_rb,0.23984e-02_rb,0.26618e-02_rb,0.28401e-02_rb, &\n        & 0.29374e-02_rb,0.29496e-02_rb,0.28780e-02_rb,0.21792e-02_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.10232e-02_rb,0.16906e-02_rb,0.19769e-02_rb,0.21832e-02_rb,0.23202e-02_rb, &\n        & 0.23917e-02_rb,0.23852e-02_rb,0.22950e-02_rb,0.17101e-02_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.10391e-02_rb,0.17050e-02_rb,0.20071e-02_rb,0.22179e-02_rb,0.23606e-02_rb, &\n        & 0.24337e-02_rb,0.24284e-02_rb,0.23335e-02_rb,0.17331e-02_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.10558e-02_rb,0.17304e-02_rb,0.20412e-02_rb,0.22560e-02_rb,0.24048e-02_rb, &\n        & 0.24767e-02_rb,0.24718e-02_rb,0.23758e-02_rb,0.17638e-02_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.10757e-02_rb,0.17611e-02_rb,0.20788e-02_rb,0.22974e-02_rb,0.24509e-02_rb, &\n        & 0.25242e-02_rb,0.25220e-02_rb,0.24275e-02_rb,0.17981e-02_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.10980e-02_rb,0.17974e-02_rb,0.21207e-02_rb,0.23464e-02_rb,0.25025e-02_rb, &\n        & 0.25827e-02_rb,0.25792e-02_rb,0.24843e-02_rb,0.18371e-02_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.89817e-03_rb,0.14995e-02_rb,0.17424e-02_rb,0.19141e-02_rb,0.20277e-02_rb, &\n        & 0.20847e-02_rb,0.20717e-02_rb,0.19779e-02_rb,0.16529e-02_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.91497e-03_rb,0.15202e-02_rb,0.17713e-02_rb,0.19473e-02_rb,0.20642e-02_rb, &\n        & 0.21241e-02_rb,0.21112e-02_rb,0.20125e-02_rb,0.16590e-02_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.93269e-03_rb,0.15411e-02_rb,0.18029e-02_rb,0.19839e-02_rb,0.21017e-02_rb, &\n        & 0.21633e-02_rb,0.21507e-02_rb,0.20494e-02_rb,0.16738e-02_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.95304e-03_rb,0.15646e-02_rb,0.18368e-02_rb,0.20225e-02_rb,0.21451e-02_rb, &\n        & 0.22062e-02_rb,0.21951e-02_rb,0.20930e-02_rb,0.16939e-02_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.97498e-03_rb,0.15941e-02_rb,0.18742e-02_rb,0.20657e-02_rb,0.21958e-02_rb, &\n        & 0.22577e-02_rb,0.22448e-02_rb,0.21409e-02_rb,0.17176e-02_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.79262e-03_rb,0.13163e-02_rb,0.15328e-02_rb,0.16707e-02_rb,0.17648e-02_rb, &\n        & 0.18068e-02_rb,0.17935e-02_rb,0.17058e-02_rb,0.29700e-02_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.80762e-03_rb,0.13411e-02_rb,0.15596e-02_rb,0.17027e-02_rb,0.18000e-02_rb, &\n        & 0.18435e-02_rb,0.18291e-02_rb,0.17355e-02_rb,0.28651e-02_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.82251e-03_rb,0.13646e-02_rb,0.15856e-02_rb,0.17370e-02_rb,0.18349e-02_rb, &\n        & 0.18799e-02_rb,0.18643e-02_rb,0.17669e-02_rb,0.27637e-02_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.84077e-03_rb,0.13892e-02_rb,0.16170e-02_rb,0.17747e-02_rb,0.18736e-02_rb, &\n        & 0.19201e-02_rb,0.19036e-02_rb,0.18042e-02_rb,0.26870e-02_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.86106e-03_rb,0.14180e-02_rb,0.16516e-02_rb,0.18147e-02_rb,0.19171e-02_rb, &\n        & 0.19660e-02_rb,0.19468e-02_rb,0.18451e-02_rb,0.26342e-02_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.72744e-03_rb,0.11669e-02_rb,0.13481e-02_rb,0.14590e-02_rb,0.15393e-02_rb, &\n        & 0.15747e-02_rb,0.15610e-02_rb,0.14772e-02_rb,0.38429e-02_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.73930e-03_rb,0.11904e-02_rb,0.13759e-02_rb,0.14894e-02_rb,0.15715e-02_rb, &\n        & 0.16066e-02_rb,0.15925e-02_rb,0.15038e-02_rb,0.36308e-02_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.75350e-03_rb,0.12120e-02_rb,0.14044e-02_rb,0.15240e-02_rb,0.16053e-02_rb, &\n        & 0.16390e-02_rb,0.16251e-02_rb,0.15339e-02_rb,0.34122e-02_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.76930e-03_rb,0.12355e-02_rb,0.14324e-02_rb,0.15603e-02_rb,0.16424e-02_rb, &\n        & 0.16774e-02_rb,0.16611e-02_rb,0.15677e-02_rb,0.32391e-02_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.78824e-03_rb,0.12645e-02_rb,0.14660e-02_rb,0.15998e-02_rb,0.16846e-02_rb, &\n        & 0.17204e-02_rb,0.17007e-02_rb,0.16046e-02_rb,0.31291e-02_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.66909e-03_rb,0.10517e-02_rb,0.11921e-02_rb,0.12822e-02_rb,0.13379e-02_rb, &\n        & 0.13630e-02_rb,0.13492e-02_rb,0.12752e-02_rb,0.39255e-02_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.68372e-03_rb,0.10717e-02_rb,0.12175e-02_rb,0.13089e-02_rb,0.13666e-02_rb, &\n        & 0.13913e-02_rb,0.13783e-02_rb,0.12999e-02_rb,0.37011e-02_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.69881e-03_rb,0.10912e-02_rb,0.12439e-02_rb,0.13402e-02_rb,0.13970e-02_rb, &\n        & 0.14222e-02_rb,0.14099e-02_rb,0.13279e-02_rb,0.35002e-02_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.71487e-03_rb,0.11132e-02_rb,0.12732e-02_rb,0.13738e-02_rb,0.14317e-02_rb, &\n        & 0.14583e-02_rb,0.14439e-02_rb,0.13590e-02_rb,0.33360e-02_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.73461e-03_rb,0.11382e-02_rb,0.13053e-02_rb,0.14102e-02_rb,0.14713e-02_rb, &\n        & 0.14974e-02_rb,0.14808e-02_rb,0.13924e-02_rb,0.31844e-02_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.61282e-03_rb,0.95575e-03_rb,0.10730e-02_rb,0.11388e-02_rb,0.11718e-02_rb, &\n        & 0.11795e-02_rb,0.11618e-02_rb,0.10974e-02_rb,0.34089e-02_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.62765e-03_rb,0.97500e-03_rb,0.10966e-02_rb,0.11619e-02_rb,0.11959e-02_rb, &\n        & 0.12054e-02_rb,0.11876e-02_rb,0.11206e-02_rb,0.32141e-02_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.64409e-03_rb,0.99523e-03_rb,0.11197e-02_rb,0.11873e-02_rb,0.12235e-02_rb, &\n        & 0.12347e-02_rb,0.12163e-02_rb,0.11468e-02_rb,0.30396e-02_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.66230e-03_rb,0.10180e-02_rb,0.11464e-02_rb,0.12161e-02_rb,0.12557e-02_rb, &\n        & 0.12667e-02_rb,0.12475e-02_rb,0.11749e-02_rb,0.28911e-02_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.68383e-03_rb,0.10452e-02_rb,0.11767e-02_rb,0.12484e-02_rb,0.12902e-02_rb, &\n        & 0.13021e-02_rb,0.12822e-02_rb,0.12049e-02_rb,0.27576e-02_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.59073e-02_rb,0.94320e-02_rb,0.12084e-01_rb,0.14049e-01_rb,0.15571e-01_rb, &\n        & 0.16640e-01_rb,0.17123e-01_rb,0.16625e-01_rb,0.14851e-01_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.60213e-02_rb,0.95565e-02_rb,0.12218e-01_rb,0.14200e-01_rb,0.15736e-01_rb, &\n        & 0.16810e-01_rb,0.17290e-01_rb,0.16722e-01_rb,0.14969e-01_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.61698e-02_rb,0.97176e-02_rb,0.12383e-01_rb,0.14381e-01_rb,0.15939e-01_rb, &\n        & 0.17010e-01_rb,0.17476e-01_rb,0.16866e-01_rb,0.15129e-01_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.62862e-02_rb,0.98624e-02_rb,0.12544e-01_rb,0.14586e-01_rb,0.16163e-01_rb, &\n        & 0.17225e-01_rb,0.17690e-01_rb,0.17043e-01_rb,0.15322e-01_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.64346e-02_rb,0.10033e-01_rb,0.12746e-01_rb,0.14817e-01_rb,0.16408e-01_rb, &\n        & 0.17481e-01_rb,0.17940e-01_rb,0.17253e-01_rb,0.15543e-01_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.53740e-02_rb,0.87218e-02_rb,0.11053e-01_rb,0.12810e-01_rb,0.14176e-01_rb, &\n        & 0.15120e-01_rb,0.15546e-01_rb,0.15059e-01_rb,0.12919e-01_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.54730e-02_rb,0.88522e-02_rb,0.11203e-01_rb,0.12984e-01_rb,0.14363e-01_rb, &\n        & 0.15303e-01_rb,0.15712e-01_rb,0.15177e-01_rb,0.13038e-01_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.56074e-02_rb,0.90112e-02_rb,0.11386e-01_rb,0.13184e-01_rb,0.14577e-01_rb, &\n        & 0.15506e-01_rb,0.15908e-01_rb,0.15341e-01_rb,0.13193e-01_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.57291e-02_rb,0.91663e-02_rb,0.11581e-01_rb,0.13408e-01_rb,0.14805e-01_rb, &\n        & 0.15738e-01_rb,0.16140e-01_rb,0.15527e-01_rb,0.13373e-01_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.58374e-02_rb,0.93237e-02_rb,0.11790e-01_rb,0.13642e-01_rb,0.15063e-01_rb, &\n        & 0.16008e-01_rb,0.16391e-01_rb,0.15740e-01_rb,0.13573e-01_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.49151e-02_rb,0.80083e-02_rb,0.10006e-01_rb,0.11528e-01_rb,0.12727e-01_rb, &\n        & 0.13551e-01_rb,0.13911e-01_rb,0.13469e-01_rb,0.11070e-01_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.50045e-02_rb,0.81384e-02_rb,0.10158e-01_rb,0.11712e-01_rb,0.12918e-01_rb, &\n        & 0.13727e-01_rb,0.14078e-01_rb,0.13598e-01_rb,0.11182e-01_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.51018e-02_rb,0.82774e-02_rb,0.10333e-01_rb,0.11906e-01_rb,0.13128e-01_rb, &\n        & 0.13932e-01_rb,0.14276e-01_rb,0.13758e-01_rb,0.11318e-01_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.52290e-02_rb,0.84457e-02_rb,0.10545e-01_rb,0.12130e-01_rb,0.13362e-01_rb, &\n        & 0.14179e-01_rb,0.14506e-01_rb,0.13944e-01_rb,0.11475e-01_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.53219e-02_rb,0.86004e-02_rb,0.10753e-01_rb,0.12365e-01_rb,0.13624e-01_rb, &\n        & 0.14443e-01_rb,0.14743e-01_rb,0.14150e-01_rb,0.11664e-01_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.44996e-02_rb,0.73324e-02_rb,0.89976e-02_rb,0.10282e-01_rb,0.11291e-01_rb, &\n        & 0.11989e-01_rb,0.12308e-01_rb,0.11915e-01_rb,0.94610e-02_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.45903e-02_rb,0.74608e-02_rb,0.91511e-02_rb,0.10467e-01_rb,0.11476e-01_rb, &\n        & 0.12168e-01_rb,0.12474e-01_rb,0.12040e-01_rb,0.95583e-02_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.46786e-02_rb,0.75960e-02_rb,0.93200e-02_rb,0.10651e-01_rb,0.11685e-01_rb, &\n        & 0.12375e-01_rb,0.12662e-01_rb,0.12197e-01_rb,0.96836e-02_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.47771e-02_rb,0.77407e-02_rb,0.95085e-02_rb,0.10860e-01_rb,0.11915e-01_rb, &\n        & 0.12611e-01_rb,0.12868e-01_rb,0.12374e-01_rb,0.98243e-02_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.48920e-02_rb,0.79194e-02_rb,0.97305e-02_rb,0.11107e-01_rb,0.12174e-01_rb, &\n        & 0.12866e-01_rb,0.13096e-01_rb,0.12573e-01_rb,0.99978e-02_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.41203e-02_rb,0.67057e-02_rb,0.80820e-02_rb,0.91247e-02_rb,0.99321e-02_rb, &\n        & 0.10510e-01_rb,0.10783e-01_rb,0.10430e-01_rb,0.81020e-02_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.41993e-02_rb,0.68279e-02_rb,0.82322e-02_rb,0.92959e-02_rb,0.10115e-01_rb, &\n        & 0.10684e-01_rb,0.10936e-01_rb,0.10557e-01_rb,0.81860e-02_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.42833e-02_rb,0.69588e-02_rb,0.83884e-02_rb,0.94726e-02_rb,0.10319e-01_rb, &\n        & 0.10879e-01_rb,0.11113e-01_rb,0.10704e-01_rb,0.82915e-02_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.43800e-02_rb,0.70975e-02_rb,0.85585e-02_rb,0.96769e-02_rb,0.10538e-01_rb, &\n        & 0.11098e-01_rb,0.11307e-01_rb,0.10873e-01_rb,0.84082e-02_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.44913e-02_rb,0.72638e-02_rb,0.87668e-02_rb,0.99106e-02_rb,0.10776e-01_rb, &\n        & 0.11337e-01_rb,0.11521e-01_rb,0.11061e-01_rb,0.85492e-02_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.37432e-02_rb,0.61135e-02_rb,0.72507e-02_rb,0.80822e-02_rb,0.86984e-02_rb, &\n        & 0.91424e-02_rb,0.93607e-02_rb,0.90800e-02_rb,0.69637e-02_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.38232e-02_rb,0.62277e-02_rb,0.73923e-02_rb,0.82383e-02_rb,0.88666e-02_rb, &\n        & 0.93013e-02_rb,0.95051e-02_rb,0.91939e-02_rb,0.70311e-02_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.39028e-02_rb,0.63516e-02_rb,0.75330e-02_rb,0.84072e-02_rb,0.90542e-02_rb, &\n        & 0.94860e-02_rb,0.96693e-02_rb,0.93306e-02_rb,0.71143e-02_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.39917e-02_rb,0.64850e-02_rb,0.76893e-02_rb,0.85935e-02_rb,0.92562e-02_rb, &\n        & 0.96859e-02_rb,0.98481e-02_rb,0.94821e-02_rb,0.72080e-02_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.40851e-02_rb,0.66256e-02_rb,0.78694e-02_rb,0.87911e-02_rb,0.94733e-02_rb, &\n        & 0.99019e-02_rb,0.10042e-01_rb,0.96464e-02_rb,0.73211e-02_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.33812e-02_rb,0.55475e-02_rb,0.65017e-02_rb,0.71556e-02_rb,0.76235e-02_rb, &\n        & 0.79451e-02_rb,0.81101e-02_rb,0.78877e-02_rb,0.60070e-02_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.34581e-02_rb,0.56575e-02_rb,0.66301e-02_rb,0.72977e-02_rb,0.77709e-02_rb, &\n        & 0.80903e-02_rb,0.82426e-02_rb,0.79917e-02_rb,0.60625e-02_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.35355e-02_rb,0.57759e-02_rb,0.67602e-02_rb,0.74532e-02_rb,0.79395e-02_rb, &\n        & 0.82549e-02_rb,0.83890e-02_rb,0.81121e-02_rb,0.61274e-02_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.36191e-02_rb,0.58987e-02_rb,0.69034e-02_rb,0.76219e-02_rb,0.81209e-02_rb, &\n        & 0.84343e-02_rb,0.85495e-02_rb,0.82395e-02_rb,0.62026e-02_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.37084e-02_rb,0.60308e-02_rb,0.70671e-02_rb,0.77977e-02_rb,0.83160e-02_rb, &\n        & 0.86266e-02_rb,0.87205e-02_rb,0.83802e-02_rb,0.62947e-02_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.30376e-02_rb,0.49774e-02_rb,0.58172e-02_rb,0.63470e-02_rb,0.67038e-02_rb, &\n        & 0.69396e-02_rb,0.70412e-02_rb,0.68509e-02_rb,0.51374e-02_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.31099e-02_rb,0.50996e-02_rb,0.59344e-02_rb,0.64736e-02_rb,0.68367e-02_rb, &\n        & 0.70701e-02_rb,0.71564e-02_rb,0.69425e-02_rb,0.51813e-02_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.31853e-02_rb,0.52155e-02_rb,0.60541e-02_rb,0.66147e-02_rb,0.69858e-02_rb, &\n        & 0.72120e-02_rb,0.72858e-02_rb,0.70465e-02_rb,0.52319e-02_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.32663e-02_rb,0.53312e-02_rb,0.61863e-02_rb,0.67654e-02_rb,0.71468e-02_rb, &\n        & 0.73677e-02_rb,0.74252e-02_rb,0.71560e-02_rb,0.52932e-02_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.33510e-02_rb,0.54583e-02_rb,0.63345e-02_rb,0.69235e-02_rb,0.73170e-02_rb, &\n        & 0.75339e-02_rb,0.75720e-02_rb,0.72770e-02_rb,0.53726e-02_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.27168e-02_rb,0.44406e-02_rb,0.51768e-02_rb,0.56339e-02_rb,0.59208e-02_rb, &\n        & 0.60958e-02_rb,0.61438e-02_rb,0.59554e-02_rb,0.42511e-02_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.27853e-02_rb,0.45486e-02_rb,0.52870e-02_rb,0.57491e-02_rb,0.60397e-02_rb, &\n        & 0.62076e-02_rb,0.62421e-02_rb,0.60358e-02_rb,0.42982e-02_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.28572e-02_rb,0.46609e-02_rb,0.53998e-02_rb,0.58755e-02_rb,0.61719e-02_rb, &\n        & 0.63300e-02_rb,0.63536e-02_rb,0.61272e-02_rb,0.43479e-02_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.29351e-02_rb,0.47766e-02_rb,0.55244e-02_rb,0.60103e-02_rb,0.63121e-02_rb, &\n        & 0.64656e-02_rb,0.64718e-02_rb,0.62231e-02_rb,0.44012e-02_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.30174e-02_rb,0.49013e-02_rb,0.56608e-02_rb,0.61542e-02_rb,0.64584e-02_rb, &\n        & 0.66094e-02_rb,0.65960e-02_rb,0.63252e-02_rb,0.44655e-02_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.24055e-02_rb,0.39503e-02_rb,0.45833e-02_rb,0.49951e-02_rb,0.52507e-02_rb, &\n        & 0.53857e-02_rb,0.53791e-02_rb,0.51629e-02_rb,0.55379e-02_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.24728e-02_rb,0.40487e-02_rb,0.46867e-02_rb,0.51042e-02_rb,0.53576e-02_rb, &\n        & 0.54844e-02_rb,0.54704e-02_rb,0.52383e-02_rb,0.55398e-02_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.25454e-02_rb,0.41511e-02_rb,0.48010e-02_rb,0.52206e-02_rb,0.54751e-02_rb, &\n        & 0.55927e-02_rb,0.55711e-02_rb,0.53216e-02_rb,0.55501e-02_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.26224e-02_rb,0.42542e-02_rb,0.49201e-02_rb,0.53438e-02_rb,0.55977e-02_rb, &\n        & 0.57114e-02_rb,0.56753e-02_rb,0.54074e-02_rb,0.55558e-02_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.27039e-02_rb,0.43672e-02_rb,0.50470e-02_rb,0.54750e-02_rb,0.57276e-02_rb, &\n        & 0.58363e-02_rb,0.57849e-02_rb,0.54996e-02_rb,0.55710e-02_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.21256e-02_rb,0.35221e-02_rb,0.40853e-02_rb,0.44612e-02_rb,0.46874e-02_rb, &\n        & 0.47866e-02_rb,0.47389e-02_rb,0.44975e-02_rb,0.66135e-02_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.21937e-02_rb,0.36149e-02_rb,0.41854e-02_rb,0.45677e-02_rb,0.47907e-02_rb, &\n        & 0.48833e-02_rb,0.48291e-02_rb,0.45707e-02_rb,0.65729e-02_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.22650e-02_rb,0.37098e-02_rb,0.42933e-02_rb,0.46764e-02_rb,0.49020e-02_rb, &\n        & 0.49895e-02_rb,0.49234e-02_rb,0.46462e-02_rb,0.65598e-02_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.23425e-02_rb,0.38113e-02_rb,0.44107e-02_rb,0.47931e-02_rb,0.50165e-02_rb, &\n        & 0.51000e-02_rb,0.50211e-02_rb,0.47251e-02_rb,0.65419e-02_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.24251e-02_rb,0.39222e-02_rb,0.45344e-02_rb,0.49164e-02_rb,0.51382e-02_rb, &\n        & 0.52156e-02_rb,0.51233e-02_rb,0.48118e-02_rb,0.65404e-02_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.19014e-02_rb,0.31169e-02_rb,0.36336e-02_rb,0.39642e-02_rb,0.41602e-02_rb, &\n        & 0.42352e-02_rb,0.41726e-02_rb,0.39183e-02_rb,0.68121e-02_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.19605e-02_rb,0.32068e-02_rb,0.37314e-02_rb,0.40676e-02_rb,0.42627e-02_rb, &\n        & 0.43333e-02_rb,0.42591e-02_rb,0.39851e-02_rb,0.67229e-02_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.20227e-02_rb,0.33010e-02_rb,0.38333e-02_rb,0.41743e-02_rb,0.43708e-02_rb, &\n        & 0.44355e-02_rb,0.43461e-02_rb,0.40520e-02_rb,0.66419e-02_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.20945e-02_rb,0.34006e-02_rb,0.39411e-02_rb,0.42851e-02_rb,0.44804e-02_rb, &\n        & 0.45405e-02_rb,0.44353e-02_rb,0.41230e-02_rb,0.65948e-02_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.21695e-02_rb,0.35114e-02_rb,0.40581e-02_rb,0.44020e-02_rb,0.45960e-02_rb, &\n        & 0.46501e-02_rb,0.45319e-02_rb,0.42045e-02_rb,0.65716e-02_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.17348e-02_rb,0.27575e-02_rb,0.32033e-02_rb,0.34905e-02_rb,0.36669e-02_rb, &\n        & 0.37299e-02_rb,0.36615e-02_rb,0.34092e-02_rb,0.62173e-02_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.17868e-02_rb,0.28403e-02_rb,0.32978e-02_rb,0.35924e-02_rb,0.37684e-02_rb, &\n        & 0.38248e-02_rb,0.37430e-02_rb,0.34686e-02_rb,0.61248e-02_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.18438e-02_rb,0.29272e-02_rb,0.33982e-02_rb,0.36985e-02_rb,0.38711e-02_rb, &\n        & 0.39210e-02_rb,0.38240e-02_rb,0.35286e-02_rb,0.60637e-02_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.19066e-02_rb,0.30192e-02_rb,0.35016e-02_rb,0.38072e-02_rb,0.39764e-02_rb, &\n        & 0.40199e-02_rb,0.39089e-02_rb,0.35954e-02_rb,0.60138e-02_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.19732e-02_rb,0.31237e-02_rb,0.36129e-02_rb,0.39207e-02_rb,0.40892e-02_rb, &\n        & 0.41240e-02_rb,0.40022e-02_rb,0.36721e-02_rb,0.59944e-02_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.41219e-01_rb,0.41795e-01_rb,0.46848e-01_rb,0.50877e-01_rb,0.53437e-01_rb, &\n        & 0.54488e-01_rb,0.53560e-01_rb,0.50235e-01_rb,0.51545e-01_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.42156e-01_rb,0.42406e-01_rb,0.47180e-01_rb,0.51006e-01_rb,0.53354e-01_rb, &\n        & 0.54221e-01_rb,0.53185e-01_rb,0.49897e-01_rb,0.51289e-01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.43082e-01_rb,0.43034e-01_rb,0.47543e-01_rb,0.51133e-01_rb,0.53289e-01_rb, &\n        & 0.53978e-01_rb,0.52866e-01_rb,0.49591e-01_rb,0.51083e-01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.43908e-01_rb,0.43606e-01_rb,0.47876e-01_rb,0.51241e-01_rb,0.53225e-01_rb, &\n        & 0.53768e-01_rb,0.52555e-01_rb,0.49365e-01_rb,0.51010e-01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.44717e-01_rb,0.44169e-01_rb,0.48160e-01_rb,0.51395e-01_rb,0.53206e-01_rb, &\n        & 0.53607e-01_rb,0.52301e-01_rb,0.49268e-01_rb,0.51108e-01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.38280e-01_rb,0.40368e-01_rb,0.46271e-01_rb,0.50387e-01_rb,0.53287e-01_rb, &\n        & 0.54294e-01_rb,0.53147e-01_rb,0.49359e-01_rb,0.49444e-01_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.39278e-01_rb,0.41016e-01_rb,0.46659e-01_rb,0.50565e-01_rb,0.53249e-01_rb, &\n        & 0.54064e-01_rb,0.52823e-01_rb,0.49016e-01_rb,0.49210e-01_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.40252e-01_rb,0.41678e-01_rb,0.47048e-01_rb,0.50745e-01_rb,0.53223e-01_rb, &\n        & 0.53871e-01_rb,0.52519e-01_rb,0.48730e-01_rb,0.49081e-01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.41132e-01_rb,0.42274e-01_rb,0.47387e-01_rb,0.50925e-01_rb,0.53214e-01_rb, &\n        & 0.53693e-01_rb,0.52217e-01_rb,0.48559e-01_rb,0.49102e-01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.41937e-01_rb,0.42806e-01_rb,0.47675e-01_rb,0.51115e-01_rb,0.53221e-01_rb, &\n        & 0.53535e-01_rb,0.52007e-01_rb,0.48511e-01_rb,0.49285e-01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.35016e-01_rb,0.38740e-01_rb,0.45035e-01_rb,0.49481e-01_rb,0.52517e-01_rb, &\n        & 0.53496e-01_rb,0.52191e-01_rb,0.48044e-01_rb,0.46584e-01_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.36031e-01_rb,0.39393e-01_rb,0.45463e-01_rb,0.49713e-01_rb,0.52514e-01_rb, &\n        & 0.53329e-01_rb,0.51912e-01_rb,0.47725e-01_rb,0.46413e-01_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.36991e-01_rb,0.40024e-01_rb,0.45863e-01_rb,0.49943e-01_rb,0.52531e-01_rb, &\n        & 0.53167e-01_rb,0.51622e-01_rb,0.47472e-01_rb,0.46354e-01_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.37902e-01_rb,0.40620e-01_rb,0.46253e-01_rb,0.50181e-01_rb,0.52583e-01_rb, &\n        & 0.53007e-01_rb,0.51384e-01_rb,0.47335e-01_rb,0.46441e-01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.38707e-01_rb,0.41126e-01_rb,0.46598e-01_rb,0.50384e-01_rb,0.52633e-01_rb, &\n        & 0.52879e-01_rb,0.51240e-01_rb,0.47311e-01_rb,0.46661e-01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.31672e-01_rb,0.36966e-01_rb,0.43365e-01_rb,0.48073e-01_rb,0.51081e-01_rb, &\n        & 0.52063e-01_rb,0.50596e-01_rb,0.46210e-01_rb,0.43228e-01_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.32685e-01_rb,0.37616e-01_rb,0.43827e-01_rb,0.48349e-01_rb,0.51147e-01_rb, &\n        & 0.51967e-01_rb,0.50386e-01_rb,0.45960e-01_rb,0.43137e-01_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.33628e-01_rb,0.38241e-01_rb,0.44270e-01_rb,0.48639e-01_rb,0.51209e-01_rb, &\n        & 0.51848e-01_rb,0.50172e-01_rb,0.45771e-01_rb,0.43147e-01_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.34503e-01_rb,0.38804e-01_rb,0.44698e-01_rb,0.48896e-01_rb,0.51278e-01_rb, &\n        & 0.51724e-01_rb,0.50016e-01_rb,0.45686e-01_rb,0.43281e-01_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.35339e-01_rb,0.39319e-01_rb,0.45124e-01_rb,0.49160e-01_rb,0.51368e-01_rb, &\n        & 0.51672e-01_rb,0.49945e-01_rb,0.45702e-01_rb,0.43520e-01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.28453e-01_rb,0.34915e-01_rb,0.41400e-01_rb,0.46104e-01_rb,0.49014e-01_rb, &\n        & 0.49952e-01_rb,0.48370e-01_rb,0.43932e-01_rb,0.39569e-01_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.29434e-01_rb,0.35588e-01_rb,0.41893e-01_rb,0.46437e-01_rb,0.49144e-01_rb, &\n        & 0.49919e-01_rb,0.48254e-01_rb,0.43775e-01_rb,0.39548e-01_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.30340e-01_rb,0.36236e-01_rb,0.42373e-01_rb,0.46769e-01_rb,0.49255e-01_rb, &\n        & 0.49873e-01_rb,0.48133e-01_rb,0.43667e-01_rb,0.39610e-01_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.31178e-01_rb,0.36810e-01_rb,0.42835e-01_rb,0.47061e-01_rb,0.49370e-01_rb, &\n        & 0.49827e-01_rb,0.48071e-01_rb,0.43623e-01_rb,0.39779e-01_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.31999e-01_rb,0.37346e-01_rb,0.43284e-01_rb,0.47361e-01_rb,0.49516e-01_rb, &\n        & 0.49857e-01_rb,0.48088e-01_rb,0.43666e-01_rb,0.40037e-01_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.25421e-01_rb,0.32626e-01_rb,0.39116e-01_rb,0.43609e-01_rb,0.46371e-01_rb, &\n        & 0.47186e-01_rb,0.45634e-01_rb,0.41276e-01_rb,0.35722e-01_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.26347e-01_rb,0.33315e-01_rb,0.39629e-01_rb,0.44004e-01_rb,0.46570e-01_rb, &\n        & 0.47251e-01_rb,0.45602e-01_rb,0.41217e-01_rb,0.35770e-01_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.27211e-01_rb,0.33965e-01_rb,0.40142e-01_rb,0.44371e-01_rb,0.46737e-01_rb, &\n        & 0.47271e-01_rb,0.45579e-01_rb,0.41184e-01_rb,0.35883e-01_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.28013e-01_rb,0.34546e-01_rb,0.40641e-01_rb,0.44704e-01_rb,0.46903e-01_rb, &\n        & 0.47305e-01_rb,0.45608e-01_rb,0.41201e-01_rb,0.36071e-01_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.28777e-01_rb,0.35080e-01_rb,0.41083e-01_rb,0.45018e-01_rb,0.47083e-01_rb, &\n        & 0.47404e-01_rb,0.45685e-01_rb,0.41273e-01_rb,0.36328e-01_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.22628e-01_rb,0.30290e-01_rb,0.36520e-01_rb,0.40736e-01_rb,0.43195e-01_rb, &\n        & 0.43894e-01_rb,0.42478e-01_rb,0.38357e-01_rb,0.31858e-01_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.23496e-01_rb,0.30981e-01_rb,0.37071e-01_rb,0.41159e-01_rb,0.43459e-01_rb, &\n        & 0.44039e-01_rb,0.42534e-01_rb,0.38366e-01_rb,0.31954e-01_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.24311e-01_rb,0.31616e-01_rb,0.37614e-01_rb,0.41552e-01_rb,0.43690e-01_rb, &\n        & 0.44135e-01_rb,0.42598e-01_rb,0.38398e-01_rb,0.32112e-01_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.25081e-01_rb,0.32194e-01_rb,0.38124e-01_rb,0.41906e-01_rb,0.43917e-01_rb, &\n        & 0.44249e-01_rb,0.42700e-01_rb,0.38476e-01_rb,0.32312e-01_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.25796e-01_rb,0.32737e-01_rb,0.38583e-01_rb,0.42251e-01_rb,0.44147e-01_rb, &\n        & 0.44425e-01_rb,0.42840e-01_rb,0.38587e-01_rb,0.32545e-01_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.20122e-01_rb,0.27995e-01_rb,0.33719e-01_rb,0.37485e-01_rb,0.39621e-01_rb, &\n        & 0.40226e-01_rb,0.38971e-01_rb,0.35214e-01_rb,0.28110e-01_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.20930e-01_rb,0.28671e-01_rb,0.34304e-01_rb,0.37966e-01_rb,0.39957e-01_rb, &\n        & 0.40447e-01_rb,0.39124e-01_rb,0.35304e-01_rb,0.28246e-01_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.21692e-01_rb,0.29291e-01_rb,0.34870e-01_rb,0.38392e-01_rb,0.40254e-01_rb, &\n        & 0.40624e-01_rb,0.39266e-01_rb,0.35403e-01_rb,0.28424e-01_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.22396e-01_rb,0.29880e-01_rb,0.35388e-01_rb,0.38779e-01_rb,0.40528e-01_rb, &\n        & 0.40815e-01_rb,0.39436e-01_rb,0.35538e-01_rb,0.28597e-01_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.23064e-01_rb,0.30402e-01_rb,0.35848e-01_rb,0.39151e-01_rb,0.40824e-01_rb, &\n        & 0.41057e-01_rb,0.39639e-01_rb,0.35669e-01_rb,0.28823e-01_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.17909e-01_rb,0.25709e-01_rb,0.30840e-01_rb,0.34036e-01_rb,0.35851e-01_rb, &\n        & 0.36360e-01_rb,0.35282e-01_rb,0.31947e-01_rb,0.24003e-01_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.18652e-01_rb,0.26369e-01_rb,0.31431e-01_rb,0.34542e-01_rb,0.36244e-01_rb, &\n        & 0.36648e-01_rb,0.35513e-01_rb,0.32109e-01_rb,0.24164e-01_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.19344e-01_rb,0.26986e-01_rb,0.31997e-01_rb,0.35005e-01_rb,0.36599e-01_rb, &\n        & 0.36904e-01_rb,0.35718e-01_rb,0.32277e-01_rb,0.24318e-01_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.19991e-01_rb,0.27565e-01_rb,0.32506e-01_rb,0.35425e-01_rb,0.36934e-01_rb, &\n        & 0.37163e-01_rb,0.35949e-01_rb,0.32440e-01_rb,0.24470e-01_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.20615e-01_rb,0.28069e-01_rb,0.32961e-01_rb,0.35817e-01_rb,0.37281e-01_rb, &\n        & 0.37462e-01_rb,0.36191e-01_rb,0.32591e-01_rb,0.24688e-01_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.16038e-01_rb,0.23520e-01_rb,0.27944e-01_rb,0.30612e-01_rb,0.32108e-01_rb, &\n        & 0.32531e-01_rb,0.31594e-01_rb,0.28710e-01_rb,0.19040e-01_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.16702e-01_rb,0.24155e-01_rb,0.28537e-01_rb,0.31140e-01_rb,0.32544e-01_rb, &\n        & 0.32858e-01_rb,0.31863e-01_rb,0.28938e-01_rb,0.19154e-01_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.17329e-01_rb,0.24747e-01_rb,0.29094e-01_rb,0.31618e-01_rb,0.32949e-01_rb, &\n        & 0.33160e-01_rb,0.32119e-01_rb,0.29151e-01_rb,0.19214e-01_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.17922e-01_rb,0.25302e-01_rb,0.29595e-01_rb,0.32058e-01_rb,0.33330e-01_rb, &\n        & 0.33472e-01_rb,0.32385e-01_rb,0.29320e-01_rb,0.19269e-01_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.18489e-01_rb,0.25799e-01_rb,0.30045e-01_rb,0.32466e-01_rb,0.33700e-01_rb, &\n        & 0.33812e-01_rb,0.32629e-01_rb,0.29481e-01_rb,0.19405e-01_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.14687e-01_rb,0.21702e-01_rb,0.25384e-01_rb,0.27570e-01_rb,0.28760e-01_rb, &\n        & 0.29017e-01_rb,0.28178e-01_rb,0.25716e-01_rb,0.20195e-01_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.15274e-01_rb,0.22296e-01_rb,0.25944e-01_rb,0.28087e-01_rb,0.29202e-01_rb, &\n        & 0.29352e-01_rb,0.28471e-01_rb,0.25960e-01_rb,0.20265e-01_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.15835e-01_rb,0.22836e-01_rb,0.26465e-01_rb,0.28550e-01_rb,0.29611e-01_rb, &\n        & 0.29694e-01_rb,0.28754e-01_rb,0.26152e-01_rb,0.20296e-01_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.16357e-01_rb,0.23338e-01_rb,0.26927e-01_rb,0.28982e-01_rb,0.29998e-01_rb, &\n        & 0.30045e-01_rb,0.29008e-01_rb,0.26312e-01_rb,0.20131e-01_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.16879e-01_rb,0.23791e-01_rb,0.27359e-01_rb,0.29394e-01_rb,0.30387e-01_rb, &\n        & 0.30372e-01_rb,0.29268e-01_rb,0.26507e-01_rb,0.20180e-01_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.13435e-01_rb,0.19917e-01_rb,0.22947e-01_rb,0.24741e-01_rb,0.25656e-01_rb, &\n        & 0.25762e-01_rb,0.25010e-01_rb,0.22879e-01_rb,0.21935e-01_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.13973e-01_rb,0.20460e-01_rb,0.23475e-01_rb,0.25221e-01_rb,0.26084e-01_rb, &\n        & 0.26126e-01_rb,0.25297e-01_rb,0.23091e-01_rb,0.22096e-01_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.14481e-01_rb,0.20956e-01_rb,0.23951e-01_rb,0.25665e-01_rb,0.26486e-01_rb, &\n        & 0.26478e-01_rb,0.25558e-01_rb,0.23263e-01_rb,0.22257e-01_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.14966e-01_rb,0.21408e-01_rb,0.24388e-01_rb,0.26079e-01_rb,0.26872e-01_rb, &\n        & 0.26802e-01_rb,0.25814e-01_rb,0.23444e-01_rb,0.22244e-01_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.15448e-01_rb,0.21834e-01_rb,0.24813e-01_rb,0.26492e-01_rb,0.27230e-01_rb, &\n        & 0.27128e-01_rb,0.26103e-01_rb,0.23676e-01_rb,0.22318e-01_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.12253e-01_rb,0.18169e-01_rb,0.20712e-01_rb,0.22143e-01_rb,0.22829e-01_rb, &\n        & 0.22840e-01_rb,0.22092e-01_rb,0.20210e-01_rb,0.22350e-01_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.12752e-01_rb,0.18675e-01_rb,0.21188e-01_rb,0.22590e-01_rb,0.23242e-01_rb, &\n        & 0.23184e-01_rb,0.22356e-01_rb,0.20395e-01_rb,0.22569e-01_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.13220e-01_rb,0.19134e-01_rb,0.21627e-01_rb,0.23007e-01_rb,0.23621e-01_rb, &\n        & 0.23502e-01_rb,0.22612e-01_rb,0.20571e-01_rb,0.22750e-01_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.13675e-01_rb,0.19566e-01_rb,0.22044e-01_rb,0.23405e-01_rb,0.23969e-01_rb, &\n        & 0.23813e-01_rb,0.22875e-01_rb,0.20780e-01_rb,0.22726e-01_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.14122e-01_rb,0.19976e-01_rb,0.22454e-01_rb,0.23786e-01_rb,0.24318e-01_rb, &\n        & 0.24140e-01_rb,0.23183e-01_rb,0.21041e-01_rb,0.22784e-01_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.14776e+00_rb,0.13250e+00_rb,0.11877e+00_rb,0.11907e+00_rb,0.11538e+00_rb, &\n        & 0.11234e+00_rb,0.10926e+00_rb,0.11039e+00_rb,0.12102e+00_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.14758e+00_rb,0.13180e+00_rb,0.11760e+00_rb,0.11720e+00_rb,0.11379e+00_rb, &\n        & 0.11206e+00_rb,0.10856e+00_rb,0.11029e+00_rb,0.12093e+00_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.14691e+00_rb,0.13078e+00_rb,0.11629e+00_rb,0.11563e+00_rb,0.11248e+00_rb, &\n        & 0.11149e+00_rb,0.10785e+00_rb,0.11040e+00_rb,0.12104e+00_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.14609e+00_rb,0.12985e+00_rb,0.11503e+00_rb,0.11426e+00_rb,0.11150e+00_rb, &\n        & 0.11061e+00_rb,0.10739e+00_rb,0.11031e+00_rb,0.12092e+00_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.14529e+00_rb,0.12911e+00_rb,0.11448e+00_rb,0.11310e+00_rb,0.11058e+00_rb, &\n        & 0.10959e+00_rb,0.10721e+00_rb,0.11007e+00_rb,0.12050e+00_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.14616e+00_rb,0.13131e+00_rb,0.12350e+00_rb,0.12510e+00_rb,0.11934e+00_rb, &\n        & 0.11762e+00_rb,0.11417e+00_rb,0.11460e+00_rb,0.12626e+00_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.14607e+00_rb,0.13063e+00_rb,0.12202e+00_rb,0.12312e+00_rb,0.11789e+00_rb, &\n        & 0.11742e+00_rb,0.11363e+00_rb,0.11470e+00_rb,0.12636e+00_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.14577e+00_rb,0.12991e+00_rb,0.12074e+00_rb,0.12132e+00_rb,0.11671e+00_rb, &\n        & 0.11676e+00_rb,0.11334e+00_rb,0.11448e+00_rb,0.12602e+00_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.14549e+00_rb,0.12948e+00_rb,0.11982e+00_rb,0.11971e+00_rb,0.11561e+00_rb, &\n        & 0.11583e+00_rb,0.11311e+00_rb,0.11380e+00_rb,0.12515e+00_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.14518e+00_rb,0.12921e+00_rb,0.11930e+00_rb,0.11856e+00_rb,0.11453e+00_rb, &\n        & 0.11499e+00_rb,0.11278e+00_rb,0.11303e+00_rb,0.12425e+00_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.14318e+00_rb,0.12893e+00_rb,0.12918e+00_rb,0.12942e+00_rb,0.12491e+00_rb, &\n        & 0.12238e+00_rb,0.11842e+00_rb,0.11706e+00_rb,0.12892e+00_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.14362e+00_rb,0.12877e+00_rb,0.12794e+00_rb,0.12738e+00_rb,0.12367e+00_rb, &\n        & 0.12214e+00_rb,0.11818e+00_rb,0.11730e+00_rb,0.12892e+00_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.14392e+00_rb,0.12859e+00_rb,0.12673e+00_rb,0.12555e+00_rb,0.12238e+00_rb, &\n        & 0.12154e+00_rb,0.11804e+00_rb,0.11693e+00_rb,0.12825e+00_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.14418e+00_rb,0.12858e+00_rb,0.12588e+00_rb,0.12406e+00_rb,0.12111e+00_rb, &\n        & 0.12100e+00_rb,0.11768e+00_rb,0.11605e+00_rb,0.12723e+00_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.14433e+00_rb,0.12868e+00_rb,0.12520e+00_rb,0.12307e+00_rb,0.11981e+00_rb, &\n        & 0.12050e+00_rb,0.11702e+00_rb,0.11519e+00_rb,0.12642e+00_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.13900e+00_rb,0.12627e+00_rb,0.13262e+00_rb,0.13246e+00_rb,0.13018e+00_rb, &\n        & 0.12656e+00_rb,0.12207e+00_rb,0.11856e+00_rb,0.12927e+00_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.13981e+00_rb,0.12631e+00_rb,0.13168e+00_rb,0.13063e+00_rb,0.12928e+00_rb, &\n        & 0.12634e+00_rb,0.12180e+00_rb,0.11842e+00_rb,0.12888e+00_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.14055e+00_rb,0.12635e+00_rb,0.13064e+00_rb,0.12886e+00_rb,0.12826e+00_rb, &\n        & 0.12591e+00_rb,0.12147e+00_rb,0.11781e+00_rb,0.12798e+00_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.14115e+00_rb,0.12659e+00_rb,0.12979e+00_rb,0.12765e+00_rb,0.12712e+00_rb, &\n        & 0.12539e+00_rb,0.12094e+00_rb,0.11686e+00_rb,0.12709e+00_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.14205e+00_rb,0.12716e+00_rb,0.12897e+00_rb,0.12678e+00_rb,0.12607e+00_rb, &\n        & 0.12463e+00_rb,0.12022e+00_rb,0.11611e+00_rb,0.12648e+00_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.13267e+00_rb,0.12451e+00_rb,0.13264e+00_rb,0.13467e+00_rb,0.13410e+00_rb, &\n        & 0.12976e+00_rb,0.12532e+00_rb,0.11842e+00_rb,0.12663e+00_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.13391e+00_rb,0.12448e+00_rb,0.13222e+00_rb,0.13349e+00_rb,0.13365e+00_rb, &\n        & 0.12967e+00_rb,0.12478e+00_rb,0.11793e+00_rb,0.12610e+00_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.13513e+00_rb,0.12441e+00_rb,0.13150e+00_rb,0.13226e+00_rb,0.13285e+00_rb, &\n        & 0.12935e+00_rb,0.12414e+00_rb,0.11714e+00_rb,0.12535e+00_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.13635e+00_rb,0.12468e+00_rb,0.13071e+00_rb,0.13132e+00_rb,0.13192e+00_rb, &\n        & 0.12883e+00_rb,0.12325e+00_rb,0.11628e+00_rb,0.12465e+00_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.13765e+00_rb,0.12523e+00_rb,0.12989e+00_rb,0.13067e+00_rb,0.13104e+00_rb, &\n        & 0.12778e+00_rb,0.12230e+00_rb,0.11574e+00_rb,0.12447e+00_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.12480e+00_rb,0.12304e+00_rb,0.13086e+00_rb,0.13535e+00_rb,0.13580e+00_rb, &\n        & 0.13244e+00_rb,0.12684e+00_rb,0.11687e+00_rb,0.12150e+00_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.12631e+00_rb,0.12320e+00_rb,0.13089e+00_rb,0.13488e+00_rb,0.13591e+00_rb, &\n        & 0.13240e+00_rb,0.12644e+00_rb,0.11610e+00_rb,0.12096e+00_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.12783e+00_rb,0.12334e+00_rb,0.13031e+00_rb,0.13415e+00_rb,0.13555e+00_rb, &\n        & 0.13212e+00_rb,0.12571e+00_rb,0.11517e+00_rb,0.12033e+00_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.12946e+00_rb,0.12375e+00_rb,0.12962e+00_rb,0.13360e+00_rb,0.13480e+00_rb, &\n        & 0.13147e+00_rb,0.12458e+00_rb,0.11440e+00_rb,0.12012e+00_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.13098e+00_rb,0.12424e+00_rb,0.12926e+00_rb,0.13328e+00_rb,0.13390e+00_rb, &\n        & 0.13035e+00_rb,0.12352e+00_rb,0.11410e+00_rb,0.12034e+00_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.11587e+00_rb,0.11977e+00_rb,0.12827e+00_rb,0.13413e+00_rb,0.13637e+00_rb, &\n        & 0.13338e+00_rb,0.12607e+00_rb,0.11369e+00_rb,0.11422e+00_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.11755e+00_rb,0.12008e+00_rb,0.12851e+00_rb,0.13433e+00_rb,0.13653e+00_rb, &\n        & 0.13350e+00_rb,0.12579e+00_rb,0.11303e+00_rb,0.11384e+00_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.11925e+00_rb,0.12045e+00_rb,0.12827e+00_rb,0.13401e+00_rb,0.13627e+00_rb, &\n        & 0.13335e+00_rb,0.12531e+00_rb,0.11227e+00_rb,0.11342e+00_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.12111e+00_rb,0.12107e+00_rb,0.12798e+00_rb,0.13385e+00_rb,0.13564e+00_rb, &\n        & 0.13268e+00_rb,0.12424e+00_rb,0.11167e+00_rb,0.11355e+00_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.12285e+00_rb,0.12168e+00_rb,0.12798e+00_rb,0.13376e+00_rb,0.13482e+00_rb, &\n        & 0.13151e+00_rb,0.12334e+00_rb,0.11149e+00_rb,0.11415e+00_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.10591e+00_rb,0.11393e+00_rb,0.12456e+00_rb,0.13177e+00_rb,0.13532e+00_rb, &\n        & 0.13189e+00_rb,0.12388e+00_rb,0.10965e+00_rb,0.10563e+00_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.10784e+00_rb,0.11446e+00_rb,0.12497e+00_rb,0.13191e+00_rb,0.13527e+00_rb, &\n        & 0.13206e+00_rb,0.12372e+00_rb,0.10901e+00_rb,0.10541e+00_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.10982e+00_rb,0.11499e+00_rb,0.12496e+00_rb,0.13190e+00_rb,0.13491e+00_rb, &\n        & 0.13198e+00_rb,0.12329e+00_rb,0.10836e+00_rb,0.10528e+00_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.11183e+00_rb,0.11569e+00_rb,0.12499e+00_rb,0.13184e+00_rb,0.13435e+00_rb, &\n        & 0.13149e+00_rb,0.12252e+00_rb,0.10787e+00_rb,0.10590e+00_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.11351e+00_rb,0.11638e+00_rb,0.12535e+00_rb,0.13176e+00_rb,0.13360e+00_rb, &\n        & 0.13054e+00_rb,0.12191e+00_rb,0.10801e+00_rb,0.10661e+00_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.95227e-01_rb,0.10714e+00_rb,0.11944e+00_rb,0.12826e+00_rb,0.13131e+00_rb, &\n        & 0.12801e+00_rb,0.11973e+00_rb,0.10506e+00_rb,0.96127e-01_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.97380e-01_rb,0.10792e+00_rb,0.12010e+00_rb,0.12848e+00_rb,0.13131e+00_rb, &\n        & 0.12823e+00_rb,0.11988e+00_rb,0.10446e+00_rb,0.96013e-01_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.99589e-01_rb,0.10861e+00_rb,0.12043e+00_rb,0.12826e+00_rb,0.13099e+00_rb, &\n        & 0.12821e+00_rb,0.11964e+00_rb,0.10385e+00_rb,0.96337e-01_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.10172e+00_rb,0.10937e+00_rb,0.12073e+00_rb,0.12822e+00_rb,0.13048e+00_rb, &\n        & 0.12786e+00_rb,0.11915e+00_rb,0.10369e+00_rb,0.97324e-01_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.10340e+00_rb,0.11015e+00_rb,0.12136e+00_rb,0.12832e+00_rb,0.12998e+00_rb, &\n        & 0.12724e+00_rb,0.11892e+00_rb,0.10410e+00_rb,0.97908e-01_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.84549e-01_rb,0.10005e+00_rb,0.11370e+00_rb,0.12280e+00_rb,0.12503e+00_rb, &\n        & 0.12157e+00_rb,0.11395e+00_rb,0.99558e-01_rb,0.78463e-01_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.86895e-01_rb,0.10114e+00_rb,0.11438e+00_rb,0.12270e+00_rb,0.12494e+00_rb, &\n        & 0.12211e+00_rb,0.11447e+00_rb,0.98932e-01_rb,0.78293e-01_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.89280e-01_rb,0.10200e+00_rb,0.11501e+00_rb,0.12255e+00_rb,0.12466e+00_rb, &\n        & 0.12232e+00_rb,0.11449e+00_rb,0.98490e-01_rb,0.78963e-01_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.91373e-01_rb,0.10297e+00_rb,0.11555e+00_rb,0.12264e+00_rb,0.12433e+00_rb, &\n        & 0.12211e+00_rb,0.11429e+00_rb,0.98808e-01_rb,0.79894e-01_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.93116e-01_rb,0.10381e+00_rb,0.11616e+00_rb,0.12299e+00_rb,0.12420e+00_rb, &\n        & 0.12176e+00_rb,0.11463e+00_rb,0.99400e-01_rb,0.79228e-01_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.75544e-01_rb,0.93054e-01_rb,0.10724e+00_rb,0.11489e+00_rb,0.11666e+00_rb, &\n        & 0.11411e+00_rb,0.10739e+00_rb,0.92708e-01_rb,0.54552e-01_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.77908e-01_rb,0.94287e-01_rb,0.10808e+00_rb,0.11471e+00_rb,0.11661e+00_rb, &\n        & 0.11478e+00_rb,0.10772e+00_rb,0.92504e-01_rb,0.54848e-01_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.80077e-01_rb,0.95473e-01_rb,0.10868e+00_rb,0.11491e+00_rb,0.11655e+00_rb, &\n        & 0.11482e+00_rb,0.10782e+00_rb,0.93001e-01_rb,0.55769e-01_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.81960e-01_rb,0.96566e-01_rb,0.10943e+00_rb,0.11546e+00_rb,0.11672e+00_rb, &\n        & 0.11473e+00_rb,0.10831e+00_rb,0.93879e-01_rb,0.57926e-01_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.83450e-01_rb,0.97453e-01_rb,0.11008e+00_rb,0.11599e+00_rb,0.11716e+00_rb, &\n        & 0.11515e+00_rb,0.10911e+00_rb,0.94288e-01_rb,0.57746e-01_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.67513e-01_rb,0.86189e-01_rb,0.99369e-01_rb,0.10520e+00_rb,0.10724e+00_rb, &\n        & 0.10586e+00_rb,0.99242e-01_rb,0.85556e-01_rb,0.53156e-01_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.69613e-01_rb,0.87484e-01_rb,0.10007e+00_rb,0.10560e+00_rb,0.10749e+00_rb, &\n        & 0.10614e+00_rb,0.99761e-01_rb,0.86270e-01_rb,0.51781e-01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.71469e-01_rb,0.88722e-01_rb,0.10094e+00_rb,0.10629e+00_rb,0.10784e+00_rb, &\n        & 0.10630e+00_rb,0.10046e+00_rb,0.87349e-01_rb,0.51450e-01_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.73024e-01_rb,0.89773e-01_rb,0.10183e+00_rb,0.10713e+00_rb,0.10860e+00_rb, &\n        & 0.10686e+00_rb,0.10138e+00_rb,0.88130e-01_rb,0.52601e-01_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.74303e-01_rb,0.90696e-01_rb,0.10259e+00_rb,0.10797e+00_rb,0.10971e+00_rb, &\n        & 0.10792e+00_rb,0.10184e+00_rb,0.88445e-01_rb,0.51152e-01_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.60529e-01_rb,0.79607e-01_rb,0.90318e-01_rb,0.95428e-01_rb,0.97408e-01_rb, &\n        & 0.96227e-01_rb,0.90699e-01_rb,0.78779e-01_rb,0.52832e-01_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.62276e-01_rb,0.80870e-01_rb,0.91247e-01_rb,0.96259e-01_rb,0.97934e-01_rb, &\n        & 0.96714e-01_rb,0.91680e-01_rb,0.79941e-01_rb,0.52303e-01_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.63790e-01_rb,0.81933e-01_rb,0.92274e-01_rb,0.97270e-01_rb,0.98880e-01_rb, &\n        & 0.97553e-01_rb,0.92636e-01_rb,0.80918e-01_rb,0.51576e-01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.65028e-01_rb,0.82921e-01_rb,0.93287e-01_rb,0.98387e-01_rb,0.10023e+00_rb, &\n        & 0.98785e-01_rb,0.93367e-01_rb,0.81491e-01_rb,0.53387e-01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.66150e-01_rb,0.83739e-01_rb,0.94354e-01_rb,0.99696e-01_rb,0.10169e+00_rb, &\n        & 0.99901e-01_rb,0.93863e-01_rb,0.81907e-01_rb,0.52837e-01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.20407e+00_rb,0.18071e+00_rb,0.16029e+00_rb,0.15138e+00_rb,0.14997e+00_rb, &\n        & 0.13984e+00_rb,0.13275e+00_rb,0.14129e+00_rb,0.15399e+00_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.20135e+00_rb,0.17935e+00_rb,0.15932e+00_rb,0.15017e+00_rb,0.14962e+00_rb, &\n        & 0.13862e+00_rb,0.13266e+00_rb,0.14117e+00_rb,0.15393e+00_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.19936e+00_rb,0.17801e+00_rb,0.15787e+00_rb,0.14825e+00_rb,0.14805e+00_rb, &\n        & 0.13791e+00_rb,0.13257e+00_rb,0.14065e+00_rb,0.15357e+00_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.19744e+00_rb,0.17636e+00_rb,0.15587e+00_rb,0.14600e+00_rb,0.14568e+00_rb, &\n        & 0.13759e+00_rb,0.13216e+00_rb,0.14003e+00_rb,0.15311e+00_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.19560e+00_rb,0.17445e+00_rb,0.15370e+00_rb,0.14366e+00_rb,0.14353e+00_rb, &\n        & 0.13719e+00_rb,0.13142e+00_rb,0.13943e+00_rb,0.15271e+00_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.21063e+00_rb,0.18653e+00_rb,0.16583e+00_rb,0.16261e+00_rb,0.15745e+00_rb, &\n        & 0.14703e+00_rb,0.14143e+00_rb,0.14831e+00_rb,0.16307e+00_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.20807e+00_rb,0.18515e+00_rb,0.16450e+00_rb,0.16174e+00_rb,0.15680e+00_rb, &\n        & 0.14604e+00_rb,0.14115e+00_rb,0.14798e+00_rb,0.16304e+00_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.20581e+00_rb,0.18338e+00_rb,0.16244e+00_rb,0.15978e+00_rb,0.15520e+00_rb, &\n        & 0.14566e+00_rb,0.14067e+00_rb,0.14768e+00_rb,0.16312e+00_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.20347e+00_rb,0.18119e+00_rb,0.16010e+00_rb,0.15745e+00_rb,0.15333e+00_rb, &\n        & 0.14529e+00_rb,0.14007e+00_rb,0.14753e+00_rb,0.16343e+00_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.20115e+00_rb,0.17885e+00_rb,0.15773e+00_rb,0.15483e+00_rb,0.15150e+00_rb, &\n        & 0.14453e+00_rb,0.13948e+00_rb,0.14731e+00_rb,0.16359e+00_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.21616e+00_rb,0.19157e+00_rb,0.17353e+00_rb,0.17142e+00_rb,0.16301e+00_rb, &\n        & 0.15566e+00_rb,0.14998e+00_rb,0.15514e+00_rb,0.17145e+00_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.21408e+00_rb,0.19026e+00_rb,0.17182e+00_rb,0.17122e+00_rb,0.16252e+00_rb, &\n        & 0.15476e+00_rb,0.14939e+00_rb,0.15448e+00_rb,0.17139e+00_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.21163e+00_rb,0.18824e+00_rb,0.16950e+00_rb,0.16996e+00_rb,0.16151e+00_rb, &\n        & 0.15419e+00_rb,0.14882e+00_rb,0.15406e+00_rb,0.17163e+00_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.20914e+00_rb,0.18593e+00_rb,0.16692e+00_rb,0.16757e+00_rb,0.16029e+00_rb, &\n        & 0.15344e+00_rb,0.14837e+00_rb,0.15392e+00_rb,0.17198e+00_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.20701e+00_rb,0.18381e+00_rb,0.16453e+00_rb,0.16472e+00_rb,0.15897e+00_rb, &\n        & 0.15236e+00_rb,0.14801e+00_rb,0.15351e+00_rb,0.17179e+00_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.21862e+00_rb,0.19379e+00_rb,0.18221e+00_rb,0.17807e+00_rb,0.16954e+00_rb, &\n        & 0.16407e+00_rb,0.15829e+00_rb,0.16056e+00_rb,0.17755e+00_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.21705e+00_rb,0.19285e+00_rb,0.18086e+00_rb,0.17812e+00_rb,0.16909e+00_rb, &\n        & 0.16313e+00_rb,0.15767e+00_rb,0.16003e+00_rb,0.17784e+00_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.21534e+00_rb,0.19129e+00_rb,0.17879e+00_rb,0.17719e+00_rb,0.16821e+00_rb, &\n        & 0.16252e+00_rb,0.15706e+00_rb,0.15944e+00_rb,0.17796e+00_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.21357e+00_rb,0.18961e+00_rb,0.17644e+00_rb,0.17503e+00_rb,0.16720e+00_rb, &\n        & 0.16179e+00_rb,0.15644e+00_rb,0.15869e+00_rb,0.17755e+00_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.21192e+00_rb,0.18796e+00_rb,0.17436e+00_rb,0.17237e+00_rb,0.16599e+00_rb, &\n        & 0.16096e+00_rb,0.15564e+00_rb,0.15746e+00_rb,0.17656e+00_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.21793e+00_rb,0.19325e+00_rb,0.18965e+00_rb,0.18402e+00_rb,0.17692e+00_rb, &\n        & 0.17250e+00_rb,0.16494e+00_rb,0.16474e+00_rb,0.18189e+00_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.21706e+00_rb,0.19287e+00_rb,0.18835e+00_rb,0.18355e+00_rb,0.17627e+00_rb, &\n        & 0.17161e+00_rb,0.16474e+00_rb,0.16398e+00_rb,0.18195e+00_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.21612e+00_rb,0.19181e+00_rb,0.18687e+00_rb,0.18213e+00_rb,0.17553e+00_rb, &\n        & 0.17088e+00_rb,0.16425e+00_rb,0.16313e+00_rb,0.18152e+00_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.21478e+00_rb,0.19045e+00_rb,0.18500e+00_rb,0.18018e+00_rb,0.17440e+00_rb, &\n        & 0.16996e+00_rb,0.16342e+00_rb,0.16188e+00_rb,0.18054e+00_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.21350e+00_rb,0.18909e+00_rb,0.18333e+00_rb,0.17782e+00_rb,0.17309e+00_rb, &\n        & 0.16916e+00_rb,0.16213e+00_rb,0.16034e+00_rb,0.17917e+00_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.21342e+00_rb,0.19093e+00_rb,0.19390e+00_rb,0.18953e+00_rb,0.18412e+00_rb, &\n        & 0.17932e+00_rb,0.17133e+00_rb,0.16726e+00_rb,0.18355e+00_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.21345e+00_rb,0.19062e+00_rb,0.19295e+00_rb,0.18836e+00_rb,0.18309e+00_rb, &\n        & 0.17848e+00_rb,0.17069e+00_rb,0.16650e+00_rb,0.18323e+00_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.21341e+00_rb,0.18999e+00_rb,0.19180e+00_rb,0.18672e+00_rb,0.18231e+00_rb, &\n        & 0.17805e+00_rb,0.16996e+00_rb,0.16523e+00_rb,0.18230e+00_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.21278e+00_rb,0.18888e+00_rb,0.19035e+00_rb,0.18488e+00_rb,0.18150e+00_rb, &\n        & 0.17740e+00_rb,0.16888e+00_rb,0.16361e+00_rb,0.18086e+00_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.21199e+00_rb,0.18788e+00_rb,0.18853e+00_rb,0.18312e+00_rb,0.18053e+00_rb, &\n        & 0.17647e+00_rb,0.16753e+00_rb,0.16185e+00_rb,0.17942e+00_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.20554e+00_rb,0.18880e+00_rb,0.19483e+00_rb,0.19351e+00_rb,0.18975e+00_rb, &\n        & 0.18476e+00_rb,0.17703e+00_rb,0.16712e+00_rb,0.18079e+00_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.20652e+00_rb,0.18855e+00_rb,0.19393e+00_rb,0.19243e+00_rb,0.18938e+00_rb, &\n        & 0.18427e+00_rb,0.17598e+00_rb,0.16627e+00_rb,0.18028e+00_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.20722e+00_rb,0.18798e+00_rb,0.19279e+00_rb,0.19112e+00_rb,0.18883e+00_rb, &\n        & 0.18376e+00_rb,0.17458e+00_rb,0.16493e+00_rb,0.17920e+00_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.20704e+00_rb,0.18700e+00_rb,0.19152e+00_rb,0.18972e+00_rb,0.18818e+00_rb, &\n        & 0.18325e+00_rb,0.17326e+00_rb,0.16331e+00_rb,0.17789e+00_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.20670e+00_rb,0.18595e+00_rb,0.18990e+00_rb,0.18822e+00_rb,0.18756e+00_rb, &\n        & 0.18244e+00_rb,0.17179e+00_rb,0.16146e+00_rb,0.17654e+00_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.19482e+00_rb,0.18644e+00_rb,0.19372e+00_rb,0.19534e+00_rb,0.19341e+00_rb, &\n        & 0.18978e+00_rb,0.17991e+00_rb,0.16480e+00_rb,0.17385e+00_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.19645e+00_rb,0.18662e+00_rb,0.19286e+00_rb,0.19499e+00_rb,0.19364e+00_rb, &\n        & 0.18939e+00_rb,0.17872e+00_rb,0.16377e+00_rb,0.17323e+00_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.19752e+00_rb,0.18632e+00_rb,0.19176e+00_rb,0.19416e+00_rb,0.19361e+00_rb, &\n        & 0.18898e+00_rb,0.17730e+00_rb,0.16248e+00_rb,0.17231e+00_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.19786e+00_rb,0.18535e+00_rb,0.19058e+00_rb,0.19340e+00_rb,0.19352e+00_rb, &\n        & 0.18844e+00_rb,0.17582e+00_rb,0.16092e+00_rb,0.17110e+00_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.19827e+00_rb,0.18472e+00_rb,0.18922e+00_rb,0.19254e+00_rb,0.19302e+00_rb, &\n        & 0.18739e+00_rb,0.17431e+00_rb,0.15936e+00_rb,0.17034e+00_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.18199e+00_rb,0.18200e+00_rb,0.19084e+00_rb,0.19456e+00_rb,0.19545e+00_rb, &\n        & 0.19216e+00_rb,0.18018e+00_rb,0.16033e+00_rb,0.16333e+00_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.18402e+00_rb,0.18227e+00_rb,0.19032e+00_rb,0.19515e+00_rb,0.19643e+00_rb, &\n        & 0.19212e+00_rb,0.17883e+00_rb,0.15954e+00_rb,0.16306e+00_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.18527e+00_rb,0.18204e+00_rb,0.18956e+00_rb,0.19541e+00_rb,0.19690e+00_rb, &\n        & 0.19201e+00_rb,0.17754e+00_rb,0.15865e+00_rb,0.16240e+00_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.18597e+00_rb,0.18146e+00_rb,0.18866e+00_rb,0.19510e+00_rb,0.19689e+00_rb, &\n        & 0.19145e+00_rb,0.17626e+00_rb,0.15729e+00_rb,0.16157e+00_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.18701e+00_rb,0.18150e+00_rb,0.18776e+00_rb,0.19449e+00_rb,0.19637e+00_rb, &\n        & 0.19035e+00_rb,0.17490e+00_rb,0.15605e+00_rb,0.16154e+00_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.16786e+00_rb,0.17459e+00_rb,0.18572e+00_rb,0.19196e+00_rb,0.19497e+00_rb, &\n        & 0.19093e+00_rb,0.17775e+00_rb,0.15445e+00_rb,0.12845e+00_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.16990e+00_rb,0.17470e+00_rb,0.18604e+00_rb,0.19354e+00_rb,0.19670e+00_rb, &\n        & 0.19124e+00_rb,0.17643e+00_rb,0.15415e+00_rb,0.12953e+00_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.17115e+00_rb,0.17447e+00_rb,0.18577e+00_rb,0.19420e+00_rb,0.19734e+00_rb, &\n        & 0.19133e+00_rb,0.17544e+00_rb,0.15343e+00_rb,0.13019e+00_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.17256e+00_rb,0.17421e+00_rb,0.18540e+00_rb,0.19426e+00_rb,0.19741e+00_rb, &\n        & 0.19105e+00_rb,0.17463e+00_rb,0.15245e+00_rb,0.13135e+00_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.17411e+00_rb,0.17469e+00_rb,0.18532e+00_rb,0.19400e+00_rb,0.19690e+00_rb, &\n        & 0.19024e+00_rb,0.17373e+00_rb,0.15177e+00_rb,0.13443e+00_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.15326e+00_rb,0.16530e+00_rb,0.17933e+00_rb,0.18873e+00_rb,0.19204e+00_rb, &\n        & 0.18645e+00_rb,0.17157e+00_rb,0.14842e+00_rb,0.10906e+00_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.15510e+00_rb,0.16508e+00_rb,0.18002e+00_rb,0.19054e+00_rb,0.19337e+00_rb, &\n        & 0.18697e+00_rb,0.17132e+00_rb,0.14823e+00_rb,0.10821e+00_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.15695e+00_rb,0.16517e+00_rb,0.18033e+00_rb,0.19125e+00_rb,0.19395e+00_rb, &\n        & 0.18719e+00_rb,0.17114e+00_rb,0.14748e+00_rb,0.10735e+00_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.15884e+00_rb,0.16584e+00_rb,0.18066e+00_rb,0.19107e+00_rb,0.19386e+00_rb, &\n        & 0.18714e+00_rb,0.17083e+00_rb,0.14679e+00_rb,0.10767e+00_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.16065e+00_rb,0.16693e+00_rb,0.18136e+00_rb,0.19090e+00_rb,0.19313e+00_rb, &\n        & 0.18652e+00_rb,0.17043e+00_rb,0.14693e+00_rb,0.10852e+00_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.13812e+00_rb,0.15482e+00_rb,0.17200e+00_rb,0.18322e+00_rb,0.18516e+00_rb, &\n        & 0.17855e+00_rb,0.16404e+00_rb,0.14149e+00_rb,0.85521e-01_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.14024e+00_rb,0.15523e+00_rb,0.17295e+00_rb,0.18464e+00_rb,0.18616e+00_rb, &\n        & 0.17947e+00_rb,0.16474e+00_rb,0.14107e+00_rb,0.84251e-01_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.14232e+00_rb,0.15625e+00_rb,0.17374e+00_rb,0.18482e+00_rb,0.18666e+00_rb, &\n        & 0.18015e+00_rb,0.16507e+00_rb,0.14067e+00_rb,0.83221e-01_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.14452e+00_rb,0.15760e+00_rb,0.17483e+00_rb,0.18482e+00_rb,0.18644e+00_rb, &\n        & 0.18031e+00_rb,0.16530e+00_rb,0.14085e+00_rb,0.83052e-01_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.14659e+00_rb,0.15898e+00_rb,0.17608e+00_rb,0.18496e+00_rb,0.18608e+00_rb, &\n        & 0.18007e+00_rb,0.16596e+00_rb,0.14156e+00_rb,0.86150e-01_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.12335e+00_rb,0.14397e+00_rb,0.16332e+00_rb,0.17403e+00_rb,0.17485e+00_rb, &\n        & 0.16858e+00_rb,0.15532e+00_rb,0.13315e+00_rb,0.86982e-01_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.12553e+00_rb,0.14531e+00_rb,0.16473e+00_rb,0.17477e+00_rb,0.17593e+00_rb, &\n        & 0.16998e+00_rb,0.15639e+00_rb,0.13322e+00_rb,0.83311e-01_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.12788e+00_rb,0.14705e+00_rb,0.16612e+00_rb,0.17511e+00_rb,0.17644e+00_rb, &\n        & 0.17090e+00_rb,0.15730e+00_rb,0.13374e+00_rb,0.80969e-01_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.13027e+00_rb,0.14889e+00_rb,0.16746e+00_rb,0.17569e+00_rb,0.17660e+00_rb, &\n        & 0.17136e+00_rb,0.15852e+00_rb,0.13468e+00_rb,0.79671e-01_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.13255e+00_rb,0.15069e+00_rb,0.16867e+00_rb,0.17661e+00_rb,0.17696e+00_rb, &\n        & 0.17204e+00_rb,0.15992e+00_rb,0.13520e+00_rb,0.81334e-01_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.28721e+00_rb,0.25323e+00_rb,0.21917e+00_rb,0.19050e+00_rb,0.18439e+00_rb, &\n        & 0.17842e+00_rb,0.17156e+00_rb,0.18245e+00_rb,0.20075e+00_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.28561e+00_rb,0.25177e+00_rb,0.21845e+00_rb,0.19052e+00_rb,0.18309e+00_rb, &\n        & 0.17638e+00_rb,0.16966e+00_rb,0.18096e+00_rb,0.19965e+00_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.28230e+00_rb,0.24910e+00_rb,0.21697e+00_rb,0.19014e+00_rb,0.18233e+00_rb, &\n        & 0.17414e+00_rb,0.16821e+00_rb,0.18034e+00_rb,0.19910e+00_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.27834e+00_rb,0.24592e+00_rb,0.21540e+00_rb,0.18935e+00_rb,0.18163e+00_rb, &\n        & 0.17186e+00_rb,0.16739e+00_rb,0.18033e+00_rb,0.19922e+00_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.27434e+00_rb,0.24303e+00_rb,0.21391e+00_rb,0.18803e+00_rb,0.18019e+00_rb, &\n        & 0.17025e+00_rb,0.16693e+00_rb,0.18042e+00_rb,0.19937e+00_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.29623e+00_rb,0.26097e+00_rb,0.22609e+00_rb,0.20293e+00_rb,0.20182e+00_rb, &\n        & 0.19085e+00_rb,0.18240e+00_rb,0.19397e+00_rb,0.21604e+00_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.29432e+00_rb,0.25931e+00_rb,0.22539e+00_rb,0.20142e+00_rb,0.20026e+00_rb, &\n        & 0.18828e+00_rb,0.18057e+00_rb,0.19299e+00_rb,0.21521e+00_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.29132e+00_rb,0.25712e+00_rb,0.22457e+00_rb,0.20070e+00_rb,0.19917e+00_rb, &\n        & 0.18573e+00_rb,0.17946e+00_rb,0.19254e+00_rb,0.21482e+00_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.28797e+00_rb,0.25474e+00_rb,0.22345e+00_rb,0.19986e+00_rb,0.19780e+00_rb, &\n        & 0.18370e+00_rb,0.17875e+00_rb,0.19238e+00_rb,0.21459e+00_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.28466e+00_rb,0.25242e+00_rb,0.22205e+00_rb,0.19838e+00_rb,0.19562e+00_rb, &\n        & 0.18242e+00_rb,0.17806e+00_rb,0.19203e+00_rb,0.21421e+00_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.30561e+00_rb,0.26889e+00_rb,0.23295e+00_rb,0.21956e+00_rb,0.21717e+00_rb, &\n        & 0.20307e+00_rb,0.19524e+00_rb,0.20742e+00_rb,0.23388e+00_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.30324e+00_rb,0.26704e+00_rb,0.23237e+00_rb,0.21738e+00_rb,0.21493e+00_rb, &\n        & 0.20036e+00_rb,0.19375e+00_rb,0.20659e+00_rb,0.23304e+00_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.30058e+00_rb,0.26531e+00_rb,0.23190e+00_rb,0.21598e+00_rb,0.21300e+00_rb, &\n        & 0.19790e+00_rb,0.19244e+00_rb,0.20627e+00_rb,0.23259e+00_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.29826e+00_rb,0.26386e+00_rb,0.23125e+00_rb,0.21516e+00_rb,0.21099e+00_rb, &\n        & 0.19626e+00_rb,0.19135e+00_rb,0.20570e+00_rb,0.23176e+00_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.29569e+00_rb,0.26204e+00_rb,0.22972e+00_rb,0.21357e+00_rb,0.20846e+00_rb, &\n        & 0.19500e+00_rb,0.19003e+00_rb,0.20504e+00_rb,0.23084e+00_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.31580e+00_rb,0.27765e+00_rb,0.24256e+00_rb,0.23825e+00_rb,0.23010e+00_rb, &\n        & 0.21605e+00_rb,0.20908e+00_rb,0.22073e+00_rb,0.25027e+00_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.31385e+00_rb,0.27619e+00_rb,0.24143e+00_rb,0.23561e+00_rb,0.22732e+00_rb, &\n        & 0.21355e+00_rb,0.20732e+00_rb,0.21997e+00_rb,0.24945e+00_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.31115e+00_rb,0.27450e+00_rb,0.24049e+00_rb,0.23383e+00_rb,0.22480e+00_rb, &\n        & 0.21136e+00_rb,0.20583e+00_rb,0.21971e+00_rb,0.24898e+00_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.30851e+00_rb,0.27268e+00_rb,0.23896e+00_rb,0.23220e+00_rb,0.22243e+00_rb, &\n        & 0.20992e+00_rb,0.20459e+00_rb,0.21945e+00_rb,0.24850e+00_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.30578e+00_rb,0.27071e+00_rb,0.23717e+00_rb,0.23033e+00_rb,0.22018e+00_rb, &\n        & 0.20870e+00_rb,0.20353e+00_rb,0.21927e+00_rb,0.24814e+00_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.32525e+00_rb,0.28587e+00_rb,0.25583e+00_rb,0.25377e+00_rb,0.24260e+00_rb, &\n        & 0.22945e+00_rb,0.22249e+00_rb,0.23280e+00_rb,0.26422e+00_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.32339e+00_rb,0.28450e+00_rb,0.25406e+00_rb,0.25143e+00_rb,0.23950e+00_rb, &\n        & 0.22738e+00_rb,0.22044e+00_rb,0.23211e+00_rb,0.26348e+00_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.32075e+00_rb,0.28298e+00_rb,0.25200e+00_rb,0.24974e+00_rb,0.23665e+00_rb, &\n        & 0.22565e+00_rb,0.21882e+00_rb,0.23178e+00_rb,0.26317e+00_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.31838e+00_rb,0.28134e+00_rb,0.24992e+00_rb,0.24807e+00_rb,0.23442e+00_rb, &\n        & 0.22435e+00_rb,0.21780e+00_rb,0.23180e+00_rb,0.26307e+00_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.31581e+00_rb,0.27952e+00_rb,0.24774e+00_rb,0.24618e+00_rb,0.23239e+00_rb, &\n        & 0.22315e+00_rb,0.21723e+00_rb,0.23168e+00_rb,0.26269e+00_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.33335e+00_rb,0.29286e+00_rb,0.27107e+00_rb,0.26707e+00_rb,0.25627e+00_rb, &\n        & 0.24388e+00_rb,0.23516e+00_rb,0.24254e+00_rb,0.27495e+00_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.33185e+00_rb,0.29196e+00_rb,0.26927e+00_rb,0.26528e+00_rb,0.25338e+00_rb, &\n        & 0.24199e+00_rb,0.23321e+00_rb,0.24178e+00_rb,0.27452e+00_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.32960e+00_rb,0.29070e+00_rb,0.26757e+00_rb,0.26387e+00_rb,0.25062e+00_rb, &\n        & 0.24015e+00_rb,0.23158e+00_rb,0.24188e+00_rb,0.27485e+00_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.32714e+00_rb,0.28920e+00_rb,0.26543e+00_rb,0.26229e+00_rb,0.24828e+00_rb, &\n        & 0.23863e+00_rb,0.23085e+00_rb,0.24191e+00_rb,0.27476e+00_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.32443e+00_rb,0.28722e+00_rb,0.26300e+00_rb,0.25993e+00_rb,0.24627e+00_rb, &\n        & 0.23716e+00_rb,0.23011e+00_rb,0.24150e+00_rb,0.27410e+00_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.33805e+00_rb,0.29686e+00_rb,0.28577e+00_rb,0.27897e+00_rb,0.26998e+00_rb, &\n        & 0.25892e+00_rb,0.24589e+00_rb,0.25046e+00_rb,0.28292e+00_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.33717e+00_rb,0.29673e+00_rb,0.28505e+00_rb,0.27748e+00_rb,0.26727e+00_rb, &\n        & 0.25668e+00_rb,0.24439e+00_rb,0.24991e+00_rb,0.28315e+00_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.33582e+00_rb,0.29639e+00_rb,0.28414e+00_rb,0.27664e+00_rb,0.26503e+00_rb, &\n        & 0.25454e+00_rb,0.24355e+00_rb,0.24982e+00_rb,0.28339e+00_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.33418e+00_rb,0.29565e+00_rb,0.28243e+00_rb,0.27502e+00_rb,0.26319e+00_rb, &\n        & 0.25262e+00_rb,0.24314e+00_rb,0.24937e+00_rb,0.28297e+00_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.33223e+00_rb,0.29432e+00_rb,0.28036e+00_rb,0.27276e+00_rb,0.26126e+00_rb, &\n        & 0.25114e+00_rb,0.24223e+00_rb,0.24874e+00_rb,0.28224e+00_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.33811e+00_rb,0.29881e+00_rb,0.29770e+00_rb,0.29087e+00_rb,0.28271e+00_rb, &\n        & 0.27088e+00_rb,0.25606e+00_rb,0.25702e+00_rb,0.28869e+00_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.33858e+00_rb,0.29933e+00_rb,0.29817e+00_rb,0.28968e+00_rb,0.28063e+00_rb, &\n        & 0.26913e+00_rb,0.25508e+00_rb,0.25647e+00_rb,0.28886e+00_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.33853e+00_rb,0.29979e+00_rb,0.29803e+00_rb,0.28900e+00_rb,0.27895e+00_rb, &\n        & 0.26698e+00_rb,0.25454e+00_rb,0.25561e+00_rb,0.28857e+00_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.33786e+00_rb,0.29958e+00_rb,0.29705e+00_rb,0.28721e+00_rb,0.27754e+00_rb, &\n        & 0.26522e+00_rb,0.25386e+00_rb,0.25480e+00_rb,0.28812e+00_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.33672e+00_rb,0.29874e+00_rb,0.29538e+00_rb,0.28492e+00_rb,0.27593e+00_rb, &\n        & 0.26422e+00_rb,0.25288e+00_rb,0.25337e+00_rb,0.28657e+00_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.33304e+00_rb,0.29965e+00_rb,0.30451e+00_rb,0.30108e+00_rb,0.29380e+00_rb, &\n        & 0.28100e+00_rb,0.26620e+00_rb,0.26062e+00_rb,0.28923e+00_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.33493e+00_rb,0.30099e+00_rb,0.30590e+00_rb,0.30051e+00_rb,0.29241e+00_rb, &\n        & 0.27971e+00_rb,0.26553e+00_rb,0.25927e+00_rb,0.28890e+00_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.33639e+00_rb,0.30210e+00_rb,0.30672e+00_rb,0.29976e+00_rb,0.29135e+00_rb, &\n        & 0.27789e+00_rb,0.26459e+00_rb,0.25779e+00_rb,0.28847e+00_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.33691e+00_rb,0.30238e+00_rb,0.30636e+00_rb,0.29831e+00_rb,0.29055e+00_rb, &\n        & 0.27684e+00_rb,0.26372e+00_rb,0.25629e+00_rb,0.28756e+00_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.33680e+00_rb,0.30184e+00_rb,0.30474e+00_rb,0.29664e+00_rb,0.28906e+00_rb, &\n        & 0.27593e+00_rb,0.26250e+00_rb,0.25436e+00_rb,0.28576e+00_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.32265e+00_rb,0.29931e+00_rb,0.30809e+00_rb,0.30788e+00_rb,0.30155e+00_rb, &\n        & 0.29032e+00_rb,0.27398e+00_rb,0.25958e+00_rb,0.28232e+00_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.32643e+00_rb,0.30217e+00_rb,0.30992e+00_rb,0.30804e+00_rb,0.30109e+00_rb, &\n        & 0.28947e+00_rb,0.27364e+00_rb,0.25761e+00_rb,0.28165e+00_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.32903e+00_rb,0.30409e+00_rb,0.31077e+00_rb,0.30846e+00_rb,0.30095e+00_rb, &\n        & 0.28833e+00_rb,0.27259e+00_rb,0.25601e+00_rb,0.28124e+00_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.33021e+00_rb,0.30472e+00_rb,0.31062e+00_rb,0.30777e+00_rb,0.30050e+00_rb, &\n        & 0.28725e+00_rb,0.27132e+00_rb,0.25418e+00_rb,0.28034e+00_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.33035e+00_rb,0.30379e+00_rb,0.30948e+00_rb,0.30647e+00_rb,0.29984e+00_rb, &\n        & 0.28648e+00_rb,0.26959e+00_rb,0.25216e+00_rb,0.27891e+00_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.31092e+00_rb,0.29828e+00_rb,0.30944e+00_rb,0.31067e+00_rb,0.30618e+00_rb, &\n        & 0.29698e+00_rb,0.27822e+00_rb,0.25367e+00_rb,0.20521e+00_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.31508e+00_rb,0.30179e+00_rb,0.31084e+00_rb,0.31247e+00_rb,0.30712e+00_rb, &\n        & 0.29665e+00_rb,0.27717e+00_rb,0.25137e+00_rb,0.20791e+00_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.31745e+00_rb,0.30351e+00_rb,0.31148e+00_rb,0.31329e+00_rb,0.30764e+00_rb, &\n        & 0.29592e+00_rb,0.27601e+00_rb,0.24946e+00_rb,0.21041e+00_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.31864e+00_rb,0.30345e+00_rb,0.31137e+00_rb,0.31328e+00_rb,0.30818e+00_rb, &\n        & 0.29525e+00_rb,0.27444e+00_rb,0.24795e+00_rb,0.21312e+00_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.31936e+00_rb,0.30268e+00_rb,0.31034e+00_rb,0.31260e+00_rb,0.30827e+00_rb, &\n        & 0.29465e+00_rb,0.27259e+00_rb,0.24615e+00_rb,0.21621e+00_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.29534e+00_rb,0.29381e+00_rb,0.30706e+00_rb,0.31081e+00_rb,0.30893e+00_rb, &\n        & 0.29961e+00_rb,0.27811e+00_rb,0.24533e+00_rb,0.16496e+00_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.29914e+00_rb,0.29664e+00_rb,0.30890e+00_rb,0.31347e+00_rb,0.31102e+00_rb, &\n        & 0.29958e+00_rb,0.27683e+00_rb,0.24361e+00_rb,0.16812e+00_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.30164e+00_rb,0.29790e+00_rb,0.30986e+00_rb,0.31529e+00_rb,0.31277e+00_rb, &\n        & 0.29960e+00_rb,0.27547e+00_rb,0.24230e+00_rb,0.17163e+00_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.30318e+00_rb,0.29799e+00_rb,0.30963e+00_rb,0.31596e+00_rb,0.31358e+00_rb, &\n        & 0.29964e+00_rb,0.27410e+00_rb,0.24090e+00_rb,0.17207e+00_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.30462e+00_rb,0.29774e+00_rb,0.30883e+00_rb,0.31580e+00_rb,0.31382e+00_rb, &\n        & 0.29942e+00_rb,0.27289e+00_rb,0.23940e+00_rb,0.17248e+00_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.27646e+00_rb,0.28482e+00_rb,0.30092e+00_rb,0.30845e+00_rb,0.30839e+00_rb, &\n        & 0.29721e+00_rb,0.27391e+00_rb,0.23566e+00_rb,0.13145e+00_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.28013e+00_rb,0.28703e+00_rb,0.30330e+00_rb,0.31210e+00_rb,0.31152e+00_rb, &\n        & 0.29799e+00_rb,0.27265e+00_rb,0.23501e+00_rb,0.13680e+00_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.28251e+00_rb,0.28781e+00_rb,0.30455e+00_rb,0.31430e+00_rb,0.31342e+00_rb, &\n        & 0.29883e+00_rb,0.27192e+00_rb,0.23420e+00_rb,0.14031e+00_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.28473e+00_rb,0.28806e+00_rb,0.30532e+00_rb,0.31558e+00_rb,0.31478e+00_rb, &\n        & 0.29964e+00_rb,0.27140e+00_rb,0.23324e+00_rb,0.14138e+00_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.28731e+00_rb,0.28885e+00_rb,0.30563e+00_rb,0.31603e+00_rb,0.31529e+00_rb, &\n        & 0.30003e+00_rb,0.27073e+00_rb,0.23300e+00_rb,0.14291e+00_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.39331e+00_rb,0.34536e+00_rb,0.29823e+00_rb,0.25200e+00_rb,0.22257e+00_rb, &\n        & 0.22153e+00_rb,0.23263e+00_rb,0.25940e+00_rb,0.28372e+00_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.38484e+00_rb,0.33824e+00_rb,0.29242e+00_rb,0.24772e+00_rb,0.21768e+00_rb, &\n        & 0.21972e+00_rb,0.23098e+00_rb,0.25833e+00_rb,0.28173e+00_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.37910e+00_rb,0.33360e+00_rb,0.28884e+00_rb,0.24475e+00_rb,0.21421e+00_rb, &\n        & 0.21744e+00_rb,0.22823e+00_rb,0.25633e+00_rb,0.27932e+00_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.37406e+00_rb,0.32956e+00_rb,0.28576e+00_rb,0.24212e+00_rb,0.21151e+00_rb, &\n        & 0.21463e+00_rb,0.22480e+00_rb,0.25354e+00_rb,0.27637e+00_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.36968e+00_rb,0.32602e+00_rb,0.28272e+00_rb,0.24026e+00_rb,0.20970e+00_rb, &\n        & 0.21134e+00_rb,0.22163e+00_rb,0.25081e+00_rb,0.27385e+00_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.41602e+00_rb,0.36529e+00_rb,0.31527e+00_rb,0.26672e+00_rb,0.24637e+00_rb, &\n        & 0.24718e+00_rb,0.25604e+00_rb,0.28585e+00_rb,0.31850e+00_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.40830e+00_rb,0.35891e+00_rb,0.31022e+00_rb,0.26338e+00_rb,0.24193e+00_rb, &\n        & 0.24484e+00_rb,0.25382e+00_rb,0.28396e+00_rb,0.31574e+00_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.40220e+00_rb,0.35391e+00_rb,0.30635e+00_rb,0.26042e+00_rb,0.23856e+00_rb, &\n        & 0.24224e+00_rb,0.25030e+00_rb,0.28140e+00_rb,0.31256e+00_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.39708e+00_rb,0.34976e+00_rb,0.30310e+00_rb,0.25764e+00_rb,0.23590e+00_rb, &\n        & 0.23895e+00_rb,0.24655e+00_rb,0.27840e+00_rb,0.30929e+00_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.39199e+00_rb,0.34559e+00_rb,0.29962e+00_rb,0.25559e+00_rb,0.23369e+00_rb, &\n        & 0.23517e+00_rb,0.24316e+00_rb,0.27577e+00_rb,0.30660e+00_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.43911e+00_rb,0.38551e+00_rb,0.33254e+00_rb,0.28548e+00_rb,0.27501e+00_rb, &\n        & 0.27158e+00_rb,0.27806e+00_rb,0.30961e+00_rb,0.34942e+00_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.43165e+00_rb,0.37930e+00_rb,0.32763e+00_rb,0.28158e+00_rb,0.27135e+00_rb, &\n        & 0.26881e+00_rb,0.27489e+00_rb,0.30725e+00_rb,0.34620e+00_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.42551e+00_rb,0.37419e+00_rb,0.32362e+00_rb,0.27772e+00_rb,0.26799e+00_rb, &\n        & 0.26571e+00_rb,0.27096e+00_rb,0.30422e+00_rb,0.34240e+00_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.42038e+00_rb,0.37000e+00_rb,0.32049e+00_rb,0.27494e+00_rb,0.26498e+00_rb, &\n        & 0.26183e+00_rb,0.26698e+00_rb,0.30136e+00_rb,0.33931e+00_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.41446e+00_rb,0.36533e+00_rb,0.31734e+00_rb,0.27304e+00_rb,0.26234e+00_rb, &\n        & 0.25777e+00_rb,0.26380e+00_rb,0.29913e+00_rb,0.33705e+00_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.46241e+00_rb,0.40571e+00_rb,0.34961e+00_rb,0.30954e+00_rb,0.30425e+00_rb, &\n        & 0.29507e+00_rb,0.29890e+00_rb,0.33301e+00_rb,0.37827e+00_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.45465e+00_rb,0.39923e+00_rb,0.34450e+00_rb,0.30510e+00_rb,0.30124e+00_rb, &\n        & 0.29145e+00_rb,0.29516e+00_rb,0.32984e+00_rb,0.37410e+00_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.44872e+00_rb,0.39432e+00_rb,0.34072e+00_rb,0.30104e+00_rb,0.29841e+00_rb, &\n        & 0.28758e+00_rb,0.29090e+00_rb,0.32641e+00_rb,0.36986e+00_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.44350e+00_rb,0.39014e+00_rb,0.33810e+00_rb,0.29814e+00_rb,0.29548e+00_rb, &\n        & 0.28294e+00_rb,0.28676e+00_rb,0.32342e+00_rb,0.36667e+00_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.43828e+00_rb,0.38609e+00_rb,0.33570e+00_rb,0.29627e+00_rb,0.29269e+00_rb, &\n        & 0.27870e+00_rb,0.28357e+00_rb,0.32115e+00_rb,0.36426e+00_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.48784e+00_rb,0.42784e+00_rb,0.36835e+00_rb,0.33984e+00_rb,0.33294e+00_rb, &\n        & 0.31846e+00_rb,0.32126e+00_rb,0.35651e+00_rb,0.40621e+00_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.48030e+00_rb,0.42153e+00_rb,0.36340e+00_rb,0.33519e+00_rb,0.32973e+00_rb, &\n        & 0.31380e+00_rb,0.31683e+00_rb,0.35311e+00_rb,0.40187e+00_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.47411e+00_rb,0.41636e+00_rb,0.35974e+00_rb,0.33136e+00_rb,0.32664e+00_rb, &\n        & 0.30892e+00_rb,0.31220e+00_rb,0.34964e+00_rb,0.39763e+00_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.46883e+00_rb,0.41227e+00_rb,0.35745e+00_rb,0.32776e+00_rb,0.32317e+00_rb, &\n        & 0.30393e+00_rb,0.30777e+00_rb,0.34651e+00_rb,0.39440e+00_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.46388e+00_rb,0.40844e+00_rb,0.35543e+00_rb,0.32520e+00_rb,0.31964e+00_rb, &\n        & 0.29971e+00_rb,0.30439e+00_rb,0.34429e+00_rb,0.39205e+00_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.51535e+00_rb,0.45180e+00_rb,0.39162e+00_rb,0.37322e+00_rb,0.36050e+00_rb, &\n        & 0.34300e+00_rb,0.34505e+00_rb,0.38137e+00_rb,0.43538e+00_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.50781e+00_rb,0.44545e+00_rb,0.38586e+00_rb,0.36868e+00_rb,0.35573e+00_rb, &\n        & 0.33760e+00_rb,0.34025e+00_rb,0.37783e+00_rb,0.43095e+00_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.50139e+00_rb,0.44011e+00_rb,0.38148e+00_rb,0.36480e+00_rb,0.35183e+00_rb, &\n        & 0.33217e+00_rb,0.33546e+00_rb,0.37434e+00_rb,0.42674e+00_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.49657e+00_rb,0.43636e+00_rb,0.37891e+00_rb,0.36116e+00_rb,0.34800e+00_rb, &\n        & 0.32704e+00_rb,0.33102e+00_rb,0.37152e+00_rb,0.42385e+00_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.49171e+00_rb,0.43263e+00_rb,0.37693e+00_rb,0.35827e+00_rb,0.34376e+00_rb, &\n        & 0.32320e+00_rb,0.32782e+00_rb,0.36976e+00_rb,0.42188e+00_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.54162e+00_rb,0.47464e+00_rb,0.41834e+00_rb,0.40782e+00_rb,0.38721e+00_rb, &\n        & 0.36824e+00_rb,0.37067e+00_rb,0.40670e+00_rb,0.46460e+00_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.53535e+00_rb,0.46937e+00_rb,0.41220e+00_rb,0.40296e+00_rb,0.38145e+00_rb, &\n        & 0.36278e+00_rb,0.36581e+00_rb,0.40309e+00_rb,0.46013e+00_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.52914e+00_rb,0.46429e+00_rb,0.40710e+00_rb,0.39788e+00_rb,0.37673e+00_rb, &\n        & 0.35819e+00_rb,0.36078e+00_rb,0.40008e+00_rb,0.45678e+00_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.52440e+00_rb,0.46050e+00_rb,0.40384e+00_rb,0.39374e+00_rb,0.37204e+00_rb, &\n        & 0.35371e+00_rb,0.35616e+00_rb,0.39775e+00_rb,0.45424e+00_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.52017e+00_rb,0.45722e+00_rb,0.40132e+00_rb,0.39030e+00_rb,0.36733e+00_rb, &\n        & 0.34991e+00_rb,0.35252e+00_rb,0.39600e+00_rb,0.45213e+00_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.56560e+00_rb,0.49547e+00_rb,0.44792e+00_rb,0.43980e+00_rb,0.41568e+00_rb, &\n        & 0.39571e+00_rb,0.39516e+00_rb,0.42687e+00_rb,0.48767e+00_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.55986e+00_rb,0.49068e+00_rb,0.44130e+00_rb,0.43344e+00_rb,0.40921e+00_rb, &\n        & 0.39033e+00_rb,0.39006e+00_rb,0.42429e+00_rb,0.48458e+00_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.55439e+00_rb,0.48622e+00_rb,0.43604e+00_rb,0.42727e+00_rb,0.40340e+00_rb, &\n        & 0.38637e+00_rb,0.38517e+00_rb,0.42255e+00_rb,0.48243e+00_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.55085e+00_rb,0.48344e+00_rb,0.43251e+00_rb,0.42285e+00_rb,0.39791e+00_rb, &\n        & 0.38219e+00_rb,0.38096e+00_rb,0.42076e+00_rb,0.48039e+00_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.54722e+00_rb,0.48060e+00_rb,0.42969e+00_rb,0.41964e+00_rb,0.39283e+00_rb, &\n        & 0.37840e+00_rb,0.37699e+00_rb,0.41955e+00_rb,0.47894e+00_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.58672e+00_rb,0.51388e+00_rb,0.47909e+00_rb,0.46769e+00_rb,0.44479e+00_rb, &\n        & 0.42421e+00_rb,0.41694e+00_rb,0.44339e+00_rb,0.50662e+00_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.58159e+00_rb,0.50951e+00_rb,0.47213e+00_rb,0.46028e+00_rb,0.43736e+00_rb, &\n        & 0.41895e+00_rb,0.41246e+00_rb,0.44257e+00_rb,0.50550e+00_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.57736e+00_rb,0.50610e+00_rb,0.46657e+00_rb,0.45431e+00_rb,0.43100e+00_rb, &\n        & 0.41543e+00_rb,0.40868e+00_rb,0.44206e+00_rb,0.50480e+00_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.57459e+00_rb,0.50394e+00_rb,0.46330e+00_rb,0.44994e+00_rb,0.42562e+00_rb, &\n        & 0.41143e+00_rb,0.40432e+00_rb,0.44089e+00_rb,0.50333e+00_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.57136e+00_rb,0.50148e+00_rb,0.46136e+00_rb,0.44665e+00_rb,0.42115e+00_rb, &\n        & 0.40792e+00_rb,0.40001e+00_rb,0.43966e+00_rb,0.50186e+00_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.60279e+00_rb,0.52914e+00_rb,0.50725e+00_rb,0.49385e+00_rb,0.47296e+00_rb, &\n        & 0.45056e+00_rb,0.43650e+00_rb,0.45649e+00_rb,0.52069e+00_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.59826e+00_rb,0.52452e+00_rb,0.50048e+00_rb,0.48635e+00_rb,0.46511e+00_rb, &\n        & 0.44618e+00_rb,0.43278e+00_rb,0.45737e+00_rb,0.52170e+00_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.59590e+00_rb,0.52228e+00_rb,0.49610e+00_rb,0.47997e+00_rb,0.45903e+00_rb, &\n        & 0.44309e+00_rb,0.42962e+00_rb,0.45759e+00_rb,0.52208e+00_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.59454e+00_rb,0.52120e+00_rb,0.49388e+00_rb,0.47548e+00_rb,0.45447e+00_rb, &\n        & 0.44006e+00_rb,0.42512e+00_rb,0.45631e+00_rb,0.52061e+00_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.59357e+00_rb,0.52070e+00_rb,0.49246e+00_rb,0.47250e+00_rb,0.45028e+00_rb, &\n        & 0.43610e+00_rb,0.42114e+00_rb,0.45529e+00_rb,0.51951e+00_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.60887e+00_rb,0.53839e+00_rb,0.52807e+00_rb,0.51587e+00_rb,0.49623e+00_rb, &\n        & 0.47362e+00_rb,0.45440e+00_rb,0.46645e+00_rb,0.53001e+00_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.60756e+00_rb,0.53578e+00_rb,0.52411e+00_rb,0.50806e+00_rb,0.48992e+00_rb, &\n        & 0.47089e+00_rb,0.45204e+00_rb,0.46808e+00_rb,0.53215e+00_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.60793e+00_rb,0.53524e+00_rb,0.52214e+00_rb,0.50280e+00_rb,0.48540e+00_rb, &\n        & 0.46881e+00_rb,0.44770e+00_rb,0.46764e+00_rb,0.53195e+00_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.60970e+00_rb,0.53618e+00_rb,0.52106e+00_rb,0.49960e+00_rb,0.48160e+00_rb, &\n        & 0.46481e+00_rb,0.44371e+00_rb,0.46667e+00_rb,0.53096e+00_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.61038e+00_rb,0.53650e+00_rb,0.52014e+00_rb,0.49804e+00_rb,0.47818e+00_rb, &\n        & 0.45984e+00_rb,0.44017e+00_rb,0.46579e+00_rb,0.53008e+00_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.60957e+00_rb,0.54609e+00_rb,0.54565e+00_rb,0.53521e+00_rb,0.51779e+00_rb, &\n        & 0.49593e+00_rb,0.47189e+00_rb,0.47309e+00_rb,0.46983e+00_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.61214e+00_rb,0.54625e+00_rb,0.54367e+00_rb,0.52921e+00_rb,0.51339e+00_rb, &\n        & 0.49443e+00_rb,0.46946e+00_rb,0.47371e+00_rb,0.47545e+00_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.61642e+00_rb,0.54787e+00_rb,0.54269e+00_rb,0.52579e+00_rb,0.50981e+00_rb, &\n        & 0.49118e+00_rb,0.46605e+00_rb,0.47265e+00_rb,0.47706e+00_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.62028e+00_rb,0.54980e+00_rb,0.54303e+00_rb,0.52440e+00_rb,0.50697e+00_rb, &\n        & 0.48619e+00_rb,0.46182e+00_rb,0.47123e+00_rb,0.48084e+00_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.62175e+00_rb,0.55026e+00_rb,0.54305e+00_rb,0.52373e+00_rb,0.50407e+00_rb, &\n        & 0.48153e+00_rb,0.45738e+00_rb,0.46998e+00_rb,0.48415e+00_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.60459e+00_rb,0.55304e+00_rb,0.55845e+00_rb,0.55195e+00_rb,0.53769e+00_rb, &\n        & 0.51606e+00_rb,0.48661e+00_rb,0.47383e+00_rb,0.40484e+00_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.61134e+00_rb,0.55569e+00_rb,0.55809e+00_rb,0.54885e+00_rb,0.53426e+00_rb, &\n        & 0.51450e+00_rb,0.48473e+00_rb,0.47289e+00_rb,0.40823e+00_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.61890e+00_rb,0.55963e+00_rb,0.55924e+00_rb,0.54802e+00_rb,0.53230e+00_rb, &\n        & 0.51039e+00_rb,0.48075e+00_rb,0.47078e+00_rb,0.41355e+00_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.62388e+00_rb,0.56213e+00_rb,0.56099e+00_rb,0.54740e+00_rb,0.52999e+00_rb, &\n        & 0.50582e+00_rb,0.47603e+00_rb,0.46901e+00_rb,0.41977e+00_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.62688e+00_rb,0.56314e+00_rb,0.56152e+00_rb,0.54685e+00_rb,0.52723e+00_rb, &\n        & 0.50138e+00_rb,0.47115e+00_rb,0.46700e+00_rb,0.42405e+00_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.52445e+00_rb,0.46003e+00_rb,0.39566e+00_rb,0.33139e+00_rb,0.26995e+00_rb, &\n        & 0.25837e+00_rb,0.28528e+00_rb,0.32819e+00_rb,0.35568e+00_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.51513e+00_rb,0.45183e+00_rb,0.38858e+00_rb,0.32553e+00_rb,0.26784e+00_rb, &\n        & 0.25515e+00_rb,0.28229e+00_rb,0.32456e+00_rb,0.35149e+00_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.50548e+00_rb,0.44334e+00_rb,0.38125e+00_rb,0.32054e+00_rb,0.26590e+00_rb, &\n        & 0.25305e+00_rb,0.28136e+00_rb,0.32218e+00_rb,0.34858e+00_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.49563e+00_rb,0.43466e+00_rb,0.37374e+00_rb,0.31559e+00_rb,0.26350e+00_rb, &\n        & 0.25115e+00_rb,0.28088e+00_rb,0.32077e+00_rb,0.34651e+00_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.48636e+00_rb,0.42650e+00_rb,0.36724e+00_rb,0.31119e+00_rb,0.26146e+00_rb, &\n        & 0.24908e+00_rb,0.27907e+00_rb,0.31920e+00_rb,0.34392e+00_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.56575e+00_rb,0.49609e+00_rb,0.42647e+00_rb,0.35691e+00_rb,0.29788e+00_rb, &\n        & 0.29937e+00_rb,0.33584e+00_rb,0.38701e+00_rb,0.42822e+00_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.55481e+00_rb,0.48648e+00_rb,0.41819e+00_rb,0.35023e+00_rb,0.29393e+00_rb, &\n        & 0.29578e+00_rb,0.33190e+00_rb,0.38233e+00_rb,0.42282e+00_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.54468e+00_rb,0.47756e+00_rb,0.41048e+00_rb,0.34498e+00_rb,0.29076e+00_rb, &\n        & 0.29330e+00_rb,0.33000e+00_rb,0.37899e+00_rb,0.41892e+00_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.53444e+00_rb,0.46857e+00_rb,0.40281e+00_rb,0.34010e+00_rb,0.28772e+00_rb, &\n        & 0.29117e+00_rb,0.32899e+00_rb,0.37674e+00_rb,0.41581e+00_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.52472e+00_rb,0.46000e+00_rb,0.39601e+00_rb,0.33543e+00_rb,0.28544e+00_rb, &\n        & 0.28841e+00_rb,0.32728e+00_rb,0.37488e+00_rb,0.41300e+00_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.61401e+00_rb,0.53826e+00_rb,0.46254e+00_rb,0.38687e+00_rb,0.33653e+00_rb, &\n        & 0.34874e+00_rb,0.39278e+00_rb,0.45331e+00_rb,0.51178e+00_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.60181e+00_rb,0.52754e+00_rb,0.45329e+00_rb,0.37917e+00_rb,0.33018e+00_rb, &\n        & 0.34432e+00_rb,0.38762e+00_rb,0.44735e+00_rb,0.50487e+00_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.59018e+00_rb,0.51732e+00_rb,0.44448e+00_rb,0.37278e+00_rb,0.32516e+00_rb, &\n        & 0.34086e+00_rb,0.38493e+00_rb,0.44336e+00_rb,0.50014e+00_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.57893e+00_rb,0.50743e+00_rb,0.43595e+00_rb,0.36714e+00_rb,0.32113e+00_rb, &\n        & 0.33824e+00_rb,0.38315e+00_rb,0.44016e+00_rb,0.49598e+00_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.56842e+00_rb,0.49818e+00_rb,0.42822e+00_rb,0.36203e+00_rb,0.31748e+00_rb, &\n        & 0.33494e+00_rb,0.38145e+00_rb,0.43774e+00_rb,0.49238e+00_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.66683e+00_rb,0.58444e+00_rb,0.50208e+00_rb,0.41977e+00_rb,0.38494e+00_rb, &\n        & 0.40485e+00_rb,0.45417e+00_rb,0.52508e+00_rb,0.59839e+00_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.65354e+00_rb,0.57275e+00_rb,0.49199e+00_rb,0.41128e+00_rb,0.37591e+00_rb, &\n        & 0.39916e+00_rb,0.44835e+00_rb,0.51820e+00_rb,0.59043e+00_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.64071e+00_rb,0.56148e+00_rb,0.48227e+00_rb,0.40388e+00_rb,0.36879e+00_rb, &\n        & 0.39404e+00_rb,0.44465e+00_rb,0.51320e+00_rb,0.58464e+00_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.62844e+00_rb,0.55070e+00_rb,0.47297e+00_rb,0.39753e+00_rb,0.36329e+00_rb, &\n        & 0.39017e+00_rb,0.44183e+00_rb,0.50881e+00_rb,0.57888e+00_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.61748e+00_rb,0.54106e+00_rb,0.46467e+00_rb,0.39213e+00_rb,0.35832e+00_rb, &\n        & 0.38631e+00_rb,0.43926e+00_rb,0.50522e+00_rb,0.57403e+00_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.72260e+00_rb,0.63317e+00_rb,0.54375e+00_rb,0.45913e+00_rb,0.43732e+00_rb, &\n        & 0.46505e+00_rb,0.51783e+00_rb,0.59954e+00_rb,0.68564e+00_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.70858e+00_rb,0.62085e+00_rb,0.53314e+00_rb,0.44897e+00_rb,0.42823e+00_rb, &\n        & 0.45720e+00_rb,0.51115e+00_rb,0.59162e+00_rb,0.67653e+00_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.69539e+00_rb,0.60926e+00_rb,0.52314e+00_rb,0.43994e+00_rb,0.42099e+00_rb, &\n        & 0.45017e+00_rb,0.50656e+00_rb,0.58542e+00_rb,0.66941e+00_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.68235e+00_rb,0.59780e+00_rb,0.51326e+00_rb,0.43281e+00_rb,0.41557e+00_rb, &\n        & 0.44468e+00_rb,0.50258e+00_rb,0.57996e+00_rb,0.66206e+00_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.67018e+00_rb,0.58711e+00_rb,0.50404e+00_rb,0.42628e+00_rb,0.41131e+00_rb, &\n        & 0.43975e+00_rb,0.49863e+00_rb,0.57477e+00_rb,0.65556e+00_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.77964e+00_rb,0.68298e+00_rb,0.58633e+00_rb,0.50766e+00_rb,0.49641e+00_rb, &\n        & 0.52605e+00_rb,0.58161e+00_rb,0.67425e+00_rb,0.77212e+00_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.76589e+00_rb,0.67092e+00_rb,0.57596e+00_rb,0.49531e+00_rb,0.48834e+00_rb, &\n        & 0.51573e+00_rb,0.57361e+00_rb,0.66493e+00_rb,0.76124e+00_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.75251e+00_rb,0.65917e+00_rb,0.56583e+00_rb,0.48459e+00_rb,0.48115e+00_rb, &\n        & 0.50704e+00_rb,0.56757e+00_rb,0.65686e+00_rb,0.75182e+00_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.73905e+00_rb,0.64728e+00_rb,0.55554e+00_rb,0.47565e+00_rb,0.47497e+00_rb, &\n        & 0.50004e+00_rb,0.56191e+00_rb,0.64957e+00_rb,0.74243e+00_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.72636e+00_rb,0.63608e+00_rb,0.54581e+00_rb,0.46758e+00_rb,0.47009e+00_rb, &\n        & 0.49349e+00_rb,0.55635e+00_rb,0.64252e+00_rb,0.73397e+00_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.84113e+00_rb,0.73668e+00_rb,0.63225e+00_rb,0.56459e+00_rb,0.56168e+00_rb, &\n        & 0.58736e+00_rb,0.64476e+00_rb,0.74759e+00_rb,0.85655e+00_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.82630e+00_rb,0.72365e+00_rb,0.62103e+00_rb,0.55091e+00_rb,0.55367e+00_rb, &\n        & 0.57467e+00_rb,0.63457e+00_rb,0.73605e+00_rb,0.84323e+00_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.81279e+00_rb,0.71173e+00_rb,0.61068e+00_rb,0.53944e+00_rb,0.54564e+00_rb, &\n        & 0.56363e+00_rb,0.62610e+00_rb,0.72557e+00_rb,0.83073e+00_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.79922e+00_rb,0.69978e+00_rb,0.60035e+00_rb,0.52974e+00_rb,0.53833e+00_rb, &\n        & 0.55444e+00_rb,0.61857e+00_rb,0.71625e+00_rb,0.81942e+00_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.78598e+00_rb,0.68814e+00_rb,0.59031e+00_rb,0.52130e+00_rb,0.53249e+00_rb, &\n        & 0.54592e+00_rb,0.61225e+00_rb,0.70842e+00_rb,0.80994e+00_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.90865e+00_rb,0.79552e+00_rb,0.68301e+00_rb,0.62894e+00_rb,0.62980e+00_rb, &\n        & 0.64956e+00_rb,0.70917e+00_rb,0.82179e+00_rb,0.94167e+00_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.89327e+00_rb,0.78202e+00_rb,0.67089e+00_rb,0.61713e+00_rb,0.62095e+00_rb, &\n        & 0.63402e+00_rb,0.69617e+00_rb,0.80717e+00_rb,0.92484e+00_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.87903e+00_rb,0.76952e+00_rb,0.66001e+00_rb,0.60628e+00_rb,0.61235e+00_rb, &\n        & 0.62019e+00_rb,0.68531e+00_rb,0.79440e+00_rb,0.90974e+00_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.86460e+00_rb,0.75687e+00_rb,0.64914e+00_rb,0.59649e+00_rb,0.60349e+00_rb, &\n        & 0.60828e+00_rb,0.67580e+00_rb,0.78318e+00_rb,0.89639e+00_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.85091e+00_rb,0.74488e+00_rb,0.63886e+00_rb,0.58665e+00_rb,0.59566e+00_rb, &\n        & 0.59754e+00_rb,0.66827e+00_rb,0.77422e+00_rb,0.88585e+00_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.98149e+00_rb,0.85912e+00_rb,0.74373e+00_rb,0.70295e+00_rb,0.70214e+00_rb, &\n        & 0.71285e+00_rb,0.77237e+00_rb,0.89352e+00_rb,0.10239e+01_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.96640e+00_rb,0.84589e+00_rb,0.73081e+00_rb,0.69152e+00_rb,0.69170e+00_rb, &\n        & 0.69439e+00_rb,0.75605e+00_rb,0.87558e+00_rb,0.10032e+01_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.95188e+00_rb,0.83316e+00_rb,0.71892e+00_rb,0.68080e+00_rb,0.68028e+00_rb, &\n        & 0.67751e+00_rb,0.74271e+00_rb,0.86004e+00_rb,0.98493e+00_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.93737e+00_rb,0.82045e+00_rb,0.70700e+00_rb,0.67076e+00_rb,0.66785e+00_rb, &\n        & 0.66265e+00_rb,0.73184e+00_rb,0.84775e+00_rb,0.97055e+00_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.92346e+00_rb,0.80828e+00_rb,0.69536e+00_rb,0.66047e+00_rb,0.65652e+00_rb, &\n        & 0.65000e+00_rb,0.72388e+00_rb,0.83863e+00_rb,0.95986e+00_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.10577e+01_rb,0.92576e+00_rb,0.81364e+00_rb,0.78190e+00_rb,0.77617e+00_rb, &\n        & 0.77603e+00_rb,0.83269e+00_rb,0.96109e+00_rb,0.11008e+01_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.10450e+01_rb,0.91463e+00_rb,0.80097e+00_rb,0.77046e+00_rb,0.76182e+00_rb, &\n        & 0.75411e+00_rb,0.81384e+00_rb,0.94032e+00_rb,0.10769e+01_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.10312e+01_rb,0.90248e+00_rb,0.78812e+00_rb,0.75969e+00_rb,0.74632e+00_rb, &\n        & 0.73436e+00_rb,0.79822e+00_rb,0.92300e+00_rb,0.10571e+01_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.10164e+01_rb,0.88956e+00_rb,0.77444e+00_rb,0.74952e+00_rb,0.73099e+00_rb, &\n        & 0.71729e+00_rb,0.78702e+00_rb,0.91062e+00_rb,0.10426e+01_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.10010e+01_rb,0.87610e+00_rb,0.76045e+00_rb,0.73747e+00_rb,0.71669e+00_rb, &\n        & 0.70419e+00_rb,0.77819e+00_rb,0.90060e+00_rb,0.10309e+01_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.11332e+01_rb,0.99169e+00_rb,0.88520e+00_rb,0.85938e+00_rb,0.84171e+00_rb, &\n        & 0.82777e+00_rb,0.88045e+00_rb,0.10119e+01_rb,0.11581e+01_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.11221e+01_rb,0.98196e+00_rb,0.87210e+00_rb,0.84745e+00_rb,0.82287e+00_rb, &\n        & 0.80383e+00_rb,0.86097e+00_rb,0.99198e+00_rb,0.11355e+01_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.11079e+01_rb,0.96953e+00_rb,0.85745e+00_rb,0.83492e+00_rb,0.80465e+00_rb, &\n        & 0.78293e+00_rb,0.84710e+00_rb,0.97731e+00_rb,0.11185e+01_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.10888e+01_rb,0.95287e+00_rb,0.84018e+00_rb,0.82112e+00_rb,0.78666e+00_rb, &\n        & 0.76752e+00_rb,0.83583e+00_rb,0.96514e+00_rb,0.11044e+01_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.10701e+01_rb,0.93668e+00_rb,0.82311e+00_rb,0.80490e+00_rb,0.77024e+00_rb, &\n        & 0.75616e+00_rb,0.82679e+00_rb,0.95569e+00_rb,0.10935e+01_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.12101e+01_rb,0.10589e+01_rb,0.96254e+00_rb,0.93478e+00_rb,0.90424e+00_rb, &\n        & 0.88111e+00_rb,0.92612e+00_rb,0.10566e+01_rb,0.12084e+01_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.11952e+01_rb,0.10459e+01_rb,0.94639e+00_rb,0.91979e+00_rb,0.88299e+00_rb, &\n        & 0.85667e+00_rb,0.90737e+00_rb,0.10393e+01_rb,0.11885e+01_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.11758e+01_rb,0.10290e+01_rb,0.92827e+00_rb,0.90412e+00_rb,0.86234e+00_rb, &\n        & 0.83719e+00_rb,0.89320e+00_rb,0.10260e+01_rb,0.11732e+01_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.11552e+01_rb,0.10111e+01_rb,0.90821e+00_rb,0.88659e+00_rb,0.84346e+00_rb, &\n        & 0.82327e+00_rb,0.88324e+00_rb,0.10165e+01_rb,0.11624e+01_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.11370e+01_rb,0.99527e+00_rb,0.88941e+00_rb,0.86803e+00_rb,0.82686e+00_rb, &\n        & 0.81098e+00_rb,0.87502e+00_rb,0.10085e+01_rb,0.11531e+01_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.12761e+01_rb,0.11169e+01_rb,0.10366e+01_rb,0.10056e+01_rb,0.96619e+00_rb, &\n        & 0.93741e+00_rb,0.96971e+00_rb,0.10971e+01_rb,0.12455e+01_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.12590e+01_rb,0.11018e+01_rb,0.10193e+01_rb,0.98827e+00_rb,0.94401e+00_rb, &\n        & 0.91331e+00_rb,0.95200e+00_rb,0.10824e+01_rb,0.12321e+01_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.12382e+01_rb,0.10836e+01_rb,0.99864e+00_rb,0.96922e+00_rb,0.92237e+00_rb, &\n        & 0.89570e+00_rb,0.94013e+00_rb,0.10732e+01_rb,0.12212e+01_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.12192e+01_rb,0.10671e+01_rb,0.97718e+00_rb,0.94975e+00_rb,0.90316e+00_rb, &\n        & 0.88110e+00_rb,0.93100e+00_rb,0.10658e+01_rb,0.12124e+01_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.12013e+01_rb,0.10515e+01_rb,0.95818e+00_rb,0.93022e+00_rb,0.88690e+00_rb, &\n        & 0.86844e+00_rb,0.92401e+00_rb,0.10605e+01_rb,0.12064e+01_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.70834e+00_rb,0.62203e+00_rb,0.53582e+00_rb,0.44981e+00_rb,0.36430e+00_rb, &\n        & 0.30456e+00_rb,0.33772e+00_rb,0.39113e+00_rb,0.42417e+00_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.69132e+00_rb,0.60682e+00_rb,0.52239e+00_rb,0.43815e+00_rb,0.35442e+00_rb, &\n        & 0.29618e+00_rb,0.32847e+00_rb,0.37897e+00_rb,0.41053e+00_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.67551e+00_rb,0.59273e+00_rb,0.51002e+00_rb,0.42746e+00_rb,0.34540e+00_rb, &\n        & 0.29170e+00_rb,0.32190e+00_rb,0.37054e+00_rb,0.40056e+00_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.65954e+00_rb,0.57855e+00_rb,0.49762e+00_rb,0.41681e+00_rb,0.33774e+00_rb, &\n        & 0.29058e+00_rb,0.31932e+00_rb,0.36553e+00_rb,0.39416e+00_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.64426e+00_rb,0.56502e+00_rb,0.48582e+00_rb,0.40671e+00_rb,0.33237e+00_rb, &\n        & 0.29156e+00_rb,0.32280e+00_rb,0.36526e+00_rb,0.39257e+00_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.79278e+00_rb,0.69566e+00_rb,0.59863e+00_rb,0.50180e+00_rb,0.40547e+00_rb, &\n        & 0.36074e+00_rb,0.40858e+00_rb,0.47363e+00_rb,0.52463e+00_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.77384e+00_rb,0.67879e+00_rb,0.58381e+00_rb,0.48896e+00_rb,0.39453e+00_rb, &\n        & 0.34912e+00_rb,0.39677e+00_rb,0.45884e+00_rb,0.50797e+00_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.75601e+00_rb,0.66296e+00_rb,0.56995e+00_rb,0.47701e+00_rb,0.38437e+00_rb, &\n        & 0.34005e+00_rb,0.38826e+00_rb,0.44800e+00_rb,0.49524e+00_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.73809e+00_rb,0.64708e+00_rb,0.55610e+00_rb,0.46517e+00_rb,0.37616e+00_rb, &\n        & 0.33560e+00_rb,0.38277e+00_rb,0.44095e+00_rb,0.48660e+00_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.72001e+00_rb,0.63111e+00_rb,0.54222e+00_rb,0.45336e+00_rb,0.36992e+00_rb, &\n        & 0.33536e+00_rb,0.38227e+00_rb,0.43734e+00_rb,0.48144e+00_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.88640e+00_rb,0.77731e+00_rb,0.66826e+00_rb,0.55931e+00_rb,0.45077e+00_rb, &\n        & 0.42993e+00_rb,0.49594e+00_rb,0.57510e+00_rb,0.65079e+00_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.86545e+00_rb,0.75870e+00_rb,0.65198e+00_rb,0.54530e+00_rb,0.43919e+00_rb, &\n        & 0.41467e+00_rb,0.48152e+00_rb,0.55764e+00_rb,0.63093e+00_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.84484e+00_rb,0.74046e+00_rb,0.63609e+00_rb,0.53174e+00_rb,0.42841e+00_rb, &\n        & 0.40263e+00_rb,0.47018e+00_rb,0.54358e+00_rb,0.61450e+00_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.82484e+00_rb,0.72279e+00_rb,0.62074e+00_rb,0.51870e+00_rb,0.41933e+00_rb, &\n        & 0.39440e+00_rb,0.46214e+00_rb,0.53355e+00_rb,0.60235e+00_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.80403e+00_rb,0.70444e+00_rb,0.60484e+00_rb,0.50526e+00_rb,0.41249e+00_rb, &\n        & 0.39177e+00_rb,0.45674e+00_rb,0.52614e+00_rb,0.59324e+00_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.98775e+00_rb,0.86568e+00_rb,0.74362e+00_rb,0.62157e+00_rb,0.50893e+00_rb, &\n        & 0.51227e+00_rb,0.60104e+00_rb,0.69710e+00_rb,0.79722e+00_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.96448e+00_rb,0.84510e+00_rb,0.72572e+00_rb,0.60634e+00_rb,0.49496e+00_rb, &\n        & 0.49365e+00_rb,0.58337e+00_rb,0.67615e+00_rb,0.77326e+00_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.94121e+00_rb,0.82456e+00_rb,0.70790e+00_rb,0.59124e+00_rb,0.48214e+00_rb, &\n        & 0.47977e+00_rb,0.56920e+00_rb,0.65880e+00_rb,0.75281e+00_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.91776e+00_rb,0.80389e+00_rb,0.69002e+00_rb,0.57613e+00_rb,0.47050e+00_rb, &\n        & 0.47009e+00_rb,0.55863e+00_rb,0.64595e+00_rb,0.73761e+00_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.89560e+00_rb,0.78437e+00_rb,0.67314e+00_rb,0.56190e+00_rb,0.46260e+00_rb, &\n        & 0.46419e+00_rb,0.55009e+00_rb,0.63560e+00_rb,0.72526e+00_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.10958e+01_rb,0.95999e+00_rb,0.82419e+00_rb,0.68839e+00_rb,0.58904e+00_rb, &\n        & 0.60909e+00_rb,0.72523e+00_rb,0.84139e+00_rb,0.96623e+00_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.10697e+01_rb,0.93701e+00_rb,0.80427e+00_rb,0.67151e+00_rb,0.56892e+00_rb, &\n        & 0.58963e+00_rb,0.70431e+00_rb,0.81667e+00_rb,0.93800e+00_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.10434e+01_rb,0.91377e+00_rb,0.78415e+00_rb,0.65453e+00_rb,0.55082e+00_rb, &\n        & 0.57510e+00_rb,0.68668e+00_rb,0.79542e+00_rb,0.91311e+00_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.10167e+01_rb,0.89033e+00_rb,0.76393e+00_rb,0.63753e+00_rb,0.53477e+00_rb, &\n        & 0.56392e+00_rb,0.67291e+00_rb,0.77892e+00_rb,0.89383e+00_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.99271e+00_rb,0.86922e+00_rb,0.74573e+00_rb,0.62224e+00_rb,0.52129e+00_rb, &\n        & 0.55503e+00_rb,0.66157e+00_rb,0.76538e+00_rb,0.87797e+00_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.12165e+01_rb,0.10653e+01_rb,0.91421e+00_rb,0.76309e+00_rb,0.68684e+00_rb, &\n        & 0.72751e+00_rb,0.87072e+00_rb,0.10104e+01_rb,0.11626e+01_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.11851e+01_rb,0.10377e+01_rb,0.89038e+00_rb,0.74302e+00_rb,0.66078e+00_rb, &\n        & 0.70740e+00_rb,0.84652e+00_rb,0.98180e+00_rb,0.11298e+01_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.11540e+01_rb,0.10104e+01_rb,0.86680e+00_rb,0.72322e+00_rb,0.63673e+00_rb, &\n        & 0.69046e+00_rb,0.82558e+00_rb,0.95705e+00_rb,0.11007e+01_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.11233e+01_rb,0.98347e+00_rb,0.84364e+00_rb,0.70381e+00_rb,0.61623e+00_rb, &\n        & 0.67656e+00_rb,0.80855e+00_rb,0.93682e+00_rb,0.10775e+01_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.10954e+01_rb,0.95895e+00_rb,0.82254e+00_rb,0.68614e+00_rb,0.59850e+00_rb, &\n        & 0.66513e+00_rb,0.79440e+00_rb,0.92006e+00_rb,0.10579e+01_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.13516e+01_rb,0.11834e+01_rb,0.10152e+01_rb,0.84752e+00_rb,0.80189e+00_rb, &\n        & 0.86751e+00_rb,0.10388e+01_rb,0.12059e+01_rb,0.13885e+01_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.13129e+01_rb,0.11495e+01_rb,0.98601e+00_rb,0.82254e+00_rb,0.76801e+00_rb, &\n        & 0.84476e+00_rb,0.10112e+01_rb,0.11733e+01_rb,0.13510e+01_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.12754e+01_rb,0.11166e+01_rb,0.95771e+00_rb,0.79885e+00_rb,0.73832e+00_rb, &\n        & 0.82499e+00_rb,0.98705e+00_rb,0.11448e+01_rb,0.13179e+01_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.12391e+01_rb,0.10847e+01_rb,0.93032e+00_rb,0.77593e+00_rb,0.71267e+00_rb, &\n        & 0.80837e+00_rb,0.96685e+00_rb,0.11210e+01_rb,0.12906e+01_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.12065e+01_rb,0.10561e+01_rb,0.90576e+00_rb,0.75539e+00_rb,0.69035e+00_rb, &\n        & 0.79409e+00_rb,0.94938e+00_rb,0.11005e+01_rb,0.12668e+01_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.14988e+01_rb,0.13122e+01_rb,0.11257e+01_rb,0.95045e+00_rb,0.92736e+00_rb, &\n        & 0.10268e+01_rb,0.12293e+01_rb,0.14274e+01_rb,0.16436e+01_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.14532e+01_rb,0.12722e+01_rb,0.10913e+01_rb,0.91652e+00_rb,0.88763e+00_rb, &\n        & 0.10018e+01_rb,0.11994e+01_rb,0.13921e+01_rb,0.16030e+01_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.14089e+01_rb,0.12334e+01_rb,0.10579e+01_rb,0.88636e+00_rb,0.85277e+00_rb, &\n        & 0.97910e+00_rb,0.11719e+01_rb,0.13598e+01_rb,0.15656e+01_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.13671e+01_rb,0.11967e+01_rb,0.10263e+01_rb,0.85849e+00_rb,0.82373e+00_rb, &\n        & 0.95955e+00_rb,0.11482e+01_rb,0.13320e+01_rb,0.15338e+01_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.13292e+01_rb,0.11635e+01_rb,0.99774e+00_rb,0.83411e+00_rb,0.79958e+00_rb, &\n        & 0.94221e+00_rb,0.11271e+01_rb,0.13073e+01_rb,0.15052e+01_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.16562e+01_rb,0.14500e+01_rb,0.12437e+01_rb,0.10742e+01_rb,0.10651e+01_rb, &\n        & 0.12070e+01_rb,0.14445e+01_rb,0.16775e+01_rb,0.19311e+01_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.16034e+01_rb,0.14036e+01_rb,0.12039e+01_rb,0.10312e+01_rb,0.10206e+01_rb, &\n        & 0.11791e+01_rb,0.14116e+01_rb,0.16391e+01_rb,0.18869e+01_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.15525e+01_rb,0.13590e+01_rb,0.11655e+01_rb,0.99233e+00_rb,0.98476e+00_rb, &\n        & 0.11530e+01_rb,0.13804e+01_rb,0.16026e+01_rb,0.18449e+01_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.15047e+01_rb,0.13171e+01_rb,0.11295e+01_rb,0.95737e+00_rb,0.95592e+00_rb, &\n        & 0.11301e+01_rb,0.13529e+01_rb,0.15703e+01_rb,0.18077e+01_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.14611e+01_rb,0.12789e+01_rb,0.10967e+01_rb,0.92635e+00_rb,0.93256e+00_rb, &\n        & 0.11088e+01_rb,0.13272e+01_rb,0.15403e+01_rb,0.17730e+01_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.18225e+01_rb,0.15953e+01_rb,0.13682e+01_rb,0.12131e+01_rb,0.12195e+01_rb, &\n        & 0.14041e+01_rb,0.16789e+01_rb,0.19504e+01_rb,0.22442e+01_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.17586e+01_rb,0.15393e+01_rb,0.13201e+01_rb,0.11608e+01_rb,0.11760e+01_rb, &\n        & 0.13729e+01_rb,0.16424e+01_rb,0.19078e+01_rb,0.21951e+01_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.16992e+01_rb,0.14873e+01_rb,0.12754e+01_rb,0.11134e+01_rb,0.11408e+01_rb, &\n        & 0.13430e+01_rb,0.16073e+01_rb,0.18666e+01_rb,0.21480e+01_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.16453e+01_rb,0.14401e+01_rb,0.12349e+01_rb,0.10705e+01_rb,0.11101e+01_rb, &\n        & 0.13157e+01_rb,0.15751e+01_rb,0.18293e+01_rb,0.21045e+01_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.15976e+01_rb,0.13983e+01_rb,0.11990e+01_rb,0.10350e+01_rb,0.10845e+01_rb, &\n        & 0.12900e+01_rb,0.15444e+01_rb,0.17936e+01_rb,0.20634e+01_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.19716e+01_rb,0.17256e+01_rb,0.14797e+01_rb,0.13408e+01_rb,0.13798e+01_rb, &\n        & 0.16011e+01_rb,0.19108e+01_rb,0.22209e+01_rb,0.25534e+01_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.18980e+01_rb,0.16613e+01_rb,0.14245e+01_rb,0.12841e+01_rb,0.13393e+01_rb, &\n        & 0.15661e+01_rb,0.18703e+01_rb,0.21736e+01_rb,0.24991e+01_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.18334e+01_rb,0.16046e+01_rb,0.13758e+01_rb,0.12346e+01_rb,0.13019e+01_rb, &\n        & 0.15332e+01_rb,0.18320e+01_rb,0.21288e+01_rb,0.24477e+01_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.17833e+01_rb,0.15608e+01_rb,0.13382e+01_rb,0.11928e+01_rb,0.12697e+01_rb, &\n        & 0.15019e+01_rb,0.17959e+01_rb,0.20867e+01_rb,0.23990e+01_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.17385e+01_rb,0.15215e+01_rb,0.13045e+01_rb,0.11584e+01_rb,0.12412e+01_rb, &\n        & 0.14723e+01_rb,0.17610e+01_rb,0.20462e+01_rb,0.23526e+01_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.21322e+01_rb,0.18661e+01_rb,0.16009e+01_rb,0.14913e+01_rb,0.15626e+01_rb, &\n        & 0.18065e+01_rb,0.21498e+01_rb,0.24997e+01_rb,0.28719e+01_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.20605e+01_rb,0.18033e+01_rb,0.15462e+01_rb,0.14346e+01_rb,0.15183e+01_rb, &\n        & 0.17679e+01_rb,0.21055e+01_rb,0.24481e+01_rb,0.28126e+01_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.20007e+01_rb,0.17509e+01_rb,0.15011e+01_rb,0.13841e+01_rb,0.14777e+01_rb, &\n        & 0.17312e+01_rb,0.20634e+01_rb,0.23990e+01_rb,0.27564e+01_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.19501e+01_rb,0.17066e+01_rb,0.14631e+01_rb,0.13415e+01_rb,0.14420e+01_rb, &\n        & 0.16956e+01_rb,0.20218e+01_rb,0.23506e+01_rb,0.27007e+01_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.19023e+01_rb,0.16648e+01_rb,0.14272e+01_rb,0.13048e+01_rb,0.14093e+01_rb, &\n        & 0.16619e+01_rb,0.19834e+01_rb,0.23060e+01_rb,0.26492e+01_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.23283e+01_rb,0.20376e+01_rb,0.17570e+01_rb,0.16678e+01_rb,0.17574e+01_rb, &\n        & 0.20182e+01_rb,0.23943e+01_rb,0.27850e+01_rb,0.31979e+01_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.22552e+01_rb,0.19735e+01_rb,0.16974e+01_rb,0.16068e+01_rb,0.17079e+01_rb, &\n        & 0.19757e+01_rb,0.23460e+01_rb,0.27289e+01_rb,0.31334e+01_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.21945e+01_rb,0.19204e+01_rb,0.16488e+01_rb,0.15544e+01_rb,0.16639e+01_rb, &\n        & 0.19336e+01_rb,0.22972e+01_rb,0.26723e+01_rb,0.30681e+01_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.21377e+01_rb,0.18706e+01_rb,0.16045e+01_rb,0.15082e+01_rb,0.16235e+01_rb, &\n        & 0.18922e+01_rb,0.22504e+01_rb,0.26179e+01_rb,0.30055e+01_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.20822e+01_rb,0.18221e+01_rb,0.15623e+01_rb,0.14670e+01_rb,0.15845e+01_rb, &\n        & 0.18531e+01_rb,0.22061e+01_rb,0.25663e+01_rb,0.29464e+01_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.84891e+00_rb,0.74682e+00_rb,0.64540e+00_rb,0.54510e+00_rb,0.44671e+00_rb, &\n        & 0.34895e+00_rb,0.38105e+00_rb,0.44177e+00_rb,0.47725e+00_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.82292e+00_rb,0.72425e+00_rb,0.62615e+00_rb,0.52904e+00_rb,0.43334e+00_rb, &\n        & 0.33791e+00_rb,0.37758e+00_rb,0.43769e+00_rb,0.47292e+00_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.79766e+00_rb,0.70221e+00_rb,0.60725e+00_rb,0.51315e+00_rb,0.42001e+00_rb, &\n        & 0.32708e+00_rb,0.37351e+00_rb,0.43297e+00_rb,0.46789e+00_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.77341e+00_rb,0.68098e+00_rb,0.58899e+00_rb,0.49774e+00_rb,0.40711e+00_rb, &\n        & 0.31834e+00_rb,0.36899e+00_rb,0.42775e+00_rb,0.46227e+00_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.74989e+00_rb,0.66035e+00_rb,0.57119e+00_rb,0.48264e+00_rb,0.39437e+00_rb, &\n        & 0.32430e+00_rb,0.36416e+00_rb,0.42216e+00_rb,0.45636e+00_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.98489e+00_rb,0.86457e+00_rb,0.74461e+00_rb,0.62525e+00_rb,0.50699e+00_rb, &\n        & 0.39502e+00_rb,0.46270e+00_rb,0.53626e+00_rb,0.59246e+00_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.95110e+00_rb,0.83523e+00_rb,0.71967e+00_rb,0.60464e+00_rb,0.49055e+00_rb, &\n        & 0.38714e+00_rb,0.45775e+00_rb,0.53066e+00_rb,0.58669e+00_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.91868e+00_rb,0.80699e+00_rb,0.69557e+00_rb,0.58461e+00_rb,0.47447e+00_rb, &\n        & 0.38030e+00_rb,0.45287e+00_rb,0.52498e+00_rb,0.58057e+00_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.88783e+00_rb,0.78006e+00_rb,0.67253e+00_rb,0.56540e+00_rb,0.45894e+00_rb, &\n        & 0.37426e+00_rb,0.44739e+00_rb,0.51869e+00_rb,0.57355e+00_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.85824e+00_rb,0.75420e+00_rb,0.65037e+00_rb,0.54691e+00_rb,0.44407e+00_rb, &\n        & 0.37572e+00_rb,0.44151e+00_rb,0.51192e+00_rb,0.56619e+00_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.11382e+01_rb,0.99791e+00_rb,0.85785e+00_rb,0.71816e+00_rb,0.57913e+00_rb, &\n        & 0.47378e+00_rb,0.56732e+00_rb,0.65745e+00_rb,0.74321e+00_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.10944e+01_rb,0.95984e+00_rb,0.82550e+00_rb,0.69149e+00_rb,0.55807e+00_rb, &\n        & 0.46534e+00_rb,0.55716e+00_rb,0.64588e+00_rb,0.73020e+00_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.10534e+01_rb,0.92416e+00_rb,0.79509e+00_rb,0.66633e+00_rb,0.53808e+00_rb, &\n        & 0.45863e+00_rb,0.54915e+00_rb,0.63663e+00_rb,0.71995e+00_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.10141e+01_rb,0.88986e+00_rb,0.76582e+00_rb,0.64206e+00_rb,0.51870e+00_rb, &\n        & 0.45265e+00_rb,0.54212e+00_rb,0.62853e+00_rb,0.71089e+00_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.97757e+00_rb,0.85802e+00_rb,0.73862e+00_rb,0.61943e+00_rb,0.50068e+00_rb, &\n        & 0.44732e+00_rb,0.53486e+00_rb,0.62017e+00_rb,0.70154e+00_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.13027e+01_rb,0.11412e+01_rb,0.97988e+00_rb,0.81881e+00_rb,0.65819e+00_rb, &\n        & 0.58495e+00_rb,0.70040e+00_rb,0.81176e+00_rb,0.92845e+00_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.12473e+01_rb,0.10931e+01_rb,0.93894e+00_rb,0.78506e+00_rb,0.63160e+00_rb, &\n        & 0.57073e+00_rb,0.68340e+00_rb,0.79216e+00_rb,0.90610e+00_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.11956e+01_rb,0.10481e+01_rb,0.90063e+00_rb,0.75344e+00_rb,0.60663e+00_rb, &\n        & 0.55958e+00_rb,0.67003e+00_rb,0.77669e+00_rb,0.88836e+00_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.11480e+01_rb,0.10066e+01_rb,0.86532e+00_rb,0.72426e+00_rb,0.58351e+00_rb, &\n        & 0.54965e+00_rb,0.65819e+00_rb,0.76307e+00_rb,0.87291e+00_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.11042e+01_rb,0.96837e+00_rb,0.83267e+00_rb,0.69709e+00_rb,0.56180e+00_rb, &\n        & 0.54039e+00_rb,0.64710e+00_rb,0.75045e+00_rb,0.85825e+00_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.14755e+01_rb,0.12919e+01_rb,0.11084e+01_rb,0.92503e+00_rb,0.74199e+00_rb, &\n        & 0.72656e+00_rb,0.86992e+00_rb,0.10084e+01_rb,0.11593e+01_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.14077e+01_rb,0.12330e+01_rb,0.10584e+01_rb,0.88396e+00_rb,0.70985e+00_rb, &\n        & 0.70337e+00_rb,0.84221e+00_rb,0.97628e+00_rb,0.11223e+01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.13473e+01_rb,0.11805e+01_rb,0.10138e+01_rb,0.84723e+00_rb,0.68084e+00_rb, &\n        & 0.68573e+00_rb,0.82117e+00_rb,0.95190e+00_rb,0.10943e+01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.12931e+01_rb,0.11332e+01_rb,0.97336e+00_rb,0.81358e+00_rb,0.65399e+00_rb, &\n        & 0.67083e+00_rb,0.80321e+00_rb,0.93120e+00_rb,0.10704e+01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.12425e+01_rb,0.10889e+01_rb,0.93535e+00_rb,0.78185e+00_rb,0.62849e+00_rb, &\n        & 0.65706e+00_rb,0.78689e+00_rb,0.91252e+00_rb,0.10486e+01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.16632e+01_rb,0.14561e+01_rb,0.12491e+01_rb,0.10422e+01_rb,0.83545e+00_rb, &\n        & 0.90592e+00_rb,0.10850e+01_rb,0.12579e+01_rb,0.14491e+01_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.15885e+01_rb,0.13911e+01_rb,0.11938e+01_rb,0.99649e+00_rb,0.79932e+00_rb, &\n        & 0.87105e+00_rb,0.10430e+01_rb,0.12092e+01_rb,0.13933e+01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.15219e+01_rb,0.13330e+01_rb,0.11441e+01_rb,0.95525e+00_rb,0.76651e+00_rb, &\n        & 0.84460e+00_rb,0.10114e+01_rb,0.11726e+01_rb,0.13510e+01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.14602e+01_rb,0.12790e+01_rb,0.10978e+01_rb,0.91668e+00_rb,0.73549e+00_rb, &\n        & 0.82233e+00_rb,0.98468e+00_rb,0.11417e+01_rb,0.13152e+01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.14027e+01_rb,0.12286e+01_rb,0.10546e+01_rb,0.88053e+00_rb,0.70846e+00_rb, &\n        & 0.80220e+00_rb,0.96072e+00_rb,0.11140e+01_rb,0.12832e+01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.18802e+01_rb,0.16460e+01_rb,0.14119e+01_rb,0.11779e+01_rb,0.95036e+00_rb, &\n        & 0.11297e+01_rb,0.13528e+01_rb,0.15688e+01_rb,0.18094e+01_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.17989e+01_rb,0.15751e+01_rb,0.13512e+01_rb,0.11274e+01_rb,0.91055e+00_rb, &\n        & 0.10797e+01_rb,0.12930e+01_rb,0.14993e+01_rb,0.17294e+01_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.17245e+01_rb,0.15100e+01_rb,0.12954e+01_rb,0.10809e+01_rb,0.87508e+00_rb, &\n        & 0.10422e+01_rb,0.12481e+01_rb,0.14473e+01_rb,0.16693e+01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.16543e+01_rb,0.14485e+01_rb,0.12427e+01_rb,0.10370e+01_rb,0.84724e+00_rb, &\n        & 0.10105e+01_rb,0.12102e+01_rb,0.14035e+01_rb,0.16185e+01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.15884e+01_rb,0.13908e+01_rb,0.11932e+01_rb,0.99569e+00_rb,0.82331e+00_rb, &\n        & 0.98227e+00_rb,0.11764e+01_rb,0.13643e+01_rb,0.15734e+01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.21327e+01_rb,0.18670e+01_rb,0.16012e+01_rb,0.13355e+01_rb,0.11430e+01_rb, &\n        & 0.14062e+01_rb,0.16843e+01_rb,0.19535e+01_rb,0.22540e+01_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.20434e+01_rb,0.17888e+01_rb,0.15342e+01_rb,0.12796e+01_rb,0.10891e+01_rb, &\n        & 0.13377e+01_rb,0.16020e+01_rb,0.18582e+01_rb,0.21442e+01_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.19592e+01_rb,0.17151e+01_rb,0.14711e+01_rb,0.12270e+01_rb,0.10443e+01_rb, &\n        & 0.12854e+01_rb,0.15395e+01_rb,0.17855e+01_rb,0.20605e+01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.18795e+01_rb,0.16454e+01_rb,0.14112e+01_rb,0.11771e+01_rb,0.10093e+01_rb, &\n        & 0.12418e+01_rb,0.14873e+01_rb,0.17251e+01_rb,0.19905e+01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.18040e+01_rb,0.15793e+01_rb,0.13546e+01_rb,0.11298e+01_rb,0.97893e+00_rb, &\n        & 0.12029e+01_rb,0.14409e+01_rb,0.16715e+01_rb,0.19284e+01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.24263e+01_rb,0.21237e+01_rb,0.18212e+01_rb,0.15186e+01_rb,0.14038e+01_rb, &\n        & 0.17468e+01_rb,0.20923e+01_rb,0.24275e+01_rb,0.28010e+01_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.23266e+01_rb,0.20365e+01_rb,0.17464e+01_rb,0.14563e+01_rb,0.13334e+01_rb, &\n        & 0.16567e+01_rb,0.19843e+01_rb,0.23023e+01_rb,0.26565e+01_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.22311e+01_rb,0.19529e+01_rb,0.16747e+01_rb,0.13965e+01_rb,0.12741e+01_rb, &\n        & 0.15855e+01_rb,0.18989e+01_rb,0.22031e+01_rb,0.25421e+01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.21400e+01_rb,0.18731e+01_rb,0.16063e+01_rb,0.13394e+01_rb,0.12261e+01_rb, &\n        & 0.15261e+01_rb,0.18280e+01_rb,0.21210e+01_rb,0.24473e+01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.20537e+01_rb,0.17976e+01_rb,0.15415e+01_rb,0.12854e+01_rb,0.11844e+01_rb, &\n        & 0.14739e+01_rb,0.17653e+01_rb,0.20482e+01_rb,0.23631e+01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.27556e+01_rb,0.24117e+01_rb,0.20679e+01_rb,0.17241e+01_rb,0.17250e+01_rb, &\n        & 0.21531e+01_rb,0.25793e+01_rb,0.29930e+01_rb,0.34529e+01_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.26436e+01_rb,0.23137e+01_rb,0.19838e+01_rb,0.16540e+01_rb,0.16343e+01_rb, &\n        & 0.20375e+01_rb,0.24406e+01_rb,0.28326e+01_rb,0.32672e+01_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.25350e+01_rb,0.22187e+01_rb,0.19024e+01_rb,0.15861e+01_rb,0.15582e+01_rb, &\n        & 0.19443e+01_rb,0.23290e+01_rb,0.27026e+01_rb,0.31178e+01_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.24300e+01_rb,0.21267e+01_rb,0.18235e+01_rb,0.15203e+01_rb,0.14955e+01_rb, &\n        & 0.18662e+01_rb,0.22353e+01_rb,0.25942e+01_rb,0.29924e+01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.23355e+01_rb,0.20440e+01_rb,0.17526e+01_rb,0.14611e+01_rb,0.14399e+01_rb, &\n        & 0.17966e+01_rb,0.21521e+01_rb,0.24975e+01_rb,0.28809e+01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.30736e+01_rb,0.26899e+01_rb,0.23062e+01_rb,0.19287e+01_rb,0.20594e+01_rb, &\n        & 0.25707e+01_rb,0.30796e+01_rb,0.35755e+01_rb,0.41218e+01_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.29458e+01_rb,0.25780e+01_rb,0.22102e+01_rb,0.18490e+01_rb,0.19506e+01_rb, &\n        & 0.24353e+01_rb,0.29176e+01_rb,0.33867e+01_rb,0.39048e+01_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.28287e+01_rb,0.24755e+01_rb,0.21223e+01_rb,0.17723e+01_rb,0.18621e+01_rb, &\n        & 0.23252e+01_rb,0.27855e+01_rb,0.32334e+01_rb,0.37281e+01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.27181e+01_rb,0.23787e+01_rb,0.20393e+01_rb,0.17010e+01_rb,0.17848e+01_rb, &\n        & 0.22284e+01_rb,0.26698e+01_rb,0.30991e+01_rb,0.35730e+01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.26214e+01_rb,0.22941e+01_rb,0.19667e+01_rb,0.16394e+01_rb,0.17149e+01_rb, &\n        & 0.21409e+01_rb,0.25649e+01_rb,0.29778e+01_rb,0.34326e+01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.34457e+01_rb,0.30154e+01_rb,0.25850e+01_rb,0.22002e+01_rb,0.24421e+01_rb, &\n        & 0.30491e+01_rb,0.36532e+01_rb,0.42422e+01_rb,0.48881e+01_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.33132e+01_rb,0.28993e+01_rb,0.24855e+01_rb,0.21037e+01_rb,0.23175e+01_rb, &\n        & 0.28938e+01_rb,0.34673e+01_rb,0.40262e+01_rb,0.46397e+01_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.31843e+01_rb,0.27866e+01_rb,0.23888e+01_rb,0.20132e+01_rb,0.22107e+01_rb, &\n        & 0.27603e+01_rb,0.33070e+01_rb,0.38403e+01_rb,0.44248e+01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.30610e+01_rb,0.26787e+01_rb,0.22963e+01_rb,0.19289e+01_rb,0.21145e+01_rb, &\n        & 0.26402e+01_rb,0.31632e+01_rb,0.36735e+01_rb,0.42326e+01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.29533e+01_rb,0.25844e+01_rb,0.22155e+01_rb,0.18569e+01_rb,0.20264e+01_rb, &\n        & 0.25300e+01_rb,0.30314e+01_rb,0.35205e+01_rb,0.40560e+01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.38898e+01_rb,0.34039e+01_rb,0.29179e+01_rb,0.25320e+01_rb,0.28809e+01_rb, &\n        & 0.35965e+01_rb,0.43091e+01_rb,0.50055e+01_rb,0.57650e+01_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.37371e+01_rb,0.32702e+01_rb,0.28033e+01_rb,0.24146e+01_rb,0.27330e+01_rb, &\n        & 0.34120e+01_rb,0.40886e+01_rb,0.47494e+01_rb,0.54692e+01_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.35846e+01_rb,0.31367e+01_rb,0.26889e+01_rb,0.23047e+01_rb,0.26019e+01_rb, &\n        & 0.32482e+01_rb,0.38921e+01_rb,0.45212e+01_rb,0.52066e+01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.34450e+01_rb,0.30146e+01_rb,0.25842e+01_rb,0.22048e+01_rb,0.24829e+01_rb, &\n        & 0.31006e+01_rb,0.37153e+01_rb,0.43162e+01_rb,0.49694e+01_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.33226e+01_rb,0.29075e+01_rb,0.24923e+01_rb,0.21144e+01_rb,0.23741e+01_rb, &\n        & 0.29651e+01_rb,0.35532e+01_rb,0.41282e+01_rb,0.47532e+01_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.78344e-03_rb,0.81478e-03_rb,0.83713e-03_rb,0.85265e-03_rb,0.85991e-03_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.65374e-03_rb,0.67963e-03_rb,0.69840e-03_rb,0.71131e-03_rb,0.71719e-03_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.55587e-03_rb,0.57751e-03_rb,0.59343e-03_rb,0.60410e-03_rb,0.60993e-03_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.48145e-03_rb,0.49780e-03_rb,0.51251e-03_rb,0.52093e-03_rb,0.52706e-03_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.42610e-03_rb,0.43577e-03_rb,0.44892e-03_rb,0.45812e-03_rb,0.46352e-03_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.38503e-03_rb,0.38849e-03_rb,0.40094e-03_rb,0.41067e-03_rb,0.41529e-03_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.35025e-03_rb,0.34902e-03_rb,0.35803e-03_rb,0.36759e-03_rb,0.37429e-03_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.30557e-03_rb,0.30381e-03_rb,0.30983e-03_rb,0.31782e-03_rb,0.32429e-03_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.26346e-03_rb,0.26127e-03_rb,0.26616e-03_rb,0.27270e-03_rb,0.27830e-03_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.22630e-03_rb,0.22463e-03_rb,0.22867e-03_rb,0.23419e-03_rb,0.23829e-03_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.19498e-03_rb,0.19376e-03_rb,0.19644e-03_rb,0.20096e-03_rb,0.20404e-03_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.16839e-03_rb,0.16687e-03_rb,0.16820e-03_rb,0.17215e-03_rb,0.17490e-03_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.14494e-03_rb,0.14347e-03_rb,0.14334e-03_rb,0.14728e-03_rb,0.14954e-03_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.12363e-03_rb,0.12241e-03_rb,0.12233e-03_rb,0.12518e-03_rb,0.12767e-03_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.10560e-03_rb,0.10482e-03_rb,0.10446e-03_rb,0.10681e-03_rb,0.10897e-03_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.90453e-04_rb,0.89921e-04_rb,0.89199e-04_rb,0.91278e-04_rb,0.93235e-04_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.77854e-04_rb,0.77467e-04_rb,0.76947e-04_rb,0.77977e-04_rb,0.79713e-04_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.67346e-04_rb,0.67074e-04_rb,0.66981e-04_rb,0.67340e-04_rb,0.68453e-04_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.58739e-04_rb,0.58583e-04_rb,0.58517e-04_rb,0.58421e-04_rb,0.59277e-04_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.51671e-04_rb,0.51476e-04_rb,0.51254e-04_rb,0.51199e-04_rb,0.51510e-04_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.45523e-04_rb,0.45406e-04_rb,0.45028e-04_rb,0.44849e-04_rb,0.44977e-04_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.40256e-04_rb,0.40062e-04_rb,0.39751e-04_rb,0.39416e-04_rb,0.39181e-04_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.35762e-04_rb,0.35429e-04_rb,0.35245e-04_rb,0.34916e-04_rb,0.34484e-04_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.31776e-04_rb,0.31666e-04_rb,0.31200e-04_rb,0.31013e-04_rb,0.30768e-04_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.26934e-04_rb,0.26971e-04_rb,0.26615e-04_rb,0.26355e-04_rb,0.26214e-04_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.22652e-04_rb,0.22874e-04_rb,0.22686e-04_rb,0.22466e-04_rb,0.22266e-04_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.18970e-04_rb,0.19273e-04_rb,0.19385e-04_rb,0.19198e-04_rb,0.19016e-04_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.15533e-04_rb,0.15831e-04_rb,0.15964e-04_rb,0.15836e-04_rb,0.15700e-04_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.12668e-04_rb,0.12826e-04_rb,0.12999e-04_rb,0.13018e-04_rb,0.12872e-04_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.10356e-04_rb,0.10475e-04_rb,0.10620e-04_rb,0.10666e-04_rb,0.10580e-04_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.83551e-05_rb,0.84490e-05_rb,0.85217e-05_rb,0.86140e-05_rb,0.86044e-05_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.66829e-05_rb,0.68022e-05_rb,0.68791e-05_rb,0.69429e-05_rb,0.69314e-05_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.53860e-05_rb,0.54494e-05_rb,0.55341e-05_rb,0.55544e-05_rb,0.55761e-05_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.43207e-05_rb,0.43601e-05_rb,0.44477e-05_rb,0.44761e-05_rb,0.44727e-05_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.34852e-05_rb,0.34924e-05_rb,0.35555e-05_rb,0.35928e-05_rb,0.35957e-05_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.27913e-05_rb,0.28024e-05_rb,0.28395e-05_rb,0.28713e-05_rb,0.28836e-05_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.22267e-05_rb,0.22549e-05_rb,0.22736e-05_rb,0.22769e-05_rb,0.23083e-05_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.17814e-05_rb,0.18056e-05_rb,0.18272e-05_rb,0.18178e-05_rb,0.18340e-05_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.14202e-05_rb,0.14390e-05_rb,0.14605e-05_rb,0.14515e-05_rb,0.14607e-05_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.11328e-05_rb,0.11511e-05_rb,0.11629e-05_rb,0.11627e-05_rb,0.11618e-05_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.90478e-06_rb,0.91291e-06_rb,0.92251e-06_rb,0.92910e-06_rb,0.92898e-06_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.71737e-06_rb,0.72444e-06_rb,0.73271e-06_rb,0.73646e-06_rb,0.74079e-06_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.56522e-06_rb,0.57444e-06_rb,0.57690e-06_rb,0.58444e-06_rb,0.59006e-06_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.44522e-06_rb,0.45152e-06_rb,0.45592e-06_rb,0.46208e-06_rb,0.46721e-06_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.35045e-06_rb,0.35432e-06_rb,0.36035e-06_rb,0.36444e-06_rb,0.36942e-06_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.27513e-06_rb,0.27793e-06_rb,0.28330e-06_rb,0.28729e-06_rb,0.29229e-06_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.21608e-06_rb,0.21966e-06_rb,0.22301e-06_rb,0.22740e-06_rb,0.23129e-06_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.41669e-02_rb,0.42141e-02_rb,0.42434e-02_rb,0.42683e-02_rb,0.42755e-02_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.34875e-02_rb,0.35201e-02_rb,0.35377e-02_rb,0.35547e-02_rb,0.35629e-02_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.29417e-02_rb,0.29682e-02_rb,0.29797e-02_rb,0.29877e-02_rb,0.29948e-02_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.25072e-02_rb,0.25337e-02_rb,0.25373e-02_rb,0.25423e-02_rb,0.25464e-02_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.21640e-02_rb,0.21948e-02_rb,0.21974e-02_rb,0.21951e-02_rb,0.21930e-02_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.18910e-02_rb,0.19229e-02_rb,0.19301e-02_rb,0.19201e-02_rb,0.19153e-02_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.16495e-02_rb,0.16848e-02_rb,0.16944e-02_rb,0.16885e-02_rb,0.16779e-02_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.14018e-02_rb,0.14333e-02_rb,0.14424e-02_rb,0.14394e-02_rb,0.14287e-02_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.11832e-02_rb,0.12125e-02_rb,0.12189e-02_rb,0.12151e-02_rb,0.12082e-02_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.99669e-03_rb,0.10233e-02_rb,0.10268e-02_rb,0.10250e-02_rb,0.10191e-02_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.83734e-03_rb,0.86220e-03_rb,0.86642e-03_rb,0.86487e-03_rb,0.86054e-03_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.70349e-03_rb,0.72654e-03_rb,0.73243e-03_rb,0.73077e-03_rb,0.72754e-03_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.59070e-03_rb,0.61044e-03_rb,0.61929e-03_rb,0.61773e-03_rb,0.61583e-03_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.49716e-03_rb,0.51139e-03_rb,0.52115e-03_rb,0.52139e-03_rb,0.52023e-03_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.41822e-03_rb,0.42737e-03_rb,0.43808e-03_rb,0.43978e-03_rb,0.43884e-03_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.35061e-03_rb,0.35848e-03_rb,0.36841e-03_rb,0.37095e-03_rb,0.37053e-03_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.29391e-03_rb,0.30227e-03_rb,0.30912e-03_rb,0.31376e-03_rb,0.31382e-03_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.24878e-03_rb,0.25551e-03_rb,0.25990e-03_rb,0.26493e-03_rb,0.26717e-03_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.21146e-03_rb,0.21606e-03_rb,0.21973e-03_rb,0.22385e-03_rb,0.22711e-03_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.17989e-03_rb,0.18248e-03_rb,0.18678e-03_rb,0.18914e-03_rb,0.19265e-03_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.15377e-03_rb,0.15569e-03_rb,0.15798e-03_rb,0.16109e-03_rb,0.16313e-03_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.13129e-03_rb,0.13289e-03_rb,0.13431e-03_rb,0.13679e-03_rb,0.13869e-03_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.11225e-03_rb,0.11370e-03_rb,0.11480e-03_rb,0.11616e-03_rb,0.11774e-03_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.96722e-04_rb,0.97093e-04_rb,0.98641e-04_rb,0.99964e-04_rb,0.10029e-03_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.81278e-04_rb,0.81350e-04_rb,0.82442e-04_rb,0.83555e-04_rb,0.83990e-04_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.68481e-04_rb,0.68398e-04_rb,0.68899e-04_rb,0.69737e-04_rb,0.70187e-04_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.57588e-04_rb,0.57895e-04_rb,0.57814e-04_rb,0.58095e-04_rb,0.58861e-04_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.47541e-04_rb,0.47609e-04_rb,0.47587e-04_rb,0.47727e-04_rb,0.48149e-04_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.39099e-04_rb,0.39119e-04_rb,0.39164e-04_rb,0.39161e-04_rb,0.39530e-04_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.32129e-04_rb,0.32067e-04_rb,0.32113e-04_rb,0.32128e-04_rb,0.32332e-04_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.26339e-04_rb,0.26195e-04_rb,0.26218e-04_rb,0.26313e-04_rb,0.26301e-04_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.21510e-04_rb,0.21341e-04_rb,0.21297e-04_rb,0.21378e-04_rb,0.21395e-04_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.17530e-04_rb,0.17454e-04_rb,0.17341e-04_rb,0.17352e-04_rb,0.17454e-04_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.14267e-04_rb,0.14213e-04_rb,0.14118e-04_rb,0.14076e-04_rb,0.14192e-04_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.11510e-04_rb,0.11593e-04_rb,0.11522e-04_rb,0.11431e-04_rb,0.11494e-04_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.92607e-05_rb,0.93963e-05_rb,0.93931e-05_rb,0.93302e-05_rb,0.93175e-05_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.74566e-05_rb,0.75640e-05_rb,0.76551e-05_rb,0.76195e-05_rb,0.75706e-05_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.60069e-05_rb,0.60789e-05_rb,0.61866e-05_rb,0.62136e-05_rb,0.61878e-05_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.48719e-05_rb,0.49189e-05_rb,0.49852e-05_rb,0.50599e-05_rb,0.50406e-05_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.39542e-05_rb,0.39622e-05_rb,0.40023e-05_rb,0.40853e-05_rb,0.41134e-05_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.31898e-05_rb,0.32108e-05_rb,0.32348e-05_rb,0.32873e-05_rb,0.33341e-05_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.25786e-05_rb,0.26009e-05_rb,0.26192e-05_rb,0.26504e-05_rb,0.26983e-05_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.20942e-05_rb,0.21017e-05_rb,0.21274e-05_rb,0.21442e-05_rb,0.21775e-05_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.16959e-05_rb,0.17018e-05_rb,0.17251e-05_rb,0.17374e-05_rb,0.17575e-05_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.13662e-05_rb,0.13805e-05_rb,0.13926e-05_rb,0.14091e-05_rb,0.14210e-05_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.10989e-05_rb,0.11199e-05_rb,0.11269e-05_rb,0.11436e-05_rb,0.11502e-05_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.88647e-06_rb,0.91054e-06_rb,0.91770e-06_rb,0.92872e-06_rb,0.93619e-06_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.91432e-02_rb,0.90907e-02_rb,0.90565e-02_rb,0.89984e-02_rb,0.89385e-02_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.76455e-02_rb,0.75988e-02_rb,0.75709e-02_rb,0.75150e-02_rb,0.74448e-02_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.64231e-02_rb,0.63826e-02_rb,0.63449e-02_rb,0.62999e-02_rb,0.62412e-02_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.54475e-02_rb,0.53998e-02_rb,0.53630e-02_rb,0.53153e-02_rb,0.52574e-02_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.46876e-02_rb,0.46363e-02_rb,0.45869e-02_rb,0.45398e-02_rb,0.44911e-02_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.40806e-02_rb,0.40265e-02_rb,0.39670e-02_rb,0.39185e-02_rb,0.38714e-02_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.35897e-02_rb,0.35272e-02_rb,0.34695e-02_rb,0.34174e-02_rb,0.33721e-02_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.30557e-02_rb,0.30003e-02_rb,0.29518e-02_rb,0.29027e-02_rb,0.28623e-02_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.25840e-02_rb,0.25346e-02_rb,0.24907e-02_rb,0.24530e-02_rb,0.24134e-02_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.21784e-02_rb,0.21342e-02_rb,0.20972e-02_rb,0.20639e-02_rb,0.20310e-02_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.18415e-02_rb,0.17987e-02_rb,0.17683e-02_rb,0.17405e-02_rb,0.17162e-02_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.15599e-02_rb,0.15210e-02_rb,0.14940e-02_rb,0.14715e-02_rb,0.14516e-02_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.13214e-02_rb,0.12882e-02_rb,0.12631e-02_rb,0.12449e-02_rb,0.12269e-02_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11148e-02_rb,0.10885e-02_rb,0.10663e-02_rb,0.10485e-02_rb,0.10339e-02_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.94180e-03_rb,0.92291e-03_rb,0.90201e-03_rb,0.88582e-03_rb,0.87360e-03_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.79929e-03_rb,0.78315e-03_rb,0.76525e-03_rb,0.75093e-03_rb,0.73943e-03_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.68110e-03_rb,0.66580e-03_rb,0.65234e-03_rb,0.63866e-03_rb,0.62757e-03_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.57975e-03_rb,0.56820e-03_rb,0.55835e-03_rb,0.54581e-03_rb,0.53624e-03_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.49551e-03_rb,0.48804e-03_rb,0.47841e-03_rb,0.46871e-03_rb,0.45833e-03_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.42572e-03_rb,0.42052e-03_rb,0.41099e-03_rb,0.40377e-03_rb,0.39554e-03_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.36528e-03_rb,0.36135e-03_rb,0.35701e-03_rb,0.34948e-03_rb,0.34456e-03_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.31415e-03_rb,0.31283e-03_rb,0.30989e-03_rb,0.30612e-03_rb,0.30054e-03_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.27352e-03_rb,0.27102e-03_rb,0.26979e-03_rb,0.26826e-03_rb,0.26448e-03_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.23967e-03_rb,0.23742e-03_rb,0.23456e-03_rb,0.23474e-03_rb,0.23316e-03_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.20338e-03_rb,0.20142e-03_rb,0.19919e-03_rb,0.19875e-03_rb,0.19818e-03_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.17257e-03_rb,0.17079e-03_rb,0.16890e-03_rb,0.16818e-03_rb,0.16767e-03_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.14733e-03_rb,0.14508e-03_rb,0.14396e-03_rb,0.14263e-03_rb,0.14203e-03_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.12225e-03_rb,0.12069e-03_rb,0.11949e-03_rb,0.11833e-03_rb,0.11808e-03_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.10097e-03_rb,0.10002e-03_rb,0.98765e-04_rb,0.97895e-04_rb,0.97754e-04_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.83346e-04_rb,0.82796e-04_rb,0.81713e-04_rb,0.81007e-04_rb,0.80814e-04_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.68346e-04_rb,0.68043e-04_rb,0.67367e-04_rb,0.66543e-04_rb,0.66059e-04_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.55818e-04_rb,0.55703e-04_rb,0.55284e-04_rb,0.54584e-04_rb,0.54239e-04_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.45332e-04_rb,0.45541e-04_rb,0.45337e-04_rb,0.44929e-04_rb,0.44433e-04_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.36748e-04_rb,0.37223e-04_rb,0.37146e-04_rb,0.36884e-04_rb,0.36439e-04_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.29601e-04_rb,0.30289e-04_rb,0.30405e-04_rb,0.30257e-04_rb,0.29929e-04_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.23826e-04_rb,0.24579e-04_rb,0.24815e-04_rb,0.24762e-04_rb,0.24572e-04_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.19377e-04_rb,0.19814e-04_rb,0.20191e-04_rb,0.20227e-04_rb,0.20080e-04_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.15665e-04_rb,0.15965e-04_rb,0.16366e-04_rb,0.16467e-04_rb,0.16386e-04_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.12631e-04_rb,0.12915e-04_rb,0.13203e-04_rb,0.13389e-04_rb,0.13403e-04_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.10160e-04_rb,0.10402e-04_rb,0.10609e-04_rb,0.10858e-04_rb,0.10900e-04_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.81514e-05_rb,0.83717e-05_rb,0.85717e-05_rb,0.87255e-05_rb,0.88490e-05_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.65924e-05_rb,0.67623e-05_rb,0.69218e-05_rb,0.70363e-05_rb,0.71744e-05_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.53378e-05_rb,0.54823e-05_rb,0.56002e-05_rb,0.57079e-05_rb,0.58136e-05_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.43093e-05_rb,0.44306e-05_rb,0.45341e-05_rb,0.46443e-05_rb,0.47053e-05_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.34880e-05_rb,0.35826e-05_rb,0.36738e-05_rb,0.37492e-05_rb,0.38094e-05_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.28214e-05_rb,0.28911e-05_rb,0.29636e-05_rb,0.30269e-05_rb,0.30943e-05_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.23049e-05_rb,0.23610e-05_rb,0.24232e-05_rb,0.24708e-05_rb,0.25266e-05_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.16886e-01_rb,0.17177e-01_rb,0.17415e-01_rb,0.17613e-01_rb,0.17771e-01_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.14297e-01_rb,0.14572e-01_rb,0.14791e-01_rb,0.14925e-01_rb,0.15051e-01_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.12142e-01_rb,0.12342e-01_rb,0.12507e-01_rb,0.12640e-01_rb,0.12754e-01_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.10284e-01_rb,0.10422e-01_rb,0.10545e-01_rb,0.10662e-01_rb,0.10740e-01_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.87377e-02_rb,0.88415e-02_rb,0.89329e-02_rb,0.90175e-02_rb,0.90716e-02_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.74766e-02_rb,0.75366e-02_rb,0.76038e-02_rb,0.76818e-02_rb,0.77135e-02_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.64241e-02_rb,0.64546e-02_rb,0.65027e-02_rb,0.65449e-02_rb,0.65755e-02_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.54390e-02_rb,0.54528e-02_rb,0.54854e-02_rb,0.55046e-02_rb,0.55309e-02_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.45856e-02_rb,0.45888e-02_rb,0.46080e-02_rb,0.46219e-02_rb,0.46381e-02_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.38581e-02_rb,0.38555e-02_rb,0.38631e-02_rb,0.38756e-02_rb,0.38888e-02_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.32522e-02_rb,0.32442e-02_rb,0.32437e-02_rb,0.32522e-02_rb,0.32616e-02_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.27421e-02_rb,0.27302e-02_rb,0.27267e-02_rb,0.27311e-02_rb,0.27351e-02_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.23082e-02_rb,0.22984e-02_rb,0.22916e-02_rb,0.22928e-02_rb,0.22950e-02_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.19386e-02_rb,0.19299e-02_rb,0.19241e-02_rb,0.19234e-02_rb,0.19234e-02_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.16295e-02_rb,0.16227e-02_rb,0.16172e-02_rb,0.16132e-02_rb,0.16138e-02_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.13714e-02_rb,0.13653e-02_rb,0.13589e-02_rb,0.13555e-02_rb,0.13562e-02_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.11583e-02_rb,0.11513e-02_rb,0.11440e-02_rb,0.11416e-02_rb,0.11458e-02_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.98213e-03_rb,0.97362e-03_rb,0.96774e-03_rb,0.96738e-03_rb,0.97898e-03_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.83694e-03_rb,0.82733e-03_rb,0.82506e-03_rb,0.82584e-03_rb,0.83454e-03_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.71631e-03_rb,0.70972e-03_rb,0.70944e-03_rb,0.70782e-03_rb,0.71382e-03_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.62056e-03_rb,0.61607e-03_rb,0.61112e-03_rb,0.60974e-03_rb,0.61416e-03_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.54260e-03_rb,0.53530e-03_rb,0.53018e-03_rb,0.53196e-03_rb,0.53190e-03_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.47557e-03_rb,0.47060e-03_rb,0.46470e-03_rb,0.46463e-03_rb,0.46278e-03_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.42108e-03_rb,0.41716e-03_rb,0.41356e-03_rb,0.41052e-03_rb,0.40671e-03_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.36059e-03_rb,0.35753e-03_rb,0.35465e-03_rb,0.35204e-03_rb,0.34625e-03_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.30926e-03_rb,0.30682e-03_rb,0.30403e-03_rb,0.30126e-03_rb,0.29597e-03_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.26586e-03_rb,0.26397e-03_rb,0.26023e-03_rb,0.25654e-03_rb,0.25399e-03_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.22228e-03_rb,0.22028e-03_rb,0.21711e-03_rb,0.21418e-03_rb,0.21203e-03_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.18516e-03_rb,0.18277e-03_rb,0.18056e-03_rb,0.17797e-03_rb,0.17615e-03_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.15367e-03_rb,0.15191e-03_rb,0.15012e-03_rb,0.14803e-03_rb,0.14667e-03_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.12696e-03_rb,0.12546e-03_rb,0.12398e-03_rb,0.12239e-03_rb,0.12042e-03_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.10470e-03_rb,0.10323e-03_rb,0.10199e-03_rb,0.10082e-03_rb,0.99093e-04_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.86543e-04_rb,0.84786e-04_rb,0.83972e-04_rb,0.82789e-04_rb,0.81392e-04_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.71529e-04_rb,0.69963e-04_rb,0.68982e-04_rb,0.67996e-04_rb,0.66867e-04_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.59457e-04_rb,0.57707e-04_rb,0.56668e-04_rb,0.55899e-04_rb,0.54959e-04_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.49467e-04_rb,0.47679e-04_rb,0.46593e-04_rb,0.45887e-04_rb,0.45090e-04_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.40766e-04_rb,0.39435e-04_rb,0.38281e-04_rb,0.37548e-04_rb,0.37003e-04_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.33628e-04_rb,0.32753e-04_rb,0.31623e-04_rb,0.30893e-04_rb,0.30385e-04_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.27865e-04_rb,0.27055e-04_rb,0.26162e-04_rb,0.25458e-04_rb,0.24898e-04_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.22934e-04_rb,0.22328e-04_rb,0.21731e-04_rb,0.20990e-04_rb,0.20456e-04_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.18846e-04_rb,0.18445e-04_rb,0.17912e-04_rb,0.17357e-04_rb,0.16833e-04_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.15388e-04_rb,0.15212e-04_rb,0.14808e-04_rb,0.14414e-04_rb,0.13935e-04_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.12598e-04_rb,0.12543e-04_rb,0.12261e-04_rb,0.11957e-04_rb,0.11571e-04_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.10381e-04_rb,0.10344e-04_rb,0.10166e-04_rb,0.98775e-05_rb,0.96020e-05_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.85457e-05_rb,0.84639e-05_rb,0.83932e-05_rb,0.81757e-05_rb,0.79545e-05_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.70397e-05_rb,0.69486e-05_rb,0.69316e-05_rb,0.67696e-05_rb,0.65859e-05_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.58257e-05_rb,0.57596e-05_rb,0.57448e-05_rb,0.56300e-05_rb,0.54831e-05_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.33040e-01_rb,0.33623e-01_rb,0.34360e-01_rb,0.35360e-01_rb,0.36383e-01_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.28634e-01_rb,0.29145e-01_rb,0.29913e-01_rb,0.30773e-01_rb,0.31595e-01_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.24852e-01_rb,0.25387e-01_rb,0.26038e-01_rb,0.26736e-01_rb,0.27406e-01_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.21426e-01_rb,0.21995e-01_rb,0.22531e-01_rb,0.23082e-01_rb,0.23575e-01_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.18563e-01_rb,0.19011e-01_rb,0.19492e-01_rb,0.19940e-01_rb,0.20337e-01_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.16067e-01_rb,0.16476e-01_rb,0.16902e-01_rb,0.17235e-01_rb,0.17579e-01_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.13911e-01_rb,0.14318e-01_rb,0.14657e-01_rb,0.14999e-01_rb,0.15265e-01_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.11889e-01_rb,0.12220e-01_rb,0.12522e-01_rb,0.12793e-01_rb,0.13028e-01_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.10107e-01_rb,0.10365e-01_rb,0.10626e-01_rb,0.10840e-01_rb,0.11030e-01_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.85828e-02_rb,0.88037e-02_rb,0.90066e-02_rb,0.91828e-02_rb,0.93108e-02_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.72873e-02_rb,0.74698e-02_rb,0.76229e-02_rb,0.77606e-02_rb,0.78812e-02_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.61731e-02_rb,0.63486e-02_rb,0.64551e-02_rb,0.65686e-02_rb,0.66826e-02_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.52349e-02_rb,0.53827e-02_rb,0.54728e-02_rb,0.55581e-02_rb,0.56691e-02_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.44343e-02_rb,0.45615e-02_rb,0.46303e-02_rb,0.47140e-02_rb,0.48058e-02_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.37566e-02_rb,0.38599e-02_rb,0.39250e-02_rb,0.39996e-02_rb,0.40739e-02_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.31898e-02_rb,0.32700e-02_rb,0.33284e-02_rb,0.33863e-02_rb,0.34483e-02_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.27069e-02_rb,0.27638e-02_rb,0.28173e-02_rb,0.28668e-02_rb,0.29159e-02_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.22952e-02_rb,0.23414e-02_rb,0.23862e-02_rb,0.24319e-02_rb,0.25045e-02_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.19469e-02_rb,0.19866e-02_rb,0.20269e-02_rb,0.20617e-02_rb,0.21285e-02_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.16569e-02_rb,0.16912e-02_rb,0.17225e-02_rb,0.17537e-02_rb,0.18151e-02_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.14159e-02_rb,0.14407e-02_rb,0.14672e-02_rb,0.14987e-02_rb,0.15568e-02_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.12124e-02_rb,0.12314e-02_rb,0.12565e-02_rb,0.13096e-02_rb,0.13455e-02_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.10402e-02_rb,0.10574e-02_rb,0.10852e-02_rb,0.11323e-02_rb,0.11671e-02_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.89606e-03_rb,0.91393e-03_rb,0.93957e-03_rb,0.98258e-03_rb,0.10142e-02_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.75556e-03_rb,0.77347e-03_rb,0.79494e-03_rb,0.83337e-03_rb,0.86466e-03_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.63793e-03_rb,0.65386e-03_rb,0.67373e-03_rb,0.70925e-03_rb,0.73610e-03_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.53995e-03_rb,0.55394e-03_rb,0.57091e-03_rb,0.59316e-03_rb,0.62725e-03_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.44830e-03_rb,0.46041e-03_rb,0.47605e-03_rb,0.49517e-03_rb,0.52406e-03_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.37113e-03_rb,0.38143e-03_rb,0.39555e-03_rb,0.41230e-03_rb,0.43648e-03_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.30743e-03_rb,0.31617e-03_rb,0.32840e-03_rb,0.34246e-03_rb,0.36323e-03_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.25237e-03_rb,0.25981e-03_rb,0.27013e-03_rb,0.28179e-03_rb,0.29414e-03_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.20643e-03_rb,0.21247e-03_rb,0.22138e-03_rb,0.23093e-03_rb,0.24175e-03_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.16882e-03_rb,0.17379e-03_rb,0.18072e-03_rb,0.18917e-03_rb,0.19837e-03_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.13808e-03_rb,0.14140e-03_rb,0.14740e-03_rb,0.15462e-03_rb,0.16243e-03_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.11262e-03_rb,0.11523e-03_rb,0.12010e-03_rb,0.12571e-03_rb,0.13225e-03_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.91738e-04_rb,0.93816e-04_rb,0.97414e-04_rb,0.10204e-03_rb,0.10733e-03_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.74533e-04_rb,0.76356e-04_rb,0.78756e-04_rb,0.82697e-04_rb,0.86848e-04_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.60870e-04_rb,0.62211e-04_rb,0.64031e-04_rb,0.67056e-04_rb,0.70590e-04_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.49547e-04_rb,0.50786e-04_rb,0.52181e-04_rb,0.54428e-04_rb,0.57574e-04_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.40457e-04_rb,0.41364e-04_rb,0.42403e-04_rb,0.44095e-04_rb,0.46746e-04_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.33032e-04_rb,0.33540e-04_rb,0.34449e-04_rb,0.35762e-04_rb,0.37780e-04_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.27201e-04_rb,0.27411e-04_rb,0.28166e-04_rb,0.29168e-04_rb,0.30744e-04_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.22471e-04_rb,0.22532e-04_rb,0.23075e-04_rb,0.23887e-04_rb,0.25092e-04_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.18480e-04_rb,0.18516e-04_rb,0.18857e-04_rb,0.19555e-04_rb,0.20483e-04_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.15198e-04_rb,0.15262e-04_rb,0.15424e-04_rb,0.15989e-04_rb,0.16742e-04_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.12523e-04_rb,0.12562e-04_rb,0.12648e-04_rb,0.13089e-04_rb,0.13686e-04_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.10416e-04_rb,0.10433e-04_rb,0.10536e-04_rb,0.10919e-04_rb,0.11421e-04_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.69718e-01_rb,0.71167e-01_rb,0.72961e-01_rb,0.74885e-01_rb,0.77322e-01_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.62182e-01_rb,0.63649e-01_rb,0.65193e-01_rb,0.67193e-01_rb,0.69746e-01_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.55177e-01_rb,0.56711e-01_rb,0.58414e-01_rb,0.60422e-01_rb,0.62756e-01_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.48867e-01_rb,0.50234e-01_rb,0.52023e-01_rb,0.54055e-01_rb,0.56254e-01_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.43174e-01_rb,0.44610e-01_rb,0.46287e-01_rb,0.48302e-01_rb,0.50389e-01_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.38339e-01_rb,0.39749e-01_rb,0.41335e-01_rb,0.43237e-01_rb,0.45123e-01_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.34315e-01_rb,0.35543e-01_rb,0.37065e-01_rb,0.38754e-01_rb,0.40597e-01_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.30036e-01_rb,0.31291e-01_rb,0.32637e-01_rb,0.34202e-01_rb,0.35839e-01_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.26135e-01_rb,0.27343e-01_rb,0.28574e-01_rb,0.30000e-01_rb,0.31460e-01_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.22750e-01_rb,0.23832e-01_rb,0.25080e-01_rb,0.26299e-01_rb,0.27580e-01_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.19795e-01_rb,0.20915e-01_rb,0.22028e-01_rb,0.23060e-01_rb,0.24140e-01_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.17353e-01_rb,0.18346e-01_rb,0.19305e-01_rb,0.20238e-01_rb,0.21103e-01_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.15226e-01_rb,0.16064e-01_rb,0.16955e-01_rb,0.17722e-01_rb,0.18477e-01_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.13309e-01_rb,0.14087e-01_rb,0.14848e-01_rb,0.15498e-01_rb,0.16180e-01_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.11623e-01_rb,0.12295e-01_rb,0.12913e-01_rb,0.13525e-01_rb,0.14113e-01_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.10147e-01_rb,0.10710e-01_rb,0.11240e-01_rb,0.11795e-01_rb,0.12384e-01_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.87968e-02_rb,0.92904e-02_rb,0.97797e-02_rb,0.10288e-01_rb,0.10828e-01_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.76490e-02_rb,0.80771e-02_rb,0.85219e-02_rb,0.90152e-02_rb,0.97888e-02_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.66330e-02_rb,0.70376e-02_rb,0.74659e-02_rb,0.79113e-02_rb,0.86622e-02_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.58073e-02_rb,0.61697e-02_rb,0.65754e-02_rb,0.70309e-02_rb,0.77115e-02_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.51062e-02_rb,0.54682e-02_rb,0.58582e-02_rb,0.62737e-02_rb,0.69163e-02_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.45302e-02_rb,0.48855e-02_rb,0.52639e-02_rb,0.58227e-02_rb,0.62719e-02_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.40254e-02_rb,0.43599e-02_rb,0.47158e-02_rb,0.52732e-02_rb,0.57228e-02_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.35647e-02_rb,0.38837e-02_rb,0.42167e-02_rb,0.47705e-02_rb,0.52032e-02_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.30730e-02_rb,0.33561e-02_rb,0.36823e-02_rb,0.41868e-02_rb,0.45932e-02_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.26407e-02_rb,0.29052e-02_rb,0.32061e-02_rb,0.36781e-02_rb,0.40664e-02_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.22667e-02_rb,0.25156e-02_rb,0.28017e-02_rb,0.31173e-02_rb,0.36136e-02_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.19056e-02_rb,0.21267e-02_rb,0.23879e-02_rb,0.26789e-02_rb,0.31309e-02_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.15967e-02_rb,0.17952e-02_rb,0.20263e-02_rb,0.22865e-02_rb,0.27062e-02_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.13343e-02_rb,0.15081e-02_rb,0.17167e-02_rb,0.19538e-02_rb,0.23416e-02_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.10981e-02_rb,0.12492e-02_rb,0.14292e-02_rb,0.16430e-02_rb,0.19013e-02_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.89464e-03_rb,0.10267e-02_rb,0.11827e-02_rb,0.13698e-02_rb,0.16046e-02_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.72683e-03_rb,0.83985e-03_rb,0.97469e-03_rb,0.11376e-02_rb,0.13459e-02_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.58610e-03_rb,0.68242e-03_rb,0.79873e-03_rb,0.94079e-03_rb,0.11248e-02_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.46823e-03_rb,0.54958e-03_rb,0.64876e-03_rb,0.77111e-03_rb,0.93276e-03_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.37202e-03_rb,0.44089e-03_rb,0.52431e-03_rb,0.62811e-03_rb,0.76979e-03_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.29424e-03_rb,0.35087e-03_rb,0.42017e-03_rb,0.50926e-03_rb,0.63166e-03_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.23381e-03_rb,0.28036e-03_rb,0.33854e-03_rb,0.41547e-03_rb,0.52066e-03_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.18542e-03_rb,0.22410e-03_rb,0.27211e-03_rb,0.33806e-03_rb,0.42775e-03_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.14646e-03_rb,0.17824e-03_rb,0.21799e-03_rb,0.27400e-03_rb,0.34964e-03_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.11499e-03_rb,0.14049e-03_rb,0.17412e-03_rb,0.22038e-03_rb,0.28435e-03_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.91160e-04_rb,0.11217e-03_rb,0.13972e-03_rb,0.17793e-03_rb,0.23213e-03_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.72474e-04_rb,0.89606e-04_rb,0.11228e-03_rb,0.14368e-03_rb,0.18928e-03_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.57463e-04_rb,0.71291e-04_rb,0.89786e-04_rb,0.11554e-03_rb,0.15352e-03_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.45287e-04_rb,0.56571e-04_rb,0.71524e-04_rb,0.92319e-04_rb,0.12382e-03_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.35841e-04_rb,0.44939e-04_rb,0.57025e-04_rb,0.73710e-04_rb,0.99673e-04_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.29941e-04_rb,0.37721e-04_rb,0.48119e-04_rb,0.62420e-04_rb,0.85059e-04_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.16189e+00_rb,0.16561e+00_rb,0.16999e+00_rb,0.17514e+00_rb,0.18068e+00_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.14981e+00_rb,0.15416e+00_rb,0.15917e+00_rb,0.16420e+00_rb,0.16989e+00_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.13875e+00_rb,0.14297e+00_rb,0.14757e+00_rb,0.15249e+00_rb,0.15852e+00_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.12672e+00_rb,0.13073e+00_rb,0.13523e+00_rb,0.14037e+00_rb,0.14640e+00_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.11530e+00_rb,0.11958e+00_rb,0.12450e+00_rb,0.12975e+00_rb,0.13596e+00_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.10572e+00_rb,0.11005e+00_rb,0.11482e+00_rb,0.12031e+00_rb,0.12674e+00_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.97798e-01_rb,0.10221e+00_rb,0.10713e+00_rb,0.11251e+00_rb,0.11882e+00_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.88438e-01_rb,0.93059e-01_rb,0.98290e-01_rb,0.10406e+00_rb,0.11034e+00_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.79615e-01_rb,0.84383e-01_rb,0.89776e-01_rb,0.95707e-01_rb,0.10218e+00_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.71663e-01_rb,0.76568e-01_rb,0.81968e-01_rb,0.88106e-01_rb,0.94703e-01_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.64729e-01_rb,0.69601e-01_rb,0.75178e-01_rb,0.81445e-01_rb,0.88072e-01_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.58713e-01_rb,0.63692e-01_rb,0.69398e-01_rb,0.75609e-01_rb,0.82402e-01_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.53422e-01_rb,0.58504e-01_rb,0.64255e-01_rb,0.70582e-01_rb,0.77266e-01_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.48884e-01_rb,0.53907e-01_rb,0.59754e-01_rb,0.66093e-01_rb,0.72781e-01_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.44782e-01_rb,0.49959e-01_rb,0.55649e-01_rb,0.61937e-01_rb,0.68517e-01_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.41164e-01_rb,0.46305e-01_rb,0.52009e-01_rb,0.58205e-01_rb,0.64389e-01_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.37976e-01_rb,0.43033e-01_rb,0.48696e-01_rb,0.54470e-01_rb,0.60707e-01_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.35210e-01_rb,0.40258e-01_rb,0.45653e-01_rb,0.51435e-01_rb,0.59091e-01_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.32774e-01_rb,0.37557e-01_rb,0.43028e-01_rb,0.48762e-01_rb,0.56208e-01_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.30628e-01_rb,0.35555e-01_rb,0.40840e-01_rb,0.46513e-01_rb,0.53917e-01_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.29120e-01_rb,0.33908e-01_rb,0.39209e-01_rb,0.44801e-01_rb,0.52179e-01_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.27843e-01_rb,0.32610e-01_rb,0.37873e-01_rb,0.45101e-01_rb,0.51127e-01_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.26429e-01_rb,0.31201e-01_rb,0.36480e-01_rb,0.43796e-01_rb,0.49886e-01_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.24910e-01_rb,0.29603e-01_rb,0.34935e-01_rb,0.42317e-01_rb,0.48474e-01_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.22623e-01_rb,0.27186e-01_rb,0.32364e-01_rb,0.39709e-01_rb,0.45895e-01_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.20536e-01_rb,0.25035e-01_rb,0.30138e-01_rb,0.37341e-01_rb,0.43584e-01_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.18744e-01_rb,0.23143e-01_rb,0.28133e-01_rb,0.33754e-01_rb,0.41569e-01_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.16632e-01_rb,0.20751e-01_rb,0.25556e-01_rb,0.30972e-01_rb,0.38593e-01_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.14671e-01_rb,0.18541e-01_rb,0.23110e-01_rb,0.28292e-01_rb,0.35702e-01_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.12909e-01_rb,0.16573e-01_rb,0.20901e-01_rb,0.25885e-01_rb,0.32997e-01_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.11155e-01_rb,0.14521e-01_rb,0.18561e-01_rb,0.23268e-01_rb,0.28558e-01_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.95144e-02_rb,0.12576e-01_rb,0.16313e-01_rb,0.20662e-01_rb,0.25638e-01_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.80643e-02_rb,0.10847e-01_rb,0.14290e-01_rb,0.18347e-01_rb,0.23034e-01_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.67589e-02_rb,0.92659e-02_rb,0.12372e-01_rb,0.16082e-01_rb,0.20456e-01_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.55482e-02_rb,0.77474e-02_rb,0.10528e-01_rb,0.13920e-01_rb,0.17966e-01_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.45013e-02_rb,0.64175e-02_rb,0.88907e-02_rb,0.11958e-01_rb,0.15638e-01_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.36173e-02_rb,0.52743e-02_rb,0.74530e-02_rb,0.10200e-01_rb,0.13544e-01_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.29073e-02_rb,0.43372e-02_rb,0.62514e-02_rb,0.87078e-02_rb,0.11757e-01_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.23200e-02_rb,0.35429e-02_rb,0.52236e-02_rb,0.74160e-02_rb,0.10190e-01_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.18398e-02_rb,0.28704e-02_rb,0.43321e-02_rb,0.62743e-02_rb,0.87585e-02_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.14394e-02_rb,0.22999e-02_rb,0.35535e-02_rb,0.52615e-02_rb,0.74854e-02_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.11368e-02_rb,0.18545e-02_rb,0.29326e-02_rb,0.44372e-02_rb,0.64347e-02_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.89467e-03_rb,0.14935e-02_rb,0.24197e-02_rb,0.37410e-02_rb,0.55222e-02_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.69687e-03_rb,0.11894e-02_rb,0.19763e-02_rb,0.31286e-02_rb,0.47149e-02_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.53791e-03_rb,0.93747e-03_rb,0.15990e-02_rb,0.25976e-02_rb,0.39986e-02_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.41410e-03_rb,0.73971e-03_rb,0.12907e-02_rb,0.21482e-02_rb,0.33858e-02_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.35405e-03_rb,0.64717e-03_rb,0.11503e-02_rb,0.19466e-02_rb,0.31094e-02_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.45516e+00_rb,0.46955e+00_rb,0.48450e+00_rb,0.50029e+00_rb,0.51769e+00_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.43991e+00_rb,0.45312e+00_rb,0.46646e+00_rb,0.48116e+00_rb,0.49718e+00_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.42871e+00_rb,0.44246e+00_rb,0.45762e+00_rb,0.47406e+00_rb,0.49132e+00_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.40699e+00_rb,0.42153e+00_rb,0.43710e+00_rb,0.45468e+00_rb,0.47435e+00_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.38538e+00_rb,0.39940e+00_rb,0.41418e+00_rb,0.43146e+00_rb,0.45140e+00_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.36235e+00_rb,0.37741e+00_rb,0.39391e+00_rb,0.41121e+00_rb,0.43054e+00_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.34180e+00_rb,0.35677e+00_rb,0.37295e+00_rb,0.39070e+00_rb,0.41121e+00_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.31818e+00_rb,0.33243e+00_rb,0.34824e+00_rb,0.36683e+00_rb,0.38832e+00_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.29454e+00_rb,0.30892e+00_rb,0.32519e+00_rb,0.34434e+00_rb,0.36621e+00_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.27292e+00_rb,0.28819e+00_rb,0.30567e+00_rb,0.32553e+00_rb,0.34730e+00_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.25455e+00_rb,0.27053e+00_rb,0.28810e+00_rb,0.30845e+00_rb,0.33065e+00_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.23920e+00_rb,0.25523e+00_rb,0.27293e+00_rb,0.29370e+00_rb,0.31644e+00_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.22572e+00_rb,0.24152e+00_rb,0.26024e+00_rb,0.28092e+00_rb,0.30402e+00_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.21333e+00_rb,0.23053e+00_rb,0.24913e+00_rb,0.27069e+00_rb,0.29445e+00_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.20216e+00_rb,0.22006e+00_rb,0.23987e+00_rb,0.26172e+00_rb,0.28552e+00_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.19243e+00_rb,0.21106e+00_rb,0.23162e+00_rb,0.25373e+00_rb,0.27880e+00_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.18399e+00_rb,0.20352e+00_rb,0.22446e+00_rb,0.24815e+00_rb,0.27383e+00_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.17696e+00_rb,0.19707e+00_rb,0.21934e+00_rb,0.24428e+00_rb,0.27560e+00_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.17154e+00_rb,0.19276e+00_rb,0.21622e+00_rb,0.24297e+00_rb,0.27512e+00_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.16864e+00_rb,0.19074e+00_rb,0.21586e+00_rb,0.24341e+00_rb,0.27678e+00_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.16705e+00_rb,0.19103e+00_rb,0.21725e+00_rb,0.24571e+00_rb,0.27988e+00_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.16718e+00_rb,0.19214e+00_rb,0.21923e+00_rb,0.25236e+00_rb,0.28358e+00_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.16615e+00_rb,0.19194e+00_rb,0.21973e+00_rb,0.25386e+00_rb,0.28528e+00_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.16355e+00_rb,0.18981e+00_rb,0.21857e+00_rb,0.25318e+00_rb,0.28503e+00_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.15644e+00_rb,0.18272e+00_rb,0.21137e+00_rb,0.24627e+00_rb,0.27830e+00_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.14985e+00_rb,0.17574e+00_rb,0.20437e+00_rb,0.23950e+00_rb,0.27160e+00_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.14373e+00_rb,0.16918e+00_rb,0.19762e+00_rb,0.22814e+00_rb,0.26522e+00_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.13479e+00_rb,0.15968e+00_rb,0.18756e+00_rb,0.21775e+00_rb,0.25463e+00_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.12605e+00_rb,0.15045e+00_rb,0.17752e+00_rb,0.20726e+00_rb,0.24367e+00_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.11784e+00_rb,0.14153e+00_rb,0.16784e+00_rb,0.19712e+00_rb,0.23353e+00_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.10839e+00_rb,0.13122e+00_rb,0.15696e+00_rb,0.18528e+00_rb,0.21641e+00_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.98772e-01_rb,0.12078e+00_rb,0.14549e+00_rb,0.17313e+00_rb,0.20344e+00_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.89757e-01_rb,0.11096e+00_rb,0.13484e+00_rb,0.16135e+00_rb,0.19086e+00_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.80754e-01_rb,0.10111e+00_rb,0.12397e+00_rb,0.14951e+00_rb,0.17812e+00_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.71551e-01_rb,0.90848e-01_rb,0.11265e+00_rb,0.13712e+00_rb,0.16456e+00_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.63023e-01_rb,0.81188e-01_rb,0.10192e+00_rb,0.12530e+00_rb,0.15155e+00_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.55112e-01_rb,0.71966e-01_rb,0.91627e-01_rb,0.11386e+00_rb,0.13887e+00_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.48148e-01_rb,0.63904e-01_rb,0.82545e-01_rb,0.10380e+00_rb,0.12775e+00_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.42077e-01_rb,0.56742e-01_rb,0.74219e-01_rb,0.94436e-01_rb,0.11735e+00_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.36406e-01_rb,0.49929e-01_rb,0.66400e-01_rb,0.85557e-01_rb,0.10751e+00_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.31162e-01_rb,0.43645e-01_rb,0.58971e-01_rb,0.77049e-01_rb,0.97772e-01_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.26848e-01_rb,0.38389e-01_rb,0.52700e-01_rb,0.69937e-01_rb,0.89664e-01_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.23145e-01_rb,0.33793e-01_rb,0.47177e-01_rb,0.63590e-01_rb,0.82440e-01_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.19764e-01_rb,0.29522e-01_rb,0.42050e-01_rb,0.57472e-01_rb,0.75623e-01_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.16713e-01_rb,0.25602e-01_rb,0.37259e-01_rb,0.51705e-01_rb,0.68976e-01_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.14134e-01_rb,0.22215e-01_rb,0.32983e-01_rb,0.46579e-01_rb,0.62982e-01_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.13103e-01_rb,0.20874e-01_rb,0.31397e-01_rb,0.44700e-01_rb,0.60881e-01_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.30563e+01_rb,0.31744e+01_rb,0.32842e+01_rb,0.33901e+01_rb,0.34937e+01_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.27752e+01_rb,0.28869e+01_rb,0.29933e+01_rb,0.30958e+01_rb,0.31932e+01_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.25099e+01_rb,0.26164e+01_rb,0.27185e+01_rb,0.28161e+01_rb,0.29094e+01_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.23062e+01_rb,0.23985e+01_rb,0.24887e+01_rb,0.25791e+01_rb,0.26657e+01_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.21996e+01_rb,0.22783e+01_rb,0.23521e+01_rb,0.24248e+01_rb,0.25028e+01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.22125e+01_rb,0.22932e+01_rb,0.23665e+01_rb,0.24375e+01_rb,0.25051e+01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.22641e+01_rb,0.23491e+01_rb,0.24239e+01_rb,0.24973e+01_rb,0.25657e+01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.22472e+01_rb,0.23357e+01_rb,0.24204e+01_rb,0.24964e+01_rb,0.25675e+01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.21851e+01_rb,0.22830e+01_rb,0.23690e+01_rb,0.24562e+01_rb,0.25370e+01_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.21175e+01_rb,0.22142e+01_rb,0.23108e+01_rb,0.24049e+01_rb,0.24949e+01_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.20447e+01_rb,0.21452e+01_rb,0.22435e+01_rb,0.23385e+01_rb,0.24298e+01_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.19721e+01_rb,0.20737e+01_rb,0.21717e+01_rb,0.22760e+01_rb,0.23715e+01_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.18957e+01_rb,0.20036e+01_rb,0.21100e+01_rb,0.22176e+01_rb,0.23221e+01_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.18288e+01_rb,0.19378e+01_rb,0.20515e+01_rb,0.21609e+01_rb,0.22728e+01_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.17692e+01_rb,0.18810e+01_rb,0.19951e+01_rb,0.21151e+01_rb,0.22361e+01_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.17168e+01_rb,0.18338e+01_rb,0.19558e+01_rb,0.20789e+01_rb,0.22051e+01_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.16702e+01_rb,0.17936e+01_rb,0.19235e+01_rb,0.20524e+01_rb,0.21850e+01_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.16394e+01_rb,0.17677e+01_rb,0.19029e+01_rb,0.20369e+01_rb,0.21882e+01_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.16228e+01_rb,0.17523e+01_rb,0.18896e+01_rb,0.20262e+01_rb,0.21815e+01_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.16178e+01_rb,0.17489e+01_rb,0.18859e+01_rb,0.20233e+01_rb,0.21838e+01_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.16221e+01_rb,0.17529e+01_rb,0.18876e+01_rb,0.20327e+01_rb,0.21960e+01_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.16321e+01_rb,0.17688e+01_rb,0.19069e+01_rb,0.20650e+01_rb,0.22191e+01_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.16388e+01_rb,0.17830e+01_rb,0.19261e+01_rb,0.20887e+01_rb,0.22365e+01_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.16423e+01_rb,0.17895e+01_rb,0.19390e+01_rb,0.21032e+01_rb,0.22561e+01_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.16080e+01_rb,0.17565e+01_rb,0.19076e+01_rb,0.20741e+01_rb,0.22287e+01_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.15745e+01_rb,0.17245e+01_rb,0.18721e+01_rb,0.20419e+01_rb,0.21969e+01_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.15386e+01_rb,0.16919e+01_rb,0.18410e+01_rb,0.19923e+01_rb,0.21638e+01_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.14840e+01_rb,0.16355e+01_rb,0.17855e+01_rb,0.19337e+01_rb,0.21026e+01_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.14260e+01_rb,0.15758e+01_rb,0.17241e+01_rb,0.18746e+01_rb,0.20398e+01_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.13688e+01_rb,0.15162e+01_rb,0.16646e+01_rb,0.18157e+01_rb,0.19780e+01_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.13011e+01_rb,0.14473e+01_rb,0.15936e+01_rb,0.17402e+01_rb,0.18823e+01_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.12278e+01_rb,0.13710e+01_rb,0.15157e+01_rb,0.16568e+01_rb,0.17952e+01_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.11558e+01_rb,0.12957e+01_rb,0.14361e+01_rb,0.15731e+01_rb,0.17094e+01_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.10820e+01_rb,0.12147e+01_rb,0.13532e+01_rb,0.14890e+01_rb,0.16181e+01_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.10024e+01_rb,0.11346e+01_rb,0.12669e+01_rb,0.14002e+01_rb,0.15260e+01_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.92524e+00_rb,0.10524e+01_rb,0.11804e+01_rb,0.13068e+01_rb,0.14296e+01_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.84698e+00_rb,0.96805e+00_rb,0.10902e+01_rb,0.12100e+01_rb,0.13299e+01_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.78084e+00_rb,0.89928e+00_rb,0.10161e+01_rb,0.11323e+01_rb,0.12472e+01_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.72222e+00_rb,0.83480e+00_rb,0.94748e+00_rb,0.10626e+01_rb,0.11740e+01_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.66260e+00_rb,0.77045e+00_rb,0.88348e+00_rb,0.99181e+00_rb,0.10995e+01_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.60516e+00_rb,0.71083e+00_rb,0.81698e+00_rb,0.91863e+00_rb,0.10219e+01_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.56176e+00_rb,0.66472e+00_rb,0.77054e+00_rb,0.87249e+00_rb,0.97306e+00_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.52563e+00_rb,0.63037e+00_rb,0.73497e+00_rb,0.83878e+00_rb,0.93923e+00_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.49056e+00_rb,0.59429e+00_rb,0.69788e+00_rb,0.80509e+00_rb,0.90615e+00_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.45575e+00_rb,0.55861e+00_rb,0.66303e+00_rb,0.76942e+00_rb,0.87211e+00_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.42419e+00_rb,0.52609e+00_rb,0.63048e+00_rb,0.73708e+00_rb,0.84331e+00_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.42340e+00_rb,0.52953e+00_rb,0.63843e+00_rb,0.74879e+00_rb,0.86046e+00_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.14973e+02_rb,0.15466e+02_rb,0.15907e+02_rb,0.16294e+02_rb,0.16648e+02_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.13327e+02_rb,0.13717e+02_rb,0.14036e+02_rb,0.14348e+02_rb,0.14658e+02_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.12219e+02_rb,0.12428e+02_rb,0.12649e+02_rb,0.12810e+02_rb,0.12959e+02_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.11245e+02_rb,0.11501e+02_rb,0.11701e+02_rb,0.11817e+02_rb,0.11948e+02_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.96706e+01_rb,0.99707e+01_rb,0.10257e+02_rb,0.10540e+02_rb,0.10718e+02_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.83018e+01_rb,0.83446e+01_rb,0.84207e+01_rb,0.85262e+01_rb,0.86783e+01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.82250e+01_rb,0.81929e+01_rb,0.82337e+01_rb,0.82572e+01_rb,0.83177e+01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.81684e+01_rb,0.81782e+01_rb,0.82244e+01_rb,0.82765e+01_rb,0.82985e+01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.82586e+01_rb,0.83055e+01_rb,0.84017e+01_rb,0.83815e+01_rb,0.83594e+01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.83686e+01_rb,0.84604e+01_rb,0.85363e+01_rb,0.84786e+01_rb,0.84786e+01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.84301e+01_rb,0.85903e+01_rb,0.87569e+01_rb,0.87953e+01_rb,0.87965e+01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.85690e+01_rb,0.88097e+01_rb,0.90359e+01_rb,0.90994e+01_rb,0.92201e+01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.87852e+01_rb,0.90719e+01_rb,0.92672e+01_rb,0.94098e+01_rb,0.95600e+01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.88651e+01_rb,0.92334e+01_rb,0.94525e+01_rb,0.97256e+01_rb,0.98986e+01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.88645e+01_rb,0.92932e+01_rb,0.96152e+01_rb,0.98392e+01_rb,0.10037e+02_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.88548e+01_rb,0.93070e+01_rb,0.96176e+01_rb,0.99813e+01_rb,0.10238e+02_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.88198e+01_rb,0.92265e+01_rb,0.96024e+01_rb,0.99285e+01_rb,0.10232e+02_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.87818e+01_rb,0.92083e+01_rb,0.95579e+01_rb,0.98976e+01_rb,0.10208e+02_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.86036e+01_rb,0.90621e+01_rb,0.94967e+01_rb,0.98500e+01_rb,0.10159e+02_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.84748e+01_rb,0.89960e+01_rb,0.94428e+01_rb,0.98336e+01_rb,0.10196e+02_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.84172e+01_rb,0.89420e+01_rb,0.94383e+01_rb,0.98344e+01_rb,0.10060e+02_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.84605e+01_rb,0.89751e+01_rb,0.94683e+01_rb,0.98852e+01_rb,0.10023e+02_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.84589e+01_rb,0.89233e+01_rb,0.94002e+01_rb,0.98511e+01_rb,0.10024e+02_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.84558e+01_rb,0.89580e+01_rb,0.93747e+01_rb,0.98030e+01_rb,0.10000e+02_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.82385e+01_rb,0.87614e+01_rb,0.91541e+01_rb,0.95514e+01_rb,0.97363e+01_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.80132e+01_rb,0.84437e+01_rb,0.89304e+01_rb,0.92902e+01_rb,0.94811e+01_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.78203e+01_rb,0.81981e+01_rb,0.85539e+01_rb,0.89689e+01_rb,0.90927e+01_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.75978e+01_rb,0.79610e+01_rb,0.82423e+01_rb,0.86095e+01_rb,0.88190e+01_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.73029e+01_rb,0.76481e+01_rb,0.79708e+01_rb,0.82445e+01_rb,0.84426e+01_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.70166e+01_rb,0.73754e+01_rb,0.76378e+01_rb,0.78862e+01_rb,0.80985e+01_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.66293e+01_rb,0.69504e+01_rb,0.72276e+01_rb,0.75120e+01_rb,0.77099e+01_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.62312e+01_rb,0.65696e+01_rb,0.68647e+01_rb,0.71226e+01_rb,0.73305e+01_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.58229e+01_rb,0.61620e+01_rb,0.64682e+01_rb,0.67341e+01_rb,0.69070e+01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.53657e+01_rb,0.57492e+01_rb,0.60377e+01_rb,0.63031e+01_rb,0.64992e+01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.50350e+01_rb,0.53678e+01_rb,0.56656e+01_rb,0.59201e+01_rb,0.61262e+01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.46566e+01_rb,0.49901e+01_rb,0.52633e+01_rb,0.54964e+01_rb,0.57537e+01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.42801e+01_rb,0.46217e+01_rb,0.49093e+01_rb,0.51104e+01_rb,0.53644e+01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.39613e+01_rb,0.43120e+01_rb,0.45848e+01_rb,0.48588e+01_rb,0.50774e+01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.37006e+01_rb,0.40662e+01_rb,0.43615e+01_rb,0.46264e+01_rb,0.48701e+01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.34485e+01_rb,0.37934e+01_rb,0.40667e+01_rb,0.43544e+01_rb,0.46481e+01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.31594e+01_rb,0.35032e+01_rb,0.37934e+01_rb,0.41156e+01_rb,0.44077e+01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.29800e+01_rb,0.33284e+01_rb,0.36333e+01_rb,0.39624e+01_rb,0.42528e+01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.28569e+01_rb,0.32159e+01_rb,0.35391e+01_rb,0.38186e+01_rb,0.41402e+01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.26907e+01_rb,0.31071e+01_rb,0.34476e+01_rb,0.36941e+01_rb,0.40212e+01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.25638e+01_rb,0.29869e+01_rb,0.33345e+01_rb,0.36081e+01_rb,0.38859e+01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.24665e+01_rb,0.28708e+01_rb,0.32402e+01_rb,0.35331e+01_rb,0.37851e+01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.25432e+01_rb,0.29855e+01_rb,0.33662e+01_rb,0.37020e+01_rb,0.39522e+01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.31099e+02_rb,0.31647e+02_rb,0.32241e+02_rb,0.32842e+02_rb,0.33417e+02_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.27698e+02_rb,0.28253e+02_rb,0.28859e+02_rb,0.29460e+02_rb,0.30083e+02_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.24330e+02_rb,0.24945e+02_rb,0.25542e+02_rb,0.26234e+02_rb,0.26922e+02_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.21190e+02_rb,0.21758e+02_rb,0.22384e+02_rb,0.23019e+02_rb,0.23628e+02_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.18967e+02_rb,0.19413e+02_rb,0.19858e+02_rb,0.20261e+02_rb,0.20672e+02_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.16374e+02_rb,0.16952e+02_rb,0.17497e+02_rb,0.17964e+02_rb,0.18478e+02_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.13248e+02_rb,0.13545e+02_rb,0.13847e+02_rb,0.14297e+02_rb,0.14705e+02_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.12757e+02_rb,0.12785e+02_rb,0.12667e+02_rb,0.12601e+02_rb,0.12612e+02_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.12844e+02_rb,0.12624e+02_rb,0.12433e+02_rb,0.12193e+02_rb,0.12175e+02_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.12738e+02_rb,0.12567e+02_rb,0.12225e+02_rb,0.12063e+02_rb,0.11980e+02_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.12815e+02_rb,0.12660e+02_rb,0.12272e+02_rb,0.12108e+02_rb,0.12066e+02_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.13079e+02_rb,0.12972e+02_rb,0.12651e+02_rb,0.12388e+02_rb,0.12367e+02_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.13341e+02_rb,0.13256e+02_rb,0.13023e+02_rb,0.12848e+02_rb,0.12659e+02_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.13512e+02_rb,0.13453e+02_rb,0.13443e+02_rb,0.13113e+02_rb,0.13141e+02_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.13706e+02_rb,0.13750e+02_rb,0.13824e+02_rb,0.13564e+02_rb,0.13665e+02_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.13979e+02_rb,0.14080e+02_rb,0.14203e+02_rb,0.13858e+02_rb,0.13981e+02_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.13934e+02_rb,0.14086e+02_rb,0.14156e+02_rb,0.14057e+02_rb,0.14114e+02_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.13981e+02_rb,0.13996e+02_rb,0.13975e+02_rb,0.14010e+02_rb,0.14196e+02_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.13896e+02_rb,0.13857e+02_rb,0.13654e+02_rb,0.13807e+02_rb,0.13871e+02_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.13655e+02_rb,0.13646e+02_rb,0.13416e+02_rb,0.13538e+02_rb,0.13488e+02_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.13398e+02_rb,0.13279e+02_rb,0.13235e+02_rb,0.13164e+02_rb,0.13195e+02_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.13280e+02_rb,0.13155e+02_rb,0.13035e+02_rb,0.13095e+02_rb,0.13023e+02_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.13174e+02_rb,0.13038e+02_rb,0.12951e+02_rb,0.12819e+02_rb,0.12932e+02_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.13159e+02_rb,0.12953e+02_rb,0.12943e+02_rb,0.12899e+02_rb,0.13077e+02_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.12968e+02_rb,0.12722e+02_rb,0.12741e+02_rb,0.12684e+02_rb,0.12881e+02_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.12648e+02_rb,0.12436e+02_rb,0.12390e+02_rb,0.12534e+02_rb,0.12593e+02_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.12145e+02_rb,0.12036e+02_rb,0.12198e+02_rb,0.12171e+02_rb,0.12374e+02_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.11784e+02_rb,0.11714e+02_rb,0.11852e+02_rb,0.11995e+02_rb,0.12020e+02_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.11419e+02_rb,0.11429e+02_rb,0.11554e+02_rb,0.11799e+02_rb,0.11809e+02_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.11076e+02_rb,0.11047e+02_rb,0.11287e+02_rb,0.11460e+02_rb,0.11610e+02_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.10635e+02_rb,0.10772e+02_rb,0.10970e+02_rb,0.11110e+02_rb,0.11339e+02_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.10081e+02_rb,0.10347e+02_rb,0.10495e+02_rb,0.10710e+02_rb,0.10998e+02_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.95493e+01_rb,0.97720e+01_rb,0.10013e+02_rb,0.10318e+02_rb,0.10626e+02_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.91901e+01_rb,0.92815e+01_rb,0.95285e+01_rb,0.99399e+01_rb,0.10216e+02_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.86762e+01_rb,0.88384e+01_rb,0.91370e+01_rb,0.95143e+01_rb,0.99290e+01_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.80969e+01_rb,0.84350e+01_rb,0.87222e+01_rb,0.91427e+01_rb,0.95881e+01_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.74881e+01_rb,0.78692e+01_rb,0.82390e+01_rb,0.88564e+01_rb,0.92509e+01_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.70193e+01_rb,0.74373e+01_rb,0.79400e+01_rb,0.84415e+01_rb,0.90721e+01_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.66370e+01_rb,0.71214e+01_rb,0.76381e+01_rb,0.81180e+01_rb,0.89263e+01_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.62242e+01_rb,0.68097e+01_rb,0.73447e+01_rb,0.79515e+01_rb,0.88951e+01_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.58238e+01_rb,0.63775e+01_rb,0.69942e+01_rb,0.79247e+01_rb,0.89454e+01_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.55499e+01_rb,0.61225e+01_rb,0.67115e+01_rb,0.76390e+01_rb,0.86771e+01_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.53976e+01_rb,0.59288e+01_rb,0.64661e+01_rb,0.72387e+01_rb,0.82482e+01_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.52864e+01_rb,0.57486e+01_rb,0.62663e+01_rb,0.68889e+01_rb,0.78153e+01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.51174e+01_rb,0.55624e+01_rb,0.60808e+01_rb,0.66051e+01_rb,0.73800e+01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.49368e+01_rb,0.54350e+01_rb,0.59533e+01_rb,0.64218e+01_rb,0.70057e+01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.50812e+01_rb,0.56369e+01_rb,0.60928e+01_rb,0.64990e+01_rb,0.70265e+01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.69704e+02_rb,0.70627e+02_rb,0.71228e+02_rb,0.71788e+02_rb,0.72437e+02_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.64379e+02_rb,0.65225e+02_rb,0.66016e+02_rb,0.66901e+02_rb,0.67785e+02_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.58655e+02_rb,0.59644e+02_rb,0.60731e+02_rb,0.61788e+02_rb,0.62973e+02_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.53041e+02_rb,0.54211e+02_rb,0.55406e+02_rb,0.56764e+02_rb,0.58230e+02_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.47145e+02_rb,0.48549e+02_rb,0.50104e+02_rb,0.51815e+02_rb,0.53646e+02_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.41118e+02_rb,0.42628e+02_rb,0.44372e+02_rb,0.46307e+02_rb,0.48319e+02_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.35042e+02_rb,0.36608e+02_rb,0.38443e+02_rb,0.40582e+02_rb,0.43018e+02_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.28625e+02_rb,0.30224e+02_rb,0.32288e+02_rb,0.34780e+02_rb,0.37414e+02_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.24017e+02_rb,0.25409e+02_rb,0.27330e+02_rb,0.29600e+02_rb,0.32108e+02_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.21793e+02_rb,0.22620e+02_rb,0.24096e+02_rb,0.26102e+02_rb,0.28497e+02_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.21413e+02_rb,0.21831e+02_rb,0.22594e+02_rb,0.23606e+02_rb,0.25745e+02_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.21009e+02_rb,0.21418e+02_rb,0.22293e+02_rb,0.23189e+02_rb,0.24234e+02_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.21184e+02_rb,0.21661e+02_rb,0.22476e+02_rb,0.23334e+02_rb,0.24471e+02_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.21853e+02_rb,0.22488e+02_rb,0.23205e+02_rb,0.24024e+02_rb,0.25192e+02_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.22275e+02_rb,0.22928e+02_rb,0.23659e+02_rb,0.24768e+02_rb,0.25734e+02_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.22649e+02_rb,0.23413e+02_rb,0.24091e+02_rb,0.25549e+02_rb,0.26436e+02_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.22704e+02_rb,0.23483e+02_rb,0.24191e+02_rb,0.25460e+02_rb,0.26653e+02_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.22666e+02_rb,0.23444e+02_rb,0.24530e+02_rb,0.25500e+02_rb,0.26652e+02_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.22235e+02_rb,0.23247e+02_rb,0.24248e+02_rb,0.25076e+02_rb,0.26466e+02_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.22226e+02_rb,0.22827e+02_rb,0.24083e+02_rb,0.25139e+02_rb,0.26181e+02_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.22210e+02_rb,0.22941e+02_rb,0.24126e+02_rb,0.25269e+02_rb,0.26783e+02_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.22243e+02_rb,0.23077e+02_rb,0.24337e+02_rb,0.25761e+02_rb,0.27799e+02_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.22396e+02_rb,0.23583e+02_rb,0.24898e+02_rb,0.26594e+02_rb,0.29392e+02_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.22982e+02_rb,0.24125e+02_rb,0.25363e+02_rb,0.27311e+02_rb,0.30508e+02_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.22918e+02_rb,0.23937e+02_rb,0.25281e+02_rb,0.27602e+02_rb,0.31235e+02_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.22758e+02_rb,0.23720e+02_rb,0.25240e+02_rb,0.28261e+02_rb,0.32012e+02_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.22553e+02_rb,0.23629e+02_rb,0.25559e+02_rb,0.29164e+02_rb,0.32971e+02_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.21913e+02_rb,0.23010e+02_rb,0.25397e+02_rb,0.28931e+02_rb,0.33000e+02_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.21428e+02_rb,0.22543e+02_rb,0.25193e+02_rb,0.28521e+02_rb,0.32655e+02_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.20806e+02_rb,0.22057e+02_rb,0.24895e+02_rb,0.28307e+02_rb,0.32344e+02_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.20230e+02_rb,0.21402e+02_rb,0.24438e+02_rb,0.27778e+02_rb,0.31742e+02_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.19439e+02_rb,0.20816e+02_rb,0.24038e+02_rb,0.27280e+02_rb,0.31112e+02_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.18615e+02_rb,0.20644e+02_rb,0.23787e+02_rb,0.26906e+02_rb,0.30508e+02_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.17932e+02_rb,0.20436e+02_rb,0.23444e+02_rb,0.26514e+02_rb,0.30043e+02_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.17388e+02_rb,0.20062e+02_rb,0.22865e+02_rb,0.25992e+02_rb,0.29187e+02_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.17144e+02_rb,0.19562e+02_rb,0.22419e+02_rb,0.25556e+02_rb,0.28578e+02_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.16956e+02_rb,0.19439e+02_rb,0.22133e+02_rb,0.25135e+02_rb,0.28141e+02_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.16529e+02_rb,0.19034e+02_rb,0.21605e+02_rb,0.24563e+02_rb,0.27331e+02_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.15953e+02_rb,0.18522e+02_rb,0.21071e+02_rb,0.23856e+02_rb,0.26389e+02_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.15476e+02_rb,0.18037e+02_rb,0.20576e+02_rb,0.23092e+02_rb,0.25303e+02_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.14987e+02_rb,0.17619e+02_rb,0.20150e+02_rb,0.22182e+02_rb,0.24323e+02_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.14316e+02_rb,0.16769e+02_rb,0.19340e+02_rb,0.21295e+02_rb,0.23328e+02_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.13478e+02_rb,0.15723e+02_rb,0.18284e+02_rb,0.20497e+02_rb,0.22282e+02_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.12615e+02_rb,0.14717e+02_rb,0.17222e+02_rb,0.19626e+02_rb,0.21412e+02_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.11789e+02_rb,0.13910e+02_rb,0.16111e+02_rb,0.18559e+02_rb,0.20605e+02_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.10935e+02_rb,0.12994e+02_rb,0.15023e+02_rb,0.17386e+02_rb,0.19630e+02_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.10847e+02_rb,0.11985e+02_rb,0.13699e+02_rb,0.15922e+02_rb,0.18130e+02_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.15243e+03_rb,0.15414e+03_rb,0.15604e+03_rb,0.15731e+03_rb,0.15805e+03_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.15017e+03_rb,0.15285e+03_rb,0.15509e+03_rb,0.15662e+03_rb,0.15764e+03_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.14701e+03_rb,0.15032e+03_rb,0.15250e+03_rb,0.15435e+03_rb,0.15583e+03_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.14269e+03_rb,0.14580e+03_rb,0.14857e+03_rb,0.15094e+03_rb,0.15306e+03_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.13670e+03_rb,0.14035e+03_rb,0.14376e+03_rb,0.14689e+03_rb,0.14976e+03_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.13015e+03_rb,0.13455e+03_rb,0.13871e+03_rb,0.14263e+03_rb,0.14625e+03_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.12287e+03_rb,0.12845e+03_rb,0.13370e+03_rb,0.13836e+03_rb,0.14277e+03_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.11516e+03_rb,0.12176e+03_rb,0.12807e+03_rb,0.13396e+03_rb,0.13973e+03_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.10676e+03_rb,0.11461e+03_rb,0.12196e+03_rb,0.12926e+03_rb,0.13605e+03_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.98495e+02_rb,0.10775e+03_rb,0.11663e+03_rb,0.12493e+03_rb,0.13260e+03_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.89816e+02_rb,0.10015e+03_rb,0.11065e+03_rb,0.12084e+03_rb,0.12951e+03_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.82797e+02_rb,0.93590e+02_rb,0.10444e+03_rb,0.11545e+03_rb,0.12590e+03_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.77256e+02_rb,0.88067e+02_rb,0.99408e+02_rb,0.11069e+03_rb,0.12164e+03_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.73787e+02_rb,0.84230e+02_rb,0.95403e+02_rb,0.10719e+03_rb,0.11797e+03_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.72626e+02_rb,0.82623e+02_rb,0.93417e+02_rb,0.10482e+03_rb,0.11588e+03_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.72289e+02_rb,0.81705e+02_rb,0.92658e+02_rb,0.10355e+03_rb,0.11467e+03_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.73831e+02_rb,0.83248e+02_rb,0.93801e+02_rb,0.10474e+03_rb,0.11551e+03_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.76016e+02_rb,0.86113e+02_rb,0.95367e+02_rb,0.10651e+03_rb,0.11733e+03_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.80058e+02_rb,0.89705e+02_rb,0.99793e+02_rb,0.10982e+03_rb,0.12052e+03_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.85064e+02_rb,0.94860e+02_rb,0.10434e+03_rb,0.11401e+03_rb,0.12404e+03_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.90655e+02_rb,0.10081e+03_rb,0.10992e+03_rb,0.11933e+03_rb,0.12788e+03_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.95857e+02_rb,0.10597e+03_rb,0.11520e+03_rb,0.12356e+03_rb,0.13127e+03_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.99393e+02_rb,0.11014e+03_rb,0.12003e+03_rb,0.12794e+03_rb,0.13407e+03_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.10100e+03_rb,0.11220e+03_rb,0.12221e+03_rb,0.13085e+03_rb,0.13724e+03_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.10052e+03_rb,0.11217e+03_rb,0.12302e+03_rb,0.13127e+03_rb,0.13704e+03_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.10046e+03_rb,0.11273e+03_rb,0.12310e+03_rb,0.13118e+03_rb,0.13742e+03_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.10122e+03_rb,0.11326e+03_rb,0.12361e+03_rb,0.13081e+03_rb,0.13784e+03_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.10000e+03_rb,0.11180e+03_rb,0.12195e+03_rb,0.12930e+03_rb,0.13636e+03_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.98394e+02_rb,0.11024e+03_rb,0.11969e+03_rb,0.12788e+03_rb,0.13497e+03_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.97071e+02_rb,0.10823e+03_rb,0.11769e+03_rb,0.12630e+03_rb,0.13330e+03_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.94820e+02_rb,0.10592e+03_rb,0.11514e+03_rb,0.12393e+03_rb,0.13107e+03_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.92475e+02_rb,0.10313e+03_rb,0.11198e+03_rb,0.12120e+03_rb,0.12869e+03_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.90255e+02_rb,0.99678e+02_rb,0.10888e+03_rb,0.11824e+03_rb,0.12634e+03_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.87084e+02_rb,0.96376e+02_rb,0.10582e+03_rb,0.11496e+03_rb,0.12350e+03_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.83116e+02_rb,0.92026e+02_rb,0.10209e+03_rb,0.11120e+03_rb,0.12020e+03_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.78845e+02_rb,0.88316e+02_rb,0.97984e+02_rb,0.10729e+03_rb,0.11639e+03_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.74841e+02_rb,0.84389e+02_rb,0.93907e+02_rb,0.10286e+03_rb,0.11277e+03_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.71259e+02_rb,0.80370e+02_rb,0.89851e+02_rb,0.99011e+02_rb,0.10882e+03_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.67667e+02_rb,0.76332e+02_rb,0.85552e+02_rb,0.95111e+02_rb,0.10517e+03_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.64036e+02_rb,0.72373e+02_rb,0.81228e+02_rb,0.91458e+02_rb,0.10109e+03_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.60531e+02_rb,0.68539e+02_rb,0.77029e+02_rb,0.87314e+02_rb,0.97171e+02_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.57169e+02_rb,0.65298e+02_rb,0.73473e+02_rb,0.83504e+02_rb,0.93303e+02_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.53955e+02_rb,0.61813e+02_rb,0.70099e+02_rb,0.79656e+02_rb,0.89859e+02_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.50772e+02_rb,0.58658e+02_rb,0.66829e+02_rb,0.76079e+02_rb,0.86127e+02_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.47708e+02_rb,0.55213e+02_rb,0.63250e+02_rb,0.72545e+02_rb,0.82495e+02_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.45026e+02_rb,0.52243e+02_rb,0.60123e+02_rb,0.69281e+02_rb,0.79017e+02_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.42111e+02_rb,0.50365e+02_rb,0.58368e+02_rb,0.67832e+02_rb,0.76877e+02_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.32174e+03_rb,0.31744e+03_rb,0.31218e+03_rb,0.30740e+03_rb,0.30288e+03_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.33593e+03_rb,0.33142e+03_rb,0.32669e+03_rb,0.32231e+03_rb,0.31834e+03_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.34823e+03_rb,0.34389e+03_rb,0.34037e+03_rb,0.33690e+03_rb,0.33355e+03_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.35878e+03_rb,0.35631e+03_rb,0.35376e+03_rb,0.35105e+03_rb,0.34819e+03_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.36906e+03_rb,0.36793e+03_rb,0.36636e+03_rb,0.36433e+03_rb,0.36182e+03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.37817e+03_rb,0.37835e+03_rb,0.37763e+03_rb,0.37618e+03_rb,0.37389e+03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.38585e+03_rb,0.38729e+03_rb,0.38746e+03_rb,0.38655e+03_rb,0.38433e+03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.39236e+03_rb,0.39495e+03_rb,0.39589e+03_rb,0.39530e+03_rb,0.39330e+03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.39808e+03_rb,0.40159e+03_rb,0.40312e+03_rb,0.40280e+03_rb,0.40090e+03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.40338e+03_rb,0.40757e+03_rb,0.40933e+03_rb,0.40908e+03_rb,0.40708e+03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.40834e+03_rb,0.41282e+03_rb,0.41463e+03_rb,0.41442e+03_rb,0.41222e+03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.41280e+03_rb,0.41739e+03_rb,0.41916e+03_rb,0.41879e+03_rb,0.41631e+03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.41635e+03_rb,0.42140e+03_rb,0.42295e+03_rb,0.42231e+03_rb,0.41948e+03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.41887e+03_rb,0.42439e+03_rb,0.42613e+03_rb,0.42509e+03_rb,0.42199e+03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.42034e+03_rb,0.42637e+03_rb,0.42837e+03_rb,0.42723e+03_rb,0.42380e+03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.42191e+03_rb,0.42841e+03_rb,0.43008e+03_rb,0.42870e+03_rb,0.42501e+03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.42351e+03_rb,0.42979e+03_rb,0.43162e+03_rb,0.42986e+03_rb,0.42579e+03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.42461e+03_rb,0.42985e+03_rb,0.43291e+03_rb,0.43068e+03_rb,0.42610e+03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.42505e+03_rb,0.43017e+03_rb,0.43191e+03_rb,0.43099e+03_rb,0.42603e+03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.42362e+03_rb,0.42860e+03_rb,0.43041e+03_rb,0.42915e+03_rb,0.42555e+03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.42123e+03_rb,0.42505e+03_rb,0.42663e+03_rb,0.42551e+03_rb,0.42290e+03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.41773e+03_rb,0.42082e+03_rb,0.42178e+03_rb,0.42110e+03_rb,0.41858e+03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.41435e+03_rb,0.41544e+03_rb,0.41491e+03_rb,0.41443e+03_rb,0.41216e+03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.41009e+03_rb,0.41065e+03_rb,0.40988e+03_rb,0.40756e+03_rb,0.40367e+03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.40889e+03_rb,0.40948e+03_rb,0.40755e+03_rb,0.40547e+03_rb,0.40195e+03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.40736e+03_rb,0.40781e+03_rb,0.40666e+03_rb,0.40322e+03_rb,0.39939e+03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.40514e+03_rb,0.40605e+03_rb,0.40431e+03_rb,0.40166e+03_rb,0.39666e+03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.40543e+03_rb,0.40633e+03_rb,0.40490e+03_rb,0.40260e+03_rb,0.39791e+03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.40503e+03_rb,0.40615e+03_rb,0.40599e+03_rb,0.40348e+03_rb,0.39947e+03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.40408e+03_rb,0.40664e+03_rb,0.40681e+03_rb,0.40441e+03_rb,0.40107e+03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.40250e+03_rb,0.40659e+03_rb,0.40791e+03_rb,0.40633e+03_rb,0.40362e+03_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.40121e+03_rb,0.40653e+03_rb,0.40934e+03_rb,0.40832e+03_rb,0.40616e+03_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.39928e+03_rb,0.40669e+03_rb,0.41014e+03_rb,0.41010e+03_rb,0.40849e+03_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.39656e+03_rb,0.40551e+03_rb,0.41027e+03_rb,0.41167e+03_rb,0.41068e+03_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.39317e+03_rb,0.40403e+03_rb,0.40985e+03_rb,0.41273e+03_rb,0.41264e+03_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.38915e+03_rb,0.40116e+03_rb,0.40932e+03_rb,0.41346e+03_rb,0.41469e+03_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.38398e+03_rb,0.39755e+03_rb,0.40789e+03_rb,0.41416e+03_rb,0.41577e+03_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.37757e+03_rb,0.39396e+03_rb,0.40616e+03_rb,0.41381e+03_rb,0.41707e+03_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.37117e+03_rb,0.38987e+03_rb,0.40415e+03_rb,0.41318e+03_rb,0.41740e+03_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.36408e+03_rb,0.38505e+03_rb,0.40161e+03_rb,0.41151e+03_rb,0.41801e+03_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.35611e+03_rb,0.37948e+03_rb,0.39824e+03_rb,0.40994e+03_rb,0.41764e+03_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.34712e+03_rb,0.37341e+03_rb,0.39425e+03_rb,0.40798e+03_rb,0.41739e+03_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.33857e+03_rb,0.36757e+03_rb,0.38995e+03_rb,0.40583e+03_rb,0.41654e+03_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.32949e+03_rb,0.36056e+03_rb,0.38492e+03_rb,0.40281e+03_rb,0.41532e+03_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.31954e+03_rb,0.35312e+03_rb,0.37997e+03_rb,0.39944e+03_rb,0.41349e+03_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.30943e+03_rb,0.34518e+03_rb,0.37428e+03_rb,0.39571e+03_rb,0.41155e+03_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.30628e+03_rb,0.34259e+03_rb,0.37284e+03_rb,0.39463e+03_rb,0.41220e+03_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.58702e+03_rb,0.56862e+03_rb,0.55331e+03_rb,0.53896e+03_rb,0.52495e+03_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.64037e+03_rb,0.62129e+03_rb,0.60436e+03_rb,0.58772e+03_rb,0.57127e+03_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.69642e+03_rb,0.67640e+03_rb,0.65677e+03_rb,0.63714e+03_rb,0.61752e+03_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.75408e+03_rb,0.73150e+03_rb,0.70834e+03_rb,0.68512e+03_rb,0.66206e+03_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.81156e+03_rb,0.78496e+03_rb,0.75773e+03_rb,0.73064e+03_rb,0.70441e+03_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.86684e+03_rb,0.83552e+03_rb,0.80425e+03_rb,0.77370e+03_rb,0.74441e+03_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.91879e+03_rb,0.88284e+03_rb,0.84773e+03_rb,0.81356e+03_rb,0.78105e+03_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.96599e+03_rb,0.92558e+03_rb,0.88651e+03_rb,0.84884e+03_rb,0.81303e+03_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.10076e+04_rb,0.96291e+03_rb,0.92009e+03_rb,0.87920e+03_rb,0.84047e+03_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.10401e+04_rb,0.99157e+03_rb,0.94567e+03_rb,0.90208e+03_rb,0.86095e+03_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.10659e+04_rb,0.10143e+04_rb,0.96587e+03_rb,0.91983e+03_rb,0.87686e+03_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.10857e+04_rb,0.10316e+04_rb,0.98077e+03_rb,0.93285e+03_rb,0.88829e+03_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.10994e+04_rb,0.10434e+04_rb,0.99070e+03_rb,0.94138e+03_rb,0.89569e+03_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.11072e+04_rb,0.10495e+04_rb,0.99578e+03_rb,0.94553e+03_rb,0.89886e+03_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.11107e+04_rb,0.10519e+04_rb,0.99732e+03_rb,0.94654e+03_rb,0.89932e+03_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.11104e+04_rb,0.10510e+04_rb,0.99596e+03_rb,0.94493e+03_rb,0.89744e+03_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.11068e+04_rb,0.10472e+04_rb,0.99206e+03_rb,0.94099e+03_rb,0.89320e+03_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.11008e+04_rb,0.10413e+04_rb,0.98636e+03_rb,0.93544e+03_rb,0.88772e+03_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.10926e+04_rb,0.10334e+04_rb,0.97895e+03_rb,0.92827e+03_rb,0.88094e+03_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.10829e+04_rb,0.10242e+04_rb,0.97015e+03_rb,0.91986e+03_rb,0.87315e+03_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.10718e+04_rb,0.10140e+04_rb,0.96048e+03_rb,0.91059e+03_rb,0.86462e+03_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.10622e+04_rb,0.10049e+04_rb,0.95198e+03_rb,0.90258e+03_rb,0.85725e+03_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.10576e+04_rb,0.10006e+04_rb,0.94772e+03_rb,0.89854e+03_rb,0.85365e+03_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.10589e+04_rb,0.10017e+04_rb,0.94880e+03_rb,0.89934e+03_rb,0.85436e+03_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.10689e+04_rb,0.10108e+04_rb,0.95721e+03_rb,0.90723e+03_rb,0.86136e+03_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.10792e+04_rb,0.10202e+04_rb,0.96581e+03_rb,0.91534e+03_rb,0.86861e+03_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.10893e+04_rb,0.10294e+04_rb,0.97432e+03_rb,0.92308e+03_rb,0.87586e+03_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.11025e+04_rb,0.10445e+04_rb,0.98826e+03_rb,0.93598e+03_rb,0.88770e+03_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.11189e+04_rb,0.10606e+04_rb,0.10030e+04_rb,0.94969e+03_rb,0.90027e+03_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.11355e+04_rb,0.10769e+04_rb,0.10180e+04_rb,0.96359e+03_rb,0.91305e+03_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.11585e+04_rb,0.10971e+04_rb,0.10364e+04_rb,0.98067e+03_rb,0.92886e+03_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.11827e+04_rb,0.11193e+04_rb,0.10568e+04_rb,0.99947e+03_rb,0.94636e+03_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.12075e+04_rb,0.11422e+04_rb,0.10778e+04_rb,0.10187e+04_rb,0.96421e+03_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.12357e+04_rb,0.11671e+04_rb,0.11007e+04_rb,0.10396e+04_rb,0.98362e+03_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.12667e+04_rb,0.11958e+04_rb,0.11271e+04_rb,0.10639e+04_rb,0.10059e+04_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.12983e+04_rb,0.12254e+04_rb,0.11543e+04_rb,0.10888e+04_rb,0.10288e+04_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.13304e+04_rb,0.12559e+04_rb,0.11825e+04_rb,0.11147e+04_rb,0.10526e+04_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.13621e+04_rb,0.12852e+04_rb,0.12096e+04_rb,0.11397e+04_rb,0.10755e+04_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.13919e+04_rb,0.13140e+04_rb,0.12368e+04_rb,0.11648e+04_rb,0.10985e+04_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.14222e+04_rb,0.13432e+04_rb,0.12647e+04_rb,0.11905e+04_rb,0.11221e+04_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.14531e+04_rb,0.13729e+04_rb,0.12932e+04_rb,0.12171e+04_rb,0.11465e+04_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.14842e+04_rb,0.14002e+04_rb,0.13197e+04_rb,0.12421e+04_rb,0.11696e+04_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.15120e+04_rb,0.14267e+04_rb,0.13453e+04_rb,0.12667e+04_rb,0.11922e+04_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.15401e+04_rb,0.14538e+04_rb,0.13712e+04_rb,0.12915e+04_rb,0.12155e+04_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.15682e+04_rb,0.14811e+04_rb,0.13973e+04_rb,0.13167e+04_rb,0.12393e+04_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.15949e+04_rb,0.15073e+04_rb,0.14224e+04_rb,0.13410e+04_rb,0.12625e+04_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.16055e+04_rb,0.15180e+04_rb,0.14326e+04_rb,0.13507e+04_rb,0.12718e+04_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.98069e+03_rb,0.94212e+03_rb,0.90378e+03_rb,0.86861e+03_rb,0.83780e+03_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.11010e+04_rb,0.10540e+04_rb,0.10095e+04_rb,0.96975e+03_rb,0.93339e+03_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.12287e+04_rb,0.11714e+04_rb,0.11195e+04_rb,0.10736e+04_rb,0.10305e+04_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.13596e+04_rb,0.12909e+04_rb,0.12306e+04_rb,0.11762e+04_rb,0.11252e+04_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.14895e+04_rb,0.14091e+04_rb,0.13394e+04_rb,0.12751e+04_rb,0.12151e+04_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.16148e+04_rb,0.15230e+04_rb,0.14425e+04_rb,0.13683e+04_rb,0.12989e+04_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.17336e+04_rb,0.16302e+04_rb,0.15375e+04_rb,0.14530e+04_rb,0.13744e+04_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.18405e+04_rb,0.17248e+04_rb,0.16208e+04_rb,0.15267e+04_rb,0.14397e+04_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.19359e+04_rb,0.18083e+04_rb,0.16938e+04_rb,0.15909e+04_rb,0.14962e+04_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.20085e+04_rb,0.18707e+04_rb,0.17478e+04_rb,0.16373e+04_rb,0.15366e+04_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.20648e+04_rb,0.19188e+04_rb,0.17890e+04_rb,0.16725e+04_rb,0.15672e+04_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.21054e+04_rb,0.19528e+04_rb,0.18178e+04_rb,0.16967e+04_rb,0.15881e+04_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.21318e+04_rb,0.19742e+04_rb,0.18353e+04_rb,0.17113e+04_rb,0.16005e+04_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.21433e+04_rb,0.19836e+04_rb,0.18416e+04_rb,0.17161e+04_rb,0.16044e+04_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.21445e+04_rb,0.19835e+04_rb,0.18409e+04_rb,0.17145e+04_rb,0.16033e+04_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.21374e+04_rb,0.19764e+04_rb,0.18336e+04_rb,0.17081e+04_rb,0.15978e+04_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.21225e+04_rb,0.19618e+04_rb,0.18208e+04_rb,0.16961e+04_rb,0.15894e+04_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.21033e+04_rb,0.19434e+04_rb,0.18039e+04_rb,0.16808e+04_rb,0.15775e+04_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.20779e+04_rb,0.19206e+04_rb,0.17837e+04_rb,0.16635e+04_rb,0.15631e+04_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.20491e+04_rb,0.18949e+04_rb,0.17612e+04_rb,0.16447e+04_rb,0.15471e+04_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.20177e+04_rb,0.18682e+04_rb,0.17367e+04_rb,0.16246e+04_rb,0.15302e+04_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.19905e+04_rb,0.18445e+04_rb,0.17155e+04_rb,0.16076e+04_rb,0.15146e+04_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.19774e+04_rb,0.18329e+04_rb,0.17061e+04_rb,0.16001e+04_rb,0.15070e+04_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.19799e+04_rb,0.18350e+04_rb,0.17079e+04_rb,0.16017e+04_rb,0.15083e+04_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.20051e+04_rb,0.18569e+04_rb,0.17271e+04_rb,0.16176e+04_rb,0.15230e+04_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.20315e+04_rb,0.18800e+04_rb,0.17473e+04_rb,0.16343e+04_rb,0.15379e+04_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.20576e+04_rb,0.19026e+04_rb,0.17672e+04_rb,0.16508e+04_rb,0.15527e+04_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.21013e+04_rb,0.19405e+04_rb,0.18004e+04_rb,0.16787e+04_rb,0.15771e+04_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.21482e+04_rb,0.19814e+04_rb,0.18363e+04_rb,0.17091e+04_rb,0.16029e+04_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.21964e+04_rb,0.20236e+04_rb,0.18732e+04_rb,0.17410e+04_rb,0.16295e+04_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.22568e+04_rb,0.20769e+04_rb,0.19193e+04_rb,0.17816e+04_rb,0.16630e+04_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.23247e+04_rb,0.21362e+04_rb,0.19712e+04_rb,0.18270e+04_rb,0.17012e+04_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.23959e+04_rb,0.21983e+04_rb,0.20252e+04_rb,0.18744e+04_rb,0.17420e+04_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.24748e+04_rb,0.22670e+04_rb,0.20858e+04_rb,0.19269e+04_rb,0.17884e+04_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.25688e+04_rb,0.23479e+04_rb,0.21568e+04_rb,0.19886e+04_rb,0.18424e+04_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.26704e+04_rb,0.24334e+04_rb,0.22313e+04_rb,0.20542e+04_rb,0.18994e+04_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.27805e+04_rb,0.25238e+04_rb,0.23096e+04_rb,0.21232e+04_rb,0.19594e+04_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.28920e+04_rb,0.26151e+04_rb,0.23873e+04_rb,0.21911e+04_rb,0.20186e+04_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.30093e+04_rb,0.27098e+04_rb,0.24666e+04_rb,0.22601e+04_rb,0.20794e+04_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.31338e+04_rb,0.28121e+04_rb,0.25503e+04_rb,0.23323e+04_rb,0.21428e+04_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.32663e+04_rb,0.29228e+04_rb,0.26405e+04_rb,0.24086e+04_rb,0.22095e+04_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.33958e+04_rb,0.30317e+04_rb,0.27288e+04_rb,0.24819e+04_rb,0.22731e+04_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.35272e+04_rb,0.31418e+04_rb,0.28194e+04_rb,0.25560e+04_rb,0.23371e+04_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.36664e+04_rb,0.32577e+04_rb,0.29162e+04_rb,0.26350e+04_rb,0.24040e+04_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.38139e+04_rb,0.33808e+04_rb,0.30193e+04_rb,0.27188e+04_rb,0.24736e+04_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.39629e+04_rb,0.35038e+04_rb,0.31229e+04_rb,0.28034e+04_rb,0.25431e+04_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.40252e+04_rb,0.35562e+04_rb,0.31659e+04_rb,0.28393e+04_rb,0.25724e+04_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.525585e-05_rb, 0.527618e-05_rb, 0.746929e-04_rb /)\n      forrefo(:, 2) = (/ 0.794660e-05_rb, 0.136902e-04_rb, 0.849878e-04_rb /)\n      forrefo(:, 3) = (/ 0.197099e-04_rb, 0.733094e-04_rb, 0.121687e-03_rb /)\n      forrefo(:, 4) = (/ 0.148274e-03_rb, 0.169776e-03_rb, 0.164848e-03_rb /)\n      forrefo(:, 5) = (/ 0.230296e-03_rb, 0.210384e-03_rb, 0.182028e-03_rb /)\n      forrefo(:, 6) = (/ 0.280575e-03_rb, 0.259217e-03_rb, 0.196080e-03_rb /)\n      forrefo(:, 7) = (/ 0.329034e-03_rb, 0.291575e-03_rb, 0.207044e-03_rb /)\n      forrefo(:, 8) = (/ 0.349989e-03_rb, 0.323471e-03_rb, 0.225712e-03_rb /)\n      forrefo(:, 9) = (/ 0.366097e-03_rb, 0.321519e-03_rb, 0.253150e-03_rb /)\n      forrefo(:,10) = (/ 0.383589e-03_rb, 0.355314e-03_rb, 0.262555e-03_rb /)\n      forrefo(:,11) = (/ 0.375933e-03_rb, 0.372443e-03_rb, 0.261313e-03_rb /)\n      forrefo(:,12) = (/ 0.370652e-03_rb, 0.382366e-03_rb, 0.250070e-03_rb /)\n      forrefo(:,13) = (/ 0.375092e-03_rb, 0.379542e-03_rb, 0.265794e-03_rb /)\n      forrefo(:,14) = (/ 0.389705e-03_rb, 0.384274e-03_rb, 0.322135e-03_rb /)\n      forrefo(:,15) = (/ 0.372084e-03_rb, 0.390422e-03_rb, 0.370035e-03_rb /)\n      forrefo(:,16) = (/ 0.437802e-03_rb, 0.373406e-03_rb, 0.373222e-03_rb /)\n      \n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n!     -----------------------------------------------------------------\n      \n      selfrefo(:, 1) = (/ &\n        &  0.126758e-02_rb, 0.105253e-02_rb, 0.873963e-03_rb, 0.725690e-03_rb, 0.602573e-03_rb, &\n        &  0.500344e-03_rb, 0.415458e-03_rb, 0.344973e-03_rb, 0.286447e-03_rb, 0.237849e-03_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.144006e-02_rb, 0.118514e-02_rb, 0.975351e-03_rb, 0.802697e-03_rb, 0.660606e-03_rb, &\n        &  0.543667e-03_rb, 0.447429e-03_rb, 0.368226e-03_rb, 0.303044e-03_rb, 0.249400e-03_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.294018e-02_rb, 0.227428e-02_rb, 0.175920e-02_rb, 0.136077e-02_rb, 0.105258e-02_rb, &\n        &  0.814189e-03_rb, 0.629789e-03_rb, 0.487153e-03_rb, 0.376821e-03_rb, 0.291478e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.395290e-02_rb, 0.348405e-02_rb, 0.307081e-02_rb, 0.270658e-02_rb, 0.238556e-02_rb, &\n        &  0.210261e-02_rb, 0.185322e-02_rb, 0.163341e-02_rb, 0.143967e-02_rb, 0.126891e-02_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.419122e-02_rb, 0.385638e-02_rb, 0.354829e-02_rb, 0.326481e-02_rb, 0.300398e-02_rb, &\n        &  0.276399e-02_rb, 0.254317e-02_rb, 0.234000e-02_rb, 0.215305e-02_rb, 0.198104e-02_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.495659e-02_rb, 0.456777e-02_rb, 0.420945e-02_rb, 0.387924e-02_rb, 0.357494e-02_rb, &\n        &  0.329450e-02_rb, 0.303606e-02_rb, 0.279790e-02_rb, 0.257842e-02_rb, 0.237615e-02_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.526981e-02_rb, 0.490687e-02_rb, 0.456893e-02_rb, 0.425426e-02_rb, 0.396126e-02_rb, &\n        &  0.368844e-02_rb, 0.343441e-02_rb, 0.319788e-02_rb, 0.297764e-02_rb, 0.277256e-02_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.575426e-02_rb, 0.531597e-02_rb, 0.491106e-02_rb, 0.453699e-02_rb, 0.419141e-02_rb, &\n        &  0.387216e-02_rb, 0.357722e-02_rb, 0.330475e-02_rb, 0.305303e-02_rb, 0.282048e-02_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.549881e-02_rb, 0.514328e-02_rb, 0.481074e-02_rb, 0.449970e-02_rb, 0.420877e-02_rb, &\n        &  0.393665e-02_rb, 0.368213e-02_rb, 0.344406e-02_rb, 0.322138e-02_rb, 0.301310e-02_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.605357e-02_rb, 0.561246e-02_rb, 0.520349e-02_rb, 0.482432e-02_rb, 0.447278e-02_rb, &\n        &  0.414686e-02_rb, 0.384469e-02_rb, 0.356453e-02_rb, 0.330479e-02_rb, 0.306398e-02_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.640504e-02_rb, 0.587858e-02_rb, 0.539540e-02_rb, 0.495194e-02_rb, 0.454492e-02_rb, &\n        &  0.417136e-02_rb, 0.382850e-02_rb, 0.351382e-02_rb, 0.322501e-02_rb, 0.295993e-02_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.677803e-02_rb, 0.615625e-02_rb, 0.559152e-02_rb, 0.507859e-02_rb, 0.461271e-02_rb, &\n        &  0.418957e-02_rb, 0.380524e-02_rb, 0.345617e-02_rb, 0.313913e-02_rb, 0.285116e-02_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.690347e-02_rb, 0.627003e-02_rb, 0.569472e-02_rb, 0.517219e-02_rb, 0.469761e-02_rb, &\n        &  0.426658e-02_rb, 0.387509e-02_rb, 0.351953e-02_rb, 0.319659e-02_rb, 0.290328e-02_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.692680e-02_rb, 0.632795e-02_rb, 0.578087e-02_rb, 0.528109e-02_rb, 0.482452e-02_rb, &\n        &  0.440742e-02_rb, 0.402638e-02_rb, 0.367828e-02_rb, 0.336028e-02_rb, 0.306977e-02_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.754894e-02_rb, 0.681481e-02_rb, 0.615207e-02_rb, 0.555378e-02_rb, 0.501367e-02_rb, &\n        &  0.452609e-02_rb, 0.408593e-02_rb, 0.368857e-02_rb, 0.332986e-02_rb, 0.300603e-02_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.760689e-02_rb, 0.709755e-02_rb, 0.662232e-02_rb, 0.617891e-02_rb, 0.576519e-02_rb, &\n        &  0.537917e-02_rb, 0.501899e-02_rb, 0.468293e-02_rb, 0.436938e-02_rb, 0.407682e-02_rb /)\n     \n      end subroutine sw_kgb16\n\n! **************************************************************************\n      subroutine sw_kgb17\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            rayl, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 3.15613_rb  ,  3.03449_rb  ,  2.92069_rb  ,  2.63874_rb   , &\n        & 2.34581_rb  ,  2.06999_rb  ,  1.70906_rb  ,  1.29085_rb   , &\n        & 0.874851_rb ,  0.0955392_rb,  0.0787813_rb,  0.0621951_rb , &\n        & 0.0459076_rb,  0.0294129_rb,  0.0110387_rb,  0.00159668_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 2.83147_rb  ,  2.95919_rb  ,  2.96674_rb  ,  2.77677_rb   , &\n        & 2.46826_rb  ,  2.11481_rb  ,  1.73243_rb  ,  1.30279_rb   , &\n        & 0.882714_rb ,  0.0962350_rb,  0.0802122_rb,  0.0636194_rb , &\n        & 0.0472620_rb,  0.0299051_rb,  0.0110785_rb,  0.00159668_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 2.82300_rb  ,  2.94845_rb  ,  2.95887_rb  ,  2.77593_rb   , &\n        & 2.47096_rb  ,  2.12596_rb  ,  1.73847_rb  ,  1.30796_rb   , &\n        & 0.884395_rb ,  0.0966936_rb,  0.0801996_rb,  0.0640199_rb , &\n        & 0.0472803_rb,  0.0300515_rb,  0.0112366_rb,  0.00160814_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 2.81715_rb  ,  2.93789_rb  ,  2.95091_rb  ,  2.77046_rb   , &\n        & 2.47716_rb  ,  2.13591_rb  ,  1.74365_rb  ,  1.31277_rb   , &\n        & 0.887443_rb ,  0.0967016_rb,  0.0803391_rb,  0.0642442_rb , &\n        & 0.0472909_rb,  0.0300720_rb,  0.0114817_rb,  0.00161875_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 2.82335_rb  ,  2.93168_rb  ,  2.91455_rb  ,  2.75213_rb   , &\n        & 2.49168_rb  ,  2.14408_rb  ,  1.75726_rb  ,  1.32401_rb   , &\n        & 0.893644_rb ,  0.0969523_rb,  0.0805197_rb,  0.0639936_rb , &\n        & 0.0475099_rb,  0.0305667_rb,  0.0115372_rb,  0.00161875_rb /)\n\n! Rayleigh extinction coefficient at v = 3625 cm-1.\n      rayl = 6.86e-10_rb\n\n      strrat = 0.364641_rb\n\n      layreffr = 30\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.11134e-05_rb,0.32092e-03_rb,0.55663e-03_rb,0.78227e-03_rb,0.99421e-03_rb, &\n        & 0.12045e-02_rb,0.14116e-02_rb,0.16069e-02_rb,0.19330e-02_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.10544e-05_rb,0.35434e-03_rb,0.61480e-03_rb,0.86424e-03_rb,0.11055e-02_rb, &\n        & 0.13431e-02_rb,0.15754e-02_rb,0.17951e-02_rb,0.21280e-02_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.98345e-06_rb,0.38989e-03_rb,0.67747e-03_rb,0.95289e-03_rb,0.12196e-02_rb, &\n        & 0.14864e-02_rb,0.17449e-02_rb,0.19897e-02_rb,0.23564e-02_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.95017e-06_rb,0.42582e-03_rb,0.74419e-03_rb,0.10463e-02_rb,0.13424e-02_rb, &\n        & 0.16353e-02_rb,0.19215e-02_rb,0.21939e-02_rb,0.25993e-02_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.91870e-06_rb,0.46371e-03_rb,0.81394e-03_rb,0.11464e-02_rb,0.14715e-02_rb, &\n        & 0.17937e-02_rb,0.21072e-02_rb,0.24077e-02_rb,0.28540e-02_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.94184e-06_rb,0.26532e-03_rb,0.46157e-03_rb,0.63776e-03_rb,0.81087e-03_rb, &\n        & 0.97728e-03_rb,0.11419e-02_rb,0.12991e-02_rb,0.15121e-02_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.89060e-06_rb,0.29417e-03_rb,0.50967e-03_rb,0.70759e-03_rb,0.90203e-03_rb, &\n        & 0.10920e-02_rb,0.12764e-02_rb,0.14544e-02_rb,0.16795e-02_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.82720e-06_rb,0.32361e-03_rb,0.56124e-03_rb,0.78299e-03_rb,0.99718e-03_rb, &\n        & 0.12094e-02_rb,0.14172e-02_rb,0.16165e-02_rb,0.18637e-02_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.78842e-06_rb,0.35495e-03_rb,0.61684e-03_rb,0.86176e-03_rb,0.10995e-02_rb, &\n        & 0.13345e-02_rb,0.15652e-02_rb,0.17856e-02_rb,0.20621e-02_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.76610e-06_rb,0.38728e-03_rb,0.67538e-03_rb,0.94613e-03_rb,0.12082e-02_rb, &\n        & 0.14675e-02_rb,0.17206e-02_rb,0.19640e-02_rb,0.22720e-02_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.79663e-06_rb,0.21369e-03_rb,0.37088e-03_rb,0.51222e-03_rb,0.64549e-03_rb, &\n        & 0.77322e-03_rb,0.89939e-03_rb,0.10205e-02_rb,0.11568e-02_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.75955e-06_rb,0.23780e-03_rb,0.41153e-03_rb,0.56901e-03_rb,0.72009e-03_rb, &\n        & 0.86735e-03_rb,0.10092e-02_rb,0.11476e-02_rb,0.12913e-02_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.71692e-06_rb,0.26276e-03_rb,0.45488e-03_rb,0.62922e-03_rb,0.79836e-03_rb, &\n        & 0.96259e-03_rb,0.11236e-02_rb,0.12796e-02_rb,0.14398e-02_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.66348e-06_rb,0.28896e-03_rb,0.50221e-03_rb,0.69411e-03_rb,0.88226e-03_rb, &\n        & 0.10658e-02_rb,0.12456e-02_rb,0.14191e-02_rb,0.15991e-02_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.64013e-06_rb,0.31643e-03_rb,0.55166e-03_rb,0.76434e-03_rb,0.97216e-03_rb, &\n        & 0.11745e-02_rb,0.13731e-02_rb,0.15657e-02_rb,0.17671e-02_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.66217e-06_rb,0.16966e-03_rb,0.29358e-03_rb,0.40688e-03_rb,0.51114e-03_rb, &\n        & 0.60739e-03_rb,0.70191e-03_rb,0.79446e-03_rb,0.88832e-03_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.64111e-06_rb,0.18902e-03_rb,0.32742e-03_rb,0.45364e-03_rb,0.57086e-03_rb, &\n        & 0.68401e-03_rb,0.79116e-03_rb,0.89507e-03_rb,0.99655e-03_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.60729e-06_rb,0.21007e-03_rb,0.36354e-03_rb,0.50354e-03_rb,0.63459e-03_rb, &\n        & 0.76113e-03_rb,0.88473e-03_rb,0.10035e-02_rb,0.11163e-02_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.57250e-06_rb,0.23203e-03_rb,0.40245e-03_rb,0.55758e-03_rb,0.70295e-03_rb, &\n        & 0.84515e-03_rb,0.98379e-03_rb,0.11165e-02_rb,0.12444e-02_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.53524e-06_rb,0.25529e-03_rb,0.44399e-03_rb,0.61564e-03_rb,0.77626e-03_rb, &\n        & 0.93405e-03_rb,0.10892e-02_rb,0.12369e-02_rb,0.13795e-02_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.55112e-06_rb,0.13422e-03_rb,0.23166e-03_rb,0.32119e-03_rb,0.40265e-03_rb, &\n        & 0.47812e-03_rb,0.54797e-03_rb,0.61873e-03_rb,0.68912e-03_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.53669e-06_rb,0.14990e-03_rb,0.25949e-03_rb,0.35886e-03_rb,0.45239e-03_rb, &\n        & 0.53936e-03_rb,0.61894e-03_rb,0.69718e-03_rb,0.77732e-03_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.51495e-06_rb,0.16706e-03_rb,0.28960e-03_rb,0.40020e-03_rb,0.50461e-03_rb, &\n        & 0.60249e-03_rb,0.69677e-03_rb,0.78464e-03_rb,0.87334e-03_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.48633e-06_rb,0.18543e-03_rb,0.32159e-03_rb,0.44499e-03_rb,0.56095e-03_rb, &\n        & 0.67055e-03_rb,0.77575e-03_rb,0.87717e-03_rb,0.97694e-03_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.45162e-06_rb,0.20472e-03_rb,0.35591e-03_rb,0.49350e-03_rb,0.62163e-03_rb, &\n        & 0.74253e-03_rb,0.86247e-03_rb,0.97518e-03_rb,0.10864e-02_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.45055e-06_rb,0.10556e-03_rb,0.18176e-03_rb,0.25137e-03_rb,0.31438e-03_rb, &\n        & 0.37363e-03_rb,0.42759e-03_rb,0.47883e-03_rb,0.53437e-03_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.44502e-06_rb,0.11814e-03_rb,0.20383e-03_rb,0.28162e-03_rb,0.35547e-03_rb, &\n        & 0.42261e-03_rb,0.48340e-03_rb,0.54066e-03_rb,0.60352e-03_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.43066e-06_rb,0.13217e-03_rb,0.22836e-03_rb,0.31552e-03_rb,0.39762e-03_rb, &\n        & 0.47493e-03_rb,0.54543e-03_rb,0.61066e-03_rb,0.68176e-03_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.41116e-06_rb,0.14733e-03_rb,0.25472e-03_rb,0.35204e-03_rb,0.44334e-03_rb, &\n        & 0.52997e-03_rb,0.60966e-03_rb,0.68622e-03_rb,0.76607e-03_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.38748e-06_rb,0.16344e-03_rb,0.28281e-03_rb,0.39173e-03_rb,0.49305e-03_rb, &\n        & 0.58880e-03_rb,0.67954e-03_rb,0.76485e-03_rb,0.85401e-03_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.36582e-06_rb,0.82958e-04_rb,0.14210e-03_rb,0.19574e-03_rb,0.24440e-03_rb, &\n        & 0.29039e-03_rb,0.33281e-03_rb,0.37177e-03_rb,0.42178e-03_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.36707e-06_rb,0.92909e-04_rb,0.15977e-03_rb,0.22034e-03_rb,0.27742e-03_rb, &\n        & 0.32955e-03_rb,0.37727e-03_rb,0.41956e-03_rb,0.47859e-03_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.35787e-06_rb,0.10432e-03_rb,0.17930e-03_rb,0.24769e-03_rb,0.31155e-03_rb, &\n        & 0.37242e-03_rb,0.42699e-03_rb,0.47474e-03_rb,0.54083e-03_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.34482e-06_rb,0.11685e-03_rb,0.20055e-03_rb,0.27725e-03_rb,0.34866e-03_rb, &\n        & 0.41677e-03_rb,0.47903e-03_rb,0.53518e-03_rb,0.60812e-03_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.32598e-06_rb,0.13001e-03_rb,0.22341e-03_rb,0.30900e-03_rb,0.38919e-03_rb, &\n        & 0.46465e-03_rb,0.53467e-03_rb,0.59926e-03_rb,0.67733e-03_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.29834e-06_rb,0.65009e-04_rb,0.11183e-03_rb,0.15200e-03_rb,0.18969e-03_rb, &\n        & 0.22517e-03_rb,0.25832e-03_rb,0.28730e-03_rb,0.33955e-03_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.29745e-06_rb,0.72872e-04_rb,0.12482e-03_rb,0.17221e-03_rb,0.21583e-03_rb, &\n        & 0.25596e-03_rb,0.29328e-03_rb,0.32520e-03_rb,0.38620e-03_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.29421e-06_rb,0.82036e-04_rb,0.14010e-03_rb,0.19344e-03_rb,0.24362e-03_rb, &\n        & 0.29071e-03_rb,0.33308e-03_rb,0.36867e-03_rb,0.43901e-03_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.28596e-06_rb,0.92256e-04_rb,0.15738e-03_rb,0.21752e-03_rb,0.27325e-03_rb, &\n        & 0.32643e-03_rb,0.37578e-03_rb,0.41710e-03_rb,0.49358e-03_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.27296e-06_rb,0.10320e-03_rb,0.17598e-03_rb,0.24339e-03_rb,0.30591e-03_rb, &\n        & 0.36505e-03_rb,0.42061e-03_rb,0.46872e-03_rb,0.54993e-03_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.24259e-06_rb,0.50626e-04_rb,0.86945e-04_rb,0.11778e-03_rb,0.14692e-03_rb, &\n        & 0.17431e-03_rb,0.20057e-03_rb,0.22131e-03_rb,0.29919e-03_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.24058e-06_rb,0.56966e-04_rb,0.97467e-04_rb,0.13405e-03_rb,0.16750e-03_rb, &\n        & 0.19814e-03_rb,0.22739e-03_rb,0.25281e-03_rb,0.34022e-03_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.24091e-06_rb,0.64324e-04_rb,0.10971e-03_rb,0.15061e-03_rb,0.18996e-03_rb, &\n        & 0.22580e-03_rb,0.25885e-03_rb,0.28694e-03_rb,0.38045e-03_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.23550e-06_rb,0.72451e-04_rb,0.12345e-03_rb,0.16991e-03_rb,0.21362e-03_rb, &\n        & 0.25484e-03_rb,0.29341e-03_rb,0.32523e-03_rb,0.42836e-03_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.22696e-06_rb,0.81351e-04_rb,0.13839e-03_rb,0.19090e-03_rb,0.23986e-03_rb, &\n        & 0.28608e-03_rb,0.32910e-03_rb,0.36639e-03_rb,0.47925e-03_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.19679e-06_rb,0.39760e-04_rb,0.68052e-04_rb,0.92295e-04_rb,0.11498e-03_rb, &\n        & 0.13656e-03_rb,0.15604e-03_rb,0.17171e-03_rb,0.29679e-03_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.19567e-06_rb,0.44847e-04_rb,0.76829e-04_rb,0.10518e-03_rb,0.13102e-03_rb, &\n        & 0.15509e-03_rb,0.17764e-03_rb,0.19843e-03_rb,0.32863e-03_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.19574e-06_rb,0.50565e-04_rb,0.86466e-04_rb,0.11878e-03_rb,0.14920e-03_rb, &\n        & 0.17698e-03_rb,0.20258e-03_rb,0.22526e-03_rb,0.36959e-03_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.19262e-06_rb,0.57124e-04_rb,0.97546e-04_rb,0.13398e-03_rb,0.16803e-03_rb, &\n        & 0.20046e-03_rb,0.23022e-03_rb,0.25578e-03_rb,0.41543e-03_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.18747e-06_rb,0.64264e-04_rb,0.10971e-03_rb,0.15086e-03_rb,0.18923e-03_rb, &\n        & 0.22565e-03_rb,0.25934e-03_rb,0.28921e-03_rb,0.46463e-03_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.16015e-06_rb,0.33025e-04_rb,0.56562e-04_rb,0.76625e-04_rb,0.95645e-04_rb, &\n        & 0.11358e-03_rb,0.12955e-03_rb,0.14269e-03_rb,0.27545e-03_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.15918e-06_rb,0.37148e-04_rb,0.63775e-04_rb,0.87600e-04_rb,0.10897e-03_rb, &\n        & 0.12893e-03_rb,0.14756e-03_rb,0.16465e-03_rb,0.30799e-03_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.15897e-06_rb,0.41993e-04_rb,0.72040e-04_rb,0.98928e-04_rb,0.12433e-03_rb, &\n        & 0.14733e-03_rb,0.16824e-03_rb,0.18694e-03_rb,0.34340e-03_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.15578e-06_rb,0.47441e-04_rb,0.81426e-04_rb,0.11165e-03_rb,0.13985e-03_rb, &\n        & 0.16673e-03_rb,0.19156e-03_rb,0.21268e-03_rb,0.38176e-03_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.15210e-06_rb,0.53398e-04_rb,0.91657e-04_rb,0.12592e-03_rb,0.15769e-03_rb, &\n        & 0.18781e-03_rb,0.21569e-03_rb,0.24069e-03_rb,0.42228e-03_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.13021e-06_rb,0.27272e-04_rb,0.46832e-04_rb,0.63511e-04_rb,0.79205e-04_rb, &\n        & 0.93949e-04_rb,0.10719e-03_rb,0.11827e-03_rb,0.23944e-03_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.12930e-06_rb,0.30686e-04_rb,0.52925e-04_rb,0.72782e-04_rb,0.90527e-04_rb, &\n        & 0.10708e-03_rb,0.12236e-03_rb,0.13620e-03_rb,0.27121e-03_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.12900e-06_rb,0.34723e-04_rb,0.59867e-04_rb,0.82205e-04_rb,0.10326e-03_rb, &\n        & 0.12238e-03_rb,0.13958e-03_rb,0.15498e-03_rb,0.29930e-03_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.12648e-06_rb,0.39252e-04_rb,0.67618e-04_rb,0.92949e-04_rb,0.11636e-03_rb, &\n        & 0.13835e-03_rb,0.15924e-03_rb,0.17653e-03_rb,0.33050e-03_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.12299e-06_rb,0.44213e-04_rb,0.76244e-04_rb,0.10488e-03_rb,0.13135e-03_rb, &\n        & 0.15601e-03_rb,0.17902e-03_rb,0.19976e-03_rb,0.36579e-03_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.10554e-06_rb,0.22388e-04_rb,0.38597e-04_rb,0.52378e-04_rb,0.65404e-04_rb, &\n        & 0.77567e-04_rb,0.88543e-04_rb,0.97801e-04_rb,0.19599e-03_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.10480e-06_rb,0.25181e-04_rb,0.43670e-04_rb,0.60205e-04_rb,0.74883e-04_rb, &\n        & 0.88605e-04_rb,0.10117e-03_rb,0.11242e-03_rb,0.22146e-03_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.10429e-06_rb,0.28530e-04_rb,0.49422e-04_rb,0.68039e-04_rb,0.85435e-04_rb, &\n        & 0.10136e-03_rb,0.11557e-03_rb,0.12828e-03_rb,0.24447e-03_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.10232e-06_rb,0.32301e-04_rb,0.55797e-04_rb,0.76948e-04_rb,0.96447e-04_rb, &\n        & 0.11462e-03_rb,0.13166e-03_rb,0.14616e-03_rb,0.26999e-03_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.99014e-07_rb,0.36394e-04_rb,0.62994e-04_rb,0.86946e-04_rb,0.10900e-03_rb, &\n        & 0.12937e-03_rb,0.14833e-03_rb,0.16540e-03_rb,0.29916e-03_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.23488e-04_rb,0.16684e-02_rb,0.29575e-02_rb,0.40083e-02_rb,0.49953e-02_rb, &\n        & 0.59021e-02_rb,0.67446e-02_rb,0.76008e-02_rb,0.87032e-02_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.25156e-04_rb,0.18462e-02_rb,0.32711e-02_rb,0.45008e-02_rb,0.56182e-02_rb, &\n        & 0.66287e-02_rb,0.75909e-02_rb,0.85558e-02_rb,0.97543e-02_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.27084e-04_rb,0.20325e-02_rb,0.36034e-02_rb,0.49992e-02_rb,0.62796e-02_rb, &\n        & 0.74134e-02_rb,0.84994e-02_rb,0.95694e-02_rb,0.10847e-01_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.28147e-04_rb,0.22347e-02_rb,0.39628e-02_rb,0.55005e-02_rb,0.69453e-02_rb, &\n        & 0.82429e-02_rb,0.94699e-02_rb,0.10660e-01_rb,0.11991e-01_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.28719e-04_rb,0.24475e-02_rb,0.43369e-02_rb,0.60360e-02_rb,0.76183e-02_rb, &\n        & 0.90878e-02_rb,0.10493e-01_rb,0.11805e-01_rb,0.13204e-01_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.20947e-04_rb,0.14015e-02_rb,0.24728e-02_rb,0.33676e-02_rb,0.41801e-02_rb, &\n        & 0.49244e-02_rb,0.55787e-02_rb,0.62206e-02_rb,0.69741e-02_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.22352e-04_rb,0.15535e-02_rb,0.27396e-02_rb,0.37870e-02_rb,0.47121e-02_rb, &\n        & 0.55571e-02_rb,0.62892e-02_rb,0.70132e-02_rb,0.78092e-02_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.23882e-04_rb,0.17213e-02_rb,0.30345e-02_rb,0.42020e-02_rb,0.52782e-02_rb, &\n        & 0.62285e-02_rb,0.70556e-02_rb,0.78819e-02_rb,0.87330e-02_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.24650e-04_rb,0.18954e-02_rb,0.33384e-02_rb,0.46336e-02_rb,0.58333e-02_rb, &\n        & 0.69311e-02_rb,0.78751e-02_rb,0.88149e-02_rb,0.96911e-02_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.25136e-04_rb,0.20806e-02_rb,0.36641e-02_rb,0.50966e-02_rb,0.64193e-02_rb, &\n        & 0.76281e-02_rb,0.87403e-02_rb,0.97943e-02_rb,0.10704e-01_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.17720e-04_rb,0.11414e-02_rb,0.20045e-02_rb,0.27288e-02_rb,0.33891e-02_rb, &\n        & 0.39755e-02_rb,0.44967e-02_rb,0.49389e-02_rb,0.53858e-02_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.19087e-04_rb,0.12745e-02_rb,0.22336e-02_rb,0.30841e-02_rb,0.38333e-02_rb, &\n        & 0.44983e-02_rb,0.50895e-02_rb,0.55930e-02_rb,0.60666e-02_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.20125e-04_rb,0.14178e-02_rb,0.24795e-02_rb,0.34278e-02_rb,0.43106e-02_rb, &\n        & 0.50607e-02_rb,0.57280e-02_rb,0.63092e-02_rb,0.68285e-02_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.20895e-04_rb,0.15666e-02_rb,0.27348e-02_rb,0.37934e-02_rb,0.47769e-02_rb, &\n        & 0.56621e-02_rb,0.64046e-02_rb,0.70864e-02_rb,0.76026e-02_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.21508e-04_rb,0.17251e-02_rb,0.30153e-02_rb,0.41809e-02_rb,0.52689e-02_rb, &\n        & 0.62462e-02_rb,0.71125e-02_rb,0.79104e-02_rb,0.84389e-02_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.14661e-04_rb,0.92261e-03_rb,0.16088e-02_rb,0.21788e-02_rb,0.26956e-02_rb, &\n        & 0.31612e-02_rb,0.35626e-02_rb,0.38878e-02_rb,0.41525e-02_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.15607e-04_rb,0.10329e-02_rb,0.17973e-02_rb,0.24735e-02_rb,0.30696e-02_rb, &\n        & 0.35953e-02_rb,0.40511e-02_rb,0.44162e-02_rb,0.46990e-02_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.16559e-04_rb,0.11550e-02_rb,0.20019e-02_rb,0.27577e-02_rb,0.34625e-02_rb, &\n        & 0.40662e-02_rb,0.45831e-02_rb,0.49995e-02_rb,0.53073e-02_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.17263e-04_rb,0.12794e-02_rb,0.22184e-02_rb,0.30614e-02_rb,0.38510e-02_rb, &\n        & 0.45664e-02_rb,0.51532e-02_rb,0.56290e-02_rb,0.59436e-02_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.17895e-04_rb,0.14130e-02_rb,0.24526e-02_rb,0.33805e-02_rb,0.42622e-02_rb, &\n        & 0.50556e-02_rb,0.57489e-02_rb,0.63094e-02_rb,0.66256e-02_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.11885e-04_rb,0.74888e-03_rb,0.12826e-02_rb,0.17258e-02_rb,0.21346e-02_rb, &\n        & 0.24972e-02_rb,0.28046e-02_rb,0.30606e-02_rb,0.32323e-02_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.12452e-04_rb,0.84084e-03_rb,0.14380e-02_rb,0.19698e-02_rb,0.24386e-02_rb, &\n        & 0.28536e-02_rb,0.32075e-02_rb,0.34937e-02_rb,0.36562e-02_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.13439e-04_rb,0.94272e-03_rb,0.16065e-02_rb,0.22079e-02_rb,0.27660e-02_rb, &\n        & 0.32389e-02_rb,0.36440e-02_rb,0.39673e-02_rb,0.41393e-02_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.14053e-04_rb,0.10473e-02_rb,0.17899e-02_rb,0.24603e-02_rb,0.30861e-02_rb, &\n        & 0.36521e-02_rb,0.41156e-02_rb,0.44825e-02_rb,0.46529e-02_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.14586e-04_rb,0.11585e-02_rb,0.19886e-02_rb,0.27257e-02_rb,0.34272e-02_rb, &\n        & 0.40599e-02_rb,0.46115e-02_rb,0.50286e-02_rb,0.52085e-02_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.94872e-05_rb,0.59793e-03_rb,0.10210e-02_rb,0.13572e-02_rb,0.16716e-02_rb, &\n        & 0.19512e-02_rb,0.21890e-02_rb,0.23827e-02_rb,0.25347e-02_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.10060e-04_rb,0.67400e-03_rb,0.11432e-02_rb,0.15564e-02_rb,0.19188e-02_rb, &\n        & 0.22389e-02_rb,0.25161e-02_rb,0.27308e-02_rb,0.28770e-02_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.10743e-04_rb,0.75948e-03_rb,0.12806e-02_rb,0.17551e-02_rb,0.21862e-02_rb, &\n        & 0.25545e-02_rb,0.28729e-02_rb,0.31149e-02_rb,0.32716e-02_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.11322e-04_rb,0.85134e-03_rb,0.14320e-02_rb,0.19630e-02_rb,0.24514e-02_rb, &\n        & 0.28930e-02_rb,0.32578e-02_rb,0.35375e-02_rb,0.36912e-02_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.11755e-04_rb,0.94611e-03_rb,0.15986e-02_rb,0.21804e-02_rb,0.27291e-02_rb, &\n        & 0.32306e-02_rb,0.36695e-02_rb,0.39913e-02_rb,0.41439e-02_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.75931e-05_rb,0.47130e-03_rb,0.81211e-03_rb,0.10658e-02_rb,0.13004e-02_rb, &\n        & 0.15175e-02_rb,0.17002e-02_rb,0.18473e-02_rb,0.19861e-02_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.80724e-05_rb,0.53358e-03_rb,0.91163e-03_rb,0.12261e-02_rb,0.15014e-02_rb, &\n        & 0.17483e-02_rb,0.19612e-02_rb,0.21201e-02_rb,0.22591e-02_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.84404e-05_rb,0.60517e-03_rb,0.10236e-02_rb,0.13887e-02_rb,0.17204e-02_rb, &\n        & 0.20031e-02_rb,0.22497e-02_rb,0.24321e-02_rb,0.25823e-02_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.90511e-05_rb,0.68037e-03_rb,0.11475e-02_rb,0.15596e-02_rb,0.19402e-02_rb, &\n        & 0.22789e-02_rb,0.25633e-02_rb,0.27753e-02_rb,0.29247e-02_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.94405e-05_rb,0.76103e-03_rb,0.12836e-02_rb,0.17422e-02_rb,0.21698e-02_rb, &\n        & 0.25585e-02_rb,0.28989e-02_rb,0.31444e-02_rb,0.33016e-02_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.58080e-05_rb,0.36782e-03_rb,0.63516e-03_rb,0.83799e-03_rb,0.10119e-02_rb, &\n        & 0.11754e-02_rb,0.13161e-02_rb,0.14382e-02_rb,0.15837e-02_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.63156e-05_rb,0.41909e-03_rb,0.71974e-03_rb,0.96952e-03_rb,0.11711e-02_rb, &\n        & 0.13617e-02_rb,0.15234e-02_rb,0.16441e-02_rb,0.18118e-02_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.66776e-05_rb,0.47829e-03_rb,0.81150e-03_rb,0.11056e-02_rb,0.13493e-02_rb, &\n        & 0.15646e-02_rb,0.17524e-02_rb,0.18937e-02_rb,0.20698e-02_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.70582e-05_rb,0.54017e-03_rb,0.91330e-03_rb,0.12434e-02_rb,0.15411e-02_rb, &\n        & 0.17884e-02_rb,0.20057e-02_rb,0.21704e-02_rb,0.23548e-02_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.74902e-05_rb,0.60717e-03_rb,0.10267e-02_rb,0.13908e-02_rb,0.17231e-02_rb, &\n        & 0.20285e-02_rb,0.22810e-02_rb,0.24710e-02_rb,0.26631e-02_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.45061e-05_rb,0.28626e-03_rb,0.49448e-03_rb,0.65317e-03_rb,0.79081e-03_rb, &\n        & 0.91066e-03_rb,0.10182e-02_rb,0.11107e-02_rb,0.14592e-02_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.49392e-05_rb,0.32734e-03_rb,0.56558e-03_rb,0.76077e-03_rb,0.91846e-03_rb, &\n        & 0.10578e-02_rb,0.11776e-02_rb,0.12720e-02_rb,0.16778e-02_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.52580e-05_rb,0.37522e-03_rb,0.63845e-03_rb,0.87805e-03_rb,0.10619e-02_rb, &\n        & 0.12194e-02_rb,0.13606e-02_rb,0.14680e-02_rb,0.19259e-02_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.54991e-05_rb,0.42659e-03_rb,0.72103e-03_rb,0.98756e-03_rb,0.12163e-02_rb, &\n        & 0.14007e-02_rb,0.15647e-02_rb,0.16900e-02_rb,0.21772e-02_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.58769e-05_rb,0.48199e-03_rb,0.81466e-03_rb,0.11072e-02_rb,0.13684e-02_rb, &\n        & 0.15984e-02_rb,0.17887e-02_rb,0.19333e-02_rb,0.24331e-02_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.34154e-05_rb,0.22534e-03_rb,0.38788e-03_rb,0.51113e-03_rb,0.62194e-03_rb, &\n        & 0.71432e-03_rb,0.79743e-03_rb,0.86289e-03_rb,0.14758e-02_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.38085e-05_rb,0.25832e-03_rb,0.44748e-03_rb,0.59835e-03_rb,0.72514e-03_rb, &\n        & 0.83284e-03_rb,0.91941e-03_rb,0.99583e-03_rb,0.17358e-02_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.41578e-05_rb,0.29655e-03_rb,0.50553e-03_rb,0.69511e-03_rb,0.84107e-03_rb, &\n        & 0.96374e-03_rb,0.10666e-02_rb,0.11478e-02_rb,0.19625e-02_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.43917e-05_rb,0.33908e-03_rb,0.57351e-03_rb,0.78640e-03_rb,0.96862e-03_rb, &\n        & 0.11109e-02_rb,0.12309e-02_rb,0.13266e-02_rb,0.22103e-02_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.45446e-05_rb,0.38548e-03_rb,0.64883e-03_rb,0.88401e-03_rb,0.10952e-02_rb, &\n        & 0.12706e-02_rb,0.14136e-02_rb,0.15239e-02_rb,0.24754e-02_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.27604e-05_rb,0.18848e-03_rb,0.32532e-03_rb,0.42949e-03_rb,0.52350e-03_rb, &\n        & 0.60084e-03_rb,0.66640e-03_rb,0.72070e-03_rb,0.13692e-02_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.30908e-05_rb,0.21679e-03_rb,0.37259e-03_rb,0.50366e-03_rb,0.61074e-03_rb, &\n        & 0.70158e-03_rb,0.77271e-03_rb,0.83037e-03_rb,0.15689e-02_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.33674e-05_rb,0.24965e-03_rb,0.42244e-03_rb,0.58353e-03_rb,0.70923e-03_rb, &\n        & 0.81330e-03_rb,0.89750e-03_rb,0.96131e-03_rb,0.17971e-02_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.35568e-05_rb,0.28602e-03_rb,0.48044e-03_rb,0.65868e-03_rb,0.81816e-03_rb, &\n        & 0.93857e-03_rb,0.10357e-02_rb,0.11119e-02_rb,0.20509e-02_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.36921e-05_rb,0.32484e-03_rb,0.54623e-03_rb,0.74475e-03_rb,0.92307e-03_rb, &\n        & 0.10758e-02_rb,0.11895e-02_rb,0.12777e-02_rb,0.23253e-02_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.22272e-05_rb,0.15807e-03_rb,0.27163e-03_rb,0.35935e-03_rb,0.43781e-03_rb, &\n        & 0.50321e-03_rb,0.55776e-03_rb,0.60046e-03_rb,0.11852e-02_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.24898e-05_rb,0.18201e-03_rb,0.31004e-03_rb,0.42206e-03_rb,0.51226e-03_rb, &\n        & 0.58824e-03_rb,0.64919e-03_rb,0.69291e-03_rb,0.13623e-02_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.27021e-05_rb,0.20958e-03_rb,0.35322e-03_rb,0.48676e-03_rb,0.59587e-03_rb, &\n        & 0.68364e-03_rb,0.75527e-03_rb,0.80436e-03_rb,0.15654e-02_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.28526e-05_rb,0.24038e-03_rb,0.40262e-03_rb,0.55096e-03_rb,0.68671e-03_rb, &\n        & 0.79103e-03_rb,0.87211e-03_rb,0.93124e-03_rb,0.17898e-02_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.29899e-05_rb,0.27289e-03_rb,0.45904e-03_rb,0.62448e-03_rb,0.77496e-03_rb, &\n        & 0.90212e-03_rb,0.10018e-02_rb,0.10706e-02_rb,0.20265e-02_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.17576e-05_rb,0.13151e-03_rb,0.22518e-03_rb,0.29890e-03_rb,0.36398e-03_rb, &\n        & 0.41884e-03_rb,0.46505e-03_rb,0.50086e-03_rb,0.97916e-03_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.19524e-05_rb,0.15189e-03_rb,0.25686e-03_rb,0.35123e-03_rb,0.42723e-03_rb, &\n        & 0.49061e-03_rb,0.54293e-03_rb,0.57815e-03_rb,0.11260e-02_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.21134e-05_rb,0.17558e-03_rb,0.29382e-03_rb,0.40457e-03_rb,0.49777e-03_rb, &\n        & 0.57153e-03_rb,0.63185e-03_rb,0.67213e-03_rb,0.12960e-02_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.22681e-05_rb,0.20106e-03_rb,0.33583e-03_rb,0.45977e-03_rb,0.57094e-03_rb, &\n        & 0.66275e-03_rb,0.73149e-03_rb,0.77799e-03_rb,0.14856e-02_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.23940e-05_rb,0.22853e-03_rb,0.38323e-03_rb,0.52126e-03_rb,0.64684e-03_rb, &\n        & 0.75455e-03_rb,0.84115e-03_rb,0.89575e-03_rb,0.16816e-02_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.87154e-04_rb,0.70456e-02_rb,0.11624e-01_rb,0.16007e-01_rb,0.20277e-01_rb, &\n        & 0.24349e-01_rb,0.27902e-01_rb,0.30956e-01_rb,0.33159e-01_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.92678e-04_rb,0.75324e-02_rb,0.12552e-01_rb,0.17444e-01_rb,0.21967e-01_rb, &\n        & 0.26250e-01_rb,0.30241e-01_rb,0.33348e-01_rb,0.36164e-01_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.97955e-04_rb,0.80153e-02_rb,0.13502e-01_rb,0.18812e-01_rb,0.23862e-01_rb, &\n        & 0.28480e-01_rb,0.32511e-01_rb,0.35713e-01_rb,0.38349e-01_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.10404e-03_rb,0.84724e-02_rb,0.14429e-01_rb,0.20136e-01_rb,0.25672e-01_rb, &\n        & 0.30688e-01_rb,0.35011e-01_rb,0.38379e-01_rb,0.40673e-01_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.11110e-03_rb,0.89123e-02_rb,0.15343e-01_rb,0.21479e-01_rb,0.27290e-01_rb, &\n        & 0.32751e-01_rb,0.37455e-01_rb,0.40931e-01_rb,0.42463e-01_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.73214e-04_rb,0.61410e-02_rb,0.10125e-01_rb,0.13650e-01_rb,0.17158e-01_rb, &\n        & 0.20627e-01_rb,0.23628e-01_rb,0.26251e-01_rb,0.27481e-01_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.77936e-04_rb,0.65751e-02_rb,0.10966e-01_rb,0.14877e-01_rb,0.18693e-01_rb, &\n        & 0.22272e-01_rb,0.25630e-01_rb,0.28395e-01_rb,0.29894e-01_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.83061e-04_rb,0.69828e-02_rb,0.11774e-01_rb,0.16068e-01_rb,0.20317e-01_rb, &\n        & 0.24244e-01_rb,0.27748e-01_rb,0.30432e-01_rb,0.31851e-01_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.88564e-04_rb,0.73985e-02_rb,0.12581e-01_rb,0.17226e-01_rb,0.21842e-01_rb, &\n        & 0.26177e-01_rb,0.29969e-01_rb,0.32748e-01_rb,0.33805e-01_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.94933e-04_rb,0.77988e-02_rb,0.13372e-01_rb,0.18367e-01_rb,0.23323e-01_rb, &\n        & 0.27928e-01_rb,0.31964e-01_rb,0.35013e-01_rb,0.35327e-01_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.60947e-04_rb,0.52436e-02_rb,0.86174e-02_rb,0.11520e-01_rb,0.14231e-01_rb, &\n        & 0.17027e-01_rb,0.19469e-01_rb,0.21634e-01_rb,0.21981e-01_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.64921e-04_rb,0.55975e-02_rb,0.93512e-02_rb,0.12526e-01_rb,0.15516e-01_rb, &\n        & 0.18471e-01_rb,0.21270e-01_rb,0.23512e-01_rb,0.24114e-01_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.69521e-04_rb,0.59648e-02_rb,0.10060e-01_rb,0.13582e-01_rb,0.16903e-01_rb, &\n        & 0.20177e-01_rb,0.23055e-01_rb,0.25380e-01_rb,0.25822e-01_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.74348e-04_rb,0.63104e-02_rb,0.10767e-01_rb,0.14599e-01_rb,0.18273e-01_rb, &\n        & 0.21836e-01_rb,0.24984e-01_rb,0.27358e-01_rb,0.27450e-01_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.79780e-04_rb,0.66671e-02_rb,0.11458e-01_rb,0.15590e-01_rb,0.19579e-01_rb, &\n        & 0.23358e-01_rb,0.26806e-01_rb,0.29335e-01_rb,0.28786e-01_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.50799e-04_rb,0.44148e-02_rb,0.72225e-02_rb,0.96483e-02_rb,0.11767e-01_rb, &\n        & 0.13828e-01_rb,0.15844e-01_rb,0.17588e-01_rb,0.17391e-01_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.54227e-04_rb,0.47231e-02_rb,0.78527e-02_rb,0.10493e-01_rb,0.12835e-01_rb, &\n        & 0.15126e-01_rb,0.17466e-01_rb,0.19219e-01_rb,0.19351e-01_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.58151e-04_rb,0.50277e-02_rb,0.84823e-02_rb,0.11418e-01_rb,0.13969e-01_rb, &\n        & 0.16576e-01_rb,0.18903e-01_rb,0.20840e-01_rb,0.20853e-01_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.62433e-04_rb,0.53372e-02_rb,0.90813e-02_rb,0.12325e-01_rb,0.15163e-01_rb, &\n        & 0.17971e-01_rb,0.20590e-01_rb,0.22529e-01_rb,0.22273e-01_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.66852e-04_rb,0.56429e-02_rb,0.96836e-02_rb,0.13189e-01_rb,0.16280e-01_rb, &\n        & 0.19312e-01_rb,0.22136e-01_rb,0.24263e-01_rb,0.23466e-01_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.42593e-04_rb,0.36760e-02_rb,0.59913e-02_rb,0.79812e-02_rb,0.97729e-02_rb, &\n        & 0.11265e-01_rb,0.12874e-01_rb,0.14150e-01_rb,0.13651e-01_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.45779e-04_rb,0.39344e-02_rb,0.65401e-02_rb,0.87030e-02_rb,0.10650e-01_rb, &\n        & 0.12374e-01_rb,0.14135e-01_rb,0.15529e-01_rb,0.15507e-01_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.48868e-04_rb,0.42013e-02_rb,0.70859e-02_rb,0.94912e-02_rb,0.11609e-01_rb, &\n        & 0.13557e-01_rb,0.15381e-01_rb,0.16993e-01_rb,0.16785e-01_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.52509e-04_rb,0.44674e-02_rb,0.76022e-02_rb,0.10271e-01_rb,0.12630e-01_rb, &\n        & 0.14736e-01_rb,0.16830e-01_rb,0.18387e-01_rb,0.18040e-01_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.56196e-04_rb,0.47381e-02_rb,0.81005e-02_rb,0.11026e-01_rb,0.13586e-01_rb, &\n        & 0.15940e-01_rb,0.18160e-01_rb,0.19920e-01_rb,0.19092e-01_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.36112e-04_rb,0.30316e-02_rb,0.49038e-02_rb,0.65325e-02_rb,0.79606e-02_rb, &\n        & 0.91706e-02_rb,0.10285e-01_rb,0.11252e-01_rb,0.10556e-01_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.38502e-04_rb,0.32575e-02_rb,0.53855e-02_rb,0.71302e-02_rb,0.87200e-02_rb, &\n        & 0.10138e-01_rb,0.11319e-01_rb,0.12504e-01_rb,0.12109e-01_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.41070e-04_rb,0.34869e-02_rb,0.58643e-02_rb,0.78020e-02_rb,0.95232e-02_rb, &\n        & 0.11081e-01_rb,0.12413e-01_rb,0.13700e-01_rb,0.13350e-01_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.44034e-04_rb,0.37142e-02_rb,0.62924e-02_rb,0.84867e-02_rb,0.10400e-01_rb, &\n        & 0.12091e-01_rb,0.13614e-01_rb,0.14850e-01_rb,0.14396e-01_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.47021e-04_rb,0.39387e-02_rb,0.67171e-02_rb,0.91319e-02_rb,0.11231e-01_rb, &\n        & 0.13129e-01_rb,0.14745e-01_rb,0.16155e-01_rb,0.15392e-01_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.30001e-04_rb,0.24884e-02_rb,0.39787e-02_rb,0.53262e-02_rb,0.64254e-02_rb, &\n        & 0.74422e-02_rb,0.82418e-02_rb,0.87651e-02_rb,0.83241e-02_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.32067e-04_rb,0.26831e-02_rb,0.43873e-02_rb,0.58009e-02_rb,0.70881e-02_rb, &\n        & 0.82303e-02_rb,0.91115e-02_rb,0.99530e-02_rb,0.95843e-02_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.34414e-04_rb,0.28762e-02_rb,0.47981e-02_rb,0.63650e-02_rb,0.77555e-02_rb, &\n        & 0.90130e-02_rb,0.10051e-01_rb,0.10944e-01_rb,0.10687e-01_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.36543e-04_rb,0.30749e-02_rb,0.51697e-02_rb,0.69549e-02_rb,0.84939e-02_rb, &\n        & 0.98621e-02_rb,0.11012e-01_rb,0.11950e-01_rb,0.11596e-01_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.38986e-04_rb,0.32672e-02_rb,0.55268e-02_rb,0.74950e-02_rb,0.92206e-02_rb, &\n        & 0.10750e-01_rb,0.11970e-01_rb,0.13029e-01_rb,0.12461e-01_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.24718e-04_rb,0.20304e-02_rb,0.32253e-02_rb,0.42957e-02_rb,0.51621e-02_rb, &\n        & 0.59477e-02_rb,0.65543e-02_rb,0.67901e-02_rb,0.66578e-02_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.26226e-04_rb,0.22027e-02_rb,0.35528e-02_rb,0.46844e-02_rb,0.57463e-02_rb, &\n        & 0.66070e-02_rb,0.73566e-02_rb,0.79086e-02_rb,0.76807e-02_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.28095e-04_rb,0.23614e-02_rb,0.38960e-02_rb,0.51529e-02_rb,0.62773e-02_rb, &\n        & 0.72919e-02_rb,0.81475e-02_rb,0.87344e-02_rb,0.86509e-02_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.29856e-04_rb,0.25346e-02_rb,0.42180e-02_rb,0.56507e-02_rb,0.68867e-02_rb, &\n        & 0.79948e-02_rb,0.89169e-02_rb,0.96226e-02_rb,0.94212e-02_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.31432e-04_rb,0.26989e-02_rb,0.45288e-02_rb,0.61158e-02_rb,0.75231e-02_rb, &\n        & 0.87319e-02_rb,0.97447e-02_rb,0.10470e-01_rb,0.10172e-01_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.20151e-04_rb,0.16622e-02_rb,0.26102e-02_rb,0.34345e-02_rb,0.41518e-02_rb, &\n        & 0.47356e-02_rb,0.51198e-02_rb,0.52901e-02_rb,0.55608e-02_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.21290e-04_rb,0.18112e-02_rb,0.28622e-02_rb,0.37770e-02_rb,0.46098e-02_rb, &\n        & 0.52825e-02_rb,0.58719e-02_rb,0.62115e-02_rb,0.64287e-02_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.22604e-04_rb,0.19483e-02_rb,0.31536e-02_rb,0.41418e-02_rb,0.50513e-02_rb, &\n        & 0.58883e-02_rb,0.65199e-02_rb,0.70000e-02_rb,0.71641e-02_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.24039e-04_rb,0.20909e-02_rb,0.34321e-02_rb,0.45633e-02_rb,0.55575e-02_rb, &\n        & 0.64453e-02_rb,0.71800e-02_rb,0.77062e-02_rb,0.77821e-02_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.25275e-04_rb,0.22325e-02_rb,0.36976e-02_rb,0.49727e-02_rb,0.60945e-02_rb, &\n        & 0.70632e-02_rb,0.78696e-02_rb,0.84048e-02_rb,0.84571e-02_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.16520e-04_rb,0.13579e-02_rb,0.21217e-02_rb,0.27650e-02_rb,0.33209e-02_rb, &\n        & 0.37657e-02_rb,0.40263e-02_rb,0.41632e-02_rb,0.59019e-02_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.17307e-04_rb,0.14868e-02_rb,0.23230e-02_rb,0.30616e-02_rb,0.37000e-02_rb, &\n        & 0.42629e-02_rb,0.46958e-02_rb,0.48956e-02_rb,0.64729e-02_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.18210e-04_rb,0.16086e-02_rb,0.25635e-02_rb,0.33480e-02_rb,0.40827e-02_rb, &\n        & 0.47590e-02_rb,0.52424e-02_rb,0.56088e-02_rb,0.71072e-02_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.19263e-04_rb,0.17308e-02_rb,0.28038e-02_rb,0.37016e-02_rb,0.44933e-02_rb, &\n        & 0.52114e-02_rb,0.58224e-02_rb,0.62053e-02_rb,0.76445e-02_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.20450e-04_rb,0.18514e-02_rb,0.30286e-02_rb,0.40569e-02_rb,0.49417e-02_rb, &\n        & 0.57292e-02_rb,0.63809e-02_rb,0.68162e-02_rb,0.81800e-02_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.13743e-04_rb,0.11544e-02_rb,0.18005e-02_rb,0.23380e-02_rb,0.28127e-02_rb, &\n        & 0.32019e-02_rb,0.34184e-02_rb,0.35137e-02_rb,0.55132e-02_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.14314e-04_rb,0.12648e-02_rb,0.19811e-02_rb,0.25794e-02_rb,0.31283e-02_rb, &\n        & 0.35835e-02_rb,0.39635e-02_rb,0.41524e-02_rb,0.60640e-02_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.14980e-04_rb,0.13667e-02_rb,0.21846e-02_rb,0.28316e-02_rb,0.34390e-02_rb, &\n        & 0.40069e-02_rb,0.44283e-02_rb,0.47282e-02_rb,0.65662e-02_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.15843e-04_rb,0.14691e-02_rb,0.23844e-02_rb,0.31346e-02_rb,0.37915e-02_rb, &\n        & 0.43926e-02_rb,0.49108e-02_rb,0.52431e-02_rb,0.70521e-02_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.16801e-04_rb,0.15709e-02_rb,0.25738e-02_rb,0.34250e-02_rb,0.41781e-02_rb, &\n        & 0.48258e-02_rb,0.53776e-02_rb,0.57400e-02_rb,0.74913e-02_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.11265e-04_rb,0.97473e-03_rb,0.15190e-02_rb,0.19779e-02_rb,0.23708e-02_rb, &\n        & 0.27002e-02_rb,0.28954e-02_rb,0.29689e-02_rb,0.49052e-02_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.11703e-04_rb,0.10660e-02_rb,0.16806e-02_rb,0.21742e-02_rb,0.26370e-02_rb, &\n        & 0.30184e-02_rb,0.33461e-02_rb,0.35081e-02_rb,0.53515e-02_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.12275e-04_rb,0.11524e-02_rb,0.18532e-02_rb,0.24014e-02_rb,0.28932e-02_rb, &\n        & 0.33615e-02_rb,0.37332e-02_rb,0.39759e-02_rb,0.57806e-02_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.12963e-04_rb,0.12405e-02_rb,0.20200e-02_rb,0.26573e-02_rb,0.31978e-02_rb, &\n        & 0.36904e-02_rb,0.41225e-02_rb,0.44151e-02_rb,0.61956e-02_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.13696e-04_rb,0.13266e-02_rb,0.21814e-02_rb,0.28939e-02_rb,0.35284e-02_rb, &\n        & 0.40629e-02_rb,0.45191e-02_rb,0.48283e-02_rb,0.65800e-02_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.91179e-05_rb,0.81531e-03_rb,0.12754e-02_rb,0.16598e-02_rb,0.19900e-02_rb, &\n        & 0.22634e-02_rb,0.24441e-02_rb,0.24984e-02_rb,0.40576e-02_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.95039e-05_rb,0.89093e-03_rb,0.14150e-02_rb,0.18287e-02_rb,0.22143e-02_rb, &\n        & 0.25329e-02_rb,0.28092e-02_rb,0.29546e-02_rb,0.44374e-02_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.99762e-05_rb,0.96494e-03_rb,0.15625e-02_rb,0.20288e-02_rb,0.24319e-02_rb, &\n        & 0.28108e-02_rb,0.31373e-02_rb,0.33177e-02_rb,0.48094e-02_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.10509e-04_rb,0.10398e-02_rb,0.16996e-02_rb,0.22443e-02_rb,0.26925e-02_rb, &\n        & 0.30942e-02_rb,0.34481e-02_rb,0.37003e-02_rb,0.51550e-02_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.11033e-04_rb,0.11134e-02_rb,0.18372e-02_rb,0.24408e-02_rb,0.29682e-02_rb, &\n        & 0.34114e-02_rb,0.37859e-02_rb,0.40424e-02_rb,0.54893e-02_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.25564e-03_rb,0.23940e-01_rb,0.41535e-01_rb,0.56276e-01_rb,0.68561e-01_rb, &\n        & 0.78630e-01_rb,0.86993e-01_rb,0.91794e-01_rb,0.84229e-01_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.29194e-03_rb,0.25170e-01_rb,0.43659e-01_rb,0.59016e-01_rb,0.72302e-01_rb, &\n        & 0.83167e-01_rb,0.91739e-01_rb,0.96774e-01_rb,0.86838e-01_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.33934e-03_rb,0.26430e-01_rb,0.45835e-01_rb,0.61922e-01_rb,0.75614e-01_rb, &\n        & 0.87285e-01_rb,0.96606e-01_rb,0.10156e+00_rb,0.90084e-01_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.38871e-03_rb,0.27733e-01_rb,0.48058e-01_rb,0.64973e-01_rb,0.79090e-01_rb, &\n        & 0.91156e-01_rb,0.10084e+00_rb,0.10589e+00_rb,0.92583e-01_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.44473e-03_rb,0.29028e-01_rb,0.50287e-01_rb,0.68010e-01_rb,0.82805e-01_rb, &\n        & 0.95193e-01_rb,0.10492e+00_rb,0.10995e+00_rb,0.95419e-01_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.23400e-03_rb,0.20753e-01_rb,0.35742e-01_rb,0.48709e-01_rb,0.59548e-01_rb, &\n        & 0.68206e-01_rb,0.75045e-01_rb,0.78915e-01_rb,0.70180e-01_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.26775e-03_rb,0.21832e-01_rb,0.37611e-01_rb,0.51156e-01_rb,0.62768e-01_rb, &\n        & 0.72267e-01_rb,0.79422e-01_rb,0.83262e-01_rb,0.72735e-01_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.30033e-03_rb,0.22961e-01_rb,0.39618e-01_rb,0.53774e-01_rb,0.65773e-01_rb, &\n        & 0.75819e-01_rb,0.83532e-01_rb,0.87496e-01_rb,0.75459e-01_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.34366e-03_rb,0.24116e-01_rb,0.41597e-01_rb,0.56506e-01_rb,0.68944e-01_rb, &\n        & 0.79231e-01_rb,0.87245e-01_rb,0.91336e-01_rb,0.77669e-01_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.39179e-03_rb,0.25289e-01_rb,0.43575e-01_rb,0.59282e-01_rb,0.72132e-01_rb, &\n        & 0.82956e-01_rb,0.91038e-01_rb,0.94937e-01_rb,0.80272e-01_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.20730e-03_rb,0.18044e-01_rb,0.30227e-01_rb,0.41206e-01_rb,0.50626e-01_rb, &\n        & 0.58095e-01_rb,0.63725e-01_rb,0.66721e-01_rb,0.57780e-01_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.24007e-03_rb,0.18972e-01_rb,0.31883e-01_rb,0.43486e-01_rb,0.53572e-01_rb, &\n        & 0.61742e-01_rb,0.67489e-01_rb,0.70552e-01_rb,0.60009e-01_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.26931e-03_rb,0.19934e-01_rb,0.33681e-01_rb,0.45775e-01_rb,0.56255e-01_rb, &\n        & 0.64869e-01_rb,0.71254e-01_rb,0.74232e-01_rb,0.62350e-01_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.30064e-03_rb,0.20965e-01_rb,0.35448e-01_rb,0.48199e-01_rb,0.59036e-01_rb, &\n        & 0.67921e-01_rb,0.74594e-01_rb,0.77689e-01_rb,0.64410e-01_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.33967e-03_rb,0.21972e-01_rb,0.37192e-01_rb,0.50676e-01_rb,0.61884e-01_rb, &\n        & 0.71207e-01_rb,0.77888e-01_rb,0.80947e-01_rb,0.66667e-01_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.18201e-03_rb,0.15595e-01_rb,0.25372e-01_rb,0.34431e-01_rb,0.42401e-01_rb, &\n        & 0.48915e-01_rb,0.53613e-01_rb,0.55953e-01_rb,0.47727e-01_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.20883e-03_rb,0.16422e-01_rb,0.26851e-01_rb,0.36481e-01_rb,0.45074e-01_rb, &\n        & 0.52078e-01_rb,0.56860e-01_rb,0.59287e-01_rb,0.49553e-01_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.23874e-03_rb,0.17285e-01_rb,0.28425e-01_rb,0.38514e-01_rb,0.47542e-01_rb, &\n        & 0.54904e-01_rb,0.60284e-01_rb,0.62561e-01_rb,0.51595e-01_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.26707e-03_rb,0.18200e-01_rb,0.30007e-01_rb,0.40613e-01_rb,0.49982e-01_rb, &\n        & 0.57662e-01_rb,0.63231e-01_rb,0.65666e-01_rb,0.53450e-01_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.30102e-03_rb,0.19113e-01_rb,0.31552e-01_rb,0.42805e-01_rb,0.52535e-01_rb, &\n        & 0.60559e-01_rb,0.66195e-01_rb,0.68549e-01_rb,0.55415e-01_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.15801e-03_rb,0.13295e-01_rb,0.21524e-01_rb,0.28666e-01_rb,0.35142e-01_rb, &\n        & 0.40757e-01_rb,0.44715e-01_rb,0.46740e-01_rb,0.39384e-01_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.17994e-03_rb,0.14057e-01_rb,0.22786e-01_rb,0.30487e-01_rb,0.37563e-01_rb, &\n        & 0.43509e-01_rb,0.47676e-01_rb,0.49638e-01_rb,0.40849e-01_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.20535e-03_rb,0.14811e-01_rb,0.24116e-01_rb,0.32266e-01_rb,0.39764e-01_rb, &\n        & 0.46122e-01_rb,0.50669e-01_rb,0.52413e-01_rb,0.42683e-01_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.23511e-03_rb,0.15598e-01_rb,0.25481e-01_rb,0.34103e-01_rb,0.41924e-01_rb, &\n        & 0.48592e-01_rb,0.53283e-01_rb,0.55235e-01_rb,0.44335e-01_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.26640e-03_rb,0.16402e-01_rb,0.26844e-01_rb,0.36000e-01_rb,0.44180e-01_rb, &\n        & 0.51086e-01_rb,0.55918e-01_rb,0.57796e-01_rb,0.45991e-01_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.13805e-03_rb,0.11222e-01_rb,0.18125e-01_rb,0.23877e-01_rb,0.28939e-01_rb, &\n        & 0.33506e-01_rb,0.36944e-01_rb,0.38672e-01_rb,0.32335e-01_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.15439e-03_rb,0.11883e-01_rb,0.19262e-01_rb,0.25521e-01_rb,0.31068e-01_rb, &\n        & 0.35882e-01_rb,0.39589e-01_rb,0.41132e-01_rb,0.33684e-01_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.17561e-03_rb,0.12558e-01_rb,0.20409e-01_rb,0.27033e-01_rb,0.33056e-01_rb, &\n        & 0.38260e-01_rb,0.42155e-01_rb,0.43639e-01_rb,0.35175e-01_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.19967e-03_rb,0.13236e-01_rb,0.21628e-01_rb,0.28554e-01_rb,0.34939e-01_rb, &\n        & 0.40459e-01_rb,0.44550e-01_rb,0.46147e-01_rb,0.36643e-01_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.23117e-03_rb,0.13936e-01_rb,0.22836e-01_rb,0.30183e-01_rb,0.36909e-01_rb, &\n        & 0.42652e-01_rb,0.46864e-01_rb,0.48440e-01_rb,0.37992e-01_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.11987e-03_rb,0.93983e-02_rb,0.15130e-01_rb,0.19808e-01_rb,0.23796e-01_rb, &\n        & 0.27285e-01_rb,0.30176e-01_rb,0.31906e-01_rb,0.26193e-01_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.13164e-03_rb,0.99743e-02_rb,0.16118e-01_rb,0.21319e-01_rb,0.25600e-01_rb, &\n        & 0.29404e-01_rb,0.32485e-01_rb,0.33909e-01_rb,0.27439e-01_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.14862e-03_rb,0.10559e-01_rb,0.17124e-01_rb,0.22674e-01_rb,0.27373e-01_rb, &\n        & 0.31501e-01_rb,0.34705e-01_rb,0.36112e-01_rb,0.28667e-01_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.16941e-03_rb,0.11142e-01_rb,0.18163e-01_rb,0.23992e-01_rb,0.29023e-01_rb, &\n        & 0.33461e-01_rb,0.36882e-01_rb,0.38288e-01_rb,0.29990e-01_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.19444e-03_rb,0.11740e-01_rb,0.19231e-01_rb,0.25410e-01_rb,0.30702e-01_rb, &\n        & 0.35380e-01_rb,0.38933e-01_rb,0.40325e-01_rb,0.31163e-01_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.10266e-03_rb,0.78132e-02_rb,0.12495e-01_rb,0.16294e-01_rb,0.19552e-01_rb, &\n        & 0.22203e-01_rb,0.24522e-01_rb,0.26158e-01_rb,0.21477e-01_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.11308e-03_rb,0.82996e-02_rb,0.13385e-01_rb,0.17650e-01_rb,0.21113e-01_rb, &\n        & 0.24026e-01_rb,0.26424e-01_rb,0.27779e-01_rb,0.22661e-01_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.12431e-03_rb,0.88118e-02_rb,0.14254e-01_rb,0.18852e-01_rb,0.22717e-01_rb, &\n        & 0.25822e-01_rb,0.28352e-01_rb,0.29667e-01_rb,0.23674e-01_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.14146e-03_rb,0.93080e-02_rb,0.15152e-01_rb,0.20013e-01_rb,0.24158e-01_rb, &\n        & 0.27569e-01_rb,0.30306e-01_rb,0.31495e-01_rb,0.24838e-01_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.16275e-03_rb,0.98287e-02_rb,0.16080e-01_rb,0.21227e-01_rb,0.25592e-01_rb, &\n        & 0.29226e-01_rb,0.32075e-01_rb,0.33357e-01_rb,0.25887e-01_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.85797e-04_rb,0.64412e-02_rb,0.10231e-01_rb,0.13327e-01_rb,0.15923e-01_rb, &\n        & 0.18103e-01_rb,0.19903e-01_rb,0.21189e-01_rb,0.17975e-01_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.94370e-04_rb,0.68514e-02_rb,0.11041e-01_rb,0.14472e-01_rb,0.17298e-01_rb, &\n        & 0.19661e-01_rb,0.21421e-01_rb,0.22631e-01_rb,0.18990e-01_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.10603e-03_rb,0.72870e-02_rb,0.11786e-01_rb,0.15570e-01_rb,0.18710e-01_rb, &\n        & 0.21195e-01_rb,0.23092e-01_rb,0.24157e-01_rb,0.19934e-01_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.11819e-03_rb,0.77217e-02_rb,0.12559e-01_rb,0.16589e-01_rb,0.19991e-01_rb, &\n        & 0.22738e-01_rb,0.24769e-01_rb,0.25771e-01_rb,0.20946e-01_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.13500e-03_rb,0.81624e-02_rb,0.13346e-01_rb,0.17610e-01_rb,0.21227e-01_rb, &\n        & 0.24140e-01_rb,0.26339e-01_rb,0.27388e-01_rb,0.21819e-01_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.73275e-04_rb,0.53147e-02_rb,0.83832e-02_rb,0.10890e-01_rb,0.12998e-01_rb, &\n        & 0.14772e-01_rb,0.16237e-01_rb,0.17165e-01_rb,0.15972e-01_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.80303e-04_rb,0.56594e-02_rb,0.90964e-02_rb,0.11869e-01_rb,0.14181e-01_rb, &\n        & 0.16065e-01_rb,0.17493e-01_rb,0.18447e-01_rb,0.17075e-01_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.88821e-04_rb,0.60286e-02_rb,0.97491e-02_rb,0.12852e-01_rb,0.15387e-01_rb, &\n        & 0.17394e-01_rb,0.18909e-01_rb,0.19708e-01_rb,0.18078e-01_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.10142e-03_rb,0.63962e-02_rb,0.10392e-01_rb,0.13730e-01_rb,0.16522e-01_rb, &\n        & 0.18771e-01_rb,0.20308e-01_rb,0.21096e-01_rb,0.19037e-01_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.11405e-03_rb,0.67754e-02_rb,0.11065e-01_rb,0.14605e-01_rb,0.17581e-01_rb, &\n        & 0.19991e-01_rb,0.21687e-01_rb,0.22458e-01_rb,0.19875e-01_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.64517e-04_rb,0.45135e-02_rb,0.71165e-02_rb,0.92384e-02_rb,0.10998e-01_rb, &\n        & 0.12474e-01_rb,0.13700e-01_rb,0.14388e-01_rb,0.14631e-01_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.71535e-04_rb,0.48070e-02_rb,0.77137e-02_rb,0.10092e-01_rb,0.12023e-01_rb, &\n        & 0.13623e-01_rb,0.14792e-01_rb,0.15449e-01_rb,0.15481e-01_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.79504e-04_rb,0.51199e-02_rb,0.82600e-02_rb,0.10911e-01_rb,0.13076e-01_rb, &\n        & 0.14755e-01_rb,0.16002e-01_rb,0.16546e-01_rb,0.16298e-01_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.90433e-04_rb,0.54351e-02_rb,0.88101e-02_rb,0.11647e-01_rb,0.14018e-01_rb, &\n        & 0.15922e-01_rb,0.17206e-01_rb,0.17715e-01_rb,0.16991e-01_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.10146e-03_rb,0.57596e-02_rb,0.93865e-02_rb,0.12407e-01_rb,0.14922e-01_rb, &\n        & 0.16951e-01_rb,0.18384e-01_rb,0.18893e-01_rb,0.17666e-01_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.56913e-04_rb,0.38361e-02_rb,0.60238e-02_rb,0.78101e-02_rb,0.92943e-02_rb, &\n        & 0.10515e-01_rb,0.11514e-01_rb,0.12051e-01_rb,0.12708e-01_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.62984e-04_rb,0.40886e-02_rb,0.65153e-02_rb,0.85464e-02_rb,0.10168e-01_rb, &\n        & 0.11498e-01_rb,0.12452e-01_rb,0.12938e-01_rb,0.13473e-01_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.70588e-04_rb,0.43561e-02_rb,0.69761e-02_rb,0.92137e-02_rb,0.11068e-01_rb, &\n        & 0.12482e-01_rb,0.13497e-01_rb,0.13892e-01_rb,0.14090e-01_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.79556e-04_rb,0.46222e-02_rb,0.74472e-02_rb,0.98382e-02_rb,0.11852e-01_rb, &\n        & 0.13461e-01_rb,0.14539e-01_rb,0.14868e-01_rb,0.14684e-01_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.89330e-04_rb,0.49037e-02_rb,0.79332e-02_rb,0.10492e-01_rb,0.12613e-01_rb, &\n        & 0.14331e-01_rb,0.15523e-01_rb,0.15867e-01_rb,0.15266e-01_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.49040e-04_rb,0.32470e-02_rb,0.50782e-02_rb,0.65813e-02_rb,0.78254e-02_rb, &\n        & 0.88398e-02_rb,0.96483e-02_rb,0.10090e-01_rb,0.10614e-01_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.54225e-04_rb,0.34616e-02_rb,0.54906e-02_rb,0.71951e-02_rb,0.85711e-02_rb, &\n        & 0.96781e-02_rb,0.10460e-01_rb,0.10840e-01_rb,0.11206e-01_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.61136e-04_rb,0.36878e-02_rb,0.58777e-02_rb,0.77458e-02_rb,0.93183e-02_rb, &\n        & 0.10528e-01_rb,0.11347e-01_rb,0.11684e-01_rb,0.11730e-01_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.68788e-04_rb,0.39213e-02_rb,0.62791e-02_rb,0.82774e-02_rb,0.99761e-02_rb, &\n        & 0.11332e-01_rb,0.12247e-01_rb,0.12495e-01_rb,0.12250e-01_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.77427e-04_rb,0.41640e-02_rb,0.66890e-02_rb,0.88358e-02_rb,0.10624e-01_rb, &\n        & 0.12069e-01_rb,0.13064e-01_rb,0.13341e-01_rb,0.12730e-01_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.69098e-02_rb,0.84650e-01_rb,0.13006e+00_rb,0.16652e+00_rb,0.19608e+00_rb, &\n        & 0.21975e+00_rb,0.23496e+00_rb,0.23277e+00_rb,0.18007e+00_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.78200e-02_rb,0.89279e-01_rb,0.13630e+00_rb,0.17409e+00_rb,0.20398e+00_rb, &\n        & 0.22718e+00_rb,0.24129e+00_rb,0.23750e+00_rb,0.18438e+00_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.89787e-02_rb,0.94428e-01_rb,0.14296e+00_rb,0.18170e+00_rb,0.21205e+00_rb, &\n        & 0.23450e+00_rb,0.24726e+00_rb,0.24172e+00_rb,0.18878e+00_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.10426e-01_rb,0.10003e+00_rb,0.15009e+00_rb,0.18943e+00_rb,0.22015e+00_rb, &\n        & 0.24206e+00_rb,0.25341e+00_rb,0.24571e+00_rb,0.19325e+00_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.12209e-01_rb,0.10603e+00_rb,0.15781e+00_rb,0.19756e+00_rb,0.22832e+00_rb, &\n        & 0.24963e+00_rb,0.25957e+00_rb,0.24958e+00_rb,0.19748e+00_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.64020e-02_rb,0.74597e-01_rb,0.11458e+00_rb,0.14581e+00_rb,0.17103e+00_rb, &\n        & 0.19105e+00_rb,0.20412e+00_rb,0.20133e+00_rb,0.15242e+00_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.72586e-02_rb,0.78857e-01_rb,0.12024e+00_rb,0.15257e+00_rb,0.17796e+00_rb, &\n        & 0.19765e+00_rb,0.20972e+00_rb,0.20548e+00_rb,0.15620e+00_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.82903e-02_rb,0.83602e-01_rb,0.12623e+00_rb,0.15931e+00_rb,0.18512e+00_rb, &\n        & 0.20423e+00_rb,0.21503e+00_rb,0.20937e+00_rb,0.15993e+00_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.94578e-02_rb,0.88668e-01_rb,0.13277e+00_rb,0.16635e+00_rb,0.19233e+00_rb, &\n        & 0.21098e+00_rb,0.22050e+00_rb,0.21294e+00_rb,0.16397e+00_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.10865e-01_rb,0.94113e-01_rb,0.13987e+00_rb,0.17375e+00_rb,0.19975e+00_rb, &\n        & 0.21771e+00_rb,0.22592e+00_rb,0.21639e+00_rb,0.16745e+00_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.56943e-02_rb,0.64084e-01_rb,0.99294e-01_rb,0.12614e+00_rb,0.14746e+00_rb, &\n        & 0.16414e+00_rb,0.17503e+00_rb,0.17255e+00_rb,0.12738e+00_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.64702e-02_rb,0.67967e-01_rb,0.10427e+00_rb,0.13197e+00_rb,0.15350e+00_rb, &\n        & 0.16985e+00_rb,0.18008e+00_rb,0.17631e+00_rb,0.13087e+00_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.74200e-02_rb,0.72252e-01_rb,0.10956e+00_rb,0.13801e+00_rb,0.15978e+00_rb, &\n        & 0.17567e+00_rb,0.18476e+00_rb,0.17977e+00_rb,0.13421e+00_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.84907e-02_rb,0.76772e-01_rb,0.11539e+00_rb,0.14427e+00_rb,0.16615e+00_rb, &\n        & 0.18168e+00_rb,0.18947e+00_rb,0.18300e+00_rb,0.13761e+00_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.97078e-02_rb,0.81671e-01_rb,0.12172e+00_rb,0.15082e+00_rb,0.17277e+00_rb, &\n        & 0.18769e+00_rb,0.19427e+00_rb,0.18608e+00_rb,0.14067e+00_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.48829e-02_rb,0.54383e-01_rb,0.85075e-01_rb,0.10815e+00_rb,0.12638e+00_rb, &\n        & 0.14020e+00_rb,0.14903e+00_rb,0.14670e+00_rb,0.10614e+00_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.55740e-02_rb,0.57779e-01_rb,0.89436e-01_rb,0.11323e+00_rb,0.13160e+00_rb, &\n        & 0.14514e+00_rb,0.15349e+00_rb,0.15027e+00_rb,0.10949e+00_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.64015e-02_rb,0.61546e-01_rb,0.94139e-01_rb,0.11850e+00_rb,0.13701e+00_rb, &\n        & 0.15017e+00_rb,0.15757e+00_rb,0.15344e+00_rb,0.11257e+00_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.73719e-02_rb,0.65521e-01_rb,0.99232e-01_rb,0.12403e+00_rb,0.14259e+00_rb, &\n        & 0.15541e+00_rb,0.16175e+00_rb,0.15634e+00_rb,0.11557e+00_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.84789e-02_rb,0.69810e-01_rb,0.10478e+00_rb,0.12985e+00_rb,0.14840e+00_rb, &\n        & 0.16071e+00_rb,0.16597e+00_rb,0.15910e+00_rb,0.11833e+00_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.41357e-02_rb,0.45878e-01_rb,0.71866e-01_rb,0.92130e-01_rb,0.10772e+00_rb, &\n        & 0.11935e+00_rb,0.12627e+00_rb,0.12382e+00_rb,0.88490e-01_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.47278e-02_rb,0.48809e-01_rb,0.75724e-01_rb,0.96485e-01_rb,0.11218e+00_rb, &\n        & 0.12363e+00_rb,0.13023e+00_rb,0.12723e+00_rb,0.91646e-01_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.54234e-02_rb,0.52108e-01_rb,0.79925e-01_rb,0.10105e+00_rb,0.11684e+00_rb, &\n        & 0.12795e+00_rb,0.13389e+00_rb,0.13024e+00_rb,0.94384e-01_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.62672e-02_rb,0.55647e-01_rb,0.84438e-01_rb,0.10591e+00_rb,0.12167e+00_rb, &\n        & 0.13255e+00_rb,0.13759e+00_rb,0.13288e+00_rb,0.97037e-01_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.72387e-02_rb,0.59393e-01_rb,0.89326e-01_rb,0.11102e+00_rb,0.12680e+00_rb, &\n        & 0.13723e+00_rb,0.14128e+00_rb,0.13530e+00_rb,0.99585e-01_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.34820e-02_rb,0.38455e-01_rb,0.60106e-01_rb,0.77515e-01_rb,0.91143e-01_rb, &\n        & 0.10094e+00_rb,0.10649e+00_rb,0.10403e+00_rb,0.73509e-01_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.39507e-02_rb,0.40927e-01_rb,0.63402e-01_rb,0.81240e-01_rb,0.94968e-01_rb, &\n        & 0.10469e+00_rb,0.11001e+00_rb,0.10717e+00_rb,0.76426e-01_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.45266e-02_rb,0.43726e-01_rb,0.67041e-01_rb,0.85234e-01_rb,0.98911e-01_rb, &\n        & 0.10845e+00_rb,0.11329e+00_rb,0.10996e+00_rb,0.78861e-01_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.52242e-02_rb,0.46807e-01_rb,0.70939e-01_rb,0.89547e-01_rb,0.10312e+00_rb, &\n        & 0.11247e+00_rb,0.11653e+00_rb,0.11237e+00_rb,0.81250e-01_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.60449e-02_rb,0.50083e-01_rb,0.75175e-01_rb,0.94041e-01_rb,0.10760e+00_rb, &\n        & 0.11657e+00_rb,0.11980e+00_rb,0.11449e+00_rb,0.83549e-01_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.28711e-02_rb,0.32523e-01_rb,0.49971e-01_rb,0.64597e-01_rb,0.76360e-01_rb, &\n        & 0.84918e-01_rb,0.89523e-01_rb,0.87200e-01_rb,0.60618e-01_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.32550e-02_rb,0.34614e-01_rb,0.52803e-01_rb,0.67740e-01_rb,0.79713e-01_rb, &\n        & 0.88207e-01_rb,0.92681e-01_rb,0.90060e-01_rb,0.63331e-01_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.37263e-02_rb,0.36968e-01_rb,0.55904e-01_rb,0.71153e-01_rb,0.83143e-01_rb, &\n        & 0.91509e-01_rb,0.95607e-01_rb,0.92564e-01_rb,0.65595e-01_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.42953e-02_rb,0.39538e-01_rb,0.59281e-01_rb,0.74912e-01_rb,0.86822e-01_rb, &\n        & 0.94956e-01_rb,0.98438e-01_rb,0.94728e-01_rb,0.67680e-01_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.49788e-02_rb,0.42264e-01_rb,0.62953e-01_rb,0.78842e-01_rb,0.90742e-01_rb, &\n        & 0.98510e-01_rb,0.10129e+00_rb,0.96641e-01_rb,0.69746e-01_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.23480e-02_rb,0.27230e-01_rb,0.41671e-01_rb,0.53565e-01_rb,0.63436e-01_rb, &\n        & 0.70999e-01_rb,0.75020e-01_rb,0.72906e-01_rb,0.49386e-01_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.26517e-02_rb,0.29065e-01_rb,0.44017e-01_rb,0.56225e-01_rb,0.66341e-01_rb, &\n        & 0.73935e-01_rb,0.77879e-01_rb,0.75468e-01_rb,0.51750e-01_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.30285e-02_rb,0.31112e-01_rb,0.46598e-01_rb,0.59161e-01_rb,0.69302e-01_rb, &\n        & 0.76809e-01_rb,0.80439e-01_rb,0.77729e-01_rb,0.53904e-01_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.34816e-02_rb,0.33348e-01_rb,0.49448e-01_rb,0.62380e-01_rb,0.72502e-01_rb, &\n        & 0.79786e-01_rb,0.82887e-01_rb,0.79683e-01_rb,0.55731e-01_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.40444e-02_rb,0.35730e-01_rb,0.52545e-01_rb,0.65794e-01_rb,0.75878e-01_rb, &\n        & 0.82889e-01_rb,0.85379e-01_rb,0.81391e-01_rb,0.57509e-01_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.19247e-02_rb,0.22630e-01_rb,0.34752e-01_rb,0.44387e-01_rb,0.52455e-01_rb, &\n        & 0.58833e-01_rb,0.62468e-01_rb,0.60719e-01_rb,0.41880e-01_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.21557e-02_rb,0.24204e-01_rb,0.36750e-01_rb,0.46636e-01_rb,0.54976e-01_rb, &\n        & 0.61421e-01_rb,0.65052e-01_rb,0.62994e-01_rb,0.44010e-01_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.24477e-02_rb,0.25958e-01_rb,0.38981e-01_rb,0.49108e-01_rb,0.57526e-01_rb, &\n        & 0.63907e-01_rb,0.67351e-01_rb,0.65038e-01_rb,0.45929e-01_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.28196e-02_rb,0.27882e-01_rb,0.41431e-01_rb,0.51802e-01_rb,0.60249e-01_rb, &\n        & 0.66480e-01_rb,0.69467e-01_rb,0.66788e-01_rb,0.47555e-01_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.32654e-02_rb,0.29939e-01_rb,0.44072e-01_rb,0.54714e-01_rb,0.63163e-01_rb, &\n        & 0.69207e-01_rb,0.71600e-01_rb,0.68328e-01_rb,0.49077e-01_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.16200e-02_rb,0.18814e-01_rb,0.28911e-01_rb,0.37025e-01_rb,0.43479e-01_rb, &\n        & 0.48691e-01_rb,0.51767e-01_rb,0.50517e-01_rb,0.36565e-01_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.18031e-02_rb,0.20150e-01_rb,0.30632e-01_rb,0.38967e-01_rb,0.45609e-01_rb, &\n        & 0.50940e-01_rb,0.54046e-01_rb,0.52515e-01_rb,0.38425e-01_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.20232e-02_rb,0.21640e-01_rb,0.32572e-01_rb,0.41079e-01_rb,0.47788e-01_rb, &\n        & 0.53101e-01_rb,0.56114e-01_rb,0.54338e-01_rb,0.40162e-01_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.23038e-02_rb,0.23298e-01_rb,0.34703e-01_rb,0.43393e-01_rb,0.50110e-01_rb, &\n        & 0.55298e-01_rb,0.57982e-01_rb,0.55873e-01_rb,0.41782e-01_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.26649e-02_rb,0.25073e-01_rb,0.36983e-01_rb,0.45868e-01_rb,0.52617e-01_rb, &\n        & 0.57641e-01_rb,0.59833e-01_rb,0.57222e-01_rb,0.43243e-01_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.14241e-02_rb,0.16065e-01_rb,0.24586e-01_rb,0.31465e-01_rb,0.36963e-01_rb, &\n        & 0.41093e-01_rb,0.43617e-01_rb,0.42673e-01_rb,0.32343e-01_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.15878e-02_rb,0.17268e-01_rb,0.26144e-01_rb,0.33169e-01_rb,0.38816e-01_rb, &\n        & 0.42988e-01_rb,0.45546e-01_rb,0.44327e-01_rb,0.34054e-01_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.18003e-02_rb,0.18609e-01_rb,0.27888e-01_rb,0.35066e-01_rb,0.40717e-01_rb, &\n        & 0.44861e-01_rb,0.47277e-01_rb,0.45845e-01_rb,0.35562e-01_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.20513e-02_rb,0.20069e-01_rb,0.29794e-01_rb,0.37147e-01_rb,0.42781e-01_rb, &\n        & 0.46774e-01_rb,0.48869e-01_rb,0.47106e-01_rb,0.36881e-01_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.23610e-02_rb,0.21636e-01_rb,0.31786e-01_rb,0.39341e-01_rb,0.44964e-01_rb, &\n        & 0.48832e-01_rb,0.50478e-01_rb,0.48237e-01_rb,0.38136e-01_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.12367e-02_rb,0.13664e-01_rb,0.20841e-01_rb,0.26619e-01_rb,0.31258e-01_rb, &\n        & 0.34766e-01_rb,0.36665e-01_rb,0.35873e-01_rb,0.27811e-01_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.13898e-02_rb,0.14747e-01_rb,0.22238e-01_rb,0.28134e-01_rb,0.32876e-01_rb, &\n        & 0.36392e-01_rb,0.38286e-01_rb,0.37257e-01_rb,0.29212e-01_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.15822e-02_rb,0.15920e-01_rb,0.23808e-01_rb,0.29830e-01_rb,0.34558e-01_rb, &\n        & 0.38014e-01_rb,0.39728e-01_rb,0.38493e-01_rb,0.30517e-01_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.18117e-02_rb,0.17195e-01_rb,0.25479e-01_rb,0.31664e-01_rb,0.36378e-01_rb, &\n        & 0.39675e-01_rb,0.41098e-01_rb,0.39553e-01_rb,0.31705e-01_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.20996e-02_rb,0.18567e-01_rb,0.27225e-01_rb,0.33571e-01_rb,0.38302e-01_rb, &\n        & 0.41437e-01_rb,0.42501e-01_rb,0.40525e-01_rb,0.32748e-01_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.10606e-02_rb,0.11594e-01_rb,0.17616e-01_rb,0.22456e-01_rb,0.26337e-01_rb, &\n        & 0.29282e-01_rb,0.30831e-01_rb,0.30037e-01_rb,0.23251e-01_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.11975e-02_rb,0.12541e-01_rb,0.18850e-01_rb,0.23795e-01_rb,0.27745e-01_rb, &\n        & 0.30676e-01_rb,0.32191e-01_rb,0.31186e-01_rb,0.24461e-01_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.13686e-02_rb,0.13557e-01_rb,0.20236e-01_rb,0.25287e-01_rb,0.29224e-01_rb, &\n        & 0.32085e-01_rb,0.33411e-01_rb,0.32190e-01_rb,0.25539e-01_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.15787e-02_rb,0.14655e-01_rb,0.21685e-01_rb,0.26887e-01_rb,0.30821e-01_rb, &\n        & 0.33533e-01_rb,0.34581e-01_rb,0.33091e-01_rb,0.26483e-01_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.18422e-02_rb,0.15847e-01_rb,0.23201e-01_rb,0.28535e-01_rb,0.32486e-01_rb, &\n        & 0.35059e-01_rb,0.35791e-01_rb,0.33942e-01_rb,0.27340e-01_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.11257e+00_rb,0.31731e+00_rb,0.42139e+00_rb,0.49121e+00_rb,0.53179e+00_rb, &\n        & 0.54416e+00_rb,0.52879e+00_rb,0.48565e+00_rb,0.38185e+00_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.12995e+00_rb,0.33757e+00_rb,0.44079e+00_rb,0.50693e+00_rb,0.54374e+00_rb, &\n        & 0.55231e+00_rb,0.53411e+00_rb,0.48973e+00_rb,0.38664e+00_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.14899e+00_rb,0.35787e+00_rb,0.45940e+00_rb,0.52235e+00_rb,0.55490e+00_rb, &\n        & 0.56009e+00_rb,0.53945e+00_rb,0.49411e+00_rb,0.39028e+00_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.16946e+00_rb,0.37848e+00_rb,0.47747e+00_rb,0.53692e+00_rb,0.56497e+00_rb, &\n        & 0.56760e+00_rb,0.54484e+00_rb,0.49832e+00_rb,0.39391e+00_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.19143e+00_rb,0.39915e+00_rb,0.49476e+00_rb,0.55039e+00_rb,0.57468e+00_rb, &\n        & 0.57486e+00_rb,0.55036e+00_rb,0.50307e+00_rb,0.39756e+00_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.97091e-01_rb,0.28037e+00_rb,0.37054e+00_rb,0.43162e+00_rb,0.46715e+00_rb, &\n        & 0.47740e+00_rb,0.46327e+00_rb,0.42557e+00_rb,0.32833e+00_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.11208e+00_rb,0.29815e+00_rb,0.38764e+00_rb,0.44615e+00_rb,0.47841e+00_rb, &\n        & 0.48513e+00_rb,0.46886e+00_rb,0.42998e+00_rb,0.33260e+00_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.12856e+00_rb,0.31599e+00_rb,0.40420e+00_rb,0.45996e+00_rb,0.48848e+00_rb, &\n        & 0.49285e+00_rb,0.47441e+00_rb,0.43431e+00_rb,0.33632e+00_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.14648e+00_rb,0.33425e+00_rb,0.42020e+00_rb,0.47262e+00_rb,0.49778e+00_rb, &\n        & 0.50015e+00_rb,0.47996e+00_rb,0.43890e+00_rb,0.33965e+00_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.16579e+00_rb,0.35250e+00_rb,0.43554e+00_rb,0.48445e+00_rb,0.50655e+00_rb, &\n        & 0.50702e+00_rb,0.48572e+00_rb,0.44375e+00_rb,0.34330e+00_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.80654e-01_rb,0.24334e+00_rb,0.32145e+00_rb,0.37485e+00_rb,0.40615e+00_rb, &\n        & 0.41488e+00_rb,0.40284e+00_rb,0.37005e+00_rb,0.27897e+00_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.93334e-01_rb,0.25889e+00_rb,0.33665e+00_rb,0.38799e+00_rb,0.41628e+00_rb, &\n        & 0.42254e+00_rb,0.40845e+00_rb,0.37420e+00_rb,0.28281e+00_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.10735e+00_rb,0.27449e+00_rb,0.35143e+00_rb,0.40015e+00_rb,0.42551e+00_rb, &\n        & 0.42981e+00_rb,0.41382e+00_rb,0.37871e+00_rb,0.28619e+00_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.12265e+00_rb,0.29043e+00_rb,0.36548e+00_rb,0.41153e+00_rb,0.43393e+00_rb, &\n        & 0.43649e+00_rb,0.41932e+00_rb,0.38340e+00_rb,0.28955e+00_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.13925e+00_rb,0.30659e+00_rb,0.37895e+00_rb,0.42211e+00_rb,0.44187e+00_rb, &\n        & 0.44276e+00_rb,0.42490e+00_rb,0.38830e+00_rb,0.29282e+00_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.65986e-01_rb,0.20968e+00_rb,0.27746e+00_rb,0.32321e+00_rb,0.35021e+00_rb, &\n        & 0.35817e+00_rb,0.34816e+00_rb,0.31914e+00_rb,0.23714e+00_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.76550e-01_rb,0.22318e+00_rb,0.29094e+00_rb,0.33486e+00_rb,0.35941e+00_rb, &\n        & 0.36546e+00_rb,0.35341e+00_rb,0.32318e+00_rb,0.24040e+00_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.88349e-01_rb,0.23676e+00_rb,0.30387e+00_rb,0.34562e+00_rb,0.36786e+00_rb, &\n        & 0.37204e+00_rb,0.35871e+00_rb,0.32765e+00_rb,0.24343e+00_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.10129e+00_rb,0.25065e+00_rb,0.31610e+00_rb,0.35574e+00_rb,0.37546e+00_rb, &\n        & 0.37811e+00_rb,0.36390e+00_rb,0.33220e+00_rb,0.24649e+00_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.11540e+00_rb,0.26489e+00_rb,0.32784e+00_rb,0.36504e+00_rb,0.38250e+00_rb, &\n        & 0.38387e+00_rb,0.36919e+00_rb,0.33697e+00_rb,0.24943e+00_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.53393e-01_rb,0.18000e+00_rb,0.23883e+00_rb,0.27751e+00_rb,0.30053e+00_rb, &\n        & 0.30742e+00_rb,0.29898e+00_rb,0.27383e+00_rb,0.20106e+00_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.62233e-01_rb,0.19175e+00_rb,0.25050e+00_rb,0.28777e+00_rb,0.30898e+00_rb, &\n        & 0.31400e+00_rb,0.30389e+00_rb,0.27769e+00_rb,0.20390e+00_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.72177e-01_rb,0.20364e+00_rb,0.26165e+00_rb,0.29741e+00_rb,0.31640e+00_rb, &\n        & 0.31996e+00_rb,0.30876e+00_rb,0.28174e+00_rb,0.20671e+00_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.83134e-01_rb,0.21576e+00_rb,0.27227e+00_rb,0.30617e+00_rb,0.32319e+00_rb, &\n        & 0.32542e+00_rb,0.31353e+00_rb,0.28599e+00_rb,0.20956e+00_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.95090e-01_rb,0.22815e+00_rb,0.28259e+00_rb,0.31429e+00_rb,0.32943e+00_rb, &\n        & 0.33059e+00_rb,0.31837e+00_rb,0.29043e+00_rb,0.21220e+00_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.42433e-01_rb,0.15317e+00_rb,0.20425e+00_rb,0.23740e+00_rb,0.25663e+00_rb, &\n        & 0.26234e+00_rb,0.25512e+00_rb,0.23364e+00_rb,0.16949e+00_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.49749e-01_rb,0.16341e+00_rb,0.21435e+00_rb,0.24646e+00_rb,0.26413e+00_rb, &\n        & 0.26825e+00_rb,0.25968e+00_rb,0.23716e+00_rb,0.17204e+00_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.58017e-01_rb,0.17381e+00_rb,0.22409e+00_rb,0.25485e+00_rb,0.27073e+00_rb, &\n        & 0.27356e+00_rb,0.26405e+00_rb,0.24070e+00_rb,0.17477e+00_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.67231e-01_rb,0.18439e+00_rb,0.23345e+00_rb,0.26240e+00_rb,0.27677e+00_rb, &\n        & 0.27839e+00_rb,0.26819e+00_rb,0.24459e+00_rb,0.17741e+00_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.77316e-01_rb,0.19517e+00_rb,0.24253e+00_rb,0.26953e+00_rb,0.28221e+00_rb, &\n        & 0.28296e+00_rb,0.27246e+00_rb,0.24867e+00_rb,0.17984e+00_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.33835e-01_rb,0.12894e+00_rb,0.17377e+00_rb,0.20223e+00_rb,0.21858e+00_rb, &\n        & 0.22305e+00_rb,0.21661e+00_rb,0.19799e+00_rb,0.14234e+00_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.39495e-01_rb,0.13775e+00_rb,0.18255e+00_rb,0.21017e+00_rb,0.22506e+00_rb, &\n        & 0.22828e+00_rb,0.22063e+00_rb,0.20115e+00_rb,0.14469e+00_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.46213e-01_rb,0.14677e+00_rb,0.19104e+00_rb,0.21747e+00_rb,0.23085e+00_rb, &\n        & 0.23293e+00_rb,0.22444e+00_rb,0.20438e+00_rb,0.14721e+00_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.53881e-01_rb,0.15604e+00_rb,0.19912e+00_rb,0.22407e+00_rb,0.23606e+00_rb, &\n        & 0.23711e+00_rb,0.22803e+00_rb,0.20793e+00_rb,0.14967e+00_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.62313e-01_rb,0.16559e+00_rb,0.20703e+00_rb,0.23032e+00_rb,0.24086e+00_rb, &\n        & 0.24109e+00_rb,0.23183e+00_rb,0.21164e+00_rb,0.15187e+00_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.27294e-01_rb,0.10784e+00_rb,0.14673e+00_rb,0.17152e+00_rb,0.18541e+00_rb, &\n        & 0.18896e+00_rb,0.18302e+00_rb,0.16686e+00_rb,0.11892e+00_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.31945e-01_rb,0.11533e+00_rb,0.15437e+00_rb,0.17841e+00_rb,0.19097e+00_rb, &\n        & 0.19348e+00_rb,0.18650e+00_rb,0.16969e+00_rb,0.12123e+00_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.37290e-01_rb,0.12309e+00_rb,0.16174e+00_rb,0.18467e+00_rb,0.19597e+00_rb, &\n        & 0.19753e+00_rb,0.18983e+00_rb,0.17262e+00_rb,0.12344e+00_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.43331e-01_rb,0.13110e+00_rb,0.16878e+00_rb,0.19044e+00_rb,0.20053e+00_rb, &\n        & 0.20117e+00_rb,0.19304e+00_rb,0.17581e+00_rb,0.12571e+00_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.50086e-01_rb,0.13937e+00_rb,0.17577e+00_rb,0.19586e+00_rb,0.20476e+00_rb, &\n        & 0.20472e+00_rb,0.19647e+00_rb,0.17915e+00_rb,0.12770e+00_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.21763e-01_rb,0.89580e-01_rb,0.12270e+00_rb,0.14431e+00_rb,0.15639e+00_rb, &\n        & 0.15936e+00_rb,0.15421e+00_rb,0.14030e+00_rb,0.10042e+00_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.25609e-01_rb,0.95974e-01_rb,0.12925e+00_rb,0.15030e+00_rb,0.16119e+00_rb, &\n        & 0.16326e+00_rb,0.15719e+00_rb,0.14283e+00_rb,0.10252e+00_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.30067e-01_rb,0.10261e+00_rb,0.13551e+00_rb,0.15572e+00_rb,0.16552e+00_rb, &\n        & 0.16675e+00_rb,0.16007e+00_rb,0.14539e+00_rb,0.10448e+00_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.35097e-01_rb,0.10949e+00_rb,0.14161e+00_rb,0.16075e+00_rb,0.16947e+00_rb, &\n        & 0.16997e+00_rb,0.16297e+00_rb,0.14823e+00_rb,0.10645e+00_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.40711e-01_rb,0.11658e+00_rb,0.14773e+00_rb,0.16552e+00_rb,0.17324e+00_rb, &\n        & 0.17317e+00_rb,0.16604e+00_rb,0.15112e+00_rb,0.10826e+00_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.17370e-01_rb,0.74466e-01_rb,0.10240e+00_rb,0.12053e+00_rb,0.13126e+00_rb, &\n        & 0.13417e+00_rb,0.12989e+00_rb,0.11790e+00_rb,0.87103e-01_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.20536e-01_rb,0.79866e-01_rb,0.10796e+00_rb,0.12568e+00_rb,0.13547e+00_rb, &\n        & 0.13755e+00_rb,0.13244e+00_rb,0.12017e+00_rb,0.88680e-01_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.24274e-01_rb,0.85524e-01_rb,0.11324e+00_rb,0.13036e+00_rb,0.13925e+00_rb, &\n        & 0.14055e+00_rb,0.13491e+00_rb,0.12243e+00_rb,0.90062e-01_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.28508e-01_rb,0.91420e-01_rb,0.11852e+00_rb,0.13467e+00_rb,0.14267e+00_rb, &\n        & 0.14339e+00_rb,0.13748e+00_rb,0.12487e+00_rb,0.91240e-01_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.33217e-01_rb,0.97522e-01_rb,0.12382e+00_rb,0.13886e+00_rb,0.14603e+00_rb, &\n        & 0.14625e+00_rb,0.14015e+00_rb,0.12740e+00_rb,0.92631e-01_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.14918e-01_rb,0.64249e-01_rb,0.87193e-01_rb,0.10225e+00_rb,0.11107e+00_rb, &\n        & 0.11380e+00_rb,0.11017e+00_rb,0.99775e-01_rb,0.75883e-01_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.17707e-01_rb,0.68887e-01_rb,0.91783e-01_rb,0.10653e+00_rb,0.11454e+00_rb, &\n        & 0.11659e+00_rb,0.11231e+00_rb,0.10178e+00_rb,0.77400e-01_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.20985e-01_rb,0.73723e-01_rb,0.96290e-01_rb,0.11038e+00_rb,0.11765e+00_rb, &\n        & 0.11911e+00_rb,0.11446e+00_rb,0.10377e+00_rb,0.78827e-01_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.24698e-01_rb,0.78820e-01_rb,0.10085e+00_rb,0.11403e+00_rb,0.12064e+00_rb, &\n        & 0.12159e+00_rb,0.11674e+00_rb,0.10593e+00_rb,0.80678e-01_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.28798e-01_rb,0.84087e-01_rb,0.10545e+00_rb,0.11772e+00_rb,0.12367e+00_rb, &\n        & 0.12416e+00_rb,0.11916e+00_rb,0.10818e+00_rb,0.82090e-01_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.12778e-01_rb,0.55028e-01_rb,0.74326e-01_rb,0.86458e-01_rb,0.93690e-01_rb, &\n        & 0.95887e-01_rb,0.92996e-01_rb,0.84239e-01_rb,0.65531e-01_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.15226e-01_rb,0.59056e-01_rb,0.78180e-01_rb,0.90004e-01_rb,0.96562e-01_rb, &\n        & 0.98210e-01_rb,0.94824e-01_rb,0.85996e-01_rb,0.67232e-01_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.18073e-01_rb,0.63328e-01_rb,0.81993e-01_rb,0.93245e-01_rb,0.99175e-01_rb, &\n        & 0.10034e+00_rb,0.96751e-01_rb,0.87779e-01_rb,0.68728e-01_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.21287e-01_rb,0.67814e-01_rb,0.85944e-01_rb,0.96446e-01_rb,0.10181e+00_rb, &\n        & 0.10253e+00_rb,0.98787e-01_rb,0.89700e-01_rb,0.70024e-01_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.24810e-01_rb,0.72405e-01_rb,0.89913e-01_rb,0.99700e-01_rb,0.10454e+00_rb, &\n        & 0.10492e+00_rb,0.10099e+00_rb,0.91662e-01_rb,0.71222e-01_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.10897e-01_rb,0.46824e-01_rb,0.63070e-01_rb,0.73198e-01_rb,0.78826e-01_rb, &\n        & 0.80547e-01_rb,0.78087e-01_rb,0.70945e-01_rb,0.55427e-01_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.13037e-01_rb,0.50331e-01_rb,0.66369e-01_rb,0.76169e-01_rb,0.81229e-01_rb, &\n        & 0.82485e-01_rb,0.79688e-01_rb,0.72492e-01_rb,0.56776e-01_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.15498e-01_rb,0.54103e-01_rb,0.69687e-01_rb,0.78968e-01_rb,0.83486e-01_rb, &\n        & 0.84334e-01_rb,0.81403e-01_rb,0.74109e-01_rb,0.57973e-01_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.18239e-01_rb,0.58007e-01_rb,0.73146e-01_rb,0.81751e-01_rb,0.85842e-01_rb, &\n        & 0.86346e-01_rb,0.83244e-01_rb,0.75789e-01_rb,0.59123e-01_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.21231e-01_rb,0.61947e-01_rb,0.76584e-01_rb,0.84579e-01_rb,0.88268e-01_rb, &\n        & 0.88508e-01_rb,0.85245e-01_rb,0.77486e-01_rb,0.60191e-01_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.71609e+00_rb,0.10081e+01_rb,0.11118e+01_rb,0.11603e+01_rb,0.11765e+01_rb, &\n        & 0.11643e+01_rb,0.11202e+01_rb,0.10296e+01_rb,0.82502e+00_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.75920e+00_rb,0.10292e+01_rb,0.11252e+01_rb,0.11685e+01_rb,0.11822e+01_rb, &\n        & 0.11684e+01_rb,0.11228e+01_rb,0.10318e+01_rb,0.83157e+00_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.79807e+00_rb,0.10500e+01_rb,0.11397e+01_rb,0.11794e+01_rb,0.11904e+01_rb, &\n        & 0.11740e+01_rb,0.11264e+01_rb,0.10343e+01_rb,0.83726e+00_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.83183e+00_rb,0.10700e+01_rb,0.11548e+01_rb,0.11918e+01_rb,0.12010e+01_rb, &\n        & 0.11815e+01_rb,0.11313e+01_rb,0.10364e+01_rb,0.84249e+00_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.86161e+00_rb,0.10887e+01_rb,0.11706e+01_rb,0.12061e+01_rb,0.12126e+01_rb, &\n        & 0.11904e+01_rb,0.11363e+01_rb,0.10383e+01_rb,0.84713e+00_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.62079e+00_rb,0.89078e+00_rb,0.98349e+00_rb,0.10275e+01_rb,0.10413e+01_rb, &\n        & 0.10318e+01_rb,0.99528e+00_rb,0.92037e+00_rb,0.72464e+00_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.65800e+00_rb,0.91114e+00_rb,0.99789e+00_rb,0.10381e+01_rb,0.10488e+01_rb, &\n        & 0.10378e+01_rb,0.99952e+00_rb,0.92364e+00_rb,0.73140e+00_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.69092e+00_rb,0.93058e+00_rb,0.10122e+01_rb,0.10502e+01_rb,0.10590e+01_rb, &\n        & 0.10454e+01_rb,0.10054e+01_rb,0.92699e+00_rb,0.73764e+00_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.71970e+00_rb,0.94840e+00_rb,0.10270e+01_rb,0.10636e+01_rb,0.10709e+01_rb, &\n        & 0.10547e+01_rb,0.10116e+01_rb,0.93021e+00_rb,0.74329e+00_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.74579e+00_rb,0.96581e+00_rb,0.10421e+01_rb,0.10781e+01_rb,0.10844e+01_rb, &\n        & 0.10644e+01_rb,0.10185e+01_rb,0.93369e+00_rb,0.74789e+00_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.52823e+00_rb,0.77783e+00_rb,0.86297e+00_rb,0.90265e+00_rb,0.91464e+00_rb, &\n        & 0.90839e+00_rb,0.87923e+00_rb,0.81632e+00_rb,0.63067e+00_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.56021e+00_rb,0.79652e+00_rb,0.87677e+00_rb,0.91375e+00_rb,0.92363e+00_rb, &\n        & 0.91571e+00_rb,0.88529e+00_rb,0.82096e+00_rb,0.63740e+00_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.58848e+00_rb,0.81389e+00_rb,0.89039e+00_rb,0.92584e+00_rb,0.93460e+00_rb, &\n        & 0.92486e+00_rb,0.89232e+00_rb,0.82527e+00_rb,0.64377e+00_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.61369e+00_rb,0.83008e+00_rb,0.90459e+00_rb,0.93860e+00_rb,0.94727e+00_rb, &\n        & 0.93485e+00_rb,0.89989e+00_rb,0.82959e+00_rb,0.64921e+00_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.63687e+00_rb,0.84580e+00_rb,0.91897e+00_rb,0.95268e+00_rb,0.96085e+00_rb, &\n        & 0.94565e+00_rb,0.90780e+00_rb,0.83380e+00_rb,0.65367e+00_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.44508e+00_rb,0.67351e+00_rb,0.75154e+00_rb,0.78756e+00_rb,0.79977e+00_rb, &\n        & 0.79563e+00_rb,0.77123e+00_rb,0.71868e+00_rb,0.54794e+00_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.47271e+00_rb,0.69026e+00_rb,0.76424e+00_rb,0.79840e+00_rb,0.80928e+00_rb, &\n        & 0.80400e+00_rb,0.77859e+00_rb,0.72416e+00_rb,0.55496e+00_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.49708e+00_rb,0.70580e+00_rb,0.77670e+00_rb,0.80989e+00_rb,0.82043e+00_rb, &\n        & 0.81421e+00_rb,0.78653e+00_rb,0.72918e+00_rb,0.56105e+00_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.51921e+00_rb,0.72040e+00_rb,0.78970e+00_rb,0.82209e+00_rb,0.83296e+00_rb, &\n        & 0.82477e+00_rb,0.79492e+00_rb,0.73435e+00_rb,0.56612e+00_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.53991e+00_rb,0.73468e+00_rb,0.80284e+00_rb,0.83540e+00_rb,0.84599e+00_rb, &\n        & 0.83588e+00_rb,0.80349e+00_rb,0.73920e+00_rb,0.57048e+00_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.37413e+00_rb,0.58022e+00_rb,0.65026e+00_rb,0.68370e+00_rb,0.69632e+00_rb, &\n        & 0.69319e+00_rb,0.67239e+00_rb,0.62755e+00_rb,0.47517e+00_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.39785e+00_rb,0.59500e+00_rb,0.66160e+00_rb,0.69388e+00_rb,0.70581e+00_rb, &\n        & 0.70224e+00_rb,0.68037e+00_rb,0.63372e+00_rb,0.48187e+00_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.41894e+00_rb,0.60858e+00_rb,0.67282e+00_rb,0.70454e+00_rb,0.71693e+00_rb, &\n        & 0.71249e+00_rb,0.68889e+00_rb,0.63962e+00_rb,0.48765e+00_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.43810e+00_rb,0.62138e+00_rb,0.68416e+00_rb,0.71639e+00_rb,0.72873e+00_rb, &\n        & 0.72302e+00_rb,0.69785e+00_rb,0.64510e+00_rb,0.49243e+00_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.45627e+00_rb,0.63437e+00_rb,0.69610e+00_rb,0.72855e+00_rb,0.74096e+00_rb, &\n        & 0.73385e+00_rb,0.70672e+00_rb,0.65052e+00_rb,0.49657e+00_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.31382e+00_rb,0.49799e+00_rb,0.55977e+00_rb,0.58971e+00_rb,0.60230e+00_rb, &\n        & 0.60065e+00_rb,0.58267e+00_rb,0.54392e+00_rb,0.40911e+00_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.33427e+00_rb,0.51077e+00_rb,0.56976e+00_rb,0.59903e+00_rb,0.61148e+00_rb, &\n        & 0.60961e+00_rb,0.59093e+00_rb,0.55057e+00_rb,0.41554e+00_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.35247e+00_rb,0.52249e+00_rb,0.57948e+00_rb,0.60895e+00_rb,0.62185e+00_rb, &\n        & 0.61942e+00_rb,0.59984e+00_rb,0.55707e+00_rb,0.42096e+00_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.36909e+00_rb,0.53360e+00_rb,0.58950e+00_rb,0.61977e+00_rb,0.63265e+00_rb, &\n        & 0.62957e+00_rb,0.60872e+00_rb,0.56306e+00_rb,0.42549e+00_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.38489e+00_rb,0.54511e+00_rb,0.60025e+00_rb,0.63086e+00_rb,0.64395e+00_rb, &\n        & 0.63979e+00_rb,0.61739e+00_rb,0.56897e+00_rb,0.42951e+00_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.26224e+00_rb,0.42663e+00_rb,0.48031e+00_rb,0.50651e+00_rb,0.51797e+00_rb, &\n        & 0.51738e+00_rb,0.50230e+00_rb,0.46824e+00_rb,0.34967e+00_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.28013e+00_rb,0.43764e+00_rb,0.48906e+00_rb,0.51485e+00_rb,0.52656e+00_rb, &\n        & 0.52602e+00_rb,0.51065e+00_rb,0.47517e+00_rb,0.35569e+00_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.29592e+00_rb,0.44770e+00_rb,0.49758e+00_rb,0.52367e+00_rb,0.53583e+00_rb, &\n        & 0.53525e+00_rb,0.51944e+00_rb,0.48175e+00_rb,0.36089e+00_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.31035e+00_rb,0.45721e+00_rb,0.50658e+00_rb,0.53311e+00_rb,0.54562e+00_rb, &\n        & 0.54468e+00_rb,0.52799e+00_rb,0.48800e+00_rb,0.36523e+00_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.32410e+00_rb,0.46702e+00_rb,0.51628e+00_rb,0.54315e+00_rb,0.55572e+00_rb, &\n        & 0.55402e+00_rb,0.53619e+00_rb,0.49402e+00_rb,0.36906e+00_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.21802e+00_rb,0.36523e+00_rb,0.41109e+00_rb,0.43388e+00_rb,0.44363e+00_rb, &\n        & 0.44316e+00_rb,0.43058e+00_rb,0.40065e+00_rb,0.29668e+00_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.23315e+00_rb,0.37455e+00_rb,0.41894e+00_rb,0.44116e+00_rb,0.45154e+00_rb, &\n        & 0.45134e+00_rb,0.43880e+00_rb,0.40751e+00_rb,0.30231e+00_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.24686e+00_rb,0.38301e+00_rb,0.42637e+00_rb,0.44889e+00_rb,0.45978e+00_rb, &\n        & 0.45969e+00_rb,0.44700e+00_rb,0.41408e+00_rb,0.30721e+00_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.25967e+00_rb,0.39102e+00_rb,0.43427e+00_rb,0.45708e+00_rb,0.46833e+00_rb, &\n        & 0.46819e+00_rb,0.45488e+00_rb,0.42031e+00_rb,0.31131e+00_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.27188e+00_rb,0.39949e+00_rb,0.44272e+00_rb,0.46608e+00_rb,0.47706e+00_rb, &\n        & 0.47653e+00_rb,0.46230e+00_rb,0.42618e+00_rb,0.31504e+00_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.18022e+00_rb,0.31183e+00_rb,0.35120e+00_rb,0.37079e+00_rb,0.37884e+00_rb, &\n        & 0.37804e+00_rb,0.36693e+00_rb,0.34063e+00_rb,0.24612e+00_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.19307e+00_rb,0.31966e+00_rb,0.35801e+00_rb,0.37712e+00_rb,0.38585e+00_rb, &\n        & 0.38558e+00_rb,0.37468e+00_rb,0.34716e+00_rb,0.25138e+00_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.20463e+00_rb,0.32683e+00_rb,0.36444e+00_rb,0.38387e+00_rb,0.39308e+00_rb, &\n        & 0.39294e+00_rb,0.38210e+00_rb,0.35364e+00_rb,0.25593e+00_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.21550e+00_rb,0.33367e+00_rb,0.37119e+00_rb,0.39103e+00_rb,0.40042e+00_rb, &\n        & 0.40039e+00_rb,0.38916e+00_rb,0.35964e+00_rb,0.25996e+00_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.22607e+00_rb,0.34108e+00_rb,0.37860e+00_rb,0.39875e+00_rb,0.40805e+00_rb, &\n        & 0.40762e+00_rb,0.39578e+00_rb,0.36518e+00_rb,0.26360e+00_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.14867e+00_rb,0.26554e+00_rb,0.29985e+00_rb,0.31657e+00_rb,0.32318e+00_rb, &\n        & 0.32201e+00_rb,0.31162e+00_rb,0.28815e+00_rb,0.21732e+00_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.15961e+00_rb,0.27217e+00_rb,0.30555e+00_rb,0.32206e+00_rb,0.32938e+00_rb, &\n        & 0.32864e+00_rb,0.31877e+00_rb,0.29424e+00_rb,0.22230e+00_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.16940e+00_rb,0.27829e+00_rb,0.31116e+00_rb,0.32786e+00_rb,0.33559e+00_rb, &\n        & 0.33509e+00_rb,0.32534e+00_rb,0.30046e+00_rb,0.22643e+00_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.17863e+00_rb,0.28410e+00_rb,0.31692e+00_rb,0.33409e+00_rb,0.34189e+00_rb, &\n        & 0.34154e+00_rb,0.33152e+00_rb,0.30607e+00_rb,0.23022e+00_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.18774e+00_rb,0.29050e+00_rb,0.32341e+00_rb,0.34075e+00_rb,0.34846e+00_rb, &\n        & 0.34771e+00_rb,0.33731e+00_rb,0.31120e+00_rb,0.23340e+00_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.12627e+00_rb,0.22669e+00_rb,0.25719e+00_rb,0.27172e+00_rb,0.27732e+00_rb, &\n        & 0.27601e+00_rb,0.26659e+00_rb,0.24512e+00_rb,0.18584e+00_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.13516e+00_rb,0.23214e+00_rb,0.26193e+00_rb,0.27653e+00_rb,0.28265e+00_rb, &\n        & 0.28160e+00_rb,0.27265e+00_rb,0.25095e+00_rb,0.18968e+00_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.14321e+00_rb,0.23722e+00_rb,0.26679e+00_rb,0.28162e+00_rb,0.28797e+00_rb, &\n        & 0.28724e+00_rb,0.27822e+00_rb,0.25645e+00_rb,0.19293e+00_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.15107e+00_rb,0.24247e+00_rb,0.27199e+00_rb,0.28706e+00_rb,0.29346e+00_rb, &\n        & 0.29269e+00_rb,0.28343e+00_rb,0.26131e+00_rb,0.19541e+00_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.15896e+00_rb,0.24837e+00_rb,0.27786e+00_rb,0.29309e+00_rb,0.29929e+00_rb, &\n        & 0.29804e+00_rb,0.28838e+00_rb,0.26594e+00_rb,0.19802e+00_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.10682e+00_rb,0.19256e+00_rb,0.21863e+00_rb,0.23192e+00_rb,0.23695e+00_rb, &\n        & 0.23560e+00_rb,0.22744e+00_rb,0.20844e+00_rb,0.16014e+00_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.11409e+00_rb,0.19699e+00_rb,0.22274e+00_rb,0.23606e+00_rb,0.24149e+00_rb, &\n        & 0.24040e+00_rb,0.23256e+00_rb,0.21367e+00_rb,0.16300e+00_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.12093e+00_rb,0.20128e+00_rb,0.22702e+00_rb,0.24050e+00_rb,0.24609e+00_rb, &\n        & 0.24521e+00_rb,0.23721e+00_rb,0.21831e+00_rb,0.16579e+00_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.12767e+00_rb,0.20601e+00_rb,0.23174e+00_rb,0.24542e+00_rb,0.25091e+00_rb, &\n        & 0.24990e+00_rb,0.24163e+00_rb,0.22258e+00_rb,0.16866e+00_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.13446e+00_rb,0.21151e+00_rb,0.23730e+00_rb,0.25089e+00_rb,0.25608e+00_rb, &\n        & 0.25469e+00_rb,0.24607e+00_rb,0.22668e+00_rb,0.17141e+00_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.90556e-01_rb,0.16301e+00_rb,0.18506e+00_rb,0.19633e+00_rb,0.20124e+00_rb, &\n        & 0.20042e+00_rb,0.19353e+00_rb,0.17713e+00_rb,0.13589e+00_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.96629e-01_rb,0.16667e+00_rb,0.18855e+00_rb,0.19991e+00_rb,0.20512e+00_rb, &\n        & 0.20458e+00_rb,0.19781e+00_rb,0.18150e+00_rb,0.13866e+00_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.10246e+00_rb,0.17045e+00_rb,0.19232e+00_rb,0.20386e+00_rb,0.20916e+00_rb, &\n        & 0.20868e+00_rb,0.20175e+00_rb,0.18546e+00_rb,0.14157e+00_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.10831e+00_rb,0.17481e+00_rb,0.19664e+00_rb,0.20827e+00_rb,0.21340e+00_rb, &\n        & 0.21278e+00_rb,0.20565e+00_rb,0.18920e+00_rb,0.14421e+00_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.11418e+00_rb,0.17993e+00_rb,0.20190e+00_rb,0.21347e+00_rb,0.21830e+00_rb, &\n        & 0.21718e+00_rb,0.20964e+00_rb,0.19280e+00_rb,0.14715e+00_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.20844e+01_rb,0.23344e+01_rb,0.25576e+01_rb,0.26701e+01_rb,0.27010e+01_rb, &\n        & 0.26681e+01_rb,0.25683e+01_rb,0.23655e+01_rb,0.20810e+01_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.20807e+01_rb,0.23304e+01_rb,0.25489e+01_rb,0.26611e+01_rb,0.26920e+01_rb, &\n        & 0.26609e+01_rb,0.25647e+01_rb,0.23645e+01_rb,0.20859e+01_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.20877e+01_rb,0.23342e+01_rb,0.25477e+01_rb,0.26548e+01_rb,0.26843e+01_rb, &\n        & 0.26541e+01_rb,0.25605e+01_rb,0.23637e+01_rb,0.20903e+01_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.21052e+01_rb,0.23454e+01_rb,0.25520e+01_rb,0.26529e+01_rb,0.26778e+01_rb, &\n        & 0.26478e+01_rb,0.25565e+01_rb,0.23630e+01_rb,0.20935e+01_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.21303e+01_rb,0.23633e+01_rb,0.25619e+01_rb,0.26546e+01_rb,0.26749e+01_rb, &\n        & 0.26429e+01_rb,0.25542e+01_rb,0.23619e+01_rb,0.20958e+01_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.18120e+01_rb,0.21101e+01_rb,0.23204e+01_rb,0.24266e+01_rb,0.24657e+01_rb, &\n        & 0.24469e+01_rb,0.23702e+01_rb,0.21931e+01_rb,0.18669e+01_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.18187e+01_rb,0.21137e+01_rb,0.23188e+01_rb,0.24223e+01_rb,0.24620e+01_rb, &\n        & 0.24436e+01_rb,0.23687e+01_rb,0.21944e+01_rb,0.18726e+01_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.18356e+01_rb,0.21255e+01_rb,0.23256e+01_rb,0.24232e+01_rb,0.24590e+01_rb, &\n        & 0.24407e+01_rb,0.23674e+01_rb,0.21960e+01_rb,0.18776e+01_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.18614e+01_rb,0.21447e+01_rb,0.23386e+01_rb,0.24287e+01_rb,0.24595e+01_rb, &\n        & 0.24387e+01_rb,0.23672e+01_rb,0.21970e+01_rb,0.18816e+01_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.18927e+01_rb,0.21683e+01_rb,0.23579e+01_rb,0.24392e+01_rb,0.24636e+01_rb, &\n        & 0.24407e+01_rb,0.23665e+01_rb,0.21974e+01_rb,0.18864e+01_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.15702e+01_rb,0.18942e+01_rb,0.20837e+01_rb,0.21854e+01_rb,0.22324e+01_rb, &\n        & 0.22266e+01_rb,0.21649e+01_rb,0.20134e+01_rb,0.16617e+01_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.15827e+01_rb,0.19038e+01_rb,0.20886e+01_rb,0.21865e+01_rb,0.22329e+01_rb, &\n        & 0.22266e+01_rb,0.21649e+01_rb,0.20167e+01_rb,0.16695e+01_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.16046e+01_rb,0.19213e+01_rb,0.21019e+01_rb,0.21942e+01_rb,0.22360e+01_rb, &\n        & 0.22271e+01_rb,0.21665e+01_rb,0.20195e+01_rb,0.16762e+01_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.16329e+01_rb,0.19443e+01_rb,0.21213e+01_rb,0.22070e+01_rb,0.22424e+01_rb, &\n        & 0.22311e+01_rb,0.21683e+01_rb,0.20214e+01_rb,0.16830e+01_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.16658e+01_rb,0.19717e+01_rb,0.21452e+01_rb,0.22251e+01_rb,0.22530e+01_rb, &\n        & 0.22371e+01_rb,0.21708e+01_rb,0.20238e+01_rb,0.16904e+01_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.13564e+01_rb,0.16869e+01_rb,0.18550e+01_rb,0.19537e+01_rb,0.20049e+01_rb, &\n        & 0.20085e+01_rb,0.19601e+01_rb,0.18287e+01_rb,0.14756e+01_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.13720e+01_rb,0.17000e+01_rb,0.18655e+01_rb,0.19607e+01_rb,0.20100e+01_rb, &\n        & 0.20105e+01_rb,0.19622e+01_rb,0.18339e+01_rb,0.14854e+01_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.13952e+01_rb,0.17204e+01_rb,0.18837e+01_rb,0.19740e+01_rb,0.20182e+01_rb, &\n        & 0.20154e+01_rb,0.19654e+01_rb,0.18384e+01_rb,0.14948e+01_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.14229e+01_rb,0.17461e+01_rb,0.19072e+01_rb,0.19926e+01_rb,0.20303e+01_rb, &\n        & 0.20234e+01_rb,0.19691e+01_rb,0.18420e+01_rb,0.15040e+01_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.14534e+01_rb,0.17751e+01_rb,0.19345e+01_rb,0.20154e+01_rb,0.20467e+01_rb, &\n        & 0.20337e+01_rb,0.19742e+01_rb,0.18465e+01_rb,0.15131e+01_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.11675e+01_rb,0.14906e+01_rb,0.16422e+01_rb,0.17364e+01_rb,0.17875e+01_rb, &\n        & 0.17970e+01_rb,0.17582e+01_rb,0.16459e+01_rb,0.13057e+01_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.11839e+01_rb,0.15062e+01_rb,0.16573e+01_rb,0.17483e+01_rb,0.17956e+01_rb, &\n        & 0.18020e+01_rb,0.17623e+01_rb,0.16529e+01_rb,0.13176e+01_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.12061e+01_rb,0.15281e+01_rb,0.16790e+01_rb,0.17660e+01_rb,0.18082e+01_rb, &\n        & 0.18106e+01_rb,0.17678e+01_rb,0.16587e+01_rb,0.13289e+01_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.12311e+01_rb,0.15549e+01_rb,0.17048e+01_rb,0.17877e+01_rb,0.18250e+01_rb, &\n        & 0.18222e+01_rb,0.17742e+01_rb,0.16644e+01_rb,0.13398e+01_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.12582e+01_rb,0.15836e+01_rb,0.17338e+01_rb,0.18131e+01_rb,0.18457e+01_rb, &\n        & 0.18359e+01_rb,0.17826e+01_rb,0.16710e+01_rb,0.13507e+01_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.99981e+00_rb,0.13080e+01_rb,0.14477e+01_rb,0.15356e+01_rb,0.15829e+01_rb, &\n        & 0.15936e+01_rb,0.15636e+01_rb,0.14683e+01_rb,0.11482e+01_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.10151e+01_rb,0.13251e+01_rb,0.14655e+01_rb,0.15504e+01_rb,0.15941e+01_rb, &\n        & 0.16015e+01_rb,0.15698e+01_rb,0.14767e+01_rb,0.11619e+01_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.10344e+01_rb,0.13476e+01_rb,0.14887e+01_rb,0.15702e+01_rb,0.16097e+01_rb, &\n        & 0.16130e+01_rb,0.15772e+01_rb,0.14847e+01_rb,0.11743e+01_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.10560e+01_rb,0.13735e+01_rb,0.15155e+01_rb,0.15939e+01_rb,0.16293e+01_rb, &\n        & 0.16276e+01_rb,0.15870e+01_rb,0.14924e+01_rb,0.11864e+01_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.10794e+01_rb,0.13996e+01_rb,0.15438e+01_rb,0.16205e+01_rb,0.16521e+01_rb, &\n        & 0.16451e+01_rb,0.15991e+01_rb,0.15003e+01_rb,0.11982e+01_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.85239e+00_rb,0.11419e+01_rb,0.12714e+01_rb,0.13507e+01_rb,0.13930e+01_rb, &\n        & 0.14039e+01_rb,0.13790e+01_rb,0.12971e+01_rb,0.10034e+01_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.86542e+00_rb,0.11591e+01_rb,0.12898e+01_rb,0.13670e+01_rb,0.14062e+01_rb, &\n        & 0.14139e+01_rb,0.13871e+01_rb,0.13072e+01_rb,0.10179e+01_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.88108e+00_rb,0.11809e+01_rb,0.13130e+01_rb,0.13880e+01_rb,0.14241e+01_rb, &\n        & 0.14278e+01_rb,0.13975e+01_rb,0.13172e+01_rb,0.10310e+01_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.89900e+00_rb,0.12041e+01_rb,0.13390e+01_rb,0.14123e+01_rb,0.14455e+01_rb, &\n        & 0.14453e+01_rb,0.14105e+01_rb,0.13266e+01_rb,0.10434e+01_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.91862e+00_rb,0.12279e+01_rb,0.13649e+01_rb,0.14386e+01_rb,0.14692e+01_rb, &\n        & 0.14664e+01_rb,0.14254e+01_rb,0.13367e+01_rb,0.10558e+01_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.72497e+00_rb,0.99201e+00_rb,0.11107e+01_rb,0.11813e+01_rb,0.12195e+01_rb, &\n        & 0.12285e+01_rb,0.12058e+01_rb,0.11359e+01_rb,0.87110e+00_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.73517e+00_rb,0.10086e+01_rb,0.11285e+01_rb,0.11988e+01_rb,0.12342e+01_rb, &\n        & 0.12405e+01_rb,0.12160e+01_rb,0.11479e+01_rb,0.88568e+00_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.74752e+00_rb,0.10285e+01_rb,0.11507e+01_rb,0.12198e+01_rb,0.12532e+01_rb, &\n        & 0.12570e+01_rb,0.12289e+01_rb,0.11589e+01_rb,0.89927e+00_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.76213e+00_rb,0.10489e+01_rb,0.11747e+01_rb,0.12436e+01_rb,0.12757e+01_rb, &\n        & 0.12769e+01_rb,0.12445e+01_rb,0.11700e+01_rb,0.91203e+00_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.77854e+00_rb,0.10697e+01_rb,0.11980e+01_rb,0.12679e+01_rb,0.13002e+01_rb, &\n        & 0.12994e+01_rb,0.12621e+01_rb,0.11816e+01_rb,0.92392e+00_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.61682e+00_rb,0.85841e+00_rb,0.96403e+00_rb,0.10272e+01_rb,0.10606e+01_rb, &\n        & 0.10679e+01_rb,0.10472e+01_rb,0.98715e+00_rb,0.74825e+00_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.62415e+00_rb,0.87401e+00_rb,0.98140e+00_rb,0.10446e+01_rb,0.10763e+01_rb, &\n        & 0.10811e+01_rb,0.10593e+01_rb,0.10003e+01_rb,0.76294e+00_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.63387e+00_rb,0.89104e+00_rb,0.10022e+01_rb,0.10651e+01_rb,0.10962e+01_rb, &\n        & 0.10997e+01_rb,0.10740e+01_rb,0.10120e+01_rb,0.77659e+00_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.64542e+00_rb,0.90872e+00_rb,0.10230e+01_rb,0.10878e+01_rb,0.11188e+01_rb, &\n        & 0.11207e+01_rb,0.10911e+01_rb,0.10243e+01_rb,0.78905e+00_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.65900e+00_rb,0.92674e+00_rb,0.10436e+01_rb,0.11103e+01_rb,0.11424e+01_rb, &\n        & 0.11435e+01_rb,0.11102e+01_rb,0.10375e+01_rb,0.80034e+00_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.52547e+00_rb,0.74220e+00_rb,0.83433e+00_rb,0.88890e+00_rb,0.91741e+00_rb, &\n        & 0.92336e+00_rb,0.90538e+00_rb,0.85311e+00_rb,0.64696e+00_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.53064e+00_rb,0.75604e+00_rb,0.85107e+00_rb,0.90584e+00_rb,0.93361e+00_rb, &\n        & 0.93836e+00_rb,0.91861e+00_rb,0.86626e+00_rb,0.66062e+00_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.53809e+00_rb,0.77037e+00_rb,0.86942e+00_rb,0.92562e+00_rb,0.95409e+00_rb, &\n        & 0.95774e+00_rb,0.93423e+00_rb,0.87871e+00_rb,0.67391e+00_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.54734e+00_rb,0.78576e+00_rb,0.88734e+00_rb,0.94634e+00_rb,0.97611e+00_rb, &\n        & 0.97890e+00_rb,0.95253e+00_rb,0.89191e+00_rb,0.68526e+00_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.55842e+00_rb,0.80129e+00_rb,0.90542e+00_rb,0.96675e+00_rb,0.99781e+00_rb, &\n        & 0.10013e+01_rb,0.97253e+00_rb,0.90597e+00_rb,0.69583e+00_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.44902e+00_rb,0.64641e+00_rb,0.72682e+00_rb,0.77295e+00_rb,0.79679e+00_rb, &\n        & 0.80095e+00_rb,0.78478e+00_rb,0.73880e+00_rb,0.57500e+00_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.45343e+00_rb,0.65819e+00_rb,0.74259e+00_rb,0.79030e+00_rb,0.81509e+00_rb, &\n        & 0.81866e+00_rb,0.79960e+00_rb,0.75137e+00_rb,0.58784e+00_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.45968e+00_rb,0.67094e+00_rb,0.75812e+00_rb,0.80898e+00_rb,0.83522e+00_rb, &\n        & 0.83854e+00_rb,0.81711e+00_rb,0.76461e+00_rb,0.59939e+00_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.46764e+00_rb,0.68418e+00_rb,0.77402e+00_rb,0.82711e+00_rb,0.85518e+00_rb, &\n        & 0.85968e+00_rb,0.83634e+00_rb,0.77859e+00_rb,0.60954e+00_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.47750e+00_rb,0.69798e+00_rb,0.79021e+00_rb,0.84534e+00_rb,0.87480e+00_rb, &\n        & 0.88011e+00_rb,0.85595e+00_rb,0.79269e+00_rb,0.61896e+00_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.38252e+00_rb,0.56123e+00_rb,0.63221e+00_rb,0.67207e+00_rb,0.69191e+00_rb, &\n        & 0.69451e+00_rb,0.67853e+00_rb,0.63671e+00_rb,0.49624e+00_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.38610e+00_rb,0.57152e+00_rb,0.64559e+00_rb,0.68857e+00_rb,0.70992e+00_rb, &\n        & 0.71250e+00_rb,0.69440e+00_rb,0.64948e+00_rb,0.50772e+00_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.39135e+00_rb,0.58251e+00_rb,0.65953e+00_rb,0.70459e+00_rb,0.72793e+00_rb, &\n        & 0.73188e+00_rb,0.71251e+00_rb,0.66314e+00_rb,0.51771e+00_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.39838e+00_rb,0.59406e+00_rb,0.67357e+00_rb,0.72066e+00_rb,0.74570e+00_rb, &\n        & 0.75075e+00_rb,0.73108e+00_rb,0.67696e+00_rb,0.52680e+00_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.40785e+00_rb,0.60628e+00_rb,0.68802e+00_rb,0.73685e+00_rb,0.76342e+00_rb, &\n        & 0.76842e+00_rb,0.74857e+00_rb,0.69135e+00_rb,0.53408e+00_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.32297e+00_rb,0.48556e+00_rb,0.54760e+00_rb,0.58350e+00_rb,0.60079e+00_rb, &\n        & 0.60116e+00_rb,0.58518e+00_rb,0.54699e+00_rb,0.42276e+00_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.32591e+00_rb,0.49445e+00_rb,0.55963e+00_rb,0.59764e+00_rb,0.61654e+00_rb, &\n        & 0.61844e+00_rb,0.60149e+00_rb,0.55973e+00_rb,0.43280e+00_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.33057e+00_rb,0.50405e+00_rb,0.57184e+00_rb,0.61186e+00_rb,0.63239e+00_rb, &\n        & 0.63557e+00_rb,0.61864e+00_rb,0.57305e+00_rb,0.44151e+00_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.33705e+00_rb,0.51427e+00_rb,0.58428e+00_rb,0.62614e+00_rb,0.64825e+00_rb, &\n        & 0.65175e+00_rb,0.63492e+00_rb,0.58689e+00_rb,0.44893e+00_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.34636e+00_rb,0.52544e+00_rb,0.59740e+00_rb,0.64055e+00_rb,0.66342e+00_rb, &\n        & 0.66736e+00_rb,0.65002e+00_rb,0.60055e+00_rb,0.45487e+00_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.72991e+01_rb,0.69722e+01_rb,0.72863e+01_rb,0.75002e+01_rb,0.75688e+01_rb, &\n        & 0.74622e+01_rb,0.71020e+01_rb,0.65825e+01_rb,0.69144e+01_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.72210e+01_rb,0.69084e+01_rb,0.72319e+01_rb,0.74567e+01_rb,0.75409e+01_rb, &\n        & 0.74459e+01_rb,0.71001e+01_rb,0.65930e+01_rb,0.69213e+01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.71481e+01_rb,0.68475e+01_rb,0.71760e+01_rb,0.74130e+01_rb,0.75097e+01_rb, &\n        & 0.74266e+01_rb,0.70905e+01_rb,0.65992e+01_rb,0.69258e+01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.70810e+01_rb,0.67891e+01_rb,0.71222e+01_rb,0.73713e+01_rb,0.74785e+01_rb, &\n        & 0.74023e+01_rb,0.70766e+01_rb,0.66037e+01_rb,0.69303e+01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.70205e+01_rb,0.67342e+01_rb,0.70686e+01_rb,0.73258e+01_rb,0.74436e+01_rb, &\n        & 0.73740e+01_rb,0.70585e+01_rb,0.66060e+01_rb,0.69339e+01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.68023e+01_rb,0.66845e+01_rb,0.71435e+01_rb,0.74293e+01_rb,0.75528e+01_rb, &\n        & 0.74805e+01_rb,0.71383e+01_rb,0.65087e+01_rb,0.66425e+01_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.67309e+01_rb,0.66228e+01_rb,0.70899e+01_rb,0.73862e+01_rb,0.75243e+01_rb, &\n        & 0.74671e+01_rb,0.71358e+01_rb,0.65240e+01_rb,0.66588e+01_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.66680e+01_rb,0.65659e+01_rb,0.70365e+01_rb,0.73443e+01_rb,0.74954e+01_rb, &\n        & 0.74486e+01_rb,0.71260e+01_rb,0.65367e+01_rb,0.66745e+01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.66136e+01_rb,0.65139e+01_rb,0.69841e+01_rb,0.73016e+01_rb,0.74627e+01_rb, &\n        & 0.74252e+01_rb,0.71129e+01_rb,0.65455e+01_rb,0.66889e+01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.65687e+01_rb,0.64706e+01_rb,0.69322e+01_rb,0.72576e+01_rb,0.74266e+01_rb, &\n        & 0.73967e+01_rb,0.70986e+01_rb,0.65510e+01_rb,0.67011e+01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.62554e+01_rb,0.63717e+01_rb,0.69259e+01_rb,0.72750e+01_rb,0.74339e+01_rb, &\n        & 0.73812e+01_rb,0.70638e+01_rb,0.63830e+01_rb,0.62738e+01_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.61935e+01_rb,0.63130e+01_rb,0.68741e+01_rb,0.72340e+01_rb,0.74081e+01_rb, &\n        & 0.73723e+01_rb,0.70661e+01_rb,0.64055e+01_rb,0.63017e+01_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.61417e+01_rb,0.62609e+01_rb,0.68234e+01_rb,0.71924e+01_rb,0.73793e+01_rb, &\n        & 0.73559e+01_rb,0.70613e+01_rb,0.64217e+01_rb,0.63259e+01_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.61027e+01_rb,0.62184e+01_rb,0.67754e+01_rb,0.71518e+01_rb,0.73493e+01_rb, &\n        & 0.73341e+01_rb,0.70537e+01_rb,0.64352e+01_rb,0.63471e+01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.60751e+01_rb,0.61846e+01_rb,0.67335e+01_rb,0.71090e+01_rb,0.73143e+01_rb, &\n        & 0.73100e+01_rb,0.70431e+01_rb,0.64459e+01_rb,0.63674e+01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.56712e+01_rb,0.60174e+01_rb,0.66407e+01_rb,0.70308e+01_rb,0.72054e+01_rb, &\n        & 0.71700e+01_rb,0.68768e+01_rb,0.62076e+01_rb,0.58601e+01_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.56177e+01_rb,0.59637e+01_rb,0.65912e+01_rb,0.69914e+01_rb,0.71823e+01_rb, &\n        & 0.71644e+01_rb,0.68840e+01_rb,0.62360e+01_rb,0.58965e+01_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.55798e+01_rb,0.59204e+01_rb,0.65459e+01_rb,0.69532e+01_rb,0.71589e+01_rb, &\n        & 0.71503e+01_rb,0.68872e+01_rb,0.62571e+01_rb,0.59275e+01_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.55576e+01_rb,0.58874e+01_rb,0.65057e+01_rb,0.69160e+01_rb,0.71305e+01_rb, &\n        & 0.71327e+01_rb,0.68860e+01_rb,0.62738e+01_rb,0.59560e+01_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.55509e+01_rb,0.58664e+01_rb,0.64735e+01_rb,0.68799e+01_rb,0.70989e+01_rb, &\n        & 0.71129e+01_rb,0.68803e+01_rb,0.62864e+01_rb,0.59817e+01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.50748e+01_rb,0.56236e+01_rb,0.62897e+01_rb,0.66937e+01_rb,0.68773e+01_rb, &\n        & 0.68583e+01_rb,0.65966e+01_rb,0.59739e+01_rb,0.54247e+01_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.50332e+01_rb,0.55772e+01_rb,0.62435e+01_rb,0.66588e+01_rb,0.68602e+01_rb, &\n        & 0.68553e+01_rb,0.66099e+01_rb,0.60056e+01_rb,0.54668e+01_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.50094e+01_rb,0.55429e+01_rb,0.62032e+01_rb,0.66264e+01_rb,0.68392e+01_rb, &\n        & 0.68457e+01_rb,0.66198e+01_rb,0.60291e+01_rb,0.55024e+01_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.50054e+01_rb,0.55221e+01_rb,0.61728e+01_rb,0.65959e+01_rb,0.68138e+01_rb, &\n        & 0.68347e+01_rb,0.66239e+01_rb,0.60504e+01_rb,0.55378e+01_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.50196e+01_rb,0.55140e+01_rb,0.61502e+01_rb,0.65696e+01_rb,0.67880e+01_rb, &\n        & 0.68224e+01_rb,0.66232e+01_rb,0.60661e+01_rb,0.55660e+01_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.44929e+01_rb,0.51985e+01_rb,0.58791e+01_rb,0.62757e+01_rb,0.64716e+01_rb, &\n        & 0.64669e+01_rb,0.62368e+01_rb,0.56853e+01_rb,0.49792e+01_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.44612e+01_rb,0.51596e+01_rb,0.58385e+01_rb,0.62487e+01_rb,0.64570e+01_rb, &\n        & 0.64678e+01_rb,0.62575e+01_rb,0.57196e+01_rb,0.50244e+01_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.44521e+01_rb,0.51348e+01_rb,0.58071e+01_rb,0.62248e+01_rb,0.64383e+01_rb, &\n        & 0.64639e+01_rb,0.62747e+01_rb,0.57459e+01_rb,0.50676e+01_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.44651e+01_rb,0.51248e+01_rb,0.57862e+01_rb,0.62029e+01_rb,0.64206e+01_rb, &\n        & 0.64594e+01_rb,0.62829e+01_rb,0.57703e+01_rb,0.51061e+01_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.44974e+01_rb,0.51321e+01_rb,0.57769e+01_rb,0.61847e+01_rb,0.64045e+01_rb, &\n        & 0.64518e+01_rb,0.62850e+01_rb,0.57880e+01_rb,0.51383e+01_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.39405e+01_rb,0.47599e+01_rb,0.54183e+01_rb,0.58070e+01_rb,0.60002e+01_rb, &\n        & 0.60137e+01_rb,0.58231e+01_rb,0.53430e+01_rb,0.45395e+01_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.39200e+01_rb,0.47279e+01_rb,0.53865e+01_rb,0.57866e+01_rb,0.59900e+01_rb, &\n        & 0.60178e+01_rb,0.58493e+01_rb,0.53803e+01_rb,0.45897e+01_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.39243e+01_rb,0.47128e+01_rb,0.53651e+01_rb,0.57689e+01_rb,0.59779e+01_rb, &\n        & 0.60210e+01_rb,0.58689e+01_rb,0.54093e+01_rb,0.46370e+01_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.39509e+01_rb,0.47158e+01_rb,0.53566e+01_rb,0.57541e+01_rb,0.59686e+01_rb, &\n        & 0.60221e+01_rb,0.58794e+01_rb,0.54360e+01_rb,0.46801e+01_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.39997e+01_rb,0.47365e+01_rb,0.53625e+01_rb,0.57480e+01_rb,0.59641e+01_rb, &\n        & 0.60191e+01_rb,0.58864e+01_rb,0.54567e+01_rb,0.47154e+01_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.34277e+01_rb,0.43224e+01_rb,0.49312e+01_rb,0.53036e+01_rb,0.54930e+01_rb, &\n        & 0.55228e+01_rb,0.53766e+01_rb,0.49651e+01_rb,0.41155e+01_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.34174e+01_rb,0.42976e+01_rb,0.49104e+01_rb,0.52883e+01_rb,0.54862e+01_rb, &\n        & 0.55322e+01_rb,0.54048e+01_rb,0.50049e+01_rb,0.41706e+01_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.34328e+01_rb,0.42901e+01_rb,0.49000e+01_rb,0.52782e+01_rb,0.54821e+01_rb, &\n        & 0.55409e+01_rb,0.54257e+01_rb,0.50383e+01_rb,0.42218e+01_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.34724e+01_rb,0.43054e+01_rb,0.49030e+01_rb,0.52739e+01_rb,0.54825e+01_rb, &\n        & 0.55468e+01_rb,0.54402e+01_rb,0.50678e+01_rb,0.42656e+01_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.35331e+01_rb,0.43394e+01_rb,0.49199e+01_rb,0.52816e+01_rb,0.54871e+01_rb, &\n        & 0.55512e+01_rb,0.54505e+01_rb,0.50918e+01_rb,0.43035e+01_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.29643e+01_rb,0.38841e+01_rb,0.44459e+01_rb,0.47885e+01_rb,0.49734e+01_rb, &\n        & 0.50221e+01_rb,0.49131e+01_rb,0.45659e+01_rb,0.37057e+01_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.29616e+01_rb,0.38662e+01_rb,0.44298e+01_rb,0.47788e+01_rb,0.49743e+01_rb, &\n        & 0.50365e+01_rb,0.49428e+01_rb,0.46088e+01_rb,0.37656e+01_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.29848e+01_rb,0.38693e+01_rb,0.44274e+01_rb,0.47752e+01_rb,0.49768e+01_rb, &\n        & 0.50477e+01_rb,0.49663e+01_rb,0.46464e+01_rb,0.38194e+01_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.30329e+01_rb,0.38944e+01_rb,0.44404e+01_rb,0.47824e+01_rb,0.49850e+01_rb, &\n        & 0.50582e+01_rb,0.49851e+01_rb,0.46790e+01_rb,0.38645e+01_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.31033e+01_rb,0.39395e+01_rb,0.44689e+01_rb,0.48029e+01_rb,0.49990e+01_rb, &\n        & 0.50689e+01_rb,0.50004e+01_rb,0.47030e+01_rb,0.39063e+01_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.25528e+01_rb,0.34541e+01_rb,0.39652e+01_rb,0.42831e+01_rb,0.44659e+01_rb, &\n        & 0.45285e+01_rb,0.44509e+01_rb,0.41587e+01_rb,0.32612e+01_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.25575e+01_rb,0.34458e+01_rb,0.39558e+01_rb,0.42802e+01_rb,0.44723e+01_rb, &\n        & 0.45451e+01_rb,0.44820e+01_rb,0.42051e+01_rb,0.33240e+01_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.25883e+01_rb,0.34607e+01_rb,0.39625e+01_rb,0.42854e+01_rb,0.44811e+01_rb, &\n        & 0.45602e+01_rb,0.45090e+01_rb,0.42460e+01_rb,0.33785e+01_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.26435e+01_rb,0.34963e+01_rb,0.39867e+01_rb,0.43038e+01_rb,0.44956e+01_rb, &\n        & 0.45761e+01_rb,0.45312e+01_rb,0.42799e+01_rb,0.34270e+01_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.27203e+01_rb,0.35517e+01_rb,0.40270e+01_rb,0.43344e+01_rb,0.45189e+01_rb, &\n        & 0.45941e+01_rb,0.45504e+01_rb,0.43065e+01_rb,0.34705e+01_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.21958e+01_rb,0.30498e+01_rb,0.35059e+01_rb,0.38049e+01_rb,0.39876e+01_rb, &\n        & 0.40622e+01_rb,0.40123e+01_rb,0.37729e+01_rb,0.28786e+01_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.22177e+01_rb,0.30598e+01_rb,0.35116e+01_rb,0.38116e+01_rb,0.39989e+01_rb, &\n        & 0.40819e+01_rb,0.40442e+01_rb,0.38191e+01_rb,0.29389e+01_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.22647e+01_rb,0.30907e+01_rb,0.35359e+01_rb,0.38306e+01_rb,0.40167e+01_rb, &\n        & 0.41020e+01_rb,0.40724e+01_rb,0.38578e+01_rb,0.29915e+01_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.23337e+01_rb,0.31425e+01_rb,0.35763e+01_rb,0.38632e+01_rb,0.40437e+01_rb, &\n        & 0.41245e+01_rb,0.40973e+01_rb,0.38902e+01_rb,0.30386e+01_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.24135e+01_rb,0.32120e+01_rb,0.36330e+01_rb,0.39077e+01_rb,0.40797e+01_rb, &\n        & 0.41526e+01_rb,0.41204e+01_rb,0.39195e+01_rb,0.30818e+01_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.18956e+01_rb,0.26861e+01_rb,0.30931e+01_rb,0.33674e+01_rb,0.35425e+01_rb, &\n        & 0.36210e+01_rb,0.35899e+01_rb,0.33921e+01_rb,0.25824e+01_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.19314e+01_rb,0.27108e+01_rb,0.31141e+01_rb,0.33855e+01_rb,0.35620e+01_rb, &\n        & 0.36450e+01_rb,0.36224e+01_rb,0.34362e+01_rb,0.26351e+01_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.19899e+01_rb,0.27565e+01_rb,0.31515e+01_rb,0.34177e+01_rb,0.35909e+01_rb, &\n        & 0.36718e+01_rb,0.36517e+01_rb,0.34743e+01_rb,0.26837e+01_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.20599e+01_rb,0.28211e+01_rb,0.32055e+01_rb,0.34628e+01_rb,0.36291e+01_rb, &\n        & 0.37038e+01_rb,0.36800e+01_rb,0.35081e+01_rb,0.27286e+01_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.21342e+01_rb,0.28994e+01_rb,0.32752e+01_rb,0.35201e+01_rb,0.36745e+01_rb, &\n        & 0.37420e+01_rb,0.37112e+01_rb,0.35392e+01_rb,0.27703e+01_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.16403e+01_rb,0.23651e+01_rb,0.27290e+01_rb,0.29746e+01_rb,0.31326e+01_rb, &\n        & 0.32080e+01_rb,0.31891e+01_rb,0.30274e+01_rb,0.23307e+01_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.16863e+01_rb,0.24025e+01_rb,0.27611e+01_rb,0.30044e+01_rb,0.31618e+01_rb, &\n        & 0.32369e+01_rb,0.32226e+01_rb,0.30700e+01_rb,0.23815e+01_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.17455e+01_rb,0.24598e+01_rb,0.28102e+01_rb,0.30475e+01_rb,0.32007e+01_rb, &\n        & 0.32722e+01_rb,0.32554e+01_rb,0.31073e+01_rb,0.24291e+01_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.18100e+01_rb,0.25311e+01_rb,0.28759e+01_rb,0.31035e+01_rb,0.32472e+01_rb, &\n        & 0.33131e+01_rb,0.32901e+01_rb,0.31417e+01_rb,0.24730e+01_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.18736e+01_rb,0.26085e+01_rb,0.29527e+01_rb,0.31711e+01_rb,0.33027e+01_rb, &\n        & 0.33589e+01_rb,0.33290e+01_rb,0.31763e+01_rb,0.25126e+01_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.19065e+02_rb,0.16899e+02_rb,0.15643e+02_rb,0.15578e+02_rb,0.15043e+02_rb, &\n        & 0.14288e+02_rb,0.13684e+02_rb,0.14703e+02_rb,0.16312e+02_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.18912e+02_rb,0.16761e+02_rb,0.15514e+02_rb,0.15480e+02_rb,0.14973e+02_rb, &\n        & 0.14273e+02_rb,0.13717e+02_rb,0.14749e+02_rb,0.16352e+02_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.18728e+02_rb,0.16596e+02_rb,0.15380e+02_rb,0.15367e+02_rb,0.14915e+02_rb, &\n        & 0.14240e+02_rb,0.13761e+02_rb,0.14772e+02_rb,0.16373e+02_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.18544e+02_rb,0.16434e+02_rb,0.15250e+02_rb,0.15223e+02_rb,0.14839e+02_rb, &\n        & 0.14214e+02_rb,0.13761e+02_rb,0.14749e+02_rb,0.16351e+02_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.18333e+02_rb,0.16256e+02_rb,0.15122e+02_rb,0.15098e+02_rb,0.14749e+02_rb, &\n        & 0.14176e+02_rb,0.13735e+02_rb,0.14720e+02_rb,0.16309e+02_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.19359e+02_rb,0.17148e+02_rb,0.16419e+02_rb,0.16424e+02_rb,0.16006e+02_rb, &\n        & 0.15375e+02_rb,0.14545e+02_rb,0.15202e+02_rb,0.16997e+02_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.19172e+02_rb,0.16980e+02_rb,0.16267e+02_rb,0.16317e+02_rb,0.15911e+02_rb, &\n        & 0.15334e+02_rb,0.14618e+02_rb,0.15283e+02_rb,0.17084e+02_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.18973e+02_rb,0.16804e+02_rb,0.16126e+02_rb,0.16185e+02_rb,0.15827e+02_rb, &\n        & 0.15302e+02_rb,0.14664e+02_rb,0.15280e+02_rb,0.17092e+02_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.18751e+02_rb,0.16617e+02_rb,0.15988e+02_rb,0.16055e+02_rb,0.15738e+02_rb, &\n        & 0.15272e+02_rb,0.14654e+02_rb,0.15237e+02_rb,0.17035e+02_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.18520e+02_rb,0.16417e+02_rb,0.15855e+02_rb,0.15950e+02_rb,0.15639e+02_rb, &\n        & 0.15219e+02_rb,0.14617e+02_rb,0.15192e+02_rb,0.16961e+02_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.19263e+02_rb,0.17075e+02_rb,0.17060e+02_rb,0.17120e+02_rb,0.16883e+02_rb, &\n        & 0.16381e+02_rb,0.15414e+02_rb,0.15455e+02_rb,0.17398e+02_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.19059e+02_rb,0.16894e+02_rb,0.16898e+02_rb,0.17000e+02_rb,0.16773e+02_rb, &\n        & 0.16323e+02_rb,0.15500e+02_rb,0.15491e+02_rb,0.17437e+02_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.18835e+02_rb,0.16708e+02_rb,0.16745e+02_rb,0.16865e+02_rb,0.16669e+02_rb, &\n        & 0.16285e+02_rb,0.15530e+02_rb,0.15496e+02_rb,0.17423e+02_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.18600e+02_rb,0.16513e+02_rb,0.16588e+02_rb,0.16744e+02_rb,0.16560e+02_rb, &\n        & 0.16244e+02_rb,0.15515e+02_rb,0.15476e+02_rb,0.17372e+02_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.18358e+02_rb,0.16312e+02_rb,0.16416e+02_rb,0.16627e+02_rb,0.16462e+02_rb, &\n        & 0.16172e+02_rb,0.15490e+02_rb,0.15433e+02_rb,0.17293e+02_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.18801e+02_rb,0.16888e+02_rb,0.17351e+02_rb,0.17638e+02_rb,0.17654e+02_rb, &\n        & 0.17241e+02_rb,0.16305e+02_rb,0.15458e+02_rb,0.17321e+02_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.18579e+02_rb,0.16692e+02_rb,0.17197e+02_rb,0.17496e+02_rb,0.17520e+02_rb, &\n        & 0.17188e+02_rb,0.16384e+02_rb,0.15486e+02_rb,0.17346e+02_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.18342e+02_rb,0.16488e+02_rb,0.17035e+02_rb,0.17349e+02_rb,0.17380e+02_rb, &\n        & 0.17158e+02_rb,0.16385e+02_rb,0.15526e+02_rb,0.17367e+02_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.18091e+02_rb,0.16279e+02_rb,0.16863e+02_rb,0.17208e+02_rb,0.17266e+02_rb, &\n        & 0.17103e+02_rb,0.16355e+02_rb,0.15560e+02_rb,0.17358e+02_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.17836e+02_rb,0.16059e+02_rb,0.16677e+02_rb,0.17068e+02_rb,0.17166e+02_rb, &\n        & 0.17011e+02_rb,0.16312e+02_rb,0.15578e+02_rb,0.17344e+02_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.17961e+02_rb,0.16659e+02_rb,0.17334e+02_rb,0.17976e+02_rb,0.18171e+02_rb, &\n        & 0.17832e+02_rb,0.16966e+02_rb,0.15432e+02_rb,0.16855e+02_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.17714e+02_rb,0.16442e+02_rb,0.17178e+02_rb,0.17800e+02_rb,0.18030e+02_rb, &\n        & 0.17804e+02_rb,0.17004e+02_rb,0.15487e+02_rb,0.16904e+02_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.17470e+02_rb,0.16231e+02_rb,0.17012e+02_rb,0.17636e+02_rb,0.17902e+02_rb, &\n        & 0.17774e+02_rb,0.16959e+02_rb,0.15590e+02_rb,0.16987e+02_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.17221e+02_rb,0.16002e+02_rb,0.16835e+02_rb,0.17477e+02_rb,0.17804e+02_rb, &\n        & 0.17680e+02_rb,0.16923e+02_rb,0.15646e+02_rb,0.17004e+02_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.16955e+02_rb,0.15778e+02_rb,0.16648e+02_rb,0.17325e+02_rb,0.17709e+02_rb, &\n        & 0.17576e+02_rb,0.16895e+02_rb,0.15664e+02_rb,0.17027e+02_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.16796e+02_rb,0.16241e+02_rb,0.17123e+02_rb,0.18098e+02_rb,0.18345e+02_rb, &\n        & 0.18145e+02_rb,0.17297e+02_rb,0.15317e+02_rb,0.16076e+02_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.16561e+02_rb,0.16019e+02_rb,0.16973e+02_rb,0.17901e+02_rb,0.18253e+02_rb, &\n        & 0.18123e+02_rb,0.17284e+02_rb,0.15411e+02_rb,0.16194e+02_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.16307e+02_rb,0.15790e+02_rb,0.16801e+02_rb,0.17722e+02_rb,0.18189e+02_rb, &\n        & 0.18068e+02_rb,0.17217e+02_rb,0.15556e+02_rb,0.16309e+02_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.16045e+02_rb,0.15571e+02_rb,0.16615e+02_rb,0.17565e+02_rb,0.18113e+02_rb, &\n        & 0.17968e+02_rb,0.17201e+02_rb,0.15625e+02_rb,0.16374e+02_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.15792e+02_rb,0.15350e+02_rb,0.16424e+02_rb,0.17437e+02_rb,0.17997e+02_rb, &\n        & 0.17869e+02_rb,0.17203e+02_rb,0.15664e+02_rb,0.16420e+02_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.15441e+02_rb,0.15555e+02_rb,0.16836e+02_rb,0.17857e+02_rb,0.18265e+02_rb, &\n        & 0.18114e+02_rb,0.17249e+02_rb,0.15143e+02_rb,0.15078e+02_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.15190e+02_rb,0.15341e+02_rb,0.16649e+02_rb,0.17679e+02_rb,0.18211e+02_rb, &\n        & 0.18098e+02_rb,0.17215e+02_rb,0.15278e+02_rb,0.15251e+02_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.14946e+02_rb,0.15122e+02_rb,0.16458e+02_rb,0.17534e+02_rb,0.18165e+02_rb, &\n        & 0.18029e+02_rb,0.17165e+02_rb,0.15443e+02_rb,0.15389e+02_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.14700e+02_rb,0.14908e+02_rb,0.16252e+02_rb,0.17424e+02_rb,0.18072e+02_rb, &\n        & 0.17929e+02_rb,0.17187e+02_rb,0.15518e+02_rb,0.15458e+02_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.14445e+02_rb,0.14710e+02_rb,0.16048e+02_rb,0.17304e+02_rb,0.17932e+02_rb, &\n        & 0.17873e+02_rb,0.17206e+02_rb,0.15573e+02_rb,0.15541e+02_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.13963e+02_rb,0.14641e+02_rb,0.16339e+02_rb,0.17287e+02_rb,0.17853e+02_rb, &\n        & 0.17712e+02_rb,0.16836e+02_rb,0.14867e+02_rb,0.13958e+02_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.13720e+02_rb,0.14441e+02_rb,0.16121e+02_rb,0.17175e+02_rb,0.17806e+02_rb, &\n        & 0.17701e+02_rb,0.16817e+02_rb,0.15013e+02_rb,0.14139e+02_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.13475e+02_rb,0.14253e+02_rb,0.15918e+02_rb,0.17071e+02_rb,0.17741e+02_rb, &\n        & 0.17634e+02_rb,0.16820e+02_rb,0.15155e+02_rb,0.14269e+02_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.13235e+02_rb,0.14056e+02_rb,0.15727e+02_rb,0.16983e+02_rb,0.17630e+02_rb, &\n        & 0.17564e+02_rb,0.16869e+02_rb,0.15238e+02_rb,0.14383e+02_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.13009e+02_rb,0.13855e+02_rb,0.15556e+02_rb,0.16857e+02_rb,0.17508e+02_rb, &\n        & 0.17529e+02_rb,0.16912e+02_rb,0.15302e+02_rb,0.14496e+02_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.12422e+02_rb,0.13743e+02_rb,0.15496e+02_rb,0.16530e+02_rb,0.17068e+02_rb, &\n        & 0.16944e+02_rb,0.16119e+02_rb,0.14360e+02_rb,0.12852e+02_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.12195e+02_rb,0.13543e+02_rb,0.15328e+02_rb,0.16447e+02_rb,0.17000e+02_rb, &\n        & 0.16934e+02_rb,0.16148e+02_rb,0.14484e+02_rb,0.13012e+02_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.11972e+02_rb,0.13354e+02_rb,0.15163e+02_rb,0.16359e+02_rb,0.16940e+02_rb, &\n        & 0.16900e+02_rb,0.16191e+02_rb,0.14599e+02_rb,0.13152e+02_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.11752e+02_rb,0.13166e+02_rb,0.15011e+02_rb,0.16249e+02_rb,0.16842e+02_rb, &\n        & 0.16880e+02_rb,0.16254e+02_rb,0.14688e+02_rb,0.13295e+02_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.11542e+02_rb,0.12972e+02_rb,0.14878e+02_rb,0.16107e+02_rb,0.16750e+02_rb, &\n        & 0.16884e+02_rb,0.16301e+02_rb,0.14790e+02_rb,0.13417e+02_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.10883e+02_rb,0.12799e+02_rb,0.14471e+02_rb,0.15523e+02_rb,0.15963e+02_rb, &\n        & 0.15867e+02_rb,0.15188e+02_rb,0.13687e+02_rb,0.11830e+02_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.10669e+02_rb,0.12615e+02_rb,0.14351e+02_rb,0.15423e+02_rb,0.15920e+02_rb, &\n        & 0.15883e+02_rb,0.15251e+02_rb,0.13796e+02_rb,0.11997e+02_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.10461e+02_rb,0.12417e+02_rb,0.14235e+02_rb,0.15340e+02_rb,0.15857e+02_rb, &\n        & 0.15885e+02_rb,0.15315e+02_rb,0.13895e+02_rb,0.12154e+02_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.10271e+02_rb,0.12218e+02_rb,0.14109e+02_rb,0.15234e+02_rb,0.15808e+02_rb, &\n        & 0.15905e+02_rb,0.15383e+02_rb,0.14000e+02_rb,0.12311e+02_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.10108e+02_rb,0.12035e+02_rb,0.13977e+02_rb,0.15117e+02_rb,0.15764e+02_rb, &\n        & 0.15927e+02_rb,0.15450e+02_rb,0.14121e+02_rb,0.12430e+02_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.93334e+01_rb,0.11625e+02_rb,0.13302e+02_rb,0.14226e+02_rb,0.14663e+02_rb, &\n        & 0.14671e+02_rb,0.14179e+02_rb,0.12958e+02_rb,0.10939e+02_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.91435e+01_rb,0.11452e+02_rb,0.13192e+02_rb,0.14163e+02_rb,0.14640e+02_rb, &\n        & 0.14697e+02_rb,0.14256e+02_rb,0.13072e+02_rb,0.11104e+02_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.89744e+01_rb,0.11286e+02_rb,0.13068e+02_rb,0.14085e+02_rb,0.14619e+02_rb, &\n        & 0.14728e+02_rb,0.14326e+02_rb,0.13192e+02_rb,0.11276e+02_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.88386e+01_rb,0.11134e+02_rb,0.12957e+02_rb,0.14008e+02_rb,0.14602e+02_rb, &\n        & 0.14761e+02_rb,0.14404e+02_rb,0.13322e+02_rb,0.11423e+02_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.88280e+01_rb,0.11011e+02_rb,0.12844e+02_rb,0.13942e+02_rb,0.14584e+02_rb, &\n        & 0.14790e+02_rb,0.14494e+02_rb,0.13437e+02_rb,0.11537e+02_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.79516e+01_rb,0.10418e+02_rb,0.11985e+02_rb,0.12856e+02_rb,0.13326e+02_rb, &\n        & 0.13448e+02_rb,0.13142e+02_rb,0.12163e+02_rb,0.97408e+01_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.78004e+01_rb,0.10286e+02_rb,0.11886e+02_rb,0.12812e+02_rb,0.13327e+02_rb, &\n        & 0.13488e+02_rb,0.13229e+02_rb,0.12301e+02_rb,0.99474e+01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.76847e+01_rb,0.10169e+02_rb,0.11799e+02_rb,0.12768e+02_rb,0.13325e+02_rb, &\n        & 0.13529e+02_rb,0.13323e+02_rb,0.12442e+02_rb,0.10130e+02_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.76979e+01_rb,0.10072e+02_rb,0.11716e+02_rb,0.12735e+02_rb,0.13318e+02_rb, &\n        & 0.13569e+02_rb,0.13422e+02_rb,0.12581e+02_rb,0.10272e+02_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.78582e+01_rb,0.10030e+02_rb,0.11643e+02_rb,0.12707e+02_rb,0.13325e+02_rb, &\n        & 0.13613e+02_rb,0.13505e+02_rb,0.12682e+02_rb,0.10410e+02_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.68077e+01_rb,0.92695e+01_rb,0.10647e+02_rb,0.11513e+02_rb,0.12044e+02_rb, &\n        & 0.12269e+02_rb,0.12092e+02_rb,0.11295e+02_rb,0.85103e+01_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.67020e+01_rb,0.91675e+01_rb,0.10585e+02_rb,0.11489e+02_rb,0.12056e+02_rb, &\n        & 0.12329e+02_rb,0.12198e+02_rb,0.11449e+02_rb,0.87111e+01_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.67136e+01_rb,0.90765e+01_rb,0.10537e+02_rb,0.11473e+02_rb,0.12065e+02_rb, &\n        & 0.12379e+02_rb,0.12312e+02_rb,0.11602e+02_rb,0.88718e+01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.68715e+01_rb,0.90508e+01_rb,0.10490e+02_rb,0.11454e+02_rb,0.12087e+02_rb, &\n        & 0.12433e+02_rb,0.12413e+02_rb,0.11728e+02_rb,0.90172e+01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.71183e+01_rb,0.91466e+01_rb,0.10479e+02_rb,0.11436e+02_rb,0.12120e+02_rb, &\n        & 0.12489e+02_rb,0.12478e+02_rb,0.11826e+02_rb,0.91846e+01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.25290e+02_rb,0.22378e+02_rb,0.19682e+02_rb,0.19092e+02_rb,0.18401e+02_rb, &\n        & 0.17330e+02_rb,0.17194e+02_rb,0.19513e+02_rb,0.21546e+02_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.25153e+02_rb,0.22251e+02_rb,0.19574e+02_rb,0.19002e+02_rb,0.18309e+02_rb, &\n        & 0.17346e+02_rb,0.17168e+02_rb,0.19469e+02_rb,0.21516e+02_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.24990e+02_rb,0.22108e+02_rb,0.19457e+02_rb,0.18891e+02_rb,0.18197e+02_rb, &\n        & 0.17344e+02_rb,0.17153e+02_rb,0.19435e+02_rb,0.21516e+02_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.24785e+02_rb,0.21926e+02_rb,0.19312e+02_rb,0.18774e+02_rb,0.18111e+02_rb, &\n        & 0.17300e+02_rb,0.17168e+02_rb,0.19426e+02_rb,0.21524e+02_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.24562e+02_rb,0.21729e+02_rb,0.19145e+02_rb,0.18657e+02_rb,0.18043e+02_rb, &\n        & 0.17239e+02_rb,0.17190e+02_rb,0.19400e+02_rb,0.21517e+02_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.26738e+02_rb,0.23635e+02_rb,0.21164e+02_rb,0.20882e+02_rb,0.20133e+02_rb, &\n        & 0.18952e+02_rb,0.18391e+02_rb,0.20397e+02_rb,0.22752e+02_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.26579e+02_rb,0.23493e+02_rb,0.21026e+02_rb,0.20770e+02_rb,0.20046e+02_rb, &\n        & 0.18924e+02_rb,0.18351e+02_rb,0.20302e+02_rb,0.22673e+02_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.26369e+02_rb,0.23304e+02_rb,0.20847e+02_rb,0.20634e+02_rb,0.19955e+02_rb, &\n        & 0.18867e+02_rb,0.18355e+02_rb,0.20274e+02_rb,0.22643e+02_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.26147e+02_rb,0.23108e+02_rb,0.20663e+02_rb,0.20491e+02_rb,0.19870e+02_rb, &\n        & 0.18790e+02_rb,0.18365e+02_rb,0.20271e+02_rb,0.22638e+02_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.25876e+02_rb,0.22867e+02_rb,0.20457e+02_rb,0.20308e+02_rb,0.19788e+02_rb, &\n        & 0.18723e+02_rb,0.18359e+02_rb,0.20242e+02_rb,0.22612e+02_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.27801e+02_rb,0.24558e+02_rb,0.22625e+02_rb,0.22456e+02_rb,0.21766e+02_rb, &\n        & 0.20723e+02_rb,0.19785e+02_rb,0.21193e+02_rb,0.23811e+02_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.27586e+02_rb,0.24366e+02_rb,0.22444e+02_rb,0.22341e+02_rb,0.21670e+02_rb, &\n        & 0.20651e+02_rb,0.19732e+02_rb,0.21163e+02_rb,0.23778e+02_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.27362e+02_rb,0.24166e+02_rb,0.22236e+02_rb,0.22200e+02_rb,0.21575e+02_rb, &\n        & 0.20557e+02_rb,0.19718e+02_rb,0.21155e+02_rb,0.23783e+02_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.27084e+02_rb,0.23919e+02_rb,0.22013e+02_rb,0.22018e+02_rb,0.21471e+02_rb, &\n        & 0.20457e+02_rb,0.19708e+02_rb,0.21136e+02_rb,0.23769e+02_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.26795e+02_rb,0.23666e+02_rb,0.21794e+02_rb,0.21827e+02_rb,0.21355e+02_rb, &\n        & 0.20374e+02_rb,0.19655e+02_rb,0.21092e+02_rb,0.23724e+02_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.28327e+02_rb,0.25026e+02_rb,0.23910e+02_rb,0.23720e+02_rb,0.23265e+02_rb, &\n        & 0.22396e+02_rb,0.21086e+02_rb,0.21859e+02_rb,0.24649e+02_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.28095e+02_rb,0.24816e+02_rb,0.23683e+02_rb,0.23594e+02_rb,0.23156e+02_rb, &\n        & 0.22304e+02_rb,0.21023e+02_rb,0.21873e+02_rb,0.24674e+02_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.27817e+02_rb,0.24569e+02_rb,0.23454e+02_rb,0.23446e+02_rb,0.23031e+02_rb, &\n        & 0.22182e+02_rb,0.21022e+02_rb,0.21878e+02_rb,0.24680e+02_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.27525e+02_rb,0.24310e+02_rb,0.23220e+02_rb,0.23268e+02_rb,0.22908e+02_rb, &\n        & 0.22090e+02_rb,0.21022e+02_rb,0.21824e+02_rb,0.24620e+02_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.27191e+02_rb,0.24023e+02_rb,0.22996e+02_rb,0.23072e+02_rb,0.22769e+02_rb, &\n        & 0.22022e+02_rb,0.20982e+02_rb,0.21737e+02_rb,0.24514e+02_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.28259e+02_rb,0.25014e+02_rb,0.24907e+02_rb,0.24706e+02_rb,0.24642e+02_rb, &\n        & 0.23918e+02_rb,0.22330e+02_rb,0.22219e+02_rb,0.25091e+02_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.27993e+02_rb,0.24771e+02_rb,0.24666e+02_rb,0.24596e+02_rb,0.24487e+02_rb, &\n        & 0.23818e+02_rb,0.22348e+02_rb,0.22269e+02_rb,0.25149e+02_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.27691e+02_rb,0.24499e+02_rb,0.24421e+02_rb,0.24432e+02_rb,0.24340e+02_rb, &\n        & 0.23705e+02_rb,0.22420e+02_rb,0.22242e+02_rb,0.25109e+02_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.27357e+02_rb,0.24214e+02_rb,0.24178e+02_rb,0.24253e+02_rb,0.24191e+02_rb, &\n        & 0.23642e+02_rb,0.22422e+02_rb,0.22174e+02_rb,0.25030e+02_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.27008e+02_rb,0.23916e+02_rb,0.23935e+02_rb,0.24063e+02_rb,0.24020e+02_rb, &\n        & 0.23572e+02_rb,0.22355e+02_rb,0.22132e+02_rb,0.24957e+02_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.27627e+02_rb,0.24841e+02_rb,0.25414e+02_rb,0.25513e+02_rb,0.25788e+02_rb, &\n        & 0.25161e+02_rb,0.23567e+02_rb,0.22384e+02_rb,0.25091e+02_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.27317e+02_rb,0.24550e+02_rb,0.25165e+02_rb,0.25384e+02_rb,0.25578e+02_rb, &\n        & 0.25083e+02_rb,0.23662e+02_rb,0.22423e+02_rb,0.25102e+02_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.26994e+02_rb,0.24259e+02_rb,0.24926e+02_rb,0.25206e+02_rb,0.25391e+02_rb, &\n        & 0.25015e+02_rb,0.23758e+02_rb,0.22363e+02_rb,0.25025e+02_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.26640e+02_rb,0.23945e+02_rb,0.24692e+02_rb,0.25002e+02_rb,0.25193e+02_rb, &\n        & 0.24973e+02_rb,0.23733e+02_rb,0.22328e+02_rb,0.24965e+02_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.26265e+02_rb,0.23625e+02_rb,0.24446e+02_rb,0.24785e+02_rb,0.25037e+02_rb, &\n        & 0.24906e+02_rb,0.23659e+02_rb,0.22352e+02_rb,0.24965e+02_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.26430e+02_rb,0.24581e+02_rb,0.25439e+02_rb,0.26140e+02_rb,0.26524e+02_rb, &\n        & 0.25974e+02_rb,0.24552e+02_rb,0.22441e+02_rb,0.24498e+02_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.26105e+02_rb,0.24263e+02_rb,0.25225e+02_rb,0.25974e+02_rb,0.26315e+02_rb, &\n        & 0.25946e+02_rb,0.24677e+02_rb,0.22471e+02_rb,0.24490e+02_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.25752e+02_rb,0.23938e+02_rb,0.24996e+02_rb,0.25749e+02_rb,0.26113e+02_rb, &\n        & 0.25925e+02_rb,0.24758e+02_rb,0.22442e+02_rb,0.24454e+02_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.25389e+02_rb,0.23609e+02_rb,0.24761e+02_rb,0.25499e+02_rb,0.25940e+02_rb, &\n        & 0.25913e+02_rb,0.24720e+02_rb,0.22473e+02_rb,0.24475e+02_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.25010e+02_rb,0.23260e+02_rb,0.24510e+02_rb,0.25262e+02_rb,0.25804e+02_rb, &\n        & 0.25811e+02_rb,0.24640e+02_rb,0.22547e+02_rb,0.24534e+02_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.24762e+02_rb,0.23997e+02_rb,0.25209e+02_rb,0.26467e+02_rb,0.26748e+02_rb, &\n        & 0.26365e+02_rb,0.25094e+02_rb,0.22357e+02_rb,0.23406e+02_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.24421e+02_rb,0.23672e+02_rb,0.24981e+02_rb,0.26217e+02_rb,0.26595e+02_rb, &\n        & 0.26375e+02_rb,0.25195e+02_rb,0.22435e+02_rb,0.23453e+02_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.24067e+02_rb,0.23336e+02_rb,0.24754e+02_rb,0.25956e+02_rb,0.26455e+02_rb, &\n        & 0.26361e+02_rb,0.25241e+02_rb,0.22458e+02_rb,0.23475e+02_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.23691e+02_rb,0.22996e+02_rb,0.24502e+02_rb,0.25698e+02_rb,0.26330e+02_rb, &\n        & 0.26343e+02_rb,0.25197e+02_rb,0.22533e+02_rb,0.23575e+02_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.23311e+02_rb,0.22660e+02_rb,0.24234e+02_rb,0.25450e+02_rb,0.26215e+02_rb, &\n        & 0.26209e+02_rb,0.25123e+02_rb,0.22642e+02_rb,0.23709e+02_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.22800e+02_rb,0.23011e+02_rb,0.24799e+02_rb,0.26181e+02_rb,0.26533e+02_rb, &\n        & 0.26301e+02_rb,0.25044e+02_rb,0.22077e+02_rb,0.21907e+02_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.22436e+02_rb,0.22697e+02_rb,0.24546e+02_rb,0.25945e+02_rb,0.26460e+02_rb, &\n        & 0.26314e+02_rb,0.25122e+02_rb,0.22204e+02_rb,0.22029e+02_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.22079e+02_rb,0.22367e+02_rb,0.24295e+02_rb,0.25706e+02_rb,0.26370e+02_rb, &\n        & 0.26288e+02_rb,0.25162e+02_rb,0.22314e+02_rb,0.22151e+02_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.21719e+02_rb,0.22029e+02_rb,0.24017e+02_rb,0.25487e+02_rb,0.26273e+02_rb, &\n        & 0.26217e+02_rb,0.25110e+02_rb,0.22435e+02_rb,0.22334e+02_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.21341e+02_rb,0.21707e+02_rb,0.23702e+02_rb,0.25282e+02_rb,0.26159e+02_rb, &\n        & 0.26086e+02_rb,0.25065e+02_rb,0.22578e+02_rb,0.22506e+02_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.20601e+02_rb,0.21678e+02_rb,0.24058e+02_rb,0.25352e+02_rb,0.25931e+02_rb, &\n        & 0.25718e+02_rb,0.24432e+02_rb,0.21607e+02_rb,0.20262e+02_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.20254e+02_rb,0.21345e+02_rb,0.23796e+02_rb,0.25183e+02_rb,0.25875e+02_rb, &\n        & 0.25691e+02_rb,0.24508e+02_rb,0.21774e+02_rb,0.20445e+02_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.19899e+02_rb,0.21048e+02_rb,0.23494e+02_rb,0.25000e+02_rb,0.25800e+02_rb, &\n        & 0.25662e+02_rb,0.24533e+02_rb,0.21922e+02_rb,0.20638e+02_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.19544e+02_rb,0.20766e+02_rb,0.23207e+02_rb,0.24826e+02_rb,0.25686e+02_rb, &\n        & 0.25593e+02_rb,0.24527e+02_rb,0.22085e+02_rb,0.20832e+02_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.19193e+02_rb,0.20470e+02_rb,0.22936e+02_rb,0.24673e+02_rb,0.25544e+02_rb, &\n        & 0.25480e+02_rb,0.24537e+02_rb,0.22218e+02_rb,0.21044e+02_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.18170e+02_rb,0.20155e+02_rb,0.22721e+02_rb,0.24145e+02_rb,0.24798e+02_rb, &\n        & 0.24559e+02_rb,0.23403e+02_rb,0.20895e+02_rb,0.18740e+02_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.17830e+02_rb,0.19860e+02_rb,0.22479e+02_rb,0.24018e+02_rb,0.24721e+02_rb, &\n        & 0.24556e+02_rb,0.23466e+02_rb,0.21069e+02_rb,0.18949e+02_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.17496e+02_rb,0.19576e+02_rb,0.22242e+02_rb,0.23886e+02_rb,0.24621e+02_rb, &\n        & 0.24529e+02_rb,0.23525e+02_rb,0.21231e+02_rb,0.19147e+02_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.17168e+02_rb,0.19292e+02_rb,0.22005e+02_rb,0.23734e+02_rb,0.24514e+02_rb, &\n        & 0.24476e+02_rb,0.23580e+02_rb,0.21376e+02_rb,0.19368e+02_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.16844e+02_rb,0.19013e+02_rb,0.21771e+02_rb,0.23570e+02_rb,0.24390e+02_rb, &\n        & 0.24440e+02_rb,0.23651e+02_rb,0.21517e+02_rb,0.19612e+02_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.15762e+02_rb,0.18615e+02_rb,0.21133e+02_rb,0.22639e+02_rb,0.23214e+02_rb, &\n        & 0.23022e+02_rb,0.22060e+02_rb,0.19958e+02_rb,0.17314e+02_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.15455e+02_rb,0.18341e+02_rb,0.20944e+02_rb,0.22510e+02_rb,0.23148e+02_rb, &\n        & 0.23042e+02_rb,0.22164e+02_rb,0.20127e+02_rb,0.17543e+02_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.15156e+02_rb,0.18068e+02_rb,0.20768e+02_rb,0.22374e+02_rb,0.23084e+02_rb, &\n        & 0.23060e+02_rb,0.22257e+02_rb,0.20275e+02_rb,0.17770e+02_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.14865e+02_rb,0.17794e+02_rb,0.20582e+02_rb,0.22237e+02_rb,0.23018e+02_rb, &\n        & 0.23079e+02_rb,0.22350e+02_rb,0.20427e+02_rb,0.18026e+02_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.14612e+02_rb,0.17534e+02_rb,0.20399e+02_rb,0.22086e+02_rb,0.22956e+02_rb, &\n        & 0.23112e+02_rb,0.22443e+02_rb,0.20607e+02_rb,0.18280e+02_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.13517e+02_rb,0.16914e+02_rb,0.19425e+02_rb,0.20790e+02_rb,0.21367e+02_rb, &\n        & 0.21315e+02_rb,0.20607e+02_rb,0.18871e+02_rb,0.15967e+02_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.13249e+02_rb,0.16688e+02_rb,0.19279e+02_rb,0.20693e+02_rb,0.21344e+02_rb, &\n        & 0.21372e+02_rb,0.20725e+02_rb,0.19043e+02_rb,0.16217e+02_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.12994e+02_rb,0.16467e+02_rb,0.19108e+02_rb,0.20602e+02_rb,0.21343e+02_rb, &\n        & 0.21436e+02_rb,0.20839e+02_rb,0.19212e+02_rb,0.16494e+02_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.12784e+02_rb,0.16250e+02_rb,0.18951e+02_rb,0.20506e+02_rb,0.21335e+02_rb, &\n        & 0.21503e+02_rb,0.20961e+02_rb,0.19415e+02_rb,0.16770e+02_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.12734e+02_rb,0.16049e+02_rb,0.18819e+02_rb,0.20438e+02_rb,0.21329e+02_rb, &\n        & 0.21573e+02_rb,0.21104e+02_rb,0.19623e+02_rb,0.16983e+02_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.32549e+02_rb,0.28774e+02_rb,0.25031e+02_rb,0.22926e+02_rb,0.22117e+02_rb, &\n        & 0.21695e+02_rb,0.23417e+02_rb,0.26761e+02_rb,0.29694e+02_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.32499e+02_rb,0.28739e+02_rb,0.25006e+02_rb,0.22835e+02_rb,0.22088e+02_rb, &\n        & 0.21560e+02_rb,0.23253e+02_rb,0.26542e+02_rb,0.29377e+02_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.32407e+02_rb,0.28660e+02_rb,0.24923e+02_rb,0.22714e+02_rb,0.22014e+02_rb, &\n        & 0.21461e+02_rb,0.23148e+02_rb,0.26398e+02_rb,0.29117e+02_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.32260e+02_rb,0.28512e+02_rb,0.24788e+02_rb,0.22590e+02_rb,0.21881e+02_rb, &\n        & 0.21430e+02_rb,0.23071e+02_rb,0.26295e+02_rb,0.28961e+02_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.32039e+02_rb,0.28307e+02_rb,0.24614e+02_rb,0.22444e+02_rb,0.21715e+02_rb, &\n        & 0.21428e+02_rb,0.22979e+02_rb,0.26201e+02_rb,0.28821e+02_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.35951e+02_rb,0.31737e+02_rb,0.27558e+02_rb,0.25749e+02_rb,0.24746e+02_rb, &\n        & 0.23905e+02_rb,0.24887e+02_rb,0.28459e+02_rb,0.31791e+02_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.35862e+02_rb,0.31672e+02_rb,0.27501e+02_rb,0.25642e+02_rb,0.24725e+02_rb, &\n        & 0.23810e+02_rb,0.24734e+02_rb,0.28277e+02_rb,0.31526e+02_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.35737e+02_rb,0.31562e+02_rb,0.27401e+02_rb,0.25522e+02_rb,0.24641e+02_rb, &\n        & 0.23751e+02_rb,0.24591e+02_rb,0.28127e+02_rb,0.31321e+02_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.35534e+02_rb,0.31380e+02_rb,0.27248e+02_rb,0.25379e+02_rb,0.24498e+02_rb, &\n        & 0.23724e+02_rb,0.24485e+02_rb,0.28006e+02_rb,0.31168e+02_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.35285e+02_rb,0.31161e+02_rb,0.27065e+02_rb,0.25222e+02_rb,0.24328e+02_rb, &\n        & 0.23689e+02_rb,0.24406e+02_rb,0.27908e+02_rb,0.31060e+02_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.39089e+02_rb,0.34457e+02_rb,0.30041e+02_rb,0.28724e+02_rb,0.27574e+02_rb, &\n        & 0.26213e+02_rb,0.26498e+02_rb,0.30215e+02_rb,0.33960e+02_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.38998e+02_rb,0.34382e+02_rb,0.29952e+02_rb,0.28581e+02_rb,0.27562e+02_rb, &\n        & 0.26150e+02_rb,0.26309e+02_rb,0.29980e+02_rb,0.33662e+02_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.38820e+02_rb,0.34217e+02_rb,0.29804e+02_rb,0.28424e+02_rb,0.27473e+02_rb, &\n        & 0.26126e+02_rb,0.26176e+02_rb,0.29817e+02_rb,0.33458e+02_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.38594e+02_rb,0.34019e+02_rb,0.29631e+02_rb,0.28264e+02_rb,0.27343e+02_rb, &\n        & 0.26103e+02_rb,0.26063e+02_rb,0.29657e+02_rb,0.33303e+02_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.38290e+02_rb,0.33755e+02_rb,0.29411e+02_rb,0.28094e+02_rb,0.27189e+02_rb, &\n        & 0.26048e+02_rb,0.25993e+02_rb,0.29534e+02_rb,0.33212e+02_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.41846e+02_rb,0.36848e+02_rb,0.32642e+02_rb,0.31752e+02_rb,0.30348e+02_rb, &\n        & 0.28783e+02_rb,0.28429e+02_rb,0.31940e+02_rb,0.36003e+02_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.41706e+02_rb,0.36722e+02_rb,0.32481e+02_rb,0.31589e+02_rb,0.30346e+02_rb, &\n        & 0.28731e+02_rb,0.28275e+02_rb,0.31704e+02_rb,0.35716e+02_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.41502e+02_rb,0.36539e+02_rb,0.32269e+02_rb,0.31417e+02_rb,0.30279e+02_rb, &\n        & 0.28696e+02_rb,0.28151e+02_rb,0.31470e+02_rb,0.35494e+02_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.41217e+02_rb,0.36286e+02_rb,0.32033e+02_rb,0.31226e+02_rb,0.30155e+02_rb, &\n        & 0.28647e+02_rb,0.28039e+02_rb,0.31307e+02_rb,0.35368e+02_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.40876e+02_rb,0.35985e+02_rb,0.31743e+02_rb,0.31019e+02_rb,0.30013e+02_rb, &\n        & 0.28553e+02_rb,0.27986e+02_rb,0.31205e+02_rb,0.35294e+02_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.43995e+02_rb,0.38706e+02_rb,0.35200e+02_rb,0.34595e+02_rb,0.33005e+02_rb, &\n        & 0.31594e+02_rb,0.30727e+02_rb,0.33547e+02_rb,0.37840e+02_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.43792e+02_rb,0.38521e+02_rb,0.34965e+02_rb,0.34413e+02_rb,0.33017e+02_rb, &\n        & 0.31523e+02_rb,0.30579e+02_rb,0.33292e+02_rb,0.37593e+02_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.43530e+02_rb,0.38288e+02_rb,0.34710e+02_rb,0.34215e+02_rb,0.32953e+02_rb, &\n        & 0.31452e+02_rb,0.30422e+02_rb,0.33082e+02_rb,0.37437e+02_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.43192e+02_rb,0.37991e+02_rb,0.34400e+02_rb,0.33987e+02_rb,0.32832e+02_rb, &\n        & 0.31362e+02_rb,0.30341e+02_rb,0.32970e+02_rb,0.37357e+02_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.42817e+02_rb,0.37661e+02_rb,0.34079e+02_rb,0.33725e+02_rb,0.32688e+02_rb, &\n        & 0.31220e+02_rb,0.30292e+02_rb,0.32861e+02_rb,0.37270e+02_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.45371e+02_rb,0.39886e+02_rb,0.37563e+02_rb,0.36985e+02_rb,0.35582e+02_rb, &\n        & 0.34395e+02_rb,0.32997e+02_rb,0.34724e+02_rb,0.39202e+02_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.45116e+02_rb,0.39656e+02_rb,0.37269e+02_rb,0.36794e+02_rb,0.35596e+02_rb, &\n        & 0.34289e+02_rb,0.32827e+02_rb,0.34552e+02_rb,0.39098e+02_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.44794e+02_rb,0.39373e+02_rb,0.36959e+02_rb,0.36575e+02_rb,0.35485e+02_rb, &\n        & 0.34189e+02_rb,0.32665e+02_rb,0.34424e+02_rb,0.39024e+02_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.44425e+02_rb,0.39049e+02_rb,0.36596e+02_rb,0.36352e+02_rb,0.35337e+02_rb, &\n        & 0.34032e+02_rb,0.32591e+02_rb,0.34348e+02_rb,0.38980e+02_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.43987e+02_rb,0.38666e+02_rb,0.36218e+02_rb,0.36087e+02_rb,0.35122e+02_rb, &\n        & 0.33853e+02_rb,0.32536e+02_rb,0.34232e+02_rb,0.38883e+02_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.45829e+02_rb,0.40296e+02_rb,0.39507e+02_rb,0.38911e+02_rb,0.38052e+02_rb, &\n        & 0.37051e+02_rb,0.34926e+02_rb,0.35286e+02_rb,0.39874e+02_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.45523e+02_rb,0.40015e+02_rb,0.39164e+02_rb,0.38712e+02_rb,0.37995e+02_rb, &\n        & 0.36879e+02_rb,0.34780e+02_rb,0.35237e+02_rb,0.39916e+02_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.45143e+02_rb,0.39672e+02_rb,0.38788e+02_rb,0.38484e+02_rb,0.37843e+02_rb, &\n        & 0.36693e+02_rb,0.34674e+02_rb,0.35202e+02_rb,0.39935e+02_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.44711e+02_rb,0.39294e+02_rb,0.38380e+02_rb,0.38261e+02_rb,0.37608e+02_rb, &\n        & 0.36475e+02_rb,0.34639e+02_rb,0.35181e+02_rb,0.39952e+02_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.44229e+02_rb,0.38875e+02_rb,0.37956e+02_rb,0.37973e+02_rb,0.37347e+02_rb, &\n        & 0.36293e+02_rb,0.34620e+02_rb,0.35062e+02_rb,0.39846e+02_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.45335e+02_rb,0.40267e+02_rb,0.40744e+02_rb,0.40443e+02_rb,0.40247e+02_rb, &\n        & 0.39223e+02_rb,0.36584e+02_rb,0.35367e+02_rb,0.39844e+02_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.44955e+02_rb,0.39893e+02_rb,0.40398e+02_rb,0.40216e+02_rb,0.40115e+02_rb, &\n        & 0.39023e+02_rb,0.36582e+02_rb,0.35440e+02_rb,0.40008e+02_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.44529e+02_rb,0.39492e+02_rb,0.39985e+02_rb,0.39979e+02_rb,0.39873e+02_rb, &\n        & 0.38831e+02_rb,0.36587e+02_rb,0.35498e+02_rb,0.40121e+02_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.44061e+02_rb,0.39061e+02_rb,0.39564e+02_rb,0.39715e+02_rb,0.39565e+02_rb, &\n        & 0.38623e+02_rb,0.36619e+02_rb,0.35513e+02_rb,0.40138e+02_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.43543e+02_rb,0.38605e+02_rb,0.39136e+02_rb,0.39437e+02_rb,0.39265e+02_rb, &\n        & 0.38474e+02_rb,0.36637e+02_rb,0.35396e+02_rb,0.40011e+02_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.43909e+02_rb,0.39954e+02_rb,0.41167e+02_rb,0.41626e+02_rb,0.41945e+02_rb, &\n        & 0.40736e+02_rb,0.38077e+02_rb,0.35393e+02_rb,0.39221e+02_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.43480e+02_rb,0.39498e+02_rb,0.40786e+02_rb,0.41338e+02_rb,0.41733e+02_rb, &\n        & 0.40609e+02_rb,0.38181e+02_rb,0.35523e+02_rb,0.39397e+02_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.43002e+02_rb,0.39038e+02_rb,0.40373e+02_rb,0.41094e+02_rb,0.41410e+02_rb, &\n        & 0.40471e+02_rb,0.38255e+02_rb,0.35563e+02_rb,0.39462e+02_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.42479e+02_rb,0.38560e+02_rb,0.39995e+02_rb,0.40806e+02_rb,0.41101e+02_rb, &\n        & 0.40341e+02_rb,0.38344e+02_rb,0.35573e+02_rb,0.39457e+02_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.41942e+02_rb,0.38060e+02_rb,0.39621e+02_rb,0.40473e+02_rb,0.40785e+02_rb, &\n        & 0.40226e+02_rb,0.38369e+02_rb,0.35494e+02_rb,0.39400e+02_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.41598e+02_rb,0.39277e+02_rb,0.40964e+02_rb,0.42358e+02_rb,0.42727e+02_rb, &\n        & 0.41605e+02_rb,0.39147e+02_rb,0.35243e+02_rb,0.37755e+02_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.41110e+02_rb,0.38804e+02_rb,0.40573e+02_rb,0.42061e+02_rb,0.42547e+02_rb, &\n        & 0.41580e+02_rb,0.39298e+02_rb,0.35367e+02_rb,0.37893e+02_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.40607e+02_rb,0.38301e+02_rb,0.40218e+02_rb,0.41774e+02_rb,0.42273e+02_rb, &\n        & 0.41520e+02_rb,0.39406e+02_rb,0.35478e+02_rb,0.38009e+02_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.40087e+02_rb,0.37793e+02_rb,0.39835e+02_rb,0.41418e+02_rb,0.42009e+02_rb, &\n        & 0.41467e+02_rb,0.39471e+02_rb,0.35532e+02_rb,0.38110e+02_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.39528e+02_rb,0.37276e+02_rb,0.39445e+02_rb,0.41009e+02_rb,0.41755e+02_rb, &\n        & 0.41409e+02_rb,0.39460e+02_rb,0.35536e+02_rb,0.38153e+02_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.38423e+02_rb,0.37785e+02_rb,0.40246e+02_rb,0.42229e+02_rb,0.42700e+02_rb, &\n        & 0.41861e+02_rb,0.39594e+02_rb,0.34991e+02_rb,0.35642e+02_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.37903e+02_rb,0.37296e+02_rb,0.39841e+02_rb,0.41927e+02_rb,0.42539e+02_rb, &\n        & 0.41882e+02_rb,0.39751e+02_rb,0.35170e+02_rb,0.35883e+02_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.37383e+02_rb,0.36809e+02_rb,0.39442e+02_rb,0.41575e+02_rb,0.42342e+02_rb, &\n        & 0.41911e+02_rb,0.39809e+02_rb,0.35335e+02_rb,0.36101e+02_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.36841e+02_rb,0.36301e+02_rb,0.39055e+02_rb,0.41199e+02_rb,0.42145e+02_rb, &\n        & 0.41876e+02_rb,0.39854e+02_rb,0.35442e+02_rb,0.36276e+02_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.36274e+02_rb,0.35783e+02_rb,0.38676e+02_rb,0.40833e+02_rb,0.41945e+02_rb, &\n        & 0.41808e+02_rb,0.39839e+02_rb,0.35539e+02_rb,0.36455e+02_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.34828e+02_rb,0.35770e+02_rb,0.39099e+02_rb,0.41221e+02_rb,0.41958e+02_rb, &\n        & 0.41456e+02_rb,0.39253e+02_rb,0.34461e+02_rb,0.33246e+02_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.34304e+02_rb,0.35295e+02_rb,0.38700e+02_rb,0.40987e+02_rb,0.41846e+02_rb, &\n        & 0.41525e+02_rb,0.39359e+02_rb,0.34698e+02_rb,0.33560e+02_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.33784e+02_rb,0.34798e+02_rb,0.38311e+02_rb,0.40707e+02_rb,0.41743e+02_rb, &\n        & 0.41505e+02_rb,0.39465e+02_rb,0.34925e+02_rb,0.33882e+02_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.33241e+02_rb,0.34324e+02_rb,0.37917e+02_rb,0.40393e+02_rb,0.41632e+02_rb, &\n        & 0.41461e+02_rb,0.39554e+02_rb,0.35117e+02_rb,0.34172e+02_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.32710e+02_rb,0.33867e+02_rb,0.37489e+02_rb,0.40112e+02_rb,0.41490e+02_rb, &\n        & 0.41392e+02_rb,0.39590e+02_rb,0.35312e+02_rb,0.34501e+02_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.30997e+02_rb,0.33431e+02_rb,0.37385e+02_rb,0.39653e+02_rb,0.40610e+02_rb, &\n        & 0.40222e+02_rb,0.38101e+02_rb,0.33638e+02_rb,0.30845e+02_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.30492e+02_rb,0.32952e+02_rb,0.37042e+02_rb,0.39451e+02_rb,0.40583e+02_rb, &\n        & 0.40257e+02_rb,0.38272e+02_rb,0.33940e+02_rb,0.31245e+02_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.29985e+02_rb,0.32520e+02_rb,0.36699e+02_rb,0.39235e+02_rb,0.40521e+02_rb, &\n        & 0.40274e+02_rb,0.38447e+02_rb,0.34242e+02_rb,0.31622e+02_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.29485e+02_rb,0.32102e+02_rb,0.36327e+02_rb,0.39047e+02_rb,0.40416e+02_rb, &\n        & 0.40299e+02_rb,0.38596e+02_rb,0.34522e+02_rb,0.32000e+02_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.29016e+02_rb,0.31685e+02_rb,0.35962e+02_rb,0.38852e+02_rb,0.40311e+02_rb, &\n        & 0.40331e+02_rb,0.38749e+02_rb,0.34802e+02_rb,0.32433e+02_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.40414e+02_rb,0.35530e+02_rb,0.30727e+02_rb,0.26813e+02_rb,0.26498e+02_rb, &\n        & 0.27724e+02_rb,0.32451e+02_rb,0.37296e+02_rb,0.40920e+02_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.40378e+02_rb,0.35506e+02_rb,0.30718e+02_rb,0.26787e+02_rb,0.26360e+02_rb, &\n        & 0.27557e+02_rb,0.32109e+02_rb,0.36904e+02_rb,0.40512e+02_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.40288e+02_rb,0.35435e+02_rb,0.30689e+02_rb,0.26758e+02_rb,0.26294e+02_rb, &\n        & 0.27365e+02_rb,0.31721e+02_rb,0.36448e+02_rb,0.40077e+02_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.40152e+02_rb,0.35337e+02_rb,0.30607e+02_rb,0.26666e+02_rb,0.26235e+02_rb, &\n        & 0.27137e+02_rb,0.31350e+02_rb,0.36026e+02_rb,0.39605e+02_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.39996e+02_rb,0.35209e+02_rb,0.30500e+02_rb,0.26544e+02_rb,0.26176e+02_rb, &\n        & 0.26906e+02_rb,0.31054e+02_rb,0.35676e+02_rb,0.39227e+02_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.46201e+02_rb,0.40631e+02_rb,0.35149e+02_rb,0.31004e+02_rb,0.30338e+02_rb, &\n        & 0.30975e+02_rb,0.35648e+02_rb,0.41032e+02_rb,0.45728e+02_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.46189e+02_rb,0.40616e+02_rb,0.35151e+02_rb,0.30920e+02_rb,0.30181e+02_rb, &\n        & 0.30854e+02_rb,0.35321e+02_rb,0.40601e+02_rb,0.45258e+02_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.46107e+02_rb,0.40548e+02_rb,0.35109e+02_rb,0.30814e+02_rb,0.30060e+02_rb, &\n        & 0.30665e+02_rb,0.34964e+02_rb,0.40159e+02_rb,0.44756e+02_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.45964e+02_rb,0.40421e+02_rb,0.35002e+02_rb,0.30664e+02_rb,0.29967e+02_rb, &\n        & 0.30436e+02_rb,0.34636e+02_rb,0.39757e+02_rb,0.44299e+02_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.45779e+02_rb,0.40257e+02_rb,0.34861e+02_rb,0.30500e+02_rb,0.29866e+02_rb, &\n        & 0.30215e+02_rb,0.34343e+02_rb,0.39421e+02_rb,0.43898e+02_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.52493e+02_rb,0.46184e+02_rb,0.39933e+02_rb,0.35707e+02_rb,0.34547e+02_rb, &\n        & 0.34524e+02_rb,0.38680e+02_rb,0.44581e+02_rb,0.50362e+02_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.52499e+02_rb,0.46190e+02_rb,0.39958e+02_rb,0.35613e+02_rb,0.34342e+02_rb, &\n        & 0.34438e+02_rb,0.38422e+02_rb,0.44213e+02_rb,0.49916e+02_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.52430e+02_rb,0.46141e+02_rb,0.39924e+02_rb,0.35477e+02_rb,0.34202e+02_rb, &\n        & 0.34294e+02_rb,0.38128e+02_rb,0.43804e+02_rb,0.49438e+02_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.52296e+02_rb,0.46021e+02_rb,0.39821e+02_rb,0.35288e+02_rb,0.34063e+02_rb, &\n        & 0.34077e+02_rb,0.37857e+02_rb,0.43466e+02_rb,0.49020e+02_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.52087e+02_rb,0.45828e+02_rb,0.39654e+02_rb,0.35060e+02_rb,0.33889e+02_rb, &\n        & 0.33876e+02_rb,0.37613e+02_rb,0.43182e+02_rb,0.48640e+02_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.58998e+02_rb,0.51894e+02_rb,0.44809e+02_rb,0.40767e+02_rb,0.39196e+02_rb, &\n        & 0.38349e+02_rb,0.41490e+02_rb,0.47820e+02_rb,0.54353e+02_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.58998e+02_rb,0.51911e+02_rb,0.44850e+02_rb,0.40692e+02_rb,0.38973e+02_rb, &\n        & 0.38281e+02_rb,0.41275e+02_rb,0.47479e+02_rb,0.53941e+02_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.58946e+02_rb,0.51872e+02_rb,0.44826e+02_rb,0.40545e+02_rb,0.38818e+02_rb, &\n        & 0.38152e+02_rb,0.41007e+02_rb,0.47151e+02_rb,0.53507e+02_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.58797e+02_rb,0.51741e+02_rb,0.44719e+02_rb,0.40328e+02_rb,0.38647e+02_rb, &\n        & 0.37950e+02_rb,0.40768e+02_rb,0.46871e+02_rb,0.53108e+02_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.58578e+02_rb,0.51549e+02_rb,0.44555e+02_rb,0.40074e+02_rb,0.38419e+02_rb, &\n        & 0.37769e+02_rb,0.40542e+02_rb,0.46625e+02_rb,0.52790e+02_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.65454e+02_rb,0.57537e+02_rb,0.49631e+02_rb,0.46171e+02_rb,0.44093e+02_rb, &\n        & 0.42375e+02_rb,0.44216e+02_rb,0.50929e+02_rb,0.58021e+02_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.65480e+02_rb,0.57591e+02_rb,0.49679e+02_rb,0.46047e+02_rb,0.43916e+02_rb, &\n        & 0.42317e+02_rb,0.44023e+02_rb,0.50643e+02_rb,0.57621e+02_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.65404e+02_rb,0.57534e+02_rb,0.49633e+02_rb,0.45875e+02_rb,0.43765e+02_rb, &\n        & 0.42200e+02_rb,0.43791e+02_rb,0.50364e+02_rb,0.57215e+02_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.65236e+02_rb,0.57393e+02_rb,0.49518e+02_rb,0.45648e+02_rb,0.43596e+02_rb, &\n        & 0.42013e+02_rb,0.43533e+02_rb,0.50076e+02_rb,0.56838e+02_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.64960e+02_rb,0.57155e+02_rb,0.49326e+02_rb,0.45390e+02_rb,0.43392e+02_rb, &\n        & 0.41855e+02_rb,0.43285e+02_rb,0.49832e+02_rb,0.56537e+02_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.71553e+02_rb,0.62830e+02_rb,0.54580e+02_rb,0.51897e+02_rb,0.49249e+02_rb, &\n        & 0.46670e+02_rb,0.47221e+02_rb,0.54164e+02_rb,0.61741e+02_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.71559e+02_rb,0.62858e+02_rb,0.54547e+02_rb,0.51727e+02_rb,0.49114e+02_rb, &\n        & 0.46626e+02_rb,0.47093e+02_rb,0.53907e+02_rb,0.61336e+02_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.71474e+02_rb,0.62796e+02_rb,0.54422e+02_rb,0.51491e+02_rb,0.49001e+02_rb, &\n        & 0.46518e+02_rb,0.46873e+02_rb,0.53599e+02_rb,0.60908e+02_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.71253e+02_rb,0.62620e+02_rb,0.54248e+02_rb,0.51208e+02_rb,0.48873e+02_rb, &\n        & 0.46377e+02_rb,0.46595e+02_rb,0.53243e+02_rb,0.60469e+02_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.70931e+02_rb,0.62354e+02_rb,0.53993e+02_rb,0.50888e+02_rb,0.48719e+02_rb, &\n        & 0.46222e+02_rb,0.46318e+02_rb,0.52946e+02_rb,0.60113e+02_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.76995e+02_rb,0.67566e+02_rb,0.59542e+02_rb,0.57607e+02_rb,0.54461e+02_rb, &\n        & 0.51316e+02_rb,0.50984e+02_rb,0.57643e+02_rb,0.65674e+02_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.76958e+02_rb,0.67548e+02_rb,0.59397e+02_rb,0.57376e+02_rb,0.54369e+02_rb, &\n        & 0.51326e+02_rb,0.50889e+02_rb,0.57330e+02_rb,0.65196e+02_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.76815e+02_rb,0.67433e+02_rb,0.59207e+02_rb,0.57127e+02_rb,0.54289e+02_rb, &\n        & 0.51287e+02_rb,0.50622e+02_rb,0.56904e+02_rb,0.64662e+02_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.76535e+02_rb,0.67198e+02_rb,0.58948e+02_rb,0.56779e+02_rb,0.54224e+02_rb, &\n        & 0.51158e+02_rb,0.50286e+02_rb,0.56459e+02_rb,0.64124e+02_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.76156e+02_rb,0.66876e+02_rb,0.58634e+02_rb,0.56401e+02_rb,0.54096e+02_rb, &\n        & 0.50976e+02_rb,0.49973e+02_rb,0.56129e+02_rb,0.63785e+02_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.81421e+02_rb,0.71418e+02_rb,0.64455e+02_rb,0.62977e+02_rb,0.59643e+02_rb, &\n        & 0.56434e+02_rb,0.55164e+02_rb,0.60758e+02_rb,0.69127e+02_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.81348e+02_rb,0.71366e+02_rb,0.64215e+02_rb,0.62779e+02_rb,0.59582e+02_rb, &\n        & 0.56462e+02_rb,0.55001e+02_rb,0.60346e+02_rb,0.68584e+02_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.81121e+02_rb,0.71177e+02_rb,0.63909e+02_rb,0.62467e+02_rb,0.59508e+02_rb, &\n        & 0.56437e+02_rb,0.54668e+02_rb,0.59898e+02_rb,0.68043e+02_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.80795e+02_rb,0.70901e+02_rb,0.63558e+02_rb,0.62070e+02_rb,0.59450e+02_rb, &\n        & 0.56283e+02_rb,0.54317e+02_rb,0.59470e+02_rb,0.67583e+02_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.80315e+02_rb,0.70489e+02_rb,0.63126e+02_rb,0.61649e+02_rb,0.59298e+02_rb, &\n        & 0.56050e+02_rb,0.54007e+02_rb,0.59179e+02_rb,0.67330e+02_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.84526e+02_rb,0.74114e+02_rb,0.69139e+02_rb,0.67766e+02_rb,0.64700e+02_rb, &\n        & 0.61791e+02_rb,0.59295e+02_rb,0.62885e+02_rb,0.71468e+02_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.84370e+02_rb,0.73989e+02_rb,0.68856e+02_rb,0.67565e+02_rb,0.64593e+02_rb, &\n        & 0.61811e+02_rb,0.59181e+02_rb,0.62666e+02_rb,0.71181e+02_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.84053e+02_rb,0.73721e+02_rb,0.68457e+02_rb,0.67233e+02_rb,0.64524e+02_rb, &\n        & 0.61778e+02_rb,0.58870e+02_rb,0.62384e+02_rb,0.70849e+02_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.83638e+02_rb,0.73367e+02_rb,0.67980e+02_rb,0.66820e+02_rb,0.64408e+02_rb, &\n        & 0.61582e+02_rb,0.58561e+02_rb,0.62049e+02_rb,0.70550e+02_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.83125e+02_rb,0.72897e+02_rb,0.67415e+02_rb,0.66418e+02_rb,0.64238e+02_rb, &\n        & 0.61304e+02_rb,0.58306e+02_rb,0.61805e+02_rb,0.70366e+02_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.86099e+02_rb,0.75664e+02_rb,0.73052e+02_rb,0.71784e+02_rb,0.69581e+02_rb, &\n        & 0.67013e+02_rb,0.63079e+02_rb,0.64019e+02_rb,0.72668e+02_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.85793e+02_rb,0.75364e+02_rb,0.72621e+02_rb,0.71506e+02_rb,0.69364e+02_rb, &\n        & 0.66992e+02_rb,0.63098e+02_rb,0.64105e+02_rb,0.72738e+02_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.85391e+02_rb,0.74983e+02_rb,0.72119e+02_rb,0.71136e+02_rb,0.69201e+02_rb, &\n        & 0.66897e+02_rb,0.62939e+02_rb,0.63964e+02_rb,0.72620e+02_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.84829e+02_rb,0.74472e+02_rb,0.71563e+02_rb,0.70768e+02_rb,0.69027e+02_rb, &\n        & 0.66600e+02_rb,0.62760e+02_rb,0.63750e+02_rb,0.72497e+02_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.84210e+02_rb,0.73923e+02_rb,0.70963e+02_rb,0.70409e+02_rb,0.68788e+02_rb, &\n        & 0.66285e+02_rb,0.62604e+02_rb,0.63643e+02_rb,0.72460e+02_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.85661e+02_rb,0.75976e+02_rb,0.75616e+02_rb,0.74895e+02_rb,0.73796e+02_rb, &\n        & 0.71450e+02_rb,0.66595e+02_rb,0.64723e+02_rb,0.72988e+02_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.85212e+02_rb,0.75487e+02_rb,0.75133e+02_rb,0.74528e+02_rb,0.73552e+02_rb, &\n        & 0.71413e+02_rb,0.66688e+02_rb,0.64835e+02_rb,0.73147e+02_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.84633e+02_rb,0.74907e+02_rb,0.74581e+02_rb,0.74183e+02_rb,0.73356e+02_rb, &\n        & 0.71194e+02_rb,0.66687e+02_rb,0.64831e+02_rb,0.73292e+02_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.83975e+02_rb,0.74286e+02_rb,0.73943e+02_rb,0.73830e+02_rb,0.73088e+02_rb, &\n        & 0.70916e+02_rb,0.66610e+02_rb,0.64920e+02_rb,0.73470e+02_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.83246e+02_rb,0.73605e+02_rb,0.73209e+02_rb,0.73386e+02_rb,0.72735e+02_rb, &\n        & 0.70587e+02_rb,0.66523e+02_rb,0.64950e+02_rb,0.73537e+02_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.83352e+02_rb,0.75282e+02_rb,0.76925e+02_rb,0.77365e+02_rb,0.77206e+02_rb, &\n        & 0.74850e+02_rb,0.69716e+02_rb,0.65048e+02_rb,0.72181e+02_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.82736e+02_rb,0.74597e+02_rb,0.76403e+02_rb,0.76949e+02_rb,0.76971e+02_rb, &\n        & 0.74863e+02_rb,0.69929e+02_rb,0.65330e+02_rb,0.72664e+02_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.82054e+02_rb,0.73916e+02_rb,0.75743e+02_rb,0.76528e+02_rb,0.76666e+02_rb, &\n        & 0.74738e+02_rb,0.70022e+02_rb,0.65629e+02_rb,0.73075e+02_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.81316e+02_rb,0.73173e+02_rb,0.75030e+02_rb,0.76061e+02_rb,0.76286e+02_rb, &\n        & 0.74512e+02_rb,0.70083e+02_rb,0.65825e+02_rb,0.73345e+02_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.80516e+02_rb,0.72378e+02_rb,0.74331e+02_rb,0.75554e+02_rb,0.75785e+02_rb, &\n        & 0.74233e+02_rb,0.70124e+02_rb,0.65929e+02_rb,0.73501e+02_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.79408e+02_rb,0.73858e+02_rb,0.76980e+02_rb,0.78869e+02_rb,0.79397e+02_rb, &\n        & 0.77263e+02_rb,0.72263e+02_rb,0.65338e+02_rb,0.70604e+02_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.78716e+02_rb,0.73093e+02_rb,0.76326e+02_rb,0.78426e+02_rb,0.79146e+02_rb, &\n        & 0.77408e+02_rb,0.72561e+02_rb,0.65807e+02_rb,0.71230e+02_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.77962e+02_rb,0.72251e+02_rb,0.75686e+02_rb,0.77926e+02_rb,0.78867e+02_rb, &\n        & 0.77356e+02_rb,0.72810e+02_rb,0.66137e+02_rb,0.71698e+02_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.77177e+02_rb,0.71385e+02_rb,0.75042e+02_rb,0.77408e+02_rb,0.78464e+02_rb, &\n        & 0.77172e+02_rb,0.73006e+02_rb,0.66333e+02_rb,0.72067e+02_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.76340e+02_rb,0.70519e+02_rb,0.74355e+02_rb,0.76889e+02_rb,0.78015e+02_rb, &\n        & 0.76988e+02_rb,0.73079e+02_rb,0.66485e+02_rb,0.72407e+02_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.51404e+02_rb,0.45212e+02_rb,0.39078e+02_rb,0.32978e+02_rb,0.31213e+02_rb, &\n        & 0.35689e+02_rb,0.42239e+02_rb,0.49109e+02_rb,0.53555e+02_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.51456e+02_rb,0.45263e+02_rb,0.39085e+02_rb,0.32975e+02_rb,0.31034e+02_rb, &\n        & 0.35237e+02_rb,0.41756e+02_rb,0.48531e+02_rb,0.52877e+02_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.51419e+02_rb,0.45226e+02_rb,0.39013e+02_rb,0.32932e+02_rb,0.30826e+02_rb, &\n        & 0.34871e+02_rb,0.41372e+02_rb,0.48070e+02_rb,0.52319e+02_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.51315e+02_rb,0.45122e+02_rb,0.38925e+02_rb,0.32886e+02_rb,0.30643e+02_rb, &\n        & 0.34565e+02_rb,0.41054e+02_rb,0.47690e+02_rb,0.51853e+02_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.51134e+02_rb,0.44958e+02_rb,0.38787e+02_rb,0.32819e+02_rb,0.30476e+02_rb, &\n        & 0.34330e+02_rb,0.40799e+02_rb,0.47384e+02_rb,0.51513e+02_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.59575e+02_rb,0.52343e+02_rb,0.45168e+02_rb,0.38156e+02_rb,0.36549e+02_rb, &\n        & 0.40798e+02_rb,0.48433e+02_rb,0.56320e+02_rb,0.62499e+02_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.59656e+02_rb,0.52415e+02_rb,0.45196e+02_rb,0.38159e+02_rb,0.36356e+02_rb, &\n        & 0.40232e+02_rb,0.47806e+02_rb,0.55603e+02_rb,0.61692e+02_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.59635e+02_rb,0.52395e+02_rb,0.45146e+02_rb,0.38116e+02_rb,0.36139e+02_rb, &\n        & 0.39805e+02_rb,0.47339e+02_rb,0.55046e+02_rb,0.61068e+02_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.59522e+02_rb,0.52285e+02_rb,0.45051e+02_rb,0.38066e+02_rb,0.35889e+02_rb, &\n        & 0.39470e+02_rb,0.46981e+02_rb,0.54621e+02_rb,0.60592e+02_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.59307e+02_rb,0.52094e+02_rb,0.44889e+02_rb,0.37960e+02_rb,0.35677e+02_rb, &\n        & 0.39216e+02_rb,0.46687e+02_rb,0.54268e+02_rb,0.60193e+02_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.68809e+02_rb,0.60397e+02_rb,0.52025e+02_rb,0.44161e+02_rb,0.42701e+02_rb, &\n        & 0.46667e+02_rb,0.55520e+02_rb,0.64493e+02_rb,0.72669e+02_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.68924e+02_rb,0.60499e+02_rb,0.52098e+02_rb,0.44133e+02_rb,0.42521e+02_rb, &\n        & 0.45966e+02_rb,0.54732e+02_rb,0.63594e+02_rb,0.71705e+02_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.68950e+02_rb,0.60531e+02_rb,0.52101e+02_rb,0.44100e+02_rb,0.42285e+02_rb, &\n        & 0.45418e+02_rb,0.54095e+02_rb,0.62883e+02_rb,0.70919e+02_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.68857e+02_rb,0.60434e+02_rb,0.52014e+02_rb,0.44041e+02_rb,0.42031e+02_rb, &\n        & 0.45005e+02_rb,0.53564e+02_rb,0.62291e+02_rb,0.70247e+02_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.68666e+02_rb,0.60265e+02_rb,0.51871e+02_rb,0.43942e+02_rb,0.41842e+02_rb, &\n        & 0.44690e+02_rb,0.53134e+02_rb,0.61806e+02_rb,0.69686e+02_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.79311e+02_rb,0.69561e+02_rb,0.59881e+02_rb,0.51276e+02_rb,0.49761e+02_rb, &\n        & 0.53193e+02_rb,0.63396e+02_rb,0.73656e+02_rb,0.83652e+02_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.79511e+02_rb,0.69736e+02_rb,0.60019e+02_rb,0.51173e+02_rb,0.49594e+02_rb, &\n        & 0.52466e+02_rb,0.62461e+02_rb,0.72578e+02_rb,0.82426e+02_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.79562e+02_rb,0.69789e+02_rb,0.60043e+02_rb,0.51075e+02_rb,0.49346e+02_rb, &\n        & 0.51847e+02_rb,0.61639e+02_rb,0.71632e+02_rb,0.81369e+02_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.79512e+02_rb,0.69733e+02_rb,0.59989e+02_rb,0.50979e+02_rb,0.49088e+02_rb, &\n        & 0.51360e+02_rb,0.60947e+02_rb,0.70836e+02_rb,0.80468e+02_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.79325e+02_rb,0.69569e+02_rb,0.59854e+02_rb,0.50871e+02_rb,0.48882e+02_rb, &\n        & 0.50991e+02_rb,0.60362e+02_rb,0.70161e+02_rb,0.79701e+02_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.91112e+02_rb,0.79892e+02_rb,0.68781e+02_rb,0.59496e+02_rb,0.57988e+02_rb, &\n        & 0.60415e+02_rb,0.71595e+02_rb,0.83227e+02_rb,0.94854e+02_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.91447e+02_rb,0.80173e+02_rb,0.69023e+02_rb,0.59416e+02_rb,0.57743e+02_rb, &\n        & 0.59673e+02_rb,0.70483e+02_rb,0.81942e+02_rb,0.93394e+02_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.91583e+02_rb,0.80288e+02_rb,0.69106e+02_rb,0.59276e+02_rb,0.57416e+02_rb, &\n        & 0.59035e+02_rb,0.69528e+02_rb,0.80829e+02_rb,0.92131e+02_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.91566e+02_rb,0.80257e+02_rb,0.69073e+02_rb,0.59136e+02_rb,0.57092e+02_rb, &\n        & 0.58527e+02_rb,0.68724e+02_rb,0.79885e+02_rb,0.91053e+02_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.91390e+02_rb,0.80104e+02_rb,0.68937e+02_rb,0.58973e+02_rb,0.56776e+02_rb, &\n        & 0.58107e+02_rb,0.68079e+02_rb,0.79072e+02_rb,0.90122e+02_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.10419e+03_rb,0.91394e+02_rb,0.78656e+02_rb,0.68916e+02_rb,0.67128e+02_rb, &\n        & 0.68461e+02_rb,0.79894e+02_rb,0.92926e+02_rb,0.10607e+03_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.10463e+03_rb,0.91782e+02_rb,0.79002e+02_rb,0.68819e+02_rb,0.66845e+02_rb, &\n        & 0.67738e+02_rb,0.78628e+02_rb,0.91458e+02_rb,0.10440e+03_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.10486e+03_rb,0.91970e+02_rb,0.79156e+02_rb,0.68698e+02_rb,0.66470e+02_rb, &\n        & 0.67066e+02_rb,0.77628e+02_rb,0.90242e+02_rb,0.10302e+03_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.10494e+03_rb,0.92025e+02_rb,0.79207e+02_rb,0.68555e+02_rb,0.66081e+02_rb, &\n        & 0.66543e+02_rb,0.76843e+02_rb,0.89253e+02_rb,0.10189e+03_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.10481e+03_rb,0.91892e+02_rb,0.79105e+02_rb,0.68344e+02_rb,0.65668e+02_rb, &\n        & 0.66109e+02_rb,0.76190e+02_rb,0.88386e+02_rb,0.10090e+03_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.11850e+03_rb,0.10394e+03_rb,0.89423e+02_rb,0.79509e+02_rb,0.77207e+02_rb, &\n        & 0.77196e+02_rb,0.87943e+02_rb,0.10236e+03_rb,0.11694e+03_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.11905e+03_rb,0.10443e+03_rb,0.89864e+02_rb,0.79528e+02_rb,0.76905e+02_rb, &\n        & 0.76494e+02_rb,0.86650e+02_rb,0.10078e+03_rb,0.11515e+03_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.11939e+03_rb,0.10473e+03_rb,0.90115e+02_rb,0.79401e+02_rb,0.76523e+02_rb, &\n        & 0.75853e+02_rb,0.85715e+02_rb,0.99595e+02_rb,0.11380e+03_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.11951e+03_rb,0.10484e+03_rb,0.90222e+02_rb,0.79220e+02_rb,0.76090e+02_rb, &\n        & 0.75405e+02_rb,0.85022e+02_rb,0.98653e+02_rb,0.11271e+03_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.11942e+03_rb,0.10476e+03_rb,0.90169e+02_rb,0.78976e+02_rb,0.75607e+02_rb, &\n        & 0.75018e+02_rb,0.84352e+02_rb,0.97783e+02_rb,0.11167e+03_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.13381e+03_rb,0.11735e+03_rb,0.10095e+03_rb,0.91226e+02_rb,0.88188e+02_rb, &\n        & 0.86379e+02_rb,0.95828e+02_rb,0.11155e+03_rb,0.12755e+03_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.13446e+03_rb,0.11794e+03_rb,0.10145e+03_rb,0.91271e+02_rb,0.87947e+02_rb, &\n        & 0.85766e+02_rb,0.94652e+02_rb,0.11006e+03_rb,0.12583e+03_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.13492e+03_rb,0.11834e+03_rb,0.10180e+03_rb,0.91233e+02_rb,0.87619e+02_rb, &\n        & 0.85228e+02_rb,0.93811e+02_rb,0.10892e+03_rb,0.12452e+03_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.13505e+03_rb,0.11846e+03_rb,0.10192e+03_rb,0.91090e+02_rb,0.87150e+02_rb, &\n        & 0.84887e+02_rb,0.93111e+02_rb,0.10797e+03_rb,0.12337e+03_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.13500e+03_rb,0.11844e+03_rb,0.10192e+03_rb,0.90797e+02_rb,0.86626e+02_rb, &\n        & 0.84570e+02_rb,0.92421e+02_rb,0.10710e+03_rb,0.12226e+03_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.14952e+03_rb,0.13110e+03_rb,0.11316e+03_rb,0.10410e+03_rb,0.99927e+02_rb, &\n        & 0.96074e+02_rb,0.10374e+03_rb,0.12067e+03_rb,0.13801e+03_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.15028e+03_rb,0.13179e+03_rb,0.11360e+03_rb,0.10415e+03_rb,0.99870e+02_rb, &\n        & 0.95589e+02_rb,0.10257e+03_rb,0.11912e+03_rb,0.13623e+03_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.15082e+03_rb,0.13227e+03_rb,0.11392e+03_rb,0.10405e+03_rb,0.99571e+02_rb, &\n        & 0.95189e+02_rb,0.10182e+03_rb,0.11803e+03_rb,0.13496e+03_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.15103e+03_rb,0.13247e+03_rb,0.11403e+03_rb,0.10385e+03_rb,0.99126e+02_rb, &\n        & 0.94980e+02_rb,0.10122e+03_rb,0.11720e+03_rb,0.13388e+03_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.15094e+03_rb,0.13245e+03_rb,0.11401e+03_rb,0.10348e+03_rb,0.98550e+02_rb, &\n        & 0.94746e+02_rb,0.10055e+03_rb,0.11636e+03_rb,0.13276e+03_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.16524e+03_rb,0.14486e+03_rb,0.12594e+03_rb,0.11785e+03_rb,0.11225e+03_rb, &\n        & 0.10654e+03_rb,0.11202e+03_rb,0.12965e+03_rb,0.14829e+03_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.16610e+03_rb,0.14564e+03_rb,0.12636e+03_rb,0.11787e+03_rb,0.11233e+03_rb, &\n        & 0.10630e+03_rb,0.11093e+03_rb,0.12811e+03_rb,0.14653e+03_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.16659e+03_rb,0.14608e+03_rb,0.12656e+03_rb,0.11769e+03_rb,0.11214e+03_rb, &\n        & 0.10609e+03_rb,0.11032e+03_rb,0.12713e+03_rb,0.14532e+03_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.16681e+03_rb,0.14630e+03_rb,0.12659e+03_rb,0.11736e+03_rb,0.11169e+03_rb, &\n        & 0.10597e+03_rb,0.10973e+03_rb,0.12629e+03_rb,0.14416e+03_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.16671e+03_rb,0.14623e+03_rb,0.12639e+03_rb,0.11688e+03_rb,0.11111e+03_rb, &\n        & 0.10576e+03_rb,0.10909e+03_rb,0.12542e+03_rb,0.14303e+03_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.18065e+03_rb,0.15832e+03_rb,0.13903e+03_rb,0.13201e+03_rb,0.12519e+03_rb, &\n        & 0.11820e+03_rb,0.12047e+03_rb,0.13760e+03_rb,0.15739e+03_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.18131e+03_rb,0.15893e+03_rb,0.13916e+03_rb,0.13183e+03_rb,0.12520e+03_rb, &\n        & 0.11800e+03_rb,0.11979e+03_rb,0.13660e+03_rb,0.15612e+03_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.18162e+03_rb,0.15925e+03_rb,0.13912e+03_rb,0.13145e+03_rb,0.12487e+03_rb, &\n        & 0.11789e+03_rb,0.11922e+03_rb,0.13566e+03_rb,0.15481e+03_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.18161e+03_rb,0.15927e+03_rb,0.13888e+03_rb,0.13091e+03_rb,0.12432e+03_rb, &\n        & 0.11770e+03_rb,0.11858e+03_rb,0.13462e+03_rb,0.15350e+03_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.18129e+03_rb,0.15901e+03_rb,0.13849e+03_rb,0.13027e+03_rb,0.12371e+03_rb, &\n        & 0.11738e+03_rb,0.11800e+03_rb,0.13378e+03_rb,0.15248e+03_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.19439e+03_rb,0.17031e+03_rb,0.15181e+03_rb,0.14577e+03_rb,0.13828e+03_rb, &\n        & 0.13070e+03_rb,0.12972e+03_rb,0.14546e+03_rb,0.16618e+03_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.19483e+03_rb,0.17073e+03_rb,0.15156e+03_rb,0.14543e+03_rb,0.13812e+03_rb, &\n        & 0.13043e+03_rb,0.12913e+03_rb,0.14443e+03_rb,0.16476e+03_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.19494e+03_rb,0.17087e+03_rb,0.15124e+03_rb,0.14493e+03_rb,0.13771e+03_rb, &\n        & 0.13020e+03_rb,0.12847e+03_rb,0.14330e+03_rb,0.16335e+03_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.19474e+03_rb,0.17073e+03_rb,0.15078e+03_rb,0.14425e+03_rb,0.13718e+03_rb, &\n        & 0.12986e+03_rb,0.12779e+03_rb,0.14240e+03_rb,0.16229e+03_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.19420e+03_rb,0.17029e+03_rb,0.15011e+03_rb,0.14337e+03_rb,0.13666e+03_rb, &\n        & 0.12942e+03_rb,0.12725e+03_rb,0.14171e+03_rb,0.16147e+03_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.20562e+03_rb,0.18014e+03_rb,0.16395e+03_rb,0.15885e+03_rb,0.15131e+03_rb, &\n        & 0.14344e+03_rb,0.13928e+03_rb,0.15201e+03_rb,0.17336e+03_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.20583e+03_rb,0.18034e+03_rb,0.16346e+03_rb,0.15844e+03_rb,0.15102e+03_rb, &\n        & 0.14310e+03_rb,0.13867e+03_rb,0.15101e+03_rb,0.17210e+03_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.20579e+03_rb,0.18034e+03_rb,0.16282e+03_rb,0.15782e+03_rb,0.15051e+03_rb, &\n        & 0.14271e+03_rb,0.13803e+03_rb,0.15026e+03_rb,0.17119e+03_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.20539e+03_rb,0.18002e+03_rb,0.16199e+03_rb,0.15696e+03_rb,0.15005e+03_rb, &\n        & 0.14226e+03_rb,0.13746e+03_rb,0.14977e+03_rb,0.17061e+03_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.20471e+03_rb,0.17946e+03_rb,0.16101e+03_rb,0.15580e+03_rb,0.14942e+03_rb, &\n        & 0.14163e+03_rb,0.13685e+03_rb,0.14922e+03_rb,0.16998e+03_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.61110e+02_rb,0.53539e+02_rb,0.46005e+02_rb,0.38902e+02_rb,0.35970e+02_rb, &\n        & 0.43986e+02_rb,0.52608e+02_rb,0.61157e+02_rb,0.65911e+02_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.61315e+02_rb,0.53717e+02_rb,0.46235e+02_rb,0.39083e+02_rb,0.35687e+02_rb, &\n        & 0.43381e+02_rb,0.51871e+02_rb,0.60290e+02_rb,0.64963e+02_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.61422e+02_rb,0.53821e+02_rb,0.46411e+02_rb,0.39188e+02_rb,0.35438e+02_rb, &\n        & 0.42839e+02_rb,0.51205e+02_rb,0.59514e+02_rb,0.64157e+02_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.61394e+02_rb,0.53877e+02_rb,0.46504e+02_rb,0.39222e+02_rb,0.35189e+02_rb, &\n        & 0.42365e+02_rb,0.50625e+02_rb,0.58813e+02_rb,0.63464e+02_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.61322e+02_rb,0.53865e+02_rb,0.46511e+02_rb,0.39177e+02_rb,0.34939e+02_rb, &\n        & 0.41926e+02_rb,0.50070e+02_rb,0.58152e+02_rb,0.62761e+02_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.73139e+02_rb,0.64054e+02_rb,0.54971e+02_rb,0.46172e+02_rb,0.42554e+02_rb, &\n        & 0.52369e+02_rb,0.62683e+02_rb,0.72904e+02_rb,0.80226e+02_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.73363e+02_rb,0.64250e+02_rb,0.55203e+02_rb,0.46423e+02_rb,0.42168e+02_rb, &\n        & 0.51668e+02_rb,0.61839e+02_rb,0.71917e+02_rb,0.79110e+02_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.73487e+02_rb,0.64383e+02_rb,0.55429e+02_rb,0.46632e+02_rb,0.41828e+02_rb, &\n        & 0.50986e+02_rb,0.61016e+02_rb,0.70950e+02_rb,0.78048e+02_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.73536e+02_rb,0.64501e+02_rb,0.55558e+02_rb,0.46729e+02_rb,0.41557e+02_rb, &\n        & 0.50314e+02_rb,0.60204e+02_rb,0.70005e+02_rb,0.77009e+02_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.73500e+02_rb,0.64509e+02_rb,0.55582e+02_rb,0.46709e+02_rb,0.41283e+02_rb, &\n        & 0.49695e+02_rb,0.59450e+02_rb,0.69119e+02_rb,0.76024e+02_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.87361e+02_rb,0.76491e+02_rb,0.65621e+02_rb,0.54890e+02_rb,0.50598e+02_rb, &\n        & 0.62297e+02_rb,0.74612e+02_rb,0.86825e+02_rb,0.97550e+02_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.87685e+02_rb,0.76774e+02_rb,0.65885e+02_rb,0.55188e+02_rb,0.50206e+02_rb, &\n        & 0.61585e+02_rb,0.73754e+02_rb,0.85807e+02_rb,0.96409e+02_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.87844e+02_rb,0.76919e+02_rb,0.66106e+02_rb,0.55413e+02_rb,0.49812e+02_rb, &\n        & 0.60785e+02_rb,0.72789e+02_rb,0.84689e+02_rb,0.95141e+02_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.87889e+02_rb,0.77037e+02_rb,0.66247e+02_rb,0.55541e+02_rb,0.49446e+02_rb, &\n        & 0.60010e+02_rb,0.71857e+02_rb,0.83593e+02_rb,0.93898e+02_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.87858e+02_rb,0.77051e+02_rb,0.66285e+02_rb,0.55583e+02_rb,0.49097e+02_rb, &\n        & 0.59241e+02_rb,0.70929e+02_rb,0.82513e+02_rb,0.92686e+02_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.10387e+03_rb,0.90929e+02_rb,0.77989e+02_rb,0.65095e+02_rb,0.60436e+02_rb, &\n        & 0.74039e+02_rb,0.88717e+02_rb,0.10327e+03_rb,0.11725e+03_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.10441e+03_rb,0.91405e+02_rb,0.78408e+02_rb,0.65545e+02_rb,0.59926e+02_rb, &\n        & 0.73070e+02_rb,0.87549e+02_rb,0.10190e+03_rb,0.11570e+03_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.10471e+03_rb,0.91680e+02_rb,0.78722e+02_rb,0.65845e+02_rb,0.59509e+02_rb, &\n        & 0.72264e+02_rb,0.86581e+02_rb,0.10076e+03_rb,0.11440e+03_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.10486e+03_rb,0.91873e+02_rb,0.78926e+02_rb,0.66032e+02_rb,0.59086e+02_rb, &\n        & 0.71381e+02_rb,0.85514e+02_rb,0.99526e+02_rb,0.11299e+03_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.10483e+03_rb,0.91879e+02_rb,0.78952e+02_rb,0.66063e+02_rb,0.58651e+02_rb, &\n        & 0.70432e+02_rb,0.84377e+02_rb,0.98185e+02_rb,0.11148e+03_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.12314e+03_rb,0.10778e+03_rb,0.92429e+02_rb,0.77074e+02_rb,0.72086e+02_rb, &\n        & 0.87688e+02_rb,0.10511e+03_rb,0.12238e+03_rb,0.13959e+03_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.12380e+03_rb,0.10836e+03_rb,0.92922e+02_rb,0.77571e+02_rb,0.71572e+02_rb, &\n        & 0.86586e+02_rb,0.10378e+03_rb,0.12082e+03_rb,0.13782e+03_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.12423e+03_rb,0.10877e+03_rb,0.93351e+02_rb,0.77983e+02_rb,0.71097e+02_rb, &\n        & 0.85507e+02_rb,0.10249e+03_rb,0.11931e+03_rb,0.13609e+03_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.12450e+03_rb,0.10905e+03_rb,0.93631e+02_rb,0.78238e+02_rb,0.70653e+02_rb, &\n        & 0.84488e+02_rb,0.10126e+03_rb,0.11788e+03_rb,0.13445e+03_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.12453e+03_rb,0.10910e+03_rb,0.93684e+02_rb,0.78289e+02_rb,0.70179e+02_rb, &\n        & 0.83403e+02_rb,0.99954e+02_rb,0.11636e+03_rb,0.13271e+03_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.14538e+03_rb,0.12724e+03_rb,0.10910e+03_rb,0.90962e+02_rb,0.85931e+02_rb, &\n        & 0.10354e+03_rb,0.12413e+03_rb,0.14456e+03_rb,0.16524e+03_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.14625e+03_rb,0.12800e+03_rb,0.10975e+03_rb,0.91547e+02_rb,0.85303e+02_rb, &\n        & 0.10223e+03_rb,0.12256e+03_rb,0.14271e+03_rb,0.16313e+03_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.14683e+03_rb,0.12855e+03_rb,0.11028e+03_rb,0.92053e+02_rb,0.84796e+02_rb, &\n        & 0.10095e+03_rb,0.12102e+03_rb,0.14092e+03_rb,0.16108e+03_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.14716e+03_rb,0.12887e+03_rb,0.11059e+03_rb,0.92330e+02_rb,0.84296e+02_rb, &\n        & 0.99657e+02_rb,0.11947e+03_rb,0.13910e+03_rb,0.15900e+03_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.14726e+03_rb,0.12897e+03_rb,0.11069e+03_rb,0.92414e+02_rb,0.83857e+02_rb, &\n        & 0.98384e+02_rb,0.11794e+03_rb,0.13732e+03_rb,0.15696e+03_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.17053e+03_rb,0.14925e+03_rb,0.12796e+03_rb,0.10716e+03_rb,0.10213e+03_rb, &\n        & 0.12188e+03_rb,0.14615e+03_rb,0.17020e+03_rb,0.19480e+03_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.17172e+03_rb,0.15029e+03_rb,0.12885e+03_rb,0.10758e+03_rb,0.10144e+03_rb, &\n        & 0.12029e+03_rb,0.14423e+03_rb,0.16798e+03_rb,0.19224e+03_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.17251e+03_rb,0.15103e+03_rb,0.12955e+03_rb,0.10811e+03_rb,0.10086e+03_rb, &\n        & 0.11869e+03_rb,0.14231e+03_rb,0.16572e+03_rb,0.18967e+03_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.17303e+03_rb,0.15150e+03_rb,0.12997e+03_rb,0.10845e+03_rb,0.10032e+03_rb, &\n        & 0.11701e+03_rb,0.14029e+03_rb,0.16338e+03_rb,0.18697e+03_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.17326e+03_rb,0.15170e+03_rb,0.13015e+03_rb,0.10860e+03_rb,0.99828e+02_rb, &\n        & 0.11540e+03_rb,0.13837e+03_rb,0.16114e+03_rb,0.18440e+03_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.19897e+03_rb,0.17412e+03_rb,0.14927e+03_rb,0.12609e+03_rb,0.12102e+03_rb, &\n        & 0.14307e+03_rb,0.17149e+03_rb,0.19971e+03_rb,0.22868e+03_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.20045e+03_rb,0.17541e+03_rb,0.15039e+03_rb,0.12643e+03_rb,0.12014e+03_rb, &\n        & 0.14095e+03_rb,0.16896e+03_rb,0.19679e+03_rb,0.22532e+03_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.20144e+03_rb,0.17633e+03_rb,0.15122e+03_rb,0.12673e+03_rb,0.11946e+03_rb, &\n        & 0.13885e+03_rb,0.16646e+03_rb,0.19386e+03_rb,0.22200e+03_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.20212e+03_rb,0.17694e+03_rb,0.15175e+03_rb,0.12692e+03_rb,0.11890e+03_rb, &\n        & 0.13670e+03_rb,0.16392e+03_rb,0.19092e+03_rb,0.21864e+03_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.20244e+03_rb,0.17722e+03_rb,0.15200e+03_rb,0.12703e+03_rb,0.11832e+03_rb, &\n        & 0.13474e+03_rb,0.16157e+03_rb,0.18819e+03_rb,0.21551e+03_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.23120e+03_rb,0.20232e+03_rb,0.17344e+03_rb,0.14797e+03_rb,0.14299e+03_rb, &\n        & 0.16694e+03_rb,0.20011e+03_rb,0.23304e+03_rb,0.26690e+03_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.23311e+03_rb,0.20399e+03_rb,0.17488e+03_rb,0.14825e+03_rb,0.14181e+03_rb, &\n        & 0.16424e+03_rb,0.19689e+03_rb,0.22930e+03_rb,0.26259e+03_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.23434e+03_rb,0.20510e+03_rb,0.17587e+03_rb,0.14844e+03_rb,0.14100e+03_rb, &\n        & 0.16150e+03_rb,0.19359e+03_rb,0.22546e+03_rb,0.25821e+03_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.23518e+03_rb,0.20584e+03_rb,0.17651e+03_rb,0.14849e+03_rb,0.14028e+03_rb, &\n        & 0.15873e+03_rb,0.19031e+03_rb,0.22162e+03_rb,0.25383e+03_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.23553e+03_rb,0.20616e+03_rb,0.17678e+03_rb,0.14839e+03_rb,0.13959e+03_rb, &\n        & 0.15626e+03_rb,0.18736e+03_rb,0.21823e+03_rb,0.24993e+03_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.26766e+03_rb,0.23422e+03_rb,0.20086e+03_rb,0.17305e+03_rb,0.16820e+03_rb, &\n        & 0.19275e+03_rb,0.23109e+03_rb,0.26916e+03_rb,0.30826e+03_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.26991e+03_rb,0.23619e+03_rb,0.20254e+03_rb,0.17334e+03_rb,0.16673e+03_rb, &\n        & 0.18936e+03_rb,0.22702e+03_rb,0.26442e+03_rb,0.30283e+03_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.27155e+03_rb,0.23766e+03_rb,0.20381e+03_rb,0.17344e+03_rb,0.16570e+03_rb, &\n        & 0.18588e+03_rb,0.22280e+03_rb,0.25950e+03_rb,0.29719e+03_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.27254e+03_rb,0.23853e+03_rb,0.20456e+03_rb,0.17332e+03_rb,0.16480e+03_rb, &\n        & 0.18267e+03_rb,0.21887e+03_rb,0.25495e+03_rb,0.29197e+03_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.27304e+03_rb,0.23896e+03_rb,0.20491e+03_rb,0.17301e+03_rb,0.16390e+03_rb, &\n        & 0.17979e+03_rb,0.21534e+03_rb,0.25082e+03_rb,0.28725e+03_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.31010e+03_rb,0.27147e+03_rb,0.23291e+03_rb,0.20181e+03_rb,0.19592e+03_rb, &\n        & 0.21861e+03_rb,0.26152e+03_rb,0.30466e+03_rb,0.34889e+03_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.31237e+03_rb,0.27343e+03_rb,0.23463e+03_rb,0.20183e+03_rb,0.19444e+03_rb, &\n        & 0.21467e+03_rb,0.25634e+03_rb,0.29864e+03_rb,0.34194e+03_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.31396e+03_rb,0.27478e+03_rb,0.23578e+03_rb,0.20169e+03_rb,0.19320e+03_rb, &\n        & 0.21082e+03_rb,0.25169e+03_rb,0.29321e+03_rb,0.33575e+03_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.31491e+03_rb,0.27559e+03_rb,0.23646e+03_rb,0.20134e+03_rb,0.19199e+03_rb, &\n        & 0.20744e+03_rb,0.24738e+03_rb,0.28820e+03_rb,0.33002e+03_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.31516e+03_rb,0.27581e+03_rb,0.23662e+03_rb,0.20063e+03_rb,0.19065e+03_rb, &\n        & 0.20428e+03_rb,0.24308e+03_rb,0.28319e+03_rb,0.32426e+03_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.35746e+03_rb,0.31300e+03_rb,0.26858e+03_rb,0.23433e+03_rb,0.22701e+03_rb, &\n        & 0.24649e+03_rb,0.29230e+03_rb,0.34058e+03_rb,0.38993e+03_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.35965e+03_rb,0.31492e+03_rb,0.27026e+03_rb,0.23392e+03_rb,0.22536e+03_rb, &\n        & 0.24218e+03_rb,0.28684e+03_rb,0.33421e+03_rb,0.38264e+03_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.36096e+03_rb,0.31606e+03_rb,0.27127e+03_rb,0.23331e+03_rb,0.22367e+03_rb, &\n        & 0.23821e+03_rb,0.28173e+03_rb,0.32828e+03_rb,0.37584e+03_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.36159e+03_rb,0.31657e+03_rb,0.27171e+03_rb,0.23251e+03_rb,0.22182e+03_rb, &\n        & 0.23456e+03_rb,0.27669e+03_rb,0.32238e+03_rb,0.36910e+03_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.36141e+03_rb,0.31636e+03_rb,0.27153e+03_rb,0.23134e+03_rb,0.21976e+03_rb, &\n        & 0.23095e+03_rb,0.27160e+03_rb,0.31644e+03_rb,0.36227e+03_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.40931e+03_rb,0.35842e+03_rb,0.30758e+03_rb,0.27041e+03_rb,0.26133e+03_rb, &\n        & 0.27679e+03_rb,0.32393e+03_rb,0.37751e+03_rb,0.43213e+03_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.41124e+03_rb,0.36013e+03_rb,0.30908e+03_rb,0.26935e+03_rb,0.25923e+03_rb, &\n        & 0.27218e+03_rb,0.31806e+03_rb,0.37065e+03_rb,0.42432e+03_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.41214e+03_rb,0.36093e+03_rb,0.30979e+03_rb,0.26811e+03_rb,0.25684e+03_rb, &\n        & 0.26794e+03_rb,0.31214e+03_rb,0.36375e+03_rb,0.41639e+03_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.41225e+03_rb,0.36102e+03_rb,0.30989e+03_rb,0.26655e+03_rb,0.25418e+03_rb, &\n        & 0.26378e+03_rb,0.30615e+03_rb,0.35676e+03_rb,0.40836e+03_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.41130e+03_rb,0.36017e+03_rb,0.30917e+03_rb,0.26471e+03_rb,0.25127e+03_rb, &\n        & 0.25962e+03_rb,0.30054e+03_rb,0.35018e+03_rb,0.40087e+03_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.66783e+02_rb,0.58494e+02_rb,0.50207e+02_rb,0.41922e+02_rb,0.39207e+02_rb, &\n        & 0.48837e+02_rb,0.58441e+02_rb,0.67973e+02_rb,0.73684e+02_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.66987e+02_rb,0.58663e+02_rb,0.50340e+02_rb,0.42083e+02_rb,0.39992e+02_rb, &\n        & 0.49756e+02_rb,0.59507e+02_rb,0.69167e+02_rb,0.75232e+02_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.67128e+02_rb,0.58776e+02_rb,0.50426e+02_rb,0.42412e+02_rb,0.40738e+02_rb, &\n        & 0.50635e+02_rb,0.60514e+02_rb,0.70320e+02_rb,0.76487e+02_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.67159e+02_rb,0.58797e+02_rb,0.50435e+02_rb,0.42709e+02_rb,0.41336e+02_rb, &\n        & 0.51345e+02_rb,0.61329e+02_rb,0.71239e+02_rb,0.77474e+02_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.67048e+02_rb,0.58698e+02_rb,0.50349e+02_rb,0.42916e+02_rb,0.41806e+02_rb, &\n        & 0.51893e+02_rb,0.61955e+02_rb,0.71939e+02_rb,0.78212e+02_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.80817e+02_rb,0.70771e+02_rb,0.60724e+02_rb,0.50680e+02_rb,0.46121e+02_rb, &\n        & 0.57561e+02_rb,0.68978e+02_rb,0.80276e+02_rb,0.88125e+02_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.81120e+02_rb,0.71031e+02_rb,0.60942e+02_rb,0.50856e+02_rb,0.46531e+02_rb, &\n        & 0.58009e+02_rb,0.69466e+02_rb,0.80811e+02_rb,0.88902e+02_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.81295e+02_rb,0.71179e+02_rb,0.61065e+02_rb,0.50952e+02_rb,0.47046e+02_rb, &\n        & 0.58603e+02_rb,0.70144e+02_rb,0.81568e+02_rb,0.89842e+02_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.81302e+02_rb,0.71181e+02_rb,0.61061e+02_rb,0.50998e+02_rb,0.47535e+02_rb, &\n        & 0.59172e+02_rb,0.70788e+02_rb,0.82285e+02_rb,0.90723e+02_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.81254e+02_rb,0.71123e+02_rb,0.60992e+02_rb,0.51150e+02_rb,0.47959e+02_rb, &\n        & 0.59657e+02_rb,0.71327e+02_rb,0.82908e+02_rb,0.91460e+02_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.97635e+02_rb,0.85483e+02_rb,0.73330e+02_rb,0.61179e+02_rb,0.56207e+02_rb, &\n        & 0.70215e+02_rb,0.84188e+02_rb,0.98014e+02_rb,0.10988e+03_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.98163e+02_rb,0.85943e+02_rb,0.73724e+02_rb,0.61504e+02_rb,0.55633e+02_rb, &\n        & 0.69472e+02_rb,0.83276e+02_rb,0.96935e+02_rb,0.10869e+03_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.98472e+02_rb,0.86211e+02_rb,0.73951e+02_rb,0.61693e+02_rb,0.55697e+02_rb, &\n        & 0.69495e+02_rb,0.83260e+02_rb,0.96885e+02_rb,0.10871e+03_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.98535e+02_rb,0.86265e+02_rb,0.73995e+02_rb,0.61728e+02_rb,0.55937e+02_rb, &\n        & 0.69749e+02_rb,0.83530e+02_rb,0.97171e+02_rb,0.10906e+03_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.98433e+02_rb,0.86165e+02_rb,0.73899e+02_rb,0.61635e+02_rb,0.56204e+02_rb, &\n        & 0.70040e+02_rb,0.83840e+02_rb,0.97500e+02_rb,0.10946e+03_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.11801e+03_rb,0.10331e+03_rb,0.88600e+02_rb,0.73894e+02_rb,0.68841e+02_rb, &\n        & 0.86008e+02_rb,0.10313e+03_rb,0.12007e+03_rb,0.13623e+03_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.11855e+03_rb,0.10378e+03_rb,0.89007e+02_rb,0.74235e+02_rb,0.68009e+02_rb, &\n        & 0.84957e+02_rb,0.10186e+03_rb,0.11859e+03_rb,0.13456e+03_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.11911e+03_rb,0.10427e+03_rb,0.89430e+02_rb,0.74590e+02_rb,0.67220e+02_rb, &\n        & 0.83955e+02_rb,0.10065e+03_rb,0.11716e+03_rb,0.13292e+03_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.11932e+03_rb,0.10446e+03_rb,0.89591e+02_rb,0.74725e+02_rb,0.66996e+02_rb, &\n        & 0.83620e+02_rb,0.10020e+03_rb,0.11661e+03_rb,0.13231e+03_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.11933e+03_rb,0.10445e+03_rb,0.89579e+02_rb,0.74708e+02_rb,0.67016e+02_rb, &\n        & 0.83607e+02_rb,0.10016e+03_rb,0.11655e+03_rb,0.13223e+03_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.14253e+03_rb,0.12475e+03_rb,0.10698e+03_rb,0.89200e+02_rb,0.84755e+02_rb, &\n        & 0.10590e+03_rb,0.12699e+03_rb,0.14785e+03_rb,0.16865e+03_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.14325e+03_rb,0.12539e+03_rb,0.10752e+03_rb,0.89655e+02_rb,0.83145e+02_rb, &\n        & 0.10388e+03_rb,0.12456e+03_rb,0.14501e+03_rb,0.16542e+03_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.14383e+03_rb,0.12589e+03_rb,0.10795e+03_rb,0.90019e+02_rb,0.82092e+02_rb, &\n        & 0.10255e+03_rb,0.12296e+03_rb,0.14315e+03_rb,0.16327e+03_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.14418e+03_rb,0.12620e+03_rb,0.10822e+03_rb,0.90248e+02_rb,0.81037e+02_rb, &\n        & 0.10121e+03_rb,0.12133e+03_rb,0.14124e+03_rb,0.16108e+03_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.14437e+03_rb,0.12637e+03_rb,0.10836e+03_rb,0.90358e+02_rb,0.80556e+02_rb, &\n        & 0.10057e+03_rb,0.12052e+03_rb,0.14027e+03_rb,0.15994e+03_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.17174e+03_rb,0.15031e+03_rb,0.12887e+03_rb,0.10744e+03_rb,0.10459e+03_rb, &\n        & 0.13069e+03_rb,0.15672e+03_rb,0.18250e+03_rb,0.20866e+03_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.17281e+03_rb,0.15124e+03_rb,0.12968e+03_rb,0.10811e+03_rb,0.10205e+03_rb, &\n        & 0.12751e+03_rb,0.15290e+03_rb,0.17802e+03_rb,0.20356e+03_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.17366e+03_rb,0.15199e+03_rb,0.13032e+03_rb,0.10865e+03_rb,0.10020e+03_rb, &\n        & 0.12519e+03_rb,0.15010e+03_rb,0.17475e+03_rb,0.19982e+03_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.17410e+03_rb,0.15237e+03_rb,0.13065e+03_rb,0.10893e+03_rb,0.98757e+02_rb, &\n        & 0.12337e+03_rb,0.14792e+03_rb,0.17221e+03_rb,0.19689e+03_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.17426e+03_rb,0.15251e+03_rb,0.13077e+03_rb,0.10903e+03_rb,0.97456e+02_rb, &\n        & 0.12171e+03_rb,0.14591e+03_rb,0.16984e+03_rb,0.19419e+03_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.20639e+03_rb,0.18062e+03_rb,0.15485e+03_rb,0.12907e+03_rb,0.12889e+03_rb, &\n        & 0.16105e+03_rb,0.19314e+03_rb,0.22488e+03_rb,0.25751e+03_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.20793e+03_rb,0.18197e+03_rb,0.15600e+03_rb,0.13004e+03_rb,0.12536e+03_rb, &\n        & 0.15664e+03_rb,0.18784e+03_rb,0.21870e+03_rb,0.25043e+03_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.20918e+03_rb,0.18307e+03_rb,0.15695e+03_rb,0.13084e+03_rb,0.12258e+03_rb, &\n        & 0.15317e+03_rb,0.18368e+03_rb,0.21386e+03_rb,0.24487e+03_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.20994e+03_rb,0.18373e+03_rb,0.15753e+03_rb,0.13132e+03_rb,0.12024e+03_rb, &\n        & 0.15023e+03_rb,0.18014e+03_rb,0.20974e+03_rb,0.24016e+03_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.21017e+03_rb,0.18393e+03_rb,0.15770e+03_rb,0.13147e+03_rb,0.11817e+03_rb, &\n        & 0.14763e+03_rb,0.17700e+03_rb,0.20610e+03_rb,0.23592e+03_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.24808e+03_rb,0.21709e+03_rb,0.18610e+03_rb,0.15511e+03_rb,0.15824e+03_rb, &\n        & 0.19773e+03_rb,0.23715e+03_rb,0.27617e+03_rb,0.31647e+03_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.24976e+03_rb,0.21856e+03_rb,0.18737e+03_rb,0.15617e+03_rb,0.15364e+03_rb, &\n        & 0.19198e+03_rb,0.23024e+03_rb,0.26808e+03_rb,0.30723e+03_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.25153e+03_rb,0.22011e+03_rb,0.18870e+03_rb,0.15729e+03_rb,0.14986e+03_rb, &\n        & 0.18726e+03_rb,0.22456e+03_rb,0.26146e+03_rb,0.29964e+03_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.25266e+03_rb,0.22111e+03_rb,0.18956e+03_rb,0.15801e+03_rb,0.14651e+03_rb, &\n        & 0.18308e+03_rb,0.21955e+03_rb,0.25564e+03_rb,0.29297e+03_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.25306e+03_rb,0.22146e+03_rb,0.18986e+03_rb,0.15826e+03_rb,0.14346e+03_rb, &\n        & 0.17924e+03_rb,0.21492e+03_rb,0.25024e+03_rb,0.28677e+03_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.29758e+03_rb,0.26040e+03_rb,0.22322e+03_rb,0.18603e+03_rb,0.19348e+03_rb, &\n        & 0.24177e+03_rb,0.28996e+03_rb,0.33765e+03_rb,0.38707e+03_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.29980e+03_rb,0.26234e+03_rb,0.22489e+03_rb,0.18744e+03_rb,0.18763e+03_rb, &\n        & 0.23446e+03_rb,0.28116e+03_rb,0.32742e+03_rb,0.37536e+03_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.30182e+03_rb,0.26412e+03_rb,0.22641e+03_rb,0.18871e+03_rb,0.18264e+03_rb, &\n        & 0.22823e+03_rb,0.27370e+03_rb,0.31874e+03_rb,0.36539e+03_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.30335e+03_rb,0.26546e+03_rb,0.22757e+03_rb,0.18968e+03_rb,0.17814e+03_rb, &\n        & 0.22260e+03_rb,0.26695e+03_rb,0.31086e+03_rb,0.35637e+03_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.30399e+03_rb,0.26602e+03_rb,0.22805e+03_rb,0.19008e+03_rb,0.17393e+03_rb, &\n        & 0.21734e+03_rb,0.26062e+03_rb,0.30347e+03_rb,0.34789e+03_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.35657e+03_rb,0.31201e+03_rb,0.26745e+03_rb,0.22289e+03_rb,0.23471e+03_rb, &\n        & 0.29329e+03_rb,0.35175e+03_rb,0.40960e+03_rb,0.46960e+03_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.35941e+03_rb,0.31450e+03_rb,0.26959e+03_rb,0.22468e+03_rb,0.22747e+03_rb, &\n        & 0.28425e+03_rb,0.34089e+03_rb,0.39700e+03_rb,0.45514e+03_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.36173e+03_rb,0.31654e+03_rb,0.27134e+03_rb,0.22614e+03_rb,0.22110e+03_rb, &\n        & 0.27628e+03_rb,0.33132e+03_rb,0.38584e+03_rb,0.44234e+03_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.36337e+03_rb,0.31797e+03_rb,0.27257e+03_rb,0.22717e+03_rb,0.21518e+03_rb, &\n        & 0.26889e+03_rb,0.32246e+03_rb,0.37553e+03_rb,0.43052e+03_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.36404e+03_rb,0.31855e+03_rb,0.27307e+03_rb,0.22759e+03_rb,0.20959e+03_rb, &\n        & 0.26189e+03_rb,0.31406e+03_rb,0.36572e+03_rb,0.41925e+03_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.42778e+03_rb,0.37432e+03_rb,0.32086e+03_rb,0.26740e+03_rb,0.27872e+03_rb, &\n        & 0.34830e+03_rb,0.41771e+03_rb,0.48646e+03_rb,0.55765e+03_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.43110e+03_rb,0.37723e+03_rb,0.32336e+03_rb,0.26948e+03_rb,0.27023e+03_rb, &\n        & 0.33769e+03_rb,0.40499e+03_rb,0.47168e+03_rb,0.54065e+03_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.43351e+03_rb,0.37933e+03_rb,0.32516e+03_rb,0.27099e+03_rb,0.26235e+03_rb, &\n        & 0.32784e+03_rb,0.39315e+03_rb,0.45790e+03_rb,0.52488e+03_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.43444e+03_rb,0.38015e+03_rb,0.32587e+03_rb,0.27158e+03_rb,0.25502e+03_rb, &\n        & 0.31866e+03_rb,0.38217e+03_rb,0.44507e+03_rb,0.51019e+03_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.43455e+03_rb,0.38025e+03_rb,0.32595e+03_rb,0.27165e+03_rb,0.24835e+03_rb, &\n        & 0.31008e+03_rb,0.37185e+03_rb,0.43305e+03_rb,0.49635e+03_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.51115e+03_rb,0.44727e+03_rb,0.38338e+03_rb,0.31950e+03_rb,0.32868e+03_rb, &\n        & 0.41075e+03_rb,0.49264e+03_rb,0.57375e+03_rb,0.65765e+03_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.51481e+03_rb,0.45047e+03_rb,0.38614e+03_rb,0.32180e+03_rb,0.31846e+03_rb, &\n        & 0.39795e+03_rb,0.47726e+03_rb,0.55589e+03_rb,0.63715e+03_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.51667e+03_rb,0.45210e+03_rb,0.38753e+03_rb,0.32296e+03_rb,0.30906e+03_rb, &\n        & 0.38614e+03_rb,0.46310e+03_rb,0.53942e+03_rb,0.61825e+03_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.51678e+03_rb,0.45219e+03_rb,0.38761e+03_rb,0.32303e+03_rb,0.30046e+03_rb, &\n        & 0.37494e+03_rb,0.44968e+03_rb,0.52372e+03_rb,0.60018e+03_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.51600e+03_rb,0.45151e+03_rb,0.38702e+03_rb,0.32254e+03_rb,0.29255e+03_rb, &\n        & 0.36403e+03_rb,0.43655e+03_rb,0.50852e+03_rb,0.58277e+03_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.60779e+03_rb,0.53183e+03_rb,0.45587e+03_rb,0.37990e+03_rb,0.38498e+03_rb, &\n        & 0.48109e+03_rb,0.57702e+03_rb,0.67207e+03_rb,0.77032e+03_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.61089e+03_rb,0.53454e+03_rb,0.45819e+03_rb,0.38184e+03_rb,0.37288e+03_rb, &\n        & 0.46566e+03_rb,0.55850e+03_rb,0.65053e+03_rb,0.74557e+03_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.61168e+03_rb,0.53523e+03_rb,0.45878e+03_rb,0.38233e+03_rb,0.36190e+03_rb, &\n        & 0.45112e+03_rb,0.54103e+03_rb,0.63023e+03_rb,0.72223e+03_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.61073e+03_rb,0.53440e+03_rb,0.45807e+03_rb,0.38174e+03_rb,0.35168e+03_rb, &\n        & 0.43693e+03_rb,0.52405e+03_rb,0.61044e+03_rb,0.69951e+03_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.60852e+03_rb,0.53247e+03_rb,0.45641e+03_rb,0.38036e+03_rb,0.34198e+03_rb, &\n        & 0.42302e+03_rb,0.50734e+03_rb,0.59097e+03_rb,0.67714e+03_rb /)\n\n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:, 1,13, 1) = (/ &\n        & 0.10554e-06_rb,0.38596e-04_rb,0.65402e-04_rb,0.88540e-04_rb,0.19601e-03_rb /)\n      kbo(:, 2,13, 1) = (/ &\n        & 0.10479e-06_rb,0.43672e-04_rb,0.74889e-04_rb,0.10118e-03_rb,0.22146e-03_rb /)\n      kbo(:, 3,13, 1) = (/ &\n        & 0.10429e-06_rb,0.49418e-04_rb,0.85429e-04_rb,0.11557e-03_rb,0.24448e-03_rb /)\n      kbo(:, 4,13, 1) = (/ &\n        & 0.10232e-06_rb,0.55802e-04_rb,0.96459e-04_rb,0.13167e-03_rb,0.27001e-03_rb /)\n      kbo(:, 5,13, 1) = (/ &\n        & 0.99013e-07_rb,0.62996e-04_rb,0.10900e-03_rb,0.14834e-03_rb,0.29917e-03_rb /)\n      kbo(:, 1,14, 1) = (/ &\n        & 0.85136e-07_rb,0.31943e-04_rb,0.54402e-04_rb,0.73887e-04_rb,0.15895e-03_rb /)\n      kbo(:, 2,14, 1) = (/ &\n        & 0.84597e-07_rb,0.36196e-04_rb,0.62429e-04_rb,0.84479e-04_rb,0.17749e-03_rb /)\n      kbo(:, 3,14, 1) = (/ &\n        & 0.83629e-07_rb,0.40982e-04_rb,0.71126e-04_rb,0.96573e-04_rb,0.19740e-03_rb /)\n      kbo(:, 4,14, 1) = (/ &\n        & 0.82310e-07_rb,0.46344e-04_rb,0.80458e-04_rb,0.10984e-03_rb,0.21847e-03_rb /)\n      kbo(:, 5,14, 1) = (/ &\n        & 0.78709e-07_rb,0.52252e-04_rb,0.90989e-04_rb,0.12394e-03_rb,0.24281e-03_rb /)\n      kbo(:, 1,15, 1) = (/ &\n        & 0.68497e-07_rb,0.26393e-04_rb,0.45164e-04_rb,0.61570e-04_rb,0.12493e-03_rb /)\n      kbo(:, 2,15, 1) = (/ &\n        & 0.68062e-07_rb,0.29936e-04_rb,0.51919e-04_rb,0.70387e-04_rb,0.13953e-03_rb /)\n      kbo(:, 3,15, 1) = (/ &\n        & 0.66766e-07_rb,0.33863e-04_rb,0.59056e-04_rb,0.80693e-04_rb,0.15653e-03_rb /)\n      kbo(:, 4,15, 1) = (/ &\n        & 0.65636e-07_rb,0.38294e-04_rb,0.66885e-04_rb,0.91555e-04_rb,0.17510e-03_rb /)\n      kbo(:, 5,15, 1) = (/ &\n        & 0.62711e-07_rb,0.43189e-04_rb,0.75756e-04_rb,0.10355e-03_rb,0.19439e-03_rb /)\n      kbo(:, 1,16, 1) = (/ &\n        & 0.55083e-07_rb,0.21761e-04_rb,0.37484e-04_rb,0.51301e-04_rb,0.97875e-04_rb /)\n      kbo(:, 2,16, 1) = (/ &\n        & 0.54095e-07_rb,0.24670e-04_rb,0.43084e-04_rb,0.58639e-04_rb,0.10996e-03_rb /)\n      kbo(:, 3,16, 1) = (/ &\n        & 0.53340e-07_rb,0.27925e-04_rb,0.48976e-04_rb,0.67234e-04_rb,0.12415e-03_rb /)\n      kbo(:, 4,16, 1) = (/ &\n        & 0.51412e-07_rb,0.31588e-04_rb,0.55576e-04_rb,0.76352e-04_rb,0.13939e-03_rb /)\n      kbo(:, 5,16, 1) = (/ &\n        & 0.49341e-07_rb,0.35677e-04_rb,0.62937e-04_rb,0.86363e-04_rb,0.15543e-03_rb /)\n      kbo(:, 1,17, 1) = (/ &\n        & 0.44022e-07_rb,0.17963e-04_rb,0.31102e-04_rb,0.42604e-04_rb,0.78290e-04_rb /)\n      kbo(:, 2,17, 1) = (/ &\n        & 0.43167e-07_rb,0.20382e-04_rb,0.35754e-04_rb,0.48875e-04_rb,0.87941e-04_rb /)\n      kbo(:, 3,17, 1) = (/ &\n        & 0.42210e-07_rb,0.23091e-04_rb,0.40674e-04_rb,0.56059e-04_rb,0.99257e-04_rb /)\n      kbo(:, 4,17, 1) = (/ &\n        & 0.40402e-07_rb,0.26125e-04_rb,0.46162e-04_rb,0.63586e-04_rb,0.11166e-03_rb /)\n      kbo(:, 5,17, 1) = (/ &\n        & 0.38532e-07_rb,0.29494e-04_rb,0.52327e-04_rb,0.71960e-04_rb,0.12480e-03_rb /)\n      kbo(:, 1,18, 1) = (/ &\n        & 0.34937e-07_rb,0.14903e-04_rb,0.25868e-04_rb,0.35503e-04_rb,0.63368e-04_rb /)\n      kbo(:, 2,18, 1) = (/ &\n        & 0.34308e-07_rb,0.16923e-04_rb,0.29781e-04_rb,0.40789e-04_rb,0.71115e-04_rb /)\n      kbo(:, 3,18, 1) = (/ &\n        & 0.32995e-07_rb,0.19171e-04_rb,0.33872e-04_rb,0.46810e-04_rb,0.80302e-04_rb /)\n      kbo(:, 4,18, 1) = (/ &\n        & 0.31654e-07_rb,0.21679e-04_rb,0.38468e-04_rb,0.53048e-04_rb,0.90431e-04_rb /)\n      kbo(:, 5,18, 1) = (/ &\n        & 0.30282e-07_rb,0.24491e-04_rb,0.43596e-04_rb,0.60078e-04_rb,0.10133e-03_rb /)\n      kbo(:, 1,19, 1) = (/ &\n        & 0.27971e-07_rb,0.12385e-04_rb,0.21549e-04_rb,0.29618e-04_rb,0.51732e-04_rb /)\n      kbo(:, 2,19, 1) = (/ &\n        & 0.27128e-07_rb,0.14042e-04_rb,0.24826e-04_rb,0.34047e-04_rb,0.58064e-04_rb /)\n      kbo(:, 3,19, 1) = (/ &\n        & 0.26018e-07_rb,0.15920e-04_rb,0.28221e-04_rb,0.39072e-04_rb,0.65495e-04_rb /)\n      kbo(:, 4,19, 1) = (/ &\n        & 0.24717e-07_rb,0.18017e-04_rb,0.32056e-04_rb,0.44285e-04_rb,0.73859e-04_rb /)\n      kbo(:, 5,19, 1) = (/ &\n        & 0.23859e-07_rb,0.20360e-04_rb,0.36341e-04_rb,0.50170e-04_rb,0.82944e-04_rb /)\n      kbo(:, 1,20, 1) = (/ &\n        & 0.22529e-07_rb,0.10336e-04_rb,0.17999e-04_rb,0.24776e-04_rb,0.42602e-04_rb /)\n      kbo(:, 2,20, 1) = (/ &\n        & 0.21733e-07_rb,0.11685e-04_rb,0.20769e-04_rb,0.28503e-04_rb,0.47833e-04_rb /)\n      kbo(:, 3,20, 1) = (/ &\n        & 0.20791e-07_rb,0.13280e-04_rb,0.23571e-04_rb,0.32654e-04_rb,0.53995e-04_rb /)\n      kbo(:, 4,20, 1) = (/ &\n        & 0.19663e-07_rb,0.15029e-04_rb,0.26788e-04_rb,0.37066e-04_rb,0.60944e-04_rb /)\n      kbo(:, 5,20, 1) = (/ &\n        & 0.19169e-07_rb,0.16975e-04_rb,0.30353e-04_rb,0.41996e-04_rb,0.68344e-04_rb /)\n      kbo(:, 1,21, 1) = (/ &\n        & 0.18148e-07_rb,0.86039e-05_rb,0.15041e-04_rb,0.20717e-04_rb,0.35143e-04_rb /)\n      kbo(:, 2,21, 1) = (/ &\n        & 0.17465e-07_rb,0.97287e-05_rb,0.17348e-04_rb,0.23862e-04_rb,0.39508e-04_rb /)\n      kbo(:, 3,21, 1) = (/ &\n        & 0.16537e-07_rb,0.11073e-04_rb,0.19687e-04_rb,0.27271e-04_rb,0.44652e-04_rb /)\n      kbo(:, 4,21, 1) = (/ &\n        & 0.15860e-07_rb,0.12526e-04_rb,0.22388e-04_rb,0.31015e-04_rb,0.50269e-04_rb /)\n      kbo(:, 5,21, 1) = (/ &\n        & 0.15452e-07_rb,0.14158e-04_rb,0.25339e-04_rb,0.35141e-04_rb,0.56327e-04_rb /)\n      kbo(:, 1,22, 1) = (/ &\n        & 0.14542e-07_rb,0.71807e-05_rb,0.12682e-04_rb,0.17473e-04_rb,0.29179e-04_rb /)\n      kbo(:, 2,22, 1) = (/ &\n        & 0.13967e-07_rb,0.81574e-05_rb,0.14550e-04_rb,0.20147e-04_rb,0.32795e-04_rb /)\n      kbo(:, 3,22, 1) = (/ &\n        & 0.13241e-07_rb,0.92839e-05_rb,0.16547e-04_rb,0.22971e-04_rb,0.37036e-04_rb /)\n      kbo(:, 4,22, 1) = (/ &\n        & 0.12746e-07_rb,0.10522e-04_rb,0.18840e-04_rb,0.26114e-04_rb,0.41617e-04_rb /)\n      kbo(:, 5,22, 1) = (/ &\n        & 0.12426e-07_rb,0.11886e-04_rb,0.21313e-04_rb,0.29604e-04_rb,0.46709e-04_rb /)\n      kbo(:, 1,23, 1) = (/ &\n        & 0.11724e-07_rb,0.60196e-05_rb,0.10703e-04_rb,0.14753e-04_rb,0.24143e-04_rb /)\n      kbo(:, 2,23, 1) = (/ &\n        & 0.11124e-07_rb,0.68499e-05_rb,0.12233e-04_rb,0.17009e-04_rb,0.27147e-04_rb /)\n      kbo(:, 3,23, 1) = (/ &\n        & 0.10552e-07_rb,0.77897e-05_rb,0.13927e-04_rb,0.19362e-04_rb,0.30661e-04_rb /)\n      kbo(:, 4,23, 1) = (/ &\n        & 0.10213e-07_rb,0.88398e-05_rb,0.15850e-04_rb,0.22024e-04_rb,0.34519e-04_rb /)\n      kbo(:, 5,23, 1) = (/ &\n        & 0.99627e-08_rb,0.99755e-05_rb,0.17919e-04_rb,0.24944e-04_rb,0.38730e-04_rb /)\n      kbo(:, 1,24, 1) = (/ &\n        & 0.93835e-08_rb,0.50505e-05_rb,0.90298e-05_rb,0.12450e-04_rb,0.19940e-04_rb /)\n      kbo(:, 2,24, 1) = (/ &\n        & 0.88722e-08_rb,0.57494e-05_rb,0.10287e-04_rb,0.14351e-04_rb,0.22450e-04_rb /)\n      kbo(:, 3,24, 1) = (/ &\n        & 0.84719e-08_rb,0.65374e-05_rb,0.11727e-04_rb,0.16329e-04_rb,0.25378e-04_rb /)\n      kbo(:, 4,24, 1) = (/ &\n        & 0.81924e-08_rb,0.74186e-05_rb,0.13334e-04_rb,0.18567e-04_rb,0.28560e-04_rb /)\n      kbo(:, 5,24, 1) = (/ &\n        & 0.79194e-08_rb,0.83719e-05_rb,0.15056e-04_rb,0.21003e-04_rb,0.31990e-04_rb /)\n      kbo(:, 1,25, 1) = (/ &\n        & 0.74535e-08_rb,0.42437e-05_rb,0.76220e-05_rb,0.10523e-04_rb,0.16531e-04_rb /)\n      kbo(:, 2,25, 1) = (/ &\n        & 0.70516e-08_rb,0.48300e-05_rb,0.86667e-05_rb,0.12089e-04_rb,0.18616e-04_rb /)\n      kbo(:, 3,25, 1) = (/ &\n        & 0.67746e-08_rb,0.54941e-05_rb,0.98927e-05_rb,0.13790e-04_rb,0.21024e-04_rb /)\n      kbo(:, 4,25, 1) = (/ &\n        & 0.65375e-08_rb,0.62357e-05_rb,0.11233e-04_rb,0.15662e-04_rb,0.23642e-04_rb /)\n      kbo(:, 5,25, 1) = (/ &\n        & 0.63001e-08_rb,0.70282e-05_rb,0.12669e-04_rb,0.17695e-04_rb,0.26478e-04_rb /)\n      kbo(:, 1,26, 1) = (/ &\n        & 0.59520e-08_rb,0.35739e-05_rb,0.64350e-05_rb,0.89330e-05_rb,0.13754e-04_rb /)\n      kbo(:, 2,26, 1) = (/ &\n        & 0.56644e-08_rb,0.40797e-05_rb,0.73291e-05_rb,0.10228e-04_rb,0.15489e-04_rb /)\n      kbo(:, 3,26, 1) = (/ &\n        & 0.54229e-08_rb,0.46366e-05_rb,0.83664e-05_rb,0.11659e-04_rb,0.17486e-04_rb /)\n      kbo(:, 4,26, 1) = (/ &\n        & 0.52155e-08_rb,0.52546e-05_rb,0.94829e-05_rb,0.13246e-04_rb,0.19643e-04_rb /)\n      kbo(:, 5,26, 1) = (/ &\n        & 0.50026e-08_rb,0.59134e-05_rb,0.10676e-04_rb,0.14933e-04_rb,0.21979e-04_rb /)\n      kbo(:, 1,27, 1) = (/ &\n        & 0.47347e-08_rb,0.30117e-05_rb,0.54223e-05_rb,0.75810e-05_rb,0.11424e-04_rb /)\n      kbo(:, 2,27, 1) = (/ &\n        & 0.45215e-08_rb,0.34421e-05_rb,0.61959e-05_rb,0.86619e-05_rb,0.12884e-04_rb /)\n      kbo(:, 3,27, 1) = (/ &\n        & 0.43334e-08_rb,0.39143e-05_rb,0.70702e-05_rb,0.98761e-05_rb,0.14543e-04_rb /)\n      kbo(:, 4,27, 1) = (/ &\n        & 0.41350e-08_rb,0.44275e-05_rb,0.80005e-05_rb,0.11195e-04_rb,0.16319e-04_rb /)\n      kbo(:, 5,27, 1) = (/ &\n        & 0.39653e-08_rb,0.49769e-05_rb,0.89931e-05_rb,0.12598e-04_rb,0.18160e-04_rb /)\n      kbo(:, 1,28, 1) = (/ &\n        & 0.37948e-08_rb,0.25415e-05_rb,0.45819e-05_rb,0.64336e-05_rb,0.94956e-05_rb /)\n      kbo(:, 2,28, 1) = (/ &\n        & 0.36083e-08_rb,0.29038e-05_rb,0.52426e-05_rb,0.73400e-05_rb,0.10719e-04_rb /)\n      kbo(:, 3,28, 1) = (/ &\n        & 0.34418e-08_rb,0.33017e-05_rb,0.59733e-05_rb,0.83575e-05_rb,0.12066e-04_rb /)\n      kbo(:, 4,28, 1) = (/ &\n        & 0.32636e-08_rb,0.37297e-05_rb,0.67493e-05_rb,0.94558e-05_rb,0.13468e-04_rb /)\n      kbo(:, 5,28, 1) = (/ &\n        & 0.31340e-08_rb,0.41873e-05_rb,0.75759e-05_rb,0.10620e-04_rb,0.14953e-04_rb /)\n      kbo(:, 1,29, 1) = (/ &\n        & 0.30121e-08_rb,0.21536e-05_rb,0.38841e-05_rb,0.54491e-05_rb,0.79090e-05_rb /)\n      kbo(:, 2,29, 1) = (/ &\n        & 0.28775e-08_rb,0.24557e-05_rb,0.44467e-05_rb,0.62247e-05_rb,0.89148e-05_rb /)\n      kbo(:, 3,29, 1) = (/ &\n        & 0.27196e-08_rb,0.27900e-05_rb,0.50543e-05_rb,0.70782e-05_rb,0.99943e-05_rb /)\n      kbo(:, 4,29, 1) = (/ &\n        & 0.25798e-08_rb,0.31473e-05_rb,0.57011e-05_rb,0.79936e-05_rb,0.11135e-04_rb /)\n      kbo(:, 5,29, 1) = (/ &\n        & 0.24785e-08_rb,0.35287e-05_rb,0.63894e-05_rb,0.89624e-05_rb,0.12357e-04_rb /)\n      kbo(:, 1,30, 1) = (/ &\n        & 0.24034e-08_rb,0.18231e-05_rb,0.32945e-05_rb,0.46183e-05_rb,0.65837e-05_rb /)\n      kbo(:, 2,30, 1) = (/ &\n        & 0.22702e-08_rb,0.20766e-05_rb,0.37671e-05_rb,0.52735e-05_rb,0.73875e-05_rb /)\n      kbo(:, 3,30, 1) = (/ &\n        & 0.21551e-08_rb,0.23559e-05_rb,0.42744e-05_rb,0.59932e-05_rb,0.82665e-05_rb /)\n      kbo(:, 4,30, 1) = (/ &\n        & 0.20397e-08_rb,0.26541e-05_rb,0.48137e-05_rb,0.67549e-05_rb,0.92071e-05_rb /)\n      kbo(:, 5,30, 1) = (/ &\n        & 0.19208e-08_rb,0.29711e-05_rb,0.53880e-05_rb,0.75598e-05_rb,0.10211e-04_rb /)\n      kbo(:, 1,31, 1) = (/ &\n        & 0.19116e-08_rb,0.15454e-05_rb,0.27957e-05_rb,0.39228e-05_rb,0.54664e-05_rb /)\n      kbo(:, 2,31, 1) = (/ &\n        & 0.18045e-08_rb,0.17579e-05_rb,0.31938e-05_rb,0.44780e-05_rb,0.61205e-05_rb /)\n      kbo(:, 3,31, 1) = (/ &\n        & 0.17015e-08_rb,0.19911e-05_rb,0.36167e-05_rb,0.50753e-05_rb,0.68523e-05_rb /)\n      kbo(:, 4,31, 1) = (/ &\n        & 0.16042e-08_rb,0.22393e-05_rb,0.40666e-05_rb,0.57094e-05_rb,0.76260e-05_rb /)\n      kbo(:, 5,31, 1) = (/ &\n        & 0.15189e-08_rb,0.25035e-05_rb,0.45439e-05_rb,0.63785e-05_rb,0.84562e-05_rb /)\n      kbo(:, 1,32, 1) = (/ &\n        & 0.15134e-08_rb,0.13080e-05_rb,0.23763e-05_rb,0.33360e-05_rb,0.45382e-05_rb /)\n      kbo(:, 2,32, 1) = (/ &\n        & 0.14254e-08_rb,0.14886e-05_rb,0.27086e-05_rb,0.37995e-05_rb,0.50938e-05_rb /)\n      kbo(:, 3,32, 1) = (/ &\n        & 0.13478e-08_rb,0.16831e-05_rb,0.30605e-05_rb,0.42971e-05_rb,0.56933e-05_rb /)\n      kbo(:, 4,32, 1) = (/ &\n        & 0.12726e-08_rb,0.18904e-05_rb,0.34353e-05_rb,0.48247e-05_rb,0.63353e-05_rb /)\n      kbo(:, 5,32, 1) = (/ &\n        & 0.12027e-08_rb,0.21098e-05_rb,0.38318e-05_rb,0.53809e-05_rb,0.70302e-05_rb /)\n      kbo(:, 1,33, 1) = (/ &\n        & 0.12024e-08_rb,0.11084e-05_rb,0.20193e-05_rb,0.28310e-05_rb,0.37849e-05_rb /)\n      kbo(:, 2,33, 1) = (/ &\n        & 0.11338e-08_rb,0.12605e-05_rb,0.22949e-05_rb,0.32221e-05_rb,0.42458e-05_rb /)\n      kbo(:, 3,33, 1) = (/ &\n        & 0.10678e-08_rb,0.14231e-05_rb,0.25881e-05_rb,0.36365e-05_rb,0.47460e-05_rb /)\n      kbo(:, 4,33, 1) = (/ &\n        & 0.10052e-08_rb,0.15963e-05_rb,0.29010e-05_rb,0.40728e-05_rb,0.52804e-05_rb /)\n      kbo(:, 5,33, 1) = (/ &\n        & 0.95946e-09_rb,0.17779e-05_rb,0.32301e-05_rb,0.45381e-05_rb,0.58547e-05_rb /)\n      kbo(:, 1,34, 1) = (/ &\n        & 0.95750e-09_rb,0.93665e-06_rb,0.17068e-05_rb,0.23954e-05_rb,0.31611e-05_rb /)\n      kbo(:, 2,34, 1) = (/ &\n        & 0.89991e-09_rb,0.10636e-05_rb,0.19366e-05_rb,0.27209e-05_rb,0.35440e-05_rb /)\n      kbo(:, 3,34, 1) = (/ &\n        & 0.84944e-09_rb,0.11994e-05_rb,0.21804e-05_rb,0.30651e-05_rb,0.39600e-05_rb /)\n      kbo(:, 4,34, 1) = (/ &\n        & 0.80863e-09_rb,0.13431e-05_rb,0.24406e-05_rb,0.34285e-05_rb,0.44045e-05_rb /)\n      kbo(:, 5,34, 1) = (/ &\n        & 0.76697e-09_rb,0.14937e-05_rb,0.27138e-05_rb,0.38153e-05_rb,0.48739e-05_rb /)\n      kbo(:, 1,35, 1) = (/ &\n        & 0.76931e-09_rb,0.78145e-06_rb,0.14243e-05_rb,0.20004e-05_rb,0.26088e-05_rb /)\n      kbo(:, 2,35, 1) = (/ &\n        & 0.72554e-09_rb,0.88652e-06_rb,0.16140e-05_rb,0.22684e-05_rb,0.29255e-05_rb /)\n      kbo(:, 3,35, 1) = (/ &\n        & 0.68677e-09_rb,0.99872e-06_rb,0.18159e-05_rb,0.25537e-05_rb,0.32672e-05_rb /)\n      kbo(:, 4,35, 1) = (/ &\n        & 0.64986e-09_rb,0.11178e-05_rb,0.20312e-05_rb,0.28542e-05_rb,0.36304e-05_rb /)\n      kbo(:, 5,35, 1) = (/ &\n        & 0.62177e-09_rb,0.12420e-05_rb,0.22566e-05_rb,0.31737e-05_rb,0.40187e-05_rb /)\n      kbo(:, 1,36, 1) = (/ &\n        & 0.62245e-09_rb,0.64235e-06_rb,0.11709e-05_rb,0.16445e-05_rb,0.21213e-05_rb /)\n      kbo(:, 2,36, 1) = (/ &\n        & 0.58696e-09_rb,0.72876e-06_rb,0.13266e-05_rb,0.18646e-05_rb,0.23798e-05_rb /)\n      kbo(:, 3,36, 1) = (/ &\n        & 0.55693e-09_rb,0.82089e-06_rb,0.14927e-05_rb,0.20991e-05_rb,0.26600e-05_rb /)\n      kbo(:, 4,36, 1) = (/ &\n        & 0.52934e-09_rb,0.91874e-06_rb,0.16695e-05_rb,0.23457e-05_rb,0.29575e-05_rb /)\n      kbo(:, 5,36, 1) = (/ &\n        & 0.50585e-09_rb,0.10210e-05_rb,0.18549e-05_rb,0.26085e-05_rb,0.32758e-05_rb /)\n      kbo(:, 1,37, 1) = (/ &\n        & 0.51156e-09_rb,0.51872e-06_rb,0.94550e-06_rb,0.13287e-05_rb,0.17089e-05_rb /)\n      kbo(:, 2,37, 1) = (/ &\n        & 0.48258e-09_rb,0.58908e-06_rb,0.10722e-05_rb,0.15079e-05_rb,0.19187e-05_rb /)\n      kbo(:, 3,37, 1) = (/ &\n        & 0.45694e-09_rb,0.66421e-06_rb,0.12078e-05_rb,0.16992e-05_rb,0.21456e-05_rb /)\n      kbo(:, 4,37, 1) = (/ &\n        & 0.43502e-09_rb,0.74408e-06_rb,0.13520e-05_rb,0.19000e-05_rb,0.23876e-05_rb /)\n      kbo(:, 5,37, 1) = (/ &\n        & 0.41517e-09_rb,0.82758e-06_rb,0.15034e-05_rb,0.21146e-05_rb,0.26473e-05_rb /)\n      kbo(:, 1,38, 1) = (/ &\n        & 0.42094e-09_rb,0.41837e-06_rb,0.76260e-06_rb,0.10719e-05_rb,0.13756e-05_rb /)\n      kbo(:, 2,38, 1) = (/ &\n        & 0.39700e-09_rb,0.47557e-06_rb,0.86572e-06_rb,0.12180e-05_rb,0.15462e-05_rb /)\n      kbo(:, 3,38, 1) = (/ &\n        & 0.37563e-09_rb,0.53684e-06_rb,0.97613e-06_rb,0.13738e-05_rb,0.17289e-05_rb /)\n      kbo(:, 4,38, 1) = (/ &\n        & 0.35783e-09_rb,0.60193e-06_rb,0.10936e-05_rb,0.15374e-05_rb,0.19252e-05_rb /)\n      kbo(:, 5,38, 1) = (/ &\n        & 0.34107e-09_rb,0.67014e-06_rb,0.12173e-05_rb,0.17127e-05_rb,0.21369e-05_rb /)\n      kbo(:, 1,39, 1) = (/ &\n        & 0.34635e-09_rb,0.33732e-06_rb,0.61492e-06_rb,0.86447e-06_rb,0.11055e-05_rb /)\n      kbo(:, 2,39, 1) = (/ &\n        & 0.32654e-09_rb,0.38383e-06_rb,0.69869e-06_rb,0.98355e-06_rb,0.12440e-05_rb /)\n      kbo(:, 3,39, 1) = (/ &\n        & 0.30909e-09_rb,0.43371e-06_rb,0.78869e-06_rb,0.11105e-05_rb,0.13924e-05_rb /)\n      kbo(:, 4,39, 1) = (/ &\n        & 0.29425e-09_rb,0.48681e-06_rb,0.88446e-06_rb,0.12433e-05_rb,0.15526e-05_rb /)\n      kbo(:, 5,39, 1) = (/ &\n        & 0.28000e-09_rb,0.54256e-06_rb,0.98550e-06_rb,0.13868e-05_rb,0.17238e-05_rb /)\n      kbo(:, 1,40, 1) = (/ &\n        & 0.28731e-09_rb,0.26843e-06_rb,0.48915e-06_rb,0.68810e-06_rb,0.87867e-06_rb /)\n      kbo(:, 2,40, 1) = (/ &\n        & 0.27089e-09_rb,0.30600e-06_rb,0.55698e-06_rb,0.78430e-06_rb,0.99075e-06_rb /)\n      kbo(:, 3,40, 1) = (/ &\n        & 0.25607e-09_rb,0.34624e-06_rb,0.62966e-06_rb,0.88677e-06_rb,0.11107e-05_rb /)\n      kbo(:, 4,40, 1) = (/ &\n        & 0.24372e-09_rb,0.38926e-06_rb,0.70732e-06_rb,0.99430e-06_rb,0.12402e-05_rb /)\n      kbo(:, 5,40, 1) = (/ &\n        & 0.23176e-09_rb,0.43465e-06_rb,0.78943e-06_rb,0.11107e-05_rb,0.13787e-05_rb /)\n      kbo(:, 1,41, 1) = (/ &\n        & 0.23903e-09_rb,0.21323e-06_rb,0.38855e-06_rb,0.54701e-06_rb,0.69781e-06_rb /)\n      kbo(:, 2,41, 1) = (/ &\n        & 0.22487e-09_rb,0.24332e-06_rb,0.44328e-06_rb,0.62397e-06_rb,0.78774e-06_rb /)\n      kbo(:, 3,41, 1) = (/ &\n        & 0.21236e-09_rb,0.27581e-06_rb,0.50170e-06_rb,0.70664e-06_rb,0.88427e-06_rb /)\n      kbo(:, 4,41, 1) = (/ &\n        & 0.20204e-09_rb,0.31066e-06_rb,0.56435e-06_rb,0.79384e-06_rb,0.98899e-06_rb /)\n      kbo(:, 5,41, 1) = (/ &\n        & 0.19209e-09_rb,0.34753e-06_rb,0.63119e-06_rb,0.88787e-06_rb,0.11007e-05_rb /)\n      kbo(:, 1,42, 1) = (/ &\n        & 0.19868e-09_rb,0.16950e-06_rb,0.30885e-06_rb,0.43426e-06_rb,0.55336e-06_rb /)\n      kbo(:, 2,42, 1) = (/ &\n        & 0.18681e-09_rb,0.19338e-06_rb,0.35250e-06_rb,0.49622e-06_rb,0.62628e-06_rb /)\n      kbo(:, 3,42, 1) = (/ &\n        & 0.17649e-09_rb,0.21963e-06_rb,0.39950e-06_rb,0.56269e-06_rb,0.70396e-06_rb /)\n      kbo(:, 4,42, 1) = (/ &\n        & 0.16753e-09_rb,0.24778e-06_rb,0.45013e-06_rb,0.63342e-06_rb,0.78770e-06_rb /)\n      kbo(:, 5,42, 1) = (/ &\n        & 0.15930e-09_rb,0.27772e-06_rb,0.50439e-06_rb,0.70945e-06_rb,0.87783e-06_rb /)\n      kbo(:, 1,43, 1) = (/ &\n        & 0.16577e-09_rb,0.13332e-06_rb,0.24323e-06_rb,0.34184e-06_rb,0.43594e-06_rb /)\n      kbo(:, 2,43, 1) = (/ &\n        & 0.15597e-09_rb,0.15245e-06_rb,0.27801e-06_rb,0.39130e-06_rb,0.49460e-06_rb /)\n      kbo(:, 3,43, 1) = (/ &\n        & 0.14721e-09_rb,0.17354e-06_rb,0.31584e-06_rb,0.44499e-06_rb,0.55705e-06_rb /)\n      kbo(:, 4,43, 1) = (/ &\n        & 0.13936e-09_rb,0.19625e-06_rb,0.35661e-06_rb,0.50189e-06_rb,0.62398e-06_rb /)\n      kbo(:, 5,43, 1) = (/ &\n        & 0.13255e-09_rb,0.22044e-06_rb,0.40034e-06_rb,0.56308e-06_rb,0.69634e-06_rb /)\n      kbo(:, 1,44, 1) = (/ &\n        & 0.13861e-09_rb,0.10445e-06_rb,0.19058e-06_rb,0.26841e-06_rb,0.34233e-06_rb /)\n      kbo(:, 2,44, 1) = (/ &\n        & 0.13027e-09_rb,0.11974e-06_rb,0.21836e-06_rb,0.30744e-06_rb,0.38897e-06_rb /)\n      kbo(:, 3,44, 1) = (/ &\n        & 0.12290e-09_rb,0.13662e-06_rb,0.24864e-06_rb,0.35065e-06_rb,0.43916e-06_rb /)\n      kbo(:, 4,44, 1) = (/ &\n        & 0.11611e-09_rb,0.15484e-06_rb,0.28155e-06_rb,0.39627e-06_rb,0.49273e-06_rb /)\n      kbo(:, 5,44, 1) = (/ &\n        & 0.11042e-09_rb,0.17431e-06_rb,0.31666e-06_rb,0.44540e-06_rb,0.55087e-06_rb /)\n      kbo(:, 1,45, 1) = (/ &\n        & 0.11581e-09_rb,0.81915e-07_rb,0.14915e-06_rb,0.21140e-06_rb,0.26987e-06_rb /)\n      kbo(:, 2,45, 1) = (/ &\n        & 0.10906e-09_rb,0.94077e-07_rb,0.17143e-06_rb,0.24173e-06_rb,0.30586e-06_rb /)\n      kbo(:, 3,45, 1) = (/ &\n        & 0.10254e-09_rb,0.10745e-06_rb,0.19582e-06_rb,0.27606e-06_rb,0.34593e-06_rb /)\n      kbo(:, 4,45, 1) = (/ &\n        & 0.96757e-10_rb,0.12205e-06_rb,0.22201e-06_rb,0.31271e-06_rb,0.38876e-06_rb /)\n      kbo(:, 5,45, 1) = (/ &\n        & 0.91979e-10_rb,0.13772e-06_rb,0.25015e-06_rb,0.35208e-06_rb,0.43561e-06_rb /)\n      kbo(:, 1,46, 1) = (/ &\n        & 0.96889e-10_rb,0.64116e-07_rb,0.11708e-06_rb,0.16455e-06_rb,0.21036e-06_rb /)\n      kbo(:, 2,46, 1) = (/ &\n        & 0.91281e-10_rb,0.73641e-07_rb,0.13436e-06_rb,0.18895e-06_rb,0.23951e-06_rb /)\n      kbo(:, 3,46, 1) = (/ &\n        & 0.85830e-10_rb,0.84161e-07_rb,0.15360e-06_rb,0.21643e-06_rb,0.27176e-06_rb /)\n      kbo(:, 4,46, 1) = (/ &\n        & 0.81048e-10_rb,0.95867e-07_rb,0.17447e-06_rb,0.24582e-06_rb,0.30613e-06_rb /)\n      kbo(:, 5,46, 1) = (/ &\n        & 0.76712e-10_rb,0.10844e-06_rb,0.19706e-06_rb,0.27743e-06_rb,0.34329e-06_rb /)\n      kbo(:, 1,47, 1) = (/ &\n        & 0.81516e-10_rb,0.49698e-07_rb,0.90596e-07_rb,0.12727e-06_rb,0.16313e-06_rb /)\n      kbo(:, 2,47, 1) = (/ &\n        & 0.76609e-10_rb,0.57132e-07_rb,0.10433e-06_rb,0.14694e-06_rb,0.18672e-06_rb /)\n      kbo(:, 3,47, 1) = (/ &\n        & 0.71975e-10_rb,0.65534e-07_rb,0.11955e-06_rb,0.16850e-06_rb,0.21215e-06_rb /)\n      kbo(:, 4,47, 1) = (/ &\n        & 0.67908e-10_rb,0.74829e-07_rb,0.13619e-06_rb,0.19209e-06_rb,0.23959e-06_rb /)\n      kbo(:, 5,47, 1) = (/ &\n        & 0.64117e-10_rb,0.84872e-07_rb,0.15433e-06_rb,0.21733e-06_rb,0.26915e-06_rb /)\n      kbo(:, 1,48, 1) = (/ &\n        & 0.68429e-10_rb,0.38715e-07_rb,0.69854e-07_rb,0.98377e-07_rb,0.12619e-06_rb /)\n      kbo(:, 2,48, 1) = (/ &\n        & 0.64236e-10_rb,0.44375e-07_rb,0.80895e-07_rb,0.11471e-06_rb,0.14604e-06_rb /)\n      kbo(:, 3,48, 1) = (/ &\n        & 0.60510e-10_rb,0.51025e-07_rb,0.92977e-07_rb,0.13123e-06_rb,0.16542e-06_rb /)\n      kbo(:, 4,48, 1) = (/ &\n        & 0.56851e-10_rb,0.58345e-07_rb,0.10633e-06_rb,0.14991e-06_rb,0.18745e-06_rb /)\n      kbo(:, 5,48, 1) = (/ &\n        & 0.53674e-10_rb,0.66346e-07_rb,0.12070e-06_rb,0.17001e-06_rb,0.21095e-06_rb /)\n      kbo(:, 1,49, 1) = (/ &\n        & 0.57387e-10_rb,0.29800e-07_rb,0.53817e-07_rb,0.75906e-07_rb,0.97710e-07_rb /)\n      kbo(:, 2,49, 1) = (/ &\n        & 0.53960e-10_rb,0.34500e-07_rb,0.63205e-07_rb,0.88655e-07_rb,0.11310e-06_rb /)\n      kbo(:, 3,49, 1) = (/ &\n        & 0.50740e-10_rb,0.39684e-07_rb,0.72502e-07_rb,0.10193e-06_rb,0.12892e-06_rb /)\n      kbo(:, 4,49, 1) = (/ &\n        & 0.47710e-10_rb,0.45418e-07_rb,0.82941e-07_rb,0.11692e-06_rb,0.14649e-06_rb /)\n      kbo(:, 5,49, 1) = (/ &\n        & 0.45050e-10_rb,0.51797e-07_rb,0.94320e-07_rb,0.13296e-06_rb,0.16526e-06_rb /)\n      kbo(:, 1,50, 1) = (/ &\n        & 0.48010e-10_rb,0.22999e-07_rb,0.41682e-07_rb,0.58975e-07_rb,0.75898e-07_rb /)\n      kbo(:, 2,50, 1) = (/ &\n        & 0.45282e-10_rb,0.26917e-07_rb,0.48929e-07_rb,0.68765e-07_rb,0.87983e-07_rb /)\n      kbo(:, 3,50, 1) = (/ &\n        & 0.42531e-10_rb,0.30879e-07_rb,0.56406e-07_rb,0.79593e-07_rb,0.10109e-06_rb /)\n      kbo(:, 4,50, 1) = (/ &\n        & 0.40002e-10_rb,0.35470e-07_rb,0.64706e-07_rb,0.91312e-07_rb,0.11473e-06_rb /)\n      kbo(:, 5,50, 1) = (/ &\n        & 0.37674e-10_rb,0.40542e-07_rb,0.73834e-07_rb,0.10412e-06_rb,0.12967e-06_rb /)\n      kbo(:, 1,51, 1) = (/ &\n        & 0.40094e-10_rb,0.17810e-07_rb,0.32412e-07_rb,0.45985e-07_rb,0.59041e-07_rb /)\n      kbo(:, 2,51, 1) = (/ &\n        & 0.37901e-10_rb,0.21013e-07_rb,0.37921e-07_rb,0.53479e-07_rb,0.68479e-07_rb /)\n      kbo(:, 3,51, 1) = (/ &\n        & 0.35584e-10_rb,0.24100e-07_rb,0.43988e-07_rb,0.62409e-07_rb,0.79311e-07_rb /)\n      kbo(:, 4,51, 1) = (/ &\n        & 0.33516e-10_rb,0.27737e-07_rb,0.50544e-07_rb,0.71436e-07_rb,0.89912e-07_rb /)\n      kbo(:, 5,51, 1) = (/ &\n        & 0.31503e-10_rb,0.31738e-07_rb,0.57889e-07_rb,0.81591e-07_rb,0.10195e-06_rb /)\n      kbo(:, 1,52, 1) = (/ &\n        & 0.33462e-10_rb,0.13829e-07_rb,0.25227e-07_rb,0.35498e-07_rb,0.45793e-07_rb /)\n      kbo(:, 2,52, 1) = (/ &\n        & 0.31703e-10_rb,0.16272e-07_rb,0.29393e-07_rb,0.41476e-07_rb,0.53340e-07_rb /)\n      kbo(:, 3,52, 1) = (/ &\n        & 0.29856e-10_rb,0.18836e-07_rb,0.34537e-07_rb,0.48490e-07_rb,0.61791e-07_rb /)\n      kbo(:, 4,52, 1) = (/ &\n        & 0.28038e-10_rb,0.21684e-07_rb,0.39578e-07_rb,0.55751e-07_rb,0.70422e-07_rb /)\n      kbo(:, 5,52, 1) = (/ &\n        & 0.26375e-10_rb,0.24824e-07_rb,0.45389e-07_rb,0.63898e-07_rb,0.80071e-07_rb /)\n      kbo(:, 1,53, 1) = (/ &\n        & 0.27859e-10_rb,0.10757e-07_rb,0.19436e-07_rb,0.27368e-07_rb,0.35401e-07_rb /)\n      kbo(:, 2,53, 1) = (/ &\n        & 0.26482e-10_rb,0.12575e-07_rb,0.22786e-07_rb,0.32275e-07_rb,0.41504e-07_rb /)\n      kbo(:, 3,53, 1) = (/ &\n        & 0.25013e-10_rb,0.14718e-07_rb,0.26786e-07_rb,0.37657e-07_rb,0.48150e-07_rb /)\n      kbo(:, 4,53, 1) = (/ &\n        & 0.23481e-10_rb,0.16890e-07_rb,0.30875e-07_rb,0.43561e-07_rb,0.55284e-07_rb /)\n      kbo(:, 5,53, 1) = (/ &\n        & 0.22103e-10_rb,0.19405e-07_rb,0.35435e-07_rb,0.50046e-07_rb,0.62824e-07_rb /)\n      kbo(:, 1,54, 1) = (/ &\n        & 0.23262e-10_rb,0.83534e-08_rb,0.15033e-07_rb,0.21142e-07_rb,0.27491e-07_rb /)\n      kbo(:, 2,54, 1) = (/ &\n        & 0.22075e-10_rb,0.97821e-08_rb,0.17791e-07_rb,0.25298e-07_rb,0.32447e-07_rb /)\n      kbo(:, 3,54, 1) = (/ &\n        & 0.20887e-10_rb,0.11541e-07_rb,0.20852e-07_rb,0.29392e-07_rb,0.37643e-07_rb /)\n      kbo(:, 4,54, 1) = (/ &\n        & 0.19629e-10_rb,0.13228e-07_rb,0.24164e-07_rb,0.34330e-07_rb,0.43622e-07_rb /)\n      kbo(:, 5,54, 1) = (/ &\n        & 0.18475e-10_rb,0.15233e-07_rb,0.27779e-07_rb,0.39304e-07_rb,0.49432e-07_rb /)\n      kbo(:, 1,55, 1) = (/ &\n        & 0.19360e-10_rb,0.64888e-08_rb,0.11644e-07_rb,0.16387e-07_rb,0.21340e-07_rb /)\n      kbo(:, 2,55, 1) = (/ &\n        & 0.18372e-10_rb,0.76367e-08_rb,0.13947e-07_rb,0.19672e-07_rb,0.25401e-07_rb /)\n      kbo(:, 3,55, 1) = (/ &\n        & 0.17421e-10_rb,0.90083e-08_rb,0.16275e-07_rb,0.22971e-07_rb,0.29522e-07_rb /)\n      kbo(:, 4,55, 1) = (/ &\n        & 0.16413e-10_rb,0.10402e-07_rb,0.19081e-07_rb,0.26854e-07_rb,0.34233e-07_rb /)\n      kbo(:, 5,55, 1) = (/ &\n        & 0.15417e-10_rb,0.11984e-07_rb,0.21835e-07_rb,0.30856e-07_rb,0.38954e-07_rb /)\n      kbo(:, 1,56, 1) = (/ &\n        & 0.16094e-10_rb,0.50174e-08_rb,0.90283e-08_rb,0.12718e-07_rb,0.16576e-07_rb /)\n      kbo(:, 2,56, 1) = (/ &\n        & 0.15265e-10_rb,0.59747e-08_rb,0.10850e-07_rb,0.15297e-07_rb,0.19783e-07_rb /)\n      kbo(:, 3,56, 1) = (/ &\n        & 0.14515e-10_rb,0.70142e-08_rb,0.12699e-07_rb,0.17960e-07_rb,0.23171e-07_rb /)\n      kbo(:, 4,56, 1) = (/ &\n        & 0.13715e-10_rb,0.81626e-08_rb,0.14940e-07_rb,0.20994e-07_rb,0.26865e-07_rb /)\n      kbo(:, 5,56, 1) = (/ &\n        & 0.12880e-10_rb,0.94054e-08_rb,0.17206e-07_rb,0.24221e-07_rb,0.30739e-07_rb /)\n      kbo(:, 1,57, 1) = (/ &\n        & 0.13368e-10_rb,0.38838e-08_rb,0.69991e-08_rb,0.98372e-08_rb,0.12821e-07_rb /)\n      kbo(:, 2,57, 1) = (/ &\n        & 0.12743e-10_rb,0.46751e-08_rb,0.84243e-08_rb,0.11856e-07_rb,0.15406e-07_rb /)\n      kbo(:, 3,57, 1) = (/ &\n        & 0.12087e-10_rb,0.54642e-08_rb,0.99295e-08_rb,0.14069e-07_rb,0.18144e-07_rb /)\n      kbo(:, 4,57, 1) = (/ &\n        & 0.11442e-10_rb,0.64461e-08_rb,0.11657e-07_rb,0.16407e-07_rb,0.21072e-07_rb /)\n      kbo(:, 5,57, 1) = (/ &\n        & 0.10759e-10_rb,0.73711e-08_rb,0.13478e-07_rb,0.19106e-07_rb,0.24314e-07_rb /)\n      kbo(:, 1,58, 1) = (/ &\n        & 0.11081e-10_rb,0.30148e-08_rb,0.54165e-08_rb,0.76421e-08_rb,0.99496e-08_rb /)\n      kbo(:, 2,58, 1) = (/ &\n        & 0.10598e-10_rb,0.36337e-08_rb,0.65375e-08_rb,0.92041e-08_rb,0.12025e-07_rb /)\n      kbo(:, 3,58, 1) = (/ &\n        & 0.10052e-10_rb,0.42712e-08_rb,0.77841e-08_rb,0.11053e-07_rb,0.14306e-07_rb /)\n      kbo(:, 4,58, 1) = (/ &\n        & 0.95308e-11_rb,0.50429e-08_rb,0.91133e-08_rb,0.12865e-07_rb,0.16554e-07_rb /)\n      kbo(:, 5,58, 1) = (/ &\n        & 0.89795e-11_rb,0.57979e-08_rb,0.10615e-07_rb,0.15051e-07_rb,0.19216e-07_rb /)\n      kbo(:, 1,59, 1) = (/ &\n        & 0.91194e-11_rb,0.24214e-08_rb,0.43496e-08_rb,0.61531e-08_rb,0.80136e-08_rb /)\n      kbo(:, 2,59, 1) = (/ &\n        & 0.87287e-11_rb,0.29232e-08_rb,0.52535e-08_rb,0.73966e-08_rb,0.96830e-08_rb /)\n      kbo(:, 3,59, 1) = (/ &\n        & 0.82765e-11_rb,0.34412e-08_rb,0.62788e-08_rb,0.88992e-08_rb,0.11534e-07_rb /)\n      kbo(:, 4,59, 1) = (/ &\n        & 0.78605e-11_rb,0.40632e-08_rb,0.73454e-08_rb,0.10382e-07_rb,0.13372e-07_rb /)\n      kbo(:, 5,59, 1) = (/ &\n        & 0.74127e-11_rb,0.46801e-08_rb,0.85910e-08_rb,0.12137e-07_rb,0.15530e-07_rb /)\n      kbo(:, 1,13, 2) = (/ &\n        & 0.17576e-05_rb,0.22518e-03_rb,0.36398e-03_rb,0.46505e-03_rb,0.97920e-03_rb /)\n      kbo(:, 2,13, 2) = (/ &\n        & 0.19522e-05_rb,0.25688e-03_rb,0.42724e-03_rb,0.54293e-03_rb,0.11261e-02_rb /)\n      kbo(:, 3,13, 2) = (/ &\n        & 0.21134e-05_rb,0.29382e-03_rb,0.49778e-03_rb,0.63186e-03_rb,0.12961e-02_rb /)\n      kbo(:, 4,13, 2) = (/ &\n        & 0.22680e-05_rb,0.33585e-03_rb,0.57095e-03_rb,0.73149e-03_rb,0.14857e-02_rb /)\n      kbo(:, 5,13, 2) = (/ &\n        & 0.23939e-05_rb,0.38326e-03_rb,0.64688e-03_rb,0.84120e-03_rb,0.16815e-02_rb /)\n      kbo(:, 1,14, 2) = (/ &\n        & 0.13866e-05_rb,0.18816e-03_rb,0.30541e-03_rb,0.39082e-03_rb,0.80614e-03_rb /)\n      kbo(:, 2,14, 2) = (/ &\n        & 0.14825e-05_rb,0.21525e-03_rb,0.35906e-03_rb,0.45772e-03_rb,0.92976e-03_rb /)\n      kbo(:, 3,14, 2) = (/ &\n        & 0.16428e-05_rb,0.24664e-03_rb,0.41891e-03_rb,0.53341e-03_rb,0.10689e-02_rb /)\n      kbo(:, 4,14, 2) = (/ &\n        & 0.17807e-05_rb,0.28218e-03_rb,0.48021e-03_rb,0.61861e-03_rb,0.12236e-02_rb /)\n      kbo(:, 5,14, 2) = (/ &\n        & 0.18685e-05_rb,0.32204e-03_rb,0.54385e-03_rb,0.71223e-03_rb,0.13844e-02_rb /)\n      kbo(:, 1,15, 2) = (/ &\n        & 0.10483e-05_rb,0.15699e-03_rb,0.25571e-03_rb,0.32803e-03_rb,0.65873e-03_rb /)\n      kbo(:, 2,15, 2) = (/ &\n        & 0.11310e-05_rb,0.18016e-03_rb,0.30071e-03_rb,0.38534e-03_rb,0.75916e-03_rb /)\n      kbo(:, 3,15, 2) = (/ &\n        & 0.12330e-05_rb,0.20672e-03_rb,0.35181e-03_rb,0.44940e-03_rb,0.87041e-03_rb /)\n      kbo(:, 4,15, 2) = (/ &\n        & 0.13426e-05_rb,0.23650e-03_rb,0.40292e-03_rb,0.52246e-03_rb,0.99445e-03_rb /)\n      kbo(:, 5,15, 2) = (/ &\n        & 0.14514e-05_rb,0.26979e-03_rb,0.45684e-03_rb,0.60195e-03_rb,0.11173e-02_rb /)\n      kbo(:, 1,16, 2) = (/ &\n        & 0.80663e-06_rb,0.13098e-03_rb,0.21382e-03_rb,0.27539e-03_rb,0.53727e-03_rb /)\n      kbo(:, 2,16, 2) = (/ &\n        & 0.85747e-06_rb,0.15058e-03_rb,0.25201e-03_rb,0.32406e-03_rb,0.61573e-03_rb /)\n      kbo(:, 3,16, 2) = (/ &\n        & 0.92435e-06_rb,0.17283e-03_rb,0.29542e-03_rb,0.37879e-03_rb,0.70140e-03_rb /)\n      kbo(:, 4,16, 2) = (/ &\n        & 0.99747e-06_rb,0.19793e-03_rb,0.33807e-03_rb,0.44076e-03_rb,0.79468e-03_rb /)\n      kbo(:, 5,16, 2) = (/ &\n        & 0.10819e-05_rb,0.22582e-03_rb,0.38354e-03_rb,0.50663e-03_rb,0.88980e-03_rb /)\n      kbo(:, 1,17, 2) = (/ &\n        & 0.61772e-06_rb,0.10941e-03_rb,0.17926e-03_rb,0.23144e-03_rb,0.43554e-03_rb /)\n      kbo(:, 2,17, 2) = (/ &\n        & 0.65718e-06_rb,0.12576e-03_rb,0.21174e-03_rb,0.27275e-03_rb,0.49750e-03_rb /)\n      kbo(:, 3,17, 2) = (/ &\n        & 0.69949e-06_rb,0.14461e-03_rb,0.24852e-03_rb,0.31937e-03_rb,0.56462e-03_rb /)\n      kbo(:, 4,17, 2) = (/ &\n        & 0.75387e-06_rb,0.16580e-03_rb,0.28374e-03_rb,0.37213e-03_rb,0.63507e-03_rb /)\n      kbo(:, 5,17, 2) = (/ &\n        & 0.79715e-06_rb,0.18926e-03_rb,0.32236e-03_rb,0.42588e-03_rb,0.70728e-03_rb /)\n      kbo(:, 1,18, 2) = (/ &\n        & 0.47188e-06_rb,0.91952e-04_rb,0.15100e-03_rb,0.19495e-03_rb,0.35543e-03_rb /)\n      kbo(:, 2,18, 2) = (/ &\n        & 0.50937e-06_rb,0.10513e-03_rb,0.17852e-03_rb,0.22999e-03_rb,0.40250e-03_rb /)\n      kbo(:, 3,18, 2) = (/ &\n        & 0.54206e-06_rb,0.12130e-03_rb,0.20959e-03_rb,0.26979e-03_rb,0.45662e-03_rb /)\n      kbo(:, 4,18, 2) = (/ &\n        & 0.57328e-06_rb,0.13936e-03_rb,0.23815e-03_rb,0.31451e-03_rb,0.51113e-03_rb /)\n      kbo(:, 5,18, 2) = (/ &\n        & 0.61077e-06_rb,0.15916e-03_rb,0.27075e-03_rb,0.35967e-03_rb,0.57076e-03_rb /)\n      kbo(:, 1,19, 2) = (/ &\n        & 0.36005e-06_rb,0.76984e-04_rb,0.12743e-03_rb,0.16422e-03_rb,0.28885e-03_rb /)\n      kbo(:, 2,19, 2) = (/ &\n        & 0.38988e-06_rb,0.88029e-04_rb,0.15067e-03_rb,0.19396e-03_rb,0.32854e-03_rb /)\n      kbo(:, 3,19, 2) = (/ &\n        & 0.41989e-06_rb,0.10172e-03_rb,0.17539e-03_rb,0.22784e-03_rb,0.37045e-03_rb /)\n      kbo(:, 4,19, 2) = (/ &\n        & 0.44092e-06_rb,0.11727e-03_rb,0.20004e-03_rb,0.26592e-03_rb,0.41598e-03_rb /)\n      kbo(:, 5,19, 2) = (/ &\n        & 0.46883e-06_rb,0.13386e-03_rb,0.22769e-03_rb,0.30285e-03_rb,0.46550e-03_rb /)\n      kbo(:, 1,20, 2) = (/ &\n        & 0.27908e-06_rb,0.64450e-04_rb,0.10795e-03_rb,0.13889e-03_rb,0.23878e-03_rb /)\n      kbo(:, 2,20, 2) = (/ &\n        & 0.30934e-06_rb,0.74187e-04_rb,0.12773e-03_rb,0.16417e-03_rb,0.27017e-03_rb /)\n      kbo(:, 3,20, 2) = (/ &\n        & 0.33086e-06_rb,0.85801e-04_rb,0.14782e-03_rb,0.19307e-03_rb,0.30508e-03_rb /)\n      kbo(:, 4,20, 2) = (/ &\n        & 0.35058e-06_rb,0.98861e-04_rb,0.16868e-03_rb,0.22508e-03_rb,0.34249e-03_rb /)\n      kbo(:, 5,20, 2) = (/ &\n        & 0.37069e-06_rb,0.11306e-03_rb,0.19188e-03_rb,0.25601e-03_rb,0.38519e-03_rb /)\n      kbo(:, 1,21, 2) = (/ &\n        & 0.22418e-06_rb,0.54095e-04_rb,0.91414e-04_rb,0.11757e-03_rb,0.19697e-03_rb /)\n      kbo(:, 2,21, 2) = (/ &\n        & 0.24559e-06_rb,0.62567e-04_rb,0.10819e-03_rb,0.13908e-03_rb,0.22284e-03_rb /)\n      kbo(:, 3,21, 2) = (/ &\n        & 0.26169e-06_rb,0.72383e-04_rb,0.12481e-03_rb,0.16368e-03_rb,0.25205e-03_rb /)\n      kbo(:, 4,21, 2) = (/ &\n        & 0.27885e-06_rb,0.83446e-04_rb,0.14258e-03_rb,0.18910e-03_rb,0.28386e-03_rb /)\n      kbo(:, 5,21, 2) = (/ &\n        & 0.29344e-06_rb,0.95540e-04_rb,0.16198e-03_rb,0.21609e-03_rb,0.31947e-03_rb /)\n      kbo(:, 1,22, 2) = (/ &\n        & 0.17941e-06_rb,0.45830e-04_rb,0.78176e-04_rb,0.10061e-03_rb,0.16313e-03_rb /)\n      kbo(:, 2,22, 2) = (/ &\n        & 0.19397e-06_rb,0.53139e-04_rb,0.92556e-04_rb,0.11901e-03_rb,0.18482e-03_rb /)\n      kbo(:, 3,22, 2) = (/ &\n        & 0.20707e-06_rb,0.61593e-04_rb,0.10579e-03_rb,0.14008e-03_rb,0.20965e-03_rb /)\n      kbo(:, 4,22, 2) = (/ &\n        & 0.22071e-06_rb,0.71016e-04_rb,0.12100e-03_rb,0.16128e-03_rb,0.23661e-03_rb /)\n      kbo(:, 5,22, 2) = (/ &\n        & 0.23148e-06_rb,0.81286e-04_rb,0.13795e-03_rb,0.18401e-03_rb,0.26580e-03_rb /)\n      kbo(:, 1,23, 2) = (/ &\n        & 0.14291e-06_rb,0.38825e-04_rb,0.66866e-04_rb,0.86140e-04_rb,0.13511e-03_rb /)\n      kbo(:, 2,23, 2) = (/ &\n        & 0.15179e-06_rb,0.45135e-04_rb,0.78450e-04_rb,0.10194e-03_rb,0.15369e-03_rb /)\n      kbo(:, 3,23, 2) = (/ &\n        & 0.16326e-06_rb,0.52399e-04_rb,0.89919e-04_rb,0.12001e-03_rb,0.17441e-03_rb /)\n      kbo(:, 4,23, 2) = (/ &\n        & 0.17307e-06_rb,0.60440e-04_rb,0.10293e-03_rb,0.13735e-03_rb,0.19668e-03_rb /)\n      kbo(:, 5,23, 2) = (/ &\n        & 0.18137e-06_rb,0.69189e-04_rb,0.11759e-03_rb,0.15651e-03_rb,0.21998e-03_rb /)\n      kbo(:, 1,24, 2) = (/ &\n        & 0.11245e-06_rb,0.32862e-04_rb,0.57166e-04_rb,0.73828e-04_rb,0.11185e-03_rb /)\n      kbo(:, 2,24, 2) = (/ &\n        & 0.11958e-06_rb,0.38281e-04_rb,0.66635e-04_rb,0.87390e-04_rb,0.12740e-03_rb /)\n      kbo(:, 3,24, 2) = (/ &\n        & 0.12702e-06_rb,0.44519e-04_rb,0.76606e-04_rb,0.10190e-03_rb,0.14418e-03_rb /)\n      kbo(:, 4,24, 2) = (/ &\n        & 0.13467e-06_rb,0.51373e-04_rb,0.87622e-04_rb,0.11700e-03_rb,0.16205e-03_rb /)\n      kbo(:, 5,24, 2) = (/ &\n        & 0.14120e-06_rb,0.58874e-04_rb,0.10019e-03_rb,0.13348e-03_rb,0.18188e-03_rb /)\n      kbo(:, 1,25, 2) = (/ &\n        & 0.88242e-07_rb,0.27950e-04_rb,0.49010e-04_rb,0.63434e-04_rb,0.92877e-04_rb /)\n      kbo(:, 2,25, 2) = (/ &\n        & 0.94383e-07_rb,0.32610e-04_rb,0.56690e-04_rb,0.75114e-04_rb,0.10531e-03_rb /)\n      kbo(:, 3,25, 2) = (/ &\n        & 0.99712e-07_rb,0.37929e-04_rb,0.65204e-04_rb,0.87113e-04_rb,0.11931e-03_rb /)\n      kbo(:, 4,25, 2) = (/ &\n        & 0.10473e-06_rb,0.43778e-04_rb,0.74805e-04_rb,0.99950e-04_rb,0.13427e-03_rb /)\n      kbo(:, 5,25, 2) = (/ &\n        & 0.10988e-06_rb,0.50229e-04_rb,0.85598e-04_rb,0.11406e-03_rb,0.15050e-03_rb /)\n      kbo(:, 1,26, 2) = (/ &\n        & 0.69696e-07_rb,0.23895e-04_rb,0.42166e-04_rb,0.54733e-04_rb,0.77146e-04_rb /)\n      kbo(:, 2,26, 2) = (/ &\n        & 0.74390e-07_rb,0.27921e-04_rb,0.48387e-04_rb,0.64817e-04_rb,0.87607e-04_rb /)\n      kbo(:, 3,26, 2) = (/ &\n        & 0.78856e-07_rb,0.32497e-04_rb,0.55692e-04_rb,0.74691e-04_rb,0.99387e-04_rb /)\n      kbo(:, 4,26, 2) = (/ &\n        & 0.83253e-07_rb,0.37491e-04_rb,0.64130e-04_rb,0.85609e-04_rb,0.11193e-03_rb /)\n      kbo(:, 5,26, 2) = (/ &\n        & 0.87675e-07_rb,0.43011e-04_rb,0.73398e-04_rb,0.97828e-04_rb,0.12574e-03_rb /)\n      kbo(:, 1,27, 2) = (/ &\n        & 0.54619e-07_rb,0.20469e-04_rb,0.35869e-04_rb,0.47259e-04_rb,0.64151e-04_rb /)\n      kbo(:, 2,27, 2) = (/ &\n        & 0.58657e-07_rb,0.23925e-04_rb,0.41468e-04_rb,0.55499e-04_rb,0.72911e-04_rb /)\n      kbo(:, 3,27, 2) = (/ &\n        & 0.62532e-07_rb,0.27839e-04_rb,0.47735e-04_rb,0.63985e-04_rb,0.82955e-04_rb /)\n      kbo(:, 4,27, 2) = (/ &\n        & 0.66184e-07_rb,0.32141e-04_rb,0.55001e-04_rb,0.73456e-04_rb,0.93567e-04_rb /)\n      kbo(:, 5,27, 2) = (/ &\n        & 0.69305e-07_rb,0.36605e-04_rb,0.62968e-04_rb,0.83938e-04_rb,0.10517e-03_rb /)\n      kbo(:, 1,28, 2) = (/ &\n        & 0.43348e-07_rb,0.17476e-04_rb,0.30692e-04_rb,0.40803e-04_rb,0.53271e-04_rb /)\n      kbo(:, 2,28, 2) = (/ &\n        & 0.46348e-07_rb,0.20496e-04_rb,0.35498e-04_rb,0.47629e-04_rb,0.60809e-04_rb /)\n      kbo(:, 3,28, 2) = (/ &\n        & 0.49507e-07_rb,0.23857e-04_rb,0.40974e-04_rb,0.54947e-04_rb,0.69222e-04_rb /)\n      kbo(:, 4,28, 2) = (/ &\n        & 0.52419e-07_rb,0.27560e-04_rb,0.47205e-04_rb,0.63044e-04_rb,0.78123e-04_rb /)\n      kbo(:, 5,28, 2) = (/ &\n        & 0.54842e-07_rb,0.31094e-04_rb,0.54028e-04_rb,0.72116e-04_rb,0.87834e-04_rb /)\n      kbo(:, 1,29, 2) = (/ &\n        & 0.34480e-07_rb,0.15027e-04_rb,0.26268e-04_rb,0.35358e-04_rb,0.44711e-04_rb /)\n      kbo(:, 2,29, 2) = (/ &\n        & 0.36985e-07_rb,0.17638e-04_rb,0.30405e-04_rb,0.40938e-04_rb,0.51054e-04_rb /)\n      kbo(:, 3,29, 2) = (/ &\n        & 0.39476e-07_rb,0.20512e-04_rb,0.35237e-04_rb,0.47207e-04_rb,0.58034e-04_rb /)\n      kbo(:, 4,29, 2) = (/ &\n        & 0.41650e-07_rb,0.23694e-04_rb,0.40586e-04_rb,0.54286e-04_rb,0.65708e-04_rb /)\n      kbo(:, 5,29, 2) = (/ &\n        & 0.43693e-07_rb,0.26438e-04_rb,0.46467e-04_rb,0.62035e-04_rb,0.73872e-04_rb /)\n      kbo(:, 1,30, 2) = (/ &\n        & 0.27402e-07_rb,0.12932e-04_rb,0.22585e-04_rb,0.30365e-04_rb,0.37471e-04_rb /)\n      kbo(:, 2,30, 2) = (/ &\n        & 0.29377e-07_rb,0.15183e-04_rb,0.26158e-04_rb,0.35195e-04_rb,0.42867e-04_rb /)\n      kbo(:, 3,30, 2) = (/ &\n        & 0.31353e-07_rb,0.17658e-04_rb,0.30343e-04_rb,0.40606e-04_rb,0.48858e-04_rb /)\n      kbo(:, 4,30, 2) = (/ &\n        & 0.33056e-07_rb,0.20286e-04_rb,0.34924e-04_rb,0.46735e-04_rb,0.55329e-04_rb /)\n      kbo(:, 5,30, 2) = (/ &\n        & 0.34673e-07_rb,0.22451e-04_rb,0.39717e-04_rb,0.53329e-04_rb,0.62151e-04_rb /)\n      kbo(:, 1,31, 2) = (/ &\n        & 0.21716e-07_rb,0.11156e-04_rb,0.19427e-04_rb,0.26169e-04_rb,0.31512e-04_rb /)\n      kbo(:, 2,31, 2) = (/ &\n        & 0.23313e-07_rb,0.13091e-04_rb,0.22568e-04_rb,0.30377e-04_rb,0.36216e-04_rb /)\n      kbo(:, 3,31, 2) = (/ &\n        & 0.24803e-07_rb,0.15221e-04_rb,0.26157e-04_rb,0.35050e-04_rb,0.41256e-04_rb /)\n      kbo(:, 4,31, 2) = (/ &\n        & 0.26260e-07_rb,0.17277e-04_rb,0.30091e-04_rb,0.40288e-04_rb,0.46693e-04_rb /)\n      kbo(:, 5,31, 2) = (/ &\n        & 0.27334e-07_rb,0.19159e-04_rb,0.33773e-04_rb,0.45892e-04_rb,0.52314e-04_rb /)\n      kbo(:, 1,32, 2) = (/ &\n        & 0.17123e-07_rb,0.96453e-05_rb,0.16688e-04_rb,0.22528e-04_rb,0.26648e-04_rb /)\n      kbo(:, 2,32, 2) = (/ &\n        & 0.18489e-07_rb,0.11305e-04_rb,0.19464e-04_rb,0.26137e-04_rb,0.30617e-04_rb /)\n      kbo(:, 3,32, 2) = (/ &\n        & 0.19621e-07_rb,0.13143e-04_rb,0.22554e-04_rb,0.30238e-04_rb,0.34876e-04_rb /)\n      kbo(:, 4,32, 2) = (/ &\n        & 0.20653e-07_rb,0.14698e-04_rb,0.25928e-04_rb,0.34712e-04_rb,0.39398e-04_rb /)\n      kbo(:, 5,32, 2) = (/ &\n        & 0.21500e-07_rb,0.16315e-04_rb,0.28651e-04_rb,0.39302e-04_rb,0.44097e-04_rb /)\n      kbo(:, 1,33, 2) = (/ &\n        & 0.13414e-07_rb,0.83355e-05_rb,0.14409e-04_rb,0.19461e-04_rb,0.22582e-04_rb /)\n      kbo(:, 2,33, 2) = (/ &\n        & 0.14456e-07_rb,0.97647e-05_rb,0.16818e-04_rb,0.22578e-04_rb,0.25923e-04_rb /)\n      kbo(:, 3,33, 2) = (/ &\n        & 0.15416e-07_rb,0.11250e-04_rb,0.19451e-04_rb,0.26119e-04_rb,0.29482e-04_rb /)\n      kbo(:, 4,33, 2) = (/ &\n        & 0.16184e-07_rb,0.12520e-04_rb,0.22064e-04_rb,0.29911e-04_rb,0.33230e-04_rb /)\n      kbo(:, 5,33, 2) = (/ &\n        & 0.16861e-07_rb,0.13810e-04_rb,0.24332e-04_rb,0.33363e-04_rb,0.37135e-04_rb /)\n      kbo(:, 1,34, 2) = (/ &\n        & 0.10575e-07_rb,0.71786e-05_rb,0.12407e-04_rb,0.16719e-04_rb,0.19158e-04_rb /)\n      kbo(:, 2,34, 2) = (/ &\n        & 0.11328e-07_rb,0.84093e-05_rb,0.14457e-04_rb,0.19433e-04_rb,0.21940e-04_rb /)\n      kbo(:, 3,34, 2) = (/ &\n        & 0.12049e-07_rb,0.95860e-05_rb,0.16718e-04_rb,0.22425e-04_rb,0.24932e-04_rb /)\n      kbo(:, 4,34, 2) = (/ &\n        & 0.12689e-07_rb,0.10655e-04_rb,0.18771e-04_rb,0.25647e-04_rb,0.28065e-04_rb /)\n      kbo(:, 5,34, 2) = (/ &\n        & 0.13241e-07_rb,0.11703e-04_rb,0.20628e-04_rb,0.28184e-04_rb,0.31323e-04_rb /)\n      kbo(:, 1,35, 2) = (/ &\n        & 0.82489e-08_rb,0.60850e-05_rb,0.10505e-04_rb,0.14140e-04_rb,0.16004e-04_rb /)\n      kbo(:, 2,35, 2) = (/ &\n        & 0.88532e-08_rb,0.71306e-05_rb,0.12250e-04_rb,0.16463e-04_rb,0.18333e-04_rb /)\n      kbo(:, 3,35, 2) = (/ &\n        & 0.93468e-08_rb,0.80269e-05_rb,0.14158e-04_rb,0.18989e-04_rb,0.20835e-04_rb /)\n      kbo(:, 4,35, 2) = (/ &\n        & 0.98478e-08_rb,0.89450e-05_rb,0.15691e-04_rb,0.21576e-04_rb,0.23428e-04_rb /)\n      kbo(:, 5,35, 2) = (/ &\n        & 0.10332e-07_rb,0.98354e-05_rb,0.17293e-04_rb,0.23618e-04_rb,0.26128e-04_rb /)\n      kbo(:, 1,36, 2) = (/ &\n        & 0.63951e-08_rb,0.50545e-05_rb,0.87378e-05_rb,0.11778e-04_rb,0.13176e-04_rb /)\n      kbo(:, 2,36, 2) = (/ &\n        & 0.68252e-08_rb,0.59348e-05_rb,0.10193e-04_rb,0.13730e-04_rb,0.15104e-04_rb /)\n      kbo(:, 3,36, 2) = (/ &\n        & 0.72445e-08_rb,0.66480e-05_rb,0.11783e-04_rb,0.15832e-04_rb,0.17160e-04_rb /)\n      kbo(:, 4,36, 2) = (/ &\n        & 0.75871e-08_rb,0.73960e-05_rb,0.13005e-04_rb,0.17866e-04_rb,0.19295e-04_rb /)\n      kbo(:, 5,36, 2) = (/ &\n        & 0.79075e-08_rb,0.81558e-05_rb,0.14306e-04_rb,0.19617e-04_rb,0.21532e-04_rb /)\n      kbo(:, 1,37, 2) = (/ &\n        & 0.50574e-08_rb,0.41215e-05_rb,0.71249e-05_rb,0.95923e-05_rb,0.10686e-04_rb /)\n      kbo(:, 2,37, 2) = (/ &\n        & 0.53967e-08_rb,0.48518e-05_rb,0.83286e-05_rb,0.11206e-04_rb,0.12269e-04_rb /)\n      kbo(:, 3,37, 2) = (/ &\n        & 0.57517e-08_rb,0.54411e-05_rb,0.96383e-05_rb,0.12942e-04_rb,0.13958e-04_rb /)\n      kbo(:, 4,37, 2) = (/ &\n        & 0.60273e-08_rb,0.60590e-05_rb,0.10644e-04_rb,0.14619e-04_rb,0.15714e-04_rb /)\n      kbo(:, 5,37, 2) = (/ &\n        & 0.62775e-08_rb,0.66900e-05_rb,0.11723e-04_rb,0.16077e-04_rb,0.17560e-04_rb /)\n      kbo(:, 1,38, 2) = (/ &\n        & 0.39948e-08_rb,0.33535e-05_rb,0.57976e-05_rb,0.77989e-05_rb,0.86548e-05_rb /)\n      kbo(:, 2,38, 2) = (/ &\n        & 0.42642e-08_rb,0.39584e-05_rb,0.67932e-05_rb,0.91290e-05_rb,0.99507e-05_rb /)\n      kbo(:, 3,38, 2) = (/ &\n        & 0.45529e-08_rb,0.44478e-05_rb,0.78746e-05_rb,0.10563e-04_rb,0.11338e-04_rb /)\n      kbo(:, 4,38, 2) = (/ &\n        & 0.47911e-08_rb,0.49592e-05_rb,0.87019e-05_rb,0.11950e-04_rb,0.12783e-04_rb /)\n      kbo(:, 5,38, 2) = (/ &\n        & 0.49959e-08_rb,0.54820e-05_rb,0.95964e-05_rb,0.13155e-04_rb,0.14308e-04_rb /)\n      kbo(:, 1,39, 2) = (/ &\n        & 0.31607e-08_rb,0.27260e-05_rb,0.47143e-05_rb,0.63381e-05_rb,0.70094e-05_rb /)\n      kbo(:, 2,39, 2) = (/ &\n        & 0.33771e-08_rb,0.32263e-05_rb,0.55352e-05_rb,0.74322e-05_rb,0.80695e-05_rb /)\n      kbo(:, 3,39, 2) = (/ &\n        & 0.35907e-08_rb,0.36316e-05_rb,0.64256e-05_rb,0.86133e-05_rb,0.92019e-05_rb /)\n      kbo(:, 4,39, 2) = (/ &\n        & 0.37920e-08_rb,0.40555e-05_rb,0.71128e-05_rb,0.97677e-05_rb,0.10392e-04_rb /)\n      kbo(:, 5,39, 2) = (/ &\n        & 0.39687e-08_rb,0.44882e-05_rb,0.78499e-05_rb,0.10753e-04_rb,0.11647e-04_rb /)\n      kbo(:, 1,40, 2) = (/ &\n        & 0.25137e-08_rb,0.21782e-05_rb,0.37700e-05_rb,0.50636e-05_rb,0.55872e-05_rb /)\n      kbo(:, 2,40, 2) = (/ &\n        & 0.26953e-08_rb,0.25872e-05_rb,0.44411e-05_rb,0.59538e-05_rb,0.64693e-05_rb /)\n      kbo(:, 3,40, 2) = (/ &\n        & 0.28738e-08_rb,0.29415e-05_rb,0.51697e-05_rb,0.69217e-05_rb,0.73806e-05_rb /)\n      kbo(:, 4,40, 2) = (/ &\n        & 0.30365e-08_rb,0.32887e-05_rb,0.57574e-05_rb,0.79115e-05_rb,0.83547e-05_rb /)\n      kbo(:, 5,40, 2) = (/ &\n        & 0.31827e-08_rb,0.36391e-05_rb,0.63730e-05_rb,0.87114e-05_rb,0.93854e-05_rb /)\n      kbo(:, 1,41, 2) = (/ &\n        & 0.20049e-08_rb,0.17350e-05_rb,0.30089e-05_rb,0.40342e-05_rb,0.44437e-05_rb /)\n      kbo(:, 2,41, 2) = (/ &\n        & 0.21522e-08_rb,0.20685e-05_rb,0.35532e-05_rb,0.47542e-05_rb,0.51577e-05_rb /)\n      kbo(:, 3,41, 2) = (/ &\n        & 0.22978e-08_rb,0.23716e-05_rb,0.41490e-05_rb,0.55459e-05_rb,0.59029e-05_rb /)\n      kbo(:, 4,41, 2) = (/ &\n        & 0.24277e-08_rb,0.26608e-05_rb,0.46585e-05_rb,0.63928e-05_rb,0.67015e-05_rb /)\n      kbo(:, 5,41, 2) = (/ &\n        & 0.25592e-08_rb,0.29434e-05_rb,0.51614e-05_rb,0.70376e-05_rb,0.75472e-05_rb /)\n      kbo(:, 1,42, 2) = (/ &\n        & 0.16007e-08_rb,0.13793e-05_rb,0.23939e-05_rb,0.32203e-05_rb,0.35347e-05_rb /)\n      kbo(:, 2,42, 2) = (/ &\n        & 0.17182e-08_rb,0.16509e-05_rb,0.28388e-05_rb,0.37950e-05_rb,0.41069e-05_rb /)\n      kbo(:, 3,42, 2) = (/ &\n        & 0.18364e-08_rb,0.19058e-05_rb,0.33250e-05_rb,0.44386e-05_rb,0.47169e-05_rb /)\n      kbo(:, 4,42, 2) = (/ &\n        & 0.19459e-08_rb,0.21436e-05_rb,0.37676e-05_rb,0.51389e-05_rb,0.53710e-05_rb /)\n      kbo(:, 5,42, 2) = (/ &\n        & 0.20555e-08_rb,0.23781e-05_rb,0.41722e-05_rb,0.56915e-05_rb,0.60613e-05_rb /)\n      kbo(:, 1,43, 2) = (/ &\n        & 0.12763e-08_rb,0.10855e-05_rb,0.18842e-05_rb,0.25355e-05_rb,0.27894e-05_rb /)\n      kbo(:, 2,43, 2) = (/ &\n        & 0.13693e-08_rb,0.13038e-05_rb,0.22434e-05_rb,0.29991e-05_rb,0.32452e-05_rb /)\n      kbo(:, 3,43, 2) = (/ &\n        & 0.14669e-08_rb,0.15227e-05_rb,0.26394e-05_rb,0.35195e-05_rb,0.37403e-05_rb /)\n      kbo(:, 4,43, 2) = (/ &\n        & 0.15621e-08_rb,0.17145e-05_rb,0.30188e-05_rb,0.40881e-05_rb,0.42757e-05_rb /)\n      kbo(:, 5,43, 2) = (/ &\n        & 0.16467e-08_rb,0.19093e-05_rb,0.33481e-05_rb,0.45768e-05_rb,0.48357e-05_rb /)\n      kbo(:, 1,44, 2) = (/ &\n        & 0.10164e-08_rb,0.84908e-06_rb,0.14741e-05_rb,0.19864e-05_rb,0.21744e-05_rb /)\n      kbo(:, 2,44, 2) = (/ &\n        & 0.10926e-08_rb,0.10232e-05_rb,0.17642e-05_rb,0.23536e-05_rb,0.25562e-05_rb /)\n      kbo(:, 3,44, 2) = (/ &\n        & 0.11717e-08_rb,0.12156e-05_rb,0.20836e-05_rb,0.27750e-05_rb,0.29547e-05_rb /)\n      kbo(:, 4,44, 2) = (/ &\n        & 0.12502e-08_rb,0.13671e-05_rb,0.24149e-05_rb,0.32374e-05_rb,0.33856e-05_rb /)\n      kbo(:, 5,44, 2) = (/ &\n        & 0.13204e-08_rb,0.15290e-05_rb,0.26801e-05_rb,0.36631e-05_rb,0.38430e-05_rb /)\n      kbo(:, 1,45, 2) = (/ &\n        & 0.80967e-09_rb,0.66247e-06_rb,0.11525e-05_rb,0.15557e-05_rb,0.16911e-05_rb /)\n      kbo(:, 2,45, 2) = (/ &\n        & 0.87091e-09_rb,0.80114e-06_rb,0.13838e-05_rb,0.18457e-05_rb,0.20071e-05_rb /)\n      kbo(:, 3,45, 2) = (/ &\n        & 0.93471e-09_rb,0.96063e-06_rb,0.16414e-05_rb,0.21862e-05_rb,0.23357e-05_rb /)\n      kbo(:, 4,45, 2) = (/ &\n        & 0.99996e-09_rb,0.10898e-05_rb,0.19287e-05_rb,0.25587e-05_rb,0.26765e-05_rb /)\n      kbo(:, 5,45, 2) = (/ &\n        & 0.10594e-08_rb,0.12255e-05_rb,0.21437e-05_rb,0.29239e-05_rb,0.30491e-05_rb /)\n      kbo(:, 1,46, 2) = (/ &\n        & 0.64438e-09_rb,0.51408e-06_rb,0.89692e-06_rb,0.12176e-05_rb,0.13094e-05_rb /)\n      kbo(:, 2,46, 2) = (/ &\n        & 0.69338e-09_rb,0.62335e-06_rb,0.10783e-05_rb,0.14408e-05_rb,0.15697e-05_rb /)\n      kbo(:, 3,46, 2) = (/ &\n        & 0.74249e-09_rb,0.75197e-06_rb,0.12859e-05_rb,0.17116e-05_rb,0.18286e-05_rb /)\n      kbo(:, 4,46, 2) = (/ &\n        & 0.79710e-09_rb,0.86785e-06_rb,0.15182e-05_rb,0.20117e-05_rb,0.21072e-05_rb /)\n      kbo(:, 5,46, 2) = (/ &\n        & 0.84966e-09_rb,0.97923e-06_rb,0.17156e-05_rb,0.23354e-05_rb,0.24096e-05_rb /)\n      kbo(:, 1,47, 2) = (/ &\n        & 0.51236e-09_rb,0.39483e-06_rb,0.69100e-06_rb,0.94871e-06_rb,0.10050e-05_rb /)\n      kbo(:, 2,47, 2) = (/ &\n        & 0.55075e-09_rb,0.48075e-06_rb,0.83326e-06_rb,0.11171e-05_rb,0.12169e-05_rb /)\n      kbo(:, 3,47, 2) = (/ &\n        & 0.59153e-09_rb,0.58279e-06_rb,0.99922e-06_rb,0.13307e-05_rb,0.14227e-05_rb /)\n      kbo(:, 4,47, 2) = (/ &\n        & 0.63485e-09_rb,0.68347e-06_rb,0.11845e-05_rb,0.15696e-05_rb,0.16474e-05_rb /)\n      kbo(:, 5,47, 2) = (/ &\n        & 0.67833e-09_rb,0.77359e-06_rb,0.13593e-05_rb,0.18329e-05_rb,0.18933e-05_rb /)\n      kbo(:, 1,48, 2) = (/ &\n        & 0.40749e-09_rb,0.30162e-06_rb,0.53408e-06_rb,0.72777e-06_rb,0.76768e-06_rb /)\n      kbo(:, 2,48, 2) = (/ &\n        & 0.43682e-09_rb,0.36975e-06_rb,0.64201e-06_rb,0.86174e-06_rb,0.93334e-06_rb /)\n      kbo(:, 3,48, 2) = (/ &\n        & 0.46981e-09_rb,0.45015e-06_rb,0.77460e-06_rb,0.10306e-05_rb,0.11092e-05_rb /)\n      kbo(:, 4,48, 2) = (/ &\n        & 0.50302e-09_rb,0.53912e-06_rb,0.92171e-06_rb,0.12225e-05_rb,0.12874e-05_rb /)\n      kbo(:, 5,48, 2) = (/ &\n        & 0.53999e-09_rb,0.61013e-06_rb,0.10790e-05_rb,0.14334e-05_rb,0.14828e-05_rb /)\n      kbo(:, 1,49, 2) = (/ &\n        & 0.32288e-09_rb,0.23115e-06_rb,0.41625e-06_rb,0.55318e-06_rb,0.58476e-06_rb /)\n      kbo(:, 2,49, 2) = (/ &\n        & 0.34731e-09_rb,0.28355e-06_rb,0.49493e-06_rb,0.66850e-06_rb,0.71600e-06_rb /)\n      kbo(:, 3,49, 2) = (/ &\n        & 0.37310e-09_rb,0.34682e-06_rb,0.59820e-06_rb,0.79617e-06_rb,0.85985e-06_rb /)\n      kbo(:, 4,49, 2) = (/ &\n        & 0.39975e-09_rb,0.42034e-06_rb,0.71527e-06_rb,0.95046e-06_rb,0.10041e-05_rb /)\n      kbo(:, 5,49, 2) = (/ &\n        & 0.42970e-09_rb,0.48341e-06_rb,0.84829e-06_rb,0.11191e-05_rb,0.11582e-05_rb /)\n      kbo(:, 1,50, 2) = (/ &\n        & 0.25646e-09_rb,0.17743e-06_rb,0.32423e-06_rb,0.42175e-06_rb,0.44754e-06_rb /)\n      kbo(:, 2,50, 2) = (/ &\n        & 0.27669e-09_rb,0.21856e-06_rb,0.38220e-06_rb,0.52102e-06_rb,0.55141e-06_rb /)\n      kbo(:, 3,50, 2) = (/ &\n        & 0.29654e-09_rb,0.26808e-06_rb,0.46375e-06_rb,0.61921e-06_rb,0.67025e-06_rb /)\n      kbo(:, 4,50, 2) = (/ &\n        & 0.31872e-09_rb,0.32662e-06_rb,0.55687e-06_rb,0.73985e-06_rb,0.78291e-06_rb /)\n      kbo(:, 5,50, 2) = (/ &\n        & 0.34198e-09_rb,0.38136e-06_rb,0.66385e-06_rb,0.87591e-06_rb,0.90771e-06_rb /)\n      kbo(:, 1,51, 2) = (/ &\n        & 0.20472e-09_rb,0.13694e-06_rb,0.24726e-06_rb,0.32216e-06_rb,0.34229e-06_rb /)\n      kbo(:, 2,51, 2) = (/ &\n        & 0.22054e-09_rb,0.16842e-06_rb,0.29646e-06_rb,0.40635e-06_rb,0.42402e-06_rb /)\n      kbo(:, 3,51, 2) = (/ &\n        & 0.23653e-09_rb,0.20731e-06_rb,0.35913e-06_rb,0.48027e-06_rb,0.51714e-06_rb /)\n      kbo(:, 4,51, 2) = (/ &\n        & 0.25402e-09_rb,0.25379e-06_rb,0.43377e-06_rb,0.57689e-06_rb,0.61228e-06_rb /)\n      kbo(:, 5,51, 2) = (/ &\n        & 0.27233e-09_rb,0.30202e-06_rb,0.51940e-06_rb,0.68626e-06_rb,0.71146e-06_rb /)\n      kbo(:, 1,52, 2) = (/ &\n        & 0.16428e-09_rb,0.10687e-06_rb,0.18803e-06_rb,0.24517e-06_rb,0.26090e-06_rb /)\n      kbo(:, 2,52, 2) = (/ &\n        & 0.17520e-09_rb,0.12978e-06_rb,0.23025e-06_rb,0.31106e-06_rb,0.32512e-06_rb /)\n      kbo(:, 3,52, 2) = (/ &\n        & 0.18865e-09_rb,0.15994e-06_rb,0.27726e-06_rb,0.37261e-06_rb,0.39888e-06_rb /)\n      kbo(:, 4,52, 2) = (/ &\n        & 0.20265e-09_rb,0.19670e-06_rb,0.33708e-06_rb,0.44845e-06_rb,0.47779e-06_rb /)\n      kbo(:, 5,52, 2) = (/ &\n        & 0.21711e-09_rb,0.23739e-06_rb,0.40528e-06_rb,0.53668e-06_rb,0.55828e-06_rb /)\n      kbo(:, 1,53, 2) = (/ &\n        & 0.13206e-09_rb,0.82677e-07_rb,0.14284e-06_rb,0.18640e-06_rb,0.19898e-06_rb /)\n      kbo(:, 2,53, 2) = (/ &\n        & 0.13938e-09_rb,0.99597e-07_rb,0.18095e-06_rb,0.23725e-06_rb,0.24911e-06_rb /)\n      kbo(:, 3,53, 2) = (/ &\n        & 0.15056e-09_rb,0.12309e-06_rb,0.21494e-06_rb,0.29026e-06_rb,0.30720e-06_rb /)\n      kbo(:, 4,53, 2) = (/ &\n        & 0.16136e-09_rb,0.15205e-06_rb,0.26147e-06_rb,0.34774e-06_rb,0.37331e-06_rb /)\n      kbo(:, 5,53, 2) = (/ &\n        & 0.17318e-09_rb,0.18547e-06_rb,0.31566e-06_rb,0.41857e-06_rb,0.43649e-06_rb /)\n      kbo(:, 1,54, 2) = (/ &\n        & 0.10628e-09_rb,0.63529e-07_rb,0.10938e-06_rb,0.14285e-06_rb,0.15281e-06_rb /)\n      kbo(:, 2,54, 2) = (/ &\n        & 0.11181e-09_rb,0.77068e-07_rb,0.14036e-06_rb,0.18201e-06_rb,0.19163e-06_rb /)\n      kbo(:, 3,54, 2) = (/ &\n        & 0.11992e-09_rb,0.95387e-07_rb,0.16692e-06_rb,0.22878e-06_rb,0.23824e-06_rb /)\n      kbo(:, 4,54, 2) = (/ &\n        & 0.12900e-09_rb,0.11809e-06_rb,0.20406e-06_rb,0.27163e-06_rb,0.29078e-06_rb /)\n      kbo(:, 5,54, 2) = (/ &\n        & 0.13828e-09_rb,0.14510e-06_rb,0.24678e-06_rb,0.32753e-06_rb,0.34217e-06_rb /)\n      kbo(:, 1,55, 2) = (/ &\n        & 0.85664e-10_rb,0.48444e-07_rb,0.83932e-07_rb,0.10950e-06_rb,0.11785e-06_rb /)\n      kbo(:, 2,55, 2) = (/ &\n        & 0.89999e-10_rb,0.59885e-07_rb,0.10776e-06_rb,0.14023e-06_rb,0.14763e-06_rb /)\n      kbo(:, 3,55, 2) = (/ &\n        & 0.95836e-10_rb,0.73941e-07_rb,0.13023e-06_rb,0.17876e-06_rb,0.18426e-06_rb /)\n      kbo(:, 4,55, 2) = (/ &\n        & 0.10323e-09_rb,0.91791e-07_rb,0.15882e-06_rb,0.21202e-06_rb,0.22611e-06_rb /)\n      kbo(:, 5,55, 2) = (/ &\n        & 0.11081e-09_rb,0.11336e-06_rb,0.19316e-06_rb,0.25647e-06_rb,0.26918e-06_rb /)\n      kbo(:, 1,56, 2) = (/ &\n        & 0.69093e-10_rb,0.36832e-07_rb,0.64123e-07_rb,0.84030e-07_rb,0.90974e-07_rb /)\n      kbo(:, 2,56, 2) = (/ &\n        & 0.72433e-10_rb,0.47084e-07_rb,0.82613e-07_rb,0.10758e-06_rb,0.11346e-06_rb /)\n      kbo(:, 3,56, 2) = (/ &\n        & 0.76616e-10_rb,0.57388e-07_rb,0.10182e-06_rb,0.13768e-06_rb,0.14224e-06_rb /)\n      kbo(:, 4,56, 2) = (/ &\n        & 0.82709e-10_rb,0.71294e-07_rb,0.12355e-06_rb,0.16530e-06_rb,0.17549e-06_rb /)\n      kbo(:, 5,56, 2) = (/ &\n        & 0.88636e-10_rb,0.88445e-07_rb,0.15094e-06_rb,0.20067e-06_rb,0.21118e-06_rb /)\n      kbo(:, 1,57, 2) = (/ &\n        & 0.55980e-10_rb,0.28018e-07_rb,0.48867e-07_rb,0.64857e-07_rb,0.70055e-07_rb /)\n      kbo(:, 2,57, 2) = (/ &\n        & 0.58397e-10_rb,0.36620e-07_rb,0.63232e-07_rb,0.82428e-07_rb,0.87457e-07_rb /)\n      kbo(:, 3,57, 2) = (/ &\n        & 0.61509e-10_rb,0.44446e-07_rb,0.80512e-07_rb,0.10580e-06_rb,0.10988e-06_rb /)\n      kbo(:, 4,57, 2) = (/ &\n        & 0.66015e-10_rb,0.55222e-07_rb,0.96401e-07_rb,0.12935e-06_rb,0.13614e-06_rb /)\n      kbo(:, 5,57, 2) = (/ &\n        & 0.70976e-10_rb,0.68821e-07_rb,0.11780e-06_rb,0.15632e-06_rb,0.16586e-06_rb /)\n      kbo(:, 1,58, 2) = (/ &\n        & 0.45722e-10_rb,0.21506e-07_rb,0.37326e-07_rb,0.50333e-07_rb,0.54855e-07_rb /)\n      kbo(:, 2,58, 2) = (/ &\n        & 0.47090e-10_rb,0.28249e-07_rb,0.48612e-07_rb,0.63442e-07_rb,0.67550e-07_rb /)\n      kbo(:, 3,58, 2) = (/ &\n        & 0.49550e-10_rb,0.34430e-07_rb,0.62769e-07_rb,0.81509e-07_rb,0.84917e-07_rb /)\n      kbo(:, 4,58, 2) = (/ &\n        & 0.52817e-10_rb,0.42958e-07_rb,0.75173e-07_rb,0.10204e-06_rb,0.10603e-06_rb /)\n      kbo(:, 5,58, 2) = (/ &\n        & 0.56864e-10_rb,0.53637e-07_rb,0.92044e-07_rb,0.12229e-06_rb,0.13011e-06_rb /)\n      kbo(:, 1,59, 2) = (/ &\n        & 0.37496e-10_rb,0.17255e-07_rb,0.29967e-07_rb,0.40394e-07_rb,0.44059e-07_rb /)\n      kbo(:, 2,59, 2) = (/ &\n        & 0.38367e-10_rb,0.22782e-07_rb,0.39144e-07_rb,0.51019e-07_rb,0.54404e-07_rb /)\n      kbo(:, 3,59, 2) = (/ &\n        & 0.40346e-10_rb,0.27842e-07_rb,0.50692e-07_rb,0.65716e-07_rb,0.68440e-07_rb /)\n      kbo(:, 4,59, 2) = (/ &\n        & 0.42908e-10_rb,0.34761e-07_rb,0.60846e-07_rb,0.82834e-07_rb,0.85713e-07_rb /)\n      kbo(:, 5,59, 2) = (/ &\n        & 0.46213e-10_rb,0.43467e-07_rb,0.74626e-07_rb,0.99144e-07_rb,0.10518e-06_rb /)\n      kbo(:, 1,13, 3) = (/ &\n        & 0.91180e-05_rb,0.12754e-02_rb,0.19900e-02_rb,0.24440e-02_rb,0.40576e-02_rb /)\n      kbo(:, 2,13, 3) = (/ &\n        & 0.95037e-05_rb,0.14150e-02_rb,0.22145e-02_rb,0.28094e-02_rb,0.44375e-02_rb /)\n      kbo(:, 3,13, 3) = (/ &\n        & 0.99757e-05_rb,0.15626e-02_rb,0.24320e-02_rb,0.31375e-02_rb,0.48097e-02_rb /)\n      kbo(:, 4,13, 3) = (/ &\n        & 0.10508e-04_rb,0.16997e-02_rb,0.26926e-02_rb,0.34483e-02_rb,0.51554e-02_rb /)\n      kbo(:, 5,13, 3) = (/ &\n        & 0.11033e-04_rb,0.18373e-02_rb,0.29684e-02_rb,0.37861e-02_rb,0.54896e-02_rb /)\n      kbo(:, 1,14, 3) = (/ &\n        & 0.73209e-05_rb,0.10727e-02_rb,0.16787e-02_rb,0.20881e-02_rb,0.33041e-02_rb /)\n      kbo(:, 2,14, 3) = (/ &\n        & 0.76795e-05_rb,0.11937e-02_rb,0.18683e-02_rb,0.23616e-02_rb,0.36246e-02_rb /)\n      kbo(:, 3,14, 3) = (/ &\n        & 0.80417e-05_rb,0.13177e-02_rb,0.20567e-02_rb,0.26465e-02_rb,0.39438e-02_rb /)\n      kbo(:, 4,14, 3) = (/ &\n        & 0.84296e-05_rb,0.14317e-02_rb,0.22826e-02_rb,0.29022e-02_rb,0.42368e-02_rb /)\n      kbo(:, 5,14, 3) = (/ &\n        & 0.88950e-05_rb,0.15495e-02_rb,0.25084e-02_rb,0.31901e-02_rb,0.44992e-02_rb /)\n      kbo(:, 1,15, 3) = (/ &\n        & 0.58275e-05_rb,0.89895e-03_rb,0.14161e-02_rb,0.17760e-02_rb,0.26508e-02_rb /)\n      kbo(:, 2,15, 3) = (/ &\n        & 0.61166e-05_rb,0.10025e-02_rb,0.15706e-02_rb,0.19893e-02_rb,0.29219e-02_rb /)\n      kbo(:, 3,15, 3) = (/ &\n        & 0.64340e-05_rb,0.11055e-02_rb,0.17375e-02_rb,0.22237e-02_rb,0.31718e-02_rb /)\n      kbo(:, 4,15, 3) = (/ &\n        & 0.67501e-05_rb,0.12028e-02_rb,0.19291e-02_rb,0.24433e-02_rb,0.34015e-02_rb /)\n      kbo(:, 5,15, 3) = (/ &\n        & 0.70843e-05_rb,0.13034e-02_rb,0.21152e-02_rb,0.26892e-02_rb,0.36350e-02_rb /)\n      kbo(:, 1,16, 3) = (/ &\n        & 0.45776e-05_rb,0.75233e-03_rb,0.11906e-02_rb,0.14957e-02_rb,0.21076e-02_rb /)\n      kbo(:, 2,16, 3) = (/ &\n        & 0.48262e-05_rb,0.84051e-03_rb,0.13192e-02_rb,0.16780e-02_rb,0.23267e-02_rb /)\n      kbo(:, 3,16, 3) = (/ &\n        & 0.51024e-05_rb,0.92603e-03_rb,0.14653e-02_rb,0.18671e-02_rb,0.25242e-02_rb /)\n      kbo(:, 4,16, 3) = (/ &\n        & 0.53856e-05_rb,0.10093e-02_rb,0.16288e-02_rb,0.20599e-02_rb,0.27134e-02_rb /)\n      kbo(:, 5,16, 3) = (/ &\n        & 0.56625e-05_rb,0.10939e-02_rb,0.17834e-02_rb,0.22693e-02_rb,0.29092e-02_rb /)\n      kbo(:, 1,17, 3) = (/ &\n        & 0.35978e-05_rb,0.63055e-03_rb,0.10001e-02_rb,0.12618e-02_rb,0.16759e-02_rb /)\n      kbo(:, 2,17, 3) = (/ &\n        & 0.38090e-05_rb,0.70519e-03_rb,0.11080e-02_rb,0.14142e-02_rb,0.18563e-02_rb /)\n      kbo(:, 3,17, 3) = (/ &\n        & 0.40365e-05_rb,0.77593e-03_rb,0.12352e-02_rb,0.15692e-02_rb,0.20215e-02_rb /)\n      kbo(:, 4,17, 3) = (/ &\n        & 0.42692e-05_rb,0.84648e-03_rb,0.13753e-02_rb,0.17361e-02_rb,0.21882e-02_rb /)\n      kbo(:, 5,17, 3) = (/ &\n        & 0.45325e-05_rb,0.91815e-03_rb,0.15031e-02_rb,0.19156e-02_rb,0.23511e-02_rb /)\n      kbo(:, 1,18, 3) = (/ &\n        & 0.28577e-05_rb,0.52923e-03_rb,0.84060e-03_rb,0.10641e-02_rb,0.13524e-02_rb /)\n      kbo(:, 2,18, 3) = (/ &\n        & 0.30189e-05_rb,0.59275e-03_rb,0.93264e-03_rb,0.11925e-02_rb,0.15051e-02_rb /)\n      kbo(:, 3,18, 3) = (/ &\n        & 0.31971e-05_rb,0.65140e-03_rb,0.10422e-02_rb,0.13174e-02_rb,0.16413e-02_rb /)\n      kbo(:, 4,18, 3) = (/ &\n        & 0.33981e-05_rb,0.71144e-03_rb,0.11594e-02_rb,0.14613e-02_rb,0.17851e-02_rb /)\n      kbo(:, 5,18, 3) = (/ &\n        & 0.36127e-05_rb,0.77200e-03_rb,0.12685e-02_rb,0.16164e-02_rb,0.19166e-02_rb /)\n      kbo(:, 1,19, 3) = (/ &\n        & 0.22832e-05_rb,0.44489e-03_rb,0.70523e-03_rb,0.89150e-03_rb,0.11054e-02_rb /)\n      kbo(:, 2,19, 3) = (/ &\n        & 0.24005e-05_rb,0.49860e-03_rb,0.78596e-03_rb,0.10033e-02_rb,0.12310e-02_rb /)\n      kbo(:, 3,19, 3) = (/ &\n        & 0.25465e-05_rb,0.54746e-03_rb,0.88096e-03_rb,0.11084e-02_rb,0.13479e-02_rb /)\n      kbo(:, 4,19, 3) = (/ &\n        & 0.27167e-05_rb,0.59760e-03_rb,0.97685e-03_rb,0.12305e-02_rb,0.14668e-02_rb /)\n      kbo(:, 5,19, 3) = (/ &\n        & 0.28927e-05_rb,0.64844e-03_rb,0.10695e-02_rb,0.13632e-02_rb,0.15746e-02_rb /)\n      kbo(:, 1,20, 3) = (/ &\n        & 0.18426e-05_rb,0.37567e-03_rb,0.59276e-03_rb,0.75002e-03_rb,0.91159e-03_rb /)\n      kbo(:, 2,20, 3) = (/ &\n        & 0.19324e-05_rb,0.42049e-03_rb,0.66376e-03_rb,0.84304e-03_rb,0.10175e-02_rb /)\n      kbo(:, 3,20, 3) = (/ &\n        & 0.20563e-05_rb,0.46104e-03_rb,0.74561e-03_rb,0.93568e-03_rb,0.11153e-02_rb /)\n      kbo(:, 4,20, 3) = (/ &\n        & 0.21952e-05_rb,0.50302e-03_rb,0.82491e-03_rb,0.10410e-02_rb,0.12131e-02_rb /)\n      kbo(:, 5,20, 3) = (/ &\n        & 0.23429e-05_rb,0.54570e-03_rb,0.90324e-03_rb,0.11512e-02_rb,0.13002e-02_rb /)\n      kbo(:, 1,21, 3) = (/ &\n        & 0.14914e-05_rb,0.31727e-03_rb,0.49879e-03_rb,0.63141e-03_rb,0.75480e-03_rb /)\n      kbo(:, 2,21, 3) = (/ &\n        & 0.15711e-05_rb,0.35367e-03_rb,0.56105e-03_rb,0.70859e-03_rb,0.84278e-03_rb /)\n      kbo(:, 3,21, 3) = (/ &\n        & 0.16720e-05_rb,0.38776e-03_rb,0.63122e-03_rb,0.79066e-03_rb,0.92492e-03_rb /)\n      kbo(:, 4,21, 3) = (/ &\n        & 0.17830e-05_rb,0.42327e-03_rb,0.69655e-03_rb,0.88311e-03_rb,0.10041e-02_rb /)\n      kbo(:, 5,21, 3) = (/ &\n        & 0.19065e-05_rb,0.45905e-03_rb,0.76238e-03_rb,0.97320e-03_rb,0.10767e-02_rb /)\n      kbo(:, 1,22, 3) = (/ &\n        & 0.12007e-05_rb,0.26976e-03_rb,0.42316e-03_rb,0.53750e-03_rb,0.62747e-03_rb /)\n      kbo(:, 2,22, 3) = (/ &\n        & 0.12744e-05_rb,0.29880e-03_rb,0.47840e-03_rb,0.60094e-03_rb,0.70134e-03_rb /)\n      kbo(:, 3,22, 3) = (/ &\n        & 0.13572e-05_rb,0.32813e-03_rb,0.53672e-03_rb,0.67341e-03_rb,0.76916e-03_rb /)\n      kbo(:, 4,22, 3) = (/ &\n        & 0.14459e-05_rb,0.35761e-03_rb,0.59154e-03_rb,0.75421e-03_rb,0.83371e-03_rb /)\n      kbo(:, 5,22, 3) = (/ &\n        & 0.15538e-05_rb,0.38792e-03_rb,0.64663e-03_rb,0.82877e-03_rb,0.89529e-03_rb /)\n      kbo(:, 1,23, 3) = (/ &\n        & 0.96861e-06_rb,0.22918e-03_rb,0.36015e-03_rb,0.45719e-03_rb,0.52404e-03_rb /)\n      kbo(:, 2,23, 3) = (/ &\n        & 0.10336e-05_rb,0.25321e-03_rb,0.40834e-03_rb,0.51161e-03_rb,0.58351e-03_rb /)\n      kbo(:, 3,23, 3) = (/ &\n        & 0.10985e-05_rb,0.27767e-03_rb,0.45571e-03_rb,0.57459e-03_rb,0.63985e-03_rb /)\n      kbo(:, 4,23, 3) = (/ &\n        & 0.11768e-05_rb,0.30252e-03_rb,0.50195e-03_rb,0.64190e-03_rb,0.69303e-03_rb /)\n      kbo(:, 5,23, 3) = (/ &\n        & 0.12615e-05_rb,0.32794e-03_rb,0.54831e-03_rb,0.70579e-03_rb,0.74540e-03_rb /)\n      kbo(:, 1,24, 3) = (/ &\n        & 0.77560e-06_rb,0.19437e-03_rb,0.30748e-03_rb,0.38828e-03_rb,0.43529e-03_rb /)\n      kbo(:, 2,24, 3) = (/ &\n        & 0.82580e-06_rb,0.21438e-03_rb,0.34835e-03_rb,0.43617e-03_rb,0.48373e-03_rb /)\n      kbo(:, 3,24, 3) = (/ &\n        & 0.88200e-06_rb,0.23492e-03_rb,0.38680e-03_rb,0.49169e-03_rb,0.53189e-03_rb /)\n      kbo(:, 4,24, 3) = (/ &\n        & 0.94947e-06_rb,0.25573e-03_rb,0.42635e-03_rb,0.54641e-03_rb,0.57637e-03_rb /)\n      kbo(:, 5,24, 3) = (/ &\n        & 0.10182e-05_rb,0.27745e-03_rb,0.46607e-03_rb,0.60046e-03_rb,0.61998e-03_rb /)\n      kbo(:, 1,25, 3) = (/ &\n        & 0.61963e-06_rb,0.16454e-03_rb,0.26284e-03_rb,0.33016e-03_rb,0.36284e-03_rb /)\n      kbo(:, 2,25, 3) = (/ &\n        & 0.66146e-06_rb,0.18162e-03_rb,0.29714e-03_rb,0.37315e-03_rb,0.40370e-03_rb /)\n      kbo(:, 3,25, 3) = (/ &\n        & 0.71111e-06_rb,0.19882e-03_rb,0.32942e-03_rb,0.42130e-03_rb,0.44382e-03_rb /)\n      kbo(:, 4,25, 3) = (/ &\n        & 0.76573e-06_rb,0.21663e-03_rb,0.36228e-03_rb,0.46640e-03_rb,0.48052e-03_rb /)\n      kbo(:, 5,25, 3) = (/ &\n        & 0.82100e-06_rb,0.23503e-03_rb,0.39627e-03_rb,0.51132e-03_rb,0.51776e-03_rb /)\n      kbo(:, 1,26, 3) = (/ &\n        & 0.49718e-06_rb,0.13982e-03_rb,0.22523e-03_rb,0.28275e-03_rb,0.30558e-03_rb /)\n      kbo(:, 2,26, 3) = (/ &\n        & 0.53365e-06_rb,0.15431e-03_rb,0.25368e-03_rb,0.32044e-03_rb,0.33895e-03_rb /)\n      kbo(:, 3,26, 3) = (/ &\n        & 0.57705e-06_rb,0.16884e-03_rb,0.28082e-03_rb,0.36019e-03_rb,0.37173e-03_rb /)\n      kbo(:, 4,26, 3) = (/ &\n        & 0.62061e-06_rb,0.18393e-03_rb,0.30865e-03_rb,0.39866e-03_rb,0.40243e-03_rb /)\n      kbo(:, 5,26, 3) = (/ &\n        & 0.66427e-06_rb,0.19968e-03_rb,0.33757e-03_rb,0.43663e-03_rb,0.43309e-03_rb /)\n      kbo(:, 1,27, 3) = (/ &\n        & 0.39961e-06_rb,0.11889e-03_rb,0.19361e-03_rb,0.24270e-03_rb,0.25693e-03_rb /)\n      kbo(:, 2,27, 3) = (/ &\n        & 0.43136e-06_rb,0.13100e-03_rb,0.21632e-03_rb,0.27591e-03_rb,0.28463e-03_rb /)\n      kbo(:, 3,27, 3) = (/ &\n        & 0.46490e-06_rb,0.14333e-03_rb,0.23966e-03_rb,0.30849e-03_rb,0.31106e-03_rb /)\n      kbo(:, 4,27, 3) = (/ &\n        & 0.50009e-06_rb,0.15630e-03_rb,0.26346e-03_rb,0.34083e-03_rb,0.33713e-03_rb /)\n      kbo(:, 5,27, 3) = (/ &\n        & 0.53808e-06_rb,0.16999e-03_rb,0.28768e-03_rb,0.37323e-03_rb,0.36279e-03_rb /)\n      kbo(:, 1,28, 3) = (/ &\n        & 0.31986e-06_rb,0.10106e-03_rb,0.16585e-03_rb,0.20891e-03_rb,0.21558e-03_rb /)\n      kbo(:, 2,28, 3) = (/ &\n        & 0.34540e-06_rb,0.11119e-03_rb,0.18500e-03_rb,0.23760e-03_rb,0.23854e-03_rb /)\n      kbo(:, 3,28, 3) = (/ &\n        & 0.37226e-06_rb,0.12183e-03_rb,0.20456e-03_rb,0.26419e-03_rb,0.26053e-03_rb /)\n      kbo(:, 4,28, 3) = (/ &\n        & 0.40317e-06_rb,0.13290e-03_rb,0.22487e-03_rb,0.29156e-03_rb,0.28262e-03_rb /)\n      kbo(:, 5,28, 3) = (/ &\n        & 0.43271e-06_rb,0.14482e-03_rb,0.24541e-03_rb,0.31934e-03_rb,0.30419e-03_rb /)\n      kbo(:, 1,29, 3) = (/ &\n        & 0.25677e-06_rb,0.86060e-04_rb,0.14206e-03_rb,0.18023e-03_rb,0.18141e-03_rb /)\n      kbo(:, 2,29, 3) = (/ &\n        & 0.27736e-06_rb,0.94677e-04_rb,0.15841e-03_rb,0.20378e-03_rb,0.20088e-03_rb /)\n      kbo(:, 3,29, 3) = (/ &\n        & 0.30104e-06_rb,0.10372e-03_rb,0.17515e-03_rb,0.22663e-03_rb,0.21921e-03_rb /)\n      kbo(:, 4,29, 3) = (/ &\n        & 0.32584e-06_rb,0.11340e-03_rb,0.19232e-03_rb,0.24953e-03_rb,0.23789e-03_rb /)\n      kbo(:, 5,29, 3) = (/ &\n        & 0.34891e-06_rb,0.12368e-03_rb,0.20976e-03_rb,0.27364e-03_rb,0.25570e-03_rb /)\n      kbo(:, 1,30, 3) = (/ &\n        & 0.20556e-06_rb,0.73274e-04_rb,0.12170e-03_rb,0.15588e-03_rb,0.15312e-03_rb /)\n      kbo(:, 2,30, 3) = (/ &\n        & 0.22376e-06_rb,0.80651e-04_rb,0.13568e-03_rb,0.17524e-03_rb,0.16948e-03_rb /)\n      kbo(:, 3,30, 3) = (/ &\n        & 0.24313e-06_rb,0.88481e-04_rb,0.14992e-03_rb,0.19447e-03_rb,0.18477e-03_rb /)\n      kbo(:, 4,30, 3) = (/ &\n        & 0.26233e-06_rb,0.96824e-04_rb,0.16458e-03_rb,0.21409e-03_rb,0.20027e-03_rb /)\n      kbo(:, 5,30, 3) = (/ &\n        & 0.28249e-06_rb,0.10580e-03_rb,0.17987e-03_rb,0.23435e-03_rb,0.21532e-03_rb /)\n      kbo(:, 1,31, 3) = (/ &\n        & 0.16553e-06_rb,0.62536e-04_rb,0.10457e-03_rb,0.13443e-03_rb,0.12968e-03_rb /)\n      kbo(:, 2,31, 3) = (/ &\n        & 0.18078e-06_rb,0.68863e-04_rb,0.11643e-03_rb,0.15060e-03_rb,0.14304e-03_rb /)\n      kbo(:, 3,31, 3) = (/ &\n        & 0.19619e-06_rb,0.75670e-04_rb,0.12864e-03_rb,0.16681e-03_rb,0.15615e-03_rb /)\n      kbo(:, 4,31, 3) = (/ &\n        & 0.21158e-06_rb,0.82899e-04_rb,0.14114e-03_rb,0.18385e-03_rb,0.16911e-03_rb /)\n      kbo(:, 5,31, 3) = (/ &\n        & 0.22915e-06_rb,0.90629e-04_rb,0.15456e-03_rb,0.20099e-03_rb,0.18146e-03_rb /)\n      kbo(:, 1,32, 3) = (/ &\n        & 0.13380e-06_rb,0.53407e-04_rb,0.89930e-04_rb,0.11591e-03_rb,0.11005e-03_rb /)\n      kbo(:, 2,32, 3) = (/ &\n        & 0.14604e-06_rb,0.58887e-04_rb,0.10001e-03_rb,0.12963e-03_rb,0.12107e-03_rb /)\n      kbo(:, 3,32, 3) = (/ &\n        & 0.15848e-06_rb,0.64790e-04_rb,0.11040e-03_rb,0.14349e-03_rb,0.13230e-03_rb /)\n      kbo(:, 4,32, 3) = (/ &\n        & 0.17190e-06_rb,0.71169e-04_rb,0.12125e-03_rb,0.15792e-03_rb,0.14297e-03_rb /)\n      kbo(:, 5,32, 3) = (/ &\n        & 0.18587e-06_rb,0.77792e-04_rb,0.13292e-03_rb,0.17265e-03_rb,0.15308e-03_rb /)\n      kbo(:, 1,33, 3) = (/ &\n        & 0.10830e-06_rb,0.45686e-04_rb,0.77339e-04_rb,0.99867e-04_rb,0.93562e-04_rb /)\n      kbo(:, 2,33, 3) = (/ &\n        & 0.11765e-06_rb,0.50526e-04_rb,0.85959e-04_rb,0.11153e-03_rb,0.10269e-03_rb /)\n      kbo(:, 3,33, 3) = (/ &\n        & 0.12824e-06_rb,0.55627e-04_rb,0.94900e-04_rb,0.12354e-03_rb,0.11205e-03_rb /)\n      kbo(:, 4,33, 3) = (/ &\n        & 0.13958e-06_rb,0.61158e-04_rb,0.10440e-03_rb,0.13573e-03_rb,0.12099e-03_rb /)\n      kbo(:, 5,33, 3) = (/ &\n        & 0.15078e-06_rb,0.66909e-04_rb,0.11431e-03_rb,0.14861e-03_rb,0.12918e-03_rb /)\n      kbo(:, 1,34, 3) = (/ &\n        & 0.87537e-07_rb,0.39073e-04_rb,0.66330e-04_rb,0.85860e-04_rb,0.79296e-04_rb /)\n      kbo(:, 2,34, 3) = (/ &\n        & 0.95270e-07_rb,0.43282e-04_rb,0.73743e-04_rb,0.95733e-04_rb,0.87082e-04_rb /)\n      kbo(:, 3,34, 3) = (/ &\n        & 0.10423e-06_rb,0.47701e-04_rb,0.81447e-04_rb,0.10609e-03_rb,0.94857e-04_rb /)\n      kbo(:, 4,34, 3) = (/ &\n        & 0.11348e-06_rb,0.52484e-04_rb,0.89624e-04_rb,0.11638e-03_rb,0.10211e-03_rb /)\n      kbo(:, 5,34, 3) = (/ &\n        & 0.12289e-06_rb,0.57431e-04_rb,0.98122e-04_rb,0.12760e-03_rb,0.10866e-03_rb /)\n      kbo(:, 1,35, 3) = (/ &\n        & 0.69891e-07_rb,0.33129e-04_rb,0.56323e-04_rb,0.73036e-04_rb,0.66568e-04_rb /)\n      kbo(:, 2,35, 3) = (/ &\n        & 0.76465e-07_rb,0.36724e-04_rb,0.62627e-04_rb,0.81520e-04_rb,0.73176e-04_rb /)\n      kbo(:, 3,35, 3) = (/ &\n        & 0.83833e-07_rb,0.40619e-04_rb,0.69293e-04_rb,0.90161e-04_rb,0.79548e-04_rb /)\n      kbo(:, 4,35, 3) = (/ &\n        & 0.91436e-07_rb,0.44671e-04_rb,0.76362e-04_rb,0.99075e-04_rb,0.85497e-04_rb /)\n      kbo(:, 5,35, 3) = (/ &\n        & 0.99263e-07_rb,0.48886e-04_rb,0.83550e-04_rb,0.10849e-03_rb,0.90720e-04_rb /)\n      kbo(:, 1,36, 3) = (/ &\n        & 0.55080e-07_rb,0.27796e-04_rb,0.47261e-04_rb,0.61299e-04_rb,0.55237e-04_rb /)\n      kbo(:, 2,36, 3) = (/ &\n        & 0.60562e-07_rb,0.30850e-04_rb,0.52635e-04_rb,0.68515e-04_rb,0.60794e-04_rb /)\n      kbo(:, 3,36, 3) = (/ &\n        & 0.66440e-07_rb,0.34200e-04_rb,0.58298e-04_rb,0.75847e-04_rb,0.66097e-04_rb /)\n      kbo(:, 4,36, 3) = (/ &\n        & 0.72913e-07_rb,0.37650e-04_rb,0.64310e-04_rb,0.83530e-04_rb,0.71032e-04_rb /)\n      kbo(:, 5,36, 3) = (/ &\n        & 0.79545e-07_rb,0.41216e-04_rb,0.70397e-04_rb,0.91304e-04_rb,0.75193e-04_rb /)\n      kbo(:, 1,37, 3) = (/ &\n        & 0.43644e-07_rb,0.22997e-04_rb,0.39088e-04_rb,0.50714e-04_rb,0.45374e-04_rb /)\n      kbo(:, 2,37, 3) = (/ &\n        & 0.48182e-07_rb,0.25585e-04_rb,0.43661e-04_rb,0.56813e-04_rb,0.50057e-04_rb /)\n      kbo(:, 3,37, 3) = (/ &\n        & 0.53067e-07_rb,0.28429e-04_rb,0.48465e-04_rb,0.63020e-04_rb,0.54490e-04_rb /)\n      kbo(:, 4,37, 3) = (/ &\n        & 0.58349e-07_rb,0.31365e-04_rb,0.53603e-04_rb,0.69516e-04_rb,0.58585e-04_rb /)\n      kbo(:, 5,37, 3) = (/ &\n        & 0.63727e-07_rb,0.34398e-04_rb,0.58710e-04_rb,0.76032e-04_rb,0.62046e-04_rb /)\n      kbo(:, 1,38, 3) = (/ &\n        & 0.34661e-07_rb,0.19003e-04_rb,0.32295e-04_rb,0.41898e-04_rb,0.37207e-04_rb /)\n      kbo(:, 2,38, 3) = (/ &\n        & 0.38414e-07_rb,0.21200e-04_rb,0.36170e-04_rb,0.47045e-04_rb,0.41150e-04_rb /)\n      kbo(:, 3,38, 3) = (/ &\n        & 0.42378e-07_rb,0.23605e-04_rb,0.40247e-04_rb,0.52306e-04_rb,0.44872e-04_rb /)\n      kbo(:, 4,38, 3) = (/ &\n        & 0.46598e-07_rb,0.26110e-04_rb,0.44620e-04_rb,0.57800e-04_rb,0.48293e-04_rb /)\n      kbo(:, 5,38, 3) = (/ &\n        & 0.50995e-07_rb,0.28683e-04_rb,0.48935e-04_rb,0.63250e-04_rb,0.51155e-04_rb /)\n      kbo(:, 1,39, 3) = (/ &\n        & 0.27545e-07_rb,0.15700e-04_rb,0.26661e-04_rb,0.34603e-04_rb,0.30487e-04_rb /)\n      kbo(:, 2,39, 3) = (/ &\n        & 0.30553e-07_rb,0.17568e-04_rb,0.29948e-04_rb,0.38935e-04_rb,0.33813e-04_rb /)\n      kbo(:, 3,39, 3) = (/ &\n        & 0.33772e-07_rb,0.19601e-04_rb,0.33411e-04_rb,0.43403e-04_rb,0.36922e-04_rb /)\n      kbo(:, 4,39, 3) = (/ &\n        & 0.37164e-07_rb,0.21726e-04_rb,0.37113e-04_rb,0.48030e-04_rb,0.39771e-04_rb /)\n      kbo(:, 5,39, 3) = (/ &\n        & 0.40795e-07_rb,0.23901e-04_rb,0.40765e-04_rb,0.52607e-04_rb,0.42152e-04_rb /)\n      kbo(:, 1,40, 3) = (/ &\n        & 0.21852e-07_rb,0.12819e-04_rb,0.21757e-04_rb,0.28221e-04_rb,0.24745e-04_rb /)\n      kbo(:, 2,40, 3) = (/ &\n        & 0.24207e-07_rb,0.14395e-04_rb,0.24527e-04_rb,0.31867e-04_rb,0.27502e-04_rb /)\n      kbo(:, 3,40, 3) = (/ &\n        & 0.26806e-07_rb,0.16092e-04_rb,0.27462e-04_rb,0.35646e-04_rb,0.30145e-04_rb /)\n      kbo(:, 4,40, 3) = (/ &\n        & 0.29612e-07_rb,0.17894e-04_rb,0.30572e-04_rb,0.39527e-04_rb,0.32543e-04_rb /)\n      kbo(:, 5,40, 3) = (/ &\n        & 0.32577e-07_rb,0.19746e-04_rb,0.33672e-04_rb,0.43399e-04_rb,0.34556e-04_rb /)\n      kbo(:, 1,41, 3) = (/ &\n        & 0.17336e-07_rb,0.10441e-04_rb,0.17695e-04_rb,0.22954e-04_rb,0.20042e-04_rb /)\n      kbo(:, 2,41, 3) = (/ &\n        & 0.19187e-07_rb,0.11771e-04_rb,0.20025e-04_rb,0.26029e-04_rb,0.22346e-04_rb /)\n      kbo(:, 3,41, 3) = (/ &\n        & 0.21311e-07_rb,0.13190e-04_rb,0.22516e-04_rb,0.29201e-04_rb,0.24577e-04_rb /)\n      kbo(:, 4,41, 3) = (/ &\n        & 0.23597e-07_rb,0.14712e-04_rb,0.25122e-04_rb,0.32466e-04_rb,0.26584e-04_rb /)\n      kbo(:, 5,41, 3) = (/ &\n        & 0.25958e-07_rb,0.16280e-04_rb,0.27744e-04_rb,0.35762e-04_rb,0.28295e-04_rb /)\n      kbo(:, 1,42, 3) = (/ &\n        & 0.13752e-07_rb,0.84970e-05_rb,0.14379e-04_rb,0.18640e-04_rb,0.16205e-04_rb /)\n      kbo(:, 2,42, 3) = (/ &\n        & 0.15240e-07_rb,0.96082e-05_rb,0.16325e-04_rb,0.21225e-04_rb,0.18124e-04_rb /)\n      kbo(:, 3,42, 3) = (/ &\n        & 0.16924e-07_rb,0.10802e-04_rb,0.18430e-04_rb,0.23896e-04_rb,0.20024e-04_rb /)\n      kbo(:, 4,42, 3) = (/ &\n        & 0.18767e-07_rb,0.12087e-04_rb,0.20609e-04_rb,0.26651e-04_rb,0.21698e-04_rb /)\n      kbo(:, 5,42, 3) = (/ &\n        & 0.20666e-07_rb,0.13409e-04_rb,0.22837e-04_rb,0.29427e-04_rb,0.23153e-04_rb /)\n      kbo(:, 1,43, 3) = (/ &\n        & 0.10827e-07_rb,0.68624e-05_rb,0.11586e-04_rb,0.14999e-04_rb,0.12975e-04_rb /)\n      kbo(:, 2,43, 3) = (/ &\n        & 0.12030e-07_rb,0.77847e-05_rb,0.13205e-04_rb,0.17164e-04_rb,0.14605e-04_rb /)\n      kbo(:, 3,43, 3) = (/ &\n        & 0.13352e-07_rb,0.87779e-05_rb,0.14974e-04_rb,0.19410e-04_rb,0.16231e-04_rb /)\n      kbo(:, 4,43, 3) = (/ &\n        & 0.14829e-07_rb,0.98620e-05_rb,0.16795e-04_rb,0.21751e-04_rb,0.17634e-04_rb /)\n      kbo(:, 5,43, 3) = (/ &\n        & 0.16396e-07_rb,0.10975e-04_rb,0.18682e-04_rb,0.24066e-04_rb,0.18879e-04_rb /)\n      kbo(:, 1,44, 3) = (/ &\n        & 0.85731e-08_rb,0.55132e-05_rb,0.92862e-05_rb,0.12000e-04_rb,0.10347e-04_rb /)\n      kbo(:, 2,44, 3) = (/ &\n        & 0.95033e-08_rb,0.62816e-05_rb,0.10629e-04_rb,0.13817e-04_rb,0.11712e-04_rb /)\n      kbo(:, 3,44, 3) = (/ &\n        & 0.10537e-07_rb,0.70964e-05_rb,0.12108e-04_rb,0.15700e-04_rb,0.13095e-04_rb /)\n      kbo(:, 4,44, 3) = (/ &\n        & 0.11722e-07_rb,0.80120e-05_rb,0.13621e-04_rb,0.17679e-04_rb,0.14296e-04_rb /)\n      kbo(:, 5,44, 3) = (/ &\n        & 0.12991e-07_rb,0.89457e-05_rb,0.15220e-04_rb,0.19614e-04_rb,0.15350e-04_rb /)\n      kbo(:, 1,45, 3) = (/ &\n        & 0.67515e-08_rb,0.44212e-05_rb,0.74244e-05_rb,0.95776e-05_rb,0.82429e-05_rb /)\n      kbo(:, 2,45, 3) = (/ &\n        & 0.74999e-08_rb,0.50603e-05_rb,0.85360e-05_rb,0.11095e-04_rb,0.93791e-05_rb /)\n      kbo(:, 3,45, 3) = (/ &\n        & 0.83182e-08_rb,0.57411e-05_rb,0.97686e-05_rb,0.12667e-04_rb,0.10528e-04_rb /)\n      kbo(:, 4,45, 3) = (/ &\n        & 0.92526e-08_rb,0.64942e-05_rb,0.11028e-04_rb,0.14328e-04_rb,0.11566e-04_rb /)\n      kbo(:, 5,45, 3) = (/ &\n        & 0.10269e-07_rb,0.72769e-05_rb,0.12375e-04_rb,0.15964e-04_rb,0.12472e-04_rb /)\n      kbo(:, 1,46, 3) = (/ &\n        & 0.53031e-08_rb,0.35301e-05_rb,0.59050e-05_rb,0.75965e-05_rb,0.65452e-05_rb /)\n      kbo(:, 2,46, 3) = (/ &\n        & 0.58907e-08_rb,0.40561e-05_rb,0.68233e-05_rb,0.88621e-05_rb,0.74771e-05_rb /)\n      kbo(:, 3,46, 3) = (/ &\n        & 0.65422e-08_rb,0.46270e-05_rb,0.78393e-05_rb,0.10169e-04_rb,0.84370e-05_rb /)\n      kbo(:, 4,46, 3) = (/ &\n        & 0.72669e-08_rb,0.52433e-05_rb,0.89061e-05_rb,0.11563e-04_rb,0.93268e-05_rb /)\n      kbo(:, 5,46, 3) = (/ &\n        & 0.80880e-08_rb,0.58967e-05_rb,0.10016e-04_rb,0.12930e-04_rb,0.10106e-04_rb /)\n      kbo(:, 1,47, 3) = (/ &\n        & 0.41459e-08_rb,0.27965e-05_rb,0.46529e-05_rb,0.59648e-05_rb,0.51552e-05_rb /)\n      kbo(:, 2,47, 3) = (/ &\n        & 0.46324e-08_rb,0.32253e-05_rb,0.54100e-05_rb,0.70094e-05_rb,0.59110e-05_rb /)\n      kbo(:, 3,47, 3) = (/ &\n        & 0.51433e-08_rb,0.37014e-05_rb,0.62395e-05_rb,0.80976e-05_rb,0.67100e-05_rb /)\n      kbo(:, 4,47, 3) = (/ &\n        & 0.57045e-08_rb,0.42091e-05_rb,0.71381e-05_rb,0.92537e-05_rb,0.74896e-05_rb /)\n      kbo(:, 5,47, 3) = (/ &\n        & 0.63526e-08_rb,0.47541e-05_rb,0.80573e-05_rb,0.10428e-04_rb,0.81540e-05_rb /)\n      kbo(:, 1,48, 3) = (/ &\n        & 0.32549e-08_rb,0.22089e-05_rb,0.36571e-05_rb,0.46663e-05_rb,0.40387e-05_rb /)\n      kbo(:, 2,48, 3) = (/ &\n        & 0.36192e-08_rb,0.25581e-05_rb,0.42752e-05_rb,0.55265e-05_rb,0.46582e-05_rb /)\n      kbo(:, 3,48, 3) = (/ &\n        & 0.40215e-08_rb,0.29515e-05_rb,0.49553e-05_rb,0.64327e-05_rb,0.53236e-05_rb /)\n      kbo(:, 4,48, 3) = (/ &\n        & 0.44736e-08_rb,0.33690e-05_rb,0.57015e-05_rb,0.73859e-05_rb,0.59960e-05_rb /)\n      kbo(:, 5,48, 3) = (/ &\n        & 0.49760e-08_rb,0.38276e-05_rb,0.64596e-05_rb,0.83844e-05_rb,0.65647e-05_rb /)\n      kbo(:, 1,49, 3) = (/ &\n        & 0.25432e-08_rb,0.17390e-05_rb,0.28607e-05_rb,0.36438e-05_rb,0.31425e-05_rb /)\n      kbo(:, 2,49, 3) = (/ &\n        & 0.28364e-08_rb,0.20219e-05_rb,0.33698e-05_rb,0.43412e-05_rb,0.36654e-05_rb /)\n      kbo(:, 3,49, 3) = (/ &\n        & 0.31601e-08_rb,0.23472e-05_rb,0.39232e-05_rb,0.50964e-05_rb,0.42142e-05_rb /)\n      kbo(:, 4,49, 3) = (/ &\n        & 0.35101e-08_rb,0.26948e-05_rb,0.45429e-05_rb,0.58797e-05_rb,0.47715e-05_rb /)\n      kbo(:, 5,49, 3) = (/ &\n        & 0.38989e-08_rb,0.30718e-05_rb,0.51731e-05_rb,0.67190e-05_rb,0.52720e-05_rb /)\n      kbo(:, 1,50, 3) = (/ &\n        & 0.20093e-08_rb,0.13704e-05_rb,0.22373e-05_rb,0.28375e-05_rb,0.24550e-05_rb /)\n      kbo(:, 2,50, 3) = (/ &\n        & 0.22270e-08_rb,0.16020e-05_rb,0.26626e-05_rb,0.34144e-05_rb,0.28963e-05_rb /)\n      kbo(:, 3,50, 3) = (/ &\n        & 0.24797e-08_rb,0.18686e-05_rb,0.31131e-05_rb,0.40348e-05_rb,0.33398e-05_rb /)\n      kbo(:, 4,50, 3) = (/ &\n        & 0.27614e-08_rb,0.21593e-05_rb,0.36199e-05_rb,0.46856e-05_rb,0.38019e-05_rb /)\n      kbo(:, 5,50, 3) = (/ &\n        & 0.30674e-08_rb,0.24699e-05_rb,0.41517e-05_rb,0.53844e-05_rb,0.42322e-05_rb /)\n      kbo(:, 1,51, 3) = (/ &\n        & 0.15907e-08_rb,0.10803e-05_rb,0.17518e-05_rb,0.22064e-05_rb,0.19254e-05_rb /)\n      kbo(:, 2,51, 3) = (/ &\n        & 0.17509e-08_rb,0.12691e-05_rb,0.21000e-05_rb,0.26794e-05_rb,0.22832e-05_rb /)\n      kbo(:, 3,51, 3) = (/ &\n        & 0.19509e-08_rb,0.14861e-05_rb,0.24726e-05_rb,0.31957e-05_rb,0.26418e-05_rb /)\n      kbo(:, 4,51, 3) = (/ &\n        & 0.21703e-08_rb,0.17284e-05_rb,0.28838e-05_rb,0.37325e-05_rb,0.30257e-05_rb /)\n      kbo(:, 5,51, 3) = (/ &\n        & 0.24124e-08_rb,0.19844e-05_rb,0.33305e-05_rb,0.43128e-05_rb,0.34015e-05_rb /)\n      kbo(:, 1,52, 3) = (/ &\n        & 0.12564e-08_rb,0.84669e-06_rb,0.13717e-05_rb,0.17147e-05_rb,0.14947e-05_rb /)\n      kbo(:, 2,52, 3) = (/ &\n        & 0.13794e-08_rb,0.10024e-05_rb,0.16523e-05_rb,0.20993e-05_rb,0.17870e-05_rb /)\n      kbo(:, 3,52, 3) = (/ &\n        & 0.15320e-08_rb,0.11790e-05_rb,0.19577e-05_rb,0.25220e-05_rb,0.20845e-05_rb /)\n      kbo(:, 4,52, 3) = (/ &\n        & 0.17130e-08_rb,0.13791e-05_rb,0.22952e-05_rb,0.29677e-05_rb,0.24040e-05_rb /)\n      kbo(:, 5,52, 3) = (/ &\n        & 0.19041e-08_rb,0.15914e-05_rb,0.26635e-05_rb,0.34439e-05_rb,0.27247e-05_rb /)\n      kbo(:, 1,53, 3) = (/ &\n        & 0.99523e-09_rb,0.66219e-06_rb,0.10632e-05_rb,0.13341e-05_rb,0.11550e-05_rb /)\n      kbo(:, 2,53, 3) = (/ &\n        & 0.10903e-08_rb,0.79022e-06_rb,0.12914e-05_rb,0.16401e-05_rb,0.13929e-05_rb /)\n      kbo(:, 3,53, 3) = (/ &\n        & 0.12082e-08_rb,0.93266e-06_rb,0.15445e-05_rb,0.19841e-05_rb,0.16452e-05_rb /)\n      kbo(:, 4,53, 3) = (/ &\n        & 0.13437e-08_rb,0.10969e-05_rb,0.18212e-05_rb,0.23517e-05_rb,0.19029e-05_rb /)\n      kbo(:, 5,53, 3) = (/ &\n        & 0.14972e-08_rb,0.12734e-05_rb,0.21276e-05_rb,0.27431e-05_rb,0.21722e-05_rb /)\n      kbo(:, 1,54, 3) = (/ &\n        & 0.78782e-09_rb,0.51993e-06_rb,0.82752e-06_rb,0.10421e-05_rb,0.88632e-06_rb /)\n      kbo(:, 2,54, 3) = (/ &\n        & 0.86642e-09_rb,0.62440e-06_rb,0.10138e-05_rb,0.12820e-05_rb,0.10958e-05_rb /)\n      kbo(:, 3,54, 3) = (/ &\n        & 0.95141e-09_rb,0.74051e-06_rb,0.12221e-05_rb,0.15626e-05_rb,0.13014e-05_rb /)\n      kbo(:, 4,54, 3) = (/ &\n        & 0.10622e-08_rb,0.87438e-06_rb,0.14481e-05_rb,0.18675e-05_rb,0.15138e-05_rb /)\n      kbo(:, 5,54, 3) = (/ &\n        & 0.11829e-08_rb,0.10217e-05_rb,0.17025e-05_rb,0.21900e-05_rb,0.17349e-05_rb /)\n      kbo(:, 1,55, 3) = (/ &\n        & 0.62734e-09_rb,0.40844e-06_rb,0.64675e-06_rb,0.81168e-06_rb,0.68015e-06_rb /)\n      kbo(:, 2,55, 3) = (/ &\n        & 0.68670e-09_rb,0.49437e-06_rb,0.79822e-06_rb,0.10031e-05_rb,0.85955e-06_rb /)\n      kbo(:, 3,55, 3) = (/ &\n        & 0.75551e-09_rb,0.58813e-06_rb,0.96640e-06_rb,0.12305e-05_rb,0.10290e-05_rb /)\n      kbo(:, 4,55, 3) = (/ &\n        & 0.83896e-09_rb,0.69762e-06_rb,0.11529e-05_rb,0.14845e-05_rb,0.12025e-05_rb /)\n      kbo(:, 5,55, 3) = (/ &\n        & 0.93727e-09_rb,0.81992e-06_rb,0.13618e-05_rb,0.17489e-05_rb,0.13856e-05_rb /)\n      kbo(:, 1,56, 3) = (/ &\n        & 0.50214e-09_rb,0.32028e-06_rb,0.50524e-06_rb,0.63147e-06_rb,0.51903e-06_rb /)\n      kbo(:, 2,56, 3) = (/ &\n        & 0.54775e-09_rb,0.38841e-06_rb,0.62589e-06_rb,0.78445e-06_rb,0.67099e-06_rb /)\n      kbo(:, 3,56, 3) = (/ &\n        & 0.59971e-09_rb,0.46602e-06_rb,0.76356e-06_rb,0.96978e-06_rb,0.80912e-06_rb /)\n      kbo(:, 4,56, 3) = (/ &\n        & 0.66466e-09_rb,0.55509e-06_rb,0.91533e-06_rb,0.11766e-05_rb,0.95284e-06_rb /)\n      kbo(:, 5,56, 3) = (/ &\n        & 0.73931e-09_rb,0.65625e-06_rb,0.10864e-05_rb,0.13946e-05_rb,0.11055e-05_rb /)\n      kbo(:, 1,57, 3) = (/ &\n        & 0.40171e-09_rb,0.25009e-06_rb,0.39211e-06_rb,0.49250e-06_rb,0.39332e-06_rb /)\n      kbo(:, 2,57, 3) = (/ &\n        & 0.43379e-09_rb,0.30473e-06_rb,0.48932e-06_rb,0.61342e-06_rb,0.52076e-06_rb /)\n      kbo(:, 3,57, 3) = (/ &\n        & 0.47729e-09_rb,0.36874e-06_rb,0.59978e-06_rb,0.76246e-06_rb,0.63556e-06_rb /)\n      kbo(:, 4,57, 3) = (/ &\n        & 0.52454e-09_rb,0.44075e-06_rb,0.72488e-06_rb,0.93079e-06_rb,0.75448e-06_rb /)\n      kbo(:, 5,57, 3) = (/ &\n        & 0.58546e-09_rb,0.52389e-06_rb,0.86565e-06_rb,0.11107e-05_rb,0.87858e-06_rb /)\n      kbo(:, 1,58, 3) = (/ &\n        & 0.32222e-09_rb,0.19536e-06_rb,0.30484e-06_rb,0.38123e-06_rb,0.29798e-06_rb /)\n      kbo(:, 2,58, 3) = (/ &\n        & 0.34550e-09_rb,0.24003e-06_rb,0.38206e-06_rb,0.48033e-06_rb,0.40193e-06_rb /)\n      kbo(:, 3,58, 3) = (/ &\n        & 0.37930e-09_rb,0.29179e-06_rb,0.47226e-06_rb,0.59938e-06_rb,0.50056e-06_rb /)\n      kbo(:, 4,58, 3) = (/ &\n        & 0.41675e-09_rb,0.35035e-06_rb,0.57500e-06_rb,0.73642e-06_rb,0.59836e-06_rb /)\n      kbo(:, 5,58, 3) = (/ &\n        & 0.46320e-09_rb,0.41854e-06_rb,0.69041e-06_rb,0.88548e-06_rb,0.70003e-06_rb /)\n      kbo(:, 1,59, 3) = (/ &\n        & 0.26166e-09_rb,0.15868e-06_rb,0.24697e-06_rb,0.30892e-06_rb,0.23964e-06_rb /)\n      kbo(:, 2,59, 3) = (/ &\n        & 0.28095e-09_rb,0.19552e-06_rb,0.31068e-06_rb,0.39037e-06_rb,0.32469e-06_rb /)\n      kbo(:, 3,59, 3) = (/ &\n        & 0.30730e-09_rb,0.23856e-06_rb,0.38554e-06_rb,0.48902e-06_rb,0.40738e-06_rb /)\n      kbo(:, 4,59, 3) = (/ &\n        & 0.33781e-09_rb,0.28749e-06_rb,0.47157e-06_rb,0.60286e-06_rb,0.48803e-06_rb /)\n      kbo(:, 5,59, 3) = (/ &\n        & 0.37526e-09_rb,0.34439e-06_rb,0.56789e-06_rb,0.72742e-06_rb,0.57238e-06_rb /)\n      kbo(:, 1,13, 4) = (/ &\n        & 0.49038e-04_rb,0.50781e-02_rb,0.78254e-02_rb,0.96484e-02_rb,0.10614e-01_rb /)\n      kbo(:, 2,13, 4) = (/ &\n        & 0.54225e-04_rb,0.54905e-02_rb,0.85710e-02_rb,0.10460e-01_rb,0.11206e-01_rb /)\n      kbo(:, 3,13, 4) = (/ &\n        & 0.61134e-04_rb,0.58773e-02_rb,0.93183e-02_rb,0.11347e-01_rb,0.11729e-01_rb /)\n      kbo(:, 4,13, 4) = (/ &\n        & 0.68793e-04_rb,0.62794e-02_rb,0.99768e-02_rb,0.12248e-01_rb,0.12250e-01_rb /)\n      kbo(:, 5,13, 4) = (/ &\n        & 0.77429e-04_rb,0.66893e-02_rb,0.10624e-01_rb,0.13064e-01_rb,0.12730e-01_rb /)\n      kbo(:, 1,14, 4) = (/ &\n        & 0.40706e-04_rb,0.43045e-02_rb,0.66240e-02_rb,0.81227e-02_rb,0.87105e-02_rb /)\n      kbo(:, 2,14, 4) = (/ &\n        & 0.45789e-04_rb,0.46404e-02_rb,0.72547e-02_rb,0.88508e-02_rb,0.92183e-02_rb /)\n      kbo(:, 3,14, 4) = (/ &\n        & 0.51359e-04_rb,0.49670e-02_rb,0.78649e-02_rb,0.95928e-02_rb,0.96590e-02_rb /)\n      kbo(:, 4,14, 4) = (/ &\n        & 0.58448e-04_rb,0.53112e-02_rb,0.84165e-02_rb,0.10356e-01_rb,0.10085e-01_rb /)\n      kbo(:, 5,14, 4) = (/ &\n        & 0.66585e-04_rb,0.56590e-02_rb,0.89770e-02_rb,0.11022e-01_rb,0.10540e-01_rb /)\n      kbo(:, 1,15, 4) = (/ &\n        & 0.33161e-04_rb,0.36374e-02_rb,0.56007e-02_rb,0.68408e-02_rb,0.70399e-02_rb /)\n      kbo(:, 2,15, 4) = (/ &\n        & 0.37316e-04_rb,0.39145e-02_rb,0.61318e-02_rb,0.74812e-02_rb,0.74533e-02_rb /)\n      kbo(:, 3,15, 4) = (/ &\n        & 0.42184e-04_rb,0.41949e-02_rb,0.66272e-02_rb,0.81097e-02_rb,0.78393e-02_rb /)\n      kbo(:, 4,15, 4) = (/ &\n        & 0.48249e-04_rb,0.44861e-02_rb,0.70934e-02_rb,0.87330e-02_rb,0.82262e-02_rb /)\n      kbo(:, 5,15, 4) = (/ &\n        & 0.54912e-04_rb,0.47829e-02_rb,0.75688e-02_rb,0.92830e-02_rb,0.86058e-02_rb /)\n      kbo(:, 1,16, 4) = (/ &\n        & 0.26598e-04_rb,0.30649e-02_rb,0.47323e-02_rb,0.57742e-02_rb,0.56644e-02_rb /)\n      kbo(:, 2,16, 4) = (/ &\n        & 0.30096e-04_rb,0.32950e-02_rb,0.51778e-02_rb,0.63145e-02_rb,0.60193e-02_rb /)\n      kbo(:, 3,16, 4) = (/ &\n        & 0.34085e-04_rb,0.35350e-02_rb,0.55806e-02_rb,0.68447e-02_rb,0.63708e-02_rb /)\n      kbo(:, 4,16, 4) = (/ &\n        & 0.38919e-04_rb,0.37831e-02_rb,0.59719e-02_rb,0.73465e-02_rb,0.67088e-02_rb /)\n      kbo(:, 5,16, 4) = (/ &\n        & 0.44492e-04_rb,0.40393e-02_rb,0.63750e-02_rb,0.78120e-02_rb,0.70249e-02_rb /)\n      kbo(:, 1,17, 4) = (/ &\n        & 0.21449e-04_rb,0.25756e-02_rb,0.39936e-02_rb,0.48662e-02_rb,0.46205e-02_rb /)\n      kbo(:, 2,17, 4) = (/ &\n        & 0.24103e-04_rb,0.27706e-02_rb,0.43619e-02_rb,0.53164e-02_rb,0.49202e-02_rb /)\n      kbo(:, 3,17, 4) = (/ &\n        & 0.27451e-04_rb,0.29765e-02_rb,0.46959e-02_rb,0.57632e-02_rb,0.52122e-02_rb /)\n      kbo(:, 4,17, 4) = (/ &\n        & 0.31381e-04_rb,0.31884e-02_rb,0.50222e-02_rb,0.61735e-02_rb,0.54790e-02_rb /)\n      kbo(:, 5,17, 4) = (/ &\n        & 0.35953e-04_rb,0.34099e-02_rb,0.53645e-02_rb,0.65659e-02_rb,0.57419e-02_rb /)\n      kbo(:, 1,18, 4) = (/ &\n        & 0.17468e-04_rb,0.21642e-02_rb,0.33642e-02_rb,0.40972e-02_rb,0.37921e-02_rb /)\n      kbo(:, 2,18, 4) = (/ &\n        & 0.19506e-04_rb,0.23308e-02_rb,0.36683e-02_rb,0.44696e-02_rb,0.40385e-02_rb /)\n      kbo(:, 3,18, 4) = (/ &\n        & 0.22326e-04_rb,0.25072e-02_rb,0.39454e-02_rb,0.48507e-02_rb,0.42773e-02_rb /)\n      kbo(:, 4,18, 4) = (/ &\n        & 0.25558e-04_rb,0.26901e-02_rb,0.42240e-02_rb,0.51855e-02_rb,0.45000e-02_rb /)\n      kbo(:, 5,18, 4) = (/ &\n        & 0.29519e-04_rb,0.28816e-02_rb,0.45135e-02_rb,0.55168e-02_rb,0.47259e-02_rb /)\n      kbo(:, 1,19, 4) = (/ &\n        & 0.14162e-04_rb,0.18165e-02_rb,0.28311e-02_rb,0.34491e-02_rb,0.31263e-02_rb /)\n      kbo(:, 2,19, 4) = (/ &\n        & 0.15880e-04_rb,0.19594e-02_rb,0.30792e-02_rb,0.37577e-02_rb,0.33277e-02_rb /)\n      kbo(:, 3,19, 4) = (/ &\n        & 0.18250e-04_rb,0.21124e-02_rb,0.33110e-02_rb,0.40717e-02_rb,0.35255e-02_rb /)\n      kbo(:, 4,19, 4) = (/ &\n        & 0.20948e-04_rb,0.22711e-02_rb,0.35512e-02_rb,0.43541e-02_rb,0.37114e-02_rb /)\n      kbo(:, 5,19, 4) = (/ &\n        & 0.24279e-04_rb,0.24360e-02_rb,0.37972e-02_rb,0.46336e-02_rb,0.39063e-02_rb /)\n      kbo(:, 1,20, 4) = (/ &\n        & 0.11677e-04_rb,0.15268e-02_rb,0.23854e-02_rb,0.29054e-02_rb,0.25927e-02_rb /)\n      kbo(:, 2,20, 4) = (/ &\n        & 0.13127e-04_rb,0.16502e-02_rb,0.25884e-02_rb,0.31642e-02_rb,0.27584e-02_rb /)\n      kbo(:, 3,20, 4) = (/ &\n        & 0.15145e-04_rb,0.17827e-02_rb,0.27854e-02_rb,0.34198e-02_rb,0.29228e-02_rb /)\n      kbo(:, 4,20, 4) = (/ &\n        & 0.17426e-04_rb,0.19208e-02_rb,0.29919e-02_rb,0.36563e-02_rb,0.30836e-02_rb /)\n      kbo(:, 5,20, 4) = (/ &\n        & 0.20187e-04_rb,0.20638e-02_rb,0.32027e-02_rb,0.38955e-02_rb,0.32517e-02_rb /)\n      kbo(:, 1,21, 4) = (/ &\n        & 0.96248e-05_rb,0.12839e-02_rb,0.20069e-02_rb,0.24439e-02_rb,0.21521e-02_rb /)\n      kbo(:, 2,21, 4) = (/ &\n        & 0.10884e-04_rb,0.13905e-02_rb,0.21753e-02_rb,0.26634e-02_rb,0.22901e-02_rb /)\n      kbo(:, 3,21, 4) = (/ &\n        & 0.12576e-04_rb,0.15057e-02_rb,0.23430e-02_rb,0.28714e-02_rb,0.24271e-02_rb /)\n      kbo(:, 4,21, 4) = (/ &\n        & 0.14492e-04_rb,0.16245e-02_rb,0.25229e-02_rb,0.30709e-02_rb,0.25653e-02_rb /)\n      kbo(:, 5,21, 4) = (/ &\n        & 0.16785e-04_rb,0.17487e-02_rb,0.27053e-02_rb,0.32769e-02_rb,0.27041e-02_rb /)\n      kbo(:, 1,22, 4) = (/ &\n        & 0.78987e-05_rb,0.10841e-02_rb,0.16963e-02_rb,0.20646e-02_rb,0.17920e-02_rb /)\n      kbo(:, 2,22, 4) = (/ &\n        & 0.90688e-05_rb,0.11783e-02_rb,0.18364e-02_rb,0.22523e-02_rb,0.19054e-02_rb /)\n      kbo(:, 3,22, 4) = (/ &\n        & 0.10436e-04_rb,0.12776e-02_rb,0.19832e-02_rb,0.24220e-02_rb,0.20200e-02_rb /)\n      kbo(:, 4,22, 4) = (/ &\n        & 0.12051e-04_rb,0.13800e-02_rb,0.21391e-02_rb,0.25904e-02_rb,0.21364e-02_rb /)\n      kbo(:, 5,22, 4) = (/ &\n        & 0.13992e-04_rb,0.14877e-02_rb,0.22983e-02_rb,0.27690e-02_rb,0.22519e-02_rb /)\n      kbo(:, 1,23, 4) = (/ &\n        & 0.65143e-05_rb,0.91629e-03_rb,0.14337e-02_rb,0.17468e-02_rb,0.14890e-02_rb /)\n      kbo(:, 2,23, 4) = (/ &\n        & 0.75295e-05_rb,0.99880e-03_rb,0.15532e-02_rb,0.19017e-02_rb,0.15844e-02_rb /)\n      kbo(:, 3,23, 4) = (/ &\n        & 0.86172e-05_rb,0.10843e-02_rb,0.16828e-02_rb,0.20454e-02_rb,0.16822e-02_rb /)\n      kbo(:, 4,23, 4) = (/ &\n        & 0.10017e-04_rb,0.11729e-02_rb,0.18176e-02_rb,0.21912e-02_rb,0.17800e-02_rb /)\n      kbo(:, 5,23, 4) = (/ &\n        & 0.11640e-04_rb,0.12668e-02_rb,0.19549e-02_rb,0.23447e-02_rb,0.18765e-02_rb /)\n      kbo(:, 1,24, 4) = (/ &\n        & 0.53432e-05_rb,0.77571e-03_rb,0.12114e-02_rb,0.14805e-02_rb,0.12372e-02_rb /)\n      kbo(:, 2,24, 4) = (/ &\n        & 0.61515e-05_rb,0.84718e-03_rb,0.13153e-02_rb,0.16078e-02_rb,0.13181e-02_rb /)\n      kbo(:, 3,24, 4) = (/ &\n        & 0.70923e-05_rb,0.92024e-03_rb,0.14293e-02_rb,0.17300e-02_rb,0.13989e-02_rb /)\n      kbo(:, 4,24, 4) = (/ &\n        & 0.82684e-05_rb,0.99740e-03_rb,0.15447e-02_rb,0.18573e-02_rb,0.14811e-02_rb /)\n      kbo(:, 5,24, 4) = (/ &\n        & 0.96268e-05_rb,0.10789e-02_rb,0.16627e-02_rb,0.19892e-02_rb,0.15621e-02_rb /)\n      kbo(:, 1,25, 4) = (/ &\n        & 0.43932e-05_rb,0.65898e-03_rb,0.10259e-02_rb,0.12568e-02_rb,0.10287e-02_rb /)\n      kbo(:, 2,25, 4) = (/ &\n        & 0.50483e-05_rb,0.71973e-03_rb,0.11174e-02_rb,0.13610e-02_rb,0.10973e-02_rb /)\n      kbo(:, 3,25, 4) = (/ &\n        & 0.58527e-05_rb,0.78269e-03_rb,0.12157e-02_rb,0.14658e-02_rb,0.11648e-02_rb /)\n      kbo(:, 4,25, 4) = (/ &\n        & 0.68258e-05_rb,0.84968e-03_rb,0.13158e-02_rb,0.15774e-02_rb,0.12354e-02_rb /)\n      kbo(:, 5,25, 4) = (/ &\n        & 0.79780e-05_rb,0.92093e-03_rb,0.14171e-02_rb,0.16917e-02_rb,0.13029e-02_rb /)\n      kbo(:, 1,26, 4) = (/ &\n        & 0.36349e-05_rb,0.56139e-03_rb,0.87232e-03_rb,0.10671e-02_rb,0.85747e-03_rb /)\n      kbo(:, 2,26, 4) = (/ &\n        & 0.41763e-05_rb,0.61307e-03_rb,0.95284e-03_rb,0.11559e-02_rb,0.91640e-03_rb /)\n      kbo(:, 3,26, 4) = (/ &\n        & 0.48643e-05_rb,0.66769e-03_rb,0.10377e-02_rb,0.12480e-02_rb,0.97417e-03_rb /)\n      kbo(:, 4,26, 4) = (/ &\n        & 0.56806e-05_rb,0.72618e-03_rb,0.11238e-02_rb,0.13443e-02_rb,0.10341e-02_rb /)\n      kbo(:, 5,26, 4) = (/ &\n        & 0.66574e-05_rb,0.78791e-03_rb,0.12118e-02_rb,0.14426e-02_rb,0.10908e-02_rb /)\n      kbo(:, 1,27, 4) = (/ &\n        & 0.29849e-05_rb,0.47845e-03_rb,0.74324e-03_rb,0.90695e-03_rb,0.71654e-03_rb /)\n      kbo(:, 2,27, 4) = (/ &\n        & 0.34528e-05_rb,0.52305e-03_rb,0.81407e-03_rb,0.98348e-03_rb,0.76622e-03_rb /)\n      kbo(:, 3,27, 4) = (/ &\n        & 0.40386e-05_rb,0.57067e-03_rb,0.88635e-03_rb,0.10643e-02_rb,0.81617e-03_rb /)\n      kbo(:, 4,27, 4) = (/ &\n        & 0.47349e-05_rb,0.62159e-03_rb,0.96045e-03_rb,0.11476e-02_rb,0.86667e-03_rb /)\n      kbo(:, 5,27, 4) = (/ &\n        & 0.55504e-05_rb,0.67486e-03_rb,0.10373e-02_rb,0.12327e-02_rb,0.91437e-03_rb /)\n      kbo(:, 1,28, 4) = (/ &\n        & 0.24474e-05_rb,0.40819e-03_rb,0.63469e-03_rb,0.77184e-03_rb,0.59959e-03_rb /)\n      kbo(:, 2,28, 4) = (/ &\n        & 0.28527e-05_rb,0.44694e-03_rb,0.69550e-03_rb,0.83809e-03_rb,0.64151e-03_rb /)\n      kbo(:, 3,28, 4) = (/ &\n        & 0.33444e-05_rb,0.48804e-03_rb,0.75797e-03_rb,0.90921e-03_rb,0.68464e-03_rb /)\n      kbo(:, 4,28, 4) = (/ &\n        & 0.39332e-05_rb,0.53229e-03_rb,0.82174e-03_rb,0.98103e-03_rb,0.72680e-03_rb /)\n      kbo(:, 5,28, 4) = (/ &\n        & 0.46245e-05_rb,0.57864e-03_rb,0.88872e-03_rb,0.10544e-02_rb,0.76723e-03_rb /)\n      kbo(:, 1,29, 4) = (/ &\n        & 0.20253e-05_rb,0.34921e-03_rb,0.54365e-03_rb,0.65865e-03_rb,0.50331e-03_rb /)\n      kbo(:, 2,29, 4) = (/ &\n        & 0.23720e-05_rb,0.38278e-03_rb,0.59577e-03_rb,0.71729e-03_rb,0.53864e-03_rb /)\n      kbo(:, 3,29, 4) = (/ &\n        & 0.27945e-05_rb,0.41887e-03_rb,0.64907e-03_rb,0.77823e-03_rb,0.57581e-03_rb /)\n      kbo(:, 4,29, 4) = (/ &\n        & 0.32936e-05_rb,0.45699e-03_rb,0.70481e-03_rb,0.84074e-03_rb,0.61089e-03_rb /)\n      kbo(:, 5,29, 4) = (/ &\n        & 0.38881e-05_rb,0.49757e-03_rb,0.76325e-03_rb,0.90356e-03_rb,0.64564e-03_rb /)\n      kbo(:, 1,30, 4) = (/ &\n        & 0.16797e-05_rb,0.29918e-03_rb,0.46598e-03_rb,0.56316e-03_rb,0.42270e-03_rb /)\n      kbo(:, 2,30, 4) = (/ &\n        & 0.19764e-05_rb,0.32839e-03_rb,0.51076e-03_rb,0.61439e-03_rb,0.45306e-03_rb /)\n      kbo(:, 3,30, 4) = (/ &\n        & 0.23384e-05_rb,0.35985e-03_rb,0.55686e-03_rb,0.66712e-03_rb,0.48445e-03_rb /)\n      kbo(:, 4,30, 4) = (/ &\n        & 0.27662e-05_rb,0.39302e-03_rb,0.60525e-03_rb,0.72092e-03_rb,0.51425e-03_rb /)\n      kbo(:, 5,30, 4) = (/ &\n        & 0.32687e-05_rb,0.42837e-03_rb,0.65610e-03_rb,0.77570e-03_rb,0.54396e-03_rb /)\n      kbo(:, 1,31, 4) = (/ &\n        & 0.13991e-05_rb,0.25687e-03_rb,0.39996e-03_rb,0.48307e-03_rb,0.35570e-03_rb /)\n      kbo(:, 2,31, 4) = (/ &\n        & 0.16564e-05_rb,0.28246e-03_rb,0.43858e-03_rb,0.52743e-03_rb,0.38211e-03_rb /)\n      kbo(:, 3,31, 4) = (/ &\n        & 0.19660e-05_rb,0.30971e-03_rb,0.47856e-03_rb,0.57309e-03_rb,0.40826e-03_rb /)\n      kbo(:, 4,31, 4) = (/ &\n        & 0.23334e-05_rb,0.33881e-03_rb,0.52066e-03_rb,0.61919e-03_rb,0.43367e-03_rb /)\n      kbo(:, 5,31, 4) = (/ &\n        & 0.27587e-05_rb,0.36964e-03_rb,0.56499e-03_rb,0.66660e-03_rb,0.45969e-03_rb /)\n      kbo(:, 1,32, 4) = (/ &\n        & 0.11711e-05_rb,0.22102e-03_rb,0.34394e-03_rb,0.41512e-03_rb,0.29980e-03_rb /)\n      kbo(:, 2,32, 4) = (/ &\n        & 0.13928e-05_rb,0.24337e-03_rb,0.37713e-03_rb,0.45351e-03_rb,0.32253e-03_rb /)\n      kbo(:, 3,32, 4) = (/ &\n        & 0.16589e-05_rb,0.26704e-03_rb,0.41202e-03_rb,0.49272e-03_rb,0.34442e-03_rb /)\n      kbo(:, 4,32, 4) = (/ &\n        & 0.19740e-05_rb,0.29261e-03_rb,0.44855e-03_rb,0.53274e-03_rb,0.36633e-03_rb /)\n      kbo(:, 5,32, 4) = (/ &\n        & 0.23323e-05_rb,0.31973e-03_rb,0.48726e-03_rb,0.57383e-03_rb,0.38915e-03_rb /)\n      kbo(:, 1,33, 4) = (/ &\n        & 0.98300e-06_rb,0.19047e-03_rb,0.29592e-03_rb,0.35739e-03_rb,0.25303e-03_rb /)\n      kbo(:, 2,33, 4) = (/ &\n        & 0.11751e-05_rb,0.20983e-03_rb,0.32474e-03_rb,0.39043e-03_rb,0.27259e-03_rb /)\n      kbo(:, 3,33, 4) = (/ &\n        & 0.14027e-05_rb,0.23065e-03_rb,0.35505e-03_rb,0.42405e-03_rb,0.29120e-03_rb /)\n      kbo(:, 4,33, 4) = (/ &\n        & 0.16692e-05_rb,0.25302e-03_rb,0.38699e-03_rb,0.45888e-03_rb,0.31018e-03_rb /)\n      kbo(:, 5,33, 4) = (/ &\n        & 0.19716e-05_rb,0.27715e-03_rb,0.42119e-03_rb,0.49468e-03_rb,0.32989e-03_rb /)\n      kbo(:, 1,34, 4) = (/ &\n        & 0.82915e-06_rb,0.16396e-03_rb,0.25433e-03_rb,0.30700e-03_rb,0.21406e-03_rb /)\n      kbo(:, 2,34, 4) = (/ &\n        & 0.99352e-06_rb,0.18083e-03_rb,0.27935e-03_rb,0.33552e-03_rb,0.23048e-03_rb /)\n      kbo(:, 3,34, 4) = (/ &\n        & 0.11877e-05_rb,0.19915e-03_rb,0.30578e-03_rb,0.36455e-03_rb,0.24659e-03_rb /)\n      kbo(:, 4,34, 4) = (/ &\n        & 0.14139e-05_rb,0.21886e-03_rb,0.33384e-03_rb,0.39476e-03_rb,0.26317e-03_rb /)\n      kbo(:, 5,34, 4) = (/ &\n        & 0.16670e-05_rb,0.24021e-03_rb,0.36390e-03_rb,0.42603e-03_rb,0.28005e-03_rb /)\n      kbo(:, 1,35, 4) = (/ &\n        & 0.68670e-06_rb,0.13979e-03_rb,0.21673e-03_rb,0.26161e-03_rb,0.17974e-03_rb /)\n      kbo(:, 2,35, 4) = (/ &\n        & 0.82437e-06_rb,0.15448e-03_rb,0.23846e-03_rb,0.28611e-03_rb,0.19377e-03_rb /)\n      kbo(:, 3,35, 4) = (/ &\n        & 0.98649e-06_rb,0.17044e-03_rb,0.26139e-03_rb,0.31132e-03_rb,0.20765e-03_rb /)\n      kbo(:, 4,35, 4) = (/ &\n        & 0.11740e-05_rb,0.18773e-03_rb,0.28609e-03_rb,0.33740e-03_rb,0.22197e-03_rb /)\n      kbo(:, 5,35, 4) = (/ &\n        & 0.13833e-05_rb,0.20652e-03_rb,0.31233e-03_rb,0.36449e-03_rb,0.23658e-03_rb /)\n      kbo(:, 1,36, 4) = (/ &\n        & 0.55564e-06_rb,0.11786e-03_rb,0.18283e-03_rb,0.22089e-03_rb,0.14951e-03_rb /)\n      kbo(:, 2,36, 4) = (/ &\n        & 0.66731e-06_rb,0.13053e-03_rb,0.20151e-03_rb,0.24189e-03_rb,0.16146e-03_rb /)\n      kbo(:, 3,36, 4) = (/ &\n        & 0.80048e-06_rb,0.14432e-03_rb,0.22154e-03_rb,0.26364e-03_rb,0.17348e-03_rb /)\n      kbo(:, 4,36, 4) = (/ &\n        & 0.95195e-06_rb,0.15937e-03_rb,0.24310e-03_rb,0.28609e-03_rb,0.18577e-03_rb /)\n      kbo(:, 5,36, 4) = (/ &\n        & 0.11217e-05_rb,0.17580e-03_rb,0.26601e-03_rb,0.30949e-03_rb,0.19850e-03_rb /)\n      kbo(:, 1,37, 4) = (/ &\n        & 0.44526e-06_rb,0.98334e-04_rb,0.15236e-03_rb,0.18395e-03_rb,0.12369e-03_rb /)\n      kbo(:, 2,37, 4) = (/ &\n        & 0.53551e-06_rb,0.10927e-03_rb,0.16837e-03_rb,0.20194e-03_rb,0.13387e-03_rb /)\n      kbo(:, 3,37, 4) = (/ &\n        & 0.64307e-06_rb,0.12110e-03_rb,0.18556e-03_rb,0.22059e-03_rb,0.14418e-03_rb /)\n      kbo(:, 4,37, 4) = (/ &\n        & 0.76688e-06_rb,0.13411e-03_rb,0.20414e-03_rb,0.23985e-03_rb,0.15477e-03_rb /)\n      kbo(:, 5,37, 4) = (/ &\n        & 0.90591e-06_rb,0.14842e-03_rb,0.22405e-03_rb,0.25996e-03_rb,0.16566e-03_rb /)\n      kbo(:, 1,38, 4) = (/ &\n        & 0.35630e-06_rb,0.81991e-04_rb,0.12690e-03_rb,0.15312e-03_rb,0.10226e-03_rb /)\n      kbo(:, 2,38, 4) = (/ &\n        & 0.42911e-06_rb,0.91391e-04_rb,0.14064e-03_rb,0.16849e-03_rb,0.11095e-03_rb /)\n      kbo(:, 3,38, 4) = (/ &\n        & 0.51583e-06_rb,0.10163e-03_rb,0.15538e-03_rb,0.18448e-03_rb,0.11977e-03_rb /)\n      kbo(:, 4,38, 4) = (/ &\n        & 0.61654e-06_rb,0.11287e-03_rb,0.17138e-03_rb,0.20101e-03_rb,0.12884e-03_rb /)\n      kbo(:, 5,38, 4) = (/ &\n        & 0.73028e-06_rb,0.12530e-03_rb,0.18862e-03_rb,0.21826e-03_rb,0.13816e-03_rb /)\n      kbo(:, 1,39, 4) = (/ &\n        & 0.28455e-06_rb,0.68362e-04_rb,0.10572e-03_rb,0.12747e-03_rb,0.84494e-04_rb /)\n      kbo(:, 2,39, 4) = (/ &\n        & 0.34313e-06_rb,0.76413e-04_rb,0.11751e-03_rb,0.14060e-03_rb,0.91905e-04_rb /)\n      kbo(:, 3,39, 4) = (/ &\n        & 0.41305e-06_rb,0.85299e-04_rb,0.13016e-03_rb,0.15431e-03_rb,0.99463e-04_rb /)\n      kbo(:, 4,39, 4) = (/ &\n        & 0.49466e-06_rb,0.95047e-04_rb,0.14396e-03_rb,0.16851e-03_rb,0.10725e-03_rb /)\n      kbo(:, 5,39, 4) = (/ &\n        & 0.58721e-06_rb,0.10583e-03_rb,0.15886e-03_rb,0.18332e-03_rb,0.11516e-03_rb /)\n      kbo(:, 1,40, 4) = (/ &\n        & 0.22416e-06_rb,0.56451e-04_rb,0.87192e-04_rb,0.10503e-03_rb,0.69299e-04_rb /)\n      kbo(:, 2,40, 4) = (/ &\n        & 0.27058e-06_rb,0.63325e-04_rb,0.97241e-04_rb,0.11625e-03_rb,0.75635e-04_rb /)\n      kbo(:, 3,40, 4) = (/ &\n        & 0.32640e-06_rb,0.70942e-04_rb,0.10801e-03_rb,0.12792e-03_rb,0.82061e-04_rb /)\n      kbo(:, 4,40, 4) = (/ &\n        & 0.39178e-06_rb,0.79381e-04_rb,0.11985e-03_rb,0.14005e-03_rb,0.88722e-04_rb /)\n      kbo(:, 5,40, 4) = (/ &\n        & 0.46694e-06_rb,0.88673e-04_rb,0.13261e-03_rb,0.15274e-03_rb,0.95437e-04_rb /)\n      kbo(:, 1,41, 4) = (/ &\n        & 0.17620e-06_rb,0.46495e-04_rb,0.71829e-04_rb,0.86351e-04_rb,0.56701e-04_rb /)\n      kbo(:, 2,41, 4) = (/ &\n        & 0.21295e-06_rb,0.52383e-04_rb,0.80380e-04_rb,0.95937e-04_rb,0.62100e-04_rb /)\n      kbo(:, 3,41, 4) = (/ &\n        & 0.25720e-06_rb,0.58900e-04_rb,0.89548e-04_rb,0.10594e-03_rb,0.67568e-04_rb /)\n      kbo(:, 4,41, 4) = (/ &\n        & 0.30957e-06_rb,0.66136e-04_rb,0.99643e-04_rb,0.11623e-03_rb,0.73280e-04_rb /)\n      kbo(:, 5,41, 4) = (/ &\n        & 0.37003e-06_rb,0.74203e-04_rb,0.11061e-03_rb,0.12707e-03_rb,0.78979e-04_rb /)\n      kbo(:, 1,42, 4) = (/ &\n        & 0.13843e-06_rb,0.38238e-04_rb,0.59124e-04_rb,0.70982e-04_rb,0.46331e-04_rb /)\n      kbo(:, 2,42, 4) = (/ &\n        & 0.16726e-06_rb,0.43269e-04_rb,0.66424e-04_rb,0.79125e-04_rb,0.50956e-04_rb /)\n      kbo(:, 3,42, 4) = (/ &\n        & 0.20232e-06_rb,0.48870e-04_rb,0.74247e-04_rb,0.87661e-04_rb,0.55561e-04_rb /)\n      kbo(:, 4,42, 4) = (/ &\n        & 0.24408e-06_rb,0.55119e-04_rb,0.82827e-04_rb,0.96453e-04_rb,0.60447e-04_rb /)\n      kbo(:, 5,42, 4) = (/ &\n        & 0.29276e-06_rb,0.62028e-04_rb,0.92221e-04_rb,0.10570e-03_rb,0.65281e-04_rb /)\n      kbo(:, 1,43, 4) = (/ &\n        & 0.10793e-06_rb,0.31191e-04_rb,0.48305e-04_rb,0.57948e-04_rb,0.37666e-04_rb /)\n      kbo(:, 2,43, 4) = (/ &\n        & 0.13017e-06_rb,0.35465e-04_rb,0.54489e-04_rb,0.64841e-04_rb,0.41556e-04_rb /)\n      kbo(:, 3,43, 4) = (/ &\n        & 0.15771e-06_rb,0.40235e-04_rb,0.61176e-04_rb,0.72082e-04_rb,0.45452e-04_rb /)\n      kbo(:, 4,43, 4) = (/ &\n        & 0.19064e-06_rb,0.45599e-04_rb,0.68488e-04_rb,0.79576e-04_rb,0.49593e-04_rb /)\n      kbo(:, 5,43, 4) = (/ &\n        & 0.22944e-06_rb,0.51552e-04_rb,0.76431e-04_rb,0.87462e-04_rb,0.53715e-04_rb /)\n      kbo(:, 1,44, 4) = (/ &\n        & 0.83879e-07_rb,0.25325e-04_rb,0.39297e-04_rb,0.47118e-04_rb,0.30510e-04_rb /)\n      kbo(:, 2,44, 4) = (/ &\n        & 0.10087e-06_rb,0.28920e-04_rb,0.44532e-04_rb,0.52929e-04_rb,0.33772e-04_rb /)\n      kbo(:, 3,44, 4) = (/ &\n        & 0.12238e-06_rb,0.32977e-04_rb,0.50189e-04_rb,0.59075e-04_rb,0.37069e-04_rb /)\n      kbo(:, 4,44, 4) = (/ &\n        & 0.14813e-06_rb,0.37556e-04_rb,0.56451e-04_rb,0.65448e-04_rb,0.40567e-04_rb /)\n      kbo(:, 5,44, 4) = (/ &\n        & 0.17874e-06_rb,0.42672e-04_rb,0.63196e-04_rb,0.72159e-04_rb,0.44085e-04_rb /)\n      kbo(:, 1,45, 4) = (/ &\n        & 0.65261e-07_rb,0.20516e-04_rb,0.31895e-04_rb,0.38279e-04_rb,0.24650e-04_rb /)\n      kbo(:, 2,45, 4) = (/ &\n        & 0.78145e-07_rb,0.23540e-04_rb,0.36319e-04_rb,0.43161e-04_rb,0.27390e-04_rb /)\n      kbo(:, 3,45, 4) = (/ &\n        & 0.94805e-07_rb,0.26962e-04_rb,0.41134e-04_rb,0.48357e-04_rb,0.30190e-04_rb /)\n      kbo(:, 4,45, 4) = (/ &\n        & 0.11490e-06_rb,0.30858e-04_rb,0.46429e-04_rb,0.53785e-04_rb,0.33136e-04_rb /)\n      kbo(:, 5,45, 4) = (/ &\n        & 0.13905e-06_rb,0.35210e-04_rb,0.52216e-04_rb,0.59482e-04_rb,0.36122e-04_rb /)\n      kbo(:, 1,46, 4) = (/ &\n        & 0.50668e-07_rb,0.16526e-04_rb,0.25752e-04_rb,0.30954e-04_rb,0.19817e-04_rb /)\n      kbo(:, 2,46, 4) = (/ &\n        & 0.60361e-07_rb,0.19058e-04_rb,0.29471e-04_rb,0.35060e-04_rb,0.22123e-04_rb /)\n      kbo(:, 3,46, 4) = (/ &\n        & 0.73101e-07_rb,0.21937e-04_rb,0.33569e-04_rb,0.39461e-04_rb,0.24498e-04_rb /)\n      kbo(:, 4,46, 4) = (/ &\n        & 0.88747e-07_rb,0.25222e-04_rb,0.38048e-04_rb,0.44039e-04_rb,0.26973e-04_rb /)\n      kbo(:, 5,46, 4) = (/ &\n        & 0.10762e-06_rb,0.28932e-04_rb,0.42964e-04_rb,0.48871e-04_rb,0.29499e-04_rb /)\n      kbo(:, 1,47, 4) = (/ &\n        & 0.39185e-07_rb,0.13207e-04_rb,0.20626e-04_rb,0.24835e-04_rb,0.15826e-04_rb /)\n      kbo(:, 2,47, 4) = (/ &\n        & 0.46335e-07_rb,0.15303e-04_rb,0.23722e-04_rb,0.28277e-04_rb,0.17762e-04_rb /)\n      kbo(:, 3,47, 4) = (/ &\n        & 0.55896e-07_rb,0.17703e-04_rb,0.27162e-04_rb,0.31976e-04_rb,0.19780e-04_rb /)\n      kbo(:, 4,47, 4) = (/ &\n        & 0.67962e-07_rb,0.20451e-04_rb,0.30940e-04_rb,0.35867e-04_rb,0.21834e-04_rb /)\n      kbo(:, 5,47, 4) = (/ &\n        & 0.82535e-07_rb,0.23583e-04_rb,0.35128e-04_rb,0.39933e-04_rb,0.23972e-04_rb /)\n      kbo(:, 1,48, 4) = (/ &\n        & 0.30435e-07_rb,0.10528e-04_rb,0.16458e-04_rb,0.19871e-04_rb,0.12630e-04_rb /)\n      kbo(:, 2,48, 4) = (/ &\n        & 0.35657e-07_rb,0.12255e-04_rb,0.19034e-04_rb,0.22757e-04_rb,0.14230e-04_rb /)\n      kbo(:, 3,48, 4) = (/ &\n        & 0.42777e-07_rb,0.14241e-04_rb,0.21916e-04_rb,0.25856e-04_rb,0.15916e-04_rb /)\n      kbo(:, 4,48, 4) = (/ &\n        & 0.51977e-07_rb,0.16531e-04_rb,0.25094e-04_rb,0.29142e-04_rb,0.17632e-04_rb /)\n      kbo(:, 5,48, 4) = (/ &\n        & 0.63246e-07_rb,0.19162e-04_rb,0.28631e-04_rb,0.32586e-04_rb,0.19447e-04_rb /)\n      kbo(:, 1,49, 4) = (/ &\n        & 0.23722e-07_rb,0.83656e-05_rb,0.13088e-04_rb,0.15834e-04_rb,0.10060e-04_rb /)\n      kbo(:, 2,49, 4) = (/ &\n        & 0.27509e-07_rb,0.97869e-05_rb,0.15227e-04_rb,0.18252e-04_rb,0.11363e-04_rb /)\n      kbo(:, 3,49, 4) = (/ &\n        & 0.32769e-07_rb,0.11426e-04_rb,0.17628e-04_rb,0.20853e-04_rb,0.12767e-04_rb /)\n      kbo(:, 4,49, 4) = (/ &\n        & 0.39719e-07_rb,0.13326e-04_rb,0.20285e-04_rb,0.23637e-04_rb,0.14223e-04_rb /)\n      kbo(:, 5,49, 4) = (/ &\n        & 0.48415e-07_rb,0.15524e-04_rb,0.23268e-04_rb,0.26530e-04_rb,0.15739e-04_rb /)\n      kbo(:, 1,50, 4) = (/ &\n        & 0.18623e-07_rb,0.66620e-05_rb,0.10425e-04_rb,0.12634e-04_rb,0.80132e-05_rb /)\n      kbo(:, 2,50, 4) = (/ &\n        & 0.21393e-07_rb,0.78264e-05_rb,0.12188e-04_rb,0.14643e-04_rb,0.90757e-05_rb /)\n      kbo(:, 3,50, 4) = (/ &\n        & 0.25281e-07_rb,0.91787e-05_rb,0.14186e-04_rb,0.16825e-04_rb,0.10247e-04_rb /)\n      kbo(:, 4,50, 4) = (/ &\n        & 0.30530e-07_rb,0.10758e-04_rb,0.16419e-04_rb,0.19178e-04_rb,0.11482e-04_rb /)\n      kbo(:, 5,50, 4) = (/ &\n        & 0.37213e-07_rb,0.12593e-04_rb,0.18920e-04_rb,0.21643e-04_rb,0.12749e-04_rb /)\n      kbo(:, 1,51, 4) = (/ &\n        & 0.14681e-07_rb,0.53043e-05_rb,0.82956e-05_rb,0.10064e-04_rb,0.63669e-05_rb /)\n      kbo(:, 2,51, 4) = (/ &\n        & 0.16717e-07_rb,0.62508e-05_rb,0.97501e-05_rb,0.11737e-04_rb,0.72473e-05_rb /)\n      kbo(:, 3,51, 4) = (/ &\n        & 0.19587e-07_rb,0.73643e-05_rb,0.11400e-04_rb,0.13558e-04_rb,0.82290e-05_rb /)\n      kbo(:, 4,51, 4) = (/ &\n        & 0.23555e-07_rb,0.86748e-05_rb,0.13268e-04_rb,0.15537e-04_rb,0.92634e-05_rb /)\n      kbo(:, 5,51, 4) = (/ &\n        & 0.28671e-07_rb,0.10209e-04_rb,0.15379e-04_rb,0.17635e-04_rb,0.10316e-04_rb /)\n      kbo(:, 1,52, 4) = (/ &\n        & 0.11626e-07_rb,0.42149e-05_rb,0.65740e-05_rb,0.79835e-05_rb,0.50595e-05_rb /)\n      kbo(:, 2,52, 4) = (/ &\n        & 0.13102e-07_rb,0.49884e-05_rb,0.77758e-05_rb,0.93846e-05_rb,0.57856e-05_rb /)\n      kbo(:, 3,52, 4) = (/ &\n        & 0.15208e-07_rb,0.58955e-05_rb,0.91392e-05_rb,0.10898e-04_rb,0.65937e-05_rb /)\n      kbo(:, 4,52, 4) = (/ &\n        & 0.18174e-07_rb,0.69758e-05_rb,0.10692e-04_rb,0.12554e-04_rb,0.74564e-05_rb /)\n      kbo(:, 5,52, 4) = (/ &\n        & 0.22057e-07_rb,0.82505e-05_rb,0.12462e-04_rb,0.14331e-04_rb,0.83301e-05_rb /)\n      kbo(:, 1,53, 4) = (/ &\n        & 0.92130e-08_rb,0.33378e-05_rb,0.51998e-05_rb,0.63006e-05_rb,0.40097e-05_rb /)\n      kbo(:, 2,53, 4) = (/ &\n        & 0.10298e-07_rb,0.39704e-05_rb,0.61839e-05_rb,0.74775e-05_rb,0.46077e-05_rb /)\n      kbo(:, 3,53, 4) = (/ &\n        & 0.11831e-07_rb,0.47088e-05_rb,0.73062e-05_rb,0.87345e-05_rb,0.52620e-05_rb /)\n      kbo(:, 4,53, 4) = (/ &\n        & 0.14030e-07_rb,0.55942e-05_rb,0.85921e-05_rb,0.10119e-04_rb,0.59838e-05_rb /)\n      kbo(:, 5,53, 4) = (/ &\n        & 0.16970e-07_rb,0.66447e-05_rb,0.10063e-04_rb,0.11620e-04_rb,0.67208e-05_rb /)\n      kbo(:, 1,54, 4) = (/ &\n        & 0.73443e-08_rb,0.26498e-05_rb,0.41229e-05_rb,0.49788e-05_rb,0.31929e-05_rb /)\n      kbo(:, 2,54, 4) = (/ &\n        & 0.81453e-08_rb,0.31689e-05_rb,0.49320e-05_rb,0.59701e-05_rb,0.36706e-05_rb /)\n      kbo(:, 3,54, 4) = (/ &\n        & 0.92853e-08_rb,0.37746e-05_rb,0.58561e-05_rb,0.70139e-05_rb,0.42105e-05_rb /)\n      kbo(:, 4,54, 4) = (/ &\n        & 0.10913e-07_rb,0.44986e-05_rb,0.69192e-05_rb,0.81733e-05_rb,0.48081e-05_rb /)\n      kbo(:, 5,54, 4) = (/ &\n        & 0.13151e-07_rb,0.53689e-05_rb,0.81469e-05_rb,0.94377e-05_rb,0.54320e-05_rb /)\n      kbo(:, 1,55, 4) = (/ &\n        & 0.58690e-08_rb,0.21056e-05_rb,0.32710e-05_rb,0.39362e-05_rb,0.25357e-05_rb /)\n      kbo(:, 2,55, 4) = (/ &\n        & 0.64824e-08_rb,0.25292e-05_rb,0.39335e-05_rb,0.47652e-05_rb,0.29266e-05_rb /)\n      kbo(:, 3,55, 4) = (/ &\n        & 0.73195e-08_rb,0.30260e-05_rb,0.46942e-05_rb,0.56346e-05_rb,0.33700e-05_rb /)\n      kbo(:, 4,55, 4) = (/ &\n        & 0.85298e-08_rb,0.36216e-05_rb,0.55727e-05_rb,0.65990e-05_rb,0.38662e-05_rb /)\n      kbo(:, 5,55, 4) = (/ &\n        & 0.10227e-07_rb,0.43366e-05_rb,0.65935e-05_rb,0.76627e-05_rb,0.43889e-05_rb /)\n      kbo(:, 1,56, 4) = (/ &\n        & 0.46879e-08_rb,0.16674e-05_rb,0.25848e-05_rb,0.30992e-05_rb,0.20097e-05_rb /)\n      kbo(:, 2,56, 4) = (/ &\n        & 0.51579e-08_rb,0.20145e-05_rb,0.31307e-05_rb,0.37875e-05_rb,0.23304e-05_rb /)\n      kbo(:, 3,56, 4) = (/ &\n        & 0.57829e-08_rb,0.24199e-05_rb,0.37529e-05_rb,0.45119e-05_rb,0.26962e-05_rb /)\n      kbo(:, 4,56, 4) = (/ &\n        & 0.66817e-08_rb,0.29092e-05_rb,0.44788e-05_rb,0.53142e-05_rb,0.31037e-05_rb /)\n      kbo(:, 5,56, 4) = (/ &\n        & 0.79548e-08_rb,0.34985e-05_rb,0.53248e-05_rb,0.62066e-05_rb,0.35387e-05_rb /)\n      kbo(:, 1,57, 4) = (/ &\n        & 0.37487e-08_rb,0.13177e-05_rb,0.20362e-05_rb,0.24278e-05_rb,0.15888e-05_rb /)\n      kbo(:, 2,57, 4) = (/ &\n        & 0.41132e-08_rb,0.16006e-05_rb,0.24863e-05_rb,0.30001e-05_rb,0.18530e-05_rb /)\n      kbo(:, 3,57, 4) = (/ &\n        & 0.45796e-08_rb,0.19301e-05_rb,0.29957e-05_rb,0.36053e-05_rb,0.21515e-05_rb /)\n      kbo(:, 4,57, 4) = (/ &\n        & 0.52447e-08_rb,0.23301e-05_rb,0.35902e-05_rb,0.42690e-05_rb,0.24844e-05_rb /)\n      kbo(:, 5,57, 4) = (/ &\n        & 0.61952e-08_rb,0.28175e-05_rb,0.42894e-05_rb,0.50133e-05_rb,0.28503e-05_rb /)\n      kbo(:, 1,58, 4) = (/ &\n        & 0.30053e-08_rb,0.10419e-05_rb,0.16034e-05_rb,0.19071e-05_rb,0.12550e-05_rb /)\n      kbo(:, 2,58, 4) = (/ &\n        & 0.32906e-08_rb,0.12717e-05_rb,0.19750e-05_rb,0.23751e-05_rb,0.14761e-05_rb /)\n      kbo(:, 3,58, 4) = (/ &\n        & 0.36412e-08_rb,0.15413e-05_rb,0.23950e-05_rb,0.28817e-05_rb,0.17173e-05_rb /)\n      kbo(:, 4,58, 4) = (/ &\n        & 0.41327e-08_rb,0.18673e-05_rb,0.28800e-05_rb,0.34301e-05_rb,0.19893e-05_rb /)\n      kbo(:, 5,58, 4) = (/ &\n        & 0.48448e-08_rb,0.22699e-05_rb,0.34559e-05_rb,0.40496e-05_rb,0.22938e-05_rb /)\n      kbo(:, 1,59, 4) = (/ &\n        & 0.24517e-08_rb,0.85367e-06_rb,0.13121e-05_rb,0.15587e-05_rb,0.10209e-05_rb /)\n      kbo(:, 2,59, 4) = (/ &\n        & 0.26814e-08_rb,0.10459e-05_rb,0.16241e-05_rb,0.19505e-05_rb,0.12067e-05_rb /)\n      kbo(:, 3,59, 4) = (/ &\n        & 0.29604e-08_rb,0.12726e-05_rb,0.19786e-05_rb,0.23765e-05_rb,0.14071e-05_rb /)\n      kbo(:, 4,59, 4) = (/ &\n        & 0.33490e-08_rb,0.15486e-05_rb,0.23884e-05_rb,0.28393e-05_rb,0.16353e-05_rb /)\n      kbo(:, 5,59, 4) = (/ &\n        & 0.39177e-08_rb,0.18923e-05_rb,0.28751e-05_rb,0.33648e-05_rb,0.18896e-05_rb /)\n      kbo(:, 1,13, 5) = (/ &\n        & 0.10606e-02_rb,0.17616e-01_rb,0.26337e-01_rb,0.30832e-01_rb,0.23250e-01_rb /)\n      kbo(:, 2,13, 5) = (/ &\n        & 0.11975e-02_rb,0.18851e-01_rb,0.27746e-01_rb,0.32191e-01_rb,0.24461e-01_rb /)\n      kbo(:, 3,13, 5) = (/ &\n        & 0.13686e-02_rb,0.20236e-01_rb,0.29224e-01_rb,0.33409e-01_rb,0.25538e-01_rb /)\n      kbo(:, 4,13, 5) = (/ &\n        & 0.15788e-02_rb,0.21686e-01_rb,0.30822e-01_rb,0.34581e-01_rb,0.26483e-01_rb /)\n      kbo(:, 5,13, 5) = (/ &\n        & 0.18422e-02_rb,0.23201e-01_rb,0.32485e-01_rb,0.35791e-01_rb,0.27339e-01_rb /)\n      kbo(:, 1,14, 5) = (/ &\n        & 0.90299e-03_rb,0.14939e-01_rb,0.22235e-01_rb,0.25969e-01_rb,0.19459e-01_rb /)\n      kbo(:, 2,14, 5) = (/ &\n        & 0.10276e-02_rb,0.16043e-01_rb,0.23464e-01_rb,0.27102e-01_rb,0.20418e-01_rb /)\n      kbo(:, 3,14, 5) = (/ &\n        & 0.11848e-02_rb,0.17244e-01_rb,0.24766e-01_rb,0.28137e-01_rb,0.21279e-01_rb /)\n      kbo(:, 4,14, 5) = (/ &\n        & 0.13763e-02_rb,0.18494e-01_rb,0.26159e-01_rb,0.29141e-01_rb,0.22035e-01_rb /)\n      kbo(:, 5,14, 5) = (/ &\n        & 0.16087e-02_rb,0.19801e-01_rb,0.27586e-01_rb,0.30208e-01_rb,0.22712e-01_rb /)\n      kbo(:, 1,15, 5) = (/ &\n        & 0.76169e-03_rb,0.12657e-01_rb,0.18744e-01_rb,0.21807e-01_rb,0.16155e-01_rb /)\n      kbo(:, 2,15, 5) = (/ &\n        & 0.87429e-03_rb,0.13622e-01_rb,0.19820e-01_rb,0.22753e-01_rb,0.16908e-01_rb /)\n      kbo(:, 3,15, 5) = (/ &\n        & 0.10153e-02_rb,0.14650e-01_rb,0.20967e-01_rb,0.23637e-01_rb,0.17597e-01_rb /)\n      kbo(:, 4,15, 5) = (/ &\n        & 0.11860e-02_rb,0.15728e-01_rb,0.22159e-01_rb,0.24521e-01_rb,0.18236e-01_rb /)\n      kbo(:, 5,15, 5) = (/ &\n        & 0.13940e-02_rb,0.16855e-01_rb,0.23377e-01_rb,0.25442e-01_rb,0.18800e-01_rb /)\n      kbo(:, 1,16, 5) = (/ &\n        & 0.63979e-03_rb,0.10716e-01_rb,0.15782e-01_rb,0.18280e-01_rb,0.13330e-01_rb /)\n      kbo(:, 2,16, 5) = (/ &\n        & 0.73992e-03_rb,0.11550e-01_rb,0.16721e-01_rb,0.19074e-01_rb,0.13955e-01_rb /)\n      kbo(:, 3,16, 5) = (/ &\n        & 0.86535e-03_rb,0.12432e-01_rb,0.17715e-01_rb,0.19835e-01_rb,0.14519e-01_rb /)\n      kbo(:, 4,16, 5) = (/ &\n        & 0.10180e-02_rb,0.13358e-01_rb,0.18733e-01_rb,0.20612e-01_rb,0.15053e-01_rb /)\n      kbo(:, 5,16, 5) = (/ &\n        & 0.12020e-02_rb,0.14330e-01_rb,0.19780e-01_rb,0.21390e-01_rb,0.15523e-01_rb /)\n      kbo(:, 1,17, 5) = (/ &\n        & 0.53827e-03_rb,0.90675e-02_rb,0.13282e-01_rb,0.15310e-01_rb,0.11002e-01_rb /)\n      kbo(:, 2,17, 5) = (/ &\n        & 0.62733e-03_rb,0.97818e-02_rb,0.14093e-01_rb,0.15985e-01_rb,0.11517e-01_rb /)\n      kbo(:, 3,17, 5) = (/ &\n        & 0.73894e-03_rb,0.10536e-01_rb,0.14937e-01_rb,0.16642e-01_rb,0.11982e-01_rb /)\n      kbo(:, 4,17, 5) = (/ &\n        & 0.87471e-03_rb,0.11329e-01_rb,0.15813e-01_rb,0.17308e-01_rb,0.12431e-01_rb /)\n      kbo(:, 5,17, 5) = (/ &\n        & 0.10369e-02_rb,0.12167e-01_rb,0.16717e-01_rb,0.17966e-01_rb,0.12833e-01_rb /)\n      kbo(:, 1,18, 5) = (/ &\n        & 0.45632e-03_rb,0.76631e-02_rb,0.11175e-01_rb,0.12821e-01_rb,0.91007e-02_rb /)\n      kbo(:, 2,18, 5) = (/ &\n        & 0.53618e-03_rb,0.82741e-02_rb,0.11867e-01_rb,0.13402e-01_rb,0.95284e-02_rb /)\n      kbo(:, 3,18, 5) = (/ &\n        & 0.63520e-03_rb,0.89179e-02_rb,0.12591e-01_rb,0.13960e-01_rb,0.99227e-02_rb /)\n      kbo(:, 4,18, 5) = (/ &\n        & 0.75513e-03_rb,0.95966e-02_rb,0.13345e-01_rb,0.14529e-01_rb,0.10294e-01_rb /)\n      kbo(:, 5,18, 5) = (/ &\n        & 0.89828e-03_rb,0.10325e-01_rb,0.14127e-01_rb,0.15082e-01_rb,0.10637e-01_rb /)\n      kbo(:, 1,19, 5) = (/ &\n        & 0.38782e-03_rb,0.64686e-02_rb,0.93947e-02_rb,0.10738e-01_rb,0.75366e-02_rb /)\n      kbo(:, 2,19, 5) = (/ &\n        & 0.45826e-03_rb,0.69872e-02_rb,0.99878e-02_rb,0.11230e-01_rb,0.78920e-02_rb /)\n      kbo(:, 3,19, 5) = (/ &\n        & 0.54544e-03_rb,0.75386e-02_rb,0.10613e-01_rb,0.11706e-01_rb,0.82219e-02_rb /)\n      kbo(:, 4,19, 5) = (/ &\n        & 0.65085e-03_rb,0.81243e-02_rb,0.11261e-01_rb,0.12183e-01_rb,0.85447e-02_rb /)\n      kbo(:, 5,19, 5) = (/ &\n        & 0.77601e-03_rb,0.87598e-02_rb,0.11933e-01_rb,0.12660e-01_rb,0.88388e-02_rb /)\n      kbo(:, 1,20, 5) = (/ &\n        & 0.33304e-03_rb,0.54623e-02_rb,0.79028e-02_rb,0.89960e-02_rb,0.62635e-02_rb /)\n      kbo(:, 2,20, 5) = (/ &\n        & 0.39553e-03_rb,0.59055e-02_rb,0.84155e-02_rb,0.94111e-02_rb,0.65613e-02_rb /)\n      kbo(:, 3,20, 5) = (/ &\n        & 0.47180e-03_rb,0.63779e-02_rb,0.89500e-02_rb,0.98172e-02_rb,0.68459e-02_rb /)\n      kbo(:, 4,20, 5) = (/ &\n        & 0.56453e-03_rb,0.68862e-02_rb,0.95048e-02_rb,0.10225e-01_rb,0.71246e-02_rb /)\n      kbo(:, 5,20, 5) = (/ &\n        & 0.67486e-03_rb,0.74411e-02_rb,0.10082e-01_rb,0.10637e-01_rb,0.73786e-02_rb /)\n      kbo(:, 1,21, 5) = (/ &\n        & 0.28693e-03_rb,0.46180e-02_rb,0.66504e-02_rb,0.75379e-02_rb,0.52071e-02_rb /)\n      kbo(:, 2,21, 5) = (/ &\n        & 0.34180e-03_rb,0.49948e-02_rb,0.70898e-02_rb,0.78866e-02_rb,0.54645e-02_rb /)\n      kbo(:, 3,21, 5) = (/ &\n        & 0.40811e-03_rb,0.54006e-02_rb,0.75474e-02_rb,0.82331e-02_rb,0.57127e-02_rb /)\n      kbo(:, 4,21, 5) = (/ &\n        & 0.48873e-03_rb,0.58434e-02_rb,0.80212e-02_rb,0.85844e-02_rb,0.59470e-02_rb /)\n      kbo(:, 5,21, 5) = (/ &\n        & 0.58593e-03_rb,0.63260e-02_rb,0.85182e-02_rb,0.89408e-02_rb,0.61662e-02_rb /)\n      kbo(:, 1,22, 5) = (/ &\n        & 0.24974e-03_rb,0.39240e-02_rb,0.56208e-02_rb,0.63345e-02_rb,0.43431e-02_rb /)\n      kbo(:, 2,22, 5) = (/ &\n        & 0.29749e-03_rb,0.42526e-02_rb,0.59996e-02_rb,0.66266e-02_rb,0.45624e-02_rb /)\n      kbo(:, 3,22, 5) = (/ &\n        & 0.35608e-03_rb,0.46047e-02_rb,0.63919e-02_rb,0.69259e-02_rb,0.47738e-02_rb /)\n      kbo(:, 4,22, 5) = (/ &\n        & 0.42699e-03_rb,0.49920e-02_rb,0.67993e-02_rb,0.72276e-02_rb,0.49714e-02_rb /)\n      kbo(:, 5,22, 5) = (/ &\n        & 0.51198e-03_rb,0.54166e-02_rb,0.72302e-02_rb,0.75387e-02_rb,0.51660e-02_rb /)\n      kbo(:, 1,23, 5) = (/ &\n        & 0.21716e-03_rb,0.33375e-02_rb,0.47528e-02_rb,0.53238e-02_rb,0.36258e-02_rb /)\n      kbo(:, 2,23, 5) = (/ &\n        & 0.25886e-03_rb,0.36243e-02_rb,0.50797e-02_rb,0.55740e-02_rb,0.38107e-02_rb /)\n      kbo(:, 3,23, 5) = (/ &\n        & 0.31026e-03_rb,0.39353e-02_rb,0.54169e-02_rb,0.58309e-02_rb,0.39876e-02_rb /)\n      kbo(:, 4,23, 5) = (/ &\n        & 0.37235e-03_rb,0.42757e-02_rb,0.57711e-02_rb,0.60911e-02_rb,0.41586e-02_rb /)\n      kbo(:, 5,23, 5) = (/ &\n        & 0.44568e-03_rb,0.46463e-02_rb,0.61476e-02_rb,0.63633e-02_rb,0.43277e-02_rb /)\n      kbo(:, 1,24, 5) = (/ &\n        & 0.18738e-03_rb,0.28412e-02_rb,0.40251e-02_rb,0.44754e-02_rb,0.30232e-02_rb /)\n      kbo(:, 2,24, 5) = (/ &\n        & 0.22422e-03_rb,0.30930e-02_rb,0.43062e-02_rb,0.46921e-02_rb,0.31788e-02_rb /)\n      kbo(:, 3,24, 5) = (/ &\n        & 0.26942e-03_rb,0.33694e-02_rb,0.45983e-02_rb,0.49126e-02_rb,0.33287e-02_rb /)\n      kbo(:, 4,24, 5) = (/ &\n        & 0.32317e-03_rb,0.36702e-02_rb,0.49092e-02_rb,0.51393e-02_rb,0.34771e-02_rb /)\n      kbo(:, 5,24, 5) = (/ &\n        & 0.38638e-03_rb,0.39951e-02_rb,0.52385e-02_rb,0.53815e-02_rb,0.36232e-02_rb /)\n      kbo(:, 1,25, 5) = (/ &\n        & 0.16224e-03_rb,0.24232e-02_rb,0.34141e-02_rb,0.37661e-02_rb,0.25262e-02_rb /)\n      kbo(:, 2,25, 5) = (/ &\n        & 0.19465e-03_rb,0.26463e-02_rb,0.36575e-02_rb,0.39541e-02_rb,0.26577e-02_rb /)\n      kbo(:, 3,25, 5) = (/ &\n        & 0.23391e-03_rb,0.28936e-02_rb,0.39130e-02_rb,0.41446e-02_rb,0.27841e-02_rb /)\n      kbo(:, 4,25, 5) = (/ &\n        & 0.28044e-03_rb,0.31598e-02_rb,0.41853e-02_rb,0.43442e-02_rb,0.29098e-02_rb /)\n      kbo(:, 5,25, 5) = (/ &\n        & 0.33483e-03_rb,0.34437e-02_rb,0.44735e-02_rb,0.45625e-02_rb,0.30351e-02_rb /)\n      kbo(:, 1,26, 5) = (/ &\n        & 0.14132e-03_rb,0.20737e-02_rb,0.29036e-02_rb,0.31762e-02_rb,0.21157e-02_rb /)\n      kbo(:, 2,26, 5) = (/ &\n        & 0.16977e-03_rb,0.22743e-02_rb,0.31152e-02_rb,0.33382e-02_rb,0.22258e-02_rb /)\n      kbo(:, 3,26, 5) = (/ &\n        & 0.20409e-03_rb,0.24947e-02_rb,0.33401e-02_rb,0.35048e-02_rb,0.23338e-02_rb /)\n      kbo(:, 4,26, 5) = (/ &\n        & 0.24472e-03_rb,0.27297e-02_rb,0.35798e-02_rb,0.36835e-02_rb,0.24421e-02_rb /)\n      kbo(:, 5,26, 5) = (/ &\n        & 0.29131e-03_rb,0.29804e-02_rb,0.38308e-02_rb,0.38797e-02_rb,0.25500e-02_rb /)\n      kbo(:, 1,27, 5) = (/ &\n        & 0.12293e-03_rb,0.17797e-02_rb,0.24725e-02_rb,0.26822e-02_rb,0.17718e-02_rb /)\n      kbo(:, 2,27, 5) = (/ &\n        & 0.14789e-03_rb,0.19595e-02_rb,0.26584e-02_rb,0.28222e-02_rb,0.18655e-02_rb /)\n      kbo(:, 3,27, 5) = (/ &\n        & 0.17790e-03_rb,0.21552e-02_rb,0.28584e-02_rb,0.29695e-02_rb,0.19589e-02_rb /)\n      kbo(:, 4,27, 5) = (/ &\n        & 0.21315e-03_rb,0.23624e-02_rb,0.30688e-02_rb,0.31309e-02_rb,0.20520e-02_rb /)\n      kbo(:, 5,27, 5) = (/ &\n        & 0.25285e-03_rb,0.25825e-02_rb,0.32876e-02_rb,0.33068e-02_rb,0.21445e-02_rb /)\n      kbo(:, 1,28, 5) = (/ &\n        & 0.10657e-03_rb,0.15319e-02_rb,0.21096e-02_rb,0.22678e-02_rb,0.14844e-02_rb /)\n      kbo(:, 2,28, 5) = (/ &\n        & 0.12856e-03_rb,0.16920e-02_rb,0.22743e-02_rb,0.23899e-02_rb,0.15639e-02_rb /)\n      kbo(:, 3,28, 5) = (/ &\n        & 0.15471e-03_rb,0.18636e-02_rb,0.24511e-02_rb,0.25221e-02_rb,0.16436e-02_rb /)\n      kbo(:, 4,28, 5) = (/ &\n        & 0.18512e-03_rb,0.20472e-02_rb,0.26364e-02_rb,0.26681e-02_rb,0.17238e-02_rb /)\n      kbo(:, 5,28, 5) = (/ &\n        & 0.21872e-03_rb,0.22411e-02_rb,0.28270e-02_rb,0.28260e-02_rb,0.18048e-02_rb /)\n      kbo(:, 1,29, 5) = (/ &\n        & 0.92876e-04_rb,0.13237e-02_rb,0.18049e-02_rb,0.19214e-02_rb,0.12471e-02_rb /)\n      kbo(:, 2,29, 5) = (/ &\n        & 0.11226e-03_rb,0.14659e-02_rb,0.19518e-02_rb,0.20295e-02_rb,0.13143e-02_rb /)\n      kbo(:, 3,29, 5) = (/ &\n        & 0.13519e-03_rb,0.16171e-02_rb,0.21089e-02_rb,0.21498e-02_rb,0.13833e-02_rb /)\n      kbo(:, 4,29, 5) = (/ &\n        & 0.16102e-03_rb,0.17778e-02_rb,0.22703e-02_rb,0.22810e-02_rb,0.14528e-02_rb /)\n      kbo(:, 5,29, 5) = (/ &\n        & 0.18981e-03_rb,0.19484e-02_rb,0.24374e-02_rb,0.24249e-02_rb,0.15236e-02_rb /)\n      kbo(:, 1,30, 5) = (/ &\n        & 0.80828e-04_rb,0.11471e-02_rb,0.15486e-02_rb,0.16307e-02_rb,0.10482e-02_rb /)\n      kbo(:, 2,30, 5) = (/ &\n        & 0.98063e-04_rb,0.12718e-02_rb,0.16797e-02_rb,0.17287e-02_rb,0.11053e-02_rb /)\n      kbo(:, 3,30, 5) = (/ &\n        & 0.11772e-03_rb,0.14050e-02_rb,0.18177e-02_rb,0.18379e-02_rb,0.11648e-02_rb /)\n      kbo(:, 4,30, 5) = (/ &\n        & 0.13981e-03_rb,0.15469e-02_rb,0.19589e-02_rb,0.19565e-02_rb,0.12258e-02_rb /)\n      kbo(:, 5,30, 5) = (/ &\n        & 0.16446e-03_rb,0.16947e-02_rb,0.21055e-02_rb,0.20874e-02_rb,0.12885e-02_rb /)\n      kbo(:, 1,31, 5) = (/ &\n        & 0.70539e-04_rb,0.99621e-03_rb,0.13325e-02_rb,0.13879e-02_rb,0.88220e-03_rb /)\n      kbo(:, 2,31, 5) = (/ &\n        & 0.85589e-04_rb,0.11063e-02_rb,0.14492e-02_rb,0.14776e-02_rb,0.93113e-03_rb /)\n      kbo(:, 3,31, 5) = (/ &\n        & 0.10244e-03_rb,0.12240e-02_rb,0.15701e-02_rb,0.15764e-02_rb,0.98237e-03_rb /)\n      kbo(:, 4,31, 5) = (/ &\n        & 0.12151e-03_rb,0.13488e-02_rb,0.16942e-02_rb,0.16846e-02_rb,0.10364e-02_rb /)\n      kbo(:, 5,31, 5) = (/ &\n        & 0.14245e-03_rb,0.14753e-02_rb,0.18229e-02_rb,0.18042e-02_rb,0.10910e-02_rb /)\n      kbo(:, 1,32, 5) = (/ &\n        & 0.61598e-04_rb,0.86708e-03_rb,0.11506e-02_rb,0.11857e-02_rb,0.74396e-03_rb /)\n      kbo(:, 2,32, 5) = (/ &\n        & 0.74698e-04_rb,0.96443e-03_rb,0.12533e-02_rb,0.12673e-02_rb,0.78590e-03_rb /)\n      kbo(:, 3,32, 5) = (/ &\n        & 0.89092e-04_rb,0.10684e-02_rb,0.13590e-02_rb,0.13571e-02_rb,0.83090e-03_rb /)\n      kbo(:, 4,32, 5) = (/ &\n        & 0.10537e-03_rb,0.11766e-02_rb,0.14682e-02_rb,0.14560e-02_rb,0.87827e-03_rb /)\n      kbo(:, 5,32, 5) = (/ &\n        & 0.12327e-03_rb,0.12850e-02_rb,0.15813e-02_rb,0.15643e-02_rb,0.92599e-03_rb /)\n      kbo(:, 1,33, 5) = (/ &\n        & 0.53748e-04_rb,0.75629e-03_rb,0.99595e-03_rb,0.10163e-02_rb,0.62809e-03_rb /)\n      kbo(:, 2,33, 5) = (/ &\n        & 0.64972e-04_rb,0.84265e-03_rb,0.10856e-02_rb,0.10908e-02_rb,0.66416e-03_rb /)\n      kbo(:, 3,33, 5) = (/ &\n        & 0.77386e-04_rb,0.93397e-03_rb,0.11787e-02_rb,0.11727e-02_rb,0.70387e-03_rb /)\n      kbo(:, 4,33, 5) = (/ &\n        & 0.91138e-04_rb,0.10266e-02_rb,0.12749e-02_rb,0.12630e-02_rb,0.74507e-03_rb /)\n      kbo(:, 5,33, 5) = (/ &\n        & 0.10640e-03_rb,0.11189e-02_rb,0.13738e-02_rb,0.13608e-02_rb,0.78830e-03_rb /)\n      kbo(:, 1,34, 5) = (/ &\n        & 0.46667e-04_rb,0.65884e-03_rb,0.86049e-03_rb,0.87214e-03_rb,0.53099e-03_rb /)\n      kbo(:, 2,34, 5) = (/ &\n        & 0.56263e-04_rb,0.73490e-03_rb,0.93900e-03_rb,0.93946e-03_rb,0.56278e-03_rb /)\n      kbo(:, 3,34, 5) = (/ &\n        & 0.66853e-04_rb,0.81383e-03_rb,0.10209e-02_rb,0.10142e-02_rb,0.59776e-03_rb /)\n      kbo(:, 4,34, 5) = (/ &\n        & 0.78598e-04_rb,0.89314e-03_rb,0.11054e-02_rb,0.10963e-02_rb,0.63419e-03_rb /)\n      kbo(:, 5,34, 5) = (/ &\n        & 0.91503e-04_rb,0.97193e-03_rb,0.11927e-02_rb,0.11840e-02_rb,0.67320e-03_rb /)\n      kbo(:, 1,35, 5) = (/ &\n        & 0.39599e-04_rb,0.56866e-03_rb,0.73803e-03_rb,0.74491e-03_rb,0.44688e-03_rb /)\n      kbo(:, 2,35, 5) = (/ &\n        & 0.47677e-04_rb,0.63490e-03_rb,0.80685e-03_rb,0.80540e-03_rb,0.47466e-03_rb /)\n      kbo(:, 3,35, 5) = (/ &\n        & 0.56630e-04_rb,0.70279e-03_rb,0.87860e-03_rb,0.87332e-03_rb,0.50476e-03_rb /)\n      kbo(:, 4,35, 5) = (/ &\n        & 0.66506e-04_rb,0.77061e-03_rb,0.95262e-03_rb,0.94676e-03_rb,0.53730e-03_rb /)\n      kbo(:, 5,35, 5) = (/ &\n        & 0.77343e-04_rb,0.83870e-03_rb,0.10295e-02_rb,0.10250e-02_rb,0.57200e-03_rb /)\n      kbo(:, 1,36, 5) = (/ &\n        & 0.32767e-04_rb,0.48523e-03_rb,0.62751e-03_rb,0.63183e-03_rb,0.37353e-03_rb /)\n      kbo(:, 2,36, 5) = (/ &\n        & 0.39450e-04_rb,0.54261e-03_rb,0.68744e-03_rb,0.68587e-03_rb,0.39744e-03_rb /)\n      kbo(:, 3,36, 5) = (/ &\n        & 0.46861e-04_rb,0.60093e-03_rb,0.74977e-03_rb,0.74623e-03_rb,0.42315e-03_rb /)\n      kbo(:, 4,36, 5) = (/ &\n        & 0.54956e-04_rb,0.65916e-03_rb,0.81469e-03_rb,0.81158e-03_rb,0.45144e-03_rb /)\n      kbo(:, 5,36, 5) = (/ &\n        & 0.63908e-04_rb,0.71820e-03_rb,0.88212e-03_rb,0.88103e-03_rb,0.48165e-03_rb /)\n      kbo(:, 1,37, 5) = (/ &\n        & 0.26734e-04_rb,0.40754e-03_rb,0.52645e-03_rb,0.53014e-03_rb,0.31118e-03_rb /)\n      kbo(:, 2,37, 5) = (/ &\n        & 0.32273e-04_rb,0.45661e-03_rb,0.57825e-03_rb,0.57766e-03_rb,0.33206e-03_rb /)\n      kbo(:, 3,37, 5) = (/ &\n        & 0.38488e-04_rb,0.50697e-03_rb,0.63245e-03_rb,0.63058e-03_rb,0.35476e-03_rb /)\n      kbo(:, 4,37, 5) = (/ &\n        & 0.45228e-04_rb,0.55706e-03_rb,0.68918e-03_rb,0.68809e-03_rb,0.37944e-03_rb /)\n      kbo(:, 5,37, 5) = (/ &\n        & 0.52675e-04_rb,0.60808e-03_rb,0.74794e-03_rb,0.74934e-03_rb,0.40598e-03_rb /)\n      kbo(:, 1,38, 5) = (/ &\n        & 0.21751e-04_rb,0.34209e-03_rb,0.44146e-03_rb,0.44458e-03_rb,0.25920e-03_rb /)\n      kbo(:, 2,38, 5) = (/ &\n        & 0.26326e-04_rb,0.38415e-03_rb,0.48603e-03_rb,0.48632e-03_rb,0.27730e-03_rb /)\n      kbo(:, 3,38, 5) = (/ &\n        & 0.31515e-04_rb,0.42736e-03_rb,0.53325e-03_rb,0.53262e-03_rb,0.29714e-03_rb /)\n      kbo(:, 4,38, 5) = (/ &\n        & 0.37219e-04_rb,0.47064e-03_rb,0.58263e-03_rb,0.58321e-03_rb,0.31890e-03_rb /)\n      kbo(:, 5,38, 5) = (/ &\n        & 0.43344e-04_rb,0.51493e-03_rb,0.63402e-03_rb,0.63729e-03_rb,0.34212e-03_rb /)\n      kbo(:, 1,39, 5) = (/ &\n        & 0.17643e-04_rb,0.28717e-03_rb,0.37020e-03_rb,0.37288e-03_rb,0.21580e-03_rb /)\n      kbo(:, 2,39, 5) = (/ &\n        & 0.21418e-04_rb,0.32343e-03_rb,0.40871e-03_rb,0.40953e-03_rb,0.23151e-03_rb /)\n      kbo(:, 3,39, 5) = (/ &\n        & 0.25725e-04_rb,0.36044e-03_rb,0.44966e-03_rb,0.45005e-03_rb,0.24880e-03_rb /)\n      kbo(:, 4,39, 5) = (/ &\n        & 0.30479e-04_rb,0.39785e-03_rb,0.49263e-03_rb,0.49445e-03_rb,0.26783e-03_rb /)\n      kbo(:, 5,39, 5) = (/ &\n        & 0.35653e-04_rb,0.43646e-03_rb,0.53771e-03_rb,0.54230e-03_rb,0.28822e-03_rb /)\n      kbo(:, 1,40, 5) = (/ &\n        & 0.14102e-04_rb,0.23814e-03_rb,0.30730e-03_rb,0.30981e-03_rb,0.17864e-03_rb /)\n      kbo(:, 2,40, 5) = (/ &\n        & 0.17187e-04_rb,0.26934e-03_rb,0.34039e-03_rb,0.34146e-03_rb,0.19234e-03_rb /)\n      kbo(:, 3,40, 5) = (/ &\n        & 0.20739e-04_rb,0.30130e-03_rb,0.37571e-03_rb,0.37672e-03_rb,0.20737e-03_rb /)\n      kbo(:, 4,40, 5) = (/ &\n        & 0.24670e-04_rb,0.33333e-03_rb,0.41283e-03_rb,0.41538e-03_rb,0.22408e-03_rb /)\n      kbo(:, 5,40, 5) = (/ &\n        & 0.29046e-04_rb,0.36694e-03_rb,0.45216e-03_rb,0.45729e-03_rb,0.24187e-03_rb /)\n      kbo(:, 1,41, 5) = (/ &\n        & 0.11221e-04_rb,0.19710e-03_rb,0.25465e-03_rb,0.25696e-03_rb,0.14773e-03_rb /)\n      kbo(:, 2,41, 5) = (/ &\n        & 0.13747e-04_rb,0.22390e-03_rb,0.28305e-03_rb,0.28413e-03_rb,0.15955e-03_rb /)\n      kbo(:, 3,41, 5) = (/ &\n        & 0.16649e-04_rb,0.25145e-03_rb,0.31346e-03_rb,0.31467e-03_rb,0.17269e-03_rb /)\n      kbo(:, 4,41, 5) = (/ &\n        & 0.19899e-04_rb,0.27935e-03_rb,0.34563e-03_rb,0.34845e-03_rb,0.18718e-03_rb /)\n      kbo(:, 5,41, 5) = (/ &\n        & 0.23568e-04_rb,0.30830e-03_rb,0.37974e-03_rb,0.38512e-03_rb,0.20281e-03_rb /)\n      kbo(:, 1,42, 5) = (/ &\n        & 0.89147e-05_rb,0.16314e-03_rb,0.21088e-03_rb,0.21294e-03_rb,0.12205e-03_rb /)\n      kbo(:, 2,42, 5) = (/ &\n        & 0.10957e-04_rb,0.18596e-03_rb,0.23523e-03_rb,0.23628e-03_rb,0.13225e-03_rb /)\n      kbo(:, 3,42, 5) = (/ &\n        & 0.13327e-04_rb,0.20974e-03_rb,0.26134e-03_rb,0.26263e-03_rb,0.14356e-03_rb /)\n      kbo(:, 4,42, 5) = (/ &\n        & 0.16005e-04_rb,0.23378e-03_rb,0.28925e-03_rb,0.29202e-03_rb,0.15621e-03_rb /)\n      kbo(:, 5,42, 5) = (/ &\n        & 0.19038e-04_rb,0.25914e-03_rb,0.31897e-03_rb,0.32415e-03_rb,0.16982e-03_rb /)\n      kbo(:, 1,43, 5) = (/ &\n        & 0.69995e-05_rb,0.13405e-03_rb,0.17338e-03_rb,0.17535e-03_rb,0.10036e-03_rb /)\n      kbo(:, 2,43, 5) = (/ &\n        & 0.86406e-05_rb,0.15345e-03_rb,0.19416e-03_rb,0.19514e-03_rb,0.10910e-03_rb /)\n      kbo(:, 3,43, 5) = (/ &\n        & 0.10556e-04_rb,0.17373e-03_rb,0.21659e-03_rb,0.21767e-03_rb,0.11887e-03_rb /)\n      kbo(:, 4,43, 5) = (/ &\n        & 0.12739e-04_rb,0.19445e-03_rb,0.24053e-03_rb,0.24311e-03_rb,0.12980e-03_rb /)\n      kbo(:, 5,43, 5) = (/ &\n        & 0.15232e-04_rb,0.21640e-03_rb,0.26645e-03_rb,0.27107e-03_rb,0.14169e-03_rb /)\n      kbo(:, 1,44, 5) = (/ &\n        & 0.54712e-05_rb,0.10970e-03_rb,0.14195e-03_rb,0.14386e-03_rb,0.82260e-04_rb /)\n      kbo(:, 2,44, 5) = (/ &\n        & 0.67644e-05_rb,0.12612e-03_rb,0.15963e-03_rb,0.16061e-03_rb,0.89727e-04_rb /)\n      kbo(:, 3,44, 5) = (/ &\n        & 0.82973e-05_rb,0.14348e-03_rb,0.17878e-03_rb,0.17975e-03_rb,0.98122e-04_rb /)\n      kbo(:, 4,44, 5) = (/ &\n        & 0.10082e-04_rb,0.16132e-03_rb,0.19952e-03_rb,0.20155e-03_rb,0.10755e-03_rb /)\n      kbo(:, 5,44, 5) = (/ &\n        & 0.12107e-04_rb,0.18008e-03_rb,0.22179e-03_rb,0.22576e-03_rb,0.11787e-03_rb /)\n      kbo(:, 1,45, 5) = (/ &\n        & 0.42767e-05_rb,0.89680e-04_rb,0.11611e-03_rb,0.11781e-03_rb,0.67338e-04_rb /)\n      kbo(:, 2,45, 5) = (/ &\n        & 0.52860e-05_rb,0.10360e-03_rb,0.13107e-03_rb,0.13203e-03_rb,0.73722e-04_rb /)\n      kbo(:, 3,45, 5) = (/ &\n        & 0.65107e-05_rb,0.11838e-03_rb,0.14735e-03_rb,0.14829e-03_rb,0.80852e-04_rb /)\n      kbo(:, 4,45, 5) = (/ &\n        & 0.79501e-05_rb,0.13374e-03_rb,0.16520e-03_rb,0.16693e-03_rb,0.88969e-04_rb /)\n      kbo(:, 5,45, 5) = (/ &\n        & 0.95937e-05_rb,0.14993e-03_rb,0.18456e-03_rb,0.18781e-03_rb,0.97897e-04_rb /)\n      kbo(:, 1,46, 5) = (/ &\n        & 0.33226e-05_rb,0.72918e-04_rb,0.94635e-04_rb,0.96069e-04_rb,0.54912e-04_rb /)\n      kbo(:, 2,46, 5) = (/ &\n        & 0.41185e-05_rb,0.84705e-04_rb,0.10726e-03_rb,0.10809e-03_rb,0.60325e-04_rb /)\n      kbo(:, 3,46, 5) = (/ &\n        & 0.50796e-05_rb,0.97414e-04_rb,0.12106e-03_rb,0.12184e-03_rb,0.66415e-04_rb /)\n      kbo(:, 4,46, 5) = (/ &\n        & 0.62311e-05_rb,0.11055e-03_rb,0.13625e-03_rb,0.13772e-03_rb,0.73354e-04_rb /)\n      kbo(:, 5,46, 5) = (/ &\n        & 0.75594e-05_rb,0.12439e-03_rb,0.15297e-03_rb,0.15569e-03_rb,0.80972e-04_rb /)\n      kbo(:, 1,47, 5) = (/ &\n        & 0.25507e-05_rb,0.58753e-04_rb,0.76599e-04_rb,0.77798e-04_rb,0.44508e-04_rb /)\n      kbo(:, 2,47, 5) = (/ &\n        & 0.31800e-05_rb,0.68679e-04_rb,0.87240e-04_rb,0.87843e-04_rb,0.49115e-04_rb /)\n      kbo(:, 3,47, 5) = (/ &\n        & 0.39273e-05_rb,0.79497e-04_rb,0.98871e-04_rb,0.99421e-04_rb,0.54249e-04_rb /)\n      kbo(:, 4,47, 5) = (/ &\n        & 0.48346e-05_rb,0.90782e-04_rb,0.11173e-03_rb,0.11282e-03_rb,0.60113e-04_rb /)\n      kbo(:, 5,47, 5) = (/ &\n        & 0.58995e-05_rb,0.10267e-03_rb,0.12592e-03_rb,0.12815e-03_rb,0.66656e-04_rb /)\n      kbo(:, 1,48, 5) = (/ &\n        & 0.19539e-05_rb,0.47174e-04_rb,0.61874e-04_rb,0.62916e-04_rb,0.35973e-04_rb /)\n      kbo(:, 2,48, 5) = (/ &\n        & 0.24452e-05_rb,0.55575e-04_rb,0.70853e-04_rb,0.71238e-04_rb,0.39898e-04_rb /)\n      kbo(:, 3,48, 5) = (/ &\n        & 0.30402e-05_rb,0.64783e-04_rb,0.80633e-04_rb,0.80921e-04_rb,0.44214e-04_rb /)\n      kbo(:, 4,48, 5) = (/ &\n        & 0.37390e-05_rb,0.74439e-04_rb,0.91498e-04_rb,0.92208e-04_rb,0.49162e-04_rb /)\n      kbo(:, 5,48, 5) = (/ &\n        & 0.45836e-05_rb,0.84608e-04_rb,0.10358e-03_rb,0.10531e-03_rb,0.54702e-04_rb /)\n      kbo(:, 1,49, 5) = (/ &\n        & 0.14940e-05_rb,0.37716e-04_rb,0.49829e-04_rb,0.50804e-04_rb,0.28987e-04_rb /)\n      kbo(:, 2,49, 5) = (/ &\n        & 0.18758e-05_rb,0.44777e-04_rb,0.57392e-04_rb,0.57697e-04_rb,0.32317e-04_rb /)\n      kbo(:, 3,49, 5) = (/ &\n        & 0.23413e-05_rb,0.52604e-04_rb,0.65608e-04_rb,0.65748e-04_rb,0.35946e-04_rb /)\n      kbo(:, 4,49, 5) = (/ &\n        & 0.28961e-05_rb,0.60891e-04_rb,0.74824e-04_rb,0.75182e-04_rb,0.40099e-04_rb /)\n      kbo(:, 5,49, 5) = (/ &\n        & 0.35524e-05_rb,0.69587e-04_rb,0.85068e-04_rb,0.86295e-04_rb,0.44804e-04_rb /)\n      kbo(:, 1,50, 5) = (/ &\n        & 0.11500e-05_rb,0.30169e-04_rb,0.40157e-04_rb,0.41069e-04_rb,0.23362e-04_rb /)\n      kbo(:, 2,50, 5) = (/ &\n        & 0.14453e-05_rb,0.36089e-04_rb,0.46549e-04_rb,0.46799e-04_rb,0.26193e-04_rb /)\n      kbo(:, 3,50, 5) = (/ &\n        & 0.18129e-05_rb,0.42735e-04_rb,0.53474e-04_rb,0.53514e-04_rb,0.29249e-04_rb /)\n      kbo(:, 4,50, 5) = (/ &\n        & 0.22529e-05_rb,0.49843e-04_rb,0.61234e-04_rb,0.61404e-04_rb,0.32748e-04_rb /)\n      kbo(:, 5,50, 5) = (/ &\n        & 0.27762e-05_rb,0.57328e-04_rb,0.70027e-04_rb,0.70783e-04_rb,0.36712e-04_rb /)\n      kbo(:, 1,51, 5) = (/ &\n        & 0.88851e-06_rb,0.24095e-04_rb,0.32303e-04_rb,0.33210e-04_rb,0.18805e-04_rb /)\n      kbo(:, 2,51, 5) = (/ &\n        & 0.11177e-05_rb,0.29082e-04_rb,0.37705e-04_rb,0.37944e-04_rb,0.21209e-04_rb /)\n      kbo(:, 3,51, 5) = (/ &\n        & 0.14060e-05_rb,0.34667e-04_rb,0.43578e-04_rb,0.43570e-04_rb,0.23792e-04_rb /)\n      kbo(:, 4,51, 5) = (/ &\n        & 0.17539e-05_rb,0.40739e-04_rb,0.50114e-04_rb,0.50172e-04_rb,0.26720e-04_rb /)\n      kbo(:, 5,51, 5) = (/ &\n        & 0.21729e-05_rb,0.47224e-04_rb,0.57598e-04_rb,0.58070e-04_rb,0.30079e-04_rb /)\n      kbo(:, 1,52, 5) = (/ &\n        & 0.68525e-06_rb,0.19178e-04_rb,0.25896e-04_rb,0.26809e-04_rb,0.15097e-04_rb /)\n      kbo(:, 2,52, 5) = (/ &\n        & 0.86301e-06_rb,0.23336e-04_rb,0.30434e-04_rb,0.30713e-04_rb,0.17120e-04_rb /)\n      kbo(:, 3,52, 5) = (/ &\n        & 0.10889e-05_rb,0.28028e-04_rb,0.35422e-04_rb,0.35397e-04_rb,0.19301e-04_rb /)\n      kbo(:, 4,52, 5) = (/ &\n        & 0.13649e-05_rb,0.33187e-04_rb,0.40954e-04_rb,0.40921e-04_rb,0.21752e-04_rb /)\n      kbo(:, 5,52, 5) = (/ &\n        & 0.16982e-05_rb,0.38747e-04_rb,0.47260e-04_rb,0.47557e-04_rb,0.24588e-04_rb /)\n      kbo(:, 1,53, 5) = (/ &\n        & 0.52809e-06_rb,0.15206e-04_rb,0.20688e-04_rb,0.21592e-04_rb,0.12084e-04_rb /)\n      kbo(:, 2,53, 5) = (/ &\n        & 0.66493e-06_rb,0.18647e-04_rb,0.24479e-04_rb,0.24819e-04_rb,0.13781e-04_rb /)\n      kbo(:, 3,53, 5) = (/ &\n        & 0.84102e-06_rb,0.22574e-04_rb,0.28683e-04_rb,0.28690e-04_rb,0.15621e-04_rb /)\n      kbo(:, 4,53, 5) = (/ &\n        & 0.10585e-05_rb,0.26955e-04_rb,0.33364e-04_rb,0.33298e-04_rb,0.17677e-04_rb /)\n      kbo(:, 5,53, 5) = (/ &\n        & 0.13239e-05_rb,0.31710e-04_rb,0.38733e-04_rb,0.38864e-04_rb,0.20049e-04_rb /)\n      kbo(:, 1,54, 5) = (/ &\n        & 0.40969e-06_rb,0.12093e-04_rb,0.16564e-04_rb,0.17421e-04_rb,0.96882e-05_rb /)\n      kbo(:, 2,54, 5) = (/ &\n        & 0.51569e-06_rb,0.14937e-04_rb,0.19734e-04_rb,0.20094e-04_rb,0.11112e-04_rb /)\n      kbo(:, 3,54, 5) = (/ &\n        & 0.65296e-06_rb,0.18229e-04_rb,0.23282e-04_rb,0.23321e-04_rb,0.12664e-04_rb /)\n      kbo(:, 4,54, 5) = (/ &\n        & 0.82573e-06_rb,0.21950e-04_rb,0.27231e-04_rb,0.27150e-04_rb,0.14393e-04_rb /)\n      kbo(:, 5,54, 5) = (/ &\n        & 0.10373e-05_rb,0.26013e-04_rb,0.31791e-04_rb,0.31828e-04_rb,0.16379e-04_rb /)\n      kbo(:, 1,55, 5) = (/ &\n        & 0.31928e-06_rb,0.96162e-05_rb,0.13257e-04_rb,0.14053e-04_rb,0.77741e-05_rb /)\n      kbo(:, 2,55, 5) = (/ &\n        & 0.40112e-06_rb,0.11963e-04_rb,0.15906e-04_rb,0.16257e-04_rb,0.89578e-05_rb /)\n      kbo(:, 3,55, 5) = (/ &\n        & 0.50816e-06_rb,0.14717e-04_rb,0.18886e-04_rb,0.18947e-04_rb,0.10262e-04_rb /)\n      kbo(:, 4,55, 5) = (/ &\n        & 0.64465e-06_rb,0.17864e-04_rb,0.22207e-04_rb,0.22155e-04_rb,0.11715e-04_rb /)\n      kbo(:, 5,55, 5) = (/ &\n        & 0.81328e-06_rb,0.21326e-04_rb,0.26076e-04_rb,0.26061e-04_rb,0.13376e-04_rb /)\n      kbo(:, 1,56, 5) = (/ &\n        & 0.24829e-06_rb,0.76204e-05_rb,0.10578e-04_rb,0.11309e-04_rb,0.62208e-05_rb /)\n      kbo(:, 2,56, 5) = (/ &\n        & 0.31176e-06_rb,0.95488e-05_rb,0.12780e-04_rb,0.13125e-04_rb,0.72013e-05_rb /)\n      kbo(:, 3,56, 5) = (/ &\n        & 0.39506e-06_rb,0.11850e-04_rb,0.15279e-04_rb,0.15348e-04_rb,0.82947e-05_rb /)\n      kbo(:, 4,56, 5) = (/ &\n        & 0.50266e-06_rb,0.14492e-04_rb,0.18074e-04_rb,0.18040e-04_rb,0.95153e-05_rb /)\n      kbo(:, 5,56, 5) = (/ &\n        & 0.63638e-06_rb,0.17442e-04_rb,0.21336e-04_rb,0.21310e-04_rb,0.10904e-04_rb /)\n      kbo(:, 1,57, 5) = (/ &\n        & 0.19302e-06_rb,0.60187e-05_rb,0.84162e-05_rb,0.90799e-05_rb,0.49649e-05_rb /)\n      kbo(:, 2,57, 5) = (/ &\n        & 0.24222e-06_rb,0.75959e-05_rb,0.10233e-04_rb,0.10570e-04_rb,0.57701e-05_rb /)\n      kbo(:, 3,57, 5) = (/ &\n        & 0.30688e-06_rb,0.95080e-05_rb,0.12318e-04_rb,0.12403e-04_rb,0.66913e-05_rb /)\n      kbo(:, 4,57, 5) = (/ &\n        & 0.39089e-06_rb,0.11719e-04_rb,0.14670e-04_rb,0.14644e-04_rb,0.77166e-05_rb /)\n      kbo(:, 5,57, 5) = (/ &\n        & 0.49674e-06_rb,0.14214e-04_rb,0.17402e-04_rb,0.17382e-04_rb,0.88727e-05_rb /)\n      kbo(:, 1,58, 5) = (/ &\n        & 0.15046e-06_rb,0.47663e-05_rb,0.66998e-05_rb,0.72908e-05_rb,0.39631e-05_rb /)\n      kbo(:, 2,58, 5) = (/ &\n        & 0.18856e-06_rb,0.60459e-05_rb,0.81908e-05_rb,0.85206e-05_rb,0.46270e-05_rb /)\n      kbo(:, 3,58, 5) = (/ &\n        & 0.23869e-06_rb,0.76302e-05_rb,0.99245e-05_rb,0.10023e-04_rb,0.53977e-05_rb /)\n      kbo(:, 4,58, 5) = (/ &\n        & 0.30459e-06_rb,0.94767e-05_rb,0.11911e-04_rb,0.11894e-04_rb,0.62579e-05_rb /)\n      kbo(:, 5,58, 5) = (/ &\n        & 0.38820e-06_rb,0.11588e-04_rb,0.14205e-04_rb,0.14182e-04_rb,0.72226e-05_rb /)\n      kbo(:, 1,59, 5) = (/ &\n        & 0.12212e-06_rb,0.39332e-05_rb,0.55230e-05_rb,0.60094e-05_rb,0.32499e-05_rb /)\n      kbo(:, 2,59, 5) = (/ &\n        & 0.15324e-06_rb,0.50178e-05_rb,0.67879e-05_rb,0.70566e-05_rb,0.38108e-05_rb /)\n      kbo(:, 3,59, 5) = (/ &\n        & 0.19418e-06_rb,0.63678e-05_rb,0.82647e-05_rb,0.83443e-05_rb,0.44672e-05_rb /)\n      kbo(:, 4,59, 5) = (/ &\n        & 0.24820e-06_rb,0.79543e-05_rb,0.99670e-05_rb,0.99518e-05_rb,0.52027e-05_rb /)\n      kbo(:, 5,59, 5) = (/ &\n        & 0.31740e-06_rb,0.97704e-05_rb,0.11964e-04_rb,0.11938e-04_rb,0.60278e-05_rb /)\n      kbo(:, 1,13, 6) = (/ &\n        & 0.10896e-01_rb,0.63076e-01_rb,0.78831e-01_rb,0.78091e-01_rb,0.55428e-01_rb /)\n      kbo(:, 2,13, 6) = (/ &\n        & 0.13036e-01_rb,0.66370e-01_rb,0.81226e-01_rb,0.79692e-01_rb,0.56778e-01_rb /)\n      kbo(:, 3,13, 6) = (/ &\n        & 0.15498e-01_rb,0.69685e-01_rb,0.83483e-01_rb,0.81400e-01_rb,0.57975e-01_rb /)\n      kbo(:, 4,13, 6) = (/ &\n        & 0.18239e-01_rb,0.73147e-01_rb,0.85845e-01_rb,0.83249e-01_rb,0.59127e-01_rb /)\n      kbo(:, 5,13, 6) = (/ &\n        & 0.21232e-01_rb,0.76581e-01_rb,0.88266e-01_rb,0.85245e-01_rb,0.60192e-01_rb /)\n      kbo(:, 1,14, 6) = (/ &\n        & 0.94274e-02_rb,0.53526e-01_rb,0.66496e-01_rb,0.65527e-01_rb,0.46374e-01_rb /)\n      kbo(:, 2,14, 6) = (/ &\n        & 0.11284e-01_rb,0.56390e-01_rb,0.68527e-01_rb,0.66955e-01_rb,0.47524e-01_rb /)\n      kbo(:, 3,14, 6) = (/ &\n        & 0.13394e-01_rb,0.59305e-01_rb,0.70546e-01_rb,0.68479e-01_rb,0.48560e-01_rb /)\n      kbo(:, 4,14, 6) = (/ &\n        & 0.15751e-01_rb,0.62293e-01_rb,0.72634e-01_rb,0.70165e-01_rb,0.49587e-01_rb /)\n      kbo(:, 5,14, 6) = (/ &\n        & 0.18326e-01_rb,0.65240e-01_rb,0.74773e-01_rb,0.71967e-01_rb,0.50492e-01_rb /)\n      kbo(:, 1,15, 6) = (/ &\n        & 0.81352e-02_rb,0.45294e-01_rb,0.55939e-01_rb,0.54933e-01_rb,0.38471e-01_rb /)\n      kbo(:, 2,15, 6) = (/ &\n        & 0.97406e-02_rb,0.47797e-01_rb,0.57705e-01_rb,0.56201e-01_rb,0.39475e-01_rb /)\n      kbo(:, 3,15, 6) = (/ &\n        & 0.11542e-01_rb,0.50349e-01_rb,0.59500e-01_rb,0.57588e-01_rb,0.40391e-01_rb /)\n      kbo(:, 4,15, 6) = (/ &\n        & 0.13568e-01_rb,0.52924e-01_rb,0.61342e-01_rb,0.59116e-01_rb,0.41250e-01_rb /)\n      kbo(:, 5,15, 6) = (/ &\n        & 0.15789e-01_rb,0.55427e-01_rb,0.63250e-01_rb,0.60727e-01_rb,0.42016e-01_rb /)\n      kbo(:, 1,16, 6) = (/ &\n        & 0.70159e-02_rb,0.38272e-01_rb,0.46984e-01_rb,0.46002e-01_rb,0.31818e-01_rb /)\n      kbo(:, 2,16, 6) = (/ &\n        & 0.83846e-02_rb,0.40476e-01_rb,0.48519e-01_rb,0.47148e-01_rb,0.32640e-01_rb /)\n      kbo(:, 3,16, 6) = (/ &\n        & 0.99392e-02_rb,0.42699e-01_rb,0.50118e-01_rb,0.48421e-01_rb,0.33435e-01_rb /)\n      kbo(:, 4,16, 6) = (/ &\n        & 0.11675e-01_rb,0.44875e-01_rb,0.51760e-01_rb,0.49780e-01_rb,0.34161e-01_rb /)\n      kbo(:, 5,16, 6) = (/ &\n        & 0.13584e-01_rb,0.46992e-01_rb,0.53405e-01_rb,0.51224e-01_rb,0.34855e-01_rb /)\n      kbo(:, 1,17, 6) = (/ &\n        & 0.60402e-02_rb,0.32343e-01_rb,0.39419e-01_rb,0.38482e-01_rb,0.26323e-01_rb /)\n      kbo(:, 2,17, 6) = (/ &\n        & 0.72134e-02_rb,0.34265e-01_rb,0.40783e-01_rb,0.39523e-01_rb,0.27045e-01_rb /)\n      kbo(:, 3,17, 6) = (/ &\n        & 0.85415e-02_rb,0.36157e-01_rb,0.42200e-01_rb,0.40657e-01_rb,0.27733e-01_rb /)\n      kbo(:, 4,17, 6) = (/ &\n        & 0.10023e-01_rb,0.37979e-01_rb,0.43620e-01_rb,0.41877e-01_rb,0.28354e-01_rb /)\n      kbo(:, 5,17, 6) = (/ &\n        & 0.11662e-01_rb,0.39775e-01_rb,0.45034e-01_rb,0.43161e-01_rb,0.28989e-01_rb /)\n      kbo(:, 1,18, 6) = (/ &\n        & 0.51905e-02_rb,0.27334e-01_rb,0.33081e-01_rb,0.32183e-01_rb,0.21845e-01_rb /)\n      kbo(:, 2,18, 6) = (/ &\n        & 0.61907e-02_rb,0.28996e-01_rb,0.34295e-01_rb,0.33127e-01_rb,0.22456e-01_rb /)\n      kbo(:, 3,18, 6) = (/ &\n        & 0.73283e-02_rb,0.30572e-01_rb,0.35522e-01_rb,0.34131e-01_rb,0.23047e-01_rb /)\n      kbo(:, 4,18, 6) = (/ &\n        & 0.85960e-02_rb,0.32113e-01_rb,0.36725e-01_rb,0.35202e-01_rb,0.23589e-01_rb /)\n      kbo(:, 5,18, 6) = (/ &\n        & 0.10011e-01_rb,0.33654e-01_rb,0.37950e-01_rb,0.36339e-01_rb,0.24154e-01_rb /)\n      kbo(:, 1,19, 6) = (/ &\n        & 0.44474e-02_rb,0.23093e-01_rb,0.27758e-01_rb,0.26913e-01_rb,0.18159e-01_rb /)\n      kbo(:, 2,19, 6) = (/ &\n        & 0.53019e-02_rb,0.24497e-01_rb,0.28826e-01_rb,0.27764e-01_rb,0.18694e-01_rb /)\n      kbo(:, 3,19, 6) = (/ &\n        & 0.62735e-02_rb,0.25825e-01_rb,0.29864e-01_rb,0.28669e-01_rb,0.19187e-01_rb /)\n      kbo(:, 4,19, 6) = (/ &\n        & 0.73683e-02_rb,0.27139e-01_rb,0.30890e-01_rb,0.29627e-01_rb,0.19650e-01_rb /)\n      kbo(:, 5,19, 6) = (/ &\n        & 0.85933e-02_rb,0.28467e-01_rb,0.31975e-01_rb,0.30634e-01_rb,0.20138e-01_rb /)\n      kbo(:, 1,20, 6) = (/ &\n        & 0.38215e-02_rb,0.19522e-01_rb,0.23307e-01_rb,0.22532e-01_rb,0.15180e-01_rb /)\n      kbo(:, 2,20, 6) = (/ &\n        & 0.45489e-02_rb,0.20697e-01_rb,0.24217e-01_rb,0.23292e-01_rb,0.15626e-01_rb /)\n      kbo(:, 3,20, 6) = (/ &\n        & 0.53838e-02_rb,0.21827e-01_rb,0.25099e-01_rb,0.24107e-01_rb,0.16039e-01_rb /)\n      kbo(:, 4,20, 6) = (/ &\n        & 0.63294e-02_rb,0.22947e-01_rb,0.25996e-01_rb,0.24951e-01_rb,0.16431e-01_rb /)\n      kbo(:, 5,20, 6) = (/ &\n        & 0.73910e-02_rb,0.24098e-01_rb,0.26969e-01_rb,0.25840e-01_rb,0.16861e-01_rb /)\n      kbo(:, 1,21, 6) = (/ &\n        & 0.32849e-02_rb,0.16485e-01_rb,0.19564e-01_rb,0.18873e-01_rb,0.12724e-01_rb /)\n      kbo(:, 2,21, 6) = (/ &\n        & 0.39093e-02_rb,0.17476e-01_rb,0.20333e-01_rb,0.19553e-01_rb,0.13080e-01_rb /)\n      kbo(:, 3,21, 6) = (/ &\n        & 0.46257e-02_rb,0.18440e-01_rb,0.21099e-01_rb,0.20272e-01_rb,0.13424e-01_rb /)\n      kbo(:, 4,21, 6) = (/ &\n        & 0.54436e-02_rb,0.19400e-01_rb,0.21897e-01_rb,0.21018e-01_rb,0.13774e-01_rb /)\n      kbo(:, 5,21, 6) = (/ &\n        & 0.63568e-02_rb,0.20406e-01_rb,0.22777e-01_rb,0.21806e-01_rb,0.14153e-01_rb /)\n      kbo(:, 1,22, 6) = (/ &\n        & 0.28524e-02_rb,0.13970e-01_rb,0.16464e-01_rb,0.15855e-01_rb,0.10647e-01_rb /)\n      kbo(:, 2,22, 6) = (/ &\n        & 0.33998e-02_rb,0.14799e-01_rb,0.17121e-01_rb,0.16464e-01_rb,0.10957e-01_rb /)\n      kbo(:, 3,22, 6) = (/ &\n        & 0.40218e-02_rb,0.15618e-01_rb,0.17789e-01_rb,0.17098e-01_rb,0.11264e-01_rb /)\n      kbo(:, 4,22, 6) = (/ &\n        & 0.47350e-02_rb,0.16459e-01_rb,0.18512e-01_rb,0.17761e-01_rb,0.11585e-01_rb /)\n      kbo(:, 5,22, 6) = (/ &\n        & 0.55269e-02_rb,0.17342e-01_rb,0.19306e-01_rb,0.18466e-01_rb,0.11905e-01_rb /)\n      kbo(:, 1,23, 6) = (/ &\n        & 0.24776e-02_rb,0.11832e-01_rb,0.13862e-01_rb,0.13338e-01_rb,0.89101e-02_rb /)\n      kbo(:, 2,23, 6) = (/ &\n        & 0.29594e-02_rb,0.12532e-01_rb,0.14430e-01_rb,0.13874e-01_rb,0.91836e-02_rb /)\n      kbo(:, 3,23, 6) = (/ &\n        & 0.35060e-02_rb,0.13237e-01_rb,0.15025e-01_rb,0.14435e-01_rb,0.94582e-02_rb /)\n      kbo(:, 4,23, 6) = (/ &\n        & 0.41276e-02_rb,0.13976e-01_rb,0.15673e-01_rb,0.15028e-01_rb,0.97462e-02_rb /)\n      kbo(:, 5,23, 6) = (/ &\n        & 0.48108e-02_rb,0.14761e-01_rb,0.16387e-01_rb,0.15666e-01_rb,0.10041e-01_rb /)\n      kbo(:, 1,24, 6) = (/ &\n        & 0.21553e-02_rb,0.10022e-01_rb,0.11681e-01_rb,0.11233e-01_rb,0.74484e-02_rb /)\n      kbo(:, 2,24, 6) = (/ &\n        & 0.25764e-02_rb,0.10621e-01_rb,0.12176e-01_rb,0.11709e-01_rb,0.76914e-02_rb /)\n      kbo(:, 3,24, 6) = (/ &\n        & 0.30587e-02_rb,0.11236e-01_rb,0.12711e-01_rb,0.12208e-01_rb,0.79451e-02_rb /)\n      kbo(:, 4,24, 6) = (/ &\n        & 0.36022e-02_rb,0.11891e-01_rb,0.13293e-01_rb,0.12744e-01_rb,0.82033e-02_rb /)\n      kbo(:, 5,24, 6) = (/ &\n        & 0.41914e-02_rb,0.12593e-01_rb,0.13939e-01_rb,0.13324e-01_rb,0.84674e-02_rb /)\n      kbo(:, 1,25, 6) = (/ &\n        & 0.18796e-02_rb,0.85000e-02_rb,0.98543e-02_rb,0.94788e-02_rb,0.62281e-02_rb /)\n      kbo(:, 2,25, 6) = (/ &\n        & 0.22512e-02_rb,0.90173e-02_rb,0.10293e-01_rb,0.99015e-02_rb,0.64465e-02_rb /)\n      kbo(:, 3,25, 6) = (/ &\n        & 0.26761e-02_rb,0.95606e-02_rb,0.10772e-01_rb,0.10351e-01_rb,0.66771e-02_rb /)\n      kbo(:, 4,25, 6) = (/ &\n        & 0.31512e-02_rb,0.10144e-01_rb,0.11303e-01_rb,0.10838e-01_rb,0.69100e-02_rb /)\n      kbo(:, 5,25, 6) = (/ &\n        & 0.36575e-02_rb,0.10772e-01_rb,0.11893e-01_rb,0.11363e-01_rb,0.71526e-02_rb /)\n      kbo(:, 1,26, 6) = (/ &\n        & 0.16486e-02_rb,0.72263e-02_rb,0.83293e-02_rb,0.80207e-02_rb,0.52267e-02_rb /)\n      kbo(:, 2,26, 6) = (/ &\n        & 0.19790e-02_rb,0.76783e-02_rb,0.87239e-02_rb,0.83966e-02_rb,0.54266e-02_rb /)\n      kbo(:, 3,26, 6) = (/ &\n        & 0.23552e-02_rb,0.81632e-02_rb,0.91606e-02_rb,0.88030e-02_rb,0.56340e-02_rb /)\n      kbo(:, 4,26, 6) = (/ &\n        & 0.27655e-02_rb,0.86841e-02_rb,0.96465e-02_rb,0.92463e-02_rb,0.58421e-02_rb /)\n      kbo(:, 5,26, 6) = (/ &\n        & 0.32014e-02_rb,0.92461e-02_rb,0.10190e-01_rb,0.97263e-02_rb,0.60618e-02_rb /)\n      kbo(:, 1,27, 6) = (/ &\n        & 0.14479e-02_rb,0.61551e-02_rb,0.70548e-02_rb,0.67980e-02_rb,0.43916e-02_rb /)\n      kbo(:, 2,27, 6) = (/ &\n        & 0.17422e-02_rb,0.65560e-02_rb,0.74109e-02_rb,0.71369e-02_rb,0.45703e-02_rb /)\n      kbo(:, 3,27, 6) = (/ &\n        & 0.20711e-02_rb,0.69878e-02_rb,0.78116e-02_rb,0.75081e-02_rb,0.47565e-02_rb /)\n      kbo(:, 4,27, 6) = (/ &\n        & 0.24273e-02_rb,0.74543e-02_rb,0.82596e-02_rb,0.79125e-02_rb,0.49414e-02_rb /)\n      kbo(:, 5,27, 6) = (/ &\n        & 0.28006e-02_rb,0.79622e-02_rb,0.87633e-02_rb,0.83523e-02_rb,0.51438e-02_rb /)\n      kbo(:, 1,28, 6) = (/ &\n        & 0.12757e-02_rb,0.52552e-02_rb,0.59880e-02_rb,0.57731e-02_rb,0.36940e-02_rb /)\n      kbo(:, 2,28, 6) = (/ &\n        & 0.15355e-02_rb,0.56117e-02_rb,0.63148e-02_rb,0.60828e-02_rb,0.38537e-02_rb /)\n      kbo(:, 3,28, 6) = (/ &\n        & 0.18209e-02_rb,0.60000e-02_rb,0.66831e-02_rb,0.64236e-02_rb,0.40153e-02_rb /)\n      kbo(:, 4,28, 6) = (/ &\n        & 0.21272e-02_rb,0.64202e-02_rb,0.70979e-02_rb,0.67923e-02_rb,0.41811e-02_rb /)\n      kbo(:, 5,28, 6) = (/ &\n        & 0.24474e-02_rb,0.68778e-02_rb,0.75643e-02_rb,0.71983e-02_rb,0.43640e-02_rb /)\n      kbo(:, 1,29, 6) = (/ &\n        & 0.11295e-02_rb,0.45004e-02_rb,0.50997e-02_rb,0.49184e-02_rb,0.31153e-02_rb /)\n      kbo(:, 2,29, 6) = (/ &\n        & 0.13559e-02_rb,0.48180e-02_rb,0.54010e-02_rb,0.52034e-02_rb,0.32572e-02_rb /)\n      kbo(:, 3,29, 6) = (/ &\n        & 0.16033e-02_rb,0.51685e-02_rb,0.57423e-02_rb,0.55151e-02_rb,0.33997e-02_rb /)\n      kbo(:, 4,29, 6) = (/ &\n        & 0.18647e-02_rb,0.55488e-02_rb,0.61280e-02_rb,0.58545e-02_rb,0.35531e-02_rb /)\n      kbo(:, 5,29, 6) = (/ &\n        & 0.21368e-02_rb,0.59683e-02_rb,0.65578e-02_rb,0.62309e-02_rb,0.37192e-02_rb /)\n      kbo(:, 1,30, 6) = (/ &\n        & 0.10010e-02_rb,0.38621e-02_rb,0.43580e-02_rb,0.42036e-02_rb,0.26325e-02_rb /)\n      kbo(:, 2,30, 6) = (/ &\n        & 0.11967e-02_rb,0.41511e-02_rb,0.46366e-02_rb,0.44656e-02_rb,0.27570e-02_rb /)\n      kbo(:, 3,30, 6) = (/ &\n        & 0.14096e-02_rb,0.44678e-02_rb,0.49534e-02_rb,0.47515e-02_rb,0.28856e-02_rb /)\n      kbo(:, 4,30, 6) = (/ &\n        & 0.16325e-02_rb,0.48140e-02_rb,0.53117e-02_rb,0.50685e-02_rb,0.30242e-02_rb /)\n      kbo(:, 5,30, 6) = (/ &\n        & 0.18599e-02_rb,0.52016e-02_rb,0.57103e-02_rb,0.54169e-02_rb,0.31738e-02_rb /)\n      kbo(:, 1,31, 6) = (/ &\n        & 0.88685e-03_rb,0.33266e-02_rb,0.37394e-02_rb,0.36064e-02_rb,0.22280e-02_rb /)\n      kbo(:, 2,31, 6) = (/ &\n        & 0.10569e-02_rb,0.35897e-02_rb,0.39964e-02_rb,0.38465e-02_rb,0.23389e-02_rb /)\n      kbo(:, 3,31, 6) = (/ &\n        & 0.12382e-02_rb,0.38779e-02_rb,0.42920e-02_rb,0.41135e-02_rb,0.24573e-02_rb /)\n      kbo(:, 4,31, 6) = (/ &\n        & 0.14278e-02_rb,0.41961e-02_rb,0.46258e-02_rb,0.44080e-02_rb,0.25818e-02_rb /)\n      kbo(:, 5,31, 6) = (/ &\n        & 0.16136e-02_rb,0.45547e-02_rb,0.50001e-02_rb,0.47313e-02_rb,0.27214e-02_rb /)\n      kbo(:, 1,32, 6) = (/ &\n        & 0.78559e-03_rb,0.28763e-02_rb,0.32195e-02_rb,0.31059e-02_rb,0.18911e-02_rb /)\n      kbo(:, 2,32, 6) = (/ &\n        & 0.93178e-03_rb,0.31157e-02_rb,0.34609e-02_rb,0.33287e-02_rb,0.19930e-02_rb /)\n      kbo(:, 3,32, 6) = (/ &\n        & 0.10867e-02_rb,0.33798e-02_rb,0.37377e-02_rb,0.35772e-02_rb,0.21006e-02_rb /)\n      kbo(:, 4,32, 6) = (/ &\n        & 0.12446e-02_rb,0.36754e-02_rb,0.40497e-02_rb,0.38517e-02_rb,0.22158e-02_rb /)\n      kbo(:, 5,32, 6) = (/ &\n        & 0.13936e-02_rb,0.40072e-02_rb,0.44007e-02_rb,0.41538e-02_rb,0.23413e-02_rb /)\n      kbo(:, 1,33, 6) = (/ &\n        & 0.69486e-03_rb,0.24959e-02_rb,0.27846e-02_rb,0.26858e-02_rb,0.16103e-02_rb /)\n      kbo(:, 2,33, 6) = (/ &\n        & 0.82037e-03_rb,0.27142e-02_rb,0.30117e-02_rb,0.28933e-02_rb,0.17041e-02_rb /)\n      kbo(:, 3,33, 6) = (/ &\n        & 0.95137e-03_rb,0.29589e-02_rb,0.32703e-02_rb,0.31258e-02_rb,0.18033e-02_rb /)\n      kbo(:, 4,33, 6) = (/ &\n        & 0.10800e-02_rb,0.32345e-02_rb,0.35641e-02_rb,0.33810e-02_rb,0.19089e-02_rb /)\n      kbo(:, 5,33, 6) = (/ &\n        & 0.11986e-02_rb,0.35406e-02_rb,0.38943e-02_rb,0.36682e-02_rb,0.20234e-02_rb /)\n      kbo(:, 1,34, 6) = (/ &\n        & 0.61032e-03_rb,0.21671e-02_rb,0.24134e-02_rb,0.23268e-02_rb,0.13754e-02_rb /)\n      kbo(:, 2,34, 6) = (/ &\n        & 0.71748e-03_rb,0.23678e-02_rb,0.26264e-02_rb,0.25207e-02_rb,0.14624e-02_rb /)\n      kbo(:, 3,34, 6) = (/ &\n        & 0.82600e-03_rb,0.25947e-02_rb,0.28697e-02_rb,0.27368e-02_rb,0.15523e-02_rb /)\n      kbo(:, 4,34, 6) = (/ &\n        & 0.92939e-03_rb,0.28495e-02_rb,0.31449e-02_rb,0.29773e-02_rb,0.16488e-02_rb /)\n      kbo(:, 5,34, 6) = (/ &\n        & 0.10239e-02_rb,0.31299e-02_rb,0.34552e-02_rb,0.32520e-02_rb,0.17543e-02_rb /)\n      kbo(:, 1,35, 6) = (/ &\n        & 0.52678e-03_rb,0.18713e-02_rb,0.20838e-02_rb,0.20082e-02_rb,0.11717e-02_rb /)\n      kbo(:, 2,35, 6) = (/ &\n        & 0.61674e-03_rb,0.20541e-02_rb,0.22811e-02_rb,0.21873e-02_rb,0.12500e-02_rb /)\n      kbo(:, 3,35, 6) = (/ &\n        & 0.70570e-03_rb,0.22625e-02_rb,0.25066e-02_rb,0.23870e-02_rb,0.13326e-02_rb /)\n      kbo(:, 4,35, 6) = (/ &\n        & 0.78855e-03_rb,0.24971e-02_rb,0.27629e-02_rb,0.26134e-02_rb,0.14204e-02_rb /)\n      kbo(:, 5,35, 6) = (/ &\n        & 0.86492e-03_rb,0.27499e-02_rb,0.30514e-02_rb,0.28766e-02_rb,0.15154e-02_rb /)\n      kbo(:, 1,36, 6) = (/ &\n        & 0.44569e-03_rb,0.16031e-02_rb,0.17868e-02_rb,0.17221e-02_rb,0.99240e-03_rb /)\n      kbo(:, 2,36, 6) = (/ &\n        & 0.52055e-03_rb,0.17679e-02_rb,0.19674e-02_rb,0.18854e-02_rb,0.10623e-02_rb /)\n      kbo(:, 3,36, 6) = (/ &\n        & 0.59380e-03_rb,0.19567e-02_rb,0.21742e-02_rb,0.20700e-02_rb,0.11368e-02_rb /)\n      kbo(:, 4,36, 6) = (/ &\n        & 0.66114e-03_rb,0.21690e-02_rb,0.24093e-02_rb,0.22827e-02_rb,0.12171e-02_rb /)\n      kbo(:, 5,36, 6) = (/ &\n        & 0.72347e-03_rb,0.23953e-02_rb,0.26735e-02_rb,0.25294e-02_rb,0.13028e-02_rb /)\n      kbo(:, 1,37, 6) = (/ &\n        & 0.36881e-03_rb,0.13558e-02_rb,0.15140e-02_rb,0.14605e-02_rb,0.83527e-03_rb /)\n      kbo(:, 2,37, 6) = (/ &\n        & 0.43070e-03_rb,0.15018e-02_rb,0.16759e-02_rb,0.16073e-02_rb,0.89749e-03_rb /)\n      kbo(:, 3,37, 6) = (/ &\n        & 0.49122e-03_rb,0.16697e-02_rb,0.18620e-02_rb,0.17747e-02_rb,0.96428e-03_rb /)\n      kbo(:, 4,37, 6) = (/ &\n        & 0.54687e-03_rb,0.18590e-02_rb,0.20742e-02_rb,0.19690e-02_rb,0.10365e-02_rb /)\n      kbo(:, 5,37, 6) = (/ &\n        & 0.59826e-03_rb,0.20615e-02_rb,0.23143e-02_rb,0.21948e-02_rb,0.11140e-02_rb /)\n      kbo(:, 1,38, 6) = (/ &\n        & 0.30472e-03_rb,0.11463e-02_rb,0.12827e-02_rb,0.12387e-02_rb,0.70293e-03_rb /)\n      kbo(:, 2,38, 6) = (/ &\n        & 0.35606e-03_rb,0.12755e-02_rb,0.14277e-02_rb,0.13705e-02_rb,0.75844e-03_rb /)\n      kbo(:, 3,38, 6) = (/ &\n        & 0.40587e-03_rb,0.14248e-02_rb,0.15948e-02_rb,0.15225e-02_rb,0.81832e-03_rb /)\n      kbo(:, 4,38, 6) = (/ &\n        & 0.45170e-03_rb,0.15929e-02_rb,0.17869e-02_rb,0.16996e-02_rb,0.88272e-03_rb /)\n      kbo(:, 5,38, 6) = (/ &\n        & 0.49447e-03_rb,0.17743e-02_rb,0.20049e-02_rb,0.19060e-02_rb,0.95296e-03_rb /)\n      kbo(:, 1,39, 6) = (/ &\n        & 0.25159e-03_rb,0.96943e-03_rb,0.10877e-02_rb,0.10513e-02_rb,0.59159e-03_rb /)\n      kbo(:, 2,39, 6) = (/ &\n        & 0.29433e-03_rb,0.10839e-02_rb,0.12173e-02_rb,0.11700e-02_rb,0.64088e-03_rb /)\n      kbo(:, 3,39, 6) = (/ &\n        & 0.33554e-03_rb,0.12164e-02_rb,0.13675e-02_rb,0.13079e-02_rb,0.69454e-03_rb /)\n      kbo(:, 4,39, 6) = (/ &\n        & 0.37315e-03_rb,0.13660e-02_rb,0.15416e-02_rb,0.14697e-02_rb,0.75241e-03_rb /)\n      kbo(:, 5,39, 6) = (/ &\n        & 0.40840e-03_rb,0.15291e-02_rb,0.17396e-02_rb,0.16583e-02_rb,0.81566e-03_rb /)\n      kbo(:, 1,40, 6) = (/ &\n        & 0.20445e-03_rb,0.81104e-03_rb,0.91201e-03_rb,0.88303e-03_rb,0.49462e-03_rb /)\n      kbo(:, 2,40, 6) = (/ &\n        & 0.24013e-03_rb,0.91062e-03_rb,0.10259e-02_rb,0.98834e-03_rb,0.53806e-03_rb /)\n      kbo(:, 3,40, 6) = (/ &\n        & 0.27454e-03_rb,0.10267e-02_rb,0.11591e-02_rb,0.11112e-02_rb,0.58582e-03_rb /)\n      kbo(:, 4,40, 6) = (/ &\n        & 0.30609e-03_rb,0.11586e-02_rb,0.13148e-02_rb,0.12564e-02_rb,0.63733e-03_rb /)\n      kbo(:, 5,40, 6) = (/ &\n        & 0.33521e-03_rb,0.13038e-02_rb,0.14932e-02_rb,0.14267e-02_rb,0.69406e-03_rb /)\n      kbo(:, 1,41, 6) = (/ &\n        & 0.16568e-03_rb,0.67706e-03_rb,0.76339e-03_rb,0.74014e-03_rb,0.41311e-03_rb /)\n      kbo(:, 2,41, 6) = (/ &\n        & 0.19545e-03_rb,0.76370e-03_rb,0.86317e-03_rb,0.83349e-03_rb,0.45126e-03_rb /)\n      kbo(:, 3,41, 6) = (/ &\n        & 0.22429e-03_rb,0.86513e-03_rb,0.98057e-03_rb,0.94284e-03_rb,0.49336e-03_rb /)\n      kbo(:, 4,41, 6) = (/ &\n        & 0.25075e-03_rb,0.98100e-03_rb,0.11192e-02_rb,0.10723e-02_rb,0.53916e-03_rb /)\n      kbo(:, 5,41, 6) = (/ &\n        & 0.27523e-03_rb,0.11101e-02_rb,0.12797e-02_rb,0.12259e-02_rb,0.58980e-03_rb /)\n      kbo(:, 1,42, 6) = (/ &\n        & 0.13464e-03_rb,0.56478e-03_rb,0.63846e-03_rb,0.61972e-03_rb,0.34485e-03_rb /)\n      kbo(:, 2,42, 6) = (/ &\n        & 0.15918e-03_rb,0.64002e-03_rb,0.72573e-03_rb,0.70212e-03_rb,0.37807e-03_rb /)\n      kbo(:, 3,42, 6) = (/ &\n        & 0.18309e-03_rb,0.72866e-03_rb,0.82914e-03_rb,0.79959e-03_rb,0.41541e-03_rb /)\n      kbo(:, 4,42, 6) = (/ &\n        & 0.20534e-03_rb,0.83063e-03_rb,0.95224e-03_rb,0.91510e-03_rb,0.45609e-03_rb /)\n      kbo(:, 5,42, 6) = (/ &\n        & 0.22591e-03_rb,0.94536e-03_rb,0.10960e-02_rb,0.10535e-02_rb,0.50132e-03_rb /)\n      kbo(:, 1,43, 6) = (/ &\n        & 0.10834e-03_rb,0.46763e-03_rb,0.52964e-03_rb,0.51479e-03_rb,0.28641e-03_rb /)\n      kbo(:, 2,43, 6) = (/ &\n        & 0.12878e-03_rb,0.53191e-03_rb,0.60529e-03_rb,0.58655e-03_rb,0.31538e-03_rb /)\n      kbo(:, 3,43, 6) = (/ &\n        & 0.14877e-03_rb,0.60848e-03_rb,0.69517e-03_rb,0.67233e-03_rb,0.34781e-03_rb /)\n      kbo(:, 4,43, 6) = (/ &\n        & 0.16739e-03_rb,0.69818e-03_rb,0.80315e-03_rb,0.77433e-03_rb,0.38376e-03_rb /)\n      kbo(:, 5,43, 6) = (/ &\n        & 0.18458e-03_rb,0.79951e-03_rb,0.93071e-03_rb,0.89755e-03_rb,0.42371e-03_rb /)\n      kbo(:, 1,44, 6) = (/ &\n        & 0.86770e-04_rb,0.38551e-03_rb,0.43712e-03_rb,0.42544e-03_rb,0.23710e-03_rb /)\n      kbo(:, 2,44, 6) = (/ &\n        & 0.10382e-03_rb,0.44040e-03_rb,0.50222e-03_rb,0.48753e-03_rb,0.26235e-03_rb /)\n      kbo(:, 3,44, 6) = (/ &\n        & 0.12059e-03_rb,0.50571e-03_rb,0.58013e-03_rb,0.56233e-03_rb,0.29036e-03_rb /)\n      kbo(:, 4,44, 6) = (/ &\n        & 0.13632e-03_rb,0.58391e-03_rb,0.67429e-03_rb,0.65221e-03_rb,0.32192e-03_rb /)\n      kbo(:, 5,44, 6) = (/ &\n        & 0.15073e-03_rb,0.67339e-03_rb,0.78624e-03_rb,0.76086e-03_rb,0.35732e-03_rb /)\n      kbo(:, 1,45, 6) = (/ &\n        & 0.69317e-04_rb,0.31724e-03_rb,0.36001e-03_rb,0.35090e-03_rb,0.19579e-03_rb /)\n      kbo(:, 2,45, 6) = (/ &\n        & 0.83569e-04_rb,0.36417e-03_rb,0.41579e-03_rb,0.40435e-03_rb,0.21781e-03_rb /)\n      kbo(:, 3,45, 6) = (/ &\n        & 0.97725e-04_rb,0.42014e-03_rb,0.48329e-03_rb,0.46938e-03_rb,0.24226e-03_rb /)\n      kbo(:, 4,45, 6) = (/ &\n        & 0.11101e-03_rb,0.48745e-03_rb,0.56520e-03_rb,0.54804e-03_rb,0.26965e-03_rb /)\n      kbo(:, 5,45, 6) = (/ &\n        & 0.12310e-03_rb,0.56606e-03_rb,0.66327e-03_rb,0.64374e-03_rb,0.30080e-03_rb /)\n      kbo(:, 1,46, 6) = (/ &\n        & 0.55030e-04_rb,0.26007e-03_rb,0.29522e-03_rb,0.28798e-03_rb,0.16098e-03_rb /)\n      kbo(:, 2,46, 6) = (/ &\n        & 0.66908e-04_rb,0.29981e-03_rb,0.34235e-03_rb,0.33361e-03_rb,0.18009e-03_rb /)\n      kbo(:, 3,46, 6) = (/ &\n        & 0.78894e-04_rb,0.34737e-03_rb,0.40028e-03_rb,0.38969e-03_rb,0.20138e-03_rb /)\n      kbo(:, 4,46, 6) = (/ &\n        & 0.90228e-04_rb,0.40507e-03_rb,0.47110e-03_rb,0.45796e-03_rb,0.22525e-03_rb /)\n      kbo(:, 5,46, 6) = (/ &\n        & 0.10044e-03_rb,0.47380e-03_rb,0.55673e-03_rb,0.54149e-03_rb,0.25231e-03_rb /)\n      kbo(:, 1,47, 6) = (/ &\n        & 0.43131e-04_rb,0.21132e-03_rb,0.23992e-03_rb,0.23430e-03_rb,0.13147e-03_rb /)\n      kbo(:, 2,47, 6) = (/ &\n        & 0.53026e-04_rb,0.24489e-03_rb,0.27966e-03_rb,0.27282e-03_rb,0.14794e-03_rb /)\n      kbo(:, 3,47, 6) = (/ &\n        & 0.63179e-04_rb,0.28502e-03_rb,0.32837e-03_rb,0.32046e-03_rb,0.16642e-03_rb /)\n      kbo(:, 4,47, 6) = (/ &\n        & 0.72849e-04_rb,0.33391e-03_rb,0.38868e-03_rb,0.37909e-03_rb,0.18727e-03_rb /)\n      kbo(:, 5,47, 6) = (/ &\n        & 0.81641e-04_rb,0.39308e-03_rb,0.46293e-03_rb,0.45114e-03_rb,0.21071e-03_rb /)\n      kbo(:, 1,48, 6) = (/ &\n        & 0.33560e-04_rb,0.17139e-03_rb,0.19468e-03_rb,0.19001e-03_rb,0.10710e-03_rb /)\n      kbo(:, 2,48, 6) = (/ &\n        & 0.41736e-04_rb,0.19942e-03_rb,0.22765e-03_rb,0.22235e-03_rb,0.12121e-03_rb /)\n      kbo(:, 3,48, 6) = (/ &\n        & 0.50371e-04_rb,0.23319e-03_rb,0.26893e-03_rb,0.26280e-03_rb,0.13718e-03_rb /)\n      kbo(:, 4,48, 6) = (/ &\n        & 0.58779e-04_rb,0.27466e-03_rb,0.31973e-03_rb,0.31295e-03_rb,0.15543e-03_rb /)\n      kbo(:, 5,48, 6) = (/ &\n        & 0.66247e-04_rb,0.32531e-03_rb,0.38347e-03_rb,0.37465e-03_rb,0.17582e-03_rb /)\n      kbo(:, 1,49, 6) = (/ &\n        & 0.25958e-04_rb,0.13895e-03_rb,0.15751e-03_rb,0.15378e-03_rb,0.86997e-04_rb /)\n      kbo(:, 2,49, 6) = (/ &\n        & 0.32663e-04_rb,0.16210e-03_rb,0.18496e-03_rb,0.18058e-03_rb,0.99003e-04_rb /)\n      kbo(:, 3,49, 6) = (/ &\n        & 0.39912e-04_rb,0.19033e-03_rb,0.21954e-03_rb,0.21463e-03_rb,0.11278e-03_rb /)\n      kbo(:, 4,49, 6) = (/ &\n        & 0.47146e-04_rb,0.22536e-03_rb,0.26252e-03_rb,0.25743e-03_rb,0.12854e-03_rb /)\n      kbo(:, 5,49, 6) = (/ &\n        & 0.53714e-04_rb,0.26879e-03_rb,0.31652e-03_rb,0.31040e-03_rb,0.14638e-03_rb /)\n      kbo(:, 1,50, 6) = (/ &\n        & 0.20123e-04_rb,0.11283e-03_rb,0.12763e-03_rb,0.12462e-03_rb,0.70722e-04_rb /)\n      kbo(:, 2,50, 6) = (/ &\n        & 0.25601e-04_rb,0.13215e-03_rb,0.15042e-03_rb,0.14697e-03_rb,0.80931e-04_rb /)\n      kbo(:, 3,50, 6) = (/ &\n        & 0.31614e-04_rb,0.15574e-03_rb,0.17957e-03_rb,0.17552e-03_rb,0.92734e-04_rb /)\n      kbo(:, 4,50, 6) = (/ &\n        & 0.37764e-04_rb,0.18520e-03_rb,0.21596e-03_rb,0.21200e-03_rb,0.10641e-03_rb /)\n      kbo(:, 5,50, 6) = (/ &\n        & 0.43463e-04_rb,0.22248e-03_rb,0.26195e-03_rb,0.25758e-03_rb,0.12203e-03_rb /)\n      kbo(:, 1,51, 6) = (/ &\n        & 0.15566e-04_rb,0.91692e-04_rb,0.10348e-03_rb,0.10093e-03_rb,0.57420e-04_rb /)\n      kbo(:, 2,51, 6) = (/ &\n        & 0.20041e-04_rb,0.10771e-03_rb,0.12230e-03_rb,0.11952e-03_rb,0.66019e-04_rb /)\n      kbo(:, 3,51, 6) = (/ &\n        & 0.25022e-04_rb,0.12757e-03_rb,0.14670e-03_rb,0.14349e-03_rb,0.76182e-04_rb /)\n      kbo(:, 4,51, 6) = (/ &\n        & 0.30196e-04_rb,0.15226e-03_rb,0.17772e-03_rb,0.17429e-03_rb,0.87954e-04_rb /)\n      kbo(:, 5,51, 6) = (/ &\n        & 0.35140e-04_rb,0.18405e-03_rb,0.21697e-03_rb,0.21356e-03_rb,0.10162e-03_rb /)\n      kbo(:, 1,52, 6) = (/ &\n        & 0.11977e-04_rb,0.74321e-04_rb,0.83777e-04_rb,0.81525e-04_rb,0.46492e-04_rb /)\n      kbo(:, 2,52, 6) = (/ &\n        & 0.15618e-04_rb,0.87662e-04_rb,0.99315e-04_rb,0.96995e-04_rb,0.53744e-04_rb /)\n      kbo(:, 3,52, 6) = (/ &\n        & 0.19731e-04_rb,0.10434e-03_rb,0.11957e-03_rb,0.11696e-03_rb,0.62355e-04_rb /)\n      kbo(:, 4,52, 6) = (/ &\n        & 0.24071e-04_rb,0.12514e-03_rb,0.14574e-03_rb,0.14300e-03_rb,0.72491e-04_rb /)\n      kbo(:, 5,52, 6) = (/ &\n        & 0.28292e-04_rb,0.15185e-03_rb,0.17919e-03_rb,0.17642e-03_rb,0.84356e-04_rb /)\n      kbo(:, 1,53, 6) = (/ &\n        & 0.91836e-05_rb,0.60131e-04_rb,0.67720e-04_rb,0.65649e-04_rb,0.37522e-04_rb /)\n      kbo(:, 2,53, 6) = (/ &\n        & 0.12113e-04_rb,0.71192e-04_rb,0.80457e-04_rb,0.78425e-04_rb,0.43599e-04_rb /)\n      kbo(:, 3,53, 6) = (/ &\n        & 0.15471e-04_rb,0.85141e-04_rb,0.97276e-04_rb,0.95110e-04_rb,0.50903e-04_rb /)\n      kbo(:, 4,53, 6) = (/ &\n        & 0.19102e-04_rb,0.10263e-03_rb,0.11918e-03_rb,0.11694e-03_rb,0.59553e-04_rb /)\n      kbo(:, 5,53, 6) = (/ &\n        & 0.22693e-04_rb,0.12514e-03_rb,0.14755e-03_rb,0.14527e-03_rb,0.69812e-04_rb /)\n      kbo(:, 1,54, 6) = (/ &\n        & 0.70721e-05_rb,0.48764e-04_rb,0.54926e-04_rb,0.53041e-04_rb,0.30337e-04_rb /)\n      kbo(:, 2,54, 6) = (/ &\n        & 0.94270e-05_rb,0.57982e-04_rb,0.65461e-04_rb,0.63579e-04_rb,0.35439e-04_rb /)\n      kbo(:, 3,54, 6) = (/ &\n        & 0.12173e-04_rb,0.69671e-04_rb,0.79433e-04_rb,0.77530e-04_rb,0.41618e-04_rb /)\n      kbo(:, 4,54, 6) = (/ &\n        & 0.15195e-04_rb,0.84502e-04_rb,0.97826e-04_rb,0.96029e-04_rb,0.49017e-04_rb /)\n      kbo(:, 5,54, 6) = (/ &\n        & 0.18243e-04_rb,0.10358e-03_rb,0.12196e-03_rb,0.12023e-03_rb,0.57880e-04_rb /)\n      kbo(:, 1,55, 6) = (/ &\n        & 0.54549e-05_rb,0.39521e-04_rb,0.44580e-04_rb,0.42901e-04_rb,0.24523e-04_rb /)\n      kbo(:, 2,55, 6) = (/ &\n        & 0.73474e-05_rb,0.47258e-04_rb,0.53311e-04_rb,0.51627e-04_rb,0.28799e-04_rb /)\n      kbo(:, 3,55, 6) = (/ &\n        & 0.95818e-05_rb,0.57041e-04_rb,0.64957e-04_rb,0.63210e-04_rb,0.34015e-04_rb /)\n      kbo(:, 4,55, 6) = (/ &\n        & 0.12078e-04_rb,0.69528e-04_rb,0.80422e-04_rb,0.78845e-04_rb,0.40325e-04_rb /)\n      kbo(:, 5,55, 6) = (/ &\n        & 0.14658e-04_rb,0.85891e-04_rb,0.10087e-03_rb,0.99485e-04_rb,0.47973e-04_rb /)\n      kbo(:, 1,56, 6) = (/ &\n        & 0.41972e-05_rb,0.31935e-04_rb,0.36125e-04_rb,0.34628e-04_rb,0.19758e-04_rb /)\n      kbo(:, 2,56, 6) = (/ &\n        & 0.56951e-05_rb,0.38357e-04_rb,0.43303e-04_rb,0.41823e-04_rb,0.23341e-04_rb /)\n      kbo(:, 3,56, 6) = (/ &\n        & 0.75109e-05_rb,0.46586e-04_rb,0.52984e-04_rb,0.51438e-04_rb,0.27705e-04_rb /)\n      kbo(:, 4,56, 6) = (/ &\n        & 0.95701e-05_rb,0.57135e-04_rb,0.66020e-04_rb,0.64513e-04_rb,0.33090e-04_rb /)\n      kbo(:, 5,56, 6) = (/ &\n        & 0.11741e-04_rb,0.70996e-04_rb,0.83348e-04_rb,0.82172e-04_rb,0.39639e-04_rb /)\n      kbo(:, 1,57, 6) = (/ &\n        & 0.32187e-05_rb,0.25710e-04_rb,0.29175e-04_rb,0.27903e-04_rb,0.15874e-04_rb /)\n      kbo(:, 2,57, 6) = (/ &\n        & 0.44067e-05_rb,0.31037e-04_rb,0.35094e-04_rb,0.33812e-04_rb,0.18857e-04_rb /)\n      kbo(:, 3,57, 6) = (/ &\n        & 0.58663e-05_rb,0.37889e-04_rb,0.43100e-04_rb,0.41766e-04_rb,0.22502e-04_rb /)\n      kbo(:, 4,57, 6) = (/ &\n        & 0.75519e-05_rb,0.46817e-04_rb,0.54053e-04_rb,0.52634e-04_rb,0.27030e-04_rb /)\n      kbo(:, 5,57, 6) = (/ &\n        & 0.93649e-05_rb,0.58529e-04_rb,0.68705e-04_rb,0.67601e-04_rb,0.32661e-04_rb /)\n      kbo(:, 1,58, 6) = (/ &\n        & 0.24696e-05_rb,0.20698e-04_rb,0.23574e-04_rb,0.22507e-04_rb,0.12764e-04_rb /)\n      kbo(:, 2,58, 6) = (/ &\n        & 0.34175e-05_rb,0.25141e-04_rb,0.28438e-04_rb,0.27351e-04_rb,0.15243e-04_rb /)\n      kbo(:, 3,58, 6) = (/ &\n        & 0.45825e-05_rb,0.30855e-04_rb,0.35092e-04_rb,0.33951e-04_rb,0.18275e-04_rb /)\n      kbo(:, 4,58, 6) = (/ &\n        & 0.59665e-05_rb,0.38392e-04_rb,0.44239e-04_rb,0.43055e-04_rb,0.22112e-04_rb /)\n      kbo(:, 5,58, 6) = (/ &\n        & 0.74784e-05_rb,0.48383e-04_rb,0.56772e-04_rb,0.55657e-04_rb,0.26900e-04_rb /)\n      kbo(:, 1,59, 6) = (/ &\n        & 0.20113e-05_rb,0.17223e-04_rb,0.19628e-04_rb,0.18772e-04_rb,0.10576e-04_rb /)\n      kbo(:, 2,59, 6) = (/ &\n        & 0.27973e-05_rb,0.21075e-04_rb,0.23849e-04_rb,0.22960e-04_rb,0.12702e-04_rb /)\n      kbo(:, 3,59, 6) = (/ &\n        & 0.37714e-05_rb,0.26064e-04_rb,0.29696e-04_rb,0.28726e-04_rb,0.15326e-04_rb /)\n      kbo(:, 4,59, 6) = (/ &\n        & 0.49189e-05_rb,0.32724e-04_rb,0.37808e-04_rb,0.36791e-04_rb,0.18710e-04_rb /)\n      kbo(:, 5,59, 6) = (/ &\n        & 0.61850e-05_rb,0.41676e-04_rb,0.49043e-04_rb,0.48051e-04_rb,0.22936e-04_rb /)\n      kbo(:, 1,13, 7) = (/ &\n        & 0.90574e-01_rb,0.18508e+00_rb,0.20125e+00_rb,0.19353e+00_rb,0.13590e+00_rb /)\n      kbo(:, 2,13, 7) = (/ &\n        & 0.96633e-01_rb,0.18856e+00_rb,0.20514e+00_rb,0.19781e+00_rb,0.13867e+00_rb /)\n      kbo(:, 3,13, 7) = (/ &\n        & 0.10246e+00_rb,0.19231e+00_rb,0.20916e+00_rb,0.20175e+00_rb,0.14157e+00_rb /)\n      kbo(:, 4,13, 7) = (/ &\n        & 0.10831e+00_rb,0.19664e+00_rb,0.21340e+00_rb,0.20566e+00_rb,0.14422e+00_rb /)\n      kbo(:, 5,13, 7) = (/ &\n        & 0.11418e+00_rb,0.20190e+00_rb,0.21829e+00_rb,0.20964e+00_rb,0.14715e+00_rb /)\n      kbo(:, 1,14, 7) = (/ &\n        & 0.76731e-01_rb,0.15637e+00_rb,0.17031e+00_rb,0.16454e+00_rb,0.11471e+00_rb /)\n      kbo(:, 2,14, 7) = (/ &\n        & 0.81853e-01_rb,0.15935e+00_rb,0.17367e+00_rb,0.16809e+00_rb,0.11738e+00_rb /)\n      kbo(:, 3,14, 7) = (/ &\n        & 0.86939e-01_rb,0.16284e+00_rb,0.17719e+00_rb,0.17151e+00_rb,0.11993e+00_rb /)\n      kbo(:, 4,14, 7) = (/ &\n        & 0.91985e-01_rb,0.16698e+00_rb,0.18115e+00_rb,0.17500e+00_rb,0.12254e+00_rb /)\n      kbo(:, 5,14, 7) = (/ &\n        & 0.97005e-01_rb,0.17199e+00_rb,0.18590e+00_rb,0.17860e+00_rb,0.12524e+00_rb /)\n      kbo(:, 1,15, 7) = (/ &\n        & 0.64796e-01_rb,0.13180e+00_rb,0.14379e+00_rb,0.13927e+00_rb,0.96282e-01_rb /)\n      kbo(:, 2,15, 7) = (/ &\n        & 0.69175e-01_rb,0.13451e+00_rb,0.14669e+00_rb,0.14230e+00_rb,0.98702e-01_rb /)\n      kbo(:, 3,15, 7) = (/ &\n        & 0.73574e-01_rb,0.13779e+00_rb,0.14991e+00_rb,0.14533e+00_rb,0.10111e+00_rb /)\n      kbo(:, 4,15, 7) = (/ &\n        & 0.77907e-01_rb,0.14175e+00_rb,0.15375e+00_rb,0.14848e+00_rb,0.10336e+00_rb /)\n      kbo(:, 5,15, 7) = (/ &\n        & 0.82082e-01_rb,0.14644e+00_rb,0.15826e+00_rb,0.15192e+00_rb,0.10558e+00_rb /)\n      kbo(:, 1,16, 7) = (/ &\n        & 0.54603e-01_rb,0.11092e+00_rb,0.12113e+00_rb,0.11747e+00_rb,0.80564e-01_rb /)\n      kbo(:, 2,16, 7) = (/ &\n        & 0.58392e-01_rb,0.11343e+00_rb,0.12376e+00_rb,0.12011e+00_rb,0.82662e-01_rb /)\n      kbo(:, 3,16, 7) = (/ &\n        & 0.62149e-01_rb,0.11652e+00_rb,0.12680e+00_rb,0.12283e+00_rb,0.84744e-01_rb /)\n      kbo(:, 4,16, 7) = (/ &\n        & 0.65779e-01_rb,0.12031e+00_rb,0.13049e+00_rb,0.12576e+00_rb,0.86806e-01_rb /)\n      kbo(:, 5,16, 7) = (/ &\n        & 0.69275e-01_rb,0.12462e+00_rb,0.13474e+00_rb,0.12909e+00_rb,0.88592e-01_rb /)\n      kbo(:, 1,17, 7) = (/ &\n        & 0.46019e-01_rb,0.93276e-01_rb,0.10182e+00_rb,0.98886e-01_rb,0.67386e-01_rb /)\n      kbo(:, 2,17, 7) = (/ &\n        & 0.49257e-01_rb,0.95617e-01_rb,0.10427e+00_rb,0.10122e+00_rb,0.69214e-01_rb /)\n      kbo(:, 3,17, 7) = (/ &\n        & 0.52438e-01_rb,0.98544e-01_rb,0.10723e+00_rb,0.10369e+00_rb,0.71047e-01_rb /)\n      kbo(:, 4,17, 7) = (/ &\n        & 0.55444e-01_rb,0.10204e+00_rb,0.11074e+00_rb,0.10647e+00_rb,0.72809e-01_rb /)\n      kbo(:, 5,17, 7) = (/ &\n        & 0.58360e-01_rb,0.10585e+00_rb,0.11469e+00_rb,0.10967e+00_rb,0.74297e-01_rb /)\n      kbo(:, 1,18, 7) = (/ &\n        & 0.38789e-01_rb,0.78385e-01_rb,0.85426e-01_rb,0.83127e-01_rb,0.56424e-01_rb /)\n      kbo(:, 2,18, 7) = (/ &\n        & 0.41550e-01_rb,0.80626e-01_rb,0.87775e-01_rb,0.85216e-01_rb,0.58103e-01_rb /)\n      kbo(:, 3,18, 7) = (/ &\n        & 0.44172e-01_rb,0.83391e-01_rb,0.90633e-01_rb,0.87547e-01_rb,0.59665e-01_rb /)\n      kbo(:, 4,18, 7) = (/ &\n        & 0.46672e-01_rb,0.86541e-01_rb,0.93910e-01_rb,0.90224e-01_rb,0.61155e-01_rb /)\n      kbo(:, 5,18, 7) = (/ &\n        & 0.49119e-01_rb,0.89890e-01_rb,0.97478e-01_rb,0.93171e-01_rb,0.62440e-01_rb /)\n      kbo(:, 1,19, 7) = (/ &\n        & 0.32688e-01_rb,0.65866e-01_rb,0.71699e-01_rb,0.69831e-01_rb,0.47341e-01_rb /)\n      kbo(:, 2,19, 7) = (/ &\n        & 0.34993e-01_rb,0.67987e-01_rb,0.73938e-01_rb,0.71758e-01_rb,0.48787e-01_rb /)\n      kbo(:, 3,19, 7) = (/ &\n        & 0.37158e-01_rb,0.70566e-01_rb,0.76608e-01_rb,0.73972e-01_rb,0.50204e-01_rb /)\n      kbo(:, 4,19, 7) = (/ &\n        & 0.39257e-01_rb,0.73365e-01_rb,0.79594e-01_rb,0.76458e-01_rb,0.51459e-01_rb /)\n      kbo(:, 5,19, 7) = (/ &\n        & 0.41326e-01_rb,0.76343e-01_rb,0.82757e-01_rb,0.79138e-01_rb,0.52598e-01_rb /)\n      kbo(:, 1,20, 7) = (/ &\n        & 0.27557e-01_rb,0.55396e-01_rb,0.60366e-01_rb,0.58674e-01_rb,0.39775e-01_rb /)\n      kbo(:, 2,20, 7) = (/ &\n        & 0.29458e-01_rb,0.57423e-01_rb,0.62478e-01_rb,0.60497e-01_rb,0.41091e-01_rb /)\n      kbo(:, 3,20, 7) = (/ &\n        & 0.31261e-01_rb,0.59745e-01_rb,0.64927e-01_rb,0.62579e-01_rb,0.42317e-01_rb /)\n      kbo(:, 4,20, 7) = (/ &\n        & 0.33046e-01_rb,0.62240e-01_rb,0.67549e-01_rb,0.64853e-01_rb,0.43439e-01_rb /)\n      kbo(:, 5,20, 7) = (/ &\n        & 0.34818e-01_rb,0.64890e-01_rb,0.70320e-01_rb,0.67290e-01_rb,0.44513e-01_rb /)\n      kbo(:, 1,21, 7) = (/ &\n        & 0.23194e-01_rb,0.46662e-01_rb,0.50879e-01_rb,0.49331e-01_rb,0.33429e-01_rb /)\n      kbo(:, 2,21, 7) = (/ &\n        & 0.24776e-01_rb,0.48529e-01_rb,0.52871e-01_rb,0.51054e-01_rb,0.34590e-01_rb /)\n      kbo(:, 3,21, 7) = (/ &\n        & 0.26303e-01_rb,0.50578e-01_rb,0.55098e-01_rb,0.52980e-01_rb,0.35684e-01_rb /)\n      kbo(:, 4,21, 7) = (/ &\n        & 0.27810e-01_rb,0.52793e-01_rb,0.57429e-01_rb,0.55052e-01_rb,0.36688e-01_rb /)\n      kbo(:, 5,21, 7) = (/ &\n        & 0.29323e-01_rb,0.55187e-01_rb,0.59853e-01_rb,0.57245e-01_rb,0.37657e-01_rb /)\n      kbo(:, 1,22, 7) = (/ &\n        & 0.19600e-01_rb,0.39448e-01_rb,0.43057e-01_rb,0.41623e-01_rb,0.28169e-01_rb /)\n      kbo(:, 2,22, 7) = (/ &\n        & 0.20910e-01_rb,0.41135e-01_rb,0.44924e-01_rb,0.43250e-01_rb,0.29188e-01_rb /)\n      kbo(:, 3,22, 7) = (/ &\n        & 0.22195e-01_rb,0.42970e-01_rb,0.46916e-01_rb,0.45021e-01_rb,0.30138e-01_rb /)\n      kbo(:, 4,22, 7) = (/ &\n        & 0.23466e-01_rb,0.44963e-01_rb,0.48978e-01_rb,0.46906e-01_rb,0.31021e-01_rb /)\n      kbo(:, 5,22, 7) = (/ &\n        & 0.24791e-01_rb,0.47151e-01_rb,0.51143e-01_rb,0.48901e-01_rb,0.31919e-01_rb /)\n      kbo(:, 1,23, 7) = (/ &\n        & 0.16563e-01_rb,0.33405e-01_rb,0.36517e-01_rb,0.35235e-01_rb,0.23758e-01_rb /)\n      kbo(:, 2,23, 7) = (/ &\n        & 0.17634e-01_rb,0.34920e-01_rb,0.38215e-01_rb,0.36726e-01_rb,0.24656e-01_rb /)\n      kbo(:, 3,23, 7) = (/ &\n        & 0.18715e-01_rb,0.36571e-01_rb,0.39976e-01_rb,0.38337e-01_rb,0.25473e-01_rb /)\n      kbo(:, 4,23, 7) = (/ &\n        & 0.19810e-01_rb,0.38397e-01_rb,0.41828e-01_rb,0.40046e-01_rb,0.26273e-01_rb /)\n      kbo(:, 5,23, 7) = (/ &\n        & 0.20990e-01_rb,0.40406e-01_rb,0.43840e-01_rb,0.41881e-01_rb,0.27068e-01_rb /)\n      kbo(:, 1,24, 7) = (/ &\n        & 0.13980e-01_rb,0.28346e-01_rb,0.31027e-01_rb,0.29909e-01_rb,0.20058e-01_rb /)\n      kbo(:, 2,24, 7) = (/ &\n        & 0.14874e-01_rb,0.29707e-01_rb,0.32546e-01_rb,0.31266e-01_rb,0.20839e-01_rb /)\n      kbo(:, 3,24, 7) = (/ &\n        & 0.15797e-01_rb,0.31204e-01_rb,0.34123e-01_rb,0.32728e-01_rb,0.21557e-01_rb /)\n      kbo(:, 4,24, 7) = (/ &\n        & 0.16758e-01_rb,0.32875e-01_rb,0.35824e-01_rb,0.34296e-01_rb,0.22274e-01_rb /)\n      kbo(:, 5,24, 7) = (/ &\n        & 0.17809e-01_rb,0.34737e-01_rb,0.37711e-01_rb,0.35981e-01_rb,0.22992e-01_rb /)\n      kbo(:, 1,25, 7) = (/ &\n        & 0.11798e-01_rb,0.24110e-01_rb,0.26426e-01_rb,0.25457e-01_rb,0.16985e-01_rb /)\n      kbo(:, 2,25, 7) = (/ &\n        & 0.12561e-01_rb,0.25347e-01_rb,0.27781e-01_rb,0.26691e-01_rb,0.17655e-01_rb /)\n      kbo(:, 3,25, 7) = (/ &\n        & 0.13359e-01_rb,0.26711e-01_rb,0.29222e-01_rb,0.28026e-01_rb,0.18302e-01_rb /)\n      kbo(:, 4,25, 7) = (/ &\n        & 0.14208e-01_rb,0.28241e-01_rb,0.30806e-01_rb,0.29472e-01_rb,0.18949e-01_rb /)\n      kbo(:, 5,25, 7) = (/ &\n        & 0.15157e-01_rb,0.29980e-01_rb,0.32597e-01_rb,0.31029e-01_rb,0.19596e-01_rb /)\n      kbo(:, 1,26, 7) = (/ &\n        & 0.99745e-02_rb,0.20581e-01_rb,0.22580e-01_rb,0.21746e-01_rb,0.14432e-01_rb /)\n      kbo(:, 2,26, 7) = (/ &\n        & 0.10633e-01_rb,0.21703e-01_rb,0.23807e-01_rb,0.22873e-01_rb,0.15014e-01_rb /)\n      kbo(:, 3,26, 7) = (/ &\n        & 0.11328e-01_rb,0.22948e-01_rb,0.25141e-01_rb,0.24108e-01_rb,0.15588e-01_rb /)\n      kbo(:, 4,26, 7) = (/ &\n        & 0.12091e-01_rb,0.24380e-01_rb,0.26636e-01_rb,0.25439e-01_rb,0.16180e-01_rb /)\n      kbo(:, 5,26, 7) = (/ &\n        & 0.12943e-01_rb,0.26016e-01_rb,0.28335e-01_rb,0.26899e-01_rb,0.16787e-01_rb /)\n      kbo(:, 1,27, 7) = (/ &\n        & 0.84424e-02_rb,0.17603e-01_rb,0.19348e-01_rb,0.18632e-01_rb,0.12275e-01_rb /)\n      kbo(:, 2,27, 7) = (/ &\n        & 0.90172e-02_rb,0.18627e-01_rb,0.20475e-01_rb,0.19670e-01_rb,0.12796e-01_rb /)\n      kbo(:, 3,27, 7) = (/ &\n        & 0.96344e-02_rb,0.19791e-01_rb,0.21724e-01_rb,0.20817e-01_rb,0.13316e-01_rb /)\n      kbo(:, 4,27, 7) = (/ &\n        & 0.10319e-01_rb,0.21143e-01_rb,0.23141e-01_rb,0.22059e-01_rb,0.13859e-01_rb /)\n      kbo(:, 5,27, 7) = (/ &\n        & 0.11083e-01_rb,0.22688e-01_rb,0.24742e-01_rb,0.23449e-01_rb,0.14418e-01_rb /)\n      kbo(:, 1,28, 7) = (/ &\n        & 0.71594e-02_rb,0.15094e-01_rb,0.16638e-01_rb,0.16016e-01_rb,0.10452e-01_rb /)\n      kbo(:, 2,28, 7) = (/ &\n        & 0.76603e-02_rb,0.16043e-01_rb,0.17678e-01_rb,0.16989e-01_rb,0.10928e-01_rb /)\n      kbo(:, 3,28, 7) = (/ &\n        & 0.82161e-02_rb,0.17148e-01_rb,0.18856e-01_rb,0.18055e-01_rb,0.11409e-01_rb /)\n      kbo(:, 4,28, 7) = (/ &\n        & 0.88297e-02_rb,0.18429e-01_rb,0.20193e-01_rb,0.19234e-01_rb,0.11908e-01_rb /)\n      kbo(:, 5,28, 7) = (/ &\n        & 0.95210e-02_rb,0.19896e-01_rb,0.21697e-01_rb,0.20565e-01_rb,0.12423e-01_rb /)\n      kbo(:, 1,29, 7) = (/ &\n        & 0.60865e-02_rb,0.12992e-01_rb,0.14367e-01_rb,0.13830e-01_rb,0.89337e-02_rb /)\n      kbo(:, 2,29, 7) = (/ &\n        & 0.65273e-02_rb,0.13894e-01_rb,0.15342e-01_rb,0.14741e-01_rb,0.93649e-02_rb /)\n      kbo(:, 3,29, 7) = (/ &\n        & 0.70278e-02_rb,0.14949e-01_rb,0.16457e-01_rb,0.15746e-01_rb,0.98158e-02_rb /)\n      kbo(:, 4,29, 7) = (/ &\n        & 0.75858e-02_rb,0.16169e-01_rb,0.17720e-01_rb,0.16877e-01_rb,0.10273e-01_rb /)\n      kbo(:, 5,29, 7) = (/ &\n        & 0.82154e-02_rb,0.17564e-01_rb,0.19150e-01_rb,0.18159e-01_rb,0.10745e-01_rb /)\n      kbo(:, 1,30, 7) = (/ &\n        & 0.51820e-02_rb,0.11236e-01_rb,0.12459e-01_rb,0.12000e-01_rb,0.76507e-02_rb /)\n      kbo(:, 2,30, 7) = (/ &\n        & 0.55811e-02_rb,0.12098e-01_rb,0.13380e-01_rb,0.12854e-01_rb,0.80497e-02_rb /)\n      kbo(:, 3,30, 7) = (/ &\n        & 0.60310e-02_rb,0.13108e-01_rb,0.14440e-01_rb,0.13813e-01_rb,0.84648e-02_rb /)\n      kbo(:, 4,30, 7) = (/ &\n        & 0.65404e-02_rb,0.14273e-01_rb,0.15644e-01_rb,0.14905e-01_rb,0.88882e-02_rb /)\n      kbo(:, 5,30, 7) = (/ &\n        & 0.71170e-02_rb,0.15597e-01_rb,0.17012e-01_rb,0.16134e-01_rb,0.93248e-02_rb /)\n      kbo(:, 1,31, 7) = (/ &\n        & 0.44272e-02_rb,0.97757e-02_rb,0.10859e-01_rb,0.10467e-01_rb,0.65734e-02_rb /)\n      kbo(:, 2,31, 7) = (/ &\n        & 0.47878e-02_rb,0.10603e-01_rb,0.11740e-01_rb,0.11277e-01_rb,0.69415e-02_rb /)\n      kbo(:, 3,31, 7) = (/ &\n        & 0.51963e-02_rb,0.11572e-01_rb,0.12753e-01_rb,0.12201e-01_rb,0.73188e-02_rb /)\n      kbo(:, 4,31, 7) = (/ &\n        & 0.56609e-02_rb,0.12684e-01_rb,0.13904e-01_rb,0.13252e-01_rb,0.77091e-02_rb /)\n      kbo(:, 5,31, 7) = (/ &\n        & 0.61977e-02_rb,0.13944e-01_rb,0.15244e-01_rb,0.14424e-01_rb,0.81161e-02_rb /)\n      kbo(:, 1,32, 7) = (/ &\n        & 0.37962e-02_rb,0.85614e-02_rb,0.95233e-02_rb,0.91812e-02_rb,0.56658e-02_rb /)\n      kbo(:, 2,32, 7) = (/ &\n        & 0.41228e-02_rb,0.93595e-02_rb,0.10368e-01_rb,0.99574e-02_rb,0.60000e-02_rb /)\n      kbo(:, 3,32, 7) = (/ &\n        & 0.44947e-02_rb,0.10287e-01_rb,0.11338e-01_rb,0.10850e-01_rb,0.63462e-02_rb /)\n      kbo(:, 4,32, 7) = (/ &\n        & 0.49244e-02_rb,0.11349e-01_rb,0.12467e-01_rb,0.11857e-01_rb,0.67069e-02_rb /)\n      kbo(:, 5,32, 7) = (/ &\n        & 0.54252e-02_rb,0.12554e-01_rb,0.13767e-01_rb,0.12983e-01_rb,0.70910e-02_rb /)\n      kbo(:, 1,33, 7) = (/ &\n        & 0.32656e-02_rb,0.75519e-02_rb,0.84026e-02_rb,0.81028e-02_rb,0.48937e-02_rb /)\n      kbo(:, 2,33, 7) = (/ &\n        & 0.35630e-02_rb,0.83178e-02_rb,0.92157e-02_rb,0.88531e-02_rb,0.52004e-02_rb /)\n      kbo(:, 3,33, 7) = (/ &\n        & 0.39050e-02_rb,0.92063e-02_rb,0.10168e-01_rb,0.97125e-02_rb,0.55156e-02_rb /)\n      kbo(:, 4,33, 7) = (/ &\n        & 0.43055e-02_rb,0.10227e-01_rb,0.11270e-01_rb,0.10682e-01_rb,0.58516e-02_rb /)\n      kbo(:, 5,33, 7) = (/ &\n        & 0.47651e-02_rb,0.11396e-01_rb,0.12524e-01_rb,0.11769e-01_rb,0.62091e-02_rb /)\n      kbo(:, 1,34, 7) = (/ &\n        & 0.28105e-02_rb,0.66873e-02_rb,0.74405e-02_rb,0.71742e-02_rb,0.42413e-02_rb /)\n      kbo(:, 2,34, 7) = (/ &\n        & 0.30819e-02_rb,0.74197e-02_rb,0.82328e-02_rb,0.78962e-02_rb,0.45189e-02_rb /)\n      kbo(:, 3,34, 7) = (/ &\n        & 0.33974e-02_rb,0.82731e-02_rb,0.91582e-02_rb,0.87214e-02_rb,0.48133e-02_rb /)\n      kbo(:, 4,34, 7) = (/ &\n        & 0.37682e-02_rb,0.92558e-02_rb,0.10225e-01_rb,0.96550e-02_rb,0.51300e-02_rb /)\n      kbo(:, 5,34, 7) = (/ &\n        & 0.41836e-02_rb,0.10408e-01_rb,0.11429e-01_rb,0.10709e-01_rb,0.54671e-02_rb /)\n      kbo(:, 1,35, 7) = (/ &\n        & 0.24038e-02_rb,0.58948e-02_rb,0.65709e-02_rb,0.63304e-02_rb,0.36544e-02_rb /)\n      kbo(:, 2,35, 7) = (/ &\n        & 0.26483e-02_rb,0.65885e-02_rb,0.73295e-02_rb,0.70175e-02_rb,0.39080e-02_rb /)\n      kbo(:, 3,35, 7) = (/ &\n        & 0.29372e-02_rb,0.74016e-02_rb,0.82197e-02_rb,0.78032e-02_rb,0.41855e-02_rb /)\n      kbo(:, 4,35, 7) = (/ &\n        & 0.32728e-02_rb,0.83531e-02_rb,0.92365e-02_rb,0.86973e-02_rb,0.44777e-02_rb /)\n      kbo(:, 5,35, 7) = (/ &\n        & 0.36421e-02_rb,0.94681e-02_rb,0.10387e-01_rb,0.97145e-02_rb,0.47967e-02_rb /)\n      kbo(:, 1,36, 7) = (/ &\n        & 0.20373e-02_rb,0.51550e-02_rb,0.57662e-02_rb,0.55498e-02_rb,0.31231e-02_rb /)\n      kbo(:, 2,36, 7) = (/ &\n        & 0.22554e-02_rb,0.58057e-02_rb,0.64818e-02_rb,0.61953e-02_rb,0.33549e-02_rb /)\n      kbo(:, 3,36, 7) = (/ &\n        & 0.25127e-02_rb,0.65796e-02_rb,0.73228e-02_rb,0.69361e-02_rb,0.36112e-02_rb /)\n      kbo(:, 4,36, 7) = (/ &\n        & 0.28104e-02_rb,0.74827e-02_rb,0.82833e-02_rb,0.77843e-02_rb,0.38823e-02_rb /)\n      kbo(:, 5,36, 7) = (/ &\n        & 0.31359e-02_rb,0.85467e-02_rb,0.93763e-02_rb,0.87575e-02_rb,0.41812e-02_rb /)\n      kbo(:, 1,37, 7) = (/ &\n        & 0.17035e-02_rb,0.44466e-02_rb,0.49856e-02_rb,0.47970e-02_rb,0.26734e-02_rb /)\n      kbo(:, 2,37, 7) = (/ &\n        & 0.18934e-02_rb,0.50433e-02_rb,0.56462e-02_rb,0.53907e-02_rb,0.28873e-02_rb /)\n      kbo(:, 3,37, 7) = (/ &\n        & 0.21171e-02_rb,0.57558e-02_rb,0.64223e-02_rb,0.60783e-02_rb,0.31233e-02_rb /)\n      kbo(:, 4,37, 7) = (/ &\n        & 0.23767e-02_rb,0.65938e-02_rb,0.73141e-02_rb,0.68717e-02_rb,0.33760e-02_rb /)\n      kbo(:, 5,37, 7) = (/ &\n        & 0.26616e-02_rb,0.75860e-02_rb,0.83359e-02_rb,0.77859e-02_rb,0.36530e-02_rb /)\n      kbo(:, 1,38, 7) = (/ &\n        & 0.14234e-02_rb,0.38379e-02_rb,0.43139e-02_rb,0.41486e-02_rb,0.22904e-02_rb /)\n      kbo(:, 2,38, 7) = (/ &\n        & 0.15875e-02_rb,0.43850e-02_rb,0.49236e-02_rb,0.46956e-02_rb,0.24873e-02_rb /)\n      kbo(:, 3,38, 7) = (/ &\n        & 0.17824e-02_rb,0.50419e-02_rb,0.56400e-02_rb,0.53338e-02_rb,0.27024e-02_rb /)\n      kbo(:, 4,38, 7) = (/ &\n        & 0.20080e-02_rb,0.58195e-02_rb,0.64682e-02_rb,0.60767e-02_rb,0.29386e-02_rb /)\n      kbo(:, 5,38, 7) = (/ &\n        & 0.22567e-02_rb,0.67445e-02_rb,0.74253e-02_rb,0.69357e-02_rb,0.31979e-02_rb /)\n      kbo(:, 1,39, 7) = (/ &\n        & 0.11890e-02_rb,0.33180e-02_rb,0.37396e-02_rb,0.35935e-02_rb,0.19623e-02_rb /)\n      kbo(:, 2,39, 7) = (/ &\n        & 0.13309e-02_rb,0.38204e-02_rb,0.43017e-02_rb,0.40980e-02_rb,0.21427e-02_rb /)\n      kbo(:, 3,39, 7) = (/ &\n        & 0.14997e-02_rb,0.44279e-02_rb,0.49653e-02_rb,0.46926e-02_rb,0.23415e-02_rb /)\n      kbo(:, 4,39, 7) = (/ &\n        & 0.16956e-02_rb,0.51508e-02_rb,0.57361e-02_rb,0.53891e-02_rb,0.25595e-02_rb /)\n      kbo(:, 5,39, 7) = (/ &\n        & 0.19128e-02_rb,0.60136e-02_rb,0.66353e-02_rb,0.61975e-02_rb,0.28034e-02_rb /)\n      kbo(:, 1,40, 7) = (/ &\n        & 0.98185e-03_rb,0.28304e-02_rb,0.31989e-02_rb,0.30741e-02_rb,0.16759e-02_rb /)\n      kbo(:, 2,40, 7) = (/ &\n        & 0.11018e-02_rb,0.32825e-02_rb,0.37073e-02_rb,0.35318e-02_rb,0.18412e-02_rb /)\n      kbo(:, 3,40, 7) = (/ &\n        & 0.12459e-02_rb,0.38338e-02_rb,0.43125e-02_rb,0.40771e-02_rb,0.20230e-02_rb /)\n      kbo(:, 4,40, 7) = (/ &\n        & 0.14138e-02_rb,0.44950e-02_rb,0.50204e-02_rb,0.47198e-02_rb,0.22264e-02_rb /)\n      kbo(:, 5,40, 7) = (/ &\n        & 0.16015e-02_rb,0.52867e-02_rb,0.58524e-02_rb,0.54701e-02_rb,0.24538e-02_rb /)\n      kbo(:, 1,41, 7) = (/ &\n        & 0.80888e-03_rb,0.24101e-02_rb,0.27302e-02_rb,0.26250e-02_rb,0.14285e-02_rb /)\n      kbo(:, 2,41, 7) = (/ &\n        & 0.91042e-03_rb,0.28166e-02_rb,0.31895e-02_rb,0.30396e-02_rb,0.15812e-02_rb /)\n      kbo(:, 3,41, 7) = (/ &\n        & 0.10323e-02_rb,0.33144e-02_rb,0.37392e-02_rb,0.35375e-02_rb,0.17482e-02_rb /)\n      kbo(:, 4,41, 7) = (/ &\n        & 0.11757e-02_rb,0.39172e-02_rb,0.43885e-02_rb,0.41290e-02_rb,0.19366e-02_rb /)\n      kbo(:, 5,41, 7) = (/ &\n        & 0.13368e-02_rb,0.46417e-02_rb,0.51571e-02_rb,0.48237e-02_rb,0.21455e-02_rb /)\n      kbo(:, 1,42, 7) = (/ &\n        & 0.66584e-03_rb,0.20506e-02_rb,0.23294e-02_rb,0.22418e-02_rb,0.12147e-02_rb /)\n      kbo(:, 2,42, 7) = (/ &\n        & 0.75117e-03_rb,0.24164e-02_rb,0.27427e-02_rb,0.26163e-02_rb,0.13552e-02_rb /)\n      kbo(:, 3,42, 7) = (/ &\n        & 0.85464e-03_rb,0.28657e-02_rb,0.32419e-02_rb,0.30702e-02_rb,0.15103e-02_rb /)\n      kbo(:, 4,42, 7) = (/ &\n        & 0.97690e-03_rb,0.34148e-02_rb,0.38374e-02_rb,0.36136e-02_rb,0.16836e-02_rb /)\n      kbo(:, 5,42, 7) = (/ &\n        & 0.11154e-02_rb,0.40777e-02_rb,0.45486e-02_rb,0.42564e-02_rb,0.18765e-02_rb /)\n      kbo(:, 1,43, 7) = (/ &\n        & 0.54468e-03_rb,0.17260e-02_rb,0.19662e-02_rb,0.18963e-02_rb,0.10278e-02_rb /)\n      kbo(:, 2,43, 7) = (/ &\n        & 0.61495e-03_rb,0.20517e-02_rb,0.23339e-02_rb,0.22307e-02_rb,0.11544e-02_rb /)\n      kbo(:, 3,43, 7) = (/ &\n        & 0.70090e-03_rb,0.24526e-02_rb,0.27821e-02_rb,0.26393e-02_rb,0.12972e-02_rb /)\n      kbo(:, 4,43, 7) = (/ &\n        & 0.80460e-03_rb,0.29460e-02_rb,0.33228e-02_rb,0.31329e-02_rb,0.14583e-02_rb /)\n      kbo(:, 5,43, 7) = (/ &\n        & 0.92296e-03_rb,0.35462e-02_rb,0.39738e-02_rb,0.37220e-02_rb,0.16369e-02_rb /)\n      kbo(:, 1,44, 7) = (/ &\n        & 0.44364e-03_rb,0.14437e-02_rb,0.16496e-02_rb,0.15952e-02_rb,0.86540e-03_rb /)\n      kbo(:, 2,44, 7) = (/ &\n        & 0.50199e-03_rb,0.17304e-02_rb,0.19739e-02_rb,0.18912e-02_rb,0.97937e-03_rb /)\n      kbo(:, 3,44, 7) = (/ &\n        & 0.57242e-03_rb,0.20860e-02_rb,0.23731e-02_rb,0.22565e-02_rb,0.11106e-02_rb /)\n      kbo(:, 4,44, 7) = (/ &\n        & 0.65930e-03_rb,0.25283e-02_rb,0.28613e-02_rb,0.27024e-02_rb,0.12573e-02_rb /)\n      kbo(:, 5,44, 7) = (/ &\n        & 0.75974e-03_rb,0.30673e-02_rb,0.34531e-02_rb,0.32379e-02_rb,0.14238e-02_rb /)\n      kbo(:, 1,45, 7) = (/ &\n        & 0.36129e-03_rb,0.12055e-02_rb,0.13811e-02_rb,0.13394e-02_rb,0.72668e-03_rb /)\n      kbo(:, 2,45, 7) = (/ &\n        & 0.40925e-03_rb,0.14558e-02_rb,0.16660e-02_rb,0.16003e-02_rb,0.82937e-03_rb /)\n      kbo(:, 3,45, 7) = (/ &\n        & 0.46755e-03_rb,0.17705e-02_rb,0.20201e-02_rb,0.19260e-02_rb,0.94755e-03_rb /)\n      kbo(:, 4,45, 7) = (/ &\n        & 0.53937e-03_rb,0.21654e-02_rb,0.24593e-02_rb,0.23275e-02_rb,0.10822e-02_rb /)\n      kbo(:, 5,45, 7) = (/ &\n        & 0.62400e-03_rb,0.26505e-02_rb,0.29965e-02_rb,0.28141e-02_rb,0.12345e-02_rb /)\n      kbo(:, 1,46, 7) = (/ &\n        & 0.29308e-03_rb,0.99917e-03_rb,0.11483e-02_rb,0.11175e-02_rb,0.60699e-03_rb /)\n      kbo(:, 2,46, 7) = (/ &\n        & 0.33256e-03_rb,0.12167e-02_rb,0.13963e-02_rb,0.13454e-02_rb,0.69810e-03_rb /)\n      kbo(:, 3,46, 7) = (/ &\n        & 0.38031e-03_rb,0.14933e-02_rb,0.17091e-02_rb,0.16341e-02_rb,0.80431e-03_rb /)\n      kbo(:, 4,46, 7) = (/ &\n        & 0.43974e-03_rb,0.18423e-02_rb,0.21003e-02_rb,0.19926e-02_rb,0.92607e-03_rb /)\n      kbo(:, 5,46, 7) = (/ &\n        & 0.51042e-03_rb,0.22760e-02_rb,0.25842e-02_rb,0.24318e-02_rb,0.10656e-02_rb /)\n      kbo(:, 1,47, 7) = (/ &\n        & 0.23621e-03_rb,0.81920e-03_rb,0.94415e-03_rb,0.92230e-03_rb,0.50239e-03_rb /)\n      kbo(:, 2,47, 7) = (/ &\n        & 0.26847e-03_rb,0.10045e-02_rb,0.11560e-02_rb,0.11182e-02_rb,0.58268e-03_rb /)\n      kbo(:, 3,47, 7) = (/ &\n        & 0.30727e-03_rb,0.12442e-02_rb,0.14284e-02_rb,0.13701e-02_rb,0.67654e-03_rb /)\n      kbo(:, 4,47, 7) = (/ &\n        & 0.35565e-03_rb,0.15479e-02_rb,0.17727e-02_rb,0.16866e-02_rb,0.78602e-03_rb /)\n      kbo(:, 5,47, 7) = (/ &\n        & 0.41455e-03_rb,0.19320e-02_rb,0.22031e-02_rb,0.20787e-02_rb,0.91297e-03_rb /)\n      kbo(:, 1,48, 7) = (/ &\n        & 0.19056e-03_rb,0.66912e-03_rb,0.77329e-03_rb,0.75810e-03_rb,0.41434e-03_rb /)\n      kbo(:, 2,48, 7) = (/ &\n        & 0.21662e-03_rb,0.82638e-03_rb,0.95404e-03_rb,0.92602e-03_rb,0.48448e-03_rb /)\n      kbo(:, 3,48, 7) = (/ &\n        & 0.24805e-03_rb,0.10324e-02_rb,0.11883e-02_rb,0.11443e-02_rb,0.56714e-03_rb /)\n      kbo(:, 4,48, 7) = (/ &\n        & 0.28732e-03_rb,0.12967e-02_rb,0.14909e-02_rb,0.14226e-02_rb,0.66465e-03_rb /)\n      kbo(:, 5,48, 7) = (/ &\n        & 0.33598e-03_rb,0.16339e-02_rb,0.18720e-02_rb,0.17712e-02_rb,0.77925e-03_rb /)\n      kbo(:, 1,49, 7) = (/ &\n        & 0.15370e-03_rb,0.54435e-03_rb,0.63072e-03_rb,0.62031e-03_rb,0.34039e-03_rb /)\n      kbo(:, 2,49, 7) = (/ &\n        & 0.17493e-03_rb,0.67703e-03_rb,0.78385e-03_rb,0.76375e-03_rb,0.40110e-03_rb /)\n      kbo(:, 3,49, 7) = (/ &\n        & 0.20006e-03_rb,0.85331e-03_rb,0.98454e-03_rb,0.95185e-03_rb,0.47334e-03_rb /)\n      kbo(:, 4,49, 7) = (/ &\n        & 0.23184e-03_rb,0.10822e-02_rb,0.12482e-02_rb,0.11953e-02_rb,0.56021e-03_rb /)\n      kbo(:, 5,49, 7) = (/ &\n        & 0.27201e-03_rb,0.13761e-02_rb,0.15848e-02_rb,0.15038e-02_rb,0.66336e-03_rb /)\n      kbo(:, 1,50, 7) = (/ &\n        & 0.12445e-03_rb,0.44363e-03_rb,0.51558e-03_rb,0.50858e-03_rb,0.27983e-03_rb /)\n      kbo(:, 2,50, 7) = (/ &\n        & 0.14173e-03_rb,0.55572e-03_rb,0.64516e-03_rb,0.63048e-03_rb,0.33240e-03_rb /)\n      kbo(:, 3,50, 7) = (/ &\n        & 0.16225e-03_rb,0.70658e-03_rb,0.81789e-03_rb,0.79296e-03_rb,0.39601e-03_rb /)\n      kbo(:, 4,50, 7) = (/ &\n        & 0.18768e-03_rb,0.90539e-03_rb,0.10468e-02_rb,0.10060e-02_rb,0.47285e-03_rb /)\n      kbo(:, 5,50, 7) = (/ &\n        & 0.22071e-03_rb,0.11624e-02_rb,0.13446e-02_rb,0.12795e-02_rb,0.56523e-03_rb /)\n      kbo(:, 1,51, 7) = (/ &\n        & 0.10079e-03_rb,0.36142e-03_rb,0.42089e-03_rb,0.41617e-03_rb,0.23042e-03_rb /)\n      kbo(:, 2,51, 7) = (/ &\n        & 0.11508e-03_rb,0.45540e-03_rb,0.53023e-03_rb,0.51983e-03_rb,0.27489e-03_rb /)\n      kbo(:, 3,51, 7) = (/ &\n        & 0.13183e-03_rb,0.58426e-03_rb,0.67873e-03_rb,0.65942e-03_rb,0.33073e-03_rb /)\n      kbo(:, 4,51, 7) = (/ &\n        & 0.15243e-03_rb,0.75694e-03_rb,0.87652e-03_rb,0.84573e-03_rb,0.39869e-03_rb /)\n      kbo(:, 5,51, 7) = (/ &\n        & 0.17921e-03_rb,0.98295e-03_rb,0.11402e-02_rb,0.10885e-02_rb,0.48140e-03_rb /)\n      kbo(:, 1,52, 7) = (/ &\n        & 0.81556e-04_rb,0.29363e-03_rb,0.34244e-03_rb,0.33921e-03_rb,0.18905e-03_rb /)\n      kbo(:, 2,52, 7) = (/ &\n        & 0.93358e-04_rb,0.37204e-03_rb,0.43415e-03_rb,0.42707e-03_rb,0.22730e-03_rb /)\n      kbo(:, 3,52, 7) = (/ &\n        & 0.10711e-03_rb,0.48125e-03_rb,0.56095e-03_rb,0.54625e-03_rb,0.27517e-03_rb /)\n      kbo(:, 4,52, 7) = (/ &\n        & 0.12382e-03_rb,0.62999e-03_rb,0.73195e-03_rb,0.70815e-03_rb,0.33506e-03_rb /)\n      kbo(:, 5,52, 7) = (/ &\n        & 0.14564e-03_rb,0.82786e-03_rb,0.96258e-03_rb,0.92197e-03_rb,0.40847e-03_rb /)\n      kbo(:, 1,53, 7) = (/ &\n        & 0.65849e-04_rb,0.23779e-03_rb,0.27734e-03_rb,0.27519e-03_rb,0.15433e-03_rb /)\n      kbo(:, 2,53, 7) = (/ &\n        & 0.75546e-04_rb,0.30303e-03_rb,0.35410e-03_rb,0.34952e-03_rb,0.18741e-03_rb /)\n      kbo(:, 3,53, 7) = (/ &\n        & 0.86880e-04_rb,0.39464e-03_rb,0.46133e-03_rb,0.45049e-03_rb,0.22844e-03_rb /)\n      kbo(:, 4,53, 7) = (/ &\n        & 0.10061e-03_rb,0.52205e-03_rb,0.60866e-03_rb,0.59002e-03_rb,0.28045e-03_rb /)\n      kbo(:, 5,53, 7) = (/ &\n        & 0.11837e-03_rb,0.69424e-03_rb,0.80911e-03_rb,0.77763e-03_rb,0.34549e-03_rb /)\n      kbo(:, 1,54, 7) = (/ &\n        & 0.53194e-04_rb,0.19358e-03_rb,0.22554e-03_rb,0.22386e-03_rb,0.12634e-03_rb /)\n      kbo(:, 2,54, 7) = (/ &\n        & 0.61356e-04_rb,0.24774e-03_rb,0.28991e-03_rb,0.28698e-03_rb,0.15485e-03_rb /)\n      kbo(:, 3,54, 7) = (/ &\n        & 0.70732e-04_rb,0.32546e-03_rb,0.38104e-03_rb,0.37325e-03_rb,0.19067e-03_rb /)\n      kbo(:, 4,54, 7) = (/ &\n        & 0.81989e-04_rb,0.43475e-03_rb,0.50842e-03_rb,0.49348e-03_rb,0.23573e-03_rb /)\n      kbo(:, 5,54, 7) = (/ &\n        & 0.96606e-04_rb,0.58491e-03_rb,0.68358e-03_rb,0.65848e-03_rb,0.29331e-03_rb /)\n      kbo(:, 1,55, 7) = (/ &\n        & 0.42968e-04_rb,0.15774e-03_rb,0.18351e-03_rb,0.18209e-03_rb,0.10325e-03_rb /)\n      kbo(:, 2,55, 7) = (/ &\n        & 0.49757e-04_rb,0.20300e-03_rb,0.23752e-03_rb,0.23563e-03_rb,0.12786e-03_rb /)\n      kbo(:, 3,55, 7) = (/ &\n        & 0.57602e-04_rb,0.26853e-03_rb,0.31476e-03_rb,0.30938e-03_rb,0.15908e-03_rb /)\n      kbo(:, 4,55, 7) = (/ &\n        & 0.66944e-04_rb,0.36215e-03_rb,0.42458e-03_rb,0.41285e-03_rb,0.19867e-03_rb /)\n      kbo(:, 5,55, 7) = (/ &\n        & 0.78909e-04_rb,0.49332e-03_rb,0.57794e-03_rb,0.55775e-03_rb,0.24929e-03_rb /)\n      kbo(:, 1,56, 7) = (/ &\n        & 0.34572e-04_rb,0.12819e-03_rb,0.14868e-03_rb,0.14747e-03_rb,0.84103e-04_rb /)\n      kbo(:, 2,56, 7) = (/ &\n        & 0.40234e-04_rb,0.16586e-03_rb,0.19409e-03_rb,0.19266e-03_rb,0.10511e-03_rb /)\n      kbo(:, 3,56, 7) = (/ &\n        & 0.46756e-04_rb,0.22079e-03_rb,0.25905e-03_rb,0.25536e-03_rb,0.13228e-03_rb /)\n      kbo(:, 4,56, 7) = (/ &\n        & 0.54583e-04_rb,0.30103e-03_rb,0.35315e-03_rb,0.34421e-03_rb,0.16708e-03_rb /)\n      kbo(:, 5,56, 7) = (/ &\n        & 0.64414e-04_rb,0.41471e-03_rb,0.48701e-03_rb,0.47045e-03_rb,0.21139e-03_rb /)\n      kbo(:, 1,57, 7) = (/ &\n        & 0.27768e-04_rb,0.10391e-03_rb,0.12029e-03_rb,0.11888e-03_rb,0.68178e-04_rb /)\n      kbo(:, 2,57, 7) = (/ &\n        & 0.32463e-04_rb,0.13502e-03_rb,0.15785e-03_rb,0.15684e-03_rb,0.86073e-04_rb /)\n      kbo(:, 3,57, 7) = (/ &\n        & 0.37880e-04_rb,0.18114e-03_rb,0.21255e-03_rb,0.20984e-03_rb,0.10949e-03_rb /)\n      kbo(:, 4,57, 7) = (/ &\n        & 0.44374e-04_rb,0.24914e-03_rb,0.29262e-03_rb,0.28609e-03_rb,0.14004e-03_rb /)\n      kbo(:, 5,57, 7) = (/ &\n        & 0.52560e-04_rb,0.34723e-03_rb,0.40853e-03_rb,0.39531e-03_rb,0.17907e-03_rb /)\n      kbo(:, 1,58, 7) = (/ &\n        & 0.22293e-04_rb,0.84410e-04_rb,0.97318e-04_rb,0.95954e-04_rb,0.55246e-04_rb /)\n      kbo(:, 2,58, 7) = (/ &\n        & 0.26200e-04_rb,0.11013e-03_rb,0.12878e-03_rb,0.12778e-03_rb,0.70434e-04_rb /)\n      kbo(:, 3,58, 7) = (/ &\n        & 0.30694e-04_rb,0.14878e-03_rb,0.17475e-03_rb,0.17269e-03_rb,0.90681e-04_rb /)\n      kbo(:, 4,58, 7) = (/ &\n        & 0.36071e-04_rb,0.20666e-03_rb,0.24284e-03_rb,0.23795e-03_rb,0.11731e-03_rb /)\n      kbo(:, 5,58, 7) = (/ &\n        & 0.42845e-04_rb,0.29161e-03_rb,0.34322e-03_rb,0.33267e-03_rb,0.15208e-03_rb /)\n      kbo(:, 1,59, 7) = (/ &\n        & 0.18430e-04_rb,0.71706e-04_rb,0.82601e-04_rb,0.81289e-04_rb,0.46584e-04_rb /)\n      kbo(:, 2,59, 7) = (/ &\n        & 0.21734e-04_rb,0.94599e-04_rb,0.11060e-03_rb,0.10958e-03_rb,0.60168e-04_rb /)\n      kbo(:, 3,59, 7) = (/ &\n        & 0.25561e-04_rb,0.12924e-03_rb,0.15196e-03_rb,0.15008e-03_rb,0.78430e-04_rb /)\n      kbo(:, 4,59, 7) = (/ &\n        & 0.30185e-04_rb,0.18220e-03_rb,0.21420e-03_rb,0.20980e-03_rb,0.10280e-03_rb /)\n      kbo(:, 5,59, 7) = (/ &\n        & 0.36067e-04_rb,0.26061e-03_rb,0.30710e-03_rb,0.29739e-03_rb,0.13531e-03_rb /)\n      kbo(:, 1,13, 8) = (/ &\n        & 0.32299e+00_rb,0.54760e+00_rb,0.60079e+00_rb,0.58517e+00_rb,0.42276e+00_rb /)\n      kbo(:, 2,13, 8) = (/ &\n        & 0.32594e+00_rb,0.55963e+00_rb,0.61653e+00_rb,0.60147e+00_rb,0.43281e+00_rb /)\n      kbo(:, 3,13, 8) = (/ &\n        & 0.33056e+00_rb,0.57182e+00_rb,0.63236e+00_rb,0.61863e+00_rb,0.44149e+00_rb /)\n      kbo(:, 4,13, 8) = (/ &\n        & 0.33706e+00_rb,0.58426e+00_rb,0.64822e+00_rb,0.63489e+00_rb,0.44893e+00_rb /)\n      kbo(:, 5,13, 8) = (/ &\n        & 0.34635e+00_rb,0.59739e+00_rb,0.66343e+00_rb,0.65003e+00_rb,0.45486e+00_rb /)\n      kbo(:, 1,14, 8) = (/ &\n        & 0.27185e+00_rb,0.47396e+00_rb,0.52087e+00_rb,0.50518e+00_rb,0.35898e+00_rb /)\n      kbo(:, 2,14, 8) = (/ &\n        & 0.27455e+00_rb,0.48454e+00_rb,0.53473e+00_rb,0.52058e+00_rb,0.36725e+00_rb /)\n      kbo(:, 3,14, 8) = (/ &\n        & 0.27878e+00_rb,0.49523e+00_rb,0.54876e+00_rb,0.53556e+00_rb,0.37477e+00_rb /)\n      kbo(:, 4,14, 8) = (/ &\n        & 0.28540e+00_rb,0.50660e+00_rb,0.56244e+00_rb,0.54948e+00_rb,0.38095e+00_rb /)\n      kbo(:, 5,14, 8) = (/ &\n        & 0.29474e+00_rb,0.51876e+00_rb,0.57592e+00_rb,0.56255e+00_rb,0.38660e+00_rb /)\n      kbo(:, 1,15, 8) = (/ &\n        & 0.22818e+00_rb,0.40825e+00_rb,0.45003e+00_rb,0.43582e+00_rb,0.30350e+00_rb /)\n      kbo(:, 2,15, 8) = (/ &\n        & 0.23074e+00_rb,0.41749e+00_rb,0.46220e+00_rb,0.44930e+00_rb,0.31064e+00_rb /)\n      kbo(:, 3,15, 8) = (/ &\n        & 0.23510e+00_rb,0.42737e+00_rb,0.47434e+00_rb,0.46202e+00_rb,0.31696e+00_rb /)\n      kbo(:, 4,15, 8) = (/ &\n        & 0.24186e+00_rb,0.43783e+00_rb,0.48637e+00_rb,0.47387e+00_rb,0.32265e+00_rb /)\n      kbo(:, 5,15, 8) = (/ &\n        & 0.25121e+00_rb,0.44943e+00_rb,0.49855e+00_rb,0.48519e+00_rb,0.32816e+00_rb /)\n      kbo(:, 1,16, 8) = (/ &\n        & 0.19120e+00_rb,0.34975e+00_rb,0.38732e+00_rb,0.37509e+00_rb,0.25617e+00_rb /)\n      kbo(:, 2,16, 8) = (/ &\n        & 0.19385e+00_rb,0.35826e+00_rb,0.39799e+00_rb,0.38666e+00_rb,0.26259e+00_rb /)\n      kbo(:, 3,16, 8) = (/ &\n        & 0.19846e+00_rb,0.36727e+00_rb,0.40872e+00_rb,0.39750e+00_rb,0.26815e+00_rb /)\n      kbo(:, 4,16, 8) = (/ &\n        & 0.20537e+00_rb,0.37712e+00_rb,0.41954e+00_rb,0.40777e+00_rb,0.27330e+00_rb /)\n      kbo(:, 5,16, 8) = (/ &\n        & 0.21427e+00_rb,0.38868e+00_rb,0.43071e+00_rb,0.41784e+00_rb,0.27853e+00_rb /)\n      kbo(:, 1,17, 8) = (/ &\n        & 0.15988e+00_rb,0.29854e+00_rb,0.33180e+00_rb,0.32201e+00_rb,0.21611e+00_rb /)\n      kbo(:, 2,17, 8) = (/ &\n        & 0.16279e+00_rb,0.30628e+00_rb,0.34129e+00_rb,0.33188e+00_rb,0.22162e+00_rb /)\n      kbo(:, 3,17, 8) = (/ &\n        & 0.16763e+00_rb,0.31463e+00_rb,0.35085e+00_rb,0.34122e+00_rb,0.22664e+00_rb /)\n      kbo(:, 4,17, 8) = (/ &\n        & 0.17444e+00_rb,0.32432e+00_rb,0.36068e+00_rb,0.35032e+00_rb,0.23161e+00_rb /)\n      kbo(:, 5,17, 8) = (/ &\n        & 0.18274e+00_rb,0.33609e+00_rb,0.37140e+00_rb,0.35944e+00_rb,0.23665e+00_rb /)\n      kbo(:, 1,18, 8) = (/ &\n        & 0.13352e+00_rb,0.25404e+00_rb,0.28330e+00_rb,0.27577e+00_rb,0.18225e+00_rb /)\n      kbo(:, 2,18, 8) = (/ &\n        & 0.13667e+00_rb,0.26103e+00_rb,0.29171e+00_rb,0.28431e+00_rb,0.18712e+00_rb /)\n      kbo(:, 3,18, 8) = (/ &\n        & 0.14164e+00_rb,0.26910e+00_rb,0.30030e+00_rb,0.29254e+00_rb,0.19176e+00_rb /)\n      kbo(:, 4,18, 8) = (/ &\n        & 0.14809e+00_rb,0.27886e+00_rb,0.30959e+00_rb,0.30073e+00_rb,0.19637e+00_rb /)\n      kbo(:, 5,18, 8) = (/ &\n        & 0.15551e+00_rb,0.29050e+00_rb,0.32020e+00_rb,0.30930e+00_rb,0.20115e+00_rb /)\n      kbo(:, 1,19, 8) = (/ &\n        & 0.11177e+00_rb,0.21580e+00_rb,0.24136e+00_rb,0.23552e+00_rb,0.15392e+00_rb /)\n      kbo(:, 2,19, 8) = (/ &\n        & 0.11504e+00_rb,0.22243e+00_rb,0.24890e+00_rb,0.24304e+00_rb,0.15833e+00_rb /)\n      kbo(:, 3,19, 8) = (/ &\n        & 0.11975e+00_rb,0.23031e+00_rb,0.25687e+00_rb,0.25048e+00_rb,0.16244e+00_rb /)\n      kbo(:, 4,19, 8) = (/ &\n        & 0.12553e+00_rb,0.23994e+00_rb,0.26588e+00_rb,0.25812e+00_rb,0.16671e+00_rb /)\n      kbo(:, 5,19, 8) = (/ &\n        & 0.13204e+00_rb,0.25107e+00_rb,0.27639e+00_rb,0.26629e+00_rb,0.17110e+00_rb /)\n      kbo(:, 1,20, 8) = (/ &\n        & 0.93818e-01_rb,0.18336e+00_rb,0.20533e+00_rb,0.20083e+00_rb,0.13063e+00_rb /)\n      kbo(:, 2,20, 8) = (/ &\n        & 0.97153e-01_rb,0.18975e+00_rb,0.21222e+00_rb,0.20754e+00_rb,0.13445e+00_rb /)\n      kbo(:, 3,20, 8) = (/ &\n        & 0.10157e+00_rb,0.19759e+00_rb,0.21989e+00_rb,0.21439e+00_rb,0.13819e+00_rb /)\n      kbo(:, 4,20, 8) = (/ &\n        & 0.10656e+00_rb,0.20692e+00_rb,0.22885e+00_rb,0.22170e+00_rb,0.14200e+00_rb /)\n      kbo(:, 5,20, 8) = (/ &\n        & 0.11217e+00_rb,0.21741e+00_rb,0.23914e+00_rb,0.22972e+00_rb,0.14595e+00_rb /)\n      kbo(:, 1,21, 8) = (/ &\n        & 0.78864e-01_rb,0.15581e+00_rb,0.17467e+00_rb,0.17111e+00_rb,0.11093e+00_rb /)\n      kbo(:, 2,21, 8) = (/ &\n        & 0.82115e-01_rb,0.16213e+00_rb,0.18114e+00_rb,0.17722e+00_rb,0.11448e+00_rb /)\n      kbo(:, 3,21, 8) = (/ &\n        & 0.86091e-01_rb,0.16989e+00_rb,0.18858e+00_rb,0.18368e+00_rb,0.11795e+00_rb /)\n      kbo(:, 4,21, 8) = (/ &\n        & 0.90544e-01_rb,0.17883e+00_rb,0.19740e+00_rb,0.19075e+00_rb,0.12140e+00_rb /)\n      kbo(:, 5,21, 8) = (/ &\n        & 0.95531e-01_rb,0.18857e+00_rb,0.20719e+00_rb,0.19872e+00_rb,0.12494e+00_rb /)\n      kbo(:, 1,22, 8) = (/ &\n        & 0.66536e-01_rb,0.13293e+00_rb,0.14913e+00_rb,0.14618e+00_rb,0.94429e-01_rb /)\n      kbo(:, 2,22, 8) = (/ &\n        & 0.69639e-01_rb,0.13931e+00_rb,0.15537e+00_rb,0.15187e+00_rb,0.97680e-01_rb /)\n      kbo(:, 3,22, 8) = (/ &\n        & 0.73194e-01_rb,0.14688e+00_rb,0.16282e+00_rb,0.15805e+00_rb,0.10087e+00_rb /)\n      kbo(:, 4,22, 8) = (/ &\n        & 0.77205e-01_rb,0.15536e+00_rb,0.17135e+00_rb,0.16503e+00_rb,0.10414e+00_rb /)\n      kbo(:, 5,22, 8) = (/ &\n        & 0.81667e-01_rb,0.16427e+00_rb,0.18066e+00_rb,0.17291e+00_rb,0.10744e+00_rb /)\n      kbo(:, 1,23, 8) = (/ &\n        & 0.56261e-01_rb,0.11383e+00_rb,0.12760e+00_rb,0.12512e+00_rb,0.80559e-01_rb /)\n      kbo(:, 2,23, 8) = (/ &\n        & 0.59086e-01_rb,0.12014e+00_rb,0.13384e+00_rb,0.13048e+00_rb,0.83485e-01_rb /)\n      kbo(:, 3,23, 8) = (/ &\n        & 0.62281e-01_rb,0.12738e+00_rb,0.14121e+00_rb,0.13648e+00_rb,0.86460e-01_rb /)\n      kbo(:, 4,23, 8) = (/ &\n        & 0.65906e-01_rb,0.13517e+00_rb,0.14937e+00_rb,0.14336e+00_rb,0.89462e-01_rb /)\n      kbo(:, 5,23, 8) = (/ &\n        & 0.69998e-01_rb,0.14335e+00_rb,0.15807e+00_rb,0.15098e+00_rb,0.92588e-01_rb /)\n      kbo(:, 1,24, 8) = (/ &\n        & 0.47642e-01_rb,0.97933e-01_rb,0.10963e+00_rb,0.10742e+00_rb,0.68750e-01_rb /)\n      kbo(:, 2,24, 8) = (/ &\n        & 0.50193e-01_rb,0.10399e+00_rb,0.11587e+00_rb,0.11258e+00_rb,0.71432e-01_rb /)\n      kbo(:, 3,24, 8) = (/ &\n        & 0.53085e-01_rb,0.11077e+00_rb,0.12298e+00_rb,0.11845e+00_rb,0.74194e-01_rb /)\n      kbo(:, 4,24, 8) = (/ &\n        & 0.56384e-01_rb,0.11795e+00_rb,0.13070e+00_rb,0.12512e+00_rb,0.76973e-01_rb /)\n      kbo(:, 5,24, 8) = (/ &\n        & 0.60174e-01_rb,0.12555e+00_rb,0.13879e+00_rb,0.13237e+00_rb,0.79920e-01_rb /)\n      kbo(:, 1,25, 8) = (/ &\n        & 0.40432e-01_rb,0.84645e-01_rb,0.94724e-01_rb,0.92637e-01_rb,0.58805e-01_rb /)\n      kbo(:, 2,25, 8) = (/ &\n        & 0.42748e-01_rb,0.90409e-01_rb,0.10079e+00_rb,0.97654e-01_rb,0.61289e-01_rb /)\n      kbo(:, 3,25, 8) = (/ &\n        & 0.45392e-01_rb,0.96682e-01_rb,0.10756e+00_rb,0.10341e+00_rb,0.63818e-01_rb /)\n      kbo(:, 4,25, 8) = (/ &\n        & 0.48438e-01_rb,0.10335e+00_rb,0.11478e+00_rb,0.10978e+00_rb,0.66481e-01_rb /)\n      kbo(:, 5,25, 8) = (/ &\n        & 0.52019e-01_rb,0.11050e+00_rb,0.12234e+00_rb,0.11664e+00_rb,0.69209e-01_rb /)\n      kbo(:, 1,26, 8) = (/ &\n        & 0.34430e-01_rb,0.73567e-01_rb,0.82349e-01_rb,0.80341e-01_rb,0.50485e-01_rb /)\n      kbo(:, 2,26, 8) = (/ &\n        & 0.36558e-01_rb,0.78997e-01_rb,0.88163e-01_rb,0.85293e-01_rb,0.52835e-01_rb /)\n      kbo(:, 3,26, 8) = (/ &\n        & 0.39009e-01_rb,0.84818e-01_rb,0.94521e-01_rb,0.90851e-01_rb,0.55181e-01_rb /)\n      kbo(:, 4,26, 8) = (/ &\n        & 0.41876e-01_rb,0.91074e-01_rb,0.10127e+00_rb,0.96922e-01_rb,0.57644e-01_rb /)\n      kbo(:, 5,26, 8) = (/ &\n        & 0.45294e-01_rb,0.97874e-01_rb,0.10841e+00_rb,0.10340e+00_rb,0.60258e-01_rb /)\n      kbo(:, 1,27, 8) = (/ &\n        & 0.29418e-01_rb,0.64289e-01_rb,0.71984e-01_rb,0.70112e-01_rb,0.43514e-01_rb /)\n      kbo(:, 2,27, 8) = (/ &\n        & 0.31367e-01_rb,0.69333e-01_rb,0.77500e-01_rb,0.74945e-01_rb,0.45654e-01_rb /)\n      kbo(:, 3,27, 8) = (/ &\n        & 0.33650e-01_rb,0.74779e-01_rb,0.83451e-01_rb,0.80284e-01_rb,0.47838e-01_rb /)\n      kbo(:, 4,27, 8) = (/ &\n        & 0.36373e-01_rb,0.80698e-01_rb,0.89803e-01_rb,0.86035e-01_rb,0.50188e-01_rb /)\n      kbo(:, 5,27, 8) = (/ &\n        & 0.39625e-01_rb,0.87227e-01_rb,0.96605e-01_rb,0.92163e-01_rb,0.52661e-01_rb /)\n      kbo(:, 1,28, 8) = (/ &\n        & 0.25206e-01_rb,0.56436e-01_rb,0.63282e-01_rb,0.61571e-01_rb,0.37602e-01_rb /)\n      kbo(:, 2,28, 8) = (/ &\n        & 0.27009e-01_rb,0.61147e-01_rb,0.68481e-01_rb,0.66237e-01_rb,0.39562e-01_rb /)\n      kbo(:, 3,28, 8) = (/ &\n        & 0.29150e-01_rb,0.66302e-01_rb,0.74074e-01_rb,0.71341e-01_rb,0.41601e-01_rb /)\n      kbo(:, 4,28, 8) = (/ &\n        & 0.31750e-01_rb,0.71955e-01_rb,0.80104e-01_rb,0.76785e-01_rb,0.43794e-01_rb /)\n      kbo(:, 5,28, 8) = (/ &\n        & 0.34834e-01_rb,0.78268e-01_rb,0.86662e-01_rb,0.82632e-01_rb,0.46193e-01_rb /)\n      kbo(:, 1,29, 8) = (/ &\n        & 0.21672e-01_rb,0.49821e-01_rb,0.55985e-01_rb,0.54431e-01_rb,0.32677e-01_rb /)\n      kbo(:, 2,29, 8) = (/ &\n        & 0.23360e-01_rb,0.54257e-01_rb,0.60871e-01_rb,0.58918e-01_rb,0.34453e-01_rb /)\n      kbo(:, 3,29, 8) = (/ &\n        & 0.25420e-01_rb,0.59159e-01_rb,0.66168e-01_rb,0.63765e-01_rb,0.36398e-01_rb /)\n      kbo(:, 4,29, 8) = (/ &\n        & 0.27908e-01_rb,0.64629e-01_rb,0.71935e-01_rb,0.68977e-01_rb,0.38490e-01_rb /)\n      kbo(:, 5,29, 8) = (/ &\n        & 0.30843e-01_rb,0.70791e-01_rb,0.78323e-01_rb,0.74610e-01_rb,0.40747e-01_rb /)\n      kbo(:, 1,30, 8) = (/ &\n        & 0.18703e-01_rb,0.44236e-01_rb,0.49819e-01_rb,0.48423e-01_rb,0.28503e-01_rb /)\n      kbo(:, 2,30, 8) = (/ &\n        & 0.20315e-01_rb,0.48445e-01_rb,0.54425e-01_rb,0.52720e-01_rb,0.30174e-01_rb /)\n      kbo(:, 3,30, 8) = (/ &\n        & 0.22307e-01_rb,0.53163e-01_rb,0.59481e-01_rb,0.57359e-01_rb,0.32018e-01_rb /)\n      kbo(:, 4,30, 8) = (/ &\n        & 0.24687e-01_rb,0.58495e-01_rb,0.65064e-01_rb,0.62368e-01_rb,0.34022e-01_rb /)\n      kbo(:, 5,30, 8) = (/ &\n        & 0.27510e-01_rb,0.64597e-01_rb,0.71352e-01_rb,0.67860e-01_rb,0.36243e-01_rb /)\n      kbo(:, 1,31, 8) = (/ &\n        & 0.16227e-01_rb,0.39546e-01_rb,0.44613e-01_rb,0.43384e-01_rb,0.24947e-01_rb /)\n      kbo(:, 2,31, 8) = (/ &\n        & 0.17791e-01_rb,0.43576e-01_rb,0.49010e-01_rb,0.47501e-01_rb,0.26577e-01_rb /)\n      kbo(:, 3,31, 8) = (/ &\n        & 0.19720e-01_rb,0.48163e-01_rb,0.53877e-01_rb,0.51962e-01_rb,0.28347e-01_rb /)\n      kbo(:, 4,31, 8) = (/ &\n        & 0.22010e-01_rb,0.53419e-01_rb,0.59368e-01_rb,0.56842e-01_rb,0.30326e-01_rb /)\n      kbo(:, 5,31, 8) = (/ &\n        & 0.24778e-01_rb,0.59533e-01_rb,0.65582e-01_rb,0.62279e-01_rb,0.32464e-01_rb /)\n      kbo(:, 1,32, 8) = (/ &\n        & 0.14168e-01_rb,0.35610e-01_rb,0.40228e-01_rb,0.39145e-01_rb,0.21998e-01_rb /)\n      kbo(:, 2,32, 8) = (/ &\n        & 0.15701e-01_rb,0.39518e-01_rb,0.44455e-01_rb,0.43108e-01_rb,0.23551e-01_rb /)\n      kbo(:, 3,32, 8) = (/ &\n        & 0.17568e-01_rb,0.44028e-01_rb,0.49228e-01_rb,0.47442e-01_rb,0.25303e-01_rb /)\n      kbo(:, 4,32, 8) = (/ &\n        & 0.19822e-01_rb,0.49274e-01_rb,0.54644e-01_rb,0.52269e-01_rb,0.27219e-01_rb /)\n      kbo(:, 5,32, 8) = (/ &\n        & 0.22492e-01_rb,0.55429e-01_rb,0.60878e-01_rb,0.57696e-01_rb,0.29289e-01_rb /)\n      kbo(:, 1,33, 8) = (/ &\n        & 0.12469e-01_rb,0.32321e-01_rb,0.36548e-01_rb,0.35586e-01_rb,0.19535e-01_rb /)\n      kbo(:, 2,33, 8) = (/ &\n        & 0.13967e-01_rb,0.36160e-01_rb,0.40670e-01_rb,0.39414e-01_rb,0.21057e-01_rb /)\n      kbo(:, 3,33, 8) = (/ &\n        & 0.15804e-01_rb,0.40646e-01_rb,0.45371e-01_rb,0.43697e-01_rb,0.22748e-01_rb /)\n      kbo(:, 4,33, 8) = (/ &\n        & 0.18007e-01_rb,0.45935e-01_rb,0.50790e-01_rb,0.48504e-01_rb,0.24589e-01_rb /)\n      kbo(:, 5,33, 8) = (/ &\n        & 0.20583e-01_rb,0.52117e-01_rb,0.57083e-01_rb,0.53949e-01_rb,0.26612e-01_rb /)\n      kbo(:, 1,34, 8) = (/ &\n        & 0.11030e-01_rb,0.29462e-01_rb,0.33333e-01_rb,0.32457e-01_rb,0.17441e-01_rb /)\n      kbo(:, 2,34, 8) = (/ &\n        & 0.12485e-01_rb,0.33252e-01_rb,0.37374e-01_rb,0.36203e-01_rb,0.18902e-01_rb /)\n      kbo(:, 3,34, 8) = (/ &\n        & 0.14284e-01_rb,0.37735e-01_rb,0.42039e-01_rb,0.40449e-01_rb,0.20533e-01_rb /)\n      kbo(:, 4,34, 8) = (/ &\n        & 0.16406e-01_rb,0.43050e-01_rb,0.47473e-01_rb,0.45250e-01_rb,0.22315e-01_rb /)\n      kbo(:, 5,34, 8) = (/ &\n        & 0.18889e-01_rb,0.49221e-01_rb,0.53838e-01_rb,0.50709e-01_rb,0.24295e-01_rb /)\n      kbo(:, 1,35, 8) = (/ &\n        & 0.97045e-02_rb,0.26765e-01_rb,0.30294e-01_rb,0.29494e-01_rb,0.15527e-01_rb /)\n      kbo(:, 2,35, 8) = (/ &\n        & 0.11116e-01_rb,0.30471e-01_rb,0.34237e-01_rb,0.33156e-01_rb,0.16936e-01_rb /)\n      kbo(:, 3,35, 8) = (/ &\n        & 0.12833e-01_rb,0.34908e-01_rb,0.38827e-01_rb,0.37335e-01_rb,0.18494e-01_rb /)\n      kbo(:, 4,35, 8) = (/ &\n        & 0.14851e-01_rb,0.40160e-01_rb,0.44228e-01_rb,0.42095e-01_rb,0.20230e-01_rb /)\n      kbo(:, 5,35, 8) = (/ &\n        & 0.17220e-01_rb,0.46275e-01_rb,0.50600e-01_rb,0.47524e-01_rb,0.22137e-01_rb /)\n      kbo(:, 1,36, 8) = (/ &\n        & 0.84787e-02_rb,0.24131e-01_rb,0.27339e-01_rb,0.26619e-01_rb,0.13756e-01_rb /)\n      kbo(:, 2,36, 8) = (/ &\n        & 0.98033e-02_rb,0.27706e-01_rb,0.31147e-01_rb,0.30166e-01_rb,0.15106e-01_rb /)\n      kbo(:, 3,36, 8) = (/ &\n        & 0.11407e-01_rb,0.32015e-01_rb,0.35610e-01_rb,0.34239e-01_rb,0.16593e-01_rb /)\n      kbo(:, 4,36, 8) = (/ &\n        & 0.13302e-01_rb,0.37140e-01_rb,0.40907e-01_rb,0.38904e-01_rb,0.18257e-01_rb /)\n      kbo(:, 5,36, 8) = (/ &\n        & 0.15537e-01_rb,0.43129e-01_rb,0.47182e-01_rb,0.44236e-01_rb,0.20074e-01_rb /)\n      kbo(:, 1,37, 8) = (/ &\n        & 0.72685e-02_rb,0.21392e-01_rb,0.24301e-01_rb,0.23679e-01_rb,0.12087e-01_rb /)\n      kbo(:, 2,37, 8) = (/ &\n        & 0.84733e-02_rb,0.24759e-01_rb,0.27898e-01_rb,0.27046e-01_rb,0.13342e-01_rb /)\n      kbo(:, 3,37, 8) = (/ &\n        & 0.99353e-02_rb,0.28848e-01_rb,0.32152e-01_rb,0.30940e-01_rb,0.14748e-01_rb /)\n      kbo(:, 4,37, 8) = (/ &\n        & 0.11673e-01_rb,0.33734e-01_rb,0.37224e-01_rb,0.35422e-01_rb,0.16319e-01_rb /)\n      kbo(:, 5,37, 8) = (/ &\n        & 0.13740e-01_rb,0.39481e-01_rb,0.43256e-01_rb,0.40566e-01_rb,0.18049e-01_rb /)\n      kbo(:, 1,38, 8) = (/ &\n        & 0.62326e-02_rb,0.18999e-01_rb,0.21644e-01_rb,0.21103e-01_rb,0.10629e-01_rb /)\n      kbo(:, 2,38, 8) = (/ &\n        & 0.73269e-02_rb,0.22170e-01_rb,0.25042e-01_rb,0.24299e-01_rb,0.11807e-01_rb /)\n      kbo(:, 3,38, 8) = (/ &\n        & 0.86586e-02_rb,0.26045e-01_rb,0.29098e-01_rb,0.28019e-01_rb,0.13138e-01_rb /)\n      kbo(:, 4,38, 8) = (/ &\n        & 0.10254e-01_rb,0.30699e-01_rb,0.33952e-01_rb,0.32316e-01_rb,0.14621e-01_rb /)\n      kbo(:, 5,38, 8) = (/ &\n        & 0.12168e-01_rb,0.36211e-01_rb,0.39748e-01_rb,0.37288e-01_rb,0.16263e-01_rb /)\n      kbo(:, 1,39, 8) = (/ &\n        & 0.53522e-02_rb,0.16925e-01_rb,0.19337e-01_rb,0.18863e-01_rb,0.93697e-02_rb /)\n      kbo(:, 2,39, 8) = (/ &\n        & 0.63437e-02_rb,0.19916e-01_rb,0.22555e-01_rb,0.21900e-01_rb,0.10477e-01_rb /)\n      kbo(:, 3,39, 8) = (/ &\n        & 0.75600e-02_rb,0.23590e-01_rb,0.26428e-01_rb,0.25453e-01_rb,0.11732e-01_rb /)\n      kbo(:, 4,39, 8) = (/ &\n        & 0.90277e-02_rb,0.28027e-01_rb,0.31081e-01_rb,0.29581e-01_rb,0.13140e-01_rb /)\n      kbo(:, 5,39, 8) = (/ &\n        & 0.10804e-01_rb,0.33325e-01_rb,0.36655e-01_rb,0.34396e-01_rb,0.14714e-01_rb /)\n      kbo(:, 1,40, 8) = (/ &\n        & 0.45183e-02_rb,0.14862e-01_rb,0.17043e-01_rb,0.16640e-01_rb,0.81906e-02_rb /)\n      kbo(:, 2,40, 8) = (/ &\n        & 0.53964e-02_rb,0.17630e-01_rb,0.20043e-01_rb,0.19482e-01_rb,0.92335e-02_rb /)\n      kbo(:, 3,40, 8) = (/ &\n        & 0.64835e-02_rb,0.21041e-01_rb,0.23674e-01_rb,0.22821e-01_rb,0.10400e-01_rb /)\n      kbo(:, 4,40, 8) = (/ &\n        & 0.78100e-02_rb,0.25197e-01_rb,0.28056e-01_rb,0.26733e-01_rb,0.11718e-01_rb /)\n      kbo(:, 5,40, 8) = (/ &\n        & 0.94310e-02_rb,0.30203e-01_rb,0.33322e-01_rb,0.31321e-01_rb,0.13209e-01_rb /)\n      kbo(:, 1,41, 8) = (/ &\n        & 0.38020e-02_rb,0.13035e-01_rb,0.15007e-01_rb,0.14665e-01_rb,0.71645e-02_rb /)\n      kbo(:, 2,41, 8) = (/ &\n        & 0.45796e-02_rb,0.15592e-01_rb,0.17802e-01_rb,0.17320e-01_rb,0.81332e-02_rb /)\n      kbo(:, 3,41, 8) = (/ &\n        & 0.55464e-02_rb,0.18749e-01_rb,0.21191e-01_rb,0.20448e-01_rb,0.92312e-02_rb /)\n      kbo(:, 4,41, 8) = (/ &\n        & 0.67408e-02_rb,0.22629e-01_rb,0.25309e-01_rb,0.24143e-01_rb,0.10458e-01_rb /)\n      kbo(:, 5,41, 8) = (/ &\n        & 0.82155e-02_rb,0.27347e-01_rb,0.30277e-01_rb,0.28506e-01_rb,0.11871e-01_rb /)\n      kbo(:, 1,42, 8) = (/ &\n        & 0.31962e-02_rb,0.11444e-01_rb,0.13229e-01_rb,0.12937e-01_rb,0.62788e-02_rb /)\n      kbo(:, 2,42, 8) = (/ &\n        & 0.38815e-02_rb,0.13798e-01_rb,0.15822e-01_rb,0.15407e-01_rb,0.71774e-02_rb /)\n      kbo(:, 3,42, 8) = (/ &\n        & 0.47422e-02_rb,0.16722e-01_rb,0.18990e-01_rb,0.18339e-01_rb,0.81986e-02_rb /)\n      kbo(:, 4,42, 8) = (/ &\n        & 0.58154e-02_rb,0.20342e-01_rb,0.22857e-01_rb,0.21830e-01_rb,0.93594e-02_rb /)\n      kbo(:, 5,42, 8) = (/ &\n        & 0.71546e-02_rb,0.24787e-01_rb,0.27545e-01_rb,0.25973e-01_rb,0.10684e-01_rb /)\n      kbo(:, 1,43, 8) = (/ &\n        & 0.26542e-02_rb,0.99421e-02_rb,0.11545e-01_rb,0.11297e-01_rb,0.54681e-02_rb /)\n      kbo(:, 2,43, 8) = (/ &\n        & 0.32467e-02_rb,0.12085e-01_rb,0.13926e-01_rb,0.13575e-01_rb,0.63017e-02_rb /)\n      kbo(:, 3,43, 8) = (/ &\n        & 0.40037e-02_rb,0.14758e-01_rb,0.16848e-01_rb,0.16296e-01_rb,0.72434e-02_rb /)\n      kbo(:, 4,43, 8) = (/ &\n        & 0.49534e-02_rb,0.18094e-01_rb,0.20438e-01_rb,0.19556e-01_rb,0.83354e-02_rb /)\n      kbo(:, 5,43, 8) = (/ &\n        & 0.61525e-02_rb,0.22230e-01_rb,0.24817e-01_rb,0.23450e-01_rb,0.95751e-02_rb /)\n      kbo(:, 1,44, 8) = (/ &\n        & 0.21881e-02_rb,0.85857e-02_rb,0.10019e-01_rb,0.98043e-02_rb,0.47456e-02_rb /)\n      kbo(:, 2,44, 8) = (/ &\n        & 0.26937e-02_rb,0.10525e-01_rb,0.12192e-01_rb,0.11898e-01_rb,0.55168e-02_rb /)\n      kbo(:, 3,44, 8) = (/ &\n        & 0.33531e-02_rb,0.12952e-01_rb,0.14870e-01_rb,0.14408e-01_rb,0.63938e-02_rb /)\n      kbo(:, 4,44, 8) = (/ &\n        & 0.41916e-02_rb,0.16016e-01_rb,0.18187e-01_rb,0.17441e-01_rb,0.73995e-02_rb /)\n      kbo(:, 5,44, 8) = (/ &\n        & 0.52529e-02_rb,0.19825e-01_rb,0.22245e-01_rb,0.21074e-01_rb,0.85693e-02_rb /)\n      kbo(:, 1,45, 8) = (/ &\n        & 0.17974e-02_rb,0.74036e-02_rb,0.86819e-02_rb,0.84949e-02_rb,0.41100e-02_rb /)\n      kbo(:, 2,45, 8) = (/ &\n        & 0.22283e-02_rb,0.91556e-02_rb,0.10664e-01_rb,0.10414e-01_rb,0.48257e-02_rb /)\n      kbo(:, 3,45, 8) = (/ &\n        & 0.27993e-02_rb,0.11360e-01_rb,0.13115e-01_rb,0.12731e-01_rb,0.56423e-02_rb /)\n      kbo(:, 4,45, 8) = (/ &\n        & 0.35358e-02_rb,0.14164e-01_rb,0.16170e-01_rb,0.15543e-01_rb,0.65867e-02_rb /)\n      kbo(:, 5,45, 8) = (/ &\n        & 0.44762e-02_rb,0.17671e-01_rb,0.19928e-01_rb,0.18931e-01_rb,0.76725e-02_rb /)\n      kbo(:, 1,46, 8) = (/ &\n        & 0.14666e-02_rb,0.63443e-02_rb,0.74710e-02_rb,0.73099e-02_rb,0.35540e-02_rb /)\n      kbo(:, 2,46, 8) = (/ &\n        & 0.18286e-02_rb,0.79140e-02_rb,0.92719e-02_rb,0.90588e-02_rb,0.41981e-02_rb /)\n      kbo(:, 3,46, 8) = (/ &\n        & 0.23196e-02_rb,0.99089e-02_rb,0.11508e-01_rb,0.11192e-01_rb,0.49656e-02_rb /)\n      kbo(:, 4,46, 8) = (/ &\n        & 0.29575e-02_rb,0.12451e-01_rb,0.14296e-01_rb,0.13779e-01_rb,0.58441e-02_rb /)\n      kbo(:, 5,46, 8) = (/ &\n        & 0.37842e-02_rb,0.15662e-01_rb,0.17758e-01_rb,0.16921e-01_rb,0.68660e-02_rb /)\n      kbo(:, 1,47, 8) = (/ &\n        & 0.11822e-02_rb,0.53700e-02_rb,0.63483e-02_rb,0.62090e-02_rb,0.30500e-02_rb /)\n      kbo(:, 2,47, 8) = (/ &\n        & 0.14817e-02_rb,0.67616e-02_rb,0.79678e-02_rb,0.77874e-02_rb,0.36317e-02_rb /)\n      kbo(:, 3,47, 8) = (/ &\n        & 0.18918e-02_rb,0.85392e-02_rb,0.99818e-02_rb,0.97254e-02_rb,0.43248e-02_rb /)\n      kbo(:, 4,47, 8) = (/ &\n        & 0.24382e-02_rb,0.10820e-01_rb,0.12503e-01_rb,0.12088e-01_rb,0.51477e-02_rb /)\n      kbo(:, 5,47, 8) = (/ &\n        & 0.31533e-02_rb,0.13725e-01_rb,0.15656e-01_rb,0.14970e-01_rb,0.61000e-02_rb /)\n      kbo(:, 1,48, 8) = (/ &\n        & 0.94906e-03_rb,0.45298e-02_rb,0.53706e-02_rb,0.52506e-02_rb,0.26162e-02_rb /)\n      kbo(:, 2,48, 8) = (/ &\n        & 0.11965e-02_rb,0.57597e-02_rb,0.68213e-02_rb,0.66698e-02_rb,0.31403e-02_rb /)\n      kbo(:, 3,48, 8) = (/ &\n        & 0.15369e-02_rb,0.73380e-02_rb,0.86368e-02_rb,0.84246e-02_rb,0.37687e-02_rb /)\n      kbo(:, 4,48, 8) = (/ &\n        & 0.20008e-02_rb,0.93814e-02_rb,0.10911e-01_rb,0.10580e-01_rb,0.45213e-02_rb /)\n      kbo(:, 5,48, 8) = (/ &\n        & 0.26159e-02_rb,0.12002e-01_rb,0.13774e-01_rb,0.13221e-01_rb,0.54142e-02_rb /)\n      kbo(:, 1,49, 8) = (/ &\n        & 0.75913e-03_rb,0.38043e-02_rb,0.45203e-02_rb,0.44181e-02_rb,0.22379e-02_rb /)\n      kbo(:, 2,49, 8) = (/ &\n        & 0.96097e-03_rb,0.48899e-02_rb,0.58138e-02_rb,0.56878e-02_rb,0.27098e-02_rb /)\n      kbo(:, 3,49, 8) = (/ &\n        & 0.12447e-02_rb,0.62895e-02_rb,0.74501e-02_rb,0.72727e-02_rb,0.32859e-02_rb /)\n      kbo(:, 4,49, 8) = (/ &\n        & 0.16322e-02_rb,0.81122e-02_rb,0.94989e-02_rb,0.92349e-02_rb,0.39720e-02_rb /)\n      kbo(:, 5,49, 8) = (/ &\n        & 0.21597e-02_rb,0.10470e-01_rb,0.12092e-01_rb,0.11650e-01_rb,0.47938e-02_rb /)\n      kbo(:, 1,50, 8) = (/ &\n        & 0.60949e-03_rb,0.32009e-02_rb,0.38080e-02_rb,0.37204e-02_rb,0.19148e-02_rb /)\n      kbo(:, 2,50, 8) = (/ &\n        & 0.77332e-03_rb,0.41637e-02_rb,0.49658e-02_rb,0.48588e-02_rb,0.23498e-02_rb /)\n      kbo(:, 3,50, 8) = (/ &\n        & 0.10099e-02_rb,0.54095e-02_rb,0.64416e-02_rb,0.62938e-02_rb,0.28713e-02_rb /)\n      kbo(:, 4,50, 8) = (/ &\n        & 0.13353e-02_rb,0.70417e-02_rb,0.83004e-02_rb,0.80844e-02_rb,0.35114e-02_rb /)\n      kbo(:, 5,50, 8) = (/ &\n        & 0.17873e-02_rb,0.91691e-02_rb,0.10658e-01_rb,0.10303e-01_rb,0.42641e-02_rb /)\n      kbo(:, 1,51, 8) = (/ &\n        & 0.48960e-03_rb,0.26873e-02_rb,0.32008e-02_rb,0.31259e-02_rb,0.16378e-02_rb /)\n      kbo(:, 2,51, 8) = (/ &\n        & 0.62187e-03_rb,0.35423e-02_rb,0.42349e-02_rb,0.41443e-02_rb,0.20325e-02_rb /)\n      kbo(:, 3,51, 8) = (/ &\n        & 0.81788e-03_rb,0.46529e-02_rb,0.55656e-02_rb,0.54424e-02_rb,0.25164e-02_rb /)\n      kbo(:, 4,51, 8) = (/ &\n        & 0.10935e-02_rb,0.61155e-02_rb,0.72565e-02_rb,0.70765e-02_rb,0.31007e-02_rb /)\n      kbo(:, 5,51, 8) = (/ &\n        & 0.14776e-02_rb,0.80416e-02_rb,0.94087e-02_rb,0.91197e-02_rb,0.38085e-02_rb /)\n      kbo(:, 1,52, 8) = (/ &\n        & 0.39302e-03_rb,0.22435e-02_rb,0.26754e-02_rb,0.26122e-02_rb,0.13898e-02_rb /)\n      kbo(:, 2,52, 8) = (/ &\n        & 0.49889e-03_rb,0.30006e-02_rb,0.35943e-02_rb,0.35172e-02_rb,0.17532e-02_rb /)\n      kbo(:, 3,52, 8) = (/ &\n        & 0.65922e-03_rb,0.39906e-02_rb,0.47901e-02_rb,0.46880e-02_rb,0.21980e-02_rb /)\n      kbo(:, 4,52, 8) = (/ &\n        & 0.89075e-03_rb,0.52980e-02_rb,0.63237e-02_rb,0.61748e-02_rb,0.27412e-02_rb /)\n      kbo(:, 5,52, 8) = (/ &\n        & 0.12150e-02_rb,0.70312e-02_rb,0.82837e-02_rb,0.80497e-02_rb,0.33956e-02_rb /)\n      kbo(:, 1,53, 8) = (/ &\n        & 0.31533e-03_rb,0.18598e-02_rb,0.22216e-02_rb,0.21690e-02_rb,0.11705e-02_rb /)\n      kbo(:, 2,53, 8) = (/ &\n        & 0.39919e-03_rb,0.25290e-02_rb,0.30338e-02_rb,0.29679e-02_rb,0.15051e-02_rb /)\n      kbo(:, 3,53, 8) = (/ &\n        & 0.52958e-03_rb,0.34096e-02_rb,0.41030e-02_rb,0.40189e-02_rb,0.19137e-02_rb /)\n      kbo(:, 4,53, 8) = (/ &\n        & 0.72147e-03_rb,0.45756e-02_rb,0.54894e-02_rb,0.53678e-02_rb,0.24147e-02_rb /)\n      kbo(:, 5,53, 8) = (/ &\n        & 0.99563e-03_rb,0.61321e-02_rb,0.72739e-02_rb,0.70826e-02_rb,0.30286e-02_rb /)\n      kbo(:, 1,54, 8) = (/ &\n        & 0.25434e-03_rb,0.15477e-02_rb,0.18502e-02_rb,0.18075e-02_rb,0.98891e-03_rb /)\n      kbo(:, 2,54, 8) = (/ &\n        & 0.32221e-03_rb,0.21398e-02_rb,0.25708e-02_rb,0.25148e-02_rb,0.12935e-02_rb /)\n      kbo(:, 3,54, 8) = (/ &\n        & 0.42775e-03_rb,0.29272e-02_rb,0.35315e-02_rb,0.34599e-02_rb,0.16741e-02_rb /)\n      kbo(:, 4,54, 8) = (/ &\n        & 0.58762e-03_rb,0.39761e-02_rb,0.47907e-02_rb,0.46896e-02_rb,0.21376e-02_rb /)\n      kbo(:, 5,54, 8) = (/ &\n        & 0.82053e-03_rb,0.53824e-02_rb,0.64244e-02_rb,0.62664e-02_rb,0.27173e-02_rb /)\n      kbo(:, 1,55, 8) = (/ &\n        & 0.20618e-03_rb,0.12866e-02_rb,0.15400e-02_rb,0.15055e-02_rb,0.83572e-03_rb /)\n      kbo(:, 2,55, 8) = (/ &\n        & 0.26059e-03_rb,0.18094e-02_rb,0.21787e-02_rb,0.21302e-02_rb,0.11090e-02_rb /)\n      kbo(:, 3,55, 8) = (/ &\n        & 0.34651e-03_rb,0.25140e-02_rb,0.30392e-02_rb,0.29780e-02_rb,0.14628e-02_rb /)\n      kbo(:, 4,55, 8) = (/ &\n        & 0.47882e-03_rb,0.34608e-02_rb,0.41831e-02_rb,0.41003e-02_rb,0.18992e-02_rb /)\n      kbo(:, 5,55, 8) = (/ &\n        & 0.67671e-03_rb,0.47331e-02_rb,0.56817e-02_rb,0.55503e-02_rb,0.24360e-02_rb /)\n      kbo(:, 1,56, 8) = (/ &\n        & 0.16681e-03_rb,0.10621e-02_rb,0.12728e-02_rb,0.12461e-02_rb,0.70162e-03_rb /)\n      kbo(:, 2,56, 8) = (/ &\n        & 0.21064e-03_rb,0.15213e-02_rb,0.18350e-02_rb,0.17945e-02_rb,0.94828e-03_rb /)\n      kbo(:, 3,56, 8) = (/ &\n        & 0.28028e-03_rb,0.21500e-02_rb,0.26045e-02_rb,0.25521e-02_rb,0.12721e-02_rb /)\n      kbo(:, 4,56, 8) = (/ &\n        & 0.38906e-03_rb,0.30029e-02_rb,0.36387e-02_rb,0.35710e-02_rb,0.16833e-02_rb /)\n      kbo(:, 5,56, 8) = (/ &\n        & 0.55568e-03_rb,0.41534e-02_rb,0.50111e-02_rb,0.49027e-02_rb,0.21849e-02_rb /)\n      kbo(:, 1,57, 8) = (/ &\n        & 0.13484e-03_rb,0.87168e-03_rb,0.10444e-02_rb,0.10248e-02_rb,0.58516e-03_rb /)\n      kbo(:, 2,57, 8) = (/ &\n        & 0.17007e-03_rb,0.12717e-02_rb,0.15360e-02_rb,0.15024e-02_rb,0.80805e-03_rb /)\n      kbo(:, 3,57, 8) = (/ &\n        & 0.22603e-03_rb,0.18296e-02_rb,0.22211e-02_rb,0.21757e-02_rb,0.11006e-02_rb /)\n      kbo(:, 4,57, 8) = (/ &\n        & 0.31565e-03_rb,0.25963e-02_rb,0.31531e-02_rb,0.30959e-02_rb,0.14851e-02_rb /)\n      kbo(:, 5,57, 8) = (/ &\n        & 0.45417e-03_rb,0.36365e-02_rb,0.44058e-02_rb,0.43157e-02_rb,0.19625e-02_rb /)\n      kbo(:, 1,58, 8) = (/ &\n        & 0.10938e-03_rb,0.71449e-03_rb,0.85655e-03_rb,0.84240e-03_rb,0.48772e-03_rb /)\n      kbo(:, 2,58, 8) = (/ &\n        & 0.13752e-03_rb,0.10624e-02_rb,0.12849e-02_rb,0.12583e-02_rb,0.68689e-03_rb /)\n      kbo(:, 3,58, 8) = (/ &\n        & 0.18307e-03_rb,0.15572e-02_rb,0.18954e-02_rb,0.18566e-02_rb,0.95344e-03_rb /)\n      kbo(:, 4,58, 8) = (/ &\n        & 0.25673e-03_rb,0.22481e-02_rb,0.27363e-02_rb,0.26877e-02_rb,0.13079e-02_rb /)\n      kbo(:, 5,58, 8) = (/ &\n        & 0.37230e-03_rb,0.31921e-02_rb,0.38812e-02_rb,0.38070e-02_rb,0.17570e-02_rb /)\n      kbo(:, 1,59, 8) = (/ &\n        & 0.92153e-04_rb,0.62798e-03_rb,0.75374e-03_rb,0.74243e-03_rb,0.43161e-03_rb /)\n      kbo(:, 2,59, 8) = (/ &\n        & 0.11676e-03_rb,0.95019e-03_rb,0.11525e-02_rb,0.11296e-02_rb,0.61959e-03_rb /)\n      kbo(:, 3,59, 8) = (/ &\n        & 0.15687e-03_rb,0.14168e-02_rb,0.17285e-02_rb,0.16938e-02_rb,0.87468e-03_rb /)\n      kbo(:, 4,59, 8) = (/ &\n        & 0.22278e-03_rb,0.20743e-02_rb,0.25302e-02_rb,0.24863e-02_rb,0.12161e-02_rb /)\n      kbo(:, 5,59, 8) = (/ &\n        & 0.32724e-03_rb,0.29797e-02_rb,0.36313e-02_rb,0.35664e-02_rb,0.16577e-02_rb /)\n      kbo(:, 1,13, 9) = (/ &\n        & 0.16403e+01_rb,0.27290e+01_rb,0.31326e+01_rb,0.31890e+01_rb,0.23307e+01_rb /)\n      kbo(:, 2,13, 9) = (/ &\n        & 0.16862e+01_rb,0.27611e+01_rb,0.31617e+01_rb,0.32226e+01_rb,0.23816e+01_rb /)\n      kbo(:, 3,13, 9) = (/ &\n        & 0.17455e+01_rb,0.28101e+01_rb,0.32005e+01_rb,0.32552e+01_rb,0.24291e+01_rb /)\n      kbo(:, 4,13, 9) = (/ &\n        & 0.18100e+01_rb,0.28758e+01_rb,0.32471e+01_rb,0.32901e+01_rb,0.24729e+01_rb /)\n      kbo(:, 5,13, 9) = (/ &\n        & 0.18736e+01_rb,0.29528e+01_rb,0.33027e+01_rb,0.33291e+01_rb,0.25126e+01_rb /)\n      kbo(:, 1,14, 9) = (/ &\n        & 0.14276e+01_rb,0.24116e+01_rb,0.27645e+01_rb,0.28207e+01_rb,0.20786e+01_rb /)\n      kbo(:, 2,14, 9) = (/ &\n        & 0.14761e+01_rb,0.24553e+01_rb,0.28027e+01_rb,0.28564e+01_rb,0.21275e+01_rb /)\n      kbo(:, 3,14, 9) = (/ &\n        & 0.15303e+01_rb,0.25161e+01_rb,0.28501e+01_rb,0.28940e+01_rb,0.21750e+01_rb /)\n      kbo(:, 4,14, 9) = (/ &\n        & 0.15845e+01_rb,0.25879e+01_rb,0.29061e+01_rb,0.29354e+01_rb,0.22167e+01_rb /)\n      kbo(:, 5,14, 9) = (/ &\n        & 0.16378e+01_rb,0.26632e+01_rb,0.29707e+01_rb,0.29827e+01_rb,0.22552e+01_rb /)\n      kbo(:, 1,15, 9) = (/ &\n        & 0.12454e+01_rb,0.21329e+01_rb,0.24382e+01_rb,0.24839e+01_rb,0.18332e+01_rb /)\n      kbo(:, 2,15, 9) = (/ &\n        & 0.12895e+01_rb,0.21869e+01_rb,0.24841e+01_rb,0.25234e+01_rb,0.18816e+01_rb /)\n      kbo(:, 3,15, 9) = (/ &\n        & 0.13344e+01_rb,0.22528e+01_rb,0.25385e+01_rb,0.25663e+01_rb,0.19251e+01_rb /)\n      kbo(:, 4,15, 9) = (/ &\n        & 0.13794e+01_rb,0.23234e+01_rb,0.26021e+01_rb,0.26153e+01_rb,0.19652e+01_rb /)\n      kbo(:, 5,15, 9) = (/ &\n        & 0.14250e+01_rb,0.23931e+01_rb,0.26727e+01_rb,0.26688e+01_rb,0.20043e+01_rb /)\n      kbo(:, 1,16, 9) = (/ &\n        & 0.10848e+01_rb,0.18880e+01_rb,0.21511e+01_rb,0.21813e+01_rb,0.16071e+01_rb /)\n      kbo(:, 2,16, 9) = (/ &\n        & 0.11214e+01_rb,0.19471e+01_rb,0.22027e+01_rb,0.22246e+01_rb,0.16520e+01_rb /)\n      kbo(:, 3,16, 9) = (/ &\n        & 0.11587e+01_rb,0.20122e+01_rb,0.22636e+01_rb,0.22737e+01_rb,0.16924e+01_rb /)\n      kbo(:, 4,16, 9) = (/ &\n        & 0.11968e+01_rb,0.20768e+01_rb,0.23313e+01_rb,0.23282e+01_rb,0.17327e+01_rb /)\n      kbo(:, 5,16, 9) = (/ &\n        & 0.12369e+01_rb,0.21393e+01_rb,0.24028e+01_rb,0.23861e+01_rb,0.17713e+01_rb /)\n      kbo(:, 1,17, 9) = (/ &\n        & 0.94054e+00_rb,0.16727e+01_rb,0.18972e+01_rb,0.19128e+01_rb,0.14046e+01_rb /)\n      kbo(:, 2,17, 9) = (/ &\n        & 0.97101e+00_rb,0.17314e+01_rb,0.19542e+01_rb,0.19610e+01_rb,0.14464e+01_rb /)\n      kbo(:, 3,17, 9) = (/ &\n        & 0.10024e+01_rb,0.17905e+01_rb,0.20183e+01_rb,0.20147e+01_rb,0.14867e+01_rb /)\n      kbo(:, 4,17, 9) = (/ &\n        & 0.10357e+01_rb,0.18485e+01_rb,0.20868e+01_rb,0.20722e+01_rb,0.15247e+01_rb /)\n      kbo(:, 5,17, 9) = (/ &\n        & 0.10722e+01_rb,0.19059e+01_rb,0.21551e+01_rb,0.21344e+01_rb,0.15620e+01_rb /)\n      kbo(:, 1,18, 9) = (/ &\n        & 0.81293e+00_rb,0.14815e+01_rb,0.16736e+01_rb,0.16776e+01_rb,0.12272e+01_rb /)\n      kbo(:, 2,18, 9) = (/ &\n        & 0.83847e+00_rb,0.15352e+01_rb,0.17337e+01_rb,0.17293e+01_rb,0.12665e+01_rb /)\n      kbo(:, 3,18, 9) = (/ &\n        & 0.86557e+00_rb,0.15883e+01_rb,0.17983e+01_rb,0.17854e+01_rb,0.13052e+01_rb /)\n      kbo(:, 4,18, 9) = (/ &\n        & 0.89549e+00_rb,0.16413e+01_rb,0.18633e+01_rb,0.18465e+01_rb,0.13420e+01_rb /)\n      kbo(:, 5,18, 9) = (/ &\n        & 0.92973e+00_rb,0.16952e+01_rb,0.19268e+01_rb,0.19102e+01_rb,0.13778e+01_rb /)\n      kbo(:, 1,19, 9) = (/ &\n        & 0.70038e+00_rb,0.13093e+01_rb,0.14779e+01_rb,0.14733e+01_rb,0.10709e+01_rb /)\n      kbo(:, 2,19, 9) = (/ &\n        & 0.72263e+00_rb,0.13577e+01_rb,0.15381e+01_rb,0.15268e+01_rb,0.11090e+01_rb /)\n      kbo(:, 3,19, 9) = (/ &\n        & 0.74709e+00_rb,0.14065e+01_rb,0.15995e+01_rb,0.15853e+01_rb,0.11457e+01_rb /)\n      kbo(:, 4,19, 9) = (/ &\n        & 0.77505e+00_rb,0.14562e+01_rb,0.16599e+01_rb,0.16467e+01_rb,0.11819e+01_rb /)\n      kbo(:, 5,19, 9) = (/ &\n        & 0.80778e+00_rb,0.15082e+01_rb,0.17205e+01_rb,0.17095e+01_rb,0.12170e+01_rb /)\n      kbo(:, 1,20, 9) = (/ &\n        & 0.60096e+00_rb,0.11549e+01_rb,0.13070e+01_rb,0.12966e+01_rb,0.93504e+00_rb /)\n      kbo(:, 2,20, 9) = (/ &\n        & 0.62117e+00_rb,0.11996e+01_rb,0.13644e+01_rb,0.13518e+01_rb,0.97145e+00_rb /)\n      kbo(:, 3,20, 9) = (/ &\n        & 0.64437e+00_rb,0.12456e+01_rb,0.14215e+01_rb,0.14105e+01_rb,0.10075e+01_rb /)\n      kbo(:, 4,20, 9) = (/ &\n        & 0.67172e+00_rb,0.12935e+01_rb,0.14792e+01_rb,0.14711e+01_rb,0.10425e+01_rb /)\n      kbo(:, 5,20, 9) = (/ &\n        & 0.70425e+00_rb,0.13447e+01_rb,0.15379e+01_rb,0.15320e+01_rb,0.10771e+01_rb /)\n      kbo(:, 1,21, 9) = (/ &\n        & 0.51409e+00_rb,0.10184e+01_rb,0.11562e+01_rb,0.11440e+01_rb,0.81589e+00_rb /)\n      kbo(:, 2,21, 9) = (/ &\n        & 0.53296e+00_rb,0.10604e+01_rb,0.12096e+01_rb,0.11991e+01_rb,0.85095e+00_rb /)\n      kbo(:, 3,21, 9) = (/ &\n        & 0.55527e+00_rb,0.11043e+01_rb,0.12638e+01_rb,0.12567e+01_rb,0.88570e+00_rb /)\n      kbo(:, 4,21, 9) = (/ &\n        & 0.58243e+00_rb,0.11512e+01_rb,0.13194e+01_rb,0.13151e+01_rb,0.92023e+00_rb /)\n      kbo(:, 5,21, 9) = (/ &\n        & 0.61501e+00_rb,0.12017e+01_rb,0.13771e+01_rb,0.13737e+01_rb,0.95470e+00_rb /)\n      kbo(:, 1,22, 9) = (/ &\n        & 0.44038e+00_rb,0.90186e+00_rb,0.10262e+01_rb,0.10153e+01_rb,0.71382e+00_rb /)\n      kbo(:, 2,22, 9) = (/ &\n        & 0.45853e+00_rb,0.94198e+00_rb,0.10770e+01_rb,0.10695e+01_rb,0.74736e+00_rb /)\n      kbo(:, 3,22, 9) = (/ &\n        & 0.48068e+00_rb,0.98449e+00_rb,0.11290e+01_rb,0.11248e+01_rb,0.78150e+00_rb /)\n      kbo(:, 4,22, 9) = (/ &\n        & 0.50812e+00_rb,0.10306e+01_rb,0.11833e+01_rb,0.11809e+01_rb,0.81518e+00_rb /)\n      kbo(:, 5,22, 9) = (/ &\n        & 0.54141e+00_rb,0.10817e+01_rb,0.12405e+01_rb,0.12383e+01_rb,0.84849e+00_rb /)\n      kbo(:, 1,23, 9) = (/ &\n        & 0.37767e+00_rb,0.80078e+00_rb,0.91306e+00_rb,0.90433e+00_rb,0.62612e+00_rb /)\n      kbo(:, 2,23, 9) = (/ &\n        & 0.39558e+00_rb,0.83957e+00_rb,0.96154e+00_rb,0.95658e+00_rb,0.65837e+00_rb /)\n      kbo(:, 3,23, 9) = (/ &\n        & 0.41794e+00_rb,0.88149e+00_rb,0.10123e+01_rb,0.10097e+01_rb,0.69117e+00_rb /)\n      kbo(:, 4,23, 9) = (/ &\n        & 0.44579e+00_rb,0.92784e+00_rb,0.10657e+01_rb,0.10643e+01_rb,0.72352e+00_rb /)\n      kbo(:, 5,23, 9) = (/ &\n        & 0.47930e+00_rb,0.97981e+00_rb,0.11229e+01_rb,0.11209e+01_rb,0.75697e+00_rb /)\n      kbo(:, 1,24, 9) = (/ &\n        & 0.32501e+00_rb,0.71314e+00_rb,0.81551e+00_rb,0.80817e+00_rb,0.55055e+00_rb /)\n      kbo(:, 2,24, 9) = (/ &\n        & 0.34301e+00_rb,0.75171e+00_rb,0.86229e+00_rb,0.85830e+00_rb,0.58144e+00_rb /)\n      kbo(:, 3,24, 9) = (/ &\n        & 0.36572e+00_rb,0.79385e+00_rb,0.91196e+00_rb,0.91014e+00_rb,0.61242e+00_rb /)\n      kbo(:, 4,24, 9) = (/ &\n        & 0.39391e+00_rb,0.84084e+00_rb,0.96525e+00_rb,0.96386e+00_rb,0.64468e+00_rb /)\n      kbo(:, 5,24, 9) = (/ &\n        & 0.42682e+00_rb,0.89378e+00_rb,0.10230e+01_rb,0.10202e+01_rb,0.67755e+00_rb /)\n      kbo(:, 1,25, 9) = (/ &\n        & 0.28120e+00_rb,0.63782e+00_rb,0.73197e+00_rb,0.72532e+00_rb,0.48624e+00_rb /)\n      kbo(:, 2,25, 9) = (/ &\n        & 0.29939e+00_rb,0.67672e+00_rb,0.77772e+00_rb,0.77395e+00_rb,0.51566e+00_rb /)\n      kbo(:, 3,25, 9) = (/ &\n        & 0.32259e+00_rb,0.71969e+00_rb,0.82682e+00_rb,0.82484e+00_rb,0.54562e+00_rb /)\n      kbo(:, 4,25, 9) = (/ &\n        & 0.35054e+00_rb,0.76785e+00_rb,0.88040e+00_rb,0.87836e+00_rb,0.57709e+00_rb /)\n      kbo(:, 5,25, 9) = (/ &\n        & 0.38231e+00_rb,0.82200e+00_rb,0.93896e+00_rb,0.93503e+00_rb,0.60997e+00_rb /)\n      kbo(:, 1,26, 9) = (/ &\n        & 0.24516e+00_rb,0.57415e+00_rb,0.66146e+00_rb,0.65501e+00_rb,0.43198e+00_rb /)\n      kbo(:, 2,26, 9) = (/ &\n        & 0.26380e+00_rb,0.61364e+00_rb,0.70651e+00_rb,0.70261e+00_rb,0.46025e+00_rb /)\n      kbo(:, 3,26, 9) = (/ &\n        & 0.28716e+00_rb,0.65790e+00_rb,0.75577e+00_rb,0.75300e+00_rb,0.48987e+00_rb /)\n      kbo(:, 4,26, 9) = (/ &\n        & 0.31438e+00_rb,0.70747e+00_rb,0.80990e+00_rb,0.80672e+00_rb,0.52086e+00_rb /)\n      kbo(:, 5,26, 9) = (/ &\n        & 0.34509e+00_rb,0.76331e+00_rb,0.86957e+00_rb,0.86437e+00_rb,0.55315e+00_rb /)\n      kbo(:, 1,27, 9) = (/ &\n        & 0.21544e+00_rb,0.52037e+00_rb,0.60144e+00_rb,0.59535e+00_rb,0.38600e+00_rb /)\n      kbo(:, 2,27, 9) = (/ &\n        & 0.23456e+00_rb,0.56067e+00_rb,0.64661e+00_rb,0.64229e+00_rb,0.41342e+00_rb /)\n      kbo(:, 3,27, 9) = (/ &\n        & 0.25766e+00_rb,0.60633e+00_rb,0.69633e+00_rb,0.69257e+00_rb,0.44235e+00_rb /)\n      kbo(:, 4,27, 9) = (/ &\n        & 0.28405e+00_rb,0.65751e+00_rb,0.75133e+00_rb,0.74692e+00_rb,0.47298e+00_rb /)\n      kbo(:, 5,27, 9) = (/ &\n        & 0.31370e+00_rb,0.71529e+00_rb,0.81234e+00_rb,0.80601e+00_rb,0.50534e+00_rb /)\n      kbo(:, 1,28, 9) = (/ &\n        & 0.19107e+00_rb,0.47529e+00_rb,0.55077e+00_rb,0.54503e+00_rb,0.34666e+00_rb /)\n      kbo(:, 2,28, 9) = (/ &\n        & 0.21041e+00_rb,0.51675e+00_rb,0.59653e+00_rb,0.59172e+00_rb,0.37350e+00_rb /)\n      kbo(:, 3,28, 9) = (/ &\n        & 0.23301e+00_rb,0.56364e+00_rb,0.64698e+00_rb,0.64221e+00_rb,0.40186e+00_rb /)\n      kbo(:, 4,28, 9) = (/ &\n        & 0.25866e+00_rb,0.61667e+00_rb,0.70320e+00_rb,0.69763e+00_rb,0.43205e+00_rb /)\n      kbo(:, 5,28, 9) = (/ &\n        & 0.28710e+00_rb,0.67650e+00_rb,0.76586e+00_rb,0.75834e+00_rb,0.46367e+00_rb /)\n      kbo(:, 1,29, 9) = (/ &\n        & 0.17112e+00_rb,0.43830e+00_rb,0.50881e+00_rb,0.50311e+00_rb,0.31371e+00_rb /)\n      kbo(:, 2,29, 9) = (/ &\n        & 0.19046e+00_rb,0.48081e+00_rb,0.55535e+00_rb,0.54996e+00_rb,0.34018e+00_rb /)\n      kbo(:, 3,29, 9) = (/ &\n        & 0.21264e+00_rb,0.52926e+00_rb,0.60692e+00_rb,0.60125e+00_rb,0.36829e+00_rb /)\n      kbo(:, 4,29, 9) = (/ &\n        & 0.23734e+00_rb,0.58428e+00_rb,0.66473e+00_rb,0.65816e+00_rb,0.39807e+00_rb /)\n      kbo(:, 5,29, 9) = (/ &\n        & 0.26483e+00_rb,0.64604e+00_rb,0.72961e+00_rb,0.72085e+00_rb,0.42916e+00_rb /)\n      kbo(:, 1,30, 9) = (/ &\n        & 0.15474e+00_rb,0.40804e+00_rb,0.47416e+00_rb,0.46844e+00_rb,0.28591e+00_rb /)\n      kbo(:, 2,30, 9) = (/ &\n        & 0.17385e+00_rb,0.45175e+00_rb,0.52179e+00_rb,0.51582e+00_rb,0.31208e+00_rb /)\n      kbo(:, 3,30, 9) = (/ &\n        & 0.19550e+00_rb,0.50197e+00_rb,0.57484e+00_rb,0.56852e+00_rb,0.33963e+00_rb /)\n      kbo(:, 4,30, 9) = (/ &\n        & 0.21942e+00_rb,0.55897e+00_rb,0.63459e+00_rb,0.62718e+00_rb,0.36926e+00_rb /)\n      kbo(:, 5,30, 9) = (/ &\n        & 0.24626e+00_rb,0.62254e+00_rb,0.70206e+00_rb,0.69222e+00_rb,0.40317e+00_rb /)\n      kbo(:, 1,31, 9) = (/ &\n        & 0.14123e+00_rb,0.38383e+00_rb,0.44627e+00_rb,0.44042e+00_rb,0.26282e+00_rb /)\n      kbo(:, 2,31, 9) = (/ &\n        & 0.16008e+00_rb,0.42905e+00_rb,0.49523e+00_rb,0.48891e+00_rb,0.28832e+00_rb /)\n      kbo(:, 3,31, 9) = (/ &\n        & 0.18115e+00_rb,0.48120e+00_rb,0.55018e+00_rb,0.54338e+00_rb,0.31669e+00_rb /)\n      kbo(:, 4,31, 9) = (/ &\n        & 0.20456e+00_rb,0.54014e+00_rb,0.61227e+00_rb,0.60422e+00_rb,0.34861e+00_rb /)\n      kbo(:, 5,31, 9) = (/ &\n        & 0.23090e+00_rb,0.60549e+00_rb,0.68253e+00_rb,0.67193e+00_rb,0.38334e+00_rb /)\n      kbo(:, 1,32, 9) = (/ &\n        & 0.13011e+00_rb,0.36494e+00_rb,0.42434e+00_rb,0.41840e+00_rb,0.24343e+00_rb /)\n      kbo(:, 2,32, 9) = (/ &\n        & 0.14859e+00_rb,0.41192e+00_rb,0.47502e+00_rb,0.46846e+00_rb,0.27034e+00_rb /)\n      kbo(:, 3,32, 9) = (/ &\n        & 0.16925e+00_rb,0.46604e+00_rb,0.53210e+00_rb,0.52502e+00_rb,0.30012e+00_rb /)\n      kbo(:, 4,32, 9) = (/ &\n        & 0.19229e+00_rb,0.52692e+00_rb,0.59693e+00_rb,0.58841e+00_rb,0.33258e+00_rb /)\n      kbo(:, 5,32, 9) = (/ &\n        & 0.21839e+00_rb,0.59419e+00_rb,0.67028e+00_rb,0.65920e+00_rb,0.36819e+00_rb /)\n      kbo(:, 1,33, 9) = (/ &\n        & 0.12092e+00_rb,0.35074e+00_rb,0.40776e+00_rb,0.40175e+00_rb,0.22934e+00_rb /)\n      kbo(:, 2,33, 9) = (/ &\n        & 0.13904e+00_rb,0.39967e+00_rb,0.46044e+00_rb,0.45383e+00_rb,0.25698e+00_rb /)\n      kbo(:, 3,33, 9) = (/ &\n        & 0.15944e+00_rb,0.45574e+00_rb,0.51998e+00_rb,0.51285e+00_rb,0.28727e+00_rb /)\n      kbo(:, 4,33, 9) = (/ &\n        & 0.18230e+00_rb,0.51859e+00_rb,0.58782e+00_rb,0.57914e+00_rb,0.32052e+00_rb /)\n      kbo(:, 5,33, 9) = (/ &\n        & 0.20843e+00_rb,0.58793e+00_rb,0.66452e+00_rb,0.65307e+00_rb,0.35723e+00_rb /)\n      kbo(:, 1,34, 9) = (/ &\n        & 0.11270e+00_rb,0.33906e+00_rb,0.39419e+00_rb,0.38828e+00_rb,0.21761e+00_rb /)\n      kbo(:, 2,34, 9) = (/ &\n        & 0.13054e+00_rb,0.38970e+00_rb,0.44887e+00_rb,0.44251e+00_rb,0.24563e+00_rb /)\n      kbo(:, 3,34, 9) = (/ &\n        & 0.15070e+00_rb,0.44751e+00_rb,0.51092e+00_rb,0.50399e+00_rb,0.27652e+00_rb /)\n      kbo(:, 4,34, 9) = (/ &\n        & 0.17349e+00_rb,0.51224e+00_rb,0.58169e+00_rb,0.57301e+00_rb,0.31064e+00_rb /)\n      kbo(:, 5,34, 9) = (/ &\n        & 0.19973e+00_rb,0.58363e+00_rb,0.66163e+00_rb,0.64989e+00_rb,0.34860e+00_rb /)\n      kbo(:, 1,35, 9) = (/ &\n        & 0.10431e+00_rb,0.32621e+00_rb,0.37969e+00_rb,0.37421e+00_rb,0.20589e+00_rb /)\n      kbo(:, 2,35, 9) = (/ &\n        & 0.12172e+00_rb,0.37794e+00_rb,0.43594e+00_rb,0.43005e+00_rb,0.23415e+00_rb /)\n      kbo(:, 3,35, 9) = (/ &\n        & 0.14155e+00_rb,0.43696e+00_rb,0.49993e+00_rb,0.49338e+00_rb,0.26546e+00_rb /)\n      kbo(:, 4,35, 9) = (/ &\n        & 0.16416e+00_rb,0.50303e+00_rb,0.57285e+00_rb,0.56442e+00_rb,0.30031e+00_rb /)\n      kbo(:, 5,35, 9) = (/ &\n        & 0.19033e+00_rb,0.57592e+00_rb,0.65509e+00_rb,0.64342e+00_rb,0.33926e+00_rb /)\n      kbo(:, 1,36, 9) = (/ &\n        & 0.95441e-01_rb,0.31093e+00_rb,0.36283e+00_rb,0.35795e+00_rb,0.19348e+00_rb /)\n      kbo(:, 2,36, 9) = (/ &\n        & 0.11226e+00_rb,0.36299e+00_rb,0.41996e+00_rb,0.41468e+00_rb,0.22173e+00_rb /)\n      kbo(:, 3,36, 9) = (/ &\n        & 0.13160e+00_rb,0.42251e+00_rb,0.48508e+00_rb,0.47906e+00_rb,0.25327e+00_rb /)\n      kbo(:, 4,36, 9) = (/ &\n        & 0.15379e+00_rb,0.48924e+00_rb,0.55909e+00_rb,0.55119e+00_rb,0.28853e+00_rb /)\n      kbo(:, 5,36, 9) = (/ &\n        & 0.17959e+00_rb,0.56298e+00_rb,0.64257e+00_rb,0.63136e+00_rb,0.32808e+00_rb /)\n      kbo(:, 1,37, 9) = (/ &\n        & 0.85477e-01_rb,0.29072e+00_rb,0.34067e+00_rb,0.33658e+00_rb,0.17886e+00_rb /)\n      kbo(:, 2,37, 9) = (/ &\n        & 0.10144e+00_rb,0.34200e+00_rb,0.39763e+00_rb,0.39300e+00_rb,0.20669e+00_rb /)\n      kbo(:, 3,37, 9) = (/ &\n        & 0.11996e+00_rb,0.40095e+00_rb,0.46252e+00_rb,0.45719e+00_rb,0.23796e+00_rb /)\n      kbo(:, 4,37, 9) = (/ &\n        & 0.14137e+00_rb,0.46732e+00_rb,0.53621e+00_rb,0.52913e+00_rb,0.27304e+00_rb /)\n      kbo(:, 5,37, 9) = (/ &\n        & 0.16629e+00_rb,0.54086e+00_rb,0.61939e+00_rb,0.60918e+00_rb,0.31246e+00_rb /)\n      kbo(:, 1,38, 9) = (/ &\n        & 0.76626e-01_rb,0.27223e+00_rb,0.32047e+00_rb,0.31724e+00_rb,0.16576e+00_rb /)\n      kbo(:, 2,38, 9) = (/ &\n        & 0.91774e-01_rb,0.32273e+00_rb,0.37721e+00_rb,0.37319e+00_rb,0.19315e+00_rb /)\n      kbo(:, 3,38, 9) = (/ &\n        & 0.10950e+00_rb,0.38104e+00_rb,0.44177e+00_rb,0.43708e+00_rb,0.22413e+00_rb /)\n      kbo(:, 4,38, 9) = (/ &\n        & 0.13015e+00_rb,0.44697e+00_rb,0.51498e+00_rb,0.50870e+00_rb,0.25903e+00_rb /)\n      kbo(:, 5,38, 9) = (/ &\n        & 0.15424e+00_rb,0.52018e+00_rb,0.59766e+00_rb,0.58842e+00_rb,0.29827e+00_rb /)\n      kbo(:, 1,39, 9) = (/ &\n        & 0.68857e-01_rb,0.25564e+00_rb,0.30247e+00_rb,0.30005e+00_rb,0.15419e+00_rb /)\n      kbo(:, 2,39, 9) = (/ &\n        & 0.83231e-01_rb,0.30541e+00_rb,0.35891e+00_rb,0.35551e+00_rb,0.18117e+00_rb /)\n      kbo(:, 3,39, 9) = (/ &\n        & 0.10022e+00_rb,0.36305e+00_rb,0.42306e+00_rb,0.41901e+00_rb,0.21190e+00_rb /)\n      kbo(:, 4,39, 9) = (/ &\n        & 0.12015e+00_rb,0.42854e+00_rb,0.49574e+00_rb,0.49023e+00_rb,0.24662e+00_rb /)\n      kbo(:, 5,39, 9) = (/ &\n        & 0.14353e+00_rb,0.50140e+00_rb,0.57784e+00_rb,0.56950e+00_rb,0.28564e+00_rb /)\n      kbo(:, 1,40, 9) = (/ &\n        & 0.60721e-01_rb,0.23607e+00_rb,0.28098e+00_rb,0.27949e+00_rb,0.14134e+00_rb /)\n      kbo(:, 2,40, 9) = (/ &\n        & 0.74142e-01_rb,0.28436e+00_rb,0.33629e+00_rb,0.33356e+00_rb,0.16758e+00_rb /)\n      kbo(:, 3,40, 9) = (/ &\n        & 0.90161e-01_rb,0.34051e+00_rb,0.39918e+00_rb,0.39576e+00_rb,0.19765e+00_rb /)\n      kbo(:, 4,40, 9) = (/ &\n        & 0.10909e+00_rb,0.40469e+00_rb,0.47035e+00_rb,0.46571e+00_rb,0.23173e+00_rb /)\n      kbo(:, 5,40, 9) = (/ &\n        & 0.13146e+00_rb,0.47643e+00_rb,0.55083e+00_rb,0.54364e+00_rb,0.27006e+00_rb /)\n      kbo(:, 1,41, 9) = (/ &\n        & 0.53403e-01_rb,0.21760e+00_rb,0.26060e+00_rb,0.26004e+00_rb,0.12944e+00_rb /)\n      kbo(:, 2,41, 9) = (/ &\n        & 0.65918e-01_rb,0.26438e+00_rb,0.31466e+00_rb,0.31265e+00_rb,0.15490e+00_rb /)\n      kbo(:, 3,41, 9) = (/ &\n        & 0.80936e-01_rb,0.31888e+00_rb,0.37609e+00_rb,0.37327e+00_rb,0.18421e+00_rb /)\n      kbo(:, 4,41, 9) = (/ &\n        & 0.98889e-01_rb,0.38155e+00_rb,0.44565e+00_rb,0.44176e+00_rb,0.21756e+00_rb /)\n      kbo(:, 5,41, 9) = (/ &\n        & 0.12024e+00_rb,0.45195e+00_rb,0.52424e+00_rb,0.51812e+00_rb,0.25511e+00_rb /)\n      kbo(:, 1,42, 9) = (/ &\n        & 0.46980e-01_rb,0.20072e+00_rb,0.24188e+00_rb,0.24222e+00_rb,0.11863e+00_rb /)\n      kbo(:, 2,42, 9) = (/ &\n        & 0.58572e-01_rb,0.24586e+00_rb,0.29443e+00_rb,0.29314e+00_rb,0.14330e+00_rb /)\n      kbo(:, 3,42, 9) = (/ &\n        & 0.72653e-01_rb,0.29875e+00_rb,0.35445e+00_rb,0.35212e+00_rb,0.17184e+00_rb /)\n      kbo(:, 4,42, 9) = (/ &\n        & 0.89663e-01_rb,0.35979e+00_rb,0.42236e+00_rb,0.41911e+00_rb,0.20443e+00_rb /)\n      kbo(:, 5,42, 9) = (/ &\n        & 0.11004e+00_rb,0.42873e+00_rb,0.49904e+00_rb,0.49389e+00_rb,0.24118e+00_rb /)\n      kbo(:, 1,43, 9) = (/ &\n        & 0.40748e-01_rb,0.18301e+00_rb,0.22189e+00_rb,0.22309e+00_rb,0.10752e+00_rb /)\n      kbo(:, 2,43, 9) = (/ &\n        & 0.51357e-01_rb,0.22603e+00_rb,0.27246e+00_rb,0.27198e+00_rb,0.13119e+00_rb /)\n      kbo(:, 3,43, 9) = (/ &\n        & 0.64381e-01_rb,0.27684e+00_rb,0.33058e+00_rb,0.32881e+00_rb,0.15875e+00_rb /)\n      kbo(:, 4,43, 9) = (/ &\n        & 0.80299e-01_rb,0.33572e+00_rb,0.39639e+00_rb,0.39376e+00_rb,0.19029e+00_rb /)\n      kbo(:, 5,43, 9) = (/ &\n        & 0.99551e-01_rb,0.40267e+00_rb,0.47065e+00_rb,0.46647e+00_rb,0.22598e+00_rb /)\n      kbo(:, 1,44, 9) = (/ &\n        & 0.35065e-01_rb,0.16586e+00_rb,0.20221e+00_rb,0.20417e+00_rb,0.96831e-01_rb /)\n      kbo(:, 2,44, 9) = (/ &\n        & 0.44686e-01_rb,0.20650e+00_rb,0.25055e+00_rb,0.25097e+00_rb,0.11942e+00_rb /)\n      kbo(:, 3,44, 9) = (/ &\n        & 0.56631e-01_rb,0.25500e+00_rb,0.30652e+00_rb,0.30540e+00_rb,0.14585e+00_rb /)\n      kbo(:, 4,44, 9) = (/ &\n        & 0.71442e-01_rb,0.31160e+00_rb,0.37021e+00_rb,0.36812e+00_rb,0.17630e+00_rb /)\n      kbo(:, 5,44, 9) = (/ &\n        & 0.89487e-01_rb,0.37611e+00_rb,0.44177e+00_rb,0.43843e+00_rb,0.21076e+00_rb /)\n      kbo(:, 1,45, 9) = (/ &\n        & 0.30099e-01_rb,0.15014e+00_rb,0.18399e+00_rb,0.18651e+00_rb,0.87081e-01_rb /)\n      kbo(:, 2,45, 9) = (/ &\n        & 0.38792e-01_rb,0.18842e+00_rb,0.23006e+00_rb,0.23134e+00_rb,0.10857e+00_rb /)\n      kbo(:, 3,45, 9) = (/ &\n        & 0.49706e-01_rb,0.23455e+00_rb,0.28377e+00_rb,0.28337e+00_rb,0.13385e+00_rb /)\n      kbo(:, 4,45, 9) = (/ &\n        & 0.63416e-01_rb,0.28880e+00_rb,0.34526e+00_rb,0.34365e+00_rb,0.16313e+00_rb /)\n      kbo(:, 5,45, 9) = (/ &\n        & 0.80320e-01_rb,0.35087e+00_rb,0.41430e+00_rb,0.41165e+00_rb,0.19641e+00_rb /)\n      kbo(:, 1,46, 9) = (/ &\n        & 0.25615e-01_rb,0.13501e+00_rb,0.16621e+00_rb,0.16909e+00_rb,0.77761e-01_rb /)\n      kbo(:, 2,46, 9) = (/ &\n        & 0.33396e-01_rb,0.17087e+00_rb,0.20986e+00_rb,0.21193e+00_rb,0.98069e-01_rb /)\n      kbo(:, 3,46, 9) = (/ &\n        & 0.43320e-01_rb,0.21451e+00_rb,0.26120e+00_rb,0.26156e+00_rb,0.12212e+00_rb /)\n      kbo(:, 4,46, 9) = (/ &\n        & 0.55857e-01_rb,0.26606e+00_rb,0.32018e+00_rb,0.31908e+00_rb,0.15012e+00_rb /)\n      kbo(:, 5,46, 9) = (/ &\n        & 0.71564e-01_rb,0.32546e+00_rb,0.38657e+00_rb,0.38454e+00_rb,0.18211e+00_rb /)\n      kbo(:, 1,47, 9) = (/ &\n        & 0.21470e-01_rb,0.11984e+00_rb,0.14813e+00_rb,0.15126e+00_rb,0.68564e-01_rb /)\n      kbo(:, 2,47, 9) = (/ &\n        & 0.28327e-01_rb,0.15313e+00_rb,0.18908e+00_rb,0.19182e+00_rb,0.87445e-01_rb /)\n      kbo(:, 3,47, 9) = (/ &\n        & 0.37186e-01_rb,0.19381e+00_rb,0.23756e+00_rb,0.23882e+00_rb,0.11016e+00_rb /)\n      kbo(:, 4,47, 9) = (/ &\n        & 0.48514e-01_rb,0.24239e+00_rb,0.29373e+00_rb,0.29331e+00_rb,0.13670e+00_rb /)\n      kbo(:, 5,47, 9) = (/ &\n        & 0.62915e-01_rb,0.29879e+00_rb,0.35729e+00_rb,0.35580e+00_rb,0.16718e+00_rb /)\n      kbo(:, 1,48, 9) = (/ &\n        & 0.17915e-01_rb,0.10594e+00_rb,0.13153e+00_rb,0.13471e+00_rb,0.60247e-01_rb /)\n      kbo(:, 2,48, 9) = (/ &\n        & 0.23922e-01_rb,0.13687e+00_rb,0.16982e+00_rb,0.17297e+00_rb,0.77702e-01_rb /)\n      kbo(:, 3,48, 9) = (/ &\n        & 0.31789e-01_rb,0.17464e+00_rb,0.21543e+00_rb,0.21754e+00_rb,0.99032e-01_rb /)\n      kbo(:, 4,48, 9) = (/ &\n        & 0.41975e-01_rb,0.22024e+00_rb,0.26872e+00_rb,0.26906e+00_rb,0.12414e+00_rb /)\n      kbo(:, 5,48, 9) = (/ &\n        & 0.55099e-01_rb,0.27366e+00_rb,0.32950e+00_rb,0.32848e+00_rb,0.15313e+00_rb /)\n      kbo(:, 1,49, 9) = (/ &\n        & 0.14883e-01_rb,0.93224e-01_rb,0.11635e+00_rb,0.11939e+00_rb,0.52749e-01_rb /)\n      kbo(:, 2,49, 9) = (/ &\n        & 0.20112e-01_rb,0.12194e+00_rb,0.15191e+00_rb,0.15532e+00_rb,0.68811e-01_rb /)\n      kbo(:, 3,49, 9) = (/ &\n        & 0.27052e-01_rb,0.15700e+00_rb,0.19473e+00_rb,0.19754e+00_rb,0.88692e-01_rb /)\n      kbo(:, 4,49, 9) = (/ &\n        & 0.36170e-01_rb,0.19958e+00_rb,0.24512e+00_rb,0.24626e+00_rb,0.11239e+00_rb /)\n      kbo(:, 5,49, 9) = (/ &\n        & 0.48053e-01_rb,0.24998e+00_rb,0.30305e+00_rb,0.30260e+00_rb,0.13992e+00_rb /)\n      kbo(:, 1,50, 9) = (/ &\n        & 0.12401e-01_rb,0.82224e-01_rb,0.10323e+00_rb,0.10603e+00_rb,0.46388e-01_rb /)\n      kbo(:, 2,50, 9) = (/ &\n        & 0.16961e-01_rb,0.10896e+00_rb,0.13629e+00_rb,0.13978e+00_rb,0.61130e-01_rb /)\n      kbo(:, 3,50, 9) = (/ &\n        & 0.23097e-01_rb,0.14168e+00_rb,0.17654e+00_rb,0.17982e+00_rb,0.79649e-01_rb /)\n      kbo(:, 4,50, 9) = (/ &\n        & 0.31266e-01_rb,0.18143e+00_rb,0.22418e+00_rb,0.22611e+00_rb,0.10201e+00_rb /)\n      kbo(:, 5,50, 9) = (/ &\n        & 0.42049e-01_rb,0.22900e+00_rb,0.27939e+00_rb,0.27959e+00_rb,0.12818e+00_rb /)\n      kbo(:, 1,51, 9) = (/ &\n        & 0.10311e-01_rb,0.72407e-01_rb,0.91543e-01_rb,0.94015e-01_rb,0.40739e-01_rb /)\n      kbo(:, 2,51, 9) = (/ &\n        & 0.14299e-01_rb,0.97301e-01_rb,0.12223e+00_rb,0.12566e+00_rb,0.54336e-01_rb /)\n      kbo(:, 3,51, 9) = (/ &\n        & 0.19709e-01_rb,0.12788e+00_rb,0.16001e+00_rb,0.16354e+00_rb,0.71514e-01_rb /)\n      kbo(:, 4,51, 9) = (/ &\n        & 0.27010e-01_rb,0.16504e+00_rb,0.20502e+00_rb,0.20766e+00_rb,0.92576e-01_rb /)\n      kbo(:, 5,51, 9) = (/ &\n        & 0.36820e-01_rb,0.20996e+00_rb,0.25769e+00_rb,0.25854e+00_rb,0.11743e+00_rb /)\n      kbo(:, 1,52, 9) = (/ &\n        & 0.85238e-02_rb,0.63439e-01_rb,0.80796e-01_rb,0.82950e-01_rb,0.35726e-01_rb /)\n      kbo(:, 2,52, 9) = (/ &\n        & 0.12004e-01_rb,0.86535e-01_rb,0.10929e+00_rb,0.11252e+00_rb,0.48201e-01_rb /)\n      kbo(:, 3,52, 9) = (/ &\n        & 0.16756e-01_rb,0.11511e+00_rb,0.14456e+00_rb,0.14824e+00_rb,0.64036e-01_rb /)\n      kbo(:, 4,52, 9) = (/ &\n        & 0.23247e-01_rb,0.14984e+00_rb,0.18701e+00_rb,0.19020e+00_rb,0.83745e-01_rb /)\n      kbo(:, 5,52, 9) = (/ &\n        & 0.32110e-01_rb,0.19199e+00_rb,0.23699e+00_rb,0.23857e+00_rb,0.10729e+00_rb /)\n      kbo(:, 1,53, 9) = (/ &\n        & 0.70021e-02_rb,0.55279e-01_rb,0.70908e-01_rb,0.72826e-01_rb,0.31267e-01_rb /)\n      kbo(:, 2,53, 9) = (/ &\n        & 0.10022e-01_rb,0.76605e-01_rb,0.97337e-01_rb,0.10026e+00_rb,0.42555e-01_rb /)\n      kbo(:, 3,53, 9) = (/ &\n        & 0.14186e-01_rb,0.10324e+00_rb,0.13015e+00_rb,0.13384e+00_rb,0.57176e-01_rb /)\n      kbo(:, 4,53, 9) = (/ &\n        & 0.19924e-01_rb,0.13568e+00_rb,0.17006e+00_rb,0.17360e+00_rb,0.75508e-01_rb /)\n      kbo(:, 5,53, 9) = (/ &\n        & 0.27873e-01_rb,0.17508e+00_rb,0.21734e+00_rb,0.21965e+00_rb,0.97730e-01_rb /)\n      kbo(:, 1,54, 9) = (/ &\n        & 0.57827e-02_rb,0.48416e-01_rb,0.62508e-01_rb,0.64310e-01_rb,0.27618e-01_rb /)\n      kbo(:, 2,54, 9) = (/ &\n        & 0.84043e-02_rb,0.68151e-01_rb,0.87167e-01_rb,0.89761e-01_rb,0.37874e-01_rb /)\n      kbo(:, 3,54, 9) = (/ &\n        & 0.12088e-01_rb,0.93069e-01_rb,0.11782e+00_rb,0.12138e+00_rb,0.51418e-01_rb /)\n      kbo(:, 4,54, 9) = (/ &\n        & 0.17188e-01_rb,0.12356e+00_rb,0.15542e+00_rb,0.15914e+00_rb,0.68446e-01_rb /)\n      kbo(:, 5,54, 9) = (/ &\n        & 0.24356e-01_rb,0.16057e+00_rb,0.20027e+00_rb,0.20317e+00_rb,0.89427e-01_rb /)\n      kbo(:, 1,55, 9) = (/ &\n        & 0.47829e-02_rb,0.42445e-01_rb,0.55108e-01_rb,0.56879e-01_rb,0.24415e-01_rb /)\n      kbo(:, 2,55, 9) = (/ &\n        & 0.70515e-02_rb,0.60688e-01_rb,0.78130e-01_rb,0.80430e-01_rb,0.33849e-01_rb /)\n      kbo(:, 3,55, 9) = (/ &\n        & 0.10307e-01_rb,0.83954e-01_rb,0.10678e+00_rb,0.11014e+00_rb,0.46263e-01_rb /)\n      kbo(:, 4,55, 9) = (/ &\n        & 0.14854e-01_rb,0.11267e+00_rb,0.14216e+00_rb,0.14598e+00_rb,0.62158e-01_rb /)\n      kbo(:, 5,55, 9) = (/ &\n        & 0.21317e-01_rb,0.14754e+00_rb,0.18474e+00_rb,0.18809e+00_rb,0.81914e-01_rb /)\n      kbo(:, 1,56, 9) = (/ &\n        & 0.39349e-02_rb,0.37013e-01_rb,0.48295e-01_rb,0.50091e-01_rb,0.21529e-01_rb /)\n      kbo(:, 2,56, 9) = (/ &\n        & 0.58808e-02_rb,0.53785e-01_rb,0.69695e-01_rb,0.71776e-01_rb,0.30144e-01_rb /)\n      kbo(:, 3,56, 9) = (/ &\n        & 0.87470e-02_rb,0.75476e-01_rb,0.96519e-01_rb,0.99590e-01_rb,0.41605e-01_rb /)\n      kbo(:, 4,56, 9) = (/ &\n        & 0.12799e-01_rb,0.10247e+00_rb,0.12972e+00_rb,0.13354e+00_rb,0.56396e-01_rb /)\n      kbo(:, 5,56, 9) = (/ &\n        & 0.18597e-01_rb,0.13533e+00_rb,0.17007e+00_rb,0.17370e+00_rb,0.74854e-01_rb /)\n      kbo(:, 1,57, 9) = (/ &\n        & 0.32237e-02_rb,0.32103e-01_rb,0.42068e-01_rb,0.43893e-01_rb,0.18889e-01_rb /)\n      kbo(:, 2,57, 9) = (/ &\n        & 0.48776e-02_rb,0.47453e-01_rb,0.61873e-01_rb,0.63812e-01_rb,0.26899e-01_rb /)\n      kbo(:, 3,57, 9) = (/ &\n        & 0.73816e-02_rb,0.67586e-01_rb,0.86956e-01_rb,0.89701e-01_rb,0.37405e-01_rb /)\n      kbo(:, 4,57, 9) = (/ &\n        & 0.10984e-01_rb,0.92907e-01_rb,0.11806e+00_rb,0.12175e+00_rb,0.51002e-01_rb /)\n      kbo(:, 5,57, 9) = (/ &\n        & 0.16168e-01_rb,0.12385e+00_rb,0.15617e+00_rb,0.15996e+00_rb,0.68253e-01_rb /)\n      kbo(:, 1,58, 9) = (/ &\n        & 0.26462e-02_rb,0.27879e-01_rb,0.36685e-01_rb,0.38484e-01_rb,0.16601e-01_rb /)\n      kbo(:, 2,58, 9) = (/ &\n        & 0.40522e-02_rb,0.41929e-01_rb,0.54967e-01_rb,0.56858e-01_rb,0.24050e-01_rb /)\n      kbo(:, 3,58, 9) = (/ &\n        & 0.62364e-02_rb,0.60609e-01_rb,0.78458e-01_rb,0.80919e-01_rb,0.33657e-01_rb /)\n      kbo(:, 4,58, 9) = (/ &\n        & 0.94512e-02_rb,0.84383e-01_rb,0.10769e+00_rb,0.11117e+00_rb,0.46338e-01_rb /)\n      kbo(:, 5,58, 9) = (/ &\n        & 0.14101e-01_rb,0.11363e+00_rb,0.14367e+00_rb,0.14755e+00_rb,0.62487e-01_rb /)\n      kbo(:, 1,59, 9) = (/ &\n        & 0.23375e-02_rb,0.26104e-01_rb,0.34483e-01_rb,0.36273e-01_rb,0.15643e-01_rb /)\n      kbo(:, 2,59, 9) = (/ &\n        & 0.36353e-02_rb,0.39676e-01_rb,0.52191e-01_rb,0.54098e-01_rb,0.22879e-01_rb /)\n      kbo(:, 3,59, 9) = (/ &\n        & 0.56781e-02_rb,0.57810e-01_rb,0.75085e-01_rb,0.77452e-01_rb,0.32253e-01_rb /)\n      kbo(:, 4,59, 9) = (/ &\n        & 0.87345e-02_rb,0.80998e-01_rb,0.10362e+00_rb,0.10701e+00_rb,0.44587e-01_rb /)\n      kbo(:, 5,59, 9) = (/ &\n        & 0.13202e-01_rb,0.10960e+00_rb,0.13878e+00_rb,0.14268e+00_rb,0.60173e-01_rb /)\n      kbo(:, 1,13,10) = (/ &\n        & 0.68082e+01_rb,0.10647e+02_rb,0.12044e+02_rb,0.12092e+02_rb,0.85097e+01_rb /)\n      kbo(:, 2,13,10) = (/ &\n        & 0.67019e+01_rb,0.10585e+02_rb,0.12055e+02_rb,0.12198e+02_rb,0.87119e+01_rb /)\n      kbo(:, 3,13,10) = (/ &\n        & 0.67137e+01_rb,0.10536e+02_rb,0.12063e+02_rb,0.12312e+02_rb,0.88714e+01_rb /)\n      kbo(:, 4,13,10) = (/ &\n        & 0.68713e+01_rb,0.10489e+02_rb,0.12087e+02_rb,0.12413e+02_rb,0.90170e+01_rb /)\n      kbo(:, 5,13,10) = (/ &\n        & 0.71185e+01_rb,0.10479e+02_rb,0.12121e+02_rb,0.12479e+02_rb,0.91853e+01_rb /)\n      kbo(:, 1,14,10) = (/ &\n        & 0.58410e+01_rb,0.94018e+01_rb,0.10846e+02_rb,0.11035e+02_rb,0.76674e+01_rb /)\n      kbo(:, 2,14,10) = (/ &\n        & 0.58467e+01_rb,0.93735e+01_rb,0.10875e+02_rb,0.11156e+02_rb,0.78256e+01_rb /)\n      kbo(:, 3,14,10) = (/ &\n        & 0.59984e+01_rb,0.93438e+01_rb,0.10908e+02_rb,0.11271e+02_rb,0.79426e+01_rb /)\n      kbo(:, 4,14,10) = (/ &\n        & 0.62373e+01_rb,0.93563e+01_rb,0.10953e+02_rb,0.11364e+02_rb,0.81071e+01_rb /)\n      kbo(:, 5,14,10) = (/ &\n        & 0.65135e+01_rb,0.94809e+01_rb,0.10997e+02_rb,0.11429e+02_rb,0.82861e+01_rb /)\n      kbo(:, 1,15,10) = (/ &\n        & 0.50343e+01_rb,0.83265e+01_rb,0.97137e+01_rb,0.99946e+01_rb,0.69930e+01_rb /)\n      kbo(:, 2,15,10) = (/ &\n        & 0.51660e+01_rb,0.83107e+01_rb,0.97594e+01_rb,0.10123e+02_rb,0.71240e+01_rb /)\n      kbo(:, 3,15,10) = (/ &\n        & 0.53903e+01_rb,0.83316e+01_rb,0.98216e+01_rb,0.10239e+02_rb,0.72628e+01_rb /)\n      kbo(:, 4,15,10) = (/ &\n        & 0.56415e+01_rb,0.84645e+01_rb,0.98856e+01_rb,0.10324e+02_rb,0.74229e+01_rb /)\n      kbo(:, 5,15,10) = (/ &\n        & 0.58842e+01_rb,0.87055e+01_rb,0.99631e+01_rb,0.10400e+02_rb,0.75908e+01_rb /)\n      kbo(:, 1,16,10) = (/ &\n        & 0.44015e+01_rb,0.74103e+01_rb,0.86530e+01_rb,0.90071e+01_rb,0.63301e+01_rb /)\n      kbo(:, 2,16,10) = (/ &\n        & 0.45955e+01_rb,0.74391e+01_rb,0.87237e+01_rb,0.91359e+01_rb,0.64715e+01_rb /)\n      kbo(:, 3,16,10) = (/ &\n        & 0.48140e+01_rb,0.75662e+01_rb,0.88065e+01_rb,0.92379e+01_rb,0.66426e+01_rb /)\n      kbo(:, 4,16,10) = (/ &\n        & 0.50318e+01_rb,0.77981e+01_rb,0.89101e+01_rb,0.93283e+01_rb,0.68095e+01_rb /)\n      kbo(:, 5,16,10) = (/ &\n        & 0.52436e+01_rb,0.80914e+01_rb,0.90522e+01_rb,0.94292e+01_rb,0.69717e+01_rb /)\n      kbo(:, 1,17,10) = (/ &\n        & 0.38938e+01_rb,0.65976e+01_rb,0.77151e+01_rb,0.80672e+01_rb,0.57119e+01_rb /)\n      kbo(:, 2,17,10) = (/ &\n        & 0.40781e+01_rb,0.67171e+01_rb,0.78068e+01_rb,0.81879e+01_rb,0.58706e+01_rb /)\n      kbo(:, 3,17,10) = (/ &\n        & 0.42641e+01_rb,0.69435e+01_rb,0.79191e+01_rb,0.82934e+01_rb,0.60296e+01_rb /)\n      kbo(:, 4,17,10) = (/ &\n        & 0.44480e+01_rb,0.72305e+01_rb,0.80762e+01_rb,0.84106e+01_rb,0.62012e+01_rb /)\n      kbo(:, 5,17,10) = (/ &\n        & 0.46308e+01_rb,0.75237e+01_rb,0.83037e+01_rb,0.85418e+01_rb,0.63775e+01_rb /)\n      kbo(:, 1,18,10) = (/ &\n        & 0.34407e+01_rb,0.58963e+01_rb,0.69001e+01_rb,0.71891e+01_rb,0.51366e+01_rb /)\n      kbo(:, 2,18,10) = (/ &\n        & 0.35988e+01_rb,0.61068e+01_rb,0.70120e+01_rb,0.73051e+01_rb,0.52912e+01_rb /)\n      kbo(:, 3,18,10) = (/ &\n        & 0.37577e+01_rb,0.63853e+01_rb,0.71752e+01_rb,0.74336e+01_rb,0.54376e+01_rb /)\n      kbo(:, 4,18,10) = (/ &\n        & 0.39161e+01_rb,0.66726e+01_rb,0.74020e+01_rb,0.75773e+01_rb,0.56097e+01_rb /)\n      kbo(:, 5,18,10) = (/ &\n        & 0.40711e+01_rb,0.69480e+01_rb,0.76793e+01_rb,0.77395e+01_rb,0.57994e+01_rb /)\n      kbo(:, 1,19,10) = (/ &\n        & 0.30222e+01_rb,0.53136e+01_rb,0.61695e+01_rb,0.63815e+01_rb,0.46248e+01_rb /)\n      kbo(:, 2,19,10) = (/ &\n        & 0.31568e+01_rb,0.55745e+01_rb,0.63303e+01_rb,0.65186e+01_rb,0.47653e+01_rb /)\n      kbo(:, 3,19,10) = (/ &\n        & 0.32936e+01_rb,0.58515e+01_rb,0.65536e+01_rb,0.66691e+01_rb,0.49110e+01_rb /)\n      kbo(:, 4,19,10) = (/ &\n        & 0.34320e+01_rb,0.61200e+01_rb,0.68298e+01_rb,0.68431e+01_rb,0.50671e+01_rb /)\n      kbo(:, 5,19,10) = (/ &\n        & 0.35717e+01_rb,0.63810e+01_rb,0.71341e+01_rb,0.70485e+01_rb,0.52482e+01_rb /)\n      kbo(:, 1,20,10) = (/ &\n        & 0.26646e+01_rb,0.48341e+01_rb,0.55294e+01_rb,0.56818e+01_rb,0.41697e+01_rb /)\n      kbo(:, 2,20,10) = (/ &\n        & 0.27751e+01_rb,0.50933e+01_rb,0.57470e+01_rb,0.58376e+01_rb,0.43064e+01_rb /)\n      kbo(:, 3,20,10) = (/ &\n        & 0.28895e+01_rb,0.53454e+01_rb,0.60203e+01_rb,0.60166e+01_rb,0.44569e+01_rb /)\n      kbo(:, 4,20,10) = (/ &\n        & 0.30071e+01_rb,0.55962e+01_rb,0.63194e+01_rb,0.62235e+01_rb,0.46038e+01_rb /)\n      kbo(:, 5,20,10) = (/ &\n        & 0.31278e+01_rb,0.58505e+01_rb,0.66184e+01_rb,0.64780e+01_rb,0.47569e+01_rb /)\n      kbo(:, 1,21,10) = (/ &\n        & 0.23601e+01_rb,0.44020e+01_rb,0.49905e+01_rb,0.50776e+01_rb,0.37561e+01_rb /)\n      kbo(:, 2,21,10) = (/ &\n        & 0.24527e+01_rb,0.46408e+01_rb,0.52514e+01_rb,0.52563e+01_rb,0.39021e+01_rb /)\n      kbo(:, 3,21,10) = (/ &\n        & 0.25482e+01_rb,0.48775e+01_rb,0.55424e+01_rb,0.54642e+01_rb,0.40531e+01_rb /)\n      kbo(:, 4,21,10) = (/ &\n        & 0.26469e+01_rb,0.51183e+01_rb,0.58389e+01_rb,0.57185e+01_rb,0.42025e+01_rb /)\n      kbo(:, 5,21,10) = (/ &\n        & 0.27509e+01_rb,0.53673e+01_rb,0.61341e+01_rb,0.60025e+01_rb,0.43477e+01_rb /)\n      kbo(:, 1,22,10) = (/ &\n        & 0.20933e+01_rb,0.40130e+01_rb,0.45530e+01_rb,0.45722e+01_rb,0.33997e+01_rb /)\n      kbo(:, 2,22,10) = (/ &\n        & 0.21774e+01_rb,0.42389e+01_rb,0.48339e+01_rb,0.47801e+01_rb,0.35503e+01_rb /)\n      kbo(:, 3,22,10) = (/ &\n        & 0.22636e+01_rb,0.44688e+01_rb,0.51214e+01_rb,0.50286e+01_rb,0.36916e+01_rb /)\n      kbo(:, 4,22,10) = (/ &\n        & 0.23497e+01_rb,0.47085e+01_rb,0.54112e+01_rb,0.53109e+01_rb,0.38464e+01_rb /)\n      kbo(:, 5,22,10) = (/ &\n        & 0.24400e+01_rb,0.49544e+01_rb,0.57104e+01_rb,0.56159e+01_rb,0.40026e+01_rb /)\n      kbo(:, 1,23,10) = (/ &\n        & 0.18483e+01_rb,0.36572e+01_rb,0.41816e+01_rb,0.41476e+01_rb,0.30773e+01_rb /)\n      kbo(:, 2,23,10) = (/ &\n        & 0.19296e+01_rb,0.38779e+01_rb,0.44582e+01_rb,0.43906e+01_rb,0.32324e+01_rb /)\n      kbo(:, 3,23,10) = (/ &\n        & 0.20105e+01_rb,0.41090e+01_rb,0.47398e+01_rb,0.46676e+01_rb,0.33790e+01_rb /)\n      kbo(:, 4,23,10) = (/ &\n        & 0.20922e+01_rb,0.43460e+01_rb,0.50319e+01_rb,0.49689e+01_rb,0.35381e+01_rb /)\n      kbo(:, 5,23,10) = (/ &\n        & 0.21812e+01_rb,0.45942e+01_rb,0.53379e+01_rb,0.52907e+01_rb,0.36872e+01_rb /)\n      kbo(:, 1,24,10) = (/ &\n        & 0.16291e+01_rb,0.33480e+01_rb,0.38514e+01_rb,0.38051e+01_rb,0.27880e+01_rb /)\n      kbo(:, 2,24,10) = (/ &\n        & 0.17053e+01_rb,0.35635e+01_rb,0.41240e+01_rb,0.40716e+01_rb,0.29407e+01_rb /)\n      kbo(:, 3,24,10) = (/ &\n        & 0.17841e+01_rb,0.37930e+01_rb,0.44076e+01_rb,0.43668e+01_rb,0.31035e+01_rb /)\n      kbo(:, 4,24,10) = (/ &\n        & 0.18670e+01_rb,0.40349e+01_rb,0.47044e+01_rb,0.46831e+01_rb,0.32549e+01_rb /)\n      kbo(:, 5,24,10) = (/ &\n        & 0.19687e+01_rb,0.42837e+01_rb,0.50178e+01_rb,0.50123e+01_rb,0.34093e+01_rb /)\n      kbo(:, 1,25,10) = (/ &\n        & 0.14342e+01_rb,0.30870e+01_rb,0.35616e+01_rb,0.35262e+01_rb,0.25309e+01_rb /)\n      kbo(:, 2,25,10) = (/ &\n        & 0.15073e+01_rb,0.32988e+01_rb,0.38348e+01_rb,0.38083e+01_rb,0.26935e+01_rb /)\n      kbo(:, 3,25,10) = (/ &\n        & 0.15855e+01_rb,0.35267e+01_rb,0.41227e+01_rb,0.41156e+01_rb,0.28544e+01_rb /)\n      kbo(:, 4,25,10) = (/ &\n        & 0.16765e+01_rb,0.37674e+01_rb,0.44270e+01_rb,0.44387e+01_rb,0.30112e+01_rb /)\n      kbo(:, 5,25,10) = (/ &\n        & 0.17969e+01_rb,0.40179e+01_rb,0.47482e+01_rb,0.47807e+01_rb,0.31986e+01_rb /)\n      kbo(:, 1,26,10) = (/ &\n        & 0.12644e+01_rb,0.28734e+01_rb,0.33145e+01_rb,0.33023e+01_rb,0.23207e+01_rb /)\n      kbo(:, 2,26,10) = (/ &\n        & 0.13357e+01_rb,0.30796e+01_rb,0.35932e+01_rb,0.35956e+01_rb,0.24777e+01_rb /)\n      kbo(:, 3,26,10) = (/ &\n        & 0.14174e+01_rb,0.33035e+01_rb,0.38863e+01_rb,0.39081e+01_rb,0.26420e+01_rb /)\n      kbo(:, 4,26,10) = (/ &\n        & 0.15234e+01_rb,0.35430e+01_rb,0.41997e+01_rb,0.42431e+01_rb,0.28241e+01_rb /)\n      kbo(:, 5,26,10) = (/ &\n        & 0.16603e+01_rb,0.37959e+01_rb,0.45341e+01_rb,0.45996e+01_rb,0.30401e+01_rb /)\n      kbo(:, 1,27,10) = (/ &\n        & 0.11180e+01_rb,0.26923e+01_rb,0.31092e+01_rb,0.31181e+01_rb,0.21320e+01_rb /)\n      kbo(:, 2,27,10) = (/ &\n        & 0.11893e+01_rb,0.28981e+01_rb,0.33903e+01_rb,0.34176e+01_rb,0.22961e+01_rb /)\n      kbo(:, 3,27,10) = (/ &\n        & 0.12805e+01_rb,0.31184e+01_rb,0.36930e+01_rb,0.37398e+01_rb,0.24775e+01_rb /)\n      kbo(:, 4,27,10) = (/ &\n        & 0.14017e+01_rb,0.33577e+01_rb,0.40190e+01_rb,0.40909e+01_rb,0.26920e+01_rb /)\n      kbo(:, 5,27,10) = (/ &\n        & 0.15494e+01_rb,0.36148e+01_rb,0.43685e+01_rb,0.44626e+01_rb,0.29161e+01_rb /)\n      kbo(:, 1,28,10) = (/ &\n        & 0.99411e+00_rb,0.25422e+01_rb,0.29403e+01_rb,0.29678e+01_rb,0.19736e+01_rb /)\n      kbo(:, 2,28,10) = (/ &\n        & 0.10693e+01_rb,0.27468e+01_rb,0.32278e+01_rb,0.32747e+01_rb,0.21580e+01_rb /)\n      kbo(:, 3,28,10) = (/ &\n        & 0.11727e+01_rb,0.29677e+01_rb,0.35410e+01_rb,0.36136e+01_rb,0.23718e+01_rb /)\n      kbo(:, 4,28,10) = (/ &\n        & 0.13040e+01_rb,0.32092e+01_rb,0.38816e+01_rb,0.39808e+01_rb,0.25959e+01_rb /)\n      kbo(:, 5,28,10) = (/ &\n        & 0.14604e+01_rb,0.34721e+01_rb,0.42472e+01_rb,0.43708e+01_rb,0.28373e+01_rb /)\n      kbo(:, 1,29,10) = (/ &\n        & 0.89294e+00_rb,0.24188e+01_rb,0.28058e+01_rb,0.28515e+01_rb,0.18636e+01_rb /)\n      kbo(:, 2,29,10) = (/ &\n        & 0.97544e+00_rb,0.26259e+01_rb,0.31039e+01_rb,0.31712e+01_rb,0.20699e+01_rb /)\n      kbo(:, 3,29,10) = (/ &\n        & 0.10880e+01_rb,0.28493e+01_rb,0.34305e+01_rb,0.35278e+01_rb,0.22886e+01_rb /)\n      kbo(:, 4,29,10) = (/ &\n        & 0.12277e+01_rb,0.30947e+01_rb,0.37862e+01_rb,0.39124e+01_rb,0.25256e+01_rb /)\n      kbo(:, 5,29,10) = (/ &\n        & 0.13896e+01_rb,0.33676e+01_rb,0.41685e+01_rb,0.43225e+01_rb,0.27864e+01_rb /)\n      kbo(:, 1,30,10) = (/ &\n        & 0.81230e+00_rb,0.23190e+01_rb,0.27059e+01_rb,0.27666e+01_rb,0.17929e+01_rb /)\n      kbo(:, 2,30,10) = (/ &\n        & 0.90285e+00_rb,0.25306e+01_rb,0.30146e+01_rb,0.31051e+01_rb,0.20049e+01_rb /)\n      kbo(:, 3,30,10) = (/ &\n        & 0.10223e+01_rb,0.27572e+01_rb,0.33560e+01_rb,0.34779e+01_rb,0.22359e+01_rb /)\n      kbo(:, 4,30,10) = (/ &\n        & 0.11675e+01_rb,0.30101e+01_rb,0.37284e+01_rb,0.38827e+01_rb,0.24866e+01_rb /)\n      kbo(:, 5,30,10) = (/ &\n        & 0.13337e+01_rb,0.32968e+01_rb,0.41265e+01_rb,0.43099e+01_rb,0.27369e+01_rb /)\n      kbo(:, 1,31,10) = (/ &\n        & 0.75110e+00_rb,0.22419e+01_rb,0.26379e+01_rb,0.27157e+01_rb,0.17433e+01_rb /)\n      kbo(:, 2,31,10) = (/ &\n        & 0.84809e+00_rb,0.24579e+01_rb,0.29592e+01_rb,0.30730e+01_rb,0.19665e+01_rb /)\n      kbo(:, 3,31,10) = (/ &\n        & 0.97252e+00_rb,0.26914e+01_rb,0.33168e+01_rb,0.34645e+01_rb,0.22008e+01_rb /)\n      kbo(:, 4,31,10) = (/ &\n        & 0.11219e+01_rb,0.29550e+01_rb,0.37069e+01_rb,0.38878e+01_rb,0.24456e+01_rb /)\n      kbo(:, 5,31,10) = (/ &\n        & 0.12926e+01_rb,0.32597e+01_rb,0.41224e+01_rb,0.43304e+01_rb,0.27059e+01_rb /)\n      kbo(:, 1,32,10) = (/ &\n        & 0.70499e+00_rb,0.21846e+01_rb,0.25985e+01_rb,0.26966e+01_rb,0.17143e+01_rb /)\n      kbo(:, 2,32,10) = (/ &\n        & 0.80768e+00_rb,0.24067e+01_rb,0.29356e+01_rb,0.30726e+01_rb,0.19337e+01_rb /)\n      kbo(:, 3,32,10) = (/ &\n        & 0.93561e+00_rb,0.26499e+01_rb,0.33107e+01_rb,0.34825e+01_rb,0.21698e+01_rb /)\n      kbo(:, 4,32,10) = (/ &\n        & 0.10894e+01_rb,0.29281e+01_rb,0.37179e+01_rb,0.39220e+01_rb,0.24264e+01_rb /)\n      kbo(:, 5,32,10) = (/ &\n        & 0.12637e+01_rb,0.32525e+01_rb,0.41500e+01_rb,0.43764e+01_rb,0.26992e+01_rb /)\n      kbo(:, 1,33,10) = (/ &\n        & 0.67118e+00_rb,0.21457e+01_rb,0.25854e+01_rb,0.27057e+01_rb,0.16861e+01_rb /)\n      kbo(:, 2,33,10) = (/ &\n        & 0.77795e+00_rb,0.23758e+01_rb,0.29404e+01_rb,0.30997e+01_rb,0.19111e+01_rb /)\n      kbo(:, 3,33,10) = (/ &\n        & 0.91001e+00_rb,0.26325e+01_rb,0.33337e+01_rb,0.35269e+01_rb,0.21600e+01_rb /)\n      kbo(:, 4,33,10) = (/ &\n        & 0.10674e+01_rb,0.29280e+01_rb,0.37566e+01_rb,0.39787e+01_rb,0.24291e+01_rb /)\n      kbo(:, 5,33,10) = (/ &\n        & 0.12452e+01_rb,0.32737e+01_rb,0.42022e+01_rb,0.44428e+01_rb,0.27130e+01_rb /)\n      kbo(:, 1,34,10) = (/ &\n        & 0.64347e+00_rb,0.21163e+01_rb,0.25854e+01_rb,0.27260e+01_rb,0.16632e+01_rb /)\n      kbo(:, 2,34,10) = (/ &\n        & 0.75313e+00_rb,0.23563e+01_rb,0.29579e+01_rb,0.31342e+01_rb,0.18999e+01_rb /)\n      kbo(:, 3,34,10) = (/ &\n        & 0.88833e+00_rb,0.26269e+01_rb,0.33662e+01_rb,0.35749e+01_rb,0.21605e+01_rb /)\n      kbo(:, 4,34,10) = (/ &\n        & 0.10487e+01_rb,0.29401e+01_rb,0.38003e+01_rb,0.40358e+01_rb,0.24405e+01_rb /)\n      kbo(:, 5,34,10) = (/ &\n        & 0.12301e+01_rb,0.33056e+01_rb,0.42553e+01_rb,0.45073e+01_rb,0.27333e+01_rb /)\n      kbo(:, 1,35,10) = (/ &\n        & 0.61333e+00_rb,0.20804e+01_rb,0.25725e+01_rb,0.27255e+01_rb,0.16337e+01_rb /)\n      kbo(:, 2,35,10) = (/ &\n        & 0.72416e+00_rb,0.23301e+01_rb,0.29566e+01_rb,0.31440e+01_rb,0.18805e+01_rb /)\n      kbo(:, 3,35,10) = (/ &\n        & 0.85987e+00_rb,0.26111e+01_rb,0.33740e+01_rb,0.35934e+01_rb,0.21502e+01_rb /)\n      kbo(:, 4,35,10) = (/ &\n        & 0.10212e+01_rb,0.29378e+01_rb,0.38159e+01_rb,0.40603e+01_rb,0.24378e+01_rb /)\n      kbo(:, 5,35,10) = (/ &\n        & 0.12063e+01_rb,0.33167e+01_rb,0.42768e+01_rb,0.45362e+01_rb,0.27369e+01_rb /)\n      kbo(:, 1,36,10) = (/ &\n        & 0.57858e+00_rb,0.20318e+01_rb,0.25343e+01_rb,0.26932e+01_rb,0.15911e+01_rb /)\n      kbo(:, 2,36,10) = (/ &\n        & 0.68823e+00_rb,0.22888e+01_rb,0.29242e+01_rb,0.31171e+01_rb,0.18445e+01_rb /)\n      kbo(:, 3,36,10) = (/ &\n        & 0.82172e+00_rb,0.25765e+01_rb,0.33460e+01_rb,0.35706e+01_rb,0.21205e+01_rb /)\n      kbo(:, 4,36,10) = (/ &\n        & 0.98227e+00_rb,0.29099e+01_rb,0.37920e+01_rb,0.40410e+01_rb,0.24128e+01_rb /)\n      kbo(:, 5,36,10) = (/ &\n        & 0.11693e+01_rb,0.32947e+01_rb,0.42558e+01_rb,0.45198e+01_rb,0.27160e+01_rb /)\n      kbo(:, 1,37,10) = (/ &\n        & 0.53405e+00_rb,0.19558e+01_rb,0.24506e+01_rb,0.26071e+01_rb,0.15218e+01_rb /)\n      kbo(:, 2,37,10) = (/ &\n        & 0.63968e+00_rb,0.22170e+01_rb,0.28388e+01_rb,0.30310e+01_rb,0.17770e+01_rb /)\n      kbo(:, 3,37,10) = (/ &\n        & 0.76779e+00_rb,0.25049e+01_rb,0.32599e+01_rb,0.34842e+01_rb,0.20552e+01_rb /)\n      kbo(:, 4,37,10) = (/ &\n        & 0.92384e+00_rb,0.28358e+01_rb,0.37058e+01_rb,0.39557e+01_rb,0.23490e+01_rb /)\n      kbo(:, 5,37,10) = (/ &\n        & 0.11094e+01_rb,0.32175e+01_rb,0.41691e+01_rb,0.44348e+01_rb,0.26544e+01_rb /)\n      kbo(:, 1,38,10) = (/ &\n        & 0.49328e+00_rb,0.18861e+01_rb,0.23724e+01_rb,0.25236e+01_rb,0.14577e+01_rb /)\n      kbo(:, 2,38,10) = (/ &\n        & 0.59575e+00_rb,0.21506e+01_rb,0.27570e+01_rb,0.29471e+01_rb,0.17138e+01_rb /)\n      kbo(:, 3,38,10) = (/ &\n        & 0.71877e+00_rb,0.24381e+01_rb,0.31760e+01_rb,0.33985e+01_rb,0.19934e+01_rb /)\n      kbo(:, 4,38,10) = (/ &\n        & 0.87044e+00_rb,0.27651e+01_rb,0.36203e+01_rb,0.38701e+01_rb,0.22879e+01_rb /)\n      kbo(:, 5,38,10) = (/ &\n        & 0.10541e+01_rb,0.31424e+01_rb,0.40835e+01_rb,0.43497e+01_rb,0.25942e+01_rb /)\n      kbo(:, 1,39,10) = (/ &\n        & 0.45633e+00_rb,0.18232e+01_rb,0.23004e+01_rb,0.24453e+01_rb,0.13998e+01_rb /)\n      kbo(:, 2,39,10) = (/ &\n        & 0.55664e+00_rb,0.20902e+01_rb,0.26810e+01_rb,0.28682e+01_rb,0.16563e+01_rb /)\n      kbo(:, 3,39,10) = (/ &\n        & 0.67511e+00_rb,0.23775e+01_rb,0.30973e+01_rb,0.33174e+01_rb,0.19363e+01_rb /)\n      kbo(:, 4,39,10) = (/ &\n        & 0.82312e+00_rb,0.27002e+01_rb,0.35399e+01_rb,0.37881e+01_rb,0.22310e+01_rb /)\n      kbo(:, 5,39,10) = (/ &\n        & 0.10047e+01_rb,0.30719e+01_rb,0.40016e+01_rb,0.42681e+01_rb,0.25376e+01_rb /)\n      kbo(:, 1,40,10) = (/ &\n        & 0.41369e+00_rb,0.17392e+01_rb,0.21979e+01_rb,0.23287e+01_rb,0.13226e+01_rb /)\n      kbo(:, 2,40,10) = (/ &\n        & 0.51051e+00_rb,0.20064e+01_rb,0.25693e+01_rb,0.27492e+01_rb,0.15756e+01_rb /)\n      kbo(:, 3,40,10) = (/ &\n        & 0.62337e+00_rb,0.22909e+01_rb,0.29791e+01_rb,0.31928e+01_rb,0.18532e+01_rb /)\n      kbo(:, 4,40,10) = (/ &\n        & 0.76463e+00_rb,0.26052e+01_rb,0.34168e+01_rb,0.36603e+01_rb,0.21464e+01_rb /)\n      kbo(:, 5,40,10) = (/ &\n        & 0.94032e+00_rb,0.29656e+01_rb,0.38751e+01_rb,0.41396e+01_rb,0.24517e+01_rb /)\n      kbo(:, 1,41,10) = (/ &\n        & 0.37354e+00_rb,0.16561e+01_rb,0.20963e+01_rb,0.22111e+01_rb,0.12469e+01_rb /)\n      kbo(:, 2,41,10) = (/ &\n        & 0.46665e+00_rb,0.19239e+01_rb,0.24587e+01_rb,0.26289e+01_rb,0.14959e+01_rb /)\n      kbo(:, 3,41,10) = (/ &\n        & 0.57545e+00_rb,0.22047e+01_rb,0.28597e+01_rb,0.30659e+01_rb,0.17694e+01_rb /)\n      kbo(:, 4,41,10) = (/ &\n        & 0.70985e+00_rb,0.25106e+01_rb,0.32912e+01_rb,0.35291e+01_rb,0.20606e+01_rb /)\n      kbo(:, 5,41,10) = (/ &\n        & 0.87840e+00_rb,0.28591e+01_rb,0.37457e+01_rb,0.40073e+01_rb,0.23640e+01_rb /)\n      kbo(:, 1,42,10) = (/ &\n        & 0.33676e+00_rb,0.15772e+01_rb,0.19999e+01_rb,0.20973e+01_rb,0.11755e+01_rb /)\n      kbo(:, 2,42,10) = (/ &\n        & 0.42603e+00_rb,0.18429e+01_rb,0.23518e+01_rb,0.25105e+01_rb,0.14196e+01_rb /)\n      kbo(:, 3,42,10) = (/ &\n        & 0.53169e+00_rb,0.21211e+01_rb,0.27440e+01_rb,0.29424e+01_rb,0.16886e+01_rb /)\n      kbo(:, 4,42,10) = (/ &\n        & 0.65992e+00_rb,0.24200e+01_rb,0.31691e+01_rb,0.34004e+01_rb,0.19770e+01_rb /)\n      kbo(:, 5,42,10) = (/ &\n        & 0.82123e+00_rb,0.27572e+01_rb,0.36189e+01_rb,0.38764e+01_rb,0.22780e+01_rb /)\n      kbo(:, 1,43,10) = (/ &\n        & 0.29880e+00_rb,0.14855e+01_rb,0.18883e+01_rb,0.19649e+01_rb,0.10947e+01_rb /)\n      kbo(:, 2,43,10) = (/ &\n        & 0.38323e+00_rb,0.17495e+01_rb,0.22289e+01_rb,0.23704e+01_rb,0.13324e+01_rb /)\n      kbo(:, 3,43,10) = (/ &\n        & 0.48519e+00_rb,0.20243e+01_rb,0.26093e+01_rb,0.27970e+01_rb,0.15948e+01_rb /)\n      kbo(:, 4,43,10) = (/ &\n        & 0.60690e+00_rb,0.23164e+01_rb,0.30260e+01_rb,0.32477e+01_rb,0.18788e+01_rb /)\n      kbo(:, 5,43,10) = (/ &\n        & 0.75876e+00_rb,0.26404e+01_rb,0.34692e+01_rb,0.37199e+01_rb,0.21767e+01_rb /)\n      kbo(:, 1,44,10) = (/ &\n        & 0.26234e+00_rb,0.13896e+01_rb,0.17735e+01_rb,0.18283e+01_rb,0.10125e+01_rb /)\n      kbo(:, 2,44,10) = (/ &\n        & 0.34133e+00_rb,0.16516e+01_rb,0.21029e+01_rb,0.22231e+01_rb,0.12426e+01_rb /)\n      kbo(:, 3,44,10) = (/ &\n        & 0.43896e+00_rb,0.19234e+01_rb,0.24698e+01_rb,0.26446e+01_rb,0.14975e+01_rb /)\n      kbo(:, 4,44,10) = (/ &\n        & 0.55556e+00_rb,0.22104e+01_rb,0.28764e+01_rb,0.30872e+01_rb,0.17758e+01_rb /)\n      kbo(:, 5,44,10) = (/ &\n        & 0.69720e+00_rb,0.25211e+01_rb,0.33108e+01_rb,0.35530e+01_rb,0.20699e+01_rb /)\n      kbo(:, 1,45,10) = (/ &\n        & 0.22932e+00_rb,0.12967e+01_rb,0.16617e+01_rb,0.16976e+01_rb,0.93402e+00_rb /)\n      kbo(:, 2,45,10) = (/ &\n        & 0.30290e+00_rb,0.15560e+01_rb,0.19824e+01_rb,0.20804e+01_rb,0.11566e+01_rb /)\n      kbo(:, 3,45,10) = (/ &\n        & 0.39581e+00_rb,0.18251e+01_rb,0.23356e+01_rb,0.24949e+01_rb,0.14039e+01_rb /)\n      kbo(:, 4,45,10) = (/ &\n        & 0.50777e+00_rb,0.21068e+01_rb,0.27305e+01_rb,0.29300e+01_rb,0.16755e+01_rb /)\n      kbo(:, 5,45,10) = (/ &\n        & 0.64060e+00_rb,0.24073e+01_rb,0.31565e+01_rb,0.33892e+01_rb,0.19653e+01_rb /)\n      kbo(:, 1,46,10) = (/ &\n        & 0.19825e+00_rb,0.12020e+01_rb,0.15457e+01_rb,0.15662e+01_rb,0.85464e+00_rb /)\n      kbo(:, 2,46,10) = (/ &\n        & 0.26591e+00_rb,0.14563e+01_rb,0.18595e+01_rb,0.19337e+01_rb,0.10694e+01_rb /)\n      kbo(:, 3,46,10) = (/ &\n        & 0.35343e+00_rb,0.17232e+01_rb,0.22000e+01_rb,0.23390e+01_rb,0.13083e+01_rb /)\n      kbo(:, 4,46,10) = (/ &\n        & 0.46053e+00_rb,0.19999e+01_rb,0.25801e+01_rb,0.27669e+01_rb,0.15716e+01_rb /)\n      kbo(:, 5,46,10) = (/ &\n        & 0.58556e+00_rb,0.22922e+01_rb,0.29962e+01_rb,0.32174e+01_rb,0.18560e+01_rb /)\n      kbo(:, 1,47,10) = (/ &\n        & 0.16836e+00_rb,0.11008e+01_rb,0.14194e+01_rb,0.14270e+01_rb,0.77061e+00_rb /)\n      kbo(:, 2,47,10) = (/ &\n        & 0.22922e+00_rb,0.13473e+01_rb,0.17277e+01_rb,0.17767e+01_rb,0.97668e+00_rb /)\n      kbo(:, 3,47,10) = (/ &\n        & 0.31004e+00_rb,0.16106e+01_rb,0.20551e+01_rb,0.21688e+01_rb,0.12060e+01_rb /)\n      kbo(:, 4,47,10) = (/ &\n        & 0.41110e+00_rb,0.18840e+01_rb,0.24189e+01_rb,0.25893e+01_rb,0.14598e+01_rb /)\n      kbo(:, 5,47,10) = (/ &\n        & 0.52932e+00_rb,0.21690e+01_rb,0.28216e+01_rb,0.30298e+01_rb,0.17368e+01_rb /)\n      kbo(:, 1,48,10) = (/ &\n        & 0.14220e+00_rb,0.10041e+01_rb,0.12957e+01_rb,0.12963e+01_rb,0.69114e+00_rb /)\n      kbo(:, 2,48,10) = (/ &\n        & 0.19626e+00_rb,0.12419e+01_rb,0.15985e+01_rb,0.16273e+01_rb,0.88794e+00_rb /)\n      kbo(:, 3,48,10) = (/ &\n        & 0.27002e+00_rb,0.15006e+01_rb,0.19169e+01_rb,0.20039e+01_rb,0.11083e+01_rb /)\n      kbo(:, 4,48,10) = (/ &\n        & 0.36488e+00_rb,0.17700e+01_rb,0.22644e+01_rb,0.24151e+01_rb,0.13523e+01_rb /)\n      kbo(:, 5,48,10) = (/ &\n        & 0.47701e+00_rb,0.20494e+01_rb,0.26525e+01_rb,0.28466e+01_rb,0.16205e+01_rb /)\n      kbo(:, 1,49,10) = (/ &\n        & 0.11950e+00_rb,0.91234e+00_rb,0.11755e+01_rb,0.11741e+01_rb,0.61611e+00_rb /)\n      kbo(:, 2,49,10) = (/ &\n        & 0.16698e+00_rb,0.11406e+01_rb,0.14723e+01_rb,0.14860e+01_rb,0.80337e+00_rb /)\n      kbo(:, 3,49,10) = (/ &\n        & 0.23352e+00_rb,0.13921e+01_rb,0.17842e+01_rb,0.18450e+01_rb,0.10147e+01_rb /)\n      kbo(:, 4,49,10) = (/ &\n        & 0.32154e+00_rb,0.16580e+01_rb,0.21177e+01_rb,0.22439e+01_rb,0.12490e+01_rb /)\n      kbo(:, 5,49,10) = (/ &\n        & 0.42774e+00_rb,0.19330e+01_rb,0.24891e+01_rb,0.26683e+01_rb,0.15078e+01_rb /)\n      kbo(:, 1,50,10) = (/ &\n        & 0.10087e+00_rb,0.83065e+00_rb,0.10669e+01_rb,0.10674e+01_rb,0.54936e+00_rb /)\n      kbo(:, 2,50,10) = (/ &\n        & 0.14237e+00_rb,0.10490e+01_rb,0.13561e+01_rb,0.13605e+01_rb,0.72778e+00_rb /)\n      kbo(:, 3,50,10) = (/ &\n        & 0.20234e+00_rb,0.12926e+01_rb,0.16630e+01_rb,0.17021e+01_rb,0.93055e+00_rb /)\n      kbo(:, 4,50,10) = (/ &\n        & 0.28362e+00_rb,0.15546e+01_rb,0.19861e+01_rb,0.20879e+01_rb,0.11563e+01_rb /)\n      kbo(:, 5,50,10) = (/ &\n        & 0.38392e+00_rb,0.18265e+01_rb,0.23423e+01_rb,0.25044e+01_rb,0.14058e+01_rb /)\n      kbo(:, 1,51,10) = (/ &\n        & 0.85305e-01_rb,0.75516e+00_rb,0.96600e+00_rb,0.96989e+00_rb,0.48900e+00_rb /)\n      kbo(:, 2,51,10) = (/ &\n        & 0.12119e+00_rb,0.96396e+00_rb,0.12458e+01_rb,0.12458e+01_rb,0.65803e+00_rb /)\n      kbo(:, 3,51,10) = (/ &\n        & 0.17492e+00_rb,0.11993e+01_rb,0.15474e+01_rb,0.15706e+01_rb,0.85222e+00_rb /)\n      kbo(:, 4,51,10) = (/ &\n        & 0.24953e+00_rb,0.14559e+01_rb,0.18635e+01_rb,0.19410e+01_rb,0.10697e+01_rb /)\n      kbo(:, 5,51,10) = (/ &\n        & 0.34420e+00_rb,0.17250e+01_rb,0.22062e+01_rb,0.23483e+01_rb,0.13105e+01_rb /)\n      kbo(:, 1,52,10) = (/ &\n        & 0.72122e-01_rb,0.68398e+00_rb,0.87088e+00_rb,0.87737e+00_rb,0.43154e+00_rb /)\n      kbo(:, 2,52,10) = (/ &\n        & 0.10277e+00_rb,0.88315e+00_rb,0.11388e+01_rb,0.11383e+01_rb,0.59136e+00_rb /)\n      kbo(:, 3,52,10) = (/ &\n        & 0.15043e+00_rb,0.11094e+01_rb,0.14345e+01_rb,0.14453e+01_rb,0.77736e+00_rb /)\n      kbo(:, 4,52,10) = (/ &\n        & 0.21816e+00_rb,0.13587e+01_rb,0.17451e+01_rb,0.17993e+01_rb,0.98663e+00_rb /)\n      kbo(:, 5,52,10) = (/ &\n        & 0.30639e+00_rb,0.16242e+01_rb,0.20759e+01_rb,0.21951e+01_rb,0.12188e+01_rb /)\n      kbo(:, 1,53,10) = (/ &\n        & 0.60992e-01_rb,0.61681e+00_rb,0.78096e+00_rb,0.78801e+00_rb,0.37771e+00_rb /)\n      kbo(:, 2,53,10) = (/ &\n        & 0.86893e-01_rb,0.80591e+00_rb,0.10354e+01_rb,0.10374e+01_rb,0.52892e+00_rb /)\n      kbo(:, 3,53,10) = (/ &\n        & 0.12844e+00_rb,0.10223e+01_rb,0.13228e+01_rb,0.13263e+01_rb,0.70557e+00_rb /)\n      kbo(:, 4,53,10) = (/ &\n        & 0.18962e+00_rb,0.12639e+01_rb,0.16288e+01_rb,0.16633e+01_rb,0.90648e+00_rb /)\n      kbo(:, 5,53,10) = (/ &\n        & 0.27104e+00_rb,0.15253e+01_rb,0.19505e+01_rb,0.20457e+01_rb,0.11304e+01_rb /)\n      kbo(:, 1,54,10) = (/ &\n        & 0.52146e-01_rb,0.55862e+00_rb,0.70341e+00_rb,0.70953e+00_rb,0.33141e+00_rb /)\n      kbo(:, 2,54,10) = (/ &\n        & 0.74252e-01_rb,0.73817e+00_rb,0.94468e+00_rb,0.94968e+00_rb,0.47420e+00_rb /)\n      kbo(:, 3,54,10) = (/ &\n        & 0.11046e+00_rb,0.94583e+00_rb,0.12229e+01_rb,0.12232e+01_rb,0.64224e+00_rb /)\n      kbo(:, 4,54,10) = (/ &\n        & 0.16584e+00_rb,0.11796e+01_rb,0.15239e+01_rb,0.15447e+01_rb,0.83594e+00_rb /)\n      kbo(:, 5,54,10) = (/ &\n        & 0.24084e+00_rb,0.14356e+01_rb,0.18395e+01_rb,0.19125e+01_rb,0.10521e+01_rb /)\n      kbo(:, 1,55,10) = (/ &\n        & 0.44769e-01_rb,0.50580e+00_rb,0.63367e+00_rb,0.63830e+00_rb,0.29171e+00_rb /)\n      kbo(:, 2,55,10) = (/ &\n        & 0.63801e-01_rb,0.67695e+00_rb,0.86251e+00_rb,0.86950e+00_rb,0.42385e+00_rb /)\n      kbo(:, 3,55,10) = (/ &\n        & 0.95281e-01_rb,0.87561e+00_rb,0.11296e+01_rb,0.11298e+01_rb,0.58465e+00_rb /)\n      kbo(:, 4,55,10) = (/ &\n        & 0.14509e+00_rb,0.11012e+01_rb,0.14250e+01_rb,0.14355e+01_rb,0.77056e+00_rb /)\n      kbo(:, 5,55,10) = (/ &\n        & 0.21402e+00_rb,0.13506e+01_rb,0.17360e+01_rb,0.17888e+01_rb,0.97966e+00_rb /)\n      kbo(:, 1,56,10) = (/ &\n        & 0.38303e-01_rb,0.45495e+00_rb,0.56826e+00_rb,0.57046e+00_rb,0.25591e+00_rb /)\n      kbo(:, 2,56,10) = (/ &\n        & 0.54762e-01_rb,0.61846e+00_rb,0.78411e+00_rb,0.79150e+00_rb,0.37700e+00_rb /)\n      kbo(:, 3,56,10) = (/ &\n        & 0.82009e-01_rb,0.80830e+00_rb,0.10394e+01_rb,0.10417e+01_rb,0.52950e+00_rb /)\n      kbo(:, 4,56,10) = (/ &\n        & 0.12621e+00_rb,0.10253e+01_rb,0.13275e+01_rb,0.13316e+01_rb,0.70721e+00_rb /)\n      kbo(:, 5,56,10) = (/ &\n        & 0.18937e+00_rb,0.12680e+01_rb,0.16344e+01_rb,0.16700e+01_rb,0.90979e+00_rb /)\n      kbo(:, 1,57,10) = (/ &\n        & 0.32632e-01_rb,0.40611e+00_rb,0.50731e+00_rb,0.50659e+00_rb,0.22496e+00_rb /)\n      kbo(:, 2,57,10) = (/ &\n        & 0.47019e-01_rb,0.56304e+00_rb,0.71002e+00_rb,0.71651e+00_rb,0.33305e+00_rb /)\n      kbo(:, 3,57,10) = (/ &\n        & 0.70456e-01_rb,0.74361e+00_rb,0.95266e+00_rb,0.95775e+00_rb,0.47635e+00_rb /)\n      kbo(:, 4,57,10) = (/ &\n        & 0.10937e+00_rb,0.95229e+00_rb,0.12322e+01_rb,0.12329e+01_rb,0.64711e+00_rb /)\n      kbo(:, 5,57,10) = (/ &\n        & 0.16675e+00_rb,0.11875e+01_rb,0.15342e+01_rb,0.15565e+01_rb,0.84216e+00_rb /)\n      kbo(:, 1,58,10) = (/ &\n        & 0.27856e-01_rb,0.36188e+00_rb,0.45369e+00_rb,0.45016e+00_rb,0.19835e+00_rb /)\n      kbo(:, 2,58,10) = (/ &\n        & 0.40581e-01_rb,0.51273e+00_rb,0.64353e+00_rb,0.64865e+00_rb,0.29546e+00_rb /)\n      kbo(:, 3,58,10) = (/ &\n        & 0.60914e-01_rb,0.68524e+00_rb,0.87436e+00_rb,0.88146e+00_rb,0.42903e+00_rb /)\n      kbo(:, 4,58,10) = (/ &\n        & 0.95154e-01_rb,0.88582e+00_rb,0.11439e+01_rb,0.11441e+01_rb,0.59161e+00_rb /)\n      kbo(:, 5,58,10) = (/ &\n        & 0.14715e+00_rb,0.11133e+01_rb,0.14407e+01_rb,0.14528e+01_rb,0.77938e+00_rb /)\n      kbo(:, 1,59,10) = (/ &\n        & 0.25371e-01_rb,0.34461e+00_rb,0.43295e+00_rb,0.42860e+00_rb,0.18805e+00_rb /)\n      kbo(:, 2,59,10) = (/ &\n        & 0.37551e-01_rb,0.49296e+00_rb,0.61778e+00_rb,0.62208e+00_rb,0.28092e+00_rb /)\n      kbo(:, 3,59,10) = (/ &\n        & 0.57031e-01_rb,0.66239e+00_rb,0.84380e+00_rb,0.85137e+00_rb,0.40984e+00_rb /)\n      kbo(:, 4,59,10) = (/ &\n        & 0.89730e-01_rb,0.85967e+00_rb,0.11090e+01_rb,0.11096e+01_rb,0.56882e+00_rb /)\n      kbo(:, 5,59,10) = (/ &\n        & 0.13959e+00_rb,0.10839e+01_rb,0.14035e+01_rb,0.14125e+01_rb,0.75487e+00_rb /)\n      kbo(:, 1,13,11) = (/ &\n        & 0.13518e+02_rb,0.19426e+02_rb,0.21368e+02_rb,0.20607e+02_rb,0.15967e+02_rb /)\n      kbo(:, 2,13,11) = (/ &\n        & 0.13249e+02_rb,0.19278e+02_rb,0.21345e+02_rb,0.20725e+02_rb,0.16218e+02_rb /)\n      kbo(:, 3,13,11) = (/ &\n        & 0.12991e+02_rb,0.19106e+02_rb,0.21344e+02_rb,0.20838e+02_rb,0.16493e+02_rb /)\n      kbo(:, 4,13,11) = (/ &\n        & 0.12783e+02_rb,0.18953e+02_rb,0.21337e+02_rb,0.20959e+02_rb,0.16769e+02_rb /)\n      kbo(:, 5,13,11) = (/ &\n        & 0.12735e+02_rb,0.18820e+02_rb,0.21328e+02_rb,0.21104e+02_rb,0.16982e+02_rb /)\n      kbo(:, 1,14,11) = (/ &\n        & 0.11504e+02_rb,0.17534e+02_rb,0.19457e+02_rb,0.19131e+02_rb,0.14625e+02_rb /)\n      kbo(:, 2,14,11) = (/ &\n        & 0.11281e+02_rb,0.17396e+02_rb,0.19491e+02_rb,0.19271e+02_rb,0.14939e+02_rb /)\n      kbo(:, 3,14,11) = (/ &\n        & 0.11112e+02_rb,0.17290e+02_rb,0.19527e+02_rb,0.19415e+02_rb,0.15255e+02_rb /)\n      kbo(:, 4,14,11) = (/ &\n        & 0.11115e+02_rb,0.17213e+02_rb,0.19560e+02_rb,0.19580e+02_rb,0.15504e+02_rb /)\n      kbo(:, 5,14,11) = (/ &\n        & 0.11342e+02_rb,0.17139e+02_rb,0.19615e+02_rb,0.19759e+02_rb,0.15706e+02_rb /)\n      kbo(:, 1,15,11) = (/ &\n        & 0.98170e+01_rb,0.15599e+02_rb,0.17627e+02_rb,0.17666e+02_rb,0.13354e+02_rb /)\n      kbo(:, 2,15,11) = (/ &\n        & 0.96747e+01_rb,0.15533e+02_rb,0.17695e+02_rb,0.17842e+02_rb,0.13687e+02_rb /)\n      kbo(:, 3,15,11) = (/ &\n        & 0.96984e+01_rb,0.15502e+02_rb,0.17755e+02_rb,0.18036e+02_rb,0.14004e+02_rb /)\n      kbo(:, 4,15,11) = (/ &\n        & 0.99522e+01_rb,0.15480e+02_rb,0.17829e+02_rb,0.18235e+02_rb,0.14263e+02_rb /)\n      kbo(:, 5,15,11) = (/ &\n        & 0.10344e+02_rb,0.15525e+02_rb,0.17929e+02_rb,0.18418e+02_rb,0.14475e+02_rb /)\n      kbo(:, 1,16,11) = (/ &\n        & 0.84332e+01_rb,0.13806e+02_rb,0.15926e+02_rb,0.16215e+02_rb,0.12224e+02_rb /)\n      kbo(:, 2,16,11) = (/ &\n        & 0.84583e+01_rb,0.13805e+02_rb,0.16021e+02_rb,0.16437e+02_rb,0.12556e+02_rb /)\n      kbo(:, 3,16,11) = (/ &\n        & 0.87066e+01_rb,0.13823e+02_rb,0.16108e+02_rb,0.16660e+02_rb,0.12834e+02_rb /)\n      kbo(:, 4,16,11) = (/ &\n        & 0.90827e+01_rb,0.13924e+02_rb,0.16226e+02_rb,0.16883e+02_rb,0.13078e+02_rb /)\n      kbo(:, 5,16,11) = (/ &\n        & 0.95263e+01_rb,0.14156e+02_rb,0.16382e+02_rb,0.17079e+02_rb,0.13334e+02_rb /)\n      kbo(:, 1,17,11) = (/ &\n        & 0.73068e+01_rb,0.12252e+02_rb,0.14341e+02_rb,0.14810e+02_rb,0.11129e+02_rb /)\n      kbo(:, 2,17,11) = (/ &\n        & 0.75295e+01_rb,0.12291e+02_rb,0.14463e+02_rb,0.15052e+02_rb,0.11439e+02_rb /)\n      kbo(:, 3,17,11) = (/ &\n        & 0.78853e+01_rb,0.12405e+02_rb,0.14606e+02_rb,0.15309e+02_rb,0.11729e+02_rb /)\n      kbo(:, 4,17,11) = (/ &\n        & 0.83040e+01_rb,0.12643e+02_rb,0.14776e+02_rb,0.15548e+02_rb,0.12006e+02_rb /)\n      kbo(:, 5,17,11) = (/ &\n        & 0.87123e+01_rb,0.13039e+02_rb,0.14982e+02_rb,0.15762e+02_rb,0.12286e+02_rb /)\n      kbo(:, 1,18,11) = (/ &\n        & 0.64287e+01_rb,0.10933e+02_rb,0.12879e+02_rb,0.13451e+02_rb,0.10053e+02_rb /)\n      kbo(:, 2,18,11) = (/ &\n        & 0.67446e+01_rb,0.11039e+02_rb,0.13041e+02_rb,0.13740e+02_rb,0.10377e+02_rb /)\n      kbo(:, 3,18,11) = (/ &\n        & 0.71271e+01_rb,0.11266e+02_rb,0.13222e+02_rb,0.14018e+02_rb,0.10699e+02_rb /)\n      kbo(:, 4,18,11) = (/ &\n        & 0.75067e+01_rb,0.11650e+02_rb,0.13455e+02_rb,0.14263e+02_rb,0.11011e+02_rb /)\n      kbo(:, 5,18,11) = (/ &\n        & 0.78797e+01_rb,0.12144e+02_rb,0.13766e+02_rb,0.14517e+02_rb,0.11323e+02_rb /)\n      kbo(:, 1,19,11) = (/ &\n        & 0.57165e+01_rb,0.98198e+01_rb,0.11563e+02_rb,0.12210e+02_rb,0.90287e+01_rb /)\n      kbo(:, 2,19,11) = (/ &\n        & 0.60504e+01_rb,0.10030e+02_rb,0.11759e+02_rb,0.12511e+02_rb,0.93771e+01_rb /)\n      kbo(:, 3,19,11) = (/ &\n        & 0.63872e+01_rb,0.10390e+02_rb,0.12004e+02_rb,0.12787e+02_rb,0.97382e+01_rb /)\n      kbo(:, 4,19,11) = (/ &\n        & 0.67262e+01_rb,0.10858e+02_rb,0.12325e+02_rb,0.13071e+02_rb,0.10100e+02_rb /)\n      kbo(:, 5,19,11) = (/ &\n        & 0.70630e+01_rb,0.11396e+02_rb,0.12720e+02_rb,0.13371e+02_rb,0.10433e+02_rb /)\n      kbo(:, 1,20,11) = (/ &\n        & 0.51077e+01_rb,0.88680e+01_rb,0.10415e+02_rb,0.11053e+02_rb,0.80963e+01_rb /)\n      kbo(:, 2,20,11) = (/ &\n        & 0.54017e+01_rb,0.92107e+01_rb,0.10662e+02_rb,0.11361e+02_rb,0.84758e+01_rb /)\n      kbo(:, 3,20,11) = (/ &\n        & 0.57015e+01_rb,0.96698e+01_rb,0.10982e+02_rb,0.11668e+02_rb,0.88481e+01_rb /)\n      kbo(:, 4,20,11) = (/ &\n        & 0.60041e+01_rb,0.10196e+02_rb,0.11384e+02_rb,0.12000e+02_rb,0.92376e+01_rb /)\n      kbo(:, 5,20,11) = (/ &\n        & 0.63106e+01_rb,0.10732e+02_rb,0.11884e+02_rb,0.12349e+02_rb,0.96255e+01_rb /)\n      kbo(:, 1,21,11) = (/ &\n        & 0.45414e+01_rb,0.80841e+01_rb,0.94333e+01_rb,0.10001e+02_rb,0.72987e+01_rb /)\n      kbo(:, 2,21,11) = (/ &\n        & 0.48060e+01_rb,0.85169e+01_rb,0.97399e+01_rb,0.10324e+02_rb,0.76799e+01_rb /)\n      kbo(:, 3,21,11) = (/ &\n        & 0.50754e+01_rb,0.90311e+01_rb,0.10134e+02_rb,0.10673e+02_rb,0.80692e+01_rb /)\n      kbo(:, 4,21,11) = (/ &\n        & 0.53489e+01_rb,0.95660e+01_rb,0.10626e+02_rb,0.11046e+02_rb,0.84671e+01_rb /)\n      kbo(:, 5,21,11) = (/ &\n        & 0.56226e+01_rb,0.10100e+02_rb,0.11188e+02_rb,0.11467e+02_rb,0.88878e+01_rb /)\n      kbo(:, 1,22,11) = (/ &\n        & 0.40512e+01_rb,0.74537e+01_rb,0.86113e+01_rb,0.90760e+01_rb,0.66406e+01_rb /)\n      kbo(:, 2,22,11) = (/ &\n        & 0.42861e+01_rb,0.79455e+01_rb,0.89988e+01_rb,0.94326e+01_rb,0.70298e+01_rb /)\n      kbo(:, 3,22,11) = (/ &\n        & 0.45284e+01_rb,0.84723e+01_rb,0.94806e+01_rb,0.98282e+01_rb,0.74365e+01_rb /)\n      kbo(:, 4,22,11) = (/ &\n        & 0.47765e+01_rb,0.90022e+01_rb,0.10036e+02_rb,0.10267e+02_rb,0.78530e+01_rb /)\n      kbo(:, 5,22,11) = (/ &\n        & 0.50273e+01_rb,0.95375e+01_rb,0.10644e+02_rb,0.10762e+02_rb,0.82925e+01_rb /)\n      kbo(:, 1,23,11) = (/ &\n        & 0.36272e+01_rb,0.69345e+01_rb,0.79292e+01_rb,0.82821e+01_rb,0.60862e+01_rb /)\n      kbo(:, 2,23,11) = (/ &\n        & 0.38324e+01_rb,0.74412e+01_rb,0.84058e+01_rb,0.86779e+01_rb,0.64814e+01_rb /)\n      kbo(:, 3,23,11) = (/ &\n        & 0.40496e+01_rb,0.79556e+01_rb,0.89497e+01_rb,0.91277e+01_rb,0.69031e+01_rb /)\n      kbo(:, 4,23,11) = (/ &\n        & 0.42736e+01_rb,0.84881e+01_rb,0.95512e+01_rb,0.96353e+01_rb,0.73423e+01_rb /)\n      kbo(:, 5,23,11) = (/ &\n        & 0.45008e+01_rb,0.90231e+01_rb,0.10199e+02_rb,0.10196e+02_rb,0.78107e+01_rb /)\n      kbo(:, 1,24,11) = (/ &\n        & 0.32617e+01_rb,0.64927e+01_rb,0.73814e+01_rb,0.76204e+01_rb,0.56351e+01_rb /)\n      kbo(:, 2,24,11) = (/ &\n        & 0.34455e+01_rb,0.69864e+01_rb,0.79146e+01_rb,0.80668e+01_rb,0.60482e+01_rb /)\n      kbo(:, 3,24,11) = (/ &\n        & 0.36375e+01_rb,0.74982e+01_rb,0.85124e+01_rb,0.85688e+01_rb,0.64793e+01_rb /)\n      kbo(:, 4,24,11) = (/ &\n        & 0.38361e+01_rb,0.80253e+01_rb,0.91530e+01_rb,0.91384e+01_rb,0.69488e+01_rb /)\n      kbo(:, 5,24,11) = (/ &\n        & 0.40434e+01_rb,0.85770e+01_rb,0.98249e+01_rb,0.97701e+01_rb,0.74392e+01_rb /)\n      kbo(:, 1,25,11) = (/ &\n        & 0.29504e+01_rb,0.60996e+01_rb,0.69378e+01_rb,0.70933e+01_rb,0.52696e+01_rb /)\n      kbo(:, 2,25,11) = (/ &\n        & 0.31134e+01_rb,0.65859e+01_rb,0.75193e+01_rb,0.75874e+01_rb,0.56908e+01_rb /)\n      kbo(:, 3,25,11) = (/ &\n        & 0.32850e+01_rb,0.70991e+01_rb,0.81583e+01_rb,0.81455e+01_rb,0.61504e+01_rb /)\n      kbo(:, 4,25,11) = (/ &\n        & 0.34639e+01_rb,0.76357e+01_rb,0.88289e+01_rb,0.87766e+01_rb,0.66391e+01_rb /)\n      kbo(:, 5,25,11) = (/ &\n        & 0.36575e+01_rb,0.82031e+01_rb,0.95335e+01_rb,0.94728e+01_rb,0.71181e+01_rb /)\n      kbo(:, 1,26,11) = (/ &\n        & 0.26785e+01_rb,0.57592e+01_rb,0.65944e+01_rb,0.66793e+01_rb,0.49659e+01_rb /)\n      kbo(:, 2,26,11) = (/ &\n        & 0.28303e+01_rb,0.62512e+01_rb,0.72180e+01_rb,0.72292e+01_rb,0.54158e+01_rb /)\n      kbo(:, 3,26,11) = (/ &\n        & 0.29845e+01_rb,0.67700e+01_rb,0.78853e+01_rb,0.78517e+01_rb,0.58929e+01_rb /)\n      kbo(:, 4,26,11) = (/ &\n        & 0.31498e+01_rb,0.73218e+01_rb,0.85892e+01_rb,0.85405e+01_rb,0.63779e+01_rb /)\n      kbo(:, 5,26,11) = (/ &\n        & 0.33365e+01_rb,0.79095e+01_rb,0.93260e+01_rb,0.92876e+01_rb,0.68593e+01_rb /)\n      kbo(:, 1,27,11) = (/ &\n        & 0.24381e+01_rb,0.54719e+01_rb,0.63296e+01_rb,0.63699e+01_rb,0.47378e+01_rb /)\n      kbo(:, 2,27,11) = (/ &\n        & 0.25833e+01_rb,0.59706e+01_rb,0.69839e+01_rb,0.69809e+01_rb,0.52024e+01_rb /)\n      kbo(:, 3,27,11) = (/ &\n        & 0.27276e+01_rb,0.65032e+01_rb,0.76823e+01_rb,0.76623e+01_rb,0.56849e+01_rb /)\n      kbo(:, 4,27,11) = (/ &\n        & 0.28843e+01_rb,0.70768e+01_rb,0.84223e+01_rb,0.83973e+01_rb,0.61613e+01_rb /)\n      kbo(:, 5,27,11) = (/ &\n        & 0.30776e+01_rb,0.76837e+01_rb,0.91929e+01_rb,0.91871e+01_rb,0.66697e+01_rb /)\n      kbo(:, 1,28,11) = (/ &\n        & 0.22238e+01_rb,0.52366e+01_rb,0.61335e+01_rb,0.61574e+01_rb,0.45705e+01_rb /)\n      kbo(:, 2,28,11) = (/ &\n        & 0.23648e+01_rb,0.57451e+01_rb,0.68151e+01_rb,0.68266e+01_rb,0.50347e+01_rb /)\n      kbo(:, 3,28,11) = (/ &\n        & 0.25067e+01_rb,0.62980e+01_rb,0.75460e+01_rb,0.75548e+01_rb,0.55064e+01_rb /)\n      kbo(:, 4,28,11) = (/ &\n        & 0.26680e+01_rb,0.68930e+01_rb,0.83223e+01_rb,0.83308e+01_rb,0.60103e+01_rb /)\n      kbo(:, 5,28,11) = (/ &\n        & 0.28763e+01_rb,0.75234e+01_rb,0.91269e+01_rb,0.91547e+01_rb,0.65443e+01_rb /)\n      kbo(:, 1,29,11) = (/ &\n        & 0.20343e+01_rb,0.50540e+01_rb,0.60021e+01_rb,0.60360e+01_rb,0.44306e+01_rb /)\n      kbo(:, 2,29,11) = (/ &\n        & 0.21732e+01_rb,0.55785e+01_rb,0.67134e+01_rb,0.67544e+01_rb,0.48924e+01_rb /)\n      kbo(:, 3,29,11) = (/ &\n        & 0.23217e+01_rb,0.61554e+01_rb,0.74828e+01_rb,0.75217e+01_rb,0.53899e+01_rb /)\n      kbo(:, 4,29,11) = (/ &\n        & 0.24991e+01_rb,0.67727e+01_rb,0.82943e+01_rb,0.83341e+01_rb,0.59211e+01_rb /)\n      kbo(:, 5,29,11) = (/ &\n        & 0.27298e+01_rb,0.74309e+01_rb,0.91294e+01_rb,0.91877e+01_rb,0.64776e+01_rb /)\n      kbo(:, 1,30,11) = (/ &\n        & 0.18678e+01_rb,0.49203e+01_rb,0.59291e+01_rb,0.59875e+01_rb,0.43204e+01_rb /)\n      kbo(:, 2,30,11) = (/ &\n        & 0.20102e+01_rb,0.54667e+01_rb,0.66747e+01_rb,0.67430e+01_rb,0.48026e+01_rb /)\n      kbo(:, 3,30,11) = (/ &\n        & 0.21719e+01_rb,0.60682e+01_rb,0.74827e+01_rb,0.75477e+01_rb,0.53281e+01_rb /)\n      kbo(:, 4,30,11) = (/ &\n        & 0.23720e+01_rb,0.67126e+01_rb,0.83252e+01_rb,0.83910e+01_rb,0.58826e+01_rb /)\n      kbo(:, 5,30,11) = (/ &\n        & 0.26264e+01_rb,0.73977e+01_rb,0.91870e+01_rb,0.92723e+01_rb,0.64598e+01_rb /)\n      kbo(:, 1,31,11) = (/ &\n        & 0.17244e+01_rb,0.48370e+01_rb,0.59156e+01_rb,0.60001e+01_rb,0.42555e+01_rb /)\n      kbo(:, 2,31,11) = (/ &\n        & 0.18755e+01_rb,0.54107e+01_rb,0.66999e+01_rb,0.67904e+01_rb,0.47644e+01_rb /)\n      kbo(:, 3,31,11) = (/ &\n        & 0.20573e+01_rb,0.60363e+01_rb,0.75402e+01_rb,0.76274e+01_rb,0.53155e+01_rb /)\n      kbo(:, 4,31,11) = (/ &\n        & 0.22829e+01_rb,0.67094e+01_rb,0.84079e+01_rb,0.84962e+01_rb,0.58901e+01_rb /)\n      kbo(:, 5,31,11) = (/ &\n        & 0.25590e+01_rb,0.74195e+01_rb,0.92909e+01_rb,0.93994e+01_rb,0.64871e+01_rb /)\n      kbo(:, 1,32,11) = (/ &\n        & 0.16069e+01_rb,0.48030e+01_rb,0.59579e+01_rb,0.60639e+01_rb,0.42356e+01_rb /)\n      kbo(:, 2,32,11) = (/ &\n        & 0.17705e+01_rb,0.54037e+01_rb,0.67788e+01_rb,0.68874e+01_rb,0.47712e+01_rb /)\n      kbo(:, 3,32,11) = (/ &\n        & 0.19742e+01_rb,0.60574e+01_rb,0.76448e+01_rb,0.77491e+01_rb,0.53434e+01_rb /)\n      kbo(:, 4,32,11) = (/ &\n        & 0.22247e+01_rb,0.67560e+01_rb,0.85310e+01_rb,0.86385e+01_rb,0.59381e+01_rb /)\n      kbo(:, 5,32,11) = (/ &\n        & 0.25238e+01_rb,0.74880e+01_rb,0.94292e+01_rb,0.95570e+01_rb,0.65497e+01_rb /)\n      kbo(:, 1,33,11) = (/ &\n        & 0.15128e+01_rb,0.48140e+01_rb,0.60501e+01_rb,0.61714e+01_rb,0.42550e+01_rb /)\n      kbo(:, 2,33,11) = (/ &\n        & 0.16946e+01_rb,0.54417e+01_rb,0.69000e+01_rb,0.70212e+01_rb,0.48155e+01_rb /)\n      kbo(:, 3,33,11) = (/ &\n        & 0.19206e+01_rb,0.61213e+01_rb,0.77839e+01_rb,0.79020e+01_rb,0.54069e+01_rb /)\n      kbo(:, 4,33,11) = (/ &\n        & 0.21946e+01_rb,0.68422e+01_rb,0.86827e+01_rb,0.88075e+01_rb,0.60169e+01_rb /)\n      kbo(:, 5,33,11) = (/ &\n        & 0.25173e+01_rb,0.75913e+01_rb,0.95924e+01_rb,0.97373e+01_rb,0.66398e+01_rb /)\n      kbo(:, 1,34,11) = (/ &\n        & 0.14356e+01_rb,0.48418e+01_rb,0.61495e+01_rb,0.62828e+01_rb,0.42896e+01_rb /)\n      kbo(:, 2,34,11) = (/ &\n        & 0.16357e+01_rb,0.54935e+01_rb,0.70184e+01_rb,0.71516e+01_rb,0.48691e+01_rb /)\n      kbo(:, 3,34,11) = (/ &\n        & 0.18838e+01_rb,0.61957e+01_rb,0.79151e+01_rb,0.80457e+01_rb,0.54742e+01_rb /)\n      kbo(:, 4,34,11) = (/ &\n        & 0.21788e+01_rb,0.69325e+01_rb,0.88256e+01_rb,0.89643e+01_rb,0.60956e+01_rb /)\n      kbo(:, 5,34,11) = (/ &\n        & 0.25238e+01_rb,0.76930e+01_rb,0.97439e+01_rb,0.99021e+01_rb,0.67264e+01_rb /)\n      kbo(:, 1,35,11) = (/ &\n        & 0.13620e+01_rb,0.48400e+01_rb,0.61911e+01_rb,0.63341e+01_rb,0.42950e+01_rb /)\n      kbo(:, 2,35,11) = (/ &\n        & 0.15765e+01_rb,0.55077e+01_rb,0.70717e+01_rb,0.72149e+01_rb,0.48872e+01_rb /)\n      kbo(:, 3,35,11) = (/ &\n        & 0.18416e+01_rb,0.62238e+01_rb,0.79778e+01_rb,0.81173e+01_rb,0.55014e+01_rb /)\n      kbo(:, 4,35,11) = (/ &\n        & 0.21528e+01_rb,0.69694e+01_rb,0.88951e+01_rb,0.90430e+01_rb,0.61304e+01_rb /)\n      kbo(:, 5,35,11) = (/ &\n        & 0.25135e+01_rb,0.77370e+01_rb,0.98191e+01_rb,0.99865e+01_rb,0.67662e+01_rb /)\n      kbo(:, 1,36,11) = (/ &\n        & 0.12836e+01_rb,0.47892e+01_rb,0.61549e+01_rb,0.63050e+01_rb,0.42540e+01_rb /)\n      kbo(:, 2,36,11) = (/ &\n        & 0.15070e+01_rb,0.54649e+01_rb,0.70416e+01_rb,0.71923e+01_rb,0.48536e+01_rb /)\n      kbo(:, 3,36,11) = (/ &\n        & 0.17830e+01_rb,0.61872e+01_rb,0.79531e+01_rb,0.80994e+01_rb,0.54734e+01_rb /)\n      kbo(:, 4,36,11) = (/ &\n        & 0.21055e+01_rb,0.69369e+01_rb,0.88745e+01_rb,0.90288e+01_rb,0.61066e+01_rb /)\n      kbo(:, 5,36,11) = (/ &\n        & 0.24754e+01_rb,0.77090e+01_rb,0.98023e+01_rb,0.99759e+01_rb,0.67459e+01_rb /)\n      kbo(:, 1,37,11) = (/ &\n        & 0.11878e+01_rb,0.46541e+01_rb,0.59975e+01_rb,0.61531e+01_rb,0.41357e+01_rb /)\n      kbo(:, 2,37,11) = (/ &\n        & 0.14114e+01_rb,0.53279e+01_rb,0.68836e+01_rb,0.70407e+01_rb,0.47366e+01_rb /)\n      kbo(:, 3,37,11) = (/ &\n        & 0.16907e+01_rb,0.60488e+01_rb,0.77961e+01_rb,0.79492e+01_rb,0.53587e+01_rb /)\n      kbo(:, 4,37,11) = (/ &\n        & 0.20171e+01_rb,0.67987e+01_rb,0.87214e+01_rb,0.88782e+01_rb,0.59931e+01_rb /)\n      kbo(:, 5,37,11) = (/ &\n        & 0.23879e+01_rb,0.75721e+01_rb,0.96505e+01_rb,0.98263e+01_rb,0.66346e+01_rb /)\n      kbo(:, 1,38,11) = (/ &\n        & 0.11019e+01_rb,0.45241e+01_rb,0.58411e+01_rb,0.60015e+01_rb,0.40206e+01_rb /)\n      kbo(:, 2,38,11) = (/ &\n        & 0.13240e+01_rb,0.51938e+01_rb,0.67248e+01_rb,0.68881e+01_rb,0.46215e+01_rb /)\n      kbo(:, 3,38,11) = (/ &\n        & 0.16050e+01_rb,0.59127e+01_rb,0.76377e+01_rb,0.77969e+01_rb,0.52444e+01_rb /)\n      kbo(:, 4,38,11) = (/ &\n        & 0.19344e+01_rb,0.66614e+01_rb,0.85656e+01_rb,0.87241e+01_rb,0.58797e+01_rb /)\n      kbo(:, 5,38,11) = (/ &\n        & 0.23053e+01_rb,0.74352e+01_rb,0.94961e+01_rb,0.96730e+01_rb,0.65232e+01_rb /)\n      kbo(:, 1,39,11) = (/ &\n        & 0.10261e+01_rb,0.44035e+01_rb,0.56925e+01_rb,0.58571e+01_rb,0.39130e+01_rb /)\n      kbo(:, 2,39,11) = (/ &\n        & 0.12458e+01_rb,0.50694e+01_rb,0.65735e+01_rb,0.67411e+01_rb,0.45130e+01_rb /)\n      kbo(:, 3,39,11) = (/ &\n        & 0.15281e+01_rb,0.57844e+01_rb,0.74853e+01_rb,0.76497e+01_rb,0.51353e+01_rb /)\n      kbo(:, 4,39,11) = (/ &\n        & 0.18590e+01_rb,0.65310e+01_rb,0.84139e+01_rb,0.85752e+01_rb,0.57711e+01_rb /)\n      kbo(:, 5,39,11) = (/ &\n        & 0.22296e+01_rb,0.73031e+01_rb,0.93461e+01_rb,0.95233e+01_rb,0.64155e+01_rb /)\n      kbo(:, 1,40,11) = (/ &\n        & 0.94020e+00_rb,0.42252e+01_rb,0.54618e+01_rb,0.56305e+01_rb,0.37514e+01_rb /)\n      kbo(:, 2,40,11) = (/ &\n        & 0.11510e+01_rb,0.48808e+01_rb,0.63359e+01_rb,0.65051e+01_rb,0.43464e+01_rb /)\n      kbo(:, 3,40,11) = (/ &\n        & 0.14267e+01_rb,0.55865e+01_rb,0.72429e+01_rb,0.74116e+01_rb,0.49659e+01_rb /)\n      kbo(:, 4,40,11) = (/ &\n        & 0.17534e+01_rb,0.63284e+01_rb,0.81706e+01_rb,0.83346e+01_rb,0.56004e+01_rb /)\n      kbo(:, 5,40,11) = (/ &\n        & 0.21196e+01_rb,0.70954e+01_rb,0.91038e+01_rb,0.92790e+01_rb,0.62443e+01_rb /)\n      kbo(:, 1,41,11) = (/ &\n        & 0.86129e+00_rb,0.40457e+01_rb,0.52264e+01_rb,0.53976e+01_rb,0.35879e+01_rb /)\n      kbo(:, 2,41,11) = (/ &\n        & 0.10633e+01_rb,0.46915e+01_rb,0.60924e+01_rb,0.62635e+01_rb,0.41768e+01_rb /)\n      kbo(:, 3,41,11) = (/ &\n        & 0.13283e+01_rb,0.53845e+01_rb,0.69926e+01_rb,0.71649e+01_rb,0.47921e+01_rb /)\n      kbo(:, 4,41,11) = (/ &\n        & 0.16485e+01_rb,0.61201e+01_rb,0.79175e+01_rb,0.80844e+01_rb,0.54240e+01_rb /)\n      kbo(:, 5,41,11) = (/ &\n        & 0.20093e+01_rb,0.68812e+01_rb,0.88522e+01_rb,0.90249e+01_rb,0.60668e+01_rb /)\n      kbo(:, 1,42,11) = (/ &\n        & 0.79123e+00_rb,0.38735e+01_rb,0.49960e+01_rb,0.51699e+01_rb,0.34287e+01_rb /)\n      kbo(:, 2,42,11) = (/ &\n        & 0.98295e+00_rb,0.45072e+01_rb,0.58533e+01_rb,0.60254e+01_rb,0.40109e+01_rb /)\n      kbo(:, 3,42,11) = (/ &\n        & 0.12364e+01_rb,0.51876e+01_rb,0.67459e+01_rb,0.69214e+01_rb,0.46212e+01_rb /)\n      kbo(:, 4,42,11) = (/ &\n        & 0.15484e+01_rb,0.59150e+01_rb,0.76665e+01_rb,0.78373e+01_rb,0.52503e+01_rb /)\n      kbo(:, 5,42,11) = (/ &\n        & 0.19026e+01_rb,0.66716e+01_rb,0.86018e+01_rb,0.87728e+01_rb,0.58915e+01_rb /)\n      kbo(:, 1,43,11) = (/ &\n        & 0.71984e+00_rb,0.36729e+01_rb,0.47235e+01_rb,0.48975e+01_rb,0.32397e+01_rb /)\n      kbo(:, 2,43,11) = (/ &\n        & 0.89808e+00_rb,0.42916e+01_rb,0.55697e+01_rb,0.57443e+01_rb,0.38153e+01_rb /)\n      kbo(:, 3,43,11) = (/ &\n        & 0.11360e+01_rb,0.49574e+01_rb,0.64519e+01_rb,0.66289e+01_rb,0.44184e+01_rb /)\n      kbo(:, 4,43,11) = (/ &\n        & 0.14345e+01_rb,0.56728e+01_rb,0.73660e+01_rb,0.75410e+01_rb,0.50437e+01_rb /)\n      kbo(:, 5,43,11) = (/ &\n        & 0.17793e+01_rb,0.64228e+01_rb,0.82999e+01_rb,0.84705e+01_rb,0.56823e+01_rb /)\n      kbo(:, 1,44,11) = (/ &\n        & 0.65285e+00_rb,0.34667e+01_rb,0.44372e+01_rb,0.46082e+01_rb,0.30399e+01_rb /)\n      kbo(:, 2,44,11) = (/ &\n        & 0.81657e+00_rb,0.40674e+01_rb,0.52701e+01_rb,0.54466e+01_rb,0.36094e+01_rb /)\n      kbo(:, 3,44,11) = (/ &\n        & 0.10370e+01_rb,0.47171e+01_rb,0.61405e+01_rb,0.63175e+01_rb,0.42038e+01_rb /)\n      kbo(:, 4,44,11) = (/ &\n        & 0.13194e+01_rb,0.54184e+01_rb,0.70473e+01_rb,0.72248e+01_rb,0.48237e+01_rb /)\n      kbo(:, 5,44,11) = (/ &\n        & 0.16514e+01_rb,0.61584e+01_rb,0.79760e+01_rb,0.81477e+01_rb,0.54581e+01_rb /)\n      kbo(:, 1,45,11) = (/ &\n        & 0.59324e+00_rb,0.32687e+01_rb,0.41610e+01_rb,0.43270e+01_rb,0.28437e+01_rb /)\n      kbo(:, 2,45,11) = (/ &\n        & 0.74292e+00_rb,0.38502e+01_rb,0.49754e+01_rb,0.51525e+01_rb,0.34081e+01_rb /)\n      kbo(:, 3,45,11) = (/ &\n        & 0.94606e+00_rb,0.44838e+01_rb,0.58347e+01_rb,0.60112e+01_rb,0.39932e+01_rb /)\n      kbo(:, 4,45,11) = (/ &\n        & 0.12103e+01_rb,0.51691e+01_rb,0.67312e+01_rb,0.69113e+01_rb,0.46063e+01_rb /)\n      kbo(:, 5,45,11) = (/ &\n        & 0.15283e+01_rb,0.58970e+01_rb,0.76529e+01_rb,0.78283e+01_rb,0.52365e+01_rb /)\n      kbo(:, 1,46,11) = (/ &\n        & 0.53665e+00_rb,0.30665e+01_rb,0.38788e+01_rb,0.40344e+01_rb,0.26396e+01_rb /)\n      kbo(:, 2,46,11) = (/ &\n        & 0.67326e+00_rb,0.36275e+01_rb,0.46685e+01_rb,0.48445e+01_rb,0.31970e+01_rb /)\n      kbo(:, 3,46,11) = (/ &\n        & 0.85964e+00_rb,0.42450e+01_rb,0.55161e+01_rb,0.56940e+01_rb,0.37742e+01_rb /)\n      kbo(:, 4,46,11) = (/ &\n        & 0.11026e+01_rb,0.49112e+01_rb,0.63992e+01_rb,0.65795e+01_rb,0.43785e+01_rb /)\n      kbo(:, 5,46,11) = (/ &\n        & 0.14030e+01_rb,0.56247e+01_rb,0.73128e+01_rb,0.74918e+01_rb,0.50037e+01_rb /)\n      kbo(:, 1,47,11) = (/ &\n        & 0.47965e+00_rb,0.28512e+01_rb,0.35773e+01_rb,0.37190e+01_rb,0.24179e+01_rb /)\n      kbo(:, 2,47,11) = (/ &\n        & 0.60499e+00_rb,0.33895e+01_rb,0.43353e+01_rb,0.45070e+01_rb,0.29653e+01_rb /)\n      kbo(:, 3,47,11) = (/ &\n        & 0.77211e+00_rb,0.39857e+01_rb,0.51656e+01_rb,0.53439e+01_rb,0.35346e+01_rb /)\n      kbo(:, 4,47,11) = (/ &\n        & 0.99280e+00_rb,0.46320e+01_rb,0.60346e+01_rb,0.62138e+01_rb,0.41278e+01_rb /)\n      kbo(:, 5,47,11) = (/ &\n        & 0.12711e+01_rb,0.53272e+01_rb,0.69377e+01_rb,0.71189e+01_rb,0.47464e+01_rb /)\n      kbo(:, 1,48,11) = (/ &\n        & 0.42651e+00_rb,0.26445e+01_rb,0.32894e+01_rb,0.34148e+01_rb,0.22033e+01_rb /)\n      kbo(:, 2,48,11) = (/ &\n        & 0.54388e+00_rb,0.31611e+01_rb,0.40161e+01_rb,0.41791e+01_rb,0.27373e+01_rb /)\n      kbo(:, 3,48,11) = (/ &\n        & 0.69368e+00_rb,0.37347e+01_rb,0.48206e+01_rb,0.49989e+01_rb,0.32997e+01_rb /)\n      kbo(:, 4,48,11) = (/ &\n        & 0.89279e+00_rb,0.43620e+01_rb,0.56767e+01_rb,0.58554e+01_rb,0.38822e+01_rb /)\n      kbo(:, 5,48,11) = (/ &\n        & 0.11484e+01_rb,0.50369e+01_rb,0.65668e+01_rb,0.67495e+01_rb,0.44918e+01_rb /)\n      kbo(:, 1,49,11) = (/ &\n        & 0.37713e+00_rb,0.24439e+01_rb,0.30160e+01_rb,0.31206e+01_rb,0.19976e+01_rb /)\n      kbo(:, 2,49,11) = (/ &\n        & 0.48766e+00_rb,0.29434e+01_rb,0.37104e+01_rb,0.38599e+01_rb,0.25143e+01_rb /)\n      kbo(:, 3,49,11) = (/ &\n        & 0.62407e+00_rb,0.34939e+01_rb,0.44847e+01_rb,0.46596e+01_rb,0.30680e+01_rb /)\n      kbo(:, 4,49,11) = (/ &\n        & 0.80298e+00_rb,0.41006e+01_rb,0.53255e+01_rb,0.55049e+01_rb,0.36413e+01_rb /)\n      kbo(:, 5,49,11) = (/ &\n        & 0.10353e+01_rb,0.47554e+01_rb,0.62010e+01_rb,0.63820e+01_rb,0.42407e+01_rb /)\n      kbo(:, 1,50,11) = (/ &\n        & 0.33334e+00_rb,0.22573e+01_rb,0.27730e+01_rb,0.28537e+01_rb,0.18141e+01_rb /)\n      kbo(:, 2,50,11) = (/ &\n        & 0.43824e+00_rb,0.27477e+01_rb,0.34359e+01_rb,0.35712e+01_rb,0.23112e+01_rb /)\n      kbo(:, 3,50,11) = (/ &\n        & 0.56555e+00_rb,0.32767e+01_rb,0.41807e+01_rb,0.43497e+01_rb,0.28540e+01_rb /)\n      kbo(:, 4,50,11) = (/ &\n        & 0.72662e+00_rb,0.38631e+01_rb,0.50003e+01_rb,0.51798e+01_rb,0.34206e+01_rb /)\n      kbo(:, 5,50,11) = (/ &\n        & 0.93811e+00_rb,0.44998e+01_rb,0.58635e+01_rb,0.60433e+01_rb,0.40092e+01_rb /)\n      kbo(:, 1,51,11) = (/ &\n        & 0.29344e+00_rb,0.20792e+01_rb,0.25493e+01_rb,0.26045e+01_rb,0.16447e+01_rb /)\n      kbo(:, 2,51,11) = (/ &\n        & 0.39320e+00_rb,0.25633e+01_rb,0.31811e+01_rb,0.32996e+01_rb,0.21202e+01_rb /)\n      kbo(:, 3,51,11) = (/ &\n        & 0.51335e+00_rb,0.30739e+01_rb,0.38968e+01_rb,0.40554e+01_rb,0.26493e+01_rb /)\n      kbo(:, 4,51,11) = (/ &\n        & 0.65991e+00_rb,0.36396e+01_rb,0.46910e+01_rb,0.48692e+01_rb,0.32095e+01_rb /)\n      kbo(:, 5,51,11) = (/ &\n        & 0.85305e+00_rb,0.42602e+01_rb,0.55428e+01_rb,0.57227e+01_rb,0.37890e+01_rb /)\n      kbo(:, 1,52,11) = (/ &\n        & 0.25634e+00_rb,0.19065e+01_rb,0.23373e+01_rb,0.23675e+01_rb,0.14849e+01_rb /)\n      kbo(:, 2,52,11) = (/ &\n        & 0.35085e+00_rb,0.23832e+01_rb,0.29380e+01_rb,0.30363e+01_rb,0.19379e+01_rb /)\n      kbo(:, 3,52,11) = (/ &\n        & 0.46463e+00_rb,0.28806e+01_rb,0.36245e+01_rb,0.37705e+01_rb,0.24499e+01_rb /)\n      kbo(:, 4,52,11) = (/ &\n        & 0.60014e+00_rb,0.34247e+01_rb,0.43901e+01_rb,0.45644e+01_rb,0.30013e+01_rb /)\n      kbo(:, 5,52,11) = (/ &\n        & 0.77502e+00_rb,0.40268e+01_rb,0.52264e+01_rb,0.54064e+01_rb,0.35729e+01_rb /)\n      kbo(:, 1,53,11) = (/ &\n        & 0.22198e+00_rb,0.17382e+01_rb,0.21355e+01_rb,0.21443e+01_rb,0.13321e+01_rb /)\n      kbo(:, 2,53,11) = (/ &\n        & 0.31088e+00_rb,0.22037e+01_rb,0.27070e+01_rb,0.27809e+01_rb,0.17631e+01_rb /)\n      kbo(:, 3,53,11) = (/ &\n        & 0.41868e+00_rb,0.26937e+01_rb,0.33628e+01_rb,0.34937e+01_rb,0.22551e+01_rb /)\n      kbo(:, 4,53,11) = (/ &\n        & 0.54590e+00_rb,0.32172e+01_rb,0.40994e+01_rb,0.42669e+01_rb,0.27950e+01_rb /)\n      kbo(:, 5,53,11) = (/ &\n        & 0.70382e+00_rb,0.37993e+01_rb,0.49134e+01_rb,0.50934e+01_rb,0.33609e+01_rb /)\n      kbo(:, 1,54,11) = (/ &\n        & 0.19279e+00_rb,0.15884e+01_rb,0.19576e+01_rb,0.19516e+01_rb,0.11991e+01_rb /)\n      kbo(:, 2,54,11) = (/ &\n        & 0.27614e+00_rb,0.20423e+01_rb,0.25053e+01_rb,0.25559e+01_rb,0.16106e+01_rb /)\n      kbo(:, 3,54,11) = (/ &\n        & 0.37900e+00_rb,0.25264e+01_rb,0.31323e+01_rb,0.32473e+01_rb,0.20825e+01_rb /)\n      kbo(:, 4,54,11) = (/ &\n        & 0.49954e+00_rb,0.30344e+01_rb,0.38425e+01_rb,0.39994e+01_rb,0.26090e+01_rb /)\n      kbo(:, 5,54,11) = (/ &\n        & 0.64483e+00_rb,0.35967e+01_rb,0.46320e+01_rb,0.48104e+01_rb,0.31683e+01_rb /)\n      kbo(:, 1,55,11) = (/ &\n        & 0.16752e+00_rb,0.14506e+01_rb,0.17924e+01_rb,0.17780e+01_rb,0.10766e+01_rb /)\n      kbo(:, 2,55,11) = (/ &\n        & 0.24546e+00_rb,0.18924e+01_rb,0.23215e+01_rb,0.23502e+01_rb,0.14718e+01_rb /)\n      kbo(:, 3,55,11) = (/ &\n        & 0.34282e+00_rb,0.23686e+01_rb,0.29203e+01_rb,0.30171e+01_rb,0.19238e+01_rb /)\n      kbo(:, 4,55,11) = (/ &\n        & 0.45751e+00_rb,0.28657e+01_rb,0.36048e+01_rb,0.37504e+01_rb,0.24347e+01_rb /)\n      kbo(:, 5,55,11) = (/ &\n        & 0.59345e+00_rb,0.34091e+01_rb,0.43692e+01_rb,0.45436e+01_rb,0.29860e+01_rb /)\n      kbo(:, 1,56,11) = (/ &\n        & 0.14442e+00_rb,0.13191e+01_rb,0.16307e+01_rb,0.16158e+01_rb,0.95966e+00_rb /)\n      kbo(:, 2,56,11) = (/ &\n        & 0.21629e+00_rb,0.17456e+01_rb,0.21454e+01_rb,0.21553e+01_rb,0.13384e+01_rb /)\n      kbo(:, 3,56,11) = (/ &\n        & 0.30838e+00_rb,0.22117e+01_rb,0.27184e+01_rb,0.27939e+01_rb,0.17710e+01_rb /)\n      kbo(:, 4,56,11) = (/ &\n        & 0.41780e+00_rb,0.27024e+01_rb,0.33761e+01_rb,0.35083e+01_rb,0.22647e+01_rb /)\n      kbo(:, 5,56,11) = (/ &\n        & 0.54633e+00_rb,0.32277e+01_rb,0.41153e+01_rb,0.42835e+01_rb,0.28057e+01_rb /)\n      kbo(:, 1,57,11) = (/ &\n        & 0.12369e+00_rb,0.11942e+01_rb,0.14751e+01_rb,0.14660e+01_rb,0.84794e+00_rb /)\n      kbo(:, 2,57,11) = (/ &\n        & 0.18943e+00_rb,0.16025e+01_rb,0.19752e+01_rb,0.19706e+01_rb,0.12104e+01_rb /)\n      kbo(:, 3,57,11) = (/ &\n        & 0.27580e+00_rb,0.20577e+01_rb,0.25253e+01_rb,0.25785e+01_rb,0.16249e+01_rb /)\n      kbo(:, 4,57,11) = (/ &\n        & 0.38015e+00_rb,0.25425e+01_rb,0.31554e+01_rb,0.32724e+01_rb,0.20995e+01_rb /)\n      kbo(:, 5,57,11) = (/ &\n        & 0.50220e+00_rb,0.30528e+01_rb,0.38694e+01_rb,0.40275e+01_rb,0.26279e+01_rb /)\n      kbo(:, 1,58,11) = (/ &\n        & 0.10619e+00_rb,0.10815e+01_rb,0.13338e+01_rb,0.13340e+01_rb,0.74924e+00_rb /)\n      kbo(:, 2,58,11) = (/ &\n        & 0.16586e+00_rb,0.14713e+01_rb,0.18183e+01_rb,0.18047e+01_rb,0.10933e+01_rb /)\n      kbo(:, 3,58,11) = (/ &\n        & 0.24668e+00_rb,0.19150e+01_rb,0.23498e+01_rb,0.23824e+01_rb,0.14931e+01_rb /)\n      kbo(:, 4,58,11) = (/ &\n        & 0.34613e+00_rb,0.23936e+01_rb,0.29542e+01_rb,0.30545e+01_rb,0.19489e+01_rb /)\n      kbo(:, 5,58,11) = (/ &\n        & 0.46251e+00_rb,0.28928e+01_rb,0.36439e+01_rb,0.37914e+01_rb,0.24628e+01_rb /)\n      kbo(:, 1,59,11) = (/ &\n        & 0.98781e-01_rb,0.10374e+01_rb,0.12790e+01_rb,0.12834e+01_rb,0.71091e+00_rb /)\n      kbo(:, 2,59,11) = (/ &\n        & 0.15643e+00_rb,0.14199e+01_rb,0.17560e+01_rb,0.17406e+01_rb,0.10475e+01_rb /)\n      kbo(:, 3,59,11) = (/ &\n        & 0.23512e+00_rb,0.18585e+01_rb,0.22815e+01_rb,0.23061e+01_rb,0.14408e+01_rb /)\n      kbo(:, 4,59,11) = (/ &\n        & 0.33250e+00_rb,0.23338e+01_rb,0.28755e+01_rb,0.29686e+01_rb,0.18898e+01_rb /)\n      kbo(:, 5,59,11) = (/ &\n        & 0.44697e+00_rb,0.28298e+01_rb,0.35555e+01_rb,0.36984e+01_rb,0.23975e+01_rb /)\n      kbo(:, 1,13,12) = (/ &\n        & 0.30998e+02_rb,0.37385e+02_rb,0.40609e+02_rb,0.38100e+02_rb,0.30845e+02_rb /)\n      kbo(:, 2,13,12) = (/ &\n        & 0.30490e+02_rb,0.37042e+02_rb,0.40582e+02_rb,0.38272e+02_rb,0.31245e+02_rb /)\n      kbo(:, 3,13,12) = (/ &\n        & 0.29985e+02_rb,0.36701e+02_rb,0.40520e+02_rb,0.38445e+02_rb,0.31621e+02_rb /)\n      kbo(:, 4,13,12) = (/ &\n        & 0.29490e+02_rb,0.36329e+02_rb,0.40415e+02_rb,0.38594e+02_rb,0.32000e+02_rb /)\n      kbo(:, 5,13,12) = (/ &\n        & 0.29015e+02_rb,0.35959e+02_rb,0.40312e+02_rb,0.38750e+02_rb,0.32433e+02_rb /)\n      kbo(:, 1,14,12) = (/ &\n        & 0.27110e+02_rb,0.35184e+02_rb,0.38617e+02_rb,0.36399e+02_rb,0.28635e+02_rb /)\n      kbo(:, 2,14,12) = (/ &\n        & 0.26641e+02_rb,0.34930e+02_rb,0.38606e+02_rb,0.36649e+02_rb,0.29079e+02_rb /)\n      kbo(:, 3,14,12) = (/ &\n        & 0.26184e+02_rb,0.34642e+02_rb,0.38568e+02_rb,0.36926e+02_rb,0.29498e+02_rb /)\n      kbo(:, 4,14,12) = (/ &\n        & 0.25751e+02_rb,0.34348e+02_rb,0.38555e+02_rb,0.37188e+02_rb,0.29949e+02_rb /)\n      kbo(:, 5,14,12) = (/ &\n        & 0.25340e+02_rb,0.34077e+02_rb,0.38568e+02_rb,0.37453e+02_rb,0.30433e+02_rb /)\n      kbo(:, 1,15,12) = (/ &\n        & 0.23379e+02_rb,0.32658e+02_rb,0.36083e+02_rb,0.34396e+02_rb,0.26632e+02_rb /)\n      kbo(:, 2,15,12) = (/ &\n        & 0.22961e+02_rb,0.32462e+02_rb,0.36143e+02_rb,0.34739e+02_rb,0.27099e+02_rb /)\n      kbo(:, 3,15,12) = (/ &\n        & 0.22574e+02_rb,0.32277e+02_rb,0.36234e+02_rb,0.35089e+02_rb,0.27554e+02_rb /)\n      kbo(:, 4,15,12) = (/ &\n        & 0.22226e+02_rb,0.32107e+02_rb,0.36368e+02_rb,0.35457e+02_rb,0.28061e+02_rb /)\n      kbo(:, 5,15,12) = (/ &\n        & 0.22052e+02_rb,0.31945e+02_rb,0.36473e+02_rb,0.35860e+02_rb,0.28623e+02_rb /)\n      kbo(:, 1,16,12) = (/ &\n        & 0.19977e+02_rb,0.29953e+02_rb,0.33281e+02_rb,0.32282e+02_rb,0.24730e+02_rb /)\n      kbo(:, 2,16,12) = (/ &\n        & 0.19633e+02_rb,0.29859e+02_rb,0.33454e+02_rb,0.32701e+02_rb,0.25245e+02_rb /)\n      kbo(:, 3,16,12) = (/ &\n        & 0.19340e+02_rb,0.29766e+02_rb,0.33693e+02_rb,0.33152e+02_rb,0.25800e+02_rb /)\n      kbo(:, 4,16,12) = (/ &\n        & 0.19247e+02_rb,0.29689e+02_rb,0.33933e+02_rb,0.33616e+02_rb,0.26378e+02_rb /)\n      kbo(:, 5,16,12) = (/ &\n        & 0.19403e+02_rb,0.29623e+02_rb,0.34160e+02_rb,0.34111e+02_rb,0.26924e+02_rb /)\n      kbo(:, 1,17,12) = (/ &\n        & 0.17051e+02_rb,0.27143e+02_rb,0.30473e+02_rb,0.30161e+02_rb,0.22931e+02_rb /)\n      kbo(:, 2,17,12) = (/ &\n        & 0.16797e+02_rb,0.27123e+02_rb,0.30776e+02_rb,0.30670e+02_rb,0.23518e+02_rb /)\n      kbo(:, 3,17,12) = (/ &\n        & 0.16741e+02_rb,0.27141e+02_rb,0.31121e+02_rb,0.31186e+02_rb,0.24127e+02_rb /)\n      kbo(:, 4,17,12) = (/ &\n        & 0.16948e+02_rb,0.27189e+02_rb,0.31472e+02_rb,0.31736e+02_rb,0.24729e+02_rb /)\n      kbo(:, 5,17,12) = (/ &\n        & 0.17485e+02_rb,0.27288e+02_rb,0.31858e+02_rb,0.32324e+02_rb,0.25297e+02_rb /)\n      kbo(:, 1,18,12) = (/ &\n        & 0.14597e+02_rb,0.24342e+02_rb,0.27826e+02_rb,0.28130e+02_rb,0.21245e+02_rb /)\n      kbo(:, 2,18,12) = (/ &\n        & 0.14547e+02_rb,0.24446e+02_rb,0.28237e+02_rb,0.28704e+02_rb,0.21885e+02_rb /)\n      kbo(:, 3,18,12) = (/ &\n        & 0.14765e+02_rb,0.24583e+02_rb,0.28672e+02_rb,0.29288e+02_rb,0.22535e+02_rb /)\n      kbo(:, 4,18,12) = (/ &\n        & 0.15315e+02_rb,0.24794e+02_rb,0.29147e+02_rb,0.29934e+02_rb,0.23159e+02_rb /)\n      kbo(:, 5,18,12) = (/ &\n        & 0.16067e+02_rb,0.25143e+02_rb,0.29634e+02_rb,0.30628e+02_rb,0.23749e+02_rb /)\n      kbo(:, 1,19,12) = (/ &\n        & 0.12640e+02_rb,0.21753e+02_rb,0.25384e+02_rb,0.26151e+02_rb,0.19661e+02_rb /)\n      kbo(:, 2,19,12) = (/ &\n        & 0.12835e+02_rb,0.21949e+02_rb,0.25878e+02_rb,0.26810e+02_rb,0.20358e+02_rb /)\n      kbo(:, 3,19,12) = (/ &\n        & 0.13356e+02_rb,0.22229e+02_rb,0.26410e+02_rb,0.27515e+02_rb,0.21037e+02_rb /)\n      kbo(:, 4,19,12) = (/ &\n        & 0.14056e+02_rb,0.22664e+02_rb,0.26964e+02_rb,0.28265e+02_rb,0.21685e+02_rb /)\n      kbo(:, 5,19,12) = (/ &\n        & 0.14855e+02_rb,0.23244e+02_rb,0.27571e+02_rb,0.29046e+02_rb,0.22336e+02_rb /)\n      kbo(:, 1,20,12) = (/ &\n        & 0.11082e+02_rb,0.19491e+02_rb,0.23194e+02_rb,0.24313e+02_rb,0.18232e+02_rb /)\n      kbo(:, 2,20,12) = (/ &\n        & 0.11562e+02_rb,0.19787e+02_rb,0.23755e+02_rb,0.25073e+02_rb,0.18946e+02_rb /)\n      kbo(:, 3,20,12) = (/ &\n        & 0.12224e+02_rb,0.20238e+02_rb,0.24350e+02_rb,0.25880e+02_rb,0.19650e+02_rb /)\n      kbo(:, 4,20,12) = (/ &\n        & 0.12987e+02_rb,0.20868e+02_rb,0.25012e+02_rb,0.26726e+02_rb,0.20347e+02_rb /)\n      kbo(:, 5,20,12) = (/ &\n        & 0.13788e+02_rb,0.21712e+02_rb,0.25741e+02_rb,0.27588e+02_rb,0.21074e+02_rb /)\n      kbo(:, 1,21,12) = (/ &\n        & 0.98833e+01_rb,0.17574e+02_rb,0.21209e+02_rb,0.22623e+02_rb,0.16925e+02_rb /)\n      kbo(:, 2,21,12) = (/ &\n        & 0.10489e+02_rb,0.18010e+02_rb,0.21858e+02_rb,0.23471e+02_rb,0.17666e+02_rb /)\n      kbo(:, 3,21,12) = (/ &\n        & 0.11209e+02_rb,0.18622e+02_rb,0.22555e+02_rb,0.24382e+02_rb,0.18394e+02_rb /)\n      kbo(:, 4,21,12) = (/ &\n        & 0.11974e+02_rb,0.19474e+02_rb,0.23320e+02_rb,0.25315e+02_rb,0.19156e+02_rb /)\n      kbo(:, 5,21,12) = (/ &\n        & 0.12743e+02_rb,0.20530e+02_rb,0.24213e+02_rb,0.26280e+02_rb,0.19957e+02_rb /)\n      kbo(:, 1,22,12) = (/ &\n        & 0.89432e+01_rb,0.16023e+02_rb,0.19521e+02_rb,0.21142e+02_rb,0.15785e+02_rb /)\n      kbo(:, 2,22,12) = (/ &\n        & 0.96012e+01_rb,0.16615e+02_rb,0.20251e+02_rb,0.22105e+02_rb,0.16565e+02_rb /)\n      kbo(:, 3,22,12) = (/ &\n        & 0.10308e+02_rb,0.17429e+02_rb,0.21053e+02_rb,0.23102e+02_rb,0.17352e+02_rb /)\n      kbo(:, 4,22,12) = (/ &\n        & 0.11034e+02_rb,0.18474e+02_rb,0.21986e+02_rb,0.24140e+02_rb,0.18184e+02_rb /)\n      kbo(:, 5,22,12) = (/ &\n        & 0.11779e+02_rb,0.19675e+02_rb,0.23025e+02_rb,0.25198e+02_rb,0.19053e+02_rb /)\n      kbo(:, 1,23,12) = (/ &\n        & 0.81558e+01_rb,0.14793e+02_rb,0.18088e+02_rb,0.19855e+02_rb,0.14800e+02_rb /)\n      kbo(:, 2,23,12) = (/ &\n        & 0.87957e+01_rb,0.15543e+02_rb,0.18895e+02_rb,0.20923e+02_rb,0.15621e+02_rb /)\n      kbo(:, 3,23,12) = (/ &\n        & 0.94593e+01_rb,0.16540e+02_rb,0.19849e+02_rb,0.22025e+02_rb,0.16480e+02_rb /)\n      kbo(:, 4,23,12) = (/ &\n        & 0.10153e+02_rb,0.17706e+02_rb,0.20923e+02_rb,0.23160e+02_rb,0.17388e+02_rb /)\n      kbo(:, 5,23,12) = (/ &\n        & 0.10876e+02_rb,0.18993e+02_rb,0.22113e+02_rb,0.24310e+02_rb,0.18322e+02_rb /)\n      kbo(:, 1,24,12) = (/ &\n        & 0.74526e+01_rb,0.13830e+02_rb,0.16894e+02_rb,0.18769e+02_rb,0.13959e+02_rb /)\n      kbo(:, 2,24,12) = (/ &\n        & 0.80517e+01_rb,0.14766e+02_rb,0.17833e+02_rb,0.19936e+02_rb,0.14836e+02_rb /)\n      kbo(:, 3,24,12) = (/ &\n        & 0.86841e+01_rb,0.15873e+02_rb,0.18916e+02_rb,0.21150e+02_rb,0.15773e+02_rb /)\n      kbo(:, 4,24,12) = (/ &\n        & 0.93535e+01_rb,0.17122e+02_rb,0.20131e+02_rb,0.22383e+02_rb,0.16742e+02_rb /)\n      kbo(:, 5,24,12) = (/ &\n        & 0.10068e+02_rb,0.18482e+02_rb,0.21482e+02_rb,0.23634e+02_rb,0.17753e+02_rb /)\n      kbo(:, 1,25,12) = (/ &\n        & 0.68105e+01_rb,0.13122e+02_rb,0.15953e+02_rb,0.17890e+02_rb,0.13264e+02_rb /)\n      kbo(:, 2,25,12) = (/ &\n        & 0.73796e+01_rb,0.14193e+02_rb,0.17028e+02_rb,0.19160e+02_rb,0.14211e+02_rb /)\n      kbo(:, 3,25,12) = (/ &\n        & 0.79883e+01_rb,0.15386e+02_rb,0.18237e+02_rb,0.20473e+02_rb,0.15219e+02_rb /)\n      kbo(:, 4,25,12) = (/ &\n        & 0.86473e+01_rb,0.16702e+02_rb,0.19605e+02_rb,0.21810e+02_rb,0.16257e+02_rb /)\n      kbo(:, 5,25,12) = (/ &\n        & 0.93513e+01_rb,0.18139e+02_rb,0.21087e+02_rb,0.23158e+02_rb,0.17339e+02_rb /)\n      kbo(:, 1,26,12) = (/ &\n        & 0.62530e+01_rb,0.12619e+02_rb,0.15260e+02_rb,0.17241e+02_rb,0.12729e+02_rb /)\n      kbo(:, 2,26,12) = (/ &\n        & 0.67955e+01_rb,0.13786e+02_rb,0.16460e+02_rb,0.18602e+02_rb,0.13751e+02_rb /)\n      kbo(:, 3,26,12) = (/ &\n        & 0.73876e+01_rb,0.15061e+02_rb,0.17816e+02_rb,0.20014e+02_rb,0.14821e+02_rb /)\n      kbo(:, 4,26,12) = (/ &\n        & 0.80374e+01_rb,0.16453e+02_rb,0.19314e+02_rb,0.21444e+02_rb,0.15933e+02_rb /)\n      kbo(:, 5,26,12) = (/ &\n        & 0.87427e+01_rb,0.17956e+02_rb,0.20909e+02_rb,0.22878e+02_rb,0.17080e+02_rb /)\n      kbo(:, 1,27,12) = (/ &\n        & 0.57700e+01_rb,0.12257e+02_rb,0.14782e+02_rb,0.16780e+02_rb,0.12335e+02_rb /)\n      kbo(:, 2,27,12) = (/ &\n        & 0.62864e+01_rb,0.13513e+02_rb,0.16114e+02_rb,0.18231e+02_rb,0.13431e+02_rb /)\n      kbo(:, 3,27,12) = (/ &\n        & 0.68675e+01_rb,0.14868e+02_rb,0.17601e+02_rb,0.19730e+02_rb,0.14565e+02_rb /)\n      kbo(:, 4,27,12) = (/ &\n        & 0.75138e+01_rb,0.16329e+02_rb,0.19199e+02_rb,0.21244e+02_rb,0.15742e+02_rb /)\n      kbo(:, 5,27,12) = (/ &\n        & 0.82289e+01_rb,0.17883e+02_rb,0.20886e+02_rb,0.22748e+02_rb,0.16940e+02_rb /)\n      kbo(:, 1,28,12) = (/ &\n        & 0.53548e+01_rb,0.12024e+02_rb,0.14494e+02_rb,0.16490e+02_rb,0.12074e+02_rb /)\n      kbo(:, 2,28,12) = (/ &\n        & 0.58567e+01_rb,0.13364e+02_rb,0.15954e+02_rb,0.18023e+02_rb,0.13231e+02_rb /)\n      kbo(:, 3,28,12) = (/ &\n        & 0.64249e+01_rb,0.14793e+02_rb,0.17548e+02_rb,0.19599e+02_rb,0.14431e+02_rb /)\n      kbo(:, 4,28,12) = (/ &\n        & 0.70763e+01_rb,0.16306e+02_rb,0.19232e+02_rb,0.21185e+02_rb,0.15664e+02_rb /)\n      kbo(:, 5,28,12) = (/ &\n        & 0.78108e+01_rb,0.17913e+02_rb,0.20999e+02_rb,0.22748e+02_rb,0.16904e+02_rb /)\n      kbo(:, 1,29,12) = (/ &\n        & 0.50045e+01_rb,0.11918e+02_rb,0.14389e+02_rb,0.16363e+02_rb,0.11938e+02_rb /)\n      kbo(:, 2,29,12) = (/ &\n        & 0.55030e+01_rb,0.13334e+02_rb,0.15959e+02_rb,0.17970e+02_rb,0.13155e+02_rb /)\n      kbo(:, 3,29,12) = (/ &\n        & 0.60662e+01_rb,0.14820e+02_rb,0.17638e+02_rb,0.19611e+02_rb,0.14408e+02_rb /)\n      kbo(:, 4,29,12) = (/ &\n        & 0.67325e+01_rb,0.16392e+02_rb,0.19392e+02_rb,0.21253e+02_rb,0.15686e+02_rb /)\n      kbo(:, 5,29,12) = (/ &\n        & 0.74925e+01_rb,0.18044e+02_rb,0.21206e+02_rb,0.22856e+02_rb,0.16965e+02_rb /)\n      kbo(:, 1,30,12) = (/ &\n        & 0.47172e+01_rb,0.11917e+02_rb,0.14428e+02_rb,0.16368e+02_rb,0.11903e+02_rb /)\n      kbo(:, 2,30,12) = (/ &\n        & 0.52125e+01_rb,0.13400e+02_rb,0.16089e+02_rb,0.18040e+02_rb,0.13179e+02_rb /)\n      kbo(:, 3,30,12) = (/ &\n        & 0.57884e+01_rb,0.14940e+02_rb,0.17829e+02_rb,0.19728e+02_rb,0.14475e+02_rb /)\n      kbo(:, 4,30,12) = (/ &\n        & 0.64722e+01_rb,0.16556e+02_rb,0.19636e+02_rb,0.21408e+02_rb,0.15787e+02_rb /)\n      kbo(:, 5,30,12) = (/ &\n        & 0.72704e+01_rb,0.18251e+02_rb,0.21479e+02_rb,0.23035e+02_rb,0.17093e+02_rb /)\n      kbo(:, 1,31,12) = (/ &\n        & 0.44858e+01_rb,0.12017e+02_rb,0.14590e+02_rb,0.16495e+02_rb,0.11969e+02_rb /)\n      kbo(:, 2,31,12) = (/ &\n        & 0.49908e+01_rb,0.13550e+02_rb,0.16315e+02_rb,0.18215e+02_rb,0.13287e+02_rb /)\n      kbo(:, 3,31,12) = (/ &\n        & 0.55864e+01_rb,0.15140e+02_rb,0.18101e+02_rb,0.19933e+02_rb,0.14620e+02_rb /)\n      kbo(:, 4,31,12) = (/ &\n        & 0.63024e+01_rb,0.16801e+02_rb,0.19948e+02_rb,0.21636e+02_rb,0.15956e+02_rb /)\n      kbo(:, 5,31,12) = (/ &\n        & 0.71504e+01_rb,0.18530e+02_rb,0.21815e+02_rb,0.23280e+02_rb,0.17277e+02_rb /)\n      kbo(:, 1,32,12) = (/ &\n        & 0.43064e+01_rb,0.12199e+02_rb,0.14841e+02_rb,0.16712e+02_rb,0.12112e+02_rb /)\n      kbo(:, 2,32,12) = (/ &\n        & 0.48346e+01_rb,0.13779e+02_rb,0.16613e+02_rb,0.18463e+02_rb,0.13462e+02_rb /)\n      kbo(:, 3,32,12) = (/ &\n        & 0.54614e+01_rb,0.15404e+02_rb,0.18438e+02_rb,0.20209e+02_rb,0.14821e+02_rb /)\n      kbo(:, 4,32,12) = (/ &\n        & 0.62177e+01_rb,0.17102e+02_rb,0.20311e+02_rb,0.21920e+02_rb,0.16172e+02_rb /)\n      kbo(:, 5,32,12) = (/ &\n        & 0.71259e+01_rb,0.18855e+02_rb,0.22195e+02_rb,0.23574e+02_rb,0.17506e+02_rb /)\n      kbo(:, 1,33,12) = (/ &\n        & 0.41801e+01_rb,0.12450e+02_rb,0.15154e+02_rb,0.16994e+02_rb,0.12315e+02_rb /)\n      kbo(:, 2,33,12) = (/ &\n        & 0.47391e+01_rb,0.14064e+02_rb,0.16963e+02_rb,0.18765e+02_rb,0.13689e+02_rb /)\n      kbo(:, 3,33,12) = (/ &\n        & 0.54061e+01_rb,0.15717e+02_rb,0.18820e+02_rb,0.20527e+02_rb,0.15064e+02_rb /)\n      kbo(:, 4,33,12) = (/ &\n        & 0.62146e+01_rb,0.17442e+02_rb,0.20711e+02_rb,0.22242e+02_rb,0.16420e+02_rb /)\n      kbo(:, 5,33,12) = (/ &\n        & 0.71827e+01_rb,0.19219e+02_rb,0.22608e+02_rb,0.23903e+02_rb,0.17762e+02_rb /)\n      kbo(:, 1,34,12) = (/ &\n        & 0.40887e+01_rb,0.12691e+02_rb,0.15451e+02_rb,0.17259e+02_rb,0.12512e+02_rb /)\n      kbo(:, 2,34,12) = (/ &\n        & 0.46819e+01_rb,0.14330e+02_rb,0.17288e+02_rb,0.19046e+02_rb,0.13902e+02_rb /)\n      kbo(:, 3,34,12) = (/ &\n        & 0.53890e+01_rb,0.16007e+02_rb,0.19166e+02_rb,0.20816e+02_rb,0.15287e+02_rb /)\n      kbo(:, 4,34,12) = (/ &\n        & 0.62486e+01_rb,0.17752e+02_rb,0.21067e+02_rb,0.22532e+02_rb,0.16650e+02_rb /)\n      kbo(:, 5,34,12) = (/ &\n        & 0.72682e+01_rb,0.19545e+02_rb,0.22972e+02_rb,0.24194e+02_rb,0.17995e+02_rb /)\n      kbo(:, 1,35,12) = (/ &\n        & 0.39916e+01_rb,0.12809e+02_rb,0.15601e+02_rb,0.17383e+02_rb,0.12605e+02_rb /)\n      kbo(:, 2,35,12) = (/ &\n        & 0.46112e+01_rb,0.14460e+02_rb,0.17457e+02_rb,0.19181e+02_rb,0.14005e+02_rb /)\n      kbo(:, 3,35,12) = (/ &\n        & 0.53474e+01_rb,0.16154e+02_rb,0.19347e+02_rb,0.20958e+02_rb,0.15398e+02_rb /)\n      kbo(:, 4,35,12) = (/ &\n        & 0.62430e+01_rb,0.17913e+02_rb,0.21258e+02_rb,0.22679e+02_rb,0.16764e+02_rb /)\n      kbo(:, 5,35,12) = (/ &\n        & 0.72953e+01_rb,0.19716e+02_rb,0.23169e+02_rb,0.24345e+02_rb,0.18113e+02_rb /)\n      kbo(:, 1,36,12) = (/ &\n        & 0.38696e+01_rb,0.12768e+02_rb,0.15571e+02_rb,0.17332e+02_rb,0.12565e+02_rb /)\n      kbo(:, 2,36,12) = (/ &\n        & 0.45034e+01_rb,0.14429e+02_rb,0.17436e+02_rb,0.19141e+02_rb,0.13973e+02_rb /)\n      kbo(:, 3,36,12) = (/ &\n        & 0.52555e+01_rb,0.16128e+02_rb,0.19333e+02_rb,0.20927e+02_rb,0.15372e+02_rb /)\n      kbo(:, 4,36,12) = (/ &\n        & 0.61640e+01_rb,0.17893e+02_rb,0.21249e+02_rb,0.22656e+02_rb,0.16743e+02_rb /)\n      kbo(:, 5,36,12) = (/ &\n        & 0.72295e+01_rb,0.19702e+02_rb,0.23168e+02_rb,0.24329e+02_rb,0.18096e+02_rb /)\n      kbo(:, 1,37,12) = (/ &\n        & 0.36883e+01_rb,0.12493e+02_rb,0.15274e+02_rb,0.17021e+02_rb,0.12322e+02_rb /)\n      kbo(:, 2,37,12) = (/ &\n        & 0.43193e+01_rb,0.14156e+02_rb,0.17140e+02_rb,0.18841e+02_rb,0.13739e+02_rb /)\n      kbo(:, 3,37,12) = (/ &\n        & 0.50636e+01_rb,0.15852e+02_rb,0.19039e+02_rb,0.20638e+02_rb,0.15145e+02_rb /)\n      kbo(:, 4,37,12) = (/ &\n        & 0.59573e+01_rb,0.17616e+02_rb,0.20958e+02_rb,0.22386e+02_rb,0.16525e+02_rb /)\n      kbo(:, 5,37,12) = (/ &\n        & 0.70089e+01_rb,0.19421e+02_rb,0.22881e+02_rb,0.24071e+02_rb,0.17883e+02_rb /)\n      kbo(:, 1,38,12) = (/ &\n        & 0.35253e+01_rb,0.12215e+02_rb,0.14971e+02_rb,0.16706e+02_rb,0.12079e+02_rb /)\n      kbo(:, 2,38,12) = (/ &\n        & 0.41507e+01_rb,0.13877e+02_rb,0.16837e+02_rb,0.18535e+02_rb,0.13501e+02_rb /)\n      kbo(:, 3,38,12) = (/ &\n        & 0.48852e+01_rb,0.15572e+02_rb,0.18736e+02_rb,0.20342e+02_rb,0.14913e+02_rb /)\n      kbo(:, 4,38,12) = (/ &\n        & 0.57613e+01_rb,0.17329e+02_rb,0.20656e+02_rb,0.22106e+02_rb,0.16300e+02_rb /)\n      kbo(:, 5,38,12) = (/ &\n        & 0.67957e+01_rb,0.19130e+02_rb,0.22581e+02_rb,0.23804e+02_rb,0.17665e+02_rb /)\n      kbo(:, 1,39,12) = (/ &\n        & 0.33825e+01_rb,0.11947e+02_rb,0.14676e+02_rb,0.16402e+02_rb,0.11843e+02_rb /)\n      kbo(:, 2,39,12) = (/ &\n        & 0.39997e+01_rb,0.13607e+02_rb,0.16542e+02_rb,0.18237e+02_rb,0.13271e+02_rb /)\n      kbo(:, 3,39,12) = (/ &\n        & 0.47242e+01_rb,0.15300e+02_rb,0.18440e+02_rb,0.20053e+02_rb,0.14687e+02_rb /)\n      kbo(:, 4,39,12) = (/ &\n        & 0.55821e+01_rb,0.17050e+02_rb,0.20362e+02_rb,0.21831e+02_rb,0.16081e+02_rb /)\n      kbo(:, 5,39,12) = (/ &\n        & 0.65965e+01_rb,0.18849e+02_rb,0.22289e+02_rb,0.23541e+02_rb,0.17452e+02_rb /)\n      kbo(:, 1,40,12) = (/ &\n        & 0.31990e+01_rb,0.11518e+02_rb,0.14197e+02_rb,0.15916e+02_rb,0.11466e+02_rb /)\n      kbo(:, 2,40,12) = (/ &\n        & 0.37954e+01_rb,0.13171e+02_rb,0.16060e+02_rb,0.17759e+02_rb,0.12898e+02_rb /)\n      kbo(:, 3,40,12) = (/ &\n        & 0.44984e+01_rb,0.14859e+02_rb,0.17955e+02_rb,0.19586e+02_rb,0.14321e+02_rb /)\n      kbo(:, 4,40,12) = (/ &\n        & 0.53220e+01_rb,0.16595e+02_rb,0.19875e+02_rb,0.21381e+02_rb,0.15725e+02_rb /)\n      kbo(:, 5,40,12) = (/ &\n        & 0.62999e+01_rb,0.18387e+02_rb,0.21803e+02_rb,0.23109e+02_rb,0.17102e+02_rb /)\n      kbo(:, 1,41,12) = (/ &\n        & 0.30240e+01_rb,0.11079e+02_rb,0.13703e+02_rb,0.15411e+02_rb,0.11075e+02_rb /)\n      kbo(:, 2,41,12) = (/ &\n        & 0.35998e+01_rb,0.12722e+02_rb,0.15561e+02_rb,0.17259e+02_rb,0.12509e+02_rb /)\n      kbo(:, 3,41,12) = (/ &\n        & 0.42766e+01_rb,0.14402e+02_rb,0.17450e+02_rb,0.19096e+02_rb,0.13938e+02_rb /)\n      kbo(:, 4,41,12) = (/ &\n        & 0.50663e+01_rb,0.16123e+02_rb,0.19365e+02_rb,0.20905e+02_rb,0.15352e+02_rb /)\n      kbo(:, 5,41,12) = (/ &\n        & 0.60051e+01_rb,0.17908e+02_rb,0.21295e+02_rb,0.22653e+02_rb,0.16735e+02_rb /)\n      kbo(:, 1,42,12) = (/ &\n        & 0.28652e+01_rb,0.10648e+02_rb,0.13219e+02_rb,0.14913e+02_rb,0.10689e+02_rb /)\n      kbo(:, 2,42,12) = (/ &\n        & 0.34153e+01_rb,0.12278e+02_rb,0.15063e+02_rb,0.16761e+02_rb,0.12121e+02_rb /)\n      kbo(:, 3,42,12) = (/ &\n        & 0.40672e+01_rb,0.13952e+02_rb,0.16947e+02_rb,0.18606e+02_rb,0.13557e+02_rb /)\n      kbo(:, 4,42,12) = (/ &\n        & 0.48264e+01_rb,0.15661e+02_rb,0.18858e+02_rb,0.20426e+02_rb,0.14977e+02_rb /)\n      kbo(:, 5,42,12) = (/ &\n        & 0.57266e+01_rb,0.17431e+02_rb,0.20787e+02_rb,0.22197e+02_rb,0.16370e+02_rb /)\n      kbo(:, 1,43,12) = (/ &\n        & 0.26870e+01_rb,0.10134e+02_rb,0.12642e+02_rb,0.14316e+02_rb,0.10228e+02_rb /)\n      kbo(:, 2,43,12) = (/ &\n        & 0.32108e+01_rb,0.11745e+02_rb,0.14465e+02_rb,0.16161e+02_rb,0.11657e+02_rb /)\n      kbo(:, 3,43,12) = (/ &\n        & 0.38308e+01_rb,0.13408e+02_rb,0.16340e+02_rb,0.18012e+02_rb,0.13095e+02_rb /)\n      kbo(:, 4,43,12) = (/ &\n        & 0.45569e+01_rb,0.15107e+02_rb,0.18246e+02_rb,0.19843e+02_rb,0.14521e+02_rb /)\n      kbo(:, 5,43,12) = (/ &\n        & 0.54100e+01_rb,0.16859e+02_rb,0.20173e+02_rb,0.21637e+02_rb,0.15927e+02_rb /)\n      kbo(:, 1,44,12) = (/ &\n        & 0.25051e+01_rb,0.95885e+01_rb,0.12032e+02_rb,0.13682e+02_rb,0.97372e+01_rb /)\n      kbo(:, 2,44,12) = (/ &\n        & 0.30054e+01_rb,0.11180e+02_rb,0.13825e+02_rb,0.15517e+02_rb,0.11159e+02_rb /)\n      kbo(:, 3,44,12) = (/ &\n        & 0.35923e+01_rb,0.12828e+02_rb,0.15690e+02_rb,0.17372e+02_rb,0.12597e+02_rb /)\n      kbo(:, 4,44,12) = (/ &\n        & 0.42861e+01_rb,0.14518e+02_rb,0.17591e+02_rb,0.19215e+02_rb,0.14031e+02_rb /)\n      kbo(:, 5,44,12) = (/ &\n        & 0.50891e+01_rb,0.16248e+02_rb,0.19511e+02_rb,0.21026e+02_rb,0.15447e+02_rb /)\n      kbo(:, 1,45,12) = (/ &\n        & 0.23284e+01_rb,0.90519e+01_rb,0.11435e+02_rb,0.13049e+02_rb,0.92487e+01_rb /)\n      kbo(:, 2,45,12) = (/ &\n        & 0.28153e+01_rb,0.10623e+02_rb,0.13197e+02_rb,0.14880e+02_rb,0.10666e+02_rb /)\n      kbo(:, 3,45,12) = (/ &\n        & 0.33686e+01_rb,0.12254e+02_rb,0.15046e+02_rb,0.16733e+02_rb,0.12101e+02_rb /)\n      kbo(:, 4,45,12) = (/ &\n        & 0.40279e+01_rb,0.13936e+02_rb,0.16938e+02_rb,0.18583e+02_rb,0.13540e+02_rb /)\n      kbo(:, 5,45,12) = (/ &\n        & 0.47894e+01_rb,0.15648e+02_rb,0.18852e+02_rb,0.20408e+02_rb,0.14963e+02_rb /)\n      kbo(:, 1,46,12) = (/ &\n        & 0.21477e+01_rb,0.84947e+01_rb,0.10808e+02_rb,0.12382e+02_rb,0.87316e+01_rb /)\n      kbo(:, 2,46,12) = (/ &\n        & 0.26237e+01_rb,0.10040e+02_rb,0.12543e+02_rb,0.14206e+02_rb,0.10145e+02_rb /)\n      kbo(:, 3,46,12) = (/ &\n        & 0.31493e+01_rb,0.11653e+02_rb,0.14367e+02_rb,0.16054e+02_rb,0.11575e+02_rb /)\n      kbo(:, 4,46,12) = (/ &\n        & 0.37687e+01_rb,0.13319e+02_rb,0.16247e+02_rb,0.17910e+02_rb,0.13015e+02_rb /)\n      kbo(:, 5,46,12) = (/ &\n        & 0.44919e+01_rb,0.15018e+02_rb,0.18154e+02_rb,0.19746e+02_rb,0.14446e+02_rb /)\n      kbo(:, 1,47,12) = (/ &\n        & 0.19539e+01_rb,0.78866e+01_rb,0.10121e+02_rb,0.11642e+02_rb,0.81629e+01_rb /)\n      kbo(:, 2,47,12) = (/ &\n        & 0.24188e+01_rb,0.94011e+01_rb,0.11827e+02_rb,0.13461e+02_rb,0.95671e+01_rb /)\n      kbo(:, 3,47,12) = (/ &\n        & 0.29183e+01_rb,0.10990e+02_rb,0.13614e+02_rb,0.15297e+02_rb,0.10990e+02_rb /)\n      kbo(:, 4,47,12) = (/ &\n        & 0.34981e+01_rb,0.12636e+02_rb,0.15480e+02_rb,0.17155e+02_rb,0.12429e+02_rb /)\n      kbo(:, 5,47,12) = (/ &\n        & 0.41787e+01_rb,0.14323e+02_rb,0.17378e+02_rb,0.19005e+02_rb,0.13866e+02_rb /)\n      kbo(:, 1,48,12) = (/ &\n        & 0.17686e+01_rb,0.73016e+01_rb,0.94471e+01_rb,0.10908e+02_rb,0.76062e+01_rb /)\n      kbo(:, 2,48,12) = (/ &\n        & 0.22191e+01_rb,0.87750e+01_rb,0.11125e+02_rb,0.12718e+02_rb,0.89921e+01_rb /)\n      kbo(:, 3,48,12) = (/ &\n        & 0.27045e+01_rb,0.10336e+02_rb,0.12878e+02_rb,0.14548e+02_rb,0.10409e+02_rb /)\n      kbo(:, 4,48,12) = (/ &\n        & 0.32460e+01_rb,0.11962e+02_rb,0.14721e+02_rb,0.16399e+02_rb,0.11843e+02_rb /)\n      kbo(:, 5,48,12) = (/ &\n        & 0.38847e+01_rb,0.13635e+02_rb,0.16605e+02_rb,0.18256e+02_rb,0.13285e+02_rb /)\n      kbo(:, 1,49,12) = (/ &\n        & 0.15926e+01_rb,0.67448e+01_rb,0.87885e+01_rb,0.10183e+02_rb,0.70558e+01_rb /)\n      kbo(:, 2,49,12) = (/ &\n        & 0.20265e+01_rb,0.81616e+01_rb,0.10434e+02_rb,0.11978e+02_rb,0.84210e+01_rb /)\n      kbo(:, 3,49,12) = (/ &\n        & 0.24995e+01_rb,0.96943e+01_rb,0.12158e+02_rb,0.13804e+02_rb,0.98335e+01_rb /)\n      kbo(:, 4,49,12) = (/ &\n        & 0.30106e+01_rb,0.11296e+02_rb,0.13964e+02_rb,0.15645e+02_rb,0.11261e+02_rb /)\n      kbo(:, 5,49,12) = (/ &\n        & 0.36091e+01_rb,0.12953e+02_rb,0.15838e+02_rb,0.17505e+02_rb,0.12701e+02_rb /)\n      kbo(:, 1,50,12) = (/ &\n        & 0.14367e+01_rb,0.62503e+01_rb,0.81839e+01_rb,0.95114e+01_rb,0.65470e+01_rb /)\n      kbo(:, 2,50,12) = (/ &\n        & 0.18513e+01_rb,0.76037e+01_rb,0.97986e+01_rb,0.11290e+02_rb,0.78962e+01_rb /)\n      kbo(:, 3,50,12) = (/ &\n        & 0.23123e+01_rb,0.91032e+01_rb,0.11496e+02_rb,0.13108e+02_rb,0.92947e+01_rb /)\n      kbo(:, 4,50,12) = (/ &\n        & 0.28056e+01_rb,0.10680e+02_rb,0.13267e+02_rb,0.14942e+02_rb,0.10716e+02_rb /)\n      kbo(:, 5,50,12) = (/ &\n        & 0.33664e+01_rb,0.12318e+02_rb,0.15124e+02_rb,0.16800e+02_rb,0.12153e+02_rb /)\n      kbo(:, 1,51,12) = (/ &\n        & 0.12944e+01_rb,0.57936e+01_rb,0.76117e+01_rb,0.88742e+01_rb,0.60642e+01_rb /)\n      kbo(:, 2,51,12) = (/ &\n        & 0.16888e+01_rb,0.70852e+01_rb,0.91933e+01_rb,0.10628e+02_rb,0.73944e+01_rb /)\n      kbo(:, 3,51,12) = (/ &\n        & 0.21353e+01_rb,0.85416e+01_rb,0.10863e+02_rb,0.12436e+02_rb,0.87735e+01_rb /)\n      kbo(:, 4,51,12) = (/ &\n        & 0.26169e+01_rb,0.10093e+02_rb,0.12607e+02_rb,0.14266e+02_rb,0.10192e+02_rb /)\n      kbo(:, 5,51,12) = (/ &\n        & 0.31479e+01_rb,0.11711e+02_rb,0.14438e+02_rb,0.16116e+02_rb,0.11624e+02_rb /)\n      kbo(:, 1,52,12) = (/ &\n        & 0.11616e+01_rb,0.53570e+01_rb,0.70533e+01_rb,0.82560e+01_rb,0.55953e+01_rb /)\n      kbo(:, 2,52,12) = (/ &\n        & 0.15340e+01_rb,0.65899e+01_rb,0.86019e+01_rb,0.99750e+01_rb,0.68982e+01_rb /)\n      kbo(:, 3,52,12) = (/ &\n        & 0.19643e+01_rb,0.79903e+01_rb,0.10241e+02_rb,0.11768e+02_rb,0.82604e+01_rb /)\n      kbo(:, 4,52,12) = (/ &\n        & 0.24347e+01_rb,0.95157e+01_rb,0.11958e+02_rb,0.13593e+02_rb,0.96707e+01_rb /)\n      kbo(:, 5,52,12) = (/ &\n        & 0.29410e+01_rb,0.11112e+02_rb,0.13756e+02_rb,0.15434e+02_rb,0.11097e+02_rb /)\n      kbo(:, 1,53,12) = (/ &\n        & 0.10377e+01_rb,0.49398e+01_rb,0.65141e+01_rb,0.76518e+01_rb,0.51386e+01_rb /)\n      kbo(:, 2,53,12) = (/ &\n        & 0.13876e+01_rb,0.61188e+01_rb,0.80207e+01_rb,0.93291e+01_rb,0.64095e+01_rb /)\n      kbo(:, 3,53,12) = (/ &\n        & 0.17987e+01_rb,0.74567e+01_rb,0.96292e+01_rb,0.11104e+02_rb,0.77562e+01_rb /)\n      kbo(:, 4,53,12) = (/ &\n        & 0.22559e+01_rb,0.89467e+01_rb,0.11320e+02_rb,0.12921e+02_rb,0.91504e+01_rb /)\n      kbo(:, 5,53,12) = (/ &\n        & 0.27477e+01_rb,0.10518e+02_rb,0.13086e+02_rb,0.14756e+02_rb,0.10571e+02_rb /)\n      kbo(:, 1,54,12) = (/ &\n        & 0.93266e+00_rb,0.45754e+01_rb,0.60420e+01_rb,0.71108e+01_rb,0.47321e+01_rb /)\n      kbo(:, 2,54,12) = (/ &\n        & 0.12608e+01_rb,0.57055e+01_rb,0.75003e+01_rb,0.87512e+01_rb,0.59717e+01_rb /)\n      kbo(:, 3,54,12) = (/ &\n        & 0.16525e+01_rb,0.69875e+01_rb,0.90782e+01_rb,0.10501e+02_rb,0.72982e+01_rb /)\n      kbo(:, 4,54,12) = (/ &\n        & 0.20962e+01_rb,0.84351e+01_rb,0.10744e+02_rb,0.12308e+02_rb,0.86747e+01_rb /)\n      kbo(:, 5,54,12) = (/ &\n        & 0.25775e+01_rb,0.99827e+01_rb,0.12485e+02_rb,0.14138e+02_rb,0.10092e+02_rb /)\n      kbo(:, 1,55,12) = (/ &\n        & 0.84048e+00_rb,0.42428e+01_rb,0.56145e+01_rb,0.66054e+01_rb,0.43544e+01_rb /)\n      kbo(:, 2,55,12) = (/ &\n        & 0.11472e+01_rb,0.53270e+01_rb,0.70144e+01_rb,0.82122e+01_rb,0.55615e+01_rb /)\n      kbo(:, 3,55,12) = (/ &\n        & 0.15181e+01_rb,0.65556e+01_rb,0.85601e+01_rb,0.99280e+01_rb,0.68631e+01_rb /)\n      kbo(:, 4,55,12) = (/ &\n        & 0.19474e+01_rb,0.79524e+01_rb,0.10198e+02_rb,0.11721e+02_rb,0.82252e+01_rb /)\n      kbo(:, 5,55,12) = (/ &\n        & 0.24188e+01_rb,0.94776e+01_rb,0.11916e+02_rb,0.13548e+02_rb,0.96351e+01_rb /)\n      kbo(:, 1,56,12) = (/ &\n        & 0.75447e+00_rb,0.39270e+01_rb,0.52064e+01_rb,0.61093e+01_rb,0.39870e+01_rb /)\n      kbo(:, 2,56,12) = (/ &\n        & 0.10395e+01_rb,0.49623e+01_rb,0.65429e+01_rb,0.76840e+01_rb,0.51623e+01_rb /)\n      kbo(:, 3,56,12) = (/ &\n        & 0.13908e+01_rb,0.61440e+01_rb,0.80522e+01_rb,0.93640e+01_rb,0.64360e+01_rb /)\n      kbo(:, 4,56,12) = (/ &\n        & 0.18031e+01_rb,0.74859e+01_rb,0.96627e+01_rb,0.11140e+02_rb,0.77842e+01_rb /)\n      kbo(:, 5,56,12) = (/ &\n        & 0.22626e+01_rb,0.89798e+01_rb,0.11358e+02_rb,0.12960e+02_rb,0.91800e+01_rb /)\n      kbo(:, 1,57,12) = (/ &\n        & 0.67513e+00_rb,0.36336e+01_rb,0.48180e+01_rb,0.56247e+01_rb,0.36284e+01_rb /)\n      kbo(:, 2,57,12) = (/ &\n        & 0.93951e+00_rb,0.46135e+01_rb,0.60910e+01_rb,0.71671e+01_rb,0.47736e+01_rb /)\n      kbo(:, 3,57,12) = (/ &\n        & 0.12699e+01_rb,0.57481e+01_rb,0.75541e+01_rb,0.88107e+01_rb,0.60168e+01_rb /)\n      kbo(:, 4,57,12) = (/ &\n        & 0.16637e+01_rb,0.70362e+01_rb,0.91351e+01_rb,0.10564e+02_rb,0.73465e+01_rb /)\n      kbo(:, 5,57,12) = (/ &\n        & 0.21102e+01_rb,0.84904e+01_rb,0.10807e+02_rb,0.12374e+02_rb,0.87256e+01_rb /)\n      kbo(:, 1,58,12) = (/ &\n        & 0.60371e+00_rb,0.33725e+01_rb,0.44640e+01_rb,0.51801e+01_rb,0.32968e+01_rb /)\n      kbo(:, 2,58,12) = (/ &\n        & 0.85131e+00_rb,0.42951e+01_rb,0.56822e+01_rb,0.66873e+01_rb,0.44155e+01_rb /)\n      kbo(:, 3,58,12) = (/ &\n        & 0.11611e+01_rb,0.53867e+01_rb,0.70919e+01_rb,0.82985e+01_rb,0.56282e+01_rb /)\n      kbo(:, 4,58,12) = (/ &\n        & 0.15366e+01_rb,0.66258e+01_rb,0.86445e+01_rb,0.10022e+02_rb,0.69358e+01_rb /)\n      kbo(:, 5,58,12) = (/ &\n        & 0.19698e+01_rb,0.80329e+01_rb,0.10290e+02_rb,0.11819e+02_rb,0.83004e+01_rb /)\n      kbo(:, 1,59,12) = (/ &\n        & 0.57552e+00_rb,0.32717e+01_rb,0.43250e+01_rb,0.50045e+01_rb,0.31668e+01_rb /)\n      kbo(:, 2,59,12) = (/ &\n        & 0.81716e+00_rb,0.41713e+01_rb,0.55225e+01_rb,0.64964e+01_rb,0.42740e+01_rb /)\n      kbo(:, 3,59,12) = (/ &\n        & 0.11190e+01_rb,0.52446e+01_rb,0.69091e+01_rb,0.80966e+01_rb,0.54744e+01_rb /)\n      kbo(:, 4,59,12) = (/ &\n        & 0.14869e+01_rb,0.64659e+01_rb,0.84502e+01_rb,0.98065e+01_rb,0.67716e+01_rb /)\n      kbo(:, 5,59,12) = (/ &\n        & 0.19139e+01_rb,0.78535e+01_rb,0.10085e+02_rb,0.11598e+02_rb,0.81311e+01_rb /)\n      kbo(:, 1,13,13) = (/ &\n        & 0.79406e+02_rb,0.76977e+02_rb,0.79398e+02_rb,0.72265e+02_rb,0.70608e+02_rb /)\n      kbo(:, 2,13,13) = (/ &\n        & 0.78716e+02_rb,0.76325e+02_rb,0.79145e+02_rb,0.72561e+02_rb,0.71233e+02_rb /)\n      kbo(:, 3,13,13) = (/ &\n        & 0.77960e+02_rb,0.75684e+02_rb,0.78864e+02_rb,0.72811e+02_rb,0.71703e+02_rb /)\n      kbo(:, 4,13,13) = (/ &\n        & 0.77172e+02_rb,0.75038e+02_rb,0.78462e+02_rb,0.73003e+02_rb,0.72067e+02_rb /)\n      kbo(:, 5,13,13) = (/ &\n        & 0.76342e+02_rb,0.74357e+02_rb,0.78015e+02_rb,0.73077e+02_rb,0.72406e+02_rb /)\n      kbo(:, 1,14,13) = (/ &\n        & 0.74002e+02_rb,0.75964e+02_rb,0.80244e+02_rb,0.73931e+02_rb,0.67973e+02_rb /)\n      kbo(:, 2,14,13) = (/ &\n        & 0.73259e+02_rb,0.75350e+02_rb,0.80187e+02_rb,0.74373e+02_rb,0.68671e+02_rb /)\n      kbo(:, 3,14,13) = (/ &\n        & 0.72511e+02_rb,0.74741e+02_rb,0.79998e+02_rb,0.74718e+02_rb,0.69297e+02_rb /)\n      kbo(:, 4,14,13) = (/ &\n        & 0.71760e+02_rb,0.74129e+02_rb,0.79694e+02_rb,0.74933e+02_rb,0.69925e+02_rb /)\n      kbo(:, 5,14,13) = (/ &\n        & 0.70963e+02_rb,0.73482e+02_rb,0.79282e+02_rb,0.75062e+02_rb,0.70592e+02_rb /)\n      kbo(:, 1,15,13) = (/ &\n        & 0.67727e+02_rb,0.74204e+02_rb,0.79973e+02_rb,0.74524e+02_rb,0.64503e+02_rb /)\n      kbo(:, 2,15,13) = (/ &\n        & 0.66995e+02_rb,0.73663e+02_rb,0.80067e+02_rb,0.75070e+02_rb,0.65404e+02_rb /)\n      kbo(:, 3,15,13) = (/ &\n        & 0.66299e+02_rb,0.73080e+02_rb,0.80001e+02_rb,0.75489e+02_rb,0.66341e+02_rb /)\n      kbo(:, 4,15,13) = (/ &\n        & 0.65584e+02_rb,0.72498e+02_rb,0.79808e+02_rb,0.75814e+02_rb,0.67293e+02_rb /)\n      kbo(:, 5,15,13) = (/ &\n        & 0.64881e+02_rb,0.71894e+02_rb,0.79644e+02_rb,0.76073e+02_rb,0.68159e+02_rb /)\n      kbo(:, 1,16,13) = (/ &\n        & 0.60910e+02_rb,0.71706e+02_rb,0.78658e+02_rb,0.73971e+02_rb,0.60740e+02_rb /)\n      kbo(:, 2,16,13) = (/ &\n        & 0.60264e+02_rb,0.71204e+02_rb,0.78897e+02_rb,0.74647e+02_rb,0.61882e+02_rb /)\n      kbo(:, 3,16,13) = (/ &\n        & 0.59646e+02_rb,0.70743e+02_rb,0.78998e+02_rb,0.75253e+02_rb,0.63062e+02_rb /)\n      kbo(:, 4,16,13) = (/ &\n        & 0.59033e+02_rb,0.70274e+02_rb,0.79093e+02_rb,0.75819e+02_rb,0.64263e+02_rb /)\n      kbo(:, 5,16,13) = (/ &\n        & 0.58482e+02_rb,0.69838e+02_rb,0.79175e+02_rb,0.76359e+02_rb,0.65453e+02_rb /)\n      kbo(:, 1,17,13) = (/ &\n        & 0.53962e+02_rb,0.68666e+02_rb,0.76384e+02_rb,0.72467e+02_rb,0.57058e+02_rb /)\n      kbo(:, 2,17,13) = (/ &\n        & 0.53430e+02_rb,0.68393e+02_rb,0.76843e+02_rb,0.73413e+02_rb,0.58438e+02_rb /)\n      kbo(:, 3,17,13) = (/ &\n        & 0.52920e+02_rb,0.68105e+02_rb,0.77273e+02_rb,0.74323e+02_rb,0.59869e+02_rb /)\n      kbo(:, 4,17,13) = (/ &\n        & 0.52483e+02_rb,0.67847e+02_rb,0.77698e+02_rb,0.75214e+02_rb,0.61307e+02_rb /)\n      kbo(:, 5,17,13) = (/ &\n        & 0.52082e+02_rb,0.67535e+02_rb,0.78034e+02_rb,0.76077e+02_rb,0.62785e+02_rb /)\n      kbo(:, 1,18,13) = (/ &\n        & 0.47235e+02_rb,0.65232e+02_rb,0.73440e+02_rb,0.70305e+02_rb,0.53676e+02_rb /)\n      kbo(:, 2,18,13) = (/ &\n        & 0.46798e+02_rb,0.65205e+02_rb,0.74239e+02_rb,0.71589e+02_rb,0.55262e+02_rb /)\n      kbo(:, 3,18,13) = (/ &\n        & 0.46439e+02_rb,0.65179e+02_rb,0.75037e+02_rb,0.72870e+02_rb,0.56922e+02_rb /)\n      kbo(:, 4,18,13) = (/ &\n        & 0.46165e+02_rb,0.65077e+02_rb,0.75787e+02_rb,0.74113e+02_rb,0.58606e+02_rb /)\n      kbo(:, 5,18,13) = (/ &\n        & 0.46076e+02_rb,0.64950e+02_rb,0.76497e+02_rb,0.75319e+02_rb,0.60364e+02_rb /)\n      kbo(:, 1,19,13) = (/ &\n        & 0.40875e+02_rb,0.61443e+02_rb,0.70167e+02_rb,0.67815e+02_rb,0.50666e+02_rb /)\n      kbo(:, 2,19,13) = (/ &\n        & 0.40599e+02_rb,0.61754e+02_rb,0.71348e+02_rb,0.69451e+02_rb,0.52443e+02_rb /)\n      kbo(:, 3,19,13) = (/ &\n        & 0.40423e+02_rb,0.61971e+02_rb,0.72494e+02_rb,0.71103e+02_rb,0.54265e+02_rb /)\n      kbo(:, 4,19,13) = (/ &\n        & 0.40489e+02_rb,0.62135e+02_rb,0.73624e+02_rb,0.72723e+02_rb,0.56176e+02_rb /)\n      kbo(:, 5,19,13) = (/ &\n        & 0.40909e+02_rb,0.62251e+02_rb,0.74691e+02_rb,0.74287e+02_rb,0.58151e+02_rb /)\n      kbo(:, 1,20,13) = (/ &\n        & 0.35203e+02_rb,0.57554e+02_rb,0.66740e+02_rb,0.65266e+02_rb,0.47986e+02_rb /)\n      kbo(:, 2,20,13) = (/ &\n        & 0.35059e+02_rb,0.58164e+02_rb,0.68281e+02_rb,0.67270e+02_rb,0.49928e+02_rb /)\n      kbo(:, 3,20,13) = (/ &\n        & 0.35179e+02_rb,0.58679e+02_rb,0.69865e+02_rb,0.69298e+02_rb,0.51957e+02_rb /)\n      kbo(:, 4,20,13) = (/ &\n        & 0.35687e+02_rb,0.59136e+02_rb,0.71375e+02_rb,0.71295e+02_rb,0.54068e+02_rb /)\n      kbo(:, 5,20,13) = (/ &\n        & 0.36572e+02_rb,0.59563e+02_rb,0.72814e+02_rb,0.73197e+02_rb,0.56184e+02_rb /)\n      kbo(:, 1,21,13) = (/ &\n        & 0.30294e+02_rb,0.53730e+02_rb,0.63335e+02_rb,0.62843e+02_rb,0.45639e+02_rb /)\n      kbo(:, 2,21,13) = (/ &\n        & 0.30407e+02_rb,0.54622e+02_rb,0.65309e+02_rb,0.65230e+02_rb,0.47736e+02_rb /)\n      kbo(:, 3,21,13) = (/ &\n        & 0.30898e+02_rb,0.55470e+02_rb,0.67283e+02_rb,0.67630e+02_rb,0.49955e+02_rb /)\n      kbo(:, 4,21,13) = (/ &\n        & 0.31814e+02_rb,0.56234e+02_rb,0.69205e+02_rb,0.69979e+02_rb,0.52223e+02_rb /)\n      kbo(:, 5,21,13) = (/ &\n        & 0.33171e+02_rb,0.57002e+02_rb,0.70988e+02_rb,0.72170e+02_rb,0.54507e+02_rb /)\n      kbo(:, 1,22,13) = (/ &\n        & 0.26203e+02_rb,0.50178e+02_rb,0.60369e+02_rb,0.60883e+02_rb,0.43752e+02_rb /)\n      kbo(:, 2,22,13) = (/ &\n        & 0.26668e+02_rb,0.51399e+02_rb,0.62731e+02_rb,0.63628e+02_rb,0.46055e+02_rb /)\n      kbo(:, 3,22,13) = (/ &\n        & 0.27573e+02_rb,0.52567e+02_rb,0.65094e+02_rb,0.66337e+02_rb,0.48427e+02_rb /)\n      kbo(:, 4,22,13) = (/ &\n        & 0.28933e+02_rb,0.53710e+02_rb,0.67379e+02_rb,0.68992e+02_rb,0.50840e+02_rb /)\n      kbo(:, 5,22,13) = (/ &\n        & 0.30713e+02_rb,0.54842e+02_rb,0.69500e+02_rb,0.71453e+02_rb,0.53313e+02_rb /)\n      kbo(:, 1,23,13) = (/ &\n        & 0.22949e+02_rb,0.47062e+02_rb,0.57786e+02_rb,0.59287e+02_rb,0.42207e+02_rb /)\n      kbo(:, 2,23,13) = (/ &\n        & 0.23779e+02_rb,0.48563e+02_rb,0.60567e+02_rb,0.62337e+02_rb,0.44709e+02_rb /)\n      kbo(:, 3,23,13) = (/ &\n        & 0.25087e+02_rb,0.50088e+02_rb,0.63282e+02_rb,0.65361e+02_rb,0.47224e+02_rb /)\n      kbo(:, 4,23,13) = (/ &\n        & 0.26833e+02_rb,0.51601e+02_rb,0.65861e+02_rb,0.68253e+02_rb,0.49790e+02_rb /)\n      kbo(:, 5,23,13) = (/ &\n        & 0.28975e+02_rb,0.53148e+02_rb,0.68312e+02_rb,0.70979e+02_rb,0.52442e+02_rb /)\n      kbo(:, 1,24,13) = (/ &\n        & 0.20450e+02_rb,0.44418e+02_rb,0.55719e+02_rb,0.58070e+02_rb,0.41028e+02_rb /)\n      kbo(:, 2,24,13) = (/ &\n        & 0.21647e+02_rb,0.46218e+02_rb,0.58860e+02_rb,0.61413e+02_rb,0.43697e+02_rb /)\n      kbo(:, 3,24,13) = (/ &\n        & 0.23313e+02_rb,0.48082e+02_rb,0.61856e+02_rb,0.64696e+02_rb,0.46357e+02_rb /)\n      kbo(:, 4,24,13) = (/ &\n        & 0.25383e+02_rb,0.49987e+02_rb,0.64735e+02_rb,0.67792e+02_rb,0.49079e+02_rb /)\n      kbo(:, 5,24,13) = (/ &\n        & 0.27788e+02_rb,0.51882e+02_rb,0.67449e+02_rb,0.70725e+02_rb,0.51885e+02_rb /)\n      kbo(:, 1,25,13) = (/ &\n        & 0.18632e+02_rb,0.42267e+02_rb,0.54194e+02_rb,0.57249e+02_rb,0.40189e+02_rb /)\n      kbo(:, 2,25,13) = (/ &\n        & 0.20151e+02_rb,0.44393e+02_rb,0.57583e+02_rb,0.60858e+02_rb,0.43004e+02_rb /)\n      kbo(:, 3,25,13) = (/ &\n        & 0.22101e+02_rb,0.46593e+02_rb,0.60865e+02_rb,0.64337e+02_rb,0.45809e+02_rb /)\n      kbo(:, 4,25,13) = (/ &\n        & 0.24391e+02_rb,0.48836e+02_rb,0.63984e+02_rb,0.67613e+02_rb,0.48696e+02_rb /)\n      kbo(:, 5,25,13) = (/ &\n        & 0.26959e+02_rb,0.50995e+02_rb,0.66882e+02_rb,0.70682e+02_rb,0.51602e+02_rb /)\n      kbo(:, 1,26,13) = (/ &\n        & 0.17370e+02_rb,0.40657e+02_rb,0.53173e+02_rb,0.56858e+02_rb,0.39692e+02_rb /)\n      kbo(:, 2,26,13) = (/ &\n        & 0.19155e+02_rb,0.43087e+02_rb,0.56801e+02_rb,0.60671e+02_rb,0.42632e+02_rb /)\n      kbo(:, 3,26,13) = (/ &\n        & 0.21292e+02_rb,0.45598e+02_rb,0.60302e+02_rb,0.64290e+02_rb,0.45592e+02_rb /)\n      kbo(:, 4,26,13) = (/ &\n        & 0.23727e+02_rb,0.48098e+02_rb,0.63591e+02_rb,0.67690e+02_rb,0.48603e+02_rb /)\n      kbo(:, 5,26,13) = (/ &\n        & 0.26455e+02_rb,0.50493e+02_rb,0.66616e+02_rb,0.70861e+02_rb,0.51588e+02_rb /)\n      kbo(:, 1,27,13) = (/ &\n        & 0.16499e+02_rb,0.39533e+02_rb,0.52563e+02_rb,0.56787e+02_rb,0.39461e+02_rb /)\n      kbo(:, 2,27,13) = (/ &\n        & 0.18462e+02_rb,0.42240e+02_rb,0.56391e+02_rb,0.60738e+02_rb,0.42525e+02_rb /)\n      kbo(:, 3,27,13) = (/ &\n        & 0.20737e+02_rb,0.45009e+02_rb,0.60060e+02_rb,0.64459e+02_rb,0.45612e+02_rb /)\n      kbo(:, 4,27,13) = (/ &\n        & 0.23336e+02_rb,0.47712e+02_rb,0.63452e+02_rb,0.67944e+02_rb,0.48705e+02_rb /)\n      kbo(:, 5,27,13) = (/ &\n        & 0.26215e+02_rb,0.50322e+02_rb,0.66583e+02_rb,0.71174e+02_rb,0.51756e+02_rb /)\n      kbo(:, 1,28,13) = (/ &\n        & 0.15882e+02_rb,0.38845e+02_rb,0.52318e+02_rb,0.56965e+02_rb,0.39468e+02_rb /)\n      kbo(:, 2,28,13) = (/ &\n        & 0.17994e+02_rb,0.41785e+02_rb,0.56289e+02_rb,0.61007e+02_rb,0.42649e+02_rb /)\n      kbo(:, 3,28,13) = (/ &\n        & 0.20424e+02_rb,0.44749e+02_rb,0.60052e+02_rb,0.64808e+02_rb,0.45826e+02_rb /)\n      kbo(:, 4,28,13) = (/ &\n        & 0.23178e+02_rb,0.47630e+02_rb,0.63526e+02_rb,0.68347e+02_rb,0.48967e+02_rb /)\n      kbo(:, 5,28,13) = (/ &\n        & 0.26217e+02_rb,0.50385e+02_rb,0.66714e+02_rb,0.71584e+02_rb,0.52071e+02_rb /)\n      kbo(:, 1,29,13) = (/ &\n        & 0.15496e+02_rb,0.38533e+02_rb,0.52388e+02_rb,0.57377e+02_rb,0.39687e+02_rb /)\n      kbo(:, 2,29,13) = (/ &\n        & 0.17758e+02_rb,0.41667e+02_rb,0.56458e+02_rb,0.61470e+02_rb,0.42963e+02_rb /)\n      kbo(:, 3,29,13) = (/ &\n        & 0.20345e+02_rb,0.44782e+02_rb,0.60267e+02_rb,0.65320e+02_rb,0.46203e+02_rb /)\n      kbo(:, 4,29,13) = (/ &\n        & 0.23257e+02_rb,0.47788e+02_rb,0.63789e+02_rb,0.68865e+02_rb,0.49378e+02_rb /)\n      kbo(:, 5,29,13) = (/ &\n        & 0.26442e+02_rb,0.50623e+02_rb,0.67004e+02_rb,0.72085e+02_rb,0.52513e+02_rb /)\n      kbo(:, 1,30,13) = (/ &\n        & 0.15305e+02_rb,0.38520e+02_rb,0.52687e+02_rb,0.57942e+02_rb,0.40075e+02_rb /)\n      kbo(:, 2,30,13) = (/ &\n        & 0.17725e+02_rb,0.41787e+02_rb,0.56809e+02_rb,0.62069e+02_rb,0.43408e+02_rb /)\n      kbo(:, 3,30,13) = (/ &\n        & 0.20471e+02_rb,0.45011e+02_rb,0.60646e+02_rb,0.65935e+02_rb,0.46678e+02_rb /)\n      kbo(:, 4,30,13) = (/ &\n        & 0.23532e+02_rb,0.48109e+02_rb,0.64191e+02_rb,0.69457e+02_rb,0.49879e+02_rb /)\n      kbo(:, 5,30,13) = (/ &\n        & 0.26835e+02_rb,0.50980e+02_rb,0.67409e+02_rb,0.72648e+02_rb,0.53041e+02_rb /)\n      kbo(:, 1,31,13) = (/ &\n        & 0.15319e+02_rb,0.38759e+02_rb,0.53187e+02_rb,0.58637e+02_rb,0.40597e+02_rb /)\n      kbo(:, 2,31,13) = (/ &\n        & 0.17890e+02_rb,0.42121e+02_rb,0.57326e+02_rb,0.62778e+02_rb,0.43969e+02_rb /)\n      kbo(:, 3,31,13) = (/ &\n        & 0.20784e+02_rb,0.45419e+02_rb,0.61174e+02_rb,0.66627e+02_rb,0.47246e+02_rb /)\n      kbo(:, 4,31,13) = (/ &\n        & 0.23963e+02_rb,0.48555e+02_rb,0.64709e+02_rb,0.70119e+02_rb,0.50470e+02_rb /)\n      kbo(:, 5,31,13) = (/ &\n        & 0.27377e+02_rb,0.51448e+02_rb,0.67912e+02_rb,0.73265e+02_rb,0.53642e+02_rb /)\n      kbo(:, 1,32,13) = (/ &\n        & 0.15518e+02_rb,0.39176e+02_rb,0.53833e+02_rb,0.59441e+02_rb,0.41231e+02_rb /)\n      kbo(:, 2,32,13) = (/ &\n        & 0.18219e+02_rb,0.42608e+02_rb,0.57967e+02_rb,0.63575e+02_rb,0.44614e+02_rb /)\n      kbo(:, 3,32,13) = (/ &\n        & 0.21240e+02_rb,0.45958e+02_rb,0.61807e+02_rb,0.67376e+02_rb,0.47899e+02_rb /)\n      kbo(:, 4,32,13) = (/ &\n        & 0.24535e+02_rb,0.49103e+02_rb,0.65323e+02_rb,0.70819e+02_rb,0.51129e+02_rb /)\n      kbo(:, 5,32,13) = (/ &\n        & 0.28030e+02_rb,0.51991e+02_rb,0.68477e+02_rb,0.73912e+02_rb,0.54297e+02_rb /)\n      kbo(:, 1,33,13) = (/ &\n        & 0.15857e+02_rb,0.39728e+02_rb,0.54587e+02_rb,0.60326e+02_rb,0.41934e+02_rb /)\n      kbo(:, 2,33,13) = (/ &\n        & 0.18681e+02_rb,0.43207e+02_rb,0.58700e+02_rb,0.64428e+02_rb,0.45312e+02_rb /)\n      kbo(:, 3,33,13) = (/ &\n        & 0.21817e+02_rb,0.46584e+02_rb,0.62510e+02_rb,0.68164e+02_rb,0.48601e+02_rb /)\n      kbo(:, 4,33,13) = (/ &\n        & 0.25208e+02_rb,0.49716e+02_rb,0.65986e+02_rb,0.71546e+02_rb,0.51832e+02_rb /)\n      kbo(:, 5,33,13) = (/ &\n        & 0.28769e+02_rb,0.52588e+02_rb,0.69085e+02_rb,0.74576e+02_rb,0.54996e+02_rb /)\n      kbo(:, 1,34,13) = (/ &\n        & 0.16218e+02_rb,0.40255e+02_rb,0.55264e+02_rb,0.61104e+02_rb,0.42563e+02_rb /)\n      kbo(:, 2,34,13) = (/ &\n        & 0.19136e+02_rb,0.43775e+02_rb,0.59363e+02_rb,0.65173e+02_rb,0.45933e+02_rb /)\n      kbo(:, 3,34,13) = (/ &\n        & 0.22367e+02_rb,0.47148e+02_rb,0.63138e+02_rb,0.68848e+02_rb,0.49223e+02_rb /)\n      kbo(:, 4,34,13) = (/ &\n        & 0.25824e+02_rb,0.50264e+02_rb,0.66569e+02_rb,0.72180e+02_rb,0.52454e+02_rb /)\n      kbo(:, 5,34,13) = (/ &\n        & 0.29432e+02_rb,0.53119e+02_rb,0.69617e+02_rb,0.75149e+02_rb,0.55607e+02_rb /)\n      kbo(:, 1,35,13) = (/ &\n        & 0.16382e+02_rb,0.40509e+02_rb,0.55591e+02_rb,0.61512e+02_rb,0.42891e+02_rb /)\n      kbo(:, 2,35,13) = (/ &\n        & 0.19362e+02_rb,0.44056e+02_rb,0.59682e+02_rb,0.65556e+02_rb,0.46259e+02_rb /)\n      kbo(:, 3,35,13) = (/ &\n        & 0.22646e+02_rb,0.47437e+02_rb,0.63450e+02_rb,0.69212e+02_rb,0.49551e+02_rb /)\n      kbo(:, 4,35,13) = (/ &\n        & 0.26140e+02_rb,0.50553e+02_rb,0.66864e+02_rb,0.72519e+02_rb,0.52785e+02_rb /)\n      kbo(:, 5,35,13) = (/ &\n        & 0.29778e+02_rb,0.53403e+02_rb,0.69889e+02_rb,0.75460e+02_rb,0.55937e+02_rb /)\n      kbo(:, 1,36,13) = (/ &\n        & 0.16282e+02_rb,0.40412e+02_rb,0.55499e+02_rb,0.61489e+02_rb,0.42866e+02_rb /)\n      kbo(:, 2,36,13) = (/ &\n        & 0.19286e+02_rb,0.43996e+02_rb,0.59618e+02_rb,0.65550e+02_rb,0.46244e+02_rb /)\n      kbo(:, 3,36,13) = (/ &\n        & 0.22586e+02_rb,0.47399e+02_rb,0.63406e+02_rb,0.69212e+02_rb,0.49542e+02_rb /)\n      kbo(:, 4,36,13) = (/ &\n        & 0.26096e+02_rb,0.50533e+02_rb,0.66829e+02_rb,0.72526e+02_rb,0.52781e+02_rb /)\n      kbo(:, 5,36,13) = (/ &\n        & 0.29750e+02_rb,0.53407e+02_rb,0.69875e+02_rb,0.75478e+02_rb,0.55943e+02_rb /)\n      kbo(:, 1,37,13) = (/ &\n        & 0.15776e+02_rb,0.39797e+02_rb,0.54788e+02_rb,0.60844e+02_rb,0.42332e+02_rb /)\n      kbo(:, 2,37,13) = (/ &\n        & 0.18757e+02_rb,0.43418e+02_rb,0.58970e+02_rb,0.64965e+02_rb,0.45736e+02_rb /)\n      kbo(:, 3,37,13) = (/ &\n        & 0.22032e+02_rb,0.46879e+02_rb,0.62830e+02_rb,0.68697e+02_rb,0.49053e+02_rb /)\n      kbo(:, 4,37,13) = (/ &\n        & 0.25533e+02_rb,0.50076e+02_rb,0.66324e+02_rb,0.72072e+02_rb,0.52311e+02_rb /)\n      kbo(:, 5,37,13) = (/ &\n        & 0.29180e+02_rb,0.52997e+02_rb,0.69437e+02_rb,0.75080e+02_rb,0.55481e+02_rb /)\n      kbo(:, 1,38,13) = (/ &\n        & 0.15271e+02_rb,0.39166e+02_rb,0.54054e+02_rb,0.60165e+02_rb,0.41777e+02_rb /)\n      kbo(:, 2,38,13) = (/ &\n        & 0.18227e+02_rb,0.42823e+02_rb,0.58302e+02_rb,0.64350e+02_rb,0.45207e+02_rb /)\n      kbo(:, 3,38,13) = (/ &\n        & 0.21473e+02_rb,0.46333e+02_rb,0.62224e+02_rb,0.68144e+02_rb,0.48540e+02_rb /)\n      kbo(:, 4,38,13) = (/ &\n        & 0.24954e+02_rb,0.49588e+02_rb,0.65790e+02_rb,0.71578e+02_rb,0.51811e+02_rb /)\n      kbo(:, 5,38,13) = (/ &\n        & 0.28592e+02_rb,0.52564e+02_rb,0.68973e+02_rb,0.74653e+02_rb,0.55000e+02_rb /)\n      kbo(:, 1,39,13) = (/ &\n        & 0.14788e+02_rb,0.38557e+02_rb,0.53339e+02_rb,0.59493e+02_rb,0.41232e+02_rb /)\n      kbo(:, 2,39,13) = (/ &\n        & 0.17725e+02_rb,0.42239e+02_rb,0.57643e+02_rb,0.63735e+02_rb,0.44689e+02_rb /)\n      kbo(:, 3,39,13) = (/ &\n        & 0.20936e+02_rb,0.45800e+02_rb,0.61629e+02_rb,0.67599e+02_rb,0.48036e+02_rb /)\n      kbo(:, 4,39,13) = (/ &\n        & 0.24393e+02_rb,0.49102e+02_rb,0.65258e+02_rb,0.71089e+02_rb,0.51322e+02_rb /)\n      kbo(:, 5,39,13) = (/ &\n        & 0.28020e+02_rb,0.52130e+02_rb,0.68507e+02_rb,0.74225e+02_rb,0.54528e+02_rb /)\n      kbo(:, 1,40,13) = (/ &\n        & 0.14035e+02_rb,0.37576e+02_rb,0.52178e+02_rb,0.58374e+02_rb,0.40328e+02_rb /)\n      kbo(:, 2,40,13) = (/ &\n        & 0.16933e+02_rb,0.41290e+02_rb,0.56557e+02_rb,0.62694e+02_rb,0.43829e+02_rb /)\n      kbo(:, 3,40,13) = (/ &\n        & 0.20073e+02_rb,0.44909e+02_rb,0.60638e+02_rb,0.66668e+02_rb,0.47203e+02_rb /)\n      kbo(:, 4,40,13) = (/ &\n        & 0.23486e+02_rb,0.48287e+02_rb,0.64365e+02_rb,0.70250e+02_rb,0.50504e+02_rb /)\n      kbo(:, 5,40,13) = (/ &\n        & 0.27084e+02_rb,0.51393e+02_rb,0.67719e+02_rb,0.73485e+02_rb,0.53736e+02_rb /)\n      kbo(:, 1,41,13) = (/ &\n        & 0.13270e+02_rb,0.36551e+02_rb,0.50952e+02_rb,0.57187e+02_rb,0.39381e+02_rb /)\n      kbo(:, 2,41,13) = (/ &\n        & 0.16132e+02_rb,0.40293e+02_rb,0.55396e+02_rb,0.61573e+02_rb,0.42921e+02_rb /)\n      kbo(:, 3,41,13) = (/ &\n        & 0.19195e+02_rb,0.43957e+02_rb,0.59575e+02_rb,0.65658e+02_rb,0.46320e+02_rb /)\n      kbo(:, 4,41,13) = (/ &\n        & 0.22552e+02_rb,0.47415e+02_rb,0.63413e+02_rb,0.69340e+02_rb,0.49639e+02_rb /)\n      kbo(:, 5,41,13) = (/ &\n        & 0.26115e+02_rb,0.50603e+02_rb,0.66868e+02_rb,0.72675e+02_rb,0.52897e+02_rb /)\n      kbo(:, 1,42,13) = (/ &\n        & 0.12533e+02_rb,0.35537e+02_rb,0.49715e+02_rb,0.55979e+02_rb,0.38430e+02_rb /)\n      kbo(:, 2,42,13) = (/ &\n        & 0.15340e+02_rb,0.39292e+02_rb,0.54229e+02_rb,0.60445e+02_rb,0.42004e+02_rb /)\n      kbo(:, 3,42,13) = (/ &\n        & 0.18342e+02_rb,0.42991e+02_rb,0.58494e+02_rb,0.64631e+02_rb,0.45437e+02_rb /)\n      kbo(:, 4,42,13) = (/ &\n        & 0.21634e+02_rb,0.46527e+02_rb,0.62435e+02_rb,0.68417e+02_rb,0.48777e+02_rb /)\n      kbo(:, 5,42,13) = (/ &\n        & 0.25154e+02_rb,0.49791e+02_rb,0.65989e+02_rb,0.71836e+02_rb,0.52054e+02_rb /)\n      kbo(:, 1,43,13) = (/ &\n        & 0.11668e+02_rb,0.34309e+02_rb,0.48203e+02_rb,0.54498e+02_rb,0.37270e+02_rb /)\n      kbo(:, 2,43,13) = (/ &\n        & 0.14402e+02_rb,0.38082e+02_rb,0.52797e+02_rb,0.59048e+02_rb,0.40873e+02_rb /)\n      kbo(:, 3,43,13) = (/ &\n        & 0.17344e+02_rb,0.41812e+02_rb,0.57160e+02_rb,0.63341e+02_rb,0.44355e+02_rb /)\n      kbo(:, 4,43,13) = (/ &\n        & 0.20545e+02_rb,0.45427e+02_rb,0.61209e+02_rb,0.67260e+02_rb,0.47724e+02_rb /)\n      kbo(:, 5,43,13) = (/ &\n        & 0.24007e+02_rb,0.48779e+02_rb,0.64893e+02_rb,0.70794e+02_rb,0.51019e+02_rb /)\n      kbo(:, 1,44,13) = (/ &\n        & 0.10777e+02_rb,0.32982e+02_rb,0.46555e+02_rb,0.52865e+02_rb,0.36017e+02_rb /)\n      kbo(:, 2,44,13) = (/ &\n        & 0.13422e+02_rb,0.36774e+02_rb,0.51234e+02_rb,0.57518e+02_rb,0.39647e+02_rb /)\n      kbo(:, 3,44,13) = (/ &\n        & 0.16301e+02_rb,0.40529e+02_rb,0.55688e+02_rb,0.61909e+02_rb,0.43184e+02_rb /)\n      kbo(:, 4,44,13) = (/ &\n        & 0.19410e+02_rb,0.44205e+02_rb,0.59841e+02_rb,0.65956e+02_rb,0.46575e+02_rb /)\n      kbo(:, 5,44,13) = (/ &\n        & 0.22792e+02_rb,0.47657e+02_rb,0.63668e+02_rb,0.69623e+02_rb,0.49898e+02_rb /)\n      kbo(:, 1,45,13) = (/ &\n        & 0.99376e+01_rb,0.31658e+02_rb,0.44891e+02_rb,0.51201e+02_rb,0.34758e+02_rb /)\n      kbo(:, 2,45,13) = (/ &\n        & 0.12468e+02_rb,0.35468e+02_rb,0.49648e+02_rb,0.55955e+02_rb,0.38412e+02_rb /)\n      kbo(:, 3,45,13) = (/ &\n        & 0.15282e+02_rb,0.39240e+02_rb,0.54182e+02_rb,0.60441e+02_rb,0.41991e+02_rb /)\n      kbo(:, 4,45,13) = (/ &\n        & 0.18307e+02_rb,0.42958e+02_rb,0.58447e+02_rb,0.64617e+02_rb,0.45427e+02_rb /)\n      kbo(:, 5,45,13) = (/ &\n        & 0.21602e+02_rb,0.46508e+02_rb,0.62404e+02_rb,0.68417e+02_rb,0.48775e+02_rb /)\n      kbo(:, 1,46,13) = (/ &\n        & 0.90997e+01_rb,0.30250e+02_rb,0.43114e+02_rb,0.49420e+02_rb,0.33417e+02_rb /)\n      kbo(:, 2,46,13) = (/ &\n        & 0.11497e+02_rb,0.34076e+02_rb,0.47932e+02_rb,0.54263e+02_rb,0.37087e+02_rb /)\n      kbo(:, 3,46,13) = (/ &\n        & 0.14229e+02_rb,0.37865e+02_rb,0.52547e+02_rb,0.58836e+02_rb,0.40705e+02_rb /)\n      kbo(:, 4,46,13) = (/ &\n        & 0.17178e+02_rb,0.41613e+02_rb,0.56930e+02_rb,0.63142e+02_rb,0.44193e+02_rb /)\n      kbo(:, 5,46,13) = (/ &\n        & 0.20366e+02_rb,0.45251e+02_rb,0.61008e+02_rb,0.67091e+02_rb,0.47569e+02_rb /)\n      kbo(:, 1,47,13) = (/ &\n        & 0.82326e+01_rb,0.28698e+02_rb,0.41131e+02_rb,0.47406e+02_rb,0.31895e+02_rb /)\n      kbo(:, 2,47,13) = (/ &\n        & 0.10467e+02_rb,0.32516e+02_rb,0.45987e+02_rb,0.52322e+02_rb,0.35605e+02_rb /)\n      kbo(:, 3,47,13) = (/ &\n        & 0.13084e+02_rb,0.36324e+02_rb,0.50700e+02_rb,0.57015e+02_rb,0.39250e+02_rb /)\n      kbo(:, 4,47,13) = (/ &\n        & 0.15956e+02_rb,0.40097e+02_rb,0.55181e+02_rb,0.61437e+02_rb,0.42802e+02_rb /)\n      kbo(:, 5,47,13) = (/ &\n        & 0.19031e+02_rb,0.43799e+02_rb,0.59396e+02_rb,0.65543e+02_rb,0.46212e+02_rb /)\n      kbo(:, 1,48,13) = (/ &\n        & 0.74393e+01_rb,0.27161e+02_rb,0.39157e+02_rb,0.45343e+02_rb,0.30350e+02_rb /)\n      kbo(:, 2,48,13) = (/ &\n        & 0.95049e+01_rb,0.30953e+02_rb,0.44020e+02_rb,0.50347e+02_rb,0.34113e+02_rb /)\n      kbo(:, 3,48,13) = (/ &\n        & 0.11978e+02_rb,0.34782e+02_rb,0.48813e+02_rb,0.55151e+02_rb,0.37782e+02_rb /)\n      kbo(:, 4,48,13) = (/ &\n        & 0.14764e+02_rb,0.38570e+02_rb,0.53387e+02_rb,0.59681e+02_rb,0.41384e+02_rb /)\n      kbo(:, 5,48,13) = (/ &\n        & 0.17748e+02_rb,0.42312e+02_rb,0.57728e+02_rb,0.63933e+02_rb,0.44844e+02_rb /)\n      kbo(:, 1,49,13) = (/ &\n        & 0.67167e+01_rb,0.25650e+02_rb,0.37197e+02_rb,0.43247e+02_rb,0.28796e+02_rb /)\n      kbo(:, 2,49,13) = (/ &\n        & 0.86101e+01_rb,0.29402e+02_rb,0.42045e+02_rb,0.48354e+02_rb,0.32610e+02_rb /)\n      kbo(:, 3,49,13) = (/ &\n        & 0.10926e+02_rb,0.33234e+02_rb,0.46891e+02_rb,0.53243e+02_rb,0.36305e+02_rb /)\n      kbo(:, 4,49,13) = (/ &\n        & 0.13605e+02_rb,0.37035e+02_rb,0.51562e+02_rb,0.57884e+02_rb,0.39936e+02_rb /)\n      kbo(:, 5,49,13) = (/ &\n        & 0.16513e+02_rb,0.40804e+02_rb,0.56010e+02_rb,0.62260e+02_rb,0.43466e+02_rb /)\n      kbo(:, 1,50,13) = (/ &\n        & 0.60927e+01_rb,0.24264e+02_rb,0.35366e+02_rb,0.41271e+02_rb,0.27331e+02_rb /)\n      kbo(:, 2,50,13) = (/ &\n        & 0.78376e+01_rb,0.27958e+02_rb,0.40194e+02_rb,0.46451e+02_rb,0.31176e+02_rb /)\n      kbo(:, 3,50,13) = (/ &\n        & 0.99975e+01_rb,0.31777e+02_rb,0.45061e+02_rb,0.51408e+02_rb,0.34914e+02_rb /)\n      kbo(:, 4,50,13) = (/ &\n        & 0.12552e+02_rb,0.35595e+02_rb,0.49816e+02_rb,0.56159e+02_rb,0.38569e+02_rb /)\n      kbo(:, 5,50,13) = (/ &\n        & 0.15384e+02_rb,0.39379e+02_rb,0.54352e+02_rb,0.60637e+02_rb,0.42153e+02_rb /)\n      kbo(:, 1,51,13) = (/ &\n        & 0.55303e+01_rb,0.22951e+02_rb,0.33599e+02_rb,0.39341e+02_rb,0.25901e+02_rb /)\n      kbo(:, 2,51,13) = (/ &\n        & 0.71468e+01_rb,0.26574e+02_rb,0.38412e+02_rb,0.44565e+02_rb,0.29771e+02_rb /)\n      kbo(:, 3,51,13) = (/ &\n        & 0.91530e+01_rb,0.30360e+02_rb,0.43274e+02_rb,0.49608e+02_rb,0.33559e+02_rb /)\n      kbo(:, 4,51,13) = (/ &\n        & 0.11570e+02_rb,0.34196e+02_rb,0.48091e+02_rb,0.54457e+02_rb,0.37233e+02_rb /)\n      kbo(:, 5,51,13) = (/ &\n        & 0.14322e+02_rb,0.37996e+02_rb,0.52708e+02_rb,0.59018e+02_rb,0.40851e+02_rb /)\n      kbo(:, 1,52,13) = (/ &\n        & 0.50134e+01_rb,0.21673e+02_rb,0.31833e+02_rb,0.37382e+02_rb,0.24463e+02_rb /)\n      kbo(:, 2,52,13) = (/ &\n        & 0.65135e+01_rb,0.25216e+02_rb,0.36639e+02_rb,0.42658e+02_rb,0.28359e+02_rb /)\n      kbo(:, 3,52,13) = (/ &\n        & 0.83642e+01_rb,0.28959e+02_rb,0.41485e+02_rb,0.47797e+02_rb,0.32187e+02_rb /)\n      kbo(:, 4,52,13) = (/ &\n        & 0.10636e+02_rb,0.32789e+02_rb,0.46344e+02_rb,0.52709e+02_rb,0.35895e+02_rb /)\n      kbo(:, 5,52,13) = (/ &\n        & 0.13285e+02_rb,0.36604e+02_rb,0.51047e+02_rb,0.57380e+02_rb,0.39540e+02_rb /)\n      kbo(:, 1,53,13) = (/ &\n        & 0.45376e+01_rb,0.20438e+02_rb,0.30067e+02_rb,0.35396e+02_rb,0.23001e+02_rb /)\n      kbo(:, 2,53,13) = (/ &\n        & 0.59241e+01_rb,0.23884e+02_rb,0.34872e+02_rb,0.40744e+02_rb,0.26941e+02_rb /)\n      kbo(:, 3,53,13) = (/ &\n        & 0.76354e+01_rb,0.27568e+02_rb,0.39698e+02_rb,0.45939e+02_rb,0.30794e+02_rb /)\n      kbo(:, 4,53,13) = (/ &\n        & 0.97536e+01_rb,0.31378e+02_rb,0.44569e+02_rb,0.50924e+02_rb,0.34545e+02_rb /)\n      kbo(:, 5,53,13) = (/ &\n        & 0.12275e+02_rb,0.35210e+02_rb,0.49348e+02_rb,0.55701e+02_rb,0.38212e+02_rb /)\n      kbo(:, 1,54,13) = (/ &\n        & 0.41389e+01_rb,0.19353e+02_rb,0.28454e+02_rb,0.33563e+02_rb,0.21647e+02_rb /)\n      kbo(:, 2,54,13) = (/ &\n        & 0.54194e+01_rb,0.22692e+02_rb,0.33259e+02_rb,0.38976e+02_rb,0.25632e+02_rb /)\n      kbo(:, 3,54,13) = (/ &\n        & 0.70164e+01_rb,0.26307e+02_rb,0.38072e+02_rb,0.44208e+02_rb,0.29508e+02_rb /)\n      kbo(:, 4,54,13) = (/ &\n        & 0.89936e+01_rb,0.30086e+02_rb,0.42934e+02_rb,0.49276e+02_rb,0.33306e+02_rb /)\n      kbo(:, 5,54,13) = (/ &\n        & 0.11387e+02_rb,0.33931e+02_rb,0.47765e+02_rb,0.54132e+02_rb,0.36987e+02_rb /)\n      kbo(:, 1,55,13) = (/ &\n        & 0.37927e+01_rb,0.18358e+02_rb,0.26927e+02_rb,0.31801e+02_rb,0.20350e+02_rb /)\n      kbo(:, 2,55,13) = (/ &\n        & 0.49755e+01_rb,0.21582e+02_rb,0.31711e+02_rb,0.37250e+02_rb,0.24368e+02_rb /)\n      kbo(:, 3,55,13) = (/ &\n        & 0.64669e+01_rb,0.25119e+02_rb,0.36517e+02_rb,0.42532e+02_rb,0.28268e+02_rb /)\n      kbo(:, 4,55,13) = (/ &\n        & 0.83082e+01_rb,0.28857e+02_rb,0.41362e+02_rb,0.47679e+02_rb,0.32095e+02_rb /)\n      kbo(:, 5,55,13) = (/ &\n        & 0.10573e+02_rb,0.32695e+02_rb,0.46225e+02_rb,0.52593e+02_rb,0.35810e+02_rb /)\n      kbo(:, 1,56,13) = (/ &\n        & 0.34680e+01_rb,0.17374e+02_rb,0.25413e+02_rb,0.30039e+02_rb,0.19069e+02_rb /)\n      kbo(:, 2,56,13) = (/ &\n        & 0.45601e+01_rb,0.20503e+02_rb,0.30163e+02_rb,0.35509e+02_rb,0.23088e+02_rb /)\n      kbo(:, 3,56,13) = (/ &\n        & 0.59518e+01_rb,0.23956e+02_rb,0.34971e+02_rb,0.40858e+02_rb,0.27027e+02_rb /)\n      kbo(:, 4,56,13) = (/ &\n        & 0.76711e+01_rb,0.27642e+02_rb,0.39801e+02_rb,0.46057e+02_rb,0.30878e+02_rb /)\n      kbo(:, 5,56,13) = (/ &\n        & 0.98017e+01_rb,0.31462e+02_rb,0.44674e+02_rb,0.51031e+02_rb,0.34630e+02_rb /)\n      kbo(:, 1,57,13) = (/ &\n        & 0.31571e+01_rb,0.16389e+02_rb,0.23903e+02_rb,0.28270e+02_rb,0.17802e+02_rb /)\n      kbo(:, 2,57,13) = (/ &\n        & 0.41775e+01_rb,0.19466e+02_rb,0.28628e+02_rb,0.33765e+02_rb,0.21796e+02_rb /)\n      kbo(:, 3,57,13) = (/ &\n        & 0.54676e+01_rb,0.22817e+02_rb,0.33433e+02_rb,0.39170e+02_rb,0.25777e+02_rb /)\n      kbo(:, 4,57,13) = (/ &\n        & 0.70767e+01_rb,0.26436e+02_rb,0.38248e+02_rb,0.44404e+02_rb,0.29650e+02_rb /)\n      kbo(:, 5,57,13) = (/ &\n        & 0.90728e+01_rb,0.30224e+02_rb,0.43110e+02_rb,0.49455e+02_rb,0.33445e+02_rb /)\n      kbo(:, 1,58,13) = (/ &\n        & 0.28749e+01_rb,0.15464e+02_rb,0.22485e+02_rb,0.26596e+02_rb,0.16612e+02_rb /)\n      kbo(:, 2,58,13) = (/ &\n        & 0.38438e+01_rb,0.18517e+02_rb,0.27179e+02_rb,0.32099e+02_rb,0.20568e+02_rb /)\n      kbo(:, 3,58,13) = (/ &\n        & 0.50410e+01_rb,0.21758e+02_rb,0.31967e+02_rb,0.37546e+02_rb,0.24584e+02_rb /)\n      kbo(:, 4,58,13) = (/ &\n        & 0.65535e+01_rb,0.25311e+02_rb,0.36779e+02_rb,0.42823e+02_rb,0.28478e+02_rb /)\n      kbo(:, 5,58,13) = (/ &\n        & 0.84187e+01_rb,0.29065e+02_rb,0.41628e+02_rb,0.47951e+02_rb,0.32304e+02_rb /)\n      kbo(:, 1,59,13) = (/ &\n        & 0.27657e+01_rb,0.15098e+02_rb,0.21927e+02_rb,0.25930e+02_rb,0.16137e+02_rb /)\n      kbo(:, 2,59,13) = (/ &\n        & 0.37163e+01_rb,0.18141e+02_rb,0.26603e+02_rb,0.31433e+02_rb,0.20078e+02_rb /)\n      kbo(:, 3,59,13) = (/ &\n        & 0.48770e+01_rb,0.21342e+02_rb,0.31379e+02_rb,0.36884e+02_rb,0.24100e+02_rb /)\n      kbo(:, 4,59,13) = (/ &\n        & 0.63518e+01_rb,0.24865e+02_rb,0.36188e+02_rb,0.42182e+02_rb,0.28007e+02_rb /)\n      kbo(:, 5,59,13) = (/ &\n        & 0.81684e+01_rb,0.28600e+02_rb,0.41035e+02_rb,0.47343e+02_rb,0.31847e+02_rb /)\n      kbo(:, 1,13,14) = (/ &\n        & 0.20563e+03_rb,0.16395e+03_rb,0.15131e+03_rb,0.13928e+03_rb,0.17336e+03_rb /)\n      kbo(:, 2,13,14) = (/ &\n        & 0.20583e+03_rb,0.16346e+03_rb,0.15102e+03_rb,0.13867e+03_rb,0.17209e+03_rb /)\n      kbo(:, 3,13,14) = (/ &\n        & 0.20579e+03_rb,0.16282e+03_rb,0.15051e+03_rb,0.13803e+03_rb,0.17119e+03_rb /)\n      kbo(:, 4,13,14) = (/ &\n        & 0.20538e+03_rb,0.16198e+03_rb,0.15005e+03_rb,0.13746e+03_rb,0.17062e+03_rb /)\n      kbo(:, 5,13,14) = (/ &\n        & 0.20471e+03_rb,0.16100e+03_rb,0.14942e+03_rb,0.13685e+03_rb,0.16998e+03_rb /)\n      kbo(:, 1,14,14) = (/ &\n        & 0.21387e+03_rb,0.17486e+03_rb,0.16410e+03_rb,0.14896e+03_rb,0.17926e+03_rb /)\n      kbo(:, 2,14,14) = (/ &\n        & 0.21398e+03_rb,0.17407e+03_rb,0.16354e+03_rb,0.14849e+03_rb,0.17872e+03_rb /)\n      kbo(:, 3,14,14) = (/ &\n        & 0.21371e+03_rb,0.17306e+03_rb,0.16300e+03_rb,0.14796e+03_rb,0.17838e+03_rb /)\n      kbo(:, 4,14,14) = (/ &\n        & 0.21320e+03_rb,0.17193e+03_rb,0.16238e+03_rb,0.14748e+03_rb,0.17807e+03_rb /)\n      kbo(:, 5,14,14) = (/ &\n        & 0.21239e+03_rb,0.17062e+03_rb,0.16158e+03_rb,0.14661e+03_rb,0.17726e+03_rb /)\n      kbo(:, 1,15,14) = (/ &\n        & 0.21868e+03_rb,0.18392e+03_rb,0.17597e+03_rb,0.15877e+03_rb,0.18409e+03_rb /)\n      kbo(:, 2,15,14) = (/ &\n        & 0.21861e+03_rb,0.18285e+03_rb,0.17533e+03_rb,0.15845e+03_rb,0.18413e+03_rb /)\n      kbo(:, 3,15,14) = (/ &\n        & 0.21838e+03_rb,0.18168e+03_rb,0.17469e+03_rb,0.15814e+03_rb,0.18423e+03_rb /)\n      kbo(:, 4,15,14) = (/ &\n        & 0.21785e+03_rb,0.18028e+03_rb,0.17392e+03_rb,0.15747e+03_rb,0.18391e+03_rb /)\n      kbo(:, 5,15,14) = (/ &\n        & 0.21714e+03_rb,0.17881e+03_rb,0.17281e+03_rb,0.15644e+03_rb,0.18337e+03_rb /)\n      kbo(:, 1,16,14) = (/ &\n        & 0.21989e+03_rb,0.19090e+03_rb,0.18666e+03_rb,0.16823e+03_rb,0.18717e+03_rb /)\n      kbo(:, 2,16,14) = (/ &\n        & 0.22000e+03_rb,0.18989e+03_rb,0.18604e+03_rb,0.16822e+03_rb,0.18797e+03_rb /)\n      kbo(:, 3,16,14) = (/ &\n        & 0.21982e+03_rb,0.18856e+03_rb,0.18533e+03_rb,0.16794e+03_rb,0.18851e+03_rb /)\n      kbo(:, 4,16,14) = (/ &\n        & 0.21954e+03_rb,0.18709e+03_rb,0.18432e+03_rb,0.16715e+03_rb,0.18854e+03_rb /)\n      kbo(:, 5,16,14) = (/ &\n        & 0.21898e+03_rb,0.18542e+03_rb,0.18303e+03_rb,0.16600e+03_rb,0.18839e+03_rb /)\n      kbo(:, 1,17,14) = (/ &\n        & 0.21793e+03_rb,0.19596e+03_rb,0.19603e+03_rb,0.17703e+03_rb,0.18857e+03_rb /)\n      kbo(:, 2,17,14) = (/ &\n        & 0.21821e+03_rb,0.19492e+03_rb,0.19548e+03_rb,0.17725e+03_rb,0.19023e+03_rb /)\n      kbo(:, 3,17,14) = (/ &\n        & 0.21850e+03_rb,0.19369e+03_rb,0.19462e+03_rb,0.17701e+03_rb,0.19133e+03_rb /)\n      kbo(:, 4,17,14) = (/ &\n        & 0.21855e+03_rb,0.19221e+03_rb,0.19343e+03_rb,0.17616e+03_rb,0.19194e+03_rb /)\n      kbo(:, 5,17,14) = (/ &\n        & 0.21839e+03_rb,0.19057e+03_rb,0.19206e+03_rb,0.17490e+03_rb,0.19225e+03_rb /)\n      kbo(:, 1,18,14) = (/ &\n        & 0.21311e+03_rb,0.19935e+03_rb,0.20385e+03_rb,0.18492e+03_rb,0.18864e+03_rb /)\n      kbo(:, 2,18,14) = (/ &\n        & 0.21399e+03_rb,0.19838e+03_rb,0.20339e+03_rb,0.18536e+03_rb,0.19117e+03_rb /)\n      kbo(:, 3,18,14) = (/ &\n        & 0.21477e+03_rb,0.19727e+03_rb,0.20251e+03_rb,0.18517e+03_rb,0.19296e+03_rb /)\n      kbo(:, 4,18,14) = (/ &\n        & 0.21537e+03_rb,0.19602e+03_rb,0.20131e+03_rb,0.18433e+03_rb,0.19426e+03_rb /)\n      kbo(:, 5,18,14) = (/ &\n        & 0.21594e+03_rb,0.19460e+03_rb,0.19989e+03_rb,0.18299e+03_rb,0.19511e+03_rb /)\n      kbo(:, 1,19,14) = (/ &\n        & 0.20628e+03_rb,0.20131e+03_rb,0.21018e+03_rb,0.19181e+03_rb,0.18780e+03_rb /)\n      kbo(:, 2,19,14) = (/ &\n        & 0.20786e+03_rb,0.20061e+03_rb,0.20985e+03_rb,0.19249e+03_rb,0.19117e+03_rb /)\n      kbo(:, 3,19,14) = (/ &\n        & 0.20939e+03_rb,0.19978e+03_rb,0.20915e+03_rb,0.19245e+03_rb,0.19379e+03_rb /)\n      kbo(:, 4,19,14) = (/ &\n        & 0.21078e+03_rb,0.19876e+03_rb,0.20808e+03_rb,0.19159e+03_rb,0.19578e+03_rb /)\n      kbo(:, 5,19,14) = (/ &\n        & 0.21196e+03_rb,0.19762e+03_rb,0.20666e+03_rb,0.19020e+03_rb,0.19726e+03_rb /)\n      kbo(:, 1,20,14) = (/ &\n        & 0.19806e+03_rb,0.20215e+03_rb,0.21525e+03_rb,0.19781e+03_rb,0.18646e+03_rb /)\n      kbo(:, 2,20,14) = (/ &\n        & 0.20054e+03_rb,0.20180e+03_rb,0.21527e+03_rb,0.19874e+03_rb,0.19072e+03_rb /)\n      kbo(:, 3,20,14) = (/ &\n        & 0.20298e+03_rb,0.20132e+03_rb,0.21478e+03_rb,0.19877e+03_rb,0.19413e+03_rb /)\n      kbo(:, 4,20,14) = (/ &\n        & 0.20522e+03_rb,0.20070e+03_rb,0.21384e+03_rb,0.19793e+03_rb,0.19681e+03_rb /)\n      kbo(:, 5,20,14) = (/ &\n        & 0.20725e+03_rb,0.19975e+03_rb,0.21249e+03_rb,0.19659e+03_rb,0.19899e+03_rb /)\n      kbo(:, 1,21,14) = (/ &\n        & 0.18919e+03_rb,0.20217e+03_rb,0.21942e+03_rb,0.20291e+03_rb,0.18499e+03_rb /)\n      kbo(:, 2,21,14) = (/ &\n        & 0.19268e+03_rb,0.20239e+03_rb,0.21974e+03_rb,0.20415e+03_rb,0.19012e+03_rb /)\n      kbo(:, 3,21,14) = (/ &\n        & 0.19609e+03_rb,0.20231e+03_rb,0.21947e+03_rb,0.20425e+03_rb,0.19432e+03_rb /)\n      kbo(:, 4,21,14) = (/ &\n        & 0.19926e+03_rb,0.20201e+03_rb,0.21866e+03_rb,0.20346e+03_rb,0.19770e+03_rb /)\n      kbo(:, 5,21,14) = (/ &\n        & 0.20224e+03_rb,0.20136e+03_rb,0.21742e+03_rb,0.20212e+03_rb,0.20044e+03_rb /)\n      kbo(:, 1,22,14) = (/ &\n        & 0.18064e+03_rb,0.20182e+03_rb,0.22276e+03_rb,0.20740e+03_rb,0.18409e+03_rb /)\n      kbo(:, 2,22,14) = (/ &\n        & 0.18513e+03_rb,0.20253e+03_rb,0.22341e+03_rb,0.20876e+03_rb,0.18988e+03_rb /)\n      kbo(:, 3,22,14) = (/ &\n        & 0.18951e+03_rb,0.20287e+03_rb,0.22329e+03_rb,0.20890e+03_rb,0.19474e+03_rb /)\n      kbo(:, 4,22,14) = (/ &\n        & 0.19368e+03_rb,0.20283e+03_rb,0.22259e+03_rb,0.20812e+03_rb,0.19869e+03_rb /)\n      kbo(:, 5,22,14) = (/ &\n        & 0.19752e+03_rb,0.20248e+03_rb,0.22143e+03_rb,0.20676e+03_rb,0.20185e+03_rb /)\n      kbo(:, 1,23,14) = (/ &\n        & 0.17261e+03_rb,0.20129e+03_rb,0.22560e+03_rb,0.21126e+03_rb,0.18360e+03_rb /)\n      kbo(:, 2,23,14) = (/ &\n        & 0.17813e+03_rb,0.20255e+03_rb,0.22645e+03_rb,0.21277e+03_rb,0.18993e+03_rb /)\n      kbo(:, 3,23,14) = (/ &\n        & 0.18347e+03_rb,0.20322e+03_rb,0.22649e+03_rb,0.21288e+03_rb,0.19534e+03_rb /)\n      kbo(:, 4,23,14) = (/ &\n        & 0.18858e+03_rb,0.20345e+03_rb,0.22593e+03_rb,0.21211e+03_rb,0.19972e+03_rb /)\n      kbo(:, 5,23,14) = (/ &\n        & 0.19325e+03_rb,0.20330e+03_rb,0.22470e+03_rb,0.21066e+03_rb,0.20314e+03_rb /)\n      kbo(:, 1,24,14) = (/ &\n        & 0.16550e+03_rb,0.20079e+03_rb,0.22797e+03_rb,0.21459e+03_rb,0.18352e+03_rb /)\n      kbo(:, 2,24,14) = (/ &\n        & 0.17199e+03_rb,0.20247e+03_rb,0.22899e+03_rb,0.21614e+03_rb,0.19031e+03_rb /)\n      kbo(:, 3,24,14) = (/ &\n        & 0.17829e+03_rb,0.20349e+03_rb,0.22920e+03_rb,0.21621e+03_rb,0.19610e+03_rb /)\n      kbo(:, 4,24,14) = (/ &\n        & 0.18424e+03_rb,0.20395e+03_rb,0.22865e+03_rb,0.21544e+03_rb,0.20080e+03_rb /)\n      kbo(:, 5,24,14) = (/ &\n        & 0.18966e+03_rb,0.20393e+03_rb,0.22735e+03_rb,0.21388e+03_rb,0.20437e+03_rb /)\n      kbo(:, 1,25,14) = (/ &\n        & 0.15949e+03_rb,0.20048e+03_rb,0.22999e+03_rb,0.21758e+03_rb,0.18395e+03_rb /)\n      kbo(:, 2,25,14) = (/ &\n        & 0.16698e+03_rb,0.20247e+03_rb,0.23119e+03_rb,0.21903e+03_rb,0.19108e+03_rb /)\n      kbo(:, 3,25,14) = (/ &\n        & 0.17411e+03_rb,0.20370e+03_rb,0.23144e+03_rb,0.21904e+03_rb,0.19711e+03_rb /)\n      kbo(:, 4,25,14) = (/ &\n        & 0.18088e+03_rb,0.20435e+03_rb,0.23082e+03_rb,0.21817e+03_rb,0.20192e+03_rb /)\n      kbo(:, 5,25,14) = (/ &\n        & 0.18710e+03_rb,0.20450e+03_rb,0.22950e+03_rb,0.21648e+03_rb,0.20559e+03_rb /)\n      kbo(:, 1,26,14) = (/ &\n        & 0.15479e+03_rb,0.20038e+03_rb,0.23181e+03_rb,0.22016e+03_rb,0.18490e+03_rb /)\n      kbo(:, 2,26,14) = (/ &\n        & 0.16322e+03_rb,0.20258e+03_rb,0.23307e+03_rb,0.22145e+03_rb,0.19222e+03_rb /)\n      kbo(:, 3,26,14) = (/ &\n        & 0.17119e+03_rb,0.20401e+03_rb,0.23326e+03_rb,0.22140e+03_rb,0.19831e+03_rb /)\n      kbo(:, 4,26,14) = (/ &\n        & 0.17866e+03_rb,0.20478e+03_rb,0.23259e+03_rb,0.22038e+03_rb,0.20315e+03_rb /)\n      kbo(:, 5,26,14) = (/ &\n        & 0.18553e+03_rb,0.20498e+03_rb,0.23122e+03_rb,0.21854e+03_rb,0.20685e+03_rb /)\n      kbo(:, 1,27,14) = (/ &\n        & 0.15143e+03_rb,0.20049e+03_rb,0.23344e+03_rb,0.22241e+03_rb,0.18615e+03_rb /)\n      kbo(:, 2,27,14) = (/ &\n        & 0.16070e+03_rb,0.20279e+03_rb,0.23465e+03_rb,0.22352e+03_rb,0.19353e+03_rb /)\n      kbo(:, 3,27,14) = (/ &\n        & 0.16932e+03_rb,0.20430e+03_rb,0.23473e+03_rb,0.22331e+03_rb,0.19960e+03_rb /)\n      kbo(:, 4,27,14) = (/ &\n        & 0.17737e+03_rb,0.20518e+03_rb,0.23402e+03_rb,0.22212e+03_rb,0.20440e+03_rb /)\n      kbo(:, 5,27,14) = (/ &\n        & 0.18472e+03_rb,0.20537e+03_rb,0.23257e+03_rb,0.22015e+03_rb,0.20807e+03_rb /)\n      kbo(:, 1,28,14) = (/ &\n        & 0.14935e+03_rb,0.20078e+03_rb,0.23487e+03_rb,0.22436e+03_rb,0.18762e+03_rb /)\n      kbo(:, 2,28,14) = (/ &\n        & 0.15926e+03_rb,0.20312e+03_rb,0.23597e+03_rb,0.22523e+03_rb,0.19491e+03_rb /)\n      kbo(:, 3,28,14) = (/ &\n        & 0.16839e+03_rb,0.20467e+03_rb,0.23597e+03_rb,0.22484e+03_rb,0.20092e+03_rb /)\n      kbo(:, 4,28,14) = (/ &\n        & 0.17687e+03_rb,0.20554e+03_rb,0.23516e+03_rb,0.22345e+03_rb,0.20562e+03_rb /)\n      kbo(:, 5,28,14) = (/ &\n        & 0.18453e+03_rb,0.20570e+03_rb,0.23357e+03_rb,0.22135e+03_rb,0.20921e+03_rb /)\n      kbo(:, 1,29,14) = (/ &\n        & 0.14844e+03_rb,0.20117e+03_rb,0.23614e+03_rb,0.22601e+03_rb,0.18927e+03_rb /)\n      kbo(:, 2,29,14) = (/ &\n        & 0.15878e+03_rb,0.20350e+03_rb,0.23707e+03_rb,0.22664e+03_rb,0.19642e+03_rb /)\n      kbo(:, 3,29,14) = (/ &\n        & 0.16829e+03_rb,0.20505e+03_rb,0.23696e+03_rb,0.22601e+03_rb,0.20229e+03_rb /)\n      kbo(:, 4,29,14) = (/ &\n        & 0.17702e+03_rb,0.20585e+03_rb,0.23602e+03_rb,0.22445e+03_rb,0.20685e+03_rb /)\n      kbo(:, 5,29,14) = (/ &\n        & 0.18487e+03_rb,0.20599e+03_rb,0.23430e+03_rb,0.22220e+03_rb,0.21031e+03_rb /)\n      kbo(:, 1,30,14) = (/ &\n        & 0.14841e+03_rb,0.20165e+03_rb,0.23724e+03_rb,0.22742e+03_rb,0.19101e+03_rb /)\n      kbo(:, 2,30,14) = (/ &\n        & 0.15903e+03_rb,0.20395e+03_rb,0.23798e+03_rb,0.22774e+03_rb,0.19796e+03_rb /)\n      kbo(:, 3,30,14) = (/ &\n        & 0.16878e+03_rb,0.20543e+03_rb,0.23774e+03_rb,0.22689e+03_rb,0.20367e+03_rb /)\n      kbo(:, 4,30,14) = (/ &\n        & 0.17765e+03_rb,0.20614e+03_rb,0.23662e+03_rb,0.22515e+03_rb,0.20804e+03_rb /)\n      kbo(:, 5,30,14) = (/ &\n        & 0.18556e+03_rb,0.20626e+03_rb,0.23478e+03_rb,0.22274e+03_rb,0.21133e+03_rb /)\n      kbo(:, 1,31,14) = (/ &\n        & 0.14910e+03_rb,0.20219e+03_rb,0.23816e+03_rb,0.22857e+03_rb,0.19280e+03_rb /)\n      kbo(:, 2,31,14) = (/ &\n        & 0.15987e+03_rb,0.20442e+03_rb,0.23873e+03_rb,0.22860e+03_rb,0.19955e+03_rb /)\n      kbo(:, 3,31,14) = (/ &\n        & 0.16974e+03_rb,0.20578e+03_rb,0.23830e+03_rb,0.22751e+03_rb,0.20503e+03_rb /)\n      kbo(:, 4,31,14) = (/ &\n        & 0.17870e+03_rb,0.20640e+03_rb,0.23703e+03_rb,0.22559e+03_rb,0.20917e+03_rb /)\n      kbo(:, 5,31,14) = (/ &\n        & 0.18656e+03_rb,0.20647e+03_rb,0.23504e+03_rb,0.22303e+03_rb,0.21232e+03_rb /)\n      kbo(:, 1,32,14) = (/ &\n        & 0.15031e+03_rb,0.20279e+03_rb,0.23897e+03_rb,0.22949e+03_rb,0.19459e+03_rb /)\n      kbo(:, 2,32,14) = (/ &\n        & 0.16119e+03_rb,0.20489e+03_rb,0.23931e+03_rb,0.22922e+03_rb,0.20113e+03_rb /)\n      kbo(:, 3,32,14) = (/ &\n        & 0.17110e+03_rb,0.20610e+03_rb,0.23869e+03_rb,0.22791e+03_rb,0.20634e+03_rb /)\n      kbo(:, 4,32,14) = (/ &\n        & 0.18002e+03_rb,0.20662e+03_rb,0.23723e+03_rb,0.22582e+03_rb,0.21029e+03_rb /)\n      kbo(:, 5,32,14) = (/ &\n        & 0.18777e+03_rb,0.20659e+03_rb,0.23510e+03_rb,0.22308e+03_rb,0.21322e+03_rb /)\n      kbo(:, 1,33,14) = (/ &\n        & 0.15197e+03_rb,0.20341e+03_rb,0.23965e+03_rb,0.23019e+03_rb,0.19639e+03_rb /)\n      kbo(:, 2,33,14) = (/ &\n        & 0.16285e+03_rb,0.20534e+03_rb,0.23976e+03_rb,0.22964e+03_rb,0.20267e+03_rb /)\n      kbo(:, 3,33,14) = (/ &\n        & 0.17270e+03_rb,0.20638e+03_rb,0.23893e+03_rb,0.22811e+03_rb,0.20758e+03_rb /)\n      kbo(:, 4,33,14) = (/ &\n        & 0.18151e+03_rb,0.20680e+03_rb,0.23727e+03_rb,0.22584e+03_rb,0.21132e+03_rb /)\n      kbo(:, 5,33,14) = (/ &\n        & 0.18912e+03_rb,0.20665e+03_rb,0.23500e+03_rb,0.22296e+03_rb,0.21406e+03_rb /)\n      kbo(:, 1,34,14) = (/ &\n        & 0.15352e+03_rb,0.20391e+03_rb,0.24014e+03_rb,0.23069e+03_rb,0.19790e+03_rb /)\n      kbo(:, 2,34,14) = (/ &\n        & 0.16437e+03_rb,0.20566e+03_rb,0.24006e+03_rb,0.22992e+03_rb,0.20396e+03_rb /)\n      kbo(:, 3,34,14) = (/ &\n        & 0.17416e+03_rb,0.20662e+03_rb,0.23907e+03_rb,0.22823e+03_rb,0.20863e+03_rb /)\n      kbo(:, 4,34,14) = (/ &\n        & 0.18285e+03_rb,0.20695e+03_rb,0.23728e+03_rb,0.22580e+03_rb,0.21218e+03_rb /)\n      kbo(:, 5,34,14) = (/ &\n        & 0.19033e+03_rb,0.20667e+03_rb,0.23487e+03_rb,0.22280e+03_rb,0.21474e+03_rb /)\n      kbo(:, 1,35,14) = (/ &\n        & 0.15421e+03_rb,0.20418e+03_rb,0.24052e+03_rb,0.23110e+03_rb,0.19876e+03_rb /)\n      kbo(:, 2,35,14) = (/ &\n        & 0.16507e+03_rb,0.20586e+03_rb,0.24033e+03_rb,0.23020e+03_rb,0.20468e+03_rb /)\n      kbo(:, 3,35,14) = (/ &\n        & 0.17486e+03_rb,0.20677e+03_rb,0.23924e+03_rb,0.22841e+03_rb,0.20923e+03_rb /)\n      kbo(:, 4,35,14) = (/ &\n        & 0.18350e+03_rb,0.20705e+03_rb,0.23737e+03_rb,0.22589e+03_rb,0.21269e+03_rb /)\n      kbo(:, 5,35,14) = (/ &\n        & 0.19094e+03_rb,0.20669e+03_rb,0.23489e+03_rb,0.22281e+03_rb,0.21514e+03_rb /)\n      kbo(:, 1,36,14) = (/ &\n        & 0.15381e+03_rb,0.20424e+03_rb,0.24080e+03_rb,0.23145e+03_rb,0.19888e+03_rb /)\n      kbo(:, 2,36,14) = (/ &\n        & 0.16478e+03_rb,0.20592e+03_rb,0.24060e+03_rb,0.23055e+03_rb,0.20484e+03_rb /)\n      kbo(:, 3,36,14) = (/ &\n        & 0.17464e+03_rb,0.20684e+03_rb,0.23950e+03_rb,0.22874e+03_rb,0.20938e+03_rb /)\n      kbo(:, 4,36,14) = (/ &\n        & 0.18336e+03_rb,0.20715e+03_rb,0.23762e+03_rb,0.22618e+03_rb,0.21284e+03_rb /)\n      kbo(:, 5,36,14) = (/ &\n        & 0.19086e+03_rb,0.20678e+03_rb,0.23514e+03_rb,0.22311e+03_rb,0.21532e+03_rb /)\n      kbo(:, 1,37,14) = (/ &\n        & 0.15177e+03_rb,0.20394e+03_rb,0.24096e+03_rb,0.23178e+03_rb,0.19802e+03_rb /)\n      kbo(:, 2,37,14) = (/ &\n        & 0.16298e+03_rb,0.20578e+03_rb,0.24091e+03_rb,0.23102e+03_rb,0.20416e+03_rb /)\n      kbo(:, 3,37,14) = (/ &\n        & 0.17307e+03_rb,0.20681e+03_rb,0.23994e+03_rb,0.22934e+03_rb,0.20893e+03_rb /)\n      kbo(:, 4,37,14) = (/ &\n        & 0.18204e+03_rb,0.20721e+03_rb,0.23818e+03_rb,0.22688e+03_rb,0.21255e+03_rb /)\n      kbo(:, 5,37,14) = (/ &\n        & 0.18973e+03_rb,0.20695e+03_rb,0.23573e+03_rb,0.22383e+03_rb,0.21516e+03_rb /)\n      kbo(:, 1,38,14) = (/ &\n        & 0.14968e+03_rb,0.20359e+03_rb,0.24104e+03_rb,0.23202e+03_rb,0.19703e+03_rb /)\n      kbo(:, 2,38,14) = (/ &\n        & 0.16113e+03_rb,0.20560e+03_rb,0.24116e+03_rb,0.23143e+03_rb,0.20341e+03_rb /)\n      kbo(:, 3,38,14) = (/ &\n        & 0.17144e+03_rb,0.20674e+03_rb,0.24033e+03_rb,0.22988e+03_rb,0.20838e+03_rb /)\n      kbo(:, 4,38,14) = (/ &\n        & 0.18063e+03_rb,0.20724e+03_rb,0.23866e+03_rb,0.22752e+03_rb,0.21216e+03_rb /)\n      kbo(:, 5,38,14) = (/ &\n        & 0.18855e+03_rb,0.20710e+03_rb,0.23632e+03_rb,0.22453e+03_rb,0.21493e+03_rb /)\n      kbo(:, 1,39,14) = (/ &\n        & 0.14764e+03_rb,0.20322e+03_rb,0.24106e+03_rb,0.23220e+03_rb,0.19604e+03_rb /)\n      kbo(:, 2,39,14) = (/ &\n        & 0.15932e+03_rb,0.20540e+03_rb,0.24137e+03_rb,0.23180e+03_rb,0.20262e+03_rb /)\n      kbo(:, 3,39,14) = (/ &\n        & 0.16984e+03_rb,0.20665e+03_rb,0.24065e+03_rb,0.23036e+03_rb,0.20781e+03_rb /)\n      kbo(:, 4,39,14) = (/ &\n        & 0.17923e+03_rb,0.20725e+03_rb,0.23910e+03_rb,0.22810e+03_rb,0.21175e+03_rb /)\n      kbo(:, 5,39,14) = (/ &\n        & 0.18737e+03_rb,0.20722e+03_rb,0.23684e+03_rb,0.22517e+03_rb,0.21467e+03_rb /)\n      kbo(:, 1,40,14) = (/ &\n        & 0.14438e+03_rb,0.20254e+03_rb,0.24092e+03_rb,0.23225e+03_rb,0.19425e+03_rb /)\n      kbo(:, 2,40,14) = (/ &\n        & 0.15633e+03_rb,0.20498e+03_rb,0.24152e+03_rb,0.23217e+03_rb,0.20115e+03_rb /)\n      kbo(:, 3,40,14) = (/ &\n        & 0.16718e+03_rb,0.20642e+03_rb,0.24105e+03_rb,0.23096e+03_rb,0.20672e+03_rb /)\n      kbo(:, 4,40,14) = (/ &\n        & 0.17690e+03_rb,0.20720e+03_rb,0.23969e+03_rb,0.22887e+03_rb,0.21093e+03_rb /)\n      kbo(:, 5,40,14) = (/ &\n        & 0.18539e+03_rb,0.20733e+03_rb,0.23758e+03_rb,0.22609e+03_rb,0.21411e+03_rb /)\n      kbo(:, 1,41,14) = (/ &\n        & 0.14093e+03_rb,0.20170e+03_rb,0.24062e+03_rb,0.23214e+03_rb,0.19226e+03_rb /)\n      kbo(:, 2,41,14) = (/ &\n        & 0.15309e+03_rb,0.20441e+03_rb,0.24155e+03_rb,0.23243e+03_rb,0.19951e+03_rb /)\n      kbo(:, 3,41,14) = (/ &\n        & 0.16434e+03_rb,0.20613e+03_rb,0.24136e+03_rb,0.23149e+03_rb,0.20545e+03_rb /)\n      kbo(:, 4,41,14) = (/ &\n        & 0.17439e+03_rb,0.20709e+03_rb,0.24022e+03_rb,0.22963e+03_rb,0.21000e+03_rb /)\n      kbo(:, 5,41,14) = (/ &\n        & 0.18325e+03_rb,0.20739e+03_rb,0.23829e+03_rb,0.22700e+03_rb,0.21344e+03_rb /)\n      kbo(:, 1,42,14) = (/ &\n        & 0.13742e+03_rb,0.20072e+03_rb,0.24018e+03_rb,0.23188e+03_rb,0.19017e+03_rb /)\n      kbo(:, 2,42,14) = (/ &\n        & 0.14987e+03_rb,0.20381e+03_rb,0.24151e+03_rb,0.23260e+03_rb,0.19778e+03_rb /)\n      kbo(:, 3,42,14) = (/ &\n        & 0.16144e+03_rb,0.20580e+03_rb,0.24159e+03_rb,0.23194e+03_rb,0.20408e+03_rb /)\n      kbo(:, 4,42,14) = (/ &\n        & 0.17182e+03_rb,0.20693e+03_rb,0.24068e+03_rb,0.23030e+03_rb,0.20897e+03_rb /)\n      kbo(:, 5,42,14) = (/ &\n        & 0.18101e+03_rb,0.20739e+03_rb,0.23894e+03_rb,0.22785e+03_rb,0.21269e+03_rb /)\n      kbo(:, 1,43,14) = (/ &\n        & 0.13316e+03_rb,0.19946e+03_rb,0.23952e+03_rb,0.23134e+03_rb,0.18746e+03_rb /)\n      kbo(:, 2,43,14) = (/ &\n        & 0.14590e+03_rb,0.20299e+03_rb,0.24131e+03_rb,0.23265e+03_rb,0.19555e+03_rb /)\n      kbo(:, 3,43,14) = (/ &\n        & 0.15782e+03_rb,0.20531e+03_rb,0.24176e+03_rb,0.23237e+03_rb,0.20228e+03_rb /)\n      kbo(:, 4,43,14) = (/ &\n        & 0.16860e+03_rb,0.20666e+03_rb,0.24113e+03_rb,0.23099e+03_rb,0.20761e+03_rb /)\n      kbo(:, 5,43,14) = (/ &\n        & 0.17818e+03_rb,0.20733e+03_rb,0.23964e+03_rb,0.22878e+03_rb,0.21166e+03_rb /)\n      kbo(:, 1,44,14) = (/ &\n        & 0.12851e+03_rb,0.19793e+03_rb,0.23860e+03_rb,0.23051e+03_rb,0.18440e+03_rb /)\n      kbo(:, 2,44,14) = (/ &\n        & 0.14156e+03_rb,0.20195e+03_rb,0.24092e+03_rb,0.23249e+03_rb,0.19298e+03_rb /)\n      kbo(:, 3,44,14) = (/ &\n        & 0.15381e+03_rb,0.20468e+03_rb,0.24182e+03_rb,0.23268e+03_rb,0.20015e+03_rb /)\n      kbo(:, 4,44,14) = (/ &\n        & 0.16494e+03_rb,0.20625e+03_rb,0.24148e+03_rb,0.23163e+03_rb,0.20597e+03_rb /)\n      kbo(:, 5,44,14) = (/ &\n        & 0.17499e+03_rb,0.20719e+03_rb,0.24029e+03_rb,0.22969e+03_rb,0.21043e+03_rb /)\n      kbo(:, 1,45,14) = (/ &\n        & 0.12377e+03_rb,0.19622e+03_rb,0.23745e+03_rb,0.22938e+03_rb,0.18114e+03_rb /)\n      kbo(:, 2,45,14) = (/ &\n        & 0.13713e+03_rb,0.20074e+03_rb,0.24035e+03_rb,0.23210e+03_rb,0.19024e+03_rb /)\n      kbo(:, 3,45,14) = (/ &\n        & 0.14969e+03_rb,0.20389e+03_rb,0.24171e+03_rb,0.23283e+03_rb,0.19787e+03_rb /)\n      kbo(:, 4,45,14) = (/ &\n        & 0.16122e+03_rb,0.20580e+03_rb,0.24172e+03_rb,0.23215e+03_rb,0.20417e+03_rb /)\n      kbo(:, 5,45,14) = (/ &\n        & 0.17169e+03_rb,0.20697e+03_rb,0.24085e+03_rb,0.23051e+03_rb,0.20907e+03_rb /)\n      kbo(:, 1,46,14) = (/ &\n        & 0.11871e+03_rb,0.19418e+03_rb,0.23600e+03_rb,0.22790e+03_rb,0.17747e+03_rb /)\n      kbo(:, 2,46,14) = (/ &\n        & 0.13231e+03_rb,0.19929e+03_rb,0.23954e+03_rb,0.23143e+03_rb,0.18712e+03_rb /)\n      kbo(:, 3,46,14) = (/ &\n        & 0.14514e+03_rb,0.20288e+03_rb,0.24138e+03_rb,0.23280e+03_rb,0.19526e+03_rb /)\n      kbo(:, 4,46,14) = (/ &\n        & 0.15711e+03_rb,0.20523e+03_rb,0.24187e+03_rb,0.23257e+03_rb,0.20207e+03_rb /)\n      kbo(:, 5,46,14) = (/ &\n        & 0.16802e+03_rb,0.20664e+03_rb,0.24132e+03_rb,0.23126e+03_rb,0.20749e+03_rb /)\n      kbo(:, 1,47,14) = (/ &\n        & 0.11295e+03_rb,0.19159e+03_rb,0.23398e+03_rb,0.22588e+03_rb,0.17313e+03_rb /)\n      kbo(:, 2,47,14) = (/ &\n        & 0.12683e+03_rb,0.19741e+03_rb,0.23835e+03_rb,0.23031e+03_rb,0.18342e+03_rb /)\n      kbo(:, 3,47,14) = (/ &\n        & 0.13999e+03_rb,0.20159e+03_rb,0.24085e+03_rb,0.23253e+03_rb,0.19217e+03_rb /)\n      kbo(:, 4,47,14) = (/ &\n        & 0.15234e+03_rb,0.20442e+03_rb,0.24186e+03_rb,0.23286e+03_rb,0.19949e+03_rb /)\n      kbo(:, 5,47,14) = (/ &\n        & 0.16373e+03_rb,0.20618e+03_rb,0.24169e+03_rb,0.23194e+03_rb,0.20549e+03_rb /)\n      kbo(:, 1,48,14) = (/ &\n        & 0.10712e+03_rb,0.18871e+03_rb,0.23159e+03_rb,0.22347e+03_rb,0.16850e+03_rb /)\n      kbo(:, 2,48,14) = (/ &\n        & 0.12124e+03_rb,0.19529e+03_rb,0.23687e+03_rb,0.22882e+03_rb,0.17946e+03_rb /)\n      kbo(:, 3,48,14) = (/ &\n        & 0.13473e+03_rb,0.20007e+03_rb,0.24005e+03_rb,0.23191e+03_rb,0.18883e+03_rb /)\n      kbo(:, 4,48,14) = (/ &\n        & 0.14742e+03_rb,0.20342e+03_rb,0.24164e+03_rb,0.23294e+03_rb,0.19670e+03_rb /)\n      kbo(:, 5,48,14) = (/ &\n        & 0.15928e+03_rb,0.20562e+03_rb,0.24192e+03_rb,0.23247e+03_rb,0.20325e+03_rb /)\n      kbo(:, 1,49,14) = (/ &\n        & 0.10120e+03_rb,0.18550e+03_rb,0.22880e+03_rb,0.22071e+03_rb,0.16363e+03_rb /)\n      kbo(:, 2,49,14) = (/ &\n        & 0.11556e+03_rb,0.19285e+03_rb,0.23504e+03_rb,0.22697e+03_rb,0.17524e+03_rb /)\n      kbo(:, 3,49,14) = (/ &\n        & 0.12932e+03_rb,0.19832e+03_rb,0.23901e+03_rb,0.23097e+03_rb,0.18524e+03_rb /)\n      kbo(:, 4,49,14) = (/ &\n        & 0.14238e+03_rb,0.20226e+03_rb,0.24120e+03_rb,0.23278e+03_rb,0.19370e+03_rb /)\n      kbo(:, 5,49,14) = (/ &\n        & 0.15460e+03_rb,0.20488e+03_rb,0.24199e+03_rb,0.23283e+03_rb,0.20078e+03_rb /)\n      kbo(:, 1,50,14) = (/ &\n        & 0.95603e+02_rb,0.18216e+03_rb,0.22576e+03_rb,0.21768e+03_rb,0.15878e+03_rb /)\n      kbo(:, 2,50,14) = (/ &\n        & 0.11015e+03_rb,0.19031e+03_rb,0.23298e+03_rb,0.22490e+03_rb,0.17105e+03_rb /)\n      kbo(:, 3,50,14) = (/ &\n        & 0.12415e+03_rb,0.19646e+03_rb,0.23775e+03_rb,0.22975e+03_rb,0.18166e+03_rb /)\n      kbo(:, 4,50,14) = (/ &\n        & 0.13752e+03_rb,0.20094e+03_rb,0.24058e+03_rb,0.23236e+03_rb,0.19069e+03_rb /)\n      kbo(:, 5,50,14) = (/ &\n        & 0.15007e+03_rb,0.20403e+03_rb,0.24187e+03_rb,0.23299e+03_rb,0.19826e+03_rb /)\n      kbo(:, 1,51,14) = (/ &\n        & 0.90137e+02_rb,0.17868e+03_rb,0.22240e+03_rb,0.21442e+03_rb,0.15384e+03_rb /)\n      kbo(:, 2,51,14) = (/ &\n        & 0.10484e+03_rb,0.18757e+03_rb,0.23066e+03_rb,0.22258e+03_rb,0.16677e+03_rb /)\n      kbo(:, 3,51,14) = (/ &\n        & 0.11907e+03_rb,0.19442e+03_rb,0.23628e+03_rb,0.22824e+03_rb,0.17796e+03_rb /)\n      kbo(:, 4,51,14) = (/ &\n        & 0.13269e+03_rb,0.19948e+03_rb,0.23976e+03_rb,0.23167e+03_rb,0.18756e+03_rb /)\n      kbo(:, 5,51,14) = (/ &\n        & 0.14552e+03_rb,0.20302e+03_rb,0.24154e+03_rb,0.23296e+03_rb,0.19565e+03_rb /)\n      kbo(:, 1,52,14) = (/ &\n        & 0.84690e+02_rb,0.17496e+03_rb,0.21864e+03_rb,0.21080e+03_rb,0.14862e+03_rb /)\n      kbo(:, 2,52,14) = (/ &\n        & 0.99471e+02_rb,0.18453e+03_rb,0.22798e+03_rb,0.21992e+03_rb,0.16225e+03_rb /)\n      kbo(:, 3,52,14) = (/ &\n        & 0.11391e+03_rb,0.19213e+03_rb,0.23451e+03_rb,0.22644e+03_rb,0.17406e+03_rb /)\n      kbo(:, 4,52,14) = (/ &\n        & 0.12777e+03_rb,0.19781e+03_rb,0.23872e+03_rb,0.23070e+03_rb,0.18424e+03_rb /)\n      kbo(:, 5,52,14) = (/ &\n        & 0.14091e+03_rb,0.20189e+03_rb,0.24107e+03_rb,0.23273e+03_rb,0.19286e+03_rb /)\n      kbo(:, 1,53,14) = (/ &\n        & 0.79262e+02_rb,0.17095e+03_rb,0.21436e+03_rb,0.20681e+03_rb,0.14317e+03_rb /)\n      kbo(:, 2,53,14) = (/ &\n        & 0.94047e+02_rb,0.18126e+03_rb,0.22494e+03_rb,0.21690e+03_rb,0.15748e+03_rb /)\n      kbo(:, 3,53,14) = (/ &\n        & 0.10865e+03_rb,0.18958e+03_rb,0.23241e+03_rb,0.22434e+03_rb,0.16994e+03_rb /)\n      kbo(:, 4,53,14) = (/ &\n        & 0.12274e+03_rb,0.19595e+03_rb,0.23742e+03_rb,0.22941e+03_rb,0.18070e+03_rb /)\n      kbo(:, 5,53,14) = (/ &\n        & 0.13618e+03_rb,0.20056e+03_rb,0.24040e+03_rb,0.23224e+03_rb,0.18988e+03_rb /)\n      kbo(:, 1,54,14) = (/ &\n        & 0.74312e+02_rb,0.16701e+03_rb,0.21000e+03_rb,0.20283e+03_rb,0.13801e+03_rb /)\n      kbo(:, 2,54,14) = (/ &\n        & 0.89059e+02_rb,0.17802e+03_rb,0.22177e+03_rb,0.21381e+03_rb,0.15289e+03_rb /)\n      kbo(:, 3,54,14) = (/ &\n        & 0.10379e+03_rb,0.18701e+03_rb,0.23021e+03_rb,0.22214e+03_rb,0.16595e+03_rb /)\n      kbo(:, 4,54,14) = (/ &\n        & 0.11808e+03_rb,0.19403e+03_rb,0.23602e+03_rb,0.22797e+03_rb,0.17728e+03_rb /)\n      kbo(:, 5,54,14) = (/ &\n        & 0.13174e+03_rb,0.19918e+03_rb,0.23961e+03_rb,0.23155e+03_rb,0.18697e+03_rb /)\n      kbo(:, 1,55,14) = (/ &\n        & 0.69615e+02_rb,0.16296e+03_rb,0.20540e+03_rb,0.19866e+03_rb,0.13288e+03_rb /)\n      kbo(:, 2,55,14) = (/ &\n        & 0.84276e+02_rb,0.17466e+03_rb,0.21835e+03_rb,0.21056e+03_rb,0.14828e+03_rb /)\n      kbo(:, 3,55,14) = (/ &\n        & 0.99066e+02_rb,0.18433e+03_rb,0.22782e+03_rb,0.21977e+03_rb,0.16197e+03_rb /)\n      kbo(:, 4,55,14) = (/ &\n        & 0.11354e+03_rb,0.19199e+03_rb,0.23442e+03_rb,0.22636e+03_rb,0.17383e+03_rb /)\n      kbo(:, 5,55,14) = (/ &\n        & 0.12741e+03_rb,0.19770e+03_rb,0.23866e+03_rb,0.23065e+03_rb,0.18403e+03_rb /)\n      kbo(:, 1,56,14) = (/ &\n        & 0.64944e+02_rb,0.15877e+03_rb,0.20044e+03_rb,0.19421e+03_rb,0.12762e+03_rb /)\n      kbo(:, 2,56,14) = (/ &\n        & 0.79524e+02_rb,0.17114e+03_rb,0.21461e+03_rb,0.20707e+03_rb,0.14351e+03_rb /)\n      kbo(:, 3,56,14) = (/ &\n        & 0.94323e+02_rb,0.18144e+03_rb,0.22514e+03_rb,0.21711e+03_rb,0.15778e+03_rb /)\n      kbo(:, 4,56,14) = (/ &\n        & 0.10894e+03_rb,0.18976e+03_rb,0.23257e+03_rb,0.22452e+03_rb,0.17022e+03_rb /)\n      kbo(:, 5,56,14) = (/ &\n        & 0.12301e+03_rb,0.19605e+03_rb,0.23752e+03_rb,0.22954e+03_rb,0.18094e+03_rb /)\n      kbo(:, 1,57,14) = (/ &\n        & 0.60353e+02_rb,0.15431e+03_rb,0.19514e+03_rb,0.18945e+03_rb,0.12225e+03_rb /)\n      kbo(:, 2,57,14) = (/ &\n        & 0.74815e+02_rb,0.16742e+03_rb,0.21049e+03_rb,0.20329e+03_rb,0.13860e+03_rb /)\n      kbo(:, 3,57,14) = (/ &\n        & 0.89567e+02_rb,0.17837e+03_rb,0.22214e+03_rb,0.21419e+03_rb,0.15343e+03_rb /)\n      kbo(:, 4,57,14) = (/ &\n        & 0.10431e+03_rb,0.18733e+03_rb,0.23050e+03_rb,0.22244e+03_rb,0.16644e+03_rb /)\n      kbo(:, 5,57,14) = (/ &\n        & 0.11856e+03_rb,0.19423e+03_rb,0.23618e+03_rb,0.22816e+03_rb,0.17767e+03_rb /)\n      kbo(:, 1,58,14) = (/ &\n        & 0.56098e+02_rb,0.14991e+03_rb,0.18980e+03_rb,0.18465e+03_rb,0.11706e+03_rb /)\n      kbo(:, 2,58,14) = (/ &\n        & 0.70377e+02_rb,0.16367e+03_rb,0.20622e+03_rb,0.19942e+03_rb,0.13378e+03_rb /)\n      kbo(:, 3,58,14) = (/ &\n        & 0.85049e+02_rb,0.17528e+03_rb,0.21902e+03_rb,0.21119e+03_rb,0.14910e+03_rb /)\n      kbo(:, 4,58,14) = (/ &\n        & 0.99857e+02_rb,0.18482e+03_rb,0.22827e+03_rb,0.22022e+03_rb,0.16268e+03_rb /)\n      kbo(:, 5,58,14) = (/ &\n        & 0.11428e+03_rb,0.19233e+03_rb,0.23470e+03_rb,0.22666e+03_rb,0.17444e+03_rb /)\n      kbo(:, 1,59,14) = (/ &\n        & 0.54418e+02_rb,0.14809e+03_rb,0.18754e+03_rb,0.18261e+03_rb,0.11495e+03_rb /)\n      kbo(:, 2,59,14) = (/ &\n        & 0.68598e+02_rb,0.16210e+03_rb,0.20441e+03_rb,0.19778e+03_rb,0.13180e+03_rb /)\n      kbo(:, 3,59,14) = (/ &\n        & 0.83246e+02_rb,0.17398e+03_rb,0.21768e+03_rb,0.20993e+03_rb,0.14733e+03_rb /)\n      kbo(:, 4,59,14) = (/ &\n        & 0.98055e+02_rb,0.18375e+03_rb,0.22732e+03_rb,0.21927e+03_rb,0.16113e+03_rb /)\n      kbo(:, 5,59,14) = (/ &\n        & 0.11255e+03_rb,0.19153e+03_rb,0.23406e+03_rb,0.22601e+03_rb,0.17310e+03_rb /)\n      kbo(:, 1,13,15) = (/ &\n        & 0.40932e+03_rb,0.30758e+03_rb,0.26133e+03_rb,0.32395e+03_rb,0.43211e+03_rb /)\n      kbo(:, 2,13,15) = (/ &\n        & 0.41123e+03_rb,0.30908e+03_rb,0.25921e+03_rb,0.31805e+03_rb,0.42431e+03_rb /)\n      kbo(:, 3,13,15) = (/ &\n        & 0.41219e+03_rb,0.30983e+03_rb,0.25685e+03_rb,0.31214e+03_rb,0.41639e+03_rb /)\n      kbo(:, 4,13,15) = (/ &\n        & 0.41228e+03_rb,0.30991e+03_rb,0.25419e+03_rb,0.30614e+03_rb,0.40836e+03_rb /)\n      kbo(:, 5,13,15) = (/ &\n        & 0.41130e+03_rb,0.30917e+03_rb,0.25126e+03_rb,0.30055e+03_rb,0.40088e+03_rb /)\n      kbo(:, 1,14,15) = (/ &\n        & 0.46527e+03_rb,0.34966e+03_rb,0.29823e+03_rb,0.35533e+03_rb,0.47402e+03_rb /)\n      kbo(:, 2,14,15) = (/ &\n        & 0.46656e+03_rb,0.35065e+03_rb,0.29540e+03_rb,0.34864e+03_rb,0.46510e+03_rb /)\n      kbo(:, 3,14,15) = (/ &\n        & 0.46685e+03_rb,0.35090e+03_rb,0.29209e+03_rb,0.34189e+03_rb,0.45610e+03_rb /)\n      kbo(:, 4,14,15) = (/ &\n        & 0.46575e+03_rb,0.35012e+03_rb,0.28845e+03_rb,0.33526e+03_rb,0.44716e+03_rb /)\n      kbo(:, 5,14,15) = (/ &\n        & 0.46388e+03_rb,0.34873e+03_rb,0.28457e+03_rb,0.32965e+03_rb,0.43950e+03_rb /)\n      kbo(:, 1,15,15) = (/ &\n        & 0.52376e+03_rb,0.39388e+03_rb,0.33756e+03_rb,0.38636e+03_rb,0.51543e+03_rb /)\n      kbo(:, 2,15,15) = (/ &\n        & 0.52445e+03_rb,0.39416e+03_rb,0.33368e+03_rb,0.37892e+03_rb,0.50548e+03_rb /)\n      kbo(:, 3,15,15) = (/ &\n        & 0.52345e+03_rb,0.39343e+03_rb,0.32922e+03_rb,0.37141e+03_rb,0.49535e+03_rb /)\n      kbo(:, 4,15,15) = (/ &\n        & 0.52134e+03_rb,0.39188e+03_rb,0.32434e+03_rb,0.36468e+03_rb,0.48621e+03_rb /)\n      kbo(:, 5,15,15) = (/ &\n        & 0.51791e+03_rb,0.38933e+03_rb,0.31931e+03_rb,0.35855e+03_rb,0.47766e+03_rb /)\n      kbo(:, 1,16,15) = (/ &\n        & 0.58401e+03_rb,0.43962e+03_rb,0.37845e+03_rb,0.41772e+03_rb,0.55681e+03_rb /)\n      kbo(:, 2,16,15) = (/ &\n        & 0.58308e+03_rb,0.43844e+03_rb,0.37324e+03_rb,0.40927e+03_rb,0.54538e+03_rb /)\n      kbo(:, 3,16,15) = (/ &\n        & 0.58094e+03_rb,0.43662e+03_rb,0.36730e+03_rb,0.40107e+03_rb,0.53429e+03_rb /)\n      kbo(:, 4,16,15) = (/ &\n        & 0.57721e+03_rb,0.43385e+03_rb,0.36102e+03_rb,0.39367e+03_rb,0.52421e+03_rb /)\n      kbo(:, 5,16,15) = (/ &\n        & 0.57218e+03_rb,0.43010e+03_rb,0.35444e+03_rb,0.38654e+03_rb,0.51433e+03_rb /)\n      kbo(:, 1,17,15) = (/ &\n        & 0.64407e+03_rb,0.48569e+03_rb,0.41994e+03_rb,0.44912e+03_rb,0.59692e+03_rb /)\n      kbo(:, 2,17,15) = (/ &\n        & 0.64180e+03_rb,0.48304e+03_rb,0.41300e+03_rb,0.43957e+03_rb,0.58409e+03_rb /)\n      kbo(:, 3,17,15) = (/ &\n        & 0.63774e+03_rb,0.47951e+03_rb,0.40543e+03_rb,0.43048e+03_rb,0.57188e+03_rb /)\n      kbo(:, 4,17,15) = (/ &\n        & 0.63221e+03_rb,0.47511e+03_rb,0.39752e+03_rb,0.42195e+03_rb,0.56041e+03_rb /)\n      kbo(:, 5,17,15) = (/ &\n        & 0.62531e+03_rb,0.46997e+03_rb,0.38917e+03_rb,0.41353e+03_rb,0.54901e+03_rb /)\n      kbo(:, 1,18,15) = (/ &\n        & 0.70302e+03_rb,0.53125e+03_rb,0.46110e+03_rb,0.48015e+03_rb,0.63499e+03_rb /)\n      kbo(:, 2,18,15) = (/ &\n        & 0.69876e+03_rb,0.52681e+03_rb,0.45218e+03_rb,0.46935e+03_rb,0.62082e+03_rb /)\n      kbo(:, 3,18,15) = (/ &\n        & 0.69273e+03_rb,0.52130e+03_rb,0.44272e+03_rb,0.45897e+03_rb,0.60731e+03_rb /)\n      kbo(:, 4,18,15) = (/ &\n        & 0.68529e+03_rb,0.51514e+03_rb,0.43287e+03_rb,0.44907e+03_rb,0.59416e+03_rb /)\n      kbo(:, 5,18,15) = (/ &\n        & 0.67604e+03_rb,0.50804e+03_rb,0.42255e+03_rb,0.43929e+03_rb,0.58117e+03_rb /)\n      kbo(:, 1,19,15) = (/ &\n        & 0.75927e+03_rb,0.57536e+03_rb,0.50097e+03_rb,0.51007e+03_rb,0.67027e+03_rb /)\n      kbo(:, 2,19,15) = (/ &\n        & 0.75290e+03_rb,0.56864e+03_rb,0.48996e+03_rb,0.49791e+03_rb,0.65476e+03_rb /)\n      kbo(:, 3,19,15) = (/ &\n        & 0.74466e+03_rb,0.56117e+03_rb,0.47832e+03_rb,0.48599e+03_rb,0.63995e+03_rb /)\n      kbo(:, 4,19,15) = (/ &\n        & 0.73483e+03_rb,0.55286e+03_rb,0.46627e+03_rb,0.47459e+03_rb,0.62519e+03_rb /)\n      kbo(:, 5,19,15) = (/ &\n        & 0.72353e+03_rb,0.54375e+03_rb,0.45395e+03_rb,0.46331e+03_rb,0.61054e+03_rb /)\n      kbo(:, 1,20,15) = (/ &\n        & 0.81171e+03_rb,0.61670e+03_rb,0.53858e+03_rb,0.53802e+03_rb,0.70226e+03_rb /)\n      kbo(:, 2,20,15) = (/ &\n        & 0.80307e+03_rb,0.60788e+03_rb,0.52517e+03_rb,0.52417e+03_rb,0.68550e+03_rb /)\n      kbo(:, 3,20,15) = (/ &\n        & 0.79257e+03_rb,0.59823e+03_rb,0.51114e+03_rb,0.51080e+03_rb,0.66917e+03_rb /)\n      kbo(:, 4,20,15) = (/ &\n        & 0.78036e+03_rb,0.58759e+03_rb,0.49687e+03_rb,0.49775e+03_rb,0.65285e+03_rb /)\n      kbo(:, 5,20,15) = (/ &\n        & 0.76671e+03_rb,0.57649e+03_rb,0.48237e+03_rb,0.48486e+03_rb,0.63647e+03_rb /)\n      kbo(:, 1,21,15) = (/ &\n        & 0.85929e+03_rb,0.65464e+03_rb,0.57309e+03_rb,0.56354e+03_rb,0.73074e+03_rb /)\n      kbo(:, 2,21,15) = (/ &\n        & 0.84853e+03_rb,0.64350e+03_rb,0.55721e+03_rb,0.54790e+03_rb,0.71267e+03_rb /)\n      kbo(:, 3,21,15) = (/ &\n        & 0.83578e+03_rb,0.63172e+03_rb,0.54090e+03_rb,0.53299e+03_rb,0.69483e+03_rb /)\n      kbo(:, 4,21,15) = (/ &\n        & 0.82132e+03_rb,0.61900e+03_rb,0.52438e+03_rb,0.51831e+03_rb,0.67689e+03_rb /)\n      kbo(:, 5,21,15) = (/ &\n        & 0.80511e+03_rb,0.60568e+03_rb,0.50774e+03_rb,0.50398e+03_rb,0.65894e+03_rb /)\n      kbo(:, 1,22,15) = (/ &\n        & 0.90088e+03_rb,0.68794e+03_rb,0.60297e+03_rb,0.58517e+03_rb,0.75429e+03_rb /)\n      kbo(:, 2,22,15) = (/ &\n        & 0.88795e+03_rb,0.67453e+03_rb,0.58458e+03_rb,0.56794e+03_rb,0.73512e+03_rb /)\n      kbo(:, 3,22,15) = (/ &\n        & 0.87296e+03_rb,0.66047e+03_rb,0.56607e+03_rb,0.55151e+03_rb,0.71573e+03_rb /)\n      kbo(:, 4,22,15) = (/ &\n        & 0.85602e+03_rb,0.64569e+03_rb,0.54736e+03_rb,0.53534e+03_rb,0.69633e+03_rb /)\n      kbo(:, 5,22,15) = (/ &\n        & 0.83763e+03_rb,0.63042e+03_rb,0.52879e+03_rb,0.51959e+03_rb,0.67694e+03_rb /)\n      kbo(:, 1,23,15) = (/ &\n        & 0.93708e+03_rb,0.71670e+03_rb,0.62868e+03_rb,0.60370e+03_rb,0.77407e+03_rb /)\n      kbo(:, 2,23,15) = (/ &\n        & 0.92204e+03_rb,0.70111e+03_rb,0.60797e+03_rb,0.58479e+03_rb,0.75367e+03_rb /)\n      kbo(:, 3,23,15) = (/ &\n        & 0.90485e+03_rb,0.68501e+03_rb,0.58723e+03_rb,0.56696e+03_rb,0.73284e+03_rb /)\n      kbo(:, 4,23,15) = (/ &\n        & 0.88551e+03_rb,0.66835e+03_rb,0.56656e+03_rb,0.54939e+03_rb,0.71207e+03_rb /)\n      kbo(:, 5,23,15) = (/ &\n        & 0.86499e+03_rb,0.65129e+03_rb,0.54624e+03_rb,0.53240e+03_rb,0.69156e+03_rb /)\n      kbo(:, 1,24,15) = (/ &\n        & 0.96776e+03_rb,0.74092e+03_rb,0.64997e+03_rb,0.61898e+03_rb,0.79010e+03_rb /)\n      kbo(:, 2,24,15) = (/ &\n        & 0.95072e+03_rb,0.72338e+03_rb,0.62717e+03_rb,0.59867e+03_rb,0.76855e+03_rb /)\n      kbo(:, 3,24,15) = (/ &\n        & 0.93122e+03_rb,0.70539e+03_rb,0.60446e+03_rb,0.57944e+03_rb,0.74652e+03_rb /)\n      kbo(:, 4,24,15) = (/ &\n        & 0.90993e+03_rb,0.68704e+03_rb,0.58213e+03_rb,0.56067e+03_rb,0.72451e+03_rb /)\n      kbo(:, 5,24,15) = (/ &\n        & 0.88757e+03_rb,0.66845e+03_rb,0.56030e+03_rb,0.54254e+03_rb,0.70312e+03_rb /)\n      kbo(:, 1,25,15) = (/ &\n        & 0.99329e+03_rb,0.76073e+03_rb,0.66706e+03_rb,0.63101e+03_rb,0.80276e+03_rb /)\n      kbo(:, 2,25,15) = (/ &\n        & 0.97397e+03_rb,0.74138e+03_rb,0.64231e+03_rb,0.60949e+03_rb,0.78003e+03_rb /)\n      kbo(:, 3,25,15) = (/ &\n        & 0.95257e+03_rb,0.72186e+03_rb,0.61798e+03_rb,0.58904e+03_rb,0.75681e+03_rb /)\n      kbo(:, 4,25,15) = (/ &\n        & 0.92942e+03_rb,0.70193e+03_rb,0.59417e+03_rb,0.56923e+03_rb,0.73392e+03_rb /)\n      kbo(:, 5,25,15) = (/ &\n        & 0.90532e+03_rb,0.68191e+03_rb,0.57100e+03_rb,0.55015e+03_rb,0.71169e+03_rb /)\n      kbo(:, 1,26,15) = (/ &\n        & 0.10136e+04_rb,0.77623e+03_rb,0.67983e+03_rb,0.63982e+03_rb,0.81189e+03_rb /)\n      kbo(:, 2,26,15) = (/ &\n        & 0.99212e+03_rb,0.75536e+03_rb,0.65345e+03_rb,0.61726e+03_rb,0.78804e+03_rb /)\n      kbo(:, 3,26,15) = (/ &\n        & 0.96906e+03_rb,0.73441e+03_rb,0.62784e+03_rb,0.59585e+03_rb,0.76400e+03_rb /)\n      kbo(:, 4,26,15) = (/ &\n        & 0.94442e+03_rb,0.71314e+03_rb,0.60278e+03_rb,0.57514e+03_rb,0.74031e+03_rb /)\n      kbo(:, 5,26,15) = (/ &\n        & 0.91870e+03_rb,0.69199e+03_rb,0.57850e+03_rb,0.55532e+03_rb,0.71748e+03_rb /)\n      kbo(:, 1,27,15) = (/ &\n        & 0.10295e+04_rb,0.78816e+03_rb,0.68910e+03_rb,0.64601e+03_rb,0.81822e+03_rb /)\n      kbo(:, 2,27,15) = (/ &\n        & 0.10061e+04_rb,0.76604e+03_rb,0.66144e+03_rb,0.62260e+03_rb,0.79343e+03_rb /)\n      kbo(:, 3,27,15) = (/ &\n        & 0.98153e+03_rb,0.74373e+03_rb,0.63470e+03_rb,0.60041e+03_rb,0.76875e+03_rb /)\n      kbo(:, 4,27,15) = (/ &\n        & 0.95548e+03_rb,0.72130e+03_rb,0.60866e+03_rb,0.57907e+03_rb,0.74456e+03_rb /)\n      kbo(:, 5,27,15) = (/ &\n        & 0.92838e+03_rb,0.69916e+03_rb,0.58347e+03_rb,0.55864e+03_rb,0.72113e+03_rb /)\n      kbo(:, 1,28,15) = (/ &\n        & 0.10413e+04_rb,0.79681e+03_rb,0.69534e+03_rb,0.64995e+03_rb,0.82220e+03_rb /)\n      kbo(:, 2,28,15) = (/ &\n        & 0.10164e+04_rb,0.77357e+03_rb,0.66667e+03_rb,0.62595e+03_rb,0.79680e+03_rb /)\n      kbo(:, 3,28,15) = (/ &\n        & 0.99062e+03_rb,0.75026e+03_rb,0.63903e+03_rb,0.60314e+03_rb,0.77147e+03_rb /)\n      kbo(:, 4,28,15) = (/ &\n        & 0.96323e+03_rb,0.72694e+03_rb,0.61220e+03_rb,0.58130e+03_rb,0.74687e+03_rb /)\n      kbo(:, 5,28,15) = (/ &\n        & 0.93489e+03_rb,0.70393e+03_rb,0.58636e+03_rb,0.56041e+03_rb,0.72308e+03_rb /)\n      kbo(:, 1,29,15) = (/ &\n        & 0.10495e+04_rb,0.80260e+03_rb,0.69878e+03_rb,0.65184e+03_rb,0.82409e+03_rb /)\n      kbo(:, 2,29,15) = (/ &\n        & 0.10235e+04_rb,0.77841e+03_rb,0.66934e+03_rb,0.62739e+03_rb,0.79811e+03_rb /)\n      kbo(:, 3,29,15) = (/ &\n        & 0.99642e+03_rb,0.75425e+03_rb,0.64103e+03_rb,0.60412e+03_rb,0.77230e+03_rb /)\n      kbo(:, 4,29,15) = (/ &\n        & 0.96796e+03_rb,0.73025e+03_rb,0.61357e+03_rb,0.58189e+03_rb,0.74741e+03_rb /)\n      kbo(:, 5,29,15) = (/ &\n        & 0.93857e+03_rb,0.70654e+03_rb,0.58732e+03_rb,0.56077e+03_rb,0.72335e+03_rb /)\n      kbo(:, 1,30,15) = (/ &\n        & 0.10549e+04_rb,0.80614e+03_rb,0.70001e+03_rb,0.65202e+03_rb,0.82418e+03_rb /)\n      kbo(:, 2,30,15) = (/ &\n        & 0.10278e+04_rb,0.78108e+03_rb,0.67004e+03_rb,0.62730e+03_rb,0.79771e+03_rb /)\n      kbo(:, 3,30,15) = (/ &\n        & 0.99966e+03_rb,0.75628e+03_rb,0.64121e+03_rb,0.60374e+03_rb,0.77172e+03_rb /)\n      kbo(:, 4,30,15) = (/ &\n        & 0.97021e+03_rb,0.73170e+03_rb,0.61335e+03_rb,0.58130e+03_rb,0.74664e+03_rb /)\n      kbo(:, 5,30,15) = (/ &\n        & 0.94007e+03_rb,0.70743e+03_rb,0.58676e+03_rb,0.55999e+03_rb,0.72234e+03_rb /)\n      kbo(:, 1,31,15) = (/ &\n        & 0.10577e+04_rb,0.80741e+03_rb,0.69925e+03_rb,0.65081e+03_rb,0.82281e+03_rb /)\n      kbo(:, 2,31,15) = (/ &\n        & 0.10297e+04_rb,0.78182e+03_rb,0.66894e+03_rb,0.62588e+03_rb,0.79605e+03_rb /)\n      kbo(:, 3,31,15) = (/ &\n        & 0.10005e+04_rb,0.75649e+03_rb,0.63976e+03_rb,0.60219e+03_rb,0.76987e+03_rb /)\n      kbo(:, 4,31,15) = (/ &\n        & 0.97028e+03_rb,0.73149e+03_rb,0.61167e+03_rb,0.57962e+03_rb,0.74468e+03_rb /)\n      kbo(:, 5,31,15) = (/ &\n        & 0.93951e+03_rb,0.70673e+03_rb,0.58494e+03_rb,0.55830e+03_rb,0.72033e+03_rb /)\n      kbo(:, 1,32,15) = (/ &\n        & 0.10585e+04_rb,0.80706e+03_rb,0.69697e+03_rb,0.64853e+03_rb,0.82034e+03_rb /)\n      kbo(:, 2,32,15) = (/ &\n        & 0.10295e+04_rb,0.78094e+03_rb,0.66639e+03_rb,0.62348e+03_rb,0.79329e+03_rb /)\n      kbo(:, 3,32,15) = (/ &\n        & 0.99955e+03_rb,0.75528e+03_rb,0.63700e+03_rb,0.59969e+03_rb,0.76700e+03_rb /)\n      kbo(:, 4,32,15) = (/ &\n        & 0.96864e+03_rb,0.72996e+03_rb,0.60885e+03_rb,0.57712e+03_rb,0.74178e+03_rb /)\n      kbo(:, 5,32,15) = (/ &\n        & 0.93737e+03_rb,0.70488e+03_rb,0.58204e+03_rb,0.55579e+03_rb,0.71738e+03_rb /)\n      kbo(:, 1,33,15) = (/ &\n        & 0.10575e+04_rb,0.80530e+03_rb,0.69345e+03_rb,0.64529e+03_rb,0.81678e+03_rb /)\n      kbo(:, 2,33,15) = (/ &\n        & 0.10278e+04_rb,0.77890e+03_rb,0.66278e+03_rb,0.62027e+03_rb,0.78965e+03_rb /)\n      kbo(:, 3,33,15) = (/ &\n        & 0.99704e+03_rb,0.75290e+03_rb,0.63324e+03_rb,0.59645e+03_rb,0.76337e+03_rb /)\n      kbo(:, 4,33,15) = (/ &\n        & 0.96555e+03_rb,0.72726e+03_rb,0.60509e+03_rb,0.57394e+03_rb,0.73813e+03_rb /)\n      kbo(:, 5,33,15) = (/ &\n        & 0.93393e+03_rb,0.70207e+03_rb,0.57839e+03_rb,0.55267e+03_rb,0.71377e+03_rb /)\n      kbo(:, 1,34,15) = (/ &\n        & 0.10561e+04_rb,0.80340e+03_rb,0.69012e+03_rb,0.64228e+03_rb,0.81344e+03_rb /)\n      kbo(:, 2,34,15) = (/ &\n        & 0.10257e+04_rb,0.77677e+03_rb,0.65936e+03_rb,0.61726e+03_rb,0.78628e+03_rb /)\n      kbo(:, 3,34,15) = (/ &\n        & 0.99442e+03_rb,0.75053e+03_rb,0.62978e+03_rb,0.59351e+03_rb,0.76009e+03_rb /)\n      kbo(:, 4,34,15) = (/ &\n        & 0.96258e+03_rb,0.72472e+03_rb,0.60168e+03_rb,0.57104e+03_rb,0.73478e+03_rb /)\n      kbo(:, 5,34,15) = (/ &\n        & 0.93053e+03_rb,0.69938e+03_rb,0.57499e+03_rb,0.54984e+03_rb,0.71051e+03_rb /)\n      kbo(:, 1,35,15) = (/ &\n        & 0.10564e+04_rb,0.80326e+03_rb,0.68907e+03_rb,0.64121e+03_rb,0.81221e+03_rb /)\n      kbo(:, 2,35,15) = (/ &\n        & 0.10257e+04_rb,0.77646e+03_rb,0.65819e+03_rb,0.61612e+03_rb,0.78498e+03_rb /)\n      kbo(:, 3,35,15) = (/ &\n        & 0.99396e+03_rb,0.74998e+03_rb,0.62850e+03_rb,0.59231e+03_rb,0.75874e+03_rb /)\n      kbo(:, 4,35,15) = (/ &\n        & 0.96182e+03_rb,0.72398e+03_rb,0.60037e+03_rb,0.56987e+03_rb,0.73339e+03_rb /)\n      kbo(:, 5,35,15) = (/ &\n        & 0.92945e+03_rb,0.69852e+03_rb,0.57362e+03_rb,0.54864e+03_rb,0.70910e+03_rb /)\n      kbo(:, 1,36,15) = (/ &\n        & 0.10593e+04_rb,0.80545e+03_rb,0.69086e+03_rb,0.64252e+03_rb,0.81357e+03_rb /)\n      kbo(:, 2,36,15) = (/ &\n        & 0.10283e+04_rb,0.77842e+03_rb,0.65978e+03_rb,0.61726e+03_rb,0.78619e+03_rb /)\n      kbo(:, 3,36,15) = (/ &\n        & 0.99627e+03_rb,0.75174e+03_rb,0.62993e+03_rb,0.59335e+03_rb,0.75988e+03_rb /)\n      kbo(:, 4,36,15) = (/ &\n        & 0.96386e+03_rb,0.72553e+03_rb,0.60161e+03_rb,0.57080e+03_rb,0.73443e+03_rb /)\n      kbo(:, 5,36,15) = (/ &\n        & 0.93134e+03_rb,0.69996e+03_rb,0.57477e+03_rb,0.54947e+03_rb,0.71003e+03_rb /)\n      kbo(:, 1,37,15) = (/ &\n        & 0.10662e+04_rb,0.81134e+03_rb,0.69713e+03_rb,0.64751e+03_rb,0.81885e+03_rb /)\n      kbo(:, 2,37,15) = (/ &\n        & 0.10351e+04_rb,0.78402e+03_rb,0.66565e+03_rb,0.62189e+03_rb,0.79122e+03_rb /)\n      kbo(:, 3,37,15) = (/ &\n        & 0.10030e+04_rb,0.75714e+03_rb,0.63542e+03_rb,0.59764e+03_rb,0.76460e+03_rb /)\n      kbo(:, 4,37,15) = (/ &\n        & 0.97042e+03_rb,0.73071e+03_rb,0.60674e+03_rb,0.57477e+03_rb,0.73895e+03_rb /)\n      kbo(:, 5,37,15) = (/ &\n        & 0.93771e+03_rb,0.70485e+03_rb,0.57959e+03_rb,0.55322e+03_rb,0.71431e+03_rb /)\n      kbo(:, 1,38,15) = (/ &\n        & 0.10729e+04_rb,0.81713e+03_rb,0.70342e+03_rb,0.65252e+03_rb,0.82415e+03_rb /)\n      kbo(:, 2,38,15) = (/ &\n        & 0.10416e+04_rb,0.78952e+03_rb,0.67152e+03_rb,0.62655e+03_rb,0.79626e+03_rb /)\n      kbo(:, 3,38,15) = (/ &\n        & 0.10096e+04_rb,0.76249e+03_rb,0.64098e+03_rb,0.60198e+03_rb,0.76937e+03_rb /)\n      kbo(:, 4,38,15) = (/ &\n        & 0.97695e+03_rb,0.73588e+03_rb,0.61197e+03_rb,0.57883e+03_rb,0.74352e+03_rb /)\n      kbo(:, 5,38,15) = (/ &\n        & 0.94411e+03_rb,0.70978e+03_rb,0.58447e+03_rb,0.55704e+03_rb,0.71866e+03_rb /)\n      kbo(:, 1,39,15) = (/ &\n        & 0.10791e+04_rb,0.82257e+03_rb,0.70938e+03_rb,0.65729e+03_rb,0.82913e+03_rb /)\n      kbo(:, 2,39,15) = (/ &\n        & 0.10479e+04_rb,0.79481e+03_rb,0.67717e+03_rb,0.63099e+03_rb,0.80105e+03_rb /)\n      kbo(:, 3,39,15) = (/ &\n        & 0.10158e+04_rb,0.76754e+03_rb,0.64630e+03_rb,0.60614e+03_rb,0.77394e+03_rb /)\n      kbo(:, 4,39,15) = (/ &\n        & 0.98307e+03_rb,0.74076e+03_rb,0.61694e+03_rb,0.58271e+03_rb,0.74789e+03_rb /)\n      kbo(:, 5,39,15) = (/ &\n        & 0.95013e+03_rb,0.71446e+03_rb,0.58917e+03_rb,0.56072e+03_rb,0.72285e+03_rb /)\n      kbo(:, 1,40,15) = (/ &\n        & 0.10882e+04_rb,0.83071e+03_rb,0.71862e+03_rb,0.66478e+03_rb,0.83689e+03_rb /)\n      kbo(:, 2,40,15) = (/ &\n        & 0.10571e+04_rb,0.80265e+03_rb,0.68589e+03_rb,0.63804e+03_rb,0.80862e+03_rb /)\n      kbo(:, 3,40,15) = (/ &\n        & 0.10251e+04_rb,0.77527e+03_rb,0.65462e+03_rb,0.61278e+03_rb,0.78119e+03_rb /)\n      kbo(:, 4,40,15) = (/ &\n        & 0.99232e+03_rb,0.74818e+03_rb,0.62475e+03_rb,0.58893e+03_rb,0.75487e+03_rb /)\n      kbo(:, 5,40,15) = (/ &\n        & 0.95932e+03_rb,0.72168e+03_rb,0.59655e+03_rb,0.56653e+03_rb,0.72946e+03_rb /)\n      kbo(:, 1,41,15) = (/ &\n        & 0.10971e+04_rb,0.83901e+03_rb,0.72823e+03_rb,0.67265e+03_rb,0.84493e+03_rb /)\n      kbo(:, 2,41,15) = (/ &\n        & 0.10663e+04_rb,0.81071e+03_rb,0.69500e+03_rb,0.64543e+03_rb,0.81648e+03_rb /)\n      kbo(:, 3,41,15) = (/ &\n        & 0.10345e+04_rb,0.78315e+03_rb,0.66331e+03_rb,0.61971e+03_rb,0.78878e+03_rb /)\n      kbo(:, 4,41,15) = (/ &\n        & 0.10019e+04_rb,0.75590e+03_rb,0.63295e+03_rb,0.59541e+03_rb,0.76210e+03_rb /)\n      kbo(:, 5,41,15) = (/ &\n        & 0.96878e+03_rb,0.72921e+03_rb,0.60428e+03_rb,0.57260e+03_rb,0.73637e+03_rb /)\n      kbo(:, 1,42,15) = (/ &\n        & 0.11058e+04_rb,0.84736e+03_rb,0.73795e+03_rb,0.68059e+03_rb,0.85278e+03_rb /)\n      kbo(:, 2,42,15) = (/ &\n        & 0.10754e+04_rb,0.81879e+03_rb,0.70412e+03_rb,0.65281e+03_rb,0.82432e+03_rb /)\n      kbo(:, 3,42,15) = (/ &\n        & 0.10438e+04_rb,0.79093e+03_rb,0.67198e+03_rb,0.62664e+03_rb,0.79629e+03_rb /)\n      kbo(:, 4,42,15) = (/ &\n        & 0.10112e+04_rb,0.76353e+03_rb,0.64116e+03_rb,0.60189e+03_rb,0.76925e+03_rb /)\n      kbo(:, 5,42,15) = (/ &\n        & 0.97804e+03_rb,0.73660e+03_rb,0.61202e+03_rb,0.57870e+03_rb,0.74332e+03_rb /)\n      kbo(:, 1,43,15) = (/ &\n        & 0.11158e+04_rb,0.85717e+03_rb,0.74955e+03_rb,0.69024e+03_rb,0.86217e+03_rb /)\n      kbo(:, 2,43,15) = (/ &\n        & 0.10861e+04_rb,0.82836e+03_rb,0.71518e+03_rb,0.66177e+03_rb,0.83370e+03_rb /)\n      kbo(:, 3,43,15) = (/ &\n        & 0.10546e+04_rb,0.80021e+03_rb,0.68243e+03_rb,0.63507e+03_rb,0.80541e+03_rb /)\n      kbo(:, 4,43,15) = (/ &\n        & 0.10222e+04_rb,0.77261e+03_rb,0.65115e+03_rb,0.60984e+03_rb,0.77795e+03_rb /)\n      kbo(:, 5,43,15) = (/ &\n        & 0.98916e+03_rb,0.74551e+03_rb,0.62143e+03_rb,0.58614e+03_rb,0.75171e+03_rb /)\n      kbo(:, 1,44,15) = (/ &\n        & 0.11264e+04_rb,0.86786e+03_rb,0.76217e+03_rb,0.70088e+03_rb,0.87207e+03_rb /)\n      kbo(:, 2,44,15) = (/ &\n        & 0.10970e+04_rb,0.83855e+03_rb,0.72711e+03_rb,0.67158e+03_rb,0.84381e+03_rb /)\n      kbo(:, 3,44,15) = (/ &\n        & 0.10660e+04_rb,0.81015e+03_rb,0.69375e+03_rb,0.64429e+03_rb,0.81530e+03_rb /)\n      kbo(:, 4,44,15) = (/ &\n        & 0.10339e+04_rb,0.78245e+03_rb,0.66207e+03_rb,0.61859e+03_rb,0.78750e+03_rb /)\n      kbo(:, 5,44,15) = (/ &\n        & 0.10010e+04_rb,0.75506e+03_rb,0.63169e+03_rb,0.59432e+03_rb,0.76086e+03_rb /)\n      kbo(:, 1,45,15) = (/ &\n        & 0.11364e+04_rb,0.87855e+03_rb,0.77494e+03_rb,0.71181e+03_rb,0.88191e+03_rb /)\n      kbo(:, 2,45,15) = (/ &\n        & 0.11078e+04_rb,0.84885e+03_rb,0.73921e+03_rb,0.68154e+03_rb,0.85373e+03_rb /)\n      kbo(:, 3,45,15) = (/ &\n        & 0.10773e+04_rb,0.82021e+03_rb,0.70525e+03_rb,0.65361e+03_rb,0.82516e+03_rb /)\n      kbo(:, 4,45,15) = (/ &\n        & 0.10454e+04_rb,0.79218e+03_rb,0.67305e+03_rb,0.62740e+03_rb,0.79708e+03_rb /)\n      kbo(:, 5,45,15) = (/ &\n        & 0.10127e+04_rb,0.76466e+03_rb,0.64208e+03_rb,0.60256e+03_rb,0.76997e+03_rb /)\n      kbo(:, 1,46,15) = (/ &\n        & 0.11465e+04_rb,0.88995e+03_rb,0.78864e+03_rb,0.72357e+03_rb,0.89218e+03_rb /)\n      kbo(:, 2,46,15) = (/ &\n        & 0.11189e+04_rb,0.85981e+03_rb,0.75227e+03_rb,0.69242e+03_rb,0.86430e+03_rb /)\n      kbo(:, 3,46,15) = (/ &\n        & 0.10889e+04_rb,0.83077e+03_rb,0.71764e+03_rb,0.66370e+03_rb,0.83569e+03_rb /)\n      kbo(:, 4,46,15) = (/ &\n        & 0.10574e+04_rb,0.80253e+03_rb,0.68479e+03_rb,0.63689e+03_rb,0.80730e+03_rb /)\n      kbo(:, 5,46,15) = (/ &\n        & 0.10249e+04_rb,0.77483e+03_rb,0.65332e+03_rb,0.61153e+03_rb,0.77982e+03_rb /)\n      kbo(:, 1,47,15) = (/ &\n        & 0.11573e+04_rb,0.90286e+03_rb,0.80421e+03_rb,0.73669e+03_rb,0.90313e+03_rb /)\n      kbo(:, 2,47,15) = (/ &\n        & 0.11308e+04_rb,0.87219e+03_rb,0.76703e+03_rb,0.70495e+03_rb,0.87583e+03_rb /)\n      kbo(:, 3,47,15) = (/ &\n        & 0.11017e+04_rb,0.84272e+03_rb,0.73168e+03_rb,0.67524e+03_rb,0.84747e+03_rb /)\n      kbo(:, 4,47,15) = (/ &\n        & 0.10706e+04_rb,0.81413e+03_rb,0.69808e+03_rb,0.64772e+03_rb,0.81886e+03_rb /)\n      kbo(:, 5,47,15) = (/ &\n        & 0.10385e+04_rb,0.78623e+03_rb,0.66606e+03_rb,0.62176e+03_rb,0.79095e+03_rb /)\n      kbo(:, 1,48,15) = (/ &\n        & 0.11675e+04_rb,0.91580e+03_rb,0.81991e+03_rb,0.74998e+03_rb,0.91375e+03_rb /)\n      kbo(:, 2,48,15) = (/ &\n        & 0.11421e+04_rb,0.88462e+03_rb,0.78203e+03_rb,0.71783e+03_rb,0.88726e+03_rb /)\n      kbo(:, 3,48,15) = (/ &\n        & 0.11139e+04_rb,0.85471e+03_rb,0.74597e+03_rb,0.68710e+03_rb,0.85917e+03_rb /)\n      kbo(:, 4,48,15) = (/ &\n        & 0.10836e+04_rb,0.82582e+03_rb,0.71165e+03_rb,0.65875e+03_rb,0.83052e+03_rb /)\n      kbo(:, 5,48,15) = (/ &\n        & 0.10518e+04_rb,0.79762e+03_rb,0.67897e+03_rb,0.63216e+03_rb,0.80224e+03_rb /)\n      kbo(:, 1,49,15) = (/ &\n        & 0.11770e+04_rb,0.92887e+03_rb,0.83589e+03_rb,0.76347e+03_rb,0.92401e+03_rb /)\n      kbo(:, 2,49,15) = (/ &\n        & 0.11531e+04_rb,0.89735e+03_rb,0.79736e+03_rb,0.73085e+03_rb,0.89839e+03_rb /)\n      kbo(:, 3,49,15) = (/ &\n        & 0.11259e+04_rb,0.86690e+03_rb,0.76049e+03_rb,0.69928e+03_rb,0.87069e+03_rb /)\n      kbo(:, 4,49,15) = (/ &\n        & 0.10963e+04_rb,0.83754e+03_rb,0.72543e+03_rb,0.67003e+03_rb,0.84223e+03_rb /)\n      kbo(:, 5,49,15) = (/ &\n        & 0.10650e+04_rb,0.80903e+03_rb,0.69202e+03_rb,0.64278e+03_rb,0.81363e+03_rb /)\n      kbo(:, 1,50,15) = (/ &\n        & 0.11850e+04_rb,0.94106e+03_rb,0.85114e+03_rb,0.77623e+03_rb,0.93320e+03_rb /)\n      kbo(:, 2,50,15) = (/ &\n        & 0.11628e+04_rb,0.90935e+03_rb,0.81191e+03_rb,0.74315e+03_rb,0.90846e+03_rb /)\n      kbo(:, 3,50,15) = (/ &\n        & 0.11368e+04_rb,0.87848e+03_rb,0.77441e+03_rb,0.71118e+03_rb,0.88145e+03_rb /)\n      kbo(:, 4,50,15) = (/ &\n        & 0.11080e+04_rb,0.84872e+03_rb,0.73862e+03_rb,0.68089e+03_rb,0.85311e+03_rb /)\n      kbo(:, 5,50,15) = (/ &\n        & 0.10771e+04_rb,0.81987e+03_rb,0.70453e+03_rb,0.65297e+03_rb,0.82446e+03_rb /)\n      kbo(:, 1,51,15) = (/ &\n        & 0.11923e+04_rb,0.95283e+03_rb,0.86626e+03_rb,0.78865e+03_rb,0.94170e+03_rb /)\n      kbo(:, 2,51,15) = (/ &\n        & 0.11717e+04_rb,0.92110e+03_rb,0.82616e+03_rb,0.75525e+03_rb,0.91794e+03_rb /)\n      kbo(:, 3,51,15) = (/ &\n        & 0.11468e+04_rb,0.88978e+03_rb,0.78804e+03_rb,0.72292e+03_rb,0.89168e+03_rb /)\n      kbo(:, 4,51,15) = (/ &\n        & 0.11189e+04_rb,0.85951e+03_rb,0.75159e+03_rb,0.69174e+03_rb,0.86368e+03_rb /)\n      kbo(:, 5,51,15) = (/ &\n        & 0.10888e+04_rb,0.83043e+03_rb,0.71698e+03_rb,0.66309e+03_rb,0.83504e+03_rb /)\n      kbo(:, 1,52,15) = (/ &\n        & 0.11987e+04_rb,0.96448e+03_rb,0.88155e+03_rb,0.80101e+03_rb,0.94976e+03_rb /)\n      kbo(:, 2,52,15) = (/ &\n        & 0.11799e+04_rb,0.93288e+03_rb,0.84067e+03_rb,0.76742e+03_rb,0.92694e+03_rb /)\n      kbo(:, 3,52,15) = (/ &\n        & 0.11564e+04_rb,0.90125e+03_rb,0.80189e+03_rb,0.73467e+03_rb,0.90155e+03_rb /)\n      kbo(:, 4,52,15) = (/ &\n        & 0.11296e+04_rb,0.87065e+03_rb,0.76482e+03_rb,0.70289e+03_rb,0.87401e+03_rb /)\n      kbo(:, 5,52,15) = (/ &\n        & 0.11001e+04_rb,0.84107e+03_rb,0.72948e+03_rb,0.67337e+03_rb,0.84559e+03_rb /)\n      kbo(:, 1,53,15) = (/ &\n        & 0.12042e+04_rb,0.97597e+03_rb,0.89729e+03_rb,0.81334e+03_rb,0.95716e+03_rb /)\n      kbo(:, 2,53,15) = (/ &\n        & 0.11876e+04_rb,0.94467e+03_rb,0.85557e+03_rb,0.77990e+03_rb,0.93591e+03_rb /)\n      kbo(:, 3,53,15) = (/ &\n        & 0.11657e+04_rb,0.91285e+03_rb,0.81605e+03_rb,0.74663e+03_rb,0.91125e+03_rb /)\n      kbo(:, 4,53,15) = (/ &\n        & 0.11399e+04_rb,0.88179e+03_rb,0.77830e+03_rb,0.71447e+03_rb,0.88437e+03_rb /)\n      kbo(:, 5,53,15) = (/ &\n        & 0.11113e+04_rb,0.85189e+03_rb,0.74233e+03_rb,0.68396e+03_rb,0.85611e+03_rb /)\n      kbo(:, 1,54,15) = (/ &\n        & 0.12085e+04_rb,0.98643e+03_rb,0.91208e+03_rb,0.82462e+03_rb,0.96332e+03_rb /)\n      kbo(:, 2,54,15) = (/ &\n        & 0.11940e+04_rb,0.95533e+03_rb,0.86934e+03_rb,0.79114e+03_rb,0.94342e+03_rb /)\n      kbo(:, 3,54,15) = (/ &\n        & 0.11737e+04_rb,0.92362e+03_rb,0.82909e+03_rb,0.75767e+03_rb,0.91977e+03_rb /)\n      kbo(:, 4,54,15) = (/ &\n        & 0.11490e+04_rb,0.89214e+03_rb,0.79079e+03_rb,0.72522e+03_rb,0.89369e+03_rb /)\n      kbo(:, 5,54,15) = (/ &\n        & 0.11212e+04_rb,0.86180e+03_rb,0.75420e+03_rb,0.69390e+03_rb,0.86571e+03_rb /)\n      kbo(:, 1,55,15) = (/ &\n        & 0.12111e+04_rb,0.99597e+03_rb,0.92635e+03_rb,0.83534e+03_rb,0.96856e+03_rb /)\n      kbo(:, 2,55,15) = (/ &\n        & 0.11993e+04_rb,0.96550e+03_rb,0.88281e+03_rb,0.80196e+03_rb,0.95029e+03_rb /)\n      kbo(:, 3,55,15) = (/ &\n        & 0.11808e+04_rb,0.93390e+03_rb,0.84185e+03_rb,0.76841e+03_rb,0.92774e+03_rb /)\n      kbo(:, 4,55,15) = (/ &\n        & 0.11574e+04_rb,0.90226e+03_rb,0.80305e+03_rb,0.73557e+03_rb,0.90236e+03_rb /)\n      kbo(:, 5,55,15) = (/ &\n        & 0.11305e+04_rb,0.87151e+03_rb,0.76581e+03_rb,0.70377e+03_rb,0.87482e+03_rb /)\n      kbo(:, 1,56,15) = (/ &\n        & 0.12133e+04_rb,0.10055e+04_rb,0.94091e+03_rb,0.84599e+03_rb,0.97308e+03_rb /)\n      kbo(:, 2,56,15) = (/ &\n        & 0.12041e+04_rb,0.97555e+03_rb,0.89660e+03_rb,0.81280e+03_rb,0.95684e+03_rb /)\n      kbo(:, 3,56,15) = (/ &\n        & 0.11875e+04_rb,0.94422e+03_rb,0.85482e+03_rb,0.77921e+03_rb,0.93538e+03_rb /)\n      kbo(:, 4,56,15) = (/ &\n        & 0.11654e+04_rb,0.91235e+03_rb,0.81536e+03_rb,0.74599e+03_rb,0.91077e+03_rb /)\n      kbo(:, 5,56,15) = (/ &\n        & 0.11395e+04_rb,0.88125e+03_rb,0.77756e+03_rb,0.71383e+03_rb,0.88381e+03_rb /)\n      kbo(:, 1,57,15) = (/ &\n        & 0.12144e+04_rb,0.10149e+04_rb,0.95530e+03_rb,0.85635e+03_rb,0.97654e+03_rb /)\n      kbo(:, 2,57,15) = (/ &\n        & 0.12082e+04_rb,0.98553e+03_rb,0.91069e+03_rb,0.82360e+03_rb,0.96286e+03_rb /)\n      kbo(:, 3,57,15) = (/ &\n        & 0.11936e+04_rb,0.95436e+03_rb,0.86797e+03_rb,0.78997e+03_rb,0.94263e+03_rb /)\n      kbo(:, 4,57,15) = (/ &\n        & 0.11730e+04_rb,0.92261e+03_rb,0.82779e+03_rb,0.75653e+03_rb,0.91896e+03_rb /)\n      kbo(:, 5,57,15) = (/ &\n        & 0.11481e+04_rb,0.89107e+03_rb,0.78949e+03_rb,0.72412e+03_rb,0.89274e+03_rb /)\n      kbo(:, 1,58,15) = (/ &\n        & 0.12146e+04_rb,0.10236e+04_rb,0.96889e+03_rb,0.86606e+03_rb,0.97897e+03_rb /)\n      kbo(:, 2,58,15) = (/ &\n        & 0.12111e+04_rb,0.99468e+03_rb,0.92419e+03_rb,0.83372e+03_rb,0.96790e+03_rb /)\n      kbo(:, 3,58,15) = (/ &\n        & 0.11988e+04_rb,0.96400e+03_rb,0.88060e+03_rb,0.80022e+03_rb,0.94932e+03_rb /)\n      kbo(:, 4,58,15) = (/ &\n        & 0.11798e+04_rb,0.93230e+03_rb,0.83979e+03_rb,0.76663e+03_rb,0.92647e+03_rb /)\n      kbo(:, 5,58,15) = (/ &\n        & 0.11561e+04_rb,0.90059e+03_rb,0.80102e+03_rb,0.73388e+03_rb,0.90094e+03_rb /)\n      kbo(:, 1,59,15) = (/ &\n        & 0.12143e+04_rb,0.10270e+04_rb,0.97431e+03_rb,0.86988e+03_rb,0.97963e+03_rb /)\n      kbo(:, 2,59,15) = (/ &\n        & 0.12120e+04_rb,0.99826e+03_rb,0.92964e+03_rb,0.83774e+03_rb,0.96974e+03_rb /)\n      kbo(:, 3,59,15) = (/ &\n        & 0.12008e+04_rb,0.96785e+03_rb,0.88575e+03_rb,0.80426e+03_rb,0.95182e+03_rb /)\n      kbo(:, 4,59,15) = (/ &\n        & 0.11824e+04_rb,0.93625e+03_rb,0.84468e+03_rb,0.77075e+03_rb,0.92946e+03_rb /)\n      kbo(:, 5,59,15) = (/ &\n        & 0.11592e+04_rb,0.90444e+03_rb,0.80567e+03_rb,0.73781e+03_rb,0.90417e+03_rb /)\n      kbo(:, 1,13,16) = (/ &\n        & 0.60786e+03_rb,0.45592e+03_rb,0.38499e+03_rb,0.57704e+03_rb,0.77025e+03_rb /)\n      kbo(:, 2,13,16) = (/ &\n        & 0.61089e+03_rb,0.45819e+03_rb,0.37289e+03_rb,0.55854e+03_rb,0.74550e+03_rb /)\n      kbo(:, 3,13,16) = (/ &\n        & 0.61169e+03_rb,0.45879e+03_rb,0.36189e+03_rb,0.54102e+03_rb,0.72223e+03_rb /)\n      kbo(:, 4,13,16) = (/ &\n        & 0.61079e+03_rb,0.45811e+03_rb,0.35169e+03_rb,0.52404e+03_rb,0.69950e+03_rb /)\n      kbo(:, 5,13,16) = (/ &\n        & 0.60850e+03_rb,0.45639e+03_rb,0.34199e+03_rb,0.50729e+03_rb,0.67716e+03_rb /)\n      kbo(:, 1,14,16) = (/ &\n        & 0.71905e+03_rb,0.53931e+03_rb,0.44704e+03_rb,0.66948e+03_rb,0.89363e+03_rb /)\n      kbo(:, 2,14,16) = (/ &\n        & 0.71950e+03_rb,0.53965e+03_rb,0.43274e+03_rb,0.64598e+03_rb,0.86230e+03_rb /)\n      kbo(:, 3,14,16) = (/ &\n        & 0.71818e+03_rb,0.53865e+03_rb,0.41969e+03_rb,0.62353e+03_rb,0.83220e+03_rb /)\n      kbo(:, 4,14,16) = (/ &\n        & 0.71532e+03_rb,0.53651e+03_rb,0.40717e+03_rb,0.60193e+03_rb,0.80343e+03_rb /)\n      kbo(:, 5,14,16) = (/ &\n        & 0.71008e+03_rb,0.53258e+03_rb,0.39527e+03_rb,0.58080e+03_rb,0.77521e+03_rb /)\n      kbo(:, 1,15,16) = (/ &\n        & 0.84339e+03_rb,0.63256e+03_rb,0.51534e+03_rb,0.76897e+03_rb,0.10264e+04_rb /)\n      kbo(:, 2,15,16) = (/ &\n        & 0.84056e+03_rb,0.63042e+03_rb,0.49783e+03_rb,0.73927e+03_rb,0.98670e+03_rb /)\n      kbo(:, 3,15,16) = (/ &\n        & 0.83549e+03_rb,0.62663e+03_rb,0.48183e+03_rb,0.71056e+03_rb,0.94836e+03_rb /)\n      kbo(:, 4,15,16) = (/ &\n        & 0.82865e+03_rb,0.62150e+03_rb,0.46649e+03_rb,0.68266e+03_rb,0.91115e+03_rb /)\n      kbo(:, 5,15,16) = (/ &\n        & 0.81975e+03_rb,0.61483e+03_rb,0.45195e+03_rb,0.65670e+03_rb,0.87636e+03_rb /)\n      kbo(:, 1,16,16) = (/ &\n        & 0.97910e+03_rb,0.73434e+03_rb,0.58857e+03_rb,0.87272e+03_rb,0.11648e+04_rb /)\n      kbo(:, 2,16,16) = (/ &\n        & 0.97153e+03_rb,0.72866e+03_rb,0.56721e+03_rb,0.83540e+03_rb,0.11150e+04_rb /)\n      kbo(:, 3,16,16) = (/ &\n        & 0.96129e+03_rb,0.72098e+03_rb,0.54742e+03_rb,0.79937e+03_rb,0.10667e+04_rb /)\n      kbo(:, 4,16,16) = (/ &\n        & 0.94880e+03_rb,0.71161e+03_rb,0.52876e+03_rb,0.76497e+03_rb,0.10209e+04_rb /)\n      kbo(:, 5,16,16) = (/ &\n        & 0.93421e+03_rb,0.70067e+03_rb,0.51082e+03_rb,0.73352e+03_rb,0.97881e+03_rb /)\n      kbo(:, 1,17,16) = (/ &\n        & 0.11229e+04_rb,0.84221e+03_rb,0.66547e+03_rb,0.97911e+03_rb,0.13066e+04_rb /)\n      kbo(:, 2,17,16) = (/ &\n        & 0.11091e+04_rb,0.83187e+03_rb,0.63930e+03_rb,0.93226e+03_rb,0.12440e+04_rb /)\n      kbo(:, 3,17,16) = (/ &\n        & 0.10923e+04_rb,0.81922e+03_rb,0.61539e+03_rb,0.88802e+03_rb,0.11849e+04_rb /)\n      kbo(:, 4,17,16) = (/ &\n        & 0.10728e+04_rb,0.80459e+03_rb,0.59256e+03_rb,0.84691e+03_rb,0.11301e+04_rb /)\n      kbo(:, 5,17,16) = (/ &\n        & 0.10515e+04_rb,0.78865e+03_rb,0.57044e+03_rb,0.80936e+03_rb,0.10799e+04_rb /)\n      kbo(:, 1,18,16) = (/ &\n        & 0.12716e+04_rb,0.95370e+03_rb,0.74447e+03_rb,0.10843e+04_rb,0.14469e+04_rb /)\n      kbo(:, 2,18,16) = (/ &\n        & 0.12500e+04_rb,0.93749e+03_rb,0.71274e+03_rb,0.10272e+04_rb,0.13706e+04_rb /)\n      kbo(:, 3,18,16) = (/ &\n        & 0.12251e+04_rb,0.91883e+03_rb,0.68394e+03_rb,0.97432e+03_rb,0.13000e+04_rb /)\n      kbo(:, 4,18,16) = (/ &\n        & 0.11973e+04_rb,0.89795e+03_rb,0.65609e+03_rb,0.92626e+03_rb,0.12359e+04_rb /)\n      kbo(:, 5,18,16) = (/ &\n        & 0.11679e+04_rb,0.87596e+03_rb,0.62959e+03_rb,0.88232e+03_rb,0.11772e+04_rb /)\n      kbo(:, 1,19,16) = (/ &\n        & 0.14213e+04_rb,0.10659e+04_rb,0.82299e+03_rb,0.11854e+04_rb,0.15817e+04_rb /)\n      kbo(:, 2,19,16) = (/ &\n        & 0.13899e+04_rb,0.10424e+04_rb,0.78536e+03_rb,0.11181e+04_rb,0.14919e+04_rb /)\n      kbo(:, 3,19,16) = (/ &\n        & 0.13555e+04_rb,0.10166e+04_rb,0.75067e+03_rb,0.10563e+04_rb,0.14093e+04_rb /)\n      kbo(:, 4,19,16) = (/ &\n        & 0.13187e+04_rb,0.98902e+03_rb,0.71751e+03_rb,0.10008e+04_rb,0.13351e+04_rb /)\n      kbo(:, 5,19,16) = (/ &\n        & 0.12809e+04_rb,0.96067e+03_rb,0.68653e+03_rb,0.95065e+03_rb,0.12682e+04_rb /)\n      kbo(:, 1,20,16) = (/ &\n        & 0.15671e+04_rb,0.11753e+04_rb,0.89787e+03_rb,0.12782e+04_rb,0.17052e+04_rb /)\n      kbo(:, 2,20,16) = (/ &\n        & 0.15245e+04_rb,0.11434e+04_rb,0.85373e+03_rb,0.12013e+04_rb,0.16026e+04_rb /)\n      kbo(:, 3,20,16) = (/ &\n        & 0.14795e+04_rb,0.11097e+04_rb,0.81323e+03_rb,0.11307e+04_rb,0.15085e+04_rb /)\n      kbo(:, 4,20,16) = (/ &\n        & 0.14333e+04_rb,0.10750e+04_rb,0.77488e+03_rb,0.10684e+04_rb,0.14252e+04_rb /)\n      kbo(:, 5,20,16) = (/ &\n        & 0.13861e+04_rb,0.10396e+04_rb,0.73891e+03_rb,0.10119e+04_rb,0.13498e+04_rb /)\n      kbo(:, 1,21,16) = (/ &\n        & 0.17057e+04_rb,0.12793e+04_rb,0.96840e+03_rb,0.13620e+04_rb,0.18170e+04_rb /)\n      kbo(:, 2,21,16) = (/ &\n        & 0.16509e+04_rb,0.12382e+04_rb,0.91726e+03_rb,0.12758e+04_rb,0.17018e+04_rb /)\n      kbo(:, 3,21,16) = (/ &\n        & 0.15947e+04_rb,0.11960e+04_rb,0.87064e+03_rb,0.11975e+04_rb,0.15973e+04_rb /)\n      kbo(:, 4,21,16) = (/ &\n        & 0.15386e+04_rb,0.11540e+04_rb,0.82723e+03_rb,0.11286e+04_rb,0.15054e+04_rb /)\n      kbo(:, 5,21,16) = (/ &\n        & 0.14823e+04_rb,0.11117e+04_rb,0.78614e+03_rb,0.10661e+04_rb,0.14220e+04_rb /)\n      kbo(:, 1,22,16) = (/ &\n        & 0.18293e+04_rb,0.13720e+04_rb,0.10288e+04_rb,0.14300e+04_rb,0.19074e+04_rb /)\n      kbo(:, 2,22,16) = (/ &\n        & 0.17617e+04_rb,0.13213e+04_rb,0.97120e+03_rb,0.13351e+04_rb,0.17808e+04_rb /)\n      kbo(:, 3,22,16) = (/ &\n        & 0.16944e+04_rb,0.12708e+04_rb,0.91894e+03_rb,0.12506e+04_rb,0.16681e+04_rb /)\n      kbo(:, 4,22,16) = (/ &\n        & 0.16287e+04_rb,0.12215e+04_rb,0.87041e+03_rb,0.11757e+04_rb,0.15681e+04_rb /)\n      kbo(:, 5,22,16) = (/ &\n        & 0.15635e+04_rb,0.11726e+04_rb,0.82499e+03_rb,0.11083e+04_rb,0.14783e+04_rb /)\n      kbo(:, 1,23,16) = (/ &\n        & 0.19373e+04_rb,0.14530e+04_rb,0.10803e+04_rb,0.14855e+04_rb,0.19814e+04_rb /)\n      kbo(:, 2,23,16) = (/ &\n        & 0.18577e+04_rb,0.13933e+04_rb,0.10171e+04_rb,0.13836e+04_rb,0.18455e+04_rb /)\n      kbo(:, 3,23,16) = (/ &\n        & 0.17799e+04_rb,0.13350e+04_rb,0.95955e+03_rb,0.12936e+04_rb,0.17253e+04_rb /)\n      kbo(:, 4,23,16) = (/ &\n        & 0.17053e+04_rb,0.12790e+04_rb,0.90643e+03_rb,0.12138e+04_rb,0.16189e+04_rb /)\n      kbo(:, 5,23,16) = (/ &\n        & 0.16318e+04_rb,0.12239e+04_rb,0.85742e+03_rb,0.11422e+04_rb,0.15233e+04_rb /)\n      kbo(:, 1,24,16) = (/ &\n        & 0.20285e+04_rb,0.15214e+04_rb,0.11229e+04_rb,0.15287e+04_rb,0.20389e+04_rb /)\n      kbo(:, 2,24,16) = (/ &\n        & 0.19379e+04_rb,0.14534e+04_rb,0.10546e+04_rb,0.14215e+04_rb,0.18958e+04_rb /)\n      kbo(:, 3,24,16) = (/ &\n        & 0.18509e+04_rb,0.13882e+04_rb,0.99252e+03_rb,0.13268e+04_rb,0.17696e+04_rb /)\n      kbo(:, 4,24,16) = (/ &\n        & 0.17680e+04_rb,0.13260e+04_rb,0.93542e+03_rb,0.12431e+04_rb,0.16579e+04_rb /)\n      kbo(:, 5,24,16) = (/ &\n        & 0.16872e+04_rb,0.12654e+04_rb,0.88318e+03_rb,0.11679e+04_rb,0.15576e+04_rb /)\n      kbo(:, 1,25,16) = (/ &\n        & 0.21022e+04_rb,0.15767e+04_rb,0.11562e+04_rb,0.15596e+04_rb,0.20800e+04_rb /)\n      kbo(:, 2,25,16) = (/ &\n        & 0.20021e+04_rb,0.15016e+04_rb,0.10837e+04_rb,0.14483e+04_rb,0.19315e+04_rb /)\n      kbo(:, 3,25,16) = (/ &\n        & 0.19072e+04_rb,0.14304e+04_rb,0.10177e+04_rb,0.13507e+04_rb,0.18013e+04_rb /)\n      kbo(:, 4,25,16) = (/ &\n        & 0.18172e+04_rb,0.13629e+04_rb,0.95761e+03_rb,0.12639e+04_rb,0.16854e+04_rb /)\n      kbo(:, 5,25,16) = (/ &\n        & 0.17302e+04_rb,0.12976e+04_rb,0.90262e+03_rb,0.11861e+04_rb,0.15818e+04_rb /)\n      kbo(:, 1,26,16) = (/ &\n        & 0.21584e+04_rb,0.16188e+04_rb,0.11798e+04_rb,0.15785e+04_rb,0.21051e+04_rb /)\n      kbo(:, 2,26,16) = (/ &\n        & 0.20504e+04_rb,0.15378e+04_rb,0.11040e+04_rb,0.14649e+04_rb,0.19536e+04_rb /)\n      kbo(:, 3,26,16) = (/ &\n        & 0.19488e+04_rb,0.14616e+04_rb,0.10351e+04_rb,0.13650e+04_rb,0.18204e+04_rb /)\n      kbo(:, 4,26,16) = (/ &\n        & 0.18527e+04_rb,0.13896e+04_rb,0.97267e+03_rb,0.12762e+04_rb,0.17019e+04_rb /)\n      kbo(:, 5,26,16) = (/ &\n        & 0.17609e+04_rb,0.13206e+04_rb,0.91583e+03_rb,0.11969e+04_rb,0.15961e+04_rb /)\n      kbo(:, 1,27,16) = (/ &\n        & 0.21995e+04_rb,0.16496e+04_rb,0.11960e+04_rb,0.15887e+04_rb,0.21185e+04_rb /)\n      kbo(:, 2,27,16) = (/ &\n        & 0.20852e+04_rb,0.15639e+04_rb,0.11175e+04_rb,0.14736e+04_rb,0.19651e+04_rb /)\n      kbo(:, 3,27,16) = (/ &\n        & 0.19784e+04_rb,0.14838e+04_rb,0.10466e+04_rb,0.13723e+04_rb,0.18300e+04_rb /)\n      kbo(:, 4,27,16) = (/ &\n        & 0.18776e+04_rb,0.14082e+04_rb,0.98231e+03_rb,0.12823e+04_rb,0.17101e+04_rb /)\n      kbo(:, 5,27,16) = (/ &\n        & 0.17820e+04_rb,0.13365e+04_rb,0.92416e+03_rb,0.12022e+04_rb,0.16031e+04_rb /)\n      kbo(:, 1,28,16) = (/ &\n        & 0.22274e+04_rb,0.16706e+04_rb,0.12052e+04_rb,0.15913e+04_rb,0.21220e+04_rb /)\n      kbo(:, 2,28,16) = (/ &\n        & 0.21084e+04_rb,0.15813e+04_rb,0.11251e+04_rb,0.14757e+04_rb,0.19679e+04_rb /)\n      kbo(:, 3,28,16) = (/ &\n        & 0.19974e+04_rb,0.14981e+04_rb,0.10528e+04_rb,0.13738e+04_rb,0.18320e+04_rb /)\n      kbo(:, 4,28,16) = (/ &\n        & 0.18930e+04_rb,0.14198e+04_rb,0.98736e+03_rb,0.12834e+04_rb,0.17114e+04_rb /)\n      kbo(:, 5,28,16) = (/ &\n        & 0.17945e+04_rb,0.13459e+04_rb,0.92826e+03_rb,0.12029e+04_rb,0.16040e+04_rb /)\n      kbo(:, 1,29,16) = (/ &\n        & 0.22434e+04_rb,0.16825e+04_rb,0.12082e+04_rb,0.15868e+04_rb,0.21160e+04_rb /)\n      kbo(:, 2,29,16) = (/ &\n        & 0.21209e+04_rb,0.15907e+04_rb,0.11272e+04_rb,0.14716e+04_rb,0.19623e+04_rb /)\n      kbo(:, 3,29,16) = (/ &\n        & 0.20069e+04_rb,0.15052e+04_rb,0.10541e+04_rb,0.13700e+04_rb,0.18268e+04_rb /)\n      kbo(:, 4,29,16) = (/ &\n        & 0.18999e+04_rb,0.14249e+04_rb,0.98819e+03_rb,0.12798e+04_rb,0.17065e+04_rb /)\n      kbo(:, 5,29,16) = (/ &\n        & 0.17996e+04_rb,0.13497e+04_rb,0.92869e+03_rb,0.11992e+04_rb,0.15991e+04_rb /)\n      kbo(:, 1,30,16) = (/ &\n        & 0.22495e+04_rb,0.16871e+04_rb,0.12065e+04_rb,0.15776e+04_rb,0.21036e+04_rb /)\n      kbo(:, 2,30,16) = (/ &\n        & 0.21251e+04_rb,0.15938e+04_rb,0.11251e+04_rb,0.14633e+04_rb,0.19512e+04_rb /)\n      kbo(:, 3,30,16) = (/ &\n        & 0.20091e+04_rb,0.15068e+04_rb,0.10517e+04_rb,0.13621e+04_rb,0.18163e+04_rb /)\n      kbo(:, 4,30,16) = (/ &\n        & 0.19004e+04_rb,0.14253e+04_rb,0.98584e+03_rb,0.12727e+04_rb,0.16970e+04_rb /)\n      kbo(:, 5,30,16) = (/ &\n        & 0.17984e+04_rb,0.13488e+04_rb,0.92610e+03_rb,0.11928e+04_rb,0.15905e+04_rb /)\n      kbo(:, 1,31,16) = (/ &\n        & 0.22474e+04_rb,0.16855e+04_rb,0.12005e+04_rb,0.15635e+04_rb,0.20848e+04_rb /)\n      kbo(:, 2,31,16) = (/ &\n        & 0.21214e+04_rb,0.15910e+04_rb,0.11192e+04_rb,0.14507e+04_rb,0.19344e+04_rb /)\n      kbo(:, 3,31,16) = (/ &\n        & 0.20043e+04_rb,0.15033e+04_rb,0.10461e+04_rb,0.13510e+04_rb,0.18015e+04_rb /)\n      kbo(:, 4,31,16) = (/ &\n        & 0.18948e+04_rb,0.14211e+04_rb,0.98049e+03_rb,0.12625e+04_rb,0.16835e+04_rb /)\n      kbo(:, 5,31,16) = (/ &\n        & 0.17922e+04_rb,0.13441e+04_rb,0.92102e+03_rb,0.11837e+04_rb,0.15784e+04_rb /)\n      kbo(:, 1,32,16) = (/ &\n        & 0.22387e+04_rb,0.16790e+04_rb,0.11913e+04_rb,0.15463e+04_rb,0.20617e+04_rb /)\n      kbo(:, 2,32,16) = (/ &\n        & 0.21117e+04_rb,0.15838e+04_rb,0.11104e+04_rb,0.14353e+04_rb,0.19138e+04_rb /)\n      kbo(:, 3,32,16) = (/ &\n        & 0.19944e+04_rb,0.14958e+04_rb,0.10381e+04_rb,0.13373e+04_rb,0.17831e+04_rb /)\n      kbo(:, 4,32,16) = (/ &\n        & 0.18846e+04_rb,0.14135e+04_rb,0.97304e+03_rb,0.12502e+04_rb,0.16670e+04_rb /)\n      kbo(:, 5,32,16) = (/ &\n        & 0.17818e+04_rb,0.13363e+04_rb,0.91392e+03_rb,0.11724e+04_rb,0.15633e+04_rb /)\n      kbo(:, 1,33,16) = (/ &\n        & 0.22243e+04_rb,0.16682e+04_rb,0.11793e+04_rb,0.15266e+04_rb,0.20355e+04_rb /)\n      kbo(:, 2,33,16) = (/ &\n        & 0.20975e+04_rb,0.15731e+04_rb,0.10994e+04_rb,0.14177e+04_rb,0.18903e+04_rb /)\n      kbo(:, 3,33,16) = (/ &\n        & 0.19805e+04_rb,0.14854e+04_rb,0.10282e+04_rb,0.13217e+04_rb,0.17623e+04_rb /)\n      kbo(:, 4,33,16) = (/ &\n        & 0.18707e+04_rb,0.14030e+04_rb,0.96384e+03_rb,0.12361e+04_rb,0.16482e+04_rb /)\n      kbo(:, 5,33,16) = (/ &\n        & 0.17684e+04_rb,0.13263e+04_rb,0.90541e+03_rb,0.11600e+04_rb,0.15467e+04_rb /)\n      kbo(:, 1,34,16) = (/ &\n        & 0.22110e+04_rb,0.16582e+04_rb,0.11687e+04_rb,0.15094e+04_rb,0.20126e+04_rb /)\n      kbo(:, 2,34,16) = (/ &\n        & 0.20843e+04_rb,0.15632e+04_rb,0.10894e+04_rb,0.14021e+04_rb,0.18696e+04_rb /)\n      kbo(:, 3,34,16) = (/ &\n        & 0.19675e+04_rb,0.14756e+04_rb,0.10193e+04_rb,0.13079e+04_rb,0.17439e+04_rb /)\n      kbo(:, 4,34,16) = (/ &\n        & 0.18579e+04_rb,0.13934e+04_rb,0.95559e+03_rb,0.12238e+04_rb,0.16318e+04_rb /)\n      kbo(:, 5,34,16) = (/ &\n        & 0.17560e+04_rb,0.13170e+04_rb,0.89776e+03_rb,0.11489e+04_rb,0.15318e+04_rb /)\n      kbo(:, 1,35,16) = (/ &\n        & 0.22070e+04_rb,0.16552e+04_rb,0.11645e+04_rb,0.15017e+04_rb,0.20024e+04_rb /)\n      kbo(:, 2,35,16) = (/ &\n        & 0.20800e+04_rb,0.15600e+04_rb,0.10855e+04_rb,0.13953e+04_rb,0.18605e+04_rb /)\n      kbo(:, 3,35,16) = (/ &\n        & 0.19630e+04_rb,0.14722e+04_rb,0.10157e+04_rb,0.13017e+04_rb,0.17356e+04_rb /)\n      kbo(:, 4,35,16) = (/ &\n        & 0.18532e+04_rb,0.13899e+04_rb,0.95221e+03_rb,0.12182e+04_rb,0.16243e+04_rb /)\n      kbo(:, 5,35,16) = (/ &\n        & 0.17512e+04_rb,0.13134e+04_rb,0.89456e+03_rb,0.11438e+04_rb,0.15251e+04_rb /)\n      kbo(:, 1,36,16) = (/ &\n        & 0.22146e+04_rb,0.16609e+04_rb,0.11681e+04_rb,0.15050e+04_rb,0.20067e+04_rb /)\n      kbo(:, 2,36,16) = (/ &\n        & 0.20867e+04_rb,0.15651e+04_rb,0.10887e+04_rb,0.13982e+04_rb,0.18642e+04_rb /)\n      kbo(:, 3,36,16) = (/ &\n        & 0.19689e+04_rb,0.14767e+04_rb,0.10184e+04_rb,0.13041e+04_rb,0.17389e+04_rb /)\n      kbo(:, 4,36,16) = (/ &\n        & 0.18582e+04_rb,0.13937e+04_rb,0.95458e+03_rb,0.12204e+04_rb,0.16272e+04_rb /)\n      kbo(:, 5,36,16) = (/ &\n        & 0.17557e+04_rb,0.13168e+04_rb,0.89664e+03_rb,0.11458e+04_rb,0.15277e+04_rb /)\n      kbo(:, 1,37,16) = (/ &\n        & 0.22411e+04_rb,0.16809e+04_rb,0.11837e+04_rb,0.15248e+04_rb,0.20331e+04_rb /)\n      kbo(:, 2,37,16) = (/ &\n        & 0.21106e+04_rb,0.15830e+04_rb,0.11025e+04_rb,0.14155e+04_rb,0.18873e+04_rb /)\n      kbo(:, 3,37,16) = (/ &\n        & 0.19909e+04_rb,0.14932e+04_rb,0.10307e+04_rb,0.13195e+04_rb,0.17594e+04_rb /)\n      kbo(:, 4,37,16) = (/ &\n        & 0.18783e+04_rb,0.14088e+04_rb,0.96559e+03_rb,0.12340e+04_rb,0.16453e+04_rb /)\n      kbo(:, 5,37,16) = (/ &\n        & 0.17743e+04_rb,0.13307e+04_rb,0.90666e+03_rb,0.11578e+04_rb,0.15438e+04_rb /)\n      kbo(:, 1,38,16) = (/ &\n        & 0.22677e+04_rb,0.17008e+04_rb,0.11995e+04_rb,0.15451e+04_rb,0.20601e+04_rb /)\n      kbo(:, 2,38,16) = (/ &\n        & 0.21347e+04_rb,0.16010e+04_rb,0.11166e+04_rb,0.14334e+04_rb,0.19112e+04_rb /)\n      kbo(:, 3,38,16) = (/ &\n        & 0.20130e+04_rb,0.15097e+04_rb,0.10432e+04_rb,0.13353e+04_rb,0.17805e+04_rb /)\n      kbo(:, 4,38,16) = (/ &\n        & 0.18989e+04_rb,0.14242e+04_rb,0.97692e+03_rb,0.12480e+04_rb,0.16640e+04_rb /)\n      kbo(:, 5,38,16) = (/ &\n        & 0.17929e+04_rb,0.13447e+04_rb,0.91684e+03_rb,0.11704e+04_rb,0.15605e+04_rb /)\n      kbo(:, 1,39,16) = (/ &\n        & 0.22932e+04_rb,0.17199e+04_rb,0.12149e+04_rb,0.15649e+04_rb,0.20865e+04_rb /)\n      kbo(:, 2,39,16) = (/ &\n        & 0.21580e+04_rb,0.16185e+04_rb,0.11304e+04_rb,0.14510e+04_rb,0.19346e+04_rb /)\n      kbo(:, 3,39,16) = (/ &\n        & 0.20342e+04_rb,0.15257e+04_rb,0.10554e+04_rb,0.13508e+04_rb,0.18011e+04_rb /)\n      kbo(:, 4,39,16) = (/ &\n        & 0.19186e+04_rb,0.14389e+04_rb,0.98789e+03_rb,0.12618e+04_rb,0.16825e+04_rb /)\n      kbo(:, 5,39,16) = (/ &\n        & 0.18110e+04_rb,0.13582e+04_rb,0.92676e+03_rb,0.11826e+04_rb,0.15768e+04_rb /)\n      kbo(:, 1,40,16) = (/ &\n        & 0.23330e+04_rb,0.17497e+04_rb,0.12394e+04_rb,0.15975e+04_rb,0.21300e+04_rb /)\n      kbo(:, 2,40,16) = (/ &\n        & 0.21946e+04_rb,0.16460e+04_rb,0.11524e+04_rb,0.14797e+04_rb,0.19730e+04_rb /)\n      kbo(:, 3,40,16) = (/ &\n        & 0.20673e+04_rb,0.15505e+04_rb,0.10747e+04_rb,0.13759e+04_rb,0.18346e+04_rb /)\n      kbo(:, 4,40,16) = (/ &\n        & 0.19494e+04_rb,0.14621e+04_rb,0.10054e+04_rb,0.12842e+04_rb,0.17123e+04_rb /)\n      kbo(:, 5,40,16) = (/ &\n        & 0.18395e+04_rb,0.13796e+04_rb,0.94264e+03_rb,0.12026e+04_rb,0.16034e+04_rb /)\n      kbo(:, 1,41,16) = (/ &\n        & 0.23748e+04_rb,0.17811e+04_rb,0.12653e+04_rb,0.16323e+04_rb,0.21765e+04_rb /)\n      kbo(:, 2,41,16) = (/ &\n        & 0.22335e+04_rb,0.16751e+04_rb,0.11760e+04_rb,0.15106e+04_rb,0.20142e+04_rb /)\n      kbo(:, 3,41,16) = (/ &\n        & 0.21020e+04_rb,0.15765e+04_rb,0.10953e+04_rb,0.14029e+04_rb,0.18706e+04_rb /)\n      kbo(:, 4,41,16) = (/ &\n        & 0.19818e+04_rb,0.14863e+04_rb,0.10239e+04_rb,0.13082e+04_rb,0.17443e+04_rb /)\n      kbo(:, 5,41,16) = (/ &\n        & 0.18696e+04_rb,0.14022e+04_rb,0.95944e+03_rb,0.12238e+04_rb,0.16317e+04_rb /)\n      kbo(:, 1,42,16) = (/ &\n        & 0.24183e+04_rb,0.18137e+04_rb,0.12922e+04_rb,0.16686e+04_rb,0.22248e+04_rb /)\n      kbo(:, 2,42,16) = (/ &\n        & 0.22718e+04_rb,0.17039e+04_rb,0.11997e+04_rb,0.15420e+04_rb,0.20561e+04_rb /)\n      kbo(:, 3,42,16) = (/ &\n        & 0.21373e+04_rb,0.16030e+04_rb,0.11164e+04_rb,0.14305e+04_rb,0.19073e+04_rb /)\n      kbo(:, 4,42,16) = (/ &\n        & 0.20143e+04_rb,0.15107e+04_rb,0.10428e+04_rb,0.13327e+04_rb,0.17770e+04_rb /)\n      kbo(:, 5,42,16) = (/ &\n        & 0.18998e+04_rb,0.14249e+04_rb,0.97647e+03_rb,0.12457e+04_rb,0.16610e+04_rb /)\n      kbo(:, 1,43,16) = (/ &\n        & 0.24703e+04_rb,0.18528e+04_rb,0.13249e+04_rb,0.17136e+04_rb,0.22848e+04_rb /)\n      kbo(:, 2,43,16) = (/ &\n        & 0.23188e+04_rb,0.17391e+04_rb,0.12289e+04_rb,0.15811e+04_rb,0.21082e+04_rb /)\n      kbo(:, 3,43,16) = (/ &\n        & 0.21803e+04_rb,0.16352e+04_rb,0.11426e+04_rb,0.14651e+04_rb,0.19535e+04_rb /)\n      kbo(:, 4,43,16) = (/ &\n        & 0.20539e+04_rb,0.15404e+04_rb,0.10659e+04_rb,0.13633e+04_rb,0.18177e+04_rb /)\n      kbo(:, 5,43,16) = (/ &\n        & 0.19367e+04_rb,0.14525e+04_rb,0.99744e+03_rb,0.12728e+04_rb,0.16970e+04_rb /)\n      kbo(:, 1,44,16) = (/ &\n        & 0.25274e+04_rb,0.18956e+04_rb,0.13612e+04_rb,0.17642e+04_rb,0.23522e+04_rb /)\n      kbo(:, 2,44,16) = (/ &\n        & 0.23706e+04_rb,0.17780e+04_rb,0.12614e+04_rb,0.16248e+04_rb,0.21664e+04_rb /)\n      kbo(:, 3,44,16) = (/ &\n        & 0.22278e+04_rb,0.16708e+04_rb,0.11717e+04_rb,0.15040e+04_rb,0.20053e+04_rb /)\n      kbo(:, 4,44,16) = (/ &\n        & 0.20979e+04_rb,0.15734e+04_rb,0.10920e+04_rb,0.13972e+04_rb,0.18630e+04_rb /)\n      kbo(:, 5,44,16) = (/ &\n        & 0.19771e+04_rb,0.14828e+04_rb,0.10207e+04_rb,0.13030e+04_rb,0.17374e+04_rb /)\n      kbo(:, 1,45,16) = (/ &\n        & 0.25859e+04_rb,0.19394e+04_rb,0.13990e+04_rb,0.18173e+04_rb,0.24231e+04_rb /)\n      kbo(:, 2,45,16) = (/ &\n        & 0.24239e+04_rb,0.18179e+04_rb,0.12948e+04_rb,0.16708e+04_rb,0.22278e+04_rb /)\n      kbo(:, 3,45,16) = (/ &\n        & 0.22761e+04_rb,0.17071e+04_rb,0.12017e+04_rb,0.15441e+04_rb,0.20588e+04_rb /)\n      kbo(:, 4,45,16) = (/ &\n        & 0.21421e+04_rb,0.16066e+04_rb,0.11186e+04_rb,0.14324e+04_rb,0.19099e+04_rb /)\n      kbo(:, 5,45,16) = (/ &\n        & 0.20183e+04_rb,0.15137e+04_rb,0.10446e+04_rb,0.13343e+04_rb,0.17791e+04_rb /)\n      kbo(:, 1,46,16) = (/ &\n        & 0.26504e+04_rb,0.19878e+04_rb,0.14409e+04_rb,0.18767e+04_rb,0.25023e+04_rb /)\n      kbo(:, 2,46,16) = (/ &\n        & 0.24823e+04_rb,0.18617e+04_rb,0.13316e+04_rb,0.17220e+04_rb,0.22960e+04_rb /)\n      kbo(:, 3,46,16) = (/ &\n        & 0.23297e+04_rb,0.17473e+04_rb,0.12351e+04_rb,0.15885e+04_rb,0.21180e+04_rb /)\n      kbo(:, 4,46,16) = (/ &\n        & 0.21905e+04_rb,0.16429e+04_rb,0.11482e+04_rb,0.14718e+04_rb,0.19624e+04_rb /)\n      kbo(:, 5,46,16) = (/ &\n        & 0.20627e+04_rb,0.15470e+04_rb,0.10708e+04_rb,0.13689e+04_rb,0.18252e+04_rb /)\n      kbo(:, 1,47,16) = (/ &\n        & 0.27247e+04_rb,0.20435e+04_rb,0.14902e+04_rb,0.19477e+04_rb,0.25969e+04_rb /)\n      kbo(:, 2,47,16) = (/ &\n        & 0.25493e+04_rb,0.19120e+04_rb,0.13747e+04_rb,0.17822e+04_rb,0.23763e+04_rb /)\n      kbo(:, 3,47,16) = (/ &\n        & 0.23907e+04_rb,0.17930e+04_rb,0.12733e+04_rb,0.16405e+04_rb,0.21874e+04_rb /)\n      kbo(:, 4,47,16) = (/ &\n        & 0.22466e+04_rb,0.16850e+04_rb,0.11827e+04_rb,0.15177e+04_rb,0.20235e+04_rb /)\n      kbo(:, 5,47,16) = (/ &\n        & 0.21136e+04_rb,0.15852e+04_rb,0.11012e+04_rb,0.14091e+04_rb,0.18788e+04_rb /)\n      kbo(:, 1,48,16) = (/ &\n        & 0.28012e+04_rb,0.21009e+04_rb,0.15426e+04_rb,0.20233e+04_rb,0.26978e+04_rb /)\n      kbo(:, 2,48,16) = (/ &\n        & 0.26190e+04_rb,0.19642e+04_rb,0.14199e+04_rb,0.18460e+04_rb,0.24614e+04_rb /)\n      kbo(:, 3,48,16) = (/ &\n        & 0.24541e+04_rb,0.18406e+04_rb,0.13132e+04_rb,0.16956e+04_rb,0.22609e+04_rb /)\n      kbo(:, 4,48,16) = (/ &\n        & 0.23037e+04_rb,0.17278e+04_rb,0.12184e+04_rb,0.15658e+04_rb,0.20877e+04_rb /)\n      kbo(:, 5,48,16) = (/ &\n        & 0.21661e+04_rb,0.16246e+04_rb,0.11331e+04_rb,0.14514e+04_rb,0.19352e+04_rb /)\n      kbo(:, 1,49,16) = (/ &\n        & 0.28818e+04_rb,0.21613e+04_rb,0.15982e+04_rb,0.21038e+04_rb,0.28050e+04_rb /)\n      kbo(:, 2,49,16) = (/ &\n        & 0.26914e+04_rb,0.20185e+04_rb,0.14674e+04_rb,0.19143e+04_rb,0.25524e+04_rb /)\n      kbo(:, 3,49,16) = (/ &\n        & 0.25196e+04_rb,0.18897e+04_rb,0.13550e+04_rb,0.17541e+04_rb,0.23389e+04_rb /)\n      kbo(:, 4,49,16) = (/ &\n        & 0.23632e+04_rb,0.17724e+04_rb,0.12557e+04_rb,0.16163e+04_rb,0.21550e+04_rb /)\n      kbo(:, 5,49,16) = (/ &\n        & 0.22208e+04_rb,0.16656e+04_rb,0.11666e+04_rb,0.14961e+04_rb,0.19948e+04_rb /)\n      kbo(:, 1,50,16) = (/ &\n        & 0.29612e+04_rb,0.22209e+04_rb,0.16532e+04_rb,0.21839e+04_rb,0.29118e+04_rb /)\n      kbo(:, 2,50,16) = (/ &\n        & 0.27615e+04_rb,0.20712e+04_rb,0.15149e+04_rb,0.19827e+04_rb,0.26437e+04_rb /)\n      kbo(:, 3,50,16) = (/ &\n        & 0.25830e+04_rb,0.19373e+04_rb,0.13961e+04_rb,0.18120e+04_rb,0.24160e+04_rb /)\n      kbo(:, 4,50,16) = (/ &\n        & 0.24210e+04_rb,0.18157e+04_rb,0.12921e+04_rb,0.16664e+04_rb,0.22218e+04_rb /)\n      kbo(:, 5,50,16) = (/ &\n        & 0.22734e+04_rb,0.17051e+04_rb,0.11994e+04_rb,0.15401e+04_rb,0.20534e+04_rb /)\n      kbo(:, 1,51,16) = (/ &\n        & 0.30414e+04_rb,0.22810e+04_rb,0.17098e+04_rb,0.22662e+04_rb,0.30216e+04_rb /)\n      kbo(:, 2,51,16) = (/ &\n        & 0.28321e+04_rb,0.21241e+04_rb,0.15635e+04_rb,0.20530e+04_rb,0.27374e+04_rb /)\n      kbo(:, 3,51,16) = (/ &\n        & 0.26473e+04_rb,0.19855e+04_rb,0.14379e+04_rb,0.18712e+04_rb,0.24950e+04_rb /)\n      kbo(:, 4,51,16) = (/ &\n        & 0.24793e+04_rb,0.18595e+04_rb,0.13289e+04_rb,0.17174e+04_rb,0.22898e+04_rb /)\n      kbo(:, 5,51,16) = (/ &\n        & 0.23268e+04_rb,0.17451e+04_rb,0.12327e+04_rb,0.15846e+04_rb,0.21128e+04_rb /)\n      kbo(:, 1,52,16) = (/ &\n        & 0.31248e+04_rb,0.23436e+04_rb,0.17703e+04_rb,0.23534e+04_rb,0.31379e+04_rb /)\n      kbo(:, 2,52,16) = (/ &\n        & 0.29063e+04_rb,0.21797e+04_rb,0.16147e+04_rb,0.21274e+04_rb,0.28366e+04_rb /)\n      kbo(:, 3,52,16) = (/ &\n        & 0.27134e+04_rb,0.20351e+04_rb,0.14818e+04_rb,0.19344e+04_rb,0.25793e+04_rb /)\n      kbo(:, 4,52,16) = (/ &\n        & 0.25389e+04_rb,0.19042e+04_rb,0.13672e+04_rb,0.17712e+04_rb,0.23616e+04_rb /)\n      kbo(:, 5,52,16) = (/ &\n        & 0.23814e+04_rb,0.17860e+04_rb,0.12669e+04_rb,0.16310e+04_rb,0.21746e+04_rb /)\n      kbo(:, 1,53,16) = (/ &\n        & 0.32126e+04_rb,0.24095e+04_rb,0.18346e+04_rb,0.24459e+04_rb,0.32612e+04_rb /)\n      kbo(:, 2,53,16) = (/ &\n        & 0.29838e+04_rb,0.22378e+04_rb,0.16687e+04_rb,0.22061e+04_rb,0.29415e+04_rb /)\n      kbo(:, 3,53,16) = (/ &\n        & 0.27817e+04_rb,0.20863e+04_rb,0.15283e+04_rb,0.20017e+04_rb,0.26689e+04_rb /)\n      kbo(:, 4,53,16) = (/ &\n        & 0.26009e+04_rb,0.19507e+04_rb,0.14074e+04_rb,0.18280e+04_rb,0.24374e+04_rb /)\n      kbo(:, 5,53,16) = (/ &\n        & 0.24377e+04_rb,0.18283e+04_rb,0.13025e+04_rb,0.16802e+04_rb,0.22403e+04_rb /)\n      kbo(:, 1,54,16) = (/ &\n        & 0.32965e+04_rb,0.24725e+04_rb,0.18972e+04_rb,0.25356e+04_rb,0.33807e+04_rb /)\n      kbo(:, 2,54,16) = (/ &\n        & 0.30576e+04_rb,0.22932e+04_rb,0.17211e+04_rb,0.22822e+04_rb,0.30430e+04_rb /)\n      kbo(:, 3,54,16) = (/ &\n        & 0.28468e+04_rb,0.21351e+04_rb,0.15733e+04_rb,0.20668e+04_rb,0.27558e+04_rb /)\n      kbo(:, 4,54,16) = (/ &\n        & 0.26600e+04_rb,0.19950e+04_rb,0.14459e+04_rb,0.18829e+04_rb,0.25105e+04_rb /)\n      kbo(:, 5,54,16) = (/ &\n        & 0.24912e+04_rb,0.18684e+04_rb,0.13364e+04_rb,0.17275e+04_rb,0.23034e+04_rb /)\n      kbo(:, 1,55,16) = (/ &\n        & 0.33833e+04_rb,0.25376e+04_rb,0.19611e+04_rb,0.26264e+04_rb,0.35019e+04_rb /)\n      kbo(:, 2,55,16) = (/ &\n        & 0.31321e+04_rb,0.23491e+04_rb,0.17750e+04_rb,0.23596e+04_rb,0.31462e+04_rb /)\n      kbo(:, 3,55,16) = (/ &\n        & 0.29119e+04_rb,0.21839e+04_rb,0.16184e+04_rb,0.21327e+04_rb,0.28435e+04_rb /)\n      kbo(:, 4,55,16) = (/ &\n        & 0.27182e+04_rb,0.20386e+04_rb,0.14848e+04_rb,0.19390e+04_rb,0.25853e+04_rb /)\n      kbo(:, 5,55,16) = (/ &\n        & 0.25438e+04_rb,0.19078e+04_rb,0.13702e+04_rb,0.17749e+04_rb,0.23665e+04_rb /)\n      kbo(:, 1,56,16) = (/ &\n        & 0.34732e+04_rb,0.26050e+04_rb,0.20286e+04_rb,0.27221e+04_rb,0.36294e+04_rb /)\n      kbo(:, 2,56,16) = (/ &\n        & 0.32087e+04_rb,0.24066e+04_rb,0.18312e+04_rb,0.24406e+04_rb,0.32540e+04_rb /)\n      kbo(:, 3,56,16) = (/ &\n        & 0.29798e+04_rb,0.22348e+04_rb,0.16657e+04_rb,0.22014e+04_rb,0.29353e+04_rb /)\n      kbo(:, 4,56,16) = (/ &\n        & 0.27779e+04_rb,0.20834e+04_rb,0.15255e+04_rb,0.19978e+04_rb,0.26637e+04_rb /)\n      kbo(:, 5,56,16) = (/ &\n        & 0.25980e+04_rb,0.19485e+04_rb,0.14055e+04_rb,0.18247e+04_rb,0.24330e+04_rb /)\n      kbo(:, 1,57,16) = (/ &\n        & 0.35673e+04_rb,0.26755e+04_rb,0.21006e+04_rb,0.28229e+04_rb,0.37639e+04_rb /)\n      kbo(:, 2,57,16) = (/ &\n        & 0.32883e+04_rb,0.24663e+04_rb,0.18907e+04_rb,0.25257e+04_rb,0.33676e+04_rb /)\n      kbo(:, 3,57,16) = (/ &\n        & 0.30500e+04_rb,0.22875e+04_rb,0.17155e+04_rb,0.22739e+04_rb,0.30319e+04_rb /)\n      kbo(:, 4,57,16) = (/ &\n        & 0.28394e+04_rb,0.21295e+04_rb,0.15682e+04_rb,0.20597e+04_rb,0.27463e+04_rb /)\n      kbo(:, 5,57,16) = (/ &\n        & 0.26543e+04_rb,0.19907e+04_rb,0.14421e+04_rb,0.18768e+04_rb,0.25025e+04_rb /)\n      kbo(:, 1,58,16) = (/ &\n        & 0.36607e+04_rb,0.27457e+04_rb,0.21738e+04_rb,0.29233e+04_rb,0.38978e+04_rb /)\n      kbo(:, 2,58,16) = (/ &\n        & 0.33686e+04_rb,0.25266e+04_rb,0.19501e+04_rb,0.26108e+04_rb,0.34810e+04_rb /)\n      kbo(:, 3,58,16) = (/ &\n        & 0.31191e+04_rb,0.23393e+04_rb,0.17656e+04_rb,0.23462e+04_rb,0.31282e+04_rb /)\n      kbo(:, 4,58,16) = (/ &\n        & 0.29009e+04_rb,0.21757e+04_rb,0.16107e+04_rb,0.21213e+04_rb,0.28285e+04_rb /)\n      kbo(:, 5,58,16) = (/ &\n        & 0.27090e+04_rb,0.20318e+04_rb,0.14784e+04_rb,0.19292e+04_rb,0.25722e+04_rb /)\n      kbo(:, 1,59,16) = (/ &\n        & 0.36992e+04_rb,0.27745e+04_rb,0.22044e+04_rb,0.29651e+04_rb,0.39534e+04_rb /)\n      kbo(:, 2,59,16) = (/ &\n        & 0.34022e+04_rb,0.25517e+04_rb,0.19749e+04_rb,0.26461e+04_rb,0.35281e+04_rb /)\n      kbo(:, 3,59,16) = (/ &\n        & 0.31476e+04_rb,0.23607e+04_rb,0.17864e+04_rb,0.23762e+04_rb,0.31682e+04_rb /)\n      kbo(:, 4,59,16) = (/ &\n        & 0.29259e+04_rb,0.21945e+04_rb,0.16281e+04_rb,0.21469e+04_rb,0.28626e+04_rb /)\n      kbo(:, 5,59,16) = (/ &\n        & 0.27315e+04_rb,0.20486e+04_rb,0.14936e+04_rb,0.19510e+04_rb,0.26013e+04_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.553258e-03_rb, 0.555486e-03_rb, 0.601339e-03_rb, 0.708280e-03_rb /)\n      forrefo(:, 2) = (/ 0.158558e-02_rb, 0.162957e-02_rb, 0.204991e-02_rb, 0.475881e-02_rb /)\n      forrefo(:, 3) = (/ 0.772542e-02_rb, 0.784562e-02_rb, 0.111979e-01_rb, 0.229016e-01_rb /)\n      forrefo(:, 4) = (/ 0.255097e-01_rb, 0.256272e-01_rb, 0.270691e-01_rb, 0.259505e-01_rb /)\n      forrefo(:, 5) = (/ 0.323263e-01_rb, 0.324495e-01_rb, 0.305535e-01_rb, 0.263993e-01_rb /)\n      forrefo(:, 6) = (/ 0.346920e-01_rb, 0.348255e-01_rb, 0.323586e-01_rb, 0.276357e-01_rb /)\n      forrefo(:, 7) = (/ 0.366509e-01_rb, 0.366412e-01_rb, 0.344434e-01_rb, 0.319223e-01_rb /)\n      forrefo(:, 8) = (/ 0.378451e-01_rb, 0.375341e-01_rb, 0.374369e-01_rb, 0.320334e-01_rb /)\n      forrefo(:, 9) = (/ 0.407348e-01_rb, 0.396203e-01_rb, 0.393988e-01_rb, 0.318343e-01_rb /)\n      forrefo(:,10) = (/ 0.433035e-01_rb, 0.426488e-01_rb, 0.408085e-01_rb, 0.332749e-01_rb /)\n      forrefo(:,11) = (/ 0.428254e-01_rb, 0.441151e-01_rb, 0.408887e-01_rb, 0.327077e-01_rb /)\n      forrefo(:,12) = (/ 0.443226e-01_rb, 0.446690e-01_rb, 0.404676e-01_rb, 0.350492e-01_rb /)\n      forrefo(:,13) = (/ 0.466103e-01_rb, 0.460809e-01_rb, 0.401286e-01_rb, 0.370427e-01_rb /)\n      forrefo(:,14) = (/ 0.483928e-01_rb, 0.477284e-01_rb, 0.380684e-01_rb, 0.387940e-01_rb /)\n      forrefo(:,15) = (/ 0.506987e-01_rb, 0.490016e-01_rb, 0.467069e-01_rb, 0.368998e-01_rb /)\n      forrefo(:,16) = (/ 0.510836e-01_rb, 0.522771e-01_rb, 0.500130e-01_rb, 0.483406e-01_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.160537e-01_rb, 0.149038e-01_rb, 0.138363e-01_rb, 0.128452e-01_rb, 0.119251e-01_rb, &\n        &  0.110709e-01_rb, 0.102779e-01_rb, 0.954175e-02_rb, 0.885829e-02_rb, 0.822379e-02_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.365753e-01_rb, 0.342267e-01_rb, 0.320288e-01_rb, 0.299720e-01_rb, 0.280474e-01_rb, &\n        &  0.262463e-01_rb, 0.245609e-01_rb, 0.229837e-01_rb, 0.215078e-01_rb, 0.201267e-01_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.127419e+00_rb, 0.118553e+00_rb, 0.110304e+00_rb, 0.102629e+00_rb, 0.954883e-01_rb, &\n        &  0.888442e-01_rb, 0.826624e-01_rb, 0.769107e-01_rb, 0.715593e-01_rb, 0.665802e-01_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.378687e+00_rb, 0.348961e+00_rb, 0.321568e+00_rb, 0.296325e+00_rb, 0.273064e+00_rb, &\n        &  0.251629e+00_rb, 0.231876e+00_rb, 0.213674e+00_rb, 0.196901e+00_rb, 0.181444e+00_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.472822e+00_rb, 0.435018e+00_rb, 0.400236e+00_rb, 0.368236e+00_rb, 0.338794e+00_rb, &\n        &  0.311706e+00_rb, 0.286783e+00_rb, 0.263854e+00_rb, 0.242757e+00_rb, 0.223348e+00_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.505620e+00_rb, 0.465050e+00_rb, 0.427736e+00_rb, 0.393416e+00_rb, 0.361849e+00_rb, &\n        &  0.332815e+00_rb, 0.306111e+00_rb, 0.281550e+00_rb, 0.258959e+00_rb, 0.238181e+00_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.530488e+00_rb, 0.487993e+00_rb, 0.448902e+00_rb, 0.412943e+00_rb, 0.379864e+00_rb, &\n        &  0.349434e+00_rb, 0.321443e+00_rb, 0.295694e+00_rb, 0.272007e+00_rb, 0.250218e+00_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.540222e+00_rb, 0.497746e+00_rb, 0.458610e+00_rb, 0.422551e+00_rb, 0.389327e+00_rb, &\n        &  0.358716e+00_rb, 0.330511e+00_rb, 0.304524e+00_rb, 0.280580e+00_rb, 0.258519e+00_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.565727e+00_rb, 0.522899e+00_rb, 0.483313e+00_rb, 0.446724e+00_rb, 0.412905e+00_rb, &\n        &  0.381646e+00_rb, 0.352753e+00_rb, 0.326048e+00_rb, 0.301365e+00_rb, 0.278550e+00_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.610122e+00_rb, 0.562337e+00_rb, 0.518295e+00_rb, 0.477702e+00_rb, 0.440289e+00_rb, &\n        &  0.405806e+00_rb, 0.374023e+00_rb, 0.344730e+00_rb, 0.317730e+00_rb, 0.292846e+00_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.645176e+00_rb, 0.588957e+00_rb, 0.537636e+00_rb, 0.490788e+00_rb, 0.448022e+00_rb, &\n        &  0.408982e+00_rb, 0.373344e+00_rb, 0.340812e+00_rb, 0.311114e+00_rb, 0.284004e+00_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.651737e+00_rb, 0.596547e+00_rb, 0.546031e+00_rb, 0.499792e+00_rb, 0.457469e+00_rb, &\n        &  0.418730e+00_rb, 0.383272e+00_rb, 0.350816e+00_rb, 0.321108e+00_rb, 0.293916e+00_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.661086e+00_rb, 0.607954e+00_rb, 0.559093e+00_rb, 0.514159e+00_rb, 0.472836e+00_rb, &\n        &  0.434834e+00_rb, 0.399886e+00_rb, 0.367747e+00_rb, 0.338191e+00_rb, 0.311011e+00_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.692554e+00_rb, 0.635574e+00_rb, 0.583282e+00_rb, 0.535293e+00_rb, 0.491251e+00_rb, &\n        &  0.450834e+00_rb, 0.413741e+00_rb, 0.379701e+00_rb, 0.348461e+00_rb, 0.319791e+00_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.714646e+00_rb, 0.657179e+00_rb, 0.604334e+00_rb, 0.555737e+00_rb, 0.511049e+00_rb, &\n        &  0.469954e+00_rb, 0.432164e+00_rb, 0.397412e+00_rb, 0.365455e+00_rb, 0.336068e+00_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.782126e+00_rb, 0.710682e+00_rb, 0.645764e+00_rb, 0.586776e+00_rb, 0.533177e+00_rb, &\n        &  0.484473e+00_rb, 0.440219e+00_rb, 0.400007e+00_rb, 0.363468e+00_rb, 0.330266e+00_rb /)\n     \n      end subroutine sw_kgb17\n\n! **************************************************************************\n      subroutine sw_kgb18\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            rayl, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 3.65840_rb    , 3.54375_rb    , 3.34481_rb    , 3.10534_rb    , &\n        & 2.79879_rb    , 2.42841_rb    , 1.98748_rb    , 1.49377_rb    , &\n        & 1.00196_rb    , 0.108342_rb   , 8.95099e-02_rb, 7.05199e-02_rb, &\n        & 5.16432e-02_rb, 3.27635e-02_rb, 1.25133e-02_rb, 1.73001e-03_rb /)  \n      sfluxrefo(:,2) = (/ &\n        & 3.86372_rb    , 3.48521_rb    , 3.30790_rb    , 3.08103_rb    , &\n        & 2.77552_rb    , 2.40722_rb    , 1.97307_rb    , 1.48023_rb    , &\n        & 0.993055_rb   , 0.107691_rb   , 8.84430e-02_rb, 6.99354e-02_rb, &\n        & 5.07881e-02_rb, 3.24121e-02_rb, 1.19442e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 3.90370_rb    , 3.50657_rb    , 3.30629_rb    , 3.06046_rb    , &\n        & 2.76982_rb    , 2.39907_rb    , 1.96358_rb    , 1.47458_rb    , &\n        & 0.988475_rb   , 0.106698_rb   , 8.75242e-02_rb, 6.85898e-02_rb, &\n        & 5.04798e-02_rb, 3.13718e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 3.93165_rb    , 3.52058_rb    , 3.31346_rb    , 3.04944_rb    , &\n        & 2.76074_rb    , 2.39433_rb    , 1.95556_rb    , 1.46712_rb    , &\n        & 0.984056_rb   , 0.105885_rb   , 8.73062e-02_rb, 6.84054e-02_rb, &\n        & 4.87443e-02_rb, 2.99295e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 3.94082_rb    , 3.55221_rb    , 3.31863_rb    , 3.04730_rb    , &\n        & 2.74918_rb    , 2.38328_rb    , 1.95212_rb    , 1.45889_rb    , &\n        & 0.978888_rb   , 0.105102_rb   , 8.65732e-02_rb, 6.74563e-02_rb, &\n        & 4.76592e-02_rb, 2.91017e-02_rb, 1.09533e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,6) = (/ &\n        & 3.94198_rb    , 3.58743_rb    , 3.32106_rb    , 3.05866_rb    , &\n        & 2.74115_rb    , 2.36939_rb    , 1.94305_rb    , 1.45180_rb    , &\n        & 0.971784_rb   , 1.04045e-01_rb, 8.53731e-02_rb, 6.60654e-02_rb, &\n        & 4.63228e-02_rb, 2.91016e-02_rb, 1.09552e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,7) = (/ &\n        & 3.93596_rb    , 3.63366_rb    , 3.33144_rb    , 3.06252_rb    , &\n        & 2.74054_rb    , 2.35492_rb    , 1.92769_rb    , 1.44300_rb    , &\n        & 0.961809_rb   , 1.02867e-01_rb, 8.34164e-02_rb, 6.41005e-02_rb, &\n        & 4.61826e-02_rb, 2.91006e-02_rb, 1.09553e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,8) = (/ &\n        & 3.92520_rb    , 3.69078_rb    , 3.35656_rb    , 3.07055_rb    , &\n        & 2.73862_rb    , 2.34430_rb    , 1.90187_rb    , 1.42242_rb    , &\n        & 0.946676_rb   , 9.96302e-02_rb, 8.14421e-02_rb, 6.38622e-02_rb, &\n        & 4.61794e-02_rb, 2.91017e-02_rb, 1.09553e-02_rb, 1.57612e-03_rb /)\n      sfluxrefo(:,9) = (/ &\n        & 3.80721_rb    , 3.74437_rb    , 3.50205_rb    , 3.18009_rb    , &\n        & 2.75757_rb    , 2.29188_rb    , 1.84382_rb    , 1.35694_rb    , &\n        & 0.914040_rb   , 9.86811e-02_rb, 8.14321e-02_rb, 6.38541e-02_rb, &\n        & 4.61795e-02_rb, 2.90960e-02_rb, 1.09613e-02_rb, 1.57612e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 4325 cm-1.\n      rayl = 1.39e-09_rb\n\n      strrat = 38.9589_rb\n\n      layreffr = 6\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.14813e-04_rb,0.39842e-04_rb,0.43362e-04_rb,0.43095e-04_rb,0.39811e-04_rb, &\n        & 0.34994e-04_rb,0.28984e-04_rb,0.20609e-04_rb,0.18845e-05_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.14432e-04_rb,0.38749e-04_rb,0.42119e-04_rb,0.41834e-04_rb,0.38900e-04_rb, &\n        & 0.34365e-04_rb,0.28571e-04_rb,0.20503e-04_rb,0.14715e-05_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.13969e-04_rb,0.37666e-04_rb,0.40942e-04_rb,0.40703e-04_rb,0.37982e-04_rb, &\n        & 0.33731e-04_rb,0.28158e-04_rb,0.20351e-04_rb,0.10842e-05_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.13367e-04_rb,0.36605e-04_rb,0.39729e-04_rb,0.39529e-04_rb,0.37033e-04_rb, &\n        & 0.33096e-04_rb,0.27690e-04_rb,0.20154e-04_rb,0.78702e-06_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.12765e-04_rb,0.35584e-04_rb,0.38536e-04_rb,0.38361e-04_rb,0.36073e-04_rb, &\n        & 0.32384e-04_rb,0.27242e-04_rb,0.19932e-04_rb,0.58296e-06_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.12299e-04_rb,0.34179e-04_rb,0.37405e-04_rb,0.37535e-04_rb,0.34714e-04_rb, &\n        & 0.30335e-04_rb,0.24892e-04_rb,0.17524e-04_rb,0.13301e-05_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.12064e-04_rb,0.33225e-04_rb,0.36357e-04_rb,0.36512e-04_rb,0.33870e-04_rb, &\n        & 0.29789e-04_rb,0.24578e-04_rb,0.17435e-04_rb,0.10217e-05_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.11697e-04_rb,0.32301e-04_rb,0.35316e-04_rb,0.35481e-04_rb,0.33049e-04_rb, &\n        & 0.29226e-04_rb,0.24233e-04_rb,0.17304e-04_rb,0.72152e-06_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.11209e-04_rb,0.31395e-04_rb,0.34263e-04_rb,0.34436e-04_rb,0.32173e-04_rb, &\n        & 0.28610e-04_rb,0.23847e-04_rb,0.17161e-04_rb,0.51787e-06_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.10706e-04_rb,0.30496e-04_rb,0.33311e-04_rb,0.33396e-04_rb,0.31295e-04_rb, &\n        & 0.28002e-04_rb,0.23445e-04_rb,0.16971e-04_rb,0.40230e-06_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.10271e-04_rb,0.29273e-04_rb,0.32049e-04_rb,0.32365e-04_rb,0.29857e-04_rb, &\n        & 0.26171e-04_rb,0.21352e-04_rb,0.14814e-04_rb,0.80470e-06_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.10058e-04_rb,0.28458e-04_rb,0.31196e-04_rb,0.31440e-04_rb,0.29133e-04_rb, &\n        & 0.25640e-04_rb,0.21056e-04_rb,0.14756e-04_rb,0.53010e-06_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.98172e-05_rb,0.27651e-04_rb,0.30352e-04_rb,0.30609e-04_rb,0.28396e-04_rb, &\n        & 0.25110e-04_rb,0.20730e-04_rb,0.14655e-04_rb,0.38652e-06_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.94577e-05_rb,0.26874e-04_rb,0.29475e-04_rb,0.29749e-04_rb,0.27669e-04_rb, &\n        & 0.24553e-04_rb,0.20400e-04_rb,0.14536e-04_rb,0.33236e-06_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.90508e-05_rb,0.26128e-04_rb,0.28631e-04_rb,0.28834e-04_rb,0.26952e-04_rb, &\n        & 0.24015e-04_rb,0.20045e-04_rb,0.14382e-04_rb,0.30659e-06_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.86081e-05_rb,0.24897e-04_rb,0.27317e-04_rb,0.27632e-04_rb,0.25465e-04_rb, &\n        & 0.22328e-04_rb,0.18112e-04_rb,0.12468e-04_rb,0.39286e-06_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.83793e-05_rb,0.24273e-04_rb,0.26590e-04_rb,0.26865e-04_rb,0.24876e-04_rb, &\n        & 0.21867e-04_rb,0.17849e-04_rb,0.12420e-04_rb,0.32266e-06_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.82296e-05_rb,0.23584e-04_rb,0.25869e-04_rb,0.26155e-04_rb,0.24255e-04_rb, &\n        & 0.21403e-04_rb,0.17579e-04_rb,0.12338e-04_rb,0.30775e-06_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.79731e-05_rb,0.22915e-04_rb,0.25166e-04_rb,0.25435e-04_rb,0.23627e-04_rb, &\n        & 0.20917e-04_rb,0.17282e-04_rb,0.12242e-04_rb,0.30418e-06_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.76553e-05_rb,0.22259e-04_rb,0.24440e-04_rb,0.24673e-04_rb,0.23003e-04_rb, &\n        & 0.20437e-04_rb,0.16984e-04_rb,0.12112e-04_rb,0.30638e-06_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.72259e-05_rb,0.21089e-04_rb,0.23177e-04_rb,0.23419e-04_rb,0.21584e-04_rb, &\n        & 0.18926e-04_rb,0.15251e-04_rb,0.10417e-04_rb,0.25170e-06_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.70215e-05_rb,0.20567e-04_rb,0.22541e-04_rb,0.22788e-04_rb,0.21102e-04_rb, &\n        & 0.18526e-04_rb,0.15049e-04_rb,0.10379e-04_rb,0.25958e-06_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.68490e-05_rb,0.20018e-04_rb,0.21938e-04_rb,0.22206e-04_rb,0.20579e-04_rb, &\n        & 0.18139e-04_rb,0.14806e-04_rb,0.10313e-04_rb,0.26666e-06_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.66973e-05_rb,0.19444e-04_rb,0.21340e-04_rb,0.21615e-04_rb,0.20070e-04_rb, &\n        & 0.17728e-04_rb,0.14554e-04_rb,0.10239e-04_rb,0.28589e-06_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.64808e-05_rb,0.18883e-04_rb,0.20738e-04_rb,0.20994e-04_rb,0.19546e-04_rb, &\n        & 0.17304e-04_rb,0.14306e-04_rb,0.10148e-04_rb,0.30886e-06_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.60727e-05_rb,0.17794e-04_rb,0.19609e-04_rb,0.19769e-04_rb,0.18228e-04_rb, &\n        & 0.15946e-04_rb,0.12793e-04_rb,0.86559e-05_rb,0.18559e-06_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.58949e-05_rb,0.17390e-04_rb,0.19059e-04_rb,0.19244e-04_rb,0.17820e-04_rb, &\n        & 0.15647e-04_rb,0.12626e-04_rb,0.86354e-05_rb,0.19544e-06_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.57268e-05_rb,0.16935e-04_rb,0.18564e-04_rb,0.18724e-04_rb,0.17402e-04_rb, &\n        & 0.15304e-04_rb,0.12433e-04_rb,0.85882e-05_rb,0.22033e-06_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.56243e-05_rb,0.16459e-04_rb,0.18054e-04_rb,0.18263e-04_rb,0.16984e-04_rb, &\n        & 0.14971e-04_rb,0.12215e-04_rb,0.85268e-05_rb,0.25072e-06_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.54584e-05_rb,0.15984e-04_rb,0.17548e-04_rb,0.17773e-04_rb,0.16551e-04_rb, &\n        & 0.14601e-04_rb,0.12004e-04_rb,0.84568e-05_rb,0.28110e-06_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.50624e-05_rb,0.14963e-04_rb,0.16482e-04_rb,0.16611e-04_rb,0.15339e-04_rb, &\n        & 0.13333e-04_rb,0.10656e-04_rb,0.71570e-05_rb,0.13453e-06_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.49428e-05_rb,0.14636e-04_rb,0.16040e-04_rb,0.16181e-04_rb,0.14992e-04_rb, &\n        & 0.13144e-04_rb,0.10533e-04_rb,0.71532e-05_rb,0.15620e-06_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.47955e-05_rb,0.14256e-04_rb,0.15611e-04_rb,0.15735e-04_rb,0.14643e-04_rb, &\n        & 0.12865e-04_rb,0.10390e-04_rb,0.71248e-05_rb,0.18571e-06_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.46743e-05_rb,0.13876e-04_rb,0.15213e-04_rb,0.15342e-04_rb,0.14293e-04_rb, &\n        & 0.12576e-04_rb,0.10215e-04_rb,0.70735e-05_rb,0.21382e-06_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.45708e-05_rb,0.13473e-04_rb,0.14782e-04_rb,0.14947e-04_rb,0.13933e-04_rb, &\n        & 0.12274e-04_rb,0.10036e-04_rb,0.70177e-05_rb,0.24419e-06_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.42289e-05_rb,0.12528e-04_rb,0.13817e-04_rb,0.13922e-04_rb,0.12867e-04_rb, &\n        & 0.11126e-04_rb,0.88468e-05_rb,0.59010e-05_rb,0.10600e-06_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.41319e-05_rb,0.12286e-04_rb,0.13480e-04_rb,0.13582e-04_rb,0.12584e-04_rb, &\n        & 0.10973e-04_rb,0.87644e-05_rb,0.59049e-05_rb,0.12951e-06_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.40317e-05_rb,0.11996e-04_rb,0.13116e-04_rb,0.13206e-04_rb,0.12295e-04_rb, &\n        & 0.10786e-04_rb,0.86537e-05_rb,0.58898e-05_rb,0.15731e-06_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.39107e-05_rb,0.11666e-04_rb,0.12771e-04_rb,0.12870e-04_rb,0.12010e-04_rb, &\n        & 0.10546e-04_rb,0.85244e-05_rb,0.58536e-05_rb,0.18716e-06_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.38384e-05_rb,0.11346e-04_rb,0.12435e-04_rb,0.12549e-04_rb,0.11706e-04_rb, &\n        & 0.10289e-04_rb,0.83756e-05_rb,0.58104e-05_rb,0.21679e-06_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.35240e-05_rb,0.10418e-04_rb,0.11558e-04_rb,0.11687e-04_rb,0.10748e-04_rb, &\n        & 0.92305e-05_rb,0.73198e-05_rb,0.48514e-05_rb,0.10176e-06_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.34478e-05_rb,0.10296e-04_rb,0.11296e-04_rb,0.11369e-04_rb,0.10532e-04_rb, &\n        & 0.91375e-05_rb,0.72737e-05_rb,0.48639e-05_rb,0.12695e-06_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.33718e-05_rb,0.10068e-04_rb,0.10996e-04_rb,0.11063e-04_rb,0.10290e-04_rb, &\n        & 0.89957e-05_rb,0.71844e-05_rb,0.48583e-05_rb,0.15482e-06_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.32801e-05_rb,0.97990e-05_rb,0.10712e-04_rb,0.10762e-04_rb,0.10056e-04_rb, &\n        & 0.88255e-05_rb,0.70907e-05_rb,0.48364e-05_rb,0.18123e-06_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.31960e-05_rb,0.95350e-05_rb,0.10427e-04_rb,0.10501e-04_rb,0.98056e-05_rb, &\n        & 0.86157e-05_rb,0.69723e-05_rb,0.48010e-05_rb,0.20738e-06_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.29197e-05_rb,0.86183e-05_rb,0.96100e-05_rb,0.97448e-05_rb,0.89187e-05_rb, &\n        & 0.76354e-05_rb,0.60318e-05_rb,0.39733e-05_rb,0.10310e-06_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.28677e-05_rb,0.85565e-05_rb,0.94191e-05_rb,0.94682e-05_rb,0.87653e-05_rb, &\n        & 0.75725e-05_rb,0.60089e-05_rb,0.39956e-05_rb,0.12951e-06_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.28036e-05_rb,0.84121e-05_rb,0.91902e-05_rb,0.92251e-05_rb,0.85811e-05_rb, &\n        & 0.74653e-05_rb,0.59452e-05_rb,0.39967e-05_rb,0.15684e-06_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.27420e-05_rb,0.82035e-05_rb,0.89440e-05_rb,0.89748e-05_rb,0.83817e-05_rb, &\n        & 0.73422e-05_rb,0.58725e-05_rb,0.39844e-05_rb,0.18564e-06_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.26596e-05_rb,0.79739e-05_rb,0.87074e-05_rb,0.87508e-05_rb,0.81784e-05_rb, &\n        & 0.71781e-05_rb,0.57815e-05_rb,0.39569e-05_rb,0.21476e-06_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.23988e-05_rb,0.71135e-05_rb,0.79121e-05_rb,0.80118e-05_rb,0.73370e-05_rb, &\n        & 0.62844e-05_rb,0.49610e-05_rb,0.32641e-05_rb,0.91697e-07_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.23552e-05_rb,0.70587e-05_rb,0.77519e-05_rb,0.77821e-05_rb,0.72113e-05_rb, &\n        & 0.62297e-05_rb,0.49407e-05_rb,0.32815e-05_rb,0.11307e-06_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.23046e-05_rb,0.69367e-05_rb,0.75662e-05_rb,0.75790e-05_rb,0.70631e-05_rb, &\n        & 0.61409e-05_rb,0.48867e-05_rb,0.32812e-05_rb,0.13715e-06_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.22557e-05_rb,0.67632e-05_rb,0.73640e-05_rb,0.73772e-05_rb,0.68972e-05_rb, &\n        & 0.60381e-05_rb,0.48254e-05_rb,0.32705e-05_rb,0.16436e-06_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.21899e-05_rb,0.65748e-05_rb,0.71695e-05_rb,0.71946e-05_rb,0.67295e-05_rb, &\n        & 0.59022e-05_rb,0.47488e-05_rb,0.32476e-05_rb,0.19025e-06_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.19699e-05_rb,0.58670e-05_rb,0.65075e-05_rb,0.65808e-05_rb,0.60300e-05_rb, &\n        & 0.51665e-05_rb,0.40749e-05_rb,0.26788e-05_rb,0.77100e-07_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.19348e-05_rb,0.58146e-05_rb,0.63730e-05_rb,0.63891e-05_rb,0.59260e-05_rb, &\n        & 0.51196e-05_rb,0.40577e-05_rb,0.26926e-05_rb,0.95693e-07_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.18947e-05_rb,0.57134e-05_rb,0.62207e-05_rb,0.62238e-05_rb,0.58090e-05_rb, &\n        & 0.50459e-05_rb,0.40113e-05_rb,0.26916e-05_rb,0.11572e-06_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.18552e-05_rb,0.55709e-05_rb,0.60522e-05_rb,0.60611e-05_rb,0.56693e-05_rb, &\n        & 0.49594e-05_rb,0.39606e-05_rb,0.26824e-05_rb,0.13797e-06_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.18040e-05_rb,0.54137e-05_rb,0.58935e-05_rb,0.59096e-05_rb,0.55294e-05_rb, &\n        & 0.48443e-05_rb,0.38977e-05_rb,0.26633e-05_rb,0.15884e-06_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.16167e-05_rb,0.48272e-05_rb,0.53475e-05_rb,0.53983e-05_rb,0.49503e-05_rb, &\n        & 0.42413e-05_rb,0.33431e-05_rb,0.21956e-05_rb,0.61381e-07_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.15895e-05_rb,0.47809e-05_rb,0.52342e-05_rb,0.52409e-05_rb,0.48652e-05_rb, &\n        & 0.42021e-05_rb,0.33263e-05_rb,0.22072e-05_rb,0.76382e-07_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.15582e-05_rb,0.46982e-05_rb,0.51055e-05_rb,0.51058e-05_rb,0.47716e-05_rb, &\n        & 0.41406e-05_rb,0.32886e-05_rb,0.22058e-05_rb,0.93083e-07_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.15242e-05_rb,0.45831e-05_rb,0.49696e-05_rb,0.49735e-05_rb,0.46534e-05_rb, &\n        & 0.40678e-05_rb,0.32469e-05_rb,0.21969e-05_rb,0.11211e-06_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.14859e-05_rb,0.44492e-05_rb,0.48392e-05_rb,0.48479e-05_rb,0.45378e-05_rb, &\n        & 0.39689e-05_rb,0.31933e-05_rb,0.21813e-05_rb,0.12970e-06_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.10138e-03_rb,0.20456e-03_rb,0.22117e-03_rb,0.21948e-03_rb,0.20805e-03_rb, &\n        & 0.18373e-03_rb,0.14999e-03_rb,0.95382e-04_rb,0.33213e-05_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.10141e-03_rb,0.20889e-03_rb,0.22456e-03_rb,0.22223e-03_rb,0.20912e-03_rb, &\n        & 0.18467e-03_rb,0.15060e-03_rb,0.95713e-04_rb,0.28479e-05_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.10125e-03_rb,0.21223e-03_rb,0.22712e-03_rb,0.22388e-03_rb,0.20983e-03_rb, &\n        & 0.18513e-03_rb,0.15100e-03_rb,0.95881e-04_rb,0.26338e-05_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.10105e-03_rb,0.21442e-03_rb,0.22863e-03_rb,0.22421e-03_rb,0.21046e-03_rb, &\n        & 0.18540e-03_rb,0.15060e-03_rb,0.95798e-04_rb,0.27638e-05_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.10040e-03_rb,0.21612e-03_rb,0.22899e-03_rb,0.22416e-03_rb,0.21046e-03_rb, &\n        & 0.18570e-03_rb,0.15001e-03_rb,0.95569e-04_rb,0.29313e-05_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.89639e-04_rb,0.17797e-03_rb,0.19284e-03_rb,0.18986e-03_rb,0.17824e-03_rb, &\n        & 0.15789e-03_rb,0.12906e-03_rb,0.83524e-04_rb,0.23926e-05_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.89499e-04_rb,0.18144e-03_rb,0.19563e-03_rb,0.19227e-03_rb,0.17941e-03_rb, &\n        & 0.15844e-03_rb,0.12961e-03_rb,0.83632e-04_rb,0.21969e-05_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.89411e-04_rb,0.18401e-03_rb,0.19753e-03_rb,0.19350e-03_rb,0.17999e-03_rb, &\n        & 0.15883e-03_rb,0.12989e-03_rb,0.83577e-04_rb,0.23158e-05_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.88841e-04_rb,0.18541e-03_rb,0.19872e-03_rb,0.19398e-03_rb,0.18053e-03_rb, &\n        & 0.15907e-03_rb,0.12972e-03_rb,0.83396e-04_rb,0.23760e-05_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.87949e-04_rb,0.18659e-03_rb,0.19902e-03_rb,0.19407e-03_rb,0.18073e-03_rb, &\n        & 0.15910e-03_rb,0.12937e-03_rb,0.83120e-04_rb,0.25247e-05_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.77466e-04_rb,0.15264e-03_rb,0.16704e-03_rb,0.16342e-03_rb,0.15300e-03_rb, &\n        & 0.13499e-03_rb,0.11007e-03_rb,0.71881e-04_rb,0.17839e-05_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.77483e-04_rb,0.15611e-03_rb,0.16950e-03_rb,0.16551e-03_rb,0.15408e-03_rb, &\n        & 0.13580e-03_rb,0.11055e-03_rb,0.72020e-04_rb,0.18564e-05_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.77142e-04_rb,0.15867e-03_rb,0.17112e-03_rb,0.16672e-03_rb,0.15481e-03_rb, &\n        & 0.13616e-03_rb,0.11077e-03_rb,0.71922e-04_rb,0.20228e-05_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.76460e-04_rb,0.16058e-03_rb,0.17186e-03_rb,0.16717e-03_rb,0.15519e-03_rb, &\n        & 0.13641e-03_rb,0.11060e-03_rb,0.71775e-04_rb,0.21717e-05_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.75510e-04_rb,0.16158e-03_rb,0.17210e-03_rb,0.16730e-03_rb,0.15521e-03_rb, &\n        & 0.13649e-03_rb,0.11022e-03_rb,0.71516e-04_rb,0.23140e-05_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.65931e-04_rb,0.12940e-03_rb,0.14295e-03_rb,0.14005e-03_rb,0.13095e-03_rb, &\n        & 0.11494e-03_rb,0.93656e-04_rb,0.61167e-04_rb,0.17094e-05_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.66090e-04_rb,0.13269e-03_rb,0.14542e-03_rb,0.14233e-03_rb,0.13201e-03_rb, &\n        & 0.11558e-03_rb,0.93975e-04_rb,0.61436e-04_rb,0.18527e-05_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.65630e-04_rb,0.13532e-03_rb,0.14717e-03_rb,0.14364e-03_rb,0.13266e-03_rb, &\n        & 0.11604e-03_rb,0.94126e-04_rb,0.61467e-04_rb,0.19576e-05_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.64971e-04_rb,0.13708e-03_rb,0.14818e-03_rb,0.14427e-03_rb,0.13304e-03_rb, &\n        & 0.11616e-03_rb,0.94152e-04_rb,0.61334e-04_rb,0.20614e-05_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.64122e-04_rb,0.13834e-03_rb,0.14864e-03_rb,0.14451e-03_rb,0.13312e-03_rb, &\n        & 0.11638e-03_rb,0.93955e-04_rb,0.61162e-04_rb,0.21640e-05_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.55594e-04_rb,0.10830e-03_rb,0.12068e-03_rb,0.11865e-03_rb,0.11127e-03_rb, &\n        & 0.97925e-04_rb,0.79208e-04_rb,0.51842e-04_rb,0.15954e-05_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.55669e-04_rb,0.11117e-03_rb,0.12299e-03_rb,0.12091e-03_rb,0.11248e-03_rb, &\n        & 0.98643e-04_rb,0.79433e-04_rb,0.52127e-04_rb,0.16966e-05_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.55430e-04_rb,0.11345e-03_rb,0.12478e-03_rb,0.12235e-03_rb,0.11332e-03_rb, &\n        & 0.99117e-04_rb,0.79823e-04_rb,0.52286e-04_rb,0.18304e-05_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.54800e-04_rb,0.11543e-03_rb,0.12601e-03_rb,0.12304e-03_rb,0.11389e-03_rb, &\n        & 0.99346e-04_rb,0.79935e-04_rb,0.52275e-04_rb,0.19479e-05_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.54027e-04_rb,0.11665e-03_rb,0.12660e-03_rb,0.12339e-03_rb,0.11410e-03_rb, &\n        & 0.99535e-04_rb,0.79840e-04_rb,0.52168e-04_rb,0.20583e-05_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.46500e-04_rb,0.89887e-04_rb,0.10048e-03_rb,0.99161e-04_rb,0.93136e-04_rb, &\n        & 0.82279e-04_rb,0.66872e-04_rb,0.43617e-04_rb,0.14730e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.46632e-04_rb,0.92444e-04_rb,0.10271e-03_rb,0.10123e-03_rb,0.94559e-04_rb, &\n        & 0.83135e-04_rb,0.67204e-04_rb,0.44046e-04_rb,0.16215e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.46490e-04_rb,0.94415e-04_rb,0.10446e-03_rb,0.10269e-03_rb,0.95387e-04_rb, &\n        & 0.83676e-04_rb,0.67579e-04_rb,0.44279e-04_rb,0.17358e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.46004e-04_rb,0.96190e-04_rb,0.10570e-03_rb,0.10346e-03_rb,0.95883e-04_rb, &\n        & 0.84038e-04_rb,0.67753e-04_rb,0.44348e-04_rb,0.18096e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.45362e-04_rb,0.97511e-04_rb,0.10645e-03_rb,0.10384e-03_rb,0.96197e-04_rb, &\n        & 0.84347e-04_rb,0.67758e-04_rb,0.44305e-04_rb,0.18882e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.38597e-04_rb,0.74019e-04_rb,0.82882e-04_rb,0.81807e-04_rb,0.76936e-04_rb, &\n        & 0.68278e-04_rb,0.55744e-04_rb,0.36507e-04_rb,0.13400e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.38728e-04_rb,0.76353e-04_rb,0.85030e-04_rb,0.83822e-04_rb,0.78523e-04_rb, &\n        & 0.69221e-04_rb,0.56199e-04_rb,0.36932e-04_rb,0.14766e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.38688e-04_rb,0.78164e-04_rb,0.86691e-04_rb,0.85269e-04_rb,0.79424e-04_rb, &\n        & 0.69849e-04_rb,0.56507e-04_rb,0.37211e-04_rb,0.16077e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.38399e-04_rb,0.79654e-04_rb,0.87882e-04_rb,0.86145e-04_rb,0.79917e-04_rb, &\n        & 0.70214e-04_rb,0.56698e-04_rb,0.37302e-04_rb,0.17365e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.37899e-04_rb,0.81012e-04_rb,0.88706e-04_rb,0.86589e-04_rb,0.80259e-04_rb, &\n        & 0.70429e-04_rb,0.56810e-04_rb,0.37287e-04_rb,0.18595e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.31959e-04_rb,0.60671e-04_rb,0.67963e-04_rb,0.67053e-04_rb,0.63057e-04_rb, &\n        & 0.56287e-04_rb,0.46187e-04_rb,0.30298e-04_rb,0.12071e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.32062e-04_rb,0.62753e-04_rb,0.69892e-04_rb,0.68941e-04_rb,0.64624e-04_rb, &\n        & 0.57187e-04_rb,0.46566e-04_rb,0.30687e-04_rb,0.13582e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.32098e-04_rb,0.64435e-04_rb,0.71423e-04_rb,0.70359e-04_rb,0.65646e-04_rb, &\n        & 0.57882e-04_rb,0.46897e-04_rb,0.30993e-04_rb,0.15217e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.31956e-04_rb,0.65758e-04_rb,0.72650e-04_rb,0.71275e-04_rb,0.66275e-04_rb, &\n        & 0.58298e-04_rb,0.47100e-04_rb,0.31079e-04_rb,0.16794e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.31584e-04_rb,0.66916e-04_rb,0.73502e-04_rb,0.71819e-04_rb,0.66611e-04_rb, &\n        & 0.58505e-04_rb,0.47243e-04_rb,0.31088e-04_rb,0.18250e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.26355e-04_rb,0.49472e-04_rb,0.55415e-04_rb,0.54584e-04_rb,0.51361e-04_rb, &\n        & 0.46135e-04_rb,0.38027e-04_rb,0.24983e-04_rb,0.13549e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.26472e-04_rb,0.51302e-04_rb,0.57165e-04_rb,0.56417e-04_rb,0.52936e-04_rb, &\n        & 0.47048e-04_rb,0.38417e-04_rb,0.25347e-04_rb,0.14941e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.26545e-04_rb,0.52866e-04_rb,0.58563e-04_rb,0.57776e-04_rb,0.53988e-04_rb, &\n        & 0.47706e-04_rb,0.38739e-04_rb,0.25638e-04_rb,0.16563e-05_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.26469e-04_rb,0.54105e-04_rb,0.59749e-04_rb,0.58746e-04_rb,0.54668e-04_rb, &\n        & 0.48161e-04_rb,0.38970e-04_rb,0.25744e-04_rb,0.18262e-05_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.26248e-04_rb,0.55079e-04_rb,0.60619e-04_rb,0.59317e-04_rb,0.55099e-04_rb, &\n        & 0.48435e-04_rb,0.39115e-04_rb,0.25778e-04_rb,0.20238e-05_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.21631e-04_rb,0.40297e-04_rb,0.45170e-04_rb,0.44298e-04_rb,0.41876e-04_rb, &\n        & 0.37690e-04_rb,0.31212e-04_rb,0.20552e-04_rb,0.16328e-05_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.21814e-04_rb,0.41896e-04_rb,0.46681e-04_rb,0.46065e-04_rb,0.43227e-04_rb, &\n        & 0.38608e-04_rb,0.31614e-04_rb,0.20857e-04_rb,0.18610e-05_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.21864e-04_rb,0.43247e-04_rb,0.47945e-04_rb,0.47327e-04_rb,0.44273e-04_rb, &\n        & 0.39201e-04_rb,0.31894e-04_rb,0.21119e-04_rb,0.20775e-05_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.21835e-04_rb,0.44386e-04_rb,0.48986e-04_rb,0.48228e-04_rb,0.44916e-04_rb, &\n        & 0.39637e-04_rb,0.32093e-04_rb,0.21228e-04_rb,0.22541e-05_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.21728e-04_rb,0.45263e-04_rb,0.49804e-04_rb,0.48818e-04_rb,0.45409e-04_rb, &\n        & 0.39950e-04_rb,0.32269e-04_rb,0.21290e-04_rb,0.24525e-05_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.17823e-04_rb,0.33378e-04_rb,0.37337e-04_rb,0.36619e-04_rb,0.34598e-04_rb, &\n        & 0.31113e-04_rb,0.25761e-04_rb,0.16956e-04_rb,0.15042e-05_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.17970e-04_rb,0.34679e-04_rb,0.38589e-04_rb,0.38065e-04_rb,0.35695e-04_rb, &\n        & 0.31869e-04_rb,0.26044e-04_rb,0.17214e-04_rb,0.16847e-05_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.17997e-04_rb,0.35791e-04_rb,0.39619e-04_rb,0.39097e-04_rb,0.36539e-04_rb, &\n        & 0.32374e-04_rb,0.26298e-04_rb,0.17428e-04_rb,0.18887e-05_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.17967e-04_rb,0.36717e-04_rb,0.40463e-04_rb,0.39821e-04_rb,0.37071e-04_rb, &\n        & 0.32716e-04_rb,0.26461e-04_rb,0.17496e-04_rb,0.20546e-05_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.17868e-04_rb,0.37423e-04_rb,0.41124e-04_rb,0.40304e-04_rb,0.37473e-04_rb, &\n        & 0.32971e-04_rb,0.26612e-04_rb,0.17532e-04_rb,0.22240e-05_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.14665e-04_rb,0.27605e-04_rb,0.30811e-04_rb,0.30250e-04_rb,0.28525e-04_rb, &\n        & 0.25644e-04_rb,0.21186e-04_rb,0.13955e-04_rb,0.12588e-05_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.14775e-04_rb,0.28655e-04_rb,0.31851e-04_rb,0.31408e-04_rb,0.29418e-04_rb, &\n        & 0.26261e-04_rb,0.21430e-04_rb,0.14172e-04_rb,0.14181e-05_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.14799e-04_rb,0.29571e-04_rb,0.32687e-04_rb,0.32242e-04_rb,0.30093e-04_rb, &\n        & 0.26683e-04_rb,0.21636e-04_rb,0.14338e-04_rb,0.15619e-05_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.14777e-04_rb,0.30325e-04_rb,0.33371e-04_rb,0.32826e-04_rb,0.30553e-04_rb, &\n        & 0.26945e-04_rb,0.21775e-04_rb,0.14380e-04_rb,0.16917e-05_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.14685e-04_rb,0.30904e-04_rb,0.33907e-04_rb,0.33214e-04_rb,0.30875e-04_rb, &\n        & 0.27158e-04_rb,0.21883e-04_rb,0.14414e-04_rb,0.18423e-05_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.12044e-04_rb,0.22772e-04_rb,0.25375e-04_rb,0.24926e-04_rb,0.23458e-04_rb, &\n        & 0.21059e-04_rb,0.17387e-04_rb,0.11457e-04_rb,0.99122e-06_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.12128e-04_rb,0.23637e-04_rb,0.26249e-04_rb,0.25842e-04_rb,0.24187e-04_rb, &\n        & 0.21582e-04_rb,0.17590e-04_rb,0.11636e-04_rb,0.11037e-05_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.12152e-04_rb,0.24386e-04_rb,0.26910e-04_rb,0.26531e-04_rb,0.24731e-04_rb, &\n        & 0.21923e-04_rb,0.17760e-04_rb,0.11755e-04_rb,0.12026e-05_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.12130e-04_rb,0.24996e-04_rb,0.27464e-04_rb,0.27006e-04_rb,0.25113e-04_rb, &\n        & 0.22138e-04_rb,0.17874e-04_rb,0.11797e-04_rb,0.13028e-05_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.12050e-04_rb,0.25474e-04_rb,0.27895e-04_rb,0.27297e-04_rb,0.25373e-04_rb, &\n        & 0.22302e-04_rb,0.17948e-04_rb,0.11817e-04_rb,0.14010e-05_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.36823e-03_rb,0.49613e-03_rb,0.51817e-03_rb,0.50538e-03_rb,0.45711e-03_rb, &\n        & 0.39605e-03_rb,0.31486e-03_rb,0.21474e-03_rb,0.10932e-04_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.37008e-03_rb,0.50778e-03_rb,0.53361e-03_rb,0.51778e-03_rb,0.46995e-03_rb, &\n        & 0.40629e-03_rb,0.32309e-03_rb,0.21878e-03_rb,0.11421e-04_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.36989e-03_rb,0.51812e-03_rb,0.54699e-03_rb,0.52922e-03_rb,0.48036e-03_rb, &\n        & 0.41559e-03_rb,0.32965e-03_rb,0.22226e-03_rb,0.12395e-04_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.36721e-03_rb,0.52763e-03_rb,0.55746e-03_rb,0.53957e-03_rb,0.48891e-03_rb, &\n        & 0.42313e-03_rb,0.33545e-03_rb,0.22588e-03_rb,0.13515e-04_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.36313e-03_rb,0.53652e-03_rb,0.56680e-03_rb,0.54791e-03_rb,0.49664e-03_rb, &\n        & 0.42907e-03_rb,0.34043e-03_rb,0.22916e-03_rb,0.14734e-04_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.32411e-03_rb,0.42815e-03_rb,0.44725e-03_rb,0.43813e-03_rb,0.40150e-03_rb, &\n        & 0.34871e-03_rb,0.27912e-03_rb,0.18929e-03_rb,0.80741e-05_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.32567e-03_rb,0.43786e-03_rb,0.46069e-03_rb,0.45027e-03_rb,0.41319e-03_rb, &\n        & 0.35819e-03_rb,0.28635e-03_rb,0.19325e-03_rb,0.87340e-05_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.32429e-03_rb,0.44638e-03_rb,0.47228e-03_rb,0.46074e-03_rb,0.42272e-03_rb, &\n        & 0.36602e-03_rb,0.29201e-03_rb,0.19653e-03_rb,0.96110e-05_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.32137e-03_rb,0.45531e-03_rb,0.48142e-03_rb,0.46951e-03_rb,0.42996e-03_rb, &\n        & 0.37250e-03_rb,0.29709e-03_rb,0.19974e-03_rb,0.10697e-04_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.31776e-03_rb,0.46207e-03_rb,0.48880e-03_rb,0.47659e-03_rb,0.43551e-03_rb, &\n        & 0.37776e-03_rb,0.30138e-03_rb,0.20274e-03_rb,0.11704e-04_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.28488e-03_rb,0.36767e-03_rb,0.38081e-03_rb,0.37438e-03_rb,0.34525e-03_rb, &\n        & 0.30150e-03_rb,0.24332e-03_rb,0.16415e-03_rb,0.63970e-05_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.28539e-03_rb,0.37509e-03_rb,0.39196e-03_rb,0.38510e-03_rb,0.35566e-03_rb, &\n        & 0.30998e-03_rb,0.24963e-03_rb,0.16766e-03_rb,0.72006e-05_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.28397e-03_rb,0.38215e-03_rb,0.40156e-03_rb,0.39428e-03_rb,0.36418e-03_rb, &\n        & 0.31727e-03_rb,0.25446e-03_rb,0.17107e-03_rb,0.79574e-05_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.28134e-03_rb,0.38867e-03_rb,0.40959e-03_rb,0.40230e-03_rb,0.37093e-03_rb, &\n        & 0.32301e-03_rb,0.25898e-03_rb,0.17447e-03_rb,0.87131e-05_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.27886e-03_rb,0.39360e-03_rb,0.41642e-03_rb,0.40852e-03_rb,0.37609e-03_rb, &\n        & 0.32740e-03_rb,0.26312e-03_rb,0.17737e-03_rb,0.94704e-05_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.24923e-03_rb,0.31555e-03_rb,0.32423e-03_rb,0.31731e-03_rb,0.29410e-03_rb, &\n        & 0.25671e-03_rb,0.20762e-03_rb,0.14074e-03_rb,0.55877e-05_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.24977e-03_rb,0.32120e-03_rb,0.33372e-03_rb,0.32657e-03_rb,0.30295e-03_rb, &\n        & 0.26472e-03_rb,0.21303e-03_rb,0.14396e-03_rb,0.61575e-05_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.24865e-03_rb,0.32668e-03_rb,0.34180e-03_rb,0.33446e-03_rb,0.31033e-03_rb, &\n        & 0.27144e-03_rb,0.21777e-03_rb,0.14714e-03_rb,0.67916e-05_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.24709e-03_rb,0.33133e-03_rb,0.34841e-03_rb,0.34134e-03_rb,0.31600e-03_rb, &\n        & 0.27647e-03_rb,0.22179e-03_rb,0.15016e-03_rb,0.74653e-05_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.24455e-03_rb,0.33491e-03_rb,0.35388e-03_rb,0.34708e-03_rb,0.32069e-03_rb, &\n        & 0.28005e-03_rb,0.22522e-03_rb,0.15242e-03_rb,0.81619e-05_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.21526e-03_rb,0.27115e-03_rb,0.27505e-03_rb,0.26802e-03_rb,0.24968e-03_rb, &\n        & 0.21690e-03_rb,0.17481e-03_rb,0.11906e-03_rb,0.50850e-05_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.21611e-03_rb,0.27621e-03_rb,0.28298e-03_rb,0.27620e-03_rb,0.25722e-03_rb, &\n        & 0.22411e-03_rb,0.18004e-03_rb,0.12197e-03_rb,0.55738e-05_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.21583e-03_rb,0.28060e-03_rb,0.28955e-03_rb,0.28282e-03_rb,0.26346e-03_rb, &\n        & 0.23005e-03_rb,0.18415e-03_rb,0.12451e-03_rb,0.60864e-05_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.21446e-03_rb,0.28363e-03_rb,0.29469e-03_rb,0.28896e-03_rb,0.26860e-03_rb, &\n        & 0.23435e-03_rb,0.18768e-03_rb,0.12690e-03_rb,0.66417e-05_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.21217e-03_rb,0.28626e-03_rb,0.29929e-03_rb,0.29370e-03_rb,0.27250e-03_rb, &\n        & 0.23763e-03_rb,0.19073e-03_rb,0.12909e-03_rb,0.72122e-05_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.18262e-03_rb,0.23112e-03_rb,0.23388e-03_rb,0.22681e-03_rb,0.21062e-03_rb, &\n        & 0.18196e-03_rb,0.14634e-03_rb,0.99707e-04_rb,0.48078e-05_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.18393e-03_rb,0.23591e-03_rb,0.24094e-03_rb,0.23364e-03_rb,0.21663e-03_rb, &\n        & 0.18814e-03_rb,0.15114e-03_rb,0.10205e-03_rb,0.52252e-05_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.18379e-03_rb,0.23984e-03_rb,0.24676e-03_rb,0.23956e-03_rb,0.22221e-03_rb, &\n        & 0.19356e-03_rb,0.15489e-03_rb,0.10434e-03_rb,0.56405e-05_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.18270e-03_rb,0.24258e-03_rb,0.25102e-03_rb,0.24458e-03_rb,0.22685e-03_rb, &\n        & 0.19771e-03_rb,0.15805e-03_rb,0.10655e-03_rb,0.60728e-05_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.18067e-03_rb,0.24446e-03_rb,0.25467e-03_rb,0.24894e-03_rb,0.23051e-03_rb, &\n        & 0.20056e-03_rb,0.16088e-03_rb,0.10844e-03_rb,0.65160e-05_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.15269e-03_rb,0.19407e-03_rb,0.19640e-03_rb,0.19073e-03_rb,0.17715e-03_rb, &\n        & 0.15224e-03_rb,0.12181e-03_rb,0.83302e-04_rb,0.45185e-05_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.15450e-03_rb,0.19834e-03_rb,0.20246e-03_rb,0.19675e-03_rb,0.18242e-03_rb, &\n        & 0.15776e-03_rb,0.12610e-03_rb,0.85306e-04_rb,0.49315e-05_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.15459e-03_rb,0.20178e-03_rb,0.20759e-03_rb,0.20176e-03_rb,0.18737e-03_rb, &\n        & 0.16233e-03_rb,0.12951e-03_rb,0.87417e-04_rb,0.53491e-05_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.15368e-03_rb,0.20410e-03_rb,0.21160e-03_rb,0.20623e-03_rb,0.19161e-03_rb, &\n        & 0.16603e-03_rb,0.13246e-03_rb,0.89237e-04_rb,0.57562e-05_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.15207e-03_rb,0.20567e-03_rb,0.21458e-03_rb,0.20991e-03_rb,0.19525e-03_rb, &\n        & 0.16906e-03_rb,0.13481e-03_rb,0.90932e-04_rb,0.61659e-05_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.12672e-03_rb,0.16159e-03_rb,0.16329e-03_rb,0.15821e-03_rb,0.14746e-03_rb, &\n        & 0.12624e-03_rb,0.10116e-03_rb,0.69306e-04_rb,0.46652e-05_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.12853e-03_rb,0.16539e-03_rb,0.16859e-03_rb,0.16359e-03_rb,0.15208e-03_rb, &\n        & 0.13120e-03_rb,0.10513e-03_rb,0.71005e-04_rb,0.51392e-05_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.12901e-03_rb,0.16841e-03_rb,0.17301e-03_rb,0.16813e-03_rb,0.15614e-03_rb, &\n        & 0.13532e-03_rb,0.10829e-03_rb,0.72863e-04_rb,0.55244e-05_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.12833e-03_rb,0.17058e-03_rb,0.17652e-03_rb,0.17184e-03_rb,0.15971e-03_rb, &\n        & 0.13867e-03_rb,0.11087e-03_rb,0.74475e-04_rb,0.58193e-05_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.12715e-03_rb,0.17197e-03_rb,0.17918e-03_rb,0.17513e-03_rb,0.16292e-03_rb, &\n        & 0.14144e-03_rb,0.11301e-03_rb,0.75965e-04_rb,0.61705e-05_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.10428e-03_rb,0.13348e-03_rb,0.13462e-03_rb,0.12995e-03_rb,0.12158e-03_rb, &\n        & 0.10379e-03_rb,0.83005e-04_rb,0.57371e-04_rb,0.55965e-05_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.10619e-03_rb,0.13710e-03_rb,0.13932e-03_rb,0.13469e-03_rb,0.12538e-03_rb, &\n        & 0.10800e-03_rb,0.86632e-04_rb,0.58954e-04_rb,0.61961e-05_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.10690e-03_rb,0.13978e-03_rb,0.14315e-03_rb,0.13877e-03_rb,0.12885e-03_rb, &\n        & 0.11169e-03_rb,0.89643e-04_rb,0.60568e-04_rb,0.68526e-05_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.10668e-03_rb,0.14178e-03_rb,0.14626e-03_rb,0.14213e-03_rb,0.13207e-03_rb, &\n        & 0.11468e-03_rb,0.91984e-04_rb,0.62070e-04_rb,0.75122e-05_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.10582e-03_rb,0.14316e-03_rb,0.14873e-03_rb,0.14501e-03_rb,0.13471e-03_rb, &\n        & 0.11704e-03_rb,0.93876e-04_rb,0.63388e-04_rb,0.80761e-05_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.85476e-04_rb,0.10982e-03_rb,0.11034e-03_rb,0.10643e-03_rb,0.99702e-04_rb, &\n        & 0.84967e-04_rb,0.68008e-04_rb,0.47229e-04_rb,0.66145e-05_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.87242e-04_rb,0.11322e-03_rb,0.11463e-03_rb,0.11045e-03_rb,0.10293e-03_rb, &\n        & 0.88580e-04_rb,0.71113e-04_rb,0.48631e-04_rb,0.75452e-05_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.88111e-04_rb,0.11563e-03_rb,0.11792e-03_rb,0.11404e-03_rb,0.10587e-03_rb, &\n        & 0.91877e-04_rb,0.73790e-04_rb,0.50044e-04_rb,0.84881e-05_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.88200e-04_rb,0.11743e-03_rb,0.12065e-03_rb,0.11708e-03_rb,0.10870e-03_rb, &\n        & 0.94480e-04_rb,0.75897e-04_rb,0.51384e-04_rb,0.95136e-05_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.87583e-04_rb,0.11871e-03_rb,0.12292e-03_rb,0.11954e-03_rb,0.11103e-03_rb, &\n        & 0.96523e-04_rb,0.77526e-04_rb,0.52518e-04_rb,0.10532e-04_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.70556e-04_rb,0.91428e-04_rb,0.91867e-04_rb,0.88463e-04_rb,0.82846e-04_rb, &\n        & 0.70774e-04_rb,0.56632e-04_rb,0.39167e-04_rb,0.61872e-05_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.71933e-04_rb,0.94182e-04_rb,0.95269e-04_rb,0.91646e-04_rb,0.85383e-04_rb, &\n        & 0.73738e-04_rb,0.59219e-04_rb,0.40474e-04_rb,0.69965e-05_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.72567e-04_rb,0.96098e-04_rb,0.97927e-04_rb,0.94606e-04_rb,0.87837e-04_rb, &\n        & 0.76370e-04_rb,0.61326e-04_rb,0.41633e-04_rb,0.78235e-05_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.72529e-04_rb,0.97532e-04_rb,0.10011e-03_rb,0.97076e-04_rb,0.90134e-04_rb, &\n        & 0.78428e-04_rb,0.63016e-04_rb,0.42754e-04_rb,0.87904e-05_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.71990e-04_rb,0.98552e-04_rb,0.10193e-03_rb,0.99080e-04_rb,0.92091e-04_rb, &\n        & 0.80068e-04_rb,0.64349e-04_rb,0.43674e-04_rb,0.98011e-05_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.58072e-04_rb,0.75815e-04_rb,0.76168e-04_rb,0.73252e-04_rb,0.68521e-04_rb, &\n        & 0.58748e-04_rb,0.47029e-04_rb,0.32430e-04_rb,0.51838e-05_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.59149e-04_rb,0.78005e-04_rb,0.78889e-04_rb,0.75853e-04_rb,0.70691e-04_rb, &\n        & 0.61160e-04_rb,0.49105e-04_rb,0.33572e-04_rb,0.58669e-05_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.59615e-04_rb,0.79572e-04_rb,0.81043e-04_rb,0.78301e-04_rb,0.72716e-04_rb, &\n        & 0.63265e-04_rb,0.50777e-04_rb,0.34506e-04_rb,0.66464e-05_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.59506e-04_rb,0.80712e-04_rb,0.82811e-04_rb,0.80321e-04_rb,0.74571e-04_rb, &\n        & 0.64935e-04_rb,0.52165e-04_rb,0.35447e-04_rb,0.74412e-05_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.59067e-04_rb,0.81520e-04_rb,0.84288e-04_rb,0.81977e-04_rb,0.76172e-04_rb, &\n        & 0.66259e-04_rb,0.53281e-04_rb,0.36178e-04_rb,0.82465e-05_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.47640e-04_rb,0.62583e-04_rb,0.62887e-04_rb,0.60485e-04_rb,0.56559e-04_rb, &\n        & 0.48624e-04_rb,0.38904e-04_rb,0.26773e-04_rb,0.40582e-05_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.48498e-04_rb,0.64379e-04_rb,0.65087e-04_rb,0.62641e-04_rb,0.58377e-04_rb, &\n        & 0.50572e-04_rb,0.40566e-04_rb,0.27717e-04_rb,0.46616e-05_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.48844e-04_rb,0.65656e-04_rb,0.66851e-04_rb,0.64628e-04_rb,0.60042e-04_rb, &\n        & 0.52254e-04_rb,0.41917e-04_rb,0.28510e-04_rb,0.53204e-05_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.48722e-04_rb,0.66574e-04_rb,0.68303e-04_rb,0.66300e-04_rb,0.61547e-04_rb, &\n        & 0.53614e-04_rb,0.43058e-04_rb,0.29254e-04_rb,0.59442e-05_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.48355e-04_rb,0.67217e-04_rb,0.69511e-04_rb,0.67651e-04_rb,0.62864e-04_rb, &\n        & 0.54712e-04_rb,0.43998e-04_rb,0.29875e-04_rb,0.66436e-05_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.85387e-03_rb,0.97268e-03_rb,0.95201e-03_rb,0.89226e-03_rb,0.81465e-03_rb, &\n        & 0.69707e-03_rb,0.54829e-03_rb,0.35882e-03_rb,0.37920e-04_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.85496e-03_rb,0.98746e-03_rb,0.97188e-03_rb,0.91775e-03_rb,0.83529e-03_rb, &\n        & 0.71649e-03_rb,0.56376e-03_rb,0.37061e-03_rb,0.43155e-04_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.85154e-03_rb,0.99908e-03_rb,0.98969e-03_rb,0.94014e-03_rb,0.85604e-03_rb, &\n        & 0.73379e-03_rb,0.57832e-03_rb,0.38183e-03_rb,0.48702e-04_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.84606e-03_rb,0.10090e-02_rb,0.10068e-02_rb,0.95944e-03_rb,0.87434e-03_rb, &\n        & 0.74975e-03_rb,0.59243e-03_rb,0.39188e-03_rb,0.54022e-04_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.84061e-03_rb,0.10171e-02_rb,0.10218e-02_rb,0.97684e-03_rb,0.88906e-03_rb, &\n        & 0.76345e-03_rb,0.60471e-03_rb,0.40180e-03_rb,0.59778e-04_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.76106e-03_rb,0.86763e-03_rb,0.84620e-03_rb,0.79337e-03_rb,0.72368e-03_rb, &\n        & 0.62633e-03_rb,0.49168e-03_rb,0.32346e-03_rb,0.31322e-04_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.76153e-03_rb,0.88148e-03_rb,0.86349e-03_rb,0.81559e-03_rb,0.74480e-03_rb, &\n        & 0.64448e-03_rb,0.50635e-03_rb,0.33430e-03_rb,0.35566e-04_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.75977e-03_rb,0.89195e-03_rb,0.87871e-03_rb,0.83605e-03_rb,0.76286e-03_rb, &\n        & 0.66127e-03_rb,0.51959e-03_rb,0.34472e-03_rb,0.39705e-04_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.75771e-03_rb,0.89987e-03_rb,0.89406e-03_rb,0.85530e-03_rb,0.78123e-03_rb, &\n        & 0.67612e-03_rb,0.53221e-03_rb,0.35447e-03_rb,0.44266e-04_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.75289e-03_rb,0.90657e-03_rb,0.90771e-03_rb,0.87200e-03_rb,0.79715e-03_rb, &\n        & 0.68926e-03_rb,0.54382e-03_rb,0.36372e-03_rb,0.48708e-04_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.66893e-03_rb,0.76246e-03_rb,0.74334e-03_rb,0.69752e-03_rb,0.63501e-03_rb, &\n        & 0.55362e-03_rb,0.43455e-03_rb,0.28843e-03_rb,0.24260e-04_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.67118e-03_rb,0.77588e-03_rb,0.75944e-03_rb,0.71710e-03_rb,0.65461e-03_rb, &\n        & 0.57122e-03_rb,0.44991e-03_rb,0.29906e-03_rb,0.27434e-04_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.67218e-03_rb,0.78505e-03_rb,0.77328e-03_rb,0.73497e-03_rb,0.67286e-03_rb, &\n        & 0.58718e-03_rb,0.46375e-03_rb,0.30933e-03_rb,0.30808e-04_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.67058e-03_rb,0.79242e-03_rb,0.78627e-03_rb,0.75181e-03_rb,0.68946e-03_rb, &\n        & 0.60183e-03_rb,0.47532e-03_rb,0.31743e-03_rb,0.34324e-04_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.66467e-03_rb,0.79822e-03_rb,0.79776e-03_rb,0.76779e-03_rb,0.70481e-03_rb, &\n        & 0.61510e-03_rb,0.48553e-03_rb,0.32526e-03_rb,0.37905e-04_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.58297e-03_rb,0.66020e-03_rb,0.64337e-03_rb,0.60610e-03_rb,0.55222e-03_rb, &\n        & 0.48338e-03_rb,0.38154e-03_rb,0.25537e-03_rb,0.20054e-04_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.58616e-03_rb,0.67311e-03_rb,0.65764e-03_rb,0.62362e-03_rb,0.56996e-03_rb, &\n        & 0.49939e-03_rb,0.39657e-03_rb,0.26418e-03_rb,0.22457e-04_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.58719e-03_rb,0.68291e-03_rb,0.67014e-03_rb,0.63926e-03_rb,0.58703e-03_rb, &\n        & 0.51453e-03_rb,0.40976e-03_rb,0.27280e-03_rb,0.24974e-04_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.58451e-03_rb,0.68925e-03_rb,0.68144e-03_rb,0.65410e-03_rb,0.60312e-03_rb, &\n        & 0.52903e-03_rb,0.42147e-03_rb,0.28096e-03_rb,0.27613e-04_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.57885e-03_rb,0.69369e-03_rb,0.69153e-03_rb,0.66725e-03_rb,0.61666e-03_rb, &\n        & 0.54114e-03_rb,0.43123e-03_rb,0.28907e-03_rb,0.30243e-04_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.50639e-03_rb,0.56897e-03_rb,0.55412e-03_rb,0.52127e-03_rb,0.47341e-03_rb, &\n        & 0.41669e-03_rb,0.33293e-03_rb,0.22215e-03_rb,0.17057e-04_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.51065e-03_rb,0.58111e-03_rb,0.56740e-03_rb,0.53642e-03_rb,0.48970e-03_rb, &\n        & 0.43166e-03_rb,0.34671e-03_rb,0.23111e-03_rb,0.19191e-04_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.51131e-03_rb,0.58923e-03_rb,0.57802e-03_rb,0.54989e-03_rb,0.50519e-03_rb, &\n        & 0.44520e-03_rb,0.35867e-03_rb,0.23955e-03_rb,0.21238e-04_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.50888e-03_rb,0.59432e-03_rb,0.58700e-03_rb,0.56238e-03_rb,0.51899e-03_rb, &\n        & 0.45787e-03_rb,0.36960e-03_rb,0.24733e-03_rb,0.23442e-04_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.50411e-03_rb,0.59804e-03_rb,0.59497e-03_rb,0.57342e-03_rb,0.53158e-03_rb, &\n        & 0.46924e-03_rb,0.37886e-03_rb,0.25450e-03_rb,0.25756e-04_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.43673e-03_rb,0.48782e-03_rb,0.47499e-03_rb,0.44629e-03_rb,0.40354e-03_rb, &\n        & 0.35457e-03_rb,0.28605e-03_rb,0.19086e-03_rb,0.14702e-04_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.44102e-03_rb,0.49831e-03_rb,0.48639e-03_rb,0.45943e-03_rb,0.41879e-03_rb, &\n        & 0.36808e-03_rb,0.29802e-03_rb,0.19985e-03_rb,0.16471e-04_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.44221e-03_rb,0.50518e-03_rb,0.49538e-03_rb,0.47075e-03_rb,0.43183e-03_rb, &\n        & 0.37995e-03_rb,0.30882e-03_rb,0.20763e-03_rb,0.18420e-04_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.44017e-03_rb,0.50994e-03_rb,0.50323e-03_rb,0.48141e-03_rb,0.44360e-03_rb, &\n        & 0.39116e-03_rb,0.31844e-03_rb,0.21460e-03_rb,0.20473e-04_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.43656e-03_rb,0.51249e-03_rb,0.51000e-03_rb,0.49068e-03_rb,0.45425e-03_rb, &\n        & 0.40107e-03_rb,0.32653e-03_rb,0.22109e-03_rb,0.22600e-04_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.37627e-03_rb,0.41525e-03_rb,0.40365e-03_rb,0.37923e-03_rb,0.34257e-03_rb, &\n        & 0.30147e-03_rb,0.24324e-03_rb,0.16094e-03_rb,0.13400e-04_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.38051e-03_rb,0.42489e-03_rb,0.41400e-03_rb,0.39067e-03_rb,0.35555e-03_rb, &\n        & 0.31257e-03_rb,0.25353e-03_rb,0.16947e-03_rb,0.14905e-04_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.38196e-03_rb,0.43154e-03_rb,0.42169e-03_rb,0.40035e-03_rb,0.36703e-03_rb, &\n        & 0.32311e-03_rb,0.26291e-03_rb,0.17672e-03_rb,0.16566e-04_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.38108e-03_rb,0.43587e-03_rb,0.42809e-03_rb,0.40890e-03_rb,0.37694e-03_rb, &\n        & 0.33246e-03_rb,0.27094e-03_rb,0.18305e-03_rb,0.18352e-04_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.37854e-03_rb,0.43889e-03_rb,0.43402e-03_rb,0.41697e-03_rb,0.38532e-03_rb, &\n        & 0.34074e-03_rb,0.27816e-03_rb,0.18873e-03_rb,0.20220e-04_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.31968e-03_rb,0.35301e-03_rb,0.34310e-03_rb,0.32206e-03_rb,0.28904e-03_rb, &\n        & 0.25356e-03_rb,0.20523e-03_rb,0.13432e-03_rb,0.13548e-04_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.32386e-03_rb,0.36229e-03_rb,0.35288e-03_rb,0.33214e-03_rb,0.30033e-03_rb, &\n        & 0.26345e-03_rb,0.21374e-03_rb,0.14198e-03_rb,0.14966e-04_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.32521e-03_rb,0.36848e-03_rb,0.35986e-03_rb,0.34056e-03_rb,0.31042e-03_rb, &\n        & 0.27222e-03_rb,0.22115e-03_rb,0.14841e-03_rb,0.16278e-04_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.32527e-03_rb,0.37258e-03_rb,0.36553e-03_rb,0.34811e-03_rb,0.31916e-03_rb, &\n        & 0.28034e-03_rb,0.22837e-03_rb,0.15443e-03_rb,0.17614e-04_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.32272e-03_rb,0.37533e-03_rb,0.37025e-03_rb,0.35438e-03_rb,0.32632e-03_rb, &\n        & 0.28740e-03_rb,0.23484e-03_rb,0.15952e-03_rb,0.19075e-04_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.26794e-03_rb,0.29655e-03_rb,0.28851e-03_rb,0.27155e-03_rb,0.24290e-03_rb, &\n        & 0.21182e-03_rb,0.17187e-03_rb,0.11158e-03_rb,0.16893e-04_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.27215e-03_rb,0.30477e-03_rb,0.29765e-03_rb,0.28075e-03_rb,0.25336e-03_rb, &\n        & 0.22120e-03_rb,0.17858e-03_rb,0.11794e-03_rb,0.18576e-04_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.27400e-03_rb,0.31061e-03_rb,0.30447e-03_rb,0.28836e-03_rb,0.26224e-03_rb, &\n        & 0.22886e-03_rb,0.18474e-03_rb,0.12372e-03_rb,0.20056e-04_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.27385e-03_rb,0.31424e-03_rb,0.30923e-03_rb,0.29477e-03_rb,0.26977e-03_rb, &\n        & 0.23554e-03_rb,0.19093e-03_rb,0.12884e-03_rb,0.21321e-04_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.27196e-03_rb,0.31647e-03_rb,0.31308e-03_rb,0.30006e-03_rb,0.27604e-03_rb, &\n        & 0.24191e-03_rb,0.19649e-03_rb,0.13352e-03_rb,0.22611e-04_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.22255e-03_rb,0.24716e-03_rb,0.24087e-03_rb,0.22672e-03_rb,0.20216e-03_rb, &\n        & 0.17582e-03_rb,0.14339e-03_rb,0.92528e-04_rb,0.22471e-04_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.22663e-03_rb,0.25429e-03_rb,0.24908e-03_rb,0.23506e-03_rb,0.21167e-03_rb, &\n        & 0.18377e-03_rb,0.14910e-03_rb,0.97972e-04_rb,0.24536e-04_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.22867e-03_rb,0.25963e-03_rb,0.25532e-03_rb,0.24169e-03_rb,0.21923e-03_rb, &\n        & 0.19067e-03_rb,0.15458e-03_rb,0.10293e-03_rb,0.26453e-04_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.22853e-03_rb,0.26273e-03_rb,0.25960e-03_rb,0.24704e-03_rb,0.22549e-03_rb, &\n        & 0.19679e-03_rb,0.15968e-03_rb,0.10728e-03_rb,0.28383e-04_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.22704e-03_rb,0.26469e-03_rb,0.26259e-03_rb,0.25141e-03_rb,0.23080e-03_rb, &\n        & 0.20216e-03_rb,0.16433e-03_rb,0.11116e-03_rb,0.30111e-04_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.18570e-03_rb,0.20791e-03_rb,0.20310e-03_rb,0.19106e-03_rb,0.17066e-03_rb, &\n        & 0.14797e-03_rb,0.12097e-03_rb,0.78704e-04_rb,0.20720e-04_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.18868e-03_rb,0.21356e-03_rb,0.20969e-03_rb,0.19807e-03_rb,0.17821e-03_rb, &\n        & 0.15434e-03_rb,0.12584e-03_rb,0.83179e-04_rb,0.23268e-04_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.18972e-03_rb,0.21732e-03_rb,0.21447e-03_rb,0.20305e-03_rb,0.18416e-03_rb, &\n        & 0.15993e-03_rb,0.13006e-03_rb,0.87134e-04_rb,0.25781e-04_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.18929e-03_rb,0.21955e-03_rb,0.21771e-03_rb,0.20711e-03_rb,0.18907e-03_rb, &\n        & 0.16493e-03_rb,0.13420e-03_rb,0.90699e-04_rb,0.28181e-04_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.18766e-03_rb,0.22095e-03_rb,0.21987e-03_rb,0.21045e-03_rb,0.19312e-03_rb, &\n        & 0.16934e-03_rb,0.13812e-03_rb,0.93840e-04_rb,0.30489e-04_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.15409e-03_rb,0.17399e-03_rb,0.17010e-03_rb,0.16002e-03_rb,0.14311e-03_rb, &\n        & 0.12376e-03_rb,0.10121e-03_rb,0.66428e-04_rb,0.17813e-04_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.15599e-03_rb,0.17831e-03_rb,0.17521e-03_rb,0.16554e-03_rb,0.14890e-03_rb, &\n        & 0.12881e-03_rb,0.10527e-03_rb,0.69964e-04_rb,0.19918e-04_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.15661e-03_rb,0.18119e-03_rb,0.17892e-03_rb,0.16934e-03_rb,0.15365e-03_rb, &\n        & 0.13338e-03_rb,0.10864e-03_rb,0.73142e-04_rb,0.22121e-04_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.15608e-03_rb,0.18293e-03_rb,0.18145e-03_rb,0.17254e-03_rb,0.15743e-03_rb, &\n        & 0.13747e-03_rb,0.11209e-03_rb,0.75971e-04_rb,0.24425e-04_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.15453e-03_rb,0.18383e-03_rb,0.18309e-03_rb,0.17510e-03_rb,0.16067e-03_rb, &\n        & 0.14102e-03_rb,0.11529e-03_rb,0.78607e-04_rb,0.26791e-04_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.12705e-03_rb,0.14485e-03_rb,0.14155e-03_rb,0.13312e-03_rb,0.11914e-03_rb, &\n        & 0.10299e-03_rb,0.84416e-04_rb,0.55598e-04_rb,0.14429e-04_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.12843e-03_rb,0.14822e-03_rb,0.14555e-03_rb,0.13748e-03_rb,0.12377e-03_rb, &\n        & 0.10702e-03_rb,0.87520e-04_rb,0.58405e-04_rb,0.16147e-04_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.12875e-03_rb,0.15043e-03_rb,0.14850e-03_rb,0.14053e-03_rb,0.12752e-03_rb, &\n        & 0.11081e-03_rb,0.90348e-04_rb,0.60934e-04_rb,0.17992e-04_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.12822e-03_rb,0.15175e-03_rb,0.15049e-03_rb,0.14301e-03_rb,0.13059e-03_rb, &\n        & 0.11413e-03_rb,0.93171e-04_rb,0.63296e-04_rb,0.19888e-04_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.12684e-03_rb,0.15239e-03_rb,0.15179e-03_rb,0.14511e-03_rb,0.13320e-03_rb, &\n        & 0.11702e-03_rb,0.95786e-04_rb,0.65468e-04_rb,0.21706e-04_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.16451e-02_rb,0.17375e-02_rb,0.16665e-02_rb,0.15396e-02_rb,0.13696e-02_rb, &\n        & 0.11731e-02_rb,0.92753e-03_rb,0.61159e-03_rb,0.14680e-03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.16450e-02_rb,0.17591e-02_rb,0.16954e-02_rb,0.15711e-02_rb,0.14087e-02_rb, &\n        & 0.12092e-02_rb,0.95859e-03_rb,0.63308e-03_rb,0.16131e-03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.16396e-02_rb,0.17762e-02_rb,0.17200e-02_rb,0.16012e-02_rb,0.14448e-02_rb, &\n        & 0.12424e-02_rb,0.98862e-03_rb,0.65400e-03_rb,0.17365e-03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.16299e-02_rb,0.17875e-02_rb,0.17415e-02_rb,0.16313e-02_rb,0.14788e-02_rb, &\n        & 0.12751e-02_rb,0.10161e-02_rb,0.67524e-03_rb,0.18499e-03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.16127e-02_rb,0.17946e-02_rb,0.17629e-02_rb,0.16594e-02_rb,0.15119e-02_rb, &\n        & 0.13059e-02_rb,0.10419e-02_rb,0.69511e-03_rb,0.19999e-03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.15084e-02_rb,0.15931e-02_rb,0.15186e-02_rb,0.13958e-02_rb,0.12369e-02_rb, &\n        & 0.10500e-02_rb,0.83688e-03_rb,0.55465e-03_rb,0.11914e-03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.15115e-02_rb,0.16146e-02_rb,0.15457e-02_rb,0.14241e-02_rb,0.12724e-02_rb, &\n        & 0.10844e-02_rb,0.86669e-03_rb,0.57603e-03_rb,0.13037e-03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.15084e-02_rb,0.16309e-02_rb,0.15669e-02_rb,0.14522e-02_rb,0.13074e-02_rb, &\n        & 0.11181e-02_rb,0.89787e-03_rb,0.59657e-03_rb,0.13918e-03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.14965e-02_rb,0.16419e-02_rb,0.15861e-02_rb,0.14781e-02_rb,0.13385e-02_rb, &\n        & 0.11507e-02_rb,0.92569e-03_rb,0.61596e-03_rb,0.15053e-03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.14804e-02_rb,0.16493e-02_rb,0.16042e-02_rb,0.15021e-02_rb,0.13704e-02_rb, &\n        & 0.11804e-02_rb,0.95044e-03_rb,0.63472e-03_rb,0.16410e-03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.13707e-02_rb,0.14436e-02_rb,0.13706e-02_rb,0.12561e-02_rb,0.11093e-02_rb, &\n        & 0.93534e-03_rb,0.74505e-03_rb,0.49303e-03_rb,0.93388e-04_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.13760e-02_rb,0.14666e-02_rb,0.13986e-02_rb,0.12850e-02_rb,0.11416e-02_rb, &\n        & 0.96700e-03_rb,0.77192e-03_rb,0.51430e-03_rb,0.10062e-03_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.13732e-02_rb,0.14839e-02_rb,0.14208e-02_rb,0.13112e-02_rb,0.11718e-02_rb, &\n        & 0.99814e-03_rb,0.79899e-03_rb,0.53404e-03_rb,0.10964e-03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.13644e-02_rb,0.14939e-02_rb,0.14404e-02_rb,0.13346e-02_rb,0.12002e-02_rb, &\n        & 0.10295e-02_rb,0.82532e-03_rb,0.55285e-03_rb,0.12023e-03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.13512e-02_rb,0.15024e-02_rb,0.14568e-02_rb,0.13559e-02_rb,0.12266e-02_rb, &\n        & 0.10592e-02_rb,0.85085e-03_rb,0.57058e-03_rb,0.13064e-03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.12336e-02_rb,0.12968e-02_rb,0.12255e-02_rb,0.11189e-02_rb,0.98785e-03_rb, &\n        & 0.83184e-03_rb,0.66033e-03_rb,0.43467e-03_rb,0.70047e-04_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.12419e-02_rb,0.13192e-02_rb,0.12543e-02_rb,0.11482e-02_rb,0.10189e-02_rb, &\n        & 0.86315e-03_rb,0.68559e-03_rb,0.45559e-03_rb,0.76629e-04_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.12416e-02_rb,0.13349e-02_rb,0.12771e-02_rb,0.11745e-02_rb,0.10469e-02_rb, &\n        & 0.89182e-03_rb,0.71110e-03_rb,0.47551e-03_rb,0.84761e-04_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.12342e-02_rb,0.13470e-02_rb,0.12958e-02_rb,0.11964e-02_rb,0.10726e-02_rb, &\n        & 0.91965e-03_rb,0.73487e-03_rb,0.49419e-03_rb,0.93979e-04_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.12238e-02_rb,0.13566e-02_rb,0.13110e-02_rb,0.12168e-02_rb,0.10976e-02_rb, &\n        & 0.94731e-03_rb,0.75866e-03_rb,0.51080e-03_rb,0.10249e-03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.10970e-02_rb,0.11491e-02_rb,0.10850e-02_rb,0.99037e-03_rb,0.87478e-03_rb, &\n        & 0.73644e-03_rb,0.58168e-03_rb,0.38673e-03_rb,0.55328e-04_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.11051e-02_rb,0.11716e-02_rb,0.11129e-02_rb,0.10196e-02_rb,0.90431e-03_rb, &\n        & 0.76445e-03_rb,0.60553e-03_rb,0.40600e-03_rb,0.61413e-04_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.11053e-02_rb,0.11877e-02_rb,0.11365e-02_rb,0.10446e-02_rb,0.92981e-03_rb, &\n        & 0.79114e-03_rb,0.62919e-03_rb,0.42419e-03_rb,0.68340e-04_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.11000e-02_rb,0.12008e-02_rb,0.11557e-02_rb,0.10648e-02_rb,0.95310e-03_rb, &\n        & 0.81721e-03_rb,0.65273e-03_rb,0.44128e-03_rb,0.75425e-04_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.10930e-02_rb,0.12101e-02_rb,0.11704e-02_rb,0.10855e-02_rb,0.97521e-03_rb, &\n        & 0.84232e-03_rb,0.67516e-03_rb,0.45733e-03_rb,0.82112e-04_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.96254e-03_rb,0.10041e-02_rb,0.94496e-03_rb,0.86305e-03_rb,0.76515e-03_rb, &\n        & 0.64666e-03_rb,0.50949e-03_rb,0.34237e-03_rb,0.45743e-04_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.97168e-03_rb,0.10257e-02_rb,0.97306e-03_rb,0.89241e-03_rb,0.79300e-03_rb, &\n        & 0.67315e-03_rb,0.53212e-03_rb,0.35953e-03_rb,0.50936e-04_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.97307e-03_rb,0.10417e-02_rb,0.99540e-03_rb,0.91663e-03_rb,0.81739e-03_rb, &\n        & 0.69764e-03_rb,0.55388e-03_rb,0.37625e-03_rb,0.56704e-04_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.97112e-03_rb,0.10538e-02_rb,0.10130e-02_rb,0.93600e-03_rb,0.83875e-03_rb, &\n        & 0.72048e-03_rb,0.57540e-03_rb,0.39219e-03_rb,0.62214e-04_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.96524e-03_rb,0.10634e-02_rb,0.10272e-02_rb,0.95339e-03_rb,0.85814e-03_rb, &\n        & 0.74256e-03_rb,0.59649e-03_rb,0.40723e-03_rb,0.68154e-04_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.83977e-03_rb,0.87150e-03_rb,0.81798e-03_rb,0.74510e-03_rb,0.66073e-03_rb, &\n        & 0.55889e-03_rb,0.44038e-03_rb,0.30023e-03_rb,0.39438e-04_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.84860e-03_rb,0.89183e-03_rb,0.84311e-03_rb,0.77202e-03_rb,0.68677e-03_rb, &\n        & 0.58412e-03_rb,0.46261e-03_rb,0.31513e-03_rb,0.44026e-04_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.85156e-03_rb,0.90640e-03_rb,0.86357e-03_rb,0.79472e-03_rb,0.70843e-03_rb, &\n        & 0.60616e-03_rb,0.48333e-03_rb,0.32962e-03_rb,0.48169e-04_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.84996e-03_rb,0.91804e-03_rb,0.88000e-03_rb,0.81332e-03_rb,0.72741e-03_rb, &\n        & 0.62668e-03_rb,0.50295e-03_rb,0.34425e-03_rb,0.52632e-04_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.84411e-03_rb,0.92502e-03_rb,0.89195e-03_rb,0.82771e-03_rb,0.74479e-03_rb, &\n        & 0.64630e-03_rb,0.52177e-03_rb,0.35838e-03_rb,0.57490e-04_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.72566e-03_rb,0.75029e-03_rb,0.70410e-03_rb,0.64085e-03_rb,0.56881e-03_rb, &\n        & 0.48163e-03_rb,0.37585e-03_rb,0.26029e-03_rb,0.35173e-04_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.73526e-03_rb,0.76878e-03_rb,0.72724e-03_rb,0.66569e-03_rb,0.59239e-03_rb, &\n        & 0.50357e-03_rb,0.39670e-03_rb,0.27234e-03_rb,0.38442e-04_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.73942e-03_rb,0.78240e-03_rb,0.74617e-03_rb,0.68580e-03_rb,0.61175e-03_rb, &\n        & 0.52308e-03_rb,0.41633e-03_rb,0.28548e-03_rb,0.42620e-04_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.73787e-03_rb,0.79331e-03_rb,0.76108e-03_rb,0.70193e-03_rb,0.62821e-03_rb, &\n        & 0.54092e-03_rb,0.43381e-03_rb,0.29821e-03_rb,0.47013e-04_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.73365e-03_rb,0.79895e-03_rb,0.77125e-03_rb,0.71463e-03_rb,0.64295e-03_rb, &\n        & 0.55753e-03_rb,0.45033e-03_rb,0.31091e-03_rb,0.51519e-04_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.62112e-03_rb,0.63900e-03_rb,0.60071e-03_rb,0.54641e-03_rb,0.48585e-03_rb, &\n        & 0.41219e-03_rb,0.31988e-03_rb,0.22088e-03_rb,0.39225e-04_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.63089e-03_rb,0.65678e-03_rb,0.62144e-03_rb,0.56855e-03_rb,0.50663e-03_rb, &\n        & 0.43158e-03_rb,0.33912e-03_rb,0.23261e-03_rb,0.43145e-04_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.63630e-03_rb,0.67023e-03_rb,0.63841e-03_rb,0.58635e-03_rb,0.52398e-03_rb, &\n        & 0.44876e-03_rb,0.35619e-03_rb,0.24341e-03_rb,0.47182e-04_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.63678e-03_rb,0.68001e-03_rb,0.65143e-03_rb,0.60045e-03_rb,0.53807e-03_rb, &\n        & 0.46446e-03_rb,0.37160e-03_rb,0.25517e-03_rb,0.51310e-04_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.63384e-03_rb,0.68558e-03_rb,0.66049e-03_rb,0.61133e-03_rb,0.55067e-03_rb, &\n        & 0.47828e-03_rb,0.38622e-03_rb,0.26607e-03_rb,0.55652e-04_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.52818e-03_rb,0.54302e-03_rb,0.51109e-03_rb,0.46524e-03_rb,0.41303e-03_rb, &\n        & 0.35089e-03_rb,0.27050e-03_rb,0.18719e-03_rb,0.51897e-04_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.53874e-03_rb,0.56000e-03_rb,0.52974e-03_rb,0.48429e-03_rb,0.43151e-03_rb, &\n        & 0.36826e-03_rb,0.28749e-03_rb,0.19624e-03_rb,0.57480e-04_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.54407e-03_rb,0.57298e-03_rb,0.54499e-03_rb,0.50007e-03_rb,0.44685e-03_rb, &\n        & 0.38282e-03_rb,0.30218e-03_rb,0.20623e-03_rb,0.63250e-04_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.54510e-03_rb,0.58221e-03_rb,0.55605e-03_rb,0.51259e-03_rb,0.45923e-03_rb, &\n        & 0.39550e-03_rb,0.31547e-03_rb,0.21632e-03_rb,0.68339e-04_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.54335e-03_rb,0.58744e-03_rb,0.56412e-03_rb,0.52185e-03_rb,0.47008e-03_rb, &\n        & 0.40728e-03_rb,0.32798e-03_rb,0.22618e-03_rb,0.72964e-04_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.44901e-03_rb,0.46427e-03_rb,0.43915e-03_rb,0.40187e-03_rb,0.35719e-03_rb, &\n        & 0.30380e-03_rb,0.23427e-03_rb,0.15956e-03_rb,0.52228e-04_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.45685e-03_rb,0.47845e-03_rb,0.45475e-03_rb,0.41772e-03_rb,0.37275e-03_rb, &\n        & 0.31798e-03_rb,0.24772e-03_rb,0.16817e-03_rb,0.56979e-04_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.46005e-03_rb,0.48879e-03_rb,0.46665e-03_rb,0.43038e-03_rb,0.38526e-03_rb, &\n        & 0.32982e-03_rb,0.25983e-03_rb,0.17707e-03_rb,0.61788e-04_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.46029e-03_rb,0.49540e-03_rb,0.47547e-03_rb,0.44015e-03_rb,0.39539e-03_rb, &\n        & 0.34025e-03_rb,0.27087e-03_rb,0.18596e-03_rb,0.66537e-04_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.45760e-03_rb,0.49879e-03_rb,0.48175e-03_rb,0.44812e-03_rb,0.40429e-03_rb, &\n        & 0.34971e-03_rb,0.28105e-03_rb,0.19422e-03_rb,0.70982e-04_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.37789e-03_rb,0.39359e-03_rb,0.37439e-03_rb,0.34335e-03_rb,0.30516e-03_rb, &\n        & 0.25987e-03_rb,0.20136e-03_rb,0.13616e-03_rb,0.47471e-04_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.38345e-03_rb,0.40460e-03_rb,0.38678e-03_rb,0.35616e-03_rb,0.31793e-03_rb, &\n        & 0.27155e-03_rb,0.21219e-03_rb,0.14366e-03_rb,0.51576e-04_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.38556e-03_rb,0.41241e-03_rb,0.39583e-03_rb,0.36622e-03_rb,0.32808e-03_rb, &\n        & 0.28132e-03_rb,0.22259e-03_rb,0.15133e-03_rb,0.55529e-04_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.38464e-03_rb,0.41687e-03_rb,0.40247e-03_rb,0.37394e-03_rb,0.33650e-03_rb, &\n        & 0.28994e-03_rb,0.23157e-03_rb,0.15870e-03_rb,0.59557e-04_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.38119e-03_rb,0.41880e-03_rb,0.40725e-03_rb,0.38009e-03_rb,0.34354e-03_rb, &\n        & 0.29781e-03_rb,0.23974e-03_rb,0.16572e-03_rb,0.63195e-04_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.31518e-03_rb,0.33080e-03_rb,0.31644e-03_rb,0.29051e-03_rb,0.25824e-03_rb, &\n        & 0.21997e-03_rb,0.17074e-03_rb,0.11585e-03_rb,0.39419e-04_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.31945e-03_rb,0.33947e-03_rb,0.32620e-03_rb,0.30064e-03_rb,0.26839e-03_rb, &\n        & 0.22968e-03_rb,0.17999e-03_rb,0.12241e-03_rb,0.42717e-04_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.32042e-03_rb,0.34518e-03_rb,0.33311e-03_rb,0.30844e-03_rb,0.27653e-03_rb, &\n        & 0.23733e-03_rb,0.18840e-03_rb,0.12892e-03_rb,0.45799e-04_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.31877e-03_rb,0.34829e-03_rb,0.33813e-03_rb,0.31466e-03_rb,0.28316e-03_rb, &\n        & 0.24429e-03_rb,0.19577e-03_rb,0.13500e-03_rb,0.49095e-04_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.31533e-03_rb,0.34943e-03_rb,0.34164e-03_rb,0.31953e-03_rb,0.28883e-03_rb, &\n        & 0.25064e-03_rb,0.20247e-03_rb,0.14079e-03_rb,0.52225e-04_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.30073e-02_rb,0.30215e-02_rb,0.28549e-02_rb,0.26145e-02_rb,0.23223e-02_rb, &\n        & 0.19698e-02_rb,0.15631e-02_rb,0.10671e-02_rb,0.34349e-03_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.30045e-02_rb,0.30464e-02_rb,0.29000e-02_rb,0.26682e-02_rb,0.23795e-02_rb, &\n        & 0.20320e-02_rb,0.16241e-02_rb,0.11180e-02_rb,0.37241e-03_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.29924e-02_rb,0.30694e-02_rb,0.29376e-02_rb,0.27170e-02_rb,0.24327e-02_rb, &\n        & 0.20955e-02_rb,0.16828e-02_rb,0.11692e-02_rb,0.41183e-03_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.29732e-02_rb,0.30875e-02_rb,0.29723e-02_rb,0.27617e-02_rb,0.24862e-02_rb, &\n        & 0.21555e-02_rb,0.17426e-02_rb,0.12186e-02_rb,0.45672e-03_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.29511e-02_rb,0.31004e-02_rb,0.30014e-02_rb,0.28043e-02_rb,0.25375e-02_rb, &\n        & 0.22174e-02_rb,0.18018e-02_rb,0.12656e-02_rb,0.49848e-03_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.28011e-02_rb,0.28061e-02_rb,0.26513e-02_rb,0.24171e-02_rb,0.21391e-02_rb, &\n        & 0.18145e-02_rb,0.14290e-02_rb,0.97808e-03_rb,0.28283e-03_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.28038e-02_rb,0.28333e-02_rb,0.26971e-02_rb,0.24708e-02_rb,0.21906e-02_rb, &\n        & 0.18715e-02_rb,0.14859e-02_rb,0.10236e-02_rb,0.31088e-03_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.27978e-02_rb,0.28587e-02_rb,0.27386e-02_rb,0.25159e-02_rb,0.22406e-02_rb, &\n        & 0.19256e-02_rb,0.15398e-02_rb,0.10695e-02_rb,0.34605e-03_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.27864e-02_rb,0.28782e-02_rb,0.27737e-02_rb,0.25561e-02_rb,0.22888e-02_rb, &\n        & 0.19778e-02_rb,0.15963e-02_rb,0.11144e-02_rb,0.38043e-03_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.27682e-02_rb,0.28941e-02_rb,0.28027e-02_rb,0.25952e-02_rb,0.23337e-02_rb, &\n        & 0.20308e-02_rb,0.16518e-02_rb,0.11583e-02_rb,0.41249e-03_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.26013e-02_rb,0.25925e-02_rb,0.24368e-02_rb,0.22059e-02_rb,0.19447e-02_rb, &\n        & 0.16443e-02_rb,0.12895e-02_rb,0.88356e-03_rb,0.22980e-03_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.26118e-02_rb,0.26228e-02_rb,0.24826e-02_rb,0.22596e-02_rb,0.19971e-02_rb, &\n        & 0.16971e-02_rb,0.13425e-02_rb,0.92292e-03_rb,0.25666e-03_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.26121e-02_rb,0.26511e-02_rb,0.25221e-02_rb,0.23045e-02_rb,0.20442e-02_rb, &\n        & 0.17465e-02_rb,0.13937e-02_rb,0.96423e-03_rb,0.28307e-03_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.26050e-02_rb,0.26757e-02_rb,0.25536e-02_rb,0.23446e-02_rb,0.20883e-02_rb, &\n        & 0.17925e-02_rb,0.14453e-02_rb,0.10074e-02_rb,0.30818e-03_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.25933e-02_rb,0.26944e-02_rb,0.25823e-02_rb,0.23794e-02_rb,0.21318e-02_rb, &\n        & 0.18378e-02_rb,0.14965e-02_rb,0.10492e-02_rb,0.33812e-03_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.24078e-02_rb,0.23894e-02_rb,0.22370e-02_rb,0.20125e-02_rb,0.17599e-02_rb, &\n        & 0.14763e-02_rb,0.11554e-02_rb,0.78494e-03_rb,0.18813e-03_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.24225e-02_rb,0.24253e-02_rb,0.22813e-02_rb,0.20638e-02_rb,0.18093e-02_rb, &\n        & 0.15251e-02_rb,0.12031e-02_rb,0.82373e-03_rb,0.21030e-03_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.24294e-02_rb,0.24564e-02_rb,0.23198e-02_rb,0.21085e-02_rb,0.18532e-02_rb, &\n        & 0.15708e-02_rb,0.12482e-02_rb,0.86229e-03_rb,0.23129e-03_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.24309e-02_rb,0.24808e-02_rb,0.23546e-02_rb,0.21467e-02_rb,0.18923e-02_rb, &\n        & 0.16129e-02_rb,0.12944e-02_rb,0.90119e-03_rb,0.25224e-03_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.24223e-02_rb,0.24983e-02_rb,0.23839e-02_rb,0.21783e-02_rb,0.19305e-02_rb, &\n        & 0.16540e-02_rb,0.13401e-02_rb,0.94049e-03_rb,0.27779e-03_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.22071e-02_rb,0.21851e-02_rb,0.20436e-02_rb,0.18357e-02_rb,0.15952e-02_rb, &\n        & 0.13304e-02_rb,0.10307e-02_rb,0.69163e-03_rb,0.14983e-03_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.22284e-02_rb,0.22243e-02_rb,0.20887e-02_rb,0.18839e-02_rb,0.16450e-02_rb, &\n        & 0.13762e-02_rb,0.10736e-02_rb,0.72602e-03_rb,0.16732e-03_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.22426e-02_rb,0.22593e-02_rb,0.21270e-02_rb,0.19281e-02_rb,0.16889e-02_rb, &\n        & 0.14169e-02_rb,0.11148e-02_rb,0.76201e-03_rb,0.18420e-03_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.22476e-02_rb,0.22863e-02_rb,0.21609e-02_rb,0.19676e-02_rb,0.17258e-02_rb, &\n        & 0.14525e-02_rb,0.11537e-02_rb,0.79815e-03_rb,0.20325e-03_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.22399e-02_rb,0.23048e-02_rb,0.21912e-02_rb,0.19974e-02_rb,0.17586e-02_rb, &\n        & 0.14880e-02_rb,0.11934e-02_rb,0.83564e-03_rb,0.22470e-03_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.20075e-02_rb,0.19795e-02_rb,0.18447e-02_rb,0.16541e-02_rb,0.14341e-02_rb, &\n        & 0.11951e-02_rb,0.92238e-03_rb,0.60660e-03_rb,0.12381e-03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.20344e-02_rb,0.20227e-02_rb,0.18912e-02_rb,0.17028e-02_rb,0.14828e-02_rb, &\n        & 0.12404e-02_rb,0.96234e-03_rb,0.63833e-03_rb,0.13822e-03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.20513e-02_rb,0.20598e-02_rb,0.19311e-02_rb,0.17466e-02_rb,0.15267e-02_rb, &\n        & 0.12805e-02_rb,0.99815e-03_rb,0.66987e-03_rb,0.15138e-03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.20576e-02_rb,0.20878e-02_rb,0.19661e-02_rb,0.17857e-02_rb,0.15647e-02_rb, &\n        & 0.13147e-02_rb,0.10319e-02_rb,0.70266e-03_rb,0.16753e-03_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.20521e-02_rb,0.21067e-02_rb,0.19938e-02_rb,0.18157e-02_rb,0.15969e-02_rb, &\n        & 0.13475e-02_rb,0.10644e-02_rb,0.73524e-03_rb,0.18430e-03_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.17951e-02_rb,0.17708e-02_rb,0.16476e-02_rb,0.14764e-02_rb,0.12769e-02_rb, &\n        & 0.10613e-02_rb,0.82141e-03_rb,0.53387e-03_rb,0.10356e-03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.18257e-02_rb,0.18161e-02_rb,0.16970e-02_rb,0.15264e-02_rb,0.13250e-02_rb, &\n        & 0.11052e-02_rb,0.85771e-03_rb,0.56341e-03_rb,0.11419e-03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.18457e-02_rb,0.18541e-02_rb,0.17382e-02_rb,0.15700e-02_rb,0.13685e-02_rb, &\n        & 0.11444e-02_rb,0.89062e-03_rb,0.59265e-03_rb,0.12737e-03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.18534e-02_rb,0.18833e-02_rb,0.17713e-02_rb,0.16066e-02_rb,0.14063e-02_rb, &\n        & 0.11787e-02_rb,0.92220e-03_rb,0.62067e-03_rb,0.14148e-03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.18508e-02_rb,0.19025e-02_rb,0.17986e-02_rb,0.16377e-02_rb,0.14382e-02_rb, &\n        & 0.12095e-02_rb,0.95313e-03_rb,0.64883e-03_rb,0.15624e-03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.15853e-02_rb,0.15606e-02_rb,0.14491e-02_rb,0.13005e-02_rb,0.11253e-02_rb, &\n        & 0.93388e-03_rb,0.72631e-03_rb,0.46832e-03_rb,0.90402e-04_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.16191e-02_rb,0.16074e-02_rb,0.14980e-02_rb,0.13497e-02_rb,0.11730e-02_rb, &\n        & 0.97691e-03_rb,0.76027e-03_rb,0.49835e-03_rb,0.10124e-03_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.16393e-02_rb,0.16464e-02_rb,0.15392e-02_rb,0.13927e-02_rb,0.12147e-02_rb, &\n        & 0.10153e-02_rb,0.79129e-03_rb,0.52537e-03_rb,0.11276e-03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.16487e-02_rb,0.16729e-02_rb,0.15721e-02_rb,0.14286e-02_rb,0.12504e-02_rb, &\n        & 0.10480e-02_rb,0.82072e-03_rb,0.55187e-03_rb,0.12515e-03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.16472e-02_rb,0.16924e-02_rb,0.15977e-02_rb,0.14588e-02_rb,0.12817e-02_rb, &\n        & 0.10777e-02_rb,0.84873e-03_rb,0.57800e-03_rb,0.13784e-03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.13936e-02_rb,0.13674e-02_rb,0.12635e-02_rb,0.11331e-02_rb,0.97871e-03_rb, &\n        & 0.81331e-03_rb,0.63480e-03_rb,0.40910e-03_rb,0.92222e-04_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.14271e-02_rb,0.14126e-02_rb,0.13114e-02_rb,0.11804e-02_rb,0.10248e-02_rb, &\n        & 0.85405e-03_rb,0.66828e-03_rb,0.43677e-03_rb,0.10207e-03_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.14461e-02_rb,0.14478e-02_rb,0.13500e-02_rb,0.12219e-02_rb,0.10647e-02_rb, &\n        & 0.89058e-03_rb,0.69816e-03_rb,0.46305e-03_rb,0.11262e-03_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.14547e-02_rb,0.14726e-02_rb,0.13807e-02_rb,0.12557e-02_rb,0.10996e-02_rb, &\n        & 0.92247e-03_rb,0.72520e-03_rb,0.48654e-03_rb,0.12376e-03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.14563e-02_rb,0.14902e-02_rb,0.14046e-02_rb,0.12841e-02_rb,0.11288e-02_rb, &\n        & 0.95105e-03_rb,0.75065e-03_rb,0.51065e-03_rb,0.13556e-03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.12161e-02_rb,0.11928e-02_rb,0.11004e-02_rb,0.98725e-03_rb,0.85318e-03_rb, &\n        & 0.70775e-03_rb,0.55081e-03_rb,0.35481e-03_rb,0.12422e-03_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.12463e-02_rb,0.12352e-02_rb,0.11444e-02_rb,0.10316e-02_rb,0.89480e-03_rb, &\n        & 0.74560e-03_rb,0.58282e-03_rb,0.38195e-03_rb,0.13273e-03_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.12646e-02_rb,0.12662e-02_rb,0.11796e-02_rb,0.10687e-02_rb,0.93096e-03_rb, &\n        & 0.77883e-03_rb,0.61138e-03_rb,0.40526e-03_rb,0.14193e-03_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.12733e-02_rb,0.12880e-02_rb,0.12074e-02_rb,0.10979e-02_rb,0.96169e-03_rb, &\n        & 0.80809e-03_rb,0.63689e-03_rb,0.42724e-03_rb,0.15291e-03_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.12740e-02_rb,0.13044e-02_rb,0.12293e-02_rb,0.11231e-02_rb,0.98752e-03_rb, &\n        & 0.83380e-03_rb,0.66030e-03_rb,0.44847e-03_rb,0.16460e-03_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.10656e-02_rb,0.10497e-02_rb,0.96881e-03_rb,0.87108e-03_rb,0.75627e-03_rb, &\n        & 0.62893e-03_rb,0.48955e-03_rb,0.31741e-03_rb,0.13016e-03_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.10879e-02_rb,0.10821e-02_rb,0.10046e-02_rb,0.90804e-03_rb,0.79130e-03_rb, &\n        & 0.66235e-03_rb,0.51807e-03_rb,0.34003e-03_rb,0.13779e-03_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.11001e-02_rb,0.11057e-02_rb,0.10327e-02_rb,0.93770e-03_rb,0.82120e-03_rb, &\n        & 0.69087e-03_rb,0.54346e-03_rb,0.36047e-03_rb,0.14411e-03_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.11047e-02_rb,0.11226e-02_rb,0.10548e-02_rb,0.96212e-03_rb,0.84667e-03_rb, &\n        & 0.71575e-03_rb,0.56548e-03_rb,0.37954e-03_rb,0.15311e-03_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.11028e-02_rb,0.11345e-02_rb,0.10715e-02_rb,0.98143e-03_rb,0.86845e-03_rb, &\n        & 0.73791e-03_rb,0.58600e-03_rb,0.39874e-03_rb,0.16257e-03_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.92541e-03_rb,0.91485e-03_rb,0.84575e-03_rb,0.76287e-03_rb,0.66530e-03_rb, &\n        & 0.55435e-03_rb,0.43055e-03_rb,0.28106e-03_rb,0.11779e-03_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.94153e-03_rb,0.94015e-03_rb,0.87425e-03_rb,0.79221e-03_rb,0.69422e-03_rb, &\n        & 0.58249e-03_rb,0.45555e-03_rb,0.30043e-03_rb,0.12541e-03_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.95043e-03_rb,0.95859e-03_rb,0.89645e-03_rb,0.81618e-03_rb,0.71892e-03_rb, &\n        & 0.60660e-03_rb,0.47691e-03_rb,0.31810e-03_rb,0.13086e-03_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.95300e-03_rb,0.97180e-03_rb,0.91414e-03_rb,0.83540e-03_rb,0.73965e-03_rb, &\n        & 0.62755e-03_rb,0.49627e-03_rb,0.33494e-03_rb,0.13792e-03_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.94924e-03_rb,0.98033e-03_rb,0.92629e-03_rb,0.85073e-03_rb,0.75722e-03_rb, &\n        & 0.64562e-03_rb,0.51410e-03_rb,0.35114e-03_rb,0.14650e-03_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.79344e-03_rb,0.78971e-03_rb,0.73267e-03_rb,0.66405e-03_rb,0.58083e-03_rb, &\n        & 0.48392e-03_rb,0.37549e-03_rb,0.24569e-03_rb,0.97034e-04_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.80574e-03_rb,0.81004e-03_rb,0.75547e-03_rb,0.68809e-03_rb,0.60484e-03_rb, &\n        & 0.50707e-03_rb,0.39618e-03_rb,0.26227e-03_rb,0.10267e-03_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.81227e-03_rb,0.82486e-03_rb,0.77408e-03_rb,0.70758e-03_rb,0.62511e-03_rb, &\n        & 0.52731e-03_rb,0.41439e-03_rb,0.27759e-03_rb,0.10742e-03_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.81298e-03_rb,0.83538e-03_rb,0.78743e-03_rb,0.72262e-03_rb,0.64193e-03_rb, &\n        & 0.54449e-03_rb,0.43080e-03_rb,0.29211e-03_rb,0.11325e-03_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.80893e-03_rb,0.84184e-03_rb,0.79706e-03_rb,0.73516e-03_rb,0.65638e-03_rb, &\n        & 0.55984e-03_rb,0.44607e-03_rb,0.30621e-03_rb,0.12059e-03_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.54732e-02_rb,0.53034e-02_rb,0.49969e-02_rb,0.45431e-02_rb,0.40134e-02_rb, &\n        & 0.34010e-02_rb,0.26972e-02_rb,0.18637e-02_rb,0.96692e-03_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.54607e-02_rb,0.53367e-02_rb,0.50546e-02_rb,0.46321e-02_rb,0.41099e-02_rb, &\n        & 0.34970e-02_rb,0.27999e-02_rb,0.19729e-02_rb,0.11063e-02_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.54405e-02_rb,0.53637e-02_rb,0.51145e-02_rb,0.47117e-02_rb,0.41981e-02_rb, &\n        & 0.35927e-02_rb,0.29070e-02_rb,0.20850e-02_rb,0.12360e-02_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.54052e-02_rb,0.53858e-02_rb,0.51679e-02_rb,0.47829e-02_rb,0.42844e-02_rb, &\n        & 0.36942e-02_rb,0.30161e-02_rb,0.22030e-02_rb,0.13785e-02_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.53549e-02_rb,0.54029e-02_rb,0.52131e-02_rb,0.48529e-02_rb,0.43733e-02_rb, &\n        & 0.37946e-02_rb,0.31262e-02_rb,0.23268e-02_rb,0.15336e-02_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.52482e-02_rb,0.50940e-02_rb,0.47786e-02_rb,0.43454e-02_rb,0.38186e-02_rb, &\n        & 0.32129e-02_rb,0.25325e-02_rb,0.17227e-02_rb,0.80430e-03_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.52403e-02_rb,0.51313e-02_rb,0.48370e-02_rb,0.44315e-02_rb,0.39109e-02_rb, &\n        & 0.33052e-02_rb,0.26254e-02_rb,0.18226e-02_rb,0.90614e-03_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.52188e-02_rb,0.51614e-02_rb,0.48948e-02_rb,0.45073e-02_rb,0.39963e-02_rb, &\n        & 0.33961e-02_rb,0.27198e-02_rb,0.19222e-02_rb,0.10146e-02_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.51826e-02_rb,0.51837e-02_rb,0.49460e-02_rb,0.45770e-02_rb,0.40791e-02_rb, &\n        & 0.34891e-02_rb,0.28146e-02_rb,0.20278e-02_rb,0.11325e-02_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.51359e-02_rb,0.51960e-02_rb,0.49902e-02_rb,0.46430e-02_rb,0.41602e-02_rb, &\n        & 0.35811e-02_rb,0.29127e-02_rb,0.21431e-02_rb,0.12633e-02_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.49876e-02_rb,0.48388e-02_rb,0.45133e-02_rb,0.40992e-02_rb,0.35901e-02_rb, &\n        & 0.30030e-02_rb,0.23527e-02_rb,0.15765e-02_rb,0.64714e-03_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.49850e-02_rb,0.48808e-02_rb,0.45736e-02_rb,0.41821e-02_rb,0.36790e-02_rb, &\n        & 0.30941e-02_rb,0.24388e-02_rb,0.16655e-02_rb,0.72927e-03_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.49660e-02_rb,0.49117e-02_rb,0.46346e-02_rb,0.42593e-02_rb,0.37631e-02_rb, &\n        & 0.31820e-02_rb,0.25243e-02_rb,0.17543e-02_rb,0.81771e-03_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.49361e-02_rb,0.49307e-02_rb,0.46909e-02_rb,0.43285e-02_rb,0.38459e-02_rb, &\n        & 0.32679e-02_rb,0.26083e-02_rb,0.18450e-02_rb,0.91578e-03_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.48943e-02_rb,0.49413e-02_rb,0.47366e-02_rb,0.43959e-02_rb,0.39239e-02_rb, &\n        & 0.33496e-02_rb,0.26941e-02_rb,0.19416e-02_rb,0.10197e-02_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.46848e-02_rb,0.45423e-02_rb,0.42109e-02_rb,0.38147e-02_rb,0.33318e-02_rb, &\n        & 0.27806e-02_rb,0.21628e-02_rb,0.14435e-02_rb,0.52019e-03_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.46885e-02_rb,0.45846e-02_rb,0.42767e-02_rb,0.38967e-02_rb,0.34228e-02_rb, &\n        & 0.28698e-02_rb,0.22469e-02_rb,0.15180e-02_rb,0.58537e-03_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.46784e-02_rb,0.46158e-02_rb,0.43389e-02_rb,0.39718e-02_rb,0.35088e-02_rb, &\n        & 0.29561e-02_rb,0.23285e-02_rb,0.15932e-02_rb,0.65783e-03_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.46546e-02_rb,0.46379e-02_rb,0.43907e-02_rb,0.40421e-02_rb,0.35928e-02_rb, &\n        & 0.30394e-02_rb,0.24053e-02_rb,0.16703e-02_rb,0.73788e-03_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.46218e-02_rb,0.46560e-02_rb,0.44359e-02_rb,0.41109e-02_rb,0.36691e-02_rb, &\n        & 0.31156e-02_rb,0.24821e-02_rb,0.17515e-02_rb,0.82261e-03_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.43680e-02_rb,0.42271e-02_rb,0.38928e-02_rb,0.35080e-02_rb,0.30576e-02_rb, &\n        & 0.25405e-02_rb,0.19725e-02_rb,0.13117e-02_rb,0.42455e-03_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.43836e-02_rb,0.42742e-02_rb,0.39603e-02_rb,0.35901e-02_rb,0.31440e-02_rb, &\n        & 0.26294e-02_rb,0.20540e-02_rb,0.13812e-02_rb,0.47676e-03_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.43831e-02_rb,0.43074e-02_rb,0.40201e-02_rb,0.36636e-02_rb,0.32261e-02_rb, &\n        & 0.27164e-02_rb,0.21330e-02_rb,0.14464e-02_rb,0.53568e-03_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.43690e-02_rb,0.43343e-02_rb,0.40742e-02_rb,0.37289e-02_rb,0.33089e-02_rb, &\n        & 0.28017e-02_rb,0.22054e-02_rb,0.15130e-02_rb,0.59880e-03_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.43473e-02_rb,0.43575e-02_rb,0.41195e-02_rb,0.37951e-02_rb,0.33885e-02_rb, &\n        & 0.28774e-02_rb,0.22767e-02_rb,0.15816e-02_rb,0.66710e-03_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.40714e-02_rb,0.39122e-02_rb,0.35777e-02_rb,0.32091e-02_rb,0.27872e-02_rb, &\n        & 0.22994e-02_rb,0.17735e-02_rb,0.11790e-02_rb,0.33561e-03_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.40973e-02_rb,0.39625e-02_rb,0.36472e-02_rb,0.32877e-02_rb,0.28694e-02_rb, &\n        & 0.23826e-02_rb,0.18515e-02_rb,0.12426e-02_rb,0.37756e-03_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.41108e-02_rb,0.40033e-02_rb,0.37116e-02_rb,0.33595e-02_rb,0.29464e-02_rb, &\n        & 0.24646e-02_rb,0.19290e-02_rb,0.13037e-02_rb,0.42584e-03_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.41078e-02_rb,0.40382e-02_rb,0.37677e-02_rb,0.34232e-02_rb,0.30216e-02_rb, &\n        & 0.25463e-02_rb,0.20016e-02_rb,0.13624e-02_rb,0.47733e-03_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.40964e-02_rb,0.40666e-02_rb,0.38151e-02_rb,0.34890e-02_rb,0.30973e-02_rb, &\n        & 0.26200e-02_rb,0.20705e-02_rb,0.14239e-02_rb,0.53330e-03_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.37806e-02_rb,0.36256e-02_rb,0.32982e-02_rb,0.29389e-02_rb,0.25345e-02_rb, &\n        & 0.20760e-02_rb,0.15879e-02_rb,0.10489e-02_rb,0.28018e-03_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.38204e-02_rb,0.36872e-02_rb,0.33713e-02_rb,0.30154e-02_rb,0.26103e-02_rb, &\n        & 0.21557e-02_rb,0.16619e-02_rb,0.11071e-02_rb,0.31519e-03_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.38460e-02_rb,0.37374e-02_rb,0.34369e-02_rb,0.30817e-02_rb,0.26834e-02_rb, &\n        & 0.22319e-02_rb,0.17344e-02_rb,0.11636e-02_rb,0.35270e-03_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.38578e-02_rb,0.37771e-02_rb,0.34946e-02_rb,0.31444e-02_rb,0.27541e-02_rb, &\n        & 0.23067e-02_rb,0.18034e-02_rb,0.12192e-02_rb,0.39298e-03_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.38608e-02_rb,0.38134e-02_rb,0.35421e-02_rb,0.32035e-02_rb,0.28239e-02_rb, &\n        & 0.23777e-02_rb,0.18670e-02_rb,0.12748e-02_rb,0.43632e-03_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.34769e-02_rb,0.33291e-02_rb,0.30196e-02_rb,0.26781e-02_rb,0.23024e-02_rb, &\n        & 0.18824e-02_rb,0.14244e-02_rb,0.92897e-03_rb,0.24101e-03_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.35239e-02_rb,0.33972e-02_rb,0.30964e-02_rb,0.27587e-02_rb,0.23816e-02_rb, &\n        & 0.19578e-02_rb,0.14914e-02_rb,0.98181e-03_rb,0.27130e-03_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.35607e-02_rb,0.34526e-02_rb,0.31656e-02_rb,0.28309e-02_rb,0.24544e-02_rb, &\n        & 0.20284e-02_rb,0.15562e-02_rb,0.10333e-02_rb,0.30255e-03_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.35844e-02_rb,0.35023e-02_rb,0.32271e-02_rb,0.28968e-02_rb,0.25226e-02_rb, &\n        & 0.20957e-02_rb,0.16188e-02_rb,0.10830e-02_rb,0.33737e-03_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.35961e-02_rb,0.35446e-02_rb,0.32825e-02_rb,0.29568e-02_rb,0.25866e-02_rb, &\n        & 0.21594e-02_rb,0.16782e-02_rb,0.11324e-02_rb,0.37448e-03_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.31490e-02_rb,0.30162e-02_rb,0.27350e-02_rb,0.24183e-02_rb,0.20753e-02_rb, &\n        & 0.16954e-02_rb,0.12750e-02_rb,0.82561e-03_rb,0.24776e-03_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.32098e-02_rb,0.30913e-02_rb,0.28147e-02_rb,0.25006e-02_rb,0.21544e-02_rb, &\n        & 0.17699e-02_rb,0.13387e-02_rb,0.87243e-03_rb,0.27735e-03_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.32582e-02_rb,0.31563e-02_rb,0.28883e-02_rb,0.25742e-02_rb,0.22278e-02_rb, &\n        & 0.18394e-02_rb,0.14003e-02_rb,0.91830e-03_rb,0.30712e-03_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.32928e-02_rb,0.32146e-02_rb,0.29543e-02_rb,0.26421e-02_rb,0.22954e-02_rb, &\n        & 0.19038e-02_rb,0.14592e-02_rb,0.96296e-03_rb,0.33982e-03_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.33113e-02_rb,0.32637e-02_rb,0.30129e-02_rb,0.27034e-02_rb,0.23582e-02_rb, &\n        & 0.19652e-02_rb,0.15140e-02_rb,0.10071e-02_rb,0.37422e-03_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.28236e-02_rb,0.26993e-02_rb,0.24463e-02_rb,0.21584e-02_rb,0.18515e-02_rb, &\n        & 0.15144e-02_rb,0.11396e-02_rb,0.73456e-03_rb,0.30599e-03_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.28929e-02_rb,0.27796e-02_rb,0.25302e-02_rb,0.22416e-02_rb,0.19311e-02_rb, &\n        & 0.15864e-02_rb,0.12002e-02_rb,0.77955e-03_rb,0.32947e-03_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.29497e-02_rb,0.28523e-02_rb,0.26078e-02_rb,0.23174e-02_rb,0.20043e-02_rb, &\n        & 0.16542e-02_rb,0.12577e-02_rb,0.82291e-03_rb,0.35529e-03_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.29901e-02_rb,0.29165e-02_rb,0.26763e-02_rb,0.23877e-02_rb,0.20731e-02_rb, &\n        & 0.17177e-02_rb,0.13124e-02_rb,0.86431e-03_rb,0.38167e-03_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.30139e-02_rb,0.29672e-02_rb,0.27348e-02_rb,0.24509e-02_rb,0.21349e-02_rb, &\n        & 0.17760e-02_rb,0.13646e-02_rb,0.90496e-03_rb,0.40993e-03_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.25422e-02_rb,0.24347e-02_rb,0.22108e-02_rb,0.19505e-02_rb,0.16727e-02_rb, &\n        & 0.13714e-02_rb,0.10368e-02_rb,0.66936e-03_rb,0.31350e-03_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.26126e-02_rb,0.25184e-02_rb,0.22944e-02_rb,0.20307e-02_rb,0.17483e-02_rb, &\n        & 0.14377e-02_rb,0.10928e-02_rb,0.71181e-03_rb,0.33782e-03_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.26690e-02_rb,0.25901e-02_rb,0.23690e-02_rb,0.21043e-02_rb,0.18188e-02_rb, &\n        & 0.15016e-02_rb,0.11462e-02_rb,0.75188e-03_rb,0.35774e-03_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.27048e-02_rb,0.26504e-02_rb,0.24329e-02_rb,0.21704e-02_rb,0.18832e-02_rb, &\n        & 0.15599e-02_rb,0.11973e-02_rb,0.79054e-03_rb,0.37720e-03_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.27241e-02_rb,0.26964e-02_rb,0.24876e-02_rb,0.22289e-02_rb,0.19396e-02_rb, &\n        & 0.16131e-02_rb,0.12459e-02_rb,0.82843e-03_rb,0.39980e-03_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.22863e-02_rb,0.21916e-02_rb,0.19903e-02_rb,0.17560e-02_rb,0.15053e-02_rb, &\n        & 0.12361e-02_rb,0.93929e-03_rb,0.60469e-03_rb,0.28176e-03_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.23519e-02_rb,0.22705e-02_rb,0.20691e-02_rb,0.18315e-02_rb,0.15760e-02_rb, &\n        & 0.12985e-02_rb,0.99139e-03_rb,0.64462e-03_rb,0.30471e-03_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.23974e-02_rb,0.23352e-02_rb,0.21377e-02_rb,0.19000e-02_rb,0.16408e-02_rb, &\n        & 0.13574e-02_rb,0.10412e-02_rb,0.68214e-03_rb,0.32553e-03_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.24260e-02_rb,0.23879e-02_rb,0.21943e-02_rb,0.19602e-02_rb,0.16992e-02_rb, &\n        & 0.14109e-02_rb,0.10885e-02_rb,0.71852e-03_rb,0.34169e-03_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.24412e-02_rb,0.24274e-02_rb,0.22422e-02_rb,0.20116e-02_rb,0.17502e-02_rb, &\n        & 0.14591e-02_rb,0.11336e-02_rb,0.75474e-03_rb,0.36020e-03_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.20393e-02_rb,0.19603e-02_rb,0.17821e-02_rb,0.15739e-02_rb,0.13509e-02_rb, &\n        & 0.11133e-02_rb,0.84826e-03_rb,0.54289e-03_rb,0.23248e-03_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.20953e-02_rb,0.20307e-02_rb,0.18542e-02_rb,0.16433e-02_rb,0.14162e-02_rb, &\n        & 0.11712e-02_rb,0.89683e-03_rb,0.57958e-03_rb,0.25095e-03_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.21323e-02_rb,0.20881e-02_rb,0.19144e-02_rb,0.17046e-02_rb,0.14742e-02_rb, &\n        & 0.12241e-02_rb,0.94271e-03_rb,0.61480e-03_rb,0.26566e-03_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.21562e-02_rb,0.21324e-02_rb,0.19654e-02_rb,0.17578e-02_rb,0.15256e-02_rb, &\n        & 0.12715e-02_rb,0.98599e-03_rb,0.64941e-03_rb,0.28144e-03_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.21687e-02_rb,0.21674e-02_rb,0.20081e-02_rb,0.18029e-02_rb,0.15712e-02_rb, &\n        & 0.13148e-02_rb,0.10270e-02_rb,0.68370e-03_rb,0.29755e-03_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.10084e-01_rb,0.95278e-02_rb,0.88730e-02_rb,0.81189e-02_rb,0.71873e-02_rb, &\n        & 0.61505e-02_rb,0.50159e-02_rb,0.37383e-02_rb,0.30410e-02_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.10011e-01_rb,0.95195e-02_rb,0.89419e-02_rb,0.82272e-02_rb,0.73508e-02_rb, &\n        & 0.63699e-02_rb,0.52392e-02_rb,0.39784e-02_rb,0.34237e-02_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.99285e-02_rb,0.95060e-02_rb,0.90107e-02_rb,0.83435e-02_rb,0.75299e-02_rb, &\n        & 0.65814e-02_rb,0.54661e-02_rb,0.42490e-02_rb,0.38569e-02_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.98396e-02_rb,0.95039e-02_rb,0.90786e-02_rb,0.84657e-02_rb,0.77142e-02_rb, &\n        & 0.67908e-02_rb,0.57132e-02_rb,0.45510e-02_rb,0.43277e-02_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.97470e-02_rb,0.95073e-02_rb,0.91451e-02_rb,0.85961e-02_rb,0.78983e-02_rb, &\n        & 0.70134e-02_rb,0.59878e-02_rb,0.48898e-02_rb,0.48367e-02_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.10032e-01_rb,0.95001e-02_rb,0.88015e-02_rb,0.80012e-02_rb,0.70675e-02_rb, &\n        & 0.59994e-02_rb,0.48088e-02_rb,0.34803e-02_rb,0.24973e-02_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.99727e-02_rb,0.94952e-02_rb,0.88708e-02_rb,0.81052e-02_rb,0.72227e-02_rb, &\n        & 0.61975e-02_rb,0.50149e-02_rb,0.36876e-02_rb,0.28262e-02_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.99020e-02_rb,0.94876e-02_rb,0.89395e-02_rb,0.82200e-02_rb,0.73884e-02_rb, &\n        & 0.63917e-02_rb,0.52241e-02_rb,0.39189e-02_rb,0.31881e-02_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.98208e-02_rb,0.94907e-02_rb,0.90072e-02_rb,0.83409e-02_rb,0.75534e-02_rb, &\n        & 0.65848e-02_rb,0.54476e-02_rb,0.41701e-02_rb,0.35802e-02_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.97350e-02_rb,0.95036e-02_rb,0.90758e-02_rb,0.84664e-02_rb,0.77179e-02_rb, &\n        & 0.67885e-02_rb,0.56906e-02_rb,0.44399e-02_rb,0.40032e-02_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.99249e-02_rb,0.94002e-02_rb,0.86731e-02_rb,0.78226e-02_rb,0.68627e-02_rb, &\n        & 0.57870e-02_rb,0.45641e-02_rb,0.32036e-02_rb,0.20068e-02_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.98781e-02_rb,0.94039e-02_rb,0.87415e-02_rb,0.79225e-02_rb,0.70078e-02_rb, &\n        & 0.59682e-02_rb,0.47504e-02_rb,0.33906e-02_rb,0.22741e-02_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.98245e-02_rb,0.94056e-02_rb,0.88077e-02_rb,0.80290e-02_rb,0.71634e-02_rb, &\n        & 0.61455e-02_rb,0.49439e-02_rb,0.35923e-02_rb,0.25675e-02_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.97585e-02_rb,0.94181e-02_rb,0.88723e-02_rb,0.81452e-02_rb,0.73134e-02_rb, &\n        & 0.63196e-02_rb,0.51498e-02_rb,0.38082e-02_rb,0.28828e-02_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.96800e-02_rb,0.94346e-02_rb,0.89400e-02_rb,0.82650e-02_rb,0.74596e-02_rb, &\n        & 0.65093e-02_rb,0.53613e-02_rb,0.40378e-02_rb,0.32210e-02_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.97390e-02_rb,0.92223e-02_rb,0.84805e-02_rb,0.75962e-02_rb,0.66183e-02_rb, &\n        & 0.55421e-02_rb,0.43153e-02_rb,0.29439e-02_rb,0.16096e-02_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.97149e-02_rb,0.92440e-02_rb,0.85515e-02_rb,0.76965e-02_rb,0.67525e-02_rb, &\n        & 0.57037e-02_rb,0.44852e-02_rb,0.31152e-02_rb,0.18298e-02_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.96772e-02_rb,0.92607e-02_rb,0.86210e-02_rb,0.78004e-02_rb,0.68947e-02_rb, &\n        & 0.58626e-02_rb,0.46601e-02_rb,0.32973e-02_rb,0.20675e-02_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.96222e-02_rb,0.92823e-02_rb,0.86884e-02_rb,0.79077e-02_rb,0.70317e-02_rb, &\n        & 0.60213e-02_rb,0.48471e-02_rb,0.34874e-02_rb,0.23199e-02_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.95548e-02_rb,0.93032e-02_rb,0.87544e-02_rb,0.80177e-02_rb,0.71673e-02_rb, &\n        & 0.61924e-02_rb,0.50398e-02_rb,0.36845e-02_rb,0.25914e-02_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.94682e-02_rb,0.89654e-02_rb,0.82210e-02_rb,0.73222e-02_rb,0.63403e-02_rb, &\n        & 0.52735e-02_rb,0.40692e-02_rb,0.27114e-02_rb,0.12929e-02_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.94609e-02_rb,0.90053e-02_rb,0.83016e-02_rb,0.74278e-02_rb,0.64685e-02_rb, &\n        & 0.54213e-02_rb,0.42231e-02_rb,0.28638e-02_rb,0.14728e-02_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.94353e-02_rb,0.90391e-02_rb,0.83802e-02_rb,0.75305e-02_rb,0.66027e-02_rb, &\n        & 0.55646e-02_rb,0.43790e-02_rb,0.30279e-02_rb,0.16663e-02_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.93989e-02_rb,0.90684e-02_rb,0.84481e-02_rb,0.76404e-02_rb,0.67294e-02_rb, &\n        & 0.57082e-02_rb,0.45495e-02_rb,0.31980e-02_rb,0.18711e-02_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.93472e-02_rb,0.90926e-02_rb,0.85136e-02_rb,0.77442e-02_rb,0.68542e-02_rb, &\n        & 0.58646e-02_rb,0.47259e-02_rb,0.33701e-02_rb,0.20921e-02_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.90687e-02_rb,0.86083e-02_rb,0.78842e-02_rb,0.69920e-02_rb,0.60171e-02_rb, &\n        & 0.49784e-02_rb,0.38163e-02_rb,0.24892e-02_rb,0.10375e-02_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.90845e-02_rb,0.86742e-02_rb,0.79759e-02_rb,0.71037e-02_rb,0.61494e-02_rb, &\n        & 0.51176e-02_rb,0.39577e-02_rb,0.26285e-02_rb,0.11848e-02_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.90836e-02_rb,0.87225e-02_rb,0.80580e-02_rb,0.72119e-02_rb,0.62799e-02_rb, &\n        & 0.52546e-02_rb,0.41006e-02_rb,0.27750e-02_rb,0.13422e-02_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.90655e-02_rb,0.87611e-02_rb,0.81305e-02_rb,0.73221e-02_rb,0.64054e-02_rb, &\n        & 0.53892e-02_rb,0.42503e-02_rb,0.29301e-02_rb,0.15078e-02_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.90286e-02_rb,0.87944e-02_rb,0.82022e-02_rb,0.74247e-02_rb,0.65248e-02_rb, &\n        & 0.55305e-02_rb,0.44113e-02_rb,0.30838e-02_rb,0.16859e-02_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.85850e-02_rb,0.81350e-02_rb,0.74326e-02_rb,0.65794e-02_rb,0.56482e-02_rb, &\n        & 0.46582e-02_rb,0.35544e-02_rb,0.22844e-02_rb,0.80765e-03_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.86250e-02_rb,0.82179e-02_rb,0.75359e-02_rb,0.67022e-02_rb,0.57899e-02_rb, &\n        & 0.47962e-02_rb,0.36869e-02_rb,0.24122e-02_rb,0.92682e-03_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.86440e-02_rb,0.82839e-02_rb,0.76315e-02_rb,0.68246e-02_rb,0.59218e-02_rb, &\n        & 0.49298e-02_rb,0.38219e-02_rb,0.25431e-02_rb,0.10538e-02_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.86410e-02_rb,0.83371e-02_rb,0.77195e-02_rb,0.69421e-02_rb,0.60483e-02_rb, &\n        & 0.50620e-02_rb,0.39587e-02_rb,0.26818e-02_rb,0.11890e-02_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.86213e-02_rb,0.83816e-02_rb,0.78035e-02_rb,0.70537e-02_rb,0.61695e-02_rb, &\n        & 0.51947e-02_rb,0.41038e-02_rb,0.28206e-02_rb,0.13358e-02_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.80690e-02_rb,0.76260e-02_rb,0.69398e-02_rb,0.61270e-02_rb,0.52372e-02_rb, &\n        & 0.42965e-02_rb,0.32695e-02_rb,0.20922e-02_rb,0.69791e-03_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.81346e-02_rb,0.77325e-02_rb,0.70609e-02_rb,0.62554e-02_rb,0.53744e-02_rb, &\n        & 0.44362e-02_rb,0.34019e-02_rb,0.22104e-02_rb,0.78609e-03_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.81749e-02_rb,0.78188e-02_rb,0.71688e-02_rb,0.63791e-02_rb,0.55086e-02_rb, &\n        & 0.45702e-02_rb,0.35360e-02_rb,0.23302e-02_rb,0.88068e-03_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.81959e-02_rb,0.78839e-02_rb,0.72650e-02_rb,0.64997e-02_rb,0.56387e-02_rb, &\n        & 0.47059e-02_rb,0.36681e-02_rb,0.24532e-02_rb,0.97840e-03_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.81937e-02_rb,0.79411e-02_rb,0.73546e-02_rb,0.66134e-02_rb,0.57649e-02_rb, &\n        & 0.48383e-02_rb,0.38022e-02_rb,0.25773e-02_rb,0.10847e-02_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.75182e-02_rb,0.70907e-02_rb,0.64287e-02_rb,0.56605e-02_rb,0.48216e-02_rb, &\n        & 0.39323e-02_rb,0.29776e-02_rb,0.18987e-02_rb,0.67472e-03_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.76076e-02_rb,0.72195e-02_rb,0.65653e-02_rb,0.58009e-02_rb,0.49640e-02_rb, &\n        & 0.40692e-02_rb,0.31049e-02_rb,0.20098e-02_rb,0.74914e-03_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.76735e-02_rb,0.73227e-02_rb,0.66862e-02_rb,0.59346e-02_rb,0.51012e-02_rb, &\n        & 0.42015e-02_rb,0.32328e-02_rb,0.21222e-02_rb,0.83367e-03_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.77132e-02_rb,0.74045e-02_rb,0.67969e-02_rb,0.60620e-02_rb,0.52309e-02_rb, &\n        & 0.43347e-02_rb,0.33599e-02_rb,0.22355e-02_rb,0.91964e-03_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.77286e-02_rb,0.74752e-02_rb,0.68965e-02_rb,0.61793e-02_rb,0.53584e-02_rb, &\n        & 0.44621e-02_rb,0.34884e-02_rb,0.23497e-02_rb,0.10114e-02_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.70149e-02_rb,0.65825e-02_rb,0.59329e-02_rb,0.52017e-02_rb,0.44219e-02_rb, &\n        & 0.35899e-02_rb,0.27069e-02_rb,0.17187e-02_rb,0.74519e-03_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.71248e-02_rb,0.67269e-02_rb,0.60810e-02_rb,0.53515e-02_rb,0.45670e-02_rb, &\n        & 0.37282e-02_rb,0.28313e-02_rb,0.18204e-02_rb,0.83494e-03_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.72044e-02_rb,0.68394e-02_rb,0.62076e-02_rb,0.54929e-02_rb,0.47097e-02_rb, &\n        & 0.38613e-02_rb,0.29540e-02_rb,0.19235e-02_rb,0.93279e-03_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.72597e-02_rb,0.69309e-02_rb,0.63267e-02_rb,0.56269e-02_rb,0.48423e-02_rb, &\n        & 0.39913e-02_rb,0.30764e-02_rb,0.20273e-02_rb,0.10348e-02_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.72955e-02_rb,0.70104e-02_rb,0.64378e-02_rb,0.57479e-02_rb,0.49695e-02_rb, &\n        & 0.41180e-02_rb,0.31960e-02_rb,0.21324e-02_rb,0.11387e-02_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.65628e-02_rb,0.61735e-02_rb,0.55551e-02_rb,0.48677e-02_rb,0.41265e-02_rb, &\n        & 0.33334e-02_rb,0.25028e-02_rb,0.15938e-02_rb,0.74406e-03_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.66786e-02_rb,0.63151e-02_rb,0.57025e-02_rb,0.50172e-02_rb,0.42702e-02_rb, &\n        & 0.34674e-02_rb,0.26229e-02_rb,0.16875e-02_rb,0.82711e-03_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.67664e-02_rb,0.64350e-02_rb,0.58347e-02_rb,0.51562e-02_rb,0.44059e-02_rb, &\n        & 0.35945e-02_rb,0.27422e-02_rb,0.17822e-02_rb,0.92379e-03_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.68381e-02_rb,0.65357e-02_rb,0.59597e-02_rb,0.52850e-02_rb,0.45292e-02_rb, &\n        & 0.37195e-02_rb,0.28585e-02_rb,0.18773e-02_rb,0.10214e-02_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.68910e-02_rb,0.66274e-02_rb,0.60702e-02_rb,0.54014e-02_rb,0.46503e-02_rb, &\n        & 0.38396e-02_rb,0.29707e-02_rb,0.19733e-02_rb,0.11179e-02_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.60794e-02_rb,0.57316e-02_rb,0.51563e-02_rb,0.45236e-02_rb,0.38371e-02_rb, &\n        & 0.31013e-02_rb,0.23239e-02_rb,0.14745e-02_rb,0.70212e-03_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.62026e-02_rb,0.58782e-02_rb,0.53110e-02_rb,0.46778e-02_rb,0.39838e-02_rb, &\n        & 0.32334e-02_rb,0.24368e-02_rb,0.15615e-02_rb,0.77146e-03_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.63087e-02_rb,0.60102e-02_rb,0.54544e-02_rb,0.48220e-02_rb,0.41191e-02_rb, &\n        & 0.33562e-02_rb,0.25462e-02_rb,0.16493e-02_rb,0.85116e-03_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.63948e-02_rb,0.61265e-02_rb,0.55863e-02_rb,0.49541e-02_rb,0.42453e-02_rb, &\n        & 0.34753e-02_rb,0.26508e-02_rb,0.17372e-02_rb,0.93862e-03_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.64607e-02_rb,0.62309e-02_rb,0.57052e-02_rb,0.50757e-02_rb,0.43660e-02_rb, &\n        & 0.35907e-02_rb,0.27548e-02_rb,0.18249e-02_rb,0.10221e-02_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.55937e-02_rb,0.52793e-02_rb,0.47517e-02_rb,0.41692e-02_rb,0.35394e-02_rb, &\n        & 0.28625e-02_rb,0.21454e-02_rb,0.13668e-02_rb,0.61956e-03_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.57319e-02_rb,0.54374e-02_rb,0.49129e-02_rb,0.43258e-02_rb,0.36843e-02_rb, &\n        & 0.29907e-02_rb,0.22551e-02_rb,0.14474e-02_rb,0.68007e-03_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.58515e-02_rb,0.55788e-02_rb,0.50622e-02_rb,0.44734e-02_rb,0.38194e-02_rb, &\n        & 0.31146e-02_rb,0.23600e-02_rb,0.15267e-02_rb,0.75016e-03_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.59483e-02_rb,0.57068e-02_rb,0.51995e-02_rb,0.46068e-02_rb,0.39501e-02_rb, &\n        & 0.32357e-02_rb,0.24610e-02_rb,0.16061e-02_rb,0.82038e-03_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.60233e-02_rb,0.58195e-02_rb,0.53236e-02_rb,0.47349e-02_rb,0.40732e-02_rb, &\n        & 0.33509e-02_rb,0.25596e-02_rb,0.16868e-02_rb,0.89122e-03_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.19771e-01_rb,0.18370e-01_rb,0.17356e-01_rb,0.16079e-01_rb,0.14680e-01_rb, &\n        & 0.13282e-01_rb,0.11980e-01_rb,0.11582e-01_rb,0.12985e-01_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.19636e-01_rb,0.18337e-01_rb,0.17425e-01_rb,0.16276e-01_rb,0.15036e-01_rb, &\n        & 0.13800e-01_rb,0.12788e-01_rb,0.12799e-01_rb,0.14491e-01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.19487e-01_rb,0.18291e-01_rb,0.17516e-01_rb,0.16543e-01_rb,0.15458e-01_rb, &\n        & 0.14398e-01_rb,0.13717e-01_rb,0.14121e-01_rb,0.16094e-01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.19329e-01_rb,0.18244e-01_rb,0.17665e-01_rb,0.16858e-01_rb,0.15921e-01_rb, &\n        & 0.15082e-01_rb,0.14738e-01_rb,0.15534e-01_rb,0.17796e-01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.19162e-01_rb,0.18208e-01_rb,0.17862e-01_rb,0.17203e-01_rb,0.16407e-01_rb, &\n        & 0.15804e-01_rb,0.15831e-01_rb,0.17016e-01_rb,0.19554e-01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.20491e-01_rb,0.19041e-01_rb,0.17931e-01_rb,0.16490e-01_rb,0.14871e-01_rb, &\n        & 0.13204e-01_rb,0.11551e-01_rb,0.10493e-01_rb,0.11370e-01_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.20351e-01_rb,0.19021e-01_rb,0.18003e-01_rb,0.16688e-01_rb,0.15207e-01_rb, &\n        & 0.13674e-01_rb,0.12228e-01_rb,0.11542e-01_rb,0.12722e-01_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.20205e-01_rb,0.18987e-01_rb,0.18097e-01_rb,0.16946e-01_rb,0.15590e-01_rb, &\n        & 0.14204e-01_rb,0.13003e-01_rb,0.12703e-01_rb,0.14170e-01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.20054e-01_rb,0.18946e-01_rb,0.18241e-01_rb,0.17244e-01_rb,0.16012e-01_rb, &\n        & 0.14800e-01_rb,0.13862e-01_rb,0.13953e-01_rb,0.15702e-01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.19890e-01_rb,0.18914e-01_rb,0.18431e-01_rb,0.17568e-01_rb,0.16464e-01_rb, &\n        & 0.15445e-01_rb,0.14813e-01_rb,0.15302e-01_rb,0.17318e-01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.21143e-01_rb,0.19662e-01_rb,0.18419e-01_rb,0.16811e-01_rb,0.15005e-01_rb, &\n        & 0.13075e-01_rb,0.11094e-01_rb,0.93893e-02_rb,0.95682e-02_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.21021e-01_rb,0.19658e-01_rb,0.18498e-01_rb,0.17007e-01_rb,0.15312e-01_rb, &\n        & 0.13491e-01_rb,0.11661e-01_rb,0.10256e-01_rb,0.10742e-01_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.20887e-01_rb,0.19635e-01_rb,0.18594e-01_rb,0.17251e-01_rb,0.15669e-01_rb, &\n        & 0.13959e-01_rb,0.12304e-01_rb,0.11227e-01_rb,0.12012e-01_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.20742e-01_rb,0.19603e-01_rb,0.18727e-01_rb,0.17530e-01_rb,0.16058e-01_rb, &\n        & 0.14485e-01_rb,0.13015e-01_rb,0.12294e-01_rb,0.13375e-01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.20582e-01_rb,0.19578e-01_rb,0.18903e-01_rb,0.17831e-01_rb,0.16483e-01_rb, &\n        & 0.15047e-01_rb,0.13818e-01_rb,0.13471e-01_rb,0.14836e-01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.21726e-01_rb,0.20199e-01_rb,0.18812e-01_rb,0.17047e-01_rb,0.15080e-01_rb, &\n        & 0.12938e-01_rb,0.10693e-01_rb,0.84650e-02_rb,0.79270e-02_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.21624e-01_rb,0.20213e-01_rb,0.18897e-01_rb,0.17238e-01_rb,0.15368e-01_rb, &\n        & 0.13326e-01_rb,0.11175e-01_rb,0.91656e-02_rb,0.89409e-02_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.21502e-01_rb,0.20207e-01_rb,0.18990e-01_rb,0.17468e-01_rb,0.15708e-01_rb, &\n        & 0.13755e-01_rb,0.11721e-01_rb,0.99561e-02_rb,0.10044e-01_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.21364e-01_rb,0.20186e-01_rb,0.19114e-01_rb,0.17747e-01_rb,0.16075e-01_rb, &\n        & 0.14230e-01_rb,0.12327e-01_rb,0.10844e-01_rb,0.11238e-01_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.21208e-01_rb,0.20165e-01_rb,0.19280e-01_rb,0.18035e-01_rb,0.16477e-01_rb, &\n        & 0.14734e-01_rb,0.13004e-01_rb,0.11837e-01_rb,0.12527e-01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.22212e-01_rb,0.20643e-01_rb,0.19101e-01_rb,0.17193e-01_rb,0.15094e-01_rb, &\n        & 0.12790e-01_rb,0.10344e-01_rb,0.77661e-02_rb,0.65292e-02_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.22131e-01_rb,0.20679e-01_rb,0.19192e-01_rb,0.17388e-01_rb,0.15373e-01_rb, &\n        & 0.13156e-01_rb,0.10779e-01_rb,0.83326e-02_rb,0.74004e-02_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.22024e-01_rb,0.20689e-01_rb,0.19289e-01_rb,0.17614e-01_rb,0.15701e-01_rb, &\n        & 0.13560e-01_rb,0.11259e-01_rb,0.89716e-02_rb,0.83509e-02_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.21891e-01_rb,0.20674e-01_rb,0.19419e-01_rb,0.17880e-01_rb,0.16055e-01_rb, &\n        & 0.14002e-01_rb,0.11784e-01_rb,0.96942e-02_rb,0.93863e-02_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.21733e-01_rb,0.20659e-01_rb,0.19581e-01_rb,0.18166e-01_rb,0.16436e-01_rb, &\n        & 0.14467e-01_rb,0.12356e-01_rb,0.10508e-01_rb,0.10499e-01_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.22561e-01_rb,0.20963e-01_rb,0.19278e-01_rb,0.17248e-01_rb,0.15027e-01_rb, &\n        & 0.12605e-01_rb,0.99913e-02_rb,0.71998e-02_rb,0.53191e-02_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.22505e-01_rb,0.21027e-01_rb,0.19391e-01_rb,0.17451e-01_rb,0.15296e-01_rb, &\n        & 0.12947e-01_rb,0.10394e-01_rb,0.76719e-02_rb,0.60628e-02_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.22407e-01_rb,0.21057e-01_rb,0.19505e-01_rb,0.17673e-01_rb,0.15617e-01_rb, &\n        & 0.13330e-01_rb,0.10834e-01_rb,0.82004e-02_rb,0.68698e-02_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.22287e-01_rb,0.21061e-01_rb,0.19636e-01_rb,0.17933e-01_rb,0.15963e-01_rb, &\n        & 0.13742e-01_rb,0.11312e-01_rb,0.87854e-02_rb,0.77488e-02_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.22148e-01_rb,0.21053e-01_rb,0.19794e-01_rb,0.18212e-01_rb,0.16329e-01_rb, &\n        & 0.14180e-01_rb,0.11816e-01_rb,0.94417e-02_rb,0.86993e-02_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.22745e-01_rb,0.21135e-01_rb,0.19327e-01_rb,0.17197e-01_rb,0.14893e-01_rb, &\n        & 0.12374e-01_rb,0.96536e-02_rb,0.67256e-02_rb,0.43127e-02_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.22707e-01_rb,0.21230e-01_rb,0.19474e-01_rb,0.17423e-01_rb,0.15162e-01_rb, &\n        & 0.12700e-01_rb,0.10030e-01_rb,0.71370e-02_rb,0.49389e-02_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.22632e-01_rb,0.21281e-01_rb,0.19608e-01_rb,0.17649e-01_rb,0.15471e-01_rb, &\n        & 0.13070e-01_rb,0.10436e-01_rb,0.75822e-02_rb,0.56174e-02_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.22537e-01_rb,0.21307e-01_rb,0.19744e-01_rb,0.17903e-01_rb,0.15813e-01_rb, &\n        & 0.13461e-01_rb,0.10872e-01_rb,0.80682e-02_rb,0.63562e-02_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.22420e-01_rb,0.21314e-01_rb,0.19904e-01_rb,0.18182e-01_rb,0.16160e-01_rb, &\n        & 0.13874e-01_rb,0.11331e-01_rb,0.86088e-02_rb,0.71565e-02_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.22742e-01_rb,0.21141e-01_rb,0.19244e-01_rb,0.17036e-01_rb,0.14667e-01_rb, &\n        & 0.12093e-01_rb,0.93194e-02_rb,0.63016e-02_rb,0.33604e-02_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.22738e-01_rb,0.21267e-01_rb,0.19420e-01_rb,0.17289e-01_rb,0.14951e-01_rb, &\n        & 0.12414e-01_rb,0.96717e-02_rb,0.66654e-02_rb,0.38903e-02_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.22699e-01_rb,0.21347e-01_rb,0.19574e-01_rb,0.17525e-01_rb,0.15260e-01_rb, &\n        & 0.12775e-01_rb,0.10048e-01_rb,0.70608e-02_rb,0.44626e-02_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.22634e-01_rb,0.21402e-01_rb,0.19725e-01_rb,0.17775e-01_rb,0.15596e-01_rb, &\n        & 0.13150e-01_rb,0.10455e-01_rb,0.74847e-02_rb,0.50904e-02_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.22550e-01_rb,0.21432e-01_rb,0.19888e-01_rb,0.18059e-01_rb,0.15936e-01_rb, &\n        & 0.13540e-01_rb,0.10879e-01_rb,0.79454e-02_rb,0.57754e-02_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.22571e-01_rb,0.20980e-01_rb,0.19017e-01_rb,0.16764e-01_rb,0.14350e-01_rb, &\n        & 0.11743e-01_rb,0.89583e-02_rb,0.59107e-02_rb,0.27753e-02_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.22607e-01_rb,0.21147e-01_rb,0.19231e-01_rb,0.17040e-01_rb,0.14648e-01_rb, &\n        & 0.12069e-01_rb,0.92988e-02_rb,0.62425e-02_rb,0.31527e-02_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.22609e-01_rb,0.21268e-01_rb,0.19413e-01_rb,0.17284e-01_rb,0.14954e-01_rb, &\n        & 0.12424e-01_rb,0.96568e-02_rb,0.66010e-02_rb,0.35387e-02_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.22589e-01_rb,0.21355e-01_rb,0.19582e-01_rb,0.17535e-01_rb,0.15285e-01_rb, &\n        & 0.12790e-01_rb,0.10038e-01_rb,0.69765e-02_rb,0.39766e-02_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.22546e-01_rb,0.21413e-01_rb,0.19758e-01_rb,0.17821e-01_rb,0.15622e-01_rb, &\n        & 0.13166e-01_rb,0.10432e-01_rb,0.73821e-02_rb,0.44450e-02_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.22137e-01_rb,0.20618e-01_rb,0.18650e-01_rb,0.16403e-01_rb,0.13972e-01_rb, &\n        & 0.11364e-01_rb,0.85848e-02_rb,0.55632e-02_rb,0.31593e-02_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.22231e-01_rb,0.20835e-01_rb,0.18905e-01_rb,0.16706e-01_rb,0.14289e-01_rb, &\n        & 0.11695e-01_rb,0.89167e-02_rb,0.58739e-02_rb,0.35325e-02_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.22295e-01_rb,0.21010e-01_rb,0.19131e-01_rb,0.16972e-01_rb,0.14595e-01_rb, &\n        & 0.12040e-01_rb,0.92665e-02_rb,0.62059e-02_rb,0.39315e-02_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.22331e-01_rb,0.21144e-01_rb,0.19334e-01_rb,0.17233e-01_rb,0.14916e-01_rb, &\n        & 0.12396e-01_rb,0.96355e-02_rb,0.65507e-02_rb,0.43409e-02_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.22332e-01_rb,0.21248e-01_rb,0.19527e-01_rb,0.17517e-01_rb,0.15252e-01_rb, &\n        & 0.12765e-01_rb,0.10012e-01_rb,0.69176e-02_rb,0.47851e-02_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.21611e-01_rb,0.20177e-01_rb,0.18220e-01_rb,0.16014e-01_rb,0.13625e-01_rb, &\n        & 0.11072e-01_rb,0.83376e-02_rb,0.53526e-02_rb,0.32967e-02_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.21754e-01_rb,0.20431e-01_rb,0.18507e-01_rb,0.16333e-01_rb,0.13954e-01_rb, &\n        & 0.11415e-01_rb,0.86702e-02_rb,0.56558e-02_rb,0.36779e-02_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.21862e-01_rb,0.20634e-01_rb,0.18769e-01_rb,0.16624e-01_rb,0.14280e-01_rb, &\n        & 0.11762e-01_rb,0.90145e-02_rb,0.59759e-02_rb,0.40891e-02_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.21929e-01_rb,0.20796e-01_rb,0.18995e-01_rb,0.16914e-01_rb,0.14621e-01_rb, &\n        & 0.12122e-01_rb,0.93752e-02_rb,0.63026e-02_rb,0.45492e-02_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.21956e-01_rb,0.20925e-01_rb,0.19222e-01_rb,0.17218e-01_rb,0.14974e-01_rb, &\n        & 0.12492e-01_rb,0.97406e-02_rb,0.66508e-02_rb,0.50324e-02_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.20989e-01_rb,0.19649e-01_rb,0.17719e-01_rb,0.15554e-01_rb,0.13207e-01_rb, &\n        & 0.10709e-01_rb,0.80423e-02_rb,0.51308e-02_rb,0.32152e-02_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.21187e-01_rb,0.19941e-01_rb,0.18042e-01_rb,0.15892e-01_rb,0.13549e-01_rb, &\n        & 0.11055e-01_rb,0.83766e-02_rb,0.54250e-02_rb,0.35851e-02_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.21336e-01_rb,0.20173e-01_rb,0.18327e-01_rb,0.16203e-01_rb,0.13894e-01_rb, &\n        & 0.11411e-01_rb,0.87228e-02_rb,0.57329e-02_rb,0.40006e-02_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.21440e-01_rb,0.20364e-01_rb,0.18584e-01_rb,0.16516e-01_rb,0.14243e-01_rb, &\n        & 0.11781e-01_rb,0.90825e-02_rb,0.60483e-02_rb,0.44327e-02_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.21509e-01_rb,0.20531e-01_rb,0.18841e-01_rb,0.16838e-01_rb,0.14607e-01_rb, &\n        & 0.12155e-01_rb,0.94413e-02_rb,0.63798e-02_rb,0.48628e-02_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.20300e-01_rb,0.19036e-01_rb,0.17142e-01_rb,0.15033e-01_rb,0.12745e-01_rb, &\n        & 0.10318e-01_rb,0.77330e-02_rb,0.48977e-02_rb,0.29186e-02_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.20539e-01_rb,0.19361e-01_rb,0.17504e-01_rb,0.15398e-01_rb,0.13114e-01_rb, &\n        & 0.10679e-01_rb,0.80651e-02_rb,0.51844e-02_rb,0.32743e-02_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.20734e-01_rb,0.19633e-01_rb,0.17821e-01_rb,0.15739e-01_rb,0.13481e-01_rb, &\n        & 0.11044e-01_rb,0.84099e-02_rb,0.54812e-02_rb,0.36601e-02_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.20892e-01_rb,0.19871e-01_rb,0.18120e-01_rb,0.16090e-01_rb,0.13847e-01_rb, &\n        & 0.11415e-01_rb,0.87615e-02_rb,0.57863e-02_rb,0.40403e-02_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.21016e-01_rb,0.20092e-01_rb,0.18420e-01_rb,0.16433e-01_rb,0.14220e-01_rb, &\n        & 0.11787e-01_rb,0.91177e-02_rb,0.61020e-02_rb,0.44775e-02_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.32077e-01_rb,0.29717e-01_rb,0.27957e-01_rb,0.27088e-01_rb,0.26148e-01_rb, &\n        & 0.25463e-01_rb,0.27887e-01_rb,0.32409e-01_rb,0.37623e-01_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.31656e-01_rb,0.29512e-01_rb,0.28047e-01_rb,0.27317e-01_rb,0.26667e-01_rb, &\n        & 0.26788e-01_rb,0.30344e-01_rb,0.35248e-01_rb,0.40533e-01_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.31222e-01_rb,0.29398e-01_rb,0.28183e-01_rb,0.27633e-01_rb,0.27598e-01_rb, &\n        & 0.28788e-01_rb,0.33344e-01_rb,0.38694e-01_rb,0.44458e-01_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.30838e-01_rb,0.29185e-01_rb,0.28219e-01_rb,0.28269e-01_rb,0.28900e-01_rb, &\n        & 0.31215e-01_rb,0.36765e-01_rb,0.42659e-01_rb,0.48710e-01_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.30476e-01_rb,0.28982e-01_rb,0.28435e-01_rb,0.29011e-01_rb,0.30822e-01_rb, &\n        & 0.34422e-01_rb,0.40770e-01_rb,0.47309e-01_rb,0.54027e-01_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.34215e-01_rb,0.31859e-01_rb,0.30015e-01_rb,0.28551e-01_rb,0.26684e-01_rb, &\n        & 0.25243e-01_rb,0.25874e-01_rb,0.29803e-01_rb,0.34327e-01_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.33819e-01_rb,0.31701e-01_rb,0.30099e-01_rb,0.28712e-01_rb,0.27156e-01_rb, &\n        & 0.26446e-01_rb,0.28380e-01_rb,0.32886e-01_rb,0.37685e-01_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.33393e-01_rb,0.31477e-01_rb,0.30146e-01_rb,0.28931e-01_rb,0.28112e-01_rb, &\n        & 0.28308e-01_rb,0.31383e-01_rb,0.36360e-01_rb,0.41605e-01_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.33012e-01_rb,0.31222e-01_rb,0.30110e-01_rb,0.29460e-01_rb,0.29343e-01_rb, &\n        & 0.30463e-01_rb,0.34829e-01_rb,0.40350e-01_rb,0.46115e-01_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.32618e-01_rb,0.30977e-01_rb,0.30249e-01_rb,0.30140e-01_rb,0.31029e-01_rb, &\n        & 0.33086e-01_rb,0.38518e-01_rb,0.44611e-01_rb,0.51063e-01_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.36609e-01_rb,0.34016e-01_rb,0.32008e-01_rb,0.30013e-01_rb,0.27528e-01_rb, &\n        & 0.25143e-01_rb,0.24092e-01_rb,0.26746e-01_rb,0.30590e-01_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.36187e-01_rb,0.33816e-01_rb,0.32068e-01_rb,0.30121e-01_rb,0.27943e-01_rb, &\n        & 0.26137e-01_rb,0.26190e-01_rb,0.29769e-01_rb,0.34003e-01_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.35755e-01_rb,0.33555e-01_rb,0.32022e-01_rb,0.30354e-01_rb,0.28696e-01_rb, &\n        & 0.27732e-01_rb,0.28744e-01_rb,0.33056e-01_rb,0.37754e-01_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.35304e-01_rb,0.33277e-01_rb,0.31985e-01_rb,0.30856e-01_rb,0.29759e-01_rb, &\n        & 0.29582e-01_rb,0.31793e-01_rb,0.36769e-01_rb,0.41965e-01_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.34895e-01_rb,0.32987e-01_rb,0.32094e-01_rb,0.31490e-01_rb,0.31100e-01_rb, &\n        & 0.31735e-01_rb,0.35104e-01_rb,0.40646e-01_rb,0.46442e-01_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.38977e-01_rb,0.36120e-01_rb,0.33897e-01_rb,0.31410e-01_rb,0.28525e-01_rb, &\n        & 0.25373e-01_rb,0.22918e-01_rb,0.23596e-01_rb,0.26905e-01_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.38508e-01_rb,0.35924e-01_rb,0.33917e-01_rb,0.31530e-01_rb,0.28933e-01_rb, &\n        & 0.26161e-01_rb,0.24652e-01_rb,0.26430e-01_rb,0.30108e-01_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.38014e-01_rb,0.35658e-01_rb,0.33872e-01_rb,0.31757e-01_rb,0.29547e-01_rb, &\n        & 0.27436e-01_rb,0.26616e-01_rb,0.29450e-01_rb,0.33541e-01_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.37555e-01_rb,0.35363e-01_rb,0.33895e-01_rb,0.32125e-01_rb,0.30540e-01_rb, &\n        & 0.28878e-01_rb,0.28956e-01_rb,0.32793e-01_rb,0.37351e-01_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.37151e-01_rb,0.35088e-01_rb,0.33984e-01_rb,0.32788e-01_rb,0.31573e-01_rb, &\n        & 0.30633e-01_rb,0.31627e-01_rb,0.36308e-01_rb,0.41371e-01_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.41153e-01_rb,0.38034e-01_rb,0.35706e-01_rb,0.32805e-01_rb,0.29387e-01_rb, &\n        & 0.25927e-01_rb,0.22231e-01_rb,0.20561e-01_rb,0.23186e-01_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.40611e-01_rb,0.37835e-01_rb,0.35759e-01_rb,0.32923e-01_rb,0.29781e-01_rb, &\n        & 0.26577e-01_rb,0.23565e-01_rb,0.23003e-01_rb,0.26110e-01_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.40174e-01_rb,0.37589e-01_rb,0.35747e-01_rb,0.33131e-01_rb,0.30334e-01_rb, &\n        & 0.27648e-01_rb,0.25145e-01_rb,0.25696e-01_rb,0.29208e-01_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.39802e-01_rb,0.37389e-01_rb,0.35760e-01_rb,0.33447e-01_rb,0.31294e-01_rb, &\n        & 0.28785e-01_rb,0.27005e-01_rb,0.28729e-01_rb,0.32665e-01_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.39471e-01_rb,0.37195e-01_rb,0.35872e-01_rb,0.34084e-01_rb,0.32227e-01_rb, &\n        & 0.30087e-01_rb,0.29177e-01_rb,0.32029e-01_rb,0.36449e-01_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.43370e-01_rb,0.39997e-01_rb,0.37440e-01_rb,0.34118e-01_rb,0.30345e-01_rb, &\n        & 0.26246e-01_rb,0.21955e-01_rb,0.18231e-01_rb,0.19573e-01_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.42801e-01_rb,0.39763e-01_rb,0.37480e-01_rb,0.34252e-01_rb,0.30723e-01_rb, &\n        & 0.26892e-01_rb,0.22943e-01_rb,0.20080e-01_rb,0.22108e-01_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.42453e-01_rb,0.39592e-01_rb,0.37449e-01_rb,0.34486e-01_rb,0.31160e-01_rb, &\n        & 0.27853e-01_rb,0.24129e-01_rb,0.22254e-01_rb,0.24945e-01_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.42151e-01_rb,0.39446e-01_rb,0.37500e-01_rb,0.34777e-01_rb,0.31970e-01_rb, &\n        & 0.28872e-01_rb,0.25539e-01_rb,0.24809e-01_rb,0.28086e-01_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.41833e-01_rb,0.39344e-01_rb,0.37631e-01_rb,0.35392e-01_rb,0.32810e-01_rb, &\n        & 0.29983e-01_rb,0.27309e-01_rb,0.27744e-01_rb,0.31535e-01_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.45445e-01_rb,0.41961e-01_rb,0.39238e-01_rb,0.35426e-01_rb,0.31192e-01_rb, &\n        & 0.26649e-01_rb,0.21695e-01_rb,0.16623e-01_rb,0.16293e-01_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.45078e-01_rb,0.41797e-01_rb,0.39225e-01_rb,0.35507e-01_rb,0.31562e-01_rb, &\n        & 0.27229e-01_rb,0.22532e-01_rb,0.18019e-01_rb,0.18534e-01_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.44870e-01_rb,0.41785e-01_rb,0.39209e-01_rb,0.35749e-01_rb,0.31958e-01_rb, &\n        & 0.27976e-01_rb,0.23572e-01_rb,0.19783e-01_rb,0.21105e-01_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.44638e-01_rb,0.41726e-01_rb,0.39301e-01_rb,0.35989e-01_rb,0.32614e-01_rb, &\n        & 0.28887e-01_rb,0.24743e-01_rb,0.21842e-01_rb,0.23947e-01_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.44319e-01_rb,0.41703e-01_rb,0.39403e-01_rb,0.36491e-01_rb,0.33461e-01_rb, &\n        & 0.29864e-01_rb,0.26133e-01_rb,0.24238e-01_rb,0.27063e-01_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.47338e-01_rb,0.43694e-01_rb,0.40795e-01_rb,0.36657e-01_rb,0.31991e-01_rb, &\n        & 0.26976e-01_rb,0.21436e-01_rb,0.15589e-01_rb,0.13371e-01_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.47172e-01_rb,0.43681e-01_rb,0.40850e-01_rb,0.36728e-01_rb,0.32341e-01_rb, &\n        & 0.27474e-01_rb,0.22184e-01_rb,0.16691e-01_rb,0.15337e-01_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.47077e-01_rb,0.43885e-01_rb,0.40965e-01_rb,0.37016e-01_rb,0.32654e-01_rb, &\n        & 0.28038e-01_rb,0.23084e-01_rb,0.18052e-01_rb,0.17670e-01_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.46877e-01_rb,0.43984e-01_rb,0.41138e-01_rb,0.37264e-01_rb,0.33142e-01_rb, &\n        & 0.28868e-01_rb,0.24126e-01_rb,0.19696e-01_rb,0.20174e-01_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.46627e-01_rb,0.44042e-01_rb,0.41218e-01_rb,0.37582e-01_rb,0.33931e-01_rb, &\n        & 0.29818e-01_rb,0.25367e-01_rb,0.21590e-01_rb,0.22899e-01_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.49069e-01_rb,0.45230e-01_rb,0.41949e-01_rb,0.37482e-01_rb,0.32547e-01_rb, &\n        & 0.27221e-01_rb,0.21190e-01_rb,0.14771e-01_rb,0.82104e-02_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.48982e-01_rb,0.45358e-01_rb,0.42113e-01_rb,0.37642e-01_rb,0.32970e-01_rb, &\n        & 0.27650e-01_rb,0.21850e-01_rb,0.15738e-01_rb,0.94586e-02_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.48934e-01_rb,0.45677e-01_rb,0.42390e-01_rb,0.38084e-01_rb,0.33301e-01_rb, &\n        & 0.28097e-01_rb,0.22664e-01_rb,0.16844e-01_rb,0.11686e-01_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.48760e-01_rb,0.45876e-01_rb,0.42614e-01_rb,0.38405e-01_rb,0.33732e-01_rb, &\n        & 0.28793e-01_rb,0.23625e-01_rb,0.18186e-01_rb,0.14417e-01_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.48535e-01_rb,0.45946e-01_rb,0.42722e-01_rb,0.38669e-01_rb,0.34439e-01_rb, &\n        & 0.29718e-01_rb,0.24746e-01_rb,0.19636e-01_rb,0.17490e-01_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.50581e-01_rb,0.46588e-01_rb,0.42861e-01_rb,0.37978e-01_rb,0.32756e-01_rb, &\n        & 0.27218e-01_rb,0.20963e-01_rb,0.14152e-01_rb,0.94977e-02_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.50552e-01_rb,0.46832e-01_rb,0.43092e-01_rb,0.38231e-01_rb,0.33230e-01_rb, &\n        & 0.27672e-01_rb,0.21597e-01_rb,0.15000e-01_rb,0.11069e-01_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.50470e-01_rb,0.47126e-01_rb,0.43390e-01_rb,0.38763e-01_rb,0.33692e-01_rb, &\n        & 0.28191e-01_rb,0.22303e-01_rb,0.15932e-01_rb,0.12529e-01_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.50251e-01_rb,0.47290e-01_rb,0.43621e-01_rb,0.39150e-01_rb,0.34250e-01_rb, &\n        & 0.28907e-01_rb,0.23153e-01_rb,0.17091e-01_rb,0.14647e-01_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.50025e-01_rb,0.47335e-01_rb,0.43789e-01_rb,0.39526e-01_rb,0.34961e-01_rb, &\n        & 0.29783e-01_rb,0.24207e-01_rb,0.18303e-01_rb,0.16505e-01_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.51775e-01_rb,0.47733e-01_rb,0.43604e-01_rb,0.38377e-01_rb,0.33010e-01_rb, &\n        & 0.27211e-01_rb,0.20853e-01_rb,0.13952e-01_rb,0.10099e-01_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.51722e-01_rb,0.48082e-01_rb,0.43912e-01_rb,0.38859e-01_rb,0.33550e-01_rb, &\n        & 0.27720e-01_rb,0.21535e-01_rb,0.14746e-01_rb,0.11460e-01_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.51577e-01_rb,0.48309e-01_rb,0.44107e-01_rb,0.39371e-01_rb,0.34132e-01_rb, &\n        & 0.28431e-01_rb,0.22288e-01_rb,0.15640e-01_rb,0.12761e-01_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.51367e-01_rb,0.48474e-01_rb,0.44409e-01_rb,0.39819e-01_rb,0.34807e-01_rb, &\n        & 0.29240e-01_rb,0.23192e-01_rb,0.16707e-01_rb,0.14096e-01_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.51186e-01_rb,0.48565e-01_rb,0.44658e-01_rb,0.40350e-01_rb,0.35545e-01_rb, &\n        & 0.30221e-01_rb,0.24214e-01_rb,0.17744e-01_rb,0.15290e-01_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.52731e-01_rb,0.48681e-01_rb,0.44186e-01_rb,0.38733e-01_rb,0.33169e-01_rb, &\n        & 0.27108e-01_rb,0.20634e-01_rb,0.13723e-01_rb,0.97949e-02_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.52654e-01_rb,0.49001e-01_rb,0.44433e-01_rb,0.39315e-01_rb,0.33776e-01_rb, &\n        & 0.27772e-01_rb,0.21363e-01_rb,0.14506e-01_rb,0.11186e-01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.52581e-01_rb,0.49321e-01_rb,0.44768e-01_rb,0.39827e-01_rb,0.34382e-01_rb, &\n        & 0.28565e-01_rb,0.22205e-01_rb,0.15366e-01_rb,0.12310e-01_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.52474e-01_rb,0.49527e-01_rb,0.45170e-01_rb,0.40364e-01_rb,0.35120e-01_rb, &\n        & 0.29376e-01_rb,0.23174e-01_rb,0.16305e-01_rb,0.14325e-01_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.52313e-01_rb,0.49659e-01_rb,0.45526e-01_rb,0.41026e-01_rb,0.35905e-01_rb, &\n        & 0.30399e-01_rb,0.24222e-01_rb,0.17291e-01_rb,0.16045e-01_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.53347e-01_rb,0.49460e-01_rb,0.44667e-01_rb,0.39102e-01_rb,0.33300e-01_rb, &\n        & 0.27005e-01_rb,0.20373e-01_rb,0.13403e-01_rb,0.88882e-02_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.53473e-01_rb,0.49893e-01_rb,0.44992e-01_rb,0.39672e-01_rb,0.33886e-01_rb, &\n        & 0.27737e-01_rb,0.21157e-01_rb,0.14194e-01_rb,0.99472e-02_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.53543e-01_rb,0.50285e-01_rb,0.45484e-01_rb,0.40250e-01_rb,0.34541e-01_rb, &\n        & 0.28510e-01_rb,0.22035e-01_rb,0.15061e-01_rb,0.11235e-01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.53461e-01_rb,0.50524e-01_rb,0.45912e-01_rb,0.40827e-01_rb,0.35322e-01_rb, &\n        & 0.29374e-01_rb,0.23048e-01_rb,0.15925e-01_rb,0.12822e-01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.53278e-01_rb,0.50624e-01_rb,0.46303e-01_rb,0.41556e-01_rb,0.36186e-01_rb, &\n        & 0.30414e-01_rb,0.24058e-01_rb,0.16868e-01_rb,0.14203e-01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.37171e-01_rb,0.34434e-01_rb,0.32644e-01_rb,0.32703e-01_rb,0.33235e-01_rb, &\n        & 0.36611e-01_rb,0.43526e-01_rb,0.50696e-01_rb,0.58297e-01_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.36741e-01_rb,0.34071e-01_rb,0.32455e-01_rb,0.33094e-01_rb,0.34229e-01_rb, &\n        & 0.38792e-01_rb,0.46364e-01_rb,0.53998e-01_rb,0.61977e-01_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.36310e-01_rb,0.33795e-01_rb,0.32514e-01_rb,0.33548e-01_rb,0.35414e-01_rb, &\n        & 0.41445e-01_rb,0.49627e-01_rb,0.57817e-01_rb,0.66049e-01_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.35845e-01_rb,0.33632e-01_rb,0.32631e-01_rb,0.34397e-01_rb,0.37428e-01_rb, &\n        & 0.44985e-01_rb,0.53868e-01_rb,0.62763e-01_rb,0.71579e-01_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.35331e-01_rb,0.33379e-01_rb,0.32910e-01_rb,0.35528e-01_rb,0.39783e-01_rb, &\n        & 0.48705e-01_rb,0.58316e-01_rb,0.67942e-01_rb,0.77160e-01_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.40448e-01_rb,0.37395e-01_rb,0.35029e-01_rb,0.34305e-01_rb,0.33991e-01_rb, &\n        & 0.35316e-01_rb,0.40968e-01_rb,0.47712e-01_rb,0.54932e-01_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.39920e-01_rb,0.36968e-01_rb,0.34927e-01_rb,0.34599e-01_rb,0.34841e-01_rb, &\n        & 0.37250e-01_rb,0.43923e-01_rb,0.51161e-01_rb,0.58827e-01_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.39405e-01_rb,0.36691e-01_rb,0.34999e-01_rb,0.35076e-01_rb,0.35924e-01_rb, &\n        & 0.39772e-01_rb,0.47443e-01_rb,0.55253e-01_rb,0.63303e-01_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.38792e-01_rb,0.36414e-01_rb,0.35121e-01_rb,0.35787e-01_rb,0.37790e-01_rb, &\n        & 0.43290e-01_rb,0.51773e-01_rb,0.60284e-01_rb,0.68983e-01_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.38190e-01_rb,0.36098e-01_rb,0.35328e-01_rb,0.36844e-01_rb,0.39952e-01_rb, &\n        & 0.47291e-01_rb,0.56573e-01_rb,0.65870e-01_rb,0.75177e-01_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.43810e-01_rb,0.40500e-01_rb,0.37754e-01_rb,0.36293e-01_rb,0.34676e-01_rb, &\n        & 0.34367e-01_rb,0.37493e-01_rb,0.43650e-01_rb,0.50087e-01_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.43199e-01_rb,0.40018e-01_rb,0.37716e-01_rb,0.36450e-01_rb,0.35395e-01_rb, &\n        & 0.35866e-01_rb,0.40426e-01_rb,0.47076e-01_rb,0.53958e-01_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.42538e-01_rb,0.39757e-01_rb,0.37868e-01_rb,0.36772e-01_rb,0.36302e-01_rb, &\n        & 0.37914e-01_rb,0.44070e-01_rb,0.51299e-01_rb,0.58670e-01_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.41856e-01_rb,0.39457e-01_rb,0.37979e-01_rb,0.37163e-01_rb,0.37947e-01_rb, &\n        & 0.40970e-01_rb,0.48419e-01_rb,0.56334e-01_rb,0.64404e-01_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.41250e-01_rb,0.39154e-01_rb,0.38065e-01_rb,0.38049e-01_rb,0.39929e-01_rb, &\n        & 0.44658e-01_rb,0.53223e-01_rb,0.61909e-01_rb,0.70665e-01_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.47088e-01_rb,0.43589e-01_rb,0.40605e-01_rb,0.38686e-01_rb,0.35713e-01_rb, &\n        & 0.33942e-01_rb,0.34171e-01_rb,0.39143e-01_rb,0.44787e-01_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.46380e-01_rb,0.43081e-01_rb,0.40678e-01_rb,0.38772e-01_rb,0.36271e-01_rb, &\n        & 0.35115e-01_rb,0.36728e-01_rb,0.42523e-01_rb,0.48625e-01_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.45787e-01_rb,0.42889e-01_rb,0.40853e-01_rb,0.39000e-01_rb,0.36901e-01_rb, &\n        & 0.36794e-01_rb,0.40276e-01_rb,0.46812e-01_rb,0.53448e-01_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.45216e-01_rb,0.42628e-01_rb,0.40916e-01_rb,0.39286e-01_rb,0.38129e-01_rb, &\n        & 0.39329e-01_rb,0.44499e-01_rb,0.51734e-01_rb,0.59041e-01_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.44698e-01_rb,0.42312e-01_rb,0.40992e-01_rb,0.39909e-01_rb,0.39896e-01_rb, &\n        & 0.42322e-01_rb,0.49157e-01_rb,0.57134e-01_rb,0.65206e-01_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.50564e-01_rb,0.46864e-01_rb,0.43550e-01_rb,0.41145e-01_rb,0.37282e-01_rb, &\n        & 0.33847e-01_rb,0.31921e-01_rb,0.34655e-01_rb,0.39581e-01_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.49853e-01_rb,0.46324e-01_rb,0.43735e-01_rb,0.41212e-01_rb,0.37826e-01_rb, &\n        & 0.34760e-01_rb,0.33939e-01_rb,0.37988e-01_rb,0.43340e-01_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.49277e-01_rb,0.46142e-01_rb,0.43937e-01_rb,0.41409e-01_rb,0.38245e-01_rb, &\n        & 0.36079e-01_rb,0.36891e-01_rb,0.42172e-01_rb,0.48104e-01_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.48731e-01_rb,0.45921e-01_rb,0.43964e-01_rb,0.41658e-01_rb,0.39073e-01_rb, &\n        & 0.38270e-01_rb,0.40535e-01_rb,0.46833e-01_rb,0.53415e-01_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.48265e-01_rb,0.45648e-01_rb,0.43993e-01_rb,0.42096e-01_rb,0.40473e-01_rb, &\n        & 0.40846e-01_rb,0.44703e-01_rb,0.51860e-01_rb,0.59120e-01_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.54155e-01_rb,0.50312e-01_rb,0.46699e-01_rb,0.43479e-01_rb,0.38935e-01_rb, &\n        & 0.34460e-01_rb,0.30470e-01_rb,0.30214e-01_rb,0.34389e-01_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.53396e-01_rb,0.49741e-01_rb,0.46925e-01_rb,0.43573e-01_rb,0.39485e-01_rb, &\n        & 0.35160e-01_rb,0.32122e-01_rb,0.33415e-01_rb,0.38087e-01_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.52823e-01_rb,0.49548e-01_rb,0.47130e-01_rb,0.43740e-01_rb,0.39828e-01_rb, &\n        & 0.36044e-01_rb,0.34474e-01_rb,0.37304e-01_rb,0.42510e-01_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.52327e-01_rb,0.49384e-01_rb,0.47097e-01_rb,0.43937e-01_rb,0.40452e-01_rb, &\n        & 0.37736e-01_rb,0.37393e-01_rb,0.41655e-01_rb,0.47452e-01_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.51903e-01_rb,0.49131e-01_rb,0.47026e-01_rb,0.44222e-01_rb,0.41687e-01_rb, &\n        & 0.39818e-01_rb,0.40660e-01_rb,0.46275e-01_rb,0.52724e-01_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.58007e-01_rb,0.53733e-01_rb,0.49779e-01_rb,0.45887e-01_rb,0.40462e-01_rb, &\n        & 0.35176e-01_rb,0.29765e-01_rb,0.26441e-01_rb,0.29320e-01_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.57151e-01_rb,0.53110e-01_rb,0.50041e-01_rb,0.45960e-01_rb,0.40973e-01_rb, &\n        & 0.35887e-01_rb,0.31026e-01_rb,0.29123e-01_rb,0.32803e-01_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.56502e-01_rb,0.52846e-01_rb,0.50182e-01_rb,0.46056e-01_rb,0.41337e-01_rb, &\n        & 0.36666e-01_rb,0.32781e-01_rb,0.32480e-01_rb,0.36858e-01_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.55999e-01_rb,0.52671e-01_rb,0.50072e-01_rb,0.46217e-01_rb,0.41835e-01_rb, &\n        & 0.38000e-01_rb,0.35109e-01_rb,0.36308e-01_rb,0.41318e-01_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.55573e-01_rb,0.52382e-01_rb,0.49967e-01_rb,0.46401e-01_rb,0.42955e-01_rb, &\n        & 0.39677e-01_rb,0.37716e-01_rb,0.40481e-01_rb,0.46095e-01_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.61929e-01_rb,0.57176e-01_rb,0.52730e-01_rb,0.48103e-01_rb,0.42015e-01_rb, &\n        & 0.35869e-01_rb,0.29499e-01_rb,0.23665e-01_rb,0.24549e-01_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.61013e-01_rb,0.56553e-01_rb,0.52930e-01_rb,0.48080e-01_rb,0.42522e-01_rb, &\n        & 0.36573e-01_rb,0.30581e-01_rb,0.25834e-01_rb,0.27791e-01_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.60303e-01_rb,0.56131e-01_rb,0.52872e-01_rb,0.48123e-01_rb,0.42911e-01_rb, &\n        & 0.37343e-01_rb,0.31938e-01_rb,0.28446e-01_rb,0.31375e-01_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.59783e-01_rb,0.55843e-01_rb,0.52678e-01_rb,0.48331e-01_rb,0.43398e-01_rb, &\n        & 0.38468e-01_rb,0.33698e-01_rb,0.31535e-01_rb,0.35398e-01_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.59221e-01_rb,0.55525e-01_rb,0.52626e-01_rb,0.48547e-01_rb,0.44309e-01_rb, &\n        & 0.39969e-01_rb,0.35748e-01_rb,0.35119e-01_rb,0.39791e-01_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.65420e-01_rb,0.60290e-01_rb,0.55521e-01_rb,0.50117e-01_rb,0.43421e-01_rb, &\n        & 0.36608e-01_rb,0.29349e-01_rb,0.21841e-01_rb,0.18774e-01_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.64534e-01_rb,0.59710e-01_rb,0.55627e-01_rb,0.50054e-01_rb,0.43842e-01_rb, &\n        & 0.37357e-01_rb,0.30337e-01_rb,0.23525e-01_rb,0.22756e-01_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.63805e-01_rb,0.59237e-01_rb,0.55452e-01_rb,0.50019e-01_rb,0.44319e-01_rb, &\n        & 0.38089e-01_rb,0.31491e-01_rb,0.25524e-01_rb,0.26401e-01_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.63315e-01_rb,0.59001e-01_rb,0.55252e-01_rb,0.50261e-01_rb,0.44802e-01_rb, &\n        & 0.39006e-01_rb,0.32915e-01_rb,0.27972e-01_rb,0.30021e-01_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.62781e-01_rb,0.58825e-01_rb,0.55257e-01_rb,0.50524e-01_rb,0.45567e-01_rb, &\n        & 0.40297e-01_rb,0.34643e-01_rb,0.30888e-01_rb,0.34021e-01_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.68132e-01_rb,0.62682e-01_rb,0.57743e-01_rb,0.51836e-01_rb,0.44670e-01_rb, &\n        & 0.37300e-01_rb,0.29365e-01_rb,0.20724e-01_rb,0.15957e-01_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.67210e-01_rb,0.62151e-01_rb,0.57960e-01_rb,0.51867e-01_rb,0.45128e-01_rb, &\n        & 0.38064e-01_rb,0.30245e-01_rb,0.22146e-01_rb,0.17704e-01_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.66632e-01_rb,0.61949e-01_rb,0.57882e-01_rb,0.51878e-01_rb,0.45637e-01_rb, &\n        & 0.38758e-01_rb,0.31283e-01_rb,0.23744e-01_rb,0.20098e-01_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.66350e-01_rb,0.62044e-01_rb,0.57835e-01_rb,0.52180e-01_rb,0.46090e-01_rb, &\n        & 0.39573e-01_rb,0.32509e-01_rb,0.25642e-01_rb,0.22076e-01_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.65965e-01_rb,0.62105e-01_rb,0.57959e-01_rb,0.52489e-01_rb,0.46765e-01_rb, &\n        & 0.40717e-01_rb,0.34057e-01_rb,0.28015e-01_rb,0.24829e-01_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.69905e-01_rb,0.64410e-01_rb,0.59589e-01_rb,0.53150e-01_rb,0.45760e-01_rb, &\n        & 0.38179e-01_rb,0.29785e-01_rb,0.20444e-01_rb,0.16092e-01_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.69271e-01_rb,0.64175e-01_rb,0.59782e-01_rb,0.53281e-01_rb,0.46486e-01_rb, &\n        & 0.38949e-01_rb,0.30645e-01_rb,0.21725e-01_rb,0.17857e-01_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.69073e-01_rb,0.64491e-01_rb,0.59955e-01_rb,0.53684e-01_rb,0.46981e-01_rb, &\n        & 0.39609e-01_rb,0.31674e-01_rb,0.23165e-01_rb,0.20394e-01_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.68904e-01_rb,0.64793e-01_rb,0.60179e-01_rb,0.54162e-01_rb,0.47530e-01_rb, &\n        & 0.40495e-01_rb,0.32809e-01_rb,0.24930e-01_rb,0.23016e-01_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.68639e-01_rb,0.65010e-01_rb,0.60484e-01_rb,0.54605e-01_rb,0.48370e-01_rb, &\n        & 0.41561e-01_rb,0.34350e-01_rb,0.26933e-01_rb,0.26488e-01_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.71529e-01_rb,0.66044e-01_rb,0.61072e-01_rb,0.54140e-01_rb,0.46654e-01_rb, &\n        & 0.38794e-01_rb,0.29996e-01_rb,0.20236e-01_rb,0.16124e-01_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.71291e-01_rb,0.66315e-01_rb,0.61418e-01_rb,0.54500e-01_rb,0.47446e-01_rb, &\n        & 0.39590e-01_rb,0.30905e-01_rb,0.21401e-01_rb,0.17542e-01_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.71222e-01_rb,0.66826e-01_rb,0.61770e-01_rb,0.55219e-01_rb,0.48148e-01_rb, &\n        & 0.40334e-01_rb,0.31908e-01_rb,0.22727e-01_rb,0.19804e-01_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.71079e-01_rb,0.67236e-01_rb,0.62161e-01_rb,0.55849e-01_rb,0.48917e-01_rb, &\n        & 0.41311e-01_rb,0.33042e-01_rb,0.24356e-01_rb,0.21082e-01_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.70901e-01_rb,0.67518e-01_rb,0.62549e-01_rb,0.56439e-01_rb,0.49900e-01_rb, &\n        & 0.42406e-01_rb,0.34548e-01_rb,0.26106e-01_rb,0.23666e-01_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.73149e-01_rb,0.67708e-01_rb,0.62294e-01_rb,0.54947e-01_rb,0.47337e-01_rb, &\n        & 0.39165e-01_rb,0.30053e-01_rb,0.20069e-01_rb,0.15304e-01_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.73122e-01_rb,0.68287e-01_rb,0.62803e-01_rb,0.55664e-01_rb,0.48241e-01_rb, &\n        & 0.39986e-01_rb,0.31044e-01_rb,0.21133e-01_rb,0.17384e-01_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.73057e-01_rb,0.68826e-01_rb,0.63303e-01_rb,0.56536e-01_rb,0.49104e-01_rb, &\n        & 0.40926e-01_rb,0.32050e-01_rb,0.22349e-01_rb,0.18964e-01_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.73037e-01_rb,0.69286e-01_rb,0.63846e-01_rb,0.57252e-01_rb,0.50018e-01_rb, &\n        & 0.42025e-01_rb,0.33217e-01_rb,0.23850e-01_rb,0.20572e-01_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.73013e-01_rb,0.69604e-01_rb,0.64290e-01_rb,0.57954e-01_rb,0.51076e-01_rb, &\n        & 0.43212e-01_rb,0.34653e-01_rb,0.25391e-01_rb,0.23448e-01_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.43248e-01_rb,0.41017e-01_rb,0.40213e-01_rb,0.39821e-01_rb,0.45256e-01_rb, &\n        & 0.55821e-01_rb,0.66932e-01_rb,0.78037e-01_rb,0.88086e-01_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.42407e-01_rb,0.40307e-01_rb,0.40078e-01_rb,0.40681e-01_rb,0.47543e-01_rb, &\n        & 0.59099e-01_rb,0.70845e-01_rb,0.82585e-01_rb,0.93228e-01_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.41692e-01_rb,0.39727e-01_rb,0.39865e-01_rb,0.41830e-01_rb,0.50093e-01_rb, &\n        & 0.62450e-01_rb,0.74841e-01_rb,0.87232e-01_rb,0.98476e-01_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.41002e-01_rb,0.39248e-01_rb,0.39945e-01_rb,0.42942e-01_rb,0.52768e-01_rb, &\n        & 0.65829e-01_rb,0.78890e-01_rb,0.91937e-01_rb,0.10362e+00_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.40428e-01_rb,0.39045e-01_rb,0.40116e-01_rb,0.44981e-01_rb,0.56655e-01_rb, &\n        & 0.70681e-01_rb,0.84705e-01_rb,0.98731e-01_rb,0.11111e+00_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.47227e-01_rb,0.44198e-01_rb,0.42698e-01_rb,0.42511e-01_rb,0.46394e-01_rb, &\n        & 0.55784e-01_rb,0.66888e-01_rb,0.77989e-01_rb,0.88812e-01_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.46375e-01_rb,0.43473e-01_rb,0.42428e-01_rb,0.43299e-01_rb,0.48252e-01_rb, &\n        & 0.59000e-01_rb,0.70708e-01_rb,0.82423e-01_rb,0.93885e-01_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.45650e-01_rb,0.42988e-01_rb,0.42307e-01_rb,0.44252e-01_rb,0.50414e-01_rb, &\n        & 0.62373e-01_rb,0.74750e-01_rb,0.87127e-01_rb,0.99197e-01_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.44980e-01_rb,0.42686e-01_rb,0.42476e-01_rb,0.45355e-01_rb,0.53027e-01_rb, &\n        & 0.66067e-01_rb,0.79179e-01_rb,0.92288e-01_rb,0.10480e+00_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.44383e-01_rb,0.42475e-01_rb,0.42723e-01_rb,0.47155e-01_rb,0.57007e-01_rb, &\n        & 0.71138e-01_rb,0.85276e-01_rb,0.99396e-01_rb,0.11272e+00_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.51829e-01_rb,0.48303e-01_rb,0.45805e-01_rb,0.45348e-01_rb,0.47474e-01_rb, &\n        & 0.53773e-01_rb,0.64381e-01_rb,0.75065e-01_rb,0.85879e-01_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.50945e-01_rb,0.47626e-01_rb,0.45531e-01_rb,0.46104e-01_rb,0.48805e-01_rb, &\n        & 0.57008e-01_rb,0.68342e-01_rb,0.79675e-01_rb,0.91103e-01_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.50329e-01_rb,0.47163e-01_rb,0.45393e-01_rb,0.46795e-01_rb,0.50514e-01_rb, &\n        & 0.60488e-01_rb,0.72503e-01_rb,0.84519e-01_rb,0.96625e-01_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.49725e-01_rb,0.46894e-01_rb,0.45600e-01_rb,0.47784e-01_rb,0.52670e-01_rb, &\n        & 0.64382e-01_rb,0.77172e-01_rb,0.89966e-01_rb,0.10271e+00_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.49109e-01_rb,0.46633e-01_rb,0.45896e-01_rb,0.49191e-01_rb,0.56129e-01_rb, &\n        & 0.69438e-01_rb,0.83245e-01_rb,0.97061e-01_rb,0.11071e+00_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.57082e-01_rb,0.53110e-01_rb,0.49763e-01_rb,0.48460e-01_rb,0.48719e-01_rb, &\n        & 0.51181e-01_rb,0.59984e-01_rb,0.69952e-01_rb,0.80045e-01_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.56133e-01_rb,0.52450e-01_rb,0.49568e-01_rb,0.49064e-01_rb,0.49725e-01_rb, &\n        & 0.54041e-01_rb,0.64091e-01_rb,0.74728e-01_rb,0.85496e-01_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.55439e-01_rb,0.51866e-01_rb,0.49497e-01_rb,0.49475e-01_rb,0.51076e-01_rb, &\n        & 0.57243e-01_rb,0.68327e-01_rb,0.79652e-01_rb,0.91098e-01_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.54777e-01_rb,0.51575e-01_rb,0.49681e-01_rb,0.50221e-01_rb,0.52765e-01_rb, &\n        & 0.61084e-01_rb,0.73197e-01_rb,0.85337e-01_rb,0.97552e-01_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.54098e-01_rb,0.51233e-01_rb,0.49878e-01_rb,0.51295e-01_rb,0.55484e-01_rb, &\n        & 0.66162e-01_rb,0.79298e-01_rb,0.92434e-01_rb,0.10558e+00_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.62544e-01_rb,0.58281e-01_rb,0.54351e-01_rb,0.52107e-01_rb,0.50211e-01_rb, &\n        & 0.49416e-01_rb,0.54519e-01_rb,0.63528e-01_rb,0.72634e-01_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.61658e-01_rb,0.57644e-01_rb,0.54210e-01_rb,0.52563e-01_rb,0.50949e-01_rb, &\n        & 0.51794e-01_rb,0.58802e-01_rb,0.68560e-01_rb,0.78383e-01_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.60918e-01_rb,0.57016e-01_rb,0.54117e-01_rb,0.52719e-01_rb,0.52074e-01_rb, &\n        & 0.54457e-01_rb,0.63161e-01_rb,0.73629e-01_rb,0.84158e-01_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.60164e-01_rb,0.56692e-01_rb,0.54302e-01_rb,0.53086e-01_rb,0.53404e-01_rb, &\n        & 0.57689e-01_rb,0.68126e-01_rb,0.79422e-01_rb,0.90757e-01_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.59366e-01_rb,0.56267e-01_rb,0.54377e-01_rb,0.53811e-01_rb,0.55627e-01_rb, &\n        & 0.62331e-01_rb,0.74295e-01_rb,0.86596e-01_rb,0.98923e-01_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.68500e-01_rb,0.63504e-01_rb,0.59102e-01_rb,0.56112e-01_rb,0.52198e-01_rb, &\n        & 0.48725e-01_rb,0.49458e-01_rb,0.56540e-01_rb,0.64611e-01_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.67642e-01_rb,0.62951e-01_rb,0.59010e-01_rb,0.56509e-01_rb,0.52640e-01_rb, &\n        & 0.50781e-01_rb,0.53492e-01_rb,0.61845e-01_rb,0.70650e-01_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.66730e-01_rb,0.62270e-01_rb,0.58880e-01_rb,0.56541e-01_rb,0.53578e-01_rb, &\n        & 0.52912e-01_rb,0.57553e-01_rb,0.66900e-01_rb,0.76420e-01_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.65853e-01_rb,0.61851e-01_rb,0.59079e-01_rb,0.56674e-01_rb,0.54628e-01_rb, &\n        & 0.55405e-01_rb,0.62327e-01_rb,0.72621e-01_rb,0.82946e-01_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.64917e-01_rb,0.61395e-01_rb,0.59088e-01_rb,0.57140e-01_rb,0.56317e-01_rb, &\n        & 0.59242e-01_rb,0.68519e-01_rb,0.79819e-01_rb,0.91147e-01_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.74814e-01_rb,0.69115e-01_rb,0.63783e-01_rb,0.59970e-01_rb,0.54833e-01_rb, &\n        & 0.49011e-01_rb,0.46051e-01_rb,0.49756e-01_rb,0.56816e-01_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.73755e-01_rb,0.68509e-01_rb,0.63672e-01_rb,0.60441e-01_rb,0.55205e-01_rb, &\n        & 0.50759e-01_rb,0.49447e-01_rb,0.55044e-01_rb,0.62843e-01_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.72664e-01_rb,0.67698e-01_rb,0.63630e-01_rb,0.60499e-01_rb,0.55993e-01_rb, &\n        & 0.52467e-01_rb,0.52809e-01_rb,0.59966e-01_rb,0.68463e-01_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.71633e-01_rb,0.67174e-01_rb,0.63866e-01_rb,0.60581e-01_rb,0.56744e-01_rb, &\n        & 0.54377e-01_rb,0.56941e-01_rb,0.65640e-01_rb,0.74923e-01_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.70621e-01_rb,0.66745e-01_rb,0.63972e-01_rb,0.60930e-01_rb,0.57801e-01_rb, &\n        & 0.57488e-01_rb,0.62631e-01_rb,0.72711e-01_rb,0.82984e-01_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.81108e-01_rb,0.74731e-01_rb,0.68669e-01_rb,0.63699e-01_rb,0.57482e-01_rb, &\n        & 0.50207e-01_rb,0.44226e-01_rb,0.43565e-01_rb,0.49479e-01_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.79714e-01_rb,0.73898e-01_rb,0.68659e-01_rb,0.64276e-01_rb,0.57881e-01_rb, &\n        & 0.51786e-01_rb,0.46974e-01_rb,0.48378e-01_rb,0.55162e-01_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.78456e-01_rb,0.73135e-01_rb,0.68758e-01_rb,0.64370e-01_rb,0.58662e-01_rb, &\n        & 0.53164e-01_rb,0.49684e-01_rb,0.53168e-01_rb,0.60666e-01_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.77309e-01_rb,0.72680e-01_rb,0.69000e-01_rb,0.64433e-01_rb,0.59353e-01_rb, &\n        & 0.54540e-01_rb,0.53042e-01_rb,0.58717e-01_rb,0.66992e-01_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.76406e-01_rb,0.72288e-01_rb,0.69084e-01_rb,0.64775e-01_rb,0.60105e-01_rb, &\n        & 0.56876e-01_rb,0.57740e-01_rb,0.65467e-01_rb,0.74695e-01_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.87281e-01_rb,0.80336e-01_rb,0.73586e-01_rb,0.67589e-01_rb,0.60164e-01_rb, &\n        & 0.51553e-01_rb,0.43512e-01_rb,0.38366e-01_rb,0.42260e-01_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.85638e-01_rb,0.79229e-01_rb,0.73710e-01_rb,0.68169e-01_rb,0.60640e-01_rb, &\n        & 0.53028e-01_rb,0.45744e-01_rb,0.42413e-01_rb,0.47570e-01_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.84292e-01_rb,0.78481e-01_rb,0.73900e-01_rb,0.68269e-01_rb,0.61342e-01_rb, &\n        & 0.54381e-01_rb,0.47902e-01_rb,0.46760e-01_rb,0.52980e-01_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.83115e-01_rb,0.77996e-01_rb,0.74142e-01_rb,0.68304e-01_rb,0.62073e-01_rb, &\n        & 0.55597e-01_rb,0.50525e-01_rb,0.51779e-01_rb,0.58954e-01_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.82186e-01_rb,0.77706e-01_rb,0.74161e-01_rb,0.68663e-01_rb,0.62685e-01_rb, &\n        & 0.57315e-01_rb,0.54189e-01_rb,0.58003e-01_rb,0.66142e-01_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.93285e-01_rb,0.85813e-01_rb,0.78575e-01_rb,0.71552e-01_rb,0.62937e-01_rb, &\n        & 0.53130e-01_rb,0.43544e-01_rb,0.34852e-01_rb,0.25971e-01_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.91673e-01_rb,0.84652e-01_rb,0.78625e-01_rb,0.72093e-01_rb,0.63376e-01_rb, &\n        & 0.54541e-01_rb,0.45576e-01_rb,0.38102e-01_rb,0.28356e-01_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.90273e-01_rb,0.83828e-01_rb,0.78840e-01_rb,0.72190e-01_rb,0.64026e-01_rb, &\n        & 0.55889e-01_rb,0.47404e-01_rb,0.41695e-01_rb,0.31456e-01_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.88982e-01_rb,0.83233e-01_rb,0.79026e-01_rb,0.72231e-01_rb,0.64765e-01_rb, &\n        & 0.57025e-01_rb,0.49463e-01_rb,0.46003e-01_rb,0.35501e-01_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.88015e-01_rb,0.82954e-01_rb,0.78987e-01_rb,0.72605e-01_rb,0.65378e-01_rb, &\n        & 0.58432e-01_rb,0.52293e-01_rb,0.51371e-01_rb,0.39951e-01_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.98224e-01_rb,0.90470e-01_rb,0.83283e-01_rb,0.75729e-01_rb,0.65953e-01_rb, &\n        & 0.55333e-01_rb,0.44607e-01_rb,0.33712e-01_rb,0.29825e-01_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.96868e-01_rb,0.89565e-01_rb,0.83537e-01_rb,0.76001e-01_rb,0.66302e-01_rb, &\n        & 0.56711e-01_rb,0.46387e-01_rb,0.36339e-01_rb,0.33228e-01_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.95464e-01_rb,0.88759e-01_rb,0.83774e-01_rb,0.75894e-01_rb,0.67115e-01_rb, &\n        & 0.57847e-01_rb,0.48034e-01_rb,0.39456e-01_rb,0.36088e-01_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.94340e-01_rb,0.88366e-01_rb,0.83721e-01_rb,0.76044e-01_rb,0.67766e-01_rb, &\n        & 0.58947e-01_rb,0.50010e-01_rb,0.43247e-01_rb,0.40125e-01_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.93518e-01_rb,0.88039e-01_rb,0.83475e-01_rb,0.76422e-01_rb,0.68414e-01_rb, &\n        & 0.60495e-01_rb,0.52431e-01_rb,0.48069e-01_rb,0.44798e-01_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.10275e+00_rb,0.94729e-01_rb,0.87688e-01_rb,0.79394e-01_rb,0.68734e-01_rb, &\n        & 0.57476e-01_rb,0.45697e-01_rb,0.32943e-01_rb,0.29614e-01_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.10159e+00_rb,0.94167e-01_rb,0.88202e-01_rb,0.79488e-01_rb,0.69232e-01_rb, &\n        & 0.58694e-01_rb,0.47208e-01_rb,0.35215e-01_rb,0.33437e-01_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.10046e+00_rb,0.93671e-01_rb,0.88347e-01_rb,0.79409e-01_rb,0.69985e-01_rb, &\n        & 0.59703e-01_rb,0.48739e-01_rb,0.37920e-01_rb,0.36670e-01_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.99712e-01_rb,0.93473e-01_rb,0.88135e-01_rb,0.79671e-01_rb,0.70541e-01_rb, &\n        & 0.60786e-01_rb,0.50658e-01_rb,0.41158e-01_rb,0.41155e-01_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.99052e-01_rb,0.93236e-01_rb,0.87897e-01_rb,0.79933e-01_rb,0.71310e-01_rb, &\n        & 0.62364e-01_rb,0.52850e-01_rb,0.45390e-01_rb,0.47055e-01_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.10693e+00_rb,0.98594e-01_rb,0.91730e-01_rb,0.82575e-01_rb,0.71131e-01_rb, &\n        & 0.59390e-01_rb,0.46621e-01_rb,0.32428e-01_rb,0.26794e-01_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.10593e+00_rb,0.98329e-01_rb,0.92368e-01_rb,0.82651e-01_rb,0.71827e-01_rb, &\n        & 0.60538e-01_rb,0.47868e-01_rb,0.34468e-01_rb,0.29114e-01_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.10521e+00_rb,0.98305e-01_rb,0.92444e-01_rb,0.82725e-01_rb,0.72549e-01_rb, &\n        & 0.61456e-01_rb,0.49349e-01_rb,0.36800e-01_rb,0.32781e-01_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.10471e+00_rb,0.98393e-01_rb,0.92240e-01_rb,0.83082e-01_rb,0.73117e-01_rb, &\n        & 0.62504e-01_rb,0.51152e-01_rb,0.39616e-01_rb,0.37780e-01_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.10409e+00_rb,0.98364e-01_rb,0.92131e-01_rb,0.83350e-01_rb,0.73995e-01_rb, &\n        & 0.64047e-01_rb,0.53327e-01_rb,0.43375e-01_rb,0.42285e-01_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.52810e-01_rb,0.49450e-01_rb,0.49647e-01_rb,0.57104e-01_rb,0.73433e-01_rb, &\n        & 0.91743e-01_rb,0.11005e+00_rb,0.12834e+00_rb,0.14491e+00_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.51653e-01_rb,0.48971e-01_rb,0.50186e-01_rb,0.59440e-01_rb,0.77723e-01_rb, &\n        & 0.97098e-01_rb,0.11647e+00_rb,0.13583e+00_rb,0.15375e+00_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.50696e-01_rb,0.48582e-01_rb,0.50737e-01_rb,0.61667e-01_rb,0.81568e-01_rb, &\n        & 0.10190e+00_rb,0.12223e+00_rb,0.14254e+00_rb,0.16133e+00_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.49759e-01_rb,0.48321e-01_rb,0.51484e-01_rb,0.64441e-01_rb,0.85673e-01_rb, &\n        & 0.10703e+00_rb,0.12837e+00_rb,0.14971e+00_rb,0.16936e+00_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.48804e-01_rb,0.48067e-01_rb,0.52560e-01_rb,0.67354e-01_rb,0.89656e-01_rb, &\n        & 0.11200e+00_rb,0.13434e+00_rb,0.15666e+00_rb,0.17718e+00_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.57042e-01_rb,0.54069e-01_rb,0.53905e-01_rb,0.58729e-01_rb,0.73592e-01_rb, &\n        & 0.91941e-01_rb,0.11029e+00_rb,0.12863e+00_rb,0.14602e+00_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.55841e-01_rb,0.53550e-01_rb,0.54566e-01_rb,0.60781e-01_rb,0.78168e-01_rb, &\n        & 0.97652e-01_rb,0.11714e+00_rb,0.13661e+00_rb,0.15506e+00_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.54920e-01_rb,0.52981e-01_rb,0.54943e-01_rb,0.62919e-01_rb,0.82379e-01_rb, &\n        & 0.10292e+00_rb,0.12345e+00_rb,0.14397e+00_rb,0.16344e+00_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.54055e-01_rb,0.52591e-01_rb,0.55488e-01_rb,0.65511e-01_rb,0.86681e-01_rb, &\n        & 0.10829e+00_rb,0.12990e+00_rb,0.15147e+00_rb,0.17196e+00_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.53226e-01_rb,0.52334e-01_rb,0.56238e-01_rb,0.68429e-01_rb,0.90830e-01_rb, &\n        & 0.11345e+00_rb,0.13607e+00_rb,0.15868e+00_rb,0.17998e+00_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.62670e-01_rb,0.59309e-01_rb,0.58772e-01_rb,0.61122e-01_rb,0.72960e-01_rb, &\n        & 0.91113e-01_rb,0.10930e+00_rb,0.12747e+00_rb,0.14514e+00_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.61411e-01_rb,0.58632e-01_rb,0.59230e-01_rb,0.62688e-01_rb,0.77748e-01_rb, &\n        & 0.97139e-01_rb,0.11652e+00_rb,0.13590e+00_rb,0.15479e+00_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.60334e-01_rb,0.57923e-01_rb,0.59411e-01_rb,0.64539e-01_rb,0.82093e-01_rb, &\n        & 0.10257e+00_rb,0.12305e+00_rb,0.14350e+00_rb,0.16343e+00_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.59451e-01_rb,0.57416e-01_rb,0.59633e-01_rb,0.66820e-01_rb,0.86494e-01_rb, &\n        & 0.10804e+00_rb,0.12960e+00_rb,0.15112e+00_rb,0.17209e+00_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.58597e-01_rb,0.57143e-01_rb,0.60240e-01_rb,0.69594e-01_rb,0.91059e-01_rb, &\n        & 0.11373e+00_rb,0.13640e+00_rb,0.15905e+00_rb,0.18103e+00_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.69822e-01_rb,0.65601e-01_rb,0.63945e-01_rb,0.64755e-01_rb,0.73038e-01_rb, &\n        & 0.90165e-01_rb,0.10817e+00_rb,0.12616e+00_rb,0.14389e+00_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.68507e-01_rb,0.64727e-01_rb,0.64234e-01_rb,0.66213e-01_rb,0.77749e-01_rb, &\n        & 0.96668e-01_rb,0.11597e+00_rb,0.13524e+00_rb,0.15427e+00_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.67276e-01_rb,0.63962e-01_rb,0.64238e-01_rb,0.67909e-01_rb,0.82185e-01_rb, &\n        & 0.10254e+00_rb,0.12301e+00_rb,0.14345e+00_rb,0.16365e+00_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.66381e-01_rb,0.63334e-01_rb,0.64220e-01_rb,0.69770e-01_rb,0.86724e-01_rb, &\n        & 0.10832e+00_rb,0.12994e+00_rb,0.15151e+00_rb,0.17282e+00_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.65437e-01_rb,0.62972e-01_rb,0.64673e-01_rb,0.72222e-01_rb,0.91630e-01_rb, &\n        & 0.11445e+00_rb,0.13728e+00_rb,0.16006e+00_rb,0.18257e+00_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.78344e-01_rb,0.73091e-01_rb,0.69713e-01_rb,0.69214e-01_rb,0.74668e-01_rb, &\n        & 0.88915e-01_rb,0.10667e+00_rb,0.12441e+00_rb,0.14209e+00_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.76773e-01_rb,0.71981e-01_rb,0.69752e-01_rb,0.70736e-01_rb,0.78904e-01_rb, &\n        & 0.95797e-01_rb,0.11493e+00_rb,0.13406e+00_rb,0.15311e+00_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.75310e-01_rb,0.71068e-01_rb,0.69651e-01_rb,0.72503e-01_rb,0.83070e-01_rb, &\n        & 0.10214e+00_rb,0.12251e+00_rb,0.14289e+00_rb,0.16320e+00_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.74250e-01_rb,0.70202e-01_rb,0.69499e-01_rb,0.74333e-01_rb,0.87301e-01_rb, &\n        & 0.10818e+00_rb,0.12976e+00_rb,0.15132e+00_rb,0.17281e+00_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.73209e-01_rb,0.69739e-01_rb,0.69847e-01_rb,0.76315e-01_rb,0.91870e-01_rb, &\n        & 0.11438e+00_rb,0.13720e+00_rb,0.16000e+00_rb,0.18274e+00_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.87696e-01_rb,0.81522e-01_rb,0.76509e-01_rb,0.74345e-01_rb,0.77107e-01_rb, &\n        & 0.86456e-01_rb,0.10266e+00_rb,0.11975e+00_rb,0.13684e+00_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.85834e-01_rb,0.80104e-01_rb,0.76319e-01_rb,0.75879e-01_rb,0.80970e-01_rb, &\n        & 0.93234e-01_rb,0.11135e+00_rb,0.12988e+00_rb,0.14843e+00_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.84103e-01_rb,0.79034e-01_rb,0.76204e-01_rb,0.77685e-01_rb,0.84459e-01_rb, &\n        & 0.99600e-01_rb,0.11936e+00_rb,0.13921e+00_rb,0.15907e+00_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.82699e-01_rb,0.78102e-01_rb,0.75915e-01_rb,0.79277e-01_rb,0.87923e-01_rb, &\n        & 0.10572e+00_rb,0.12681e+00_rb,0.14791e+00_rb,0.16901e+00_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.81604e-01_rb,0.77529e-01_rb,0.76175e-01_rb,0.80727e-01_rb,0.91640e-01_rb, &\n        & 0.11182e+00_rb,0.13414e+00_rb,0.15644e+00_rb,0.17875e+00_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.97322e-01_rb,0.90329e-01_rb,0.84313e-01_rb,0.80452e-01_rb,0.80118e-01_rb, &\n        & 0.84204e-01_rb,0.96138e-01_rb,0.11212e+00_rb,0.12812e+00_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.95378e-01_rb,0.88856e-01_rb,0.83999e-01_rb,0.81744e-01_rb,0.83529e-01_rb, &\n        & 0.90072e-01_rb,0.10504e+00_rb,0.12254e+00_rb,0.14003e+00_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.93471e-01_rb,0.87725e-01_rb,0.83968e-01_rb,0.83424e-01_rb,0.86362e-01_rb, &\n        & 0.95913e-01_rb,0.11338e+00_rb,0.13227e+00_rb,0.15114e+00_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.91861e-01_rb,0.86679e-01_rb,0.83638e-01_rb,0.84829e-01_rb,0.89126e-01_rb, &\n        & 0.10167e+00_rb,0.12111e+00_rb,0.14127e+00_rb,0.16142e+00_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.90669e-01_rb,0.86079e-01_rb,0.83677e-01_rb,0.85955e-01_rb,0.92165e-01_rb, &\n        & 0.10751e+00_rb,0.12862e+00_rb,0.15005e+00_rb,0.17145e+00_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.10748e+00_rb,0.99760e-01_rb,0.92641e-01_rb,0.87386e-01_rb,0.83918e-01_rb, &\n        & 0.82807e-01_rb,0.88461e-01_rb,0.10199e+00_rb,0.11655e+00_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.10548e+00_rb,0.98347e-01_rb,0.92153e-01_rb,0.88724e-01_rb,0.86807e-01_rb, &\n        & 0.87435e-01_rb,0.96918e-01_rb,0.11262e+00_rb,0.12866e+00_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.10345e+00_rb,0.96941e-01_rb,0.92269e-01_rb,0.90148e-01_rb,0.89023e-01_rb, &\n        & 0.92390e-01_rb,0.10517e+00_rb,0.12260e+00_rb,0.14006e+00_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.10168e+00_rb,0.95648e-01_rb,0.92050e-01_rb,0.91217e-01_rb,0.91169e-01_rb, &\n        & 0.97530e-01_rb,0.11302e+00_rb,0.13185e+00_rb,0.15061e+00_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.10031e+00_rb,0.94918e-01_rb,0.92030e-01_rb,0.91944e-01_rb,0.93599e-01_rb, &\n        & 0.10280e+00_rb,0.12083e+00_rb,0.14095e+00_rb,0.16101e+00_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.11850e+00_rb,0.10963e+00_rb,0.10118e+00_rb,0.94592e-01_rb,0.88496e-01_rb, &\n        & 0.82777e-01_rb,0.81368e-01_rb,0.90482e-01_rb,0.10334e+00_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.11636e+00_rb,0.10836e+00_rb,0.10080e+00_rb,0.96151e-01_rb,0.90961e-01_rb, &\n        & 0.86437e-01_rb,0.88759e-01_rb,0.10103e+00_rb,0.11540e+00_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.11416e+00_rb,0.10675e+00_rb,0.10109e+00_rb,0.97591e-01_rb,0.92676e-01_rb, &\n        & 0.90148e-01_rb,0.96288e-01_rb,0.11094e+00_rb,0.12669e+00_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.11214e+00_rb,0.10527e+00_rb,0.10096e+00_rb,0.98437e-01_rb,0.94256e-01_rb, &\n        & 0.94326e-01_rb,0.10386e+00_rb,0.12050e+00_rb,0.13763e+00_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.11054e+00_rb,0.10425e+00_rb,0.10085e+00_rb,0.98717e-01_rb,0.96200e-01_rb, &\n        & 0.98935e-01_rb,0.11173e+00_rb,0.13010e+00_rb,0.14859e+00_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.13016e+00_rb,0.11986e+00_rb,0.10995e+00_rb,0.10196e+00_rb,0.93774e-01_rb, &\n        & 0.84360e-01_rb,0.76878e-01_rb,0.79680e-01_rb,0.67359e-01_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.12774e+00_rb,0.11853e+00_rb,0.10979e+00_rb,0.10367e+00_rb,0.96160e-01_rb, &\n        & 0.87173e-01_rb,0.82710e-01_rb,0.89689e-01_rb,0.82456e-01_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.12531e+00_rb,0.11685e+00_rb,0.11022e+00_rb,0.10509e+00_rb,0.97450e-01_rb, &\n        & 0.90061e-01_rb,0.89222e-01_rb,0.99588e-01_rb,0.96338e-01_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.12312e+00_rb,0.11523e+00_rb,0.11015e+00_rb,0.10584e+00_rb,0.98534e-01_rb, &\n        & 0.93531e-01_rb,0.96262e-01_rb,0.10942e+00_rb,0.11043e+00_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.12128e+00_rb,0.11400e+00_rb,0.10998e+00_rb,0.10588e+00_rb,0.10008e+00_rb, &\n        & 0.97359e-01_rb,0.10364e+00_rb,0.11932e+00_rb,0.12582e+00_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.14105e+00_rb,0.12987e+00_rb,0.11910e+00_rb,0.11026e+00_rb,0.10035e+00_rb, &\n        & 0.88081e-01_rb,0.76687e-01_rb,0.74205e-01_rb,0.50899e-01_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.13825e+00_rb,0.12810e+00_rb,0.11908e+00_rb,0.11198e+00_rb,0.10215e+00_rb, &\n        & 0.90197e-01_rb,0.81650e-01_rb,0.83605e-01_rb,0.56975e-01_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.13566e+00_rb,0.12624e+00_rb,0.11939e+00_rb,0.11316e+00_rb,0.10299e+00_rb, &\n        & 0.92874e-01_rb,0.87279e-01_rb,0.93203e-01_rb,0.64736e-01_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.13334e+00_rb,0.12460e+00_rb,0.11935e+00_rb,0.11337e+00_rb,0.10395e+00_rb, &\n        & 0.95956e-01_rb,0.93410e-01_rb,0.10293e+00_rb,0.71284e-01_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.13131e+00_rb,0.12363e+00_rb,0.11937e+00_rb,0.11314e+00_rb,0.10517e+00_rb, &\n        & 0.98969e-01_rb,0.10016e+00_rb,0.11304e+00_rb,0.78587e-01_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.15212e+00_rb,0.13991e+00_rb,0.12851e+00_rb,0.11872e+00_rb,0.10663e+00_rb, &\n        & 0.91867e-01_rb,0.77350e-01_rb,0.69757e-01_rb,0.57657e-01_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.14895e+00_rb,0.13760e+00_rb,0.12846e+00_rb,0.12032e+00_rb,0.10790e+00_rb, &\n        & 0.93798e-01_rb,0.81816e-01_rb,0.78361e-01_rb,0.63811e-01_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.14609e+00_rb,0.13558e+00_rb,0.12854e+00_rb,0.12100e+00_rb,0.10856e+00_rb, &\n        & 0.96260e-01_rb,0.86684e-01_rb,0.87192e-01_rb,0.72200e-01_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.14343e+00_rb,0.13400e+00_rb,0.12849e+00_rb,0.12073e+00_rb,0.10951e+00_rb, &\n        & 0.98753e-01_rb,0.91530e-01_rb,0.96391e-01_rb,0.79517e-01_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.14120e+00_rb,0.13303e+00_rb,0.12833e+00_rb,0.12041e+00_rb,0.11038e+00_rb, &\n        & 0.10129e+00_rb,0.97562e-01_rb,0.10658e+00_rb,0.84371e-01_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.16284e+00_rb,0.14976e+00_rb,0.13792e+00_rb,0.12684e+00_rb,0.11275e+00_rb, &\n        & 0.95645e-01_rb,0.78767e-01_rb,0.66366e-01_rb,0.59038e-01_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.15947e+00_rb,0.14721e+00_rb,0.13779e+00_rb,0.12800e+00_rb,0.11359e+00_rb, &\n        & 0.97597e-01_rb,0.82782e-01_rb,0.73753e-01_rb,0.67374e-01_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.15626e+00_rb,0.14498e+00_rb,0.13763e+00_rb,0.12811e+00_rb,0.11414e+00_rb, &\n        & 0.99826e-01_rb,0.86643e-01_rb,0.81525e-01_rb,0.75874e-01_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.15335e+00_rb,0.14330e+00_rb,0.13746e+00_rb,0.12758e+00_rb,0.11501e+00_rb, &\n        & 0.10172e+00_rb,0.90750e-01_rb,0.90246e-01_rb,0.81744e-01_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.15088e+00_rb,0.14217e+00_rb,0.13690e+00_rb,0.12723e+00_rb,0.11557e+00_rb, &\n        & 0.10388e+00_rb,0.96218e-01_rb,0.10042e+00_rb,0.88529e-01_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.62837e-01_rb,0.60695e-01_rb,0.77720e-01_rb,0.11279e+00_rb,0.15033e+00_rb, &\n        & 0.18788e+00_rb,0.22539e+00_rb,0.26284e+00_rb,0.29421e+00_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.61599e-01_rb,0.60148e-01_rb,0.79591e-01_rb,0.11750e+00_rb,0.15661e+00_rb, &\n        & 0.19570e+00_rb,0.23478e+00_rb,0.27378e+00_rb,0.30578e+00_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.60827e-01_rb,0.59792e-01_rb,0.82175e-01_rb,0.12253e+00_rb,0.16330e+00_rb, &\n        & 0.20407e+00_rb,0.24482e+00_rb,0.28548e+00_rb,0.31829e+00_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.60773e-01_rb,0.59852e-01_rb,0.85295e-01_rb,0.12765e+00_rb,0.17012e+00_rb, &\n        & 0.21258e+00_rb,0.25502e+00_rb,0.29736e+00_rb,0.33114e+00_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.60579e-01_rb,0.60436e-01_rb,0.88993e-01_rb,0.13334e+00_rb,0.17771e+00_rb, &\n        & 0.22206e+00_rb,0.26642e+00_rb,0.31066e+00_rb,0.34557e+00_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.70150e-01_rb,0.67933e-01_rb,0.82763e-01_rb,0.11770e+00_rb,0.15687e+00_rb, &\n        & 0.19605e+00_rb,0.23520e+00_rb,0.27426e+00_rb,0.30923e+00_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.68737e-01_rb,0.67168e-01_rb,0.84453e-01_rb,0.12329e+00_rb,0.16434e+00_rb, &\n        & 0.20537e+00_rb,0.24638e+00_rb,0.28735e+00_rb,0.32358e+00_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.67693e-01_rb,0.66713e-01_rb,0.87076e-01_rb,0.12893e+00_rb,0.17184e+00_rb, &\n        & 0.21474e+00_rb,0.25764e+00_rb,0.30044e+00_rb,0.33811e+00_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.67352e-01_rb,0.66652e-01_rb,0.90088e-01_rb,0.13441e+00_rb,0.17914e+00_rb, &\n        & 0.22388e+00_rb,0.26860e+00_rb,0.31321e+00_rb,0.35245e+00_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.66923e-01_rb,0.67069e-01_rb,0.93870e-01_rb,0.14034e+00_rb,0.18704e+00_rb, &\n        & 0.23374e+00_rb,0.28042e+00_rb,0.32702e+00_rb,0.36794e+00_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.79385e-01_rb,0.76263e-01_rb,0.87808e-01_rb,0.12001e+00_rb,0.15997e+00_rb, &\n        & 0.19992e+00_rb,0.23984e+00_rb,0.27971e+00_rb,0.31814e+00_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.77666e-01_rb,0.75357e-01_rb,0.89439e-01_rb,0.12673e+00_rb,0.16892e+00_rb, &\n        & 0.21110e+00_rb,0.25327e+00_rb,0.29539e+00_rb,0.33569e+00_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.76193e-01_rb,0.74694e-01_rb,0.92082e-01_rb,0.13335e+00_rb,0.17774e+00_rb, &\n        & 0.22213e+00_rb,0.26651e+00_rb,0.31084e+00_rb,0.35313e+00_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.75335e-01_rb,0.74405e-01_rb,0.95067e-01_rb,0.13953e+00_rb,0.18597e+00_rb, &\n        & 0.23241e+00_rb,0.27884e+00_rb,0.32518e+00_rb,0.36942e+00_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.74635e-01_rb,0.74698e-01_rb,0.98457e-01_rb,0.14565e+00_rb,0.19414e+00_rb, &\n        & 0.24262e+00_rb,0.29108e+00_rb,0.33947e+00_rb,0.38555e+00_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.89595e-01_rb,0.85781e-01_rb,0.93997e-01_rb,0.12072e+00_rb,0.16001e+00_rb, &\n        & 0.19998e+00_rb,0.23994e+00_rb,0.27984e+00_rb,0.31934e+00_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.87421e-01_rb,0.84747e-01_rb,0.95233e-01_rb,0.12788e+00_rb,0.17024e+00_rb, &\n        & 0.21274e+00_rb,0.25525e+00_rb,0.29772e+00_rb,0.33967e+00_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.85503e-01_rb,0.83808e-01_rb,0.97531e-01_rb,0.13512e+00_rb,0.18009e+00_rb, &\n        & 0.22508e+00_rb,0.27005e+00_rb,0.31493e+00_rb,0.35929e+00_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.84061e-01_rb,0.83216e-01_rb,0.10039e+00_rb,0.14194e+00_rb,0.18919e+00_rb, &\n        & 0.23644e+00_rb,0.28372e+00_rb,0.33088e+00_rb,0.37743e+00_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.83141e-01_rb,0.83249e-01_rb,0.10352e+00_rb,0.14853e+00_rb,0.19798e+00_rb, &\n        & 0.24744e+00_rb,0.29688e+00_rb,0.34622e+00_rb,0.39491e+00_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.10093e+00_rb,0.96180e-01_rb,0.10202e+00_rb,0.12191e+00_rb,0.15810e+00_rb, &\n        & 0.19761e+00_rb,0.23710e+00_rb,0.27651e+00_rb,0.31584e+00_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.98348e-01_rb,0.95154e-01_rb,0.10279e+00_rb,0.12897e+00_rb,0.16954e+00_rb, &\n        & 0.21190e+00_rb,0.25425e+00_rb,0.29655e+00_rb,0.33869e+00_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.96078e-01_rb,0.94065e-01_rb,0.10459e+00_rb,0.13623e+00_rb,0.18035e+00_rb, &\n        & 0.22539e+00_rb,0.27041e+00_rb,0.31537e+00_rb,0.36019e+00_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.94202e-01_rb,0.93296e-01_rb,0.10703e+00_rb,0.14326e+00_rb,0.19057e+00_rb, &\n        & 0.23817e+00_rb,0.28575e+00_rb,0.33330e+00_rb,0.38060e+00_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.93055e-01_rb,0.92935e-01_rb,0.10982e+00_rb,0.15042e+00_rb,0.20048e+00_rb, &\n        & 0.25056e+00_rb,0.30061e+00_rb,0.35061e+00_rb,0.40035e+00_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.11421e+00_rb,0.10796e+00_rb,0.11173e+00_rb,0.12476e+00_rb,0.15549e+00_rb, &\n        & 0.19408e+00_rb,0.23286e+00_rb,0.27161e+00_rb,0.31032e+00_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.11123e+00_rb,0.10718e+00_rb,0.11218e+00_rb,0.13121e+00_rb,0.16775e+00_rb, &\n        & 0.20966e+00_rb,0.25155e+00_rb,0.29340e+00_rb,0.33523e+00_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.10875e+00_rb,0.10588e+00_rb,0.11334e+00_rb,0.13798e+00_rb,0.17972e+00_rb, &\n        & 0.22462e+00_rb,0.26950e+00_rb,0.31433e+00_rb,0.35914e+00_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.10666e+00_rb,0.10458e+00_rb,0.11529e+00_rb,0.14519e+00_rb,0.19132e+00_rb, &\n        & 0.23911e+00_rb,0.28688e+00_rb,0.33463e+00_rb,0.38232e+00_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.10502e+00_rb,0.10381e+00_rb,0.11770e+00_rb,0.15287e+00_rb,0.20267e+00_rb, &\n        & 0.25329e+00_rb,0.30392e+00_rb,0.35446e+00_rb,0.40496e+00_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.12988e+00_rb,0.12138e+00_rb,0.12291e+00_rb,0.12930e+00_rb,0.15315e+00_rb, &\n        & 0.18907e+00_rb,0.22686e+00_rb,0.26460e+00_rb,0.30239e+00_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.12649e+00_rb,0.12054e+00_rb,0.12314e+00_rb,0.13530e+00_rb,0.16601e+00_rb, &\n        & 0.20667e+00_rb,0.24798e+00_rb,0.28925e+00_rb,0.33056e+00_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.12370e+00_rb,0.11924e+00_rb,0.12400e+00_rb,0.14174e+00_rb,0.17907e+00_rb, &\n        & 0.22369e+00_rb,0.26838e+00_rb,0.31304e+00_rb,0.35775e+00_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.12121e+00_rb,0.11770e+00_rb,0.12551e+00_rb,0.14889e+00_rb,0.19207e+00_rb, &\n        & 0.24005e+00_rb,0.28802e+00_rb,0.33592e+00_rb,0.38391e+00_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.11892e+00_rb,0.11635e+00_rb,0.12739e+00_rb,0.15666e+00_rb,0.20470e+00_rb, &\n        & 0.25583e+00_rb,0.30694e+00_rb,0.35802e+00_rb,0.40917e+00_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.14795e+00_rb,0.13669e+00_rb,0.13564e+00_rb,0.13646e+00_rb,0.15231e+00_rb, &\n        & 0.18310e+00_rb,0.21966e+00_rb,0.25622e+00_rb,0.29284e+00_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.14430e+00_rb,0.13540e+00_rb,0.13550e+00_rb,0.14118e+00_rb,0.16490e+00_rb, &\n        & 0.20238e+00_rb,0.24284e+00_rb,0.28324e+00_rb,0.32374e+00_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.14109e+00_rb,0.13403e+00_rb,0.13585e+00_rb,0.14713e+00_rb,0.17836e+00_rb, &\n        & 0.22126e+00_rb,0.26548e+00_rb,0.30963e+00_rb,0.35392e+00_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.13807e+00_rb,0.13250e+00_rb,0.13707e+00_rb,0.15422e+00_rb,0.19232e+00_rb, &\n        & 0.23967e+00_rb,0.28757e+00_rb,0.33540e+00_rb,0.38338e+00_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.13514e+00_rb,0.13080e+00_rb,0.13878e+00_rb,0.16197e+00_rb,0.20594e+00_rb, &\n        & 0.25719e+00_rb,0.30860e+00_rb,0.35994e+00_rb,0.41142e+00_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.16812e+00_rb,0.15406e+00_rb,0.15051e+00_rb,0.14632e+00_rb,0.15371e+00_rb, &\n        & 0.17730e+00_rb,0.21108e+00_rb,0.24622e+00_rb,0.28143e+00_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.16420e+00_rb,0.15230e+00_rb,0.14950e+00_rb,0.14998e+00_rb,0.16549e+00_rb, &\n        & 0.19706e+00_rb,0.23609e+00_rb,0.27539e+00_rb,0.31477e+00_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.16053e+00_rb,0.15077e+00_rb,0.14903e+00_rb,0.15488e+00_rb,0.17883e+00_rb, &\n        & 0.21740e+00_rb,0.26082e+00_rb,0.30423e+00_rb,0.34775e+00_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.15694e+00_rb,0.14891e+00_rb,0.14991e+00_rb,0.16140e+00_rb,0.19301e+00_rb, &\n        & 0.23753e+00_rb,0.28500e+00_rb,0.33244e+00_rb,0.37999e+00_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.15342e+00_rb,0.14670e+00_rb,0.15145e+00_rb,0.16838e+00_rb,0.20634e+00_rb, &\n        & 0.25567e+00_rb,0.30677e+00_rb,0.35784e+00_rb,0.40903e+00_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.18962e+00_rb,0.17319e+00_rb,0.16709e+00_rb,0.15817e+00_rb,0.15908e+00_rb, &\n        & 0.17425e+00_rb,0.20287e+00_rb,0.23665e+00_rb,0.27049e+00_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.18536e+00_rb,0.17110e+00_rb,0.16526e+00_rb,0.16124e+00_rb,0.16946e+00_rb, &\n        & 0.19394e+00_rb,0.22959e+00_rb,0.26781e+00_rb,0.30611e+00_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.18117e+00_rb,0.16910e+00_rb,0.16400e+00_rb,0.16579e+00_rb,0.18236e+00_rb, &\n        & 0.21466e+00_rb,0.25610e+00_rb,0.29874e+00_rb,0.34146e+00_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.17697e+00_rb,0.16677e+00_rb,0.16446e+00_rb,0.17161e+00_rb,0.19589e+00_rb, &\n        & 0.23479e+00_rb,0.28114e+00_rb,0.32796e+00_rb,0.37484e+00_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.17281e+00_rb,0.16399e+00_rb,0.16565e+00_rb,0.17716e+00_rb,0.20808e+00_rb, &\n        & 0.25277e+00_rb,0.30323e+00_rb,0.35372e+00_rb,0.40429e+00_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.21055e+00_rb,0.19254e+00_rb,0.18359e+00_rb,0.17274e+00_rb,0.17137e+00_rb, &\n        & 0.18167e+00_rb,0.20669e+00_rb,0.24044e+00_rb,0.24447e+00_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.20570e+00_rb,0.19011e+00_rb,0.18168e+00_rb,0.17577e+00_rb,0.18167e+00_rb, &\n        & 0.20144e+00_rb,0.23412e+00_rb,0.27305e+00_rb,0.28987e+00_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.20088e+00_rb,0.18755e+00_rb,0.18057e+00_rb,0.18058e+00_rb,0.19347e+00_rb, &\n        & 0.22124e+00_rb,0.26062e+00_rb,0.30406e+00_rb,0.33203e+00_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.19608e+00_rb,0.18439e+00_rb,0.18082e+00_rb,0.18569e+00_rb,0.20488e+00_rb, &\n        & 0.23927e+00_rb,0.28460e+00_rb,0.33201e+00_rb,0.37191e+00_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.19134e+00_rb,0.18083e+00_rb,0.18137e+00_rb,0.19023e+00_rb,0.21563e+00_rb, &\n        & 0.25670e+00_rb,0.30697e+00_rb,0.35809e+00_rb,0.40924e+00_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.23222e+00_rb,0.21282e+00_rb,0.20059e+00_rb,0.18856e+00_rb,0.18455e+00_rb, &\n        & 0.18954e+00_rb,0.20921e+00_rb,0.24116e+00_rb,0.20678e+00_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.22666e+00_rb,0.20982e+00_rb,0.19853e+00_rb,0.19166e+00_rb,0.19460e+00_rb, &\n        & 0.20805e+00_rb,0.23602e+00_rb,0.27405e+00_rb,0.24947e+00_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.22121e+00_rb,0.20649e+00_rb,0.19756e+00_rb,0.19621e+00_rb,0.20452e+00_rb, &\n        & 0.22597e+00_rb,0.26146e+00_rb,0.30478e+00_rb,0.28725e+00_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.21578e+00_rb,0.20240e+00_rb,0.19746e+00_rb,0.20035e+00_rb,0.21392e+00_rb, &\n        & 0.24302e+00_rb,0.28559e+00_rb,0.33317e+00_rb,0.32415e+00_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.21026e+00_rb,0.19816e+00_rb,0.19729e+00_rb,0.20402e+00_rb,0.22339e+00_rb, &\n        & 0.25983e+00_rb,0.30840e+00_rb,0.35980e+00_rb,0.36272e+00_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.25447e+00_rb,0.23356e+00_rb,0.21785e+00_rb,0.20504e+00_rb,0.19797e+00_rb, &\n        & 0.19705e+00_rb,0.20967e+00_rb,0.23794e+00_rb,0.19657e+00_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.24820e+00_rb,0.22981e+00_rb,0.21561e+00_rb,0.20828e+00_rb,0.20711e+00_rb, &\n        & 0.21347e+00_rb,0.23520e+00_rb,0.27088e+00_rb,0.23547e+00_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.24206e+00_rb,0.22556e+00_rb,0.21467e+00_rb,0.21216e+00_rb,0.21525e+00_rb, &\n        & 0.22938e+00_rb,0.25994e+00_rb,0.30180e+00_rb,0.27108e+00_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.23572e+00_rb,0.22056e+00_rb,0.21408e+00_rb,0.21517e+00_rb,0.22293e+00_rb, &\n        & 0.24576e+00_rb,0.28399e+00_rb,0.33091e+00_rb,0.30909e+00_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.22932e+00_rb,0.21557e+00_rb,0.21287e+00_rb,0.21778e+00_rb,0.23130e+00_rb, &\n        & 0.26208e+00_rb,0.30701e+00_rb,0.35815e+00_rb,0.34602e+00_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.79223e-01_rb,0.75104e-01_rb,0.13846e+00_rb,0.20766e+00_rb,0.27685e+00_rb, &\n        & 0.34601e+00_rb,0.41512e+00_rb,0.48397e+00_rb,0.52564e+00_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.76682e-01_rb,0.76450e-01_rb,0.14571e+00_rb,0.21854e+00_rb,0.29137e+00_rb, &\n        & 0.36417e+00_rb,0.43689e+00_rb,0.50929e+00_rb,0.55383e+00_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.74345e-01_rb,0.78213e-01_rb,0.15207e+00_rb,0.22808e+00_rb,0.30407e+00_rb, &\n        & 0.38004e+00_rb,0.45593e+00_rb,0.53155e+00_rb,0.57851e+00_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.72607e-01_rb,0.80130e-01_rb,0.15758e+00_rb,0.23638e+00_rb,0.31513e+00_rb, &\n        & 0.39385e+00_rb,0.47252e+00_rb,0.55092e+00_rb,0.60005e+00_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.72847e-01_rb,0.82433e-01_rb,0.16249e+00_rb,0.24371e+00_rb,0.32491e+00_rb, &\n        & 0.40606e+00_rb,0.48713e+00_rb,0.56790e+00_rb,0.61880e+00_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.89010e-01_rb,0.84748e-01_rb,0.15528e+00_rb,0.23291e+00_rb,0.31052e+00_rb, &\n        & 0.38812e+00_rb,0.46559e+00_rb,0.54282e+00_rb,0.60189e+00_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.86286e-01_rb,0.86390e-01_rb,0.16350e+00_rb,0.24523e+00_rb,0.32694e+00_rb, &\n        & 0.40865e+00_rb,0.49029e+00_rb,0.57166e+00_rb,0.63436e+00_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.83865e-01_rb,0.88469e-01_rb,0.17076e+00_rb,0.25611e+00_rb,0.34145e+00_rb, &\n        & 0.42675e+00_rb,0.51202e+00_rb,0.59693e+00_rb,0.66276e+00_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.81971e-01_rb,0.90581e-01_rb,0.17733e+00_rb,0.26595e+00_rb,0.35459e+00_rb, &\n        & 0.44319e+00_rb,0.53165e+00_rb,0.61981e+00_rb,0.68802e+00_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.81826e-01_rb,0.93085e-01_rb,0.18319e+00_rb,0.27476e+00_rb,0.36629e+00_rb, &\n        & 0.45781e+00_rb,0.54921e+00_rb,0.64033e+00_rb,0.71080e+00_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.10078e+00_rb,0.96469e-01_rb,0.17126e+00_rb,0.25687e+00_rb,0.34247e+00_rb, &\n        & 0.42804e+00_rb,0.51357e+00_rb,0.59868e+00_rb,0.67473e+00_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.97698e-01_rb,0.98193e-01_rb,0.18058e+00_rb,0.27084e+00_rb,0.36108e+00_rb, &\n        & 0.45128e+00_rb,0.54134e+00_rb,0.63128e+00_rb,0.71182e+00_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.95186e-01_rb,0.10027e+00_rb,0.18871e+00_rb,0.28303e+00_rb,0.37733e+00_rb, &\n        & 0.47160e+00_rb,0.56577e+00_rb,0.65972e+00_rb,0.74408e+00_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.93223e-01_rb,0.10231e+00_rb,0.19621e+00_rb,0.29427e+00_rb,0.39234e+00_rb, &\n        & 0.49035e+00_rb,0.58829e+00_rb,0.68586e+00_rb,0.77383e+00_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.93003e-01_rb,0.10431e+00_rb,0.20302e+00_rb,0.30448e+00_rb,0.40592e+00_rb, &\n        & 0.50734e+00_rb,0.60870e+00_rb,0.70970e+00_rb,0.80084e+00_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.11556e+00_rb,0.11007e+00_rb,0.18689e+00_rb,0.28032e+00_rb,0.37373e+00_rb, &\n        & 0.46710e+00_rb,0.56044e+00_rb,0.65346e+00_rb,0.74264e+00_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.11235e+00_rb,0.11167e+00_rb,0.19754e+00_rb,0.29630e+00_rb,0.39502e+00_rb, &\n        & 0.49371e+00_rb,0.59235e+00_rb,0.69064e+00_rb,0.78516e+00_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.10972e+00_rb,0.11355e+00_rb,0.20696e+00_rb,0.31040e+00_rb,0.41383e+00_rb, &\n        & 0.51721e+00_rb,0.62053e+00_rb,0.72352e+00_rb,0.82248e+00_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.10741e+00_rb,0.11554e+00_rb,0.21557e+00_rb,0.32331e+00_rb,0.43105e+00_rb, &\n        & 0.53874e+00_rb,0.64632e+00_rb,0.75359e+00_rb,0.85679e+00_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.10619e+00_rb,0.11745e+00_rb,0.22327e+00_rb,0.33487e+00_rb,0.44646e+00_rb, &\n        & 0.55799e+00_rb,0.66944e+00_rb,0.78056e+00_rb,0.88741e+00_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.13422e+00_rb,0.12619e+00_rb,0.20125e+00_rb,0.30186e+00_rb,0.40245e+00_rb, &\n        & 0.50302e+00_rb,0.60348e+00_rb,0.70372e+00_rb,0.80253e+00_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.13052e+00_rb,0.12743e+00_rb,0.21345e+00_rb,0.32016e+00_rb,0.42685e+00_rb, &\n        & 0.53351e+00_rb,0.64011e+00_rb,0.74634e+00_rb,0.85136e+00_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.12741e+00_rb,0.12876e+00_rb,0.22450e+00_rb,0.33672e+00_rb,0.44894e+00_rb, &\n        & 0.56113e+00_rb,0.67322e+00_rb,0.78494e+00_rb,0.89542e+00_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.12456e+00_rb,0.13045e+00_rb,0.23454e+00_rb,0.35177e+00_rb,0.46901e+00_rb, &\n        & 0.58622e+00_rb,0.70332e+00_rb,0.82004e+00_rb,0.93535e+00_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.12240e+00_rb,0.13234e+00_rb,0.24346e+00_rb,0.36515e+00_rb,0.48682e+00_rb, &\n        & 0.60842e+00_rb,0.72992e+00_rb,0.85105e+00_rb,0.97074e+00_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.15641e+00_rb,0.14549e+00_rb,0.21406e+00_rb,0.31903e+00_rb,0.42534e+00_rb, &\n        & 0.53165e+00_rb,0.63788e+00_rb,0.74385e+00_rb,0.84964e+00_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.15207e+00_rb,0.14574e+00_rb,0.22708e+00_rb,0.34022e+00_rb,0.45360e+00_rb, &\n        & 0.56697e+00_rb,0.68027e+00_rb,0.79322e+00_rb,0.90603e+00_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.14825e+00_rb,0.14665e+00_rb,0.23979e+00_rb,0.35965e+00_rb,0.47950e+00_rb, &\n        & 0.59932e+00_rb,0.71907e+00_rb,0.83857e+00_rb,0.95773e+00_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.14482e+00_rb,0.14790e+00_rb,0.25144e+00_rb,0.37711e+00_rb,0.50278e+00_rb, &\n        & 0.62841e+00_rb,0.75400e+00_rb,0.87926e+00_rb,0.10043e+01_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.14196e+00_rb,0.14929e+00_rb,0.26158e+00_rb,0.39235e+00_rb,0.52312e+00_rb, &\n        & 0.65390e+00_rb,0.78460e+00_rb,0.91489e+00_rb,0.10450e+01_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.18245e+00_rb,0.16813e+00_rb,0.22831e+00_rb,0.33360e+00_rb,0.44476e+00_rb, &\n        & 0.55591e+00_rb,0.66702e+00_rb,0.77783e+00_rb,0.88903e+00_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.17706e+00_rb,0.16763e+00_rb,0.24144e+00_rb,0.35719e+00_rb,0.47625e+00_rb, &\n        & 0.59524e+00_rb,0.71422e+00_rb,0.83295e+00_rb,0.95194e+00_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.17236e+00_rb,0.16756e+00_rb,0.25360e+00_rb,0.37892e+00_rb,0.50520e+00_rb, &\n        & 0.63143e+00_rb,0.75766e+00_rb,0.88351e+00_rb,0.10099e+01_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.16823e+00_rb,0.16816e+00_rb,0.26586e+00_rb,0.39858e+00_rb,0.53141e+00_rb, &\n        & 0.66420e+00_rb,0.79692e+00_rb,0.92941e+00_rb,0.10623e+01_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.16468e+00_rb,0.16894e+00_rb,0.27725e+00_rb,0.41585e+00_rb,0.55445e+00_rb, &\n        & 0.69298e+00_rb,0.83146e+00_rb,0.96971e+00_rb,0.11082e+01_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.21221e+00_rb,0.19366e+00_rb,0.24501e+00_rb,0.34518e+00_rb,0.46022e+00_rb, &\n        & 0.57522e+00_rb,0.69013e+00_rb,0.80500e+00_rb,0.92024e+00_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.20558e+00_rb,0.19344e+00_rb,0.25798e+00_rb,0.37195e+00_rb,0.49597e+00_rb, &\n        & 0.61989e+00_rb,0.74379e+00_rb,0.86737e+00_rb,0.99166e+00_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.19977e+00_rb,0.19260e+00_rb,0.26963e+00_rb,0.39624e+00_rb,0.52829e+00_rb, &\n        & 0.66032e+00_rb,0.79227e+00_rb,0.92396e+00_rb,0.10564e+01_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.19471e+00_rb,0.19196e+00_rb,0.28135e+00_rb,0.41773e+00_rb,0.55693e+00_rb, &\n        & 0.69614e+00_rb,0.83525e+00_rb,0.97412e+00_rb,0.11137e+01_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.19023e+00_rb,0.19149e+00_rb,0.29229e+00_rb,0.43683e+00_rb,0.58243e+00_rb, &\n        & 0.72800e+00_rb,0.87352e+00_rb,0.10186e+01_rb,0.11647e+01_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.24675e+00_rb,0.22274e+00_rb,0.26456e+00_rb,0.35496e+00_rb,0.47007e+00_rb, &\n        & 0.58755e+00_rb,0.70496e+00_rb,0.82216e+00_rb,0.94015e+00_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.23844e+00_rb,0.22223e+00_rb,0.27692e+00_rb,0.38304e+00_rb,0.51028e+00_rb, &\n        & 0.63780e+00_rb,0.76534e+00_rb,0.89259e+00_rb,0.10206e+01_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.23115e+00_rb,0.22076e+00_rb,0.28808e+00_rb,0.40973e+00_rb,0.54629e+00_rb, &\n        & 0.68281e+00_rb,0.81930e+00_rb,0.95554e+00_rb,0.10926e+01_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.22487e+00_rb,0.21935e+00_rb,0.29872e+00_rb,0.43339e+00_rb,0.57783e+00_rb, &\n        & 0.72230e+00_rb,0.86661e+00_rb,0.10108e+01_rb,0.11557e+01_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.21911e+00_rb,0.21807e+00_rb,0.30914e+00_rb,0.45602e+00_rb,0.60799e+00_rb, &\n        & 0.75991e+00_rb,0.91189e+00_rb,0.10634e+01_rb,0.12161e+01_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.28580e+00_rb,0.25610e+00_rb,0.28839e+00_rb,0.36810e+00_rb,0.47645e+00_rb, &\n        & 0.59554e+00_rb,0.71455e+00_rb,0.83348e+00_rb,0.95290e+00_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.27554e+00_rb,0.25438e+00_rb,0.29985e+00_rb,0.39603e+00_rb,0.52141e+00_rb, &\n        & 0.65175e+00_rb,0.78205e+00_rb,0.91212e+00_rb,0.10429e+01_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.26639e+00_rb,0.25230e+00_rb,0.31000e+00_rb,0.42263e+00_rb,0.56074e+00_rb, &\n        & 0.70092e+00_rb,0.84101e+00_rb,0.98094e+00_rb,0.11215e+01_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.25840e+00_rb,0.24961e+00_rb,0.31933e+00_rb,0.44762e+00_rb,0.59663e+00_rb, &\n        & 0.74572e+00_rb,0.89477e+00_rb,0.10436e+01_rb,0.11932e+01_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.25110e+00_rb,0.24738e+00_rb,0.32882e+00_rb,0.47409e+00_rb,0.63208e+00_rb, &\n        & 0.79011e+00_rb,0.94801e+00_rb,0.11055e+01_rb,0.12642e+01_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.32402e+00_rb,0.29231e+00_rb,0.32114e+00_rb,0.39449e+00_rb,0.49965e+00_rb, &\n        & 0.62359e+00_rb,0.74830e+00_rb,0.87279e+00_rb,0.99780e+00_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.31203e+00_rb,0.28940e+00_rb,0.33009e+00_rb,0.42179e+00_rb,0.54573e+00_rb, &\n        & 0.68214e+00_rb,0.81856e+00_rb,0.95481e+00_rb,0.10916e+01_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.30125e+00_rb,0.28556e+00_rb,0.33820e+00_rb,0.44749e+00_rb,0.58870e+00_rb, &\n        & 0.73583e+00_rb,0.88295e+00_rb,0.10298e+01_rb,0.11773e+01_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.29153e+00_rb,0.28159e+00_rb,0.34632e+00_rb,0.47427e+00_rb,0.63035e+00_rb, &\n        & 0.78788e+00_rb,0.94537e+00_rb,0.11027e+01_rb,0.12607e+01_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.28247e+00_rb,0.27799e+00_rb,0.35496e+00_rb,0.50259e+00_rb,0.66996e+00_rb, &\n        & 0.83740e+00_rb,0.10047e+01_rb,0.11720e+01_rb,0.13400e+01_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.36545e+00_rb,0.33140e+00_rb,0.35636e+00_rb,0.42085e+00_rb,0.52250e+00_rb, &\n        & 0.64898e+00_rb,0.77872e+00_rb,0.90834e+00_rb,0.10384e+01_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.35131e+00_rb,0.32685e+00_rb,0.36231e+00_rb,0.44658e+00_rb,0.56903e+00_rb, &\n        & 0.71087e+00_rb,0.85304e+00_rb,0.99503e+00_rb,0.11374e+01_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.33841e+00_rb,0.32098e+00_rb,0.36825e+00_rb,0.47208e+00_rb,0.61613e+00_rb, &\n        & 0.77016e+00_rb,0.92410e+00_rb,0.10779e+01_rb,0.12323e+01_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.32642e+00_rb,0.31543e+00_rb,0.37504e+00_rb,0.50058e+00_rb,0.66195e+00_rb, &\n        & 0.82736e+00_rb,0.99279e+00_rb,0.11580e+01_rb,0.13239e+01_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.31541e+00_rb,0.31006e+00_rb,0.38358e+00_rb,0.53015e+00_rb,0.70512e+00_rb, &\n        & 0.88131e+00_rb,0.10574e+01_rb,0.12335e+01_rb,0.14101e+01_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.40964e+00_rb,0.37314e+00_rb,0.39372e+00_rb,0.44813e+00_rb,0.54521e+00_rb, &\n        & 0.67332e+00_rb,0.80793e+00_rb,0.94247e+00_rb,0.10773e+01_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.39277e+00_rb,0.36624e+00_rb,0.39629e+00_rb,0.47194e+00_rb,0.59295e+00_rb, &\n        & 0.73949e+00_rb,0.88734e+00_rb,0.10350e+01_rb,0.11832e+01_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.37714e+00_rb,0.35816e+00_rb,0.39962e+00_rb,0.49769e+00_rb,0.64296e+00_rb, &\n        & 0.80367e+00_rb,0.96435e+00_rb,0.11249e+01_rb,0.12860e+01_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.36268e+00_rb,0.35049e+00_rb,0.40459e+00_rb,0.52725e+00_rb,0.69174e+00_rb, &\n        & 0.86463e+00_rb,0.10374e+01_rb,0.12101e+01_rb,0.13834e+01_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.34948e+00_rb,0.34295e+00_rb,0.41358e+00_rb,0.55736e+00_rb,0.73767e+00_rb, &\n        & 0.92205e+00_rb,0.11064e+01_rb,0.12905e+01_rb,0.14753e+01_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.90320e-01_rb,0.86361e-01_rb,0.17271e+00_rb,0.25905e+00_rb,0.34536e+00_rb, &\n        & 0.43163e+00_rb,0.51777e+00_rb,0.60344e+00_rb,0.64541e+00_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.88026e-01_rb,0.92415e-01_rb,0.18482e+00_rb,0.27721e+00_rb,0.36957e+00_rb, &\n        & 0.46188e+00_rb,0.55406e+00_rb,0.64572e+00_rb,0.69076e+00_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.85829e-01_rb,0.97954e-01_rb,0.19590e+00_rb,0.29382e+00_rb,0.39172e+00_rb, &\n        & 0.48957e+00_rb,0.58728e+00_rb,0.68449e+00_rb,0.73223e+00_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.83674e-01_rb,0.10298e+00_rb,0.20595e+00_rb,0.30890e+00_rb,0.41183e+00_rb, &\n        & 0.51469e+00_rb,0.61741e+00_rb,0.71956e+00_rb,0.77014e+00_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.84304e-01_rb,0.10756e+00_rb,0.21511e+00_rb,0.32264e+00_rb,0.43014e+00_rb, &\n        & 0.53758e+00_rb,0.64487e+00_rb,0.75164e+00_rb,0.80439e+00_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.99611e-01_rb,0.10121e+00_rb,0.20241e+00_rb,0.30359e+00_rb,0.40479e+00_rb, &\n        & 0.50590e+00_rb,0.60686e+00_rb,0.70732e+00_rb,0.77453e+00_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.97224e-01_rb,0.10870e+00_rb,0.21739e+00_rb,0.32607e+00_rb,0.43471e+00_rb, &\n        & 0.54336e+00_rb,0.65181e+00_rb,0.75967e+00_rb,0.83199e+00_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.94894e-01_rb,0.11558e+00_rb,0.23114e+00_rb,0.34669e+00_rb,0.46220e+00_rb, &\n        & 0.57772e+00_rb,0.69302e+00_rb,0.80771e+00_rb,0.88476e+00_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.92656e-01_rb,0.12184e+00_rb,0.24366e+00_rb,0.36546e+00_rb,0.48723e+00_rb, &\n        & 0.60893e+00_rb,0.73046e+00_rb,0.85132e+00_rb,0.93269e+00_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.93593e-01_rb,0.12749e+00_rb,0.25497e+00_rb,0.38243e+00_rb,0.50985e+00_rb, &\n        & 0.63721e+00_rb,0.76438e+00_rb,0.89083e+00_rb,0.97622e+00_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.11521e+00_rb,0.11614e+00_rb,0.23226e+00_rb,0.34836e+00_rb,0.46443e+00_rb, &\n        & 0.58044e+00_rb,0.69629e+00_rb,0.81149e+00_rb,0.90951e+00_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.11222e+00_rb,0.12555e+00_rb,0.25108e+00_rb,0.37659e+00_rb,0.50206e+00_rb, &\n        & 0.62747e+00_rb,0.75258e+00_rb,0.87709e+00_rb,0.98316e+00_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.10948e+00_rb,0.13410e+00_rb,0.26819e+00_rb,0.40226e+00_rb,0.53629e+00_rb, &\n        & 0.67035e+00_rb,0.80421e+00_rb,0.93726e+00_rb,0.10505e+01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.10697e+00_rb,0.14195e+00_rb,0.28389e+00_rb,0.42580e+00_rb,0.56768e+00_rb, &\n        & 0.70947e+00_rb,0.85107e+00_rb,0.99187e+00_rb,0.11120e+01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.10462e+00_rb,0.14901e+00_rb,0.29800e+00_rb,0.44697e+00_rb,0.59590e+00_rb, &\n        & 0.74474e+00_rb,0.89338e+00_rb,0.10415e+01_rb,0.11678e+01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.13825e+00_rb,0.13238e+00_rb,0.26314e+00_rb,0.39468e+00_rb,0.52618e+00_rb, &\n        & 0.65761e+00_rb,0.78893e+00_rb,0.91946e+00_rb,0.10423e+01_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.13437e+00_rb,0.14320e+00_rb,0.28638e+00_rb,0.42954e+00_rb,0.57266e+00_rb, &\n        & 0.71574e+00_rb,0.85868e+00_rb,0.10008e+01_rb,0.11347e+01_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.13067e+00_rb,0.15392e+00_rb,0.30782e+00_rb,0.46170e+00_rb,0.61554e+00_rb, &\n        & 0.76929e+00_rb,0.92283e+00_rb,0.10757e+01_rb,0.12195e+01_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.12733e+00_rb,0.16364e+00_rb,0.32725e+00_rb,0.49085e+00_rb,0.65439e+00_rb, &\n        & 0.81785e+00_rb,0.98125e+00_rb,0.11437e+01_rb,0.12968e+01_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.12429e+00_rb,0.17242e+00_rb,0.34483e+00_rb,0.51721e+00_rb,0.68954e+00_rb, &\n        & 0.86178e+00_rb,0.10339e+01_rb,0.12053e+01_rb,0.13667e+01_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.16714e+00_rb,0.15294e+00_rb,0.29770e+00_rb,0.44651e+00_rb,0.59528e+00_rb, &\n        & 0.74397e+00_rb,0.89246e+00_rb,0.10402e+01_rb,0.11846e+01_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.16248e+00_rb,0.16289e+00_rb,0.32569e+00_rb,0.48850e+00_rb,0.65127e+00_rb, &\n        & 0.81396e+00_rb,0.97625e+00_rb,0.11381e+01_rb,0.12962e+01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.15803e+00_rb,0.17580e+00_rb,0.35158e+00_rb,0.52733e+00_rb,0.70303e+00_rb, &\n        & 0.87864e+00_rb,0.10540e+01_rb,0.12284e+01_rb,0.13993e+01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.15368e+00_rb,0.18757e+00_rb,0.37512e+00_rb,0.56264e+00_rb,0.75011e+00_rb, &\n        & 0.93747e+00_rb,0.11247e+01_rb,0.13108e+01_rb,0.14933e+01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.14943e+00_rb,0.19824e+00_rb,0.39645e+00_rb,0.59477e+00_rb,0.79303e+00_rb, &\n        & 0.99112e+00_rb,0.11890e+01_rb,0.13858e+01_rb,0.15783e+01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.20217e+00_rb,0.17926e+00_rb,0.33507e+00_rb,0.50257e+00_rb,0.67002e+00_rb, &\n        & 0.83741e+00_rb,0.10046e+01_rb,0.11708e+01_rb,0.13365e+01_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.19655e+00_rb,0.18668e+00_rb,0.36910e+00_rb,0.55360e+00_rb,0.73806e+00_rb, &\n        & 0.92245e+00_rb,0.11065e+01_rb,0.12896e+01_rb,0.14724e+01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.19100e+00_rb,0.20029e+00_rb,0.40054e+00_rb,0.60077e+00_rb,0.80095e+00_rb, &\n        & 0.10010e+01_rb,0.12008e+01_rb,0.13997e+01_rb,0.15979e+01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.18556e+00_rb,0.21465e+00_rb,0.42926e+00_rb,0.64385e+00_rb,0.85838e+00_rb, &\n        & 0.10728e+01_rb,0.12869e+01_rb,0.15000e+01_rb,0.17126e+01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.18024e+00_rb,0.22760e+00_rb,0.45517e+00_rb,0.68271e+00_rb,0.91019e+00_rb, &\n        & 0.11375e+01_rb,0.13647e+01_rb,0.15907e+01_rb,0.18161e+01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.24417e+00_rb,0.21368e+00_rb,0.37507e+00_rb,0.56256e+00_rb,0.75006e+00_rb, &\n        & 0.93742e+00_rb,0.11245e+01_rb,0.13107e+01_rb,0.14982e+01_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.23715e+00_rb,0.21661e+00_rb,0.41650e+00_rb,0.62470e+00_rb,0.83285e+00_rb, &\n        & 0.10409e+01_rb,0.12487e+01_rb,0.14555e+01_rb,0.16638e+01_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.23022e+00_rb,0.22856e+00_rb,0.45485e+00_rb,0.68222e+00_rb,0.90954e+00_rb, &\n        & 0.11367e+01_rb,0.13637e+01_rb,0.15896e+01_rb,0.18170e+01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.22335e+00_rb,0.24491e+00_rb,0.48979e+00_rb,0.73464e+00_rb,0.97947e+00_rb, &\n        & 0.12241e+01_rb,0.14686e+01_rb,0.17118e+01_rb,0.19566e+01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.21655e+00_rb,0.26068e+00_rb,0.52133e+00_rb,0.78194e+00_rb,0.10425e+01_rb, &\n        & 0.13029e+01_rb,0.15630e+01_rb,0.18220e+01_rb,0.20827e+01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.29541e+00_rb,0.25848e+00_rb,0.41687e+00_rb,0.62527e+00_rb,0.83361e+00_rb, &\n        & 0.10419e+01_rb,0.12499e+01_rb,0.14571e+01_rb,0.16668e+01_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.28549e+00_rb,0.25449e+00_rb,0.46724e+00_rb,0.70082e+00_rb,0.93434e+00_rb, &\n        & 0.11678e+01_rb,0.14009e+01_rb,0.16328e+01_rb,0.18680e+01_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.27625e+00_rb,0.26285e+00_rb,0.51364e+00_rb,0.77040e+00_rb,0.10271e+01_rb, &\n        & 0.12838e+01_rb,0.15402e+01_rb,0.17956e+01_rb,0.20538e+01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.26742e+00_rb,0.27883e+00_rb,0.55601e+00_rb,0.83395e+00_rb,0.11118e+01_rb, &\n        & 0.13896e+01_rb,0.16670e+01_rb,0.19436e+01_rb,0.22230e+01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.25873e+00_rb,0.29706e+00_rb,0.59410e+00_rb,0.89109e+00_rb,0.11880e+01_rb, &\n        & 0.14848e+01_rb,0.17812e+01_rb,0.20764e+01_rb,0.23753e+01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.35727e+00_rb,0.31262e+00_rb,0.45859e+00_rb,0.68783e+00_rb,0.91710e+00_rb, &\n        & 0.11462e+01_rb,0.13749e+01_rb,0.16027e+01_rb,0.18342e+01_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.34378e+00_rb,0.30157e+00_rb,0.51912e+00_rb,0.77863e+00_rb,0.10382e+01_rb, &\n        & 0.12975e+01_rb,0.15566e+01_rb,0.18147e+01_rb,0.20764e+01_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.33111e+00_rb,0.30494e+00_rb,0.57506e+00_rb,0.86254e+00_rb,0.11500e+01_rb, &\n        & 0.14374e+01_rb,0.17244e+01_rb,0.20104e+01_rb,0.23002e+01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.31901e+00_rb,0.31860e+00_rb,0.62597e+00_rb,0.93889e+00_rb,0.12519e+01_rb, &\n        & 0.15648e+01_rb,0.18772e+01_rb,0.21885e+01_rb,0.25042e+01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.30738e+00_rb,0.33686e+00_rb,0.67173e+00_rb,0.10075e+01_rb,0.13433e+01_rb, &\n        & 0.16788e+01_rb,0.20142e+01_rb,0.23482e+01_rb,0.26866e+01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.42900e+00_rb,0.37537e+00_rb,0.50742e+00_rb,0.76107e+00_rb,0.10147e+01_rb, &\n        & 0.12682e+01_rb,0.15216e+01_rb,0.17737e+01_rb,0.20298e+01_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.41120e+00_rb,0.35980e+00_rb,0.57626e+00_rb,0.86440e+00_rb,0.11524e+01_rb, &\n        & 0.14403e+01_rb,0.17281e+01_rb,0.20148e+01_rb,0.23052e+01_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.39435e+00_rb,0.35582e+00_rb,0.64201e+00_rb,0.96295e+00_rb,0.12838e+01_rb, &\n        & 0.16046e+01_rb,0.19250e+01_rb,0.22444e+01_rb,0.25680e+01_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.37835e+00_rb,0.36721e+00_rb,0.70220e+00_rb,0.10532e+01_rb,0.14042e+01_rb, &\n        & 0.17550e+01_rb,0.21055e+01_rb,0.24551e+01_rb,0.28089e+01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.36302e+00_rb,0.38402e+00_rb,0.75599e+00_rb,0.11339e+01_rb,0.15118e+01_rb, &\n        & 0.18894e+01_rb,0.22669e+01_rb,0.26429e+01_rb,0.30243e+01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.50130e+00_rb,0.43864e+00_rb,0.59754e+00_rb,0.89626e+00_rb,0.11949e+01_rb, &\n        & 0.14934e+01_rb,0.17919e+01_rb,0.20890e+01_rb,0.23902e+01_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.47862e+00_rb,0.41971e+00_rb,0.67375e+00_rb,0.10106e+01_rb,0.13473e+01_rb, &\n        & 0.16840e+01_rb,0.20203e+01_rb,0.23553e+01_rb,0.26950e+01_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.45729e+00_rb,0.41739e+00_rb,0.74475e+00_rb,0.11171e+01_rb,0.14893e+01_rb, &\n        & 0.18615e+01_rb,0.22335e+01_rb,0.26038e+01_rb,0.29786e+01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.43691e+00_rb,0.42957e+00_rb,0.80967e+00_rb,0.12144e+01_rb,0.16191e+01_rb, &\n        & 0.20236e+01_rb,0.24280e+01_rb,0.28308e+01_rb,0.32389e+01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.41748e+00_rb,0.44621e+00_rb,0.86800e+00_rb,0.13019e+01_rb,0.17360e+01_rb, &\n        & 0.21698e+01_rb,0.26031e+01_rb,0.30355e+01_rb,0.34723e+01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.58052e+00_rb,0.50796e+00_rb,0.69775e+00_rb,0.10466e+01_rb,0.13954e+01_rb, &\n        & 0.17440e+01_rb,0.20924e+01_rb,0.24394e+01_rb,0.27908e+01_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.55207e+00_rb,0.48627e+00_rb,0.78177e+00_rb,0.11726e+01_rb,0.15635e+01_rb, &\n        & 0.19543e+01_rb,0.23447e+01_rb,0.27336e+01_rb,0.31273e+01_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.52503e+00_rb,0.48543e+00_rb,0.85881e+00_rb,0.12881e+01_rb,0.17174e+01_rb, &\n        & 0.21467e+01_rb,0.25754e+01_rb,0.30027e+01_rb,0.34355e+01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.49945e+00_rb,0.49746e+00_rb,0.92780e+00_rb,0.13917e+01_rb,0.18554e+01_rb, &\n        & 0.23191e+01_rb,0.27823e+01_rb,0.32446e+01_rb,0.37108e+01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.47536e+00_rb,0.51344e+00_rb,0.98885e+00_rb,0.14832e+01_rb,0.19776e+01_rb, &\n        & 0.24717e+01_rb,0.29655e+01_rb,0.34576e+01_rb,0.39563e+01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.66560e+00_rb,0.58240e+00_rb,0.80598e+00_rb,0.12089e+01_rb,0.16118e+01_rb, &\n        & 0.20145e+01_rb,0.24172e+01_rb,0.28183e+01_rb,0.32240e+01_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.62986e+00_rb,0.55885e+00_rb,0.89794e+00_rb,0.13468e+01_rb,0.17957e+01_rb, &\n        & 0.22443e+01_rb,0.26925e+01_rb,0.31396e+01_rb,0.35914e+01_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.59613e+00_rb,0.55868e+00_rb,0.98065e+00_rb,0.14709e+01_rb,0.19611e+01_rb, &\n        & 0.24513e+01_rb,0.29409e+01_rb,0.34293e+01_rb,0.39230e+01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.56427e+00_rb,0.56950e+00_rb,0.10539e+01_rb,0.15808e+01_rb,0.21076e+01_rb, &\n        & 0.26342e+01_rb,0.31605e+01_rb,0.36850e+01_rb,0.42159e+01_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.53530e+00_rb,0.58425e+00_rb,0.11174e+01_rb,0.16761e+01_rb,0.22346e+01_rb, &\n        & 0.27933e+01_rb,0.33512e+01_rb,0.39078e+01_rb,0.44703e+01_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.12810e-03_rb,0.12891e-03_rb,0.12890e-03_rb,0.12713e-03_rb,0.12477e-03_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.10653e-03_rb,0.10667e-03_rb,0.10648e-03_rb,0.10473e-03_rb,0.10293e-03_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.90176e-04_rb,0.90077e-04_rb,0.89286e-04_rb,0.87879e-04_rb,0.85987e-04_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.77704e-04_rb,0.77304e-04_rb,0.75879e-04_rb,0.74246e-04_rb,0.72070e-04_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.67183e-04_rb,0.65906e-04_rb,0.64619e-04_rb,0.63000e-04_rb,0.61056e-04_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.58741e-04_rb,0.57649e-04_rb,0.56028e-04_rb,0.54293e-04_rb,0.52506e-04_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.51839e-04_rb,0.50715e-04_rb,0.49053e-04_rb,0.47195e-04_rb,0.45368e-04_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.44321e-04_rb,0.43297e-04_rb,0.41923e-04_rb,0.40298e-04_rb,0.38744e-04_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.37527e-04_rb,0.36516e-04_rb,0.35380e-04_rb,0.34037e-04_rb,0.32951e-04_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.31752e-04_rb,0.30703e-04_rb,0.29586e-04_rb,0.28499e-04_rb,0.27519e-04_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.26638e-04_rb,0.25643e-04_rb,0.24693e-04_rb,0.23832e-04_rb,0.22913e-04_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.22325e-04_rb,0.21480e-04_rb,0.20621e-04_rb,0.19867e-04_rb,0.19066e-04_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.18764e-04_rb,0.17998e-04_rb,0.17269e-04_rb,0.16527e-04_rb,0.15821e-04_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.15650e-04_rb,0.14992e-04_rb,0.14356e-04_rb,0.13710e-04_rb,0.13119e-04_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.13054e-04_rb,0.12477e-04_rb,0.11929e-04_rb,0.11393e-04_rb,0.10948e-04_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.10852e-04_rb,0.10390e-04_rb,0.99195e-05_rb,0.95020e-05_rb,0.91993e-05_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.90990e-05_rb,0.87209e-05_rb,0.83384e-05_rb,0.80029e-05_rb,0.77245e-05_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.77169e-05_rb,0.73662e-05_rb,0.70552e-05_rb,0.68029e-05_rb,0.65749e-05_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.65250e-05_rb,0.62364e-05_rb,0.60172e-05_rb,0.57804e-05_rb,0.55504e-05_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.55167e-05_rb,0.53021e-05_rb,0.51088e-05_rb,0.49113e-05_rb,0.47150e-05_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.47261e-05_rb,0.45530e-05_rb,0.43641e-05_rb,0.41725e-05_rb,0.40077e-05_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.40646e-05_rb,0.39062e-05_rb,0.37472e-05_rb,0.36009e-05_rb,0.34549e-05_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.35479e-05_rb,0.34057e-05_rb,0.32704e-05_rb,0.31420e-05_rb,0.30219e-05_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.31353e-05_rb,0.30270e-05_rb,0.29024e-05_rb,0.27776e-05_rb,0.26600e-05_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.26595e-05_rb,0.25621e-05_rb,0.24646e-05_rb,0.23582e-05_rb,0.22563e-05_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.22468e-05_rb,0.21651e-05_rb,0.20812e-05_rb,0.20043e-05_rb,0.19221e-05_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.19009e-05_rb,0.18335e-05_rb,0.17685e-05_rb,0.17039e-05_rb,0.16406e-05_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.15746e-05_rb,0.15188e-05_rb,0.14669e-05_rb,0.14148e-05_rb,0.13668e-05_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.13001e-05_rb,0.12561e-05_rb,0.12122e-05_rb,0.11718e-05_rb,0.11306e-05_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.10716e-05_rb,0.10380e-05_rb,0.10018e-05_rb,0.96745e-06_rb,0.93475e-06_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.87651e-06_rb,0.85172e-06_rb,0.82453e-06_rb,0.79560e-06_rb,0.77011e-06_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.71565e-06_rb,0.69699e-06_rb,0.67699e-06_rb,0.65403e-06_rb,0.63202e-06_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.58391e-06_rb,0.56946e-06_rb,0.55318e-06_rb,0.53575e-06_rb,0.51774e-06_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.47490e-06_rb,0.46531e-06_rb,0.45175e-06_rb,0.43686e-06_rb,0.42260e-06_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.38718e-06_rb,0.37610e-06_rb,0.36650e-06_rb,0.35580e-06_rb,0.34417e-06_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.31464e-06_rb,0.30494e-06_rb,0.29872e-06_rb,0.29096e-06_rb,0.28230e-06_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.25542e-06_rb,0.24885e-06_rb,0.24314e-06_rb,0.23745e-06_rb,0.23092e-06_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.20741e-06_rb,0.20175e-06_rb,0.19699e-06_rb,0.19305e-06_rb,0.18791e-06_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.16760e-06_rb,0.16406e-06_rb,0.15993e-06_rb,0.15631e-06_rb,0.15327e-06_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.13579e-06_rb,0.13287e-06_rb,0.12985e-06_rb,0.12725e-06_rb,0.12470e-06_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.11006e-06_rb,0.10757e-06_rb,0.10568e-06_rb,0.10314e-06_rb,0.10101e-06_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.88711e-07_rb,0.87131e-07_rb,0.85162e-07_rb,0.83405e-07_rb,0.81585e-07_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.70889e-07_rb,0.69917e-07_rb,0.68692e-07_rb,0.67463e-07_rb,0.66047e-07_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.56659e-07_rb,0.56077e-07_rb,0.55518e-07_rb,0.54462e-07_rb,0.53563e-07_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.45380e-07_rb,0.45159e-07_rb,0.44718e-07_rb,0.44063e-07_rb,0.43116e-07_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.35962e-07_rb,0.36177e-07_rb,0.35997e-07_rb,0.35600e-07_rb,0.34340e-07_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.28578e-07_rb,0.28924e-07_rb,0.28901e-07_rb,0.28176e-07_rb,0.27246e-07_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.63215e-03_rb,0.64756e-03_rb,0.65734e-03_rb,0.66515e-03_rb,0.67077e-03_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.52378e-03_rb,0.53631e-03_rb,0.54485e-03_rb,0.55071e-03_rb,0.55605e-03_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.43777e-03_rb,0.44814e-03_rb,0.45521e-03_rb,0.46124e-03_rb,0.46700e-03_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.37023e-03_rb,0.37869e-03_rb,0.38568e-03_rb,0.39070e-03_rb,0.39760e-03_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.31753e-03_rb,0.32632e-03_rb,0.33254e-03_rb,0.33817e-03_rb,0.34312e-03_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.27580e-03_rb,0.28310e-03_rb,0.28915e-03_rb,0.29488e-03_rb,0.29855e-03_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.24129e-03_rb,0.24697e-03_rb,0.25302e-03_rb,0.25785e-03_rb,0.26137e-03_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.20470e-03_rb,0.21040e-03_rb,0.21552e-03_rb,0.21963e-03_rb,0.22260e-03_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.17290e-03_rb,0.17782e-03_rb,0.18188e-03_rb,0.18513e-03_rb,0.18794e-03_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.14599e-03_rb,0.15063e-03_rb,0.15389e-03_rb,0.15682e-03_rb,0.15965e-03_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.12390e-03_rb,0.12797e-03_rb,0.13071e-03_rb,0.13347e-03_rb,0.13571e-03_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.10553e-03_rb,0.10875e-03_rb,0.11134e-03_rb,0.11351e-03_rb,0.11513e-03_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.90263e-04_rb,0.92560e-04_rb,0.94667e-04_rb,0.96225e-04_rb,0.97041e-04_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.76542e-04_rb,0.78227e-04_rb,0.79755e-04_rb,0.80768e-04_rb,0.81412e-04_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.64562e-04_rb,0.66024e-04_rb,0.67121e-04_rb,0.67878e-04_rb,0.67992e-04_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.54587e-04_rb,0.55668e-04_rb,0.56439e-04_rb,0.56778e-04_rb,0.56649e-04_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.46248e-04_rb,0.46885e-04_rb,0.47469e-04_rb,0.47476e-04_rb,0.47464e-04_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.39084e-04_rb,0.39701e-04_rb,0.39836e-04_rb,0.39919e-04_rb,0.39762e-04_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.33297e-04_rb,0.33670e-04_rb,0.33781e-04_rb,0.33571e-04_rb,0.33418e-04_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.28475e-04_rb,0.28479e-04_rb,0.28352e-04_rb,0.28202e-04_rb,0.28107e-04_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.24023e-04_rb,0.23977e-04_rb,0.23874e-04_rb,0.23858e-04_rb,0.23729e-04_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.20276e-04_rb,0.20314e-04_rb,0.20262e-04_rb,0.20205e-04_rb,0.20013e-04_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.17177e-04_rb,0.17179e-04_rb,0.17181e-04_rb,0.17048e-04_rb,0.16915e-04_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.14586e-04_rb,0.14632e-04_rb,0.14569e-04_rb,0.14465e-04_rb,0.14404e-04_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.12165e-04_rb,0.12220e-04_rb,0.12164e-04_rb,0.12099e-04_rb,0.12036e-04_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.10178e-04_rb,0.10224e-04_rb,0.10201e-04_rb,0.10134e-04_rb,0.10060e-04_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.85622e-05_rb,0.85826e-05_rb,0.85520e-05_rb,0.85109e-05_rb,0.84378e-05_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.70263e-05_rb,0.70549e-05_rb,0.70334e-05_rb,0.70000e-05_rb,0.69500e-05_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.57510e-05_rb,0.57749e-05_rb,0.57692e-05_rb,0.57384e-05_rb,0.57121e-05_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.47038e-05_rb,0.47261e-05_rb,0.47278e-05_rb,0.47023e-05_rb,0.46867e-05_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.38249e-05_rb,0.38339e-05_rb,0.38498e-05_rb,0.38364e-05_rb,0.38125e-05_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.30973e-05_rb,0.31120e-05_rb,0.31166e-05_rb,0.31203e-05_rb,0.31022e-05_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.25085e-05_rb,0.25263e-05_rb,0.25293e-05_rb,0.25328e-05_rb,0.25249e-05_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.20261e-05_rb,0.20479e-05_rb,0.20565e-05_rb,0.20575e-05_rb,0.20588e-05_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.16319e-05_rb,0.16639e-05_rb,0.16745e-05_rb,0.16740e-05_rb,0.16759e-05_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.13097e-05_rb,0.13449e-05_rb,0.13611e-05_rb,0.13624e-05_rb,0.13589e-05_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.10521e-05_rb,0.10847e-05_rb,0.11052e-05_rb,0.11102e-05_rb,0.11085e-05_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.84668e-06_rb,0.87235e-06_rb,0.89544e-06_rb,0.90607e-06_rb,0.90616e-06_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.68060e-06_rb,0.70180e-06_rb,0.72187e-06_rb,0.73562e-06_rb,0.73800e-06_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.54634e-06_rb,0.56481e-06_rb,0.58256e-06_rb,0.59543e-06_rb,0.60122e-06_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.43866e-06_rb,0.45577e-06_rb,0.46957e-06_rb,0.48176e-06_rb,0.48940e-06_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.35062e-06_rb,0.36647e-06_rb,0.37935e-06_rb,0.38978e-06_rb,0.39697e-06_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.27883e-06_rb,0.29514e-06_rb,0.30397e-06_rb,0.31251e-06_rb,0.32004e-06_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.22098e-06_rb,0.23550e-06_rb,0.24289e-06_rb,0.25018e-06_rb,0.25708e-06_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.17295e-06_rb,0.18624e-06_rb,0.19332e-06_rb,0.19934e-06_rb,0.20587e-06_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.13623e-06_rb,0.14680e-06_rb,0.15403e-06_rb,0.15912e-06_rb,0.16499e-06_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.10864e-06_rb,0.11680e-06_rb,0.12353e-06_rb,0.12840e-06_rb,0.13352e-06_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.21069e-02_rb,0.21571e-02_rb,0.21943e-02_rb,0.22061e-02_rb,0.22124e-02_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.17411e-02_rb,0.17833e-02_rb,0.18097e-02_rb,0.18225e-02_rb,0.18251e-02_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.14440e-02_rb,0.14790e-02_rb,0.14963e-02_rb,0.15066e-02_rb,0.15066e-02_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.11998e-02_rb,0.12261e-02_rb,0.12398e-02_rb,0.12500e-02_rb,0.12487e-02_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.99980e-03_rb,0.10202e-02_rb,0.10332e-02_rb,0.10399e-02_rb,0.10392e-02_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.83805e-03_rb,0.85629e-03_rb,0.86827e-03_rb,0.87303e-03_rb,0.87540e-03_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.70743e-03_rb,0.72381e-03_rb,0.73251e-03_rb,0.73550e-03_rb,0.73931e-03_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.59348e-03_rb,0.60572e-03_rb,0.61137e-03_rb,0.61496e-03_rb,0.61761e-03_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.49556e-03_rb,0.50488e-03_rb,0.50987e-03_rb,0.51421e-03_rb,0.51581e-03_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.41461e-03_rb,0.42145e-03_rb,0.42584e-03_rb,0.42969e-03_rb,0.43055e-03_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.34683e-03_rb,0.35181e-03_rb,0.35660e-03_rb,0.35911e-03_rb,0.35958e-03_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.29004e-03_rb,0.29383e-03_rb,0.29787e-03_rb,0.29964e-03_rb,0.30042e-03_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.24146e-03_rb,0.24561e-03_rb,0.24879e-03_rb,0.25053e-03_rb,0.25134e-03_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.20160e-03_rb,0.20537e-03_rb,0.20774e-03_rb,0.20928e-03_rb,0.21023e-03_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.16916e-03_rb,0.17226e-03_rb,0.17386e-03_rb,0.17529e-03_rb,0.17634e-03_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.14183e-03_rb,0.14414e-03_rb,0.14604e-03_rb,0.14741e-03_rb,0.14844e-03_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.11954e-03_rb,0.12161e-03_rb,0.12286e-03_rb,0.12386e-03_rb,0.12448e-03_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.10067e-03_rb,0.10205e-03_rb,0.10331e-03_rb,0.10409e-03_rb,0.10476e-03_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.85014e-04_rb,0.86248e-04_rb,0.87024e-04_rb,0.87958e-04_rb,0.88579e-04_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.71930e-04_rb,0.73074e-04_rb,0.73985e-04_rb,0.74934e-04_rb,0.74848e-04_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.61205e-04_rb,0.62259e-04_rb,0.63209e-04_rb,0.63383e-04_rb,0.63466e-04_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.52046e-04_rb,0.52896e-04_rb,0.53420e-04_rb,0.53516e-04_rb,0.53755e-04_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.44380e-04_rb,0.45121e-04_rb,0.45277e-04_rb,0.45604e-04_rb,0.45761e-04_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.38058e-04_rb,0.38409e-04_rb,0.38657e-04_rb,0.38813e-04_rb,0.38628e-04_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.31735e-04_rb,0.31990e-04_rb,0.32199e-04_rb,0.32288e-04_rb,0.32179e-04_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.26378e-04_rb,0.26667e-04_rb,0.26778e-04_rb,0.26840e-04_rb,0.26760e-04_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.21949e-04_rb,0.22195e-04_rb,0.22340e-04_rb,0.22330e-04_rb,0.22281e-04_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.18001e-04_rb,0.18209e-04_rb,0.18338e-04_rb,0.18376e-04_rb,0.18309e-04_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.14715e-04_rb,0.14906e-04_rb,0.15025e-04_rb,0.15098e-04_rb,0.15026e-04_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.12019e-04_rb,0.12197e-04_rb,0.12312e-04_rb,0.12380e-04_rb,0.12346e-04_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.97566e-05_rb,0.99318e-05_rb,0.10036e-04_rb,0.10096e-04_rb,0.10118e-04_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.78810e-05_rb,0.80716e-05_rb,0.81637e-05_rb,0.82202e-05_rb,0.82608e-05_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.63541e-05_rb,0.65171e-05_rb,0.66330e-05_rb,0.66977e-05_rb,0.67239e-05_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.51077e-05_rb,0.52428e-05_rb,0.53636e-05_rb,0.54363e-05_rb,0.54693e-05_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.40883e-05_rb,0.42196e-05_rb,0.43199e-05_rb,0.44074e-05_rb,0.44462e-05_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.32909e-05_rb,0.33941e-05_rb,0.34746e-05_rb,0.35546e-05_rb,0.36089e-05_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.26401e-05_rb,0.27269e-05_rb,0.28003e-05_rb,0.28616e-05_rb,0.29188e-05_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.21222e-05_rb,0.22032e-05_rb,0.22638e-05_rb,0.23127e-05_rb,0.23603e-05_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.17056e-05_rb,0.17838e-05_rb,0.18386e-05_rb,0.18804e-05_rb,0.19134e-05_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.13662e-05_rb,0.14333e-05_rb,0.14855e-05_rb,0.15238e-05_rb,0.15521e-05_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.10889e-05_rb,0.11445e-05_rb,0.11955e-05_rb,0.12300e-05_rb,0.12560e-05_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.86251e-06_rb,0.91556e-06_rb,0.95999e-06_rb,0.99454e-06_rb,0.10171e-05_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.68640e-06_rb,0.72868e-06_rb,0.77389e-06_rb,0.80627e-06_rb,0.82696e-06_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.54334e-06_rb,0.58339e-06_rb,0.61953e-06_rb,0.65190e-06_rb,0.67285e-06_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.43336e-06_rb,0.46511e-06_rb,0.49561e-06_rb,0.52337e-06_rb,0.54491e-06_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.34428e-06_rb,0.37236e-06_rb,0.39687e-06_rb,0.42017e-06_rb,0.43790e-06_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.27883e-06_rb,0.30237e-06_rb,0.32096e-06_rb,0.33978e-06_rb,0.35485e-06_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.52806e-02_rb,0.53551e-02_rb,0.53836e-02_rb,0.53810e-02_rb,0.53413e-02_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.43594e-02_rb,0.44114e-02_rb,0.44268e-02_rb,0.44183e-02_rb,0.43877e-02_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.36080e-02_rb,0.36421e-02_rb,0.36603e-02_rb,0.36540e-02_rb,0.36307e-02_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.30007e-02_rb,0.30324e-02_rb,0.30479e-02_rb,0.30377e-02_rb,0.30175e-02_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.25113e-02_rb,0.25415e-02_rb,0.25489e-02_rb,0.25428e-02_rb,0.25281e-02_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.21119e-02_rb,0.21340e-02_rb,0.21396e-02_rb,0.21381e-02_rb,0.21232e-02_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.17705e-02_rb,0.17884e-02_rb,0.17942e-02_rb,0.17931e-02_rb,0.17819e-02_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.14714e-02_rb,0.14854e-02_rb,0.14921e-02_rb,0.14920e-02_rb,0.14874e-02_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.12224e-02_rb,0.12349e-02_rb,0.12432e-02_rb,0.12411e-02_rb,0.12395e-02_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.10170e-02_rb,0.10281e-02_rb,0.10319e-02_rb,0.10310e-02_rb,0.10286e-02_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.84681e-03_rb,0.85484e-03_rb,0.85517e-03_rb,0.85545e-03_rb,0.85571e-03_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.70330e-03_rb,0.70875e-03_rb,0.71078e-03_rb,0.71261e-03_rb,0.71112e-03_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.58481e-03_rb,0.58870e-03_rb,0.59157e-03_rb,0.59305e-03_rb,0.59234e-03_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.48640e-03_rb,0.49044e-03_rb,0.49395e-03_rb,0.49468e-03_rb,0.49466e-03_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.40472e-03_rb,0.40915e-03_rb,0.41235e-03_rb,0.41278e-03_rb,0.41345e-03_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.33826e-03_rb,0.34205e-03_rb,0.34364e-03_rb,0.34480e-03_rb,0.34528e-03_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.28308e-03_rb,0.28627e-03_rb,0.28792e-03_rb,0.28910e-03_rb,0.28958e-03_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.23759e-03_rb,0.23994e-03_rb,0.24196e-03_rb,0.24295e-03_rb,0.24270e-03_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.19993e-03_rb,0.20202e-03_rb,0.20390e-03_rb,0.20456e-03_rb,0.20411e-03_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.16851e-03_rb,0.17060e-03_rb,0.17151e-03_rb,0.17169e-03_rb,0.17133e-03_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.14275e-03_rb,0.14392e-03_rb,0.14445e-03_rb,0.14452e-03_rb,0.14399e-03_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.12060e-03_rb,0.12142e-03_rb,0.12181e-03_rb,0.12165e-03_rb,0.12105e-03_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.10168e-03_rb,0.10240e-03_rb,0.10276e-03_rb,0.10261e-03_rb,0.10202e-03_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.85780e-04_rb,0.86636e-04_rb,0.86815e-04_rb,0.86780e-04_rb,0.86722e-04_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.71540e-04_rb,0.72201e-04_rb,0.72422e-04_rb,0.72501e-04_rb,0.72398e-04_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.59609e-04_rb,0.60152e-04_rb,0.60443e-04_rb,0.60540e-04_rb,0.60534e-04_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.49681e-04_rb,0.50194e-04_rb,0.50481e-04_rb,0.50649e-04_rb,0.50643e-04_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.40815e-04_rb,0.41335e-04_rb,0.41565e-04_rb,0.41729e-04_rb,0.41776e-04_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.33476e-04_rb,0.33932e-04_rb,0.34171e-04_rb,0.34301e-04_rb,0.34397e-04_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.27419e-04_rb,0.27824e-04_rb,0.28083e-04_rb,0.28221e-04_rb,0.28296e-04_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.22349e-04_rb,0.22753e-04_rb,0.22975e-04_rb,0.23100e-04_rb,0.23164e-04_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.18197e-04_rb,0.18488e-04_rb,0.18747e-04_rb,0.18878e-04_rb,0.18943e-04_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.14815e-04_rb,0.15081e-04_rb,0.15284e-04_rb,0.15408e-04_rb,0.15493e-04_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.12046e-04_rb,0.12304e-04_rb,0.12476e-04_rb,0.12590e-04_rb,0.12654e-04_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.97834e-05_rb,0.10018e-04_rb,0.10187e-04_rb,0.10295e-04_rb,0.10365e-04_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.79058e-05_rb,0.81583e-05_rb,0.83158e-05_rb,0.84259e-05_rb,0.84791e-05_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.63847e-05_rb,0.66212e-05_rb,0.67735e-05_rb,0.68818e-05_rb,0.69382e-05_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.51619e-05_rb,0.53698e-05_rb,0.55239e-05_rb,0.56230e-05_rb,0.56931e-05_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.41764e-05_rb,0.43546e-05_rb,0.45018e-05_rb,0.45927e-05_rb,0.46609e-05_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.33696e-05_rb,0.35302e-05_rb,0.36585e-05_rb,0.37548e-05_rb,0.38091e-05_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.27142e-05_rb,0.28585e-05_rb,0.29700e-05_rb,0.30632e-05_rb,0.31163e-05_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.21974e-05_rb,0.23176e-05_rb,0.24169e-05_rb,0.24980e-05_rb,0.25555e-05_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.17820e-05_rb,0.18827e-05_rb,0.19647e-05_rb,0.20347e-05_rb,0.20895e-05_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.14445e-05_rb,0.15274e-05_rb,0.15999e-05_rb,0.16558e-05_rb,0.17004e-05_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.11612e-05_rb,0.12390e-05_rb,0.13020e-05_rb,0.13508e-05_rb,0.13881e-05_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.93606e-06_rb,0.10017e-05_rb,0.10598e-05_rb,0.11016e-05_rb,0.11367e-05_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.76682e-06_rb,0.82318e-06_rb,0.87281e-06_rb,0.91208e-06_rb,0.94037e-06_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.12856e-01_rb,0.13079e-01_rb,0.13167e-01_rb,0.13177e-01_rb,0.13097e-01_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.10708e-01_rb,0.10853e-01_rb,0.10911e-01_rb,0.10898e-01_rb,0.10814e-01_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.88690e-02_rb,0.89759e-02_rb,0.90116e-02_rb,0.89730e-02_rb,0.88895e-02_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.73377e-02_rb,0.74116e-02_rb,0.74224e-02_rb,0.73845e-02_rb,0.73097e-02_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.61050e-02_rb,0.61465e-02_rb,0.61522e-02_rb,0.61190e-02_rb,0.60607e-02_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.51170e-02_rb,0.51524e-02_rb,0.51567e-02_rb,0.51299e-02_rb,0.50853e-02_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.42872e-02_rb,0.43210e-02_rb,0.43249e-02_rb,0.43090e-02_rb,0.42772e-02_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.35726e-02_rb,0.35987e-02_rb,0.36030e-02_rb,0.35888e-02_rb,0.35606e-02_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.29687e-02_rb,0.29865e-02_rb,0.29887e-02_rb,0.29805e-02_rb,0.29536e-02_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.24631e-02_rb,0.24766e-02_rb,0.24818e-02_rb,0.24706e-02_rb,0.24511e-02_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.20423e-02_rb,0.20574e-02_rb,0.20622e-02_rb,0.20550e-02_rb,0.20390e-02_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.17009e-02_rb,0.17137e-02_rb,0.17151e-02_rb,0.17066e-02_rb,0.16944e-02_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.14175e-02_rb,0.14281e-02_rb,0.14264e-02_rb,0.14202e-02_rb,0.14101e-02_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.11824e-02_rb,0.11879e-02_rb,0.11852e-02_rb,0.11799e-02_rb,0.11727e-02_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.98538e-03_rb,0.98799e-03_rb,0.98648e-03_rb,0.98258e-03_rb,0.97798e-03_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.82156e-03_rb,0.82317e-03_rb,0.82299e-03_rb,0.82154e-03_rb,0.81913e-03_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.68689e-03_rb,0.68935e-03_rb,0.68992e-03_rb,0.69010e-03_rb,0.68854e-03_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.57658e-03_rb,0.57999e-03_rb,0.58178e-03_rb,0.58209e-03_rb,0.58220e-03_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.48638e-03_rb,0.49049e-03_rb,0.49261e-03_rb,0.49405e-03_rb,0.49565e-03_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.41128e-03_rb,0.41527e-03_rb,0.41847e-03_rb,0.42111e-03_rb,0.42278e-03_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.34942e-03_rb,0.35347e-03_rb,0.35669e-03_rb,0.35970e-03_rb,0.36033e-03_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.29778e-03_rb,0.30183e-03_rb,0.30543e-03_rb,0.30722e-03_rb,0.30756e-03_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.25439e-03_rb,0.25855e-03_rb,0.26145e-03_rb,0.26279e-03_rb,0.26328e-03_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.21688e-03_rb,0.22055e-03_rb,0.22366e-03_rb,0.22472e-03_rb,0.22545e-03_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.18184e-03_rb,0.18525e-03_rb,0.18789e-03_rb,0.18888e-03_rb,0.18981e-03_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.15217e-03_rb,0.15529e-03_rb,0.15752e-03_rb,0.15878e-03_rb,0.15947e-03_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.12738e-03_rb,0.13010e-03_rb,0.13202e-03_rb,0.13325e-03_rb,0.13405e-03_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.10533e-03_rb,0.10771e-03_rb,0.10944e-03_rb,0.11063e-03_rb,0.11132e-03_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.86935e-04_rb,0.89079e-04_rb,0.90576e-04_rb,0.91599e-04_rb,0.92136e-04_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.71757e-04_rb,0.73600e-04_rb,0.74913e-04_rb,0.75823e-04_rb,0.76332e-04_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.58933e-04_rb,0.60448e-04_rb,0.61689e-04_rb,0.62502e-04_rb,0.62968e-04_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.48240e-04_rb,0.49626e-04_rb,0.50671e-04_rb,0.51353e-04_rb,0.51808e-04_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.39365e-04_rb,0.40603e-04_rb,0.41556e-04_rb,0.42201e-04_rb,0.42661e-04_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.32140e-04_rb,0.33199e-04_rb,0.34102e-04_rb,0.34681e-04_rb,0.35122e-04_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.26212e-04_rb,0.27122e-04_rb,0.27914e-04_rb,0.28482e-04_rb,0.28883e-04_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.21367e-04_rb,0.22132e-04_rb,0.22808e-04_rb,0.23366e-04_rb,0.23750e-04_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.17366e-04_rb,0.18036e-04_rb,0.18610e-04_rb,0.19128e-04_rb,0.19501e-04_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.14166e-04_rb,0.14744e-04_rb,0.15227e-04_rb,0.15695e-04_rb,0.16033e-04_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.11520e-04_rb,0.12036e-04_rb,0.12466e-04_rb,0.12850e-04_rb,0.13177e-04_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.93545e-05_rb,0.97967e-05_rb,0.10185e-04_rb,0.10504e-04_rb,0.10808e-04_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.75900e-05_rb,0.79775e-05_rb,0.83066e-05_rb,0.85876e-05_rb,0.88446e-05_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.61841e-05_rb,0.65213e-05_rb,0.67983e-05_rb,0.70299e-05_rb,0.72479e-05_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.50267e-05_rb,0.53142e-05_rb,0.55644e-05_rb,0.57696e-05_rb,0.59449e-05_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.40664e-05_rb,0.43169e-05_rb,0.45344e-05_rb,0.47274e-05_rb,0.48783e-05_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.32881e-05_rb,0.34993e-05_rb,0.36900e-05_rb,0.38580e-05_rb,0.39983e-05_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.26562e-05_rb,0.28386e-05_rb,0.30033e-05_rb,0.31435e-05_rb,0.32655e-05_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.21842e-05_rb,0.23355e-05_rb,0.24742e-05_rb,0.25918e-05_rb,0.26979e-05_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.31802e-01_rb,0.32385e-01_rb,0.32761e-01_rb,0.32924e-01_rb,0.32887e-01_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.27075e-01_rb,0.27526e-01_rb,0.27777e-01_rb,0.27825e-01_rb,0.27714e-01_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.22867e-01_rb,0.23213e-01_rb,0.23346e-01_rb,0.23326e-01_rb,0.23192e-01_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.19243e-01_rb,0.19469e-01_rb,0.19534e-01_rb,0.19508e-01_rb,0.19374e-01_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.16143e-01_rb,0.16291e-01_rb,0.16340e-01_rb,0.16286e-01_rb,0.16140e-01_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.13508e-01_rb,0.13619e-01_rb,0.13632e-01_rb,0.13563e-01_rb,0.13444e-01_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.11360e-01_rb,0.11423e-01_rb,0.11418e-01_rb,0.11354e-01_rb,0.11254e-01_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.95257e-02_rb,0.95677e-02_rb,0.95569e-02_rb,0.94993e-02_rb,0.94147e-02_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.79688e-02_rb,0.80079e-02_rb,0.79930e-02_rb,0.79576e-02_rb,0.78976e-02_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.66527e-02_rb,0.66824e-02_rb,0.66717e-02_rb,0.66442e-02_rb,0.65988e-02_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.55583e-02_rb,0.55741e-02_rb,0.55685e-02_rb,0.55458e-02_rb,0.55136e-02_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.46281e-02_rb,0.46404e-02_rb,0.46354e-02_rb,0.46240e-02_rb,0.46070e-02_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.38479e-02_rb,0.38586e-02_rb,0.38647e-02_rb,0.38587e-02_rb,0.38482e-02_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.31996e-02_rb,0.32113e-02_rb,0.32185e-02_rb,0.32206e-02_rb,0.32221e-02_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.26655e-02_rb,0.26804e-02_rb,0.26909e-02_rb,0.27001e-02_rb,0.27000e-02_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.22269e-02_rb,0.22430e-02_rb,0.22546e-02_rb,0.22636e-02_rb,0.22685e-02_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.18711e-02_rb,0.18853e-02_rb,0.19010e-02_rb,0.19079e-02_rb,0.19146e-02_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.15792e-02_rb,0.15950e-02_rb,0.16049e-02_rb,0.16149e-02_rb,0.16250e-02_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.13390e-02_rb,0.13523e-02_rb,0.13631e-02_rb,0.13762e-02_rb,0.13899e-02_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.11423e-02_rb,0.11552e-02_rb,0.11689e-02_rb,0.11828e-02_rb,0.12002e-02_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.97837e-03_rb,0.99414e-03_rb,0.10078e-02_rb,0.10254e-02_rb,0.10445e-02_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.84508e-03_rb,0.85961e-03_rb,0.87553e-03_rb,0.89474e-03_rb,0.91454e-03_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.73067e-03_rb,0.74643e-03_rb,0.76522e-03_rb,0.78433e-03_rb,0.80547e-03_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.63501e-03_rb,0.65286e-03_rb,0.67124e-03_rb,0.69177e-03_rb,0.71245e-03_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.54302e-03_rb,0.56011e-03_rb,0.57838e-03_rb,0.59932e-03_rb,0.61930e-03_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.46413e-03_rb,0.48141e-03_rb,0.49888e-03_rb,0.51888e-03_rb,0.53851e-03_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.39787e-03_rb,0.41416e-03_rb,0.43137e-03_rb,0.45076e-03_rb,0.46884e-03_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.33542e-03_rb,0.35026e-03_rb,0.36640e-03_rb,0.38421e-03_rb,0.40074e-03_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.28198e-03_rb,0.29533e-03_rb,0.31033e-03_rb,0.32658e-03_rb,0.34246e-03_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.23644e-03_rb,0.24877e-03_rb,0.26248e-03_rb,0.27695e-03_rb,0.29184e-03_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.19698e-03_rb,0.20826e-03_rb,0.22042e-03_rb,0.23357e-03_rb,0.24697e-03_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.16338e-03_rb,0.17334e-03_rb,0.18409e-03_rb,0.19557e-03_rb,0.20792e-03_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.13558e-03_rb,0.14397e-03_rb,0.15333e-03_rb,0.16359e-03_rb,0.17463e-03_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.11191e-03_rb,0.11919e-03_rb,0.12729e-03_rb,0.13624e-03_rb,0.14629e-03_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.91906e-04_rb,0.98189e-04_rb,0.10520e-03_rb,0.11302e-03_rb,0.12177e-03_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.75087e-04_rb,0.80743e-04_rb,0.86708e-04_rb,0.93427e-04_rb,0.10110e-03_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.61186e-04_rb,0.66125e-04_rb,0.71313e-04_rb,0.77107e-04_rb,0.83777e-04_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.49938e-04_rb,0.54303e-04_rb,0.58807e-04_rb,0.63705e-04_rb,0.69474e-04_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.40809e-04_rb,0.44513e-04_rb,0.48369e-04_rb,0.52594e-04_rb,0.57525e-04_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.33309e-04_rb,0.36401e-04_rb,0.39694e-04_rb,0.43295e-04_rb,0.47517e-04_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.27001e-04_rb,0.29637e-04_rb,0.32443e-04_rb,0.35515e-04_rb,0.39073e-04_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.21920e-04_rb,0.24176e-04_rb,0.26587e-04_rb,0.29204e-04_rb,0.32173e-04_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.17840e-04_rb,0.19707e-04_rb,0.21784e-04_rb,0.24000e-04_rb,0.26498e-04_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.14500e-04_rb,0.16042e-04_rb,0.17779e-04_rb,0.19655e-04_rb,0.21743e-04_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.11756e-04_rb,0.13018e-04_rb,0.14458e-04_rb,0.16053e-04_rb,0.17779e-04_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.95229e-05_rb,0.10574e-04_rb,0.11760e-04_rb,0.13107e-04_rb,0.14585e-04_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.78970e-05_rb,0.87821e-05_rb,0.97860e-05_rb,0.10919e-04_rb,0.12187e-04_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.81347e-01_rb,0.83688e-01_rb,0.85307e-01_rb,0.86283e-01_rb,0.87010e-01_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.72041e-01_rb,0.73994e-01_rb,0.75287e-01_rb,0.76180e-01_rb,0.76714e-01_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.63278e-01_rb,0.64818e-01_rb,0.65954e-01_rb,0.66651e-01_rb,0.67143e-01_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.55139e-01_rb,0.56478e-01_rb,0.57384e-01_rb,0.58076e-01_rb,0.58539e-01_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.47894e-01_rb,0.48966e-01_rb,0.49829e-01_rb,0.50447e-01_rb,0.50916e-01_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.41499e-01_rb,0.42507e-01_rb,0.43240e-01_rb,0.43755e-01_rb,0.44135e-01_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.35885e-01_rb,0.36754e-01_rb,0.37403e-01_rb,0.37954e-01_rb,0.38313e-01_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.30699e-01_rb,0.31463e-01_rb,0.32108e-01_rb,0.32586e-01_rb,0.32972e-01_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.26192e-01_rb,0.26846e-01_rb,0.27409e-01_rb,0.27839e-01_rb,0.28217e-01_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.22340e-01_rb,0.22929e-01_rb,0.23404e-01_rb,0.23811e-01_rb,0.24187e-01_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.19095e-01_rb,0.19575e-01_rb,0.20007e-01_rb,0.20410e-01_rb,0.20766e-01_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.16366e-01_rb,0.16771e-01_rb,0.17186e-01_rb,0.17542e-01_rb,0.17949e-01_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.14069e-01_rb,0.14481e-01_rb,0.14832e-01_rb,0.15200e-01_rb,0.15580e-01_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.12162e-01_rb,0.12539e-01_rb,0.12888e-01_rb,0.13247e-01_rb,0.13615e-01_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.10528e-01_rb,0.10892e-01_rb,0.11265e-01_rb,0.11631e-01_rb,0.12012e-01_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.91441e-02_rb,0.95086e-02_rb,0.98896e-02_rb,0.10282e-01_rb,0.10687e-01_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.79938e-02_rb,0.83641e-02_rb,0.87511e-02_rb,0.91674e-02_rb,0.96121e-02_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.70400e-02_rb,0.74172e-02_rb,0.78125e-02_rb,0.82611e-02_rb,0.87532e-02_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.62612e-02_rb,0.66491e-02_rb,0.70836e-02_rb,0.75546e-02_rb,0.80730e-02_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.56090e-02_rb,0.60373e-02_rb,0.65021e-02_rb,0.70140e-02_rb,0.75729e-02_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.51011e-02_rb,0.55473e-02_rb,0.60429e-02_rb,0.66026e-02_rb,0.72780e-02_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.46990e-02_rb,0.51673e-02_rb,0.57072e-02_rb,0.63464e-02_rb,0.71159e-02_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.43314e-02_rb,0.48384e-02_rb,0.54243e-02_rb,0.61639e-02_rb,0.69924e-02_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.39886e-02_rb,0.45262e-02_rb,0.51941e-02_rb,0.59985e-02_rb,0.68708e-02_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.36017e-02_rb,0.41399e-02_rb,0.48219e-02_rb,0.56481e-02_rb,0.65560e-02_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.32617e-02_rb,0.38037e-02_rb,0.45057e-02_rb,0.53485e-02_rb,0.62708e-02_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.29777e-02_rb,0.35364e-02_rb,0.42387e-02_rb,0.50890e-02_rb,0.60544e-02_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.26397e-02_rb,0.31715e-02_rb,0.38573e-02_rb,0.46880e-02_rb,0.56335e-02_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.23227e-02_rb,0.28385e-02_rb,0.34927e-02_rb,0.42880e-02_rb,0.52154e-02_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.20486e-02_rb,0.25378e-02_rb,0.31647e-02_rb,0.39312e-02_rb,0.48261e-02_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.17755e-02_rb,0.22226e-02_rb,0.28140e-02_rb,0.35274e-02_rb,0.43895e-02_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.15269e-02_rb,0.19274e-02_rb,0.24688e-02_rb,0.31407e-02_rb,0.39517e-02_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.13050e-02_rb,0.16697e-02_rb,0.21647e-02_rb,0.27916e-02_rb,0.35423e-02_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.11057e-02_rb,0.14327e-02_rb,0.18777e-02_rb,0.24513e-02_rb,0.31448e-02_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.92448e-03_rb,0.12134e-02_rb,0.16064e-02_rb,0.21237e-02_rb,0.27575e-02_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.76618e-03_rb,0.10179e-02_rb,0.13627e-02_rb,0.18254e-02_rb,0.24067e-02_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.62940e-03_rb,0.85036e-03_rb,0.11489e-02_rb,0.15623e-02_rb,0.20896e-02_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.51855e-03_rb,0.71067e-03_rb,0.97602e-03_rb,0.13414e-02_rb,0.18179e-02_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.42590e-03_rb,0.59305e-03_rb,0.82548e-03_rb,0.11486e-02_rb,0.15798e-02_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.34697e-03_rb,0.49059e-03_rb,0.69535e-03_rb,0.97532e-03_rb,0.13630e-02_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.28092e-03_rb,0.40191e-03_rb,0.57931e-03_rb,0.82673e-03_rb,0.11685e-02_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.22883e-03_rb,0.33102e-03_rb,0.48584e-03_rb,0.70577e-03_rb,0.10069e-02_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.18567e-03_rb,0.27212e-03_rb,0.40629e-03_rb,0.59966e-03_rb,0.86643e-03_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.14981e-03_rb,0.22158e-03_rb,0.33702e-03_rb,0.50672e-03_rb,0.74022e-03_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.11956e-03_rb,0.17899e-03_rb,0.27717e-03_rb,0.42406e-03_rb,0.63003e-03_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.95581e-04_rb,0.14413e-03_rb,0.22637e-03_rb,0.35457e-03_rb,0.53700e-03_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.81967e-04_rb,0.12578e-03_rb,0.20146e-03_rb,0.32061e-03_rb,0.49099e-03_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.22107e+00_rb,0.22673e+00_rb,0.23188e+00_rb,0.23626e+00_rb,0.23937e+00_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.20348e+00_rb,0.20983e+00_rb,0.21521e+00_rb,0.21960e+00_rb,0.22328e+00_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.18724e+00_rb,0.19358e+00_rb,0.19903e+00_rb,0.20382e+00_rb,0.20780e+00_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.17271e+00_rb,0.17902e+00_rb,0.18466e+00_rb,0.18949e+00_rb,0.19358e+00_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.15881e+00_rb,0.16550e+00_rb,0.17139e+00_rb,0.17656e+00_rb,0.18127e+00_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.14632e+00_rb,0.15311e+00_rb,0.15937e+00_rb,0.16532e+00_rb,0.17049e+00_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.13481e+00_rb,0.14215e+00_rb,0.14899e+00_rb,0.15502e+00_rb,0.16068e+00_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.12437e+00_rb,0.13191e+00_rb,0.13890e+00_rb,0.14560e+00_rb,0.15188e+00_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.11481e+00_rb,0.12252e+00_rb,0.12982e+00_rb,0.13710e+00_rb,0.14374e+00_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.10661e+00_rb,0.11453e+00_rb,0.12244e+00_rb,0.12996e+00_rb,0.13720e+00_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.99573e-01_rb,0.10782e+00_rb,0.11598e+00_rb,0.12384e+00_rb,0.13154e+00_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.93585e-01_rb,0.10212e+00_rb,0.11044e+00_rb,0.11870e+00_rb,0.12683e+00_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.88642e-01_rb,0.97342e-01_rb,0.10600e+00_rb,0.11474e+00_rb,0.12338e+00_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.84783e-01_rb,0.93706e-01_rb,0.10275e+00_rb,0.11190e+00_rb,0.12089e+00_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.81924e-01_rb,0.91085e-01_rb,0.10043e+00_rb,0.11011e+00_rb,0.11942e+00_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.79898e-01_rb,0.89495e-01_rb,0.99246e-01_rb,0.10903e+00_rb,0.11866e+00_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.78843e-01_rb,0.88816e-01_rb,0.99112e-01_rb,0.10908e+00_rb,0.11873e+00_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.78672e-01_rb,0.89175e-01_rb,0.99763e-01_rb,0.10991e+00_rb,0.11974e+00_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.79471e-01_rb,0.90393e-01_rb,0.10090e+00_rb,0.11134e+00_rb,0.12148e+00_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.81097e-01_rb,0.92118e-01_rb,0.10299e+00_rb,0.11352e+00_rb,0.12362e+00_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.83219e-01_rb,0.94430e-01_rb,0.10536e+00_rb,0.11619e+00_rb,0.12656e+00_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.85363e-01_rb,0.96707e-01_rb,0.10798e+00_rb,0.11904e+00_rb,0.12986e+00_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.86741e-01_rb,0.98297e-01_rb,0.11004e+00_rb,0.12158e+00_rb,0.13234e+00_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.87017e-01_rb,0.99113e-01_rb,0.11121e+00_rb,0.12302e+00_rb,0.13390e+00_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.85258e-01_rb,0.97671e-01_rb,0.10985e+00_rb,0.12188e+00_rb,0.13289e+00_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.83622e-01_rb,0.96133e-01_rb,0.10847e+00_rb,0.12060e+00_rb,0.13189e+00_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.82148e-01_rb,0.94689e-01_rb,0.10723e+00_rb,0.11944e+00_rb,0.13102e+00_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.78933e-01_rb,0.91494e-01_rb,0.10410e+00_rb,0.11650e+00_rb,0.12816e+00_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.75553e-01_rb,0.88087e-01_rb,0.10066e+00_rb,0.11319e+00_rb,0.12513e+00_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.72215e-01_rb,0.84600e-01_rb,0.97314e-01_rb,0.10990e+00_rb,0.12202e+00_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.68050e-01_rb,0.80392e-01_rb,0.93038e-01_rb,0.10568e+00_rb,0.11811e+00_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.63504e-01_rb,0.75885e-01_rb,0.88427e-01_rb,0.10109e+00_rb,0.11352e+00_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.59117e-01_rb,0.71359e-01_rb,0.83835e-01_rb,0.96461e-01_rb,0.10897e+00_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.54516e-01_rb,0.66547e-01_rb,0.79117e-01_rb,0.91745e-01_rb,0.10426e+00_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.49520e-01_rb,0.61408e-01_rb,0.73788e-01_rb,0.86383e-01_rb,0.98886e-01_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.44727e-01_rb,0.56224e-01_rb,0.68415e-01_rb,0.81094e-01_rb,0.93621e-01_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.40177e-01_rb,0.51146e-01_rb,0.63191e-01_rb,0.75749e-01_rb,0.88249e-01_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.36081e-01_rb,0.46596e-01_rb,0.58341e-01_rb,0.70769e-01_rb,0.83353e-01_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.32278e-01_rb,0.42393e-01_rb,0.53717e-01_rb,0.65898e-01_rb,0.78578e-01_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.28586e-01_rb,0.38352e-01_rb,0.49175e-01_rb,0.61145e-01_rb,0.73682e-01_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.25090e-01_rb,0.34439e-01_rb,0.44807e-01_rb,0.56352e-01_rb,0.68823e-01_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.22080e-01_rb,0.30938e-01_rb,0.40952e-01_rb,0.52101e-01_rb,0.64364e-01_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.19382e-01_rb,0.27719e-01_rb,0.37405e-01_rb,0.48197e-01_rb,0.60044e-01_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.16835e-01_rb,0.24689e-01_rb,0.33908e-01_rb,0.44390e-01_rb,0.55911e-01_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.14459e-01_rb,0.21799e-01_rb,0.30531e-01_rb,0.40642e-01_rb,0.51808e-01_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.12380e-01_rb,0.19213e-01_rb,0.27475e-01_rb,0.37204e-01_rb,0.48065e-01_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.11536e-01_rb,0.18115e-01_rb,0.26160e-01_rb,0.35756e-01_rb,0.46501e-01_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.79231e+00_rb,0.80247e+00_rb,0.81169e+00_rb,0.81859e+00_rb,0.82469e+00_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.76567e+00_rb,0.77861e+00_rb,0.78976e+00_rb,0.79966e+00_rb,0.80754e+00_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.73926e+00_rb,0.75515e+00_rb,0.76982e+00_rb,0.78244e+00_rb,0.79228e+00_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.71308e+00_rb,0.73273e+00_rb,0.74955e+00_rb,0.76355e+00_rb,0.77553e+00_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.68845e+00_rb,0.70973e+00_rb,0.72813e+00_rb,0.74466e+00_rb,0.75909e+00_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.66397e+00_rb,0.68720e+00_rb,0.70872e+00_rb,0.72756e+00_rb,0.74467e+00_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.64097e+00_rb,0.66723e+00_rb,0.69155e+00_rb,0.71362e+00_rb,0.73339e+00_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.62162e+00_rb,0.65070e+00_rb,0.67764e+00_rb,0.70183e+00_rb,0.72348e+00_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.60571e+00_rb,0.63800e+00_rb,0.66649e+00_rb,0.69291e+00_rb,0.71712e+00_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.59651e+00_rb,0.62972e+00_rb,0.66058e+00_rb,0.68832e+00_rb,0.71517e+00_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.58974e+00_rb,0.62545e+00_rb,0.65753e+00_rb,0.68785e+00_rb,0.71519e+00_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.58721e+00_rb,0.62395e+00_rb,0.65801e+00_rb,0.68952e+00_rb,0.71705e+00_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.58931e+00_rb,0.62554e+00_rb,0.66080e+00_rb,0.69275e+00_rb,0.72212e+00_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.59392e+00_rb,0.63108e+00_rb,0.66576e+00_rb,0.69831e+00_rb,0.72831e+00_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.60088e+00_rb,0.63911e+00_rb,0.67310e+00_rb,0.70594e+00_rb,0.73492e+00_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.61058e+00_rb,0.64827e+00_rb,0.68351e+00_rb,0.71436e+00_rb,0.74248e+00_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.62259e+00_rb,0.66086e+00_rb,0.69462e+00_rb,0.72450e+00_rb,0.75205e+00_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.63547e+00_rb,0.67373e+00_rb,0.70715e+00_rb,0.73642e+00_rb,0.76277e+00_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.65060e+00_rb,0.68811e+00_rb,0.72216e+00_rb,0.75104e+00_rb,0.77730e+00_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.66635e+00_rb,0.70367e+00_rb,0.73703e+00_rb,0.76712e+00_rb,0.79450e+00_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.68330e+00_rb,0.72114e+00_rb,0.75529e+00_rb,0.78560e+00_rb,0.81251e+00_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.69895e+00_rb,0.73787e+00_rb,0.77209e+00_rb,0.80355e+00_rb,0.82948e+00_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.71249e+00_rb,0.75244e+00_rb,0.78786e+00_rb,0.82021e+00_rb,0.84807e+00_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.72352e+00_rb,0.76491e+00_rb,0.80192e+00_rb,0.83419e+00_rb,0.86330e+00_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.72315e+00_rb,0.76487e+00_rb,0.80310e+00_rb,0.83637e+00_rb,0.86732e+00_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.72144e+00_rb,0.76571e+00_rb,0.80444e+00_rb,0.83852e+00_rb,0.86991e+00_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.72061e+00_rb,0.76655e+00_rb,0.80661e+00_rb,0.84238e+00_rb,0.87357e+00_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.71071e+00_rb,0.75799e+00_rb,0.79882e+00_rb,0.83566e+00_rb,0.86813e+00_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.69960e+00_rb,0.74652e+00_rb,0.79034e+00_rb,0.82858e+00_rb,0.86201e+00_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.68767e+00_rb,0.73584e+00_rb,0.78080e+00_rb,0.82018e+00_rb,0.85505e+00_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.67181e+00_rb,0.72136e+00_rb,0.76709e+00_rb,0.80803e+00_rb,0.84449e+00_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.65485e+00_rb,0.70505e+00_rb,0.75190e+00_rb,0.79482e+00_rb,0.83260e+00_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.63639e+00_rb,0.68756e+00_rb,0.73541e+00_rb,0.78029e+00_rb,0.82060e+00_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.61610e+00_rb,0.67008e+00_rb,0.71893e+00_rb,0.76424e+00_rb,0.80647e+00_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.59373e+00_rb,0.64972e+00_rb,0.69969e+00_rb,0.74707e+00_rb,0.79068e+00_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.56865e+00_rb,0.62791e+00_rb,0.68069e+00_rb,0.72878e+00_rb,0.77390e+00_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.54350e+00_rb,0.60516e+00_rb,0.66027e+00_rb,0.71007e+00_rb,0.75592e+00_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.51991e+00_rb,0.58375e+00_rb,0.64136e+00_rb,0.69342e+00_rb,0.74093e+00_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.49673e+00_rb,0.56229e+00_rb,0.62200e+00_rb,0.67685e+00_rb,0.72556e+00_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.47256e+00_rb,0.53950e+00_rb,0.60133e+00_rb,0.65838e+00_rb,0.70926e+00_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.44771e+00_rb,0.51552e+00_rb,0.57980e+00_rb,0.63854e+00_rb,0.69202e+00_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.42506e+00_rb,0.49358e+00_rb,0.56009e+00_rb,0.62090e+00_rb,0.67547e+00_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.40218e+00_rb,0.47240e+00_rb,0.53999e+00_rb,0.60216e+00_rb,0.65925e+00_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.37888e+00_rb,0.45101e+00_rb,0.51913e+00_rb,0.58357e+00_rb,0.64216e+00_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.35513e+00_rb,0.42824e+00_rb,0.49765e+00_rb,0.56376e+00_rb,0.62409e+00_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.33174e+00_rb,0.40632e+00_rb,0.47713e+00_rb,0.54453e+00_rb,0.60605e+00_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.32315e+00_rb,0.39758e+00_rb,0.46935e+00_rb,0.53732e+00_rb,0.59942e+00_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.20814e+01_rb,0.20759e+01_rb,0.20660e+01_rb,0.20703e+01_rb,0.20598e+01_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.20861e+01_rb,0.20862e+01_rb,0.20902e+01_rb,0.20921e+01_rb,0.20850e+01_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.20793e+01_rb,0.20969e+01_rb,0.21057e+01_rb,0.21014e+01_rb,0.21089e+01_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.20801e+01_rb,0.20948e+01_rb,0.21151e+01_rb,0.21351e+01_rb,0.21560e+01_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.20802e+01_rb,0.21249e+01_rb,0.21608e+01_rb,0.21842e+01_rb,0.21924e+01_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.20972e+01_rb,0.21483e+01_rb,0.21814e+01_rb,0.21999e+01_rb,0.22088e+01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.21086e+01_rb,0.21513e+01_rb,0.21845e+01_rb,0.22099e+01_rb,0.22261e+01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.21001e+01_rb,0.21488e+01_rb,0.21917e+01_rb,0.22212e+01_rb,0.22394e+01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.20945e+01_rb,0.21494e+01_rb,0.22004e+01_rb,0.22330e+01_rb,0.22537e+01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.20951e+01_rb,0.21635e+01_rb,0.22151e+01_rb,0.22483e+01_rb,0.22658e+01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.21106e+01_rb,0.21802e+01_rb,0.22288e+01_rb,0.22593e+01_rb,0.22769e+01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.21251e+01_rb,0.21978e+01_rb,0.22479e+01_rb,0.22750e+01_rb,0.23069e+01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.21350e+01_rb,0.22127e+01_rb,0.22620e+01_rb,0.22919e+01_rb,0.23205e+01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.21397e+01_rb,0.22248e+01_rb,0.22778e+01_rb,0.23148e+01_rb,0.23338e+01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.21476e+01_rb,0.22244e+01_rb,0.22911e+01_rb,0.23271e+01_rb,0.23529e+01_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.21502e+01_rb,0.22263e+01_rb,0.22854e+01_rb,0.23382e+01_rb,0.23803e+01_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.21444e+01_rb,0.22159e+01_rb,0.22839e+01_rb,0.23447e+01_rb,0.24026e+01_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.21459e+01_rb,0.22135e+01_rb,0.22803e+01_rb,0.23564e+01_rb,0.24114e+01_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.21548e+01_rb,0.22131e+01_rb,0.22785e+01_rb,0.23559e+01_rb,0.23993e+01_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.21820e+01_rb,0.22366e+01_rb,0.23010e+01_rb,0.23445e+01_rb,0.23808e+01_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.22356e+01_rb,0.22739e+01_rb,0.22923e+01_rb,0.23386e+01_rb,0.23842e+01_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.22861e+01_rb,0.23162e+01_rb,0.23352e+01_rb,0.23408e+01_rb,0.23839e+01_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.23385e+01_rb,0.23680e+01_rb,0.23728e+01_rb,0.23741e+01_rb,0.23938e+01_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.23851e+01_rb,0.24072e+01_rb,0.24258e+01_rb,0.24337e+01_rb,0.24446e+01_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.23954e+01_rb,0.24271e+01_rb,0.24525e+01_rb,0.24638e+01_rb,0.24744e+01_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.24138e+01_rb,0.24360e+01_rb,0.24658e+01_rb,0.24931e+01_rb,0.25112e+01_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.24207e+01_rb,0.24415e+01_rb,0.24747e+01_rb,0.25054e+01_rb,0.25446e+01_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.24183e+01_rb,0.24401e+01_rb,0.24836e+01_rb,0.25135e+01_rb,0.25532e+01_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.24046e+01_rb,0.24486e+01_rb,0.24788e+01_rb,0.25037e+01_rb,0.25503e+01_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.23965e+01_rb,0.24448e+01_rb,0.24659e+01_rb,0.25035e+01_rb,0.25440e+01_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.23757e+01_rb,0.24456e+01_rb,0.24672e+01_rb,0.25043e+01_rb,0.25340e+01_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.23417e+01_rb,0.24271e+01_rb,0.24708e+01_rb,0.24891e+01_rb,0.25157e+01_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.23140e+01_rb,0.24224e+01_rb,0.24648e+01_rb,0.24895e+01_rb,0.25109e+01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.22839e+01_rb,0.23815e+01_rb,0.24548e+01_rb,0.24874e+01_rb,0.24983e+01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.22509e+01_rb,0.23585e+01_rb,0.24548e+01_rb,0.24976e+01_rb,0.25158e+01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.22243e+01_rb,0.23182e+01_rb,0.24167e+01_rb,0.24851e+01_rb,0.25144e+01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.21934e+01_rb,0.22838e+01_rb,0.23882e+01_rb,0.24694e+01_rb,0.25145e+01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.21637e+01_rb,0.22591e+01_rb,0.23593e+01_rb,0.24450e+01_rb,0.25097e+01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.21256e+01_rb,0.22383e+01_rb,0.23340e+01_rb,0.24239e+01_rb,0.25025e+01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.20804e+01_rb,0.22090e+01_rb,0.23144e+01_rb,0.24005e+01_rb,0.24803e+01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.20229e+01_rb,0.21712e+01_rb,0.22790e+01_rb,0.23709e+01_rb,0.24497e+01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.19647e+01_rb,0.21430e+01_rb,0.22514e+01_rb,0.23430e+01_rb,0.24343e+01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.19094e+01_rb,0.20990e+01_rb,0.22287e+01_rb,0.23283e+01_rb,0.24126e+01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.18499e+01_rb,0.20432e+01_rb,0.21961e+01_rb,0.22965e+01_rb,0.23921e+01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.17845e+01_rb,0.19868e+01_rb,0.21557e+01_rb,0.22661e+01_rb,0.23666e+01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.17304e+01_rb,0.19324e+01_rb,0.21130e+01_rb,0.22379e+01_rb,0.23344e+01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.17036e+01_rb,0.19129e+01_rb,0.20925e+01_rb,0.22299e+01_rb,0.23291e+01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.28487e+01_rb,0.28532e+01_rb,0.28392e+01_rb,0.28113e+01_rb,0.28077e+01_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.29217e+01_rb,0.29135e+01_rb,0.28970e+01_rb,0.28895e+01_rb,0.29104e+01_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.29720e+01_rb,0.29567e+01_rb,0.29515e+01_rb,0.29771e+01_rb,0.29749e+01_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.29934e+01_rb,0.30029e+01_rb,0.30226e+01_rb,0.30339e+01_rb,0.30204e+01_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.30408e+01_rb,0.30652e+01_rb,0.30797e+01_rb,0.30959e+01_rb,0.31120e+01_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.31059e+01_rb,0.31457e+01_rb,0.31893e+01_rb,0.32154e+01_rb,0.32284e+01_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.31895e+01_rb,0.32505e+01_rb,0.32863e+01_rb,0.32994e+01_rb,0.32949e+01_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.32605e+01_rb,0.33203e+01_rb,0.33389e+01_rb,0.33469e+01_rb,0.33350e+01_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.33097e+01_rb,0.33567e+01_rb,0.33762e+01_rb,0.33842e+01_rb,0.33798e+01_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.33482e+01_rb,0.33901e+01_rb,0.34068e+01_rb,0.34227e+01_rb,0.34010e+01_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.33722e+01_rb,0.34154e+01_rb,0.34438e+01_rb,0.34434e+01_rb,0.34235e+01_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.33951e+01_rb,0.34377e+01_rb,0.34659e+01_rb,0.34658e+01_rb,0.34557e+01_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.34209e+01_rb,0.34720e+01_rb,0.34904e+01_rb,0.34950e+01_rb,0.34725e+01_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.34497e+01_rb,0.34967e+01_rb,0.35233e+01_rb,0.35072e+01_rb,0.34967e+01_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.34791e+01_rb,0.35327e+01_rb,0.35370e+01_rb,0.35122e+01_rb,0.35139e+01_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.35134e+01_rb,0.35471e+01_rb,0.35465e+01_rb,0.35405e+01_rb,0.35525e+01_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.35424e+01_rb,0.35704e+01_rb,0.35632e+01_rb,0.35824e+01_rb,0.35567e+01_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.35629e+01_rb,0.35947e+01_rb,0.35992e+01_rb,0.36011e+01_rb,0.36027e+01_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.35753e+01_rb,0.36045e+01_rb,0.36365e+01_rb,0.36213e+01_rb,0.36310e+01_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.35596e+01_rb,0.36100e+01_rb,0.36333e+01_rb,0.36490e+01_rb,0.36651e+01_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.35241e+01_rb,0.35883e+01_rb,0.36383e+01_rb,0.36740e+01_rb,0.36685e+01_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.35027e+01_rb,0.35491e+01_rb,0.36249e+01_rb,0.36739e+01_rb,0.36810e+01_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.34699e+01_rb,0.35289e+01_rb,0.35926e+01_rb,0.36193e+01_rb,0.36411e+01_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.35153e+01_rb,0.35225e+01_rb,0.35498e+01_rb,0.35989e+01_rb,0.36429e+01_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.35644e+01_rb,0.35488e+01_rb,0.35358e+01_rb,0.35755e+01_rb,0.36247e+01_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.35952e+01_rb,0.35902e+01_rb,0.35685e+01_rb,0.35598e+01_rb,0.35995e+01_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.36371e+01_rb,0.36388e+01_rb,0.36159e+01_rb,0.35751e+01_rb,0.35930e+01_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.36530e+01_rb,0.36611e+01_rb,0.36495e+01_rb,0.35923e+01_rb,0.35985e+01_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.36431e+01_rb,0.36852e+01_rb,0.36606e+01_rb,0.36324e+01_rb,0.35949e+01_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.36510e+01_rb,0.36940e+01_rb,0.36905e+01_rb,0.36729e+01_rb,0.36122e+01_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.36633e+01_rb,0.36955e+01_rb,0.37103e+01_rb,0.36924e+01_rb,0.36526e+01_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.36584e+01_rb,0.36852e+01_rb,0.37131e+01_rb,0.37219e+01_rb,0.36946e+01_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.36636e+01_rb,0.36530e+01_rb,0.37160e+01_rb,0.37197e+01_rb,0.37150e+01_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.36713e+01_rb,0.36779e+01_rb,0.37130e+01_rb,0.37408e+01_rb,0.37431e+01_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.36885e+01_rb,0.36889e+01_rb,0.37012e+01_rb,0.37377e+01_rb,0.37538e+01_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.36735e+01_rb,0.37253e+01_rb,0.37092e+01_rb,0.37311e+01_rb,0.37444e+01_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.36543e+01_rb,0.37300e+01_rb,0.37306e+01_rb,0.37311e+01_rb,0.37688e+01_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.36397e+01_rb,0.37435e+01_rb,0.37659e+01_rb,0.37491e+01_rb,0.37600e+01_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.36124e+01_rb,0.37293e+01_rb,0.37963e+01_rb,0.37839e+01_rb,0.37789e+01_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.35636e+01_rb,0.37078e+01_rb,0.37818e+01_rb,0.38114e+01_rb,0.37775e+01_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.34978e+01_rb,0.36691e+01_rb,0.37922e+01_rb,0.38152e+01_rb,0.38092e+01_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.34749e+01_rb,0.36230e+01_rb,0.37686e+01_rb,0.38328e+01_rb,0.38292e+01_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.34238e+01_rb,0.35883e+01_rb,0.37261e+01_rb,0.38299e+01_rb,0.38488e+01_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.33568e+01_rb,0.35597e+01_rb,0.37073e+01_rb,0.38247e+01_rb,0.38591e+01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.32794e+01_rb,0.35193e+01_rb,0.36712e+01_rb,0.37875e+01_rb,0.38581e+01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.31971e+01_rb,0.34544e+01_rb,0.36268e+01_rb,0.37609e+01_rb,0.38393e+01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.31680e+01_rb,0.34441e+01_rb,0.36338e+01_rb,0.37596e+01_rb,0.38510e+01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.40944e+01_rb,0.40706e+01_rb,0.40738e+01_rb,0.40615e+01_rb,0.40255e+01_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.42568e+01_rb,0.42640e+01_rb,0.42578e+01_rb,0.42281e+01_rb,0.41677e+01_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.44471e+01_rb,0.44460e+01_rb,0.44235e+01_rb,0.43647e+01_rb,0.43107e+01_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.45971e+01_rb,0.45776e+01_rb,0.45277e+01_rb,0.44905e+01_rb,0.45101e+01_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.46780e+01_rb,0.46358e+01_rb,0.46311e+01_rb,0.46380e+01_rb,0.46103e+01_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.47294e+01_rb,0.47444e+01_rb,0.47418e+01_rb,0.47299e+01_rb,0.47059e+01_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.48604e+01_rb,0.48842e+01_rb,0.48819e+01_rb,0.49000e+01_rb,0.48969e+01_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.49979e+01_rb,0.50271e+01_rb,0.50614e+01_rb,0.50783e+01_rb,0.50637e+01_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.51216e+01_rb,0.51841e+01_rb,0.52155e+01_rb,0.52098e+01_rb,0.51706e+01_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.52796e+01_rb,0.53177e+01_rb,0.53275e+01_rb,0.53003e+01_rb,0.52540e+01_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.54021e+01_rb,0.54214e+01_rb,0.54107e+01_rb,0.53770e+01_rb,0.53308e+01_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.54951e+01_rb,0.54954e+01_rb,0.54655e+01_rb,0.54275e+01_rb,0.53548e+01_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.55606e+01_rb,0.55401e+01_rb,0.55126e+01_rb,0.54611e+01_rb,0.53900e+01_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.56084e+01_rb,0.55775e+01_rb,0.55344e+01_rb,0.54935e+01_rb,0.53765e+01_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.56424e+01_rb,0.55975e+01_rb,0.55674e+01_rb,0.55057e+01_rb,0.54137e+01_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.56582e+01_rb,0.56350e+01_rb,0.55811e+01_rb,0.55009e+01_rb,0.54160e+01_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.56833e+01_rb,0.56401e+01_rb,0.55975e+01_rb,0.55109e+01_rb,0.54249e+01_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.57003e+01_rb,0.56620e+01_rb,0.55904e+01_rb,0.55121e+01_rb,0.54542e+01_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.57132e+01_rb,0.56848e+01_rb,0.56091e+01_rb,0.55447e+01_rb,0.55236e+01_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.57800e+01_rb,0.57027e+01_rb,0.56220e+01_rb,0.56024e+01_rb,0.55523e+01_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.57668e+01_rb,0.57069e+01_rb,0.56826e+01_rb,0.56406e+01_rb,0.56224e+01_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.57877e+01_rb,0.57628e+01_rb,0.57465e+01_rb,0.57131e+01_rb,0.56752e+01_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.58053e+01_rb,0.58032e+01_rb,0.57814e+01_rb,0.58008e+01_rb,0.57412e+01_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.57386e+01_rb,0.58034e+01_rb,0.57934e+01_rb,0.57973e+01_rb,0.57760e+01_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.56650e+01_rb,0.57400e+01_rb,0.57795e+01_rb,0.58096e+01_rb,0.57723e+01_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.56068e+01_rb,0.56512e+01_rb,0.57137e+01_rb,0.58154e+01_rb,0.57795e+01_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.55712e+01_rb,0.56156e+01_rb,0.56456e+01_rb,0.57952e+01_rb,0.57768e+01_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.55331e+01_rb,0.55774e+01_rb,0.56049e+01_rb,0.57462e+01_rb,0.57382e+01_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.55579e+01_rb,0.55330e+01_rb,0.55754e+01_rb,0.56805e+01_rb,0.57245e+01_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.55684e+01_rb,0.55372e+01_rb,0.55455e+01_rb,0.56019e+01_rb,0.57291e+01_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.56282e+01_rb,0.55547e+01_rb,0.55863e+01_rb,0.55852e+01_rb,0.56892e+01_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.56429e+01_rb,0.55998e+01_rb,0.55663e+01_rb,0.55662e+01_rb,0.56522e+01_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.56488e+01_rb,0.56642e+01_rb,0.55915e+01_rb,0.56136e+01_rb,0.56176e+01_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.57246e+01_rb,0.57165e+01_rb,0.56557e+01_rb,0.56271e+01_rb,0.56227e+01_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.57406e+01_rb,0.57550e+01_rb,0.57336e+01_rb,0.56616e+01_rb,0.56928e+01_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.57616e+01_rb,0.57715e+01_rb,0.57765e+01_rb,0.57429e+01_rb,0.57151e+01_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.58013e+01_rb,0.57807e+01_rb,0.58014e+01_rb,0.57796e+01_rb,0.57022e+01_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.58611e+01_rb,0.58307e+01_rb,0.58954e+01_rb,0.58904e+01_rb,0.58254e+01_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.59182e+01_rb,0.59013e+01_rb,0.59353e+01_rb,0.59746e+01_rb,0.59215e+01_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.59636e+01_rb,0.59631e+01_rb,0.59638e+01_rb,0.60147e+01_rb,0.60288e+01_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.60261e+01_rb,0.59972e+01_rb,0.59771e+01_rb,0.60154e+01_rb,0.60632e+01_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.60204e+01_rb,0.60805e+01_rb,0.60002e+01_rb,0.60580e+01_rb,0.60854e+01_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.60584e+01_rb,0.61138e+01_rb,0.60917e+01_rb,0.60710e+01_rb,0.61237e+01_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.60402e+01_rb,0.61059e+01_rb,0.61154e+01_rb,0.61008e+01_rb,0.61463e+01_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.60080e+01_rb,0.61076e+01_rb,0.61306e+01_rb,0.61548e+01_rb,0.61892e+01_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.59781e+01_rb,0.61168e+01_rb,0.61621e+01_rb,0.61680e+01_rb,0.62246e+01_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.59824e+01_rb,0.60878e+01_rb,0.61825e+01_rb,0.62179e+01_rb,0.62658e+01_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.62252e+01_rb,0.61003e+01_rb,0.59711e+01_rb,0.58641e+01_rb,0.57820e+01_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.66429e+01_rb,0.64784e+01_rb,0.63526e+01_rb,0.62330e+01_rb,0.61644e+01_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.69743e+01_rb,0.68232e+01_rb,0.67077e+01_rb,0.66230e+01_rb,0.65438e+01_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.72971e+01_rb,0.72050e+01_rb,0.71016e+01_rb,0.69747e+01_rb,0.67726e+01_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.77109e+01_rb,0.75892e+01_rb,0.74253e+01_rb,0.72127e+01_rb,0.70341e+01_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.80450e+01_rb,0.78275e+01_rb,0.75988e+01_rb,0.74227e+01_rb,0.73977e+01_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.81727e+01_rb,0.79248e+01_rb,0.78355e+01_rb,0.77125e+01_rb,0.75391e+01_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.82796e+01_rb,0.81265e+01_rb,0.80271e+01_rb,0.78599e+01_rb,0.77204e+01_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.84685e+01_rb,0.83415e+01_rb,0.82106e+01_rb,0.80317e+01_rb,0.78896e+01_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.86169e+01_rb,0.85255e+01_rb,0.83779e+01_rb,0.82528e+01_rb,0.81573e+01_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.88276e+01_rb,0.86892e+01_rb,0.86001e+01_rb,0.84644e+01_rb,0.83125e+01_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.89834e+01_rb,0.88963e+01_rb,0.87866e+01_rb,0.86675e+01_rb,0.84751e+01_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.91971e+01_rb,0.90977e+01_rb,0.89941e+01_rb,0.88254e+01_rb,0.85750e+01_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.93611e+01_rb,0.92762e+01_rb,0.91306e+01_rb,0.88795e+01_rb,0.86828e+01_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.95231e+01_rb,0.94096e+01_rb,0.91709e+01_rb,0.89786e+01_rb,0.86968e+01_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.96495e+01_rb,0.94564e+01_rb,0.92347e+01_rb,0.89785e+01_rb,0.86180e+01_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.97336e+01_rb,0.94935e+01_rb,0.92561e+01_rb,0.89137e+01_rb,0.86661e+01_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.97605e+01_rb,0.95111e+01_rb,0.92200e+01_rb,0.89355e+01_rb,0.85920e+01_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.97562e+01_rb,0.95167e+01_rb,0.91771e+01_rb,0.88618e+01_rb,0.85414e+01_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.97192e+01_rb,0.94434e+01_rb,0.91403e+01_rb,0.87870e+01_rb,0.85159e+01_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.97162e+01_rb,0.94370e+01_rb,0.90971e+01_rb,0.88239e+01_rb,0.85528e+01_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.96997e+01_rb,0.93448e+01_rb,0.90783e+01_rb,0.87958e+01_rb,0.87225e+01_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.97261e+01_rb,0.93769e+01_rb,0.90457e+01_rb,0.89061e+01_rb,0.87695e+01_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.97573e+01_rb,0.94639e+01_rb,0.92105e+01_rb,0.90277e+01_rb,0.88187e+01_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.98297e+01_rb,0.95424e+01_rb,0.93169e+01_rb,0.90796e+01_rb,0.89104e+01_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.99015e+01_rb,0.96432e+01_rb,0.94039e+01_rb,0.91616e+01_rb,0.89941e+01_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.99137e+01_rb,0.96714e+01_rb,0.94790e+01_rb,0.92092e+01_rb,0.90352e+01_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.99728e+01_rb,0.96872e+01_rb,0.94263e+01_rb,0.92759e+01_rb,0.90690e+01_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.10009e+02_rb,0.96720e+01_rb,0.94529e+01_rb,0.92520e+01_rb,0.90775e+01_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.99394e+01_rb,0.96947e+01_rb,0.94735e+01_rb,0.92670e+01_rb,0.90312e+01_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.98412e+01_rb,0.96685e+01_rb,0.93802e+01_rb,0.91747e+01_rb,0.90019e+01_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.98284e+01_rb,0.96419e+01_rb,0.93576e+01_rb,0.91166e+01_rb,0.88968e+01_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.98765e+01_rb,0.96737e+01_rb,0.94176e+01_rb,0.90811e+01_rb,0.88300e+01_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.99370e+01_rb,0.96739e+01_rb,0.94534e+01_rb,0.91692e+01_rb,0.88574e+01_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.10145e+02_rb,0.99712e+01_rb,0.96675e+01_rb,0.93530e+01_rb,0.89895e+01_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.10395e+02_rb,0.10167e+02_rb,0.99330e+01_rb,0.95943e+01_rb,0.92927e+01_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.10580e+02_rb,0.10365e+02_rb,0.10114e+02_rb,0.98197e+01_rb,0.95303e+01_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.10794e+02_rb,0.10715e+02_rb,0.10421e+02_rb,0.10154e+02_rb,0.98629e+01_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.10946e+02_rb,0.10939e+02_rb,0.10689e+02_rb,0.10427e+02_rb,0.10145e+02_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.11156e+02_rb,0.11126e+02_rb,0.10973e+02_rb,0.10622e+02_rb,0.10371e+02_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.11165e+02_rb,0.11308e+02_rb,0.11212e+02_rb,0.10985e+02_rb,0.10624e+02_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.11221e+02_rb,0.11354e+02_rb,0.11431e+02_rb,0.11243e+02_rb,0.10959e+02_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.11238e+02_rb,0.11406e+02_rb,0.11591e+02_rb,0.11479e+02_rb,0.11275e+02_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.11335e+02_rb,0.11405e+02_rb,0.11662e+02_rb,0.11637e+02_rb,0.11480e+02_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.11355e+02_rb,0.11451e+02_rb,0.11592e+02_rb,0.11670e+02_rb,0.11515e+02_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.11389e+02_rb,0.11476e+02_rb,0.11586e+02_rb,0.11657e+02_rb,0.11618e+02_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.11480e+02_rb,0.11599e+02_rb,0.11673e+02_rb,0.11677e+02_rb,0.11653e+02_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.97590e+01_rb,0.94275e+01_rb,0.91020e+01_rb,0.89149e+01_rb,0.87289e+01_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.10505e+02_rb,0.10164e+02_rb,0.99232e+01_rb,0.97321e+01_rb,0.94201e+01_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.11237e+02_rb,0.10955e+02_rb,0.10714e+02_rb,0.10370e+02_rb,0.10019e+02_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.12124e+02_rb,0.11740e+02_rb,0.11352e+02_rb,0.10992e+02_rb,0.10632e+02_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.12886e+02_rb,0.12429e+02_rb,0.12001e+02_rb,0.11642e+02_rb,0.11273e+02_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.13556e+02_rb,0.13047e+02_rb,0.12733e+02_rb,0.12297e+02_rb,0.11616e+02_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.14349e+02_rb,0.13901e+02_rb,0.13193e+02_rb,0.12562e+02_rb,0.12015e+02_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.15084e+02_rb,0.14361e+02_rb,0.13567e+02_rb,0.12903e+02_rb,0.12393e+02_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.15509e+02_rb,0.14641e+02_rb,0.13824e+02_rb,0.13136e+02_rb,0.12832e+02_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.15737e+02_rb,0.14756e+02_rb,0.13944e+02_rb,0.13493e+02_rb,0.13014e+02_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.15733e+02_rb,0.14806e+02_rb,0.14130e+02_rb,0.13708e+02_rb,0.13129e+02_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.15735e+02_rb,0.14832e+02_rb,0.14382e+02_rb,0.13702e+02_rb,0.13090e+02_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.15596e+02_rb,0.15046e+02_rb,0.14369e+02_rb,0.13676e+02_rb,0.13207e+02_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.15679e+02_rb,0.15085e+02_rb,0.14382e+02_rb,0.13864e+02_rb,0.13243e+02_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.15773e+02_rb,0.15051e+02_rb,0.14458e+02_rb,0.13792e+02_rb,0.13309e+02_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.15791e+02_rb,0.15118e+02_rb,0.14520e+02_rb,0.13908e+02_rb,0.13506e+02_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.15907e+02_rb,0.15282e+02_rb,0.14696e+02_rb,0.14168e+02_rb,0.13591e+02_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.15997e+02_rb,0.15426e+02_rb,0.14908e+02_rb,0.14325e+02_rb,0.13655e+02_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.16254e+02_rb,0.15640e+02_rb,0.15053e+02_rb,0.14410e+02_rb,0.13542e+02_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.16522e+02_rb,0.15885e+02_rb,0.15194e+02_rb,0.14363e+02_rb,0.13365e+02_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.16844e+02_rb,0.16068e+02_rb,0.15151e+02_rb,0.14109e+02_rb,0.13003e+02_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.16915e+02_rb,0.16003e+02_rb,0.14953e+02_rb,0.13814e+02_rb,0.12608e+02_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.16922e+02_rb,0.15890e+02_rb,0.14756e+02_rb,0.13405e+02_rb,0.12281e+02_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.16966e+02_rb,0.15773e+02_rb,0.14522e+02_rb,0.13240e+02_rb,0.11917e+02_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.17142e+02_rb,0.15897e+02_rb,0.14564e+02_rb,0.13378e+02_rb,0.11953e+02_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.17346e+02_rb,0.16051e+02_rb,0.14752e+02_rb,0.13439e+02_rb,0.11971e+02_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.17475e+02_rb,0.16210e+02_rb,0.14948e+02_rb,0.13510e+02_rb,0.12056e+02_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.17754e+02_rb,0.16503e+02_rb,0.15328e+02_rb,0.13801e+02_rb,0.12328e+02_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.18031e+02_rb,0.16909e+02_rb,0.15619e+02_rb,0.14276e+02_rb,0.12740e+02_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.18386e+02_rb,0.17235e+02_rb,0.15966e+02_rb,0.14652e+02_rb,0.13194e+02_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.18710e+02_rb,0.17591e+02_rb,0.16361e+02_rb,0.15070e+02_rb,0.13707e+02_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.19098e+02_rb,0.17898e+02_rb,0.16845e+02_rb,0.15582e+02_rb,0.14265e+02_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.19252e+02_rb,0.18167e+02_rb,0.17135e+02_rb,0.15969e+02_rb,0.14652e+02_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.19041e+02_rb,0.18357e+02_rb,0.17265e+02_rb,0.16200e+02_rb,0.15002e+02_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.18766e+02_rb,0.18032e+02_rb,0.17152e+02_rb,0.16208e+02_rb,0.15088e+02_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.18411e+02_rb,0.17740e+02_rb,0.16984e+02_rb,0.16085e+02_rb,0.15089e+02_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.18291e+02_rb,0.17667e+02_rb,0.16941e+02_rb,0.16014e+02_rb,0.14979e+02_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.18624e+02_rb,0.17786e+02_rb,0.17174e+02_rb,0.16136e+02_rb,0.15128e+02_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.19430e+02_rb,0.18470e+02_rb,0.17722e+02_rb,0.16775e+02_rb,0.15711e+02_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.20123e+02_rb,0.18895e+02_rb,0.18060e+02_rb,0.17255e+02_rb,0.16173e+02_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.20744e+02_rb,0.19415e+02_rb,0.18626e+02_rb,0.17397e+02_rb,0.16465e+02_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.21714e+02_rb,0.20093e+02_rb,0.19173e+02_rb,0.18078e+02_rb,0.16884e+02_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.22731e+02_rb,0.21068e+02_rb,0.19674e+02_rb,0.18569e+02_rb,0.17315e+02_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.23924e+02_rb,0.22190e+02_rb,0.20317e+02_rb,0.18891e+02_rb,0.17603e+02_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.24940e+02_rb,0.23270e+02_rb,0.21498e+02_rb,0.19833e+02_rb,0.18265e+02_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.25828e+02_rb,0.24271e+02_rb,0.22518e+02_rb,0.20827e+02_rb,0.19003e+02_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.26483e+02_rb,0.24983e+02_rb,0.23453e+02_rb,0.21676e+02_rb,0.19755e+02_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.15960e+02_rb,0.15303e+02_rb,0.14694e+02_rb,0.13842e+02_rb,0.13008e+02_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.17675e+02_rb,0.16896e+02_rb,0.15925e+02_rb,0.14915e+02_rb,0.14133e+02_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.19385e+02_rb,0.18234e+02_rb,0.16959e+02_rb,0.15987e+02_rb,0.15180e+02_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.20552e+02_rb,0.19165e+02_rb,0.17982e+02_rb,0.16927e+02_rb,0.16368e+02_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.21349e+02_rb,0.19954e+02_rb,0.19023e+02_rb,0.18091e+02_rb,0.17398e+02_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.22160e+02_rb,0.21597e+02_rb,0.20213e+02_rb,0.19055e+02_rb,0.18102e+02_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.23816e+02_rb,0.22303e+02_rb,0.21008e+02_rb,0.19912e+02_rb,0.18903e+02_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.24810e+02_rb,0.23381e+02_rb,0.21933e+02_rb,0.20846e+02_rb,0.19540e+02_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.25893e+02_rb,0.24250e+02_rb,0.22750e+02_rb,0.21616e+02_rb,0.19627e+02_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.26542e+02_rb,0.24773e+02_rb,0.23600e+02_rb,0.21309e+02_rb,0.19278e+02_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.27270e+02_rb,0.25621e+02_rb,0.23587e+02_rb,0.21255e+02_rb,0.19478e+02_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.27744e+02_rb,0.26088e+02_rb,0.23254e+02_rb,0.21242e+02_rb,0.19100e+02_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.28557e+02_rb,0.25575e+02_rb,0.23098e+02_rb,0.20631e+02_rb,0.18206e+02_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.28140e+02_rb,0.25135e+02_rb,0.22210e+02_rb,0.19496e+02_rb,0.17366e+02_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.27284e+02_rb,0.24232e+02_rb,0.21249e+02_rb,0.18720e+02_rb,0.16279e+02_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.26494e+02_rb,0.23076e+02_rb,0.20060e+02_rb,0.17566e+02_rb,0.14956e+02_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.24773e+02_rb,0.21460e+02_rb,0.18370e+02_rb,0.15793e+02_rb,0.13302e+02_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.23157e+02_rb,0.19587e+02_rb,0.16563e+02_rb,0.13805e+02_rb,0.11647e+02_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.20881e+02_rb,0.17370e+02_rb,0.14460e+02_rb,0.11958e+02_rb,0.99808e+01_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.18247e+02_rb,0.15035e+02_rb,0.12296e+02_rb,0.10101e+02_rb,0.83032e+01_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.15492e+02_rb,0.12470e+02_rb,0.10235e+02_rb,0.81131e+01_rb,0.64390e+01_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.13284e+02_rb,0.10782e+02_rb,0.82553e+01_rb,0.64597e+01_rb,0.42402e+01_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.11520e+02_rb,0.89534e+01_rb,0.69691e+01_rb,0.48753e+01_rb,0.27443e+01_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.10067e+02_rb,0.75650e+01_rb,0.54572e+01_rb,0.31866e+01_rb,0.14626e+01_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.97744e+01_rb,0.73767e+01_rb,0.52433e+01_rb,0.27509e+01_rb,0.10380e+01_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.94733e+01_rb,0.70859e+01_rb,0.47807e+01_rb,0.23954e+01_rb,0.74468e+00_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.94041e+01_rb,0.67286e+01_rb,0.41966e+01_rb,0.20683e+01_rb,0.27939e+00_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.10076e+02_rb,0.74414e+01_rb,0.47964e+01_rb,0.25258e+01_rb,0.87689e+00_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.10878e+02_rb,0.81759e+01_rb,0.56173e+01_rb,0.30416e+01_rb,0.13231e+01_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.11858e+02_rb,0.88284e+01_rb,0.63009e+01_rb,0.37211e+01_rb,0.17214e+01_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.13284e+02_rb,0.99847e+01_rb,0.73905e+01_rb,0.50291e+01_rb,0.24940e+01_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.14796e+02_rb,0.11545e+02_rb,0.85671e+01_rb,0.61687e+01_rb,0.37136e+01_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.16662e+02_rb,0.12949e+02_rb,0.98033e+01_rb,0.73353e+01_rb,0.52329e+01_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.19200e+02_rb,0.14684e+02_rb,0.11434e+02_rb,0.85867e+01_rb,0.64428e+01_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.21780e+02_rb,0.16837e+02_rb,0.13158e+02_rb,0.10165e+02_rb,0.76608e+01_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.24689e+02_rb,0.19487e+02_rb,0.15145e+02_rb,0.11845e+02_rb,0.89940e+01_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.27130e+02_rb,0.21775e+02_rb,0.17116e+02_rb,0.13679e+02_rb,0.10905e+02_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.27854e+02_rb,0.22306e+02_rb,0.17103e+02_rb,0.13783e+02_rb,0.10863e+02_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.27653e+02_rb,0.21825e+02_rb,0.16692e+02_rb,0.12707e+02_rb,0.98148e+01_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.27815e+02_rb,0.22411e+02_rb,0.17151e+02_rb,0.12787e+02_rb,0.95823e+01_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.29119e+02_rb,0.23144e+02_rb,0.17252e+02_rb,0.13594e+02_rb,0.99767e+01_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.29129e+02_rb,0.23469e+02_rb,0.17342e+02_rb,0.12745e+02_rb,0.95359e+01_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.29058e+02_rb,0.23190e+02_rb,0.17458e+02_rb,0.12690e+02_rb,0.90099e+01_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.28657e+02_rb,0.23001e+02_rb,0.17896e+02_rb,0.13433e+02_rb,0.94907e+01_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.29240e+02_rb,0.22830e+02_rb,0.17734e+02_rb,0.13185e+02_rb,0.97411e+01_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.29947e+02_rb,0.22946e+02_rb,0.17582e+02_rb,0.13008e+02_rb,0.96489e+01_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.28976e+02_rb,0.21746e+02_rb,0.15522e+02_rb,0.11254e+02_rb,0.80222e+01_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.25931e+02_rb,0.24537e+02_rb,0.23224e+02_rb,0.21983e+02_rb,0.20855e+02_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.29220e+02_rb,0.27507e+02_rb,0.25899e+02_rb,0.24431e+02_rb,0.23088e+02_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.32471e+02_rb,0.30409e+02_rb,0.28502e+02_rb,0.26794e+02_rb,0.25226e+02_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.35624e+02_rb,0.33186e+02_rb,0.30989e+02_rb,0.28748e+02_rb,0.24479e+02_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.38605e+02_rb,0.35797e+02_rb,0.30613e+02_rb,0.25949e+02_rb,0.21171e+02_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.41350e+02_rb,0.31676e+02_rb,0.25965e+02_rb,0.21818e+02_rb,0.18145e+02_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.34377e+02_rb,0.28144e+02_rb,0.23342e+02_rb,0.17735e+02_rb,0.13818e+02_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.31245e+02_rb,0.24408e+02_rb,0.19618e+02_rb,0.13984e+02_rb,0.93171e+01_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.28216e+02_rb,0.21711e+02_rb,0.16938e+02_rb,0.11225e+02_rb,0.60954e+01_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.25410e+02_rb,0.20320e+02_rb,0.12451e+02_rb,0.80509e+01_rb,0.41742e+01_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.22191e+02_rb,0.15284e+02_rb,0.84334e+01_rb,0.32443e+01_rb,0.10236e-04_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.19170e+02_rb,0.98429e+01_rb,0.40822e+01_rb,0.90070e-05_rb,0.84964e-05_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.11441e+02_rb,0.50508e+01_rb,0.77316e-05_rb,0.71796e-05_rb,0.66473e-05_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.73617e+01_rb,0.56953e+00_rb,0.62155e-05_rb,0.57759e-05_rb,0.53447e-05_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.37038e+01_rb,0.54098e-05_rb,0.49933e-05_rb,0.45180e-05_rb,0.42997e-05_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.47094e-05_rb,0.43472e-05_rb,0.40149e-05_rb,0.36332e-05_rb,0.34550e-05_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.37812e-05_rb,0.34885e-05_rb,0.32238e-05_rb,0.29187e-05_rb,0.27779e-05_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.30339e-05_rb,0.28004e-05_rb,0.25314e-05_rb,0.23451e-05_rb,0.22313e-05_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.24328e-05_rb,0.22460e-05_rb,0.20326e-05_rb,0.18813e-05_rb,0.17930e-05_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.18939e-05_rb,0.18012e-05_rb,0.16316e-05_rb,0.15109e-05_rb,0.14395e-05_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.15657e-05_rb,0.14309e-05_rb,0.13083e-05_rb,0.12124e-05_rb,0.15795e-05_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.12582e-05_rb,0.11508e-05_rb,0.10527e-05_rb,0.97625e-06_rb,0.19757e-05_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.10197e-05_rb,0.93275e-06_rb,0.85375e-06_rb,0.79153e-06_rb,0.21668e-05_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.83336e-06_rb,0.76274e-06_rb,0.69805e-06_rb,0.64735e-06_rb,0.17739e-05_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.68945e-06_rb,0.63022e-06_rb,0.57702e-06_rb,0.53486e-06_rb,0.10843e-05_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.55406e-06_rb,0.52180e-06_rb,0.47760e-06_rb,0.44282e-06_rb,0.89395e-06_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.45861e-06_rb,0.43223e-06_rb,0.39548e-06_rb,0.36639e-06_rb,0.47718e-06_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.38297e-06_rb,0.36441e-06_rb,0.32989e-06_rb,0.30551e-06_rb,0.28352e-06_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.31987e-06_rb,0.30430e-06_rb,0.27838e-06_rb,0.25513e-06_rb,0.23647e-06_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.26734e-06_rb,0.24677e-06_rb,0.23264e-06_rb,0.21290e-06_rb,0.19743e-06_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.22458e-06_rb,0.20712e-06_rb,0.19517e-06_rb,0.17853e-06_rb,0.16551e-06_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.18898e-06_rb,0.17429e-06_rb,0.16587e-06_rb,0.15173e-06_rb,0.13895e-06_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.15450e-06_rb,0.14658e-06_rb,0.13533e-06_rb,0.12759e-06_rb,0.11679e-06_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.13028e-06_rb,0.12362e-06_rb,0.11400e-06_rb,0.10744e-06_rb,0.98279e-07_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.11024e-06_rb,0.10159e-06_rb,0.96435e-07_rb,0.91711e-07_rb,0.83972e-07_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.93198e-07_rb,0.85906e-07_rb,0.81590e-07_rb,0.75279e-07_rb,0.70931e-07_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.76236e-07_rb,0.72626e-07_rb,0.68995e-07_rb,0.63641e-07_rb,0.60530e-07_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.64328e-07_rb,0.61369e-07_rb,0.56594e-07_rb,0.53672e-07_rb,0.49555e-07_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.54169e-07_rb,0.51722e-07_rb,0.47685e-07_rb,0.45298e-07_rb,0.41770e-07_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.46180e-07_rb,0.42221e-07_rb,0.40251e-07_rb,0.37120e-07_rb,0.35204e-07_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.33194e-01_rb,0.35538e-07_rb,0.33930e-07_rb,0.31297e-07_rb,0.29712e-07_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.63212e-01_rb,0.54132e-01_rb,0.36437e-01_rb,0.71353e-02_rb,0.24978e-07_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.62321e-01_rb,0.69163e-01_rb,0.76899e-01_rb,0.64692e-01_rb,0.42869e-01_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.73050e-01_rb,0.83118e-01_rb,0.74962e-01_rb,0.82540e-01_rb,0.91058e-01_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.71162e-01_rb,0.79898e-01_rb,0.89953e-01_rb,0.10014e+00_rb,0.10382e+00_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.67770e-01_rb,0.78960e-01_rb,0.86882e-01_rb,0.97002e-01_rb,0.10740e+00_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.66421e-01_rb,0.77608e-01_rb,0.10426e+00_rb,0.10063e+00_rb,0.10735e+00_rb /)\n  \n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.860560e-06_rb, 0.130439e-05_rb, 0.382378e-05_rb /)\n      forrefo(:, 2) = (/ 0.817926e-06_rb, 0.158599e-05_rb, 0.658771e-04_rb /)\n      forrefo(:, 3) = (/ 0.129369e-05_rb, 0.824406e-05_rb, 0.952778e-04_rb /)\n      forrefo(:, 4) = (/ 0.438918e-05_rb, 0.375356e-04_rb, 0.119111e-03_rb /)\n      forrefo(:, 5) = (/ 0.306057e-04_rb, 0.622798e-04_rb, 0.100740e-03_rb /)\n      forrefo(:, 6) = (/ 0.891934e-04_rb, 0.856393e-04_rb, 0.635583e-04_rb /)\n      forrefo(:, 7) = (/ 0.171959e-03_rb, 0.173431e-03_rb, 0.611721e-04_rb /)\n      forrefo(:, 8) = (/ 0.357795e-03_rb, 0.247261e-03_rb, 0.488864e-04_rb /)\n      forrefo(:, 9) = (/ 0.326623e-03_rb, 0.289471e-03_rb, 0.548834e-04_rb /)\n      forrefo(:,10) = (/ 0.345103e-03_rb, 0.320898e-03_rb, 0.633214e-04_rb /)\n      forrefo(:,11) = (/ 0.392567e-03_rb, 0.325153e-03_rb, 0.744479e-04_rb /)\n      forrefo(:,12) = (/ 0.349277e-03_rb, 0.345610e-03_rb, 0.916479e-04_rb /)\n      forrefo(:,13) = (/ 0.425161e-03_rb, 0.348452e-03_rb, 0.125788e-03_rb /)\n      forrefo(:,14) = (/ 0.407594e-03_rb, 0.435836e-03_rb, 0.287583e-03_rb /)\n      forrefo(:,15) = (/ 0.521605e-03_rb, 0.486596e-03_rb, 0.483511e-03_rb /)\n      forrefo(:,16) = (/ 0.773790e-03_rb, 0.737247e-03_rb, 0.665939e-03_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n           \n      selfrefo(:, 1) = (/ &\n        &  0.750370e-03_rb, 0.644938e-03_rb, 0.554321e-03_rb, 0.476436e-03_rb, 0.409494e-03_rb, &\n        &  0.351957e-03_rb, 0.302505e-03_rb, 0.260002e-03_rb, 0.223470e-03_rb, 0.192071e-03_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.136135e-02_rb, 0.113187e-02_rb, 0.941076e-03_rb, 0.782440e-03_rb, 0.650546e-03_rb, &\n        &  0.540885e-03_rb, 0.449709e-03_rb, 0.373902e-03_rb, 0.310874e-03_rb, 0.258471e-03_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.333950e-02_rb, 0.256391e-02_rb, 0.196845e-02_rb, 0.151129e-02_rb, 0.116030e-02_rb, &\n        &  0.890824e-03_rb, 0.683934e-03_rb, 0.525093e-03_rb, 0.403143e-03_rb, 0.309515e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.793392e-02_rb, 0.589865e-02_rb, 0.438548e-02_rb, 0.326048e-02_rb, 0.242408e-02_rb, &\n        &  0.180223e-02_rb, 0.133991e-02_rb, 0.996186e-03_rb, 0.740636e-03_rb, 0.550642e-03_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.828169e-02_rb, 0.703139e-02_rb, 0.596984e-02_rb, 0.506856e-02_rb, 0.430335e-02_rb, &\n        &  0.365366e-02_rb, 0.310206e-02_rb, 0.263374e-02_rb, 0.223612e-02_rb, 0.189852e-02_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.834190e-02_rb, 0.780225e-02_rb, 0.729750e-02_rb, 0.682541e-02_rb, 0.638386e-02_rb, &\n        &  0.597087e-02_rb, 0.558460e-02_rb, 0.522332e-02_rb, 0.488541e-02_rb, 0.456936e-02_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.119082e-01_rb, 0.112566e-01_rb, 0.106406e-01_rb, 0.100583e-01_rb, 0.950785e-02_rb, &\n        &  0.898755e-02_rb, 0.849571e-02_rb, 0.803080e-02_rb, 0.759132e-02_rb, 0.717590e-02_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.144004e-01_rb, 0.141762e-01_rb, 0.139554e-01_rb, 0.137381e-01_rb, 0.135241e-01_rb, &\n        &  0.133135e-01_rb, 0.131062e-01_rb, 0.129021e-01_rb, 0.127011e-01_rb, 0.125033e-01_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.186171e-01_rb, 0.175281e-01_rb, 0.165027e-01_rb, 0.155373e-01_rb, 0.146284e-01_rb, &\n        &  0.137726e-01_rb, 0.129670e-01_rb, 0.122084e-01_rb, 0.114942e-01_rb, 0.108218e-01_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.209396e-01_rb, 0.195077e-01_rb, 0.181737e-01_rb, 0.169309e-01_rb, 0.157731e-01_rb, &\n        &  0.146945e-01_rb, 0.136897e-01_rb, 0.127535e-01_rb, 0.118814e-01_rb, 0.110689e-01_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.203661e-01_rb, 0.193311e-01_rb, 0.183487e-01_rb, 0.174163e-01_rb, 0.165312e-01_rb, &\n        &  0.156911e-01_rb, 0.148937e-01_rb, 0.141368e-01_rb, 0.134184e-01_rb, 0.127365e-01_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.226784e-01_rb, 0.210210e-01_rb, 0.194848e-01_rb, 0.180608e-01_rb, 0.167409e-01_rb, &\n        &  0.155174e-01_rb, 0.143834e-01_rb, 0.133322e-01_rb, 0.123579e-01_rb, 0.114547e-01_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.221773e-01_rb, 0.210306e-01_rb, 0.199433e-01_rb, 0.189122e-01_rb, 0.179344e-01_rb, &\n        &  0.170071e-01_rb, 0.161278e-01_rb, 0.152939e-01_rb, 0.145032e-01_rb, 0.137533e-01_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.275920e-01_rb, 0.252595e-01_rb, 0.231241e-01_rb, 0.211693e-01_rb, 0.193797e-01_rb, &\n        &  0.177415e-01_rb, 0.162417e-01_rb, 0.148687e-01_rb, 0.136117e-01_rb, 0.124610e-01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.288687e-01_rb, 0.269968e-01_rb, 0.252462e-01_rb, 0.236092e-01_rb, 0.220783e-01_rb, &\n        &  0.206466e-01_rb, 0.193078e-01_rb, 0.180559e-01_rb, 0.168851e-01_rb, 0.157902e-01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.371842e-01_rb, 0.347595e-01_rb, 0.324929e-01_rb, 0.303741e-01_rb, 0.283934e-01_rb, &\n        &  0.265419e-01_rb, 0.248112e-01_rb, 0.231933e-01_rb, 0.216809e-01_rb, 0.202671e-01_rb /)\n  \n      end subroutine sw_kgb18\n\n! **************************************************************************\n      subroutine sw_kgb19\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            rayl, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 3.25791_rb    , 3.29697_rb    , 3.16031_rb    , 2.96115_rb    , &\n        & 2.69238_rb    , 2.33819_rb    , 1.92760_rb    , 1.44918_rb    , &\n        & 0.979764_rb   , 0.107336_rb   , 8.94523e-02_rb, 6.98325e-02_rb, &\n        & 5.12051e-02_rb, 3.23645e-02_rb, 1.23401e-02_rb, 1.71339e-03_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 3.22769_rb    , 3.28817_rb    , 3.16687_rb    , 2.97662_rb    , &\n        & 2.69495_rb    , 2.34392_rb    , 1.92900_rb    , 1.45391_rb    , &\n        & 0.982522_rb   , 0.107638_rb   , 8.92458e-02_rb, 6.99885e-02_rb, &\n        & 5.09679e-02_rb, 3.23789e-02_rb, 1.22673e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 3.22294_rb    , 3.27780_rb    , 3.17424_rb    , 2.97143_rb    , &\n        & 2.69785_rb    , 2.34993_rb    , 1.93155_rb    , 1.45196_rb    , &\n        & 0.985329_rb   , 0.108027_rb   , 8.93552e-02_rb, 6.99937e-02_rb, &\n        & 5.11678e-02_rb, 3.24846e-02_rb, 1.20636e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 3.22445_rb    , 3.26113_rb    , 3.18438_rb    , 2.96921_rb    , &\n        & 2.69579_rb    , 2.35586_rb    , 1.93454_rb    , 1.44949_rb    , &\n        & 0.987347_rb   , 0.108611_rb   , 8.91643e-02_rb, 7.02236e-02_rb, &\n        & 5.12980e-02_rb, 3.25282e-02_rb, 1.21189e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 3.22497_rb    , 3.25109_rb    , 3.18741_rb    , 2.96970_rb    , &\n        & 2.69460_rb    , 2.36020_rb    , 1.93301_rb    , 1.45224_rb    , &\n        & 0.988564_rb   , 0.108255_rb   , 8.93830e-02_rb, 7.03655e-02_rb, &\n        & 5.13017e-02_rb, 3.29414e-02_rb, 1.21189e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,6) = (/ &\n        & 3.22632_rb    , 3.24174_rb    , 3.18524_rb    , 2.97402_rb    , &\n        & 2.69807_rb    , 2.35742_rb    , 1.93377_rb    , 1.45621_rb    , &\n        & 0.988132_rb   , 0.108344_rb   , 8.93188e-02_rb, 7.04907e-02_rb, &\n        & 5.17938e-02_rb, 3.31465e-02_rb, 1.21155e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,7) = (/ &\n        & 3.22793_rb    , 3.23589_rb    , 3.17720_rb    , 2.97869_rb    , &\n        & 2.70293_rb    , 2.35436_rb    , 1.93557_rb    , 1.45868_rb    , &\n        & 0.988654_rb   , 0.108198_rb   , 8.93375e-02_rb, 7.09790e-02_rb, &\n        & 5.24733e-02_rb, 3.31298e-02_rb, 1.21126e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,8) = (/ &\n        & 3.22966_rb    , 3.24087_rb    , 3.15676_rb    , 2.98171_rb    , &\n        & 2.70894_rb    , 2.34975_rb    , 1.93855_rb    , 1.46354_rb    , &\n        & 0.988544_rb   , 0.108574_rb   , 9.02522e-02_rb, 7.12908e-02_rb, &\n        & 5.24844e-02_rb, 3.31084e-02_rb, 1.21060e-02_rb, 1.56040e-03_rb /)\n      sfluxrefo(:,9) = (/ &\n        & 3.27240_rb    , 3.24666_rb    , 3.13886_rb    , 2.95238_rb    , &\n        & 2.70190_rb    , 2.34460_rb    , 1.93948_rb    , 1.47111_rb    , &\n        & 0.990821_rb   , 0.108730_rb   , 9.01625e-02_rb, 7.13261e-02_rb, &\n        & 5.24813e-02_rb, 3.31083e-02_rb, 1.21126e-02_rb, 1.56040e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 4900 cm-1.\n      rayl = 2.29e-09_rb\n\n      strrat = 5.49281_rb\n\n      layreffr = 3\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.14981e-05_rb,0.26659e-05_rb,0.31874e-05_rb,0.35509e-05_rb,0.37593e-05_rb, &\n        & 0.38514e-05_rb,0.37369e-05_rb,0.35011e-05_rb,0.23894e-05_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.15103e-05_rb,0.27348e-05_rb,0.32692e-05_rb,0.36558e-05_rb,0.38926e-05_rb, &\n        & 0.39737e-05_rb,0.38798e-05_rb,0.36565e-05_rb,0.24072e-05_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.15233e-05_rb,0.28090e-05_rb,0.33744e-05_rb,0.37729e-05_rb,0.40258e-05_rb, &\n        & 0.41107e-05_rb,0.40389e-05_rb,0.38226e-05_rb,0.24704e-05_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.15219e-05_rb,0.28978e-05_rb,0.35015e-05_rb,0.38984e-05_rb,0.41569e-05_rb, &\n        & 0.42771e-05_rb,0.42110e-05_rb,0.39963e-05_rb,0.25504e-05_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.15254e-05_rb,0.29633e-05_rb,0.36224e-05_rb,0.40435e-05_rb,0.42975e-05_rb, &\n        & 0.44410e-05_rb,0.43849e-05_rb,0.41847e-05_rb,0.26420e-05_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.13024e-05_rb,0.23699e-05_rb,0.28370e-05_rb,0.31443e-05_rb,0.33326e-05_rb, &\n        & 0.33798e-05_rb,0.32797e-05_rb,0.30078e-05_rb,0.18819e-05_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.13249e-05_rb,0.24299e-05_rb,0.29103e-05_rb,0.32336e-05_rb,0.34308e-05_rb, &\n        & 0.35019e-05_rb,0.34046e-05_rb,0.31323e-05_rb,0.19511e-05_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.13241e-05_rb,0.25059e-05_rb,0.30019e-05_rb,0.33317e-05_rb,0.35516e-05_rb, &\n        & 0.36333e-05_rb,0.35372e-05_rb,0.32615e-05_rb,0.20254e-05_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.13325e-05_rb,0.25840e-05_rb,0.31009e-05_rb,0.34399e-05_rb,0.36699e-05_rb, &\n        & 0.37727e-05_rb,0.36811e-05_rb,0.34016e-05_rb,0.20611e-05_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.13321e-05_rb,0.26601e-05_rb,0.32189e-05_rb,0.35640e-05_rb,0.38012e-05_rb, &\n        & 0.39113e-05_rb,0.38271e-05_rb,0.35499e-05_rb,0.21368e-05_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.11079e-05_rb,0.20757e-05_rb,0.24846e-05_rb,0.27511e-05_rb,0.28883e-05_rb, &\n        & 0.29142e-05_rb,0.28203e-05_rb,0.25706e-05_rb,0.15124e-05_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.11298e-05_rb,0.21278e-05_rb,0.25551e-05_rb,0.28306e-05_rb,0.29814e-05_rb, &\n        & 0.30126e-05_rb,0.29328e-05_rb,0.26721e-05_rb,0.15784e-05_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.11405e-05_rb,0.21812e-05_rb,0.26237e-05_rb,0.29130e-05_rb,0.30816e-05_rb, &\n        & 0.31265e-05_rb,0.30480e-05_rb,0.27784e-05_rb,0.16468e-05_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.11347e-05_rb,0.22472e-05_rb,0.27094e-05_rb,0.30057e-05_rb,0.31821e-05_rb, &\n        & 0.32536e-05_rb,0.31714e-05_rb,0.28837e-05_rb,0.17189e-05_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.11383e-05_rb,0.23152e-05_rb,0.28016e-05_rb,0.31126e-05_rb,0.33051e-05_rb, &\n        & 0.33759e-05_rb,0.32961e-05_rb,0.29993e-05_rb,0.17919e-05_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.93104e-06_rb,0.18005e-05_rb,0.21693e-05_rb,0.23819e-05_rb,0.24829e-05_rb, &\n        & 0.24860e-05_rb,0.23860e-05_rb,0.21586e-05_rb,0.12198e-05_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.94591e-06_rb,0.18309e-05_rb,0.22153e-05_rb,0.24487e-05_rb,0.25574e-05_rb, &\n        & 0.25721e-05_rb,0.24802e-05_rb,0.22458e-05_rb,0.13105e-05_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.95638e-06_rb,0.18753e-05_rb,0.22788e-05_rb,0.25149e-05_rb,0.26499e-05_rb, &\n        & 0.26671e-05_rb,0.25797e-05_rb,0.23335e-05_rb,0.14017e-05_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.95763e-06_rb,0.19379e-05_rb,0.23271e-05_rb,0.25858e-05_rb,0.27437e-05_rb, &\n        & 0.27792e-05_rb,0.26790e-05_rb,0.24268e-05_rb,0.14872e-05_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.95668e-06_rb,0.19877e-05_rb,0.23997e-05_rb,0.26721e-05_rb,0.28382e-05_rb, &\n        & 0.28806e-05_rb,0.27857e-05_rb,0.25225e-05_rb,0.15698e-05_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.77329e-06_rb,0.15354e-05_rb,0.18723e-05_rb,0.20411e-05_rb,0.21095e-05_rb, &\n        & 0.21017e-05_rb,0.19998e-05_rb,0.18017e-05_rb,0.97629e-06_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.78241e-06_rb,0.15660e-05_rb,0.19091e-05_rb,0.20970e-05_rb,0.21786e-05_rb, &\n        & 0.21730e-05_rb,0.20794e-05_rb,0.18731e-05_rb,0.10645e-05_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.79463e-06_rb,0.15948e-05_rb,0.19458e-05_rb,0.21529e-05_rb,0.22557e-05_rb, &\n        & 0.22576e-05_rb,0.21631e-05_rb,0.19462e-05_rb,0.11507e-05_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.79779e-06_rb,0.16389e-05_rb,0.19877e-05_rb,0.22087e-05_rb,0.23274e-05_rb, &\n        & 0.23462e-05_rb,0.22501e-05_rb,0.20204e-05_rb,0.12366e-05_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.79875e-06_rb,0.16865e-05_rb,0.20410e-05_rb,0.22789e-05_rb,0.24049e-05_rb, &\n        & 0.24283e-05_rb,0.23388e-05_rb,0.21006e-05_rb,0.13155e-05_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.63799e-06_rb,0.13079e-05_rb,0.15873e-05_rb,0.17187e-05_rb,0.17689e-05_rb, &\n        & 0.17509e-05_rb,0.16625e-05_rb,0.14950e-05_rb,0.77624e-06_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.64423e-06_rb,0.13180e-05_rb,0.16173e-05_rb,0.17648e-05_rb,0.18253e-05_rb, &\n        & 0.18152e-05_rb,0.17299e-05_rb,0.15482e-05_rb,0.85457e-06_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.65214e-06_rb,0.13481e-05_rb,0.16476e-05_rb,0.18158e-05_rb,0.18867e-05_rb, &\n        & 0.18859e-05_rb,0.17999e-05_rb,0.16080e-05_rb,0.93968e-06_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.65949e-06_rb,0.13728e-05_rb,0.16795e-05_rb,0.18618e-05_rb,0.19507e-05_rb, &\n        & 0.19568e-05_rb,0.18693e-05_rb,0.16710e-05_rb,0.10256e-05_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.66012e-06_rb,0.14051e-05_rb,0.17174e-05_rb,0.19154e-05_rb,0.20111e-05_rb, &\n        & 0.20230e-05_rb,0.19421e-05_rb,0.17361e-05_rb,0.11072e-05_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.52652e-06_rb,0.10995e-05_rb,0.13221e-05_rb,0.14282e-05_rb,0.14627e-05_rb, &\n        & 0.14494e-05_rb,0.13754e-05_rb,0.12359e-05_rb,0.62399e-06_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.52631e-06_rb,0.11047e-05_rb,0.13498e-05_rb,0.14646e-05_rb,0.15094e-05_rb, &\n        & 0.14961e-05_rb,0.14272e-05_rb,0.12791e-05_rb,0.69692e-06_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.53263e-06_rb,0.11231e-05_rb,0.13763e-05_rb,0.15059e-05_rb,0.15602e-05_rb, &\n        & 0.15533e-05_rb,0.14827e-05_rb,0.13257e-05_rb,0.76959e-06_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.53788e-06_rb,0.11448e-05_rb,0.14026e-05_rb,0.15478e-05_rb,0.16122e-05_rb, &\n        & 0.16137e-05_rb,0.15398e-05_rb,0.13748e-05_rb,0.84488e-06_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.54243e-06_rb,0.11660e-05_rb,0.14288e-05_rb,0.15891e-05_rb,0.16619e-05_rb, &\n        & 0.16672e-05_rb,0.15978e-05_rb,0.14265e-05_rb,0.92439e-06_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.42860e-06_rb,0.91208e-06_rb,0.10887e-05_rb,0.11732e-05_rb,0.12000e-05_rb, &\n        & 0.11901e-05_rb,0.11300e-05_rb,0.10181e-05_rb,0.51360e-06_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.42605e-06_rb,0.91355e-06_rb,0.11105e-05_rb,0.12004e-05_rb,0.12359e-05_rb, &\n        & 0.12238e-05_rb,0.11674e-05_rb,0.10496e-05_rb,0.58593e-06_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.42910e-06_rb,0.92458e-06_rb,0.11341e-05_rb,0.12355e-05_rb,0.12754e-05_rb, &\n        & 0.12667e-05_rb,0.12100e-05_rb,0.10877e-05_rb,0.65209e-06_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.43345e-06_rb,0.94024e-06_rb,0.11540e-05_rb,0.12669e-05_rb,0.13186e-05_rb, &\n        & 0.13163e-05_rb,0.12567e-05_rb,0.11280e-05_rb,0.72051e-06_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.43744e-06_rb,0.95845e-06_rb,0.11764e-05_rb,0.13022e-05_rb,0.13595e-05_rb, &\n        & 0.13618e-05_rb,0.13034e-05_rb,0.11671e-05_rb,0.79373e-06_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.34458e-06_rb,0.74844e-06_rb,0.89217e-06_rb,0.95875e-06_rb,0.98243e-06_rb, &\n        & 0.97566e-06_rb,0.92936e-06_rb,0.83611e-06_rb,0.44181e-06_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.34797e-06_rb,0.75304e-06_rb,0.90816e-06_rb,0.98264e-06_rb,0.10080e-05_rb, &\n        & 0.99889e-06_rb,0.95318e-06_rb,0.86041e-06_rb,0.51013e-06_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.34593e-06_rb,0.76020e-06_rb,0.92707e-06_rb,0.10062e-05_rb,0.10391e-05_rb, &\n        & 0.10296e-05_rb,0.98530e-06_rb,0.89011e-06_rb,0.58070e-06_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.34971e-06_rb,0.77088e-06_rb,0.94623e-06_rb,0.10342e-05_rb,0.10726e-05_rb, &\n        & 0.10689e-05_rb,0.10210e-05_rb,0.92020e-06_rb,0.65697e-06_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.35282e-06_rb,0.78517e-06_rb,0.96245e-06_rb,0.10609e-05_rb,0.11071e-05_rb, &\n        & 0.11073e-05_rb,0.10583e-05_rb,0.95054e-06_rb,0.72956e-06_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.27840e-06_rb,0.61035e-06_rb,0.72930e-06_rb,0.78415e-06_rb,0.80451e-06_rb, &\n        & 0.79924e-06_rb,0.76231e-06_rb,0.68727e-06_rb,0.40208e-06_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.28171e-06_rb,0.61798e-06_rb,0.74197e-06_rb,0.80115e-06_rb,0.82183e-06_rb, &\n        & 0.81621e-06_rb,0.78030e-06_rb,0.70425e-06_rb,0.46700e-06_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.28023e-06_rb,0.62269e-06_rb,0.75685e-06_rb,0.82101e-06_rb,0.84538e-06_rb, &\n        & 0.83821e-06_rb,0.80301e-06_rb,0.72663e-06_rb,0.53781e-06_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.28163e-06_rb,0.63156e-06_rb,0.77214e-06_rb,0.84244e-06_rb,0.87184e-06_rb, &\n        & 0.86752e-06_rb,0.83024e-06_rb,0.75000e-06_rb,0.60478e-06_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.28518e-06_rb,0.64070e-06_rb,0.78628e-06_rb,0.86439e-06_rb,0.89969e-06_rb, &\n        & 0.89910e-06_rb,0.85933e-06_rb,0.77376e-06_rb,0.67016e-06_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.22555e-06_rb,0.50042e-06_rb,0.59960e-06_rb,0.64537e-06_rb,0.66324e-06_rb, &\n        & 0.65924e-06_rb,0.63003e-06_rb,0.56890e-06_rb,0.34466e-06_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.22858e-06_rb,0.50705e-06_rb,0.60997e-06_rb,0.65948e-06_rb,0.67688e-06_rb, &\n        & 0.67311e-06_rb,0.64462e-06_rb,0.58333e-06_rb,0.40300e-06_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.22677e-06_rb,0.51178e-06_rb,0.62299e-06_rb,0.67572e-06_rb,0.69624e-06_rb, &\n        & 0.69126e-06_rb,0.66285e-06_rb,0.60090e-06_rb,0.46066e-06_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.22825e-06_rb,0.51907e-06_rb,0.63500e-06_rb,0.69311e-06_rb,0.71796e-06_rb, &\n        & 0.71484e-06_rb,0.68416e-06_rb,0.61859e-06_rb,0.51966e-06_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.23122e-06_rb,0.52598e-06_rb,0.64574e-06_rb,0.71116e-06_rb,0.74046e-06_rb, &\n        & 0.73979e-06_rb,0.70672e-06_rb,0.63708e-06_rb,0.58196e-06_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.18149e-06_rb,0.40829e-06_rb,0.49022e-06_rb,0.52910e-06_rb,0.54408e-06_rb, &\n        & 0.54163e-06_rb,0.51867e-06_rb,0.46933e-06_rb,0.28496e-06_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.18433e-06_rb,0.41378e-06_rb,0.49908e-06_rb,0.54027e-06_rb,0.55522e-06_rb, &\n        & 0.55286e-06_rb,0.53038e-06_rb,0.48103e-06_rb,0.33336e-06_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.18246e-06_rb,0.41799e-06_rb,0.50965e-06_rb,0.55347e-06_rb,0.57134e-06_rb, &\n        & 0.56787e-06_rb,0.54477e-06_rb,0.49462e-06_rb,0.38023e-06_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.18409e-06_rb,0.42347e-06_rb,0.51936e-06_rb,0.56749e-06_rb,0.58877e-06_rb, &\n        & 0.58648e-06_rb,0.56149e-06_rb,0.50825e-06_rb,0.43081e-06_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.18582e-06_rb,0.42888e-06_rb,0.52830e-06_rb,0.58240e-06_rb,0.60647e-06_rb, &\n        & 0.60598e-06_rb,0.57933e-06_rb,0.52277e-06_rb,0.48565e-06_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.14345e-06_rb,0.32927e-06_rb,0.39750e-06_rb,0.43000e-06_rb,0.44318e-06_rb, &\n        & 0.44201e-06_rb,0.42469e-06_rb,0.38538e-06_rb,0.23377e-06_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.14571e-06_rb,0.33355e-06_rb,0.40430e-06_rb,0.43954e-06_rb,0.45256e-06_rb, &\n        & 0.45159e-06_rb,0.43399e-06_rb,0.39467e-06_rb,0.27338e-06_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.14442e-06_rb,0.33719e-06_rb,0.41316e-06_rb,0.44996e-06_rb,0.46575e-06_rb, &\n        & 0.46364e-06_rb,0.44528e-06_rb,0.40510e-06_rb,0.31154e-06_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.14600e-06_rb,0.34141e-06_rb,0.42136e-06_rb,0.46096e-06_rb,0.47937e-06_rb, &\n        & 0.47817e-06_rb,0.45850e-06_rb,0.41598e-06_rb,0.35289e-06_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.14667e-06_rb,0.34608e-06_rb,0.42853e-06_rb,0.47296e-06_rb,0.49300e-06_rb, &\n        & 0.49352e-06_rb,0.47280e-06_rb,0.42757e-06_rb,0.39752e-06_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.16288e-04_rb,0.25817e-04_rb,0.29597e-04_rb,0.31319e-04_rb,0.31220e-04_rb, &\n        & 0.29539e-04_rb,0.25627e-04_rb,0.19758e-04_rb,0.72944e-05_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.18123e-04_rb,0.28565e-04_rb,0.32633e-04_rb,0.34427e-04_rb,0.34219e-04_rb, &\n        & 0.32223e-04_rb,0.27987e-04_rb,0.21485e-04_rb,0.79554e-05_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.19957e-04_rb,0.31607e-04_rb,0.36033e-04_rb,0.37887e-04_rb,0.37694e-04_rb, &\n        & 0.35399e-04_rb,0.30718e-04_rb,0.23412e-04_rb,0.85293e-05_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.22005e-04_rb,0.35064e-04_rb,0.39763e-04_rb,0.41694e-04_rb,0.41490e-04_rb, &\n        & 0.38891e-04_rb,0.33715e-04_rb,0.25512e-04_rb,0.91232e-05_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.24240e-04_rb,0.38906e-04_rb,0.43899e-04_rb,0.45870e-04_rb,0.45580e-04_rb, &\n        & 0.42616e-04_rb,0.36912e-04_rb,0.27728e-04_rb,0.97792e-05_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.14944e-04_rb,0.23223e-04_rb,0.25792e-04_rb,0.27019e-04_rb,0.26963e-04_rb, &\n        & 0.25431e-04_rb,0.22069e-04_rb,0.16933e-04_rb,0.59071e-05_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.16615e-04_rb,0.25452e-04_rb,0.28322e-04_rb,0.29800e-04_rb,0.29593e-04_rb, &\n        & 0.27776e-04_rb,0.24123e-04_rb,0.18444e-04_rb,0.63142e-05_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.18355e-04_rb,0.27996e-04_rb,0.31338e-04_rb,0.32892e-04_rb,0.32575e-04_rb, &\n        & 0.30478e-04_rb,0.26504e-04_rb,0.20132e-04_rb,0.67898e-05_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.20092e-04_rb,0.30938e-04_rb,0.34680e-04_rb,0.36255e-04_rb,0.35836e-04_rb, &\n        & 0.33500e-04_rb,0.29106e-04_rb,0.21950e-04_rb,0.73343e-05_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.21897e-04_rb,0.34150e-04_rb,0.38274e-04_rb,0.39931e-04_rb,0.39337e-04_rb, &\n        & 0.36752e-04_rb,0.31831e-04_rb,0.23882e-04_rb,0.78705e-05_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.13130e-04_rb,0.20363e-04_rb,0.22377e-04_rb,0.23003e-04_rb,0.22683e-04_rb, &\n        & 0.21429e-04_rb,0.18621e-04_rb,0.14177e-04_rb,0.47892e-05_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.14610e-04_rb,0.22299e-04_rb,0.24486e-04_rb,0.25140e-04_rb,0.24842e-04_rb, &\n        & 0.23413e-04_rb,0.20361e-04_rb,0.15469e-04_rb,0.52250e-05_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.16133e-04_rb,0.24482e-04_rb,0.26876e-04_rb,0.27653e-04_rb,0.27357e-04_rb, &\n        & 0.25669e-04_rb,0.22341e-04_rb,0.16897e-04_rb,0.56647e-05_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.17708e-04_rb,0.26887e-04_rb,0.29522e-04_rb,0.30577e-04_rb,0.30151e-04_rb, &\n        & 0.28221e-04_rb,0.24545e-04_rb,0.18455e-04_rb,0.60735e-05_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.19305e-04_rb,0.29364e-04_rb,0.32520e-04_rb,0.33741e-04_rb,0.33162e-04_rb, &\n        & 0.30976e-04_rb,0.26800e-04_rb,0.20103e-04_rb,0.64864e-05_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.11163e-04_rb,0.17498e-04_rb,0.19069e-04_rb,0.19561e-04_rb,0.19154e-04_rb, &\n        & 0.17906e-04_rb,0.15522e-04_rb,0.11778e-04_rb,0.40461e-05_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.12505e-04_rb,0.19238e-04_rb,0.20917e-04_rb,0.21365e-04_rb,0.20913e-04_rb, &\n        & 0.19471e-04_rb,0.16986e-04_rb,0.12856e-04_rb,0.43935e-05_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.13848e-04_rb,0.21132e-04_rb,0.22975e-04_rb,0.23433e-04_rb,0.22893e-04_rb, &\n        & 0.21327e-04_rb,0.18662e-04_rb,0.14056e-04_rb,0.47015e-05_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.15219e-04_rb,0.23159e-04_rb,0.25250e-04_rb,0.25753e-04_rb,0.25088e-04_rb, &\n        & 0.23437e-04_rb,0.20455e-04_rb,0.15366e-04_rb,0.50239e-05_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.16631e-04_rb,0.25311e-04_rb,0.27651e-04_rb,0.28243e-04_rb,0.27566e-04_rb, &\n        & 0.25775e-04_rb,0.22344e-04_rb,0.16758e-04_rb,0.53594e-05_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.92688e-05_rb,0.14829e-04_rb,0.16036e-04_rb,0.16388e-04_rb,0.16087e-04_rb, &\n        & 0.15049e-04_rb,0.12939e-04_rb,0.97243e-05_rb,0.35064e-05_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.10428e-04_rb,0.16289e-04_rb,0.17596e-04_rb,0.17928e-04_rb,0.17547e-04_rb, &\n        & 0.16347e-04_rb,0.14108e-04_rb,0.10621e-04_rb,0.37893e-05_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.11600e-04_rb,0.17922e-04_rb,0.19403e-04_rb,0.19701e-04_rb,0.19227e-04_rb, &\n        & 0.17835e-04_rb,0.15439e-04_rb,0.11627e-04_rb,0.40426e-05_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.12795e-04_rb,0.19672e-04_rb,0.21360e-04_rb,0.21677e-04_rb,0.21078e-04_rb, &\n        & 0.19535e-04_rb,0.16919e-04_rb,0.12746e-04_rb,0.43015e-05_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.14029e-04_rb,0.21551e-04_rb,0.23410e-04_rb,0.23746e-04_rb,0.23106e-04_rb, &\n        & 0.21397e-04_rb,0.18500e-04_rb,0.13918e-04_rb,0.45663e-05_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.75358e-05_rb,0.12284e-04_rb,0.13321e-04_rb,0.13580e-04_rb,0.13322e-04_rb, &\n        & 0.12459e-04_rb,0.10757e-04_rb,0.80012e-05_rb,0.28595e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.84801e-05_rb,0.13541e-04_rb,0.14600e-04_rb,0.14857e-04_rb,0.14519e-04_rb, &\n        & 0.13528e-04_rb,0.11747e-04_rb,0.87199e-05_rb,0.31250e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.94797e-05_rb,0.14898e-04_rb,0.16088e-04_rb,0.16329e-04_rb,0.15922e-04_rb, &\n        & 0.14786e-04_rb,0.12839e-04_rb,0.95406e-05_rb,0.33925e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.10510e-04_rb,0.16387e-04_rb,0.17709e-04_rb,0.17968e-04_rb,0.17465e-04_rb, &\n        & 0.16205e-04_rb,0.13999e-04_rb,0.10465e-04_rb,0.36786e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.11554e-04_rb,0.17973e-04_rb,0.19442e-04_rb,0.19736e-04_rb,0.19170e-04_rb, &\n        & 0.17751e-04_rb,0.15288e-04_rb,0.11441e-04_rb,0.39618e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.59994e-05_rb,0.10068e-04_rb,0.10903e-04_rb,0.11100e-04_rb,0.10910e-04_rb, &\n        & 0.10207e-04_rb,0.88301e-05_rb,0.65755e-05_rb,0.23537e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.67911e-05_rb,0.11098e-04_rb,0.11964e-04_rb,0.12161e-04_rb,0.11910e-04_rb, &\n        & 0.11113e-04_rb,0.96475e-05_rb,0.71733e-05_rb,0.26021e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.76012e-05_rb,0.12205e-04_rb,0.13167e-04_rb,0.13368e-04_rb,0.13058e-04_rb, &\n        & 0.12136e-04_rb,0.10571e-04_rb,0.78452e-05_rb,0.28416e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.84582e-05_rb,0.13412e-04_rb,0.14518e-04_rb,0.14721e-04_rb,0.14328e-04_rb, &\n        & 0.13323e-04_rb,0.11527e-04_rb,0.85995e-05_rb,0.30925e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.93346e-05_rb,0.14749e-04_rb,0.15973e-04_rb,0.16180e-04_rb,0.15730e-04_rb, &\n        & 0.14597e-04_rb,0.12601e-04_rb,0.93973e-05_rb,0.33285e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.47174e-05_rb,0.81367e-05_rb,0.88184e-05_rb,0.90007e-05_rb,0.88363e-05_rb, &\n        & 0.83059e-05_rb,0.72101e-05_rb,0.53496e-05_rb,0.18862e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.53543e-05_rb,0.89852e-05_rb,0.96904e-05_rb,0.98666e-05_rb,0.96509e-05_rb, &\n        & 0.90368e-05_rb,0.78700e-05_rb,0.58341e-05_rb,0.21147e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.60088e-05_rb,0.98855e-05_rb,0.10666e-04_rb,0.10849e-04_rb,0.10597e-04_rb, &\n        & 0.98826e-05_rb,0.86243e-05_rb,0.63949e-05_rb,0.23672e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.66958e-05_rb,0.10873e-04_rb,0.11751e-04_rb,0.11945e-04_rb,0.11636e-04_rb, &\n        & 0.10852e-04_rb,0.94101e-05_rb,0.70262e-05_rb,0.26329e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.74191e-05_rb,0.11960e-04_rb,0.12943e-04_rb,0.13152e-04_rb,0.12788e-04_rb, &\n        & 0.11889e-04_rb,0.10297e-04_rb,0.76977e-05_rb,0.29019e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.36886e-05_rb,0.65140e-05_rb,0.70684e-05_rb,0.72377e-05_rb,0.71080e-05_rb, &\n        & 0.67076e-05_rb,0.58353e-05_rb,0.43297e-05_rb,0.16419e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.41772e-05_rb,0.72104e-05_rb,0.77793e-05_rb,0.79335e-05_rb,0.77682e-05_rb, &\n        & 0.72903e-05_rb,0.63640e-05_rb,0.47210e-05_rb,0.18721e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.47123e-05_rb,0.79471e-05_rb,0.85662e-05_rb,0.87396e-05_rb,0.85319e-05_rb, &\n        & 0.79769e-05_rb,0.69694e-05_rb,0.51793e-05_rb,0.21015e-05_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.52612e-05_rb,0.87319e-05_rb,0.94365e-05_rb,0.96191e-05_rb,0.93783e-05_rb, &\n        & 0.87581e-05_rb,0.76277e-05_rb,0.56974e-05_rb,0.23505e-05_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.58401e-05_rb,0.96106e-05_rb,0.10404e-04_rb,0.10594e-04_rb,0.10308e-04_rb, &\n        & 0.96030e-05_rb,0.83402e-05_rb,0.62627e-05_rb,0.26170e-05_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.29023e-05_rb,0.52230e-05_rb,0.56669e-05_rb,0.58158e-05_rb,0.57137e-05_rb, &\n        & 0.54241e-05_rb,0.47416e-05_rb,0.35098e-05_rb,0.14223e-05_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.32752e-05_rb,0.57903e-05_rb,0.62548e-05_rb,0.63859e-05_rb,0.62528e-05_rb, &\n        & 0.58881e-05_rb,0.51542e-05_rb,0.38257e-05_rb,0.16559e-05_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.37047e-05_rb,0.63892e-05_rb,0.68928e-05_rb,0.70312e-05_rb,0.68734e-05_rb, &\n        & 0.64357e-05_rb,0.56361e-05_rb,0.42003e-05_rb,0.19248e-05_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.41471e-05_rb,0.70179e-05_rb,0.75920e-05_rb,0.77496e-05_rb,0.75508e-05_rb, &\n        & 0.70624e-05_rb,0.61778e-05_rb,0.46271e-05_rb,0.22074e-05_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.46061e-05_rb,0.77215e-05_rb,0.83699e-05_rb,0.85300e-05_rb,0.83121e-05_rb, &\n        & 0.77493e-05_rb,0.67551e-05_rb,0.50931e-05_rb,0.25043e-05_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.24060e-05_rb,0.43752e-05_rb,0.47372e-05_rb,0.48598e-05_rb,0.47689e-05_rb, &\n        & 0.45290e-05_rb,0.39653e-05_rb,0.29444e-05_rb,0.12255e-05_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.27123e-05_rb,0.48479e-05_rb,0.52339e-05_rb,0.53482e-05_rb,0.52342e-05_rb, &\n        & 0.49275e-05_rb,0.43239e-05_rb,0.32196e-05_rb,0.14282e-05_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.30632e-05_rb,0.53402e-05_rb,0.57660e-05_rb,0.58936e-05_rb,0.57515e-05_rb, &\n        & 0.53873e-05_rb,0.47344e-05_rb,0.35410e-05_rb,0.16636e-05_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.34245e-05_rb,0.58653e-05_rb,0.63554e-05_rb,0.64878e-05_rb,0.63244e-05_rb, &\n        & 0.59147e-05_rb,0.51855e-05_rb,0.39068e-05_rb,0.18858e-05_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.37984e-05_rb,0.64557e-05_rb,0.70032e-05_rb,0.71432e-05_rb,0.69591e-05_rb, &\n        & 0.64936e-05_rb,0.56748e-05_rb,0.42889e-05_rb,0.21529e-05_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.19822e-05_rb,0.36438e-05_rb,0.39439e-05_rb,0.40428e-05_rb,0.39656e-05_rb, &\n        & 0.37627e-05_rb,0.33048e-05_rb,0.24620e-05_rb,0.10349e-05_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.22347e-05_rb,0.40329e-05_rb,0.43559e-05_rb,0.44535e-05_rb,0.43556e-05_rb, &\n        & 0.41018e-05_rb,0.36156e-05_rb,0.26976e-05_rb,0.12078e-05_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.25196e-05_rb,0.44405e-05_rb,0.47965e-05_rb,0.49025e-05_rb,0.47850e-05_rb, &\n        & 0.44854e-05_rb,0.39542e-05_rb,0.29734e-05_rb,0.13908e-05_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.28142e-05_rb,0.48792e-05_rb,0.52882e-05_rb,0.53962e-05_rb,0.52646e-05_rb, &\n        & 0.49202e-05_rb,0.43229e-05_rb,0.32817e-05_rb,0.15895e-05_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.31182e-05_rb,0.53684e-05_rb,0.58256e-05_rb,0.59413e-05_rb,0.57855e-05_rb, &\n        & 0.54043e-05_rb,0.47298e-05_rb,0.35925e-05_rb,0.18050e-05_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.16206e-05_rb,0.30122e-05_rb,0.32612e-05_rb,0.33451e-05_rb,0.32794e-05_rb, &\n        & 0.31144e-05_rb,0.27430e-05_rb,0.20488e-05_rb,0.85267e-06_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.18267e-05_rb,0.33331e-05_rb,0.36002e-05_rb,0.36816e-05_rb,0.36054e-05_rb, &\n        & 0.33950e-05_rb,0.30021e-05_rb,0.22487e-05_rb,0.99490e-06_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.20587e-05_rb,0.36681e-05_rb,0.39651e-05_rb,0.40531e-05_rb,0.39564e-05_rb, &\n        & 0.37127e-05_rb,0.32815e-05_rb,0.24795e-05_rb,0.11422e-05_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.22973e-05_rb,0.40325e-05_rb,0.43728e-05_rb,0.44600e-05_rb,0.43540e-05_rb, &\n        & 0.40718e-05_rb,0.35848e-05_rb,0.27366e-05_rb,0.13051e-05_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.25452e-05_rb,0.44379e-05_rb,0.48164e-05_rb,0.49100e-05_rb,0.47833e-05_rb, &\n        & 0.44674e-05_rb,0.39194e-05_rb,0.29904e-05_rb,0.14817e-05_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.66641e-04_rb,0.92990e-04_rb,0.96277e-04_rb,0.95182e-04_rb,0.91424e-04_rb, &\n        & 0.85445e-04_rb,0.77014e-04_rb,0.62091e-04_rb,0.18284e-04_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.75350e-04_rb,0.10391e-03_rb,0.10751e-03_rb,0.10606e-03_rb,0.10174e-03_rb, &\n        & 0.94756e-04_rb,0.84487e-04_rb,0.67267e-04_rb,0.20037e-04_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.85286e-04_rb,0.11563e-03_rb,0.11966e-03_rb,0.11777e-03_rb,0.11259e-03_rb, &\n        & 0.10435e-03_rb,0.92076e-04_rb,0.72492e-04_rb,0.22229e-04_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.96137e-04_rb,0.12836e-03_rb,0.13265e-03_rb,0.13031e-03_rb,0.12404e-03_rb, &\n        & 0.11409e-03_rb,0.99756e-04_rb,0.77897e-04_rb,0.24656e-04_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.10739e-03_rb,0.14209e-03_rb,0.14652e-03_rb,0.14363e-03_rb,0.13579e-03_rb, &\n        & 0.12408e-03_rb,0.10749e-03_rb,0.83273e-04_rb,0.26998e-04_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.57005e-04_rb,0.80688e-04_rb,0.84199e-04_rb,0.83067e-04_rb,0.79480e-04_rb, &\n        & 0.74096e-04_rb,0.66328e-04_rb,0.53532e-04_rb,0.14534e-04_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.64518e-04_rb,0.90274e-04_rb,0.94149e-04_rb,0.92496e-04_rb,0.88374e-04_rb, &\n        & 0.82048e-04_rb,0.72698e-04_rb,0.57871e-04_rb,0.16202e-04_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.73014e-04_rb,0.10065e-03_rb,0.10466e-03_rb,0.10271e-03_rb,0.97880e-04_rb, &\n        & 0.90372e-04_rb,0.79361e-04_rb,0.62357e-04_rb,0.18056e-04_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.82297e-04_rb,0.11195e-03_rb,0.11586e-03_rb,0.11365e-03_rb,0.10799e-03_rb, &\n        & 0.98829e-04_rb,0.85923e-04_rb,0.66891e-04_rb,0.19890e-04_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.92175e-04_rb,0.12399e-03_rb,0.12794e-03_rb,0.12531e-03_rb,0.11825e-03_rb, &\n        & 0.10764e-03_rb,0.92744e-04_rb,0.71608e-04_rb,0.21968e-04_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.47324e-04_rb,0.68167e-04_rb,0.71069e-04_rb,0.70293e-04_rb,0.67313e-04_rb, &\n        & 0.62456e-04_rb,0.55646e-04_rb,0.44933e-04_rb,0.11374e-04_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.53658e-04_rb,0.76342e-04_rb,0.79560e-04_rb,0.78547e-04_rb,0.74997e-04_rb, &\n        & 0.69264e-04_rb,0.61119e-04_rb,0.48587e-04_rb,0.12639e-04_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.60905e-04_rb,0.85247e-04_rb,0.88738e-04_rb,0.87387e-04_rb,0.83098e-04_rb, &\n        & 0.76432e-04_rb,0.66733e-04_rb,0.52275e-04_rb,0.13871e-04_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.68831e-04_rb,0.94960e-04_rb,0.98638e-04_rb,0.96778e-04_rb,0.91816e-04_rb, &\n        & 0.83747e-04_rb,0.72403e-04_rb,0.56165e-04_rb,0.15423e-04_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.77259e-04_rb,0.10549e-03_rb,0.10909e-03_rb,0.10672e-03_rb,0.10065e-03_rb, &\n        & 0.91320e-04_rb,0.78406e-04_rb,0.60157e-04_rb,0.17141e-04_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.40102e-04_rb,0.56990e-04_rb,0.59444e-04_rb,0.58732e-04_rb,0.56091e-04_rb, &\n        & 0.51902e-04_rb,0.46247e-04_rb,0.37442e-04_rb,0.94022e-05_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.44930e-04_rb,0.63893e-04_rb,0.66629e-04_rb,0.65694e-04_rb,0.62627e-04_rb, &\n        & 0.57822e-04_rb,0.50819e-04_rb,0.40421e-04_rb,0.10475e-04_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.50532e-04_rb,0.71424e-04_rb,0.74352e-04_rb,0.73221e-04_rb,0.69651e-04_rb, &\n        & 0.64034e-04_rb,0.55430e-04_rb,0.43529e-04_rb,0.11728e-04_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.56953e-04_rb,0.79740e-04_rb,0.82769e-04_rb,0.81314e-04_rb,0.77278e-04_rb, &\n        & 0.70324e-04_rb,0.60396e-04_rb,0.46747e-04_rb,0.13063e-04_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.64019e-04_rb,0.88647e-04_rb,0.91768e-04_rb,0.89926e-04_rb,0.84958e-04_rb, &\n        & 0.76740e-04_rb,0.65561e-04_rb,0.50066e-04_rb,0.14435e-04_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.33806e-04_rb,0.47826e-04_rb,0.49443e-04_rb,0.48775e-04_rb,0.46477e-04_rb, &\n        & 0.42791e-04_rb,0.38155e-04_rb,0.31175e-04_rb,0.77886e-05_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.37973e-04_rb,0.53392e-04_rb,0.55526e-04_rb,0.54719e-04_rb,0.52062e-04_rb, &\n        & 0.47763e-04_rb,0.42021e-04_rb,0.33510e-04_rb,0.87404e-05_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.42758e-04_rb,0.59666e-04_rb,0.62058e-04_rb,0.61127e-04_rb,0.58012e-04_rb, &\n        & 0.53071e-04_rb,0.45971e-04_rb,0.36114e-04_rb,0.98499e-05_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.48006e-04_rb,0.66679e-04_rb,0.69230e-04_rb,0.67989e-04_rb,0.64400e-04_rb, &\n        & 0.58521e-04_rb,0.50196e-04_rb,0.38710e-04_rb,0.11022e-04_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.53657e-04_rb,0.74244e-04_rb,0.76813e-04_rb,0.75303e-04_rb,0.71011e-04_rb, &\n        & 0.64092e-04_rb,0.54599e-04_rb,0.41481e-04_rb,0.12225e-04_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.27953e-04_rb,0.40223e-04_rb,0.41331e-04_rb,0.40332e-04_rb,0.38114e-04_rb, &\n        & 0.34967e-04_rb,0.31158e-04_rb,0.25701e-04_rb,0.67604e-05_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.31595e-04_rb,0.44975e-04_rb,0.46374e-04_rb,0.45229e-04_rb,0.42775e-04_rb, &\n        & 0.39162e-04_rb,0.34373e-04_rb,0.27616e-04_rb,0.75558e-05_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.35649e-04_rb,0.50263e-04_rb,0.51713e-04_rb,0.50516e-04_rb,0.47855e-04_rb, &\n        & 0.43605e-04_rb,0.37705e-04_rb,0.29800e-04_rb,0.84063e-05_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.40086e-04_rb,0.55905e-04_rb,0.57584e-04_rb,0.56348e-04_rb,0.53200e-04_rb, &\n        & 0.48283e-04_rb,0.41331e-04_rb,0.31936e-04_rb,0.92686e-05_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.44931e-04_rb,0.62025e-04_rb,0.63942e-04_rb,0.62498e-04_rb,0.58788e-04_rb, &\n        & 0.53032e-04_rb,0.45085e-04_rb,0.34229e-04_rb,0.10175e-04_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.22829e-04_rb,0.33278e-04_rb,0.34196e-04_rb,0.33381e-04_rb,0.31444e-04_rb, &\n        & 0.28615e-04_rb,0.25331e-04_rb,0.21096e-04_rb,0.60732e-05_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.25917e-04_rb,0.37424e-04_rb,0.38527e-04_rb,0.37580e-04_rb,0.35302e-04_rb, &\n        & 0.32020e-04_rb,0.27957e-04_rb,0.22660e-04_rb,0.68180e-05_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.29386e-04_rb,0.41933e-04_rb,0.43213e-04_rb,0.42039e-04_rb,0.39445e-04_rb, &\n        & 0.35659e-04_rb,0.30780e-04_rb,0.24432e-04_rb,0.76296e-05_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.33186e-04_rb,0.46811e-04_rb,0.48218e-04_rb,0.46849e-04_rb,0.43848e-04_rb, &\n        & 0.39567e-04_rb,0.33858e-04_rb,0.26257e-04_rb,0.82634e-05_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.37227e-04_rb,0.52060e-04_rb,0.53592e-04_rb,0.51948e-04_rb,0.48471e-04_rb, &\n        & 0.43595e-04_rb,0.37022e-04_rb,0.28130e-04_rb,0.90053e-05_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.18333e-04_rb,0.27259e-04_rb,0.27929e-04_rb,0.27230e-04_rb,0.25672e-04_rb, &\n        & 0.23374e-04_rb,0.20571e-04_rb,0.17333e-04_rb,0.54157e-05_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.20948e-04_rb,0.30774e-04_rb,0.31604e-04_rb,0.30823e-04_rb,0.29002e-04_rb, &\n        & 0.26292e-04_rb,0.22734e-04_rb,0.18593e-04_rb,0.61669e-05_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.23883e-04_rb,0.34642e-04_rb,0.35656e-04_rb,0.34670e-04_rb,0.32507e-04_rb, &\n        & 0.29303e-04_rb,0.25111e-04_rb,0.19985e-04_rb,0.69048e-05_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.27098e-04_rb,0.38802e-04_rb,0.40013e-04_rb,0.38777e-04_rb,0.36214e-04_rb, &\n        & 0.32542e-04_rb,0.27674e-04_rb,0.21526e-04_rb,0.76591e-05_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.30462e-04_rb,0.43307e-04_rb,0.44596e-04_rb,0.43127e-04_rb,0.40142e-04_rb, &\n        & 0.35890e-04_rb,0.30276e-04_rb,0.23065e-04_rb,0.84480e-05_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.14510e-04_rb,0.22049e-04_rb,0.22596e-04_rb,0.22021e-04_rb,0.20750e-04_rb, &\n        & 0.18895e-04_rb,0.16685e-04_rb,0.14158e-04_rb,0.50284e-05_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.16710e-04_rb,0.25012e-04_rb,0.25686e-04_rb,0.25017e-04_rb,0.23537e-04_rb, &\n        & 0.21350e-04_rb,0.18517e-04_rb,0.15170e-04_rb,0.59016e-05_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.19138e-04_rb,0.28271e-04_rb,0.29104e-04_rb,0.28272e-04_rb,0.26493e-04_rb, &\n        & 0.23916e-04_rb,0.20530e-04_rb,0.16297e-04_rb,0.68413e-05_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.21798e-04_rb,0.31859e-04_rb,0.32802e-04_rb,0.31762e-04_rb,0.29603e-04_rb, &\n        & 0.26643e-04_rb,0.22650e-04_rb,0.17559e-04_rb,0.78093e-05_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.24599e-04_rb,0.35618e-04_rb,0.36736e-04_rb,0.35456e-04_rb,0.32981e-04_rb, &\n        & 0.29459e-04_rb,0.24877e-04_rb,0.18821e-04_rb,0.88149e-05_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.11455e-04_rb,0.17796e-04_rb,0.18282e-04_rb,0.17833e-04_rb,0.16814e-04_rb, &\n        & 0.15305e-04_rb,0.13526e-04_rb,0.11628e-04_rb,0.47637e-05_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.13295e-04_rb,0.20290e-04_rb,0.20862e-04_rb,0.20316e-04_rb,0.19125e-04_rb, &\n        & 0.17348e-04_rb,0.15042e-04_rb,0.12455e-04_rb,0.56495e-05_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.15297e-04_rb,0.22994e-04_rb,0.23740e-04_rb,0.23076e-04_rb,0.21626e-04_rb, &\n        & 0.19529e-04_rb,0.16766e-04_rb,0.13399e-04_rb,0.65988e-05_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.17488e-04_rb,0.25986e-04_rb,0.26882e-04_rb,0.26021e-04_rb,0.24246e-04_rb, &\n        & 0.21820e-04_rb,0.18554e-04_rb,0.14427e-04_rb,0.74644e-05_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.19800e-04_rb,0.29160e-04_rb,0.30208e-04_rb,0.29161e-04_rb,0.27086e-04_rb, &\n        & 0.24189e-04_rb,0.20462e-04_rb,0.15474e-04_rb,0.84395e-05_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.96366e-05_rb,0.15168e-04_rb,0.15611e-04_rb,0.15230e-04_rb,0.14381e-04_rb, &\n        & 0.13058e-04_rb,0.11457e-04_rb,0.98195e-05_rb,0.43210e-05_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.11221e-04_rb,0.17304e-04_rb,0.17859e-04_rb,0.17390e-04_rb,0.16383e-04_rb, &\n        & 0.14837e-04_rb,0.12820e-04_rb,0.10541e-04_rb,0.50915e-05_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.12922e-04_rb,0.19611e-04_rb,0.20376e-04_rb,0.19769e-04_rb,0.18510e-04_rb, &\n        & 0.16733e-04_rb,0.14297e-04_rb,0.11375e-04_rb,0.59349e-05_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.14759e-04_rb,0.22226e-04_rb,0.23087e-04_rb,0.22319e-04_rb,0.20789e-04_rb, &\n        & 0.18677e-04_rb,0.15854e-04_rb,0.12233e-04_rb,0.68646e-05_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.16687e-04_rb,0.24901e-04_rb,0.25894e-04_rb,0.25020e-04_rb,0.23234e-04_rb, &\n        & 0.20746e-04_rb,0.17450e-04_rb,0.13143e-04_rb,0.77945e-05_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.80728e-05_rb,0.12833e-04_rb,0.13241e-04_rb,0.12930e-04_rb,0.12209e-04_rb, &\n        & 0.11077e-04_rb,0.96874e-05_rb,0.82518e-05_rb,0.36987e-05_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.94096e-05_rb,0.14647e-04_rb,0.15179e-04_rb,0.14789e-04_rb,0.13929e-04_rb, &\n        & 0.12614e-04_rb,0.10863e-04_rb,0.88839e-05_rb,0.43642e-05_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.10827e-04_rb,0.16625e-04_rb,0.17336e-04_rb,0.16825e-04_rb,0.15757e-04_rb, &\n        & 0.14215e-04_rb,0.12135e-04_rb,0.95702e-05_rb,0.51276e-05_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.12346e-04_rb,0.18823e-04_rb,0.19626e-04_rb,0.19011e-04_rb,0.17715e-04_rb, &\n        & 0.15891e-04_rb,0.13472e-04_rb,0.10297e-04_rb,0.58818e-05_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.13954e-04_rb,0.21071e-04_rb,0.21985e-04_rb,0.21278e-04_rb,0.19773e-04_rb, &\n        & 0.17642e-04_rb,0.14813e-04_rb,0.11109e-04_rb,0.66485e-05_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.67198e-05_rb,0.10777e-04_rb,0.11153e-04_rb,0.10900e-04_rb,0.10301e-04_rb, &\n        & 0.93345e-05_rb,0.81433e-05_rb,0.69156e-05_rb,0.30498e-05_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.78283e-05_rb,0.12283e-04_rb,0.12805e-04_rb,0.12492e-04_rb,0.11757e-04_rb, &\n        & 0.10649e-04_rb,0.91519e-05_rb,0.74495e-05_rb,0.36028e-05_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.89966e-05_rb,0.13983e-04_rb,0.14629e-04_rb,0.14218e-04_rb,0.13315e-04_rb, &\n        & 0.11990e-04_rb,0.10230e-04_rb,0.80237e-05_rb,0.42382e-05_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.10250e-04_rb,0.15794e-04_rb,0.16536e-04_rb,0.16055e-04_rb,0.14979e-04_rb, &\n        & 0.13421e-04_rb,0.11355e-04_rb,0.86371e-05_rb,0.48511e-05_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.11575e-04_rb,0.17689e-04_rb,0.18502e-04_rb,0.17950e-04_rb,0.16689e-04_rb, &\n        & 0.14883e-04_rb,0.12476e-04_rb,0.93537e-05_rb,0.54799e-05_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.20313e-03_rb,0.26410e-03_rb,0.27054e-03_rb,0.25842e-03_rb,0.23794e-03_rb, &\n        & 0.21033e-03_rb,0.17730e-03_rb,0.13831e-03_rb,0.52995e-04_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.22722e-03_rb,0.29058e-03_rb,0.29572e-03_rb,0.28200e-03_rb,0.25898e-03_rb, &\n        & 0.22814e-03_rb,0.19209e-03_rb,0.14957e-03_rb,0.59096e-04_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.25054e-03_rb,0.31580e-03_rb,0.31991e-03_rb,0.30486e-03_rb,0.27955e-03_rb, &\n        & 0.24634e-03_rb,0.20787e-03_rb,0.16179e-03_rb,0.65118e-04_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.27197e-03_rb,0.33971e-03_rb,0.34310e-03_rb,0.32677e-03_rb,0.30002e-03_rb, &\n        & 0.26574e-03_rb,0.22502e-03_rb,0.17520e-03_rb,0.71711e-04_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.29178e-03_rb,0.36213e-03_rb,0.36503e-03_rb,0.34815e-03_rb,0.32114e-03_rb, &\n        & 0.28599e-03_rb,0.24328e-03_rb,0.18958e-03_rb,0.78523e-04_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.17547e-03_rb,0.23012e-03_rb,0.23639e-03_rb,0.22606e-03_rb,0.20799e-03_rb, &\n        & 0.18326e-03_rb,0.15385e-03_rb,0.11888e-03_rb,0.43633e-04_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.19601e-03_rb,0.25269e-03_rb,0.25751e-03_rb,0.24629e-03_rb,0.22623e-03_rb, &\n        & 0.19926e-03_rb,0.16712e-03_rb,0.12877e-03_rb,0.48382e-04_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.21598e-03_rb,0.27423e-03_rb,0.27812e-03_rb,0.26576e-03_rb,0.24403e-03_rb, &\n        & 0.21552e-03_rb,0.18141e-03_rb,0.13982e-03_rb,0.53560e-04_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.23449e-03_rb,0.29482e-03_rb,0.29820e-03_rb,0.28454e-03_rb,0.26171e-03_rb, &\n        & 0.23254e-03_rb,0.19681e-03_rb,0.15192e-03_rb,0.59054e-04_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.25198e-03_rb,0.31408e-03_rb,0.31723e-03_rb,0.30341e-03_rb,0.28040e-03_rb, &\n        & 0.25022e-03_rb,0.21333e-03_rb,0.16487e-03_rb,0.64779e-04_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.14736e-03_rb,0.19483e-03_rb,0.20065e-03_rb,0.19242e-03_rb,0.17728e-03_rb, &\n        & 0.15627e-03_rb,0.13078e-03_rb,0.10037e-03_rb,0.34217e-04_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.16492e-03_rb,0.21441e-03_rb,0.21892e-03_rb,0.20980e-03_rb,0.19289e-03_rb, &\n        & 0.17000e-03_rb,0.14249e-03_rb,0.10902e-03_rb,0.38352e-04_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.18200e-03_rb,0.23294e-03_rb,0.23658e-03_rb,0.22658e-03_rb,0.20822e-03_rb, &\n        & 0.18391e-03_rb,0.15484e-03_rb,0.11888e-03_rb,0.42700e-04_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.19811e-03_rb,0.25094e-03_rb,0.25385e-03_rb,0.24276e-03_rb,0.22338e-03_rb, &\n        & 0.19841e-03_rb,0.16822e-03_rb,0.12943e-03_rb,0.47257e-04_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.21352e-03_rb,0.26784e-03_rb,0.27027e-03_rb,0.25917e-03_rb,0.23966e-03_rb, &\n        & 0.21399e-03_rb,0.18239e-03_rb,0.14058e-03_rb,0.51997e-04_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.12070e-03_rb,0.16282e-03_rb,0.16870e-03_rb,0.16215e-03_rb,0.14966e-03_rb, &\n        & 0.13195e-03_rb,0.11003e-03_rb,0.83743e-04_rb,0.26841e-04_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.13616e-03_rb,0.17979e-03_rb,0.18420e-03_rb,0.17692e-03_rb,0.16288e-03_rb, &\n        & 0.14351e-03_rb,0.12000e-03_rb,0.91324e-04_rb,0.29956e-04_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.15142e-03_rb,0.19606e-03_rb,0.19933e-03_rb,0.19132e-03_rb,0.17582e-03_rb, &\n        & 0.15506e-03_rb,0.13061e-03_rb,0.99881e-04_rb,0.33175e-04_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.16591e-03_rb,0.21170e-03_rb,0.21421e-03_rb,0.20525e-03_rb,0.18888e-03_rb, &\n        & 0.16747e-03_rb,0.14192e-03_rb,0.10907e-03_rb,0.36625e-04_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.17956e-03_rb,0.22655e-03_rb,0.22833e-03_rb,0.21949e-03_rb,0.20283e-03_rb, &\n        & 0.18086e-03_rb,0.15393e-03_rb,0.11865e-03_rb,0.40513e-04_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.98625e-04_rb,0.13480e-03_rb,0.14099e-03_rb,0.13653e-03_rb,0.12600e-03_rb, &\n        & 0.11107e-03_rb,0.92102e-04_rb,0.69414e-04_rb,0.22597e-04_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.11165e-03_rb,0.14975e-03_rb,0.15429e-03_rb,0.14886e-03_rb,0.13710e-03_rb, &\n        & 0.12076e-03_rb,0.10051e-03_rb,0.76046e-04_rb,0.25265e-04_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.12461e-03_rb,0.16391e-03_rb,0.16725e-03_rb,0.16091e-03_rb,0.14796e-03_rb, &\n        & 0.13047e-03_rb,0.10941e-03_rb,0.83193e-04_rb,0.27962e-04_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.13738e-03_rb,0.17761e-03_rb,0.17982e-03_rb,0.17281e-03_rb,0.15916e-03_rb, &\n        & 0.14087e-03_rb,0.11892e-03_rb,0.90972e-04_rb,0.30855e-04_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.14967e-03_rb,0.19066e-03_rb,0.19231e-03_rb,0.18509e-03_rb,0.17109e-03_rb, &\n        & 0.15227e-03_rb,0.12906e-03_rb,0.99136e-04_rb,0.34017e-04_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.79863e-04_rb,0.11034e-03_rb,0.11622e-03_rb,0.11400e-03_rb,0.10532e-03_rb, &\n        & 0.92978e-04_rb,0.76661e-04_rb,0.57287e-04_rb,0.18664e-04_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.90753e-04_rb,0.12318e-03_rb,0.12766e-03_rb,0.12440e-03_rb,0.11482e-03_rb, &\n        & 0.10110e-03_rb,0.83697e-04_rb,0.62663e-04_rb,0.20928e-04_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.10183e-03_rb,0.13532e-03_rb,0.13907e-03_rb,0.13464e-03_rb,0.12396e-03_rb, &\n        & 0.10925e-03_rb,0.90984e-04_rb,0.68513e-04_rb,0.23264e-04_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.11293e-03_rb,0.14742e-03_rb,0.14995e-03_rb,0.14481e-03_rb,0.13354e-03_rb, &\n        & 0.11797e-03_rb,0.98845e-04_rb,0.74965e-04_rb,0.25850e-04_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.12360e-03_rb,0.15914e-03_rb,0.16090e-03_rb,0.15521e-03_rb,0.14361e-03_rb, &\n        & 0.12755e-03_rb,0.10739e-03_rb,0.81915e-04_rb,0.28635e-04_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.65679e-04_rb,0.90084e-04_rb,0.95681e-04_rb,0.94567e-04_rb,0.87338e-04_rb, &\n        & 0.77275e-04_rb,0.63642e-04_rb,0.47097e-04_rb,0.15508e-04_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.74551e-04_rb,0.10089e-03_rb,0.10531e-03_rb,0.10327e-03_rb,0.95364e-04_rb, &\n        & 0.84154e-04_rb,0.69569e-04_rb,0.51426e-04_rb,0.17234e-04_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.83584e-04_rb,0.11137e-03_rb,0.11469e-03_rb,0.11193e-03_rb,0.10325e-03_rb, &\n        & 0.91075e-04_rb,0.75479e-04_rb,0.56228e-04_rb,0.19127e-04_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.92762e-04_rb,0.12171e-03_rb,0.12420e-03_rb,0.12060e-03_rb,0.11147e-03_rb, &\n        & 0.98465e-04_rb,0.81969e-04_rb,0.61529e-04_rb,0.21452e-04_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.10189e-03_rb,0.13182e-03_rb,0.13364e-03_rb,0.12960e-03_rb,0.12008e-03_rb, &\n        & 0.10652e-03_rb,0.89045e-04_rb,0.67334e-04_rb,0.23711e-04_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.53656e-04_rb,0.74109e-04_rb,0.78629e-04_rb,0.78245e-04_rb,0.72322e-04_rb, &\n        & 0.63915e-04_rb,0.52625e-04_rb,0.38591e-04_rb,0.14416e-04_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.61163e-04_rb,0.83104e-04_rb,0.86832e-04_rb,0.85562e-04_rb,0.78992e-04_rb, &\n        & 0.69666e-04_rb,0.57574e-04_rb,0.42098e-04_rb,0.15921e-04_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.68914e-04_rb,0.91909e-04_rb,0.94594e-04_rb,0.92816e-04_rb,0.85590e-04_rb, &\n        & 0.75491e-04_rb,0.62445e-04_rb,0.46109e-04_rb,0.17209e-04_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.76847e-04_rb,0.10059e-03_rb,0.10256e-03_rb,0.10019e-03_rb,0.92496e-04_rb, &\n        & 0.81729e-04_rb,0.67763e-04_rb,0.50445e-04_rb,0.18589e-04_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.84847e-04_rb,0.10902e-03_rb,0.11071e-03_rb,0.10784e-03_rb,0.99812e-04_rb, &\n        & 0.88516e-04_rb,0.73718e-04_rb,0.55250e-04_rb,0.20194e-04_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.43346e-04_rb,0.60608e-04_rb,0.64818e-04_rb,0.64681e-04_rb,0.59655e-04_rb, &\n        & 0.52617e-04_rb,0.43206e-04_rb,0.31573e-04_rb,0.14696e-04_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.49669e-04_rb,0.68380e-04_rb,0.71800e-04_rb,0.70860e-04_rb,0.65260e-04_rb, &\n        & 0.57496e-04_rb,0.47313e-04_rb,0.34405e-04_rb,0.16164e-04_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.56274e-04_rb,0.76040e-04_rb,0.78454e-04_rb,0.76944e-04_rb,0.70665e-04_rb, &\n        & 0.62347e-04_rb,0.51383e-04_rb,0.37665e-04_rb,0.17841e-04_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.63127e-04_rb,0.83451e-04_rb,0.85178e-04_rb,0.83082e-04_rb,0.76437e-04_rb, &\n        & 0.67538e-04_rb,0.55797e-04_rb,0.41264e-04_rb,0.19504e-04_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.70124e-04_rb,0.90807e-04_rb,0.91960e-04_rb,0.89432e-04_rb,0.82527e-04_rb, &\n        & 0.73176e-04_rb,0.60668e-04_rb,0.45179e-04_rb,0.20992e-04_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.35059e-04_rb,0.49531e-04_rb,0.53376e-04_rb,0.53665e-04_rb,0.49644e-04_rb, &\n        & 0.43592e-04_rb,0.35609e-04_rb,0.25845e-04_rb,0.13231e-04_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.40376e-04_rb,0.56174e-04_rb,0.59502e-04_rb,0.59040e-04_rb,0.54399e-04_rb, &\n        & 0.47687e-04_rb,0.39007e-04_rb,0.28189e-04_rb,0.15223e-04_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.46006e-04_rb,0.62899e-04_rb,0.65214e-04_rb,0.64178e-04_rb,0.58976e-04_rb, &\n        & 0.51726e-04_rb,0.42386e-04_rb,0.30843e-04_rb,0.17241e-04_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.51905e-04_rb,0.69395e-04_rb,0.70988e-04_rb,0.69461e-04_rb,0.63801e-04_rb, &\n        & 0.56040e-04_rb,0.46059e-04_rb,0.33831e-04_rb,0.19714e-04_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.57990e-04_rb,0.75737e-04_rb,0.76826e-04_rb,0.74718e-04_rb,0.68839e-04_rb, &\n        & 0.60664e-04_rb,0.50105e-04_rb,0.37049e-04_rb,0.22308e-04_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.30150e-04_rb,0.42738e-04_rb,0.46011e-04_rb,0.46330e-04_rb,0.42907e-04_rb, &\n        & 0.37605e-04_rb,0.30702e-04_rb,0.21962e-04_rb,0.11791e-04_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.34714e-04_rb,0.48516e-04_rb,0.51120e-04_rb,0.50726e-04_rb,0.46912e-04_rb, &\n        & 0.41033e-04_rb,0.33505e-04_rb,0.23952e-04_rb,0.13242e-04_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.39649e-04_rb,0.54325e-04_rb,0.56146e-04_rb,0.55270e-04_rb,0.50902e-04_rb, &\n        & 0.44559e-04_rb,0.36351e-04_rb,0.26266e-04_rb,0.15075e-04_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.44779e-04_rb,0.59893e-04_rb,0.61166e-04_rb,0.59766e-04_rb,0.55070e-04_rb, &\n        & 0.48303e-04_rb,0.39491e-04_rb,0.28847e-04_rb,0.17164e-04_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.49946e-04_rb,0.65411e-04_rb,0.66256e-04_rb,0.64345e-04_rb,0.59474e-04_rb, &\n        & 0.52287e-04_rb,0.43003e-04_rb,0.31612e-04_rb,0.19542e-04_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.25681e-04_rb,0.36622e-04_rb,0.39428e-04_rb,0.39582e-04_rb,0.36786e-04_rb, &\n        & 0.32210e-04_rb,0.26270e-04_rb,0.18629e-04_rb,0.10035e-04_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.29636e-04_rb,0.41620e-04_rb,0.43701e-04_rb,0.43425e-04_rb,0.40150e-04_rb, &\n        & 0.35105e-04_rb,0.28637e-04_rb,0.20365e-04_rb,0.11416e-04_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.33921e-04_rb,0.46628e-04_rb,0.48062e-04_rb,0.47301e-04_rb,0.43633e-04_rb, &\n        & 0.38189e-04_rb,0.31133e-04_rb,0.22405e-04_rb,0.12946e-04_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.38341e-04_rb,0.51401e-04_rb,0.52457e-04_rb,0.51129e-04_rb,0.47238e-04_rb, &\n        & 0.41429e-04_rb,0.33905e-04_rb,0.24546e-04_rb,0.14770e-04_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.42576e-04_rb,0.56153e-04_rb,0.56863e-04_rb,0.55182e-04_rb,0.51113e-04_rb, &\n        & 0.44940e-04_rb,0.36987e-04_rb,0.26898e-04_rb,0.16865e-04_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.21707e-04_rb,0.31142e-04_rb,0.33487e-04_rb,0.33650e-04_rb,0.31301e-04_rb, &\n        & 0.27396e-04_rb,0.22352e-04_rb,0.15744e-04_rb,0.83005e-05_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.25112e-04_rb,0.35474e-04_rb,0.37158e-04_rb,0.36970e-04_rb,0.34170e-04_rb, &\n        & 0.29871e-04_rb,0.24361e-04_rb,0.17312e-04_rb,0.93559e-05_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.28762e-04_rb,0.39712e-04_rb,0.40924e-04_rb,0.40199e-04_rb,0.37169e-04_rb, &\n        & 0.32565e-04_rb,0.26566e-04_rb,0.19074e-04_rb,0.10670e-04_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.32448e-04_rb,0.43808e-04_rb,0.44734e-04_rb,0.43534e-04_rb,0.40323e-04_rb, &\n        & 0.35367e-04_rb,0.29011e-04_rb,0.20897e-04_rb,0.12240e-04_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.35905e-04_rb,0.47771e-04_rb,0.48482e-04_rb,0.47094e-04_rb,0.43703e-04_rb, &\n        & 0.38474e-04_rb,0.31715e-04_rb,0.22899e-04_rb,0.13958e-04_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.50328e-03_rb,0.59028e-03_rb,0.59973e-03_rb,0.58955e-03_rb,0.56685e-03_rb, &\n        & 0.50893e-03_rb,0.43098e-03_rb,0.31518e-03_rb,0.12599e-03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.53454e-03_rb,0.62581e-03_rb,0.63729e-03_rb,0.62588e-03_rb,0.59902e-03_rb, &\n        & 0.54179e-03_rb,0.45928e-03_rb,0.33824e-03_rb,0.13937e-03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.56216e-03_rb,0.66315e-03_rb,0.67707e-03_rb,0.66553e-03_rb,0.63545e-03_rb, &\n        & 0.57719e-03_rb,0.48913e-03_rb,0.36332e-03_rb,0.15548e-03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.58821e-03_rb,0.70231e-03_rb,0.71934e-03_rb,0.70828e-03_rb,0.67637e-03_rb, &\n        & 0.61438e-03_rb,0.52042e-03_rb,0.38978e-03_rb,0.17254e-03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.61349e-03_rb,0.74309e-03_rb,0.76503e-03_rb,0.75486e-03_rb,0.71943e-03_rb, &\n        & 0.65213e-03_rb,0.55331e-03_rb,0.41818e-03_rb,0.19176e-03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.43720e-03_rb,0.51117e-03_rb,0.51919e-03_rb,0.50988e-03_rb,0.48875e-03_rb, &\n        & 0.44138e-03_rb,0.37418e-03_rb,0.27478e-03_rb,0.10374e-03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.46400e-03_rb,0.54460e-03_rb,0.55429e-03_rb,0.54395e-03_rb,0.52067e-03_rb, &\n        & 0.47118e-03_rb,0.39949e-03_rb,0.29546e-03_rb,0.11585e-03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.48798e-03_rb,0.57940e-03_rb,0.59177e-03_rb,0.58113e-03_rb,0.55553e-03_rb, &\n        & 0.50290e-03_rb,0.42588e-03_rb,0.31727e-03_rb,0.12872e-03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.51088e-03_rb,0.61529e-03_rb,0.63115e-03_rb,0.62163e-03_rb,0.59296e-03_rb, &\n        & 0.53614e-03_rb,0.45317e-03_rb,0.34070e-03_rb,0.14334e-03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.53331e-03_rb,0.65233e-03_rb,0.67270e-03_rb,0.66363e-03_rb,0.63091e-03_rb, &\n        & 0.57023e-03_rb,0.48253e-03_rb,0.36597e-03_rb,0.15947e-03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.37168e-03_rb,0.43544e-03_rb,0.44351e-03_rb,0.43496e-03_rb,0.41418e-03_rb, &\n        & 0.37673e-03_rb,0.31849e-03_rb,0.23373e-03_rb,0.83035e-04_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.39476e-03_rb,0.46532e-03_rb,0.47527e-03_rb,0.46587e-03_rb,0.44394e-03_rb, &\n        & 0.40288e-03_rb,0.34052e-03_rb,0.25172e-03_rb,0.92363e-04_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.41559e-03_rb,0.49597e-03_rb,0.50880e-03_rb,0.49944e-03_rb,0.47605e-03_rb, &\n        & 0.43138e-03_rb,0.36384e-03_rb,0.27063e-03_rb,0.10327e-03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.43551e-03_rb,0.52738e-03_rb,0.54357e-03_rb,0.53553e-03_rb,0.50924e-03_rb, &\n        & 0.46069e-03_rb,0.38844e-03_rb,0.29089e-03_rb,0.11548e-03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.45509e-03_rb,0.56036e-03_rb,0.58045e-03_rb,0.57279e-03_rb,0.54320e-03_rb, &\n        & 0.49088e-03_rb,0.41461e-03_rb,0.31304e-03_rb,0.12901e-03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.31353e-03_rb,0.36800e-03_rb,0.37478e-03_rb,0.36628e-03_rb,0.34818e-03_rb, &\n        & 0.31938e-03_rb,0.26882e-03_rb,0.19725e-03_rb,0.65143e-04_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.33327e-03_rb,0.39347e-03_rb,0.40240e-03_rb,0.39421e-03_rb,0.37500e-03_rb, &\n        & 0.34245e-03_rb,0.28782e-03_rb,0.21247e-03_rb,0.72911e-04_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.35116e-03_rb,0.41935e-03_rb,0.43125e-03_rb,0.42396e-03_rb,0.40374e-03_rb, &\n        & 0.36745e-03_rb,0.30851e-03_rb,0.22861e-03_rb,0.82223e-04_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.36817e-03_rb,0.44654e-03_rb,0.46141e-03_rb,0.45505e-03_rb,0.43257e-03_rb, &\n        & 0.39339e-03_rb,0.33051e-03_rb,0.24594e-03_rb,0.92524e-04_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.38502e-03_rb,0.47537e-03_rb,0.49387e-03_rb,0.48730e-03_rb,0.46233e-03_rb, &\n        & 0.42007e-03_rb,0.35374e-03_rb,0.26504e-03_rb,0.10363e-03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.26371e-03_rb,0.30958e-03_rb,0.31480e-03_rb,0.30643e-03_rb,0.29119e-03_rb, &\n        & 0.26781e-03_rb,0.22601e-03_rb,0.16580e-03_rb,0.51526e-04_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.28046e-03_rb,0.33149e-03_rb,0.33831e-03_rb,0.33074e-03_rb,0.31455e-03_rb, &\n        & 0.28912e-03_rb,0.24254e-03_rb,0.17884e-03_rb,0.57544e-04_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.29571e-03_rb,0.35368e-03_rb,0.36281e-03_rb,0.35630e-03_rb,0.33882e-03_rb, &\n        & 0.31097e-03_rb,0.26070e-03_rb,0.19272e-03_rb,0.64519e-04_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.31016e-03_rb,0.37666e-03_rb,0.38893e-03_rb,0.38273e-03_rb,0.36412e-03_rb, &\n        & 0.33364e-03_rb,0.28016e-03_rb,0.20757e-03_rb,0.72363e-04_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.32452e-03_rb,0.40122e-03_rb,0.41666e-03_rb,0.41046e-03_rb,0.39013e-03_rb, &\n        & 0.35668e-03_rb,0.30056e-03_rb,0.22388e-03_rb,0.80981e-04_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.22069e-03_rb,0.25888e-03_rb,0.26323e-03_rb,0.25479e-03_rb,0.24246e-03_rb, &\n        & 0.22303e-03_rb,0.18865e-03_rb,0.13826e-03_rb,0.42586e-04_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.23505e-03_rb,0.27730e-03_rb,0.28289e-03_rb,0.27510e-03_rb,0.26179e-03_rb, &\n        & 0.24147e-03_rb,0.20303e-03_rb,0.14956e-03_rb,0.47728e-04_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.24799e-03_rb,0.29644e-03_rb,0.30324e-03_rb,0.29696e-03_rb,0.28190e-03_rb, &\n        & 0.26059e-03_rb,0.21889e-03_rb,0.16173e-03_rb,0.53804e-04_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.26027e-03_rb,0.31607e-03_rb,0.32548e-03_rb,0.31928e-03_rb,0.30338e-03_rb, &\n        & 0.27984e-03_rb,0.23536e-03_rb,0.17457e-03_rb,0.60579e-04_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.27261e-03_rb,0.33682e-03_rb,0.34889e-03_rb,0.34299e-03_rb,0.32589e-03_rb, &\n        & 0.29875e-03_rb,0.25286e-03_rb,0.18852e-03_rb,0.67802e-04_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.18284e-03_rb,0.21563e-03_rb,0.21874e-03_rb,0.21147e-03_rb,0.20158e-03_rb, &\n        & 0.18535e-03_rb,0.15699e-03_rb,0.11455e-03_rb,0.35095e-04_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.19537e-03_rb,0.23122e-03_rb,0.23571e-03_rb,0.22829e-03_rb,0.21760e-03_rb, &\n        & 0.20013e-03_rb,0.16934e-03_rb,0.12429e-03_rb,0.39853e-04_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.20672e-03_rb,0.24731e-03_rb,0.25313e-03_rb,0.24636e-03_rb,0.23401e-03_rb, &\n        & 0.21622e-03_rb,0.18276e-03_rb,0.13469e-03_rb,0.45173e-04_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.21741e-03_rb,0.26399e-03_rb,0.27153e-03_rb,0.26539e-03_rb,0.25198e-03_rb, &\n        & 0.23212e-03_rb,0.19655e-03_rb,0.14593e-03_rb,0.50910e-04_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.22822e-03_rb,0.28170e-03_rb,0.29118e-03_rb,0.28544e-03_rb,0.27112e-03_rb, &\n        & 0.24842e-03_rb,0.21129e-03_rb,0.15803e-03_rb,0.57288e-04_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.15136e-03_rb,0.17854e-03_rb,0.18119e-03_rb,0.17535e-03_rb,0.16721e-03_rb, &\n        & 0.15392e-03_rb,0.13041e-03_rb,0.94463e-04_rb,0.29176e-04_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.16197e-03_rb,0.19183e-03_rb,0.19544e-03_rb,0.18940e-03_rb,0.18045e-03_rb, &\n        & 0.16606e-03_rb,0.14094e-03_rb,0.10292e-03_rb,0.33234e-04_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.17149e-03_rb,0.20540e-03_rb,0.21055e-03_rb,0.20432e-03_rb,0.19421e-03_rb, &\n        & 0.17914e-03_rb,0.15214e-03_rb,0.11170e-03_rb,0.37987e-04_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.18048e-03_rb,0.21966e-03_rb,0.22618e-03_rb,0.22017e-03_rb,0.20926e-03_rb, &\n        & 0.19215e-03_rb,0.16364e-03_rb,0.12118e-03_rb,0.43249e-04_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.18968e-03_rb,0.23496e-03_rb,0.24258e-03_rb,0.23712e-03_rb,0.22524e-03_rb, &\n        & 0.20589e-03_rb,0.17598e-03_rb,0.13139e-03_rb,0.48772e-04_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.12535e-03_rb,0.14733e-03_rb,0.14911e-03_rb,0.14464e-03_rb,0.13810e-03_rb, &\n        & 0.12766e-03_rb,0.10804e-03_rb,0.77667e-04_rb,0.31607e-04_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.13428e-03_rb,0.15826e-03_rb,0.16122e-03_rb,0.15658e-03_rb,0.14914e-03_rb, &\n        & 0.13752e-03_rb,0.11655e-03_rb,0.84956e-04_rb,0.35832e-04_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.14212e-03_rb,0.16949e-03_rb,0.17392e-03_rb,0.16905e-03_rb,0.16073e-03_rb, &\n        & 0.14802e-03_rb,0.12582e-03_rb,0.92269e-04_rb,0.39990e-04_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.14955e-03_rb,0.18151e-03_rb,0.18720e-03_rb,0.18233e-03_rb,0.17343e-03_rb, &\n        & 0.15845e-03_rb,0.13559e-03_rb,0.99998e-04_rb,0.44405e-04_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.15720e-03_rb,0.19441e-03_rb,0.20115e-03_rb,0.19658e-03_rb,0.18679e-03_rb, &\n        & 0.17045e-03_rb,0.14597e-03_rb,0.10853e-03_rb,0.48354e-04_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.10518e-03_rb,0.12283e-03_rb,0.12342e-03_rb,0.11933e-03_rb,0.11376e-03_rb, &\n        & 0.10615e-03_rb,0.89610e-04_rb,0.64322e-04_rb,0.38897e-04_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.11277e-03_rb,0.13167e-03_rb,0.13319e-03_rb,0.12937e-03_rb,0.12328e-03_rb, &\n        & 0.11434e-03_rb,0.96637e-04_rb,0.70434e-04_rb,0.44697e-04_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.11946e-03_rb,0.14071e-03_rb,0.14389e-03_rb,0.14002e-03_rb,0.13292e-03_rb, &\n        & 0.12246e-03_rb,0.10436e-03_rb,0.76473e-04_rb,0.50672e-04_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.12573e-03_rb,0.15045e-03_rb,0.15515e-03_rb,0.15121e-03_rb,0.14368e-03_rb, &\n        & 0.13136e-03_rb,0.11260e-03_rb,0.82864e-04_rb,0.56090e-04_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.13210e-03_rb,0.16128e-03_rb,0.16701e-03_rb,0.16339e-03_rb,0.15508e-03_rb, &\n        & 0.14154e-03_rb,0.12132e-03_rb,0.89973e-04_rb,0.61017e-04_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.90693e-04_rb,0.10606e-03_rb,0.10639e-03_rb,0.10214e-03_rb,0.97041e-04_rb, &\n        & 0.90929e-04_rb,0.76654e-04_rb,0.55448e-04_rb,0.34971e-04_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.96878e-04_rb,0.11346e-03_rb,0.11478e-03_rb,0.11094e-03_rb,0.10496e-03_rb, &\n        & 0.97427e-04_rb,0.82680e-04_rb,0.60468e-04_rb,0.41599e-04_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.10232e-03_rb,0.12125e-03_rb,0.12365e-03_rb,0.11979e-03_rb,0.11346e-03_rb, &\n        & 0.10430e-03_rb,0.89390e-04_rb,0.65549e-04_rb,0.48186e-04_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.10772e-03_rb,0.12969e-03_rb,0.13316e-03_rb,0.12963e-03_rb,0.12290e-03_rb, &\n        & 0.11234e-03_rb,0.96526e-04_rb,0.71097e-04_rb,0.54537e-04_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.11345e-03_rb,0.13912e-03_rb,0.14339e-03_rb,0.14025e-03_rb,0.13275e-03_rb, &\n        & 0.12106e-03_rb,0.10412e-03_rb,0.77240e-04_rb,0.60238e-04_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.77577e-04_rb,0.91005e-04_rb,0.91202e-04_rb,0.87618e-04_rb,0.82974e-04_rb, &\n        & 0.77488e-04_rb,0.65261e-04_rb,0.47539e-04_rb,0.30516e-04_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.82612e-04_rb,0.97349e-04_rb,0.98497e-04_rb,0.95069e-04_rb,0.89699e-04_rb, &\n        & 0.82714e-04_rb,0.70478e-04_rb,0.51645e-04_rb,0.35968e-04_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.87206e-04_rb,0.10402e-03_rb,0.10625e-03_rb,0.10294e-03_rb,0.97013e-04_rb, &\n        & 0.88723e-04_rb,0.76259e-04_rb,0.55960e-04_rb,0.41899e-04_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.91929e-04_rb,0.11153e-03_rb,0.11462e-03_rb,0.11153e-03_rb,0.10500e-03_rb, &\n        & 0.95633e-04_rb,0.82267e-04_rb,0.60868e-04_rb,0.48100e-04_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.97101e-04_rb,0.11996e-03_rb,0.12377e-03_rb,0.12058e-03_rb,0.11342e-03_rb, &\n        & 0.10316e-03_rb,0.88884e-04_rb,0.66077e-04_rb,0.53563e-04_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.65838e-04_rb,0.77620e-04_rb,0.77829e-04_rb,0.74661e-04_rb,0.70473e-04_rb, &\n        & 0.65575e-04_rb,0.55474e-04_rb,0.40441e-04_rb,0.25521e-04_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.69998e-04_rb,0.83015e-04_rb,0.84103e-04_rb,0.81066e-04_rb,0.76507e-04_rb, &\n        & 0.70172e-04_rb,0.59914e-04_rb,0.43882e-04_rb,0.30126e-04_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.74003e-04_rb,0.88878e-04_rb,0.90840e-04_rb,0.88139e-04_rb,0.82951e-04_rb, &\n        & 0.75471e-04_rb,0.64689e-04_rb,0.47652e-04_rb,0.35171e-04_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.78234e-04_rb,0.95561e-04_rb,0.98237e-04_rb,0.95653e-04_rb,0.89770e-04_rb, &\n        & 0.81434e-04_rb,0.69913e-04_rb,0.51882e-04_rb,0.40221e-04_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.82825e-04_rb,0.10313e-03_rb,0.10644e-03_rb,0.10352e-03_rb,0.97040e-04_rb, &\n        & 0.87602e-04_rb,0.75532e-04_rb,0.56387e-04_rb,0.44675e-04_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.10615e-02_rb,0.12529e-02_rb,0.13083e-02_rb,0.12764e-02_rb,0.11881e-02_rb, &\n        & 0.10853e-02_rb,0.93421e-03_rb,0.71644e-03_rb,0.30757e-03_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.10918e-02_rb,0.13136e-02_rb,0.13677e-02_rb,0.13350e-02_rb,0.12522e-02_rb, &\n        & 0.11402e-02_rb,0.98392e-03_rb,0.76040e-03_rb,0.35125e-03_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.11297e-02_rb,0.13742e-02_rb,0.14266e-02_rb,0.13956e-02_rb,0.13143e-02_rb, &\n        & 0.11951e-02_rb,0.10359e-02_rb,0.81032e-03_rb,0.39829e-03_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.11716e-02_rb,0.14330e-02_rb,0.14865e-02_rb,0.14580e-02_rb,0.13738e-02_rb, &\n        & 0.12536e-02_rb,0.10931e-02_rb,0.86605e-03_rb,0.44907e-03_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.12137e-02_rb,0.14919e-02_rb,0.15477e-02_rb,0.15196e-02_rb,0.14358e-02_rb, &\n        & 0.13166e-02_rb,0.11546e-02_rb,0.92748e-03_rb,0.50593e-03_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.92435e-03_rb,0.10874e-02_rb,0.11275e-02_rb,0.11015e-02_rb,0.10311e-02_rb, &\n        & 0.94231e-03_rb,0.80960e-03_rb,0.63033e-03_rb,0.26663e-03_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.95885e-03_rb,0.11428e-02_rb,0.11829e-02_rb,0.11541e-02_rb,0.10849e-02_rb, &\n        & 0.98930e-03_rb,0.85567e-03_rb,0.67200e-03_rb,0.30230e-03_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.99776e-03_rb,0.11978e-02_rb,0.12376e-02_rb,0.12093e-02_rb,0.11390e-02_rb, &\n        & 0.10392e-02_rb,0.90558e-03_rb,0.71833e-03_rb,0.34245e-03_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.10380e-02_rb,0.12537e-02_rb,0.12935e-02_rb,0.12652e-02_rb,0.11933e-02_rb, &\n        & 0.10921e-02_rb,0.95939e-03_rb,0.76948e-03_rb,0.38641e-03_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.10779e-02_rb,0.13105e-02_rb,0.13515e-02_rb,0.13214e-02_rb,0.12497e-02_rb, &\n        & 0.11514e-02_rb,0.10182e-02_rb,0.82552e-03_rb,0.43428e-03_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.79958e-03_rb,0.93053e-03_rb,0.95669e-03_rb,0.93720e-03_rb,0.88165e-03_rb, &\n        & 0.80178e-03_rb,0.69131e-03_rb,0.54027e-03_rb,0.22082e-03_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.83354e-03_rb,0.98064e-03_rb,0.10079e-02_rb,0.98484e-03_rb,0.92834e-03_rb, &\n        & 0.84387e-03_rb,0.73304e-03_rb,0.57932e-03_rb,0.25149e-03_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.87012e-03_rb,0.10320e-02_rb,0.10600e-02_rb,0.10346e-02_rb,0.97491e-03_rb, &\n        & 0.88683e-03_rb,0.77649e-03_rb,0.62208e-03_rb,0.28527e-03_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.90759e-03_rb,0.10841e-02_rb,0.11129e-02_rb,0.10858e-02_rb,0.10238e-02_rb, &\n        & 0.93520e-03_rb,0.82494e-03_rb,0.66854e-03_rb,0.32199e-03_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.94443e-03_rb,0.11378e-02_rb,0.11668e-02_rb,0.11369e-02_rb,0.10746e-02_rb, &\n        & 0.98835e-03_rb,0.87764e-03_rb,0.71868e-03_rb,0.36165e-03_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.68628e-03_rb,0.79104e-03_rb,0.80863e-03_rb,0.79421e-03_rb,0.74681e-03_rb, &\n        & 0.67391e-03_rb,0.58210e-03_rb,0.45790e-03_rb,0.18137e-03_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.71790e-03_rb,0.83686e-03_rb,0.85591e-03_rb,0.83705e-03_rb,0.78808e-03_rb, &\n        & 0.71172e-03_rb,0.61822e-03_rb,0.49245e-03_rb,0.20729e-03_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.75117e-03_rb,0.88426e-03_rb,0.90462e-03_rb,0.88167e-03_rb,0.82945e-03_rb, &\n        & 0.75050e-03_rb,0.65652e-03_rb,0.53019e-03_rb,0.23455e-03_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.78430e-03_rb,0.93252e-03_rb,0.95418e-03_rb,0.92872e-03_rb,0.87301e-03_rb, &\n        & 0.79337e-03_rb,0.69871e-03_rb,0.57160e-03_rb,0.26520e-03_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.81683e-03_rb,0.98168e-03_rb,0.10045e-02_rb,0.97638e-03_rb,0.92000e-03_rb, &\n        & 0.84034e-03_rb,0.74480e-03_rb,0.61518e-03_rb,0.29808e-03_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.58497e-03_rb,0.66935e-03_rb,0.68301e-03_rb,0.66951e-03_rb,0.62962e-03_rb, &\n        & 0.56579e-03_rb,0.48826e-03_rb,0.38379e-03_rb,0.14576e-03_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.61310e-03_rb,0.71031e-03_rb,0.72592e-03_rb,0.70978e-03_rb,0.66652e-03_rb, &\n        & 0.59753e-03_rb,0.51826e-03_rb,0.41385e-03_rb,0.16772e-03_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.64179e-03_rb,0.75306e-03_rb,0.77095e-03_rb,0.75074e-03_rb,0.70458e-03_rb, &\n        & 0.63276e-03_rb,0.55157e-03_rb,0.44695e-03_rb,0.19067e-03_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.67039e-03_rb,0.79634e-03_rb,0.81655e-03_rb,0.79420e-03_rb,0.74416e-03_rb, &\n        & 0.67043e-03_rb,0.58781e-03_rb,0.48223e-03_rb,0.21651e-03_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.69870e-03_rb,0.83972e-03_rb,0.86240e-03_rb,0.83794e-03_rb,0.78674e-03_rb, &\n        & 0.71204e-03_rb,0.62768e-03_rb,0.51780e-03_rb,0.24414e-03_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.49594e-03_rb,0.56319e-03_rb,0.57248e-03_rb,0.55950e-03_rb,0.52657e-03_rb, &\n        & 0.47274e-03_rb,0.40631e-03_rb,0.31914e-03_rb,0.11737e-03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.51946e-03_rb,0.59932e-03_rb,0.61091e-03_rb,0.59626e-03_rb,0.56011e-03_rb, &\n        & 0.50076e-03_rb,0.43158e-03_rb,0.34422e-03_rb,0.13452e-03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.54355e-03_rb,0.63601e-03_rb,0.65111e-03_rb,0.63466e-03_rb,0.59552e-03_rb, &\n        & 0.53122e-03_rb,0.45996e-03_rb,0.37172e-03_rb,0.15179e-03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.56762e-03_rb,0.67321e-03_rb,0.69130e-03_rb,0.67433e-03_rb,0.63164e-03_rb, &\n        & 0.56508e-03_rb,0.49145e-03_rb,0.39979e-03_rb,0.17118e-03_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.59180e-03_rb,0.71065e-03_rb,0.73195e-03_rb,0.71355e-03_rb,0.66898e-03_rb, &\n        & 0.60268e-03_rb,0.52617e-03_rb,0.43141e-03_rb,0.19263e-03_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.41932e-03_rb,0.47346e-03_rb,0.47850e-03_rb,0.46519e-03_rb,0.43628e-03_rb, &\n        & 0.39132e-03_rb,0.33641e-03_rb,0.26485e-03_rb,0.10000e-03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.43848e-03_rb,0.50411e-03_rb,0.51171e-03_rb,0.49803e-03_rb,0.46737e-03_rb, &\n        & 0.41801e-03_rb,0.35878e-03_rb,0.28532e-03_rb,0.11408e-03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.45836e-03_rb,0.53506e-03_rb,0.54578e-03_rb,0.53230e-03_rb,0.49970e-03_rb, &\n        & 0.44506e-03_rb,0.38306e-03_rb,0.30828e-03_rb,0.13001e-03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.47855e-03_rb,0.56639e-03_rb,0.58020e-03_rb,0.56722e-03_rb,0.53202e-03_rb, &\n        & 0.47546e-03_rb,0.41064e-03_rb,0.33104e-03_rb,0.14676e-03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.49885e-03_rb,0.59805e-03_rb,0.61555e-03_rb,0.60152e-03_rb,0.56466e-03_rb, &\n        & 0.50884e-03_rb,0.44071e-03_rb,0.35766e-03_rb,0.16471e-03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.35434e-03_rb,0.39784e-03_rb,0.40003e-03_rb,0.38643e-03_rb,0.36029e-03_rb, &\n        & 0.32228e-03_rb,0.27705e-03_rb,0.21936e-03_rb,0.85304e-04_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.36972e-03_rb,0.42325e-03_rb,0.42802e-03_rb,0.41467e-03_rb,0.38745e-03_rb, &\n        & 0.34637e-03_rb,0.29590e-03_rb,0.23622e-03_rb,0.97535e-04_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.38589e-03_rb,0.44905e-03_rb,0.45611e-03_rb,0.44402e-03_rb,0.41681e-03_rb, &\n        & 0.37125e-03_rb,0.31793e-03_rb,0.25523e-03_rb,0.11156e-03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.40282e-03_rb,0.47505e-03_rb,0.48489e-03_rb,0.47391e-03_rb,0.44440e-03_rb, &\n        & 0.39797e-03_rb,0.34220e-03_rb,0.27395e-03_rb,0.12650e-03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.41971e-03_rb,0.50175e-03_rb,0.51511e-03_rb,0.50365e-03_rb,0.47246e-03_rb, &\n        & 0.42646e-03_rb,0.36852e-03_rb,0.29705e-03_rb,0.14272e-03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.29829e-03_rb,0.33364e-03_rb,0.33392e-03_rb,0.32092e-03_rb,0.29738e-03_rb, &\n        & 0.26469e-03_rb,0.22642e-03_rb,0.18017e-03_rb,0.77064e-04_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.31054e-03_rb,0.35463e-03_rb,0.35704e-03_rb,0.34432e-03_rb,0.32083e-03_rb, &\n        & 0.28575e-03_rb,0.24402e-03_rb,0.19441e-03_rb,0.87743e-04_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.32389e-03_rb,0.37581e-03_rb,0.38023e-03_rb,0.36873e-03_rb,0.34562e-03_rb, &\n        & 0.30799e-03_rb,0.26274e-03_rb,0.21037e-03_rb,0.99662e-04_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.33808e-03_rb,0.39748e-03_rb,0.40404e-03_rb,0.39387e-03_rb,0.36968e-03_rb, &\n        & 0.33141e-03_rb,0.28405e-03_rb,0.22647e-03_rb,0.11282e-03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.35231e-03_rb,0.41983e-03_rb,0.42961e-03_rb,0.41951e-03_rb,0.39352e-03_rb, &\n        & 0.35528e-03_rb,0.30599e-03_rb,0.24648e-03_rb,0.12841e-03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.25036e-03_rb,0.27999e-03_rb,0.27949e-03_rb,0.26793e-03_rb,0.24735e-03_rb, &\n        & 0.21800e-03_rb,0.18604e-03_rb,0.14807e-03_rb,0.93146e-04_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.26009e-03_rb,0.29745e-03_rb,0.29870e-03_rb,0.28727e-03_rb,0.26656e-03_rb, &\n        & 0.23674e-03_rb,0.20160e-03_rb,0.16012e-03_rb,0.10408e-03_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.27084e-03_rb,0.31508e-03_rb,0.31779e-03_rb,0.30720e-03_rb,0.28751e-03_rb, &\n        & 0.25636e-03_rb,0.21818e-03_rb,0.17357e-03_rb,0.11611e-03_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.28251e-03_rb,0.33335e-03_rb,0.33759e-03_rb,0.32814e-03_rb,0.30785e-03_rb, &\n        & 0.27625e-03_rb,0.23573e-03_rb,0.18761e-03_rb,0.12959e-03_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.29455e-03_rb,0.35211e-03_rb,0.35903e-03_rb,0.34997e-03_rb,0.32871e-03_rb, &\n        & 0.29658e-03_rb,0.25454e-03_rb,0.20476e-03_rb,0.14404e-03_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.21327e-03_rb,0.24042e-03_rb,0.24026e-03_rb,0.23068e-03_rb,0.21276e-03_rb, &\n        & 0.18665e-03_rb,0.15901e-03_rb,0.12570e-03_rb,0.94295e-04_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.22127e-03_rb,0.25493e-03_rb,0.25609e-03_rb,0.24693e-03_rb,0.22931e-03_rb, &\n        & 0.20329e-03_rb,0.17265e-03_rb,0.13686e-03_rb,0.10535e-03_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.23042e-03_rb,0.26962e-03_rb,0.27233e-03_rb,0.26383e-03_rb,0.24677e-03_rb, &\n        & 0.22030e-03_rb,0.18718e-03_rb,0.14788e-03_rb,0.11369e-03_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.24025e-03_rb,0.28500e-03_rb,0.28961e-03_rb,0.28171e-03_rb,0.26402e-03_rb, &\n        & 0.23726e-03_rb,0.20232e-03_rb,0.16110e-03_rb,0.12526e-03_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.25035e-03_rb,0.30139e-03_rb,0.30818e-03_rb,0.30033e-03_rb,0.28246e-03_rb, &\n        & 0.25541e-03_rb,0.21869e-03_rb,0.17592e-03_rb,0.13806e-03_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.18213e-03_rb,0.20563e-03_rb,0.20558e-03_rb,0.19744e-03_rb,0.18197e-03_rb, &\n        & 0.15967e-03_rb,0.13562e-03_rb,0.10709e-03_rb,0.84300e-04_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.18873e-03_rb,0.21755e-03_rb,0.21877e-03_rb,0.21098e-03_rb,0.19617e-03_rb, &\n        & 0.17419e-03_rb,0.14735e-03_rb,0.11726e-03_rb,0.96090e-04_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.19633e-03_rb,0.22994e-03_rb,0.23250e-03_rb,0.22538e-03_rb,0.21092e-03_rb, &\n        & 0.18881e-03_rb,0.15987e-03_rb,0.12650e-03_rb,0.10477e-03_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.20445e-03_rb,0.24309e-03_rb,0.24729e-03_rb,0.24084e-03_rb,0.22613e-03_rb, &\n        & 0.20371e-03_rb,0.17330e-03_rb,0.13785e-03_rb,0.11268e-03_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.21299e-03_rb,0.25719e-03_rb,0.26315e-03_rb,0.25711e-03_rb,0.24260e-03_rb, &\n        & 0.21944e-03_rb,0.18764e-03_rb,0.15038e-03_rb,0.12367e-03_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.15527e-03_rb,0.17641e-03_rb,0.17566e-03_rb,0.16836e-03_rb,0.15534e-03_rb, &\n        & 0.13636e-03_rb,0.11530e-03_rb,0.91307e-04_rb,0.70205e-04_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.16096e-03_rb,0.18612e-03_rb,0.18657e-03_rb,0.17973e-03_rb,0.16702e-03_rb, &\n        & 0.14851e-03_rb,0.12550e-03_rb,0.99145e-04_rb,0.79984e-04_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.16748e-03_rb,0.19648e-03_rb,0.19822e-03_rb,0.19209e-03_rb,0.17957e-03_rb, &\n        & 0.16107e-03_rb,0.13652e-03_rb,0.10753e-03_rb,0.86067e-04_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.17450e-03_rb,0.20751e-03_rb,0.21098e-03_rb,0.20534e-03_rb,0.19295e-03_rb, &\n        & 0.17420e-03_rb,0.14816e-03_rb,0.11772e-03_rb,0.93252e-04_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.18233e-03_rb,0.21950e-03_rb,0.22442e-03_rb,0.21958e-03_rb,0.20754e-03_rb, &\n        & 0.18842e-03_rb,0.16097e-03_rb,0.12851e-03_rb,0.10278e-03_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.23852e-02_rb,0.24955e-02_rb,0.25247e-02_rb,0.24784e-02_rb,0.23525e-02_rb, &\n        & 0.21437e-02_rb,0.18704e-02_rb,0.15353e-02_rb,0.99116e-03_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.23950e-02_rb,0.25560e-02_rb,0.26150e-02_rb,0.25851e-02_rb,0.24612e-02_rb, &\n        & 0.22632e-02_rb,0.20004e-02_rb,0.16585e-02_rb,0.11087e-02_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.24020e-02_rb,0.26226e-02_rb,0.27112e-02_rb,0.26940e-02_rb,0.25772e-02_rb, &\n        & 0.23915e-02_rb,0.21332e-02_rb,0.17859e-02_rb,0.12435e-02_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.24093e-02_rb,0.26930e-02_rb,0.28096e-02_rb,0.28038e-02_rb,0.27017e-02_rb, &\n        & 0.25227e-02_rb,0.22696e-02_rb,0.19198e-02_rb,0.13912e-02_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.24224e-02_rb,0.27647e-02_rb,0.29093e-02_rb,0.29173e-02_rb,0.28299e-02_rb, &\n        & 0.26579e-02_rb,0.24103e-02_rb,0.20612e-02_rb,0.15535e-02_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.20974e-02_rb,0.22118e-02_rb,0.22296e-02_rb,0.21778e-02_rb,0.20625e-02_rb, &\n        & 0.18815e-02_rb,0.16530e-02_rb,0.13562e-02_rb,0.82141e-03_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.21046e-02_rb,0.22702e-02_rb,0.23143e-02_rb,0.22813e-02_rb,0.21720e-02_rb, &\n        & 0.19971e-02_rb,0.17712e-02_rb,0.14678e-02_rb,0.93003e-03_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.21127e-02_rb,0.23326e-02_rb,0.24062e-02_rb,0.23885e-02_rb,0.22861e-02_rb, &\n        & 0.21193e-02_rb,0.18939e-02_rb,0.15834e-02_rb,0.10463e-02_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.21272e-02_rb,0.23971e-02_rb,0.25002e-02_rb,0.24977e-02_rb,0.24074e-02_rb, &\n        & 0.22461e-02_rb,0.20177e-02_rb,0.17030e-02_rb,0.11732e-02_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.21483e-02_rb,0.24652e-02_rb,0.25947e-02_rb,0.26138e-02_rb,0.25341e-02_rb, &\n        & 0.23755e-02_rb,0.21449e-02_rb,0.18299e-02_rb,0.13107e-02_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.18244e-02_rb,0.19320e-02_rb,0.19387e-02_rb,0.18795e-02_rb,0.17712e-02_rb, &\n        & 0.16188e-02_rb,0.14258e-02_rb,0.11664e-02_rb,0.66404e-03_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.18322e-02_rb,0.19846e-02_rb,0.20150e-02_rb,0.19741e-02_rb,0.18746e-02_rb, &\n        & 0.17292e-02_rb,0.15311e-02_rb,0.12668e-02_rb,0.75772e-03_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.18451e-02_rb,0.20412e-02_rb,0.20960e-02_rb,0.20746e-02_rb,0.19871e-02_rb, &\n        & 0.18444e-02_rb,0.16430e-02_rb,0.13711e-02_rb,0.85470e-03_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.18657e-02_rb,0.21020e-02_rb,0.21815e-02_rb,0.21798e-02_rb,0.21034e-02_rb, &\n        & 0.19629e-02_rb,0.17571e-02_rb,0.14786e-02_rb,0.95834e-03_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.18943e-02_rb,0.21674e-02_rb,0.22717e-02_rb,0.22915e-02_rb,0.22239e-02_rb, &\n        & 0.20844e-02_rb,0.18739e-02_rb,0.15906e-02_rb,0.10775e-02_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.15758e-02_rb,0.16711e-02_rb,0.16675e-02_rb,0.16043e-02_rb,0.15088e-02_rb, &\n        & 0.13785e-02_rb,0.12140e-02_rb,0.98780e-03_rb,0.53258e-03_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.15867e-02_rb,0.17169e-02_rb,0.17338e-02_rb,0.16891e-02_rb,0.16022e-02_rb, &\n        & 0.14807e-02_rb,0.13108e-02_rb,0.10774e-02_rb,0.61127e-03_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.16043e-02_rb,0.17687e-02_rb,0.18047e-02_rb,0.17788e-02_rb,0.17054e-02_rb, &\n        & 0.15869e-02_rb,0.14121e-02_rb,0.11700e-02_rb,0.69092e-03_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.16308e-02_rb,0.18263e-02_rb,0.18817e-02_rb,0.18741e-02_rb,0.18139e-02_rb, &\n        & 0.16955e-02_rb,0.15162e-02_rb,0.12673e-02_rb,0.77859e-03_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.16631e-02_rb,0.18894e-02_rb,0.19653e-02_rb,0.19764e-02_rb,0.19240e-02_rb, &\n        & 0.18069e-02_rb,0.16237e-02_rb,0.13697e-02_rb,0.87657e-03_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.13575e-02_rb,0.14376e-02_rb,0.14238e-02_rb,0.13660e-02_rb,0.12806e-02_rb, &\n        & 0.11664e-02_rb,0.10231e-02_rb,0.82794e-03_rb,0.42595e-03_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.13711e-02_rb,0.14787e-02_rb,0.14807e-02_rb,0.14369e-02_rb,0.13637e-02_rb, &\n        & 0.12570e-02_rb,0.11125e-02_rb,0.90729e-03_rb,0.48990e-03_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.13932e-02_rb,0.15262e-02_rb,0.15434e-02_rb,0.15158e-02_rb,0.14536e-02_rb, &\n        & 0.13534e-02_rb,0.12033e-02_rb,0.99132e-03_rb,0.55848e-03_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.14217e-02_rb,0.15804e-02_rb,0.16130e-02_rb,0.16009e-02_rb,0.15482e-02_rb, &\n        & 0.14537e-02_rb,0.12991e-02_rb,0.10796e-02_rb,0.63246e-03_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.14548e-02_rb,0.16406e-02_rb,0.16899e-02_rb,0.16924e-02_rb,0.16473e-02_rb, &\n        & 0.15538e-02_rb,0.13988e-02_rb,0.11736e-02_rb,0.71422e-03_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.11657e-02_rb,0.12310e-02_rb,0.12114e-02_rb,0.11593e-02_rb,0.10807e-02_rb, &\n        & 0.97870e-03_rb,0.85220e-03_rb,0.68679e-03_rb,0.33278e-03_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.11817e-02_rb,0.12689e-02_rb,0.12606e-02_rb,0.12200e-02_rb,0.11515e-02_rb, &\n        & 0.10575e-02_rb,0.93300e-03_rb,0.75653e-03_rb,0.38390e-03_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.12052e-02_rb,0.13132e-02_rb,0.13166e-02_rb,0.12868e-02_rb,0.12281e-02_rb, &\n        & 0.11419e-02_rb,0.10150e-02_rb,0.83054e-03_rb,0.44291e-03_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.12337e-02_rb,0.13638e-02_rb,0.13800e-02_rb,0.13608e-02_rb,0.13105e-02_rb, &\n        & 0.12294e-02_rb,0.11010e-02_rb,0.91218e-03_rb,0.50714e-03_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.12657e-02_rb,0.14200e-02_rb,0.14498e-02_rb,0.14421e-02_rb,0.13994e-02_rb, &\n        & 0.13201e-02_rb,0.11915e-02_rb,0.99447e-03_rb,0.57759e-03_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.99495e-03_rb,0.10489e-02_rb,0.10293e-02_rb,0.98184e-03_rb,0.91156e-03_rb, &\n        & 0.82083e-03_rb,0.70758e-03_rb,0.56387e-03_rb,0.26025e-03_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.10122e-02_rb,0.10837e-02_rb,0.10724e-02_rb,0.10344e-02_rb,0.96982e-03_rb, &\n        & 0.88589e-03_rb,0.77530e-03_rb,0.62605e-03_rb,0.29914e-03_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.10351e-02_rb,0.11253e-02_rb,0.11236e-02_rb,0.10922e-02_rb,0.10352e-02_rb, &\n        & 0.95724e-03_rb,0.84889e-03_rb,0.69076e-03_rb,0.34305e-03_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.10622e-02_rb,0.11721e-02_rb,0.11813e-02_rb,0.11564e-02_rb,0.11065e-02_rb, &\n        & 0.10331e-02_rb,0.92494e-03_rb,0.76297e-03_rb,0.39175e-03_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.10903e-02_rb,0.12244e-02_rb,0.12441e-02_rb,0.12287e-02_rb,0.11845e-02_rb, &\n        & 0.11129e-02_rb,0.10035e-02_rb,0.83648e-03_rb,0.44712e-03_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.84532e-03_rb,0.88892e-03_rb,0.86965e-03_rb,0.82727e-03_rb,0.76674e-03_rb, &\n        & 0.68807e-03_rb,0.58679e-03_rb,0.46179e-03_rb,0.21931e-03_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.86227e-03_rb,0.92051e-03_rb,0.90826e-03_rb,0.87315e-03_rb,0.81675e-03_rb, &\n        & 0.74173e-03_rb,0.64502e-03_rb,0.51436e-03_rb,0.25538e-03_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.88387e-03_rb,0.95827e-03_rb,0.95473e-03_rb,0.92480e-03_rb,0.87135e-03_rb, &\n        & 0.80090e-03_rb,0.70594e-03_rb,0.57141e-03_rb,0.29275e-03_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.90659e-03_rb,0.10014e-02_rb,0.10072e-02_rb,0.98186e-03_rb,0.93348e-03_rb, &\n        & 0.86582e-03_rb,0.77148e-03_rb,0.63431e-03_rb,0.33522e-03_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.93066e-03_rb,0.10477e-02_rb,0.10640e-02_rb,0.10456e-02_rb,0.10022e-02_rb, &\n        & 0.93597e-03_rb,0.84005e-03_rb,0.69831e-03_rb,0.38214e-03_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.71681e-03_rb,0.75151e-03_rb,0.73165e-03_rb,0.69303e-03_rb,0.64106e-03_rb, &\n        & 0.57326e-03_rb,0.48762e-03_rb,0.37724e-03_rb,0.19963e-03_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.73278e-03_rb,0.77936e-03_rb,0.76580e-03_rb,0.73272e-03_rb,0.68369e-03_rb, &\n        & 0.61851e-03_rb,0.53463e-03_rb,0.42190e-03_rb,0.23258e-03_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.75147e-03_rb,0.81327e-03_rb,0.80692e-03_rb,0.77827e-03_rb,0.73101e-03_rb, &\n        & 0.66869e-03_rb,0.58582e-03_rb,0.47030e-03_rb,0.26770e-03_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.77011e-03_rb,0.85035e-03_rb,0.85331e-03_rb,0.82912e-03_rb,0.78414e-03_rb, &\n        & 0.72425e-03_rb,0.64047e-03_rb,0.52434e-03_rb,0.30603e-03_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.79031e-03_rb,0.89033e-03_rb,0.90223e-03_rb,0.88462e-03_rb,0.84489e-03_rb, &\n        & 0.78478e-03_rb,0.70032e-03_rb,0.57826e-03_rb,0.34848e-03_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.60860e-03_rb,0.63631e-03_rb,0.61722e-03_rb,0.58182e-03_rb,0.53631e-03_rb, &\n        & 0.47875e-03_rb,0.40598e-03_rb,0.31001e-03_rb,0.21716e-03_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.62300e-03_rb,0.66096e-03_rb,0.64723e-03_rb,0.61624e-03_rb,0.57283e-03_rb, &\n        & 0.51614e-03_rb,0.44515e-03_rb,0.34783e-03_rb,0.24030e-03_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.63811e-03_rb,0.69041e-03_rb,0.68320e-03_rb,0.65609e-03_rb,0.61386e-03_rb, &\n        & 0.55902e-03_rb,0.48770e-03_rb,0.38933e-03_rb,0.26729e-03_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.65360e-03_rb,0.72213e-03_rb,0.72254e-03_rb,0.70011e-03_rb,0.66034e-03_rb, &\n        & 0.60659e-03_rb,0.53507e-03_rb,0.43477e-03_rb,0.29849e-03_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.67038e-03_rb,0.75665e-03_rb,0.76418e-03_rb,0.74727e-03_rb,0.71207e-03_rb, &\n        & 0.65924e-03_rb,0.58660e-03_rb,0.48108e-03_rb,0.33464e-03_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.52185e-03_rb,0.54797e-03_rb,0.53190e-03_rb,0.50128e-03_rb,0.46230e-03_rb, &\n        & 0.41291e-03_rb,0.35086e-03_rb,0.26843e-03_rb,0.22407e-03_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.53416e-03_rb,0.57111e-03_rb,0.56029e-03_rb,0.53286e-03_rb,0.49524e-03_rb, &\n        & 0.44633e-03_rb,0.38530e-03_rb,0.30138e-03_rb,0.24793e-03_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.54635e-03_rb,0.59685e-03_rb,0.59183e-03_rb,0.56852e-03_rb,0.53236e-03_rb, &\n        & 0.48455e-03_rb,0.42287e-03_rb,0.33910e-03_rb,0.27073e-03_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.55941e-03_rb,0.62493e-03_rb,0.62582e-03_rb,0.60673e-03_rb,0.57348e-03_rb, &\n        & 0.52713e-03_rb,0.46523e-03_rb,0.37861e-03_rb,0.29520e-03_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.57459e-03_rb,0.65537e-03_rb,0.66217e-03_rb,0.64854e-03_rb,0.61857e-03_rb, &\n        & 0.57343e-03_rb,0.51159e-03_rb,0.41997e-03_rb,0.32408e-03_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.44547e-03_rb,0.47205e-03_rb,0.45856e-03_rb,0.43259e-03_rb,0.39885e-03_rb, &\n        & 0.35629e-03_rb,0.30273e-03_rb,0.23099e-03_rb,0.20507e-03_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.45530e-03_rb,0.49200e-03_rb,0.48355e-03_rb,0.46058e-03_rb,0.42831e-03_rb, &\n        & 0.38615e-03_rb,0.33301e-03_rb,0.25970e-03_rb,0.22582e-03_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.46565e-03_rb,0.51443e-03_rb,0.51077e-03_rb,0.49108e-03_rb,0.46067e-03_rb, &\n        & 0.41962e-03_rb,0.36657e-03_rb,0.29355e-03_rb,0.24853e-03_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.47732e-03_rb,0.53905e-03_rb,0.54027e-03_rb,0.52415e-03_rb,0.49634e-03_rb, &\n        & 0.45650e-03_rb,0.40422e-03_rb,0.32887e-03_rb,0.26943e-03_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.49131e-03_rb,0.56624e-03_rb,0.57259e-03_rb,0.56091e-03_rb,0.53532e-03_rb, &\n        & 0.49724e-03_rb,0.44494e-03_rb,0.36671e-03_rb,0.29370e-03_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.37861e-03_rb,0.40433e-03_rb,0.39425e-03_rb,0.37277e-03_rb,0.34384e-03_rb, &\n        & 0.30718e-03_rb,0.26082e-03_rb,0.19813e-03_rb,0.17021e-03_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.38646e-03_rb,0.42180e-03_rb,0.41569e-03_rb,0.39676e-03_rb,0.36941e-03_rb, &\n        & 0.33370e-03_rb,0.28746e-03_rb,0.22445e-03_rb,0.18768e-03_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.39522e-03_rb,0.44150e-03_rb,0.43928e-03_rb,0.42293e-03_rb,0.39746e-03_rb, &\n        & 0.36268e-03_rb,0.31709e-03_rb,0.25391e-03_rb,0.20463e-03_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.40576e-03_rb,0.46362e-03_rb,0.46497e-03_rb,0.45178e-03_rb,0.42852e-03_rb, &\n        & 0.39486e-03_rb,0.34992e-03_rb,0.28472e-03_rb,0.22430e-03_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.41810e-03_rb,0.48813e-03_rb,0.49424e-03_rb,0.48434e-03_rb,0.46280e-03_rb, &\n        & 0.43027e-03_rb,0.38540e-03_rb,0.31863e-03_rb,0.24541e-03_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.52571e-02_rb,0.51649e-02_rb,0.50998e-02_rb,0.49978e-02_rb,0.48299e-02_rb, &\n        & 0.45478e-02_rb,0.41071e-02_rb,0.34884e-02_rb,0.27402e-02_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.51967e-02_rb,0.52277e-02_rb,0.52437e-02_rb,0.52099e-02_rb,0.50894e-02_rb, &\n        & 0.48424e-02_rb,0.44165e-02_rb,0.38421e-02_rb,0.31643e-02_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.51548e-02_rb,0.53047e-02_rb,0.54023e-02_rb,0.54271e-02_rb,0.53544e-02_rb, &\n        & 0.51370e-02_rb,0.47457e-02_rb,0.42178e-02_rb,0.36142e-02_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.51293e-02_rb,0.53942e-02_rb,0.55672e-02_rb,0.56512e-02_rb,0.56201e-02_rb, &\n        & 0.54409e-02_rb,0.50927e-02_rb,0.46186e-02_rb,0.40998e-02_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.51178e-02_rb,0.54996e-02_rb,0.57406e-02_rb,0.58798e-02_rb,0.58932e-02_rb, &\n        & 0.57606e-02_rb,0.54613e-02_rb,0.50399e-02_rb,0.46100e-02_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.47778e-02_rb,0.47398e-02_rb,0.47115e-02_rb,0.46169e-02_rb,0.44426e-02_rb, &\n        & 0.41630e-02_rb,0.37511e-02_rb,0.31426e-02_rb,0.23122e-02_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.47384e-02_rb,0.48111e-02_rb,0.48532e-02_rb,0.48144e-02_rb,0.46755e-02_rb, &\n        & 0.44342e-02_rb,0.40397e-02_rb,0.34599e-02_rb,0.26698e-02_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.47181e-02_rb,0.49025e-02_rb,0.50071e-02_rb,0.50151e-02_rb,0.49194e-02_rb, &\n        & 0.47085e-02_rb,0.43402e-02_rb,0.37956e-02_rb,0.30630e-02_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.47137e-02_rb,0.50070e-02_rb,0.51691e-02_rb,0.52245e-02_rb,0.51706e-02_rb, &\n        & 0.49959e-02_rb,0.46583e-02_rb,0.41574e-02_rb,0.34865e-02_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.47212e-02_rb,0.51234e-02_rb,0.53397e-02_rb,0.54379e-02_rb,0.54276e-02_rb, &\n        & 0.52983e-02_rb,0.49978e-02_rb,0.45412e-02_rb,0.39357e-02_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.42971e-02_rb,0.42851e-02_rb,0.42729e-02_rb,0.41707e-02_rb,0.39926e-02_rb, &\n        & 0.37146e-02_rb,0.33264e-02_rb,0.27717e-02_rb,0.18852e-02_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.42740e-02_rb,0.43647e-02_rb,0.44079e-02_rb,0.43562e-02_rb,0.42040e-02_rb, &\n        & 0.39559e-02_rb,0.35908e-02_rb,0.30443e-02_rb,0.21816e-02_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.42703e-02_rb,0.44650e-02_rb,0.45616e-02_rb,0.45425e-02_rb,0.44233e-02_rb, &\n        & 0.42066e-02_rb,0.38676e-02_rb,0.33396e-02_rb,0.25126e-02_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.42812e-02_rb,0.45806e-02_rb,0.47230e-02_rb,0.47371e-02_rb,0.46519e-02_rb, &\n        & 0.44691e-02_rb,0.41620e-02_rb,0.36586e-02_rb,0.28704e-02_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.43030e-02_rb,0.47042e-02_rb,0.48922e-02_rb,0.49377e-02_rb,0.48939e-02_rb, &\n        & 0.47477e-02_rb,0.44742e-02_rb,0.39985e-02_rb,0.32501e-02_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.38233e-02_rb,0.38279e-02_rb,0.38143e-02_rb,0.37097e-02_rb,0.35270e-02_rb, &\n        & 0.32658e-02_rb,0.29019e-02_rb,0.24142e-02_rb,0.15291e-02_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.38114e-02_rb,0.39122e-02_rb,0.39475e-02_rb,0.38778e-02_rb,0.37194e-02_rb, &\n        & 0.34777e-02_rb,0.31357e-02_rb,0.26541e-02_rb,0.17758e-02_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.38202e-02_rb,0.40186e-02_rb,0.40970e-02_rb,0.40542e-02_rb,0.39201e-02_rb, &\n        & 0.37024e-02_rb,0.33826e-02_rb,0.29146e-02_rb,0.20543e-02_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.38442e-02_rb,0.41385e-02_rb,0.42569e-02_rb,0.42394e-02_rb,0.41310e-02_rb, &\n        & 0.39403e-02_rb,0.36479e-02_rb,0.31917e-02_rb,0.23538e-02_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.38788e-02_rb,0.42695e-02_rb,0.44229e-02_rb,0.44328e-02_rb,0.43540e-02_rb, &\n        & 0.41948e-02_rb,0.39317e-02_rb,0.34895e-02_rb,0.26724e-02_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.33660e-02_rb,0.33879e-02_rb,0.33669e-02_rb,0.32570e-02_rb,0.30787e-02_rb, &\n        & 0.28362e-02_rb,0.25094e-02_rb,0.20819e-02_rb,0.12376e-02_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.33649e-02_rb,0.34740e-02_rb,0.34949e-02_rb,0.34119e-02_rb,0.32508e-02_rb, &\n        & 0.30247e-02_rb,0.27121e-02_rb,0.22949e-02_rb,0.14462e-02_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.33839e-02_rb,0.35821e-02_rb,0.36398e-02_rb,0.35762e-02_rb,0.34359e-02_rb, &\n        & 0.32230e-02_rb,0.29317e-02_rb,0.25218e-02_rb,0.16788e-02_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.34188e-02_rb,0.37047e-02_rb,0.37932e-02_rb,0.37524e-02_rb,0.36321e-02_rb, &\n        & 0.34359e-02_rb,0.31677e-02_rb,0.27663e-02_rb,0.19299e-02_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.34572e-02_rb,0.38382e-02_rb,0.39563e-02_rb,0.39381e-02_rb,0.38416e-02_rb, &\n        & 0.36710e-02_rb,0.34185e-02_rb,0.30298e-02_rb,0.21985e-02_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.29383e-02_rb,0.29689e-02_rb,0.29375e-02_rb,0.28254e-02_rb,0.26571e-02_rb, &\n        & 0.24356e-02_rb,0.21491e-02_rb,0.17706e-02_rb,0.99284e-03_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.29460e-02_rb,0.30526e-02_rb,0.30576e-02_rb,0.29676e-02_rb,0.28114e-02_rb, &\n        & 0.25995e-02_rb,0.23244e-02_rb,0.19573e-02_rb,0.11692e-02_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.29740e-02_rb,0.31582e-02_rb,0.31942e-02_rb,0.31202e-02_rb,0.29785e-02_rb, &\n        & 0.27771e-02_rb,0.25160e-02_rb,0.21565e-02_rb,0.13616e-02_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.30101e-02_rb,0.32807e-02_rb,0.33417e-02_rb,0.32855e-02_rb,0.31583e-02_rb, &\n        & 0.29708e-02_rb,0.27234e-02_rb,0.23688e-02_rb,0.15696e-02_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.30525e-02_rb,0.34071e-02_rb,0.34999e-02_rb,0.34618e-02_rb,0.33518e-02_rb, &\n        & 0.31829e-02_rb,0.29437e-02_rb,0.25986e-02_rb,0.17941e-02_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.25527e-02_rb,0.25837e-02_rb,0.25415e-02_rb,0.24332e-02_rb,0.22747e-02_rb, &\n        & 0.20758e-02_rb,0.18231e-02_rb,0.14951e-02_rb,0.78066e-03_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.25661e-02_rb,0.26638e-02_rb,0.26497e-02_rb,0.25583e-02_rb,0.24134e-02_rb, &\n        & 0.22212e-02_rb,0.19774e-02_rb,0.16540e-02_rb,0.92809e-03_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.25966e-02_rb,0.27642e-02_rb,0.27764e-02_rb,0.26998e-02_rb,0.25630e-02_rb, &\n        & 0.23812e-02_rb,0.21449e-02_rb,0.18264e-02_rb,0.10893e-02_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.26340e-02_rb,0.28771e-02_rb,0.29165e-02_rb,0.28538e-02_rb,0.27279e-02_rb, &\n        & 0.25553e-02_rb,0.23260e-02_rb,0.20107e-02_rb,0.12665e-02_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.26829e-02_rb,0.29939e-02_rb,0.30639e-02_rb,0.30192e-02_rb,0.29089e-02_rb, &\n        & 0.27450e-02_rb,0.25219e-02_rb,0.22101e-02_rb,0.14584e-02_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.22109e-02_rb,0.22392e-02_rb,0.21909e-02_rb,0.20870e-02_rb,0.19391e-02_rb, &\n        & 0.17569e-02_rb,0.15368e-02_rb,0.12514e-02_rb,0.62879e-03_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.22276e-02_rb,0.23140e-02_rb,0.22874e-02_rb,0.21965e-02_rb,0.20609e-02_rb, &\n        & 0.18868e-02_rb,0.16711e-02_rb,0.13887e-02_rb,0.73533e-03_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.22565e-02_rb,0.24065e-02_rb,0.24031e-02_rb,0.23233e-02_rb,0.21969e-02_rb, &\n        & 0.20302e-02_rb,0.18188e-02_rb,0.15365e-02_rb,0.85609e-03_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.22974e-02_rb,0.25072e-02_rb,0.25290e-02_rb,0.24653e-02_rb,0.23482e-02_rb, &\n        & 0.21882e-02_rb,0.19777e-02_rb,0.16966e-02_rb,0.98553e-03_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.23517e-02_rb,0.26173e-02_rb,0.26619e-02_rb,0.26145e-02_rb,0.25139e-02_rb, &\n        & 0.23587e-02_rb,0.21497e-02_rb,0.18671e-02_rb,0.11277e-02_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.19109e-02_rb,0.19351e-02_rb,0.18847e-02_rb,0.17853e-02_rb,0.16484e-02_rb, &\n        & 0.14828e-02_rb,0.12861e-02_rb,0.10403e-02_rb,0.59847e-03_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.19272e-02_rb,0.20031e-02_rb,0.19691e-02_rb,0.18817e-02_rb,0.17540e-02_rb, &\n        & 0.15965e-02_rb,0.14036e-02_rb,0.11571e-02_rb,0.69475e-03_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.19559e-02_rb,0.20842e-02_rb,0.20709e-02_rb,0.19954e-02_rb,0.18765e-02_rb, &\n        & 0.17233e-02_rb,0.15331e-02_rb,0.12839e-02_rb,0.80150e-03_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.19994e-02_rb,0.21761e-02_rb,0.21815e-02_rb,0.21203e-02_rb,0.20143e-02_rb, &\n        & 0.18645e-02_rb,0.16732e-02_rb,0.14206e-02_rb,0.91777e-03_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.20550e-02_rb,0.22788e-02_rb,0.23027e-02_rb,0.22546e-02_rb,0.21605e-02_rb, &\n        & 0.20175e-02_rb,0.18247e-02_rb,0.15687e-02_rb,0.10450e-02_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.16445e-02_rb,0.16716e-02_rb,0.16238e-02_rb,0.15300e-02_rb,0.14061e-02_rb, &\n        & 0.12566e-02_rb,0.10807e-02_rb,0.86738e-03_rb,0.60827e-03_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.16600e-02_rb,0.17327e-02_rb,0.16984e-02_rb,0.16154e-02_rb,0.14994e-02_rb, &\n        & 0.13556e-02_rb,0.11827e-02_rb,0.96695e-03_rb,0.70548e-03_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.16905e-02_rb,0.18053e-02_rb,0.17869e-02_rb,0.17163e-02_rb,0.16090e-02_rb, &\n        & 0.14689e-02_rb,0.12961e-02_rb,0.10754e-02_rb,0.80786e-03_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.17354e-02_rb,0.18905e-02_rb,0.18865e-02_rb,0.18272e-02_rb,0.17299e-02_rb, &\n        & 0.15951e-02_rb,0.14192e-02_rb,0.11936e-02_rb,0.91620e-03_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.17884e-02_rb,0.19860e-02_rb,0.19977e-02_rb,0.19501e-02_rb,0.18596e-02_rb, &\n        & 0.17298e-02_rb,0.15525e-02_rb,0.13217e-02_rb,0.10338e-02_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.14133e-02_rb,0.14603e-02_rb,0.14202e-02_rb,0.13407e-02_rb,0.12334e-02_rb, &\n        & 0.11026e-02_rb,0.94643e-03_rb,0.75979e-03_rb,0.57405e-03_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.14357e-02_rb,0.15193e-02_rb,0.14916e-02_rb,0.14232e-02_rb,0.13232e-02_rb, &\n        & 0.11950e-02_rb,0.10392e-02_rb,0.84686e-03_rb,0.65471e-03_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.14730e-02_rb,0.15907e-02_rb,0.15765e-02_rb,0.15172e-02_rb,0.14237e-02_rb, &\n        & 0.12997e-02_rb,0.11424e-02_rb,0.94298e-03_rb,0.75212e-03_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.15188e-02_rb,0.16737e-02_rb,0.16734e-02_rb,0.16227e-02_rb,0.15348e-02_rb, &\n        & 0.14132e-02_rb,0.12544e-02_rb,0.10476e-02_rb,0.85445e-03_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.15705e-02_rb,0.17634e-02_rb,0.17799e-02_rb,0.17387e-02_rb,0.16551e-02_rb, &\n        & 0.15344e-02_rb,0.13744e-02_rb,0.11635e-02_rb,0.96358e-03_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.12145e-02_rb,0.12721e-02_rb,0.12387e-02_rb,0.11722e-02_rb,0.10815e-02_rb, &\n        & 0.96748e-03_rb,0.83052e-03_rb,0.66461e-03_rb,0.51952e-03_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.12432e-02_rb,0.13303e-02_rb,0.13076e-02_rb,0.12500e-02_rb,0.11644e-02_rb, &\n        & 0.10531e-02_rb,0.91410e-03_rb,0.74198e-03_rb,0.58718e-03_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.12811e-02_rb,0.13998e-02_rb,0.13897e-02_rb,0.13394e-02_rb,0.12574e-02_rb, &\n        & 0.11474e-02_rb,0.10067e-02_rb,0.82675e-03_rb,0.66821e-03_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.13251e-02_rb,0.14771e-02_rb,0.14813e-02_rb,0.14393e-02_rb,0.13610e-02_rb, &\n        & 0.12504e-02_rb,0.11057e-02_rb,0.91975e-03_rb,0.76078e-03_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.13700e-02_rb,0.15597e-02_rb,0.15807e-02_rb,0.15467e-02_rb,0.14716e-02_rb, &\n        & 0.13608e-02_rb,0.12138e-02_rb,0.10232e-02_rb,0.85832e-03_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.10471e-02_rb,0.11076e-02_rb,0.10790e-02_rb,0.10231e-02_rb,0.94527e-03_rb, &\n        & 0.84789e-03_rb,0.72861e-03_rb,0.58068e-03_rb,0.44361e-03_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.10765e-02_rb,0.11637e-02_rb,0.11461e-02_rb,0.10966e-02_rb,0.10221e-02_rb, &\n        & 0.92418e-03_rb,0.80364e-03_rb,0.64949e-03_rb,0.50409e-03_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.11121e-02_rb,0.12288e-02_rb,0.12232e-02_rb,0.11802e-02_rb,0.11084e-02_rb, &\n        & 0.10099e-02_rb,0.88562e-03_rb,0.72467e-03_rb,0.57688e-03_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.11491e-02_rb,0.12989e-02_rb,0.13080e-02_rb,0.12720e-02_rb,0.12030e-02_rb, &\n        & 0.11037e-02_rb,0.97404e-03_rb,0.80781e-03_rb,0.65303e-03_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.11880e-02_rb,0.13724e-02_rb,0.13975e-02_rb,0.13701e-02_rb,0.13034e-02_rb, &\n        & 0.12049e-02_rb,0.10715e-02_rb,0.89944e-03_rb,0.73687e-03_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.14418e-01_rb,0.13406e-01_rb,0.12605e-01_rb,0.11857e-01_rb,0.11091e-01_rb, &\n        & 0.10336e-01_rb,0.95691e-02_rb,0.87036e-02_rb,0.88524e-02_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.14296e-01_rb,0.13450e-01_rb,0.12870e-01_rb,0.12297e-01_rb,0.11684e-01_rb, &\n        & 0.11070e-01_rb,0.10452e-01_rb,0.97477e-02_rb,0.10154e-01_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.14166e-01_rb,0.13524e-01_rb,0.13158e-01_rb,0.12768e-01_rb,0.12317e-01_rb, &\n        & 0.11876e-01_rb,0.11397e-01_rb,0.10864e-01_rb,0.11523e-01_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.14022e-01_rb,0.13622e-01_rb,0.13487e-01_rb,0.13264e-01_rb,0.13003e-01_rb, &\n        & 0.12732e-01_rb,0.12371e-01_rb,0.12050e-01_rb,0.12968e-01_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.13872e-01_rb,0.13730e-01_rb,0.13820e-01_rb,0.13802e-01_rb,0.13718e-01_rb, &\n        & 0.13604e-01_rb,0.13373e-01_rb,0.13315e-01_rb,0.14498e-01_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.14547e-01_rb,0.13535e-01_rb,0.12726e-01_rb,0.11955e-01_rb,0.11121e-01_rb, &\n        & 0.10242e-01_rb,0.92998e-02_rb,0.82716e-02_rb,0.79571e-02_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.14415e-01_rb,0.13577e-01_rb,0.12984e-01_rb,0.12377e-01_rb,0.11698e-01_rb, &\n        & 0.10932e-01_rb,0.10129e-01_rb,0.92199e-02_rb,0.91565e-02_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.14274e-01_rb,0.13649e-01_rb,0.13264e-01_rb,0.12845e-01_rb,0.12290e-01_rb, &\n        & 0.11686e-01_rb,0.11026e-01_rb,0.10231e-01_rb,0.10415e-01_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.14122e-01_rb,0.13744e-01_rb,0.13589e-01_rb,0.13325e-01_rb,0.12935e-01_rb, &\n        & 0.12484e-01_rb,0.11950e-01_rb,0.11311e-01_rb,0.11744e-01_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.13965e-01_rb,0.13855e-01_rb,0.13924e-01_rb,0.13828e-01_rb,0.13608e-01_rb, &\n        & 0.13305e-01_rb,0.12905e-01_rb,0.12457e-01_rb,0.13151e-01_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.14475e-01_rb,0.13482e-01_rb,0.12654e-01_rb,0.11861e-01_rb,0.10971e-01_rb, &\n        & 0.99930e-02_rb,0.88735e-02_rb,0.76595e-02_rb,0.68509e-02_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.14335e-01_rb,0.13514e-01_rb,0.12906e-01_rb,0.12263e-01_rb,0.11533e-01_rb, &\n        & 0.10637e-01_rb,0.96386e-02_rb,0.85394e-02_rb,0.79297e-02_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.14181e-01_rb,0.13576e-01_rb,0.13177e-01_rb,0.12719e-01_rb,0.12099e-01_rb, &\n        & 0.11329e-01_rb,0.10466e-01_rb,0.94601e-02_rb,0.90731e-02_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.14024e-01_rb,0.13665e-01_rb,0.13491e-01_rb,0.13188e-01_rb,0.12703e-01_rb, &\n        & 0.12072e-01_rb,0.11323e-01_rb,0.10433e-01_rb,0.10295e-01_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.13862e-01_rb,0.13772e-01_rb,0.13824e-01_rb,0.13679e-01_rb,0.13333e-01_rb, &\n        & 0.12836e-01_rb,0.12214e-01_rb,0.11468e-01_rb,0.11588e-01_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.14153e-01_rb,0.13216e-01_rb,0.12406e-01_rb,0.11612e-01_rb,0.10690e-01_rb, &\n        & 0.96495e-02_rb,0.84088e-02_rb,0.70121e-02_rb,0.57874e-02_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.14005e-01_rb,0.13241e-01_rb,0.12647e-01_rb,0.11995e-01_rb,0.11231e-01_rb, &\n        & 0.10266e-01_rb,0.91127e-02_rb,0.78123e-02_rb,0.67372e-02_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.13845e-01_rb,0.13290e-01_rb,0.12907e-01_rb,0.12438e-01_rb,0.11783e-01_rb, &\n        & 0.10918e-01_rb,0.98730e-02_rb,0.86646e-02_rb,0.77601e-02_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.13685e-01_rb,0.13375e-01_rb,0.13206e-01_rb,0.12899e-01_rb,0.12360e-01_rb, &\n        & 0.11608e-01_rb,0.10665e-01_rb,0.95624e-02_rb,0.88628e-02_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.13529e-01_rb,0.13472e-01_rb,0.13531e-01_rb,0.13371e-01_rb,0.12964e-01_rb, &\n        & 0.12311e-01_rb,0.11491e-01_rb,0.10508e-01_rb,0.10039e-01_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.13587e-01_rb,0.12730e-01_rb,0.11973e-01_rb,0.11204e-01_rb,0.10282e-01_rb, &\n        & 0.92218e-02_rb,0.79316e-02_rb,0.64044e-02_rb,0.48583e-02_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.13430e-01_rb,0.12751e-01_rb,0.12205e-01_rb,0.11567e-01_rb,0.10798e-01_rb, &\n        & 0.98163e-02_rb,0.85810e-02_rb,0.71221e-02_rb,0.56837e-02_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.13271e-01_rb,0.12793e-01_rb,0.12448e-01_rb,0.11993e-01_rb,0.11338e-01_rb, &\n        & 0.10437e-01_rb,0.92786e-02_rb,0.78957e-02_rb,0.65802e-02_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.13115e-01_rb,0.12874e-01_rb,0.12735e-01_rb,0.12440e-01_rb,0.11897e-01_rb, &\n        & 0.11094e-01_rb,0.10003e-01_rb,0.87146e-02_rb,0.75565e-02_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.12984e-01_rb,0.12973e-01_rb,0.13053e-01_rb,0.12899e-01_rb,0.12481e-01_rb, &\n        & 0.11759e-01_rb,0.10765e-01_rb,0.95850e-02_rb,0.86117e-02_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.12817e-01_rb,0.12050e-01_rb,0.11369e-01_rb,0.10622e-01_rb,0.97180e-02_rb, &\n        & 0.86745e-02_rb,0.73942e-02_rb,0.58154e-02_rb,0.40318e-02_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.12656e-01_rb,0.12077e-01_rb,0.11582e-01_rb,0.10960e-01_rb,0.10205e-01_rb, &\n        & 0.92477e-02_rb,0.80000e-02_rb,0.64500e-02_rb,0.47452e-02_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.12499e-01_rb,0.12115e-01_rb,0.11810e-01_rb,0.11361e-01_rb,0.10734e-01_rb, &\n        & 0.98374e-02_rb,0.86412e-02_rb,0.71467e-02_rb,0.55214e-02_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.12364e-01_rb,0.12194e-01_rb,0.12081e-01_rb,0.11798e-01_rb,0.11270e-01_rb, &\n        & 0.10459e-01_rb,0.93144e-02_rb,0.78844e-02_rb,0.63718e-02_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.12255e-01_rb,0.12311e-01_rb,0.12390e-01_rb,0.12242e-01_rb,0.11833e-01_rb, &\n        & 0.11093e-01_rb,0.10016e-01_rb,0.86730e-02_rb,0.72984e-02_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.11891e-01_rb,0.11226e-01_rb,0.10633e-01_rb,0.99134e-02_rb,0.90439e-02_rb, &\n        & 0.80297e-02_rb,0.68136e-02_rb,0.52756e-02_rb,0.33216e-02_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.11730e-01_rb,0.11250e-01_rb,0.10822e-01_rb,0.10230e-01_rb,0.94903e-02_rb, &\n        & 0.85683e-02_rb,0.73765e-02_rb,0.58347e-02_rb,0.39310e-02_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.11586e-01_rb,0.11299e-01_rb,0.11036e-01_rb,0.10599e-01_rb,0.99917e-02_rb, &\n        & 0.91260e-02_rb,0.79645e-02_rb,0.64502e-02_rb,0.46031e-02_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.11473e-01_rb,0.11391e-01_rb,0.11290e-01_rb,0.11015e-01_rb,0.10500e-01_rb, &\n        & 0.97132e-02_rb,0.85920e-02_rb,0.71112e-02_rb,0.53403e-02_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.11384e-01_rb,0.11524e-01_rb,0.11598e-01_rb,0.11442e-01_rb,0.11036e-01_rb, &\n        & 0.10317e-01_rb,0.92441e-02_rb,0.78209e-02_rb,0.61457e-02_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.10852e-01_rb,0.10302e-01_rb,0.97896e-02_rb,0.91138e-02_rb,0.83000e-02_rb, &\n        & 0.73373e-02_rb,0.61956e-02_rb,0.47644e-02_rb,0.26652e-02_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.10699e-01_rb,0.10325e-01_rb,0.99631e-02_rb,0.94045e-02_rb,0.87025e-02_rb, &\n        & 0.78255e-02_rb,0.67137e-02_rb,0.52638e-02_rb,0.31922e-02_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.10574e-01_rb,0.10385e-01_rb,0.10163e-01_rb,0.97460e-02_rb,0.91609e-02_rb, &\n        & 0.83418e-02_rb,0.72560e-02_rb,0.58143e-02_rb,0.37766e-02_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.10480e-01_rb,0.10499e-01_rb,0.10413e-01_rb,0.10139e-01_rb,0.96342e-02_rb, &\n        & 0.88826e-02_rb,0.78405e-02_rb,0.64037e-02_rb,0.44295e-02_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.10415e-01_rb,0.10646e-01_rb,0.10720e-01_rb,0.10553e-01_rb,0.10134e-01_rb, &\n        & 0.94529e-02_rb,0.84471e-02_rb,0.70384e-02_rb,0.51485e-02_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.97587e-02_rb,0.93185e-02_rb,0.88694e-02_rb,0.82517e-02_rb,0.75094e-02_rb, &\n        & 0.66177e-02_rb,0.55658e-02_rb,0.42591e-02_rb,0.21931e-02_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.96183e-02_rb,0.93436e-02_rb,0.90329e-02_rb,0.85198e-02_rb,0.78654e-02_rb, &\n        & 0.70507e-02_rb,0.60316e-02_rb,0.47067e-02_rb,0.25691e-02_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.95112e-02_rb,0.94166e-02_rb,0.92325e-02_rb,0.88355e-02_rb,0.82791e-02_rb, &\n        & 0.75194e-02_rb,0.65208e-02_rb,0.52003e-02_rb,0.29789e-02_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.94373e-02_rb,0.95446e-02_rb,0.94815e-02_rb,0.92092e-02_rb,0.87140e-02_rb, &\n        & 0.80091e-02_rb,0.70556e-02_rb,0.57344e-02_rb,0.34284e-02_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.93945e-02_rb,0.97041e-02_rb,0.97866e-02_rb,0.96055e-02_rb,0.91834e-02_rb, &\n        & 0.85358e-02_rb,0.76199e-02_rb,0.63067e-02_rb,0.39360e-02_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.86571e-02_rb,0.83282e-02_rb,0.79327e-02_rb,0.73862e-02_rb,0.67217e-02_rb, &\n        & 0.59210e-02_rb,0.49777e-02_rb,0.37950e-02_rb,0.25161e-02_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.85351e-02_rb,0.83629e-02_rb,0.80910e-02_rb,0.76400e-02_rb,0.70398e-02_rb, &\n        & 0.63068e-02_rb,0.53903e-02_rb,0.41966e-02_rb,0.29067e-02_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.84483e-02_rb,0.84483e-02_rb,0.82944e-02_rb,0.79338e-02_rb,0.74159e-02_rb, &\n        & 0.67272e-02_rb,0.58285e-02_rb,0.46411e-02_rb,0.33599e-02_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.83941e-02_rb,0.85821e-02_rb,0.85440e-02_rb,0.82866e-02_rb,0.78214e-02_rb, &\n        & 0.71692e-02_rb,0.63103e-02_rb,0.51290e-02_rb,0.38620e-02_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.83806e-02_rb,0.87510e-02_rb,0.88459e-02_rb,0.86620e-02_rb,0.82607e-02_rb, &\n        & 0.76554e-02_rb,0.68267e-02_rb,0.56504e-02_rb,0.44001e-02_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.75570e-02_rb,0.73902e-02_rb,0.70826e-02_rb,0.66405e-02_rb,0.60731e-02_rb, &\n        & 0.53892e-02_rb,0.45656e-02_rb,0.35050e-02_rb,0.26164e-02_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.74683e-02_rb,0.74501e-02_rb,0.72578e-02_rb,0.68886e-02_rb,0.63823e-02_rb, &\n        & 0.57485e-02_rb,0.49402e-02_rb,0.38790e-02_rb,0.30097e-02_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.74153e-02_rb,0.75630e-02_rb,0.74762e-02_rb,0.71912e-02_rb,0.67425e-02_rb, &\n        & 0.61326e-02_rb,0.53447e-02_rb,0.42990e-02_rb,0.34771e-02_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.74057e-02_rb,0.77202e-02_rb,0.77477e-02_rb,0.75330e-02_rb,0.71268e-02_rb, &\n        & 0.65549e-02_rb,0.57951e-02_rb,0.47555e-02_rb,0.39884e-02_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.74391e-02_rb,0.79220e-02_rb,0.80561e-02_rb,0.79014e-02_rb,0.75514e-02_rb, &\n        & 0.70214e-02_rb,0.62779e-02_rb,0.52483e-02_rb,0.45376e-02_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.65546e-02_rb,0.65200e-02_rb,0.62910e-02_rb,0.59243e-02_rb,0.54454e-02_rb, &\n        & 0.48623e-02_rb,0.41386e-02_rb,0.32013e-02_rb,0.25137e-02_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.64987e-02_rb,0.66047e-02_rb,0.64774e-02_rb,0.61754e-02_rb,0.57483e-02_rb, &\n        & 0.51910e-02_rb,0.44799e-02_rb,0.35500e-02_rb,0.28998e-02_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.64867e-02_rb,0.67439e-02_rb,0.67077e-02_rb,0.64758e-02_rb,0.60840e-02_rb, &\n        & 0.55472e-02_rb,0.48582e-02_rb,0.39433e-02_rb,0.33472e-02_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.65214e-02_rb,0.69269e-02_rb,0.69913e-02_rb,0.68034e-02_rb,0.64480e-02_rb, &\n        & 0.59497e-02_rb,0.52811e-02_rb,0.43712e-02_rb,0.38283e-02_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.66068e-02_rb,0.71634e-02_rb,0.73032e-02_rb,0.71670e-02_rb,0.68605e-02_rb, &\n        & 0.63896e-02_rb,0.57387e-02_rb,0.48340e-02_rb,0.43614e-02_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.56598e-02_rb,0.57241e-02_rb,0.55653e-02_rb,0.52616e-02_rb,0.48615e-02_rb, &\n        & 0.43534e-02_rb,0.37143e-02_rb,0.28975e-02_rb,0.22483e-02_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.56408e-02_rb,0.58364e-02_rb,0.57539e-02_rb,0.55120e-02_rb,0.51475e-02_rb, &\n        & 0.46559e-02_rb,0.40284e-02_rb,0.32222e-02_rb,0.26111e-02_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.56697e-02_rb,0.59982e-02_rb,0.59981e-02_rb,0.58053e-02_rb,0.54583e-02_rb, &\n        & 0.49917e-02_rb,0.43867e-02_rb,0.35862e-02_rb,0.30268e-02_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.57519e-02_rb,0.62108e-02_rb,0.62874e-02_rb,0.61219e-02_rb,0.58111e-02_rb, &\n        & 0.53715e-02_rb,0.47851e-02_rb,0.39858e-02_rb,0.34700e-02_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.58830e-02_rb,0.64813e-02_rb,0.66064e-02_rb,0.64830e-02_rb,0.62068e-02_rb, &\n        & 0.57872e-02_rb,0.52185e-02_rb,0.44205e-02_rb,0.39619e-02_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.28544e-01_rb,0.26155e-01_rb,0.24149e-01_rb,0.22667e-01_rb,0.21632e-01_rb, &\n        & 0.20279e-01_rb,0.18489e-01_rb,0.17580e-01_rb,0.19616e-01_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.28363e-01_rb,0.26242e-01_rb,0.24669e-01_rb,0.23473e-01_rb,0.22995e-01_rb, &\n        & 0.21803e-01_rb,0.19985e-01_rb,0.19915e-01_rb,0.22325e-01_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.28168e-01_rb,0.26278e-01_rb,0.25280e-01_rb,0.24624e-01_rb,0.24316e-01_rb, &\n        & 0.23197e-01_rb,0.21657e-01_rb,0.22779e-01_rb,0.25626e-01_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.27980e-01_rb,0.26431e-01_rb,0.25828e-01_rb,0.25920e-01_rb,0.25669e-01_rb, &\n        & 0.24755e-01_rb,0.23686e-01_rb,0.25934e-01_rb,0.29281e-01_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.27732e-01_rb,0.26646e-01_rb,0.26660e-01_rb,0.27009e-01_rb,0.27233e-01_rb, &\n        & 0.26525e-01_rb,0.25997e-01_rb,0.29201e-01_rb,0.33040e-01_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.30271e-01_rb,0.27672e-01_rb,0.25272e-01_rb,0.23430e-01_rb,0.22043e-01_rb, &\n        & 0.20727e-01_rb,0.19083e-01_rb,0.16913e-01_rb,0.18728e-01_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.30091e-01_rb,0.27720e-01_rb,0.25820e-01_rb,0.24222e-01_rb,0.23409e-01_rb, &\n        & 0.22468e-01_rb,0.20609e-01_rb,0.19148e-01_rb,0.21375e-01_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.29914e-01_rb,0.27750e-01_rb,0.26375e-01_rb,0.25267e-01_rb,0.24987e-01_rb, &\n        & 0.23926e-01_rb,0.22306e-01_rb,0.21932e-01_rb,0.24591e-01_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.29701e-01_rb,0.27873e-01_rb,0.26877e-01_rb,0.26535e-01_rb,0.26327e-01_rb, &\n        & 0.25568e-01_rb,0.24303e-01_rb,0.24920e-01_rb,0.28049e-01_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.29422e-01_rb,0.28052e-01_rb,0.27653e-01_rb,0.27818e-01_rb,0.27831e-01_rb, &\n        & 0.27375e-01_rb,0.26338e-01_rb,0.28129e-01_rb,0.31777e-01_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.32089e-01_rb,0.29221e-01_rb,0.26504e-01_rb,0.24372e-01_rb,0.22322e-01_rb, &\n        & 0.20541e-01_rb,0.19063e-01_rb,0.16413e-01_rb,0.17368e-01_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.31950e-01_rb,0.29299e-01_rb,0.26979e-01_rb,0.25078e-01_rb,0.23422e-01_rb, &\n        & 0.22454e-01_rb,0.20735e-01_rb,0.18244e-01_rb,0.19956e-01_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.31786e-01_rb,0.29316e-01_rb,0.27496e-01_rb,0.25889e-01_rb,0.24965e-01_rb, &\n        & 0.24089e-01_rb,0.22376e-01_rb,0.20693e-01_rb,0.22993e-01_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.31564e-01_rb,0.29393e-01_rb,0.27942e-01_rb,0.27000e-01_rb,0.26402e-01_rb, &\n        & 0.25715e-01_rb,0.24406e-01_rb,0.23371e-01_rb,0.26093e-01_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.31295e-01_rb,0.29526e-01_rb,0.28627e-01_rb,0.28150e-01_rb,0.27951e-01_rb, &\n        & 0.27569e-01_rb,0.26423e-01_rb,0.26332e-01_rb,0.29505e-01_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.33998e-01_rb,0.30694e-01_rb,0.27710e-01_rb,0.25291e-01_rb,0.22809e-01_rb, &\n        & 0.20329e-01_rb,0.18660e-01_rb,0.16131e-01_rb,0.15800e-01_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.33852e-01_rb,0.30861e-01_rb,0.28097e-01_rb,0.25930e-01_rb,0.23654e-01_rb, &\n        & 0.22029e-01_rb,0.20474e-01_rb,0.17896e-01_rb,0.18339e-01_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.33685e-01_rb,0.30889e-01_rb,0.28668e-01_rb,0.26585e-01_rb,0.25018e-01_rb, &\n        & 0.23681e-01_rb,0.22215e-01_rb,0.19897e-01_rb,0.21224e-01_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.33431e-01_rb,0.30933e-01_rb,0.29107e-01_rb,0.27570e-01_rb,0.26341e-01_rb, &\n        & 0.25360e-01_rb,0.24234e-01_rb,0.22138e-01_rb,0.24217e-01_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.33153e-01_rb,0.31115e-01_rb,0.29708e-01_rb,0.28626e-01_rb,0.27757e-01_rb, &\n        & 0.27318e-01_rb,0.26191e-01_rb,0.24666e-01_rb,0.27426e-01_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.35630e-01_rb,0.31962e-01_rb,0.28969e-01_rb,0.26191e-01_rb,0.23359e-01_rb, &\n        & 0.20419e-01_rb,0.18025e-01_rb,0.15529e-01_rb,0.14046e-01_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.35465e-01_rb,0.32227e-01_rb,0.29248e-01_rb,0.26845e-01_rb,0.24076e-01_rb, &\n        & 0.21854e-01_rb,0.19842e-01_rb,0.17371e-01_rb,0.16514e-01_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.35239e-01_rb,0.32283e-01_rb,0.29869e-01_rb,0.27436e-01_rb,0.25256e-01_rb, &\n        & 0.23352e-01_rb,0.21638e-01_rb,0.19381e-01_rb,0.19322e-01_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.34959e-01_rb,0.32275e-01_rb,0.30321e-01_rb,0.28325e-01_rb,0.26494e-01_rb, &\n        & 0.24825e-01_rb,0.23722e-01_rb,0.21526e-01_rb,0.22221e-01_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.34633e-01_rb,0.32463e-01_rb,0.30867e-01_rb,0.29345e-01_rb,0.27730e-01_rb, &\n        & 0.26661e-01_rb,0.25760e-01_rb,0.23698e-01_rb,0.25325e-01_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.36611e-01_rb,0.32766e-01_rb,0.29862e-01_rb,0.26964e-01_rb,0.23985e-01_rb, &\n        & 0.20572e-01_rb,0.17499e-01_rb,0.14612e-01_rb,0.12200e-01_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.36404e-01_rb,0.32931e-01_rb,0.30135e-01_rb,0.27680e-01_rb,0.24618e-01_rb, &\n        & 0.21792e-01_rb,0.19087e-01_rb,0.16488e-01_rb,0.14408e-01_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.36151e-01_rb,0.33151e-01_rb,0.30783e-01_rb,0.28229e-01_rb,0.25608e-01_rb, &\n        & 0.23215e-01_rb,0.20762e-01_rb,0.18415e-01_rb,0.17025e-01_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.35835e-01_rb,0.33169e-01_rb,0.31261e-01_rb,0.29020e-01_rb,0.26813e-01_rb, &\n        & 0.24559e-01_rb,0.22662e-01_rb,0.20622e-01_rb,0.19846e-01_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.35491e-01_rb,0.33330e-01_rb,0.31756e-01_rb,0.30047e-01_rb,0.27916e-01_rb, &\n        & 0.26189e-01_rb,0.24713e-01_rb,0.22859e-01_rb,0.22839e-01_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.36793e-01_rb,0.32943e-01_rb,0.30074e-01_rb,0.27299e-01_rb,0.24319e-01_rb, &\n        & 0.20802e-01_rb,0.17113e-01_rb,0.13465e-01_rb,0.10508e-01_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.36572e-01_rb,0.33074e-01_rb,0.30511e-01_rb,0.28032e-01_rb,0.24986e-01_rb, &\n        & 0.21844e-01_rb,0.18570e-01_rb,0.15283e-01_rb,0.12467e-01_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.36275e-01_rb,0.33234e-01_rb,0.31161e-01_rb,0.28602e-01_rb,0.25904e-01_rb, &\n        & 0.23164e-01_rb,0.20091e-01_rb,0.17151e-01_rb,0.14775e-01_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.35925e-01_rb,0.33332e-01_rb,0.31658e-01_rb,0.29367e-01_rb,0.27125e-01_rb, &\n        & 0.24431e-01_rb,0.21734e-01_rb,0.19261e-01_rb,0.17350e-01_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.35558e-01_rb,0.33506e-01_rb,0.32097e-01_rb,0.30412e-01_rb,0.28219e-01_rb, &\n        & 0.25923e-01_rb,0.23598e-01_rb,0.21456e-01_rb,0.20114e-01_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.36293e-01_rb,0.32550e-01_rb,0.29721e-01_rb,0.27154e-01_rb,0.24076e-01_rb, &\n        & 0.20693e-01_rb,0.16829e-01_rb,0.12555e-01_rb,0.89579e-02_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.35985e-01_rb,0.32624e-01_rb,0.30270e-01_rb,0.27879e-01_rb,0.24830e-01_rb, &\n        & 0.21669e-01_rb,0.18126e-01_rb,0.14126e-01_rb,0.10649e-01_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.35646e-01_rb,0.32730e-01_rb,0.30946e-01_rb,0.28474e-01_rb,0.25750e-01_rb, &\n        & 0.23017e-01_rb,0.19564e-01_rb,0.15741e-01_rb,0.12721e-01_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.35279e-01_rb,0.32754e-01_rb,0.31424e-01_rb,0.29187e-01_rb,0.27070e-01_rb, &\n        & 0.24316e-01_rb,0.21018e-01_rb,0.17682e-01_rb,0.15011e-01_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.34858e-01_rb,0.32947e-01_rb,0.31835e-01_rb,0.30265e-01_rb,0.28236e-01_rb, &\n        & 0.25710e-01_rb,0.22721e-01_rb,0.19777e-01_rb,0.17474e-01_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.35060e-01_rb,0.31556e-01_rb,0.29012e-01_rb,0.26469e-01_rb,0.23391e-01_rb, &\n        & 0.20141e-01_rb,0.16295e-01_rb,0.11885e-01_rb,0.58937e-02_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.34721e-01_rb,0.31589e-01_rb,0.29506e-01_rb,0.27211e-01_rb,0.24267e-01_rb, &\n        & 0.21055e-01_rb,0.17547e-01_rb,0.13263e-01_rb,0.69908e-02_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.34339e-01_rb,0.31609e-01_rb,0.30075e-01_rb,0.27841e-01_rb,0.25163e-01_rb, &\n        & 0.22398e-01_rb,0.18997e-01_rb,0.14640e-01_rb,0.92447e-02_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.33936e-01_rb,0.31619e-01_rb,0.30603e-01_rb,0.28503e-01_rb,0.26490e-01_rb, &\n        & 0.23804e-01_rb,0.20342e-01_rb,0.16280e-01_rb,0.11993e-01_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.33530e-01_rb,0.31821e-01_rb,0.30991e-01_rb,0.29578e-01_rb,0.27714e-01_rb, &\n        & 0.25218e-01_rb,0.21886e-01_rb,0.18137e-01_rb,0.14941e-01_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.33129e-01_rb,0.29964e-01_rb,0.27856e-01_rb,0.25331e-01_rb,0.22401e-01_rb, &\n        & 0.19295e-01_rb,0.15555e-01_rb,0.11348e-01_rb,0.74286e-02_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.32749e-01_rb,0.29950e-01_rb,0.28249e-01_rb,0.25998e-01_rb,0.23402e-01_rb, &\n        & 0.20209e-01_rb,0.16757e-01_rb,0.12616e-01_rb,0.86653e-02_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.32344e-01_rb,0.29933e-01_rb,0.28722e-01_rb,0.26736e-01_rb,0.24275e-01_rb, &\n        & 0.21508e-01_rb,0.18229e-01_rb,0.13852e-01_rb,0.98082e-02_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.31944e-01_rb,0.30002e-01_rb,0.29235e-01_rb,0.27435e-01_rb,0.25548e-01_rb, &\n        & 0.22964e-01_rb,0.19579e-01_rb,0.15278e-01_rb,0.11352e-01_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.31533e-01_rb,0.30276e-01_rb,0.29685e-01_rb,0.28539e-01_rb,0.26795e-01_rb, &\n        & 0.24358e-01_rb,0.21106e-01_rb,0.16900e-01_rb,0.12858e-01_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.30476e-01_rb,0.27848e-01_rb,0.26383e-01_rb,0.23991e-01_rb,0.21505e-01_rb, &\n        & 0.18546e-01_rb,0.15127e-01_rb,0.11242e-01_rb,0.84064e-02_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.30069e-01_rb,0.27873e-01_rb,0.26695e-01_rb,0.24743e-01_rb,0.22441e-01_rb, &\n        & 0.19591e-01_rb,0.16445e-01_rb,0.12465e-01_rb,0.99520e-02_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.29683e-01_rb,0.27938e-01_rb,0.27199e-01_rb,0.25464e-01_rb,0.23474e-01_rb, &\n        & 0.21008e-01_rb,0.17841e-01_rb,0.13636e-01_rb,0.11012e-01_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.29281e-01_rb,0.28147e-01_rb,0.27612e-01_rb,0.26457e-01_rb,0.24810e-01_rb, &\n        & 0.22367e-01_rb,0.19198e-01_rb,0.15026e-01_rb,0.12764e-01_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.28878e-01_rb,0.28450e-01_rb,0.28275e-01_rb,0.27607e-01_rb,0.26039e-01_rb, &\n        & 0.23769e-01_rb,0.20798e-01_rb,0.16479e-01_rb,0.14486e-01_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.27483e-01_rb,0.25515e-01_rb,0.24398e-01_rb,0.22423e-01_rb,0.20204e-01_rb, &\n        & 0.17532e-01_rb,0.14597e-01_rb,0.10977e-01_rb,0.89256e-02_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.27095e-01_rb,0.25634e-01_rb,0.24782e-01_rb,0.23175e-01_rb,0.21102e-01_rb, &\n        & 0.18740e-01_rb,0.15902e-01_rb,0.12114e-01_rb,0.10252e-01_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.26727e-01_rb,0.25761e-01_rb,0.25266e-01_rb,0.23974e-01_rb,0.22361e-01_rb, &\n        & 0.20171e-01_rb,0.17193e-01_rb,0.13275e-01_rb,0.11451e-01_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.26341e-01_rb,0.26039e-01_rb,0.25768e-01_rb,0.25146e-01_rb,0.23693e-01_rb, &\n        & 0.21452e-01_rb,0.18566e-01_rb,0.14626e-01_rb,0.13159e-01_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.25958e-01_rb,0.26232e-01_rb,0.26607e-01_rb,0.26277e-01_rb,0.24926e-01_rb, &\n        & 0.22906e-01_rb,0.20118e-01_rb,0.16018e-01_rb,0.14784e-01_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.24404e-01_rb,0.23195e-01_rb,0.22191e-01_rb,0.20664e-01_rb,0.18645e-01_rb, &\n        & 0.16397e-01_rb,0.13889e-01_rb,0.10532e-01_rb,0.85762e-02_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.24045e-01_rb,0.23274e-01_rb,0.22704e-01_rb,0.21382e-01_rb,0.19651e-01_rb, &\n        & 0.17693e-01_rb,0.15133e-01_rb,0.11576e-01_rb,0.96068e-02_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.23688e-01_rb,0.23458e-01_rb,0.23185e-01_rb,0.22281e-01_rb,0.21010e-01_rb, &\n        & 0.19021e-01_rb,0.16312e-01_rb,0.12755e-01_rb,0.10813e-01_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.23340e-01_rb,0.23719e-01_rb,0.23835e-01_rb,0.23529e-01_rb,0.22269e-01_rb, &\n        & 0.20297e-01_rb,0.17677e-01_rb,0.14063e-01_rb,0.12469e-01_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.23007e-01_rb,0.23887e-01_rb,0.24745e-01_rb,0.24636e-01_rb,0.23538e-01_rb, &\n        & 0.21795e-01_rb,0.19163e-01_rb,0.15452e-01_rb,0.13866e-01_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.38207e-01_rb,0.35023e-01_rb,0.31764e-01_rb,0.29513e-01_rb,0.27148e-01_rb, &\n        & 0.25121e-01_rb,0.22678e-01_rb,0.23928e-01_rb,0.26899e-01_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.37930e-01_rb,0.35272e-01_rb,0.32250e-01_rb,0.30760e-01_rb,0.28557e-01_rb, &\n        & 0.27105e-01_rb,0.25089e-01_rb,0.27604e-01_rb,0.31070e-01_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.37611e-01_rb,0.35491e-01_rb,0.32949e-01_rb,0.31869e-01_rb,0.30632e-01_rb, &\n        & 0.29068e-01_rb,0.27897e-01_rb,0.31369e-01_rb,0.35419e-01_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.37244e-01_rb,0.35566e-01_rb,0.33874e-01_rb,0.33253e-01_rb,0.32466e-01_rb, &\n        & 0.31095e-01_rb,0.31358e-01_rb,0.35716e-01_rb,0.40368e-01_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.36895e-01_rb,0.35750e-01_rb,0.34817e-01_rb,0.35038e-01_rb,0.34265e-01_rb, &\n        & 0.33428e-01_rb,0.35709e-01_rb,0.40899e-01_rb,0.46337e-01_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.39640e-01_rb,0.36208e-01_rb,0.33140e-01_rb,0.30731e-01_rb,0.28621e-01_rb, &\n        & 0.26451e-01_rb,0.23824e-01_rb,0.23418e-01_rb,0.26401e-01_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.39384e-01_rb,0.36543e-01_rb,0.33542e-01_rb,0.32043e-01_rb,0.30032e-01_rb, &\n        & 0.28484e-01_rb,0.26191e-01_rb,0.27027e-01_rb,0.30540e-01_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.39069e-01_rb,0.36650e-01_rb,0.34340e-01_rb,0.33119e-01_rb,0.32037e-01_rb, &\n        & 0.30787e-01_rb,0.28410e-01_rb,0.30659e-01_rb,0.34733e-01_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.38756e-01_rb,0.36738e-01_rb,0.35220e-01_rb,0.34547e-01_rb,0.34264e-01_rb, &\n        & 0.32872e-01_rb,0.31204e-01_rb,0.34827e-01_rb,0.39529e-01_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.38432e-01_rb,0.36958e-01_rb,0.36077e-01_rb,0.36343e-01_rb,0.36389e-01_rb, &\n        & 0.35222e-01_rb,0.34916e-01_rb,0.39622e-01_rb,0.45018e-01_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.41762e-01_rb,0.37801e-01_rb,0.34598e-01_rb,0.31385e-01_rb,0.29542e-01_rb, &\n        & 0.27120e-01_rb,0.24296e-01_rb,0.22163e-01_rb,0.24873e-01_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.41521e-01_rb,0.38107e-01_rb,0.34885e-01_rb,0.32740e-01_rb,0.30892e-01_rb, &\n        & 0.28927e-01_rb,0.26874e-01_rb,0.25608e-01_rb,0.28828e-01_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.41284e-01_rb,0.38250e-01_rb,0.35590e-01_rb,0.33929e-01_rb,0.32637e-01_rb, &\n        & 0.31412e-01_rb,0.29268e-01_rb,0.29038e-01_rb,0.32851e-01_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.40996e-01_rb,0.38286e-01_rb,0.36402e-01_rb,0.35356e-01_rb,0.34868e-01_rb, &\n        & 0.33799e-01_rb,0.31619e-01_rb,0.33158e-01_rb,0.37659e-01_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.40710e-01_rb,0.38497e-01_rb,0.37108e-01_rb,0.37161e-01_rb,0.37098e-01_rb, &\n        & 0.36226e-01_rb,0.34568e-01_rb,0.37733e-01_rb,0.42953e-01_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.44432e-01_rb,0.39911e-01_rb,0.36533e-01_rb,0.32358e-01_rb,0.30116e-01_rb, &\n        & 0.27425e-01_rb,0.24391e-01_rb,0.21003e-01_rb,0.22873e-01_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.44241e-01_rb,0.40248e-01_rb,0.36750e-01_rb,0.33734e-01_rb,0.31371e-01_rb, &\n        & 0.29050e-01_rb,0.26929e-01_rb,0.23993e-01_rb,0.26696e-01_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.43986e-01_rb,0.40474e-01_rb,0.37358e-01_rb,0.34847e-01_rb,0.32894e-01_rb, &\n        & 0.31475e-01_rb,0.29486e-01_rb,0.27256e-01_rb,0.30632e-01_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.43750e-01_rb,0.40487e-01_rb,0.38107e-01_rb,0.36115e-01_rb,0.35063e-01_rb, &\n        & 0.33924e-01_rb,0.31967e-01_rb,0.31144e-01_rb,0.35198e-01_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.43427e-01_rb,0.40610e-01_rb,0.38702e-01_rb,0.37867e-01_rb,0.37251e-01_rb, &\n        & 0.36357e-01_rb,0.34995e-01_rb,0.35502e-01_rb,0.40197e-01_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.47176e-01_rb,0.42142e-01_rb,0.38550e-01_rb,0.33884e-01_rb,0.30889e-01_rb, &\n        & 0.27516e-01_rb,0.24267e-01_rb,0.20680e-01_rb,0.20851e-01_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.47021e-01_rb,0.42363e-01_rb,0.38770e-01_rb,0.35164e-01_rb,0.32104e-01_rb, &\n        & 0.29005e-01_rb,0.26645e-01_rb,0.23247e-01_rb,0.24505e-01_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.46797e-01_rb,0.42763e-01_rb,0.39235e-01_rb,0.36269e-01_rb,0.33395e-01_rb, &\n        & 0.31307e-01_rb,0.29249e-01_rb,0.25924e-01_rb,0.28324e-01_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.46572e-01_rb,0.42912e-01_rb,0.40018e-01_rb,0.37361e-01_rb,0.35308e-01_rb, &\n        & 0.33789e-01_rb,0.31702e-01_rb,0.29304e-01_rb,0.32735e-01_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.46255e-01_rb,0.42923e-01_rb,0.40617e-01_rb,0.38829e-01_rb,0.37399e-01_rb, &\n        & 0.36167e-01_rb,0.34686e-01_rb,0.33312e-01_rb,0.37380e-01_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.49975e-01_rb,0.44361e-01_rb,0.40341e-01_rb,0.35539e-01_rb,0.31829e-01_rb, &\n        & 0.27816e-01_rb,0.23845e-01_rb,0.20093e-01_rb,0.18543e-01_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.49828e-01_rb,0.44558e-01_rb,0.40763e-01_rb,0.36628e-01_rb,0.33050e-01_rb, &\n        & 0.29095e-01_rb,0.26117e-01_rb,0.22673e-01_rb,0.22099e-01_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.49608e-01_rb,0.44841e-01_rb,0.41085e-01_rb,0.37793e-01_rb,0.34135e-01_rb, &\n        & 0.31097e-01_rb,0.28755e-01_rb,0.25283e-01_rb,0.25831e-01_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.49365e-01_rb,0.45144e-01_rb,0.41922e-01_rb,0.38723e-01_rb,0.35845e-01_rb, &\n        & 0.33431e-01_rb,0.31237e-01_rb,0.28118e-01_rb,0.29954e-01_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.49026e-01_rb,0.45249e-01_rb,0.42535e-01_rb,0.39993e-01_rb,0.37821e-01_rb, &\n        & 0.35671e-01_rb,0.34099e-01_rb,0.31399e-01_rb,0.34366e-01_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.52410e-01_rb,0.46362e-01_rb,0.41901e-01_rb,0.37210e-01_rb,0.32800e-01_rb, &\n        & 0.28263e-01_rb,0.23499e-01_rb,0.19230e-01_rb,0.16237e-01_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.52214e-01_rb,0.46505e-01_rb,0.42451e-01_rb,0.38113e-01_rb,0.34021e-01_rb, &\n        & 0.29480e-01_rb,0.25464e-01_rb,0.21812e-01_rb,0.19595e-01_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.51982e-01_rb,0.46700e-01_rb,0.42867e-01_rb,0.39292e-01_rb,0.35048e-01_rb, &\n        & 0.31222e-01_rb,0.27987e-01_rb,0.24489e-01_rb,0.23138e-01_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.51660e-01_rb,0.46904e-01_rb,0.43697e-01_rb,0.40172e-01_rb,0.36555e-01_rb, &\n        & 0.33390e-01_rb,0.30506e-01_rb,0.27287e-01_rb,0.27036e-01_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.51284e-01_rb,0.47053e-01_rb,0.44408e-01_rb,0.41338e-01_rb,0.38429e-01_rb, &\n        & 0.35446e-01_rb,0.33297e-01_rb,0.30383e-01_rb,0.31263e-01_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.53849e-01_rb,0.47597e-01_rb,0.43012e-01_rb,0.38373e-01_rb,0.33860e-01_rb, &\n        & 0.28679e-01_rb,0.23391e-01_rb,0.18151e-01_rb,0.14106e-01_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.53641e-01_rb,0.47671e-01_rb,0.43475e-01_rb,0.39445e-01_rb,0.35042e-01_rb, &\n        & 0.29924e-01_rb,0.25055e-01_rb,0.20655e-01_rb,0.17171e-01_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.53375e-01_rb,0.47826e-01_rb,0.44020e-01_rb,0.40653e-01_rb,0.36059e-01_rb, &\n        & 0.31447e-01_rb,0.27345e-01_rb,0.23357e-01_rb,0.20383e-01_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.53001e-01_rb,0.48011e-01_rb,0.44999e-01_rb,0.41558e-01_rb,0.37354e-01_rb, &\n        & 0.33601e-01_rb,0.29695e-01_rb,0.26106e-01_rb,0.24004e-01_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.52592e-01_rb,0.48152e-01_rb,0.45845e-01_rb,0.42585e-01_rb,0.39198e-01_rb, &\n        & 0.35588e-01_rb,0.32287e-01_rb,0.29155e-01_rb,0.27991e-01_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.54223e-01_rb,0.47973e-01_rb,0.43289e-01_rb,0.38882e-01_rb,0.34299e-01_rb, &\n        & 0.28946e-01_rb,0.23303e-01_rb,0.17068e-01_rb,0.11192e-01_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.53940e-01_rb,0.47929e-01_rb,0.43759e-01_rb,0.39916e-01_rb,0.35622e-01_rb, &\n        & 0.30345e-01_rb,0.24752e-01_rb,0.19298e-01_rb,0.14778e-01_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.53642e-01_rb,0.48095e-01_rb,0.44399e-01_rb,0.41241e-01_rb,0.36768e-01_rb, &\n        & 0.31745e-01_rb,0.26845e-01_rb,0.21914e-01_rb,0.17754e-01_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.53257e-01_rb,0.48243e-01_rb,0.45322e-01_rb,0.42327e-01_rb,0.37988e-01_rb, &\n        & 0.33799e-01_rb,0.29109e-01_rb,0.24533e-01_rb,0.21056e-01_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.52778e-01_rb,0.48340e-01_rb,0.46365e-01_rb,0.43326e-01_rb,0.39837e-01_rb, &\n        & 0.35758e-01_rb,0.31465e-01_rb,0.27467e-01_rb,0.24721e-01_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.53564e-01_rb,0.47520e-01_rb,0.42897e-01_rb,0.38870e-01_rb,0.34096e-01_rb, &\n        & 0.28762e-01_rb,0.23161e-01_rb,0.16420e-01_rb,0.10403e-01_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.53200e-01_rb,0.47370e-01_rb,0.43390e-01_rb,0.39812e-01_rb,0.35374e-01_rb, &\n        & 0.30449e-01_rb,0.24605e-01_rb,0.18329e-01_rb,0.12727e-01_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.52804e-01_rb,0.47486e-01_rb,0.44077e-01_rb,0.41029e-01_rb,0.36828e-01_rb, &\n        & 0.31909e-01_rb,0.26518e-01_rb,0.20700e-01_rb,0.14792e-01_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.52379e-01_rb,0.47585e-01_rb,0.44997e-01_rb,0.42270e-01_rb,0.38168e-01_rb, &\n        & 0.33930e-01_rb,0.28762e-01_rb,0.23052e-01_rb,0.16495e-01_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.51859e-01_rb,0.47629e-01_rb,0.45989e-01_rb,0.43387e-01_rb,0.40080e-01_rb, &\n        & 0.36007e-01_rb,0.30957e-01_rb,0.25773e-01_rb,0.18898e-01_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.51622e-01_rb,0.46074e-01_rb,0.42057e-01_rb,0.38618e-01_rb,0.33808e-01_rb, &\n        & 0.28847e-01_rb,0.23288e-01_rb,0.16620e-01_rb,0.11907e-01_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.51193e-01_rb,0.45980e-01_rb,0.42719e-01_rb,0.39541e-01_rb,0.35253e-01_rb, &\n        & 0.30566e-01_rb,0.24931e-01_rb,0.18565e-01_rb,0.13988e-01_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.50740e-01_rb,0.46089e-01_rb,0.43457e-01_rb,0.40804e-01_rb,0.36736e-01_rb, &\n        & 0.32310e-01_rb,0.27095e-01_rb,0.20684e-01_rb,0.16681e-01_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.50228e-01_rb,0.46105e-01_rb,0.44454e-01_rb,0.41838e-01_rb,0.38478e-01_rb, &\n        & 0.34580e-01_rb,0.29293e-01_rb,0.22846e-01_rb,0.18301e-01_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.49697e-01_rb,0.46259e-01_rb,0.45191e-01_rb,0.43198e-01_rb,0.40635e-01_rb, &\n        & 0.36709e-01_rb,0.31434e-01_rb,0.25478e-01_rb,0.20947e-01_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.48647e-01_rb,0.43752e-01_rb,0.40707e-01_rb,0.37500e-01_rb,0.33089e-01_rb, &\n        & 0.28489e-01_rb,0.23000e-01_rb,0.16785e-01_rb,0.12627e-01_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.48181e-01_rb,0.43711e-01_rb,0.41312e-01_rb,0.38500e-01_rb,0.34693e-01_rb, &\n        & 0.30128e-01_rb,0.24939e-01_rb,0.18673e-01_rb,0.15167e-01_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.47678e-01_rb,0.43812e-01_rb,0.42104e-01_rb,0.39699e-01_rb,0.36175e-01_rb, &\n        & 0.32199e-01_rb,0.27269e-01_rb,0.20637e-01_rb,0.17826e-01_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.47181e-01_rb,0.43914e-01_rb,0.43002e-01_rb,0.40767e-01_rb,0.38218e-01_rb, &\n        & 0.34662e-01_rb,0.29455e-01_rb,0.22728e-01_rb,0.19785e-01_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.46685e-01_rb,0.44343e-01_rb,0.43686e-01_rb,0.42426e-01_rb,0.40422e-01_rb, &\n        & 0.36842e-01_rb,0.31692e-01_rb,0.25217e-01_rb,0.22679e-01_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.44854e-01_rb,0.40724e-01_rb,0.38672e-01_rb,0.35614e-01_rb,0.31949e-01_rb, &\n        & 0.27602e-01_rb,0.22498e-01_rb,0.16720e-01_rb,0.12798e-01_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.44381e-01_rb,0.40833e-01_rb,0.39190e-01_rb,0.36792e-01_rb,0.33534e-01_rb, &\n        & 0.29330e-01_rb,0.24604e-01_rb,0.18629e-01_rb,0.15661e-01_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.43916e-01_rb,0.40995e-01_rb,0.40051e-01_rb,0.37975e-01_rb,0.35149e-01_rb, &\n        & 0.31642e-01_rb,0.27046e-01_rb,0.20453e-01_rb,0.17792e-01_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.43441e-01_rb,0.41288e-01_rb,0.40871e-01_rb,0.39278e-01_rb,0.37365e-01_rb, &\n        & 0.34126e-01_rb,0.29213e-01_rb,0.22513e-01_rb,0.19591e-01_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.42963e-01_rb,0.41916e-01_rb,0.41758e-01_rb,0.41144e-01_rb,0.39580e-01_rb, &\n        & 0.36327e-01_rb,0.31558e-01_rb,0.24885e-01_rb,0.22715e-01_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.52315e-01_rb,0.47505e-01_rb,0.42884e-01_rb,0.38287e-01_rb,0.34721e-01_rb, &\n        & 0.30888e-01_rb,0.29687e-01_rb,0.33559e-01_rb,0.37791e-01_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.52132e-01_rb,0.47869e-01_rb,0.43358e-01_rb,0.39519e-01_rb,0.36490e-01_rb, &\n        & 0.33059e-01_rb,0.34560e-01_rb,0.39434e-01_rb,0.44537e-01_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.51859e-01_rb,0.48259e-01_rb,0.44108e-01_rb,0.41053e-01_rb,0.38159e-01_rb, &\n        & 0.36325e-01_rb,0.40345e-01_rb,0.46345e-01_rb,0.52382e-01_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.51556e-01_rb,0.48650e-01_rb,0.44992e-01_rb,0.42544e-01_rb,0.40704e-01_rb, &\n        & 0.40160e-01_rb,0.46427e-01_rb,0.53431e-01_rb,0.60544e-01_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.51137e-01_rb,0.48860e-01_rb,0.46168e-01_rb,0.44111e-01_rb,0.43209e-01_rb, &\n        & 0.44827e-01_rb,0.52800e-01_rb,0.60972e-01_rb,0.69216e-01_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.56434e-01_rb,0.51118e-01_rb,0.46217e-01_rb,0.41561e-01_rb,0.37505e-01_rb, &\n        & 0.33646e-01_rb,0.30189e-01_rb,0.33085e-01_rb,0.37424e-01_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.56174e-01_rb,0.51590e-01_rb,0.46758e-01_rb,0.42838e-01_rb,0.39459e-01_rb, &\n        & 0.35755e-01_rb,0.34261e-01_rb,0.38732e-01_rb,0.43938e-01_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.55870e-01_rb,0.52113e-01_rb,0.47459e-01_rb,0.44557e-01_rb,0.41223e-01_rb, &\n        & 0.38732e-01_rb,0.39807e-01_rb,0.45508e-01_rb,0.51693e-01_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.55457e-01_rb,0.52524e-01_rb,0.48507e-01_rb,0.46112e-01_rb,0.43732e-01_rb, &\n        & 0.42045e-01_rb,0.45811e-01_rb,0.52732e-01_rb,0.60004e-01_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.54996e-01_rb,0.52680e-01_rb,0.49849e-01_rb,0.47721e-01_rb,0.46514e-01_rb, &\n        & 0.45961e-01_rb,0.52270e-01_rb,0.60294e-01_rb,0.68714e-01_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.59831e-01_rb,0.53764e-01_rb,0.48883e-01_rb,0.44361e-01_rb,0.39553e-01_rb, &\n        & 0.35958e-01_rb,0.31293e-01_rb,0.31467e-01_rb,0.35795e-01_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.59532e-01_rb,0.54423e-01_rb,0.49485e-01_rb,0.45554e-01_rb,0.41889e-01_rb, &\n        & 0.38044e-01_rb,0.34149e-01_rb,0.36846e-01_rb,0.42078e-01_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.59134e-01_rb,0.55152e-01_rb,0.50116e-01_rb,0.47410e-01_rb,0.43907e-01_rb, &\n        & 0.40732e-01_rb,0.38444e-01_rb,0.43145e-01_rb,0.49218e-01_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.58672e-01_rb,0.55655e-01_rb,0.51271e-01_rb,0.49059e-01_rb,0.46360e-01_rb, &\n        & 0.44063e-01_rb,0.43633e-01_rb,0.49781e-01_rb,0.56746e-01_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.58134e-01_rb,0.55813e-01_rb,0.52716e-01_rb,0.50709e-01_rb,0.49278e-01_rb, &\n        & 0.47427e-01_rb,0.49630e-01_rb,0.57031e-01_rb,0.65034e-01_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.62624e-01_rb,0.55864e-01_rb,0.50884e-01_rb,0.46641e-01_rb,0.41202e-01_rb, &\n        & 0.37808e-01_rb,0.32728e-01_rb,0.29634e-01_rb,0.33571e-01_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.62339e-01_rb,0.56365e-01_rb,0.51618e-01_rb,0.47600e-01_rb,0.43888e-01_rb, &\n        & 0.40000e-01_rb,0.35145e-01_rb,0.34591e-01_rb,0.39469e-01_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.61969e-01_rb,0.57107e-01_rb,0.52103e-01_rb,0.49599e-01_rb,0.46112e-01_rb, &\n        & 0.42482e-01_rb,0.38680e-01_rb,0.40578e-01_rb,0.46387e-01_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.61515e-01_rb,0.57939e-01_rb,0.53160e-01_rb,0.51347e-01_rb,0.48544e-01_rb, &\n        & 0.45843e-01_rb,0.42689e-01_rb,0.46767e-01_rb,0.53378e-01_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.60986e-01_rb,0.58238e-01_rb,0.54658e-01_rb,0.53027e-01_rb,0.51696e-01_rb, &\n        & 0.49388e-01_rb,0.47217e-01_rb,0.53278e-01_rb,0.60785e-01_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.65795e-01_rb,0.58347e-01_rb,0.52585e-01_rb,0.48437e-01_rb,0.42714e-01_rb, &\n        & 0.39265e-01_rb,0.34039e-01_rb,0.28235e-01_rb,0.31421e-01_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.65486e-01_rb,0.58633e-01_rb,0.53696e-01_rb,0.49213e-01_rb,0.45420e-01_rb, &\n        & 0.41668e-01_rb,0.36378e-01_rb,0.32647e-01_rb,0.37055e-01_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.65183e-01_rb,0.59134e-01_rb,0.54134e-01_rb,0.51097e-01_rb,0.47829e-01_rb, &\n        & 0.44052e-01_rb,0.39727e-01_rb,0.38129e-01_rb,0.43417e-01_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.64717e-01_rb,0.59894e-01_rb,0.54954e-01_rb,0.53041e-01_rb,0.50294e-01_rb, &\n        & 0.47344e-01_rb,0.43654e-01_rb,0.43889e-01_rb,0.49916e-01_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.64255e-01_rb,0.60489e-01_rb,0.56373e-01_rb,0.54824e-01_rb,0.53472e-01_rb, &\n        & 0.51112e-01_rb,0.47282e-01_rb,0.50031e-01_rb,0.57102e-01_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.69615e-01_rb,0.61594e-01_rb,0.54882e-01_rb,0.50187e-01_rb,0.44074e-01_rb, &\n        & 0.39997e-01_rb,0.34871e-01_rb,0.27743e-01_rb,0.29013e-01_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.69442e-01_rb,0.61757e-01_rb,0.55910e-01_rb,0.50997e-01_rb,0.46497e-01_rb, &\n        & 0.42613e-01_rb,0.37188e-01_rb,0.31216e-01_rb,0.34347e-01_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.69156e-01_rb,0.62106e-01_rb,0.56750e-01_rb,0.52515e-01_rb,0.49101e-01_rb, &\n        & 0.44986e-01_rb,0.40395e-01_rb,0.35961e-01_rb,0.40369e-01_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.68816e-01_rb,0.62627e-01_rb,0.57231e-01_rb,0.54601e-01_rb,0.51362e-01_rb, &\n        & 0.48280e-01_rb,0.44442e-01_rb,0.41156e-01_rb,0.46554e-01_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.68355e-01_rb,0.63113e-01_rb,0.58516e-01_rb,0.56347e-01_rb,0.54360e-01_rb, &\n        & 0.52199e-01_rb,0.48222e-01_rb,0.46871e-01_rb,0.53241e-01_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.74032e-01_rb,0.65393e-01_rb,0.58013e-01_rb,0.51965e-01_rb,0.45915e-01_rb, &\n        & 0.40526e-01_rb,0.35125e-01_rb,0.27883e-01_rb,0.26586e-01_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.73937e-01_rb,0.65493e-01_rb,0.58738e-01_rb,0.53263e-01_rb,0.47941e-01_rb, &\n        & 0.43149e-01_rb,0.37585e-01_rb,0.30874e-01_rb,0.31614e-01_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.73662e-01_rb,0.65759e-01_rb,0.59591e-01_rb,0.54630e-01_rb,0.50354e-01_rb, &\n        & 0.45514e-01_rb,0.40708e-01_rb,0.34889e-01_rb,0.37383e-01_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.73359e-01_rb,0.66187e-01_rb,0.60275e-01_rb,0.56599e-01_rb,0.52392e-01_rb, &\n        & 0.48574e-01_rb,0.44791e-01_rb,0.39333e-01_rb,0.43356e-01_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.72923e-01_rb,0.66589e-01_rb,0.61432e-01_rb,0.58168e-01_rb,0.55043e-01_rb, &\n        & 0.52561e-01_rb,0.48755e-01_rb,0.44300e-01_rb,0.49765e-01_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.78458e-01_rb,0.69177e-01_rb,0.61142e-01_rb,0.54247e-01_rb,0.47727e-01_rb, &\n        & 0.41456e-01_rb,0.34819e-01_rb,0.27717e-01_rb,0.23941e-01_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.78410e-01_rb,0.69294e-01_rb,0.61857e-01_rb,0.55492e-01_rb,0.49764e-01_rb, &\n        & 0.43844e-01_rb,0.37501e-01_rb,0.30644e-01_rb,0.28737e-01_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.78162e-01_rb,0.69463e-01_rb,0.62578e-01_rb,0.57026e-01_rb,0.52068e-01_rb, &\n        & 0.46044e-01_rb,0.40472e-01_rb,0.34561e-01_rb,0.34380e-01_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.77871e-01_rb,0.69834e-01_rb,0.63268e-01_rb,0.59074e-01_rb,0.53918e-01_rb, &\n        & 0.48672e-01_rb,0.44601e-01_rb,0.38671e-01_rb,0.40158e-01_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.77487e-01_rb,0.70209e-01_rb,0.64405e-01_rb,0.60632e-01_rb,0.56120e-01_rb, &\n        & 0.52504e-01_rb,0.48787e-01_rb,0.42980e-01_rb,0.46410e-01_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.82666e-01_rb,0.72734e-01_rb,0.64105e-01_rb,0.56594e-01_rb,0.49561e-01_rb, &\n        & 0.42281e-01_rb,0.34472e-01_rb,0.27105e-01_rb,0.21191e-01_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.82602e-01_rb,0.72866e-01_rb,0.64825e-01_rb,0.57780e-01_rb,0.51415e-01_rb, &\n        & 0.44682e-01_rb,0.37233e-01_rb,0.30003e-01_rb,0.25697e-01_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.82349e-01_rb,0.72898e-01_rb,0.65478e-01_rb,0.59213e-01_rb,0.53844e-01_rb, &\n        & 0.46925e-01_rb,0.39994e-01_rb,0.33830e-01_rb,0.31116e-01_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.82004e-01_rb,0.73222e-01_rb,0.66214e-01_rb,0.61303e-01_rb,0.55771e-01_rb, &\n        & 0.49206e-01_rb,0.43963e-01_rb,0.38199e-01_rb,0.36759e-01_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.81608e-01_rb,0.73612e-01_rb,0.67180e-01_rb,0.63056e-01_rb,0.57653e-01_rb, &\n        & 0.52653e-01_rb,0.48283e-01_rb,0.42441e-01_rb,0.42846e-01_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.85880e-01_rb,0.75430e-01_rb,0.66656e-01_rb,0.58773e-01_rb,0.51658e-01_rb, &\n        & 0.43336e-01_rb,0.34393e-01_rb,0.26157e-01_rb,0.14663e-01_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.85756e-01_rb,0.75590e-01_rb,0.67337e-01_rb,0.60049e-01_rb,0.53266e-01_rb, &\n        & 0.45473e-01_rb,0.37278e-01_rb,0.29125e-01_rb,0.16193e-01_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.85530e-01_rb,0.75588e-01_rb,0.67995e-01_rb,0.61462e-01_rb,0.55345e-01_rb, &\n        & 0.48001e-01_rb,0.39939e-01_rb,0.32883e-01_rb,0.20331e-01_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.85095e-01_rb,0.75810e-01_rb,0.68684e-01_rb,0.63320e-01_rb,0.57485e-01_rb, &\n        & 0.50257e-01_rb,0.43559e-01_rb,0.37443e-01_rb,0.23682e-01_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.84667e-01_rb,0.76211e-01_rb,0.69733e-01_rb,0.65095e-01_rb,0.59445e-01_rb, &\n        & 0.53380e-01_rb,0.47785e-01_rb,0.41863e-01_rb,0.26616e-01_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.87471e-01_rb,0.76929e-01_rb,0.68322e-01_rb,0.60781e-01_rb,0.53951e-01_rb, &\n        & 0.45056e-01_rb,0.35758e-01_rb,0.26371e-01_rb,0.18858e-01_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.87208e-01_rb,0.76940e-01_rb,0.68996e-01_rb,0.62212e-01_rb,0.55582e-01_rb, &\n        & 0.47319e-01_rb,0.38590e-01_rb,0.29478e-01_rb,0.21575e-01_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.86835e-01_rb,0.76905e-01_rb,0.69723e-01_rb,0.63816e-01_rb,0.57699e-01_rb, &\n        & 0.49745e-01_rb,0.41432e-01_rb,0.33605e-01_rb,0.25460e-01_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.86430e-01_rb,0.77295e-01_rb,0.70629e-01_rb,0.65834e-01_rb,0.59545e-01_rb, &\n        & 0.52341e-01_rb,0.45178e-01_rb,0.38243e-01_rb,0.30364e-01_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.85874e-01_rb,0.77597e-01_rb,0.72138e-01_rb,0.67497e-01_rb,0.61709e-01_rb, &\n        & 0.55855e-01_rb,0.49191e-01_rb,0.42789e-01_rb,0.33235e-01_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.87248e-01_rb,0.76929e-01_rb,0.68689e-01_rb,0.62001e-01_rb,0.55189e-01_rb, &\n        & 0.46282e-01_rb,0.37018e-01_rb,0.26535e-01_rb,0.20617e-01_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.86938e-01_rb,0.76894e-01_rb,0.69591e-01_rb,0.63473e-01_rb,0.56879e-01_rb, &\n        & 0.48866e-01_rb,0.39681e-01_rb,0.29869e-01_rb,0.23753e-01_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.86505e-01_rb,0.76936e-01_rb,0.70473e-01_rb,0.65213e-01_rb,0.59161e-01_rb, &\n        & 0.51227e-01_rb,0.42751e-01_rb,0.34068e-01_rb,0.28028e-01_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.86014e-01_rb,0.77389e-01_rb,0.71734e-01_rb,0.67391e-01_rb,0.61041e-01_rb, &\n        & 0.54172e-01_rb,0.46740e-01_rb,0.38524e-01_rb,0.33947e-01_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.85424e-01_rb,0.77682e-01_rb,0.73622e-01_rb,0.69056e-01_rb,0.63676e-01_rb, &\n        & 0.57877e-01_rb,0.50578e-01_rb,0.43087e-01_rb,0.36933e-01_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.85419e-01_rb,0.75627e-01_rb,0.68076e-01_rb,0.62306e-01_rb,0.55288e-01_rb, &\n        & 0.46939e-01_rb,0.37782e-01_rb,0.26869e-01_rb,0.20535e-01_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.84985e-01_rb,0.75524e-01_rb,0.69213e-01_rb,0.63729e-01_rb,0.57271e-01_rb, &\n        & 0.49714e-01_rb,0.40473e-01_rb,0.30181e-01_rb,0.22959e-01_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.84529e-01_rb,0.75748e-01_rb,0.70315e-01_rb,0.65749e-01_rb,0.59660e-01_rb, &\n        & 0.52260e-01_rb,0.43766e-01_rb,0.34359e-01_rb,0.28707e-01_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.84038e-01_rb,0.76252e-01_rb,0.71947e-01_rb,0.67890e-01_rb,0.61874e-01_rb, &\n        & 0.55511e-01_rb,0.47935e-01_rb,0.38594e-01_rb,0.34330e-01_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.83450e-01_rb,0.76542e-01_rb,0.73924e-01_rb,0.69752e-01_rb,0.64960e-01_rb, &\n        & 0.59356e-01_rb,0.51789e-01_rb,0.43079e-01_rb,0.38051e-01_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.68561e-01_rb,0.61393e-01_rb,0.55377e-01_rb,0.48367e-01_rb,0.42682e-01_rb, &\n        & 0.39908e-01_rb,0.45275e-01_rb,0.51909e-01_rb,0.58629e-01_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.68429e-01_rb,0.62258e-01_rb,0.56444e-01_rb,0.49529e-01_rb,0.45167e-01_rb, &\n        & 0.45643e-01_rb,0.53469e-01_rb,0.61626e-01_rb,0.69870e-01_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.68224e-01_rb,0.62810e-01_rb,0.57169e-01_rb,0.51186e-01_rb,0.48224e-01_rb, &\n        & 0.52899e-01_rb,0.62764e-01_rb,0.72521e-01_rb,0.82353e-01_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.67917e-01_rb,0.63314e-01_rb,0.58187e-01_rb,0.53334e-01_rb,0.52038e-01_rb, &\n        & 0.61434e-01_rb,0.73273e-01_rb,0.84850e-01_rb,0.96479e-01_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.67553e-01_rb,0.63903e-01_rb,0.59193e-01_rb,0.55737e-01_rb,0.58351e-01_rb, &\n        & 0.71682e-01_rb,0.85665e-01_rb,0.99285e-01_rb,0.11295e+00_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.77509e-01_rb,0.69079e-01_rb,0.62486e-01_rb,0.54626e-01_rb,0.48075e-01_rb, &\n        & 0.42537e-01_rb,0.44950e-01_rb,0.51477e-01_rb,0.58558e-01_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.77430e-01_rb,0.69950e-01_rb,0.63742e-01_rb,0.55764e-01_rb,0.50627e-01_rb, &\n        & 0.46853e-01_rb,0.52532e-01_rb,0.60374e-01_rb,0.68733e-01_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.77189e-01_rb,0.70882e-01_rb,0.64573e-01_rb,0.57536e-01_rb,0.53311e-01_rb, &\n        & 0.52406e-01_rb,0.61244e-01_rb,0.70634e-01_rb,0.80523e-01_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.76847e-01_rb,0.71588e-01_rb,0.65635e-01_rb,0.59928e-01_rb,0.56064e-01_rb, &\n        & 0.60283e-01_rb,0.71500e-01_rb,0.82577e-01_rb,0.94220e-01_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.76386e-01_rb,0.72289e-01_rb,0.66796e-01_rb,0.62420e-01_rb,0.60016e-01_rb, &\n        & 0.69350e-01_rb,0.82634e-01_rb,0.95798e-01_rb,0.10925e+00_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.86533e-01_rb,0.76872e-01_rb,0.69252e-01_rb,0.60999e-01_rb,0.53444e-01_rb, &\n        & 0.46117e-01_rb,0.43982e-01_rb,0.49772e-01_rb,0.56991e-01_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.86412e-01_rb,0.77388e-01_rb,0.71047e-01_rb,0.62031e-01_rb,0.55847e-01_rb, &\n        & 0.49560e-01_rb,0.50601e-01_rb,0.57831e-01_rb,0.66136e-01_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.86175e-01_rb,0.78253e-01_rb,0.72126e-01_rb,0.63678e-01_rb,0.58875e-01_rb, &\n        & 0.53556e-01_rb,0.58645e-01_rb,0.67397e-01_rb,0.77181e-01_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.85802e-01_rb,0.79483e-01_rb,0.72991e-01_rb,0.66186e-01_rb,0.61530e-01_rb, &\n        & 0.59229e-01_rb,0.68328e-01_rb,0.78749e-01_rb,0.90335e-01_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.85328e-01_rb,0.80671e-01_rb,0.74346e-01_rb,0.68871e-01_rb,0.64555e-01_rb, &\n        & 0.67267e-01_rb,0.79478e-01_rb,0.91684e-01_rb,0.10533e+00_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.95394e-01_rb,0.84557e-01_rb,0.75442e-01_rb,0.67038e-01_rb,0.59073e-01_rb, &\n        & 0.49886e-01_rb,0.44642e-01_rb,0.48508e-01_rb,0.55658e-01_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.95223e-01_rb,0.84873e-01_rb,0.77588e-01_rb,0.68316e-01_rb,0.60993e-01_rb, &\n        & 0.53907e-01_rb,0.49824e-01_rb,0.55820e-01_rb,0.64074e-01_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.94965e-01_rb,0.85575e-01_rb,0.79290e-01_rb,0.69694e-01_rb,0.64420e-01_rb, &\n        & 0.57295e-01_rb,0.56440e-01_rb,0.64306e-01_rb,0.73964e-01_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.94509e-01_rb,0.86370e-01_rb,0.80294e-01_rb,0.72257e-01_rb,0.67415e-01_rb, &\n        & 0.61388e-01_rb,0.65357e-01_rb,0.74991e-01_rb,0.86332e-01_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.94009e-01_rb,0.87806e-01_rb,0.81595e-01_rb,0.75171e-01_rb,0.70245e-01_rb, &\n        & 0.67536e-01_rb,0.76274e-01_rb,0.87845e-01_rb,0.10132e+00_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.10343e+00_rb,0.91525e-01_rb,0.80861e-01_rb,0.72378e-01_rb,0.64406e-01_rb, &\n        & 0.53983e-01_rb,0.47036e-01_rb,0.47125e-01_rb,0.54095e-01_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.10334e+00_rb,0.91907e-01_rb,0.82762e-01_rb,0.74349e-01_rb,0.66049e-01_rb, &\n        & 0.58213e-01_rb,0.51290e-01_rb,0.53990e-01_rb,0.61913e-01_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.10297e+00_rb,0.92357e-01_rb,0.85393e-01_rb,0.75564e-01_rb,0.69527e-01_rb, &\n        & 0.62165e-01_rb,0.56265e-01_rb,0.62011e-01_rb,0.71236e-01_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.10256e+00_rb,0.93114e-01_rb,0.87093e-01_rb,0.77935e-01_rb,0.73042e-01_rb, &\n        & 0.65986e-01_rb,0.63498e-01_rb,0.72109e-01_rb,0.83127e-01_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.10189e+00_rb,0.94299e-01_rb,0.88282e-01_rb,0.81218e-01_rb,0.76035e-01_rb, &\n        & 0.70876e-01_rb,0.73640e-01_rb,0.84406e-01_rb,0.97393e-01_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.11045e+00_rb,0.97454e-01_rb,0.85408e-01_rb,0.76244e-01_rb,0.68972e-01_rb, &\n        & 0.58251e-01_rb,0.49930e-01_rb,0.45374e-01_rb,0.51875e-01_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.11019e+00_rb,0.97819e-01_rb,0.87148e-01_rb,0.79069e-01_rb,0.71021e-01_rb, &\n        & 0.62071e-01_rb,0.54179e-01_rb,0.52124e-01_rb,0.59618e-01_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.10981e+00_rb,0.98088e-01_rb,0.89384e-01_rb,0.81156e-01_rb,0.73973e-01_rb, &\n        & 0.66762e-01_rb,0.58141e-01_rb,0.59499e-01_rb,0.68391e-01_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.10923e+00_rb,0.98741e-01_rb,0.91856e-01_rb,0.83093e-01_rb,0.78121e-01_rb, &\n        & 0.70717e-01_rb,0.63590e-01_rb,0.68985e-01_rb,0.79490e-01_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.10855e+00_rb,0.99728e-01_rb,0.93768e-01_rb,0.86485e-01_rb,0.81499e-01_rb, &\n        & 0.75384e-01_rb,0.71738e-01_rb,0.80634e-01_rb,0.92951e-01_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.11652e+00_rb,0.10245e+00_rb,0.89345e-01_rb,0.79831e-01_rb,0.71546e-01_rb, &\n        & 0.62110e-01_rb,0.52889e-01_rb,0.43937e-01_rb,0.49094e-01_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.11624e+00_rb,0.10291e+00_rb,0.90769e-01_rb,0.82143e-01_rb,0.74705e-01_rb, &\n        & 0.65752e-01_rb,0.57383e-01_rb,0.50125e-01_rb,0.56751e-01_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.11594e+00_rb,0.10317e+00_rb,0.92734e-01_rb,0.84722e-01_rb,0.77935e-01_rb, &\n        & 0.70772e-01_rb,0.61416e-01_rb,0.57153e-01_rb,0.65344e-01_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.11535e+00_rb,0.10356e+00_rb,0.95024e-01_rb,0.87242e-01_rb,0.82357e-01_rb, &\n        & 0.75212e-01_rb,0.65866e-01_rb,0.66110e-01_rb,0.76048e-01_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.11474e+00_rb,0.10447e+00_rb,0.97059e-01_rb,0.90869e-01_rb,0.86343e-01_rb, &\n        & 0.79806e-01_rb,0.72467e-01_rb,0.77014e-01_rb,0.88751e-01_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.12265e+00_rb,0.10756e+00_rb,0.93593e-01_rb,0.82964e-01_rb,0.73576e-01_rb, &\n        & 0.64374e-01_rb,0.55605e-01_rb,0.43559e-01_rb,0.46060e-01_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.12249e+00_rb,0.10812e+00_rb,0.94575e-01_rb,0.84973e-01_rb,0.76683e-01_rb, &\n        & 0.68823e-01_rb,0.60052e-01_rb,0.49117e-01_rb,0.53798e-01_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.12216e+00_rb,0.10834e+00_rb,0.96338e-01_rb,0.87360e-01_rb,0.80349e-01_rb, &\n        & 0.74206e-01_rb,0.64654e-01_rb,0.55074e-01_rb,0.62031e-01_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.12168e+00_rb,0.10860e+00_rb,0.98251e-01_rb,0.89888e-01_rb,0.85251e-01_rb, &\n        & 0.79126e-01_rb,0.69120e-01_rb,0.63252e-01_rb,0.72334e-01_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.12099e+00_rb,0.10931e+00_rb,0.10017e+00_rb,0.93685e-01_rb,0.90048e-01_rb, &\n        & 0.83711e-01_rb,0.75096e-01_rb,0.73779e-01_rb,0.84712e-01_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.12914e+00_rb,0.11313e+00_rb,0.98462e-01_rb,0.86441e-01_rb,0.75875e-01_rb, &\n        & 0.66332e-01_rb,0.57013e-01_rb,0.43839e-01_rb,0.42411e-01_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.12911e+00_rb,0.11365e+00_rb,0.99113e-01_rb,0.88386e-01_rb,0.78651e-01_rb, &\n        & 0.70676e-01_rb,0.61767e-01_rb,0.49076e-01_rb,0.50412e-01_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.12886e+00_rb,0.11401e+00_rb,0.10056e+00_rb,0.90400e-01_rb,0.82030e-01_rb, &\n        & 0.75969e-01_rb,0.67212e-01_rb,0.54346e-01_rb,0.58598e-01_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.12844e+00_rb,0.11410e+00_rb,0.10221e+00_rb,0.92662e-01_rb,0.86791e-01_rb, &\n        & 0.81685e-01_rb,0.71813e-01_rb,0.61251e-01_rb,0.68599e-01_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.12781e+00_rb,0.11455e+00_rb,0.10390e+00_rb,0.96184e-01_rb,0.92217e-01_rb, &\n        & 0.86557e-01_rb,0.77640e-01_rb,0.70636e-01_rb,0.80447e-01_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.13661e+00_rb,0.11963e+00_rb,0.10401e+00_rb,0.90612e-01_rb,0.78552e-01_rb, &\n        & 0.68665e-01_rb,0.58042e-01_rb,0.44182e-01_rb,0.20623e-01_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.13663e+00_rb,0.12000e+00_rb,0.10449e+00_rb,0.92427e-01_rb,0.81459e-01_rb, &\n        & 0.72606e-01_rb,0.62588e-01_rb,0.49634e-01_rb,0.27517e-01_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.13648e+00_rb,0.12048e+00_rb,0.10572e+00_rb,0.94344e-01_rb,0.84635e-01_rb, &\n        & 0.77264e-01_rb,0.68466e-01_rb,0.54964e-01_rb,0.37460e-01_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.13615e+00_rb,0.12055e+00_rb,0.10724e+00_rb,0.96538e-01_rb,0.88921e-01_rb, &\n        & 0.82919e-01_rb,0.73837e-01_rb,0.61121e-01_rb,0.51408e-01_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.13560e+00_rb,0.12083e+00_rb,0.10867e+00_rb,0.99719e-01_rb,0.94157e-01_rb, &\n        & 0.88097e-01_rb,0.79982e-01_rb,0.69630e-01_rb,0.68524e-01_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.14486e+00_rb,0.12685e+00_rb,0.11053e+00_rb,0.96215e-01_rb,0.83198e-01_rb, &\n        & 0.72790e-01_rb,0.60483e-01_rb,0.46368e-01_rb,0.23123e-01_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.14497e+00_rb,0.12740e+00_rb,0.11115e+00_rb,0.98058e-01_rb,0.86138e-01_rb, &\n        & 0.76317e-01_rb,0.65283e-01_rb,0.52226e-01_rb,0.29160e-01_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.14473e+00_rb,0.12775e+00_rb,0.11243e+00_rb,0.99891e-01_rb,0.89493e-01_rb, &\n        & 0.80996e-01_rb,0.71303e-01_rb,0.57950e-01_rb,0.32977e-01_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.14430e+00_rb,0.12774e+00_rb,0.11386e+00_rb,0.10223e+00_rb,0.94098e-01_rb, &\n        & 0.86252e-01_rb,0.77087e-01_rb,0.64785e-01_rb,0.38714e-01_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.14365e+00_rb,0.12806e+00_rb,0.11504e+00_rb,0.10578e+00_rb,0.98766e-01_rb, &\n        & 0.91283e-01_rb,0.84242e-01_rb,0.73581e-01_rb,0.47497e-01_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.15269e+00_rb,0.13372e+00_rb,0.11691e+00_rb,0.10167e+00_rb,0.88459e-01_rb, &\n        & 0.76634e-01_rb,0.62620e-01_rb,0.48153e-01_rb,0.27858e-01_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.15257e+00_rb,0.13415e+00_rb,0.11750e+00_rb,0.10380e+00_rb,0.91589e-01_rb, &\n        & 0.79898e-01_rb,0.67862e-01_rb,0.54271e-01_rb,0.35587e-01_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.15233e+00_rb,0.13449e+00_rb,0.11899e+00_rb,0.10589e+00_rb,0.94966e-01_rb, &\n        & 0.84666e-01_rb,0.73653e-01_rb,0.60551e-01_rb,0.39809e-01_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.15175e+00_rb,0.13439e+00_rb,0.12031e+00_rb,0.10854e+00_rb,0.99506e-01_rb, &\n        & 0.89389e-01_rb,0.79517e-01_rb,0.68401e-01_rb,0.45578e-01_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.15105e+00_rb,0.13484e+00_rb,0.12149e+00_rb,0.11242e+00_rb,0.10353e+00_rb, &\n        & 0.94548e-01_rb,0.87485e-01_rb,0.77323e-01_rb,0.55990e-01_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.15929e+00_rb,0.13953e+00_rb,0.12252e+00_rb,0.10682e+00_rb,0.93710e-01_rb, &\n        & 0.80318e-01_rb,0.64679e-01_rb,0.49483e-01_rb,0.31231e-01_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.15914e+00_rb,0.14001e+00_rb,0.12322e+00_rb,0.10931e+00_rb,0.96798e-01_rb, &\n        & 0.83533e-01_rb,0.70039e-01_rb,0.55928e-01_rb,0.39440e-01_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.15875e+00_rb,0.14019e+00_rb,0.12484e+00_rb,0.11161e+00_rb,0.10034e+00_rb, &\n        & 0.88309e-01_rb,0.75681e-01_rb,0.62757e-01_rb,0.43280e-01_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.15815e+00_rb,0.14019e+00_rb,0.12619e+00_rb,0.11467e+00_rb,0.10492e+00_rb, &\n        & 0.92849e-01_rb,0.81796e-01_rb,0.71221e-01_rb,0.50343e-01_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.15737e+00_rb,0.14077e+00_rb,0.12756e+00_rb,0.11888e+00_rb,0.10868e+00_rb, &\n        & 0.98192e-01_rb,0.90106e-01_rb,0.80417e-01_rb,0.60332e-01_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.83965e-01_rb,0.74725e-01_rb,0.67262e-01_rb,0.61439e-01_rb,0.63569e-01_rb, &\n        & 0.76568e-01_rb,0.91505e-01_rb,0.10604e+00_rb,0.12066e+00_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.84124e-01_rb,0.75639e-01_rb,0.69121e-01_rb,0.66761e-01_rb,0.75177e-01_rb, &\n        & 0.93190e-01_rb,0.11140e+00_rb,0.12912e+00_rb,0.14697e+00_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.84208e-01_rb,0.76821e-01_rb,0.71401e-01_rb,0.74638e-01_rb,0.90938e-01_rb, &\n        & 0.11330e+00_rb,0.13555e+00_rb,0.15732e+00_rb,0.17919e+00_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.84082e-01_rb,0.77722e-01_rb,0.74753e-01_rb,0.85505e-01_rb,0.11037e+00_rb, &\n        & 0.13754e+00_rb,0.16460e+00_rb,0.19114e+00_rb,0.21779e+00_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.83810e-01_rb,0.78431e-01_rb,0.79767e-01_rb,0.99722e-01_rb,0.13195e+00_rb, &\n        & 0.16448e+00_rb,0.19691e+00_rb,0.22867e+00_rb,0.26057e+00_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.98728e-01_rb,0.87584e-01_rb,0.78635e-01_rb,0.69559e-01_rb,0.65625e-01_rb, &\n        & 0.74022e-01_rb,0.88098e-01_rb,0.10177e+00_rb,0.11620e+00_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.98895e-01_rb,0.88195e-01_rb,0.80583e-01_rb,0.73010e-01_rb,0.73981e-01_rb, &\n        & 0.89007e-01_rb,0.10638e+00_rb,0.12319e+00_rb,0.14079e+00_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.98911e-01_rb,0.89265e-01_rb,0.82581e-01_rb,0.78421e-01_rb,0.87111e-01_rb, &\n        & 0.10783e+00_rb,0.12893e+00_rb,0.14951e+00_rb,0.17084e+00_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.98795e-01_rb,0.90737e-01_rb,0.84451e-01_rb,0.86623e-01_rb,0.10466e+00_rb, &\n        & 0.13034e+00_rb,0.15592e+00_rb,0.18094e+00_rb,0.20669e+00_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.98517e-01_rb,0.92027e-01_rb,0.87783e-01_rb,0.98306e-01_rb,0.12592e+00_rb, &\n        & 0.15706e+00_rb,0.18794e+00_rb,0.21816e+00_rb,0.24934e+00_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.11536e+00_rb,0.10204e+00_rb,0.91076e-01_rb,0.79879e-01_rb,0.70411e-01_rb, &\n        & 0.71590e-01_rb,0.83610e-01_rb,0.96241e-01_rb,0.11049e+00_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.11565e+00_rb,0.10277e+00_rb,0.93049e-01_rb,0.82303e-01_rb,0.75267e-01_rb, &\n        & 0.83499e-01_rb,0.99323e-01_rb,0.11472e+00_rb,0.13181e+00_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.11566e+00_rb,0.10353e+00_rb,0.95697e-01_rb,0.85227e-01_rb,0.84157e-01_rb, &\n        & 0.99917e-01_rb,0.11933e+00_rb,0.13815e+00_rb,0.15865e+00_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.11554e+00_rb,0.10447e+00_rb,0.97554e-01_rb,0.90504e-01_rb,0.97960e-01_rb, &\n        & 0.12029e+00_rb,0.14386e+00_rb,0.16671e+00_rb,0.19135e+00_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.11515e+00_rb,0.10586e+00_rb,0.99141e-01_rb,0.99110e-01_rb,0.11626e+00_rb, &\n        & 0.14432e+00_rb,0.17265e+00_rb,0.20040e+00_rb,0.22976e+00_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.13374e+00_rb,0.11777e+00_rb,0.10356e+00_rb,0.90948e-01_rb,0.79121e-01_rb, &\n        & 0.73845e-01_rb,0.80790e-01_rb,0.92777e-01_rb,0.10713e+00_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.13413e+00_rb,0.11892e+00_rb,0.10607e+00_rb,0.94460e-01_rb,0.81628e-01_rb, &\n        & 0.80960e-01_rb,0.93972e-01_rb,0.10817e+00_rb,0.12489e+00_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.13429e+00_rb,0.11957e+00_rb,0.10936e+00_rb,0.96737e-01_rb,0.86452e-01_rb, &\n        & 0.93977e-01_rb,0.11135e+00_rb,0.12854e+00_rb,0.14815e+00_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.13415e+00_rb,0.12054e+00_rb,0.11264e+00_rb,0.99496e-01_rb,0.96100e-01_rb, &\n        & 0.11145e+00_rb,0.13299e+00_rb,0.15385e+00_rb,0.17718e+00_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.13374e+00_rb,0.12142e+00_rb,0.11440e+00_rb,0.10500e+00_rb,0.11046e+00_rb, &\n        & 0.13295e+00_rb,0.15886e+00_rb,0.18424e+00_rb,0.21188e+00_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.15386e+00_rb,0.13491e+00_rb,0.11798e+00_rb,0.10225e+00_rb,0.89703e-01_rb, &\n        & 0.79220e-01_rb,0.79340e-01_rb,0.90595e-01_rb,0.10482e+00_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.15427e+00_rb,0.13635e+00_rb,0.12030e+00_rb,0.10668e+00_rb,0.92323e-01_rb, &\n        & 0.84157e-01_rb,0.91777e-01_rb,0.10537e+00_rb,0.12216e+00_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.15452e+00_rb,0.13729e+00_rb,0.12299e+00_rb,0.11079e+00_rb,0.94730e-01_rb, &\n        & 0.92840e-01_rb,0.10677e+00_rb,0.12287e+00_rb,0.14246e+00_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.15437e+00_rb,0.13801e+00_rb,0.12683e+00_rb,0.11313e+00_rb,0.10059e+00_rb, &\n        & 0.10648e+00_rb,0.12562e+00_rb,0.14488e+00_rb,0.16770e+00_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.15403e+00_rb,0.13896e+00_rb,0.13053e+00_rb,0.11647e+00_rb,0.11129e+00_rb, &\n        & 0.12495e+00_rb,0.14877e+00_rb,0.17193e+00_rb,0.19866e+00_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.17516e+00_rb,0.15332e+00_rb,0.13386e+00_rb,0.11461e+00_rb,0.98998e-01_rb, &\n        & 0.86199e-01_rb,0.78839e-01_rb,0.88239e-01_rb,0.10212e+00_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.17578e+00_rb,0.15465e+00_rb,0.13554e+00_rb,0.11810e+00_rb,0.10372e+00_rb, &\n        & 0.90966e-01_rb,0.90397e-01_rb,0.10318e+00_rb,0.11979e+00_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.17603e+00_rb,0.15606e+00_rb,0.13830e+00_rb,0.12297e+00_rb,0.10694e+00_rb, &\n        & 0.96886e-01_rb,0.10455e+00_rb,0.12004e+00_rb,0.13936e+00_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.17594e+00_rb,0.15671e+00_rb,0.14175e+00_rb,0.12765e+00_rb,0.11049e+00_rb, &\n        & 0.10701e+00_rb,0.12142e+00_rb,0.13971e+00_rb,0.16228e+00_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.17559e+00_rb,0.15762e+00_rb,0.14567e+00_rb,0.13124e+00_rb,0.11784e+00_rb, &\n        & 0.12121e+00_rb,0.14182e+00_rb,0.16360e+00_rb,0.18966e+00_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.19714e+00_rb,0.17254e+00_rb,0.15016e+00_rb,0.12718e+00_rb,0.10949e+00_rb, &\n        & 0.93814e-01_rb,0.79465e-01_rb,0.85103e-01_rb,0.98359e-01_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.19796e+00_rb,0.17362e+00_rb,0.15183e+00_rb,0.13102e+00_rb,0.11370e+00_rb, &\n        & 0.99479e-01_rb,0.90483e-01_rb,0.10125e+00_rb,0.11726e+00_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.19829e+00_rb,0.17522e+00_rb,0.15424e+00_rb,0.13545e+00_rb,0.11863e+00_rb, &\n        & 0.10457e+00_rb,0.10363e+00_rb,0.11810e+00_rb,0.13724e+00_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.19826e+00_rb,0.17625e+00_rb,0.15748e+00_rb,0.14049e+00_rb,0.12307e+00_rb, &\n        & 0.11254e+00_rb,0.11942e+00_rb,0.13698e+00_rb,0.15920e+00_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.19780e+00_rb,0.17685e+00_rb,0.16171e+00_rb,0.14510e+00_rb,0.12933e+00_rb, &\n        & 0.12368e+00_rb,0.13790e+00_rb,0.15875e+00_rb,0.18443e+00_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.21950e+00_rb,0.19210e+00_rb,0.16641e+00_rb,0.14074e+00_rb,0.12030e+00_rb, &\n        & 0.10245e+00_rb,0.82539e-01_rb,0.82181e-01_rb,0.95126e-01_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.22029e+00_rb,0.19287e+00_rb,0.16845e+00_rb,0.14392e+00_rb,0.12476e+00_rb, &\n        & 0.10750e+00_rb,0.92052e-01_rb,0.97622e-01_rb,0.11306e+00_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.22070e+00_rb,0.19423e+00_rb,0.17032e+00_rb,0.14847e+00_rb,0.12971e+00_rb, &\n        & 0.11297e+00_rb,0.10375e+00_rb,0.11522e+00_rb,0.13338e+00_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.22058e+00_rb,0.19569e+00_rb,0.17355e+00_rb,0.15354e+00_rb,0.13473e+00_rb, &\n        & 0.12044e+00_rb,0.11859e+00_rb,0.13469e+00_rb,0.15609e+00_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.22021e+00_rb,0.19640e+00_rb,0.17762e+00_rb,0.15857e+00_rb,0.14102e+00_rb, &\n        & 0.13035e+00_rb,0.13566e+00_rb,0.15573e+00_rb,0.18054e+00_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.24109e+00_rb,0.21099e+00_rb,0.18179e+00_rb,0.15454e+00_rb,0.13112e+00_rb, &\n        & 0.11092e+00_rb,0.89296e-01_rb,0.80506e-01_rb,0.93157e-01_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.24188e+00_rb,0.21170e+00_rb,0.18440e+00_rb,0.15693e+00_rb,0.13589e+00_rb, &\n        & 0.11596e+00_rb,0.96808e-01_rb,0.94330e-01_rb,0.10941e+00_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.24228e+00_rb,0.21270e+00_rb,0.18618e+00_rb,0.16137e+00_rb,0.14099e+00_rb, &\n        & 0.12182e+00_rb,0.10601e+00_rb,0.11139e+00_rb,0.12901e+00_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.24222e+00_rb,0.21416e+00_rb,0.18881e+00_rb,0.16653e+00_rb,0.14643e+00_rb, &\n        & 0.12886e+00_rb,0.11898e+00_rb,0.13037e+00_rb,0.15086e+00_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.24175e+00_rb,0.21527e+00_rb,0.19303e+00_rb,0.17188e+00_rb,0.15251e+00_rb, &\n        & 0.13886e+00_rb,0.13479e+00_rb,0.15182e+00_rb,0.17551e+00_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.26096e+00_rb,0.22837e+00_rb,0.19625e+00_rb,0.16743e+00_rb,0.14218e+00_rb, &\n        & 0.11905e+00_rb,0.97365e-01_rb,0.81466e-01_rb,0.86743e-01_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.26197e+00_rb,0.22928e+00_rb,0.19902e+00_rb,0.16970e+00_rb,0.14641e+00_rb, &\n        & 0.12483e+00_rb,0.10472e+00_rb,0.93843e-01_rb,0.10806e+00_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.26221e+00_rb,0.22989e+00_rb,0.20102e+00_rb,0.17345e+00_rb,0.15221e+00_rb, &\n        & 0.13116e+00_rb,0.11273e+00_rb,0.10943e+00_rb,0.12658e+00_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.26216e+00_rb,0.23120e+00_rb,0.20343e+00_rb,0.17903e+00_rb,0.15795e+00_rb, &\n        & 0.13876e+00_rb,0.12342e+00_rb,0.12756e+00_rb,0.14743e+00_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.26155e+00_rb,0.23254e+00_rb,0.20744e+00_rb,0.18479e+00_rb,0.16453e+00_rb, &\n        & 0.14894e+00_rb,0.13716e+00_rb,0.14827e+00_rb,0.17117e+00_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.28000e+00_rb,0.24504e+00_rb,0.21069e+00_rb,0.18024e+00_rb,0.15374e+00_rb, &\n        & 0.12937e+00_rb,0.10819e+00_rb,0.88668e-01_rb,0.55926e-01_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.28047e+00_rb,0.24546e+00_rb,0.21318e+00_rb,0.18272e+00_rb,0.15865e+00_rb, &\n        & 0.13663e+00_rb,0.11594e+00_rb,0.10024e+00_rb,0.74129e-01_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.28078e+00_rb,0.24627e+00_rb,0.21537e+00_rb,0.18699e+00_rb,0.16514e+00_rb, &\n        & 0.14391e+00_rb,0.12463e+00_rb,0.11566e+00_rb,0.10008e+00_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.28041e+00_rb,0.24739e+00_rb,0.21799e+00_rb,0.19316e+00_rb,0.17153e+00_rb, &\n        & 0.15296e+00_rb,0.13573e+00_rb,0.13384e+00_rb,0.12903e+00_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.27974e+00_rb,0.24878e+00_rb,0.22235e+00_rb,0.19924e+00_rb,0.17976e+00_rb, &\n        & 0.16447e+00_rb,0.14857e+00_rb,0.15437e+00_rb,0.16255e+00_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.29848e+00_rb,0.26121e+00_rb,0.22470e+00_rb,0.19300e+00_rb,0.16476e+00_rb, &\n        & 0.13979e+00_rb,0.11858e+00_rb,0.95361e-01_rb,0.54706e-01_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.29901e+00_rb,0.26167e+00_rb,0.22733e+00_rb,0.19555e+00_rb,0.17000e+00_rb, &\n        & 0.14834e+00_rb,0.12686e+00_rb,0.10640e+00_rb,0.56924e-01_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.29886e+00_rb,0.26222e+00_rb,0.22932e+00_rb,0.20008e+00_rb,0.17736e+00_rb, &\n        & 0.15653e+00_rb,0.13669e+00_rb,0.12173e+00_rb,0.76097e-01_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.29840e+00_rb,0.26333e+00_rb,0.23210e+00_rb,0.20641e+00_rb,0.18472e+00_rb, &\n        & 0.16716e+00_rb,0.14883e+00_rb,0.13980e+00_rb,0.10268e+00_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.29738e+00_rb,0.26451e+00_rb,0.23656e+00_rb,0.21275e+00_rb,0.19460e+00_rb, &\n        & 0.18005e+00_rb,0.16102e+00_rb,0.16046e+00_rb,0.13219e+00_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.31629e+00_rb,0.27681e+00_rb,0.23838e+00_rb,0.20550e+00_rb,0.17561e+00_rb, &\n        & 0.15005e+00_rb,0.12855e+00_rb,0.10141e+00_rb,0.58394e-01_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.31664e+00_rb,0.27713e+00_rb,0.24100e+00_rb,0.20827e+00_rb,0.18155e+00_rb, &\n        & 0.15952e+00_rb,0.13765e+00_rb,0.11247e+00_rb,0.60995e-01_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.31646e+00_rb,0.27774e+00_rb,0.24298e+00_rb,0.21292e+00_rb,0.18963e+00_rb, &\n        & 0.16861e+00_rb,0.14853e+00_rb,0.12785e+00_rb,0.75808e-01_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.31577e+00_rb,0.27872e+00_rb,0.24590e+00_rb,0.21953e+00_rb,0.19753e+00_rb, &\n        & 0.18064e+00_rb,0.16179e+00_rb,0.14607e+00_rb,0.10217e+00_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.31458e+00_rb,0.27978e+00_rb,0.25030e+00_rb,0.22598e+00_rb,0.20858e+00_rb, &\n        & 0.19488e+00_rb,0.17415e+00_rb,0.16696e+00_rb,0.13138e+00_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.94898e-01_rb,0.85055e-01_rb,0.10490e+00_rb,0.15201e+00_rb,0.20225e+00_rb, &\n        & 0.25227e+00_rb,0.30184e+00_rb,0.34935e+00_rb,0.39726e+00_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.95143e-01_rb,0.87211e-01_rb,0.12685e+00_rb,0.18956e+00_rb,0.25226e+00_rb, &\n        & 0.31465e+00_rb,0.37635e+00_rb,0.43547e+00_rb,0.49508e+00_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.95189e-01_rb,0.92182e-01_rb,0.15432e+00_rb,0.23093e+00_rb,0.30732e+00_rb, &\n        & 0.38333e+00_rb,0.45850e+00_rb,0.53039e+00_rb,0.60271e+00_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.95231e-01_rb,0.10069e+00_rb,0.18420e+00_rb,0.27567e+00_rb,0.36689e+00_rb, &\n        & 0.45778e+00_rb,0.54750e+00_rb,0.63309e+00_rb,0.71941e+00_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.95218e-01_rb,0.11224e+00_rb,0.21607e+00_rb,0.32340e+00_rb,0.43052e+00_rb, &\n        & 0.53710e+00_rb,0.64228e+00_rb,0.74267e+00_rb,0.84389e+00_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.11396e+00_rb,0.10141e+00_rb,0.10674e+00_rb,0.14459e+00_rb,0.19233e+00_rb, &\n        & 0.23999e+00_rb,0.28714e+00_rb,0.33260e+00_rb,0.38043e+00_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.11432e+00_rb,0.10261e+00_rb,0.12520e+00_rb,0.18276e+00_rb,0.24324e+00_rb, &\n        & 0.30342e+00_rb,0.36297e+00_rb,0.42016e+00_rb,0.48074e+00_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.11451e+00_rb,0.10490e+00_rb,0.15054e+00_rb,0.22514e+00_rb,0.29969e+00_rb, &\n        & 0.37388e+00_rb,0.44723e+00_rb,0.51774e+00_rb,0.59231e+00_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.11456e+00_rb,0.10971e+00_rb,0.18129e+00_rb,0.27136e+00_rb,0.36114e+00_rb, &\n        & 0.45069e+00_rb,0.53922e+00_rb,0.62384e+00_rb,0.71399e+00_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.11453e+00_rb,0.11800e+00_rb,0.21439e+00_rb,0.32093e+00_rb,0.42721e+00_rb, &\n        & 0.53302e+00_rb,0.63780e+00_rb,0.73784e+00_rb,0.84437e+00_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.13655e+00_rb,0.12054e+00_rb,0.11124e+00_rb,0.13153e+00_rb,0.17207e+00_rb, &\n        & 0.21470e+00_rb,0.25693e+00_rb,0.29779e+00_rb,0.34231e+00_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.13707e+00_rb,0.12216e+00_rb,0.12413e+00_rb,0.16670e+00_rb,0.22186e+00_rb, &\n        & 0.27683e+00_rb,0.33137e+00_rb,0.38384e+00_rb,0.44145e+00_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.13747e+00_rb,0.12319e+00_rb,0.14360e+00_rb,0.20888e+00_rb,0.27797e+00_rb, &\n        & 0.34687e+00_rb,0.41517e+00_rb,0.48101e+00_rb,0.55322e+00_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.13768e+00_rb,0.12546e+00_rb,0.17113e+00_rb,0.25534e+00_rb,0.33989e+00_rb, &\n        & 0.42417e+00_rb,0.50744e+00_rb,0.58796e+00_rb,0.67649e+00_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.13772e+00_rb,0.12983e+00_rb,0.20407e+00_rb,0.30559e+00_rb,0.40688e+00_rb, &\n        & 0.50779e+00_rb,0.60773e+00_rb,0.70383e+00_rb,0.80998e+00_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.16353e+00_rb,0.14321e+00_rb,0.12667e+00_rb,0.12562e+00_rb,0.14945e+00_rb, &\n        & 0.18589e+00_rb,0.22262e+00_rb,0.25813e+00_rb,0.29728e+00_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.16418e+00_rb,0.14525e+00_rb,0.13251e+00_rb,0.15131e+00_rb,0.19654e+00_rb, &\n        & 0.24525e+00_rb,0.29354e+00_rb,0.34060e+00_rb,0.39212e+00_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.16461e+00_rb,0.14670e+00_rb,0.14414e+00_rb,0.18897e+00_rb,0.25116e+00_rb, &\n        & 0.31348e+00_rb,0.37525e+00_rb,0.43507e+00_rb,0.50121e+00_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.16491e+00_rb,0.14777e+00_rb,0.16361e+00_rb,0.23441e+00_rb,0.31211e+00_rb, &\n        & 0.38952e+00_rb,0.46648e+00_rb,0.54097e+00_rb,0.62321e+00_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.16511e+00_rb,0.15008e+00_rb,0.19240e+00_rb,0.28461e+00_rb,0.37902e+00_rb, &\n        & 0.47310e+00_rb,0.56644e+00_rb,0.65651e+00_rb,0.75672e+00_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.19509e+00_rb,0.17082e+00_rb,0.14980e+00_rb,0.13204e+00_rb,0.13395e+00_rb, &\n        & 0.16269e+00_rb,0.19465e+00_rb,0.22562e+00_rb,0.26041e+00_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.19619e+00_rb,0.17214e+00_rb,0.15205e+00_rb,0.14710e+00_rb,0.17263e+00_rb, &\n        & 0.21401e+00_rb,0.25633e+00_rb,0.29729e+00_rb,0.34247e+00_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.19681e+00_rb,0.17444e+00_rb,0.15815e+00_rb,0.17421e+00_rb,0.22342e+00_rb, &\n        & 0.27889e+00_rb,0.33405e+00_rb,0.38778e+00_rb,0.44627e+00_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.19721e+00_rb,0.17581e+00_rb,0.16979e+00_rb,0.21414e+00_rb,0.28278e+00_rb, &\n        & 0.35302e+00_rb,0.42274e+00_rb,0.49080e+00_rb,0.56501e+00_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.19732e+00_rb,0.17699e+00_rb,0.18956e+00_rb,0.26168e+00_rb,0.34842e+00_rb, &\n        & 0.43503e+00_rb,0.52113e+00_rb,0.60494e+00_rb,0.69634e+00_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.23167e+00_rb,0.20281e+00_rb,0.17680e+00_rb,0.14997e+00_rb,0.13324e+00_rb, &\n        & 0.14585e+00_rb,0.17450e+00_rb,0.20194e+00_rb,0.23383e+00_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.23317e+00_rb,0.20416e+00_rb,0.17934e+00_rb,0.15819e+00_rb,0.15707e+00_rb, &\n        & 0.18679e+00_rb,0.22357e+00_rb,0.25924e+00_rb,0.29921e+00_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.23428e+00_rb,0.20631e+00_rb,0.18228e+00_rb,0.17432e+00_rb,0.19753e+00_rb, &\n        & 0.24343e+00_rb,0.29156e+00_rb,0.33836e+00_rb,0.38981e+00_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.23494e+00_rb,0.20857e+00_rb,0.18851e+00_rb,0.20211e+00_rb,0.25104e+00_rb, &\n        & 0.31278e+00_rb,0.37475e+00_rb,0.43549e+00_rb,0.50069e+00_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.23514e+00_rb,0.20988e+00_rb,0.20063e+00_rb,0.24116e+00_rb,0.31413e+00_rb, &\n        & 0.39227e+00_rb,0.47006e+00_rb,0.54611e+00_rb,0.62816e+00_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.27443e+00_rb,0.24019e+00_rb,0.20758e+00_rb,0.17610e+00_rb,0.14566e+00_rb, &\n        & 0.14000e+00_rb,0.16506e+00_rb,0.19019e+00_rb,0.22128e+00_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.27620e+00_rb,0.24179e+00_rb,0.21121e+00_rb,0.17965e+00_rb,0.15984e+00_rb, &\n        & 0.16864e+00_rb,0.20104e+00_rb,0.23213e+00_rb,0.26949e+00_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.27747e+00_rb,0.24292e+00_rb,0.21364e+00_rb,0.18907e+00_rb,0.18625e+00_rb, &\n        & 0.21432e+00_rb,0.25652e+00_rb,0.29760e+00_rb,0.34338e+00_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.27840e+00_rb,0.24591e+00_rb,0.21750e+00_rb,0.20704e+00_rb,0.22722e+00_rb, &\n        & 0.27512e+00_rb,0.32963e+00_rb,0.38304e+00_rb,0.44058e+00_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.27872e+00_rb,0.24790e+00_rb,0.22377e+00_rb,0.23568e+00_rb,0.28140e+00_rb, &\n        & 0.34919e+00_rb,0.41848e+00_rb,0.48672e+00_rb,0.55917e+00_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.32341e+00_rb,0.28305e+00_rb,0.24270e+00_rb,0.20626e+00_rb,0.16778e+00_rb, &\n        & 0.14644e+00_rb,0.16206e+00_rb,0.18656e+00_rb,0.21702e+00_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.32568e+00_rb,0.28506e+00_rb,0.24756e+00_rb,0.20963e+00_rb,0.17522e+00_rb, &\n        & 0.16516e+00_rb,0.19045e+00_rb,0.21956e+00_rb,0.25530e+00_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.32734e+00_rb,0.28654e+00_rb,0.25088e+00_rb,0.21479e+00_rb,0.19195e+00_rb, &\n        & 0.19819e+00_rb,0.23472e+00_rb,0.27107e+00_rb,0.31461e+00_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.32837e+00_rb,0.28793e+00_rb,0.25332e+00_rb,0.22544e+00_rb,0.22100e+00_rb, &\n        & 0.24722e+00_rb,0.29529e+00_rb,0.34210e+00_rb,0.39526e+00_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.32863e+00_rb,0.29096e+00_rb,0.25794e+00_rb,0.24543e+00_rb,0.26342e+00_rb, &\n        & 0.31218e+00_rb,0.37382e+00_rb,0.43401e+00_rb,0.50027e+00_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.37878e+00_rb,0.33149e+00_rb,0.28420e+00_rb,0.23973e+00_rb,0.19541e+00_rb, &\n        & 0.16103e+00_rb,0.16029e+00_rb,0.18365e+00_rb,0.21308e+00_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.38160e+00_rb,0.33397e+00_rb,0.28731e+00_rb,0.24432e+00_rb,0.19953e+00_rb, &\n        & 0.17386e+00_rb,0.18539e+00_rb,0.21378e+00_rb,0.24833e+00_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.38370e+00_rb,0.33584e+00_rb,0.29267e+00_rb,0.24777e+00_rb,0.20961e+00_rb, &\n        & 0.19622e+00_rb,0.22137e+00_rb,0.25542e+00_rb,0.29676e+00_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.38483e+00_rb,0.33686e+00_rb,0.29593e+00_rb,0.25505e+00_rb,0.22908e+00_rb, &\n        & 0.23318e+00_rb,0.27287e+00_rb,0.31549e+00_rb,0.36559e+00_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.38520e+00_rb,0.33870e+00_rb,0.29863e+00_rb,0.26759e+00_rb,0.26094e+00_rb, &\n        & 0.28563e+00_rb,0.34036e+00_rb,0.39396e+00_rb,0.45596e+00_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.44139e+00_rb,0.38627e+00_rb,0.33114e+00_rb,0.27661e+00_rb,0.22671e+00_rb, &\n        & 0.18314e+00_rb,0.16439e+00_rb,0.18365e+00_rb,0.21302e+00_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.44442e+00_rb,0.38894e+00_rb,0.33346e+00_rb,0.28317e+00_rb,0.23077e+00_rb, &\n        & 0.19173e+00_rb,0.18540e+00_rb,0.21159e+00_rb,0.24601e+00_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.44688e+00_rb,0.39111e+00_rb,0.33884e+00_rb,0.28735e+00_rb,0.23759e+00_rb, &\n        & 0.20864e+00_rb,0.21693e+00_rb,0.24969e+00_rb,0.29058e+00_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.44794e+00_rb,0.39207e+00_rb,0.34326e+00_rb,0.29193e+00_rb,0.25105e+00_rb, &\n        & 0.23562e+00_rb,0.26192e+00_rb,0.30247e+00_rb,0.35138e+00_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.44820e+00_rb,0.39253e+00_rb,0.34576e+00_rb,0.30181e+00_rb,0.27401e+00_rb, &\n        & 0.27758e+00_rb,0.32230e+00_rb,0.37259e+00_rb,0.43225e+00_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.51225e+00_rb,0.44827e+00_rb,0.38430e+00_rb,0.32096e+00_rb,0.26380e+00_rb, &\n        & 0.21204e+00_rb,0.18122e+00_rb,0.19575e+00_rb,0.22762e+00_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.51551e+00_rb,0.45114e+00_rb,0.38677e+00_rb,0.32842e+00_rb,0.26803e+00_rb, &\n        & 0.22031e+00_rb,0.20295e+00_rb,0.22783e+00_rb,0.26563e+00_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.51720e+00_rb,0.45265e+00_rb,0.39154e+00_rb,0.33278e+00_rb,0.27451e+00_rb, &\n        & 0.23732e+00_rb,0.23493e+00_rb,0.26904e+00_rb,0.31377e+00_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.51766e+00_rb,0.45307e+00_rb,0.39664e+00_rb,0.33683e+00_rb,0.28805e+00_rb, &\n        & 0.26198e+00_rb,0.27963e+00_rb,0.32252e+00_rb,0.37505e+00_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.51687e+00_rb,0.45253e+00_rb,0.39906e+00_rb,0.34713e+00_rb,0.30874e+00_rb, &\n        & 0.30122e+00_rb,0.34231e+00_rb,0.39543e+00_rb,0.45934e+00_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.58922e+00_rb,0.51562e+00_rb,0.44203e+00_rb,0.36905e+00_rb,0.30406e+00_rb, &\n        & 0.24465e+00_rb,0.20183e+00_rb,0.21102e+00_rb,0.20343e+00_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.59167e+00_rb,0.51780e+00_rb,0.44391e+00_rb,0.37709e+00_rb,0.30888e+00_rb, &\n        & 0.25236e+00_rb,0.22396e+00_rb,0.24700e+00_rb,0.27515e+00_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.59289e+00_rb,0.51887e+00_rb,0.44833e+00_rb,0.38190e+00_rb,0.31478e+00_rb, &\n        & 0.26966e+00_rb,0.25708e+00_rb,0.29183e+00_rb,0.34036e+00_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.59238e+00_rb,0.51846e+00_rb,0.45409e+00_rb,0.38554e+00_rb,0.32896e+00_rb, &\n        & 0.29236e+00_rb,0.30023e+00_rb,0.34558e+00_rb,0.40217e+00_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.59040e+00_rb,0.51681e+00_rb,0.45607e+00_rb,0.39582e+00_rb,0.34740e+00_rb, &\n        & 0.32863e+00_rb,0.36471e+00_rb,0.42134e+00_rb,0.48947e+00_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.67101e+00_rb,0.58718e+00_rb,0.50336e+00_rb,0.42031e+00_rb,0.34716e+00_rb, &\n        & 0.27980e+00_rb,0.22553e+00_rb,0.22887e+00_rb,0.21243e+00_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.67268e+00_rb,0.58864e+00_rb,0.50464e+00_rb,0.42832e+00_rb,0.35207e+00_rb, &\n        & 0.28740e+00_rb,0.24801e+00_rb,0.26765e+00_rb,0.28879e+00_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.67256e+00_rb,0.58859e+00_rb,0.50813e+00_rb,0.43372e+00_rb,0.35764e+00_rb, &\n        & 0.30459e+00_rb,0.28195e+00_rb,0.31558e+00_rb,0.36763e+00_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.67050e+00_rb,0.58682e+00_rb,0.51379e+00_rb,0.43676e+00_rb,0.37243e+00_rb, &\n        & 0.32590e+00_rb,0.32370e+00_rb,0.37117e+00_rb,0.43203e+00_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.66719e+00_rb,0.58400e+00_rb,0.51581e+00_rb,0.44632e+00_rb,0.38956e+00_rb, &\n        & 0.35928e+00_rb,0.38845e+00_rb,0.44876e+00_rb,0.52114e+00_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.10138e+00_rb,0.11271e+00_rb,0.22512e+00_rb,0.33705e+00_rb,0.44854e+00_rb, &\n        & 0.55854e+00_rb,0.66519e+00_rb,0.75942e+00_rb,0.85612e+00_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.10145e+00_rb,0.13913e+00_rb,0.27783e+00_rb,0.41606e+00_rb,0.55341e+00_rb, &\n        & 0.68935e+00_rb,0.82123e+00_rb,0.93793e+00_rb,0.10573e+01_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.10144e+00_rb,0.16758e+00_rb,0.33464e+00_rb,0.50118e+00_rb,0.66683e+00_rb, &\n        & 0.83041e+00_rb,0.98914e+00_rb,0.11301e+01_rb,0.12744e+01_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.10142e+00_rb,0.19759e+00_rb,0.39475e+00_rb,0.59125e+00_rb,0.78644e+00_rb, &\n        & 0.97913e+00_rb,0.11666e+01_rb,0.13327e+01_rb,0.15036e+01_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.10117e+00_rb,0.22893e+00_rb,0.45719e+00_rb,0.68491e+00_rb,0.91083e+00_rb, &\n        & 0.11348e+01_rb,0.13522e+01_rb,0.15448e+01_rb,0.17423e+01_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.12283e+00_rb,0.11939e+00_rb,0.23586e+00_rb,0.35344e+00_rb,0.46995e+00_rb, &\n        & 0.58562e+00_rb,0.69771e+00_rb,0.79719e+00_rb,0.91456e+00_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.12300e+00_rb,0.14726e+00_rb,0.29424e+00_rb,0.44061e+00_rb,0.58626e+00_rb, &\n        & 0.73031e+00_rb,0.87019e+00_rb,0.99468e+00_rb,0.11413e+01_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.12308e+00_rb,0.17880e+00_rb,0.35729e+00_rb,0.53471e+00_rb,0.71190e+00_rb, &\n        & 0.88678e+00_rb,0.10560e+01_rb,0.12083e+01_rb,0.13858e+01_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.12303e+00_rb,0.21231e+00_rb,0.42408e+00_rb,0.63552e+00_rb,0.84482e+00_rb, &\n        & 0.10530e+01_rb,0.12550e+01_rb,0.14355e+01_rb,0.16461e+01_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.12277e+00_rb,0.24738e+00_rb,0.49418e+00_rb,0.74021e+00_rb,0.98480e+00_rb, &\n        & 0.12263e+01_rb,0.14622e+01_rb,0.16712e+01_rb,0.19192e+01_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.14866e+00_rb,0.13122e+00_rb,0.23281e+00_rb,0.34894e+00_rb,0.46454e+00_rb, &\n        & 0.57840e+00_rb,0.68947e+00_rb,0.78868e+00_rb,0.91936e+00_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.14909e+00_rb,0.15020e+00_rb,0.29535e+00_rb,0.44246e+00_rb,0.58879e+00_rb, &\n        & 0.73298e+00_rb,0.87446e+00_rb,0.10004e+01_rb,0.11652e+01_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.14932e+00_rb,0.18193e+00_rb,0.36339e+00_rb,0.54464e+00_rb,0.72472e+00_rb, &\n        & 0.90302e+00_rb,0.10769e+01_rb,0.12326e+01_rb,0.14351e+01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.14936e+00_rb,0.21850e+00_rb,0.43638e+00_rb,0.65369e+00_rb,0.87034e+00_rb, &\n        & 0.10842e+01_rb,0.12925e+01_rb,0.14807e+01_rb,0.17238e+01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.14913e+00_rb,0.25689e+00_rb,0.51319e+00_rb,0.76884e+00_rb,0.10226e+01_rb, &\n        & 0.12750e+01_rb,0.15205e+01_rb,0.17418e+01_rb,0.20260e+01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.17957e+00_rb,0.15775e+00_rb,0.22276e+00_rb,0.33390e+00_rb,0.44423e+00_rb, &\n        & 0.55367e+00_rb,0.66019e+00_rb,0.75611e+00_rb,0.88680e+00_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.18040e+00_rb,0.16246e+00_rb,0.28812e+00_rb,0.43146e+00_rb,0.57438e+00_rb, &\n        & 0.71573e+00_rb,0.85374e+00_rb,0.97839e+00_rb,0.11468e+01_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.18097e+00_rb,0.18562e+00_rb,0.36044e+00_rb,0.53994e+00_rb,0.71844e+00_rb, &\n        & 0.89550e+00_rb,0.10683e+01_rb,0.12247e+01_rb,0.14347e+01_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.18121e+00_rb,0.21975e+00_rb,0.43861e+00_rb,0.65714e+00_rb,0.87443e+00_rb, &\n        & 0.10900e+01_rb,0.13008e+01_rb,0.14906e+01_rb,0.17458e+01_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.18106e+00_rb,0.26092e+00_rb,0.52133e+00_rb,0.78101e+00_rb,0.10395e+01_rb, &\n        & 0.12958e+01_rb,0.15460e+01_rb,0.17735e+01_rb,0.20757e+01_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.21697e+00_rb,0.19036e+00_rb,0.21215e+00_rb,0.31312e+00_rb,0.41669e+00_rb, &\n        & 0.51939e+00_rb,0.61996e+00_rb,0.71133e+00_rb,0.83486e+00_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.21794e+00_rb,0.19137e+00_rb,0.27611e+00_rb,0.41368e+00_rb,0.55071e+00_rb, &\n        & 0.68646e+00_rb,0.81902e+00_rb,0.94006e+00_rb,0.11028e+01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.21886e+00_rb,0.20114e+00_rb,0.35159e+00_rb,0.52668e+00_rb,0.70100e+00_rb, &\n        & 0.87403e+00_rb,0.10428e+01_rb,0.11973e+01_rb,0.14036e+01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.21947e+00_rb,0.22776e+00_rb,0.43385e+00_rb,0.64994e+00_rb,0.86545e+00_rb, &\n        & 0.10790e+01_rb,0.12882e+01_rb,0.14795e+01_rb,0.17328e+01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.21950e+00_rb,0.26410e+00_rb,0.52266e+00_rb,0.78311e+00_rb,0.10422e+01_rb, &\n        & 0.12993e+01_rb,0.15508e+01_rb,0.17813e+01_rb,0.20867e+01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.26192e+00_rb,0.22964e+00_rb,0.21396e+00_rb,0.28442e+00_rb,0.37859e+00_rb, &\n        & 0.47209e+00_rb,0.56361e+00_rb,0.64772e+00_rb,0.75904e+00_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.26327e+00_rb,0.23094e+00_rb,0.26427e+00_rb,0.38535e+00_rb,0.51302e+00_rb, &\n        & 0.63961e+00_rb,0.76380e+00_rb,0.87816e+00_rb,0.10282e+01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.26410e+00_rb,0.23177e+00_rb,0.33446e+00_rb,0.50065e+00_rb,0.66671e+00_rb, &\n        & 0.83097e+00_rb,0.99257e+00_rb,0.11416e+01_rb,0.13361e+01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.26501e+00_rb,0.24670e+00_rb,0.42047e+00_rb,0.62999e+00_rb,0.83846e+00_rb, &\n        & 0.10456e+01_rb,0.12484e+01_rb,0.14350e+01_rb,0.16802e+01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.26533e+00_rb,0.27595e+00_rb,0.51477e+00_rb,0.77155e+00_rb,0.10272e+01_rb, &\n        & 0.12802e+01_rb,0.15288e+01_rb,0.17573e+01_rb,0.20585e+01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.31548e+00_rb,0.27644e+00_rb,0.23749e+00_rb,0.26350e+00_rb,0.33563e+00_rb, &\n        & 0.41860e+00_rb,0.50000e+00_rb,0.57557e+00_rb,0.67307e+00_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.31747e+00_rb,0.27830e+00_rb,0.26813e+00_rb,0.35238e+00_rb,0.46780e+00_rb, &\n        & 0.58337e+00_rb,0.69695e+00_rb,0.80281e+00_rb,0.93825e+00_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.31845e+00_rb,0.27929e+00_rb,0.32577e+00_rb,0.46831e+00_rb,0.62377e+00_rb, &\n        & 0.77768e+00_rb,0.92868e+00_rb,0.10691e+01_rb,0.12510e+01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.31933e+00_rb,0.28093e+00_rb,0.40219e+00_rb,0.60218e+00_rb,0.80124e+00_rb, &\n        & 0.99953e+00_rb,0.11938e+01_rb,0.13738e+01_rb,0.16072e+01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.31962e+00_rb,0.30041e+00_rb,0.50060e+00_rb,0.75020e+00_rb,0.99895e+00_rb, &\n        & 0.12457e+01_rb,0.14877e+01_rb,0.17119e+01_rb,0.20030e+01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.37865e+00_rb,0.33167e+00_rb,0.28471e+00_rb,0.26304e+00_rb,0.29883e+00_rb, &\n        & 0.36478e+00_rb,0.43575e+00_rb,0.50177e+00_rb,0.58698e+00_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.38151e+00_rb,0.33434e+00_rb,0.29226e+00_rb,0.33286e+00_rb,0.42010e+00_rb, &\n        & 0.52397e+00_rb,0.62612e+00_rb,0.72153e+00_rb,0.84257e+00_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.38305e+00_rb,0.33575e+00_rb,0.33335e+00_rb,0.43312e+00_rb,0.57580e+00_rb, &\n        & 0.71815e+00_rb,0.85781e+00_rb,0.98826e+00_rb,0.11549e+01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.38418e+00_rb,0.33683e+00_rb,0.39821e+00_rb,0.56836e+00_rb,0.75670e+00_rb, &\n        & 0.94382e+00_rb,0.11276e+01_rb,0.12990e+01_rb,0.15179e+01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.38435e+00_rb,0.34032e+00_rb,0.48169e+00_rb,0.72105e+00_rb,0.95979e+00_rb, &\n        & 0.11976e+01_rb,0.14311e+01_rb,0.16484e+01_rb,0.19256e+01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.45391e+00_rb,0.39745e+00_rb,0.34100e+00_rb,0.28597e+00_rb,0.28236e+00_rb, &\n        & 0.32683e+00_rb,0.39003e+00_rb,0.44780e+00_rb,0.52646e+00_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.45720e+00_rb,0.40042e+00_rb,0.34369e+00_rb,0.33249e+00_rb,0.37993e+00_rb, &\n        & 0.46180e+00_rb,0.55195e+00_rb,0.63669e+00_rb,0.74252e+00_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.45930e+00_rb,0.40241e+00_rb,0.35995e+00_rb,0.41477e+00_rb,0.52224e+00_rb, &\n        & 0.65162e+00_rb,0.77908e+00_rb,0.89846e+00_rb,0.10481e+01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.46056e+00_rb,0.40360e+00_rb,0.40974e+00_rb,0.52851e+00_rb,0.70308e+00_rb, &\n        & 0.87703e+00_rb,0.10485e+01_rb,0.12091e+01_rb,0.14102e+01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.46097e+00_rb,0.40408e+00_rb,0.48083e+00_rb,0.68278e+00_rb,0.90959e+00_rb, &\n        & 0.11347e+01_rb,0.13562e+01_rb,0.15644e+01_rb,0.18239e+01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.54348e+00_rb,0.47578e+00_rb,0.40808e+00_rb,0.34039e+00_rb,0.29202e+00_rb, &\n        & 0.31463e+00_rb,0.37530e+00_rb,0.43003e+00_rb,0.50713e+00_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.54726e+00_rb,0.47923e+00_rb,0.41116e+00_rb,0.35738e+00_rb,0.36873e+00_rb, &\n        & 0.42815e+00_rb,0.51125e+00_rb,0.58827e+00_rb,0.68902e+00_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.54904e+00_rb,0.48087e+00_rb,0.41270e+00_rb,0.42187e+00_rb,0.48592e+00_rb, &\n        & 0.59834e+00_rb,0.71541e+00_rb,0.82550e+00_rb,0.96166e+00_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.55066e+00_rb,0.48237e+00_rb,0.44342e+00_rb,0.51829e+00_rb,0.65846e+00_rb, &\n        & 0.82163e+00_rb,0.98259e+00_rb,0.11344e+01_rb,0.13209e+01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.55078e+00_rb,0.48256e+00_rb,0.50243e+00_rb,0.65112e+00_rb,0.86662e+00_rb, &\n        & 0.10813e+01_rb,0.12932e+01_rb,0.14933e+01_rb,0.17377e+01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.65114e+00_rb,0.56997e+00_rb,0.48880e+00_rb,0.40765e+00_rb,0.34114e+00_rb, &\n        & 0.35299e+00_rb,0.42114e+00_rb,0.48311e+00_rb,0.56879e+00_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.65409e+00_rb,0.57269e+00_rb,0.49126e+00_rb,0.41893e+00_rb,0.41551e+00_rb, &\n        & 0.46863e+00_rb,0.55986e+00_rb,0.64427e+00_rb,0.75415e+00_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.65488e+00_rb,0.57345e+00_rb,0.49197e+00_rb,0.47947e+00_rb,0.53169e+00_rb, &\n        & 0.64034e+00_rb,0.76581e+00_rb,0.88450e+00_rb,0.10287e+01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.65537e+00_rb,0.57398e+00_rb,0.51344e+00_rb,0.57405e+00_rb,0.70306e+00_rb, &\n        & 0.87735e+00_rb,0.10495e+01_rb,0.12127e+01_rb,0.14094e+01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.65395e+00_rb,0.57279e+00_rb,0.56858e+00_rb,0.69997e+00_rb,0.92273e+00_rb, &\n        & 0.11516e+01_rb,0.13780e+01_rb,0.15930e+01_rb,0.18499e+01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.77619e+00_rb,0.67938e+00_rb,0.58258e+00_rb,0.48578e+00_rb,0.39872e+00_rb, &\n        & 0.39471e+00_rb,0.47009e+00_rb,0.53992e+00_rb,0.63430e+00_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.77753e+00_rb,0.68052e+00_rb,0.58367e+00_rb,0.49090e+00_rb,0.46899e+00_rb, &\n        & 0.51194e+00_rb,0.61162e+00_rb,0.70447e+00_rb,0.82357e+00_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.77638e+00_rb,0.67972e+00_rb,0.58318e+00_rb,0.54530e+00_rb,0.58387e+00_rb, &\n        & 0.68245e+00_rb,0.81638e+00_rb,0.94341e+00_rb,0.10965e+01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.77440e+00_rb,0.67810e+00_rb,0.59462e+00_rb,0.63695e+00_rb,0.74739e+00_rb, &\n        & 0.93197e+00_rb,0.11153e+01_rb,0.12903e+01_rb,0.14970e+01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.77021e+00_rb,0.67464e+00_rb,0.64357e+00_rb,0.75637e+00_rb,0.97798e+00_rb, &\n        & 0.12207e+01_rb,0.14609e+01_rb,0.16904e+01_rb,0.19598e+01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.91895e+00_rb,0.80429e+00_rb,0.68964e+00_rb,0.57498e+00_rb,0.46528e+00_rb, &\n        & 0.44199e+00_rb,0.52028e+00_rb,0.59834e+00_rb,0.70141e+00_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.91759e+00_rb,0.80320e+00_rb,0.68881e+00_rb,0.57463e+00_rb,0.52956e+00_rb, &\n        & 0.55768e+00_rb,0.66492e+00_rb,0.76644e+00_rb,0.89471e+00_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.91361e+00_rb,0.79979e+00_rb,0.68598e+00_rb,0.61940e+00_rb,0.64101e+00_rb, &\n        & 0.72712e+00_rb,0.86969e+00_rb,0.10053e+01_rb,0.11679e+01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.90733e+00_rb,0.79439e+00_rb,0.68655e+00_rb,0.70603e+00_rb,0.79560e+00_rb, &\n        & 0.98356e+00_rb,0.11773e+01_rb,0.13631e+01_rb,0.15788e+01_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.89862e+00_rb,0.78697e+00_rb,0.72670e+00_rb,0.82187e+00_rb,0.10292e+01_rb, &\n        & 0.12848e+01_rb,0.15381e+01_rb,0.17818e+01_rb,0.20623e+01_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.80849e-06_rb,0.81362e-06_rb,0.81391e-06_rb,0.81832e-06_rb,0.81000e-06_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.62593e-06_rb,0.63090e-06_rb,0.63158e-06_rb,0.62821e-06_rb,0.62502e-06_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.47825e-06_rb,0.47852e-06_rb,0.47713e-06_rb,0.47688e-06_rb,0.47989e-06_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.36039e-06_rb,0.35905e-06_rb,0.36064e-06_rb,0.36298e-06_rb,0.36860e-06_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.27679e-06_rb,0.27608e-06_rb,0.27742e-06_rb,0.28112e-06_rb,0.28759e-06_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.21771e-06_rb,0.21826e-06_rb,0.22019e-06_rb,0.22429e-06_rb,0.22996e-06_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.17334e-06_rb,0.17441e-06_rb,0.17681e-06_rb,0.18055e-06_rb,0.18537e-06_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.13974e-06_rb,0.14076e-06_rb,0.14326e-06_rb,0.14694e-06_rb,0.15070e-06_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.11289e-06_rb,0.11394e-06_rb,0.11631e-06_rb,0.11963e-06_rb,0.12284e-06_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.90574e-07_rb,0.91914e-07_rb,0.94046e-07_rb,0.96998e-07_rb,0.99841e-07_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.72483e-07_rb,0.74069e-07_rb,0.76186e-07_rb,0.78482e-07_rb,0.80964e-07_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.57463e-07_rb,0.59130e-07_rb,0.60802e-07_rb,0.62903e-07_rb,0.65218e-07_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.45767e-07_rb,0.47184e-07_rb,0.48696e-07_rb,0.50494e-07_rb,0.52527e-07_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.36636e-07_rb,0.37794e-07_rb,0.39217e-07_rb,0.40768e-07_rb,0.42465e-07_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.29173e-07_rb,0.30183e-07_rb,0.31469e-07_rb,0.32834e-07_rb,0.34213e-07_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.23225e-07_rb,0.24137e-07_rb,0.25167e-07_rb,0.26378e-07_rb,0.27534e-07_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.18675e-07_rb,0.19472e-07_rb,0.20340e-07_rb,0.21340e-07_rb,0.22286e-07_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.15020e-07_rb,0.15690e-07_rb,0.16468e-07_rb,0.17258e-07_rb,0.18060e-07_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.12149e-07_rb,0.12728e-07_rb,0.13375e-07_rb,0.14035e-07_rb,0.14711e-07_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.98596e-08_rb,0.10344e-07_rb,0.10879e-07_rb,0.11427e-07_rb,0.12003e-07_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.80127e-08_rb,0.84199e-08_rb,0.88610e-08_rb,0.93188e-08_rb,0.98102e-08_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.65473e-08_rb,0.68850e-08_rb,0.72470e-08_rb,0.76379e-08_rb,0.80329e-08_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.53107e-08_rb,0.55930e-08_rb,0.58984e-08_rb,0.62161e-08_rb,0.65511e-08_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.42749e-08_rb,0.45072e-08_rb,0.47592e-08_rb,0.50244e-08_rb,0.53034e-08_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.34593e-08_rb,0.36479e-08_rb,0.38557e-08_rb,0.40714e-08_rb,0.43031e-08_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.27981e-08_rb,0.29525e-08_rb,0.31212e-08_rb,0.32984e-08_rb,0.34890e-08_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.22616e-08_rb,0.23879e-08_rb,0.25266e-08_rb,0.26716e-08_rb,0.28295e-08_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.18232e-08_rb,0.19245e-08_rb,0.20362e-08_rb,0.21554e-08_rb,0.22831e-08_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.14679e-08_rb,0.15511e-08_rb,0.16402e-08_rb,0.17376e-08_rb,0.18413e-08_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.11828e-08_rb,0.12488e-08_rb,0.13200e-08_rb,0.14008e-08_rb,0.14841e-08_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.94970e-09_rb,0.10028e-08_rb,0.10610e-08_rb,0.11254e-08_rb,0.11933e-08_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.76210e-09_rb,0.80401e-09_rb,0.85098e-09_rb,0.90203e-09_rb,0.95794e-09_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.61242e-09_rb,0.64471e-09_rb,0.68205e-09_rb,0.72336e-09_rb,0.76846e-09_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.49214e-09_rb,0.51642e-09_rb,0.54633e-09_rb,0.57916e-09_rb,0.61506e-09_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.39552e-09_rb,0.41343e-09_rb,0.43658e-09_rb,0.46266e-09_rb,0.49121e-09_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.31773e-09_rb,0.33161e-09_rb,0.34878e-09_rb,0.36970e-09_rb,0.39231e-09_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.25526e-09_rb,0.26613e-09_rb,0.27906e-09_rb,0.29510e-09_rb,0.31346e-09_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.20571e-09_rb,0.21419e-09_rb,0.22379e-09_rb,0.23622e-09_rb,0.25076e-09_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.16573e-09_rb,0.17251e-09_rb,0.18002e-09_rb,0.18925e-09_rb,0.20074e-09_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.13312e-09_rb,0.13888e-09_rb,0.14480e-09_rb,0.15170e-09_rb,0.16067e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.10717e-09_rb,0.11200e-09_rb,0.11653e-09_rb,0.12187e-09_rb,0.12864e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.85395e-10_rb,0.90190e-10_rb,0.93978e-10_rb,0.98115e-10_rb,0.10324e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.67933e-10_rb,0.72682e-10_rb,0.75857e-10_rb,0.79079e-10_rb,0.82942e-10_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.53572e-10_rb,0.58095e-10_rb,0.61231e-10_rb,0.63738e-10_rb,0.66738e-10_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.41729e-10_rb,0.46380e-10_rb,0.49357e-10_rb,0.51409e-10_rb,0.53743e-10_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.32319e-10_rb,0.36737e-10_rb,0.39572e-10_rb,0.41487e-10_rb,0.43327e-10_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.25820e-10_rb,0.29541e-10_rb,0.32107e-10_rb,0.33762e-10_rb,0.35250e-10_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.93809e-05_rb,0.10536e-04_rb,0.11777e-04_rb,0.13098e-04_rb,0.14486e-04_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.77050e-05_rb,0.86520e-05_rb,0.96745e-05_rb,0.10759e-04_rb,0.11891e-04_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.63112e-05_rb,0.70914e-05_rb,0.79320e-05_rb,0.88179e-05_rb,0.97344e-05_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.51672e-05_rb,0.58172e-05_rb,0.64961e-05_rb,0.72133e-05_rb,0.79595e-05_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.42470e-05_rb,0.47817e-05_rb,0.53396e-05_rb,0.59229e-05_rb,0.65385e-05_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.35105e-05_rb,0.39513e-05_rb,0.44042e-05_rb,0.48865e-05_rb,0.53983e-05_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.29057e-05_rb,0.32680e-05_rb,0.36409e-05_rb,0.40419e-05_rb,0.44646e-05_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.24132e-05_rb,0.27111e-05_rb,0.30192e-05_rb,0.33498e-05_rb,0.36985e-05_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.20041e-05_rb,0.22484e-05_rb,0.25052e-05_rb,0.27770e-05_rb,0.30661e-05_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.16762e-05_rb,0.18775e-05_rb,0.20900e-05_rb,0.23158e-05_rb,0.25543e-05_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.14013e-05_rb,0.15665e-05_rb,0.17433e-05_rb,0.19308e-05_rb,0.21290e-05_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.11680e-05_rb,0.13039e-05_rb,0.14515e-05_rb,0.16085e-05_rb,0.17733e-05_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.97491e-06_rb,0.10886e-05_rb,0.12114e-05_rb,0.13428e-05_rb,0.14806e-05_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.81608e-06_rb,0.91198e-06_rb,0.10148e-05_rb,0.11244e-05_rb,0.12392e-05_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.68407e-06_rb,0.76432e-06_rb,0.85048e-06_rb,0.94210e-06_rb,0.10393e-05_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.57340e-06_rb,0.64071e-06_rb,0.71311e-06_rb,0.78988e-06_rb,0.87304e-06_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.48234e-06_rb,0.53886e-06_rb,0.59992e-06_rb,0.66557e-06_rb,0.73565e-06_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.40628e-06_rb,0.45384e-06_rb,0.50638e-06_rb,0.56175e-06_rb,0.62086e-06_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.34276e-06_rb,0.38409e-06_rb,0.42817e-06_rb,0.47551e-06_rb,0.52508e-06_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.29024e-06_rb,0.32548e-06_rb,0.36291e-06_rb,0.40263e-06_rb,0.44423e-06_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.24623e-06_rb,0.27596e-06_rb,0.30748e-06_rb,0.34104e-06_rb,0.37571e-06_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.20814e-06_rb,0.23318e-06_rb,0.25975e-06_rb,0.28746e-06_rb,0.31674e-06_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.17399e-06_rb,0.19476e-06_rb,0.21698e-06_rb,0.24021e-06_rb,0.26463e-06_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.14352e-06_rb,0.16079e-06_rb,0.17920e-06_rb,0.19838e-06_rb,0.21852e-06_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.11644e-06_rb,0.13061e-06_rb,0.14569e-06_rb,0.16148e-06_rb,0.17794e-06_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.94327e-07_rb,0.10597e-06_rb,0.11827e-06_rb,0.13121e-06_rb,0.14471e-06_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.76386e-07_rb,0.85932e-07_rb,0.96004e-07_rb,0.10675e-06_rb,0.11785e-06_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.61093e-07_rb,0.68856e-07_rb,0.77088e-07_rb,0.85831e-07_rb,0.94878e-07_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.48781e-07_rb,0.55058e-07_rb,0.61725e-07_rb,0.68852e-07_rb,0.76234e-07_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.38909e-07_rb,0.43987e-07_rb,0.49391e-07_rb,0.55161e-07_rb,0.61197e-07_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.30779e-07_rb,0.34866e-07_rb,0.39222e-07_rb,0.43870e-07_rb,0.48785e-07_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.24249e-07_rb,0.27514e-07_rb,0.31014e-07_rb,0.34774e-07_rb,0.38772e-07_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.19076e-07_rb,0.21693e-07_rb,0.24514e-07_rb,0.27522e-07_rb,0.30756e-07_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.14949e-07_rb,0.17046e-07_rb,0.19303e-07_rb,0.21721e-07_rb,0.24320e-07_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.11627e-07_rb,0.13294e-07_rb,0.15102e-07_rb,0.17040e-07_rb,0.19115e-07_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.90208e-08_rb,0.10359e-07_rb,0.11803e-07_rb,0.13349e-07_rb,0.15003e-07_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.69979e-08_rb,0.80625e-08_rb,0.92075e-08_rb,0.10445e-07_rb,0.11768e-07_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.54507e-08_rb,0.62777e-08_rb,0.72004e-08_rb,0.81899e-08_rb,0.92488e-08_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.42541e-08_rb,0.48933e-08_rb,0.56304e-08_rb,0.64214e-08_rb,0.72725e-08_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.33161e-08_rb,0.38121e-08_rb,0.43976e-08_rb,0.50301e-08_rb,0.57140e-08_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.25817e-08_rb,0.29691e-08_rb,0.34291e-08_rb,0.39368e-08_rb,0.44836e-08_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.20203e-08_rb,0.23228e-08_rb,0.26823e-08_rb,0.30900e-08_rb,0.35285e-08_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.15833e-08_rb,0.18196e-08_rb,0.21023e-08_rb,0.24276e-08_rb,0.27787e-08_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.12403e-08_rb,0.14250e-08_rb,0.16461e-08_rb,0.19045e-08_rb,0.21855e-08_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.97249e-09_rb,0.11164e-08_rb,0.12881e-08_rb,0.14923e-08_rb,0.17175e-08_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.76431e-09_rb,0.87699e-09_rb,0.10108e-08_rb,0.11709e-08_rb,0.13516e-08_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.61553e-09_rb,0.70649e-09_rb,0.81463e-09_rb,0.94315e-09_rb,0.10907e-08_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.37708e-04_rb,0.43942e-04_rb,0.50586e-04_rb,0.57656e-04_rb,0.65139e-04_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.31694e-04_rb,0.36862e-04_rb,0.42350e-04_rb,0.48197e-04_rb,0.54341e-04_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.26564e-04_rb,0.30824e-04_rb,0.35372e-04_rb,0.40180e-04_rb,0.45231e-04_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.22232e-04_rb,0.25740e-04_rb,0.29512e-04_rb,0.33447e-04_rb,0.37588e-04_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.18578e-04_rb,0.21467e-04_rb,0.24582e-04_rb,0.27832e-04_rb,0.31221e-04_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.15530e-04_rb,0.17922e-04_rb,0.20498e-04_rb,0.23170e-04_rb,0.25973e-04_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.12972e-04_rb,0.14952e-04_rb,0.17059e-04_rb,0.19270e-04_rb,0.21580e-04_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.10858e-04_rb,0.12498e-04_rb,0.14228e-04_rb,0.16061e-04_rb,0.17958e-04_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.90819e-05_rb,0.10446e-04_rb,0.11880e-04_rb,0.13394e-04_rb,0.14951e-04_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.76648e-05_rb,0.87979e-05_rb,0.99931e-05_rb,0.11255e-04_rb,0.12542e-04_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.64634e-05_rb,0.74140e-05_rb,0.84086e-05_rb,0.94546e-05_rb,0.10527e-04_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.54523e-05_rb,0.62464e-05_rb,0.70809e-05_rb,0.79508e-05_rb,0.88446e-05_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.46110e-05_rb,0.52716e-05_rb,0.59693e-05_rb,0.66904e-05_rb,0.74322e-05_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.39134e-05_rb,0.44620e-05_rb,0.50425e-05_rb,0.56439e-05_rb,0.62577e-05_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.33208e-05_rb,0.37777e-05_rb,0.42629e-05_rb,0.47607e-05_rb,0.52714e-05_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.28177e-05_rb,0.32008e-05_rb,0.36031e-05_rb,0.40187e-05_rb,0.44358e-05_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.23932e-05_rb,0.27158e-05_rb,0.30516e-05_rb,0.33945e-05_rb,0.37416e-05_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.20340e-05_rb,0.23035e-05_rb,0.25827e-05_rb,0.28672e-05_rb,0.31559e-05_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.17308e-05_rb,0.19547e-05_rb,0.21869e-05_rb,0.24243e-05_rb,0.26649e-05_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.14734e-05_rb,0.16593e-05_rb,0.18536e-05_rb,0.20518e-05_rb,0.22514e-05_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.12538e-05_rb,0.14097e-05_rb,0.15718e-05_rb,0.17369e-05_rb,0.19013e-05_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.10626e-05_rb,0.11932e-05_rb,0.13290e-05_rb,0.14662e-05_rb,0.16025e-05_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.88990e-06_rb,0.99878e-06_rb,0.11122e-05_rb,0.12266e-05_rb,0.13395e-05_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.73535e-06_rb,0.82690e-06_rb,0.92099e-06_rb,0.10159e-05_rb,0.11099e-05_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.59728e-06_rb,0.67301e-06_rb,0.75127e-06_rb,0.83021e-06_rb,0.90845e-06_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.48484e-06_rb,0.54737e-06_rb,0.61229e-06_rb,0.67762e-06_rb,0.74258e-06_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.39347e-06_rb,0.44485e-06_rb,0.49886e-06_rb,0.55290e-06_rb,0.60674e-06_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.31488e-06_rb,0.35703e-06_rb,0.40148e-06_rb,0.44640e-06_rb,0.49091e-06_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.25130e-06_rb,0.28561e-06_rb,0.32224e-06_rb,0.35953e-06_rb,0.39618e-06_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.20030e-06_rb,0.22840e-06_rb,0.25834e-06_rb,0.28930e-06_rb,0.31965e-06_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.15807e-06_rb,0.18109e-06_rb,0.20542e-06_rb,0.23094e-06_rb,0.25635e-06_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.12418e-06_rb,0.14282e-06_rb,0.16261e-06_rb,0.18364e-06_rb,0.20465e-06_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.97383e-07_rb,0.11245e-06_rb,0.12855e-06_rb,0.14572e-06_rb,0.16307e-06_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.76015e-07_rb,0.88067e-07_rb,0.10120e-06_rb,0.11510e-06_rb,0.12935e-06_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.58813e-07_rb,0.68493e-07_rb,0.79102e-07_rb,0.90273e-07_rb,0.10200e-06_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.45440e-07_rb,0.53144e-07_rb,0.61597e-07_rb,0.70639e-07_rb,0.80255e-07_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.35015e-07_rb,0.41136e-07_rb,0.47869e-07_rb,0.55216e-07_rb,0.62994e-07_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.27056e-07_rb,0.31910e-07_rb,0.37267e-07_rb,0.43210e-07_rb,0.49522e-07_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.20908e-07_rb,0.24756e-07_rb,0.29044e-07_rb,0.33791e-07_rb,0.38904e-07_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.16131e-07_rb,0.19181e-07_rb,0.22589e-07_rb,0.26378e-07_rb,0.30504e-07_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.12418e-07_rb,0.14835e-07_rb,0.17537e-07_rb,0.20547e-07_rb,0.23860e-07_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.95994e-08_rb,0.11514e-07_rb,0.13662e-07_rb,0.16065e-07_rb,0.18717e-07_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.74239e-08_rb,0.89453e-08_rb,0.10656e-07_rb,0.12569e-07_rb,0.14693e-07_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.57300e-08_rb,0.69441e-08_rb,0.83030e-08_rb,0.98193e-08_rb,0.11523e-07_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.44152e-08_rb,0.53811e-08_rb,0.64581e-08_rb,0.76610e-08_rb,0.90201e-08_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.34072e-08_rb,0.41708e-08_rb,0.50297e-08_rb,0.59876e-08_rb,0.70684e-08_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.27302e-08_rb,0.33492e-08_rb,0.40481e-08_rb,0.48266e-08_rb,0.57046e-08_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.12015e-03_rb,0.13920e-03_rb,0.15937e-03_rb,0.18001e-03_rb,0.19929e-03_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.10256e-03_rb,0.11883e-03_rb,0.13587e-03_rb,0.15259e-03_rb,0.16812e-03_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.87203e-04_rb,0.10099e-03_rb,0.11498e-03_rb,0.12847e-03_rb,0.14114e-03_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.73859e-04_rb,0.85304e-04_rb,0.96816e-04_rb,0.10774e-03_rb,0.11805e-03_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.62334e-04_rb,0.71786e-04_rb,0.81225e-04_rb,0.90091e-04_rb,0.98454e-04_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.52581e-04_rb,0.60344e-04_rb,0.68018e-04_rb,0.75237e-04_rb,0.81903e-04_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.44197e-04_rb,0.50573e-04_rb,0.56840e-04_rb,0.62656e-04_rb,0.67968e-04_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.37151e-04_rb,0.42384e-04_rb,0.47494e-04_rb,0.52193e-04_rb,0.56467e-04_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.31193e-04_rb,0.35480e-04_rb,0.39600e-04_rb,0.43427e-04_rb,0.46870e-04_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.26374e-04_rb,0.29925e-04_rb,0.33224e-04_rb,0.36261e-04_rb,0.39040e-04_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.22315e-04_rb,0.25198e-04_rb,0.27833e-04_rb,0.30290e-04_rb,0.32509e-04_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.18883e-04_rb,0.21184e-04_rb,0.23291e-04_rb,0.25268e-04_rb,0.27046e-04_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.15977e-04_rb,0.17808e-04_rb,0.19529e-04_rb,0.21106e-04_rb,0.22533e-04_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.13524e-04_rb,0.14996e-04_rb,0.16391e-04_rb,0.17658e-04_rb,0.18796e-04_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.11433e-04_rb,0.12631e-04_rb,0.13757e-04_rb,0.14769e-04_rb,0.15677e-04_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.96558e-05_rb,0.10640e-04_rb,0.11537e-04_rb,0.12357e-04_rb,0.13086e-04_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.81632e-05_rb,0.89560e-05_rb,0.96801e-05_rb,0.10339e-04_rb,0.10919e-04_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.68972e-05_rb,0.75321e-05_rb,0.81189e-05_rb,0.86418e-05_rb,0.91120e-05_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.58255e-05_rb,0.63427e-05_rb,0.68115e-05_rb,0.72291e-05_rb,0.76088e-05_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.49235e-05_rb,0.53404e-05_rb,0.57128e-05_rb,0.60450e-05_rb,0.63540e-05_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.41602e-05_rb,0.44904e-05_rb,0.47873e-05_rb,0.50567e-05_rb,0.53085e-05_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.34993e-05_rb,0.37640e-05_rb,0.40033e-05_rb,0.42217e-05_rb,0.44321e-05_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.29168e-05_rb,0.31331e-05_rb,0.33264e-05_rb,0.35072e-05_rb,0.36808e-05_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.24105e-05_rb,0.25863e-05_rb,0.27459e-05_rb,0.28969e-05_rb,0.30433e-05_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.19699e-05_rb,0.21167e-05_rb,0.22499e-05_rb,0.23751e-05_rb,0.24984e-05_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.16085e-05_rb,0.17316e-05_rb,0.18431e-05_rb,0.19482e-05_rb,0.20520e-05_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.13140e-05_rb,0.14172e-05_rb,0.15102e-05_rb,0.15989e-05_rb,0.16862e-05_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.10643e-05_rb,0.11518e-05_rb,0.12300e-05_rb,0.13052e-05_rb,0.13789e-05_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.86103e-06_rb,0.93494e-06_rb,0.10013e-05_rb,0.10648e-05_rb,0.11275e-05_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.69566e-06_rb,0.75803e-06_rb,0.81468e-06_rb,0.86817e-06_rb,0.92113e-06_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.55856e-06_rb,0.61135e-06_rb,0.65992e-06_rb,0.70501e-06_rb,0.74915e-06_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.44644e-06_rb,0.49113e-06_rb,0.53284e-06_rb,0.57066e-06_rb,0.60776e-06_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.35638e-06_rb,0.39386e-06_rb,0.42947e-06_rb,0.46192e-06_rb,0.49295e-06_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.28317e-06_rb,0.31490e-06_rb,0.34503e-06_rb,0.37276e-06_rb,0.39894e-06_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.22341e-06_rb,0.25002e-06_rb,0.27560e-06_rb,0.29957e-06_rb,0.32144e-06_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.17554e-06_rb,0.19798e-06_rb,0.21962e-06_rb,0.24010e-06_rb,0.25876e-06_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.13737e-06_rb,0.15642e-06_rb,0.17451e-06_rb,0.19192e-06_rb,0.20795e-06_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.10754e-06_rb,0.12357e-06_rb,0.13879e-06_rb,0.15343e-06_rb,0.16712e-06_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.84121e-07_rb,0.97441e-07_rb,0.11018e-06_rb,0.12256e-06_rb,0.13419e-06_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.65604e-07_rb,0.76564e-07_rb,0.87356e-07_rb,0.97703e-07_rb,0.10745e-06_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.50943e-07_rb,0.59988e-07_rb,0.69048e-07_rb,0.77629e-07_rb,0.85933e-07_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.39679e-07_rb,0.47121e-07_rb,0.54614e-07_rb,0.61766e-07_rb,0.68783e-07_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.30934e-07_rb,0.36980e-07_rb,0.43113e-07_rb,0.49142e-07_rb,0.55005e-07_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.24050e-07_rb,0.28923e-07_rb,0.33993e-07_rb,0.39047e-07_rb,0.43928e-07_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.18660e-07_rb,0.22557e-07_rb,0.26748e-07_rb,0.30951e-07_rb,0.35000e-07_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.14488e-07_rb,0.17625e-07_rb,0.21043e-07_rb,0.24511e-07_rb,0.27884e-07_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.11674e-07_rb,0.14234e-07_rb,0.17044e-07_rb,0.19902e-07_rb,0.22702e-07_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.36288e-03_rb,0.38577e-03_rb,0.40824e-03_rb,0.43207e-03_rb,0.45772e-03_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.30781e-03_rb,0.32754e-03_rb,0.34745e-03_rb,0.36873e-03_rb,0.39050e-03_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.26023e-03_rb,0.27734e-03_rb,0.29481e-03_rb,0.31288e-03_rb,0.33087e-03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.21963e-03_rb,0.23414e-03_rb,0.24882e-03_rb,0.26383e-03_rb,0.27866e-03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.18486e-03_rb,0.19716e-03_rb,0.20932e-03_rb,0.22139e-03_rb,0.23350e-03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.15516e-03_rb,0.16534e-03_rb,0.17526e-03_rb,0.18520e-03_rb,0.19528e-03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.12986e-03_rb,0.13820e-03_rb,0.14634e-03_rb,0.15465e-03_rb,0.16304e-03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.10854e-03_rb,0.11542e-03_rb,0.12213e-03_rb,0.12898e-03_rb,0.13583e-03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.90628e-04_rb,0.96255e-04_rb,0.10177e-03_rb,0.10738e-03_rb,0.11299e-03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.75891e-04_rb,0.80410e-04_rb,0.85018e-04_rb,0.89561e-04_rb,0.94064e-04_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.63476e-04_rb,0.67177e-04_rb,0.70959e-04_rb,0.74590e-04_rb,0.78334e-04_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.52999e-04_rb,0.56057e-04_rb,0.59157e-04_rb,0.62167e-04_rb,0.65272e-04_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.44256e-04_rb,0.46783e-04_rb,0.49281e-04_rb,0.51789e-04_rb,0.54376e-04_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.37011e-04_rb,0.39100e-04_rb,0.41098e-04_rb,0.43198e-04_rb,0.45322e-04_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.30966e-04_rb,0.32635e-04_rb,0.34289e-04_rb,0.36026e-04_rb,0.37776e-04_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.25866e-04_rb,0.27210e-04_rb,0.28616e-04_rb,0.30009e-04_rb,0.31487e-04_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.21609e-04_rb,0.22715e-04_rb,0.23863e-04_rb,0.25052e-04_rb,0.26299e-04_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.18055e-04_rb,0.18981e-04_rb,0.19946e-04_rb,0.20948e-04_rb,0.21978e-04_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.15103e-04_rb,0.15890e-04_rb,0.16699e-04_rb,0.17556e-04_rb,0.18410e-04_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.12647e-04_rb,0.13313e-04_rb,0.14001e-04_rb,0.14715e-04_rb,0.15427e-04_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.10601e-04_rb,0.11164e-04_rb,0.11755e-04_rb,0.12351e-04_rb,0.12931e-04_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.88699e-05_rb,0.93482e-05_rb,0.98481e-05_rb,0.10351e-04_rb,0.10829e-04_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.73864e-05_rb,0.77932e-05_rb,0.82148e-05_rb,0.86289e-05_rb,0.90270e-05_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.61189e-05_rb,0.64631e-05_rb,0.68137e-05_rb,0.71535e-05_rb,0.74761e-05_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.50349e-05_rb,0.53216e-05_rb,0.56110e-05_rb,0.58984e-05_rb,0.61738e-05_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.41408e-05_rb,0.43804e-05_rb,0.46209e-05_rb,0.48585e-05_rb,0.50962e-05_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.34100e-05_rb,0.36097e-05_rb,0.38105e-05_rb,0.40114e-05_rb,0.42081e-05_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.27924e-05_rb,0.29567e-05_rb,0.31274e-05_rb,0.32925e-05_rb,0.34580e-05_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.22821e-05_rb,0.24196e-05_rb,0.25613e-05_rb,0.27009e-05_rb,0.28413e-05_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.18665e-05_rb,0.19799e-05_rb,0.20975e-05_rb,0.22150e-05_rb,0.23326e-05_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.15195e-05_rb,0.16130e-05_rb,0.17109e-05_rb,0.18095e-05_rb,0.19094e-05_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.12351e-05_rb,0.13129e-05_rb,0.13926e-05_rb,0.14756e-05_rb,0.15593e-05_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.10023e-05_rb,0.10671e-05_rb,0.11334e-05_rb,0.12033e-05_rb,0.12728e-05_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.81269e-06_rb,0.86595e-06_rb,0.92094e-06_rb,0.97875e-06_rb,0.10378e-05_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.65647e-06_rb,0.70081e-06_rb,0.74604e-06_rb,0.79395e-06_rb,0.84339e-06_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.53019e-06_rb,0.56638e-06_rb,0.60399e-06_rb,0.64368e-06_rb,0.68472e-06_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.42776e-06_rb,0.45739e-06_rb,0.48880e-06_rb,0.52108e-06_rb,0.55567e-06_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.34556e-06_rb,0.36989e-06_rb,0.39599e-06_rb,0.42284e-06_rb,0.45123e-06_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.27905e-06_rb,0.29932e-06_rb,0.32065e-06_rb,0.34295e-06_rb,0.36646e-06_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.22522e-06_rb,0.24196e-06_rb,0.25940e-06_rb,0.27788e-06_rb,0.29753e-06_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.18137e-06_rb,0.19527e-06_rb,0.20965e-06_rb,0.22512e-06_rb,0.24112e-06_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.14606e-06_rb,0.15795e-06_rb,0.16971e-06_rb,0.18256e-06_rb,0.19571e-06_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.11745e-06_rb,0.12764e-06_rb,0.13751e-06_rb,0.14796e-06_rb,0.15891e-06_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.94319e-07_rb,0.10301e-06_rb,0.11131e-06_rb,0.11979e-06_rb,0.12892e-06_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.75512e-07_rb,0.83064e-07_rb,0.90010e-07_rb,0.96928e-07_rb,0.10441e-06_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.60409e-07_rb,0.66900e-07_rb,0.72712e-07_rb,0.78451e-07_rb,0.84657e-07_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.49299e-07_rb,0.54731e-07_rb,0.59628e-07_rb,0.64415e-07_rb,0.69585e-07_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.85498e-03_rb,0.88654e-03_rb,0.92216e-03_rb,0.96018e-03_rb,0.10038e-02_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.72755e-03_rb,0.75503e-03_rb,0.78615e-03_rb,0.82104e-03_rb,0.86252e-03_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.61644e-03_rb,0.64130e-03_rb,0.66934e-03_rb,0.70298e-03_rb,0.74077e-03_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.52100e-03_rb,0.54364e-03_rb,0.57046e-03_rb,0.60137e-03_rb,0.63388e-03_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.43945e-03_rb,0.46060e-03_rb,0.48533e-03_rb,0.51276e-03_rb,0.54036e-03_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.37082e-03_rb,0.39025e-03_rb,0.41242e-03_rb,0.43532e-03_rb,0.45905e-03_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.31280e-03_rb,0.33005e-03_rb,0.34867e-03_rb,0.36806e-03_rb,0.38776e-03_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.26373e-03_rb,0.27881e-03_rb,0.29445e-03_rb,0.31046e-03_rb,0.32667e-03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.22211e-03_rb,0.23470e-03_rb,0.24766e-03_rb,0.26115e-03_rb,0.27459e-03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.18729e-03_rb,0.19773e-03_rb,0.20869e-03_rb,0.22010e-03_rb,0.23102e-03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.15755e-03_rb,0.16634e-03_rb,0.17574e-03_rb,0.18527e-03_rb,0.19396e-03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.13244e-03_rb,0.14003e-03_rb,0.14791e-03_rb,0.15556e-03_rb,0.16235e-03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.11137e-03_rb,0.11779e-03_rb,0.12437e-03_rb,0.13036e-03_rb,0.13579e-03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.93817e-04_rb,0.99206e-04_rb,0.10452e-03_rb,0.10918e-03_rb,0.11356e-03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.79006e-04_rb,0.83531e-04_rb,0.87717e-04_rb,0.91355e-04_rb,0.95066e-04_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.66464e-04_rb,0.70180e-04_rb,0.73412e-04_rb,0.76548e-04_rb,0.79673e-04_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.55955e-04_rb,0.58876e-04_rb,0.61539e-04_rb,0.64161e-04_rb,0.66744e-04_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.47057e-04_rb,0.49392e-04_rb,0.51539e-04_rb,0.53762e-04_rb,0.55883e-04_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.39571e-04_rb,0.41398e-04_rb,0.43230e-04_rb,0.45052e-04_rb,0.46859e-04_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.33232e-04_rb,0.34753e-04_rb,0.36306e-04_rb,0.37802e-04_rb,0.39368e-04_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.27886e-04_rb,0.29183e-04_rb,0.30428e-04_rb,0.31753e-04_rb,0.33114e-04_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.23408e-04_rb,0.24477e-04_rb,0.25555e-04_rb,0.26683e-04_rb,0.27811e-04_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.19576e-04_rb,0.20476e-04_rb,0.21380e-04_rb,0.22323e-04_rb,0.23289e-04_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.16284e-04_rb,0.17049e-04_rb,0.17816e-04_rb,0.18626e-04_rb,0.19444e-04_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.13488e-04_rb,0.14134e-04_rb,0.14781e-04_rb,0.15488e-04_rb,0.16173e-04_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.11176e-04_rb,0.11721e-04_rb,0.12278e-04_rb,0.12866e-04_rb,0.13450e-04_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.92494e-05_rb,0.97155e-05_rb,0.10200e-04_rb,0.10699e-04_rb,0.11199e-04_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.76168e-05_rb,0.80109e-05_rb,0.84197e-05_rb,0.88496e-05_rb,0.92853e-05_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.62645e-05_rb,0.66003e-05_rb,0.69472e-05_rb,0.73123e-05_rb,0.76881e-05_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.51581e-05_rb,0.54373e-05_rb,0.57325e-05_rb,0.60421e-05_rb,0.63612e-05_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.42336e-05_rb,0.44705e-05_rb,0.47241e-05_rb,0.49790e-05_rb,0.52554e-05_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.34635e-05_rb,0.36643e-05_rb,0.38777e-05_rb,0.40942e-05_rb,0.43335e-05_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.28355e-05_rb,0.30041e-05_rb,0.31829e-05_rb,0.33678e-05_rb,0.35664e-05_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.23151e-05_rb,0.24589e-05_rb,0.26085e-05_rb,0.27655e-05_rb,0.29287e-05_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.18832e-05_rb,0.20045e-05_rb,0.21306e-05_rb,0.22633e-05_rb,0.24025e-05_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.15291e-05_rb,0.16326e-05_rb,0.17368e-05_rb,0.18516e-05_rb,0.19681e-05_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.12403e-05_rb,0.13270e-05_rb,0.14154e-05_rb,0.15108e-05_rb,0.16100e-05_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.10056e-05_rb,0.10792e-05_rb,0.11542e-05_rb,0.12335e-05_rb,0.13173e-05_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.81549e-06_rb,0.87791e-06_rb,0.94116e-06_rb,0.10080e-05_rb,0.10781e-05_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.66029e-06_rb,0.71307e-06_rb,0.76617e-06_rb,0.82179e-06_rb,0.88107e-06_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.53353e-06_rb,0.57858e-06_rb,0.62276e-06_rb,0.66919e-06_rb,0.71931e-06_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.43199e-06_rb,0.46970e-06_rb,0.50695e-06_rb,0.54584e-06_rb,0.58793e-06_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.34966e-06_rb,0.38119e-06_rb,0.41298e-06_rb,0.44530e-06_rb,0.48058e-06_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.28227e-06_rb,0.30903e-06_rb,0.33563e-06_rb,0.36285e-06_rb,0.39216e-06_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.22764e-06_rb,0.25006e-06_rb,0.27265e-06_rb,0.29503e-06_rb,0.31940e-06_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.18380e-06_rb,0.20248e-06_rb,0.22144e-06_rb,0.24002e-06_rb,0.25999e-06_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.15102e-06_rb,0.16680e-06_rb,0.18267e-06_rb,0.19825e-06_rb,0.21512e-06_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.20763e-02_rb,0.21202e-02_rb,0.21697e-02_rb,0.22297e-02_rb,0.22985e-02_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.17631e-02_rb,0.18004e-02_rb,0.18452e-02_rb,0.18998e-02_rb,0.19604e-02_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.14970e-02_rb,0.15286e-02_rb,0.15695e-02_rb,0.16172e-02_rb,0.16748e-02_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.12672e-02_rb,0.12965e-02_rb,0.13340e-02_rb,0.13795e-02_rb,0.14367e-02_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.10695e-02_rb,0.10974e-02_rb,0.11329e-02_rb,0.11783e-02_rb,0.12365e-02_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.90477e-03_rb,0.93070e-03_rb,0.96470e-03_rb,0.10105e-02_rb,0.10654e-02_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.76431e-03_rb,0.79078e-03_rb,0.82660e-03_rb,0.86991e-03_rb,0.91843e-03_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.64676e-03_rb,0.67404e-03_rb,0.70901e-03_rb,0.74996e-03_rb,0.79243e-03_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.54776e-03_rb,0.57523e-03_rb,0.60880e-03_rb,0.64511e-03_rb,0.68243e-03_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.46614e-03_rb,0.49254e-03_rb,0.52330e-03_rb,0.55502e-03_rb,0.58894e-03_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.39726e-03_rb,0.42201e-03_rb,0.44841e-03_rb,0.47653e-03_rb,0.50717e-03_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.33898e-03_rb,0.36121e-03_rb,0.38421e-03_rb,0.40924e-03_rb,0.43694e-03_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.28981e-03_rb,0.30891e-03_rb,0.32925e-03_rb,0.35185e-03_rb,0.37616e-03_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.24765e-03_rb,0.26436e-03_rb,0.28268e-03_rb,0.30306e-03_rb,0.32381e-03_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.21161e-03_rb,0.22639e-03_rb,0.24293e-03_rb,0.26080e-03_rb,0.27811e-03_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.18103e-03_rb,0.19425e-03_rb,0.20911e-03_rb,0.22426e-03_rb,0.23882e-03_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.15524e-03_rb,0.16726e-03_rb,0.18025e-03_rb,0.19313e-03_rb,0.20539e-03_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.13346e-03_rb,0.14432e-03_rb,0.15555e-03_rb,0.16625e-03_rb,0.17682e-03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.11513e-03_rb,0.12466e-03_rb,0.13417e-03_rb,0.14329e-03_rb,0.15286e-03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.99437e-04_rb,0.10768e-03_rb,0.11569e-03_rb,0.12397e-03_rb,0.13224e-03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.85975e-04_rb,0.92901e-04_rb,0.10007e-03_rb,0.10742e-03_rb,0.11487e-03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.74186e-04_rb,0.80283e-04_rb,0.86524e-04_rb,0.92965e-04_rb,0.99720e-04_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.63518e-04_rb,0.68833e-04_rb,0.74348e-04_rb,0.80205e-04_rb,0.86286e-04_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.53971e-04_rb,0.58710e-04_rb,0.63581e-04_rb,0.68731e-04_rb,0.74066e-04_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.45287e-04_rb,0.49433e-04_rb,0.53695e-04_rb,0.58207e-04_rb,0.62933e-04_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.37993e-04_rb,0.41562e-04_rb,0.45327e-04_rb,0.49315e-04_rb,0.53437e-04_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.31889e-04_rb,0.34954e-04_rb,0.38268e-04_rb,0.41760e-04_rb,0.45472e-04_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.26490e-04_rb,0.29130e-04_rb,0.31995e-04_rb,0.35094e-04_rb,0.38302e-04_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.21977e-04_rb,0.24258e-04_rb,0.26702e-04_rb,0.29405e-04_rb,0.32254e-04_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.18218e-04_rb,0.20180e-04_rb,0.22299e-04_rb,0.24616e-04_rb,0.27154e-04_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.15034e-04_rb,0.16668e-04_rb,0.18493e-04_rb,0.20514e-04_rb,0.22747e-04_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.12376e-04_rb,0.13730e-04_rb,0.15276e-04_rb,0.16983e-04_rb,0.18913e-04_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.10149e-04_rb,0.11314e-04_rb,0.12590e-04_rb,0.14099e-04_rb,0.15742e-04_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.82889e-05_rb,0.92859e-05_rb,0.10354e-04_rb,0.11603e-04_rb,0.13042e-04_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.67264e-05_rb,0.75707e-05_rb,0.84748e-05_rb,0.95081e-05_rb,0.10721e-04_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.54454e-05_rb,0.61678e-05_rb,0.69329e-05_rb,0.77845e-05_rb,0.87984e-05_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.43942e-05_rb,0.50075e-05_rb,0.56558e-05_rb,0.63802e-05_rb,0.72168e-05_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.35518e-05_rb,0.40682e-05_rb,0.46246e-05_rb,0.52318e-05_rb,0.59289e-05_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.28695e-05_rb,0.33032e-05_rb,0.37766e-05_rb,0.42938e-05_rb,0.48871e-05_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.23151e-05_rb,0.26733e-05_rb,0.30760e-05_rb,0.35184e-05_rb,0.40216e-05_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.18635e-05_rb,0.21569e-05_rb,0.24979e-05_rb,0.28705e-05_rb,0.33004e-05_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.15043e-05_rb,0.17492e-05_rb,0.20309e-05_rb,0.23469e-05_rb,0.27129e-05_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.12156e-05_rb,0.14170e-05_rb,0.16506e-05_rb,0.19188e-05_rb,0.22303e-05_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.98090e-06_rb,0.11440e-05_rb,0.13395e-05_rb,0.15647e-05_rb,0.18280e-05_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.79029e-06_rb,0.92216e-06_rb,0.10880e-05_rb,0.12732e-05_rb,0.14934e-05_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.63691e-06_rb,0.74365e-06_rb,0.88187e-06_rb,0.10375e-05_rb,0.12193e-05_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.52696e-06_rb,0.61783e-06_rb,0.73672e-06_rb,0.87054e-06_rb,0.10284e-05_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.57453e-02_rb,0.59077e-02_rb,0.61032e-02_rb,0.63038e-02_rb,0.65156e-02_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.49738e-02_rb,0.51301e-02_rb,0.52927e-02_rb,0.54623e-02_rb,0.56575e-02_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.43017e-02_rb,0.44326e-02_rb,0.45703e-02_rb,0.47292e-02_rb,0.49039e-02_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.37082e-02_rb,0.38170e-02_rb,0.39427e-02_rb,0.40844e-02_rb,0.42438e-02_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.31847e-02_rb,0.32833e-02_rb,0.33960e-02_rb,0.35252e-02_rb,0.36740e-02_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.27225e-02_rb,0.28155e-02_rb,0.29216e-02_rb,0.30449e-02_rb,0.31911e-02_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.23309e-02_rb,0.24127e-02_rb,0.25113e-02_rb,0.26325e-02_rb,0.27748e-02_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.19939e-02_rb,0.20703e-02_rb,0.21659e-02_rb,0.22816e-02_rb,0.24232e-02_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.17051e-02_rb,0.17809e-02_rb,0.18754e-02_rb,0.19919e-02_rb,0.21299e-02_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.14632e-02_rb,0.15412e-02_rb,0.16376e-02_rb,0.17554e-02_rb,0.18936e-02_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.12639e-02_rb,0.13422e-02_rb,0.14407e-02_rb,0.15575e-02_rb,0.16941e-02_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.10971e-02_rb,0.11767e-02_rb,0.12764e-02_rb,0.13939e-02_rb,0.15238e-02_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.95870e-03_rb,0.10413e-02_rb,0.11414e-02_rb,0.12556e-02_rb,0.13798e-02_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.84686e-03_rb,0.93021e-03_rb,0.10287e-02_rb,0.11374e-02_rb,0.12572e-02_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.75447e-03_rb,0.83724e-03_rb,0.93234e-03_rb,0.10369e-02_rb,0.11513e-02_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.67798e-03_rb,0.75937e-03_rb,0.85009e-03_rb,0.95072e-03_rb,0.10606e-02_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.61364e-03_rb,0.69262e-03_rb,0.77994e-03_rb,0.87674e-03_rb,0.98252e-03_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.55903e-03_rb,0.63520e-03_rb,0.71974e-03_rb,0.81322e-03_rb,0.91554e-03_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.51301e-03_rb,0.58698e-03_rb,0.66923e-03_rb,0.75972e-03_rb,0.85851e-03_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.47350e-03_rb,0.54617e-03_rb,0.62663e-03_rb,0.71470e-03_rb,0.81105e-03_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.44016e-03_rb,0.51136e-03_rb,0.58994e-03_rb,0.67638e-03_rb,0.77061e-03_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.40944e-03_rb,0.47900e-03_rb,0.55611e-03_rb,0.64143e-03_rb,0.73316e-03_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.37741e-03_rb,0.44487e-03_rb,0.52031e-03_rb,0.60323e-03_rb,0.69243e-03_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.34297e-03_rb,0.40766e-03_rb,0.48086e-03_rb,0.56132e-03_rb,0.64787e-03_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.30431e-03_rb,0.36499e-03_rb,0.43465e-03_rb,0.51167e-03_rb,0.59496e-03_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.26970e-03_rb,0.32665e-03_rb,0.39267e-03_rb,0.46706e-03_rb,0.54760e-03_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.23923e-03_rb,0.29254e-03_rb,0.35537e-03_rb,0.42706e-03_rb,0.50543e-03_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.20758e-03_rb,0.25688e-03_rb,0.31519e-03_rb,0.38349e-03_rb,0.45925e-03_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.17937e-03_rb,0.22435e-03_rb,0.27886e-03_rb,0.34337e-03_rb,0.41641e-03_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.15469e-03_rb,0.19589e-03_rb,0.24606e-03_rb,0.30674e-03_rb,0.37723e-03_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.13101e-03_rb,0.16796e-03_rb,0.21371e-03_rb,0.26992e-03_rb,0.33751e-03_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.10980e-03_rb,0.14260e-03_rb,0.18396e-03_rb,0.23557e-03_rb,0.29905e-03_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.91682e-04_rb,0.12045e-03_rb,0.15770e-03_rb,0.20472e-03_rb,0.26370e-03_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.75628e-04_rb,0.10059e-03_rb,0.13347e-03_rb,0.17595e-03_rb,0.22995e-03_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.61269e-04_rb,0.82597e-04_rb,0.11115e-03_rb,0.14863e-03_rb,0.19734e-03_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.49295e-04_rb,0.67304e-04_rb,0.91698e-04_rb,0.12475e-03_rb,0.16838e-03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.39400e-04_rb,0.54424e-04_rb,0.75252e-04_rb,0.10388e-03_rb,0.14254e-03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.31621e-04_rb,0.44130e-04_rb,0.61905e-04_rb,0.86583e-04_rb,0.12082e-03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.25214e-04_rb,0.35613e-04_rb,0.50609e-04_rb,0.71998e-04_rb,0.10219e-03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.20045e-04_rb,0.28626e-04_rb,0.41171e-04_rb,0.59458e-04_rb,0.85829e-04_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.15795e-04_rb,0.22859e-04_rb,0.33218e-04_rb,0.48810e-04_rb,0.71516e-04_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.12537e-04_rb,0.18343e-04_rb,0.26979e-04_rb,0.40183e-04_rb,0.59926e-04_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.99418e-05_rb,0.14675e-04_rb,0.21893e-04_rb,0.33017e-04_rb,0.50138e-04_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.78293e-05_rb,0.11672e-04_rb,0.17663e-04_rb,0.26975e-04_rb,0.41690e-04_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.61519e-05_rb,0.92383e-05_rb,0.14184e-04_rb,0.21901e-04_rb,0.34420e-04_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.48509e-05_rb,0.73119e-05_rb,0.11341e-04_rb,0.17783e-04_rb,0.28416e-04_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.41003e-05_rb,0.62461e-05_rb,0.98307e-05_rb,0.15678e-04_rb,0.25521e-04_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.31088e-01_rb,0.30978e-01_rb,0.31134e-01_rb,0.31580e-01_rb,0.32297e-01_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.26804e-01_rb,0.26913e-01_rb,0.27323e-01_rb,0.28019e-01_rb,0.28853e-01_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.23192e-01_rb,0.23530e-01_rb,0.24156e-01_rb,0.24918e-01_rb,0.25770e-01_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.20205e-01_rb,0.20738e-01_rb,0.21411e-01_rb,0.22189e-01_rb,0.23073e-01_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.17721e-01_rb,0.18309e-01_rb,0.19005e-01_rb,0.19816e-01_rb,0.20712e-01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.15569e-01_rb,0.16175e-01_rb,0.16902e-01_rb,0.17717e-01_rb,0.18588e-01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.13679e-01_rb,0.14314e-01_rb,0.15046e-01_rb,0.15840e-01_rb,0.16695e-01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.12060e-01_rb,0.12704e-01_rb,0.13416e-01_rb,0.14184e-01_rb,0.14994e-01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.10678e-01_rb,0.11296e-01_rb,0.11975e-01_rb,0.12694e-01_rb,0.13474e-01_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.95206e-02_rb,0.10114e-01_rb,0.10744e-01_rb,0.11429e-01_rb,0.12190e-01_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.85244e-02_rb,0.90705e-02_rb,0.96690e-02_rb,0.10334e-01_rb,0.11084e-01_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.76472e-02_rb,0.81682e-02_rb,0.87428e-02_rb,0.93948e-02_rb,0.10155e-01_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.68906e-02_rb,0.73887e-02_rb,0.79555e-02_rb,0.86116e-02_rb,0.93920e-02_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.62406e-02_rb,0.67330e-02_rb,0.73033e-02_rb,0.79807e-02_rb,0.87803e-02_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.56879e-02_rb,0.61818e-02_rb,0.67732e-02_rb,0.74721e-02_rb,0.82924e-02_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.52214e-02_rb,0.57290e-02_rb,0.63416e-02_rb,0.70614e-02_rb,0.79109e-02_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.48396e-02_rb,0.53718e-02_rb,0.60023e-02_rb,0.67493e-02_rb,0.76290e-02_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.45394e-02_rb,0.50868e-02_rb,0.57419e-02_rb,0.65213e-02_rb,0.74390e-02_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.42997e-02_rb,0.48721e-02_rb,0.55579e-02_rb,0.63736e-02_rb,0.73370e-02_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.41212e-02_rb,0.47209e-02_rb,0.54422e-02_rb,0.62987e-02_rb,0.73128e-02_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.39976e-02_rb,0.46295e-02_rb,0.53893e-02_rb,0.62949e-02_rb,0.73658e-02_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.39007e-02_rb,0.45672e-02_rb,0.53672e-02_rb,0.63167e-02_rb,0.74374e-02_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.37869e-02_rb,0.44770e-02_rb,0.53019e-02_rb,0.62849e-02_rb,0.74424e-02_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.36393e-02_rb,0.43376e-02_rb,0.51746e-02_rb,0.61726e-02_rb,0.73435e-02_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.34235e-02_rb,0.41098e-02_rb,0.49353e-02_rb,0.59226e-02_rb,0.70781e-02_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.32247e-02_rb,0.38981e-02_rb,0.47125e-02_rb,0.56849e-02_rb,0.68251e-02_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.30456e-02_rb,0.37107e-02_rb,0.45116e-02_rb,0.54683e-02_rb,0.65906e-02_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.28232e-02_rb,0.34654e-02_rb,0.42389e-02_rb,0.51610e-02_rb,0.62484e-02_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.26119e-02_rb,0.32290e-02_rb,0.39730e-02_rb,0.48613e-02_rb,0.59121e-02_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.24180e-02_rb,0.30088e-02_rb,0.37246e-02_rb,0.45813e-02_rb,0.55929e-02_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.22093e-02_rb,0.27691e-02_rb,0.34494e-02_rb,0.42630e-02_rb,0.52317e-02_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.20033e-02_rb,0.25304e-02_rb,0.31741e-02_rb,0.39439e-02_rb,0.48637e-02_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.18130e-02_rb,0.23086e-02_rb,0.29181e-02_rb,0.36487e-02_rb,0.45175e-02_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.16283e-02_rb,0.20910e-02_rb,0.26646e-02_rb,0.33526e-02_rb,0.41695e-02_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.14435e-02_rb,0.18702e-02_rb,0.24020e-02_rb,0.30439e-02_rb,0.38103e-02_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.12773e-02_rb,0.16671e-02_rb,0.21576e-02_rb,0.27587e-02_rb,0.34731e-02_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.11238e-02_rb,0.14806e-02_rb,0.19320e-02_rb,0.24920e-02_rb,0.31602e-02_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.99065e-03_rb,0.13211e-02_rb,0.17354e-02_rb,0.22582e-02_rb,0.28857e-02_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.87220e-03_rb,0.11790e-02_rb,0.15607e-02_rb,0.20453e-02_rb,0.26367e-02_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.76443e-03_rb,0.10482e-02_rb,0.13992e-02_rb,0.18469e-02_rb,0.24023e-02_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.66506e-03_rb,0.92645e-03_rb,0.12548e-02_rb,0.16624e-02_rb,0.21789e-02_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.58147e-03_rb,0.82449e-03_rb,0.11302e-02_rb,0.15093e-02_rb,0.19886e-02_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.50762e-03_rb,0.73235e-03_rb,0.10182e-02_rb,0.13732e-02_rb,0.18200e-02_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.44063e-03_rb,0.64710e-03_rb,0.91345e-03_rb,0.12471e-02_rb,0.16632e-02_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.37891e-03_rb,0.56859e-03_rb,0.81680e-03_rb,0.11290e-02_rb,0.15165e-02_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.32563e-03_rb,0.50022e-03_rb,0.73037e-03_rb,0.10236e-02_rb,0.13873e-02_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.30307e-03_rb,0.47208e-03_rb,0.69548e-03_rb,0.98198e-03_rb,0.13371e-02_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.13405e+00_rb,0.13208e+00_rb,0.13012e+00_rb,0.12819e+00_rb,0.12637e+00_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.11726e+00_rb,0.11549e+00_rb,0.11376e+00_rb,0.11219e+00_rb,0.11171e+00_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.10125e+00_rb,0.99749e-01_rb,0.98394e-01_rb,0.98385e-01_rb,0.99981e-01_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.86553e-01_rb,0.85383e-01_rb,0.85602e-01_rb,0.87440e-01_rb,0.89929e-01_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.73963e-01_rb,0.74028e-01_rb,0.75744e-01_rb,0.77969e-01_rb,0.80306e-01_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.64249e-01_rb,0.65620e-01_rb,0.67504e-01_rb,0.69584e-01_rb,0.72235e-01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.56934e-01_rb,0.58613e-01_rb,0.60462e-01_rb,0.62855e-01_rb,0.65899e-01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.50721e-01_rb,0.52418e-01_rb,0.54615e-01_rb,0.57565e-01_rb,0.61049e-01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.45027e-01_rb,0.47161e-01_rb,0.49911e-01_rb,0.53249e-01_rb,0.56950e-01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.40301e-01_rb,0.42891e-01_rb,0.46164e-01_rb,0.49801e-01_rb,0.53839e-01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.36438e-01_rb,0.39487e-01_rb,0.43011e-01_rb,0.46965e-01_rb,0.50969e-01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.33455e-01_rb,0.36675e-01_rb,0.40451e-01_rb,0.44369e-01_rb,0.48399e-01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.31038e-01_rb,0.34461e-01_rb,0.38146e-01_rb,0.42075e-01_rb,0.46138e-01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.29184e-01_rb,0.32533e-01_rb,0.36194e-01_rb,0.40134e-01_rb,0.44371e-01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.27607e-01_rb,0.30907e-01_rb,0.34540e-01_rb,0.38584e-01_rb,0.43101e-01_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.26262e-01_rb,0.29536e-01_rb,0.33259e-01_rb,0.37529e-01_rb,0.42311e-01_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.25199e-01_rb,0.28472e-01_rb,0.32405e-01_rb,0.36927e-01_rb,0.42052e-01_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.24317e-01_rb,0.27783e-01_rb,0.31948e-01_rb,0.36772e-01_rb,0.42176e-01_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.23777e-01_rb,0.27457e-01_rb,0.31879e-01_rb,0.37001e-01_rb,0.42663e-01_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.23540e-01_rb,0.27481e-01_rb,0.32177e-01_rb,0.37596e-01_rb,0.43567e-01_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.23597e-01_rb,0.27797e-01_rb,0.32792e-01_rb,0.38465e-01_rb,0.44641e-01_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.23769e-01_rb,0.28231e-01_rb,0.33430e-01_rb,0.39373e-01_rb,0.45740e-01_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.23751e-01_rb,0.28376e-01_rb,0.33764e-01_rb,0.39814e-01_rb,0.46255e-01_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.23409e-01_rb,0.28117e-01_rb,0.33564e-01_rb,0.39651e-01_rb,0.46138e-01_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.22508e-01_rb,0.27169e-01_rb,0.32556e-01_rb,0.38592e-01_rb,0.45071e-01_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.21655e-01_rb,0.26262e-01_rb,0.31543e-01_rb,0.37540e-01_rb,0.43984e-01_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.20895e-01_rb,0.25391e-01_rb,0.30600e-01_rb,0.36519e-01_rb,0.42890e-01_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.19794e-01_rb,0.24108e-01_rb,0.29157e-01_rb,0.34891e-01_rb,0.41215e-01_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.18688e-01_rb,0.22822e-01_rb,0.27713e-01_rb,0.33302e-01_rb,0.39460e-01_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.17627e-01_rb,0.21623e-01_rb,0.26302e-01_rb,0.31747e-01_rb,0.37731e-01_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.16446e-01_rb,0.20270e-01_rb,0.24738e-01_rb,0.29940e-01_rb,0.35800e-01_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.15234e-01_rb,0.18876e-01_rb,0.23100e-01_rb,0.28072e-01_rb,0.33725e-01_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.14095e-01_rb,0.17542e-01_rb,0.21553e-01_rb,0.26276e-01_rb,0.31735e-01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.12980e-01_rb,0.16215e-01_rb,0.20030e-01_rb,0.24474e-01_rb,0.29695e-01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.11800e-01_rb,0.14839e-01_rb,0.18423e-01_rb,0.22582e-01_rb,0.27493e-01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.10669e-01_rb,0.13547e-01_rb,0.16901e-01_rb,0.20822e-01_rb,0.25431e-01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.96515e-02_rb,0.12347e-01_rb,0.15476e-01_rb,0.19181e-01_rb,0.23474e-01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.87302e-02_rb,0.11282e-01_rb,0.14230e-01_rb,0.17719e-01_rb,0.21773e-01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.78879e-02_rb,0.10297e-01_rb,0.13106e-01_rb,0.16387e-01_rb,0.20218e-01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.71141e-02_rb,0.93631e-02_rb,0.12059e-01_rb,0.15140e-01_rb,0.18761e-01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.64033e-02_rb,0.84706e-02_rb,0.11019e-01_rb,0.13962e-01_rb,0.17391e-01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.58003e-02_rb,0.77325e-02_rb,0.10121e-01_rb,0.12913e-01_rb,0.16185e-01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.52567e-02_rb,0.70672e-02_rb,0.93006e-02_rb,0.11949e-01_rb,0.15064e-01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.47304e-02_rb,0.64466e-02_rb,0.85460e-02_rb,0.11037e-01_rb,0.13988e-01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.42280e-02_rb,0.58745e-02_rb,0.78453e-02_rb,0.10192e-01_rb,0.12992e-01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.37744e-02_rb,0.53584e-02_rb,0.72089e-02_rb,0.94309e-02_rb,0.12101e-01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.36027e-02_rb,0.51588e-02_rb,0.69694e-02_rb,0.91382e-02_rb,0.11759e-01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.24636e+00_rb,0.24379e+00_rb,0.24122e+00_rb,0.23863e+00_rb,0.23598e+00_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.22272e+00_rb,0.22032e+00_rb,0.21794e+00_rb,0.21559e+00_rb,0.21334e+00_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.19844e+00_rb,0.19619e+00_rb,0.19411e+00_rb,0.19222e+00_rb,0.19047e+00_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.17439e+00_rb,0.17254e+00_rb,0.17092e+00_rb,0.16946e+00_rb,0.16916e+00_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.15164e+00_rb,0.15027e+00_rb,0.14912e+00_rb,0.14939e+00_rb,0.15176e+00_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.13063e+00_rb,0.12971e+00_rb,0.13029e+00_rb,0.13302e+00_rb,0.13748e+00_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.11203e+00_rb,0.11247e+00_rb,0.11508e+00_rb,0.11959e+00_rb,0.12521e+00_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.96916e-01_rb,0.99041e-01_rb,0.10318e+00_rb,0.10837e+00_rb,0.11414e+00_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.85382e-01_rb,0.88824e-01_rb,0.93367e-01_rb,0.98603e-01_rb,0.10483e+00_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.76943e-01_rb,0.80844e-01_rb,0.85377e-01_rb,0.90964e-01_rb,0.97503e-01_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.70041e-01_rb,0.74136e-01_rb,0.79065e-01_rb,0.84905e-01_rb,0.92247e-01_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.64133e-01_rb,0.68708e-01_rb,0.74135e-01_rb,0.80762e-01_rb,0.88658e-01_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.59352e-01_rb,0.64474e-01_rb,0.70718e-01_rb,0.78064e-01_rb,0.86394e-01_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.55652e-01_rb,0.61613e-01_rb,0.68607e-01_rb,0.76451e-01_rb,0.85230e-01_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.53058e-01_rb,0.59792e-01_rb,0.67298e-01_rb,0.75623e-01_rb,0.84830e-01_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.51454e-01_rb,0.58747e-01_rb,0.66709e-01_rb,0.75478e-01_rb,0.85111e-01_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.50601e-01_rb,0.58412e-01_rb,0.66813e-01_rb,0.76014e-01_rb,0.86051e-01_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.50412e-01_rb,0.58677e-01_rb,0.67503e-01_rb,0.77079e-01_rb,0.87490e-01_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.50833e-01_rb,0.59491e-01_rb,0.68713e-01_rb,0.78659e-01_rb,0.89405e-01_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.51770e-01_rb,0.60792e-01_rb,0.70497e-01_rb,0.80769e-01_rb,0.91778e-01_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.53128e-01_rb,0.62590e-01_rb,0.72506e-01_rb,0.83033e-01_rb,0.94354e-01_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.54518e-01_rb,0.64238e-01_rb,0.74390e-01_rb,0.85011e-01_rb,0.96530e-01_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.55323e-01_rb,0.65129e-01_rb,0.75324e-01_rb,0.86085e-01_rb,0.97742e-01_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.55103e-01_rb,0.64989e-01_rb,0.75282e-01_rb,0.86060e-01_rb,0.97722e-01_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.53513e-01_rb,0.63398e-01_rb,0.73617e-01_rb,0.84326e-01_rb,0.95934e-01_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.51839e-01_rb,0.61729e-01_rb,0.71975e-01_rb,0.82585e-01_rb,0.94078e-01_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.50239e-01_rb,0.60161e-01_rb,0.70354e-01_rb,0.80923e-01_rb,0.92345e-01_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.47749e-01_rb,0.57519e-01_rb,0.67663e-01_rb,0.78238e-01_rb,0.89341e-01_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.45220e-01_rb,0.54835e-01_rb,0.64881e-01_rb,0.75369e-01_rb,0.86308e-01_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.42768e-01_rb,0.52225e-01_rb,0.62107e-01_rb,0.72467e-01_rb,0.83297e-01_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.39884e-01_rb,0.49090e-01_rb,0.58932e-01_rb,0.69072e-01_rb,0.79690e-01_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.36935e-01_rb,0.45822e-01_rb,0.55523e-01_rb,0.65525e-01_rb,0.76019e-01_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.34132e-01_rb,0.42684e-01_rb,0.52151e-01_rb,0.62095e-01_rb,0.72392e-01_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.31296e-01_rb,0.39456e-01_rb,0.48596e-01_rb,0.58446e-01_rb,0.68612e-01_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.28352e-01_rb,0.35994e-01_rb,0.44764e-01_rb,0.54432e-01_rb,0.64443e-01_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.25659e-01_rb,0.32738e-01_rb,0.41113e-01_rb,0.50437e-01_rb,0.60364e-01_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.23119e-01_rb,0.29700e-01_rb,0.37617e-01_rb,0.46554e-01_rb,0.56334e-01_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.20913e-01_rb,0.27063e-01_rb,0.34504e-01_rb,0.43055e-01_rb,0.52582e-01_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.18909e-01_rb,0.24701e-01_rb,0.31626e-01_rb,0.39797e-01_rb,0.48997e-01_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.17085e-01_rb,0.22478e-01_rb,0.28924e-01_rb,0.36689e-01_rb,0.45522e-01_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.15363e-01_rb,0.20405e-01_rb,0.26432e-01_rb,0.33725e-01_rb,0.42180e-01_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.13901e-01_rb,0.18604e-01_rb,0.24309e-01_rb,0.31149e-01_rb,0.39236e-01_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.12627e-01_rb,0.16988e-01_rb,0.22381e-01_rb,0.28834e-01_rb,0.36535e-01_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.11410e-01_rb,0.15484e-01_rb,0.20536e-01_rb,0.26668e-01_rb,0.33955e-01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.10296e-01_rb,0.14074e-01_rb,0.18805e-01_rb,0.24610e-01_rb,0.31477e-01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.93246e-02_rb,0.12835e-01_rb,0.17266e-01_rb,0.22752e-01_rb,0.29238e-01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.89562e-02_rb,0.12359e-01_rb,0.16676e-01_rb,0.22030e-01_rb,0.28380e-01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.46920e+00_rb,0.46679e+00_rb,0.46431e+00_rb,0.46162e+00_rb,0.45841e+00_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.44978e+00_rb,0.44747e+00_rb,0.44532e+00_rb,0.44273e+00_rb,0.44032e+00_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.42273e+00_rb,0.42112e+00_rb,0.41952e+00_rb,0.41793e+00_rb,0.41621e+00_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.39050e+00_rb,0.38973e+00_rb,0.38909e+00_rb,0.38861e+00_rb,0.38845e+00_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.35567e+00_rb,0.35584e+00_rb,0.35648e+00_rb,0.35743e+00_rb,0.35846e+00_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.32023e+00_rb,0.32164e+00_rb,0.32356e+00_rb,0.32582e+00_rb,0.32854e+00_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.28599e+00_rb,0.28851e+00_rb,0.29173e+00_rb,0.29552e+00_rb,0.30048e+00_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.25381e+00_rb,0.25750e+00_rb,0.26208e+00_rb,0.26822e+00_rb,0.27683e+00_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.22440e+00_rb,0.22938e+00_rb,0.23617e+00_rb,0.24559e+00_rb,0.25713e+00_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.19852e+00_rb,0.20554e+00_rb,0.21550e+00_rb,0.22788e+00_rb,0.24207e+00_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.17693e+00_rb,0.18660e+00_rb,0.19922e+00_rb,0.21410e+00_rb,0.23064e+00_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.16009e+00_rb,0.17209e+00_rb,0.18673e+00_rb,0.20389e+00_rb,0.22257e+00_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.14745e+00_rb,0.16127e+00_rb,0.17793e+00_rb,0.19685e+00_rb,0.21752e+00_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.13842e+00_rb,0.15401e+00_rb,0.17237e+00_rb,0.19313e+00_rb,0.21550e+00_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.13240e+00_rb,0.14962e+00_rb,0.16961e+00_rb,0.19199e+00_rb,0.21568e+00_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.12889e+00_rb,0.14761e+00_rb,0.16917e+00_rb,0.19286e+00_rb,0.21743e+00_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.12765e+00_rb,0.14781e+00_rb,0.17068e+00_rb,0.19527e+00_rb,0.22046e+00_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.12821e+00_rb,0.14964e+00_rb,0.17352e+00_rb,0.19873e+00_rb,0.22436e+00_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.13031e+00_rb,0.15282e+00_rb,0.17742e+00_rb,0.20308e+00_rb,0.22902e+00_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.13354e+00_rb,0.15691e+00_rb,0.18189e+00_rb,0.20791e+00_rb,0.23394e+00_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.13759e+00_rb,0.16158e+00_rb,0.18710e+00_rb,0.21336e+00_rb,0.23934e+00_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.14143e+00_rb,0.16592e+00_rb,0.19181e+00_rb,0.21830e+00_rb,0.24425e+00_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.14328e+00_rb,0.16813e+00_rb,0.19433e+00_rb,0.22092e+00_rb,0.24688e+00_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.14288e+00_rb,0.16783e+00_rb,0.19405e+00_rb,0.22076e+00_rb,0.24684e+00_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.13900e+00_rb,0.16377e+00_rb,0.19000e+00_rb,0.21677e+00_rb,0.24302e+00_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.13517e+00_rb,0.15969e+00_rb,0.18575e+00_rb,0.21259e+00_rb,0.23902e+00_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.13148e+00_rb,0.15568e+00_rb,0.18162e+00_rb,0.20849e+00_rb,0.23507e+00_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.12553e+00_rb,0.14932e+00_rb,0.17494e+00_rb,0.20171e+00_rb,0.22853e+00_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.11952e+00_rb,0.14280e+00_rb,0.16803e+00_rb,0.19459e+00_rb,0.22156e+00_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.11373e+00_rb,0.13636e+00_rb,0.16129e+00_rb,0.18763e+00_rb,0.21464e+00_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.10701e+00_rb,0.12880e+00_rb,0.15312e+00_rb,0.17916e+00_rb,0.20617e+00_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.10010e+00_rb,0.12097e+00_rb,0.14449e+00_rb,0.17006e+00_rb,0.19689e+00_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.93559e-01_rb,0.11347e+00_rb,0.13614e+00_rb,0.16117e+00_rb,0.18764e+00_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.86985e-01_rb,0.10587e+00_rb,0.12759e+00_rb,0.15183e+00_rb,0.17790e+00_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.79918e-01_rb,0.97829e-01_rb,0.11842e+00_rb,0.14172e+00_rb,0.16718e+00_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.73127e-01_rb,0.90284e-01_rb,0.10972e+00_rb,0.13198e+00_rb,0.15666e+00_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.66713e-01_rb,0.83137e-01_rb,0.10149e+00_rb,0.12264e+00_rb,0.14642e+00_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.61017e-01_rb,0.76653e-01_rb,0.94210e-01_rb,0.11429e+00_rb,0.13713e+00_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.55806e-01_rb,0.70628e-01_rb,0.87552e-01_rb,0.10658e+00_rb,0.12844e+00_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.50954e-01_rb,0.64939e-01_rb,0.81159e-01_rb,0.99264e-01_rb,0.12011e+00_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.46354e-01_rb,0.59512e-01_rb,0.74951e-01_rb,0.92338e-01_rb,0.11214e+00_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.42433e-01_rb,0.54851e-01_rb,0.69504e-01_rb,0.86317e-01_rb,0.10517e+00_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.38912e-01_rb,0.50588e-01_rb,0.64547e-01_rb,0.80719e-01_rb,0.98779e-01_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.35756e-01_rb,0.46572e-01_rb,0.59794e-01_rb,0.75289e-01_rb,0.92719e-01_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.32896e-01_rb,0.42811e-01_rb,0.55328e-01_rb,0.70070e-01_rb,0.86950e-01_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.30447e-01_rb,0.39485e-01_rb,0.51269e-01_rb,0.65351e-01_rb,0.81643e-01_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.29531e-01_rb,0.38222e-01_rb,0.49696e-01_rb,0.63514e-01_rb,0.79546e-01_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.87498e+00_rb,0.87414e+00_rb,0.87195e+00_rb,0.86869e+00_rb,0.86437e+00_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.90060e+00_rb,0.89974e+00_rb,0.89734e+00_rb,0.89423e+00_rb,0.88971e+00_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.91305e+00_rb,0.91211e+00_rb,0.91072e+00_rb,0.90792e+00_rb,0.90457e+00_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.91218e+00_rb,0.91265e+00_rb,0.91216e+00_rb,0.91150e+00_rb,0.90908e+00_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.89877e+00_rb,0.90187e+00_rb,0.90414e+00_rb,0.90531e+00_rb,0.90588e+00_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.87718e+00_rb,0.88256e+00_rb,0.88815e+00_rb,0.89271e+00_rb,0.89636e+00_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.84784e+00_rb,0.85815e+00_rb,0.86718e+00_rb,0.87552e+00_rb,0.88267e+00_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.81552e+00_rb,0.83012e+00_rb,0.84379e+00_rb,0.85649e+00_rb,0.86736e+00_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.78216e+00_rb,0.80141e+00_rb,0.82018e+00_rb,0.83708e+00_rb,0.85197e+00_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.75119e+00_rb,0.77590e+00_rb,0.79904e+00_rb,0.81994e+00_rb,0.83870e+00_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.72390e+00_rb,0.75373e+00_rb,0.78079e+00_rb,0.80579e+00_rb,0.82760e+00_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.70145e+00_rb,0.73523e+00_rb,0.76640e+00_rb,0.79456e+00_rb,0.81899e+00_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.68406e+00_rb,0.72159e+00_rb,0.75604e+00_rb,0.78669e+00_rb,0.81321e+00_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.67200e+00_rb,0.71253e+00_rb,0.74968e+00_rb,0.78214e+00_rb,0.81015e+00_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.66447e+00_rb,0.70740e+00_rb,0.74639e+00_rb,0.77996e+00_rb,0.80903e+00_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.66095e+00_rb,0.70586e+00_rb,0.74565e+00_rb,0.77995e+00_rb,0.80973e+00_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.66138e+00_rb,0.70727e+00_rb,0.74725e+00_rb,0.78204e+00_rb,0.81205e+00_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.66437e+00_rb,0.71055e+00_rb,0.75066e+00_rb,0.78572e+00_rb,0.81538e+00_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.66969e+00_rb,0.71558e+00_rb,0.75561e+00_rb,0.79049e+00_rb,0.81954e+00_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.67664e+00_rb,0.72206e+00_rb,0.76182e+00_rb,0.79609e+00_rb,0.82431e+00_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.68486e+00_rb,0.72960e+00_rb,0.76872e+00_rb,0.80214e+00_rb,0.82949e+00_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.69234e+00_rb,0.73624e+00_rb,0.77485e+00_rb,0.80729e+00_rb,0.83397e+00_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.69580e+00_rb,0.73958e+00_rb,0.77791e+00_rb,0.80990e+00_rb,0.83618e+00_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.69461e+00_rb,0.73878e+00_rb,0.77738e+00_rb,0.80959e+00_rb,0.83608e+00_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.68652e+00_rb,0.73194e+00_rb,0.77165e+00_rb,0.80500e+00_rb,0.83229e+00_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.67804e+00_rb,0.72484e+00_rb,0.76560e+00_rb,0.80009e+00_rb,0.82834e+00_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.66970e+00_rb,0.71778e+00_rb,0.75963e+00_rb,0.79504e+00_rb,0.82429e+00_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.65605e+00_rb,0.70590e+00_rb,0.74946e+00_rb,0.78658e+00_rb,0.81742e+00_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.64137e+00_rb,0.69306e+00_rb,0.73837e+00_rb,0.77717e+00_rb,0.80985e+00_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.62638e+00_rb,0.67987e+00_rb,0.72699e+00_rb,0.76756e+00_rb,0.80186e+00_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.60761e+00_rb,0.66320e+00_rb,0.71239e+00_rb,0.75526e+00_rb,0.79130e+00_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.58682e+00_rb,0.64468e+00_rb,0.69616e+00_rb,0.74131e+00_rb,0.77948e+00_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.56554e+00_rb,0.62545e+00_rb,0.67917e+00_rb,0.72630e+00_rb,0.76697e+00_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.54212e+00_rb,0.60419e+00_rb,0.66020e+00_rb,0.70997e+00_rb,0.75300e+00_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.51537e+00_rb,0.57955e+00_rb,0.63814e+00_rb,0.69060e+00_rb,0.73632e+00_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.48823e+00_rb,0.55406e+00_rb,0.61515e+00_rb,0.67007e+00_rb,0.71851e+00_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.46082e+00_rb,0.52769e+00_rb,0.59101e+00_rb,0.64854e+00_rb,0.69978e+00_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.43478e+00_rb,0.50249e+00_rb,0.56761e+00_rb,0.62745e+00_rb,0.68113e+00_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.40951e+00_rb,0.47777e+00_rb,0.54418e+00_rb,0.60613e+00_rb,0.66212e+00_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.38439e+00_rb,0.45288e+00_rb,0.52007e+00_rb,0.58405e+00_rb,0.64238e+00_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.35936e+00_rb,0.42773e+00_rb,0.49564e+00_rb,0.56121e+00_rb,0.62177e+00_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.33659e+00_rb,0.40461e+00_rb,0.47296e+00_rb,0.53959e+00_rb,0.60208e+00_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.31505e+00_rb,0.38259e+00_rb,0.45108e+00_rb,0.51845e+00_rb,0.58256e+00_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.29381e+00_rb,0.36074e+00_rb,0.42910e+00_rb,0.49702e+00_rb,0.56263e+00_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.27284e+00_rb,0.33897e+00_rb,0.40701e+00_rb,0.47542e+00_rb,0.54206e+00_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.25321e+00_rb,0.31859e+00_rb,0.38622e+00_rb,0.45477e+00_rb,0.52205e+00_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.24543e+00_rb,0.31049e+00_rb,0.37793e+00_rb,0.44646e+00_rb,0.51396e+00_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.17373e+01_rb,0.17393e+01_rb,0.17383e+01_rb,0.17344e+01_rb,0.17279e+01_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.18339e+01_rb,0.18343e+01_rb,0.18325e+01_rb,0.18267e+01_rb,0.18189e+01_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.19299e+01_rb,0.19296e+01_rb,0.19248e+01_rb,0.19184e+01_rb,0.19080e+01_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.20259e+01_rb,0.20224e+01_rb,0.20169e+01_rb,0.20066e+01_rb,0.19945e+01_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.21175e+01_rb,0.21127e+01_rb,0.21039e+01_rb,0.20921e+01_rb,0.20768e+01_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.22042e+01_rb,0.21972e+01_rb,0.21859e+01_rb,0.21721e+01_rb,0.21537e+01_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.22848e+01_rb,0.22747e+01_rb,0.22622e+01_rb,0.22448e+01_rb,0.22240e+01_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.23560e+01_rb,0.23462e+01_rb,0.23302e+01_rb,0.23098e+01_rb,0.22867e+01_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.24183e+01_rb,0.24082e+01_rb,0.23905e+01_rb,0.23680e+01_rb,0.23418e+01_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.24717e+01_rb,0.24598e+01_rb,0.24413e+01_rb,0.24169e+01_rb,0.23867e+01_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.25171e+01_rb,0.25034e+01_rb,0.24840e+01_rb,0.24570e+01_rb,0.24242e+01_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.25547e+01_rb,0.25403e+01_rb,0.25194e+01_rb,0.24898e+01_rb,0.24547e+01_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.25855e+01_rb,0.25703e+01_rb,0.25468e+01_rb,0.25156e+01_rb,0.24784e+01_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.26110e+01_rb,0.25944e+01_rb,0.25683e+01_rb,0.25352e+01_rb,0.24957e+01_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.26319e+01_rb,0.26130e+01_rb,0.25843e+01_rb,0.25495e+01_rb,0.25077e+01_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.26480e+01_rb,0.26264e+01_rb,0.25959e+01_rb,0.25590e+01_rb,0.25150e+01_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.26603e+01_rb,0.26355e+01_rb,0.26036e+01_rb,0.25644e+01_rb,0.25186e+01_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.26690e+01_rb,0.26417e+01_rb,0.26076e+01_rb,0.25661e+01_rb,0.25188e+01_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.26742e+01_rb,0.26446e+01_rb,0.26086e+01_rb,0.25648e+01_rb,0.25163e+01_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.26768e+01_rb,0.26452e+01_rb,0.26068e+01_rb,0.25609e+01_rb,0.25113e+01_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.26771e+01_rb,0.26434e+01_rb,0.26028e+01_rb,0.25551e+01_rb,0.25044e+01_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.26762e+01_rb,0.26409e+01_rb,0.25981e+01_rb,0.25494e+01_rb,0.24981e+01_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.26773e+01_rb,0.26407e+01_rb,0.25970e+01_rb,0.25475e+01_rb,0.24957e+01_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.26808e+01_rb,0.26440e+01_rb,0.25999e+01_rb,0.25501e+01_rb,0.24981e+01_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.26888e+01_rb,0.26526e+01_rb,0.26095e+01_rb,0.25599e+01_rb,0.25079e+01_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.26963e+01_rb,0.26609e+01_rb,0.26186e+01_rb,0.25695e+01_rb,0.25177e+01_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.27030e+01_rb,0.26686e+01_rb,0.26272e+01_rb,0.25787e+01_rb,0.25269e+01_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.27118e+01_rb,0.26792e+01_rb,0.26399e+01_rb,0.25927e+01_rb,0.25414e+01_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.27201e+01_rb,0.26898e+01_rb,0.26520e+01_rb,0.26068e+01_rb,0.25561e+01_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.27274e+01_rb,0.27000e+01_rb,0.26636e+01_rb,0.26203e+01_rb,0.25704e+01_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.27341e+01_rb,0.27108e+01_rb,0.26767e+01_rb,0.26357e+01_rb,0.25871e+01_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.27398e+01_rb,0.27209e+01_rb,0.26898e+01_rb,0.26513e+01_rb,0.26050e+01_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.27435e+01_rb,0.27298e+01_rb,0.27021e+01_rb,0.26655e+01_rb,0.26220e+01_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.27454e+01_rb,0.27371e+01_rb,0.27139e+01_rb,0.26799e+01_rb,0.26391e+01_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.27460e+01_rb,0.27424e+01_rb,0.27253e+01_rb,0.26950e+01_rb,0.26569e+01_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.27436e+01_rb,0.27457e+01_rb,0.27342e+01_rb,0.27088e+01_rb,0.26736e+01_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.27370e+01_rb,0.27470e+01_rb,0.27411e+01_rb,0.27207e+01_rb,0.26888e+01_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.27269e+01_rb,0.27459e+01_rb,0.27451e+01_rb,0.27305e+01_rb,0.27022e+01_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.27139e+01_rb,0.27424e+01_rb,0.27470e+01_rb,0.27377e+01_rb,0.27140e+01_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.26965e+01_rb,0.27350e+01_rb,0.27474e+01_rb,0.27429e+01_rb,0.27243e+01_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.26758e+01_rb,0.27241e+01_rb,0.27457e+01_rb,0.27461e+01_rb,0.27331e+01_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.26529e+01_rb,0.27108e+01_rb,0.27417e+01_rb,0.27475e+01_rb,0.27393e+01_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.26271e+01_rb,0.26955e+01_rb,0.27349e+01_rb,0.27476e+01_rb,0.27437e+01_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.25970e+01_rb,0.26775e+01_rb,0.27251e+01_rb,0.27462e+01_rb,0.27464e+01_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.25617e+01_rb,0.26559e+01_rb,0.27125e+01_rb,0.27426e+01_rb,0.27477e+01_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.25247e+01_rb,0.26320e+01_rb,0.26988e+01_rb,0.27363e+01_rb,0.27482e+01_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.25089e+01_rb,0.26212e+01_rb,0.26923e+01_rb,0.27333e+01_rb,0.27480e+01_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.36859e+01_rb,0.36950e+01_rb,0.36942e+01_rb,0.36830e+01_rb,0.36649e+01_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.41563e+01_rb,0.41556e+01_rb,0.41430e+01_rb,0.41233e+01_rb,0.40913e+01_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.46342e+01_rb,0.46206e+01_rb,0.45970e+01_rb,0.45604e+01_rb,0.45153e+01_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.51044e+01_rb,0.50788e+01_rb,0.50384e+01_rb,0.49882e+01_rb,0.49250e+01_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.55612e+01_rb,0.55175e+01_rb,0.54618e+01_rb,0.53932e+01_rb,0.53123e+01_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.59883e+01_rb,0.59323e+01_rb,0.58578e+01_rb,0.57682e+01_rb,0.56700e+01_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.63852e+01_rb,0.63106e+01_rb,0.62177e+01_rb,0.61123e+01_rb,0.59947e+01_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.67473e+01_rb,0.66496e+01_rb,0.65407e+01_rb,0.64159e+01_rb,0.62789e+01_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.70720e+01_rb,0.69522e+01_rb,0.68220e+01_rb,0.66792e+01_rb,0.65258e+01_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.73512e+01_rb,0.72082e+01_rb,0.70565e+01_rb,0.68942e+01_rb,0.67258e+01_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.75866e+01_rb,0.74239e+01_rb,0.72515e+01_rb,0.70718e+01_rb,0.68886e+01_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.77818e+01_rb,0.75993e+01_rb,0.74076e+01_rb,0.72128e+01_rb,0.70154e+01_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.79381e+01_rb,0.77379e+01_rb,0.75298e+01_rb,0.73205e+01_rb,0.71111e+01_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.80556e+01_rb,0.78384e+01_rb,0.76185e+01_rb,0.73961e+01_rb,0.71755e+01_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.81409e+01_rb,0.79095e+01_rb,0.76795e+01_rb,0.74472e+01_rb,0.72174e+01_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.81987e+01_rb,0.79569e+01_rb,0.77176e+01_rb,0.74766e+01_rb,0.72412e+01_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.82302e+01_rb,0.79809e+01_rb,0.77337e+01_rb,0.74875e+01_rb,0.72468e+01_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.82419e+01_rb,0.79875e+01_rb,0.77343e+01_rb,0.74825e+01_rb,0.72390e+01_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.82369e+01_rb,0.79780e+01_rb,0.77201e+01_rb,0.74661e+01_rb,0.72183e+01_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.82187e+01_rb,0.79550e+01_rb,0.76944e+01_rb,0.74386e+01_rb,0.71874e+01_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.81889e+01_rb,0.79220e+01_rb,0.76592e+01_rb,0.74026e+01_rb,0.71493e+01_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.81602e+01_rb,0.78912e+01_rb,0.76262e+01_rb,0.73693e+01_rb,0.71134e+01_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.81506e+01_rb,0.78799e+01_rb,0.76144e+01_rb,0.73562e+01_rb,0.70988e+01_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.81664e+01_rb,0.78930e+01_rb,0.76263e+01_rb,0.73664e+01_rb,0.71072e+01_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.82200e+01_rb,0.79452e+01_rb,0.76751e+01_rb,0.74132e+01_rb,0.71537e+01_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.82730e+01_rb,0.79962e+01_rb,0.77251e+01_rb,0.74606e+01_rb,0.72002e+01_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.83243e+01_rb,0.80459e+01_rb,0.77713e+01_rb,0.75063e+01_rb,0.72452e+01_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.84027e+01_rb,0.81225e+01_rb,0.78456e+01_rb,0.75775e+01_rb,0.73152e+01_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.84834e+01_rb,0.82013e+01_rb,0.79233e+01_rb,0.76507e+01_rb,0.73874e+01_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.85638e+01_rb,0.82794e+01_rb,0.79999e+01_rb,0.77248e+01_rb,0.74594e+01_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.86608e+01_rb,0.83728e+01_rb,0.80910e+01_rb,0.78137e+01_rb,0.75464e+01_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.87658e+01_rb,0.84741e+01_rb,0.81903e+01_rb,0.79102e+01_rb,0.76390e+01_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.88709e+01_rb,0.85747e+01_rb,0.82886e+01_rb,0.80079e+01_rb,0.77318e+01_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.89828e+01_rb,0.86839e+01_rb,0.83945e+01_rb,0.81115e+01_rb,0.78321e+01_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.91067e+01_rb,0.88066e+01_rb,0.85118e+01_rb,0.82270e+01_rb,0.79459e+01_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.92318e+01_rb,0.89292e+01_rb,0.86312e+01_rb,0.83427e+01_rb,0.80595e+01_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.93597e+01_rb,0.90533e+01_rb,0.87516e+01_rb,0.84602e+01_rb,0.81749e+01_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.94828e+01_rb,0.91681e+01_rb,0.88667e+01_rb,0.85700e+01_rb,0.82833e+01_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.96031e+01_rb,0.92821e+01_rb,0.89785e+01_rb,0.86778e+01_rb,0.83878e+01_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.97227e+01_rb,0.93978e+01_rb,0.90892e+01_rb,0.87879e+01_rb,0.84938e+01_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.98436e+01_rb,0.95182e+01_rb,0.92014e+01_rb,0.88988e+01_rb,0.86011e+01_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.99573e+01_rb,0.96274e+01_rb,0.93049e+01_rb,0.90008e+01_rb,0.87001e+01_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.10066e+02_rb,0.97327e+01_rb,0.94075e+01_rb,0.90983e+01_rb,0.87962e+01_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.10177e+02_rb,0.98378e+01_rb,0.95127e+01_rb,0.91960e+01_rb,0.88926e+01_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.10293e+02_rb,0.99462e+01_rb,0.96173e+01_rb,0.92949e+01_rb,0.89909e+01_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.10405e+02_rb,0.10049e+02_rb,0.97160e+01_rb,0.93909e+01_rb,0.90821e+01_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.10450e+02_rb,0.10090e+02_rb,0.97556e+01_rb,0.94305e+01_rb,0.91193e+01_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.50473e+01_rb,0.50398e+01_rb,0.50183e+01_rb,0.49834e+01_rb,0.49369e+01_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.59220e+01_rb,0.58911e+01_rb,0.58423e+01_rb,0.57748e+01_rb,0.56924e+01_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.68737e+01_rb,0.68078e+01_rb,0.67189e+01_rb,0.66072e+01_rb,0.64839e+01_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.78824e+01_rb,0.77694e+01_rb,0.76268e+01_rb,0.74643e+01_rb,0.72894e+01_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.89270e+01_rb,0.87413e+01_rb,0.85370e+01_rb,0.83130e+01_rb,0.80798e+01_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.99711e+01_rb,0.97011e+01_rb,0.94250e+01_rb,0.91345e+01_rb,0.88363e+01_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.10989e+02_rb,0.10627e+02_rb,0.10268e+02_rb,0.99076e+01_rb,0.95430e+01_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.11944e+02_rb,0.11487e+02_rb,0.11042e+02_rb,0.10609e+02_rb,0.10177e+02_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.12817e+02_rb,0.12265e+02_rb,0.11737e+02_rb,0.11232e+02_rb,0.10736e+02_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.13548e+02_rb,0.12914e+02_rb,0.12305e+02_rb,0.11734e+02_rb,0.11183e+02_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.14162e+02_rb,0.13448e+02_rb,0.12773e+02_rb,0.12143e+02_rb,0.11545e+02_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.14655e+02_rb,0.13870e+02_rb,0.13141e+02_rb,0.12464e+02_rb,0.11822e+02_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.15031e+02_rb,0.14189e+02_rb,0.13415e+02_rb,0.12699e+02_rb,0.12023e+02_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.15288e+02_rb,0.14405e+02_rb,0.13595e+02_rb,0.12850e+02_rb,0.12149e+02_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.15452e+02_rb,0.14541e+02_rb,0.13705e+02_rb,0.12937e+02_rb,0.12216e+02_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.15538e+02_rb,0.14608e+02_rb,0.13754e+02_rb,0.12971e+02_rb,0.12237e+02_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.15553e+02_rb,0.14613e+02_rb,0.13748e+02_rb,0.12957e+02_rb,0.12214e+02_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.15516e+02_rb,0.14571e+02_rb,0.13703e+02_rb,0.12907e+02_rb,0.12159e+02_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.15433e+02_rb,0.14488e+02_rb,0.13621e+02_rb,0.12822e+02_rb,0.12076e+02_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.15312e+02_rb,0.14373e+02_rb,0.13511e+02_rb,0.12712e+02_rb,0.11970e+02_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.15164e+02_rb,0.14234e+02_rb,0.13378e+02_rb,0.12584e+02_rb,0.11848e+02_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.15029e+02_rb,0.14108e+02_rb,0.13258e+02_rb,0.12470e+02_rb,0.11741e+02_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.14974e+02_rb,0.14055e+02_rb,0.13205e+02_rb,0.12418e+02_rb,0.11691e+02_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.15011e+02_rb,0.14086e+02_rb,0.13232e+02_rb,0.12441e+02_rb,0.11710e+02_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.15186e+02_rb,0.14243e+02_rb,0.13376e+02_rb,0.12573e+02_rb,0.11831e+02_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.15364e+02_rb,0.14405e+02_rb,0.13523e+02_rb,0.12708e+02_rb,0.11955e+02_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.15541e+02_rb,0.14562e+02_rb,0.13666e+02_rb,0.12840e+02_rb,0.12075e+02_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.15818e+02_rb,0.14814e+02_rb,0.13896e+02_rb,0.13052e+02_rb,0.12271e+02_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.16115e+02_rb,0.15082e+02_rb,0.14138e+02_rb,0.13278e+02_rb,0.12478e+02_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.16420e+02_rb,0.15352e+02_rb,0.14384e+02_rb,0.13504e+02_rb,0.12687e+02_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.16793e+02_rb,0.15690e+02_rb,0.14694e+02_rb,0.13784e+02_rb,0.12952e+02_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.17211e+02_rb,0.16062e+02_rb,0.15031e+02_rb,0.14091e+02_rb,0.13236e+02_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.17640e+02_rb,0.16447e+02_rb,0.15376e+02_rb,0.14411e+02_rb,0.13526e+02_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.18112e+02_rb,0.16870e+02_rb,0.15758e+02_rb,0.14754e+02_rb,0.13842e+02_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.18658e+02_rb,0.17363e+02_rb,0.16197e+02_rb,0.15151e+02_rb,0.14204e+02_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.19225e+02_rb,0.17876e+02_rb,0.16658e+02_rb,0.15564e+02_rb,0.14577e+02_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.19824e+02_rb,0.18409e+02_rb,0.17136e+02_rb,0.15993e+02_rb,0.14967e+02_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.20411e+02_rb,0.18926e+02_rb,0.17606e+02_rb,0.16414e+02_rb,0.15344e+02_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.21005e+02_rb,0.19452e+02_rb,0.18077e+02_rb,0.16838e+02_rb,0.15725e+02_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.21646e+02_rb,0.20001e+02_rb,0.18565e+02_rb,0.17278e+02_rb,0.16117e+02_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.22315e+02_rb,0.20576e+02_rb,0.19072e+02_rb,0.17736e+02_rb,0.16529e+02_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.22958e+02_rb,0.21134e+02_rb,0.19557e+02_rb,0.18172e+02_rb,0.16919e+02_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.23603e+02_rb,0.21694e+02_rb,0.20042e+02_rb,0.18600e+02_rb,0.17305e+02_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.24285e+02_rb,0.22278e+02_rb,0.20543e+02_rb,0.19044e+02_rb,0.17707e+02_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.24997e+02_rb,0.22887e+02_rb,0.21074e+02_rb,0.19504e+02_rb,0.18121e+02_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.25697e+02_rb,0.23494e+02_rb,0.21600e+02_rb,0.19961e+02_rb,0.18525e+02_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.25984e+02_rb,0.23748e+02_rb,0.21819e+02_rb,0.20147e+02_rb,0.18689e+02_rb /)\n  \n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.106275e-05_rb, 0.104185e-05_rb, 0.420154e-05_rb /)\n      forrefo(:, 2) = (/ 0.154343e-05_rb, 0.653193e-05_rb, 0.174596e-04_rb /)\n      forrefo(:, 3) = (/ 0.348917e-05_rb, 0.108420e-04_rb, 0.540849e-04_rb /)\n      forrefo(:, 4) = (/ 0.145822e-04_rb, 0.156027e-04_rb, 0.881263e-04_rb /)\n      forrefo(:, 5) = (/ 0.220204e-04_rb, 0.819892e-04_rb, 0.817937e-04_rb /)\n      forrefo(:, 6) = (/ 0.447840e-04_rb, 0.121116e-03_rb, 0.932635e-04_rb /)\n      forrefo(:, 7) = (/ 0.166516e-03_rb, 0.147640e-03_rb, 0.754029e-04_rb /)\n      forrefo(:, 8) = (/ 0.234756e-03_rb, 0.145934e-03_rb, 0.771734e-04_rb /)\n      forrefo(:, 9) = (/ 0.289207e-03_rb, 0.146768e-03_rb, 0.677806e-04_rb /)\n      forrefo(:,10) = (/ 0.334959e-03_rb, 0.125513e-03_rb, 0.636648e-04_rb /)\n      forrefo(:,11) = (/ 0.333755e-03_rb, 0.136575e-03_rb, 0.593651e-04_rb /)\n      forrefo(:,12) = (/ 0.340042e-03_rb, 0.116259e-03_rb, 0.595192e-04_rb /)\n      forrefo(:,13) = (/ 0.422470e-03_rb, 0.148691e-03_rb, 0.630266e-04_rb /)\n      forrefo(:,14) = (/ 0.440655e-03_rb, 0.461917e-04_rb, 0.108222e-04_rb /)\n      forrefo(:,15) = (/ 0.486207e-03_rb, 0.428458e-03_rb, 0.108086e-04_rb /)\n      forrefo(:,16) = (/ 0.657463e-03_rb, 0.657446e-03_rb, 0.126190e-04_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n     \n      selfrefo(:, 1) = (/ &\n        &  0.331728e-03_rb, 0.287480e-03_rb, 0.249135e-03_rb, 0.215904e-03_rb, 0.187106e-03_rb, &\n        &  0.162149e-03_rb, 0.140520e-03_rb, 0.121777e-03_rb, 0.105534e-03_rb, 0.914573e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.882628e-03_rb, 0.698914e-03_rb, 0.553439e-03_rb, 0.438244e-03_rb, 0.347026e-03_rb, &\n        &  0.274795e-03_rb, 0.217598e-03_rb, 0.172306e-03_rb, 0.136442e-03_rb, 0.108042e-03_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.115461e-02_rb, 0.937203e-03_rb, 0.760730e-03_rb, 0.617486e-03_rb, 0.501215e-03_rb, &\n        &  0.406837e-03_rb, 0.330231e-03_rb, 0.268049e-03_rb, 0.217576e-03_rb, 0.176607e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.103450e-02_rb, 0.960268e-03_rb, 0.891360e-03_rb, 0.827397e-03_rb, 0.768024e-03_rb, &\n        &  0.712911e-03_rb, 0.661754e-03_rb, 0.614267e-03_rb, 0.570188e-03_rb, 0.529272e-03_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.289040e-02_rb, 0.240129e-02_rb, 0.199495e-02_rb, 0.165737e-02_rb, 0.137692e-02_rb, &\n        &  0.114392e-02_rb, 0.950351e-03_rb, 0.789535e-03_rb, 0.655933e-03_rb, 0.544938e-03_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.361772e-02_rb, 0.306611e-02_rb, 0.259861e-02_rb, 0.220239e-02_rb, 0.186659e-02_rb, &\n        &  0.158198e-02_rb, 0.134077e-02_rb, 0.113634e-02_rb, 0.963078e-03_rb, 0.816234e-03_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.329878e-02_rb, 0.318245e-02_rb, 0.307021e-02_rb, 0.296194e-02_rb, 0.285749e-02_rb, &\n        &  0.275671e-02_rb, 0.265950e-02_rb, 0.256571e-02_rb, 0.247522e-02_rb, 0.238793e-02_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.293562e-02_rb, 0.300077e-02_rb, 0.306737e-02_rb, 0.313544e-02_rb, 0.320503e-02_rb, &\n        &  0.327615e-02_rb, 0.334886e-02_rb, 0.342318e-02_rb, 0.349915e-02_rb, 0.357680e-02_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.281453e-02_rb, 0.295894e-02_rb, 0.311076e-02_rb, 0.327038e-02_rb, 0.343818e-02_rb, &\n        &  0.361459e-02_rb, 0.380006e-02_rb, 0.399504e-02_rb, 0.420002e-02_rb, 0.441553e-02_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.239488e-02_rb, 0.262487e-02_rb, 0.287696e-02_rb, 0.315325e-02_rb, 0.345607e-02_rb, &\n        &  0.378798e-02_rb, 0.415176e-02_rb, 0.455048e-02_rb, 0.498749e-02_rb, 0.546647e-02_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.271001e-02_rb, 0.292235e-02_rb, 0.315134e-02_rb, 0.339826e-02_rb, 0.366453e-02_rb, &\n        &  0.395167e-02_rb, 0.426131e-02_rb, 0.459521e-02_rb, 0.495527e-02_rb, 0.534354e-02_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.206702e-02_rb, 0.232254e-02_rb, 0.260966e-02_rb, 0.293226e-02_rb, 0.329475e-02_rb, &\n        &  0.370204e-02_rb, 0.415969e-02_rb, 0.467391e-02_rb, 0.525169e-02_rb, 0.590090e-02_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.227023e-02_rb, 0.257331e-02_rb, 0.291685e-02_rb, 0.330626e-02_rb, 0.374766e-02_rb, &\n        &  0.424799e-02_rb, 0.481511e-02_rb, 0.545794e-02_rb, 0.618660e-02_rb, 0.701253e-02_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.851078e-03_rb, 0.111512e-02_rb, 0.146109e-02_rb, 0.191439e-02_rb, 0.250832e-02_rb, &\n        &  0.328653e-02_rb, 0.430617e-02_rb, 0.564215e-02_rb, 0.739261e-02_rb, 0.968616e-02_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.742711e-02_rb, 0.721347e-02_rb, 0.700598e-02_rb, 0.680446e-02_rb, 0.660873e-02_rb, &\n        &  0.641863e-02_rb, 0.623400e-02_rb, 0.605468e-02_rb, 0.588052e-02_rb, 0.571137e-02_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.107170e-01_rb, 0.101913e-01_rb, 0.969138e-02_rb, 0.921599e-02_rb, 0.876392e-02_rb, &\n        &  0.833402e-02_rb, 0.792521e-02_rb, 0.753646e-02_rb, 0.716677e-02_rb, 0.681522e-02_rb /)\n  \n      end subroutine sw_kgb19\n\n! **************************************************************************\n      subroutine sw_kgb20\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absch4o, rayl, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 9.34081_rb , 8.93720_rb    , 8.19346_rb    , 7.39196_rb    , &\n        & 6.12127_rb , 5.23956_rb    , 4.24941_rb    , 3.20013_rb    , &\n        & 2.16047_rb , 0.234509_rb   , 0.194593_rb   , 0.151512_rb   , &\n        & 0.110315_rb, 7.09959e-02_rb, 2.70573e-02_rb, 3.36042e-03_rb /)\n  \n      absch4o(:) = (/ &  \n        & 1.01381e-03_rb,6.33692e-03_rb,1.94185e-02_rb,4.83210e-02_rb, &\n        & 2.36574e-03_rb,6.61973e-04_rb,5.64552e-04_rb,2.83183e-04_rb, &\n        & 7.43623e-05_rb,8.90159e-07_rb,6.98728e-07_rb,6.51832e-08_rb, &\n        & 2.96619e-08_rb,         0._rb,         0._rb,         0._rb /)\n\n! Rayleigh extinction coefficient at v = 5670 cm-1.\n      rayl = 4.12e-09_rb\n\n      layreffr = 3\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.78383e-06_rb,0.86220e-06_rb,0.95359e-06_rb,0.10590e-05_rb,0.11782e-05_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.65040e-06_rb,0.72510e-06_rb,0.81318e-06_rb,0.90059e-06_rb,0.99786e-06_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.58072e-06_rb,0.65888e-06_rb,0.74265e-06_rb,0.81854e-06_rb,0.90645e-06_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.53601e-06_rb,0.60765e-06_rb,0.68088e-06_rb,0.75741e-06_rb,0.83801e-06_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.50142e-06_rb,0.56951e-06_rb,0.64028e-06_rb,0.71944e-06_rb,0.79813e-06_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.47164e-06_rb,0.54008e-06_rb,0.61040e-06_rb,0.68006e-06_rb,0.75034e-06_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.49337e-06_rb,0.56178e-06_rb,0.62215e-06_rb,0.69127e-06_rb,0.76060e-06_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.61581e-06_rb,0.70117e-06_rb,0.78942e-06_rb,0.87145e-06_rb,0.94647e-06_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.14154e-05_rb,0.15754e-05_rb,0.17261e-05_rb,0.18739e-05_rb,0.19774e-05_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.34186e-05_rb,0.37012e-05_rb,0.39602e-05_rb,0.42235e-05_rb,0.44256e-05_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.38574e-05_rb,0.42080e-05_rb,0.44701e-05_rb,0.47454e-05_rb,0.50002e-05_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.35794e-05_rb,0.38686e-05_rb,0.41443e-05_rb,0.43939e-05_rb,0.46500e-05_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.29586e-05_rb,0.31938e-05_rb,0.34167e-05_rb,0.36253e-05_rb,0.38250e-05_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.57098e-05_rb,0.64630e-05_rb,0.73117e-05_rb,0.82436e-05_rb,0.91947e-05_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.46384e-05_rb,0.53125e-05_rb,0.60301e-05_rb,0.68028e-05_rb,0.75824e-05_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.40657e-05_rb,0.46486e-05_rb,0.52459e-05_rb,0.58955e-05_rb,0.65546e-05_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.38895e-05_rb,0.44258e-05_rb,0.49759e-05_rb,0.55663e-05_rb,0.61702e-05_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.38971e-05_rb,0.44359e-05_rb,0.49933e-05_rb,0.55523e-05_rb,0.61234e-05_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.39532e-05_rb,0.44644e-05_rb,0.49734e-05_rb,0.54875e-05_rb,0.60102e-05_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.41068e-05_rb,0.45832e-05_rb,0.50698e-05_rb,0.55521e-05_rb,0.60175e-05_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.47922e-05_rb,0.52156e-05_rb,0.56817e-05_rb,0.61576e-05_rb,0.66313e-05_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.83199e-05_rb,0.88317e-05_rb,0.93688e-05_rb,0.99754e-05_rb,0.10620e-04_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.16836e-04_rb,0.18526e-04_rb,0.19887e-04_rb,0.21168e-04_rb,0.22104e-04_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.18882e-04_rb,0.21005e-04_rb,0.22896e-04_rb,0.24777e-04_rb,0.26115e-04_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.17744e-04_rb,0.19780e-04_rb,0.21600e-04_rb,0.23523e-04_rb,0.25128e-04_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.14736e-04_rb,0.16356e-04_rb,0.17955e-04_rb,0.19533e-04_rb,0.20861e-04_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.41776e-04_rb,0.48150e-04_rb,0.55097e-04_rb,0.62661e-04_rb,0.70920e-04_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.33909e-04_rb,0.39176e-04_rb,0.44622e-04_rb,0.50754e-04_rb,0.57336e-04_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.27438e-04_rb,0.31473e-04_rb,0.36122e-04_rb,0.41134e-04_rb,0.46456e-04_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.23222e-04_rb,0.26535e-04_rb,0.30141e-04_rb,0.34099e-04_rb,0.38416e-04_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.21114e-04_rb,0.23888e-04_rb,0.26883e-04_rb,0.30340e-04_rb,0.33785e-04_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.20750e-04_rb,0.22926e-04_rb,0.25536e-04_rb,0.28492e-04_rb,0.31676e-04_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.21584e-04_rb,0.24112e-04_rb,0.26872e-04_rb,0.29794e-04_rb,0.32940e-04_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.24194e-04_rb,0.26981e-04_rb,0.30137e-04_rb,0.33546e-04_rb,0.37182e-04_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.37461e-04_rb,0.42158e-04_rb,0.46718e-04_rb,0.51048e-04_rb,0.55154e-04_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.72391e-04_rb,0.77164e-04_rb,0.84016e-04_rb,0.89658e-04_rb,0.95511e-04_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.91736e-04_rb,0.99107e-04_rb,0.10463e-03_rb,0.10952e-03_rb,0.11549e-03_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.91200e-04_rb,0.98812e-04_rb,0.10432e-03_rb,0.10893e-03_rb,0.11349e-03_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.76217e-04_rb,0.82702e-04_rb,0.87500e-04_rb,0.91349e-04_rb,0.95349e-04_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.71705e-03_rb,0.82743e-03_rb,0.94700e-03_rb,0.10670e-02_rb,0.11902e-02_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.57909e-03_rb,0.67096e-03_rb,0.76724e-03_rb,0.86582e-03_rb,0.97167e-03_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.44771e-03_rb,0.51997e-03_rb,0.59861e-03_rb,0.67967e-03_rb,0.76676e-03_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.34085e-03_rb,0.39833e-03_rb,0.46226e-03_rb,0.52889e-03_rb,0.60008e-03_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.26678e-03_rb,0.31234e-03_rb,0.36341e-03_rb,0.41663e-03_rb,0.47418e-03_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.20903e-03_rb,0.24718e-03_rb,0.28922e-03_rb,0.33353e-03_rb,0.38176e-03_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.17173e-03_rb,0.20330e-03_rb,0.23711e-03_rb,0.27401e-03_rb,0.31445e-03_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.16722e-03_rb,0.19396e-03_rb,0.22307e-03_rb,0.25347e-03_rb,0.28561e-03_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.25043e-03_rb,0.28824e-03_rb,0.32547e-03_rb,0.36193e-03_rb,0.39806e-03_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.43323e-03_rb,0.48667e-03_rb,0.53462e-03_rb,0.57879e-03_rb,0.62040e-03_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.47719e-03_rb,0.52271e-03_rb,0.56402e-03_rb,0.60388e-03_rb,0.63520e-03_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.45061e-03_rb,0.49014e-03_rb,0.52391e-03_rb,0.55276e-03_rb,0.57760e-03_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.37664e-03_rb,0.40952e-03_rb,0.43690e-03_rb,0.46055e-03_rb,0.48018e-03_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.66466e-02_rb,0.68686e-02_rb,0.70897e-02_rb,0.73019e-02_rb,0.74914e-02_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.54023e-02_rb,0.56010e-02_rb,0.58008e-02_rb,0.59987e-02_rb,0.61685e-02_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.43218e-02_rb,0.45127e-02_rb,0.46848e-02_rb,0.48647e-02_rb,0.50267e-02_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.34639e-02_rb,0.36473e-02_rb,0.37951e-02_rb,0.39570e-02_rb,0.41049e-02_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.27745e-02_rb,0.29370e-02_rb,0.30754e-02_rb,0.32148e-02_rb,0.33492e-02_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.22020e-02_rb,0.23520e-02_rb,0.24836e-02_rb,0.25965e-02_rb,0.27119e-02_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.17624e-02_rb,0.18963e-02_rb,0.20161e-02_rb,0.21153e-02_rb,0.22116e-02_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.14169e-02_rb,0.15332e-02_rb,0.16350e-02_rb,0.17231e-02_rb,0.18121e-02_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.13030e-02_rb,0.13904e-02_rb,0.14690e-02_rb,0.15500e-02_rb,0.16275e-02_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.17155e-02_rb,0.18169e-02_rb,0.18943e-02_rb,0.19620e-02_rb,0.20215e-02_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.17156e-02_rb,0.17808e-02_rb,0.18419e-02_rb,0.18925e-02_rb,0.19313e-02_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.15269e-02_rb,0.15811e-02_rb,0.16283e-02_rb,0.16686e-02_rb,0.17061e-02_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.12768e-02_rb,0.13207e-02_rb,0.13555e-02_rb,0.13924e-02_rb,0.14234e-02_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.19191e-01_rb,0.19463e-01_rb,0.19692e-01_rb,0.19900e-01_rb,0.20112e-01_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.15967e-01_rb,0.16219e-01_rb,0.16426e-01_rb,0.16613e-01_rb,0.16805e-01_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.13186e-01_rb,0.13411e-01_rb,0.13614e-01_rb,0.13785e-01_rb,0.13944e-01_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.10935e-01_rb,0.11131e-01_rb,0.11318e-01_rb,0.11475e-01_rb,0.11620e-01_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.90541e-02_rb,0.92344e-02_rb,0.94035e-02_rb,0.95537e-02_rb,0.96862e-02_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.74724e-02_rb,0.76320e-02_rb,0.77794e-02_rb,0.79294e-02_rb,0.80528e-02_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.61183e-02_rb,0.62644e-02_rb,0.63961e-02_rb,0.65303e-02_rb,0.66478e-02_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.50638e-02_rb,0.51984e-02_rb,0.53222e-02_rb,0.54412e-02_rb,0.55465e-02_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.42870e-02_rb,0.44009e-02_rb,0.45109e-02_rb,0.45976e-02_rb,0.46796e-02_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.45239e-02_rb,0.46073e-02_rb,0.46968e-02_rb,0.47979e-02_rb,0.48956e-02_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.44089e-02_rb,0.45006e-02_rb,0.45881e-02_rb,0.46721e-02_rb,0.48015e-02_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.39598e-02_rb,0.40290e-02_rb,0.41108e-02_rb,0.41899e-02_rb,0.42672e-02_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.33425e-02_rb,0.34148e-02_rb,0.34808e-02_rb,0.35405e-02_rb,0.35983e-02_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.50165e-01_rb,0.50343e-01_rb,0.50452e-01_rb,0.50424e-01_rb,0.50329e-01_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.42723e-01_rb,0.42880e-01_rb,0.42939e-01_rb,0.42910e-01_rb,0.42861e-01_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.36117e-01_rb,0.36255e-01_rb,0.36301e-01_rb,0.36294e-01_rb,0.36288e-01_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.30585e-01_rb,0.30720e-01_rb,0.30787e-01_rb,0.30816e-01_rb,0.30842e-01_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.25879e-01_rb,0.26029e-01_rb,0.26116e-01_rb,0.26179e-01_rb,0.26225e-01_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.21822e-01_rb,0.21978e-01_rb,0.22094e-01_rb,0.22178e-01_rb,0.22244e-01_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.18304e-01_rb,0.18476e-01_rb,0.18606e-01_rb,0.18705e-01_rb,0.18780e-01_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.15224e-01_rb,0.15394e-01_rb,0.15519e-01_rb,0.15619e-01_rb,0.15690e-01_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.12835e-01_rb,0.13029e-01_rb,0.13169e-01_rb,0.13281e-01_rb,0.13369e-01_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.11632e-01_rb,0.11714e-01_rb,0.11760e-01_rb,0.11776e-01_rb,0.11806e-01_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.11170e-01_rb,0.11252e-01_rb,0.11288e-01_rb,0.11357e-01_rb,0.11397e-01_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.10404e-01_rb,0.10533e-01_rb,0.10705e-01_rb,0.10833e-01_rb,0.10947e-01_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.91041e-02_rb,0.92674e-02_rb,0.94068e-02_rb,0.95412e-02_rb,0.96769e-02_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.14527e+00_rb,0.14483e+00_rb,0.14432e+00_rb,0.14389e+00_rb,0.14349e+00_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.12739e+00_rb,0.12702e+00_rb,0.12661e+00_rb,0.12624e+00_rb,0.12584e+00_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.11091e+00_rb,0.11058e+00_rb,0.11024e+00_rb,0.10990e+00_rb,0.10953e+00_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.96590e-01_rb,0.96335e-01_rb,0.96105e-01_rb,0.95818e-01_rb,0.95530e-01_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.83799e-01_rb,0.83708e-01_rb,0.83572e-01_rb,0.83347e-01_rb,0.83126e-01_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.72369e-01_rb,0.72388e-01_rb,0.72289e-01_rb,0.72143e-01_rb,0.71981e-01_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.62158e-01_rb,0.62247e-01_rb,0.62185e-01_rb,0.62111e-01_rb,0.62007e-01_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.52998e-01_rb,0.53142e-01_rb,0.53162e-01_rb,0.53154e-01_rb,0.53101e-01_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.44776e-01_rb,0.44873e-01_rb,0.44920e-01_rb,0.44946e-01_rb,0.44885e-01_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.38237e-01_rb,0.38514e-01_rb,0.38716e-01_rb,0.38877e-01_rb,0.38966e-01_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.33511e-01_rb,0.33721e-01_rb,0.33843e-01_rb,0.33840e-01_rb,0.33839e-01_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.29704e-01_rb,0.29825e-01_rb,0.29808e-01_rb,0.29787e-01_rb,0.29794e-01_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.25973e-01_rb,0.26004e-01_rb,0.26032e-01_rb,0.26023e-01_rb,0.26107e-01_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.56699e+00_rb,0.56615e+00_rb,0.56479e+00_rb,0.56318e+00_rb,0.56135e+00_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.53130e+00_rb,0.53096e+00_rb,0.53038e+00_rb,0.52953e+00_rb,0.52828e+00_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.48947e+00_rb,0.48989e+00_rb,0.48991e+00_rb,0.48970e+00_rb,0.48916e+00_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.44646e+00_rb,0.44756e+00_rb,0.44841e+00_rb,0.44893e+00_rb,0.44859e+00_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.40428e+00_rb,0.40594e+00_rb,0.40746e+00_rb,0.40811e+00_rb,0.40825e+00_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.36305e+00_rb,0.36545e+00_rb,0.36730e+00_rb,0.36814e+00_rb,0.36854e+00_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.32383e+00_rb,0.32659e+00_rb,0.32849e+00_rb,0.32954e+00_rb,0.33028e+00_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.28691e+00_rb,0.28966e+00_rb,0.29156e+00_rb,0.29286e+00_rb,0.29379e+00_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.25109e+00_rb,0.25404e+00_rb,0.25607e+00_rb,0.25752e+00_rb,0.25870e+00_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.21600e+00_rb,0.21860e+00_rb,0.22047e+00_rb,0.22164e+00_rb,0.22251e+00_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.19149e+00_rb,0.19387e+00_rb,0.19567e+00_rb,0.19725e+00_rb,0.19809e+00_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.16914e+00_rb,0.17134e+00_rb,0.17303e+00_rb,0.17407e+00_rb,0.17494e+00_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.14841e+00_rb,0.15027e+00_rb,0.15244e+00_rb,0.15403e+00_rb,0.15523e+00_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.14885e+01_rb,0.14756e+01_rb,0.14663e+01_rb,0.14567e+01_rb,0.14479e+01_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.14911e+01_rb,0.14850e+01_rb,0.14762e+01_rb,0.14677e+01_rb,0.14597e+01_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.14749e+01_rb,0.14716e+01_rb,0.14663e+01_rb,0.14579e+01_rb,0.14502e+01_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.14314e+01_rb,0.14303e+01_rb,0.14232e+01_rb,0.14150e+01_rb,0.14115e+01_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.13616e+01_rb,0.13604e+01_rb,0.13539e+01_rb,0.13506e+01_rb,0.13501e+01_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.12710e+01_rb,0.12700e+01_rb,0.12670e+01_rb,0.12702e+01_rb,0.12745e+01_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.11674e+01_rb,0.11690e+01_rb,0.11727e+01_rb,0.11812e+01_rb,0.11854e+01_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.10584e+01_rb,0.10652e+01_rb,0.10757e+01_rb,0.10857e+01_rb,0.10906e+01_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.95450e+00_rb,0.96414e+00_rb,0.97673e+00_rb,0.98621e+00_rb,0.99187e+00_rb /)\n      kao(:,10,10) = (/ &\n        & 0.83626e+00_rb,0.84690e+00_rb,0.85901e+00_rb,0.86824e+00_rb,0.87535e+00_rb /)\n      kao(:,11,10) = (/ &\n        & 0.73738e+00_rb,0.74729e+00_rb,0.75610e+00_rb,0.75994e+00_rb,0.76481e+00_rb /)\n      kao(:,12,10) = (/ &\n        & 0.66891e+00_rb,0.67622e+00_rb,0.68092e+00_rb,0.68498e+00_rb,0.68877e+00_rb /)\n      kao(:,13,10) = (/ &\n        & 0.58616e+00_rb,0.59614e+00_rb,0.59749e+00_rb,0.60310e+00_rb,0.60445e+00_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.20080e+01_rb,0.19998e+01_rb,0.19844e+01_rb,0.19679e+01_rb,0.19504e+01_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.20896e+01_rb,0.20752e+01_rb,0.20596e+01_rb,0.20445e+01_rb,0.20293e+01_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.21262e+01_rb,0.21143e+01_rb,0.21043e+01_rb,0.20968e+01_rb,0.20862e+01_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.21310e+01_rb,0.21263e+01_rb,0.21243e+01_rb,0.21203e+01_rb,0.21144e+01_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.21041e+01_rb,0.21063e+01_rb,0.21071e+01_rb,0.21077e+01_rb,0.21021e+01_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.20447e+01_rb,0.20491e+01_rb,0.20534e+01_rb,0.20532e+01_rb,0.20477e+01_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.19487e+01_rb,0.19563e+01_rb,0.19608e+01_rb,0.19593e+01_rb,0.19591e+01_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.18239e+01_rb,0.18317e+01_rb,0.18359e+01_rb,0.18391e+01_rb,0.18451e+01_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.16772e+01_rb,0.16879e+01_rb,0.16955e+01_rb,0.17047e+01_rb,0.17179e+01_rb /)\n      kao(:,10,11) = (/ &\n        & 0.15007e+01_rb,0.15184e+01_rb,0.15343e+01_rb,0.15540e+01_rb,0.15756e+01_rb /)\n      kao(:,11,11) = (/ &\n        & 0.13041e+01_rb,0.13245e+01_rb,0.13445e+01_rb,0.13685e+01_rb,0.13888e+01_rb /)\n      kao(:,12,11) = (/ &\n        & 0.11590e+01_rb,0.11749e+01_rb,0.11906e+01_rb,0.12046e+01_rb,0.12212e+01_rb /)\n      kao(:,13,11) = (/ &\n        & 0.10681e+01_rb,0.10905e+01_rb,0.11017e+01_rb,0.10997e+01_rb,0.11116e+01_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.26762e+01_rb,0.26701e+01_rb,0.26710e+01_rb,0.26742e+01_rb,0.26733e+01_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.28804e+01_rb,0.28775e+01_rb,0.28798e+01_rb,0.28773e+01_rb,0.28700e+01_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.30825e+01_rb,0.30790e+01_rb,0.30757e+01_rb,0.30631e+01_rb,0.30471e+01_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.32355e+01_rb,0.32278e+01_rb,0.32144e+01_rb,0.31959e+01_rb,0.31753e+01_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.33271e+01_rb,0.33191e+01_rb,0.33073e+01_rb,0.32879e+01_rb,0.32714e+01_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.33604e+01_rb,0.33571e+01_rb,0.33478e+01_rb,0.33355e+01_rb,0.33272e+01_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.33406e+01_rb,0.33436e+01_rb,0.33436e+01_rb,0.33435e+01_rb,0.33409e+01_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.32648e+01_rb,0.32808e+01_rb,0.32919e+01_rb,0.32976e+01_rb,0.32999e+01_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.31373e+01_rb,0.31630e+01_rb,0.31816e+01_rb,0.31936e+01_rb,0.31991e+01_rb /)\n      kao(:,10,12) = (/ &\n        & 0.29678e+01_rb,0.29982e+01_rb,0.30244e+01_rb,0.30412e+01_rb,0.30500e+01_rb /)\n      kao(:,11,12) = (/ &\n        & 0.27380e+01_rb,0.27731e+01_rb,0.28013e+01_rb,0.28227e+01_rb,0.28455e+01_rb /)\n      kao(:,12,12) = (/ &\n        & 0.24616e+01_rb,0.24905e+01_rb,0.25348e+01_rb,0.25805e+01_rb,0.26155e+01_rb /)\n      kao(:,13,12) = (/ &\n        & 0.22251e+01_rb,0.22562e+01_rb,0.22966e+01_rb,0.23312e+01_rb,0.23811e+01_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.38031e+01_rb,0.37992e+01_rb,0.37926e+01_rb,0.37822e+01_rb,0.37755e+01_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.41542e+01_rb,0.41473e+01_rb,0.41391e+01_rb,0.41329e+01_rb,0.41296e+01_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.44998e+01_rb,0.44963e+01_rb,0.44896e+01_rb,0.44914e+01_rb,0.44937e+01_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.48464e+01_rb,0.48445e+01_rb,0.48485e+01_rb,0.48565e+01_rb,0.48598e+01_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.52074e+01_rb,0.52112e+01_rb,0.52168e+01_rb,0.52231e+01_rb,0.52210e+01_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.55492e+01_rb,0.55575e+01_rb,0.55655e+01_rb,0.55693e+01_rb,0.55642e+01_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.58380e+01_rb,0.58479e+01_rb,0.58509e+01_rb,0.58482e+01_rb,0.58453e+01_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.60377e+01_rb,0.60538e+01_rb,0.60594e+01_rb,0.60647e+01_rb,0.60640e+01_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.61268e+01_rb,0.61532e+01_rb,0.61730e+01_rb,0.61888e+01_rb,0.61993e+01_rb /)\n      kao(:,10,13) = (/ &\n        & 0.61216e+01_rb,0.61612e+01_rb,0.61936e+01_rb,0.62230e+01_rb,0.62454e+01_rb /)\n      kao(:,11,13) = (/ &\n        & 0.60409e+01_rb,0.60960e+01_rb,0.61462e+01_rb,0.61882e+01_rb,0.62219e+01_rb /)\n      kao(:,12,13) = (/ &\n        & 0.58645e+01_rb,0.59597e+01_rb,0.60234e+01_rb,0.60826e+01_rb,0.61390e+01_rb /)\n      kao(:,13,13) = (/ &\n        & 0.56001e+01_rb,0.57009e+01_rb,0.58017e+01_rb,0.59181e+01_rb,0.59860e+01_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.53647e+01_rb,0.53127e+01_rb,0.52736e+01_rb,0.52471e+01_rb,0.52264e+01_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.62359e+01_rb,0.61753e+01_rb,0.61253e+01_rb,0.60847e+01_rb,0.60573e+01_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.72065e+01_rb,0.71249e+01_rb,0.70556e+01_rb,0.69965e+01_rb,0.69559e+01_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.81631e+01_rb,0.80714e+01_rb,0.79828e+01_rb,0.79081e+01_rb,0.78545e+01_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.90691e+01_rb,0.89602e+01_rb,0.88621e+01_rb,0.87858e+01_rb,0.87314e+01_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.99707e+01_rb,0.98474e+01_rb,0.97395e+01_rb,0.96541e+01_rb,0.95904e+01_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.10852e+02_rb,0.10724e+02_rb,0.10620e+02_rb,0.10536e+02_rb,0.10469e+02_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.11716e+02_rb,0.11588e+02_rb,0.11487e+02_rb,0.11403e+02_rb,0.11337e+02_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.12572e+02_rb,0.12448e+02_rb,0.12341e+02_rb,0.12260e+02_rb,0.12188e+02_rb /)\n      kao(:,10,14) = (/ &\n        & 0.13374e+02_rb,0.13256e+02_rb,0.13159e+02_rb,0.13080e+02_rb,0.13010e+02_rb /)\n      kao(:,11,14) = (/ &\n        & 0.14046e+02_rb,0.13957e+02_rb,0.13888e+02_rb,0.13824e+02_rb,0.13769e+02_rb /)\n      kao(:,12,14) = (/ &\n        & 0.14644e+02_rb,0.14592e+02_rb,0.14548e+02_rb,0.14504e+02_rb,0.14461e+02_rb /)\n      kao(:,13,14) = (/ &\n        & 0.15144e+02_rb,0.15129e+02_rb,0.15111e+02_rb,0.15095e+02_rb,0.15074e+02_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.72019e+01_rb,0.71097e+01_rb,0.70236e+01_rb,0.69449e+01_rb,0.68844e+01_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.87604e+01_rb,0.86468e+01_rb,0.85349e+01_rb,0.84375e+01_rb,0.83491e+01_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.10615e+02_rb,0.10469e+02_rb,0.10333e+02_rb,0.10214e+02_rb,0.10099e+02_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.12669e+02_rb,0.12473e+02_rb,0.12305e+02_rb,0.12161e+02_rb,0.12026e+02_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.14978e+02_rb,0.14741e+02_rb,0.14530e+02_rb,0.14329e+02_rb,0.14143e+02_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.17562e+02_rb,0.17282e+02_rb,0.17031e+02_rb,0.16791e+02_rb,0.16552e+02_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.20480e+02_rb,0.20136e+02_rb,0.19827e+02_rb,0.19524e+02_rb,0.19223e+02_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.23734e+02_rb,0.23307e+02_rb,0.22908e+02_rb,0.22521e+02_rb,0.22160e+02_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.27249e+02_rb,0.26733e+02_rb,0.26255e+02_rb,0.25787e+02_rb,0.25354e+02_rb /)\n      kao(:,10,15) = (/ &\n        & 0.30889e+02_rb,0.30311e+02_rb,0.29740e+02_rb,0.29192e+02_rb,0.28690e+02_rb /)\n      kao(:,11,15) = (/ &\n        & 0.34366e+02_rb,0.33687e+02_rb,0.33035e+02_rb,0.32430e+02_rb,0.31843e+02_rb /)\n      kao(:,12,15) = (/ &\n        & 0.37839e+02_rb,0.37085e+02_rb,0.36360e+02_rb,0.35655e+02_rb,0.34957e+02_rb /)\n      kao(:,13,15) = (/ &\n        & 0.41323e+02_rb,0.40503e+02_rb,0.39673e+02_rb,0.38847e+02_rb,0.38049e+02_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.82631e+01_rb,0.81761e+01_rb,0.80809e+01_rb,0.79778e+01_rb,0.79010e+01_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.10258e+02_rb,0.10128e+02_rb,0.10005e+02_rb,0.98803e+01_rb,0.97700e+01_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.12786e+02_rb,0.12614e+02_rb,0.12441e+02_rb,0.12267e+02_rb,0.12120e+02_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.15843e+02_rb,0.15549e+02_rb,0.15326e+02_rb,0.15095e+02_rb,0.14871e+02_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.19543e+02_rb,0.19089e+02_rb,0.18733e+02_rb,0.18430e+02_rb,0.18134e+02_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.24038e+02_rb,0.23415e+02_rb,0.22893e+02_rb,0.22427e+02_rb,0.22005e+02_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.29445e+02_rb,0.28630e+02_rb,0.27921e+02_rb,0.27268e+02_rb,0.26654e+02_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.35889e+02_rb,0.34849e+02_rb,0.33913e+02_rb,0.33036e+02_rb,0.32194e+02_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.43512e+02_rb,0.42175e+02_rb,0.40956e+02_rb,0.39809e+02_rb,0.38685e+02_rb /)\n      kao(:,10,16) = (/ &\n        & 0.52253e+02_rb,0.50582e+02_rb,0.49011e+02_rb,0.47508e+02_rb,0.46037e+02_rb /)\n      kao(:,11,16) = (/ &\n        & 0.61290e+02_rb,0.59240e+02_rb,0.57269e+02_rb,0.55343e+02_rb,0.53572e+02_rb /)\n      kao(:,12,16) = (/ &\n        & 0.71193e+02_rb,0.68607e+02_rb,0.66135e+02_rb,0.63828e+02_rb,0.61720e+02_rb /)\n      kao(:,13,16) = (/ &\n        & 0.81988e+02_rb,0.78665e+02_rb,0.75707e+02_rb,0.72932e+02_rb,0.70347e+02_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.29597e-05_rb,0.31929e-05_rb,0.34159e-05_rb,0.36256e-05_rb,0.38264e-05_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.24233e-05_rb,0.26151e-05_rb,0.27866e-05_rb,0.29502e-05_rb,0.31170e-05_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.19206e-05_rb,0.20789e-05_rb,0.22099e-05_rb,0.23383e-05_rb,0.24505e-05_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.14933e-05_rb,0.16071e-05_rb,0.17039e-05_rb,0.17994e-05_rb,0.18816e-05_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.11429e-05_rb,0.12144e-05_rb,0.12895e-05_rb,0.13503e-05_rb,0.14174e-05_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.84134e-06_rb,0.89264e-06_rb,0.94260e-06_rb,0.99003e-06_rb,0.10391e-05_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.60683e-06_rb,0.64142e-06_rb,0.68018e-06_rb,0.72042e-06_rb,0.75479e-06_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.45809e-06_rb,0.48813e-06_rb,0.51934e-06_rb,0.54823e-06_rb,0.57261e-06_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.35219e-06_rb,0.37835e-06_rb,0.40322e-06_rb,0.42772e-06_rb,0.44736e-06_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.27419e-06_rb,0.29542e-06_rb,0.31617e-06_rb,0.33398e-06_rb,0.34932e-06_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.21385e-06_rb,0.23127e-06_rb,0.24670e-06_rb,0.25951e-06_rb,0.26952e-06_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.16767e-06_rb,0.18179e-06_rb,0.19282e-06_rb,0.20136e-06_rb,0.21113e-06_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.13361e-06_rb,0.14301e-06_rb,0.14980e-06_rb,0.15778e-06_rb,0.16615e-06_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.10615e-06_rb,0.11218e-06_rb,0.11889e-06_rb,0.12574e-06_rb,0.13111e-06_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.83660e-07_rb,0.89296e-07_rb,0.95019e-07_rb,0.10007e-06_rb,0.10397e-06_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.66667e-07_rb,0.71217e-07_rb,0.75615e-07_rb,0.79237e-07_rb,0.82239e-07_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.52776e-07_rb,0.56086e-07_rb,0.59828e-07_rb,0.62513e-07_rb,0.64218e-07_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.41429e-07_rb,0.44370e-07_rb,0.46731e-07_rb,0.48553e-07_rb,0.50143e-07_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.32437e-07_rb,0.34523e-07_rb,0.36208e-07_rb,0.37500e-07_rb,0.38571e-07_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.25237e-07_rb,0.26730e-07_rb,0.27868e-07_rb,0.28829e-07_rb,0.29943e-07_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.19545e-07_rb,0.20614e-07_rb,0.21467e-07_rb,0.22280e-07_rb,0.23141e-07_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.15146e-07_rb,0.15869e-07_rb,0.16509e-07_rb,0.17179e-07_rb,0.17980e-07_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.11482e-07_rb,0.12039e-07_rb,0.12547e-07_rb,0.13255e-07_rb,0.13874e-07_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.86172e-08_rb,0.90023e-08_rb,0.95607e-08_rb,0.10106e-07_rb,0.10595e-07_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.67411e-08_rb,0.70781e-08_rb,0.75553e-08_rb,0.79739e-08_rb,0.84011e-08_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.52604e-08_rb,0.55743e-08_rb,0.59410e-08_rb,0.63031e-08_rb,0.66516e-08_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.41129e-08_rb,0.43854e-08_rb,0.46851e-08_rb,0.49771e-08_rb,0.52463e-08_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.33089e-08_rb,0.35289e-08_rb,0.37702e-08_rb,0.40125e-08_rb,0.42415e-08_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.26794e-08_rb,0.28488e-08_rb,0.30428e-08_rb,0.32437e-08_rb,0.34420e-08_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.21670e-08_rb,0.23030e-08_rb,0.24589e-08_rb,0.26252e-08_rb,0.27867e-08_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.17699e-08_rb,0.18853e-08_rb,0.20001e-08_rb,0.21330e-08_rb,0.22657e-08_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.14446e-08_rb,0.15471e-08_rb,0.16397e-08_rb,0.17423e-08_rb,0.18526e-08_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.11734e-08_rb,0.12754e-08_rb,0.13542e-08_rb,0.14242e-08_rb,0.15193e-08_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.95743e-09_rb,0.10470e-08_rb,0.11183e-08_rb,0.11726e-08_rb,0.12389e-08_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.77345e-09_rb,0.85197e-09_rb,0.92184e-09_rb,0.97368e-09_rb,0.10149e-08_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.62500e-09_rb,0.69288e-09_rb,0.75548e-09_rb,0.80446e-09_rb,0.84428e-09_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.50095e-09_rb,0.55967e-09_rb,0.61904e-09_rb,0.66441e-09_rb,0.70339e-09_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.40806e-09_rb,0.45712e-09_rb,0.50530e-09_rb,0.54974e-09_rb,0.58246e-09_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.33102e-09_rb,0.37130e-09_rb,0.41121e-09_rb,0.45024e-09_rb,0.48436e-09_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.26906e-09_rb,0.30739e-09_rb,0.33845e-09_rb,0.36884e-09_rb,0.40024e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.22202e-09_rb,0.25108e-09_rb,0.27937e-09_rb,0.30592e-09_rb,0.33012e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.18662e-09_rb,0.20761e-09_rb,0.23072e-09_rb,0.25342e-09_rb,0.27445e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.15741e-09_rb,0.17147e-09_rb,0.19146e-09_rb,0.21029e-09_rb,0.22857e-09_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.13151e-09_rb,0.14637e-09_rb,0.15977e-09_rb,0.17547e-09_rb,0.18974e-09_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.10874e-09_rb,0.12447e-09_rb,0.13634e-09_rb,0.14752e-09_rb,0.16022e-09_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.90206e-10_rb,0.10484e-09_rb,0.11617e-09_rb,0.12545e-09_rb,0.13474e-09_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.76759e-10_rb,0.88866e-10_rb,0.99340e-10_rb,0.10706e-09_rb,0.11444e-09_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.14727e-04_rb,0.16357e-04_rb,0.17961e-04_rb,0.19530e-04_rb,0.20852e-04_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.12148e-04_rb,0.13478e-04_rb,0.14818e-04_rb,0.16049e-04_rb,0.17100e-04_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.96902e-05_rb,0.10787e-04_rb,0.11835e-04_rb,0.12770e-04_rb,0.13515e-04_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.76235e-05_rb,0.84575e-05_rb,0.92217e-05_rb,0.98526e-05_rb,0.10449e-04_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.58049e-05_rb,0.64239e-05_rb,0.69733e-05_rb,0.74131e-05_rb,0.78082e-05_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.43204e-05_rb,0.47510e-05_rb,0.51165e-05_rb,0.54579e-05_rb,0.57434e-05_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.32211e-05_rb,0.35327e-05_rb,0.38175e-05_rb,0.40535e-05_rb,0.42245e-05_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.25265e-05_rb,0.27652e-05_rb,0.29644e-05_rb,0.31331e-05_rb,0.32730e-05_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.19921e-05_rb,0.21749e-05_rb,0.23343e-05_rb,0.24377e-05_rb,0.25458e-05_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.15859e-05_rb,0.17259e-05_rb,0.18236e-05_rb,0.19124e-05_rb,0.19942e-05_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.12591e-05_rb,0.13565e-05_rb,0.14309e-05_rb,0.15032e-05_rb,0.15642e-05_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.10012e-05_rb,0.10701e-05_rb,0.11246e-05_rb,0.11819e-05_rb,0.12279e-05_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.78985e-06_rb,0.84074e-06_rb,0.89029e-06_rb,0.93145e-06_rb,0.97085e-06_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.62996e-06_rb,0.66847e-06_rb,0.70637e-06_rb,0.73513e-06_rb,0.77135e-06_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.50283e-06_rb,0.53111e-06_rb,0.55653e-06_rb,0.58306e-06_rb,0.61799e-06_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.39962e-06_rb,0.42320e-06_rb,0.44265e-06_rb,0.46715e-06_rb,0.49516e-06_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.31810e-06_rb,0.33597e-06_rb,0.35191e-06_rb,0.37448e-06_rb,0.39768e-06_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.25242e-06_rb,0.26447e-06_rb,0.28109e-06_rb,0.30089e-06_rb,0.31543e-06_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.19837e-06_rb,0.20954e-06_rb,0.22442e-06_rb,0.23762e-06_rb,0.25183e-06_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.15599e-06_rb,0.16701e-06_rb,0.17789e-06_rb,0.18880e-06_rb,0.20030e-06_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.12307e-06_rb,0.13211e-06_rb,0.14046e-06_rb,0.15111e-06_rb,0.15988e-06_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.98429e-07_rb,0.10498e-06_rb,0.11326e-06_rb,0.12074e-06_rb,0.12779e-06_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.77743e-07_rb,0.83951e-07_rb,0.90473e-07_rb,0.96277e-07_rb,0.10204e-06_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.61220e-07_rb,0.66399e-07_rb,0.71102e-07_rb,0.75946e-07_rb,0.80803e-07_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.48819e-07_rb,0.52962e-07_rb,0.56669e-07_rb,0.60817e-07_rb,0.64709e-07_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.38871e-07_rb,0.42226e-07_rb,0.45376e-07_rb,0.48641e-07_rb,0.51855e-07_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.30869e-07_rb,0.33485e-07_rb,0.36233e-07_rb,0.38868e-07_rb,0.41523e-07_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.24798e-07_rb,0.26983e-07_rb,0.29180e-07_rb,0.31437e-07_rb,0.33600e-07_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.19951e-07_rb,0.21784e-07_rb,0.23518e-07_rb,0.25460e-07_rb,0.27219e-07_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.16098e-07_rb,0.17542e-07_rb,0.18979e-07_rb,0.20547e-07_rb,0.22016e-07_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.13020e-07_rb,0.14144e-07_rb,0.15414e-07_rb,0.16610e-07_rb,0.17870e-07_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.10548e-07_rb,0.11500e-07_rb,0.12492e-07_rb,0.13520e-07_rb,0.14524e-07_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.85602e-08_rb,0.93245e-08_rb,0.10096e-07_rb,0.10978e-07_rb,0.11819e-07_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.69149e-08_rb,0.75653e-08_rb,0.82154e-08_rb,0.88822e-08_rb,0.96002e-08_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.55708e-08_rb,0.61164e-08_rb,0.66678e-08_rb,0.71922e-08_rb,0.77633e-08_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.44804e-08_rb,0.49312e-08_rb,0.53967e-08_rb,0.58662e-08_rb,0.62780e-08_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.36467e-08_rb,0.39866e-08_rb,0.43628e-08_rb,0.47589e-08_rb,0.51208e-08_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.29524e-08_rb,0.32540e-08_rb,0.35471e-08_rb,0.38638e-08_rb,0.41887e-08_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.23887e-08_rb,0.26526e-08_rb,0.28959e-08_rb,0.31504e-08_rb,0.34112e-08_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.19321e-08_rb,0.21648e-08_rb,0.23625e-08_rb,0.25839e-08_rb,0.28173e-08_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.15684e-08_rb,0.17725e-08_rb,0.19476e-08_rb,0.21240e-08_rb,0.23118e-08_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.12799e-08_rb,0.14467e-08_rb,0.16073e-08_rb,0.17494e-08_rb,0.19160e-08_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.10442e-08_rb,0.11911e-08_rb,0.13216e-08_rb,0.14537e-08_rb,0.15771e-08_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.85741e-09_rb,0.97937e-09_rb,0.10936e-08_rb,0.12056e-08_rb,0.13167e-08_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.70358e-09_rb,0.80334e-09_rb,0.90824e-09_rb,0.10056e-08_rb,0.11010e-08_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.57428e-09_rb,0.66441e-09_rb,0.75420e-09_rb,0.83627e-09_rb,0.92485e-09_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.47922e-09_rb,0.55592e-09_rb,0.63499e-09_rb,0.70731e-09_rb,0.78678e-09_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.76201e-04_rb,0.82699e-04_rb,0.87499e-04_rb,0.91352e-04_rb,0.95348e-04_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.62821e-04_rb,0.67861e-04_rb,0.71868e-04_rb,0.75108e-04_rb,0.78557e-04_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.49775e-04_rb,0.53367e-04_rb,0.56639e-04_rb,0.59001e-04_rb,0.62303e-04_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.38005e-04_rb,0.40883e-04_rb,0.43269e-04_rb,0.45403e-04_rb,0.48139e-04_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.28550e-04_rb,0.30750e-04_rb,0.32331e-04_rb,0.34489e-04_rb,0.36687e-04_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.20976e-04_rb,0.22322e-04_rb,0.23743e-04_rb,0.25554e-04_rb,0.27223e-04_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.15389e-04_rb,0.16422e-04_rb,0.17792e-04_rb,0.19127e-04_rb,0.20295e-04_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.11883e-04_rb,0.12816e-04_rb,0.13962e-04_rb,0.14872e-04_rb,0.15725e-04_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.92948e-05_rb,0.10187e-04_rb,0.10986e-04_rb,0.11713e-04_rb,0.12426e-04_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.73969e-05_rb,0.80840e-05_rb,0.87263e-05_rb,0.93856e-05_rb,0.99533e-05_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.58961e-05_rb,0.64591e-05_rb,0.69648e-05_rb,0.74494e-05_rb,0.79385e-05_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.47445e-05_rb,0.51742e-05_rb,0.56036e-05_rb,0.59758e-05_rb,0.63724e-05_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.38442e-05_rb,0.41791e-05_rb,0.44837e-05_rb,0.48078e-05_rb,0.51294e-05_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.31335e-05_rb,0.33923e-05_rb,0.36400e-05_rb,0.38961e-05_rb,0.41487e-05_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.25499e-05_rb,0.27432e-05_rb,0.29560e-05_rb,0.31545e-05_rb,0.33433e-05_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.20635e-05_rb,0.22231e-05_rb,0.23897e-05_rb,0.25516e-05_rb,0.26938e-05_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.16635e-05_rb,0.18024e-05_rb,0.19279e-05_rb,0.20498e-05_rb,0.21627e-05_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.13359e-05_rb,0.14474e-05_rb,0.15470e-05_rb,0.16346e-05_rb,0.17457e-05_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.10697e-05_rb,0.11477e-05_rb,0.12254e-05_rb,0.13097e-05_rb,0.13914e-05_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.84958e-06_rb,0.91464e-06_rb,0.98189e-06_rb,0.10489e-05_rb,0.11150e-05_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.68178e-06_rb,0.73356e-06_rb,0.78905e-06_rb,0.84226e-06_rb,0.89476e-06_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.54737e-06_rb,0.58995e-06_rb,0.63374e-06_rb,0.67732e-06_rb,0.72182e-06_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.43680e-06_rb,0.47086e-06_rb,0.50771e-06_rb,0.54209e-06_rb,0.57687e-06_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.34612e-06_rb,0.37466e-06_rb,0.40370e-06_rb,0.43073e-06_rb,0.45979e-06_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.27725e-06_rb,0.30048e-06_rb,0.32451e-06_rb,0.34638e-06_rb,0.37105e-06_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.22228e-06_rb,0.24114e-06_rb,0.26049e-06_rb,0.27871e-06_rb,0.29935e-06_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.17797e-06_rb,0.19317e-06_rb,0.20878e-06_rb,0.22411e-06_rb,0.24102e-06_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.14346e-06_rb,0.15601e-06_rb,0.16913e-06_rb,0.18197e-06_rb,0.19566e-06_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.11559e-06_rb,0.12615e-06_rb,0.13697e-06_rb,0.14785e-06_rb,0.15874e-06_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.93358e-07_rb,0.10214e-06_rb,0.11089e-06_rb,0.11998e-06_rb,0.12904e-06_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.75599e-07_rb,0.82690e-07_rb,0.89808e-07_rb,0.97524e-07_rb,0.10511e-06_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.61285e-07_rb,0.66786e-07_rb,0.72937e-07_rb,0.79087e-07_rb,0.85525e-07_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.49725e-07_rb,0.54294e-07_rb,0.59263e-07_rb,0.64213e-07_rb,0.69583e-07_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.40336e-07_rb,0.44186e-07_rb,0.48034e-07_rb,0.52184e-07_rb,0.56534e-07_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.32904e-07_rb,0.35633e-07_rb,0.38959e-07_rb,0.42402e-07_rb,0.45883e-07_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.26725e-07_rb,0.29104e-07_rb,0.31693e-07_rb,0.34312e-07_rb,0.37304e-07_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.21751e-07_rb,0.23849e-07_rb,0.25803e-07_rb,0.28024e-07_rb,0.30356e-07_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.17587e-07_rb,0.19609e-07_rb,0.21216e-07_rb,0.23022e-07_rb,0.24942e-07_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.14376e-07_rb,0.15990e-07_rb,0.17493e-07_rb,0.18872e-07_rb,0.20463e-07_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.11811e-07_rb,0.13106e-07_rb,0.14489e-07_rb,0.15615e-07_rb,0.16832e-07_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.96001e-08_rb,0.10788e-07_rb,0.11921e-07_rb,0.12985e-07_rb,0.13904e-07_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.78243e-08_rb,0.89178e-08_rb,0.98430e-08_rb,0.10840e-07_rb,0.11619e-07_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.63638e-08_rb,0.73678e-08_rb,0.82214e-08_rb,0.89997e-08_rb,0.97565e-08_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.51753e-08_rb,0.60497e-08_rb,0.68419e-08_rb,0.74560e-08_rb,0.82362e-08_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.42164e-08_rb,0.49916e-08_rb,0.57066e-08_rb,0.63308e-08_rb,0.68950e-08_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.34618e-08_rb,0.41424e-08_rb,0.48054e-08_rb,0.53757e-08_rb,0.58095e-08_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.29083e-08_rb,0.35291e-08_rb,0.40932e-08_rb,0.46285e-08_rb,0.49865e-08_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.37674e-03_rb,0.40953e-03_rb,0.43690e-03_rb,0.46059e-03_rb,0.48007e-03_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.31202e-03_rb,0.33906e-03_rb,0.36066e-03_rb,0.38003e-03_rb,0.39627e-03_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.25135e-03_rb,0.27271e-03_rb,0.29069e-03_rb,0.30661e-03_rb,0.32005e-03_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.19797e-03_rb,0.21527e-03_rb,0.22955e-03_rb,0.24328e-03_rb,0.25456e-03_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.15354e-03_rb,0.16679e-03_rb,0.17933e-03_rb,0.19101e-03_rb,0.20041e-03_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.11742e-03_rb,0.12797e-03_rb,0.13923e-03_rb,0.14836e-03_rb,0.15654e-03_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.90519e-04_rb,0.99386e-04_rb,0.10819e-03_rb,0.11601e-03_rb,0.12319e-03_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.72579e-04_rb,0.79910e-04_rb,0.87075e-04_rb,0.93728e-04_rb,0.99656e-04_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.58866e-04_rb,0.64805e-04_rb,0.70705e-04_rb,0.76153e-04_rb,0.80996e-04_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.48157e-04_rb,0.52883e-04_rb,0.57740e-04_rb,0.62130e-04_rb,0.66100e-04_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.39337e-04_rb,0.43289e-04_rb,0.47275e-04_rb,0.50906e-04_rb,0.54161e-04_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.32289e-04_rb,0.35577e-04_rb,0.38808e-04_rb,0.41814e-04_rb,0.44433e-04_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.26615e-04_rb,0.29301e-04_rb,0.31984e-04_rb,0.34396e-04_rb,0.36509e-04_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.22060e-04_rb,0.24270e-04_rb,0.26460e-04_rb,0.28450e-04_rb,0.30203e-04_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.18344e-04_rb,0.20177e-04_rb,0.21948e-04_rb,0.23595e-04_rb,0.25001e-04_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.15256e-04_rb,0.16787e-04_rb,0.18242e-04_rb,0.19561e-04_rb,0.20696e-04_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.12679e-04_rb,0.13952e-04_rb,0.15170e-04_rb,0.16211e-04_rb,0.17163e-04_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.10550e-04_rb,0.11605e-04_rb,0.12579e-04_rb,0.13451e-04_rb,0.14210e-04_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.87512e-05_rb,0.96322e-05_rb,0.10433e-04_rb,0.11133e-04_rb,0.11762e-04_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.73001e-05_rb,0.80203e-05_rb,0.86745e-05_rb,0.92292e-05_rb,0.97295e-05_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.60958e-05_rb,0.66862e-05_rb,0.72006e-05_rb,0.76359e-05_rb,0.80576e-05_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.50855e-05_rb,0.55671e-05_rb,0.59670e-05_rb,0.63392e-05_rb,0.66869e-05_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.42033e-05_rb,0.45905e-05_rb,0.49250e-05_rb,0.52384e-05_rb,0.55369e-05_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.34384e-05_rb,0.37618e-05_rb,0.40430e-05_rb,0.43060e-05_rb,0.45577e-05_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.28039e-05_rb,0.30749e-05_rb,0.33135e-05_rb,0.35344e-05_rb,0.37458e-05_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.22842e-05_rb,0.25104e-05_rb,0.27126e-05_rb,0.28966e-05_rb,0.30768e-05_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.18585e-05_rb,0.20510e-05_rb,0.22194e-05_rb,0.23731e-05_rb,0.25249e-05_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.15041e-05_rb,0.16676e-05_rb,0.18097e-05_rb,0.19402e-05_rb,0.20681e-05_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.12154e-05_rb,0.13541e-05_rb,0.14749e-05_rb,0.15852e-05_rb,0.16934e-05_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.98033e-06_rb,0.10975e-05_rb,0.12011e-05_rb,0.12945e-05_rb,0.13859e-05_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.78724e-06_rb,0.88625e-06_rb,0.97486e-06_rb,0.10554e-05_rb,0.11307e-05_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.63059e-06_rb,0.71382e-06_rb,0.78948e-06_rb,0.85755e-06_rb,0.92044e-06_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.50426e-06_rb,0.57391e-06_rb,0.63808e-06_rb,0.69718e-06_rb,0.74972e-06_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.40133e-06_rb,0.45858e-06_rb,0.51414e-06_rb,0.56400e-06_rb,0.60964e-06_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.31580e-06_rb,0.36440e-06_rb,0.41120e-06_rb,0.45433e-06_rb,0.49348e-06_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.24847e-06_rb,0.28907e-06_rb,0.32879e-06_rb,0.36537e-06_rb,0.39903e-06_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.19530e-06_rb,0.22858e-06_rb,0.26247e-06_rb,0.29331e-06_rb,0.32217e-06_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.15364e-06_rb,0.18113e-06_rb,0.20911e-06_rb,0.23589e-06_rb,0.25994e-06_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.12072e-06_rb,0.14413e-06_rb,0.16656e-06_rb,0.18952e-06_rb,0.20983e-06_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.94925e-07_rb,0.11397e-06_rb,0.13255e-06_rb,0.15193e-06_rb,0.16960e-06_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.74473e-07_rb,0.90197e-07_rb,0.10574e-06_rb,0.12153e-06_rb,0.13661e-06_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.59009e-07_rb,0.71594e-07_rb,0.84781e-07_rb,0.97758e-07_rb,0.11018e-06_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.47008e-07_rb,0.56997e-07_rb,0.67838e-07_rb,0.78753e-07_rb,0.89116e-07_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.37415e-07_rb,0.45642e-07_rb,0.54420e-07_rb,0.63466e-07_rb,0.71910e-07_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.29896e-07_rb,0.36635e-07_rb,0.43697e-07_rb,0.51036e-07_rb,0.58267e-07_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.23946e-07_rb,0.29523e-07_rb,0.35316e-07_rb,0.41183e-07_rb,0.47391e-07_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.19881e-07_rb,0.24642e-07_rb,0.29390e-07_rb,0.34099e-07_rb,0.39234e-07_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.12771e-02_rb,0.13202e-02_rb,0.13557e-02_rb,0.13927e-02_rb,0.14233e-02_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.10608e-02_rb,0.10951e-02_rb,0.11249e-02_rb,0.11549e-02_rb,0.11788e-02_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.86750e-03_rb,0.89679e-03_rb,0.91986e-03_rb,0.94399e-03_rb,0.96405e-03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.70073e-03_rb,0.72504e-03_rb,0.74630e-03_rb,0.76495e-03_rb,0.78165e-03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.56280e-03_rb,0.58321e-03_rb,0.60153e-03_rb,0.61544e-03_rb,0.62885e-03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.44940e-03_rb,0.46598e-03_rb,0.47887e-03_rb,0.49058e-03_rb,0.50223e-03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.35753e-03_rb,0.37064e-03_rb,0.38290e-03_rb,0.39390e-03_rb,0.40387e-03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.29013e-03_rb,0.30099e-03_rb,0.31179e-03_rb,0.32117e-03_rb,0.33011e-03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.23657e-03_rb,0.24602e-03_rb,0.25504e-03_rb,0.26340e-03_rb,0.27145e-03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.19423e-03_rb,0.20224e-03_rb,0.20987e-03_rb,0.21711e-03_rb,0.22439e-03_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.15963e-03_rb,0.16643e-03_rb,0.17308e-03_rb,0.17949e-03_rb,0.18580e-03_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.13166e-03_rb,0.13745e-03_rb,0.14332e-03_rb,0.14871e-03_rb,0.15428e-03_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.10885e-03_rb,0.11394e-03_rb,0.11896e-03_rb,0.12371e-03_rb,0.12846e-03_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.90403e-04_rb,0.94914e-04_rb,0.99157e-04_rb,0.10310e-03_rb,0.10729e-03_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.75265e-04_rb,0.79166e-04_rb,0.82648e-04_rb,0.86209e-04_rb,0.89882e-04_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.62870e-04_rb,0.66050e-04_rb,0.69111e-04_rb,0.72289e-04_rb,0.75451e-04_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.52465e-04_rb,0.55192e-04_rb,0.57887e-04_rb,0.60660e-04_rb,0.63367e-04_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.43887e-04_rb,0.46191e-04_rb,0.48588e-04_rb,0.50910e-04_rb,0.53278e-04_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.36760e-04_rb,0.38766e-04_rb,0.40783e-04_rb,0.42783e-04_rb,0.44780e-04_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.30831e-04_rb,0.32561e-04_rb,0.34267e-04_rb,0.36000e-04_rb,0.37594e-04_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.25908e-04_rb,0.27389e-04_rb,0.28832e-04_rb,0.30290e-04_rb,0.31581e-04_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.21776e-04_rb,0.23026e-04_rb,0.24266e-04_rb,0.25444e-04_rb,0.26510e-04_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.18233e-04_rb,0.19280e-04_rb,0.20324e-04_rb,0.21266e-04_rb,0.22141e-04_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.15160e-04_rb,0.16042e-04_rb,0.16918e-04_rb,0.17686e-04_rb,0.18406e-04_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.12538e-04_rb,0.13285e-04_rb,0.14015e-04_rb,0.14657e-04_rb,0.15269e-04_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.10357e-04_rb,0.10990e-04_rb,0.11595e-04_rb,0.12148e-04_rb,0.12651e-04_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.85566e-05_rb,0.90856e-05_rb,0.95986e-05_rb,0.10057e-04_rb,0.10478e-04_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.70390e-05_rb,0.74826e-05_rb,0.79200e-05_rb,0.83061e-05_rb,0.86634e-05_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.57827e-05_rb,0.61572e-05_rb,0.65269e-05_rb,0.68528e-05_rb,0.71595e-05_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.47477e-05_rb,0.50656e-05_rb,0.53705e-05_rb,0.56486e-05_rb,0.59100e-05_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.38802e-05_rb,0.41533e-05_rb,0.44089e-05_rb,0.46515e-05_rb,0.48719e-05_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.31658e-05_rb,0.33971e-05_rb,0.36177e-05_rb,0.38205e-05_rb,0.40089e-05_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.25796e-05_rb,0.27740e-05_rb,0.29635e-05_rb,0.31336e-05_rb,0.32986e-05_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.20945e-05_rb,0.22636e-05_rb,0.24214e-05_rb,0.25698e-05_rb,0.27077e-05_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.16931e-05_rb,0.18383e-05_rb,0.19729e-05_rb,0.20996e-05_rb,0.22172e-05_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.13650e-05_rb,0.14889e-05_rb,0.16043e-05_rb,0.17139e-05_rb,0.18136e-05_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.10981e-05_rb,0.12042e-05_rb,0.13028e-05_rb,0.13963e-05_rb,0.14824e-05_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.88407e-06_rb,0.97370e-06_rb,0.10589e-05_rb,0.11383e-05_rb,0.12124e-05_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.71150e-06_rb,0.78682e-06_rb,0.86048e-06_rb,0.92711e-06_rb,0.99128e-06_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.57140e-06_rb,0.63513e-06_rb,0.69790e-06_rb,0.75466e-06_rb,0.80946e-06_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.45871e-06_rb,0.51183e-06_rb,0.56494e-06_rb,0.61376e-06_rb,0.66022e-06_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.36889e-06_rb,0.41319e-06_rb,0.45759e-06_rb,0.49973e-06_rb,0.53933e-06_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.29683e-06_rb,0.33396e-06_rb,0.37110e-06_rb,0.40671e-06_rb,0.44026e-06_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.23828e-06_rb,0.26973e-06_rb,0.30048e-06_rb,0.33099e-06_rb,0.35949e-06_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.19083e-06_rb,0.21782e-06_rb,0.24350e-06_rb,0.26883e-06_rb,0.29309e-06_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.15334e-06_rb,0.17592e-06_rb,0.19753e-06_rb,0.21869e-06_rb,0.23903e-06_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.12635e-06_rb,0.14504e-06_rb,0.16321e-06_rb,0.18074e-06_rb,0.19759e-06_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.33433e-02_rb,0.34159e-02_rb,0.34798e-02_rb,0.35397e-02_rb,0.35995e-02_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.28039e-02_rb,0.28589e-02_rb,0.29090e-02_rb,0.29595e-02_rb,0.30108e-02_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.23135e-02_rb,0.23579e-02_rb,0.24012e-02_rb,0.24470e-02_rb,0.24900e-02_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.18925e-02_rb,0.19281e-02_rb,0.19671e-02_rb,0.20090e-02_rb,0.20445e-02_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.15365e-02_rb,0.15703e-02_rb,0.16039e-02_rb,0.16424e-02_rb,0.16760e-02_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.12424e-02_rb,0.12746e-02_rb,0.13067e-02_rb,0.13397e-02_rb,0.13687e-02_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.10113e-02_rb,0.10417e-02_rb,0.10664e-02_rb,0.10958e-02_rb,0.11231e-02_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.83375e-03_rb,0.85863e-03_rb,0.88098e-03_rb,0.90680e-03_rb,0.93093e-03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.68849e-03_rb,0.71056e-03_rb,0.73161e-03_rb,0.75402e-03_rb,0.77432e-03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.57076e-03_rb,0.59001e-03_rb,0.60925e-03_rb,0.62816e-03_rb,0.64531e-03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.47462e-03_rb,0.49138e-03_rb,0.50818e-03_rb,0.52421e-03_rb,0.53930e-03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.39552e-03_rb,0.41011e-03_rb,0.42460e-03_rb,0.43865e-03_rb,0.45206e-03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.33041e-03_rb,0.34317e-03_rb,0.35573e-03_rb,0.36800e-03_rb,0.38005e-03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.27699e-03_rb,0.28806e-03_rb,0.29892e-03_rb,0.30983e-03_rb,0.32038e-03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.23253e-03_rb,0.24229e-03_rb,0.25208e-03_rb,0.26144e-03_rb,0.27039e-03_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.19573e-03_rb,0.20442e-03_rb,0.21276e-03_rb,0.22087e-03_rb,0.22869e-03_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.16528e-03_rb,0.17271e-03_rb,0.17974e-03_rb,0.18681e-03_rb,0.19373e-03_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.13949e-03_rb,0.14599e-03_rb,0.15214e-03_rb,0.15834e-03_rb,0.16448e-03_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.11793e-03_rb,0.12345e-03_rb,0.12891e-03_rb,0.13432e-03_rb,0.13975e-03_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.99845e-04_rb,0.10464e-03_rb,0.10941e-03_rb,0.11425e-03_rb,0.11896e-03_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.84723e-04_rb,0.88808e-04_rb,0.93054e-04_rb,0.97257e-04_rb,0.10144e-03_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.71857e-04_rb,0.75478e-04_rb,0.79245e-04_rb,0.82878e-04_rb,0.86527e-04_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.60741e-04_rb,0.63987e-04_rb,0.67190e-04_rb,0.70445e-04_rb,0.73634e-04_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.51094e-04_rb,0.53953e-04_rb,0.56787e-04_rb,0.59644e-04_rb,0.62421e-04_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.42809e-04_rb,0.45324e-04_rb,0.47805e-04_rb,0.50314e-04_rb,0.52797e-04_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.35862e-04_rb,0.38082e-04_rb,0.40249e-04_rb,0.42459e-04_rb,0.44691e-04_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.30047e-04_rb,0.31970e-04_rb,0.33877e-04_rb,0.35841e-04_rb,0.37792e-04_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.25051e-04_rb,0.26734e-04_rb,0.28429e-04_rb,0.30177e-04_rb,0.31859e-04_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.20858e-04_rb,0.22337e-04_rb,0.23837e-04_rb,0.25348e-04_rb,0.26845e-04_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.17358e-04_rb,0.18653e-04_rb,0.19947e-04_rb,0.21279e-04_rb,0.22614e-04_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.14382e-04_rb,0.15507e-04_rb,0.16637e-04_rb,0.17808e-04_rb,0.18975e-04_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.11875e-04_rb,0.12851e-04_rb,0.13847e-04_rb,0.14865e-04_rb,0.15886e-04_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.97824e-05_rb,0.10641e-04_rb,0.11497e-04_rb,0.12386e-04_rb,0.13288e-04_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.80305e-05_rb,0.87712e-05_rb,0.95170e-05_rb,0.10282e-04_rb,0.11073e-04_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.65554e-05_rb,0.71881e-05_rb,0.78331e-05_rb,0.85022e-05_rb,0.91799e-05_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.53399e-05_rb,0.58818e-05_rb,0.64364e-05_rb,0.70093e-05_rb,0.75992e-05_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.43396e-05_rb,0.47990e-05_rb,0.52727e-05_rb,0.57633e-05_rb,0.62785e-05_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.35272e-05_rb,0.39139e-05_rb,0.43230e-05_rb,0.47423e-05_rb,0.51819e-05_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.28624e-05_rb,0.31913e-05_rb,0.35379e-05_rb,0.38979e-05_rb,0.42744e-05_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.23189e-05_rb,0.25961e-05_rb,0.28907e-05_rb,0.31976e-05_rb,0.35200e-05_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.18736e-05_rb,0.21072e-05_rb,0.23576e-05_rb,0.26179e-05_rb,0.28943e-05_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.15155e-05_rb,0.17135e-05_rb,0.19245e-05_rb,0.21451e-05_rb,0.23808e-05_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.12250e-05_rb,0.13923e-05_rb,0.15714e-05_rb,0.17578e-05_rb,0.19597e-05_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.99012e-06_rb,0.11296e-05_rb,0.12801e-05_rb,0.14395e-05_rb,0.16107e-05_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.79875e-06_rb,0.91418e-06_rb,0.10408e-05_rb,0.11777e-05_rb,0.13212e-05_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.64474e-06_rb,0.74109e-06_rb,0.84664e-06_rb,0.96328e-06_rb,0.10849e-05_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.53296e-06_rb,0.61427e-06_rb,0.70385e-06_rb,0.80375e-06_rb,0.90863e-06_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.91063e-02_rb,0.92681e-02_rb,0.94045e-02_rb,0.95388e-02_rb,0.96735e-02_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.78483e-02_rb,0.79806e-02_rb,0.81238e-02_rb,0.82528e-02_rb,0.83603e-02_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.66269e-02_rb,0.67445e-02_rb,0.68845e-02_rb,0.69911e-02_rb,0.70854e-02_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.55183e-02_rb,0.56414e-02_rb,0.57574e-02_rb,0.58487e-02_rb,0.59407e-02_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.45693e-02_rb,0.46780e-02_rb,0.47743e-02_rb,0.48625e-02_rb,0.49467e-02_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.37611e-02_rb,0.38535e-02_rb,0.39408e-02_rb,0.40234e-02_rb,0.41007e-02_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.30991e-02_rb,0.31809e-02_rb,0.32647e-02_rb,0.33388e-02_rb,0.34042e-02_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.25858e-02_rb,0.26585e-02_rb,0.27347e-02_rb,0.27990e-02_rb,0.28579e-02_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.21672e-02_rb,0.22326e-02_rb,0.22973e-02_rb,0.23547e-02_rb,0.24058e-02_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.18211e-02_rb,0.18809e-02_rb,0.19364e-02_rb,0.19859e-02_rb,0.20352e-02_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.15314e-02_rb,0.15844e-02_rb,0.16332e-02_rb,0.16760e-02_rb,0.17243e-02_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.12924e-02_rb,0.13385e-02_rb,0.13793e-02_rb,0.14209e-02_rb,0.14659e-02_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.10926e-02_rb,0.11322e-02_rb,0.11689e-02_rb,0.12081e-02_rb,0.12493e-02_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.92756e-03_rb,0.96136e-03_rb,0.99601e-03_rb,0.10324e-02_rb,0.10695e-02_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.78832e-03_rb,0.81893e-03_rb,0.85137e-03_rb,0.88465e-03_rb,0.91885e-03_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.67097e-03_rb,0.69979e-03_rb,0.72985e-03_rb,0.76038e-03_rb,0.79213e-03_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.57231e-03_rb,0.59934e-03_rb,0.62727e-03_rb,0.65471e-03_rb,0.68389e-03_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.48996e-03_rb,0.51441e-03_rb,0.53945e-03_rb,0.56564e-03_rb,0.59164e-03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.41998e-03_rb,0.44237e-03_rb,0.46551e-03_rb,0.48924e-03_rb,0.51322e-03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.36133e-03_rb,0.38168e-03_rb,0.40297e-03_rb,0.42441e-03_rb,0.44722e-03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.31153e-03_rb,0.33055e-03_rb,0.34980e-03_rb,0.36972e-03_rb,0.39086e-03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.26941e-03_rb,0.28657e-03_rb,0.30436e-03_rb,0.32295e-03_rb,0.34256e-03_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.23210e-03_rb,0.24782e-03_rb,0.26411e-03_rb,0.28121e-03_rb,0.29930e-03_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.19904e-03_rb,0.21311e-03_rb,0.22797e-03_rb,0.24380e-03_rb,0.26030e-03_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.17000e-03_rb,0.18300e-03_rb,0.19666e-03_rb,0.21128e-03_rb,0.22641e-03_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.14528e-03_rb,0.15704e-03_rb,0.16975e-03_rb,0.18320e-03_rb,0.19735e-03_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.12414e-03_rb,0.13496e-03_rb,0.14654e-03_rb,0.15899e-03_rb,0.17211e-03_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.10567e-03_rb,0.11547e-03_rb,0.12618e-03_rb,0.13765e-03_rb,0.14994e-03_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.89774e-04_rb,0.98751e-04_rb,0.10852e-03_rb,0.11918e-03_rb,0.13057e-03_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.76232e-04_rb,0.84383e-04_rb,0.93336e-04_rb,0.10314e-03_rb,0.11381e-03_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.64370e-04_rb,0.71684e-04_rb,0.79797e-04_rb,0.88850e-04_rb,0.98733e-04_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.54125e-04_rb,0.60680e-04_rb,0.68042e-04_rb,0.76313e-04_rb,0.85432e-04_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.45374e-04_rb,0.51280e-04_rb,0.57932e-04_rb,0.65429e-04_rb,0.73852e-04_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.37861e-04_rb,0.43078e-04_rb,0.49016e-04_rb,0.55844e-04_rb,0.63538e-04_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.31342e-04_rb,0.35879e-04_rb,0.41175e-04_rb,0.47252e-04_rb,0.54286e-04_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.25821e-04_rb,0.29777e-04_rb,0.34458e-04_rb,0.39880e-04_rb,0.46218e-04_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.21180e-04_rb,0.24617e-04_rb,0.28719e-04_rb,0.33507e-04_rb,0.39184e-04_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.17377e-04_rb,0.20345e-04_rb,0.23916e-04_rb,0.28177e-04_rb,0.33237e-04_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.14223e-04_rb,0.16790e-04_rb,0.19868e-04_rb,0.23656e-04_rb,0.28163e-04_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.11593e-04_rb,0.13788e-04_rb,0.16479e-04_rb,0.19773e-04_rb,0.23765e-04_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.94141e-05_rb,0.11279e-04_rb,0.13591e-04_rb,0.16447e-04_rb,0.19969e-04_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.76622e-05_rb,0.92417e-05_rb,0.11233e-04_rb,0.13709e-04_rb,0.16819e-04_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.62315e-05_rb,0.75671e-05_rb,0.92699e-05_rb,0.11429e-04_rb,0.14186e-04_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.50473e-05_rb,0.61766e-05_rb,0.76316e-05_rb,0.94979e-05_rb,0.11890e-04_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.40773e-05_rb,0.50242e-05_rb,0.62540e-05_rb,0.78594e-05_rb,0.99378e-05_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.32937e-05_rb,0.40862e-05_rb,0.51228e-05_rb,0.64992e-05_rb,0.83112e-05_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.27593e-05_rb,0.34505e-05_rb,0.43716e-05_rb,0.56035e-05_rb,0.72609e-05_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.25990e-01_rb,0.25997e-01_rb,0.26024e-01_rb,0.26038e-01_rb,0.26132e-01_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.22648e-01_rb,0.22731e-01_rb,0.22803e-01_rb,0.22861e-01_rb,0.23020e-01_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.19641e-01_rb,0.19812e-01_rb,0.19880e-01_rb,0.19998e-01_rb,0.20141e-01_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.16909e-01_rb,0.17030e-01_rb,0.17148e-01_rb,0.17296e-01_rb,0.17502e-01_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.14365e-01_rb,0.14504e-01_rb,0.14643e-01_rb,0.14808e-01_rb,0.14996e-01_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.12072e-01_rb,0.12207e-01_rb,0.12346e-01_rb,0.12513e-01_rb,0.12742e-01_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.10135e-01_rb,0.10263e-01_rb,0.10402e-01_rb,0.10602e-01_rb,0.10794e-01_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.86508e-02_rb,0.87951e-02_rb,0.89765e-02_rb,0.91530e-02_rb,0.93447e-02_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.74228e-02_rb,0.75964e-02_rb,0.77805e-02_rb,0.79441e-02_rb,0.81266e-02_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.63949e-02_rb,0.65920e-02_rb,0.67584e-02_rb,0.69298e-02_rb,0.70968e-02_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.55389e-02_rb,0.57165e-02_rb,0.58834e-02_rb,0.60490e-02_rb,0.62163e-02_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.47980e-02_rb,0.49696e-02_rb,0.51333e-02_rb,0.53055e-02_rb,0.54695e-02_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.41676e-02_rb,0.43357e-02_rb,0.44999e-02_rb,0.46749e-02_rb,0.48179e-02_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.36391e-02_rb,0.38079e-02_rb,0.39834e-02_rb,0.41374e-02_rb,0.42754e-02_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.31917e-02_rb,0.33580e-02_rb,0.35237e-02_rb,0.36737e-02_rb,0.37982e-02_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.28096e-02_rb,0.29709e-02_rb,0.31242e-02_rb,0.32613e-02_rb,0.33829e-02_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.24786e-02_rb,0.26272e-02_rb,0.27706e-02_rb,0.28986e-02_rb,0.30130e-02_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.21907e-02_rb,0.23282e-02_rb,0.24574e-02_rb,0.25778e-02_rb,0.26806e-02_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.19346e-02_rb,0.20569e-02_rb,0.21757e-02_rb,0.22805e-02_rb,0.23742e-02_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.17101e-02_rb,0.18247e-02_rb,0.19308e-02_rb,0.20256e-02_rb,0.21176e-02_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.15171e-02_rb,0.16168e-02_rb,0.17121e-02_rb,0.18035e-02_rb,0.18911e-02_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.13466e-02_rb,0.14390e-02_rb,0.15246e-02_rb,0.16083e-02_rb,0.16921e-02_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.11871e-02_rb,0.12698e-02_rb,0.13534e-02_rb,0.14320e-02_rb,0.15071e-02_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.10388e-02_rb,0.11179e-02_rb,0.11934e-02_rb,0.12647e-02_rb,0.13391e-02_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.92233e-03_rb,0.99854e-03_rb,0.10722e-02_rb,0.11426e-02_rb,0.12118e-02_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.81843e-03_rb,0.89236e-03_rb,0.96605e-03_rb,0.10340e-02_rb,0.11003e-02_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.72738e-03_rb,0.79777e-03_rb,0.86997e-03_rb,0.93496e-03_rb,0.99852e-03_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.65149e-03_rb,0.72098e-03_rb,0.79235e-03_rb,0.86116e-03_rb,0.92474e-03_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.58318e-03_rb,0.65154e-03_rb,0.72160e-03_rb,0.79400e-03_rb,0.85973e-03_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.52127e-03_rb,0.58770e-03_rb,0.65781e-03_rb,0.73110e-03_rb,0.80165e-03_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.46404e-03_rb,0.52960e-03_rb,0.59886e-03_rb,0.67366e-03_rb,0.74727e-03_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.41229e-03_rb,0.47609e-03_rb,0.54424e-03_rb,0.61918e-03_rb,0.69366e-03_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.36534e-03_rb,0.42624e-03_rb,0.49374e-03_rb,0.56668e-03_rb,0.64364e-03_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.32134e-03_rb,0.37987e-03_rb,0.44597e-03_rb,0.51669e-03_rb,0.59469e-03_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.27855e-03_rb,0.33531e-03_rb,0.39855e-03_rb,0.46832e-03_rb,0.54562e-03_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.24094e-03_rb,0.29440e-03_rb,0.35477e-03_rb,0.42284e-03_rb,0.49767e-03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.20710e-03_rb,0.25712e-03_rb,0.31425e-03_rb,0.38098e-03_rb,0.45465e-03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.17757e-03_rb,0.22422e-03_rb,0.27906e-03_rb,0.34231e-03_rb,0.41419e-03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.15198e-03_rb,0.19538e-03_rb,0.24758e-03_rb,0.30796e-03_rb,0.37765e-03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.12943e-03_rb,0.16907e-03_rb,0.21812e-03_rb,0.27585e-03_rb,0.34284e-03_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.10946e-03_rb,0.14560e-03_rb,0.19103e-03_rb,0.24633e-03_rb,0.31049e-03_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.92950e-04_rb,0.12599e-03_rb,0.16848e-03_rb,0.22109e-03_rb,0.28266e-03_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.78722e-04_rb,0.10883e-03_rb,0.14831e-03_rb,0.19790e-03_rb,0.25770e-03_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.66323e-04_rb,0.93651e-04_rb,0.12983e-03_rb,0.17638e-03_rb,0.23393e-03_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.55644e-04_rb,0.80085e-04_rb,0.11349e-03_rb,0.15741e-03_rb,0.21274e-03_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.46537e-04_rb,0.68442e-04_rb,0.99190e-04_rb,0.14045e-03_rb,0.19327e-03_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.41558e-04_rb,0.62503e-04_rb,0.92377e-04_rb,0.13258e-03_rb,0.18528e-03_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.14836e+00_rb,0.15039e+00_rb,0.15239e+00_rb,0.15389e+00_rb,0.15517e+00_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.12935e+00_rb,0.13183e+00_rb,0.13366e+00_rb,0.13551e+00_rb,0.13674e+00_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.11269e+00_rb,0.11456e+00_rb,0.11672e+00_rb,0.11824e+00_rb,0.11951e+00_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.97577e-01_rb,0.99647e-01_rb,0.10140e+00_rb,0.10272e+00_rb,0.10390e+00_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.84601e-01_rb,0.86370e-01_rb,0.87860e-01_rb,0.89144e-01_rb,0.90341e-01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.72851e-01_rb,0.74498e-01_rb,0.75924e-01_rb,0.77220e-01_rb,0.78434e-01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.62688e-01_rb,0.64121e-01_rb,0.65574e-01_rb,0.66965e-01_rb,0.68243e-01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.54382e-01_rb,0.55704e-01_rb,0.57013e-01_rb,0.58303e-01_rb,0.59763e-01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.47190e-01_rb,0.48469e-01_rb,0.49752e-01_rb,0.51138e-01_rb,0.52452e-01_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.41104e-01_rb,0.42378e-01_rb,0.43684e-01_rb,0.45035e-01_rb,0.46495e-01_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.35910e-01_rb,0.37220e-01_rb,0.38484e-01_rb,0.39789e-01_rb,0.41443e-01_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.31558e-01_rb,0.32836e-01_rb,0.34085e-01_rb,0.35462e-01_rb,0.37160e-01_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.27861e-01_rb,0.29090e-01_rb,0.30363e-01_rb,0.31857e-01_rb,0.33566e-01_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.24743e-01_rb,0.26003e-01_rb,0.27311e-01_rb,0.28788e-01_rb,0.30553e-01_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.22141e-01_rb,0.23397e-01_rb,0.24754e-01_rb,0.26282e-01_rb,0.28040e-01_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.19941e-01_rb,0.21165e-01_rb,0.22565e-01_rb,0.24131e-01_rb,0.25980e-01_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.18046e-01_rb,0.19353e-01_rb,0.20736e-01_rb,0.22375e-01_rb,0.24248e-01_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.16429e-01_rb,0.17775e-01_rb,0.19238e-01_rb,0.20907e-01_rb,0.22847e-01_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.15094e-01_rb,0.16450e-01_rb,0.17992e-01_rb,0.19741e-01_rb,0.21608e-01_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.13975e-01_rb,0.15315e-01_rb,0.16950e-01_rb,0.18741e-01_rb,0.20564e-01_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.13026e-01_rb,0.14475e-01_rb,0.16113e-01_rb,0.17903e-01_rb,0.19794e-01_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.12248e-01_rb,0.13747e-01_rb,0.15391e-01_rb,0.17142e-01_rb,0.19155e-01_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.11491e-01_rb,0.12979e-01_rb,0.14611e-01_rb,0.16423e-01_rb,0.18475e-01_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.10695e-01_rb,0.12142e-01_rb,0.13822e-01_rb,0.15678e-01_rb,0.17729e-01_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.98761e-02_rb,0.11300e-01_rb,0.13000e-01_rb,0.14808e-01_rb,0.16848e-01_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.91358e-02_rb,0.10538e-01_rb,0.12200e-01_rb,0.13999e-01_rb,0.16082e-01_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.84558e-02_rb,0.98580e-02_rb,0.11508e-01_rb,0.13321e-01_rb,0.15372e-01_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.78020e-02_rb,0.91740e-02_rb,0.10778e-01_rb,0.12588e-01_rb,0.14594e-01_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.72028e-02_rb,0.85294e-02_rb,0.10093e-01_rb,0.11887e-01_rb,0.13872e-01_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.66335e-02_rb,0.79299e-02_rb,0.94524e-02_rb,0.11233e-01_rb,0.13162e-01_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.60936e-02_rb,0.73819e-02_rb,0.88361e-02_rb,0.10555e-01_rb,0.12456e-01_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.55851e-02_rb,0.68018e-02_rb,0.82487e-02_rb,0.98836e-02_rb,0.11744e-01_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.51361e-02_rb,0.62783e-02_rb,0.76910e-02_rb,0.92631e-02_rb,0.11096e-01_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.46789e-02_rb,0.57877e-02_rb,0.71257e-02_rb,0.86688e-02_rb,0.10399e-01_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.42434e-02_rb,0.53043e-02_rb,0.65448e-02_rb,0.80300e-02_rb,0.97286e-02_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.38917e-02_rb,0.48269e-02_rb,0.60283e-02_rb,0.74378e-02_rb,0.90783e-02_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.35823e-02_rb,0.43988e-02_rb,0.55409e-02_rb,0.68845e-02_rb,0.84495e-02_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.33116e-02_rb,0.40852e-02_rb,0.51044e-02_rb,0.63885e-02_rb,0.78773e-02_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.30752e-02_rb,0.38103e-02_rb,0.47346e-02_rb,0.59580e-02_rb,0.73779e-02_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.28626e-02_rb,0.35553e-02_rb,0.44430e-02_rb,0.55409e-02_rb,0.69343e-02_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.26485e-02_rb,0.33392e-02_rb,0.41695e-02_rb,0.51739e-02_rb,0.64753e-02_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.24736e-02_rb,0.31489e-02_rb,0.39367e-02_rb,0.48954e-02_rb,0.61401e-02_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.23362e-02_rb,0.29819e-02_rb,0.37593e-02_rb,0.46985e-02_rb,0.58363e-02_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.22243e-02_rb,0.28447e-02_rb,0.35827e-02_rb,0.44762e-02_rb,0.55720e-02_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.21389e-02_rb,0.27081e-02_rb,0.34315e-02_rb,0.43182e-02_rb,0.53898e-02_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.20428e-02_rb,0.25997e-02_rb,0.33047e-02_rb,0.41726e-02_rb,0.52071e-02_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.20538e-02_rb,0.26323e-02_rb,0.33247e-02_rb,0.41770e-02_rb,0.52496e-02_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.58637e+00_rb,0.59481e+00_rb,0.59811e+00_rb,0.60451e+00_rb,0.60418e+00_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.53191e+00_rb,0.53363e+00_rb,0.53861e+00_rb,0.53976e+00_rb,0.53933e+00_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.47845e+00_rb,0.48447e+00_rb,0.48498e+00_rb,0.48691e+00_rb,0.48935e+00_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.42695e+00_rb,0.43265e+00_rb,0.43442e+00_rb,0.43949e+00_rb,0.44244e+00_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.37796e+00_rb,0.38437e+00_rb,0.38958e+00_rb,0.39367e+00_rb,0.39802e+00_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.33399e+00_rb,0.33971e+00_rb,0.34517e+00_rb,0.35032e+00_rb,0.35265e+00_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.29538e+00_rb,0.30247e+00_rb,0.30713e+00_rb,0.30943e+00_rb,0.31544e+00_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.26154e+00_rb,0.26955e+00_rb,0.27264e+00_rb,0.27778e+00_rb,0.28167e+00_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.23200e+00_rb,0.23896e+00_rb,0.24468e+00_rb,0.24838e+00_rb,0.25453e+00_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.20714e+00_rb,0.21368e+00_rb,0.21959e+00_rb,0.22402e+00_rb,0.22934e+00_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.18514e+00_rb,0.19070e+00_rb,0.19771e+00_rb,0.20426e+00_rb,0.20794e+00_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.16629e+00_rb,0.17247e+00_rb,0.17943e+00_rb,0.18543e+00_rb,0.19044e+00_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.15103e+00_rb,0.15758e+00_rb,0.16440e+00_rb,0.16947e+00_rb,0.17504e+00_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.13782e+00_rb,0.14448e+00_rb,0.15050e+00_rb,0.15723e+00_rb,0.16403e+00_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.12675e+00_rb,0.13284e+00_rb,0.13902e+00_rb,0.14547e+00_rb,0.15299e+00_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.11700e+00_rb,0.12400e+00_rb,0.13029e+00_rb,0.13779e+00_rb,0.14535e+00_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.10975e+00_rb,0.11580e+00_rb,0.12300e+00_rb,0.13106e+00_rb,0.13981e+00_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.10326e+00_rb,0.10877e+00_rb,0.11694e+00_rb,0.12523e+00_rb,0.13409e+00_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.97072e-01_rb,0.10392e+00_rb,0.11191e+00_rb,0.12092e+00_rb,0.13156e+00_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.92483e-01_rb,0.10003e+00_rb,0.10847e+00_rb,0.11777e+00_rb,0.12978e+00_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.89436e-01_rb,0.96549e-01_rb,0.10550e+00_rb,0.11582e+00_rb,0.12938e+00_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.86605e-01_rb,0.93852e-01_rb,0.10437e+00_rb,0.11565e+00_rb,0.13025e+00_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.83755e-01_rb,0.92443e-01_rb,0.10318e+00_rb,0.11569e+00_rb,0.13035e+00_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.80159e-01_rb,0.90106e-01_rb,0.10185e+00_rb,0.11331e+00_rb,0.13105e+00_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.76863e-01_rb,0.86981e-01_rb,0.98816e-01_rb,0.11094e+00_rb,0.12837e+00_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.73911e-01_rb,0.84640e-01_rb,0.95988e-01_rb,0.10951e+00_rb,0.12524e+00_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.71484e-01_rb,0.82465e-01_rb,0.93807e-01_rb,0.10732e+00_rb,0.12288e+00_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.68367e-01_rb,0.78553e-01_rb,0.90288e-01_rb,0.10290e+00_rb,0.11884e+00_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.65972e-01_rb,0.75367e-01_rb,0.87331e-01_rb,0.98979e-01_rb,0.11479e+00_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.63899e-01_rb,0.72995e-01_rb,0.84392e-01_rb,0.96170e-01_rb,0.11066e+00_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.61601e-01_rb,0.69361e-01_rb,0.80265e-01_rb,0.92296e-01_rb,0.10575e+00_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.58053e-01_rb,0.67236e-01_rb,0.77057e-01_rb,0.88848e-01_rb,0.10118e+00_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.55041e-01_rb,0.64788e-01_rb,0.73479e-01_rb,0.85189e-01_rb,0.97294e-01_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.51538e-01_rb,0.61359e-01_rb,0.70493e-01_rb,0.81342e-01_rb,0.93711e-01_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.48229e-01_rb,0.57754e-01_rb,0.67703e-01_rb,0.77712e-01_rb,0.88779e-01_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.44328e-01_rb,0.53953e-01_rb,0.64327e-01_rb,0.74186e-01_rb,0.85354e-01_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.40181e-01_rb,0.50939e-01_rb,0.60544e-01_rb,0.71079e-01_rb,0.81883e-01_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.36327e-01_rb,0.47243e-01_rb,0.57625e-01_rb,0.67925e-01_rb,0.78806e-01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.33026e-01_rb,0.43278e-01_rb,0.54464e-01_rb,0.64411e-01_rb,0.75916e-01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.29600e-01_rb,0.39888e-01_rb,0.50913e-01_rb,0.61457e-01_rb,0.72719e-01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.26994e-01_rb,0.36264e-01_rb,0.46926e-01_rb,0.58631e-01_rb,0.68972e-01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.24928e-01_rb,0.33245e-01_rb,0.43870e-01_rb,0.55481e-01_rb,0.66121e-01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.23329e-01_rb,0.30647e-01_rb,0.40729e-01_rb,0.52051e-01_rb,0.63960e-01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.21581e-01_rb,0.28578e-01_rb,0.37651e-01_rb,0.48828e-01_rb,0.60673e-01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.20121e-01_rb,0.27060e-01_rb,0.35152e-01_rb,0.45854e-01_rb,0.57152e-01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.18692e-01_rb,0.25639e-01_rb,0.32995e-01_rb,0.42657e-01_rb,0.54655e-01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.18277e-01_rb,0.25273e-01_rb,0.32791e-01_rb,0.42508e-01_rb,0.53680e-01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.10693e+01_rb,0.10902e+01_rb,0.11032e+01_rb,0.10991e+01_rb,0.11118e+01_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.95953e+00_rb,0.97384e+00_rb,0.98577e+00_rb,0.99728e+00_rb,0.10070e+01_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.85940e+00_rb,0.86781e+00_rb,0.87766e+00_rb,0.88834e+00_rb,0.89855e+00_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.76187e+00_rb,0.76651e+00_rb,0.78116e+00_rb,0.79605e+00_rb,0.80429e+00_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.67627e+00_rb,0.68377e+00_rb,0.69734e+00_rb,0.70867e+00_rb,0.71758e+00_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.60442e+00_rb,0.61462e+00_rb,0.62319e+00_rb,0.63477e+00_rb,0.64696e+00_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.54250e+00_rb,0.55180e+00_rb,0.56132e+00_rb,0.57649e+00_rb,0.58604e+00_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.49000e+00_rb,0.49922e+00_rb,0.51229e+00_rb,0.52536e+00_rb,0.53903e+00_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.44362e+00_rb,0.45018e+00_rb,0.46523e+00_rb,0.48212e+00_rb,0.49590e+00_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.40390e+00_rb,0.41136e+00_rb,0.42554e+00_rb,0.44299e+00_rb,0.45956e+00_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.36600e+00_rb,0.37646e+00_rb,0.39144e+00_rb,0.40936e+00_rb,0.42622e+00_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.33488e+00_rb,0.34802e+00_rb,0.36259e+00_rb,0.38089e+00_rb,0.39832e+00_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.30569e+00_rb,0.32099e+00_rb,0.33730e+00_rb,0.35716e+00_rb,0.37447e+00_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.28345e+00_rb,0.29933e+00_rb,0.31861e+00_rb,0.33716e+00_rb,0.35400e+00_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.26524e+00_rb,0.28116e+00_rb,0.30310e+00_rb,0.32398e+00_rb,0.34341e+00_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.25036e+00_rb,0.26748e+00_rb,0.29040e+00_rb,0.31038e+00_rb,0.33527e+00_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.23678e+00_rb,0.25759e+00_rb,0.27958e+00_rb,0.30373e+00_rb,0.33097e+00_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.22835e+00_rb,0.25043e+00_rb,0.27298e+00_rb,0.30247e+00_rb,0.33069e+00_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.22381e+00_rb,0.24448e+00_rb,0.27386e+00_rb,0.30198e+00_rb,0.33135e+00_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.21945e+00_rb,0.24581e+00_rb,0.27557e+00_rb,0.30488e+00_rb,0.33817e+00_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.22020e+00_rb,0.24997e+00_rb,0.27933e+00_rb,0.31199e+00_rb,0.34537e+00_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.22328e+00_rb,0.25315e+00_rb,0.28560e+00_rb,0.31999e+00_rb,0.35204e+00_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.22463e+00_rb,0.25599e+00_rb,0.29016e+00_rb,0.32472e+00_rb,0.35705e+00_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.22454e+00_rb,0.25719e+00_rb,0.29064e+00_rb,0.32676e+00_rb,0.35643e+00_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.21917e+00_rb,0.25146e+00_rb,0.28533e+00_rb,0.32018e+00_rb,0.35207e+00_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.21431e+00_rb,0.24593e+00_rb,0.28070e+00_rb,0.31440e+00_rb,0.34740e+00_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.20995e+00_rb,0.24107e+00_rb,0.27540e+00_rb,0.30795e+00_rb,0.34247e+00_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.20148e+00_rb,0.23319e+00_rb,0.26577e+00_rb,0.30086e+00_rb,0.33366e+00_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.19132e+00_rb,0.22478e+00_rb,0.25632e+00_rb,0.29251e+00_rb,0.32436e+00_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.18231e+00_rb,0.21584e+00_rb,0.24724e+00_rb,0.28164e+00_rb,0.31641e+00_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.17273e+00_rb,0.20475e+00_rb,0.23702e+00_rb,0.26984e+00_rb,0.30535e+00_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.16365e+00_rb,0.19313e+00_rb,0.22566e+00_rb,0.25812e+00_rb,0.29340e+00_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.15471e+00_rb,0.18278e+00_rb,0.21464e+00_rb,0.24686e+00_rb,0.28060e+00_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.14477e+00_rb,0.17256e+00_rb,0.20328e+00_rb,0.23515e+00_rb,0.26753e+00_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.13513e+00_rb,0.16209e+00_rb,0.19092e+00_rb,0.22162e+00_rb,0.25481e+00_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.12632e+00_rb,0.15056e+00_rb,0.17900e+00_rb,0.20905e+00_rb,0.24085e+00_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.11846e+00_rb,0.14059e+00_rb,0.16812e+00_rb,0.19759e+00_rb,0.22701e+00_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.11278e+00_rb,0.13341e+00_rb,0.15756e+00_rb,0.18662e+00_rb,0.21629e+00_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.10711e+00_rb,0.12752e+00_rb,0.14951e+00_rb,0.17651e+00_rb,0.20555e+00_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.10062e+00_rb,0.12140e+00_rb,0.14273e+00_rb,0.16677e+00_rb,0.19594e+00_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.93686e-01_rb,0.11587e+00_rb,0.13705e+00_rb,0.15900e+00_rb,0.18673e+00_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.88183e-01_rb,0.10986e+00_rb,0.13159e+00_rb,0.15362e+00_rb,0.17808e+00_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.81924e-01_rb,0.10428e+00_rb,0.12662e+00_rb,0.14862e+00_rb,0.17143e+00_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.75991e-01_rb,0.98633e-01_rb,0.12219e+00_rb,0.14408e+00_rb,0.16698e+00_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.69399e-01_rb,0.92760e-01_rb,0.11664e+00_rb,0.14040e+00_rb,0.16308e+00_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.64018e-01_rb,0.88343e-01_rb,0.11169e+00_rb,0.13686e+00_rb,0.15969e+00_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.63145e-01_rb,0.86273e-01_rb,0.11143e+00_rb,0.13565e+00_rb,0.16187e+00_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.22241e+01_rb,0.22556e+01_rb,0.22932e+01_rb,0.23316e+01_rb,0.23817e+01_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.20015e+01_rb,0.20535e+01_rb,0.20976e+01_rb,0.21411e+01_rb,0.21895e+01_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.18111e+01_rb,0.18671e+01_rb,0.19196e+01_rb,0.19734e+01_rb,0.20226e+01_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.16513e+01_rb,0.17114e+01_rb,0.17632e+01_rb,0.18132e+01_rb,0.18623e+01_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.15041e+01_rb,0.15648e+01_rb,0.16197e+01_rb,0.16720e+01_rb,0.17169e+01_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.13731e+01_rb,0.14345e+01_rb,0.14937e+01_rb,0.15386e+01_rb,0.16052e+01_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.12478e+01_rb,0.13115e+01_rb,0.13641e+01_rb,0.14279e+01_rb,0.14977e+01_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.11298e+01_rb,0.11910e+01_rb,0.12495e+01_rb,0.13186e+01_rb,0.13914e+01_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.10266e+01_rb,0.10915e+01_rb,0.11508e+01_rb,0.12227e+01_rb,0.13004e+01_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.93959e+00_rb,0.10027e+01_rb,0.10735e+01_rb,0.11507e+01_rb,0.12312e+01_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.87016e+00_rb,0.93486e+00_rb,0.10125e+01_rb,0.10930e+01_rb,0.11794e+01_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.81213e+00_rb,0.88017e+00_rb,0.96483e+00_rb,0.10508e+01_rb,0.11396e+01_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.77134e+00_rb,0.84295e+00_rb,0.93081e+00_rb,0.10201e+01_rb,0.11152e+01_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.73832e+00_rb,0.81743e+00_rb,0.90746e+00_rb,0.10024e+01_rb,0.11020e+01_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.71831e+00_rb,0.80328e+00_rb,0.89505e+00_rb,0.99247e+00_rb,0.10943e+01_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.70848e+00_rb,0.79592e+00_rb,0.89143e+00_rb,0.99432e+00_rb,0.10940e+01_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.70725e+00_rb,0.79781e+00_rb,0.89906e+00_rb,0.10007e+01_rb,0.11009e+01_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.71125e+00_rb,0.80824e+00_rb,0.91144e+00_rb,0.10109e+01_rb,0.11144e+01_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.72057e+00_rb,0.82548e+00_rb,0.92423e+00_rb,0.10285e+01_rb,0.11338e+01_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.73855e+00_rb,0.84223e+00_rb,0.94322e+00_rb,0.10495e+01_rb,0.11523e+01_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.75860e+00_rb,0.86137e+00_rb,0.96653e+00_rb,0.10709e+01_rb,0.11736e+01_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.77584e+00_rb,0.88104e+00_rb,0.98358e+00_rb,0.10881e+01_rb,0.11928e+01_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.78526e+00_rb,0.88915e+00_rb,0.99181e+00_rb,0.10955e+01_rb,0.12024e+01_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.78420e+00_rb,0.88679e+00_rb,0.98962e+00_rb,0.10938e+01_rb,0.12013e+01_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.76619e+00_rb,0.86975e+00_rb,0.97162e+00_rb,0.10774e+01_rb,0.11823e+01_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.74778e+00_rb,0.85168e+00_rb,0.95355e+00_rb,0.10588e+01_rb,0.11642e+01_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.73003e+00_rb,0.83397e+00_rb,0.93638e+00_rb,0.10427e+01_rb,0.11461e+01_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.70694e+00_rb,0.80603e+00_rb,0.90951e+00_rb,0.10129e+01_rb,0.11179e+01_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.68380e+00_rb,0.77629e+00_rb,0.88021e+00_rb,0.98263e+00_rb,0.10876e+01_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.66231e+00_rb,0.74849e+00_rb,0.85130e+00_rb,0.95458e+00_rb,0.10576e+01_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.63688e+00_rb,0.72048e+00_rb,0.81634e+00_rb,0.92017e+00_rb,0.10227e+01_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.60858e+00_rb,0.69178e+00_rb,0.77940e+00_rb,0.88149e+00_rb,0.98460e+00_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.58153e+00_rb,0.66520e+00_rb,0.74925e+00_rb,0.84319e+00_rb,0.94694e+00_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.55197e+00_rb,0.63412e+00_rb,0.71872e+00_rb,0.80664e+00_rb,0.90684e+00_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.51844e+00_rb,0.60273e+00_rb,0.68769e+00_rb,0.77076e+00_rb,0.86117e+00_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.48120e+00_rb,0.57148e+00_rb,0.65491e+00_rb,0.74197e+00_rb,0.82485e+00_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.44584e+00_rb,0.53846e+00_rb,0.62079e+00_rb,0.70603e+00_rb,0.79220e+00_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.41289e+00_rb,0.50133e+00_rb,0.59314e+00_rb,0.67773e+00_rb,0.76297e+00_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.38263e+00_rb,0.46808e+00_rb,0.55994e+00_rb,0.64654e+00_rb,0.73545e+00_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.35216e+00_rb,0.43713e+00_rb,0.52781e+00_rb,0.61897e+00_rb,0.70212e+00_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.33102e+00_rb,0.40477e+00_rb,0.49059e+00_rb,0.58472e+00_rb,0.67270e+00_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.31146e+00_rb,0.37834e+00_rb,0.46271e+00_rb,0.55353e+00_rb,0.64596e+00_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.29087e+00_rb,0.35982e+00_rb,0.43598e+00_rb,0.52416e+00_rb,0.61765e+00_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.27304e+00_rb,0.34098e+00_rb,0.41224e+00_rb,0.49775e+00_rb,0.58771e+00_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.25824e+00_rb,0.32066e+00_rb,0.39085e+00_rb,0.46641e+00_rb,0.55829e+00_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.24548e+00_rb,0.30081e+00_rb,0.37338e+00_rb,0.44708e+00_rb,0.53062e+00_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.24212e+00_rb,0.29858e+00_rb,0.36550e+00_rb,0.44064e+00_rb,0.51789e+00_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.55998e+01_rb,0.57039e+01_rb,0.58049e+01_rb,0.59180e+01_rb,0.59854e+01_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.53275e+01_rb,0.54387e+01_rb,0.55543e+01_rb,0.56621e+01_rb,0.57635e+01_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.50203e+01_rb,0.51578e+01_rb,0.52898e+01_rb,0.54130e+01_rb,0.55373e+01_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.47246e+01_rb,0.48786e+01_rb,0.50266e+01_rb,0.51689e+01_rb,0.53242e+01_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.44403e+01_rb,0.46027e+01_rb,0.47680e+01_rb,0.49455e+01_rb,0.51299e+01_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.41648e+01_rb,0.43473e+01_rb,0.45415e+01_rb,0.47508e+01_rb,0.49298e+01_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.39134e+01_rb,0.41196e+01_rb,0.43493e+01_rb,0.45520e+01_rb,0.47522e+01_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.36873e+01_rb,0.39195e+01_rb,0.41603e+01_rb,0.43826e+01_rb,0.46005e+01_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.34974e+01_rb,0.37507e+01_rb,0.40010e+01_rb,0.42413e+01_rb,0.44759e+01_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.33605e+01_rb,0.36305e+01_rb,0.38873e+01_rb,0.41404e+01_rb,0.43929e+01_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.32571e+01_rb,0.35388e+01_rb,0.38042e+01_rb,0.40702e+01_rb,0.43353e+01_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.31836e+01_rb,0.34721e+01_rb,0.37495e+01_rb,0.40277e+01_rb,0.43044e+01_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.31346e+01_rb,0.34329e+01_rb,0.37222e+01_rb,0.40107e+01_rb,0.42953e+01_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.31155e+01_rb,0.34221e+01_rb,0.37222e+01_rb,0.40178e+01_rb,0.43079e+01_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.31157e+01_rb,0.34328e+01_rb,0.37392e+01_rb,0.40396e+01_rb,0.43346e+01_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.31335e+01_rb,0.34580e+01_rb,0.37695e+01_rb,0.40734e+01_rb,0.43720e+01_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.31697e+01_rb,0.34978e+01_rb,0.38120e+01_rb,0.41186e+01_rb,0.44189e+01_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.32194e+01_rb,0.35475e+01_rb,0.38638e+01_rb,0.41720e+01_rb,0.44722e+01_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.32811e+01_rb,0.36069e+01_rb,0.39241e+01_rb,0.42325e+01_rb,0.45314e+01_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.33484e+01_rb,0.36727e+01_rb,0.39897e+01_rb,0.42974e+01_rb,0.45949e+01_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.34186e+01_rb,0.37430e+01_rb,0.40586e+01_rb,0.43658e+01_rb,0.46602e+01_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.34801e+01_rb,0.38048e+01_rb,0.41197e+01_rb,0.44255e+01_rb,0.47156e+01_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.35126e+01_rb,0.38375e+01_rb,0.41525e+01_rb,0.44577e+01_rb,0.47454e+01_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.35115e+01_rb,0.38370e+01_rb,0.41529e+01_rb,0.44584e+01_rb,0.47449e+01_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.34620e+01_rb,0.37892e+01_rb,0.41066e+01_rb,0.44144e+01_rb,0.47052e+01_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.34108e+01_rb,0.37391e+01_rb,0.40587e+01_rb,0.43685e+01_rb,0.46624e+01_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.33603e+01_rb,0.36896e+01_rb,0.40114e+01_rb,0.43229e+01_rb,0.46208e+01_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.32696e+01_rb,0.36068e+01_rb,0.39317e+01_rb,0.42460e+01_rb,0.45479e+01_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.31746e+01_rb,0.35197e+01_rb,0.38475e+01_rb,0.41644e+01_rb,0.44716e+01_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.30768e+01_rb,0.34312e+01_rb,0.37630e+01_rb,0.40826e+01_rb,0.43924e+01_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.29558e+01_rb,0.33178e+01_rb,0.36587e+01_rb,0.39822e+01_rb,0.42959e+01_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.28280e+01_rb,0.31906e+01_rb,0.35435e+01_rb,0.38727e+01_rb,0.41899e+01_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.26988e+01_rb,0.30597e+01_rb,0.34201e+01_rb,0.37628e+01_rb,0.40831e+01_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.25661e+01_rb,0.29262e+01_rb,0.32865e+01_rb,0.36383e+01_rb,0.39682e+01_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.24176e+01_rb,0.27716e+01_rb,0.31308e+01_rb,0.34925e+01_rb,0.38381e+01_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.22754e+01_rb,0.26218e+01_rb,0.29793e+01_rb,0.33363e+01_rb,0.36948e+01_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.21329e+01_rb,0.24724e+01_rb,0.28302e+01_rb,0.31874e+01_rb,0.35454e+01_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.20005e+01_rb,0.23398e+01_rb,0.26856e+01_rb,0.30422e+01_rb,0.34002e+01_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.18713e+01_rb,0.22087e+01_rb,0.25515e+01_rb,0.29067e+01_rb,0.32588e+01_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.17459e+01_rb,0.20772e+01_rb,0.24169e+01_rb,0.27666e+01_rb,0.31241e+01_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.16095e+01_rb,0.19502e+01_rb,0.22895e+01_rb,0.26325e+01_rb,0.29855e+01_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.15066e+01_rb,0.18320e+01_rb,0.21659e+01_rb,0.25081e+01_rb,0.28569e+01_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.14318e+01_rb,0.17117e+01_rb,0.20491e+01_rb,0.23896e+01_rb,0.27343e+01_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.13449e+01_rb,0.16235e+01_rb,0.19309e+01_rb,0.22682e+01_rb,0.26139e+01_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.12667e+01_rb,0.15514e+01_rb,0.18274e+01_rb,0.21528e+01_rb,0.24919e+01_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.11763e+01_rb,0.14696e+01_rb,0.17445e+01_rb,0.20345e+01_rb,0.23757e+01_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.11472e+01_rb,0.14428e+01_rb,0.17312e+01_rb,0.20031e+01_rb,0.23234e+01_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.15147e+02_rb,0.15130e+02_rb,0.15113e+02_rb,0.15099e+02_rb,0.15078e+02_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.15510e+02_rb,0.15546e+02_rb,0.15567e+02_rb,0.15587e+02_rb,0.15585e+02_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.15739e+02_rb,0.15841e+02_rb,0.15930e+02_rb,0.15986e+02_rb,0.16004e+02_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.15858e+02_rb,0.16042e+02_rb,0.16196e+02_rb,0.16295e+02_rb,0.16347e+02_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.15892e+02_rb,0.16168e+02_rb,0.16375e+02_rb,0.16519e+02_rb,0.16620e+02_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.15890e+02_rb,0.16233e+02_rb,0.16495e+02_rb,0.16687e+02_rb,0.16843e+02_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.15860e+02_rb,0.16260e+02_rb,0.16572e+02_rb,0.16822e+02_rb,0.17016e+02_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.15821e+02_rb,0.16274e+02_rb,0.16642e+02_rb,0.16937e+02_rb,0.17165e+02_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.15778e+02_rb,0.16284e+02_rb,0.16705e+02_rb,0.17036e+02_rb,0.17293e+02_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.15777e+02_rb,0.16337e+02_rb,0.16794e+02_rb,0.17151e+02_rb,0.17417e+02_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.15815e+02_rb,0.16408e+02_rb,0.16883e+02_rb,0.17258e+02_rb,0.17537e+02_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.15884e+02_rb,0.16493e+02_rb,0.16982e+02_rb,0.17365e+02_rb,0.17648e+02_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.15973e+02_rb,0.16594e+02_rb,0.17087e+02_rb,0.17470e+02_rb,0.17753e+02_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.16098e+02_rb,0.16711e+02_rb,0.17198e+02_rb,0.17574e+02_rb,0.17853e+02_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.16232e+02_rb,0.16836e+02_rb,0.17310e+02_rb,0.17676e+02_rb,0.17946e+02_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.16376e+02_rb,0.16966e+02_rb,0.17425e+02_rb,0.17775e+02_rb,0.18032e+02_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.16527e+02_rb,0.17096e+02_rb,0.17538e+02_rb,0.17871e+02_rb,0.18111e+02_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.16681e+02_rb,0.17223e+02_rb,0.17646e+02_rb,0.17959e+02_rb,0.18183e+02_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.16832e+02_rb,0.17348e+02_rb,0.17747e+02_rb,0.18041e+02_rb,0.18247e+02_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.16982e+02_rb,0.17470e+02_rb,0.17844e+02_rb,0.18116e+02_rb,0.18304e+02_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.17125e+02_rb,0.17586e+02_rb,0.17935e+02_rb,0.18187e+02_rb,0.18356e+02_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.17243e+02_rb,0.17681e+02_rb,0.18009e+02_rb,0.18243e+02_rb,0.18396e+02_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.17308e+02_rb,0.17736e+02_rb,0.18053e+02_rb,0.18277e+02_rb,0.18422e+02_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.17321e+02_rb,0.17747e+02_rb,0.18064e+02_rb,0.18289e+02_rb,0.18431e+02_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.17259e+02_rb,0.17701e+02_rb,0.18033e+02_rb,0.18270e+02_rb,0.18425e+02_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.17190e+02_rb,0.17649e+02_rb,0.17997e+02_rb,0.18247e+02_rb,0.18415e+02_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.17116e+02_rb,0.17594e+02_rb,0.17957e+02_rb,0.18221e+02_rb,0.18401e+02_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.16981e+02_rb,0.17491e+02_rb,0.17882e+02_rb,0.18168e+02_rb,0.18367e+02_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.16829e+02_rb,0.17375e+02_rb,0.17795e+02_rb,0.18107e+02_rb,0.18328e+02_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.16667e+02_rb,0.17250e+02_rb,0.17700e+02_rb,0.18038e+02_rb,0.18281e+02_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.16452e+02_rb,0.17082e+02_rb,0.17573e+02_rb,0.17944e+02_rb,0.18214e+02_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.16203e+02_rb,0.16887e+02_rb,0.17421e+02_rb,0.17833e+02_rb,0.18135e+02_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.15935e+02_rb,0.16673e+02_rb,0.17257e+02_rb,0.17708e+02_rb,0.18046e+02_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.15628e+02_rb,0.16427e+02_rb,0.17064e+02_rb,0.17560e+02_rb,0.17936e+02_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.15258e+02_rb,0.16126e+02_rb,0.16827e+02_rb,0.17377e+02_rb,0.17799e+02_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.14864e+02_rb,0.15798e+02_rb,0.16564e+02_rb,0.17174e+02_rb,0.17643e+02_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.14439e+02_rb,0.15441e+02_rb,0.16276e+02_rb,0.16946e+02_rb,0.17469e+02_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.14012e+02_rb,0.15084e+02_rb,0.15980e+02_rb,0.16711e+02_rb,0.17289e+02_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.13576e+02_rb,0.14715e+02_rb,0.15671e+02_rb,0.16463e+02_rb,0.17096e+02_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.13120e+02_rb,0.14320e+02_rb,0.15341e+02_rb,0.16194e+02_rb,0.16882e+02_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.12642e+02_rb,0.13899e+02_rb,0.14988e+02_rb,0.15902e+02_rb,0.16649e+02_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.12147e+02_rb,0.13496e+02_rb,0.14645e+02_rb,0.15614e+02_rb,0.16418e+02_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.11626e+02_rb,0.13090e+02_rb,0.14295e+02_rb,0.15320e+02_rb,0.16178e+02_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.11110e+02_rb,0.12619e+02_rb,0.13926e+02_rb,0.15012e+02_rb,0.15922e+02_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.10565e+02_rb,0.12110e+02_rb,0.13518e+02_rb,0.14685e+02_rb,0.15649e+02_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.10061e+02_rb,0.11633e+02_rb,0.13084e+02_rb,0.14356e+02_rb,0.15374e+02_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.98377e+01_rb,0.11416e+02_rb,0.12868e+02_rb,0.14184e+02_rb,0.15259e+02_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.41304e+02_rb,0.40483e+02_rb,0.39654e+02_rb,0.38829e+02_rb,0.38029e+02_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.44686e+02_rb,0.43762e+02_rb,0.42836e+02_rb,0.41888e+02_rb,0.41004e+02_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.48004e+02_rb,0.46942e+02_rb,0.45864e+02_rb,0.44813e+02_rb,0.43844e+02_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.51150e+02_rb,0.49938e+02_rb,0.48734e+02_rb,0.47591e+02_rb,0.46512e+02_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.54100e+02_rb,0.52729e+02_rb,0.51435e+02_rb,0.50180e+02_rb,0.48962e+02_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.56777e+02_rb,0.55306e+02_rb,0.53894e+02_rb,0.52525e+02_rb,0.51164e+02_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.59186e+02_rb,0.57635e+02_rb,0.56100e+02_rb,0.54603e+02_rb,0.53129e+02_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.61293e+02_rb,0.59648e+02_rb,0.58005e+02_rb,0.56388e+02_rb,0.54798e+02_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.63124e+02_rb,0.61368e+02_rb,0.59613e+02_rb,0.57895e+02_rb,0.56204e+02_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.64562e+02_rb,0.62695e+02_rb,0.60841e+02_rb,0.59040e+02_rb,0.57268e+02_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.65690e+02_rb,0.63742e+02_rb,0.61820e+02_rb,0.59937e+02_rb,0.58087e+02_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.66548e+02_rb,0.64535e+02_rb,0.62550e+02_rb,0.60597e+02_rb,0.58690e+02_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.67194e+02_rb,0.65115e+02_rb,0.63062e+02_rb,0.61050e+02_rb,0.59091e+02_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.67597e+02_rb,0.65466e+02_rb,0.63369e+02_rb,0.61312e+02_rb,0.59309e+02_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.67831e+02_rb,0.65647e+02_rb,0.63518e+02_rb,0.61430e+02_rb,0.59393e+02_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.67908e+02_rb,0.65687e+02_rb,0.63527e+02_rb,0.61427e+02_rb,0.59357e+02_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.67845e+02_rb,0.65603e+02_rb,0.63419e+02_rb,0.61304e+02_rb,0.59222e+02_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.67682e+02_rb,0.65422e+02_rb,0.63225e+02_rb,0.61094e+02_rb,0.59010e+02_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.67415e+02_rb,0.65154e+02_rb,0.62953e+02_rb,0.60816e+02_rb,0.58721e+02_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.67084e+02_rb,0.64817e+02_rb,0.62622e+02_rb,0.60477e+02_rb,0.58393e+02_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.66692e+02_rb,0.64428e+02_rb,0.62242e+02_rb,0.60092e+02_rb,0.58024e+02_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.66346e+02_rb,0.64077e+02_rb,0.61890e+02_rb,0.59745e+02_rb,0.57700e+02_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.66188e+02_rb,0.63920e+02_rb,0.61727e+02_rb,0.59582e+02_rb,0.57542e+02_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.66248e+02_rb,0.63978e+02_rb,0.61782e+02_rb,0.59625e+02_rb,0.57587e+02_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.66642e+02_rb,0.64358e+02_rb,0.62144e+02_rb,0.59978e+02_rb,0.57911e+02_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.67048e+02_rb,0.64747e+02_rb,0.62516e+02_rb,0.60340e+02_rb,0.58249e+02_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.67435e+02_rb,0.65122e+02_rb,0.62879e+02_rb,0.60689e+02_rb,0.58578e+02_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.68061e+02_rb,0.65724e+02_rb,0.63462e+02_rb,0.61257e+02_rb,0.59113e+02_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.68702e+02_rb,0.66354e+02_rb,0.64067e+02_rb,0.61847e+02_rb,0.59682e+02_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.69355e+02_rb,0.66983e+02_rb,0.64678e+02_rb,0.62437e+02_rb,0.60259e+02_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.70142e+02_rb,0.67744e+02_rb,0.65416e+02_rb,0.63159e+02_rb,0.60959e+02_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.70991e+02_rb,0.68567e+02_rb,0.66218e+02_rb,0.63930e+02_rb,0.61713e+02_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.71837e+02_rb,0.69401e+02_rb,0.67026e+02_rb,0.64713e+02_rb,0.62473e+02_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.72733e+02_rb,0.70287e+02_rb,0.67885e+02_rb,0.65552e+02_rb,0.63292e+02_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.73741e+02_rb,0.71285e+02_rb,0.68859e+02_rb,0.66493e+02_rb,0.64198e+02_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.74725e+02_rb,0.72283e+02_rb,0.69840e+02_rb,0.67442e+02_rb,0.65125e+02_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.75665e+02_rb,0.73280e+02_rb,0.70828e+02_rb,0.68404e+02_rb,0.66060e+02_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.76534e+02_rb,0.74218e+02_rb,0.71764e+02_rb,0.69323e+02_rb,0.66942e+02_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.77333e+02_rb,0.75093e+02_rb,0.72664e+02_rb,0.70214e+02_rb,0.67806e+02_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.78102e+02_rb,0.75935e+02_rb,0.73563e+02_rb,0.71111e+02_rb,0.68683e+02_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.78815e+02_rb,0.76761e+02_rb,0.74462e+02_rb,0.72010e+02_rb,0.69568e+02_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.79431e+02_rb,0.77488e+02_rb,0.75258e+02_rb,0.72840e+02_rb,0.70386e+02_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.79987e+02_rb,0.78156e+02_rb,0.75999e+02_rb,0.73628e+02_rb,0.71177e+02_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.80478e+02_rb,0.78776e+02_rb,0.76714e+02_rb,0.74415e+02_rb,0.71963e+02_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.80898e+02_rb,0.79365e+02_rb,0.77410e+02_rb,0.75181e+02_rb,0.72750e+02_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.81210e+02_rb,0.79894e+02_rb,0.78053e+02_rb,0.75880e+02_rb,0.73498e+02_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.81312e+02_rb,0.80086e+02_rb,0.78299e+02_rb,0.76156e+02_rb,0.73801e+02_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.81866e+02_rb,0.78569e+02_rb,0.75624e+02_rb,0.72854e+02_rb,0.70288e+02_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.93095e+02_rb,0.88986e+02_rb,0.85351e+02_rb,0.82051e+02_rb,0.78936e+02_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.10470e+03_rb,0.99738e+02_rb,0.95227e+02_rb,0.91249e+02_rb,0.87478e+02_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.11635e+03_rb,0.11037e+03_rb,0.10495e+03_rb,0.10011e+03_rb,0.95646e+02_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.12769e+03_rb,0.12074e+03_rb,0.11431e+03_rb,0.10856e+03_rb,0.10332e+03_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.13851e+03_rb,0.13038e+03_rb,0.12299e+03_rb,0.11635e+03_rb,0.11033e+03_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.14848e+03_rb,0.13912e+03_rb,0.13084e+03_rb,0.12336e+03_rb,0.11656e+03_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.15718e+03_rb,0.14679e+03_rb,0.13761e+03_rb,0.12934e+03_rb,0.12188e+03_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.16462e+03_rb,0.15341e+03_rb,0.14345e+03_rb,0.13443e+03_rb,0.12636e+03_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.17012e+03_rb,0.15822e+03_rb,0.14760e+03_rb,0.13801e+03_rb,0.12950e+03_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.17437e+03_rb,0.16184e+03_rb,0.15069e+03_rb,0.14069e+03_rb,0.13184e+03_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.17733e+03_rb,0.16436e+03_rb,0.15282e+03_rb,0.14251e+03_rb,0.13340e+03_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.17910e+03_rb,0.16583e+03_rb,0.15401e+03_rb,0.14354e+03_rb,0.13426e+03_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.17968e+03_rb,0.16627e+03_rb,0.15433e+03_rb,0.14378e+03_rb,0.13445e+03_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.17946e+03_rb,0.16602e+03_rb,0.15406e+03_rb,0.14351e+03_rb,0.13417e+03_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.17860e+03_rb,0.16522e+03_rb,0.15334e+03_rb,0.14282e+03_rb,0.13355e+03_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.17717e+03_rb,0.16389e+03_rb,0.15216e+03_rb,0.14174e+03_rb,0.13260e+03_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.17533e+03_rb,0.16225e+03_rb,0.15066e+03_rb,0.14043e+03_rb,0.13143e+03_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.17313e+03_rb,0.16029e+03_rb,0.14890e+03_rb,0.13886e+03_rb,0.13004e+03_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.17069e+03_rb,0.15811e+03_rb,0.14694e+03_rb,0.13716e+03_rb,0.12847e+03_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.16804e+03_rb,0.15577e+03_rb,0.14487e+03_rb,0.13533e+03_rb,0.12682e+03_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.16580e+03_rb,0.15376e+03_rb,0.14309e+03_rb,0.13376e+03_rb,0.12539e+03_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.16467e+03_rb,0.15275e+03_rb,0.14221e+03_rb,0.13298e+03_rb,0.12468e+03_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.16486e+03_rb,0.15289e+03_rb,0.14233e+03_rb,0.13308e+03_rb,0.12477e+03_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.16688e+03_rb,0.15469e+03_rb,0.14392e+03_rb,0.13446e+03_rb,0.12602e+03_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.16902e+03_rb,0.15657e+03_rb,0.14555e+03_rb,0.13592e+03_rb,0.12732e+03_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.17110e+03_rb,0.15844e+03_rb,0.14718e+03_rb,0.13734e+03_rb,0.12861e+03_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.17468e+03_rb,0.16155e+03_rb,0.14992e+03_rb,0.13976e+03_rb,0.13077e+03_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.17848e+03_rb,0.16489e+03_rb,0.15289e+03_rb,0.14236e+03_rb,0.13307e+03_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.18237e+03_rb,0.16833e+03_rb,0.15592e+03_rb,0.14501e+03_rb,0.13541e+03_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.18726e+03_rb,0.17263e+03_rb,0.15975e+03_rb,0.14834e+03_rb,0.13835e+03_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.19275e+03_rb,0.17748e+03_rb,0.16403e+03_rb,0.15210e+03_rb,0.14166e+03_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.19851e+03_rb,0.18250e+03_rb,0.16844e+03_rb,0.15602e+03_rb,0.14507e+03_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.20490e+03_rb,0.18806e+03_rb,0.17333e+03_rb,0.16038e+03_rb,0.14888e+03_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.21238e+03_rb,0.19462e+03_rb,0.17910e+03_rb,0.16545e+03_rb,0.15337e+03_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.22029e+03_rb,0.20156e+03_rb,0.18514e+03_rb,0.17074e+03_rb,0.15806e+03_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.22889e+03_rb,0.20882e+03_rb,0.19150e+03_rb,0.17637e+03_rb,0.16304e+03_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.23745e+03_rb,0.21596e+03_rb,0.19782e+03_rb,0.18187e+03_rb,0.16787e+03_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.24629e+03_rb,0.22340e+03_rb,0.20422e+03_rb,0.18747e+03_rb,0.17280e+03_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.25553e+03_rb,0.23136e+03_rb,0.21090e+03_rb,0.19335e+03_rb,0.17798e+03_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.26553e+03_rb,0.23980e+03_rb,0.21793e+03_rb,0.19951e+03_rb,0.18336e+03_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.27524e+03_rb,0.24799e+03_rb,0.22485e+03_rb,0.20544e+03_rb,0.18854e+03_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.28502e+03_rb,0.25615e+03_rb,0.23188e+03_rb,0.21133e+03_rb,0.19372e+03_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.29529e+03_rb,0.26491e+03_rb,0.23927e+03_rb,0.21749e+03_rb,0.19913e+03_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.30624e+03_rb,0.27413e+03_rb,0.24703e+03_rb,0.22404e+03_rb,0.20478e+03_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.31727e+03_rb,0.28329e+03_rb,0.25471e+03_rb,0.23065e+03_rb,0.21031e+03_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.32188e+03_rb,0.28710e+03_rb,0.25796e+03_rb,0.23341e+03_rb,0.21261e+03_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.214504e-06_rb, 0.460418e-06_rb, 0.357608e-05_rb, 0.192037e-05_rb /)\n      forrefo(:, 2) = (/ 0.142576e-05_rb, 0.364463e-05_rb, 0.117033e-04_rb, 0.112085e-04_rb /)\n      forrefo(:, 3) = (/ 0.101536e-04_rb, 0.124096e-04_rb, 0.509190e-04_rb, 0.565282e-04_rb /)\n      forrefo(:, 4) = (/ 0.143394e-03_rb, 0.154700e-03_rb, 0.466498e-03_rb, 0.918829e-03_rb /)\n      forrefo(:, 5) = (/ 0.251631e-02_rb, 0.241729e-02_rb, 0.240057e-02_rb, 0.350408e-02_rb /)\n      forrefo(:, 6) = (/ 0.410309e-02_rb, 0.416851e-02_rb, 0.390925e-02_rb, 0.383694e-02_rb /)\n      forrefo(:, 7) = (/ 0.445387e-02_rb, 0.448657e-02_rb, 0.432310e-02_rb, 0.370739e-02_rb /)\n      forrefo(:, 8) = (/ 0.458150e-02_rb, 0.460014e-02_rb, 0.450245e-02_rb, 0.336718e-02_rb /)\n      forrefo(:, 9) = (/ 0.465423e-02_rb, 0.465595e-02_rb, 0.467006e-02_rb, 0.368061e-02_rb /)\n      forrefo(:,10) = (/ 0.493955e-02_rb, 0.490181e-02_rb, 0.481941e-02_rb, 0.367577e-02_rb /)\n      forrefo(:,11) = (/ 0.511876e-02_rb, 0.490981e-02_rb, 0.493303e-02_rb, 0.357423e-02_rb /)\n      forrefo(:,12) = (/ 0.509845e-02_rb, 0.511556e-02_rb, 0.504031e-02_rb, 0.355915e-02_rb /)\n      forrefo(:,13) = (/ 0.523822e-02_rb, 0.530473e-02_rb, 0.523811e-02_rb, 0.414259e-02_rb /)\n      forrefo(:,14) = (/ 0.551133e-02_rb, 0.535831e-02_rb, 0.546702e-02_rb, 0.473875e-02_rb /)\n      forrefo(:,15) = (/ 0.609781e-02_rb, 0.589859e-02_rb, 0.561187e-02_rb, 0.528981e-02_rb /)\n      forrefo(:,16) = (/ 0.644958e-02_rb, 0.631718e-02_rb, 0.625201e-02_rb, 0.600448e-02_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.217058e-03_rb, 0.176391e-03_rb, 0.143342e-03_rb, 0.116486e-03_rb, 0.946614e-04_rb, &\n        &  0.769257e-04_rb, 0.625131e-04_rb, 0.508007e-04_rb, 0.412828e-04_rb, 0.335481e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.598055e-03_rb, 0.484805e-03_rb, 0.393000e-03_rb, 0.318580e-03_rb, 0.258252e-03_rb, &\n        &  0.209348e-03_rb, 0.169705e-03_rb, 0.137569e-03_rb, 0.111518e-03_rb, 0.904008e-04_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.102691e-02_rb, 0.930281e-03_rb, 0.842740e-03_rb, 0.763437e-03_rb, 0.691596e-03_rb, &\n        &  0.626516e-03_rb, 0.567560e-03_rb, 0.514152e-03_rb, 0.465769e-03_rb, 0.421940e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.388569e-02_rb, 0.365098e-02_rb, 0.343045e-02_rb, 0.322324e-02_rb, 0.302854e-02_rb, &\n        &  0.284561e-02_rb, 0.267372e-02_rb, 0.251222e-02_rb, 0.236047e-02_rb, 0.221789e-02_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.349845e-01_rb, 0.326678e-01_rb, 0.305045e-01_rb, 0.284845e-01_rb, 0.265982e-01_rb, &\n        &  0.248369e-01_rb, 0.231921e-01_rb, 0.216563e-01_rb, 0.202222e-01_rb, 0.188831e-01_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.613705e-01_rb, 0.562676e-01_rb, 0.515890e-01_rb, 0.472994e-01_rb, 0.433665e-01_rb, &\n        &  0.397606e-01_rb, 0.364545e-01_rb, 0.334233e-01_rb, 0.306442e-01_rb, 0.280961e-01_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.656981e-01_rb, 0.602660e-01_rb, 0.552830e-01_rb, 0.507120e-01_rb, 0.465190e-01_rb, &\n        &  0.426726e-01_rb, 0.391443e-01_rb, 0.359077e-01_rb, 0.329387e-01_rb, 0.302153e-01_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.671782e-01_rb, 0.616461e-01_rb, 0.565695e-01_rb, 0.519110e-01_rb, 0.476361e-01_rb, &\n        &  0.437132e-01_rb, 0.401134e-01_rb, 0.368100e-01_rb, 0.337787e-01_rb, 0.309970e-01_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.675902e-01_rb, 0.620888e-01_rb, 0.570351e-01_rb, 0.523928e-01_rb, 0.481284e-01_rb, &\n        &  0.442110e-01_rb, 0.406125e-01_rb, 0.373069e-01_rb, 0.342703e-01_rb, 0.314809e-01_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.708308e-01_rb, 0.651419e-01_rb, 0.599099e-01_rb, 0.550981e-01_rb, 0.506728e-01_rb, &\n        &  0.466030e-01_rb, 0.428600e-01_rb, 0.394176e-01_rb, 0.362517e-01_rb, 0.333401e-01_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.698445e-01_rb, 0.646584e-01_rb, 0.598573e-01_rb, 0.554128e-01_rb, 0.512982e-01_rb, &\n        &  0.474892e-01_rb, 0.439630e-01_rb, 0.406986e-01_rb, 0.376766e-01_rb, 0.348791e-01_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.743921e-01_rb, 0.682057e-01_rb, 0.625337e-01_rb, 0.573334e-01_rb, 0.525655e-01_rb, &\n        &  0.481942e-01_rb, 0.441863e-01_rb, 0.405118e-01_rb, 0.371428e-01_rb, 0.340540e-01_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.775758e-01_rb, 0.709818e-01_rb, 0.649484e-01_rb, 0.594277e-01_rb, 0.543764e-01_rb, &\n        &  0.497544e-01_rb, 0.455253e-01_rb, 0.416556e-01_rb, 0.381149e-01_rb, 0.348751e-01_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.776545e-01_rb, 0.714761e-01_rb, 0.657894e-01_rb, 0.605550e-01_rb, 0.557372e-01_rb, &\n        &  0.513026e-01_rb, 0.472209e-01_rb, 0.434639e-01_rb, 0.400058e-01_rb, 0.368229e-01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.855675e-01_rb, 0.787337e-01_rb, 0.724456e-01_rb, 0.666598e-01_rb, 0.613360e-01_rb, &\n        &  0.564374e-01_rb, 0.519301e-01_rb, 0.477827e-01_rb, 0.439666e-01_rb, 0.404552e-01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.934781e-01_rb, 0.855190e-01_rb, 0.782376e-01_rb, 0.715761e-01_rb, 0.654819e-01_rb, &\n        &  0.599065e-01_rb, 0.548058e-01_rb, 0.501394e-01_rb, 0.458704e-01_rb, 0.419648e-01_rb /)\n     \n      end subroutine sw_kgb20\n\n! **************************************************************************\n      subroutine sw_kgb21\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            rayl, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:, 1) = (/ &\n        & 16.1643_rb , 15.5806_rb, 14.7254_rb    , 13.5541_rb    , &\n        & 11.9519_rb ,10.44410_rb, 8.37884_rb    , 6.26384_rb    , &\n        & 4.28435_rb ,0.465228_rb, 0.385095_rb   ,0.304226_rb    , &\n        & 0.222479_rb,0.143286_rb, 5.58046e-02_rb, 7.84856e-03_rb /)\n      sfluxrefo(:, 2) = (/ &\n        & 15.6451_rb , 15.3170_rb, 14.6987_rb    , 13.7350_rb    , &\n        & 12.2267_rb ,10.51646_rb, 8.47150_rb    , 6.38873_rb    , &\n        & 4.33536_rb ,0.470610_rb,0.389426_rb    ,0.306461_rb    , &\n        & 0.223537_rb,0.143273_rb, 5.58179e-02_rb, 7.84856e-03_rb /)\n      sfluxrefo(:, 3) = (/ &\n        & 15.6092_rb , 15.3293_rb, 14.6881_rb    , 13.6693_rb    , &\n        & 12.2342_rb ,10.52010_rb, 8.49442_rb    , 6.42138_rb    , &\n        & 4.35865_rb ,0.473349_rb,0.391349_rb    ,0.308861_rb    , &\n        & 0.224666_rb,0.144799_rb, 5.58176e-02_rb, 7.84881e-03_rb /)\n      sfluxrefo(:, 4) = (/ &\n        & 15.5786_rb , 15.3422_rb, 14.6894_rb    , 13.6040_rb    , &\n        & 12.2567_rb ,10.49400_rb, 8.53521_rb    , 6.44427_rb    , &\n        & 4.37208_rb ,0.475709_rb,0.392956_rb    ,0.309737_rb    , &\n        & 0.226274_rb,0.146483_rb, 5.59325e-02_rb, 7.84881e-03_rb /)\n      sfluxrefo(:, 5) = (/ &\n        & 15.5380_rb , 15.3826_rb, 14.6575_rb    , 13.5722_rb    , &\n        & 12.2646_rb ,10.47672_rb, 8.57158_rb    , 6.46343_rb    , &\n        & 4.38259_rb ,0.477647_rb,0.393982_rb    ,0.310686_rb    , &\n        & 0.227620_rb,0.148376_rb, 5.60398e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 6) = (/ &\n        & 15.5124_rb , 15.3986_rb, 14.6240_rb    , 13.5535_rb    , &\n        & 12.2468_rb ,10.48891_rb, 8.60434_rb    , 6.47985_rb    , &\n        & 4.39448_rb ,0.478267_rb,0.395618_rb    ,0.311043_rb    , &\n        & 0.230927_rb,0.148774_rb, 5.61189e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 7) = (/ &\n        & 15.4910_rb , 15.4028_rb, 14.5772_rb    , 13.5507_rb    , &\n        & 12.2122_rb ,10.52735_rb, 8.62650_rb    , 6.49644_rb    , &\n        & 4.41173_rb ,0.478627_rb,0.396433_rb    ,0.314199_rb    , & \n        & 0.233125_rb,0.149052_rb, 5.62309e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 8) = (/ &\n        & 15.4562_rb , 15.3928_rb, 14.5510_rb    , 13.5122_rb    , &\n        & 12.1890_rb , 10.5826_rb, 8.65842_rb    , 6.51558_rb    , &\n        & 4.42747_rb ,0.480669_rb,0.400143_rb    ,0.318144_rb    , &\n        & 0.233937_rb,0.149119_rb, 5.62309e-02_rb, 7.83925e-03_rb /)\n      sfluxrefo(:, 9) = (/ &\n        & 15.0069_rb , 15.1479_rb, 14.7802_rb    , 13.6085_rb    , &\n        & 12.2793_rb , 10.6929_rb, 8.72723_rb    , 6.57114_rb    , &\n        & 4.46330_rb ,0.486724_rb,0.401446_rb    ,0.318879_rb    , &\n        & 0.233959_rb,0.149119_rb, 5.62309e-02_rb, 7.83925e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 6925 cm-1.\n      rayl = 9.41e-09_rb\n\n      strrat = 0.0045321_rb\n\n      layreffr = 8\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.31482e-07_rb,0.64010e-05_rb,0.95017e-05_rb,0.11735e-04_rb,0.13561e-04_rb, &\n        & 0.15077e-04_rb,0.16121e-04_rb,0.16138e-04_rb,0.41687e-06_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.29791e-07_rb,0.68206e-05_rb,0.10260e-04_rb,0.12764e-04_rb,0.14880e-04_rb, &\n        & 0.16665e-04_rb,0.17944e-04_rb,0.18170e-04_rb,0.44246e-06_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.28272e-07_rb,0.72448e-05_rb,0.11083e-04_rb,0.13866e-04_rb,0.16256e-04_rb, &\n        & 0.18323e-04_rb,0.19886e-04_rb,0.20229e-04_rb,0.47472e-06_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.26900e-07_rb,0.76935e-05_rb,0.11934e-04_rb,0.15015e-04_rb,0.17657e-04_rb, &\n        & 0.20038e-04_rb,0.21902e-04_rb,0.22361e-04_rb,0.50770e-06_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.25656e-07_rb,0.81661e-05_rb,0.12769e-04_rb,0.16181e-04_rb,0.19127e-04_rb, &\n        & 0.21755e-04_rb,0.23963e-04_rb,0.24421e-04_rb,0.54205e-06_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.26396e-07_rb,0.52225e-05_rb,0.77221e-05_rb,0.95150e-05_rb,0.11004e-04_rb, &\n        & 0.12195e-04_rb,0.13037e-04_rb,0.12985e-04_rb,0.32097e-06_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.24945e-07_rb,0.55737e-05_rb,0.83612e-05_rb,0.10375e-04_rb,0.12116e-04_rb, &\n        & 0.13569e-04_rb,0.14561e-04_rb,0.14711e-04_rb,0.34579e-06_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.23646e-07_rb,0.59333e-05_rb,0.90531e-05_rb,0.11301e-04_rb,0.13247e-04_rb, &\n        & 0.14956e-04_rb,0.16193e-04_rb,0.16396e-04_rb,0.37200e-06_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.22476e-07_rb,0.63144e-05_rb,0.97732e-05_rb,0.12274e-04_rb,0.14436e-04_rb, &\n        & 0.16377e-04_rb,0.17879e-04_rb,0.18223e-04_rb,0.40051e-06_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.21415e-07_rb,0.67133e-05_rb,0.10471e-04_rb,0.13264e-04_rb,0.15681e-04_rb, &\n        & 0.17843e-04_rb,0.19627e-04_rb,0.19954e-04_rb,0.42929e-06_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.22397e-07_rb,0.41930e-05_rb,0.61559e-05_rb,0.75544e-05_rb,0.86902e-05_rb, &\n        & 0.95896e-05_rb,0.10269e-04_rb,0.10114e-04_rb,0.24148e-06_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.21124e-07_rb,0.44837e-05_rb,0.66786e-05_rb,0.82475e-05_rb,0.96353e-05_rb, &\n        & 0.10742e-04_rb,0.11469e-04_rb,0.11556e-04_rb,0.26304e-06_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.19988e-07_rb,0.47839e-05_rb,0.72499e-05_rb,0.90229e-05_rb,0.10560e-04_rb, &\n        & 0.11900e-04_rb,0.12859e-04_rb,0.12935e-04_rb,0.28618e-06_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.18968e-07_rb,0.51040e-05_rb,0.78586e-05_rb,0.98308e-05_rb,0.11551e-04_rb, &\n        & 0.13094e-04_rb,0.14240e-04_rb,0.14455e-04_rb,0.30983e-06_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.18047e-07_rb,0.54366e-05_rb,0.84462e-05_rb,0.10670e-04_rb,0.12585e-04_rb, &\n        & 0.14313e-04_rb,0.15695e-04_rb,0.15934e-04_rb,0.33255e-06_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.19080e-07_rb,0.33409e-05_rb,0.48738e-05_rb,0.59354e-05_rb,0.67877e-05_rb, &\n        & 0.74900e-05_rb,0.79142e-05_rb,0.77200e-05_rb,0.18466e-06_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.17954e-07_rb,0.35910e-05_rb,0.52960e-05_rb,0.65037e-05_rb,0.75744e-05_rb, &\n        & 0.84082e-05_rb,0.89422e-05_rb,0.89302e-05_rb,0.20292e-06_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.16954e-07_rb,0.38317e-05_rb,0.57536e-05_rb,0.71322e-05_rb,0.83424e-05_rb, &\n        & 0.93788e-05_rb,0.10063e-04_rb,0.10098e-04_rb,0.22173e-06_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.16059e-07_rb,0.40932e-05_rb,0.62586e-05_rb,0.77961e-05_rb,0.91475e-05_rb, &\n        & 0.10347e-04_rb,0.11222e-04_rb,0.11312e-04_rb,0.24005e-06_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.15254e-07_rb,0.43678e-05_rb,0.67525e-05_rb,0.84873e-05_rb,0.99995e-05_rb, &\n        & 0.11353e-04_rb,0.12416e-04_rb,0.12586e-04_rb,0.25939e-06_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.16261e-07_rb,0.26540e-05_rb,0.38541e-05_rb,0.46443e-05_rb,0.52961e-05_rb, &\n        & 0.58054e-05_rb,0.60718e-05_rb,0.58540e-05_rb,0.14274e-06_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.15265e-07_rb,0.28598e-05_rb,0.41831e-05_rb,0.51221e-05_rb,0.59110e-05_rb, &\n        & 0.65207e-05_rb,0.69761e-05_rb,0.68685e-05_rb,0.15725e-06_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.14384e-07_rb,0.30623e-05_rb,0.45528e-05_rb,0.56124e-05_rb,0.65650e-05_rb, &\n        & 0.73436e-05_rb,0.78208e-05_rb,0.78523e-05_rb,0.17271e-06_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.13599e-07_rb,0.32720e-05_rb,0.49622e-05_rb,0.61605e-05_rb,0.72244e-05_rb, &\n        & 0.81582e-05_rb,0.87971e-05_rb,0.88096e-05_rb,0.18766e-06_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.12895e-07_rb,0.34985e-05_rb,0.53833e-05_rb,0.67240e-05_rb,0.79091e-05_rb, &\n        & 0.89688e-05_rb,0.97698e-05_rb,0.98639e-05_rb,0.20375e-06_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.13898e-07_rb,0.20981e-05_rb,0.30384e-05_rb,0.36041e-05_rb,0.41040e-05_rb, &\n        & 0.44334e-05_rb,0.45761e-05_rb,0.43950e-05_rb,0.11025e-06_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.13011e-07_rb,0.22645e-05_rb,0.32890e-05_rb,0.40042e-05_rb,0.45851e-05_rb, &\n        & 0.50473e-05_rb,0.53250e-05_rb,0.51854e-05_rb,0.12227e-06_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.12231e-07_rb,0.24322e-05_rb,0.35842e-05_rb,0.43915e-05_rb,0.51259e-05_rb, &\n        & 0.56903e-05_rb,0.60343e-05_rb,0.60166e-05_rb,0.13506e-06_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.11539e-07_rb,0.26032e-05_rb,0.39107e-05_rb,0.48321e-05_rb,0.56525e-05_rb, &\n        & 0.63625e-05_rb,0.68078e-05_rb,0.68024e-05_rb,0.14719e-06_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.10921e-07_rb,0.27866e-05_rb,0.42578e-05_rb,0.52919e-05_rb,0.62181e-05_rb, &\n        & 0.70362e-05_rb,0.76140e-05_rb,0.76519e-05_rb,0.16052e-06_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.11886e-07_rb,0.16563e-05_rb,0.23860e-05_rb,0.28276e-05_rb,0.31449e-05_rb, &\n        & 0.33771e-05_rb,0.34305e-05_rb,0.32824e-05_rb,0.84943e-07_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.11096e-07_rb,0.17874e-05_rb,0.25861e-05_rb,0.31100e-05_rb,0.35425e-05_rb, &\n        & 0.38737e-05_rb,0.40468e-05_rb,0.38933e-05_rb,0.94734e-07_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.10405e-07_rb,0.19286e-05_rb,0.28166e-05_rb,0.34417e-05_rb,0.39786e-05_rb, &\n        & 0.43804e-05_rb,0.46759e-05_rb,0.45835e-05_rb,0.10531e-06_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.97948e-08_rb,0.20680e-05_rb,0.30741e-05_rb,0.37803e-05_rb,0.44163e-05_rb, &\n        & 0.49420e-05_rb,0.52477e-05_rb,0.52509e-05_rb,0.11517e-06_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.92522e-08_rb,0.22140e-05_rb,0.33558e-05_rb,0.41544e-05_rb,0.48719e-05_rb, &\n        & 0.54968e-05_rb,0.59225e-05_rb,0.59027e-05_rb,0.12618e-06_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.10164e-07_rb,0.13056e-05_rb,0.18690e-05_rb,0.21940e-05_rb,0.24210e-05_rb, &\n        & 0.25504e-05_rb,0.25676e-05_rb,0.24444e-05_rb,0.66021e-07_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.94612e-08_rb,0.14106e-05_rb,0.20398e-05_rb,0.24136e-05_rb,0.27424e-05_rb, &\n        & 0.29578e-05_rb,0.30446e-05_rb,0.29182e-05_rb,0.73985e-07_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.88489e-08_rb,0.15256e-05_rb,0.22123e-05_rb,0.26894e-05_rb,0.30704e-05_rb, &\n        & 0.33808e-05_rb,0.35521e-05_rb,0.34526e-05_rb,0.82666e-07_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.83111e-08_rb,0.16396e-05_rb,0.24159e-05_rb,0.29563e-05_rb,0.34504e-05_rb, &\n        & 0.38196e-05_rb,0.40425e-05_rb,0.40093e-05_rb,0.90940e-07_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.78349e-08_rb,0.17570e-05_rb,0.26398e-05_rb,0.32547e-05_rb,0.38060e-05_rb, &\n        & 0.42813e-05_rb,0.45732e-05_rb,0.45465e-05_rb,0.10022e-06_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.86983e-08_rb,0.10284e-05_rb,0.14734e-05_rb,0.16973e-05_rb,0.18551e-05_rb, &\n        & 0.19223e-05_rb,0.19222e-05_rb,0.18289e-05_rb,0.53460e-07_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.80712e-08_rb,0.11141e-05_rb,0.16016e-05_rb,0.18902e-05_rb,0.21027e-05_rb, &\n        & 0.22504e-05_rb,0.22800e-05_rb,0.21749e-05_rb,0.60180e-07_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.75284e-08_rb,0.12033e-05_rb,0.17376e-05_rb,0.20849e-05_rb,0.23719e-05_rb, &\n        & 0.25906e-05_rb,0.26977e-05_rb,0.25910e-05_rb,0.66886e-07_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.70541e-08_rb,0.12979e-05_rb,0.18959e-05_rb,0.23090e-05_rb,0.26695e-05_rb, &\n        & 0.29367e-05_rb,0.31239e-05_rb,0.30574e-05_rb,0.73978e-07_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.66359e-08_rb,0.13937e-05_rb,0.20720e-05_rb,0.25448e-05_rb,0.29680e-05_rb, &\n        & 0.33208e-05_rb,0.35191e-05_rb,0.35097e-05_rb,0.81724e-07_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.74006e-08_rb,0.81705e-06_rb,0.11610e-05_rb,0.13325e-05_rb,0.14305e-05_rb, &\n        & 0.14668e-05_rb,0.14642e-05_rb,0.13765e-05_rb,0.44724e-07_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.68477e-08_rb,0.88306e-06_rb,0.12640e-05_rb,0.14768e-05_rb,0.16329e-05_rb, &\n        & 0.17209e-05_rb,0.17306e-05_rb,0.16441e-05_rb,0.50688e-07_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.63717e-08_rb,0.95522e-06_rb,0.13783e-05_rb,0.16303e-05_rb,0.18546e-05_rb, &\n        & 0.19963e-05_rb,0.20570e-05_rb,0.19678e-05_rb,0.56052e-07_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.59576e-08_rb,0.10331e-05_rb,0.14975e-05_rb,0.18180e-05_rb,0.20770e-05_rb, &\n        & 0.22813e-05_rb,0.24021e-05_rb,0.23350e-05_rb,0.62412e-07_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.55940e-08_rb,0.11102e-05_rb,0.16370e-05_rb,0.19999e-05_rb,0.23349e-05_rb, &\n        & 0.25900e-05_rb,0.27328e-05_rb,0.27057e-05_rb,0.69466e-07_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.60617e-08_rb,0.67167e-06_rb,0.95594e-06_rb,0.10939e-05_rb,0.11767e-05_rb, &\n        & 0.12059e-05_rb,0.12032e-05_rb,0.11314e-05_rb,0.37093e-07_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.56087e-08_rb,0.72704e-06_rb,0.10406e-05_rb,0.12137e-05_rb,0.13434e-05_rb, &\n        & 0.14171e-05_rb,0.14246e-05_rb,0.13521e-05_rb,0.41918e-07_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.52187e-08_rb,0.78681e-06_rb,0.11338e-05_rb,0.13419e-05_rb,0.15254e-05_rb, &\n        & 0.16426e-05_rb,0.16950e-05_rb,0.16203e-05_rb,0.46339e-07_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.48793e-08_rb,0.85013e-06_rb,0.12327e-05_rb,0.14971e-05_rb,0.17109e-05_rb, &\n        & 0.18776e-05_rb,0.19784e-05_rb,0.19240e-05_rb,0.51725e-07_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.45815e-08_rb,0.91420e-06_rb,0.13427e-05_rb,0.16458e-05_rb,0.19221e-05_rb, &\n        & 0.21323e-05_rb,0.22490e-05_rb,0.22263e-05_rb,0.57555e-07_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.49629e-08_rb,0.55223e-06_rb,0.78677e-06_rb,0.89789e-06_rb,0.96778e-06_rb, &\n        & 0.99148e-06_rb,0.98883e-06_rb,0.93028e-06_rb,0.30610e-07_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.45920e-08_rb,0.59832e-06_rb,0.85632e-06_rb,0.99730e-06_rb,0.11052e-05_rb, &\n        & 0.11665e-05_rb,0.11729e-05_rb,0.11125e-05_rb,0.34553e-07_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.42727e-08_rb,0.64760e-06_rb,0.93315e-06_rb,0.11041e-05_rb,0.12552e-05_rb, &\n        & 0.13521e-05_rb,0.13956e-05_rb,0.13333e-05_rb,0.38176e-07_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.39949e-08_rb,0.69926e-06_rb,0.10110e-05_rb,0.12304e-05_rb,0.14083e-05_rb, &\n        & 0.15442e-05_rb,0.16283e-05_rb,0.15837e-05_rb,0.42648e-07_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.37510e-08_rb,0.75239e-06_rb,0.11006e-05_rb,0.13535e-05_rb,0.15785e-05_rb, &\n        & 0.17547e-05_rb,0.18501e-05_rb,0.18298e-05_rb,0.47452e-07_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.40633e-08_rb,0.45378e-06_rb,0.64719e-06_rb,0.73637e-06_rb,0.79571e-06_rb, &\n        & 0.81503e-06_rb,0.81264e-06_rb,0.76488e-06_rb,0.25080e-07_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.37596e-08_rb,0.49208e-06_rb,0.70430e-06_rb,0.81894e-06_rb,0.90856e-06_rb, &\n        & 0.95919e-06_rb,0.96435e-06_rb,0.91411e-06_rb,0.28293e-07_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.34982e-08_rb,0.53259e-06_rb,0.76370e-06_rb,0.90761e-06_rb,0.10316e-05_rb, &\n        & 0.11116e-05_rb,0.11472e-05_rb,0.10956e-05_rb,0.31267e-07_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.32707e-08_rb,0.57488e-06_rb,0.82833e-06_rb,0.10096e-05_rb,0.11577e-05_rb, &\n        & 0.12688e-05_rb,0.13388e-05_rb,0.13015e-05_rb,0.34930e-07_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.30710e-08_rb,0.61832e-06_rb,0.90250e-06_rb,0.11120e-05_rb,0.12962e-05_rb, &\n        & 0.14424e-05_rb,0.15206e-05_rb,0.15032e-05_rb,0.38861e-07_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.14215e-06_rb,0.65726e-04_rb,0.11327e-03_rb,0.15324e-03_rb,0.18473e-03_rb, &\n        & 0.20658e-03_rb,0.21603e-03_rb,0.20617e-03_rb,0.13252e-04_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.13452e-06_rb,0.69521e-04_rb,0.12059e-03_rb,0.16342e-03_rb,0.19613e-03_rb, &\n        & 0.21987e-03_rb,0.22946e-03_rb,0.21879e-03_rb,0.14816e-04_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.12766e-06_rb,0.73313e-04_rb,0.12786e-03_rb,0.17303e-03_rb,0.20754e-03_rb, &\n        & 0.23326e-03_rb,0.24324e-03_rb,0.22956e-03_rb,0.16536e-04_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.12147e-06_rb,0.77087e-04_rb,0.13521e-03_rb,0.18263e-03_rb,0.21904e-03_rb, &\n        & 0.24614e-03_rb,0.25637e-03_rb,0.24060e-03_rb,0.18092e-04_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.11584e-06_rb,0.80946e-04_rb,0.14233e-03_rb,0.19230e-03_rb,0.23047e-03_rb, &\n        & 0.25869e-03_rb,0.26904e-03_rb,0.25139e-03_rb,0.19768e-04_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.11918e-06_rb,0.55167e-04_rb,0.94557e-04_rb,0.12760e-03_rb,0.15322e-03_rb, &\n        & 0.17148e-03_rb,0.17894e-03_rb,0.17049e-03_rb,0.10710e-04_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.11264e-06_rb,0.58581e-04_rb,0.10113e-03_rb,0.13648e-03_rb,0.16335e-03_rb, &\n        & 0.18288e-03_rb,0.19059e-03_rb,0.18131e-03_rb,0.12067e-04_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.10678e-06_rb,0.61935e-04_rb,0.10756e-03_rb,0.14497e-03_rb,0.17335e-03_rb, &\n        & 0.19437e-03_rb,0.20245e-03_rb,0.19070e-03_rb,0.13553e-04_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.10149e-06_rb,0.65261e-04_rb,0.11404e-03_rb,0.15331e-03_rb,0.18323e-03_rb, &\n        & 0.20559e-03_rb,0.21385e-03_rb,0.20024e-03_rb,0.14801e-04_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.96699e-07_rb,0.68698e-04_rb,0.12038e-03_rb,0.16167e-03_rb,0.19308e-03_rb, &\n        & 0.21635e-03_rb,0.22479e-03_rb,0.20964e-03_rb,0.16245e-04_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.10112e-06_rb,0.45399e-04_rb,0.77226e-04_rb,0.10397e-03_rb,0.12462e-03_rb, &\n        & 0.13956e-03_rb,0.14531e-03_rb,0.13816e-03_rb,0.83635e-05_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.95381e-07_rb,0.48357e-04_rb,0.82986e-04_rb,0.11173e-03_rb,0.13338e-03_rb, &\n        & 0.14898e-03_rb,0.15534e-03_rb,0.14786e-03_rb,0.94915e-05_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.90257e-07_rb,0.51355e-04_rb,0.88727e-04_rb,0.11920e-03_rb,0.14215e-03_rb, &\n        & 0.15859e-03_rb,0.16541e-03_rb,0.15622e-03_rb,0.10683e-04_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.85653e-07_rb,0.54322e-04_rb,0.94369e-04_rb,0.12646e-03_rb,0.15072e-03_rb, &\n        & 0.16838e-03_rb,0.17536e-03_rb,0.16433e-03_rb,0.11764e-04_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.81492e-07_rb,0.57300e-04_rb,0.99940e-04_rb,0.13355e-03_rb,0.15929e-03_rb, &\n        & 0.17800e-03_rb,0.18496e-03_rb,0.17234e-03_rb,0.12979e-04_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.86132e-07_rb,0.36910e-04_rb,0.62346e-04_rb,0.83628e-04_rb,0.10025e-03_rb, &\n        & 0.11224e-03_rb,0.11706e-03_rb,0.11109e-03_rb,0.64715e-05_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.81062e-07_rb,0.39490e-04_rb,0.67274e-04_rb,0.90384e-04_rb,0.10785e-03_rb, &\n        & 0.12026e-03_rb,0.12543e-03_rb,0.11944e-03_rb,0.73991e-05_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.76553e-07_rb,0.42055e-04_rb,0.72269e-04_rb,0.96956e-04_rb,0.11528e-03_rb, &\n        & 0.12833e-03_rb,0.13396e-03_rb,0.12697e-03_rb,0.83899e-05_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.72516e-07_rb,0.44696e-04_rb,0.77235e-04_rb,0.10321e-03_rb,0.12276e-03_rb, &\n        & 0.13674e-03_rb,0.14260e-03_rb,0.13384e-03_rb,0.93052e-05_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.68881e-07_rb,0.47273e-04_rb,0.82118e-04_rb,0.10935e-03_rb,0.13016e-03_rb, &\n        & 0.14506e-03_rb,0.15080e-03_rb,0.14062e-03_rb,0.10314e-04_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.73401e-07_rb,0.29772e-04_rb,0.49957e-04_rb,0.66720e-04_rb,0.80104e-04_rb, &\n        & 0.89761e-04_rb,0.93853e-04_rb,0.88953e-04_rb,0.50171e-05_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.68916e-07_rb,0.31976e-04_rb,0.54217e-04_rb,0.72570e-04_rb,0.86671e-04_rb, &\n        & 0.96653e-04_rb,0.10073e-03_rb,0.95875e-04_rb,0.57746e-05_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.64945e-07_rb,0.34219e-04_rb,0.58417e-04_rb,0.78327e-04_rb,0.92950e-04_rb, &\n        & 0.10358e-03_rb,0.10803e-03_rb,0.10274e-03_rb,0.66197e-05_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.61405e-07_rb,0.36457e-04_rb,0.62694e-04_rb,0.83756e-04_rb,0.99356e-04_rb, &\n        & 0.11058e-03_rb,0.11542e-03_rb,0.10858e-03_rb,0.73729e-05_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.58229e-07_rb,0.38713e-04_rb,0.67059e-04_rb,0.89033e-04_rb,0.10573e-03_rb, &\n        & 0.11764e-03_rb,0.12243e-03_rb,0.11440e-03_rb,0.82149e-05_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.62723e-07_rb,0.23750e-04_rb,0.39643e-04_rb,0.52796e-04_rb,0.63478e-04_rb, &\n        & 0.71151e-04_rb,0.74640e-04_rb,0.70193e-04_rb,0.38899e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.58735e-07_rb,0.25657e-04_rb,0.43274e-04_rb,0.57719e-04_rb,0.69124e-04_rb, &\n        & 0.77375e-04_rb,0.80498e-04_rb,0.76543e-04_rb,0.44833e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.55222e-07_rb,0.27563e-04_rb,0.46866e-04_rb,0.62699e-04_rb,0.74494e-04_rb, &\n        & 0.82946e-04_rb,0.86653e-04_rb,0.82509e-04_rb,0.51635e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.52103e-07_rb,0.29528e-04_rb,0.50470e-04_rb,0.67473e-04_rb,0.79899e-04_rb, &\n        & 0.89004e-04_rb,0.92786e-04_rb,0.87628e-04_rb,0.58104e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.49317e-07_rb,0.31444e-04_rb,0.54175e-04_rb,0.72000e-04_rb,0.85322e-04_rb, &\n        & 0.94885e-04_rb,0.98826e-04_rb,0.92648e-04_rb,0.64997e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.53634e-07_rb,0.18862e-04_rb,0.31325e-04_rb,0.41575e-04_rb,0.50141e-04_rb, &\n        & 0.56190e-04_rb,0.58882e-04_rb,0.55026e-04_rb,0.29795e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.50084e-07_rb,0.20474e-04_rb,0.34342e-04_rb,0.45732e-04_rb,0.54884e-04_rb, &\n        & 0.61494e-04_rb,0.64187e-04_rb,0.60857e-04_rb,0.34589e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.46973e-07_rb,0.22063e-04_rb,0.37411e-04_rb,0.49893e-04_rb,0.59475e-04_rb, &\n        & 0.66279e-04_rb,0.69129e-04_rb,0.65758e-04_rb,0.39983e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.44224e-07_rb,0.23764e-04_rb,0.40481e-04_rb,0.54107e-04_rb,0.64026e-04_rb, &\n        & 0.71350e-04_rb,0.74328e-04_rb,0.70513e-04_rb,0.45526e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.41777e-07_rb,0.25434e-04_rb,0.43555e-04_rb,0.57958e-04_rb,0.68599e-04_rb, &\n        & 0.76304e-04_rb,0.79456e-04_rb,0.74649e-04_rb,0.51046e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.45857e-07_rb,0.14945e-04_rb,0.24594e-04_rb,0.32696e-04_rb,0.39571e-04_rb, &\n        & 0.44348e-04_rb,0.46090e-04_rb,0.43034e-04_rb,0.22833e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.42697e-07_rb,0.16265e-04_rb,0.27198e-04_rb,0.36108e-04_rb,0.43381e-04_rb, &\n        & 0.48642e-04_rb,0.50943e-04_rb,0.47848e-04_rb,0.26669e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.39944e-07_rb,0.17616e-04_rb,0.29775e-04_rb,0.39577e-04_rb,0.47366e-04_rb, &\n        & 0.52791e-04_rb,0.54992e-04_rb,0.52236e-04_rb,0.30932e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.37522e-07_rb,0.19042e-04_rb,0.32351e-04_rb,0.43126e-04_rb,0.51153e-04_rb, &\n        & 0.56987e-04_rb,0.59316e-04_rb,0.56438e-04_rb,0.35666e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.35376e-07_rb,0.20476e-04_rb,0.34946e-04_rb,0.46521e-04_rb,0.55009e-04_rb, &\n        & 0.61221e-04_rb,0.63714e-04_rb,0.60035e-04_rb,0.40037e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.39233e-07_rb,0.11817e-04_rb,0.19254e-04_rb,0.25596e-04_rb,0.30843e-04_rb, &\n        & 0.34574e-04_rb,0.36035e-04_rb,0.33425e-04_rb,0.17673e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.36418e-07_rb,0.12914e-04_rb,0.21404e-04_rb,0.28372e-04_rb,0.34161e-04_rb, &\n        & 0.38321e-04_rb,0.40053e-04_rb,0.37435e-04_rb,0.20751e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.33979e-07_rb,0.14026e-04_rb,0.23574e-04_rb,0.31316e-04_rb,0.37514e-04_rb, &\n        & 0.41977e-04_rb,0.43747e-04_rb,0.41346e-04_rb,0.24151e-05_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.31844e-07_rb,0.15205e-04_rb,0.25770e-04_rb,0.34231e-04_rb,0.40723e-04_rb, &\n        & 0.45315e-04_rb,0.47202e-04_rb,0.44869e-04_rb,0.28151e-05_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.29961e-07_rb,0.16420e-04_rb,0.27955e-04_rb,0.37187e-04_rb,0.43941e-04_rb, &\n        & 0.48873e-04_rb,0.50856e-04_rb,0.48170e-04_rb,0.31733e-05_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.33373e-07_rb,0.93505e-05_rb,0.15216e-04_rb,0.20198e-04_rb,0.24244e-04_rb, &\n        & 0.27077e-04_rb,0.28186e-04_rb,0.25996e-04_rb,0.13941e-05_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.30893e-07_rb,0.10284e-04_rb,0.16902e-04_rb,0.22468e-04_rb,0.27072e-04_rb, &\n        & 0.30382e-04_rb,0.31603e-04_rb,0.29456e-04_rb,0.16352e-05_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.28754e-07_rb,0.11207e-04_rb,0.18715e-04_rb,0.24849e-04_rb,0.29815e-04_rb, &\n        & 0.33379e-04_rb,0.34901e-04_rb,0.32836e-04_rb,0.19188e-05_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.26892e-07_rb,0.12172e-04_rb,0.20578e-04_rb,0.27269e-04_rb,0.32536e-04_rb, &\n        & 0.36182e-04_rb,0.37703e-04_rb,0.35750e-04_rb,0.22467e-05_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.25255e-07_rb,0.13195e-04_rb,0.22422e-04_rb,0.29781e-04_rb,0.35220e-04_rb, &\n        & 0.39157e-04_rb,0.40719e-04_rb,0.38729e-04_rb,0.25535e-05_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.27335e-07_rb,0.77491e-05_rb,0.12607e-04_rb,0.16695e-04_rb,0.20093e-04_rb, &\n        & 0.22431e-04_rb,0.23345e-04_rb,0.21522e-04_rb,0.11569e-05_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.25303e-07_rb,0.85322e-05_rb,0.14022e-04_rb,0.18593e-04_rb,0.22378e-04_rb, &\n        & 0.25133e-04_rb,0.26161e-04_rb,0.24379e-04_rb,0.13709e-05_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.23551e-07_rb,0.92912e-05_rb,0.15536e-04_rb,0.20618e-04_rb,0.24722e-04_rb, &\n        & 0.27647e-04_rb,0.28874e-04_rb,0.27196e-04_rb,0.16099e-05_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.22025e-07_rb,0.10117e-04_rb,0.17115e-04_rb,0.22645e-04_rb,0.26974e-04_rb, &\n        & 0.29947e-04_rb,0.31210e-04_rb,0.29581e-04_rb,0.18845e-05_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.20684e-07_rb,0.10977e-04_rb,0.18645e-04_rb,0.24734e-04_rb,0.29203e-04_rb, &\n        & 0.32453e-04_rb,0.33733e-04_rb,0.32056e-04_rb,0.21326e-05_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.22380e-07_rb,0.64144e-05_rb,0.10436e-04_rb,0.13802e-04_rb,0.16622e-04_rb, &\n        & 0.18557e-04_rb,0.19314e-04_rb,0.17793e-04_rb,0.95906e-06_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.20716e-07_rb,0.70603e-05_rb,0.11625e-04_rb,0.15385e-04_rb,0.18503e-04_rb, &\n        & 0.20776e-04_rb,0.21630e-04_rb,0.20152e-04_rb,0.11363e-05_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.19282e-07_rb,0.76960e-05_rb,0.12886e-04_rb,0.17087e-04_rb,0.20475e-04_rb, &\n        & 0.22867e-04_rb,0.23856e-04_rb,0.22506e-04_rb,0.13400e-05_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.18032e-07_rb,0.83983e-05_rb,0.14206e-04_rb,0.18783e-04_rb,0.22334e-04_rb, &\n        & 0.24764e-04_rb,0.25815e-04_rb,0.24461e-04_rb,0.15637e-05_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.16934e-07_rb,0.91186e-05_rb,0.15491e-04_rb,0.20513e-04_rb,0.24201e-04_rb, &\n        & 0.26864e-04_rb,0.27917e-04_rb,0.26491e-04_rb,0.17707e-05_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.18323e-07_rb,0.53022e-05_rb,0.86273e-05_rb,0.11385e-04_rb,0.13729e-04_rb, &\n        & 0.15318e-04_rb,0.15952e-04_rb,0.14693e-04_rb,0.78927e-06_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.16961e-07_rb,0.58316e-05_rb,0.96204e-05_rb,0.12717e-04_rb,0.15275e-04_rb, &\n        & 0.17141e-04_rb,0.17863e-04_rb,0.16639e-04_rb,0.93659e-06_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.15787e-07_rb,0.63710e-05_rb,0.10675e-04_rb,0.14140e-04_rb,0.16925e-04_rb, &\n        & 0.18881e-04_rb,0.19675e-04_rb,0.18564e-04_rb,0.11050e-05_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.14764e-07_rb,0.69607e-05_rb,0.11779e-04_rb,0.15554e-04_rb,0.18475e-04_rb, &\n        & 0.20461e-04_rb,0.21320e-04_rb,0.20207e-04_rb,0.12868e-05_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.13865e-07_rb,0.75611e-05_rb,0.12843e-04_rb,0.16991e-04_rb,0.20029e-04_rb, &\n        & 0.22208e-04_rb,0.23079e-04_rb,0.21838e-04_rb,0.14565e-05_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.55948e-06_rb,0.43472e-03_rb,0.65689e-03_rb,0.80237e-03_rb,0.90326e-03_rb, &\n        & 0.95995e-03_rb,0.94242e-03_rb,0.81801e-03_rb,0.18380e-03_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.53175e-06_rb,0.45395e-03_rb,0.68779e-03_rb,0.84040e-03_rb,0.94598e-03_rb, &\n        & 0.10011e-02_rb,0.98481e-03_rb,0.85748e-03_rb,0.19567e-03_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.50648e-06_rb,0.46835e-03_rb,0.71403e-03_rb,0.87684e-03_rb,0.98520e-03_rb, &\n        & 0.10393e-02_rb,0.10233e-02_rb,0.89729e-03_rb,0.20725e-03_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.48330e-06_rb,0.48143e-03_rb,0.73979e-03_rb,0.91063e-03_rb,0.10212e-02_rb, &\n        & 0.10762e-02_rb,0.10600e-02_rb,0.93507e-03_rb,0.21814e-03_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.46195e-06_rb,0.49413e-03_rb,0.76470e-03_rb,0.94208e-03_rb,0.10547e-02_rb, &\n        & 0.11099e-02_rb,0.10960e-02_rb,0.97164e-03_rb,0.23056e-03_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.46813e-06_rb,0.36711e-03_rb,0.55743e-03_rb,0.68070e-03_rb,0.76614e-03_rb, &\n        & 0.81442e-03_rb,0.79940e-03_rb,0.69691e-03_rb,0.14988e-03_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.44450e-06_rb,0.38413e-03_rb,0.58502e-03_rb,0.71506e-03_rb,0.80409e-03_rb, &\n        & 0.85191e-03_rb,0.83722e-03_rb,0.73231e-03_rb,0.15985e-03_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.42301e-06_rb,0.39744e-03_rb,0.60852e-03_rb,0.74741e-03_rb,0.83920e-03_rb, &\n        & 0.88588e-03_rb,0.87206e-03_rb,0.76677e-03_rb,0.16968e-03_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.40335e-06_rb,0.40927e-03_rb,0.63200e-03_rb,0.77835e-03_rb,0.87190e-03_rb, &\n        & 0.91843e-03_rb,0.90467e-03_rb,0.79859e-03_rb,0.17948e-03_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.38529e-06_rb,0.42034e-03_rb,0.65353e-03_rb,0.80758e-03_rb,0.90248e-03_rb, &\n        & 0.94929e-03_rb,0.93715e-03_rb,0.83136e-03_rb,0.19018e-03_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.39591e-06_rb,0.30459e-03_rb,0.46364e-03_rb,0.56590e-03_rb,0.63680e-03_rb, &\n        & 0.67681e-03_rb,0.66517e-03_rb,0.58106e-03_rb,0.11936e-03_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.37538e-06_rb,0.32036e-03_rb,0.48874e-03_rb,0.59649e-03_rb,0.67170e-03_rb, &\n        & 0.71161e-03_rb,0.69943e-03_rb,0.61159e-03_rb,0.12804e-03_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.35675e-06_rb,0.33321e-03_rb,0.50999e-03_rb,0.62591e-03_rb,0.70319e-03_rb, &\n        & 0.74333e-03_rb,0.73015e-03_rb,0.64070e-03_rb,0.13642e-03_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.33978e-06_rb,0.34382e-03_rb,0.53102e-03_rb,0.65391e-03_rb,0.73278e-03_rb, &\n        & 0.77303e-03_rb,0.75990e-03_rb,0.66979e-03_rb,0.14477e-03_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.32422e-06_rb,0.35416e-03_rb,0.55071e-03_rb,0.68042e-03_rb,0.76041e-03_rb, &\n        & 0.80118e-03_rb,0.78914e-03_rb,0.69923e-03_rb,0.15365e-03_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.33598e-06_rb,0.24970e-03_rb,0.38053e-03_rb,0.46464e-03_rb,0.52234e-03_rb, &\n        & 0.55488e-03_rb,0.54675e-03_rb,0.47794e-03_rb,0.95275e-04_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.31800e-06_rb,0.26415e-03_rb,0.40313e-03_rb,0.49210e-03_rb,0.55359e-03_rb, &\n        & 0.58661e-03_rb,0.57694e-03_rb,0.50393e-03_rb,0.10292e-03_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.30177e-06_rb,0.27638e-03_rb,0.42268e-03_rb,0.51823e-03_rb,0.58348e-03_rb, &\n        & 0.61591e-03_rb,0.60497e-03_rb,0.52947e-03_rb,0.11016e-03_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.28703e-06_rb,0.28612e-03_rb,0.44165e-03_rb,0.54326e-03_rb,0.61010e-03_rb, &\n        & 0.64299e-03_rb,0.63151e-03_rb,0.55558e-03_rb,0.11708e-03_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.27356e-06_rb,0.29550e-03_rb,0.45903e-03_rb,0.56703e-03_rb,0.63522e-03_rb, &\n        & 0.66839e-03_rb,0.65812e-03_rb,0.58142e-03_rb,0.12444e-03_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.28517e-06_rb,0.20305e-03_rb,0.30940e-03_rb,0.37854e-03_rb,0.42516e-03_rb, &\n        & 0.45167e-03_rb,0.44617e-03_rb,0.39006e-03_rb,0.76394e-04_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.26943e-06_rb,0.21631e-03_rb,0.32942e-03_rb,0.40279e-03_rb,0.45281e-03_rb, &\n        & 0.47959e-03_rb,0.47274e-03_rb,0.41219e-03_rb,0.83093e-04_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.25526e-06_rb,0.22760e-03_rb,0.34736e-03_rb,0.42603e-03_rb,0.47928e-03_rb, &\n        & 0.50573e-03_rb,0.49753e-03_rb,0.43423e-03_rb,0.89137e-04_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.24245e-06_rb,0.23661e-03_rb,0.36423e-03_rb,0.44832e-03_rb,0.50373e-03_rb, &\n        & 0.53021e-03_rb,0.52092e-03_rb,0.45715e-03_rb,0.95026e-04_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.23079e-06_rb,0.24490e-03_rb,0.37979e-03_rb,0.46958e-03_rb,0.52671e-03_rb, &\n        & 0.55360e-03_rb,0.54422e-03_rb,0.47982e-03_rb,0.10100e-03_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.24258e-06_rb,0.16374e-03_rb,0.24889e-03_rb,0.30526e-03_rb,0.34256e-03_rb, &\n        & 0.36437e-03_rb,0.36054e-03_rb,0.31643e-03_rb,0.60983e-04_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.22873e-06_rb,0.17557e-03_rb,0.26674e-03_rb,0.32662e-03_rb,0.36698e-03_rb, &\n        & 0.38862e-03_rb,0.38395e-03_rb,0.33481e-03_rb,0.66717e-04_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.21632e-06_rb,0.18596e-03_rb,0.28315e-03_rb,0.34710e-03_rb,0.39032e-03_rb, &\n        & 0.41186e-03_rb,0.40597e-03_rb,0.35347e-03_rb,0.71805e-04_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.20515e-06_rb,0.19412e-03_rb,0.29825e-03_rb,0.36672e-03_rb,0.41223e-03_rb, &\n        & 0.43370e-03_rb,0.42654e-03_rb,0.37308e-03_rb,0.76950e-04_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.19500e-06_rb,0.20163e-03_rb,0.31177e-03_rb,0.38573e-03_rb,0.43298e-03_rb, &\n        & 0.45474e-03_rb,0.44659e-03_rb,0.39273e-03_rb,0.81854e-04_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.20644e-06_rb,0.13088e-03_rb,0.19883e-03_rb,0.24453e-03_rb,0.27379e-03_rb, &\n        & 0.29133e-03_rb,0.28972e-03_rb,0.25527e-03_rb,0.48483e-04_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.19422e-06_rb,0.14123e-03_rb,0.21464e-03_rb,0.26307e-03_rb,0.29520e-03_rb, &\n        & 0.31262e-03_rb,0.30976e-03_rb,0.27057e-03_rb,0.53189e-04_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.18334e-06_rb,0.15056e-03_rb,0.22945e-03_rb,0.28102e-03_rb,0.31570e-03_rb, &\n        & 0.33336e-03_rb,0.32921e-03_rb,0.28657e-03_rb,0.57664e-04_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.17359e-06_rb,0.15845e-03_rb,0.24254e-03_rb,0.29812e-03_rb,0.33533e-03_rb, &\n        & 0.35273e-03_rb,0.34737e-03_rb,0.30290e-03_rb,0.62080e-04_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.16476e-06_rb,0.16515e-03_rb,0.25472e-03_rb,0.31492e-03_rb,0.35368e-03_rb, &\n        & 0.37134e-03_rb,0.36466e-03_rb,0.31971e-03_rb,0.66283e-04_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.17564e-06_rb,0.10377e-03_rb,0.15799e-03_rb,0.19443e-03_rb,0.21775e-03_rb, &\n        & 0.23221e-03_rb,0.23178e-03_rb,0.20518e-03_rb,0.38613e-04_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.16486e-06_rb,0.11291e-03_rb,0.17177e-03_rb,0.21060e-03_rb,0.23605e-03_rb, &\n        & 0.25023e-03_rb,0.24860e-03_rb,0.21840e-03_rb,0.42574e-04_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.15532e-06_rb,0.12160e-03_rb,0.18472e-03_rb,0.22613e-03_rb,0.25383e-03_rb, &\n        & 0.26813e-03_rb,0.26569e-03_rb,0.23149e-03_rb,0.46438e-04_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.14679e-06_rb,0.12871e-03_rb,0.19629e-03_rb,0.24117e-03_rb,0.27101e-03_rb, &\n        & 0.28546e-03_rb,0.28148e-03_rb,0.24511e-03_rb,0.50132e-04_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.13913e-06_rb,0.13470e-03_rb,0.20711e-03_rb,0.25583e-03_rb,0.28735e-03_rb, &\n        & 0.30171e-03_rb,0.29653e-03_rb,0.25931e-03_rb,0.53892e-04_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.14950e-06_rb,0.81941e-04_rb,0.12473e-03_rb,0.15363e-03_rb,0.17257e-03_rb, &\n        & 0.18409e-03_rb,0.18424e-03_rb,0.16439e-03_rb,0.30772e-04_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.13998e-06_rb,0.89702e-04_rb,0.13655e-03_rb,0.16763e-03_rb,0.18779e-03_rb, &\n        & 0.19919e-03_rb,0.19877e-03_rb,0.17581e-03_rb,0.34022e-04_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.13160e-06_rb,0.97263e-04_rb,0.14776e-03_rb,0.18089e-03_rb,0.20292e-03_rb, &\n        & 0.21451e-03_rb,0.21317e-03_rb,0.18640e-03_rb,0.37381e-04_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.12415e-06_rb,0.10389e-03_rb,0.15817e-03_rb,0.19404e-03_rb,0.21794e-03_rb, &\n        & 0.22980e-03_rb,0.22715e-03_rb,0.19784e-03_rb,0.40457e-04_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.11749e-06_rb,0.10934e-03_rb,0.16768e-03_rb,0.20680e-03_rb,0.23234e-03_rb, &\n        & 0.24414e-03_rb,0.24026e-03_rb,0.20959e-03_rb,0.43586e-04_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.12658e-06_rb,0.64763e-04_rb,0.98690e-04_rb,0.12170e-03_rb,0.13709e-03_rb, &\n        & 0.14644e-03_rb,0.14709e-03_rb,0.13215e-03_rb,0.24737e-04_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.11826e-06_rb,0.71405e-04_rb,0.10875e-03_rb,0.13368e-03_rb,0.14978e-03_rb, &\n        & 0.15901e-03_rb,0.15937e-03_rb,0.14153e-03_rb,0.27487e-04_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.11097e-06_rb,0.77857e-04_rb,0.11842e-03_rb,0.14510e-03_rb,0.16261e-03_rb, &\n        & 0.17204e-03_rb,0.17129e-03_rb,0.15041e-03_rb,0.30250e-04_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.10451e-06_rb,0.83764e-04_rb,0.12762e-03_rb,0.15625e-03_rb,0.17544e-03_rb, &\n        & 0.18516e-03_rb,0.18345e-03_rb,0.16010e-03_rb,0.32891e-04_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.98767e-07_rb,0.88833e-04_rb,0.13595e-03_rb,0.16723e-03_rb,0.18798e-03_rb, &\n        & 0.19766e-03_rb,0.19477e-03_rb,0.16979e-03_rb,0.35547e-04_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.10368e-06_rb,0.53714e-04_rb,0.81748e-04_rb,0.10085e-03_rb,0.11349e-03_rb, &\n        & 0.12126e-03_rb,0.12180e-03_rb,0.10950e-03_rb,0.20787e-04_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.96854e-07_rb,0.59175e-04_rb,0.90131e-04_rb,0.11085e-03_rb,0.12425e-03_rb, &\n        & 0.13166e-03_rb,0.13207e-03_rb,0.11733e-03_rb,0.23028e-04_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.90882e-07_rb,0.64593e-04_rb,0.98275e-04_rb,0.12041e-03_rb,0.13497e-03_rb, &\n        & 0.14273e-03_rb,0.14215e-03_rb,0.12479e-03_rb,0.25362e-04_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.85602e-07_rb,0.69545e-04_rb,0.10592e-03_rb,0.12982e-03_rb,0.14583e-03_rb, &\n        & 0.15388e-03_rb,0.15228e-03_rb,0.13297e-03_rb,0.27585e-04_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.80889e-07_rb,0.73731e-04_rb,0.11290e-03_rb,0.13914e-03_rb,0.15637e-03_rb, &\n        & 0.16431e-03_rb,0.16189e-03_rb,0.14116e-03_rb,0.29828e-04_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.84886e-07_rb,0.44418e-04_rb,0.67641e-04_rb,0.83490e-04_rb,0.93906e-04_rb, &\n        & 0.10034e-03_rb,0.10075e-03_rb,0.90614e-04_rb,0.17350e-04_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.79297e-07_rb,0.48981e-04_rb,0.74656e-04_rb,0.91821e-04_rb,0.10299e-03_rb, &\n        & 0.10891e-03_rb,0.10933e-03_rb,0.97221e-04_rb,0.19237e-04_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.74408e-07_rb,0.53553e-04_rb,0.81503e-04_rb,0.99872e-04_rb,0.11196e-03_rb, &\n        & 0.11832e-03_rb,0.11782e-03_rb,0.10341e-03_rb,0.21189e-04_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.70085e-07_rb,0.57698e-04_rb,0.87887e-04_rb,0.10781e-03_rb,0.12107e-03_rb, &\n        & 0.12775e-03_rb,0.12624e-03_rb,0.11034e-03_rb,0.23038e-04_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.66226e-07_rb,0.61177e-04_rb,0.93694e-04_rb,0.11567e-03_rb,0.12995e-03_rb, &\n        & 0.13645e-03_rb,0.13436e-03_rb,0.11726e-03_rb,0.24913e-04_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.69499e-07_rb,0.36716e-04_rb,0.55902e-04_rb,0.69067e-04_rb,0.77635e-04_rb, &\n        & 0.82934e-04_rb,0.83302e-04_rb,0.74905e-04_rb,0.14419e-04_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.64923e-07_rb,0.40511e-04_rb,0.61779e-04_rb,0.75984e-04_rb,0.85239e-04_rb, &\n        & 0.90090e-04_rb,0.90456e-04_rb,0.80264e-04_rb,0.15996e-04_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.60920e-07_rb,0.44356e-04_rb,0.67533e-04_rb,0.82746e-04_rb,0.92816e-04_rb, &\n        & 0.98017e-04_rb,0.97590e-04_rb,0.85621e-04_rb,0.17623e-04_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.57381e-07_rb,0.47826e-04_rb,0.72874e-04_rb,0.89443e-04_rb,0.10040e-03_rb, &\n        & 0.10588e-03_rb,0.10456e-03_rb,0.91429e-04_rb,0.19144e-04_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.54221e-07_rb,0.50750e-04_rb,0.77698e-04_rb,0.96005e-04_rb,0.10784e-03_rb, &\n        & 0.11318e-03_rb,0.11139e-03_rb,0.97258e-04_rb,0.20671e-04_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.36654e-05_rb,0.13689e-02_rb,0.21108e-02_rb,0.26314e-02_rb,0.29458e-02_rb, &\n        & 0.30831e-02_rb,0.30207e-02_rb,0.26003e-02_rb,0.93689e-03_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.35304e-05_rb,0.14025e-02_rb,0.21716e-02_rb,0.27078e-02_rb,0.30551e-02_rb, &\n        & 0.31948e-02_rb,0.31649e-02_rb,0.27258e-02_rb,0.97983e-03_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.34059e-05_rb,0.14340e-02_rb,0.22214e-02_rb,0.27773e-02_rb,0.31348e-02_rb, &\n        & 0.33049e-02_rb,0.32835e-02_rb,0.28461e-02_rb,0.10251e-02_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.32895e-05_rb,0.14610e-02_rb,0.22596e-02_rb,0.28314e-02_rb,0.32113e-02_rb, &\n        & 0.34131e-02_rb,0.33921e-02_rb,0.29508e-02_rb,0.10730e-02_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.31814e-05_rb,0.14814e-02_rb,0.22905e-02_rb,0.28789e-02_rb,0.32785e-02_rb, &\n        & 0.34996e-02_rb,0.34952e-02_rb,0.30528e-02_rb,0.11205e-02_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.30293e-05_rb,0.11600e-02_rb,0.17946e-02_rb,0.22370e-02_rb,0.25205e-02_rb, &\n        & 0.26432e-02_rb,0.26172e-02_rb,0.22691e-02_rb,0.78466e-03_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.29173e-05_rb,0.11916e-02_rb,0.18468e-02_rb,0.23072e-02_rb,0.26094e-02_rb, &\n        & 0.27477e-02_rb,0.27388e-02_rb,0.23809e-02_rb,0.82356e-03_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.28152e-05_rb,0.12203e-02_rb,0.18939e-02_rb,0.23691e-02_rb,0.26814e-02_rb, &\n        & 0.28506e-02_rb,0.28414e-02_rb,0.24825e-02_rb,0.86161e-03_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.27207e-05_rb,0.12454e-02_rb,0.19291e-02_rb,0.24180e-02_rb,0.27489e-02_rb, &\n        & 0.29380e-02_rb,0.29345e-02_rb,0.25808e-02_rb,0.90328e-03_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.26316e-05_rb,0.12644e-02_rb,0.19586e-02_rb,0.24624e-02_rb,0.28146e-02_rb, &\n        & 0.30125e-02_rb,0.30237e-02_rb,0.26695e-02_rb,0.94678e-03_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.25288e-05_rb,0.97348e-03_rb,0.15070e-02_rb,0.18795e-02_rb,0.21206e-02_rb, &\n        & 0.22362e-02_rb,0.22210e-02_rb,0.19369e-02_rb,0.64308e-03_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.24353e-05_rb,0.10031e-02_rb,0.15552e-02_rb,0.19441e-02_rb,0.22013e-02_rb, &\n        & 0.23257e-02_rb,0.23286e-02_rb,0.20362e-02_rb,0.67529e-03_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.23495e-05_rb,0.10295e-02_rb,0.15986e-02_rb,0.20019e-02_rb,0.22663e-02_rb, &\n        & 0.24160e-02_rb,0.24204e-02_rb,0.21276e-02_rb,0.70991e-03_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.22699e-05_rb,0.10533e-02_rb,0.16337e-02_rb,0.20489e-02_rb,0.23288e-02_rb, &\n        & 0.24911e-02_rb,0.25016e-02_rb,0.22148e-02_rb,0.74635e-03_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.21951e-05_rb,0.10724e-02_rb,0.16625e-02_rb,0.20891e-02_rb,0.23896e-02_rb, &\n        & 0.25582e-02_rb,0.25812e-02_rb,0.22925e-02_rb,0.78432e-03_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.21169e-05_rb,0.81053e-03_rb,0.12568e-02_rb,0.15647e-02_rb,0.17654e-02_rb, &\n        & 0.18662e-02_rb,0.18568e-02_rb,0.16269e-02_rb,0.52608e-03_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.20407e-05_rb,0.83875e-03_rb,0.13019e-02_rb,0.16252e-02_rb,0.18383e-02_rb, &\n        & 0.19441e-02_rb,0.19538e-02_rb,0.17139e-02_rb,0.55325e-03_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.19674e-05_rb,0.86329e-03_rb,0.13417e-02_rb,0.16788e-02_rb,0.18985e-02_rb, &\n        & 0.20246e-02_rb,0.20315e-02_rb,0.17978e-02_rb,0.58253e-03_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.18994e-05_rb,0.88551e-03_rb,0.13753e-02_rb,0.17238e-02_rb,0.19566e-02_rb, &\n        & 0.20923e-02_rb,0.21035e-02_rb,0.18724e-02_rb,0.61438e-03_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.18358e-05_rb,0.90442e-03_rb,0.14042e-02_rb,0.17619e-02_rb,0.20119e-02_rb, &\n        & 0.21542e-02_rb,0.21749e-02_rb,0.19425e-02_rb,0.64762e-03_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.17725e-05_rb,0.67146e-03_rb,0.10396e-02_rb,0.12935e-02_rb,0.14576e-02_rb, &\n        & 0.15437e-02_rb,0.15341e-02_rb,0.13532e-02_rb,0.42981e-03_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.17095e-05_rb,0.69774e-03_rb,0.10823e-02_rb,0.13477e-02_rb,0.15227e-02_rb, &\n        & 0.16117e-02_rb,0.16222e-02_rb,0.14302e-02_rb,0.45286e-03_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.16478e-05_rb,0.72044e-03_rb,0.11190e-02_rb,0.13967e-02_rb,0.15783e-02_rb, &\n        & 0.16817e-02_rb,0.16897e-02_rb,0.15040e-02_rb,0.47782e-03_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.15896e-05_rb,0.74136e-03_rb,0.11512e-02_rb,0.14394e-02_rb,0.16307e-02_rb, &\n        & 0.17435e-02_rb,0.17536e-02_rb,0.15687e-02_rb,0.50468e-03_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.15353e-05_rb,0.75977e-03_rb,0.11790e-02_rb,0.14755e-02_rb,0.16811e-02_rb, &\n        & 0.17990e-02_rb,0.18175e-02_rb,0.16279e-02_rb,0.53353e-03_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.14856e-05_rb,0.55163e-03_rb,0.85182e-03_rb,0.10583e-02_rb,0.11933e-02_rb, &\n        & 0.12633e-02_rb,0.12519e-02_rb,0.11126e-02_rb,0.34969e-03_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.14323e-05_rb,0.57534e-03_rb,0.89211e-03_rb,0.11084e-02_rb,0.12510e-02_rb, &\n        & 0.13248e-02_rb,0.13302e-02_rb,0.11815e-02_rb,0.36893e-03_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.13818e-05_rb,0.59705e-03_rb,0.92552e-03_rb,0.11530e-02_rb,0.13018e-02_rb, &\n        & 0.13860e-02_rb,0.13942e-02_rb,0.12437e-02_rb,0.38991e-03_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.13317e-05_rb,0.61671e-03_rb,0.95568e-03_rb,0.11922e-02_rb,0.13481e-02_rb, &\n        & 0.14426e-02_rb,0.14508e-02_rb,0.13001e-02_rb,0.41248e-03_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.12851e-05_rb,0.63414e-03_rb,0.98227e-03_rb,0.12265e-02_rb,0.13936e-02_rb, &\n        & 0.14913e-02_rb,0.15064e-02_rb,0.13512e-02_rb,0.43696e-03_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.12453e-05_rb,0.44982e-03_rb,0.69286e-03_rb,0.85857e-03_rb,0.97115e-03_rb, &\n        & 0.10268e-02_rb,0.10132e-02_rb,0.90661e-03_rb,0.28333e-03_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.11997e-05_rb,0.47163e-03_rb,0.72984e-03_rb,0.90525e-03_rb,0.10209e-02_rb, &\n        & 0.10830e-02_rb,0.10815e-02_rb,0.96820e-03_rb,0.29991e-03_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.11571e-05_rb,0.49170e-03_rb,0.76064e-03_rb,0.94597e-03_rb,0.10683e-02_rb, &\n        & 0.11337e-02_rb,0.11418e-02_rb,0.10210e-02_rb,0.31738e-03_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.11157e-05_rb,0.50964e-03_rb,0.78859e-03_rb,0.98236e-03_rb,0.11088e-02_rb, &\n        & 0.11859e-02_rb,0.11920e-02_rb,0.10690e-02_rb,0.33600e-03_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.10757e-05_rb,0.52578e-03_rb,0.81330e-03_rb,0.10141e-02_rb,0.11493e-02_rb, &\n        & 0.12285e-02_rb,0.12399e-02_rb,0.11151e-02_rb,0.35631e-03_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.10436e-05_rb,0.36475e-03_rb,0.55948e-03_rb,0.69399e-03_rb,0.78699e-03_rb, &\n        & 0.82733e-03_rb,0.81546e-03_rb,0.73443e-03_rb,0.22874e-03_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.10043e-05_rb,0.38461e-03_rb,0.59365e-03_rb,0.73631e-03_rb,0.82902e-03_rb, &\n        & 0.87996e-03_rb,0.87589e-03_rb,0.78745e-03_rb,0.24281e-03_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.96785e-06_rb,0.40227e-03_rb,0.62191e-03_rb,0.77183e-03_rb,0.87067e-03_rb, &\n        & 0.92338e-03_rb,0.93116e-03_rb,0.83334e-03_rb,0.25735e-03_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.93367e-06_rb,0.41881e-03_rb,0.64697e-03_rb,0.80474e-03_rb,0.90754e-03_rb, &\n        & 0.96806e-03_rb,0.97434e-03_rb,0.87439e-03_rb,0.27286e-03_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.90017e-06_rb,0.43377e-03_rb,0.67026e-03_rb,0.83398e-03_rb,0.94269e-03_rb, &\n        & 0.10080e-02_rb,0.10154e-02_rb,0.91479e-03_rb,0.28948e-03_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.87469e-06_rb,0.29345e-03_rb,0.44857e-03_rb,0.55653e-03_rb,0.63371e-03_rb, &\n        & 0.66253e-03_rb,0.65229e-03_rb,0.59009e-03_rb,0.18475e-03_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.84062e-06_rb,0.31152e-03_rb,0.47975e-03_rb,0.59422e-03_rb,0.67077e-03_rb, &\n        & 0.71168e-03_rb,0.70550e-03_rb,0.63674e-03_rb,0.19669e-03_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.80947e-06_rb,0.32779e-03_rb,0.50582e-03_rb,0.62707e-03_rb,0.70705e-03_rb, &\n        & 0.74936e-03_rb,0.75252e-03_rb,0.67682e-03_rb,0.20896e-03_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.78052e-06_rb,0.34262e-03_rb,0.52820e-03_rb,0.65631e-03_rb,0.74002e-03_rb, &\n        & 0.78731e-03_rb,0.79257e-03_rb,0.71155e-03_rb,0.22197e-03_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.75300e-06_rb,0.35618e-03_rb,0.54940e-03_rb,0.68236e-03_rb,0.76978e-03_rb, &\n        & 0.82271e-03_rb,0.82806e-03_rb,0.74658e-03_rb,0.23588e-03_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.73080e-06_rb,0.23619e-03_rb,0.36002e-03_rb,0.44769e-03_rb,0.51001e-03_rb, &\n        & 0.53294e-03_rb,0.52319e-03_rb,0.47492e-03_rb,0.15005e-03_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.70142e-06_rb,0.25225e-03_rb,0.38742e-03_rb,0.48039e-03_rb,0.54285e-03_rb, &\n        & 0.57407e-03_rb,0.56765e-03_rb,0.51444e-03_rb,0.16000e-03_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.67484e-06_rb,0.26687e-03_rb,0.41119e-03_rb,0.50924e-03_rb,0.57372e-03_rb, &\n        & 0.60912e-03_rb,0.60813e-03_rb,0.54945e-03_rb,0.17036e-03_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.65032e-06_rb,0.28002e-03_rb,0.43104e-03_rb,0.53513e-03_rb,0.60294e-03_rb, &\n        & 0.63998e-03_rb,0.64485e-03_rb,0.57888e-03_rb,0.18120e-03_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.62752e-06_rb,0.29182e-03_rb,0.44950e-03_rb,0.55836e-03_rb,0.62849e-03_rb, &\n        & 0.67148e-03_rb,0.67570e-03_rb,0.60918e-03_rb,0.19271e-03_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.59846e-06_rb,0.19603e-03_rb,0.29902e-03_rb,0.37159e-03_rb,0.42367e-03_rb, &\n        & 0.44241e-03_rb,0.43550e-03_rb,0.39618e-03_rb,0.12498e-03_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.57447e-06_rb,0.20953e-03_rb,0.32187e-03_rb,0.39882e-03_rb,0.45021e-03_rb, &\n        & 0.47717e-03_rb,0.47240e-03_rb,0.42894e-03_rb,0.13362e-03_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.55265e-06_rb,0.22185e-03_rb,0.34133e-03_rb,0.42283e-03_rb,0.47616e-03_rb, &\n        & 0.50481e-03_rb,0.50553e-03_rb,0.45654e-03_rb,0.14246e-03_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.53259e-06_rb,0.23301e-03_rb,0.35816e-03_rb,0.44448e-03_rb,0.50048e-03_rb, &\n        & 0.53147e-03_rb,0.53574e-03_rb,0.48169e-03_rb,0.15168e-03_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.51379e-06_rb,0.24302e-03_rb,0.37383e-03_rb,0.46352e-03_rb,0.52203e-03_rb, &\n        & 0.55783e-03_rb,0.56175e-03_rb,0.50737e-03_rb,0.16153e-03_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.49006e-06_rb,0.16259e-03_rb,0.24802e-03_rb,0.30804e-03_rb,0.35111e-03_rb, &\n        & 0.36672e-03_rb,0.36166e-03_rb,0.32968e-03_rb,0.10401e-03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.47033e-06_rb,0.17379e-03_rb,0.26697e-03_rb,0.33069e-03_rb,0.37292e-03_rb, &\n        & 0.39587e-03_rb,0.39239e-03_rb,0.35672e-03_rb,0.11138e-03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.45247e-06_rb,0.18417e-03_rb,0.28295e-03_rb,0.35045e-03_rb,0.39465e-03_rb, &\n        & 0.41825e-03_rb,0.41984e-03_rb,0.37867e-03_rb,0.11882e-03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.43605e-06_rb,0.19351e-03_rb,0.29716e-03_rb,0.36850e-03_rb,0.41489e-03_rb, &\n        & 0.44074e-03_rb,0.44460e-03_rb,0.40031e-03_rb,0.12667e-03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.42066e-06_rb,0.20206e-03_rb,0.31038e-03_rb,0.38464e-03_rb,0.43337e-03_rb, &\n        & 0.46297e-03_rb,0.46667e-03_rb,0.42202e-03_rb,0.13498e-03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.40122e-06_rb,0.13465e-03_rb,0.20541e-03_rb,0.25488e-03_rb,0.29006e-03_rb, &\n        & 0.30358e-03_rb,0.29984e-03_rb,0.27375e-03_rb,0.86406e-04_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.38502e-06_rb,0.14398e-03_rb,0.22086e-03_rb,0.27376e-03_rb,0.30832e-03_rb, &\n        & 0.32794e-03_rb,0.32517e-03_rb,0.29562e-03_rb,0.92614e-04_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.37045e-06_rb,0.15266e-03_rb,0.23416e-03_rb,0.29013e-03_rb,0.32675e-03_rb, &\n        & 0.34622e-03_rb,0.34816e-03_rb,0.31401e-03_rb,0.98880e-04_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.35702e-06_rb,0.16050e-03_rb,0.24608e-03_rb,0.30521e-03_rb,0.34336e-03_rb, &\n        & 0.36522e-03_rb,0.36857e-03_rb,0.33246e-03_rb,0.10559e-03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.34440e-06_rb,0.16771e-03_rb,0.25742e-03_rb,0.31904e-03_rb,0.35943e-03_rb, &\n        & 0.38405e-03_rb,0.38715e-03_rb,0.35087e-03_rb,0.11262e-03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.15583e-03_rb,0.37546e-02_rb,0.53536e-02_rb,0.64161e-02_rb,0.71223e-02_rb, &\n        & 0.74982e-02_rb,0.73596e-02_rb,0.65135e-02_rb,0.35175e-02_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.16148e-03_rb,0.38569e-02_rb,0.55256e-02_rb,0.66461e-02_rb,0.73757e-02_rb, &\n        & 0.77530e-02_rb,0.75665e-02_rb,0.66496e-02_rb,0.36840e-02_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.16484e-03_rb,0.39353e-02_rb,0.56745e-02_rb,0.68364e-02_rb,0.76166e-02_rb, &\n        & 0.79711e-02_rb,0.77717e-02_rb,0.67846e-02_rb,0.38485e-02_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.16621e-03_rb,0.39946e-02_rb,0.57947e-02_rb,0.70071e-02_rb,0.78193e-02_rb, &\n        & 0.81581e-02_rb,0.79592e-02_rb,0.69132e-02_rb,0.39769e-02_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.16518e-03_rb,0.40386e-02_rb,0.58925e-02_rb,0.71530e-02_rb,0.79946e-02_rb, &\n        & 0.83258e-02_rb,0.81107e-02_rb,0.70226e-02_rb,0.41134e-02_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.12482e-03_rb,0.32204e-02_rb,0.46102e-02_rb,0.55475e-02_rb,0.61730e-02_rb, &\n        & 0.65000e-02_rb,0.63942e-02_rb,0.56394e-02_rb,0.30002e-02_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.13027e-03_rb,0.33099e-02_rb,0.47617e-02_rb,0.57497e-02_rb,0.64031e-02_rb, &\n        & 0.67184e-02_rb,0.65829e-02_rb,0.57721e-02_rb,0.31442e-02_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.13370e-03_rb,0.33808e-02_rb,0.48845e-02_rb,0.59235e-02_rb,0.66074e-02_rb, &\n        & 0.69048e-02_rb,0.67660e-02_rb,0.59018e-02_rb,0.32788e-02_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.13549e-03_rb,0.34340e-02_rb,0.49885e-02_rb,0.60745e-02_rb,0.67877e-02_rb, &\n        & 0.70780e-02_rb,0.69202e-02_rb,0.60131e-02_rb,0.33946e-02_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.13543e-03_rb,0.34778e-02_rb,0.50745e-02_rb,0.61981e-02_rb,0.69282e-02_rb, &\n        & 0.72229e-02_rb,0.70521e-02_rb,0.61218e-02_rb,0.35097e-02_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.98437e-04_rb,0.27209e-02_rb,0.39035e-02_rb,0.47185e-02_rb,0.52706e-02_rb, &\n        & 0.55579e-02_rb,0.54846e-02_rb,0.48469e-02_rb,0.25077e-02_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.10396e-03_rb,0.28031e-02_rb,0.40384e-02_rb,0.48993e-02_rb,0.54753e-02_rb, &\n        & 0.57575e-02_rb,0.56525e-02_rb,0.49684e-02_rb,0.26366e-02_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.10770e-03_rb,0.28702e-02_rb,0.41513e-02_rb,0.50504e-02_rb,0.56640e-02_rb, &\n        & 0.59245e-02_rb,0.58125e-02_rb,0.50922e-02_rb,0.27478e-02_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.10996e-03_rb,0.29232e-02_rb,0.42451e-02_rb,0.51838e-02_rb,0.58257e-02_rb, &\n        & 0.60793e-02_rb,0.59498e-02_rb,0.51949e-02_rb,0.28490e-02_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.11088e-03_rb,0.29645e-02_rb,0.43251e-02_rb,0.52992e-02_rb,0.59468e-02_rb, &\n        & 0.62096e-02_rb,0.60648e-02_rb,0.52904e-02_rb,0.29495e-02_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.76587e-04_rb,0.22792e-02_rb,0.32731e-02_rb,0.39724e-02_rb,0.44561e-02_rb, &\n        & 0.47109e-02_rb,0.46706e-02_rb,0.41444e-02_rb,0.20810e-02_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.82225e-04_rb,0.23548e-02_rb,0.33943e-02_rb,0.41325e-02_rb,0.46415e-02_rb, &\n        & 0.48939e-02_rb,0.48200e-02_rb,0.42591e-02_rb,0.21925e-02_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.86203e-04_rb,0.24180e-02_rb,0.34991e-02_rb,0.42684e-02_rb,0.48074e-02_rb, &\n        & 0.50416e-02_rb,0.49651e-02_rb,0.43643e-02_rb,0.22938e-02_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.88766e-04_rb,0.24694e-02_rb,0.35874e-02_rb,0.43875e-02_rb,0.49469e-02_rb, &\n        & 0.51810e-02_rb,0.50850e-02_rb,0.44606e-02_rb,0.23791e-02_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.90218e-04_rb,0.25110e-02_rb,0.36613e-02_rb,0.44937e-02_rb,0.50548e-02_rb, &\n        & 0.52982e-02_rb,0.51883e-02_rb,0.45498e-02_rb,0.24658e-02_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.59080e-04_rb,0.18972e-02_rb,0.27294e-02_rb,0.33195e-02_rb,0.37395e-02_rb, &\n        & 0.39683e-02_rb,0.39523e-02_rb,0.35161e-02_rb,0.17195e-02_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.64508e-04_rb,0.19673e-02_rb,0.28376e-02_rb,0.34632e-02_rb,0.39033e-02_rb, &\n        & 0.41343e-02_rb,0.40826e-02_rb,0.36195e-02_rb,0.18173e-02_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.68538e-04_rb,0.20264e-02_rb,0.29342e-02_rb,0.35856e-02_rb,0.40488e-02_rb, &\n        & 0.42664e-02_rb,0.42141e-02_rb,0.37144e-02_rb,0.19081e-02_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.71328e-04_rb,0.20750e-02_rb,0.30165e-02_rb,0.36933e-02_rb,0.41719e-02_rb, &\n        & 0.43880e-02_rb,0.43221e-02_rb,0.38006e-02_rb,0.19818e-02_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.73073e-04_rb,0.21155e-02_rb,0.30861e-02_rb,0.37892e-02_rb,0.42690e-02_rb, &\n        & 0.44901e-02_rb,0.44161e-02_rb,0.38864e-02_rb,0.20583e-02_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.45069e-04_rb,0.15673e-02_rb,0.22596e-02_rb,0.27566e-02_rb,0.31117e-02_rb, &\n        & 0.33162e-02_rb,0.33135e-02_rb,0.29574e-02_rb,0.14089e-02_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.49959e-04_rb,0.16342e-02_rb,0.23577e-02_rb,0.28828e-02_rb,0.32572e-02_rb, &\n        & 0.34626e-02_rb,0.34302e-02_rb,0.30476e-02_rb,0.14955e-02_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.54013e-04_rb,0.16891e-02_rb,0.24457e-02_rb,0.29926e-02_rb,0.33865e-02_rb, &\n        & 0.35809e-02_rb,0.35427e-02_rb,0.31358e-02_rb,0.15763e-02_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.56910e-04_rb,0.17356e-02_rb,0.25220e-02_rb,0.30903e-02_rb,0.34968e-02_rb, &\n        & 0.36853e-02_rb,0.36443e-02_rb,0.32140e-02_rb,0.16428e-02_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.58852e-04_rb,0.17743e-02_rb,0.25868e-02_rb,0.31771e-02_rb,0.35857e-02_rb, &\n        & 0.37782e-02_rb,0.37284e-02_rb,0.32905e-02_rb,0.17079e-02_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.34131e-04_rb,0.12873e-02_rb,0.18619e-02_rb,0.22745e-02_rb,0.25688e-02_rb, &\n        & 0.27494e-02_rb,0.27574e-02_rb,0.24658e-02_rb,0.11444e-02_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.38379e-04_rb,0.13503e-02_rb,0.19490e-02_rb,0.23869e-02_rb,0.26985e-02_rb, &\n        & 0.28761e-02_rb,0.28607e-02_rb,0.25443e-02_rb,0.12242e-02_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.42146e-04_rb,0.14018e-02_rb,0.20287e-02_rb,0.24843e-02_rb,0.28119e-02_rb, &\n        & 0.29848e-02_rb,0.29569e-02_rb,0.26258e-02_rb,0.12956e-02_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.45116e-04_rb,0.14454e-02_rb,0.20989e-02_rb,0.25718e-02_rb,0.29115e-02_rb, &\n        & 0.30740e-02_rb,0.30482e-02_rb,0.26967e-02_rb,0.13537e-02_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.47178e-04_rb,0.14818e-02_rb,0.21591e-02_rb,0.26509e-02_rb,0.29945e-02_rb, &\n        & 0.31590e-02_rb,0.31235e-02_rb,0.27641e-02_rb,0.14100e-02_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.25656e-04_rb,0.10525e-02_rb,0.15266e-02_rb,0.18648e-02_rb,0.21060e-02_rb, &\n        & 0.22660e-02_rb,0.22807e-02_rb,0.20415e-02_rb,0.92482e-03_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.29313e-04_rb,0.11096e-02_rb,0.16027e-02_rb,0.19628e-02_rb,0.22224e-02_rb, &\n        & 0.23730e-02_rb,0.23683e-02_rb,0.21111e-02_rb,0.99366e-03_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.32643e-04_rb,0.11579e-02_rb,0.16732e-02_rb,0.20503e-02_rb,0.23231e-02_rb, &\n        & 0.24721e-02_rb,0.24512e-02_rb,0.21842e-02_rb,0.10570e-02_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.35509e-04_rb,0.11985e-02_rb,0.17379e-02_rb,0.21284e-02_rb,0.24110e-02_rb, &\n        & 0.25519e-02_rb,0.25339e-02_rb,0.22496e-02_rb,0.11116e-02_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.37616e-04_rb,0.12327e-02_rb,0.17933e-02_rb,0.21996e-02_rb,0.24880e-02_rb, &\n        & 0.26258e-02_rb,0.26029e-02_rb,0.23088e-02_rb,0.11595e-02_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.19166e-04_rb,0.85559e-03_rb,0.12446e-02_rb,0.15213e-02_rb,0.17160e-02_rb, &\n        & 0.18527e-02_rb,0.18723e-02_rb,0.16794e-02_rb,0.74316e-03_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.22251e-04_rb,0.90701e-03_rb,0.13107e-02_rb,0.16061e-02_rb,0.18177e-02_rb, &\n        & 0.19452e-02_rb,0.19496e-02_rb,0.17420e-02_rb,0.80168e-03_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.25123e-04_rb,0.95106e-03_rb,0.13724e-02_rb,0.16826e-02_rb,0.19064e-02_rb, &\n        & 0.20352e-02_rb,0.20241e-02_rb,0.18064e-02_rb,0.85659e-03_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.27713e-04_rb,0.98903e-03_rb,0.14301e-02_rb,0.17523e-02_rb,0.19862e-02_rb, &\n        & 0.21079e-02_rb,0.20944e-02_rb,0.18656e-02_rb,0.90655e-03_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.29821e-04_rb,0.10207e-02_rb,0.14813e-02_rb,0.18163e-02_rb,0.20570e-02_rb, &\n        & 0.21737e-02_rb,0.21574e-02_rb,0.19153e-02_rb,0.94882e-03_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.14455e-04_rb,0.69508e-03_rb,0.10143e-02_rb,0.12382e-02_rb,0.13977e-02_rb, &\n        & 0.15101e-02_rb,0.15339e-02_rb,0.13794e-02_rb,0.60064e-03_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.16975e-04_rb,0.74055e-03_rb,0.10715e-02_rb,0.13117e-02_rb,0.14851e-02_rb, &\n        & 0.15938e-02_rb,0.16026e-02_rb,0.14354e-02_rb,0.65034e-03_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.19421e-04_rb,0.77996e-03_rb,0.11243e-02_rb,0.13791e-02_rb,0.15636e-02_rb, &\n        & 0.16707e-02_rb,0.16678e-02_rb,0.14908e-02_rb,0.69875e-03_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.21659e-04_rb,0.81369e-03_rb,0.11746e-02_rb,0.14408e-02_rb,0.16340e-02_rb, &\n        & 0.17376e-02_rb,0.17267e-02_rb,0.15418e-02_rb,0.74336e-03_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.23616e-04_rb,0.84316e-03_rb,0.12215e-02_rb,0.14972e-02_rb,0.16971e-02_rb, &\n        & 0.17945e-02_rb,0.17834e-02_rb,0.15844e-02_rb,0.78045e-03_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.11812e-04_rb,0.58067e-03_rb,0.84658e-03_rb,0.10349e-02_rb,0.11681e-02_rb, &\n        & 0.12622e-02_rb,0.12806e-02_rb,0.11518e-02_rb,0.50197e-03_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.13870e-04_rb,0.61870e-03_rb,0.89364e-03_rb,0.10957e-02_rb,0.12411e-02_rb, &\n        & 0.13307e-02_rb,0.13366e-02_rb,0.11990e-02_rb,0.54419e-03_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.15872e-04_rb,0.65131e-03_rb,0.93843e-03_rb,0.11520e-02_rb,0.13068e-02_rb, &\n        & 0.13966e-02_rb,0.13927e-02_rb,0.12459e-02_rb,0.58412e-03_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.17706e-04_rb,0.67957e-03_rb,0.98128e-03_rb,0.12037e-02_rb,0.13653e-02_rb, &\n        & 0.14510e-02_rb,0.14423e-02_rb,0.12873e-02_rb,0.62086e-03_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.19307e-04_rb,0.70477e-03_rb,0.10208e-02_rb,0.12522e-02_rb,0.14187e-02_rb, &\n        & 0.15000e-02_rb,0.14882e-02_rb,0.13223e-02_rb,0.65273e-03_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.96633e-05_rb,0.48384e-03_rb,0.70464e-03_rb,0.86214e-03_rb,0.97325e-03_rb, &\n        & 0.10525e-02_rb,0.10661e-02_rb,0.95818e-03_rb,0.41838e-03_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.11346e-04_rb,0.51544e-03_rb,0.74375e-03_rb,0.91255e-03_rb,0.10346e-02_rb, &\n        & 0.11088e-02_rb,0.11124e-02_rb,0.99787e-03_rb,0.45436e-03_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.12983e-04_rb,0.54258e-03_rb,0.78191e-03_rb,0.95994e-03_rb,0.10893e-02_rb, &\n        & 0.11636e-02_rb,0.11595e-02_rb,0.10379e-02_rb,0.48767e-03_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.14483e-04_rb,0.56662e-03_rb,0.81795e-03_rb,0.10036e-02_rb,0.11385e-02_rb, &\n        & 0.12091e-02_rb,0.12012e-02_rb,0.10707e-02_rb,0.51810e-03_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.15790e-04_rb,0.58805e-03_rb,0.85165e-03_rb,0.10447e-02_rb,0.11830e-02_rb, &\n        & 0.12500e-02_rb,0.12389e-02_rb,0.11012e-02_rb,0.54508e-03_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.79057e-05_rb,0.40215e-03_rb,0.58516e-03_rb,0.71666e-03_rb,0.80969e-03_rb, &\n        & 0.87518e-03_rb,0.88581e-03_rb,0.79569e-03_rb,0.34825e-03_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.92808e-05_rb,0.42853e-03_rb,0.61818e-03_rb,0.75847e-03_rb,0.86082e-03_rb, &\n        & 0.92160e-03_rb,0.92436e-03_rb,0.82894e-03_rb,0.37871e-03_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.10621e-04_rb,0.45134e-03_rb,0.65028e-03_rb,0.79815e-03_rb,0.90622e-03_rb, &\n        & 0.96752e-03_rb,0.96291e-03_rb,0.86177e-03_rb,0.40642e-03_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.11849e-04_rb,0.47161e-03_rb,0.68090e-03_rb,0.83530e-03_rb,0.94770e-03_rb, &\n        & 0.10054e-02_rb,0.99815e-03_rb,0.88908e-03_rb,0.43149e-03_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.12897e-04_rb,0.49000e-03_rb,0.70944e-03_rb,0.86982e-03_rb,0.98430e-03_rb, &\n        & 0.10398e-02_rb,0.10297e-02_rb,0.91483e-03_rb,0.45459e-03_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.23575e-02_rb,0.96457e-02_rb,0.13128e-01_rb,0.15361e-01_rb,0.16662e-01_rb, &\n        & 0.16999e-01_rb,0.16303e-01_rb,0.14368e-01_rb,0.10185e-01_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.24508e-02_rb,0.99768e-02_rb,0.13562e-01_rb,0.15786e-01_rb,0.17046e-01_rb, &\n        & 0.17316e-01_rb,0.16539e-01_rb,0.14627e-01_rb,0.10447e-01_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.25176e-02_rb,0.10262e-01_rb,0.13947e-01_rb,0.16182e-01_rb,0.17390e-01_rb, &\n        & 0.17588e-01_rb,0.16752e-01_rb,0.14857e-01_rb,0.10699e-01_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.25627e-02_rb,0.10510e-01_rb,0.14271e-01_rb,0.16517e-01_rb,0.17678e-01_rb, &\n        & 0.17815e-01_rb,0.16941e-01_rb,0.15073e-01_rb,0.10970e-01_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.25904e-02_rb,0.10712e-01_rb,0.14528e-01_rb,0.16788e-01_rb,0.17912e-01_rb, &\n        & 0.18013e-01_rb,0.17126e-01_rb,0.15282e-01_rb,0.11215e-01_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.19422e-02_rb,0.85179e-02_rb,0.11603e-01_rb,0.13561e-01_rb,0.14694e-01_rb, &\n        & 0.14952e-01_rb,0.14274e-01_rb,0.12616e-01_rb,0.86910e-02_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.20231e-02_rb,0.88208e-02_rb,0.11992e-01_rb,0.13942e-01_rb,0.15043e-01_rb, &\n        & 0.15241e-01_rb,0.14503e-01_rb,0.12849e-01_rb,0.89203e-02_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.20824e-02_rb,0.90892e-02_rb,0.12333e-01_rb,0.14283e-01_rb,0.15343e-01_rb, &\n        & 0.15493e-01_rb,0.14704e-01_rb,0.13065e-01_rb,0.91412e-02_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.21235e-02_rb,0.93193e-02_rb,0.12613e-01_rb,0.14573e-01_rb,0.15586e-01_rb, &\n        & 0.15696e-01_rb,0.14900e-01_rb,0.13269e-01_rb,0.93731e-02_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.21501e-02_rb,0.95064e-02_rb,0.12844e-01_rb,0.14802e-01_rb,0.15789e-01_rb, &\n        & 0.15872e-01_rb,0.15079e-01_rb,0.13459e-01_rb,0.95922e-02_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.15710e-02_rb,0.73739e-02_rb,0.10084e-01_rb,0.11795e-01_rb,0.12791e-01_rb, &\n        & 0.13002e-01_rb,0.12408e-01_rb,0.10948e-01_rb,0.73256e-02_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.16445e-02_rb,0.76603e-02_rb,0.10441e-01_rb,0.12136e-01_rb,0.13098e-01_rb, &\n        & 0.13272e-01_rb,0.12629e-01_rb,0.11169e-01_rb,0.75277e-02_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.17016e-02_rb,0.79120e-02_rb,0.10738e-01_rb,0.12444e-01_rb,0.13365e-01_rb, &\n        & 0.13502e-01_rb,0.12827e-01_rb,0.11365e-01_rb,0.77275e-02_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.17419e-02_rb,0.81204e-02_rb,0.10992e-01_rb,0.12704e-01_rb,0.13579e-01_rb, &\n        & 0.13687e-01_rb,0.13022e-01_rb,0.11565e-01_rb,0.79327e-02_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.17693e-02_rb,0.82896e-02_rb,0.11201e-01_rb,0.12903e-01_rb,0.13761e-01_rb, &\n        & 0.13854e-01_rb,0.13193e-01_rb,0.11760e-01_rb,0.81324e-02_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.12568e-02_rb,0.62925e-02_rb,0.86570e-02_rb,0.10156e-01_rb,0.11020e-01_rb, &\n        & 0.11220e-01_rb,0.10710e-01_rb,0.94329e-02_rb,0.61812e-02_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.13242e-02_rb,0.65532e-02_rb,0.89756e-02_rb,0.10460e-01_rb,0.11292e-01_rb, &\n        & 0.11463e-01_rb,0.10924e-01_rb,0.96449e-02_rb,0.63620e-02_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.13782e-02_rb,0.67807e-02_rb,0.92447e-02_rb,0.10739e-01_rb,0.11531e-01_rb, &\n        & 0.11676e-01_rb,0.11115e-01_rb,0.98384e-02_rb,0.65417e-02_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.14185e-02_rb,0.69728e-02_rb,0.94724e-02_rb,0.10967e-01_rb,0.11732e-01_rb, &\n        & 0.11853e-01_rb,0.11299e-01_rb,0.10029e-01_rb,0.67314e-02_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.14466e-02_rb,0.71294e-02_rb,0.96551e-02_rb,0.11150e-01_rb,0.11897e-01_rb, &\n        & 0.12003e-01_rb,0.11457e-01_rb,0.10212e-01_rb,0.69134e-02_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.99815e-03_rb,0.53184e-02_rb,0.73668e-02_rb,0.86661e-02_rb,0.94189e-02_rb, &\n        & 0.96088e-02_rb,0.91860e-02_rb,0.80854e-02_rb,0.52147e-02_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.10594e-02_rb,0.55502e-02_rb,0.76480e-02_rb,0.89382e-02_rb,0.96675e-02_rb, &\n        & 0.98281e-02_rb,0.93908e-02_rb,0.82904e-02_rb,0.53805e-02_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.11093e-02_rb,0.57534e-02_rb,0.78820e-02_rb,0.91873e-02_rb,0.98860e-02_rb, &\n        & 0.10027e-01_rb,0.95739e-02_rb,0.84774e-02_rb,0.55398e-02_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.11487e-02_rb,0.59264e-02_rb,0.80746e-02_rb,0.93952e-02_rb,0.10070e-01_rb, &\n        & 0.10196e-01_rb,0.97460e-02_rb,0.86586e-02_rb,0.57118e-02_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.11770e-02_rb,0.60715e-02_rb,0.82322e-02_rb,0.95590e-02_rb,0.10225e-01_rb, &\n        & 0.10337e-01_rb,0.98891e-02_rb,0.88282e-02_rb,0.58756e-02_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.78484e-03_rb,0.44557e-02_rb,0.62088e-02_rb,0.73238e-02_rb,0.79758e-02_rb, &\n        & 0.81565e-02_rb,0.78234e-02_rb,0.68949e-02_rb,0.43721e-02_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.84104e-03_rb,0.46584e-02_rb,0.64548e-02_rb,0.75720e-02_rb,0.82049e-02_rb, &\n        & 0.83603e-02_rb,0.80139e-02_rb,0.70912e-02_rb,0.45208e-02_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.88703e-03_rb,0.48386e-02_rb,0.66585e-02_rb,0.77939e-02_rb,0.84077e-02_rb, &\n        & 0.85494e-02_rb,0.81878e-02_rb,0.72673e-02_rb,0.46664e-02_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.92429e-03_rb,0.49939e-02_rb,0.68255e-02_rb,0.79793e-02_rb,0.85811e-02_rb, &\n        & 0.87123e-02_rb,0.83423e-02_rb,0.74324e-02_rb,0.48193e-02_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.95287e-03_rb,0.51269e-02_rb,0.69664e-02_rb,0.81216e-02_rb,0.87256e-02_rb, &\n        & 0.88404e-02_rb,0.84793e-02_rb,0.75885e-02_rb,0.49684e-02_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.61176e-03_rb,0.37105e-02_rb,0.51921e-02_rb,0.61495e-02_rb,0.67086e-02_rb, &\n        & 0.68737e-02_rb,0.66196e-02_rb,0.58499e-02_rb,0.36398e-02_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.66355e-03_rb,0.38845e-02_rb,0.54092e-02_rb,0.63684e-02_rb,0.69191e-02_rb, &\n        & 0.70638e-02_rb,0.67967e-02_rb,0.60329e-02_rb,0.37725e-02_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.70584e-03_rb,0.40429e-02_rb,0.55891e-02_rb,0.65665e-02_rb,0.71061e-02_rb, &\n        & 0.72392e-02_rb,0.69566e-02_rb,0.61958e-02_rb,0.39040e-02_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.74016e-03_rb,0.41804e-02_rb,0.57362e-02_rb,0.67306e-02_rb,0.72656e-02_rb, &\n        & 0.73939e-02_rb,0.71002e-02_rb,0.63458e-02_rb,0.40422e-02_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.76793e-03_rb,0.43013e-02_rb,0.58634e-02_rb,0.68605e-02_rb,0.73917e-02_rb, &\n        & 0.75160e-02_rb,0.72292e-02_rb,0.64867e-02_rb,0.41753e-02_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.47383e-03_rb,0.30719e-02_rb,0.43157e-02_rb,0.51299e-02_rb,0.56113e-02_rb, &\n        & 0.57604e-02_rb,0.55584e-02_rb,0.49263e-02_rb,0.30099e-02_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.52030e-03_rb,0.32224e-02_rb,0.45088e-02_rb,0.53256e-02_rb,0.58049e-02_rb, &\n        & 0.59369e-02_rb,0.57249e-02_rb,0.50950e-02_rb,0.31335e-02_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.55897e-03_rb,0.33601e-02_rb,0.46690e-02_rb,0.55008e-02_rb,0.59733e-02_rb, &\n        & 0.60982e-02_rb,0.58703e-02_rb,0.52416e-02_rb,0.32505e-02_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.59051e-03_rb,0.34823e-02_rb,0.48003e-02_rb,0.56492e-02_rb,0.61147e-02_rb, &\n        & 0.62407e-02_rb,0.60011e-02_rb,0.53776e-02_rb,0.33691e-02_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.61638e-03_rb,0.35908e-02_rb,0.49151e-02_rb,0.57682e-02_rb,0.62269e-02_rb, &\n        & 0.63505e-02_rb,0.61226e-02_rb,0.55061e-02_rb,0.34893e-02_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.36452e-03_rb,0.25301e-02_rb,0.35655e-02_rb,0.42558e-02_rb,0.46668e-02_rb, &\n        & 0.47995e-02_rb,0.46391e-02_rb,0.41176e-02_rb,0.24723e-02_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.40521e-03_rb,0.26609e-02_rb,0.37368e-02_rb,0.44313e-02_rb,0.48422e-02_rb, &\n        & 0.49605e-02_rb,0.47876e-02_rb,0.42682e-02_rb,0.25854e-02_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.44042e-03_rb,0.27811e-02_rb,0.38822e-02_rb,0.45871e-02_rb,0.49951e-02_rb, &\n        & 0.51048e-02_rb,0.49189e-02_rb,0.43988e-02_rb,0.26922e-02_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.46934e-03_rb,0.28890e-02_rb,0.40015e-02_rb,0.47204e-02_rb,0.51195e-02_rb, &\n        & 0.52329e-02_rb,0.50398e-02_rb,0.45211e-02_rb,0.27947e-02_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.49296e-03_rb,0.29863e-02_rb,0.41052e-02_rb,0.48296e-02_rb,0.52212e-02_rb, &\n        & 0.53320e-02_rb,0.51516e-02_rb,0.46410e-02_rb,0.29014e-02_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.28141e-03_rb,0.20839e-02_rb,0.29434e-02_rb,0.35250e-02_rb,0.38705e-02_rb, &\n        & 0.39907e-02_rb,0.38574e-02_rb,0.34280e-02_rb,0.20276e-02_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.31642e-03_rb,0.21962e-02_rb,0.30947e-02_rb,0.36798e-02_rb,0.40279e-02_rb, &\n        & 0.41317e-02_rb,0.39905e-02_rb,0.35591e-02_rb,0.21304e-02_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.34743e-03_rb,0.23002e-02_rb,0.32251e-02_rb,0.38167e-02_rb,0.41632e-02_rb, &\n        & 0.42588e-02_rb,0.41077e-02_rb,0.36737e-02_rb,0.22246e-02_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.37337e-03_rb,0.23958e-02_rb,0.33326e-02_rb,0.39351e-02_rb,0.42727e-02_rb, &\n        & 0.43699e-02_rb,0.42167e-02_rb,0.37850e-02_rb,0.23171e-02_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.39464e-03_rb,0.24818e-02_rb,0.34245e-02_rb,0.40341e-02_rb,0.43635e-02_rb, &\n        & 0.44592e-02_rb,0.43133e-02_rb,0.38931e-02_rb,0.24123e-02_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.23046e-03_rb,0.17561e-02_rb,0.24821e-02_rb,0.29697e-02_rb,0.32603e-02_rb, &\n        & 0.33590e-02_rb,0.32465e-02_rb,0.28911e-02_rb,0.17000e-02_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.25900e-03_rb,0.18499e-02_rb,0.26079e-02_rb,0.30983e-02_rb,0.33914e-02_rb, &\n        & 0.34790e-02_rb,0.33598e-02_rb,0.30000e-02_rb,0.17879e-02_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.28431e-03_rb,0.19371e-02_rb,0.27154e-02_rb,0.32123e-02_rb,0.35009e-02_rb, &\n        & 0.35810e-02_rb,0.34582e-02_rb,0.30989e-02_rb,0.18709e-02_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.30554e-03_rb,0.20175e-02_rb,0.28047e-02_rb,0.33094e-02_rb,0.35897e-02_rb, &\n        & 0.36708e-02_rb,0.35500e-02_rb,0.31964e-02_rb,0.19524e-02_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.32290e-03_rb,0.20906e-02_rb,0.28827e-02_rb,0.33907e-02_rb,0.36638e-02_rb, &\n        & 0.37448e-02_rb,0.36322e-02_rb,0.32921e-02_rb,0.20342e-02_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.18873e-03_rb,0.14753e-02_rb,0.20859e-02_rb,0.24932e-02_rb,0.27362e-02_rb, &\n        & 0.28163e-02_rb,0.27231e-02_rb,0.24287e-02_rb,0.14226e-02_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.21206e-03_rb,0.15542e-02_rb,0.21905e-02_rb,0.25997e-02_rb,0.28436e-02_rb, &\n        & 0.29146e-02_rb,0.28182e-02_rb,0.25196e-02_rb,0.14964e-02_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.23271e-03_rb,0.16282e-02_rb,0.22789e-02_rb,0.26937e-02_rb,0.29320e-02_rb, &\n        & 0.29995e-02_rb,0.29004e-02_rb,0.26063e-02_rb,0.15684e-02_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.25005e-03_rb,0.16959e-02_rb,0.23539e-02_rb,0.27739e-02_rb,0.30052e-02_rb, &\n        & 0.30738e-02_rb,0.29781e-02_rb,0.26924e-02_rb,0.16388e-02_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.26424e-03_rb,0.17579e-02_rb,0.24198e-02_rb,0.28418e-02_rb,0.30688e-02_rb, &\n        & 0.31370e-02_rb,0.30478e-02_rb,0.27734e-02_rb,0.17090e-02_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.15451e-03_rb,0.12362e-02_rb,0.17471e-02_rb,0.20856e-02_rb,0.22870e-02_rb, &\n        & 0.23530e-02_rb,0.22758e-02_rb,0.20318e-02_rb,0.11868e-02_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.17357e-03_rb,0.13027e-02_rb,0.18337e-02_rb,0.21736e-02_rb,0.23752e-02_rb, &\n        & 0.24339e-02_rb,0.23549e-02_rb,0.21104e-02_rb,0.12492e-02_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.19045e-03_rb,0.13651e-02_rb,0.19071e-02_rb,0.22520e-02_rb,0.24479e-02_rb, &\n        & 0.25052e-02_rb,0.24255e-02_rb,0.21862e-02_rb,0.13114e-02_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.20459e-03_rb,0.14225e-02_rb,0.19702e-02_rb,0.23195e-02_rb,0.25109e-02_rb, &\n        & 0.25680e-02_rb,0.24906e-02_rb,0.22592e-02_rb,0.13717e-02_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.21621e-03_rb,0.14751e-02_rb,0.20267e-02_rb,0.23775e-02_rb,0.25654e-02_rb, &\n        & 0.26221e-02_rb,0.25513e-02_rb,0.23283e-02_rb,0.14321e-02_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.14551e-01_rb,0.26282e-01_rb,0.32053e-01_rb,0.35189e-01_rb,0.36600e-01_rb, &\n        & 0.36646e-01_rb,0.35552e-01_rb,0.33215e-01_rb,0.27309e-01_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.15360e-01_rb,0.26847e-01_rb,0.32411e-01_rb,0.35426e-01_rb,0.36803e-01_rb, &\n        & 0.36994e-01_rb,0.36037e-01_rb,0.33674e-01_rb,0.27881e-01_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.16052e-01_rb,0.27358e-01_rb,0.32711e-01_rb,0.35602e-01_rb,0.37002e-01_rb, &\n        & 0.37322e-01_rb,0.36495e-01_rb,0.34092e-01_rb,0.28365e-01_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.16634e-01_rb,0.27765e-01_rb,0.32975e-01_rb,0.35757e-01_rb,0.37198e-01_rb, &\n        & 0.37629e-01_rb,0.36871e-01_rb,0.34489e-01_rb,0.28817e-01_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.17092e-01_rb,0.28088e-01_rb,0.33173e-01_rb,0.35899e-01_rb,0.37369e-01_rb, &\n        & 0.37894e-01_rb,0.37206e-01_rb,0.34856e-01_rb,0.29236e-01_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.12675e-01_rb,0.23757e-01_rb,0.28827e-01_rb,0.31475e-01_rb,0.32647e-01_rb, &\n        & 0.32779e-01_rb,0.31874e-01_rb,0.29659e-01_rb,0.23735e-01_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.13363e-01_rb,0.24261e-01_rb,0.29165e-01_rb,0.31734e-01_rb,0.32905e-01_rb, &\n        & 0.33137e-01_rb,0.32357e-01_rb,0.30114e-01_rb,0.24241e-01_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.13952e-01_rb,0.24673e-01_rb,0.29458e-01_rb,0.31940e-01_rb,0.33167e-01_rb, &\n        & 0.33486e-01_rb,0.32794e-01_rb,0.30540e-01_rb,0.24704e-01_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.14440e-01_rb,0.25010e-01_rb,0.29692e-01_rb,0.32131e-01_rb,0.33402e-01_rb, &\n        & 0.33816e-01_rb,0.33185e-01_rb,0.30944e-01_rb,0.25123e-01_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.14810e-01_rb,0.25246e-01_rb,0.29865e-01_rb,0.32323e-01_rb,0.33624e-01_rb, &\n        & 0.34125e-01_rb,0.33530e-01_rb,0.31299e-01_rb,0.25501e-01_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.10764e-01_rb,0.21180e-01_rb,0.25645e-01_rb,0.27934e-01_rb,0.28891e-01_rb, &\n        & 0.28978e-01_rb,0.28215e-01_rb,0.26250e-01_rb,0.20340e-01_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.11371e-01_rb,0.21611e-01_rb,0.25976e-01_rb,0.28221e-01_rb,0.29204e-01_rb, &\n        & 0.29347e-01_rb,0.28689e-01_rb,0.26687e-01_rb,0.20803e-01_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.11882e-01_rb,0.21977e-01_rb,0.26258e-01_rb,0.28467e-01_rb,0.29498e-01_rb, &\n        & 0.29730e-01_rb,0.29113e-01_rb,0.27115e-01_rb,0.21241e-01_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.12302e-01_rb,0.22273e-01_rb,0.26477e-01_rb,0.28696e-01_rb,0.29766e-01_rb, &\n        & 0.30099e-01_rb,0.29507e-01_rb,0.27503e-01_rb,0.21620e-01_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.12624e-01_rb,0.22481e-01_rb,0.26631e-01_rb,0.28900e-01_rb,0.30032e-01_rb, &\n        & 0.30425e-01_rb,0.29859e-01_rb,0.27842e-01_rb,0.21966e-01_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.89860e-02_rb,0.18659e-01_rb,0.22605e-01_rb,0.24580e-01_rb,0.25383e-01_rb, &\n        & 0.25435e-01_rb,0.24761e-01_rb,0.23037e-01_rb,0.17414e-01_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.95207e-02_rb,0.19048e-01_rb,0.22924e-01_rb,0.24888e-01_rb,0.25739e-01_rb, &\n        & 0.25823e-01_rb,0.25200e-01_rb,0.23450e-01_rb,0.17847e-01_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.99723e-02_rb,0.19380e-01_rb,0.23182e-01_rb,0.25155e-01_rb,0.26061e-01_rb, &\n        & 0.26209e-01_rb,0.25611e-01_rb,0.23862e-01_rb,0.18251e-01_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.10354e-01_rb,0.19644e-01_rb,0.23397e-01_rb,0.25401e-01_rb,0.26345e-01_rb, &\n        & 0.26580e-01_rb,0.26000e-01_rb,0.24233e-01_rb,0.18600e-01_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.10637e-01_rb,0.19822e-01_rb,0.23556e-01_rb,0.25605e-01_rb,0.26619e-01_rb, &\n        & 0.26913e-01_rb,0.26359e-01_rb,0.24562e-01_rb,0.18925e-01_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.74104e-02_rb,0.16264e-01_rb,0.19717e-01_rb,0.21452e-01_rb,0.22172e-01_rb, &\n        & 0.22207e-01_rb,0.21598e-01_rb,0.20075e-01_rb,0.14880e-01_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.78778e-02_rb,0.16624e-01_rb,0.20022e-01_rb,0.21765e-01_rb,0.22531e-01_rb, &\n        & 0.22596e-01_rb,0.21999e-01_rb,0.20458e-01_rb,0.15279e-01_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.82694e-02_rb,0.16928e-01_rb,0.20277e-01_rb,0.22036e-01_rb,0.22859e-01_rb, &\n        & 0.22978e-01_rb,0.22384e-01_rb,0.20834e-01_rb,0.15650e-01_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.85919e-02_rb,0.17168e-01_rb,0.20498e-01_rb,0.22274e-01_rb,0.23143e-01_rb, &\n        & 0.23326e-01_rb,0.22754e-01_rb,0.21189e-01_rb,0.15980e-01_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.88337e-02_rb,0.17332e-01_rb,0.20664e-01_rb,0.22477e-01_rb,0.23407e-01_rb, &\n        & 0.23648e-01_rb,0.23111e-01_rb,0.21509e-01_rb,0.16283e-01_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.60305e-02_rb,0.14008e-01_rb,0.17028e-01_rb,0.18574e-01_rb,0.19236e-01_rb, &\n        & 0.19269e-01_rb,0.18720e-01_rb,0.17347e-01_rb,0.12656e-01_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.64356e-02_rb,0.14339e-01_rb,0.17318e-01_rb,0.18872e-01_rb,0.19580e-01_rb, &\n        & 0.19645e-01_rb,0.19095e-01_rb,0.17705e-01_rb,0.13025e-01_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.67708e-02_rb,0.14626e-01_rb,0.17575e-01_rb,0.19135e-01_rb,0.19883e-01_rb, &\n        & 0.20004e-01_rb,0.19454e-01_rb,0.18055e-01_rb,0.13366e-01_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.70449e-02_rb,0.14853e-01_rb,0.17795e-01_rb,0.19363e-01_rb,0.20156e-01_rb, &\n        & 0.20324e-01_rb,0.19811e-01_rb,0.18392e-01_rb,0.13679e-01_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.72586e-02_rb,0.15014e-01_rb,0.17954e-01_rb,0.19569e-01_rb,0.20401e-01_rb, &\n        & 0.20622e-01_rb,0.20155e-01_rb,0.18706e-01_rb,0.13963e-01_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.48615e-02_rb,0.11936e-01_rb,0.14574e-01_rb,0.15963e-01_rb,0.16578e-01_rb, &\n        & 0.16615e-01_rb,0.16125e-01_rb,0.14904e-01_rb,0.10718e-01_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.52093e-02_rb,0.12247e-01_rb,0.14845e-01_rb,0.16239e-01_rb,0.16890e-01_rb, &\n        & 0.16965e-01_rb,0.16477e-01_rb,0.15238e-01_rb,0.11050e-01_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.54981e-02_rb,0.12520e-01_rb,0.15089e-01_rb,0.16485e-01_rb,0.17163e-01_rb, &\n        & 0.17296e-01_rb,0.16823e-01_rb,0.15561e-01_rb,0.11367e-01_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.57341e-02_rb,0.12732e-01_rb,0.15302e-01_rb,0.16709e-01_rb,0.17412e-01_rb, &\n        & 0.17587e-01_rb,0.17156e-01_rb,0.15882e-01_rb,0.11657e-01_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.59245e-02_rb,0.12879e-01_rb,0.15460e-01_rb,0.16900e-01_rb,0.17646e-01_rb, &\n        & 0.17862e-01_rb,0.17475e-01_rb,0.16189e-01_rb,0.11924e-01_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.38903e-02_rb,0.10086e-01_rb,0.12393e-01_rb,0.13617e-01_rb,0.14179e-01_rb, &\n        & 0.14230e-01_rb,0.13810e-01_rb,0.12741e-01_rb,0.90402e-02_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.41883e-02_rb,0.10379e-01_rb,0.12642e-01_rb,0.13866e-01_rb,0.14454e-01_rb, &\n        & 0.14549e-01_rb,0.14140e-01_rb,0.13050e-01_rb,0.93407e-02_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.44374e-02_rb,0.10628e-01_rb,0.12866e-01_rb,0.14093e-01_rb,0.14702e-01_rb, &\n        & 0.14847e-01_rb,0.14466e-01_rb,0.13354e-01_rb,0.96289e-02_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.46417e-02_rb,0.10823e-01_rb,0.13067e-01_rb,0.14297e-01_rb,0.14936e-01_rb, &\n        & 0.15113e-01_rb,0.14777e-01_rb,0.13659e-01_rb,0.98946e-02_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.48106e-02_rb,0.10958e-01_rb,0.13212e-01_rb,0.14477e-01_rb,0.15155e-01_rb, &\n        & 0.15369e-01_rb,0.15065e-01_rb,0.13954e-01_rb,0.10137e-01_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.30906e-02_rb,0.84716e-02_rb,0.10475e-01_rb,0.11533e-01_rb,0.12037e-01_rb, &\n        & 0.12102e-01_rb,0.11757e-01_rb,0.10840e-01_rb,0.75790e-02_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.33456e-02_rb,0.87380e-02_rb,0.10698e-01_rb,0.11759e-01_rb,0.12281e-01_rb, &\n        & 0.12384e-01_rb,0.12063e-01_rb,0.11124e-01_rb,0.78524e-02_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.35624e-02_rb,0.89636e-02_rb,0.10908e-01_rb,0.11964e-01_rb,0.12503e-01_rb, &\n        & 0.12651e-01_rb,0.12366e-01_rb,0.11413e-01_rb,0.81116e-02_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.37409e-02_rb,0.91394e-02_rb,0.11085e-01_rb,0.12156e-01_rb,0.12717e-01_rb, &\n        & 0.12895e-01_rb,0.12646e-01_rb,0.11703e-01_rb,0.83543e-02_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.38899e-02_rb,0.92663e-02_rb,0.11210e-01_rb,0.12323e-01_rb,0.12923e-01_rb, &\n        & 0.13135e-01_rb,0.12909e-01_rb,0.11979e-01_rb,0.85748e-02_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.24588e-02_rb,0.70997e-02_rb,0.88156e-02_rb,0.97280e-02_rb,0.10175e-01_rb, &\n        & 0.10246e-01_rb,0.99712e-02_rb,0.91951e-02_rb,0.63324e-02_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.26743e-02_rb,0.73393e-02_rb,0.90183e-02_rb,0.99289e-02_rb,0.10387e-01_rb, &\n        & 0.10496e-01_rb,0.10249e-01_rb,0.94566e-02_rb,0.65770e-02_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.28610e-02_rb,0.75352e-02_rb,0.92028e-02_rb,0.10117e-01_rb,0.10586e-01_rb, &\n        & 0.10730e-01_rb,0.10524e-01_rb,0.97307e-02_rb,0.68077e-02_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.30147e-02_rb,0.76899e-02_rb,0.93550e-02_rb,0.10291e-01_rb,0.10781e-01_rb, &\n        & 0.10954e-01_rb,0.10778e-01_rb,0.10001e-01_rb,0.70201e-02_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.31444e-02_rb,0.78050e-02_rb,0.94668e-02_rb,0.10433e-01_rb,0.10974e-01_rb, &\n        & 0.11173e-01_rb,0.11019e-01_rb,0.10253e-01_rb,0.72189e-02_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.20345e-02_rb,0.60249e-02_rb,0.74716e-02_rb,0.82496e-02_rb,0.86458e-02_rb, &\n        & 0.87340e-02_rb,0.85222e-02_rb,0.78657e-02_rb,0.53714e-02_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.22071e-02_rb,0.62176e-02_rb,0.76440e-02_rb,0.84251e-02_rb,0.88273e-02_rb, &\n        & 0.89461e-02_rb,0.87689e-02_rb,0.81125e-02_rb,0.55835e-02_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.23554e-02_rb,0.63729e-02_rb,0.77932e-02_rb,0.85868e-02_rb,0.90058e-02_rb, &\n        & 0.91548e-02_rb,0.90075e-02_rb,0.83660e-02_rb,0.57827e-02_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.24780e-02_rb,0.64944e-02_rb,0.79106e-02_rb,0.87291e-02_rb,0.91857e-02_rb, &\n        & 0.93565e-02_rb,0.92302e-02_rb,0.86036e-02_rb,0.59695e-02_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.25820e-02_rb,0.65802e-02_rb,0.79974e-02_rb,0.88427e-02_rb,0.93482e-02_rb, &\n        & 0.95539e-02_rb,0.94443e-02_rb,0.88180e-02_rb,0.61512e-02_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.16789e-02_rb,0.50906e-02_rb,0.63078e-02_rb,0.69750e-02_rb,0.73172e-02_rb, &\n        & 0.74078e-02_rb,0.72504e-02_rb,0.67015e-02_rb,0.45394e-02_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.18170e-02_rb,0.52437e-02_rb,0.64512e-02_rb,0.71255e-02_rb,0.74790e-02_rb, &\n        & 0.75959e-02_rb,0.74655e-02_rb,0.69307e-02_rb,0.47237e-02_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.19356e-02_rb,0.53689e-02_rb,0.65701e-02_rb,0.72610e-02_rb,0.76415e-02_rb, &\n        & 0.77811e-02_rb,0.76703e-02_rb,0.71508e-02_rb,0.48953e-02_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.20342e-02_rb,0.54644e-02_rb,0.66640e-02_rb,0.73792e-02_rb,0.77929e-02_rb, &\n        & 0.79635e-02_rb,0.78660e-02_rb,0.73532e-02_rb,0.50607e-02_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.21182e-02_rb,0.55328e-02_rb,0.67352e-02_rb,0.74736e-02_rb,0.79282e-02_rb, &\n        & 0.81307e-02_rb,0.80542e-02_rb,0.75407e-02_rb,0.52234e-02_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.13819e-02_rb,0.42823e-02_rb,0.53096e-02_rb,0.58771e-02_rb,0.61745e-02_rb, &\n        & 0.62601e-02_rb,0.61411e-02_rb,0.56893e-02_rb,0.38201e-02_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.14927e-02_rb,0.44078e-02_rb,0.54261e-02_rb,0.60055e-02_rb,0.63167e-02_rb, &\n        & 0.64278e-02_rb,0.63268e-02_rb,0.58891e-02_rb,0.39789e-02_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.15884e-02_rb,0.45090e-02_rb,0.55246e-02_rb,0.61217e-02_rb,0.64577e-02_rb, &\n        & 0.65903e-02_rb,0.65044e-02_rb,0.60758e-02_rb,0.41288e-02_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.16683e-02_rb,0.45858e-02_rb,0.56029e-02_rb,0.62193e-02_rb,0.65859e-02_rb, &\n        & 0.67454e-02_rb,0.66768e-02_rb,0.62506e-02_rb,0.42765e-02_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.17364e-02_rb,0.46419e-02_rb,0.56644e-02_rb,0.62996e-02_rb,0.66998e-02_rb, &\n        & 0.68888e-02_rb,0.68404e-02_rb,0.64188e-02_rb,0.44198e-02_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.57760e-01_rb,0.69432e-01_rb,0.76402e-01_rb,0.81517e-01_rb,0.85125e-01_rb, &\n        & 0.87289e-01_rb,0.87408e-01_rb,0.83317e-01_rb,0.74720e-01_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.58256e-01_rb,0.69667e-01_rb,0.76723e-01_rb,0.81911e-01_rb,0.85362e-01_rb, &\n        & 0.87289e-01_rb,0.87306e-01_rb,0.83357e-01_rb,0.75177e-01_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.58710e-01_rb,0.69859e-01_rb,0.76973e-01_rb,0.82328e-01_rb,0.85690e-01_rb, &\n        & 0.87420e-01_rb,0.87264e-01_rb,0.83435e-01_rb,0.75701e-01_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.59052e-01_rb,0.70050e-01_rb,0.77176e-01_rb,0.82642e-01_rb,0.86071e-01_rb, &\n        & 0.87660e-01_rb,0.87341e-01_rb,0.83544e-01_rb,0.76230e-01_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.59298e-01_rb,0.70198e-01_rb,0.77374e-01_rb,0.82883e-01_rb,0.86469e-01_rb, &\n        & 0.87977e-01_rb,0.87473e-01_rb,0.83691e-01_rb,0.76769e-01_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.50908e-01_rb,0.62848e-01_rb,0.70003e-01_rb,0.75263e-01_rb,0.78670e-01_rb, &\n        & 0.80594e-01_rb,0.80694e-01_rb,0.77048e-01_rb,0.67048e-01_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.51469e-01_rb,0.63178e-01_rb,0.70395e-01_rb,0.75763e-01_rb,0.79033e-01_rb, &\n        & 0.80775e-01_rb,0.80686e-01_rb,0.77199e-01_rb,0.67605e-01_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.51956e-01_rb,0.63519e-01_rb,0.70748e-01_rb,0.76221e-01_rb,0.79512e-01_rb, &\n        & 0.81067e-01_rb,0.80797e-01_rb,0.77370e-01_rb,0.68182e-01_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.52329e-01_rb,0.63831e-01_rb,0.71115e-01_rb,0.76591e-01_rb,0.80032e-01_rb, &\n        & 0.81445e-01_rb,0.81001e-01_rb,0.77568e-01_rb,0.68768e-01_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.52648e-01_rb,0.64108e-01_rb,0.71441e-01_rb,0.76941e-01_rb,0.80464e-01_rb, &\n        & 0.81866e-01_rb,0.81282e-01_rb,0.77796e-01_rb,0.69377e-01_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.44636e-01_rb,0.56575e-01_rb,0.63667e-01_rb,0.68804e-01_rb,0.72146e-01_rb, &\n        & 0.73940e-01_rb,0.73756e-01_rb,0.70359e-01_rb,0.59446e-01_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.45216e-01_rb,0.57005e-01_rb,0.64111e-01_rb,0.69328e-01_rb,0.72620e-01_rb, &\n        & 0.74228e-01_rb,0.73854e-01_rb,0.70600e-01_rb,0.60086e-01_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.45716e-01_rb,0.57448e-01_rb,0.64591e-01_rb,0.69816e-01_rb,0.73178e-01_rb, &\n        & 0.74616e-01_rb,0.74093e-01_rb,0.70843e-01_rb,0.60738e-01_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.46137e-01_rb,0.57862e-01_rb,0.65060e-01_rb,0.70283e-01_rb,0.73724e-01_rb, &\n        & 0.75067e-01_rb,0.74408e-01_rb,0.71130e-01_rb,0.61385e-01_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.46490e-01_rb,0.58240e-01_rb,0.65537e-01_rb,0.70752e-01_rb,0.74187e-01_rb, &\n        & 0.75545e-01_rb,0.74817e-01_rb,0.71479e-01_rb,0.61998e-01_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.38910e-01_rb,0.50823e-01_rb,0.57505e-01_rb,0.62364e-01_rb,0.65559e-01_rb, &\n        & 0.67154e-01_rb,0.66798e-01_rb,0.63531e-01_rb,0.52401e-01_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.39488e-01_rb,0.51307e-01_rb,0.58022e-01_rb,0.62912e-01_rb,0.66074e-01_rb, &\n        & 0.67518e-01_rb,0.67025e-01_rb,0.63840e-01_rb,0.53093e-01_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.39991e-01_rb,0.51812e-01_rb,0.58566e-01_rb,0.63451e-01_rb,0.66632e-01_rb, &\n        & 0.68010e-01_rb,0.67348e-01_rb,0.64169e-01_rb,0.53782e-01_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.40387e-01_rb,0.52291e-01_rb,0.59117e-01_rb,0.64001e-01_rb,0.67196e-01_rb, &\n        & 0.68514e-01_rb,0.67789e-01_rb,0.64555e-01_rb,0.54470e-01_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.40719e-01_rb,0.52739e-01_rb,0.59691e-01_rb,0.64572e-01_rb,0.67725e-01_rb, &\n        & 0.69031e-01_rb,0.68307e-01_rb,0.64985e-01_rb,0.55091e-01_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.33692e-01_rb,0.45459e-01_rb,0.51705e-01_rb,0.56111e-01_rb,0.58984e-01_rb, &\n        & 0.60384e-01_rb,0.59951e-01_rb,0.56770e-01_rb,0.45939e-01_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.34254e-01_rb,0.45979e-01_rb,0.52252e-01_rb,0.56664e-01_rb,0.59515e-01_rb, &\n        & 0.60816e-01_rb,0.60273e-01_rb,0.57146e-01_rb,0.46647e-01_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.34738e-01_rb,0.46532e-01_rb,0.52846e-01_rb,0.57238e-01_rb,0.60077e-01_rb, &\n        & 0.61352e-01_rb,0.60714e-01_rb,0.57566e-01_rb,0.47359e-01_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.35117e-01_rb,0.47047e-01_rb,0.53459e-01_rb,0.57849e-01_rb,0.60668e-01_rb, &\n        & 0.61902e-01_rb,0.61259e-01_rb,0.58030e-01_rb,0.48036e-01_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.35428e-01_rb,0.47508e-01_rb,0.54083e-01_rb,0.58493e-01_rb,0.61253e-01_rb, &\n        & 0.62481e-01_rb,0.61851e-01_rb,0.58523e-01_rb,0.48648e-01_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.28910e-01_rb,0.40429e-01_rb,0.46176e-01_rb,0.50108e-01_rb,0.52609e-01_rb, &\n        & 0.53750e-01_rb,0.53289e-01_rb,0.50286e-01_rb,0.40061e-01_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.29433e-01_rb,0.40967e-01_rb,0.46731e-01_rb,0.50653e-01_rb,0.53149e-01_rb, &\n        & 0.54232e-01_rb,0.53687e-01_rb,0.50714e-01_rb,0.40756e-01_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.29883e-01_rb,0.41520e-01_rb,0.47349e-01_rb,0.51251e-01_rb,0.53731e-01_rb, &\n        & 0.54796e-01_rb,0.54207e-01_rb,0.51188e-01_rb,0.41443e-01_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.30252e-01_rb,0.42024e-01_rb,0.47998e-01_rb,0.51918e-01_rb,0.54339e-01_rb, &\n        & 0.55387e-01_rb,0.54820e-01_rb,0.51711e-01_rb,0.42085e-01_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.30542e-01_rb,0.42447e-01_rb,0.48635e-01_rb,0.52598e-01_rb,0.54986e-01_rb, &\n        & 0.56038e-01_rb,0.55430e-01_rb,0.52236e-01_rb,0.42675e-01_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.24600e-01_rb,0.35725e-01_rb,0.40952e-01_rb,0.44398e-01_rb,0.46558e-01_rb, &\n        & 0.47462e-01_rb,0.46950e-01_rb,0.44227e-01_rb,0.34751e-01_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.25060e-01_rb,0.36250e-01_rb,0.41498e-01_rb,0.44950e-01_rb,0.47097e-01_rb, &\n        & 0.47977e-01_rb,0.47399e-01_rb,0.44690e-01_rb,0.35410e-01_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.25466e-01_rb,0.36769e-01_rb,0.42119e-01_rb,0.45572e-01_rb,0.47696e-01_rb, &\n        & 0.48548e-01_rb,0.47965e-01_rb,0.45198e-01_rb,0.36050e-01_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.25804e-01_rb,0.37232e-01_rb,0.42764e-01_rb,0.46249e-01_rb,0.48349e-01_rb, &\n        & 0.49173e-01_rb,0.48603e-01_rb,0.45737e-01_rb,0.36649e-01_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.26075e-01_rb,0.37645e-01_rb,0.43371e-01_rb,0.46950e-01_rb,0.49045e-01_rb, &\n        & 0.49856e-01_rb,0.49223e-01_rb,0.46279e-01_rb,0.37198e-01_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.20747e-01_rb,0.31325e-01_rb,0.36016e-01_rb,0.39047e-01_rb,0.40921e-01_rb, &\n        & 0.41656e-01_rb,0.41097e-01_rb,0.38682e-01_rb,0.29955e-01_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.21145e-01_rb,0.31811e-01_rb,0.36541e-01_rb,0.39597e-01_rb,0.41455e-01_rb, &\n        & 0.42169e-01_rb,0.41575e-01_rb,0.39145e-01_rb,0.30577e-01_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.21497e-01_rb,0.32290e-01_rb,0.37155e-01_rb,0.40238e-01_rb,0.42067e-01_rb, &\n        & 0.42744e-01_rb,0.42154e-01_rb,0.39648e-01_rb,0.31178e-01_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.21796e-01_rb,0.32717e-01_rb,0.37766e-01_rb,0.40923e-01_rb,0.42738e-01_rb, &\n        & 0.43394e-01_rb,0.42768e-01_rb,0.40185e-01_rb,0.31733e-01_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.22044e-01_rb,0.33112e-01_rb,0.38338e-01_rb,0.41597e-01_rb,0.43462e-01_rb, &\n        & 0.44087e-01_rb,0.43385e-01_rb,0.40740e-01_rb,0.32254e-01_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.17360e-01_rb,0.27218e-01_rb,0.31401e-01_rb,0.34084e-01_rb,0.35741e-01_rb, &\n        & 0.36373e-01_rb,0.35798e-01_rb,0.33594e-01_rb,0.25664e-01_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.17693e-01_rb,0.27662e-01_rb,0.31908e-01_rb,0.34622e-01_rb,0.36264e-01_rb, &\n        & 0.36877e-01_rb,0.36285e-01_rb,0.34049e-01_rb,0.26251e-01_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.17992e-01_rb,0.28089e-01_rb,0.32477e-01_rb,0.35255e-01_rb,0.36874e-01_rb, &\n        & 0.37444e-01_rb,0.36831e-01_rb,0.34544e-01_rb,0.26814e-01_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.18258e-01_rb,0.28481e-01_rb,0.33050e-01_rb,0.35909e-01_rb,0.37552e-01_rb, &\n        & 0.38078e-01_rb,0.37421e-01_rb,0.35073e-01_rb,0.27335e-01_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.18484e-01_rb,0.28849e-01_rb,0.33601e-01_rb,0.36536e-01_rb,0.38254e-01_rb, &\n        & 0.38756e-01_rb,0.38026e-01_rb,0.35616e-01_rb,0.27829e-01_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.14462e-01_rb,0.23463e-01_rb,0.27186e-01_rb,0.29588e-01_rb,0.31079e-01_rb, &\n        & 0.31625e-01_rb,0.31053e-01_rb,0.29012e-01_rb,0.21916e-01_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.14737e-01_rb,0.23853e-01_rb,0.27662e-01_rb,0.30109e-01_rb,0.31581e-01_rb, &\n        & 0.32116e-01_rb,0.31527e-01_rb,0.29461e-01_rb,0.22460e-01_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.14983e-01_rb,0.24238e-01_rb,0.28187e-01_rb,0.30710e-01_rb,0.32176e-01_rb, &\n        & 0.32664e-01_rb,0.32044e-01_rb,0.29948e-01_rb,0.22987e-01_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.15228e-01_rb,0.24593e-01_rb,0.28718e-01_rb,0.31312e-01_rb,0.32826e-01_rb, &\n        & 0.33282e-01_rb,0.32615e-01_rb,0.30467e-01_rb,0.23478e-01_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.15411e-01_rb,0.24932e-01_rb,0.29228e-01_rb,0.31903e-01_rb,0.33455e-01_rb, &\n        & 0.33943e-01_rb,0.33207e-01_rb,0.30994e-01_rb,0.23939e-01_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.12097e-01_rb,0.20230e-01_rb,0.23554e-01_rb,0.25737e-01_rb,0.27070e-01_rb, &\n        & 0.27526e-01_rb,0.26987e-01_rb,0.25125e-01_rb,0.18843e-01_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.12316e-01_rb,0.20564e-01_rb,0.24014e-01_rb,0.26265e-01_rb,0.27589e-01_rb, &\n        & 0.28021e-01_rb,0.27462e-01_rb,0.25580e-01_rb,0.19341e-01_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.12525e-01_rb,0.20893e-01_rb,0.24494e-01_rb,0.26817e-01_rb,0.28172e-01_rb, &\n        & 0.28578e-01_rb,0.27985e-01_rb,0.26073e-01_rb,0.19811e-01_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.12698e-01_rb,0.21212e-01_rb,0.24971e-01_rb,0.27358e-01_rb,0.28752e-01_rb, &\n        & 0.29196e-01_rb,0.28554e-01_rb,0.26575e-01_rb,0.20254e-01_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.12813e-01_rb,0.21527e-01_rb,0.25428e-01_rb,0.27886e-01_rb,0.29316e-01_rb, &\n        & 0.29794e-01_rb,0.29144e-01_rb,0.27095e-01_rb,0.20669e-01_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.10079e-01_rb,0.17332e-01_rb,0.20326e-01_rb,0.22283e-01_rb,0.23452e-01_rb, &\n        & 0.23840e-01_rb,0.23351e-01_rb,0.21701e-01_rb,0.16150e-01_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.10253e-01_rb,0.17624e-01_rb,0.20738e-01_rb,0.22772e-01_rb,0.23963e-01_rb, &\n        & 0.24343e-01_rb,0.23830e-01_rb,0.22159e-01_rb,0.16605e-01_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.10412e-01_rb,0.17914e-01_rb,0.21165e-01_rb,0.23257e-01_rb,0.24491e-01_rb, &\n        & 0.24907e-01_rb,0.24364e-01_rb,0.22633e-01_rb,0.17031e-01_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.10528e-01_rb,0.18203e-01_rb,0.21585e-01_rb,0.23732e-01_rb,0.25019e-01_rb, &\n        & 0.25466e-01_rb,0.24925e-01_rb,0.23123e-01_rb,0.17440e-01_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.10595e-01_rb,0.18491e-01_rb,0.21987e-01_rb,0.24205e-01_rb,0.25526e-01_rb, &\n        & 0.26013e-01_rb,0.25497e-01_rb,0.23633e-01_rb,0.17825e-01_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.83675e-02_rb,0.14778e-01_rb,0.17455e-01_rb,0.19201e-01_rb,0.20214e-01_rb, &\n        & 0.20545e-01_rb,0.20133e-01_rb,0.18703e-01_rb,0.13810e-01_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.85037e-02_rb,0.15033e-01_rb,0.17824e-01_rb,0.19621e-01_rb,0.20684e-01_rb, &\n        & 0.21052e-01_rb,0.20616e-01_rb,0.19145e-01_rb,0.14218e-01_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.86129e-02_rb,0.15303e-01_rb,0.18197e-01_rb,0.20043e-01_rb,0.21163e-01_rb, &\n        & 0.21577e-01_rb,0.21143e-01_rb,0.19600e-01_rb,0.14617e-01_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.86912e-02_rb,0.15568e-01_rb,0.18565e-01_rb,0.20472e-01_rb,0.21636e-01_rb, &\n        & 0.22091e-01_rb,0.21674e-01_rb,0.20090e-01_rb,0.14991e-01_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.87302e-02_rb,0.15800e-01_rb,0.18917e-01_rb,0.20887e-01_rb,0.22103e-01_rb, &\n        & 0.22594e-01_rb,0.22198e-01_rb,0.20586e-01_rb,0.15351e-01_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.23898e+00_rb,0.24353e+00_rb,0.26297e+00_rb,0.27410e+00_rb,0.27635e+00_rb, &\n        & 0.27151e+00_rb,0.26001e+00_rb,0.24536e+00_rb,0.24840e+00_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.23703e+00_rb,0.24151e+00_rb,0.26057e+00_rb,0.27148e+00_rb,0.27415e+00_rb, &\n        & 0.26993e+00_rb,0.25912e+00_rb,0.24520e+00_rb,0.24830e+00_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.23567e+00_rb,0.23998e+00_rb,0.25868e+00_rb,0.26917e+00_rb,0.27195e+00_rb, &\n        & 0.26833e+00_rb,0.25809e+00_rb,0.24488e+00_rb,0.24801e+00_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.23478e+00_rb,0.23885e+00_rb,0.25713e+00_rb,0.26729e+00_rb,0.26990e+00_rb, &\n        & 0.26662e+00_rb,0.25696e+00_rb,0.24453e+00_rb,0.24772e+00_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.23430e+00_rb,0.23810e+00_rb,0.25588e+00_rb,0.26568e+00_rb,0.26809e+00_rb, &\n        & 0.26490e+00_rb,0.25575e+00_rb,0.24412e+00_rb,0.24745e+00_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.22071e+00_rb,0.23189e+00_rb,0.25280e+00_rb,0.26428e+00_rb,0.26846e+00_rb, &\n        & 0.26544e+00_rb,0.25423e+00_rb,0.23818e+00_rb,0.23526e+00_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.21924e+00_rb,0.23025e+00_rb,0.25076e+00_rb,0.26194e+00_rb,0.26631e+00_rb, &\n        & 0.26393e+00_rb,0.25356e+00_rb,0.23803e+00_rb,0.23534e+00_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.21843e+00_rb,0.22915e+00_rb,0.24919e+00_rb,0.26005e+00_rb,0.26425e+00_rb, &\n        & 0.26237e+00_rb,0.25262e+00_rb,0.23788e+00_rb,0.23535e+00_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.21819e+00_rb,0.22852e+00_rb,0.24801e+00_rb,0.25855e+00_rb,0.26247e+00_rb, &\n        & 0.26079e+00_rb,0.25163e+00_rb,0.23767e+00_rb,0.23532e+00_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.21836e+00_rb,0.22826e+00_rb,0.24718e+00_rb,0.25726e+00_rb,0.26101e+00_rb, &\n        & 0.25924e+00_rb,0.25059e+00_rb,0.23733e+00_rb,0.23520e+00_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.20172e+00_rb,0.21909e+00_rb,0.24049e+00_rb,0.25259e+00_rb,0.25809e+00_rb, &\n        & 0.25661e+00_rb,0.24776e+00_rb,0.23048e+00_rb,0.22176e+00_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.20072e+00_rb,0.21779e+00_rb,0.23872e+00_rb,0.25058e+00_rb,0.25610e+00_rb, &\n        & 0.25527e+00_rb,0.24712e+00_rb,0.23055e+00_rb,0.22209e+00_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.20047e+00_rb,0.21708e+00_rb,0.23748e+00_rb,0.24902e+00_rb,0.25438e+00_rb, &\n        & 0.25391e+00_rb,0.24629e+00_rb,0.23063e+00_rb,0.22233e+00_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.20080e+00_rb,0.21687e+00_rb,0.23670e+00_rb,0.24777e+00_rb,0.25298e+00_rb, &\n        & 0.25252e+00_rb,0.24542e+00_rb,0.23053e+00_rb,0.22249e+00_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.20160e+00_rb,0.21710e+00_rb,0.23623e+00_rb,0.24683e+00_rb,0.25186e+00_rb, &\n        & 0.25126e+00_rb,0.24453e+00_rb,0.23018e+00_rb,0.22257e+00_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.18271e+00_rb,0.20499e+00_rb,0.22645e+00_rb,0.23921e+00_rb,0.24553e+00_rb, &\n        & 0.24573e+00_rb,0.23916e+00_rb,0.22190e+00_rb,0.20803e+00_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.18212e+00_rb,0.20407e+00_rb,0.22500e+00_rb,0.23755e+00_rb,0.24385e+00_rb, &\n        & 0.24460e+00_rb,0.23866e+00_rb,0.22223e+00_rb,0.20862e+00_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.18234e+00_rb,0.20374e+00_rb,0.22412e+00_rb,0.23625e+00_rb,0.24249e+00_rb, &\n        & 0.24341e+00_rb,0.23801e+00_rb,0.22245e+00_rb,0.20916e+00_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.18327e+00_rb,0.20396e+00_rb,0.22372e+00_rb,0.23535e+00_rb,0.24149e+00_rb, &\n        & 0.24231e+00_rb,0.23730e+00_rb,0.22248e+00_rb,0.20951e+00_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.18465e+00_rb,0.20466e+00_rb,0.22368e+00_rb,0.23479e+00_rb,0.24072e+00_rb, &\n        & 0.24142e+00_rb,0.23656e+00_rb,0.22226e+00_rb,0.20975e+00_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.16429e+00_rb,0.19018e+00_rb,0.21120e+00_rb,0.22440e+00_rb,0.23155e+00_rb, &\n        & 0.23328e+00_rb,0.22834e+00_rb,0.21231e+00_rb,0.19389e+00_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.16411e+00_rb,0.18954e+00_rb,0.21010e+00_rb,0.22306e+00_rb,0.23026e+00_rb, &\n        & 0.23235e+00_rb,0.22803e+00_rb,0.21280e+00_rb,0.19477e+00_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.16481e+00_rb,0.18955e+00_rb,0.20958e+00_rb,0.22215e+00_rb,0.22928e+00_rb, &\n        & 0.23142e+00_rb,0.22762e+00_rb,0.21318e+00_rb,0.19549e+00_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.16626e+00_rb,0.19018e+00_rb,0.20952e+00_rb,0.22166e+00_rb,0.22860e+00_rb, &\n        & 0.23069e+00_rb,0.22713e+00_rb,0.21333e+00_rb,0.19598e+00_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.16812e+00_rb,0.19134e+00_rb,0.20988e+00_rb,0.22152e+00_rb,0.22816e+00_rb, &\n        & 0.23013e+00_rb,0.22663e+00_rb,0.21325e+00_rb,0.19645e+00_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.14677e+00_rb,0.17503e+00_rb,0.19553e+00_rb,0.20871e+00_rb,0.21680e+00_rb, &\n        & 0.21948e+00_rb,0.21556e+00_rb,0.20158e+00_rb,0.17922e+00_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.14688e+00_rb,0.17460e+00_rb,0.19479e+00_rb,0.20777e+00_rb,0.21582e+00_rb, &\n        & 0.21883e+00_rb,0.21549e+00_rb,0.20223e+00_rb,0.18038e+00_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.14791e+00_rb,0.17490e+00_rb,0.19459e+00_rb,0.20727e+00_rb,0.21519e+00_rb, &\n        & 0.21822e+00_rb,0.21533e+00_rb,0.20278e+00_rb,0.18127e+00_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.14970e+00_rb,0.17592e+00_rb,0.19488e+00_rb,0.20713e+00_rb,0.21485e+00_rb, &\n        & 0.21785e+00_rb,0.21514e+00_rb,0.20305e+00_rb,0.18200e+00_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.15169e+00_rb,0.17756e+00_rb,0.19568e+00_rb,0.20736e+00_rb,0.21479e+00_rb, &\n        & 0.21766e+00_rb,0.21494e+00_rb,0.20315e+00_rb,0.18271e+00_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.13000e+00_rb,0.15987e+00_rb,0.17978e+00_rb,0.19301e+00_rb,0.20129e+00_rb, &\n        & 0.20436e+00_rb,0.20140e+00_rb,0.18919e+00_rb,0.16414e+00_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.13035e+00_rb,0.15964e+00_rb,0.17934e+00_rb,0.19244e+00_rb,0.20068e+00_rb, &\n        & 0.20402e+00_rb,0.20156e+00_rb,0.19006e+00_rb,0.16551e+00_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.13166e+00_rb,0.16021e+00_rb,0.17944e+00_rb,0.19225e+00_rb,0.20040e+00_rb, &\n        & 0.20381e+00_rb,0.20166e+00_rb,0.19078e+00_rb,0.16662e+00_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.13361e+00_rb,0.16157e+00_rb,0.18010e+00_rb,0.19248e+00_rb,0.20041e+00_rb, &\n        & 0.20379e+00_rb,0.20172e+00_rb,0.19125e+00_rb,0.16758e+00_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.13554e+00_rb,0.16344e+00_rb,0.18132e+00_rb,0.19308e+00_rb,0.20075e+00_rb, &\n        & 0.20397e+00_rb,0.20182e+00_rb,0.19159e+00_rb,0.16855e+00_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.11433e+00_rb,0.14488e+00_rb,0.16431e+00_rb,0.17738e+00_rb,0.18527e+00_rb, &\n        & 0.18841e+00_rb,0.18617e+00_rb,0.17535e+00_rb,0.14893e+00_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.11487e+00_rb,0.14487e+00_rb,0.16414e+00_rb,0.17713e+00_rb,0.18501e+00_rb, &\n        & 0.18837e+00_rb,0.18658e+00_rb,0.17646e+00_rb,0.15049e+00_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.11635e+00_rb,0.14571e+00_rb,0.16452e+00_rb,0.17724e+00_rb,0.18506e+00_rb, &\n        & 0.18853e+00_rb,0.18695e+00_rb,0.17741e+00_rb,0.15180e+00_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.11822e+00_rb,0.14733e+00_rb,0.16549e+00_rb,0.17782e+00_rb,0.18544e+00_rb, &\n        & 0.18888e+00_rb,0.18734e+00_rb,0.17811e+00_rb,0.15295e+00_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.12009e+00_rb,0.14924e+00_rb,0.16704e+00_rb,0.17887e+00_rb,0.18614e+00_rb, &\n        & 0.18940e+00_rb,0.18775e+00_rb,0.17867e+00_rb,0.15411e+00_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.10002e+00_rb,0.13043e+00_rb,0.14919e+00_rb,0.16171e+00_rb,0.16913e+00_rb, &\n        & 0.17211e+00_rb,0.17023e+00_rb,0.16067e+00_rb,0.13380e+00_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.10070e+00_rb,0.13063e+00_rb,0.14927e+00_rb,0.16171e+00_rb,0.16923e+00_rb, &\n        & 0.17237e+00_rb,0.17091e+00_rb,0.16202e+00_rb,0.13552e+00_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.10219e+00_rb,0.13166e+00_rb,0.14990e+00_rb,0.16210e+00_rb,0.16959e+00_rb, &\n        & 0.17285e+00_rb,0.17161e+00_rb,0.16316e+00_rb,0.13700e+00_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.10390e+00_rb,0.13341e+00_rb,0.15118e+00_rb,0.16299e+00_rb,0.17031e+00_rb, &\n        & 0.17358e+00_rb,0.17229e+00_rb,0.16405e+00_rb,0.13837e+00_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.10569e+00_rb,0.13530e+00_rb,0.15298e+00_rb,0.16444e+00_rb,0.17139e+00_rb, &\n        & 0.17443e+00_rb,0.17301e+00_rb,0.16481e+00_rb,0.13976e+00_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.87148e-01_rb,0.11690e+00_rb,0.13450e+00_rb,0.14609e+00_rb,0.15307e+00_rb, &\n        & 0.15588e+00_rb,0.15420e+00_rb,0.14572e+00_rb,0.11917e+00_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.87948e-01_rb,0.11730e+00_rb,0.13485e+00_rb,0.14637e+00_rb,0.15348e+00_rb, &\n        & 0.15645e+00_rb,0.15513e+00_rb,0.14723e+00_rb,0.12103e+00_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.89341e-01_rb,0.11856e+00_rb,0.13575e+00_rb,0.14709e+00_rb,0.15418e+00_rb, &\n        & 0.15726e+00_rb,0.15609e+00_rb,0.14852e+00_rb,0.12266e+00_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.90912e-01_rb,0.12032e+00_rb,0.13733e+00_rb,0.14835e+00_rb,0.15527e+00_rb, &\n        & 0.15827e+00_rb,0.15702e+00_rb,0.14960e+00_rb,0.12424e+00_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.92651e-01_rb,0.12218e+00_rb,0.13930e+00_rb,0.15018e+00_rb,0.15676e+00_rb, &\n        & 0.15942e+00_rb,0.15802e+00_rb,0.15063e+00_rb,0.12583e+00_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.75810e-01_rb,0.10456e+00_rb,0.12069e+00_rb,0.13117e+00_rb,0.13761e+00_rb, &\n        & 0.14039e+00_rb,0.13895e+00_rb,0.13157e+00_rb,0.10610e+00_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.76895e-01_rb,0.10557e+00_rb,0.12151e+00_rb,0.13190e+00_rb,0.13842e+00_rb, &\n        & 0.14134e+00_rb,0.14014e+00_rb,0.13312e+00_rb,0.10796e+00_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.78244e-01_rb,0.10718e+00_rb,0.12298e+00_rb,0.13318e+00_rb,0.13962e+00_rb, &\n        & 0.14250e+00_rb,0.14130e+00_rb,0.13446e+00_rb,0.10971e+00_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.79823e-01_rb,0.10896e+00_rb,0.12491e+00_rb,0.13508e+00_rb,0.14123e+00_rb, &\n        & 0.14382e+00_rb,0.14250e+00_rb,0.13575e+00_rb,0.11145e+00_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.81587e-01_rb,0.11081e+00_rb,0.12696e+00_rb,0.13729e+00_rb,0.14323e+00_rb, &\n        & 0.14541e+00_rb,0.14385e+00_rb,0.13708e+00_rb,0.11322e+00_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.65751e-01_rb,0.93358e-01_rb,0.10793e+00_rb,0.11727e+00_rb,0.12307e+00_rb, &\n        & 0.12565e+00_rb,0.12447e+00_rb,0.11782e+00_rb,0.93944e-01_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.66851e-01_rb,0.94791e-01_rb,0.10927e+00_rb,0.11849e+00_rb,0.12430e+00_rb, &\n        & 0.12692e+00_rb,0.12584e+00_rb,0.11940e+00_rb,0.95825e-01_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.68215e-01_rb,0.96468e-01_rb,0.11113e+00_rb,0.12035e+00_rb,0.12596e+00_rb, &\n        & 0.12837e+00_rb,0.12723e+00_rb,0.12088e+00_rb,0.97697e-01_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.69822e-01_rb,0.98288e-01_rb,0.11318e+00_rb,0.12260e+00_rb,0.12800e+00_rb, &\n        & 0.13009e+00_rb,0.12875e+00_rb,0.12246e+00_rb,0.99558e-01_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.71562e-01_rb,0.10021e+00_rb,0.11536e+00_rb,0.12491e+00_rb,0.13035e+00_rb, &\n        & 0.13218e+00_rb,0.13049e+00_rb,0.12412e+00_rb,0.10142e+00_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.56716e-01_rb,0.83175e-01_rb,0.96227e-01_rb,0.10452e+00_rb,0.10961e+00_rb, &\n        & 0.11186e+00_rb,0.11078e+00_rb,0.10487e+00_rb,0.82822e-01_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.57829e-01_rb,0.84711e-01_rb,0.97973e-01_rb,0.10625e+00_rb,0.11123e+00_rb, &\n        & 0.11339e+00_rb,0.11236e+00_rb,0.10648e+00_rb,0.84781e-01_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.59231e-01_rb,0.86426e-01_rb,0.99996e-01_rb,0.10847e+00_rb,0.11329e+00_rb, &\n        & 0.11518e+00_rb,0.11401e+00_rb,0.10821e+00_rb,0.86727e-01_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.60793e-01_rb,0.88335e-01_rb,0.10220e+00_rb,0.11080e+00_rb,0.11568e+00_rb, &\n        & 0.11734e+00_rb,0.11592e+00_rb,0.11003e+00_rb,0.88652e-01_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.62288e-01_rb,0.90379e-01_rb,0.10449e+00_rb,0.11321e+00_rb,0.11819e+00_rb, &\n        & 0.11985e+00_rb,0.11808e+00_rb,0.11193e+00_rb,0.90608e-01_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.73370e+00_rb,0.66239e+00_rb,0.64754e+00_rb,0.65671e+00_rb,0.64798e+00_rb, &\n        & 0.62443e+00_rb,0.62156e+00_rb,0.59642e+00_rb,0.65694e+00_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.72227e+00_rb,0.65245e+00_rb,0.64115e+00_rb,0.65244e+00_rb,0.64519e+00_rb, &\n        & 0.62272e+00_rb,0.62178e+00_rb,0.59807e+00_rb,0.65734e+00_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.71096e+00_rb,0.64287e+00_rb,0.63490e+00_rb,0.64719e+00_rb,0.64246e+00_rb, &\n        & 0.61928e+00_rb,0.62164e+00_rb,0.59971e+00_rb,0.65975e+00_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.69997e+00_rb,0.63340e+00_rb,0.62893e+00_rb,0.64188e+00_rb,0.63859e+00_rb, &\n        & 0.61601e+00_rb,0.62127e+00_rb,0.59924e+00_rb,0.66003e+00_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.68921e+00_rb,0.62412e+00_rb,0.62274e+00_rb,0.63660e+00_rb,0.63341e+00_rb, &\n        & 0.61371e+00_rb,0.61976e+00_rb,0.59796e+00_rb,0.65874e+00_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.71435e+00_rb,0.65898e+00_rb,0.65791e+00_rb,0.67621e+00_rb,0.66803e+00_rb, &\n        & 0.63952e+00_rb,0.62227e+00_rb,0.60345e+00_rb,0.64341e+00_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.70295e+00_rb,0.64927e+00_rb,0.65209e+00_rb,0.67168e+00_rb,0.66601e+00_rb, &\n        & 0.63761e+00_rb,0.62183e+00_rb,0.60472e+00_rb,0.64489e+00_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.69214e+00_rb,0.64012e+00_rb,0.64637e+00_rb,0.66639e+00_rb,0.66353e+00_rb, &\n        & 0.63487e+00_rb,0.62217e+00_rb,0.60467e+00_rb,0.64521e+00_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.68145e+00_rb,0.63089e+00_rb,0.64022e+00_rb,0.66099e+00_rb,0.65898e+00_rb, &\n        & 0.63312e+00_rb,0.62106e+00_rb,0.60298e+00_rb,0.64380e+00_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.67068e+00_rb,0.62208e+00_rb,0.63390e+00_rb,0.65546e+00_rb,0.65376e+00_rb, &\n        & 0.63122e+00_rb,0.61818e+00_rb,0.60158e+00_rb,0.64256e+00_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.68340e+00_rb,0.64482e+00_rb,0.66290e+00_rb,0.68284e+00_rb,0.67896e+00_rb, &\n        & 0.65800e+00_rb,0.61589e+00_rb,0.60026e+00_rb,0.62209e+00_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.67251e+00_rb,0.63550e+00_rb,0.65818e+00_rb,0.67891e+00_rb,0.67722e+00_rb, &\n        & 0.65575e+00_rb,0.61745e+00_rb,0.60017e+00_rb,0.62247e+00_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.66182e+00_rb,0.62604e+00_rb,0.65231e+00_rb,0.67447e+00_rb,0.67369e+00_rb, &\n        & 0.65314e+00_rb,0.61804e+00_rb,0.59851e+00_rb,0.62084e+00_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.65114e+00_rb,0.61727e+00_rb,0.64569e+00_rb,0.67007e+00_rb,0.66854e+00_rb, &\n        & 0.65146e+00_rb,0.61713e+00_rb,0.59641e+00_rb,0.61922e+00_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.64110e+00_rb,0.60881e+00_rb,0.63926e+00_rb,0.66468e+00_rb,0.66347e+00_rb, &\n        & 0.64931e+00_rb,0.61433e+00_rb,0.59600e+00_rb,0.61885e+00_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.64233e+00_rb,0.62207e+00_rb,0.65747e+00_rb,0.67845e+00_rb,0.68170e+00_rb, &\n        & 0.66374e+00_rb,0.61548e+00_rb,0.59270e+00_rb,0.60473e+00_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.63185e+00_rb,0.61324e+00_rb,0.65237e+00_rb,0.67473e+00_rb,0.67959e+00_rb, &\n        & 0.66215e+00_rb,0.61741e+00_rb,0.59134e+00_rb,0.60361e+00_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.62122e+00_rb,0.60440e+00_rb,0.64660e+00_rb,0.67096e+00_rb,0.67570e+00_rb, &\n        & 0.66004e+00_rb,0.61834e+00_rb,0.58886e+00_rb,0.60079e+00_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.61111e+00_rb,0.59616e+00_rb,0.64034e+00_rb,0.66675e+00_rb,0.67073e+00_rb, &\n        & 0.65786e+00_rb,0.61721e+00_rb,0.58692e+00_rb,0.59978e+00_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.60223e+00_rb,0.58851e+00_rb,0.63401e+00_rb,0.66136e+00_rb,0.66631e+00_rb, &\n        & 0.65503e+00_rb,0.61469e+00_rb,0.58697e+00_rb,0.60040e+00_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.59185e+00_rb,0.59370e+00_rb,0.63992e+00_rb,0.66463e+00_rb,0.67279e+00_rb, &\n        & 0.65610e+00_rb,0.61852e+00_rb,0.58331e+00_rb,0.58763e+00_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.58158e+00_rb,0.58584e+00_rb,0.63500e+00_rb,0.66123e+00_rb,0.67045e+00_rb, &\n        & 0.65504e+00_rb,0.62015e+00_rb,0.58225e+00_rb,0.58623e+00_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.57197e+00_rb,0.57827e+00_rb,0.62932e+00_rb,0.65791e+00_rb,0.66630e+00_rb, &\n        & 0.65353e+00_rb,0.61959e+00_rb,0.58025e+00_rb,0.58483e+00_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.56277e+00_rb,0.57099e+00_rb,0.62369e+00_rb,0.65326e+00_rb,0.66229e+00_rb, &\n        & 0.65156e+00_rb,0.61745e+00_rb,0.57913e+00_rb,0.58544e+00_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.55581e+00_rb,0.56431e+00_rb,0.61807e+00_rb,0.64784e+00_rb,0.65855e+00_rb, &\n        & 0.64845e+00_rb,0.61479e+00_rb,0.57987e+00_rb,0.58646e+00_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.53954e+00_rb,0.56255e+00_rb,0.61290e+00_rb,0.64303e+00_rb,0.64974e+00_rb, &\n        & 0.64176e+00_rb,0.61714e+00_rb,0.56940e+00_rb,0.56484e+00_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.53060e+00_rb,0.55651e+00_rb,0.60789e+00_rb,0.63988e+00_rb,0.64820e+00_rb, &\n        & 0.64042e+00_rb,0.61834e+00_rb,0.56932e+00_rb,0.56418e+00_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.52216e+00_rb,0.54988e+00_rb,0.60294e+00_rb,0.63619e+00_rb,0.64521e+00_rb, &\n        & 0.63878e+00_rb,0.61726e+00_rb,0.56850e+00_rb,0.56474e+00_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.51474e+00_rb,0.54331e+00_rb,0.59815e+00_rb,0.63165e+00_rb,0.64200e+00_rb, &\n        & 0.63625e+00_rb,0.61431e+00_rb,0.56860e+00_rb,0.56684e+00_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.51206e+00_rb,0.53704e+00_rb,0.59303e+00_rb,0.62695e+00_rb,0.63853e+00_rb, &\n        & 0.63290e+00_rb,0.61169e+00_rb,0.57018e+00_rb,0.56804e+00_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.49102e+00_rb,0.52896e+00_rb,0.58005e+00_rb,0.60940e+00_rb,0.62179e+00_rb, &\n        & 0.62452e+00_rb,0.60693e+00_rb,0.55666e+00_rb,0.53830e+00_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.48351e+00_rb,0.52394e+00_rb,0.57551e+00_rb,0.60647e+00_rb,0.62043e+00_rb, &\n        & 0.62318e+00_rb,0.60808e+00_rb,0.55693e+00_rb,0.53902e+00_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.47604e+00_rb,0.51848e+00_rb,0.57124e+00_rb,0.60324e+00_rb,0.61835e+00_rb, &\n        & 0.62080e+00_rb,0.60698e+00_rb,0.55691e+00_rb,0.54116e+00_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.47121e+00_rb,0.51294e+00_rb,0.56659e+00_rb,0.59937e+00_rb,0.61527e+00_rb, &\n        & 0.61807e+00_rb,0.60502e+00_rb,0.55819e+00_rb,0.54361e+00_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.47306e+00_rb,0.50884e+00_rb,0.56199e+00_rb,0.59548e+00_rb,0.61135e+00_rb, &\n        & 0.61474e+00_rb,0.60372e+00_rb,0.56024e+00_rb,0.54444e+00_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.44396e+00_rb,0.49532e+00_rb,0.54249e+00_rb,0.57145e+00_rb,0.59186e+00_rb, &\n        & 0.60060e+00_rb,0.58785e+00_rb,0.54441e+00_rb,0.50913e+00_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.43707e+00_rb,0.49048e+00_rb,0.53914e+00_rb,0.56868e+00_rb,0.59107e+00_rb, &\n        & 0.60049e+00_rb,0.58883e+00_rb,0.54507e+00_rb,0.51101e+00_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.43098e+00_rb,0.48531e+00_rb,0.53541e+00_rb,0.56592e+00_rb,0.58911e+00_rb, &\n        & 0.59846e+00_rb,0.58812e+00_rb,0.54578e+00_rb,0.51441e+00_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.42957e+00_rb,0.48093e+00_rb,0.53173e+00_rb,0.56262e+00_rb,0.58636e+00_rb, &\n        & 0.59589e+00_rb,0.58708e+00_rb,0.54776e+00_rb,0.51773e+00_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.43487e+00_rb,0.48035e+00_rb,0.52822e+00_rb,0.55903e+00_rb,0.58272e+00_rb, &\n        & 0.59353e+00_rb,0.58697e+00_rb,0.54985e+00_rb,0.51918e+00_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.39531e+00_rb,0.46021e+00_rb,0.50510e+00_rb,0.53588e+00_rb,0.55895e+00_rb, &\n        & 0.56979e+00_rb,0.56191e+00_rb,0.52659e+00_rb,0.47758e+00_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.38905e+00_rb,0.45517e+00_rb,0.50180e+00_rb,0.53416e+00_rb,0.55846e+00_rb, &\n        & 0.57047e+00_rb,0.56355e+00_rb,0.52717e+00_rb,0.48088e+00_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.38493e+00_rb,0.45067e+00_rb,0.49854e+00_rb,0.53220e+00_rb,0.55699e+00_rb, &\n        & 0.56934e+00_rb,0.56332e+00_rb,0.52868e+00_rb,0.48536e+00_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.38723e+00_rb,0.44786e+00_rb,0.49546e+00_rb,0.52928e+00_rb,0.55471e+00_rb, &\n        & 0.56730e+00_rb,0.56372e+00_rb,0.53178e+00_rb,0.48902e+00_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.39433e+00_rb,0.45054e+00_rb,0.49350e+00_rb,0.52621e+00_rb,0.55192e+00_rb, &\n        & 0.56604e+00_rb,0.56481e+00_rb,0.53491e+00_rb,0.49067e+00_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.34716e+00_rb,0.41992e+00_rb,0.46841e+00_rb,0.50264e+00_rb,0.52377e+00_rb, &\n        & 0.53462e+00_rb,0.53096e+00_rb,0.50215e+00_rb,0.44481e+00_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.34195e+00_rb,0.41601e+00_rb,0.46506e+00_rb,0.50165e+00_rb,0.52385e+00_rb, &\n        & 0.53574e+00_rb,0.53310e+00_rb,0.50401e+00_rb,0.44924e+00_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.34072e+00_rb,0.41255e+00_rb,0.46265e+00_rb,0.50007e+00_rb,0.52273e+00_rb, &\n        & 0.53553e+00_rb,0.53434e+00_rb,0.50668e+00_rb,0.45414e+00_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.34572e+00_rb,0.41258e+00_rb,0.46029e+00_rb,0.49770e+00_rb,0.52100e+00_rb, &\n        & 0.53482e+00_rb,0.53633e+00_rb,0.51056e+00_rb,0.45768e+00_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.35242e+00_rb,0.41826e+00_rb,0.46028e+00_rb,0.49520e+00_rb,0.51927e+00_rb, &\n        & 0.53500e+00_rb,0.53892e+00_rb,0.51405e+00_rb,0.45947e+00_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.30160e+00_rb,0.37714e+00_rb,0.42971e+00_rb,0.46717e+00_rb,0.48926e+00_rb, &\n        & 0.49871e+00_rb,0.49756e+00_rb,0.47436e+00_rb,0.41261e+00_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.29962e+00_rb,0.37395e+00_rb,0.42779e+00_rb,0.46654e+00_rb,0.48929e+00_rb, &\n        & 0.49998e+00_rb,0.50016e+00_rb,0.47769e+00_rb,0.41819e+00_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.30371e+00_rb,0.37339e+00_rb,0.42611e+00_rb,0.46502e+00_rb,0.48821e+00_rb, &\n        & 0.50080e+00_rb,0.50323e+00_rb,0.48215e+00_rb,0.42266e+00_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.30955e+00_rb,0.37857e+00_rb,0.42639e+00_rb,0.46320e+00_rb,0.48745e+00_rb, &\n        & 0.50213e+00_rb,0.50694e+00_rb,0.48639e+00_rb,0.42570e+00_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.31511e+00_rb,0.38606e+00_rb,0.43107e+00_rb,0.46346e+00_rb,0.48731e+00_rb, &\n        & 0.50398e+00_rb,0.50975e+00_rb,0.48945e+00_rb,0.42790e+00_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.26311e+00_rb,0.33847e+00_rb,0.39159e+00_rb,0.42993e+00_rb,0.45370e+00_rb, &\n        & 0.46372e+00_rb,0.46279e+00_rb,0.44427e+00_rb,0.37907e+00_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.26583e+00_rb,0.33679e+00_rb,0.39073e+00_rb,0.42938e+00_rb,0.45415e+00_rb, &\n        & 0.46569e+00_rb,0.46639e+00_rb,0.44945e+00_rb,0.38485e+00_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.27082e+00_rb,0.34071e+00_rb,0.39077e+00_rb,0.42842e+00_rb,0.45412e+00_rb, &\n        & 0.46820e+00_rb,0.47089e+00_rb,0.45477e+00_rb,0.38900e+00_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.27574e+00_rb,0.34733e+00_rb,0.39532e+00_rb,0.42923e+00_rb,0.45504e+00_rb, &\n        & 0.47097e+00_rb,0.47486e+00_rb,0.45848e+00_rb,0.39247e+00_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.28099e+00_rb,0.35386e+00_rb,0.40190e+00_rb,0.43447e+00_rb,0.45757e+00_rb, &\n        & 0.47294e+00_rb,0.47760e+00_rb,0.46125e+00_rb,0.39629e+00_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.23133e+00_rb,0.30448e+00_rb,0.35592e+00_rb,0.39245e+00_rb,0.41703e+00_rb, &\n        & 0.42944e+00_rb,0.42838e+00_rb,0.41191e+00_rb,0.34405e+00_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.23569e+00_rb,0.30675e+00_rb,0.35574e+00_rb,0.39238e+00_rb,0.41854e+00_rb, &\n        & 0.43261e+00_rb,0.43319e+00_rb,0.41851e+00_rb,0.34979e+00_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.23995e+00_rb,0.31287e+00_rb,0.35958e+00_rb,0.39339e+00_rb,0.42025e+00_rb, &\n        & 0.43649e+00_rb,0.43814e+00_rb,0.42387e+00_rb,0.35427e+00_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.24491e+00_rb,0.31868e+00_rb,0.36597e+00_rb,0.39887e+00_rb,0.42348e+00_rb, &\n        & 0.43960e+00_rb,0.44180e+00_rb,0.42781e+00_rb,0.35946e+00_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.25204e+00_rb,0.32443e+00_rb,0.37244e+00_rb,0.40709e+00_rb,0.42924e+00_rb, &\n        & 0.44176e+00_rb,0.44465e+00_rb,0.43196e+00_rb,0.36481e+00_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.10293e+01_rb,0.90445e+00_rb,0.86137e+00_rb,0.83022e+00_rb,0.84086e+00_rb, &\n        & 0.86548e+00_rb,0.85587e+00_rb,0.85325e+00_rb,0.97261e+00_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.10191e+01_rb,0.89556e+00_rb,0.85472e+00_rb,0.82839e+00_rb,0.83827e+00_rb, &\n        & 0.86712e+00_rb,0.85626e+00_rb,0.85096e+00_rb,0.97088e+00_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.10070e+01_rb,0.88513e+00_rb,0.84750e+00_rb,0.82570e+00_rb,0.83354e+00_rb, &\n        & 0.86668e+00_rb,0.85692e+00_rb,0.84837e+00_rb,0.96710e+00_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.99477e+00_rb,0.87449e+00_rb,0.83958e+00_rb,0.82146e+00_rb,0.82897e+00_rb, &\n        & 0.86436e+00_rb,0.85744e+00_rb,0.84703e+00_rb,0.96450e+00_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.98126e+00_rb,0.86272e+00_rb,0.83128e+00_rb,0.81555e+00_rb,0.82401e+00_rb, &\n        & 0.85929e+00_rb,0.85825e+00_rb,0.84707e+00_rb,0.96358e+00_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.10475e+01_rb,0.93151e+00_rb,0.89830e+00_rb,0.88420e+00_rb,0.87933e+00_rb, &\n        & 0.87846e+00_rb,0.87987e+00_rb,0.86086e+00_rb,0.97265e+00_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.10370e+01_rb,0.92196e+00_rb,0.89215e+00_rb,0.88284e+00_rb,0.87783e+00_rb, &\n        & 0.88073e+00_rb,0.88059e+00_rb,0.85882e+00_rb,0.96972e+00_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.10244e+01_rb,0.91082e+00_rb,0.88511e+00_rb,0.87976e+00_rb,0.87455e+00_rb, &\n        & 0.88046e+00_rb,0.88070e+00_rb,0.85623e+00_rb,0.96599e+00_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.10111e+01_rb,0.89911e+00_rb,0.87761e+00_rb,0.87481e+00_rb,0.87132e+00_rb, &\n        & 0.87692e+00_rb,0.88074e+00_rb,0.85652e+00_rb,0.96500e+00_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.99734e+00_rb,0.88696e+00_rb,0.86940e+00_rb,0.86908e+00_rb,0.86706e+00_rb, &\n        & 0.87191e+00_rb,0.88156e+00_rb,0.85742e+00_rb,0.96567e+00_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.10481e+01_rb,0.94949e+00_rb,0.92754e+00_rb,0.93134e+00_rb,0.92020e+00_rb, &\n        & 0.88963e+00_rb,0.89353e+00_rb,0.87368e+00_rb,0.96341e+00_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.10364e+01_rb,0.93961e+00_rb,0.92141e+00_rb,0.92962e+00_rb,0.91951e+00_rb, &\n        & 0.89266e+00_rb,0.89347e+00_rb,0.87218e+00_rb,0.95995e+00_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.10237e+01_rb,0.92877e+00_rb,0.91434e+00_rb,0.92574e+00_rb,0.91740e+00_rb, &\n        & 0.89302e+00_rb,0.89281e+00_rb,0.87167e+00_rb,0.95907e+00_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.10107e+01_rb,0.91711e+00_rb,0.90716e+00_rb,0.92023e+00_rb,0.91517e+00_rb, &\n        & 0.89037e+00_rb,0.89222e+00_rb,0.87266e+00_rb,0.95928e+00_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.99633e+00_rb,0.90470e+00_rb,0.89927e+00_rb,0.91439e+00_rb,0.91120e+00_rb, &\n        & 0.88600e+00_rb,0.89266e+00_rb,0.87273e+00_rb,0.95886e+00_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.10264e+01_rb,0.95071e+00_rb,0.94674e+00_rb,0.96322e+00_rb,0.95099e+00_rb, &\n        & 0.91374e+00_rb,0.89446e+00_rb,0.87855e+00_rb,0.93628e+00_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.10149e+01_rb,0.94036e+00_rb,0.94196e+00_rb,0.96089e+00_rb,0.95153e+00_rb, &\n        & 0.91752e+00_rb,0.89401e+00_rb,0.87842e+00_rb,0.93496e+00_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.10022e+01_rb,0.92957e+00_rb,0.93566e+00_rb,0.95688e+00_rb,0.95066e+00_rb, &\n        & 0.91784e+00_rb,0.89284e+00_rb,0.87926e+00_rb,0.93586e+00_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.98847e+00_rb,0.91773e+00_rb,0.92854e+00_rb,0.95134e+00_rb,0.94862e+00_rb, &\n        & 0.91547e+00_rb,0.89366e+00_rb,0.87951e+00_rb,0.93591e+00_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.97390e+00_rb,0.90550e+00_rb,0.92045e+00_rb,0.94604e+00_rb,0.94431e+00_rb, &\n        & 0.91218e+00_rb,0.89395e+00_rb,0.87858e+00_rb,0.93476e+00_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.98609e+00_rb,0.93424e+00_rb,0.95643e+00_rb,0.97684e+00_rb,0.96999e+00_rb, &\n        & 0.93774e+00_rb,0.88693e+00_rb,0.86915e+00_rb,0.90145e+00_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.97412e+00_rb,0.92401e+00_rb,0.95137e+00_rb,0.97507e+00_rb,0.97005e+00_rb, &\n        & 0.94299e+00_rb,0.88698e+00_rb,0.86947e+00_rb,0.90218e+00_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.96114e+00_rb,0.91242e+00_rb,0.94531e+00_rb,0.97096e+00_rb,0.96958e+00_rb, &\n        & 0.94325e+00_rb,0.88812e+00_rb,0.86965e+00_rb,0.90220e+00_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.94742e+00_rb,0.90067e+00_rb,0.93796e+00_rb,0.96622e+00_rb,0.96802e+00_rb, &\n        & 0.94082e+00_rb,0.89013e+00_rb,0.86974e+00_rb,0.90156e+00_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.93336e+00_rb,0.88866e+00_rb,0.92975e+00_rb,0.96102e+00_rb,0.96365e+00_rb, &\n        & 0.93814e+00_rb,0.89133e+00_rb,0.86813e+00_rb,0.89955e+00_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.92984e+00_rb,0.90494e+00_rb,0.94972e+00_rb,0.97425e+00_rb,0.97662e+00_rb, &\n        & 0.94556e+00_rb,0.88351e+00_rb,0.85584e+00_rb,0.87463e+00_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.91725e+00_rb,0.89370e+00_rb,0.94535e+00_rb,0.97222e+00_rb,0.97680e+00_rb, &\n        & 0.95110e+00_rb,0.88518e+00_rb,0.85597e+00_rb,0.87435e+00_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.90427e+00_rb,0.88250e+00_rb,0.93903e+00_rb,0.96844e+00_rb,0.97606e+00_rb, &\n        & 0.95304e+00_rb,0.88753e+00_rb,0.85497e+00_rb,0.87307e+00_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.89063e+00_rb,0.87150e+00_rb,0.93110e+00_rb,0.96495e+00_rb,0.97386e+00_rb, &\n        & 0.95208e+00_rb,0.89056e+00_rb,0.85380e+00_rb,0.87067e+00_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.87675e+00_rb,0.86027e+00_rb,0.92261e+00_rb,0.96002e+00_rb,0.96930e+00_rb, &\n        & 0.94959e+00_rb,0.89201e+00_rb,0.85155e+00_rb,0.86905e+00_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.85919e+00_rb,0.86562e+00_rb,0.92649e+00_rb,0.95965e+00_rb,0.96523e+00_rb, &\n        & 0.93650e+00_rb,0.88529e+00_rb,0.84057e+00_rb,0.84722e+00_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.84717e+00_rb,0.85599e+00_rb,0.92166e+00_rb,0.95676e+00_rb,0.96677e+00_rb, &\n        & 0.94156e+00_rb,0.88807e+00_rb,0.84087e+00_rb,0.84785e+00_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.83473e+00_rb,0.84556e+00_rb,0.91525e+00_rb,0.95342e+00_rb,0.96579e+00_rb, &\n        & 0.94506e+00_rb,0.89084e+00_rb,0.83990e+00_rb,0.84680e+00_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.82211e+00_rb,0.83508e+00_rb,0.90782e+00_rb,0.94944e+00_rb,0.96296e+00_rb, &\n        & 0.94530e+00_rb,0.89295e+00_rb,0.83822e+00_rb,0.84533e+00_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.80945e+00_rb,0.82542e+00_rb,0.90011e+00_rb,0.94513e+00_rb,0.95957e+00_rb, &\n        & 0.94356e+00_rb,0.89326e+00_rb,0.83636e+00_rb,0.84582e+00_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.78535e+00_rb,0.81958e+00_rb,0.89069e+00_rb,0.92943e+00_rb,0.93702e+00_rb, &\n        & 0.91895e+00_rb,0.88182e+00_rb,0.81942e+00_rb,0.81355e+00_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.77455e+00_rb,0.81120e+00_rb,0.88449e+00_rb,0.92737e+00_rb,0.93847e+00_rb, &\n        & 0.92275e+00_rb,0.88568e+00_rb,0.82187e+00_rb,0.81529e+00_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.76320e+00_rb,0.80325e+00_rb,0.87799e+00_rb,0.92413e+00_rb,0.93785e+00_rb, &\n        & 0.92584e+00_rb,0.88848e+00_rb,0.82246e+00_rb,0.81526e+00_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.75209e+00_rb,0.79461e+00_rb,0.87173e+00_rb,0.92037e+00_rb,0.93562e+00_rb, &\n        & 0.92659e+00_rb,0.89042e+00_rb,0.82203e+00_rb,0.81583e+00_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.74191e+00_rb,0.78569e+00_rb,0.86500e+00_rb,0.91565e+00_rb,0.93275e+00_rb, &\n        & 0.92508e+00_rb,0.89021e+00_rb,0.82215e+00_rb,0.81833e+00_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.71539e+00_rb,0.77045e+00_rb,0.84442e+00_rb,0.88339e+00_rb,0.89968e+00_rb, &\n        & 0.89536e+00_rb,0.86841e+00_rb,0.79955e+00_rb,0.77318e+00_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.70564e+00_rb,0.76424e+00_rb,0.83867e+00_rb,0.88222e+00_rb,0.90019e+00_rb, &\n        & 0.89929e+00_rb,0.87308e+00_rb,0.80390e+00_rb,0.77664e+00_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.69566e+00_rb,0.75811e+00_rb,0.83280e+00_rb,0.87940e+00_rb,0.90026e+00_rb, &\n        & 0.90222e+00_rb,0.87663e+00_rb,0.80593e+00_rb,0.77834e+00_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.68611e+00_rb,0.75067e+00_rb,0.82727e+00_rb,0.87623e+00_rb,0.89845e+00_rb, &\n        & 0.90248e+00_rb,0.87886e+00_rb,0.80698e+00_rb,0.78085e+00_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.67924e+00_rb,0.74336e+00_rb,0.82173e+00_rb,0.87192e+00_rb,0.89575e+00_rb, &\n        & 0.90118e+00_rb,0.87929e+00_rb,0.80840e+00_rb,0.78556e+00_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.64750e+00_rb,0.72291e+00_rb,0.79049e+00_rb,0.83093e+00_rb,0.85723e+00_rb, &\n        & 0.86420e+00_rb,0.84410e+00_rb,0.78062e+00_rb,0.72995e+00_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.63786e+00_rb,0.71701e+00_rb,0.78689e+00_rb,0.82920e+00_rb,0.85838e+00_rb, &\n        & 0.86903e+00_rb,0.84994e+00_rb,0.78581e+00_rb,0.73484e+00_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.62879e+00_rb,0.71055e+00_rb,0.78212e+00_rb,0.82630e+00_rb,0.85919e+00_rb, &\n        & 0.87234e+00_rb,0.85358e+00_rb,0.78925e+00_rb,0.73873e+00_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.62087e+00_rb,0.70389e+00_rb,0.77761e+00_rb,0.82356e+00_rb,0.85812e+00_rb, &\n        & 0.87281e+00_rb,0.85602e+00_rb,0.79174e+00_rb,0.74394e+00_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.61947e+00_rb,0.69759e+00_rb,0.77360e+00_rb,0.82013e+00_rb,0.85542e+00_rb, &\n        & 0.87157e+00_rb,0.85709e+00_rb,0.79529e+00_rb,0.75052e+00_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.57317e+00_rb,0.67082e+00_rb,0.73559e+00_rb,0.77934e+00_rb,0.81170e+00_rb, &\n        & 0.82582e+00_rb,0.81431e+00_rb,0.75887e+00_rb,0.68710e+00_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.56447e+00_rb,0.66437e+00_rb,0.73216e+00_rb,0.77740e+00_rb,0.81370e+00_rb, &\n        & 0.83183e+00_rb,0.81926e+00_rb,0.76438e+00_rb,0.69316e+00_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.55710e+00_rb,0.65798e+00_rb,0.72792e+00_rb,0.77609e+00_rb,0.81480e+00_rb, &\n        & 0.83377e+00_rb,0.82304e+00_rb,0.76833e+00_rb,0.70018e+00_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.55630e+00_rb,0.65257e+00_rb,0.72437e+00_rb,0.77329e+00_rb,0.81397e+00_rb, &\n        & 0.83437e+00_rb,0.82566e+00_rb,0.77320e+00_rb,0.70886e+00_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.56411e+00_rb,0.65194e+00_rb,0.72119e+00_rb,0.77017e+00_rb,0.81118e+00_rb, &\n        & 0.83405e+00_rb,0.82785e+00_rb,0.77913e+00_rb,0.71658e+00_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.50093e+00_rb,0.61265e+00_rb,0.68222e+00_rb,0.73081e+00_rb,0.76376e+00_rb, &\n        & 0.78196e+00_rb,0.77611e+00_rb,0.73046e+00_rb,0.64374e+00_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.49374e+00_rb,0.60693e+00_rb,0.67860e+00_rb,0.73087e+00_rb,0.76701e+00_rb, &\n        & 0.78657e+00_rb,0.78196e+00_rb,0.73646e+00_rb,0.65183e+00_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.49262e+00_rb,0.60232e+00_rb,0.67517e+00_rb,0.73017e+00_rb,0.76805e+00_rb, &\n        & 0.78863e+00_rb,0.78651e+00_rb,0.74261e+00_rb,0.66205e+00_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.49989e+00_rb,0.60234e+00_rb,0.67259e+00_rb,0.72790e+00_rb,0.76753e+00_rb, &\n        & 0.79017e+00_rb,0.79054e+00_rb,0.75027e+00_rb,0.67174e+00_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.51177e+00_rb,0.60963e+00_rb,0.67313e+00_rb,0.72489e+00_rb,0.76606e+00_rb, &\n        & 0.79187e+00_rb,0.79524e+00_rb,0.75809e+00_rb,0.67955e+00_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.43610e+00_rb,0.55280e+00_rb,0.62805e+00_rb,0.68236e+00_rb,0.71726e+00_rb, &\n        & 0.73439e+00_rb,0.73316e+00_rb,0.69581e+00_rb,0.60098e+00_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.43332e+00_rb,0.54879e+00_rb,0.62602e+00_rb,0.68387e+00_rb,0.71981e+00_rb, &\n        & 0.73863e+00_rb,0.74004e+00_rb,0.70395e+00_rb,0.61188e+00_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.43938e+00_rb,0.54819e+00_rb,0.62420e+00_rb,0.68392e+00_rb,0.72120e+00_rb, &\n        & 0.74159e+00_rb,0.74634e+00_rb,0.71286e+00_rb,0.62343e+00_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.44997e+00_rb,0.55515e+00_rb,0.62479e+00_rb,0.68255e+00_rb,0.72173e+00_rb, &\n        & 0.74510e+00_rb,0.75297e+00_rb,0.72278e+00_rb,0.63265e+00_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.46055e+00_rb,0.56787e+00_rb,0.63110e+00_rb,0.68248e+00_rb,0.72225e+00_rb, &\n        & 0.74921e+00_rb,0.75987e+00_rb,0.73098e+00_rb,0.64026e+00_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.14171e+01_rb,0.12412e+01_rb,0.11453e+01_rb,0.11122e+01_rb,0.11253e+01_rb, &\n        & 0.11573e+01_rb,0.11791e+01_rb,0.12973e+01_rb,0.14638e+01_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.14090e+01_rb,0.12342e+01_rb,0.11388e+01_rb,0.11095e+01_rb,0.11322e+01_rb, &\n        & 0.11607e+01_rb,0.11781e+01_rb,0.12938e+01_rb,0.14611e+01_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.13994e+01_rb,0.12258e+01_rb,0.11299e+01_rb,0.11046e+01_rb,0.11339e+01_rb, &\n        & 0.11641e+01_rb,0.11762e+01_rb,0.12907e+01_rb,0.14569e+01_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.13872e+01_rb,0.12151e+01_rb,0.11205e+01_rb,0.10983e+01_rb,0.11321e+01_rb, &\n        & 0.11655e+01_rb,0.11746e+01_rb,0.12884e+01_rb,0.14537e+01_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.13737e+01_rb,0.12034e+01_rb,0.11101e+01_rb,0.10915e+01_rb,0.11280e+01_rb, &\n        & 0.11664e+01_rb,0.11724e+01_rb,0.12834e+01_rb,0.14491e+01_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.15051e+01_rb,0.13181e+01_rb,0.12304e+01_rb,0.11719e+01_rb,0.11855e+01_rb, &\n        & 0.12309e+01_rb,0.12496e+01_rb,0.13203e+01_rb,0.15049e+01_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.14984e+01_rb,0.13123e+01_rb,0.12250e+01_rb,0.11699e+01_rb,0.11925e+01_rb, &\n        & 0.12340e+01_rb,0.12487e+01_rb,0.13193e+01_rb,0.15024e+01_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.14884e+01_rb,0.13036e+01_rb,0.12176e+01_rb,0.11665e+01_rb,0.11942e+01_rb, &\n        & 0.12376e+01_rb,0.12478e+01_rb,0.13196e+01_rb,0.15020e+01_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.14762e+01_rb,0.12929e+01_rb,0.12082e+01_rb,0.11628e+01_rb,0.11911e+01_rb, &\n        & 0.12406e+01_rb,0.12476e+01_rb,0.13168e+01_rb,0.15001e+01_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.14614e+01_rb,0.12800e+01_rb,0.11975e+01_rb,0.11575e+01_rb,0.11857e+01_rb, &\n        & 0.12414e+01_rb,0.12460e+01_rb,0.13124e+01_rb,0.14945e+01_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.15822e+01_rb,0.13890e+01_rb,0.13182e+01_rb,0.12547e+01_rb,0.12476e+01_rb, &\n        & 0.12873e+01_rb,0.13056e+01_rb,0.13300e+01_rb,0.15181e+01_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.15752e+01_rb,0.13826e+01_rb,0.13120e+01_rb,0.12557e+01_rb,0.12556e+01_rb, &\n        & 0.12906e+01_rb,0.13067e+01_rb,0.13310e+01_rb,0.15193e+01_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.15647e+01_rb,0.13732e+01_rb,0.13046e+01_rb,0.12538e+01_rb,0.12575e+01_rb, &\n        & 0.12941e+01_rb,0.13084e+01_rb,0.13307e+01_rb,0.15193e+01_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.15514e+01_rb,0.13616e+01_rb,0.12950e+01_rb,0.12500e+01_rb,0.12556e+01_rb, &\n        & 0.12989e+01_rb,0.13088e+01_rb,0.13292e+01_rb,0.15174e+01_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.15358e+01_rb,0.13480e+01_rb,0.12843e+01_rb,0.12443e+01_rb,0.12517e+01_rb, &\n        & 0.13009e+01_rb,0.13074e+01_rb,0.13265e+01_rb,0.15142e+01_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.16350e+01_rb,0.14490e+01_rb,0.13916e+01_rb,0.13443e+01_rb,0.13174e+01_rb, &\n        & 0.13244e+01_rb,0.13476e+01_rb,0.13365e+01_rb,0.15180e+01_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.16281e+01_rb,0.14425e+01_rb,0.13866e+01_rb,0.13479e+01_rb,0.13260e+01_rb, &\n        & 0.13268e+01_rb,0.13503e+01_rb,0.13390e+01_rb,0.15205e+01_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.16161e+01_rb,0.14310e+01_rb,0.13789e+01_rb,0.13476e+01_rb,0.13293e+01_rb, &\n        & 0.13314e+01_rb,0.13532e+01_rb,0.13408e+01_rb,0.15220e+01_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.16014e+01_rb,0.14178e+01_rb,0.13691e+01_rb,0.13444e+01_rb,0.13282e+01_rb, &\n        & 0.13379e+01_rb,0.13534e+01_rb,0.13410e+01_rb,0.15212e+01_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.15848e+01_rb,0.14026e+01_rb,0.13577e+01_rb,0.13378e+01_rb,0.13257e+01_rb, &\n        & 0.13408e+01_rb,0.13534e+01_rb,0.13387e+01_rb,0.15183e+01_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.16591e+01_rb,0.14947e+01_rb,0.14480e+01_rb,0.14262e+01_rb,0.13903e+01_rb, &\n        & 0.13587e+01_rb,0.13777e+01_rb,0.13491e+01_rb,0.15046e+01_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.16509e+01_rb,0.14862e+01_rb,0.14440e+01_rb,0.14316e+01_rb,0.13991e+01_rb, &\n        & 0.13598e+01_rb,0.13805e+01_rb,0.13541e+01_rb,0.15083e+01_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.16386e+01_rb,0.14750e+01_rb,0.14364e+01_rb,0.14307e+01_rb,0.14045e+01_rb, &\n        & 0.13655e+01_rb,0.13826e+01_rb,0.13579e+01_rb,0.15118e+01_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.16229e+01_rb,0.14605e+01_rb,0.14277e+01_rb,0.14269e+01_rb,0.14036e+01_rb, &\n        & 0.13722e+01_rb,0.13840e+01_rb,0.13579e+01_rb,0.15115e+01_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.16043e+01_rb,0.14439e+01_rb,0.14169e+01_rb,0.14203e+01_rb,0.14024e+01_rb, &\n        & 0.13765e+01_rb,0.13831e+01_rb,0.13575e+01_rb,0.15115e+01_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.16482e+01_rb,0.15147e+01_rb,0.14918e+01_rb,0.14883e+01_rb,0.14555e+01_rb, &\n        & 0.14030e+01_rb,0.13913e+01_rb,0.13585e+01_rb,0.14685e+01_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.16385e+01_rb,0.15059e+01_rb,0.14880e+01_rb,0.14958e+01_rb,0.14629e+01_rb, &\n        & 0.14056e+01_rb,0.13940e+01_rb,0.13659e+01_rb,0.14762e+01_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.16253e+01_rb,0.14941e+01_rb,0.14803e+01_rb,0.14965e+01_rb,0.14689e+01_rb, &\n        & 0.14106e+01_rb,0.13970e+01_rb,0.13717e+01_rb,0.14817e+01_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.16089e+01_rb,0.14791e+01_rb,0.14713e+01_rb,0.14908e+01_rb,0.14702e+01_rb, &\n        & 0.14165e+01_rb,0.13983e+01_rb,0.13748e+01_rb,0.14851e+01_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.15910e+01_rb,0.14633e+01_rb,0.14618e+01_rb,0.14838e+01_rb,0.14693e+01_rb, &\n        & 0.14213e+01_rb,0.13976e+01_rb,0.13770e+01_rb,0.14876e+01_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.16064e+01_rb,0.15086e+01_rb,0.15144e+01_rb,0.15268e+01_rb,0.15040e+01_rb, &\n        & 0.14507e+01_rb,0.13904e+01_rb,0.13521e+01_rb,0.14179e+01_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.15953e+01_rb,0.14985e+01_rb,0.15140e+01_rb,0.15345e+01_rb,0.15085e+01_rb, &\n        & 0.14549e+01_rb,0.13952e+01_rb,0.13604e+01_rb,0.14259e+01_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.15801e+01_rb,0.14851e+01_rb,0.15073e+01_rb,0.15363e+01_rb,0.15134e+01_rb, &\n        & 0.14598e+01_rb,0.13998e+01_rb,0.13678e+01_rb,0.14328e+01_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.15629e+01_rb,0.14703e+01_rb,0.14995e+01_rb,0.15318e+01_rb,0.15172e+01_rb, &\n        & 0.14656e+01_rb,0.14020e+01_rb,0.13732e+01_rb,0.14388e+01_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.15443e+01_rb,0.14531e+01_rb,0.14892e+01_rb,0.15236e+01_rb,0.15169e+01_rb, &\n        & 0.14692e+01_rb,0.14038e+01_rb,0.13766e+01_rb,0.14425e+01_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.15344e+01_rb,0.14766e+01_rb,0.15157e+01_rb,0.15423e+01_rb,0.15330e+01_rb, &\n        & 0.14811e+01_rb,0.13889e+01_rb,0.13373e+01_rb,0.13698e+01_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.15222e+01_rb,0.14679e+01_rb,0.15175e+01_rb,0.15473e+01_rb,0.15363e+01_rb, &\n        & 0.14872e+01_rb,0.13948e+01_rb,0.13442e+01_rb,0.13786e+01_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.15059e+01_rb,0.14533e+01_rb,0.15144e+01_rb,0.15489e+01_rb,0.15409e+01_rb, &\n        & 0.14932e+01_rb,0.14005e+01_rb,0.13518e+01_rb,0.13861e+01_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.14877e+01_rb,0.14368e+01_rb,0.15058e+01_rb,0.15451e+01_rb,0.15445e+01_rb, &\n        & 0.14989e+01_rb,0.14044e+01_rb,0.13574e+01_rb,0.13922e+01_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.14686e+01_rb,0.14200e+01_rb,0.14953e+01_rb,0.15388e+01_rb,0.15447e+01_rb, &\n        & 0.15024e+01_rb,0.14082e+01_rb,0.13605e+01_rb,0.13964e+01_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.14373e+01_rb,0.14266e+01_rb,0.14938e+01_rb,0.15367e+01_rb,0.15341e+01_rb, &\n        & 0.14871e+01_rb,0.13939e+01_rb,0.13173e+01_rb,0.13285e+01_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.14250e+01_rb,0.14168e+01_rb,0.14968e+01_rb,0.15390e+01_rb,0.15386e+01_rb, &\n        & 0.14934e+01_rb,0.13987e+01_rb,0.13260e+01_rb,0.13388e+01_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.14085e+01_rb,0.14020e+01_rb,0.14946e+01_rb,0.15393e+01_rb,0.15430e+01_rb, &\n        & 0.14996e+01_rb,0.14050e+01_rb,0.13340e+01_rb,0.13471e+01_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.13898e+01_rb,0.13862e+01_rb,0.14874e+01_rb,0.15365e+01_rb,0.15469e+01_rb, &\n        & 0.15061e+01_rb,0.14095e+01_rb,0.13387e+01_rb,0.13529e+01_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.13711e+01_rb,0.13694e+01_rb,0.14772e+01_rb,0.15321e+01_rb,0.15481e+01_rb, &\n        & 0.15103e+01_rb,0.14136e+01_rb,0.13413e+01_rb,0.13557e+01_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.13234e+01_rb,0.13585e+01_rb,0.14531e+01_rb,0.15073e+01_rb,0.15094e+01_rb, &\n        & 0.14728e+01_rb,0.13972e+01_rb,0.12936e+01_rb,0.12835e+01_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.13109e+01_rb,0.13494e+01_rb,0.14540e+01_rb,0.15085e+01_rb,0.15139e+01_rb, &\n        & 0.14784e+01_rb,0.14019e+01_rb,0.13047e+01_rb,0.12968e+01_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.12956e+01_rb,0.13371e+01_rb,0.14504e+01_rb,0.15092e+01_rb,0.15192e+01_rb, &\n        & 0.14835e+01_rb,0.14094e+01_rb,0.13136e+01_rb,0.13076e+01_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.12784e+01_rb,0.13237e+01_rb,0.14435e+01_rb,0.15071e+01_rb,0.15234e+01_rb, &\n        & 0.14905e+01_rb,0.14145e+01_rb,0.13190e+01_rb,0.13139e+01_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.12607e+01_rb,0.13090e+01_rb,0.14344e+01_rb,0.15038e+01_rb,0.15261e+01_rb, &\n        & 0.14956e+01_rb,0.14181e+01_rb,0.13210e+01_rb,0.13178e+01_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.12047e+01_rb,0.12789e+01_rb,0.13923e+01_rb,0.14530e+01_rb,0.14659e+01_rb, &\n        & 0.14483e+01_rb,0.13898e+01_rb,0.12749e+01_rb,0.12386e+01_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.11911e+01_rb,0.12701e+01_rb,0.13902e+01_rb,0.14549e+01_rb,0.14710e+01_rb, &\n        & 0.14517e+01_rb,0.13981e+01_rb,0.12874e+01_rb,0.12546e+01_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.11768e+01_rb,0.12599e+01_rb,0.13852e+01_rb,0.14552e+01_rb,0.14760e+01_rb, &\n        & 0.14581e+01_rb,0.14056e+01_rb,0.12968e+01_rb,0.12644e+01_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.11609e+01_rb,0.12491e+01_rb,0.13785e+01_rb,0.14542e+01_rb,0.14794e+01_rb, &\n        & 0.14643e+01_rb,0.14106e+01_rb,0.13015e+01_rb,0.12707e+01_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.11453e+01_rb,0.12370e+01_rb,0.13722e+01_rb,0.14526e+01_rb,0.14820e+01_rb, &\n        & 0.14680e+01_rb,0.14139e+01_rb,0.13041e+01_rb,0.12775e+01_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.10892e+01_rb,0.11978e+01_rb,0.13175e+01_rb,0.13800e+01_rb,0.14113e+01_rb, &\n        & 0.14104e+01_rb,0.13697e+01_rb,0.12563e+01_rb,0.11895e+01_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.10764e+01_rb,0.11912e+01_rb,0.13142e+01_rb,0.13828e+01_rb,0.14151e+01_rb, &\n        & 0.14161e+01_rb,0.13800e+01_rb,0.12704e+01_rb,0.12046e+01_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.10634e+01_rb,0.11835e+01_rb,0.13099e+01_rb,0.13835e+01_rb,0.14196e+01_rb, &\n        & 0.14241e+01_rb,0.13887e+01_rb,0.12786e+01_rb,0.12148e+01_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.10495e+01_rb,0.11751e+01_rb,0.13057e+01_rb,0.13846e+01_rb,0.14230e+01_rb, &\n        & 0.14300e+01_rb,0.13945e+01_rb,0.12836e+01_rb,0.12244e+01_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.10406e+01_rb,0.11650e+01_rb,0.13011e+01_rb,0.13864e+01_rb,0.14254e+01_rb, &\n        & 0.14322e+01_rb,0.13980e+01_rb,0.12878e+01_rb,0.12342e+01_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.97671e+00_rb,0.11194e+01_rb,0.12352e+01_rb,0.13029e+01_rb,0.13468e+01_rb, &\n        & 0.13623e+01_rb,0.13355e+01_rb,0.12363e+01_rb,0.11351e+01_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.96514e+00_rb,0.11135e+01_rb,0.12326e+01_rb,0.13049e+01_rb,0.13523e+01_rb, &\n        & 0.13721e+01_rb,0.13488e+01_rb,0.12496e+01_rb,0.11500e+01_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.95350e+00_rb,0.11073e+01_rb,0.12308e+01_rb,0.13063e+01_rb,0.13575e+01_rb, &\n        & 0.13815e+01_rb,0.13588e+01_rb,0.12584e+01_rb,0.11629e+01_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.94648e+00_rb,0.11002e+01_rb,0.12294e+01_rb,0.13087e+01_rb,0.13617e+01_rb, &\n        & 0.13873e+01_rb,0.13660e+01_rb,0.12653e+01_rb,0.11761e+01_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.94953e+00_rb,0.10941e+01_rb,0.12277e+01_rb,0.13116e+01_rb,0.13645e+01_rb, &\n        & 0.13901e+01_rb,0.13713e+01_rb,0.12717e+01_rb,0.11896e+01_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.21877e+01_rb,0.19168e+01_rb,0.16830e+01_rb,0.16306e+01_rb,0.15763e+01_rb, &\n        & 0.15398e+01_rb,0.15859e+01_rb,0.18468e+01_rb,0.20593e+01_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.22022e+01_rb,0.19296e+01_rb,0.16916e+01_rb,0.16400e+01_rb,0.15796e+01_rb, &\n        & 0.15432e+01_rb,0.15912e+01_rb,0.18534e+01_rb,0.20655e+01_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.22022e+01_rb,0.19297e+01_rb,0.16911e+01_rb,0.16436e+01_rb,0.15885e+01_rb, &\n        & 0.15469e+01_rb,0.15941e+01_rb,0.18569e+01_rb,0.20695e+01_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.21895e+01_rb,0.19186e+01_rb,0.16803e+01_rb,0.16425e+01_rb,0.15962e+01_rb, &\n        & 0.15525e+01_rb,0.15947e+01_rb,0.18575e+01_rb,0.20703e+01_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.21697e+01_rb,0.19013e+01_rb,0.16648e+01_rb,0.16344e+01_rb,0.16003e+01_rb, &\n        & 0.15574e+01_rb,0.15941e+01_rb,0.18572e+01_rb,0.20709e+01_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.22550e+01_rb,0.19753e+01_rb,0.17734e+01_rb,0.17443e+01_rb,0.17102e+01_rb, &\n        & 0.16986e+01_rb,0.17217e+01_rb,0.19863e+01_rb,0.22329e+01_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.22679e+01_rb,0.19867e+01_rb,0.17791e+01_rb,0.17520e+01_rb,0.17112e+01_rb, &\n        & 0.17026e+01_rb,0.17283e+01_rb,0.19934e+01_rb,0.22409e+01_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.22698e+01_rb,0.19883e+01_rb,0.17767e+01_rb,0.17568e+01_rb,0.17174e+01_rb, &\n        & 0.17053e+01_rb,0.17318e+01_rb,0.19966e+01_rb,0.22448e+01_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.22597e+01_rb,0.19796e+01_rb,0.17668e+01_rb,0.17548e+01_rb,0.17261e+01_rb, &\n        & 0.17073e+01_rb,0.17314e+01_rb,0.19968e+01_rb,0.22451e+01_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.22409e+01_rb,0.19632e+01_rb,0.17511e+01_rb,0.17475e+01_rb,0.17318e+01_rb, &\n        & 0.17099e+01_rb,0.17295e+01_rb,0.19947e+01_rb,0.22431e+01_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.23526e+01_rb,0.20603e+01_rb,0.18829e+01_rb,0.18493e+01_rb,0.18420e+01_rb, &\n        & 0.18637e+01_rb,0.18729e+01_rb,0.21122e+01_rb,0.23977e+01_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.23692e+01_rb,0.20749e+01_rb,0.18925e+01_rb,0.18515e+01_rb,0.18400e+01_rb, &\n        & 0.18683e+01_rb,0.18793e+01_rb,0.21211e+01_rb,0.24079e+01_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.23722e+01_rb,0.20775e+01_rb,0.18924e+01_rb,0.18562e+01_rb,0.18451e+01_rb, &\n        & 0.18704e+01_rb,0.18820e+01_rb,0.21249e+01_rb,0.24125e+01_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.23635e+01_rb,0.20699e+01_rb,0.18842e+01_rb,0.18555e+01_rb,0.18524e+01_rb, &\n        & 0.18695e+01_rb,0.18827e+01_rb,0.21252e+01_rb,0.24130e+01_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.23480e+01_rb,0.20564e+01_rb,0.18701e+01_rb,0.18499e+01_rb,0.18587e+01_rb, &\n        & 0.18689e+01_rb,0.18824e+01_rb,0.21250e+01_rb,0.24123e+01_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.24939e+01_rb,0.21837e+01_rb,0.20232e+01_rb,0.19589e+01_rb,0.19737e+01_rb, &\n        & 0.20251e+01_rb,0.20263e+01_rb,0.22145e+01_rb,0.25248e+01_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.25110e+01_rb,0.21986e+01_rb,0.20314e+01_rb,0.19589e+01_rb,0.19697e+01_rb, &\n        & 0.20307e+01_rb,0.20352e+01_rb,0.22253e+01_rb,0.25374e+01_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.25161e+01_rb,0.22032e+01_rb,0.20346e+01_rb,0.19625e+01_rb,0.19727e+01_rb, &\n        & 0.20334e+01_rb,0.20403e+01_rb,0.22301e+01_rb,0.25429e+01_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.25095e+01_rb,0.21974e+01_rb,0.20283e+01_rb,0.19657e+01_rb,0.19780e+01_rb, &\n        & 0.20313e+01_rb,0.20420e+01_rb,0.22330e+01_rb,0.25458e+01_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.24957e+01_rb,0.21853e+01_rb,0.20162e+01_rb,0.19613e+01_rb,0.19825e+01_rb, &\n        & 0.20289e+01_rb,0.20423e+01_rb,0.22370e+01_rb,0.25500e+01_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.26637e+01_rb,0.23330e+01_rb,0.21864e+01_rb,0.20904e+01_rb,0.21013e+01_rb, &\n        & 0.21699e+01_rb,0.21691e+01_rb,0.22859e+01_rb,0.26102e+01_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.26795e+01_rb,0.23466e+01_rb,0.21930e+01_rb,0.20883e+01_rb,0.21007e+01_rb, &\n        & 0.21775e+01_rb,0.21807e+01_rb,0.22957e+01_rb,0.26216e+01_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.26872e+01_rb,0.23531e+01_rb,0.22001e+01_rb,0.20926e+01_rb,0.21029e+01_rb, &\n        & 0.21797e+01_rb,0.21879e+01_rb,0.23020e+01_rb,0.26289e+01_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.26803e+01_rb,0.23471e+01_rb,0.21948e+01_rb,0.20970e+01_rb,0.21069e+01_rb, &\n        & 0.21770e+01_rb,0.21901e+01_rb,0.23087e+01_rb,0.26364e+01_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.26667e+01_rb,0.23351e+01_rb,0.21832e+01_rb,0.20959e+01_rb,0.21091e+01_rb, &\n        & 0.21729e+01_rb,0.21936e+01_rb,0.23158e+01_rb,0.26444e+01_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.28246e+01_rb,0.24844e+01_rb,0.23554e+01_rb,0.22494e+01_rb,0.22325e+01_rb, &\n        & 0.22877e+01_rb,0.22925e+01_rb,0.23319e+01_rb,0.26619e+01_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.28376e+01_rb,0.24941e+01_rb,0.23589e+01_rb,0.22458e+01_rb,0.22369e+01_rb, &\n        & 0.22959e+01_rb,0.23048e+01_rb,0.23408e+01_rb,0.26720e+01_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.28468e+01_rb,0.25010e+01_rb,0.23646e+01_rb,0.22473e+01_rb,0.22379e+01_rb, &\n        & 0.22992e+01_rb,0.23116e+01_rb,0.23486e+01_rb,0.26812e+01_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.28432e+01_rb,0.24967e+01_rb,0.23643e+01_rb,0.22531e+01_rb,0.22409e+01_rb, &\n        & 0.22981e+01_rb,0.23157e+01_rb,0.23572e+01_rb,0.26911e+01_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.28266e+01_rb,0.24816e+01_rb,0.23521e+01_rb,0.22549e+01_rb,0.22433e+01_rb, &\n        & 0.22953e+01_rb,0.23213e+01_rb,0.23655e+01_rb,0.27010e+01_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.29507e+01_rb,0.26186e+01_rb,0.25154e+01_rb,0.24214e+01_rb,0.23698e+01_rb, &\n        & 0.23809e+01_rb,0.23936e+01_rb,0.23723e+01_rb,0.26904e+01_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.29579e+01_rb,0.26218e+01_rb,0.25131e+01_rb,0.24179e+01_rb,0.23791e+01_rb, &\n        & 0.23895e+01_rb,0.24036e+01_rb,0.23830e+01_rb,0.27026e+01_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.29645e+01_rb,0.26250e+01_rb,0.25156e+01_rb,0.24180e+01_rb,0.23828e+01_rb, &\n        & 0.23929e+01_rb,0.24104e+01_rb,0.23923e+01_rb,0.27131e+01_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.29630e+01_rb,0.26222e+01_rb,0.25142e+01_rb,0.24231e+01_rb,0.23851e+01_rb, &\n        & 0.23923e+01_rb,0.24170e+01_rb,0.24017e+01_rb,0.27241e+01_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.29476e+01_rb,0.26071e+01_rb,0.25053e+01_rb,0.24267e+01_rb,0.23855e+01_rb, &\n        & 0.23922e+01_rb,0.24228e+01_rb,0.24116e+01_rb,0.27361e+01_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.30283e+01_rb,0.27271e+01_rb,0.26499e+01_rb,0.25812e+01_rb,0.25068e+01_rb, &\n        & 0.24674e+01_rb,0.24700e+01_rb,0.24088e+01_rb,0.26873e+01_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.30302e+01_rb,0.27229e+01_rb,0.26429e+01_rb,0.25805e+01_rb,0.25199e+01_rb, &\n        & 0.24758e+01_rb,0.24797e+01_rb,0.24223e+01_rb,0.27017e+01_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.30313e+01_rb,0.27198e+01_rb,0.26386e+01_rb,0.25814e+01_rb,0.25257e+01_rb, &\n        & 0.24788e+01_rb,0.24874e+01_rb,0.24335e+01_rb,0.27156e+01_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.30296e+01_rb,0.27153e+01_rb,0.26358e+01_rb,0.25865e+01_rb,0.25285e+01_rb, &\n        & 0.24798e+01_rb,0.24941e+01_rb,0.24451e+01_rb,0.27296e+01_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.30139e+01_rb,0.26994e+01_rb,0.26290e+01_rb,0.25893e+01_rb,0.25296e+01_rb, &\n        & 0.24809e+01_rb,0.25004e+01_rb,0.24568e+01_rb,0.27436e+01_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.30493e+01_rb,0.27941e+01_rb,0.27550e+01_rb,0.27119e+01_rb,0.26405e+01_rb, &\n        & 0.25561e+01_rb,0.25144e+01_rb,0.24302e+01_rb,0.26456e+01_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.30457e+01_rb,0.27865e+01_rb,0.27445e+01_rb,0.27145e+01_rb,0.26540e+01_rb, &\n        & 0.25649e+01_rb,0.25264e+01_rb,0.24468e+01_rb,0.26636e+01_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.30433e+01_rb,0.27809e+01_rb,0.27367e+01_rb,0.27179e+01_rb,0.26606e+01_rb, &\n        & 0.25683e+01_rb,0.25354e+01_rb,0.24613e+01_rb,0.26815e+01_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.30389e+01_rb,0.27734e+01_rb,0.27309e+01_rb,0.27229e+01_rb,0.26627e+01_rb, &\n        & 0.25715e+01_rb,0.25441e+01_rb,0.24765e+01_rb,0.27005e+01_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.30246e+01_rb,0.27583e+01_rb,0.27239e+01_rb,0.27244e+01_rb,0.26642e+01_rb, &\n        & 0.25740e+01_rb,0.25518e+01_rb,0.24921e+01_rb,0.27199e+01_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.30121e+01_rb,0.28154e+01_rb,0.28201e+01_rb,0.28057e+01_rb,0.27531e+01_rb, &\n        & 0.26438e+01_rb,0.25360e+01_rb,0.24395e+01_rb,0.25814e+01_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.30058e+01_rb,0.28055e+01_rb,0.28091e+01_rb,0.28117e+01_rb,0.27659e+01_rb, &\n        & 0.26536e+01_rb,0.25505e+01_rb,0.24578e+01_rb,0.26020e+01_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.29984e+01_rb,0.27957e+01_rb,0.28033e+01_rb,0.28172e+01_rb,0.27717e+01_rb, &\n        & 0.26597e+01_rb,0.25631e+01_rb,0.24765e+01_rb,0.26239e+01_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.29909e+01_rb,0.27859e+01_rb,0.27980e+01_rb,0.28231e+01_rb,0.27737e+01_rb, &\n        & 0.26641e+01_rb,0.25752e+01_rb,0.24953e+01_rb,0.26473e+01_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.29757e+01_rb,0.27703e+01_rb,0.27906e+01_rb,0.28248e+01_rb,0.27751e+01_rb, &\n        & 0.26687e+01_rb,0.25862e+01_rb,0.25141e+01_rb,0.26704e+01_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.29105e+01_rb,0.27849e+01_rb,0.28418e+01_rb,0.28641e+01_rb,0.28368e+01_rb, &\n        & 0.27205e+01_rb,0.25555e+01_rb,0.24401e+01_rb,0.25196e+01_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.29013e+01_rb,0.27742e+01_rb,0.28363e+01_rb,0.28719e+01_rb,0.28460e+01_rb, &\n        & 0.27321e+01_rb,0.25730e+01_rb,0.24607e+01_rb,0.25412e+01_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.28911e+01_rb,0.27633e+01_rb,0.28321e+01_rb,0.28799e+01_rb,0.28506e+01_rb, &\n        & 0.27417e+01_rb,0.25892e+01_rb,0.24813e+01_rb,0.25665e+01_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.28805e+01_rb,0.27495e+01_rb,0.28275e+01_rb,0.28852e+01_rb,0.28551e+01_rb, &\n        & 0.27503e+01_rb,0.26048e+01_rb,0.25023e+01_rb,0.25905e+01_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.28607e+01_rb,0.27299e+01_rb,0.28179e+01_rb,0.28868e+01_rb,0.28597e+01_rb, &\n        & 0.27578e+01_rb,0.26198e+01_rb,0.25207e+01_rb,0.26120e+01_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.27583e+01_rb,0.27145e+01_rb,0.28231e+01_rb,0.28871e+01_rb,0.28764e+01_rb, &\n        & 0.27674e+01_rb,0.25743e+01_rb,0.24278e+01_rb,0.24570e+01_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.27477e+01_rb,0.27023e+01_rb,0.28226e+01_rb,0.28962e+01_rb,0.28884e+01_rb, &\n        & 0.27832e+01_rb,0.25939e+01_rb,0.24483e+01_rb,0.24817e+01_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.27363e+01_rb,0.26890e+01_rb,0.28229e+01_rb,0.29041e+01_rb,0.28966e+01_rb, &\n        & 0.27972e+01_rb,0.26117e+01_rb,0.24706e+01_rb,0.25053e+01_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.27215e+01_rb,0.26719e+01_rb,0.28199e+01_rb,0.29098e+01_rb,0.29044e+01_rb, &\n        & 0.28097e+01_rb,0.26305e+01_rb,0.24926e+01_rb,0.25297e+01_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.27019e+01_rb,0.26521e+01_rb,0.28123e+01_rb,0.29106e+01_rb,0.29127e+01_rb, &\n        & 0.28234e+01_rb,0.26485e+01_rb,0.25112e+01_rb,0.25512e+01_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.25703e+01_rb,0.26073e+01_rb,0.27736e+01_rb,0.28686e+01_rb,0.28762e+01_rb, &\n        & 0.27819e+01_rb,0.25967e+01_rb,0.24069e+01_rb,0.23967e+01_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.25597e+01_rb,0.25968e+01_rb,0.27777e+01_rb,0.28810e+01_rb,0.28904e+01_rb, &\n        & 0.28011e+01_rb,0.26158e+01_rb,0.24298e+01_rb,0.24224e+01_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.25492e+01_rb,0.25857e+01_rb,0.27800e+01_rb,0.28929e+01_rb,0.29040e+01_rb, &\n        & 0.28202e+01_rb,0.26351e+01_rb,0.24527e+01_rb,0.24494e+01_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.25336e+01_rb,0.25705e+01_rb,0.27801e+01_rb,0.29008e+01_rb,0.29182e+01_rb, &\n        & 0.28403e+01_rb,0.26542e+01_rb,0.24758e+01_rb,0.24745e+01_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.25174e+01_rb,0.25538e+01_rb,0.27760e+01_rb,0.29061e+01_rb,0.29321e+01_rb, &\n        & 0.28592e+01_rb,0.26728e+01_rb,0.24954e+01_rb,0.24962e+01_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.34915e+01_rb,0.30588e+01_rb,0.26262e+01_rb,0.23144e+01_rb,0.22122e+01_rb, &\n        & 0.21892e+01_rb,0.25558e+01_rb,0.29818e+01_rb,0.32991e+01_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.35009e+01_rb,0.30672e+01_rb,0.26335e+01_rb,0.23059e+01_rb,0.22071e+01_rb, &\n        & 0.21796e+01_rb,0.25444e+01_rb,0.29683e+01_rb,0.32820e+01_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.35192e+01_rb,0.30832e+01_rb,0.26472e+01_rb,0.23037e+01_rb,0.22014e+01_rb, &\n        & 0.21706e+01_rb,0.25342e+01_rb,0.29565e+01_rb,0.32692e+01_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.35462e+01_rb,0.31069e+01_rb,0.26676e+01_rb,0.23054e+01_rb,0.21967e+01_rb, &\n        & 0.21619e+01_rb,0.25265e+01_rb,0.29475e+01_rb,0.32591e+01_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.35714e+01_rb,0.31290e+01_rb,0.26866e+01_rb,0.23141e+01_rb,0.21952e+01_rb, &\n        & 0.21552e+01_rb,0.25228e+01_rb,0.29432e+01_rb,0.32501e+01_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.38742e+01_rb,0.33939e+01_rb,0.29135e+01_rb,0.26368e+01_rb,0.25318e+01_rb, &\n        & 0.24566e+01_rb,0.27984e+01_rb,0.32648e+01_rb,0.36583e+01_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.38780e+01_rb,0.33972e+01_rb,0.29165e+01_rb,0.26245e+01_rb,0.25266e+01_rb, &\n        & 0.24447e+01_rb,0.27836e+01_rb,0.32475e+01_rb,0.36397e+01_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.38887e+01_rb,0.34066e+01_rb,0.29246e+01_rb,0.26139e+01_rb,0.25181e+01_rb, &\n        & 0.24355e+01_rb,0.27726e+01_rb,0.32346e+01_rb,0.36242e+01_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.39063e+01_rb,0.34220e+01_rb,0.29378e+01_rb,0.26094e+01_rb,0.25085e+01_rb, &\n        & 0.24291e+01_rb,0.27676e+01_rb,0.32288e+01_rb,0.36150e+01_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.39241e+01_rb,0.34376e+01_rb,0.29511e+01_rb,0.26073e+01_rb,0.25021e+01_rb, &\n        & 0.24243e+01_rb,0.27677e+01_rb,0.32289e+01_rb,0.36134e+01_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.42487e+01_rb,0.37216e+01_rb,0.32039e+01_rb,0.29799e+01_rb,0.28758e+01_rb, &\n        & 0.27551e+01_rb,0.30498e+01_rb,0.35581e+01_rb,0.40304e+01_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.42439e+01_rb,0.37174e+01_rb,0.31977e+01_rb,0.29675e+01_rb,0.28698e+01_rb, &\n        & 0.27440e+01_rb,0.30347e+01_rb,0.35405e+01_rb,0.40101e+01_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.42511e+01_rb,0.37238e+01_rb,0.32007e+01_rb,0.29528e+01_rb,0.28598e+01_rb, &\n        & 0.27364e+01_rb,0.30269e+01_rb,0.35313e+01_rb,0.39978e+01_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.42624e+01_rb,0.37337e+01_rb,0.32078e+01_rb,0.29428e+01_rb,0.28469e+01_rb, &\n        & 0.27311e+01_rb,0.30242e+01_rb,0.35281e+01_rb,0.39928e+01_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.42720e+01_rb,0.37420e+01_rb,0.32138e+01_rb,0.29343e+01_rb,0.28324e+01_rb, &\n        & 0.27276e+01_rb,0.30224e+01_rb,0.35261e+01_rb,0.39910e+01_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.45954e+01_rb,0.40249e+01_rb,0.35022e+01_rb,0.33403e+01_rb,0.32328e+01_rb, &\n        & 0.30833e+01_rb,0.33112e+01_rb,0.38621e+01_rb,0.43957e+01_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.45847e+01_rb,0.40157e+01_rb,0.34904e+01_rb,0.33265e+01_rb,0.32256e+01_rb, &\n        & 0.30748e+01_rb,0.32975e+01_rb,0.38466e+01_rb,0.43773e+01_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.45864e+01_rb,0.40172e+01_rb,0.34822e+01_rb,0.33081e+01_rb,0.32132e+01_rb, &\n        & 0.30693e+01_rb,0.32915e+01_rb,0.38399e+01_rb,0.43696e+01_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.45919e+01_rb,0.40220e+01_rb,0.34808e+01_rb,0.32873e+01_rb,0.31989e+01_rb, &\n        & 0.30656e+01_rb,0.32892e+01_rb,0.38374e+01_rb,0.43666e+01_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.45961e+01_rb,0.40254e+01_rb,0.34809e+01_rb,0.32746e+01_rb,0.31817e+01_rb, &\n        & 0.30639e+01_rb,0.32889e+01_rb,0.38370e+01_rb,0.43660e+01_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.49114e+01_rb,0.43012e+01_rb,0.38001e+01_rb,0.37007e+01_rb,0.36023e+01_rb, &\n        & 0.34476e+01_rb,0.35973e+01_rb,0.41814e+01_rb,0.47692e+01_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.49023e+01_rb,0.42934e+01_rb,0.37862e+01_rb,0.36850e+01_rb,0.35912e+01_rb, &\n        & 0.34412e+01_rb,0.35890e+01_rb,0.41727e+01_rb,0.47592e+01_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.48929e+01_rb,0.42852e+01_rb,0.37666e+01_rb,0.36647e+01_rb,0.35739e+01_rb, &\n        & 0.34368e+01_rb,0.35843e+01_rb,0.41678e+01_rb,0.47530e+01_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.48957e+01_rb,0.42875e+01_rb,0.37577e+01_rb,0.36399e+01_rb,0.35570e+01_rb, &\n        & 0.34352e+01_rb,0.35822e+01_rb,0.41658e+01_rb,0.47507e+01_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.48955e+01_rb,0.42870e+01_rb,0.37502e+01_rb,0.36181e+01_rb,0.35379e+01_rb, &\n        & 0.34333e+01_rb,0.35807e+01_rb,0.41639e+01_rb,0.47483e+01_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.52336e+01_rb,0.45828e+01_rb,0.41059e+01_rb,0.40455e+01_rb,0.39709e+01_rb, &\n        & 0.38438e+01_rb,0.39195e+01_rb,0.45101e+01_rb,0.51488e+01_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.52264e+01_rb,0.45766e+01_rb,0.40903e+01_rb,0.40272e+01_rb,0.39556e+01_rb, &\n        & 0.38368e+01_rb,0.39154e+01_rb,0.45074e+01_rb,0.51460e+01_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.52116e+01_rb,0.45637e+01_rb,0.40682e+01_rb,0.40069e+01_rb,0.39387e+01_rb, &\n        & 0.38311e+01_rb,0.39117e+01_rb,0.45034e+01_rb,0.51413e+01_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.52061e+01_rb,0.45585e+01_rb,0.40484e+01_rb,0.39793e+01_rb,0.39195e+01_rb, &\n        & 0.38275e+01_rb,0.39110e+01_rb,0.45018e+01_rb,0.51396e+01_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.52033e+01_rb,0.45559e+01_rb,0.40356e+01_rb,0.39520e+01_rb,0.38983e+01_rb, &\n        & 0.38238e+01_rb,0.39105e+01_rb,0.45008e+01_rb,0.51385e+01_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.55789e+01_rb,0.48845e+01_rb,0.44392e+01_rb,0.43787e+01_rb,0.43341e+01_rb, &\n        & 0.42496e+01_rb,0.42580e+01_rb,0.48177e+01_rb,0.55034e+01_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.55750e+01_rb,0.48811e+01_rb,0.44216e+01_rb,0.43602e+01_rb,0.43147e+01_rb, &\n        & 0.42460e+01_rb,0.42594e+01_rb,0.48202e+01_rb,0.55064e+01_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.55641e+01_rb,0.48716e+01_rb,0.43996e+01_rb,0.43387e+01_rb,0.42975e+01_rb, &\n        & 0.42414e+01_rb,0.42613e+01_rb,0.48234e+01_rb,0.55098e+01_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.55497e+01_rb,0.48588e+01_rb,0.43740e+01_rb,0.43098e+01_rb,0.42767e+01_rb, &\n        & 0.42365e+01_rb,0.42657e+01_rb,0.48283e+01_rb,0.55153e+01_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.55426e+01_rb,0.48524e+01_rb,0.43530e+01_rb,0.42800e+01_rb,0.42577e+01_rb, &\n        & 0.42309e+01_rb,0.42668e+01_rb,0.48295e+01_rb,0.55168e+01_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.59399e+01_rb,0.51999e+01_rb,0.48042e+01_rb,0.47185e+01_rb,0.46865e+01_rb, &\n        & 0.46496e+01_rb,0.46000e+01_rb,0.50897e+01_rb,0.58161e+01_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.59397e+01_rb,0.51999e+01_rb,0.47874e+01_rb,0.46998e+01_rb,0.46665e+01_rb, &\n        & 0.46493e+01_rb,0.46097e+01_rb,0.50997e+01_rb,0.58275e+01_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.59349e+01_rb,0.51955e+01_rb,0.47656e+01_rb,0.46767e+01_rb,0.46485e+01_rb, &\n        & 0.46473e+01_rb,0.46203e+01_rb,0.51120e+01_rb,0.58414e+01_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.59186e+01_rb,0.51811e+01_rb,0.47381e+01_rb,0.46470e+01_rb,0.46283e+01_rb, &\n        & 0.46432e+01_rb,0.46335e+01_rb,0.51262e+01_rb,0.58574e+01_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.59097e+01_rb,0.51733e+01_rb,0.47110e+01_rb,0.46158e+01_rb,0.46095e+01_rb, &\n        & 0.46379e+01_rb,0.46369e+01_rb,0.51321e+01_rb,0.58644e+01_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.63127e+01_rb,0.55322e+01_rb,0.51834e+01_rb,0.50691e+01_rb,0.50247e+01_rb, &\n        & 0.50209e+01_rb,0.49367e+01_rb,0.53236e+01_rb,0.60842e+01_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.63183e+01_rb,0.55346e+01_rb,0.51727e+01_rb,0.50532e+01_rb,0.50080e+01_rb, &\n        & 0.50274e+01_rb,0.49592e+01_rb,0.53436e+01_rb,0.61069e+01_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.63124e+01_rb,0.55272e+01_rb,0.51546e+01_rb,0.50297e+01_rb,0.49909e+01_rb, &\n        & 0.50310e+01_rb,0.49812e+01_rb,0.53668e+01_rb,0.61332e+01_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.63001e+01_rb,0.55154e+01_rb,0.51286e+01_rb,0.50009e+01_rb,0.49750e+01_rb, &\n        & 0.50299e+01_rb,0.49995e+01_rb,0.53888e+01_rb,0.61587e+01_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.62858e+01_rb,0.55023e+01_rb,0.50977e+01_rb,0.49708e+01_rb,0.49573e+01_rb, &\n        & 0.50270e+01_rb,0.50058e+01_rb,0.53988e+01_rb,0.61697e+01_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.66894e+01_rb,0.58832e+01_rb,0.55701e+01_rb,0.54237e+01_rb,0.53594e+01_rb, &\n        & 0.53556e+01_rb,0.52686e+01_rb,0.55192e+01_rb,0.63037e+01_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.66981e+01_rb,0.58851e+01_rb,0.55643e+01_rb,0.54120e+01_rb,0.53500e+01_rb, &\n        & 0.53705e+01_rb,0.53019e+01_rb,0.55500e+01_rb,0.63389e+01_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.66967e+01_rb,0.58795e+01_rb,0.55464e+01_rb,0.53921e+01_rb,0.53372e+01_rb, &\n        & 0.53796e+01_rb,0.53288e+01_rb,0.55798e+01_rb,0.63734e+01_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.66854e+01_rb,0.58646e+01_rb,0.55228e+01_rb,0.53676e+01_rb,0.53254e+01_rb, &\n        & 0.53837e+01_rb,0.53529e+01_rb,0.56104e+01_rb,0.64086e+01_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.66717e+01_rb,0.58486e+01_rb,0.54914e+01_rb,0.53392e+01_rb,0.53082e+01_rb, &\n        & 0.53849e+01_rb,0.53627e+01_rb,0.56270e+01_rb,0.64281e+01_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.70715e+01_rb,0.62495e+01_rb,0.59582e+01_rb,0.57869e+01_rb,0.56930e+01_rb, &\n        & 0.56655e+01_rb,0.56036e+01_rb,0.57057e+01_rb,0.64838e+01_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.70771e+01_rb,0.62459e+01_rb,0.59461e+01_rb,0.57734e+01_rb,0.56903e+01_rb, &\n        & 0.56860e+01_rb,0.56380e+01_rb,0.57455e+01_rb,0.65310e+01_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.70723e+01_rb,0.62337e+01_rb,0.59291e+01_rb,0.57507e+01_rb,0.56859e+01_rb, &\n        & 0.56988e+01_rb,0.56691e+01_rb,0.57882e+01_rb,0.65837e+01_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.70579e+01_rb,0.62141e+01_rb,0.59017e+01_rb,0.57243e+01_rb,0.56747e+01_rb, &\n        & 0.57061e+01_rb,0.56917e+01_rb,0.58206e+01_rb,0.66248e+01_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.70436e+01_rb,0.61942e+01_rb,0.58711e+01_rb,0.56953e+01_rb,0.56563e+01_rb, &\n        & 0.57095e+01_rb,0.57007e+01_rb,0.58439e+01_rb,0.66547e+01_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.73996e+01_rb,0.65875e+01_rb,0.63444e+01_rb,0.61468e+01_rb,0.60255e+01_rb, &\n        & 0.59627e+01_rb,0.59009e+01_rb,0.58767e+01_rb,0.66113e+01_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.74059e+01_rb,0.65818e+01_rb,0.63297e+01_rb,0.61319e+01_rb,0.60289e+01_rb, &\n        & 0.59857e+01_rb,0.59393e+01_rb,0.59291e+01_rb,0.66795e+01_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.73985e+01_rb,0.65639e+01_rb,0.63058e+01_rb,0.61104e+01_rb,0.60278e+01_rb, &\n        & 0.60017e+01_rb,0.59765e+01_rb,0.59805e+01_rb,0.67466e+01_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.73888e+01_rb,0.65439e+01_rb,0.62733e+01_rb,0.60850e+01_rb,0.60189e+01_rb, &\n        & 0.60123e+01_rb,0.59968e+01_rb,0.60157e+01_rb,0.67935e+01_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.73717e+01_rb,0.65185e+01_rb,0.62375e+01_rb,0.60536e+01_rb,0.59983e+01_rb, &\n        & 0.60180e+01_rb,0.60067e+01_rb,0.60456e+01_rb,0.68365e+01_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.76469e+01_rb,0.68731e+01_rb,0.66871e+01_rb,0.64997e+01_rb,0.63502e+01_rb, &\n        & 0.62466e+01_rb,0.61469e+01_rb,0.60253e+01_rb,0.66908e+01_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.76513e+01_rb,0.68603e+01_rb,0.66717e+01_rb,0.64853e+01_rb,0.63628e+01_rb, &\n        & 0.62754e+01_rb,0.61942e+01_rb,0.60911e+01_rb,0.67781e+01_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.76480e+01_rb,0.68404e+01_rb,0.66430e+01_rb,0.64664e+01_rb,0.63629e+01_rb, &\n        & 0.62938e+01_rb,0.62370e+01_rb,0.61432e+01_rb,0.68460e+01_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.76417e+01_rb,0.68180e+01_rb,0.66082e+01_rb,0.64389e+01_rb,0.63512e+01_rb, &\n        & 0.63082e+01_rb,0.62633e+01_rb,0.61842e+01_rb,0.69071e+01_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.76283e+01_rb,0.67918e+01_rb,0.65683e+01_rb,0.64071e+01_rb,0.63329e+01_rb, &\n        & 0.63131e+01_rb,0.62779e+01_rb,0.62184e+01_rb,0.69616e+01_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.48056e+01_rb,0.42094e+01_rb,0.36132e+01_rb,0.30171e+01_rb,0.28404e+01_rb, &\n        & 0.34490e+01_rb,0.41388e+01_rb,0.48284e+01_rb,0.52314e+01_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.48171e+01_rb,0.42194e+01_rb,0.36219e+01_rb,0.30243e+01_rb,0.28141e+01_rb, &\n        & 0.34073e+01_rb,0.40887e+01_rb,0.47701e+01_rb,0.51637e+01_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.48231e+01_rb,0.42245e+01_rb,0.36259e+01_rb,0.30275e+01_rb,0.27871e+01_rb, &\n        & 0.33709e+01_rb,0.40450e+01_rb,0.47190e+01_rb,0.51029e+01_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.48223e+01_rb,0.42236e+01_rb,0.36250e+01_rb,0.30265e+01_rb,0.27616e+01_rb, &\n        & 0.33346e+01_rb,0.40014e+01_rb,0.46682e+01_rb,0.50473e+01_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.48164e+01_rb,0.42183e+01_rb,0.36202e+01_rb,0.30224e+01_rb,0.27378e+01_rb, &\n        & 0.32980e+01_rb,0.39575e+01_rb,0.46170e+01_rb,0.49922e+01_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.56696e+01_rb,0.49649e+01_rb,0.42601e+01_rb,0.35603e+01_rb,0.33660e+01_rb, &\n        & 0.40230e+01_rb,0.48275e+01_rb,0.56320e+01_rb,0.62204e+01_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.56853e+01_rb,0.49788e+01_rb,0.42721e+01_rb,0.35690e+01_rb,0.33370e+01_rb, &\n        & 0.39815e+01_rb,0.47778e+01_rb,0.55740e+01_rb,0.61522e+01_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.56912e+01_rb,0.49841e+01_rb,0.42769e+01_rb,0.35723e+01_rb,0.33088e+01_rb, &\n        & 0.39404e+01_rb,0.47285e+01_rb,0.55164e+01_rb,0.60886e+01_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.56900e+01_rb,0.49829e+01_rb,0.42759e+01_rb,0.35705e+01_rb,0.32819e+01_rb, &\n        & 0.38975e+01_rb,0.46769e+01_rb,0.54563e+01_rb,0.60227e+01_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.56828e+01_rb,0.49765e+01_rb,0.42703e+01_rb,0.35653e+01_rb,0.32552e+01_rb, &\n        & 0.38520e+01_rb,0.46223e+01_rb,0.53926e+01_rb,0.59537e+01_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.66640e+01_rb,0.58345e+01_rb,0.50050e+01_rb,0.41960e+01_rb,0.39837e+01_rb, &\n        & 0.46765e+01_rb,0.56117e+01_rb,0.65468e+01_rb,0.73624e+01_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.66851e+01_rb,0.58530e+01_rb,0.50209e+01_rb,0.42035e+01_rb,0.39538e+01_rb, &\n        & 0.46274e+01_rb,0.55528e+01_rb,0.64781e+01_rb,0.72849e+01_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.66916e+01_rb,0.58588e+01_rb,0.50261e+01_rb,0.42046e+01_rb,0.39240e+01_rb, &\n        & 0.45763e+01_rb,0.54915e+01_rb,0.64066e+01_rb,0.72060e+01_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.66884e+01_rb,0.58563e+01_rb,0.50241e+01_rb,0.42004e+01_rb,0.38957e+01_rb, &\n        & 0.45225e+01_rb,0.54270e+01_rb,0.63313e+01_rb,0.71219e+01_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.66766e+01_rb,0.58462e+01_rb,0.50163e+01_rb,0.41933e+01_rb,0.38675e+01_rb, &\n        & 0.44702e+01_rb,0.53642e+01_rb,0.62581e+01_rb,0.70387e+01_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.77848e+01_rb,0.68149e+01_rb,0.58451e+01_rb,0.49331e+01_rb,0.46977e+01_rb, &\n        & 0.54033e+01_rb,0.64839e+01_rb,0.75644e+01_rb,0.85830e+01_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.78108e+01_rb,0.68377e+01_rb,0.58646e+01_rb,0.49375e+01_rb,0.46695e+01_rb, &\n        & 0.53453e+01_rb,0.64143e+01_rb,0.74831e+01_rb,0.84915e+01_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.78236e+01_rb,0.68489e+01_rb,0.58743e+01_rb,0.49373e+01_rb,0.46417e+01_rb, &\n        & 0.52821e+01_rb,0.63384e+01_rb,0.73947e+01_rb,0.83915e+01_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.78238e+01_rb,0.68493e+01_rb,0.58748e+01_rb,0.49301e+01_rb,0.46103e+01_rb, &\n        & 0.52166e+01_rb,0.62599e+01_rb,0.73031e+01_rb,0.82871e+01_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.78090e+01_rb,0.68373e+01_rb,0.58658e+01_rb,0.49180e+01_rb,0.45786e+01_rb, &\n        & 0.51516e+01_rb,0.61819e+01_rb,0.72121e+01_rb,0.81837e+01_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.90367e+01_rb,0.79101e+01_rb,0.67835e+01_rb,0.57840e+01_rb,0.55090e+01_rb, &\n        & 0.61816e+01_rb,0.74174e+01_rb,0.86536e+01_rb,0.98560e+01_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.90658e+01_rb,0.79355e+01_rb,0.68052e+01_rb,0.57840e+01_rb,0.54825e+01_rb, &\n        & 0.61122e+01_rb,0.73329e+01_rb,0.85548e+01_rb,0.97452e+01_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.90837e+01_rb,0.79512e+01_rb,0.68188e+01_rb,0.57766e+01_rb,0.54581e+01_rb, &\n        & 0.60426e+01_rb,0.72485e+01_rb,0.84564e+01_rb,0.96328e+01_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.90830e+01_rb,0.79510e+01_rb,0.68192e+01_rb,0.57645e+01_rb,0.54297e+01_rb, &\n        & 0.59729e+01_rb,0.71644e+01_rb,0.83583e+01_rb,0.95205e+01_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.90677e+01_rb,0.79386e+01_rb,0.68094e+01_rb,0.57479e+01_rb,0.53962e+01_rb, &\n        & 0.58998e+01_rb,0.70740e+01_rb,0.82528e+01_rb,0.94008e+01_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.10412e+02_rb,0.91128e+01_rb,0.78140e+01_rb,0.67504e+01_rb,0.64389e+01_rb, &\n        & 0.70217e+01_rb,0.83899e+01_rb,0.97882e+01_rb,0.11168e+02_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.10449e+02_rb,0.91451e+01_rb,0.78417e+01_rb,0.67466e+01_rb,0.64110e+01_rb, &\n        & 0.69507e+01_rb,0.82964e+01_rb,0.96789e+01_rb,0.11043e+02_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.10469e+02_rb,0.91634e+01_rb,0.78574e+01_rb,0.67323e+01_rb,0.63834e+01_rb, &\n        & 0.68804e+01_rb,0.82097e+01_rb,0.95778e+01_rb,0.10928e+02_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.10466e+02_rb,0.91614e+01_rb,0.78568e+01_rb,0.67135e+01_rb,0.63530e+01_rb, &\n        & 0.68083e+01_rb,0.81167e+01_rb,0.94694e+01_rb,0.10805e+02_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.10450e+02_rb,0.91481e+01_rb,0.78461e+01_rb,0.66866e+01_rb,0.63182e+01_rb, &\n        & 0.67317e+01_rb,0.80175e+01_rb,0.93536e+01_rb,0.10671e+02_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.11882e+02_rb,0.10399e+02_rb,0.89166e+01_rb,0.78253e+01_rb,0.74792e+01_rb, &\n        & 0.79512e+01_rb,0.94202e+01_rb,0.10990e+02_rb,0.12550e+02_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.11932e+02_rb,0.10443e+02_rb,0.89541e+01_rb,0.78202e+01_rb,0.74549e+01_rb, &\n        & 0.78754e+01_rb,0.93207e+01_rb,0.10874e+02_rb,0.12417e+02_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.11956e+02_rb,0.10464e+02_rb,0.89727e+01_rb,0.78020e+01_rb,0.74258e+01_rb, &\n        & 0.78051e+01_rb,0.92218e+01_rb,0.10758e+02_rb,0.12285e+02_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.11956e+02_rb,0.10465e+02_rb,0.89740e+01_rb,0.77736e+01_rb,0.73912e+01_rb, &\n        & 0.77319e+01_rb,0.91108e+01_rb,0.10629e+02_rb,0.12138e+02_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.11934e+02_rb,0.10446e+02_rb,0.89587e+01_rb,0.77346e+01_rb,0.73464e+01_rb, &\n        & 0.76503e+01_rb,0.90007e+01_rb,0.10501e+02_rb,0.11991e+02_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.13440e+02_rb,0.11762e+02_rb,0.10084e+02_rb,0.90134e+01_rb,0.86298e+01_rb, &\n        & 0.89787e+01_rb,0.10509e+02_rb,0.12260e+02_rb,0.14008e+02_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.13496e+02_rb,0.11811e+02_rb,0.10127e+02_rb,0.90042e+01_rb,0.86075e+01_rb, &\n        & 0.89016e+01_rb,0.10401e+02_rb,0.12134e+02_rb,0.13863e+02_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.13522e+02_rb,0.11835e+02_rb,0.10148e+02_rb,0.89806e+01_rb,0.85777e+01_rb, &\n        & 0.88306e+01_rb,0.10284e+02_rb,0.11998e+02_rb,0.13707e+02_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.13526e+02_rb,0.11839e+02_rb,0.10151e+02_rb,0.89422e+01_rb,0.85378e+01_rb, &\n        & 0.87510e+01_rb,0.10150e+02_rb,0.11842e+02_rb,0.13529e+02_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.13498e+02_rb,0.11814e+02_rb,0.10131e+02_rb,0.88918e+01_rb,0.84819e+01_rb, &\n        & 0.86621e+01_rb,0.10028e+02_rb,0.11700e+02_rb,0.13367e+02_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.15050e+02_rb,0.13171e+02_rb,0.11325e+02_rb,0.10314e+02_rb,0.98844e+01_rb, &\n        & 0.10113e+02_rb,0.11655e+02_rb,0.13598e+02_rb,0.15538e+02_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.15110e+02_rb,0.13224e+02_rb,0.11358e+02_rb,0.10290e+02_rb,0.98636e+01_rb, &\n        & 0.10034e+02_rb,0.11528e+02_rb,0.13449e+02_rb,0.15369e+02_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.15142e+02_rb,0.13253e+02_rb,0.11372e+02_rb,0.10253e+02_rb,0.98329e+01_rb, &\n        & 0.99565e+01_rb,0.11387e+02_rb,0.13285e+02_rb,0.15182e+02_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.15140e+02_rb,0.13251e+02_rb,0.11368e+02_rb,0.10200e+02_rb,0.97822e+01_rb, &\n        & 0.98656e+01_rb,0.11236e+02_rb,0.13109e+02_rb,0.14981e+02_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.15112e+02_rb,0.13227e+02_rb,0.11344e+02_rb,0.10134e+02_rb,0.97132e+01_rb, &\n        & 0.97634e+01_rb,0.11104e+02_rb,0.12955e+02_rb,0.14806e+02_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.16679e+02_rb,0.14596e+02_rb,0.12639e+02_rb,0.11713e+02_rb,0.11234e+02_rb, &\n        & 0.11344e+02_rb,0.12833e+02_rb,0.14972e+02_rb,0.17110e+02_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.16740e+02_rb,0.14649e+02_rb,0.12658e+02_rb,0.11669e+02_rb,0.11203e+02_rb, &\n        & 0.11257e+02_rb,0.12688e+02_rb,0.14803e+02_rb,0.16918e+02_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.16768e+02_rb,0.14675e+02_rb,0.12658e+02_rb,0.11609e+02_rb,0.11161e+02_rb, &\n        & 0.11169e+02_rb,0.12530e+02_rb,0.14619e+02_rb,0.16708e+02_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.16761e+02_rb,0.14669e+02_rb,0.12632e+02_rb,0.11528e+02_rb,0.11096e+02_rb, &\n        & 0.11064e+02_rb,0.12360e+02_rb,0.14420e+02_rb,0.16480e+02_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.16723e+02_rb,0.14636e+02_rb,0.12592e+02_rb,0.11437e+02_rb,0.11017e+02_rb, &\n        & 0.10938e+02_rb,0.12210e+02_rb,0.14245e+02_rb,0.16279e+02_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.18294e+02_rb,0.16009e+02_rb,0.13989e+02_rb,0.13135e+02_rb,0.12643e+02_rb, &\n        & 0.12628e+02_rb,0.13972e+02_rb,0.16290e+02_rb,0.18616e+02_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.18347e+02_rb,0.16056e+02_rb,0.13990e+02_rb,0.13069e+02_rb,0.12593e+02_rb, &\n        & 0.12524e+02_rb,0.13808e+02_rb,0.16097e+02_rb,0.18396e+02_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.18360e+02_rb,0.16067e+02_rb,0.13961e+02_rb,0.12977e+02_rb,0.12519e+02_rb, &\n        & 0.12404e+02_rb,0.13621e+02_rb,0.15875e+02_rb,0.18143e+02_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.18335e+02_rb,0.16046e+02_rb,0.13912e+02_rb,0.12870e+02_rb,0.12428e+02_rb, &\n        & 0.12262e+02_rb,0.13438e+02_rb,0.15668e+02_rb,0.17906e+02_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.18275e+02_rb,0.15994e+02_rb,0.13835e+02_rb,0.12741e+02_rb,0.12318e+02_rb, &\n        & 0.12107e+02_rb,0.13269e+02_rb,0.15473e+02_rb,0.17684e+02_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.19924e+02_rb,0.17435e+02_rb,0.15328e+02_rb,0.14570e+02_rb,0.14103e+02_rb, &\n        & 0.13966e+02_rb,0.15137e+02_rb,0.17574e+02_rb,0.20085e+02_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.19952e+02_rb,0.17460e+02_rb,0.15303e+02_rb,0.14472e+02_rb,0.14016e+02_rb, &\n        & 0.13836e+02_rb,0.14951e+02_rb,0.17356e+02_rb,0.19836e+02_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.19950e+02_rb,0.17459e+02_rb,0.15252e+02_rb,0.14354e+02_rb,0.13911e+02_rb, &\n        & 0.13674e+02_rb,0.14736e+02_rb,0.17121e+02_rb,0.19567e+02_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.19898e+02_rb,0.17414e+02_rb,0.15172e+02_rb,0.14207e+02_rb,0.13782e+02_rb, &\n        & 0.13496e+02_rb,0.14540e+02_rb,0.16905e+02_rb,0.19321e+02_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.19813e+02_rb,0.17339e+02_rb,0.15067e+02_rb,0.14045e+02_rb,0.13635e+02_rb, &\n        & 0.13302e+02_rb,0.14349e+02_rb,0.16691e+02_rb,0.19076e+02_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.21582e+02_rb,0.18886e+02_rb,0.16708e+02_rb,0.15984e+02_rb,0.15578e+02_rb, &\n        & 0.15338e+02_rb,0.16324e+02_rb,0.18812e+02_rb,0.21500e+02_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.21595e+02_rb,0.18898e+02_rb,0.16645e+02_rb,0.15860e+02_rb,0.15448e+02_rb, &\n        & 0.15169e+02_rb,0.16117e+02_rb,0.18583e+02_rb,0.21237e+02_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.21561e+02_rb,0.18868e+02_rb,0.16562e+02_rb,0.15696e+02_rb,0.15303e+02_rb, &\n        & 0.14968e+02_rb,0.15881e+02_rb,0.18352e+02_rb,0.20974e+02_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.21483e+02_rb,0.18800e+02_rb,0.16445e+02_rb,0.15517e+02_rb,0.15132e+02_rb, &\n        & 0.14742e+02_rb,0.15661e+02_rb,0.18119e+02_rb,0.20709e+02_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.21359e+02_rb,0.18692e+02_rb,0.16307e+02_rb,0.15310e+02_rb,0.14932e+02_rb, &\n        & 0.14513e+02_rb,0.15442e+02_rb,0.17892e+02_rb,0.20448e+02_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.54900e+01_rb,0.48060e+01_rb,0.41232e+01_rb,0.34422e+01_rb,0.34870e+01_rb, &\n        & 0.43588e+01_rb,0.52305e+01_rb,0.61020e+01_rb,0.65047e+01_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.54959e+01_rb,0.48102e+01_rb,0.41246e+01_rb,0.34396e+01_rb,0.34389e+01_rb, &\n        & 0.42986e+01_rb,0.51583e+01_rb,0.60178e+01_rb,0.64181e+01_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.54964e+01_rb,0.48111e+01_rb,0.41257e+01_rb,0.34404e+01_rb,0.33906e+01_rb, &\n        & 0.42383e+01_rb,0.50859e+01_rb,0.59334e+01_rb,0.63255e+01_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.54872e+01_rb,0.48032e+01_rb,0.41193e+01_rb,0.34354e+01_rb,0.33485e+01_rb, &\n        & 0.41856e+01_rb,0.50227e+01_rb,0.58596e+01_rb,0.62437e+01_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.54677e+01_rb,0.47864e+01_rb,0.41051e+01_rb,0.34238e+01_rb,0.33099e+01_rb, &\n        & 0.41373e+01_rb,0.49647e+01_rb,0.57920e+01_rb,0.61726e+01_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.65993e+01_rb,0.57796e+01_rb,0.49604e+01_rb,0.41421e+01_rb,0.42011e+01_rb, &\n        & 0.52514e+01_rb,0.63014e+01_rb,0.73516e+01_rb,0.80279e+01_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.66032e+01_rb,0.57810e+01_rb,0.49597e+01_rb,0.41395e+01_rb,0.41430e+01_rb, &\n        & 0.51787e+01_rb,0.62144e+01_rb,0.72499e+01_rb,0.79170e+01_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.66114e+01_rb,0.57864e+01_rb,0.49618e+01_rb,0.41380e+01_rb,0.40849e+01_rb, &\n        & 0.51061e+01_rb,0.61273e+01_rb,0.71483e+01_rb,0.78058e+01_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.66055e+01_rb,0.57814e+01_rb,0.49573e+01_rb,0.41341e+01_rb,0.40341e+01_rb, &\n        & 0.50426e+01_rb,0.60510e+01_rb,0.70593e+01_rb,0.77043e+01_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.65867e+01_rb,0.57651e+01_rb,0.49435e+01_rb,0.41221e+01_rb,0.39863e+01_rb, &\n        & 0.49829e+01_rb,0.59794e+01_rb,0.69758e+01_rb,0.76124e+01_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.79380e+01_rb,0.69526e+01_rb,0.59676e+01_rb,0.49832e+01_rb,0.50788e+01_rb, &\n        & 0.63485e+01_rb,0.76181e+01_rb,0.88875e+01_rb,0.99377e+01_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.79519e+01_rb,0.69640e+01_rb,0.59765e+01_rb,0.49895e+01_rb,0.50033e+01_rb, &\n        & 0.62541e+01_rb,0.75048e+01_rb,0.87554e+01_rb,0.97869e+01_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.79564e+01_rb,0.69660e+01_rb,0.59762e+01_rb,0.49871e+01_rb,0.49341e+01_rb, &\n        & 0.61676e+01_rb,0.74011e+01_rb,0.86343e+01_rb,0.96531e+01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.79604e+01_rb,0.69678e+01_rb,0.59753e+01_rb,0.49833e+01_rb,0.48716e+01_rb, &\n        & 0.60895e+01_rb,0.73073e+01_rb,0.85250e+01_rb,0.95280e+01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.79454e+01_rb,0.69546e+01_rb,0.59641e+01_rb,0.49739e+01_rb,0.48117e+01_rb, &\n        & 0.60146e+01_rb,0.72174e+01_rb,0.84201e+01_rb,0.94106e+01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.95482e+01_rb,0.83619e+01_rb,0.71758e+01_rb,0.59904e+01_rb,0.61617e+01_rb, &\n        & 0.77021e+01_rb,0.92425e+01_rb,0.10783e+02_rb,0.12199e+02_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.95751e+01_rb,0.83849e+01_rb,0.71952e+01_rb,0.60057e+01_rb,0.60507e+01_rb, &\n        & 0.75634e+01_rb,0.90760e+01_rb,0.10588e+02_rb,0.11979e+02_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.95851e+01_rb,0.83928e+01_rb,0.72008e+01_rb,0.60093e+01_rb,0.59519e+01_rb, &\n        & 0.74398e+01_rb,0.89277e+01_rb,0.10415e+02_rb,0.11784e+02_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.95899e+01_rb,0.83956e+01_rb,0.72016e+01_rb,0.60083e+01_rb,0.58751e+01_rb, &\n        & 0.73438e+01_rb,0.88125e+01_rb,0.10281e+02_rb,0.11628e+02_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.95802e+01_rb,0.83858e+01_rb,0.71919e+01_rb,0.59984e+01_rb,0.58004e+01_rb, &\n        & 0.72505e+01_rb,0.87005e+01_rb,0.10150e+02_rb,0.11482e+02_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.11467e+02_rb,0.10041e+02_rb,0.86153e+01_rb,0.71899e+01_rb,0.74662e+01_rb, &\n        & 0.93327e+01_rb,0.11199e+02_rb,0.13065e+02_rb,0.14858e+02_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.11518e+02_rb,0.10085e+02_rb,0.86526e+01_rb,0.72201e+01_rb,0.73208e+01_rb, &\n        & 0.91509e+01_rb,0.10981e+02_rb,0.12811e+02_rb,0.14568e+02_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.11535e+02_rb,0.10099e+02_rb,0.86636e+01_rb,0.72282e+01_rb,0.71844e+01_rb, &\n        & 0.89805e+01_rb,0.10776e+02_rb,0.12572e+02_rb,0.14298e+02_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.11542e+02_rb,0.10105e+02_rb,0.86677e+01_rb,0.72309e+01_rb,0.70636e+01_rb, &\n        & 0.88295e+01_rb,0.10595e+02_rb,0.12361e+02_rb,0.14056e+02_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.11528e+02_rb,0.10092e+02_rb,0.86561e+01_rb,0.72209e+01_rb,0.69634e+01_rb, &\n        & 0.87042e+01_rb,0.10445e+02_rb,0.12185e+02_rb,0.13857e+02_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.13743e+02_rb,0.12032e+02_rb,0.10321e+02_rb,0.86104e+01_rb,0.90301e+01_rb, &\n        & 0.11288e+02_rb,0.13545e+02_rb,0.15802e+02_rb,0.18010e+02_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.13809e+02_rb,0.12090e+02_rb,0.10370e+02_rb,0.86513e+01_rb,0.88422e+01_rb, &\n        & 0.11053e+02_rb,0.13263e+02_rb,0.15473e+02_rb,0.17638e+02_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.13850e+02_rb,0.12125e+02_rb,0.10400e+02_rb,0.86753e+01_rb,0.86607e+01_rb, &\n        & 0.10826e+02_rb,0.12991e+02_rb,0.15156e+02_rb,0.17275e+02_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.13866e+02_rb,0.12138e+02_rb,0.10411e+02_rb,0.86837e+01_rb,0.84930e+01_rb, &\n        & 0.10616e+02_rb,0.12739e+02_rb,0.14862e+02_rb,0.16940e+02_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.13850e+02_rb,0.12124e+02_rb,0.10399e+02_rb,0.86732e+01_rb,0.83442e+01_rb, &\n        & 0.10430e+02_rb,0.12516e+02_rb,0.14602e+02_rb,0.16644e+02_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.16450e+02_rb,0.14400e+02_rb,0.12350e+02_rb,0.10300e+02_rb,0.10874e+02_rb, &\n        & 0.13593e+02_rb,0.16311e+02_rb,0.19030e+02_rb,0.21722e+02_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.16525e+02_rb,0.14465e+02_rb,0.12405e+02_rb,0.10346e+02_rb,0.10632e+02_rb, &\n        & 0.13290e+02_rb,0.15948e+02_rb,0.18606e+02_rb,0.21239e+02_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.16563e+02_rb,0.14499e+02_rb,0.12434e+02_rb,0.10370e+02_rb,0.10395e+02_rb, &\n        & 0.12994e+02_rb,0.15592e+02_rb,0.18191e+02_rb,0.20762e+02_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.16590e+02_rb,0.14522e+02_rb,0.12454e+02_rb,0.10386e+02_rb,0.10172e+02_rb, &\n        & 0.12715e+02_rb,0.15258e+02_rb,0.17801e+02_rb,0.20317e+02_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.16576e+02_rb,0.14509e+02_rb,0.12443e+02_rb,0.10377e+02_rb,0.99688e+01_rb, &\n        & 0.12461e+02_rb,0.14953e+02_rb,0.17445e+02_rb,0.19913e+02_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.19629e+02_rb,0.17181e+02_rb,0.14733e+02_rb,0.12285e+02_rb,0.13022e+02_rb, &\n        & 0.16277e+02_rb,0.19532e+02_rb,0.22787e+02_rb,0.26029e+02_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.19728e+02_rb,0.17267e+02_rb,0.14807e+02_rb,0.12346e+02_rb,0.12711e+02_rb, &\n        & 0.15888e+02_rb,0.19066e+02_rb,0.22243e+02_rb,0.25406e+02_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.19768e+02_rb,0.17302e+02_rb,0.14837e+02_rb,0.12371e+02_rb,0.12399e+02_rb, &\n        & 0.15499e+02_rb,0.18599e+02_rb,0.21698e+02_rb,0.24782e+02_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.19773e+02_rb,0.17307e+02_rb,0.14840e+02_rb,0.12374e+02_rb,0.12111e+02_rb, &\n        & 0.15139e+02_rb,0.18167e+02_rb,0.21194e+02_rb,0.24210e+02_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.19744e+02_rb,0.17281e+02_rb,0.14818e+02_rb,0.12356e+02_rb,0.11840e+02_rb, &\n        & 0.14800e+02_rb,0.17760e+02_rb,0.20720e+02_rb,0.23667e+02_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.23312e+02_rb,0.20403e+02_rb,0.17494e+02_rb,0.14584e+02_rb,0.15488e+02_rb, &\n        & 0.19360e+02_rb,0.23231e+02_rb,0.27103e+02_rb,0.30970e+02_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.23439e+02_rb,0.20514e+02_rb,0.17588e+02_rb,0.14663e+02_rb,0.15085e+02_rb, &\n        & 0.18856e+02_rb,0.22627e+02_rb,0.26397e+02_rb,0.30166e+02_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.23492e+02_rb,0.20560e+02_rb,0.17628e+02_rb,0.14696e+02_rb,0.14687e+02_rb, &\n        & 0.18356e+02_rb,0.22027e+02_rb,0.25697e+02_rb,0.29367e+02_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.23479e+02_rb,0.20549e+02_rb,0.17619e+02_rb,0.14689e+02_rb,0.14321e+02_rb, &\n        & 0.17895e+02_rb,0.21474e+02_rb,0.25052e+02_rb,0.28629e+02_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.23411e+02_rb,0.20489e+02_rb,0.17567e+02_rb,0.14646e+02_rb,0.13982e+02_rb, &\n        & 0.17451e+02_rb,0.20941e+02_rb,0.24431e+02_rb,0.27917e+02_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.27592e+02_rb,0.24147e+02_rb,0.20702e+02_rb,0.17264e+02_rb,0.18240e+02_rb, &\n        & 0.22793e+02_rb,0.27352e+02_rb,0.31910e+02_rb,0.36473e+02_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.27703e+02_rb,0.24245e+02_rb,0.20786e+02_rb,0.17327e+02_rb,0.17749e+02_rb, &\n        & 0.22147e+02_rb,0.26577e+02_rb,0.31006e+02_rb,0.35436e+02_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.27743e+02_rb,0.24279e+02_rb,0.20816e+02_rb,0.17352e+02_rb,0.17266e+02_rb, &\n        & 0.21525e+02_rb,0.25830e+02_rb,0.30134e+02_rb,0.34441e+02_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.27709e+02_rb,0.24250e+02_rb,0.20790e+02_rb,0.17331e+02_rb,0.16811e+02_rb, &\n        & 0.20946e+02_rb,0.25135e+02_rb,0.29324e+02_rb,0.33510e+02_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.27598e+02_rb,0.24153e+02_rb,0.20707e+02_rb,0.17262e+02_rb,0.16378e+02_rb, &\n        & 0.20388e+02_rb,0.24466e+02_rb,0.28543e+02_rb,0.32622e+02_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.32570e+02_rb,0.28502e+02_rb,0.24434e+02_rb,0.20393e+02_rb,0.21083e+02_rb, &\n        & 0.26245e+02_rb,0.31494e+02_rb,0.36742e+02_rb,0.41994e+02_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.32601e+02_rb,0.28529e+02_rb,0.24458e+02_rb,0.20386e+02_rb,0.20492e+02_rb, &\n        & 0.25469e+02_rb,0.30563e+02_rb,0.35657e+02_rb,0.40747e+02_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.32535e+02_rb,0.28472e+02_rb,0.24408e+02_rb,0.20345e+02_rb,0.19916e+02_rb, &\n        & 0.24733e+02_rb,0.29679e+02_rb,0.34625e+02_rb,0.39568e+02_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.32390e+02_rb,0.28345e+02_rb,0.24301e+02_rb,0.20256e+02_rb,0.19358e+02_rb, &\n        & 0.24023e+02_rb,0.28827e+02_rb,0.33631e+02_rb,0.38435e+02_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.32175e+02_rb,0.28157e+02_rb,0.24140e+02_rb,0.20122e+02_rb,0.18819e+02_rb, &\n        & 0.23330e+02_rb,0.27996e+02_rb,0.32661e+02_rb,0.37328e+02_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.38135e+02_rb,0.33371e+02_rb,0.28607e+02_rb,0.23891e+02_rb,0.24203e+02_rb, &\n        & 0.29981e+02_rb,0.35977e+02_rb,0.41973e+02_rb,0.47971e+02_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.38033e+02_rb,0.33282e+02_rb,0.28531e+02_rb,0.23779e+02_rb,0.23491e+02_rb, &\n        & 0.29038e+02_rb,0.34845e+02_rb,0.40652e+02_rb,0.46464e+02_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.37806e+02_rb,0.33084e+02_rb,0.28361e+02_rb,0.23639e+02_rb,0.22788e+02_rb, &\n        & 0.28150e+02_rb,0.33780e+02_rb,0.39409e+02_rb,0.45036e+02_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.37497e+02_rb,0.32813e+02_rb,0.28129e+02_rb,0.23446e+02_rb,0.22100e+02_rb, &\n        & 0.27270e+02_rb,0.32724e+02_rb,0.38179e+02_rb,0.43632e+02_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.37099e+02_rb,0.32465e+02_rb,0.27831e+02_rb,0.23198e+02_rb,0.21440e+02_rb, &\n        & 0.26398e+02_rb,0.31678e+02_rb,0.36957e+02_rb,0.42237e+02_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.44217e+02_rb,0.38692e+02_rb,0.33167e+02_rb,0.27730e+02_rb,0.27605e+02_rb, &\n        & 0.33969e+02_rb,0.40763e+02_rb,0.47556e+02_rb,0.54352e+02_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.43915e+02_rb,0.38428e+02_rb,0.32941e+02_rb,0.27455e+02_rb,0.26738e+02_rb, &\n        & 0.32787e+02_rb,0.39345e+02_rb,0.45901e+02_rb,0.52455e+02_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.43489e+02_rb,0.38055e+02_rb,0.32622e+02_rb,0.27188e+02_rb,0.25861e+02_rb, &\n        & 0.31686e+02_rb,0.38022e+02_rb,0.44359e+02_rb,0.50700e+02_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.42951e+02_rb,0.37585e+02_rb,0.32219e+02_rb,0.26853e+02_rb,0.25006e+02_rb, &\n        & 0.30590e+02_rb,0.36708e+02_rb,0.42826e+02_rb,0.48946e+02_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.42298e+02_rb,0.37013e+02_rb,0.31729e+02_rb,0.26445e+02_rb,0.24180e+02_rb, &\n        & 0.29511e+02_rb,0.35413e+02_rb,0.41314e+02_rb,0.47218e+02_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:, 1,13, 1) = (/ &\n        & 0.40633e-08_rb,0.64718e-06_rb,0.79567e-06_rb,0.81264e-06_rb,0.25080e-07_rb /)\n      kbo(:, 2,13, 1) = (/ &\n        & 0.37596e-08_rb,0.70429e-06_rb,0.90855e-06_rb,0.96432e-06_rb,0.28292e-07_rb /)\n      kbo(:, 3,13, 1) = (/ &\n        & 0.34982e-08_rb,0.76370e-06_rb,0.10316e-05_rb,0.11472e-05_rb,0.31265e-07_rb /)\n      kbo(:, 4,13, 1) = (/ &\n        & 0.32707e-08_rb,0.82834e-06_rb,0.11577e-05_rb,0.13387e-05_rb,0.34928e-07_rb /)\n      kbo(:, 5,13, 1) = (/ &\n        & 0.30710e-08_rb,0.90252e-06_rb,0.12962e-05_rb,0.15206e-05_rb,0.38859e-07_rb /)\n      kbo(:, 1,14, 1) = (/ &\n        & 0.33026e-08_rb,0.53592e-06_rb,0.66171e-06_rb,0.67633e-06_rb,0.20767e-07_rb /)\n      kbo(:, 2,14, 1) = (/ &\n        & 0.30574e-08_rb,0.57959e-06_rb,0.75386e-06_rb,0.80395e-06_rb,0.23334e-07_rb /)\n      kbo(:, 3,14, 1) = (/ &\n        & 0.28461e-08_rb,0.62897e-06_rb,0.85486e-06_rb,0.95745e-06_rb,0.25841e-07_rb /)\n      kbo(:, 4,14, 1) = (/ &\n        & 0.26621e-08_rb,0.68352e-06_rb,0.96132e-06_rb,0.11148e-05_rb,0.28862e-07_rb /)\n      kbo(:, 5,14, 1) = (/ &\n        & 0.25005e-08_rb,0.74517e-06_rb,0.10739e-05_rb,0.12632e-05_rb,0.32093e-07_rb /)\n      kbo(:, 1,15, 1) = (/ &\n        & 0.26821e-08_rb,0.44081e-06_rb,0.55093e-06_rb,0.56465e-06_rb,0.17186e-07_rb /)\n      kbo(:, 2,15, 1) = (/ &\n        & 0.24845e-08_rb,0.47773e-06_rb,0.62636e-06_rb,0.67180e-06_rb,0.19234e-07_rb /)\n      kbo(:, 3,15, 1) = (/ &\n        & 0.23140e-08_rb,0.51811e-06_rb,0.70791e-06_rb,0.79658e-06_rb,0.21348e-07_rb /)\n      kbo(:, 4,15, 1) = (/ &\n        & 0.21654e-08_rb,0.56416e-06_rb,0.79893e-06_rb,0.92873e-06_rb,0.23832e-07_rb /)\n      kbo(:, 5,15, 1) = (/ &\n        & 0.20347e-08_rb,0.61535e-06_rb,0.88985e-06_rb,0.10499e-05_rb,0.26485e-07_rb /)\n      kbo(:, 1,16, 1) = (/ &\n        & 0.21775e-08_rb,0.36254e-06_rb,0.45870e-06_rb,0.47125e-06_rb,0.14211e-07_rb /)\n      kbo(:, 2,16, 1) = (/ &\n        & 0.20183e-08_rb,0.39376e-06_rb,0.52053e-06_rb,0.56163e-06_rb,0.15869e-07_rb /)\n      kbo(:, 3,16, 1) = (/ &\n        & 0.18808e-08_rb,0.42687e-06_rb,0.58699e-06_rb,0.66386e-06_rb,0.17627e-07_rb /)\n      kbo(:, 4,16, 1) = (/ &\n        & 0.17608e-08_rb,0.46559e-06_rb,0.66388e-06_rb,0.77063e-06_rb,0.19664e-07_rb /)\n      kbo(:, 5,16, 1) = (/ &\n        & 0.16552e-08_rb,0.50747e-06_rb,0.73699e-06_rb,0.87249e-06_rb,0.21844e-07_rb /)\n      kbo(:, 1,17, 1) = (/ &\n        & 0.17682e-08_rb,0.29836e-06_rb,0.38104e-06_rb,0.39314e-06_rb,0.11735e-07_rb /)\n      kbo(:, 2,17, 1) = (/ &\n        & 0.16399e-08_rb,0.32493e-06_rb,0.43215e-06_rb,0.46897e-06_rb,0.13077e-07_rb /)\n      kbo(:, 3,17, 1) = (/ &\n        & 0.15290e-08_rb,0.35203e-06_rb,0.48665e-06_rb,0.55328e-06_rb,0.14535e-07_rb /)\n      kbo(:, 4,17, 1) = (/ &\n        & 0.14321e-08_rb,0.38383e-06_rb,0.55033e-06_rb,0.63844e-06_rb,0.16208e-07_rb /)\n      kbo(:, 5,17, 1) = (/ &\n        & 0.13468e-08_rb,0.41822e-06_rb,0.60950e-06_rb,0.72376e-06_rb,0.17995e-07_rb /)\n      kbo(:, 1,18, 1) = (/ &\n        & 0.14362e-08_rb,0.24560e-06_rb,0.31667e-06_rb,0.32797e-06_rb,0.96831e-08_rb /)\n      kbo(:, 2,18, 1) = (/ &\n        & 0.13327e-08_rb,0.26784e-06_rb,0.35872e-06_rb,0.39134e-06_rb,0.10773e-07_rb /)\n      kbo(:, 3,18, 1) = (/ &\n        & 0.12432e-08_rb,0.29008e-06_rb,0.40334e-06_rb,0.46026e-06_rb,0.11980e-07_rb /)\n      kbo(:, 4,18, 1) = (/ &\n        & 0.11650e-08_rb,0.31637e-06_rb,0.45583e-06_rb,0.52880e-06_rb,0.13350e-07_rb /)\n      kbo(:, 5,18, 1) = (/ &\n        & 0.10960e-08_rb,0.34503e-06_rb,0.50363e-06_rb,0.59967e-06_rb,0.14815e-07_rb /)\n      kbo(:, 1,19, 1) = (/ &\n        & 0.11667e-08_rb,0.20231e-06_rb,0.26313e-06_rb,0.27359e-06_rb,0.79934e-08_rb /)\n      kbo(:, 2,19, 1) = (/ &\n        & 0.10833e-08_rb,0.22085e-06_rb,0.29760e-06_rb,0.32620e-06_rb,0.88807e-08_rb /)\n      kbo(:, 3,19, 1) = (/ &\n        & 0.10110e-08_rb,0.23912e-06_rb,0.33423e-06_rb,0.38271e-06_rb,0.98771e-08_rb /)\n      kbo(:, 4,19, 1) = (/ &\n        & 0.94778e-09_rb,0.26073e-06_rb,0.37685e-06_rb,0.43791e-06_rb,0.11002e-07_rb /)\n      kbo(:, 5,19, 1) = (/ &\n        & 0.89198e-09_rb,0.28425e-06_rb,0.41589e-06_rb,0.49682e-06_rb,0.12204e-07_rb /)\n      kbo(:, 1,20, 1) = (/ &\n        & 0.94668e-09_rb,0.16735e-06_rb,0.21822e-06_rb,0.22914e-06_rb,0.66237e-08_rb /)\n      kbo(:, 2,20, 1) = (/ &\n        & 0.87956e-09_rb,0.18255e-06_rb,0.24770e-06_rb,0.27290e-06_rb,0.73470e-08_rb /)\n      kbo(:, 3,20, 1) = (/ &\n        & 0.82132e-09_rb,0.19776e-06_rb,0.27786e-06_rb,0.31913e-06_rb,0.81732e-08_rb /)\n      kbo(:, 4,20, 1) = (/ &\n        & 0.77032e-09_rb,0.21557e-06_rb,0.31197e-06_rb,0.36380e-06_rb,0.91019e-08_rb /)\n      kbo(:, 5,20, 1) = (/ &\n        & 0.72528e-09_rb,0.23458e-06_rb,0.34449e-06_rb,0.41257e-06_rb,0.10084e-07_rb /)\n      kbo(:, 1,21, 1) = (/ &\n        & 0.76809e-09_rb,0.13858e-06_rb,0.18138e-06_rb,0.19188e-06_rb,0.54929e-08_rb /)\n      kbo(:, 2,21, 1) = (/ &\n        & 0.71408e-09_rb,0.15088e-06_rb,0.20614e-06_rb,0.22835e-06_rb,0.60825e-08_rb /)\n      kbo(:, 3,21, 1) = (/ &\n        & 0.66717e-09_rb,0.16366e-06_rb,0.23111e-06_rb,0.26622e-06_rb,0.67680e-08_rb /)\n      kbo(:, 4,21, 1) = (/ &\n        & 0.62605e-09_rb,0.17816e-06_rb,0.25834e-06_rb,0.30242e-06_rb,0.75344e-08_rb /)\n      kbo(:, 5,21, 1) = (/ &\n        & 0.58970e-09_rb,0.19374e-06_rb,0.28542e-06_rb,0.34222e-06_rb,0.83394e-08_rb /)\n      kbo(:, 1,22, 1) = (/ &\n        & 0.62013e-09_rb,0.11547e-06_rb,0.15212e-06_rb,0.16227e-06_rb,0.45926e-08_rb /)\n      kbo(:, 2,22, 1) = (/ &\n        & 0.57709e-09_rb,0.12552e-06_rb,0.17211e-06_rb,0.19265e-06_rb,0.50728e-08_rb /)\n      kbo(:, 3,22, 1) = (/ &\n        & 0.53964e-09_rb,0.13619e-06_rb,0.19363e-06_rb,0.22402e-06_rb,0.56454e-08_rb /)\n      kbo(:, 4,22, 1) = (/ &\n        & 0.50675e-09_rb,0.14805e-06_rb,0.21557e-06_rb,0.25320e-06_rb,0.62805e-08_rb /)\n      kbo(:, 5,22, 1) = (/ &\n        & 0.47764e-09_rb,0.16097e-06_rb,0.23799e-06_rb,0.28574e-06_rb,0.69414e-08_rb /)\n      kbo(:, 1,23, 1) = (/ &\n        & 0.50055e-09_rb,0.96165e-07_rb,0.12776e-06_rb,0.13752e-06_rb,0.37933e-08_rb /)\n      kbo(:, 2,23, 1) = (/ &\n        & 0.46627e-09_rb,0.10421e-06_rb,0.14387e-06_rb,0.16226e-06_rb,0.42154e-08_rb /)\n      kbo(:, 3,23, 1) = (/ &\n        & 0.43638e-09_rb,0.11320e-06_rb,0.16240e-06_rb,0.18806e-06_rb,0.46761e-08_rb /)\n      kbo(:, 4,23, 1) = (/ &\n        & 0.41009e-09_rb,0.12312e-06_rb,0.18002e-06_rb,0.21214e-06_rb,0.51724e-08_rb /)\n      kbo(:, 5,23, 1) = (/ &\n        & 0.38679e-09_rb,0.13380e-06_rb,0.19835e-06_rb,0.23836e-06_rb,0.56863e-08_rb /)\n      kbo(:, 1,24, 1) = (/ &\n        & 0.40384e-09_rb,0.80174e-07_rb,0.10742e-06_rb,0.11665e-06_rb,0.31435e-08_rb /)\n      kbo(:, 2,24, 1) = (/ &\n        & 0.37656e-09_rb,0.86611e-07_rb,0.12062e-06_rb,0.13694e-06_rb,0.34746e-08_rb /)\n      kbo(:, 3,24, 1) = (/ &\n        & 0.35273e-09_rb,0.94203e-07_rb,0.13610e-06_rb,0.15729e-06_rb,0.38586e-08_rb /)\n      kbo(:, 4,24, 1) = (/ &\n        & 0.33174e-09_rb,0.10246e-06_rb,0.15035e-06_rb,0.17775e-06_rb,0.42707e-08_rb /)\n      kbo(:, 5,24, 1) = (/ &\n        & 0.31310e-09_rb,0.11122e-06_rb,0.16543e-06_rb,0.19917e-06_rb,0.47020e-08_rb /)\n      kbo(:, 1,25, 1) = (/ &\n        & 0.32562e-09_rb,0.66785e-07_rb,0.90447e-07_rb,0.99059e-07_rb,0.26134e-08_rb /)\n      kbo(:, 2,25, 1) = (/ &\n        & 0.30393e-09_rb,0.72133e-07_rb,0.10139e-06_rb,0.11571e-06_rb,0.28872e-08_rb /)\n      kbo(:, 3,25, 1) = (/ &\n        & 0.28495e-09_rb,0.78448e-07_rb,0.11385e-06_rb,0.13178e-06_rb,0.32061e-08_rb /)\n      kbo(:, 4,25, 1) = (/ &\n        & 0.26821e-09_rb,0.85339e-07_rb,0.12563e-06_rb,0.14914e-06_rb,0.35489e-08_rb /)\n      kbo(:, 5,25, 1) = (/ &\n        & 0.25332e-09_rb,0.92445e-07_rb,0.13814e-06_rb,0.16674e-06_rb,0.39060e-08_rb /)\n      kbo(:, 1,26, 1) = (/ &\n        & 0.26224e-09_rb,0.55680e-07_rb,0.76369e-07_rb,0.84400e-07_rb,0.21759e-08_rb /)\n      kbo(:, 2,26, 1) = (/ &\n        & 0.24504e-09_rb,0.60204e-07_rb,0.85423e-07_rb,0.97885e-07_rb,0.24118e-08_rb /)\n      kbo(:, 3,26, 1) = (/ &\n        & 0.22996e-09_rb,0.65477e-07_rb,0.95321e-07_rb,0.11093e-06_rb,0.26774e-08_rb /)\n      kbo(:, 4,26, 1) = (/ &\n        & 0.21663e-09_rb,0.71188e-07_rb,0.10529e-06_rb,0.12544e-06_rb,0.29615e-08_rb /)\n      kbo(:, 5,26, 1) = (/ &\n        & 0.20475e-09_rb,0.76940e-07_rb,0.11556e-06_rb,0.13977e-06_rb,0.32569e-08_rb /)\n      kbo(:, 1,27, 1) = (/ &\n        & 0.21120e-09_rb,0.46382e-07_rb,0.63894e-07_rb,0.71379e-07_rb,0.18178e-08_rb /)\n      kbo(:, 2,27, 1) = (/ &\n        & 0.19756e-09_rb,0.50278e-07_rb,0.72033e-07_rb,0.82909e-07_rb,0.20181e-08_rb /)\n      kbo(:, 3,27, 1) = (/ &\n        & 0.18557e-09_rb,0.54670e-07_rb,0.79953e-07_rb,0.93505e-07_rb,0.22396e-08_rb /)\n      kbo(:, 4,27, 1) = (/ &\n        & 0.17496e-09_rb,0.59408e-07_rb,0.88179e-07_rb,0.10553e-06_rb,0.24737e-08_rb /)\n      kbo(:, 5,27, 1) = (/ &\n        & 0.16549e-09_rb,0.64025e-07_rb,0.96696e-07_rb,0.11704e-06_rb,0.27092e-08_rb /)\n      kbo(:, 1,28, 1) = (/ &\n        & 0.17010e-09_rb,0.38631e-07_rb,0.53773e-07_rb,0.60579e-07_rb,0.15220e-08_rb /)\n      kbo(:, 2,28, 1) = (/ &\n        & 0.15928e-09_rb,0.42001e-07_rb,0.60660e-07_rb,0.69727e-07_rb,0.16901e-08_rb /)\n      kbo(:, 3,28, 1) = (/ &\n        & 0.14976e-09_rb,0.45661e-07_rb,0.67065e-07_rb,0.78845e-07_rb,0.18696e-08_rb /)\n      kbo(:, 4,28, 1) = (/ &\n        & 0.14131e-09_rb,0.49571e-07_rb,0.73809e-07_rb,0.88481e-07_rb,0.20611e-08_rb /)\n      kbo(:, 5,28, 1) = (/ &\n        & 0.13376e-09_rb,0.53304e-07_rb,0.80910e-07_rb,0.98017e-07_rb,0.22565e-08_rb /)\n      kbo(:, 1,29, 1) = (/ &\n        & 0.13696e-09_rb,0.32270e-07_rb,0.45392e-07_rb,0.51438e-07_rb,0.12721e-08_rb /)\n      kbo(:, 2,29, 1) = (/ &\n        & 0.12839e-09_rb,0.35079e-07_rb,0.50946e-07_rb,0.58726e-07_rb,0.14118e-08_rb /)\n      kbo(:, 3,29, 1) = (/ &\n        & 0.12082e-09_rb,0.38150e-07_rb,0.56258e-07_rb,0.66493e-07_rb,0.15628e-08_rb /)\n      kbo(:, 4,29, 1) = (/ &\n        & 0.11410e-09_rb,0.41324e-07_rb,0.61843e-07_rb,0.74387e-07_rb,0.17205e-08_rb /)\n      kbo(:, 5,29, 1) = (/ &\n        & 0.10808e-09_rb,0.44387e-07_rb,0.67739e-07_rb,0.82216e-07_rb,0.18745e-08_rb /)\n      kbo(:, 1,30, 1) = (/ &\n        & 0.11029e-09_rb,0.26970e-07_rb,0.38330e-07_rb,0.43698e-07_rb,0.10655e-08_rb /)\n      kbo(:, 2,30, 1) = (/ &\n        & 0.10349e-09_rb,0.29319e-07_rb,0.42739e-07_rb,0.49552e-07_rb,0.11823e-08_rb /)\n      kbo(:, 3,30, 1) = (/ &\n        & 0.97483e-10_rb,0.31869e-07_rb,0.47210e-07_rb,0.56057e-07_rb,0.13038e-08_rb /)\n      kbo(:, 4,30, 1) = (/ &\n        & 0.92133e-10_rb,0.34436e-07_rb,0.51812e-07_rb,0.62485e-07_rb,0.14285e-08_rb /)\n      kbo(:, 5,30, 1) = (/ &\n        & 0.87340e-10_rb,0.36953e-07_rb,0.56709e-07_rb,0.68921e-07_rb,0.15563e-08_rb /)\n      kbo(:, 1,31, 1) = (/ &\n        & 0.88806e-10_rb,0.22555e-07_rb,0.32386e-07_rb,0.37129e-07_rb,0.89029e-09_rb /)\n      kbo(:, 2,31, 1) = (/ &\n        & 0.83417e-10_rb,0.24519e-07_rb,0.35921e-07_rb,0.41870e-07_rb,0.98548e-09_rb /)\n      kbo(:, 3,31, 1) = (/ &\n        & 0.78644e-10_rb,0.26638e-07_rb,0.39609e-07_rb,0.47273e-07_rb,0.10854e-08_rb /)\n      kbo(:, 4,31, 1) = (/ &\n        & 0.74388e-10_rb,0.28694e-07_rb,0.43423e-07_rb,0.52435e-07_rb,0.11880e-08_rb /)\n      kbo(:, 5,31, 1) = (/ &\n        & 0.70568e-10_rb,0.30776e-07_rb,0.47411e-07_rb,0.57750e-07_rb,0.12931e-08_rb /)\n      kbo(:, 1,32, 1) = (/ &\n        & 0.71507e-10_rb,0.18870e-07_rb,0.27332e-07_rb,0.31309e-07_rb,0.74436e-09_rb /)\n      kbo(:, 2,32, 1) = (/ &\n        & 0.67235e-10_rb,0.20512e-07_rb,0.30189e-07_rb,0.35407e-07_rb,0.82294e-09_rb /)\n      kbo(:, 3,32, 1) = (/ &\n        & 0.63444e-10_rb,0.22259e-07_rb,0.33218e-07_rb,0.39730e-07_rb,0.90483e-09_rb /)\n      kbo(:, 4,32, 1) = (/ &\n        & 0.60058e-10_rb,0.23923e-07_rb,0.36405e-07_rb,0.43976e-07_rb,0.98908e-09_rb /)\n      kbo(:, 5,32, 1) = (/ &\n        & 0.57015e-10_rb,0.25634e-07_rb,0.39548e-07_rb,0.48346e-07_rb,0.10750e-08_rb /)\n      kbo(:, 1,33, 1) = (/ &\n        & 0.57586e-10_rb,0.15779e-07_rb,0.22950e-07_rb,0.26415e-07_rb,0.62256e-09_rb /)\n      kbo(:, 2,33, 1) = (/ &\n        & 0.54199e-10_rb,0.17153e-07_rb,0.25354e-07_rb,0.29904e-07_rb,0.68734e-09_rb /)\n      kbo(:, 3,33, 1) = (/ &\n        & 0.51188e-10_rb,0.18569e-07_rb,0.27869e-07_rb,0.33404e-07_rb,0.75467e-09_rb /)\n      kbo(:, 4,33, 1) = (/ &\n        & 0.48493e-10_rb,0.19935e-07_rb,0.30437e-07_rb,0.36856e-07_rb,0.82369e-09_rb /)\n      kbo(:, 5,33, 1) = (/ &\n        & 0.46069e-10_rb,0.21345e-07_rb,0.32988e-07_rb,0.40478e-07_rb,0.89402e-09_rb /)\n      kbo(:, 1,34, 1) = (/ &\n        & 0.46487e-10_rb,0.13161e-07_rb,0.19216e-07_rb,0.22212e-07_rb,0.51910e-09_rb /)\n      kbo(:, 2,34, 1) = (/ &\n        & 0.43789e-10_rb,0.14301e-07_rb,0.21182e-07_rb,0.25090e-07_rb,0.57247e-09_rb /)\n      kbo(:, 3,34, 1) = (/ &\n        & 0.41386e-10_rb,0.15447e-07_rb,0.23208e-07_rb,0.27938e-07_rb,0.62767e-09_rb /)\n      kbo(:, 4,34, 1) = (/ &\n        & 0.39234e-10_rb,0.16571e-07_rb,0.25347e-07_rb,0.30795e-07_rb,0.68426e-09_rb /)\n      kbo(:, 5,34, 1) = (/ &\n        & 0.37294e-10_rb,0.17725e-07_rb,0.27392e-07_rb,0.33781e-07_rb,0.74179e-09_rb /)\n      kbo(:, 1,35, 1) = (/ &\n        & 0.37756e-10_rb,0.10890e-07_rb,0.15882e-07_rb,0.18441e-07_rb,0.42871e-09_rb /)\n      kbo(:, 2,35, 1) = (/ &\n        & 0.35581e-10_rb,0.11830e-07_rb,0.17514e-07_rb,0.20810e-07_rb,0.47251e-09_rb /)\n      kbo(:, 3,35, 1) = (/ &\n        & 0.33643e-10_rb,0.12757e-07_rb,0.19184e-07_rb,0.23148e-07_rb,0.51769e-09_rb /)\n      kbo(:, 4,35, 1) = (/ &\n        & 0.31905e-10_rb,0.13682e-07_rb,0.20941e-07_rb,0.25477e-07_rb,0.56394e-09_rb /)\n      kbo(:, 5,35, 1) = (/ &\n        & 0.30338e-10_rb,0.14628e-07_rb,0.22613e-07_rb,0.27948e-07_rb,0.61100e-09_rb /)\n      kbo(:, 1,36, 1) = (/ &\n        & 0.30872e-10_rb,0.89290e-08_rb,0.13007e-07_rb,0.15108e-07_rb,0.35034e-09_rb /)\n      kbo(:, 2,36, 1) = (/ &\n        & 0.29096e-10_rb,0.96995e-08_rb,0.14343e-07_rb,0.17051e-07_rb,0.38609e-09_rb /)\n      kbo(:, 3,36, 1) = (/ &\n        & 0.27513e-10_rb,0.10456e-07_rb,0.15713e-07_rb,0.18968e-07_rb,0.42296e-09_rb /)\n      kbo(:, 4,36, 1) = (/ &\n        & 0.26093e-10_rb,0.11213e-07_rb,0.17153e-07_rb,0.20875e-07_rb,0.46073e-09_rb /)\n      kbo(:, 5,36, 1) = (/ &\n        & 0.24812e-10_rb,0.11987e-07_rb,0.18522e-07_rb,0.22899e-07_rb,0.49916e-09_rb /)\n      kbo(:, 1,37, 1) = (/ &\n        & 0.25479e-10_rb,0.72338e-08_rb,0.10508e-07_rb,0.12165e-07_rb,0.28268e-09_rb /)\n      kbo(:, 2,37, 1) = (/ &\n        & 0.24002e-10_rb,0.78593e-08_rb,0.11594e-07_rb,0.13747e-07_rb,0.31173e-09_rb /)\n      kbo(:, 3,37, 1) = (/ &\n        & 0.22687e-10_rb,0.84845e-08_rb,0.12712e-07_rb,0.15315e-07_rb,0.34178e-09_rb /)\n      kbo(:, 4,37, 1) = (/ &\n        & 0.21508e-10_rb,0.90997e-08_rb,0.13892e-07_rb,0.16886e-07_rb,0.37260e-09_rb /)\n      kbo(:, 5,37, 1) = (/ &\n        & 0.20446e-10_rb,0.97322e-08_rb,0.15012e-07_rb,0.18526e-07_rb,0.40398e-09_rb /)\n      kbo(:, 1,38, 1) = (/ &\n        & 0.21041e-10_rb,0.58565e-08_rb,0.84831e-08_rb,0.97892e-08_rb,0.22791e-09_rb /)\n      kbo(:, 2,38, 1) = (/ &\n        & 0.19811e-10_rb,0.63636e-08_rb,0.93619e-08_rb,0.11072e-07_rb,0.25148e-09_rb /)\n      kbo(:, 3,38, 1) = (/ &\n        & 0.18717e-10_rb,0.68784e-08_rb,0.10276e-07_rb,0.12360e-07_rb,0.27595e-09_rb /)\n      kbo(:, 4,38, 1) = (/ &\n        & 0.17738e-10_rb,0.73792e-08_rb,0.11234e-07_rb,0.13638e-07_rb,0.30109e-09_rb /)\n      kbo(:, 5,38, 1) = (/ &\n        & 0.16856e-10_rb,0.78971e-08_rb,0.12166e-07_rb,0.14977e-07_rb,0.32671e-09_rb /)\n      kbo(:, 1,39, 1) = (/ &\n        & 0.17377e-10_rb,0.47418e-08_rb,0.68561e-08_rb,0.78795e-08_rb,0.18373e-09_rb /)\n      kbo(:, 2,39, 1) = (/ &\n        & 0.16353e-10_rb,0.51532e-08_rb,0.75620e-08_rb,0.89128e-08_rb,0.20284e-09_rb /)\n      kbo(:, 3,39, 1) = (/ &\n        & 0.15443e-10_rb,0.55752e-08_rb,0.83069e-08_rb,0.99666e-08_rb,0.22279e-09_rb /)\n      kbo(:, 4,39, 1) = (/ &\n        & 0.14629e-10_rb,0.59857e-08_rb,0.90872e-08_rb,0.11011e-07_rb,0.24327e-09_rb /)\n      kbo(:, 5,39, 1) = (/ &\n        & 0.13896e-10_rb,0.64086e-08_rb,0.98616e-08_rb,0.12104e-07_rb,0.26420e-09_rb /)\n      kbo(:, 1,40, 1) = (/ &\n        & 0.14445e-10_rb,0.38091e-08_rb,0.54799e-08_rb,0.62754e-08_rb,0.14679e-09_rb /)\n      kbo(:, 2,40, 1) = (/ &\n        & 0.13581e-10_rb,0.41391e-08_rb,0.60530e-08_rb,0.70909e-08_rb,0.16220e-09_rb /)\n      kbo(:, 3,40, 1) = (/ &\n        & 0.12815e-10_rb,0.44888e-08_rb,0.66555e-08_rb,0.79532e-08_rb,0.17842e-09_rb /)\n      kbo(:, 4,40, 1) = (/ &\n        & 0.12131e-10_rb,0.48207e-08_rb,0.72855e-08_rb,0.88071e-08_rb,0.19509e-09_rb /)\n      kbo(:, 5,40, 1) = (/ &\n        & 0.11516e-10_rb,0.51646e-08_rb,0.79268e-08_rb,0.96932e-08_rb,0.21214e-09_rb /)\n      kbo(:, 1,41, 1) = (/ &\n        & 0.12021e-10_rb,0.30566e-08_rb,0.43606e-08_rb,0.49921e-08_rb,0.11713e-09_rb /)\n      kbo(:, 2,41, 1) = (/ &\n        & 0.11291e-10_rb,0.33205e-08_rb,0.48340e-08_rb,0.56256e-08_rb,0.12954e-09_rb /)\n      kbo(:, 3,41, 1) = (/ &\n        & 0.10645e-10_rb,0.36053e-08_rb,0.53261e-08_rb,0.63473e-08_rb,0.14269e-09_rb /)\n      kbo(:, 4,41, 1) = (/ &\n        & 0.10069e-10_rb,0.38782e-08_rb,0.58347e-08_rb,0.70386e-08_rb,0.15624e-09_rb /)\n      kbo(:, 5,41, 1) = (/ &\n        & 0.95520e-11_rb,0.41580e-08_rb,0.63647e-08_rb,0.77515e-08_rb,0.17013e-09_rb /)\n      kbo(:, 1,42, 1) = (/ &\n        & 0.10007e-10_rb,0.24516e-08_rb,0.34653e-08_rb,0.39398e-08_rb,0.93475e-10_rb /)\n      kbo(:, 2,42, 1) = (/ &\n        & 0.93902e-11_rb,0.26631e-08_rb,0.38588e-08_rb,0.44635e-08_rb,0.10342e-09_rb /)\n      kbo(:, 3,42, 1) = (/ &\n        & 0.88449e-11_rb,0.28926e-08_rb,0.42600e-08_rb,0.50466e-08_rb,0.11406e-09_rb /)\n      kbo(:, 4,42, 1) = (/ &\n        & 0.83594e-11_rb,0.31198e-08_rb,0.46719e-08_rb,0.56218e-08_rb,0.12507e-09_rb /)\n      kbo(:, 5,42, 1) = (/ &\n        & 0.79244e-11_rb,0.33465e-08_rb,0.51065e-08_rb,0.61999e-08_rb,0.13640e-09_rb /)\n      kbo(:, 1,43, 1) = (/ &\n        & 0.83647e-11_rb,0.19578e-08_rb,0.27341e-08_rb,0.30827e-08_rb,0.74277e-10_rb /)\n      kbo(:, 2,43, 1) = (/ &\n        & 0.78389e-11_rb,0.21263e-08_rb,0.30690e-08_rb,0.35212e-08_rb,0.82118e-10_rb /)\n      kbo(:, 3,43, 1) = (/ &\n        & 0.73752e-11_rb,0.23103e-08_rb,0.33865e-08_rb,0.39836e-08_rb,0.90672e-10_rb /)\n      kbo(:, 4,43, 1) = (/ &\n        & 0.69633e-11_rb,0.24984e-08_rb,0.37198e-08_rb,0.44569e-08_rb,0.99628e-10_rb /)\n      kbo(:, 5,43, 1) = (/ &\n        & 0.65950e-11_rb,0.26833e-08_rb,0.40709e-08_rb,0.49265e-08_rb,0.10883e-09_rb /)\n      kbo(:, 1,44, 1) = (/ &\n        & 0.70070e-11_rb,0.15628e-08_rb,0.21521e-08_rb,0.24017e-08_rb,0.59116e-10_rb /)\n      kbo(:, 2,44, 1) = (/ &\n        & 0.65570e-11_rb,0.16954e-08_rb,0.24254e-08_rb,0.27772e-08_rb,0.65027e-10_rb /)\n      kbo(:, 3,44, 1) = (/ &\n        & 0.61612e-11_rb,0.18413e-08_rb,0.26845e-08_rb,0.31310e-08_rb,0.71892e-10_rb /)\n      kbo(:, 4,44, 1) = (/ &\n        & 0.58106e-11_rb,0.19977e-08_rb,0.29542e-08_rb,0.35211e-08_rb,0.79144e-10_rb /)\n      kbo(:, 5,44, 1) = (/ &\n        & 0.54976e-11_rb,0.21464e-08_rb,0.32360e-08_rb,0.39045e-08_rb,0.86629e-10_rb /)\n      kbo(:, 1,45, 1) = (/ &\n        & 0.58728e-11_rb,0.12500e-08_rb,0.17079e-08_rb,0.18743e-08_rb,0.46646e-10_rb /)\n      kbo(:, 2,45, 1) = (/ &\n        & 0.54873e-11_rb,0.13505e-08_rb,0.19105e-08_rb,0.21719e-08_rb,0.51499e-10_rb /)\n      kbo(:, 3,45, 1) = (/ &\n        & 0.51492e-11_rb,0.14670e-08_rb,0.21250e-08_rb,0.24590e-08_rb,0.56982e-10_rb /)\n      kbo(:, 4,45, 1) = (/ &\n        & 0.48504e-11_rb,0.15931e-08_rb,0.23464e-08_rb,0.27802e-08_rb,0.62839e-10_rb /)\n      kbo(:, 5,45, 1) = (/ &\n        & 0.45844e-11_rb,0.17167e-08_rb,0.25731e-08_rb,0.30954e-08_rb,0.68908e-10_rb /)\n      kbo(:, 1,46, 1) = (/ &\n        & 0.49328e-11_rb,0.99811e-09_rb,0.13397e-08_rb,0.14457e-08_rb,0.36694e-10_rb /)\n      kbo(:, 2,46, 1) = (/ &\n        & 0.46012e-11_rb,0.10742e-08_rb,0.14986e-08_rb,0.16875e-08_rb,0.40742e-10_rb /)\n      kbo(:, 3,46, 1) = (/ &\n        & 0.43113e-11_rb,0.11665e-08_rb,0.16813e-08_rb,0.19281e-08_rb,0.45049e-10_rb /)\n      kbo(:, 4,46, 1) = (/ &\n        & 0.40558e-11_rb,0.12673e-08_rb,0.18567e-08_rb,0.21817e-08_rb,0.49751e-10_rb /)\n      kbo(:, 5,46, 1) = (/ &\n        & 0.38288e-11_rb,0.13702e-08_rb,0.20399e-08_rb,0.24419e-08_rb,0.54679e-10_rb /)\n      kbo(:, 1,47, 1) = (/ &\n        & 0.41592e-11_rb,0.79205e-09_rb,0.10438e-08_rb,0.11055e-08_rb,0.28709e-10_rb /)\n      kbo(:, 2,47, 1) = (/ &\n        & 0.38717e-11_rb,0.85357e-09_rb,0.11710e-08_rb,0.13015e-08_rb,0.32198e-10_rb /)\n      kbo(:, 3,47, 1) = (/ &\n        & 0.36215e-11_rb,0.92515e-09_rb,0.13196e-08_rb,0.15103e-08_rb,0.35448e-10_rb /)\n      kbo(:, 4,47, 1) = (/ &\n        & 0.34016e-11_rb,0.10046e-08_rb,0.14619e-08_rb,0.17010e-08_rb,0.39203e-10_rb /)\n      kbo(:, 5,47, 1) = (/ &\n        & 0.32069e-11_rb,0.10904e-08_rb,0.16100e-08_rb,0.19168e-08_rb,0.43187e-10_rb /)\n      kbo(:, 1,48, 1) = (/ &\n        & 0.35100e-11_rb,0.62849e-09_rb,0.81319e-09_rb,0.84567e-09_rb,0.22456e-10_rb /)\n      kbo(:, 2,48, 1) = (/ &\n        & 0.32605e-11_rb,0.68021e-09_rb,0.92169e-09_rb,0.10040e-08_rb,0.25229e-10_rb /)\n      kbo(:, 3,48, 1) = (/ &\n        & 0.30441e-11_rb,0.73294e-09_rb,0.10314e-08_rb,0.11665e-08_rb,0.27903e-10_rb /)\n      kbo(:, 4,48, 1) = (/ &\n        & 0.28547e-11_rb,0.79615e-09_rb,0.11495e-08_rb,0.13251e-08_rb,0.30879e-10_rb /)\n      kbo(:, 5,48, 1) = (/ &\n        & 0.26874e-11_rb,0.86463e-09_rb,0.12703e-08_rb,0.14994e-08_rb,0.34082e-10_rb /)\n      kbo(:, 1,49, 1) = (/ &\n        & 0.29649e-11_rb,0.49867e-09_rb,0.63572e-09_rb,0.64557e-09_rb,0.17554e-10_rb /)\n      kbo(:, 2,49, 1) = (/ &\n        & 0.27480e-11_rb,0.54124e-09_rb,0.71871e-09_rb,0.76840e-09_rb,0.19749e-10_rb /)\n      kbo(:, 3,49, 1) = (/ &\n        & 0.25606e-11_rb,0.58140e-09_rb,0.80413e-09_rb,0.90054e-09_rb,0.22012e-10_rb /)\n      kbo(:, 4,49, 1) = (/ &\n        & 0.23972e-11_rb,0.63097e-09_rb,0.90637e-09_rb,0.10349e-08_rb,0.24308e-10_rb /)\n      kbo(:, 5,49, 1) = (/ &\n        & 0.22534e-11_rb,0.68545e-09_rb,0.10006e-08_rb,0.11704e-08_rb,0.26872e-10_rb /)\n      kbo(:, 1,50, 1) = (/ &\n        & 0.25019e-11_rb,0.39853e-09_rb,0.49374e-09_rb,0.49615e-09_rb,0.13762e-10_rb /)\n      kbo(:, 2,50, 1) = (/ &\n        & 0.23136e-11_rb,0.42952e-09_rb,0.56141e-09_rb,0.58980e-09_rb,0.15500e-10_rb /)\n      kbo(:, 3,50, 1) = (/ &\n        & 0.21517e-11_rb,0.46334e-09_rb,0.63284e-09_rb,0.69788e-09_rb,0.17390e-10_rb /)\n      kbo(:, 4,50, 1) = (/ &\n        & 0.20110e-11_rb,0.50130e-09_rb,0.71124e-09_rb,0.80903e-09_rb,0.19184e-10_rb /)\n      kbo(:, 5,50, 1) = (/ &\n        & 0.18875e-11_rb,0.54446e-09_rb,0.78908e-09_rb,0.91435e-09_rb,0.21230e-10_rb /)\n      kbo(:, 1,51, 1) = (/ &\n        & 0.21111e-11_rb,0.31534e-09_rb,0.38552e-09_rb,0.38324e-09_rb,0.10851e-10_rb /)\n      kbo(:, 2,51, 1) = (/ &\n        & 0.19478e-11_rb,0.34179e-09_rb,0.43986e-09_rb,0.45355e-09_rb,0.12176e-10_rb /)\n      kbo(:, 3,51, 1) = (/ &\n        & 0.18079e-11_rb,0.37016e-09_rb,0.49835e-09_rb,0.53919e-09_rb,0.13683e-10_rb /)\n      kbo(:, 4,51, 1) = (/ &\n        & 0.16868e-11_rb,0.39846e-09_rb,0.55746e-09_rb,0.62805e-09_rb,0.15164e-10_rb /)\n      kbo(:, 5,51, 1) = (/ &\n        & 0.15809e-11_rb,0.43272e-09_rb,0.62310e-09_rb,0.71587e-09_rb,0.16785e-10_rb /)\n      kbo(:, 1,52, 1) = (/ &\n        & 0.17830e-11_rb,0.24939e-09_rb,0.30033e-09_rb,0.29708e-09_rb,0.85480e-11_rb /)\n      kbo(:, 2,52, 1) = (/ &\n        & 0.16410e-11_rb,0.27244e-09_rb,0.34467e-09_rb,0.34870e-09_rb,0.95642e-11_rb /)\n      kbo(:, 3,52, 1) = (/ &\n        & 0.15200e-11_rb,0.29507e-09_rb,0.39020e-09_rb,0.41505e-09_rb,0.10764e-10_rb /)\n      kbo(:, 4,52, 1) = (/ &\n        & 0.14156e-11_rb,0.31736e-09_rb,0.43693e-09_rb,0.48758e-09_rb,0.12016e-10_rb /)\n      kbo(:, 5,52, 1) = (/ &\n        & 0.13246e-11_rb,0.34409e-09_rb,0.49243e-09_rb,0.56181e-09_rb,0.13267e-10_rb /)\n      kbo(:, 1,53, 1) = (/ &\n        & 0.15074e-11_rb,0.19746e-09_rb,0.23442e-09_rb,0.23027e-09_rb,0.66942e-11_rb /)\n      kbo(:, 2,53, 1) = (/ &\n        & 0.13838e-11_rb,0.21754e-09_rb,0.26812e-09_rb,0.26865e-09_rb,0.75095e-11_rb /)\n      kbo(:, 3,53, 1) = (/ &\n        & 0.12789e-11_rb,0.23445e-09_rb,0.30510e-09_rb,0.31916e-09_rb,0.84626e-11_rb /)\n      kbo(:, 4,53, 1) = (/ &\n        & 0.11888e-11_rb,0.25305e-09_rb,0.34496e-09_rb,0.37906e-09_rb,0.94963e-11_rb /)\n      kbo(:, 5,53, 1) = (/ &\n        & 0.11106e-11_rb,0.27355e-09_rb,0.38680e-09_rb,0.43882e-09_rb,0.10486e-10_rb /)\n      kbo(:, 1,54, 1) = (/ &\n        & 0.12722e-11_rb,0.15676e-09_rb,0.18436e-09_rb,0.18188e-09_rb,0.52601e-11_rb /)\n      kbo(:, 2,54, 1) = (/ &\n        & 0.11649e-11_rb,0.17256e-09_rb,0.21030e-09_rb,0.20876e-09_rb,0.59465e-11_rb /)\n      kbo(:, 3,54, 1) = (/ &\n        & 0.10743e-11_rb,0.18706e-09_rb,0.24022e-09_rb,0.24657e-09_rb,0.66750e-11_rb /)\n      kbo(:, 4,54, 1) = (/ &\n        & 0.99683e-12_rb,0.20263e-09_rb,0.27206e-09_rb,0.29337e-09_rb,0.75016e-11_rb /)\n      kbo(:, 5,54, 1) = (/ &\n        & 0.92975e-12_rb,0.21798e-09_rb,0.30420e-09_rb,0.34203e-09_rb,0.83182e-11_rb /)\n      kbo(:, 1,55, 1) = (/ &\n        & 0.10733e-11_rb,0.12552e-09_rb,0.14668e-09_rb,0.14477e-09_rb,0.41440e-11_rb /)\n      kbo(:, 2,55, 1) = (/ &\n        & 0.98027e-12_rb,0.13705e-09_rb,0.16480e-09_rb,0.16298e-09_rb,0.47137e-11_rb /)\n      kbo(:, 3,55, 1) = (/ &\n        & 0.90209e-12_rb,0.14966e-09_rb,0.18911e-09_rb,0.19117e-09_rb,0.52730e-11_rb /)\n      kbo(:, 4,55, 1) = (/ &\n        & 0.83546e-12_rb,0.16210e-09_rb,0.21410e-09_rb,0.22758e-09_rb,0.59349e-11_rb /)\n      kbo(:, 5,55, 1) = (/ &\n        & 0.77800e-12_rb,0.17423e-09_rb,0.23972e-09_rb,0.26725e-09_rb,0.66163e-11_rb /)\n      kbo(:, 1,56, 1) = (/ &\n        & 0.90624e-12_rb,0.99786e-10_rb,0.11674e-09_rb,0.11286e-09_rb,0.32776e-11_rb /)\n      kbo(:, 2,56, 1) = (/ &\n        & 0.82547e-12_rb,0.10897e-09_rb,0.12938e-09_rb,0.12705e-09_rb,0.37161e-11_rb /)\n      kbo(:, 3,56, 1) = (/ &\n        & 0.75791e-12_rb,0.12009e-09_rb,0.14804e-09_rb,0.14827e-09_rb,0.41646e-11_rb /)\n      kbo(:, 4,56, 1) = (/ &\n        & 0.70058e-12_rb,0.12925e-09_rb,0.16837e-09_rb,0.17630e-09_rb,0.46957e-11_rb /)\n      kbo(:, 5,56, 1) = (/ &\n        & 0.65131e-12_rb,0.13937e-09_rb,0.18999e-09_rb,0.20899e-09_rb,0.52742e-11_rb /)\n      kbo(:, 1,57, 1) = (/ &\n        & 0.76595e-12_rb,0.78822e-10_rb,0.93863e-10_rb,0.87529e-10_rb,0.26033e-11_rb /)\n      kbo(:, 2,57, 1) = (/ &\n        & 0.69568e-12_rb,0.86555e-10_rb,0.10190e-09_rb,0.10022e-09_rb,0.29288e-11_rb /)\n      kbo(:, 3,57, 1) = (/ &\n        & 0.63721e-12_rb,0.95385e-10_rb,0.11640e-09_rb,0.11533e-09_rb,0.32994e-11_rb /)\n      kbo(:, 4,57, 1) = (/ &\n        & 0.58782e-12_rb,0.10325e-09_rb,0.13264e-09_rb,0.13663e-09_rb,0.37186e-11_rb /)\n      kbo(:, 5,57, 1) = (/ &\n        & 0.54552e-12_rb,0.11173e-09_rb,0.15042e-09_rb,0.16253e-09_rb,0.41819e-11_rb /)\n      kbo(:, 1,58, 1) = (/ &\n        & 0.64693e-12_rb,0.62421e-10_rb,0.76174e-10_rb,0.68324e-10_rb,0.20833e-11_rb /)\n      kbo(:, 2,58, 1) = (/ &\n        & 0.58588e-12_rb,0.69278e-10_rb,0.81197e-10_rb,0.79691e-10_rb,0.23130e-11_rb /)\n      kbo(:, 3,58, 1) = (/ &\n        & 0.53535e-12_rb,0.75873e-10_rb,0.91414e-10_rb,0.90398e-10_rb,0.26350e-11_rb /)\n      kbo(:, 4,58, 1) = (/ &\n        & 0.49285e-12_rb,0.82653e-10_rb,0.10493e-09_rb,0.10617e-09_rb,0.29473e-11_rb /)\n      kbo(:, 5,58, 1) = (/ &\n        & 0.45660e-12_rb,0.89643e-10_rb,0.11861e-09_rb,0.12647e-09_rb,0.33231e-11_rb /)\n      kbo(:, 1,59, 1) = (/ &\n        & 0.53645e-12_rb,0.50557e-10_rb,0.62240e-10_rb,0.54854e-10_rb,0.16930e-11_rb /)\n      kbo(:, 2,59, 1) = (/ &\n        & 0.48523e-12_rb,0.56468e-10_rb,0.65604e-10_rb,0.64827e-10_rb,0.18702e-11_rb /)\n      kbo(:, 3,59, 1) = (/ &\n        & 0.44294e-12_rb,0.61442e-10_rb,0.73667e-10_rb,0.72688e-10_rb,0.21292e-11_rb /)\n      kbo(:, 4,59, 1) = (/ &\n        & 0.40744e-12_rb,0.67184e-10_rb,0.84490e-10_rb,0.85217e-10_rb,0.23832e-11_rb /)\n      kbo(:, 5,59, 1) = (/ &\n        & 0.37720e-12_rb,0.72657e-10_rb,0.95692e-10_rb,0.10144e-09_rb,0.26852e-11_rb /)\n      kbo(:, 1,13, 2) = (/ &\n        & 0.18323e-07_rb,0.86266e-05_rb,0.13728e-04_rb,0.15952e-04_rb,0.78927e-06_rb /)\n      kbo(:, 2,13, 2) = (/ &\n        & 0.16961e-07_rb,0.96203e-05_rb,0.15275e-04_rb,0.17863e-04_rb,0.93659e-06_rb /)\n      kbo(:, 3,13, 2) = (/ &\n        & 0.15787e-07_rb,0.10675e-04_rb,0.16924e-04_rb,0.19675e-04_rb,0.11050e-05_rb /)\n      kbo(:, 4,13, 2) = (/ &\n        & 0.14764e-07_rb,0.11779e-04_rb,0.18474e-04_rb,0.21320e-04_rb,0.12868e-05_rb /)\n      kbo(:, 5,13, 2) = (/ &\n        & 0.13865e-07_rb,0.12843e-04_rb,0.20029e-04_rb,0.23080e-04_rb,0.14565e-05_rb /)\n      kbo(:, 1,14, 2) = (/ &\n        & 0.14893e-07_rb,0.71882e-05_rb,0.11443e-04_rb,0.13271e-04_rb,0.65835e-06_rb /)\n      kbo(:, 2,14, 2) = (/ &\n        & 0.13793e-07_rb,0.80276e-05_rb,0.12732e-04_rb,0.14890e-04_rb,0.78132e-06_rb /)\n      kbo(:, 3,14, 2) = (/ &\n        & 0.12844e-07_rb,0.89189e-05_rb,0.14101e-04_rb,0.16339e-04_rb,0.92233e-06_rb /)\n      kbo(:, 4,14, 2) = (/ &\n        & 0.12017e-07_rb,0.98309e-05_rb,0.15384e-04_rb,0.17721e-04_rb,0.10676e-05_rb /)\n      kbo(:, 5,14, 2) = (/ &\n        & 0.11289e-07_rb,0.10704e-04_rb,0.16679e-04_rb,0.19194e-04_rb,0.12091e-05_rb /)\n      kbo(:, 1,15, 2) = (/ &\n        & 0.12096e-07_rb,0.59934e-05_rb,0.95449e-05_rb,0.11058e-04_rb,0.54969e-06_rb /)\n      kbo(:, 2,15, 2) = (/ &\n        & 0.11209e-07_rb,0.66932e-05_rb,0.10623e-04_rb,0.12407e-04_rb,0.65197e-06_rb /)\n      kbo(:, 3,15, 2) = (/ &\n        & 0.10443e-07_rb,0.74449e-05_rb,0.11746e-04_rb,0.13571e-04_rb,0.76940e-06_rb /)\n      kbo(:, 4,15, 2) = (/ &\n        & 0.97747e-08_rb,0.81948e-05_rb,0.12814e-04_rb,0.14732e-04_rb,0.88496e-06_rb /)\n      kbo(:, 5,15, 2) = (/ &\n        & 0.91864e-08_rb,0.89188e-05_rb,0.13883e-04_rb,0.15946e-04_rb,0.10023e-05_rb /)\n      kbo(:, 1,16, 2) = (/ &\n        & 0.98205e-08_rb,0.50027e-05_rb,0.79644e-05_rb,0.92248e-05_rb,0.45876e-06_rb /)\n      kbo(:, 2,16, 2) = (/ &\n        & 0.91061e-08_rb,0.55846e-05_rb,0.88593e-05_rb,0.10331e-04_rb,0.54334e-06_rb /)\n      kbo(:, 3,16, 2) = (/ &\n        & 0.84882e-08_rb,0.62183e-05_rb,0.97757e-05_rb,0.11279e-04_rb,0.64050e-06_rb /)\n      kbo(:, 4,16, 2) = (/ &\n        & 0.79486e-08_rb,0.68276e-05_rb,0.10664e-04_rb,0.12244e-04_rb,0.73344e-06_rb /)\n      kbo(:, 5,16, 2) = (/ &\n        & 0.74732e-08_rb,0.74268e-05_rb,0.11545e-04_rb,0.13224e-04_rb,0.82955e-06_rb /)\n      kbo(:, 1,17, 2) = (/ &\n        & 0.79753e-08_rb,0.41713e-05_rb,0.66153e-05_rb,0.76892e-05_rb,0.38247e-06_rb /)\n      kbo(:, 2,17, 2) = (/ &\n        & 0.73994e-08_rb,0.46562e-05_rb,0.73753e-05_rb,0.85922e-05_rb,0.45188e-06_rb /)\n      kbo(:, 3,17, 2) = (/ &\n        & 0.69008e-08_rb,0.51829e-05_rb,0.81280e-05_rb,0.93638e-05_rb,0.53211e-06_rb /)\n      kbo(:, 4,17, 2) = (/ &\n        & 0.64650e-08_rb,0.56765e-05_rb,0.88560e-05_rb,0.10168e-04_rb,0.60647e-06_rb /)\n      kbo(:, 5,17, 2) = (/ &\n        & 0.60807e-08_rb,0.61758e-05_rb,0.95894e-05_rb,0.10949e-04_rb,0.68549e-06_rb /)\n      kbo(:, 1,18, 2) = (/ &\n        & 0.64779e-08_rb,0.34727e-05_rb,0.54875e-05_rb,0.64000e-05_rb,0.31851e-06_rb /)\n      kbo(:, 2,18, 2) = (/ &\n        & 0.60135e-08_rb,0.38751e-05_rb,0.61308e-05_rb,0.71372e-05_rb,0.37552e-06_rb /)\n      kbo(:, 3,18, 2) = (/ &\n        & 0.56111e-08_rb,0.43132e-05_rb,0.67478e-05_rb,0.77698e-05_rb,0.44141e-06_rb /)\n      kbo(:, 4,18, 2) = (/ &\n        & 0.52590e-08_rb,0.47150e-05_rb,0.73444e-05_rb,0.84370e-05_rb,0.50075e-06_rb /)\n      kbo(:, 5,18, 2) = (/ &\n        & 0.49483e-08_rb,0.51345e-05_rb,0.79495e-05_rb,0.90637e-05_rb,0.56601e-06_rb /)\n      kbo(:, 1,19, 2) = (/ &\n        & 0.52627e-08_rb,0.28908e-05_rb,0.45586e-05_rb,0.53260e-05_rb,0.26516e-06_rb /)\n      kbo(:, 2,19, 2) = (/ &\n        & 0.48882e-08_rb,0.32260e-05_rb,0.50940e-05_rb,0.59200e-05_rb,0.31190e-06_rb /)\n      kbo(:, 3,19, 2) = (/ &\n        & 0.45632e-08_rb,0.35843e-05_rb,0.55992e-05_rb,0.64397e-05_rb,0.36608e-06_rb /)\n      kbo(:, 4,19, 2) = (/ &\n        & 0.42786e-08_rb,0.39167e-05_rb,0.60923e-05_rb,0.69972e-05_rb,0.41361e-06_rb /)\n      kbo(:, 5,19, 2) = (/ &\n        & 0.40273e-08_rb,0.42667e-05_rb,0.65904e-05_rb,0.75021e-05_rb,0.46741e-06_rb /)\n      kbo(:, 1,20, 2) = (/ &\n        & 0.42704e-08_rb,0.24074e-05_rb,0.37990e-05_rb,0.44458e-05_rb,0.22103e-06_rb /)\n      kbo(:, 2,20, 2) = (/ &\n        & 0.39690e-08_rb,0.26942e-05_rb,0.42393e-05_rb,0.49120e-05_rb,0.26014e-06_rb /)\n      kbo(:, 3,20, 2) = (/ &\n        & 0.37071e-08_rb,0.29827e-05_rb,0.46574e-05_rb,0.53487e-05_rb,0.30416e-06_rb /)\n      kbo(:, 4,20, 2) = (/ &\n        & 0.34776e-08_rb,0.32601e-05_rb,0.50635e-05_rb,0.58076e-05_rb,0.34304e-06_rb /)\n      kbo(:, 5,20, 2) = (/ &\n        & 0.32747e-08_rb,0.35518e-05_rb,0.54700e-05_rb,0.62197e-05_rb,0.38752e-06_rb /)\n      kbo(:, 1,21, 2) = (/ &\n        & 0.34649e-08_rb,0.20096e-05_rb,0.31689e-05_rb,0.37070e-05_rb,0.18424e-06_rb /)\n      kbo(:, 2,21, 2) = (/ &\n        & 0.32224e-08_rb,0.22503e-05_rb,0.35271e-05_rb,0.40784e-05_rb,0.21705e-06_rb /)\n      kbo(:, 3,21, 2) = (/ &\n        & 0.30114e-08_rb,0.24834e-05_rb,0.38737e-05_rb,0.44436e-05_rb,0.25229e-06_rb /)\n      kbo(:, 4,21, 2) = (/ &\n        & 0.28263e-08_rb,0.27149e-05_rb,0.42083e-05_rb,0.48061e-05_rb,0.28464e-06_rb /)\n      kbo(:, 5,21, 2) = (/ &\n        & 0.26626e-08_rb,0.29556e-05_rb,0.45394e-05_rb,0.51565e-05_rb,0.32148e-06_rb /)\n      kbo(:, 1,22, 2) = (/ &\n        & 0.27976e-08_rb,0.16913e-05_rb,0.26632e-05_rb,0.31108e-05_rb,0.15537e-06_rb /)\n      kbo(:, 2,22, 2) = (/ &\n        & 0.26043e-08_rb,0.18908e-05_rb,0.29553e-05_rb,0.34067e-05_rb,0.18311e-06_rb /)\n      kbo(:, 3,22, 2) = (/ &\n        & 0.24359e-08_rb,0.20811e-05_rb,0.32390e-05_rb,0.37110e-05_rb,0.21094e-06_rb /)\n      kbo(:, 4,22, 2) = (/ &\n        & 0.22878e-08_rb,0.22746e-05_rb,0.35144e-05_rb,0.40009e-05_rb,0.23816e-06_rb /)\n      kbo(:, 5,22, 2) = (/ &\n        & 0.21567e-08_rb,0.24714e-05_rb,0.37839e-05_rb,0.42910e-05_rb,0.26886e-06_rb /)\n      kbo(:, 1,23, 2) = (/ &\n        & 0.22583e-08_rb,0.14234e-05_rb,0.22388e-05_rb,0.26088e-05_rb,0.13143e-06_rb /)\n      kbo(:, 2,23, 2) = (/ &\n        & 0.21043e-08_rb,0.15864e-05_rb,0.24776e-05_rb,0.28493e-05_rb,0.15460e-06_rb /)\n      kbo(:, 3,23, 2) = (/ &\n        & 0.19699e-08_rb,0.17436e-05_rb,0.27072e-05_rb,0.31009e-05_rb,0.17669e-06_rb /)\n      kbo(:, 4,23, 2) = (/ &\n        & 0.18515e-08_rb,0.19057e-05_rb,0.29355e-05_rb,0.33308e-05_rb,0.19953e-06_rb /)\n      kbo(:, 5,23, 2) = (/ &\n        & 0.17465e-08_rb,0.20653e-05_rb,0.31542e-05_rb,0.35663e-05_rb,0.22501e-06_rb /)\n      kbo(:, 1,24, 2) = (/ &\n        & 0.18221e-08_rb,0.12001e-05_rb,0.18808e-05_rb,0.21868e-05_rb,0.11138e-06_rb /)\n      kbo(:, 2,24, 2) = (/ &\n        & 0.16995e-08_rb,0.13315e-05_rb,0.20779e-05_rb,0.23825e-05_rb,0.13068e-06_rb /)\n      kbo(:, 3,24, 2) = (/ &\n        & 0.15923e-08_rb,0.14625e-05_rb,0.22647e-05_rb,0.25884e-05_rb,0.14820e-06_rb /)\n      kbo(:, 4,24, 2) = (/ &\n        & 0.14978e-08_rb,0.15972e-05_rb,0.24512e-05_rb,0.27771e-05_rb,0.16734e-06_rb /)\n      kbo(:, 5,24, 2) = (/ &\n        & 0.14138e-08_rb,0.17254e-05_rb,0.26296e-05_rb,0.29649e-05_rb,0.18848e-06_rb /)\n      kbo(:, 1,25, 2) = (/ &\n        & 0.14693e-08_rb,0.10111e-05_rb,0.15809e-05_rb,0.18286e-05_rb,0.94366e-07_rb /)\n      kbo(:, 2,25, 2) = (/ &\n        & 0.13718e-08_rb,0.11199e-05_rb,0.17430e-05_rb,0.19952e-05_rb,0.11045e-06_rb /)\n      kbo(:, 3,25, 2) = (/ &\n        & 0.12864e-08_rb,0.12273e-05_rb,0.18957e-05_rb,0.21572e-05_rb,0.12445e-06_rb /)\n      kbo(:, 4,25, 2) = (/ &\n        & 0.12110e-08_rb,0.13373e-05_rb,0.20462e-05_rb,0.23162e-05_rb,0.14042e-06_rb /)\n      kbo(:, 5,25, 2) = (/ &\n        & 0.11438e-08_rb,0.14410e-05_rb,0.21916e-05_rb,0.24648e-05_rb,0.15767e-06_rb /)\n      kbo(:, 1,26, 2) = (/ &\n        & 0.11834e-08_rb,0.85331e-06_rb,0.13316e-05_rb,0.15329e-05_rb,0.80212e-07_rb /)\n      kbo(:, 2,26, 2) = (/ &\n        & 0.11061e-08_rb,0.94192e-06_rb,0.14626e-05_rb,0.16729e-05_rb,0.92775e-07_rb /)\n      kbo(:, 3,26, 2) = (/ &\n        & 0.10382e-08_rb,0.10317e-05_rb,0.15890e-05_rb,0.18006e-05_rb,0.10462e-06_rb /)\n      kbo(:, 4,26, 2) = (/ &\n        & 0.97810e-09_rb,0.11205e-05_rb,0.17099e-05_rb,0.19314e-05_rb,0.11800e-06_rb /)\n      kbo(:, 5,26, 2) = (/ &\n        & 0.92457e-09_rb,0.12034e-05_rb,0.18276e-05_rb,0.20504e-05_rb,0.13209e-06_rb /)\n      kbo(:, 1,27, 2) = (/ &\n        & 0.95311e-09_rb,0.71890e-06_rb,0.11218e-05_rb,0.12867e-05_rb,0.68084e-07_rb /)\n      kbo(:, 2,27, 2) = (/ &\n        & 0.89177e-09_rb,0.79258e-06_rb,0.12275e-05_rb,0.14019e-05_rb,0.77999e-07_rb /)\n      kbo(:, 3,27, 2) = (/ &\n        & 0.83781e-09_rb,0.86605e-06_rb,0.13308e-05_rb,0.15040e-05_rb,0.88027e-07_rb /)\n      kbo(:, 4,27, 2) = (/ &\n        & 0.78998e-09_rb,0.93815e-06_rb,0.14285e-05_rb,0.16091e-05_rb,0.99057e-07_rb /)\n      kbo(:, 5,27, 2) = (/ &\n        & 0.74729e-09_rb,0.10046e-05_rb,0.15236e-05_rb,0.17059e-05_rb,0.11074e-06_rb /)\n      kbo(:, 1,28, 2) = (/ &\n        & 0.76771e-09_rb,0.60623e-06_rb,0.94427e-06_rb,0.10796e-05_rb,0.57844e-07_rb /)\n      kbo(:, 2,28, 2) = (/ &\n        & 0.71904e-09_rb,0.66653e-06_rb,0.10298e-05_rb,0.11699e-05_rb,0.65726e-07_rb /)\n      kbo(:, 3,28, 2) = (/ &\n        & 0.67614e-09_rb,0.72689e-06_rb,0.11131e-05_rb,0.12568e-05_rb,0.74009e-07_rb /)\n      kbo(:, 4,28, 2) = (/ &\n        & 0.63806e-09_rb,0.78482e-06_rb,0.11927e-05_rb,0.13406e-05_rb,0.83200e-07_rb /)\n      kbo(:, 5,28, 2) = (/ &\n        & 0.60401e-09_rb,0.83806e-06_rb,0.12695e-05_rb,0.14186e-05_rb,0.92306e-07_rb /)\n      kbo(:, 1,29, 2) = (/ &\n        & 0.61817e-09_rb,0.51053e-06_rb,0.79450e-06_rb,0.90687e-06_rb,0.49078e-07_rb /)\n      kbo(:, 2,29, 2) = (/ &\n        & 0.57958e-09_rb,0.56071e-06_rb,0.86403e-06_rb,0.97690e-06_rb,0.55257e-07_rb /)\n      kbo(:, 3,29, 2) = (/ &\n        & 0.54551e-09_rb,0.61009e-06_rb,0.93077e-06_rb,0.10495e-05_rb,0.62286e-07_rb /)\n      kbo(:, 4,29, 2) = (/ &\n        & 0.51520e-09_rb,0.65631e-06_rb,0.99567e-06_rb,0.11159e-05_rb,0.69954e-07_rb /)\n      kbo(:, 5,29, 2) = (/ &\n        & 0.48806e-09_rb,0.69830e-06_rb,0.10576e-05_rb,0.11790e-05_rb,0.77228e-07_rb /)\n      kbo(:, 1,30, 2) = (/ &\n        & 0.49783e-09_rb,0.43014e-06_rb,0.66732e-06_rb,0.76058e-06_rb,0.41306e-07_rb /)\n      kbo(:, 2,30, 2) = (/ &\n        & 0.46723e-09_rb,0.47148e-06_rb,0.72434e-06_rb,0.81682e-06_rb,0.46537e-07_rb /)\n      kbo(:, 3,30, 2) = (/ &\n        & 0.44015e-09_rb,0.51146e-06_rb,0.77809e-06_rb,0.87537e-06_rb,0.52451e-07_rb /)\n      kbo(:, 4,30, 2) = (/ &\n        & 0.41603e-09_rb,0.54877e-06_rb,0.83073e-06_rb,0.92884e-06_rb,0.58793e-07_rb /)\n      kbo(:, 5,30, 2) = (/ &\n        & 0.39440e-09_rb,0.58159e-06_rb,0.88054e-06_rb,0.98030e-06_rb,0.64630e-07_rb /)\n      kbo(:, 1,31, 2) = (/ &\n        & 0.40087e-09_rb,0.36256e-06_rb,0.56062e-06_rb,0.63549e-06_rb,0.34778e-07_rb /)\n      kbo(:, 2,31, 2) = (/ &\n        & 0.37660e-09_rb,0.39620e-06_rb,0.60674e-06_rb,0.68313e-06_rb,0.39213e-07_rb /)\n      kbo(:, 3,31, 2) = (/ &\n        & 0.35510e-09_rb,0.42855e-06_rb,0.65037e-06_rb,0.72999e-06_rb,0.44176e-07_rb /)\n      kbo(:, 4,31, 2) = (/ &\n        & 0.33590e-09_rb,0.45852e-06_rb,0.69308e-06_rb,0.77338e-06_rb,0.49424e-07_rb /)\n      kbo(:, 5,31, 2) = (/ &\n        & 0.31866e-09_rb,0.48459e-06_rb,0.73297e-06_rb,0.81484e-06_rb,0.54137e-07_rb /)\n      kbo(:, 1,32, 2) = (/ &\n        & 0.32280e-09_rb,0.30547e-06_rb,0.47083e-06_rb,0.53147e-06_rb,0.29353e-07_rb /)\n      kbo(:, 2,32, 2) = (/ &\n        & 0.30356e-09_rb,0.33271e-06_rb,0.50770e-06_rb,0.57112e-06_rb,0.33078e-07_rb /)\n      kbo(:, 3,32, 2) = (/ &\n        & 0.28647e-09_rb,0.35876e-06_rb,0.54339e-06_rb,0.60852e-06_rb,0.37211e-07_rb /)\n      kbo(:, 4,32, 2) = (/ &\n        & 0.27120e-09_rb,0.38214e-06_rb,0.57781e-06_rb,0.64354e-06_rb,0.41295e-07_rb /)\n      kbo(:, 5,32, 2) = (/ &\n        & 0.25746e-09_rb,0.40374e-06_rb,0.60990e-06_rb,0.67711e-06_rb,0.45362e-07_rb /)\n      kbo(:, 1,33, 2) = (/ &\n        & 0.25997e-09_rb,0.25723e-06_rb,0.39505e-06_rb,0.44467e-06_rb,0.24754e-07_rb /)\n      kbo(:, 2,33, 2) = (/ &\n        & 0.24471e-09_rb,0.27926e-06_rb,0.42469e-06_rb,0.47702e-06_rb,0.27907e-07_rb /)\n      kbo(:, 3,33, 2) = (/ &\n        & 0.23113e-09_rb,0.30024e-06_rb,0.45384e-06_rb,0.50672e-06_rb,0.31344e-07_rb /)\n      kbo(:, 4,33, 2) = (/ &\n        & 0.21898e-09_rb,0.31862e-06_rb,0.48142e-06_rb,0.53515e-06_rb,0.34590e-07_rb /)\n      kbo(:, 5,33, 2) = (/ &\n        & 0.20803e-09_rb,0.33624e-06_rb,0.50721e-06_rb,0.56242e-06_rb,0.37957e-07_rb /)\n      kbo(:, 1,34, 2) = (/ &\n        & 0.20987e-09_rb,0.21561e-06_rb,0.33035e-06_rb,0.37093e-06_rb,0.20801e-07_rb /)\n      kbo(:, 2,34, 2) = (/ &\n        & 0.19771e-09_rb,0.23356e-06_rb,0.35433e-06_rb,0.39723e-06_rb,0.23443e-07_rb /)\n      kbo(:, 3,34, 2) = (/ &\n        & 0.18688e-09_rb,0.25042e-06_rb,0.37804e-06_rb,0.42127e-06_rb,0.26271e-07_rb /)\n      kbo(:, 4,34, 2) = (/ &\n        & 0.17716e-09_rb,0.26514e-06_rb,0.40029e-06_rb,0.44433e-06_rb,0.28867e-07_rb /)\n      kbo(:, 5,34, 2) = (/ &\n        & 0.16840e-09_rb,0.27949e-06_rb,0.42102e-06_rb,0.46612e-06_rb,0.31620e-07_rb /)\n      kbo(:, 1,35, 2) = (/ &\n        & 0.17046e-09_rb,0.17909e-06_rb,0.27397e-06_rb,0.30730e-06_rb,0.17283e-07_rb /)\n      kbo(:, 2,35, 2) = (/ &\n        & 0.16066e-09_rb,0.19378e-06_rb,0.29367e-06_rb,0.32869e-06_rb,0.19456e-07_rb /)\n      kbo(:, 3,35, 2) = (/ &\n        & 0.15191e-09_rb,0.20716e-06_rb,0.31287e-06_rb,0.34820e-06_rb,0.21759e-07_rb /)\n      kbo(:, 4,35, 2) = (/ &\n        & 0.14407e-09_rb,0.21938e-06_rb,0.33090e-06_rb,0.36703e-06_rb,0.23854e-07_rb /)\n      kbo(:, 5,35, 2) = (/ &\n        & 0.13699e-09_rb,0.23115e-06_rb,0.34779e-06_rb,0.38459e-06_rb,0.26128e-07_rb /)\n      kbo(:, 1,36, 2) = (/ &\n        & 0.13938e-09_rb,0.14742e-06_rb,0.22535e-06_rb,0.25261e-06_rb,0.14145e-07_rb /)\n      kbo(:, 2,36, 2) = (/ &\n        & 0.13137e-09_rb,0.15949e-06_rb,0.24155e-06_rb,0.27011e-06_rb,0.15917e-07_rb /)\n      kbo(:, 3,36, 2) = (/ &\n        & 0.12423e-09_rb,0.17037e-06_rb,0.25721e-06_rb,0.28606e-06_rb,0.17809e-07_rb /)\n      kbo(:, 4,36, 2) = (/ &\n        & 0.11782e-09_rb,0.18044e-06_rb,0.27200e-06_rb,0.30149e-06_rb,0.19530e-07_rb /)\n      kbo(:, 5,36, 2) = (/ &\n        & 0.11204e-09_rb,0.19011e-06_rb,0.28582e-06_rb,0.31581e-06_rb,0.21391e-07_rb /)\n      kbo(:, 1,37, 2) = (/ &\n        & 0.11503e-09_rb,0.11991e-06_rb,0.18339e-06_rb,0.20540e-06_rb,0.11398e-07_rb /)\n      kbo(:, 2,37, 2) = (/ &\n        & 0.10837e-09_rb,0.12985e-06_rb,0.19670e-06_rb,0.21991e-06_rb,0.12829e-07_rb /)\n      kbo(:, 3,37, 2) = (/ &\n        & 0.10244e-09_rb,0.13895e-06_rb,0.20964e-06_rb,0.23310e-06_rb,0.14370e-07_rb /)\n      kbo(:, 4,37, 2) = (/ &\n        & 0.97122e-10_rb,0.14725e-06_rb,0.22183e-06_rb,0.24582e-06_rb,0.15790e-07_rb /)\n      kbo(:, 5,37, 2) = (/ &\n        & 0.92325e-10_rb,0.15526e-06_rb,0.23327e-06_rb,0.25767e-06_rb,0.17308e-07_rb /)\n      kbo(:, 1,38, 2) = (/ &\n        & 0.94990e-10_rb,0.97434e-07_rb,0.14912e-06_rb,0.16699e-06_rb,0.91745e-08_rb /)\n      kbo(:, 2,38, 2) = (/ &\n        & 0.89449e-10_rb,0.10563e-06_rb,0.16007e-06_rb,0.17890e-06_rb,0.10330e-07_rb /)\n      kbo(:, 3,38, 2) = (/ &\n        & 0.84516e-10_rb,0.11322e-06_rb,0.17071e-06_rb,0.18982e-06_rb,0.11585e-07_rb /)\n      kbo(:, 4,38, 2) = (/ &\n        & 0.80096e-10_rb,0.12009e-06_rb,0.18084e-06_rb,0.20030e-06_rb,0.12759e-07_rb /)\n      kbo(:, 5,38, 2) = (/ &\n        & 0.76113e-10_rb,0.12672e-06_rb,0.19028e-06_rb,0.21012e-06_rb,0.13992e-07_rb /)\n      kbo(:, 1,39, 2) = (/ &\n        & 0.78444e-10_rb,0.79147e-07_rb,0.12122e-06_rb,0.13573e-06_rb,0.73846e-08_rb /)\n      kbo(:, 2,39, 2) = (/ &\n        & 0.73832e-10_rb,0.85901e-07_rb,0.13022e-06_rb,0.14552e-06_rb,0.83180e-08_rb /)\n      kbo(:, 3,39, 2) = (/ &\n        & 0.69729e-10_rb,0.92230e-07_rb,0.13899e-06_rb,0.15459e-06_rb,0.93374e-08_rb /)\n      kbo(:, 4,39, 2) = (/ &\n        & 0.66056e-10_rb,0.97919e-07_rb,0.14737e-06_rb,0.16325e-06_rb,0.10307e-07_rb /)\n      kbo(:, 5,39, 2) = (/ &\n        & 0.62749e-10_rb,0.10341e-06_rb,0.15518e-06_rb,0.17133e-06_rb,0.11312e-07_rb /)\n      kbo(:, 1,40, 2) = (/ &\n        & 0.65207e-10_rb,0.63715e-07_rb,0.97755e-07_rb,0.10945e-06_rb,0.58831e-08_rb /)\n      kbo(:, 2,40, 2) = (/ &\n        & 0.61319e-10_rb,0.69289e-07_rb,0.10524e-06_rb,0.11757e-06_rb,0.66237e-08_rb /)\n      kbo(:, 3,40, 2) = (/ &\n        & 0.57866e-10_rb,0.74694e-07_rb,0.11245e-06_rb,0.12515e-06_rb,0.74455e-08_rb /)\n      kbo(:, 4,40, 2) = (/ &\n        & 0.54779e-10_rb,0.79359e-07_rb,0.11941e-06_rb,0.13229e-06_rb,0.82595e-08_rb /)\n      kbo(:, 5,40, 2) = (/ &\n        & 0.52003e-10_rb,0.83957e-07_rb,0.12593e-06_rb,0.13909e-06_rb,0.90698e-08_rb /)\n      kbo(:, 1,41, 2) = (/ &\n        & 0.54263e-10_rb,0.51172e-07_rb,0.78714e-07_rb,0.88183e-07_rb,0.46740e-08_rb /)\n      kbo(:, 2,41, 2) = (/ &\n        & 0.50978e-10_rb,0.55838e-07_rb,0.84939e-07_rb,0.94828e-07_rb,0.52655e-08_rb /)\n      kbo(:, 3,41, 2) = (/ &\n        & 0.48066e-10_rb,0.60328e-07_rb,0.90859e-07_rb,0.10118e-06_rb,0.59273e-08_rb /)\n      kbo(:, 4,41, 2) = (/ &\n        & 0.45467e-10_rb,0.64260e-07_rb,0.96667e-07_rb,0.10710e-06_rb,0.66279e-08_rb /)\n      kbo(:, 5,41, 2) = (/ &\n        & 0.43134e-10_rb,0.68089e-07_rb,0.10208e-06_rb,0.11279e-06_rb,0.72560e-08_rb /)\n      kbo(:, 1,42, 2) = (/ &\n        & 0.45170e-10_rb,0.41073e-07_rb,0.63333e-07_rb,0.71067e-07_rb,0.37185e-08_rb /)\n      kbo(:, 2,42, 2) = (/ &\n        & 0.42393e-10_rb,0.44964e-07_rb,0.68507e-07_rb,0.76455e-07_rb,0.41864e-08_rb /)\n      kbo(:, 3,42, 2) = (/ &\n        & 0.39936e-10_rb,0.48667e-07_rb,0.73382e-07_rb,0.81772e-07_rb,0.47157e-08_rb /)\n      kbo(:, 4,42, 2) = (/ &\n        & 0.37747e-10_rb,0.51996e-07_rb,0.78220e-07_rb,0.86689e-07_rb,0.52834e-08_rb /)\n      kbo(:, 5,42, 2) = (/ &\n        & 0.35784e-10_rb,0.55178e-07_rb,0.82739e-07_rb,0.91434e-07_rb,0.58040e-08_rb /)\n      kbo(:, 1,43, 2) = (/ &\n        & 0.37754e-10_rb,0.32770e-07_rb,0.50662e-07_rb,0.56979e-07_rb,0.29405e-08_rb /)\n      kbo(:, 2,43, 2) = (/ &\n        & 0.35387e-10_rb,0.35997e-07_rb,0.54993e-07_rb,0.61357e-07_rb,0.33066e-08_rb /)\n      kbo(:, 3,43, 2) = (/ &\n        & 0.33299e-10_rb,0.39073e-07_rb,0.59036e-07_rb,0.65793e-07_rb,0.37265e-08_rb /)\n      kbo(:, 4,43, 2) = (/ &\n        & 0.31442e-10_rb,0.41903e-07_rb,0.63014e-07_rb,0.69920e-07_rb,0.41848e-08_rb /)\n      kbo(:, 5,43, 2) = (/ &\n        & 0.29781e-10_rb,0.44546e-07_rb,0.66822e-07_rb,0.73849e-07_rb,0.46204e-08_rb /)\n      kbo(:, 1,44, 2) = (/ &\n        & 0.31623e-10_rb,0.26054e-07_rb,0.40405e-07_rb,0.45692e-07_rb,0.22918e-08_rb /)\n      kbo(:, 2,44, 2) = (/ &\n        & 0.29599e-10_rb,0.28713e-07_rb,0.44010e-07_rb,0.49122e-07_rb,0.26053e-08_rb /)\n      kbo(:, 3,44, 2) = (/ &\n        & 0.27817e-10_rb,0.31296e-07_rb,0.47391e-07_rb,0.52815e-07_rb,0.29353e-08_rb /)\n      kbo(:, 4,44, 2) = (/ &\n        & 0.26236e-10_rb,0.33677e-07_rb,0.50655e-07_rb,0.56264e-07_rb,0.33023e-08_rb /)\n      kbo(:, 5,44, 2) = (/ &\n        & 0.24825e-10_rb,0.35896e-07_rb,0.53863e-07_rb,0.59538e-07_rb,0.36730e-08_rb /)\n      kbo(:, 1,45, 2) = (/ &\n        & 0.26502e-10_rb,0.20705e-07_rb,0.32152e-07_rb,0.36448e-07_rb,0.17841e-08_rb /)\n      kbo(:, 2,45, 2) = (/ &\n        & 0.24768e-10_rb,0.22868e-07_rb,0.35185e-07_rb,0.39329e-07_rb,0.20515e-08_rb /)\n      kbo(:, 3,45, 2) = (/ &\n        & 0.23247e-10_rb,0.25027e-07_rb,0.37999e-07_rb,0.42338e-07_rb,0.23118e-08_rb /)\n      kbo(:, 4,45, 2) = (/ &\n        & 0.21900e-10_rb,0.27063e-07_rb,0.40694e-07_rb,0.45258e-07_rb,0.26048e-08_rb /)\n      kbo(:, 5,45, 2) = (/ &\n        & 0.20701e-10_rb,0.28901e-07_rb,0.43361e-07_rb,0.47969e-07_rb,0.29174e-08_rb /)\n      kbo(:, 1,46, 2) = (/ &\n        & 0.22258e-10_rb,0.16422e-07_rb,0.25480e-07_rb,0.28991e-07_rb,0.13830e-08_rb /)\n      kbo(:, 2,46, 2) = (/ &\n        & 0.20767e-10_rb,0.18158e-07_rb,0.28033e-07_rb,0.31442e-07_rb,0.16144e-08_rb /)\n      kbo(:, 3,46, 2) = (/ &\n        & 0.19462e-10_rb,0.19953e-07_rb,0.30402e-07_rb,0.33850e-07_rb,0.18162e-08_rb /)\n      kbo(:, 4,46, 2) = (/ &\n        & 0.18312e-10_rb,0.21658e-07_rb,0.32639e-07_rb,0.36308e-07_rb,0.20475e-08_rb /)\n      kbo(:, 5,46, 2) = (/ &\n        & 0.17289e-10_rb,0.23211e-07_rb,0.34839e-07_rb,0.38583e-07_rb,0.22994e-08_rb /)\n      kbo(:, 1,47, 2) = (/ &\n        & 0.18764e-10_rb,0.12951e-07_rb,0.20072e-07_rb,0.22982e-07_rb,0.10645e-08_rb /)\n      kbo(:, 2,47, 2) = (/ &\n        & 0.17473e-10_rb,0.14335e-07_rb,0.22214e-07_rb,0.25085e-07_rb,0.12479e-08_rb /)\n      kbo(:, 3,47, 2) = (/ &\n        & 0.16347e-10_rb,0.15813e-07_rb,0.24205e-07_rb,0.26971e-07_rb,0.14207e-08_rb /)\n      kbo(:, 4,47, 2) = (/ &\n        & 0.15357e-10_rb,0.17255e-07_rb,0.26075e-07_rb,0.29015e-07_rb,0.16008e-08_rb /)\n      kbo(:, 5,47, 2) = (/ &\n        & 0.14480e-10_rb,0.18558e-07_rb,0.27885e-07_rb,0.30922e-07_rb,0.18018e-08_rb /)\n      kbo(:, 1,48, 2) = (/ &\n        & 0.15833e-10_rb,0.10186e-07_rb,0.15782e-07_rb,0.18174e-07_rb,0.81718e-09_rb /)\n      kbo(:, 2,48, 2) = (/ &\n        & 0.14713e-10_rb,0.11312e-07_rb,0.17555e-07_rb,0.19891e-07_rb,0.96098e-09_rb /)\n      kbo(:, 3,48, 2) = (/ &\n        & 0.13740e-10_rb,0.12509e-07_rb,0.19248e-07_rb,0.21482e-07_rb,0.11112e-08_rb /)\n      kbo(:, 4,48, 2) = (/ &\n        & 0.12887e-10_rb,0.13719e-07_rb,0.20811e-07_rb,0.23140e-07_rb,0.12515e-08_rb /)\n      kbo(:, 5,48, 2) = (/ &\n        & 0.12134e-10_rb,0.14840e-07_rb,0.22313e-07_rb,0.24769e-07_rb,0.14105e-08_rb /)\n      kbo(:, 1,49, 2) = (/ &\n        & 0.13372e-10_rb,0.80050e-08_rb,0.12403e-07_rb,0.14283e-07_rb,0.63117e-09_rb /)\n      kbo(:, 2,49, 2) = (/ &\n        & 0.12398e-10_rb,0.89393e-08_rb,0.13840e-07_rb,0.15751e-07_rb,0.73907e-09_rb /)\n      kbo(:, 3,49, 2) = (/ &\n        & 0.11556e-10_rb,0.98821e-08_rb,0.15261e-07_rb,0.17104e-07_rb,0.86645e-09_rb /)\n      kbo(:, 4,49, 2) = (/ &\n        & 0.10821e-10_rb,0.10884e-07_rb,0.16582e-07_rb,0.18441e-07_rb,0.97829e-09_rb /)\n      kbo(:, 5,49, 2) = (/ &\n        & 0.10174e-10_rb,0.11841e-07_rb,0.17828e-07_rb,0.19804e-07_rb,0.11034e-08_rb /)\n      kbo(:, 1,50, 2) = (/ &\n        & 0.11282e-10_rb,0.62726e-08_rb,0.97478e-08_rb,0.11226e-07_rb,0.48398e-09_rb /)\n      kbo(:, 2,50, 2) = (/ &\n        & 0.10437e-10_rb,0.70546e-08_rb,0.10932e-07_rb,0.12518e-07_rb,0.57051e-09_rb /)\n      kbo(:, 3,50, 2) = (/ &\n        & 0.97101e-11_rb,0.78193e-08_rb,0.12114e-07_rb,0.13671e-07_rb,0.66997e-09_rb /)\n      kbo(:, 4,50, 2) = (/ &\n        & 0.90772e-11_rb,0.86379e-08_rb,0.13218e-07_rb,0.14712e-07_rb,0.76625e-09_rb /)\n      kbo(:, 5,50, 2) = (/ &\n        & 0.85216e-11_rb,0.94405e-08_rb,0.14258e-07_rb,0.15844e-07_rb,0.86488e-09_rb /)\n      kbo(:, 1,51, 2) = (/ &\n        & 0.95179e-11_rb,0.49251e-08_rb,0.76356e-08_rb,0.87761e-08_rb,0.37213e-09_rb /)\n      kbo(:, 2,51, 2) = (/ &\n        & 0.87856e-11_rb,0.55681e-08_rb,0.86220e-08_rb,0.99159e-08_rb,0.44074e-09_rb /)\n      kbo(:, 3,51, 2) = (/ &\n        & 0.81576e-11_rb,0.61930e-08_rb,0.95989e-08_rb,0.10865e-07_rb,0.51843e-09_rb /)\n      kbo(:, 4,51, 2) = (/ &\n        & 0.76131e-11_rb,0.68518e-08_rb,0.10539e-07_rb,0.11746e-07_rb,0.60210e-09_rb /)\n      kbo(:, 5,51, 2) = (/ &\n        & 0.71366e-11_rb,0.75206e-08_rb,0.11403e-07_rb,0.12659e-07_rb,0.67841e-09_rb /)\n      kbo(:, 1,52, 2) = (/ &\n        & 0.80368e-11_rb,0.38608e-08_rb,0.60010e-08_rb,0.68441e-08_rb,0.28848e-09_rb /)\n      kbo(:, 2,52, 2) = (/ &\n        & 0.74007e-11_rb,0.43903e-08_rb,0.67974e-08_rb,0.78127e-08_rb,0.34245e-09_rb /)\n      kbo(:, 3,52, 2) = (/ &\n        & 0.68577e-11_rb,0.49086e-08_rb,0.75959e-08_rb,0.86279e-08_rb,0.40106e-09_rb /)\n      kbo(:, 4,52, 2) = (/ &\n        & 0.63886e-11_rb,0.54297e-08_rb,0.83801e-08_rb,0.93778e-08_rb,0.47058e-09_rb /)\n      kbo(:, 5,52, 2) = (/ &\n        & 0.59795e-11_rb,0.59829e-08_rb,0.91103e-08_rb,0.10111e-07_rb,0.53218e-09_rb /)\n      kbo(:, 1,53, 2) = (/ &\n        & 0.67932e-11_rb,0.30102e-08_rb,0.47269e-08_rb,0.53395e-08_rb,0.22432e-09_rb /)\n      kbo(:, 2,53, 2) = (/ &\n        & 0.62397e-11_rb,0.34450e-08_rb,0.53458e-08_rb,0.61449e-08_rb,0.26282e-09_rb /)\n      kbo(:, 3,53, 2) = (/ &\n        & 0.57693e-11_rb,0.38768e-08_rb,0.60006e-08_rb,0.68613e-08_rb,0.31020e-09_rb /)\n      kbo(:, 4,53, 2) = (/ &\n        & 0.53647e-11_rb,0.43002e-08_rb,0.66533e-08_rb,0.74990e-08_rb,0.36446e-09_rb /)\n      kbo(:, 5,53, 2) = (/ &\n        & 0.50129e-11_rb,0.47527e-08_rb,0.72638e-08_rb,0.80717e-08_rb,0.41759e-09_rb /)\n      kbo(:, 1,54, 2) = (/ &\n        & 0.57320e-11_rb,0.23582e-08_rb,0.36837e-08_rb,0.41317e-08_rb,0.17477e-09_rb /)\n      kbo(:, 2,54, 2) = (/ &\n        & 0.52518e-11_rb,0.27163e-08_rb,0.42048e-08_rb,0.48208e-08_rb,0.20321e-09_rb /)\n      kbo(:, 3,54, 2) = (/ &\n        & 0.48457e-11_rb,0.30678e-08_rb,0.47472e-08_rb,0.54472e-08_rb,0.24081e-09_rb /)\n      kbo(:, 4,54, 2) = (/ &\n        & 0.44978e-11_rb,0.34148e-08_rb,0.52851e-08_rb,0.59735e-08_rb,0.28345e-09_rb /)\n      kbo(:, 5,54, 2) = (/ &\n        & 0.41963e-11_rb,0.37804e-08_rb,0.58001e-08_rb,0.64570e-08_rb,0.32923e-09_rb /)\n      kbo(:, 1,55, 2) = (/ &\n        & 0.48347e-11_rb,0.18534e-08_rb,0.28539e-08_rb,0.31828e-08_rb,0.13492e-09_rb /)\n      kbo(:, 2,55, 2) = (/ &\n        & 0.44186e-11_rb,0.21392e-08_rb,0.33190e-08_rb,0.37817e-08_rb,0.15848e-09_rb /)\n      kbo(:, 3,55, 2) = (/ &\n        & 0.40683e-11_rb,0.24320e-08_rb,0.37592e-08_rb,0.43156e-08_rb,0.18835e-09_rb /)\n      kbo(:, 4,55, 2) = (/ &\n        & 0.37693e-11_rb,0.27150e-08_rb,0.41999e-08_rb,0.47625e-08_rb,0.22076e-09_rb /)\n      kbo(:, 5,55, 2) = (/ &\n        & 0.35111e-11_rb,0.30082e-08_rb,0.46345e-08_rb,0.51736e-08_rb,0.25916e-09_rb /)\n      kbo(:, 1,56, 2) = (/ &\n        & 0.40813e-11_rb,0.14543e-08_rb,0.22038e-08_rb,0.24488e-08_rb,0.10328e-09_rb /)\n      kbo(:, 2,56, 2) = (/ &\n        & 0.37201e-11_rb,0.16813e-08_rb,0.26371e-08_rb,0.29640e-08_rb,0.12446e-09_rb /)\n      kbo(:, 3,56, 2) = (/ &\n        & 0.34175e-11_rb,0.19191e-08_rb,0.29747e-08_rb,0.34115e-08_rb,0.14604e-09_rb /)\n      kbo(:, 4,56, 2) = (/ &\n        & 0.31604e-11_rb,0.21575e-08_rb,0.33348e-08_rb,0.38018e-08_rb,0.17202e-09_rb /)\n      kbo(:, 5,56, 2) = (/ &\n        & 0.29391e-11_rb,0.23932e-08_rb,0.36930e-08_rb,0.41472e-08_rb,0.20235e-09_rb /)\n      kbo(:, 1,57, 2) = (/ &\n        & 0.34486e-11_rb,0.11480e-08_rb,0.17032e-08_rb,0.18771e-08_rb,0.78787e-10_rb /)\n      kbo(:, 2,57, 2) = (/ &\n        & 0.31345e-11_rb,0.13189e-08_rb,0.20615e-08_rb,0.23121e-08_rb,0.96832e-10_rb /)\n      kbo(:, 3,57, 2) = (/ &\n        & 0.28728e-11_rb,0.15144e-08_rb,0.23440e-08_rb,0.26863e-08_rb,0.11317e-09_rb /)\n      kbo(:, 4,57, 2) = (/ &\n        & 0.26513e-11_rb,0.17102e-08_rb,0.26436e-08_rb,0.30246e-08_rb,0.13393e-09_rb /)\n      kbo(:, 5,57, 2) = (/ &\n        & 0.24615e-11_rb,0.19022e-08_rb,0.29394e-08_rb,0.33135e-08_rb,0.15772e-09_rb /)\n      kbo(:, 1,58, 2) = (/ &\n        & 0.29119e-11_rb,0.89500e-09_rb,0.13020e-08_rb,0.14383e-08_rb,0.60253e-10_rb /)\n      kbo(:, 2,58, 2) = (/ &\n        & 0.26392e-11_rb,0.10369e-08_rb,0.16036e-08_rb,0.17891e-08_rb,0.75765e-10_rb /)\n      kbo(:, 3,58, 2) = (/ &\n        & 0.24132e-11_rb,0.11975e-08_rb,0.18523e-08_rb,0.21114e-08_rb,0.88260e-10_rb /)\n      kbo(:, 4,58, 2) = (/ &\n        & 0.22227e-11_rb,0.13570e-08_rb,0.20959e-08_rb,0.24045e-08_rb,0.10478e-09_rb /)\n      kbo(:, 5,58, 2) = (/ &\n        & 0.20601e-11_rb,0.15139e-08_rb,0.23406e-08_rb,0.26456e-08_rb,0.12331e-09_rb /)\n      kbo(:, 1,59, 2) = (/ &\n        & 0.24143e-11_rb,0.71851e-09_rb,0.10362e-08_rb,0.11516e-08_rb,0.48086e-10_rb /)\n      kbo(:, 2,59, 2) = (/ &\n        & 0.21857e-11_rb,0.83732e-09_rb,0.12892e-08_rb,0.14335e-08_rb,0.60630e-10_rb /)\n      kbo(:, 3,59, 2) = (/ &\n        & 0.19965e-11_rb,0.96815e-09_rb,0.14990e-08_rb,0.17039e-08_rb,0.71208e-10_rb /)\n      kbo(:, 4,59, 2) = (/ &\n        & 0.18374e-11_rb,0.10982e-08_rb,0.16973e-08_rb,0.19455e-08_rb,0.84514e-10_rb /)\n      kbo(:, 5,59, 2) = (/ &\n        & 0.17017e-11_rb,0.12277e-08_rb,0.18981e-08_rb,0.21472e-08_rb,0.99289e-10_rb /)\n      kbo(:, 1,13, 3) = (/ &\n        & 0.69497e-07_rb,0.55900e-04_rb,0.77634e-04_rb,0.83300e-04_rb,0.14419e-04_rb /)\n      kbo(:, 2,13, 3) = (/ &\n        & 0.64923e-07_rb,0.61779e-04_rb,0.85238e-04_rb,0.90458e-04_rb,0.15996e-04_rb /)\n      kbo(:, 3,13, 3) = (/ &\n        & 0.60920e-07_rb,0.67532e-04_rb,0.92811e-04_rb,0.97588e-04_rb,0.17622e-04_rb /)\n      kbo(:, 4,13, 3) = (/ &\n        & 0.57379e-07_rb,0.72876e-04_rb,0.10040e-03_rb,0.10455e-03_rb,0.19144e-04_rb /)\n      kbo(:, 5,13, 3) = (/ &\n        & 0.54220e-07_rb,0.77699e-04_rb,0.10784e-03_rb,0.11139e-03_rb,0.20671e-04_rb /)\n      kbo(:, 1,14, 3) = (/ &\n        & 0.56538e-07_rb,0.46627e-04_rb,0.64678e-04_rb,0.69399e-04_rb,0.12086e-04_rb /)\n      kbo(:, 2,14, 3) = (/ &\n        & 0.52839e-07_rb,0.51536e-04_rb,0.71080e-04_rb,0.75292e-04_rb,0.13414e-04_rb /)\n      kbo(:, 3,14, 3) = (/ &\n        & 0.49600e-07_rb,0.56334e-04_rb,0.77384e-04_rb,0.81277e-04_rb,0.14732e-04_rb /)\n      kbo(:, 4,14, 3) = (/ &\n        & 0.46731e-07_rb,0.60751e-04_rb,0.83753e-04_rb,0.87067e-04_rb,0.15973e-04_rb /)\n      kbo(:, 5,14, 3) = (/ &\n        & 0.44171e-07_rb,0.64792e-04_rb,0.89963e-04_rb,0.92617e-04_rb,0.17214e-04_rb /)\n      kbo(:, 1,15, 3) = (/ &\n        & 0.45963e-07_rb,0.38920e-04_rb,0.53921e-04_rb,0.57824e-04_rb,0.10089e-04_rb /)\n      kbo(:, 2,15, 3) = (/ &\n        & 0.42976e-07_rb,0.42987e-04_rb,0.59286e-04_rb,0.62615e-04_rb,0.11238e-04_rb /)\n      kbo(:, 3,15, 3) = (/ &\n        & 0.40358e-07_rb,0.47014e-04_rb,0.64557e-04_rb,0.67658e-04_rb,0.12293e-04_rb /)\n      kbo(:, 4,15, 3) = (/ &\n        & 0.38037e-07_rb,0.50641e-04_rb,0.69879e-04_rb,0.72487e-04_rb,0.13317e-04_rb /)\n      kbo(:, 5,15, 3) = (/ &\n        & 0.35964e-07_rb,0.54003e-04_rb,0.75064e-04_rb,0.77083e-04_rb,0.14321e-04_rb /)\n      kbo(:, 1,16, 3) = (/ &\n        & 0.37354e-07_rb,0.32479e-04_rb,0.44953e-04_rb,0.48146e-04_rb,0.84079e-05_rb /)\n      kbo(:, 2,16, 3) = (/ &\n        & 0.34944e-07_rb,0.35873e-04_rb,0.49454e-04_rb,0.52120e-04_rb,0.93405e-05_rb /)\n      kbo(:, 3,16, 3) = (/ &\n        & 0.32829e-07_rb,0.39220e-04_rb,0.53861e-04_rb,0.56293e-04_rb,0.10209e-04_rb /)\n      kbo(:, 4,16, 3) = (/ &\n        & 0.30952e-07_rb,0.42155e-04_rb,0.58309e-04_rb,0.60268e-04_rb,0.11080e-04_rb /)\n      kbo(:, 5,16, 3) = (/ &\n        & 0.29274e-07_rb,0.45014e-04_rb,0.62610e-04_rb,0.64184e-04_rb,0.11887e-04_rb /)\n      kbo(:, 1,17, 3) = (/ &\n        & 0.30364e-07_rb,0.27086e-04_rb,0.37451e-04_rb,0.39995e-04_rb,0.70049e-05_rb /)\n      kbo(:, 2,17, 3) = (/ &\n        & 0.28420e-07_rb,0.29919e-04_rb,0.41194e-04_rb,0.43367e-04_rb,0.77736e-05_rb /)\n      kbo(:, 3,17, 3) = (/ &\n        & 0.26710e-07_rb,0.32650e-04_rb,0.44902e-04_rb,0.46817e-04_rb,0.84838e-05_rb /)\n      kbo(:, 4,17, 3) = (/ &\n        & 0.25192e-07_rb,0.35098e-04_rb,0.48605e-04_rb,0.50103e-04_rb,0.92038e-05_rb /)\n      kbo(:, 5,17, 3) = (/ &\n        & 0.23833e-07_rb,0.37507e-04_rb,0.52188e-04_rb,0.53413e-04_rb,0.98607e-05_rb /)\n      kbo(:, 1,18, 3) = (/ &\n        & 0.24687e-07_rb,0.22581e-04_rb,0.31211e-04_rb,0.33220e-04_rb,0.58361e-05_rb /)\n      kbo(:, 2,18, 3) = (/ &\n        & 0.23116e-07_rb,0.24940e-04_rb,0.34308e-04_rb,0.36078e-04_rb,0.64640e-05_rb /)\n      kbo(:, 3,18, 3) = (/ &\n        & 0.21734e-07_rb,0.27181e-04_rb,0.37414e-04_rb,0.38933e-04_rb,0.70344e-05_rb /)\n      kbo(:, 4,18, 3) = (/ &\n        & 0.20506e-07_rb,0.29216e-04_rb,0.40517e-04_rb,0.41653e-04_rb,0.76276e-05_rb /)\n      kbo(:, 5,18, 3) = (/ &\n        & 0.19406e-07_rb,0.31237e-04_rb,0.43490e-04_rb,0.44397e-04_rb,0.81753e-05_rb /)\n      kbo(:, 1,19, 3) = (/ &\n        & 0.20074e-07_rb,0.18818e-04_rb,0.25999e-04_rb,0.27597e-04_rb,0.48662e-05_rb /)\n      kbo(:, 2,19, 3) = (/ &\n        & 0.18805e-07_rb,0.20784e-04_rb,0.28562e-04_rb,0.29993e-04_rb,0.53723e-05_rb /)\n      kbo(:, 3,19, 3) = (/ &\n        & 0.17688e-07_rb,0.22626e-04_rb,0.31151e-04_rb,0.32363e-04_rb,0.58377e-05_rb /)\n      kbo(:, 4,19, 3) = (/ &\n        & 0.16693e-07_rb,0.24300e-04_rb,0.33760e-04_rb,0.34629e-04_rb,0.63177e-05_rb /)\n      kbo(:, 5,19, 3) = (/ &\n        & 0.15802e-07_rb,0.25985e-04_rb,0.36226e-04_rb,0.36903e-04_rb,0.67742e-05_rb /)\n      kbo(:, 1,20, 3) = (/ &\n        & 0.16306e-07_rb,0.15717e-04_rb,0.21686e-04_rb,0.22959e-04_rb,0.40680e-05_rb /)\n      kbo(:, 2,20, 3) = (/ &\n        & 0.15283e-07_rb,0.17355e-04_rb,0.23826e-04_rb,0.24969e-04_rb,0.44706e-05_rb /)\n      kbo(:, 3,20, 3) = (/ &\n        & 0.14381e-07_rb,0.18856e-04_rb,0.25992e-04_rb,0.26912e-04_rb,0.48550e-05_rb /)\n      kbo(:, 4,20, 3) = (/ &\n        & 0.13578e-07_rb,0.20265e-04_rb,0.28162e-04_rb,0.28817e-04_rb,0.52355e-05_rb /)\n      kbo(:, 5,20, 3) = (/ &\n        & 0.12857e-07_rb,0.21638e-04_rb,0.30215e-04_rb,0.30707e-04_rb,0.56224e-05_rb /)\n      kbo(:, 1,21, 3) = (/ &\n        & 0.13245e-07_rb,0.13128e-04_rb,0.18091e-04_rb,0.19107e-04_rb,0.33880e-05_rb /)\n      kbo(:, 2,21, 3) = (/ &\n        & 0.12420e-07_rb,0.14495e-04_rb,0.19887e-04_rb,0.20794e-04_rb,0.37144e-05_rb /)\n      kbo(:, 3,21, 3) = (/ &\n        & 0.11692e-07_rb,0.15704e-04_rb,0.21703e-04_rb,0.22397e-04_rb,0.40415e-05_rb /)\n      kbo(:, 4,21, 3) = (/ &\n        & 0.11043e-07_rb,0.16904e-04_rb,0.23489e-04_rb,0.23984e-04_rb,0.43455e-05_rb /)\n      kbo(:, 5,21, 3) = (/ &\n        & 0.10460e-07_rb,0.18037e-04_rb,0.25197e-04_rb,0.25558e-04_rb,0.46662e-05_rb /)\n      kbo(:, 1,22, 3) = (/ &\n        & 0.10711e-07_rb,0.11044e-04_rb,0.15199e-04_rb,0.16008e-04_rb,0.28409e-05_rb /)\n      kbo(:, 2,22, 3) = (/ &\n        & 0.10052e-07_rb,0.12165e-04_rb,0.16699e-04_rb,0.17419e-04_rb,0.31041e-05_rb /)\n      kbo(:, 3,22, 3) = (/ &\n        & 0.94690e-08_rb,0.13158e-04_rb,0.18224e-04_rb,0.18733e-04_rb,0.33768e-05_rb /)\n      kbo(:, 4,22, 3) = (/ &\n        & 0.89484e-08_rb,0.14166e-04_rb,0.19691e-04_rb,0.20050e-04_rb,0.36237e-05_rb /)\n      kbo(:, 5,22, 3) = (/ &\n        & 0.84804e-08_rb,0.15085e-04_rb,0.21105e-04_rb,0.21356e-04_rb,0.38876e-05_rb /)\n      kbo(:, 1,23, 3) = (/ &\n        & 0.86606e-08_rb,0.93002e-05_rb,0.12775e-04_rb,0.13420e-04_rb,0.23815e-05_rb /)\n      kbo(:, 2,23, 3) = (/ &\n        & 0.81340e-08_rb,0.10210e-04_rb,0.14034e-04_rb,0.14552e-04_rb,0.25955e-05_rb /)\n      kbo(:, 3,23, 3) = (/ &\n        & 0.76671e-08_rb,0.11035e-04_rb,0.15302e-04_rb,0.15657e-04_rb,0.28150e-05_rb /)\n      kbo(:, 4,23, 3) = (/ &\n        & 0.72497e-08_rb,0.11863e-04_rb,0.16513e-04_rb,0.16770e-04_rb,0.30198e-05_rb /)\n      kbo(:, 5,23, 3) = (/ &\n        & 0.68739e-08_rb,0.12616e-04_rb,0.17664e-04_rb,0.17848e-04_rb,0.32387e-05_rb /)\n      kbo(:, 1,24, 3) = (/ &\n        & 0.69995e-08_rb,0.78392e-05_rb,0.10754e-04_rb,0.11250e-04_rb,0.19986e-05_rb /)\n      kbo(:, 2,24, 3) = (/ &\n        & 0.65790e-08_rb,0.85674e-05_rb,0.11806e-04_rb,0.12186e-04_rb,0.21738e-05_rb /)\n      kbo(:, 3,24, 3) = (/ &\n        & 0.62055e-08_rb,0.92664e-05_rb,0.12850e-04_rb,0.13103e-04_rb,0.23469e-05_rb /)\n      kbo(:, 4,24, 3) = (/ &\n        & 0.58710e-08_rb,0.99376e-05_rb,0.13854e-04_rb,0.14027e-04_rb,0.25195e-05_rb /)\n      kbo(:, 5,24, 3) = (/ &\n        & 0.55696e-08_rb,0.10527e-04_rb,0.14795e-04_rb,0.14917e-04_rb,0.26988e-05_rb /)\n      kbo(:, 1,25, 3) = (/ &\n        & 0.56538e-08_rb,0.66118e-05_rb,0.90610e-05_rb,0.94422e-05_rb,0.16753e-05_rb /)\n      kbo(:, 2,25, 3) = (/ &\n        & 0.53184e-08_rb,0.71986e-05_rb,0.99389e-05_rb,0.10209e-04_rb,0.18223e-05_rb /)\n      kbo(:, 3,25, 3) = (/ &\n        & 0.50199e-08_rb,0.77863e-05_rb,0.10800e-04_rb,0.10981e-04_rb,0.19590e-05_rb /)\n      kbo(:, 4,25, 3) = (/ &\n        & 0.47522e-08_rb,0.83415e-05_rb,0.11626e-04_rb,0.11737e-04_rb,0.21020e-05_rb /)\n      kbo(:, 5,25, 3) = (/ &\n        & 0.45105e-08_rb,0.88017e-05_rb,0.12373e-04_rb,0.12468e-04_rb,0.22498e-05_rb /)\n      kbo(:, 1,26, 3) = (/ &\n        & 0.45620e-08_rb,0.55749e-05_rb,0.76463e-05_rb,0.79285e-05_rb,0.14032e-05_rb /)\n      kbo(:, 2,26, 3) = (/ &\n        & 0.42950e-08_rb,0.60590e-05_rb,0.83822e-05_rb,0.85652e-05_rb,0.15255e-05_rb /)\n      kbo(:, 3,26, 3) = (/ &\n        & 0.40569e-08_rb,0.65510e-05_rb,0.90888e-05_rb,0.92116e-05_rb,0.16373e-05_rb /)\n      kbo(:, 4,26, 3) = (/ &\n        & 0.38429e-08_rb,0.69918e-05_rb,0.97604e-05_rb,0.98329e-05_rb,0.17561e-05_rb /)\n      kbo(:, 5,26, 3) = (/ &\n        & 0.36495e-08_rb,0.73566e-05_rb,0.10367e-04_rb,0.10429e-04_rb,0.18769e-05_rb /)\n      kbo(:, 1,27, 3) = (/ &\n        & 0.36809e-08_rb,0.46967e-05_rb,0.64580e-05_rb,0.66649e-05_rb,0.11786e-05_rb /)\n      kbo(:, 2,27, 3) = (/ &\n        & 0.34683e-08_rb,0.51072e-05_rb,0.70661e-05_rb,0.71902e-05_rb,0.12759e-05_rb /)\n      kbo(:, 3,27, 3) = (/ &\n        & 0.32784e-08_rb,0.55053e-05_rb,0.76470e-05_rb,0.77250e-05_rb,0.13691e-05_rb /)\n      kbo(:, 4,27, 3) = (/ &\n        & 0.31074e-08_rb,0.58474e-05_rb,0.81898e-05_rb,0.82340e-05_rb,0.14666e-05_rb /)\n      kbo(:, 5,27, 3) = (/ &\n        & 0.29526e-08_rb,0.61493e-05_rb,0.86815e-05_rb,0.87199e-05_rb,0.15650e-05_rb /)\n      kbo(:, 1,28, 3) = (/ &\n        & 0.29701e-08_rb,0.39582e-05_rb,0.54573e-05_rb,0.55959e-05_rb,0.99037e-06_rb /)\n      kbo(:, 2,28, 3) = (/ &\n        & 0.28008e-08_rb,0.43048e-05_rb,0.59546e-05_rb,0.60406e-05_rb,0.10659e-05_rb /)\n      kbo(:, 3,28, 3) = (/ &\n        & 0.26493e-08_rb,0.46277e-05_rb,0.64286e-05_rb,0.64745e-05_rb,0.11442e-05_rb /)\n      kbo(:, 4,28, 3) = (/ &\n        & 0.25127e-08_rb,0.48940e-05_rb,0.68612e-05_rb,0.68918e-05_rb,0.12250e-05_rb /)\n      kbo(:, 5,28, 3) = (/ &\n        & 0.23888e-08_rb,0.51428e-05_rb,0.72654e-05_rb,0.72865e-05_rb,0.13046e-05_rb /)\n      kbo(:, 1,29, 3) = (/ &\n        & 0.23958e-08_rb,0.33409e-05_rb,0.46115e-05_rb,0.47054e-05_rb,0.83021e-06_rb /)\n      kbo(:, 2,29, 3) = (/ &\n        & 0.22611e-08_rb,0.36267e-05_rb,0.50192e-05_rb,0.50754e-05_rb,0.89157e-06_rb /)\n      kbo(:, 3,29, 3) = (/ &\n        & 0.21402e-08_rb,0.38805e-05_rb,0.54053e-05_rb,0.54291e-05_rb,0.95663e-06_rb /)\n      kbo(:, 4,29, 3) = (/ &\n        & 0.20311e-08_rb,0.40929e-05_rb,0.57529e-05_rb,0.57685e-05_rb,0.10232e-05_rb /)\n      kbo(:, 5,29, 3) = (/ &\n        & 0.19320e-08_rb,0.43014e-05_rb,0.60684e-05_rb,0.60868e-05_rb,0.10874e-05_rb /)\n      kbo(:, 1,30, 3) = (/ &\n        & 0.19328e-08_rb,0.28217e-05_rb,0.38955e-05_rb,0.39562e-05_rb,0.69464e-06_rb /)\n      kbo(:, 2,30, 3) = (/ &\n        & 0.18255e-08_rb,0.30515e-05_rb,0.42293e-05_rb,0.42605e-05_rb,0.74588e-06_rb /)\n      kbo(:, 3,30, 3) = (/ &\n        & 0.17291e-08_rb,0.32496e-05_rb,0.45390e-05_rb,0.45501e-05_rb,0.79957e-06_rb /)\n      kbo(:, 4,30, 3) = (/ &\n        & 0.16419e-08_rb,0.34235e-05_rb,0.48191e-05_rb,0.48249e-05_rb,0.85373e-06_rb /)\n      kbo(:, 5,30, 3) = (/ &\n        & 0.15626e-08_rb,0.35992e-05_rb,0.50632e-05_rb,0.50805e-05_rb,0.90582e-06_rb /)\n      kbo(:, 1,31, 3) = (/ &\n        & 0.15590e-08_rb,0.23841e-05_rb,0.32890e-05_rb,0.33282e-05_rb,0.58108e-06_rb /)\n      kbo(:, 2,31, 3) = (/ &\n        & 0.14736e-08_rb,0.25683e-05_rb,0.35605e-05_rb,0.35756e-05_rb,0.62401e-06_rb /)\n      kbo(:, 3,31, 3) = (/ &\n        & 0.13967e-08_rb,0.27223e-05_rb,0.38055e-05_rb,0.38110e-05_rb,0.66862e-06_rb /)\n      kbo(:, 4,31, 3) = (/ &\n        & 0.13271e-08_rb,0.28652e-05_rb,0.40295e-05_rb,0.40331e-05_rb,0.71216e-06_rb /)\n      kbo(:, 5,31, 3) = (/ &\n        & 0.12637e-08_rb,0.30069e-05_rb,0.42257e-05_rb,0.42393e-05_rb,0.75527e-06_rb /)\n      kbo(:, 1,32, 3) = (/ &\n        & 0.12575e-08_rb,0.20099e-05_rb,0.27764e-05_rb,0.27988e-05_rb,0.48614e-06_rb /)\n      kbo(:, 2,32, 3) = (/ &\n        & 0.11895e-08_rb,0.21551e-05_rb,0.29961e-05_rb,0.29996e-05_rb,0.52199e-06_rb /)\n      kbo(:, 3,32, 3) = (/ &\n        & 0.11282e-08_rb,0.22771e-05_rb,0.31901e-05_rb,0.31897e-05_rb,0.55867e-06_rb /)\n      kbo(:, 4,32, 3) = (/ &\n        & 0.10726e-08_rb,0.23969e-05_rb,0.33657e-05_rb,0.33696e-05_rb,0.59410e-06_rb /)\n      kbo(:, 5,32, 3) = (/ &\n        & 0.10218e-08_rb,0.25076e-05_rb,0.35232e-05_rb,0.35366e-05_rb,0.62965e-06_rb /)\n      kbo(:, 1,33, 3) = (/ &\n        & 0.10144e-08_rb,0.16940e-05_rb,0.23421e-05_rb,0.23519e-05_rb,0.40701e-06_rb /)\n      kbo(:, 2,33, 3) = (/ &\n        & 0.96024e-09_rb,0.18066e-05_rb,0.25146e-05_rb,0.25148e-05_rb,0.43657e-06_rb /)\n      kbo(:, 3,33, 3) = (/ &\n        & 0.91134e-09_rb,0.19053e-05_rb,0.26738e-05_rb,0.26690e-05_rb,0.46656e-06_rb /)\n      kbo(:, 4,33, 3) = (/ &\n        & 0.86689e-09_rb,0.20038e-05_rb,0.28104e-05_rb,0.28139e-05_rb,0.49516e-06_rb /)\n      kbo(:, 5,33, 3) = (/ &\n        & 0.82630e-09_rb,0.20860e-05_rb,0.29294e-05_rb,0.29485e-05_rb,0.52462e-06_rb /)\n      kbo(:, 1,34, 3) = (/ &\n        & 0.82000e-09_rb,0.14231e-05_rb,0.19661e-05_rb,0.19700e-05_rb,0.33996e-06_rb /)\n      kbo(:, 2,34, 3) = (/ &\n        & 0.77672e-09_rb,0.15105e-05_rb,0.21047e-05_rb,0.21018e-05_rb,0.36435e-06_rb /)\n      kbo(:, 3,34, 3) = (/ &\n        & 0.73757e-09_rb,0.15908e-05_rb,0.22307e-05_rb,0.22272e-05_rb,0.38851e-06_rb /)\n      kbo(:, 4,34, 3) = (/ &\n        & 0.70193e-09_rb,0.16706e-05_rb,0.23421e-05_rb,0.23448e-05_rb,0.41219e-06_rb /)\n      kbo(:, 5,34, 3) = (/ &\n        & 0.66936e-09_rb,0.17330e-05_rb,0.24342e-05_rb,0.24538e-05_rb,0.43607e-06_rb /)\n      kbo(:, 1,35, 3) = (/ &\n        & 0.66652e-09_rb,0.11842e-05_rb,0.16383e-05_rb,0.16382e-05_rb,0.28183e-06_rb /)\n      kbo(:, 2,35, 3) = (/ &\n        & 0.63156e-09_rb,0.12541e-05_rb,0.17499e-05_rb,0.17457e-05_rb,0.30195e-06_rb /)\n      kbo(:, 3,35, 3) = (/ &\n        & 0.59990e-09_rb,0.13209e-05_rb,0.18504e-05_rb,0.18484e-05_rb,0.32174e-06_rb /)\n      kbo(:, 4,35, 3) = (/ &\n        & 0.57107e-09_rb,0.13850e-05_rb,0.19418e-05_rb,0.19438e-05_rb,0.34124e-06_rb /)\n      kbo(:, 5,35, 3) = (/ &\n        & 0.54470e-09_rb,0.14348e-05_rb,0.20135e-05_rb,0.20335e-05_rb,0.36050e-06_rb /)\n      kbo(:, 1,36, 3) = (/ &\n        & 0.54506e-09_rb,0.97870e-06_rb,0.13541e-05_rb,0.13520e-05_rb,0.23190e-06_rb /)\n      kbo(:, 2,36, 3) = (/ &\n        & 0.51650e-09_rb,0.10354e-05_rb,0.14455e-05_rb,0.14404e-05_rb,0.24845e-06_rb /)\n      kbo(:, 3,36, 3) = (/ &\n        & 0.49063e-09_rb,0.10910e-05_rb,0.15270e-05_rb,0.15247e-05_rb,0.26464e-06_rb /)\n      kbo(:, 4,36, 3) = (/ &\n        & 0.46707e-09_rb,0.11427e-05_rb,0.16012e-05_rb,0.16033e-05_rb,0.28072e-06_rb /)\n      kbo(:, 5,36, 3) = (/ &\n        & 0.44553e-09_rb,0.11833e-05_rb,0.16604e-05_rb,0.16774e-05_rb,0.29643e-06_rb /)\n      kbo(:, 1,37, 3) = (/ &\n        & 0.44949e-09_rb,0.80104e-06_rb,0.11066e-05_rb,0.11045e-05_rb,0.18888e-06_rb /)\n      kbo(:, 2,37, 3) = (/ &\n        & 0.42579e-09_rb,0.84810e-06_rb,0.11826e-05_rb,0.11777e-05_rb,0.20242e-06_rb /)\n      kbo(:, 3,37, 3) = (/ &\n        & 0.40435e-09_rb,0.89404e-06_rb,0.12504e-05_rb,0.12477e-05_rb,0.21578e-06_rb /)\n      kbo(:, 4,37, 3) = (/ &\n        & 0.38483e-09_rb,0.93737e-06_rb,0.13124e-05_rb,0.13129e-05_rb,0.22892e-06_rb /)\n      kbo(:, 5,37, 3) = (/ &\n        & 0.36699e-09_rb,0.97118e-06_rb,0.13617e-05_rb,0.13744e-05_rb,0.24190e-06_rb /)\n      kbo(:, 1,38, 3) = (/ &\n        & 0.37088e-09_rb,0.65468e-06_rb,0.90347e-06_rb,0.90140e-06_rb,0.15371e-06_rb /)\n      kbo(:, 2,38, 3) = (/ &\n        & 0.35120e-09_rb,0.69421e-06_rb,0.96676e-06_rb,0.96222e-06_rb,0.16484e-06_rb /)\n      kbo(:, 3,38, 3) = (/ &\n        & 0.33340e-09_rb,0.73211e-06_rb,0.10233e-05_rb,0.10203e-05_rb,0.17578e-06_rb /)\n      kbo(:, 4,38, 3) = (/ &\n        & 0.31721e-09_rb,0.76838e-06_rb,0.10750e-05_rb,0.10745e-05_rb,0.18656e-06_rb /)\n      kbo(:, 5,38, 3) = (/ &\n        & 0.30242e-09_rb,0.79676e-06_rb,0.11164e-05_rb,0.11256e-05_rb,0.19730e-06_rb /)\n      kbo(:, 1,39, 3) = (/ &\n        & 0.30603e-09_rb,0.53518e-06_rb,0.73755e-06_rb,0.73560e-06_rb,0.12509e-06_rb /)\n      kbo(:, 2,39, 3) = (/ &\n        & 0.28967e-09_rb,0.56827e-06_rb,0.79017e-06_rb,0.78607e-06_rb,0.13420e-06_rb /)\n      kbo(:, 3,39, 3) = (/ &\n        & 0.27490e-09_rb,0.59946e-06_rb,0.83729e-06_rb,0.83418e-06_rb,0.14320e-06_rb /)\n      kbo(:, 4,39, 3) = (/ &\n        & 0.26148e-09_rb,0.62968e-06_rb,0.88045e-06_rb,0.87919e-06_rb,0.15206e-06_rb /)\n      kbo(:, 5,39, 3) = (/ &\n        & 0.24922e-09_rb,0.65358e-06_rb,0.91511e-06_rb,0.92187e-06_rb,0.16092e-06_rb /)\n      kbo(:, 1,40, 3) = (/ &\n        & 0.25401e-09_rb,0.43491e-06_rb,0.59706e-06_rb,0.59583e-06_rb,0.10103e-06_rb /)\n      kbo(:, 2,40, 3) = (/ &\n        & 0.24027e-09_rb,0.46243e-06_rb,0.64127e-06_rb,0.63780e-06_rb,0.10854e-06_rb /)\n      kbo(:, 3,40, 3) = (/ &\n        & 0.22788e-09_rb,0.48789e-06_rb,0.68111e-06_rb,0.67785e-06_rb,0.11596e-06_rb /)\n      kbo(:, 4,40, 3) = (/ &\n        & 0.21664e-09_rb,0.51370e-06_rb,0.71776e-06_rb,0.71557e-06_rb,0.12318e-06_rb /)\n      kbo(:, 5,40, 3) = (/ &\n        & 0.20639e-09_rb,0.53413e-06_rb,0.74738e-06_rb,0.75116e-06_rb,0.13055e-06_rb /)\n      kbo(:, 1,41, 3) = (/ &\n        & 0.21103e-09_rb,0.35162e-06_rb,0.48245e-06_rb,0.48181e-06_rb,0.81551e-07_rb /)\n      kbo(:, 2,41, 3) = (/ &\n        & 0.19947e-09_rb,0.37577e-06_rb,0.51975e-06_rb,0.51683e-06_rb,0.87624e-07_rb /)\n      kbo(:, 3,41, 3) = (/ &\n        & 0.18906e-09_rb,0.39681e-06_rb,0.55372e-06_rb,0.55016e-06_rb,0.93775e-07_rb /)\n      kbo(:, 4,41, 3) = (/ &\n        & 0.17963e-09_rb,0.41856e-06_rb,0.58405e-06_rb,0.58177e-06_rb,0.99677e-07_rb /)\n      kbo(:, 5,41, 3) = (/ &\n        & 0.17105e-09_rb,0.43610e-06_rb,0.60957e-06_rb,0.61150e-06_rb,0.10578e-06_rb /)\n      kbo(:, 1,42, 3) = (/ &\n        & 0.17536e-09_rb,0.28412e-06_rb,0.38948e-06_rb,0.38933e-06_rb,0.65791e-07_rb /)\n      kbo(:, 2,42, 3) = (/ &\n        & 0.16563e-09_rb,0.30504e-06_rb,0.42097e-06_rb,0.41854e-06_rb,0.70752e-07_rb /)\n      kbo(:, 3,42, 3) = (/ &\n        & 0.15688e-09_rb,0.32265e-06_rb,0.44957e-06_rb,0.44624e-06_rb,0.75790e-07_rb /)\n      kbo(:, 4,42, 3) = (/ &\n        & 0.14897e-09_rb,0.34080e-06_rb,0.47502e-06_rb,0.47268e-06_rb,0.80648e-07_rb /)\n      kbo(:, 5,42, 3) = (/ &\n        & 0.14178e-09_rb,0.35584e-06_rb,0.49696e-06_rb,0.49747e-06_rb,0.85685e-07_rb /)\n      kbo(:, 1,43, 3) = (/ &\n        & 0.14625e-09_rb,0.22828e-06_rb,0.31269e-06_rb,0.31301e-06_rb,0.52858e-07_rb /)\n      kbo(:, 2,43, 3) = (/ &\n        & 0.13800e-09_rb,0.24660e-06_rb,0.33945e-06_rb,0.33736e-06_rb,0.56872e-07_rb /)\n      kbo(:, 3,43, 3) = (/ &\n        & 0.13060e-09_rb,0.26150e-06_rb,0.36382e-06_rb,0.36052e-06_rb,0.61005e-07_rb /)\n      kbo(:, 4,43, 3) = (/ &\n        & 0.12392e-09_rb,0.27637e-06_rb,0.38496e-06_rb,0.38262e-06_rb,0.65064e-07_rb /)\n      kbo(:, 5,43, 3) = (/ &\n        & 0.11786e-09_rb,0.28960e-06_rb,0.40432e-06_rb,0.40346e-06_rb,0.69134e-07_rb /)\n      kbo(:, 1,44, 3) = (/ &\n        & 0.12220e-09_rb,0.18299e-06_rb,0.25003e-06_rb,0.25075e-06_rb,0.42426e-07_rb /)\n      kbo(:, 2,44, 3) = (/ &\n        & 0.11518e-09_rb,0.19858e-06_rb,0.27271e-06_rb,0.27124e-06_rb,0.45605e-07_rb /)\n      kbo(:, 3,44, 3) = (/ &\n        & 0.10890e-09_rb,0.21149e-06_rb,0.29306e-06_rb,0.29059e-06_rb,0.48989e-07_rb /)\n      kbo(:, 4,44, 3) = (/ &\n        & 0.10324e-09_rb,0.22361e-06_rb,0.31128e-06_rb,0.30909e-06_rb,0.52357e-07_rb /)\n      kbo(:, 5,44, 3) = (/ &\n        & 0.98119e-10_rb,0.23540e-06_rb,0.32782e-06_rb,0.32657e-06_rb,0.55650e-07_rb /)\n      kbo(:, 1,45, 3) = (/ &\n        & 0.10215e-09_rb,0.14604e-06_rb,0.19957e-06_rb,0.20079e-06_rb,0.34009e-07_rb /)\n      kbo(:, 2,45, 3) = (/ &\n        & 0.96168e-10_rb,0.15976e-06_rb,0.21859e-06_rb,0.21782e-06_rb,0.36565e-07_rb /)\n      kbo(:, 3,45, 3) = (/ &\n        & 0.90832e-10_rb,0.17092e-06_rb,0.23594e-06_rb,0.23403e-06_rb,0.39336e-07_rb /)\n      kbo(:, 4,45, 3) = (/ &\n        & 0.86039e-10_rb,0.18076e-06_rb,0.25148e-06_rb,0.24940e-06_rb,0.42120e-07_rb /)\n      kbo(:, 5,45, 3) = (/ &\n        & 0.81705e-10_rb,0.19091e-06_rb,0.26579e-06_rb,0.26417e-06_rb,0.44806e-07_rb /)\n      kbo(:, 1,46, 3) = (/ &\n        & 0.85548e-10_rb,0.11606e-06_rb,0.15858e-06_rb,0.16025e-06_rb,0.27138e-07_rb /)\n      kbo(:, 2,46, 3) = (/ &\n        & 0.80430e-10_rb,0.12777e-06_rb,0.17465e-06_rb,0.17439e-06_rb,0.29260e-07_rb /)\n      kbo(:, 3,46, 3) = (/ &\n        & 0.75882e-10_rb,0.13771e-06_rb,0.18956e-06_rb,0.18801e-06_rb,0.31519e-07_rb /)\n      kbo(:, 4,46, 3) = (/ &\n        & 0.71807e-10_rb,0.14597e-06_rb,0.20282e-06_rb,0.20085e-06_rb,0.33790e-07_rb /)\n      kbo(:, 5,46, 3) = (/ &\n        & 0.68131e-10_rb,0.15454e-06_rb,0.21485e-06_rb,0.21321e-06_rb,0.36016e-07_rb /)\n      kbo(:, 1,47, 3) = (/ &\n        & 0.71880e-10_rb,0.91677e-07_rb,0.12518e-06_rb,0.12717e-06_rb,0.21548e-07_rb /)\n      kbo(:, 2,47, 3) = (/ &\n        & 0.67474e-10_rb,0.10182e-06_rb,0.13885e-06_rb,0.13887e-06_rb,0.23366e-07_rb /)\n      kbo(:, 3,47, 3) = (/ &\n        & 0.63573e-10_rb,0.11037e-06_rb,0.15155e-06_rb,0.15037e-06_rb,0.25140e-07_rb /)\n      kbo(:, 4,47, 3) = (/ &\n        & 0.60089e-10_rb,0.11757e-06_rb,0.16292e-06_rb,0.16115e-06_rb,0.27023e-07_rb /)\n      kbo(:, 5,47, 3) = (/ &\n        & 0.56955e-10_rb,0.12460e-06_rb,0.17303e-06_rb,0.17150e-06_rb,0.28886e-07_rb /)\n      kbo(:, 1,48, 3) = (/ &\n        & 0.60438e-10_rb,0.72378e-07_rb,0.98586e-07_rb,0.10075e-06_rb,0.17068e-07_rb /)\n      kbo(:, 2,48, 3) = (/ &\n        & 0.56639e-10_rb,0.80662e-07_rb,0.11003e-06_rb,0.11052e-06_rb,0.18643e-07_rb /)\n      kbo(:, 3,48, 3) = (/ &\n        & 0.53288e-10_rb,0.88391e-07_rb,0.12069e-06_rb,0.12007e-06_rb,0.20050e-07_rb /)\n      kbo(:, 4,48, 3) = (/ &\n        & 0.50306e-10_rb,0.94624e-07_rb,0.13045e-06_rb,0.12916e-06_rb,0.21587e-07_rb /)\n      kbo(:, 5,48, 3) = (/ &\n        & 0.47632e-10_rb,0.10026e-06_rb,0.13914e-06_rb,0.13778e-06_rb,0.23136e-07_rb /)\n      kbo(:, 1,49, 3) = (/ &\n        & 0.50856e-10_rb,0.57046e-07_rb,0.77565e-07_rb,0.79741e-07_rb,0.13510e-07_rb /)\n      kbo(:, 2,49, 3) = (/ &\n        & 0.47574e-10_rb,0.63730e-07_rb,0.86939e-07_rb,0.87826e-07_rb,0.14811e-07_rb /)\n      kbo(:, 3,49, 3) = (/ &\n        & 0.44692e-10_rb,0.70367e-07_rb,0.95974e-07_rb,0.95707e-07_rb,0.15992e-07_rb /)\n      kbo(:, 4,49, 3) = (/ &\n        & 0.42136e-10_rb,0.75959e-07_rb,0.10441e-06_rb,0.10336e-06_rb,0.17235e-07_rb /)\n      kbo(:, 5,49, 3) = (/ &\n        & 0.39851e-10_rb,0.80662e-07_rb,0.11179e-06_rb,0.11061e-06_rb,0.18501e-07_rb /)\n      kbo(:, 1,50, 3) = (/ &\n        & 0.42752e-10_rb,0.44994e-07_rb,0.60933e-07_rb,0.63170e-07_rb,0.10733e-07_rb /)\n      kbo(:, 2,50, 3) = (/ &\n        & 0.39920e-10_rb,0.50417e-07_rb,0.68695e-07_rb,0.69776e-07_rb,0.11778e-07_rb /)\n      kbo(:, 3,50, 3) = (/ &\n        & 0.37445e-10_rb,0.56129e-07_rb,0.76381e-07_rb,0.76292e-07_rb,0.12796e-07_rb /)\n      kbo(:, 4,50, 3) = (/ &\n        & 0.35258e-10_rb,0.60916e-07_rb,0.83533e-07_rb,0.82746e-07_rb,0.13770e-07_rb /)\n      kbo(:, 5,50, 3) = (/ &\n        & 0.33309e-10_rb,0.65010e-07_rb,0.89933e-07_rb,0.88828e-07_rb,0.14809e-07_rb /)\n      kbo(:, 1,51, 3) = (/ &\n        & 0.35935e-10_rb,0.35278e-07_rb,0.47901e-07_rb,0.50056e-07_rb,0.85239e-08_rb /)\n      kbo(:, 2,51, 3) = (/ &\n        & 0.33494e-10_rb,0.39897e-07_rb,0.54245e-07_rb,0.55439e-07_rb,0.93562e-08_rb /)\n      kbo(:, 3,51, 3) = (/ &\n        & 0.31368e-10_rb,0.44577e-07_rb,0.60687e-07_rb,0.60854e-07_rb,0.10229e-07_rb /)\n      kbo(:, 4,51, 3) = (/ &\n        & 0.29497e-10_rb,0.48906e-07_rb,0.66668e-07_rb,0.66217e-07_rb,0.11009e-07_rb /)\n      kbo(:, 5,51, 3) = (/ &\n        & 0.27834e-10_rb,0.52348e-07_rb,0.72154e-07_rb,0.71322e-07_rb,0.11856e-07_rb /)\n      kbo(:, 1,52, 3) = (/ &\n        & 0.30227e-10_rb,0.27572e-07_rb,0.37524e-07_rb,0.39754e-07_rb,0.67198e-08_rb /)\n      kbo(:, 2,52, 3) = (/ &\n        & 0.28118e-10_rb,0.31560e-07_rb,0.42810e-07_rb,0.44031e-07_rb,0.74267e-08_rb /)\n      kbo(:, 3,52, 3) = (/ &\n        & 0.26290e-10_rb,0.35319e-07_rb,0.48079e-07_rb,0.48486e-07_rb,0.81511e-08_rb /)\n      kbo(:, 4,52, 3) = (/ &\n        & 0.24687e-10_rb,0.39041e-07_rb,0.53141e-07_rb,0.52898e-07_rb,0.88044e-08_rb /)\n      kbo(:, 5,52, 3) = (/ &\n        & 0.23267e-10_rb,0.42123e-07_rb,0.57835e-07_rb,0.57177e-07_rb,0.94934e-08_rb /)\n      kbo(:, 1,53, 3) = (/ &\n        & 0.25448e-10_rb,0.21456e-07_rb,0.29324e-07_rb,0.31450e-07_rb,0.53035e-08_rb /)\n      kbo(:, 2,53, 3) = (/ &\n        & 0.23623e-10_rb,0.24922e-07_rb,0.33706e-07_rb,0.34903e-07_rb,0.59025e-08_rb /)\n      kbo(:, 3,53, 3) = (/ &\n        & 0.22048e-10_rb,0.27931e-07_rb,0.38009e-07_rb,0.38548e-07_rb,0.64842e-08_rb /)\n      kbo(:, 4,53, 3) = (/ &\n        & 0.20673e-10_rb,0.31117e-07_rb,0.42293e-07_rb,0.42180e-07_rb,0.70454e-08_rb /)\n      kbo(:, 5,53, 3) = (/ &\n        & 0.19459e-10_rb,0.33800e-07_rb,0.46316e-07_rb,0.45776e-07_rb,0.75886e-08_rb /)\n      kbo(:, 1,54, 3) = (/ &\n        & 0.21390e-10_rb,0.16743e-07_rb,0.23031e-07_rb,0.24877e-07_rb,0.41777e-08_rb /)\n      kbo(:, 2,54, 3) = (/ &\n        & 0.19815e-10_rb,0.19619e-07_rb,0.26556e-07_rb,0.27722e-07_rb,0.47031e-08_rb /)\n      kbo(:, 3,54, 3) = (/ &\n        & 0.18463e-10_rb,0.22167e-07_rb,0.30101e-07_rb,0.30708e-07_rb,0.51646e-08_rb /)\n      kbo(:, 4,54, 3) = (/ &\n        & 0.17286e-10_rb,0.24804e-07_rb,0.33704e-07_rb,0.33716e-07_rb,0.56448e-08_rb /)\n      kbo(:, 5,54, 3) = (/ &\n        & 0.16251e-10_rb,0.27183e-07_rb,0.37049e-07_rb,0.36696e-07_rb,0.60788e-08_rb /)\n      kbo(:, 1,55, 3) = (/ &\n        & 0.17973e-10_rb,0.13037e-07_rb,0.18115e-07_rb,0.19727e-07_rb,0.32912e-08_rb /)\n      kbo(:, 2,55, 3) = (/ &\n        & 0.16615e-10_rb,0.15402e-07_rb,0.20942e-07_rb,0.22043e-07_rb,0.37301e-08_rb /)\n      kbo(:, 3,55, 3) = (/ &\n        & 0.15454e-10_rb,0.17592e-07_rb,0.23848e-07_rb,0.24485e-07_rb,0.41129e-08_rb /)\n      kbo(:, 4,55, 3) = (/ &\n        & 0.14448e-10_rb,0.19733e-07_rb,0.26815e-07_rb,0.26954e-07_rb,0.45146e-08_rb /)\n      kbo(:, 5,55, 3) = (/ &\n        & 0.13565e-10_rb,0.21785e-07_rb,0.29633e-07_rb,0.29414e-07_rb,0.48762e-08_rb /)\n      kbo(:, 1,56, 3) = (/ &\n        & 0.15112e-10_rb,0.10127e-07_rb,0.14262e-07_rb,0.15637e-07_rb,0.25986e-08_rb /)\n      kbo(:, 2,56, 3) = (/ &\n        & 0.13939e-10_rb,0.12082e-07_rb,0.16458e-07_rb,0.17567e-07_rb,0.29510e-08_rb /)\n      kbo(:, 3,56, 3) = (/ &\n        & 0.12942e-10_rb,0.13980e-07_rb,0.18876e-07_rb,0.19499e-07_rb,0.32803e-08_rb /)\n      kbo(:, 4,56, 3) = (/ &\n        & 0.12080e-10_rb,0.15677e-07_rb,0.21298e-07_rb,0.21516e-07_rb,0.36078e-08_rb /)\n      kbo(:, 5,56, 3) = (/ &\n        & 0.11328e-10_rb,0.17421e-07_rb,0.23674e-07_rb,0.23552e-07_rb,0.39142e-08_rb /)\n      kbo(:, 1,57, 3) = (/ &\n        & 0.12716e-10_rb,0.78423e-08_rb,0.11218e-07_rb,0.12368e-07_rb,0.20572e-08_rb /)\n      kbo(:, 2,57, 3) = (/ &\n        & 0.11703e-10_rb,0.94468e-08_rb,0.12944e-07_rb,0.13939e-07_rb,0.23449e-08_rb /)\n      kbo(:, 3,57, 3) = (/ &\n        & 0.10844e-10_rb,0.11054e-07_rb,0.14933e-07_rb,0.15504e-07_rb,0.26161e-08_rb /)\n      kbo(:, 4,57, 3) = (/ &\n        & 0.10105e-10_rb,0.12445e-07_rb,0.16895e-07_rb,0.17167e-07_rb,0.28789e-08_rb /)\n      kbo(:, 5,57, 3) = (/ &\n        & 0.94629e-11_rb,0.13929e-07_rb,0.18884e-07_rb,0.18837e-07_rb,0.31391e-08_rb /)\n      kbo(:, 1,58, 3) = (/ &\n        & 0.10694e-10_rb,0.61084e-08_rb,0.88278e-08_rb,0.97801e-08_rb,0.16192e-08_rb /)\n      kbo(:, 2,58, 3) = (/ &\n        & 0.98180e-11_rb,0.73859e-08_rb,0.10206e-07_rb,0.11064e-07_rb,0.18486e-08_rb /)\n      kbo(:, 3,58, 3) = (/ &\n        & 0.90797e-11_rb,0.87113e-08_rb,0.11801e-07_rb,0.12348e-07_rb,0.20872e-08_rb /)\n      kbo(:, 4,58, 3) = (/ &\n        & 0.84478e-11_rb,0.99003e-08_rb,0.13409e-07_rb,0.13707e-07_rb,0.22967e-08_rb /)\n      kbo(:, 5,58, 3) = (/ &\n        & 0.78998e-11_rb,0.11108e-07_rb,0.15069e-07_rb,0.15082e-07_rb,0.25182e-08_rb /)\n      kbo(:, 1,59, 3) = (/ &\n        & 0.88513e-11_rb,0.49239e-08_rb,0.71386e-08_rb,0.79170e-08_rb,0.13089e-08_rb /)\n      kbo(:, 2,59, 3) = (/ &\n        & 0.81187e-11_rb,0.59541e-08_rb,0.82539e-08_rb,0.89758e-08_rb,0.14952e-08_rb /)\n      kbo(:, 3,59, 3) = (/ &\n        & 0.75021e-11_rb,0.70450e-08_rb,0.95567e-08_rb,0.10024e-07_rb,0.16919e-08_rb /)\n      kbo(:, 4,59, 3) = (/ &\n        & 0.69753e-11_rb,0.80391e-08_rb,0.10874e-07_rb,0.11143e-07_rb,0.18646e-08_rb /)\n      kbo(:, 5,59, 3) = (/ &\n        & 0.65191e-11_rb,0.90265e-08_rb,0.12240e-07_rb,0.12268e-07_rb,0.20471e-08_rb /)\n      kbo(:, 1,13, 4) = (/ &\n        & 0.40115e-06_rb,0.20542e-03_rb,0.29006e-03_rb,0.29983e-03_rb,0.86404e-04_rb /)\n      kbo(:, 2,13, 4) = (/ &\n        & 0.38503e-06_rb,0.22086e-03_rb,0.30833e-03_rb,0.32518e-03_rb,0.92611e-04_rb /)\n      kbo(:, 3,13, 4) = (/ &\n        & 0.37042e-06_rb,0.23415e-03_rb,0.32674e-03_rb,0.34814e-03_rb,0.98878e-04_rb /)\n      kbo(:, 4,13, 4) = (/ &\n        & 0.35699e-06_rb,0.24607e-03_rb,0.34335e-03_rb,0.36858e-03_rb,0.10559e-03_rb /)\n      kbo(:, 5,13, 4) = (/ &\n        & 0.34439e-06_rb,0.25741e-03_rb,0.35943e-03_rb,0.38716e-03_rb,0.11262e-03_rb /)\n      kbo(:, 1,14, 4) = (/ &\n        & 0.32717e-06_rb,0.17086e-03_rb,0.24121e-03_rb,0.25001e-03_rb,0.72120e-04_rb /)\n      kbo(:, 2,14, 4) = (/ &\n        & 0.31411e-06_rb,0.18358e-03_rb,0.25599e-03_rb,0.27089e-03_rb,0.77351e-04_rb /)\n      kbo(:, 3,14, 4) = (/ &\n        & 0.30225e-06_rb,0.19456e-03_rb,0.27149e-03_rb,0.29002e-03_rb,0.82676e-04_rb /)\n      kbo(:, 4,14, 4) = (/ &\n        & 0.29132e-06_rb,0.20460e-03_rb,0.28544e-03_rb,0.30678e-03_rb,0.88331e-04_rb /)\n      kbo(:, 5,14, 4) = (/ &\n        & 0.28105e-06_rb,0.21410e-03_rb,0.29919e-03_rb,0.32271e-03_rb,0.94451e-04_rb /)\n      kbo(:, 1,15, 4) = (/ &\n        & 0.26673e-06_rb,0.14221e-03_rb,0.20048e-03_rb,0.20843e-03_rb,0.60213e-04_rb /)\n      kbo(:, 2,15, 4) = (/ &\n        & 0.25615e-06_rb,0.15268e-03_rb,0.21264e-03_rb,0.22531e-03_rb,0.64531e-04_rb /)\n      kbo(:, 3,15, 4) = (/ &\n        & 0.24652e-06_rb,0.16170e-03_rb,0.22567e-03_rb,0.24157e-03_rb,0.69102e-04_rb /)\n      kbo(:, 4,15, 4) = (/ &\n        & 0.23764e-06_rb,0.17023e-03_rb,0.23750e-03_rb,0.25543e-03_rb,0.73891e-04_rb /)\n      kbo(:, 5,15, 4) = (/ &\n        & 0.22926e-06_rb,0.17815e-03_rb,0.24912e-03_rb,0.26892e-03_rb,0.79167e-04_rb /)\n      kbo(:, 1,16, 4) = (/ &\n        & 0.21740e-06_rb,0.11824e-03_rb,0.16644e-03_rb,0.17381e-03_rb,0.50227e-04_rb /)\n      kbo(:, 2,16, 4) = (/ &\n        & 0.20884e-06_rb,0.12696e-03_rb,0.17683e-03_rb,0.18780e-03_rb,0.53903e-04_rb /)\n      kbo(:, 3,16, 4) = (/ &\n        & 0.20104e-06_rb,0.13434e-03_rb,0.18764e-03_rb,0.20094e-03_rb,0.57777e-04_rb /)\n      kbo(:, 4,16, 4) = (/ &\n        & 0.19381e-06_rb,0.14177e-03_rb,0.19757e-03_rb,0.21259e-03_rb,0.61821e-04_rb /)\n      kbo(:, 5,16, 4) = (/ &\n        & 0.18698e-06_rb,0.14828e-03_rb,0.20747e-03_rb,0.22416e-03_rb,0.66326e-04_rb /)\n      kbo(:, 1,17, 4) = (/ &\n        & 0.17724e-06_rb,0.98287e-04_rb,0.13813e-03_rb,0.14496e-03_rb,0.41851e-04_rb /)\n      kbo(:, 2,17, 4) = (/ &\n        & 0.17029e-06_rb,0.10548e-03_rb,0.14701e-03_rb,0.15636e-03_rb,0.44943e-04_rb /)\n      kbo(:, 3,17, 4) = (/ &\n        & 0.16396e-06_rb,0.11169e-03_rb,0.15605e-03_rb,0.16727e-03_rb,0.48176e-04_rb /)\n      kbo(:, 4,17, 4) = (/ &\n        & 0.15809e-06_rb,0.11795e-03_rb,0.16435e-03_rb,0.17684e-03_rb,0.51716e-04_rb /)\n      kbo(:, 5,17, 4) = (/ &\n        & 0.15251e-06_rb,0.12332e-03_rb,0.17265e-03_rb,0.18683e-03_rb,0.55480e-04_rb /)\n      kbo(:, 1,18, 4) = (/ &\n        & 0.14450e-06_rb,0.81703e-04_rb,0.11464e-03_rb,0.12079e-03_rb,0.34849e-04_rb /)\n      kbo(:, 2,18, 4) = (/ &\n        & 0.13887e-06_rb,0.87580e-04_rb,0.12224e-03_rb,0.13028e-03_rb,0.37465e-04_rb /)\n      kbo(:, 3,18, 4) = (/ &\n        & 0.13373e-06_rb,0.92869e-04_rb,0.12966e-03_rb,0.13906e-03_rb,0.40225e-04_rb /)\n      kbo(:, 4,18, 4) = (/ &\n        & 0.12896e-06_rb,0.98034e-04_rb,0.13668e-03_rb,0.14712e-03_rb,0.43227e-04_rb /)\n      kbo(:, 5,18, 4) = (/ &\n        & 0.12439e-06_rb,0.10250e-03_rb,0.14367e-03_rb,0.15557e-03_rb,0.46383e-04_rb /)\n      kbo(:, 1,19, 4) = (/ &\n        & 0.11782e-06_rb,0.67922e-04_rb,0.95121e-04_rb,0.10059e-03_rb,0.29014e-04_rb /)\n      kbo(:, 2,19, 4) = (/ &\n        & 0.11325e-06_rb,0.72759e-04_rb,0.10166e-03_rb,0.10843e-03_rb,0.31239e-04_rb /)\n      kbo(:, 3,19, 4) = (/ &\n        & 0.10909e-06_rb,0.77213e-04_rb,0.10769e-03_rb,0.11563e-03_rb,0.33594e-04_rb /)\n      kbo(:, 4,19, 4) = (/ &\n        & 0.10521e-06_rb,0.81507e-04_rb,0.11367e-03_rb,0.12244e-03_rb,0.36087e-04_rb /)\n      kbo(:, 5,19, 4) = (/ &\n        & 0.10146e-06_rb,0.85229e-04_rb,0.11951e-03_rb,0.12955e-03_rb,0.38760e-04_rb /)\n      kbo(:, 1,20, 4) = (/ &\n        & 0.96005e-07_rb,0.56539e-04_rb,0.79048e-04_rb,0.83638e-04_rb,0.24182e-04_rb /)\n      kbo(:, 2,20, 4) = (/ &\n        & 0.92311e-07_rb,0.60522e-04_rb,0.84506e-04_rb,0.90308e-04_rb,0.26052e-04_rb /)\n      kbo(:, 3,20, 4) = (/ &\n        & 0.88927e-07_rb,0.64305e-04_rb,0.89608e-04_rb,0.96229e-04_rb,0.28071e-04_rb /)\n      kbo(:, 4,20, 4) = (/ &\n        & 0.85775e-07_rb,0.67811e-04_rb,0.94659e-04_rb,0.10203e-03_rb,0.30185e-04_rb /)\n      kbo(:, 5,20, 4) = (/ &\n        & 0.82709e-07_rb,0.70967e-04_rb,0.99551e-04_rb,0.10796e-03_rb,0.32438e-04_rb /)\n      kbo(:, 1,21, 4) = (/ &\n        & 0.78225e-07_rb,0.47094e-04_rb,0.65736e-04_rb,0.69706e-04_rb,0.20168e-04_rb /)\n      kbo(:, 2,21, 4) = (/ &\n        & 0.75235e-07_rb,0.50383e-04_rb,0.70309e-04_rb,0.75210e-04_rb,0.21748e-04_rb /)\n      kbo(:, 3,21, 4) = (/ &\n        & 0.72491e-07_rb,0.53581e-04_rb,0.74579e-04_rb,0.80106e-04_rb,0.23442e-04_rb /)\n      kbo(:, 4,21, 4) = (/ &\n        & 0.69929e-07_rb,0.56448e-04_rb,0.78864e-04_rb,0.85108e-04_rb,0.25248e-04_rb /)\n      kbo(:, 5,21, 4) = (/ &\n        & 0.67419e-07_rb,0.59090e-04_rb,0.82932e-04_rb,0.89870e-04_rb,0.27098e-04_rb /)\n      kbo(:, 1,22, 4) = (/ &\n        & 0.63572e-07_rb,0.39426e-04_rb,0.54979e-04_rb,0.58443e-04_rb,0.16913e-04_rb /)\n      kbo(:, 2,22, 4) = (/ &\n        & 0.61166e-07_rb,0.42097e-04_rb,0.58779e-04_rb,0.62933e-04_rb,0.18259e-04_rb /)\n      kbo(:, 3,22, 4) = (/ &\n        & 0.58951e-07_rb,0.44794e-04_rb,0.62330e-04_rb,0.66952e-04_rb,0.19670e-04_rb /)\n      kbo(:, 4,22, 4) = (/ &\n        & 0.56872e-07_rb,0.47147e-04_rb,0.65961e-04_rb,0.71230e-04_rb,0.21221e-04_rb /)\n      kbo(:, 5,22, 4) = (/ &\n        & 0.54822e-07_rb,0.49377e-04_rb,0.69234e-04_rb,0.75038e-04_rb,0.22743e-04_rb /)\n      kbo(:, 1,23, 4) = (/ &\n        & 0.51656e-07_rb,0.32950e-04_rb,0.46052e-04_rb,0.49084e-04_rb,0.14181e-04_rb /)\n      kbo(:, 2,23, 4) = (/ &\n        & 0.49721e-07_rb,0.35250e-04_rb,0.49106e-04_rb,0.52675e-04_rb,0.15330e-04_rb /)\n      kbo(:, 3,23, 4) = (/ &\n        & 0.47930e-07_rb,0.37438e-04_rb,0.52152e-04_rb,0.56097e-04_rb,0.16532e-04_rb /)\n      kbo(:, 4,23, 4) = (/ &\n        & 0.46242e-07_rb,0.39418e-04_rb,0.55160e-04_rb,0.59674e-04_rb,0.17811e-04_rb /)\n      kbo(:, 5,23, 4) = (/ &\n        & 0.44570e-07_rb,0.41280e-04_rb,0.57899e-04_rb,0.62654e-04_rb,0.19100e-04_rb /)\n      kbo(:, 1,24, 4) = (/ &\n        & 0.41962e-07_rb,0.27608e-04_rb,0.38527e-04_rb,0.41167e-04_rb,0.11908e-04_rb /)\n      kbo(:, 2,24, 4) = (/ &\n        & 0.40405e-07_rb,0.29547e-04_rb,0.41099e-04_rb,0.44081e-04_rb,0.12880e-04_rb /)\n      kbo(:, 3,24, 4) = (/ &\n        & 0.38959e-07_rb,0.31321e-04_rb,0.43687e-04_rb,0.47051e-04_rb,0.13912e-04_rb /)\n      kbo(:, 4,24, 4) = (/ &\n        & 0.37583e-07_rb,0.32994e-04_rb,0.46190e-04_rb,0.49890e-04_rb,0.14961e-04_rb /)\n      kbo(:, 5,24, 4) = (/ &\n        & 0.36227e-07_rb,0.34560e-04_rb,0.48473e-04_rb,0.52358e-04_rb,0.16039e-04_rb /)\n      kbo(:, 1,25, 4) = (/ &\n        & 0.34075e-07_rb,0.23153e-04_rb,0.32305e-04_rb,0.34566e-04_rb,0.10014e-04_rb /)\n      kbo(:, 2,25, 4) = (/ &\n        & 0.32822e-07_rb,0.24769e-04_rb,0.34435e-04_rb,0.36968e-04_rb,0.10822e-04_rb /)\n      kbo(:, 3,25, 4) = (/ &\n        & 0.31655e-07_rb,0.26242e-04_rb,0.36635e-04_rb,0.39484e-04_rb,0.11699e-04_rb /)\n      kbo(:, 4,25, 4) = (/ &\n        & 0.30528e-07_rb,0.27624e-04_rb,0.38648e-04_rb,0.41770e-04_rb,0.12588e-04_rb /)\n      kbo(:, 5,25, 4) = (/ &\n        & 0.29434e-07_rb,0.28951e-04_rb,0.40632e-04_rb,0.43774e-04_rb,0.13479e-04_rb /)\n      kbo(:, 1,26, 4) = (/ &\n        & 0.27652e-07_rb,0.19460e-04_rb,0.27114e-04_rb,0.29052e-04_rb,0.84372e-05_rb /)\n      kbo(:, 2,26, 4) = (/ &\n        & 0.26645e-07_rb,0.20785e-04_rb,0.28933e-04_rb,0.31091e-04_rb,0.91305e-05_rb /)\n      kbo(:, 3,26, 4) = (/ &\n        & 0.25703e-07_rb,0.22018e-04_rb,0.30749e-04_rb,0.33173e-04_rb,0.98560e-05_rb /)\n      kbo(:, 4,26, 4) = (/ &\n        & 0.24780e-07_rb,0.23166e-04_rb,0.32405e-04_rb,0.34971e-04_rb,0.10593e-04_rb /)\n      kbo(:, 5,26, 4) = (/ &\n        & 0.23900e-07_rb,0.24286e-04_rb,0.34048e-04_rb,0.36663e-04_rb,0.11346e-04_rb /)\n      kbo(:, 1,27, 4) = (/ &\n        & 0.22439e-07_rb,0.16370e-04_rb,0.22763e-04_rb,0.24397e-04_rb,0.71084e-05_rb /)\n      kbo(:, 2,27, 4) = (/ &\n        & 0.21628e-07_rb,0.17461e-04_rb,0.24318e-04_rb,0.26140e-04_rb,0.76961e-05_rb /)\n      kbo(:, 3,27, 4) = (/ &\n        & 0.20865e-07_rb,0.18493e-04_rb,0.25826e-04_rb,0.27824e-04_rb,0.83080e-05_rb /)\n      kbo(:, 4,27, 4) = (/ &\n        & 0.20113e-07_rb,0.19452e-04_rb,0.27215e-04_rb,0.29287e-04_rb,0.89207e-05_rb /)\n      kbo(:, 5,27, 4) = (/ &\n        & 0.19405e-07_rb,0.20376e-04_rb,0.28543e-04_rb,0.30710e-04_rb,0.95477e-05_rb /)\n      kbo(:, 1,28, 4) = (/ &\n        & 0.18208e-07_rb,0.13777e-04_rb,0.19138e-04_rb,0.20524e-04_rb,0.59952e-05_rb /)\n      kbo(:, 2,28, 4) = (/ &\n        & 0.17555e-07_rb,0.14679e-04_rb,0.20448e-04_rb,0.21996e-04_rb,0.64907e-05_rb /)\n      kbo(:, 3,28, 4) = (/ &\n        & 0.16936e-07_rb,0.15522e-04_rb,0.21661e-04_rb,0.23357e-04_rb,0.69966e-05_rb /)\n      kbo(:, 4,28, 4) = (/ &\n        & 0.16325e-07_rb,0.16334e-04_rb,0.22846e-04_rb,0.24537e-04_rb,0.75124e-05_rb /)\n      kbo(:, 5,28, 4) = (/ &\n        & 0.15755e-07_rb,0.17088e-04_rb,0.23931e-04_rb,0.25722e-04_rb,0.80305e-05_rb /)\n      kbo(:, 1,29, 4) = (/ &\n        & 0.14772e-07_rb,0.11598e-04_rb,0.16117e-04_rb,0.17294e-04_rb,0.50602e-05_rb /)\n      kbo(:, 2,29, 4) = (/ &\n        & 0.14246e-07_rb,0.12346e-04_rb,0.17198e-04_rb,0.18521e-04_rb,0.54799e-05_rb /)\n      kbo(:, 3,29, 4) = (/ &\n        & 0.13739e-07_rb,0.13047e-04_rb,0.18205e-04_rb,0.19566e-04_rb,0.58992e-05_rb /)\n      kbo(:, 4,29, 4) = (/ &\n        & 0.13247e-07_rb,0.13729e-04_rb,0.19173e-04_rb,0.20574e-04_rb,0.63251e-05_rb /)\n      kbo(:, 5,29, 4) = (/ &\n        & 0.12789e-07_rb,0.14341e-04_rb,0.20068e-04_rb,0.21536e-04_rb,0.67496e-05_rb /)\n      kbo(:, 1,30, 4) = (/ &\n        & 0.11984e-07_rb,0.97679e-05_rb,0.13568e-04_rb,0.14565e-04_rb,0.42721e-05_rb /)\n      kbo(:, 2,30, 4) = (/ &\n        & 0.11560e-07_rb,0.10389e-04_rb,0.14461e-04_rb,0.15560e-04_rb,0.46182e-05_rb /)\n      kbo(:, 3,30, 4) = (/ &\n        & 0.11144e-07_rb,0.10973e-04_rb,0.15302e-04_rb,0.16410e-04_rb,0.49715e-05_rb /)\n      kbo(:, 4,30, 4) = (/ &\n        & 0.10750e-07_rb,0.11532e-04_rb,0.16091e-04_rb,0.17244e-04_rb,0.53212e-05_rb /)\n      kbo(:, 5,30, 4) = (/ &\n        & 0.10381e-07_rb,0.12034e-04_rb,0.16821e-04_rb,0.18023e-04_rb,0.56712e-05_rb /)\n      kbo(:, 1,31, 4) = (/ &\n        & 0.97205e-08_rb,0.82296e-05_rb,0.11440e-04_rb,0.12288e-04_rb,0.36079e-05_rb /)\n      kbo(:, 2,31, 4) = (/ &\n        & 0.93777e-08_rb,0.87431e-05_rb,0.12158e-04_rb,0.13067e-04_rb,0.38974e-05_rb /)\n      kbo(:, 3,31, 4) = (/ &\n        & 0.90391e-08_rb,0.92300e-05_rb,0.12862e-04_rb,0.13769e-04_rb,0.41885e-05_rb /)\n      kbo(:, 4,31, 4) = (/ &\n        & 0.87219e-08_rb,0.96854e-05_rb,0.13508e-04_rb,0.14454e-04_rb,0.44756e-05_rb /)\n      kbo(:, 5,31, 4) = (/ &\n        & 0.84251e-08_rb,0.10101e-04_rb,0.14090e-04_rb,0.15064e-04_rb,0.47643e-05_rb /)\n      kbo(:, 1,32, 4) = (/ &\n        & 0.78842e-08_rb,0.69379e-05_rb,0.96378e-05_rb,0.10350e-04_rb,0.30462e-05_rb /)\n      kbo(:, 2,32, 4) = (/ &\n        & 0.76058e-08_rb,0.73605e-05_rb,0.10230e-04_rb,0.10964e-04_rb,0.32879e-05_rb /)\n      kbo(:, 3,32, 4) = (/ &\n        & 0.73312e-08_rb,0.77685e-05_rb,0.10806e-04_rb,0.11552e-04_rb,0.35258e-05_rb /)\n      kbo(:, 4,32, 4) = (/ &\n        & 0.70761e-08_rb,0.81393e-05_rb,0.11329e-04_rb,0.12109e-04_rb,0.37642e-05_rb /)\n      kbo(:, 5,32, 4) = (/ &\n        & 0.68375e-08_rb,0.84723e-05_rb,0.11806e-04_rb,0.12582e-04_rb,0.40027e-05_rb /)\n      kbo(:, 1,33, 4) = (/ &\n        & 0.63946e-08_rb,0.58484e-05_rb,0.81132e-05_rb,0.87138e-05_rb,0.25722e-05_rb /)\n      kbo(:, 2,33, 4) = (/ &\n        & 0.61668e-08_rb,0.61985e-05_rb,0.86152e-05_rb,0.92043e-05_rb,0.27716e-05_rb /)\n      kbo(:, 3,33, 4) = (/ &\n        & 0.59460e-08_rb,0.65329e-05_rb,0.90761e-05_rb,0.96914e-05_rb,0.29672e-05_rb /)\n      kbo(:, 4,33, 4) = (/ &\n        & 0.57410e-08_rb,0.68349e-05_rb,0.94991e-05_rb,0.10128e-04_rb,0.31649e-05_rb /)\n      kbo(:, 5,33, 4) = (/ &\n        & 0.55490e-08_rb,0.71098e-05_rb,0.98972e-05_rb,0.10494e-04_rb,0.33613e-05_rb /)\n      kbo(:, 1,34, 4) = (/ &\n        & 0.51931e-08_rb,0.49155e-05_rb,0.68122e-05_rb,0.73003e-05_rb,0.21648e-05_rb /)\n      kbo(:, 2,34, 4) = (/ &\n        & 0.50066e-08_rb,0.52108e-05_rb,0.72299e-05_rb,0.77128e-05_rb,0.23280e-05_rb /)\n      kbo(:, 3,34, 4) = (/ &\n        & 0.48289e-08_rb,0.54838e-05_rb,0.76076e-05_rb,0.81077e-05_rb,0.24906e-05_rb /)\n      kbo(:, 4,34, 4) = (/ &\n        & 0.46636e-08_rb,0.57271e-05_rb,0.79460e-05_rb,0.84494e-05_rb,0.26534e-05_rb /)\n      kbo(:, 5,34, 4) = (/ &\n        & 0.45089e-08_rb,0.59543e-05_rb,0.82751e-05_rb,0.87422e-05_rb,0.28159e-05_rb /)\n      kbo(:, 1,35, 4) = (/ &\n        & 0.42177e-08_rb,0.41104e-05_rb,0.56914e-05_rb,0.60852e-05_rb,0.18078e-05_rb /)\n      kbo(:, 2,35, 4) = (/ &\n        & 0.40795e-08_rb,0.43580e-05_rb,0.60334e-05_rb,0.64274e-05_rb,0.19421e-05_rb /)\n      kbo(:, 3,35, 4) = (/ &\n        & 0.39353e-08_rb,0.45814e-05_rb,0.63407e-05_rb,0.67443e-05_rb,0.20767e-05_rb /)\n      kbo(:, 4,35, 4) = (/ &\n        & 0.38012e-08_rb,0.47803e-05_rb,0.66196e-05_rb,0.70144e-05_rb,0.22114e-05_rb /)\n      kbo(:, 5,35, 4) = (/ &\n        & 0.36756e-08_rb,0.49682e-05_rb,0.68884e-05_rb,0.72539e-05_rb,0.23458e-05_rb /)\n      kbo(:, 1,36, 4) = (/ &\n        & 0.34162e-08_rb,0.34141e-05_rb,0.47224e-05_rb,0.50412e-05_rb,0.14965e-05_rb /)\n      kbo(:, 2,36, 4) = (/ &\n        & 0.33196e-08_rb,0.36215e-05_rb,0.50037e-05_rb,0.53241e-05_rb,0.16078e-05_rb /)\n      kbo(:, 3,36, 4) = (/ &\n        & 0.32195e-08_rb,0.38064e-05_rb,0.52583e-05_rb,0.55817e-05_rb,0.17188e-05_rb /)\n      kbo(:, 4,36, 4) = (/ &\n        & 0.31099e-08_rb,0.39715e-05_rb,0.54881e-05_rb,0.58006e-05_rb,0.18307e-05_rb /)\n      kbo(:, 5,36, 4) = (/ &\n        & 0.30072e-08_rb,0.41270e-05_rb,0.57065e-05_rb,0.59974e-05_rb,0.19419e-05_rb /)\n      kbo(:, 1,37, 4) = (/ &\n        & 0.28008e-08_rb,0.28094e-05_rb,0.38801e-05_rb,0.41393e-05_rb,0.12248e-05_rb /)\n      kbo(:, 2,37, 4) = (/ &\n        & 0.27121e-08_rb,0.29836e-05_rb,0.41155e-05_rb,0.43748e-05_rb,0.13168e-05_rb /)\n      kbo(:, 3,37, 4) = (/ &\n        & 0.26482e-08_rb,0.31397e-05_rb,0.43282e-05_rb,0.45885e-05_rb,0.14087e-05_rb /)\n      kbo(:, 4,37, 4) = (/ &\n        & 0.25576e-08_rb,0.32779e-05_rb,0.45200e-05_rb,0.47706e-05_rb,0.15013e-05_rb /)\n      kbo(:, 5,37, 4) = (/ &\n        & 0.24727e-08_rb,0.34082e-05_rb,0.47023e-05_rb,0.49354e-05_rb,0.15935e-05_rb /)\n      kbo(:, 1,38, 4) = (/ &\n        & 0.22984e-08_rb,0.23106e-05_rb,0.31856e-05_rb,0.33961e-05_rb,0.10016e-05_rb /)\n      kbo(:, 2,38, 4) = (/ &\n        & 0.22220e-08_rb,0.24563e-05_rb,0.33826e-05_rb,0.35915e-05_rb,0.10776e-05_rb /)\n      kbo(:, 3,38, 4) = (/ &\n        & 0.21588e-08_rb,0.25882e-05_rb,0.35600e-05_rb,0.37696e-05_rb,0.11538e-05_rb /)\n      kbo(:, 4,38, 4) = (/ &\n        & 0.21040e-08_rb,0.27033e-05_rb,0.37199e-05_rb,0.39213e-05_rb,0.12304e-05_rb /)\n      kbo(:, 5,38, 4) = (/ &\n        & 0.20339e-08_rb,0.28122e-05_rb,0.38728e-05_rb,0.40597e-05_rb,0.13067e-05_rb /)\n      kbo(:, 1,39, 4) = (/ &\n        & 0.18867e-08_rb,0.18990e-05_rb,0.26147e-05_rb,0.27855e-05_rb,0.81895e-06_rb /)\n      kbo(:, 2,39, 4) = (/ &\n        & 0.18219e-08_rb,0.20211e-05_rb,0.27789e-05_rb,0.29482e-05_rb,0.88168e-06_rb /)\n      kbo(:, 3,39, 4) = (/ &\n        & 0.17671e-08_rb,0.21324e-05_rb,0.29272e-05_rb,0.30962e-05_rb,0.94475e-06_rb /)\n      kbo(:, 4,39, 4) = (/ &\n        & 0.17201e-08_rb,0.22287e-05_rb,0.30607e-05_rb,0.32231e-05_rb,0.10080e-05_rb /)\n      kbo(:, 5,39, 4) = (/ &\n        & 0.16729e-08_rb,0.23197e-05_rb,0.31885e-05_rb,0.33389e-05_rb,0.10713e-05_rb /)\n      kbo(:, 1,40, 4) = (/ &\n        & 0.15567e-08_rb,0.15486e-05_rb,0.21299e-05_rb,0.22697e-05_rb,0.66418e-06_rb /)\n      kbo(:, 2,40, 4) = (/ &\n        & 0.15030e-08_rb,0.16525e-05_rb,0.22686e-05_rb,0.24063e-05_rb,0.71591e-06_rb /)\n      kbo(:, 3,40, 4) = (/ &\n        & 0.14559e-08_rb,0.17468e-05_rb,0.23938e-05_rb,0.25304e-05_rb,0.76804e-06_rb /)\n      kbo(:, 4,40, 4) = (/ &\n        & 0.14147e-08_rb,0.18284e-05_rb,0.25062e-05_rb,0.26377e-05_rb,0.82053e-06_rb /)\n      kbo(:, 5,40, 4) = (/ &\n        & 0.13808e-08_rb,0.19051e-05_rb,0.26142e-05_rb,0.27362e-05_rb,0.87282e-06_rb /)\n      kbo(:, 1,41, 4) = (/ &\n        & 0.12855e-08_rb,0.12622e-05_rb,0.17326e-05_rb,0.18472e-05_rb,0.53778e-06_rb /)\n      kbo(:, 2,41, 4) = (/ &\n        & 0.12414e-08_rb,0.13486e-05_rb,0.18494e-05_rb,0.19612e-05_rb,0.58062e-06_rb /)\n      kbo(:, 3,41, 4) = (/ &\n        & 0.12006e-08_rb,0.14290e-05_rb,0.19551e-05_rb,0.20665e-05_rb,0.62365e-06_rb /)\n      kbo(:, 4,41, 4) = (/ &\n        & 0.11655e-08_rb,0.14984e-05_rb,0.20506e-05_rb,0.21570e-05_rb,0.66707e-06_rb /)\n      kbo(:, 5,41, 4) = (/ &\n        & 0.11366e-08_rb,0.15630e-05_rb,0.21416e-05_rb,0.22404e-05_rb,0.71035e-06_rb /)\n      kbo(:, 1,42, 4) = (/ &\n        & 0.10616e-08_rb,0.10273e-05_rb,0.14085e-05_rb,0.15034e-05_rb,0.43514e-06_rb /)\n      kbo(:, 2,42, 4) = (/ &\n        & 0.10250e-08_rb,0.10997e-05_rb,0.15070e-05_rb,0.15973e-05_rb,0.47061e-06_rb /)\n      kbo(:, 3,42, 4) = (/ &\n        & 0.99030e-09_rb,0.11679e-05_rb,0.15953e-05_rb,0.16861e-05_rb,0.50613e-06_rb /)\n      kbo(:, 4,42, 4) = (/ &\n        & 0.96062e-09_rb,0.12272e-05_rb,0.16766e-05_rb,0.17642e-05_rb,0.54216e-06_rb /)\n      kbo(:, 5,42, 4) = (/ &\n        & 0.93443e-09_rb,0.12817e-05_rb,0.17529e-05_rb,0.18333e-05_rb,0.57784e-06_rb /)\n      kbo(:, 1,43, 4) = (/ &\n        & 0.87883e-09_rb,0.83199e-06_rb,0.11402e-05_rb,0.12168e-05_rb,0.35025e-06_rb /)\n      kbo(:, 2,43, 4) = (/ &\n        & 0.84829e-09_rb,0.89254e-06_rb,0.12225e-05_rb,0.12958e-05_rb,0.37960e-06_rb /)\n      kbo(:, 3,43, 4) = (/ &\n        & 0.81903e-09_rb,0.95072e-06_rb,0.12966e-05_rb,0.13708e-05_rb,0.40893e-06_rb /)\n      kbo(:, 4,43, 4) = (/ &\n        & 0.79369e-09_rb,0.10020e-05_rb,0.13665e-05_rb,0.14379e-05_rb,0.43862e-06_rb /)\n      kbo(:, 5,43, 4) = (/ &\n        & 0.77108e-09_rb,0.10478e-05_rb,0.14302e-05_rb,0.14962e-05_rb,0.46817e-06_rb /)\n      kbo(:, 1,44, 4) = (/ &\n        & 0.72838e-09_rb,0.67080e-06_rb,0.91962e-06_rb,0.98102e-06_rb,0.28107e-06_rb /)\n      kbo(:, 2,44, 4) = (/ &\n        & 0.70279e-09_rb,0.72271e-06_rb,0.98853e-06_rb,0.10491e-05_rb,0.30540e-06_rb /)\n      kbo(:, 3,44, 4) = (/ &\n        & 0.67858e-09_rb,0.77203e-06_rb,0.10522e-05_rb,0.11122e-05_rb,0.32958e-06_rb /)\n      kbo(:, 4,44, 4) = (/ &\n        & 0.65651e-09_rb,0.81625e-06_rb,0.11115e-05_rb,0.11697e-05_rb,0.35407e-06_rb /)\n      kbo(:, 5,44, 4) = (/ &\n        & 0.63727e-09_rb,0.85495e-06_rb,0.11651e-05_rb,0.12192e-05_rb,0.37850e-06_rb /)\n      kbo(:, 1,45, 4) = (/ &\n        & 0.60379e-09_rb,0.54047e-06_rb,0.74128e-06_rb,0.79100e-06_rb,0.22535e-06_rb /)\n      kbo(:, 2,45, 4) = (/ &\n        & 0.58228e-09_rb,0.58429e-06_rb,0.79854e-06_rb,0.84841e-06_rb,0.24548e-06_rb /)\n      kbo(:, 3,45, 4) = (/ &\n        & 0.56220e-09_rb,0.62606e-06_rb,0.85283e-06_rb,0.90157e-06_rb,0.26541e-06_rb /)\n      kbo(:, 4,45, 4) = (/ &\n        & 0.54320e-09_rb,0.66423e-06_rb,0.90296e-06_rb,0.95015e-06_rb,0.28558e-06_rb /)\n      kbo(:, 5,45, 4) = (/ &\n        & 0.52686e-09_rb,0.69719e-06_rb,0.94830e-06_rb,0.99254e-06_rb,0.30580e-06_rb /)\n      kbo(:, 1,46, 4) = (/ &\n        & 0.50108e-09_rb,0.43361e-06_rb,0.59554e-06_rb,0.63432e-06_rb,0.18023e-06_rb /)\n      kbo(:, 2,46, 4) = (/ &\n        & 0.48291e-09_rb,0.47127e-06_rb,0.64349e-06_rb,0.68510e-06_rb,0.19677e-06_rb /)\n      kbo(:, 3,46, 4) = (/ &\n        & 0.46612e-09_rb,0.50621e-06_rb,0.68942e-06_rb,0.72929e-06_rb,0.21325e-06_rb /)\n      kbo(:, 4,46, 4) = (/ &\n        & 0.45004e-09_rb,0.53903e-06_rb,0.73169e-06_rb,0.77095e-06_rb,0.22986e-06_rb /)\n      kbo(:, 5,46, 4) = (/ &\n        & 0.43600e-09_rb,0.56740e-06_rb,0.77081e-06_rb,0.80714e-06_rb,0.24654e-06_rb /)\n      kbo(:, 1,47, 4) = (/ &\n        & 0.41665e-09_rb,0.34614e-06_rb,0.47565e-06_rb,0.50598e-06_rb,0.14345e-06_rb /)\n      kbo(:, 2,47, 4) = (/ &\n        & 0.40119e-09_rb,0.37779e-06_rb,0.51642e-06_rb,0.55015e-06_rb,0.15697e-06_rb /)\n      kbo(:, 3,47, 4) = (/ &\n        & 0.38702e-09_rb,0.40752e-06_rb,0.55525e-06_rb,0.58759e-06_rb,0.17064e-06_rb /)\n      kbo(:, 4,47, 4) = (/ &\n        & 0.37372e-09_rb,0.43563e-06_rb,0.59076e-06_rb,0.62318e-06_rb,0.18430e-06_rb /)\n      kbo(:, 5,47, 4) = (/ &\n        & 0.36139e-09_rb,0.46041e-06_rb,0.62474e-06_rb,0.65515e-06_rb,0.19800e-06_rb /)\n      kbo(:, 1,48, 4) = (/ &\n        & 0.34658e-09_rb,0.27494e-06_rb,0.37924e-06_rb,0.40349e-06_rb,0.11407e-06_rb /)\n      kbo(:, 2,48, 4) = (/ &\n        & 0.33340e-09_rb,0.30243e-06_rb,0.41340e-06_rb,0.44066e-06_rb,0.12508e-06_rb /)\n      kbo(:, 3,48, 4) = (/ &\n        & 0.32143e-09_rb,0.32756e-06_rb,0.44635e-06_rb,0.47308e-06_rb,0.13636e-06_rb /)\n      kbo(:, 4,48, 4) = (/ &\n        & 0.31032e-09_rb,0.35149e-06_rb,0.47669e-06_rb,0.50309e-06_rb,0.14763e-06_rb /)\n      kbo(:, 5,48, 4) = (/ &\n        & 0.29969e-09_rb,0.37323e-06_rb,0.50542e-06_rb,0.53062e-06_rb,0.15892e-06_rb /)\n      kbo(:, 1,49, 4) = (/ &\n        & 0.28846e-09_rb,0.21778e-06_rb,0.30168e-06_rb,0.32158e-06_rb,0.90607e-07_rb /)\n      kbo(:, 2,49, 4) = (/ &\n        & 0.27716e-09_rb,0.24139e-06_rb,0.33071e-06_rb,0.35214e-06_rb,0.99577e-07_rb /)\n      kbo(:, 3,49, 4) = (/ &\n        & 0.26700e-09_rb,0.26304e-06_rb,0.35804e-06_rb,0.38049e-06_rb,0.10881e-06_rb /)\n      kbo(:, 4,49, 4) = (/ &\n        & 0.25767e-09_rb,0.28313e-06_rb,0.38394e-06_rb,0.40566e-06_rb,0.11814e-06_rb /)\n      kbo(:, 5,49, 4) = (/ &\n        & 0.24875e-09_rb,0.30183e-06_rb,0.40832e-06_rb,0.42906e-06_rb,0.12742e-06_rb /)\n      kbo(:, 1,50, 4) = (/ &\n        & 0.23994e-09_rb,0.17276e-06_rb,0.24039e-06_rb,0.25644e-06_rb,0.72124e-07_rb /)\n      kbo(:, 2,50, 4) = (/ &\n        & 0.23028e-09_rb,0.19275e-06_rb,0.26429e-06_rb,0.28117e-06_rb,0.79388e-07_rb /)\n      kbo(:, 3,50, 4) = (/ &\n        & 0.22162e-09_rb,0.21106e-06_rb,0.28758e-06_rb,0.30606e-06_rb,0.86922e-07_rb /)\n      kbo(:, 4,50, 4) = (/ &\n        & 0.21377e-09_rb,0.22807e-06_rb,0.30947e-06_rb,0.32714e-06_rb,0.94628e-07_rb /)\n      kbo(:, 5,50, 4) = (/ &\n        & 0.20641e-09_rb,0.24400e-06_rb,0.32962e-06_rb,0.34715e-06_rb,0.10228e-06_rb /)\n      kbo(:, 1,51, 4) = (/ &\n        & 0.19960e-09_rb,0.13709e-06_rb,0.19101e-06_rb,0.20407e-06_rb,0.57566e-07_rb /)\n      kbo(:, 2,51, 4) = (/ &\n        & 0.19132e-09_rb,0.15352e-06_rb,0.21120e-06_rb,0.22455e-06_rb,0.63308e-07_rb /)\n      kbo(:, 3,51, 4) = (/ &\n        & 0.18395e-09_rb,0.16924e-06_rb,0.23068e-06_rb,0.24563e-06_rb,0.69421e-07_rb /)\n      kbo(:, 4,51, 4) = (/ &\n        & 0.17732e-09_rb,0.18352e-06_rb,0.24926e-06_rb,0.26383e-06_rb,0.75773e-07_rb /)\n      kbo(:, 5,51, 4) = (/ &\n        & 0.17117e-09_rb,0.19715e-06_rb,0.26630e-06_rb,0.28068e-06_rb,0.82097e-07_rb /)\n      kbo(:, 1,52, 4) = (/ &\n        & 0.16616e-09_rb,0.10852e-06_rb,0.15191e-06_rb,0.16137e-06_rb,0.45975e-07_rb /)\n      kbo(:, 2,52, 4) = (/ &\n        & 0.15901e-09_rb,0.12188e-06_rb,0.16855e-06_rb,0.17943e-06_rb,0.50454e-07_rb /)\n      kbo(:, 3,52, 4) = (/ &\n        & 0.15272e-09_rb,0.13535e-06_rb,0.18502e-06_rb,0.19705e-06_rb,0.55424e-07_rb /)\n      kbo(:, 4,52, 4) = (/ &\n        & 0.14711e-09_rb,0.14765e-06_rb,0.20042e-06_rb,0.21252e-06_rb,0.60616e-07_rb /)\n      kbo(:, 5,52, 4) = (/ &\n        & 0.14194e-09_rb,0.15907e-06_rb,0.21484e-06_rb,0.22673e-06_rb,0.65826e-07_rb /)\n      kbo(:, 1,53, 4) = (/ &\n        & 0.13839e-09_rb,0.85704e-07_rb,0.12023e-06_rb,0.12744e-06_rb,0.36523e-07_rb /)\n      kbo(:, 2,53, 4) = (/ &\n        & 0.13223e-09_rb,0.96600e-07_rb,0.13438e-06_rb,0.14312e-06_rb,0.40152e-07_rb /)\n      kbo(:, 3,53, 4) = (/ &\n        & 0.12684e-09_rb,0.10804e-06_rb,0.14784e-06_rb,0.15735e-06_rb,0.44207e-07_rb /)\n      kbo(:, 4,53, 4) = (/ &\n        & 0.12208e-09_rb,0.11851e-06_rb,0.16093e-06_rb,0.17108e-06_rb,0.48435e-07_rb /)\n      kbo(:, 5,53, 4) = (/ &\n        & 0.11772e-09_rb,0.12811e-06_rb,0.17313e-06_rb,0.18293e-06_rb,0.52733e-07_rb /)\n      kbo(:, 1,54, 4) = (/ &\n        & 0.11516e-09_rb,0.67802e-07_rb,0.95400e-07_rb,0.10065e-06_rb,0.29040e-07_rb /)\n      kbo(:, 2,54, 4) = (/ &\n        & 0.10986e-09_rb,0.76927e-07_rb,0.10712e-06_rb,0.11428e-06_rb,0.32044e-07_rb /)\n      kbo(:, 3,54, 4) = (/ &\n        & 0.10526e-09_rb,0.86295e-07_rb,0.11833e-06_rb,0.12580e-06_rb,0.35335e-07_rb /)\n      kbo(:, 4,54, 4) = (/ &\n        & 0.10122e-09_rb,0.95190e-07_rb,0.12936e-06_rb,0.13763e-06_rb,0.38764e-07_rb /)\n      kbo(:, 5,54, 4) = (/ &\n        & 0.97545e-10_rb,0.10324e-06_rb,0.13969e-06_rb,0.14768e-06_rb,0.42312e-07_rb /)\n      kbo(:, 1,55, 4) = (/ &\n        & 0.95832e-10_rb,0.53610e-07_rb,0.75981e-07_rb,0.79667e-07_rb,0.23117e-07_rb /)\n      kbo(:, 2,55, 4) = (/ &\n        & 0.91281e-10_rb,0.61130e-07_rb,0.85329e-07_rb,0.91005e-07_rb,0.25657e-07_rb /)\n      kbo(:, 3,55, 4) = (/ &\n        & 0.87335e-10_rb,0.68825e-07_rb,0.94736e-07_rb,0.10075e-06_rb,0.28264e-07_rb /)\n      kbo(:, 4,55, 4) = (/ &\n        & 0.83897e-10_rb,0.76435e-07_rb,0.10396e-06_rb,0.11070e-06_rb,0.31057e-07_rb /)\n      kbo(:, 5,55, 4) = (/ &\n        & 0.80810e-10_rb,0.83278e-07_rb,0.11269e-06_rb,0.11928e-06_rb,0.33972e-07_rb /)\n      kbo(:, 1,56, 4) = (/ &\n        & 0.79810e-10_rb,0.42322e-07_rb,0.60374e-07_rb,0.62926e-07_rb,0.18404e-07_rb /)\n      kbo(:, 2,56, 4) = (/ &\n        & 0.75864e-10_rb,0.48559e-07_rb,0.68039e-07_rb,0.72241e-07_rb,0.20548e-07_rb /)\n      kbo(:, 3,56, 4) = (/ &\n        & 0.72485e-10_rb,0.54773e-07_rb,0.75799e-07_rb,0.80757e-07_rb,0.22581e-07_rb /)\n      kbo(:, 4,56, 4) = (/ &\n        & 0.69560e-10_rb,0.61224e-07_rb,0.83554e-07_rb,0.88967e-07_rb,0.24859e-07_rb /)\n      kbo(:, 5,56, 4) = (/ &\n        & 0.66951e-10_rb,0.67084e-07_rb,0.90797e-07_rb,0.96246e-07_rb,0.27245e-07_rb /)\n      kbo(:, 1,57, 4) = (/ &\n        & 0.66524e-10_rb,0.33320e-07_rb,0.47516e-07_rb,0.49541e-07_rb,0.14620e-07_rb /)\n      kbo(:, 2,57, 4) = (/ &\n        & 0.63081e-10_rb,0.38443e-07_rb,0.54027e-07_rb,0.57142e-07_rb,0.16370e-07_rb /)\n      kbo(:, 3,57, 4) = (/ &\n        & 0.60187e-10_rb,0.43587e-07_rb,0.60611e-07_rb,0.64608e-07_rb,0.18036e-07_rb /)\n      kbo(:, 4,57, 4) = (/ &\n        & 0.57689e-10_rb,0.48970e-07_rb,0.66915e-07_rb,0.71233e-07_rb,0.19895e-07_rb /)\n      kbo(:, 5,57, 4) = (/ &\n        & 0.55478e-10_rb,0.53925e-07_rb,0.73045e-07_rb,0.77618e-07_rb,0.21831e-07_rb /)\n      kbo(:, 1,58, 4) = (/ &\n        & 0.55447e-10_rb,0.26240e-07_rb,0.37435e-07_rb,0.38989e-07_rb,0.11606e-07_rb /)\n      kbo(:, 2,58, 4) = (/ &\n        & 0.52442e-10_rb,0.30460e-07_rb,0.42955e-07_rb,0.45233e-07_rb,0.13047e-07_rb /)\n      kbo(:, 3,58, 4) = (/ &\n        & 0.49962e-10_rb,0.34761e-07_rb,0.48418e-07_rb,0.51680e-07_rb,0.14431e-07_rb /)\n      kbo(:, 4,58, 4) = (/ &\n        & 0.47826e-10_rb,0.39152e-07_rb,0.53626e-07_rb,0.57047e-07_rb,0.15934e-07_rb /)\n      kbo(:, 5,58, 4) = (/ &\n        & 0.45954e-10_rb,0.43380e-07_rb,0.58786e-07_rb,0.62538e-07_rb,0.17511e-07_rb /)\n      kbo(:, 1,59, 4) = (/ &\n        & 0.45740e-10_rb,0.21248e-07_rb,0.30261e-07_rb,0.31577e-07_rb,0.94221e-08_rb /)\n      kbo(:, 2,59, 4) = (/ &\n        & 0.43210e-10_rb,0.24730e-07_rb,0.34948e-07_rb,0.36722e-07_rb,0.10608e-07_rb /)\n      kbo(:, 3,59, 4) = (/ &\n        & 0.41141e-10_rb,0.28288e-07_rb,0.39410e-07_rb,0.42052e-07_rb,0.11754e-07_rb /)\n      kbo(:, 4,59, 4) = (/ &\n        & 0.39361e-10_rb,0.31904e-07_rb,0.43740e-07_rb,0.46527e-07_rb,0.12986e-07_rb /)\n      kbo(:, 5,59, 4) = (/ &\n        & 0.37805e-10_rb,0.35442e-07_rb,0.48020e-07_rb,0.51083e-07_rb,0.14278e-07_rb /)\n      kbo(:, 1,13, 5) = (/ &\n        & 0.79045e-05_rb,0.58512e-03_rb,0.80967e-03_rb,0.88578e-03_rb,0.34824e-03_rb /)\n      kbo(:, 2,13, 5) = (/ &\n        & 0.92807e-05_rb,0.61818e-03_rb,0.86083e-03_rb,0.92437e-03_rb,0.37870e-03_rb /)\n      kbo(:, 3,13, 5) = (/ &\n        & 0.10620e-04_rb,0.65025e-03_rb,0.90617e-03_rb,0.96290e-03_rb,0.40639e-03_rb /)\n      kbo(:, 4,13, 5) = (/ &\n        & 0.11847e-04_rb,0.68086e-03_rb,0.94767e-03_rb,0.99815e-03_rb,0.43149e-03_rb /)\n      kbo(:, 5,13, 5) = (/ &\n        & 0.12897e-04_rb,0.70941e-03_rb,0.98426e-03_rb,0.10296e-02_rb,0.45459e-03_rb /)\n      kbo(:, 1,14, 5) = (/ &\n        & 0.65683e-05_rb,0.48798e-03_rb,0.67570e-03_rb,0.73755e-03_rb,0.29172e-03_rb /)\n      kbo(:, 2,14, 5) = (/ &\n        & 0.76957e-05_rb,0.51555e-03_rb,0.71856e-03_rb,0.76978e-03_rb,0.31709e-03_rb /)\n      kbo(:, 3,14, 5) = (/ &\n        & 0.87852e-05_rb,0.54243e-03_rb,0.75604e-03_rb,0.80142e-03_rb,0.34064e-03_rb /)\n      kbo(:, 4,14, 5) = (/ &\n        & 0.97622e-05_rb,0.56817e-03_rb,0.79038e-03_rb,0.83091e-03_rb,0.36095e-03_rb /)\n      kbo(:, 5,14, 5) = (/ &\n        & 0.10614e-04_rb,0.59208e-03_rb,0.82018e-03_rb,0.85691e-03_rb,0.38095e-03_rb /)\n      kbo(:, 1,15, 5) = (/ &\n        & 0.54643e-05_rb,0.40660e-03_rb,0.56371e-03_rb,0.61286e-03_rb,0.24435e-03_rb /)\n      kbo(:, 2,15, 5) = (/ &\n        & 0.63883e-05_rb,0.42973e-03_rb,0.59914e-03_rb,0.64093e-03_rb,0.26475e-03_rb /)\n      kbo(:, 3,15, 5) = (/ &\n        & 0.72593e-05_rb,0.45218e-03_rb,0.63004e-03_rb,0.66659e-03_rb,0.28486e-03_rb /)\n      kbo(:, 4,15, 5) = (/ &\n        & 0.80526e-05_rb,0.47373e-03_rb,0.65847e-03_rb,0.69128e-03_rb,0.30200e-03_rb /)\n      kbo(:, 5,15, 5) = (/ &\n        & 0.87364e-05_rb,0.49393e-03_rb,0.68318e-03_rb,0.71321e-03_rb,0.31930e-03_rb /)\n      kbo(:, 1,16, 5) = (/ &\n        & 0.45482e-05_rb,0.33872e-03_rb,0.47003e-03_rb,0.50920e-03_rb,0.20473e-03_rb /)\n      kbo(:, 2,16, 5) = (/ &\n        & 0.52893e-05_rb,0.35785e-03_rb,0.49898e-03_rb,0.53306e-03_rb,0.22171e-03_rb /)\n      kbo(:, 3,16, 5) = (/ &\n        & 0.59989e-05_rb,0.37673e-03_rb,0.52467e-03_rb,0.55461e-03_rb,0.23803e-03_rb /)\n      kbo(:, 4,16, 5) = (/ &\n        & 0.66426e-05_rb,0.39470e-03_rb,0.54827e-03_rb,0.57515e-03_rb,0.25244e-03_rb /)\n      kbo(:, 5,16, 5) = (/ &\n        & 0.71759e-05_rb,0.41193e-03_rb,0.56909e-03_rb,0.59361e-03_rb,0.26773e-03_rb /)\n      kbo(:, 1,17, 5) = (/ &\n        & 0.37690e-05_rb,0.28177e-03_rb,0.39153e-03_rb,0.42265e-03_rb,0.17155e-03_rb /)\n      kbo(:, 2,17, 5) = (/ &\n        & 0.43790e-05_rb,0.29778e-03_rb,0.41535e-03_rb,0.44288e-03_rb,0.18563e-03_rb /)\n      kbo(:, 3,17, 5) = (/ &\n        & 0.49545e-05_rb,0.31371e-03_rb,0.43664e-03_rb,0.46090e-03_rb,0.19908e-03_rb /)\n      kbo(:, 4,17, 5) = (/ &\n        & 0.54563e-05_rb,0.32886e-03_rb,0.45637e-03_rb,0.47854e-03_rb,0.21097e-03_rb /)\n      kbo(:, 5,17, 5) = (/ &\n        & 0.58879e-05_rb,0.34359e-03_rb,0.47416e-03_rb,0.49387e-03_rb,0.22440e-03_rb /)\n      kbo(:, 1,18, 5) = (/ &\n        & 0.31260e-05_rb,0.23432e-03_rb,0.32596e-03_rb,0.35082e-03_rb,0.14348e-03_rb /)\n      kbo(:, 2,18, 5) = (/ &\n        & 0.36185e-05_rb,0.24786e-03_rb,0.34561e-03_rb,0.36765e-03_rb,0.15546e-03_rb /)\n      kbo(:, 3,18, 5) = (/ &\n        & 0.40732e-05_rb,0.26120e-03_rb,0.36343e-03_rb,0.38325e-03_rb,0.16623e-03_rb /)\n      kbo(:, 4,18, 5) = (/ &\n        & 0.44839e-05_rb,0.27403e-03_rb,0.37997e-03_rb,0.39811e-03_rb,0.17659e-03_rb /)\n      kbo(:, 5,18, 5) = (/ &\n        & 0.48304e-05_rb,0.28674e-03_rb,0.39513e-03_rb,0.41114e-03_rb,0.18813e-03_rb /)\n      kbo(:, 1,19, 5) = (/ &\n        & 0.25853e-05_rb,0.19483e-03_rb,0.27128e-03_rb,0.29126e-03_rb,0.11969e-03_rb /)\n      kbo(:, 2,19, 5) = (/ &\n        & 0.29834e-05_rb,0.20623e-03_rb,0.28749e-03_rb,0.30541e-03_rb,0.12978e-03_rb /)\n      kbo(:, 3,19, 5) = (/ &\n        & 0.33546e-05_rb,0.21750e-03_rb,0.30267e-03_rb,0.31871e-03_rb,0.13874e-03_rb /)\n      kbo(:, 4,19, 5) = (/ &\n        & 0.36863e-05_rb,0.22842e-03_rb,0.31656e-03_rb,0.33115e-03_rb,0.14789e-03_rb /)\n      kbo(:, 5,19, 5) = (/ &\n        & 0.39634e-05_rb,0.23942e-03_rb,0.32944e-03_rb,0.34220e-03_rb,0.15742e-03_rb /)\n      kbo(:, 1,20, 5) = (/ &\n        & 0.21486e-05_rb,0.16221e-03_rb,0.22609e-03_rb,0.24236e-03_rb,0.10014e-03_rb /)\n      kbo(:, 2,20, 5) = (/ &\n        & 0.24735e-05_rb,0.17178e-03_rb,0.23949e-03_rb,0.25399e-03_rb,0.10857e-03_rb /)\n      kbo(:, 3,20, 5) = (/ &\n        & 0.27744e-05_rb,0.18136e-03_rb,0.25226e-03_rb,0.26535e-03_rb,0.11604e-03_rb /)\n      kbo(:, 4,20, 5) = (/ &\n        & 0.30414e-05_rb,0.19076e-03_rb,0.26397e-03_rb,0.27566e-03_rb,0.12398e-03_rb /)\n      kbo(:, 5,20, 5) = (/ &\n        & 0.32610e-05_rb,0.20019e-03_rb,0.27488e-03_rb,0.28510e-03_rb,0.13199e-03_rb /)\n      kbo(:, 1,21, 5) = (/ &\n        & 0.17877e-05_rb,0.13507e-03_rb,0.18845e-03_rb,0.20163e-03_rb,0.83879e-04_rb /)\n      kbo(:, 2,21, 5) = (/ &\n        & 0.20518e-05_rb,0.14319e-03_rb,0.19968e-03_rb,0.21134e-03_rb,0.90858e-04_rb /)\n      kbo(:, 3,21, 5) = (/ &\n        & 0.22953e-05_rb,0.15137e-03_rb,0.21038e-03_rb,0.22094e-03_rb,0.97098e-04_rb /)\n      kbo(:, 4,21, 5) = (/ &\n        & 0.25098e-05_rb,0.15947e-03_rb,0.22019e-03_rb,0.22948e-03_rb,0.10402e-03_rb /)\n      kbo(:, 5,21, 5) = (/ &\n        & 0.26830e-05_rb,0.16749e-03_rb,0.22950e-03_rb,0.23761e-03_rb,0.11069e-03_rb /)\n      kbo(:, 1,22, 5) = (/ &\n        & 0.15022e-05_rb,0.11297e-03_rb,0.15773e-03_rb,0.16819e-03_rb,0.70808e-04_rb /)\n      kbo(:, 2,22, 5) = (/ &\n        & 0.17157e-05_rb,0.11998e-03_rb,0.16714e-03_rb,0.17644e-03_rb,0.76345e-04_rb /)\n      kbo(:, 3,22, 5) = (/ &\n        & 0.19111e-05_rb,0.12690e-03_rb,0.17611e-03_rb,0.18454e-03_rb,0.81804e-04_rb /)\n      kbo(:, 4,22, 5) = (/ &\n        & 0.20812e-05_rb,0.13385e-03_rb,0.18425e-03_rb,0.19164e-03_rb,0.87591e-04_rb /)\n      kbo(:, 5,22, 5) = (/ &\n        & 0.22144e-05_rb,0.14066e-03_rb,0.19235e-03_rb,0.19867e-03_rb,0.93228e-04_rb /)\n      kbo(:, 1,23, 5) = (/ &\n        & 0.12621e-05_rb,0.94681e-04_rb,0.13210e-03_rb,0.14032e-03_rb,0.59630e-04_rb /)\n      kbo(:, 2,23, 5) = (/ &\n        & 0.14346e-05_rb,0.10061e-03_rb,0.14009e-03_rb,0.14751e-03_rb,0.64142e-04_rb /)\n      kbo(:, 3,23, 5) = (/ &\n        & 0.15908e-05_rb,0.10655e-03_rb,0.14749e-03_rb,0.15413e-03_rb,0.68988e-04_rb /)\n      kbo(:, 4,23, 5) = (/ &\n        & 0.17253e-05_rb,0.11246e-03_rb,0.15437e-03_rb,0.16013e-03_rb,0.73893e-04_rb /)\n      kbo(:, 5,23, 5) = (/ &\n        & 0.18272e-05_rb,0.11825e-03_rb,0.16130e-03_rb,0.16627e-03_rb,0.78649e-04_rb /)\n      kbo(:, 1,24, 5) = (/ &\n        & 0.10611e-05_rb,0.79419e-04_rb,0.11079e-03_rb,0.11736e-03_rb,0.50244e-04_rb /)\n      kbo(:, 2,24, 5) = (/ &\n        & 0.11996e-05_rb,0.84486e-04_rb,0.11749e-03_rb,0.12345e-03_rb,0.54054e-04_rb /)\n      kbo(:, 3,24, 5) = (/ &\n        & 0.13241e-05_rb,0.89565e-04_rb,0.12364e-03_rb,0.12883e-03_rb,0.58259e-04_rb /)\n      kbo(:, 4,24, 5) = (/ &\n        & 0.14300e-05_rb,0.94592e-04_rb,0.12949e-03_rb,0.13406e-03_rb,0.62300e-04_rb /)\n      kbo(:, 5,24, 5) = (/ &\n        & 0.15070e-05_rb,0.99545e-04_rb,0.13538e-03_rb,0.13928e-03_rb,0.66485e-04_rb /)\n      kbo(:, 1,25, 5) = (/ &\n        & 0.89248e-06_rb,0.66757e-04_rb,0.93043e-04_rb,0.98269e-04_rb,0.42396e-04_rb /)\n      kbo(:, 2,25, 5) = (/ &\n        & 0.10034e-05_rb,0.71082e-04_rb,0.98652e-04_rb,0.10332e-03_rb,0.45719e-04_rb /)\n      kbo(:, 3,25, 5) = (/ &\n        & 0.11024e-05_rb,0.75404e-04_rb,0.10375e-03_rb,0.10782e-03_rb,0.49228e-04_rb /)\n      kbo(:, 4,25, 5) = (/ &\n        & 0.11835e-05_rb,0.79694e-04_rb,0.10882e-03_rb,0.11234e-03_rb,0.52649e-04_rb /)\n      kbo(:, 5,25, 5) = (/ &\n        & 0.12406e-05_rb,0.83915e-04_rb,0.11376e-03_rb,0.11677e-03_rb,0.56264e-04_rb /)\n      kbo(:, 1,26, 5) = (/ &\n        & 0.75147e-06_rb,0.56248e-04_rb,0.78291e-04_rb,0.82441e-04_rb,0.35781e-04_rb /)\n      kbo(:, 2,26, 5) = (/ &\n        & 0.84025e-06_rb,0.59929e-04_rb,0.82917e-04_rb,0.86562e-04_rb,0.38715e-04_rb /)\n      kbo(:, 3,26, 5) = (/ &\n        & 0.91728e-06_rb,0.63618e-04_rb,0.87231e-04_rb,0.90442e-04_rb,0.41682e-04_rb /)\n      kbo(:, 4,26, 5) = (/ &\n        & 0.97947e-06_rb,0.67285e-04_rb,0.91606e-04_rb,0.94311e-04_rb,0.44610e-04_rb /)\n      kbo(:, 5,26, 5) = (/ &\n        & 0.10222e-05_rb,0.70879e-04_rb,0.95759e-04_rb,0.97954e-04_rb,0.47678e-04_rb /)\n      kbo(:, 1,27, 5) = (/ &\n        & 0.63228e-06_rb,0.47448e-04_rb,0.65926e-04_rb,0.69211e-04_rb,0.30312e-04_rb /)\n      kbo(:, 2,27, 5) = (/ &\n        & 0.70187e-06_rb,0.50583e-04_rb,0.69752e-04_rb,0.72622e-04_rb,0.32844e-04_rb /)\n      kbo(:, 3,27, 5) = (/ &\n        & 0.76263e-06_rb,0.53723e-04_rb,0.73431e-04_rb,0.75943e-04_rb,0.35283e-04_rb /)\n      kbo(:, 4,27, 5) = (/ &\n        & 0.80975e-06_rb,0.56884e-04_rb,0.77139e-04_rb,0.79235e-04_rb,0.37837e-04_rb /)\n      kbo(:, 5,27, 5) = (/ &\n        & 0.84099e-06_rb,0.59937e-04_rb,0.80670e-04_rb,0.82198e-04_rb,0.40398e-04_rb /)\n      kbo(:, 1,28, 5) = (/ &\n        & 0.53062e-06_rb,0.40054e-04_rb,0.55536e-04_rb,0.58105e-04_rb,0.25683e-04_rb /)\n      kbo(:, 2,28, 5) = (/ &\n        & 0.58581e-06_rb,0.42748e-04_rb,0.58719e-04_rb,0.60988e-04_rb,0.27829e-04_rb /)\n      kbo(:, 3,28, 5) = (/ &\n        & 0.63283e-06_rb,0.45445e-04_rb,0.61927e-04_rb,0.63808e-04_rb,0.29914e-04_rb /)\n      kbo(:, 4,28, 5) = (/ &\n        & 0.66841e-06_rb,0.48141e-04_rb,0.65033e-04_rb,0.66567e-04_rb,0.32101e-04_rb /)\n      kbo(:, 5,28, 5) = (/ &\n        & 0.69132e-06_rb,0.50744e-04_rb,0.68002e-04_rb,0.69024e-04_rb,0.34196e-04_rb /)\n      kbo(:, 1,29, 5) = (/ &\n        & 0.44482e-06_rb,0.33876e-04_rb,0.46813e-04_rb,0.48820e-04_rb,0.21822e-04_rb /)\n      kbo(:, 2,29, 5) = (/ &\n        & 0.48830e-06_rb,0.36173e-04_rb,0.49534e-04_rb,0.51267e-04_rb,0.23598e-04_rb /)\n      kbo(:, 3,29, 5) = (/ &\n        & 0.52520e-06_rb,0.38507e-04_rb,0.52264e-04_rb,0.53700e-04_rb,0.25407e-04_rb /)\n      kbo(:, 4,29, 5) = (/ &\n        & 0.55142e-06_rb,0.40790e-04_rb,0.54879e-04_rb,0.55934e-04_rb,0.27233e-04_rb /)\n      kbo(:, 5,29, 5) = (/ &\n        & 0.56821e-06_rb,0.43005e-04_rb,0.57374e-04_rb,0.57995e-04_rb,0.28939e-04_rb /)\n      kbo(:, 1,30, 5) = (/ &\n        & 0.37240e-06_rb,0.28688e-04_rb,0.39498e-04_rb,0.41082e-04_rb,0.18542e-04_rb /)\n      kbo(:, 2,30, 5) = (/ &\n        & 0.40697e-06_rb,0.30662e-04_rb,0.41832e-04_rb,0.43139e-04_rb,0.20037e-04_rb /)\n      kbo(:, 3,30, 5) = (/ &\n        & 0.43518e-06_rb,0.32657e-04_rb,0.44137e-04_rb,0.45198e-04_rb,0.21592e-04_rb /)\n      kbo(:, 4,30, 5) = (/ &\n        & 0.45459e-06_rb,0.34600e-04_rb,0.46342e-04_rb,0.47030e-04_rb,0.23099e-04_rb /)\n      kbo(:, 5,30, 5) = (/ &\n        & 0.46674e-06_rb,0.36468e-04_rb,0.48427e-04_rb,0.48752e-04_rb,0.24524e-04_rb /)\n      kbo(:, 1,31, 5) = (/ &\n        & 0.31167e-06_rb,0.24328e-04_rb,0.33365e-04_rb,0.34577e-04_rb,0.15775e-04_rb /)\n      kbo(:, 2,31, 5) = (/ &\n        & 0.33880e-06_rb,0.26033e-04_rb,0.35376e-04_rb,0.36343e-04_rb,0.17037e-04_rb /)\n      kbo(:, 3,31, 5) = (/ &\n        & 0.36022e-06_rb,0.27728e-04_rb,0.37306e-04_rb,0.38025e-04_rb,0.18334e-04_rb /)\n      kbo(:, 4,31, 5) = (/ &\n        & 0.37443e-06_rb,0.29381e-04_rb,0.39153e-04_rb,0.39551e-04_rb,0.19559e-04_rb /)\n      kbo(:, 5,31, 5) = (/ &\n        & 0.38304e-06_rb,0.30940e-04_rb,0.40888e-04_rb,0.41012e-04_rb,0.20735e-04_rb /)\n      kbo(:, 1,32, 5) = (/ &\n        & 0.26065e-06_rb,0.20666e-04_rb,0.28226e-04_rb,0.29128e-04_rb,0.13403e-04_rb /)\n      kbo(:, 2,32, 5) = (/ &\n        & 0.28179e-06_rb,0.22130e-04_rb,0.29934e-04_rb,0.30642e-04_rb,0.14495e-04_rb /)\n      kbo(:, 3,32, 5) = (/ &\n        & 0.29791e-06_rb,0.23572e-04_rb,0.31554e-04_rb,0.32005e-04_rb,0.15576e-04_rb /)\n      kbo(:, 4,32, 5) = (/ &\n        & 0.30813e-06_rb,0.24963e-04_rb,0.33101e-04_rb,0.33278e-04_rb,0.16582e-04_rb /)\n      kbo(:, 5,32, 5) = (/ &\n        & 0.31412e-06_rb,0.26261e-04_rb,0.34510e-04_rb,0.34497e-04_rb,0.17533e-04_rb /)\n      kbo(:, 1,33, 5) = (/ &\n        & 0.21768e-06_rb,0.17581e-04_rb,0.23903e-04_rb,0.24558e-04_rb,0.11405e-04_rb /)\n      kbo(:, 2,33, 5) = (/ &\n        & 0.23409e-06_rb,0.18827e-04_rb,0.25333e-04_rb,0.25812e-04_rb,0.12331e-04_rb /)\n      kbo(:, 3,33, 5) = (/ &\n        & 0.24596e-06_rb,0.20053e-04_rb,0.26696e-04_rb,0.26942e-04_rb,0.13200e-04_rb /)\n      kbo(:, 4,33, 5) = (/ &\n        & 0.25338e-06_rb,0.21211e-04_rb,0.27978e-04_rb,0.28012e-04_rb,0.14037e-04_rb /)\n      kbo(:, 5,33, 5) = (/ &\n        & 0.25735e-06_rb,0.22292e-04_rb,0.29113e-04_rb,0.29019e-04_rb,0.14789e-04_rb /)\n      kbo(:, 1,34, 5) = (/ &\n        & 0.18111e-06_rb,0.14933e-04_rb,0.20221e-04_rb,0.20691e-04_rb,0.96853e-05_rb /)\n      kbo(:, 2,34, 5) = (/ &\n        & 0.19373e-06_rb,0.15993e-04_rb,0.21413e-04_rb,0.21708e-04_rb,0.10459e-04_rb /)\n      kbo(:, 3,34, 5) = (/ &\n        & 0.20262e-06_rb,0.17025e-04_rb,0.22551e-04_rb,0.22651e-04_rb,0.11170e-04_rb /)\n      kbo(:, 4,34, 5) = (/ &\n        & 0.20802e-06_rb,0.17992e-04_rb,0.23603e-04_rb,0.23540e-04_rb,0.11847e-04_rb /)\n      kbo(:, 5,34, 5) = (/ &\n        & 0.21068e-06_rb,0.18892e-04_rb,0.24522e-04_rb,0.24370e-04_rb,0.12444e-04_rb /)\n      kbo(:, 1,35, 5) = (/ &\n        & 0.14940e-06_rb,0.12604e-04_rb,0.17001e-04_rb,0.17339e-04_rb,0.81630e-05_rb /)\n      kbo(:, 2,35, 5) = (/ &\n        & 0.15934e-06_rb,0.13505e-04_rb,0.18008e-04_rb,0.18183e-04_rb,0.87890e-05_rb /)\n      kbo(:, 3,35, 5) = (/ &\n        & 0.16626e-06_rb,0.14374e-04_rb,0.18963e-04_rb,0.18976e-04_rb,0.93838e-05_rb /)\n      kbo(:, 4,35, 5) = (/ &\n        & 0.17040e-06_rb,0.15187e-04_rb,0.19824e-04_rb,0.19720e-04_rb,0.99229e-05_rb /)\n      kbo(:, 5,35, 5) = (/ &\n        & 0.17229e-06_rb,0.15939e-04_rb,0.20582e-04_rb,0.20394e-04_rb,0.10412e-04_rb /)\n      kbo(:, 1,36, 5) = (/ &\n        & 0.12224e-06_rb,0.10560e-04_rb,0.14203e-04_rb,0.14447e-04_rb,0.68196e-05_rb /)\n      kbo(:, 2,36, 5) = (/ &\n        & 0.13030e-06_rb,0.11326e-04_rb,0.15055e-04_rb,0.15156e-04_rb,0.73321e-05_rb /)\n      kbo(:, 3,36, 5) = (/ &\n        & 0.13590e-06_rb,0.12062e-04_rb,0.15856e-04_rb,0.15823e-04_rb,0.78230e-05_rb /)\n      kbo(:, 4,36, 5) = (/ &\n        & 0.13929e-06_rb,0.12750e-04_rb,0.16573e-04_rb,0.16449e-04_rb,0.82632e-05_rb /)\n      kbo(:, 5,36, 5) = (/ &\n        & 0.14081e-06_rb,0.13384e-04_rb,0.17208e-04_rb,0.17006e-04_rb,0.86656e-05_rb /)\n      kbo(:, 1,37, 5) = (/ &\n        & 0.98979e-07_rb,0.87500e-05_rb,0.11755e-04_rb,0.11943e-04_rb,0.56269e-05_rb /)\n      kbo(:, 2,37, 5) = (/ &\n        & 0.10583e-06_rb,0.94035e-05_rb,0.12480e-04_rb,0.12544e-04_rb,0.60528e-05_rb /)\n      kbo(:, 3,37, 5) = (/ &\n        & 0.11068e-06_rb,0.10031e-04_rb,0.13161e-04_rb,0.13110e-04_rb,0.64604e-05_rb /)\n      kbo(:, 4,37, 5) = (/ &\n        & 0.11365e-06_rb,0.10619e-04_rb,0.13767e-04_rb,0.13642e-04_rb,0.68253e-05_rb /)\n      kbo(:, 5,37, 5) = (/ &\n        & 0.11510e-06_rb,0.11162e-04_rb,0.14306e-04_rb,0.14108e-04_rb,0.71615e-05_rb /)\n      kbo(:, 1,38, 5) = (/ &\n        & 0.80050e-07_rb,0.72436e-05_rb,0.97225e-05_rb,0.98657e-05_rb,0.46375e-05_rb /)\n      kbo(:, 2,38, 5) = (/ &\n        & 0.85886e-07_rb,0.78006e-05_rb,0.10338e-04_rb,0.10378e-04_rb,0.49919e-05_rb /)\n      kbo(:, 3,38, 5) = (/ &\n        & 0.90108e-07_rb,0.83355e-05_rb,0.10916e-04_rb,0.10856e-04_rb,0.53303e-05_rb /)\n      kbo(:, 4,38, 5) = (/ &\n        & 0.92690e-07_rb,0.88380e-05_rb,0.11429e-04_rb,0.11306e-04_rb,0.56349e-05_rb /)\n      kbo(:, 5,38, 5) = (/ &\n        & 0.94046e-07_rb,0.93019e-05_rb,0.11885e-04_rb,0.11696e-04_rb,0.59152e-05_rb /)\n      kbo(:, 1,39, 5) = (/ &\n        & 0.64720e-07_rb,0.59955e-05_rb,0.80389e-05_rb,0.81488e-05_rb,0.38192e-05_rb /)\n      kbo(:, 2,39, 5) = (/ &\n        & 0.69663e-07_rb,0.64699e-05_rb,0.85613e-05_rb,0.85818e-05_rb,0.41159e-05_rb /)\n      kbo(:, 3,39, 5) = (/ &\n        & 0.73305e-07_rb,0.69246e-05_rb,0.90506e-05_rb,0.89861e-05_rb,0.43968e-05_rb /)\n      kbo(:, 4,39, 5) = (/ &\n        & 0.75588e-07_rb,0.73530e-05_rb,0.94857e-05_rb,0.93637e-05_rb,0.46505e-05_rb /)\n      kbo(:, 5,39, 5) = (/ &\n        & 0.76825e-07_rb,0.77492e-05_rb,0.98708e-05_rb,0.96898e-05_rb,0.48841e-05_rb /)\n      kbo(:, 1,40, 5) = (/ &\n        & 0.51871e-07_rb,0.49191e-05_rb,0.65994e-05_rb,0.66890e-05_rb,0.31186e-05_rb /)\n      kbo(:, 2,40, 5) = (/ &\n        & 0.56127e-07_rb,0.53227e-05_rb,0.70435e-05_rb,0.70578e-05_rb,0.33678e-05_rb /)\n      kbo(:, 3,40, 5) = (/ &\n        & 0.59395e-07_rb,0.57124e-05_rb,0.74609e-05_rb,0.74018e-05_rb,0.36025e-05_rb /)\n      kbo(:, 4,40, 5) = (/ &\n        & 0.61501e-07_rb,0.60790e-05_rb,0.78333e-05_rb,0.77210e-05_rb,0.38164e-05_rb /)\n      kbo(:, 5,40, 5) = (/ &\n        & 0.62710e-07_rb,0.64194e-05_rb,0.81613e-05_rb,0.79980e-05_rb,0.40122e-05_rb /)\n      kbo(:, 1,41, 5) = (/ &\n        & 0.41471e-07_rb,0.40276e-05_rb,0.54076e-05_rb,0.54815e-05_rb,0.25402e-05_rb /)\n      kbo(:, 2,41, 5) = (/ &\n        & 0.45127e-07_rb,0.43711e-05_rb,0.57847e-05_rb,0.57971e-05_rb,0.27507e-05_rb /)\n      kbo(:, 3,41, 5) = (/ &\n        & 0.48018e-07_rb,0.47040e-05_rb,0.61407e-05_rb,0.60883e-05_rb,0.29479e-05_rb /)\n      kbo(:, 4,41, 5) = (/ &\n        & 0.49983e-07_rb,0.50177e-05_rb,0.64595e-05_rb,0.63587e-05_rb,0.31286e-05_rb /)\n      kbo(:, 5,41, 5) = (/ &\n        & 0.51153e-07_rb,0.53098e-05_rb,0.67389e-05_rb,0.65950e-05_rb,0.32928e-05_rb /)\n      kbo(:, 1,42, 5) = (/ &\n        & 0.33108e-07_rb,0.32945e-05_rb,0.44261e-05_rb,0.44871e-05_rb,0.20674e-05_rb /)\n      kbo(:, 2,42, 5) = (/ &\n        & 0.36228e-07_rb,0.35861e-05_rb,0.47462e-05_rb,0.47571e-05_rb,0.22452e-05_rb /)\n      kbo(:, 3,42, 5) = (/ &\n        & 0.38776e-07_rb,0.38701e-05_rb,0.50505e-05_rb,0.50046e-05_rb,0.24106e-05_rb /)\n      kbo(:, 4,42, 5) = (/ &\n        & 0.40580e-07_rb,0.41378e-05_rb,0.53219e-05_rb,0.52323e-05_rb,0.25622e-05_rb /)\n      kbo(:, 5,42, 5) = (/ &\n        & 0.41689e-07_rb,0.43881e-05_rb,0.55607e-05_rb,0.54356e-05_rb,0.27015e-05_rb /)\n      kbo(:, 1,43, 5) = (/ &\n        & 0.26243e-07_rb,0.26780e-05_rb,0.36021e-05_rb,0.36578e-05_rb,0.16722e-05_rb /)\n      kbo(:, 2,43, 5) = (/ &\n        & 0.28903e-07_rb,0.29254e-05_rb,0.38754e-05_rb,0.38886e-05_rb,0.18235e-05_rb /)\n      kbo(:, 3,43, 5) = (/ &\n        & 0.31158e-07_rb,0.31674e-05_rb,0.41363e-05_rb,0.40998e-05_rb,0.19628e-05_rb /)\n      kbo(:, 4,43, 5) = (/ &\n        & 0.32828e-07_rb,0.33966e-05_rb,0.43687e-05_rb,0.42935e-05_rb,0.20906e-05_rb /)\n      kbo(:, 5,43, 5) = (/ &\n        & 0.33896e-07_rb,0.36112e-05_rb,0.45745e-05_rb,0.44680e-05_rb,0.22088e-05_rb /)\n      kbo(:, 1,44, 5) = (/ &\n        & 0.20692e-07_rb,0.21688e-05_rb,0.29226e-05_rb,0.29738e-05_rb,0.13486e-05_rb /)\n      kbo(:, 2,44, 5) = (/ &\n        & 0.22961e-07_rb,0.23776e-05_rb,0.31556e-05_rb,0.31699e-05_rb,0.14759e-05_rb /)\n      kbo(:, 3,44, 5) = (/ &\n        & 0.24934e-07_rb,0.25834e-05_rb,0.33779e-05_rb,0.33507e-05_rb,0.15926e-05_rb /)\n      kbo(:, 4,44, 5) = (/ &\n        & 0.26472e-07_rb,0.27800e-05_rb,0.35779e-05_rb,0.35162e-05_rb,0.17017e-05_rb /)\n      kbo(:, 5,44, 5) = (/ &\n        & 0.27504e-07_rb,0.29637e-05_rb,0.37558e-05_rb,0.36666e-05_rb,0.18017e-05_rb /)\n      kbo(:, 1,45, 5) = (/ &\n        & 0.16269e-07_rb,0.17537e-05_rb,0.23672e-05_rb,0.24133e-05_rb,0.10856e-05_rb /)\n      kbo(:, 2,45, 5) = (/ &\n        & 0.18194e-07_rb,0.19291e-05_rb,0.25663e-05_rb,0.25809e-05_rb,0.11927e-05_rb /)\n      kbo(:, 3,45, 5) = (/ &\n        & 0.19903e-07_rb,0.21039e-05_rb,0.27552e-05_rb,0.27360e-05_rb,0.12909e-05_rb /)\n      kbo(:, 4,45, 5) = (/ &\n        & 0.21293e-07_rb,0.22721e-05_rb,0.29270e-05_rb,0.28775e-05_rb,0.13839e-05_rb /)\n      kbo(:, 5,45, 5) = (/ &\n        & 0.22283e-07_rb,0.24292e-05_rb,0.30802e-05_rb,0.30067e-05_rb,0.14686e-05_rb /)\n      kbo(:, 1,46, 5) = (/ &\n        & 0.12712e-07_rb,0.14128e-05_rb,0.19113e-05_rb,0.19548e-05_rb,0.87114e-06_rb /)\n      kbo(:, 2,46, 5) = (/ &\n        & 0.14351e-07_rb,0.15596e-05_rb,0.20802e-05_rb,0.20949e-05_rb,0.96118e-06_rb /)\n      kbo(:, 3,46, 5) = (/ &\n        & 0.15815e-07_rb,0.17076e-05_rb,0.22404e-05_rb,0.22289e-05_rb,0.10436e-05_rb /)\n      kbo(:, 4,46, 5) = (/ &\n        & 0.17062e-07_rb,0.18511e-05_rb,0.23889e-05_rb,0.23492e-05_rb,0.11225e-05_rb /)\n      kbo(:, 5,46, 5) = (/ &\n        & 0.17993e-07_rb,0.19855e-05_rb,0.25206e-05_rb,0.24609e-05_rb,0.11948e-05_rb /)\n      kbo(:, 1,47, 5) = (/ &\n        & 0.98364e-08_rb,0.11306e-05_rb,0.15353e-05_rb,0.15746e-05_rb,0.69554e-06_rb /)\n      kbo(:, 2,47, 5) = (/ &\n        & 0.11226e-07_rb,0.12534e-05_rb,0.16765e-05_rb,0.16944e-05_rb,0.76925e-06_rb /)\n      kbo(:, 3,47, 5) = (/ &\n        & 0.12483e-07_rb,0.13784e-05_rb,0.18130e-05_rb,0.18087e-05_rb,0.84036e-06_rb /)\n      kbo(:, 4,47, 5) = (/ &\n        & 0.13587e-07_rb,0.15007e-05_rb,0.19418e-05_rb,0.19122e-05_rb,0.90712e-06_rb /)\n      kbo(:, 5,47, 5) = (/ &\n        & 0.14457e-07_rb,0.16158e-05_rb,0.20557e-05_rb,0.20073e-05_rb,0.96847e-06_rb /)\n      kbo(:, 1,48, 5) = (/ &\n        & 0.75824e-08_rb,0.90329e-06_rb,0.12307e-05_rb,0.12653e-05_rb,0.55346e-06_rb /)\n      kbo(:, 2,48, 5) = (/ &\n        & 0.87453e-08_rb,0.10050e-05_rb,0.13490e-05_rb,0.13676e-05_rb,0.61470e-06_rb /)\n      kbo(:, 3,48, 5) = (/ &\n        & 0.98194e-08_rb,0.11101e-05_rb,0.14650e-05_rb,0.14651e-05_rb,0.67492e-06_rb /)\n      kbo(:, 4,48, 5) = (/ &\n        & 0.10779e-07_rb,0.12141e-05_rb,0.15756e-05_rb,0.15544e-05_rb,0.73163e-06_rb /)\n      kbo(:, 5,48, 5) = (/ &\n        & 0.11579e-07_rb,0.13125e-05_rb,0.16743e-05_rb,0.16359e-05_rb,0.78405e-06_rb /)\n      kbo(:, 1,49, 5) = (/ &\n        & 0.58219e-08_rb,0.72015e-06_rb,0.98379e-06_rb,0.10143e-05_rb,0.43933e-06_rb /)\n      kbo(:, 2,49, 5) = (/ &\n        & 0.67817e-08_rb,0.80423e-06_rb,0.10832e-05_rb,0.11023e-05_rb,0.49018e-06_rb /)\n      kbo(:, 3,49, 5) = (/ &\n        & 0.76966e-08_rb,0.89205e-06_rb,0.11819e-05_rb,0.11846e-05_rb,0.54131e-06_rb /)\n      kbo(:, 4,49, 5) = (/ &\n        & 0.85224e-08_rb,0.98005e-06_rb,0.12760e-05_rb,0.12617e-05_rb,0.58858e-06_rb /)\n      kbo(:, 5,49, 5) = (/ &\n        & 0.92350e-08_rb,0.10644e-05_rb,0.13615e-05_rb,0.13319e-05_rb,0.63358e-06_rb /)\n      kbo(:, 1,50, 5) = (/ &\n        & 0.44790e-08_rb,0.57418e-06_rb,0.78635e-06_rb,0.81296e-06_rb,0.34881e-06_rb /)\n      kbo(:, 2,50, 5) = (/ &\n        & 0.52579e-08_rb,0.64388e-06_rb,0.87056e-06_rb,0.88896e-06_rb,0.39135e-06_rb /)\n      kbo(:, 3,50, 5) = (/ &\n        & 0.60279e-08_rb,0.71722e-06_rb,0.95348e-06_rb,0.95809e-06_rb,0.43444e-06_rb /)\n      kbo(:, 4,50, 5) = (/ &\n        & 0.67324e-08_rb,0.79134e-06_rb,0.10331e-05_rb,0.10243e-05_rb,0.47391e-06_rb /)\n      kbo(:, 5,50, 5) = (/ &\n        & 0.73551e-08_rb,0.86330e-06_rb,0.11073e-05_rb,0.10842e-05_rb,0.51234e-06_rb /)\n      kbo(:, 1,51, 5) = (/ &\n        & 0.34450e-08_rb,0.45753e-06_rb,0.62814e-06_rb,0.65158e-06_rb,0.27625e-06_rb /)\n      kbo(:, 2,51, 5) = (/ &\n        & 0.40690e-08_rb,0.51530e-06_rb,0.69892e-06_rb,0.71555e-06_rb,0.31260e-06_rb /)\n      kbo(:, 3,51, 5) = (/ &\n        & 0.47087e-08_rb,0.57624e-06_rb,0.76840e-06_rb,0.77477e-06_rb,0.34804e-06_rb /)\n      kbo(:, 4,51, 5) = (/ &\n        & 0.53086e-08_rb,0.63843e-06_rb,0.83580e-06_rb,0.83092e-06_rb,0.38181e-06_rb /)\n      kbo(:, 5,51, 5) = (/ &\n        & 0.58439e-08_rb,0.69956e-06_rb,0.89962e-06_rb,0.88225e-06_rb,0.41412e-06_rb /)\n      kbo(:, 1,52, 5) = (/ &\n        & 0.26454e-08_rb,0.36387e-06_rb,0.50007e-06_rb,0.52179e-06_rb,0.21894e-06_rb /)\n      kbo(:, 2,52, 5) = (/ &\n        & 0.31403e-08_rb,0.41173e-06_rb,0.55997e-06_rb,0.57479e-06_rb,0.24870e-06_rb /)\n      kbo(:, 3,52, 5) = (/ &\n        & 0.36655e-08_rb,0.46211e-06_rb,0.61819e-06_rb,0.62511e-06_rb,0.27840e-06_rb /)\n      kbo(:, 4,52, 5) = (/ &\n        & 0.41730e-08_rb,0.51415e-06_rb,0.67546e-06_rb,0.67307e-06_rb,0.30695e-06_rb /)\n      kbo(:, 5,52, 5) = (/ &\n        & 0.46311e-08_rb,0.56582e-06_rb,0.72973e-06_rb,0.71697e-06_rb,0.33407e-06_rb /)\n      kbo(:, 1,53, 5) = (/ &\n        & 0.20275e-08_rb,0.28873e-06_rb,0.39749e-06_rb,0.41647e-06_rb,0.17355e-06_rb /)\n      kbo(:, 2,53, 5) = (/ &\n        & 0.24190e-08_rb,0.32821e-06_rb,0.44730e-06_rb,0.46063e-06_rb,0.19774e-06_rb /)\n      kbo(:, 3,53, 5) = (/ &\n        & 0.28440e-08_rb,0.36981e-06_rb,0.49677e-06_rb,0.50411e-06_rb,0.22218e-06_rb /)\n      kbo(:, 4,53, 5) = (/ &\n        & 0.32690e-08_rb,0.41315e-06_rb,0.54488e-06_rb,0.54408e-06_rb,0.24647e-06_rb /)\n      kbo(:, 5,53, 5) = (/ &\n        & 0.36592e-08_rb,0.45680e-06_rb,0.59090e-06_rb,0.58189e-06_rb,0.26902e-06_rb /)\n      kbo(:, 1,54, 5) = (/ &\n        & 0.15611e-08_rb,0.22962e-06_rb,0.31613e-06_rb,0.33300e-06_rb,0.13730e-06_rb /)\n      kbo(:, 2,54, 5) = (/ &\n        & 0.18696e-08_rb,0.26187e-06_rb,0.35802e-06_rb,0.36954e-06_rb,0.15701e-06_rb /)\n      kbo(:, 3,54, 5) = (/ &\n        & 0.22100e-08_rb,0.29641e-06_rb,0.39970e-06_rb,0.40683e-06_rb,0.17764e-06_rb /)\n      kbo(:, 4,54, 5) = (/ &\n        & 0.25619e-08_rb,0.33255e-06_rb,0.44009e-06_rb,0.44063e-06_rb,0.19808e-06_rb /)\n      kbo(:, 5,54, 5) = (/ &\n        & 0.28928e-08_rb,0.36908e-06_rb,0.47892e-06_rb,0.47270e-06_rb,0.21696e-06_rb /)\n      kbo(:, 1,55, 5) = (/ &\n        & 0.12041e-08_rb,0.18259e-06_rb,0.25108e-06_rb,0.26608e-06_rb,0.10842e-06_rb /)\n      kbo(:, 2,55, 5) = (/ &\n        & 0.14466e-08_rb,0.20918e-06_rb,0.28633e-06_rb,0.29677e-06_rb,0.12468e-06_rb /)\n      kbo(:, 3,55, 5) = (/ &\n        & 0.17176e-08_rb,0.23765e-06_rb,0.32139e-06_rb,0.32799e-06_rb,0.14213e-06_rb /)\n      kbo(:, 4,55, 5) = (/ &\n        & 0.20058e-08_rb,0.26766e-06_rb,0.35523e-06_rb,0.35664e-06_rb,0.15907e-06_rb /)\n      kbo(:, 5,55, 5) = (/ &\n        & 0.22852e-08_rb,0.29818e-06_rb,0.38806e-06_rb,0.38381e-06_rb,0.17512e-06_rb /)\n      kbo(:, 1,56, 5) = (/ &\n        & 0.92934e-09_rb,0.14496e-06_rb,0.19887e-06_rb,0.21215e-06_rb,0.85185e-07_rb /)\n      kbo(:, 2,56, 5) = (/ &\n        & 0.11180e-08_rb,0.16668e-06_rb,0.22841e-06_rb,0.23799e-06_rb,0.99172e-07_rb /)\n      kbo(:, 3,56, 5) = (/ &\n        & 0.13333e-08_rb,0.19024e-06_rb,0.25790e-06_rb,0.26385e-06_rb,0.11331e-06_rb /)\n      kbo(:, 4,56, 5) = (/ &\n        & 0.15668e-08_rb,0.21512e-06_rb,0.28626e-06_rb,0.28820e-06_rb,0.12758e-06_rb /)\n      kbo(:, 5,56, 5) = (/ &\n        & 0.18000e-08_rb,0.24055e-06_rb,0.31405e-06_rb,0.31134e-06_rb,0.14106e-06_rb /)\n      kbo(:, 1,57, 5) = (/ &\n        & 0.71747e-09_rb,0.11491e-06_rb,0.15760e-06_rb,0.16907e-06_rb,0.66762e-07_rb /)\n      kbo(:, 2,57, 5) = (/ &\n        & 0.86318e-09_rb,0.13266e-06_rb,0.18198e-06_rb,0.19051e-06_rb,0.78844e-07_rb /)\n      kbo(:, 3,57, 5) = (/ &\n        & 0.10332e-08_rb,0.15199e-06_rb,0.20646e-06_rb,0.21185e-06_rb,0.90317e-07_rb /)\n      kbo(:, 4,57, 5) = (/ &\n        & 0.12205e-08_rb,0.17255e-06_rb,0.23049e-06_rb,0.23280e-06_rb,0.10211e-06_rb /)\n      kbo(:, 5,57, 5) = (/ &\n        & 0.14137e-08_rb,0.19374e-06_rb,0.25377e-06_rb,0.25209e-06_rb,0.11347e-06_rb /)\n      kbo(:, 1,58, 5) = (/ &\n        & 0.55534e-09_rb,0.91161e-07_rb,0.12495e-06_rb,0.13481e-06_rb,0.52524e-07_rb /)\n      kbo(:, 2,58, 5) = (/ &\n        & 0.66796e-09_rb,0.10564e-06_rb,0.14490e-06_rb,0.15246e-06_rb,0.62491e-07_rb /)\n      kbo(:, 3,58, 5) = (/ &\n        & 0.80208e-09_rb,0.12142e-06_rb,0.16540e-06_rb,0.17013e-06_rb,0.71923e-07_rb /)\n      kbo(:, 4,58, 5) = (/ &\n        & 0.95155e-09_rb,0.13846e-06_rb,0.18562e-06_rb,0.18803e-06_rb,0.81760e-07_rb /)\n      kbo(:, 5,58, 5) = (/ &\n        & 0.11100e-08_rb,0.15608e-06_rb,0.20513e-06_rb,0.20425e-06_rb,0.91405e-07_rb /)\n      kbo(:, 1,59, 5) = (/ &\n        & 0.44483e-09_rb,0.74201e-07_rb,0.10175e-06_rb,0.10986e-06_rb,0.42626e-07_rb /)\n      kbo(:, 2,59, 5) = (/ &\n        & 0.53478e-09_rb,0.86257e-07_rb,0.11818e-06_rb,0.12453e-06_rb,0.50816e-07_rb /)\n      kbo(:, 3,59, 5) = (/ &\n        & 0.64265e-09_rb,0.99390e-07_rb,0.13535e-06_rb,0.13928e-06_rb,0.58658e-07_rb /)\n      kbo(:, 4,59, 5) = (/ &\n        & 0.76369e-09_rb,0.11360e-06_rb,0.15224e-06_rb,0.15417e-06_rb,0.66845e-07_rb /)\n      kbo(:, 5,59, 5) = (/ &\n        & 0.89316e-09_rb,0.12826e-06_rb,0.16850e-06_rb,0.16775e-06_rb,0.74841e-07_rb /)\n      kbo(:, 1,13, 6) = (/ &\n        & 0.15452e-03_rb,0.17471e-02_rb,0.22870e-02_rb,0.22757e-02_rb,0.11868e-02_rb /)\n      kbo(:, 2,13, 6) = (/ &\n        & 0.17358e-03_rb,0.18337e-02_rb,0.23752e-02_rb,0.23549e-02_rb,0.12492e-02_rb /)\n      kbo(:, 3,13, 6) = (/ &\n        & 0.19043e-03_rb,0.19070e-02_rb,0.24479e-02_rb,0.24255e-02_rb,0.13114e-02_rb /)\n      kbo(:, 4,13, 6) = (/ &\n        & 0.20459e-03_rb,0.19702e-02_rb,0.25109e-02_rb,0.24905e-02_rb,0.13717e-02_rb /)\n      kbo(:, 5,13, 6) = (/ &\n        & 0.21621e-03_rb,0.20266e-02_rb,0.25653e-02_rb,0.25512e-02_rb,0.14320e-02_rb /)\n      kbo(:, 1,14, 6) = (/ &\n        & 0.12793e-03_rb,0.14662e-02_rb,0.19141e-02_rb,0.19032e-02_rb,0.99404e-03_rb /)\n      kbo(:, 2,14, 6) = (/ &\n        & 0.14335e-03_rb,0.15367e-02_rb,0.19852e-02_rb,0.19691e-02_rb,0.10462e-02_rb /)\n      kbo(:, 3,14, 6) = (/ &\n        & 0.15698e-03_rb,0.15974e-02_rb,0.20454e-02_rb,0.20285e-02_rb,0.10986e-02_rb /)\n      kbo(:, 4,14, 6) = (/ &\n        & 0.16837e-03_rb,0.16505e-02_rb,0.20982e-02_rb,0.20828e-02_rb,0.11509e-02_rb /)\n      kbo(:, 5,14, 6) = (/ &\n        & 0.17765e-03_rb,0.16990e-02_rb,0.21452e-02_rb,0.21357e-02_rb,0.12020e-02_rb /)\n      kbo(:, 1,15, 6) = (/ &\n        & 0.10600e-03_rb,0.12280e-02_rb,0.15987e-02_rb,0.15899e-02_rb,0.83160e-03_rb /)\n      kbo(:, 2,15, 6) = (/ &\n        & 0.11846e-03_rb,0.12858e-02_rb,0.16570e-02_rb,0.16438e-02_rb,0.87641e-03_rb /)\n      kbo(:, 3,15, 6) = (/ &\n        & 0.12947e-03_rb,0.13362e-02_rb,0.17073e-02_rb,0.16937e-02_rb,0.92037e-03_rb /)\n      kbo(:, 4,15, 6) = (/ &\n        & 0.13860e-03_rb,0.13818e-02_rb,0.17519e-02_rb,0.17401e-02_rb,0.96514e-03_rb /)\n      kbo(:, 5,15, 6) = (/ &\n        & 0.14605e-03_rb,0.14231e-02_rb,0.17922e-02_rb,0.17849e-02_rb,0.10088e-02_rb /)\n      kbo(:, 1,16, 6) = (/ &\n        & 0.87844e-04_rb,0.10268e-02_rb,0.13337e-02_rb,0.13258e-02_rb,0.69471e-03_rb /)\n      kbo(:, 2,16, 6) = (/ &\n        & 0.97921e-04_rb,0.10747e-02_rb,0.13816e-02_rb,0.13704e-02_rb,0.73309e-03_rb /)\n      kbo(:, 3,16, 6) = (/ &\n        & 0.10678e-03_rb,0.11173e-02_rb,0.14240e-02_rb,0.14122e-02_rb,0.77126e-03_rb /)\n      kbo(:, 4,16, 6) = (/ &\n        & 0.11410e-03_rb,0.11561e-02_rb,0.14619e-02_rb,0.14525e-02_rb,0.80983e-03_rb /)\n      kbo(:, 5,16, 6) = (/ &\n        & 0.12008e-03_rb,0.11913e-02_rb,0.14957e-02_rb,0.14904e-02_rb,0.84685e-03_rb /)\n      kbo(:, 1,17, 6) = (/ &\n        & 0.72736e-04_rb,0.85770e-03_rb,0.11110e-02_rb,0.11043e-02_rb,0.57988e-03_rb /)\n      kbo(:, 2,17, 6) = (/ &\n        & 0.80870e-04_rb,0.89737e-03_rb,0.11508e-02_rb,0.11412e-02_rb,0.61310e-03_rb /)\n      kbo(:, 3,17, 6) = (/ &\n        & 0.87984e-04_rb,0.93334e-03_rb,0.11865e-02_rb,0.11769e-02_rb,0.64563e-03_rb /)\n      kbo(:, 4,17, 6) = (/ &\n        & 0.93900e-04_rb,0.96637e-03_rb,0.12188e-02_rb,0.12115e-02_rb,0.67946e-03_rb /)\n      kbo(:, 5,17, 6) = (/ &\n        & 0.98669e-04_rb,0.99682e-03_rb,0.12477e-02_rb,0.12444e-02_rb,0.71129e-03_rb /)\n      kbo(:, 1,18, 6) = (/ &\n        & 0.60196e-04_rb,0.71585e-03_rb,0.92484e-03_rb,0.91885e-03_rb,0.48428e-03_rb /)\n      kbo(:, 2,18, 6) = (/ &\n        & 0.66759e-04_rb,0.74902e-03_rb,0.95806e-03_rb,0.95007e-03_rb,0.51254e-03_rb /)\n      kbo(:, 3,18, 6) = (/ &\n        & 0.72486e-04_rb,0.77936e-03_rb,0.98828e-03_rb,0.98036e-03_rb,0.54118e-03_rb /)\n      kbo(:, 4,18, 6) = (/ &\n        & 0.77210e-04_rb,0.80757e-03_rb,0.10157e-02_rb,0.10101e-02_rb,0.56995e-03_rb /)\n      kbo(:, 5,18, 6) = (/ &\n        & 0.81046e-04_rb,0.83344e-03_rb,0.10405e-02_rb,0.10390e-02_rb,0.59762e-03_rb /)\n      kbo(:, 1,19, 6) = (/ &\n        & 0.49797e-04_rb,0.59714e-03_rb,0.76951e-03_rb,0.76408e-03_rb,0.40487e-03_rb /)\n      kbo(:, 2,19, 6) = (/ &\n        & 0.55098e-04_rb,0.62505e-03_rb,0.79728e-03_rb,0.79071e-03_rb,0.42904e-03_rb /)\n      kbo(:, 3,19, 6) = (/ &\n        & 0.59690e-04_rb,0.65071e-03_rb,0.82294e-03_rb,0.81671e-03_rb,0.45375e-03_rb /)\n      kbo(:, 4,19, 6) = (/ &\n        & 0.63457e-04_rb,0.67490e-03_rb,0.84635e-03_rb,0.84245e-03_rb,0.47833e-03_rb /)\n      kbo(:, 5,19, 6) = (/ &\n        & 0.66538e-04_rb,0.69683e-03_rb,0.86805e-03_rb,0.86812e-03_rb,0.50238e-03_rb /)\n      kbo(:, 1,20, 6) = (/ &\n        & 0.41277e-04_rb,0.49854e-03_rb,0.64043e-03_rb,0.63582e-03_rb,0.33885e-03_rb /)\n      kbo(:, 2,20, 6) = (/ &\n        & 0.45557e-04_rb,0.52197e-03_rb,0.66408e-03_rb,0.65859e-03_rb,0.35960e-03_rb /)\n      kbo(:, 3,20, 6) = (/ &\n        & 0.49226e-04_rb,0.54380e-03_rb,0.68582e-03_rb,0.68111e-03_rb,0.38108e-03_rb /)\n      kbo(:, 4,20, 6) = (/ &\n        & 0.52238e-04_rb,0.56442e-03_rb,0.70598e-03_rb,0.70364e-03_rb,0.40199e-03_rb /)\n      kbo(:, 5,20, 6) = (/ &\n        & 0.54694e-04_rb,0.58320e-03_rb,0.72504e-03_rb,0.72645e-03_rb,0.42282e-03_rb /)\n      kbo(:, 1,21, 6) = (/ &\n        & 0.34218e-04_rb,0.41624e-03_rb,0.53312e-03_rb,0.52912e-03_rb,0.28376e-03_rb /)\n      kbo(:, 2,21, 6) = (/ &\n        & 0.37670e-04_rb,0.43597e-03_rb,0.55316e-03_rb,0.54893e-03_rb,0.30161e-03_rb /)\n      kbo(:, 3,21, 6) = (/ &\n        & 0.40602e-04_rb,0.45467e-03_rb,0.57178e-03_rb,0.56861e-03_rb,0.32023e-03_rb /)\n      kbo(:, 4,21, 6) = (/ &\n        & 0.43009e-04_rb,0.47220e-03_rb,0.58931e-03_rb,0.58850e-03_rb,0.33805e-03_rb /)\n      kbo(:, 5,21, 6) = (/ &\n        & 0.44968e-04_rb,0.48850e-03_rb,0.60624e-03_rb,0.60867e-03_rb,0.35633e-03_rb /)\n      kbo(:, 1,22, 6) = (/ &\n        & 0.28554e-04_rb,0.34872e-03_rb,0.44519e-03_rb,0.44203e-03_rb,0.23865e-03_rb /)\n      kbo(:, 2,22, 6) = (/ &\n        & 0.31312e-04_rb,0.36543e-03_rb,0.46215e-03_rb,0.45896e-03_rb,0.25429e-03_rb /)\n      kbo(:, 3,22, 6) = (/ &\n        & 0.33623e-04_rb,0.38136e-03_rb,0.47808e-03_rb,0.47625e-03_rb,0.27020e-03_rb /)\n      kbo(:, 4,22, 6) = (/ &\n        & 0.35518e-04_rb,0.39638e-03_rb,0.49352e-03_rb,0.49393e-03_rb,0.28567e-03_rb /)\n      kbo(:, 5,22, 6) = (/ &\n        & 0.37060e-04_rb,0.41046e-03_rb,0.50833e-03_rb,0.51152e-03_rb,0.30169e-03_rb /)\n      kbo(:, 1,23, 6) = (/ &\n        & 0.23825e-04_rb,0.29241e-03_rb,0.37202e-03_rb,0.36957e-03_rb,0.20120e-03_rb /)\n      kbo(:, 2,23, 6) = (/ &\n        & 0.26019e-04_rb,0.30664e-03_rb,0.38650e-03_rb,0.38433e-03_rb,0.21484e-03_rb /)\n      kbo(:, 3,23, 6) = (/ &\n        & 0.27840e-04_rb,0.32027e-03_rb,0.40038e-03_rb,0.39957e-03_rb,0.22829e-03_rb /)\n      kbo(:, 4,23, 6) = (/ &\n        & 0.29329e-04_rb,0.33317e-03_rb,0.41396e-03_rb,0.41498e-03_rb,0.24169e-03_rb /)\n      kbo(:, 5,23, 6) = (/ &\n        & 0.30542e-04_rb,0.34547e-03_rb,0.42681e-03_rb,0.43048e-03_rb,0.25568e-03_rb /)\n      kbo(:, 1,24, 6) = (/ &\n        & 0.19879e-04_rb,0.24552e-03_rb,0.31135e-03_rb,0.30936e-03_rb,0.16986e-03_rb /)\n      kbo(:, 2,24, 6) = (/ &\n        & 0.21617e-04_rb,0.25767e-03_rb,0.32376e-03_rb,0.32228e-03_rb,0.18173e-03_rb /)\n      kbo(:, 3,24, 6) = (/ &\n        & 0.23050e-04_rb,0.26937e-03_rb,0.33590e-03_rb,0.33579e-03_rb,0.19320e-03_rb /)\n      kbo(:, 4,24, 6) = (/ &\n        & 0.24217e-04_rb,0.28054e-03_rb,0.34772e-03_rb,0.34922e-03_rb,0.20501e-03_rb /)\n      kbo(:, 5,24, 6) = (/ &\n        & 0.25164e-04_rb,0.29121e-03_rb,0.35883e-03_rb,0.36286e-03_rb,0.21708e-03_rb /)\n      kbo(:, 1,25, 6) = (/ &\n        & 0.16589e-04_rb,0.20645e-03_rb,0.26087e-03_rb,0.25944e-03_rb,0.14369e-03_rb /)\n      kbo(:, 2,25, 6) = (/ &\n        & 0.17961e-04_rb,0.21688e-03_rb,0.27162e-03_rb,0.27083e-03_rb,0.15386e-03_rb /)\n      kbo(:, 3,25, 6) = (/ &\n        & 0.19083e-04_rb,0.22697e-03_rb,0.28229e-03_rb,0.28258e-03_rb,0.16383e-03_rb /)\n      kbo(:, 4,25, 6) = (/ &\n        & 0.19998e-04_rb,0.23668e-03_rb,0.29245e-03_rb,0.29438e-03_rb,0.17418e-03_rb /)\n      kbo(:, 5,25, 6) = (/ &\n        & 0.20737e-04_rb,0.24589e-03_rb,0.30216e-03_rb,0.30647e-03_rb,0.18465e-03_rb /)\n      kbo(:, 1,26, 6) = (/ &\n        & 0.13858e-04_rb,0.17402e-03_rb,0.21906e-03_rb,0.21804e-03_rb,0.12205e-03_rb /)\n      kbo(:, 2,26, 6) = (/ &\n        & 0.14930e-04_rb,0.18300e-03_rb,0.22843e-03_rb,0.22813e-03_rb,0.13065e-03_rb /)\n      kbo(:, 3,26, 6) = (/ &\n        & 0.15807e-04_rb,0.19174e-03_rb,0.23770e-03_rb,0.23830e-03_rb,0.13933e-03_rb /)\n      kbo(:, 4,26, 6) = (/ &\n        & 0.16522e-04_rb,0.20010e-03_rb,0.24640e-03_rb,0.24876e-03_rb,0.14837e-03_rb /)\n      kbo(:, 5,26, 6) = (/ &\n        & 0.17090e-04_rb,0.20798e-03_rb,0.25500e-03_rb,0.25943e-03_rb,0.15748e-03_rb /)\n      kbo(:, 1,27, 6) = (/ &\n        & 0.11565e-04_rb,0.14689e-03_rb,0.18423e-03_rb,0.18358e-03_rb,0.10372e-03_rb /)\n      kbo(:, 2,27, 6) = (/ &\n        & 0.12404e-04_rb,0.15466e-03_rb,0.19242e-03_rb,0.19242e-03_rb,0.11104e-03_rb /)\n      kbo(:, 3,27, 6) = (/ &\n        & 0.13088e-04_rb,0.16225e-03_rb,0.20035e-03_rb,0.20136e-03_rb,0.11877e-03_rb /)\n      kbo(:, 4,27, 6) = (/ &\n        & 0.13644e-04_rb,0.16938e-03_rb,0.20793e-03_rb,0.21054e-03_rb,0.12658e-03_rb /)\n      kbo(:, 5,27, 6) = (/ &\n        & 0.14079e-04_rb,0.17614e-03_rb,0.21553e-03_rb,0.22004e-03_rb,0.13455e-03_rb /)\n      kbo(:, 1,28, 6) = (/ &\n        & 0.96429e-05_rb,0.12422e-03_rb,0.15518e-03_rb,0.15486e-03_rb,0.88240e-04_rb /)\n      kbo(:, 2,28, 6) = (/ &\n        & 0.10297e-04_rb,0.13093e-03_rb,0.16229e-03_rb,0.16255e-03_rb,0.94664e-04_rb /)\n      kbo(:, 3,28, 6) = (/ &\n        & 0.10829e-04_rb,0.13744e-03_rb,0.16911e-03_rb,0.17043e-03_rb,0.10137e-03_rb /)\n      kbo(:, 4,28, 6) = (/ &\n        & 0.11263e-04_rb,0.14355e-03_rb,0.17577e-03_rb,0.17861e-03_rb,0.10818e-03_rb /)\n      kbo(:, 5,28, 6) = (/ &\n        & 0.11593e-04_rb,0.14936e-03_rb,0.18245e-03_rb,0.18698e-03_rb,0.11517e-03_rb /)\n      kbo(:, 1,29, 6) = (/ &\n        & 0.80357e-05_rb,0.10525e-03_rb,0.13098e-03_rb,0.13087e-03_rb,0.75199e-04_rb /)\n      kbo(:, 2,29, 6) = (/ &\n        & 0.85457e-05_rb,0.11106e-03_rb,0.13709e-03_rb,0.13756e-03_rb,0.80877e-04_rb /)\n      kbo(:, 3,29, 6) = (/ &\n        & 0.89585e-05_rb,0.11659e-03_rb,0.14298e-03_rb,0.14458e-03_rb,0.86703e-04_rb /)\n      kbo(:, 4,29, 6) = (/ &\n        & 0.92936e-05_rb,0.12185e-03_rb,0.14887e-03_rb,0.15184e-03_rb,0.92679e-04_rb /)\n      kbo(:, 5,29, 6) = (/ &\n        & 0.95413e-05_rb,0.12685e-03_rb,0.15476e-03_rb,0.15926e-03_rb,0.98770e-04_rb /)\n      kbo(:, 1,30, 6) = (/ &\n        & 0.66891e-05_rb,0.89326e-04_rb,0.11070e-03_rb,0.11075e-03_rb,0.64254e-04_rb /)\n      kbo(:, 2,30, 6) = (/ &\n        & 0.70855e-05_rb,0.94280e-04_rb,0.11595e-03_rb,0.11668e-03_rb,0.69215e-04_rb /)\n      kbo(:, 3,30, 6) = (/ &\n        & 0.74068e-05_rb,0.99029e-04_rb,0.12112e-03_rb,0.12290e-03_rb,0.74278e-04_rb /)\n      kbo(:, 4,30, 6) = (/ &\n        & 0.76634e-05_rb,0.10356e-03_rb,0.12631e-03_rb,0.12933e-03_rb,0.79489e-04_rb /)\n      kbo(:, 5,30, 6) = (/ &\n        & 0.78499e-05_rb,0.10785e-03_rb,0.13152e-03_rb,0.13588e-03_rb,0.84762e-04_rb /)\n      kbo(:, 1,31, 6) = (/ &\n        & 0.55647e-05_rb,0.75943e-04_rb,0.93695e-04_rb,0.93906e-04_rb,0.55002e-04_rb /)\n      kbo(:, 2,31, 6) = (/ &\n        & 0.58719e-05_rb,0.80167e-04_rb,0.98229e-04_rb,0.99204e-04_rb,0.59329e-04_rb /)\n      kbo(:, 3,31, 6) = (/ &\n        & 0.61212e-05_rb,0.84249e-04_rb,0.10281e-03_rb,0.10471e-03_rb,0.63778e-04_rb /)\n      kbo(:, 4,31, 6) = (/ &\n        & 0.63162e-05_rb,0.88122e-04_rb,0.10738e-03_rb,0.11041e-03_rb,0.68318e-04_rb /)\n      kbo(:, 5,31, 6) = (/ &\n        & 0.64553e-05_rb,0.91835e-04_rb,0.11204e-03_rb,0.11614e-03_rb,0.72907e-04_rb /)\n      kbo(:, 1,32, 6) = (/ &\n        & 0.46246e-05_rb,0.64633e-04_rb,0.79398e-04_rb,0.79831e-04_rb,0.47190e-04_rb /)\n      kbo(:, 2,32, 6) = (/ &\n        & 0.48628e-05_rb,0.68258e-04_rb,0.83383e-04_rb,0.84521e-04_rb,0.50953e-04_rb /)\n      kbo(:, 3,32, 6) = (/ &\n        & 0.50557e-05_rb,0.71758e-04_rb,0.87418e-04_rb,0.89417e-04_rb,0.54823e-04_rb /)\n      kbo(:, 4,32, 6) = (/ &\n        & 0.52035e-05_rb,0.75099e-04_rb,0.91481e-04_rb,0.94423e-04_rb,0.58785e-04_rb /)\n      kbo(:, 5,32, 6) = (/ &\n        & 0.53068e-05_rb,0.78317e-04_rb,0.95646e-04_rb,0.99452e-04_rb,0.62766e-04_rb /)\n      kbo(:, 1,33, 6) = (/ &\n        & 0.38403e-05_rb,0.55077e-04_rb,0.67410e-04_rb,0.68024e-04_rb,0.40538e-04_rb /)\n      kbo(:, 2,33, 6) = (/ &\n        & 0.40244e-05_rb,0.58199e-04_rb,0.70924e-04_rb,0.72180e-04_rb,0.43839e-04_rb /)\n      kbo(:, 3,33, 6) = (/ &\n        & 0.41730e-05_rb,0.61206e-04_rb,0.74475e-04_rb,0.76502e-04_rb,0.47222e-04_rb /)\n      kbo(:, 4,33, 6) = (/ &\n        & 0.42835e-05_rb,0.64091e-04_rb,0.78114e-04_rb,0.80883e-04_rb,0.50652e-04_rb /)\n      kbo(:, 5,33, 6) = (/ &\n        & 0.43604e-05_rb,0.66898e-04_rb,0.81798e-04_rb,0.85293e-04_rb,0.54102e-04_rb /)\n      kbo(:, 1,34, 6) = (/ &\n        & 0.31801e-05_rb,0.46888e-04_rb,0.57233e-04_rb,0.57945e-04_rb,0.34781e-04_rb /)\n      kbo(:, 2,34, 6) = (/ &\n        & 0.33244e-05_rb,0.49586e-04_rb,0.60319e-04_rb,0.61625e-04_rb,0.37646e-04_rb /)\n      kbo(:, 3,34, 6) = (/ &\n        & 0.34389e-05_rb,0.52183e-04_rb,0.63465e-04_rb,0.65422e-04_rb,0.40606e-04_rb /)\n      kbo(:, 4,34, 6) = (/ &\n        & 0.35228e-05_rb,0.54696e-04_rb,0.66697e-04_rb,0.69266e-04_rb,0.43571e-04_rb /)\n      kbo(:, 5,34, 6) = (/ &\n        & 0.35804e-05_rb,0.57162e-04_rb,0.69964e-04_rb,0.73120e-04_rb,0.46562e-04_rb /)\n      kbo(:, 1,35, 6) = (/ &\n        & 0.26200e-05_rb,0.39742e-04_rb,0.48410e-04_rb,0.49141e-04_rb,0.29639e-04_rb /)\n      kbo(:, 2,35, 6) = (/ &\n        & 0.27351e-05_rb,0.42075e-04_rb,0.51122e-04_rb,0.52382e-04_rb,0.32146e-04_rb /)\n      kbo(:, 3,35, 6) = (/ &\n        & 0.28253e-05_rb,0.44325e-04_rb,0.53916e-04_rb,0.55698e-04_rb,0.34701e-04_rb /)\n      kbo(:, 4,35, 6) = (/ &\n        & 0.28907e-05_rb,0.46530e-04_rb,0.56769e-04_rb,0.59068e-04_rb,0.37280e-04_rb /)\n      kbo(:, 5,35, 6) = (/ &\n        & 0.29354e-05_rb,0.48707e-04_rb,0.59649e-04_rb,0.62461e-04_rb,0.39864e-04_rb /)\n      kbo(:, 1,36, 6) = (/ &\n        & 0.21469e-05_rb,0.33498e-04_rb,0.40744e-04_rb,0.41427e-04_rb,0.25045e-04_rb /)\n      kbo(:, 2,36, 6) = (/ &\n        & 0.22407e-05_rb,0.35513e-04_rb,0.43124e-04_rb,0.44262e-04_rb,0.27227e-04_rb /)\n      kbo(:, 3,36, 6) = (/ &\n        & 0.23140e-05_rb,0.37481e-04_rb,0.45588e-04_rb,0.47157e-04_rb,0.29433e-04_rb /)\n      kbo(:, 4,36, 6) = (/ &\n        & 0.23673e-05_rb,0.39419e-04_rb,0.48109e-04_rb,0.50107e-04_rb,0.31672e-04_rb /)\n      kbo(:, 5,36, 6) = (/ &\n        & 0.24035e-05_rb,0.41345e-04_rb,0.50640e-04_rb,0.53089e-04_rb,0.33911e-04_rb /)\n      kbo(:, 1,37, 6) = (/ &\n        & 0.17464e-05_rb,0.27984e-04_rb,0.34007e-04_rb,0.34584e-04_rb,0.20899e-04_rb /)\n      kbo(:, 2,37, 6) = (/ &\n        & 0.18252e-05_rb,0.29737e-04_rb,0.36088e-04_rb,0.37051e-04_rb,0.22785e-04_rb /)\n      kbo(:, 3,37, 6) = (/ &\n        & 0.18877e-05_rb,0.31460e-04_rb,0.38247e-04_rb,0.39573e-04_rb,0.24687e-04_rb /)\n      kbo(:, 4,37, 6) = (/ &\n        & 0.19333e-05_rb,0.33165e-04_rb,0.40460e-04_rb,0.42146e-04_rb,0.26626e-04_rb /)\n      kbo(:, 5,37, 6) = (/ &\n        & 0.19647e-05_rb,0.34869e-04_rb,0.42691e-04_rb,0.44765e-04_rb,0.28561e-04_rb /)\n      kbo(:, 1,38, 6) = (/ &\n        & 0.14198e-05_rb,0.23364e-04_rb,0.28367e-04_rb,0.28854e-04_rb,0.17422e-04_rb /)\n      kbo(:, 2,38, 6) = (/ &\n        & 0.14862e-05_rb,0.24892e-04_rb,0.30186e-04_rb,0.30994e-04_rb,0.19047e-04_rb /)\n      kbo(:, 3,38, 6) = (/ &\n        & 0.15394e-05_rb,0.26399e-04_rb,0.32076e-04_rb,0.33192e-04_rb,0.20688e-04_rb /)\n      kbo(:, 4,38, 6) = (/ &\n        & 0.15786e-05_rb,0.27898e-04_rb,0.34020e-04_rb,0.35441e-04_rb,0.22360e-04_rb /)\n      kbo(:, 5,38, 6) = (/ &\n        & 0.16058e-05_rb,0.29401e-04_rb,0.35983e-04_rb,0.37735e-04_rb,0.24033e-04_rb /)\n      kbo(:, 1,39, 6) = (/ &\n        & 0.11541e-05_rb,0.19509e-04_rb,0.23663e-04_rb,0.24072e-04_rb,0.14521e-04_rb /)\n      kbo(:, 2,39, 6) = (/ &\n        & 0.12100e-05_rb,0.20837e-04_rb,0.25252e-04_rb,0.25929e-04_rb,0.15915e-04_rb /)\n      kbo(:, 3,39, 6) = (/ &\n        & 0.12551e-05_rb,0.22155e-04_rb,0.26902e-04_rb,0.27842e-04_rb,0.17331e-04_rb /)\n      kbo(:, 4,39, 6) = (/ &\n        & 0.12888e-05_rb,0.23470e-04_rb,0.28603e-04_rb,0.29806e-04_rb,0.18773e-04_rb /)\n      kbo(:, 5,39, 6) = (/ &\n        & 0.13123e-05_rb,0.24794e-04_rb,0.30331e-04_rb,0.31815e-04_rb,0.20216e-04_rb /)\n      kbo(:, 1,40, 6) = (/ &\n        & 0.93244e-06_rb,0.16171e-04_rb,0.19599e-04_rb,0.19918e-04_rb,0.11977e-04_rb /)\n      kbo(:, 2,40, 6) = (/ &\n        & 0.98059e-06_rb,0.17324e-04_rb,0.20976e-04_rb,0.21519e-04_rb,0.13169e-04_rb /)\n      kbo(:, 3,40, 6) = (/ &\n        & 0.10196e-05_rb,0.18475e-04_rb,0.22411e-04_rb,0.23178e-04_rb,0.14387e-04_rb /)\n      kbo(:, 4,40, 6) = (/ &\n        & 0.10496e-05_rb,0.19626e-04_rb,0.23897e-04_rb,0.24887e-04_rb,0.15625e-04_rb /)\n      kbo(:, 5,40, 6) = (/ &\n        & 0.10706e-05_rb,0.20792e-04_rb,0.25411e-04_rb,0.26641e-04_rb,0.16871e-04_rb /)\n      kbo(:, 1,41, 6) = (/ &\n        & 0.75206e-06_rb,0.13381e-04_rb,0.16204e-04_rb,0.16448e-04_rb,0.98582e-05_rb /)\n      kbo(:, 2,41, 6) = (/ &\n        & 0.79368e-06_rb,0.14380e-04_rb,0.17395e-04_rb,0.17824e-04_rb,0.10873e-04_rb /)\n      kbo(:, 3,41, 6) = (/ &\n        & 0.82742e-06_rb,0.15382e-04_rb,0.18640e-04_rb,0.19259e-04_rb,0.11916e-04_rb /)\n      kbo(:, 4,41, 6) = (/ &\n        & 0.85390e-06_rb,0.16388e-04_rb,0.19935e-04_rb,0.20745e-04_rb,0.12979e-04_rb /)\n      kbo(:, 5,41, 6) = (/ &\n        & 0.87281e-06_rb,0.17412e-04_rb,0.21261e-04_rb,0.22271e-04_rb,0.14053e-04_rb /)\n      kbo(:, 1,42, 6) = (/ &\n        & 0.60591e-06_rb,0.11061e-04_rb,0.13385e-04_rb,0.13568e-04_rb,0.81045e-05_rb /)\n      kbo(:, 2,42, 6) = (/ &\n        & 0.64182e-06_rb,0.11926e-04_rb,0.14412e-04_rb,0.14751e-04_rb,0.89661e-05_rb /)\n      kbo(:, 3,42, 6) = (/ &\n        & 0.67101e-06_rb,0.12797e-04_rb,0.15489e-04_rb,0.15987e-04_rb,0.98578e-05_rb /)\n      kbo(:, 4,42, 6) = (/ &\n        & 0.69427e-06_rb,0.13675e-04_rb,0.16616e-04_rb,0.17274e-04_rb,0.10770e-04_rb /)\n      kbo(:, 5,42, 6) = (/ &\n        & 0.71122e-06_rb,0.14573e-04_rb,0.17774e-04_rb,0.18601e-04_rb,0.11690e-04_rb /)\n      kbo(:, 1,43, 6) = (/ &\n        & 0.48565e-06_rb,0.90929e-05_rb,0.10998e-04_rb,0.11127e-04_rb,0.66136e-05_rb /)\n      kbo(:, 2,43, 6) = (/ &\n        & 0.51703e-06_rb,0.98401e-05_rb,0.11878e-04_rb,0.12136e-04_rb,0.73431e-05_rb /)\n      kbo(:, 3,43, 6) = (/ &\n        & 0.54246e-06_rb,0.10594e-04_rb,0.12807e-04_rb,0.13197e-04_rb,0.81019e-05_rb /)\n      kbo(:, 4,43, 6) = (/ &\n        & 0.56309e-06_rb,0.11359e-04_rb,0.13782e-04_rb,0.14306e-04_rb,0.88812e-05_rb /)\n      kbo(:, 5,43, 6) = (/ &\n        & 0.57854e-06_rb,0.12144e-04_rb,0.14791e-04_rb,0.15456e-04_rb,0.96685e-05_rb /)\n      kbo(:, 1,44, 6) = (/ &\n        & 0.38777e-06_rb,0.74478e-05_rb,0.90062e-05_rb,0.90921e-05_rb,0.53709e-05_rb /)\n      kbo(:, 2,44, 6) = (/ &\n        & 0.41522e-06_rb,0.80919e-05_rb,0.97570e-05_rb,0.99478e-05_rb,0.59889e-05_rb /)\n      kbo(:, 3,44, 6) = (/ &\n        & 0.43761e-06_rb,0.87433e-05_rb,0.10555e-04_rb,0.10856e-04_rb,0.66332e-05_rb /)\n      kbo(:, 4,44, 6) = (/ &\n        & 0.45584e-06_rb,0.94063e-05_rb,0.11395e-04_rb,0.11808e-04_rb,0.72955e-05_rb /)\n      kbo(:, 5,44, 6) = (/ &\n        & 0.46990e-06_rb,0.10091e-04_rb,0.12269e-04_rb,0.12799e-04_rb,0.79696e-05_rb /)\n      kbo(:, 1,45, 6) = (/ &\n        & 0.30888e-06_rb,0.60898e-05_rb,0.73632e-05_rb,0.74181e-05_rb,0.43535e-05_rb /)\n      kbo(:, 2,45, 6) = (/ &\n        & 0.33291e-06_rb,0.66440e-05_rb,0.80023e-05_rb,0.81416e-05_rb,0.48741e-05_rb /)\n      kbo(:, 3,45, 6) = (/ &\n        & 0.35255e-06_rb,0.72052e-05_rb,0.86855e-05_rb,0.89154e-05_rb,0.54207e-05_rb /)\n      kbo(:, 4,45, 6) = (/ &\n        & 0.36854e-06_rb,0.77787e-05_rb,0.94068e-05_rb,0.97308e-05_rb,0.59833e-05_rb /)\n      kbo(:, 5,45, 6) = (/ &\n        & 0.38125e-06_rb,0.83745e-05_rb,0.10163e-04_rb,0.10583e-04_rb,0.65578e-05_rb /)\n      kbo(:, 1,46, 6) = (/ &\n        & 0.24494e-06_rb,0.49598e-05_rb,0.59987e-05_rb,0.60289e-05_rb,0.35123e-05_rb /)\n      kbo(:, 2,46, 6) = (/ &\n        & 0.26595e-06_rb,0.54355e-05_rb,0.65411e-05_rb,0.66383e-05_rb,0.39494e-05_rb /)\n      kbo(:, 3,46, 6) = (/ &\n        & 0.28328e-06_rb,0.59173e-05_rb,0.71233e-05_rb,0.72943e-05_rb,0.44113e-05_rb /)\n      kbo(:, 4,46, 6) = (/ &\n        & 0.29735e-06_rb,0.64123e-05_rb,0.77406e-05_rb,0.79904e-05_rb,0.48883e-05_rb /)\n      kbo(:, 5,46, 6) = (/ &\n        & 0.30876e-06_rb,0.69283e-05_rb,0.83913e-05_rb,0.87211e-05_rb,0.53766e-05_rb /)\n      kbo(:, 1,47, 6) = (/ &\n        & 0.19287e-06_rb,0.40134e-05_rb,0.48586e-05_rb,0.48718e-05_rb,0.28114e-05_rb /)\n      kbo(:, 2,47, 6) = (/ &\n        & 0.21123e-06_rb,0.44208e-05_rb,0.53178e-05_rb,0.53794e-05_rb,0.31781e-05_rb /)\n      kbo(:, 3,47, 6) = (/ &\n        & 0.22658e-06_rb,0.48332e-05_rb,0.58104e-05_rb,0.59335e-05_rb,0.35646e-05_rb /)\n      kbo(:, 4,47, 6) = (/ &\n        & 0.23912e-06_rb,0.52582e-05_rb,0.63354e-05_rb,0.65230e-05_rb,0.39676e-05_rb /)\n      kbo(:, 5,47, 6) = (/ &\n        & 0.24931e-06_rb,0.57025e-05_rb,0.68920e-05_rb,0.71458e-05_rb,0.43826e-05_rb /)\n      kbo(:, 1,48, 6) = (/ &\n        & 0.15132e-06_rb,0.32395e-05_rb,0.39269e-05_rb,0.39289e-05_rb,0.22458e-05_rb /)\n      kbo(:, 2,48, 6) = (/ &\n        & 0.16716e-06_rb,0.35866e-05_rb,0.43144e-05_rb,0.43511e-05_rb,0.25512e-05_rb /)\n      kbo(:, 3,48, 6) = (/ &\n        & 0.18076e-06_rb,0.39391e-05_rb,0.47294e-05_rb,0.48161e-05_rb,0.28746e-05_rb /)\n      kbo(:, 4,48, 6) = (/ &\n        & 0.19194e-06_rb,0.43030e-05_rb,0.51748e-05_rb,0.53142e-05_rb,0.32135e-05_rb /)\n      kbo(:, 5,48, 6) = (/ &\n        & 0.20099e-06_rb,0.46842e-05_rb,0.56488e-05_rb,0.58430e-05_rb,0.35644e-05_rb /)\n      kbo(:, 1,49, 6) = (/ &\n        & 0.11828e-06_rb,0.26078e-05_rb,0.31672e-05_rb,0.31617e-05_rb,0.17894e-05_rb /)\n      kbo(:, 2,49, 6) = (/ &\n        & 0.13185e-06_rb,0.29029e-05_rb,0.34929e-05_rb,0.35125e-05_rb,0.20423e-05_rb /)\n      kbo(:, 3,49, 6) = (/ &\n        & 0.14378e-06_rb,0.32030e-05_rb,0.38409e-05_rb,0.39000e-05_rb,0.23121e-05_rb /)\n      kbo(:, 4,49, 6) = (/ &\n        & 0.15369e-06_rb,0.35139e-05_rb,0.42179e-05_rb,0.43198e-05_rb,0.25971e-05_rb /)\n      kbo(:, 5,49, 6) = (/ &\n        & 0.16176e-06_rb,0.38391e-05_rb,0.46198e-05_rb,0.47667e-05_rb,0.28929e-05_rb /)\n      kbo(:, 1,50, 6) = (/ &\n        & 0.92362e-07_rb,0.20997e-05_rb,0.25556e-05_rb,0.25471e-05_rb,0.14267e-05_rb /)\n      kbo(:, 2,50, 6) = (/ &\n        & 0.10390e-06_rb,0.23496e-05_rb,0.28286e-05_rb,0.28368e-05_rb,0.16356e-05_rb /)\n      kbo(:, 3,50, 6) = (/ &\n        & 0.11421e-06_rb,0.26049e-05_rb,0.31213e-05_rb,0.31606e-05_rb,0.18609e-05_rb /)\n      kbo(:, 4,50, 6) = (/ &\n        & 0.12297e-06_rb,0.28694e-05_rb,0.34392e-05_rb,0.35125e-05_rb,0.20996e-05_rb /)\n      kbo(:, 5,50, 6) = (/ &\n        & 0.13012e-06_rb,0.31471e-05_rb,0.37794e-05_rb,0.38900e-05_rb,0.23486e-05_rb /)\n      kbo(:, 1,51, 6) = (/ &\n        & 0.72029e-07_rb,0.16879e-05_rb,0.20606e-05_rb,0.20506e-05_rb,0.11365e-05_rb /)\n      kbo(:, 2,51, 6) = (/ &\n        & 0.81717e-07_rb,0.18994e-05_rb,0.22886e-05_rb,0.22902e-05_rb,0.13081e-05_rb /)\n      kbo(:, 3,51, 6) = (/ &\n        & 0.90547e-07_rb,0.21162e-05_rb,0.25347e-05_rb,0.25588e-05_rb,0.14964e-05_rb /)\n      kbo(:, 4,51, 6) = (/ &\n        & 0.98231e-07_rb,0.23407e-05_rb,0.28017e-05_rb,0.28537e-05_rb,0.16958e-05_rb /)\n      kbo(:, 5,51, 6) = (/ &\n        & 0.10454e-06_rb,0.25770e-05_rb,0.30891e-05_rb,0.31719e-05_rb,0.19053e-05_rb /)\n      kbo(:, 1,52, 6) = (/ &\n        & 0.55994e-07_rb,0.13535e-05_rb,0.16583e-05_rb,0.16483e-05_rb,0.90215e-06_rb /)\n      kbo(:, 2,52, 6) = (/ &\n        & 0.64065e-07_rb,0.15318e-05_rb,0.18483e-05_rb,0.18452e-05_rb,0.10447e-05_rb /)\n      kbo(:, 3,52, 6) = (/ &\n        & 0.71601e-07_rb,0.17156e-05_rb,0.20541e-05_rb,0.20679e-05_rb,0.12005e-05_rb /)\n      kbo(:, 4,52, 6) = (/ &\n        & 0.78265e-07_rb,0.19055e-05_rb,0.22786e-05_rb,0.23151e-05_rb,0.13673e-05_rb /)\n      kbo(:, 5,52, 6) = (/ &\n        & 0.83827e-07_rb,0.21062e-05_rb,0.25201e-05_rb,0.25812e-05_rb,0.15426e-05_rb /)\n      kbo(:, 1,53, 6) = (/ &\n        & 0.43376e-07_rb,0.10823e-05_rb,0.13316e-05_rb,0.13229e-05_rb,0.71387e-06_rb /)\n      kbo(:, 2,53, 6) = (/ &\n        & 0.50078e-07_rb,0.12320e-05_rb,0.14898e-05_rb,0.14843e-05_rb,0.83196e-06_rb /)\n      kbo(:, 3,53, 6) = (/ &\n        & 0.56440e-07_rb,0.13873e-05_rb,0.16612e-05_rb,0.16678e-05_rb,0.96085e-06_rb /)\n      kbo(:, 4,53, 6) = (/ &\n        & 0.62188e-07_rb,0.15481e-05_rb,0.18489e-05_rb,0.18736e-05_rb,0.10995e-05_rb /)\n      kbo(:, 5,53, 6) = (/ &\n        & 0.67072e-07_rb,0.17179e-05_rb,0.20520e-05_rb,0.20964e-05_rb,0.12465e-05_rb /)\n      kbo(:, 1,54, 6) = (/ &\n        & 0.33662e-07_rb,0.86685e-06_rb,0.10712e-05_rb,0.10638e-05_rb,0.56675e-06_rb /)\n      kbo(:, 2,54, 6) = (/ &\n        & 0.39188e-07_rb,0.99237e-06_rb,0.12024e-05_rb,0.11965e-05_rb,0.66407e-06_rb /)\n      kbo(:, 3,54, 6) = (/ &\n        & 0.44517e-07_rb,0.11234e-05_rb,0.13453e-05_rb,0.13477e-05_rb,0.77015e-06_rb /)\n      kbo(:, 4,54, 6) = (/ &\n        & 0.49410e-07_rb,0.12591e-05_rb,0.15022e-05_rb,0.15186e-05_rb,0.88568e-06_rb /)\n      kbo(:, 5,54, 6) = (/ &\n        & 0.53662e-07_rb,0.14028e-05_rb,0.16732e-05_rb,0.17054e-05_rb,0.10088e-05_rb /)\n      kbo(:, 1,55, 6) = (/ &\n        & 0.26107e-07_rb,0.69409e-06_rb,0.86148e-06_rb,0.85535e-06_rb,0.44993e-06_rb /)\n      kbo(:, 2,55, 6) = (/ &\n        & 0.30648e-07_rb,0.79874e-06_rb,0.97050e-06_rb,0.96432e-06_rb,0.52987e-06_rb /)\n      kbo(:, 3,55, 6) = (/ &\n        & 0.35070e-07_rb,0.90919e-06_rb,0.10893e-05_rb,0.10889e-05_rb,0.61727e-06_rb /)\n      kbo(:, 4,55, 6) = (/ &\n        & 0.39223e-07_rb,0.10237e-05_rb,0.12206e-05_rb,0.12308e-05_rb,0.71345e-06_rb /)\n      kbo(:, 5,55, 6) = (/ &\n        & 0.42897e-07_rb,0.11450e-05_rb,0.13641e-05_rb,0.13878e-05_rb,0.81614e-06_rb /)\n      kbo(:, 1,56, 6) = (/ &\n        & 0.20183e-07_rb,0.55461e-06_rb,0.69187e-06_rb,0.68686e-06_rb,0.35634e-06_rb /)\n      kbo(:, 2,56, 6) = (/ &\n        & 0.23906e-07_rb,0.64143e-06_rb,0.78193e-06_rb,0.77615e-06_rb,0.42133e-06_rb /)\n      kbo(:, 3,56, 6) = (/ &\n        & 0.27573e-07_rb,0.73422e-06_rb,0.88059e-06_rb,0.87848e-06_rb,0.49387e-06_rb /)\n      kbo(:, 4,56, 6) = (/ &\n        & 0.31066e-07_rb,0.83083e-06_rb,0.99001e-06_rb,0.99604e-06_rb,0.57362e-06_rb /)\n      kbo(:, 5,56, 6) = (/ &\n        & 0.34213e-07_rb,0.93302e-06_rb,0.11103e-05_rb,0.11271e-05_rb,0.65906e-06_rb /)\n      kbo(:, 1,57, 6) = (/ &\n        & 0.15553e-07_rb,0.44221e-06_rb,0.55475e-06_rb,0.55051e-06_rb,0.28158e-06_rb /)\n      kbo(:, 2,57, 6) = (/ &\n        & 0.18597e-07_rb,0.51387e-06_rb,0.62883e-06_rb,0.62381e-06_rb,0.33432e-06_rb /)\n      kbo(:, 3,57, 6) = (/ &\n        & 0.21627e-07_rb,0.59165e-06_rb,0.71079e-06_rb,0.70768e-06_rb,0.39423e-06_rb /)\n      kbo(:, 4,57, 6) = (/ &\n        & 0.24548e-07_rb,0.67286e-06_rb,0.80159e-06_rb,0.80451e-06_rb,0.46009e-06_rb /)\n      kbo(:, 5,57, 6) = (/ &\n        & 0.27223e-07_rb,0.75870e-06_rb,0.90196e-06_rb,0.91372e-06_rb,0.53126e-06_rb /)\n      kbo(:, 1,58, 6) = (/ &\n        & 0.11989e-07_rb,0.35271e-06_rb,0.44504e-06_rb,0.44164e-06_rb,0.22247e-06_rb /)\n      kbo(:, 2,58, 6) = (/ &\n        & 0.14473e-07_rb,0.41167e-06_rb,0.50593e-06_rb,0.50179e-06_rb,0.26557e-06_rb /)\n      kbo(:, 3,58, 6) = (/ &\n        & 0.16959e-07_rb,0.47681e-06_rb,0.57389e-06_rb,0.57055e-06_rb,0.31488e-06_rb /)\n      kbo(:, 4,58, 6) = (/ &\n        & 0.19386e-07_rb,0.54503e-06_rb,0.64933e-06_rb,0.65043e-06_rb,0.36927e-06_rb /)\n      kbo(:, 5,58, 6) = (/ &\n        & 0.21655e-07_rb,0.61705e-06_rb,0.73285e-06_rb,0.74092e-06_rb,0.42823e-06_rb /)\n      kbo(:, 1,59, 6) = (/ &\n        & 0.95745e-08_rb,0.28909e-06_rb,0.36504e-06_rb,0.36221e-06_rb,0.18143e-06_rb /)\n      kbo(:, 2,59, 6) = (/ &\n        & 0.11602e-07_rb,0.33869e-06_rb,0.41625e-06_rb,0.41267e-06_rb,0.21754e-06_rb /)\n      kbo(:, 3,59, 6) = (/ &\n        & 0.13639e-07_rb,0.39363e-06_rb,0.47345e-06_rb,0.47053e-06_rb,0.25873e-06_rb /)\n      kbo(:, 4,59, 6) = (/ &\n        & 0.15635e-07_rb,0.45132e-06_rb,0.53722e-06_rb,0.53779e-06_rb,0.30436e-06_rb /)\n      kbo(:, 5,59, 6) = (/ &\n        & 0.17515e-07_rb,0.51255e-06_rb,0.60804e-06_rb,0.61445e-06_rb,0.35395e-06_rb /)\n      kbo(:, 1,13, 7) = (/ &\n        & 0.13818e-02_rb,0.53095e-02_rb,0.61744e-02_rb,0.61409e-02_rb,0.38201e-02_rb /)\n      kbo(:, 2,13, 7) = (/ &\n        & 0.14927e-02_rb,0.54262e-02_rb,0.63169e-02_rb,0.63268e-02_rb,0.39787e-02_rb /)\n      kbo(:, 3,13, 7) = (/ &\n        & 0.15882e-02_rb,0.55245e-02_rb,0.64575e-02_rb,0.65042e-02_rb,0.41285e-02_rb /)\n      kbo(:, 4,13, 7) = (/ &\n        & 0.16683e-02_rb,0.56028e-02_rb,0.65859e-02_rb,0.66764e-02_rb,0.42766e-02_rb /)\n      kbo(:, 5,13, 7) = (/ &\n        & 0.17364e-02_rb,0.56642e-02_rb,0.66996e-02_rb,0.68400e-02_rb,0.44196e-02_rb /)\n      kbo(:, 1,14, 7) = (/ &\n        & 0.11439e-02_rb,0.44642e-02_rb,0.52052e-02_rb,0.51954e-02_rb,0.32185e-02_rb /)\n      kbo(:, 2,14, 7) = (/ &\n        & 0.12322e-02_rb,0.45612e-02_rb,0.53295e-02_rb,0.53554e-02_rb,0.33544e-02_rb /)\n      kbo(:, 3,14, 7) = (/ &\n        & 0.13082e-02_rb,0.46425e-02_rb,0.54474e-02_rb,0.55111e-02_rb,0.34869e-02_rb /)\n      kbo(:, 4,14, 7) = (/ &\n        & 0.13723e-02_rb,0.47078e-02_rb,0.55568e-02_rb,0.56605e-02_rb,0.36178e-02_rb /)\n      kbo(:, 5,14, 7) = (/ &\n        & 0.14273e-02_rb,0.47614e-02_rb,0.56536e-02_rb,0.58004e-02_rb,0.37445e-02_rb /)\n      kbo(:, 1,15, 7) = (/ &\n        & 0.94600e-03_rb,0.37452e-02_rb,0.43786e-02_rb,0.43839e-02_rb,0.27064e-02_rb /)\n      kbo(:, 2,15, 7) = (/ &\n        & 0.10166e-02_rb,0.38272e-02_rb,0.44845e-02_rb,0.45238e-02_rb,0.28259e-02_rb /)\n      kbo(:, 3,15, 7) = (/ &\n        & 0.10772e-02_rb,0.38951e-02_rb,0.45852e-02_rb,0.46569e-02_rb,0.29424e-02_rb /)\n      kbo(:, 4,15, 7) = (/ &\n        & 0.11287e-02_rb,0.39508e-02_rb,0.46776e-02_rb,0.47856e-02_rb,0.30573e-02_rb /)\n      kbo(:, 5,15, 7) = (/ &\n        & 0.11727e-02_rb,0.39984e-02_rb,0.47639e-02_rb,0.49094e-02_rb,0.31707e-02_rb /)\n      kbo(:, 1,16, 7) = (/ &\n        & 0.78170e-03_rb,0.31386e-02_rb,0.36753e-02_rb,0.36925e-02_rb,0.22749e-02_rb /)\n      kbo(:, 2,16, 7) = (/ &\n        & 0.83828e-03_rb,0.32067e-02_rb,0.37655e-02_rb,0.38108e-02_rb,0.23791e-02_rb /)\n      kbo(:, 3,16, 7) = (/ &\n        & 0.88677e-03_rb,0.32636e-02_rb,0.38524e-02_rb,0.39267e-02_rb,0.24809e-02_rb /)\n      kbo(:, 4,16, 7) = (/ &\n        & 0.92814e-03_rb,0.33127e-02_rb,0.39332e-02_rb,0.40389e-02_rb,0.25819e-02_rb /)\n      kbo(:, 5,16, 7) = (/ &\n        & 0.96342e-03_rb,0.33561e-02_rb,0.40123e-02_rb,0.41493e-02_rb,0.26825e-02_rb /)\n      kbo(:, 1,17, 7) = (/ &\n        & 0.64513e-03_rb,0.26258e-02_rb,0.30792e-02_rb,0.31027e-02_rb,0.19109e-02_rb /)\n      kbo(:, 2,17, 7) = (/ &\n        & 0.69065e-03_rb,0.26830e-02_rb,0.31573e-02_rb,0.32056e-02_rb,0.20013e-02_rb /)\n      kbo(:, 3,17, 7) = (/ &\n        & 0.72951e-03_rb,0.27321e-02_rb,0.32326e-02_rb,0.33061e-02_rb,0.20905e-02_rb /)\n      kbo(:, 4,17, 7) = (/ &\n        & 0.76279e-03_rb,0.27759e-02_rb,0.33057e-02_rb,0.34049e-02_rb,0.21791e-02_rb /)\n      kbo(:, 5,17, 7) = (/ &\n        & 0.79127e-03_rb,0.28164e-02_rb,0.33776e-02_rb,0.35037e-02_rb,0.22680e-02_rb /)\n      kbo(:, 1,18, 7) = (/ &\n        & 0.53216e-03_rb,0.21945e-02_rb,0.25768e-02_rb,0.26041e-02_rb,0.16047e-02_rb /)\n      kbo(:, 2,18, 7) = (/ &\n        & 0.56878e-03_rb,0.22431e-02_rb,0.26453e-02_rb,0.26934e-02_rb,0.16829e-02_rb /)\n      kbo(:, 3,18, 7) = (/ &\n        & 0.60002e-03_rb,0.22864e-02_rb,0.27121e-02_rb,0.27812e-02_rb,0.17605e-02_rb /)\n      kbo(:, 4,18, 7) = (/ &\n        & 0.62666e-03_rb,0.23265e-02_rb,0.27778e-02_rb,0.28689e-02_rb,0.18389e-02_rb /)\n      kbo(:, 5,18, 7) = (/ &\n        & 0.64956e-03_rb,0.23645e-02_rb,0.28436e-02_rb,0.29587e-02_rb,0.19175e-02_rb /)\n      kbo(:, 1,19, 7) = (/ &\n        & 0.43878e-03_rb,0.18328e-02_rb,0.21555e-02_rb,0.21844e-02_rb,0.13470e-02_rb /)\n      kbo(:, 2,19, 7) = (/ &\n        & 0.46832e-03_rb,0.18749e-02_rb,0.22160e-02_rb,0.22619e-02_rb,0.14147e-02_rb /)\n      kbo(:, 3,19, 7) = (/ &\n        & 0.49337e-03_rb,0.19136e-02_rb,0.22752e-02_rb,0.23395e-02_rb,0.14834e-02_rb /)\n      kbo(:, 4,19, 7) = (/ &\n        & 0.51483e-03_rb,0.19509e-02_rb,0.23344e-02_rb,0.24177e-02_rb,0.15526e-02_rb /)\n      kbo(:, 5,19, 7) = (/ &\n        & 0.53321e-03_rb,0.19863e-02_rb,0.23950e-02_rb,0.24983e-02_rb,0.16228e-02_rb /)\n      kbo(:, 1,20, 7) = (/ &\n        & 0.36218e-03_rb,0.15310e-02_rb,0.18044e-02_rb,0.18333e-02_rb,0.11320e-02_rb /)\n      kbo(:, 2,20, 7) = (/ &\n        & 0.38587e-03_rb,0.15681e-02_rb,0.18573e-02_rb,0.19010e-02_rb,0.11911e-02_rb /)\n      kbo(:, 3,20, 7) = (/ &\n        & 0.40599e-03_rb,0.16034e-02_rb,0.19105e-02_rb,0.19693e-02_rb,0.12516e-02_rb /)\n      kbo(:, 4,20, 7) = (/ &\n        & 0.42327e-03_rb,0.16372e-02_rb,0.19642e-02_rb,0.20400e-02_rb,0.13133e-02_rb /)\n      kbo(:, 5,20, 7) = (/ &\n        & 0.43800e-03_rb,0.16702e-02_rb,0.20196e-02_rb,0.21120e-02_rb,0.13760e-02_rb /)\n      kbo(:, 1,21, 7) = (/ &\n        & 0.29894e-03_rb,0.12794e-02_rb,0.15109e-02_rb,0.15392e-02_rb,0.95196e-03_rb /)\n      kbo(:, 2,21, 7) = (/ &\n        & 0.31795e-03_rb,0.13126e-02_rb,0.15578e-02_rb,0.15985e-02_rb,0.10041e-02_rb /)\n      kbo(:, 3,21, 7) = (/ &\n        & 0.33409e-03_rb,0.13444e-02_rb,0.16054e-02_rb,0.16590e-02_rb,0.10575e-02_rb /)\n      kbo(:, 4,21, 7) = (/ &\n        & 0.34798e-03_rb,0.13752e-02_rb,0.16542e-02_rb,0.17228e-02_rb,0.11124e-02_rb /)\n      kbo(:, 5,21, 7) = (/ &\n        & 0.35982e-03_rb,0.14062e-02_rb,0.17046e-02_rb,0.17872e-02_rb,0.11688e-02_rb /)\n      kbo(:, 1,22, 7) = (/ &\n        & 0.24779e-03_rb,0.10720e-02_rb,0.12687e-02_rb,0.12959e-02_rb,0.80428e-03_rb /)\n      kbo(:, 2,22, 7) = (/ &\n        & 0.26287e-03_rb,0.11012e-02_rb,0.13104e-02_rb,0.13483e-02_rb,0.85046e-03_rb /)\n      kbo(:, 3,22, 7) = (/ &\n        & 0.27570e-03_rb,0.11300e-02_rb,0.13532e-02_rb,0.14032e-02_rb,0.89796e-03_rb /)\n      kbo(:, 4,22, 7) = (/ &\n        & 0.28676e-03_rb,0.11583e-02_rb,0.13978e-02_rb,0.14602e-02_rb,0.94722e-03_rb /)\n      kbo(:, 5,22, 7) = (/ &\n        & 0.29612e-03_rb,0.11873e-02_rb,0.14439e-02_rb,0.15185e-02_rb,0.99812e-03_rb /)\n      kbo(:, 1,23, 7) = (/ &\n        & 0.20536e-03_rb,0.89901e-03_rb,0.10666e-02_rb,0.10925e-02_rb,0.68077e-03_rb /)\n      kbo(:, 2,23, 7) = (/ &\n        & 0.21732e-03_rb,0.92514e-03_rb,0.11037e-02_rb,0.11394e-02_rb,0.72189e-03_rb /)\n      kbo(:, 3,23, 7) = (/ &\n        & 0.22752e-03_rb,0.95109e-03_rb,0.11426e-02_rb,0.11888e-02_rb,0.76437e-03_rb /)\n      kbo(:, 4,23, 7) = (/ &\n        & 0.23632e-03_rb,0.97728e-03_rb,0.11832e-02_rb,0.12403e-02_rb,0.80877e-03_rb /)\n      kbo(:, 5,23, 7) = (/ &\n        & 0.24369e-03_rb,0.10040e-02_rb,0.12260e-02_rb,0.12934e-02_rb,0.85489e-03_rb /)\n      kbo(:, 1,24, 7) = (/ &\n        & 0.17021e-03_rb,0.75506e-03_rb,0.89800e-03_rb,0.92265e-03_rb,0.57788e-03_rb /)\n      kbo(:, 2,24, 7) = (/ &\n        & 0.17969e-03_rb,0.77853e-03_rb,0.93149e-03_rb,0.96497e-03_rb,0.61443e-03_rb /)\n      kbo(:, 3,24, 7) = (/ &\n        & 0.18778e-03_rb,0.80207e-03_rb,0.96680e-03_rb,0.10097e-02_rb,0.65278e-03_rb /)\n      kbo(:, 4,24, 7) = (/ &\n        & 0.19477e-03_rb,0.82622e-03_rb,0.10041e-02_rb,0.10564e-02_rb,0.69293e-03_rb /)\n      kbo(:, 5,24, 7) = (/ &\n        & 0.20055e-03_rb,0.85104e-03_rb,0.10439e-02_rb,0.11053e-02_rb,0.73424e-03_rb /)\n      kbo(:, 1,25, 7) = (/ &\n        & 0.14110e-03_rb,0.63531e-03_rb,0.75746e-03_rb,0.78109e-03_rb,0.49195e-03_rb /)\n      kbo(:, 2,25, 7) = (/ &\n        & 0.14860e-03_rb,0.65629e-03_rb,0.78801e-03_rb,0.81951e-03_rb,0.52472e-03_rb /)\n      kbo(:, 3,25, 7) = (/ &\n        & 0.15502e-03_rb,0.67802e-03_rb,0.82018e-03_rb,0.86005e-03_rb,0.55929e-03_rb /)\n      kbo(:, 4,25, 7) = (/ &\n        & 0.16054e-03_rb,0.70023e-03_rb,0.85487e-03_rb,0.90270e-03_rb,0.59546e-03_rb /)\n      kbo(:, 5,25, 7) = (/ &\n        & 0.16506e-03_rb,0.72333e-03_rb,0.89213e-03_rb,0.94794e-03_rb,0.63296e-03_rb /)\n      kbo(:, 1,26, 7) = (/ &\n        & 0.11704e-03_rb,0.53563e-03_rb,0.64089e-03_rb,0.66348e-03_rb,0.42036e-03_rb /)\n      kbo(:, 2,26, 7) = (/ &\n        & 0.12296e-03_rb,0.55482e-03_rb,0.66859e-03_rb,0.69842e-03_rb,0.44986e-03_rb /)\n      kbo(:, 3,26, 7) = (/ &\n        & 0.12804e-03_rb,0.57460e-03_rb,0.69838e-03_rb,0.73532e-03_rb,0.48115e-03_rb /)\n      kbo(:, 4,26, 7) = (/ &\n        & 0.13237e-03_rb,0.59528e-03_rb,0.73081e-03_rb,0.77472e-03_rb,0.51371e-03_rb /)\n      kbo(:, 5,26, 7) = (/ &\n        & 0.13587e-03_rb,0.61708e-03_rb,0.76562e-03_rb,0.81649e-03_rb,0.54800e-03_rb /)\n      kbo(:, 1,27, 7) = (/ &\n        & 0.97037e-04_rb,0.45263e-03_rb,0.54353e-03_rb,0.56528e-03_rb,0.36031e-03_rb /)\n      kbo(:, 2,27, 7) = (/ &\n        & 0.10171e-03_rb,0.47018e-03_rb,0.56899e-03_rb,0.59710e-03_rb,0.38698e-03_rb /)\n      kbo(:, 3,27, 7) = (/ &\n        & 0.10572e-03_rb,0.48833e-03_rb,0.59675e-03_rb,0.63096e-03_rb,0.41505e-03_rb /)\n      kbo(:, 4,27, 7) = (/ &\n        & 0.10911e-03_rb,0.50767e-03_rb,0.62713e-03_rb,0.66736e-03_rb,0.44466e-03_rb /)\n      kbo(:, 5,27, 7) = (/ &\n        & 0.11182e-03_rb,0.52830e-03_rb,0.65949e-03_rb,0.70600e-03_rb,0.47625e-03_rb /)\n      kbo(:, 1,28, 7) = (/ &\n        & 0.80419e-04_rb,0.38349e-03_rb,0.46224e-03_rb,0.48308e-03_rb,0.30982e-03_rb /)\n      kbo(:, 2,28, 7) = (/ &\n        & 0.84110e-04_rb,0.39943e-03_rb,0.48584e-03_rb,0.51214e-03_rb,0.33386e-03_rb /)\n      kbo(:, 3,28, 7) = (/ &\n        & 0.87283e-04_rb,0.41636e-03_rb,0.51189e-03_rb,0.54353e-03_rb,0.35924e-03_rb /)\n      kbo(:, 4,28, 7) = (/ &\n        & 0.89914e-04_rb,0.43456e-03_rb,0.54020e-03_rb,0.57698e-03_rb,0.38635e-03_rb /)\n      kbo(:, 5,28, 7) = (/ &\n        & 0.92003e-04_rb,0.45406e-03_rb,0.57030e-03_rb,0.61286e-03_rb,0.41553e-03_rb /)\n      kbo(:, 1,29, 7) = (/ &\n        & 0.66637e-04_rb,0.32580e-03_rb,0.39453e-03_rb,0.41439e-03_rb,0.26738e-03_rb /)\n      kbo(:, 2,29, 7) = (/ &\n        & 0.69552e-04_rb,0.34052e-03_rb,0.41660e-03_rb,0.44116e-03_rb,0.28904e-03_rb /)\n      kbo(:, 3,29, 7) = (/ &\n        & 0.72042e-04_rb,0.35633e-03_rb,0.44102e-03_rb,0.47005e-03_rb,0.31218e-03_rb /)\n      kbo(:, 4,29, 7) = (/ &\n        & 0.74082e-04_rb,0.37351e-03_rb,0.46731e-03_rb,0.50108e-03_rb,0.33714e-03_rb /)\n      kbo(:, 5,29, 7) = (/ &\n        & 0.75692e-04_rb,0.39190e-03_rb,0.49529e-03_rb,0.53447e-03_rb,0.36421e-03_rb /)\n      kbo(:, 1,30, 7) = (/ &\n        & 0.55194e-04_rb,0.27757e-03_rb,0.33804e-03_rb,0.35670e-03_rb,0.23148e-03_rb /)\n      kbo(:, 2,30, 7) = (/ &\n        & 0.57489e-04_rb,0.29130e-03_rb,0.35876e-03_rb,0.38143e-03_rb,0.25115e-03_rb /)\n      kbo(:, 3,30, 7) = (/ &\n        & 0.59445e-04_rb,0.30619e-03_rb,0.38148e-03_rb,0.40810e-03_rb,0.27242e-03_rb /)\n      kbo(:, 4,30, 7) = (/ &\n        & 0.61024e-04_rb,0.32233e-03_rb,0.40578e-03_rb,0.43698e-03_rb,0.29552e-03_rb /)\n      kbo(:, 5,30, 7) = (/ &\n        & 0.62251e-04_rb,0.33969e-03_rb,0.43185e-03_rb,0.46830e-03_rb,0.32052e-03_rb /)\n      kbo(:, 1,31, 7) = (/ &\n        & 0.45701e-04_rb,0.23736e-03_rb,0.29086e-03_rb,0.30834e-03_rb,0.20114e-03_rb /)\n      kbo(:, 2,31, 7) = (/ &\n        & 0.47516e-04_rb,0.25020e-03_rb,0.31032e-03_rb,0.33113e-03_rb,0.21916e-03_rb /)\n      kbo(:, 3,31, 7) = (/ &\n        & 0.49034e-04_rb,0.26424e-03_rb,0.33131e-03_rb,0.35593e-03_rb,0.23874e-03_rb /)\n      kbo(:, 4,31, 7) = (/ &\n        & 0.50247e-04_rb,0.27943e-03_rb,0.35395e-03_rb,0.38299e-03_rb,0.26024e-03_rb /)\n      kbo(:, 5,31, 7) = (/ &\n        & 0.51186e-04_rb,0.29578e-03_rb,0.37829e-03_rb,0.41250e-03_rb,0.28341e-03_rb /)\n      kbo(:, 1,32, 7) = (/ &\n        & 0.37829e-04_rb,0.20379e-03_rb,0.25145e-03_rb,0.26761e-03_rb,0.17549e-03_rb /)\n      kbo(:, 2,32, 7) = (/ &\n        & 0.39256e-04_rb,0.21585e-03_rb,0.26951e-03_rb,0.28871e-03_rb,0.19207e-03_rb /)\n      kbo(:, 3,32, 7) = (/ &\n        & 0.40434e-04_rb,0.22904e-03_rb,0.28903e-03_rb,0.31192e-03_rb,0.21034e-03_rb /)\n      kbo(:, 4,32, 7) = (/ &\n        & 0.41367e-04_rb,0.24332e-03_rb,0.31020e-03_rb,0.33744e-03_rb,0.23024e-03_rb /)\n      kbo(:, 5,32, 7) = (/ &\n        & 0.42072e-04_rb,0.25873e-03_rb,0.33309e-03_rb,0.36527e-03_rb,0.25179e-03_rb /)\n      kbo(:, 1,33, 7) = (/ &\n        & 0.31302e-04_rb,0.17572e-03_rb,0.21830e-03_rb,0.23321e-03_rb,0.15375e-03_rb /)\n      kbo(:, 2,33, 7) = (/ &\n        & 0.32419e-04_rb,0.18706e-03_rb,0.23504e-03_rb,0.25291e-03_rb,0.16915e-03_rb /)\n      kbo(:, 3,33, 7) = (/ &\n        & 0.33327e-04_rb,0.19940e-03_rb,0.25328e-03_rb,0.27479e-03_rb,0.18617e-03_rb /)\n      kbo(:, 4,33, 7) = (/ &\n        & 0.34039e-04_rb,0.21283e-03_rb,0.27315e-03_rb,0.29887e-03_rb,0.20465e-03_rb /)\n      kbo(:, 5,33, 7) = (/ &\n        & 0.34568e-04_rb,0.22731e-03_rb,0.29474e-03_rb,0.32519e-03_rb,0.22485e-03_rb /)\n      kbo(:, 1,34, 7) = (/ &\n        & 0.25851e-04_rb,0.15182e-03_rb,0.18976e-03_rb,0.20353e-03_rb,0.13483e-03_rb /)\n      kbo(:, 2,34, 7) = (/ &\n        & 0.26731e-04_rb,0.16241e-03_rb,0.20531e-03_rb,0.22199e-03_rb,0.14918e-03_rb /)\n      kbo(:, 3,34, 7) = (/ &\n        & 0.27437e-04_rb,0.17395e-03_rb,0.22237e-03_rb,0.24258e-03_rb,0.16491e-03_rb /)\n      kbo(:, 4,34, 7) = (/ &\n        & 0.27988e-04_rb,0.18656e-03_rb,0.24113e-03_rb,0.26529e-03_rb,0.18217e-03_rb /)\n      kbo(:, 5,34, 7) = (/ &\n        & 0.28384e-04_rb,0.20017e-03_rb,0.26144e-03_rb,0.29020e-03_rb,0.20116e-03_rb /)\n      kbo(:, 1,35, 7) = (/ &\n        & 0.21271e-04_rb,0.13078e-03_rb,0.16426e-03_rb,0.17685e-03_rb,0.11756e-03_rb /)\n      kbo(:, 2,35, 7) = (/ &\n        & 0.21975e-04_rb,0.14058e-03_rb,0.17865e-03_rb,0.19403e-03_rb,0.13072e-03_rb /)\n      kbo(:, 3,35, 7) = (/ &\n        & 0.22533e-04_rb,0.15132e-03_rb,0.19456e-03_rb,0.21323e-03_rb,0.14523e-03_rb /)\n      kbo(:, 4,35, 7) = (/ &\n        & 0.22966e-04_rb,0.16307e-03_rb,0.21206e-03_rb,0.23454e-03_rb,0.16133e-03_rb /)\n      kbo(:, 5,35, 7) = (/ &\n        & 0.23274e-04_rb,0.17579e-03_rb,0.23112e-03_rb,0.25800e-03_rb,0.17911e-03_rb /)\n      kbo(:, 1,36, 7) = (/ &\n        & 0.17431e-04_rb,0.11205e-03_rb,0.14128e-03_rb,0.15260e-03_rb,0.10161e-03_rb /)\n      kbo(:, 2,36, 7) = (/ &\n        & 0.18004e-04_rb,0.12103e-03_rb,0.15448e-03_rb,0.16840e-03_rb,0.11356e-03_rb /)\n      kbo(:, 3,36, 7) = (/ &\n        & 0.18458e-04_rb,0.13095e-03_rb,0.16918e-03_rb,0.18616e-03_rb,0.12687e-03_rb /)\n      kbo(:, 4,36, 7) = (/ &\n        & 0.18810e-04_rb,0.14182e-03_rb,0.18539e-03_rb,0.20596e-03_rb,0.14179e-03_rb /)\n      kbo(:, 5,36, 7) = (/ &\n        & 0.19059e-04_rb,0.15363e-03_rb,0.20317e-03_rb,0.22788e-03_rb,0.15831e-03_rb /)\n      kbo(:, 1,37, 7) = (/ &\n        & 0.14204e-04_rb,0.95010e-04_rb,0.12008e-03_rb,0.12996e-03_rb,0.86482e-04_rb /)\n      kbo(:, 2,37, 7) = (/ &\n        & 0.14685e-04_rb,0.10313e-03_rb,0.13200e-03_rb,0.14426e-03_rb,0.97179e-04_rb /)\n      kbo(:, 3,37, 7) = (/ &\n        & 0.15069e-04_rb,0.11214e-03_rb,0.14536e-03_rb,0.16042e-03_rb,0.10922e-03_rb /)\n      kbo(:, 4,37, 7) = (/ &\n        & 0.15369e-04_rb,0.12211e-03_rb,0.16020e-03_rb,0.17855e-03_rb,0.12282e-03_rb /)\n      kbo(:, 5,37, 7) = (/ &\n        & 0.15586e-04_rb,0.13296e-03_rb,0.17661e-03_rb,0.19876e-03_rb,0.13797e-03_rb /)\n      kbo(:, 1,38, 7) = (/ &\n        & 0.11571e-04_rb,0.80545e-04_rb,0.10206e-03_rb,0.11063e-03_rb,0.73563e-04_rb /)\n      kbo(:, 2,38, 7) = (/ &\n        & 0.11976e-04_rb,0.87875e-04_rb,0.11281e-03_rb,0.12357e-03_rb,0.83149e-04_rb /)\n      kbo(:, 3,38, 7) = (/ &\n        & 0.12301e-04_rb,0.96063e-04_rb,0.12495e-03_rb,0.13829e-03_rb,0.94026e-04_rb /)\n      kbo(:, 4,38, 7) = (/ &\n        & 0.12557e-04_rb,0.10518e-03_rb,0.13851e-03_rb,0.15487e-03_rb,0.10642e-03_rb /)\n      kbo(:, 5,38, 7) = (/ &\n        & 0.12744e-04_rb,0.11515e-03_rb,0.15364e-03_rb,0.17352e-03_rb,0.12029e-03_rb /)\n      kbo(:, 1,39, 7) = (/ &\n        & 0.94254e-05_rb,0.68333e-04_rb,0.86798e-04_rb,0.94247e-04_rb,0.62604e-04_rb /)\n      kbo(:, 2,39, 7) = (/ &\n        & 0.97657e-05_rb,0.74945e-04_rb,0.96495e-04_rb,0.10595e-03_rb,0.71185e-04_rb /)\n      kbo(:, 3,39, 7) = (/ &\n        & 0.10041e-04_rb,0.82376e-04_rb,0.10752e-03_rb,0.11934e-03_rb,0.81022e-04_rb /)\n      kbo(:, 4,39, 7) = (/ &\n        & 0.10258e-04_rb,0.90687e-04_rb,0.11992e-03_rb,0.13453e-03_rb,0.92315e-04_rb /)\n      kbo(:, 5,39, 7) = (/ &\n        & 0.10419e-04_rb,0.99852e-04_rb,0.13387e-03_rb,0.15177e-03_rb,0.10504e-03_rb /)\n      kbo(:, 1,40, 7) = (/ &\n        & 0.76452e-05_rb,0.57428e-04_rb,0.73021e-04_rb,0.79333e-04_rb,0.52568e-04_rb /)\n      kbo(:, 2,40, 7) = (/ &\n        & 0.79354e-05_rb,0.63315e-04_rb,0.81650e-04_rb,0.89752e-04_rb,0.60144e-04_rb /)\n      kbo(:, 3,40, 7) = (/ &\n        & 0.81739e-05_rb,0.69961e-04_rb,0.91542e-04_rb,0.10176e-03_rb,0.68905e-04_rb /)\n      kbo(:, 4,40, 7) = (/ &\n        & 0.83626e-05_rb,0.77456e-04_rb,0.10275e-03_rb,0.11552e-03_rb,0.79059e-04_rb /)\n      kbo(:, 5,40, 7) = (/ &\n        & 0.85064e-05_rb,0.85795e-04_rb,0.11542e-03_rb,0.13128e-03_rb,0.90578e-04_rb /)\n      kbo(:, 1,41, 7) = (/ &\n        & 0.61953e-05_rb,0.48163e-04_rb,0.61287e-04_rb,0.66616e-04_rb,0.44011e-04_rb /)\n      kbo(:, 2,41, 7) = (/ &\n        & 0.64418e-05_rb,0.53383e-04_rb,0.68934e-04_rb,0.75842e-04_rb,0.50670e-04_rb /)\n      kbo(:, 3,41, 7) = (/ &\n        & 0.66484e-05_rb,0.59312e-04_rb,0.77785e-04_rb,0.86580e-04_rb,0.58448e-04_rb /)\n      kbo(:, 4,41, 7) = (/ &\n        & 0.68134e-05_rb,0.66054e-04_rb,0.87876e-04_rb,0.98995e-04_rb,0.67543e-04_rb /)\n      kbo(:, 5,41, 7) = (/ &\n        & 0.69402e-05_rb,0.73614e-04_rb,0.99378e-04_rb,0.11337e-03_rb,0.77942e-04_rb /)\n      kbo(:, 1,42, 7) = (/ &\n        & 0.50170e-05_rb,0.40358e-04_rb,0.51378e-04_rb,0.55875e-04_rb,0.36794e-04_rb /)\n      kbo(:, 2,42, 7) = (/ &\n        & 0.52266e-05_rb,0.44971e-04_rb,0.58141e-04_rb,0.64024e-04_rb,0.42639e-04_rb /)\n      kbo(:, 3,42, 7) = (/ &\n        & 0.54046e-05_rb,0.50250e-04_rb,0.66034e-04_rb,0.73601e-04_rb,0.49527e-04_rb /)\n      kbo(:, 4,42, 7) = (/ &\n        & 0.55484e-05_rb,0.56302e-04_rb,0.75111e-04_rb,0.84788e-04_rb,0.57654e-04_rb /)\n      kbo(:, 5,42, 7) = (/ &\n        & 0.56600e-05_rb,0.63153e-04_rb,0.85551e-04_rb,0.97898e-04_rb,0.67040e-04_rb /)\n      kbo(:, 1,43, 7) = (/ &\n        & 0.40498e-05_rb,0.33563e-04_rb,0.42716e-04_rb,0.46433e-04_rb,0.30447e-04_rb /)\n      kbo(:, 2,43, 7) = (/ &\n        & 0.42291e-05_rb,0.37603e-04_rb,0.48619e-04_rb,0.53551e-04_rb,0.35516e-04_rb /)\n      kbo(:, 3,43, 7) = (/ &\n        & 0.43833e-05_rb,0.42260e-04_rb,0.55585e-04_rb,0.61999e-04_rb,0.41549e-04_rb /)\n      kbo(:, 4,43, 7) = (/ &\n        & 0.45099e-05_rb,0.47650e-04_rb,0.63668e-04_rb,0.71964e-04_rb,0.48728e-04_rb /)\n      kbo(:, 5,43, 7) = (/ &\n        & 0.46096e-05_rb,0.53790e-04_rb,0.73053e-04_rb,0.83779e-04_rb,0.57105e-04_rb /)\n      kbo(:, 1,44, 7) = (/ &\n        & 0.32616e-05_rb,0.27781e-04_rb,0.35335e-04_rb,0.38366e-04_rb,0.25032e-04_rb /)\n      kbo(:, 2,44, 7) = (/ &\n        & 0.34164e-05_rb,0.31296e-04_rb,0.40444e-04_rb,0.44531e-04_rb,0.29399e-04_rb /)\n      kbo(:, 3,44, 7) = (/ &\n        & 0.35491e-05_rb,0.35375e-04_rb,0.46540e-04_rb,0.51925e-04_rb,0.34633e-04_rb /)\n      kbo(:, 4,44, 7) = (/ &\n        & 0.36610e-05_rb,0.40146e-04_rb,0.53687e-04_rb,0.60738e-04_rb,0.40935e-04_rb /)\n      kbo(:, 5,44, 7) = (/ &\n        & 0.37500e-05_rb,0.45618e-04_rb,0.62061e-04_rb,0.71298e-04_rb,0.48356e-04_rb /)\n      kbo(:, 1,45, 7) = (/ &\n        & 0.26238e-05_rb,0.22952e-04_rb,0.29162e-04_rb,0.31630e-04_rb,0.20522e-04_rb /)\n      kbo(:, 2,45, 7) = (/ &\n        & 0.27571e-05_rb,0.25992e-04_rb,0.33567e-04_rb,0.36938e-04_rb,0.24268e-04_rb /)\n      kbo(:, 3,45, 7) = (/ &\n        & 0.28713e-05_rb,0.29549e-04_rb,0.38881e-04_rb,0.43383e-04_rb,0.28792e-04_rb /)\n      kbo(:, 4,45, 7) = (/ &\n        & 0.29693e-05_rb,0.33760e-04_rb,0.45177e-04_rb,0.51149e-04_rb,0.34303e-04_rb /)\n      kbo(:, 5,45, 7) = (/ &\n        & 0.30482e-05_rb,0.38627e-04_rb,0.52624e-04_rb,0.60551e-04_rb,0.40857e-04_rb /)\n      kbo(:, 1,46, 7) = (/ &\n        & 0.21051e-05_rb,0.18867e-04_rb,0.23935e-04_rb,0.25917e-04_rb,0.16710e-04_rb /)\n      kbo(:, 2,46, 7) = (/ &\n        & 0.22206e-05_rb,0.21480e-04_rb,0.27705e-04_rb,0.30449e-04_rb,0.19893e-04_rb /)\n      kbo(:, 3,46, 7) = (/ &\n        & 0.23191e-05_rb,0.24557e-04_rb,0.32298e-04_rb,0.36019e-04_rb,0.23769e-04_rb /)\n      kbo(:, 4,46, 7) = (/ &\n        & 0.24046e-05_rb,0.28239e-04_rb,0.37798e-04_rb,0.42807e-04_rb,0.28545e-04_rb /)\n      kbo(:, 5,46, 7) = (/ &\n        & 0.24746e-05_rb,0.32543e-04_rb,0.44374e-04_rb,0.51109e-04_rb,0.34299e-04_rb /)\n      kbo(:, 1,47, 7) = (/ &\n        & 0.16817e-05_rb,0.15386e-04_rb,0.19464e-04_rb,0.21024e-04_rb,0.13455e-04_rb /)\n      kbo(:, 2,47, 7) = (/ &\n        & 0.17822e-05_rb,0.17605e-04_rb,0.22652e-04_rb,0.24840e-04_rb,0.16124e-04_rb /)\n      kbo(:, 3,47, 7) = (/ &\n        & 0.18680e-05_rb,0.20236e-04_rb,0.26567e-04_rb,0.29585e-04_rb,0.19401e-04_rb /)\n      kbo(:, 4,47, 7) = (/ &\n        & 0.19423e-05_rb,0.23413e-04_rb,0.31317e-04_rb,0.35433e-04_rb,0.23476e-04_rb /)\n      kbo(:, 5,47, 7) = (/ &\n        & 0.20049e-05_rb,0.27181e-04_rb,0.37054e-04_rb,0.42668e-04_rb,0.28466e-04_rb /)\n      kbo(:, 1,48, 7) = (/ &\n        & 0.13405e-05_rb,0.12514e-04_rb,0.15779e-04_rb,0.16993e-04_rb,0.10791e-04_rb /)\n      kbo(:, 2,48, 7) = (/ &\n        & 0.14280e-05_rb,0.14385e-04_rb,0.18460e-04_rb,0.20187e-04_rb,0.13017e-04_rb /)\n      kbo(:, 3,48, 7) = (/ &\n        & 0.15026e-05_rb,0.16623e-04_rb,0.21773e-04_rb,0.24205e-04_rb,0.15768e-04_rb /)\n      kbo(:, 4,48, 7) = (/ &\n        & 0.15671e-05_rb,0.19354e-04_rb,0.25854e-04_rb,0.29218e-04_rb,0.19227e-04_rb /)\n      kbo(:, 5,48, 7) = (/ &\n        & 0.16224e-05_rb,0.22629e-04_rb,0.30833e-04_rb,0.35479e-04_rb,0.23525e-04_rb /)\n      kbo(:, 1,49, 7) = (/ &\n        & 0.10664e-05_rb,0.10149e-04_rb,0.12751e-04_rb,0.13684e-04_rb,0.86188e-05_rb /)\n      kbo(:, 2,49, 7) = (/ &\n        & 0.11418e-05_rb,0.11720e-04_rb,0.14999e-04_rb,0.16352e-04_rb,0.10467e-04_rb /)\n      kbo(:, 3,49, 7) = (/ &\n        & 0.12069e-05_rb,0.13612e-04_rb,0.17780e-04_rb,0.19716e-04_rb,0.12759e-04_rb /)\n      kbo(:, 4,49, 7) = (/ &\n        & 0.12630e-05_rb,0.15945e-04_rb,0.21262e-04_rb,0.23990e-04_rb,0.15676e-04_rb /)\n      kbo(:, 5,49, 7) = (/ &\n        & 0.13113e-05_rb,0.18775e-04_rb,0.25560e-04_rb,0.29382e-04_rb,0.19352e-04_rb /)\n      kbo(:, 1,50, 7) = (/ &\n        & 0.84808e-06_rb,0.82401e-05_rb,0.10318e-04_rb,0.11036e-04_rb,0.68939e-05_rb /)\n      kbo(:, 2,50, 7) = (/ &\n        & 0.91269e-06_rb,0.95513e-05_rb,0.12189e-04_rb,0.13247e-04_rb,0.84209e-05_rb /)\n      kbo(:, 3,50, 7) = (/ &\n        & 0.96928e-06_rb,0.11160e-04_rb,0.14539e-04_rb,0.16084e-04_rb,0.10336e-04_rb /)\n      kbo(:, 4,50, 7) = (/ &\n        & 0.10177e-05_rb,0.13146e-04_rb,0.17498e-04_rb,0.19711e-04_rb,0.12790e-04_rb /)\n      kbo(:, 5,50, 7) = (/ &\n        & 0.10595e-05_rb,0.15592e-04_rb,0.21207e-04_rb,0.24356e-04_rb,0.15929e-04_rb /)\n      kbo(:, 1,51, 7) = (/ &\n        & 0.67378e-06_rb,0.66826e-05_rb,0.83381e-05_rb,0.88828e-05_rb,0.55052e-05_rb /)\n      kbo(:, 2,51, 7) = (/ &\n        & 0.72873e-06_rb,0.77753e-05_rb,0.98905e-05_rb,0.10714e-04_rb,0.67636e-05_rb /)\n      kbo(:, 3,51, 7) = (/ &\n        & 0.77763e-06_rb,0.91368e-05_rb,0.11866e-04_rb,0.13091e-04_rb,0.83559e-05_rb /)\n      kbo(:, 4,51, 7) = (/ &\n        & 0.81953e-06_rb,0.10824e-04_rb,0.14378e-04_rb,0.16168e-04_rb,0.10417e-04_rb /)\n      kbo(:, 5,51, 7) = (/ &\n        & 0.85561e-06_rb,0.12933e-04_rb,0.17571e-04_rb,0.20159e-04_rb,0.13087e-04_rb /)\n      kbo(:, 1,52, 7) = (/ &\n        & 0.53444e-06_rb,0.54066e-05_rb,0.67197e-05_rb,0.71297e-05_rb,0.43814e-05_rb /)\n      kbo(:, 2,52, 7) = (/ &\n        & 0.58095e-06_rb,0.63124e-05_rb,0.79989e-05_rb,0.86346e-05_rb,0.54122e-05_rb /)\n      kbo(:, 3,52, 7) = (/ &\n        & 0.62282e-06_rb,0.74561e-05_rb,0.96489e-05_rb,0.10614e-04_rb,0.67289e-05_rb /)\n      kbo(:, 4,52, 7) = (/ &\n        & 0.65913e-06_rb,0.88917e-05_rb,0.11780e-04_rb,0.13220e-04_rb,0.84497e-05_rb /)\n      kbo(:, 5,52, 7) = (/ &\n        & 0.69032e-06_rb,0.10691e-04_rb,0.14504e-04_rb,0.16615e-04_rb,0.10706e-04_rb /)\n      kbo(:, 1,53, 7) = (/ &\n        & 0.42309e-06_rb,0.43635e-05_rb,0.54017e-05_rb,0.57047e-05_rb,0.34733e-05_rb /)\n      kbo(:, 2,53, 7) = (/ &\n        & 0.46223e-06_rb,0.51097e-05_rb,0.64465e-05_rb,0.69322e-05_rb,0.43120e-05_rb /)\n      kbo(:, 3,53, 7) = (/ &\n        & 0.49791e-06_rb,0.60643e-05_rb,0.78166e-05_rb,0.85690e-05_rb,0.53948e-05_rb /)\n      kbo(:, 4,53, 7) = (/ &\n        & 0.52942e-06_rb,0.72726e-05_rb,0.96042e-05_rb,0.10748e-04_rb,0.68211e-05_rb /)\n      kbo(:, 5,53, 7) = (/ &\n        & 0.55635e-06_rb,0.88074e-05_rb,0.11924e-04_rb,0.13632e-04_rb,0.87176e-05_rb /)\n      kbo(:, 1,54, 7) = (/ &\n        & 0.33525e-06_rb,0.35291e-05_rb,0.43533e-05_rb,0.45783e-05_rb,0.27618e-05_rb /)\n      kbo(:, 2,54, 7) = (/ &\n        & 0.36801e-06_rb,0.41464e-05_rb,0.52098e-05_rb,0.55821e-05_rb,0.34468e-05_rb /)\n      kbo(:, 3,54, 7) = (/ &\n        & 0.39830e-06_rb,0.49442e-05_rb,0.63495e-05_rb,0.69393e-05_rb,0.43390e-05_rb /)\n      kbo(:, 4,54, 7) = (/ &\n        & 0.42530e-06_rb,0.59638e-05_rb,0.78520e-05_rb,0.87652e-05_rb,0.55238e-05_rb /)\n      kbo(:, 5,54, 7) = (/ &\n        & 0.44850e-06_rb,0.72711e-05_rb,0.98256e-05_rb,0.11213e-04_rb,0.71180e-05_rb /)\n      kbo(:, 1,55, 7) = (/ &\n        & 0.26561e-06_rb,0.28535e-05_rb,0.35091e-05_rb,0.36747e-05_rb,0.21953e-05_rb /)\n      kbo(:, 2,55, 7) = (/ &\n        & 0.29299e-06_rb,0.33630e-05_rb,0.42093e-05_rb,0.44935e-05_rb,0.27543e-05_rb /)\n      kbo(:, 3,55, 7) = (/ &\n        & 0.31855e-06_rb,0.40286e-05_rb,0.51555e-05_rb,0.56160e-05_rb,0.34885e-05_rb /)\n      kbo(:, 4,55, 7) = (/ &\n        & 0.34149e-06_rb,0.48884e-05_rb,0.64166e-05_rb,0.71432e-05_rb,0.44712e-05_rb /)\n      kbo(:, 5,55, 7) = (/ &\n        & 0.36149e-06_rb,0.60082e-05_rb,0.81053e-05_rb,0.92338e-05_rb,0.58114e-05_rb /)\n      kbo(:, 1,56, 7) = (/ &\n        & 0.21017e-06_rb,0.23019e-05_rb,0.28217e-05_rb,0.29420e-05_rb,0.17403e-05_rb /)\n      kbo(:, 2,56, 7) = (/ &\n        & 0.23294e-06_rb,0.27215e-05_rb,0.33922e-05_rb,0.36070e-05_rb,0.21943e-05_rb /)\n      kbo(:, 3,56, 7) = (/ &\n        & 0.25436e-06_rb,0.32732e-05_rb,0.41720e-05_rb,0.45291e-05_rb,0.27950e-05_rb /)\n      kbo(:, 4,56, 7) = (/ &\n        & 0.27383e-06_rb,0.39951e-05_rb,0.52252e-05_rb,0.57990e-05_rb,0.36054e-05_rb /)\n      kbo(:, 5,56, 7) = (/ &\n        & 0.29106e-06_rb,0.49429e-05_rb,0.66518e-05_rb,0.75613e-05_rb,0.47246e-05_rb /)\n      kbo(:, 1,57, 7) = (/ &\n        & 0.16608e-06_rb,0.18531e-05_rb,0.22639e-05_rb,0.23504e-05_rb,0.13760e-05_rb /)\n      kbo(:, 2,57, 7) = (/ &\n        & 0.18488e-06_rb,0.21971e-05_rb,0.27271e-05_rb,0.28870e-05_rb,0.17421e-05_rb /)\n      kbo(:, 3,57, 7) = (/ &\n        & 0.20279e-06_rb,0.26520e-05_rb,0.33659e-05_rb,0.36392e-05_rb,0.22316e-05_rb /)\n      kbo(:, 4,57, 7) = (/ &\n        & 0.21931e-06_rb,0.32543e-05_rb,0.42391e-05_rb,0.46891e-05_rb,0.28949e-05_rb /)\n      kbo(:, 5,57, 7) = (/ &\n        & 0.23404e-06_rb,0.40527e-05_rb,0.54380e-05_rb,0.61649e-05_rb,0.38234e-05_rb /)\n      kbo(:, 1,58, 7) = (/ &\n        & 0.13131e-06_rb,0.14927e-05_rb,0.18179e-05_rb,0.18787e-05_rb,0.10893e-05_rb /)\n      kbo(:, 2,58, 7) = (/ &\n        & 0.14677e-06_rb,0.17748e-05_rb,0.21946e-05_rb,0.23122e-05_rb,0.13839e-05_rb /)\n      kbo(:, 3,58, 7) = (/ &\n        & 0.16171e-06_rb,0.21494e-05_rb,0.27171e-05_rb,0.29256e-05_rb,0.17827e-05_rb /)\n      kbo(:, 4,58, 7) = (/ &\n        & 0.17567e-06_rb,0.26514e-05_rb,0.34407e-05_rb,0.37923e-05_rb,0.23269e-05_rb /)\n      kbo(:, 5,58, 7) = (/ &\n        & 0.18816e-06_rb,0.33237e-05_rb,0.44466e-05_rb,0.50280e-05_rb,0.30958e-05_rb /)\n      kbo(:, 1,59, 7) = (/ &\n        & 0.10599e-06_rb,0.12374e-05_rb,0.15060e-05_rb,0.15543e-05_rb,0.89750e-06_rb /)\n      kbo(:, 2,59, 7) = (/ &\n        & 0.11868e-06_rb,0.14795e-05_rb,0.18285e-05_rb,0.19251e-05_rb,0.11479e-05_rb /)\n      kbo(:, 3,59, 7) = (/ &\n        & 0.13098e-06_rb,0.18042e-05_rb,0.22807e-05_rb,0.24552e-05_rb,0.14897e-05_rb /)\n      kbo(:, 4,59, 7) = (/ &\n        & 0.14252e-06_rb,0.22439e-05_rb,0.29152e-05_rb,0.32163e-05_rb,0.19622e-05_rb /)\n      kbo(:, 5,59, 7) = (/ &\n        & 0.15291e-06_rb,0.28396e-05_rb,0.38087e-05_rb,0.43138e-05_rb,0.26387e-05_rb /)\n      kbo(:, 1,13, 8) = (/ &\n        & 0.83673e-02_rb,0.17454e-01_rb,0.20213e-01_rb,0.20132e-01_rb,0.13810e-01_rb /)\n      kbo(:, 2,13, 8) = (/ &\n        & 0.85039e-02_rb,0.17824e-01_rb,0.20684e-01_rb,0.20616e-01_rb,0.14219e-01_rb /)\n      kbo(:, 3,13, 8) = (/ &\n        & 0.86129e-02_rb,0.18196e-01_rb,0.21163e-01_rb,0.21143e-01_rb,0.14616e-01_rb /)\n      kbo(:, 4,13, 8) = (/ &\n        & 0.86913e-02_rb,0.18563e-01_rb,0.21635e-01_rb,0.21674e-01_rb,0.14991e-01_rb /)\n      kbo(:, 5,13, 8) = (/ &\n        & 0.87301e-02_rb,0.18916e-01_rb,0.22103e-01_rb,0.22198e-01_rb,0.15351e-01_rb /)\n      kbo(:, 1,14, 8) = (/ &\n        & 0.69346e-02_rb,0.14952e-01_rb,0.17380e-01_rb,0.17342e-01_rb,0.11803e-01_rb /)\n      kbo(:, 2,14, 8) = (/ &\n        & 0.70328e-02_rb,0.15276e-01_rb,0.17808e-01_rb,0.17830e-01_rb,0.12181e-01_rb /)\n      kbo(:, 3,14, 8) = (/ &\n        & 0.71113e-02_rb,0.15604e-01_rb,0.18240e-01_rb,0.18321e-01_rb,0.12544e-01_rb /)\n      kbo(:, 4,14, 8) = (/ &\n        & 0.71580e-02_rb,0.15937e-01_rb,0.18667e-01_rb,0.18814e-01_rb,0.12884e-01_rb /)\n      kbo(:, 5,14, 8) = (/ &\n        & 0.71785e-02_rb,0.16228e-01_rb,0.19093e-01_rb,0.19299e-01_rb,0.13230e-01_rb /)\n      kbo(:, 1,15, 8) = (/ &\n        & 0.57307e-02_rb,0.12763e-01_rb,0.14890e-01_rb,0.14912e-01_rb,0.10073e-01_rb /)\n      kbo(:, 2,15, 8) = (/ &\n        & 0.58017e-02_rb,0.13052e-01_rb,0.15278e-01_rb,0.15370e-01_rb,0.10417e-01_rb /)\n      kbo(:, 3,15, 8) = (/ &\n        & 0.58533e-02_rb,0.13347e-01_rb,0.15666e-01_rb,0.15828e-01_rb,0.10742e-01_rb /)\n      kbo(:, 4,15, 8) = (/ &\n        & 0.58826e-02_rb,0.13628e-01_rb,0.16057e-01_rb,0.16289e-01_rb,0.11066e-01_rb /)\n      kbo(:, 5,15, 8) = (/ &\n        & 0.58933e-02_rb,0.13873e-01_rb,0.16444e-01_rb,0.16739e-01_rb,0.11388e-01_rb /)\n      kbo(:, 1,16, 8) = (/ &\n        & 0.47247e-02_rb,0.10863e-01_rb,0.12723e-01_rb,0.12788e-01_rb,0.85822e-02_rb /)\n      kbo(:, 2,16, 8) = (/ &\n        & 0.47755e-02_rb,0.11124e-01_rb,0.13076e-01_rb,0.13211e-01_rb,0.88907e-02_rb /)\n      kbo(:, 3,16, 8) = (/ &\n        & 0.48095e-02_rb,0.11385e-01_rb,0.13431e-01_rb,0.13641e-01_rb,0.91903e-02_rb /)\n      kbo(:, 4,16, 8) = (/ &\n        & 0.48283e-02_rb,0.11622e-01_rb,0.13790e-01_rb,0.14066e-01_rb,0.94912e-02_rb /)\n      kbo(:, 5,16, 8) = (/ &\n        & 0.48333e-02_rb,0.11841e-01_rb,0.14135e-01_rb,0.14487e-01_rb,0.97938e-02_rb /)\n      kbo(:, 1,17, 8) = (/ &\n        & 0.38881e-02_rb,0.92313e-02_rb,0.10848e-01_rb,0.10942e-01_rb,0.73006e-02_rb /)\n      kbo(:, 2,17, 8) = (/ &\n        & 0.39238e-02_rb,0.94601e-02_rb,0.11171e-01_rb,0.11333e-01_rb,0.75792e-02_rb /)\n      kbo(:, 3,17, 8) = (/ &\n        & 0.39468e-02_rb,0.96874e-02_rb,0.11500e-01_rb,0.11732e-01_rb,0.78560e-02_rb /)\n      kbo(:, 4,17, 8) = (/ &\n        & 0.39590e-02_rb,0.98962e-02_rb,0.11826e-01_rb,0.12129e-01_rb,0.81376e-02_rb /)\n      kbo(:, 5,17, 8) = (/ &\n        & 0.39612e-02_rb,0.10094e-01_rb,0.12144e-01_rb,0.12521e-01_rb,0.84293e-02_rb /)\n      kbo(:, 1,18, 8) = (/ &\n        & 0.31953e-02_rb,0.78309e-02_rb,0.92361e-02_rb,0.93523e-02_rb,0.62048e-02_rb /)\n      kbo(:, 2,18, 8) = (/ &\n        & 0.32208e-02_rb,0.80372e-02_rb,0.95350e-02_rb,0.97148e-02_rb,0.64590e-02_rb /)\n      kbo(:, 3,18, 8) = (/ &\n        & 0.32365e-02_rb,0.82342e-02_rb,0.98382e-02_rb,0.10082e-01_rb,0.67154e-02_rb /)\n      kbo(:, 4,18, 8) = (/ &\n        & 0.32447e-02_rb,0.84229e-02_rb,0.10138e-01_rb,0.10450e-01_rb,0.69838e-02_rb /)\n      kbo(:, 5,18, 8) = (/ &\n        & 0.32450e-02_rb,0.86061e-02_rb,0.10427e-01_rb,0.10814e-01_rb,0.72626e-02_rb /)\n      kbo(:, 1,19, 8) = (/ &\n        & 0.26235e-02_rb,0.66399e-02_rb,0.78599e-02_rb,0.79875e-02_rb,0.52728e-02_rb /)\n      kbo(:, 2,19, 8) = (/ &\n        & 0.26414e-02_rb,0.68231e-02_rb,0.81351e-02_rb,0.83230e-02_rb,0.55070e-02_rb /)\n      kbo(:, 3,19, 8) = (/ &\n        & 0.26530e-02_rb,0.70004e-02_rb,0.84138e-02_rb,0.86629e-02_rb,0.57468e-02_rb /)\n      kbo(:, 4,19, 8) = (/ &\n        & 0.26583e-02_rb,0.71756e-02_rb,0.86887e-02_rb,0.90029e-02_rb,0.60006e-02_rb /)\n      kbo(:, 5,19, 8) = (/ &\n        & 0.26573e-02_rb,0.73457e-02_rb,0.89549e-02_rb,0.93422e-02_rb,0.62658e-02_rb /)\n      kbo(:, 1,20, 8) = (/ &\n        & 0.21528e-02_rb,0.56300e-02_rb,0.66928e-02_rb,0.68275e-02_rb,0.44887e-02_rb /)\n      kbo(:, 2,20, 8) = (/ &\n        & 0.21659e-02_rb,0.57965e-02_rb,0.69483e-02_rb,0.71374e-02_rb,0.47044e-02_rb /)\n      kbo(:, 3,20, 8) = (/ &\n        & 0.21742e-02_rb,0.59617e-02_rb,0.72036e-02_rb,0.74503e-02_rb,0.49314e-02_rb /)\n      kbo(:, 4,20, 8) = (/ &\n        & 0.21777e-02_rb,0.61251e-02_rb,0.74562e-02_rb,0.77657e-02_rb,0.51700e-02_rb /)\n      kbo(:, 5,20, 8) = (/ &\n        & 0.21757e-02_rb,0.62850e-02_rb,0.77065e-02_rb,0.80891e-02_rb,0.54225e-02_rb /)\n      kbo(:, 1,21, 8) = (/ &\n        & 0.17659e-02_rb,0.47778e-02_rb,0.57054e-02_rb,0.58417e-02_rb,0.38271e-02_rb /)\n      kbo(:, 2,21, 8) = (/ &\n        & 0.17754e-02_rb,0.49299e-02_rb,0.59393e-02_rb,0.61257e-02_rb,0.40264e-02_rb /)\n      kbo(:, 3,21, 8) = (/ &\n        & 0.17817e-02_rb,0.50836e-02_rb,0.61750e-02_rb,0.64148e-02_rb,0.42397e-02_rb /)\n      kbo(:, 4,21, 8) = (/ &\n        & 0.17836e-02_rb,0.52370e-02_rb,0.64083e-02_rb,0.67125e-02_rb,0.44647e-02_rb /)\n      kbo(:, 5,21, 8) = (/ &\n        & 0.17811e-02_rb,0.53876e-02_rb,0.66480e-02_rb,0.70201e-02_rb,0.47076e-02_rb /)\n      kbo(:, 1,22, 8) = (/ &\n        & 0.14486e-02_rb,0.40679e-02_rb,0.48826e-02_rb,0.50205e-02_rb,0.32805e-02_rb /)\n      kbo(:, 2,22, 8) = (/ &\n        & 0.14554e-02_rb,0.42085e-02_rb,0.50980e-02_rb,0.52827e-02_rb,0.34669e-02_rb /)\n      kbo(:, 3,22, 8) = (/ &\n        & 0.14597e-02_rb,0.43515e-02_rb,0.53153e-02_rb,0.55535e-02_rb,0.36674e-02_rb /)\n      kbo(:, 4,22, 8) = (/ &\n        & 0.14606e-02_rb,0.44957e-02_rb,0.55353e-02_rb,0.58376e-02_rb,0.38816e-02_rb /)\n      kbo(:, 5,22, 8) = (/ &\n        & 0.14577e-02_rb,0.46383e-02_rb,0.57672e-02_rb,0.61302e-02_rb,0.41156e-02_rb /)\n      kbo(:, 1,23, 8) = (/ &\n        & 0.11880e-02_rb,0.34698e-02_rb,0.41861e-02_rb,0.43248e-02_rb,0.28199e-02_rb /)\n      kbo(:, 2,23, 8) = (/ &\n        & 0.11929e-02_rb,0.36010e-02_rb,0.43862e-02_rb,0.45689e-02_rb,0.29956e-02_rb /)\n      kbo(:, 3,23, 8) = (/ &\n        & 0.11958e-02_rb,0.37344e-02_rb,0.45877e-02_rb,0.48273e-02_rb,0.31843e-02_rb /)\n      kbo(:, 4,23, 8) = (/ &\n        & 0.11959e-02_rb,0.38697e-02_rb,0.48007e-02_rb,0.50965e-02_rb,0.33903e-02_rb /)\n      kbo(:, 5,23, 8) = (/ &\n        & 0.11929e-02_rb,0.40068e-02_rb,0.50232e-02_rb,0.53791e-02_rb,0.36136e-02_rb /)\n      kbo(:, 1,24, 8) = (/ &\n        & 0.97406e-03_rb,0.29675e-02_rb,0.36006e-02_rb,0.37379e-02_rb,0.24344e-02_rb /)\n      kbo(:, 2,24, 8) = (/ &\n        & 0.97756e-03_rb,0.30896e-02_rb,0.37850e-02_rb,0.39686e-02_rb,0.25994e-02_rb /)\n      kbo(:, 3,24, 8) = (/ &\n        & 0.97946e-03_rb,0.32150e-02_rb,0.39775e-02_rb,0.42135e-02_rb,0.27776e-02_rb /)\n      kbo(:, 4,24, 8) = (/ &\n        & 0.97899e-03_rb,0.33430e-02_rb,0.41825e-02_rb,0.44708e-02_rb,0.29753e-02_rb /)\n      kbo(:, 5,24, 8) = (/ &\n        & 0.97615e-03_rb,0.34761e-02_rb,0.43966e-02_rb,0.47457e-02_rb,0.31900e-02_rb /)\n      kbo(:, 1,25, 8) = (/ &\n        & 0.79856e-03_rb,0.25459e-02_rb,0.31077e-02_rb,0.32447e-02_rb,0.21114e-02_rb /)\n      kbo(:, 2,25, 8) = (/ &\n        & 0.80110e-03_rb,0.26605e-02_rb,0.32805e-02_rb,0.34640e-02_rb,0.22664e-02_rb /)\n      kbo(:, 3,25, 8) = (/ &\n        & 0.80222e-03_rb,0.27778e-02_rb,0.34666e-02_rb,0.36958e-02_rb,0.24376e-02_rb /)\n      kbo(:, 4,25, 8) = (/ &\n        & 0.80129e-03_rb,0.29014e-02_rb,0.36623e-02_rb,0.39444e-02_rb,0.26269e-02_rb /)\n      kbo(:, 5,25, 8) = (/ &\n        & 0.79857e-03_rb,0.30302e-02_rb,0.38698e-02_rb,0.42126e-02_rb,0.28335e-02_rb /)\n      kbo(:, 1,26, 8) = (/ &\n        & 0.65460e-03_rb,0.21933e-02_rb,0.26944e-02_rb,0.28334e-02_rb,0.18417e-02_rb /)\n      kbo(:, 2,26, 8) = (/ &\n        & 0.65639e-03_rb,0.23003e-02_rb,0.28599e-02_rb,0.30409e-02_rb,0.19886e-02_rb /)\n      kbo(:, 3,26, 8) = (/ &\n        & 0.65685e-03_rb,0.24132e-02_rb,0.30384e-02_rb,0.32639e-02_rb,0.21545e-02_rb /)\n      kbo(:, 4,26, 8) = (/ &\n        & 0.65577e-03_rb,0.25323e-02_rb,0.32275e-02_rb,0.35055e-02_rb,0.23366e-02_rb /)\n      kbo(:, 5,26, 8) = (/ &\n        & 0.65325e-03_rb,0.26572e-02_rb,0.34294e-02_rb,0.37687e-02_rb,0.25365e-02_rb /)\n      kbo(:, 1,27, 8) = (/ &\n        & 0.53655e-03_rb,0.18966e-02_rb,0.23474e-02_rb,0.24873e-02_rb,0.16142e-02_rb /)\n      kbo(:, 2,27, 8) = (/ &\n        & 0.53777e-03_rb,0.19979e-02_rb,0.25069e-02_rb,0.26849e-02_rb,0.17570e-02_rb /)\n      kbo(:, 3,27, 8) = (/ &\n        & 0.53783e-03_rb,0.21070e-02_rb,0.26778e-02_rb,0.29010e-02_rb,0.19163e-02_rb /)\n      kbo(:, 4,27, 8) = (/ &\n        & 0.53661e-03_rb,0.22218e-02_rb,0.28609e-02_rb,0.31373e-02_rb,0.20925e-02_rb /)\n      kbo(:, 5,27, 8) = (/ &\n        & 0.53426e-03_rb,0.23437e-02_rb,0.30591e-02_rb,0.33953e-02_rb,0.22871e-02_rb /)\n      kbo(:, 1,28, 8) = (/ &\n        & 0.43973e-03_rb,0.16467e-02_rb,0.20564e-02_rb,0.21950e-02_rb,0.14243e-02_rb /)\n      kbo(:, 2,28, 8) = (/ &\n        & 0.44046e-03_rb,0.17445e-02_rb,0.22094e-02_rb,0.23854e-02_rb,0.15622e-02_rb /)\n      kbo(:, 3,28, 8) = (/ &\n        & 0.44027e-03_rb,0.18495e-02_rb,0.23737e-02_rb,0.25954e-02_rb,0.17160e-02_rb /)\n      kbo(:, 4,28, 8) = (/ &\n        & 0.43902e-03_rb,0.19607e-02_rb,0.25527e-02_rb,0.28280e-02_rb,0.18875e-02_rb /)\n      kbo(:, 5,28, 8) = (/ &\n        & 0.43690e-03_rb,0.20797e-02_rb,0.27483e-02_rb,0.30809e-02_rb,0.20783e-02_rb /)\n      kbo(:, 1,29, 8) = (/ &\n        & 0.36035e-03_rb,0.14377e-02_rb,0.18129e-02_rb,0.19502e-02_rb,0.12665e-02_rb /)\n      kbo(:, 2,29, 8) = (/ &\n        & 0.36078e-03_rb,0.15322e-02_rb,0.19593e-02_rb,0.21346e-02_rb,0.13993e-02_rb /)\n      kbo(:, 3,29, 8) = (/ &\n        & 0.36035e-03_rb,0.16333e-02_rb,0.21194e-02_rb,0.23407e-02_rb,0.15489e-02_rb /)\n      kbo(:, 4,29, 8) = (/ &\n        & 0.35917e-03_rb,0.17416e-02_rb,0.22958e-02_rb,0.25693e-02_rb,0.17169e-02_rb /)\n      kbo(:, 5,29, 8) = (/ &\n        & 0.35722e-03_rb,0.18583e-02_rb,0.24893e-02_rb,0.28199e-02_rb,0.19058e-02_rb /)\n      kbo(:, 1,30, 8) = (/ &\n        & 0.29522e-03_rb,0.12625e-02_rb,0.16073e-02_rb,0.17444e-02_rb,0.11337e-02_rb /)\n      kbo(:, 2,30, 8) = (/ &\n        & 0.29544e-03_rb,0.13534e-02_rb,0.17493e-02_rb,0.19248e-02_rb,0.12629e-02_rb /)\n      kbo(:, 3,30, 8) = (/ &\n        & 0.29489e-03_rb,0.14513e-02_rb,0.19064e-02_rb,0.21281e-02_rb,0.14093e-02_rb /)\n      kbo(:, 4,30, 8) = (/ &\n        & 0.29377e-03_rb,0.15575e-02_rb,0.20813e-02_rb,0.23536e-02_rb,0.15751e-02_rb /)\n      kbo(:, 5,30, 8) = (/ &\n        & 0.29201e-03_rb,0.16725e-02_rb,0.22728e-02_rb,0.26031e-02_rb,0.17633e-02_rb /)\n      kbo(:, 1,31, 8) = (/ &\n        & 0.24186e-03_rb,0.11155e-02_rb,0.14353e-02_rb,0.15729e-02_rb,0.10232e-02_rb /)\n      kbo(:, 2,31, 8) = (/ &\n        & 0.24189e-03_rb,0.12032e-02_rb,0.15739e-02_rb,0.17508e-02_rb,0.11498e-02_rb /)\n      kbo(:, 3,31, 8) = (/ &\n        & 0.24130e-03_rb,0.12988e-02_rb,0.17296e-02_rb,0.19516e-02_rb,0.12942e-02_rb /)\n      kbo(:, 4,31, 8) = (/ &\n        & 0.24025e-03_rb,0.14034e-02_rb,0.19030e-02_rb,0.21764e-02_rb,0.14594e-02_rb /)\n      kbo(:, 5,31, 8) = (/ &\n        & 0.23866e-03_rb,0.15170e-02_rb,0.20940e-02_rb,0.24270e-02_rb,0.16471e-02_rb /)\n      kbo(:, 1,32, 8) = (/ &\n        & 0.19811e-03_rb,0.99188e-03_rb,0.12914e-02_rb,0.14311e-02_rb,0.93157e-03_rb /)\n      kbo(:, 2,32, 8) = (/ &\n        & 0.19799e-03_rb,0.10771e-02_rb,0.14282e-02_rb,0.16073e-02_rb,0.10562e-02_rb /)\n      kbo(:, 3,32, 8) = (/ &\n        & 0.19741e-03_rb,0.11711e-02_rb,0.15828e-02_rb,0.18068e-02_rb,0.11999e-02_rb /)\n      kbo(:, 4,32, 8) = (/ &\n        & 0.19645e-03_rb,0.12746e-02_rb,0.17559e-02_rb,0.20320e-02_rb,0.13654e-02_rb /)\n      kbo(:, 5,32, 8) = (/ &\n        & 0.19503e-03_rb,0.13871e-02_rb,0.19473e-02_rb,0.22851e-02_rb,0.15533e-02_rb /)\n      kbo(:, 1,33, 8) = (/ &\n        & 0.16225e-03_rb,0.88803e-03_rb,0.11717e-02_rb,0.13138e-02_rb,0.85556e-03_rb /)\n      kbo(:, 2,33, 8) = (/ &\n        & 0.16205e-03_rb,0.97174e-03_rb,0.13077e-02_rb,0.14890e-02_rb,0.97930e-03_rb /)\n      kbo(:, 3,33, 8) = (/ &\n        & 0.16148e-03_rb,0.10648e-02_rb,0.14621e-02_rb,0.16891e-02_rb,0.11237e-02_rb /)\n      kbo(:, 4,33, 8) = (/ &\n        & 0.16059e-03_rb,0.11673e-02_rb,0.16357e-02_rb,0.19165e-02_rb,0.12896e-02_rb /)\n      kbo(:, 5,33, 8) = (/ &\n        & 0.15934e-03_rb,0.12795e-02_rb,0.18288e-02_rb,0.21736e-02_rb,0.14791e-02_rb /)\n      kbo(:, 1,34, 8) = (/ &\n        & 0.13286e-03_rb,0.79835e-03_rb,0.10683e-02_rb,0.12117e-02_rb,0.78908e-03_rb /)\n      kbo(:, 2,34, 8) = (/ &\n        & 0.13261e-03_rb,0.88066e-03_rb,0.12036e-02_rb,0.13865e-02_rb,0.91252e-03_rb /)\n      kbo(:, 3,34, 8) = (/ &\n        & 0.13209e-03_rb,0.97270e-03_rb,0.13580e-02_rb,0.15871e-02_rb,0.10570e-02_rb /)\n      kbo(:, 4,34, 8) = (/ &\n        & 0.13130e-03_rb,0.10748e-02_rb,0.15318e-02_rb,0.18171e-02_rb,0.12236e-02_rb /)\n      kbo(:, 5,34, 8) = (/ &\n        & 0.13022e-03_rb,0.11866e-02_rb,0.17264e-02_rb,0.20786e-02_rb,0.14148e-02_rb /)\n      kbo(:, 1,35, 8) = (/ &\n        & 0.10879e-03_rb,0.71567e-03_rb,0.97075e-03_rb,0.11118e-02_rb,0.72353e-03_rb /)\n      kbo(:, 2,35, 8) = (/ &\n        & 0.10855e-03_rb,0.79625e-03_rb,0.11041e-02_rb,0.12845e-02_rb,0.84540e-03_rb /)\n      kbo(:, 3,35, 8) = (/ &\n        & 0.10811e-03_rb,0.88686e-03_rb,0.12569e-02_rb,0.14847e-02_rb,0.98831e-03_rb /)\n      kbo(:, 4,35, 8) = (/ &\n        & 0.10743e-03_rb,0.98761e-03_rb,0.14300e-02_rb,0.17157e-02_rb,0.11541e-02_rb /)\n      kbo(:, 5,35, 8) = (/ &\n        & 0.10650e-03_rb,0.10987e-02_rb,0.16251e-02_rb,0.19799e-02_rb,0.13460e-02_rb /)\n      kbo(:, 1,36, 8) = (/ &\n        & 0.89091e-04_rb,0.63773e-03_rb,0.87525e-03_rb,0.10106e-02_rb,0.65643e-03_rb /)\n      kbo(:, 2,36, 8) = (/ &\n        & 0.88892e-04_rb,0.71572e-03_rb,0.10050e-02_rb,0.11794e-02_rb,0.77482e-03_rb /)\n      kbo(:, 3,36, 8) = (/ &\n        & 0.88510e-04_rb,0.80390e-03_rb,0.11544e-02_rb,0.13768e-02_rb,0.91437e-03_rb /)\n      kbo(:, 4,36, 8) = (/ &\n        & 0.87951e-04_rb,0.90253e-03_rb,0.13255e-02_rb,0.16063e-02_rb,0.10779e-02_rb /)\n      kbo(:, 5,36, 8) = (/ &\n        & 0.87175e-04_rb,0.10120e-02_rb,0.15187e-02_rb,0.18703e-02_rb,0.12677e-02_rb /)\n      kbo(:, 1,37, 8) = (/ &\n        & 0.72967e-04_rb,0.56051e-03_rb,0.77586e-03_rb,0.90139e-03_rb,0.58319e-03_rb /)\n      kbo(:, 2,37, 8) = (/ &\n        & 0.72818e-04_rb,0.63459e-03_rb,0.89962e-03_rb,0.10627e-02_rb,0.69545e-03_rb /)\n      kbo(:, 3,37, 8) = (/ &\n        & 0.72523e-04_rb,0.71909e-03_rb,0.10433e-02_rb,0.12533e-02_rb,0.82896e-03_rb /)\n      kbo(:, 4,37, 8) = (/ &\n        & 0.72087e-04_rb,0.81427e-03_rb,0.12092e-02_rb,0.14766e-02_rb,0.98671e-03_rb /)\n      kbo(:, 5,37, 8) = (/ &\n        & 0.71486e-04_rb,0.92093e-03_rb,0.13977e-02_rb,0.17355e-02_rb,0.11708e-02_rb /)\n      kbo(:, 1,38, 8) = (/ &\n        & 0.59765e-04_rb,0.49320e-03_rb,0.68844e-03_rb,0.80478e-03_rb,0.51849e-03_rb /)\n      kbo(:, 2,38, 8) = (/ &\n        & 0.59660e-04_rb,0.56354e-03_rb,0.80640e-03_rb,0.95876e-03_rb,0.62466e-03_rb /)\n      kbo(:, 3,38, 8) = (/ &\n        & 0.59436e-04_rb,0.64440e-03_rb,0.94454e-03_rb,0.11426e-02_rb,0.75236e-03_rb /)\n      kbo(:, 4,38, 8) = (/ &\n        & 0.59102e-04_rb,0.73631e-03_rb,0.11052e-02_rb,0.13599e-02_rb,0.90433e-03_rb /)\n      kbo(:, 5,38, 8) = (/ &\n        & 0.58635e-04_rb,0.84009e-03_rb,0.12891e-02_rb,0.16134e-02_rb,0.10829e-02_rb /)\n      kbo(:, 1,39, 8) = (/ &\n        & 0.48956e-04_rb,0.43499e-03_rb,0.61231e-03_rb,0.72017e-03_rb,0.46189e-03_rb /)\n      kbo(:, 2,39, 8) = (/ &\n        & 0.48890e-04_rb,0.50181e-03_rb,0.72478e-03_rb,0.86730e-03_rb,0.56244e-03_rb /)\n      kbo(:, 3,39, 8) = (/ &\n        & 0.48717e-04_rb,0.57923e-03_rb,0.85778e-03_rb,0.10448e-02_rb,0.68464e-03_rb /)\n      kbo(:, 4,39, 8) = (/ &\n        & 0.48451e-04_rb,0.66799e-03_rb,0.10132e-02_rb,0.12563e-02_rb,0.83112e-03_rb /)\n      kbo(:, 5,39, 8) = (/ &\n        & 0.48085e-04_rb,0.76898e-03_rb,0.11928e-02_rb,0.15047e-02_rb,0.10044e-02_rb /)\n      kbo(:, 1,40, 8) = (/ &\n        & 0.40107e-04_rb,0.37860e-03_rb,0.53596e-03_rb,0.63302e-03_rb,0.40350e-03_rb /)\n      kbo(:, 2,40, 8) = (/ &\n        & 0.40068e-04_rb,0.44099e-03_rb,0.64126e-03_rb,0.77105e-03_rb,0.49697e-03_rb /)\n      kbo(:, 3,40, 8) = (/ &\n        & 0.39945e-04_rb,0.51399e-03_rb,0.76694e-03_rb,0.93934e-03_rb,0.61166e-03_rb /)\n      kbo(:, 4,40, 8) = (/ &\n        & 0.39752e-04_rb,0.59851e-03_rb,0.91528e-03_rb,0.11416e-02_rb,0.75037e-03_rb /)\n      kbo(:, 5,40, 8) = (/ &\n        & 0.39469e-04_rb,0.69544e-03_rb,0.10880e-02_rb,0.13809e-02_rb,0.91593e-03_rb /)\n      kbo(:, 1,41, 8) = (/ &\n        & 0.32851e-04_rb,0.32878e-03_rb,0.46786e-03_rb,0.55469e-03_rb,0.35120e-03_rb /)\n      kbo(:, 2,41, 8) = (/ &\n        & 0.32839e-04_rb,0.38683e-03_rb,0.56607e-03_rb,0.68394e-03_rb,0.43769e-03_rb /)\n      kbo(:, 3,41, 8) = (/ &\n        & 0.32749e-04_rb,0.45542e-03_rb,0.68444e-03_rb,0.84259e-03_rb,0.54490e-03_rb /)\n      kbo(:, 4,41, 8) = (/ &\n        & 0.32607e-04_rb,0.53564e-03_rb,0.82547e-03_rb,0.10352e-02_rb,0.67585e-03_rb /)\n      kbo(:, 5,41, 8) = (/ &\n        & 0.32395e-04_rb,0.62841e-03_rb,0.99133e-03_rb,0.12652e-02_rb,0.83332e-03_rb /)\n      kbo(:, 1,42, 8) = (/ &\n        & 0.26906e-04_rb,0.28534e-03_rb,0.40805e-03_rb,0.48535e-03_rb,0.30526e-03_rb /)\n      kbo(:, 2,42, 8) = (/ &\n        & 0.26908e-04_rb,0.33922e-03_rb,0.49950e-03_rb,0.60603e-03_rb,0.38505e-03_rb /)\n      kbo(:, 3,42, 8) = (/ &\n        & 0.26846e-04_rb,0.40361e-03_rb,0.61076e-03_rb,0.75564e-03_rb,0.48524e-03_rb /)\n      kbo(:, 4,42, 8) = (/ &\n        & 0.26739e-04_rb,0.47953e-03_rb,0.74454e-03_rb,0.93882e-03_rb,0.60861e-03_rb /)\n      kbo(:, 5,42, 8) = (/ &\n        & 0.26585e-04_rb,0.56816e-03_rb,0.90363e-03_rb,0.11597e-02_rb,0.75829e-03_rb /)\n      kbo(:, 1,43, 8) = (/ &\n        & 0.22034e-04_rb,0.24494e-03_rb,0.35126e-03_rb,0.41862e-03_rb,0.26133e-03_rb /)\n      kbo(:, 2,43, 8) = (/ &\n        & 0.22045e-04_rb,0.29428e-03_rb,0.43526e-03_rb,0.52960e-03_rb,0.33379e-03_rb /)\n      kbo(:, 3,43, 8) = (/ &\n        & 0.22009e-04_rb,0.35394e-03_rb,0.53838e-03_rb,0.66893e-03_rb,0.42599e-03_rb /)\n      kbo(:, 4,43, 8) = (/ &\n        & 0.21933e-04_rb,0.42510e-03_rb,0.66392e-03_rb,0.84090e-03_rb,0.54061e-03_rb /)\n      kbo(:, 5,43, 8) = (/ &\n        & 0.21820e-04_rb,0.50878e-03_rb,0.81474e-03_rb,0.10503e-02_rb,0.68139e-03_rb /)\n      kbo(:, 1,44, 8) = (/ &\n        & 0.18042e-04_rb,0.20878e-03_rb,0.29988e-03_rb,0.35782e-03_rb,0.22160e-03_rb /)\n      kbo(:, 2,44, 8) = (/ &\n        & 0.18058e-04_rb,0.25360e-03_rb,0.37621e-03_rb,0.45875e-03_rb,0.28670e-03_rb /)\n      kbo(:, 3,44, 8) = (/ &\n        & 0.18041e-04_rb,0.30845e-03_rb,0.47123e-03_rb,0.58727e-03_rb,0.37070e-03_rb /)\n      kbo(:, 4,44, 8) = (/ &\n        & 0.17989e-04_rb,0.37459e-03_rb,0.58804e-03_rb,0.74739e-03_rb,0.47650e-03_rb /)\n      kbo(:, 5,44, 8) = (/ &\n        & 0.17906e-04_rb,0.45317e-03_rb,0.73003e-03_rb,0.94454e-03_rb,0.60768e-03_rb /)\n      kbo(:, 1,45, 8) = (/ &\n        & 0.14770e-04_rb,0.17743e-03_rb,0.25518e-03_rb,0.30461e-03_rb,0.18718e-03_rb /)\n      kbo(:, 2,45, 8) = (/ &\n        & 0.14790e-04_rb,0.21794e-03_rb,0.32424e-03_rb,0.39603e-03_rb,0.24534e-03_rb /)\n      kbo(:, 3,45, 8) = (/ &\n        & 0.14785e-04_rb,0.26822e-03_rb,0.41132e-03_rb,0.51406e-03_rb,0.32158e-03_rb /)\n      kbo(:, 4,45, 8) = (/ &\n        & 0.14751e-04_rb,0.32948e-03_rb,0.51968e-03_rb,0.66288e-03_rb,0.41889e-03_rb /)\n      kbo(:, 5,45, 8) = (/ &\n        & 0.14692e-04_rb,0.40309e-03_rb,0.65298e-03_rb,0.84795e-03_rb,0.54078e-03_rb /)\n      kbo(:, 1,46, 8) = (/ &\n        & 0.12091e-04_rb,0.14956e-03_rb,0.21507e-03_rb,0.25664e-03_rb,0.15641e-03_rb /)\n      kbo(:, 2,46, 8) = (/ &\n        & 0.12112e-04_rb,0.18585e-03_rb,0.27689e-03_rb,0.33853e-03_rb,0.20778e-03_rb /)\n      kbo(:, 3,46, 8) = (/ &\n        & 0.12113e-04_rb,0.23156e-03_rb,0.35597e-03_rb,0.44575e-03_rb,0.27619e-03_rb /)\n      kbo(:, 4,46, 8) = (/ &\n        & 0.12094e-04_rb,0.28789e-03_rb,0.45576e-03_rb,0.58313e-03_rb,0.36492e-03_rb /)\n      kbo(:, 5,46, 8) = (/ &\n        & 0.12054e-04_rb,0.35628e-03_rb,0.57980e-03_rb,0.75523e-03_rb,0.47721e-03_rb /)\n      kbo(:, 1,47, 8) = (/ &\n        & 0.98958e-05_rb,0.12436e-03_rb,0.17838e-03_rb,0.21241e-03_rb,0.12841e-03_rb /)\n      kbo(:, 2,47, 8) = (/ &\n        & 0.99157e-05_rb,0.15633e-03_rb,0.23279e-03_rb,0.28443e-03_rb,0.17291e-03_rb /)\n      kbo(:, 3,47, 8) = (/ &\n        & 0.99224e-05_rb,0.19724e-03_rb,0.30350e-03_rb,0.38017e-03_rb,0.23323e-03_rb /)\n      kbo(:, 4,47, 8) = (/ &\n        & 0.99150e-05_rb,0.24831e-03_rb,0.39396e-03_rb,0.50488e-03_rb,0.31274e-03_rb /)\n      kbo(:, 5,47, 8) = (/ &\n        & 0.98881e-05_rb,0.31110e-03_rb,0.50788e-03_rb,0.66304e-03_rb,0.41485e-03_rb /)\n      kbo(:, 1,48, 8) = (/ &\n        & 0.80981e-05_rb,0.10284e-03_rb,0.14701e-03_rb,0.17457e-03_rb,0.10464e-03_rb /)\n      kbo(:, 2,48, 8) = (/ &\n        & 0.81170e-05_rb,0.13083e-03_rb,0.19452e-03_rb,0.23734e-03_rb,0.14298e-03_rb /)\n      kbo(:, 3,48, 8) = (/ &\n        & 0.81254e-05_rb,0.16716e-03_rb,0.25727e-03_rb,0.32230e-03_rb,0.19565e-03_rb /)\n      kbo(:, 4,48, 8) = (/ &\n        & 0.81253e-05_rb,0.21328e-03_rb,0.33887e-03_rb,0.43475e-03_rb,0.26652e-03_rb /)\n      kbo(:, 5,48, 8) = (/ &\n        & 0.81092e-05_rb,0.27062e-03_rb,0.44301e-03_rb,0.57972e-03_rb,0.35887e-03_rb /)\n      kbo(:, 1,49, 8) = (/ &\n        & 0.66262e-05_rb,0.84542e-04_rb,0.12034e-03_rb,0.14245e-03_rb,0.84636e-04_rb /)\n      kbo(:, 2,49, 8) = (/ &\n        & 0.66435e-05_rb,0.10903e-03_rb,0.16168e-03_rb,0.19686e-03_rb,0.11740e-03_rb /)\n      kbo(:, 3,49, 8) = (/ &\n        & 0.66527e-05_rb,0.14092e-03_rb,0.21685e-03_rb,0.27156e-03_rb,0.16309e-03_rb /)\n      kbo(:, 4,49, 8) = (/ &\n        & 0.66567e-05_rb,0.18229e-03_rb,0.28989e-03_rb,0.37214e-03_rb,0.22572e-03_rb /)\n      kbo(:, 5,49, 8) = (/ &\n        & 0.66489e-05_rb,0.23443e-03_rb,0.38461e-03_rb,0.50418e-03_rb,0.30883e-03_rb /)\n      kbo(:, 1,50, 8) = (/ &\n        & 0.54202e-05_rb,0.69608e-04_rb,0.98680e-04_rb,0.11646e-03_rb,0.68510e-04_rb /)\n      kbo(:, 2,50, 8) = (/ &\n        & 0.54374e-05_rb,0.90802e-04_rb,0.13434e-03_rb,0.16330e-03_rb,0.96499e-04_rb /)\n      kbo(:, 3,50, 8) = (/ &\n        & 0.54475e-05_rb,0.11916e-03_rb,0.18327e-03_rb,0.22932e-03_rb,0.13620e-03_rb /)\n      kbo(:, 4,50, 8) = (/ &\n        & 0.54521e-05_rb,0.15608e-03_rb,0.24845e-03_rb,0.31928e-03_rb,0.19154e-03_rb /)\n      kbo(:, 5,50, 8) = (/ &\n        & 0.54498e-05_rb,0.20348e-03_rb,0.33466e-03_rb,0.43937e-03_rb,0.26626e-03_rb /)\n      kbo(:, 1,51, 8) = (/ &\n        & 0.44351e-05_rb,0.57088e-04_rb,0.80582e-04_rb,0.94790e-04_rb,0.55250e-04_rb /)\n      kbo(:, 2,51, 8) = (/ &\n        & 0.44504e-05_rb,0.75435e-04_rb,0.11131e-03_rb,0.13503e-03_rb,0.79024e-04_rb /)\n      kbo(:, 3,51, 8) = (/ &\n        & 0.44599e-05_rb,0.10037e-03_rb,0.15428e-03_rb,0.19291e-03_rb,0.11343e-03_rb /)\n      kbo(:, 4,51, 8) = (/ &\n        & 0.44651e-05_rb,0.13336e-03_rb,0.21252e-03_rb,0.27335e-03_rb,0.16218e-03_rb /)\n      kbo(:, 5,51, 8) = (/ &\n        & 0.44653e-05_rb,0.17640e-03_rb,0.29075e-03_rb,0.38229e-03_rb,0.22923e-03_rb /)\n      kbo(:, 1,52, 8) = (/ &\n        & 0.36290e-05_rb,0.46565e-04_rb,0.65364e-04_rb,0.76598e-04_rb,0.44240e-04_rb /)\n      kbo(:, 2,52, 8) = (/ &\n        & 0.36420e-05_rb,0.62314e-04_rb,0.91644e-04_rb,0.11090e-03_rb,0.64234e-04_rb /)\n      kbo(:, 3,52, 8) = (/ &\n        & 0.36509e-05_rb,0.84102e-04_rb,0.12910e-03_rb,0.16125e-03_rb,0.93833e-04_rb /)\n      kbo(:, 4,52, 8) = (/ &\n        & 0.36555e-05_rb,0.11362e-03_rb,0.18115e-03_rb,0.23297e-03_rb,0.13657e-03_rb /)\n      kbo(:, 5,52, 8) = (/ &\n        & 0.36579e-05_rb,0.15226e-03_rb,0.25136e-03_rb,0.33099e-03_rb,0.19621e-03_rb /)\n      kbo(:, 1,53, 8) = (/ &\n        & 0.29692e-05_rb,0.37746e-04_rb,0.52632e-04_rb,0.61397e-04_rb,0.35165e-04_rb /)\n      kbo(:, 2,53, 8) = (/ &\n        & 0.29808e-05_rb,0.51149e-04_rb,0.74879e-04_rb,0.90335e-04_rb,0.51807e-04_rb /)\n      kbo(:, 3,53, 8) = (/ &\n        & 0.29880e-05_rb,0.70028e-04_rb,0.10724e-03_rb,0.13375e-03_rb,0.77010e-04_rb /)\n      kbo(:, 4,53, 8) = (/ &\n        & 0.29931e-05_rb,0.96105e-04_rb,0.15314e-03_rb,0.19689e-03_rb,0.11417e-03_rb /)\n      kbo(:, 5,53, 8) = (/ &\n        & 0.29959e-05_rb,0.13074e-03_rb,0.21612e-03_rb,0.28492e-03_rb,0.16697e-03_rb /)\n      kbo(:, 1,54, 8) = (/ &\n        & 0.24296e-05_rb,0.30698e-04_rb,0.42544e-04_rb,0.49406e-04_rb,0.28072e-04_rb /)\n      kbo(:, 2,54, 8) = (/ &\n        & 0.24393e-05_rb,0.42122e-04_rb,0.61454e-04_rb,0.73927e-04_rb,0.41964e-04_rb /)\n      kbo(:, 3,54, 8) = (/ &\n        & 0.24460e-05_rb,0.58528e-04_rb,0.89500e-04_rb,0.11146e-03_rb,0.63503e-04_rb /)\n      kbo(:, 4,54, 8) = (/ &\n        & 0.24507e-05_rb,0.81611e-04_rb,0.13009e-03_rb,0.16728e-03_rb,0.95947e-04_rb /)\n      kbo(:, 5,54, 8) = (/ &\n        & 0.24535e-05_rb,0.11276e-03_rb,0.18682e-03_rb,0.24654e-03_rb,0.14286e-03_rb /)\n      kbo(:, 1,55, 8) = (/ &\n        & 0.19883e-05_rb,0.24921e-04_rb,0.34312e-04_rb,0.39666e-04_rb,0.22375e-04_rb /)\n      kbo(:, 2,55, 8) = (/ &\n        & 0.19963e-05_rb,0.34641e-04_rb,0.50344e-04_rb,0.60381e-04_rb,0.33942e-04_rb /)\n      kbo(:, 3,55, 8) = (/ &\n        & 0.20020e-05_rb,0.48868e-04_rb,0.74618e-04_rb,0.92809e-04_rb,0.52280e-04_rb /)\n      kbo(:, 4,55, 8) = (/ &\n        & 0.20065e-05_rb,0.69255e-04_rb,0.11042e-03_rb,0.14203e-03_rb,0.80566e-04_rb /)\n      kbo(:, 5,55, 8) = (/ &\n        & 0.20089e-05_rb,0.97527e-04_rb,0.16182e-03_rb,0.21373e-03_rb,0.12228e-03_rb /)\n      kbo(:, 1,56, 8) = (/ &\n        & 0.16268e-05_rb,0.20122e-04_rb,0.27506e-04_rb,0.31629e-04_rb,0.17718e-04_rb /)\n      kbo(:, 2,56, 8) = (/ &\n        & 0.16337e-05_rb,0.28321e-04_rb,0.40966e-04_rb,0.48960e-04_rb,0.27271e-04_rb /)\n      kbo(:, 3,56, 8) = (/ &\n        & 0.16385e-05_rb,0.40579e-04_rb,0.61828e-04_rb,0.76747e-04_rb,0.42739e-04_rb /)\n      kbo(:, 4,56, 8) = (/ &\n        & 0.16424e-05_rb,0.58490e-04_rb,0.93220e-04_rb,0.11991e-03_rb,0.67232e-04_rb /)\n      kbo(:, 5,56, 8) = (/ &\n        & 0.16450e-05_rb,0.83776e-04_rb,0.13917e-03_rb,0.18401e-03_rb,0.10406e-03_rb /)\n      kbo(:, 1,57, 8) = (/ &\n        & 0.13311e-05_rb,0.16151e-04_rb,0.21901e-04_rb,0.25044e-04_rb,0.13934e-04_rb /)\n      kbo(:, 2,57, 8) = (/ &\n        & 0.13369e-05_rb,0.23005e-04_rb,0.33083e-04_rb,0.39377e-04_rb,0.21751e-04_rb /)\n      kbo(:, 3,57, 8) = (/ &\n        & 0.13411e-05_rb,0.33501e-04_rb,0.50888e-04_rb,0.63014e-04_rb,0.34696e-04_rb /)\n      kbo(:, 4,57, 8) = (/ &\n        & 0.13443e-05_rb,0.49111e-04_rb,0.78191e-04_rb,0.10051e-03_rb,0.55711e-04_rb /)\n      kbo(:, 5,57, 8) = (/ &\n        & 0.13467e-05_rb,0.71586e-04_rb,0.11902e-03_rb,0.15744e-03_rb,0.88025e-04_rb /)\n      kbo(:, 1,58, 8) = (/ &\n        & 0.10892e-05_rb,0.12962e-04_rb,0.17443e-04_rb,0.19825e-04_rb,0.10955e-04_rb /)\n      kbo(:, 2,58, 8) = (/ &\n        & 0.10942e-05_rb,0.18688e-04_rb,0.26716e-04_rb,0.31664e-04_rb,0.17348e-04_rb /)\n      kbo(:, 3,58, 8) = (/ &\n        & 0.10976e-05_rb,0.27650e-04_rb,0.41864e-04_rb,0.51716e-04_rb,0.28159e-04_rb /)\n      kbo(:, 4,58, 8) = (/ &\n        & 0.11004e-05_rb,0.41251e-04_rb,0.65630e-04_rb,0.84299e-04_rb,0.46156e-04_rb /)\n      kbo(:, 5,58, 8) = (/ &\n        & 0.11025e-05_rb,0.61261e-04_rb,0.10196e-03_rb,0.13496e-03_rb,0.74536e-04_rb /)\n      kbo(:, 1,59, 8) = (/ &\n        & 0.89197e-06_rb,0.11047e-04_rb,0.14899e-04_rb,0.16964e-04_rb,0.92999e-05_rb /)\n      kbo(:, 2,59, 8) = (/ &\n        & 0.89605e-06_rb,0.16215e-04_rb,0.23291e-04_rb,0.27686e-04_rb,0.15019e-04_rb /)\n      kbo(:, 3,59, 8) = (/ &\n        & 0.89875e-06_rb,0.24462e-04_rb,0.37267e-04_rb,0.46243e-04_rb,0.24905e-04_rb /)\n      kbo(:, 4,59, 8) = (/ &\n        & 0.90117e-06_rb,0.37175e-04_rb,0.59594e-04_rb,0.76969e-04_rb,0.41672e-04_rb /)\n      kbo(:, 5,59, 8) = (/ &\n        & 0.90310e-06_rb,0.56115e-04_rb,0.94187e-04_rb,0.12528e-03_rb,0.68497e-04_rb /)\n      kbo(:, 1,13, 9) = (/ &\n        & 0.56714e-01_rb,0.96228e-01_rb,0.10961e+00_rb,0.11078e+00_rb,0.82822e-01_rb /)\n      kbo(:, 2,13, 9) = (/ &\n        & 0.57828e-01_rb,0.97972e-01_rb,0.11123e+00_rb,0.11236e+00_rb,0.84782e-01_rb /)\n      kbo(:, 3,13, 9) = (/ &\n        & 0.59232e-01_rb,0.99998e-01_rb,0.11329e+00_rb,0.11400e+00_rb,0.86728e-01_rb /)\n      kbo(:, 4,13, 9) = (/ &\n        & 0.60790e-01_rb,0.10219e+00_rb,0.11568e+00_rb,0.11591e+00_rb,0.88651e-01_rb /)\n      kbo(:, 5,13, 9) = (/ &\n        & 0.62290e-01_rb,0.10448e+00_rb,0.11818e+00_rb,0.11808e+00_rb,0.90606e-01_rb /)\n      kbo(:, 1,14, 9) = (/ &\n        & 0.48757e-01_rb,0.85742e-01_rb,0.97473e-01_rb,0.98306e-01_rb,0.73073e-01_rb /)\n      kbo(:, 2,14, 9) = (/ &\n        & 0.49942e-01_rb,0.87692e-01_rb,0.99489e-01_rb,0.10004e+00_rb,0.75064e-01_rb /)\n      kbo(:, 3,14, 9) = (/ &\n        & 0.51318e-01_rb,0.89856e-01_rb,0.10188e+00_rb,0.10205e+00_rb,0.77018e-01_rb /)\n      kbo(:, 4,14, 9) = (/ &\n        & 0.52660e-01_rb,0.92153e-01_rb,0.10444e+00_rb,0.10434e+00_rb,0.78996e-01_rb /)\n      kbo(:, 5,14, 9) = (/ &\n        & 0.53901e-01_rb,0.94584e-01_rb,0.10712e+00_rb,0.10687e+00_rb,0.81028e-01_rb /)\n      kbo(:, 1,15, 9) = (/ &\n        & 0.41752e-01_rb,0.76198e-01_rb,0.86593e-01_rb,0.87037e-01_rb,0.64464e-01_rb /)\n      kbo(:, 2,15, 9) = (/ &\n        & 0.42945e-01_rb,0.78277e-01_rb,0.88919e-01_rb,0.89055e-01_rb,0.66440e-01_rb /)\n      kbo(:, 3,15, 9) = (/ &\n        & 0.44132e-01_rb,0.80544e-01_rb,0.91468e-01_rb,0.91397e-01_rb,0.68401e-01_rb /)\n      kbo(:, 4,15, 9) = (/ &\n        & 0.45260e-01_rb,0.82968e-01_rb,0.94189e-01_rb,0.93993e-01_rb,0.70410e-01_rb /)\n      kbo(:, 5,15, 9) = (/ &\n        & 0.46298e-01_rb,0.85502e-01_rb,0.97029e-01_rb,0.96802e-01_rb,0.72466e-01_rb /)\n      kbo(:, 1,16, 9) = (/ &\n        & 0.35640e-01_rb,0.67555e-01_rb,0.76928e-01_rb,0.77126e-01_rb,0.56847e-01_rb /)\n      kbo(:, 2,16, 9) = (/ &\n        & 0.36668e-01_rb,0.69730e-01_rb,0.79394e-01_rb,0.79411e-01_rb,0.58796e-01_rb /)\n      kbo(:, 3,16, 9) = (/ &\n        & 0.37665e-01_rb,0.72105e-01_rb,0.82070e-01_rb,0.81996e-01_rb,0.60763e-01_rb /)\n      kbo(:, 4,16, 9) = (/ &\n        & 0.38606e-01_rb,0.74641e-01_rb,0.84920e-01_rb,0.84810e-01_rb,0.62792e-01_rb /)\n      kbo(:, 5,16, 9) = (/ &\n        & 0.39473e-01_rb,0.77118e-01_rb,0.87904e-01_rb,0.87777e-01_rb,0.64884e-01_rb /)\n      kbo(:, 1,17, 9) = (/ &\n        & 0.30249e-01_rb,0.59768e-01_rb,0.68325e-01_rb,0.68492e-01_rb,0.50101e-01_rb /)\n      kbo(:, 2,17, 9) = (/ &\n        & 0.31103e-01_rb,0.62060e-01_rb,0.70903e-01_rb,0.70988e-01_rb,0.52022e-01_rb /)\n      kbo(:, 3,17, 9) = (/ &\n        & 0.31936e-01_rb,0.64534e-01_rb,0.73696e-01_rb,0.73735e-01_rb,0.54005e-01_rb /)\n      kbo(:, 4,17, 9) = (/ &\n        & 0.32730e-01_rb,0.67029e-01_rb,0.76655e-01_rb,0.76665e-01_rb,0.56059e-01_rb /)\n      kbo(:, 5,17, 9) = (/ &\n        & 0.33443e-01_rb,0.69449e-01_rb,0.79757e-01_rb,0.79742e-01_rb,0.58173e-01_rb /)\n      kbo(:, 1,18, 9) = (/ &\n        & 0.25545e-01_rb,0.52871e-01_rb,0.60740e-01_rb,0.60992e-01_rb,0.44172e-01_rb /)\n      kbo(:, 2,18, 9) = (/ &\n        & 0.26254e-01_rb,0.55233e-01_rb,0.63406e-01_rb,0.63637e-01_rb,0.46086e-01_rb /)\n      kbo(:, 3,18, 9) = (/ &\n        & 0.26956e-01_rb,0.57692e-01_rb,0.66286e-01_rb,0.66462e-01_rb,0.48089e-01_rb /)\n      kbo(:, 4,18, 9) = (/ &\n        & 0.27612e-01_rb,0.60136e-01_rb,0.69343e-01_rb,0.69465e-01_rb,0.50154e-01_rb /)\n      kbo(:, 5,18, 9) = (/ &\n        & 0.28200e-01_rb,0.62534e-01_rb,0.72542e-01_rb,0.72608e-01_rb,0.52275e-01_rb /)\n      kbo(:, 1,19, 9) = (/ &\n        & 0.21487e-01_rb,0.46786e-01_rb,0.54092e-01_rb,0.54451e-01_rb,0.38986e-01_rb /)\n      kbo(:, 2,19, 9) = (/ &\n        & 0.22086e-01_rb,0.49151e-01_rb,0.56837e-01_rb,0.57167e-01_rb,0.40916e-01_rb /)\n      kbo(:, 3,19, 9) = (/ &\n        & 0.22671e-01_rb,0.51565e-01_rb,0.59787e-01_rb,0.60059e-01_rb,0.42916e-01_rb /)\n      kbo(:, 4,19, 9) = (/ &\n        & 0.23212e-01_rb,0.53966e-01_rb,0.62913e-01_rb,0.63134e-01_rb,0.44993e-01_rb /)\n      kbo(:, 5,19, 9) = (/ &\n        & 0.23674e-01_rb,0.56335e-01_rb,0.66121e-01_rb,0.66362e-01_rb,0.47140e-01_rb /)\n      kbo(:, 1,20, 9) = (/ &\n        & 0.18039e-01_rb,0.41493e-01_rb,0.48348e-01_rb,0.48783e-01_rb,0.34522e-01_rb /)\n      kbo(:, 2,20, 9) = (/ &\n        & 0.18543e-01_rb,0.43801e-01_rb,0.51155e-01_rb,0.51541e-01_rb,0.36457e-01_rb /)\n      kbo(:, 3,20, 9) = (/ &\n        & 0.19027e-01_rb,0.46166e-01_rb,0.54164e-01_rb,0.54503e-01_rb,0.38468e-01_rb /)\n      kbo(:, 4,20, 9) = (/ &\n        & 0.19452e-01_rb,0.48538e-01_rb,0.57292e-01_rb,0.57654e-01_rb,0.40551e-01_rb /)\n      kbo(:, 5,20, 9) = (/ &\n        & 0.19805e-01_rb,0.50879e-01_rb,0.60490e-01_rb,0.60969e-01_rb,0.42726e-01_rb /)\n      kbo(:, 1,21, 9) = (/ &\n        & 0.15116e-01_rb,0.36867e-01_rb,0.43373e-01_rb,0.43860e-01_rb,0.30692e-01_rb /)\n      kbo(:, 2,21, 9) = (/ &\n        & 0.15537e-01_rb,0.39121e-01_rb,0.46234e-01_rb,0.46663e-01_rb,0.32616e-01_rb /)\n      kbo(:, 3,21, 9) = (/ &\n        & 0.15924e-01_rb,0.41438e-01_rb,0.49238e-01_rb,0.49692e-01_rb,0.34628e-01_rb /)\n      kbo(:, 4,21, 9) = (/ &\n        & 0.16258e-01_rb,0.43774e-01_rb,0.52361e-01_rb,0.52910e-01_rb,0.36736e-01_rb /)\n      kbo(:, 5,21, 9) = (/ &\n        & 0.16525e-01_rb,0.46101e-01_rb,0.55542e-01_rb,0.56309e-01_rb,0.38934e-01_rb /)\n      kbo(:, 1,22, 9) = (/ &\n        & 0.12675e-01_rb,0.32993e-01_rb,0.39256e-01_rb,0.39779e-01_rb,0.27529e-01_rb /)\n      kbo(:, 2,22, 9) = (/ &\n        & 0.13009e-01_rb,0.35201e-01_rb,0.42138e-01_rb,0.42658e-01_rb,0.29453e-01_rb /)\n      kbo(:, 3,22, 9) = (/ &\n        & 0.13317e-01_rb,0.37474e-01_rb,0.45144e-01_rb,0.45756e-01_rb,0.31474e-01_rb /)\n      kbo(:, 4,22, 9) = (/ &\n        & 0.13574e-01_rb,0.39784e-01_rb,0.48260e-01_rb,0.49049e-01_rb,0.33608e-01_rb /)\n      kbo(:, 5,22, 9) = (/ &\n        & 0.13778e-01_rb,0.42099e-01_rb,0.51448e-01_rb,0.52529e-01_rb,0.35844e-01_rb /)\n      kbo(:, 1,23, 9) = (/ &\n        & 0.10608e-01_rb,0.29677e-01_rb,0.35736e-01_rb,0.36323e-01_rb,0.24847e-01_rb /)\n      kbo(:, 2,23, 9) = (/ &\n        & 0.10880e-01_rb,0.31843e-01_rb,0.38613e-01_rb,0.39274e-01_rb,0.26772e-01_rb /)\n      kbo(:, 3,23, 9) = (/ &\n        & 0.11120e-01_rb,0.34081e-01_rb,0.41634e-01_rb,0.42440e-01_rb,0.28816e-01_rb /)\n      kbo(:, 4,23, 9) = (/ &\n        & 0.11313e-01_rb,0.36372e-01_rb,0.44754e-01_rb,0.45808e-01_rb,0.30978e-01_rb /)\n      kbo(:, 5,23, 9) = (/ &\n        & 0.11474e-01_rb,0.38689e-01_rb,0.47973e-01_rb,0.49367e-01_rb,0.33255e-01_rb /)\n      kbo(:, 1,24, 9) = (/ &\n        & 0.88685e-02_rb,0.26862e-01_rb,0.32736e-01_rb,0.33437e-01_rb,0.22600e-01_rb /)\n      kbo(:, 2,24, 9) = (/ &\n        & 0.90884e-02_rb,0.28994e-01_rb,0.35625e-01_rb,0.36451e-01_rb,0.24532e-01_rb /)\n      kbo(:, 3,24, 9) = (/ &\n        & 0.92759e-02_rb,0.31210e-01_rb,0.38663e-01_rb,0.39696e-01_rb,0.26600e-01_rb /)\n      kbo(:, 4,24, 9) = (/ &\n        & 0.94299e-02_rb,0.33488e-01_rb,0.41810e-01_rb,0.43137e-01_rb,0.28795e-01_rb /)\n      kbo(:, 5,24, 9) = (/ &\n        & 0.95655e-02_rb,0.35810e-01_rb,0.45067e-01_rb,0.46765e-01_rb,0.31119e-01_rb /)\n      kbo(:, 1,25, 9) = (/ &\n        & 0.74112e-02_rb,0.24493e-01_rb,0.30220e-01_rb,0.31056e-01_rb,0.20732e-01_rb /)\n      kbo(:, 2,25, 9) = (/ &\n        & 0.75852e-02_rb,0.26600e-01_rb,0.33130e-01_rb,0.34139e-01_rb,0.22685e-01_rb /)\n      kbo(:, 3,25, 9) = (/ &\n        & 0.77307e-02_rb,0.28805e-01_rb,0.36194e-01_rb,0.37461e-01_rb,0.24778e-01_rb /)\n      kbo(:, 4,25, 9) = (/ &\n        & 0.78603e-02_rb,0.31085e-01_rb,0.39384e-01_rb,0.40978e-01_rb,0.27016e-01_rb /)\n      kbo(:, 5,25, 9) = (/ &\n        & 0.79718e-02_rb,0.33416e-01_rb,0.42696e-01_rb,0.44682e-01_rb,0.29393e-01_rb /)\n      kbo(:, 1,26, 9) = (/ &\n        & 0.61902e-02_rb,0.22538e-01_rb,0.28170e-01_rb,0.29154e-01_rb,0.19220e-01_rb /)\n      kbo(:, 2,26, 9) = (/ &\n        & 0.63276e-02_rb,0.24632e-01_rb,0.31111e-01_rb,0.32321e-01_rb,0.21200e-01_rb /)\n      kbo(:, 3,26, 9) = (/ &\n        & 0.64499e-02_rb,0.26835e-01_rb,0.34213e-01_rb,0.35713e-01_rb,0.23332e-01_rb /)\n      kbo(:, 4,26, 9) = (/ &\n        & 0.65597e-02_rb,0.29126e-01_rb,0.37461e-01_rb,0.39319e-01_rb,0.25615e-01_rb /)\n      kbo(:, 5,26, 9) = (/ &\n        & 0.66551e-02_rb,0.31472e-01_rb,0.40844e-01_rb,0.43117e-01_rb,0.28057e-01_rb /)\n      kbo(:, 1,27, 9) = (/ &\n        & 0.51713e-02_rb,0.20911e-01_rb,0.26500e-01_rb,0.27639e-01_rb,0.17995e-01_rb /)\n      kbo(:, 2,27, 9) = (/ &\n        & 0.52848e-02_rb,0.23004e-01_rb,0.29475e-01_rb,0.30887e-01_rb,0.20007e-01_rb /)\n      kbo(:, 3,27, 9) = (/ &\n        & 0.53879e-02_rb,0.25219e-01_rb,0.32635e-01_rb,0.34364e-01_rb,0.22181e-01_rb /)\n      kbo(:, 4,27, 9) = (/ &\n        & 0.54763e-02_rb,0.27525e-01_rb,0.35956e-01_rb,0.38064e-01_rb,0.24520e-01_rb /)\n      kbo(:, 5,27, 9) = (/ &\n        & 0.55573e-02_rb,0.29889e-01_rb,0.39426e-01_rb,0.41977e-01_rb,0.27035e-01_rb /)\n      kbo(:, 1,28, 9) = (/ &\n        & 0.43195e-02_rb,0.19576e-01_rb,0.25160e-01_rb,0.26468e-01_rb,0.17016e-01_rb /)\n      kbo(:, 2,28, 9) = (/ &\n        & 0.44139e-02_rb,0.21680e-01_rb,0.28188e-01_rb,0.29800e-01_rb,0.19070e-01_rb /)\n      kbo(:, 3,28, 9) = (/ &\n        & 0.44969e-02_rb,0.23912e-01_rb,0.31420e-01_rb,0.33375e-01_rb,0.21294e-01_rb /)\n      kbo(:, 4,28, 9) = (/ &\n        & 0.45726e-02_rb,0.26235e-01_rb,0.34830e-01_rb,0.37186e-01_rb,0.23695e-01_rb /)\n      kbo(:, 5,28, 9) = (/ &\n        & 0.46426e-02_rb,0.28627e-01_rb,0.38395e-01_rb,0.41222e-01_rb,0.26282e-01_rb /)\n      kbo(:, 1,29, 9) = (/ &\n        & 0.36095e-02_rb,0.18508e-01_rb,0.24142e-01_rb,0.25625e-01_rb,0.16268e-01_rb /)\n      kbo(:, 2,29, 9) = (/ &\n        & 0.36856e-02_rb,0.20634e-01_rb,0.27243e-01_rb,0.29053e-01_rb,0.18372e-01_rb /)\n      kbo(:, 3,29, 9) = (/ &\n        & 0.37545e-02_rb,0.22890e-01_rb,0.30565e-01_rb,0.32742e-01_rb,0.20653e-01_rb /)\n      kbo(:, 4,29, 9) = (/ &\n        & 0.38219e-02_rb,0.25246e-01_rb,0.34070e-01_rb,0.36676e-01_rb,0.23125e-01_rb /)\n      kbo(:, 5,29, 9) = (/ &\n        & 0.38805e-02_rb,0.27676e-01_rb,0.37739e-01_rb,0.40837e-01_rb,0.25787e-01_rb /)\n      kbo(:, 1,30, 9) = (/ &\n        & 0.30149e-02_rb,0.17668e-01_rb,0.23401e-01_rb,0.25061e-01_rb,0.15717e-01_rb /)\n      kbo(:, 2,30, 9) = (/ &\n        & 0.30780e-02_rb,0.19823e-01_rb,0.26594e-01_rb,0.28602e-01_rb,0.17873e-01_rb /)\n      kbo(:, 3,30, 9) = (/ &\n        & 0.31391e-02_rb,0.22111e-01_rb,0.30012e-01_rb,0.32409e-01_rb,0.20220e-01_rb /)\n      kbo(:, 4,30, 9) = (/ &\n        & 0.31952e-02_rb,0.24511e-01_rb,0.33620e-01_rb,0.36467e-01_rb,0.22768e-01_rb /)\n      kbo(:, 5,30, 9) = (/ &\n        & 0.32462e-02_rb,0.26992e-01_rb,0.37393e-01_rb,0.40756e-01_rb,0.25513e-01_rb /)\n      kbo(:, 1,31, 9) = (/ &\n        & 0.25190e-02_rb,0.17039e-01_rb,0.22932e-01_rb,0.24769e-01_rb,0.15346e-01_rb /)\n      kbo(:, 2,31, 9) = (/ &\n        & 0.25729e-02_rb,0.19232e-01_rb,0.26227e-01_rb,0.28432e-01_rb,0.17564e-01_rb /)\n      kbo(:, 3,31, 9) = (/ &\n        & 0.26259e-02_rb,0.21567e-01_rb,0.29750e-01_rb,0.32369e-01_rb,0.19984e-01_rb /)\n      kbo(:, 4,31, 9) = (/ &\n        & 0.26746e-02_rb,0.24020e-01_rb,0.33463e-01_rb,0.36549e-01_rb,0.22614e-01_rb /)\n      kbo(:, 5,31, 9) = (/ &\n        & 0.27170e-02_rb,0.26556e-01_rb,0.37338e-01_rb,0.40957e-01_rb,0.25451e-01_rb /)\n      kbo(:, 1,32, 9) = (/ &\n        & 0.21057e-02_rb,0.16597e-01_rb,0.22710e-01_rb,0.24723e-01_rb,0.15137e-01_rb /)\n      kbo(:, 2,32, 9) = (/ &\n        & 0.21537e-02_rb,0.18840e-01_rb,0.26112e-01_rb,0.28512e-01_rb,0.17424e-01_rb /)\n      kbo(:, 3,32, 9) = (/ &\n        & 0.21983e-02_rb,0.21233e-01_rb,0.29743e-01_rb,0.32575e-01_rb,0.19926e-01_rb /)\n      kbo(:, 4,32, 9) = (/ &\n        & 0.22397e-02_rb,0.23745e-01_rb,0.33557e-01_rb,0.36873e-01_rb,0.22643e-01_rb /)\n      kbo(:, 5,32, 9) = (/ &\n        & 0.22779e-02_rb,0.26339e-01_rb,0.37525e-01_rb,0.41395e-01_rb,0.25571e-01_rb /)\n      kbo(:, 1,33, 9) = (/ &\n        & 0.17621e-02_rb,0.16326e-01_rb,0.22706e-01_rb,0.24894e-01_rb,0.15071e-01_rb /)\n      kbo(:, 2,33, 9) = (/ &\n        & 0.18037e-02_rb,0.18626e-01_rb,0.26218e-01_rb,0.28807e-01_rb,0.17434e-01_rb /)\n      kbo(:, 3,33, 9) = (/ &\n        & 0.18413e-02_rb,0.21083e-01_rb,0.29952e-01_rb,0.32989e-01_rb,0.20023e-01_rb /)\n      kbo(:, 4,33, 9) = (/ &\n        & 0.18774e-02_rb,0.23655e-01_rb,0.33863e-01_rb,0.37400e-01_rb,0.22833e-01_rb /)\n      kbo(:, 5,33, 9) = (/ &\n        & 0.19114e-02_rb,0.26308e-01_rb,0.37916e-01_rb,0.42025e-01_rb,0.25847e-01_rb /)\n      kbo(:, 1,34, 9) = (/ &\n        & 0.14751e-02_rb,0.16125e-01_rb,0.22769e-01_rb,0.25117e-01_rb,0.15050e-01_rb /)\n      kbo(:, 2,34, 9) = (/ &\n        & 0.15101e-02_rb,0.18488e-01_rb,0.26381e-01_rb,0.29139e-01_rb,0.17489e-01_rb /)\n      kbo(:, 3,34, 9) = (/ &\n        & 0.15432e-02_rb,0.21005e-01_rb,0.30205e-01_rb,0.33424e-01_rb,0.20158e-01_rb /)\n      kbo(:, 4,34, 9) = (/ &\n        & 0.15747e-02_rb,0.23633e-01_rb,0.34198e-01_rb,0.37931e-01_rb,0.23050e-01_rb /)\n      kbo(:, 5,34, 9) = (/ &\n        & 0.16051e-02_rb,0.26339e-01_rb,0.38321e-01_rb,0.42642e-01_rb,0.26140e-01_rb /)\n      kbo(:, 1,35, 9) = (/ &\n        & 0.12323e-02_rb,0.15834e-01_rb,0.22646e-01_rb,0.25106e-01_rb,0.14908e-01_rb /)\n      kbo(:, 2,35, 9) = (/ &\n        & 0.12626e-02_rb,0.18245e-01_rb,0.26331e-01_rb,0.29206e-01_rb,0.17403e-01_rb /)\n      kbo(:, 3,35, 9) = (/ &\n        & 0.12919e-02_rb,0.20808e-01_rb,0.30221e-01_rb,0.33562e-01_rb,0.20132e-01_rb /)\n      kbo(:, 4,35, 9) = (/ &\n        & 0.13197e-02_rb,0.23481e-01_rb,0.34270e-01_rb,0.38136e-01_rb,0.23081e-01_rb /)\n      kbo(:, 5,35, 9) = (/ &\n        & 0.13470e-02_rb,0.26228e-01_rb,0.38442e-01_rb,0.42907e-01_rb,0.26222e-01_rb /)\n      kbo(:, 1,36, 9) = (/ &\n        & 0.10273e-02_rb,0.15393e-01_rb,0.22247e-01_rb,0.24766e-01_rb,0.14589e-01_rb /)\n      kbo(:, 2,36, 9) = (/ &\n        & 0.10537e-02_rb,0.17833e-01_rb,0.25974e-01_rb,0.28911e-01_rb,0.17115e-01_rb /)\n      kbo(:, 3,36, 9) = (/ &\n        & 0.10795e-02_rb,0.20426e-01_rb,0.29904e-01_rb,0.33307e-01_rb,0.19875e-01_rb /)\n      kbo(:, 4,36, 9) = (/ &\n        & 0.11043e-02_rb,0.23131e-01_rb,0.33989e-01_rb,0.37917e-01_rb,0.22855e-01_rb /)\n      kbo(:, 5,36, 9) = (/ &\n        & 0.11288e-02_rb,0.25909e-01_rb,0.38197e-01_rb,0.42722e-01_rb,0.26026e-01_rb /)\n      kbo(:, 1,37, 9) = (/ &\n        & 0.85383e-03_rb,0.14679e-01_rb,0.21388e-01_rb,0.23897e-01_rb,0.13970e-01_rb /)\n      kbo(:, 2,37, 9) = (/ &\n        & 0.87682e-03_rb,0.17120e-01_rb,0.25115e-01_rb,0.28039e-01_rb,0.16489e-01_rb /)\n      kbo(:, 3,37, 9) = (/ &\n        & 0.89996e-03_rb,0.19721e-01_rb,0.29054e-01_rb,0.32436e-01_rb,0.19242e-01_rb /)\n      kbo(:, 4,37, 9) = (/ &\n        & 0.92246e-03_rb,0.22439e-01_rb,0.33150e-01_rb,0.37047e-01_rb,0.22217e-01_rb /)\n      kbo(:, 5,37, 9) = (/ &\n        & 0.94506e-03_rb,0.25234e-01_rb,0.37369e-01_rb,0.41852e-01_rb,0.25386e-01_rb /)\n      kbo(:, 1,38, 9) = (/ &\n        & 0.70953e-03_rb,0.14014e-01_rb,0.20566e-01_rb,0.23058e-01_rb,0.13383e-01_rb /)\n      kbo(:, 2,38, 9) = (/ &\n        & 0.73008e-03_rb,0.16455e-01_rb,0.24289e-01_rb,0.27191e-01_rb,0.15892e-01_rb /)\n      kbo(:, 3,38, 9) = (/ &\n        & 0.75050e-03_rb,0.19058e-01_rb,0.28230e-01_rb,0.31581e-01_rb,0.18633e-01_rb /)\n      kbo(:, 4,38, 9) = (/ &\n        & 0.77107e-03_rb,0.21784e-01_rb,0.32331e-01_rb,0.36184e-01_rb,0.21597e-01_rb /)\n      kbo(:, 5,38, 9) = (/ &\n        & 0.79117e-03_rb,0.24590e-01_rb,0.36557e-01_rb,0.40986e-01_rb,0.24760e-01_rb /)\n      kbo(:, 1,39, 9) = (/ &\n        & 0.58982e-03_rb,0.13410e-01_rb,0.19807e-01_rb,0.22275e-01_rb,0.12843e-01_rb /)\n      kbo(:, 2,39, 9) = (/ &\n        & 0.60777e-03_rb,0.15847e-01_rb,0.23520e-01_rb,0.26395e-01_rb,0.15340e-01_rb /)\n      kbo(:, 3,39, 9) = (/ &\n        & 0.62607e-03_rb,0.18449e-01_rb,0.27458e-01_rb,0.30773e-01_rb,0.18067e-01_rb /)\n      kbo(:, 4,39, 9) = (/ &\n        & 0.64471e-03_rb,0.21179e-01_rb,0.31559e-01_rb,0.35367e-01_rb,0.21018e-01_rb /)\n      kbo(:, 5,39, 9) = (/ &\n        & 0.66285e-03_rb,0.23994e-01_rb,0.35788e-01_rb,0.40160e-01_rb,0.24170e-01_rb /)\n      kbo(:, 1,40, 9) = (/ &\n        & 0.48914e-03_rb,0.12617e-01_rb,0.18733e-01_rb,0.21131e-01_rb,0.12100e-01_rb /)\n      kbo(:, 2,40, 9) = (/ &\n        & 0.50499e-03_rb,0.15028e-01_rb,0.22406e-01_rb,0.25206e-01_rb,0.14559e-01_rb /)\n      kbo(:, 3,40, 9) = (/ &\n        & 0.52119e-03_rb,0.17611e-01_rb,0.26314e-01_rb,0.29544e-01_rb,0.17245e-01_rb /)\n      kbo(:, 4,40, 9) = (/ &\n        & 0.53770e-03_rb,0.20330e-01_rb,0.30397e-01_rb,0.34103e-01_rb,0.20159e-01_rb /)\n      kbo(:, 5,40, 9) = (/ &\n        & 0.55398e-03_rb,0.23142e-01_rb,0.34616e-01_rb,0.38867e-01_rb,0.23278e-01_rb /)\n      kbo(:, 1,41, 9) = (/ &\n        & 0.40532e-03_rb,0.11840e-01_rb,0.17661e-01_rb,0.19981e-01_rb,0.11365e-01_rb /)\n      kbo(:, 2,41, 9) = (/ &\n        & 0.41916e-03_rb,0.14219e-01_rb,0.21285e-01_rb,0.24002e-01_rb,0.13782e-01_rb /)\n      kbo(:, 3,41, 9) = (/ &\n        & 0.43354e-03_rb,0.16775e-01_rb,0.25154e-01_rb,0.28292e-01_rb,0.16423e-01_rb /)\n      kbo(:, 4,41, 9) = (/ &\n        & 0.44807e-03_rb,0.19478e-01_rb,0.29214e-01_rb,0.32812e-01_rb,0.19291e-01_rb /)\n      kbo(:, 5,41, 9) = (/ &\n        & 0.46282e-03_rb,0.22283e-01_rb,0.33415e-01_rb,0.37538e-01_rb,0.22373e-01_rb /)\n      kbo(:, 1,42, 9) = (/ &\n        & 0.33573e-03_rb,0.11104e-01_rb,0.16634e-01_rb,0.18873e-01_rb,0.10664e-01_rb /)\n      kbo(:, 2,42, 9) = (/ &\n        & 0.34776e-03_rb,0.13446e-01_rb,0.20201e-01_rb,0.22835e-01_rb,0.13037e-01_rb /)\n      kbo(:, 3,42, 9) = (/ &\n        & 0.36046e-03_rb,0.15973e-01_rb,0.24027e-01_rb,0.27071e-01_rb,0.15631e-01_rb /)\n      kbo(:, 4,42, 9) = (/ &\n        & 0.37344e-03_rb,0.18654e-01_rb,0.28057e-01_rb,0.31550e-01_rb,0.18451e-01_rb /)\n      kbo(:, 5,42, 9) = (/ &\n        & 0.38663e-03_rb,0.21448e-01_rb,0.32235e-01_rb,0.36231e-01_rb,0.21492e-01_rb /)\n      kbo(:, 1,43, 9) = (/ &\n        & 0.27733e-03_rb,0.10283e-01_rb,0.15460e-01_rb,0.17597e-01_rb,0.98707e-02_rb /)\n      kbo(:, 2,43, 9) = (/ &\n        & 0.28779e-03_rb,0.12571e-01_rb,0.18947e-01_rb,0.21473e-01_rb,0.12183e-01_rb /)\n      kbo(:, 3,43, 9) = (/ &\n        & 0.29891e-03_rb,0.15054e-01_rb,0.22712e-01_rb,0.25638e-01_rb,0.14718e-01_rb /)\n      kbo(:, 4,43, 9) = (/ &\n        & 0.31033e-03_rb,0.17702e-01_rb,0.26696e-01_rb,0.30055e-01_rb,0.17477e-01_rb /)\n      kbo(:, 5,43, 9) = (/ &\n        & 0.32200e-03_rb,0.20476e-01_rb,0.30841e-01_rb,0.34682e-01_rb,0.20459e-01_rb /)\n      kbo(:, 1,44, 9) = (/ &\n        & 0.22878e-03_rb,0.94499e-02_rb,0.14251e-01_rb,0.16276e-01_rb,0.90607e-02_rb /)\n      kbo(:, 2,44, 9) = (/ &\n        & 0.23775e-03_rb,0.11673e-01_rb,0.17646e-01_rb,0.20049e-01_rb,0.11303e-01_rb /)\n      kbo(:, 3,44, 9) = (/ &\n        & 0.24747e-03_rb,0.14106e-01_rb,0.21336e-01_rb,0.24135e-01_rb,0.13772e-01_rb /)\n      kbo(:, 4,44, 9) = (/ &\n        & 0.25755e-03_rb,0.16710e-01_rb,0.25261e-01_rb,0.28479e-01_rb,0.16464e-01_rb /)\n      kbo(:, 5,44, 9) = (/ &\n        & 0.26798e-03_rb,0.19454e-01_rb,0.29363e-01_rb,0.33046e-01_rb,0.19378e-01_rb /)\n      kbo(:, 1,45, 9) = (/ &\n        & 0.18849e-03_rb,0.86584e-02_rb,0.13096e-01_rb,0.15007e-01_rb,0.82904e-02_rb /)\n      kbo(:, 2,45, 9) = (/ &\n        & 0.19636e-03_rb,0.10814e-01_rb,0.16390e-01_rb,0.18672e-01_rb,0.10458e-01_rb /)\n      kbo(:, 3,45, 9) = (/ &\n        & 0.20470e-03_rb,0.13189e-01_rb,0.19995e-01_rb,0.22671e-01_rb,0.12861e-01_rb /)\n      kbo(:, 4,45, 9) = (/ &\n        & 0.21344e-03_rb,0.15746e-01_rb,0.23854e-01_rb,0.26936e-01_rb,0.15483e-01_rb /)\n      kbo(:, 5,45, 9) = (/ &\n        & 0.22266e-03_rb,0.18454e-01_rb,0.27912e-01_rb,0.31439e-01_rb,0.18328e-01_rb /)\n      kbo(:, 1,46, 9) = (/ &\n        & 0.15507e-03_rb,0.78632e-02_rb,0.11928e-01_rb,0.13712e-01_rb,0.75164e-02_rb /)\n      kbo(:, 2,46, 9) = (/ &\n        & 0.16179e-03_rb,0.99413e-02_rb,0.15104e-01_rb,0.17260e-01_rb,0.95985e-02_rb /)\n      kbo(:, 3,46, 9) = (/ &\n        & 0.16890e-03_rb,0.12249e-01_rb,0.18612e-01_rb,0.21154e-01_rb,0.11927e-01_rb /)\n      kbo(:, 4,46, 9) = (/ &\n        & 0.17659e-03_rb,0.14751e-01_rb,0.22394e-01_rb,0.25333e-01_rb,0.14476e-01_rb /)\n      kbo(:, 5,46, 9) = (/ &\n        & 0.18474e-03_rb,0.17415e-01_rb,0.26393e-01_rb,0.29761e-01_rb,0.17246e-01_rb /)\n      kbo(:, 1,47, 9) = (/ &\n        & 0.12726e-03_rb,0.70304e-02_rb,0.10696e-01_rb,0.12336e-01_rb,0.67029e-02_rb /)\n      kbo(:, 2,47, 9) = (/ &\n        & 0.13291e-03_rb,0.90171e-02_rb,0.13730e-01_rb,0.15745e-01_rb,0.86863e-02_rb /)\n      kbo(:, 3,47, 9) = (/ &\n        & 0.13906e-03_rb,0.11243e-01_rb,0.17120e-01_rb,0.19510e-01_rb,0.10925e-01_rb /)\n      kbo(:, 4,47, 9) = (/ &\n        & 0.14561e-03_rb,0.13678e-01_rb,0.20805e-01_rb,0.23588e-01_rb,0.13392e-01_rb /)\n      kbo(:, 5,47, 9) = (/ &\n        & 0.15268e-03_rb,0.16286e-01_rb,0.24728e-01_rb,0.27924e-01_rb,0.16077e-01_rb /)\n      kbo(:, 1,48, 9) = (/ &\n        & 0.10430e-03_rb,0.62479e-02_rb,0.95325e-02_rb,0.11029e-01_rb,0.59380e-02_rb /)\n      kbo(:, 2,48, 9) = (/ &\n        & 0.10909e-03_rb,0.81380e-02_rb,0.12419e-01_rb,0.14291e-01_rb,0.78205e-02_rb /)\n      kbo(:, 3,48, 9) = (/ &\n        & 0.11429e-03_rb,0.10277e-01_rb,0.15680e-01_rb,0.17922e-01_rb,0.99641e-02_rb /)\n      kbo(:, 4,48, 9) = (/ &\n        & 0.11996e-03_rb,0.12637e-01_rb,0.19259e-01_rb,0.21888e-01_rb,0.12347e-01_rb /)\n      kbo(:, 5,48, 9) = (/ &\n        & 0.12611e-03_rb,0.15183e-01_rb,0.23095e-01_rb,0.26125e-01_rb,0.14947e-01_rb /)\n      kbo(:, 1,49, 9) = (/ &\n        & 0.85361e-04_rb,0.55178e-02_rb,0.84413e-02_rb,0.97939e-02_rb,0.52224e-02_rb /)\n      kbo(:, 2,49, 9) = (/ &\n        & 0.89682e-04_rb,0.73124e-02_rb,0.11182e-01_rb,0.12906e-01_rb,0.70024e-02_rb /)\n      kbo(:, 3,49, 9) = (/ &\n        & 0.93818e-04_rb,0.93518e-02_rb,0.14295e-01_rb,0.16393e-01_rb,0.90454e-02_rb /)\n      kbo(:, 4,49, 9) = (/ &\n        & 0.98731e-04_rb,0.11631e-01_rb,0.17758e-01_rb,0.20234e-01_rb,0.11339e-01_rb /)\n      kbo(:, 5,49, 9) = (/ &\n        & 0.10398e-03_rb,0.14111e-01_rb,0.21502e-01_rb,0.24370e-01_rb,0.13856e-01_rb /)\n      kbo(:, 1,50, 9) = (/ &\n        & 0.70068e-04_rb,0.48843e-02_rb,0.74862e-02_rb,0.87029e-02_rb,0.45961e-02_rb /)\n      kbo(:, 2,50, 9) = (/ &\n        & 0.73528e-04_rb,0.65706e-02_rb,0.10074e-01_rb,0.11661e-01_rb,0.62737e-02_rb /)\n      kbo(:, 3,50, 9) = (/ &\n        & 0.77377e-04_rb,0.85288e-02_rb,0.13057e-01_rb,0.15019e-01_rb,0.82236e-02_rb /)\n      kbo(:, 4,50, 9) = (/ &\n        & 0.81195e-04_rb,0.10720e-01_rb,0.16396e-01_rb,0.18728e-01_rb,0.10428e-01_rb /)\n      kbo(:, 5,50, 9) = (/ &\n        & 0.85703e-04_rb,0.13133e-01_rb,0.20042e-01_rb,0.22765e-01_rb,0.12867e-01_rb /)\n      kbo(:, 1,51, 9) = (/ &\n        & 0.57383e-04_rb,0.43058e-02_rb,0.66126e-02_rb,0.77023e-02_rb,0.40299e-02_rb /)\n      kbo(:, 2,51, 9) = (/ &\n        & 0.60290e-04_rb,0.58916e-02_rb,0.90543e-02_rb,0.10509e-01_rb,0.56057e-02_rb /)\n      kbo(:, 3,51, 9) = (/ &\n        & 0.63513e-04_rb,0.77586e-02_rb,0.11901e-01_rb,0.13729e-01_rb,0.74620e-02_rb /)\n      kbo(:, 4,51, 9) = (/ &\n        & 0.66727e-04_rb,0.98672e-02_rb,0.15116e-01_rb,0.17314e-01_rb,0.95779e-02_rb /)\n      kbo(:, 5,51, 9) = (/ &\n        & 0.70598e-04_rb,0.12209e-01_rb,0.18661e-01_rb,0.21244e-01_rb,0.11938e-01_rb /)\n      kbo(:, 1,52, 9) = (/ &\n        & 0.46933e-04_rb,0.37683e-02_rb,0.57987e-02_rb,0.67684e-02_rb,0.35066e-02_rb /)\n      kbo(:, 2,52, 9) = (/ &\n        & 0.49374e-04_rb,0.52554e-02_rb,0.80944e-02_rb,0.94163e-02_rb,0.49785e-02_rb /)\n      kbo(:, 3,52, 9) = (/ &\n        & 0.52069e-04_rb,0.70251e-02_rb,0.10799e-01_rb,0.12493e-01_rb,0.67384e-02_rb /)\n      kbo(:, 4,52, 9) = (/ &\n        & 0.55066e-04_rb,0.90579e-02_rb,0.13892e-01_rb,0.15957e-01_rb,0.87644e-02_rb /)\n      kbo(:, 5,52, 9) = (/ &\n        & 0.58094e-04_rb,0.11314e-01_rb,0.17321e-01_rb,0.19762e-01_rb,0.11039e-01_rb /)\n      kbo(:, 1,53, 9) = (/ &\n        & 0.38369e-04_rb,0.32705e-02_rb,0.50428e-02_rb,0.58997e-02_rb,0.30250e-02_rb /)\n      kbo(:, 2,53, 9) = (/ &\n        & 0.40389e-04_rb,0.46579e-02_rb,0.71882e-02_rb,0.83794e-02_rb,0.43908e-02_rb /)\n      kbo(:, 3,53, 9) = (/ &\n        & 0.42656e-04_rb,0.63275e-02_rb,0.97486e-02_rb,0.11308e-01_rb,0.60500e-02_rb /)\n      kbo(:, 4,53, 9) = (/ &\n        & 0.45173e-04_rb,0.82714e-02_rb,0.12706e-01_rb,0.14639e-01_rb,0.79824e-02_rb /)\n      kbo(:, 5,53, 9) = (/ &\n        & 0.47733e-04_rb,0.10447e-01_rb,0.16018e-01_rb,0.18320e-01_rb,0.10170e-01_rb /)\n      kbo(:, 1,54, 9) = (/ &\n        & 0.31373e-04_rb,0.28489e-02_rb,0.44023e-02_rb,0.51602e-02_rb,0.26198e-02_rb /)\n      kbo(:, 2,54, 9) = (/ &\n        & 0.33072e-04_rb,0.41448e-02_rb,0.64072e-02_rb,0.74821e-02_rb,0.38868e-02_rb /)\n      kbo(:, 3,54, 9) = (/ &\n        & 0.34962e-04_rb,0.57219e-02_rb,0.88331e-02_rb,0.10271e-01_rb,0.54518e-02_rb /)\n      kbo(:, 4,54, 9) = (/ &\n        & 0.37073e-04_rb,0.75801e-02_rb,0.11663e-01_rb,0.13472e-01_rb,0.72975e-02_rb /)\n      kbo(:, 5,54, 9) = (/ &\n        & 0.39224e-04_rb,0.96795e-02_rb,0.14861e-01_rb,0.17039e-01_rb,0.94030e-02_rb /)\n      kbo(:, 1,55, 9) = (/ &\n        & 0.25649e-04_rb,0.24774e-02_rb,0.38358e-02_rb,0.45027e-02_rb,0.22635e-02_rb /)\n      kbo(:, 2,55, 9) = (/ &\n        & 0.27065e-04_rb,0.36831e-02_rb,0.57040e-02_rb,0.66733e-02_rb,0.34361e-02_rb /)\n      kbo(:, 3,55, 9) = (/ &\n        & 0.28649e-04_rb,0.51728e-02_rb,0.80003e-02_rb,0.93199e-02_rb,0.49087e-02_rb /)\n      kbo(:, 4,55, 9) = (/ &\n        & 0.30419e-04_rb,0.69443e-02_rb,0.10704e-01_rb,0.12395e-01_rb,0.66688e-02_rb /)\n      kbo(:, 5,55, 9) = (/ &\n        & 0.32478e-04_rb,0.89781e-02_rb,0.13794e-01_rb,0.15856e-01_rb,0.86947e-02_rb /)\n      kbo(:, 1,56, 9) = (/ &\n        & 0.20960e-04_rb,0.21374e-02_rb,0.33161e-02_rb,0.38972e-02_rb,0.19394e-02_rb /)\n      kbo(:, 2,56, 9) = (/ &\n        & 0.22130e-04_rb,0.32530e-02_rb,0.50471e-02_rb,0.59166e-02_rb,0.30185e-02_rb /)\n      kbo(:, 3,56, 9) = (/ &\n        & 0.23455e-04_rb,0.46545e-02_rb,0.72105e-02_rb,0.84156e-02_rb,0.43975e-02_rb /)\n      kbo(:, 4,56, 9) = (/ &\n        & 0.24958e-04_rb,0.63377e-02_rb,0.97876e-02_rb,0.11360e-01_rb,0.60688e-02_rb /)\n      kbo(:, 5,56, 9) = (/ &\n        & 0.26672e-04_rb,0.82933e-02_rb,0.12759e-01_rb,0.14704e-01_rb,0.80123e-02_rb /)\n      kbo(:, 1,57, 9) = (/ &\n        & 0.17108e-04_rb,0.18275e-02_rb,0.28407e-02_rb,0.33429e-02_rb,0.16463e-02_rb /)\n      kbo(:, 2,57, 9) = (/ &\n        & 0.18082e-04_rb,0.28535e-02_rb,0.44360e-02_rb,0.52097e-02_rb,0.26326e-02_rb /)\n      kbo(:, 3,57, 9) = (/ &\n        & 0.19184e-04_rb,0.41668e-02_rb,0.64646e-02_rb,0.75572e-02_rb,0.39170e-02_rb /)\n      kbo(:, 4,57, 9) = (/ &\n        & 0.20446e-04_rb,0.57610e-02_rb,0.89128e-02_rb,0.10368e-01_rb,0.54979e-02_rb /)\n      kbo(:, 5,57, 9) = (/ &\n        & 0.21854e-04_rb,0.76342e-02_rb,0.11762e-01_rb,0.13588e-01_rb,0.73577e-02_rb /)\n      kbo(:, 1,58, 9) = (/ &\n        & 0.13963e-04_rb,0.15602e-02_rb,0.24292e-02_rb,0.28638e-02_rb,0.13965e-02_rb /)\n      kbo(:, 2,58, 9) = (/ &\n        & 0.14773e-04_rb,0.25031e-02_rb,0.38984e-02_rb,0.45849e-02_rb,0.22957e-02_rb /)\n      kbo(:, 3,58, 9) = (/ &\n        & 0.15698e-04_rb,0.37311e-02_rb,0.57975e-02_rb,0.67885e-02_rb,0.34899e-02_rb /)\n      kbo(:, 4,58, 9) = (/ &\n        & 0.16731e-04_rb,0.52413e-02_rb,0.81221e-02_rb,0.94657e-02_rb,0.49831e-02_rb /)\n      kbo(:, 5,58, 9) = (/ &\n        & 0.17926e-04_rb,0.70329e-02_rb,0.10852e-01_rb,0.12566e-01_rb,0.67622e-02_rb /)\n      kbo(:, 1,59, 9) = (/ &\n        & 0.11515e-04_rb,0.14557e-02_rb,0.22712e-02_rb,0.26808e-02_rb,0.13001e-02_rb /)\n      kbo(:, 2,59, 9) = (/ &\n        & 0.12194e-04_rb,0.23665e-02_rb,0.36913e-02_rb,0.43444e-02_rb,0.21654e-02_rb /)\n      kbo(:, 3,59, 9) = (/ &\n        & 0.12975e-04_rb,0.35608e-02_rb,0.55385e-02_rb,0.64911e-02_rb,0.33241e-02_rb /)\n      kbo(:, 4,59, 9) = (/ &\n        & 0.13854e-04_rb,0.50382e-02_rb,0.78142e-02_rb,0.91137e-02_rb,0.47825e-02_rb /)\n      kbo(:, 5,59, 9) = (/ &\n        & 0.14890e-04_rb,0.67966e-02_rb,0.10497e-01_rb,0.12166e-01_rb,0.65291e-02_rb /)\n      kbo(:, 1,13,10) = (/ &\n        & 0.23136e+00_rb,0.35590e+00_rb,0.41705e+00_rb,0.42838e+00_rb,0.34405e+00_rb /)\n      kbo(:, 2,13,10) = (/ &\n        & 0.23570e+00_rb,0.35573e+00_rb,0.41855e+00_rb,0.43318e+00_rb,0.34979e+00_rb /)\n      kbo(:, 3,13,10) = (/ &\n        & 0.23997e+00_rb,0.35949e+00_rb,0.42029e+00_rb,0.43813e+00_rb,0.35426e+00_rb /)\n      kbo(:, 4,13,10) = (/ &\n        & 0.24492e+00_rb,0.36590e+00_rb,0.42350e+00_rb,0.44177e+00_rb,0.35947e+00_rb /)\n      kbo(:, 5,13,10) = (/ &\n        & 0.25202e+00_rb,0.37242e+00_rb,0.42924e+00_rb,0.44467e+00_rb,0.36481e+00_rb /)\n      kbo(:, 1,14,10) = (/ &\n        & 0.20433e+00_rb,0.32280e+00_rb,0.38114e+00_rb,0.39530e+00_rb,0.30987e+00_rb /)\n      kbo(:, 2,14,10) = (/ &\n        & 0.20812e+00_rb,0.32580e+00_rb,0.38400e+00_rb,0.40099e+00_rb,0.31521e+00_rb /)\n      kbo(:, 3,14,10) = (/ &\n        & 0.21260e+00_rb,0.33207e+00_rb,0.38794e+00_rb,0.40573e+00_rb,0.32135e+00_rb /)\n      kbo(:, 4,14,10) = (/ &\n        & 0.21971e+00_rb,0.33857e+00_rb,0.39426e+00_rb,0.40959e+00_rb,0.32811e+00_rb /)\n      kbo(:, 5,14,10) = (/ &\n        & 0.22862e+00_rb,0.34522e+00_rb,0.40235e+00_rb,0.41376e+00_rb,0.33439e+00_rb /)\n      kbo(:, 1,15,10) = (/ &\n        & 0.17974e+00_rb,0.29385e+00_rb,0.34710e+00_rb,0.36214e+00_rb,0.27698e+00_rb /)\n      kbo(:, 2,15,10) = (/ &\n        & 0.18361e+00_rb,0.29985e+00_rb,0.35176e+00_rb,0.36835e+00_rb,0.28361e+00_rb /)\n      kbo(:, 3,15,10) = (/ &\n        & 0.19011e+00_rb,0.30650e+00_rb,0.35844e+00_rb,0.37336e+00_rb,0.29140e+00_rb /)\n      kbo(:, 4,15,10) = (/ &\n        & 0.19870e+00_rb,0.31340e+00_rb,0.36676e+00_rb,0.37856e+00_rb,0.29913e+00_rb /)\n      kbo(:, 5,15,10) = (/ &\n        & 0.20713e+00_rb,0.32067e+00_rb,0.37517e+00_rb,0.38452e+00_rb,0.30673e+00_rb /)\n      kbo(:, 1,16,10) = (/ &\n        & 0.15768e+00_rb,0.26909e+00_rb,0.31566e+00_rb,0.32905e+00_rb,0.24795e+00_rb /)\n      kbo(:, 2,16,10) = (/ &\n        & 0.16341e+00_rb,0.27579e+00_rb,0.32257e+00_rb,0.33542e+00_rb,0.25593e+00_rb /)\n      kbo(:, 3,16,10) = (/ &\n        & 0.17143e+00_rb,0.28283e+00_rb,0.33152e+00_rb,0.34164e+00_rb,0.26468e+00_rb /)\n      kbo(:, 4,16,10) = (/ &\n        & 0.17943e+00_rb,0.29026e+00_rb,0.34054e+00_rb,0.34897e+00_rb,0.27328e+00_rb /)\n      kbo(:, 5,16,10) = (/ &\n        & 0.18690e+00_rb,0.29935e+00_rb,0.34954e+00_rb,0.35767e+00_rb,0.28225e+00_rb /)\n      kbo(:, 1,17,10) = (/ &\n        & 0.13875e+00_rb,0.24652e+00_rb,0.28696e+00_rb,0.29693e+00_rb,0.22321e+00_rb /)\n      kbo(:, 2,17,10) = (/ &\n        & 0.14611e+00_rb,0.25366e+00_rb,0.29630e+00_rb,0.30411e+00_rb,0.23216e+00_rb /)\n      kbo(:, 3,17,10) = (/ &\n        & 0.15377e+00_rb,0.26122e+00_rb,0.30597e+00_rb,0.31229e+00_rb,0.24127e+00_rb /)\n      kbo(:, 4,17,10) = (/ &\n        & 0.16099e+00_rb,0.27029e+00_rb,0.31565e+00_rb,0.32218e+00_rb,0.25077e+00_rb /)\n      kbo(:, 5,17,10) = (/ &\n        & 0.16791e+00_rb,0.28100e+00_rb,0.32533e+00_rb,0.33316e+00_rb,0.26091e+00_rb /)\n      kbo(:, 1,18,10) = (/ &\n        & 0.12258e+00_rb,0.22568e+00_rb,0.26154e+00_rb,0.26746e+00_rb,0.20208e+00_rb /)\n      kbo(:, 2,18,10) = (/ &\n        & 0.12972e+00_rb,0.23340e+00_rb,0.27183e+00_rb,0.27607e+00_rb,0.21144e+00_rb /)\n      kbo(:, 3,18,10) = (/ &\n        & 0.13673e+00_rb,0.24228e+00_rb,0.28202e+00_rb,0.28661e+00_rb,0.22093e+00_rb /)\n      kbo(:, 4,18,10) = (/ &\n        & 0.14352e+00_rb,0.25285e+00_rb,0.29256e+00_rb,0.29859e+00_rb,0.23121e+00_rb /)\n      kbo(:, 5,18,10) = (/ &\n        & 0.14999e+00_rb,0.26447e+00_rb,0.30340e+00_rb,0.31163e+00_rb,0.24203e+00_rb /)\n      kbo(:, 1,19,10) = (/ &\n        & 0.10785e+00_rb,0.20667e+00_rb,0.23879e+00_rb,0.24194e+00_rb,0.18368e+00_rb /)\n      kbo(:, 2,19,10) = (/ &\n        & 0.11429e+00_rb,0.21546e+00_rb,0.24926e+00_rb,0.25235e+00_rb,0.19325e+00_rb /)\n      kbo(:, 3,19,10) = (/ &\n        & 0.12064e+00_rb,0.22577e+00_rb,0.26022e+00_rb,0.26472e+00_rb,0.20338e+00_rb /)\n      kbo(:, 4,19,10) = (/ &\n        & 0.12700e+00_rb,0.23751e+00_rb,0.27175e+00_rb,0.27823e+00_rb,0.21416e+00_rb /)\n      kbo(:, 5,19,10) = (/ &\n        & 0.13335e+00_rb,0.24924e+00_rb,0.28423e+00_rb,0.29239e+00_rb,0.22548e+00_rb /)\n      kbo(:, 1,20,10) = (/ &\n        & 0.94314e-01_rb,0.18969e+00_rb,0.21843e+00_rb,0.22089e+00_rb,0.16767e+00_rb /)\n      kbo(:, 2,20,10) = (/ &\n        & 0.10011e+00_rb,0.20009e+00_rb,0.22938e+00_rb,0.23290e+00_rb,0.17759e+00_rb /)\n      kbo(:, 3,20,10) = (/ &\n        & 0.10602e+00_rb,0.21171e+00_rb,0.24114e+00_rb,0.24650e+00_rb,0.18815e+00_rb /)\n      kbo(:, 4,20,10) = (/ &\n        & 0.11212e+00_rb,0.22366e+00_rb,0.25410e+00_rb,0.26076e+00_rb,0.19951e+00_rb /)\n      kbo(:, 5,20,10) = (/ &\n        & 0.11820e+00_rb,0.23566e+00_rb,0.26816e+00_rb,0.27572e+00_rb,0.21140e+00_rb /)\n      kbo(:, 1,21,10) = (/ &\n        & 0.82096e-01_rb,0.17498e+00_rb,0.20057e+00_rb,0.20349e+00_rb,0.15368e+00_rb /)\n      kbo(:, 2,21,10) = (/ &\n        & 0.87376e-01_rb,0.18671e+00_rb,0.21217e+00_rb,0.21678e+00_rb,0.16394e+00_rb /)\n      kbo(:, 3,21,10) = (/ &\n        & 0.92996e-01_rb,0.19901e+00_rb,0.22527e+00_rb,0.23088e+00_rb,0.17505e+00_rb /)\n      kbo(:, 4,21,10) = (/ &\n        & 0.98752e-01_rb,0.21131e+00_rb,0.23942e+00_rb,0.24575e+00_rb,0.18685e+00_rb /)\n      kbo(:, 5,21,10) = (/ &\n        & 0.10451e+00_rb,0.22356e+00_rb,0.25490e+00_rb,0.26152e+00_rb,0.19924e+00_rb /)\n      kbo(:, 1,22,10) = (/ &\n        & 0.71578e-01_rb,0.16309e+00_rb,0.18609e+00_rb,0.19018e+00_rb,0.14217e+00_rb /)\n      kbo(:, 2,22,10) = (/ &\n        & 0.76626e-01_rb,0.17564e+00_rb,0.19884e+00_rb,0.20398e+00_rb,0.15291e+00_rb /)\n      kbo(:, 3,22,10) = (/ &\n        & 0.81885e-01_rb,0.18840e+00_rb,0.21309e+00_rb,0.21858e+00_rb,0.16461e+00_rb /)\n      kbo(:, 4,22,10) = (/ &\n        & 0.87223e-01_rb,0.20113e+00_rb,0.22859e+00_rb,0.23430e+00_rb,0.17688e+00_rb /)\n      kbo(:, 5,22,10) = (/ &\n        & 0.92500e-01_rb,0.21374e+00_rb,0.24532e+00_rb,0.25104e+00_rb,0.18976e+00_rb /)\n      kbo(:, 1,23,10) = (/ &\n        & 0.62506e-01_rb,0.15298e+00_rb,0.17442e+00_rb,0.17913e+00_rb,0.13258e+00_rb /)\n      kbo(:, 2,23,10) = (/ &\n        & 0.67194e-01_rb,0.16597e+00_rb,0.18829e+00_rb,0.19340e+00_rb,0.14391e+00_rb /)\n      kbo(:, 3,23,10) = (/ &\n        & 0.72099e-01_rb,0.17922e+00_rb,0.20360e+00_rb,0.20869e+00_rb,0.15600e+00_rb /)\n      kbo(:, 4,23,10) = (/ &\n        & 0.77023e-01_rb,0.19243e+00_rb,0.22032e+00_rb,0.22532e+00_rb,0.16873e+00_rb /)\n      kbo(:, 5,23,10) = (/ &\n        & 0.81629e-01_rb,0.20537e+00_rb,0.23792e+00_rb,0.24291e+00_rb,0.18203e+00_rb /)\n      kbo(:, 1,24,10) = (/ &\n        & 0.54705e-01_rb,0.14435e+00_rb,0.16539e+00_rb,0.17004e+00_rb,0.12479e+00_rb /)\n      kbo(:, 2,24,10) = (/ &\n        & 0.59055e-01_rb,0.15781e+00_rb,0.18024e+00_rb,0.18505e+00_rb,0.13663e+00_rb /)\n      kbo(:, 3,24,10) = (/ &\n        & 0.63456e-01_rb,0.17157e+00_rb,0.19662e+00_rb,0.20113e+00_rb,0.14915e+00_rb /)\n      kbo(:, 4,24,10) = (/ &\n        & 0.67778e-01_rb,0.18520e+00_rb,0.21409e+00_rb,0.21860e+00_rb,0.16222e+00_rb /)\n      kbo(:, 5,24,10) = (/ &\n        & 0.71741e-01_rb,0.19852e+00_rb,0.23252e+00_rb,0.23726e+00_rb,0.17594e+00_rb /)\n      kbo(:, 1,25,10) = (/ &\n        & 0.47972e-01_rb,0.13725e+00_rb,0.15860e+00_rb,0.16297e+00_rb,0.11866e+00_rb /)\n      kbo(:, 2,25,10) = (/ &\n        & 0.51893e-01_rb,0.15121e+00_rb,0.17443e+00_rb,0.17877e+00_rb,0.13085e+00_rb /)\n      kbo(:, 3,25,10) = (/ &\n        & 0.55832e-01_rb,0.16535e+00_rb,0.19157e+00_rb,0.19578e+00_rb,0.14380e+00_rb /)\n      kbo(:, 4,25,10) = (/ &\n        & 0.59570e-01_rb,0.17943e+00_rb,0.20993e+00_rb,0.21423e+00_rb,0.15728e+00_rb /)\n      kbo(:, 5,25,10) = (/ &\n        & 0.62996e-01_rb,0.19323e+00_rb,0.22909e+00_rb,0.23401e+00_rb,0.17147e+00_rb /)\n      kbo(:, 1,26,10) = (/ &\n        & 0.42166e-01_rb,0.13173e+00_rb,0.15395e+00_rb,0.15801e+00_rb,0.11401e+00_rb /)\n      kbo(:, 2,26,10) = (/ &\n        & 0.45660e-01_rb,0.14616e+00_rb,0.17062e+00_rb,0.17468e+00_rb,0.12664e+00_rb /)\n      kbo(:, 3,26,10) = (/ &\n        & 0.49079e-01_rb,0.16071e+00_rb,0.18859e+00_rb,0.19278e+00_rb,0.14002e+00_rb /)\n      kbo(:, 4,26,10) = (/ &\n        & 0.52306e-01_rb,0.17521e+00_rb,0.20782e+00_rb,0.21223e+00_rb,0.15402e+00_rb /)\n      kbo(:, 5,26,10) = (/ &\n        & 0.55285e-01_rb,0.18955e+00_rb,0.22765e+00_rb,0.23299e+00_rb,0.16864e+00_rb /)\n      kbo(:, 1,27,10) = (/ &\n        & 0.37040e-01_rb,0.12755e+00_rb,0.15088e+00_rb,0.15474e+00_rb,0.11059e+00_rb /)\n      kbo(:, 2,27,10) = (/ &\n        & 0.40121e-01_rb,0.14241e+00_rb,0.16845e+00_rb,0.17243e+00_rb,0.12369e+00_rb /)\n      kbo(:, 3,27,10) = (/ &\n        & 0.43101e-01_rb,0.15742e+00_rb,0.18726e+00_rb,0.19156e+00_rb,0.13753e+00_rb /)\n      kbo(:, 4,27,10) = (/ &\n        & 0.45931e-01_rb,0.17241e+00_rb,0.20722e+00_rb,0.21200e+00_rb,0.15204e+00_rb /)\n      kbo(:, 5,27,10) = (/ &\n        & 0.48598e-01_rb,0.18733e+00_rb,0.22772e+00_rb,0.23361e+00_rb,0.16711e+00_rb /)\n      kbo(:, 1,28,10) = (/ &\n        & 0.32582e-01_rb,0.12457e+00_rb,0.14931e+00_rb,0.15310e+00_rb,0.10829e+00_rb /)\n      kbo(:, 2,28,10) = (/ &\n        & 0.35269e-01_rb,0.13987e+00_rb,0.16776e+00_rb,0.17185e+00_rb,0.12185e+00_rb /)\n      kbo(:, 3,28,10) = (/ &\n        & 0.37905e-01_rb,0.15538e+00_rb,0.18740e+00_rb,0.19192e+00_rb,0.13621e+00_rb /)\n      kbo(:, 4,28,10) = (/ &\n        & 0.40411e-01_rb,0.17101e+00_rb,0.20797e+00_rb,0.21319e+00_rb,0.15122e+00_rb /)\n      kbo(:, 5,28,10) = (/ &\n        & 0.42843e-01_rb,0.18643e+00_rb,0.22906e+00_rb,0.23551e+00_rb,0.16683e+00_rb /)\n      kbo(:, 1,29,10) = (/ &\n        & 0.28694e-01_rb,0.12285e+00_rb,0.14922e+00_rb,0.15309e+00_rb,0.10715e+00_rb /)\n      kbo(:, 2,29,10) = (/ &\n        & 0.31078e-01_rb,0.13867e+00_rb,0.16851e+00_rb,0.17281e+00_rb,0.12115e+00_rb /)\n      kbo(:, 3,29,10) = (/ &\n        & 0.33398e-01_rb,0.15475e+00_rb,0.18886e+00_rb,0.19373e+00_rb,0.13609e+00_rb /)\n      kbo(:, 4,29,10) = (/ &\n        & 0.35655e-01_rb,0.17087e+00_rb,0.21002e+00_rb,0.21569e+00_rb,0.15161e+00_rb /)\n      kbo(:, 5,29,10) = (/ &\n        & 0.37934e-01_rb,0.18672e+00_rb,0.23156e+00_rb,0.23855e+00_rb,0.16767e+00_rb /)\n      kbo(:, 1,30,10) = (/ &\n        & 0.25318e-01_rb,0.12223e+00_rb,0.15038e+00_rb,0.15442e+00_rb,0.10692e+00_rb /)\n      kbo(:, 2,30,10) = (/ &\n        & 0.27416e-01_rb,0.13863e+00_rb,0.17040e+00_rb,0.17493e+00_rb,0.12146e+00_rb /)\n      kbo(:, 3,30,10) = (/ &\n        & 0.29487e-01_rb,0.15524e+00_rb,0.19136e+00_rb,0.19656e+00_rb,0.13693e+00_rb /)\n      kbo(:, 4,30,10) = (/ &\n        & 0.31585e-01_rb,0.17178e+00_rb,0.21298e+00_rb,0.21911e+00_rb,0.15294e+00_rb /)\n      kbo(:, 5,30,10) = (/ &\n        & 0.33743e-01_rb,0.18794e+00_rb,0.23489e+00_rb,0.24234e+00_rb,0.16937e+00_rb /)\n      kbo(:, 1,31,10) = (/ &\n        & 0.22384e-01_rb,0.12276e+00_rb,0.15268e+00_rb,0.15694e+00_rb,0.10764e+00_rb /)\n      kbo(:, 2,31,10) = (/ &\n        & 0.24241e-01_rb,0.13972e+00_rb,0.17333e+00_rb,0.17809e+00_rb,0.12275e+00_rb /)\n      kbo(:, 3,31,10) = (/ &\n        & 0.26155e-01_rb,0.15678e+00_rb,0.19481e+00_rb,0.20028e+00_rb,0.13870e+00_rb /)\n      kbo(:, 4,31,10) = (/ &\n        & 0.28119e-01_rb,0.17362e+00_rb,0.21675e+00_rb,0.22330e+00_rb,0.15510e+00_rb /)\n      kbo(:, 5,31,10) = (/ &\n        & 0.30218e-01_rb,0.19000e+00_rb,0.23891e+00_rb,0.24680e+00_rb,0.17182e+00_rb /)\n      kbo(:, 1,32,10) = (/ &\n        & 0.19818e-01_rb,0.12431e+00_rb,0.15590e+00_rb,0.16037e+00_rb,0.10919e+00_rb /)\n      kbo(:, 2,32,10) = (/ &\n        & 0.21499e-01_rb,0.14174e+00_rb,0.17710e+00_rb,0.18207e+00_rb,0.12484e+00_rb /)\n      kbo(:, 3,32,10) = (/ &\n        & 0.23289e-01_rb,0.15910e+00_rb,0.19892e+00_rb,0.20468e+00_rb,0.14116e+00_rb /)\n      kbo(:, 4,32,10) = (/ &\n        & 0.25197e-01_rb,0.17612e+00_rb,0.22110e+00_rb,0.22808e+00_rb,0.15787e+00_rb /)\n      kbo(:, 5,32,10) = (/ &\n        & 0.27257e-01_rb,0.19267e+00_rb,0.24341e+00_rb,0.25172e+00_rb,0.17483e+00_rb /)\n      kbo(:, 1,33,10) = (/ &\n        & 0.17588e-01_rb,0.12670e+00_rb,0.15984e+00_rb,0.16448e+00_rb,0.11147e+00_rb /)\n      kbo(:, 2,33,10) = (/ &\n        & 0.19157e-01_rb,0.14450e+00_rb,0.18143e+00_rb,0.18665e+00_rb,0.12758e+00_rb /)\n      kbo(:, 3,33,10) = (/ &\n        & 0.20859e-01_rb,0.16204e+00_rb,0.20353e+00_rb,0.20957e+00_rb,0.14421e+00_rb /)\n      kbo(:, 4,33,10) = (/ &\n        & 0.22735e-01_rb,0.17915e+00_rb,0.22585e+00_rb,0.23324e+00_rb,0.16113e+00_rb /)\n      kbo(:, 5,33,10) = (/ &\n        & 0.24799e-01_rb,0.19574e+00_rb,0.24826e+00_rb,0.25697e+00_rb,0.17829e+00_rb /)\n      kbo(:, 1,34,10) = (/ &\n        & 0.15617e-01_rb,0.12913e+00_rb,0.16354e+00_rb,0.16830e+00_rb,0.11378e+00_rb /)\n      kbo(:, 2,34,10) = (/ &\n        & 0.17096e-01_rb,0.14716e+00_rb,0.18538e+00_rb,0.19084e+00_rb,0.13021e+00_rb /)\n      kbo(:, 3,34,10) = (/ &\n        & 0.18753e-01_rb,0.16482e+00_rb,0.20769e+00_rb,0.21402e+00_rb,0.14705e+00_rb /)\n      kbo(:, 4,34,10) = (/ &\n        & 0.20625e-01_rb,0.18194e+00_rb,0.23012e+00_rb,0.23784e+00_rb,0.16411e+00_rb /)\n      kbo(:, 5,34,10) = (/ &\n        & 0.22709e-01_rb,0.19848e+00_rb,0.25256e+00_rb,0.26160e+00_rb,0.18143e+00_rb /)\n      kbo(:, 1,35,10) = (/ &\n        & 0.13789e-01_rb,0.13026e+00_rb,0.16543e+00_rb,0.17032e+00_rb,0.11490e+00_rb /)\n      kbo(:, 2,35,10) = (/ &\n        & 0.15216e-01_rb,0.14846e+00_rb,0.18743e+00_rb,0.19307e+00_rb,0.13153e+00_rb /)\n      kbo(:, 3,35,10) = (/ &\n        & 0.16842e-01_rb,0.16621e+00_rb,0.20987e+00_rb,0.21641e+00_rb,0.14851e+00_rb /)\n      kbo(:, 4,35,10) = (/ &\n        & 0.18686e-01_rb,0.18333e+00_rb,0.23239e+00_rb,0.24032e+00_rb,0.16565e+00_rb /)\n      kbo(:, 5,35,10) = (/ &\n        & 0.20799e-01_rb,0.19983e+00_rb,0.25487e+00_rb,0.26409e+00_rb,0.18307e+00_rb /)\n      kbo(:, 1,36,10) = (/ &\n        & 0.12099e-01_rb,0.12969e+00_rb,0.16517e+00_rb,0.17011e+00_rb,0.11448e+00_rb /)\n      kbo(:, 2,36,10) = (/ &\n        & 0.13456e-01_rb,0.14803e+00_rb,0.18723e+00_rb,0.19293e+00_rb,0.13120e+00_rb /)\n      kbo(:, 3,36,10) = (/ &\n        & 0.15032e-01_rb,0.16587e+00_rb,0.20973e+00_rb,0.21635e+00_rb,0.14826e+00_rb /)\n      kbo(:, 4,36,10) = (/ &\n        & 0.16854e-01_rb,0.18305e+00_rb,0.23232e+00_rb,0.24032e+00_rb,0.16546e+00_rb /)\n      kbo(:, 5,36,10) = (/ &\n        & 0.18993e-01_rb,0.19959e+00_rb,0.25485e+00_rb,0.26414e+00_rb,0.18292e+00_rb /)\n      kbo(:, 1,37,10) = (/ &\n        & 0.10461e-01_rb,0.12652e+00_rb,0.16173e+00_rb,0.16663e+00_rb,0.11173e+00_rb /)\n      kbo(:, 2,37,10) = (/ &\n        & 0.11729e-01_rb,0.14498e+00_rb,0.18379e+00_rb,0.18940e+00_rb,0.12844e+00_rb /)\n      kbo(:, 3,37,10) = (/ &\n        & 0.13230e-01_rb,0.16298e+00_rb,0.20628e+00_rb,0.21278e+00_rb,0.14553e+00_rb /)\n      kbo(:, 4,37,10) = (/ &\n        & 0.15005e-01_rb,0.18033e+00_rb,0.22891e+00_rb,0.23679e+00_rb,0.16275e+00_rb /)\n      kbo(:, 5,37,10) = (/ &\n        & 0.17126e-01_rb,0.19699e+00_rb,0.25151e+00_rb,0.26065e+00_rb,0.18019e+00_rb /)\n      kbo(:, 1,38,10) = (/ &\n        & 0.90496e-02_rb,0.12333e+00_rb,0.15823e+00_rb,0.16307e+00_rb,0.10897e+00_rb /)\n      kbo(:, 2,38,10) = (/ &\n        & 0.10227e-01_rb,0.14188e+00_rb,0.18026e+00_rb,0.18578e+00_rb,0.12565e+00_rb /)\n      kbo(:, 3,38,10) = (/ &\n        & 0.11665e-01_rb,0.16002e+00_rb,0.20273e+00_rb,0.20911e+00_rb,0.14274e+00_rb /)\n      kbo(:, 4,38,10) = (/ &\n        & 0.13392e-01_rb,0.17754e+00_rb,0.22537e+00_rb,0.23309e+00_rb,0.15996e+00_rb /)\n      kbo(:, 5,38,10) = (/ &\n        & 0.15506e-01_rb,0.19433e+00_rb,0.24804e+00_rb,0.25702e+00_rb,0.17741e+00_rb /)\n      kbo(:, 1,39,10) = (/ &\n        & 0.78338e-02_rb,0.12027e+00_rb,0.15482e+00_rb,0.15961e+00_rb,0.10632e+00_rb /)\n      kbo(:, 2,39,10) = (/ &\n        & 0.89378e-02_rb,0.13888e+00_rb,0.17682e+00_rb,0.18224e+00_rb,0.12295e+00_rb /)\n      kbo(:, 3,39,10) = (/ &\n        & 0.10310e-01_rb,0.15714e+00_rb,0.19926e+00_rb,0.20553e+00_rb,0.14003e+00_rb /)\n      kbo(:, 4,39,10) = (/ &\n        & 0.12002e-01_rb,0.17480e+00_rb,0.22192e+00_rb,0.22947e+00_rb,0.15725e+00_rb /)\n      kbo(:, 5,39,10) = (/ &\n        & 0.14105e-01_rb,0.19172e+00_rb,0.24464e+00_rb,0.25344e+00_rb,0.17470e+00_rb /)\n      kbo(:, 1,40,10) = (/ &\n        & 0.66914e-02_rb,0.11542e+00_rb,0.14925e+00_rb,0.15395e+00_rb,0.10210e+00_rb /)\n      kbo(:, 2,40,10) = (/ &\n        & 0.77047e-02_rb,0.13403e+00_rb,0.17118e+00_rb,0.17643e+00_rb,0.11860e+00_rb /)\n      kbo(:, 3,40,10) = (/ &\n        & 0.89835e-02_rb,0.15246e+00_rb,0.19353e+00_rb,0.19961e+00_rb,0.13564e+00_rb /)\n      kbo(:, 4,40,10) = (/ &\n        & 0.10606e-01_rb,0.17030e+00_rb,0.21619e+00_rb,0.22340e+00_rb,0.15283e+00_rb /)\n      kbo(:, 5,40,10) = (/ &\n        & 0.12648e-01_rb,0.18743e+00_rb,0.23893e+00_rb,0.24746e+00_rb,0.17023e+00_rb /)\n      kbo(:, 1,41,10) = (/ &\n        & 0.57043e-02_rb,0.11041e+00_rb,0.14350e+00_rb,0.14812e+00_rb,0.97770e-01_rb /)\n      kbo(:, 2,41,10) = (/ &\n        & 0.66329e-02_rb,0.12897e+00_rb,0.16532e+00_rb,0.17041e+00_rb,0.11409e+00_rb /)\n      kbo(:, 3,41,10) = (/ &\n        & 0.78105e-02_rb,0.14755e+00_rb,0.18757e+00_rb,0.19344e+00_rb,0.13104e+00_rb /)\n      kbo(:, 4,41,10) = (/ &\n        & 0.93536e-02_rb,0.16558e+00_rb,0.21020e+00_rb,0.21707e+00_rb,0.14824e+00_rb /)\n      kbo(:, 5,41,10) = (/ &\n        & 0.11328e-01_rb,0.18290e+00_rb,0.23295e+00_rb,0.24119e+00_rb,0.16557e+00_rb /)\n      kbo(:, 1,42,10) = (/ &\n        & 0.48607e-02_rb,0.10547e+00_rb,0.13783e+00_rb,0.14238e+00_rb,0.93542e-01_rb /)\n      kbo(:, 2,42,10) = (/ &\n        & 0.56953e-02_rb,0.12396e+00_rb,0.15948e+00_rb,0.16442e+00_rb,0.10965e+00_rb /)\n      kbo(:, 3,42,10) = (/ &\n        & 0.67857e-02_rb,0.14262e+00_rb,0.18165e+00_rb,0.18732e+00_rb,0.12648e+00_rb /)\n      kbo(:, 4,42,10) = (/ &\n        & 0.82516e-02_rb,0.16083e+00_rb,0.20424e+00_rb,0.21080e+00_rb,0.14367e+00_rb /)\n      kbo(:, 5,42,10) = (/ &\n        & 0.10149e-01_rb,0.17836e+00_rb,0.22696e+00_rb,0.23490e+00_rb,0.16095e+00_rb /)\n      kbo(:, 1,43,10) = (/ &\n        & 0.40934e-02_rb,0.99600e-01_rb,0.13106e+00_rb,0.13554e+00_rb,0.88531e-01_rb /)\n      kbo(:, 2,43,10) = (/ &\n        & 0.48473e-02_rb,0.11796e+00_rb,0.15249e+00_rb,0.15728e+00_rb,0.10438e+00_rb /)\n      kbo(:, 3,43,10) = (/ &\n        & 0.58407e-02_rb,0.13665e+00_rb,0.17453e+00_rb,0.17995e+00_rb,0.12102e+00_rb /)\n      kbo(:, 4,43,10) = (/ &\n        & 0.71922e-02_rb,0.15505e+00_rb,0.19702e+00_rb,0.20328e+00_rb,0.13817e+00_rb /)\n      kbo(:, 5,43,10) = (/ &\n        & 0.89819e-02_rb,0.17282e+00_rb,0.21974e+00_rb,0.22722e+00_rb,0.15541e+00_rb /)\n      kbo(:, 1,44,10) = (/ &\n        & 0.34279e-02_rb,0.93376e-01_rb,0.12386e+00_rb,0.12828e+00_rb,0.83256e-01_rb /)\n      kbo(:, 2,44,10) = (/ &\n        & 0.40981e-02_rb,0.11153e+00_rb,0.14501e+00_rb,0.14969e+00_rb,0.98786e-01_rb /)\n      kbo(:, 3,44,10) = (/ &\n        & 0.49801e-02_rb,0.13017e+00_rb,0.16691e+00_rb,0.17209e+00_rb,0.11523e+00_rb /)\n      kbo(:, 4,44,10) = (/ &\n        & 0.62140e-02_rb,0.14877e+00_rb,0.18924e+00_rb,0.19525e+00_rb,0.13223e+00_rb /)\n      kbo(:, 5,44,10) = (/ &\n        & 0.78865e-02_rb,0.16678e+00_rb,0.21196e+00_rb,0.21896e+00_rb,0.14947e+00_rb /)\n      kbo(:, 1,45,10) = (/ &\n        & 0.28724e-02_rb,0.87295e-01_rb,0.11671e+00_rb,0.12114e+00_rb,0.78089e-01_rb /)\n      kbo(:, 2,45,10) = (/ &\n        & 0.34468e-02_rb,0.10517e+00_rb,0.13765e+00_rb,0.14225e+00_rb,0.93322e-01_rb /)\n      kbo(:, 3,45,10) = (/ &\n        & 0.42450e-02_rb,0.12371e+00_rb,0.15937e+00_rb,0.16431e+00_rb,0.10950e+00_rb /)\n      kbo(:, 4,45,10) = (/ &\n        & 0.53608e-02_rb,0.14242e+00_rb,0.18156e+00_rb,0.18727e+00_rb,0.12633e+00_rb /)\n      kbo(:, 5,45,10) = (/ &\n        & 0.69069e-02_rb,0.16067e+00_rb,0.20420e+00_rb,0.21079e+00_rb,0.14356e+00_rb /)\n      kbo(:, 1,46,10) = (/ &\n        & 0.23836e-02_rb,0.81023e-01_rb,0.10917e+00_rb,0.11375e+00_rb,0.72722e-01_rb /)\n      kbo(:, 2,46,10) = (/ &\n        & 0.28929e-02_rb,0.98528e-01_rb,0.12997e+00_rb,0.13446e+00_rb,0.87653e-01_rb /)\n      kbo(:, 3,46,10) = (/ &\n        & 0.35850e-02_rb,0.11690e+00_rb,0.15139e+00_rb,0.15617e+00_rb,0.10350e+00_rb /)\n      kbo(:, 4,46,10) = (/ &\n        & 0.45850e-02_rb,0.13564e+00_rb,0.17345e+00_rb,0.17887e+00_rb,0.12014e+00_rb /)\n      kbo(:, 5,46,10) = (/ &\n        & 0.59899e-02_rb,0.15409e+00_rb,0.19595e+00_rb,0.20220e+00_rb,0.13729e+00_rb /)\n      kbo(:, 1,47,10) = (/ &\n        & 0.19470e-02_rb,0.74238e-01_rb,0.10082e+00_rb,0.10569e+00_rb,0.66936e-01_rb /)\n      kbo(:, 2,47,10) = (/ &\n        & 0.23890e-02_rb,0.91244e-01_rb,0.12148e+00_rb,0.12591e+00_rb,0.81479e-01_rb /)\n      kbo(:, 3,47,10) = (/ &\n        & 0.29827e-02_rb,0.10934e+00_rb,0.14258e+00_rb,0.14724e+00_rb,0.96940e-01_rb /)\n      kbo(:, 4,47,10) = (/ &\n        & 0.38583e-02_rb,0.12800e+00_rb,0.16447e+00_rb,0.16958e+00_rb,0.11333e+00_rb /)\n      kbo(:, 5,47,10) = (/ &\n        & 0.51142e-02_rb,0.14666e+00_rb,0.18678e+00_rb,0.19270e+00_rb,0.13028e+00_rb /)\n      kbo(:, 1,48,10) = (/ &\n        & 0.15861e-02_rb,0.67739e-01_rb,0.92637e-01_rb,0.97854e-01_rb,0.61349e-01_rb /)\n      kbo(:, 2,48,10) = (/ &\n        & 0.19649e-02_rb,0.84157e-01_rb,0.11305e+00_rb,0.11755e+00_rb,0.75432e-01_rb /)\n      kbo(:, 3,48,10) = (/ &\n        & 0.24852e-02_rb,0.10189e+00_rb,0.13395e+00_rb,0.13849e+00_rb,0.90556e-01_rb /)\n      kbo(:, 4,48,10) = (/ &\n        & 0.32371e-02_rb,0.12039e+00_rb,0.15554e+00_rb,0.16041e+00_rb,0.10658e+00_rb /)\n      kbo(:, 5,48,10) = (/ &\n        & 0.43439e-02_rb,0.13914e+00_rb,0.17770e+00_rb,0.18327e+00_rb,0.12334e+00_rb /)\n      kbo(:, 1,49,10) = (/ &\n        & 0.12857e-02_rb,0.61441e-01_rb,0.84638e-01_rb,0.90184e-01_rb,0.55928e-01_rb /)\n      kbo(:, 2,49,10) = (/ &\n        & 0.16127e-02_rb,0.77337e-01_rb,0.10472e+00_rb,0.10945e+00_rb,0.69577e-01_rb /)\n      kbo(:, 3,49,10) = (/ &\n        & 0.20537e-02_rb,0.94575e-01_rb,0.12545e+00_rb,0.12989e+00_rb,0.84331e-01_rb /)\n      kbo(:, 4,49,10) = (/ &\n        & 0.26910e-02_rb,0.11284e+00_rb,0.14670e+00_rb,0.15143e+00_rb,0.99981e-01_rb /)\n      kbo(:, 5,49,10) = (/ &\n        & 0.36640e-02_rb,0.13156e+00_rb,0.16870e+00_rb,0.17395e+00_rb,0.11651e+00_rb /)\n      kbo(:, 1,50,10) = (/ &\n        & 0.10457e-02_rb,0.55773e-01_rb,0.77388e-01_rb,0.83215e-01_rb,0.51035e-01_rb /)\n      kbo(:, 2,50,10) = (/ &\n        & 0.13145e-02_rb,0.71139e-01_rb,0.96987e-01_rb,0.10202e+00_rb,0.64279e-01_rb /)\n      kbo(:, 3,50,10) = (/ &\n        & 0.17051e-02_rb,0.87902e-01_rb,0.11756e+00_rb,0.12199e+00_rb,0.78626e-01_rb /)\n      kbo(:, 4,50,10) = (/ &\n        & 0.22648e-02_rb,0.10582e+00_rb,0.13854e+00_rb,0.14317e+00_rb,0.93933e-01_rb /)\n      kbo(:, 5,50,10) = (/ &\n        & 0.31061e-02_rb,0.12442e+00_rb,0.16033e+00_rb,0.16532e+00_rb,0.11017e+00_rb /)\n      kbo(:, 1,51,10) = (/ &\n        & 0.84549e-03_rb,0.50472e-01_rb,0.70528e-01_rb,0.76615e-01_rb,0.46420e-01_rb /)\n      kbo(:, 2,51,10) = (/ &\n        & 0.10690e-02_rb,0.65329e-01_rb,0.89631e-01_rb,0.94967e-01_rb,0.59271e-01_rb /)\n      kbo(:, 3,51,10) = (/ &\n        & 0.14006e-02_rb,0.81572e-01_rb,0.10994e+00_rb,0.11450e+00_rb,0.73207e-01_rb /)\n      kbo(:, 4,51,10) = (/ &\n        & 0.18893e-02_rb,0.99123e-01_rb,0.13077e+00_rb,0.13529e+00_rb,0.88203e-01_rb /)\n      kbo(:, 5,51,10) = (/ &\n        & 0.26211e-02_rb,0.11756e+00_rb,0.15226e+00_rb,0.15707e+00_rb,0.10410e+00_rb /)\n      kbo(:, 1,52,10) = (/ &\n        & 0.67948e-03_rb,0.45452e-01_rb,0.63925e-01_rb,0.70191e-01_rb,0.41984e-01_rb /)\n      kbo(:, 2,52,10) = (/ &\n        & 0.86532e-03_rb,0.59697e-01_rb,0.82454e-01_rb,0.88085e-01_rb,0.54427e-01_rb /)\n      kbo(:, 3,52,10) = (/ &\n        & 0.11431e-02_rb,0.75434e-01_rb,0.10239e+00_rb,0.10721e+00_rb,0.67964e-01_rb /)\n      kbo(:, 4,52,10) = (/ &\n        & 0.15771e-02_rb,0.92585e-01_rb,0.12313e+00_rb,0.12757e+00_rb,0.82618e-01_rb /)\n      kbo(:, 5,52,10) = (/ &\n        & 0.22169e-02_rb,0.11074e+00_rb,0.14429e+00_rb,0.14899e+00_rb,0.98166e-01_rb /)\n      kbo(:, 1,53,10) = (/ &\n        & 0.54404e-03_rb,0.40689e-01_rb,0.57565e-01_rb,0.63870e-01_rb,0.37709e-01_rb /)\n      kbo(:, 2,53,10) = (/ &\n        & 0.69516e-03_rb,0.54249e-01_rb,0.75469e-01_rb,0.81366e-01_rb,0.49728e-01_rb /)\n      kbo(:, 3,53,10) = (/ &\n        & 0.92495e-03_rb,0.69505e-01_rb,0.94951e-01_rb,0.10007e+00_rb,0.62880e-01_rb /)\n      kbo(:, 4,53,10) = (/ &\n        & 0.12935e-02_rb,0.86139e-01_rb,0.11548e+00_rb,0.11993e+00_rb,0.77126e-01_rb /)\n      kbo(:, 5,53,10) = (/ &\n        & 0.18603e-02_rb,0.10397e+00_rb,0.13641e+00_rb,0.14102e+00_rb,0.92352e-01_rb /)\n      kbo(:, 1,54,10) = (/ &\n        & 0.43618e-03_rb,0.36557e-01_rb,0.51984e-01_rb,0.58236e-01_rb,0.33960e-01_rb /)\n      kbo(:, 2,54,10) = (/ &\n        & 0.56166e-03_rb,0.49456e-01_rb,0.69241e-01_rb,0.75371e-01_rb,0.45540e-01_rb /)\n      kbo(:, 3,54,10) = (/ &\n        & 0.75035e-03_rb,0.64217e-01_rb,0.88252e-01_rb,0.93648e-01_rb,0.58325e-01_rb /)\n      kbo(:, 4,54,10) = (/ &\n        & 0.10628e-02_rb,0.80385e-01_rb,0.10853e+00_rb,0.11313e+00_rb,0.72201e-01_rb /)\n      kbo(:, 5,54,10) = (/ &\n        & 0.15600e-02_rb,0.97867e-01_rb,0.12933e+00_rb,0.13384e+00_rb,0.87138e-01_rb /)\n      kbo(:, 1,55,10) = (/ &\n        & 0.34930e-03_rb,0.32793e-01_rb,0.46881e-01_rb,0.52981e-01_rb,0.30517e-01_rb /)\n      kbo(:, 2,55,10) = (/ &\n        & 0.45330e-03_rb,0.45087e-01_rb,0.63469e-01_rb,0.69744e-01_rb,0.41669e-01_rb /)\n      kbo(:, 3,55,10) = (/ &\n        & 0.61016e-03_rb,0.59300e-01_rb,0.81969e-01_rb,0.87622e-01_rb,0.54097e-01_rb /)\n      kbo(:, 4,55,10) = (/ &\n        & 0.87186e-03_rb,0.75017e-01_rb,0.10190e+00_rb,0.10674e+00_rb,0.67613e-01_rb /)\n      kbo(:, 5,55,10) = (/ &\n        & 0.13255e-02_rb,0.92144e-01_rb,0.12263e+00_rb,0.12707e+00_rb,0.82251e-01_rb /)\n      kbo(:, 1,56,10) = (/ &\n        & 0.27869e-03_rb,0.29255e-01_rb,0.42021e-01_rb,0.47895e-01_rb,0.27250e-01_rb /)\n      kbo(:, 2,56,10) = (/ &\n        & 0.36450e-03_rb,0.40920e-01_rb,0.57903e-01_rb,0.64209e-01_rb,0.37931e-01_rb /)\n      kbo(:, 3,56,10) = (/ &\n        & 0.49136e-03_rb,0.54534e-01_rb,0.75862e-01_rb,0.81747e-01_rb,0.49990e-01_rb /)\n      kbo(:, 4,56,10) = (/ &\n        & 0.71172e-03_rb,0.69828e-01_rb,0.95390e-01_rb,0.10049e+00_rb,0.63168e-01_rb /)\n      kbo(:, 5,56,10) = (/ &\n        & 0.11017e-02_rb,0.86502e-01_rb,0.11594e+00_rb,0.12039e+00_rb,0.77442e-01_rb /)\n      kbo(:, 1,57,10) = (/ &\n        & 0.22107e-03_rb,0.25925e-01_rb,0.37436e-01_rb,0.42992e-01_rb,0.24134e-01_rb /)\n      kbo(:, 2,57,10) = (/ &\n        & 0.29170e-03_rb,0.36963e-01_rb,0.52553e-01_rb,0.58819e-01_rb,0.34341e-01_rb /)\n      kbo(:, 3,57,10) = (/ &\n        & 0.39477e-03_rb,0.49943e-01_rb,0.69900e-01_rb,0.76011e-01_rb,0.45979e-01_rb /)\n      kbo(:, 4,57,10) = (/ &\n        & 0.57598e-03_rb,0.64771e-01_rb,0.88986e-01_rb,0.94351e-01_rb,0.58814e-01_rb /)\n      kbo(:, 5,57,10) = (/ &\n        & 0.90995e-03_rb,0.80998e-01_rb,0.10929e+00_rb,0.11387e+00_rb,0.72731e-01_rb /)\n      kbo(:, 1,58,10) = (/ &\n        & 0.17561e-03_rb,0.22952e-01_rb,0.33334e-01_rb,0.38531e-01_rb,0.21328e-01_rb /)\n      kbo(:, 2,58,10) = (/ &\n        & 0.23328e-03_rb,0.33378e-01_rb,0.47700e-01_rb,0.53835e-01_rb,0.31067e-01_rb /)\n      kbo(:, 3,58,10) = (/ &\n        & 0.31697e-03_rb,0.45784e-01_rb,0.64416e-01_rb,0.70683e-01_rb,0.42303e-01_rb /)\n      kbo(:, 4,58,10) = (/ &\n        & 0.46537e-03_rb,0.60108e-01_rb,0.83029e-01_rb,0.88636e-01_rb,0.54797e-01_rb /)\n      kbo(:, 5,58,10) = (/ &\n        & 0.74786e-03_rb,0.75908e-01_rb,0.10302e+00_rb,0.10782e+00_rb,0.68377e-01_rb /)\n      kbo(:, 1,59,10) = (/ &\n        & 0.14648e-03_rb,0.21806e-01_rb,0.31752e-01_rb,0.36796e-01_rb,0.20240e-01_rb /)\n      kbo(:, 2,59,10) = (/ &\n        & 0.19618e-03_rb,0.31995e-01_rb,0.45805e-01_rb,0.51875e-01_rb,0.29797e-01_rb /)\n      kbo(:, 3,59,10) = (/ &\n        & 0.27063e-03_rb,0.44166e-01_rb,0.62268e-01_rb,0.68564e-01_rb,0.40859e-01_rb /)\n      kbo(:, 4,59,10) = (/ &\n        & 0.40629e-03_rb,0.58271e-01_rb,0.80681e-01_rb,0.86380e-01_rb,0.53223e-01_rb /)\n      kbo(:, 5,59,10) = (/ &\n        & 0.67143e-03_rb,0.73904e-01_rb,0.10053e+00_rb,0.10542e+00_rb,0.66665e-01_rb /)\n      kbo(:, 1,13,11) = (/ &\n        & 0.43607e+00_rb,0.62808e+00_rb,0.71724e+00_rb,0.73315e+00_rb,0.60101e+00_rb /)\n      kbo(:, 2,13,11) = (/ &\n        & 0.43332e+00_rb,0.62604e+00_rb,0.71980e+00_rb,0.74002e+00_rb,0.61186e+00_rb /)\n      kbo(:, 3,13,11) = (/ &\n        & 0.43924e+00_rb,0.62431e+00_rb,0.72116e+00_rb,0.74635e+00_rb,0.62343e+00_rb /)\n      kbo(:, 4,13,11) = (/ &\n        & 0.44984e+00_rb,0.62482e+00_rb,0.72168e+00_rb,0.75298e+00_rb,0.63261e+00_rb /)\n      kbo(:, 5,13,11) = (/ &\n        & 0.46047e+00_rb,0.63112e+00_rb,0.72222e+00_rb,0.75987e+00_rb,0.64021e+00_rb /)\n      kbo(:, 1,14,11) = (/ &\n        & 0.38105e+00_rb,0.57533e+00_rb,0.67001e+00_rb,0.68808e+00_rb,0.55899e+00_rb /)\n      kbo(:, 2,14,11) = (/ &\n        & 0.38509e+00_rb,0.57518e+00_rb,0.67285e+00_rb,0.69660e+00_rb,0.57227e+00_rb /)\n      kbo(:, 3,14,11) = (/ &\n        & 0.39449e+00_rb,0.57649e+00_rb,0.67532e+00_rb,0.70510e+00_rb,0.58361e+00_rb /)\n      kbo(:, 4,14,11) = (/ &\n        & 0.40382e+00_rb,0.58297e+00_rb,0.67784e+00_rb,0.71417e+00_rb,0.59305e+00_rb /)\n      kbo(:, 5,14,11) = (/ &\n        & 0.41367e+00_rb,0.59430e+00_rb,0.68136e+00_rb,0.72200e+00_rb,0.60202e+00_rb /)\n      kbo(:, 1,15,11) = (/ &\n        & 0.33634e+00_rb,0.52577e+00_rb,0.62172e+00_rb,0.64383e+00_rb,0.51752e+00_rb /)\n      kbo(:, 2,15,11) = (/ &\n        & 0.34434e+00_rb,0.52795e+00_rb,0.62601e+00_rb,0.65389e+00_rb,0.53138e+00_rb /)\n      kbo(:, 3,15,11) = (/ &\n        & 0.35278e+00_rb,0.53440e+00_rb,0.63064e+00_rb,0.66483e+00_rb,0.54288e+00_rb /)\n      kbo(:, 4,15,11) = (/ &\n        & 0.36194e+00_rb,0.54564e+00_rb,0.63643e+00_rb,0.67473e+00_rb,0.55371e+00_rb /)\n      kbo(:, 5,15,11) = (/ &\n        & 0.37392e+00_rb,0.55836e+00_rb,0.64562e+00_rb,0.68317e+00_rb,0.56497e+00_rb /)\n      kbo(:, 1,16,11) = (/ &\n        & 0.29938e+00_rb,0.48063e+00_rb,0.57442e+00_rb,0.60090e+00_rb,0.47563e+00_rb /)\n      kbo(:, 2,16,11) = (/ &\n        & 0.30677e+00_rb,0.48684e+00_rb,0.58100e+00_rb,0.61362e+00_rb,0.49008e+00_rb /)\n      kbo(:, 3,16,11) = (/ &\n        & 0.31495e+00_rb,0.49797e+00_rb,0.58852e+00_rb,0.62578e+00_rb,0.50309e+00_rb /)\n      kbo(:, 4,16,11) = (/ &\n        & 0.32635e+00_rb,0.51101e+00_rb,0.59933e+00_rb,0.63613e+00_rb,0.51641e+00_rb /)\n      kbo(:, 5,16,11) = (/ &\n        & 0.34098e+00_rb,0.52383e+00_rb,0.61318e+00_rb,0.64534e+00_rb,0.52976e+00_rb /)\n      kbo(:, 1,17,11) = (/ &\n        & 0.26573e+00_rb,0.44123e+00_rb,0.53003e+00_rb,0.56054e+00_rb,0.43533e+00_rb /)\n      kbo(:, 2,17,11) = (/ &\n        & 0.27295e+00_rb,0.45155e+00_rb,0.53872e+00_rb,0.57479e+00_rb,0.45023e+00_rb /)\n      kbo(:, 3,17,11) = (/ &\n        & 0.28334e+00_rb,0.46499e+00_rb,0.55060e+00_rb,0.58775e+00_rb,0.46535e+00_rb /)\n      kbo(:, 4,17,11) = (/ &\n        & 0.29718e+00_rb,0.47854e+00_rb,0.56610e+00_rb,0.59925e+00_rb,0.48105e+00_rb /)\n      kbo(:, 5,17,11) = (/ &\n        & 0.31347e+00_rb,0.49215e+00_rb,0.58364e+00_rb,0.61031e+00_rb,0.49645e+00_rb /)\n      kbo(:, 1,18,11) = (/ &\n        & 0.23548e+00_rb,0.40722e+00_rb,0.48899e+00_rb,0.52175e+00_rb,0.39754e+00_rb /)\n      kbo(:, 2,18,11) = (/ &\n        & 0.24465e+00_rb,0.42091e+00_rb,0.50155e+00_rb,0.53754e+00_rb,0.41400e+00_rb /)\n      kbo(:, 3,18,11) = (/ &\n        & 0.25717e+00_rb,0.43494e+00_rb,0.51756e+00_rb,0.55168e+00_rb,0.43132e+00_rb /)\n      kbo(:, 4,18,11) = (/ &\n        & 0.27241e+00_rb,0.44915e+00_rb,0.53619e+00_rb,0.56524e+00_rb,0.44875e+00_rb /)\n      kbo(:, 5,18,11) = (/ &\n        & 0.28792e+00_rb,0.46398e+00_rb,0.55551e+00_rb,0.57930e+00_rb,0.46590e+00_rb /)\n      kbo(:, 1,19,11) = (/ &\n        & 0.20944e+00_rb,0.37826e+00_rb,0.45234e+00_rb,0.48406e+00_rb,0.36392e+00_rb /)\n      kbo(:, 2,19,11) = (/ &\n        & 0.22089e+00_rb,0.39288e+00_rb,0.46903e+00_rb,0.50178e+00_rb,0.38211e+00_rb /)\n      kbo(:, 3,19,11) = (/ &\n        & 0.23514e+00_rb,0.40761e+00_rb,0.48827e+00_rb,0.51821e+00_rb,0.40103e+00_rb /)\n      kbo(:, 4,19,11) = (/ &\n        & 0.24973e+00_rb,0.42303e+00_rb,0.50894e+00_rb,0.53472e+00_rb,0.42003e+00_rb /)\n      kbo(:, 5,19,11) = (/ &\n        & 0.26400e+00_rb,0.44033e+00_rb,0.52950e+00_rb,0.55236e+00_rb,0.43892e+00_rb /)\n      kbo(:, 1,20,11) = (/ &\n        & 0.18773e+00_rb,0.35288e+00_rb,0.42094e+00_rb,0.44918e+00_rb,0.33536e+00_rb /)\n      kbo(:, 2,20,11) = (/ &\n        & 0.20090e+00_rb,0.36792e+00_rb,0.44069e+00_rb,0.46887e+00_rb,0.35493e+00_rb /)\n      kbo(:, 3,20,11) = (/ &\n        & 0.21482e+00_rb,0.38362e+00_rb,0.46266e+00_rb,0.48831e+00_rb,0.37530e+00_rb /)\n      kbo(:, 4,20,11) = (/ &\n        & 0.22865e+00_rb,0.40117e+00_rb,0.48452e+00_rb,0.50881e+00_rb,0.39557e+00_rb /)\n      kbo(:, 5,20,11) = (/ &\n        & 0.24234e+00_rb,0.42087e+00_rb,0.50657e+00_rb,0.53012e+00_rb,0.41595e+00_rb /)\n      kbo(:, 1,21,11) = (/ &\n        & 0.16913e+00_rb,0.33019e+00_rb,0.39388e+00_rb,0.41795e+00_rb,0.31127e+00_rb /)\n      kbo(:, 2,21,11) = (/ &\n        & 0.18253e+00_rb,0.34600e+00_rb,0.41645e+00_rb,0.43947e+00_rb,0.33210e+00_rb /)\n      kbo(:, 3,21,11) = (/ &\n        & 0.19592e+00_rb,0.36350e+00_rb,0.43977e+00_rb,0.46279e+00_rb,0.35347e+00_rb /)\n      kbo(:, 4,21,11) = (/ &\n        & 0.20921e+00_rb,0.38317e+00_rb,0.46337e+00_rb,0.48719e+00_rb,0.37483e+00_rb /)\n      kbo(:, 5,21,11) = (/ &\n        & 0.22258e+00_rb,0.40476e+00_rb,0.48708e+00_rb,0.51206e+00_rb,0.39691e+00_rb /)\n      kbo(:, 1,22,11) = (/ &\n        & 0.15329e+00_rb,0.31121e+00_rb,0.37219e+00_rb,0.39211e+00_rb,0.29266e+00_rb /)\n      kbo(:, 2,22,11) = (/ &\n        & 0.16615e+00_rb,0.32878e+00_rb,0.39682e+00_rb,0.41672e+00_rb,0.31445e+00_rb /)\n      kbo(:, 3,22,11) = (/ &\n        & 0.17924e+00_rb,0.34835e+00_rb,0.42167e+00_rb,0.44342e+00_rb,0.33660e+00_rb /)\n      kbo(:, 4,22,11) = (/ &\n        & 0.19225e+00_rb,0.36990e+00_rb,0.44699e+00_rb,0.47133e+00_rb,0.35944e+00_rb /)\n      kbo(:, 5,22,11) = (/ &\n        & 0.20541e+00_rb,0.39323e+00_rb,0.47271e+00_rb,0.49943e+00_rb,0.38308e+00_rb /)\n      kbo(:, 1,23,11) = (/ &\n        & 0.13887e+00_rb,0.29534e+00_rb,0.35451e+00_rb,0.37144e+00_rb,0.27763e+00_rb /)\n      kbo(:, 2,23,11) = (/ &\n        & 0.15131e+00_rb,0.31502e+00_rb,0.38068e+00_rb,0.39927e+00_rb,0.30013e+00_rb /)\n      kbo(:, 3,23,11) = (/ &\n        & 0.16398e+00_rb,0.33651e+00_rb,0.40726e+00_rb,0.42913e+00_rb,0.32331e+00_rb /)\n      kbo(:, 4,23,11) = (/ &\n        & 0.17699e+00_rb,0.35967e+00_rb,0.43436e+00_rb,0.45990e+00_rb,0.34758e+00_rb /)\n      kbo(:, 5,23,11) = (/ &\n        & 0.19026e+00_rb,0.38467e+00_rb,0.46223e+00_rb,0.49074e+00_rb,0.37282e+00_rb /)\n      kbo(:, 1,24,11) = (/ &\n        & 0.12585e+00_rb,0.28281e+00_rb,0.34015e+00_rb,0.35619e+00_rb,0.26580e+00_rb /)\n      kbo(:, 2,24,11) = (/ &\n        & 0.13791e+00_rb,0.30436e+00_rb,0.36812e+00_rb,0.38675e+00_rb,0.28903e+00_rb /)\n      kbo(:, 3,24,11) = (/ &\n        & 0.15049e+00_rb,0.32769e+00_rb,0.39648e+00_rb,0.41925e+00_rb,0.31342e+00_rb /)\n      kbo(:, 4,24,11) = (/ &\n        & 0.16367e+00_rb,0.35256e+00_rb,0.42575e+00_rb,0.45270e+00_rb,0.33923e+00_rb /)\n      kbo(:, 5,24,11) = (/ &\n        & 0.17705e+00_rb,0.37855e+00_rb,0.45558e+00_rb,0.48562e+00_rb,0.36598e+00_rb /)\n      kbo(:, 1,25,11) = (/ &\n        & 0.11440e+00_rb,0.27340e+00_rb,0.32939e+00_rb,0.34570e+00_rb,0.25676e+00_rb /)\n      kbo(:, 2,25,11) = (/ &\n        & 0.12619e+00_rb,0.29667e+00_rb,0.35918e+00_rb,0.37882e+00_rb,0.28103e+00_rb /)\n      kbo(:, 3,25,11) = (/ &\n        & 0.13880e+00_rb,0.32182e+00_rb,0.38965e+00_rb,0.41370e+00_rb,0.30678e+00_rb /)\n      kbo(:, 4,25,11) = (/ &\n        & 0.15209e+00_rb,0.34806e+00_rb,0.42076e+00_rb,0.44907e+00_rb,0.33404e+00_rb /)\n      kbo(:, 5,25,11) = (/ &\n        & 0.16564e+00_rb,0.37478e+00_rb,0.45238e+00_rb,0.48364e+00_rb,0.36209e+00_rb /)\n      kbo(:, 1,26,11) = (/ &\n        & 0.10459e+00_rb,0.26698e+00_rb,0.32246e+00_rb,0.33976e+00_rb,0.25076e+00_rb /)\n      kbo(:, 2,26,11) = (/ &\n        & 0.11626e+00_rb,0.29209e+00_rb,0.35422e+00_rb,0.37512e+00_rb,0.27618e+00_rb /)\n      kbo(:, 3,26,11) = (/ &\n        & 0.12895e+00_rb,0.31885e+00_rb,0.38669e+00_rb,0.41203e+00_rb,0.30332e+00_rb /)\n      kbo(:, 4,26,11) = (/ &\n        & 0.14230e+00_rb,0.34607e+00_rb,0.41933e+00_rb,0.44889e+00_rb,0.33190e+00_rb /)\n      kbo(:, 5,26,11) = (/ &\n        & 0.15605e+00_rb,0.37346e+00_rb,0.45243e+00_rb,0.48462e+00_rb,0.36103e+00_rb /)\n      kbo(:, 1,27,11) = (/ &\n        & 0.96118e-01_rb,0.26319e+00_rb,0.31888e+00_rb,0.33748e+00_rb,0.24718e+00_rb /)\n      kbo(:, 2,27,11) = (/ &\n        & 0.10777e+00_rb,0.29006e+00_rb,0.35247e+00_rb,0.37471e+00_rb,0.27379e+00_rb /)\n      kbo(:, 3,27,11) = (/ &\n        & 0.12054e+00_rb,0.31789e+00_rb,0.38657e+00_rb,0.41315e+00_rb,0.30239e+00_rb /)\n      kbo(:, 4,27,11) = (/ &\n        & 0.13403e+00_rb,0.34597e+00_rb,0.42050e+00_rb,0.45108e+00_rb,0.33196e+00_rb /)\n      kbo(:, 5,27,11) = (/ &\n        & 0.14803e+00_rb,0.37409e+00_rb,0.45469e+00_rb,0.48753e+00_rb,0.36202e+00_rb /)\n      kbo(:, 1,28,11) = (/ &\n        & 0.88934e-01_rb,0.26189e+00_rb,0.31824e+00_rb,0.33815e+00_rb,0.24575e+00_rb /)\n      kbo(:, 2,28,11) = (/ &\n        & 0.10066e+00_rb,0.29004e+00_rb,0.35339e+00_rb,0.37699e+00_rb,0.27368e+00_rb /)\n      kbo(:, 3,28,11) = (/ &\n        & 0.11346e+00_rb,0.31878e+00_rb,0.38868e+00_rb,0.41646e+00_rb,0.30334e+00_rb /)\n      kbo(:, 4,28,11) = (/ &\n        & 0.12719e+00_rb,0.34746e+00_rb,0.42368e+00_rb,0.45510e+00_rb,0.33384e+00_rb /)\n      kbo(:, 5,28,11) = (/ &\n        & 0.14149e+00_rb,0.37622e+00_rb,0.45856e+00_rb,0.49189e+00_rb,0.36458e+00_rb /)\n      kbo(:, 1,29,11) = (/ &\n        & 0.82953e-01_rb,0.26276e+00_rb,0.32032e+00_rb,0.34153e+00_rb,0.24649e+00_rb /)\n      kbo(:, 2,29,11) = (/ &\n        & 0.94812e-01_rb,0.29186e+00_rb,0.35678e+00_rb,0.38153e+00_rb,0.27563e+00_rb /)\n      kbo(:, 3,29,11) = (/ &\n        & 0.10778e+00_rb,0.32138e+00_rb,0.39278e+00_rb,0.42163e+00_rb,0.30623e+00_rb /)\n      kbo(:, 4,29,11) = (/ &\n        & 0.12182e+00_rb,0.35053e+00_rb,0.42853e+00_rb,0.46064e+00_rb,0.33743e+00_rb /)\n      kbo(:, 5,29,11) = (/ &\n        & 0.13655e+00_rb,0.37990e+00_rb,0.46387e+00_rb,0.49754e+00_rb,0.36866e+00_rb /)\n      kbo(:, 1,30,11) = (/ &\n        & 0.78111e-01_rb,0.26530e+00_rb,0.32451e+00_rb,0.34680e+00_rb,0.24893e+00_rb /)\n      kbo(:, 2,30,11) = (/ &\n        & 0.90075e-01_rb,0.29517e+00_rb,0.36183e+00_rb,0.38763e+00_rb,0.27915e+00_rb /)\n      kbo(:, 3,30,11) = (/ &\n        & 0.10336e+00_rb,0.32522e+00_rb,0.39838e+00_rb,0.42809e+00_rb,0.31046e+00_rb /)\n      kbo(:, 4,30,11) = (/ &\n        & 0.11787e+00_rb,0.35483e+00_rb,0.43455e+00_rb,0.46718e+00_rb,0.34218e+00_rb /)\n      kbo(:, 5,30,11) = (/ &\n        & 0.13307e+00_rb,0.38452e+00_rb,0.47003e+00_rb,0.50395e+00_rb,0.37368e+00_rb /)\n      kbo(:, 1,31,11) = (/ &\n        & 0.74235e-01_rb,0.26927e+00_rb,0.33033e+00_rb,0.35368e+00_rb,0.25294e+00_rb /)\n      kbo(:, 2,31,11) = (/ &\n        & 0.86475e-01_rb,0.29980e+00_rb,0.36814e+00_rb,0.39505e+00_rb,0.28398e+00_rb /)\n      kbo(:, 3,31,11) = (/ &\n        & 0.10025e+00_rb,0.33020e+00_rb,0.40500e+00_rb,0.43563e+00_rb,0.31586e+00_rb /)\n      kbo(:, 4,31,11) = (/ &\n        & 0.11530e+00_rb,0.36008e+00_rb,0.44151e+00_rb,0.47461e+00_rb,0.34790e+00_rb /)\n      kbo(:, 5,31,11) = (/ &\n        & 0.13103e+00_rb,0.38989e+00_rb,0.47695e+00_rb,0.51108e+00_rb,0.37953e+00_rb /)\n      kbo(:, 1,32,11) = (/ &\n        & 0.71362e-01_rb,0.27445e+00_rb,0.33748e+00_rb,0.36171e+00_rb,0.25820e+00_rb /)\n      kbo(:, 2,32,11) = (/ &\n        & 0.84060e-01_rb,0.30547e+00_rb,0.37545e+00_rb,0.40335e+00_rb,0.28988e+00_rb /)\n      kbo(:, 3,32,11) = (/ &\n        & 0.98456e-01_rb,0.33600e+00_rb,0.41253e+00_rb,0.44393e+00_rb,0.32217e+00_rb /)\n      kbo(:, 4,32,11) = (/ &\n        & 0.11408e+00_rb,0.36612e+00_rb,0.44914e+00_rb,0.48266e+00_rb,0.35443e+00_rb /)\n      kbo(:, 5,32,11) = (/ &\n        & 0.13035e+00_rb,0.39590e+00_rb,0.48448e+00_rb,0.51873e+00_rb,0.38602e+00_rb /)\n      kbo(:, 1,33,11) = (/ &\n        & 0.69437e-01_rb,0.28056e+00_rb,0.34548e+00_rb,0.37055e+00_rb,0.26439e+00_rb /)\n      kbo(:, 2,33,11) = (/ &\n        & 0.82778e-01_rb,0.31179e+00_rb,0.38345e+00_rb,0.41222e+00_rb,0.29653e+00_rb /)\n      kbo(:, 3,33,11) = (/ &\n        & 0.97818e-01_rb,0.34234e+00_rb,0.42058e+00_rb,0.45271e+00_rb,0.32902e+00_rb /)\n      kbo(:, 4,33,11) = (/ &\n        & 0.11406e+00_rb,0.37264e+00_rb,0.45719e+00_rb,0.49102e+00_rb,0.36138e+00_rb /)\n      kbo(:, 5,33,11) = (/ &\n        & 0.13083e+00_rb,0.40228e+00_rb,0.49234e+00_rb,0.52669e+00_rb,0.39293e+00_rb /)\n      kbo(:, 1,34,11) = (/ &\n        & 0.68001e-01_rb,0.28611e+00_rb,0.35258e+00_rb,0.37843e+00_rb,0.27007e+00_rb /)\n      kbo(:, 2,34,11) = (/ &\n        & 0.82015e-01_rb,0.31742e+00_rb,0.39059e+00_rb,0.42007e+00_rb,0.30253e+00_rb /)\n      kbo(:, 3,34,11) = (/ &\n        & 0.97684e-01_rb,0.34800e+00_rb,0.42777e+00_rb,0.46038e+00_rb,0.33518e+00_rb /)\n      kbo(:, 4,34,11) = (/ &\n        & 0.11453e+00_rb,0.37836e+00_rb,0.46423e+00_rb,0.49832e+00_rb,0.36754e+00_rb /)\n      kbo(:, 5,34,11) = (/ &\n        & 0.13165e+00_rb,0.40799e+00_rb,0.49927e+00_rb,0.53358e+00_rb,0.39902e+00_rb /)\n      kbo(:, 1,35,11) = (/ &\n        & 0.66173e-01_rb,0.28901e+00_rb,0.35634e+00_rb,0.38261e+00_rb,0.27305e+00_rb /)\n      kbo(:, 2,35,11) = (/ &\n        & 0.80679e-01_rb,0.32036e+00_rb,0.39443e+00_rb,0.42428e+00_rb,0.30572e+00_rb /)\n      kbo(:, 3,35,11) = (/ &\n        & 0.96839e-01_rb,0.35097e+00_rb,0.43164e+00_rb,0.46448e+00_rb,0.33845e+00_rb /)\n      kbo(:, 4,35,11) = (/ &\n        & 0.11412e+00_rb,0.38139e+00_rb,0.46804e+00_rb,0.50225e+00_rb,0.37079e+00_rb /)\n      kbo(:, 5,35,11) = (/ &\n        & 0.13154e+00_rb,0.41104e+00_rb,0.50302e+00_rb,0.53730e+00_rb,0.40230e+00_rb /)\n      kbo(:, 1,36,11) = (/ &\n        & 0.63512e-01_rb,0.28876e+00_rb,0.35615e+00_rb,0.38246e+00_rb,0.27277e+00_rb /)\n      kbo(:, 2,36,11) = (/ &\n        & 0.78322e-01_rb,0.32017e+00_rb,0.39440e+00_rb,0.42423e+00_rb,0.30554e+00_rb /)\n      kbo(:, 3,36,11) = (/ &\n        & 0.94792e-01_rb,0.35084e+00_rb,0.43169e+00_rb,0.46451e+00_rb,0.33835e+00_rb /)\n      kbo(:, 4,36,11) = (/ &\n        & 0.11239e+00_rb,0.38129e+00_rb,0.46814e+00_rb,0.50234e+00_rb,0.37075e+00_rb /)\n      kbo(:, 5,36,11) = (/ &\n        & 0.13007e+00_rb,0.41105e+00_rb,0.50318e+00_rb,0.53745e+00_rb,0.40235e+00_rb /)\n      kbo(:, 1,37,11) = (/ &\n        & 0.59276e-01_rb,0.28388e+00_rb,0.35018e+00_rb,0.37605e+00_rb,0.26777e+00_rb /)\n      kbo(:, 2,37,11) = (/ &\n        & 0.74070e-01_rb,0.31543e+00_rb,0.38877e+00_rb,0.41809e+00_rb,0.30055e+00_rb /)\n      kbo(:, 3,37,11) = (/ &\n        & 0.90621e-01_rb,0.34621e+00_rb,0.42622e+00_rb,0.45870e+00_rb,0.33345e+00_rb /)\n      kbo(:, 4,37,11) = (/ &\n        & 0.10838e+00_rb,0.37677e+00_rb,0.46291e+00_rb,0.49695e+00_rb,0.36598e+00_rb /)\n      kbo(:, 5,37,11) = (/ &\n        & 0.12629e+00_rb,0.40664e+00_rb,0.49817e+00_rb,0.53255e+00_rb,0.39771e+00_rb /)\n      kbo(:, 1,38,11) = (/ &\n        & 0.55352e-01_rb,0.27885e+00_rb,0.34399e+00_rb,0.36943e+00_rb,0.26263e+00_rb /)\n      kbo(:, 2,38,11) = (/ &\n        & 0.70099e-01_rb,0.31053e+00_rb,0.38289e+00_rb,0.41165e+00_rb,0.29537e+00_rb /)\n      kbo(:, 3,38,11) = (/ &\n        & 0.86674e-01_rb,0.34144e+00_rb,0.42052e+00_rb,0.45261e+00_rb,0.32834e+00_rb /)\n      kbo(:, 4,38,11) = (/ &\n        & 0.10451e+00_rb,0.37207e+00_rb,0.45745e+00_rb,0.49130e+00_rb,0.36103e+00_rb /)\n      kbo(:, 5,38,11) = (/ &\n        & 0.12261e+00_rb,0.40208e+00_rb,0.49291e+00_rb,0.52735e+00_rb,0.39288e+00_rb /)\n      kbo(:, 1,39,11) = (/ &\n        & 0.51830e-01_rb,0.27388e+00_rb,0.33795e+00_rb,0.36294e+00_rb,0.25765e+00_rb /)\n      kbo(:, 2,39,11) = (/ &\n        & 0.66473e-01_rb,0.30570e+00_rb,0.37709e+00_rb,0.40534e+00_rb,0.29029e+00_rb /)\n      kbo(:, 3,39,11) = (/ &\n        & 0.83032e-01_rb,0.33678e+00_rb,0.41490e+00_rb,0.44656e+00_rb,0.32332e+00_rb /)\n      kbo(:, 4,39,11) = (/ &\n        & 0.10089e+00_rb,0.36746e+00_rb,0.45203e+00_rb,0.48569e+00_rb,0.35615e+00_rb /)\n      kbo(:, 5,39,11) = (/ &\n        & 0.11914e+00_rb,0.39759e+00_rb,0.48773e+00_rb,0.52218e+00_rb,0.38813e+00_rb /)\n      kbo(:, 1,40,11) = (/ &\n        & 0.47273e-01_rb,0.26566e+00_rb,0.32789e+00_rb,0.35219e+00_rb,0.24948e+00_rb /)\n      kbo(:, 2,40,11) = (/ &\n        & 0.61538e-01_rb,0.29768e+00_rb,0.36730e+00_rb,0.39473e+00_rb,0.28193e+00_rb /)\n      kbo(:, 3,40,11) = (/ &\n        & 0.77858e-01_rb,0.32903e+00_rb,0.40551e+00_rb,0.43635e+00_rb,0.31499e+00_rb /)\n      kbo(:, 4,40,11) = (/ &\n        & 0.95580e-01_rb,0.35975e+00_rb,0.44288e+00_rb,0.47617e+00_rb,0.34794e+00_rb /)\n      kbo(:, 5,40,11) = (/ &\n        & 0.11394e+00_rb,0.39008e+00_rb,0.47900e+00_rb,0.51333e+00_rb,0.38020e+00_rb /)\n      kbo(:, 1,41,11) = (/ &\n        & 0.42888e-01_rb,0.25708e+00_rb,0.31732e+00_rb,0.34096e+00_rb,0.24098e+00_rb /)\n      kbo(:, 2,41,11) = (/ &\n        & 0.56697e-01_rb,0.28927e+00_rb,0.35696e+00_rb,0.38355e+00_rb,0.27327e+00_rb /)\n      kbo(:, 3,41,11) = (/ &\n        & 0.72702e-01_rb,0.32083e+00_rb,0.39561e+00_rb,0.42555e+00_rb,0.30626e+00_rb /)\n      kbo(:, 4,41,11) = (/ &\n        & 0.90227e-01_rb,0.35164e+00_rb,0.43315e+00_rb,0.46599e+00_rb,0.33930e+00_rb /)\n      kbo(:, 5,41,11) = (/ &\n        & 0.10861e+00_rb,0.38219e+00_rb,0.46971e+00_rb,0.50385e+00_rb,0.37183e+00_rb /)\n      kbo(:, 1,42,11) = (/ &\n        & 0.38819e-01_rb,0.24850e+00_rb,0.30677e+00_rb,0.32968e+00_rb,0.23256e+00_rb /)\n      kbo(:, 2,42,11) = (/ &\n        & 0.52147e-01_rb,0.28080e+00_rb,0.34660e+00_rb,0.37239e+00_rb,0.26466e+00_rb /)\n      kbo(:, 3,42,11) = (/ &\n        & 0.67768e-01_rb,0.31263e+00_rb,0.38564e+00_rb,0.41466e+00_rb,0.29758e+00_rb /)\n      kbo(:, 4,42,11) = (/ &\n        & 0.85041e-01_rb,0.34356e+00_rb,0.42336e+00_rb,0.45563e+00_rb,0.33065e+00_rb /)\n      kbo(:, 5,42,11) = (/ &\n        & 0.10335e+00_rb,0.37426e+00_rb,0.46032e+00_rb,0.49419e+00_rb,0.36339e+00_rb /)\n      kbo(:, 1,43,11) = (/ &\n        & 0.34406e-01_rb,0.23801e+00_rb,0.29406e+00_rb,0.31601e+00_rb,0.22240e+00_rb /)\n      kbo(:, 2,43,11) = (/ &\n        & 0.47048e-01_rb,0.27050e+00_rb,0.33401e+00_rb,0.35883e+00_rb,0.25435e+00_rb /)\n      kbo(:, 3,43,11) = (/ &\n        & 0.62114e-01_rb,0.30257e+00_rb,0.37337e+00_rb,0.40135e+00_rb,0.28701e+00_rb /)\n      kbo(:, 4,43,11) = (/ &\n        & 0.79018e-01_rb,0.33381e+00_rb,0.41146e+00_rb,0.44285e+00_rb,0.32012e+00_rb /)\n      kbo(:, 5,43,11) = (/ &\n        & 0.97123e-01_rb,0.36459e+00_rb,0.44877e+00_rb,0.48229e+00_rb,0.35311e+00_rb /)\n      kbo(:, 1,44,11) = (/ &\n        & 0.30068e-01_rb,0.22661e+00_rb,0.28047e+00_rb,0.30141e+00_rb,0.21157e+00_rb /)\n      kbo(:, 2,44,11) = (/ &\n        & 0.41934e-01_rb,0.25939e+00_rb,0.32031e+00_rb,0.34420e+00_rb,0.24331e+00_rb /)\n      kbo(:, 3,44,11) = (/ &\n        & 0.56334e-01_rb,0.29165e+00_rb,0.35997e+00_rb,0.38686e+00_rb,0.27569e+00_rb /)\n      kbo(:, 4,44,11) = (/ &\n        & 0.72738e-01_rb,0.32319e+00_rb,0.39860e+00_rb,0.42881e+00_rb,0.30880e+00_rb /)\n      kbo(:, 5,44,11) = (/ &\n        & 0.90538e-01_rb,0.35407e+00_rb,0.43616e+00_rb,0.46913e+00_rb,0.34187e+00_rb /)\n      kbo(:, 1,45,11) = (/ &\n        & 0.26090e-01_rb,0.21511e+00_rb,0.26705e+00_rb,0.28701e+00_rb,0.20089e+00_rb /)\n      kbo(:, 2,45,11) = (/ &\n        & 0.37182e-01_rb,0.24828e+00_rb,0.30662e+00_rb,0.32954e+00_rb,0.23239e+00_rb /)\n      kbo(:, 3,45,11) = (/ &\n        & 0.50828e-01_rb,0.28069e+00_rb,0.34649e+00_rb,0.37235e+00_rb,0.26452e+00_rb /)\n      kbo(:, 4,45,11) = (/ &\n        & 0.66683e-01_rb,0.31254e+00_rb,0.38562e+00_rb,0.41465e+00_rb,0.29751e+00_rb /)\n      kbo(:, 5,45,11) = (/ &\n        & 0.84110e-01_rb,0.34354e+00_rb,0.42341e+00_rb,0.45565e+00_rb,0.33061e+00_rb /)\n      kbo(:, 1,46,11) = (/ &\n        & 0.22282e-01_rb,0.20276e+00_rb,0.25300e+00_rb,0.27194e+00_rb,0.18966e+00_rb /)\n      kbo(:, 2,46,11) = (/ &\n        & 0.32494e-01_rb,0.23634e+00_rb,0.29212e+00_rb,0.31397e+00_rb,0.22083e+00_rb /)\n      kbo(:, 3,46,11) = (/ &\n        & 0.45322e-01_rb,0.26893e+00_rb,0.33209e+00_rb,0.35685e+00_rb,0.25276e+00_rb /)\n      kbo(:, 4,46,11) = (/ &\n        & 0.60492e-01_rb,0.30105e+00_rb,0.37160e+00_rb,0.39945e+00_rb,0.28546e+00_rb /)\n      kbo(:, 5,46,11) = (/ &\n        & 0.77449e-01_rb,0.33241e+00_rb,0.40979e+00_rb,0.44100e+00_rb,0.31859e+00_rb /)\n      kbo(:, 1,47,11) = (/ &\n        & 0.18534e-01_rb,0.18898e+00_rb,0.23758e+00_rb,0.25552e+00_rb,0.17724e+00_rb /)\n      kbo(:, 2,47,11) = (/ &\n        & 0.27732e-01_rb,0.22283e+00_rb,0.27608e+00_rb,0.29673e+00_rb,0.20806e+00_rb /)\n      kbo(:, 3,47,11) = (/ &\n        & 0.39604e-01_rb,0.25581e+00_rb,0.31589e+00_rb,0.33953e+00_rb,0.23975e+00_rb /)\n      kbo(:, 4,47,11) = (/ &\n        & 0.53911e-01_rb,0.28814e+00_rb,0.35568e+00_rb,0.38226e+00_rb,0.27210e+00_rb /)\n      kbo(:, 5,47,11) = (/ &\n        & 0.70242e-01_rb,0.31982e+00_rb,0.39452e+00_rb,0.42435e+00_rb,0.30521e+00_rb /)\n      kbo(:, 1,48,11) = (/ &\n        & 0.15230e-01_rb,0.17512e+00_rb,0.22238e+00_rb,0.23953e+00_rb,0.16496e+00_rb /)\n      kbo(:, 2,48,11) = (/ &\n        & 0.23424e-01_rb,0.20917e+00_rb,0.26028e+00_rb,0.27977e+00_rb,0.19549e+00_rb /)\n      kbo(:, 3,48,11) = (/ &\n        & 0.34289e-01_rb,0.24261e+00_rb,0.29967e+00_rb,0.32213e+00_rb,0.22686e+00_rb /)\n      kbo(:, 4,48,11) = (/ &\n        & 0.47677e-01_rb,0.27510e+00_rb,0.33967e+00_rb,0.36502e+00_rb,0.25892e+00_rb /)\n      kbo(:, 5,48,11) = (/ &\n        & 0.63303e-01_rb,0.30711e+00_rb,0.37902e+00_rb,0.40749e+00_rb,0.29180e+00_rb /)\n      kbo(:, 1,49,11) = (/ &\n        & 0.12348e-01_rb,0.16145e+00_rb,0.20748e+00_rb,0.22396e+00_rb,0.15290e+00_rb /)\n      kbo(:, 2,49,11) = (/ &\n        & 0.19656e-01_rb,0.19547e+00_rb,0.24481e+00_rb,0.26319e+00_rb,0.18304e+00_rb /)\n      kbo(:, 3,49,11) = (/ &\n        & 0.29411e-01_rb,0.22922e+00_rb,0.28358e+00_rb,0.30484e+00_rb,0.21403e+00_rb /)\n      kbo(:, 4,49,11) = (/ &\n        & 0.41852e-01_rb,0.26199e+00_rb,0.32356e+00_rb,0.34774e+00_rb,0.24589e+00_rb /)\n      kbo(:, 5,49,11) = (/ &\n        & 0.56641e-01_rb,0.29425e+00_rb,0.36325e+00_rb,0.39043e+00_rb,0.27839e+00_rb /)\n      kbo(:, 1,50,11) = (/ &\n        & 0.10059e-01_rb,0.14901e+00_rb,0.19385e+00_rb,0.20977e+00_rb,0.14182e+00_rb /)\n      kbo(:, 2,50,11) = (/ &\n        & 0.16439e-01_rb,0.18255e+00_rb,0.23049e+00_rb,0.24806e+00_rb,0.17150e+00_rb /)\n      kbo(:, 3,50,11) = (/ &\n        & 0.25328e-01_rb,0.21656e+00_rb,0.26875e+00_rb,0.28888e+00_rb,0.20219e+00_rb /)\n      kbo(:, 4,50,11) = (/ &\n        & 0.36730e-01_rb,0.24971e+00_rb,0.30839e+00_rb,0.33151e+00_rb,0.23378e+00_rb /)\n      kbo(:, 5,50,11) = (/ &\n        & 0.50682e-01_rb,0.28213e+00_rb,0.34832e+00_rb,0.37432e+00_rb,0.26599e+00_rb /)\n      kbo(:, 1,51,11) = (/ &\n        & 0.81000e-02_rb,0.13718e+00_rb,0.18086e+00_rb,0.19633e+00_rb,0.13125e+00_rb /)\n      kbo(:, 2,51,11) = (/ &\n        & 0.13663e-01_rb,0.17002e+00_rb,0.21682e+00_rb,0.23372e+00_rb,0.16044e+00_rb /)\n      kbo(:, 3,51,11) = (/ &\n        & 0.21646e-01_rb,0.20410e+00_rb,0.25452e+00_rb,0.27362e+00_rb,0.19085e+00_rb /)\n      kbo(:, 4,51,11) = (/ &\n        & 0.32117e-01_rb,0.23766e+00_rb,0.29370e+00_rb,0.31573e+00_rb,0.22210e+00_rb /)\n      kbo(:, 5,51,11) = (/ &\n        & 0.45217e-01_rb,0.27026e+00_rb,0.33377e+00_rb,0.35865e+00_rb,0.25409e+00_rb /)\n      kbo(:, 1,52,11) = (/ &\n        & 0.64392e-02_rb,0.12568e+00_rb,0.16814e+00_rb,0.18321e+00_rb,0.12091e+00_rb /)\n      kbo(:, 2,52,11) = (/ &\n        & 0.11223e-01_rb,0.15773e+00_rb,0.20341e+00_rb,0.21973e+00_rb,0.14959e+00_rb /)\n      kbo(:, 3,52,11) = (/ &\n        & 0.18327e-01_rb,0.19165e+00_rb,0.24057e+00_rb,0.25870e+00_rb,0.17960e+00_rb /)\n      kbo(:, 4,52,11) = (/ &\n        & 0.27978e-01_rb,0.22553e+00_rb,0.27924e+00_rb,0.30015e+00_rb,0.21055e+00_rb /)\n      kbo(:, 5,52,11) = (/ &\n        & 0.40066e-01_rb,0.25840e+00_rb,0.31913e+00_rb,0.34300e+00_rb,0.24233e+00_rb /)\n      kbo(:, 1,53,11) = (/ &\n        & 0.50582e-02_rb,0.11452e+00_rb,0.15565e+00_rb,0.17040e+00_rb,0.11082e+00_rb /)\n      kbo(:, 2,53,11) = (/ &\n        & 0.90986e-02_rb,0.14571e+00_rb,0.19026e+00_rb,0.20608e+00_rb,0.13891e+00_rb /)\n      kbo(:, 3,53,11) = (/ &\n        & 0.15360e-01_rb,0.17911e+00_rb,0.22674e+00_rb,0.24415e+00_rb,0.16845e+00_rb /)\n      kbo(:, 4,53,11) = (/ &\n        & 0.24079e-01_rb,0.21320e+00_rb,0.26488e+00_rb,0.28473e+00_rb,0.19911e+00_rb /)\n      kbo(:, 5,53,11) = (/ &\n        & 0.35249e-01_rb,0.24647e+00_rb,0.30443e+00_rb,0.32725e+00_rb,0.23061e+00_rb /)\n      kbo(:, 1,54,11) = (/ &\n        & 0.39947e-02_rb,0.10467e+00_rb,0.14438e+00_rb,0.15895e+00_rb,0.10183e+00_rb /)\n      kbo(:, 2,54,11) = (/ &\n        & 0.74123e-02_rb,0.13495e+00_rb,0.17842e+00_rb,0.19384e+00_rb,0.12928e+00_rb /)\n      kbo(:, 3,54,11) = (/ &\n        & 0.12928e-01_rb,0.16768e+00_rb,0.21428e+00_rb,0.23108e+00_rb,0.15838e+00_rb /)\n      kbo(:, 4,54,11) = (/ &\n        & 0.20817e-01_rb,0.20178e+00_rb,0.25191e+00_rb,0.27082e+00_rb,0.18875e+00_rb /)\n      kbo(:, 5,54,11) = (/ &\n        & 0.31131e-01_rb,0.23540e+00_rb,0.29100e+00_rb,0.31283e+00_rb,0.21994e+00_rb /)\n      kbo(:, 1,55,11) = (/ &\n        & 0.31444e-02_rb,0.95645e-01_rb,0.13357e+00_rb,0.14821e+00_rb,0.93456e-01_rb /)\n      kbo(:, 2,55,11) = (/ &\n        & 0.60192e-02_rb,0.12488e+00_rb,0.16728e+00_rb,0.18235e+00_rb,0.12022e+00_rb /)\n      kbo(:, 3,55,11) = (/ &\n        & 0.10844e-01_rb,0.15692e+00_rb,0.20255e+00_rb,0.21884e+00_rb,0.14887e+00_rb /)\n      kbo(:, 4,55,11) = (/ &\n        & 0.17966e-01_rb,0.19085e+00_rb,0.23968e+00_rb,0.25776e+00_rb,0.17889e+00_rb /)\n      kbo(:, 5,55,11) = (/ &\n        & 0.27575e-01_rb,0.22475e+00_rb,0.27833e+00_rb,0.29920e+00_rb,0.20981e+00_rb /)\n      kbo(:, 1,56,11) = (/ &\n        & 0.24408e-02_rb,0.87042e-01_rb,0.12294e+00_rb,0.13774e+00_rb,0.85384e-01_rb /)\n      kbo(:, 2,56,11) = (/ &\n        & 0.48425e-02_rb,0.11512e+00_rb,0.15634e+00_rb,0.17115e+00_rb,0.11140e+00_rb /)\n      kbo(:, 3,56,11) = (/ &\n        & 0.90070e-02_rb,0.14641e+00_rb,0.19103e+00_rb,0.20689e+00_rb,0.13953e+00_rb /)\n      kbo(:, 4,56,11) = (/ &\n        & 0.15384e-01_rb,0.17987e+00_rb,0.22757e+00_rb,0.24502e+00_rb,0.16913e+00_rb /)\n      kbo(:, 5,56,11) = (/ &\n        & 0.24183e-01_rb,0.21396e+00_rb,0.26576e+00_rb,0.28569e+00_rb,0.19980e+00_rb /)\n      kbo(:, 1,57,11) = (/ &\n        & 0.18661e-02_rb,0.78869e-01_rb,0.11259e+00_rb,0.12744e+00_rb,0.77594e-01_rb /)\n      kbo(:, 2,57,11) = (/ &\n        & 0.38393e-02_rb,0.10567e+00_rb,0.14558e+00_rb,0.16018e+00_rb,0.10279e+00_rb /)\n      kbo(:, 3,57,11) = (/ &\n        & 0.73986e-02_rb,0.13611e+00_rb,0.17972e+00_rb,0.19518e+00_rb,0.13032e+00_rb /)\n      kbo(:, 4,57,11) = (/ &\n        & 0.13057e-01_rb,0.16895e+00_rb,0.21565e+00_rb,0.23253e+00_rb,0.15951e+00_rb /)\n      kbo(:, 5,57,11) = (/ &\n        & 0.21059e-01_rb,0.20305e+00_rb,0.25335e+00_rb,0.27238e+00_rb,0.18989e+00_rb /)\n      kbo(:, 1,58,11) = (/ &\n        & 0.14289e-02_rb,0.71481e-01_rb,0.10314e+00_rb,0.11789e+00_rb,0.70461e-01_rb /)\n      kbo(:, 2,58,11) = (/ &\n        & 0.30447e-02_rb,0.97100e-01_rb,0.13537e+00_rb,0.15001e+00_rb,0.94840e-01_rb /)\n      kbo(:, 3,58,11) = (/ &\n        & 0.60785e-02_rb,0.12656e+00_rb,0.16917e+00_rb,0.18428e+00_rb,0.12173e+00_rb /)\n      kbo(:, 4,58,11) = (/ &\n        & 0.11073e-01_rb,0.15875e+00_rb,0.20453e+00_rb,0.22090e+00_rb,0.15049e+00_rb /)\n      kbo(:, 5,58,11) = (/ &\n        & 0.18344e-01_rb,0.19271e+00_rb,0.24175e+00_rb,0.25997e+00_rb,0.18056e+00_rb /)\n      kbo(:, 1,59,11) = (/ &\n        & 0.12466e-02_rb,0.68608e-01_rb,0.99449e-01_rb,0.11409e+00_rb,0.67679e-01_rb /)\n      kbo(:, 2,59,11) = (/ &\n        & 0.27400e-02_rb,0.93756e-01_rb,0.13130e+00_rb,0.14598e+00_rb,0.91727e-01_rb /)\n      kbo(:, 3,59,11) = (/ &\n        & 0.55829e-02_rb,0.12280e+00_rb,0.16498e+00_rb,0.17997e+00_rb,0.11835e+00_rb /)\n      kbo(:, 4,59,11) = (/ &\n        & 0.10327e-01_rb,0.15471e+00_rb,0.20012e+00_rb,0.21632e+00_rb,0.14691e+00_rb /)\n      kbo(:, 5,59,11) = (/ &\n        & 0.17312e-01_rb,0.18856e+00_rb,0.23714e+00_rb,0.25511e+00_rb,0.17685e+00_rb /)\n      kbo(:, 1,13,12) = (/ &\n        & 0.97672e+00_rb,0.12351e+01_rb,0.13467e+01_rb,0.13355e+01_rb,0.11350e+01_rb /)\n      kbo(:, 2,13,12) = (/ &\n        & 0.96517e+00_rb,0.12326e+01_rb,0.13523e+01_rb,0.13488e+01_rb,0.11500e+01_rb /)\n      kbo(:, 3,13,12) = (/ &\n        & 0.95359e+00_rb,0.12308e+01_rb,0.13576e+01_rb,0.13588e+01_rb,0.11629e+01_rb /)\n      kbo(:, 4,13,12) = (/ &\n        & 0.94644e+00_rb,0.12294e+01_rb,0.13618e+01_rb,0.13660e+01_rb,0.11761e+01_rb /)\n      kbo(:, 5,13,12) = (/ &\n        & 0.94938e+00_rb,0.12277e+01_rb,0.13647e+01_rb,0.13713e+01_rb,0.11895e+01_rb /)\n      kbo(:, 1,14,12) = (/ &\n        & 0.86287e+00_rb,0.11528e+01_rb,0.12800e+01_rb,0.12931e+01_rb,0.10793e+01_rb /)\n      kbo(:, 2,14,12) = (/ &\n        & 0.85328e+00_rb,0.11519e+01_rb,0.12878e+01_rb,0.13082e+01_rb,0.10960e+01_rb /)\n      kbo(:, 3,14,12) = (/ &\n        & 0.84776e+00_rb,0.11522e+01_rb,0.12944e+01_rb,0.13193e+01_rb,0.11122e+01_rb /)\n      kbo(:, 4,14,12) = (/ &\n        & 0.85264e+00_rb,0.11532e+01_rb,0.12995e+01_rb,0.13287e+01_rb,0.11288e+01_rb /)\n      kbo(:, 5,14,12) = (/ &\n        & 0.86761e+00_rb,0.11556e+01_rb,0.13039e+01_rb,0.13378e+01_rb,0.11458e+01_rb /)\n      kbo(:, 1,15,12) = (/ &\n        & 0.75595e+00_rb,0.10736e+01_rb,0.12146e+01_rb,0.12437e+01_rb,0.10230e+01_rb /)\n      kbo(:, 2,15,12) = (/ &\n        & 0.75063e+00_rb,0.10744e+01_rb,0.12248e+01_rb,0.12603e+01_rb,0.10430e+01_rb /)\n      kbo(:, 3,15,12) = (/ &\n        & 0.75594e+00_rb,0.10769e+01_rb,0.12334e+01_rb,0.12743e+01_rb,0.10635e+01_rb /)\n      kbo(:, 4,15,12) = (/ &\n        & 0.77107e+00_rb,0.10807e+01_rb,0.12402e+01_rb,0.12881e+01_rb,0.10841e+01_rb /)\n      kbo(:, 5,15,12) = (/ &\n        & 0.79469e+00_rb,0.10902e+01_rb,0.12461e+01_rb,0.13012e+01_rb,0.11031e+01_rb /)\n      kbo(:, 1,16,12) = (/ &\n        & 0.66063e+00_rb,0.99640e+00_rb,0.11502e+01_rb,0.11902e+01_rb,0.96912e+00_rb /)\n      kbo(:, 2,16,12) = (/ &\n        & 0.66454e+00_rb,0.10001e+01_rb,0.11634e+01_rb,0.12095e+01_rb,0.99257e+00_rb /)\n      kbo(:, 3,16,12) = (/ &\n        & 0.67895e+00_rb,0.10049e+01_rb,0.11739e+01_rb,0.12282e+01_rb,0.10170e+01_rb /)\n      kbo(:, 4,16,12) = (/ &\n        & 0.70145e+00_rb,0.10153e+01_rb,0.11833e+01_rb,0.12469e+01_rb,0.10404e+01_rb /)\n      kbo(:, 5,16,12) = (/ &\n        & 0.72525e+00_rb,0.10330e+01_rb,0.11925e+01_rb,0.12646e+01_rb,0.10610e+01_rb /)\n      kbo(:, 1,17,12) = (/ &\n        & 0.58214e+00_rb,0.92297e+00_rb,0.10896e+01_rb,0.11346e+01_rb,0.91647e+00_rb /)\n      kbo(:, 2,17,12) = (/ &\n        & 0.59400e+00_rb,0.92929e+00_rb,0.11045e+01_rb,0.11590e+01_rb,0.94550e+00_rb /)\n      kbo(:, 3,17,12) = (/ &\n        & 0.61460e+00_rb,0.94000e+00_rb,0.11172e+01_rb,0.11832e+01_rb,0.97371e+00_rb /)\n      kbo(:, 4,17,12) = (/ &\n        & 0.63691e+00_rb,0.95830e+00_rb,0.11303e+01_rb,0.12071e+01_rb,0.99891e+00_rb /)\n      kbo(:, 5,17,12) = (/ &\n        & 0.66003e+00_rb,0.98295e+00_rb,0.11440e+01_rb,0.12298e+01_rb,0.10215e+01_rb /)\n      kbo(:, 1,18,12) = (/ &\n        & 0.51831e+00_rb,0.85586e+00_rb,0.10313e+01_rb,0.10823e+01_rb,0.86734e+00_rb /)\n      kbo(:, 2,18,12) = (/ &\n        & 0.53638e+00_rb,0.86645e+00_rb,0.10487e+01_rb,0.11114e+01_rb,0.90071e+00_rb /)\n      kbo(:, 3,18,12) = (/ &\n        & 0.55679e+00_rb,0.88410e+00_rb,0.10657e+01_rb,0.11407e+01_rb,0.93149e+00_rb /)\n      kbo(:, 4,18,12) = (/ &\n        & 0.57819e+00_rb,0.90902e+00_rb,0.10831e+01_rb,0.11693e+01_rb,0.95937e+00_rb /)\n      kbo(:, 5,18,12) = (/ &\n        & 0.60387e+00_rb,0.94010e+00_rb,0.11032e+01_rb,0.11966e+01_rb,0.98550e+00_rb /)\n      kbo(:, 1,19,12) = (/ &\n        & 0.46547e+00_rb,0.79533e+00_rb,0.97579e+00_rb,0.10353e+01_rb,0.82208e+00_rb /)\n      kbo(:, 2,19,12) = (/ &\n        & 0.48441e+00_rb,0.81281e+00_rb,0.99768e+00_rb,0.10690e+01_rb,0.85858e+00_rb /)\n      kbo(:, 3,19,12) = (/ &\n        & 0.50438e+00_rb,0.83723e+00_rb,0.10197e+01_rb,0.11027e+01_rb,0.89202e+00_rb /)\n      kbo(:, 4,19,12) = (/ &\n        & 0.52861e+00_rb,0.86772e+00_rb,0.10433e+01_rb,0.11355e+01_rb,0.92298e+00_rb /)\n      kbo(:, 5,19,12) = (/ &\n        & 0.55711e+00_rb,0.90301e+00_rb,0.10701e+01_rb,0.11672e+01_rb,0.95266e+00_rb /)\n      kbo(:, 1,20,12) = (/ &\n        & 0.41965e+00_rb,0.74319e+00_rb,0.92508e+00_rb,0.99412e+00_rb,0.78089e+00_rb /)\n      kbo(:, 2,20,12) = (/ &\n        & 0.43802e+00_rb,0.76766e+00_rb,0.95235e+00_rb,0.10327e+01_rb,0.82017e+00_rb /)\n      kbo(:, 3,20,12) = (/ &\n        & 0.46025e+00_rb,0.79818e+00_rb,0.98022e+00_rb,0.10706e+01_rb,0.85677e+00_rb /)\n      kbo(:, 4,20,12) = (/ &\n        & 0.48727e+00_rb,0.83370e+00_rb,0.10109e+01_rb,0.11072e+01_rb,0.89127e+00_rb /)\n      kbo(:, 5,20,12) = (/ &\n        & 0.51863e+00_rb,0.87091e+00_rb,0.10440e+01_rb,0.11423e+01_rb,0.92433e+00_rb /)\n      kbo(:, 1,21,12) = (/ &\n        & 0.37915e+00_rb,0.69998e+00_rb,0.88069e+00_rb,0.95835e+00_rb,0.74387e+00_rb /)\n      kbo(:, 2,21,12) = (/ &\n        & 0.39885e+00_rb,0.72965e+00_rb,0.91291e+00_rb,0.10022e+01_rb,0.78645e+00_rb /)\n      kbo(:, 3,21,12) = (/ &\n        & 0.42350e+00_rb,0.76561e+00_rb,0.94765e+00_rb,0.10443e+01_rb,0.82639e+00_rb /)\n      kbo(:, 4,21,12) = (/ &\n        & 0.45298e+00_rb,0.80432e+00_rb,0.98473e+00_rb,0.10842e+01_rb,0.86477e+00_rb /)\n      kbo(:, 5,21,12) = (/ &\n        & 0.48674e+00_rb,0.84344e+00_rb,0.10236e+01_rb,0.11221e+01_rb,0.90082e+00_rb /)\n      kbo(:, 1,22,12) = (/ &\n        & 0.34554e+00_rb,0.66631e+00_rb,0.84565e+00_rb,0.93193e+00_rb,0.71462e+00_rb /)\n      kbo(:, 2,22,12) = (/ &\n        & 0.36807e+00_rb,0.70096e+00_rb,0.88353e+00_rb,0.98021e+00_rb,0.76038e+00_rb /)\n      kbo(:, 3,22,12) = (/ &\n        & 0.39520e+00_rb,0.74099e+00_rb,0.92460e+00_rb,0.10260e+01_rb,0.80381e+00_rb /)\n      kbo(:, 4,22,12) = (/ &\n        & 0.42700e+00_rb,0.78213e+00_rb,0.96750e+00_rb,0.10688e+01_rb,0.84544e+00_rb /)\n      kbo(:, 5,22,12) = (/ &\n        & 0.46306e+00_rb,0.82357e+00_rb,0.10116e+01_rb,0.11089e+01_rb,0.88444e+00_rb /)\n      kbo(:, 1,23,12) = (/ &\n        & 0.31790e+00_rb,0.64007e+00_rb,0.81825e+00_rb,0.91240e+00_rb,0.69117e+00_rb /)\n      kbo(:, 2,23,12) = (/ &\n        & 0.34313e+00_rb,0.67943e+00_rb,0.86200e+00_rb,0.96400e+00_rb,0.74026e+00_rb /)\n      kbo(:, 3,23,12) = (/ &\n        & 0.37292e+00_rb,0.72179e+00_rb,0.90853e+00_rb,0.10128e+01_rb,0.78692e+00_rb /)\n      kbo(:, 4,23,12) = (/ &\n        & 0.40683e+00_rb,0.76528e+00_rb,0.95638e+00_rb,0.10584e+01_rb,0.83132e+00_rb /)\n      kbo(:, 5,23,12) = (/ &\n        & 0.44434e+00_rb,0.80906e+00_rb,0.10049e+01_rb,0.11007e+01_rb,0.87324e+00_rb /)\n      kbo(:, 1,24,12) = (/ &\n        & 0.29587e+00_rb,0.62091e+00_rb,0.79898e+00_rb,0.89859e+00_rb,0.67383e+00_rb /)\n      kbo(:, 2,24,12) = (/ &\n        & 0.32356e+00_rb,0.66370e+00_rb,0.84800e+00_rb,0.95354e+00_rb,0.72591e+00_rb /)\n      kbo(:, 3,24,12) = (/ &\n        & 0.35587e+00_rb,0.70805e+00_rb,0.89882e+00_rb,0.10049e+01_rb,0.77551e+00_rb /)\n      kbo(:, 4,24,12) = (/ &\n        & 0.39090e+00_rb,0.75345e+00_rb,0.95073e+00_rb,0.10524e+01_rb,0.82233e+00_rb /)\n      kbo(:, 5,24,12) = (/ &\n        & 0.42938e+00_rb,0.80019e+00_rb,0.10026e+01_rb,0.10965e+01_rb,0.86634e+00_rb /)\n      kbo(:, 1,25,12) = (/ &\n        & 0.27857e+00_rb,0.60799e+00_rb,0.78705e+00_rb,0.89081e+00_rb,0.66256e+00_rb /)\n      kbo(:, 2,25,12) = (/ &\n        & 0.30889e+00_rb,0.65303e+00_rb,0.84032e+00_rb,0.94841e+00_rb,0.71733e+00_rb /)\n      kbo(:, 3,25,12) = (/ &\n        & 0.34245e+00_rb,0.69924e+00_rb,0.89488e+00_rb,0.10015e+01_rb,0.76917e+00_rb /)\n      kbo(:, 4,25,12) = (/ &\n        & 0.37871e+00_rb,0.74693e+00_rb,0.95015e+00_rb,0.10506e+01_rb,0.81807e+00_rb /)\n      kbo(:, 5,25,12) = (/ &\n        & 0.41833e+00_rb,0.79644e+00_rb,0.10044e+01_rb,0.10958e+01_rb,0.86374e+00_rb /)\n      kbo(:, 1,26,12) = (/ &\n        & 0.26580e+00_rb,0.60063e+00_rb,0.78228e+00_rb,0.88879e+00_rb,0.65720e+00_rb /)\n      kbo(:, 2,26,12) = (/ &\n        & 0.29790e+00_rb,0.64759e+00_rb,0.83895e+00_rb,0.94821e+00_rb,0.71439e+00_rb /)\n      kbo(:, 3,26,12) = (/ &\n        & 0.33261e+00_rb,0.69574e+00_rb,0.89642e+00_rb,0.10025e+01_rb,0.76782e+00_rb /)\n      kbo(:, 4,26,12) = (/ &\n        & 0.37054e+00_rb,0.74591e+00_rb,0.95396e+00_rb,0.10524e+01_rb,0.81818e+00_rb /)\n      kbo(:, 5,26,12) = (/ &\n        & 0.41158e+00_rb,0.79751e+00_rb,0.10099e+01_rb,0.10981e+01_rb,0.86507e+00_rb /)\n      kbo(:, 1,27,12) = (/ &\n        & 0.25628e+00_rb,0.59727e+00_rb,0.78261e+00_rb,0.89115e+00_rb,0.65648e+00_rb /)\n      kbo(:, 2,27,12) = (/ &\n        & 0.28973e+00_rb,0.64617e+00_rb,0.84187e+00_rb,0.95137e+00_rb,0.71531e+00_rb /)\n      kbo(:, 3,27,12) = (/ &\n        & 0.32602e+00_rb,0.69640e+00_rb,0.90149e+00_rb,0.10062e+01_rb,0.76992e+00_rb /)\n      kbo(:, 4,27,12) = (/ &\n        & 0.36566e+00_rb,0.74858e+00_rb,0.96067e+00_rb,0.10565e+01_rb,0.82130e+00_rb /)\n      kbo(:, 5,27,12) = (/ &\n        & 0.40839e+00_rb,0.80160e+00_rb,0.10174e+01_rb,0.11025e+01_rb,0.86892e+00_rb /)\n      kbo(:, 1,28,12) = (/ &\n        & 0.24931e+00_rb,0.59767e+00_rb,0.78703e+00_rb,0.89664e+00_rb,0.65970e+00_rb /)\n      kbo(:, 2,28,12) = (/ &\n        & 0.28438e+00_rb,0.64828e+00_rb,0.84808e+00_rb,0.95711e+00_rb,0.71948e+00_rb /)\n      kbo(:, 3,28,12) = (/ &\n        & 0.32259e+00_rb,0.70046e+00_rb,0.90930e+00_rb,0.10123e+01_rb,0.77494e+00_rb /)\n      kbo(:, 4,28,12) = (/ &\n        & 0.36394e+00_rb,0.75423e+00_rb,0.96943e+00_rb,0.10625e+01_rb,0.82683e+00_rb /)\n      kbo(:, 5,28,12) = (/ &\n        & 0.40857e+00_rb,0.80828e+00_rb,0.10265e+01_rb,0.11085e+01_rb,0.87457e+00_rb /)\n      kbo(:, 1,29,12) = (/ &\n        & 0.24529e+00_rb,0.60153e+00_rb,0.79470e+00_rb,0.90469e+00_rb,0.66635e+00_rb /)\n      kbo(:, 2,29,12) = (/ &\n        & 0.28215e+00_rb,0.65374e+00_rb,0.85707e+00_rb,0.96518e+00_rb,0.72659e+00_rb /)\n      kbo(:, 3,29,12) = (/ &\n        & 0.32237e+00_rb,0.70744e+00_rb,0.91955e+00_rb,0.10202e+01_rb,0.78233e+00_rb /)\n      kbo(:, 4,29,12) = (/ &\n        & 0.36548e+00_rb,0.76246e+00_rb,0.98006e+00_rb,0.10704e+01_rb,0.83435e+00_rb /)\n      kbo(:, 5,29,12) = (/ &\n        & 0.41179e+00_rb,0.81715e+00_rb,0.10368e+01_rb,0.11160e+01_rb,0.88198e+00_rb /)\n      kbo(:, 1,30,12) = (/ &\n        & 0.24386e+00_rb,0.60816e+00_rb,0.80473e+00_rb,0.91460e+00_rb,0.67543e+00_rb /)\n      kbo(:, 2,30,12) = (/ &\n        & 0.28279e+00_rb,0.66165e+00_rb,0.86804e+00_rb,0.97470e+00_rb,0.73566e+00_rb /)\n      kbo(:, 3,30,12) = (/ &\n        & 0.32483e+00_rb,0.71650e+00_rb,0.93115e+00_rb,0.10292e+01_rb,0.79124e+00_rb /)\n      kbo(:, 4,30,12) = (/ &\n        & 0.36954e+00_rb,0.77208e+00_rb,0.99158e+00_rb,0.10790e+01_rb,0.84299e+00_rb /)\n      kbo(:, 5,30,12) = (/ &\n        & 0.41749e+00_rb,0.82738e+00_rb,0.10478e+01_rb,0.11245e+01_rb,0.89039e+00_rb /)\n      kbo(:, 1,31,12) = (/ &\n        & 0.24525e+00_rb,0.61702e+00_rb,0.81682e+00_rb,0.92621e+00_rb,0.68640e+00_rb /)\n      kbo(:, 2,31,12) = (/ &\n        & 0.28616e+00_rb,0.67142e+00_rb,0.88072e+00_rb,0.98550e+00_rb,0.74643e+00_rb /)\n      kbo(:, 3,31,12) = (/ &\n        & 0.32989e+00_rb,0.72710e+00_rb,0.94409e+00_rb,0.10393e+01_rb,0.80152e+00_rb /)\n      kbo(:, 4,31,12) = (/ &\n        & 0.37609e+00_rb,0.78314e+00_rb,0.10041e+01_rb,0.10886e+01_rb,0.85269e+00_rb /)\n      kbo(:, 5,31,12) = (/ &\n        & 0.42530e+00_rb,0.83896e+00_rb,0.10596e+01_rb,0.11338e+01_rb,0.89957e+00_rb /)\n      kbo(:, 1,32,12) = (/ &\n        & 0.24917e+00_rb,0.62738e+00_rb,0.83018e+00_rb,0.93886e+00_rb,0.69870e+00_rb /)\n      kbo(:, 2,32,12) = (/ &\n        & 0.29180e+00_rb,0.68257e+00_rb,0.89466e+00_rb,0.99723e+00_rb,0.75819e+00_rb /)\n      kbo(:, 3,32,12) = (/ &\n        & 0.33695e+00_rb,0.73898e+00_rb,0.95783e+00_rb,0.10503e+01_rb,0.81270e+00_rb /)\n      kbo(:, 4,32,12) = (/ &\n        & 0.38441e+00_rb,0.79527e+00_rb,0.10172e+01_rb,0.10987e+01_rb,0.86313e+00_rb /)\n      kbo(:, 5,32,12) = (/ &\n        & 0.43473e+00_rb,0.85145e+00_rb,0.10718e+01_rb,0.11436e+01_rb,0.90933e+00_rb /)\n      kbo(:, 1,33,12) = (/ &\n        & 0.25524e+00_rb,0.63888e+00_rb,0.84456e+00_rb,0.95208e+00_rb,0.71177e+00_rb /)\n      kbo(:, 2,33,12) = (/ &\n        & 0.29923e+00_rb,0.69477e+00_rb,0.90943e+00_rb,0.10094e+01_rb,0.77043e+00_rb /)\n      kbo(:, 3,33,12) = (/ &\n        & 0.34555e+00_rb,0.75166e+00_rb,0.97211e+00_rb,0.10616e+01_rb,0.82442e+00_rb /)\n      kbo(:, 4,33,12) = (/ &\n        & 0.39409e+00_rb,0.80804e+00_rb,0.10306e+01_rb,0.11094e+01_rb,0.87396e+00_rb /)\n      kbo(:, 5,33,12) = (/ &\n        & 0.44532e+00_rb,0.86454e+00_rb,0.10842e+01_rb,0.11536e+01_rb,0.91947e+00_rb /)\n      kbo(:, 1,34,12) = (/ &\n        & 0.26139e+00_rb,0.64937e+00_rb,0.85738e+00_rb,0.96358e+00_rb,0.72330e+00_rb /)\n      kbo(:, 2,34,12) = (/ &\n        & 0.30644e+00_rb,0.70578e+00_rb,0.92238e+00_rb,0.10200e+01_rb,0.78117e+00_rb /)\n      kbo(:, 3,34,12) = (/ &\n        & 0.35368e+00_rb,0.76284e+00_rb,0.98445e+00_rb,0.10715e+01_rb,0.83457e+00_rb /)\n      kbo(:, 4,34,12) = (/ &\n        & 0.40294e+00_rb,0.81944e+00_rb,0.10421e+01_rb,0.11185e+01_rb,0.88331e+00_rb /)\n      kbo(:, 5,34,12) = (/ &\n        & 0.45497e+00_rb,0.87610e+00_rb,0.10949e+01_rb,0.11623e+01_rb,0.92821e+00_rb /)\n      kbo(:, 1,35,12) = (/ &\n        & 0.26429e+00_rb,0.65495e+00_rb,0.86437e+00_rb,0.96967e+00_rb,0.72944e+00_rb /)\n      kbo(:, 2,35,12) = (/ &\n        & 0.31003e+00_rb,0.71171e+00_rb,0.92940e+00_rb,0.10257e+01_rb,0.78687e+00_rb /)\n      kbo(:, 3,35,12) = (/ &\n        & 0.35779e+00_rb,0.76892e+00_rb,0.99113e+00_rb,0.10767e+01_rb,0.83993e+00_rb /)\n      kbo(:, 4,35,12) = (/ &\n        & 0.40757e+00_rb,0.82572e+00_rb,0.10483e+01_rb,0.11235e+01_rb,0.88834e+00_rb /)\n      kbo(:, 5,35,12) = (/ &\n        & 0.46005e+00_rb,0.88243e+00_rb,0.11007e+01_rb,0.11671e+01_rb,0.93291e+00_rb /)\n      kbo(:, 1,36,12) = (/ &\n        & 0.26301e+00_rb,0.65478e+00_rb,0.86458e+00_rb,0.96965e+00_rb,0.72937e+00_rb /)\n      kbo(:, 2,36,12) = (/ &\n        & 0.30906e+00_rb,0.71167e+00_rb,0.92967e+00_rb,0.10257e+01_rb,0.78687e+00_rb /)\n      kbo(:, 3,36,12) = (/ &\n        & 0.35709e+00_rb,0.76907e+00_rb,0.99151e+00_rb,0.10769e+01_rb,0.84005e+00_rb /)\n      kbo(:, 4,36,12) = (/ &\n        & 0.40702e+00_rb,0.82602e+00_rb,0.10488e+01_rb,0.11238e+01_rb,0.88850e+00_rb /)\n      kbo(:, 5,36,12) = (/ &\n        & 0.45966e+00_rb,0.88282e+00_rb,0.11012e+01_rb,0.11674e+01_rb,0.93315e+00_rb /)\n      kbo(:, 1,37,12) = (/ &\n        & 0.25532e+00_rb,0.64621e+00_rb,0.85496e+00_rb,0.96073e+00_rb,0.72018e+00_rb /)\n      kbo(:, 2,37,12) = (/ &\n        & 0.30133e+00_rb,0.70315e+00_rb,0.92046e+00_rb,0.10178e+01_rb,0.77861e+00_rb /)\n      kbo(:, 3,37,12) = (/ &\n        & 0.34928e+00_rb,0.76070e+00_rb,0.98300e+00_rb,0.10697e+01_rb,0.83253e+00_rb /)\n      kbo(:, 4,37,12) = (/ &\n        & 0.39901e+00_rb,0.81782e+00_rb,0.10410e+01_rb,0.11173e+01_rb,0.88173e+00_rb /)\n      kbo(:, 5,37,12) = (/ &\n        & 0.45136e+00_rb,0.87470e+00_rb,0.10942e+01_rb,0.11614e+01_rb,0.92694e+00_rb /)\n      kbo(:, 1,38,12) = (/ &\n        & 0.24761e+00_rb,0.63742e+00_rb,0.84491e+00_rb,0.95139e+00_rb,0.71066e+00_rb /)\n      kbo(:, 2,38,12) = (/ &\n        & 0.29353e+00_rb,0.69428e+00_rb,0.91068e+00_rb,0.10095e+01_rb,0.76992e+00_rb /)\n      kbo(:, 3,38,12) = (/ &\n        & 0.34135e+00_rb,0.75196e+00_rb,0.97396e+00_rb,0.10621e+01_rb,0.82461e+00_rb /)\n      kbo(:, 4,38,12) = (/ &\n        & 0.39084e+00_rb,0.80925e+00_rb,0.10327e+01_rb,0.11104e+01_rb,0.87459e+00_rb /)\n      kbo(:, 5,38,12) = (/ &\n        & 0.44289e+00_rb,0.86617e+00_rb,0.10866e+01_rb,0.11550e+01_rb,0.92038e+00_rb /)\n      kbo(:, 1,39,12) = (/ &\n        & 0.24017e+00_rb,0.62886e+00_rb,0.83503e+00_rb,0.94210e+00_rb,0.70124e+00_rb /)\n      kbo(:, 2,39,12) = (/ &\n        & 0.28601e+00_rb,0.68569e+00_rb,0.90106e+00_rb,0.10011e+01_rb,0.76142e+00_rb /)\n      kbo(:, 3,39,12) = (/ &\n        & 0.33368e+00_rb,0.74335e+00_rb,0.96490e+00_rb,0.10546e+01_rb,0.81673e+00_rb /)\n      kbo(:, 4,39,12) = (/ &\n        & 0.38296e+00_rb,0.80081e+00_rb,0.10243e+01_rb,0.11035e+01_rb,0.86747e+00_rb /)\n      kbo(:, 5,39,12) = (/ &\n        & 0.43465e+00_rb,0.85778e+00_rb,0.10791e+01_rb,0.11488e+01_rb,0.91385e+00_rb /)\n      kbo(:, 1,40,12) = (/ &\n        & 0.22833e+00_rb,0.61463e+00_rb,0.81821e+00_rb,0.92620e+00_rb,0.68530e+00_rb /)\n      kbo(:, 2,40,12) = (/ &\n        & 0.27395e+00_rb,0.67134e+00_rb,0.88467e+00_rb,0.98686e+00_rb,0.74688e+00_rb /)\n      kbo(:, 3,40,12) = (/ &\n        & 0.32124e+00_rb,0.72890e+00_rb,0.94943e+00_rb,0.10418e+01_rb,0.80324e+00_rb /)\n      kbo(:, 4,40,12) = (/ &\n        & 0.37015e+00_rb,0.78652e+00_rb,0.10100e+01_rb,0.10918e+01_rb,0.85523e+00_rb /)\n      kbo(:, 5,40,12) = (/ &\n        & 0.42126e+00_rb,0.84372e+00_rb,0.10660e+01_rb,0.11379e+01_rb,0.90264e+00_rb /)\n      kbo(:, 1,41,12) = (/ &\n        & 0.21612e+00_rb,0.59971e+00_rb,0.80041e+00_rb,0.90904e+00_rb,0.66824e+00_rb /)\n      kbo(:, 2,41,12) = (/ &\n        & 0.26150e+00_rb,0.65630e+00_rb,0.86743e+00_rb,0.97155e+00_rb,0.73120e+00_rb /)\n      kbo(:, 3,41,12) = (/ &\n        & 0.30837e+00_rb,0.71376e+00_rb,0.93288e+00_rb,0.10279e+01_rb,0.78880e+00_rb /)\n      kbo(:, 4,41,12) = (/ &\n        & 0.35698e+00_rb,0.77150e+00_rb,0.99473e+00_rb,0.10791e+01_rb,0.84209e+00_rb /)\n      kbo(:, 5,41,12) = (/ &\n        & 0.40745e+00_rb,0.82887e+00_rb,0.10519e+01_rb,0.11261e+01_rb,0.89062e+00_rb /)\n      kbo(:, 1,42,12) = (/ &\n        & 0.20417e+00_rb,0.58472e+00_rb,0.78237e+00_rb,0.89154e+00_rb,0.65066e+00_rb /)\n      kbo(:, 2,42,12) = (/ &\n        & 0.24921e+00_rb,0.64136e+00_rb,0.85007e+00_rb,0.95580e+00_rb,0.71510e+00_rb /)\n      kbo(:, 3,42,12) = (/ &\n        & 0.29566e+00_rb,0.69861e+00_rb,0.91611e+00_rb,0.10137e+01_rb,0.77414e+00_rb /)\n      kbo(:, 4,42,12) = (/ &\n        & 0.34395e+00_rb,0.75651e+00_rb,0.97922e+00_rb,0.10662e+01_rb,0.82865e+00_rb /)\n      kbo(:, 5,42,12) = (/ &\n        & 0.39383e+00_rb,0.81397e+00_rb,0.10376e+01_rb,0.11142e+01_rb,0.87842e+00_rb /)\n      kbo(:, 1,43,12) = (/ &\n        & 0.18997e+00_rb,0.56647e+00_rb,0.76032e+00_rb,0.86976e+00_rb,0.62901e+00_rb /)\n      kbo(:, 2,43,12) = (/ &\n        & 0.23447e+00_rb,0.62342e+00_rb,0.82892e+00_rb,0.93617e+00_rb,0.69524e+00_rb /)\n      kbo(:, 3,43,12) = (/ &\n        & 0.28050e+00_rb,0.68037e+00_rb,0.89544e+00_rb,0.99597e+00_rb,0.75607e+00_rb /)\n      kbo(:, 4,43,12) = (/ &\n        & 0.32830e+00_rb,0.73817e+00_rb,0.95981e+00_rb,0.10502e+01_rb,0.81194e+00_rb /)\n      kbo(:, 5,43,12) = (/ &\n        & 0.37763e+00_rb,0.79580e+00_rb,0.10196e+01_rb,0.10995e+01_rb,0.86317e+00_rb /)\n      kbo(:, 1,44,12) = (/ &\n        & 0.17494e+00_rb,0.54678e+00_rb,0.73637e+00_rb,0.84544e+00_rb,0.60542e+00_rb /)\n      kbo(:, 2,44,12) = (/ &\n        & 0.21877e+00_rb,0.60406e+00_rb,0.80575e+00_rb,0.91415e+00_rb,0.67322e+00_rb /)\n      kbo(:, 3,44,12) = (/ &\n        & 0.26445e+00_rb,0.66075e+00_rb,0.87287e+00_rb,0.97625e+00_rb,0.73598e+00_rb /)\n      kbo(:, 4,44,12) = (/ &\n        & 0.31161e+00_rb,0.71841e+00_rb,0.93827e+00_rb,0.10322e+01_rb,0.79326e+00_rb /)\n      kbo(:, 5,44,12) = (/ &\n        & 0.36052e+00_rb,0.77622e+00_rb,0.99972e+00_rb,0.10831e+01_rb,0.84620e+00_rb /)\n      kbo(:, 1,45,12) = (/ &\n        & 0.16016e+00_rb,0.52729e+00_rb,0.71224e+00_rb,0.82038e+00_rb,0.58172e+00_rb /)\n      kbo(:, 2,45,12) = (/ &\n        & 0.20336e+00_rb,0.58455e+00_rb,0.78227e+00_rb,0.89144e+00_rb,0.65050e+00_rb /)\n      kbo(:, 3,45,12) = (/ &\n        & 0.24861e+00_rb,0.64128e+00_rb,0.85023e+00_rb,0.95584e+00_rb,0.71509e+00_rb /)\n      kbo(:, 4,45,12) = (/ &\n        & 0.29518e+00_rb,0.69870e+00_rb,0.91640e+00_rb,0.10138e+01_rb,0.77417e+00_rb /)\n      kbo(:, 5,45,12) = (/ &\n        & 0.34361e+00_rb,0.75661e+00_rb,0.97947e+00_rb,0.10663e+01_rb,0.82874e+00_rb /)\n      kbo(:, 1,46,12) = (/ &\n        & 0.14495e+00_rb,0.50668e+00_rb,0.68614e+00_rb,0.79268e+00_rb,0.55619e+00_rb /)\n      kbo(:, 2,46,12) = (/ &\n        & 0.18729e+00_rb,0.56366e+00_rb,0.75707e+00_rb,0.86650e+00_rb,0.62580e+00_rb /)\n      kbo(:, 3,46,12) = (/ &\n        & 0.23189e+00_rb,0.62077e+00_rb,0.82600e+00_rb,0.93336e+00_rb,0.69232e+00_rb /)\n      kbo(:, 4,46,12) = (/ &\n        & 0.27798e+00_rb,0.67784e+00_rb,0.89269e+00_rb,0.99345e+00_rb,0.75352e+00_rb /)\n      kbo(:, 5,46,12) = (/ &\n        & 0.32583e+00_rb,0.73560e+00_rb,0.95715e+00_rb,0.10480e+01_rb,0.80957e+00_rb /)\n      kbo(:, 1,47,12) = (/ &\n        & 0.12858e+00_rb,0.48369e+00_rb,0.65638e+00_rb,0.76017e+00_rb,0.52730e+00_rb /)\n      kbo(:, 2,47,12) = (/ &\n        & 0.16969e+00_rb,0.54041e+00_rb,0.72859e+00_rb,0.83745e+00_rb,0.59783e+00_rb /)\n      kbo(:, 3,47,12) = (/ &\n        & 0.21344e+00_rb,0.59783e+00_rb,0.79837e+00_rb,0.90704e+00_rb,0.66606e+00_rb /)\n      kbo(:, 4,47,12) = (/ &\n        & 0.25910e+00_rb,0.65455e+00_rb,0.86586e+00_rb,0.96989e+00_rb,0.72949e+00_rb /)\n      kbo(:, 5,47,12) = (/ &\n        & 0.30618e+00_rb,0.71222e+00_rb,0.93155e+00_rb,0.10265e+01_rb,0.78728e+00_rb /)\n      kbo(:, 1,48,12) = (/ &\n        & 0.11298e+00_rb,0.46082e+00_rb,0.62642e+00_rb,0.72640e+00_rb,0.49809e+00_rb /)\n      kbo(:, 2,48,12) = (/ &\n        & 0.15246e+00_rb,0.51740e+00_rb,0.69983e+00_rb,0.80735e+00_rb,0.56961e+00_rb /)\n      kbo(:, 3,48,12) = (/ &\n        & 0.19539e+00_rb,0.57459e+00_rb,0.77041e+00_rb,0.87978e+00_rb,0.63885e+00_rb /)\n      kbo(:, 4,48,12) = (/ &\n        & 0.24045e+00_rb,0.63157e+00_rb,0.83892e+00_rb,0.94534e+00_rb,0.70441e+00_rb /)\n      kbo(:, 5,48,12) = (/ &\n        & 0.28683e+00_rb,0.68881e+00_rb,0.90534e+00_rb,0.10043e+01_rb,0.76449e+00_rb /)\n      kbo(:, 1,49,12) = (/ &\n        & 0.98247e-01_rb,0.43787e+00_rb,0.59630e+00_rb,0.69142e+00_rb,0.46886e+00_rb /)\n      kbo(:, 2,49,12) = (/ &\n        & 0.13602e+00_rb,0.49453e+00_rb,0.67051e+00_rb,0.77567e+00_rb,0.54098e+00_rb /)\n      kbo(:, 3,49,12) = (/ &\n        & 0.17773e+00_rb,0.55136e+00_rb,0.74221e+00_rb,0.85142e+00_rb,0.61109e+00_rb /)\n      kbo(:, 4,49,12) = (/ &\n        & 0.22196e+00_rb,0.60876e+00_rb,0.81162e+00_rb,0.91969e+00_rb,0.67863e+00_rb /)\n      kbo(:, 5,49,12) = (/ &\n        & 0.26789e+00_rb,0.66564e+00_rb,0.87866e+00_rb,0.98128e+00_rb,0.74108e+00_rb /)\n      kbo(:, 1,50,12) = (/ &\n        & 0.85448e-01_rb,0.41621e+00_rb,0.56763e+00_rb,0.65757e+00_rb,0.44117e+00_rb /)\n      kbo(:, 2,50,12) = (/ &\n        & 0.12109e+00_rb,0.47310e+00_rb,0.64247e+00_rb,0.74462e+00_rb,0.51379e+00_rb /)\n      kbo(:, 3,50,12) = (/ &\n        & 0.16156e+00_rb,0.52985e+00_rb,0.71554e+00_rb,0.82373e+00_rb,0.58488e+00_rb /)\n      kbo(:, 4,50,12) = (/ &\n        & 0.20488e+00_rb,0.58711e+00_rb,0.78559e+00_rb,0.89468e+00_rb,0.65362e+00_rb /)\n      kbo(:, 5,50,12) = (/ &\n        & 0.25037e+00_rb,0.64398e+00_rb,0.85353e+00_rb,0.95880e+00_rb,0.71804e+00_rb /)\n      kbo(:, 1,51,12) = (/ &\n        & 0.73759e-01_rb,0.39485e+00_rb,0.53977e+00_rb,0.62407e+00_rb,0.41437e+00_rb /)\n      kbo(:, 2,51,12) = (/ &\n        & 0.10727e+00_rb,0.45237e+00_rb,0.61531e+00_rb,0.71353e+00_rb,0.48727e+00_rb /)\n      kbo(:, 3,51,12) = (/ &\n        & 0.14620e+00_rb,0.50899e+00_rb,0.68916e+00_rb,0.79586e+00_rb,0.55909e+00_rb /)\n      kbo(:, 4,51,12) = (/ &\n        & 0.18867e+00_rb,0.56597e+00_rb,0.76009e+00_rb,0.86950e+00_rb,0.62868e+00_rb /)\n      kbo(:, 5,51,12) = (/ &\n        & 0.23351e+00_rb,0.62321e+00_rb,0.82900e+00_rb,0.93613e+00_rb,0.69507e+00_rb /)\n      kbo(:, 1,52,12) = (/ &\n        & 0.62975e-01_rb,0.37352e+00_rb,0.51168e+00_rb,0.59007e+00_rb,0.38790e+00_rb /)\n      kbo(:, 2,52,12) = (/ &\n        & 0.94238e-01_rb,0.43155e+00_rb,0.58786e+00_rb,0.68153e+00_rb,0.46072e+00_rb /)\n      kbo(:, 3,52,12) = (/ &\n        & 0.13138e+00_rb,0.48824e+00_rb,0.66233e+00_rb,0.76673e+00_rb,0.53305e+00_rb /)\n      kbo(:, 4,52,12) = (/ &\n        & 0.17291e+00_rb,0.54507e+00_rb,0.73444e+00_rb,0.84335e+00_rb,0.60343e+00_rb /)\n      kbo(:, 5,52,12) = (/ &\n        & 0.21681e+00_rb,0.60245e+00_rb,0.80402e+00_rb,0.91249e+00_rb,0.67147e+00_rb /)\n      kbo(:, 1,53,12) = (/ &\n        & 0.53060e-01_rb,0.35230e+00_rb,0.48353e+00_rb,0.55561e+00_rb,0.36178e+00_rb /)\n      kbo(:, 2,53,12) = (/ &\n        & 0.81984e-01_rb,0.41041e+00_rb,0.56005e+00_rb,0.64855e+00_rb,0.43393e+00_rb /)\n      kbo(:, 3,53,12) = (/ &\n        & 0.11713e+00_rb,0.46754e+00_rb,0.63518e+00_rb,0.73640e+00_rb,0.50665e+00_rb /)\n      kbo(:, 4,53,12) = (/ &\n        & 0.15723e+00_rb,0.52417e+00_rb,0.70847e+00_rb,0.81636e+00_rb,0.57800e+00_rb /)\n      kbo(:, 5,53,12) = (/ &\n        & 0.20038e+00_rb,0.58144e+00_rb,0.77877e+00_rb,0.88807e+00_rb,0.64700e+00_rb /)\n      kbo(:, 1,54,12) = (/ &\n        & 0.44825e-01_rb,0.33285e+00_rb,0.45764e+00_rb,0.52392e+00_rb,0.33821e+00_rb /)\n      kbo(:, 2,54,12) = (/ &\n        & 0.71480e-01_rb,0.39083e+00_rb,0.53456e+00_rb,0.61778e+00_rb,0.40943e+00_rb /)\n      kbo(:, 3,54,12) = (/ &\n        & 0.10463e+00_rb,0.44857e+00_rb,0.61031e+00_rb,0.70773e+00_rb,0.48234e+00_rb /)\n      kbo(:, 4,54,12) = (/ &\n        & 0.14329e+00_rb,0.50511e+00_rb,0.68427e+00_rb,0.79060e+00_rb,0.55433e+00_rb /)\n      kbo(:, 5,54,12) = (/ &\n        & 0.18561e+00_rb,0.56209e+00_rb,0.75543e+00_rb,0.86487e+00_rb,0.62409e+00_rb /)\n      kbo(:, 1,55,12) = (/ &\n        & 0.37713e-01_rb,0.31417e+00_rb,0.43292e+00_rb,0.49354e+00_rb,0.31617e+00_rb /)\n      kbo(:, 2,55,12) = (/ &\n        & 0.62120e-01_rb,0.37210e+00_rb,0.50985e+00_rb,0.58786e+00_rb,0.38623e+00_rb /)\n      kbo(:, 3,55,12) = (/ &\n        & 0.93283e-01_rb,0.43021e+00_rb,0.58608e+00_rb,0.67950e+00_rb,0.45902e+00_rb /)\n      kbo(:, 4,55,12) = (/ &\n        & 0.13035e+00_rb,0.48690e+00_rb,0.66064e+00_rb,0.76487e+00_rb,0.53142e+00_rb /)\n      kbo(:, 5,55,12) = (/ &\n        & 0.17183e+00_rb,0.54374e+00_rb,0.73284e+00_rb,0.84168e+00_rb,0.60189e+00_rb /)\n      kbo(:, 1,56,12) = (/ &\n        & 0.31364e-01_rb,0.29533e+00_rb,0.40826e+00_rb,0.46346e+00_rb,0.29456e+00_rb /)\n      kbo(:, 2,56,12) = (/ &\n        & 0.53447e-01_rb,0.35352e+00_rb,0.48522e+00_rb,0.55771e+00_rb,0.36336e+00_rb /)\n      kbo(:, 3,56,12) = (/ &\n        & 0.82579e-01_rb,0.41171e+00_rb,0.56173e+00_rb,0.65061e+00_rb,0.43556e+00_rb /)\n      kbo(:, 4,56,12) = (/ &\n        & 0.11788e+00_rb,0.46877e+00_rb,0.63683e+00_rb,0.73828e+00_rb,0.50830e+00_rb /)\n      kbo(:, 5,56,12) = (/ &\n        & 0.15810e+00_rb,0.52547e+00_rb,0.71011e+00_rb,0.81806e+00_rb,0.57961e+00_rb /)\n      kbo(:, 1,57,12) = (/ &\n        & 0.25728e-01_rb,0.27641e+00_rb,0.38366e+00_rb,0.43364e+00_rb,0.27324e+00_rb /)\n      kbo(:, 2,57,12) = (/ &\n        & 0.45538e-01_rb,0.33495e+00_rb,0.46047e+00_rb,0.52741e+00_rb,0.34078e+00_rb /)\n      kbo(:, 3,57,12) = (/ &\n        & 0.72492e-01_rb,0.39302e+00_rb,0.53741e+00_rb,0.62128e+00_rb,0.41216e+00_rb /)\n      kbo(:, 4,57,12) = (/ &\n        & 0.10590e+00_rb,0.45065e+00_rb,0.61311e+00_rb,0.71103e+00_rb,0.48510e+00_rb /)\n      kbo(:, 5,57,12) = (/ &\n        & 0.14476e+00_rb,0.50725e+00_rb,0.68700e+00_rb,0.79354e+00_rb,0.55702e+00_rb /)\n      kbo(:, 1,58,12) = (/ &\n        & 0.21034e-01_rb,0.25862e+00_rb,0.36035e+00_rb,0.40559e+00_rb,0.25327e+00_rb /)\n      kbo(:, 2,58,12) = (/ &\n        & 0.38718e-01_rb,0.31732e+00_rb,0.43714e+00_rb,0.49876e+00_rb,0.31992e+00_rb /)\n      kbo(:, 3,58,12) = (/ &\n        & 0.63552e-01_rb,0.37529e+00_rb,0.51407e+00_rb,0.59305e+00_rb,0.39018e+00_rb /)\n      kbo(:, 4,58,12) = (/ &\n        & 0.95105e-01_rb,0.43334e+00_rb,0.59030e+00_rb,0.68443e+00_rb,0.46307e+00_rb /)\n      kbo(:, 5,58,12) = (/ &\n        & 0.13248e+00_rb,0.49002e+00_rb,0.66471e+00_rb,0.76934e+00_rb,0.53538e+00_rb /)\n      kbo(:, 1,59,12) = (/ &\n        & 0.19312e-01_rb,0.25156e+00_rb,0.35103e+00_rb,0.39450e+00_rb,0.24538e+00_rb /)\n      kbo(:, 2,59,12) = (/ &\n        & 0.36163e-01_rb,0.31020e+00_rb,0.42773e+00_rb,0.48723e+00_rb,0.31163e+00_rb /)\n      kbo(:, 3,59,12) = (/ &\n        & 0.60143e-01_rb,0.36820e+00_rb,0.50471e+00_rb,0.58164e+00_rb,0.38146e+00_rb /)\n      kbo(:, 4,59,12) = (/ &\n        & 0.90924e-01_rb,0.42637e+00_rb,0.58105e+00_rb,0.67358e+00_rb,0.45417e+00_rb /)\n      kbo(:, 5,59,12) = (/ &\n        & 0.12765e+00_rb,0.48313e+00_rb,0.65572e+00_rb,0.75941e+00_rb,0.52665e+00_rb /)\n      kbo(:, 1,13,13) = (/ &\n        & 0.25702e+01_rb,0.27735e+01_rb,0.28760e+01_rb,0.25966e+01_rb,0.23968e+01_rb /)\n      kbo(:, 2,13,13) = (/ &\n        & 0.25597e+01_rb,0.27776e+01_rb,0.28903e+01_rb,0.26158e+01_rb,0.24224e+01_rb /)\n      kbo(:, 3,13,13) = (/ &\n        & 0.25494e+01_rb,0.27801e+01_rb,0.29040e+01_rb,0.26351e+01_rb,0.24494e+01_rb /)\n      kbo(:, 4,13,13) = (/ &\n        & 0.25338e+01_rb,0.27802e+01_rb,0.29182e+01_rb,0.26543e+01_rb,0.24747e+01_rb /)\n      kbo(:, 5,13,13) = (/ &\n        & 0.25177e+01_rb,0.27760e+01_rb,0.29320e+01_rb,0.26728e+01_rb,0.24963e+01_rb /)\n      kbo(:, 1,14,13) = (/ &\n        & 0.23659e+01_rb,0.26936e+01_rb,0.28410e+01_rb,0.26130e+01_rb,0.23363e+01_rb /)\n      kbo(:, 2,14,13) = (/ &\n        & 0.23577e+01_rb,0.27024e+01_rb,0.28615e+01_rb,0.26344e+01_rb,0.23684e+01_rb /)\n      kbo(:, 3,14,13) = (/ &\n        & 0.23468e+01_rb,0.27102e+01_rb,0.28819e+01_rb,0.26565e+01_rb,0.24004e+01_rb /)\n      kbo(:, 4,14,13) = (/ &\n        & 0.23350e+01_rb,0.27153e+01_rb,0.29051e+01_rb,0.26785e+01_rb,0.24267e+01_rb /)\n      kbo(:, 5,14,13) = (/ &\n        & 0.23244e+01_rb,0.27141e+01_rb,0.29262e+01_rb,0.26967e+01_rb,0.24480e+01_rb /)\n      kbo(:, 1,15,13) = (/ &\n        & 0.21606e+01_rb,0.25927e+01_rb,0.27805e+01_rb,0.26146e+01_rb,0.22773e+01_rb /)\n      kbo(:, 2,15,13) = (/ &\n        & 0.21537e+01_rb,0.26084e+01_rb,0.28087e+01_rb,0.26417e+01_rb,0.23162e+01_rb /)\n      kbo(:, 3,15,13) = (/ &\n        & 0.21448e+01_rb,0.26237e+01_rb,0.28408e+01_rb,0.26683e+01_rb,0.23515e+01_rb /)\n      kbo(:, 4,15,13) = (/ &\n        & 0.21380e+01_rb,0.26327e+01_rb,0.28720e+01_rb,0.26931e+01_rb,0.23792e+01_rb /)\n      kbo(:, 5,15,13) = (/ &\n        & 0.21347e+01_rb,0.26387e+01_rb,0.29018e+01_rb,0.27159e+01_rb,0.24036e+01_rb /)\n      kbo(:, 1,16,13) = (/ &\n        & 0.19588e+01_rb,0.24824e+01_rb,0.27086e+01_rb,0.26036e+01_rb,0.22170e+01_rb /)\n      kbo(:, 2,16,13) = (/ &\n        & 0.19544e+01_rb,0.25053e+01_rb,0.27466e+01_rb,0.26370e+01_rb,0.22638e+01_rb /)\n      kbo(:, 3,16,13) = (/ &\n        & 0.19508e+01_rb,0.25256e+01_rb,0.27882e+01_rb,0.26694e+01_rb,0.23023e+01_rb /)\n      kbo(:, 4,16,13) = (/ &\n        & 0.19522e+01_rb,0.25422e+01_rb,0.28288e+01_rb,0.26997e+01_rb,0.23338e+01_rb /)\n      kbo(:, 5,16,13) = (/ &\n        & 0.19669e+01_rb,0.25568e+01_rb,0.28660e+01_rb,0.27268e+01_rb,0.23639e+01_rb /)\n      kbo(:, 1,17,13) = (/ &\n        & 0.17683e+01_rb,0.23717e+01_rb,0.26296e+01_rb,0.25828e+01_rb,0.21586e+01_rb /)\n      kbo(:, 2,17,13) = (/ &\n        & 0.17670e+01_rb,0.24002e+01_rb,0.26798e+01_rb,0.26243e+01_rb,0.22104e+01_rb /)\n      kbo(:, 3,17,13) = (/ &\n        & 0.17705e+01_rb,0.24261e+01_rb,0.27313e+01_rb,0.26643e+01_rb,0.22525e+01_rb /)\n      kbo(:, 4,17,13) = (/ &\n        & 0.17889e+01_rb,0.24495e+01_rb,0.27802e+01_rb,0.27001e+01_rb,0.22912e+01_rb /)\n      kbo(:, 5,17,13) = (/ &\n        & 0.18206e+01_rb,0.24734e+01_rb,0.28261e+01_rb,0.27304e+01_rb,0.23278e+01_rb /)\n      kbo(:, 1,18,13) = (/ &\n        & 0.15903e+01_rb,0.22606e+01_rb,0.25530e+01_rb,0.25561e+01_rb,0.21033e+01_rb /)\n      kbo(:, 2,18,13) = (/ &\n        & 0.15961e+01_rb,0.22974e+01_rb,0.26139e+01_rb,0.26069e+01_rb,0.21585e+01_rb /)\n      kbo(:, 3,18,13) = (/ &\n        & 0.16151e+01_rb,0.23303e+01_rb,0.26738e+01_rb,0.26546e+01_rb,0.22069e+01_rb /)\n      kbo(:, 4,18,13) = (/ &\n        & 0.16495e+01_rb,0.23625e+01_rb,0.27316e+01_rb,0.26970e+01_rb,0.22532e+01_rb /)\n      kbo(:, 5,18,13) = (/ &\n        & 0.16970e+01_rb,0.23957e+01_rb,0.27859e+01_rb,0.27320e+01_rb,0.22970e+01_rb /)\n      kbo(:, 1,19,13) = (/ &\n        & 0.14257e+01_rb,0.21563e+01_rb,0.24826e+01_rb,0.25271e+01_rb,0.20500e+01_rb /)\n      kbo(:, 2,19,13) = (/ &\n        & 0.14448e+01_rb,0.21999e+01_rb,0.25521e+01_rb,0.25882e+01_rb,0.21113e+01_rb /)\n      kbo(:, 3,19,13) = (/ &\n        & 0.14809e+01_rb,0.22420e+01_rb,0.26202e+01_rb,0.26436e+01_rb,0.21676e+01_rb /)\n      kbo(:, 4,19,13) = (/ &\n        & 0.15301e+01_rb,0.22839e+01_rb,0.26861e+01_rb,0.26918e+01_rb,0.22215e+01_rb /)\n      kbo(:, 5,19,13) = (/ &\n        & 0.15917e+01_rb,0.23278e+01_rb,0.27486e+01_rb,0.27324e+01_rb,0.22720e+01_rb /)\n      kbo(:, 1,20,13) = (/ &\n        & 0.12800e+01_rb,0.20626e+01_rb,0.24230e+01_rb,0.25008e+01_rb,0.20040e+01_rb /)\n      kbo(:, 2,20,13) = (/ &\n        & 0.13152e+01_rb,0.21132e+01_rb,0.24996e+01_rb,0.25711e+01_rb,0.20725e+01_rb /)\n      kbo(:, 3,20,13) = (/ &\n        & 0.13653e+01_rb,0.21643e+01_rb,0.25750e+01_rb,0.26341e+01_rb,0.21362e+01_rb /)\n      kbo(:, 4,20,13) = (/ &\n        & 0.14290e+01_rb,0.22166e+01_rb,0.26493e+01_rb,0.26871e+01_rb,0.21969e+01_rb /)\n      kbo(:, 5,20,13) = (/ &\n        & 0.15047e+01_rb,0.22739e+01_rb,0.27186e+01_rb,0.27332e+01_rb,0.22536e+01_rb /)\n      kbo(:, 1,21,13) = (/ &\n        & 0.11565e+01_rb,0.19804e+01_rb,0.23723e+01_rb,0.24790e+01_rb,0.19652e+01_rb /)\n      kbo(:, 2,21,13) = (/ &\n        & 0.12043e+01_rb,0.20401e+01_rb,0.24563e+01_rb,0.25572e+01_rb,0.20406e+01_rb /)\n      kbo(:, 3,21,13) = (/ &\n        & 0.12682e+01_rb,0.20995e+01_rb,0.25386e+01_rb,0.26265e+01_rb,0.21117e+01_rb /)\n      kbo(:, 4,21,13) = (/ &\n        & 0.13446e+01_rb,0.21634e+01_rb,0.26197e+01_rb,0.26846e+01_rb,0.21783e+01_rb /)\n      kbo(:, 5,21,13) = (/ &\n        & 0.14328e+01_rb,0.22322e+01_rb,0.26943e+01_rb,0.27351e+01_rb,0.22400e+01_rb /)\n      kbo(:, 1,22,13) = (/ &\n        & 0.10567e+01_rb,0.19161e+01_rb,0.23380e+01_rb,0.24675e+01_rb,0.19394e+01_rb /)\n      kbo(:, 2,22,13) = (/ &\n        & 0.11171e+01_rb,0.19843e+01_rb,0.24279e+01_rb,0.25525e+01_rb,0.20217e+01_rb /)\n      kbo(:, 3,22,13) = (/ &\n        & 0.11926e+01_rb,0.20529e+01_rb,0.25167e+01_rb,0.26264e+01_rb,0.20987e+01_rb /)\n      kbo(:, 4,22,13) = (/ &\n        & 0.12819e+01_rb,0.21280e+01_rb,0.26028e+01_rb,0.26881e+01_rb,0.21696e+01_rb /)\n      kbo(:, 5,22,13) = (/ &\n        & 0.13818e+01_rb,0.22069e+01_rb,0.26807e+01_rb,0.27417e+01_rb,0.22350e+01_rb /)\n      kbo(:, 1,23,13) = (/ &\n        & 0.97722e+00_rb,0.18665e+01_rb,0.23140e+01_rb,0.24623e+01_rb,0.19226e+01_rb /)\n      kbo(:, 2,23,13) = (/ &\n        & 0.10487e+01_rb,0.19424e+01_rb,0.24103e+01_rb,0.25530e+01_rb,0.20109e+01_rb /)\n      kbo(:, 3,23,13) = (/ &\n        & 0.11351e+01_rb,0.20216e+01_rb,0.25035e+01_rb,0.26294e+01_rb,0.20926e+01_rb /)\n      kbo(:, 4,23,13) = (/ &\n        & 0.12356e+01_rb,0.21056e+01_rb,0.25931e+01_rb,0.26937e+01_rb,0.21670e+01_rb /)\n      kbo(:, 5,23,13) = (/ &\n        & 0.13470e+01_rb,0.21926e+01_rb,0.26734e+01_rb,0.27495e+01_rb,0.22345e+01_rb /)\n      kbo(:, 1,24,13) = (/ &\n        & 0.91609e+00_rb,0.18302e+01_rb,0.23004e+01_rb,0.24641e+01_rb,0.19149e+01_rb /)\n      kbo(:, 2,24,13) = (/ &\n        & 0.99757e+00_rb,0.19150e+01_rb,0.24014e+01_rb,0.25579e+01_rb,0.20076e+01_rb /)\n      kbo(:, 3,24,13) = (/ &\n        & 0.10945e+01_rb,0.20031e+01_rb,0.24987e+01_rb,0.26360e+01_rb,0.20926e+01_rb /)\n      kbo(:, 4,24,13) = (/ &\n        & 0.12058e+01_rb,0.20942e+01_rb,0.25896e+01_rb,0.27020e+01_rb,0.21691e+01_rb /)\n      kbo(:, 5,24,13) = (/ &\n        & 0.13269e+01_rb,0.21869e+01_rb,0.26718e+01_rb,0.27594e+01_rb,0.22381e+01_rb /)\n      kbo(:, 1,25,13) = (/ &\n        & 0.87183e+00_rb,0.18068e+01_rb,0.22964e+01_rb,0.24719e+01_rb,0.19153e+01_rb /)\n      kbo(:, 2,25,13) = (/ &\n        & 0.96269e+00_rb,0.19004e+01_rb,0.24012e+01_rb,0.25669e+01_rb,0.20109e+01_rb /)\n      kbo(:, 3,25,13) = (/ &\n        & 0.10701e+01_rb,0.19953e+01_rb,0.24998e+01_rb,0.26458e+01_rb,0.20980e+01_rb /)\n      kbo(:, 4,25,13) = (/ &\n        & 0.11910e+01_rb,0.20919e+01_rb,0.25913e+01_rb,0.27126e+01_rb,0.21754e+01_rb /)\n      kbo(:, 5,25,13) = (/ &\n        & 0.13188e+01_rb,0.21891e+01_rb,0.26749e+01_rb,0.27711e+01_rb,0.22449e+01_rb /)\n      kbo(:, 1,26,13) = (/ &\n        & 0.84313e+00_rb,0.17965e+01_rb,0.23011e+01_rb,0.24858e+01_rb,0.19238e+01_rb /)\n      kbo(:, 2,26,13) = (/ &\n        & 0.94434e+00_rb,0.18970e+01_rb,0.24073e+01_rb,0.25798e+01_rb,0.20205e+01_rb /)\n      kbo(:, 3,26,13) = (/ &\n        & 0.10612e+01_rb,0.19972e+01_rb,0.25069e+01_rb,0.26589e+01_rb,0.21080e+01_rb /)\n      kbo(:, 4,26,13) = (/ &\n        & 0.11887e+01_rb,0.20979e+01_rb,0.25988e+01_rb,0.27257e+01_rb,0.21853e+01_rb /)\n      kbo(:, 5,26,13) = (/ &\n        & 0.13225e+01_rb,0.21985e+01_rb,0.26831e+01_rb,0.27841e+01_rb,0.22550e+01_rb /)\n      kbo(:, 1,27,13) = (/ &\n        & 0.82783e+00_rb,0.17960e+01_rb,0.23110e+01_rb,0.25019e+01_rb,0.19363e+01_rb /)\n      kbo(:, 2,27,13) = (/ &\n        & 0.93873e+00_rb,0.19014e+01_rb,0.24182e+01_rb,0.25950e+01_rb,0.20338e+01_rb /)\n      kbo(:, 3,27,13) = (/ &\n        & 0.10628e+01_rb,0.20052e+01_rb,0.25176e+01_rb,0.26735e+01_rb,0.21206e+01_rb /)\n      kbo(:, 4,27,13) = (/ &\n        & 0.11961e+01_rb,0.21092e+01_rb,0.26097e+01_rb,0.27398e+01_rb,0.21974e+01_rb /)\n      kbo(:, 5,27,13) = (/ &\n        & 0.13342e+01_rb,0.22123e+01_rb,0.26944e+01_rb,0.27973e+01_rb,0.22665e+01_rb /)\n      kbo(:, 1,28,13) = (/ &\n        & 0.82452e+00_rb,0.18027e+01_rb,0.23247e+01_rb,0.25200e+01_rb,0.19523e+01_rb /)\n      kbo(:, 2,28,13) = (/ &\n        & 0.94277e+00_rb,0.19121e+01_rb,0.24323e+01_rb,0.26114e+01_rb,0.20494e+01_rb /)\n      kbo(:, 3,28,13) = (/ &\n        & 0.10725e+01_rb,0.20183e+01_rb,0.25313e+01_rb,0.26888e+01_rb,0.21352e+01_rb /)\n      kbo(:, 4,28,13) = (/ &\n        & 0.12107e+01_rb,0.21244e+01_rb,0.26233e+01_rb,0.27544e+01_rb,0.22110e+01_rb /)\n      kbo(:, 5,28,13) = (/ &\n        & 0.13516e+01_rb,0.22292e+01_rb,0.27078e+01_rb,0.28106e+01_rb,0.22794e+01_rb /)\n      kbo(:, 1,29,13) = (/ &\n        & 0.83075e+00_rb,0.18160e+01_rb,0.23425e+01_rb,0.25401e+01_rb,0.19712e+01_rb /)\n      kbo(:, 2,29,13) = (/ &\n        & 0.95513e+00_rb,0.19278e+01_rb,0.24494e+01_rb,0.26294e+01_rb,0.20669e+01_rb /)\n      kbo(:, 3,29,13) = (/ &\n        & 0.10900e+01_rb,0.20358e+01_rb,0.25478e+01_rb,0.27053e+01_rb,0.21513e+01_rb /)\n      kbo(:, 4,29,13) = (/ &\n        & 0.12315e+01_rb,0.21431e+01_rb,0.26391e+01_rb,0.27692e+01_rb,0.22259e+01_rb /)\n      kbo(:, 5,29,13) = (/ &\n        & 0.13745e+01_rb,0.22488e+01_rb,0.27235e+01_rb,0.28240e+01_rb,0.22934e+01_rb /)\n      kbo(:, 1,30,13) = (/ &\n        & 0.84416e+00_rb,0.18336e+01_rb,0.23624e+01_rb,0.25609e+01_rb,0.19916e+01_rb /)\n      kbo(:, 2,30,13) = (/ &\n        & 0.97368e+00_rb,0.19464e+01_rb,0.24682e+01_rb,0.26481e+01_rb,0.20854e+01_rb /)\n      kbo(:, 3,30,13) = (/ &\n        & 0.11126e+01_rb,0.20559e+01_rb,0.25658e+01_rb,0.27219e+01_rb,0.21680e+01_rb /)\n      kbo(:, 4,30,13) = (/ &\n        & 0.12564e+01_rb,0.21643e+01_rb,0.26566e+01_rb,0.27840e+01_rb,0.22414e+01_rb /)\n      kbo(:, 5,30,13) = (/ &\n        & 0.14008e+01_rb,0.22700e+01_rb,0.27405e+01_rb,0.28371e+01_rb,0.23076e+01_rb /)\n      kbo(:, 1,31,13) = (/ &\n        & 0.86384e+00_rb,0.18548e+01_rb,0.23844e+01_rb,0.25824e+01_rb,0.20133e+01_rb /)\n      kbo(:, 2,31,13) = (/ &\n        & 0.99753e+00_rb,0.19681e+01_rb,0.24888e+01_rb,0.26671e+01_rb,0.21046e+01_rb /)\n      kbo(:, 3,31,13) = (/ &\n        & 0.11394e+01_rb,0.20787e+01_rb,0.25856e+01_rb,0.27387e+01_rb,0.21855e+01_rb /)\n      kbo(:, 4,31,13) = (/ &\n        & 0.12850e+01_rb,0.21876e+01_rb,0.26758e+01_rb,0.27988e+01_rb,0.22577e+01_rb /)\n      kbo(:, 5,31,13) = (/ &\n        & 0.14304e+01_rb,0.22931e+01_rb,0.27584e+01_rb,0.28498e+01_rb,0.23225e+01_rb /)\n      kbo(:, 1,32,13) = (/ &\n        & 0.88808e+00_rb,0.18788e+01_rb,0.24078e+01_rb,0.26044e+01_rb,0.20359e+01_rb /)\n      kbo(:, 2,32,13) = (/ &\n        & 0.10254e+01_rb,0.19921e+01_rb,0.25106e+01_rb,0.26862e+01_rb,0.21246e+01_rb /)\n      kbo(:, 3,32,13) = (/ &\n        & 0.11696e+01_rb,0.21031e+01_rb,0.26064e+01_rb,0.27554e+01_rb,0.22034e+01_rb /)\n      kbo(:, 4,32,13) = (/ &\n        & 0.13164e+01_rb,0.22122e+01_rb,0.26955e+01_rb,0.28135e+01_rb,0.22742e+01_rb /)\n      kbo(:, 5,32,13) = (/ &\n        & 0.14621e+01_rb,0.23175e+01_rb,0.27772e+01_rb,0.28624e+01_rb,0.23376e+01_rb /)\n      kbo(:, 1,33,13) = (/ &\n        & 0.91576e+00_rb,0.19044e+01_rb,0.24318e+01_rb,0.26262e+01_rb,0.20585e+01_rb /)\n      kbo(:, 2,33,13) = (/ &\n        & 0.10563e+01_rb,0.20178e+01_rb,0.25332e+01_rb,0.27053e+01_rb,0.21448e+01_rb /)\n      kbo(:, 3,33,13) = (/ &\n        & 0.12022e+01_rb,0.21286e+01_rb,0.26280e+01_rb,0.27719e+01_rb,0.22216e+01_rb /)\n      kbo(:, 4,33,13) = (/ &\n        & 0.13498e+01_rb,0.22379e+01_rb,0.27158e+01_rb,0.28276e+01_rb,0.22909e+01_rb /)\n      kbo(:, 5,33,13) = (/ &\n        & 0.14952e+01_rb,0.23427e+01_rb,0.27963e+01_rb,0.28748e+01_rb,0.23524e+01_rb /)\n      kbo(:, 1,34,13) = (/ &\n        & 0.94113e+00_rb,0.19270e+01_rb,0.24527e+01_rb,0.26448e+01_rb,0.20775e+01_rb /)\n      kbo(:, 2,34,13) = (/ &\n        & 0.10840e+01_rb,0.20405e+01_rb,0.25528e+01_rb,0.27213e+01_rb,0.21619e+01_rb /)\n      kbo(:, 3,34,13) = (/ &\n        & 0.12311e+01_rb,0.21512e+01_rb,0.26466e+01_rb,0.27855e+01_rb,0.22370e+01_rb /)\n      kbo(:, 4,34,13) = (/ &\n        & 0.13793e+01_rb,0.22602e+01_rb,0.27333e+01_rb,0.28395e+01_rb,0.23050e+01_rb /)\n      kbo(:, 5,34,13) = (/ &\n        & 0.15242e+01_rb,0.23644e+01_rb,0.28128e+01_rb,0.28850e+01_rb,0.23650e+01_rb /)\n      kbo(:, 1,35,13) = (/ &\n        & 0.95467e+00_rb,0.19391e+01_rb,0.24637e+01_rb,0.26549e+01_rb,0.20879e+01_rb /)\n      kbo(:, 2,35,13) = (/ &\n        & 0.10989e+01_rb,0.20529e+01_rb,0.25635e+01_rb,0.27301e+01_rb,0.21712e+01_rb /)\n      kbo(:, 3,35,13) = (/ &\n        & 0.12468e+01_rb,0.21638e+01_rb,0.26569e+01_rb,0.27931e+01_rb,0.22456e+01_rb /)\n      kbo(:, 4,35,13) = (/ &\n        & 0.13953e+01_rb,0.22726e+01_rb,0.27430e+01_rb,0.28463e+01_rb,0.23128e+01_rb /)\n      kbo(:, 5,35,13) = (/ &\n        & 0.15401e+01_rb,0.23764e+01_rb,0.28219e+01_rb,0.28908e+01_rb,0.23721e+01_rb /)\n      kbo(:, 1,36,13) = (/ &\n        & 0.95401e+00_rb,0.19393e+01_rb,0.24641e+01_rb,0.26563e+01_rb,0.20890e+01_rb /)\n      kbo(:, 2,36,13) = (/ &\n        & 0.10986e+01_rb,0.20534e+01_rb,0.25640e+01_rb,0.27314e+01_rb,0.21722e+01_rb /)\n      kbo(:, 3,36,13) = (/ &\n        & 0.12470e+01_rb,0.21646e+01_rb,0.26577e+01_rb,0.27946e+01_rb,0.22466e+01_rb /)\n      kbo(:, 4,36,13) = (/ &\n        & 0.13959e+01_rb,0.22738e+01_rb,0.27440e+01_rb,0.28477e+01_rb,0.23138e+01_rb /)\n      kbo(:, 5,36,13) = (/ &\n        & 0.15410e+01_rb,0.23778e+01_rb,0.28230e+01_rb,0.28922e+01_rb,0.23732e+01_rb /)\n      kbo(:, 1,37,13) = (/ &\n        & 0.93269e+00_rb,0.19221e+01_rb,0.24490e+01_rb,0.26452e+01_rb,0.20765e+01_rb /)\n      kbo(:, 2,37,13) = (/ &\n        & 0.10767e+01_rb,0.20372e+01_rb,0.25499e+01_rb,0.27223e+01_rb,0.21614e+01_rb /)\n      kbo(:, 3,37,13) = (/ &\n        & 0.12250e+01_rb,0.21490e+01_rb,0.26449e+01_rb,0.27873e+01_rb,0.22369e+01_rb /)\n      kbo(:, 4,37,13) = (/ &\n        & 0.13744e+01_rb,0.22588e+01_rb,0.27324e+01_rb,0.28416e+01_rb,0.23053e+01_rb /)\n      kbo(:, 5,37,13) = (/ &\n        & 0.15205e+01_rb,0.23639e+01_rb,0.28124e+01_rb,0.28871e+01_rb,0.23656e+01_rb /)\n      kbo(:, 1,38,13) = (/ &\n        & 0.91080e+00_rb,0.19040e+01_rb,0.24332e+01_rb,0.26332e+01_rb,0.20631e+01_rb /)\n      kbo(:, 2,38,13) = (/ &\n        & 0.10540e+01_rb,0.20201e+01_rb,0.25351e+01_rb,0.27123e+01_rb,0.21497e+01_rb /)\n      kbo(:, 3,38,13) = (/ &\n        & 0.12022e+01_rb,0.21326e+01_rb,0.26310e+01_rb,0.27790e+01_rb,0.22264e+01_rb /)\n      kbo(:, 4,38,13) = (/ &\n        & 0.13520e+01_rb,0.22432e+01_rb,0.27202e+01_rb,0.28347e+01_rb,0.22959e+01_rb /)\n      kbo(:, 5,38,13) = (/ &\n        & 0.14989e+01_rb,0.23490e+01_rb,0.28012e+01_rb,0.28815e+01_rb,0.23575e+01_rb /)\n      kbo(:, 1,39,13) = (/ &\n        & 0.88956e+00_rb,0.18861e+01_rb,0.24173e+01_rb,0.26207e+01_rb,0.20495e+01_rb /)\n      kbo(:, 2,39,13) = (/ &\n        & 0.10319e+01_rb,0.20032e+01_rb,0.25205e+01_rb,0.27021e+01_rb,0.21379e+01_rb /)\n      kbo(:, 3,39,13) = (/ &\n        & 0.11798e+01_rb,0.21163e+01_rb,0.26173e+01_rb,0.27704e+01_rb,0.22159e+01_rb /)\n      kbo(:, 4,39,13) = (/ &\n        & 0.13298e+01_rb,0.22272e+01_rb,0.27078e+01_rb,0.28277e+01_rb,0.22865e+01_rb /)\n      kbo(:, 5,39,13) = (/ &\n        & 0.14775e+01_rb,0.23341e+01_rb,0.27901e+01_rb,0.28757e+01_rb,0.23493e+01_rb /)\n      kbo(:, 1,40,13) = (/ &\n        & 0.85494e+00_rb,0.18558e+01_rb,0.23904e+01_rb,0.25985e+01_rb,0.20255e+01_rb /)\n      kbo(:, 2,40,13) = (/ &\n        & 0.99514e+00_rb,0.19745e+01_rb,0.24954e+01_rb,0.26836e+01_rb,0.21170e+01_rb /)\n      kbo(:, 3,40,13) = (/ &\n        & 0.11424e+01_rb,0.20885e+01_rb,0.25938e+01_rb,0.27547e+01_rb,0.21975e+01_rb /)\n      kbo(:, 4,40,13) = (/ &\n        & 0.12924e+01_rb,0.22001e+01_rb,0.26861e+01_rb,0.28148e+01_rb,0.22700e+01_rb /)\n      kbo(:, 5,40,13) = (/ &\n        & 0.14413e+01_rb,0.23083e+01_rb,0.27705e+01_rb,0.28664e+01_rb,0.23349e+01_rb /)\n      kbo(:, 1,41,13) = (/ &\n        & 0.81957e+00_rb,0.18237e+01_rb,0.23613e+01_rb,0.25741e+01_rb,0.19997e+01_rb /)\n      kbo(:, 2,41,13) = (/ &\n        & 0.95728e+00_rb,0.19441e+01_rb,0.24688e+01_rb,0.26632e+01_rb,0.20945e+01_rb /)\n      kbo(:, 3,41,13) = (/ &\n        & 0.11034e+01_rb,0.20591e+01_rb,0.25687e+01_rb,0.27378e+01_rb,0.21777e+01_rb /)\n      kbo(:, 4,41,13) = (/ &\n        & 0.12530e+01_rb,0.21714e+01_rb,0.26630e+01_rb,0.28005e+01_rb,0.22519e+01_rb /)\n      kbo(:, 5,41,13) = (/ &\n        & 0.14027e+01_rb,0.22807e+01_rb,0.27494e+01_rb,0.28533e+01_rb,0.23190e+01_rb /)\n      kbo(:, 1,42,13) = (/ &\n        & 0.78503e+00_rb,0.17918e+01_rb,0.23317e+01_rb,0.25487e+01_rb,0.19734e+01_rb /)\n      kbo(:, 2,42,13) = (/ &\n        & 0.92016e+00_rb,0.19132e+01_rb,0.24418e+01_rb,0.26418e+01_rb,0.20712e+01_rb /)\n      kbo(:, 3,42,13) = (/ &\n        & 0.10646e+01_rb,0.20294e+01_rb,0.25432e+01_rb,0.27200e+01_rb,0.21575e+01_rb /)\n      kbo(:, 4,42,13) = (/ &\n        & 0.12137e+01_rb,0.21426e+01_rb,0.26392e+01_rb,0.27859e+01_rb,0.22336e+01_rb /)\n      kbo(:, 5,42,13) = (/ &\n        & 0.13639e+01_rb,0.22528e+01_rb,0.27279e+01_rb,0.28411e+01_rb,0.23026e+01_rb /)\n      kbo(:, 1,43,13) = (/ &\n        & 0.74423e+00_rb,0.17527e+01_rb,0.22949e+01_rb,0.25159e+01_rb,0.19403e+01_rb /)\n      kbo(:, 2,43,13) = (/ &\n        & 0.87589e+00_rb,0.18750e+01_rb,0.24080e+01_rb,0.26143e+01_rb,0.20417e+01_rb /)\n      kbo(:, 3,43,13) = (/ &\n        & 0.10179e+01_rb,0.19932e+01_rb,0.25118e+01_rb,0.26972e+01_rb,0.21315e+01_rb /)\n      kbo(:, 4,43,13) = (/ &\n        & 0.11661e+01_rb,0.21073e+01_rb,0.26096e+01_rb,0.27665e+01_rb,0.22105e+01_rb /)\n      kbo(:, 5,43,13) = (/ &\n        & 0.13165e+01_rb,0.22185e+01_rb,0.27008e+01_rb,0.28247e+01_rb,0.22817e+01_rb /)\n      kbo(:, 1,44,13) = (/ &\n        & 0.70183e+00_rb,0.17101e+01_rb,0.22539e+01_rb,0.24783e+01_rb,0.19029e+01_rb /)\n      kbo(:, 2,44,13) = (/ &\n        & 0.82940e+00_rb,0.18334e+01_rb,0.23707e+01_rb,0.25829e+01_rb,0.20083e+01_rb /)\n      kbo(:, 3,44,13) = (/ &\n        & 0.96829e+00_rb,0.19537e+01_rb,0.24774e+01_rb,0.26707e+01_rb,0.21022e+01_rb /)\n      kbo(:, 4,44,13) = (/ &\n        & 0.11151e+01_rb,0.20687e+01_rb,0.25770e+01_rb,0.27443e+01_rb,0.21846e+01_rb /)\n      kbo(:, 5,44,13) = (/ &\n        & 0.12651e+01_rb,0.21808e+01_rb,0.26707e+01_rb,0.28061e+01_rb,0.22584e+01_rb /)\n      kbo(:, 1,45,13) = (/ &\n        & 0.66118e+00_rb,0.16676e+01_rb,0.22119e+01_rb,0.24384e+01_rb,0.18634e+01_rb /)\n      kbo(:, 2,45,13) = (/ &\n        & 0.78445e+00_rb,0.17917e+01_rb,0.23321e+01_rb,0.25495e+01_rb,0.19739e+01_rb /)\n      kbo(:, 3,45,13) = (/ &\n        & 0.91984e+00_rb,0.19133e+01_rb,0.24421e+01_rb,0.26427e+01_rb,0.20718e+01_rb /)\n      kbo(:, 4,45,13) = (/ &\n        & 0.10646e+01_rb,0.20301e+01_rb,0.25439e+01_rb,0.27211e+01_rb,0.21582e+01_rb /)\n      kbo(:, 5,45,13) = (/ &\n        & 0.12138e+01_rb,0.21430e+01_rb,0.26395e+01_rb,0.27867e+01_rb,0.22343e+01_rb /)\n      kbo(:, 1,46,13) = (/ &\n        & 0.61933e+00_rb,0.16221e+01_rb,0.21659e+01_rb,0.23935e+01_rb,0.18196e+01_rb /)\n      kbo(:, 2,46,13) = (/ &\n        & 0.73807e+00_rb,0.17470e+01_rb,0.22898e+01_rb,0.25118e+01_rb,0.19358e+01_rb /)\n      kbo(:, 3,46,13) = (/ &\n        & 0.86934e+00_rb,0.18696e+01_rb,0.24034e+01_rb,0.26109e+01_rb,0.20379e+01_rb /)\n      kbo(:, 4,46,13) = (/ &\n        & 0.10113e+01_rb,0.19884e+01_rb,0.25076e+01_rb,0.26946e+01_rb,0.21283e+01_rb /)\n      kbo(:, 5,46,13) = (/ &\n        & 0.11593e+01_rb,0.21025e+01_rb,0.26055e+01_rb,0.27643e+01_rb,0.22076e+01_rb /)\n      kbo(:, 1,47,13) = (/ &\n        & 0.57374e+00_rb,0.15709e+01_rb,0.21131e+01_rb,0.23400e+01_rb,0.17680e+01_rb /)\n      kbo(:, 2,47,13) = (/ &\n        & 0.68838e+00_rb,0.16965e+01_rb,0.22409e+01_rb,0.24665e+01_rb,0.18907e+01_rb /)\n      kbo(:, 3,47,13) = (/ &\n        & 0.81478e+00_rb,0.18201e+01_rb,0.23589e+01_rb,0.25731e+01_rb,0.19980e+01_rb /)\n      kbo(:, 4,47,13) = (/ &\n        & 0.95278e+00_rb,0.19412e+01_rb,0.24665e+01_rb,0.26626e+01_rb,0.20931e+01_rb /)\n      kbo(:, 5,47,13) = (/ &\n        & 0.10991e+01_rb,0.20567e+01_rb,0.25667e+01_rb,0.27376e+01_rb,0.21769e+01_rb /)\n      kbo(:, 1,48,13) = (/ &\n        & 0.52946e+00_rb,0.15198e+01_rb,0.20592e+01_rb,0.22834e+01_rb,0.17136e+01_rb /)\n      kbo(:, 2,48,13) = (/ &\n        & 0.64089e+00_rb,0.16459e+01_rb,0.21904e+01_rb,0.24180e+01_rb,0.18431e+01_rb /)\n      kbo(:, 3,48,13) = (/ &\n        & 0.76211e+00_rb,0.17708e+01_rb,0.23126e+01_rb,0.25324e+01_rb,0.19565e+01_rb /)\n      kbo(:, 4,48,13) = (/ &\n        & 0.89568e+00_rb,0.18928e+01_rb,0.24241e+01_rb,0.26284e+01_rb,0.20564e+01_rb /)\n      kbo(:, 5,48,13) = (/ &\n        & 0.10393e+01_rb,0.20105e+01_rb,0.25268e+01_rb,0.27091e+01_rb,0.21445e+01_rb /)\n      kbo(:, 1,49,13) = (/ &\n        & 0.48708e+00_rb,0.14681e+01_rb,0.20029e+01_rb,0.22232e+01_rb,0.16566e+01_rb /)\n      kbo(:, 2,49,13) = (/ &\n        & 0.59510e+00_rb,0.15951e+01_rb,0.21382e+01_rb,0.23660e+01_rb,0.17928e+01_rb /)\n      kbo(:, 3,49,13) = (/ &\n        & 0.71141e+00_rb,0.17205e+01_rb,0.22646e+01_rb,0.24889e+01_rb,0.19130e+01_rb /)\n      kbo(:, 4,49,13) = (/ &\n        & 0.84034e+00_rb,0.18437e+01_rb,0.23804e+01_rb,0.25917e+01_rb,0.20174e+01_rb /)\n      kbo(:, 5,49,13) = (/ &\n        & 0.98023e+00_rb,0.19637e+01_rb,0.24863e+01_rb,0.26785e+01_rb,0.21102e+01_rb /)\n      kbo(:, 1,50,13) = (/ &\n        & 0.44946e+00_rb,0.14198e+01_rb,0.19480e+01_rb,0.21639e+01_rb,0.16005e+01_rb /)\n      kbo(:, 2,50,13) = (/ &\n        & 0.55308e+00_rb,0.15472e+01_rb,0.20885e+01_rb,0.23146e+01_rb,0.17433e+01_rb /)\n      kbo(:, 3,50,13) = (/ &\n        & 0.66640e+00_rb,0.16732e+01_rb,0.22179e+01_rb,0.24447e+01_rb,0.18693e+01_rb /)\n      kbo(:, 4,50,13) = (/ &\n        & 0.79021e+00_rb,0.17975e+01_rb,0.23380e+01_rb,0.25550e+01_rb,0.19794e+01_rb /)\n      kbo(:, 5,50,13) = (/ &\n        & 0.92626e+00_rb,0.19191e+01_rb,0.24474e+01_rb,0.26476e+01_rb,0.20768e+01_rb /)\n      kbo(:, 1,51,13) = (/ &\n        & 0.41452e+00_rb,0.13727e+01_rb,0.18922e+01_rb,0.21038e+01_rb,0.15428e+01_rb /)\n      kbo(:, 2,51,13) = (/ &\n        & 0.51362e+00_rb,0.15005e+01_rb,0.20385e+01_rb,0.22616e+01_rb,0.16930e+01_rb /)\n      kbo(:, 3,51,13) = (/ &\n        & 0.62394e+00_rb,0.16272e+01_rb,0.21714e+01_rb,0.23993e+01_rb,0.18251e+01_rb /)\n      kbo(:, 4,51,13) = (/ &\n        & 0.74304e+00_rb,0.17523e+01_rb,0.22953e+01_rb,0.25171e+01_rb,0.19410e+01_rb /)\n      kbo(:, 5,51,13) = (/ &\n        & 0.87505e+00_rb,0.18748e+01_rb,0.24082e+01_rb,0.26155e+01_rb,0.20426e+01_rb /)\n      kbo(:, 1,52,13) = (/ &\n        & 0.38121e+00_rb,0.13250e+01_rb,0.18350e+01_rb,0.20413e+01_rb,0.14822e+01_rb /)\n      kbo(:, 2,52,13) = (/ &\n        & 0.47581e+00_rb,0.14538e+01_rb,0.19870e+01_rb,0.22062e+01_rb,0.16405e+01_rb /)\n      kbo(:, 3,52,13) = (/ &\n        & 0.58258e+00_rb,0.15810e+01_rb,0.21239e+01_rb,0.23514e+01_rb,0.17789e+01_rb /)\n      kbo(:, 4,52,13) = (/ &\n        & 0.69813e+00_rb,0.17065e+01_rb,0.22509e+01_rb,0.24762e+01_rb,0.19005e+01_rb /)\n      kbo(:, 5,52,13) = (/ &\n        & 0.82543e+00_rb,0.18301e+01_rb,0.23683e+01_rb,0.25815e+01_rb,0.20067e+01_rb /)\n      kbo(:, 1,53,13) = (/ &\n        & 0.34902e+00_rb,0.12769e+01_rb,0.17751e+01_rb,0.19762e+01_rb,0.14178e+01_rb /)\n      kbo(:, 2,53,13) = (/ &\n        & 0.43953e+00_rb,0.14068e+01_rb,0.19332e+01_rb,0.21485e+01_rb,0.15854e+01_rb /)\n      kbo(:, 3,53,13) = (/ &\n        & 0.54216e+00_rb,0.15348e+01_rb,0.20756e+01_rb,0.23010e+01_rb,0.17302e+01_rb /)\n      kbo(:, 4,53,13) = (/ &\n        & 0.65469e+00_rb,0.16608e+01_rb,0.22054e+01_rb,0.24328e+01_rb,0.18578e+01_rb /)\n      kbo(:, 5,53,13) = (/ &\n        & 0.77730e+00_rb,0.17854e+01_rb,0.23267e+01_rb,0.25453e+01_rb,0.19695e+01_rb /)\n      kbo(:, 1,54,13) = (/ &\n        & 0.32058e+00_rb,0.12324e+01_rb,0.17175e+01_rb,0.19140e+01_rb,0.13553e+01_rb /)\n      kbo(:, 2,54,13) = (/ &\n        & 0.40795e+00_rb,0.13637e+01_rb,0.18819e+01_rb,0.20929e+01_rb,0.15321e+01_rb /)\n      kbo(:, 3,54,13) = (/ &\n        & 0.50645e+00_rb,0.14920e+01_rb,0.20295e+01_rb,0.22518e+01_rb,0.16837e+01_rb /)\n      kbo(:, 4,54,13) = (/ &\n        & 0.61609e+00_rb,0.16187e+01_rb,0.21628e+01_rb,0.23909e+01_rb,0.18169e+01_rb /)\n      kbo(:, 5,54,13) = (/ &\n        & 0.73448e+00_rb,0.17439e+01_rb,0.22873e+01_rb,0.25101e+01_rb,0.19340e+01_rb /)\n      kbo(:, 1,55,13) = (/ &\n        & 0.29443e+00_rb,0.11892e+01_rb,0.16600e+01_rb,0.18513e+01_rb,0.12929e+01_rb /)\n      kbo(:, 2,55,13) = (/ &\n        & 0.37883e+00_rb,0.13219e+01_rb,0.18314e+01_rb,0.20376e+01_rb,0.14784e+01_rb /)\n      kbo(:, 3,55,13) = (/ &\n        & 0.47335e+00_rb,0.14508e+01_rb,0.19839e+01_rb,0.22027e+01_rb,0.16372e+01_rb /)\n      kbo(:, 4,55,13) = (/ &\n        & 0.57989e+00_rb,0.15780e+01_rb,0.21210e+01_rb,0.23485e+01_rb,0.17761e+01_rb /)\n      kbo(:, 5,55,13) = (/ &\n        & 0.69533e+00_rb,0.17037e+01_rb,0.22482e+01_rb,0.24738e+01_rb,0.18980e+01_rb /)\n      kbo(:, 1,56,13) = (/ &\n        & 0.26936e+00_rb,0.11459e+01_rb,0.16007e+01_rb,0.17863e+01_rb,0.12289e+01_rb /)\n      kbo(:, 2,56,13) = (/ &\n        & 0.35065e+00_rb,0.12797e+01_rb,0.17789e+01_rb,0.19807e+01_rb,0.14221e+01_rb /)\n      kbo(:, 3,56,13) = (/ &\n        & 0.44158e+00_rb,0.14097e+01_rb,0.19368e+01_rb,0.21523e+01_rb,0.15891e+01_rb /)\n      kbo(:, 4,56,13) = (/ &\n        & 0.54448e+00_rb,0.15375e+01_rb,0.20786e+01_rb,0.23043e+01_rb,0.17334e+01_rb /)\n      kbo(:, 5,56,13) = (/ &\n        & 0.65732e+00_rb,0.16637e+01_rb,0.22084e+01_rb,0.24358e+01_rb,0.18606e+01_rb /)\n      kbo(:, 1,57,13) = (/ &\n        & 0.24515e+00_rb,0.11022e+01_rb,0.15388e+01_rb,0.17186e+01_rb,0.11645e+01_rb /)\n      kbo(:, 2,57,13) = (/ &\n        & 0.32341e+00_rb,0.12372e+01_rb,0.17241e+01_rb,0.19215e+01_rb,0.13626e+01_rb /)\n      kbo(:, 3,57,13) = (/ &\n        & 0.41131e+00_rb,0.13686e+01_rb,0.18879e+01_rb,0.20994e+01_rb,0.15383e+01_rb /)\n      kbo(:, 4,57,13) = (/ &\n        & 0.51026e+00_rb,0.14967e+01_rb,0.20347e+01_rb,0.22575e+01_rb,0.16892e+01_rb /)\n      kbo(:, 5,57,13) = (/ &\n        & 0.62036e+00_rb,0.16234e+01_rb,0.21677e+01_rb,0.23959e+01_rb,0.18217e+01_rb /)\n      kbo(:, 1,58,13) = (/ &\n        & 0.22298e+00_rb,0.10601e+01_rb,0.14788e+01_rb,0.16521e+01_rb,0.11024e+01_rb /)\n      kbo(:, 2,58,13) = (/ &\n        & 0.29857e+00_rb,0.11965e+01_rb,0.16700e+01_rb,0.18625e+01_rb,0.13039e+01_rb /)\n      kbo(:, 3,58,13) = (/ &\n        & 0.38366e+00_rb,0.13291e+01_rb,0.18404e+01_rb,0.20474e+01_rb,0.14880e+01_rb /)\n      kbo(:, 4,58,13) = (/ &\n        & 0.47882e+00_rb,0.14579e+01_rb,0.19918e+01_rb,0.22114e+01_rb,0.16455e+01_rb /)\n      kbo(:, 5,58,13) = (/ &\n        & 0.58601e+00_rb,0.15850e+01_rb,0.21282e+01_rb,0.23561e+01_rb,0.17833e+01_rb /)\n      kbo(:, 1,59,13) = (/ &\n        & 0.21427e+00_rb,0.10429e+01_rb,0.14544e+01_rb,0.16247e+01_rb,0.10771e+01_rb /)\n      kbo(:, 2,59,13) = (/ &\n        & 0.28885e+00_rb,0.11801e+01_rb,0.16480e+01_rb,0.18384e+01_rb,0.12798e+01_rb /)\n      kbo(:, 3,59,13) = (/ &\n        & 0.37281e+00_rb,0.13132e+01_rb,0.18209e+01_rb,0.20260e+01_rb,0.14670e+01_rb /)\n      kbo(:, 4,59,13) = (/ &\n        & 0.46652e+00_rb,0.14422e+01_rb,0.19743e+01_rb,0.21926e+01_rb,0.16276e+01_rb /)\n      kbo(:, 5,59,13) = (/ &\n        & 0.57246e+00_rb,0.15697e+01_rb,0.21123e+01_rb,0.23397e+01_rb,0.17674e+01_rb /)\n      kbo(:, 1,13,14) = (/ &\n        & 0.76467e+01_rb,0.66870e+01_rb,0.63502e+01_rb,0.61468e+01_rb,0.66906e+01_rb /)\n      kbo(:, 2,13,14) = (/ &\n        & 0.76514e+01_rb,0.66716e+01_rb,0.63627e+01_rb,0.61942e+01_rb,0.67780e+01_rb /)\n      kbo(:, 3,13,14) = (/ &\n        & 0.76475e+01_rb,0.66428e+01_rb,0.63628e+01_rb,0.62371e+01_rb,0.68460e+01_rb /)\n      kbo(:, 4,13,14) = (/ &\n        & 0.76415e+01_rb,0.66083e+01_rb,0.63514e+01_rb,0.62630e+01_rb,0.69072e+01_rb /)\n      kbo(:, 5,13,14) = (/ &\n        & 0.76283e+01_rb,0.65686e+01_rb,0.63330e+01_rb,0.62779e+01_rb,0.69614e+01_rb /)\n      kbo(:, 1,14,14) = (/ &\n        & 0.77958e+01_rb,0.69779e+01_rb,0.66658e+01_rb,0.63591e+01_rb,0.67479e+01_rb /)\n      kbo(:, 2,14,14) = (/ &\n        & 0.78014e+01_rb,0.69599e+01_rb,0.66792e+01_rb,0.64167e+01_rb,0.68357e+01_rb /)\n      kbo(:, 3,14,14) = (/ &\n        & 0.78100e+01_rb,0.69314e+01_rb,0.66809e+01_rb,0.64627e+01_rb,0.69109e+01_rb /)\n      kbo(:, 4,14,14) = (/ &\n        & 0.78098e+01_rb,0.68950e+01_rb,0.66685e+01_rb,0.64923e+01_rb,0.69838e+01_rb /)\n      kbo(:, 5,14,14) = (/ &\n        & 0.77999e+01_rb,0.68585e+01_rb,0.66494e+01_rb,0.65137e+01_rb,0.70531e+01_rb /)\n      kbo(:, 1,15,14) = (/ &\n        & 0.78397e+01_rb,0.72065e+01_rb,0.69626e+01_rb,0.65521e+01_rb,0.67717e+01_rb /)\n      kbo(:, 2,15,14) = (/ &\n        & 0.78630e+01_rb,0.71900e+01_rb,0.69770e+01_rb,0.66166e+01_rb,0.68639e+01_rb /)\n      kbo(:, 3,15,14) = (/ &\n        & 0.78829e+01_rb,0.71661e+01_rb,0.69761e+01_rb,0.66643e+01_rb,0.69508e+01_rb /)\n      kbo(:, 4,15,14) = (/ &\n        & 0.78961e+01_rb,0.71374e+01_rb,0.69668e+01_rb,0.66987e+01_rb,0.70374e+01_rb /)\n      kbo(:, 5,15,14) = (/ &\n        & 0.78984e+01_rb,0.71026e+01_rb,0.69440e+01_rb,0.67207e+01_rb,0.71207e+01_rb /)\n      kbo(:, 1,16,14) = (/ &\n        & 0.77976e+01_rb,0.73768e+01_rb,0.72331e+01_rb,0.67309e+01_rb,0.67735e+01_rb /)\n      kbo(:, 2,16,14) = (/ &\n        & 0.78456e+01_rb,0.73704e+01_rb,0.72485e+01_rb,0.67988e+01_rb,0.68801e+01_rb /)\n      kbo(:, 3,16,14) = (/ &\n        & 0.78840e+01_rb,0.73590e+01_rb,0.72505e+01_rb,0.68482e+01_rb,0.69801e+01_rb /)\n      kbo(:, 4,16,14) = (/ &\n        & 0.79146e+01_rb,0.73379e+01_rb,0.72385e+01_rb,0.68847e+01_rb,0.70795e+01_rb /)\n      kbo(:, 5,16,14) = (/ &\n        & 0.79322e+01_rb,0.73060e+01_rb,0.72179e+01_rb,0.69099e+01_rb,0.71779e+01_rb /)\n      kbo(:, 1,17,14) = (/ &\n        & 0.76851e+01_rb,0.74978e+01_rb,0.74681e+01_rb,0.68923e+01_rb,0.67646e+01_rb /)\n      kbo(:, 2,17,14) = (/ &\n        & 0.77622e+01_rb,0.75112e+01_rb,0.74909e+01_rb,0.69618e+01_rb,0.68880e+01_rb /)\n      kbo(:, 3,17,14) = (/ &\n        & 0.78293e+01_rb,0.75089e+01_rb,0.74964e+01_rb,0.70134e+01_rb,0.70063e+01_rb /)\n      kbo(:, 4,17,14) = (/ &\n        & 0.78832e+01_rb,0.75014e+01_rb,0.74883e+01_rb,0.70540e+01_rb,0.71204e+01_rb /)\n      kbo(:, 5,17,14) = (/ &\n        & 0.79237e+01_rb,0.74752e+01_rb,0.74629e+01_rb,0.70833e+01_rb,0.72311e+01_rb /)\n      kbo(:, 1,18,14) = (/ &\n        & 0.75343e+01_rb,0.75844e+01_rb,0.76679e+01_rb,0.70369e+01_rb,0.67530e+01_rb /)\n      kbo(:, 2,18,14) = (/ &\n        & 0.76372e+01_rb,0.76127e+01_rb,0.76999e+01_rb,0.71100e+01_rb,0.68939e+01_rb /)\n      kbo(:, 3,18,14) = (/ &\n        & 0.77344e+01_rb,0.76293e+01_rb,0.77123e+01_rb,0.71649e+01_rb,0.70305e+01_rb /)\n      kbo(:, 4,18,14) = (/ &\n        & 0.78168e+01_rb,0.76302e+01_rb,0.77077e+01_rb,0.72057e+01_rb,0.71594e+01_rb /)\n      kbo(:, 5,18,14) = (/ &\n        & 0.78848e+01_rb,0.76120e+01_rb,0.76799e+01_rb,0.72369e+01_rb,0.72819e+01_rb /)\n      kbo(:, 1,19,14) = (/ &\n        & 0.73642e+01_rb,0.76427e+01_rb,0.78392e+01_rb,0.71673e+01_rb,0.67426e+01_rb /)\n      kbo(:, 2,19,14) = (/ &\n        & 0.75027e+01_rb,0.76890e+01_rb,0.78792e+01_rb,0.72411e+01_rb,0.69029e+01_rb /)\n      kbo(:, 3,19,14) = (/ &\n        & 0.76261e+01_rb,0.77218e+01_rb,0.78995e+01_rb,0.72995e+01_rb,0.70551e+01_rb /)\n      kbo(:, 4,19,14) = (/ &\n        & 0.77358e+01_rb,0.77317e+01_rb,0.78972e+01_rb,0.73431e+01_rb,0.71976e+01_rb /)\n      kbo(:, 5,19,14) = (/ &\n        & 0.78306e+01_rb,0.77206e+01_rb,0.78669e+01_rb,0.73734e+01_rb,0.73288e+01_rb /)\n      kbo(:, 1,20,14) = (/ &\n        & 0.71989e+01_rb,0.76856e+01_rb,0.79830e+01_rb,0.72835e+01_rb,0.67408e+01_rb /)\n      kbo(:, 2,20,14) = (/ &\n        & 0.73691e+01_rb,0.77492e+01_rb,0.80344e+01_rb,0.73623e+01_rb,0.69200e+01_rb /)\n      kbo(:, 3,20,14) = (/ &\n        & 0.75204e+01_rb,0.77952e+01_rb,0.80604e+01_rb,0.74206e+01_rb,0.70842e+01_rb /)\n      kbo(:, 4,20,14) = (/ &\n        & 0.76560e+01_rb,0.78150e+01_rb,0.80567e+01_rb,0.74651e+01_rb,0.72381e+01_rb /)\n      kbo(:, 5,20,14) = (/ &\n        & 0.77736e+01_rb,0.78108e+01_rb,0.80255e+01_rb,0.74944e+01_rb,0.73772e+01_rb /)\n      kbo(:, 1,21,14) = (/ &\n        & 0.70426e+01_rb,0.77166e+01_rb,0.81049e+01_rb,0.73883e+01_rb,0.67480e+01_rb /)\n      kbo(:, 2,21,14) = (/ &\n        & 0.72474e+01_rb,0.77946e+01_rb,0.81668e+01_rb,0.74708e+01_rb,0.69410e+01_rb /)\n      kbo(:, 3,21,14) = (/ &\n        & 0.74271e+01_rb,0.78518e+01_rb,0.81976e+01_rb,0.75283e+01_rb,0.71153e+01_rb /)\n      kbo(:, 4,21,14) = (/ &\n        & 0.75881e+01_rb,0.78806e+01_rb,0.81926e+01_rb,0.75722e+01_rb,0.72765e+01_rb /)\n      kbo(:, 5,21,14) = (/ &\n        & 0.77244e+01_rb,0.78840e+01_rb,0.81605e+01_rb,0.76005e+01_rb,0.74219e+01_rb /)\n      kbo(:, 1,22,14) = (/ &\n        & 0.69208e+01_rb,0.77467e+01_rb,0.82134e+01_rb,0.74892e+01_rb,0.67760e+01_rb /)\n      kbo(:, 2,22,14) = (/ &\n        & 0.71527e+01_rb,0.78380e+01_rb,0.82825e+01_rb,0.75703e+01_rb,0.69788e+01_rb /)\n      kbo(:, 3,22,14) = (/ &\n        & 0.73591e+01_rb,0.79026e+01_rb,0.83138e+01_rb,0.76265e+01_rb,0.71614e+01_rb /)\n      kbo(:, 4,22,14) = (/ &\n        & 0.75412e+01_rb,0.79369e+01_rb,0.83052e+01_rb,0.76676e+01_rb,0.73269e+01_rb /)\n      kbo(:, 5,22,14) = (/ &\n        & 0.76931e+01_rb,0.79423e+01_rb,0.82705e+01_rb,0.76932e+01_rb,0.74734e+01_rb /)\n      kbo(:, 1,23,14) = (/ &\n        & 0.68264e+01_rb,0.77768e+01_rb,0.83085e+01_rb,0.75813e+01_rb,0.68129e+01_rb /)\n      kbo(:, 2,23,14) = (/ &\n        & 0.70814e+01_rb,0.78791e+01_rb,0.83807e+01_rb,0.76573e+01_rb,0.70223e+01_rb /)\n      kbo(:, 3,23,14) = (/ &\n        & 0.73108e+01_rb,0.79473e+01_rb,0.84103e+01_rb,0.77115e+01_rb,0.72087e+01_rb /)\n      kbo(:, 4,23,14) = (/ &\n        & 0.75083e+01_rb,0.79850e+01_rb,0.83989e+01_rb,0.77500e+01_rb,0.73762e+01_rb /)\n      kbo(:, 5,23,14) = (/ &\n        & 0.76738e+01_rb,0.79912e+01_rb,0.83608e+01_rb,0.77715e+01_rb,0.75218e+01_rb /)\n      kbo(:, 1,24,14) = (/ &\n        & 0.67597e+01_rb,0.78092e+01_rb,0.83929e+01_rb,0.76639e+01_rb,0.68571e+01_rb /)\n      kbo(:, 2,24,14) = (/ &\n        & 0.70359e+01_rb,0.79159e+01_rb,0.84653e+01_rb,0.77347e+01_rb,0.70700e+01_rb /)\n      kbo(:, 3,24,14) = (/ &\n        & 0.72818e+01_rb,0.79869e+01_rb,0.84905e+01_rb,0.77860e+01_rb,0.72578e+01_rb /)\n      kbo(:, 4,24,14) = (/ &\n        & 0.74908e+01_rb,0.80269e+01_rb,0.84765e+01_rb,0.78202e+01_rb,0.74248e+01_rb /)\n      kbo(:, 5,24,14) = (/ &\n        & 0.76673e+01_rb,0.80324e+01_rb,0.84337e+01_rb,0.78375e+01_rb,0.75690e+01_rb /)\n      kbo(:, 1,25,14) = (/ &\n        & 0.67209e+01_rb,0.78436e+01_rb,0.84676e+01_rb,0.77356e+01_rb,0.69066e+01_rb /)\n      kbo(:, 2,25,14) = (/ &\n        & 0.70147e+01_rb,0.79506e+01_rb,0.85366e+01_rb,0.78027e+01_rb,0.71216e+01_rb /)\n      kbo(:, 3,25,14) = (/ &\n        & 0.72710e+01_rb,0.80222e+01_rb,0.85567e+01_rb,0.78495e+01_rb,0.73079e+01_rb /)\n      kbo(:, 4,25,14) = (/ &\n        & 0.74891e+01_rb,0.80627e+01_rb,0.85388e+01_rb,0.78803e+01_rb,0.74736e+01_rb /)\n      kbo(:, 5,25,14) = (/ &\n        & 0.76763e+01_rb,0.80663e+01_rb,0.84908e+01_rb,0.78920e+01_rb,0.76152e+01_rb /)\n      kbo(:, 1,26,14) = (/ &\n        & 0.67117e+01_rb,0.78809e+01_rb,0.85346e+01_rb,0.77996e+01_rb,0.69621e+01_rb /)\n      kbo(:, 2,26,14) = (/ &\n        & 0.70163e+01_rb,0.79848e+01_rb,0.85977e+01_rb,0.78624e+01_rb,0.71766e+01_rb /)\n      kbo(:, 3,26,14) = (/ &\n        & 0.72800e+01_rb,0.80555e+01_rb,0.86111e+01_rb,0.79043e+01_rb,0.73612e+01_rb /)\n      kbo(:, 4,26,14) = (/ &\n        & 0.75048e+01_rb,0.80927e+01_rb,0.85874e+01_rb,0.79312e+01_rb,0.75235e+01_rb /)\n      kbo(:, 5,26,14) = (/ &\n        & 0.76969e+01_rb,0.80929e+01_rb,0.85318e+01_rb,0.79367e+01_rb,0.76615e+01_rb /)\n      kbo(:, 1,27,14) = (/ &\n        & 0.67222e+01_rb,0.79165e+01_rb,0.85935e+01_rb,0.78553e+01_rb,0.70208e+01_rb /)\n      kbo(:, 2,27,14) = (/ &\n        & 0.70339e+01_rb,0.80174e+01_rb,0.86486e+01_rb,0.79134e+01_rb,0.72318e+01_rb /)\n      kbo(:, 3,27,14) = (/ &\n        & 0.73021e+01_rb,0.80859e+01_rb,0.86549e+01_rb,0.79502e+01_rb,0.74127e+01_rb /)\n      kbo(:, 4,27,14) = (/ &\n        & 0.75298e+01_rb,0.81175e+01_rb,0.86239e+01_rb,0.79721e+01_rb,0.75702e+01_rb /)\n      kbo(:, 5,27,14) = (/ &\n        & 0.77246e+01_rb,0.81143e+01_rb,0.85613e+01_rb,0.79734e+01_rb,0.77047e+01_rb /)\n      kbo(:, 1,28,14) = (/ &\n        & 0.67490e+01_rb,0.79508e+01_rb,0.86448e+01_rb,0.79039e+01_rb,0.70793e+01_rb /)\n      kbo(:, 2,28,14) = (/ &\n        & 0.70641e+01_rb,0.80481e+01_rb,0.86903e+01_rb,0.79567e+01_rb,0.72853e+01_rb /)\n      kbo(:, 3,28,14) = (/ &\n        & 0.73339e+01_rb,0.81119e+01_rb,0.86890e+01_rb,0.79886e+01_rb,0.74622e+01_rb /)\n      kbo(:, 4,28,14) = (/ &\n        & 0.75625e+01_rb,0.81383e+01_rb,0.86502e+01_rb,0.80049e+01_rb,0.76145e+01_rb /)\n      kbo(:, 5,28,14) = (/ &\n        & 0.77567e+01_rb,0.81304e+01_rb,0.85806e+01_rb,0.80023e+01_rb,0.77455e+01_rb /)\n      kbo(:, 1,29,14) = (/ &\n        & 0.67914e+01_rb,0.79845e+01_rb,0.86886e+01_rb,0.79462e+01_rb,0.71386e+01_rb /)\n      kbo(:, 2,29,14) = (/ &\n        & 0.71068e+01_rb,0.80770e+01_rb,0.87239e+01_rb,0.79933e+01_rb,0.73389e+01_rb /)\n      kbo(:, 3,29,14) = (/ &\n        & 0.73751e+01_rb,0.81344e+01_rb,0.87144e+01_rb,0.80208e+01_rb,0.75104e+01_rb /)\n      kbo(:, 4,29,14) = (/ &\n        & 0.76020e+01_rb,0.81550e+01_rb,0.86676e+01_rb,0.80316e+01_rb,0.76575e+01_rb /)\n      kbo(:, 5,29,14) = (/ &\n        & 0.77937e+01_rb,0.81425e+01_rb,0.85914e+01_rb,0.80248e+01_rb,0.77840e+01_rb /)\n      kbo(:, 1,30,14) = (/ &\n        & 0.68445e+01_rb,0.80166e+01_rb,0.87256e+01_rb,0.79827e+01_rb,0.71970e+01_rb /)\n      kbo(:, 2,30,14) = (/ &\n        & 0.71563e+01_rb,0.81037e+01_rb,0.87505e+01_rb,0.80234e+01_rb,0.73900e+01_rb /)\n      kbo(:, 3,30,14) = (/ &\n        & 0.74214e+01_rb,0.81535e+01_rb,0.87321e+01_rb,0.80469e+01_rb,0.75564e+01_rb /)\n      kbo(:, 4,30,14) = (/ &\n        & 0.76455e+01_rb,0.81683e+01_rb,0.86770e+01_rb,0.80524e+01_rb,0.76986e+01_rb /)\n      kbo(:, 5,30,14) = (/ &\n        & 0.78317e+01_rb,0.81499e+01_rb,0.85949e+01_rb,0.80416e+01_rb,0.78203e+01_rb /)\n      kbo(:, 1,31,14) = (/ &\n        & 0.69054e+01_rb,0.80478e+01_rb,0.87566e+01_rb,0.80136e+01_rb,0.72537e+01_rb /)\n      kbo(:, 2,31,14) = (/ &\n        & 0.72125e+01_rb,0.81281e+01_rb,0.87710e+01_rb,0.80494e+01_rb,0.74404e+01_rb /)\n      kbo(:, 3,31,14) = (/ &\n        & 0.74718e+01_rb,0.81700e+01_rb,0.87427e+01_rb,0.80677e+01_rb,0.76003e+01_rb /)\n      kbo(:, 4,31,14) = (/ &\n        & 0.76912e+01_rb,0.81779e+01_rb,0.86791e+01_rb,0.80682e+01_rb,0.77384e+01_rb /)\n      kbo(:, 5,31,14) = (/ &\n        & 0.78715e+01_rb,0.81532e+01_rb,0.85914e+01_rb,0.80538e+01_rb,0.78547e+01_rb /)\n      kbo(:, 1,32,14) = (/ &\n        & 0.69718e+01_rb,0.80767e+01_rb,0.87812e+01_rb,0.80405e+01_rb,0.73093e+01_rb /)\n      kbo(:, 2,32,14) = (/ &\n        & 0.72714e+01_rb,0.81493e+01_rb,0.87845e+01_rb,0.80705e+01_rb,0.74889e+01_rb /)\n      kbo(:, 3,32,14) = (/ &\n        & 0.75255e+01_rb,0.81843e+01_rb,0.87476e+01_rb,0.80843e+01_rb,0.76427e+01_rb /)\n      kbo(:, 4,32,14) = (/ &\n        & 0.77373e+01_rb,0.81836e+01_rb,0.86757e+01_rb,0.80798e+01_rb,0.77759e+01_rb /)\n      kbo(:, 5,32,14) = (/ &\n        & 0.79115e+01_rb,0.81523e+01_rb,0.85821e+01_rb,0.80611e+01_rb,0.78870e+01_rb /)\n      kbo(:, 1,33,14) = (/ &\n        & 0.70424e+01_rb,0.81041e+01_rb,0.88003e+01_rb,0.80631e+01_rb,0.73621e+01_rb /)\n      kbo(:, 2,33,14) = (/ &\n        & 0.73332e+01_rb,0.81674e+01_rb,0.87934e+01_rb,0.80887e+01_rb,0.75359e+01_rb /)\n      kbo(:, 3,33,14) = (/ &\n        & 0.75797e+01_rb,0.81949e+01_rb,0.87467e+01_rb,0.80962e+01_rb,0.76832e+01_rb /)\n      kbo(:, 4,33,14) = (/ &\n        & 0.77832e+01_rb,0.81860e+01_rb,0.86679e+01_rb,0.80880e+01_rb,0.78112e+01_rb /)\n      kbo(:, 5,33,14) = (/ &\n        & 0.79514e+01_rb,0.81480e+01_rb,0.85688e+01_rb,0.80650e+01_rb,0.79176e+01_rb /)\n      kbo(:, 1,34,14) = (/ &\n        & 0.71032e+01_rb,0.81256e+01_rb,0.88135e+01_rb,0.80801e+01_rb,0.74073e+01_rb /)\n      kbo(:, 2,34,14) = (/ &\n        & 0.73864e+01_rb,0.81812e+01_rb,0.87981e+01_rb,0.81025e+01_rb,0.75752e+01_rb /)\n      kbo(:, 3,34,14) = (/ &\n        & 0.76257e+01_rb,0.82022e+01_rb,0.87428e+01_rb,0.81055e+01_rb,0.77177e+01_rb /)\n      kbo(:, 4,34,14) = (/ &\n        & 0.78229e+01_rb,0.81866e+01_rb,0.86595e+01_rb,0.80934e+01_rb,0.78409e+01_rb /)\n      kbo(:, 5,34,14) = (/ &\n        & 0.79841e+01_rb,0.81428e+01_rb,0.85553e+01_rb,0.80663e+01_rb,0.79427e+01_rb /)\n      kbo(:, 1,35,14) = (/ &\n        & 0.71357e+01_rb,0.81386e+01_rb,0.88238e+01_rb,0.80923e+01_rb,0.74328e+01_rb /)\n      kbo(:, 2,35,14) = (/ &\n        & 0.74155e+01_rb,0.81901e+01_rb,0.88028e+01_rb,0.81125e+01_rb,0.75980e+01_rb /)\n      kbo(:, 3,35,14) = (/ &\n        & 0.76506e+01_rb,0.82068e+01_rb,0.87428e+01_rb,0.81128e+01_rb,0.77381e+01_rb /)\n      kbo(:, 4,35,14) = (/ &\n        & 0.78446e+01_rb,0.81876e+01_rb,0.86563e+01_rb,0.80980e+01_rb,0.78583e+01_rb /)\n      kbo(:, 5,35,14) = (/ &\n        & 0.80022e+01_rb,0.81408e+01_rb,0.85492e+01_rb,0.80683e+01_rb,0.79574e+01_rb /)\n      kbo(:, 1,36,14) = (/ &\n        & 0.71358e+01_rb,0.81426e+01_rb,0.88312e+01_rb,0.80996e+01_rb,0.74385e+01_rb /)\n      kbo(:, 2,36,14) = (/ &\n        & 0.74168e+01_rb,0.81942e+01_rb,0.88101e+01_rb,0.81195e+01_rb,0.76033e+01_rb /)\n      kbo(:, 3,36,14) = (/ &\n        & 0.76530e+01_rb,0.82111e+01_rb,0.87491e+01_rb,0.81189e+01_rb,0.77431e+01_rb /)\n      kbo(:, 4,36,14) = (/ &\n        & 0.78475e+01_rb,0.81916e+01_rb,0.86625e+01_rb,0.81041e+01_rb,0.78633e+01_rb /)\n      kbo(:, 5,36,14) = (/ &\n        & 0.80053e+01_rb,0.81444e+01_rb,0.85549e+01_rb,0.80739e+01_rb,0.79624e+01_rb /)\n      kbo(:, 1,37,14) = (/ &\n        & 0.70898e+01_rb,0.81353e+01_rb,0.88375e+01_rb,0.81022e+01_rb,0.74173e+01_rb /)\n      kbo(:, 2,37,14) = (/ &\n        & 0.73792e+01_rb,0.81923e+01_rb,0.88220e+01_rb,0.81236e+01_rb,0.75852e+01_rb /)\n      kbo(:, 3,37,14) = (/ &\n        & 0.76229e+01_rb,0.82146e+01_rb,0.87658e+01_rb,0.81255e+01_rb,0.77281e+01_rb /)\n      kbo(:, 4,37,14) = (/ &\n        & 0.78232e+01_rb,0.81996e+01_rb,0.86818e+01_rb,0.81120e+01_rb,0.78508e+01_rb /)\n      kbo(:, 5,37,14) = (/ &\n        & 0.79866e+01_rb,0.81554e+01_rb,0.85764e+01_rb,0.80843e+01_rb,0.79525e+01_rb /)\n      kbo(:, 1,38,14) = (/ &\n        & 0.70419e+01_rb,0.81271e+01_rb,0.88418e+01_rb,0.81031e+01_rb,0.73933e+01_rb /)\n      kbo(:, 2,38,14) = (/ &\n        & 0.73389e+01_rb,0.81889e+01_rb,0.88323e+01_rb,0.81261e+01_rb,0.75648e+01_rb /)\n      kbo(:, 3,38,14) = (/ &\n        & 0.75899e+01_rb,0.82161e+01_rb,0.87808e+01_rb,0.81301e+01_rb,0.77105e+01_rb /)\n      kbo(:, 4,38,14) = (/ &\n        & 0.77971e+01_rb,0.82068e+01_rb,0.87000e+01_rb,0.81195e+01_rb,0.78368e+01_rb /)\n      kbo(:, 5,38,14) = (/ &\n        & 0.79663e+01_rb,0.81665e+01_rb,0.85976e+01_rb,0.80935e+01_rb,0.79412e+01_rb /)\n      kbo(:, 1,39,14) = (/ &\n        & 0.69923e+01_rb,0.81165e+01_rb,0.88435e+01_rb,0.81024e+01_rb,0.73685e+01_rb /)\n      kbo(:, 2,39,14) = (/ &\n        & 0.72982e+01_rb,0.81845e+01_rb,0.88409e+01_rb,0.81277e+01_rb,0.75441e+01_rb /)\n      kbo(:, 3,39,14) = (/ &\n        & 0.75563e+01_rb,0.82164e+01_rb,0.87952e+01_rb,0.81347e+01_rb,0.76928e+01_rb /)\n      kbo(:, 4,39,14) = (/ &\n        & 0.77695e+01_rb,0.82122e+01_rb,0.87165e+01_rb,0.81250e+01_rb,0.78216e+01_rb /)\n      kbo(:, 5,39,14) = (/ &\n        & 0.79452e+01_rb,0.81762e+01_rb,0.86172e+01_rb,0.81015e+01_rb,0.79291e+01_rb /)\n      kbo(:, 1,40,14) = (/ &\n        & 0.69080e+01_rb,0.80958e+01_rb,0.88413e+01_rb,0.80965e+01_rb,0.73229e+01_rb /)\n      kbo(:, 2,40,14) = (/ &\n        & 0.72277e+01_rb,0.81734e+01_rb,0.88495e+01_rb,0.81259e+01_rb,0.75046e+01_rb /)\n      kbo(:, 3,40,14) = (/ &\n        & 0.74967e+01_rb,0.82131e+01_rb,0.88131e+01_rb,0.81381e+01_rb,0.76600e+01_rb /)\n      kbo(:, 4,40,14) = (/ &\n        & 0.77214e+01_rb,0.82184e+01_rb,0.87413e+01_rb,0.81320e+01_rb,0.77938e+01_rb /)\n      kbo(:, 5,40,14) = (/ &\n        & 0.79055e+01_rb,0.81894e+01_rb,0.86471e+01_rb,0.81094e+01_rb,0.79066e+01_rb /)\n      kbo(:, 1,41,14) = (/ &\n        & 0.68155e+01_rb,0.80708e+01_rb,0.88352e+01_rb,0.80885e+01_rb,0.72719e+01_rb /)\n      kbo(:, 2,41,14) = (/ &\n        & 0.71495e+01_rb,0.81585e+01_rb,0.88545e+01_rb,0.81224e+01_rb,0.74618e+01_rb /)\n      kbo(:, 3,41,14) = (/ &\n        & 0.74308e+01_rb,0.82074e+01_rb,0.88291e+01_rb,0.81392e+01_rb,0.76238e+01_rb /)\n      kbo(:, 4,41,14) = (/ &\n        & 0.76675e+01_rb,0.82222e+01_rb,0.87650e+01_rb,0.81374e+01_rb,0.77629e+01_rb /)\n      kbo(:, 5,41,14) = (/ &\n        & 0.78621e+01_rb,0.82014e+01_rb,0.86761e+01_rb,0.81197e+01_rb,0.78805e+01_rb /)\n      kbo(:, 1,42,14) = (/ &\n        & 0.67210e+01_rb,0.80436e+01_rb,0.88257e+01_rb,0.80787e+01_rb,0.72181e+01_rb /)\n      kbo(:, 2,42,14) = (/ &\n        & 0.70672e+01_rb,0.81413e+01_rb,0.88562e+01_rb,0.81177e+01_rb,0.74171e+01_rb /)\n      kbo(:, 3,42,14) = (/ &\n        & 0.73618e+01_rb,0.81993e+01_rb,0.88420e+01_rb,0.81387e+01_rb,0.75853e+01_rb /)\n      kbo(:, 4,42,14) = (/ &\n        & 0.76110e+01_rb,0.82240e+01_rb,0.87872e+01_rb,0.81416e+01_rb,0.77301e+01_rb /)\n      kbo(:, 5,42,14) = (/ &\n        & 0.78157e+01_rb,0.82114e+01_rb,0.87034e+01_rb,0.81275e+01_rb,0.78533e+01_rb /)\n      kbo(:, 1,43,14) = (/ &\n        & 0.66012e+01_rb,0.80077e+01_rb,0.88083e+01_rb,0.80639e+01_rb,0.71482e+01_rb /)\n      kbo(:, 2,43,14) = (/ &\n        & 0.69627e+01_rb,0.81158e+01_rb,0.88532e+01_rb,0.81101e+01_rb,0.73596e+01_rb /)\n      kbo(:, 3,43,14) = (/ &\n        & 0.72743e+01_rb,0.81862e+01_rb,0.88533e+01_rb,0.81352e+01_rb,0.75360e+01_rb /)\n      kbo(:, 4,43,14) = (/ &\n        & 0.75376e+01_rb,0.82203e+01_rb,0.88101e+01_rb,0.81444e+01_rb,0.76876e+01_rb /)\n      kbo(:, 5,43,14) = (/ &\n        & 0.77560e+01_rb,0.82200e+01_rb,0.87338e+01_rb,0.81353e+01_rb,0.78176e+01_rb /)\n      kbo(:, 1,44,14) = (/ &\n        & 0.64654e+01_rb,0.79624e+01_rb,0.87841e+01_rb,0.80450e+01_rb,0.70696e+01_rb /)\n      kbo(:, 2,44,14) = (/ &\n        & 0.68452e+01_rb,0.80842e+01_rb,0.88456e+01_rb,0.80985e+01_rb,0.72931e+01_rb /)\n      kbo(:, 3,44,14) = (/ &\n        & 0.71736e+01_rb,0.81668e+01_rb,0.88594e+01_rb,0.81294e+01_rb,0.74799e+01_rb /)\n      kbo(:, 4,44,14) = (/ &\n        & 0.74536e+01_rb,0.82135e+01_rb,0.88309e+01_rb,0.81455e+01_rb,0.76398e+01_rb /)\n      kbo(:, 5,44,14) = (/ &\n        & 0.76864e+01_rb,0.82252e+01_rb,0.87641e+01_rb,0.81417e+01_rb,0.77771e+01_rb /)\n      kbo(:, 1,45,14) = (/ &\n        & 0.63246e+01_rb,0.79121e+01_rb,0.87529e+01_rb,0.80227e+01_rb,0.69872e+01_rb /)\n      kbo(:, 2,45,14) = (/ &\n        & 0.67215e+01_rb,0.80478e+01_rb,0.88314e+01_rb,0.80840e+01_rb,0.72219e+01_rb /)\n      kbo(:, 3,45,14) = (/ &\n        & 0.70680e+01_rb,0.81447e+01_rb,0.88609e+01_rb,0.81218e+01_rb,0.74205e+01_rb /)\n      kbo(:, 4,45,14) = (/ &\n        & 0.73633e+01_rb,0.82020e+01_rb,0.88464e+01_rb,0.81437e+01_rb,0.75896e+01_rb /)\n      kbo(:, 5,45,14) = (/ &\n        & 0.76123e+01_rb,0.82264e+01_rb,0.87913e+01_rb,0.81458e+01_rb,0.77333e+01_rb /)\n      kbo(:, 1,46,14) = (/ &\n        & 0.61677e+01_rb,0.78522e+01_rb,0.87120e+01_rb,0.79958e+01_rb,0.68962e+01_rb /)\n      kbo(:, 2,46,14) = (/ &\n        & 0.65843e+01_rb,0.80056e+01_rb,0.88106e+01_rb,0.80659e+01_rb,0.71413e+01_rb /)\n      kbo(:, 3,46,14) = (/ &\n        & 0.69482e+01_rb,0.81147e+01_rb,0.88565e+01_rb,0.81122e+01_rb,0.73539e+01_rb /)\n      kbo(:, 4,46,14) = (/ &\n        & 0.72620e+01_rb,0.81857e+01_rb,0.88581e+01_rb,0.81382e+01_rb,0.75320e+01_rb /)\n      kbo(:, 5,46,14) = (/ &\n        & 0.75285e+01_rb,0.82222e+01_rb,0.88171e+01_rb,0.81482e+01_rb,0.76841e+01_rb /)\n      kbo(:, 1,47,14) = (/ &\n        & 0.59872e+01_rb,0.77759e+01_rb,0.86581e+01_rb,0.79599e+01_rb,0.67904e+01_rb /)\n      kbo(:, 2,47,14) = (/ &\n        & 0.64227e+01_rb,0.79505e+01_rb,0.87794e+01_rb,0.80417e+01_rb,0.70463e+01_rb /)\n      kbo(:, 3,47,14) = (/ &\n        & 0.68067e+01_rb,0.80750e+01_rb,0.88445e+01_rb,0.80966e+01_rb,0.72732e+01_rb /)\n      kbo(:, 4,47,14) = (/ &\n        & 0.71415e+01_rb,0.81619e+01_rb,0.88634e+01_rb,0.81302e+01_rb,0.74640e+01_rb /)\n      kbo(:, 5,47,14) = (/ &\n        & 0.74259e+01_rb,0.82118e+01_rb,0.88390e+01_rb,0.81478e+01_rb,0.76260e+01_rb /)\n      kbo(:, 1,48,14) = (/ &\n        & 0.57999e+01_rb,0.76897e+01_rb,0.85924e+01_rb,0.79165e+01_rb,0.66812e+01_rb /)\n      kbo(:, 2,48,14) = (/ &\n        & 0.62523e+01_rb,0.78878e+01_rb,0.87384e+01_rb,0.80135e+01_rb,0.69471e+01_rb /)\n      kbo(:, 3,48,14) = (/ &\n        & 0.66581e+01_rb,0.80303e+01_rb,0.88250e+01_rb,0.80783e+01_rb,0.71862e+01_rb /)\n      kbo(:, 4,48,14) = (/ &\n        & 0.70120e+01_rb,0.81321e+01_rb,0.88616e+01_rb,0.81203e+01_rb,0.73915e+01_rb /)\n      kbo(:, 5,48,14) = (/ &\n        & 0.73167e+01_rb,0.81963e+01_rb,0.88550e+01_rb,0.81433e+01_rb,0.75640e+01_rb /)\n      kbo(:, 1,49,14) = (/ &\n        & 0.56056e+01_rb,0.75967e+01_rb,0.85186e+01_rb,0.78664e+01_rb,0.65684e+01_rb /)\n      kbo(:, 2,49,14) = (/ &\n        & 0.60725e+01_rb,0.78139e+01_rb,0.86868e+01_rb,0.79799e+01_rb,0.68428e+01_rb /)\n      kbo(:, 3,49,14) = (/ &\n        & 0.65005e+01_rb,0.79789e+01_rb,0.87970e+01_rb,0.80551e+01_rb,0.70936e+01_rb /)\n      kbo(:, 4,49,14) = (/ &\n        & 0.68750e+01_rb,0.80955e+01_rb,0.88532e+01_rb,0.81069e+01_rb,0.73141e+01_rb /)\n      kbo(:, 5,49,14) = (/ &\n        & 0.72008e+01_rb,0.81753e+01_rb,0.88640e+01_rb,0.81362e+01_rb,0.74980e+01_rb /)\n      kbo(:, 1,50,14) = (/ &\n        & 0.54125e+01_rb,0.74991e+01_rb,0.84401e+01_rb,0.78123e+01_rb,0.64595e+01_rb /)\n      kbo(:, 2,50,14) = (/ &\n        & 0.59003e+01_rb,0.77375e+01_rb,0.86301e+01_rb,0.79423e+01_rb,0.67420e+01_rb /)\n      kbo(:, 3,50,14) = (/ &\n        & 0.63429e+01_rb,0.79215e+01_rb,0.87619e+01_rb,0.80304e+01_rb,0.70024e+01_rb /)\n      kbo(:, 4,50,14) = (/ &\n        & 0.67393e+01_rb,0.80557e+01_rb,0.88380e+01_rb,0.80904e+01_rb,0.72354e+01_rb /)\n      kbo(:, 5,50,14) = (/ &\n        & 0.70838e+01_rb,0.81507e+01_rb,0.88659e+01_rb,0.81277e+01_rb,0.74327e+01_rb /)\n      kbo(:, 1,51,14) = (/ &\n        & 0.52191e+01_rb,0.73982e+01_rb,0.83585e+01_rb,0.77548e+01_rb,0.63504e+01_rb /)\n      kbo(:, 2,51,14) = (/ &\n        & 0.57281e+01_rb,0.76566e+01_rb,0.85673e+01_rb,0.79002e+01_rb,0.66408e+01_rb /)\n      kbo(:, 3,51,14) = (/ &\n        & 0.61850e+01_rb,0.78612e+01_rb,0.87206e+01_rb,0.80029e+01_rb,0.69102e+01_rb /)\n      kbo(:, 4,51,14) = (/ &\n        & 0.66013e+01_rb,0.80131e+01_rb,0.88169e+01_rb,0.80719e+01_rb,0.71542e+01_rb /)\n      kbo(:, 5,51,14) = (/ &\n        & 0.69630e+01_rb,0.81207e+01_rb,0.88611e+01_rb,0.81171e+01_rb,0.73645e+01_rb /)\n      kbo(:, 1,52,14) = (/ &\n        & 0.50203e+01_rb,0.72853e+01_rb,0.82659e+01_rb,0.76900e+01_rb,0.62362e+01_rb /)\n      kbo(:, 2,52,14) = (/ &\n        & 0.55489e+01_rb,0.75692e+01_rb,0.84974e+01_rb,0.78525e+01_rb,0.65380e+01_rb /)\n      kbo(:, 3,52,14) = (/ &\n        & 0.60223e+01_rb,0.77933e+01_rb,0.86726e+01_rb,0.79710e+01_rb,0.68148e+01_rb /)\n      kbo(:, 4,52,14) = (/ &\n        & 0.64533e+01_rb,0.79619e+01_rb,0.87883e+01_rb,0.80495e+01_rb,0.70682e+01_rb /)\n      kbo(:, 5,52,14) = (/ &\n        & 0.68363e+01_rb,0.80853e+01_rb,0.88509e+01_rb,0.81034e+01_rb,0.72926e+01_rb /)\n      kbo(:, 1,53,14) = (/ &\n        & 0.48171e+01_rb,0.71626e+01_rb,0.81646e+01_rb,0.76188e+01_rb,0.61179e+01_rb /)\n      kbo(:, 2,53,14) = (/ &\n        & 0.53620e+01_rb,0.74745e+01_rb,0.84206e+01_rb,0.77982e+01_rb,0.64310e+01_rb /)\n      kbo(:, 3,53,14) = (/ &\n        & 0.58544e+01_rb,0.77168e+01_rb,0.86150e+01_rb,0.79329e+01_rb,0.67166e+01_rb /)\n      kbo(:, 4,53,14) = (/ &\n        & 0.63007e+01_rb,0.79064e+01_rb,0.87527e+01_rb,0.80244e+01_rb,0.69787e+01_rb /)\n      kbo(:, 5,53,14) = (/ &\n        & 0.67036e+01_rb,0.80457e+01_rb,0.88348e+01_rb,0.80870e+01_rb,0.72150e+01_rb /)\n      kbo(:, 1,54,14) = (/ &\n        & 0.46268e+01_rb,0.70415e+01_rb,0.80643e+01_rb,0.75453e+01_rb,0.60051e+01_rb /)\n      kbo(:, 2,54,14) = (/ &\n        & 0.51834e+01_rb,0.73793e+01_rb,0.83436e+01_rb,0.77439e+01_rb,0.63304e+01_rb /)\n      kbo(:, 3,54,14) = (/ &\n        & 0.56952e+01_rb,0.76416e+01_rb,0.85557e+01_rb,0.78930e+01_rb,0.66233e+01_rb /)\n      kbo(:, 4,54,14) = (/ &\n        & 0.61555e+01_rb,0.78501e+01_rb,0.87136e+01_rb,0.79986e+01_rb,0.68935e+01_rb /)\n      kbo(:, 5,54,14) = (/ &\n        & 0.65754e+01_rb,0.80055e+01_rb,0.88139e+01_rb,0.80689e+01_rb,0.71391e+01_rb /)\n      kbo(:, 1,55,14) = (/ &\n        & 0.44418e+01_rb,0.69152e+01_rb,0.79589e+01_rb,0.74683e+01_rb,0.58909e+01_rb /)\n      kbo(:, 2,55,14) = (/ &\n        & 0.50082e+01_rb,0.72786e+01_rb,0.82608e+01_rb,0.76866e+01_rb,0.62296e+01_rb /)\n      kbo(:, 3,55,14) = (/ &\n        & 0.55372e+01_rb,0.75641e+01_rb,0.84935e+01_rb,0.78502e+01_rb,0.65324e+01_rb /)\n      kbo(:, 4,55,14) = (/ &\n        & 0.60119e+01_rb,0.77891e+01_rb,0.86705e+01_rb,0.79700e+01_rb,0.68094e+01_rb /)\n      kbo(:, 5,55,14) = (/ &\n        & 0.64443e+01_rb,0.79596e+01_rb,0.87874e+01_rb,0.80489e+01_rb,0.70636e+01_rb /)\n      kbo(:, 1,56,14) = (/ &\n        & 0.42552e+01_rb,0.67816e+01_rb,0.78463e+01_rb,0.73861e+01_rb,0.57693e+01_rb /)\n      kbo(:, 2,56,14) = (/ &\n        & 0.48302e+01_rb,0.71710e+01_rb,0.81721e+01_rb,0.76241e+01_rb,0.61259e+01_rb /)\n      kbo(:, 3,56,14) = (/ &\n        & 0.53736e+01_rb,0.74812e+01_rb,0.84261e+01_rb,0.78026e+01_rb,0.64389e+01_rb /)\n      kbo(:, 4,56,14) = (/ &\n        & 0.58648e+01_rb,0.77223e+01_rb,0.86198e+01_rb,0.79361e+01_rb,0.67232e+01_rb /)\n      kbo(:, 5,56,14) = (/ &\n        & 0.63103e+01_rb,0.79105e+01_rb,0.87564e+01_rb,0.80271e+01_rb,0.69853e+01_rb /)\n      kbo(:, 1,57,14) = (/ &\n        & 0.40639e+01_rb,0.66394e+01_rb,0.77238e+01_rb,0.72954e+01_rb,0.56390e+01_rb /)\n      kbo(:, 2,57,14) = (/ &\n        & 0.46488e+01_rb,0.70563e+01_rb,0.80768e+01_rb,0.75544e+01_rb,0.60187e+01_rb /)\n      kbo(:, 3,57,14) = (/ &\n        & 0.52035e+01_rb,0.73909e+01_rb,0.83529e+01_rb,0.77510e+01_rb,0.63425e+01_rb /)\n      kbo(:, 4,57,14) = (/ &\n        & 0.57137e+01_rb,0.76510e+01_rb,0.85638e+01_rb,0.78985e+01_rb,0.66342e+01_rb /)\n      kbo(:, 5,57,14) = (/ &\n        & 0.61722e+01_rb,0.78574e+01_rb,0.87192e+01_rb,0.80023e+01_rb,0.69038e+01_rb /)\n      kbo(:, 1,58,14) = (/ &\n        & 0.38805e+01_rb,0.64976e+01_rb,0.75961e+01_rb,0.72010e+01_rb,0.55107e+01_rb /)\n      kbo(:, 2,58,14) = (/ &\n        & 0.44745e+01_rb,0.69383e+01_rb,0.79787e+01_rb,0.74825e+01_rb,0.59115e+01_rb /)\n      kbo(:, 3,58,14) = (/ &\n        & 0.50386e+01_rb,0.72976e+01_rb,0.82763e+01_rb,0.76973e+01_rb,0.62480e+01_rb /)\n      kbo(:, 4,58,14) = (/ &\n        & 0.55648e+01_rb,0.75780e+01_rb,0.85055e+01_rb,0.78586e+01_rb,0.65486e+01_rb /)\n      kbo(:, 5,58,14) = (/ &\n        & 0.60366e+01_rb,0.78002e+01_rb,0.86790e+01_rb,0.79756e+01_rb,0.68245e+01_rb /)\n      kbo(:, 1,59,14) = (/ &\n        & 0.38057e+01_rb,0.64388e+01_rb,0.75416e+01_rb,0.71615e+01_rb,0.54582e+01_rb /)\n      kbo(:, 2,59,14) = (/ &\n        & 0.44044e+01_rb,0.68893e+01_rb,0.79374e+01_rb,0.74528e+01_rb,0.58671e+01_rb /)\n      kbo(:, 3,59,14) = (/ &\n        & 0.49711e+01_rb,0.72574e+01_rb,0.82432e+01_rb,0.76750e+01_rb,0.62091e+01_rb /)\n      kbo(:, 4,59,14) = (/ &\n        & 0.55038e+01_rb,0.75476e+01_rb,0.84809e+01_rb,0.78415e+01_rb,0.65137e+01_rb /)\n      kbo(:, 5,59,14) = (/ &\n        & 0.59820e+01_rb,0.77764e+01_rb,0.86612e+01_rb,0.79636e+01_rb,0.67922e+01_rb /)\n      kbo(:, 1,13,15) = (/ &\n        & 0.21583e+02_rb,0.16708e+02_rb,0.15578e+02_rb,0.16324e+02_rb,0.21499e+02_rb /)\n      kbo(:, 2,13,15) = (/ &\n        & 0.21596e+02_rb,0.16646e+02_rb,0.15448e+02_rb,0.16116e+02_rb,0.21237e+02_rb /)\n      kbo(:, 3,13,15) = (/ &\n        & 0.21561e+02_rb,0.16562e+02_rb,0.15303e+02_rb,0.15881e+02_rb,0.20975e+02_rb /)\n      kbo(:, 4,13,15) = (/ &\n        & 0.21482e+02_rb,0.16444e+02_rb,0.15131e+02_rb,0.15663e+02_rb,0.20709e+02_rb /)\n      kbo(:, 5,13,15) = (/ &\n        & 0.21360e+02_rb,0.16308e+02_rb,0.14933e+02_rb,0.15443e+02_rb,0.20449e+02_rb /)\n      kbo(:, 1,14,15) = (/ &\n        & 0.23286e+02_rb,0.18105e+02_rb,0.17022e+02_rb,0.17494e+02_rb,0.22811e+02_rb /)\n      kbo(:, 2,14,15) = (/ &\n        & 0.23268e+02_rb,0.18001e+02_rb,0.16845e+02_rb,0.17259e+02_rb,0.22563e+02_rb /)\n      kbo(:, 3,14,15) = (/ &\n        & 0.23185e+02_rb,0.17865e+02_rb,0.16645e+02_rb,0.17010e+02_rb,0.22295e+02_rb /)\n      kbo(:, 4,14,15) = (/ &\n        & 0.23065e+02_rb,0.17707e+02_rb,0.16417e+02_rb,0.16757e+02_rb,0.22015e+02_rb /)\n      kbo(:, 5,14,15) = (/ &\n        & 0.22894e+02_rb,0.17515e+02_rb,0.16163e+02_rb,0.16504e+02_rb,0.21733e+02_rb /)\n      kbo(:, 1,15,15) = (/ &\n        & 0.24991e+02_rb,0.19505e+02_rb,0.18411e+02_rb,0.18638e+02_rb,0.24057e+02_rb /)\n      kbo(:, 2,15,15) = (/ &\n        & 0.24920e+02_rb,0.19349e+02_rb,0.18180e+02_rb,0.18374e+02_rb,0.23810e+02_rb /)\n      kbo(:, 3,15,15) = (/ &\n        & 0.24797e+02_rb,0.19155e+02_rb,0.17917e+02_rb,0.18103e+02_rb,0.23536e+02_rb /)\n      kbo(:, 4,15,15) = (/ &\n        & 0.24619e+02_rb,0.18942e+02_rb,0.17624e+02_rb,0.17814e+02_rb,0.23238e+02_rb /)\n      kbo(:, 5,15,15) = (/ &\n        & 0.24389e+02_rb,0.18694e+02_rb,0.17313e+02_rb,0.17524e+02_rb,0.22925e+02_rb /)\n      kbo(:, 1,16,15) = (/ &\n        & 0.26656e+02_rb,0.20879e+02_rb,0.19716e+02_rb,0.19730e+02_rb,0.25227e+02_rb /)\n      kbo(:, 2,16,15) = (/ &\n        & 0.26523e+02_rb,0.20660e+02_rb,0.19424e+02_rb,0.19442e+02_rb,0.24961e+02_rb /)\n      kbo(:, 3,16,15) = (/ &\n        & 0.26348e+02_rb,0.20405e+02_rb,0.19093e+02_rb,0.19135e+02_rb,0.24671e+02_rb /)\n      kbo(:, 4,16,15) = (/ &\n        & 0.26107e+02_rb,0.20124e+02_rb,0.18741e+02_rb,0.18812e+02_rb,0.24357e+02_rb /)\n      kbo(:, 5,16,15) = (/ &\n        & 0.25816e+02_rb,0.19816e+02_rb,0.18364e+02_rb,0.18476e+02_rb,0.24001e+02_rb /)\n      kbo(:, 1,17,15) = (/ &\n        & 0.28242e+02_rb,0.22184e+02_rb,0.20936e+02_rb,0.20769e+02_rb,0.26307e+02_rb /)\n      kbo(:, 2,17,15) = (/ &\n        & 0.28053e+02_rb,0.21895e+02_rb,0.20570e+02_rb,0.20444e+02_rb,0.26016e+02_rb /)\n      kbo(:, 3,17,15) = (/ &\n        & 0.27803e+02_rb,0.21584e+02_rb,0.20174e+02_rb,0.20096e+02_rb,0.25702e+02_rb /)\n      kbo(:, 4,17,15) = (/ &\n        & 0.27499e+02_rb,0.21233e+02_rb,0.19753e+02_rb,0.19726e+02_rb,0.25351e+02_rb /)\n      kbo(:, 5,17,15) = (/ &\n        & 0.27139e+02_rb,0.20859e+02_rb,0.19319e+02_rb,0.19342e+02_rb,0.24955e+02_rb /)\n      kbo(:, 1,18,15) = (/ &\n        & 0.29720e+02_rb,0.23411e+02_rb,0.22065e+02_rb,0.21731e+02_rb,0.27280e+02_rb /)\n      kbo(:, 2,18,15) = (/ &\n        & 0.29480e+02_rb,0.23053e+02_rb,0.21624e+02_rb,0.21360e+02_rb,0.26972e+02_rb /)\n      kbo(:, 3,18,15) = (/ &\n        & 0.29159e+02_rb,0.22667e+02_rb,0.21156e+02_rb,0.20967e+02_rb,0.26625e+02_rb /)\n      kbo(:, 4,18,15) = (/ &\n        & 0.28776e+02_rb,0.22248e+02_rb,0.20663e+02_rb,0.20553e+02_rb,0.26229e+02_rb /)\n      kbo(:, 5,18,15) = (/ &\n        & 0.28340e+02_rb,0.21810e+02_rb,0.20170e+02_rb,0.20119e+02_rb,0.25790e+02_rb /)\n      kbo(:, 1,19,15) = (/ &\n        & 0.31079e+02_rb,0.24533e+02_rb,0.23084e+02_rb,0.22601e+02_rb,0.28156e+02_rb /)\n      kbo(:, 2,19,15) = (/ &\n        & 0.30766e+02_rb,0.24108e+02_rb,0.22572e+02_rb,0.22185e+02_rb,0.27815e+02_rb /)\n      kbo(:, 3,19,15) = (/ &\n        & 0.30376e+02_rb,0.23641e+02_rb,0.22030e+02_rb,0.21741e+02_rb,0.27429e+02_rb /)\n      kbo(:, 4,19,15) = (/ &\n        & 0.29923e+02_rb,0.23160e+02_rb,0.21471e+02_rb,0.21280e+02_rb,0.26992e+02_rb /)\n      kbo(:, 5,19,15) = (/ &\n        & 0.29415e+02_rb,0.22660e+02_rb,0.20920e+02_rb,0.20797e+02_rb,0.26511e+02_rb /)\n      kbo(:, 1,20,15) = (/ &\n        & 0.32290e+02_rb,0.25527e+02_rb,0.23984e+02_rb,0.23373e+02_rb,0.28918e+02_rb /)\n      kbo(:, 2,20,15) = (/ &\n        & 0.31907e+02_rb,0.25035e+02_rb,0.23397e+02_rb,0.22899e+02_rb,0.28537e+02_rb /)\n      kbo(:, 3,20,15) = (/ &\n        & 0.31450e+02_rb,0.24496e+02_rb,0.22784e+02_rb,0.22408e+02_rb,0.28112e+02_rb /)\n      kbo(:, 4,20,15) = (/ &\n        & 0.30926e+02_rb,0.23946e+02_rb,0.22166e+02_rb,0.21898e+02_rb,0.27628e+02_rb /)\n      kbo(:, 5,20,15) = (/ &\n        & 0.30351e+02_rb,0.23384e+02_rb,0.21559e+02_rb,0.21369e+02_rb,0.27109e+02_rb /)\n      kbo(:, 1,21,15) = (/ &\n        & 0.33354e+02_rb,0.26397e+02_rb,0.24768e+02_rb,0.24040e+02_rb,0.29575e+02_rb /)\n      kbo(:, 2,21,15) = (/ &\n        & 0.32901e+02_rb,0.25842e+02_rb,0.24107e+02_rb,0.23511e+02_rb,0.29153e+02_rb /)\n      kbo(:, 3,21,15) = (/ &\n        & 0.32374e+02_rb,0.25240e+02_rb,0.23426e+02_rb,0.22972e+02_rb,0.28686e+02_rb /)\n      kbo(:, 4,21,15) = (/ &\n        & 0.31781e+02_rb,0.24624e+02_rb,0.22754e+02_rb,0.22416e+02_rb,0.28162e+02_rb /)\n      kbo(:, 5,21,15) = (/ &\n        & 0.31147e+02_rb,0.24003e+02_rb,0.22095e+02_rb,0.21845e+02_rb,0.27608e+02_rb /)\n      kbo(:, 1,22,15) = (/ &\n        & 0.34245e+02_rb,0.27109e+02_rb,0.25388e+02_rb,0.24566e+02_rb,0.30099e+02_rb /)\n      kbo(:, 2,22,15) = (/ &\n        & 0.33719e+02_rb,0.26481e+02_rb,0.24655e+02_rb,0.23987e+02_rb,0.29635e+02_rb /)\n      kbo(:, 3,22,15) = (/ &\n        & 0.33121e+02_rb,0.25821e+02_rb,0.23916e+02_rb,0.23403e+02_rb,0.29124e+02_rb /)\n      kbo(:, 4,22,15) = (/ &\n        & 0.32461e+02_rb,0.25147e+02_rb,0.23196e+02_rb,0.22805e+02_rb,0.28562e+02_rb /)\n      kbo(:, 5,22,15) = (/ &\n        & 0.31774e+02_rb,0.24482e+02_rb,0.22495e+02_rb,0.22197e+02_rb,0.27979e+02_rb /)\n      kbo(:, 1,23,15) = (/ &\n        & 0.34979e+02_rb,0.27686e+02_rb,0.25885e+02_rb,0.24985e+02_rb,0.30523e+02_rb /)\n      kbo(:, 2,23,15) = (/ &\n        & 0.34390e+02_rb,0.26989e+02_rb,0.25088e+02_rb,0.24366e+02_rb,0.30015e+02_rb /)\n      kbo(:, 3,23,15) = (/ &\n        & 0.33724e+02_rb,0.26279e+02_rb,0.24300e+02_rb,0.23742e+02_rb,0.29464e+02_rb /)\n      kbo(:, 4,23,15) = (/ &\n        & 0.33013e+02_rb,0.25562e+02_rb,0.23538e+02_rb,0.23108e+02_rb,0.28875e+02_rb /)\n      kbo(:, 5,23,15) = (/ &\n        & 0.32269e+02_rb,0.24853e+02_rb,0.22796e+02_rb,0.22467e+02_rb,0.28265e+02_rb /)\n      kbo(:, 1,24,15) = (/ &\n        & 0.35573e+02_rb,0.28136e+02_rb,0.26264e+02_rb,0.25305e+02_rb,0.30849e+02_rb /)\n      kbo(:, 2,24,15) = (/ &\n        & 0.34922e+02_rb,0.27387e+02_rb,0.25413e+02_rb,0.24653e+02_rb,0.30308e+02_rb /)\n      kbo(:, 3,24,15) = (/ &\n        & 0.34200e+02_rb,0.26632e+02_rb,0.24587e+02_rb,0.23994e+02_rb,0.29723e+02_rb /)\n      kbo(:, 4,24,15) = (/ &\n        & 0.33439e+02_rb,0.25872e+02_rb,0.23787e+02_rb,0.23329e+02_rb,0.29105e+02_rb /)\n      kbo(:, 5,24,15) = (/ &\n        & 0.32647e+02_rb,0.25128e+02_rb,0.23014e+02_rb,0.22661e+02_rb,0.28477e+02_rb /)\n      kbo(:, 1,25,15) = (/ &\n        & 0.36033e+02_rb,0.28469e+02_rb,0.26533e+02_rb,0.25539e+02_rb,0.31091e+02_rb /)\n      kbo(:, 2,25,15) = (/ &\n        & 0.35324e+02_rb,0.27679e+02_rb,0.25640e+02_rb,0.24852e+02_rb,0.30512e+02_rb /)\n      kbo(:, 3,25,15) = (/ &\n        & 0.34555e+02_rb,0.26887e+02_rb,0.24782e+02_rb,0.24167e+02_rb,0.29902e+02_rb /)\n      kbo(:, 4,25,15) = (/ &\n        & 0.33752e+02_rb,0.26092e+02_rb,0.23953e+02_rb,0.23474e+02_rb,0.29262e+02_rb /)\n      kbo(:, 5,25,15) = (/ &\n        & 0.32915e+02_rb,0.25319e+02_rb,0.23155e+02_rb,0.22787e+02_rb,0.28617e+02_rb /)\n      kbo(:, 1,26,15) = (/ &\n        & 0.36371e+02_rb,0.28696e+02_rb,0.26697e+02_rb,0.25688e+02_rb,0.31254e+02_rb /)\n      kbo(:, 2,26,15) = (/ &\n        & 0.35607e+02_rb,0.27872e+02_rb,0.25775e+02_rb,0.24975e+02_rb,0.30642e+02_rb /)\n      kbo(:, 3,26,15) = (/ &\n        & 0.34798e+02_rb,0.27047e+02_rb,0.24890e+02_rb,0.24264e+02_rb,0.30007e+02_rb /)\n      kbo(:, 4,26,15) = (/ &\n        & 0.33956e+02_rb,0.26227e+02_rb,0.24040e+02_rb,0.23549e+02_rb,0.29351e+02_rb /)\n      kbo(:, 5,26,15) = (/ &\n        & 0.33076e+02_rb,0.25425e+02_rb,0.23222e+02_rb,0.22845e+02_rb,0.28688e+02_rb /)\n      kbo(:, 1,27,15) = (/ &\n        & 0.36605e+02_rb,0.28839e+02_rb,0.26780e+02_rb,0.25770e+02_rb,0.31349e+02_rb /)\n      kbo(:, 2,27,15) = (/ &\n        & 0.35796e+02_rb,0.27987e+02_rb,0.25836e+02_rb,0.25037e+02_rb,0.30713e+02_rb /)\n      kbo(:, 3,27,15) = (/ &\n        & 0.34952e+02_rb,0.27136e+02_rb,0.24934e+02_rb,0.24306e+02_rb,0.30059e+02_rb /)\n      kbo(:, 4,27,15) = (/ &\n        & 0.34075e+02_rb,0.26294e+02_rb,0.24068e+02_rb,0.23575e+02_rb,0.29392e+02_rb /)\n      kbo(:, 5,27,15) = (/ &\n        & 0.33166e+02_rb,0.25473e+02_rb,0.23238e+02_rb,0.22856e+02_rb,0.28711e+02_rb /)\n      kbo(:, 1,28,15) = (/ &\n        & 0.36758e+02_rb,0.28917e+02_rb,0.26804e+02_rb,0.25803e+02_rb,0.31396e+02_rb /)\n      kbo(:, 2,28,15) = (/ &\n        & 0.35910e+02_rb,0.28037e+02_rb,0.25842e+02_rb,0.25051e+02_rb,0.30739e+02_rb /)\n      kbo(:, 3,28,15) = (/ &\n        & 0.35033e+02_rb,0.27165e+02_rb,0.24925e+02_rb,0.24304e+02_rb,0.30070e+02_rb /)\n      kbo(:, 4,28,15) = (/ &\n        & 0.34125e+02_rb,0.26307e+02_rb,0.24049e+02_rb,0.23563e+02_rb,0.29393e+02_rb /)\n      kbo(:, 5,28,15) = (/ &\n        & 0.33188e+02_rb,0.25468e+02_rb,0.23210e+02_rb,0.22829e+02_rb,0.28695e+02_rb /)\n      kbo(:, 1,29,15) = (/ &\n        & 0.36829e+02_rb,0.28926e+02_rb,0.26766e+02_rb,0.25785e+02_rb,0.31393e+02_rb /)\n      kbo(:, 2,29,15) = (/ &\n        & 0.35949e+02_rb,0.28025e+02_rb,0.25792e+02_rb,0.25019e+02_rb,0.30723e+02_rb /)\n      kbo(:, 3,29,15) = (/ &\n        & 0.35045e+02_rb,0.27141e+02_rb,0.24868e+02_rb,0.24260e+02_rb,0.30042e+02_rb /)\n      kbo(:, 4,29,15) = (/ &\n        & 0.34114e+02_rb,0.26272e+02_rb,0.23986e+02_rb,0.23509e+02_rb,0.29353e+02_rb /)\n      kbo(:, 5,29,15) = (/ &\n        & 0.33154e+02_rb,0.25419e+02_rb,0.23142e+02_rb,0.22765e+02_rb,0.28643e+02_rb /)\n      kbo(:, 1,30,15) = (/ &\n        & 0.36836e+02_rb,0.28884e+02_rb,0.26681e+02_rb,0.25729e+02_rb,0.31353e+02_rb /)\n      kbo(:, 2,30,15) = (/ &\n        & 0.35935e+02_rb,0.27972e+02_rb,0.25704e+02_rb,0.24955e+02_rb,0.30675e+02_rb /)\n      kbo(:, 3,30,15) = (/ &\n        & 0.35002e+02_rb,0.27075e+02_rb,0.24775e+02_rb,0.24184e+02_rb,0.29984e+02_rb /)\n      kbo(:, 4,30,15) = (/ &\n        & 0.34050e+02_rb,0.26196e+02_rb,0.23891e+02_rb,0.23427e+02_rb,0.29283e+02_rb /)\n      kbo(:, 5,30,15) = (/ &\n        & 0.33076e+02_rb,0.25337e+02_rb,0.23046e+02_rb,0.22676e+02_rb,0.28566e+02_rb /)\n      kbo(:, 1,31,15) = (/ &\n        & 0.36791e+02_rb,0.28797e+02_rb,0.26557e+02_rb,0.25640e+02_rb,0.31284e+02_rb /)\n      kbo(:, 2,31,15) = (/ &\n        & 0.35869e+02_rb,0.27877e+02_rb,0.25582e+02_rb,0.24857e+02_rb,0.30596e+02_rb /)\n      kbo(:, 3,31,15) = (/ &\n        & 0.34914e+02_rb,0.26971e+02_rb,0.24653e+02_rb,0.24083e+02_rb,0.29901e+02_rb /)\n      kbo(:, 4,31,15) = (/ &\n        & 0.33941e+02_rb,0.26084e+02_rb,0.23767e+02_rb,0.23319e+02_rb,0.29185e+02_rb /)\n      kbo(:, 5,31,15) = (/ &\n        & 0.32958e+02_rb,0.25224e+02_rb,0.22924e+02_rb,0.22563e+02_rb,0.28464e+02_rb /)\n      kbo(:, 1,32,15) = (/ &\n        & 0.36704e+02_rb,0.28676e+02_rb,0.26402e+02_rb,0.25521e+02_rb,0.31186e+02_rb /)\n      kbo(:, 2,32,15) = (/ &\n        & 0.35759e+02_rb,0.27748e+02_rb,0.25429e+02_rb,0.24734e+02_rb,0.30492e+02_rb /)\n      kbo(:, 3,32,15) = (/ &\n        & 0.34789e+02_rb,0.26839e+02_rb,0.24504e+02_rb,0.23956e+02_rb,0.29792e+02_rb /)\n      kbo(:, 4,32,15) = (/ &\n        & 0.33799e+02_rb,0.25947e+02_rb,0.23622e+02_rb,0.23189e+02_rb,0.29067e+02_rb /)\n      kbo(:, 5,32,15) = (/ &\n        & 0.32807e+02_rb,0.25086e+02_rb,0.22780e+02_rb,0.22431e+02_rb,0.28343e+02_rb /)\n      kbo(:, 1,33,15) = (/ &\n        & 0.36581e+02_rb,0.28529e+02_rb,0.26229e+02_rb,0.25386e+02_rb,0.31076e+02_rb /)\n      kbo(:, 2,33,15) = (/ &\n        & 0.35618e+02_rb,0.27597e+02_rb,0.25258e+02_rb,0.24592e+02_rb,0.30373e+02_rb /)\n      kbo(:, 3,33,15) = (/ &\n        & 0.34634e+02_rb,0.26685e+02_rb,0.24337e+02_rb,0.23815e+02_rb,0.29666e+02_rb /)\n      kbo(:, 4,33,15) = (/ &\n        & 0.33632e+02_rb,0.25791e+02_rb,0.23459e+02_rb,0.23042e+02_rb,0.28931e+02_rb /)\n      kbo(:, 5,33,15) = (/ &\n        & 0.32632e+02_rb,0.24931e+02_rb,0.22622e+02_rb,0.22288e+02_rb,0.28210e+02_rb /)\n      kbo(:, 1,34,15) = (/ &\n        & 0.36458e+02_rb,0.28392e+02_rb,0.26072e+02_rb,0.25264e+02_rb,0.30972e+02_rb /)\n      kbo(:, 2,34,15) = (/ &\n        & 0.35483e+02_rb,0.27459e+02_rb,0.25106e+02_rb,0.24467e+02_rb,0.30265e+02_rb /)\n      kbo(:, 3,34,15) = (/ &\n        & 0.34486e+02_rb,0.26542e+02_rb,0.24189e+02_rb,0.23688e+02_rb,0.29550e+02_rb /)\n      kbo(:, 4,34,15) = (/ &\n        & 0.33480e+02_rb,0.25653e+02_rb,0.23315e+02_rb,0.22913e+02_rb,0.28811e+02_rb /)\n      kbo(:, 5,34,15) = (/ &\n        & 0.32478e+02_rb,0.24793e+02_rb,0.22484e+02_rb,0.22163e+02_rb,0.28094e+02_rb /)\n      kbo(:, 1,35,15) = (/ &\n        & 0.36414e+02_rb,0.28334e+02_rb,0.25999e+02_rb,0.25206e+02_rb,0.30923e+02_rb /)\n      kbo(:, 2,35,15) = (/ &\n        & 0.35425e+02_rb,0.27395e+02_rb,0.25033e+02_rb,0.24406e+02_rb,0.30215e+02_rb /)\n      kbo(:, 3,35,15) = (/ &\n        & 0.34420e+02_rb,0.26476e+02_rb,0.24117e+02_rb,0.23624e+02_rb,0.29493e+02_rb /)\n      kbo(:, 4,35,15) = (/ &\n        & 0.33407e+02_rb,0.25585e+02_rb,0.23243e+02_rb,0.22849e+02_rb,0.28753e+02_rb /)\n      kbo(:, 5,35,15) = (/ &\n        & 0.32403e+02_rb,0.24726e+02_rb,0.22415e+02_rb,0.22101e+02_rb,0.28034e+02_rb /)\n      kbo(:, 1,36,15) = (/ &\n        & 0.36456e+02_rb,0.28365e+02_rb,0.26023e+02_rb,0.25227e+02_rb,0.30947e+02_rb /)\n      kbo(:, 2,36,15) = (/ &\n        & 0.35465e+02_rb,0.27424e+02_rb,0.25054e+02_rb,0.24425e+02_rb,0.30235e+02_rb /)\n      kbo(:, 3,36,15) = (/ &\n        & 0.34451e+02_rb,0.26498e+02_rb,0.24134e+02_rb,0.23640e+02_rb,0.29510e+02_rb /)\n      kbo(:, 4,36,15) = (/ &\n        & 0.33436e+02_rb,0.25606e+02_rb,0.23259e+02_rb,0.22862e+02_rb,0.28768e+02_rb /)\n      kbo(:, 5,36,15) = (/ &\n        & 0.32427e+02_rb,0.24743e+02_rb,0.22427e+02_rb,0.22112e+02_rb,0.28048e+02_rb /)\n      kbo(:, 1,37,15) = (/ &\n        & 0.36638e+02_rb,0.28533e+02_rb,0.26191e+02_rb,0.25363e+02_rb,0.31069e+02_rb /)\n      kbo(:, 2,37,15) = (/ &\n        & 0.35645e+02_rb,0.27585e+02_rb,0.25212e+02_rb,0.24557e+02_rb,0.30356e+02_rb /)\n      kbo(:, 3,37,15) = (/ &\n        & 0.34632e+02_rb,0.26655e+02_rb,0.24283e+02_rb,0.23768e+02_rb,0.29633e+02_rb /)\n      kbo(:, 4,37,15) = (/ &\n        & 0.33611e+02_rb,0.25753e+02_rb,0.23398e+02_rb,0.22987e+02_rb,0.28889e+02_rb /)\n      kbo(:, 5,37,15) = (/ &\n        & 0.32597e+02_rb,0.24885e+02_rb,0.22559e+02_rb,0.22230e+02_rb,0.28165e+02_rb /)\n      kbo(:, 1,38,15) = (/ &\n        & 0.36818e+02_rb,0.28702e+02_rb,0.26363e+02_rb,0.25503e+02_rb,0.31194e+02_rb /)\n      kbo(:, 2,38,15) = (/ &\n        & 0.35825e+02_rb,0.27749e+02_rb,0.25373e+02_rb,0.24692e+02_rb,0.30479e+02_rb /)\n      kbo(:, 3,38,15) = (/ &\n        & 0.34809e+02_rb,0.26811e+02_rb,0.24434e+02_rb,0.23900e+02_rb,0.29757e+02_rb /)\n      kbo(:, 4,38,15) = (/ &\n        & 0.33789e+02_rb,0.25904e+02_rb,0.23543e+02_rb,0.23114e+02_rb,0.29012e+02_rb /)\n      kbo(:, 5,38,15) = (/ &\n        & 0.32767e+02_rb,0.25028e+02_rb,0.22694e+02_rb,0.22351e+02_rb,0.28285e+02_rb /)\n      kbo(:, 1,39,15) = (/ &\n        & 0.36989e+02_rb,0.28865e+02_rb,0.26530e+02_rb,0.25636e+02_rb,0.31312e+02_rb /)\n      kbo(:, 2,39,15) = (/ &\n        & 0.35999e+02_rb,0.27907e+02_rb,0.25529e+02_rb,0.24823e+02_rb,0.30597e+02_rb /)\n      kbo(:, 3,39,15) = (/ &\n        & 0.34983e+02_rb,0.26966e+02_rb,0.24583e+02_rb,0.24027e+02_rb,0.29878e+02_rb /)\n      kbo(:, 4,39,15) = (/ &\n        & 0.33957e+02_rb,0.26048e+02_rb,0.23683e+02_rb,0.23240e+02_rb,0.29134e+02_rb /)\n      kbo(:, 5,39,15) = (/ &\n        & 0.32935e+02_rb,0.25169e+02_rb,0.22826e+02_rb,0.22468e+02_rb,0.28398e+02_rb /)\n      kbo(:, 1,40,15) = (/ &\n        & 0.37254e+02_rb,0.29125e+02_rb,0.26800e+02_rb,0.25853e+02_rb,0.31502e+02_rb /)\n      kbo(:, 2,40,15) = (/ &\n        & 0.36269e+02_rb,0.28159e+02_rb,0.25786e+02_rb,0.25036e+02_rb,0.30787e+02_rb /)\n      kbo(:, 3,40,15) = (/ &\n        & 0.35253e+02_rb,0.27211e+02_rb,0.24825e+02_rb,0.24233e+02_rb,0.30069e+02_rb /)\n      kbo(:, 4,40,15) = (/ &\n        & 0.34229e+02_rb,0.26287e+02_rb,0.23913e+02_rb,0.23442e+02_rb,0.29327e+02_rb /)\n      kbo(:, 5,40,15) = (/ &\n        & 0.33202e+02_rb,0.25396e+02_rb,0.23042e+02_rb,0.22665e+02_rb,0.28587e+02_rb /)\n      kbo(:, 1,41,15) = (/ &\n        & 0.37526e+02_rb,0.29396e+02_rb,0.27087e+02_rb,0.26081e+02_rb,0.31701e+02_rb /)\n      kbo(:, 2,41,15) = (/ &\n        & 0.36546e+02_rb,0.28422e+02_rb,0.26056e+02_rb,0.25257e+02_rb,0.30982e+02_rb /)\n      kbo(:, 3,41,15) = (/ &\n        & 0.35534e+02_rb,0.27467e+02_rb,0.25079e+02_rb,0.24448e+02_rb,0.30265e+02_rb /)\n      kbo(:, 4,41,15) = (/ &\n        & 0.34510e+02_rb,0.26534e+02_rb,0.24153e+02_rb,0.23654e+02_rb,0.29528e+02_rb /)\n      kbo(:, 5,41,15) = (/ &\n        & 0.33481e+02_rb,0.25633e+02_rb,0.23271e+02_rb,0.22872e+02_rb,0.28783e+02_rb /)\n      kbo(:, 1,42,15) = (/ &\n        & 0.37791e+02_rb,0.29665e+02_rb,0.27375e+02_rb,0.26306e+02_rb,0.31897e+02_rb /)\n      kbo(:, 2,42,15) = (/ &\n        & 0.36818e+02_rb,0.28682e+02_rb,0.26328e+02_rb,0.25479e+02_rb,0.31179e+02_rb /)\n      kbo(:, 3,42,15) = (/ &\n        & 0.35814e+02_rb,0.27725e+02_rb,0.25336e+02_rb,0.24663e+02_rb,0.30459e+02_rb /)\n      kbo(:, 4,42,15) = (/ &\n        & 0.34792e+02_rb,0.26784e+02_rb,0.24397e+02_rb,0.23867e+02_rb,0.29730e+02_rb /)\n      kbo(:, 5,42,15) = (/ &\n        & 0.33761e+02_rb,0.25873e+02_rb,0.23504e+02_rb,0.23079e+02_rb,0.28983e+02_rb /)\n      kbo(:, 1,43,15) = (/ &\n        & 0.38102e+02_rb,0.29987e+02_rb,0.27726e+02_rb,0.26579e+02_rb,0.32132e+02_rb /)\n      kbo(:, 2,43,15) = (/ &\n        & 0.37142e+02_rb,0.29000e+02_rb,0.26660e+02_rb,0.25743e+02_rb,0.31410e+02_rb /)\n      kbo(:, 3,43,15) = (/ &\n        & 0.36146e+02_rb,0.28034e+02_rb,0.25651e+02_rb,0.24927e+02_rb,0.30694e+02_rb /)\n      kbo(:, 4,43,15) = (/ &\n        & 0.35125e+02_rb,0.27087e+02_rb,0.24694e+02_rb,0.24121e+02_rb,0.29968e+02_rb /)\n      kbo(:, 5,43,15) = (/ &\n        & 0.34093e+02_rb,0.26161e+02_rb,0.23786e+02_rb,0.23330e+02_rb,0.29223e+02_rb /)\n      kbo(:, 1,44,15) = (/ &\n        & 0.38433e+02_rb,0.30339e+02_rb,0.28106e+02_rb,0.26874e+02_rb,0.32381e+02_rb /)\n      kbo(:, 2,44,15) = (/ &\n        & 0.37485e+02_rb,0.29344e+02_rb,0.27023e+02_rb,0.26033e+02_rb,0.31664e+02_rb /)\n      kbo(:, 3,44,15) = (/ &\n        & 0.36497e+02_rb,0.28368e+02_rb,0.25996e+02_rb,0.25211e+02_rb,0.30945e+02_rb /)\n      kbo(:, 4,44,15) = (/ &\n        & 0.35483e+02_rb,0.27414e+02_rb,0.25019e+02_rb,0.24397e+02_rb,0.30221e+02_rb /)\n      kbo(:, 5,44,15) = (/ &\n        & 0.34454e+02_rb,0.26480e+02_rb,0.24095e+02_rb,0.23603e+02_rb,0.29482e+02_rb /)\n      kbo(:, 1,45,15) = (/ &\n        & 0.38755e+02_rb,0.30690e+02_rb,0.28491e+02_rb,0.27169e+02_rb,0.32624e+02_rb /)\n      kbo(:, 2,45,15) = (/ &\n        & 0.37819e+02_rb,0.29686e+02_rb,0.27393e+02_rb,0.26324e+02_rb,0.31916e+02_rb /)\n      kbo(:, 3,45,15) = (/ &\n        & 0.36842e+02_rb,0.28700e+02_rb,0.26343e+02_rb,0.25494e+02_rb,0.31195e+02_rb /)\n      kbo(:, 4,45,15) = (/ &\n        & 0.35840e+02_rb,0.27743e+02_rb,0.25350e+02_rb,0.24674e+02_rb,0.30470e+02_rb /)\n      kbo(:, 5,45,15) = (/ &\n        & 0.34814e+02_rb,0.26800e+02_rb,0.24408e+02_rb,0.23874e+02_rb,0.29739e+02_rb /)\n      kbo(:, 1,46,15) = (/ &\n        & 0.39090e+02_rb,0.31065e+02_rb,0.28908e+02_rb,0.27486e+02_rb,0.32877e+02_rb /)\n      kbo(:, 2,46,15) = (/ &\n        & 0.38170e+02_rb,0.30050e+02_rb,0.27790e+02_rb,0.26631e+02_rb,0.32180e+02_rb /)\n      kbo(:, 3,46,15) = (/ &\n        & 0.37208e+02_rb,0.29060e+02_rb,0.26719e+02_rb,0.25793e+02_rb,0.31457e+02_rb /)\n      kbo(:, 4,46,15) = (/ &\n        & 0.36211e+02_rb,0.28091e+02_rb,0.25705e+02_rb,0.24972e+02_rb,0.30735e+02_rb /)\n      kbo(:, 5,46,15) = (/ &\n        & 0.35190e+02_rb,0.27143e+02_rb,0.24746e+02_rb,0.24165e+02_rb,0.30011e+02_rb /)\n      kbo(:, 1,47,15) = (/ &\n        & 0.39451e+02_rb,0.31490e+02_rb,0.29378e+02_rb,0.27842e+02_rb,0.33145e+02_rb /)\n      kbo(:, 2,47,15) = (/ &\n        & 0.38554e+02_rb,0.30463e+02_rb,0.28238e+02_rb,0.26977e+02_rb,0.32470e+02_rb /)\n      kbo(:, 3,47,15) = (/ &\n        & 0.37608e+02_rb,0.29464e+02_rb,0.27149e+02_rb,0.26134e+02_rb,0.31753e+02_rb /)\n      kbo(:, 4,47,15) = (/ &\n        & 0.36624e+02_rb,0.28485e+02_rb,0.26114e+02_rb,0.25307e+02_rb,0.31030e+02_rb /)\n      kbo(:, 5,47,15) = (/ &\n        & 0.35612e+02_rb,0.27529e+02_rb,0.25131e+02_rb,0.24491e+02_rb,0.30307e+02_rb /)\n      kbo(:, 1,48,15) = (/ &\n        & 0.39789e+02_rb,0.31912e+02_rb,0.29855e+02_rb,0.28207e+02_rb,0.33402e+02_rb /)\n      kbo(:, 2,48,15) = (/ &\n        & 0.38929e+02_rb,0.30877e+02_rb,0.28697e+02_rb,0.27328e+02_rb,0.32755e+02_rb /)\n      kbo(:, 3,48,15) = (/ &\n        & 0.38000e+02_rb,0.29868e+02_rb,0.27588e+02_rb,0.26477e+02_rb,0.32050e+02_rb /)\n      kbo(:, 4,48,15) = (/ &\n        & 0.37030e+02_rb,0.28879e+02_rb,0.26527e+02_rb,0.25639e+02_rb,0.31322e+02_rb /)\n      kbo(:, 5,48,15) = (/ &\n        & 0.36027e+02_rb,0.27916e+02_rb,0.25523e+02_rb,0.24819e+02_rb,0.30601e+02_rb /)\n      kbo(:, 1,49,15) = (/ &\n        & 0.40116e+02_rb,0.32336e+02_rb,0.30332e+02_rb,0.28574e+02_rb,0.33637e+02_rb /)\n      kbo(:, 2,49,15) = (/ &\n        & 0.39295e+02_rb,0.31299e+02_rb,0.29164e+02_rb,0.27682e+02_rb,0.33028e+02_rb /)\n      kbo(:, 3,49,15) = (/ &\n        & 0.38385e+02_rb,0.30275e+02_rb,0.28033e+02_rb,0.26821e+02_rb,0.32341e+02_rb /)\n      kbo(:, 4,49,15) = (/ &\n        & 0.37432e+02_rb,0.29281e+02_rb,0.26949e+02_rb,0.25975e+02_rb,0.31615e+02_rb /)\n      kbo(:, 5,49,15) = (/ &\n        & 0.36440e+02_rb,0.28306e+02_rb,0.25923e+02_rb,0.25151e+02_rb,0.30893e+02_rb /)\n      kbo(:, 1,50,15) = (/ &\n        & 0.40414e+02_rb,0.32736e+02_rb,0.30783e+02_rb,0.28924e+02_rb,0.33845e+02_rb /)\n      kbo(:, 2,50,15) = (/ &\n        & 0.39619e+02_rb,0.31694e+02_rb,0.29608e+02_rb,0.28020e+02_rb,0.33276e+02_rb /)\n      kbo(:, 3,50,15) = (/ &\n        & 0.38737e+02_rb,0.30661e+02_rb,0.28456e+02_rb,0.27146e+02_rb,0.32609e+02_rb /)\n      kbo(:, 4,50,15) = (/ &\n        & 0.37800e+02_rb,0.29658e+02_rb,0.27356e+02_rb,0.26296e+02_rb,0.31894e+02_rb /)\n      kbo(:, 5,50,15) = (/ &\n        & 0.36822e+02_rb,0.28673e+02_rb,0.26306e+02_rb,0.25463e+02_rb,0.31168e+02_rb /)\n      kbo(:, 1,51,15) = (/ &\n        & 0.40689e+02_rb,0.33123e+02_rb,0.31211e+02_rb,0.29252e+02_rb,0.34023e+02_rb /)\n      kbo(:, 2,51,15) = (/ &\n        & 0.39919e+02_rb,0.32076e+02_rb,0.30039e+02_rb,0.28350e+02_rb,0.33499e+02_rb /)\n      kbo(:, 3,51,15) = (/ &\n        & 0.39075e+02_rb,0.31039e+02_rb,0.28875e+02_rb,0.27462e+02_rb,0.32860e+02_rb /)\n      kbo(:, 4,51,15) = (/ &\n        & 0.38151e+02_rb,0.30023e+02_rb,0.27755e+02_rb,0.26605e+02_rb,0.32160e+02_rb /)\n      kbo(:, 5,51,15) = (/ &\n        & 0.37189e+02_rb,0.29033e+02_rb,0.26685e+02_rb,0.25765e+02_rb,0.31432e+02_rb /)\n      kbo(:, 1,52,15) = (/ &\n        & 0.40936e+02_rb,0.33510e+02_rb,0.31640e+02_rb,0.29576e+02_rb,0.34183e+02_rb /)\n      kbo(:, 2,52,15) = (/ &\n        & 0.40210e+02_rb,0.32459e+02_rb,0.30471e+02_rb,0.28683e+02_rb,0.33706e+02_rb /)\n      kbo(:, 3,52,15) = (/ &\n        & 0.39397e+02_rb,0.31418e+02_rb,0.29296e+02_rb,0.27784e+02_rb,0.33107e+02_rb /)\n      kbo(:, 4,52,15) = (/ &\n        & 0.38495e+02_rb,0.30394e+02_rb,0.28160e+02_rb,0.26919e+02_rb,0.32422e+02_rb /)\n      kbo(:, 5,52,15) = (/ &\n        & 0.37548e+02_rb,0.29397e+02_rb,0.27070e+02_rb,0.26070e+02_rb,0.31697e+02_rb /)\n      kbo(:, 1,53,15) = (/ &\n        & 0.41161e+02_rb,0.33900e+02_rb,0.32075e+02_rb,0.29895e+02_rb,0.34325e+02_rb /)\n      kbo(:, 2,53,15) = (/ &\n        & 0.40494e+02_rb,0.32844e+02_rb,0.30901e+02_rb,0.29015e+02_rb,0.33898e+02_rb /)\n      kbo(:, 3,53,15) = (/ &\n        & 0.39709e+02_rb,0.31802e+02_rb,0.29726e+02_rb,0.28110e+02_rb,0.33339e+02_rb /)\n      kbo(:, 4,53,15) = (/ &\n        & 0.38833e+02_rb,0.30766e+02_rb,0.28570e+02_rb,0.27234e+02_rb,0.32680e+02_rb /)\n      kbo(:, 5,53,15) = (/ &\n        & 0.37902e+02_rb,0.29761e+02_rb,0.27465e+02_rb,0.26380e+02_rb,0.31966e+02_rb /)\n      kbo(:, 1,54,15) = (/ &\n        & 0.41350e+02_rb,0.34259e+02_rb,0.32468e+02_rb,0.30182e+02_rb,0.34433e+02_rb /)\n      kbo(:, 2,54,15) = (/ &\n        & 0.40740e+02_rb,0.33197e+02_rb,0.31292e+02_rb,0.29316e+02_rb,0.34057e+02_rb /)\n      kbo(:, 3,54,15) = (/ &\n        & 0.39978e+02_rb,0.32149e+02_rb,0.30122e+02_rb,0.28414e+02_rb,0.33542e+02_rb /)\n      kbo(:, 4,54,15) = (/ &\n        & 0.39139e+02_rb,0.31111e+02_rb,0.28955e+02_rb,0.27524e+02_rb,0.32911e+02_rb /)\n      kbo(:, 5,54,15) = (/ &\n        & 0.38222e+02_rb,0.30095e+02_rb,0.27832e+02_rb,0.26664e+02_rb,0.32209e+02_rb /)\n      kbo(:, 1,55,15) = (/ &\n        & 0.41508e+02_rb,0.34608e+02_rb,0.32849e+02_rb,0.30454e+02_rb,0.34522e+02_rb /)\n      kbo(:, 2,55,15) = (/ &\n        & 0.40955e+02_rb,0.33539e+02_rb,0.31671e+02_rb,0.29598e+02_rb,0.34194e+02_rb /)\n      kbo(:, 3,55,15) = (/ &\n        & 0.40232e+02_rb,0.32485e+02_rb,0.30501e+02_rb,0.28707e+02_rb,0.33722e+02_rb /)\n      kbo(:, 4,55,15) = (/ &\n        & 0.39425e+02_rb,0.31448e+02_rb,0.29326e+02_rb,0.27805e+02_rb,0.33122e+02_rb /)\n      kbo(:, 5,55,15) = (/ &\n        & 0.38521e+02_rb,0.30419e+02_rb,0.28187e+02_rb,0.26941e+02_rb,0.32441e+02_rb /)\n      kbo(:, 1,56,15) = (/ &\n        & 0.41645e+02_rb,0.34957e+02_rb,0.33233e+02_rb,0.30720e+02_rb,0.34599e+02_rb /)\n      kbo(:, 2,56,15) = (/ &\n        & 0.41152e+02_rb,0.33880e+02_rb,0.32050e+02_rb,0.29874e+02_rb,0.34316e+02_rb /)\n      kbo(:, 3,56,15) = (/ &\n        & 0.40482e+02_rb,0.32823e+02_rb,0.30877e+02_rb,0.28999e+02_rb,0.33890e+02_rb /)\n      kbo(:, 4,56,15) = (/ &\n        & 0.39696e+02_rb,0.31783e+02_rb,0.29704e+02_rb,0.28093e+02_rb,0.33329e+02_rb /)\n      kbo(:, 5,56,15) = (/ &\n        & 0.38819e+02_rb,0.30747e+02_rb,0.28547e+02_rb,0.27216e+02_rb,0.32666e+02_rb /)\n      kbo(:, 1,57,15) = (/ &\n        & 0.41772e+02_rb,0.35313e+02_rb,0.33621e+02_rb,0.30980e+02_rb,0.34653e+02_rb /)\n      kbo(:, 2,57,15) = (/ &\n        & 0.41335e+02_rb,0.34223e+02_rb,0.32428e+02_rb,0.30152e+02_rb,0.34423e+02_rb /)\n      kbo(:, 3,57,15) = (/ &\n        & 0.40717e+02_rb,0.33158e+02_rb,0.31249e+02_rb,0.29283e+02_rb,0.34041e+02_rb /)\n      kbo(:, 4,57,15) = (/ &\n        & 0.39952e+02_rb,0.32113e+02_rb,0.30080e+02_rb,0.28382e+02_rb,0.33523e+02_rb /)\n      kbo(:, 5,57,15) = (/ &\n        & 0.39110e+02_rb,0.31075e+02_rb,0.28913e+02_rb,0.27492e+02_rb,0.32886e+02_rb /)\n      kbo(:, 1,58,15) = (/ &\n        & 0.41872e+02_rb,0.35648e+02_rb,0.33990e+02_rb,0.31215e+02_rb,0.34668e+02_rb /)\n      kbo(:, 2,58,15) = (/ &\n        & 0.41486e+02_rb,0.34551e+02_rb,0.32786e+02_rb,0.30408e+02_rb,0.34507e+02_rb /)\n      kbo(:, 3,58,15) = (/ &\n        & 0.40923e+02_rb,0.33481e+02_rb,0.31606e+02_rb,0.29553e+02_rb,0.34175e+02_rb /)\n      kbo(:, 4,58,15) = (/ &\n        & 0.40193e+02_rb,0.32431e+02_rb,0.30438e+02_rb,0.28657e+02_rb,0.33692e+02_rb /)\n      kbo(:, 5,58,15) = (/ &\n        & 0.39381e+02_rb,0.31393e+02_rb,0.29263e+02_rb,0.27758e+02_rb,0.33088e+02_rb /)\n      kbo(:, 1,59,15) = (/ &\n        & 0.41905e+02_rb,0.35780e+02_rb,0.34140e+02_rb,0.31306e+02_rb,0.34668e+02_rb /)\n      kbo(:, 2,59,15) = (/ &\n        & 0.41541e+02_rb,0.34683e+02_rb,0.32931e+02_rb,0.30509e+02_rb,0.34539e+02_rb /)\n      kbo(:, 3,59,15) = (/ &\n        & 0.41000e+02_rb,0.33610e+02_rb,0.31751e+02_rb,0.29658e+02_rb,0.34225e+02_rb /)\n      kbo(:, 4,59,15) = (/ &\n        & 0.40289e+02_rb,0.32559e+02_rb,0.30582e+02_rb,0.28769e+02_rb,0.33760e+02_rb /)\n      kbo(:, 5,59,15) = (/ &\n        & 0.39484e+02_rb,0.31518e+02_rb,0.29405e+02_rb,0.27867e+02_rb,0.33169e+02_rb /)\n      kbo(:, 1,13,16) = (/ &\n        & 0.44218e+02_rb,0.33168e+02_rb,0.27605e+02_rb,0.40761e+02_rb,0.54348e+02_rb /)\n      kbo(:, 2,13,16) = (/ &\n        & 0.43915e+02_rb,0.32941e+02_rb,0.26738e+02_rb,0.39342e+02_rb,0.52457e+02_rb /)\n      kbo(:, 3,13,16) = (/ &\n        & 0.43491e+02_rb,0.32624e+02_rb,0.25861e+02_rb,0.38022e+02_rb,0.50696e+02_rb /)\n      kbo(:, 4,13,16) = (/ &\n        & 0.42952e+02_rb,0.32220e+02_rb,0.25010e+02_rb,0.36713e+02_rb,0.48951e+02_rb /)\n      kbo(:, 5,13,16) = (/ &\n        & 0.42305e+02_rb,0.31735e+02_rb,0.24184e+02_rb,0.35417e+02_rb,0.47222e+02_rb /)\n      kbo(:, 1,14,16) = (/ &\n        & 0.50640e+02_rb,0.37984e+02_rb,0.31138e+02_rb,0.45571e+02_rb,0.60761e+02_rb /)\n      kbo(:, 2,14,16) = (/ &\n        & 0.50072e+02_rb,0.37558e+02_rb,0.30053e+02_rb,0.43809e+02_rb,0.58413e+02_rb /)\n      kbo(:, 3,14,16) = (/ &\n        & 0.49384e+02_rb,0.37043e+02_rb,0.28981e+02_rb,0.42162e+02_rb,0.56216e+02_rb /)\n      kbo(:, 4,14,16) = (/ &\n        & 0.48531e+02_rb,0.36404e+02_rb,0.27924e+02_rb,0.40555e+02_rb,0.54074e+02_rb /)\n      kbo(:, 5,14,16) = (/ &\n        & 0.47588e+02_rb,0.35696e+02_rb,0.26896e+02_rb,0.38961e+02_rb,0.51948e+02_rb /)\n      kbo(:, 1,15,16) = (/ &\n        & 0.57280e+02_rb,0.42964e+02_rb,0.34740e+02_rb,0.50323e+02_rb,0.67098e+02_rb /)\n      kbo(:, 2,15,16) = (/ &\n        & 0.56367e+02_rb,0.42280e+02_rb,0.33407e+02_rb,0.48191e+02_rb,0.64255e+02_rb /)\n      kbo(:, 3,15,16) = (/ &\n        & 0.55318e+02_rb,0.41493e+02_rb,0.32092e+02_rb,0.46141e+02_rb,0.61520e+02_rb /)\n      kbo(:, 4,15,16) = (/ &\n        & 0.54108e+02_rb,0.40586e+02_rb,0.30808e+02_rb,0.44198e+02_rb,0.58930e+02_rb /)\n      kbo(:, 5,15,16) = (/ &\n        & 0.52826e+02_rb,0.39625e+02_rb,0.29570e+02_rb,0.42303e+02_rb,0.56404e+02_rb /)\n      kbo(:, 1,16,16) = (/ &\n        & 0.63967e+02_rb,0.47979e+02_rb,0.38312e+02_rb,0.54909e+02_rb,0.73213e+02_rb /)\n      kbo(:, 2,16,16) = (/ &\n        & 0.62626e+02_rb,0.46973e+02_rb,0.36695e+02_rb,0.52345e+02_rb,0.69794e+02_rb /)\n      kbo(:, 3,16,16) = (/ &\n        & 0.61112e+02_rb,0.45838e+02_rb,0.35123e+02_rb,0.49904e+02_rb,0.66539e+02_rb /)\n      kbo(:, 4,16,16) = (/ &\n        & 0.59503e+02_rb,0.44632e+02_rb,0.33592e+02_rb,0.47568e+02_rb,0.63425e+02_rb /)\n      kbo(:, 5,16,16) = (/ &\n        & 0.57855e+02_rb,0.43396e+02_rb,0.32125e+02_rb,0.45372e+02_rb,0.60497e+02_rb /)\n      kbo(:, 1,17,16) = (/ &\n        & 0.70540e+02_rb,0.52908e+02_rb,0.41791e+02_rb,0.59184e+02_rb,0.78912e+02_rb /)\n      kbo(:, 2,17,16) = (/ &\n        & 0.68668e+02_rb,0.51504e+02_rb,0.39850e+02_rb,0.56189e+02_rb,0.74919e+02_rb /)\n      kbo(:, 3,17,16) = (/ &\n        & 0.66662e+02_rb,0.50000e+02_rb,0.37983e+02_rb,0.53339e+02_rb,0.71119e+02_rb /)\n      kbo(:, 4,17,16) = (/ &\n        & 0.64633e+02_rb,0.48479e+02_rb,0.36199e+02_rb,0.50655e+02_rb,0.67541e+02_rb /)\n      kbo(:, 5,17,16) = (/ &\n        & 0.62569e+02_rb,0.46932e+02_rb,0.34500e+02_rb,0.48144e+02_rb,0.64192e+02_rb /)\n      kbo(:, 1,18,16) = (/ &\n        & 0.76762e+02_rb,0.57574e+02_rb,0.45062e+02_rb,0.63079e+02_rb,0.84105e+02_rb /)\n      kbo(:, 2,18,16) = (/ &\n        & 0.74320e+02_rb,0.55743e+02_rb,0.42789e+02_rb,0.59653e+02_rb,0.79537e+02_rb /)\n      kbo(:, 3,18,16) = (/ &\n        & 0.71820e+02_rb,0.53869e+02_rb,0.40630e+02_rb,0.56414e+02_rb,0.75219e+02_rb /)\n      kbo(:, 4,18,16) = (/ &\n        & 0.69367e+02_rb,0.52029e+02_rb,0.38584e+02_rb,0.53391e+02_rb,0.71188e+02_rb /)\n      kbo(:, 5,18,16) = (/ &\n        & 0.66895e+02_rb,0.50176e+02_rb,0.36663e+02_rb,0.50596e+02_rb,0.67461e+02_rb /)\n      kbo(:, 1,19,16) = (/ &\n        & 0.82534e+02_rb,0.61903e+02_rb,0.48066e+02_rb,0.66533e+02_rb,0.88711e+02_rb /)\n      kbo(:, 2,19,16) = (/ &\n        & 0.79500e+02_rb,0.59627e+02_rb,0.45463e+02_rb,0.62698e+02_rb,0.83597e+02_rb /)\n      kbo(:, 3,19,16) = (/ &\n        & 0.76531e+02_rb,0.57402e+02_rb,0.43003e+02_rb,0.59107e+02_rb,0.78810e+02_rb /)\n      kbo(:, 4,19,16) = (/ &\n        & 0.73621e+02_rb,0.55219e+02_rb,0.40714e+02_rb,0.55776e+02_rb,0.74368e+02_rb /)\n      kbo(:, 5,19,16) = (/ &\n        & 0.70758e+02_rb,0.53072e+02_rb,0.38580e+02_rb,0.52720e+02_rb,0.70294e+02_rb /)\n      kbo(:, 1,20,16) = (/ &\n        & 0.87685e+02_rb,0.65766e+02_rb,0.50694e+02_rb,0.69445e+02_rb,0.92594e+02_rb /)\n      kbo(:, 2,20,16) = (/ &\n        & 0.84090e+02_rb,0.63070e+02_rb,0.47778e+02_rb,0.65259e+02_rb,0.87012e+02_rb /)\n      kbo(:, 3,20,16) = (/ &\n        & 0.80661e+02_rb,0.60499e+02_rb,0.45053e+02_rb,0.61350e+02_rb,0.81800e+02_rb /)\n      kbo(:, 4,20,16) = (/ &\n        & 0.77340e+02_rb,0.58008e+02_rb,0.42537e+02_rb,0.57756e+02_rb,0.77009e+02_rb /)\n      kbo(:, 5,20,16) = (/ &\n        & 0.74079e+02_rb,0.55564e+02_rb,0.40201e+02_rb,0.54475e+02_rb,0.72633e+02_rb /)\n      kbo(:, 1,21,16) = (/ &\n        & 0.92165e+02_rb,0.69126e+02_rb,0.52960e+02_rb,0.71872e+02_rb,0.95829e+02_rb /)\n      kbo(:, 2,21,16) = (/ &\n        & 0.88084e+02_rb,0.66065e+02_rb,0.49750e+02_rb,0.67363e+02_rb,0.89818e+02_rb /)\n      kbo(:, 3,21,16) = (/ &\n        & 0.84210e+02_rb,0.63159e+02_rb,0.46796e+02_rb,0.63194e+02_rb,0.84259e+02_rb /)\n      kbo(:, 4,21,16) = (/ &\n        & 0.80508e+02_rb,0.60384e+02_rb,0.44071e+02_rb,0.59388e+02_rb,0.79185e+02_rb /)\n      kbo(:, 5,21,16) = (/ &\n        & 0.76889e+02_rb,0.57670e+02_rb,0.41555e+02_rb,0.55904e+02_rb,0.74538e+02_rb /)\n      kbo(:, 1,22,16) = (/ &\n        & 0.95696e+02_rb,0.71774e+02_rb,0.54631e+02_rb,0.73526e+02_rb,0.98034e+02_rb /)\n      kbo(:, 2,22,16) = (/ &\n        & 0.91190e+02_rb,0.68395e+02_rb,0.51188e+02_rb,0.68768e+02_rb,0.91690e+02_rb /)\n      kbo(:, 3,22,16) = (/ &\n        & 0.86939e+02_rb,0.65206e+02_rb,0.48040e+02_rb,0.64409e+02_rb,0.85879e+02_rb /)\n      kbo(:, 4,22,16) = (/ &\n        & 0.82890e+02_rb,0.62171e+02_rb,0.45151e+02_rb,0.60441e+02_rb,0.80589e+02_rb /)\n      kbo(:, 5,22,16) = (/ &\n        & 0.78983e+02_rb,0.59241e+02_rb,0.42494e+02_rb,0.56811e+02_rb,0.75748e+02_rb /)\n      kbo(:, 1,23,16) = (/ &\n        & 0.98505e+02_rb,0.73881e+02_rb,0.55897e+02_rb,0.74690e+02_rb,0.99587e+02_rb /)\n      kbo(:, 2,23,16) = (/ &\n        & 0.93651e+02_rb,0.70240e+02_rb,0.52277e+02_rb,0.69755e+02_rb,0.93007e+02_rb /)\n      kbo(:, 3,23,16) = (/ &\n        & 0.89065e+02_rb,0.66801e+02_rb,0.48963e+02_rb,0.65256e+02_rb,0.87008e+02_rb /)\n      kbo(:, 4,23,16) = (/ &\n        & 0.84725e+02_rb,0.63546e+02_rb,0.45949e+02_rb,0.61155e+02_rb,0.81540e+02_rb /)\n      kbo(:, 5,23,16) = (/ &\n        & 0.80582e+02_rb,0.60440e+02_rb,0.43182e+02_rb,0.57417e+02_rb,0.76556e+02_rb /)\n      kbo(:, 1,24,16) = (/ &\n        & 0.10064e+03_rb,0.75484e+02_rb,0.56783e+02_rb,0.75422e+02_rb,0.10056e+03_rb /)\n      kbo(:, 2,24,16) = (/ &\n        & 0.95486e+02_rb,0.71616e+02_rb,0.53021e+02_rb,0.70355e+02_rb,0.93807e+02_rb /)\n      kbo(:, 3,24,16) = (/ &\n        & 0.90630e+02_rb,0.67975e+02_rb,0.49592e+02_rb,0.65751e+02_rb,0.87668e+02_rb /)\n      kbo(:, 4,24,16) = (/ &\n        & 0.86059e+02_rb,0.64548e+02_rb,0.46483e+02_rb,0.61565e+02_rb,0.82086e+02_rb /)\n      kbo(:, 5,24,16) = (/ &\n        & 0.81718e+02_rb,0.61292e+02_rb,0.43631e+02_rb,0.57753e+02_rb,0.77003e+02_rb /)\n      kbo(:, 1,25,16) = (/ &\n        & 0.10215e+03_rb,0.76618e+02_rb,0.57324e+02_rb,0.75759e+02_rb,0.10101e+03_rb /)\n      kbo(:, 2,25,16) = (/ &\n        & 0.96743e+02_rb,0.72560e+02_rb,0.53446e+02_rb,0.70607e+02_rb,0.94143e+02_rb /)\n      kbo(:, 3,25,16) = (/ &\n        & 0.91681e+02_rb,0.68763e+02_rb,0.49955e+02_rb,0.65940e+02_rb,0.87921e+02_rb /)\n      kbo(:, 4,25,16) = (/ &\n        & 0.86919e+02_rb,0.65192e+02_rb,0.46773e+02_rb,0.61703e+02_rb,0.82270e+02_rb /)\n      kbo(:, 5,25,16) = (/ &\n        & 0.82440e+02_rb,0.61834e+02_rb,0.43873e+02_rb,0.57842e+02_rb,0.77123e+02_rb /)\n      kbo(:, 1,26,16) = (/ &\n        & 0.10303e+03_rb,0.77274e+02_rb,0.57519e+02_rb,0.75701e+02_rb,0.10093e+03_rb /)\n      kbo(:, 2,26,16) = (/ &\n        & 0.97444e+02_rb,0.73085e+02_rb,0.53575e+02_rb,0.70525e+02_rb,0.94033e+02_rb /)\n      kbo(:, 3,26,16) = (/ &\n        & 0.92222e+02_rb,0.69170e+02_rb,0.50048e+02_rb,0.65828e+02_rb,0.87771e+02_rb /)\n      kbo(:, 4,26,16) = (/ &\n        & 0.87336e+02_rb,0.65505e+02_rb,0.46824e+02_rb,0.61566e+02_rb,0.82088e+02_rb /)\n      kbo(:, 5,26,16) = (/ &\n        & 0.82771e+02_rb,0.62082e+02_rb,0.43909e+02_rb,0.57710e+02_rb,0.76947e+02_rb /)\n      kbo(:, 1,27,16) = (/ &\n        & 0.10345e+03_rb,0.77590e+02_rb,0.57467e+02_rb,0.75392e+02_rb,0.10052e+03_rb /)\n      kbo(:, 2,27,16) = (/ &\n        & 0.97739e+02_rb,0.73306e+02_rb,0.53511e+02_rb,0.70214e+02_rb,0.93619e+02_rb /)\n      kbo(:, 3,27,16) = (/ &\n        & 0.92406e+02_rb,0.69307e+02_rb,0.49956e+02_rb,0.65525e+02_rb,0.87366e+02_rb /)\n      kbo(:, 4,27,16) = (/ &\n        & 0.87439e+02_rb,0.65583e+02_rb,0.46715e+02_rb,0.61255e+02_rb,0.81674e+02_rb /)\n      kbo(:, 5,27,16) = (/ &\n        & 0.82826e+02_rb,0.62123e+02_rb,0.43807e+02_rb,0.57432e+02_rb,0.76576e+02_rb /)\n      kbo(:, 1,28,16) = (/ &\n        & 0.10350e+03_rb,0.77625e+02_rb,0.57222e+02_rb,0.74881e+02_rb,0.99841e+02_rb /)\n      kbo(:, 2,28,16) = (/ &\n        & 0.97691e+02_rb,0.73271e+02_rb,0.53275e+02_rb,0.69730e+02_rb,0.92974e+02_rb /)\n      kbo(:, 3,28,16) = (/ &\n        & 0.92289e+02_rb,0.69219e+02_rb,0.49719e+02_rb,0.65057e+02_rb,0.86743e+02_rb /)\n      kbo(:, 4,28,16) = (/ &\n        & 0.87284e+02_rb,0.65466e+02_rb,0.46485e+02_rb,0.60817e+02_rb,0.81090e+02_rb /)\n      kbo(:, 5,28,16) = (/ &\n        & 0.82640e+02_rb,0.61984e+02_rb,0.43588e+02_rb,0.57042e+02_rb,0.76055e+02_rb /)\n      kbo(:, 1,29,16) = (/ &\n        & 0.10319e+03_rb,0.77394e+02_rb,0.56799e+02_rb,0.74179e+02_rb,0.98906e+02_rb /)\n      kbo(:, 2,29,16) = (/ &\n        & 0.97340e+02_rb,0.73008e+02_rb,0.52885e+02_rb,0.69064e+02_rb,0.92086e+02_rb /)\n      kbo(:, 3,29,16) = (/ &\n        & 0.91909e+02_rb,0.68935e+02_rb,0.49342e+02_rb,0.64439e+02_rb,0.85918e+02_rb /)\n      kbo(:, 4,29,16) = (/ &\n        & 0.86890e+02_rb,0.65171e+02_rb,0.46144e+02_rb,0.60253e+02_rb,0.80337e+02_rb /)\n      kbo(:, 5,29,16) = (/ &\n        & 0.82249e+02_rb,0.61690e+02_rb,0.43266e+02_rb,0.56539e+02_rb,0.75385e+02_rb /)\n      kbo(:, 1,30,16) = (/ &\n        & 0.10264e+03_rb,0.76981e+02_rb,0.56267e+02_rb,0.73352e+02_rb,0.97803e+02_rb /)\n      kbo(:, 2,30,16) = (/ &\n        & 0.96761e+02_rb,0.72573e+02_rb,0.52390e+02_rb,0.68302e+02_rb,0.91070e+02_rb /)\n      kbo(:, 3,30,16) = (/ &\n        & 0.91349e+02_rb,0.68515e+02_rb,0.48877e+02_rb,0.63734e+02_rb,0.84978e+02_rb /)\n      kbo(:, 4,30,16) = (/ &\n        & 0.86346e+02_rb,0.64763e+02_rb,0.45722e+02_rb,0.59615e+02_rb,0.79487e+02_rb /)\n      kbo(:, 5,30,16) = (/ &\n        & 0.81701e+02_rb,0.61280e+02_rb,0.42874e+02_rb,0.55973e+02_rb,0.74631e+02_rb /)\n      kbo(:, 1,31,16) = (/ &\n        & 0.10185e+03_rb,0.76389e+02_rb,0.55624e+02_rb,0.72410e+02_rb,0.96547e+02_rb /)\n      kbo(:, 2,31,16) = (/ &\n        & 0.95999e+02_rb,0.72002e+02_rb,0.51796e+02_rb,0.67443e+02_rb,0.89924e+02_rb /)\n      kbo(:, 3,31,16) = (/ &\n        & 0.90614e+02_rb,0.67963e+02_rb,0.48327e+02_rb,0.62938e+02_rb,0.83917e+02_rb /)\n      kbo(:, 4,31,16) = (/ &\n        & 0.85645e+02_rb,0.64237e+02_rb,0.45228e+02_rb,0.58906e+02_rb,0.78542e+02_rb /)\n      kbo(:, 5,31,16) = (/ &\n        & 0.81007e+02_rb,0.60759e+02_rb,0.42414e+02_rb,0.55328e+02_rb,0.73771e+02_rb /)\n      kbo(:, 1,32,16) = (/ &\n        & 0.10089e+03_rb,0.75672e+02_rb,0.54904e+02_rb,0.71387e+02_rb,0.95183e+02_rb /)\n      kbo(:, 2,32,16) = (/ &\n        & 0.95077e+02_rb,0.71310e+02_rb,0.51129e+02_rb,0.66501e+02_rb,0.88668e+02_rb /)\n      kbo(:, 3,32,16) = (/ &\n        & 0.89743e+02_rb,0.67310e+02_rb,0.47720e+02_rb,0.62089e+02_rb,0.82785e+02_rb /)\n      kbo(:, 4,32,16) = (/ &\n        & 0.84830e+02_rb,0.63626e+02_rb,0.44676e+02_rb,0.58147e+02_rb,0.77529e+02_rb /)\n      kbo(:, 5,32,16) = (/ &\n        & 0.80208e+02_rb,0.60160e+02_rb,0.41909e+02_rb,0.54638e+02_rb,0.72851e+02_rb /)\n      kbo(:, 1,33,16) = (/ &\n        & 0.99806e+02_rb,0.74857e+02_rb,0.54124e+02_rb,0.70307e+02_rb,0.93742e+02_rb /)\n      kbo(:, 2,33,16) = (/ &\n        & 0.94060e+02_rb,0.70548e+02_rb,0.50418e+02_rb,0.65525e+02_rb,0.87366e+02_rb /)\n      kbo(:, 3,33,16) = (/ &\n        & 0.88780e+02_rb,0.66588e+02_rb,0.47080e+02_rb,0.61195e+02_rb,0.81594e+02_rb /)\n      kbo(:, 4,33,16) = (/ &\n        & 0.83926e+02_rb,0.62948e+02_rb,0.44091e+02_rb,0.57369e+02_rb,0.76493e+02_rb /)\n      kbo(:, 5,33,16) = (/ &\n        & 0.79342e+02_rb,0.59511e+02_rb,0.41372e+02_rb,0.53910e+02_rb,0.71880e+02_rb /)\n      kbo(:, 1,34,16) = (/ &\n        & 0.98842e+02_rb,0.74134e+02_rb,0.53446e+02_rb,0.69373e+02_rb,0.92498e+02_rb /)\n      kbo(:, 2,34,16) = (/ &\n        & 0.93169e+02_rb,0.69879e+02_rb,0.49796e+02_rb,0.64672e+02_rb,0.86229e+02_rb /)\n      kbo(:, 3,34,16) = (/ &\n        & 0.87940e+02_rb,0.65958e+02_rb,0.46525e+02_rb,0.60437e+02_rb,0.80583e+02_rb /)\n      kbo(:, 4,34,16) = (/ &\n        & 0.83124e+02_rb,0.62347e+02_rb,0.43581e+02_rb,0.56689e+02_rb,0.75585e+02_rb /)\n      kbo(:, 5,34,16) = (/ &\n        & 0.78566e+02_rb,0.58929e+02_rb,0.40900e+02_rb,0.53287e+02_rb,0.71049e+02_rb /)\n      kbo(:, 1,35,16) = (/ &\n        & 0.98383e+02_rb,0.73790e+02_rb,0.53104e+02_rb,0.68893e+02_rb,0.91857e+02_rb /)\n      kbo(:, 2,35,16) = (/ &\n        & 0.92731e+02_rb,0.69551e+02_rb,0.49484e+02_rb,0.64233e+02_rb,0.85643e+02_rb /)\n      kbo(:, 3,35,16) = (/ &\n        & 0.87537e+02_rb,0.65656e+02_rb,0.46247e+02_rb,0.60050e+02_rb,0.80067e+02_rb /)\n      kbo(:, 4,35,16) = (/ &\n        & 0.82730e+02_rb,0.62051e+02_rb,0.43325e+02_rb,0.56336e+02_rb,0.75115e+02_rb /)\n      kbo(:, 5,35,16) = (/ &\n        & 0.78184e+02_rb,0.58642e+02_rb,0.40664e+02_rb,0.52959e+02_rb,0.70611e+02_rb /)\n      kbo(:, 1,36,16) = (/ &\n        & 0.98510e+02_rb,0.73885e+02_rb,0.53153e+02_rb,0.68921e+02_rb,0.91895e+02_rb /)\n      kbo(:, 2,36,16) = (/ &\n        & 0.92845e+02_rb,0.69637e+02_rb,0.49525e+02_rb,0.64248e+02_rb,0.85664e+02_rb /)\n      kbo(:, 3,36,16) = (/ &\n        & 0.87626e+02_rb,0.65723e+02_rb,0.46281e+02_rb,0.60067e+02_rb,0.80090e+02_rb /)\n      kbo(:, 4,36,16) = (/ &\n        & 0.82805e+02_rb,0.62108e+02_rb,0.43352e+02_rb,0.56351e+02_rb,0.75135e+02_rb /)\n      kbo(:, 5,36,16) = (/ &\n        & 0.78246e+02_rb,0.58689e+02_rb,0.40687e+02_rb,0.52970e+02_rb,0.70627e+02_rb /)\n      kbo(:, 1,37,16) = (/ &\n        & 0.99499e+02_rb,0.74626e+02_rb,0.53765e+02_rb,0.69681e+02_rb,0.92907e+02_rb /)\n      kbo(:, 2,37,16) = (/ &\n        & 0.93737e+02_rb,0.70305e+02_rb,0.50072e+02_rb,0.64938e+02_rb,0.86584e+02_rb /)\n      kbo(:, 3,37,16) = (/ &\n        & 0.88443e+02_rb,0.66336e+02_rb,0.46765e+02_rb,0.60669e+02_rb,0.80892e+02_rb /)\n      kbo(:, 4,37,16) = (/ &\n        & 0.83569e+02_rb,0.62680e+02_rb,0.43792e+02_rb,0.56887e+02_rb,0.75849e+02_rb /)\n      kbo(:, 5,37,16) = (/ &\n        & 0.78959e+02_rb,0.59223e+02_rb,0.41087e+02_rb,0.53464e+02_rb,0.71286e+02_rb /)\n      kbo(:, 1,38,16) = (/ &\n        & 0.10053e+03_rb,0.75401e+02_rb,0.54401e+02_rb,0.70469e+02_rb,0.93958e+02_rb /)\n      kbo(:, 2,38,16) = (/ &\n        & 0.94665e+02_rb,0.71001e+02_rb,0.50643e+02_rb,0.65651e+02_rb,0.87535e+02_rb /)\n      kbo(:, 3,38,16) = (/ &\n        & 0.89287e+02_rb,0.66968e+02_rb,0.47272e+02_rb,0.61298e+02_rb,0.81730e+02_rb /)\n      kbo(:, 4,38,16) = (/ &\n        & 0.84354e+02_rb,0.63269e+02_rb,0.44250e+02_rb,0.57455e+02_rb,0.76607e+02_rb /)\n      kbo(:, 5,38,16) = (/ &\n        & 0.79688e+02_rb,0.59770e+02_rb,0.41502e+02_rb,0.53978e+02_rb,0.71970e+02_rb /)\n      kbo(:, 1,39,16) = (/ &\n        & 0.10152e+03_rb,0.76145e+02_rb,0.55030e+02_rb,0.71266e+02_rb,0.95022e+02_rb /)\n      kbo(:, 2,39,16) = (/ &\n        & 0.95574e+02_rb,0.71683e+02_rb,0.51208e+02_rb,0.66359e+02_rb,0.88479e+02_rb /)\n      kbo(:, 3,39,16) = (/ &\n        & 0.90127e+02_rb,0.67598e+02_rb,0.47776e+02_rb,0.61934e+02_rb,0.82579e+02_rb /)\n      kbo(:, 4,39,16) = (/ &\n        & 0.85122e+02_rb,0.63845e+02_rb,0.44704e+02_rb,0.58015e+02_rb,0.77353e+02_rb /)\n      kbo(:, 5,39,16) = (/ &\n        & 0.80410e+02_rb,0.60311e+02_rb,0.41916e+02_rb,0.54486e+02_rb,0.72649e+02_rb /)\n      kbo(:, 1,40,16) = (/ &\n        & 0.10316e+03_rb,0.77371e+02_rb,0.56077e+02_rb,0.72600e+02_rb,0.96800e+02_rb /)\n      kbo(:, 2,40,16) = (/ &\n        & 0.97060e+02_rb,0.72797e+02_rb,0.52149e+02_rb,0.67558e+02_rb,0.90077e+02_rb /)\n      kbo(:, 3,40,16) = (/ &\n        & 0.91509e+02_rb,0.68635e+02_rb,0.48618e+02_rb,0.63010e+02_rb,0.84013e+02_rb /)\n      kbo(:, 4,40,16) = (/ &\n        & 0.86384e+02_rb,0.64791e+02_rb,0.45460e+02_rb,0.58959e+02_rb,0.78612e+02_rb /)\n      kbo(:, 5,40,16) = (/ &\n        & 0.81600e+02_rb,0.61204e+02_rb,0.42605e+02_rb,0.55349e+02_rb,0.73798e+02_rb /)\n      kbo(:, 1,41,16) = (/ &\n        & 0.10490e+03_rb,0.78677e+02_rb,0.57202e+02_rb,0.74030e+02_rb,0.98707e+02_rb /)\n      kbo(:, 2,41,16) = (/ &\n        & 0.98655e+02_rb,0.73994e+02_rb,0.53155e+02_rb,0.68836e+02_rb,0.91782e+02_rb /)\n      kbo(:, 3,41,16) = (/ &\n        & 0.92964e+02_rb,0.69726e+02_rb,0.49517e+02_rb,0.64156e+02_rb,0.85541e+02_rb /)\n      kbo(:, 4,41,16) = (/ &\n        & 0.87720e+02_rb,0.65793e+02_rb,0.46275e+02_rb,0.59984e+02_rb,0.79978e+02_rb /)\n      kbo(:, 5,41,16) = (/ &\n        & 0.82858e+02_rb,0.62147e+02_rb,0.43340e+02_rb,0.56275e+02_rb,0.75033e+02_rb /)\n      kbo(:, 1,42,16) = (/ &\n        & 0.10666e+03_rb,0.79997e+02_rb,0.58340e+02_rb,0.75485e+02_rb,0.10065e+03_rb /)\n      kbo(:, 2,42,16) = (/ &\n        & 0.10028e+03_rb,0.75211e+02_rb,0.54189e+02_rb,0.70153e+02_rb,0.93537e+02_rb /)\n      kbo(:, 3,42,16) = (/ &\n        & 0.94432e+02_rb,0.70827e+02_rb,0.50443e+02_rb,0.65340e+02_rb,0.87121e+02_rb /)\n      kbo(:, 4,42,16) = (/ &\n        & 0.89075e+02_rb,0.66809e+02_rb,0.47102e+02_rb,0.61032e+02_rb,0.81376e+02_rb /)\n      kbo(:, 5,42,16) = (/ &\n        & 0.84125e+02_rb,0.63097e+02_rb,0.44086e+02_rb,0.57211e+02_rb,0.76281e+02_rb /)\n      kbo(:, 1,43,16) = (/ &\n        & 0.10883e+03_rb,0.81624e+02_rb,0.59771e+02_rb,0.77309e+02_rb,0.10308e+03_rb /)\n      kbo(:, 2,43,16) = (/ &\n        & 0.10228e+03_rb,0.76711e+02_rb,0.55476e+02_rb,0.71797e+02_rb,0.95729e+02_rb /)\n      kbo(:, 3,43,16) = (/ &\n        & 0.96257e+02_rb,0.72196e+02_rb,0.51599e+02_rb,0.66824e+02_rb,0.89098e+02_rb /)\n      kbo(:, 4,43,16) = (/ &\n        & 0.90745e+02_rb,0.68062e+02_rb,0.48126e+02_rb,0.62350e+02_rb,0.83134e+02_rb /)\n      kbo(:, 5,43,16) = (/ &\n        & 0.85682e+02_rb,0.64265e+02_rb,0.45017e+02_rb,0.58380e+02_rb,0.77840e+02_rb /)\n      kbo(:, 1,44,16) = (/ &\n        & 0.11122e+03_rb,0.83416e+02_rb,0.61378e+02_rb,0.79350e+02_rb,0.10580e+03_rb /)\n      kbo(:, 2,44,16) = (/ &\n        & 0.10448e+03_rb,0.78362e+02_rb,0.56905e+02_rb,0.73629e+02_rb,0.98171e+02_rb /)\n      kbo(:, 3,44,16) = (/ &\n        & 0.98280e+02_rb,0.73712e+02_rb,0.52886e+02_rb,0.68474e+02_rb,0.91299e+02_rb /)\n      kbo(:, 4,44,16) = (/ &\n        & 0.92614e+02_rb,0.69464e+02_rb,0.49277e+02_rb,0.63819e+02_rb,0.85092e+02_rb /)\n      kbo(:, 5,44,16) = (/ &\n        & 0.87390e+02_rb,0.65546e+02_rb,0.46054e+02_rb,0.59688e+02_rb,0.79585e+02_rb /)\n      kbo(:, 1,45,16) = (/ &\n        & 0.11367e+03_rb,0.85251e+02_rb,0.63043e+02_rb,0.81458e+02_rb,0.10861e+03_rb /)\n      kbo(:, 2,45,16) = (/ &\n        & 0.10674e+03_rb,0.80056e+02_rb,0.58377e+02_rb,0.75516e+02_rb,0.10069e+03_rb /)\n      kbo(:, 3,45,16) = (/ &\n        & 0.10036e+03_rb,0.75271e+02_rb,0.54217e+02_rb,0.70172e+02_rb,0.93562e+02_rb /)\n      kbo(:, 4,45,16) = (/ &\n        & 0.94507e+02_rb,0.70883e+02_rb,0.50472e+02_rb,0.65352e+02_rb,0.87137e+02_rb /)\n      kbo(:, 5,45,16) = (/ &\n        & 0.89124e+02_rb,0.66846e+02_rb,0.47119e+02_rb,0.61044e+02_rb,0.81393e+02_rb /)\n      kbo(:, 1,46,16) = (/ &\n        & 0.11634e+03_rb,0.87256e+02_rb,0.64886e+02_rb,0.83772e+02_rb,0.11170e+03_rb /)\n      kbo(:, 2,46,16) = (/ &\n        & 0.10921e+03_rb,0.81909e+02_rb,0.60009e+02_rb,0.77600e+02_rb,0.10347e+03_rb /)\n      kbo(:, 3,46,16) = (/ &\n        & 0.10262e+03_rb,0.76969e+02_rb,0.55682e+02_rb,0.72046e+02_rb,0.96062e+02_rb /)\n      kbo(:, 4,46,16) = (/ &\n        & 0.96578e+02_rb,0.72436e+02_rb,0.51790e+02_rb,0.67050e+02_rb,0.89399e+02_rb /)\n      kbo(:, 5,46,16) = (/ &\n        & 0.91036e+02_rb,0.68280e+02_rb,0.48293e+02_rb,0.62556e+02_rb,0.83408e+02_rb /)\n      kbo(:, 1,47,16) = (/ &\n        & 0.11944e+03_rb,0.89580e+02_rb,0.67039e+02_rb,0.86470e+02_rb,0.11529e+03_rb /)\n      kbo(:, 2,47,16) = (/ &\n        & 0.11203e+03_rb,0.84025e+02_rb,0.61916e+02_rb,0.80032e+02_rb,0.10671e+03_rb /)\n      kbo(:, 3,47,16) = (/ &\n        & 0.10523e+03_rb,0.78928e+02_rb,0.57378e+02_rb,0.74229e+02_rb,0.98972e+02_rb /)\n      kbo(:, 4,47,16) = (/ &\n        & 0.98975e+02_rb,0.74234e+02_rb,0.53317e+02_rb,0.69003e+02_rb,0.92005e+02_rb /)\n      kbo(:, 5,47,16) = (/ &\n        & 0.93247e+02_rb,0.69938e+02_rb,0.49666e+02_rb,0.64309e+02_rb,0.85745e+02_rb /)\n      kbo(:, 1,48,16) = (/ &\n        & 0.12267e+03_rb,0.92006e+02_rb,0.69290e+02_rb,0.89280e+02_rb,0.11904e+03_rb /)\n      kbo(:, 2,48,16) = (/ &\n        & 0.11495e+03_rb,0.86215e+02_rb,0.63917e+02_rb,0.82556e+02_rb,0.11008e+03_rb /)\n      kbo(:, 3,48,16) = (/ &\n        & 0.10793e+03_rb,0.80951e+02_rb,0.59146e+02_rb,0.76493e+02_rb,0.10199e+03_rb /)\n      kbo(:, 4,48,16) = (/ &\n        & 0.10147e+03_rb,0.76101e+02_rb,0.54918e+02_rb,0.71050e+02_rb,0.94733e+02_rb /)\n      kbo(:, 5,48,16) = (/ &\n        & 0.95498e+02_rb,0.71626e+02_rb,0.51095e+02_rb,0.66155e+02_rb,0.88207e+02_rb /)\n      kbo(:, 1,49,16) = (/ &\n        & 0.12603e+03_rb,0.94521e+02_rb,0.71680e+02_rb,0.92236e+02_rb,0.12298e+03_rb /)\n      kbo(:, 2,49,16) = (/ &\n        & 0.11801e+03_rb,0.88509e+02_rb,0.66027e+02_rb,0.85192e+02_rb,0.11359e+03_rb /)\n      kbo(:, 3,49,16) = (/ &\n        & 0.11070e+03_rb,0.83029e+02_rb,0.61003e+02_rb,0.78868e+02_rb,0.10516e+03_rb /)\n      kbo(:, 4,49,16) = (/ &\n        & 0.10402e+03_rb,0.78016e+02_rb,0.56578e+02_rb,0.73185e+02_rb,0.97580e+02_rb /)\n      kbo(:, 5,49,16) = (/ &\n        & 0.97847e+02_rb,0.73387e+02_rb,0.52593e+02_rb,0.68075e+02_rb,0.90767e+02_rb /)\n      kbo(:, 1,50,16) = (/ &\n        & 0.12933e+03_rb,0.96996e+02_rb,0.74078e+02_rb,0.95132e+02_rb,0.12684e+03_rb /)\n      kbo(:, 2,50,16) = (/ &\n        & 0.12097e+03_rb,0.90726e+02_rb,0.68085e+02_rb,0.87768e+02_rb,0.11702e+03_rb /)\n      kbo(:, 3,50,16) = (/ &\n        & 0.11343e+03_rb,0.85073e+02_rb,0.62849e+02_rb,0.81185e+02_rb,0.10825e+03_rb /)\n      kbo(:, 4,50,16) = (/ &\n        & 0.10650e+03_rb,0.79879e+02_rb,0.58193e+02_rb,0.75257e+02_rb,0.10034e+03_rb /)\n      kbo(:, 5,50,16) = (/ &\n        & 0.10012e+03_rb,0.75094e+02_rb,0.54050e+02_rb,0.69940e+02_rb,0.93253e+02_rb /)\n      kbo(:, 1,51,16) = (/ &\n        & 0.13262e+03_rb,0.99463e+02_rb,0.76537e+02_rb,0.98089e+02_rb,0.13079e+03_rb /)\n      kbo(:, 2,51,16) = (/ &\n        & 0.12396e+03_rb,0.92972e+02_rb,0.70180e+02_rb,0.90371e+02_rb,0.12049e+03_rb /)\n      kbo(:, 3,51,16) = (/ &\n        & 0.11611e+03_rb,0.87085e+02_rb,0.64700e+02_rb,0.83525e+02_rb,0.11137e+03_rb /)\n      kbo(:, 4,51,16) = (/ &\n        & 0.10897e+03_rb,0.81728e+02_rb,0.59829e+02_rb,0.77356e+02_rb,0.10314e+03_rb /)\n      kbo(:, 5,51,16) = (/ &\n        & 0.10241e+03_rb,0.76807e+02_rb,0.55526e+02_rb,0.71828e+02_rb,0.95771e+02_rb /)\n      kbo(:, 1,52,16) = (/ &\n        & 0.13607e+03_rb,0.10205e+03_rb,0.79117e+02_rb,0.10117e+03_rb,0.13489e+03_rb /)\n      kbo(:, 2,52,16) = (/ &\n        & 0.12703e+03_rb,0.95276e+02_rb,0.72382e+02_rb,0.93082e+02_rb,0.12411e+03_rb /)\n      kbo(:, 3,52,16) = (/ &\n        & 0.11888e+03_rb,0.89162e+02_rb,0.66631e+02_rb,0.85943e+02_rb,0.11459e+03_rb /)\n      kbo(:, 4,52,16) = (/ &\n        & 0.11155e+03_rb,0.83666e+02_rb,0.61557e+02_rb,0.79542e+02_rb,0.10606e+03_rb /)\n      kbo(:, 5,52,16) = (/ &\n        & 0.10475e+03_rb,0.78563e+02_rb,0.57053e+02_rb,0.73794e+02_rb,0.98392e+02_rb /)\n      kbo(:, 1,53,16) = (/ &\n        & 0.13969e+03_rb,0.10477e+03_rb,0.81852e+02_rb,0.10445e+03_rb,0.13926e+03_rb /)\n      kbo(:, 2,53,16) = (/ &\n        & 0.13021e+03_rb,0.97660e+02_rb,0.74731e+02_rb,0.95923e+02_rb,0.12790e+03_rb /)\n      kbo(:, 3,53,16) = (/ &\n        & 0.12178e+03_rb,0.91333e+02_rb,0.68644e+02_rb,0.88461e+02_rb,0.11795e+03_rb /)\n      kbo(:, 4,53,16) = (/ &\n        & 0.11417e+03_rb,0.85628e+02_rb,0.63346e+02_rb,0.81812e+02_rb,0.10908e+03_rb /)\n      kbo(:, 5,53,16) = (/ &\n        & 0.10716e+03_rb,0.80376e+02_rb,0.58630e+02_rb,0.75816e+02_rb,0.10109e+03_rb /)\n      kbo(:, 1,54,16) = (/ &\n        & 0.14312e+03_rb,0.10734e+03_rb,0.84505e+02_rb,0.10757e+03_rb,0.14343e+03_rb /)\n      kbo(:, 2,54,16) = (/ &\n        & 0.13326e+03_rb,0.99943e+02_rb,0.77008e+02_rb,0.98653e+02_rb,0.13154e+03_rb /)\n      kbo(:, 3,54,16) = (/ &\n        & 0.12453e+03_rb,0.93400e+02_rb,0.70583e+02_rb,0.90867e+02_rb,0.12116e+03_rb /)\n      kbo(:, 4,54,16) = (/ &\n        & 0.11663e+03_rb,0.87472e+02_rb,0.65055e+02_rb,0.83971e+02_rb,0.11196e+03_rb /)\n      kbo(:, 5,54,16) = (/ &\n        & 0.10944e+03_rb,0.82085e+02_rb,0.60143e+02_rb,0.77761e+02_rb,0.10368e+03_rb /)\n      kbo(:, 1,55,16) = (/ &\n        & 0.14652e+03_rb,0.10989e+03_rb,0.87185e+02_rb,0.11072e+03_rb,0.14762e+03_rb /)\n      kbo(:, 2,55,16) = (/ &\n        & 0.13631e+03_rb,0.10223e+03_rb,0.79292e+02_rb,0.10139e+03_rb,0.13518e+03_rb /)\n      kbo(:, 3,55,16) = (/ &\n        & 0.12725e+03_rb,0.95436e+02_rb,0.72534e+02_rb,0.93260e+02_rb,0.12435e+03_rb /)\n      kbo(:, 4,55,16) = (/ &\n        & 0.11908e+03_rb,0.89315e+02_rb,0.66761e+02_rb,0.86100e+02_rb,0.11480e+03_rb /)\n      kbo(:, 5,55,16) = (/ &\n        & 0.11172e+03_rb,0.83789e+02_rb,0.61666e+02_rb,0.79683e+02_rb,0.10624e+03_rb /)\n      kbo(:, 1,56,16) = (/ &\n        & 0.15005e+03_rb,0.11254e+03_rb,0.89964e+02_rb,0.11399e+03_rb,0.15199e+03_rb /)\n      kbo(:, 2,56,16) = (/ &\n        & 0.13946e+03_rb,0.10459e+03_rb,0.81673e+02_rb,0.10424e+03_rb,0.13899e+03_rb /)\n      kbo(:, 3,56,16) = (/ &\n        & 0.13002e+03_rb,0.97512e+02_rb,0.74583e+02_rb,0.95730e+02_rb,0.12764e+03_rb /)\n      kbo(:, 4,56,16) = (/ &\n        & 0.12160e+03_rb,0.91205e+02_rb,0.68519e+02_rb,0.88312e+02_rb,0.11775e+03_rb /)\n      kbo(:, 5,56,16) = (/ &\n        & 0.11401e+03_rb,0.85509e+02_rb,0.63233e+02_rb,0.81665e+02_rb,0.10889e+03_rb /)\n      kbo(:, 1,57,16) = (/ &\n        & 0.15367e+03_rb,0.11525e+03_rb,0.92893e+02_rb,0.11745e+03_rb,0.15659e+03_rb /)\n      kbo(:, 2,57,16) = (/ &\n        & 0.14273e+03_rb,0.10705e+03_rb,0.84201e+02_rb,0.10722e+03_rb,0.14296e+03_rb /)\n      kbo(:, 3,57,16) = (/ &\n        & 0.13291e+03_rb,0.99681e+02_rb,0.76750e+02_rb,0.98336e+02_rb,0.13111e+03_rb /)\n      kbo(:, 4,57,16) = (/ &\n        & 0.12423e+03_rb,0.93171e+02_rb,0.70357e+02_rb,0.90589e+02_rb,0.12079e+03_rb /)\n      kbo(:, 5,57,16) = (/ &\n        & 0.11636e+03_rb,0.87269e+02_rb,0.64859e+02_rb,0.83719e+02_rb,0.11162e+03_rb /)\n      kbo(:, 1,58,16) = (/ &\n        & 0.15720e+03_rb,0.11790e+03_rb,0.95809e+02_rb,0.12090e+03_rb,0.16121e+03_rb /)\n      kbo(:, 2,58,16) = (/ &\n        & 0.14594e+03_rb,0.10946e+03_rb,0.86713e+02_rb,0.11017e+03_rb,0.14690e+03_rb /)\n      kbo(:, 3,58,16) = (/ &\n        & 0.13577e+03_rb,0.10183e+03_rb,0.78898e+02_rb,0.10090e+03_rb,0.13454e+03_rb /)\n      kbo(:, 4,58,16) = (/ &\n        & 0.12678e+03_rb,0.95087e+02_rb,0.72188e+02_rb,0.92844e+02_rb,0.12379e+03_rb /)\n      kbo(:, 5,58,16) = (/ &\n        & 0.11865e+03_rb,0.88989e+02_rb,0.66460e+02_rb,0.85728e+02_rb,0.11430e+03_rb /)\n      kbo(:, 1,59,16) = (/ &\n        & 0.15867e+03_rb,0.11900e+03_rb,0.97023e+02_rb,0.12235e+03_rb,0.16313e+03_rb /)\n      kbo(:, 2,59,16) = (/ &\n        & 0.14725e+03_rb,0.11044e+03_rb,0.87747e+02_rb,0.11139e+03_rb,0.14852e+03_rb /)\n      kbo(:, 3,59,16) = (/ &\n        & 0.13696e+03_rb,0.10272e+03_rb,0.79780e+02_rb,0.10196e+03_rb,0.13595e+03_rb /)\n      kbo(:, 4,59,16) = (/ &\n        & 0.12782e+03_rb,0.95865e+02_rb,0.72946e+02_rb,0.93765e+02_rb,0.12502e+03_rb /)\n      kbo(:, 5,59,16) = (/ &\n        & 0.11961e+03_rb,0.89706e+02_rb,0.67116e+02_rb,0.86544e+02_rb,0.11539e+03_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.110008e-06_rb, 0.630912e-06_rb, 0.363159e-05_rb, 0.616892e-05_rb /)\n      forrefo(:, 2) = (/ 0.429709e-05_rb, 0.789174e-05_rb, 0.217416e-04_rb, 0.639393e-04_rb /)\n      forrefo(:, 3) = (/ 0.436283e-04_rb, 0.526247e-04_rb, 0.116341e-03_rb, 0.205616e-03_rb /)\n      forrefo(:, 4) = (/ 0.215627e-03_rb, 0.234522e-03_rb, 0.280497e-03_rb, 0.838668e-03_rb /)\n      forrefo(:, 5) = (/ 0.529283e-03_rb, 0.620848e-03_rb, 0.935561e-03_rb, 0.171252e-02_rb /)\n      forrefo(:, 6) = (/ 0.212267e-02_rb, 0.218564e-02_rb, 0.222227e-02_rb, 0.199650e-02_rb /)\n      forrefo(:, 7) = (/ 0.291120e-02_rb, 0.281168e-02_rb, 0.259543e-02_rb, 0.210159e-02_rb /)\n      forrefo(:, 8) = (/ 0.316249e-02_rb, 0.310695e-02_rb, 0.279501e-02_rb, 0.208076e-02_rb /)\n      forrefo(:, 9) = (/ 0.354993e-02_rb, 0.336989e-02_rb, 0.298930e-02_rb, 0.180424e-02_rb /)\n      forrefo(:,10) = (/ 0.397729e-02_rb, 0.367409e-02_rb, 0.328982e-02_rb, 0.177807e-02_rb /)\n      forrefo(:,11) = (/ 0.408831e-02_rb, 0.398792e-02_rb, 0.352727e-02_rb, 0.192470e-02_rb /)\n      forrefo(:,12) = (/ 0.433926e-02_rb, 0.420667e-02_rb, 0.383894e-02_rb, 0.220836e-02_rb /)\n      forrefo(:,13) = (/ 0.436397e-02_rb, 0.433769e-02_rb, 0.425752e-02_rb, 0.237343e-02_rb /)\n      forrefo(:,14) = (/ 0.440525e-02_rb, 0.449018e-02_rb, 0.451881e-02_rb, 0.269169e-02_rb /)\n      forrefo(:,15) = (/ 0.491350e-02_rb, 0.481760e-02_rb, 0.475799e-02_rb, 0.362666e-02_rb /)\n      forrefo(:,16) = (/ 0.561641e-02_rb, 0.524553e-02_rb, 0.512473e-02_rb, 0.493802e-02_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.115887e-03_rb, 0.926537e-04_rb, 0.740783e-04_rb, 0.592270e-04_rb, 0.473530e-04_rb, &\n        &  0.378596e-04_rb, 0.302694e-04_rb, 0.242010e-04_rb, 0.193491e-04_rb, 0.154700e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.459557e-03_rb, 0.381962e-03_rb, 0.317469e-03_rb, 0.263866e-03_rb, 0.219313e-03_rb, &\n        &  0.182283e-03_rb, 0.151505e-03_rb, 0.125924e-03_rb, 0.104662e-03_rb, 0.869904e-04_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.166821e-02_rb, 0.151103e-02_rb, 0.136866e-02_rb, 0.123970e-02_rb, 0.112290e-02_rb, &\n        &  0.101710e-02_rb, 0.921266e-03_rb, 0.834463e-03_rb, 0.755839e-03_rb, 0.684623e-03_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.460175e-02_rb, 0.421372e-02_rb, 0.385842e-02_rb, 0.353307e-02_rb, 0.323516e-02_rb, &\n        &  0.296236e-02_rb, 0.271257e-02_rb, 0.248385e-02_rb, 0.227440e-02_rb, 0.208262e-02_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.101589e-01_rb, 0.924742e-02_rb, 0.841772e-02_rb, 0.766247e-02_rb, 0.697497e-02_rb, &\n        &  0.634917e-02_rb, 0.577951e-02_rb, 0.526096e-02_rb, 0.478893e-02_rb, 0.435926e-02_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.328043e-01_rb, 0.300853e-01_rb, 0.275917e-01_rb, 0.253048e-01_rb, 0.232075e-01_rb, &\n        &  0.212839e-01_rb, 0.195198e-01_rb, 0.179020e-01_rb, 0.164182e-01_rb, 0.150574e-01_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.405936e-01_rb, 0.376032e-01_rb, 0.348331e-01_rb, 0.322671e-01_rb, 0.298901e-01_rb, &\n        &  0.276883e-01_rb, 0.256486e-01_rb, 0.237591e-01_rb, 0.220089e-01_rb, 0.203876e-01_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.448362e-01_rb, 0.413811e-01_rb, 0.381923e-01_rb, 0.352492e-01_rb, 0.325329e-01_rb, &\n        &  0.300259e-01_rb, 0.277121e-01_rb, 0.255766e-01_rb, 0.236056e-01_rb, 0.217866e-01_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.479741e-01_rb, 0.445389e-01_rb, 0.413497e-01_rb, 0.383889e-01_rb, 0.356400e-01_rb, &\n        &  0.330880e-01_rb, 0.307188e-01_rb, 0.285191e-01_rb, 0.264770e-01_rb, 0.245812e-01_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.519308e-01_rb, 0.484130e-01_rb, 0.451335e-01_rb, 0.420761e-01_rb, 0.392259e-01_rb, &\n        &  0.365687e-01_rb, 0.340916e-01_rb, 0.317822e-01_rb, 0.296293e-01_rb, 0.276222e-01_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.572039e-01_rb, 0.527780e-01_rb, 0.486945e-01_rb, 0.449270e-01_rb, 0.414510e-01_rb, &\n        &  0.382439e-01_rb, 0.352849e-01_rb, 0.325549e-01_rb, 0.300361e-01_rb, 0.277122e-01_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.601046e-01_rb, 0.554411e-01_rb, 0.511395e-01_rb, 0.471716e-01_rb, 0.435116e-01_rb, &\n        &  0.401356e-01_rb, 0.370215e-01_rb, 0.341490e-01_rb, 0.314994e-01_rb, 0.290554e-01_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.616595e-01_rb, 0.567145e-01_rb, 0.521662e-01_rb, 0.479826e-01_rb, 0.441346e-01_rb, &\n        &  0.405951e-01_rb, 0.373395e-01_rb, 0.343450e-01_rb, 0.315906e-01_rb, 0.290571e-01_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.647916e-01_rb, 0.592493e-01_rb, 0.541811e-01_rb, 0.495465e-01_rb, 0.453083e-01_rb, &\n        &  0.414326e-01_rb, 0.378885e-01_rb, 0.346475e-01_rb, 0.316837e-01_rb, 0.289735e-01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.694231e-01_rb, 0.637703e-01_rb, 0.585777e-01_rb, 0.538079e-01_rb, 0.494265e-01_rb, &\n        &  0.454019e-01_rb, 0.417050e-01_rb, 0.383091e-01_rb, 0.351897e-01_rb, 0.323244e-01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.761764e-01_rb, 0.701815e-01_rb, 0.646584e-01_rb, 0.595700e-01_rb, 0.548820e-01_rb, &\n        &  0.505629e-01_rb, 0.465838e-01_rb, 0.429178e-01_rb, 0.395403e-01_rb, 0.364286e-01_rb /)\n     \n      end subroutine sw_kgb21\n\n! **************************************************************************\n      subroutine sw_kgb22\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            rayl, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:, 1) = (/ &\n        & 3.71641_rb    ,3.63190_rb    ,3.44795_rb    ,3.17936_rb    , &\n        & 2.86071_rb    ,2.48490_rb    ,2.02471_rb    ,1.52475_rb    , &\n        & 1.03811_rb    ,0.113272_rb   ,9.37115e-02_rb,7.38969e-02_rb, &\n        & 5.44713e-02_rb,3.45905e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 2) = (/ &\n        & 3.73933_rb    ,3.60360_rb    ,3.43370_rb    ,3.19749_rb    , & \n        & 2.87747_rb    ,2.47926_rb    ,2.02175_rb    ,1.52010_rb    , &\n        & 1.03612_rb    ,0.113265_rb   ,9.37145e-02_rb,7.38951e-02_rb, &\n        & 5.44714e-02_rb,3.45906e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 3) = (/ &\n        & 3.73889_rb    ,3.60279_rb    ,3.43404_rb    ,3.20560_rb    , &\n        & 2.87367_rb    ,2.47515_rb    ,2.02412_rb    ,1.52315_rb    , &\n        & 1.03146_rb    ,0.113272_rb   ,9.36707e-02_rb,7.39080e-02_rb, &\n        & 5.44598e-02_rb,3.45906e-02_rb,1.30293e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 4) = (/ &\n        & 3.73801_rb    ,3.60530_rb    ,3.43659_rb    ,3.20640_rb    , &\n        & 2.87039_rb    ,2.47330_rb    ,2.02428_rb    ,1.52509_rb    , &\n        & 1.03037_rb    ,0.112553_rb   ,9.35352e-02_rb,7.39675e-02_rb, &\n        & 5.43951e-02_rb,3.45669e-02_rb,1.30292e-02_rb,1.84198e-03_rb /)\n      sfluxrefo(:, 5) = (/ &\n        & 3.73809_rb    ,3.60996_rb    ,3.43602_rb    ,3.20364_rb    , &\n        & 2.87005_rb    ,2.47343_rb    ,2.02353_rb    ,1.52617_rb    , &\n        & 1.03138_rb    ,0.111172_rb   ,9.29885e-02_rb,7.35034e-02_rb, &\n        & 5.42427e-02_rb,3.45732e-02_rb,1.30169e-02_rb,1.84550e-03_rb /)\n      sfluxrefo(:, 6) = (/ &\n        & 3.73872_rb    ,3.62054_rb    ,3.42934_rb    ,3.20110_rb    , &\n        & 2.86886_rb    ,2.47379_rb    ,2.02237_rb    ,1.52754_rb    , & \n        & 1.03228_rb    ,0.111597_rb   ,9.12252e-02_rb,7.33115e-02_rb, &\n        & 5.35600e-02_rb,3.45187e-02_rb,1.30184e-02_rb,1.84551e-03_rb /)\n      sfluxrefo(:, 7) = (/ &\n        & 3.73969_rb    ,3.65461_rb    ,3.40646_rb    ,3.19082_rb    , &\n        & 2.86919_rb    ,2.47289_rb    ,2.02312_rb    ,1.52629_rb    , &\n        & 1.03329_rb    ,0.111611_rb   ,9.16275e-02_rb,7.14731e-02_rb, &\n        & 5.31771e-02_rb,3.44980e-02_rb,1.30190e-02_rb,1.84551e-03_rb /)\n      sfluxrefo(:, 8) = (/ &\n        & 3.73995_rb    ,3.65348_rb    ,3.43707_rb    ,3.16351_rb    , &\n        & 2.87003_rb    ,2.47392_rb    ,2.02114_rb    ,1.52548_rb    , & \n        & 1.03306_rb    ,0.111088_rb   ,9.12422e-02_rb,7.11146e-02_rb, &\n        & 5.31333e-02_rb,3.45302e-02_rb,1.30209e-02_rb,1.84554e-03_rb /)\n      sfluxrefo(:, 9) = (/ &\n        & 3.73788_rb    ,3.65004_rb    ,3.46938_rb    ,3.15236_rb    , &\n        & 2.86381_rb    ,2.47393_rb    ,2.01715_rb    ,1.52134_rb    , &\n        & 1.03163_rb    ,0.111259_rb   ,9.12948e-02_rb,7.09999e-02_rb, &\n        & 5.31792e-02_rb,3.44955e-02_rb,1.30189e-02_rb,1.84551e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 8000 cm-1.\n      rayl = 1.54e-08_rb\n\n      strrat = 0.022708_rb\n\n      layreffr = 2\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.14658e-08_rb,0.32044e-07_rb,0.36289e-07_rb,0.38717e-07_rb,0.40590e-07_rb, &\n        & 0.43330e-07_rb,0.46916e-07_rb,0.56519e-07_rb,0.42446e-07_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.17883e-08_rb,0.36129e-07_rb,0.40724e-07_rb,0.43498e-07_rb,0.45371e-07_rb, &\n        & 0.47093e-07_rb,0.51195e-07_rb,0.58562e-07_rb,0.44474e-07_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.21286e-08_rb,0.46092e-07_rb,0.53991e-07_rb,0.59439e-07_rb,0.63497e-07_rb, &\n        & 0.66730e-07_rb,0.70296e-07_rb,0.83990e-07_rb,0.65058e-07_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.24816e-08_rb,0.43399e-07_rb,0.49167e-07_rb,0.52969e-07_rb,0.55586e-07_rb, &\n        & 0.57260e-07_rb,0.58809e-07_rb,0.64046e-07_rb,0.48780e-07_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.28409e-08_rb,0.46683e-07_rb,0.53128e-07_rb,0.57526e-07_rb,0.60605e-07_rb, &\n        & 0.62715e-07_rb,0.64284e-07_rb,0.67579e-07_rb,0.52346e-07_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.10965e-08_rb,0.24934e-07_rb,0.28268e-07_rb,0.30156e-07_rb,0.31820e-07_rb, &\n        & 0.34498e-07_rb,0.36563e-07_rb,0.46609e-07_rb,0.30202e-07_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.13538e-08_rb,0.28338e-07_rb,0.31923e-07_rb,0.34048e-07_rb,0.35529e-07_rb, &\n        & 0.37136e-07_rb,0.41583e-07_rb,0.46831e-07_rb,0.32817e-07_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.16260e-08_rb,0.36648e-07_rb,0.42882e-07_rb,0.47128e-07_rb,0.50288e-07_rb, &\n        & 0.52851e-07_rb,0.56093e-07_rb,0.70511e-07_rb,0.48182e-07_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.19102e-08_rb,0.39471e-07_rb,0.46225e-07_rb,0.50974e-07_rb,0.54565e-07_rb, &\n        & 0.57380e-07_rb,0.60079e-07_rb,0.67707e-07_rb,0.50168e-07_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.22030e-08_rb,0.37203e-07_rb,0.42234e-07_rb,0.45622e-07_rb,0.47990e-07_rb, &\n        & 0.49546e-07_rb,0.50777e-07_rb,0.53867e-07_rb,0.39769e-07_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.77844e-09_rb,0.18777e-07_rb,0.21347e-07_rb,0.22946e-07_rb,0.24368e-07_rb, &\n        & 0.25870e-07_rb,0.28084e-07_rb,0.39197e-07_rb,0.20196e-07_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.97891e-09_rb,0.21591e-07_rb,0.24379e-07_rb,0.25974e-07_rb,0.27213e-07_rb, &\n        & 0.29039e-07_rb,0.31487e-07_rb,0.37725e-07_rb,0.23228e-07_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.11949e-08_rb,0.24305e-07_rb,0.27342e-07_rb,0.29177e-07_rb,0.30428e-07_rb, &\n        & 0.31562e-07_rb,0.34299e-07_rb,0.39267e-07_rb,0.23943e-07_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.14225e-08_rb,0.30991e-07_rb,0.36244e-07_rb,0.39880e-07_rb,0.42596e-07_rb, &\n        & 0.44752e-07_rb,0.47132e-07_rb,0.56253e-07_rb,0.37250e-07_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.16586e-08_rb,0.29152e-07_rb,0.32988e-07_rb,0.35508e-07_rb,0.37264e-07_rb, &\n        & 0.38387e-07_rb,0.39417e-07_rb,0.42936e-07_rb,0.29439e-07_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.53935e-09_rb,0.13922e-07_rb,0.15779e-07_rb,0.16979e-07_rb,0.18157e-07_rb, &\n        & 0.19199e-07_rb,0.22168e-07_rb,0.31060e-07_rb,0.13772e-07_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.69404e-09_rb,0.16220e-07_rb,0.18381e-07_rb,0.19646e-07_rb,0.20841e-07_rb, &\n        & 0.22407e-07_rb,0.23846e-07_rb,0.31992e-07_rb,0.15532e-07_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.86327e-09_rb,0.18514e-07_rb,0.20845e-07_rb,0.22209e-07_rb,0.23196e-07_rb, &\n        & 0.24396e-07_rb,0.27026e-07_rb,0.31067e-07_rb,0.17116e-07_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.10436e-08_rb,0.20666e-07_rb,0.23248e-07_rb,0.24835e-07_rb,0.25904e-07_rb, &\n        & 0.26757e-07_rb,0.28384e-07_rb,0.33085e-07_rb,0.19320e-07_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.12327e-08_rb,0.26056e-07_rb,0.30481e-07_rb,0.33580e-07_rb,0.35908e-07_rb, &\n        & 0.37744e-07_rb,0.39586e-07_rb,0.45434e-07_rb,0.29787e-07_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.36905e-09_rb,0.10245e-07_rb,0.11596e-07_rb,0.12576e-07_rb,0.13293e-07_rb, &\n        & 0.14477e-07_rb,0.18355e-07_rb,0.25395e-07_rb,0.95950e-08_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.48708e-09_rb,0.12119e-07_rb,0.13746e-07_rb,0.14791e-07_rb,0.15718e-07_rb, &\n        & 0.16646e-07_rb,0.18396e-07_rb,0.25737e-07_rb,0.10793e-07_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.61847e-09_rb,0.13998e-07_rb,0.15813e-07_rb,0.16851e-07_rb,0.17722e-07_rb, &\n        & 0.19232e-07_rb,0.20414e-07_rb,0.25223e-07_rb,0.12354e-07_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.76052e-09_rb,0.15846e-07_rb,0.17816e-07_rb,0.18991e-07_rb,0.19806e-07_rb, &\n        & 0.20628e-07_rb,0.23016e-07_rb,0.25874e-07_rb,0.14269e-07_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.91109e-09_rb,0.20382e-07_rb,0.23823e-07_rb,0.26180e-07_rb,0.27929e-07_rb, &\n        & 0.29345e-07_rb,0.31039e-07_rb,0.38471e-07_rb,0.22626e-07_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.24637e-09_rb,0.74144e-08_rb,0.83997e-08_rb,0.90789e-08_rb,0.97769e-08_rb, &\n        & 0.11308e-07_rb,0.14223e-07_rb,0.20837e-07_rb,0.66398e-08_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.33527e-09_rb,0.89450e-08_rb,0.10119e-07_rb,0.10892e-07_rb,0.11613e-07_rb, &\n        & 0.12382e-07_rb,0.14900e-07_rb,0.20638e-07_rb,0.76422e-08_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.43587e-09_rb,0.10479e-07_rb,0.11902e-07_rb,0.12737e-07_rb,0.13564e-07_rb, &\n        & 0.14416e-07_rb,0.15545e-07_rb,0.21677e-07_rb,0.89455e-08_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.54672e-09_rb,0.12017e-07_rb,0.13540e-07_rb,0.14423e-07_rb,0.15090e-07_rb, &\n        & 0.16030e-07_rb,0.17496e-07_rb,0.20678e-07_rb,0.10490e-07_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.66579e-09_rb,0.13493e-07_rb,0.15163e-07_rb,0.16178e-07_rb,0.16873e-07_rb, &\n        & 0.17474e-07_rb,0.18852e-07_rb,0.21699e-07_rb,0.12216e-07_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.16149e-09_rb,0.53201e-08_rb,0.60079e-08_rb,0.65349e-08_rb,0.72837e-08_rb, &\n        & 0.90792e-08_rb,0.11028e-07_rb,0.15917e-07_rb,0.45574e-08_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.22765e-09_rb,0.65457e-08_rb,0.74143e-08_rb,0.80126e-08_rb,0.85152e-08_rb, &\n        & 0.94934e-08_rb,0.12210e-07_rb,0.16917e-07_rb,0.54301e-08_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.30418e-09_rb,0.77971e-08_rb,0.88287e-08_rb,0.94927e-08_rb,0.10154e-07_rb, &\n        & 0.10712e-07_rb,0.12099e-07_rb,0.16996e-07_rb,0.64594e-08_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.38990e-09_rb,0.90563e-08_rb,0.10243e-07_rb,0.10928e-07_rb,0.11554e-07_rb, &\n        & 0.12512e-07_rb,0.13254e-07_rb,0.17320e-07_rb,0.76835e-08_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.48334e-09_rb,0.10307e-07_rb,0.11588e-07_rb,0.12345e-07_rb,0.12884e-07_rb, &\n        & 0.13512e-07_rb,0.15051e-07_rb,0.17108e-07_rb,0.90662e-08_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.10442e-09_rb,0.37895e-08_rb,0.42781e-08_rb,0.47285e-08_rb,0.55672e-08_rb, &\n        & 0.67246e-08_rb,0.87615e-08_rb,0.12496e-07_rb,0.31063e-08_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.15294e-09_rb,0.47545e-08_rb,0.53771e-08_rb,0.58176e-08_rb,0.63249e-08_rb, &\n        & 0.74935e-08_rb,0.93024e-08_rb,0.13484e-07_rb,0.38514e-08_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.21056e-09_rb,0.57727e-08_rb,0.65270e-08_rb,0.70416e-08_rb,0.74786e-08_rb, &\n        & 0.80475e-08_rb,0.10012e-07_rb,0.13784e-07_rb,0.46496e-08_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.27636e-09_rb,0.67987e-08_rb,0.77111e-08_rb,0.82983e-08_rb,0.87947e-08_rb, &\n        & 0.93313e-08_rb,0.10204e-07_rb,0.14244e-07_rb,0.56141e-08_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.34924e-09_rb,0.78297e-08_rb,0.88319e-08_rb,0.94055e-08_rb,0.98667e-08_rb, &\n        & 0.10620e-07_rb,0.11396e-07_rb,0.13825e-07_rb,0.67139e-08_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.66385e-10_rb,0.26743e-08_rb,0.30313e-08_rb,0.34595e-08_rb,0.42156e-08_rb, &\n        & 0.50940e-08_rb,0.66728e-08_rb,0.10021e-07_rb,0.20965e-08_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.10109e-09_rb,0.34278e-08_rb,0.38685e-08_rb,0.42217e-08_rb,0.47673e-08_rb, &\n        & 0.59120e-08_rb,0.72992e-08_rb,0.10438e-07_rb,0.27321e-08_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.14405e-09_rb,0.42386e-08_rb,0.48029e-08_rb,0.51840e-08_rb,0.55416e-08_rb, &\n        & 0.62759e-08_rb,0.79851e-08_rb,0.11314e-07_rb,0.33332e-08_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.19414e-09_rb,0.50774e-08_rb,0.57440e-08_rb,0.61764e-08_rb,0.66005e-08_rb, &\n        & 0.69887e-08_rb,0.81552e-08_rb,0.11319e-07_rb,0.40828e-08_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.25056e-09_rb,0.59198e-08_rb,0.67025e-08_rb,0.71627e-08_rb,0.76155e-08_rb, &\n        & 0.81557e-08_rb,0.87035e-08_rb,0.11788e-07_rb,0.49512e-08_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.43147e-10_rb,0.19136e-08_rb,0.21883e-08_rb,0.26153e-08_rb,0.31055e-08_rb, &\n        & 0.39720e-08_rb,0.51107e-08_rb,0.84498e-08_rb,0.15100e-08_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.68069e-10_rb,0.25012e-08_rb,0.28230e-08_rb,0.31278e-08_rb,0.37084e-08_rb, &\n        & 0.44577e-08_rb,0.58316e-08_rb,0.82732e-08_rb,0.20294e-08_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.10013e-09_rb,0.31445e-08_rb,0.35530e-08_rb,0.38466e-08_rb,0.41961e-08_rb, &\n        & 0.50063e-08_rb,0.61960e-08_rb,0.89421e-08_rb,0.24447e-08_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.13837e-09_rb,0.38258e-08_rb,0.43236e-08_rb,0.46732e-08_rb,0.49545e-08_rb, &\n        & 0.53447e-08_rb,0.67172e-08_rb,0.92217e-08_rb,0.30274e-08_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.18212e-09_rb,0.45123e-08_rb,0.51146e-08_rb,0.55026e-08_rb,0.58368e-08_rb, &\n        & 0.61896e-08_rb,0.67974e-08_rb,0.94910e-08_rb,0.36975e-08_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.35238e-10_rb,0.15650e-08_rb,0.17900e-08_rb,0.21398e-08_rb,0.25395e-08_rb, &\n        & 0.32442e-08_rb,0.41684e-08_rb,0.68456e-08_rb,0.12890e-08_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.55588e-10_rb,0.20451e-08_rb,0.23079e-08_rb,0.25570e-08_rb,0.30342e-08_rb, &\n        & 0.36465e-08_rb,0.47717e-08_rb,0.67353e-08_rb,0.16499e-08_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.81825e-10_rb,0.25719e-08_rb,0.29058e-08_rb,0.31458e-08_rb,0.34324e-08_rb, &\n        & 0.40982e-08_rb,0.50669e-08_rb,0.73083e-08_rb,0.20031e-08_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.11311e-09_rb,0.31293e-08_rb,0.35365e-08_rb,0.38229e-08_rb,0.40518e-08_rb, &\n        & 0.43730e-08_rb,0.54993e-08_rb,0.75470e-08_rb,0.24754e-08_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.14891e-09_rb,0.36915e-08_rb,0.41839e-08_rb,0.45010e-08_rb,0.47744e-08_rb, &\n        & 0.50622e-08_rb,0.55621e-08_rb,0.77689e-08_rb,0.30237e-08_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.28851e-10_rb,0.12816e-08_rb,0.14656e-08_rb,0.17508e-08_rb,0.20791e-08_rb, &\n        & 0.26542e-08_rb,0.34061e-08_rb,0.55940e-08_rb,0.10876e-08_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.45511e-10_rb,0.16747e-08_rb,0.18898e-08_rb,0.20935e-08_rb,0.24841e-08_rb, &\n        & 0.29844e-08_rb,0.39040e-08_rb,0.54988e-08_rb,0.13569e-08_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.66972e-10_rb,0.21053e-08_rb,0.23788e-08_rb,0.25750e-08_rb,0.28091e-08_rb, &\n        & 0.33541e-08_rb,0.41474e-08_rb,0.59783e-08_rb,0.16488e-08_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.92606e-10_rb,0.25620e-08_rb,0.28952e-08_rb,0.31304e-08_rb,0.33162e-08_rb, &\n        & 0.35801e-08_rb,0.45003e-08_rb,0.61789e-08_rb,0.20293e-08_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.12192e-09_rb,0.30226e-08_rb,0.34255e-08_rb,0.36843e-08_rb,0.39084e-08_rb, &\n        & 0.41445e-08_rb,0.45524e-08_rb,0.63605e-08_rb,0.24756e-08_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.23621e-10_rb,0.10494e-08_rb,0.11996e-08_rb,0.14331e-08_rb,0.17023e-08_rb, &\n        & 0.21711e-08_rb,0.27844e-08_rb,0.45532e-08_rb,0.89489e-09_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.37261e-10_rb,0.13712e-08_rb,0.15471e-08_rb,0.17138e-08_rb,0.20333e-08_rb, &\n        & 0.24433e-08_rb,0.31958e-08_rb,0.44925e-08_rb,0.11124e-08_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.54831e-10_rb,0.17238e-08_rb,0.19475e-08_rb,0.21082e-08_rb,0.23003e-08_rb, &\n        & 0.27446e-08_rb,0.33959e-08_rb,0.48947e-08_rb,0.13514e-08_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.75799e-10_rb,0.20971e-08_rb,0.23698e-08_rb,0.25624e-08_rb,0.27143e-08_rb, &\n        & 0.29304e-08_rb,0.36822e-08_rb,0.50589e-08_rb,0.16628e-08_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.99820e-10_rb,0.24745e-08_rb,0.28041e-08_rb,0.30159e-08_rb,0.31995e-08_rb, &\n        & 0.33924e-08_rb,0.37279e-08_rb,0.52074e-08_rb,0.20270e-08_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.13785e-07_rb,0.24738e-06_rb,0.32984e-06_rb,0.38970e-06_rb,0.43737e-06_rb, &\n        & 0.50889e-06_rb,0.56985e-06_rb,0.52821e-06_rb,0.22857e-06_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.15768e-07_rb,0.27583e-06_rb,0.36371e-06_rb,0.42333e-06_rb,0.46175e-06_rb, &\n        & 0.50608e-06_rb,0.57108e-06_rb,0.57199e-06_rb,0.21992e-06_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.17740e-07_rb,0.31295e-06_rb,0.41668e-06_rb,0.48111e-06_rb,0.52105e-06_rb, &\n        & 0.56257e-06_rb,0.61638e-06_rb,0.64253e-06_rb,0.25630e-06_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.19676e-07_rb,0.33378e-06_rb,0.43874e-06_rb,0.50021e-06_rb,0.53506e-06_rb, &\n        & 0.56909e-06_rb,0.60800e-06_rb,0.63155e-06_rb,0.24206e-06_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.21537e-07_rb,0.36160e-06_rb,0.47596e-06_rb,0.54056e-06_rb,0.57557e-06_rb, &\n        & 0.60002e-06_rb,0.61606e-06_rb,0.61827e-06_rb,0.25207e-06_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.10621e-07_rb,0.19636e-06_rb,0.26336e-06_rb,0.31062e-06_rb,0.35012e-06_rb, &\n        & 0.41219e-06_rb,0.46827e-06_rb,0.42345e-06_rb,0.16044e-06_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.12238e-07_rb,0.21970e-06_rb,0.28920e-06_rb,0.33755e-06_rb,0.37073e-06_rb, &\n        & 0.41004e-06_rb,0.46315e-06_rb,0.45777e-06_rb,0.15877e-06_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.13863e-07_rb,0.24955e-06_rb,0.33252e-06_rb,0.38359e-06_rb,0.41679e-06_rb, &\n        & 0.45237e-06_rb,0.50277e-06_rb,0.51752e-06_rb,0.18617e-06_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.15467e-07_rb,0.27294e-06_rb,0.36292e-06_rb,0.41560e-06_rb,0.44818e-06_rb, &\n        & 0.47909e-06_rb,0.51811e-06_rb,0.54528e-06_rb,0.19311e-06_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.17013e-07_rb,0.28946e-06_rb,0.38040e-06_rb,0.43177e-06_rb,0.46055e-06_rb, &\n        & 0.48627e-06_rb,0.50036e-06_rb,0.50711e-06_rb,0.19056e-06_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.79041e-08_rb,0.15193e-06_rb,0.20367e-06_rb,0.24255e-06_rb,0.27584e-06_rb, &\n        & 0.33106e-06_rb,0.39018e-06_rb,0.33367e-06_rb,0.10147e-06_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.92256e-08_rb,0.17005e-06_rb,0.22457e-06_rb,0.26442e-06_rb,0.29755e-06_rb, &\n        & 0.33937e-06_rb,0.38659e-06_rb,0.36019e-06_rb,0.10982e-06_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.10548e-07_rb,0.18874e-06_rb,0.24827e-06_rb,0.28648e-06_rb,0.31109e-06_rb, &\n        & 0.33996e-06_rb,0.38319e-06_rb,0.38934e-06_rb,0.11953e-06_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.11869e-07_rb,0.21314e-06_rb,0.28402e-06_rb,0.32565e-06_rb,0.35249e-06_rb, &\n        & 0.38039e-06_rb,0.41637e-06_rb,0.43423e-06_rb,0.13779e-06_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.13170e-07_rb,0.22682e-06_rb,0.29805e-06_rb,0.33849e-06_rb,0.36193e-06_rb, &\n        & 0.38387e-06_rb,0.41078e-06_rb,0.42298e-06_rb,0.13819e-06_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.57872e-08_rb,0.11704e-06_rb,0.15599e-06_rb,0.19092e-06_rb,0.22043e-06_rb, &\n        & 0.26778e-06_rb,0.30128e-06_rb,0.25769e-06_rb,0.68111e-07_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.68505e-08_rb,0.13037e-06_rb,0.17389e-06_rb,0.20556e-06_rb,0.23194e-06_rb, &\n        & 0.27485e-06_rb,0.31447e-06_rb,0.28139e-06_rb,0.78259e-07_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.79353e-08_rb,0.14574e-06_rb,0.19135e-06_rb,0.22328e-06_rb,0.24623e-06_rb, &\n        & 0.27497e-06_rb,0.31125e-06_rb,0.30440e-06_rb,0.85397e-07_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.90207e-08_rb,0.16075e-06_rb,0.21140e-06_rb,0.24210e-06_rb,0.26199e-06_rb, &\n        & 0.28412e-06_rb,0.31832e-06_rb,0.32424e-06_rb,0.93374e-07_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.10099e-07_rb,0.18068e-06_rb,0.24072e-06_rb,0.27515e-06_rb,0.29704e-06_rb, &\n        & 0.31830e-06_rb,0.34575e-06_rb,0.36301e-06_rb,0.10959e-06_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.42071e-08_rb,0.88799e-07_rb,0.11974e-06_rb,0.15503e-06_rb,0.18473e-06_rb, &\n        & 0.21750e-06_rb,0.23111e-06_rb,0.19568e-06_rb,0.47645e-07_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.50589e-08_rb,0.10003e-06_rb,0.13353e-06_rb,0.15994e-06_rb,0.18265e-06_rb, &\n        & 0.22030e-06_rb,0.25851e-06_rb,0.22196e-06_rb,0.56400e-07_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.59363e-08_rb,0.11183e-06_rb,0.14743e-06_rb,0.17446e-06_rb,0.19617e-06_rb, &\n        & 0.22887e-06_rb,0.25813e-06_rb,0.23893e-06_rb,0.62471e-07_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.68265e-08_rb,0.12408e-06_rb,0.16316e-06_rb,0.18879e-06_rb,0.20540e-06_rb, &\n        & 0.22681e-06_rb,0.25640e-06_rb,0.25817e-06_rb,0.69233e-07_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.77164e-08_rb,0.14022e-06_rb,0.18715e-06_rb,0.21470e-06_rb,0.23265e-06_rb, &\n        & 0.25223e-06_rb,0.27783e-06_rb,0.28837e-06_rb,0.82855e-07_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.30108e-08_rb,0.66997e-07_rb,0.92811e-07_rb,0.12074e-06_rb,0.15295e-06_rb, &\n        & 0.17839e-06_rb,0.17246e-06_rb,0.14892e-06_rb,0.33739e-07_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.36900e-08_rb,0.76605e-07_rb,0.10196e-06_rb,0.12672e-06_rb,0.14857e-06_rb, &\n        & 0.17805e-06_rb,0.19825e-06_rb,0.16899e-06_rb,0.40438e-07_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.43974e-08_rb,0.85358e-07_rb,0.11411e-06_rb,0.13507e-06_rb,0.15283e-06_rb, &\n        & 0.18257e-06_rb,0.21172e-06_rb,0.18597e-06_rb,0.46134e-07_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.51213e-08_rb,0.95538e-07_rb,0.12544e-06_rb,0.14691e-06_rb,0.16455e-06_rb, &\n        & 0.18481e-06_rb,0.20979e-06_rb,0.20070e-06_rb,0.51618e-07_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.58500e-08_rb,0.10543e-06_rb,0.13870e-06_rb,0.15918e-06_rb,0.17259e-06_rb, &\n        & 0.18830e-06_rb,0.21165e-06_rb,0.21507e-06_rb,0.58184e-07_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.21343e-08_rb,0.50731e-07_rb,0.73677e-07_rb,0.95876e-07_rb,0.12180e-06_rb, &\n        & 0.14539e-06_rb,0.12792e-06_rb,0.11548e-06_rb,0.24049e-07_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.26695e-08_rb,0.57886e-07_rb,0.78431e-07_rb,0.10179e-06_rb,0.12404e-06_rb, &\n        & 0.14498e-06_rb,0.15075e-06_rb,0.12789e-06_rb,0.28929e-07_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.32350e-08_rb,0.65356e-07_rb,0.87120e-07_rb,0.10537e-06_rb,0.12108e-06_rb, &\n        & 0.14722e-06_rb,0.16980e-06_rb,0.14529e-06_rb,0.34426e-07_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.38202e-08_rb,0.73009e-07_rb,0.96634e-07_rb,0.11454e-06_rb,0.12893e-06_rb, &\n        & 0.15239e-06_rb,0.17280e-06_rb,0.15699e-06_rb,0.38936e-07_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.44151e-08_rb,0.81203e-07_rb,0.10676e-06_rb,0.12425e-06_rb,0.13576e-06_rb, &\n        & 0.15119e-06_rb,0.17122e-06_rb,0.16974e-06_rb,0.43692e-07_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.15010e-08_rb,0.38595e-07_rb,0.58295e-07_rb,0.77729e-07_rb,0.98683e-07_rb, &\n        & 0.10992e-06_rb,0.95145e-07_rb,0.92252e-07_rb,0.17319e-07_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.19201e-08_rb,0.43791e-07_rb,0.61750e-07_rb,0.79921e-07_rb,0.10136e-06_rb, &\n        & 0.11894e-06_rb,0.11276e-06_rb,0.97846e-07_rb,0.20720e-07_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.23693e-08_rb,0.50071e-07_rb,0.66873e-07_rb,0.85063e-07_rb,0.10052e-06_rb, &\n        & 0.11892e-06_rb,0.13009e-06_rb,0.11045e-06_rb,0.25527e-07_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.28395e-08_rb,0.55947e-07_rb,0.74757e-07_rb,0.88934e-07_rb,0.10114e-06_rb, &\n        & 0.12142e-06_rb,0.14341e-06_rb,0.12281e-06_rb,0.28938e-07_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.33227e-08_rb,0.62620e-07_rb,0.82343e-07_rb,0.96807e-07_rb,0.10922e-06_rb, &\n        & 0.12542e-06_rb,0.14247e-06_rb,0.13252e-06_rb,0.32804e-07_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.10437e-08_rb,0.30107e-07_rb,0.47694e-07_rb,0.63218e-07_rb,0.80199e-07_rb, &\n        & 0.81465e-07_rb,0.70748e-07_rb,0.72461e-07_rb,0.12620e-07_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.13691e-08_rb,0.33315e-07_rb,0.48674e-07_rb,0.63756e-07_rb,0.81165e-07_rb, &\n        & 0.96892e-07_rb,0.83814e-07_rb,0.76311e-07_rb,0.14799e-07_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.17229e-08_rb,0.37985e-07_rb,0.51777e-07_rb,0.67272e-07_rb,0.83770e-07_rb, &\n        & 0.97220e-07_rb,0.98951e-07_rb,0.84136e-07_rb,0.18369e-07_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.20990e-08_rb,0.43091e-07_rb,0.57320e-07_rb,0.69933e-07_rb,0.81214e-07_rb, &\n        & 0.98518e-07_rb,0.11188e-06_rb,0.95453e-07_rb,0.21724e-07_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.24895e-08_rb,0.48030e-07_rb,0.63808e-07_rb,0.75595e-07_rb,0.85237e-07_rb, &\n        & 0.10122e-06_rb,0.11598e-06_rb,0.10350e-06_rb,0.24792e-07_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.73565e-09_rb,0.23201e-07_rb,0.38192e-07_rb,0.51890e-07_rb,0.66677e-07_rb, &\n        & 0.60941e-07_rb,0.53794e-07_rb,0.57060e-07_rb,0.95538e-08_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.98838e-09_rb,0.25706e-07_rb,0.38945e-07_rb,0.51950e-07_rb,0.65881e-07_rb, &\n        & 0.73501e-07_rb,0.63459e-07_rb,0.61276e-07_rb,0.10909e-07_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.12675e-08_rb,0.29153e-07_rb,0.41180e-07_rb,0.53354e-07_rb,0.67729e-07_rb, &\n        & 0.79616e-07_rb,0.75117e-07_rb,0.65122e-07_rb,0.13531e-07_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.15675e-08_rb,0.33329e-07_rb,0.44560e-07_rb,0.57066e-07_rb,0.67627e-07_rb, &\n        & 0.79638e-07_rb,0.86678e-07_rb,0.73448e-07_rb,0.16804e-07_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.18817e-08_rb,0.37257e-07_rb,0.49746e-07_rb,0.59306e-07_rb,0.67554e-07_rb, &\n        & 0.81218e-07_rb,0.96337e-07_rb,0.82154e-07_rb,0.18958e-07_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.60140e-09_rb,0.19007e-07_rb,0.31253e-07_rb,0.42433e-07_rb,0.54566e-07_rb, &\n        & 0.50044e-07_rb,0.44177e-07_rb,0.46695e-07_rb,0.77009e-08_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.80782e-09_rb,0.21033e-07_rb,0.31865e-07_rb,0.42505e-07_rb,0.53930e-07_rb, &\n        & 0.60271e-07_rb,0.51969e-07_rb,0.49836e-07_rb,0.88971e-08_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.10365e-08_rb,0.23860e-07_rb,0.33711e-07_rb,0.43668e-07_rb,0.55447e-07_rb, &\n        & 0.65129e-07_rb,0.61514e-07_rb,0.53242e-07_rb,0.11044e-07_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.12819e-08_rb,0.27278e-07_rb,0.36477e-07_rb,0.46671e-07_rb,0.55334e-07_rb, &\n        & 0.65191e-07_rb,0.70955e-07_rb,0.60123e-07_rb,0.13732e-07_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.15394e-08_rb,0.30488e-07_rb,0.40723e-07_rb,0.48551e-07_rb,0.55301e-07_rb, &\n        & 0.66490e-07_rb,0.78877e-07_rb,0.67264e-07_rb,0.15488e-07_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.49234e-09_rb,0.15554e-07_rb,0.25575e-07_rb,0.34616e-07_rb,0.44615e-07_rb, &\n        & 0.41056e-07_rb,0.36097e-07_rb,0.38091e-07_rb,0.62448e-08_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.66141e-09_rb,0.17225e-07_rb,0.26080e-07_rb,0.34787e-07_rb,0.44118e-07_rb, &\n        & 0.49432e-07_rb,0.42531e-07_rb,0.40718e-07_rb,0.72624e-08_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.84839e-09_rb,0.19539e-07_rb,0.27604e-07_rb,0.35754e-07_rb,0.45370e-07_rb, &\n        & 0.53306e-07_rb,0.50418e-07_rb,0.43565e-07_rb,0.90256e-08_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.10495e-08_rb,0.22342e-07_rb,0.29867e-07_rb,0.38196e-07_rb,0.45322e-07_rb, &\n        & 0.53368e-07_rb,0.58112e-07_rb,0.49244e-07_rb,0.11197e-07_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.12604e-08_rb,0.24969e-07_rb,0.33348e-07_rb,0.39742e-07_rb,0.45269e-07_rb, &\n        & 0.54454e-07_rb,0.64580e-07_rb,0.55079e-07_rb,0.12657e-07_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.40306e-09_rb,0.12738e-07_rb,0.20936e-07_rb,0.28312e-07_rb,0.36505e-07_rb, &\n        & 0.33674e-07_rb,0.29525e-07_rb,0.31139e-07_rb,0.51040e-08_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.54151e-09_rb,0.14106e-07_rb,0.21346e-07_rb,0.28471e-07_rb,0.36139e-07_rb, &\n        & 0.40516e-07_rb,0.34830e-07_rb,0.33325e-07_rb,0.59425e-08_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.69468e-09_rb,0.15999e-07_rb,0.22600e-07_rb,0.29268e-07_rb,0.37150e-07_rb, &\n        & 0.43635e-07_rb,0.41297e-07_rb,0.35646e-07_rb,0.73862e-08_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.85913e-09_rb,0.18290e-07_rb,0.24452e-07_rb,0.31282e-07_rb,0.37096e-07_rb, &\n        & 0.43709e-07_rb,0.47585e-07_rb,0.40319e-07_rb,0.91581e-08_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.10319e-08_rb,0.20440e-07_rb,0.27299e-07_rb,0.32532e-07_rb,0.37047e-07_rb, &\n        & 0.44575e-07_rb,0.52880e-07_rb,0.45086e-07_rb,0.10367e-07_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.77542e-07_rb,0.72331e-06_rb,0.98561e-06_rb,0.11860e-05_rb,0.13497e-05_rb, &\n        & 0.13448e-05_rb,0.13214e-05_rb,0.14401e-05_rb,0.51217e-06_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.83965e-07_rb,0.81202e-06_rb,0.11096e-05_rb,0.13150e-05_rb,0.14966e-05_rb, &\n        & 0.14837e-05_rb,0.13715e-05_rb,0.14446e-05_rb,0.53558e-06_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.89893e-07_rb,0.91147e-06_rb,0.12494e-05_rb,0.14817e-05_rb,0.16581e-05_rb, &\n        & 0.16379e-05_rb,0.14913e-05_rb,0.13540e-05_rb,0.57527e-06_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.95336e-07_rb,0.98977e-06_rb,0.13580e-05_rb,0.16044e-05_rb,0.17602e-05_rb, &\n        & 0.17289e-05_rb,0.15601e-05_rb,0.13435e-05_rb,0.60153e-06_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.10024e-06_rb,0.10817e-05_rb,0.14820e-05_rb,0.17354e-05_rb,0.18806e-05_rb, &\n        & 0.18468e-05_rb,0.16817e-05_rb,0.14550e-05_rb,0.63092e-06_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.61222e-07_rb,0.57382e-06_rb,0.78272e-06_rb,0.94950e-06_rb,0.10796e-05_rb, &\n        & 0.10829e-05_rb,0.10794e-05_rb,0.12292e-05_rb,0.35440e-06_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.66652e-07_rb,0.64604e-06_rb,0.88511e-06_rb,0.10523e-05_rb,0.12028e-05_rb, &\n        & 0.11924e-05_rb,0.11103e-05_rb,0.11987e-05_rb,0.38232e-06_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.71672e-07_rb,0.73084e-06_rb,0.10012e-05_rb,0.11880e-05_rb,0.13384e-05_rb, &\n        & 0.13220e-05_rb,0.12030e-05_rb,0.11381e-05_rb,0.43262e-06_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.76301e-07_rb,0.80259e-06_rb,0.11033e-05_rb,0.13071e-05_rb,0.14343e-05_rb, &\n        & 0.14171e-05_rb,0.12785e-05_rb,0.11080e-05_rb,0.46030e-06_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.80500e-07_rb,0.87105e-06_rb,0.11939e-05_rb,0.14005e-05_rb,0.15153e-05_rb, &\n        & 0.14864e-05_rb,0.13529e-05_rb,0.11688e-05_rb,0.48117e-06_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.47304e-07_rb,0.44051e-06_rb,0.60584e-06_rb,0.74769e-06_rb,0.84468e-06_rb, &\n        & 0.85077e-06_rb,0.85665e-06_rb,0.10494e-05_rb,0.24668e-06_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.51943e-07_rb,0.50181e-06_rb,0.68762e-06_rb,0.82034e-06_rb,0.93657e-06_rb, &\n        & 0.92789e-06_rb,0.88766e-06_rb,0.99297e-06_rb,0.26836e-06_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.56252e-07_rb,0.56363e-06_rb,0.77259e-06_rb,0.91469e-06_rb,0.10403e-05_rb, &\n        & 0.10243e-05_rb,0.93713e-06_rb,0.99098e-06_rb,0.29882e-06_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.60224e-07_rb,0.63130e-06_rb,0.86724e-06_rb,0.10288e-05_rb,0.11344e-05_rb, &\n        & 0.11222e-05_rb,0.10162e-05_rb,0.91320e-06_rb,0.33854e-06_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.63868e-07_rb,0.68673e-06_rb,0.94084e-06_rb,0.11069e-05_rb,0.12001e-05_rb, &\n        & 0.11819e-05_rb,0.10625e-05_rb,0.91639e-06_rb,0.36042e-06_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.36151e-07_rb,0.33292e-06_rb,0.46957e-06_rb,0.57176e-06_rb,0.64965e-06_rb, &\n        & 0.66578e-06_rb,0.71030e-06_rb,0.90686e-06_rb,0.17407e-06_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.40107e-07_rb,0.38424e-06_rb,0.52571e-06_rb,0.63554e-06_rb,0.72553e-06_rb, &\n        & 0.72856e-06_rb,0.72697e-06_rb,0.84339e-06_rb,0.19253e-06_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.43816e-07_rb,0.43401e-06_rb,0.59546e-06_rb,0.70644e-06_rb,0.80752e-06_rb, &\n        & 0.79519e-06_rb,0.74520e-06_rb,0.81506e-06_rb,0.21830e-06_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.47242e-07_rb,0.48695e-06_rb,0.66577e-06_rb,0.78531e-06_rb,0.87970e-06_rb, &\n        & 0.86799e-06_rb,0.78705e-06_rb,0.76812e-06_rb,0.24161e-06_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.50394e-07_rb,0.54183e-06_rb,0.74240e-06_rb,0.87572e-06_rb,0.95669e-06_rb, &\n        & 0.94640e-06_rb,0.85379e-06_rb,0.74722e-06_rb,0.28102e-06_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.27462e-07_rb,0.25134e-06_rb,0.35698e-06_rb,0.43146e-06_rb,0.48552e-06_rb, &\n        & 0.53177e-06_rb,0.62976e-06_rb,0.75904e-06_rb,0.12452e-06_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.30835e-07_rb,0.29261e-06_rb,0.40164e-06_rb,0.49701e-06_rb,0.56250e-06_rb, &\n        & 0.56722e-06_rb,0.57761e-06_rb,0.72004e-06_rb,0.13996e-06_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.33997e-07_rb,0.33394e-06_rb,0.45684e-06_rb,0.54380e-06_rb,0.62140e-06_rb, &\n        & 0.61241e-06_rb,0.60037e-06_rb,0.67265e-06_rb,0.16106e-06_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.36946e-07_rb,0.37590e-06_rb,0.51390e-06_rb,0.60628e-06_rb,0.69027e-06_rb, &\n        & 0.67692e-06_rb,0.62237e-06_rb,0.67035e-06_rb,0.18128e-06_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.39670e-07_rb,0.42211e-06_rb,0.57710e-06_rb,0.68190e-06_rb,0.75209e-06_rb, &\n        & 0.74450e-06_rb,0.67496e-06_rb,0.61709e-06_rb,0.21416e-06_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.20602e-07_rb,0.18703e-06_rb,0.26972e-06_rb,0.33456e-06_rb,0.36532e-06_rb, &\n        & 0.42767e-06_rb,0.56721e-06_rb,0.66482e-06_rb,0.87936e-07_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.23484e-07_rb,0.21971e-06_rb,0.30953e-06_rb,0.37643e-06_rb,0.42627e-06_rb, &\n        & 0.44517e-06_rb,0.48560e-06_rb,0.61604e-06_rb,0.10185e-06_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.26181e-07_rb,0.25382e-06_rb,0.34607e-06_rb,0.41971e-06_rb,0.47851e-06_rb, &\n        & 0.48129e-06_rb,0.48156e-06_rb,0.56916e-06_rb,0.11864e-06_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.28705e-07_rb,0.28735e-06_rb,0.39181e-06_rb,0.46499e-06_rb,0.52971e-06_rb, &\n        & 0.52262e-06_rb,0.49397e-06_rb,0.54792e-06_rb,0.13605e-06_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.31065e-07_rb,0.32265e-06_rb,0.43948e-06_rb,0.51712e-06_rb,0.58131e-06_rb, &\n        & 0.57275e-06_rb,0.52154e-06_rb,0.53300e-06_rb,0.15326e-06_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.15315e-07_rb,0.13867e-06_rb,0.20497e-06_rb,0.25791e-06_rb,0.28251e-06_rb, &\n        & 0.36209e-06_rb,0.48615e-06_rb,0.57617e-06_rb,0.62083e-07_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.17770e-07_rb,0.16467e-06_rb,0.23430e-06_rb,0.28445e-06_rb,0.31749e-06_rb, &\n        & 0.35373e-06_rb,0.43530e-06_rb,0.51750e-06_rb,0.74598e-07_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.20071e-07_rb,0.19194e-06_rb,0.26349e-06_rb,0.32575e-06_rb,0.37090e-06_rb, &\n        & 0.37391e-06_rb,0.38838e-06_rb,0.49613e-06_rb,0.88392e-07_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.22230e-07_rb,0.21953e-06_rb,0.29840e-06_rb,0.35680e-06_rb,0.40841e-06_rb, &\n        & 0.40516e-06_rb,0.40513e-06_rb,0.45518e-06_rb,0.10149e-06_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.24244e-07_rb,0.24730e-06_rb,0.33583e-06_rb,0.39740e-06_rb,0.45364e-06_rb, &\n        & 0.44496e-06_rb,0.41471e-06_rb,0.45022e-06_rb,0.11554e-06_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.11318e-07_rb,0.10309e-06_rb,0.15679e-06_rb,0.19765e-06_rb,0.22300e-06_rb, &\n        & 0.30242e-06_rb,0.40824e-06_rb,0.49442e-06_rb,0.44061e-07_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.13358e-07_rb,0.12273e-06_rb,0.17705e-06_rb,0.22062e-06_rb,0.24115e-06_rb, &\n        & 0.28999e-06_rb,0.39012e-06_rb,0.45451e-06_rb,0.54847e-07_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.15323e-07_rb,0.14448e-06_rb,0.20316e-06_rb,0.24566e-06_rb,0.27787e-06_rb, &\n        & 0.29655e-06_rb,0.33237e-06_rb,0.41480e-06_rb,0.64157e-07_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.17158e-07_rb,0.16673e-06_rb,0.22673e-06_rb,0.27760e-06_rb,0.31491e-06_rb, &\n        & 0.31778e-06_rb,0.31818e-06_rb,0.38422e-06_rb,0.75698e-07_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.18880e-07_rb,0.18905e-06_rb,0.25711e-06_rb,0.30558e-06_rb,0.34820e-06_rb, &\n        & 0.34226e-06_rb,0.32757e-06_rb,0.36903e-06_rb,0.87559e-07_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.83060e-08_rb,0.76710e-07_rb,0.11565e-06_rb,0.14764e-06_rb,0.17329e-06_rb, &\n        & 0.25783e-06_rb,0.35957e-06_rb,0.41243e-06_rb,0.31797e-07_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.99651e-08_rb,0.91242e-07_rb,0.13632e-06_rb,0.17065e-06_rb,0.18967e-06_rb, &\n        & 0.24393e-06_rb,0.32914e-06_rb,0.39160e-06_rb,0.39225e-07_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.11621e-07_rb,0.10845e-06_rb,0.15426e-06_rb,0.18813e-06_rb,0.20803e-06_rb, &\n        & 0.23565e-06_rb,0.29600e-06_rb,0.35083e-06_rb,0.47417e-07_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.13182e-07_rb,0.12617e-06_rb,0.17363e-06_rb,0.21434e-06_rb,0.24338e-06_rb, &\n        & 0.24767e-06_rb,0.26174e-06_rb,0.33967e-06_rb,0.56851e-07_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.14647e-07_rb,0.14462e-06_rb,0.19609e-06_rb,0.23554e-06_rb,0.26966e-06_rb, &\n        & 0.27000e-06_rb,0.26860e-06_rb,0.30941e-06_rb,0.65848e-07_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.61513e-08_rb,0.59201e-07_rb,0.89564e-07_rb,0.11096e-06_rb,0.13963e-06_rb, &\n        & 0.22868e-06_rb,0.30519e-06_rb,0.34949e-06_rb,0.23910e-07_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.74969e-08_rb,0.68921e-07_rb,0.10513e-06_rb,0.13256e-06_rb,0.14959e-06_rb, &\n        & 0.20339e-06_rb,0.27500e-06_rb,0.33281e-06_rb,0.28611e-07_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.88625e-08_rb,0.82016e-07_rb,0.11818e-06_rb,0.14725e-06_rb,0.16097e-06_rb, &\n        & 0.19608e-06_rb,0.26185e-06_rb,0.30530e-06_rb,0.35935e-07_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.10184e-07_rb,0.96432e-07_rb,0.13542e-06_rb,0.16348e-06_rb,0.18477e-06_rb, &\n        & 0.19886e-06_rb,0.22449e-06_rb,0.27787e-06_rb,0.42133e-07_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.11421e-07_rb,0.11117e-06_rb,0.15107e-06_rb,0.18528e-06_rb,0.21005e-06_rb, &\n        & 0.21209e-06_rb,0.21257e-06_rb,0.25796e-06_rb,0.49988e-07_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.50310e-08_rb,0.48563e-07_rb,0.73473e-07_rb,0.91094e-07_rb,0.11455e-06_rb, &\n        & 0.18734e-06_rb,0.24995e-06_rb,0.28620e-06_rb,0.19440e-07_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.61304e-08_rb,0.56532e-07_rb,0.86340e-07_rb,0.10878e-06_rb,0.12244e-06_rb, &\n        & 0.16646e-06_rb,0.22541e-06_rb,0.27316e-06_rb,0.23338e-07_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.72491e-08_rb,0.67226e-07_rb,0.96798e-07_rb,0.12061e-06_rb,0.13181e-06_rb, &\n        & 0.16043e-06_rb,0.21436e-06_rb,0.24928e-06_rb,0.29352e-07_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.83326e-08_rb,0.78998e-07_rb,0.11085e-06_rb,0.13391e-06_rb,0.15135e-06_rb, &\n        & 0.16281e-06_rb,0.18360e-06_rb,0.22741e-06_rb,0.34425e-07_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.93458e-08_rb,0.91055e-07_rb,0.12364e-06_rb,0.15181e-06_rb,0.17196e-06_rb, &\n        & 0.17367e-06_rb,0.17400e-06_rb,0.21108e-06_rb,0.40855e-07_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.41189e-08_rb,0.39856e-07_rb,0.60140e-07_rb,0.74963e-07_rb,0.94012e-07_rb, &\n        & 0.15333e-06_rb,0.20441e-06_rb,0.23474e-06_rb,0.15853e-07_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.50193e-08_rb,0.46348e-07_rb,0.70855e-07_rb,0.89301e-07_rb,0.10040e-06_rb, &\n        & 0.13626e-06_rb,0.18429e-06_rb,0.22399e-06_rb,0.19078e-07_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.59344e-08_rb,0.55100e-07_rb,0.79255e-07_rb,0.98783e-07_rb,0.10799e-06_rb, &\n        & 0.13125e-06_rb,0.17544e-06_rb,0.20357e-06_rb,0.24013e-07_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.68228e-08_rb,0.64743e-07_rb,0.90843e-07_rb,0.10971e-06_rb,0.12396e-06_rb, &\n        & 0.13321e-06_rb,0.15026e-06_rb,0.18611e-06_rb,0.28198e-07_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.76512e-08_rb,0.74591e-07_rb,0.10123e-06_rb,0.12433e-06_rb,0.14085e-06_rb, &\n        & 0.14222e-06_rb,0.14246e-06_rb,0.17276e-06_rb,0.33441e-07_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.33724e-08_rb,0.32680e-07_rb,0.49222e-07_rb,0.61513e-07_rb,0.77133e-07_rb, &\n        & 0.12555e-06_rb,0.16713e-06_rb,0.19233e-06_rb,0.12966e-07_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.41100e-08_rb,0.37987e-07_rb,0.58121e-07_rb,0.73233e-07_rb,0.82218e-07_rb, &\n        & 0.11156e-06_rb,0.15077e-06_rb,0.18269e-06_rb,0.15614e-07_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.48589e-08_rb,0.45157e-07_rb,0.64912e-07_rb,0.80902e-07_rb,0.88466e-07_rb, &\n        & 0.10747e-06_rb,0.14360e-06_rb,0.16616e-06_rb,0.19653e-07_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.55845e-08_rb,0.53032e-07_rb,0.74357e-07_rb,0.89835e-07_rb,0.10150e-06_rb, &\n        & 0.10902e-06_rb,0.12309e-06_rb,0.15231e-06_rb,0.23083e-07_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.62642e-08_rb,0.61086e-07_rb,0.82886e-07_rb,0.10172e-06_rb,0.11529e-06_rb, &\n        & 0.11645e-06_rb,0.11667e-06_rb,0.14140e-06_rb,0.27368e-07_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.38523e-06_rb,0.18405e-05_rb,0.24561e-05_rb,0.26688e-05_rb,0.26627e-05_rb, &\n        & 0.26678e-05_rb,0.26221e-05_rb,0.23434e-05_rb,0.10243e-05_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.41258e-06_rb,0.20340e-05_rb,0.26799e-05_rb,0.29289e-05_rb,0.29138e-05_rb, &\n        & 0.29293e-05_rb,0.29106e-05_rb,0.25138e-05_rb,0.11179e-05_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.43826e-06_rb,0.22391e-05_rb,0.29055e-05_rb,0.31733e-05_rb,0.31848e-05_rb, &\n        & 0.32210e-05_rb,0.31726e-05_rb,0.29277e-05_rb,0.13122e-05_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.46214e-06_rb,0.24098e-05_rb,0.30735e-05_rb,0.33543e-05_rb,0.34157e-05_rb, &\n        & 0.34436e-05_rb,0.34008e-05_rb,0.32157e-05_rb,0.14111e-05_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.48360e-06_rb,0.25684e-05_rb,0.32470e-05_rb,0.35527e-05_rb,0.36650e-05_rb, &\n        & 0.37054e-05_rb,0.36463e-05_rb,0.35130e-05_rb,0.16128e-05_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.30632e-06_rb,0.14811e-05_rb,0.19813e-05_rb,0.21525e-05_rb,0.21480e-05_rb, &\n        & 0.21651e-05_rb,0.21352e-05_rb,0.19097e-05_rb,0.76078e-06_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.32924e-06_rb,0.16454e-05_rb,0.21736e-05_rb,0.23701e-05_rb,0.23496e-05_rb, &\n        & 0.23721e-05_rb,0.23664e-05_rb,0.20501e-05_rb,0.85884e-06_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.35084e-06_rb,0.18164e-05_rb,0.23625e-05_rb,0.25754e-05_rb,0.25799e-05_rb, &\n        & 0.26089e-05_rb,0.25758e-05_rb,0.23569e-05_rb,0.98156e-06_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.37092e-06_rb,0.19724e-05_rb,0.25182e-05_rb,0.27461e-05_rb,0.27987e-05_rb, &\n        & 0.28122e-05_rb,0.27766e-05_rb,0.26535e-05_rb,0.11297e-05_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.38936e-06_rb,0.20952e-05_rb,0.26519e-05_rb,0.29005e-05_rb,0.29889e-05_rb, &\n        & 0.30120e-05_rb,0.29564e-05_rb,0.28641e-05_rb,0.12488e-05_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.23924e-06_rb,0.11590e-05_rb,0.15536e-05_rb,0.16834e-05_rb,0.16891e-05_rb, &\n        & 0.17668e-05_rb,0.16904e-05_rb,0.15951e-05_rb,0.52632e-06_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.25864e-06_rb,0.12971e-05_rb,0.17221e-05_rb,0.18731e-05_rb,0.18563e-05_rb, &\n        & 0.18804e-05_rb,0.18628e-05_rb,0.16576e-05_rb,0.62738e-06_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.27696e-06_rb,0.14325e-05_rb,0.18710e-05_rb,0.20345e-05_rb,0.20276e-05_rb, &\n        & 0.20548e-05_rb,0.20259e-05_rb,0.17837e-05_rb,0.70461e-06_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.29413e-06_rb,0.15757e-05_rb,0.20191e-05_rb,0.22050e-05_rb,0.22319e-05_rb, &\n        & 0.22354e-05_rb,0.22195e-05_rb,0.20885e-05_rb,0.84521e-06_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.31013e-06_rb,0.16829e-05_rb,0.21333e-05_rb,0.23274e-05_rb,0.23871e-05_rb, &\n        & 0.23939e-05_rb,0.23475e-05_rb,0.22805e-05_rb,0.93762e-06_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.18537e-06_rb,0.89469e-06_rb,0.11953e-05_rb,0.13099e-05_rb,0.13271e-05_rb, &\n        & 0.13910e-05_rb,0.13233e-05_rb,0.12842e-05_rb,0.37595e-06_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.20178e-06_rb,0.10096e-05_rb,0.13476e-05_rb,0.14636e-05_rb,0.14567e-05_rb, &\n        & 0.14730e-05_rb,0.14642e-05_rb,0.13131e-05_rb,0.45273e-06_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.21732e-06_rb,0.11251e-05_rb,0.14779e-05_rb,0.16107e-05_rb,0.15945e-05_rb, &\n        & 0.16194e-05_rb,0.16016e-05_rb,0.14026e-05_rb,0.52023e-06_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.23198e-06_rb,0.12348e-05_rb,0.15955e-05_rb,0.17391e-05_rb,0.17432e-05_rb, &\n        & 0.17515e-05_rb,0.17226e-05_rb,0.15707e-05_rb,0.60921e-06_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.24566e-06_rb,0.13471e-05_rb,0.17138e-05_rb,0.18677e-05_rb,0.19071e-05_rb, &\n        & 0.19021e-05_rb,0.18647e-05_rb,0.18054e-05_rb,0.72437e-06_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.14315e-06_rb,0.68654e-06_rb,0.91703e-06_rb,0.10136e-05_rb,0.10640e-05_rb, &\n        & 0.10899e-05_rb,0.10066e-05_rb,0.10387e-05_rb,0.27115e-06_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.15693e-06_rb,0.78124e-06_rb,0.10460e-05_rb,0.11319e-05_rb,0.11350e-05_rb, &\n        & 0.11836e-05_rb,0.11463e-05_rb,0.10954e-05_rb,0.33462e-06_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.17013e-06_rb,0.87619e-06_rb,0.11607e-05_rb,0.12633e-05_rb,0.12502e-05_rb, &\n        & 0.12683e-05_rb,0.12476e-05_rb,0.11184e-05_rb,0.38421e-06_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.18255e-06_rb,0.96990e-06_rb,0.12617e-05_rb,0.13726e-05_rb,0.13641e-05_rb, &\n        & 0.13787e-05_rb,0.13521e-05_rb,0.11952e-05_rb,0.45446e-06_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.19427e-06_rb,0.10668e-05_rb,0.13642e-05_rb,0.14869e-05_rb,0.15021e-05_rb, &\n        & 0.14945e-05_rb,0.14801e-05_rb,0.13920e-05_rb,0.54371e-06_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.10978e-06_rb,0.52395e-06_rb,0.69476e-06_rb,0.76850e-06_rb,0.83675e-06_rb, &\n        & 0.86491e-06_rb,0.77625e-06_rb,0.85871e-06_rb,0.19533e-06_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.12132e-06_rb,0.59825e-06_rb,0.79672e-06_rb,0.87685e-06_rb,0.88945e-06_rb, &\n        & 0.93176e-06_rb,0.88241e-06_rb,0.87959e-06_rb,0.24185e-06_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.13245e-06_rb,0.67730e-06_rb,0.90458e-06_rb,0.97978e-06_rb,0.97457e-06_rb, &\n        & 0.98659e-06_rb,0.98199e-06_rb,0.88654e-06_rb,0.28188e-06_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.14304e-06_rb,0.75520e-06_rb,0.99285e-06_rb,0.10803e-05_rb,0.10647e-05_rb, &\n        & 0.10764e-05_rb,0.10623e-05_rb,0.93315e-06_rb,0.33738e-06_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.15298e-06_rb,0.83133e-06_rb,0.10714e-05_rb,0.11654e-05_rb,0.11612e-05_rb, &\n        & 0.11628e-05_rb,0.11409e-05_rb,0.10211e-05_rb,0.39343e-06_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.83795e-07_rb,0.39583e-06_rb,0.52221e-06_rb,0.57623e-06_rb,0.66801e-06_rb, &\n        & 0.68350e-06_rb,0.61427e-06_rb,0.74508e-06_rb,0.14027e-06_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.93456e-07_rb,0.45651e-06_rb,0.60707e-06_rb,0.67267e-06_rb,0.70886e-06_rb, &\n        & 0.72875e-06_rb,0.66655e-06_rb,0.70837e-06_rb,0.17333e-06_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.10278e-06_rb,0.52065e-06_rb,0.69548e-06_rb,0.75346e-06_rb,0.75243e-06_rb, &\n        & 0.79752e-06_rb,0.76130e-06_rb,0.73768e-06_rb,0.20746e-06_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.11172e-06_rb,0.58539e-06_rb,0.77614e-06_rb,0.84147e-06_rb,0.82956e-06_rb, &\n        & 0.83892e-06_rb,0.81830e-06_rb,0.74649e-06_rb,0.24711e-06_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.12020e-06_rb,0.64890e-06_rb,0.84430e-06_rb,0.91375e-06_rb,0.90365e-06_rb, &\n        & 0.91211e-06_rb,0.89073e-06_rb,0.78796e-06_rb,0.29290e-06_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.63771e-07_rb,0.29724e-06_rb,0.38901e-06_rb,0.42952e-06_rb,0.53569e-06_rb, &\n        & 0.52739e-06_rb,0.51421e-06_rb,0.65416e-06_rb,0.10106e-06_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.71835e-07_rb,0.34855e-06_rb,0.45895e-06_rb,0.50927e-06_rb,0.55878e-06_rb, &\n        & 0.57413e-06_rb,0.51386e-06_rb,0.58703e-06_rb,0.12396e-06_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.79626e-07_rb,0.39836e-06_rb,0.52930e-06_rb,0.58238e-06_rb,0.59321e-06_rb, &\n        & 0.61917e-06_rb,0.58275e-06_rb,0.59574e-06_rb,0.15556e-06_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.87141e-07_rb,0.45236e-06_rb,0.60287e-06_rb,0.64978e-06_rb,0.64621e-06_rb, &\n        & 0.65548e-06_rb,0.65037e-06_rb,0.59243e-06_rb,0.18170e-06_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.94308e-07_rb,0.50478e-06_rb,0.66216e-06_rb,0.71791e-06_rb,0.70542e-06_rb, &\n        & 0.71265e-06_rb,0.70440e-06_rb,0.61750e-06_rb,0.21806e-06_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.48334e-07_rb,0.22150e-06_rb,0.29066e-06_rb,0.32650e-06_rb,0.41774e-06_rb, &\n        & 0.40737e-06_rb,0.44502e-06_rb,0.56524e-06_rb,0.72879e-07_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.54994e-07_rb,0.26340e-06_rb,0.34441e-06_rb,0.38160e-06_rb,0.44410e-06_rb, &\n        & 0.45746e-06_rb,0.41390e-06_rb,0.50482e-06_rb,0.89924e-07_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.61501e-07_rb,0.30416e-06_rb,0.40299e-06_rb,0.44693e-06_rb,0.47253e-06_rb, &\n        & 0.48623e-06_rb,0.44624e-06_rb,0.47646e-06_rb,0.11220e-06_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.67792e-07_rb,0.34758e-06_rb,0.46191e-06_rb,0.50102e-06_rb,0.50055e-06_rb, &\n        & 0.52975e-06_rb,0.50335e-06_rb,0.48665e-06_rb,0.13456e-06_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.73830e-07_rb,0.39095e-06_rb,0.51738e-06_rb,0.55894e-06_rb,0.55048e-06_rb, &\n        & 0.55492e-06_rb,0.54317e-06_rb,0.49144e-06_rb,0.16088e-06_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.36931e-07_rb,0.16614e-06_rb,0.21895e-06_rb,0.26116e-06_rb,0.33023e-06_rb, &\n        & 0.31438e-06_rb,0.35810e-06_rb,0.46819e-06_rb,0.53649e-07_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.42386e-07_rb,0.20028e-06_rb,0.26120e-06_rb,0.28858e-06_rb,0.36090e-06_rb, &\n        & 0.35506e-06_rb,0.34639e-06_rb,0.43640e-06_rb,0.66551e-07_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.47801e-07_rb,0.23474e-06_rb,0.30842e-06_rb,0.34242e-06_rb,0.37552e-06_rb, &\n        & 0.38348e-06_rb,0.34637e-06_rb,0.39519e-06_rb,0.81897e-07_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.53030e-07_rb,0.26856e-06_rb,0.35532e-06_rb,0.39019e-06_rb,0.39727e-06_rb, &\n        & 0.41391e-06_rb,0.38815e-06_rb,0.39845e-06_rb,0.10316e-06_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.58073e-07_rb,0.30468e-06_rb,0.40415e-06_rb,0.43508e-06_rb,0.43212e-06_rb, &\n        & 0.43860e-06_rb,0.43462e-06_rb,0.39513e-06_rb,0.12065e-06_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.30210e-07_rb,0.13672e-06_rb,0.18028e-06_rb,0.21388e-06_rb,0.27067e-06_rb, &\n        & 0.25748e-06_rb,0.29347e-06_rb,0.38486e-06_rb,0.43992e-07_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.34676e-07_rb,0.16480e-06_rb,0.21447e-06_rb,0.23703e-06_rb,0.29658e-06_rb, &\n        & 0.29189e-06_rb,0.28346e-06_rb,0.35425e-06_rb,0.54558e-07_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.39112e-07_rb,0.19301e-06_rb,0.25343e-06_rb,0.28112e-06_rb,0.30767e-06_rb, &\n        & 0.31424e-06_rb,0.28354e-06_rb,0.32323e-06_rb,0.67060e-07_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.43392e-07_rb,0.22069e-06_rb,0.29158e-06_rb,0.31987e-06_rb,0.32514e-06_rb, &\n        & 0.33920e-06_rb,0.31782e-06_rb,0.32572e-06_rb,0.84444e-07_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.47520e-07_rb,0.25011e-06_rb,0.33134e-06_rb,0.35641e-06_rb,0.35390e-06_rb, &\n        & 0.35921e-06_rb,0.35594e-06_rb,0.32298e-06_rb,0.98845e-07_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.24733e-07_rb,0.11230e-06_rb,0.14856e-06_rb,0.17472e-06_rb,0.22197e-06_rb, &\n        & 0.21118e-06_rb,0.24122e-06_rb,0.31477e-06_rb,0.36119e-07_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.28389e-07_rb,0.13551e-06_rb,0.17612e-06_rb,0.19468e-06_rb,0.24363e-06_rb, &\n        & 0.23963e-06_rb,0.23290e-06_rb,0.28830e-06_rb,0.44709e-07_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.32017e-07_rb,0.15859e-06_rb,0.20791e-06_rb,0.23074e-06_rb,0.25230e-06_rb, &\n        & 0.25771e-06_rb,0.23238e-06_rb,0.26334e-06_rb,0.54941e-07_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.35526e-07_rb,0.18123e-06_rb,0.23912e-06_rb,0.26228e-06_rb,0.26637e-06_rb, &\n        & 0.27804e-06_rb,0.26039e-06_rb,0.26652e-06_rb,0.69162e-07_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.38912e-07_rb,0.20524e-06_rb,0.27165e-06_rb,0.29207e-06_rb,0.28991e-06_rb, &\n        & 0.29419e-06_rb,0.29154e-06_rb,0.26412e-06_rb,0.80995e-07_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.20250e-07_rb,0.92231e-07_rb,0.12203e-06_rb,0.14275e-06_rb,0.18179e-06_rb, &\n        & 0.17279e-06_rb,0.19796e-06_rb,0.25817e-06_rb,0.29574e-07_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.23243e-07_rb,0.11133e-06_rb,0.14442e-06_rb,0.15980e-06_rb,0.20001e-06_rb, &\n        & 0.19638e-06_rb,0.19075e-06_rb,0.23541e-06_rb,0.36618e-07_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.26215e-07_rb,0.13018e-06_rb,0.17053e-06_rb,0.18925e-06_rb,0.20654e-06_rb, &\n        & 0.21104e-06_rb,0.19040e-06_rb,0.21495e-06_rb,0.44987e-07_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.29082e-07_rb,0.14865e-06_rb,0.19601e-06_rb,0.21490e-06_rb,0.21820e-06_rb, &\n        & 0.22779e-06_rb,0.21313e-06_rb,0.21809e-06_rb,0.56635e-07_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.31856e-07_rb,0.16826e-06_rb,0.22260e-06_rb,0.23930e-06_rb,0.23753e-06_rb, &\n        & 0.24098e-06_rb,0.23875e-06_rb,0.21605e-06_rb,0.66316e-07_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.17059e-05_rb,0.38862e-05_rb,0.46330e-05_rb,0.51258e-05_rb,0.53516e-05_rb, &\n        & 0.52890e-05_rb,0.49050e-05_rb,0.49561e-05_rb,0.24914e-05_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.17702e-05_rb,0.41613e-05_rb,0.49979e-05_rb,0.55352e-05_rb,0.58535e-05_rb, &\n        & 0.58620e-05_rb,0.55540e-05_rb,0.53944e-05_rb,0.30111e-05_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.18268e-05_rb,0.44218e-05_rb,0.53631e-05_rb,0.59894e-05_rb,0.63892e-05_rb, &\n        & 0.64888e-05_rb,0.63488e-05_rb,0.59957e-05_rb,0.35253e-05_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.18763e-05_rb,0.46467e-05_rb,0.56969e-05_rb,0.64112e-05_rb,0.68701e-05_rb, &\n        & 0.70687e-05_rb,0.69575e-05_rb,0.65330e-05_rb,0.40117e-05_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.19168e-05_rb,0.48702e-05_rb,0.60413e-05_rb,0.68595e-05_rb,0.73828e-05_rb, &\n        & 0.76555e-05_rb,0.76620e-05_rb,0.72236e-05_rb,0.44814e-05_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.13807e-05_rb,0.32052e-05_rb,0.37981e-05_rb,0.41868e-05_rb,0.43666e-05_rb, &\n        & 0.42966e-05_rb,0.39397e-05_rb,0.40523e-05_rb,0.19972e-05_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.14355e-05_rb,0.34375e-05_rb,0.40968e-05_rb,0.45345e-05_rb,0.47869e-05_rb, &\n        & 0.47900e-05_rb,0.45121e-05_rb,0.44176e-05_rb,0.23759e-05_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.14839e-05_rb,0.36628e-05_rb,0.44128e-05_rb,0.49223e-05_rb,0.52399e-05_rb, &\n        & 0.53302e-05_rb,0.51982e-05_rb,0.49130e-05_rb,0.28052e-05_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.15261e-05_rb,0.38551e-05_rb,0.47116e-05_rb,0.52947e-05_rb,0.56758e-05_rb, &\n        & 0.58601e-05_rb,0.57606e-05_rb,0.54224e-05_rb,0.31665e-05_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.15621e-05_rb,0.40345e-05_rb,0.49797e-05_rb,0.56344e-05_rb,0.60672e-05_rb, &\n        & 0.63079e-05_rb,0.63076e-05_rb,0.59671e-05_rb,0.35368e-05_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.11048e-05_rb,0.25908e-05_rb,0.30458e-05_rb,0.33480e-05_rb,0.34767e-05_rb, &\n        & 0.33444e-05_rb,0.30982e-05_rb,0.31520e-05_rb,0.14943e-05_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.11526e-05_rb,0.27857e-05_rb,0.32915e-05_rb,0.36364e-05_rb,0.38272e-05_rb, &\n        & 0.38169e-05_rb,0.35492e-05_rb,0.35141e-05_rb,0.17575e-05_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.11948e-05_rb,0.29688e-05_rb,0.35427e-05_rb,0.39401e-05_rb,0.41747e-05_rb, &\n        & 0.42239e-05_rb,0.40766e-05_rb,0.39111e-05_rb,0.20688e-05_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.12319e-05_rb,0.31426e-05_rb,0.38135e-05_rb,0.42625e-05_rb,0.45635e-05_rb, &\n        & 0.47062e-05_rb,0.46027e-05_rb,0.43389e-05_rb,0.23873e-05_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.12642e-05_rb,0.32923e-05_rb,0.40402e-05_rb,0.45497e-05_rb,0.48934e-05_rb, &\n        & 0.50814e-05_rb,0.50577e-05_rb,0.47614e-05_rb,0.26860e-05_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.87810e-06_rb,0.20726e-05_rb,0.24188e-05_rb,0.26498e-05_rb,0.27201e-05_rb, &\n        & 0.25966e-05_rb,0.24215e-05_rb,0.25596e-05_rb,0.10910e-05_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.92113e-06_rb,0.22378e-05_rb,0.26243e-05_rb,0.28859e-05_rb,0.30228e-05_rb, &\n        & 0.29855e-05_rb,0.27257e-05_rb,0.28497e-05_rb,0.12952e-05_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.95847e-06_rb,0.23927e-05_rb,0.28323e-05_rb,0.31308e-05_rb,0.33238e-05_rb, &\n        & 0.33287e-05_rb,0.31597e-05_rb,0.31032e-05_rb,0.15368e-05_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.99115e-06_rb,0.25350e-05_rb,0.30423e-05_rb,0.33883e-05_rb,0.36085e-05_rb, &\n        & 0.36829e-05_rb,0.35850e-05_rb,0.33993e-05_rb,0.17502e-05_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.10199e-05_rb,0.26768e-05_rb,0.32656e-05_rb,0.36641e-05_rb,0.39303e-05_rb, &\n        & 0.40820e-05_rb,0.40444e-05_rb,0.38038e-05_rb,0.20588e-05_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.69521e-06_rb,0.16480e-05_rb,0.19136e-05_rb,0.20758e-05_rb,0.21053e-05_rb, &\n        & 0.19983e-05_rb,0.19384e-05_rb,0.21119e-05_rb,0.79759e-06_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.73399e-06_rb,0.17885e-05_rb,0.20863e-05_rb,0.22802e-05_rb,0.23681e-05_rb, &\n        & 0.23078e-05_rb,0.21093e-05_rb,0.21684e-05_rb,0.95048e-06_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.76704e-06_rb,0.19210e-05_rb,0.22551e-05_rb,0.24823e-05_rb,0.26201e-05_rb, &\n        & 0.26181e-05_rb,0.24369e-05_rb,0.24387e-05_rb,0.11396e-05_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.79598e-06_rb,0.20422e-05_rb,0.24305e-05_rb,0.26936e-05_rb,0.28610e-05_rb, &\n        & 0.28938e-05_rb,0.28032e-05_rb,0.26848e-05_rb,0.13054e-05_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.82146e-06_rb,0.21630e-05_rb,0.26149e-05_rb,0.29202e-05_rb,0.31281e-05_rb, &\n        & 0.32364e-05_rb,0.31639e-05_rb,0.29903e-05_rb,0.15503e-05_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.54790e-06_rb,0.12968e-05_rb,0.14998e-05_rb,0.16199e-05_rb,0.16168e-05_rb, &\n        & 0.15151e-05_rb,0.14932e-05_rb,0.16380e-05_rb,0.58437e-06_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.58180e-06_rb,0.14204e-05_rb,0.16474e-05_rb,0.17877e-05_rb,0.18382e-05_rb, &\n        & 0.17645e-05_rb,0.16359e-05_rb,0.17414e-05_rb,0.70191e-06_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.61169e-06_rb,0.15332e-05_rb,0.17837e-05_rb,0.19554e-05_rb,0.20462e-05_rb, &\n        & 0.20343e-05_rb,0.18483e-05_rb,0.19670e-05_rb,0.83824e-06_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.63729e-06_rb,0.16375e-05_rb,0.19280e-05_rb,0.21247e-05_rb,0.22559e-05_rb, &\n        & 0.22588e-05_rb,0.21468e-05_rb,0.21190e-05_rb,0.96829e-06_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.65987e-06_rb,0.17326e-05_rb,0.20710e-05_rb,0.23017e-05_rb,0.24525e-05_rb, &\n        & 0.25042e-05_rb,0.24377e-05_rb,0.23029e-05_rb,0.11330e-05_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.43067e-06_rb,0.10147e-05_rb,0.11663e-05_rb,0.12622e-05_rb,0.12316e-05_rb, &\n        & 0.11186e-05_rb,0.12227e-05_rb,0.12153e-05_rb,0.41960e-06_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.45965e-06_rb,0.11216e-05_rb,0.12929e-05_rb,0.13935e-05_rb,0.14129e-05_rb, &\n        & 0.13426e-05_rb,0.12944e-05_rb,0.14463e-05_rb,0.51416e-06_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.48636e-06_rb,0.12186e-05_rb,0.14109e-05_rb,0.15331e-05_rb,0.15936e-05_rb, &\n        & 0.15473e-05_rb,0.14164e-05_rb,0.14707e-05_rb,0.61314e-06_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.50928e-06_rb,0.13071e-05_rb,0.15237e-05_rb,0.16740e-05_rb,0.17644e-05_rb, &\n        & 0.17562e-05_rb,0.16373e-05_rb,0.16431e-05_rb,0.72862e-06_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.52919e-06_rb,0.13890e-05_rb,0.16443e-05_rb,0.18186e-05_rb,0.19296e-05_rb, &\n        & 0.19451e-05_rb,0.18786e-05_rb,0.17942e-05_rb,0.84235e-06_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.33792e-06_rb,0.78856e-06_rb,0.90464e-06_rb,0.98317e-06_rb,0.92848e-06_rb, &\n        & 0.86387e-06_rb,0.95438e-06_rb,0.90887e-06_rb,0.29529e-06_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.36263e-06_rb,0.88071e-06_rb,0.10121e-05_rb,0.10878e-05_rb,0.10817e-05_rb, &\n        & 0.10133e-05_rb,0.10031e-05_rb,0.11161e-05_rb,0.37413e-06_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.38563e-06_rb,0.96560e-06_rb,0.11116e-05_rb,0.12011e-05_rb,0.12324e-05_rb, &\n        & 0.11848e-05_rb,0.10927e-05_rb,0.11776e-05_rb,0.44987e-06_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.40622e-06_rb,0.10407e-05_rb,0.12047e-05_rb,0.13138e-05_rb,0.13745e-05_rb, &\n        & 0.13598e-05_rb,0.12356e-05_rb,0.13203e-05_rb,0.54288e-06_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.42386e-06_rb,0.11111e-05_rb,0.13019e-05_rb,0.14302e-05_rb,0.15146e-05_rb, &\n        & 0.15112e-05_rb,0.14255e-05_rb,0.14090e-05_rb,0.62729e-06_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.26432e-06_rb,0.60726e-06_rb,0.70036e-06_rb,0.76229e-06_rb,0.71577e-06_rb, &\n        & 0.69749e-06_rb,0.70164e-06_rb,0.72668e-06_rb,0.20659e-06_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.28549e-06_rb,0.68848e-06_rb,0.78705e-06_rb,0.84862e-06_rb,0.82241e-06_rb, &\n        & 0.74707e-06_rb,0.82519e-06_rb,0.82938e-06_rb,0.27449e-06_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.30511e-06_rb,0.76168e-06_rb,0.87199e-06_rb,0.93359e-06_rb,0.94531e-06_rb, &\n        & 0.89794e-06_rb,0.85947e-06_rb,0.97111e-06_rb,0.33410e-06_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.32329e-06_rb,0.82660e-06_rb,0.95163e-06_rb,0.10287e-05_rb,0.10680e-05_rb, &\n        & 0.10381e-05_rb,0.94558e-06_rb,0.98374e-06_rb,0.39896e-06_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.33897e-06_rb,0.88614e-06_rb,0.10276e-05_rb,0.11239e-05_rb,0.11817e-05_rb, &\n        & 0.11723e-05_rb,0.10892e-05_rb,0.10943e-05_rb,0.47438e-06_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.20748e-06_rb,0.47023e-06_rb,0.54165e-06_rb,0.58159e-06_rb,0.54422e-06_rb, &\n        & 0.55116e-06_rb,0.57712e-06_rb,0.60571e-06_rb,0.14752e-06_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.22561e-06_rb,0.54027e-06_rb,0.61555e-06_rb,0.66550e-06_rb,0.62550e-06_rb, &\n        & 0.58306e-06_rb,0.64781e-06_rb,0.63365e-06_rb,0.19821e-06_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.24219e-06_rb,0.60251e-06_rb,0.68703e-06_rb,0.73412e-06_rb,0.72965e-06_rb, &\n        & 0.68255e-06_rb,0.67291e-06_rb,0.76422e-06_rb,0.24874e-06_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.25766e-06_rb,0.65861e-06_rb,0.75375e-06_rb,0.81214e-06_rb,0.83171e-06_rb, &\n        & 0.80129e-06_rb,0.73385e-06_rb,0.78864e-06_rb,0.29867e-06_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.27157e-06_rb,0.70870e-06_rb,0.81638e-06_rb,0.88593e-06_rb,0.92651e-06_rb, &\n        & 0.91449e-06_rb,0.83048e-06_rb,0.88651e-06_rb,0.36087e-06_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.16984e-06_rb,0.38981e-06_rb,0.44742e-06_rb,0.48022e-06_rb,0.44950e-06_rb, &\n        & 0.45173e-06_rb,0.47333e-06_rb,0.50203e-06_rb,0.12166e-06_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.18466e-06_rb,0.44753e-06_rb,0.50754e-06_rb,0.54744e-06_rb,0.51342e-06_rb, &\n        & 0.47893e-06_rb,0.53296e-06_rb,0.51992e-06_rb,0.16283e-06_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.19826e-06_rb,0.49803e-06_rb,0.56578e-06_rb,0.60333e-06_rb,0.60031e-06_rb, &\n        & 0.56085e-06_rb,0.55152e-06_rb,0.63442e-06_rb,0.20412e-06_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.21087e-06_rb,0.54349e-06_rb,0.62058e-06_rb,0.66722e-06_rb,0.68339e-06_rb, &\n        & 0.65819e-06_rb,0.60140e-06_rb,0.64555e-06_rb,0.24501e-06_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.22228e-06_rb,0.58430e-06_rb,0.67139e-06_rb,0.72733e-06_rb,0.76067e-06_rb, &\n        & 0.75025e-06_rb,0.68133e-06_rb,0.72307e-06_rb,0.29566e-06_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.13908e-06_rb,0.32322e-06_rb,0.36926e-06_rb,0.39668e-06_rb,0.37094e-06_rb, &\n        & 0.37104e-06_rb,0.38736e-06_rb,0.41059e-06_rb,0.10018e-06_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.15119e-06_rb,0.37037e-06_rb,0.41804e-06_rb,0.44988e-06_rb,0.42138e-06_rb, &\n        & 0.39334e-06_rb,0.43800e-06_rb,0.42649e-06_rb,0.13384e-06_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.16232e-06_rb,0.41107e-06_rb,0.46554e-06_rb,0.49568e-06_rb,0.49349e-06_rb, &\n        & 0.46062e-06_rb,0.45205e-06_rb,0.52165e-06_rb,0.16749e-06_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.17268e-06_rb,0.44802e-06_rb,0.51028e-06_rb,0.54757e-06_rb,0.56096e-06_rb, &\n        & 0.54041e-06_rb,0.49303e-06_rb,0.52723e-06_rb,0.20095e-06_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.18199e-06_rb,0.48092e-06_rb,0.55149e-06_rb,0.59694e-06_rb,0.62405e-06_rb, &\n        & 0.61534e-06_rb,0.55851e-06_rb,0.58926e-06_rb,0.24228e-06_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.11387e-06_rb,0.26741e-06_rb,0.30441e-06_rb,0.32687e-06_rb,0.30479e-06_rb, &\n        & 0.30477e-06_rb,0.31768e-06_rb,0.33316e-06_rb,0.82090e-07_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.12381e-06_rb,0.30579e-06_rb,0.34391e-06_rb,0.36935e-06_rb,0.34578e-06_rb, &\n        & 0.32317e-06_rb,0.35995e-06_rb,0.35099e-06_rb,0.10981e-06_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.13290e-06_rb,0.33871e-06_rb,0.38265e-06_rb,0.40672e-06_rb,0.40511e-06_rb, &\n        & 0.37796e-06_rb,0.36986e-06_rb,0.42813e-06_rb,0.13721e-06_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.14135e-06_rb,0.36878e-06_rb,0.41898e-06_rb,0.44916e-06_rb,0.46012e-06_rb, &\n        & 0.44348e-06_rb,0.40383e-06_rb,0.43087e-06_rb,0.16460e-06_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.14898e-06_rb,0.39524e-06_rb,0.45245e-06_rb,0.48939e-06_rb,0.51148e-06_rb, &\n        & 0.50420e-06_rb,0.45753e-06_rb,0.48088e-06_rb,0.19843e-06_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.49835e-05_rb,0.73512e-05_rb,0.88016e-05_rb,0.97115e-05_rb,0.10342e-04_rb, &\n        & 0.10688e-04_rb,0.10747e-04_rb,0.97587e-05_rb,0.57353e-05_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.49823e-05_rb,0.77944e-05_rb,0.95403e-05_rb,0.10739e-04_rb,0.11522e-04_rb, &\n        & 0.11974e-04_rb,0.12019e-04_rb,0.11200e-04_rb,0.69362e-05_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.49638e-05_rb,0.82513e-05_rb,0.10343e-04_rb,0.11836e-04_rb,0.12804e-04_rb, &\n        & 0.13375e-04_rb,0.13427e-04_rb,0.12807e-04_rb,0.83325e-05_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.49300e-05_rb,0.87230e-05_rb,0.11131e-04_rb,0.12834e-04_rb,0.13980e-04_rb, &\n        & 0.14660e-04_rb,0.14790e-04_rb,0.14186e-04_rb,0.94893e-05_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.48886e-05_rb,0.92046e-05_rb,0.11933e-04_rb,0.13885e-04_rb,0.15255e-04_rb, &\n        & 0.16071e-04_rb,0.16239e-04_rb,0.15605e-04_rb,0.10917e-04_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.41174e-05_rb,0.62362e-05_rb,0.73897e-05_rb,0.81161e-05_rb,0.86061e-05_rb, &\n        & 0.88364e-05_rb,0.89272e-05_rb,0.81534e-05_rb,0.45187e-05_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.41154e-05_rb,0.66112e-05_rb,0.80274e-05_rb,0.90030e-05_rb,0.96264e-05_rb, &\n        & 0.99529e-05_rb,0.10004e-04_rb,0.93836e-05_rb,0.55300e-05_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.40999e-05_rb,0.69972e-05_rb,0.87232e-05_rb,0.99464e-05_rb,0.10738e-04_rb, &\n        & 0.11186e-04_rb,0.11235e-04_rb,0.10760e-04_rb,0.66656e-05_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.40728e-05_rb,0.73933e-05_rb,0.94032e-05_rb,0.10842e-04_rb,0.11807e-04_rb, &\n        & 0.12371e-04_rb,0.12495e-04_rb,0.12016e-04_rb,0.78073e-05_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.40371e-05_rb,0.77954e-05_rb,0.10060e-04_rb,0.11710e-04_rb,0.12855e-04_rb, &\n        & 0.13529e-04_rb,0.13658e-04_rb,0.13169e-04_rb,0.88462e-05_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.33911e-05_rb,0.51807e-05_rb,0.60524e-05_rb,0.65745e-05_rb,0.69209e-05_rb, &\n        & 0.70496e-05_rb,0.71376e-05_rb,0.64864e-05_rb,0.34232e-05_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.33916e-05_rb,0.54910e-05_rb,0.65875e-05_rb,0.73243e-05_rb,0.77878e-05_rb, &\n        & 0.79847e-05_rb,0.80332e-05_rb,0.75309e-05_rb,0.42228e-05_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.33813e-05_rb,0.58057e-05_rb,0.71503e-05_rb,0.80869e-05_rb,0.86798e-05_rb, &\n        & 0.89845e-05_rb,0.90042e-05_rb,0.85938e-05_rb,0.50519e-05_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.33618e-05_rb,0.61503e-05_rb,0.77470e-05_rb,0.88947e-05_rb,0.96421e-05_rb, &\n        & 0.10056e-04_rb,0.10131e-04_rb,0.97836e-05_rb,0.60817e-05_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.33346e-05_rb,0.64834e-05_rb,0.82992e-05_rb,0.96266e-05_rb,0.10527e-04_rb, &\n        & 0.11042e-04_rb,0.11154e-04_rb,0.10788e-04_rb,0.69208e-05_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.27862e-05_rb,0.42534e-05_rb,0.48987e-05_rb,0.52435e-05_rb,0.54733e-05_rb, &\n        & 0.55364e-05_rb,0.55872e-05_rb,0.49226e-05_rb,0.25436e-05_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.27893e-05_rb,0.45093e-05_rb,0.53394e-05_rb,0.58691e-05_rb,0.61855e-05_rb, &\n        & 0.63070e-05_rb,0.63399e-05_rb,0.58599e-05_rb,0.31726e-05_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.27843e-05_rb,0.47714e-05_rb,0.58075e-05_rb,0.65048e-05_rb,0.69158e-05_rb, &\n        & 0.71341e-05_rb,0.71529e-05_rb,0.67578e-05_rb,0.38485e-05_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.27713e-05_rb,0.50491e-05_rb,0.62824e-05_rb,0.71451e-05_rb,0.76931e-05_rb, &\n        & 0.79968e-05_rb,0.80403e-05_rb,0.77391e-05_rb,0.46093e-05_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.27517e-05_rb,0.53526e-05_rb,0.67897e-05_rb,0.78357e-05_rb,0.85357e-05_rb, &\n        & 0.89260e-05_rb,0.90160e-05_rb,0.87287e-05_rb,0.54226e-05_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.22852e-05_rb,0.34704e-05_rb,0.39351e-05_rb,0.41626e-05_rb,0.42797e-05_rb, &\n        & 0.43078e-05_rb,0.42289e-05_rb,0.36572e-05_rb,0.18725e-05_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.22904e-05_rb,0.36828e-05_rb,0.42969e-05_rb,0.46636e-05_rb,0.48818e-05_rb, &\n        & 0.49227e-05_rb,0.49640e-05_rb,0.45776e-05_rb,0.23620e-05_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.22883e-05_rb,0.38995e-05_rb,0.46830e-05_rb,0.51887e-05_rb,0.54814e-05_rb, &\n        & 0.56039e-05_rb,0.56350e-05_rb,0.52624e-05_rb,0.29139e-05_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.22808e-05_rb,0.41317e-05_rb,0.50763e-05_rb,0.57196e-05_rb,0.61208e-05_rb, &\n        & 0.63389e-05_rb,0.63549e-05_rb,0.60859e-05_rb,0.35219e-05_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.22671e-05_rb,0.43851e-05_rb,0.54991e-05_rb,0.62948e-05_rb,0.68249e-05_rb, &\n        & 0.71098e-05_rb,0.71755e-05_rb,0.69558e-05_rb,0.41900e-05_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.18699e-05_rb,0.28114e-05_rb,0.31400e-05_rb,0.32683e-05_rb,0.33153e-05_rb, &\n        & 0.33008e-05_rb,0.31920e-05_rb,0.27860e-05_rb,0.13420e-05_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.18773e-05_rb,0.29859e-05_rb,0.34309e-05_rb,0.36695e-05_rb,0.38007e-05_rb, &\n        & 0.38091e-05_rb,0.38180e-05_rb,0.34314e-05_rb,0.17179e-05_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.18783e-05_rb,0.31642e-05_rb,0.37448e-05_rb,0.40997e-05_rb,0.43019e-05_rb, &\n        & 0.43546e-05_rb,0.43740e-05_rb,0.40084e-05_rb,0.21605e-05_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.18743e-05_rb,0.33566e-05_rb,0.40684e-05_rb,0.45371e-05_rb,0.48151e-05_rb, &\n        & 0.49624e-05_rb,0.49624e-05_rb,0.47228e-05_rb,0.26431e-05_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.18657e-05_rb,0.35541e-05_rb,0.43955e-05_rb,0.49826e-05_rb,0.53649e-05_rb, &\n        & 0.55694e-05_rb,0.55990e-05_rb,0.54328e-05_rb,0.31359e-05_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.15270e-05_rb,0.22681e-05_rb,0.24953e-05_rb,0.25538e-05_rb,0.25397e-05_rb, &\n        & 0.25315e-05_rb,0.23299e-05_rb,0.21035e-05_rb,0.95748e-06_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.15365e-05_rb,0.24113e-05_rb,0.27304e-05_rb,0.28767e-05_rb,0.29339e-05_rb, &\n        & 0.29290e-05_rb,0.28728e-05_rb,0.24852e-05_rb,0.12383e-05_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.15398e-05_rb,0.25576e-05_rb,0.29821e-05_rb,0.32226e-05_rb,0.33508e-05_rb, &\n        & 0.33584e-05_rb,0.33733e-05_rb,0.31044e-05_rb,0.15900e-05_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.15385e-05_rb,0.27150e-05_rb,0.32458e-05_rb,0.35802e-05_rb,0.37697e-05_rb, &\n        & 0.38500e-05_rb,0.38510e-05_rb,0.36169e-05_rb,0.19605e-05_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.15336e-05_rb,0.28792e-05_rb,0.35139e-05_rb,0.39460e-05_rb,0.42149e-05_rb, &\n        & 0.43622e-05_rb,0.43664e-05_rb,0.42187e-05_rb,0.23523e-05_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.12444e-05_rb,0.18266e-05_rb,0.19784e-05_rb,0.19900e-05_rb,0.19390e-05_rb, &\n        & 0.19235e-05_rb,0.17231e-05_rb,0.16995e-05_rb,0.68590e-06_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.12557e-05_rb,0.19427e-05_rb,0.21667e-05_rb,0.22465e-05_rb,0.22625e-05_rb, &\n        & 0.22377e-05_rb,0.21596e-05_rb,0.18759e-05_rb,0.89490e-06_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.12608e-05_rb,0.20627e-05_rb,0.23694e-05_rb,0.25224e-05_rb,0.25961e-05_rb, &\n        & 0.25892e-05_rb,0.25887e-05_rb,0.23400e-05_rb,0.11490e-05_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.12616e-05_rb,0.21916e-05_rb,0.25816e-05_rb,0.28156e-05_rb,0.29418e-05_rb, &\n        & 0.29759e-05_rb,0.29788e-05_rb,0.27379e-05_rb,0.14416e-05_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.12590e-05_rb,0.23261e-05_rb,0.28013e-05_rb,0.31131e-05_rb,0.32990e-05_rb, &\n        & 0.33976e-05_rb,0.33946e-05_rb,0.32600e-05_rb,0.17529e-05_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.10123e-05_rb,0.14681e-05_rb,0.15612e-05_rb,0.15411e-05_rb,0.14778e-05_rb, &\n        & 0.14343e-05_rb,0.12992e-05_rb,0.13172e-05_rb,0.49290e-06_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.10245e-05_rb,0.15617e-05_rb,0.17149e-05_rb,0.17499e-05_rb,0.17312e-05_rb, &\n        & 0.17144e-05_rb,0.15772e-05_rb,0.14382e-05_rb,0.63132e-06_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.10311e-05_rb,0.16600e-05_rb,0.18786e-05_rb,0.19738e-05_rb,0.20017e-05_rb, &\n        & 0.19859e-05_rb,0.19416e-05_rb,0.17139e-05_rb,0.82278e-06_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.10334e-05_rb,0.17639e-05_rb,0.20493e-05_rb,0.22069e-05_rb,0.22845e-05_rb, &\n        & 0.22769e-05_rb,0.22855e-05_rb,0.21115e-05_rb,0.10531e-05_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.10328e-05_rb,0.18738e-05_rb,0.22265e-05_rb,0.24495e-05_rb,0.25737e-05_rb, &\n        & 0.26232e-05_rb,0.26173e-05_rb,0.24699e-05_rb,0.12950e-05_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.82261e-06_rb,0.11811e-05_rb,0.12403e-05_rb,0.12060e-05_rb,0.11493e-05_rb, &\n        & 0.10907e-05_rb,0.98035e-06_rb,0.10980e-05_rb,0.37316e-06_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.83528e-06_rb,0.12595e-05_rb,0.13646e-05_rb,0.13745e-05_rb,0.13365e-05_rb, &\n        & 0.13172e-05_rb,0.11846e-05_rb,0.11491e-05_rb,0.46158e-06_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.84255e-06_rb,0.13392e-05_rb,0.14968e-05_rb,0.15528e-05_rb,0.15573e-05_rb, &\n        & 0.15339e-05_rb,0.14802e-05_rb,0.12811e-05_rb,0.60300e-06_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.84587e-06_rb,0.14245e-05_rb,0.16355e-05_rb,0.17381e-05_rb,0.17835e-05_rb, &\n        & 0.17693e-05_rb,0.17683e-05_rb,0.16097e-05_rb,0.77730e-06_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.84627e-06_rb,0.15137e-05_rb,0.17779e-05_rb,0.19378e-05_rb,0.20192e-05_rb, &\n        & 0.20387e-05_rb,0.20340e-05_rb,0.18636e-05_rb,0.96863e-06_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.67388e-06_rb,0.97942e-06_rb,0.10286e-05_rb,0.10023e-05_rb,0.95317e-06_rb, &\n        & 0.90847e-06_rb,0.81776e-06_rb,0.89345e-06_rb,0.30408e-06_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.68407e-06_rb,0.10438e-05_rb,0.11334e-05_rb,0.11425e-05_rb,0.11096e-05_rb, &\n        & 0.10886e-05_rb,0.98240e-06_rb,0.94798e-06_rb,0.38086e-06_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.69000e-06_rb,0.11106e-05_rb,0.12435e-05_rb,0.12890e-05_rb,0.12895e-05_rb, &\n        & 0.12679e-05_rb,0.12202e-05_rb,0.10522e-05_rb,0.49623e-06_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.69276e-06_rb,0.11824e-05_rb,0.13564e-05_rb,0.14402e-05_rb,0.14763e-05_rb, &\n        & 0.14628e-05_rb,0.14599e-05_rb,0.13328e-05_rb,0.63979e-06_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.69302e-06_rb,0.12555e-05_rb,0.14740e-05_rb,0.16049e-05_rb,0.16694e-05_rb, &\n        & 0.16839e-05_rb,0.16772e-05_rb,0.15421e-05_rb,0.79514e-06_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.55214e-06_rb,0.81079e-06_rb,0.85249e-06_rb,0.83175e-06_rb,0.78783e-06_rb, &\n        & 0.75281e-06_rb,0.67567e-06_rb,0.74075e-06_rb,0.24910e-06_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.56029e-06_rb,0.86391e-06_rb,0.94032e-06_rb,0.94758e-06_rb,0.91883e-06_rb, &\n        & 0.89834e-06_rb,0.81189e-06_rb,0.77883e-06_rb,0.31399e-06_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.56504e-06_rb,0.92066e-06_rb,0.10308e-05_rb,0.10667e-05_rb,0.10655e-05_rb, &\n        & 0.10460e-05_rb,0.10067e-05_rb,0.87150e-06_rb,0.40815e-06_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.56721e-06_rb,0.97985e-06_rb,0.11224e-05_rb,0.11915e-05_rb,0.12197e-05_rb, &\n        & 0.12063e-05_rb,0.12014e-05_rb,0.10950e-05_rb,0.52630e-06_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.56742e-06_rb,0.10399e-05_rb,0.12195e-05_rb,0.13255e-05_rb,0.13771e-05_rb, &\n        & 0.13876e-05_rb,0.13807e-05_rb,0.12724e-05_rb,0.65264e-06_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.45223e-06_rb,0.67006e-06_rb,0.70582e-06_rb,0.68873e-06_rb,0.65038e-06_rb, &\n        & 0.62084e-06_rb,0.55442e-06_rb,0.60996e-06_rb,0.20428e-06_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.45880e-06_rb,0.71490e-06_rb,0.77859e-06_rb,0.78376e-06_rb,0.75834e-06_rb, &\n        & 0.73987e-06_rb,0.66959e-06_rb,0.63711e-06_rb,0.25817e-06_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.46276e-06_rb,0.76231e-06_rb,0.85214e-06_rb,0.88098e-06_rb,0.87867e-06_rb, &\n        & 0.86188e-06_rb,0.83033e-06_rb,0.72166e-06_rb,0.33548e-06_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.46442e-06_rb,0.81043e-06_rb,0.92714e-06_rb,0.98329e-06_rb,0.10050e-05_rb, &\n        & 0.99247e-06_rb,0.98770e-06_rb,0.89931e-06_rb,0.43220e-06_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.46456e-06_rb,0.86048e-06_rb,0.10065e-05_rb,0.10920e-05_rb,0.11333e-05_rb, &\n        & 0.11411e-05_rb,0.11342e-05_rb,0.10473e-05_rb,0.53527e-06_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.12335e-04_rb,0.15987e-04_rb,0.18565e-04_rb,0.20406e-04_rb,0.21636e-04_rb, &\n        & 0.22077e-04_rb,0.21364e-04_rb,0.19544e-04_rb,0.14733e-04_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.12351e-04_rb,0.17014e-04_rb,0.20216e-04_rb,0.22480e-04_rb,0.24098e-04_rb, &\n        & 0.24791e-04_rb,0.24379e-04_rb,0.22600e-04_rb,0.17292e-04_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.12364e-04_rb,0.18152e-04_rb,0.21907e-04_rb,0.24643e-04_rb,0.26659e-04_rb, &\n        & 0.27630e-04_rb,0.27512e-04_rb,0.25730e-04_rb,0.20236e-04_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.12365e-04_rb,0.19320e-04_rb,0.23679e-04_rb,0.26885e-04_rb,0.29225e-04_rb, &\n        & 0.30430e-04_rb,0.30461e-04_rb,0.28726e-04_rb,0.23208e-04_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.12355e-04_rb,0.20495e-04_rb,0.25505e-04_rb,0.29189e-04_rb,0.31816e-04_rb, &\n        & 0.33308e-04_rb,0.33478e-04_rb,0.31898e-04_rb,0.26469e-04_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.10350e-04_rb,0.13753e-04_rb,0.16101e-04_rb,0.17726e-04_rb,0.18733e-04_rb, &\n        & 0.19034e-04_rb,0.18319e-04_rb,0.16594e-04_rb,0.11961e-04_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.10365e-04_rb,0.14706e-04_rb,0.17542e-04_rb,0.19561e-04_rb,0.20895e-04_rb, &\n        & 0.21420e-04_rb,0.21012e-04_rb,0.19409e-04_rb,0.14130e-04_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.10364e-04_rb,0.15733e-04_rb,0.19081e-04_rb,0.21505e-04_rb,0.23181e-04_rb, &\n        & 0.23958e-04_rb,0.23844e-04_rb,0.22334e-04_rb,0.16750e-04_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.10354e-04_rb,0.16759e-04_rb,0.20670e-04_rb,0.23471e-04_rb,0.25440e-04_rb, &\n        & 0.26474e-04_rb,0.26560e-04_rb,0.25188e-04_rb,0.19386e-04_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.10329e-04_rb,0.17823e-04_rb,0.22292e-04_rb,0.25488e-04_rb,0.27703e-04_rb, &\n        & 0.28957e-04_rb,0.29205e-04_rb,0.27936e-04_rb,0.22026e-04_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.86408e-05_rb,0.11607e-04_rb,0.13624e-04_rb,0.14928e-04_rb,0.15622e-04_rb, &\n        & 0.15768e-04_rb,0.15034e-04_rb,0.13540e-04_rb,0.91950e-05_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.86478e-05_rb,0.12463e-04_rb,0.14889e-04_rb,0.16508e-04_rb,0.17482e-04_rb, &\n        & 0.17819e-04_rb,0.17439e-04_rb,0.15994e-04_rb,0.11026e-04_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.86444e-05_rb,0.13354e-04_rb,0.16234e-04_rb,0.18159e-04_rb,0.19394e-04_rb, &\n        & 0.19962e-04_rb,0.19837e-04_rb,0.18485e-04_rb,0.13087e-04_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.86273e-05_rb,0.14262e-04_rb,0.17647e-04_rb,0.19921e-04_rb,0.21457e-04_rb, &\n        & 0.22290e-04_rb,0.22338e-04_rb,0.21203e-04_rb,0.15397e-04_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.85960e-05_rb,0.15200e-04_rb,0.19031e-04_rb,0.21649e-04_rb,0.23415e-04_rb, &\n        & 0.24453e-04_rb,0.24660e-04_rb,0.23666e-04_rb,0.17582e-04_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.71803e-05_rb,0.97101e-05_rb,0.11373e-04_rb,0.12321e-04_rb,0.12789e-04_rb, &\n        & 0.12803e-04_rb,0.12062e-04_rb,0.10784e-04_rb,0.69624e-05_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.71855e-05_rb,0.10459e-04_rb,0.12456e-04_rb,0.13673e-04_rb,0.14371e-04_rb, &\n        & 0.14569e-04_rb,0.14153e-04_rb,0.12788e-04_rb,0.84564e-05_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.71795e-05_rb,0.11229e-04_rb,0.13608e-04_rb,0.15091e-04_rb,0.16013e-04_rb, &\n        & 0.16409e-04_rb,0.16232e-04_rb,0.15085e-04_rb,0.10120e-04_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.71584e-05_rb,0.12023e-04_rb,0.14800e-04_rb,0.16568e-04_rb,0.17732e-04_rb, &\n        & 0.18336e-04_rb,0.18317e-04_rb,0.17347e-04_rb,0.11917e-04_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.71267e-05_rb,0.12845e-04_rb,0.16058e-04_rb,0.18162e-04_rb,0.19580e-04_rb, &\n        & 0.20399e-04_rb,0.20543e-04_rb,0.19767e-04_rb,0.13958e-04_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.59442e-05_rb,0.80861e-05_rb,0.93878e-05_rb,0.10066e-04_rb,0.10362e-04_rb, &\n        & 0.10281e-04_rb,0.95734e-05_rb,0.84778e-05_rb,0.52204e-05_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.59498e-05_rb,0.87281e-05_rb,0.10301e-04_rb,0.11210e-04_rb,0.11702e-04_rb, &\n        & 0.11782e-04_rb,0.11315e-04_rb,0.10068e-04_rb,0.64302e-05_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.59430e-05_rb,0.93925e-05_rb,0.11277e-04_rb,0.12419e-04_rb,0.13099e-04_rb, &\n        & 0.13351e-04_rb,0.13104e-04_rb,0.12095e-04_rb,0.77633e-05_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.59217e-05_rb,0.10078e-04_rb,0.12288e-04_rb,0.13686e-04_rb,0.14573e-04_rb, &\n        & 0.14994e-04_rb,0.14908e-04_rb,0.14023e-04_rb,0.92337e-05_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.58935e-05_rb,0.10789e-04_rb,0.13390e-04_rb,0.15066e-04_rb,0.16172e-04_rb, &\n        & 0.16788e-04_rb,0.16832e-04_rb,0.16140e-04_rb,0.10913e-04_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.49077e-05_rb,0.66672e-05_rb,0.76412e-05_rb,0.81181e-05_rb,0.82831e-05_rb, &\n        & 0.81137e-05_rb,0.74381e-05_rb,0.64600e-05_rb,0.38540e-05_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.49136e-05_rb,0.72093e-05_rb,0.84100e-05_rb,0.90761e-05_rb,0.94026e-05_rb, &\n        & 0.93849e-05_rb,0.88761e-05_rb,0.77852e-05_rb,0.48097e-05_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.49088e-05_rb,0.77732e-05_rb,0.92304e-05_rb,0.10089e-04_rb,0.10581e-04_rb, &\n        & 0.10707e-04_rb,0.10412e-04_rb,0.94217e-05_rb,0.58741e-05_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.48919e-05_rb,0.83551e-05_rb,0.10086e-04_rb,0.11166e-04_rb,0.11831e-04_rb, &\n        & 0.12095e-04_rb,0.11941e-04_rb,0.11106e-04_rb,0.70559e-05_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.48652e-05_rb,0.89412e-05_rb,0.10983e-04_rb,0.12289e-04_rb,0.13118e-04_rb, &\n        & 0.13538e-04_rb,0.13477e-04_rb,0.12811e-04_rb,0.83378e-05_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.40428e-05_rb,0.54588e-05_rb,0.61687e-05_rb,0.64926e-05_rb,0.65568e-05_rb, &\n        & 0.63259e-05_rb,0.56948e-05_rb,0.49607e-05_rb,0.28237e-05_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.40484e-05_rb,0.59019e-05_rb,0.68052e-05_rb,0.72891e-05_rb,0.74881e-05_rb, &\n        & 0.73951e-05_rb,0.68736e-05_rb,0.59771e-05_rb,0.35700e-05_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.40443e-05_rb,0.63719e-05_rb,0.74936e-05_rb,0.81309e-05_rb,0.84699e-05_rb, &\n        & 0.84975e-05_rb,0.81643e-05_rb,0.72224e-05_rb,0.43995e-05_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.40304e-05_rb,0.68636e-05_rb,0.82100e-05_rb,0.90329e-05_rb,0.95142e-05_rb, &\n        & 0.96616e-05_rb,0.94576e-05_rb,0.86932e-05_rb,0.53385e-05_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.40097e-05_rb,0.73587e-05_rb,0.89665e-05_rb,0.99825e-05_rb,0.10592e-04_rb, &\n        & 0.10860e-04_rb,0.10751e-04_rb,0.10114e-04_rb,0.63905e-05_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.33247e-05_rb,0.44437e-05_rb,0.49476e-05_rb,0.51623e-05_rb,0.51521e-05_rb, &\n        & 0.48927e-05_rb,0.43130e-05_rb,0.36508e-05_rb,0.20433e-05_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.33302e-05_rb,0.48035e-05_rb,0.54757e-05_rb,0.58129e-05_rb,0.59219e-05_rb, &\n        & 0.57796e-05_rb,0.52788e-05_rb,0.45081e-05_rb,0.26233e-05_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.33275e-05_rb,0.51944e-05_rb,0.60436e-05_rb,0.65119e-05_rb,0.67329e-05_rb, &\n        & 0.66992e-05_rb,0.63336e-05_rb,0.54989e-05_rb,0.32839e-05_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.33167e-05_rb,0.56042e-05_rb,0.66425e-05_rb,0.72606e-05_rb,0.75965e-05_rb, &\n        & 0.76619e-05_rb,0.74319e-05_rb,0.66922e-05_rb,0.40228e-05_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.33014e-05_rb,0.60212e-05_rb,0.72748e-05_rb,0.80496e-05_rb,0.84940e-05_rb, &\n        & 0.86532e-05_rb,0.85181e-05_rb,0.78992e-05_rb,0.48672e-05_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.27310e-05_rb,0.35992e-05_rb,0.39468e-05_rb,0.40831e-05_rb,0.40161e-05_rb, &\n        & 0.37266e-05_rb,0.32070e-05_rb,0.27591e-05_rb,0.14628e-05_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.27361e-05_rb,0.38904e-05_rb,0.43781e-05_rb,0.46075e-05_rb,0.46475e-05_rb, &\n        & 0.44710e-05_rb,0.39993e-05_rb,0.33922e-05_rb,0.19203e-05_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.27349e-05_rb,0.42103e-05_rb,0.48448e-05_rb,0.51814e-05_rb,0.53150e-05_rb, &\n        & 0.52403e-05_rb,0.48712e-05_rb,0.41669e-05_rb,0.24268e-05_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.27270e-05_rb,0.45504e-05_rb,0.53414e-05_rb,0.57970e-05_rb,0.60255e-05_rb, &\n        & 0.60359e-05_rb,0.57915e-05_rb,0.51016e-05_rb,0.30070e-05_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.27146e-05_rb,0.48994e-05_rb,0.58660e-05_rb,0.64467e-05_rb,0.67684e-05_rb, &\n        & 0.68529e-05_rb,0.66981e-05_rb,0.61431e-05_rb,0.36677e-05_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.22419e-05_rb,0.29237e-05_rb,0.31619e-05_rb,0.32419e-05_rb,0.31445e-05_rb, &\n        & 0.28618e-05_rb,0.23945e-05_rb,0.20454e-05_rb,0.10493e-05_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.22458e-05_rb,0.31578e-05_rb,0.35134e-05_rb,0.36703e-05_rb,0.36665e-05_rb, &\n        & 0.34835e-05_rb,0.30593e-05_rb,0.25559e-05_rb,0.14125e-05_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.22450e-05_rb,0.34192e-05_rb,0.38967e-05_rb,0.41378e-05_rb,0.42160e-05_rb, &\n        & 0.41184e-05_rb,0.37724e-05_rb,0.31954e-05_rb,0.18099e-05_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.22393e-05_rb,0.36988e-05_rb,0.43039e-05_rb,0.46449e-05_rb,0.48027e-05_rb, &\n        & 0.47756e-05_rb,0.45281e-05_rb,0.39284e-05_rb,0.22652e-05_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.22295e-05_rb,0.39888e-05_rb,0.47391e-05_rb,0.51827e-05_rb,0.54135e-05_rb, &\n        & 0.54517e-05_rb,0.52919e-05_rb,0.47894e-05_rb,0.27859e-05_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.18412e-05_rb,0.24512e-05_rb,0.26550e-05_rb,0.27210e-05_rb,0.26438e-05_rb, &\n        & 0.24068e-05_rb,0.20134e-05_rb,0.16980e-05_rb,0.87310e-06_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.18429e-05_rb,0.26525e-05_rb,0.29507e-05_rb,0.30835e-05_rb,0.30829e-05_rb, &\n        & 0.29354e-05_rb,0.25810e-05_rb,0.21539e-05_rb,0.11715e-05_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.18405e-05_rb,0.28725e-05_rb,0.32735e-05_rb,0.34815e-05_rb,0.35507e-05_rb, &\n        & 0.34733e-05_rb,0.31901e-05_rb,0.26957e-05_rb,0.15018e-05_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.18348e-05_rb,0.31060e-05_rb,0.36191e-05_rb,0.39123e-05_rb,0.40426e-05_rb, &\n        & 0.40206e-05_rb,0.38184e-05_rb,0.33125e-05_rb,0.18804e-05_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.18263e-05_rb,0.33539e-05_rb,0.39862e-05_rb,0.43590e-05_rb,0.45516e-05_rb, &\n        & 0.45841e-05_rb,0.44525e-05_rb,0.40371e-05_rb,0.23130e-05_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.15111e-05_rb,0.20512e-05_rb,0.22220e-05_rb,0.22783e-05_rb,0.22181e-05_rb, &\n        & 0.20219e-05_rb,0.16992e-05_rb,0.14085e-05_rb,0.72438e-06_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.15111e-05_rb,0.22209e-05_rb,0.24719e-05_rb,0.25841e-05_rb,0.25877e-05_rb, &\n        & 0.24700e-05_rb,0.21742e-05_rb,0.18087e-05_rb,0.96963e-06_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.15082e-05_rb,0.24051e-05_rb,0.27419e-05_rb,0.29223e-05_rb,0.29832e-05_rb, &\n        & 0.29201e-05_rb,0.26833e-05_rb,0.22609e-05_rb,0.12444e-05_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.15029e-05_rb,0.26018e-05_rb,0.30364e-05_rb,0.32843e-05_rb,0.33933e-05_rb, &\n        & 0.33730e-05_rb,0.32057e-05_rb,0.27875e-05_rb,0.15571e-05_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.14954e-05_rb,0.28127e-05_rb,0.33443e-05_rb,0.36551e-05_rb,0.38145e-05_rb, &\n        & 0.38425e-05_rb,0.37317e-05_rb,0.33866e-05_rb,0.19133e-05_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.12390e-05_rb,0.17127e-05_rb,0.18553e-05_rb,0.19025e-05_rb,0.18568e-05_rb, &\n        & 0.16968e-05_rb,0.14297e-05_rb,0.11813e-05_rb,0.59950e-06_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.12381e-05_rb,0.18537e-05_rb,0.20641e-05_rb,0.21603e-05_rb,0.21689e-05_rb, &\n        & 0.20712e-05_rb,0.18216e-05_rb,0.15132e-05_rb,0.80096e-06_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.12352e-05_rb,0.20080e-05_rb,0.22929e-05_rb,0.24467e-05_rb,0.24992e-05_rb, &\n        & 0.24434e-05_rb,0.22447e-05_rb,0.18839e-05_rb,0.10290e-05_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.12307e-05_rb,0.21754e-05_rb,0.25409e-05_rb,0.27489e-05_rb,0.28366e-05_rb, &\n        & 0.28171e-05_rb,0.26776e-05_rb,0.23303e-05_rb,0.12853e-05_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.12246e-05_rb,0.23532e-05_rb,0.27977e-05_rb,0.30556e-05_rb,0.31857e-05_rb, &\n        & 0.32077e-05_rb,0.31127e-05_rb,0.28260e-05_rb,0.15788e-05_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.43566e-04_rb,0.45402e-04_rb,0.48829e-04_rb,0.50194e-04_rb,0.49978e-04_rb, &\n        & 0.48581e-04_rb,0.45902e-04_rb,0.40781e-04_rb,0.34170e-04_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.43974e-04_rb,0.47415e-04_rb,0.52012e-04_rb,0.54325e-04_rb,0.54921e-04_rb, &\n        & 0.53975e-04_rb,0.51279e-04_rb,0.46650e-04_rb,0.40945e-04_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.44333e-04_rb,0.49545e-04_rb,0.55453e-04_rb,0.58909e-04_rb,0.60094e-04_rb, &\n        & 0.59376e-04_rb,0.56940e-04_rb,0.52843e-04_rb,0.48266e-04_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.44647e-04_rb,0.51771e-04_rb,0.59155e-04_rb,0.63607e-04_rb,0.65306e-04_rb, &\n        & 0.64935e-04_rb,0.62961e-04_rb,0.59262e-04_rb,0.55812e-04_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.44938e-04_rb,0.54202e-04_rb,0.63063e-04_rb,0.68229e-04_rb,0.70615e-04_rb, &\n        & 0.70683e-04_rb,0.69315e-04_rb,0.65992e-04_rb,0.63855e-04_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.37849e-04_rb,0.40606e-04_rb,0.43836e-04_rb,0.45171e-04_rb,0.45318e-04_rb, &\n        & 0.44251e-04_rb,0.41853e-04_rb,0.37247e-04_rb,0.29303e-04_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.38202e-04_rb,0.42545e-04_rb,0.46901e-04_rb,0.49156e-04_rb,0.50002e-04_rb, &\n        & 0.49256e-04_rb,0.46845e-04_rb,0.42755e-04_rb,0.35187e-04_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.38525e-04_rb,0.44570e-04_rb,0.50219e-04_rb,0.53465e-04_rb,0.54833e-04_rb, &\n        & 0.54348e-04_rb,0.52176e-04_rb,0.48578e-04_rb,0.41697e-04_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.38828e-04_rb,0.46787e-04_rb,0.53767e-04_rb,0.57818e-04_rb,0.59705e-04_rb, &\n        & 0.59611e-04_rb,0.57787e-04_rb,0.54523e-04_rb,0.48350e-04_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.39076e-04_rb,0.49105e-04_rb,0.57380e-04_rb,0.62144e-04_rb,0.64743e-04_rb, &\n        & 0.65049e-04_rb,0.63700e-04_rb,0.60747e-04_rb,0.55348e-04_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.32392e-04_rb,0.35504e-04_rb,0.38232e-04_rb,0.39483e-04_rb,0.39809e-04_rb, &\n        & 0.39031e-04_rb,0.36901e-04_rb,0.32585e-04_rb,0.23735e-04_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.32715e-04_rb,0.37303e-04_rb,0.41039e-04_rb,0.43202e-04_rb,0.44102e-04_rb, &\n        & 0.43582e-04_rb,0.41484e-04_rb,0.37593e-04_rb,0.28689e-04_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.33011e-04_rb,0.39216e-04_rb,0.44127e-04_rb,0.47180e-04_rb,0.48515e-04_rb, &\n        & 0.48269e-04_rb,0.46352e-04_rb,0.42866e-04_rb,0.34062e-04_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.33271e-04_rb,0.41283e-04_rb,0.47451e-04_rb,0.51158e-04_rb,0.53031e-04_rb, &\n        & 0.53191e-04_rb,0.51599e-04_rb,0.48489e-04_rb,0.40122e-04_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.33495e-04_rb,0.43439e-04_rb,0.50779e-04_rb,0.55143e-04_rb,0.57687e-04_rb, &\n        & 0.58208e-04_rb,0.56935e-04_rb,0.54138e-04_rb,0.46109e-04_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.27415e-04_rb,0.30543e-04_rb,0.32764e-04_rb,0.33940e-04_rb,0.34340e-04_rb, &\n        & 0.33775e-04_rb,0.31812e-04_rb,0.27722e-04_rb,0.18770e-04_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.27715e-04_rb,0.32169e-04_rb,0.35304e-04_rb,0.37332e-04_rb,0.38224e-04_rb, &\n        & 0.37868e-04_rb,0.35986e-04_rb,0.32265e-04_rb,0.22928e-04_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.27982e-04_rb,0.33932e-04_rb,0.38141e-04_rb,0.40925e-04_rb,0.42223e-04_rb, &\n        & 0.42122e-04_rb,0.40409e-04_rb,0.37026e-04_rb,0.27474e-04_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.28215e-04_rb,0.35808e-04_rb,0.41184e-04_rb,0.44532e-04_rb,0.46320e-04_rb, &\n        & 0.46554e-04_rb,0.45091e-04_rb,0.41998e-04_rb,0.32462e-04_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.28437e-04_rb,0.37809e-04_rb,0.44202e-04_rb,0.48199e-04_rb,0.50577e-04_rb, &\n        & 0.51211e-04_rb,0.50186e-04_rb,0.47427e-04_rb,0.38088e-04_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.23010e-04_rb,0.25978e-04_rb,0.27838e-04_rb,0.28899e-04_rb,0.29286e-04_rb, &\n        & 0.28721e-04_rb,0.26945e-04_rb,0.23196e-04_rb,0.14687e-04_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.23283e-04_rb,0.27434e-04_rb,0.30115e-04_rb,0.31931e-04_rb,0.32743e-04_rb, &\n        & 0.32398e-04_rb,0.30674e-04_rb,0.27269e-04_rb,0.18140e-04_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.23522e-04_rb,0.29002e-04_rb,0.32686e-04_rb,0.35125e-04_rb,0.36325e-04_rb, &\n        & 0.36232e-04_rb,0.34626e-04_rb,0.31511e-04_rb,0.21987e-04_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.23738e-04_rb,0.30687e-04_rb,0.35404e-04_rb,0.38366e-04_rb,0.40013e-04_rb, &\n        & 0.40198e-04_rb,0.38830e-04_rb,0.35973e-04_rb,0.26236e-04_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.23936e-04_rb,0.32534e-04_rb,0.38093e-04_rb,0.41748e-04_rb,0.43875e-04_rb, &\n        & 0.44440e-04_rb,0.43519e-04_rb,0.40954e-04_rb,0.31086e-04_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.19172e-04_rb,0.21867e-04_rb,0.23409e-04_rb,0.24321e-04_rb,0.24529e-04_rb, &\n        & 0.23927e-04_rb,0.22333e-04_rb,0.18955e-04_rb,0.11218e-04_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.19419e-04_rb,0.23150e-04_rb,0.25412e-04_rb,0.26974e-04_rb,0.27574e-04_rb, &\n        & 0.27129e-04_rb,0.25625e-04_rb,0.22590e-04_rb,0.14082e-04_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.19636e-04_rb,0.24533e-04_rb,0.27708e-04_rb,0.29785e-04_rb,0.30733e-04_rb, &\n        & 0.30517e-04_rb,0.29114e-04_rb,0.26329e-04_rb,0.17293e-04_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.19836e-04_rb,0.26054e-04_rb,0.30093e-04_rb,0.32660e-04_rb,0.34002e-04_rb, &\n        & 0.34049e-04_rb,0.32819e-04_rb,0.30271e-04_rb,0.20869e-04_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.20002e-04_rb,0.27734e-04_rb,0.32461e-04_rb,0.35638e-04_rb,0.37355e-04_rb, &\n        & 0.37686e-04_rb,0.36788e-04_rb,0.34519e-04_rb,0.24769e-04_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.15886e-04_rb,0.18280e-04_rb,0.19557e-04_rb,0.20235e-04_rb,0.20297e-04_rb, &\n        & 0.19642e-04_rb,0.18202e-04_rb,0.15130e-04_rb,0.84335e-05_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.16105e-04_rb,0.19408e-04_rb,0.21322e-04_rb,0.22532e-04_rb,0.22888e-04_rb, &\n        & 0.22409e-04_rb,0.21064e-04_rb,0.18396e-04_rb,0.10766e-04_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.16304e-04_rb,0.20629e-04_rb,0.23329e-04_rb,0.24999e-04_rb,0.25612e-04_rb, &\n        & 0.25350e-04_rb,0.24115e-04_rb,0.21685e-04_rb,0.13408e-04_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.16482e-04_rb,0.21985e-04_rb,0.25409e-04_rb,0.27506e-04_rb,0.28475e-04_rb, &\n        & 0.28447e-04_rb,0.27347e-04_rb,0.25116e-04_rb,0.16377e-04_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.16621e-04_rb,0.23483e-04_rb,0.27507e-04_rb,0.30111e-04_rb,0.31449e-04_rb, &\n        & 0.31651e-04_rb,0.30823e-04_rb,0.28853e-04_rb,0.19647e-04_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.13104e-04_rb,0.15202e-04_rb,0.16227e-04_rb,0.16675e-04_rb,0.16618e-04_rb, &\n        & 0.15949e-04_rb,0.14642e-04_rb,0.11862e-04_rb,0.62741e-05_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.13296e-04_rb,0.16183e-04_rb,0.17762e-04_rb,0.18645e-04_rb,0.18799e-04_rb, &\n        & 0.18302e-04_rb,0.17108e-04_rb,0.14749e-04_rb,0.81431e-05_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.13475e-04_rb,0.17250e-04_rb,0.19501e-04_rb,0.20748e-04_rb,0.21144e-04_rb, &\n        & 0.20825e-04_rb,0.19726e-04_rb,0.17623e-04_rb,0.10291e-04_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.13631e-04_rb,0.18462e-04_rb,0.21319e-04_rb,0.22916e-04_rb,0.23622e-04_rb, &\n        & 0.23509e-04_rb,0.22509e-04_rb,0.20604e-04_rb,0.12727e-04_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.13752e-04_rb,0.19773e-04_rb,0.23162e-04_rb,0.25182e-04_rb,0.26210e-04_rb, &\n        & 0.26298e-04_rb,0.25526e-04_rb,0.23837e-04_rb,0.15433e-04_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.10771e-04_rb,0.12580e-04_rb,0.13349e-04_rb,0.13617e-04_rb,0.13459e-04_rb, &\n        & 0.12816e-04_rb,0.11635e-04_rb,0.90636e-05_rb,0.45849e-05_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.10937e-04_rb,0.13431e-04_rb,0.14667e-04_rb,0.15270e-04_rb,0.15289e-04_rb, &\n        & 0.14786e-04_rb,0.13720e-04_rb,0.11614e-04_rb,0.60707e-05_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.11095e-04_rb,0.14367e-04_rb,0.16153e-04_rb,0.17055e-04_rb,0.17287e-04_rb, &\n        & 0.16925e-04_rb,0.15948e-04_rb,0.14098e-04_rb,0.78037e-05_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.11230e-04_rb,0.15436e-04_rb,0.17715e-04_rb,0.18921e-04_rb,0.19404e-04_rb, &\n        & 0.19208e-04_rb,0.18318e-04_rb,0.16668e-04_rb,0.97810e-05_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.11337e-04_rb,0.16572e-04_rb,0.19310e-04_rb,0.20882e-04_rb,0.21623e-04_rb, &\n        & 0.21621e-04_rb,0.20902e-04_rb,0.19439e-04_rb,0.11994e-04_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.88397e-05_rb,0.10407e-04_rb,0.10992e-04_rb,0.11130e-04_rb,0.10914e-04_rb, &\n        & 0.10319e-04_rb,0.92746e-05_rb,0.69230e-05_rb,0.33878e-05_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.89820e-05_rb,0.11148e-04_rb,0.12114e-04_rb,0.12509e-04_rb,0.12455e-04_rb, &\n        & 0.11973e-04_rb,0.11026e-04_rb,0.91303e-05_rb,0.45777e-05_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.91201e-05_rb,0.11975e-04_rb,0.13369e-04_rb,0.14032e-04_rb,0.14150e-04_rb, &\n        & 0.13774e-04_rb,0.12899e-04_rb,0.11289e-04_rb,0.59718e-05_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.92338e-05_rb,0.12910e-04_rb,0.14708e-04_rb,0.15633e-04_rb,0.15947e-04_rb, &\n        & 0.15711e-04_rb,0.14916e-04_rb,0.13483e-04_rb,0.75778e-05_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.93270e-05_rb,0.13899e-04_rb,0.16089e-04_rb,0.17313e-04_rb,0.17838e-04_rb, &\n        & 0.17779e-04_rb,0.17126e-04_rb,0.15852e-04_rb,0.93849e-05_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.72957e-05_rb,0.88518e-05_rb,0.94180e-05_rb,0.95477e-05_rb,0.93627e-05_rb, &\n        & 0.88681e-05_rb,0.79846e-05_rb,0.60665e-05_rb,0.28938e-05_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.74164e-05_rb,0.95244e-05_rb,0.10413e-04_rb,0.10760e-04_rb,0.10725e-04_rb, &\n        & 0.10300e-04_rb,0.94914e-05_rb,0.79265e-05_rb,0.39145e-05_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.75267e-05_rb,0.10290e-04_rb,0.11516e-04_rb,0.12091e-04_rb,0.12186e-04_rb, &\n        & 0.11866e-04_rb,0.11116e-04_rb,0.97843e-05_rb,0.51152e-05_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.76165e-05_rb,0.11127e-04_rb,0.12682e-04_rb,0.13483e-04_rb,0.13746e-04_rb, &\n        & 0.13546e-04_rb,0.12885e-04_rb,0.11704e-04_rb,0.64876e-05_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.76866e-05_rb,0.11972e-04_rb,0.13896e-04_rb,0.14938e-04_rb,0.15405e-04_rb, &\n        & 0.15374e-04_rb,0.14838e-04_rb,0.13790e-04_rb,0.80319e-05_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.60137e-05_rb,0.75193e-05_rb,0.80348e-05_rb,0.81538e-05_rb,0.80064e-05_rb, &\n        & 0.75822e-05_rb,0.68354e-05_rb,0.52502e-05_rb,0.24674e-05_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.61150e-05_rb,0.81325e-05_rb,0.89089e-05_rb,0.92208e-05_rb,0.91831e-05_rb, &\n        & 0.88171e-05_rb,0.81283e-05_rb,0.68396e-05_rb,0.33429e-05_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.62020e-05_rb,0.88113e-05_rb,0.98818e-05_rb,0.10369e-04_rb,0.10440e-04_rb, &\n        & 0.10164e-04_rb,0.95355e-05_rb,0.84372e-05_rb,0.43683e-05_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.62729e-05_rb,0.95382e-05_rb,0.10890e-04_rb,0.11569e-04_rb,0.11793e-04_rb, &\n        & 0.11630e-04_rb,0.11082e-04_rb,0.10108e-04_rb,0.55358e-05_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.63199e-05_rb,0.10271e-04_rb,0.11934e-04_rb,0.12838e-04_rb,0.13254e-04_rb, &\n        & 0.13231e-04_rb,0.12796e-04_rb,0.11934e-04_rb,0.68492e-05_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.49517e-05_rb,0.63774e-05_rb,0.68261e-05_rb,0.69411e-05_rb,0.68151e-05_rb, &\n        & 0.64513e-05_rb,0.58220e-05_rb,0.45056e-05_rb,0.20980e-05_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.50331e-05_rb,0.69207e-05_rb,0.75990e-05_rb,0.78660e-05_rb,0.78231e-05_rb, &\n        & 0.75119e-05_rb,0.69333e-05_rb,0.58688e-05_rb,0.28426e-05_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.51036e-05_rb,0.75155e-05_rb,0.84393e-05_rb,0.88490e-05_rb,0.89047e-05_rb, &\n        & 0.86720e-05_rb,0.81449e-05_rb,0.72410e-05_rb,0.37114e-05_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.51548e-05_rb,0.81445e-05_rb,0.93105e-05_rb,0.98793e-05_rb,0.10078e-04_rb, &\n        & 0.99535e-05_rb,0.94951e-05_rb,0.86973e-05_rb,0.47002e-05_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.51867e-05_rb,0.87857e-05_rb,0.10211e-04_rb,0.10992e-04_rb,0.11352e-04_rb, &\n        & 0.11351e-04_rb,0.10990e-04_rb,0.10277e-04_rb,0.58153e-05_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.18292e-03_rb,0.16357e-03_rb,0.15341e-03_rb,0.14585e-03_rb,0.13797e-03_rb, &\n        & 0.12826e-03_rb,0.11477e-03_rb,0.99322e-04_rb,0.99311e-04_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.18277e-03_rb,0.16502e-03_rb,0.15805e-03_rb,0.15290e-03_rb,0.14696e-03_rb, &\n        & 0.13850e-03_rb,0.12664e-03_rb,0.11419e-03_rb,0.11887e-03_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.18261e-03_rb,0.16694e-03_rb,0.16322e-03_rb,0.16061e-03_rb,0.15658e-03_rb, &\n        & 0.14997e-03_rb,0.14010e-03_rb,0.13154e-03_rb,0.14123e-03_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.18244e-03_rb,0.16952e-03_rb,0.16897e-03_rb,0.16909e-03_rb,0.16740e-03_rb, &\n        & 0.16268e-03_rb,0.15556e-03_rb,0.15163e-03_rb,0.16610e-03_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.18218e-03_rb,0.17247e-03_rb,0.17521e-03_rb,0.17844e-03_rb,0.17911e-03_rb, &\n        & 0.17696e-03_rb,0.17241e-03_rb,0.17370e-03_rb,0.19290e-03_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.17473e-03_rb,0.15735e-03_rb,0.14910e-03_rb,0.14227e-03_rb,0.13471e-03_rb, &\n        & 0.12515e-03_rb,0.11200e-03_rb,0.94986e-04_rb,0.89520e-04_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.17467e-03_rb,0.15907e-03_rb,0.15401e-03_rb,0.14953e-03_rb,0.14402e-03_rb, &\n        & 0.13581e-03_rb,0.12401e-03_rb,0.10893e-03_rb,0.10811e-03_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.17463e-03_rb,0.16142e-03_rb,0.15942e-03_rb,0.15773e-03_rb,0.15417e-03_rb, &\n        & 0.14769e-03_rb,0.13747e-03_rb,0.12528e-03_rb,0.12924e-03_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.17449e-03_rb,0.16426e-03_rb,0.16549e-03_rb,0.16671e-03_rb,0.16541e-03_rb, &\n        & 0.16085e-03_rb,0.15263e-03_rb,0.14389e-03_rb,0.15270e-03_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.17439e-03_rb,0.16753e-03_rb,0.17238e-03_rb,0.17658e-03_rb,0.17759e-03_rb, &\n        & 0.17537e-03_rb,0.16910e-03_rb,0.16442e-03_rb,0.17796e-03_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.16429e-03_rb,0.14895e-03_rb,0.14201e-03_rb,0.13557e-03_rb,0.12797e-03_rb, &\n        & 0.11829e-03_rb,0.10548e-03_rb,0.88188e-04_rb,0.77280e-04_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.16436e-03_rb,0.15092e-03_rb,0.14708e-03_rb,0.14277e-03_rb,0.13731e-03_rb, &\n        & 0.12899e-03_rb,0.11719e-03_rb,0.10108e-03_rb,0.94071e-04_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.16438e-03_rb,0.15344e-03_rb,0.15259e-03_rb,0.15105e-03_rb,0.14760e-03_rb, &\n        & 0.14078e-03_rb,0.13037e-03_rb,0.11602e-03_rb,0.11331e-03_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.16440e-03_rb,0.15651e-03_rb,0.15877e-03_rb,0.16021e-03_rb,0.15883e-03_rb, &\n        & 0.15394e-03_rb,0.14519e-03_rb,0.13303e-03_rb,0.13463e-03_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.16444e-03_rb,0.16001e-03_rb,0.16595e-03_rb,0.17023e-03_rb,0.17105e-03_rb, &\n        & 0.16855e-03_rb,0.16116e-03_rb,0.15159e-03_rb,0.15764e-03_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.15195e-03_rb,0.13883e-03_rb,0.13294e-03_rb,0.12699e-03_rb,0.11928e-03_rb, &\n        & 0.10948e-03_rb,0.97355e-04_rb,0.80985e-04_rb,0.65303e-04_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.15212e-03_rb,0.14097e-03_rb,0.13802e-03_rb,0.13404e-03_rb,0.12836e-03_rb, &\n        & 0.11996e-03_rb,0.10855e-03_rb,0.92884e-04_rb,0.80285e-04_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.15229e-03_rb,0.14364e-03_rb,0.14356e-03_rb,0.14222e-03_rb,0.13844e-03_rb, &\n        & 0.13147e-03_rb,0.12124e-03_rb,0.10661e-03_rb,0.97473e-04_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.15247e-03_rb,0.14694e-03_rb,0.14987e-03_rb,0.15132e-03_rb,0.14947e-03_rb, &\n        & 0.14428e-03_rb,0.13562e-03_rb,0.12218e-03_rb,0.11647e-03_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.15268e-03_rb,0.15064e-03_rb,0.15719e-03_rb,0.16126e-03_rb,0.16162e-03_rb, &\n        & 0.15869e-03_rb,0.15101e-03_rb,0.13904e-03_rb,0.13733e-03_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.13846e-03_rb,0.12761e-03_rb,0.12265e-03_rb,0.11713e-03_rb,0.10945e-03_rb, &\n        & 0.10011e-03_rb,0.88713e-04_rb,0.73647e-04_rb,0.54834e-04_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.13872e-03_rb,0.12987e-03_rb,0.12766e-03_rb,0.12392e-03_rb,0.11814e-03_rb, &\n        & 0.11013e-03_rb,0.99375e-04_rb,0.84759e-04_rb,0.68007e-04_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.13899e-03_rb,0.13272e-03_rb,0.13319e-03_rb,0.13187e-03_rb,0.12795e-03_rb, &\n        & 0.12108e-03_rb,0.11145e-03_rb,0.97499e-04_rb,0.83096e-04_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.13930e-03_rb,0.13617e-03_rb,0.13955e-03_rb,0.14081e-03_rb,0.13862e-03_rb, &\n        & 0.13340e-03_rb,0.12522e-03_rb,0.11183e-03_rb,0.99891e-04_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.13961e-03_rb,0.13997e-03_rb,0.14692e-03_rb,0.15049e-03_rb,0.15045e-03_rb, &\n        & 0.14736e-03_rb,0.14024e-03_rb,0.12733e-03_rb,0.11865e-03_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.12419e-03_rb,0.11551e-03_rb,0.11132e-03_rb,0.10604e-03_rb,0.98912e-04_rb, &\n        & 0.90174e-04_rb,0.79553e-04_rb,0.65781e-04_rb,0.45228e-04_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.12454e-03_rb,0.11786e-03_rb,0.11619e-03_rb,0.11259e-03_rb,0.10704e-03_rb, &\n        & 0.99552e-04_rb,0.89546e-04_rb,0.76061e-04_rb,0.56748e-04_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.12490e-03_rb,0.12081e-03_rb,0.12161e-03_rb,0.12024e-03_rb,0.11632e-03_rb, &\n        & 0.10988e-03_rb,0.10081e-03_rb,0.87950e-04_rb,0.69901e-04_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.12528e-03_rb,0.12425e-03_rb,0.12796e-03_rb,0.12887e-03_rb,0.12649e-03_rb, &\n        & 0.12150e-03_rb,0.11381e-03_rb,0.10130e-03_rb,0.84575e-04_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.12568e-03_rb,0.12811e-03_rb,0.13519e-03_rb,0.13816e-03_rb,0.13780e-03_rb, &\n        & 0.13476e-03_rb,0.12819e-03_rb,0.11553e-03_rb,0.10091e-03_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.10978e-03_rb,0.10308e-03_rb,0.99508e-04_rb,0.94571e-04_rb,0.88120e-04_rb, &\n        & 0.80226e-04_rb,0.70492e-04_rb,0.57993e-04_rb,0.36699e-04_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.11018e-03_rb,0.10544e-03_rb,0.10415e-03_rb,0.10080e-03_rb,0.95769e-04_rb, &\n        & 0.88865e-04_rb,0.79698e-04_rb,0.67450e-04_rb,0.46683e-04_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.11058e-03_rb,0.10837e-03_rb,0.10936e-03_rb,0.10807e-03_rb,0.10453e-03_rb, &\n        & 0.98497e-04_rb,0.90104e-04_rb,0.78443e-04_rb,0.58212e-04_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.11104e-03_rb,0.11179e-03_rb,0.11551e-03_rb,0.11629e-03_rb,0.11409e-03_rb, &\n        & 0.10934e-03_rb,0.10217e-03_rb,0.90913e-04_rb,0.71131e-04_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.11149e-03_rb,0.11560e-03_rb,0.12257e-03_rb,0.12521e-03_rb,0.12472e-03_rb, &\n        & 0.12180e-03_rb,0.11572e-03_rb,0.10421e-03_rb,0.85542e-04_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.95759e-04_rb,0.90773e-04_rb,0.87806e-04_rb,0.83290e-04_rb,0.77515e-04_rb, &\n        & 0.70528e-04_rb,0.61795e-04_rb,0.50465e-04_rb,0.29380e-04_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.96189e-04_rb,0.93120e-04_rb,0.92132e-04_rb,0.89103e-04_rb,0.84653e-04_rb, &\n        & 0.78456e-04_rb,0.70159e-04_rb,0.59177e-04_rb,0.37867e-04_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.96665e-04_rb,0.96018e-04_rb,0.97008e-04_rb,0.95975e-04_rb,0.92760e-04_rb, &\n        & 0.87379e-04_rb,0.79687e-04_rb,0.69248e-04_rb,0.47855e-04_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.97168e-04_rb,0.99322e-04_rb,0.10289e-03_rb,0.10373e-03_rb,0.10169e-03_rb, &\n        & 0.97397e-04_rb,0.90796e-04_rb,0.80805e-04_rb,0.59240e-04_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.97641e-04_rb,0.10302e-03_rb,0.10967e-03_rb,0.11218e-03_rb,0.11166e-03_rb, &\n        & 0.10896e-03_rb,0.10343e-03_rb,0.93210e-04_rb,0.71998e-04_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.82482e-04_rb,0.78941e-04_rb,0.76398e-04_rb,0.72429e-04_rb,0.67369e-04_rb, &\n        & 0.61188e-04_rb,0.53486e-04_rb,0.43219e-04_rb,0.23144e-04_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.82941e-04_rb,0.81194e-04_rb,0.80391e-04_rb,0.77783e-04_rb,0.73924e-04_rb, &\n        & 0.68383e-04_rb,0.61055e-04_rb,0.51145e-04_rb,0.30235e-04_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.83462e-04_rb,0.83998e-04_rb,0.84977e-04_rb,0.84161e-04_rb,0.81323e-04_rb, &\n        & 0.76538e-04_rb,0.69739e-04_rb,0.60350e-04_rb,0.38714e-04_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.83976e-04_rb,0.87153e-04_rb,0.90583e-04_rb,0.91413e-04_rb,0.89589e-04_rb, &\n        & 0.85741e-04_rb,0.79900e-04_rb,0.70947e-04_rb,0.48553e-04_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.84461e-04_rb,0.90734e-04_rb,0.96938e-04_rb,0.99296e-04_rb,0.98864e-04_rb, &\n        & 0.96399e-04_rb,0.91511e-04_rb,0.82490e-04_rb,0.59777e-04_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.70371e-04_rb,0.68110e-04_rb,0.65986e-04_rb,0.62636e-04_rb,0.58303e-04_rb, &\n        & 0.52961e-04_rb,0.46122e-04_rb,0.37036e-04_rb,0.18341e-04_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.70853e-04_rb,0.70288e-04_rb,0.69669e-04_rb,0.67543e-04_rb,0.64271e-04_rb, &\n        & 0.59496e-04_rb,0.53052e-04_rb,0.44224e-04_rb,0.24306e-04_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.71373e-04_rb,0.72956e-04_rb,0.74034e-04_rb,0.73423e-04_rb,0.71076e-04_rb, &\n        & 0.66934e-04_rb,0.61048e-04_rb,0.52623e-04_rb,0.31537e-04_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.71862e-04_rb,0.75946e-04_rb,0.79283e-04_rb,0.80149e-04_rb,0.78712e-04_rb, &\n        & 0.75412e-04_rb,0.70399e-04_rb,0.62323e-04_rb,0.40041e-04_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.72376e-04_rb,0.79405e-04_rb,0.85220e-04_rb,0.87544e-04_rb,0.87332e-04_rb, &\n        & 0.85268e-04_rb,0.81104e-04_rb,0.73085e-04_rb,0.49845e-04_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.59776e-04_rb,0.59155e-04_rb,0.57996e-04_rb,0.55642e-04_rb,0.52323e-04_rb, &\n        & 0.47930e-04_rb,0.42036e-04_rb,0.34179e-04_rb,0.16514e-04_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.60275e-04_rb,0.61436e-04_rb,0.61654e-04_rb,0.60490e-04_rb,0.58055e-04_rb, &\n        & 0.54242e-04_rb,0.48750e-04_rb,0.41144e-04_rb,0.21987e-04_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.60746e-04_rb,0.64075e-04_rb,0.66078e-04_rb,0.66233e-04_rb,0.64629e-04_rb, &\n        & 0.61455e-04_rb,0.56611e-04_rb,0.49290e-04_rb,0.28648e-04_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.61244e-04_rb,0.67066e-04_rb,0.71217e-04_rb,0.72696e-04_rb,0.72050e-04_rb, &\n        & 0.69816e-04_rb,0.65797e-04_rb,0.58590e-04_rb,0.36515e-04_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.61769e-04_rb,0.70693e-04_rb,0.76979e-04_rb,0.79872e-04_rb,0.80561e-04_rb, &\n        & 0.79478e-04_rb,0.76089e-04_rb,0.68898e-04_rb,0.45628e-04_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.50518e-04_rb,0.51187e-04_rb,0.50822e-04_rb,0.49284e-04_rb,0.46769e-04_rb, &\n        & 0.43097e-04_rb,0.38110e-04_rb,0.31379e-04_rb,0.14783e-04_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.50964e-04_rb,0.53463e-04_rb,0.54457e-04_rb,0.54020e-04_rb,0.52266e-04_rb, &\n        & 0.49174e-04_rb,0.44595e-04_rb,0.38042e-04_rb,0.19796e-04_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.51421e-04_rb,0.56033e-04_rb,0.58762e-04_rb,0.59481e-04_rb,0.58578e-04_rb, &\n        & 0.56207e-04_rb,0.52260e-04_rb,0.45820e-04_rb,0.25919e-04_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.51920e-04_rb,0.59121e-04_rb,0.63731e-04_rb,0.65674e-04_rb,0.65806e-04_rb, &\n        & 0.64464e-04_rb,0.61120e-04_rb,0.54677e-04_rb,0.33164e-04_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.52396e-04_rb,0.62780e-04_rb,0.69274e-04_rb,0.72637e-04_rb,0.74145e-04_rb, &\n        & 0.73831e-04_rb,0.71039e-04_rb,0.64514e-04_rb,0.41597e-04_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.42486e-04_rb,0.44174e-04_rb,0.44463e-04_rb,0.43555e-04_rb,0.41568e-04_rb, &\n        & 0.38563e-04_rb,0.34384e-04_rb,0.28625e-04_rb,0.13171e-04_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.42904e-04_rb,0.46376e-04_rb,0.47979e-04_rb,0.48065e-04_rb,0.46867e-04_rb, &\n        & 0.44391e-04_rb,0.40615e-04_rb,0.34938e-04_rb,0.17746e-04_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.43349e-04_rb,0.48965e-04_rb,0.52137e-04_rb,0.53262e-04_rb,0.52962e-04_rb, &\n        & 0.51246e-04_rb,0.47996e-04_rb,0.42282e-04_rb,0.23342e-04_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.43790e-04_rb,0.52076e-04_rb,0.56889e-04_rb,0.59186e-04_rb,0.60002e-04_rb, &\n        & 0.59254e-04_rb,0.56460e-04_rb,0.50705e-04_rb,0.29999e-04_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.44254e-04_rb,0.55629e-04_rb,0.62209e-04_rb,0.65993e-04_rb,0.68105e-04_rb, &\n        & 0.68270e-04_rb,0.65941e-04_rb,0.60145e-04_rb,0.37728e-04_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.42864e-03_rb,0.37538e-03_rb,0.32907e-03_rb,0.29701e-03_rb,0.26399e-03_rb, &\n        & 0.23587e-03_rb,0.21519e-03_rb,0.20736e-03_rb,0.23690e-03_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.42770e-03_rb,0.37463e-03_rb,0.33468e-03_rb,0.30443e-03_rb,0.27635e-03_rb, &\n        & 0.25424e-03_rb,0.24068e-03_rb,0.24289e-03_rb,0.27885e-03_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.42742e-03_rb,0.37444e-03_rb,0.34109e-03_rb,0.31378e-03_rb,0.29265e-03_rb, &\n        & 0.27618e-03_rb,0.26729e-03_rb,0.27967e-03_rb,0.32090e-03_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.42756e-03_rb,0.37461e-03_rb,0.34714e-03_rb,0.32647e-03_rb,0.30721e-03_rb, &\n        & 0.29888e-03_rb,0.29503e-03_rb,0.31853e-03_rb,0.36629e-03_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.42817e-03_rb,0.37676e-03_rb,0.35506e-03_rb,0.34027e-03_rb,0.32593e-03_rb, &\n        & 0.32117e-03_rb,0.33159e-03_rb,0.36650e-03_rb,0.42307e-03_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.44647e-03_rb,0.39099e-03_rb,0.34399e-03_rb,0.31315e-03_rb,0.27681e-03_rb, &\n        & 0.24757e-03_rb,0.21977e-03_rb,0.20260e-03_rb,0.22465e-03_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.44675e-03_rb,0.39126e-03_rb,0.35094e-03_rb,0.32069e-03_rb,0.29009e-03_rb, &\n        & 0.26696e-03_rb,0.24338e-03_rb,0.23431e-03_rb,0.26448e-03_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.44728e-03_rb,0.39176e-03_rb,0.35848e-03_rb,0.33002e-03_rb,0.30752e-03_rb, &\n        & 0.28763e-03_rb,0.26835e-03_rb,0.26923e-03_rb,0.30805e-03_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.44805e-03_rb,0.39321e-03_rb,0.36547e-03_rb,0.34473e-03_rb,0.32431e-03_rb, &\n        & 0.30833e-03_rb,0.29659e-03_rb,0.31021e-03_rb,0.35789e-03_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.44833e-03_rb,0.39641e-03_rb,0.37373e-03_rb,0.35955e-03_rb,0.34286e-03_rb, &\n        & 0.33059e-03_rb,0.33253e-03_rb,0.36056e-03_rb,0.41785e-03_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.45575e-03_rb,0.39903e-03_rb,0.35239e-03_rb,0.32061e-03_rb,0.28610e-03_rb, &\n        & 0.25358e-03_rb,0.22160e-03_rb,0.19044e-03_rb,0.19754e-03_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.45658e-03_rb,0.39983e-03_rb,0.35980e-03_rb,0.32984e-03_rb,0.29898e-03_rb, &\n        & 0.27505e-03_rb,0.24328e-03_rb,0.21905e-03_rb,0.23515e-03_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.45737e-03_rb,0.40126e-03_rb,0.36866e-03_rb,0.34025e-03_rb,0.31808e-03_rb, &\n        & 0.29648e-03_rb,0.26565e-03_rb,0.25100e-03_rb,0.27824e-03_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.45822e-03_rb,0.40344e-03_rb,0.37727e-03_rb,0.35639e-03_rb,0.33753e-03_rb, &\n        & 0.31544e-03_rb,0.29107e-03_rb,0.29011e-03_rb,0.33040e-03_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.45803e-03_rb,0.40724e-03_rb,0.38685e-03_rb,0.37303e-03_rb,0.35804e-03_rb, &\n        & 0.33477e-03_rb,0.32542e-03_rb,0.34063e-03_rb,0.39188e-03_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.45696e-03_rb,0.40009e-03_rb,0.35533e-03_rb,0.32134e-03_rb,0.28977e-03_rb, &\n        & 0.25642e-03_rb,0.22005e-03_rb,0.17825e-03_rb,0.16960e-03_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.45799e-03_rb,0.40164e-03_rb,0.36303e-03_rb,0.33235e-03_rb,0.30343e-03_rb, &\n        & 0.27796e-03_rb,0.24341e-03_rb,0.20303e-03_rb,0.20347e-03_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.45889e-03_rb,0.40391e-03_rb,0.37251e-03_rb,0.34409e-03_rb,0.32396e-03_rb, &\n        & 0.30068e-03_rb,0.26403e-03_rb,0.23112e-03_rb,0.24434e-03_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.45955e-03_rb,0.40640e-03_rb,0.38203e-03_rb,0.36158e-03_rb,0.34561e-03_rb, &\n        & 0.32162e-03_rb,0.28613e-03_rb,0.26715e-03_rb,0.29513e-03_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.45899e-03_rb,0.41016e-03_rb,0.39290e-03_rb,0.38024e-03_rb,0.36719e-03_rb, &\n        & 0.34183e-03_rb,0.31736e-03_rb,0.31348e-03_rb,0.35430e-03_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.44860e-03_rb,0.39309e-03_rb,0.35143e-03_rb,0.31765e-03_rb,0.28887e-03_rb, &\n        & 0.25439e-03_rb,0.21652e-03_rb,0.16876e-03_rb,0.14333e-03_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.45003e-03_rb,0.39579e-03_rb,0.35959e-03_rb,0.33075e-03_rb,0.30371e-03_rb, &\n        & 0.27559e-03_rb,0.24058e-03_rb,0.19058e-03_rb,0.17442e-03_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.45146e-03_rb,0.39890e-03_rb,0.36951e-03_rb,0.34437e-03_rb,0.32442e-03_rb, &\n        & 0.30040e-03_rb,0.26223e-03_rb,0.21520e-03_rb,0.21295e-03_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.45218e-03_rb,0.40151e-03_rb,0.38022e-03_rb,0.36228e-03_rb,0.34802e-03_rb, &\n        & 0.32336e-03_rb,0.28327e-03_rb,0.24766e-03_rb,0.26132e-03_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.45207e-03_rb,0.40582e-03_rb,0.39175e-03_rb,0.38293e-03_rb,0.37072e-03_rb, &\n        & 0.34500e-03_rb,0.31037e-03_rb,0.29012e-03_rb,0.31661e-03_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.43374e-03_rb,0.38081e-03_rb,0.34182e-03_rb,0.31060e-03_rb,0.28045e-03_rb, &\n        & 0.24697e-03_rb,0.20889e-03_rb,0.16055e-03_rb,0.12036e-03_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.43531e-03_rb,0.38407e-03_rb,0.35000e-03_rb,0.32358e-03_rb,0.29721e-03_rb, &\n        & 0.26821e-03_rb,0.23298e-03_rb,0.18104e-03_rb,0.14668e-03_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.43706e-03_rb,0.38738e-03_rb,0.35982e-03_rb,0.33840e-03_rb,0.31879e-03_rb, &\n        & 0.29390e-03_rb,0.25605e-03_rb,0.20200e-03_rb,0.18191e-03_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.43807e-03_rb,0.39050e-03_rb,0.37037e-03_rb,0.35740e-03_rb,0.34372e-03_rb, &\n        & 0.31863e-03_rb,0.27734e-03_rb,0.23003e-03_rb,0.22665e-03_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.43877e-03_rb,0.39551e-03_rb,0.38302e-03_rb,0.38004e-03_rb,0.36796e-03_rb, &\n        & 0.34140e-03_rb,0.30328e-03_rb,0.26832e-03_rb,0.27676e-03_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.41256e-03_rb,0.36341e-03_rb,0.32806e-03_rb,0.30023e-03_rb,0.26855e-03_rb, &\n        & 0.23444e-03_rb,0.19788e-03_rb,0.15062e-03_rb,0.10262e-03_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.41482e-03_rb,0.36772e-03_rb,0.33624e-03_rb,0.31297e-03_rb,0.28556e-03_rb, &\n        & 0.25627e-03_rb,0.22127e-03_rb,0.17072e-03_rb,0.12601e-03_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.41718e-03_rb,0.37142e-03_rb,0.34661e-03_rb,0.32744e-03_rb,0.30719e-03_rb, &\n        & 0.28254e-03_rb,0.24553e-03_rb,0.19044e-03_rb,0.15628e-03_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.41872e-03_rb,0.37555e-03_rb,0.35755e-03_rb,0.34713e-03_rb,0.33306e-03_rb, &\n        & 0.30832e-03_rb,0.26791e-03_rb,0.21481e-03_rb,0.19464e-03_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.42048e-03_rb,0.38195e-03_rb,0.37042e-03_rb,0.37076e-03_rb,0.35893e-03_rb, &\n        & 0.33177e-03_rb,0.29351e-03_rb,0.24858e-03_rb,0.23890e-03_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.38528e-03_rb,0.34132e-03_rb,0.30950e-03_rb,0.28435e-03_rb,0.25387e-03_rb, &\n        & 0.21998e-03_rb,0.18381e-03_rb,0.13995e-03_rb,0.86291e-04_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.38813e-03_rb,0.34604e-03_rb,0.31840e-03_rb,0.29716e-03_rb,0.26994e-03_rb, &\n        & 0.24125e-03_rb,0.20696e-03_rb,0.15919e-03_rb,0.10863e-03_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.39073e-03_rb,0.35038e-03_rb,0.33010e-03_rb,0.31128e-03_rb,0.29227e-03_rb, &\n        & 0.26641e-03_rb,0.23195e-03_rb,0.17813e-03_rb,0.13616e-03_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.39281e-03_rb,0.35556e-03_rb,0.34140e-03_rb,0.33132e-03_rb,0.31814e-03_rb, &\n        & 0.29308e-03_rb,0.25493e-03_rb,0.20064e-03_rb,0.16931e-03_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.39565e-03_rb,0.36362e-03_rb,0.35480e-03_rb,0.35632e-03_rb,0.34483e-03_rb, &\n        & 0.31779e-03_rb,0.27994e-03_rb,0.23183e-03_rb,0.20721e-03_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.35353e-03_rb,0.31534e-03_rb,0.28844e-03_rb,0.26382e-03_rb,0.23534e-03_rb, &\n        & 0.20347e-03_rb,0.16850e-03_rb,0.12923e-03_rb,0.71856e-04_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.35704e-03_rb,0.32078e-03_rb,0.29797e-03_rb,0.27689e-03_rb,0.25047e-03_rb, &\n        & 0.22397e-03_rb,0.19066e-03_rb,0.14773e-03_rb,0.92561e-04_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.36000e-03_rb,0.32561e-03_rb,0.31012e-03_rb,0.29082e-03_rb,0.27253e-03_rb, &\n        & 0.24851e-03_rb,0.21457e-03_rb,0.16607e-03_rb,0.11811e-03_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.36298e-03_rb,0.33189e-03_rb,0.32100e-03_rb,0.31077e-03_rb,0.29911e-03_rb, &\n        & 0.27480e-03_rb,0.23785e-03_rb,0.18730e-03_rb,0.14849e-03_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.36645e-03_rb,0.34041e-03_rb,0.33535e-03_rb,0.33583e-03_rb,0.32646e-03_rb, &\n        & 0.29975e-03_rb,0.26277e-03_rb,0.21618e-03_rb,0.18220e-03_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.31882e-03_rb,0.28657e-03_rb,0.26462e-03_rb,0.24132e-03_rb,0.21534e-03_rb, &\n        & 0.18636e-03_rb,0.15549e-03_rb,0.11817e-03_rb,0.60706e-04_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.32301e-03_rb,0.29267e-03_rb,0.27519e-03_rb,0.25478e-03_rb,0.23046e-03_rb, &\n        & 0.20560e-03_rb,0.17582e-03_rb,0.13638e-03_rb,0.79531e-04_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.32639e-03_rb,0.29816e-03_rb,0.28709e-03_rb,0.26927e-03_rb,0.25170e-03_rb, &\n        & 0.23027e-03_rb,0.19794e-03_rb,0.15520e-03_rb,0.10253e-03_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.33008e-03_rb,0.30559e-03_rb,0.29823e-03_rb,0.28948e-03_rb,0.27786e-03_rb, &\n        & 0.25639e-03_rb,0.22020e-03_rb,0.17621e-03_rb,0.13035e-03_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.33429e-03_rb,0.31481e-03_rb,0.31383e-03_rb,0.31396e-03_rb,0.30544e-03_rb, &\n        & 0.28143e-03_rb,0.24487e-03_rb,0.20336e-03_rb,0.16246e-03_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.28433e-03_rb,0.25922e-03_rb,0.24227e-03_rb,0.22327e-03_rb,0.20067e-03_rb, &\n        & 0.17618e-03_rb,0.15050e-03_rb,0.11425e-03_rb,0.57921e-04_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.28828e-03_rb,0.26532e-03_rb,0.25425e-03_rb,0.23723e-03_rb,0.21797e-03_rb, &\n        & 0.19695e-03_rb,0.17056e-03_rb,0.13252e-03_rb,0.76361e-04_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.29236e-03_rb,0.27228e-03_rb,0.26588e-03_rb,0.25415e-03_rb,0.24099e-03_rb, &\n        & 0.22135e-03_rb,0.19174e-03_rb,0.15232e-03_rb,0.98360e-04_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.29717e-03_rb,0.28209e-03_rb,0.27970e-03_rb,0.27650e-03_rb,0.26714e-03_rb, &\n        & 0.24681e-03_rb,0.21371e-03_rb,0.17631e-03_rb,0.12518e-03_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.30177e-03_rb,0.29180e-03_rb,0.29905e-03_rb,0.30274e-03_rb,0.29362e-03_rb, &\n        & 0.27208e-03_rb,0.24087e-03_rb,0.20461e-03_rb,0.15616e-03_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.24998e-03_rb,0.23220e-03_rb,0.21962e-03_rb,0.20418e-03_rb,0.18598e-03_rb, &\n        & 0.16635e-03_rb,0.14319e-03_rb,0.11002e-03_rb,0.54657e-04_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.25422e-03_rb,0.23880e-03_rb,0.23171e-03_rb,0.21907e-03_rb,0.20484e-03_rb, &\n        & 0.18724e-03_rb,0.16371e-03_rb,0.12837e-03_rb,0.72183e-04_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.25909e-03_rb,0.24827e-03_rb,0.24443e-03_rb,0.23867e-03_rb,0.22868e-03_rb, &\n        & 0.21084e-03_rb,0.18482e-03_rb,0.14974e-03_rb,0.93395e-04_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.26399e-03_rb,0.25851e-03_rb,0.26208e-03_rb,0.26298e-03_rb,0.25438e-03_rb, &\n        & 0.23482e-03_rb,0.20834e-03_rb,0.17589e-03_rb,0.11924e-03_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.26914e-03_rb,0.26866e-03_rb,0.28401e-03_rb,0.28945e-03_rb,0.28022e-03_rb, &\n        & 0.26150e-03_rb,0.23750e-03_rb,0.20542e-03_rb,0.14923e-03_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.21751e-03_rb,0.20608e-03_rb,0.19731e-03_rb,0.18540e-03_rb,0.17208e-03_rb, &\n        & 0.15624e-03_rb,0.13474e-03_rb,0.10527e-03_rb,0.50953e-04_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.22228e-03_rb,0.21439e-03_rb,0.20968e-03_rb,0.20158e-03_rb,0.19151e-03_rb, &\n        & 0.17720e-03_rb,0.15564e-03_rb,0.12461e-03_rb,0.67516e-04_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.22727e-03_rb,0.22462e-03_rb,0.22474e-03_rb,0.22318e-03_rb,0.21469e-03_rb, &\n        & 0.19989e-03_rb,0.17790e-03_rb,0.14782e-03_rb,0.88180e-04_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.23242e-03_rb,0.23488e-03_rb,0.24462e-03_rb,0.24805e-03_rb,0.24003e-03_rb, &\n        & 0.22364e-03_rb,0.20382e-03_rb,0.17470e-03_rb,0.11335e-03_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.23819e-03_rb,0.24692e-03_rb,0.26797e-03_rb,0.27413e-03_rb,0.26611e-03_rb, &\n        & 0.25207e-03_rb,0.23456e-03_rb,0.20493e-03_rb,0.14302e-03_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.54188e-03_rb,0.47438e-03_rb,0.41220e-03_rb,0.36319e-03_rb,0.32177e-03_rb, &\n        & 0.28178e-03_rb,0.26195e-03_rb,0.26768e-03_rb,0.30988e-03_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.53863e-03_rb,0.47157e-03_rb,0.41235e-03_rb,0.37142e-03_rb,0.33314e-03_rb, &\n        & 0.30667e-03_rb,0.29622e-03_rb,0.31573e-03_rb,0.36594e-03_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.53537e-03_rb,0.46873e-03_rb,0.41881e-03_rb,0.37881e-03_rb,0.35190e-03_rb, &\n        & 0.33275e-03_rb,0.33720e-03_rb,0.36928e-03_rb,0.42810e-03_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.53255e-03_rb,0.46630e-03_rb,0.42443e-03_rb,0.38945e-03_rb,0.37640e-03_rb, &\n        & 0.36424e-03_rb,0.38086e-03_rb,0.42782e-03_rb,0.49486e-03_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.53016e-03_rb,0.46423e-03_rb,0.43029e-03_rb,0.40524e-03_rb,0.39835e-03_rb, &\n        & 0.40134e-03_rb,0.42785e-03_rb,0.48998e-03_rb,0.56469e-03_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.58031e-03_rb,0.50799e-03_rb,0.44209e-03_rb,0.39038e-03_rb,0.34592e-03_rb, &\n        & 0.30091e-03_rb,0.27060e-03_rb,0.26179e-03_rb,0.30262e-03_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.57783e-03_rb,0.50583e-03_rb,0.44303e-03_rb,0.40158e-03_rb,0.35771e-03_rb, &\n        & 0.32458e-03_rb,0.30412e-03_rb,0.31051e-03_rb,0.36041e-03_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.57540e-03_rb,0.50373e-03_rb,0.45070e-03_rb,0.41078e-03_rb,0.37604e-03_rb, &\n        & 0.34973e-03_rb,0.34205e-03_rb,0.36376e-03_rb,0.42111e-03_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.57390e-03_rb,0.50246e-03_rb,0.45850e-03_rb,0.42273e-03_rb,0.40005e-03_rb, &\n        & 0.37925e-03_rb,0.38380e-03_rb,0.42075e-03_rb,0.48570e-03_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.57251e-03_rb,0.50128e-03_rb,0.46686e-03_rb,0.44000e-03_rb,0.42177e-03_rb, &\n        & 0.41338e-03_rb,0.42764e-03_rb,0.47996e-03_rb,0.55489e-03_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.61606e-03_rb,0.53921e-03_rb,0.46963e-03_rb,0.41409e-03_rb,0.36561e-03_rb, &\n        & 0.31888e-03_rb,0.27397e-03_rb,0.24837e-03_rb,0.28056e-03_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.61406e-03_rb,0.53752e-03_rb,0.47091e-03_rb,0.42713e-03_rb,0.37975e-03_rb, &\n        & 0.33844e-03_rb,0.30659e-03_rb,0.29320e-03_rb,0.33782e-03_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.61257e-03_rb,0.53626e-03_rb,0.47829e-03_rb,0.43902e-03_rb,0.39761e-03_rb, &\n        & 0.36364e-03_rb,0.34206e-03_rb,0.34371e-03_rb,0.39648e-03_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.61154e-03_rb,0.53538e-03_rb,0.48822e-03_rb,0.45223e-03_rb,0.42130e-03_rb, &\n        & 0.39347e-03_rb,0.37907e-03_rb,0.39708e-03_rb,0.45765e-03_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.61140e-03_rb,0.53529e-03_rb,0.49797e-03_rb,0.47117e-03_rb,0.44115e-03_rb, &\n        & 0.42497e-03_rb,0.41979e-03_rb,0.45564e-03_rb,0.52659e-03_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.64443e-03_rb,0.56411e-03_rb,0.49232e-03_rb,0.43467e-03_rb,0.38190e-03_rb, &\n        & 0.33277e-03_rb,0.27825e-03_rb,0.23501e-03_rb,0.25182e-03_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.64292e-03_rb,0.56277e-03_rb,0.49409e-03_rb,0.44787e-03_rb,0.39817e-03_rb, &\n        & 0.35161e-03_rb,0.30747e-03_rb,0.27717e-03_rb,0.30629e-03_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.64243e-03_rb,0.56236e-03_rb,0.50119e-03_rb,0.46200e-03_rb,0.41580e-03_rb, &\n        & 0.37809e-03_rb,0.34162e-03_rb,0.32168e-03_rb,0.36251e-03_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.64248e-03_rb,0.56245e-03_rb,0.51257e-03_rb,0.47612e-03_rb,0.44107e-03_rb, &\n        & 0.40610e-03_rb,0.37659e-03_rb,0.36992e-03_rb,0.42339e-03_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.64345e-03_rb,0.56414e-03_rb,0.52333e-03_rb,0.49621e-03_rb,0.46345e-03_rb, &\n        & 0.43530e-03_rb,0.41388e-03_rb,0.42704e-03_rb,0.49356e-03_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.66205e-03_rb,0.57941e-03_rb,0.50732e-03_rb,0.44788e-03_rb,0.39504e-03_rb, &\n        & 0.34261e-03_rb,0.28274e-03_rb,0.22440e-03_rb,0.22048e-03_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.66163e-03_rb,0.57912e-03_rb,0.51033e-03_rb,0.46104e-03_rb,0.41289e-03_rb, &\n        & 0.36220e-03_rb,0.30969e-03_rb,0.26291e-03_rb,0.27073e-03_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.66197e-03_rb,0.57946e-03_rb,0.51799e-03_rb,0.47594e-03_rb,0.43132e-03_rb, &\n        & 0.39012e-03_rb,0.34192e-03_rb,0.30335e-03_rb,0.32369e-03_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.66310e-03_rb,0.58124e-03_rb,0.52962e-03_rb,0.49191e-03_rb,0.45677e-03_rb, &\n        & 0.42022e-03_rb,0.37529e-03_rb,0.34603e-03_rb,0.38247e-03_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.66411e-03_rb,0.58365e-03_rb,0.54225e-03_rb,0.51373e-03_rb,0.48391e-03_rb, &\n        & 0.44802e-03_rb,0.41016e-03_rb,0.39855e-03_rb,0.45388e-03_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.66761e-03_rb,0.58431e-03_rb,0.51405e-03_rb,0.45280e-03_rb,0.40155e-03_rb, &\n        & 0.34610e-03_rb,0.28249e-03_rb,0.21395e-03_rb,0.18888e-03_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.66804e-03_rb,0.58472e-03_rb,0.51807e-03_rb,0.46619e-03_rb,0.41922e-03_rb, &\n        & 0.36797e-03_rb,0.30908e-03_rb,0.24851e-03_rb,0.23408e-03_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.66946e-03_rb,0.58664e-03_rb,0.52673e-03_rb,0.48103e-03_rb,0.43940e-03_rb, &\n        & 0.39605e-03_rb,0.34204e-03_rb,0.28507e-03_rb,0.28224e-03_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.67150e-03_rb,0.59004e-03_rb,0.53959e-03_rb,0.49825e-03_rb,0.46612e-03_rb, &\n        & 0.42814e-03_rb,0.37432e-03_rb,0.32325e-03_rb,0.33817e-03_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.67315e-03_rb,0.59352e-03_rb,0.55351e-03_rb,0.52125e-03_rb,0.49748e-03_rb, &\n        & 0.45943e-03_rb,0.40603e-03_rb,0.37064e-03_rb,0.40786e-03_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.65825e-03_rb,0.57610e-03_rb,0.50973e-03_rb,0.44919e-03_rb,0.40091e-03_rb, &\n        & 0.34393e-03_rb,0.27863e-03_rb,0.20584e-03_rb,0.15896e-03_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.66067e-03_rb,0.57854e-03_rb,0.51604e-03_rb,0.46345e-03_rb,0.41921e-03_rb, &\n        & 0.36628e-03_rb,0.30597e-03_rb,0.23625e-03_rb,0.19866e-03_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.66419e-03_rb,0.58318e-03_rb,0.52599e-03_rb,0.48043e-03_rb,0.43994e-03_rb, &\n        & 0.39562e-03_rb,0.33865e-03_rb,0.26970e-03_rb,0.24286e-03_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.66717e-03_rb,0.58792e-03_rb,0.54016e-03_rb,0.49893e-03_rb,0.46857e-03_rb, &\n        & 0.43005e-03_rb,0.37266e-03_rb,0.30411e-03_rb,0.29541e-03_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.67024e-03_rb,0.59309e-03_rb,0.55482e-03_rb,0.52246e-03_rb,0.50380e-03_rb, &\n        & 0.46446e-03_rb,0.40297e-03_rb,0.34641e-03_rb,0.36121e-03_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.63858e-03_rb,0.55888e-03_rb,0.49736e-03_rb,0.43942e-03_rb,0.39082e-03_rb, &\n        & 0.33512e-03_rb,0.27058e-03_rb,0.19736e-03_rb,0.13589e-03_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.64324e-03_rb,0.56410e-03_rb,0.50530e-03_rb,0.45504e-03_rb,0.41149e-03_rb, &\n        & 0.35701e-03_rb,0.29879e-03_rb,0.22618e-03_rb,0.16884e-03_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.64790e-03_rb,0.57033e-03_rb,0.51640e-03_rb,0.47474e-03_rb,0.43226e-03_rb, &\n        & 0.38846e-03_rb,0.33154e-03_rb,0.25769e-03_rb,0.20679e-03_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.65242e-03_rb,0.57688e-03_rb,0.53191e-03_rb,0.49447e-03_rb,0.46234e-03_rb, &\n        & 0.42468e-03_rb,0.36669e-03_rb,0.28907e-03_rb,0.25449e-03_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.65716e-03_rb,0.58346e-03_rb,0.54799e-03_rb,0.51859e-03_rb,0.49982e-03_rb, &\n        & 0.46218e-03_rb,0.39875e-03_rb,0.32573e-03_rb,0.31655e-03_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.61155e-03_rb,0.53549e-03_rb,0.47878e-03_rb,0.42579e-03_rb,0.37499e-03_rb, &\n        & 0.31961e-03_rb,0.25793e-03_rb,0.18655e-03_rb,0.11490e-03_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.61794e-03_rb,0.54314e-03_rb,0.48878e-03_rb,0.44250e-03_rb,0.39687e-03_rb, &\n        & 0.34151e-03_rb,0.28569e-03_rb,0.21436e-03_rb,0.14511e-03_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.62338e-03_rb,0.55078e-03_rb,0.50083e-03_rb,0.46354e-03_rb,0.41796e-03_rb, &\n        & 0.37306e-03_rb,0.31954e-03_rb,0.24508e-03_rb,0.17854e-03_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.62936e-03_rb,0.55894e-03_rb,0.51722e-03_rb,0.48335e-03_rb,0.44775e-03_rb, &\n        & 0.41130e-03_rb,0.35579e-03_rb,0.27533e-03_rb,0.21988e-03_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.63545e-03_rb,0.56698e-03_rb,0.53473e-03_rb,0.50887e-03_rb,0.48603e-03_rb, &\n        & 0.45259e-03_rb,0.39001e-03_rb,0.30792e-03_rb,0.27464e-03_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.57726e-03_rb,0.50676e-03_rb,0.45606e-03_rb,0.40779e-03_rb,0.35629e-03_rb, &\n        & 0.30220e-03_rb,0.24273e-03_rb,0.17731e-03_rb,0.97262e-04_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.58382e-03_rb,0.51548e-03_rb,0.46729e-03_rb,0.42570e-03_rb,0.37915e-03_rb, &\n        & 0.32497e-03_rb,0.26965e-03_rb,0.20381e-03_rb,0.12529e-03_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.59071e-03_rb,0.52512e-03_rb,0.48044e-03_rb,0.44753e-03_rb,0.40142e-03_rb, &\n        & 0.35504e-03_rb,0.30526e-03_rb,0.23284e-03_rb,0.15783e-03_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.59829e-03_rb,0.53444e-03_rb,0.49886e-03_rb,0.46810e-03_rb,0.43172e-03_rb, &\n        & 0.39380e-03_rb,0.34313e-03_rb,0.26284e-03_rb,0.19647e-03_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.60558e-03_rb,0.54444e-03_rb,0.51788e-03_rb,0.49497e-03_rb,0.47022e-03_rb, &\n        & 0.43733e-03_rb,0.37954e-03_rb,0.29404e-03_rb,0.24439e-03_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.53880e-03_rb,0.47669e-03_rb,0.43422e-03_rb,0.39066e-03_rb,0.34441e-03_rb, &\n        & 0.29300e-03_rb,0.23722e-03_rb,0.17846e-03_rb,0.93053e-04_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.54672e-03_rb,0.48762e-03_rb,0.44694e-03_rb,0.41155e-03_rb,0.36791e-03_rb, &\n        & 0.31854e-03_rb,0.26663e-03_rb,0.20551e-03_rb,0.12100e-03_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.55543e-03_rb,0.49853e-03_rb,0.46450e-03_rb,0.43411e-03_rb,0.39364e-03_rb, &\n        & 0.35233e-03_rb,0.30378e-03_rb,0.23442e-03_rb,0.15474e-03_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.56418e-03_rb,0.50955e-03_rb,0.48543e-03_rb,0.45785e-03_rb,0.42947e-03_rb, &\n        & 0.39274e-03_rb,0.34329e-03_rb,0.26304e-03_rb,0.19545e-03_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.57281e-03_rb,0.52221e-03_rb,0.50507e-03_rb,0.49044e-03_rb,0.47093e-03_rb, &\n        & 0.43647e-03_rb,0.38057e-03_rb,0.29685e-03_rb,0.24345e-03_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.49534e-03_rb,0.44336e-03_rb,0.40843e-03_rb,0.37029e-03_rb,0.32924e-03_rb, &\n        & 0.28268e-03_rb,0.23204e-03_rb,0.17692e-03_rb,0.89557e-04_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.50529e-03_rb,0.45586e-03_rb,0.42428e-03_rb,0.39360e-03_rb,0.35384e-03_rb, &\n        & 0.31099e-03_rb,0.26296e-03_rb,0.20575e-03_rb,0.11779e-03_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.51591e-03_rb,0.46841e-03_rb,0.44557e-03_rb,0.41710e-03_rb,0.38396e-03_rb, &\n        & 0.34779e-03_rb,0.29981e-03_rb,0.23475e-03_rb,0.15231e-03_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.52638e-03_rb,0.48189e-03_rb,0.46689e-03_rb,0.44567e-03_rb,0.42354e-03_rb, &\n        & 0.38951e-03_rb,0.33959e-03_rb,0.26406e-03_rb,0.19354e-03_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.53740e-03_rb,0.49847e-03_rb,0.48961e-03_rb,0.48352e-03_rb,0.46848e-03_rb, &\n        & 0.43322e-03_rb,0.37807e-03_rb,0.30031e-03_rb,0.24179e-03_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.44967e-03_rb,0.40765e-03_rb,0.37964e-03_rb,0.34767e-03_rb,0.31190e-03_rb, &\n        & 0.27110e-03_rb,0.22687e-03_rb,0.17331e-03_rb,0.86456e-04_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.46197e-03_rb,0.42196e-03_rb,0.40010e-03_rb,0.37282e-03_rb,0.33881e-03_rb, &\n        & 0.30170e-03_rb,0.25812e-03_rb,0.20314e-03_rb,0.11471e-03_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.47416e-03_rb,0.43662e-03_rb,0.42347e-03_rb,0.39902e-03_rb,0.37341e-03_rb, &\n        & 0.34073e-03_rb,0.29426e-03_rb,0.23321e-03_rb,0.14921e-03_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.48670e-03_rb,0.45348e-03_rb,0.44656e-03_rb,0.43321e-03_rb,0.41603e-03_rb, &\n        & 0.38366e-03_rb,0.33328e-03_rb,0.26489e-03_rb,0.19032e-03_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.49941e-03_rb,0.47298e-03_rb,0.47361e-03_rb,0.47457e-03_rb,0.46263e-03_rb, &\n        & 0.42791e-03_rb,0.37404e-03_rb,0.30319e-03_rb,0.23864e-03_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.67194e-03_rb,0.58821e-03_rb,0.50483e-03_rb,0.44022e-03_rb,0.39428e-03_rb, &\n        & 0.35001e-03_rb,0.32802e-03_rb,0.34712e-03_rb,0.40424e-03_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.66779e-03_rb,0.58462e-03_rb,0.50560e-03_rb,0.45370e-03_rb,0.41018e-03_rb, &\n        & 0.37788e-03_rb,0.37804e-03_rb,0.41641e-03_rb,0.48433e-03_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.66375e-03_rb,0.58112e-03_rb,0.50831e-03_rb,0.46547e-03_rb,0.43045e-03_rb, &\n        & 0.42028e-03_rb,0.43766e-03_rb,0.49681e-03_rb,0.57585e-03_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.65976e-03_rb,0.57768e-03_rb,0.51951e-03_rb,0.47941e-03_rb,0.45883e-03_rb, &\n        & 0.47280e-03_rb,0.50926e-03_rb,0.58385e-03_rb,0.67578e-03_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.65493e-03_rb,0.57349e-03_rb,0.52976e-03_rb,0.49649e-03_rb,0.49872e-03_rb, &\n        & 0.52477e-03_rb,0.58910e-03_rb,0.67477e-03_rb,0.78177e-03_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.74429e-03_rb,0.65147e-03_rb,0.55958e-03_rb,0.48439e-03_rb,0.43163e-03_rb, &\n        & 0.37450e-03_rb,0.34047e-03_rb,0.34702e-03_rb,0.40780e-03_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.73897e-03_rb,0.64685e-03_rb,0.56004e-03_rb,0.49710e-03_rb,0.44831e-03_rb, &\n        & 0.39986e-03_rb,0.38897e-03_rb,0.41601e-03_rb,0.48800e-03_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.73423e-03_rb,0.64274e-03_rb,0.56120e-03_rb,0.51084e-03_rb,0.46668e-03_rb, &\n        & 0.44211e-03_rb,0.44391e-03_rb,0.49187e-03_rb,0.57573e-03_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.72906e-03_rb,0.63825e-03_rb,0.57090e-03_rb,0.52414e-03_rb,0.49429e-03_rb, &\n        & 0.48962e-03_rb,0.50615e-03_rb,0.57487e-03_rb,0.67078e-03_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.72487e-03_rb,0.63461e-03_rb,0.58043e-03_rb,0.54078e-03_rb,0.53373e-03_rb, &\n        & 0.54010e-03_rb,0.58187e-03_rb,0.66737e-03_rb,0.77655e-03_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.81958e-03_rb,0.71735e-03_rb,0.61664e-03_rb,0.53266e-03_rb,0.46619e-03_rb, &\n        & 0.39818e-03_rb,0.35035e-03_rb,0.33455e-03_rb,0.39417e-03_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.81517e-03_rb,0.71349e-03_rb,0.61778e-03_rb,0.54292e-03_rb,0.48245e-03_rb, &\n        & 0.42187e-03_rb,0.39187e-03_rb,0.40203e-03_rb,0.47500e-03_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.81131e-03_rb,0.71014e-03_rb,0.61887e-03_rb,0.55563e-03_rb,0.49928e-03_rb, &\n        & 0.45852e-03_rb,0.44599e-03_rb,0.47656e-03_rb,0.56304e-03_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.80684e-03_rb,0.70624e-03_rb,0.62502e-03_rb,0.56854e-03_rb,0.52516e-03_rb, &\n        & 0.50282e-03_rb,0.50405e-03_rb,0.55674e-03_rb,0.65701e-03_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.80277e-03_rb,0.70271e-03_rb,0.63387e-03_rb,0.58439e-03_rb,0.56394e-03_rb, &\n        & 0.54984e-03_rb,0.57036e-03_rb,0.64435e-03_rb,0.75883e-03_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.88962e-03_rb,0.77859e-03_rb,0.66931e-03_rb,0.57740e-03_rb,0.50138e-03_rb, &\n        & 0.42396e-03_rb,0.36076e-03_rb,0.31901e-03_rb,0.36723e-03_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.88665e-03_rb,0.77601e-03_rb,0.67190e-03_rb,0.58651e-03_rb,0.51766e-03_rb, &\n        & 0.44641e-03_rb,0.39755e-03_rb,0.38137e-03_rb,0.44921e-03_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.88362e-03_rb,0.77338e-03_rb,0.67394e-03_rb,0.60034e-03_rb,0.53406e-03_rb, &\n        & 0.47716e-03_rb,0.44855e-03_rb,0.45695e-03_rb,0.53953e-03_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.87936e-03_rb,0.76967e-03_rb,0.67789e-03_rb,0.61530e-03_rb,0.55605e-03_rb, &\n        & 0.52026e-03_rb,0.50535e-03_rb,0.53746e-03_rb,0.63432e-03_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.87542e-03_rb,0.76625e-03_rb,0.68901e-03_rb,0.63085e-03_rb,0.59283e-03_rb, &\n        & 0.56499e-03_rb,0.56855e-03_rb,0.62330e-03_rb,0.73477e-03_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.95206e-03_rb,0.83319e-03_rb,0.71670e-03_rb,0.61887e-03_rb,0.53098e-03_rb, &\n        & 0.45065e-03_rb,0.37161e-03_rb,0.30790e-03_rb,0.33661e-03_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.95024e-03_rb,0.83163e-03_rb,0.72052e-03_rb,0.62686e-03_rb,0.54899e-03_rb, &\n        & 0.47363e-03_rb,0.40570e-03_rb,0.36303e-03_rb,0.41611e-03_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.94830e-03_rb,0.82995e-03_rb,0.72350e-03_rb,0.64294e-03_rb,0.56882e-03_rb, &\n        & 0.49923e-03_rb,0.45370e-03_rb,0.43446e-03_rb,0.50740e-03_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.94590e-03_rb,0.82788e-03_rb,0.72796e-03_rb,0.66075e-03_rb,0.59106e-03_rb, &\n        & 0.53960e-03_rb,0.50922e-03_rb,0.51449e-03_rb,0.60347e-03_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.94431e-03_rb,0.82652e-03_rb,0.73985e-03_rb,0.67685e-03_rb,0.62406e-03_rb, &\n        & 0.58535e-03_rb,0.56960e-03_rb,0.60003e-03_rb,0.70205e-03_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.10063e-02_rb,0.88067e-03_rb,0.75816e-03_rb,0.65590e-03_rb,0.55704e-03_rb, &\n        & 0.47312e-03_rb,0.38218e-03_rb,0.29812e-03_rb,0.29923e-03_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.10075e-02_rb,0.88171e-03_rb,0.76490e-03_rb,0.66447e-03_rb,0.57639e-03_rb, &\n        & 0.49685e-03_rb,0.41345e-03_rb,0.34724e-03_rb,0.37557e-03_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.10072e-02_rb,0.88152e-03_rb,0.76915e-03_rb,0.68176e-03_rb,0.59750e-03_rb, &\n        & 0.52339e-03_rb,0.45689e-03_rb,0.41130e-03_rb,0.46505e-03_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.10060e-02_rb,0.88049e-03_rb,0.77394e-03_rb,0.69974e-03_rb,0.62189e-03_rb, &\n        & 0.55958e-03_rb,0.51188e-03_rb,0.48580e-03_rb,0.55924e-03_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.10051e-02_rb,0.87967e-03_rb,0.78569e-03_rb,0.71720e-03_rb,0.65527e-03_rb, &\n        & 0.60501e-03_rb,0.57082e-03_rb,0.56756e-03_rb,0.65737e-03_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.10487e-02_rb,0.91773e-03_rb,0.79062e-03_rb,0.68516e-03_rb,0.57878e-03_rb, &\n        & 0.49035e-03_rb,0.39066e-03_rb,0.28990e-03_rb,0.26192e-03_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.10509e-02_rb,0.91972e-03_rb,0.79894e-03_rb,0.69452e-03_rb,0.59953e-03_rb, &\n        & 0.51487e-03_rb,0.42128e-03_rb,0.33451e-03_rb,0.33284e-03_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.10507e-02_rb,0.91957e-03_rb,0.80398e-03_rb,0.71157e-03_rb,0.62221e-03_rb, &\n        & 0.54150e-03_rb,0.46197e-03_rb,0.39208e-03_rb,0.41685e-03_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.10509e-02_rb,0.91973e-03_rb,0.80950e-03_rb,0.73042e-03_rb,0.64659e-03_rb, &\n        & 0.57916e-03_rb,0.51360e-03_rb,0.46065e-03_rb,0.50813e-03_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.10509e-02_rb,0.91978e-03_rb,0.82196e-03_rb,0.75027e-03_rb,0.67740e-03_rb, &\n        & 0.62606e-03_rb,0.57168e-03_rb,0.53418e-03_rb,0.60461e-03_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.10710e-02_rb,0.93729e-03_rb,0.80929e-03_rb,0.70366e-03_rb,0.59621e-03_rb, &\n        & 0.50074e-03_rb,0.39602e-03_rb,0.28309e-03_rb,0.22630e-03_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.10749e-02_rb,0.94069e-03_rb,0.82032e-03_rb,0.71447e-03_rb,0.61694e-03_rb, &\n        & 0.52833e-03_rb,0.42406e-03_rb,0.32400e-03_rb,0.29100e-03_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.10773e-02_rb,0.94281e-03_rb,0.82736e-03_rb,0.73051e-03_rb,0.64296e-03_rb, &\n        & 0.55298e-03_rb,0.46605e-03_rb,0.37591e-03_rb,0.36869e-03_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.10796e-02_rb,0.94487e-03_rb,0.83459e-03_rb,0.75111e-03_rb,0.66786e-03_rb, &\n        & 0.59048e-03_rb,0.51603e-03_rb,0.43920e-03_rb,0.45502e-03_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.10814e-02_rb,0.94726e-03_rb,0.84809e-03_rb,0.77185e-03_rb,0.69811e-03_rb, &\n        & 0.64090e-03_rb,0.57338e-03_rb,0.50692e-03_rb,0.54643e-03_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.10730e-02_rb,0.93903e-03_rb,0.81373e-03_rb,0.70878e-03_rb,0.60523e-03_rb, &\n        & 0.50463e-03_rb,0.39690e-03_rb,0.27640e-03_rb,0.19492e-03_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.10796e-02_rb,0.94482e-03_rb,0.82740e-03_rb,0.72216e-03_rb,0.62667e-03_rb, &\n        & 0.53533e-03_rb,0.42406e-03_rb,0.31368e-03_rb,0.25100e-03_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.10853e-02_rb,0.94982e-03_rb,0.83742e-03_rb,0.73904e-03_rb,0.65592e-03_rb, &\n        & 0.56092e-03_rb,0.46365e-03_rb,0.36183e-03_rb,0.32022e-03_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.10900e-02_rb,0.95441e-03_rb,0.84774e-03_rb,0.76272e-03_rb,0.68162e-03_rb, &\n        & 0.59735e-03_rb,0.51414e-03_rb,0.41927e-03_rb,0.39972e-03_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.10952e-02_rb,0.96081e-03_rb,0.86364e-03_rb,0.78596e-03_rb,0.71341e-03_rb, &\n        & 0.64539e-03_rb,0.57286e-03_rb,0.48249e-03_rb,0.48653e-03_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.10558e-02_rb,0.92391e-03_rb,0.80426e-03_rb,0.70294e-03_rb,0.60555e-03_rb, &\n        & 0.50218e-03_rb,0.39384e-03_rb,0.27052e-03_rb,0.17175e-03_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.10672e-02_rb,0.93391e-03_rb,0.82187e-03_rb,0.72055e-03_rb,0.62861e-03_rb, &\n        & 0.53517e-03_rb,0.42394e-03_rb,0.30520e-03_rb,0.22066e-03_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.10767e-02_rb,0.94234e-03_rb,0.83636e-03_rb,0.73971e-03_rb,0.66074e-03_rb, &\n        & 0.56459e-03_rb,0.46058e-03_rb,0.35232e-03_rb,0.28101e-03_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.10858e-02_rb,0.95208e-03_rb,0.85075e-03_rb,0.76653e-03_rb,0.68963e-03_rb, &\n        & 0.60125e-03_rb,0.51089e-03_rb,0.40664e-03_rb,0.35284e-03_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.10953e-02_rb,0.96285e-03_rb,0.86971e-03_rb,0.79369e-03_rb,0.72347e-03_rb, &\n        & 0.65043e-03_rb,0.57028e-03_rb,0.46529e-03_rb,0.43428e-03_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.10314e-02_rb,0.90258e-03_rb,0.79467e-03_rb,0.69943e-03_rb,0.60546e-03_rb, &\n        & 0.50625e-03_rb,0.39977e-03_rb,0.27736e-03_rb,0.16855e-03_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.10451e-02_rb,0.91471e-03_rb,0.81404e-03_rb,0.71994e-03_rb,0.63569e-03_rb, &\n        & 0.54231e-03_rb,0.43348e-03_rb,0.31480e-03_rb,0.21751e-03_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.10591e-02_rb,0.92888e-03_rb,0.83171e-03_rb,0.74582e-03_rb,0.67129e-03_rb, &\n        & 0.57545e-03_rb,0.47649e-03_rb,0.36327e-03_rb,0.27482e-03_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.10732e-02_rb,0.94400e-03_rb,0.85133e-03_rb,0.77904e-03_rb,0.70324e-03_rb, &\n        & 0.62021e-03_rb,0.53030e-03_rb,0.41771e-03_rb,0.34284e-03_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.10880e-02_rb,0.96010e-03_rb,0.87843e-03_rb,0.80902e-03_rb,0.74479e-03_rb, &\n        & 0.67711e-03_rb,0.59146e-03_rb,0.47518e-03_rb,0.42405e-03_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.99800e-03_rb,0.87344e-03_rb,0.77838e-03_rb,0.69077e-03_rb,0.60021e-03_rb, &\n        & 0.50540e-03_rb,0.40237e-03_rb,0.28326e-03_rb,0.16340e-03_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.10163e-02_rb,0.89149e-03_rb,0.80050e-03_rb,0.71513e-03_rb,0.63616e-03_rb, &\n        & 0.54455e-03_rb,0.44056e-03_rb,0.32235e-03_rb,0.21276e-03_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.10345e-02_rb,0.91067e-03_rb,0.82237e-03_rb,0.74899e-03_rb,0.67503e-03_rb, &\n        & 0.58381e-03_rb,0.48916e-03_rb,0.37171e-03_rb,0.26817e-03_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.10541e-02_rb,0.93146e-03_rb,0.84943e-03_rb,0.78581e-03_rb,0.71327e-03_rb, &\n        & 0.63724e-03_rb,0.54703e-03_rb,0.42621e-03_rb,0.33361e-03_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.10724e-02_rb,0.95127e-03_rb,0.88178e-03_rb,0.82065e-03_rb,0.76248e-03_rb, &\n        & 0.70028e-03_rb,0.60892e-03_rb,0.48179e-03_rb,0.41458e-03_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.95912e-03_rb,0.84178e-03_rb,0.75778e-03_rb,0.67765e-03_rb,0.59123e-03_rb, &\n        & 0.50112e-03_rb,0.40170e-03_rb,0.28784e-03_rb,0.15761e-03_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.98187e-03_rb,0.86541e-03_rb,0.78344e-03_rb,0.70851e-03_rb,0.63200e-03_rb, &\n        & 0.54351e-03_rb,0.44541e-03_rb,0.32864e-03_rb,0.20682e-03_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.10063e-02_rb,0.89078e-03_rb,0.81111e-03_rb,0.74766e-03_rb,0.67473e-03_rb, &\n        & 0.58963e-03_rb,0.49872e-03_rb,0.37736e-03_rb,0.26208e-03_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.10299e-02_rb,0.91565e-03_rb,0.84455e-03_rb,0.78769e-03_rb,0.71894e-03_rb, &\n        & 0.65012e-03_rb,0.55995e-03_rb,0.43170e-03_rb,0.32660e-03_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.10525e-02_rb,0.93912e-03_rb,0.88061e-03_rb,0.82863e-03_rb,0.77810e-03_rb, &\n        & 0.71766e-03_rb,0.62330e-03_rb,0.48589e-03_rb,0.40661e-03_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.84224e-03_rb,0.73740e-03_rb,0.63257e-03_rb,0.54853e-03_rb,0.48911e-03_rb, &\n        & 0.46139e-03_rb,0.45309e-03_rb,0.51018e-03_rb,0.59300e-03_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.83841e-03_rb,0.73411e-03_rb,0.62983e-03_rb,0.55802e-03_rb,0.51855e-03_rb, &\n        & 0.50261e-03_rb,0.52209e-03_rb,0.59394e-03_rb,0.69158e-03_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.83593e-03_rb,0.73202e-03_rb,0.62914e-03_rb,0.58596e-03_rb,0.54957e-03_rb, &\n        & 0.55151e-03_rb,0.60969e-03_rb,0.69097e-03_rb,0.80707e-03_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.83246e-03_rb,0.72902e-03_rb,0.63274e-03_rb,0.60961e-03_rb,0.59022e-03_rb, &\n        & 0.61063e-03_rb,0.70961e-03_rb,0.80207e-03_rb,0.93855e-03_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.82958e-03_rb,0.72654e-03_rb,0.65011e-03_rb,0.63711e-03_rb,0.63941e-03_rb, &\n        & 0.69313e-03_rb,0.82070e-03_rb,0.92941e-03_rb,0.10860e-02_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.94737e-03_rb,0.82928e-03_rb,0.71121e-03_rb,0.61292e-03_rb,0.53888e-03_rb, &\n        & 0.49608e-03_rb,0.46449e-03_rb,0.50895e-03_rb,0.59638e-03_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.94309e-03_rb,0.82559e-03_rb,0.70809e-03_rb,0.61981e-03_rb,0.56880e-03_rb, &\n        & 0.53738e-03_rb,0.52906e-03_rb,0.59714e-03_rb,0.70098e-03_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.93813e-03_rb,0.82131e-03_rb,0.70667e-03_rb,0.64442e-03_rb,0.60095e-03_rb, &\n        & 0.58581e-03_rb,0.62140e-03_rb,0.70455e-03_rb,0.83109e-03_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.93357e-03_rb,0.81735e-03_rb,0.70879e-03_rb,0.66885e-03_rb,0.63704e-03_rb, &\n        & 0.64975e-03_rb,0.73250e-03_rb,0.82836e-03_rb,0.97995e-03_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.92926e-03_rb,0.81362e-03_rb,0.72487e-03_rb,0.69759e-03_rb,0.68443e-03_rb, &\n        & 0.72989e-03_rb,0.85114e-03_rb,0.96045e-03_rb,0.11390e-02_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.10589e-02_rb,0.92685e-03_rb,0.79478e-03_rb,0.68185e-03_rb,0.58961e-03_rb, &\n        & 0.52592e-03_rb,0.47382e-03_rb,0.49304e-03_rb,0.58474e-03_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.10532e-02_rb,0.92189e-03_rb,0.79057e-03_rb,0.68536e-03_rb,0.61794e-03_rb, &\n        & 0.56535e-03_rb,0.53040e-03_rb,0.57934e-03_rb,0.68761e-03_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.10466e-02_rb,0.91613e-03_rb,0.78805e-03_rb,0.70517e-03_rb,0.65240e-03_rb, &\n        & 0.61071e-03_rb,0.61067e-03_rb,0.68776e-03_rb,0.81827e-03_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.10406e-02_rb,0.91088e-03_rb,0.78949e-03_rb,0.73011e-03_rb,0.68643e-03_rb, &\n        & 0.67486e-03_rb,0.72316e-03_rb,0.82048e-03_rb,0.97591e-03_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.10350e-02_rb,0.90609e-03_rb,0.80184e-03_rb,0.75651e-03_rb,0.73102e-03_rb, &\n        & 0.75672e-03_rb,0.85035e-03_rb,0.96398e-03_rb,0.11483e-02_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.11788e-02_rb,0.10317e-02_rb,0.88462e-03_rb,0.75562e-03_rb,0.64370e-03_rb, &\n        & 0.55868e-03_rb,0.48899e-03_rb,0.48008e-03_rb,0.57112e-03_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.11725e-02_rb,0.10263e-02_rb,0.87998e-03_rb,0.75781e-03_rb,0.66989e-03_rb, &\n        & 0.59814e-03_rb,0.54177e-03_rb,0.56164e-03_rb,0.66999e-03_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.11654e-02_rb,0.10201e-02_rb,0.87720e-03_rb,0.76990e-03_rb,0.70381e-03_rb, &\n        & 0.63928e-03_rb,0.60787e-03_rb,0.66447e-03_rb,0.79300e-03_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.11592e-02_rb,0.10147e-02_rb,0.87854e-03_rb,0.79340e-03_rb,0.73787e-03_rb, &\n        & 0.69602e-03_rb,0.70539e-03_rb,0.79266e-03_rb,0.94522e-03_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.11532e-02_rb,0.10094e-02_rb,0.88452e-03_rb,0.81797e-03_rb,0.78065e-03_rb, &\n        & 0.77762e-03_rb,0.82734e-03_rb,0.94053e-03_rb,0.11199e-02_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.13090e-02_rb,0.11455e-02_rb,0.98213e-03_rb,0.83571e-03_rb,0.70447e-03_rb, &\n        & 0.59736e-03_rb,0.51100e-03_rb,0.46541e-03_rb,0.54756e-03_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.13011e-02_rb,0.11387e-02_rb,0.97633e-03_rb,0.83818e-03_rb,0.72563e-03_rb, &\n        & 0.63146e-03_rb,0.56040e-03_rb,0.54671e-03_rb,0.65045e-03_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.12919e-02_rb,0.11307e-02_rb,0.97249e-03_rb,0.84355e-03_rb,0.75615e-03_rb, &\n        & 0.67456e-03_rb,0.62106e-03_rb,0.64503e-03_rb,0.77294e-03_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.12834e-02_rb,0.11233e-02_rb,0.97228e-03_rb,0.86290e-03_rb,0.79001e-03_rb, &\n        & 0.72644e-03_rb,0.70406e-03_rb,0.76742e-03_rb,0.92034e-03_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.12754e-02_rb,0.11163e-02_rb,0.97447e-03_rb,0.88787e-03_rb,0.82956e-03_rb, &\n        & 0.80041e-03_rb,0.81433e-03_rb,0.91302e-03_rb,0.10923e-02_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.14384e-02_rb,0.12588e-02_rb,0.10791e-02_rb,0.91745e-03_rb,0.77222e-03_rb, &\n        & 0.63777e-03_rb,0.53552e-03_rb,0.44917e-03_rb,0.50804e-03_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.14296e-02_rb,0.12511e-02_rb,0.10726e-02_rb,0.92106e-03_rb,0.78721e-03_rb, &\n        & 0.67056e-03_rb,0.58135e-03_rb,0.52600e-03_rb,0.61657e-03_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.14197e-02_rb,0.12425e-02_rb,0.10687e-02_rb,0.92311e-03_rb,0.81466e-03_rb, &\n        & 0.70925e-03_rb,0.63651e-03_rb,0.62263e-03_rb,0.74116e-03_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.14113e-02_rb,0.12351e-02_rb,0.10686e-02_rb,0.93888e-03_rb,0.84557e-03_rb, &\n        & 0.75721e-03_rb,0.71295e-03_rb,0.74435e-03_rb,0.88914e-03_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.14033e-02_rb,0.12282e-02_rb,0.10694e-02_rb,0.96147e-03_rb,0.87768e-03_rb, &\n        & 0.82519e-03_rb,0.81219e-03_rb,0.88552e-03_rb,0.10599e-02_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.15646e-02_rb,0.13692e-02_rb,0.11737e-02_rb,0.99670e-03_rb,0.83910e-03_rb, &\n        & 0.68337e-03_rb,0.56133e-03_rb,0.43784e-03_rb,0.46053e-03_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.15575e-02_rb,0.13630e-02_rb,0.11685e-02_rb,0.10035e-02_rb,0.85062e-03_rb, &\n        & 0.71436e-03_rb,0.60284e-03_rb,0.50378e-03_rb,0.56665e-03_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.15495e-02_rb,0.13560e-02_rb,0.11666e-02_rb,0.10059e-02_rb,0.87670e-03_rb, &\n        & 0.74963e-03_rb,0.65339e-03_rb,0.59583e-03_rb,0.69467e-03_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.15420e-02_rb,0.13494e-02_rb,0.11678e-02_rb,0.10189e-02_rb,0.90417e-03_rb, &\n        & 0.79237e-03_rb,0.72265e-03_rb,0.71412e-03_rb,0.84581e-03_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.15345e-02_rb,0.13429e-02_rb,0.11695e-02_rb,0.10414e-02_rb,0.93588e-03_rb, &\n        & 0.84978e-03_rb,0.81799e-03_rb,0.85682e-03_rb,0.10184e-02_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.16856e-02_rb,0.14750e-02_rb,0.12645e-02_rb,0.10725e-02_rb,0.90201e-03_rb, &\n        & 0.73159e-03_rb,0.58478e-03_rb,0.43268e-03_rb,0.41101e-03_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.16806e-02_rb,0.14706e-02_rb,0.12609e-02_rb,0.10836e-02_rb,0.91363e-03_rb, &\n        & 0.76033e-03_rb,0.62810e-03_rb,0.48786e-03_rb,0.51346e-03_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.16744e-02_rb,0.14652e-02_rb,0.12612e-02_rb,0.10887e-02_rb,0.93599e-03_rb, &\n        & 0.79815e-03_rb,0.66916e-03_rb,0.56926e-03_rb,0.63978e-03_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.16684e-02_rb,0.14601e-02_rb,0.12641e-02_rb,0.11000e-02_rb,0.96490e-03_rb, &\n        & 0.83543e-03_rb,0.73243e-03_rb,0.67845e-03_rb,0.78892e-03_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.16618e-02_rb,0.14543e-02_rb,0.12671e-02_rb,0.11238e-02_rb,0.99451e-03_rb, &\n        & 0.88426e-03_rb,0.81935e-03_rb,0.81741e-03_rb,0.96330e-03_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.17934e-02_rb,0.15694e-02_rb,0.13453e-02_rb,0.11410e-02_rb,0.95885e-03_rb, &\n        & 0.77818e-03_rb,0.60653e-03_rb,0.43079e-03_rb,0.36156e-03_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.17902e-02_rb,0.15666e-02_rb,0.13435e-02_rb,0.11557e-02_rb,0.97291e-03_rb, &\n        & 0.80328e-03_rb,0.65101e-03_rb,0.47930e-03_rb,0.45791e-03_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.17870e-02_rb,0.15637e-02_rb,0.13465e-02_rb,0.11644e-02_rb,0.99290e-03_rb, &\n        & 0.84365e-03_rb,0.69043e-03_rb,0.54887e-03_rb,0.58027e-03_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.17836e-02_rb,0.15608e-02_rb,0.13520e-02_rb,0.11761e-02_rb,0.10245e-02_rb, &\n        & 0.87956e-03_rb,0.74487e-03_rb,0.64626e-03_rb,0.72649e-03_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.17784e-02_rb,0.15563e-02_rb,0.13567e-02_rb,0.11994e-02_rb,0.10543e-02_rb, &\n        & 0.92517e-03_rb,0.82194e-03_rb,0.77306e-03_rb,0.89652e-03_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.18870e-02_rb,0.16513e-02_rb,0.14155e-02_rb,0.12026e-02_rb,0.10094e-02_rb, &\n        & 0.82157e-03_rb,0.62812e-03_rb,0.43279e-03_rb,0.32100e-03_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.18874e-02_rb,0.16516e-02_rb,0.14168e-02_rb,0.12199e-02_rb,0.10267e-02_rb, &\n        & 0.84527e-03_rb,0.67192e-03_rb,0.47951e-03_rb,0.41207e-03_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.18869e-02_rb,0.16512e-02_rb,0.14226e-02_rb,0.12326e-02_rb,0.10456e-02_rb, &\n        & 0.88603e-03_rb,0.71450e-03_rb,0.53998e-03_rb,0.52708e-03_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.18844e-02_rb,0.16490e-02_rb,0.14297e-02_rb,0.12452e-02_rb,0.10784e-02_rb, &\n        & 0.92565e-03_rb,0.76291e-03_rb,0.62910e-03_rb,0.66842e-03_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.18812e-02_rb,0.16463e-02_rb,0.14369e-02_rb,0.12677e-02_rb,0.11133e-02_rb, &\n        & 0.96733e-03_rb,0.83676e-03_rb,0.74378e-03_rb,0.83514e-03_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.19652e-02_rb,0.17197e-02_rb,0.14741e-02_rb,0.12638e-02_rb,0.10628e-02_rb, &\n        & 0.86832e-03_rb,0.66314e-03_rb,0.45418e-03_rb,0.32052e-03_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.19706e-02_rb,0.17244e-02_rb,0.14828e-02_rb,0.12836e-02_rb,0.10826e-02_rb, &\n        & 0.89693e-03_rb,0.71120e-03_rb,0.50274e-03_rb,0.41269e-03_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.19727e-02_rb,0.17263e-02_rb,0.14935e-02_rb,0.12979e-02_rb,0.11060e-02_rb, &\n        & 0.94341e-03_rb,0.75411e-03_rb,0.56772e-03_rb,0.53374e-03_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.19726e-02_rb,0.17262e-02_rb,0.15047e-02_rb,0.13132e-02_rb,0.11439e-02_rb, &\n        & 0.98450e-03_rb,0.80814e-03_rb,0.66163e-03_rb,0.68012e-03_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.19717e-02_rb,0.17254e-02_rb,0.15111e-02_rb,0.13415e-02_rb,0.11812e-02_rb, &\n        & 0.10302e-02_rb,0.88976e-03_rb,0.77856e-03_rb,0.85217e-03_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.20238e-02_rb,0.17709e-02_rb,0.15209e-02_rb,0.13140e-02_rb,0.11103e-02_rb, &\n        & 0.90805e-03_rb,0.69487e-03_rb,0.47365e-03_rb,0.32170e-03_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.20339e-02_rb,0.17798e-02_rb,0.15376e-02_rb,0.13369e-02_rb,0.11339e-02_rb, &\n        & 0.94414e-03_rb,0.74487e-03_rb,0.52470e-03_rb,0.41340e-03_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.20400e-02_rb,0.17851e-02_rb,0.15537e-02_rb,0.13538e-02_rb,0.11634e-02_rb, &\n        & 0.99316e-03_rb,0.79139e-03_rb,0.59483e-03_rb,0.53800e-03_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.20440e-02_rb,0.17887e-02_rb,0.15672e-02_rb,0.13751e-02_rb,0.12054e-02_rb, &\n        & 0.10358e-02_rb,0.85239e-03_rb,0.69118e-03_rb,0.69062e-03_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.20478e-02_rb,0.17920e-02_rb,0.15770e-02_rb,0.14084e-02_rb,0.12434e-02_rb, &\n        & 0.10883e-02_rb,0.94102e-03_rb,0.81111e-03_rb,0.86624e-03_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.20618e-02_rb,0.18042e-02_rb,0.15564e-02_rb,0.13520e-02_rb,0.11495e-02_rb, &\n        & 0.94146e-03_rb,0.72197e-03_rb,0.49143e-03_rb,0.32080e-03_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.20769e-02_rb,0.18174e-02_rb,0.15793e-02_rb,0.13781e-02_rb,0.11781e-02_rb, &\n        & 0.98504e-03_rb,0.77410e-03_rb,0.54584e-03_rb,0.41409e-03_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.20884e-02_rb,0.18274e-02_rb,0.16007e-02_rb,0.14008e-02_rb,0.12152e-02_rb, &\n        & 0.10359e-02_rb,0.82528e-03_rb,0.62085e-03_rb,0.53970e-03_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.21000e-02_rb,0.18376e-02_rb,0.16180e-02_rb,0.14292e-02_rb,0.12615e-02_rb, &\n        & 0.10817e-02_rb,0.89457e-03_rb,0.71909e-03_rb,0.69474e-03_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.21077e-02_rb,0.18456e-02_rb,0.16335e-02_rb,0.14673e-02_rb,0.12995e-02_rb, &\n        & 0.11413e-02_rb,0.98821e-03_rb,0.84127e-03_rb,0.87402e-03_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.11199e-02_rb,0.98039e-03_rb,0.84084e-03_rb,0.70943e-03_rb,0.63603e-03_rb, &\n        & 0.60649e-03_rb,0.68312e-03_rb,0.76350e-03_rb,0.90110e-03_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.11157e-02_rb,0.97670e-03_rb,0.83773e-03_rb,0.72395e-03_rb,0.68641e-03_rb, &\n        & 0.69858e-03_rb,0.81907e-03_rb,0.92056e-03_rb,0.10823e-02_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.11108e-02_rb,0.97243e-03_rb,0.83426e-03_rb,0.74791e-03_rb,0.75340e-03_rb, &\n        & 0.82026e-03_rb,0.97233e-03_rb,0.10968e-02_rb,0.12857e-02_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.11077e-02_rb,0.96981e-03_rb,0.83196e-03_rb,0.80006e-03_rb,0.82593e-03_rb, &\n        & 0.96481e-03_rb,0.11451e-02_rb,0.12942e-02_rb,0.15153e-02_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.11057e-02_rb,0.96811e-03_rb,0.83287e-03_rb,0.85771e-03_rb,0.92243e-03_rb, &\n        & 0.11291e-02_rb,0.13401e-02_rb,0.15139e-02_rb,0.17730e-02_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.12618e-02_rb,0.11045e-02_rb,0.94731e-03_rb,0.80059e-03_rb,0.70460e-03_rb, &\n        & 0.66164e-03_rb,0.71798e-03_rb,0.80280e-03_rb,0.96182e-03_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.12573e-02_rb,0.11007e-02_rb,0.94415e-03_rb,0.81463e-03_rb,0.74844e-03_rb, &\n        & 0.74157e-03_rb,0.85097e-03_rb,0.95625e-03_rb,0.11395e-02_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.12537e-02_rb,0.10976e-02_rb,0.94166e-03_rb,0.83421e-03_rb,0.81760e-03_rb, &\n        & 0.85124e-03_rb,0.10029e-02_rb,0.11319e-02_rb,0.13421e-02_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.12517e-02_rb,0.10959e-02_rb,0.94019e-03_rb,0.88029e-03_rb,0.88890e-03_rb, &\n        & 0.98937e-03_rb,0.11747e-02_rb,0.13301e-02_rb,0.15715e-02_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.12484e-02_rb,0.10932e-02_rb,0.93873e-03_rb,0.93946e-03_rb,0.97784e-03_rb, &\n        & 0.11555e-02_rb,0.13735e-02_rb,0.15606e-02_rb,0.18367e-02_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.14334e-02_rb,0.12547e-02_rb,0.10760e-02_rb,0.90369e-03_rb,0.78163e-03_rb, &\n        & 0.71064e-03_rb,0.72074e-03_rb,0.81006e-03_rb,0.97636e-03_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.14266e-02_rb,0.12488e-02_rb,0.10711e-02_rb,0.91657e-03_rb,0.81392e-03_rb, &\n        & 0.78379e-03_rb,0.85758e-03_rb,0.96540e-03_rb,0.11622e-02_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.14223e-02_rb,0.12452e-02_rb,0.10680e-02_rb,0.93146e-03_rb,0.87510e-03_rb, &\n        & 0.87756e-03_rb,0.10059e-02_rb,0.11359e-02_rb,0.13619e-02_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.14175e-02_rb,0.12411e-02_rb,0.10646e-02_rb,0.96483e-03_rb,0.94572e-03_rb, &\n        & 0.99384e-03_rb,0.11710e-02_rb,0.13256e-02_rb,0.15838e-02_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.14120e-02_rb,0.12363e-02_rb,0.10614e-02_rb,0.10223e-02_rb,0.10225e-02_rb, &\n        & 0.11461e-02_rb,0.13616e-02_rb,0.15455e-02_rb,0.18394e-02_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.16334e-02_rb,0.14296e-02_rb,0.12259e-02_rb,0.10262e-02_rb,0.87529e-03_rb, &\n        & 0.76396e-03_rb,0.72119e-03_rb,0.79306e-03_rb,0.95651e-03_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.16232e-02_rb,0.14208e-02_rb,0.12185e-02_rb,0.10348e-02_rb,0.89367e-03_rb, &\n        & 0.83199e-03_rb,0.84657e-03_rb,0.95561e-03_rb,0.11474e-02_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.16152e-02_rb,0.14140e-02_rb,0.12127e-02_rb,0.10485e-02_rb,0.94236e-03_rb, &\n        & 0.91572e-03_rb,0.99902e-03_rb,0.11299e-02_rb,0.13583e-02_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.16069e-02_rb,0.14067e-02_rb,0.12065e-02_rb,0.10685e-02_rb,0.10126e-02_rb, &\n        & 0.10172e-02_rb,0.11639e-02_rb,0.13179e-02_rb,0.15822e-02_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.15986e-02_rb,0.13996e-02_rb,0.12009e-02_rb,0.11161e-02_rb,0.10822e-02_rb, &\n        & 0.11448e-02_rb,0.13482e-02_rb,0.15289e-02_rb,0.18307e-02_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.18523e-02_rb,0.16211e-02_rb,0.13900e-02_rb,0.11617e-02_rb,0.98609e-03_rb, &\n        & 0.83071e-03_rb,0.73506e-03_rb,0.77421e-03_rb,0.93359e-03_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.18399e-02_rb,0.16104e-02_rb,0.13808e-02_rb,0.11680e-02_rb,0.99824e-03_rb, &\n        & 0.89112e-03_rb,0.84383e-03_rb,0.93250e-03_rb,0.11210e-02_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.18296e-02_rb,0.16015e-02_rb,0.13734e-02_rb,0.11806e-02_rb,0.10315e-02_rb, &\n        & 0.96812e-03_rb,0.98130e-03_rb,0.11095e-02_rb,0.13275e-02_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.18179e-02_rb,0.15913e-02_rb,0.13647e-02_rb,0.11924e-02_rb,0.10905e-02_rb, &\n        & 0.10578e-02_rb,0.11513e-02_rb,0.13088e-02_rb,0.15638e-02_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.18067e-02_rb,0.15816e-02_rb,0.13575e-02_rb,0.12252e-02_rb,0.11627e-02_rb, &\n        & 0.11690e-02_rb,0.13357e-02_rb,0.15168e-02_rb,0.18162e-02_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.20925e-02_rb,0.18312e-02_rb,0.15700e-02_rb,0.13095e-02_rb,0.11041e-02_rb, &\n        & 0.91669e-03_rb,0.76437e-03_rb,0.75155e-03_rb,0.90862e-03_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.20749e-02_rb,0.18159e-02_rb,0.15569e-02_rb,0.13117e-02_rb,0.11170e-02_rb, &\n        & 0.95740e-03_rb,0.85349e-03_rb,0.90211e-03_rb,0.10843e-02_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.20605e-02_rb,0.18034e-02_rb,0.15463e-02_rb,0.13221e-02_rb,0.11384e-02_rb, &\n        & 0.10293e-02_rb,0.97333e-03_rb,0.10765e-02_rb,0.12853e-02_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.20459e-02_rb,0.17907e-02_rb,0.15355e-02_rb,0.13321e-02_rb,0.11878e-02_rb, &\n        & 0.11138e-02_rb,0.11236e-02_rb,0.12716e-02_rb,0.15170e-02_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.20310e-02_rb,0.17778e-02_rb,0.15259e-02_rb,0.13542e-02_rb,0.12517e-02_rb, &\n        & 0.12095e-02_rb,0.13081e-02_rb,0.14898e-02_rb,0.17755e-02_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.23595e-02_rb,0.20648e-02_rb,0.17701e-02_rb,0.14754e-02_rb,0.12323e-02_rb, &\n        & 0.10132e-02_rb,0.80835e-03_rb,0.73377e-03_rb,0.88458e-03_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.23333e-02_rb,0.20420e-02_rb,0.17506e-02_rb,0.14700e-02_rb,0.12449e-02_rb, &\n        & 0.10427e-02_rb,0.88482e-03_rb,0.87865e-03_rb,0.10548e-02_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.23118e-02_rb,0.20232e-02_rb,0.17345e-02_rb,0.14754e-02_rb,0.12581e-02_rb, &\n        & 0.11040e-02_rb,0.98425e-03_rb,0.10425e-02_rb,0.12451e-02_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.22911e-02_rb,0.20052e-02_rb,0.17193e-02_rb,0.14831e-02_rb,0.12996e-02_rb, &\n        & 0.11778e-02_rb,0.11137e-02_rb,0.12310e-02_rb,0.14656e-02_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.22715e-02_rb,0.19881e-02_rb,0.17061e-02_rb,0.14949e-02_rb,0.13595e-02_rb, &\n        & 0.12702e-02_rb,0.12792e-02_rb,0.14480e-02_rb,0.17220e-02_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.26465e-02_rb,0.23159e-02_rb,0.19853e-02_rb,0.16547e-02_rb,0.13704e-02_rb, &\n        & 0.11161e-02_rb,0.87227e-03_rb,0.72579e-03_rb,0.85316e-03_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.26139e-02_rb,0.22874e-02_rb,0.19609e-02_rb,0.16420e-02_rb,0.13837e-02_rb, &\n        & 0.11377e-02_rb,0.93183e-03_rb,0.85926e-03_rb,0.10245e-02_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.25857e-02_rb,0.22628e-02_rb,0.19400e-02_rb,0.16425e-02_rb,0.13917e-02_rb, &\n        & 0.11859e-02_rb,0.10228e-02_rb,0.10157e-02_rb,0.12103e-02_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.25573e-02_rb,0.22380e-02_rb,0.19187e-02_rb,0.16463e-02_rb,0.14196e-02_rb, &\n        & 0.12582e-02_rb,0.11286e-02_rb,0.11958e-02_rb,0.14229e-02_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.25310e-02_rb,0.22151e-02_rb,0.19006e-02_rb,0.16478e-02_rb,0.14771e-02_rb, &\n        & 0.13382e-02_rb,0.12711e-02_rb,0.14043e-02_rb,0.16688e-02_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.29437e-02_rb,0.25759e-02_rb,0.22081e-02_rb,0.18403e-02_rb,0.15126e-02_rb, &\n        & 0.12266e-02_rb,0.94502e-03_rb,0.72553e-03_rb,0.80872e-03_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.29059e-02_rb,0.25428e-02_rb,0.21798e-02_rb,0.18221e-02_rb,0.15299e-02_rb, &\n        & 0.12446e-02_rb,0.99114e-03_rb,0.84495e-03_rb,0.98123e-03_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.28735e-02_rb,0.25146e-02_rb,0.21557e-02_rb,0.18193e-02_rb,0.15373e-02_rb, &\n        & 0.12770e-02_rb,0.10730e-02_rb,0.99151e-03_rb,0.11701e-02_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.28399e-02_rb,0.24853e-02_rb,0.21306e-02_rb,0.18209e-02_rb,0.15526e-02_rb, &\n        & 0.13434e-02_rb,0.11682e-02_rb,0.11617e-02_rb,0.13773e-02_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.28070e-02_rb,0.24565e-02_rb,0.21073e-02_rb,0.18175e-02_rb,0.15973e-02_rb, &\n        & 0.14179e-02_rb,0.12830e-02_rb,0.13638e-02_rb,0.16173e-02_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.32399e-02_rb,0.28350e-02_rb,0.24302e-02_rb,0.20252e-02_rb,0.16589e-02_rb, &\n        & 0.13407e-02_rb,0.10274e-02_rb,0.73986e-03_rb,0.76203e-03_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.31965e-02_rb,0.27971e-02_rb,0.23977e-02_rb,0.20029e-02_rb,0.16776e-02_rb, &\n        & 0.13600e-02_rb,0.10652e-02_rb,0.84551e-03_rb,0.93841e-03_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.31601e-02_rb,0.27653e-02_rb,0.23707e-02_rb,0.19975e-02_rb,0.16883e-02_rb, &\n        & 0.13843e-02_rb,0.11385e-02_rb,0.98230e-03_rb,0.11352e-02_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.31230e-02_rb,0.27329e-02_rb,0.23428e-02_rb,0.19986e-02_rb,0.16986e-02_rb, &\n        & 0.14381e-02_rb,0.12318e-02_rb,0.11431e-02_rb,0.13466e-02_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.30838e-02_rb,0.26986e-02_rb,0.23157e-02_rb,0.19957e-02_rb,0.17285e-02_rb, &\n        & 0.15111e-02_rb,0.13270e-02_rb,0.13396e-02_rb,0.15853e-02_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.35110e-02_rb,0.30722e-02_rb,0.26335e-02_rb,0.21948e-02_rb,0.18129e-02_rb, &\n        & 0.14641e-02_rb,0.11256e-02_rb,0.79561e-03_rb,0.78300e-03_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.34682e-02_rb,0.30349e-02_rb,0.26015e-02_rb,0.21788e-02_rb,0.18300e-02_rb, &\n        & 0.14846e-02_rb,0.11655e-02_rb,0.90541e-03_rb,0.97352e-03_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.34263e-02_rb,0.29982e-02_rb,0.25700e-02_rb,0.21750e-02_rb,0.18411e-02_rb, &\n        & 0.15104e-02_rb,0.12444e-02_rb,0.10462e-02_rb,0.11863e-02_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.33817e-02_rb,0.29592e-02_rb,0.25369e-02_rb,0.21760e-02_rb,0.18525e-02_rb, &\n        & 0.15666e-02_rb,0.13382e-02_rb,0.12088e-02_rb,0.14124e-02_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.33351e-02_rb,0.29184e-02_rb,0.25088e-02_rb,0.21673e-02_rb,0.18858e-02_rb, &\n        & 0.16404e-02_rb,0.14339e-02_rb,0.14160e-02_rb,0.16713e-02_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.37813e-02_rb,0.33087e-02_rb,0.28362e-02_rb,0.23654e-02_rb,0.19642e-02_rb, &\n        & 0.15868e-02_rb,0.12220e-02_rb,0.85134e-03_rb,0.79810e-03_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.37337e-02_rb,0.32671e-02_rb,0.28006e-02_rb,0.23535e-02_rb,0.19812e-02_rb, &\n        & 0.16073e-02_rb,0.12646e-02_rb,0.96230e-03_rb,0.10021e-02_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.36838e-02_rb,0.32235e-02_rb,0.27633e-02_rb,0.23494e-02_rb,0.19898e-02_rb, &\n        & 0.16363e-02_rb,0.13472e-02_rb,0.11056e-02_rb,0.12297e-02_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.36315e-02_rb,0.31778e-02_rb,0.27268e-02_rb,0.23457e-02_rb,0.20010e-02_rb, &\n        & 0.16953e-02_rb,0.14396e-02_rb,0.12736e-02_rb,0.14737e-02_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.35780e-02_rb,0.31310e-02_rb,0.26962e-02_rb,0.23324e-02_rb,0.20383e-02_rb, &\n        & 0.17680e-02_rb,0.15379e-02_rb,0.14913e-02_rb,0.17515e-02_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.40401e-02_rb,0.35352e-02_rb,0.30303e-02_rb,0.25331e-02_rb,0.21125e-02_rb, &\n        & 0.17061e-02_rb,0.13144e-02_rb,0.90469e-03_rb,0.81129e-03_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.39897e-02_rb,0.34912e-02_rb,0.29926e-02_rb,0.25245e-02_rb,0.21272e-02_rb, &\n        & 0.17273e-02_rb,0.13608e-02_rb,0.10148e-02_rb,0.10248e-02_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.39313e-02_rb,0.34401e-02_rb,0.29487e-02_rb,0.25178e-02_rb,0.21303e-02_rb, &\n        & 0.17587e-02_rb,0.14454e-02_rb,0.11592e-02_rb,0.12656e-02_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.38694e-02_rb,0.33859e-02_rb,0.29093e-02_rb,0.25068e-02_rb,0.21412e-02_rb, &\n        & 0.18203e-02_rb,0.15361e-02_rb,0.13357e-02_rb,0.15298e-02_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.38109e-02_rb,0.33347e-02_rb,0.28761e-02_rb,0.24907e-02_rb,0.21821e-02_rb, &\n        & 0.18916e-02_rb,0.16371e-02_rb,0.15629e-02_rb,0.18275e-02_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.15071e-02_rb,0.13191e-02_rb,0.11311e-02_rb,0.94313e-03_rb,0.82178e-03_rb, &\n        & 0.90230e-03_rb,0.10652e-02_rb,0.11879e-02_rb,0.14045e-02_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.15053e-02_rb,0.13176e-02_rb,0.11298e-02_rb,0.94210e-03_rb,0.87562e-03_rb, &\n        & 0.10432e-02_rb,0.12302e-02_rb,0.13664e-02_rb,0.16201e-02_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.15019e-02_rb,0.13147e-02_rb,0.11275e-02_rb,0.94187e-03_rb,0.97652e-03_rb, &\n        & 0.12093e-02_rb,0.14252e-02_rb,0.15816e-02_rb,0.18766e-02_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.14976e-02_rb,0.13109e-02_rb,0.11243e-02_rb,0.96063e-03_rb,0.11391e-02_rb, &\n        & 0.14106e-02_rb,0.16622e-02_rb,0.18446e-02_rb,0.21889e-02_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.14918e-02_rb,0.13060e-02_rb,0.11201e-02_rb,0.10256e-02_rb,0.13135e-02_rb, &\n        & 0.16256e-02_rb,0.19138e-02_rb,0.21174e-02_rb,0.25177e-02_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.17368e-02_rb,0.15199e-02_rb,0.13031e-02_rb,0.10865e-02_rb,0.93589e-03_rb, &\n        & 0.95913e-03_rb,0.11327e-02_rb,0.12643e-02_rb,0.15179e-02_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.17347e-02_rb,0.15183e-02_rb,0.13018e-02_rb,0.10853e-02_rb,0.98162e-03_rb, &\n        & 0.11204e-02_rb,0.13214e-02_rb,0.14695e-02_rb,0.17719e-02_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.17301e-02_rb,0.15143e-02_rb,0.12982e-02_rb,0.10867e-02_rb,0.10624e-02_rb, &\n        & 0.13058e-02_rb,0.15388e-02_rb,0.17088e-02_rb,0.20640e-02_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.17235e-02_rb,0.15085e-02_rb,0.12935e-02_rb,0.11059e-02_rb,0.12337e-02_rb, &\n        & 0.15285e-02_rb,0.18009e-02_rb,0.19982e-02_rb,0.24152e-02_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.17181e-02_rb,0.15038e-02_rb,0.12895e-02_rb,0.11598e-02_rb,0.14379e-02_rb, &\n        & 0.17807e-02_rb,0.20976e-02_rb,0.23230e-02_rb,0.28132e-02_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.19949e-02_rb,0.17458e-02_rb,0.14967e-02_rb,0.12475e-02_rb,0.10641e-02_rb, &\n        & 0.10100e-02_rb,0.11774e-02_rb,0.13116e-02_rb,0.16051e-02_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.19910e-02_rb,0.17424e-02_rb,0.14939e-02_rb,0.12453e-02_rb,0.11049e-02_rb, &\n        & 0.11564e-02_rb,0.13657e-02_rb,0.15222e-02_rb,0.18601e-02_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.19848e-02_rb,0.17370e-02_rb,0.14892e-02_rb,0.12476e-02_rb,0.11571e-02_rb, &\n        & 0.13573e-02_rb,0.16014e-02_rb,0.17817e-02_rb,0.21839e-02_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.19813e-02_rb,0.17340e-02_rb,0.14867e-02_rb,0.12671e-02_rb,0.12941e-02_rb, &\n        & 0.15954e-02_rb,0.18821e-02_rb,0.20919e-02_rb,0.25670e-02_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.19771e-02_rb,0.17304e-02_rb,0.14836e-02_rb,0.13013e-02_rb,0.15091e-02_rb, &\n        & 0.18697e-02_rb,0.22058e-02_rb,0.24525e-02_rb,0.30084e-02_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.23002e-02_rb,0.20126e-02_rb,0.17253e-02_rb,0.14382e-02_rb,0.12005e-02_rb, &\n        & 0.10932e-02_rb,0.12228e-02_rb,0.13639e-02_rb,0.16798e-02_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.22929e-02_rb,0.20065e-02_rb,0.17201e-02_rb,0.14337e-02_rb,0.12491e-02_rb, &\n        & 0.11967e-02_rb,0.14046e-02_rb,0.15632e-02_rb,0.19322e-02_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.22828e-02_rb,0.19977e-02_rb,0.17127e-02_rb,0.14287e-02_rb,0.12914e-02_rb, &\n        & 0.13860e-02_rb,0.16360e-02_rb,0.18240e-02_rb,0.22487e-02_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.22757e-02_rb,0.19915e-02_rb,0.17074e-02_rb,0.14457e-02_rb,0.13800e-02_rb, &\n        & 0.16339e-02_rb,0.19297e-02_rb,0.21519e-02_rb,0.26493e-02_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.22684e-02_rb,0.19852e-02_rb,0.17019e-02_rb,0.14754e-02_rb,0.15614e-02_rb, &\n        & 0.19242e-02_rb,0.22727e-02_rb,0.25341e-02_rb,0.31196e-02_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.26562e-02_rb,0.23246e-02_rb,0.19929e-02_rb,0.16611e-02_rb,0.13598e-02_rb, &\n        & 0.11996e-02_rb,0.12698e-02_rb,0.14174e-02_rb,0.17501e-02_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.26415e-02_rb,0.23116e-02_rb,0.19818e-02_rb,0.16521e-02_rb,0.14129e-02_rb, &\n        & 0.12866e-02_rb,0.14524e-02_rb,0.16197e-02_rb,0.20022e-02_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.26277e-02_rb,0.22994e-02_rb,0.19710e-02_rb,0.16428e-02_rb,0.14513e-02_rb, &\n        & 0.14339e-02_rb,0.16856e-02_rb,0.18777e-02_rb,0.23236e-02_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.26179e-02_rb,0.22909e-02_rb,0.19639e-02_rb,0.16526e-02_rb,0.15154e-02_rb, &\n        & 0.16607e-02_rb,0.19618e-02_rb,0.21909e-02_rb,0.27021e-02_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.26074e-02_rb,0.22818e-02_rb,0.19561e-02_rb,0.16780e-02_rb,0.16497e-02_rb, &\n        & 0.19592e-02_rb,0.23163e-02_rb,0.25915e-02_rb,0.31846e-02_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.30676e-02_rb,0.26845e-02_rb,0.23014e-02_rb,0.19182e-02_rb,0.15508e-02_rb, &\n        & 0.13265e-02_rb,0.13165e-02_rb,0.14712e-02_rb,0.18123e-02_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.30472e-02_rb,0.26667e-02_rb,0.22862e-02_rb,0.19057e-02_rb,0.15947e-02_rb, &\n        & 0.14067e-02_rb,0.15004e-02_rb,0.16750e-02_rb,0.20695e-02_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.30255e-02_rb,0.26477e-02_rb,0.22705e-02_rb,0.18926e-02_rb,0.16408e-02_rb, &\n        & 0.15149e-02_rb,0.17276e-02_rb,0.19275e-02_rb,0.23847e-02_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.30083e-02_rb,0.26326e-02_rb,0.22569e-02_rb,0.18906e-02_rb,0.16765e-02_rb, &\n        & 0.17066e-02_rb,0.20035e-02_rb,0.22386e-02_rb,0.27616e-02_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.29915e-02_rb,0.26179e-02_rb,0.22443e-02_rb,0.19114e-02_rb,0.17836e-02_rb, &\n        & 0.19800e-02_rb,0.23411e-02_rb,0.26194e-02_rb,0.32234e-02_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.35311e-02_rb,0.30900e-02_rb,0.26490e-02_rb,0.22082e-02_rb,0.17722e-02_rb, &\n        & 0.14850e-02_rb,0.13781e-02_rb,0.15158e-02_rb,0.18578e-02_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.35031e-02_rb,0.30656e-02_rb,0.26281e-02_rb,0.21907e-02_rb,0.18048e-02_rb, &\n        & 0.15528e-02_rb,0.15481e-02_rb,0.17322e-02_rb,0.21307e-02_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.34762e-02_rb,0.30421e-02_rb,0.26077e-02_rb,0.21737e-02_rb,0.18550e-02_rb, &\n        & 0.16362e-02_rb,0.17771e-02_rb,0.19863e-02_rb,0.24506e-02_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.34506e-02_rb,0.30197e-02_rb,0.25888e-02_rb,0.21628e-02_rb,0.18864e-02_rb, &\n        & 0.17891e-02_rb,0.20527e-02_rb,0.22948e-02_rb,0.28308e-02_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.34242e-02_rb,0.29966e-02_rb,0.25690e-02_rb,0.21752e-02_rb,0.19463e-02_rb, &\n        & 0.20224e-02_rb,0.23798e-02_rb,0.26659e-02_rb,0.32785e-02_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.40545e-02_rb,0.35480e-02_rb,0.30415e-02_rb,0.25348e-02_rb,0.20284e-02_rb, &\n        & 0.16698e-02_rb,0.14585e-02_rb,0.15473e-02_rb,0.18938e-02_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.40094e-02_rb,0.35086e-02_rb,0.30078e-02_rb,0.25070e-02_rb,0.20421e-02_rb, &\n        & 0.17325e-02_rb,0.16159e-02_rb,0.17783e-02_rb,0.21732e-02_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.39679e-02_rb,0.34723e-02_rb,0.29772e-02_rb,0.24816e-02_rb,0.20882e-02_rb, &\n        & 0.17972e-02_rb,0.18217e-02_rb,0.20430e-02_rb,0.25042e-02_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.39321e-02_rb,0.34411e-02_rb,0.29500e-02_rb,0.24630e-02_rb,0.21284e-02_rb, &\n        & 0.19080e-02_rb,0.21043e-02_rb,0.23586e-02_rb,0.28966e-02_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.38953e-02_rb,0.34088e-02_rb,0.29224e-02_rb,0.24683e-02_rb,0.21576e-02_rb, &\n        & 0.21070e-02_rb,0.24382e-02_rb,0.27335e-02_rb,0.33549e-02_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.46508e-02_rb,0.40697e-02_rb,0.34886e-02_rb,0.29075e-02_rb,0.23264e-02_rb, &\n        & 0.18591e-02_rb,0.15578e-02_rb,0.15738e-02_rb,0.19224e-02_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.45823e-02_rb,0.40098e-02_rb,0.34374e-02_rb,0.28649e-02_rb,0.23092e-02_rb, &\n        & 0.19366e-02_rb,0.17051e-02_rb,0.18133e-02_rb,0.22104e-02_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.45166e-02_rb,0.39524e-02_rb,0.33880e-02_rb,0.28238e-02_rb,0.23394e-02_rb, &\n        & 0.19917e-02_rb,0.18843e-02_rb,0.20815e-02_rb,0.25365e-02_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.44602e-02_rb,0.39031e-02_rb,0.33460e-02_rb,0.27890e-02_rb,0.23856e-02_rb, &\n        & 0.20682e-02_rb,0.21419e-02_rb,0.24093e-02_rb,0.29396e-02_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.44050e-02_rb,0.38549e-02_rb,0.33047e-02_rb,0.27817e-02_rb,0.24123e-02_rb, &\n        & 0.22258e-02_rb,0.24850e-02_rb,0.27956e-02_rb,0.34119e-02_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.53098e-02_rb,0.46463e-02_rb,0.39828e-02_rb,0.33194e-02_rb,0.26559e-02_rb, &\n        & 0.20766e-02_rb,0.16840e-02_rb,0.16129e-02_rb,0.19635e-02_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.52134e-02_rb,0.45620e-02_rb,0.39106e-02_rb,0.32592e-02_rb,0.26145e-02_rb, &\n        & 0.21601e-02_rb,0.18269e-02_rb,0.18690e-02_rb,0.22681e-02_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.51182e-02_rb,0.44788e-02_rb,0.38392e-02_rb,0.31998e-02_rb,0.26226e-02_rb, &\n        & 0.22138e-02_rb,0.19824e-02_rb,0.21416e-02_rb,0.25956e-02_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.50344e-02_rb,0.44054e-02_rb,0.37765e-02_rb,0.31477e-02_rb,0.26616e-02_rb, &\n        & 0.22709e-02_rb,0.22099e-02_rb,0.24682e-02_rb,0.29962e-02_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.49550e-02_rb,0.43361e-02_rb,0.37172e-02_rb,0.31183e-02_rb,0.26883e-02_rb, &\n        & 0.23873e-02_rb,0.25425e-02_rb,0.28708e-02_rb,0.34790e-02_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.59619e-02_rb,0.52169e-02_rb,0.44719e-02_rb,0.37267e-02_rb,0.29817e-02_rb, &\n        & 0.23525e-02_rb,0.18854e-02_rb,0.17723e-02_rb,0.21445e-02_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.58318e-02_rb,0.51031e-02_rb,0.43744e-02_rb,0.36457e-02_rb,0.29351e-02_rb, &\n        & 0.24253e-02_rb,0.20278e-02_rb,0.20449e-02_rb,0.24715e-02_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.57112e-02_rb,0.49976e-02_rb,0.42840e-02_rb,0.35704e-02_rb,0.29381e-02_rb, &\n        & 0.24724e-02_rb,0.21871e-02_rb,0.23372e-02_rb,0.28231e-02_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.56008e-02_rb,0.49010e-02_rb,0.42013e-02_rb,0.35025e-02_rb,0.29677e-02_rb, &\n        & 0.25269e-02_rb,0.24222e-02_rb,0.27009e-02_rb,0.32614e-02_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.54961e-02_rb,0.48096e-02_rb,0.41230e-02_rb,0.34666e-02_rb,0.29811e-02_rb, &\n        & 0.26438e-02_rb,0.27691e-02_rb,0.31324e-02_rb,0.37747e-02_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.66218e-02_rb,0.57942e-02_rb,0.49667e-02_rb,0.41391e-02_rb,0.33116e-02_rb, &\n        & 0.26382e-02_rb,0.20922e-02_rb,0.19344e-02_rb,0.23267e-02_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.64584e-02_rb,0.56513e-02_rb,0.48443e-02_rb,0.40372e-02_rb,0.32618e-02_rb, &\n        & 0.26974e-02_rb,0.22343e-02_rb,0.22270e-02_rb,0.26783e-02_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.63097e-02_rb,0.55213e-02_rb,0.47331e-02_rb,0.39445e-02_rb,0.32599e-02_rb, &\n        & 0.27357e-02_rb,0.23983e-02_rb,0.25418e-02_rb,0.30577e-02_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.61694e-02_rb,0.53986e-02_rb,0.46278e-02_rb,0.38631e-02_rb,0.32772e-02_rb, &\n        & 0.27857e-02_rb,0.26412e-02_rb,0.29352e-02_rb,0.35233e-02_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.60360e-02_rb,0.52820e-02_rb,0.45279e-02_rb,0.38177e-02_rb,0.32735e-02_rb, &\n        & 0.29011e-02_rb,0.29998e-02_rb,0.33948e-02_rb,0.40685e-02_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.72856e-02_rb,0.63751e-02_rb,0.54646e-02_rb,0.45539e-02_rb,0.36434e-02_rb, &\n        & 0.29246e-02_rb,0.23024e-02_rb,0.20968e-02_rb,0.25004e-02_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.70792e-02_rb,0.61945e-02_rb,0.53099e-02_rb,0.44252e-02_rb,0.35875e-02_rb, &\n        & 0.29681e-02_rb,0.24397e-02_rb,0.24073e-02_rb,0.28787e-02_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.68966e-02_rb,0.60348e-02_rb,0.51733e-02_rb,0.43112e-02_rb,0.35811e-02_rb, &\n        & 0.29976e-02_rb,0.26071e-02_rb,0.27479e-02_rb,0.32886e-02_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.67258e-02_rb,0.58855e-02_rb,0.50451e-02_rb,0.42204e-02_rb,0.35830e-02_rb, &\n        & 0.30400e-02_rb,0.28573e-02_rb,0.31625e-02_rb,0.37791e-02_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.65607e-02_rb,0.57411e-02_rb,0.49214e-02_rb,0.41617e-02_rb,0.35593e-02_rb, &\n        & 0.31530e-02_rb,0.32258e-02_rb,0.36487e-02_rb,0.43508e-02_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.16712e-02_rb,0.14631e-02_rb,0.12550e-02_rb,0.10468e-02_rb,0.92082e-03_rb, &\n        & 0.11371e-02_rb,0.13321e-02_rb,0.14544e-02_rb,0.17472e-02_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.16787e-02_rb,0.14701e-02_rb,0.12615e-02_rb,0.10530e-02_rb,0.10440e-02_rb, &\n        & 0.12893e-02_rb,0.15114e-02_rb,0.16524e-02_rb,0.19826e-02_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.16875e-02_rb,0.14779e-02_rb,0.12683e-02_rb,0.10588e-02_rb,0.11676e-02_rb, &\n        & 0.14424e-02_rb,0.16914e-02_rb,0.18523e-02_rb,0.22202e-02_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.16926e-02_rb,0.14826e-02_rb,0.12725e-02_rb,0.10626e-02_rb,0.12909e-02_rb, &\n        & 0.15950e-02_rb,0.18720e-02_rb,0.20532e-02_rb,0.24579e-02_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.16942e-02_rb,0.14841e-02_rb,0.12739e-02_rb,0.11419e-02_rb,0.15149e-02_rb, &\n        & 0.18796e-02_rb,0.22246e-02_rb,0.24968e-02_rb,0.29379e-02_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.19607e-02_rb,0.17158e-02_rb,0.14714e-02_rb,0.12274e-02_rb,0.10440e-02_rb, &\n        & 0.12890e-02_rb,0.15097e-02_rb,0.16471e-02_rb,0.20285e-02_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.19666e-02_rb,0.17216e-02_rb,0.14767e-02_rb,0.12314e-02_rb,0.11872e-02_rb, &\n        & 0.14659e-02_rb,0.17177e-02_rb,0.18761e-02_rb,0.23077e-02_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.19740e-02_rb,0.17284e-02_rb,0.14830e-02_rb,0.12374e-02_rb,0.13301e-02_rb, &\n        & 0.16429e-02_rb,0.19255e-02_rb,0.21058e-02_rb,0.25866e-02_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.19796e-02_rb,0.17334e-02_rb,0.14872e-02_rb,0.12416e-02_rb,0.14717e-02_rb, &\n        & 0.18182e-02_rb,0.21321e-02_rb,0.23342e-02_rb,0.28637e-02_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.19818e-02_rb,0.17354e-02_rb,0.14891e-02_rb,0.12544e-02_rb,0.16318e-02_rb, &\n        & 0.20217e-02_rb,0.23832e-02_rb,0.26470e-02_rb,0.31951e-02_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.23039e-02_rb,0.20168e-02_rb,0.17292e-02_rb,0.14410e-02_rb,0.11614e-02_rb, &\n        & 0.14213e-02_rb,0.16646e-02_rb,0.18149e-02_rb,0.22923e-02_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.23064e-02_rb,0.20187e-02_rb,0.17311e-02_rb,0.14440e-02_rb,0.13190e-02_rb, &\n        & 0.16288e-02_rb,0.19083e-02_rb,0.20825e-02_rb,0.26267e-02_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.23119e-02_rb,0.20237e-02_rb,0.17351e-02_rb,0.14470e-02_rb,0.14864e-02_rb, &\n        & 0.18354e-02_rb,0.21515e-02_rb,0.23501e-02_rb,0.29596e-02_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.23154e-02_rb,0.20269e-02_rb,0.17385e-02_rb,0.14496e-02_rb,0.16513e-02_rb, &\n        & 0.20395e-02_rb,0.23915e-02_rb,0.26154e-02_rb,0.32883e-02_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.23212e-02_rb,0.20321e-02_rb,0.17430e-02_rb,0.14536e-02_rb,0.18129e-02_rb, &\n        & 0.22398e-02_rb,0.26272e-02_rb,0.28760e-02_rb,0.36101e-02_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.27129e-02_rb,0.23736e-02_rb,0.20348e-02_rb,0.16965e-02_rb,0.13577e-02_rb, &\n        & 0.15487e-02_rb,0.18138e-02_rb,0.19776e-02_rb,0.25289e-02_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.27133e-02_rb,0.23745e-02_rb,0.20358e-02_rb,0.16966e-02_rb,0.14516e-02_rb, &\n        & 0.17925e-02_rb,0.21002e-02_rb,0.22917e-02_rb,0.29262e-02_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.27155e-02_rb,0.23766e-02_rb,0.20379e-02_rb,0.16990e-02_rb,0.16483e-02_rb, &\n        & 0.20360e-02_rb,0.23858e-02_rb,0.26061e-02_rb,0.33224e-02_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.27175e-02_rb,0.23784e-02_rb,0.20394e-02_rb,0.17007e-02_rb,0.18426e-02_rb, &\n        & 0.22757e-02_rb,0.26681e-02_rb,0.29171e-02_rb,0.37132e-02_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.27186e-02_rb,0.23796e-02_rb,0.20406e-02_rb,0.17019e-02_rb,0.20320e-02_rb, &\n        & 0.25101e-02_rb,0.29443e-02_rb,0.32220e-02_rb,0.40947e-02_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.32119e-02_rb,0.28114e-02_rb,0.24099e-02_rb,0.20078e-02_rb,0.16065e-02_rb, &\n        & 0.16767e-02_rb,0.19643e-02_rb,0.21431e-02_rb,0.27523e-02_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.32085e-02_rb,0.28077e-02_rb,0.24069e-02_rb,0.20064e-02_rb,0.16195e-02_rb, &\n        & 0.19633e-02_rb,0.23007e-02_rb,0.25120e-02_rb,0.32215e-02_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.32085e-02_rb,0.28078e-02_rb,0.24068e-02_rb,0.20061e-02_rb,0.18214e-02_rb, &\n        & 0.22501e-02_rb,0.26375e-02_rb,0.28827e-02_rb,0.36897e-02_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.32059e-02_rb,0.28056e-02_rb,0.24053e-02_rb,0.20050e-02_rb,0.20501e-02_rb, &\n        & 0.25321e-02_rb,0.29699e-02_rb,0.32491e-02_rb,0.41521e-02_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.31984e-02_rb,0.27990e-02_rb,0.23997e-02_rb,0.20000e-02_rb,0.22727e-02_rb, &\n        & 0.28084e-02_rb,0.32949e-02_rb,0.36079e-02_rb,0.46028e-02_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.38076e-02_rb,0.33317e-02_rb,0.28559e-02_rb,0.23799e-02_rb,0.19041e-02_rb, &\n        & 0.17889e-02_rb,0.20969e-02_rb,0.22903e-02_rb,0.29420e-02_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.37964e-02_rb,0.33220e-02_rb,0.28476e-02_rb,0.23732e-02_rb,0.18989e-02_rb, &\n        & 0.21234e-02_rb,0.24900e-02_rb,0.27226e-02_rb,0.34908e-02_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.37877e-02_rb,0.33145e-02_rb,0.28416e-02_rb,0.23683e-02_rb,0.19985e-02_rb, &\n        & 0.24600e-02_rb,0.28851e-02_rb,0.31576e-02_rb,0.40421e-02_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.37785e-02_rb,0.33065e-02_rb,0.28344e-02_rb,0.23627e-02_rb,0.22594e-02_rb, &\n        & 0.27919e-02_rb,0.32761e-02_rb,0.35889e-02_rb,0.45855e-02_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.37630e-02_rb,0.32929e-02_rb,0.28229e-02_rb,0.23532e-02_rb,0.25213e-02_rb, &\n        & 0.31161e-02_rb,0.36579e-02_rb,0.40115e-02_rb,0.51155e-02_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.45014e-02_rb,0.39388e-02_rb,0.33762e-02_rb,0.28135e-02_rb,0.22509e-02_rb, &\n        & 0.18859e-02_rb,0.22117e-02_rb,0.24208e-02_rb,0.31038e-02_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.44788e-02_rb,0.39190e-02_rb,0.33593e-02_rb,0.27996e-02_rb,0.22399e-02_rb, &\n        & 0.22735e-02_rb,0.26677e-02_rb,0.29222e-02_rb,0.37394e-02_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.44593e-02_rb,0.39020e-02_rb,0.33439e-02_rb,0.27867e-02_rb,0.22518e-02_rb, &\n        & 0.26648e-02_rb,0.31283e-02_rb,0.34304e-02_rb,0.43806e-02_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.44374e-02_rb,0.38829e-02_rb,0.33284e-02_rb,0.27732e-02_rb,0.24705e-02_rb, &\n        & 0.30533e-02_rb,0.35850e-02_rb,0.39361e-02_rb,0.50160e-02_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.44113e-02_rb,0.38601e-02_rb,0.33089e-02_rb,0.27567e-02_rb,0.27756e-02_rb, &\n        & 0.34321e-02_rb,0.40324e-02_rb,0.44314e-02_rb,0.56359e-02_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.53031e-02_rb,0.46403e-02_rb,0.39774e-02_rb,0.33149e-02_rb,0.26520e-02_rb, &\n        & 0.20316e-02_rb,0.23080e-02_rb,0.25314e-02_rb,0.32334e-02_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.52648e-02_rb,0.46067e-02_rb,0.39487e-02_rb,0.32907e-02_rb,0.26325e-02_rb, &\n        & 0.24096e-02_rb,0.28298e-02_rb,0.31081e-02_rb,0.39611e-02_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.52246e-02_rb,0.45716e-02_rb,0.39189e-02_rb,0.32659e-02_rb,0.26125e-02_rb, &\n        & 0.28611e-02_rb,0.33614e-02_rb,0.36958e-02_rb,0.47006e-02_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.51821e-02_rb,0.45344e-02_rb,0.38868e-02_rb,0.32390e-02_rb,0.27289e-02_rb, &\n        & 0.33103e-02_rb,0.38912e-02_rb,0.42829e-02_rb,0.54355e-02_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.51356e-02_rb,0.44938e-02_rb,0.38520e-02_rb,0.32108e-02_rb,0.30299e-02_rb, &\n        & 0.37493e-02_rb,0.44090e-02_rb,0.48604e-02_rb,0.61537e-02_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.62116e-02_rb,0.54352e-02_rb,0.46587e-02_rb,0.38825e-02_rb,0.31060e-02_rb, &\n        & 0.23296e-02_rb,0.23830e-02_rb,0.26152e-02_rb,0.33400e-02_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.61510e-02_rb,0.53822e-02_rb,0.46134e-02_rb,0.38445e-02_rb,0.30756e-02_rb, &\n        & 0.25421e-02_rb,0.29622e-02_rb,0.32625e-02_rb,0.41372e-02_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.60862e-02_rb,0.53255e-02_rb,0.45651e-02_rb,0.38044e-02_rb,0.30427e-02_rb, &\n        & 0.30332e-02_rb,0.35680e-02_rb,0.39355e-02_rb,0.49777e-02_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.60169e-02_rb,0.52649e-02_rb,0.45129e-02_rb,0.37608e-02_rb,0.30629e-02_rb, &\n        & 0.35468e-02_rb,0.41747e-02_rb,0.46107e-02_rb,0.58172e-02_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.59428e-02_rb,0.52001e-02_rb,0.44573e-02_rb,0.37148e-02_rb,0.33039e-02_rb, &\n        & 0.40510e-02_rb,0.47683e-02_rb,0.52747e-02_rb,0.66403e-02_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.72226e-02_rb,0.63198e-02_rb,0.54170e-02_rb,0.45138e-02_rb,0.36111e-02_rb, &\n        & 0.27087e-02_rb,0.25246e-02_rb,0.27733e-02_rb,0.35348e-02_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.71308e-02_rb,0.62395e-02_rb,0.53482e-02_rb,0.44569e-02_rb,0.35656e-02_rb, &\n        & 0.27737e-02_rb,0.31148e-02_rb,0.34380e-02_rb,0.43453e-02_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.70337e-02_rb,0.61546e-02_rb,0.52755e-02_rb,0.43963e-02_rb,0.35178e-02_rb, &\n        & 0.32195e-02_rb,0.37898e-02_rb,0.41956e-02_rb,0.52718e-02_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.69308e-02_rb,0.60645e-02_rb,0.51982e-02_rb,0.43312e-02_rb,0.34725e-02_rb, &\n        & 0.37977e-02_rb,0.44773e-02_rb,0.49627e-02_rb,0.62190e-02_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.68213e-02_rb,0.59687e-02_rb,0.51162e-02_rb,0.42630e-02_rb,0.36577e-02_rb, &\n        & 0.43690e-02_rb,0.51523e-02_rb,0.57195e-02_rb,0.71486e-02_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.82729e-02_rb,0.72388e-02_rb,0.62047e-02_rb,0.51704e-02_rb,0.41364e-02_rb, &\n        & 0.31022e-02_rb,0.29450e-02_rb,0.32481e-02_rb,0.41092e-02_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.81377e-02_rb,0.71207e-02_rb,0.61034e-02_rb,0.50862e-02_rb,0.40694e-02_rb, &\n        & 0.32023e-02_rb,0.35972e-02_rb,0.39817e-02_rb,0.50045e-02_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.79927e-02_rb,0.69937e-02_rb,0.59945e-02_rb,0.49955e-02_rb,0.39980e-02_rb, &\n        & 0.36849e-02_rb,0.43305e-02_rb,0.48162e-02_rb,0.60016e-02_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.78435e-02_rb,0.68631e-02_rb,0.58827e-02_rb,0.49014e-02_rb,0.39530e-02_rb, &\n        & 0.43152e-02_rb,0.50942e-02_rb,0.56750e-02_rb,0.70494e-02_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.76868e-02_rb,0.67260e-02_rb,0.57653e-02_rb,0.48045e-02_rb,0.41698e-02_rb, &\n        & 0.49442e-02_rb,0.58408e-02_rb,0.65151e-02_rb,0.80731e-02_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.93677e-02_rb,0.81967e-02_rb,0.70258e-02_rb,0.58546e-02_rb,0.46837e-02_rb, &\n        & 0.35124e-02_rb,0.33991e-02_rb,0.37659e-02_rb,0.47255e-02_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.91725e-02_rb,0.80259e-02_rb,0.68794e-02_rb,0.57329e-02_rb,0.45871e-02_rb, &\n        & 0.36555e-02_rb,0.41158e-02_rb,0.45739e-02_rb,0.57058e-02_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.89743e-02_rb,0.78526e-02_rb,0.67312e-02_rb,0.56083e-02_rb,0.44874e-02_rb, &\n        & 0.41738e-02_rb,0.49000e-02_rb,0.54681e-02_rb,0.67707e-02_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.87651e-02_rb,0.76695e-02_rb,0.65740e-02_rb,0.54780e-02_rb,0.44541e-02_rb, &\n        & 0.48422e-02_rb,0.57276e-02_rb,0.64103e-02_rb,0.78928e-02_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.85557e-02_rb,0.74863e-02_rb,0.64169e-02_rb,0.53471e-02_rb,0.46965e-02_rb, &\n        & 0.55261e-02_rb,0.65398e-02_rb,0.73300e-02_rb,0.90026e-02_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.10484e-01_rb,0.91737e-02_rb,0.78632e-02_rb,0.65525e-02_rb,0.52420e-02_rb, &\n        & 0.39330e-02_rb,0.38753e-02_rb,0.43130e-02_rb,0.53655e-02_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.10212e-01_rb,0.89352e-02_rb,0.76588e-02_rb,0.63823e-02_rb,0.51063e-02_rb, &\n        & 0.41214e-02_rb,0.46538e-02_rb,0.51962e-02_rb,0.64287e-02_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.99472e-02_rb,0.87039e-02_rb,0.74620e-02_rb,0.62164e-02_rb,0.49733e-02_rb, &\n        & 0.46683e-02_rb,0.54886e-02_rb,0.61482e-02_rb,0.75590e-02_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.96776e-02_rb,0.84679e-02_rb,0.72583e-02_rb,0.60495e-02_rb,0.49611e-02_rb, &\n        & 0.53643e-02_rb,0.63558e-02_rb,0.71458e-02_rb,0.87290e-02_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.94084e-02_rb,0.82324e-02_rb,0.70564e-02_rb,0.58807e-02_rb,0.52210e-02_rb, &\n        & 0.60971e-02_rb,0.72271e-02_rb,0.81397e-02_rb,0.99102e-02_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.33062e-11_rb,0.42306e-11_rb,0.53172e-11_rb,0.65673e-11_rb,0.78335e-11_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.27467e-11_rb,0.35252e-11_rb,0.44160e-11_rb,0.54171e-11_rb,0.64630e-11_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.23431e-11_rb,0.29962e-11_rb,0.37507e-11_rb,0.46179e-11_rb,0.54790e-11_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.20178e-11_rb,0.25698e-11_rb,0.32330e-11_rb,0.40024e-11_rb,0.46899e-11_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.17389e-11_rb,0.22126e-11_rb,0.27864e-11_rb,0.34615e-11_rb,0.40184e-11_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.15164e-11_rb,0.19304e-11_rb,0.24263e-11_rb,0.29918e-11_rb,0.34734e-11_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.13194e-11_rb,0.16684e-11_rb,0.20851e-11_rb,0.25471e-11_rb,0.29992e-11_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.11345e-11_rb,0.14317e-11_rb,0.17813e-11_rb,0.21686e-11_rb,0.25523e-11_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.97614e-12_rb,0.12233e-11_rb,0.15124e-11_rb,0.18436e-11_rb,0.21624e-11_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.84972e-12_rb,0.10604e-11_rb,0.13001e-11_rb,0.15853e-11_rb,0.18511e-11_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.73919e-12_rb,0.91863e-12_rb,0.11179e-11_rb,0.13612e-11_rb,0.15791e-11_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.63952e-12_rb,0.79203e-12_rb,0.96272e-12_rb,0.11643e-11_rb,0.13384e-11_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.55198e-12_rb,0.68176e-12_rb,0.82782e-12_rb,0.99347e-12_rb,0.11342e-11_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.47648e-12_rb,0.58395e-12_rb,0.71214e-12_rb,0.84565e-12_rb,0.96146e-12_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.41185e-12_rb,0.50403e-12_rb,0.61156e-12_rb,0.71539e-12_rb,0.81410e-12_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.35568e-12_rb,0.43404e-12_rb,0.52441e-12_rb,0.60652e-12_rb,0.68860e-12_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.30863e-12_rb,0.37487e-12_rb,0.45120e-12_rb,0.51591e-12_rb,0.58367e-12_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.26804e-12_rb,0.32390e-12_rb,0.38615e-12_rb,0.43956e-12_rb,0.49890e-12_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.23316e-12_rb,0.28106e-12_rb,0.33068e-12_rb,0.37478e-12_rb,0.42377e-12_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.20255e-12_rb,0.24397e-12_rb,0.28293e-12_rb,0.31878e-12_rb,0.36224e-12_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.17541e-12_rb,0.21018e-12_rb,0.24052e-12_rb,0.27083e-12_rb,0.30963e-12_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.15014e-12_rb,0.17890e-12_rb,0.20293e-12_rb,0.23058e-12_rb,0.26131e-12_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.12610e-12_rb,0.14972e-12_rb,0.16906e-12_rb,0.19250e-12_rb,0.21752e-12_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.10365e-12_rb,0.12301e-12_rb,0.13878e-12_rb,0.15810e-12_rb,0.17856e-12_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.82572e-13_rb,0.98388e-13_rb,0.11143e-12_rb,0.12645e-12_rb,0.14343e-12_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.65632e-13_rb,0.78531e-13_rb,0.89359e-13_rb,0.10135e-12_rb,0.11495e-12_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.52174e-13_rb,0.62607e-13_rb,0.71650e-13_rb,0.80738e-13_rb,0.92112e-13_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.40434e-13_rb,0.48683e-13_rb,0.56479e-13_rb,0.63806e-13_rb,0.72155e-13_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.31179e-13_rb,0.37691e-13_rb,0.44339e-13_rb,0.50247e-13_rb,0.56982e-13_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.24040e-13_rb,0.29161e-13_rb,0.34731e-13_rb,0.39467e-13_rb,0.44922e-13_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.18259e-13_rb,0.22185e-13_rb,0.26753e-13_rb,0.30617e-13_rb,0.34721e-13_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.13667e-13_rb,0.16662e-13_rb,0.20308e-13_rb,0.23577e-13_rb,0.26865e-13_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.10182e-13_rb,0.12571e-13_rb,0.15345e-13_rb,0.18028e-13_rb,0.20725e-13_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.75196e-14_rb,0.94092e-14_rb,0.11475e-13_rb,0.13704e-13_rb,0.15878e-13_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.54721e-14_rb,0.69523e-14_rb,0.85280e-14_rb,0.10311e-13_rb,0.11952e-13_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.39619e-14_rb,0.50439e-14_rb,0.62896e-14_rb,0.77193e-14_rb,0.89282e-14_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.28508e-14_rb,0.36419e-14_rb,0.46044e-14_rb,0.57276e-14_rb,0.66866e-14_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.20973e-14_rb,0.26588e-14_rb,0.33754e-14_rb,0.42404e-14_rb,0.50338e-14_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.15010e-14_rb,0.19461e-14_rb,0.24807e-14_rb,0.31095e-14_rb,0.37789e-14_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.10686e-14_rb,0.14205e-14_rb,0.18164e-14_rb,0.22651e-14_rb,0.27790e-14_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.75469e-15_rb,0.10279e-14_rb,0.13211e-14_rb,0.16657e-14_rb,0.20344e-14_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.53837e-15_rb,0.75440e-15_rb,0.97064e-15_rb,0.12260e-14_rb,0.15156e-14_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.38620e-15_rb,0.54750e-15_rb,0.71223e-15_rb,0.90921e-15_rb,0.11265e-14_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.27852e-15_rb,0.39135e-15_rb,0.51858e-15_rb,0.66760e-15_rb,0.83486e-15_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.20280e-15_rb,0.27940e-15_rb,0.37558e-15_rb,0.48656e-15_rb,0.61658e-15_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.14586e-15_rb,0.19788e-15_rb,0.27273e-15_rb,0.35391e-15_rb,0.45250e-15_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.11164e-15_rb,0.15082e-15_rb,0.20804e-15_rb,0.27081e-15_rb,0.49339e-15_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.15800e-10_rb,0.20781e-10_rb,0.26154e-10_rb,0.31936e-10_rb,0.38062e-10_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.13333e-10_rb,0.17459e-10_rb,0.21881e-10_rb,0.26666e-10_rb,0.31696e-10_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.11381e-10_rb,0.14784e-10_rb,0.18449e-10_rb,0.22397e-10_rb,0.26533e-10_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.97593e-11_rb,0.12591e-10_rb,0.15641e-10_rb,0.18845e-10_rb,0.22503e-10_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.83473e-11_rb,0.10709e-10_rb,0.13261e-10_rb,0.15857e-10_rb,0.19052e-10_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.71523e-11_rb,0.91255e-11_rb,0.11229e-10_rb,0.13436e-10_rb,0.16145e-10_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.60777e-11_rb,0.77489e-11_rb,0.94796e-11_rb,0.11415e-10_rb,0.13591e-10_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.51693e-11_rb,0.65609e-11_rb,0.80124e-11_rb,0.96944e-11_rb,0.11427e-10_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.43931e-11_rb,0.55492e-11_rb,0.67698e-11_rb,0.81825e-11_rb,0.95836e-11_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.37967e-11_rb,0.47515e-11_rb,0.57759e-11_rb,0.69676e-11_rb,0.81090e-11_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.32747e-11_rb,0.40830e-11_rb,0.49616e-11_rb,0.59280e-11_rb,0.68614e-11_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.28215e-11_rb,0.34976e-11_rb,0.42532e-11_rb,0.50228e-11_rb,0.57971e-11_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.24334e-11_rb,0.29960e-11_rb,0.36396e-11_rb,0.42606e-11_rb,0.49056e-11_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.21117e-11_rb,0.25752e-11_rb,0.31134e-11_rb,0.36244e-11_rb,0.41489e-11_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.18253e-11_rb,0.22243e-11_rb,0.26576e-11_rb,0.30793e-11_rb,0.35048e-11_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.15682e-11_rb,0.19141e-11_rb,0.22636e-11_rb,0.26109e-11_rb,0.29589e-11_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.13535e-11_rb,0.16466e-11_rb,0.19296e-11_rb,0.22145e-11_rb,0.25005e-11_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.11709e-11_rb,0.14136e-11_rb,0.16432e-11_rb,0.18792e-11_rb,0.21240e-11_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.10216e-11_rb,0.12142e-11_rb,0.14045e-11_rb,0.15978e-11_rb,0.18001e-11_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.88417e-12_rb,0.10400e-11_rb,0.11973e-11_rb,0.13566e-11_rb,0.15303e-11_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.76210e-12_rb,0.89004e-12_rb,0.10199e-11_rb,0.11509e-11_rb,0.12984e-11_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.64910e-12_rb,0.75460e-12_rb,0.86122e-12_rb,0.97227e-12_rb,0.10908e-11_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.54374e-12_rb,0.63015e-12_rb,0.71745e-12_rb,0.80944e-12_rb,0.90628e-12_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.44718e-12_rb,0.51791e-12_rb,0.58946e-12_rb,0.66527e-12_rb,0.74411e-12_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.35793e-12_rb,0.41591e-12_rb,0.47443e-12_rb,0.53549e-12_rb,0.60041e-12_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.28618e-12_rb,0.33345e-12_rb,0.38124e-12_rb,0.43139e-12_rb,0.48394e-12_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.22858e-12_rb,0.26729e-12_rb,0.30628e-12_rb,0.34554e-12_rb,0.38998e-12_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.17867e-12_rb,0.21032e-12_rb,0.24207e-12_rb,0.27407e-12_rb,0.30925e-12_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.13875e-12_rb,0.16498e-12_rb,0.19072e-12_rb,0.21688e-12_rb,0.24410e-12_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.10714e-12_rb,0.12915e-12_rb,0.14999e-12_rb,0.17156e-12_rb,0.19364e-12_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.81856e-13_rb,0.99592e-13_rb,0.11661e-12_rb,0.13414e-12_rb,0.15145e-12_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.62221e-13_rb,0.75886e-13_rb,0.90106e-13_rb,0.10425e-12_rb,0.11838e-12_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.47139e-13_rb,0.57421e-13_rb,0.69401e-13_rb,0.80830e-13_rb,0.92462e-13_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.35469e-13_rb,0.43603e-13_rb,0.52913e-13_rb,0.62345e-13_rb,0.71769e-13_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.26308e-13_rb,0.32606e-13_rb,0.39610e-13_rb,0.47505e-13_rb,0.55354e-13_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.19388e-13_rb,0.24430e-13_rb,0.29903e-13_rb,0.35902e-13_rb,0.42540e-13_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.14144e-13_rb,0.18180e-13_rb,0.22467e-13_rb,0.26985e-13_rb,0.32471e-13_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.10280e-13_rb,0.13471e-13_rb,0.16900e-13_rb,0.20465e-13_rb,0.24665e-13_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.74898e-14_rb,0.99392e-14_rb,0.12674e-13_rb,0.15571e-13_rb,0.18663e-13_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.54214e-14_rb,0.72917e-14_rb,0.94517e-14_rb,0.11816e-13_rb,0.14256e-13_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.38970e-14_rb,0.53165e-14_rb,0.69989e-14_rb,0.88828e-14_rb,0.10862e-13_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.27972e-14_rb,0.38775e-14_rb,0.51927e-14_rb,0.66775e-14_rb,0.82659e-14_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.19962e-14_rb,0.28257e-14_rb,0.38491e-14_rb,0.50059e-14_rb,0.62864e-14_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.14049e-14_rb,0.20447e-14_rb,0.28389e-14_rb,0.37444e-14_rb,0.47474e-14_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.97467e-15_rb,0.14635e-14_rb,0.20787e-14_rb,0.27878e-14_rb,0.35737e-14_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.67770e-15_rb,0.10398e-14_rb,0.15169e-14_rb,0.20739e-14_rb,0.26951e-14_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.50857e-15_rb,0.79496e-15_rb,0.11749e-14_rb,0.16262e-14_rb,0.21270e-14_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.93671e-10_rb,0.11591e-09_rb,0.13715e-09_rb,0.15779e-09_rb,0.17870e-09_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.78883e-10_rb,0.96971e-10_rb,0.11437e-09_rb,0.13160e-09_rb,0.14863e-09_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.66900e-10_rb,0.81568e-10_rb,0.96052e-10_rb,0.11028e-09_rb,0.12439e-09_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.56737e-10_rb,0.68853e-10_rb,0.80870e-10_rb,0.92769e-10_rb,0.10422e-09_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.48148e-10_rb,0.58209e-10_rb,0.68168e-10_rb,0.78006e-10_rb,0.87308e-10_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.40874e-10_rb,0.49268e-10_rb,0.57591e-10_rb,0.65627e-10_rb,0.73296e-10_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.34619e-10_rb,0.41578e-10_rb,0.48414e-10_rb,0.55049e-10_rb,0.61235e-10_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.29370e-10_rb,0.35034e-10_rb,0.40682e-10_rb,0.46014e-10_rb,0.51115e-10_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.24821e-10_rb,0.29490e-10_rb,0.34141e-10_rb,0.38423e-10_rb,0.42621e-10_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.21204e-10_rb,0.25041e-10_rb,0.28846e-10_rb,0.32305e-10_rb,0.35757e-10_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.18107e-10_rb,0.21244e-10_rb,0.24304e-10_rb,0.27144e-10_rb,0.30005e-10_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.15432e-10_rb,0.18015e-10_rb,0.20470e-10_rb,0.22803e-10_rb,0.25180e-10_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.13155e-10_rb,0.15266e-10_rb,0.17234e-10_rb,0.19170e-10_rb,0.21096e-10_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11220e-10_rb,0.12944e-10_rb,0.14527e-10_rb,0.16132e-10_rb,0.17690e-10_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.95562e-11_rb,0.10942e-10_rb,0.12242e-10_rb,0.13560e-10_rb,0.14820e-10_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.81359e-11_rb,0.92394e-11_rb,0.10309e-10_rb,0.11386e-10_rb,0.12407e-10_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.69193e-11_rb,0.78077e-11_rb,0.87009e-11_rb,0.95682e-11_rb,0.10386e-10_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.58737e-11_rb,0.65956e-11_rb,0.73381e-11_rb,0.80325e-11_rb,0.87147e-11_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.49782e-11_rb,0.55816e-11_rb,0.61826e-11_rb,0.67463e-11_rb,0.73000e-11_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.42202e-11_rb,0.47232e-11_rb,0.52043e-11_rb,0.56623e-11_rb,0.61016e-11_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.35744e-11_rb,0.39897e-11_rb,0.43757e-11_rb,0.47465e-11_rb,0.50931e-11_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.30127e-11_rb,0.33496e-11_rb,0.36630e-11_rb,0.39738e-11_rb,0.42413e-11_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.25098e-11_rb,0.27837e-11_rb,0.30393e-11_rb,0.32916e-11_rb,0.35093e-11_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.20644e-11_rb,0.22886e-11_rb,0.24982e-11_rb,0.27043e-11_rb,0.28833e-11_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.16684e-11_rb,0.18536e-11_rb,0.20259e-11_rb,0.21979e-11_rb,0.23456e-11_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.13466e-11_rb,0.14996e-11_rb,0.16425e-11_rb,0.17834e-11_rb,0.19065e-11_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.10861e-11_rb,0.12130e-11_rb,0.13309e-11_rb,0.14440e-11_rb,0.15498e-11_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.86498e-12_rb,0.96921e-12_rb,0.10678e-11_rb,0.11601e-11_rb,0.12509e-11_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.68788e-12_rb,0.77191e-12_rb,0.85472e-12_rb,0.93133e-12_rb,0.10084e-11_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.54661e-12_rb,0.61437e-12_rb,0.68360e-12_rb,0.74699e-12_rb,0.81088e-12_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.42920e-12_rb,0.48515e-12_rb,0.54174e-12_rb,0.59564e-12_rb,0.64658e-12_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.33491e-12_rb,0.38198e-12_rb,0.42756e-12_rb,0.47274e-12_rb,0.51490e-12_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.26072e-12_rb,0.29981e-12_rb,0.33699e-12_rb,0.37442e-12_rb,0.40968e-12_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.20167e-12_rb,0.23370e-12_rb,0.26473e-12_rb,0.29535e-12_rb,0.32495e-12_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.15427e-12_rb,0.18070e-12_rb,0.20644e-12_rb,0.23129e-12_rb,0.25612e-12_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.11746e-12_rb,0.13905e-12_rb,0.16032e-12_rb,0.18088e-12_rb,0.20125e-12_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.88976e-13_rb,0.10661e-12_rb,0.12415e-12_rb,0.14128e-12_rb,0.15777e-12_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.67378e-13_rb,0.81791e-13_rb,0.96162e-13_rb,0.11029e-12_rb,0.12384e-12_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.50786e-13_rb,0.62576e-13_rb,0.74348e-13_rb,0.85995e-13_rb,0.97345e-13_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.37951e-13_rb,0.47645e-13_rb,0.57250e-13_rb,0.66805e-13_rb,0.76257e-13_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.28159e-13_rb,0.36102e-13_rb,0.43964e-13_rb,0.51774e-13_rb,0.59583e-13_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.21004e-13_rb,0.27366e-13_rb,0.33776e-13_rb,0.40177e-13_rb,0.46583e-13_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.15637e-13_rb,0.20632e-13_rb,0.25941e-13_rb,0.31184e-13_rb,0.36409e-13_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.11581e-13_rb,0.15522e-13_rb,0.19844e-13_rb,0.24130e-13_rb,0.28399e-13_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.85125e-14_rb,0.11631e-13_rb,0.15093e-13_rb,0.18610e-13_rb,0.22102e-13_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.62435e-14_rb,0.87193e-14_rb,0.11437e-13_rb,0.14347e-13_rb,0.17208e-13_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.48886e-14_rb,0.68810e-14_rb,0.90777e-14_rb,0.11450e-13_rb,0.13800e-13_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.49769e-09_rb,0.57573e-09_rb,0.65456e-09_rb,0.73233e-09_rb,0.81030e-09_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.41687e-09_rb,0.48070e-09_rb,0.54629e-09_rb,0.61156e-09_rb,0.67509e-09_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.35004e-09_rb,0.40346e-09_rb,0.45778e-09_rb,0.51155e-09_rb,0.56442e-09_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.29428e-09_rb,0.33893e-09_rb,0.38370e-09_rb,0.42831e-09_rb,0.47172e-09_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.24736e-09_rb,0.28447e-09_rb,0.32184e-09_rb,0.35882e-09_rb,0.39576e-09_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.20799e-09_rb,0.23913e-09_rb,0.26980e-09_rb,0.30118e-09_rb,0.33239e-09_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.17474e-09_rb,0.20037e-09_rb,0.22650e-09_rb,0.25275e-09_rb,0.27848e-09_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.14678e-09_rb,0.16826e-09_rb,0.19015e-09_rb,0.21182e-09_rb,0.23321e-09_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.12329e-09_rb,0.14137e-09_rb,0.15951e-09_rb,0.17762e-09_rb,0.19539e-09_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.10475e-09_rb,0.11989e-09_rb,0.13488e-09_rb,0.14993e-09_rb,0.16481e-09_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.89090e-10_rb,0.10156e-09_rb,0.11416e-09_rb,0.12661e-09_rb,0.13928e-09_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.75648e-10_rb,0.86094e-10_rb,0.96530e-10_rb,0.10692e-09_rb,0.11716e-09_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.64419e-10_rb,0.73036e-10_rb,0.81659e-10_rb,0.90142e-10_rb,0.98524e-10_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.54857e-10_rb,0.61972e-10_rb,0.69147e-10_rb,0.76125e-10_rb,0.82778e-10_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.46656e-10_rb,0.52591e-10_rb,0.58413e-10_rb,0.64168e-10_rb,0.69451e-10_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.39665e-10_rb,0.44561e-10_rb,0.49317e-10_rb,0.53971e-10_rb,0.58228e-10_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.33755e-10_rb,0.37736e-10_rb,0.41652e-10_rb,0.45382e-10_rb,0.48825e-10_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.28671e-10_rb,0.31949e-10_rb,0.35144e-10_rb,0.38141e-10_rb,0.41003e-10_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.24360e-10_rb,0.27027e-10_rb,0.29632e-10_rb,0.32038e-10_rb,0.34391e-10_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.20671e-10_rb,0.22852e-10_rb,0.24963e-10_rb,0.26903e-10_rb,0.28818e-10_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.17515e-10_rb,0.19306e-10_rb,0.20998e-10_rb,0.22562e-10_rb,0.24113e-10_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.14755e-10_rb,0.16223e-10_rb,0.17588e-10_rb,0.18905e-10_rb,0.20105e-10_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.12305e-10_rb,0.13505e-10_rb,0.14616e-10_rb,0.15703e-10_rb,0.16661e-10_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.10152e-10_rb,0.11132e-10_rb,0.12046e-10_rb,0.12938e-10_rb,0.13718e-10_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.82437e-11_rb,0.90546e-11_rb,0.98101e-11_rb,0.10549e-10_rb,0.11200e-10_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.66891e-11_rb,0.73572e-11_rb,0.79832e-11_rb,0.85923e-11_rb,0.91388e-11_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.54271e-11_rb,0.59789e-11_rb,0.64946e-11_rb,0.69804e-11_rb,0.74536e-11_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.43504e-11_rb,0.48077e-11_rb,0.52359e-11_rb,0.56420e-11_rb,0.60390e-11_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.34805e-11_rb,0.38570e-11_rb,0.42158e-11_rb,0.45532e-11_rb,0.48856e-11_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.27817e-11_rb,0.30896e-11_rb,0.33906e-11_rb,0.36712e-11_rb,0.39504e-11_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.22059e-11_rb,0.24603e-11_rb,0.27112e-11_rb,0.29449e-11_rb,0.31673e-11_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.17407e-11_rb,0.19508e-11_rb,0.21593e-11_rb,0.23549e-11_rb,0.25394e-11_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.13717e-11_rb,0.15444e-11_rb,0.17149e-11_rb,0.18808e-11_rb,0.20349e-11_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.10758e-11_rb,0.12178e-11_rb,0.13582e-11_rb,0.14973e-11_rb,0.16264e-11_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.83623e-12_rb,0.95326e-12_rb,0.10692e-11_rb,0.11850e-11_rb,0.12934e-11_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.64811e-12_rb,0.74426e-12_rb,0.84002e-12_rb,0.93446e-12_rb,0.10270e-11_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.50093e-12_rb,0.57976e-12_rb,0.65824e-12_rb,0.73652e-12_rb,0.81364e-12_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.38740e-12_rb,0.45167e-12_rb,0.51620e-12_rb,0.58084e-12_rb,0.64495e-12_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.29910e-12_rb,0.35149e-12_rb,0.40454e-12_rb,0.45768e-12_rb,0.51010e-12_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.23004e-12_rb,0.27291e-12_rb,0.31637e-12_rb,0.35993e-12_rb,0.40313e-12_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.17654e-12_rb,0.21129e-12_rb,0.24667e-12_rb,0.28251e-12_rb,0.31798e-12_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.13566e-12_rb,0.16388e-12_rb,0.19277e-12_rb,0.22203e-12_rb,0.25140e-12_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.10414e-12_rb,0.12705e-12_rb,0.15062e-12_rb,0.17458e-12_rb,0.19863e-12_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.79695e-13_rb,0.98154e-13_rb,0.11737e-12_rb,0.13696e-12_rb,0.15674e-12_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.60735e-13_rb,0.75667e-13_rb,0.91265e-13_rb,0.10718e-12_rb,0.12346e-12_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.46331e-13_rb,0.58316e-13_rb,0.71018e-13_rb,0.83950e-13_rb,0.97215e-13_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.36896e-13_rb,0.46643e-13_rb,0.57036e-13_rb,0.67613e-13_rb,0.78545e-13_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.26254e-08_rb,0.28627e-08_rb,0.30909e-08_rb,0.33000e-08_rb,0.34892e-08_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.21830e-08_rb,0.23794e-08_rb,0.25635e-08_rb,0.27354e-08_rb,0.28987e-08_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.18164e-08_rb,0.19772e-08_rb,0.21299e-08_rb,0.22819e-08_rb,0.24177e-08_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.15141e-08_rb,0.16500e-08_rb,0.17819e-08_rb,0.19057e-08_rb,0.20139e-08_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.12644e-08_rb,0.13791e-08_rb,0.14854e-08_rb,0.15868e-08_rb,0.16779e-08_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.10569e-08_rb,0.11490e-08_rb,0.12387e-08_rb,0.13249e-08_rb,0.14004e-08_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.88077e-09_rb,0.95771e-09_rb,0.10342e-08_rb,0.11045e-08_rb,0.11654e-08_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.73433e-09_rb,0.79954e-09_rb,0.86343e-09_rb,0.92049e-09_rb,0.97111e-09_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.61317e-09_rb,0.66751e-09_rb,0.72065e-09_rb,0.76613e-09_rb,0.80891e-09_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.51519e-09_rb,0.56066e-09_rb,0.60290e-09_rb,0.64113e-09_rb,0.67719e-09_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.43331e-09_rb,0.47103e-09_rb,0.50532e-09_rb,0.53747e-09_rb,0.56589e-09_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.36478e-09_rb,0.39531e-09_rb,0.42421e-09_rb,0.45023e-09_rb,0.47333e-09_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.30661e-09_rb,0.33249e-09_rb,0.35642e-09_rb,0.37711e-09_rb,0.39645e-09_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.25851e-09_rb,0.28030e-09_rb,0.29893e-09_rb,0.31621e-09_rb,0.33249e-09_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.21849e-09_rb,0.23581e-09_rb,0.25124e-09_rb,0.26548e-09_rb,0.27889e-09_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.18476e-09_rb,0.19866e-09_rb,0.21115e-09_rb,0.22285e-09_rb,0.23419e-09_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.15608e-09_rb,0.16725e-09_rb,0.17764e-09_rb,0.18744e-09_rb,0.19627e-09_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.13180e-09_rb,0.14084e-09_rb,0.14944e-09_rb,0.15734e-09_rb,0.16419e-09_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.11122e-09_rb,0.11878e-09_rb,0.12548e-09_rb,0.13183e-09_rb,0.13690e-09_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.93806e-10_rb,0.99909e-10_rb,0.10547e-09_rb,0.11013e-09_rb,0.11393e-09_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.79057e-10_rb,0.83869e-10_rb,0.88337e-10_rb,0.91833e-10_rb,0.94728e-10_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.66383e-10_rb,0.70216e-10_rb,0.73644e-10_rb,0.76467e-10_rb,0.78589e-10_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.55303e-10_rb,0.58435e-10_rb,0.61122e-10_rb,0.63317e-10_rb,0.64984e-10_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.45788e-10_rb,0.48318e-10_rb,0.50463e-10_rb,0.52237e-10_rb,0.53589e-10_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.37517e-10_rb,0.39593e-10_rb,0.41407e-10_rb,0.42883e-10_rb,0.44012e-10_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.30717e-10_rb,0.32436e-10_rb,0.33950e-10_rb,0.35197e-10_rb,0.36146e-10_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.25129e-10_rb,0.26560e-10_rb,0.27827e-10_rb,0.28835e-10_rb,0.29676e-10_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.20420e-10_rb,0.21620e-10_rb,0.22699e-10_rb,0.23564e-10_rb,0.24290e-10_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.16561e-10_rb,0.17583e-10_rb,0.18496e-10_rb,0.19245e-10_rb,0.19868e-10_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.13418e-10_rb,0.14291e-10_rb,0.15059e-10_rb,0.15706e-10_rb,0.16243e-10_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.10810e-10_rb,0.11562e-10_rb,0.12210e-10_rb,0.12774e-10_rb,0.13223e-10_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.86843e-11_rb,0.93265e-11_rb,0.98789e-11_rb,0.10369e-10_rb,0.10770e-10_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.69593e-11_rb,0.75111e-11_rb,0.79891e-11_rb,0.84084e-11_rb,0.87638e-11_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.55576e-11_rb,0.60308e-11_rb,0.64400e-11_rb,0.68030e-11_rb,0.71149e-11_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.44097e-11_rb,0.48155e-11_rb,0.51709e-11_rb,0.54794e-11_rb,0.57570e-11_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.34877e-11_rb,0.38384e-11_rb,0.41433e-11_rb,0.44120e-11_rb,0.46521e-11_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.27512e-11_rb,0.30491e-11_rb,0.33123e-11_rb,0.35456e-11_rb,0.37509e-11_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.21734e-11_rb,0.24185e-11_rb,0.26481e-11_rb,0.28485e-11_rb,0.30236e-11_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.17150e-11_rb,0.19185e-11_rb,0.21147e-11_rb,0.22857e-11_rb,0.24371e-11_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.13499e-11_rb,0.15196e-11_rb,0.16853e-11_rb,0.18315e-11_rb,0.19613e-11_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.10590e-11_rb,0.11989e-11_rb,0.13374e-11_rb,0.14641e-11_rb,0.15756e-11_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.83182e-12_rb,0.94832e-12_rb,0.10625e-11_rb,0.11713e-11_rb,0.12669e-11_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.65257e-12_rb,0.74992e-12_rb,0.84445e-12_rb,0.93664e-12_rb,0.10175e-11_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.51109e-12_rb,0.59162e-12_rb,0.67030e-12_rb,0.74706e-12_rb,0.81634e-12_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.39868e-12_rb,0.46532e-12_rb,0.53042e-12_rb,0.59449e-12_rb,0.65374e-12_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.31062e-12_rb,0.36629e-12_rb,0.42009e-12_rb,0.47298e-12_rb,0.52357e-12_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.24996e-12_rb,0.29597e-12_rb,0.34052e-12_rb,0.38403e-12_rb,0.42584e-12_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.10275e-07_rb,0.10425e-07_rb,0.10505e-07_rb,0.10571e-07_rb,0.10619e-07_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.84309e-08_rb,0.85528e-08_rb,0.86280e-08_rb,0.86935e-08_rb,0.87236e-08_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.69259e-08_rb,0.70218e-08_rb,0.71031e-08_rb,0.71419e-08_rb,0.71430e-08_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.56933e-08_rb,0.57765e-08_rb,0.58298e-08_rb,0.58527e-08_rb,0.58704e-08_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.46880e-08_rb,0.47555e-08_rb,0.47985e-08_rb,0.48270e-08_rb,0.48471e-08_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.38628e-08_rb,0.39183e-08_rb,0.39591e-08_rb,0.39923e-08_rb,0.40106e-08_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.31833e-08_rb,0.32370e-08_rb,0.32750e-08_rb,0.32992e-08_rb,0.33139e-08_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.26315e-08_rb,0.26765e-08_rb,0.27033e-08_rb,0.27208e-08_rb,0.27412e-08_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.21768e-08_rb,0.22074e-08_rb,0.22281e-08_rb,0.22492e-08_rb,0.22648e-08_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.17970e-08_rb,0.18204e-08_rb,0.18421e-08_rb,0.18603e-08_rb,0.18697e-08_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.14828e-08_rb,0.15043e-08_rb,0.15235e-08_rb,0.15373e-08_rb,0.15469e-08_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.12265e-08_rb,0.12457e-08_rb,0.12602e-08_rb,0.12704e-08_rb,0.12795e-08_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.10153e-08_rb,0.10303e-08_rb,0.10406e-08_rb,0.10511e-08_rb,0.10591e-08_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.84067e-09_rb,0.85220e-09_rb,0.86139e-09_rb,0.87145e-09_rb,0.87606e-09_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.69556e-09_rb,0.70441e-09_rb,0.71396e-09_rb,0.72098e-09_rb,0.72486e-09_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.57505e-09_rb,0.58326e-09_rb,0.59186e-09_rb,0.59662e-09_rb,0.60056e-09_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.47621e-09_rb,0.48459e-09_rb,0.49079e-09_rb,0.49432e-09_rb,0.49717e-09_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.39513e-09_rb,0.40232e-09_rb,0.40640e-09_rb,0.40995e-09_rb,0.41263e-09_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.32890e-09_rb,0.33390e-09_rb,0.33797e-09_rb,0.34036e-09_rb,0.34440e-09_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.27372e-09_rb,0.27757e-09_rb,0.28057e-09_rb,0.28360e-09_rb,0.28668e-09_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.22771e-09_rb,0.23074e-09_rb,0.23349e-09_rb,0.23595e-09_rb,0.23797e-09_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.18899e-09_rb,0.19179e-09_rb,0.19391e-09_rb,0.19591e-09_rb,0.19720e-09_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.15677e-09_rb,0.15897e-09_rb,0.16075e-09_rb,0.16219e-09_rb,0.16318e-09_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.12972e-09_rb,0.13147e-09_rb,0.13291e-09_rb,0.13412e-09_rb,0.13484e-09_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.10704e-09_rb,0.10855e-09_rb,0.10970e-09_rb,0.11065e-09_rb,0.11129e-09_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.88219e-10_rb,0.89571e-10_rb,0.90489e-10_rb,0.91263e-10_rb,0.91821e-10_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.72709e-10_rb,0.73884e-10_rb,0.74615e-10_rb,0.75144e-10_rb,0.75719e-10_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.59779e-10_rb,0.60793e-10_rb,0.61424e-10_rb,0.61873e-10_rb,0.62379e-10_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.49104e-10_rb,0.49999e-10_rb,0.50541e-10_rb,0.50924e-10_rb,0.51369e-10_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.40324e-10_rb,0.41079e-10_rb,0.41584e-10_rb,0.41914e-10_rb,0.42279e-10_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.33050e-10_rb,0.33695e-10_rb,0.34173e-10_rb,0.34462e-10_rb,0.34716e-10_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.27054e-10_rb,0.27604e-10_rb,0.28056e-10_rb,0.28313e-10_rb,0.28542e-10_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.22112e-10_rb,0.22613e-10_rb,0.23018e-10_rb,0.23255e-10_rb,0.23441e-10_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.18060e-10_rb,0.18501e-10_rb,0.18867e-10_rb,0.19082e-10_rb,0.19252e-10_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.14722e-10_rb,0.15111e-10_rb,0.15432e-10_rb,0.15658e-10_rb,0.15802e-10_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.11985e-10_rb,0.12318e-10_rb,0.12624e-10_rb,0.12826e-10_rb,0.12965e-10_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.97421e-11_rb,0.10040e-10_rb,0.10306e-10_rb,0.10499e-10_rb,0.10630e-10_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.79055e-11_rb,0.81823e-11_rb,0.84121e-11_rb,0.85902e-11_rb,0.87163e-11_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.64164e-11_rb,0.66612e-11_rb,0.68621e-11_rb,0.70240e-11_rb,0.71428e-11_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.51935e-11_rb,0.54159e-11_rb,0.55861e-11_rb,0.57406e-11_rb,0.58465e-11_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.42017e-11_rb,0.43985e-11_rb,0.45525e-11_rb,0.46862e-11_rb,0.47817e-11_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.33953e-11_rb,0.35701e-11_rb,0.37080e-11_rb,0.38204e-11_rb,0.39118e-11_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.27420e-11_rb,0.28948e-11_rb,0.30166e-11_rb,0.31148e-11_rb,0.31981e-11_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.22097e-11_rb,0.23440e-11_rb,0.24518e-11_rb,0.25378e-11_rb,0.26122e-11_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.17765e-11_rb,0.18968e-11_rb,0.19913e-11_rb,0.20659e-11_rb,0.21319e-11_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.14264e-11_rb,0.15324e-11_rb,0.16166e-11_rb,0.16816e-11_rb,0.17374e-11_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.11621e-11_rb,0.12515e-11_rb,0.13230e-11_rb,0.13773e-11_rb,0.14240e-11_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.28079e-07_rb,0.28035e-07_rb,0.27949e-07_rb,0.27835e-07_rb,0.27661e-07_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.23041e-07_rb,0.22982e-07_rb,0.22914e-07_rb,0.22814e-07_rb,0.22653e-07_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.18899e-07_rb,0.18860e-07_rb,0.18790e-07_rb,0.18675e-07_rb,0.18596e-07_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.15489e-07_rb,0.15457e-07_rb,0.15389e-07_rb,0.15337e-07_rb,0.15329e-07_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.12699e-07_rb,0.12665e-07_rb,0.12634e-07_rb,0.12640e-07_rb,0.12612e-07_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.10409e-07_rb,0.10397e-07_rb,0.10401e-07_rb,0.10391e-07_rb,0.10368e-07_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.85482e-08_rb,0.85403e-08_rb,0.85408e-08_rb,0.85379e-08_rb,0.85325e-08_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.70183e-08_rb,0.70212e-08_rb,0.70225e-08_rb,0.70232e-08_rb,0.70243e-08_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.57704e-08_rb,0.57836e-08_rb,0.57919e-08_rb,0.57990e-08_rb,0.58135e-08_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.47522e-08_rb,0.47673e-08_rb,0.47834e-08_rb,0.48084e-08_rb,0.48239e-08_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.39186e-08_rb,0.39439e-08_rb,0.39679e-08_rb,0.39863e-08_rb,0.40063e-08_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.32407e-08_rb,0.32645e-08_rb,0.32840e-08_rb,0.33039e-08_rb,0.33353e-08_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.26846e-08_rb,0.27012e-08_rb,0.27199e-08_rb,0.27477e-08_rb,0.27761e-08_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.22196e-08_rb,0.22367e-08_rb,0.22646e-08_rb,0.22896e-08_rb,0.23141e-08_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.18370e-08_rb,0.18616e-08_rb,0.18864e-08_rb,0.19087e-08_rb,0.19319e-08_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.15259e-08_rb,0.15495e-08_rb,0.15695e-08_rb,0.15912e-08_rb,0.16152e-08_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.12717e-08_rb,0.12907e-08_rb,0.13087e-08_rb,0.13304e-08_rb,0.13523e-08_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.10599e-08_rb,0.10765e-08_rb,0.10939e-08_rb,0.11139e-08_rb,0.11374e-08_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.88411e-09_rb,0.89833e-09_rb,0.91628e-09_rb,0.93662e-09_rb,0.95540e-09_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.73723e-09_rb,0.75198e-09_rb,0.77042e-09_rb,0.78608e-09_rb,0.80601e-09_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.61511e-09_rb,0.63161e-09_rb,0.64646e-09_rb,0.66232e-09_rb,0.68095e-09_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.51621e-09_rb,0.53001e-09_rb,0.54332e-09_rb,0.55986e-09_rb,0.57326e-09_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.43217e-09_rb,0.44439e-09_rb,0.45713e-09_rb,0.47103e-09_rb,0.48242e-09_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.36090e-09_rb,0.37166e-09_rb,0.38311e-09_rb,0.39461e-09_rb,0.40545e-09_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.29990e-09_rb,0.30916e-09_rb,0.31937e-09_rb,0.32943e-09_rb,0.34038e-09_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.24927e-09_rb,0.25737e-09_rb,0.26638e-09_rb,0.27543e-09_rb,0.28596e-09_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.20718e-09_rb,0.21434e-09_rb,0.22203e-09_rb,0.23026e-09_rb,0.23966e-09_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.17122e-09_rb,0.17745e-09_rb,0.18425e-09_rb,0.19138e-09_rb,0.19937e-09_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.14145e-09_rb,0.14673e-09_rb,0.15273e-09_rb,0.15885e-09_rb,0.16544e-09_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.11673e-09_rb,0.12130e-09_rb,0.12626e-09_rb,0.13156e-09_rb,0.13718e-09_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.95979e-10_rb,0.99773e-10_rb,0.10407e-09_rb,0.10848e-09_rb,0.11289e-09_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.78684e-10_rb,0.81894e-10_rb,0.85476e-10_rb,0.89249e-10_rb,0.92971e-10_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.64482e-10_rb,0.67161e-10_rb,0.70163e-10_rb,0.73315e-10_rb,0.76486e-10_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.52720e-10_rb,0.54998e-10_rb,0.57509e-10_rb,0.60128e-10_rb,0.62787e-10_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.42902e-10_rb,0.44887e-10_rb,0.46948e-10_rb,0.49098e-10_rb,0.51392e-10_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.34914e-10_rb,0.36612e-10_rb,0.38268e-10_rb,0.40114e-10_rb,0.41998e-10_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.28363e-10_rb,0.29830e-10_rb,0.31160e-10_rb,0.32712e-10_rb,0.34278e-10_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.23044e-10_rb,0.24298e-10_rb,0.25411e-10_rb,0.26663e-10_rb,0.27956e-10_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.18719e-10_rb,0.19762e-10_rb,0.20717e-10_rb,0.21748e-10_rb,0.22834e-10_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.15214e-10_rb,0.16060e-10_rb,0.16882e-10_rb,0.17722e-10_rb,0.18609e-10_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.12339e-10_rb,0.13039e-10_rb,0.13738e-10_rb,0.14413e-10_rb,0.15144e-10_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.10028e-10_rb,0.10589e-10_rb,0.11176e-10_rb,0.11743e-10_rb,0.12340e-10_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.81332e-11_rb,0.85988e-11_rb,0.90904e-11_rb,0.95545e-11_rb,0.10057e-10_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.66047e-11_rb,0.69777e-11_rb,0.73796e-11_rb,0.77755e-11_rb,0.81880e-11_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.53536e-11_rb,0.56554e-11_rb,0.59940e-11_rb,0.63232e-11_rb,0.66612e-11_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.43329e-11_rb,0.45903e-11_rb,0.48661e-11_rb,0.51412e-11_rb,0.54200e-11_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.35522e-11_rb,0.37646e-11_rb,0.39940e-11_rb,0.42211e-11_rb,0.44525e-11_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.11230e-06_rb,0.11409e-06_rb,0.11566e-06_rb,0.11672e-06_rb,0.11734e-06_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.92428e-07_rb,0.93878e-07_rb,0.95014e-07_rb,0.95711e-07_rb,0.96110e-07_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.76021e-07_rb,0.77148e-07_rb,0.77913e-07_rb,0.78505e-07_rb,0.78756e-07_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.62512e-07_rb,0.63402e-07_rb,0.63979e-07_rb,0.64292e-07_rb,0.64352e-07_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.51480e-07_rb,0.52099e-07_rb,0.52465e-07_rb,0.52634e-07_rb,0.52753e-07_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.42336e-07_rb,0.42773e-07_rb,0.43015e-07_rb,0.43145e-07_rb,0.43290e-07_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.34820e-07_rb,0.35138e-07_rb,0.35326e-07_rb,0.35465e-07_rb,0.35546e-07_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.28634e-07_rb,0.28882e-07_rb,0.29099e-07_rb,0.29190e-07_rb,0.29248e-07_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.23527e-07_rb,0.23767e-07_rb,0.23879e-07_rb,0.24001e-07_rb,0.24136e-07_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.19380e-07_rb,0.19526e-07_rb,0.19668e-07_rb,0.19823e-07_rb,0.20000e-07_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.15955e-07_rb,0.16103e-07_rb,0.16252e-07_rb,0.16425e-07_rb,0.16561e-07_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.13163e-07_rb,0.13294e-07_rb,0.13466e-07_rb,0.13609e-07_rb,0.13701e-07_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.10863e-07_rb,0.11029e-07_rb,0.11155e-07_rb,0.11256e-07_rb,0.11368e-07_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.90043e-08_rb,0.91173e-08_rb,0.92226e-08_rb,0.93261e-08_rb,0.94322e-08_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.74604e-08_rb,0.75548e-08_rb,0.76410e-08_rb,0.77390e-08_rb,0.78488e-08_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.61944e-08_rb,0.62754e-08_rb,0.63658e-08_rb,0.64728e-08_rb,0.65523e-08_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.51553e-08_rb,0.52390e-08_rb,0.53444e-08_rb,0.54244e-08_rb,0.55104e-08_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.43022e-08_rb,0.44056e-08_rb,0.44906e-08_rb,0.45753e-08_rb,0.46815e-08_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.36260e-08_rb,0.37147e-08_rb,0.37854e-08_rb,0.38857e-08_rb,0.39725e-08_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.30574e-08_rb,0.31222e-08_rb,0.32149e-08_rb,0.32959e-08_rb,0.33679e-08_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.25690e-08_rb,0.26475e-08_rb,0.27306e-08_rb,0.27942e-08_rb,0.28607e-08_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.21739e-08_rb,0.22522e-08_rb,0.23131e-08_rb,0.23724e-08_rb,0.24398e-08_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.18403e-08_rb,0.19033e-08_rb,0.19580e-08_rb,0.20191e-08_rb,0.20792e-08_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.15538e-08_rb,0.16068e-08_rb,0.16535e-08_rb,0.17159e-08_rb,0.17681e-08_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.13002e-08_rb,0.13483e-08_rb,0.13923e-08_rb,0.14493e-08_rb,0.14927e-08_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.10893e-08_rb,0.11319e-08_rb,0.11765e-08_rb,0.12253e-08_rb,0.12624e-08_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.91348e-09_rb,0.95067e-09_rb,0.99134e-09_rb,0.10293e-08_rb,0.10668e-08_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.76170e-09_rb,0.79404e-09_rb,0.82953e-09_rb,0.86548e-09_rb,0.90041e-09_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.63292e-09_rb,0.66170e-09_rb,0.69363e-09_rb,0.72573e-09_rb,0.75710e-09_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.52609e-09_rb,0.55120e-09_rb,0.57974e-09_rb,0.60803e-09_rb,0.63636e-09_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.43444e-09_rb,0.45674e-09_rb,0.48206e-09_rb,0.50747e-09_rb,0.53053e-09_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.35755e-09_rb,0.37758e-09_rb,0.39965e-09_rb,0.42169e-09_rb,0.44276e-09_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.29410e-09_rb,0.31126e-09_rb,0.33079e-09_rb,0.35014e-09_rb,0.36874e-09_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.24113e-09_rb,0.25605e-09_rb,0.27273e-09_rb,0.28962e-09_rb,0.30646e-09_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.19675e-09_rb,0.20937e-09_rb,0.22390e-09_rb,0.23865e-09_rb,0.25330e-09_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.16029e-09_rb,0.17125e-09_rb,0.18339e-09_rb,0.19620e-09_rb,0.20918e-09_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.13018e-09_rb,0.13961e-09_rb,0.15020e-09_rb,0.16108e-09_rb,0.17231e-09_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.10559e-09_rb,0.11394e-09_rb,0.12271e-09_rb,0.13208e-09_rb,0.14200e-09_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.85569e-10_rb,0.92775e-10_rb,0.10011e-09_rb,0.10818e-09_rb,0.11665e-09_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.69342e-10_rb,0.75341e-10_rb,0.81596e-10_rb,0.88527e-10_rb,0.95876e-10_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.56003e-10_rb,0.61203e-10_rb,0.66389e-10_rb,0.72376e-10_rb,0.78642e-10_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.45380e-10_rb,0.49599e-10_rb,0.54006e-10_rb,0.59069e-10_rb,0.64380e-10_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.36637e-10_rb,0.40078e-10_rb,0.43990e-10_rb,0.48279e-10_rb,0.52815e-10_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.29596e-10_rb,0.32455e-10_rb,0.35694e-10_rb,0.39315e-10_rb,0.43169e-10_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.23911e-10_rb,0.26268e-10_rb,0.28916e-10_rb,0.31929e-10_rb,0.35182e-10_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.19299e-10_rb,0.21198e-10_rb,0.23407e-10_rb,0.25936e-10_rb,0.28689e-10_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.15839e-10_rb,0.17448e-10_rb,0.19334e-10_rb,0.21469e-10_rb,0.23829e-10_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.96471e-06_rb,0.97408e-06_rb,0.98436e-06_rb,0.99439e-06_rb,0.10050e-05_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.80904e-06_rb,0.81838e-06_rb,0.82742e-06_rb,0.83703e-06_rb,0.84742e-06_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.67733e-06_rb,0.68563e-06_rb,0.69403e-06_rb,0.70345e-06_rb,0.71287e-06_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.56582e-06_rb,0.57313e-06_rb,0.58159e-06_rb,0.59012e-06_rb,0.59880e-06_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.47164e-06_rb,0.47892e-06_rb,0.48671e-06_rb,0.49436e-06_rb,0.50258e-06_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.39308e-06_rb,0.39992e-06_rb,0.40685e-06_rb,0.41415e-06_rb,0.42143e-06_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.32764e-06_rb,0.33370e-06_rb,0.34000e-06_rb,0.34660e-06_rb,0.35294e-06_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.27304e-06_rb,0.27855e-06_rb,0.28433e-06_rb,0.29002e-06_rb,0.29550e-06_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.22762e-06_rb,0.23263e-06_rb,0.23776e-06_rb,0.24264e-06_rb,0.24751e-06_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.19016e-06_rb,0.19467e-06_rb,0.19902e-06_rb,0.20331e-06_rb,0.20743e-06_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.15902e-06_rb,0.16285e-06_rb,0.16664e-06_rb,0.17032e-06_rb,0.17381e-06_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.13300e-06_rb,0.13639e-06_rb,0.13965e-06_rb,0.14271e-06_rb,0.14575e-06_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.11136e-06_rb,0.11428e-06_rb,0.11705e-06_rb,0.11966e-06_rb,0.12234e-06_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.93355e-07_rb,0.95870e-07_rb,0.98179e-07_rb,0.10046e-06_rb,0.10295e-06_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.78546e-07_rb,0.80656e-07_rb,0.82694e-07_rb,0.84793e-07_rb,0.87129e-07_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.65991e-07_rb,0.67786e-07_rb,0.69602e-07_rb,0.71624e-07_rb,0.74063e-07_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.55459e-07_rb,0.56995e-07_rb,0.58695e-07_rb,0.60741e-07_rb,0.63281e-07_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.46750e-07_rb,0.48054e-07_rb,0.49703e-07_rb,0.51793e-07_rb,0.54403e-07_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.39452e-07_rb,0.40727e-07_rb,0.42319e-07_rb,0.44486e-07_rb,0.47323e-07_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.33473e-07_rb,0.34884e-07_rb,0.36502e-07_rb,0.38781e-07_rb,0.41735e-07_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.28581e-07_rb,0.30008e-07_rb,0.31748e-07_rb,0.34217e-07_rb,0.37511e-07_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.24450e-07_rb,0.25951e-07_rb,0.27867e-07_rb,0.30565e-07_rb,0.34125e-07_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.20942e-07_rb,0.22554e-07_rb,0.24574e-07_rb,0.27409e-07_rb,0.31159e-07_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.18081e-07_rb,0.19648e-07_rb,0.21657e-07_rb,0.24573e-07_rb,0.28429e-07_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.15436e-07_rb,0.16978e-07_rb,0.19037e-07_rb,0.21710e-07_rb,0.25509e-07_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.13187e-07_rb,0.14690e-07_rb,0.16738e-07_rb,0.19257e-07_rb,0.22992e-07_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.11282e-07_rb,0.12751e-07_rb,0.14794e-07_rb,0.17292e-07_rb,0.20852e-07_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.96293e-08_rb,0.10973e-07_rb,0.12917e-07_rb,0.15272e-07_rb,0.18582e-07_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.81770e-08_rb,0.94352e-08_rb,0.11220e-07_rb,0.13516e-07_rb,0.16546e-07_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.69323e-08_rb,0.80750e-08_rb,0.97479e-08_rb,0.11964e-07_rb,0.14736e-07_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.58312e-08_rb,0.68571e-08_rb,0.83595e-08_rb,0.10414e-07_rb,0.12928e-07_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.48754e-08_rb,0.58128e-08_rb,0.71504e-08_rb,0.90270e-08_rb,0.11362e-07_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.40522e-08_rb,0.48841e-08_rb,0.60765e-08_rb,0.77697e-08_rb,0.99439e-08_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.33429e-08_rb,0.40820e-08_rb,0.51038e-08_rb,0.66237e-08_rb,0.86427e-08_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.27297e-08_rb,0.33571e-08_rb,0.42806e-08_rb,0.55863e-08_rb,0.73605e-08_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.22143e-08_rb,0.27445e-08_rb,0.35414e-08_rb,0.46711e-08_rb,0.62204e-08_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.18030e-08_rb,0.22208e-08_rb,0.28995e-08_rb,0.38639e-08_rb,0.52216e-08_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.14670e-08_rb,0.18085e-08_rb,0.23853e-08_rb,0.32522e-08_rb,0.44284e-08_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.11873e-08_rb,0.14637e-08_rb,0.19592e-08_rb,0.27073e-08_rb,0.37306e-08_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.96876e-09_rb,0.11883e-08_rb,0.15881e-08_rb,0.22316e-08_rb,0.31252e-08_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.79526e-09_rb,0.95443e-09_rb,0.12843e-08_rb,0.18180e-08_rb,0.25992e-08_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.65045e-09_rb,0.77197e-09_rb,0.10500e-08_rb,0.14963e-08_rb,0.21953e-08_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.53001e-09_rb,0.62144e-09_rb,0.84441e-09_rb,0.12265e-08_rb,0.18415e-08_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.43274e-09_rb,0.50433e-09_rb,0.67633e-09_rb,0.10051e-08_rb,0.15294e-08_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.35151e-09_rb,0.40652e-09_rb,0.53819e-09_rb,0.80840e-09_rb,0.12530e-08_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.28511e-09_rb,0.33047e-09_rb,0.42809e-09_rb,0.65584e-09_rb,0.10383e-08_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.23557e-09_rb,0.27695e-09_rb,0.36588e-09_rb,0.57468e-09_rb,0.92796e-09_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.49379e-05_rb,0.50469e-05_rb,0.51595e-05_rb,0.52778e-05_rb,0.54099e-05_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.42812e-05_rb,0.43888e-05_rb,0.45022e-05_rb,0.46302e-05_rb,0.47669e-05_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.36929e-05_rb,0.37965e-05_rb,0.39164e-05_rb,0.40454e-05_rb,0.41827e-05_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.31721e-05_rb,0.32791e-05_rb,0.33975e-05_rb,0.35246e-05_rb,0.36634e-05_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.27212e-05_rb,0.28264e-05_rb,0.29414e-05_rb,0.30666e-05_rb,0.32085e-05_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.23339e-05_rb,0.24330e-05_rb,0.25438e-05_rb,0.26711e-05_rb,0.28184e-05_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.19987e-05_rb,0.20932e-05_rb,0.22036e-05_rb,0.23332e-05_rb,0.24834e-05_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.17132e-05_rb,0.18061e-05_rb,0.19176e-05_rb,0.20491e-05_rb,0.21989e-05_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.14710e-05_rb,0.15640e-05_rb,0.16759e-05_rb,0.18061e-05_rb,0.19600e-05_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.12737e-05_rb,0.13668e-05_rb,0.14788e-05_rb,0.16132e-05_rb,0.17763e-05_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.11088e-05_rb,0.12015e-05_rb,0.13166e-05_rb,0.14583e-05_rb,0.16304e-05_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.97145e-06_rb,0.10662e-05_rb,0.11867e-05_rb,0.13370e-05_rb,0.15170e-05_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.85857e-06_rb,0.95791e-06_rb,0.10855e-05_rb,0.12438e-05_rb,0.14327e-05_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.76914e-06_rb,0.87488e-06_rb,0.10107e-05_rb,0.11782e-05_rb,0.13762e-05_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.69709e-06_rb,0.81000e-06_rb,0.95427e-06_rb,0.11311e-05_rb,0.13395e-05_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.64352e-06_rb,0.76453e-06_rb,0.91846e-06_rb,0.11047e-05_rb,0.13225e-05_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.60601e-06_rb,0.73668e-06_rb,0.90033e-06_rb,0.10967e-05_rb,0.13241e-05_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.58144e-06_rb,0.72277e-06_rb,0.89681e-06_rb,0.11031e-05_rb,0.13400e-05_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.57013e-06_rb,0.72161e-06_rb,0.90691e-06_rb,0.11230e-05_rb,0.13684e-05_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.57021e-06_rb,0.73098e-06_rb,0.92629e-06_rb,0.11521e-05_rb,0.14071e-05_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.58025e-06_rb,0.75106e-06_rb,0.95601e-06_rb,0.11909e-05_rb,0.14530e-05_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.59352e-06_rb,0.77298e-06_rb,0.98581e-06_rb,0.12280e-05_rb,0.14964e-05_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.59731e-06_rb,0.78147e-06_rb,0.99919e-06_rb,0.12457e-05_rb,0.15176e-05_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.58516e-06_rb,0.77138e-06_rb,0.99076e-06_rb,0.12378e-05_rb,0.15105e-05_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.55140e-06_rb,0.73346e-06_rb,0.94817e-06_rb,0.11937e-05_rb,0.14631e-05_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.51916e-06_rb,0.69705e-06_rb,0.90723e-06_rb,0.11496e-05_rb,0.14156e-05_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.48960e-06_rb,0.66318e-06_rb,0.86863e-06_rb,0.11068e-05_rb,0.13701e-05_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.44595e-06_rb,0.61209e-06_rb,0.81011e-06_rb,0.10412e-05_rb,0.12987e-05_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.40399e-06_rb,0.56185e-06_rb,0.75199e-06_rb,0.97449e-06_rb,0.12265e-05_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.36503e-06_rb,0.51494e-06_rb,0.69685e-06_rb,0.91108e-06_rb,0.11565e-05_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.32174e-06_rb,0.46170e-06_rb,0.63377e-06_rb,0.83820e-06_rb,0.10749e-05_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.27930e-06_rb,0.40829e-06_rb,0.56968e-06_rb,0.76331e-06_rb,0.98961e-06_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.24096e-06_rb,0.35938e-06_rb,0.50997e-06_rb,0.69291e-06_rb,0.90837e-06_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.20431e-06_rb,0.31166e-06_rb,0.45096e-06_rb,0.62224e-06_rb,0.82595e-06_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.16816e-06_rb,0.26359e-06_rb,0.38972e-06_rb,0.54827e-06_rb,0.73938e-06_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.13670e-06_rb,0.22070e-06_rb,0.33435e-06_rb,0.47996e-06_rb,0.65830e-06_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.10953e-06_rb,0.18282e-06_rb,0.28430e-06_rb,0.41725e-06_rb,0.58243e-06_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.88267e-07_rb,0.15143e-06_rb,0.24199e-06_rb,0.36271e-06_rb,0.51595e-06_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.70298e-07_rb,0.12484e-06_rb,0.20511e-06_rb,0.31462e-06_rb,0.45605e-06_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.55131e-07_rb,0.10217e-06_rb,0.17234e-06_rb,0.27088e-06_rb,0.40072e-06_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.43153e-07_rb,0.82195e-07_rb,0.14318e-06_rb,0.23139e-06_rb,0.34955e-06_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.33903e-07_rb,0.66466e-07_rb,0.12020e-06_rb,0.19856e-06_rb,0.30630e-06_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.26416e-07_rb,0.53605e-07_rb,0.10034e-06_rb,0.17017e-06_rb,0.26833e-06_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.20206e-07_rb,0.42611e-07_rb,0.82928e-07_rb,0.14532e-06_rb,0.23365e-06_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.15310e-07_rb,0.33413e-07_rb,0.67820e-07_rb,0.12262e-06_rb,0.20213e-06_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.11722e-07_rb,0.26420e-07_rb,0.55414e-07_rb,0.10347e-06_rb,0.17567e-06_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.10312e-07_rb,0.23851e-07_rb,0.50918e-07_rb,0.96421e-07_rb,0.16547e-06_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.10213e-04_rb,0.10492e-04_rb,0.10768e-04_rb,0.11052e-04_rb,0.11341e-04_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.92065e-05_rb,0.95170e-05_rb,0.98374e-05_rb,0.10166e-04_rb,0.10515e-04_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.82447e-05_rb,0.85845e-05_rb,0.89388e-05_rb,0.93243e-05_rb,0.97313e-05_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.73562e-05_rb,0.77204e-05_rb,0.81177e-05_rb,0.85472e-05_rb,0.89941e-05_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.65534e-05_rb,0.69440e-05_rb,0.73753e-05_rb,0.78408e-05_rb,0.83202e-05_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.58421e-05_rb,0.62603e-05_rb,0.67231e-05_rb,0.72105e-05_rb,0.77276e-05_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.52249e-05_rb,0.56681e-05_rb,0.61484e-05_rb,0.66668e-05_rb,0.72285e-05_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.47032e-05_rb,0.51617e-05_rb,0.56660e-05_rb,0.62226e-05_rb,0.68302e-05_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.42601e-05_rb,0.47338e-05_rb,0.52698e-05_rb,0.58670e-05_rb,0.65065e-05_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.39167e-05_rb,0.44205e-05_rb,0.49953e-05_rb,0.56267e-05_rb,0.62956e-05_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.36499e-05_rb,0.41883e-05_rb,0.47965e-05_rb,0.54568e-05_rb,0.61529e-05_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.34565e-05_rb,0.40283e-05_rb,0.46653e-05_rb,0.53526e-05_rb,0.60723e-05_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.33292e-05_rb,0.39315e-05_rb,0.45958e-05_rb,0.53082e-05_rb,0.60473e-05_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.32653e-05_rb,0.38970e-05_rb,0.45879e-05_rb,0.53204e-05_rb,0.60776e-05_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.32497e-05_rb,0.39083e-05_rb,0.46221e-05_rb,0.53722e-05_rb,0.61437e-05_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.32741e-05_rb,0.39580e-05_rb,0.46902e-05_rb,0.54541e-05_rb,0.62354e-05_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.33369e-05_rb,0.40429e-05_rb,0.47902e-05_rb,0.55664e-05_rb,0.63553e-05_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.34283e-05_rb,0.41504e-05_rb,0.49124e-05_rb,0.56972e-05_rb,0.64922e-05_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.35444e-05_rb,0.42823e-05_rb,0.50547e-05_rb,0.58477e-05_rb,0.66477e-05_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.36801e-05_rb,0.44317e-05_rb,0.52138e-05_rb,0.60136e-05_rb,0.68176e-05_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.38318e-05_rb,0.45951e-05_rb,0.53855e-05_rb,0.61901e-05_rb,0.69963e-05_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.39692e-05_rb,0.47416e-05_rb,0.55387e-05_rb,0.63463e-05_rb,0.71529e-05_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.40413e-05_rb,0.48197e-05_rb,0.56200e-05_rb,0.64302e-05_rb,0.72378e-05_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.40356e-05_rb,0.48162e-05_rb,0.56178e-05_rb,0.64290e-05_rb,0.72385e-05_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.39181e-05_rb,0.46953e-05_rb,0.54967e-05_rb,0.63083e-05_rb,0.71198e-05_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.37977e-05_rb,0.45715e-05_rb,0.53704e-05_rb,0.61820e-05_rb,0.69964e-05_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.36811e-05_rb,0.44507e-05_rb,0.52481e-05_rb,0.60593e-05_rb,0.68739e-05_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.34909e-05_rb,0.42522e-05_rb,0.50444e-05_rb,0.58543e-05_rb,0.66697e-05_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.32953e-05_rb,0.40465e-05_rb,0.48326e-05_rb,0.56401e-05_rb,0.64551e-05_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.31040e-05_rb,0.38444e-05_rb,0.46230e-05_rb,0.54267e-05_rb,0.62419e-05_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.28773e-05_rb,0.36028e-05_rb,0.43716e-05_rb,0.51693e-05_rb,0.59825e-05_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.26404e-05_rb,0.33480e-05_rb,0.41036e-05_rb,0.48939e-05_rb,0.57034e-05_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.24120e-05_rb,0.30991e-05_rb,0.38405e-05_rb,0.46208e-05_rb,0.54260e-05_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.21786e-05_rb,0.28418e-05_rb,0.35659e-05_rb,0.43343e-05_rb,0.51318e-05_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.19311e-05_rb,0.25641e-05_rb,0.32660e-05_rb,0.40180e-05_rb,0.48060e-05_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.16967e-05_rb,0.22980e-05_rb,0.29746e-05_rb,0.37093e-05_rb,0.44842e-05_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.14774e-05_rb,0.20448e-05_rb,0.26926e-05_rb,0.34064e-05_rb,0.41668e-05_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.12873e-05_rb,0.18193e-05_rb,0.24384e-05_rb,0.31296e-05_rb,0.38742e-05_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.11146e-05_rb,0.16126e-05_rb,0.22020e-05_rb,0.28686e-05_rb,0.35959e-05_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.95604e-06_rb,0.14200e-05_rb,0.19761e-05_rb,0.26163e-05_rb,0.33236e-05_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.80966e-06_rb,0.12381e-05_rb,0.17610e-05_rb,0.23732e-05_rb,0.30580e-05_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.68766e-06_rb,0.10830e-05_rb,0.15763e-05_rb,0.21583e-05_rb,0.28207e-05_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.58212e-06_rb,0.94518e-06_rb,0.14071e-05_rb,0.19616e-05_rb,0.26001e-05_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.48769e-06_rb,0.81784e-06_rb,0.12480e-05_rb,0.17754e-05_rb,0.23872e-05_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.40334e-06_rb,0.70099e-06_rb,0.10993e-05_rb,0.15960e-05_rb,0.21818e-05_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.33254e-06_rb,0.59979e-06_rb,0.96749e-06_rb,0.14348e-05_rb,0.19961e-05_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.30667e-06_rb,0.56182e-06_rb,0.91722e-06_rb,0.13728e-05_rb,0.19233e-05_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.21780e-04_rb,0.22297e-04_rb,0.22851e-04_rb,0.23387e-04_rb,0.23897e-04_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.20875e-04_rb,0.21531e-04_rb,0.22189e-04_rb,0.22823e-04_rb,0.23424e-04_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.19941e-04_rb,0.20728e-04_rb,0.21492e-04_rb,0.22225e-04_rb,0.22948e-04_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.19013e-04_rb,0.19918e-04_rb,0.20796e-04_rb,0.21654e-04_rb,0.22503e-04_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.18129e-04_rb,0.19150e-04_rb,0.20149e-04_rb,0.21144e-04_rb,0.22094e-04_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.17308e-04_rb,0.18451e-04_rb,0.19578e-04_rb,0.20689e-04_rb,0.21728e-04_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.16581e-04_rb,0.17835e-04_rb,0.19087e-04_rb,0.20285e-04_rb,0.21402e-04_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.15978e-04_rb,0.17349e-04_rb,0.18704e-04_rb,0.19972e-04_rb,0.21143e-04_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.15496e-04_rb,0.16976e-04_rb,0.18403e-04_rb,0.19724e-04_rb,0.20952e-04_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.15240e-04_rb,0.16798e-04_rb,0.18272e-04_rb,0.19635e-04_rb,0.20901e-04_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.15105e-04_rb,0.16716e-04_rb,0.18220e-04_rb,0.19617e-04_rb,0.20916e-04_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.15076e-04_rb,0.16719e-04_rb,0.18249e-04_rb,0.19672e-04_rb,0.20991e-04_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.15141e-04_rb,0.16802e-04_rb,0.18352e-04_rb,0.19786e-04_rb,0.21116e-04_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.15306e-04_rb,0.16974e-04_rb,0.18529e-04_rb,0.19965e-04_rb,0.21296e-04_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.15522e-04_rb,0.17192e-04_rb,0.18747e-04_rb,0.20182e-04_rb,0.21501e-04_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.15784e-04_rb,0.17449e-04_rb,0.18996e-04_rb,0.20419e-04_rb,0.21733e-04_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.16090e-04_rb,0.17744e-04_rb,0.19276e-04_rb,0.20687e-04_rb,0.21987e-04_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.16419e-04_rb,0.18062e-04_rb,0.19575e-04_rb,0.20970e-04_rb,0.22248e-04_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.16777e-04_rb,0.18399e-04_rb,0.19892e-04_rb,0.21268e-04_rb,0.22521e-04_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.17152e-04_rb,0.18750e-04_rb,0.20222e-04_rb,0.21573e-04_rb,0.22802e-04_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.17537e-04_rb,0.19109e-04_rb,0.20556e-04_rb,0.21883e-04_rb,0.23082e-04_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.17871e-04_rb,0.19418e-04_rb,0.20844e-04_rb,0.22147e-04_rb,0.23322e-04_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.18052e-04_rb,0.19587e-04_rb,0.21002e-04_rb,0.22291e-04_rb,0.23455e-04_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.18063e-04_rb,0.19601e-04_rb,0.21016e-04_rb,0.22306e-04_rb,0.23468e-04_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.17833e-04_rb,0.19389e-04_rb,0.20824e-04_rb,0.22132e-04_rb,0.23314e-04_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.17587e-04_rb,0.19167e-04_rb,0.20623e-04_rb,0.21950e-04_rb,0.23152e-04_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.17343e-04_rb,0.18945e-04_rb,0.20418e-04_rb,0.21765e-04_rb,0.22984e-04_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.16926e-04_rb,0.18563e-04_rb,0.20065e-04_rb,0.21446e-04_rb,0.22697e-04_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.16478e-04_rb,0.18152e-04_rb,0.19687e-04_rb,0.21101e-04_rb,0.22388e-04_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.16023e-04_rb,0.17729e-04_rb,0.19301e-04_rb,0.20748e-04_rb,0.22068e-04_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.15458e-04_rb,0.17203e-04_rb,0.18821e-04_rb,0.20305e-04_rb,0.21667e-04_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.14831e-04_rb,0.16623e-04_rb,0.18287e-04_rb,0.19814e-04_rb,0.21219e-04_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.14192e-04_rb,0.16029e-04_rb,0.17735e-04_rb,0.19308e-04_rb,0.20757e-04_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.13493e-04_rb,0.15380e-04_rb,0.17134e-04_rb,0.18756e-04_rb,0.20247e-04_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.12693e-04_rb,0.14634e-04_rb,0.16440e-04_rb,0.18118e-04_rb,0.19661e-04_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.11878e-04_rb,0.13868e-04_rb,0.15729e-04_rb,0.17458e-04_rb,0.19054e-04_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.11052e-04_rb,0.13077e-04_rb,0.14993e-04_rb,0.16776e-04_rb,0.18429e-04_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.10274e-04_rb,0.12322e-04_rb,0.14286e-04_rb,0.16119e-04_rb,0.17820e-04_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.95165e-05_rb,0.11577e-04_rb,0.13581e-04_rb,0.15463e-04_rb,0.17211e-04_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.87654e-05_rb,0.10825e-04_rb,0.12859e-04_rb,0.14791e-04_rb,0.16589e-04_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.80213e-05_rb,0.10071e-04_rb,0.12124e-04_rb,0.14102e-04_rb,0.15949e-04_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.73473e-05_rb,0.93776e-05_rb,0.11439e-04_rb,0.13452e-04_rb,0.15344e-04_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.67127e-05_rb,0.87188e-05_rb,0.10780e-04_rb,0.12816e-04_rb,0.14751e-04_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.60935e-05_rb,0.80668e-05_rb,0.10118e-04_rb,0.12169e-04_rb,0.14148e-04_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.54908e-05_rb,0.74223e-05_rb,0.94571e-05_rb,0.11517e-04_rb,0.13528e-04_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.49372e-05_rb,0.68201e-05_rb,0.88324e-05_rb,0.10894e-04_rb,0.12926e-04_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.47213e-05_rb,0.65842e-05_rb,0.85835e-05_rb,0.10644e-04_rb,0.12683e-04_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.46820e-04_rb,0.47158e-04_rb,0.47420e-04_rb,0.47688e-04_rb,0.47860e-04_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.47343e-04_rb,0.47824e-04_rb,0.48275e-04_rb,0.48677e-04_rb,0.48937e-04_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.47643e-04_rb,0.48345e-04_rb,0.48980e-04_rb,0.49469e-04_rb,0.49813e-04_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.47844e-04_rb,0.48762e-04_rb,0.49536e-04_rb,0.50120e-04_rb,0.50548e-04_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.47956e-04_rb,0.49079e-04_rb,0.49982e-04_rb,0.50640e-04_rb,0.51155e-04_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.48046e-04_rb,0.49334e-04_rb,0.50343e-04_rb,0.51068e-04_rb,0.51673e-04_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.48132e-04_rb,0.49550e-04_rb,0.50630e-04_rb,0.51453e-04_rb,0.52124e-04_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.48262e-04_rb,0.49765e-04_rb,0.50907e-04_rb,0.51808e-04_rb,0.52533e-04_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.48402e-04_rb,0.49959e-04_rb,0.51170e-04_rb,0.52136e-04_rb,0.52894e-04_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.48671e-04_rb,0.50243e-04_rb,0.51485e-04_rb,0.52481e-04_rb,0.53256e-04_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.48954e-04_rb,0.50544e-04_rb,0.51806e-04_rb,0.52811e-04_rb,0.53587e-04_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.49272e-04_rb,0.50858e-04_rb,0.52128e-04_rb,0.53125e-04_rb,0.53892e-04_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.49616e-04_rb,0.51186e-04_rb,0.52450e-04_rb,0.53425e-04_rb,0.54174e-04_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.50001e-04_rb,0.51551e-04_rb,0.52773e-04_rb,0.53723e-04_rb,0.54445e-04_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.50406e-04_rb,0.51904e-04_rb,0.53086e-04_rb,0.54001e-04_rb,0.54687e-04_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.50802e-04_rb,0.52248e-04_rb,0.53391e-04_rb,0.54260e-04_rb,0.54906e-04_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.51204e-04_rb,0.52593e-04_rb,0.53683e-04_rb,0.54507e-04_rb,0.55109e-04_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.51608e-04_rb,0.52928e-04_rb,0.53956e-04_rb,0.54730e-04_rb,0.55285e-04_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.51993e-04_rb,0.53249e-04_rb,0.54213e-04_rb,0.54939e-04_rb,0.55442e-04_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.52364e-04_rb,0.53549e-04_rb,0.54461e-04_rb,0.55127e-04_rb,0.55583e-04_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.52722e-04_rb,0.53841e-04_rb,0.54688e-04_rb,0.55301e-04_rb,0.55705e-04_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.53018e-04_rb,0.54074e-04_rb,0.54867e-04_rb,0.55434e-04_rb,0.55799e-04_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.53187e-04_rb,0.54211e-04_rb,0.54980e-04_rb,0.55515e-04_rb,0.55855e-04_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.53222e-04_rb,0.54242e-04_rb,0.55009e-04_rb,0.55544e-04_rb,0.55878e-04_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.53077e-04_rb,0.54137e-04_rb,0.54934e-04_rb,0.55495e-04_rb,0.55862e-04_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.52907e-04_rb,0.54013e-04_rb,0.54850e-04_rb,0.55445e-04_rb,0.55837e-04_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.52736e-04_rb,0.53884e-04_rb,0.54754e-04_rb,0.55383e-04_rb,0.55805e-04_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.52415e-04_rb,0.53638e-04_rb,0.54576e-04_rb,0.55258e-04_rb,0.55727e-04_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.52053e-04_rb,0.53364e-04_rb,0.54368e-04_rb,0.55117e-04_rb,0.55636e-04_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.51661e-04_rb,0.53061e-04_rb,0.54142e-04_rb,0.54952e-04_rb,0.55527e-04_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.51150e-04_rb,0.52667e-04_rb,0.53836e-04_rb,0.54732e-04_rb,0.55377e-04_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.50559e-04_rb,0.52194e-04_rb,0.53480e-04_rb,0.54465e-04_rb,0.55186e-04_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.49921e-04_rb,0.51684e-04_rb,0.53086e-04_rb,0.54162e-04_rb,0.54971e-04_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.49197e-04_rb,0.51093e-04_rb,0.52628e-04_rb,0.53809e-04_rb,0.54714e-04_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.48328e-04_rb,0.50372e-04_rb,0.52058e-04_rb,0.53374e-04_rb,0.54380e-04_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.47381e-04_rb,0.49603e-04_rb,0.51420e-04_rb,0.52887e-04_rb,0.54013e-04_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.46342e-04_rb,0.48755e-04_rb,0.50735e-04_rb,0.52347e-04_rb,0.53594e-04_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.45266e-04_rb,0.47911e-04_rb,0.50033e-04_rb,0.51782e-04_rb,0.53163e-04_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.44139e-04_rb,0.47021e-04_rb,0.49310e-04_rb,0.51184e-04_rb,0.52699e-04_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.42930e-04_rb,0.46044e-04_rb,0.48523e-04_rb,0.50540e-04_rb,0.52191e-04_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.41632e-04_rb,0.44983e-04_rb,0.47688e-04_rb,0.49847e-04_rb,0.51629e-04_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.40359e-04_rb,0.43928e-04_rb,0.46843e-04_rb,0.49172e-04_rb,0.51075e-04_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.39074e-04_rb,0.42858e-04_rb,0.45984e-04_rb,0.48480e-04_rb,0.50508e-04_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.37728e-04_rb,0.41722e-04_rb,0.45056e-04_rb,0.47740e-04_rb,0.49900e-04_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.36320e-04_rb,0.40515e-04_rb,0.44055e-04_rb,0.46942e-04_rb,0.49258e-04_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.34927e-04_rb,0.39308e-04_rb,0.43052e-04_rb,0.46141e-04_rb,0.48596e-04_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.34349e-04_rb,0.38808e-04_rb,0.42631e-04_rb,0.45802e-04_rb,0.48325e-04_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.91739e-04_rb,0.90588e-04_rb,0.89270e-04_rb,0.87862e-04_rb,0.86541e-04_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.97111e-04_rb,0.95879e-04_rb,0.94382e-04_rb,0.92799e-04_rb,0.91344e-04_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.10201e-03_rb,0.10059e-03_rb,0.98963e-04_rb,0.97297e-04_rb,0.95661e-04_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.10632e-03_rb,0.10477e-03_rb,0.10303e-03_rb,0.10127e-03_rb,0.99489e-04_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.11011e-03_rb,0.10842e-03_rb,0.10659e-03_rb,0.10474e-03_rb,0.10285e-03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.11338e-03_rb,0.11158e-03_rb,0.10968e-03_rb,0.10773e-03_rb,0.10569e-03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.11615e-03_rb,0.11428e-03_rb,0.11231e-03_rb,0.11026e-03_rb,0.10810e-03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.11847e-03_rb,0.11653e-03_rb,0.11450e-03_rb,0.11235e-03_rb,0.11005e-03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.12039e-03_rb,0.11839e-03_rb,0.11628e-03_rb,0.11404e-03_rb,0.11166e-03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.12185e-03_rb,0.11978e-03_rb,0.11759e-03_rb,0.11525e-03_rb,0.11275e-03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.12298e-03_rb,0.12085e-03_rb,0.11858e-03_rb,0.11615e-03_rb,0.11356e-03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.12384e-03_rb,0.12163e-03_rb,0.11927e-03_rb,0.11676e-03_rb,0.11410e-03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.12445e-03_rb,0.12216e-03_rb,0.11972e-03_rb,0.11712e-03_rb,0.11440e-03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.12480e-03_rb,0.12244e-03_rb,0.11993e-03_rb,0.11725e-03_rb,0.11449e-03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.12497e-03_rb,0.12254e-03_rb,0.11997e-03_rb,0.11723e-03_rb,0.11442e-03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.12498e-03_rb,0.12249e-03_rb,0.11986e-03_rb,0.11707e-03_rb,0.11425e-03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.12486e-03_rb,0.12231e-03_rb,0.11961e-03_rb,0.11677e-03_rb,0.11393e-03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.12462e-03_rb,0.12202e-03_rb,0.11925e-03_rb,0.11640e-03_rb,0.11355e-03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.12428e-03_rb,0.12163e-03_rb,0.11882e-03_rb,0.11594e-03_rb,0.11310e-03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.12387e-03_rb,0.12116e-03_rb,0.11831e-03_rb,0.11542e-03_rb,0.11260e-03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.12338e-03_rb,0.12061e-03_rb,0.11773e-03_rb,0.11485e-03_rb,0.11205e-03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.12293e-03_rb,0.12013e-03_rb,0.11722e-03_rb,0.11434e-03_rb,0.11156e-03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.12271e-03_rb,0.11987e-03_rb,0.11696e-03_rb,0.11408e-03_rb,0.11132e-03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.12276e-03_rb,0.11992e-03_rb,0.11700e-03_rb,0.11412e-03_rb,0.11135e-03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.12321e-03_rb,0.12039e-03_rb,0.11748e-03_rb,0.11457e-03_rb,0.11178e-03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.12368e-03_rb,0.12086e-03_rb,0.11795e-03_rb,0.11504e-03_rb,0.11223e-03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.12412e-03_rb,0.12132e-03_rb,0.11841e-03_rb,0.11549e-03_rb,0.11266e-03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.12481e-03_rb,0.12205e-03_rb,0.11917e-03_rb,0.11624e-03_rb,0.11338e-03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.12552e-03_rb,0.12282e-03_rb,0.11995e-03_rb,0.11701e-03_rb,0.11413e-03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.12624e-03_rb,0.12356e-03_rb,0.12073e-03_rb,0.11779e-03_rb,0.11489e-03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.12708e-03_rb,0.12444e-03_rb,0.12166e-03_rb,0.11873e-03_rb,0.11581e-03_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.12796e-03_rb,0.12537e-03_rb,0.12263e-03_rb,0.11974e-03_rb,0.11681e-03_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.12882e-03_rb,0.12627e-03_rb,0.12360e-03_rb,0.12075e-03_rb,0.11782e-03_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.12968e-03_rb,0.12723e-03_rb,0.12459e-03_rb,0.12181e-03_rb,0.11889e-03_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.13062e-03_rb,0.12827e-03_rb,0.12567e-03_rb,0.12295e-03_rb,0.12008e-03_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.13150e-03_rb,0.12926e-03_rb,0.12675e-03_rb,0.12408e-03_rb,0.12126e-03_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.13233e-03_rb,0.13021e-03_rb,0.12780e-03_rb,0.12517e-03_rb,0.12242e-03_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.13307e-03_rb,0.13105e-03_rb,0.12874e-03_rb,0.12618e-03_rb,0.12349e-03_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.13374e-03_rb,0.13183e-03_rb,0.12963e-03_rb,0.12715e-03_rb,0.12449e-03_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.13431e-03_rb,0.13255e-03_rb,0.13046e-03_rb,0.12807e-03_rb,0.12548e-03_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.13479e-03_rb,0.13325e-03_rb,0.13127e-03_rb,0.12898e-03_rb,0.12645e-03_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.13511e-03_rb,0.13385e-03_rb,0.13196e-03_rb,0.12979e-03_rb,0.12732e-03_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.13533e-03_rb,0.13436e-03_rb,0.13261e-03_rb,0.13052e-03_rb,0.12814e-03_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.13543e-03_rb,0.13477e-03_rb,0.13321e-03_rb,0.13121e-03_rb,0.12893e-03_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.13540e-03_rb,0.13509e-03_rb,0.13379e-03_rb,0.13190e-03_rb,0.12969e-03_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.13520e-03_rb,0.13532e-03_rb,0.13428e-03_rb,0.13250e-03_rb,0.13039e-03_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.13510e-03_rb,0.13536e-03_rb,0.13445e-03_rb,0.13273e-03_rb,0.13066e-03_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.16545e-03_rb,0.16076e-03_rb,0.15662e-03_rb,0.15273e-03_rb,0.14899e-03_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.17968e-03_rb,0.17402e-03_rb,0.16899e-03_rb,0.16434e-03_rb,0.15984e-03_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.19299e-03_rb,0.18634e-03_rb,0.18041e-03_rb,0.17491e-03_rb,0.16965e-03_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.20519e-03_rb,0.19756e-03_rb,0.19072e-03_rb,0.18435e-03_rb,0.17834e-03_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.21616e-03_rb,0.20753e-03_rb,0.19981e-03_rb,0.19268e-03_rb,0.18599e-03_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.22578e-03_rb,0.21627e-03_rb,0.20768e-03_rb,0.19983e-03_rb,0.19254e-03_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.23404e-03_rb,0.22371e-03_rb,0.21439e-03_rb,0.20593e-03_rb,0.19813e-03_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.24079e-03_rb,0.22975e-03_rb,0.21986e-03_rb,0.21084e-03_rb,0.20261e-03_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.24629e-03_rb,0.23467e-03_rb,0.22423e-03_rb,0.21475e-03_rb,0.20622e-03_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.24979e-03_rb,0.23775e-03_rb,0.22702e-03_rb,0.21724e-03_rb,0.20849e-03_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.25216e-03_rb,0.23989e-03_rb,0.22890e-03_rb,0.21892e-03_rb,0.21005e-03_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.25355e-03_rb,0.24109e-03_rb,0.22997e-03_rb,0.21990e-03_rb,0.21094e-03_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.25401e-03_rb,0.24151e-03_rb,0.23030e-03_rb,0.22024e-03_rb,0.21125e-03_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.25359e-03_rb,0.24114e-03_rb,0.22993e-03_rb,0.21995e-03_rb,0.21097e-03_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.25262e-03_rb,0.24030e-03_rb,0.22913e-03_rb,0.21926e-03_rb,0.21037e-03_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.25126e-03_rb,0.23904e-03_rb,0.22801e-03_rb,0.21831e-03_rb,0.20948e-03_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.24948e-03_rb,0.23745e-03_rb,0.22663e-03_rb,0.21704e-03_rb,0.20834e-03_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.24748e-03_rb,0.23558e-03_rb,0.22502e-03_rb,0.21558e-03_rb,0.20699e-03_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.24521e-03_rb,0.23353e-03_rb,0.22323e-03_rb,0.21394e-03_rb,0.20549e-03_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.24273e-03_rb,0.23132e-03_rb,0.22129e-03_rb,0.21221e-03_rb,0.20387e-03_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.24020e-03_rb,0.22911e-03_rb,0.21929e-03_rb,0.21039e-03_rb,0.20217e-03_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.23799e-03_rb,0.22719e-03_rb,0.21754e-03_rb,0.20880e-03_rb,0.20071e-03_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.23687e-03_rb,0.22619e-03_rb,0.21668e-03_rb,0.20798e-03_rb,0.19994e-03_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.23693e-03_rb,0.22624e-03_rb,0.21673e-03_rb,0.20802e-03_rb,0.19997e-03_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.23866e-03_rb,0.22780e-03_rb,0.21810e-03_rb,0.20930e-03_rb,0.20116e-03_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.24049e-03_rb,0.22941e-03_rb,0.21958e-03_rb,0.21064e-03_rb,0.20240e-03_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.24235e-03_rb,0.23100e-03_rb,0.22101e-03_rb,0.21195e-03_rb,0.20362e-03_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.24544e-03_rb,0.23374e-03_rb,0.22344e-03_rb,0.21416e-03_rb,0.20567e-03_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.24874e-03_rb,0.23671e-03_rb,0.22606e-03_rb,0.21653e-03_rb,0.20786e-03_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.25214e-03_rb,0.23974e-03_rb,0.22874e-03_rb,0.21892e-03_rb,0.21007e-03_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.25633e-03_rb,0.24355e-03_rb,0.23207e-03_rb,0.22195e-03_rb,0.21281e-03_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.26108e-03_rb,0.24779e-03_rb,0.23584e-03_rb,0.22529e-03_rb,0.21581e-03_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.26596e-03_rb,0.25216e-03_rb,0.23977e-03_rb,0.22875e-03_rb,0.21897e-03_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.27137e-03_rb,0.25699e-03_rb,0.24413e-03_rb,0.23258e-03_rb,0.22240e-03_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.27767e-03_rb,0.26264e-03_rb,0.24919e-03_rb,0.23707e-03_rb,0.22639e-03_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.28422e-03_rb,0.26851e-03_rb,0.25443e-03_rb,0.24179e-03_rb,0.23054e-03_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.29109e-03_rb,0.27465e-03_rb,0.25993e-03_rb,0.24676e-03_rb,0.23489e-03_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.29784e-03_rb,0.28066e-03_rb,0.26532e-03_rb,0.25156e-03_rb,0.23921e-03_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.30464e-03_rb,0.28674e-03_rb,0.27072e-03_rb,0.25642e-03_rb,0.24358e-03_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.31175e-03_rb,0.29305e-03_rb,0.27640e-03_rb,0.26149e-03_rb,0.24813e-03_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.31921e-03_rb,0.29964e-03_rb,0.28229e-03_rb,0.26674e-03_rb,0.25282e-03_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.32632e-03_rb,0.30596e-03_rb,0.28789e-03_rb,0.27174e-03_rb,0.25731e-03_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.33342e-03_rb,0.31218e-03_rb,0.29344e-03_rb,0.27674e-03_rb,0.26179e-03_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.34053e-03_rb,0.31870e-03_rb,0.29920e-03_rb,0.28191e-03_rb,0.26637e-03_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.34801e-03_rb,0.32554e-03_rb,0.30518e-03_rb,0.28726e-03_rb,0.27114e-03_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.35537e-03_rb,0.33214e-03_rb,0.31109e-03_rb,0.29248e-03_rb,0.27588e-03_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.35841e-03_rb,0.33487e-03_rb,0.31352e-03_rb,0.29463e-03_rb,0.27781e-03_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.23817e-03_rb,0.23193e-03_rb,0.22589e-03_rb,0.21979e-03_rb,0.21365e-03_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.26266e-03_rb,0.25442e-03_rb,0.24663e-03_rb,0.23897e-03_rb,0.23152e-03_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.28586e-03_rb,0.27559e-03_rb,0.26587e-03_rb,0.25663e-03_rb,0.24800e-03_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.30726e-03_rb,0.29496e-03_rb,0.28337e-03_rb,0.27251e-03_rb,0.26278e-03_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.32665e-03_rb,0.31224e-03_rb,0.29895e-03_rb,0.28665e-03_rb,0.27581e-03_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.34367e-03_rb,0.32749e-03_rb,0.31249e-03_rb,0.29896e-03_rb,0.28707e-03_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.35833e-03_rb,0.34046e-03_rb,0.32413e-03_rb,0.30949e-03_rb,0.29662e-03_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.37032e-03_rb,0.35107e-03_rb,0.33355e-03_rb,0.31795e-03_rb,0.30443e-03_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.38004e-03_rb,0.35962e-03_rb,0.34106e-03_rb,0.32482e-03_rb,0.31071e-03_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.38628e-03_rb,0.36502e-03_rb,0.34582e-03_rb,0.32929e-03_rb,0.31473e-03_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.39046e-03_rb,0.36870e-03_rb,0.34902e-03_rb,0.33239e-03_rb,0.31753e-03_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.39290e-03_rb,0.37079e-03_rb,0.35085e-03_rb,0.33417e-03_rb,0.31909e-03_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.39368e-03_rb,0.37132e-03_rb,0.35155e-03_rb,0.33489e-03_rb,0.31974e-03_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.39288e-03_rb,0.37052e-03_rb,0.35111e-03_rb,0.33452e-03_rb,0.31938e-03_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.39120e-03_rb,0.36896e-03_rb,0.34999e-03_rb,0.33347e-03_rb,0.31836e-03_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.38862e-03_rb,0.36669e-03_rb,0.34828e-03_rb,0.33189e-03_rb,0.31693e-03_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.38540e-03_rb,0.36396e-03_rb,0.34596e-03_rb,0.32975e-03_rb,0.31502e-03_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.38165e-03_rb,0.36095e-03_rb,0.34333e-03_rb,0.32738e-03_rb,0.31277e-03_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.37756e-03_rb,0.35762e-03_rb,0.34034e-03_rb,0.32467e-03_rb,0.31030e-03_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.37323e-03_rb,0.35410e-03_rb,0.33709e-03_rb,0.32164e-03_rb,0.30764e-03_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.36881e-03_rb,0.35033e-03_rb,0.33368e-03_rb,0.31855e-03_rb,0.30481e-03_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.36518e-03_rb,0.34710e-03_rb,0.33080e-03_rb,0.31589e-03_rb,0.30241e-03_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.36331e-03_rb,0.34548e-03_rb,0.32924e-03_rb,0.31455e-03_rb,0.30119e-03_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.36345e-03_rb,0.34559e-03_rb,0.32934e-03_rb,0.31463e-03_rb,0.30125e-03_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.36636e-03_rb,0.34821e-03_rb,0.33175e-03_rb,0.31676e-03_rb,0.30324e-03_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.36948e-03_rb,0.35092e-03_rb,0.33423e-03_rb,0.31902e-03_rb,0.30527e-03_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.37259e-03_rb,0.35368e-03_rb,0.33668e-03_rb,0.32128e-03_rb,0.30727e-03_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.37795e-03_rb,0.35829e-03_rb,0.34085e-03_rb,0.32505e-03_rb,0.31069e-03_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.38379e-03_rb,0.36312e-03_rb,0.34529e-03_rb,0.32908e-03_rb,0.31437e-03_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.38990e-03_rb,0.36819e-03_rb,0.34980e-03_rb,0.33322e-03_rb,0.31806e-03_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.39755e-03_rb,0.37469e-03_rb,0.35548e-03_rb,0.33833e-03_rb,0.32274e-03_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.40604e-03_rb,0.38206e-03_rb,0.36178e-03_rb,0.34404e-03_rb,0.32793e-03_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.41497e-03_rb,0.38998e-03_rb,0.36828e-03_rb,0.34986e-03_rb,0.33329e-03_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.42497e-03_rb,0.39871e-03_rb,0.37566e-03_rb,0.35633e-03_rb,0.33909e-03_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.43684e-03_rb,0.40880e-03_rb,0.38451e-03_rb,0.36380e-03_rb,0.34586e-03_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.44932e-03_rb,0.41960e-03_rb,0.39404e-03_rb,0.37171e-03_rb,0.35286e-03_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.46270e-03_rb,0.43113e-03_rb,0.40397e-03_rb,0.38027e-03_rb,0.36021e-03_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.47605e-03_rb,0.44249e-03_rb,0.41370e-03_rb,0.38887e-03_rb,0.36733e-03_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.48981e-03_rb,0.45414e-03_rb,0.42376e-03_rb,0.39765e-03_rb,0.37477e-03_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.50430e-03_rb,0.46661e-03_rb,0.43437e-03_rb,0.40673e-03_rb,0.38268e-03_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.51980e-03_rb,0.47970e-03_rb,0.44558e-03_rb,0.41639e-03_rb,0.39115e-03_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.53506e-03_rb,0.49244e-03_rb,0.45647e-03_rb,0.42564e-03_rb,0.39926e-03_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.55131e-03_rb,0.50528e-03_rb,0.46739e-03_rb,0.43505e-03_rb,0.40730e-03_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.56909e-03_rb,0.51883e-03_rb,0.47884e-03_rb,0.44497e-03_rb,0.41571e-03_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.58824e-03_rb,0.53334e-03_rb,0.49097e-03_rb,0.45523e-03_rb,0.42457e-03_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.60745e-03_rb,0.54837e-03_rb,0.50301e-03_rb,0.46546e-03_rb,0.43352e-03_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.61557e-03_rb,0.55493e-03_rb,0.50805e-03_rb,0.46962e-03_rb,0.43716e-03_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.351362e-07_rb, 0.341136e-07_rb, 0.181317e-06_rb /)\n      forrefo(:, 2) = (/ 0.109648e-06_rb, 0.344240e-06_rb, 0.139709e-05_rb /)\n      forrefo(:, 3) = (/ 0.374823e-06_rb, 0.103424e-05_rb, 0.188717e-05_rb /)\n      forrefo(:, 4) = (/ 0.580041e-06_rb, 0.116876e-05_rb, 0.121183e-05_rb /)\n      forrefo(:, 5) = (/ 0.115608e-05_rb, 0.148110e-05_rb, 0.836083e-06_rb /)\n      forrefo(:, 6) = (/ 0.181460e-05_rb, 0.133313e-05_rb, 0.500167e-06_rb /)\n      forrefo(:, 7) = (/ 0.199096e-05_rb, 0.115276e-05_rb, 0.432994e-06_rb /)\n      forrefo(:, 8) = (/ 0.183730e-05_rb, 0.122260e-05_rb, 0.433248e-06_rb /)\n      forrefo(:, 9) = (/ 0.198386e-05_rb, 0.100130e-05_rb, 0.269712e-06_rb /)\n      forrefo(:,10) = (/ 0.276382e-05_rb, 0.749215e-06_rb, 0.236919e-06_rb /)\n      forrefo(:,11) = (/ 0.298202e-05_rb, 0.629688e-06_rb, 0.228388e-06_rb /)\n      forrefo(:,12) = (/ 0.364604e-05_rb, 0.455336e-06_rb, 0.206130e-06_rb /)\n      forrefo(:,13) = (/ 0.373339e-05_rb, 0.245210e-06_rb, 0.201987e-06_rb /)\n      forrefo(:,14) = (/ 0.480378e-05_rb, 0.177591e-06_rb, 0.171458e-06_rb /)\n      forrefo(:,15) = (/ 0.521700e-05_rb, 0.203358e-06_rb, 0.189559e-06_rb /)\n      forrefo(:,16) = (/ 0.542717e-05_rb, 0.219022e-06_rb, 0.218271e-06_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.538526e-04_rb, 0.464603e-04_rb, 0.400828e-04_rb, 0.345807e-04_rb, 0.298339e-04_rb, &\n        &  0.257386e-04_rb, 0.222055e-04_rb, 0.191574e-04_rb, 0.165277e-04_rb, 0.142590e-04_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.162409e-03_rb, 0.128347e-03_rb, 0.101430e-03_rb, 0.801571e-04_rb, 0.633460e-04_rb, &\n        &  0.500607e-04_rb, 0.395616e-04_rb, 0.312645e-04_rb, 0.247075e-04_rb, 0.195257e-04_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.262882e-03_rb, 0.212793e-03_rb, 0.172247e-03_rb, 0.139427e-03_rb, 0.112860e-03_rb, &\n        &  0.913557e-04_rb, 0.739487e-04_rb, 0.598584e-04_rb, 0.484529e-04_rb, 0.392206e-04_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.242873e-03_rb, 0.204225e-03_rb, 0.171726e-03_rb, 0.144399e-03_rb, 0.121421e-03_rb, &\n        &  0.102099e-03_rb, 0.858516e-04_rb, 0.721899e-04_rb, 0.607022e-04_rb, 0.510426e-04_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.235614e-03_rb, 0.207814e-03_rb, 0.183293e-03_rb, 0.161666e-03_rb, 0.142591e-03_rb, &\n        &  0.125766e-03_rb, 0.110927e-03_rb, 0.978381e-04_rb, 0.862939e-04_rb, 0.761119e-04_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.205508e-03_rb, 0.190174e-03_rb, 0.175985e-03_rb, 0.162854e-03_rb, 0.150702e-03_rb, &\n        &  0.139458e-03_rb, 0.129052e-03_rb, 0.119423e-03_rb, 0.110513e-03_rb, 0.102267e-03_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.185027e-03_rb, 0.175148e-03_rb, 0.165796e-03_rb, 0.156944e-03_rb, 0.148565e-03_rb, &\n        &  0.140633e-03_rb, 0.133124e-03_rb, 0.126016e-03_rb, 0.119288e-03_rb, 0.112919e-03_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.192634e-03_rb, 0.180192e-03_rb, 0.168554e-03_rb, 0.157668e-03_rb, 0.147484e-03_rb, &\n        &  0.137959e-03_rb, 0.129048e-03_rb, 0.120713e-03_rb, 0.112917e-03_rb, 0.105624e-03_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.161632e-03_rb, 0.155919e-03_rb, 0.150408e-03_rb, 0.145092e-03_rb, 0.139963e-03_rb, &\n        &  0.135016e-03_rb, 0.130244e-03_rb, 0.125640e-03_rb, 0.121199e-03_rb, 0.116915e-03_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.120880e-03_rb, 0.125265e-03_rb, 0.129810e-03_rb, 0.134520e-03_rb, 0.139400e-03_rb, &\n        &  0.144458e-03_rb, 0.149699e-03_rb, 0.155130e-03_rb, 0.160758e-03_rb, 0.166591e-03_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.104705e-03_rb, 0.111761e-03_rb, 0.119291e-03_rb, 0.127330e-03_rb, 0.135910e-03_rb, &\n        &  0.145068e-03_rb, 0.154843e-03_rb, 0.165277e-03_rb, 0.176414e-03_rb, 0.188302e-03_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.846335e-04_rb, 0.951236e-04_rb, 0.106914e-03_rb, 0.120166e-03_rb, 0.135060e-03_rb, &\n        &  0.151800e-03_rb, 0.170616e-03_rb, 0.191763e-03_rb, 0.215532e-03_rb, 0.242246e-03_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.669754e-04_rb, 0.781902e-04_rb, 0.912829e-04_rb, 0.106568e-03_rb, 0.124413e-03_rb, &\n        &  0.145245e-03_rb, 0.169566e-03_rb, 0.197959e-03_rb, 0.231107e-03_rb, 0.269805e-03_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.597091e-04_rb, 0.722265e-04_rb, 0.873679e-04_rb, 0.105684e-03_rb, 0.127839e-03_rb, &\n        &  0.154639e-03_rb, 0.187057e-03_rb, 0.226272e-03_rb, 0.273707e-03_rb, 0.331087e-03_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.640410e-04_rb, 0.771879e-04_rb, 0.930338e-04_rb, 0.112133e-03_rb, 0.135152e-03_rb, &\n        &  0.162897e-03_rb, 0.196338e-03_rb, 0.236644e-03_rb, 0.285225e-03_rb, 0.343778e-03_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.666420e-04_rb, 0.801056e-04_rb, 0.962892e-04_rb, 0.115742e-03_rb, 0.139126e-03_rb, &\n        &  0.167233e-03_rb, 0.201019e-03_rb, 0.241630e-03_rb, 0.290446e-03_rb, 0.349125e-03_rb /)\n     \n      end subroutine sw_kgb22\n\n! **************************************************************************\n      subroutine sw_kgb23\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, &\n                            raylo, givfac, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 53.2101_rb , 51.4143_rb, 49.3348_rb, 45.4612_rb    , &\n        & 40.8294_rb , 35.1801_rb, 28.6947_rb, 21.5751_rb    , &\n        & 14.6388_rb , 1.59111_rb, 1.31860_rb, 1.04018_rb    , &\n        & 0.762140_rb,0.484214_rb,0.182275_rb, 2.54948e-02_rb /)\n\n! Rayleigh extinction coefficient at all v \n      raylo(:) = (/ &\n        & 5.94837e-08_rb,5.70593e-08_rb,6.27845e-08_rb,5.56602e-08_rb, &\n        & 5.25571e-08_rb,4.73388e-08_rb,4.17466e-08_rb,3.98097e-08_rb, &\n        & 4.00786e-08_rb,3.67478e-08_rb,3.45186e-08_rb,3.46156e-08_rb, &\n        & 3.32155e-08_rb,3.23642e-08_rb,2.72590e-08_rb,2.96813e-08_rb /)\n\n! Average Giver et al. correction factor for this band.\n      givfac = 1.029_rb\n\n      layreffr = 6\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.33078e-07_rb,0.34034e-07_rb,0.35124e-07_rb,0.34187e-07_rb,0.34744e-07_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.25544e-07_rb,0.25873e-07_rb,0.26742e-07_rb,0.27512e-07_rb,0.27504e-07_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.18549e-07_rb,0.19611e-07_rb,0.20840e-07_rb,0.22548e-07_rb,0.23069e-07_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.28794e-07_rb,0.30837e-07_rb,0.32679e-07_rb,0.34307e-07_rb,0.36901e-07_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.36776e-07_rb,0.39144e-07_rb,0.41300e-07_rb,0.43264e-07_rb,0.46626e-07_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.59710e-07_rb,0.62941e-07_rb,0.65500e-07_rb,0.67353e-07_rb,0.68774e-07_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.12143e-06_rb,0.12932e-06_rb,0.13250e-06_rb,0.13526e-06_rb,0.13849e-06_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.12531e-06_rb,0.13241e-06_rb,0.13939e-06_rb,0.14705e-06_rb,0.15465e-06_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.20209e-06_rb,0.21134e-06_rb,0.22163e-06_rb,0.23098e-06_rb,0.24004e-06_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.10750e-05_rb,0.11204e-05_rb,0.11575e-05_rb,0.11923e-05_rb,0.12227e-05_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.27782e-05_rb,0.28204e-05_rb,0.28406e-05_rb,0.28380e-05_rb,0.28440e-05_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.38510e-05_rb,0.39934e-05_rb,0.40697e-05_rb,0.41102e-05_rb,0.41571e-05_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.43157e-05_rb,0.44488e-05_rb,0.45799e-05_rb,0.46585e-05_rb,0.47223e-05_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.84637e-06_rb,0.86989e-06_rb,0.90697e-06_rb,0.90000e-06_rb,0.91373e-06_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.67062e-06_rb,0.68649e-06_rb,0.72334e-06_rb,0.73645e-06_rb,0.72978e-06_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.52317e-06_rb,0.53924e-06_rb,0.55425e-06_rb,0.58347e-06_rb,0.57813e-06_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.39868e-06_rb,0.41431e-06_rb,0.42761e-06_rb,0.43892e-06_rb,0.45982e-06_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.32074e-06_rb,0.33452e-06_rb,0.34754e-06_rb,0.35582e-06_rb,0.37378e-06_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.42465e-06_rb,0.44058e-06_rb,0.45605e-06_rb,0.47192e-06_rb,0.48493e-06_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.47581e-06_rb,0.50000e-06_rb,0.52487e-06_rb,0.54192e-06_rb,0.55955e-06_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.10592e-05_rb,0.11093e-05_rb,0.11483e-05_rb,0.11923e-05_rb,0.12169e-05_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.50835e-05_rb,0.51710e-05_rb,0.52329e-05_rb,0.52644e-05_rb,0.52818e-05_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.77867e-05_rb,0.82156e-05_rb,0.86002e-05_rb,0.89664e-05_rb,0.92394e-05_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.89031e-05_rb,0.93573e-05_rb,0.97686e-05_rb,0.10236e-04_rb,0.10591e-04_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.98068e-05_rb,0.10238e-04_rb,0.10700e-04_rb,0.11108e-04_rb,0.11471e-04_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.11145e-04_rb,0.11697e-04_rb,0.12123e-04_rb,0.12482e-04_rb,0.12856e-04_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.66049e-05_rb,0.67547e-05_rb,0.70104e-05_rb,0.69745e-05_rb,0.70687e-05_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.54104e-05_rb,0.55245e-05_rb,0.57623e-05_rb,0.58532e-05_rb,0.58099e-05_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.43608e-05_rb,0.44784e-05_rb,0.45778e-05_rb,0.47665e-05_rb,0.47295e-05_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.35399e-05_rb,0.36454e-05_rb,0.37356e-05_rb,0.38107e-05_rb,0.39586e-05_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.28576e-05_rb,0.29552e-05_rb,0.30325e-05_rb,0.31028e-05_rb,0.32276e-05_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.21017e-05_rb,0.21836e-05_rb,0.22554e-05_rb,0.23121e-05_rb,0.23486e-05_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.19384e-05_rb,0.19914e-05_rb,0.20428e-05_rb,0.20879e-05_rb,0.21191e-05_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.32672e-05_rb,0.33753e-05_rb,0.34694e-05_rb,0.35273e-05_rb,0.35984e-05_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.82257e-05_rb,0.84975e-05_rb,0.86969e-05_rb,0.88995e-05_rb,0.90123e-05_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.35363e-04_rb,0.36204e-04_rb,0.36916e-04_rb,0.37708e-04_rb,0.38294e-04_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.48837e-04_rb,0.50952e-04_rb,0.52710e-04_rb,0.54347e-04_rb,0.55976e-04_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.56059e-04_rb,0.58301e-04_rb,0.60100e-04_rb,0.61776e-04_rb,0.63179e-04_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.57871e-04_rb,0.59505e-04_rb,0.60930e-04_rb,0.62289e-04_rb,0.63278e-04_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.27624e-04_rb,0.28017e-04_rb,0.29078e-04_rb,0.28567e-04_rb,0.28724e-04_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.23107e-04_rb,0.23464e-04_rb,0.24357e-04_rb,0.24519e-04_rb,0.24024e-04_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.19113e-04_rb,0.19400e-04_rb,0.19615e-04_rb,0.20420e-04_rb,0.19962e-04_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.15873e-04_rb,0.16138e-04_rb,0.16349e-04_rb,0.16528e-04_rb,0.17176e-04_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.13198e-04_rb,0.13437e-04_rb,0.13641e-04_rb,0.13810e-04_rb,0.14393e-04_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.10951e-04_rb,0.11172e-04_rb,0.11352e-04_rb,0.11506e-04_rb,0.11631e-04_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.86121e-05_rb,0.88300e-05_rb,0.90149e-05_rb,0.91565e-05_rb,0.92594e-05_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.71478e-05_rb,0.72918e-05_rb,0.74035e-05_rb,0.74959e-05_rb,0.75566e-05_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.16458e-04_rb,0.17092e-04_rb,0.17686e-04_rb,0.17967e-04_rb,0.18273e-04_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.47953e-04_rb,0.49663e-04_rb,0.51524e-04_rb,0.52800e-04_rb,0.54192e-04_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.94263e-04_rb,0.95557e-04_rb,0.96513e-04_rb,0.97430e-04_rb,0.97733e-04_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.12087e-03_rb,0.12152e-03_rb,0.12240e-03_rb,0.12318e-03_rb,0.12403e-03_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.12781e-03_rb,0.12897e-03_rb,0.13049e-03_rb,0.13171e-03_rb,0.13337e-03_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.82859e-04_rb,0.84817e-04_rb,0.89056e-04_rb,0.88057e-04_rb,0.89410e-04_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.70937e-04_rb,0.72685e-04_rb,0.76796e-04_rb,0.77955e-04_rb,0.76735e-04_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.59876e-04_rb,0.61448e-04_rb,0.62837e-04_rb,0.66293e-04_rb,0.64996e-04_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.50598e-04_rb,0.52054e-04_rb,0.53293e-04_rb,0.54332e-04_rb,0.57333e-04_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.42742e-04_rb,0.44035e-04_rb,0.45164e-04_rb,0.46134e-04_rb,0.48935e-04_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.35769e-04_rb,0.36975e-04_rb,0.38038e-04_rb,0.38917e-04_rb,0.39681e-04_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.29747e-04_rb,0.30824e-04_rb,0.31756e-04_rb,0.32589e-04_rb,0.33314e-04_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.21994e-04_rb,0.22945e-04_rb,0.23786e-04_rb,0.24517e-04_rb,0.25155e-04_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.22298e-04_rb,0.22688e-04_rb,0.23127e-04_rb,0.23803e-04_rb,0.24335e-04_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.88898e-04_rb,0.91280e-04_rb,0.93333e-04_rb,0.95224e-04_rb,0.96298e-04_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.12299e-03_rb,0.12407e-03_rb,0.12536e-03_rb,0.12642e-03_rb,0.12813e-03_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.14539e-03_rb,0.14851e-03_rb,0.15022e-03_rb,0.15157e-03_rb,0.15204e-03_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.15949e-03_rb,0.16239e-03_rb,0.16467e-03_rb,0.16667e-03_rb,0.16801e-03_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.25339e-03_rb,0.25995e-03_rb,0.27170e-03_rb,0.26963e-03_rb,0.27413e-03_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.21908e-03_rb,0.22404e-03_rb,0.23522e-03_rb,0.23902e-03_rb,0.23717e-03_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.18611e-03_rb,0.19076e-03_rb,0.19518e-03_rb,0.20503e-03_rb,0.20222e-03_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.15769e-03_rb,0.16210e-03_rb,0.16597e-03_rb,0.16948e-03_rb,0.17817e-03_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.13402e-03_rb,0.13792e-03_rb,0.14153e-03_rb,0.14434e-03_rb,0.15267e-03_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.11390e-03_rb,0.11743e-03_rb,0.12065e-03_rb,0.12316e-03_rb,0.12543e-03_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.96417e-04_rb,0.99612e-04_rb,0.10233e-03_rb,0.10453e-03_rb,0.10652e-03_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.81395e-04_rb,0.84205e-04_rb,0.86346e-04_rb,0.88406e-04_rb,0.90122e-04_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.47776e-04_rb,0.48971e-04_rb,0.49736e-04_rb,0.49917e-04_rb,0.50289e-04_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.10698e-03_rb,0.10815e-03_rb,0.10817e-03_rb,0.10799e-03_rb,0.10851e-03_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.20220e-03_rb,0.20727e-03_rb,0.21241e-03_rb,0.21675e-03_rb,0.21989e-03_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.23474e-03_rb,0.23601e-03_rb,0.23974e-03_rb,0.24383e-03_rb,0.24876e-03_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.23410e-03_rb,0.23809e-03_rb,0.24185e-03_rb,0.24554e-03_rb,0.24952e-03_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.67024e-03_rb,0.68026e-03_rb,0.70419e-03_rb,0.70159e-03_rb,0.71089e-03_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.58729e-03_rb,0.59778e-03_rb,0.62097e-03_rb,0.62912e-03_rb,0.62423e-03_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.50967e-03_rb,0.51900e-03_rb,0.52765e-03_rb,0.54794e-03_rb,0.54266e-03_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.44167e-03_rb,0.45006e-03_rb,0.45793e-03_rb,0.46469e-03_rb,0.48335e-03_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.38096e-03_rb,0.38881e-03_rb,0.39576e-03_rb,0.40259e-03_rb,0.42086e-03_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.32818e-03_rb,0.33539e-03_rb,0.34192e-03_rb,0.34829e-03_rb,0.35405e-03_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.28259e-03_rb,0.28946e-03_rb,0.29584e-03_rb,0.30203e-03_rb,0.30742e-03_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.24273e-03_rb,0.24912e-03_rb,0.25546e-03_rb,0.26110e-03_rb,0.26607e-03_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.19937e-03_rb,0.20653e-03_rb,0.21314e-03_rb,0.21968e-03_rb,0.22520e-03_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.13306e-03_rb,0.13331e-03_rb,0.13393e-03_rb,0.13538e-03_rb,0.13616e-03_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.16236e-03_rb,0.16154e-03_rb,0.16187e-03_rb,0.16113e-03_rb,0.16209e-03_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.17872e-03_rb,0.18355e-03_rb,0.18612e-03_rb,0.18792e-03_rb,0.18745e-03_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.18970e-03_rb,0.19384e-03_rb,0.19773e-03_rb,0.20261e-03_rb,0.20377e-03_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.18130e-02_rb,0.18305e-02_rb,0.18716e-02_rb,0.18655e-02_rb,0.18814e-02_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.16420e-02_rb,0.16600e-02_rb,0.17006e-02_rb,0.17156e-02_rb,0.17108e-02_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.14687e-02_rb,0.14870e-02_rb,0.15042e-02_rb,0.15423e-02_rb,0.15376e-02_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.13068e-02_rb,0.13248e-02_rb,0.13421e-02_rb,0.13592e-02_rb,0.13960e-02_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.11574e-02_rb,0.11753e-02_rb,0.11928e-02_rb,0.12097e-02_rb,0.12467e-02_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.10167e-02_rb,0.10342e-02_rb,0.10515e-02_rb,0.10681e-02_rb,0.10840e-02_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.88992e-03_rb,0.90662e-03_rb,0.92299e-03_rb,0.93844e-03_rb,0.95347e-03_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.78445e-03_rb,0.80031e-03_rb,0.81639e-03_rb,0.83131e-03_rb,0.84631e-03_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.69812e-03_rb,0.71312e-03_rb,0.72801e-03_rb,0.74222e-03_rb,0.75605e-03_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.32521e-03_rb,0.33835e-03_rb,0.35194e-03_rb,0.36381e-03_rb,0.37594e-03_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.31406e-03_rb,0.32013e-03_rb,0.32456e-03_rb,0.33261e-03_rb,0.33741e-03_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.28132e-03_rb,0.28732e-03_rb,0.29674e-03_rb,0.30509e-03_rb,0.31393e-03_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.25704e-03_rb,0.26316e-03_rb,0.27195e-03_rb,0.27732e-03_rb,0.28905e-03_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.67370e-02_rb,0.67873e-02_rb,0.68896e-02_rb,0.68819e-02_rb,0.69268e-02_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.63111e-02_rb,0.63622e-02_rb,0.64623e-02_rb,0.65060e-02_rb,0.65027e-02_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.58834e-02_rb,0.59361e-02_rb,0.59858e-02_rb,0.60811e-02_rb,0.60806e-02_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.54753e-02_rb,0.55309e-02_rb,0.55823e-02_rb,0.56306e-02_rb,0.57229e-02_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.50781e-02_rb,0.51373e-02_rb,0.51895e-02_rb,0.52391e-02_rb,0.53328e-02_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.46791e-02_rb,0.47408e-02_rb,0.47949e-02_rb,0.48470e-02_rb,0.48993e-02_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.42724e-02_rb,0.43381e-02_rb,0.43951e-02_rb,0.44503e-02_rb,0.45061e-02_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.38568e-02_rb,0.39254e-02_rb,0.39848e-02_rb,0.40431e-02_rb,0.41005e-02_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.35657e-02_rb,0.36362e-02_rb,0.36994e-02_rb,0.37608e-02_rb,0.38215e-02_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.33774e-02_rb,0.34501e-02_rb,0.35171e-02_rb,0.35811e-02_rb,0.36450e-02_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.23923e-02_rb,0.24623e-02_rb,0.25263e-02_rb,0.25890e-02_rb,0.26517e-02_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.16959e-02_rb,0.17542e-02_rb,0.18077e-02_rb,0.18614e-02_rb,0.19187e-02_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.11732e-02_rb,0.12232e-02_rb,0.12712e-02_rb,0.13221e-02_rb,0.13677e-02_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.19604e-01_rb,0.19698e-01_rb,0.19938e-01_rb,0.19854e-01_rb,0.19950e-01_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.18714e-01_rb,0.18803e-01_rb,0.19035e-01_rb,0.19131e-01_rb,0.19102e-01_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.17676e-01_rb,0.17785e-01_rb,0.17904e-01_rb,0.18189e-01_rb,0.18156e-01_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.16662e-01_rb,0.16773e-01_rb,0.16908e-01_rb,0.17056e-01_rb,0.17303e-01_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.15655e-01_rb,0.15775e-01_rb,0.15942e-01_rb,0.16103e-01_rb,0.16359e-01_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.14694e-01_rb,0.14838e-01_rb,0.15029e-01_rb,0.15200e-01_rb,0.15320e-01_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.13797e-01_rb,0.13959e-01_rb,0.14174e-01_rb,0.14350e-01_rb,0.14471e-01_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.12902e-01_rb,0.13089e-01_rb,0.13313e-01_rb,0.13489e-01_rb,0.13626e-01_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.11897e-01_rb,0.12105e-01_rb,0.12333e-01_rb,0.12512e-01_rb,0.12656e-01_rb /)\n      kao(:,10,10) = (/ &\n        & 0.11834e-01_rb,0.12072e-01_rb,0.12331e-01_rb,0.12548e-01_rb,0.12721e-01_rb /)\n      kao(:,11,10) = (/ &\n        & 0.11416e-01_rb,0.11699e-01_rb,0.11968e-01_rb,0.12141e-01_rb,0.12311e-01_rb /)\n      kao(:,12,10) = (/ &\n        & 0.10776e-01_rb,0.11070e-01_rb,0.11309e-01_rb,0.11507e-01_rb,0.11702e-01_rb /)\n      kao(:,13,10) = (/ &\n        & 0.99577e-02_rb,0.10263e-01_rb,0.10492e-01_rb,0.10719e-01_rb,0.10951e-01_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.29783e-01_rb,0.29883e-01_rb,0.30210e-01_rb,0.30141e-01_rb,0.30248e-01_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.28562e-01_rb,0.28743e-01_rb,0.29186e-01_rb,0.29339e-01_rb,0.29258e-01_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.27212e-01_rb,0.27429e-01_rb,0.27654e-01_rb,0.28083e-01_rb,0.28023e-01_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.25949e-01_rb,0.26197e-01_rb,0.26424e-01_rb,0.26623e-01_rb,0.27069e-01_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.24686e-01_rb,0.24942e-01_rb,0.25176e-01_rb,0.25403e-01_rb,0.25908e-01_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.23430e-01_rb,0.23686e-01_rb,0.23923e-01_rb,0.24158e-01_rb,0.24433e-01_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.22171e-01_rb,0.22424e-01_rb,0.22653e-01_rb,0.22909e-01_rb,0.23203e-01_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.20928e-01_rb,0.21171e-01_rb,0.21407e-01_rb,0.21699e-01_rb,0.22018e-01_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.19076e-01_rb,0.19320e-01_rb,0.19548e-01_rb,0.19858e-01_rb,0.20150e-01_rb /)\n      kao(:,10,11) = (/ &\n        & 0.19537e-01_rb,0.19788e-01_rb,0.20064e-01_rb,0.20391e-01_rb,0.20843e-01_rb /)\n      kao(:,11,11) = (/ &\n        & 0.19137e-01_rb,0.19444e-01_rb,0.19793e-01_rb,0.20268e-01_rb,0.20695e-01_rb /)\n      kao(:,12,11) = (/ &\n        & 0.18393e-01_rb,0.18715e-01_rb,0.19143e-01_rb,0.19652e-01_rb,0.20037e-01_rb /)\n      kao(:,13,11) = (/ &\n        & 0.17255e-01_rb,0.17680e-01_rb,0.18170e-01_rb,0.18641e-01_rb,0.19010e-01_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.46641e-01_rb,0.46796e-01_rb,0.47107e-01_rb,0.46977e-01_rb,0.47093e-01_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.46819e-01_rb,0.46956e-01_rb,0.47337e-01_rb,0.47426e-01_rb,0.47339e-01_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.46276e-01_rb,0.46366e-01_rb,0.46462e-01_rb,0.46935e-01_rb,0.46862e-01_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.44986e-01_rb,0.45103e-01_rb,0.45287e-01_rb,0.45535e-01_rb,0.46152e-01_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.43367e-01_rb,0.43552e-01_rb,0.43761e-01_rb,0.44035e-01_rb,0.44674e-01_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.41584e-01_rb,0.41793e-01_rb,0.42020e-01_rb,0.42344e-01_rb,0.42701e-01_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.39785e-01_rb,0.40007e-01_rb,0.40269e-01_rb,0.40635e-01_rb,0.41003e-01_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.37918e-01_rb,0.38155e-01_rb,0.38468e-01_rb,0.38839e-01_rb,0.39210e-01_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.35060e-01_rb,0.35328e-01_rb,0.35698e-01_rb,0.36105e-01_rb,0.36551e-01_rb /)\n      kao(:,10,12) = (/ &\n        & 0.35216e-01_rb,0.35547e-01_rb,0.35872e-01_rb,0.36327e-01_rb,0.36542e-01_rb /)\n      kao(:,11,12) = (/ &\n        & 0.35158e-01_rb,0.35374e-01_rb,0.35869e-01_rb,0.36242e-01_rb,0.36691e-01_rb /)\n      kao(:,12,12) = (/ &\n        & 0.34264e-01_rb,0.34598e-01_rb,0.35106e-01_rb,0.35505e-01_rb,0.36021e-01_rb /)\n      kao(:,13,12) = (/ &\n        & 0.32716e-01_rb,0.33195e-01_rb,0.33830e-01_rb,0.34228e-01_rb,0.34925e-01_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.76084e-01_rb,0.76052e-01_rb,0.76051e-01_rb,0.75851e-01_rb,0.75753e-01_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.79580e-01_rb,0.79564e-01_rb,0.79664e-01_rb,0.79619e-01_rb,0.79414e-01_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.82218e-01_rb,0.82302e-01_rb,0.82367e-01_rb,0.82543e-01_rb,0.82246e-01_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.83613e-01_rb,0.83740e-01_rb,0.83824e-01_rb,0.83866e-01_rb,0.84103e-01_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.83913e-01_rb,0.84123e-01_rb,0.84289e-01_rb,0.84403e-01_rb,0.84840e-01_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.83159e-01_rb,0.83442e-01_rb,0.83718e-01_rb,0.83891e-01_rb,0.83993e-01_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.81401e-01_rb,0.81826e-01_rb,0.82202e-01_rb,0.82451e-01_rb,0.82656e-01_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.78949e-01_rb,0.79505e-01_rb,0.79978e-01_rb,0.80351e-01_rb,0.80690e-01_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.76002e-01_rb,0.76671e-01_rb,0.77279e-01_rb,0.77752e-01_rb,0.78257e-01_rb /)\n      kao(:,10,13) = (/ &\n        & 0.69777e-01_rb,0.70425e-01_rb,0.71054e-01_rb,0.71706e-01_rb,0.72167e-01_rb /)\n      kao(:,11,13) = (/ &\n        & 0.72929e-01_rb,0.73732e-01_rb,0.74323e-01_rb,0.75246e-01_rb,0.75786e-01_rb /)\n      kao(:,12,13) = (/ &\n        & 0.73007e-01_rb,0.74429e-01_rb,0.74922e-01_rb,0.75916e-01_rb,0.76947e-01_rb /)\n      kao(:,13,13) = (/ &\n        & 0.71376e-01_rb,0.72507e-01_rb,0.73710e-01_rb,0.74716e-01_rb,0.75702e-01_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.12585e+00_rb,0.12569e+00_rb,0.12576e+00_rb,0.12571e+00_rb,0.12570e+00_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.13868e+00_rb,0.13853e+00_rb,0.13849e+00_rb,0.13824e+00_rb,0.13803e+00_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.15142e+00_rb,0.15135e+00_rb,0.15112e+00_rb,0.15093e+00_rb,0.15074e+00_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.16359e+00_rb,0.16359e+00_rb,0.16339e+00_rb,0.16311e+00_rb,0.16285e+00_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.17462e+00_rb,0.17472e+00_rb,0.17456e+00_rb,0.17421e+00_rb,0.17393e+00_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.18403e+00_rb,0.18447e+00_rb,0.18450e+00_rb,0.18424e+00_rb,0.18395e+00_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.19179e+00_rb,0.19239e+00_rb,0.19256e+00_rb,0.19253e+00_rb,0.19252e+00_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.19772e+00_rb,0.19863e+00_rb,0.19901e+00_rb,0.19923e+00_rb,0.19947e+00_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.20154e+00_rb,0.20279e+00_rb,0.20355e+00_rb,0.20417e+00_rb,0.20473e+00_rb /)\n      kao(:,10,14) = (/ &\n        & 0.18853e+00_rb,0.19028e+00_rb,0.19160e+00_rb,0.19253e+00_rb,0.19393e+00_rb /)\n      kao(:,11,14) = (/ &\n        & 0.18013e+00_rb,0.18167e+00_rb,0.18320e+00_rb,0.18375e+00_rb,0.18507e+00_rb /)\n      kao(:,12,14) = (/ &\n        & 0.19011e+00_rb,0.19027e+00_rb,0.19283e+00_rb,0.19402e+00_rb,0.19478e+00_rb /)\n      kao(:,13,14) = (/ &\n        & 0.19594e+00_rb,0.19738e+00_rb,0.19911e+00_rb,0.20124e+00_rb,0.20282e+00_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.22369e+00_rb,0.22259e+00_rb,0.22155e+00_rb,0.22059e+00_rb,0.21997e+00_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.25602e+00_rb,0.25478e+00_rb,0.25377e+00_rb,0.25306e+00_rb,0.25237e+00_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.29258e+00_rb,0.29107e+00_rb,0.28998e+00_rb,0.28920e+00_rb,0.28830e+00_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.33067e+00_rb,0.32888e+00_rb,0.32753e+00_rb,0.32646e+00_rb,0.32566e+00_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.37114e+00_rb,0.36880e+00_rb,0.36713e+00_rb,0.36598e+00_rb,0.36499e+00_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.41494e+00_rb,0.41167e+00_rb,0.40935e+00_rb,0.40779e+00_rb,0.40636e+00_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.46115e+00_rb,0.45729e+00_rb,0.45455e+00_rb,0.45230e+00_rb,0.45004e+00_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.50906e+00_rb,0.50463e+00_rb,0.50137e+00_rb,0.49843e+00_rb,0.49550e+00_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.55829e+00_rb,0.55330e+00_rb,0.54936e+00_rb,0.54557e+00_rb,0.54168e+00_rb /)\n      kao(:,10,15) = (/ &\n        & 0.60814e+00_rb,0.60274e+00_rb,0.59806e+00_rb,0.59326e+00_rb,0.58833e+00_rb /)\n      kao(:,11,15) = (/ &\n        & 0.62954e+00_rb,0.62588e+00_rb,0.62076e+00_rb,0.61665e+00_rb,0.61184e+00_rb /)\n      kao(:,12,15) = (/ &\n        & 0.62585e+00_rb,0.62437e+00_rb,0.61807e+00_rb,0.61303e+00_rb,0.60869e+00_rb /)\n      kao(:,13,15) = (/ &\n        & 0.64856e+00_rb,0.64505e+00_rb,0.63861e+00_rb,0.63277e+00_rb,0.62702e+00_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.33327e+00_rb,0.33385e+00_rb,0.33538e+00_rb,0.33638e+00_rb,0.33736e+00_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.40916e+00_rb,0.40842e+00_rb,0.40848e+00_rb,0.40865e+00_rb,0.40854e+00_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.50099e+00_rb,0.49888e+00_rb,0.49727e+00_rb,0.49588e+00_rb,0.49422e+00_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.60389e+00_rb,0.60029e+00_rb,0.59704e+00_rb,0.59367e+00_rb,0.59071e+00_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.71868e+00_rb,0.71337e+00_rb,0.70835e+00_rb,0.70318e+00_rb,0.69852e+00_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.84815e+00_rb,0.84138e+00_rb,0.83446e+00_rb,0.82728e+00_rb,0.82023e+00_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.99512e+00_rb,0.98644e+00_rb,0.97698e+00_rb,0.96695e+00_rb,0.95712e+00_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.11606e+01_rb,0.11485e+01_rb,0.11354e+01_rb,0.11218e+01_rb,0.11077e+01_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.13444e+01_rb,0.13282e+01_rb,0.13102e+01_rb,0.12917e+01_rb,0.12735e+01_rb /)\n      kao(:,10,16) = (/ &\n        & 0.15423e+01_rb,0.15207e+01_rb,0.14970e+01_rb,0.14733e+01_rb,0.14494e+01_rb /)\n      kao(:,11,16) = (/ &\n        & 0.17462e+01_rb,0.17138e+01_rb,0.16827e+01_rb,0.16518e+01_rb,0.16199e+01_rb /)\n      kao(:,12,16) = (/ &\n        & 0.19577e+01_rb,0.19145e+01_rb,0.18728e+01_rb,0.18320e+01_rb,0.17910e+01_rb /)\n      kao(:,13,16) = (/ &\n        & 0.21716e+01_rb,0.21171e+01_rb,0.20639e+01_rb,0.20113e+01_rb,0.19587e+01_rb /)\n  \n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.315770e-07_rb, 0.671978e-07_rb, 0.440649e-06_rb /)\n      forrefo(:, 2) = (/ 0.313674e-06_rb, 0.285252e-06_rb, 0.421024e-05_rb /)\n      forrefo(:, 3) = (/ 0.135818e-05_rb, 0.145071e-05_rb, 0.611285e-05_rb /)\n      forrefo(:, 4) = (/ 0.534065e-05_rb, 0.586268e-05_rb, 0.933970e-05_rb /)\n      forrefo(:, 5) = (/ 0.964007e-05_rb, 0.107110e-04_rb, 0.104486e-04_rb /)\n      forrefo(:, 6) = (/ 0.302775e-04_rb, 0.357530e-04_rb, 0.340724e-04_rb /)\n      forrefo(:, 7) = (/ 0.102437e-03_rb, 0.108475e-03_rb, 0.105245e-03_rb /)\n      forrefo(:, 8) = (/ 0.146054e-03_rb, 0.141490e-03_rb, 0.133071e-03_rb /)\n      forrefo(:, 9) = (/ 0.163978e-03_rb, 0.150208e-03_rb, 0.142864e-03_rb /)\n      forrefo(:,10) = (/ 0.220412e-03_rb, 0.182943e-03_rb, 0.150941e-03_rb /)\n      forrefo(:,11) = (/ 0.228877e-03_rb, 0.197679e-03_rb, 0.163220e-03_rb /)\n      forrefo(:,12) = (/ 0.234177e-03_rb, 0.217734e-03_rb, 0.185038e-03_rb /)\n      forrefo(:,13) = (/ 0.257187e-03_rb, 0.241570e-03_rb, 0.221178e-03_rb /)\n      forrefo(:,14) = (/ 0.272455e-03_rb, 0.270637e-03_rb, 0.256269e-03_rb /)\n      forrefo(:,15) = (/ 0.339445e-03_rb, 0.300268e-03_rb, 0.286574e-03_rb /)\n      forrefo(:,16) = (/ 0.338841e-03_rb, 0.355428e-03_rb, 0.353794e-03_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.100945e-04_rb, 0.801113e-05_rb, 0.635771e-05_rb, 0.504554e-05_rb, 0.400419e-05_rb, &\n        &  0.317777e-05_rb, 0.252191e-05_rb, 0.200141e-05_rb, 0.158834e-05_rb, 0.126052e-05_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.107573e-04_rb, 0.999809e-05_rb, 0.929245e-05_rb, 0.863661e-05_rb, 0.802706e-05_rb, &\n        &  0.746053e-05_rb, 0.693399e-05_rb, 0.644460e-05_rb, 0.598976e-05_rb, 0.556702e-05_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.350389e-04_rb, 0.319234e-04_rb, 0.290850e-04_rb, 0.264989e-04_rb, 0.241428e-04_rb, &\n        &  0.219962e-04_rb, 0.200404e-04_rb, 0.182586e-04_rb, 0.166351e-04_rb, 0.151560e-04_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.122993e-03_rb, 0.110885e-03_rb, 0.999691e-04_rb, 0.901277e-04_rb, 0.812551e-04_rb, &\n        &  0.732559e-04_rb, 0.660443e-04_rb, 0.595426e-04_rb, 0.536809e-04_rb, 0.483963e-04_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.206434e-03_rb, 0.187435e-03_rb, 0.170185e-03_rb, 0.154522e-03_rb, 0.140301e-03_rb, &\n        &  0.127388e-03_rb, 0.115664e-03_rb, 0.105019e-03_rb, 0.953540e-04_rb, 0.865783e-04_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.590645e-03_rb, 0.533109e-03_rb, 0.481177e-03_rb, 0.434305e-03_rb, 0.391998e-03_rb, &\n        &  0.353812e-03_rb, 0.319346e-03_rb, 0.288238e-03_rb, 0.260160e-03_rb, 0.234817e-03_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.163029e-02_rb, 0.148773e-02_rb, 0.135763e-02_rb, 0.123891e-02_rb, 0.113057e-02_rb, &\n        &  0.103170e-02_rb, 0.941483e-03_rb, 0.859153e-03_rb, 0.784023e-03_rb, 0.715462e-03_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.204528e-02_rb, 0.189258e-02_rb, 0.175128e-02_rb, 0.162053e-02_rb, 0.149954e-02_rb, &\n        &  0.138758e-02_rb, 0.128398e-02_rb, 0.118812e-02_rb, 0.109941e-02_rb, 0.101733e-02_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.210589e-02_rb, 0.197078e-02_rb, 0.184434e-02_rb, 0.172601e-02_rb, 0.161528e-02_rb, &\n        &  0.151164e-02_rb, 0.141466e-02_rb, 0.132390e-02_rb, 0.123896e-02_rb, 0.115947e-02_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.245098e-02_rb, 0.233745e-02_rb, 0.222918e-02_rb, 0.212592e-02_rb, 0.202745e-02_rb, &\n        &  0.193353e-02_rb, 0.184397e-02_rb, 0.175856e-02_rb, 0.167710e-02_rb, 0.159941e-02_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.267460e-02_rb, 0.253325e-02_rb, 0.239936e-02_rb, 0.227255e-02_rb, 0.215244e-02_rb, &\n        &  0.203868e-02_rb, 0.193093e-02_rb, 0.182888e-02_rb, 0.173222e-02_rb, 0.164067e-02_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.304510e-02_rb, 0.283919e-02_rb, 0.264720e-02_rb, 0.246820e-02_rb, 0.230130e-02_rb, &\n        &  0.214568e-02_rb, 0.200059e-02_rb, 0.186531e-02_rb, 0.173918e-02_rb, 0.162157e-02_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.338445e-02_rb, 0.314719e-02_rb, 0.292655e-02_rb, 0.272139e-02_rb, 0.253060e-02_rb, &\n        &  0.235319e-02_rb, 0.218822e-02_rb, 0.203482e-02_rb, 0.189217e-02_rb, 0.175952e-02_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.388649e-02_rb, 0.357018e-02_rb, 0.327961e-02_rb, 0.301269e-02_rb, 0.276750e-02_rb, &\n        &  0.254226e-02_rb, 0.233535e-02_rb, 0.214528e-02_rb, 0.197068e-02_rb, 0.181029e-02_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.412547e-02_rb, 0.387413e-02_rb, 0.363810e-02_rb, 0.341646e-02_rb, 0.320831e-02_rb, &\n        &  0.301285e-02_rb, 0.282930e-02_rb, 0.265693e-02_rb, 0.249506e-02_rb, 0.234305e-02_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.534327e-02_rb, 0.482967e-02_rb, 0.436544e-02_rb, 0.394583e-02_rb, 0.356655e-02_rb, &\n        &  0.322373e-02_rb, 0.291387e-02_rb, 0.263378e-02_rb, 0.238062e-02_rb, 0.215179e-02_rb /)\n     \n      end subroutine sw_kgb23\n\n! **************************************************************************\n      subroutine sw_kgb24\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            raylao, raylbo, abso3ao, abso3bo, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 34.3610_rb , 33.1240_rb, 31.3948_rb, 28.7248_rb, &\n        & 24.7884_rb , 21.4892_rb, 17.3972_rb, 13.7928_rb, &\n        & 9.54462_rb , 1.05002_rb,0.867332_rb,0.685753_rb, &\n        & 0.504718_rb,0.323112_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 34.2367_rb , 32.4327_rb, 30.0863_rb, 28.2085_rb, & \n        & 25.6533_rb , 22.3412_rb, 18.3112_rb, 13.8521_rb, &\n        & 9.51035_rb , 1.04138_rb,0.863493_rb,0.682790_rb, &\n        & 0.504721_rb,0.323102_rb,0.122193_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 34.1883_rb , 32.2479_rb, 30.2650_rb, 28.2914_rb, &\n        & 25.6626_rb , 22.3163_rb, 18.3327_rb, 13.8508_rb, &\n        & 9.49190_rb , 1.03672_rb,0.858272_rb,0.681485_rb, &\n        & 0.501363_rb,0.323110_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 34.1365_rb , 32.2316_rb, 30.3325_rb, 28.3305_rb, &\n        & 25.6420_rb , 22.3223_rb, 18.3411_rb, 13.8471_rb, &\n        & 9.47492_rb , 1.03376_rb,0.855380_rb,0.679085_rb, &\n        & 0.497998_rb,0.323053_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 34.0460_rb , 32.2795_rb, 30.4147_rb, 28.3123_rb, &\n        & 25.6438_rb , 22.3238_rb, 18.3441_rb, 13.8528_rb, &\n        & 9.45222_rb , 1.03058_rb,0.854037_rb,0.675554_rb, &\n        & 0.498344_rb,0.320072_rb,0.122193_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,6) = (/ &\n        & 33.9909_rb , 32.3127_rb, 30.4854_rb, 28.3005_rb, &\n        & 25.6310_rb , 22.3294_rb, 18.3459_rb, 13.8488_rb, &\n        & 9.43336_rb , 1.02901_rb,0.852728_rb,0.672322_rb, &\n        & 0.498056_rb,0.317753_rb,0.122183_rb, 1.70288e-02_rb /)\n      sfluxrefo(:,7) = (/ &\n        & 33.9225_rb , 32.4097_rb, 30.5125_rb, 28.2810_rb, &\n        & 25.6387_rb , 22.3080_rb, 18.3715_rb, 13.8248_rb, &\n        & 9.41834_rb , 1.02735_rb,0.850807_rb,0.671379_rb, &\n        & 0.496975_rb,0.317158_rb,0.119297_rb, 1.70207e-02_rb /)\n      sfluxrefo(:,8) = (/ &\n        & 33.8940_rb , 32.4951_rb, 30.5494_rb, 28.2788_rb, &\n        & 25.5975_rb , 22.3225_rb, 18.3358_rb, 13.8199_rb, &\n        & 9.40283_rb , 1.02751_rb,0.850729_rb,0.670152_rb, &\n        & 0.494294_rb,0.315829_rb,0.116195_rb, 1.64138e-02_rb /)\n      sfluxrefo(:,9) = (/ &\n        & 34.6501_rb , 32.6690_rb, 30.2872_rb, 28.0955_rb, &\n        & 25.4662_rb , 22.1446_rb, 18.2754_rb, 13.7573_rb, &\n        & 9.36645_rb , 1.02356_rb,0.847154_rb,0.668519_rb, &\n        & 0.489186_rb,0.313790_rb,0.117074_rb, 1.60943e-02_rb /)\n\n! Rayleigh extinction coefficient at all v\n      raylao(:,1) = (/ &\n        & 1.28405e-07_rb,1.45501e-07_rb,1.67272e-07_rb,1.94856e-07_rb, &\n        & 2.15248e-07_rb,2.34920e-07_rb,2.48558e-07_rb,1.80004e-07_rb, &\n        & 1.46504e-07_rb,1.31355e-07_rb,1.33562e-07_rb,1.35618e-07_rb, &\n        & 1.22412e-07_rb,1.19842e-07_rb,1.19924e-07_rb,1.20264e-07_rb /)\n      raylao(:,2) = (/ &\n        & 1.41622e-07_rb,1.93436e-07_rb,2.25057e-07_rb,2.01025e-07_rb, &\n        & 1.85138e-07_rb,1.72672e-07_rb,1.64771e-07_rb,1.59312e-07_rb, &\n        & 1.44961e-07_rb,1.37448e-07_rb,1.37506e-07_rb,1.38081e-07_rb, &\n        & 1.22432e-07_rb,1.19844e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,3) = (/ &\n        & 1.45382e-07_rb,1.97020e-07_rb,2.22781e-07_rb,1.96062e-07_rb, &\n        & 1.83495e-07_rb,1.72495e-07_rb,1.64910e-07_rb,1.58797e-07_rb, &\n        & 1.46208e-07_rb,1.42274e-07_rb,1.40445e-07_rb,1.39496e-07_rb, &\n        & 1.26940e-07_rb,1.19844e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,4) = (/ &\n        & 1.48247e-07_rb,1.99958e-07_rb,2.18048e-07_rb,1.93896e-07_rb, &\n        & 1.83125e-07_rb,1.73244e-07_rb,1.64320e-07_rb,1.58298e-07_rb, &\n        & 1.48428e-07_rb,1.44769e-07_rb,1.43704e-07_rb,1.38498e-07_rb, &\n        & 1.31732e-07_rb,1.22299e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,5) = (/ &\n        & 1.51343e-07_rb,1.99621e-07_rb,2.14563e-07_rb,1.93824e-07_rb, &\n        & 1.82992e-07_rb,1.73143e-07_rb,1.64587e-07_rb,1.57355e-07_rb, &\n        & 1.51198e-07_rb,1.46373e-07_rb,1.45438e-07_rb,1.38095e-07_rb, &\n        & 1.35026e-07_rb,1.27504e-07_rb,1.19921e-07_rb,1.20287e-07_rb /)\n      raylao(:,6) = (/ &\n        & 1.54462e-07_rb,1.97610e-07_rb,2.11992e-07_rb,1.93831e-07_rb, &\n        & 1.83900e-07_rb,1.73125e-07_rb,1.64093e-07_rb,1.57651e-07_rb, &\n        & 1.53158e-07_rb,1.46843e-07_rb,1.44733e-07_rb,1.40611e-07_rb, &\n        & 1.37320e-07_rb,1.33932e-07_rb,1.20423e-07_rb,1.20287e-07_rb /)\n      raylao(:,7) = (/ &\n        & 1.59068e-07_rb,1.92757e-07_rb,2.09865e-07_rb,1.95132e-07_rb, &\n        & 1.83641e-07_rb,1.73778e-07_rb,1.63215e-07_rb,1.59462e-07_rb, &\n        & 1.54331e-07_rb,1.46177e-07_rb,1.45819e-07_rb,1.43177e-07_rb, &\n        & 1.39797e-07_rb,1.36780e-07_rb,1.33385e-07_rb,1.20287e-07_rb /)\n      raylao(:,8) = (/ &\n        & 1.62066e-07_rb,1.87529e-07_rb,2.07191e-07_rb,1.97788e-07_rb, &\n        & 1.84920e-07_rb,1.72951e-07_rb,1.65450e-07_rb,1.60344e-07_rb, &\n        & 1.54403e-07_rb,1.47679e-07_rb,1.47287e-07_rb,1.44951e-07_rb, &\n        & 1.42517e-07_rb,1.41107e-07_rb,1.48688e-07_rb,1.51127e-07_rb /)\n      raylao(:,9) = (/ &\n        & 1.19177e-07_rb,1.86522e-07_rb,2.20324e-07_rb,2.13543e-07_rb, &\n        & 1.92198e-07_rb,1.81641e-07_rb,1.70092e-07_rb,1.65072e-07_rb, &\n        & 1.59804e-07_rb,1.56745e-07_rb,1.51235e-07_rb,1.51400e-07_rb, &\n        & 1.49635e-07_rb,1.48056e-07_rb,1.49046e-07_rb,1.51010e-07_rb /)\n\n      raylbo(:) = (/ &\n        & 1.23766e-07_rb,1.40524e-07_rb,1.61610e-07_rb,1.83232e-07_rb, &\n        & 2.02951e-07_rb,2.21367e-07_rb,2.38367e-07_rb,2.53019e-07_rb, &\n        & 2.12202e-07_rb,1.36977e-07_rb,1.39118e-07_rb,1.37097e-07_rb, &\n        & 1.33223e-07_rb,1.38695e-07_rb,1.19868e-07_rb,1.20062e-07_rb /)\n\n      abso3ao(:) = (/ &\n        & 8.03067e-02_rb,0.180926_rb   ,0.227484_rb   ,0.168015_rb   , &\n        & 0.138284_rb   ,0.114537_rb   ,9.50114e-02_rb,8.06816e-02_rb, &\n        & 6.76406e-02_rb,5.69802e-02_rb,5.63283e-02_rb,4.57592e-02_rb, &\n        & 4.21862e-02_rb,3.47949e-02_rb,2.65731e-02_rb,2.67628e-02_rb /)\n\n      abso3bo(:) = (/ &\n        & 2.94848e-02_rb,4.33642e-02_rb,6.70197e-02_rb,0.104990_rb   , &\n        & 0.156180_rb   ,0.214638_rb   ,0.266281_rb   ,0.317941_rb   , &\n        & 0.355327_rb   ,0.371241_rb   ,0.374396_rb   ,0.326847_rb   , &\n        & 0.126497_rb   ,6.95264e-02_rb,2.58175e-02_rb,2.52862e-02_rb /)\n\n      strrat = 0.124692_rb\n\n      layreffr = 1\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.73110e-09_rb,0.95257e-08_rb,0.84454e-08_rb,0.69367e-08_rb,0.55267e-08_rb, &\n        & 0.41107e-08_rb,0.32800e-08_rb,0.33548e-08_rb,0.22111e-08_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.71850e-09_rb,0.98856e-08_rb,0.88084e-08_rb,0.72442e-08_rb,0.57586e-08_rb, &\n        & 0.43475e-08_rb,0.34021e-08_rb,0.32425e-08_rb,0.21911e-08_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.57048e-09_rb,0.11944e-07_rb,0.10693e-07_rb,0.91787e-08_rb,0.75423e-08_rb, &\n        & 0.56949e-08_rb,0.43124e-08_rb,0.42335e-08_rb,0.57788e-08_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.45283e-09_rb,0.10517e-07_rb,0.93142e-08_rb,0.77267e-08_rb,0.61927e-08_rb, &\n        & 0.47485e-08_rb,0.34557e-08_rb,0.32691e-08_rb,0.21836e-08_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.40037e-09_rb,0.10599e-07_rb,0.93529e-08_rb,0.78411e-08_rb,0.63421e-08_rb, &\n        & 0.49082e-08_rb,0.36312e-08_rb,0.32874e-08_rb,0.21861e-08_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.77671e-09_rb,0.11163e-07_rb,0.95032e-08_rb,0.79805e-08_rb,0.60721e-08_rb, &\n        & 0.45440e-08_rb,0.31263e-08_rb,0.28631e-08_rb,0.19430e-08_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.85527e-09_rb,0.11271e-07_rb,0.97269e-08_rb,0.82280e-08_rb,0.62706e-08_rb, &\n        & 0.47926e-08_rb,0.32802e-08_rb,0.28152e-08_rb,0.19155e-08_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.85773e-09_rb,0.13292e-07_rb,0.11943e-07_rb,0.10177e-07_rb,0.81637e-08_rb, &\n        & 0.62054e-08_rb,0.44045e-08_rb,0.35504e-08_rb,0.48274e-08_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.76956e-09_rb,0.13343e-07_rb,0.12140e-07_rb,0.10403e-07_rb,0.83916e-08_rb, &\n        & 0.64414e-08_rb,0.46212e-08_rb,0.36611e-08_rb,0.46523e-08_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.53187e-09_rb,0.11759e-07_rb,0.10564e-07_rb,0.89416e-08_rb,0.69566e-08_rb, &\n        & 0.54336e-08_rb,0.36797e-08_rb,0.28238e-08_rb,0.18838e-08_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.99065e-09_rb,0.13223e-07_rb,0.11222e-07_rb,0.94282e-08_rb,0.74664e-08_rb, &\n        & 0.54084e-08_rb,0.35205e-08_rb,0.24806e-08_rb,0.20205e-08_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.98793e-09_rb,0.13673e-07_rb,0.11444e-07_rb,0.96735e-08_rb,0.76364e-08_rb, &\n        & 0.55809e-08_rb,0.37259e-08_rb,0.25419e-08_rb,0.20086e-08_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.10274e-08_rb,0.14243e-07_rb,0.12051e-07_rb,0.10168e-07_rb,0.80110e-08_rb, &\n        & 0.59129e-08_rb,0.38720e-08_rb,0.26806e-08_rb,0.19959e-08_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.10879e-08_rb,0.15991e-07_rb,0.14290e-07_rb,0.12193e-07_rb,0.99943e-08_rb, &\n        & 0.76411e-08_rb,0.49949e-08_rb,0.32117e-08_rb,0.45196e-08_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.10733e-08_rb,0.14460e-07_rb,0.12483e-07_rb,0.10703e-07_rb,0.84924e-08_rb, &\n        & 0.62896e-08_rb,0.42753e-08_rb,0.27408e-08_rb,0.19679e-08_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.11948e-08_rb,0.15804e-07_rb,0.13423e-07_rb,0.10964e-07_rb,0.86345e-08_rb, &\n        & 0.61421e-08_rb,0.39130e-08_rb,0.24271e-08_rb,0.26282e-08_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.12796e-08_rb,0.16985e-07_rb,0.14121e-07_rb,0.11784e-07_rb,0.93415e-08_rb, &\n        & 0.67310e-08_rb,0.43124e-08_rb,0.25170e-08_rb,0.26033e-08_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.12903e-08_rb,0.17863e-07_rb,0.14703e-07_rb,0.12387e-07_rb,0.99243e-08_rb, &\n        & 0.72283e-08_rb,0.46892e-08_rb,0.26092e-08_rb,0.25739e-08_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.13030e-08_rb,0.17982e-07_rb,0.14488e-07_rb,0.12389e-07_rb,0.10284e-07_rb, &\n        & 0.76192e-08_rb,0.50049e-08_rb,0.27184e-08_rb,0.25450e-08_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.13295e-08_rb,0.20084e-07_rb,0.17213e-07_rb,0.15086e-07_rb,0.12255e-07_rb, &\n        & 0.93192e-08_rb,0.61747e-08_rb,0.34151e-08_rb,0.50409e-08_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.14930e-08_rb,0.19740e-07_rb,0.16353e-07_rb,0.13382e-07_rb,0.10370e-07_rb, &\n        & 0.76167e-08_rb,0.46913e-08_rb,0.23740e-08_rb,0.37254e-08_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.15750e-08_rb,0.20826e-07_rb,0.17352e-07_rb,0.14080e-07_rb,0.11109e-07_rb, &\n        & 0.82293e-08_rb,0.51142e-08_rb,0.25900e-08_rb,0.36977e-08_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.16427e-08_rb,0.22313e-07_rb,0.18005e-07_rb,0.14545e-07_rb,0.11545e-07_rb, &\n        & 0.85987e-08_rb,0.53849e-08_rb,0.27523e-08_rb,0.36628e-08_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.17106e-08_rb,0.23821e-07_rb,0.18882e-07_rb,0.15226e-07_rb,0.12313e-07_rb, &\n        & 0.92367e-08_rb,0.58646e-08_rb,0.29020e-08_rb,0.36336e-08_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.17465e-08_rb,0.26750e-07_rb,0.22103e-07_rb,0.18690e-07_rb,0.15320e-07_rb, &\n        & 0.11508e-07_rb,0.77281e-08_rb,0.34929e-08_rb,0.69801e-08_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.17561e-08_rb,0.17298e-07_rb,0.18888e-07_rb,0.16164e-07_rb,0.12676e-07_rb, &\n        & 0.91128e-08_rb,0.57292e-08_rb,0.25945e-08_rb,0.52718e-08_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.19997e-08_rb,0.20866e-07_rb,0.20612e-07_rb,0.17467e-07_rb,0.13431e-07_rb, &\n        & 0.96178e-08_rb,0.60009e-08_rb,0.28959e-08_rb,0.52609e-08_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.21808e-08_rb,0.24689e-07_rb,0.22590e-07_rb,0.18672e-07_rb,0.14573e-07_rb, &\n        & 0.10599e-07_rb,0.66802e-08_rb,0.31104e-08_rb,0.52649e-08_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.22321e-08_rb,0.28043e-07_rb,0.23802e-07_rb,0.19473e-07_rb,0.15182e-07_rb, &\n        & 0.11372e-07_rb,0.73223e-08_rb,0.34820e-08_rb,0.52977e-08_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.23033e-08_rb,0.30784e-07_rb,0.25188e-07_rb,0.20376e-07_rb,0.16019e-07_rb, &\n        & 0.12009e-07_rb,0.77933e-08_rb,0.37322e-08_rb,0.52777e-08_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.22679e-08_rb,0.13507e-07_rb,0.20320e-07_rb,0.19549e-07_rb,0.15905e-07_rb, &\n        & 0.11277e-07_rb,0.68710e-08_rb,0.29328e-08_rb,0.79703e-08_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.25718e-08_rb,0.16957e-07_rb,0.24375e-07_rb,0.21175e-07_rb,0.17080e-07_rb, &\n        & 0.12233e-07_rb,0.77114e-08_rb,0.34113e-08_rb,0.79963e-08_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.27598e-08_rb,0.19896e-07_rb,0.28092e-07_rb,0.23059e-07_rb,0.18272e-07_rb, &\n        & 0.13117e-07_rb,0.84449e-08_rb,0.37817e-08_rb,0.79824e-08_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.28979e-08_rb,0.22997e-07_rb,0.29556e-07_rb,0.24211e-07_rb,0.19134e-07_rb, &\n        & 0.13799e-07_rb,0.90980e-08_rb,0.41849e-08_rb,0.79622e-08_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.31158e-08_rb,0.26193e-07_rb,0.32426e-07_rb,0.25685e-07_rb,0.19970e-07_rb, &\n        & 0.14504e-07_rb,0.96379e-08_rb,0.45034e-08_rb,0.78914e-08_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.27286e-08_rb,0.10085e-07_rb,0.15014e-07_rb,0.19090e-07_rb,0.19831e-07_rb, &\n        & 0.15054e-07_rb,0.91059e-08_rb,0.39324e-08_rb,0.14155e-07_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.30146e-08_rb,0.12680e-07_rb,0.19259e-07_rb,0.23896e-07_rb,0.21584e-07_rb, &\n        & 0.16217e-07_rb,0.99712e-08_rb,0.44108e-08_rb,0.14243e-07_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.35571e-08_rb,0.15989e-07_rb,0.23328e-07_rb,0.28003e-07_rb,0.22999e-07_rb, &\n        & 0.17316e-07_rb,0.10856e-07_rb,0.49279e-08_rb,0.13770e-07_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.40065e-08_rb,0.19481e-07_rb,0.27247e-07_rb,0.30922e-07_rb,0.24592e-07_rb, &\n        & 0.18005e-07_rb,0.11331e-07_rb,0.53242e-08_rb,0.13758e-07_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.44047e-08_rb,0.23368e-07_rb,0.31337e-07_rb,0.33478e-07_rb,0.26467e-07_rb, &\n        & 0.19093e-07_rb,0.12194e-07_rb,0.56088e-08_rb,0.13665e-07_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.32692e-08_rb,0.79127e-08_rb,0.11108e-07_rb,0.13962e-07_rb,0.15949e-07_rb, &\n        & 0.18125e-07_rb,0.12367e-07_rb,0.53666e-08_rb,0.28048e-07_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.39872e-08_rb,0.10056e-07_rb,0.14185e-07_rb,0.17838e-07_rb,0.20262e-07_rb, &\n        & 0.19824e-07_rb,0.13459e-07_rb,0.59111e-08_rb,0.29491e-07_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.46117e-08_rb,0.12472e-07_rb,0.17902e-07_rb,0.22130e-07_rb,0.25362e-07_rb, &\n        & 0.21745e-07_rb,0.14226e-07_rb,0.62741e-08_rb,0.30373e-07_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.52024e-08_rb,0.15275e-07_rb,0.21923e-07_rb,0.27295e-07_rb,0.30210e-07_rb, &\n        & 0.23240e-07_rb,0.15087e-07_rb,0.66869e-08_rb,0.31196e-07_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.56198e-08_rb,0.17975e-07_rb,0.26684e-07_rb,0.30762e-07_rb,0.34012e-07_rb, &\n        & 0.25509e-07_rb,0.16208e-07_rb,0.72951e-08_rb,0.31583e-07_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.48178e-08_rb,0.70531e-08_rb,0.93321e-08_rb,0.10834e-07_rb,0.12386e-07_rb, &\n        & 0.13718e-07_rb,0.14795e-07_rb,0.73464e-08_rb,0.35934e-07_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.55752e-08_rb,0.86985e-08_rb,0.11492e-07_rb,0.13823e-07_rb,0.15291e-07_rb, &\n        & 0.17278e-07_rb,0.18153e-07_rb,0.81439e-08_rb,0.37177e-07_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.63274e-08_rb,0.10735e-07_rb,0.13985e-07_rb,0.17136e-07_rb,0.19303e-07_rb, &\n        & 0.20940e-07_rb,0.20044e-07_rb,0.88008e-08_rb,0.38431e-07_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.70007e-08_rb,0.12858e-07_rb,0.17195e-07_rb,0.20946e-07_rb,0.23543e-07_rb, &\n        & 0.25732e-07_rb,0.21748e-07_rb,0.95846e-08_rb,0.39768e-07_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.75858e-08_rb,0.15576e-07_rb,0.20803e-07_rb,0.25331e-07_rb,0.28222e-07_rb, &\n        & 0.30974e-07_rb,0.23346e-07_rb,0.10532e-07_rb,0.41126e-07_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.71066e-08_rb,0.91105e-08_rb,0.91823e-08_rb,0.10078e-07_rb,0.11080e-07_rb, &\n        & 0.11808e-07_rb,0.12592e-07_rb,0.10585e-07_rb,0.36646e-07_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.75651e-08_rb,0.10196e-07_rb,0.11288e-07_rb,0.12341e-07_rb,0.13264e-07_rb, &\n        & 0.14635e-07_rb,0.15304e-07_rb,0.12113e-07_rb,0.37821e-07_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.84521e-08_rb,0.11641e-07_rb,0.13494e-07_rb,0.15134e-07_rb,0.16494e-07_rb, &\n        & 0.17667e-07_rb,0.18637e-07_rb,0.13998e-07_rb,0.39151e-07_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.96535e-08_rb,0.13091e-07_rb,0.16210e-07_rb,0.18132e-07_rb,0.20108e-07_rb, &\n        & 0.21506e-07_rb,0.22578e-07_rb,0.15372e-07_rb,0.40534e-07_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.10866e-07_rb,0.15259e-07_rb,0.19222e-07_rb,0.21816e-07_rb,0.23808e-07_rb, &\n        & 0.25779e-07_rb,0.26640e-07_rb,0.16560e-07_rb,0.41783e-07_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.80834e-08_rb,0.10420e-07_rb,0.92387e-08_rb,0.95448e-08_rb,0.10004e-07_rb, &\n        & 0.10210e-07_rb,0.10715e-07_rb,0.12956e-07_rb,0.37307e-07_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.93300e-08_rb,0.11721e-07_rb,0.10935e-07_rb,0.11240e-07_rb,0.12099e-07_rb, &\n        & 0.12529e-07_rb,0.12978e-07_rb,0.14968e-07_rb,0.38619e-07_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.10509e-07_rb,0.12830e-07_rb,0.12793e-07_rb,0.13649e-07_rb,0.14634e-07_rb, &\n        & 0.15024e-07_rb,0.15635e-07_rb,0.17087e-07_rb,0.40001e-07_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.11973e-07_rb,0.14173e-07_rb,0.14811e-07_rb,0.16236e-07_rb,0.17652e-07_rb, &\n        & 0.18139e-07_rb,0.18897e-07_rb,0.19167e-07_rb,0.41426e-07_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.13412e-07_rb,0.16145e-07_rb,0.17438e-07_rb,0.18946e-07_rb,0.20873e-07_rb, &\n        & 0.21649e-07_rb,0.22446e-07_rb,0.20222e-07_rb,0.42866e-07_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.96752e-08_rb,0.12525e-07_rb,0.10944e-07_rb,0.96402e-08_rb,0.92613e-08_rb, &\n        & 0.89183e-08_rb,0.91757e-08_rb,0.10962e-07_rb,0.37700e-07_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.10573e-07_rb,0.14013e-07_rb,0.12095e-07_rb,0.11243e-07_rb,0.11108e-07_rb, &\n        & 0.10880e-07_rb,0.11099e-07_rb,0.12700e-07_rb,0.39054e-07_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.12096e-07_rb,0.15476e-07_rb,0.13719e-07_rb,0.13357e-07_rb,0.13060e-07_rb, &\n        & 0.13122e-07_rb,0.13232e-07_rb,0.14320e-07_rb,0.40767e-07_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.13461e-07_rb,0.16674e-07_rb,0.15454e-07_rb,0.15611e-07_rb,0.15616e-07_rb, &\n        & 0.15505e-07_rb,0.16233e-07_rb,0.16510e-07_rb,0.42192e-07_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.14863e-07_rb,0.17307e-07_rb,0.17245e-07_rb,0.18041e-07_rb,0.18314e-07_rb, &\n        & 0.18445e-07_rb,0.19222e-07_rb,0.18635e-07_rb,0.43353e-07_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.11698e-08_rb,0.30848e-07_rb,0.36454e-07_rb,0.38710e-07_rb,0.45901e-07_rb, &\n        & 0.55227e-07_rb,0.66976e-07_rb,0.88407e-07_rb,0.23422e-07_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.11855e-08_rb,0.31924e-07_rb,0.37139e-07_rb,0.40576e-07_rb,0.48515e-07_rb, &\n        & 0.57453e-07_rb,0.68267e-07_rb,0.87661e-07_rb,0.23548e-07_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.14595e-08_rb,0.39594e-07_rb,0.49562e-07_rb,0.62806e-07_rb,0.77187e-07_rb, &\n        & 0.93412e-07_rb,0.11204e-06_rb,0.13944e-06_rb,0.36327e-07_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.16033e-08_rb,0.32903e-07_rb,0.39616e-07_rb,0.43600e-07_rb,0.51878e-07_rb, &\n        & 0.61189e-07_rb,0.71838e-07_rb,0.88579e-07_rb,0.23754e-07_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.16713e-08_rb,0.33816e-07_rb,0.40271e-07_rb,0.44761e-07_rb,0.53112e-07_rb, &\n        & 0.62817e-07_rb,0.73214e-07_rb,0.89918e-07_rb,0.23712e-07_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.14413e-08_rb,0.29542e-07_rb,0.33672e-07_rb,0.38233e-07_rb,0.38429e-07_rb, &\n        & 0.45175e-07_rb,0.55138e-07_rb,0.73579e-07_rb,0.25050e-07_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.13819e-08_rb,0.33839e-07_rb,0.35660e-07_rb,0.39637e-07_rb,0.40862e-07_rb, &\n        & 0.47496e-07_rb,0.56716e-07_rb,0.72256e-07_rb,0.25722e-07_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.14034e-08_rb,0.38888e-07_rb,0.49224e-07_rb,0.54694e-07_rb,0.64529e-07_rb, &\n        & 0.76758e-07_rb,0.91615e-07_rb,0.11521e-06_rb,0.39473e-07_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.15427e-08_rb,0.40736e-07_rb,0.49562e-07_rb,0.55626e-07_rb,0.65520e-07_rb, &\n        & 0.77421e-07_rb,0.92434e-07_rb,0.11487e-06_rb,0.39089e-07_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.19146e-08_rb,0.37020e-07_rb,0.37998e-07_rb,0.40828e-07_rb,0.46417e-07_rb, &\n        & 0.52511e-07_rb,0.60306e-07_rb,0.73583e-07_rb,0.26882e-07_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.16720e-08_rb,0.23360e-07_rb,0.34106e-07_rb,0.35883e-07_rb,0.37371e-07_rb, &\n        & 0.37719e-07_rb,0.44564e-07_rb,0.59521e-07_rb,0.60171e-07_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.17699e-08_rb,0.26546e-07_rb,0.36000e-07_rb,0.36846e-07_rb,0.38381e-07_rb, &\n        & 0.39667e-07_rb,0.46368e-07_rb,0.60306e-07_rb,0.60604e-07_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.18009e-08_rb,0.29450e-07_rb,0.37614e-07_rb,0.38630e-07_rb,0.39041e-07_rb, &\n        & 0.41600e-07_rb,0.48142e-07_rb,0.59638e-07_rb,0.61274e-07_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.18222e-08_rb,0.39219e-07_rb,0.48109e-07_rb,0.53485e-07_rb,0.57150e-07_rb, &\n        & 0.64444e-07_rb,0.75574e-07_rb,0.94813e-07_rb,0.76759e-07_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.18210e-08_rb,0.34020e-07_rb,0.40366e-07_rb,0.41710e-07_rb,0.42164e-07_rb, &\n        & 0.45001e-07_rb,0.49878e-07_rb,0.60009e-07_rb,0.61481e-07_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.21152e-08_rb,0.23706e-07_rb,0.29784e-07_rb,0.35302e-07_rb,0.35282e-07_rb, &\n        & 0.34361e-07_rb,0.35938e-07_rb,0.47065e-07_rb,0.17050e-06_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.22014e-08_rb,0.24318e-07_rb,0.33239e-07_rb,0.37390e-07_rb,0.36975e-07_rb, &\n        & 0.35774e-07_rb,0.38207e-07_rb,0.49025e-07_rb,0.17312e-06_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.21940e-08_rb,0.26005e-07_rb,0.37067e-07_rb,0.38353e-07_rb,0.38894e-07_rb, &\n        & 0.37527e-07_rb,0.40105e-07_rb,0.50082e-07_rb,0.17777e-06_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.23140e-08_rb,0.28378e-07_rb,0.41743e-07_rb,0.40523e-07_rb,0.40492e-07_rb, &\n        & 0.38652e-07_rb,0.40876e-07_rb,0.49640e-07_rb,0.18336e-06_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.23213e-08_rb,0.34154e-07_rb,0.50461e-07_rb,0.52357e-07_rb,0.54187e-07_rb, &\n        & 0.57113e-07_rb,0.62843e-07_rb,0.77605e-07_rb,0.21695e-06_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.26738e-08_rb,0.26329e-07_rb,0.23971e-07_rb,0.31112e-07_rb,0.35671e-07_rb, &\n        & 0.34087e-07_rb,0.29799e-07_rb,0.37789e-07_rb,0.52514e-06_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.25455e-08_rb,0.28564e-07_rb,0.26376e-07_rb,0.34876e-07_rb,0.38195e-07_rb, &\n        & 0.36126e-07_rb,0.31889e-07_rb,0.38787e-07_rb,0.53894e-06_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.27955e-08_rb,0.30168e-07_rb,0.29598e-07_rb,0.39256e-07_rb,0.39488e-07_rb, &\n        & 0.38121e-07_rb,0.34110e-07_rb,0.40225e-07_rb,0.55617e-06_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.30518e-08_rb,0.31696e-07_rb,0.32642e-07_rb,0.43581e-07_rb,0.40810e-07_rb, &\n        & 0.38887e-07_rb,0.35568e-07_rb,0.41837e-07_rb,0.57141e-06_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.29545e-08_rb,0.34626e-07_rb,0.42873e-07_rb,0.52742e-07_rb,0.53043e-07_rb, &\n        & 0.52428e-07_rb,0.54304e-07_rb,0.64247e-07_rb,0.63906e-06_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.30127e-08_rb,0.42606e-07_rb,0.28980e-07_rb,0.24923e-07_rb,0.29265e-07_rb, &\n        & 0.34534e-07_rb,0.31090e-07_rb,0.30814e-07_rb,0.12844e-05_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.33504e-08_rb,0.42102e-07_rb,0.30491e-07_rb,0.27666e-07_rb,0.33477e-07_rb, &\n        & 0.35643e-07_rb,0.33324e-07_rb,0.31448e-07_rb,0.13231e-05_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.37714e-08_rb,0.40516e-07_rb,0.32080e-07_rb,0.30623e-07_rb,0.37391e-07_rb, &\n        & 0.37255e-07_rb,0.35144e-07_rb,0.32296e-07_rb,0.13598e-05_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.40809e-08_rb,0.41419e-07_rb,0.33638e-07_rb,0.33756e-07_rb,0.41072e-07_rb, &\n        & 0.38814e-07_rb,0.36264e-07_rb,0.33664e-07_rb,0.13955e-05_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.38112e-08_rb,0.42764e-07_rb,0.35694e-07_rb,0.36747e-07_rb,0.45193e-07_rb, &\n        & 0.40460e-07_rb,0.37371e-07_rb,0.35107e-07_rb,0.14282e-05_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.36577e-08_rb,0.64857e-07_rb,0.37268e-07_rb,0.28977e-07_rb,0.24480e-07_rb, &\n        & 0.26864e-07_rb,0.30486e-07_rb,0.25122e-07_rb,0.20521e-05_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.39427e-08_rb,0.65731e-07_rb,0.37248e-07_rb,0.30585e-07_rb,0.26773e-07_rb, &\n        & 0.30114e-07_rb,0.31576e-07_rb,0.26187e-07_rb,0.21480e-05_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.43811e-08_rb,0.66809e-07_rb,0.38170e-07_rb,0.32043e-07_rb,0.28837e-07_rb, &\n        & 0.34005e-07_rb,0.32765e-07_rb,0.27322e-07_rb,0.22122e-05_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.46591e-08_rb,0.68244e-07_rb,0.41020e-07_rb,0.34183e-07_rb,0.31347e-07_rb, &\n        & 0.37946e-07_rb,0.34473e-07_rb,0.28264e-07_rb,0.22876e-05_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.51635e-08_rb,0.69768e-07_rb,0.42241e-07_rb,0.36125e-07_rb,0.34689e-07_rb, &\n        & 0.41422e-07_rb,0.36208e-07_rb,0.29319e-07_rb,0.23528e-05_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.48063e-08_rb,0.99492e-07_rb,0.67977e-07_rb,0.40583e-07_rb,0.27462e-07_rb, &\n        & 0.23261e-07_rb,0.24790e-07_rb,0.24175e-07_rb,0.34404e-05_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.46794e-08_rb,0.10207e-06_rb,0.68838e-07_rb,0.41170e-07_rb,0.30068e-07_rb, &\n        & 0.24536e-07_rb,0.27696e-07_rb,0.25318e-07_rb,0.35579e-05_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.51560e-08_rb,0.10436e-06_rb,0.69782e-07_rb,0.42105e-07_rb,0.32065e-07_rb, &\n        & 0.26776e-07_rb,0.30613e-07_rb,0.26859e-07_rb,0.36807e-05_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.59944e-08_rb,0.10484e-06_rb,0.71027e-07_rb,0.44319e-07_rb,0.34843e-07_rb, &\n        & 0.29788e-07_rb,0.33876e-07_rb,0.28922e-07_rb,0.37740e-05_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.64682e-08_rb,0.10541e-06_rb,0.71736e-07_rb,0.46124e-07_rb,0.36934e-07_rb, &\n        & 0.32173e-07_rb,0.36502e-07_rb,0.30991e-07_rb,0.38805e-05_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.56433e-08_rb,0.13757e-06_rb,0.10641e-06_rb,0.72870e-07_rb,0.43453e-07_rb, &\n        & 0.25530e-07_rb,0.19778e-07_rb,0.25383e-07_rb,0.95912e-05_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.61882e-08_rb,0.14041e-06_rb,0.11046e-06_rb,0.75424e-07_rb,0.44204e-07_rb, &\n        & 0.28513e-07_rb,0.22344e-07_rb,0.27258e-07_rb,0.98257e-05_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.68724e-08_rb,0.14355e-06_rb,0.11272e-06_rb,0.76977e-07_rb,0.44934e-07_rb, &\n        & 0.30972e-07_rb,0.24609e-07_rb,0.29074e-07_rb,0.10035e-04_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.75288e-08_rb,0.14628e-06_rb,0.11397e-06_rb,0.77508e-07_rb,0.45913e-07_rb, &\n        & 0.33498e-07_rb,0.27308e-07_rb,0.31237e-07_rb,0.10206e-04_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.82361e-08_rb,0.14989e-06_rb,0.11575e-06_rb,0.78052e-07_rb,0.47282e-07_rb, &\n        & 0.34986e-07_rb,0.29571e-07_rb,0.31933e-07_rb,0.10332e-04_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.80705e-08_rb,0.18916e-06_rb,0.16332e-06_rb,0.12182e-06_rb,0.80167e-07_rb, &\n        & 0.44659e-07_rb,0.24027e-07_rb,0.20514e-07_rb,0.18076e-04_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.86522e-08_rb,0.19825e-06_rb,0.16839e-06_rb,0.12817e-06_rb,0.85984e-07_rb, &\n        & 0.48117e-07_rb,0.24937e-07_rb,0.22855e-07_rb,0.18392e-04_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.93838e-08_rb,0.20474e-06_rb,0.17472e-06_rb,0.13185e-06_rb,0.89897e-07_rb, &\n        & 0.50484e-07_rb,0.27069e-07_rb,0.24729e-07_rb,0.18827e-04_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.10442e-07_rb,0.21110e-06_rb,0.17958e-06_rb,0.13546e-06_rb,0.92462e-07_rb, &\n        & 0.51368e-07_rb,0.29958e-07_rb,0.26382e-07_rb,0.19325e-04_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.11203e-07_rb,0.21676e-06_rb,0.18359e-06_rb,0.14012e-06_rb,0.94090e-07_rb, &\n        & 0.51431e-07_rb,0.32637e-07_rb,0.27900e-07_rb,0.19654e-04_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.10898e-07_rb,0.20490e-06_rb,0.23352e-06_rb,0.18592e-06_rb,0.13108e-06_rb, &\n        & 0.82594e-07_rb,0.41478e-07_rb,0.20359e-07_rb,0.24656e-04_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.12100e-07_rb,0.21595e-06_rb,0.24259e-06_rb,0.19598e-06_rb,0.14307e-06_rb, &\n        & 0.90287e-07_rb,0.44897e-07_rb,0.21400e-07_rb,0.25439e-04_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.12997e-07_rb,0.22559e-06_rb,0.25028e-06_rb,0.20624e-06_rb,0.15074e-06_rb, &\n        & 0.95763e-07_rb,0.46972e-07_rb,0.22656e-07_rb,0.26128e-04_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.12774e-07_rb,0.23494e-06_rb,0.26130e-06_rb,0.21398e-06_rb,0.15730e-06_rb, &\n        & 0.98985e-07_rb,0.48309e-07_rb,0.24026e-07_rb,0.26834e-04_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.13184e-07_rb,0.24219e-06_rb,0.26811e-06_rb,0.22059e-06_rb,0.16314e-06_rb, &\n        & 0.10271e-06_rb,0.49802e-07_rb,0.25441e-07_rb,0.27644e-04_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.11394e-07_rb,0.19172e-06_rb,0.27076e-06_rb,0.23579e-06_rb,0.17648e-06_rb, &\n        & 0.11366e-06_rb,0.56463e-07_rb,0.20869e-07_rb,0.27151e-04_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.12908e-07_rb,0.20309e-06_rb,0.28462e-06_rb,0.24753e-06_rb,0.18719e-06_rb, &\n        & 0.12033e-06_rb,0.60157e-07_rb,0.21646e-07_rb,0.27962e-04_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.13752e-07_rb,0.21619e-06_rb,0.29476e-06_rb,0.25594e-06_rb,0.19641e-06_rb, &\n        & 0.12734e-06_rb,0.64272e-07_rb,0.22557e-07_rb,0.28912e-04_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.14906e-07_rb,0.22665e-06_rb,0.30298e-06_rb,0.26272e-06_rb,0.20331e-06_rb, &\n        & 0.13316e-06_rb,0.68243e-07_rb,0.23417e-07_rb,0.29816e-04_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.15969e-07_rb,0.23477e-06_rb,0.31068e-06_rb,0.27029e-06_rb,0.20850e-06_rb, &\n        & 0.13902e-06_rb,0.71857e-07_rb,0.25264e-07_rb,0.30765e-04_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.13593e-07_rb,0.19801e-06_rb,0.26490e-06_rb,0.27826e-06_rb,0.22531e-06_rb, &\n        & 0.15112e-06_rb,0.78691e-07_rb,0.27273e-07_rb,0.28055e-04_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.15426e-07_rb,0.20839e-06_rb,0.27732e-06_rb,0.28785e-06_rb,0.23371e-06_rb, &\n        & 0.16027e-06_rb,0.86131e-07_rb,0.29011e-07_rb,0.29165e-04_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.16638e-07_rb,0.21808e-06_rb,0.28896e-06_rb,0.29666e-06_rb,0.24201e-06_rb, &\n        & 0.16845e-06_rb,0.91791e-07_rb,0.30670e-07_rb,0.30372e-04_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.17929e-07_rb,0.22577e-06_rb,0.29798e-06_rb,0.30533e-06_rb,0.24895e-06_rb, &\n        & 0.17573e-06_rb,0.96085e-07_rb,0.31360e-07_rb,0.31437e-04_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.18861e-07_rb,0.23397e-06_rb,0.30715e-06_rb,0.31382e-06_rb,0.25665e-06_rb, &\n        & 0.18246e-06_rb,0.10017e-06_rb,0.32454e-07_rb,0.32266e-04_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.39751e-08_rb,0.10094e-06_rb,0.20247e-06_rb,0.30028e-06_rb,0.39102e-06_rb, &\n        & 0.48711e-06_rb,0.59106e-06_rb,0.72709e-06_rb,0.20885e-06_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.43080e-08_rb,0.10546e-06_rb,0.20982e-06_rb,0.31135e-06_rb,0.40303e-06_rb, &\n        & 0.49632e-06_rb,0.59855e-06_rb,0.74477e-06_rb,0.21012e-06_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.42986e-08_rb,0.15269e-06_rb,0.29890e-06_rb,0.43493e-06_rb,0.56429e-06_rb, &\n        & 0.69336e-06_rb,0.83181e-06_rb,0.10423e-05_rb,0.36557e-06_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.43554e-08_rb,0.11271e-06_rb,0.22069e-06_rb,0.32651e-06_rb,0.42391e-06_rb, &\n        & 0.51393e-06_rb,0.61294e-06_rb,0.75229e-06_rb,0.20945e-06_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.45047e-08_rb,0.11576e-06_rb,0.22657e-06_rb,0.33173e-06_rb,0.43142e-06_rb, &\n        & 0.52151e-06_rb,0.61871e-06_rb,0.74980e-06_rb,0.20891e-06_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.46065e-08_rb,0.81519e-07_rb,0.15960e-06_rb,0.23610e-06_rb,0.31656e-06_rb, &\n        & 0.39839e-06_rb,0.48591e-06_rb,0.60182e-06_rb,0.18230e-06_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.46837e-08_rb,0.82106e-07_rb,0.16429e-06_rb,0.24471e-06_rb,0.32626e-06_rb, &\n        & 0.40531e-06_rb,0.49330e-06_rb,0.61810e-06_rb,0.18355e-06_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.50163e-08_rb,0.12328e-06_rb,0.23602e-06_rb,0.35332e-06_rb,0.46387e-06_rb, &\n        & 0.57515e-06_rb,0.69445e-06_rb,0.88167e-06_rb,0.30546e-06_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.49809e-08_rb,0.12454e-06_rb,0.23839e-06_rb,0.35429e-06_rb,0.46515e-06_rb, &\n        & 0.57491e-06_rb,0.69031e-06_rb,0.86630e-06_rb,0.29807e-06_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.51988e-08_rb,0.91291e-07_rb,0.17869e-06_rb,0.26485e-06_rb,0.34907e-06_rb, &\n        & 0.42509e-06_rb,0.50894e-06_rb,0.62361e-06_rb,0.18234e-06_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.51916e-08_rb,0.88867e-07_rb,0.12220e-06_rb,0.18411e-06_rb,0.24720e-06_rb, &\n        & 0.32303e-06_rb,0.39526e-06_rb,0.49595e-06_rb,0.27125e-06_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.56319e-08_rb,0.87189e-07_rb,0.12678e-06_rb,0.19176e-06_rb,0.25624e-06_rb, &\n        & 0.32740e-06_rb,0.40564e-06_rb,0.50601e-06_rb,0.28010e-06_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.59026e-08_rb,0.86017e-07_rb,0.13043e-06_rb,0.19649e-06_rb,0.26497e-06_rb, &\n        & 0.33305e-06_rb,0.40679e-06_rb,0.51963e-06_rb,0.28660e-06_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.59909e-08_rb,0.10759e-06_rb,0.18790e-06_rb,0.28104e-06_rb,0.37702e-06_rb, &\n        & 0.47222e-06_rb,0.57322e-06_rb,0.72906e-06_rb,0.37657e-06_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.64422e-08_rb,0.89472e-07_rb,0.13687e-06_rb,0.20453e-06_rb,0.27802e-06_rb, &\n        & 0.34266e-06_rb,0.41565e-06_rb,0.51746e-06_rb,0.29675e-06_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.62298e-08_rb,0.99509e-07_rb,0.10306e-06_rb,0.14232e-06_rb,0.19390e-06_rb, &\n        & 0.25435e-06_rb,0.31764e-06_rb,0.40578e-06_rb,0.49031e-06_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.68419e-08_rb,0.10415e-06_rb,0.10349e-06_rb,0.14672e-06_rb,0.19860e-06_rb, &\n        & 0.26012e-06_rb,0.32720e-06_rb,0.41327e-06_rb,0.51522e-06_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.71418e-08_rb,0.10626e-06_rb,0.10522e-06_rb,0.15175e-06_rb,0.20471e-06_rb, &\n        & 0.26435e-06_rb,0.33148e-06_rb,0.42294e-06_rb,0.53456e-06_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.72470e-08_rb,0.10891e-06_rb,0.10648e-06_rb,0.15457e-06_rb,0.21007e-06_rb, &\n        & 0.26937e-06_rb,0.33376e-06_rb,0.42939e-06_rb,0.55207e-06_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.77585e-08_rb,0.12954e-06_rb,0.14999e-06_rb,0.22224e-06_rb,0.29994e-06_rb, &\n        & 0.38053e-06_rb,0.47027e-06_rb,0.60032e-06_rb,0.76592e-06_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.68852e-08_rb,0.11288e-06_rb,0.11969e-06_rb,0.11689e-06_rb,0.14994e-06_rb, &\n        & 0.19637e-06_rb,0.25309e-06_rb,0.33018e-06_rb,0.84551e-06_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.75119e-08_rb,0.11838e-06_rb,0.12255e-06_rb,0.11926e-06_rb,0.15341e-06_rb, &\n        & 0.20169e-06_rb,0.26231e-06_rb,0.33745e-06_rb,0.85714e-06_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.84416e-08_rb,0.12128e-06_rb,0.12324e-06_rb,0.12015e-06_rb,0.15812e-06_rb, &\n        & 0.20463e-06_rb,0.26808e-06_rb,0.34461e-06_rb,0.86734e-06_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.92293e-08_rb,0.12493e-06_rb,0.12330e-06_rb,0.12093e-06_rb,0.16146e-06_rb, &\n        & 0.20899e-06_rb,0.26904e-06_rb,0.35101e-06_rb,0.88204e-06_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.10279e-07_rb,0.14631e-06_rb,0.14078e-06_rb,0.17511e-06_rb,0.23546e-06_rb, &\n        & 0.30442e-06_rb,0.38374e-06_rb,0.50000e-06_rb,0.10431e-05_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.51921e-08_rb,0.14437e-06_rb,0.12917e-06_rb,0.11673e-06_rb,0.12444e-06_rb, &\n        & 0.14966e-06_rb,0.19338e-06_rb,0.26674e-06_rb,0.16987e-05_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.69052e-08_rb,0.14822e-06_rb,0.13564e-06_rb,0.12080e-06_rb,0.12884e-06_rb, &\n        & 0.15616e-06_rb,0.20083e-06_rb,0.27373e-06_rb,0.17147e-05_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.93932e-08_rb,0.15309e-06_rb,0.13785e-06_rb,0.12361e-06_rb,0.12904e-06_rb, &\n        & 0.16004e-06_rb,0.20790e-06_rb,0.27928e-06_rb,0.17384e-05_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.10364e-07_rb,0.15577e-06_rb,0.14281e-06_rb,0.12445e-06_rb,0.13032e-06_rb, &\n        & 0.16178e-06_rb,0.21225e-06_rb,0.28499e-06_rb,0.17733e-05_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.10950e-07_rb,0.15768e-06_rb,0.14728e-06_rb,0.12674e-06_rb,0.12961e-06_rb, &\n        & 0.16455e-06_rb,0.21080e-06_rb,0.28744e-06_rb,0.17869e-05_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.51527e-08_rb,0.13331e-06_rb,0.15220e-06_rb,0.13781e-06_rb,0.11791e-06_rb, &\n        & 0.12291e-06_rb,0.14839e-06_rb,0.21430e-06_rb,0.45802e-05_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.52409e-08_rb,0.14109e-06_rb,0.15809e-06_rb,0.14393e-06_rb,0.12362e-06_rb, &\n        & 0.12831e-06_rb,0.15572e-06_rb,0.22059e-06_rb,0.46088e-05_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.66901e-08_rb,0.14833e-06_rb,0.16524e-06_rb,0.14893e-06_rb,0.12670e-06_rb, &\n        & 0.13152e-06_rb,0.16110e-06_rb,0.22404e-06_rb,0.46200e-05_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.90836e-08_rb,0.15267e-06_rb,0.17113e-06_rb,0.15541e-06_rb,0.12966e-06_rb, &\n        & 0.13240e-06_rb,0.16410e-06_rb,0.22868e-06_rb,0.45999e-05_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.11721e-07_rb,0.15605e-06_rb,0.17580e-06_rb,0.16064e-06_rb,0.13194e-06_rb, &\n        & 0.13127e-06_rb,0.16676e-06_rb,0.23245e-06_rb,0.46103e-05_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.53770e-08_rb,0.12906e-06_rb,0.19117e-06_rb,0.16928e-06_rb,0.14454e-06_rb, &\n        & 0.11318e-06_rb,0.12091e-06_rb,0.16771e-06_rb,0.10838e-04_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.71217e-08_rb,0.13171e-06_rb,0.20115e-06_rb,0.17525e-06_rb,0.15189e-06_rb, &\n        & 0.11980e-06_rb,0.12589e-06_rb,0.17247e-06_rb,0.10844e-04_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.76051e-08_rb,0.13463e-06_rb,0.20837e-06_rb,0.18092e-06_rb,0.15831e-06_rb, &\n        & 0.12491e-06_rb,0.12782e-06_rb,0.17568e-06_rb,0.10855e-04_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.87276e-08_rb,0.14002e-06_rb,0.21488e-06_rb,0.18616e-06_rb,0.16272e-06_rb, &\n        & 0.12991e-06_rb,0.13139e-06_rb,0.17775e-06_rb,0.10873e-04_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.98102e-08_rb,0.14390e-06_rb,0.21715e-06_rb,0.19383e-06_rb,0.16843e-06_rb, &\n        & 0.13102e-06_rb,0.13320e-06_rb,0.18001e-06_rb,0.10883e-04_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.78846e-08_rb,0.14921e-06_rb,0.16266e-06_rb,0.21810e-06_rb,0.17257e-06_rb, &\n        & 0.13914e-06_rb,0.10621e-06_rb,0.13009e-06_rb,0.22193e-04_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.87670e-08_rb,0.15667e-06_rb,0.17179e-06_rb,0.22870e-06_rb,0.18453e-06_rb, &\n        & 0.14806e-06_rb,0.11198e-06_rb,0.13228e-06_rb,0.22470e-04_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.94042e-08_rb,0.16331e-06_rb,0.17929e-06_rb,0.23732e-06_rb,0.19309e-06_rb, &\n        & 0.15669e-06_rb,0.11769e-06_rb,0.13462e-06_rb,0.22759e-04_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.10052e-07_rb,0.16738e-06_rb,0.18654e-06_rb,0.24428e-06_rb,0.19714e-06_rb, &\n        & 0.16469e-06_rb,0.12194e-06_rb,0.13694e-06_rb,0.23037e-04_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.99609e-08_rb,0.16974e-06_rb,0.19096e-06_rb,0.25212e-06_rb,0.20604e-06_rb, &\n        & 0.17005e-06_rb,0.12529e-06_rb,0.13965e-06_rb,0.23331e-04_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.10600e-07_rb,0.19194e-06_rb,0.19694e-06_rb,0.19228e-06_rb,0.23306e-06_rb, &\n        & 0.18017e-06_rb,0.13563e-06_rb,0.11106e-06_rb,0.57833e-04_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.11513e-07_rb,0.19670e-06_rb,0.20600e-06_rb,0.20153e-06_rb,0.24712e-06_rb, &\n        & 0.19420e-06_rb,0.14374e-06_rb,0.11223e-06_rb,0.59252e-04_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.12267e-07_rb,0.20052e-06_rb,0.21125e-06_rb,0.21502e-06_rb,0.25879e-06_rb, &\n        & 0.20809e-06_rb,0.15257e-06_rb,0.11412e-06_rb,0.60474e-04_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.11377e-07_rb,0.20485e-06_rb,0.21479e-06_rb,0.22527e-06_rb,0.26884e-06_rb, &\n        & 0.21723e-06_rb,0.15872e-06_rb,0.11733e-06_rb,0.61380e-04_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.12141e-07_rb,0.20611e-06_rb,0.22439e-06_rb,0.22986e-06_rb,0.27411e-06_rb, &\n        & 0.22402e-06_rb,0.16342e-06_rb,0.11916e-06_rb,0.62353e-04_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.12251e-07_rb,0.29022e-06_rb,0.24496e-06_rb,0.24059e-06_rb,0.21631e-06_rb, &\n        & 0.23923e-06_rb,0.16597e-06_rb,0.10842e-06_rb,0.80074e-04_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.12224e-07_rb,0.29680e-06_rb,0.25368e-06_rb,0.24691e-06_rb,0.22294e-06_rb, &\n        & 0.24912e-06_rb,0.17747e-06_rb,0.10969e-06_rb,0.81125e-04_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.14264e-07_rb,0.29886e-06_rb,0.26040e-06_rb,0.25256e-06_rb,0.23184e-06_rb, &\n        & 0.25957e-06_rb,0.18845e-06_rb,0.11123e-06_rb,0.82960e-04_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.16608e-07_rb,0.30056e-06_rb,0.26198e-06_rb,0.25724e-06_rb,0.23897e-06_rb, &\n        & 0.26977e-06_rb,0.19716e-06_rb,0.11521e-06_rb,0.84911e-04_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.18982e-07_rb,0.30200e-06_rb,0.26559e-06_rb,0.26090e-06_rb,0.24427e-06_rb, &\n        & 0.27763e-06_rb,0.20825e-06_rb,0.11858e-06_rb,0.86586e-04_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.16186e-07_rb,0.36864e-06_rb,0.27735e-06_rb,0.24475e-06_rb,0.23659e-06_rb, &\n        & 0.20178e-06_rb,0.20651e-06_rb,0.11504e-06_rb,0.90323e-04_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.16900e-07_rb,0.36903e-06_rb,0.27865e-06_rb,0.25015e-06_rb,0.24279e-06_rb, &\n        & 0.21379e-06_rb,0.22149e-06_rb,0.12739e-06_rb,0.92788e-04_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.18900e-07_rb,0.36546e-06_rb,0.28369e-06_rb,0.25919e-06_rb,0.24650e-06_rb, &\n        & 0.22349e-06_rb,0.23741e-06_rb,0.13455e-06_rb,0.94381e-04_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.24666e-07_rb,0.36289e-06_rb,0.28992e-06_rb,0.26755e-06_rb,0.25261e-06_rb, &\n        & 0.23012e-06_rb,0.24862e-06_rb,0.14012e-06_rb,0.95689e-04_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.28047e-07_rb,0.36144e-06_rb,0.29439e-06_rb,0.27280e-06_rb,0.25910e-06_rb, &\n        & 0.23527e-06_rb,0.25804e-06_rb,0.14441e-06_rb,0.97273e-04_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.27099e-07_rb,0.42452e-06_rb,0.36469e-06_rb,0.28012e-06_rb,0.24206e-06_rb, &\n        & 0.21452e-06_rb,0.19737e-06_rb,0.12552e-06_rb,0.93221e-04_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.30641e-07_rb,0.42348e-06_rb,0.36821e-06_rb,0.29049e-06_rb,0.25191e-06_rb, &\n        & 0.22447e-06_rb,0.20459e-06_rb,0.13174e-06_rb,0.95326e-04_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.31538e-07_rb,0.42218e-06_rb,0.36978e-06_rb,0.29801e-06_rb,0.26042e-06_rb, &\n        & 0.23413e-06_rb,0.21354e-06_rb,0.13999e-06_rb,0.97244e-04_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.33087e-07_rb,0.42233e-06_rb,0.36980e-06_rb,0.30223e-06_rb,0.26697e-06_rb, &\n        & 0.24077e-06_rb,0.22289e-06_rb,0.14849e-06_rb,0.99282e-04_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.35771e-07_rb,0.42124e-06_rb,0.36949e-06_rb,0.30814e-06_rb,0.27423e-06_rb, &\n        & 0.24510e-06_rb,0.22998e-06_rb,0.15431e-06_rb,0.10189e-03_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.60599e-08_rb,0.49839e-06_rb,0.90796e-06_rb,0.12825e-05_rb,0.16387e-05_rb, &\n        & 0.20000e-05_rb,0.24097e-05_rb,0.30198e-05_rb,0.14012e-05_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.57361e-08_rb,0.51373e-06_rb,0.93344e-06_rb,0.13150e-05_rb,0.16776e-05_rb, &\n        & 0.20412e-05_rb,0.24476e-05_rb,0.30155e-05_rb,0.14079e-05_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.61895e-08_rb,0.64074e-06_rb,0.11706e-05_rb,0.16523e-05_rb,0.21138e-05_rb, &\n        & 0.25765e-05_rb,0.30714e-05_rb,0.37148e-05_rb,0.20046e-05_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.63590e-08_rb,0.53918e-06_rb,0.97233e-06_rb,0.13614e-05_rb,0.17274e-05_rb, &\n        & 0.21018e-05_rb,0.24992e-05_rb,0.30391e-05_rb,0.14106e-05_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.66907e-08_rb,0.54769e-06_rb,0.98459e-06_rb,0.13756e-05_rb,0.17428e-05_rb, &\n        & 0.21216e-05_rb,0.25190e-05_rb,0.30528e-05_rb,0.14057e-05_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.63247e-08_rb,0.40976e-06_rb,0.75743e-06_rb,0.10729e-05_rb,0.13776e-05_rb, &\n        & 0.16847e-05_rb,0.20386e-05_rb,0.25923e-05_rb,0.11016e-05_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.71971e-08_rb,0.42277e-06_rb,0.77866e-06_rb,0.11006e-05_rb,0.14075e-05_rb, &\n        & 0.17208e-05_rb,0.20689e-05_rb,0.25842e-05_rb,0.11093e-05_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.68862e-08_rb,0.54111e-06_rb,0.99924e-06_rb,0.14135e-05_rb,0.18137e-05_rb, &\n        & 0.22190e-05_rb,0.26613e-05_rb,0.32636e-05_rb,0.16377e-05_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.74570e-08_rb,0.54374e-06_rb,0.10016e-05_rb,0.14142e-05_rb,0.18118e-05_rb, &\n        & 0.22093e-05_rb,0.26451e-05_rb,0.32306e-05_rb,0.16062e-05_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.76975e-08_rb,0.44890e-06_rb,0.82016e-06_rb,0.11488e-05_rb,0.14591e-05_rb, &\n        & 0.17814e-05_rb,0.21241e-05_rb,0.26089e-05_rb,0.11145e-05_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.83656e-08_rb,0.31311e-06_rb,0.61949e-06_rb,0.88176e-06_rb,0.11379e-05_rb, &\n        & 0.13977e-05_rb,0.17043e-05_rb,0.22078e-05_rb,0.73836e-06_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.85171e-08_rb,0.32573e-06_rb,0.63573e-06_rb,0.90517e-06_rb,0.11641e-05_rb, &\n        & 0.14286e-05_rb,0.17247e-05_rb,0.21938e-05_rb,0.74285e-06_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.78702e-08_rb,0.33673e-06_rb,0.64948e-06_rb,0.92347e-06_rb,0.11844e-05_rb, &\n        & 0.14525e-05_rb,0.17473e-05_rb,0.21823e-05_rb,0.74417e-06_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.88135e-08_rb,0.44484e-06_rb,0.84006e-06_rb,0.11924e-05_rb,0.15326e-05_rb, &\n        & 0.18766e-05_rb,0.22592e-05_rb,0.27980e-05_rb,0.11629e-05_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.83594e-08_rb,0.34852e-06_rb,0.67171e-06_rb,0.94786e-06_rb,0.12080e-05_rb, &\n        & 0.14818e-05_rb,0.17721e-05_rb,0.22017e-05_rb,0.74162e-06_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.82233e-08_rb,0.22714e-06_rb,0.49574e-06_rb,0.71618e-06_rb,0.92897e-06_rb, &\n        & 0.11522e-05_rb,0.14150e-05_rb,0.18749e-05_rb,0.10829e-05_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.90906e-08_rb,0.23281e-06_rb,0.51082e-06_rb,0.73615e-06_rb,0.95322e-06_rb, &\n        & 0.11749e-05_rb,0.14287e-05_rb,0.18456e-05_rb,0.10964e-05_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.10403e-07_rb,0.23873e-06_rb,0.52083e-06_rb,0.75142e-06_rb,0.97057e-06_rb, &\n        & 0.11959e-05_rb,0.14456e-05_rb,0.18299e-05_rb,0.11024e-05_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.11681e-07_rb,0.24287e-06_rb,0.52982e-06_rb,0.76518e-06_rb,0.98418e-06_rb, &\n        & 0.12105e-05_rb,0.14593e-05_rb,0.18314e-05_rb,0.11002e-05_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.11781e-07_rb,0.32919e-06_rb,0.69041e-06_rb,0.99008e-06_rb,0.12781e-05_rb, &\n        & 0.15684e-05_rb,0.18900e-05_rb,0.23626e-05_rb,0.11507e-05_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.10746e-07_rb,0.16960e-06_rb,0.36271e-06_rb,0.57393e-06_rb,0.75088e-06_rb, &\n        & 0.94078e-06_rb,0.11700e-05_rb,0.15610e-05_rb,0.23060e-05_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.12322e-07_rb,0.17145e-06_rb,0.37466e-06_rb,0.58975e-06_rb,0.77156e-06_rb, &\n        & 0.96051e-06_rb,0.11773e-05_rb,0.15431e-05_rb,0.23550e-05_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.12362e-07_rb,0.17491e-06_rb,0.38517e-06_rb,0.60273e-06_rb,0.78779e-06_rb, &\n        & 0.97831e-06_rb,0.11895e-05_rb,0.15264e-05_rb,0.23946e-05_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.11932e-07_rb,0.17603e-06_rb,0.39310e-06_rb,0.61276e-06_rb,0.80198e-06_rb, &\n        & 0.99168e-06_rb,0.12014e-05_rb,0.15209e-05_rb,0.24122e-05_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.12827e-07_rb,0.23797e-06_rb,0.54915e-06_rb,0.81314e-06_rb,0.10605e-05_rb, &\n        & 0.13079e-05_rb,0.15848e-05_rb,0.19982e-05_rb,0.26265e-05_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.16887e-07_rb,0.16918e-06_rb,0.26182e-06_rb,0.43955e-06_rb,0.59876e-06_rb, &\n        & 0.76220e-06_rb,0.96205e-06_rb,0.12977e-05_rb,0.30196e-05_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.16463e-07_rb,0.17256e-06_rb,0.26723e-06_rb,0.45266e-06_rb,0.61330e-06_rb, &\n        & 0.77949e-06_rb,0.96881e-06_rb,0.12938e-05_rb,0.31027e-05_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.14297e-07_rb,0.17174e-06_rb,0.27626e-06_rb,0.46141e-06_rb,0.62873e-06_rb, &\n        & 0.79335e-06_rb,0.97523e-06_rb,0.12716e-05_rb,0.31487e-05_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.15984e-07_rb,0.17093e-06_rb,0.27951e-06_rb,0.46972e-06_rb,0.64062e-06_rb, &\n        & 0.80616e-06_rb,0.98183e-06_rb,0.12602e-05_rb,0.31591e-05_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.17832e-07_rb,0.17197e-06_rb,0.28124e-06_rb,0.47610e-06_rb,0.64900e-06_rb, &\n        & 0.81537e-06_rb,0.99403e-06_rb,0.12613e-05_rb,0.32001e-05_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.19543e-07_rb,0.20424e-06_rb,0.20827e-06_rb,0.30613e-06_rb,0.46038e-06_rb, &\n        & 0.61052e-06_rb,0.78796e-06_rb,0.10769e-05_rb,0.53495e-05_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.21943e-07_rb,0.20486e-06_rb,0.21292e-06_rb,0.31650e-06_rb,0.47369e-06_rb, &\n        & 0.62546e-06_rb,0.78997e-06_rb,0.10696e-05_rb,0.53612e-05_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.23096e-07_rb,0.20519e-06_rb,0.21260e-06_rb,0.32419e-06_rb,0.48522e-06_rb, &\n        & 0.63494e-06_rb,0.79556e-06_rb,0.10562e-05_rb,0.54125e-05_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.23811e-07_rb,0.20761e-06_rb,0.21334e-06_rb,0.32752e-06_rb,0.49467e-06_rb, &\n        & 0.64456e-06_rb,0.80411e-06_rb,0.10435e-05_rb,0.54920e-05_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.23502e-07_rb,0.20918e-06_rb,0.21430e-06_rb,0.32878e-06_rb,0.50037e-06_rb, &\n        & 0.65413e-06_rb,0.80879e-06_rb,0.10409e-05_rb,0.55076e-05_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.28818e-07_rb,0.26386e-06_rb,0.23322e-06_rb,0.23394e-06_rb,0.31766e-06_rb, &\n        & 0.47372e-06_rb,0.64268e-06_rb,0.89272e-06_rb,0.10691e-04_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.30094e-07_rb,0.27235e-06_rb,0.23524e-06_rb,0.24245e-06_rb,0.32636e-06_rb, &\n        & 0.48411e-06_rb,0.63773e-06_rb,0.88040e-06_rb,0.10770e-04_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.32474e-07_rb,0.27799e-06_rb,0.23717e-06_rb,0.24789e-06_rb,0.33554e-06_rb, &\n        & 0.49304e-06_rb,0.64255e-06_rb,0.87788e-06_rb,0.10799e-04_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.33631e-07_rb,0.28020e-06_rb,0.23819e-06_rb,0.25000e-06_rb,0.34187e-06_rb, &\n        & 0.49874e-06_rb,0.64803e-06_rb,0.86373e-06_rb,0.10824e-04_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.34597e-07_rb,0.28107e-06_rb,0.24266e-06_rb,0.24933e-06_rb,0.34607e-06_rb, &\n        & 0.50692e-06_rb,0.65081e-06_rb,0.85686e-06_rb,0.10819e-04_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.37049e-07_rb,0.33070e-06_rb,0.32147e-06_rb,0.25828e-06_rb,0.24460e-06_rb, &\n        & 0.33057e-06_rb,0.51182e-06_rb,0.72970e-06_rb,0.32667e-04_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.39634e-07_rb,0.34282e-06_rb,0.32875e-06_rb,0.26785e-06_rb,0.25757e-06_rb, &\n        & 0.33579e-06_rb,0.50462e-06_rb,0.72240e-06_rb,0.32638e-04_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.42012e-07_rb,0.34998e-06_rb,0.33495e-06_rb,0.27514e-06_rb,0.26581e-06_rb, &\n        & 0.33988e-06_rb,0.50360e-06_rb,0.72105e-06_rb,0.32828e-04_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.43216e-07_rb,0.35061e-06_rb,0.33953e-06_rb,0.28140e-06_rb,0.27172e-06_rb, &\n        & 0.34266e-06_rb,0.50914e-06_rb,0.70829e-06_rb,0.32970e-04_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.43838e-07_rb,0.35447e-06_rb,0.34674e-06_rb,0.28252e-06_rb,0.27122e-06_rb, &\n        & 0.34740e-06_rb,0.51058e-06_rb,0.70194e-06_rb,0.33023e-04_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.46492e-07_rb,0.34673e-06_rb,0.43959e-06_rb,0.39620e-06_rb,0.30969e-06_rb, &\n        & 0.25359e-06_rb,0.35579e-06_rb,0.58999e-06_rb,0.75308e-04_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.51642e-07_rb,0.35814e-06_rb,0.45251e-06_rb,0.40694e-06_rb,0.31643e-06_rb, &\n        & 0.25658e-06_rb,0.34700e-06_rb,0.58340e-06_rb,0.75445e-04_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.55139e-07_rb,0.36959e-06_rb,0.46273e-06_rb,0.41592e-06_rb,0.32168e-06_rb, &\n        & 0.26320e-06_rb,0.34598e-06_rb,0.57972e-06_rb,0.75796e-04_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.58094e-07_rb,0.37731e-06_rb,0.47160e-06_rb,0.41969e-06_rb,0.32536e-06_rb, &\n        & 0.27186e-06_rb,0.34692e-06_rb,0.57173e-06_rb,0.76680e-04_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.62665e-07_rb,0.38529e-06_rb,0.47122e-06_rb,0.42322e-06_rb,0.32990e-06_rb, &\n        & 0.28125e-06_rb,0.34920e-06_rb,0.56204e-06_rb,0.77515e-04_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.71997e-07_rb,0.39039e-06_rb,0.48930e-06_rb,0.52037e-06_rb,0.44835e-06_rb, &\n        & 0.32920e-06_rb,0.25424e-06_rb,0.45719e-06_rb,0.97599e-04_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.84174e-07_rb,0.39220e-06_rb,0.49753e-06_rb,0.53466e-06_rb,0.46035e-06_rb, &\n        & 0.34028e-06_rb,0.25580e-06_rb,0.44804e-06_rb,0.98017e-04_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.88241e-07_rb,0.39809e-06_rb,0.50514e-06_rb,0.54464e-06_rb,0.47069e-06_rb, &\n        & 0.34919e-06_rb,0.25830e-06_rb,0.44783e-06_rb,0.97609e-04_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.93462e-07_rb,0.40271e-06_rb,0.51216e-06_rb,0.55531e-06_rb,0.48178e-06_rb, &\n        & 0.35530e-06_rb,0.26505e-06_rb,0.43524e-06_rb,0.97099e-04_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.96966e-07_rb,0.40660e-06_rb,0.51682e-06_rb,0.56367e-06_rb,0.48662e-06_rb, &\n        & 0.35706e-06_rb,0.26903e-06_rb,0.42986e-06_rb,0.97653e-04_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.99102e-07_rb,0.42179e-06_rb,0.46920e-06_rb,0.54974e-06_rb,0.50699e-06_rb, &\n        & 0.41543e-06_rb,0.26692e-06_rb,0.34287e-06_rb,0.10692e-03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.10220e-06_rb,0.42343e-06_rb,0.48263e-06_rb,0.56179e-06_rb,0.52088e-06_rb, &\n        & 0.42826e-06_rb,0.27416e-06_rb,0.32165e-06_rb,0.10849e-03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.10736e-06_rb,0.42994e-06_rb,0.49237e-06_rb,0.56848e-06_rb,0.53837e-06_rb, &\n        & 0.43862e-06_rb,0.28070e-06_rb,0.31402e-06_rb,0.10890e-03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.10535e-06_rb,0.42853e-06_rb,0.49830e-06_rb,0.57259e-06_rb,0.55337e-06_rb, &\n        & 0.45117e-06_rb,0.28964e-06_rb,0.30229e-06_rb,0.11005e-03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.10635e-06_rb,0.42826e-06_rb,0.50038e-06_rb,0.57688e-06_rb,0.56182e-06_rb, &\n        & 0.45862e-06_rb,0.29473e-06_rb,0.29904e-06_rb,0.11056e-03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.11521e-06_rb,0.43118e-06_rb,0.49222e-06_rb,0.52624e-06_rb,0.55771e-06_rb, &\n        & 0.47186e-06_rb,0.32691e-06_rb,0.24833e-06_rb,0.10886e-03_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.11730e-06_rb,0.43904e-06_rb,0.49350e-06_rb,0.54164e-06_rb,0.56845e-06_rb, &\n        & 0.49098e-06_rb,0.34261e-06_rb,0.23938e-06_rb,0.11077e-03_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.11952e-06_rb,0.44327e-06_rb,0.50284e-06_rb,0.55816e-06_rb,0.58198e-06_rb, &\n        & 0.50372e-06_rb,0.35861e-06_rb,0.22850e-06_rb,0.11296e-03_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.11965e-06_rb,0.44664e-06_rb,0.51058e-06_rb,0.56661e-06_rb,0.59093e-06_rb, &\n        & 0.51146e-06_rb,0.36596e-06_rb,0.22349e-06_rb,0.11560e-03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.12171e-06_rb,0.45566e-06_rb,0.52364e-06_rb,0.57439e-06_rb,0.59010e-06_rb, &\n        & 0.52011e-06_rb,0.37200e-06_rb,0.22417e-06_rb,0.11598e-03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.64393e-08_rb,0.14477e-05_rb,0.26383e-05_rb,0.37578e-05_rb,0.48497e-05_rb, &\n        & 0.58771e-05_rb,0.69748e-05_rb,0.83337e-05_rb,0.52972e-05_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.74788e-08_rb,0.14813e-05_rb,0.26820e-05_rb,0.38123e-05_rb,0.49043e-05_rb, &\n        & 0.59719e-05_rb,0.70794e-05_rb,0.84777e-05_rb,0.53686e-05_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.70698e-08_rb,0.17381e-05_rb,0.31521e-05_rb,0.44815e-05_rb,0.57370e-05_rb, &\n        & 0.69696e-05_rb,0.82426e-05_rb,0.98195e-05_rb,0.67445e-05_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.75728e-08_rb,0.15363e-05_rb,0.27544e-05_rb,0.38956e-05_rb,0.49855e-05_rb, &\n        & 0.60556e-05_rb,0.72284e-05_rb,0.86770e-05_rb,0.54442e-05_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.72646e-08_rb,0.15573e-05_rb,0.27840e-05_rb,0.39266e-05_rb,0.50091e-05_rb, &\n        & 0.60781e-05_rb,0.72327e-05_rb,0.87344e-05_rb,0.54537e-05_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.91682e-08_rb,0.12471e-05_rb,0.22727e-05_rb,0.32462e-05_rb,0.42007e-05_rb, &\n        & 0.51012e-05_rb,0.60761e-05_rb,0.73379e-05_rb,0.44448e-05_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.78841e-08_rb,0.12745e-05_rb,0.23098e-05_rb,0.32938e-05_rb,0.42384e-05_rb, &\n        & 0.51817e-05_rb,0.61658e-05_rb,0.74615e-05_rb,0.44925e-05_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.88457e-08_rb,0.15305e-05_rb,0.27824e-05_rb,0.39573e-05_rb,0.50820e-05_rb, &\n        & 0.61863e-05_rb,0.73547e-05_rb,0.88186e-05_rb,0.58192e-05_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.81699e-08_rb,0.15379e-05_rb,0.27884e-05_rb,0.39554e-05_rb,0.50640e-05_rb, &\n        & 0.61598e-05_rb,0.73260e-05_rb,0.88047e-05_rb,0.57596e-05_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.81267e-08_rb,0.13345e-05_rb,0.23941e-05_rb,0.33760e-05_rb,0.43121e-05_rb, &\n        & 0.52406e-05_rb,0.62663e-05_rb,0.76657e-05_rb,0.45393e-05_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.91717e-08_rb,0.10541e-05_rb,0.19313e-05_rb,0.27682e-05_rb,0.35915e-05_rb, &\n        & 0.43666e-05_rb,0.52222e-05_rb,0.63759e-05_rb,0.36110e-05_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.10331e-07_rb,0.10789e-05_rb,0.19645e-05_rb,0.28075e-05_rb,0.36240e-05_rb, &\n        & 0.44392e-05_rb,0.52990e-05_rb,0.64883e-05_rb,0.36530e-05_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.12324e-07_rb,0.10988e-05_rb,0.19944e-05_rb,0.28363e-05_rb,0.36532e-05_rb, &\n        & 0.44650e-05_rb,0.53622e-05_rb,0.65761e-05_rb,0.36791e-05_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.11596e-07_rb,0.13389e-05_rb,0.24365e-05_rb,0.34597e-05_rb,0.44354e-05_rb, &\n        & 0.54167e-05_rb,0.64681e-05_rb,0.78697e-05_rb,0.48568e-05_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.11476e-07_rb,0.11282e-05_rb,0.20370e-05_rb,0.28768e-05_rb,0.36785e-05_rb, &\n        & 0.44764e-05_rb,0.53828e-05_rb,0.66660e-05_rb,0.36841e-05_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.12942e-07_rb,0.87057e-06_rb,0.16185e-05_rb,0.23328e-05_rb,0.30327e-05_rb, &\n        & 0.36939e-05_rb,0.44351e-05_rb,0.54720e-05_rb,0.21271e-05_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.12911e-07_rb,0.89351e-06_rb,0.16491e-05_rb,0.23657e-05_rb,0.30660e-05_rb, &\n        & 0.37589e-05_rb,0.45049e-05_rb,0.55808e-05_rb,0.21315e-05_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.11919e-07_rb,0.91285e-06_rb,0.16762e-05_rb,0.23907e-05_rb,0.30911e-05_rb, &\n        & 0.37889e-05_rb,0.45584e-05_rb,0.56554e-05_rb,0.21302e-05_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.12644e-07_rb,0.92680e-06_rb,0.16966e-05_rb,0.24115e-05_rb,0.31023e-05_rb, &\n        & 0.37973e-05_rb,0.46002e-05_rb,0.57029e-05_rb,0.21090e-05_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.14252e-07_rb,0.11501e-05_rb,0.21042e-05_rb,0.29827e-05_rb,0.38200e-05_rb, &\n        & 0.46680e-05_rb,0.55977e-05_rb,0.69211e-05_rb,0.32123e-05_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.14457e-07_rb,0.68848e-06_rb,0.13403e-05_rb,0.19448e-05_rb,0.25364e-05_rb, &\n        & 0.30956e-05_rb,0.37236e-05_rb,0.46561e-05_rb,0.23476e-05_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.13664e-07_rb,0.70724e-06_rb,0.13666e-05_rb,0.19744e-05_rb,0.25701e-05_rb, &\n        & 0.31515e-05_rb,0.37903e-05_rb,0.47386e-05_rb,0.23292e-05_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.16363e-07_rb,0.72382e-06_rb,0.13894e-05_rb,0.19966e-05_rb,0.25908e-05_rb, &\n        & 0.31942e-05_rb,0.38380e-05_rb,0.48063e-05_rb,0.23210e-05_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.18854e-07_rb,0.73645e-06_rb,0.14075e-05_rb,0.20143e-05_rb,0.25995e-05_rb, &\n        & 0.31924e-05_rb,0.38751e-05_rb,0.48509e-05_rb,0.23084e-05_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.19502e-07_rb,0.95711e-06_rb,0.17948e-05_rb,0.25536e-05_rb,0.32756e-05_rb, &\n        & 0.40127e-05_rb,0.48356e-05_rb,0.60502e-05_rb,0.26522e-05_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.20265e-07_rb,0.45716e-06_rb,0.10840e-05_rb,0.16034e-05_rb,0.20999e-05_rb, &\n        & 0.25681e-05_rb,0.30977e-05_rb,0.39107e-05_rb,0.52450e-05_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.21598e-07_rb,0.47132e-06_rb,0.11079e-05_rb,0.16263e-05_rb,0.21396e-05_rb, &\n        & 0.26164e-05_rb,0.31577e-05_rb,0.39701e-05_rb,0.52182e-05_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.24575e-07_rb,0.48601e-06_rb,0.11257e-05_rb,0.16486e-05_rb,0.21513e-05_rb, &\n        & 0.26585e-05_rb,0.32022e-05_rb,0.40354e-05_rb,0.51968e-05_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.24397e-07_rb,0.49804e-06_rb,0.11416e-05_rb,0.16645e-05_rb,0.21605e-05_rb, &\n        & 0.26639e-05_rb,0.32353e-05_rb,0.40822e-05_rb,0.51575e-05_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.24456e-07_rb,0.50499e-06_rb,0.11522e-05_rb,0.16738e-05_rb,0.21632e-05_rb, &\n        & 0.26629e-05_rb,0.32463e-05_rb,0.41051e-05_rb,0.51085e-05_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.28039e-07_rb,0.29800e-06_rb,0.81783e-06_rb,0.13008e-05_rb,0.17226e-05_rb, &\n        & 0.21163e-05_rb,0.25578e-05_rb,0.32519e-05_rb,0.82307e-05_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.29388e-07_rb,0.30492e-06_rb,0.83771e-06_rb,0.13192e-05_rb,0.17591e-05_rb, &\n        & 0.21563e-05_rb,0.26128e-05_rb,0.33130e-05_rb,0.81908e-05_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.29556e-07_rb,0.30866e-06_rb,0.85444e-06_rb,0.13376e-05_rb,0.17722e-05_rb, &\n        & 0.21943e-05_rb,0.26541e-05_rb,0.33584e-05_rb,0.81819e-05_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.26709e-07_rb,0.30951e-06_rb,0.86739e-06_rb,0.13505e-05_rb,0.17805e-05_rb, &\n        & 0.22093e-05_rb,0.26812e-05_rb,0.34009e-05_rb,0.81017e-05_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.27877e-07_rb,0.31158e-06_rb,0.87645e-06_rb,0.13597e-05_rb,0.17817e-05_rb, &\n        & 0.22083e-05_rb,0.26996e-05_rb,0.34240e-05_rb,0.80774e-05_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.34498e-07_rb,0.30504e-06_rb,0.50025e-06_rb,0.99104e-06_rb,0.13907e-05_rb, &\n        & 0.17284e-05_rb,0.20950e-05_rb,0.26875e-05_rb,0.12492e-04_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.34468e-07_rb,0.31253e-06_rb,0.51376e-06_rb,0.10029e-05_rb,0.14233e-05_rb, &\n        & 0.17665e-05_rb,0.21486e-05_rb,0.27439e-05_rb,0.12811e-04_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.33481e-07_rb,0.31885e-06_rb,0.52532e-06_rb,0.10176e-05_rb,0.14361e-05_rb, &\n        & 0.18000e-05_rb,0.21864e-05_rb,0.27713e-05_rb,0.12979e-04_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.35023e-07_rb,0.32212e-06_rb,0.53171e-06_rb,0.10292e-05_rb,0.14414e-05_rb, &\n        & 0.18222e-05_rb,0.22113e-05_rb,0.28111e-05_rb,0.13061e-04_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.38480e-07_rb,0.32386e-06_rb,0.53818e-06_rb,0.10355e-05_rb,0.14400e-05_rb, &\n        & 0.18162e-05_rb,0.22298e-05_rb,0.28367e-05_rb,0.13100e-04_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.41152e-07_rb,0.31870e-06_rb,0.36402e-06_rb,0.61613e-06_rb,0.10619e-05_rb, &\n        & 0.13940e-05_rb,0.17098e-05_rb,0.22173e-05_rb,0.27198e-04_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.47020e-07_rb,0.31765e-06_rb,0.37312e-06_rb,0.61961e-06_rb,0.10763e-05_rb, &\n        & 0.14273e-05_rb,0.17555e-05_rb,0.22573e-05_rb,0.28218e-04_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.48171e-07_rb,0.31526e-06_rb,0.38468e-06_rb,0.62540e-06_rb,0.10803e-05_rb, &\n        & 0.14543e-05_rb,0.17919e-05_rb,0.22822e-05_rb,0.28600e-04_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.52826e-07_rb,0.32481e-06_rb,0.38733e-06_rb,0.62721e-06_rb,0.10854e-05_rb, &\n        & 0.14750e-05_rb,0.18124e-05_rb,0.23140e-05_rb,0.29051e-04_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.56456e-07_rb,0.32727e-06_rb,0.38424e-06_rb,0.63178e-06_rb,0.10853e-05_rb, &\n        & 0.14692e-05_rb,0.18309e-05_rb,0.23369e-05_rb,0.29958e-04_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.62033e-07_rb,0.45418e-06_rb,0.43247e-06_rb,0.44775e-06_rb,0.62834e-06_rb, &\n        & 0.10534e-05_rb,0.13865e-05_rb,0.18301e-05_rb,0.47779e-04_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.66259e-07_rb,0.45321e-06_rb,0.43983e-06_rb,0.45223e-06_rb,0.63440e-06_rb, &\n        & 0.10746e-05_rb,0.14253e-05_rb,0.18534e-05_rb,0.48468e-04_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.78966e-07_rb,0.45246e-06_rb,0.44780e-06_rb,0.45868e-06_rb,0.63026e-06_rb, &\n        & 0.10842e-05_rb,0.14519e-05_rb,0.18794e-05_rb,0.49251e-04_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.87881e-07_rb,0.44642e-06_rb,0.45426e-06_rb,0.46583e-06_rb,0.63116e-06_rb, &\n        & 0.10925e-05_rb,0.14710e-05_rb,0.18965e-05_rb,0.49742e-04_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.92572e-07_rb,0.44310e-06_rb,0.45326e-06_rb,0.47005e-06_rb,0.63094e-06_rb, &\n        & 0.10763e-05_rb,0.14843e-05_rb,0.19214e-05_rb,0.50457e-04_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.10522e-06_rb,0.58600e-06_rb,0.57473e-06_rb,0.52150e-06_rb,0.51202e-06_rb, &\n        & 0.62383e-06_rb,0.10987e-05_rb,0.15032e-05_rb,0.50557e-04_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.98332e-07_rb,0.58669e-06_rb,0.57910e-06_rb,0.52997e-06_rb,0.52591e-06_rb, &\n        & 0.62992e-06_rb,0.11144e-05_rb,0.15271e-05_rb,0.52915e-04_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.10383e-06_rb,0.58976e-06_rb,0.58650e-06_rb,0.53573e-06_rb,0.53394e-06_rb, &\n        & 0.63743e-06_rb,0.11251e-05_rb,0.15415e-05_rb,0.55206e-04_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.10626e-06_rb,0.58622e-06_rb,0.58747e-06_rb,0.53868e-06_rb,0.53891e-06_rb, &\n        & 0.62645e-06_rb,0.11296e-05_rb,0.15628e-05_rb,0.58020e-04_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.10795e-06_rb,0.57800e-06_rb,0.58664e-06_rb,0.53883e-06_rb,0.54784e-06_rb, &\n        & 0.62145e-06_rb,0.11279e-05_rb,0.15782e-05_rb,0.60369e-04_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.11905e-06_rb,0.60759e-06_rb,0.68611e-06_rb,0.59318e-06_rb,0.53805e-06_rb, &\n        & 0.44962e-06_rb,0.74828e-06_rb,0.12279e-05_rb,0.57098e-04_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.12660e-06_rb,0.61695e-06_rb,0.68094e-06_rb,0.60079e-06_rb,0.55064e-06_rb, &\n        & 0.44953e-06_rb,0.74858e-06_rb,0.12489e-05_rb,0.55969e-04_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.12824e-06_rb,0.61561e-06_rb,0.67586e-06_rb,0.61662e-06_rb,0.55533e-06_rb, &\n        & 0.46796e-06_rb,0.74406e-06_rb,0.12615e-05_rb,0.57249e-04_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.12834e-06_rb,0.62554e-06_rb,0.67923e-06_rb,0.62343e-06_rb,0.55964e-06_rb, &\n        & 0.48091e-06_rb,0.73622e-06_rb,0.12795e-05_rb,0.58462e-04_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.13022e-06_rb,0.63206e-06_rb,0.68726e-06_rb,0.62663e-06_rb,0.56231e-06_rb, &\n        & 0.48008e-06_rb,0.72942e-06_rb,0.12885e-05_rb,0.57642e-04_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.15325e-06_rb,0.60909e-06_rb,0.76952e-06_rb,0.71232e-06_rb,0.57983e-06_rb, &\n        & 0.50489e-06_rb,0.48627e-06_rb,0.99183e-06_rb,0.58778e-04_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.15519e-06_rb,0.62152e-06_rb,0.78639e-06_rb,0.71888e-06_rb,0.59866e-06_rb, &\n        & 0.50930e-06_rb,0.48247e-06_rb,0.10069e-05_rb,0.57959e-04_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.17242e-06_rb,0.64099e-06_rb,0.78686e-06_rb,0.71502e-06_rb,0.60678e-06_rb, &\n        & 0.51633e-06_rb,0.47220e-06_rb,0.10180e-05_rb,0.56844e-04_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.18585e-06_rb,0.65002e-06_rb,0.78368e-06_rb,0.71421e-06_rb,0.61538e-06_rb, &\n        & 0.52650e-06_rb,0.46857e-06_rb,0.10263e-05_rb,0.55757e-04_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.19235e-06_rb,0.64166e-06_rb,0.76203e-06_rb,0.70622e-06_rb,0.61837e-06_rb, &\n        & 0.53042e-06_rb,0.45529e-06_rb,0.10275e-05_rb,0.55475e-04_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.95617e-08_rb,0.36774e-05_rb,0.65849e-05_rb,0.92221e-05_rb,0.11700e-04_rb, &\n        & 0.14161e-04_rb,0.16732e-04_rb,0.20350e-04_rb,0.14554e-04_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.93327e-08_rb,0.37537e-05_rb,0.66916e-05_rb,0.93495e-05_rb,0.11842e-04_rb, &\n        & 0.14289e-04_rb,0.16848e-04_rb,0.20318e-04_rb,0.14747e-04_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.98298e-08_rb,0.41944e-05_rb,0.75022e-05_rb,0.10503e-04_rb,0.13381e-04_rb, &\n        & 0.16104e-04_rb,0.19004e-04_rb,0.22601e-04_rb,0.17337e-04_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.92318e-08_rb,0.38872e-05_rb,0.68816e-05_rb,0.95784e-05_rb,0.12112e-04_rb, &\n        & 0.14510e-04_rb,0.17052e-04_rb,0.20522e-04_rb,0.14967e-04_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.98053e-08_rb,0.39438e-05_rb,0.69574e-05_rb,0.96665e-05_rb,0.12218e-04_rb, &\n        & 0.14607e-04_rb,0.17135e-04_rb,0.20557e-04_rb,0.15005e-04_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.99669e-08_rb,0.32456e-05_rb,0.58216e-05_rb,0.81575e-05_rb,0.10349e-04_rb, &\n        & 0.12573e-04_rb,0.14901e-04_rb,0.18163e-04_rb,0.12615e-04_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.12231e-07_rb,0.33138e-05_rb,0.59221e-05_rb,0.82752e-05_rb,0.10501e-04_rb, &\n        & 0.12666e-04_rb,0.15004e-04_rb,0.18147e-04_rb,0.12797e-04_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.10745e-07_rb,0.37581e-05_rb,0.67327e-05_rb,0.94426e-05_rb,0.12044e-04_rb, &\n        & 0.14533e-04_rb,0.17181e-04_rb,0.20503e-04_rb,0.15464e-04_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.11723e-07_rb,0.37897e-05_rb,0.67581e-05_rb,0.94584e-05_rb,0.12035e-04_rb, &\n        & 0.14508e-04_rb,0.17115e-04_rb,0.20450e-04_rb,0.15378e-04_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.10775e-07_rb,0.34864e-05_rb,0.61478e-05_rb,0.85479e-05_rb,0.10823e-04_rb, &\n        & 0.12985e-04_rb,0.15273e-04_rb,0.18381e-04_rb,0.12972e-04_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.12159e-07_rb,0.28311e-05_rb,0.50923e-05_rb,0.71433e-05_rb,0.90735e-05_rb, &\n        & 0.11042e-04_rb,0.13160e-04_rb,0.16141e-04_rb,0.10790e-04_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.11403e-07_rb,0.28950e-05_rb,0.51829e-05_rb,0.72481e-05_rb,0.92149e-05_rb, &\n        & 0.11135e-04_rb,0.13267e-04_rb,0.16084e-04_rb,0.10912e-04_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.12436e-07_rb,0.29531e-05_rb,0.52642e-05_rb,0.73461e-05_rb,0.93337e-05_rb, &\n        & 0.11250e-04_rb,0.13358e-04_rb,0.16208e-04_rb,0.10995e-04_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.14856e-07_rb,0.33723e-05_rb,0.60342e-05_rb,0.84579e-05_rb,0.10776e-04_rb, &\n        & 0.13025e-04_rb,0.15434e-04_rb,0.18466e-04_rb,0.13550e-04_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.16537e-07_rb,0.30506e-05_rb,0.53821e-05_rb,0.74897e-05_rb,0.94861e-05_rb, &\n        & 0.11421e-04_rb,0.13503e-04_rb,0.16308e-04_rb,0.11045e-04_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.13114e-07_rb,0.24467e-05_rb,0.44159e-05_rb,0.61941e-05_rb,0.78845e-05_rb, &\n        & 0.96031e-05_rb,0.11513e-04_rb,0.14234e-04_rb,0.89642e-05_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.15028e-07_rb,0.25040e-05_rb,0.44954e-05_rb,0.62931e-05_rb,0.80050e-05_rb, &\n        & 0.97056e-05_rb,0.11618e-04_rb,0.14175e-04_rb,0.90802e-05_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.18213e-07_rb,0.25556e-05_rb,0.45678e-05_rb,0.63789e-05_rb,0.81071e-05_rb, &\n        & 0.98077e-05_rb,0.11694e-04_rb,0.14301e-04_rb,0.91538e-05_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.19097e-07_rb,0.26037e-05_rb,0.46288e-05_rb,0.64476e-05_rb,0.81897e-05_rb, &\n        & 0.98941e-05_rb,0.11740e-04_rb,0.14344e-04_rb,0.91968e-05_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.18014e-07_rb,0.29993e-05_rb,0.53622e-05_rb,0.75209e-05_rb,0.95686e-05_rb, &\n        & 0.11571e-04_rb,0.13783e-04_rb,0.16522e-04_rb,0.11644e-04_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.21237e-07_rb,0.20921e-05_rb,0.37961e-05_rb,0.53264e-05_rb,0.67905e-05_rb, &\n        & 0.82846e-05_rb,0.99803e-05_rb,0.12512e-04_rb,0.44075e-05_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.23885e-07_rb,0.21444e-05_rb,0.38676e-05_rb,0.54146e-05_rb,0.68931e-05_rb, &\n        & 0.83832e-05_rb,0.10077e-04_rb,0.12417e-04_rb,0.44982e-05_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.20851e-07_rb,0.21906e-05_rb,0.39301e-05_rb,0.54900e-05_rb,0.69833e-05_rb, &\n        & 0.84513e-05_rb,0.10145e-04_rb,0.12513e-04_rb,0.45299e-05_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.22487e-07_rb,0.22322e-05_rb,0.39843e-05_rb,0.55506e-05_rb,0.70502e-05_rb, &\n        & 0.85357e-05_rb,0.10189e-04_rb,0.12546e-04_rb,0.45220e-05_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.23015e-07_rb,0.26442e-05_rb,0.47363e-05_rb,0.66520e-05_rb,0.84676e-05_rb, &\n        & 0.10272e-04_rb,0.12268e-04_rb,0.14801e-04_rb,0.72945e-05_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.22693e-07_rb,0.17592e-05_rb,0.32289e-05_rb,0.45327e-05_rb,0.57876e-05_rb, &\n        & 0.70822e-05_rb,0.85643e-05_rb,0.10966e-04_rb,0.53375e-05_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.22407e-07_rb,0.18081e-05_rb,0.32912e-05_rb,0.46136e-05_rb,0.58716e-05_rb, &\n        & 0.71710e-05_rb,0.86530e-05_rb,0.10805e-04_rb,0.53845e-05_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.22705e-07_rb,0.18504e-05_rb,0.33475e-05_rb,0.46786e-05_rb,0.59585e-05_rb, &\n        & 0.72252e-05_rb,0.87123e-05_rb,0.10876e-04_rb,0.53808e-05_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.23941e-07_rb,0.18862e-05_rb,0.33938e-05_rb,0.47325e-05_rb,0.60159e-05_rb, &\n        & 0.72910e-05_rb,0.87573e-05_rb,0.10893e-04_rb,0.53357e-05_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.27004e-07_rb,0.19136e-05_rb,0.34294e-05_rb,0.47766e-05_rb,0.60573e-05_rb, &\n        & 0.73309e-05_rb,0.87892e-05_rb,0.10892e-04_rb,0.52484e-05_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.27131e-07_rb,0.14236e-05_rb,0.27128e-05_rb,0.38203e-05_rb,0.48870e-05_rb, &\n        & 0.59983e-05_rb,0.72827e-05_rb,0.94729e-05_rb,0.86942e-05_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.26214e-07_rb,0.14673e-05_rb,0.27677e-05_rb,0.38940e-05_rb,0.49627e-05_rb, &\n        & 0.60727e-05_rb,0.73587e-05_rb,0.93332e-05_rb,0.87651e-05_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.29249e-07_rb,0.15085e-05_rb,0.28175e-05_rb,0.39503e-05_rb,0.50362e-05_rb, &\n        & 0.61230e-05_rb,0.74095e-05_rb,0.93608e-05_rb,0.87497e-05_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.35846e-07_rb,0.15423e-05_rb,0.28570e-05_rb,0.39988e-05_rb,0.50875e-05_rb, &\n        & 0.61709e-05_rb,0.74491e-05_rb,0.93691e-05_rb,0.88300e-05_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.36255e-07_rb,0.15665e-05_rb,0.28868e-05_rb,0.40378e-05_rb,0.51248e-05_rb, &\n        & 0.62083e-05_rb,0.74689e-05_rb,0.93597e-05_rb,0.88065e-05_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.37619e-07_rb,0.92017e-06_rb,0.22295e-05_rb,0.31821e-05_rb,0.40883e-05_rb, &\n        & 0.50331e-05_rb,0.61447e-05_rb,0.80461e-05_rb,0.15512e-04_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.43015e-07_rb,0.95048e-06_rb,0.22782e-05_rb,0.32493e-05_rb,0.41585e-05_rb, &\n        & 0.50968e-05_rb,0.61995e-05_rb,0.80232e-05_rb,0.15472e-04_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.47635e-07_rb,0.97934e-06_rb,0.23207e-05_rb,0.33002e-05_rb,0.42181e-05_rb, &\n        & 0.51430e-05_rb,0.62468e-05_rb,0.79821e-05_rb,0.15652e-04_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.48140e-07_rb,0.10026e-05_rb,0.23582e-05_rb,0.33416e-05_rb,0.42650e-05_rb, &\n        & 0.51734e-05_rb,0.62779e-05_rb,0.79833e-05_rb,0.15762e-04_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.45231e-07_rb,0.10212e-05_rb,0.23819e-05_rb,0.33754e-05_rb,0.42991e-05_rb, &\n        & 0.52146e-05_rb,0.62945e-05_rb,0.79701e-05_rb,0.15840e-04_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.48601e-07_rb,0.49350e-06_rb,0.16585e-05_rb,0.26009e-05_rb,0.33796e-05_rb, &\n        & 0.41888e-05_rb,0.51434e-05_rb,0.67867e-05_rb,0.26875e-04_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.49825e-07_rb,0.51680e-06_rb,0.16935e-05_rb,0.26607e-05_rb,0.34457e-05_rb, &\n        & 0.42434e-05_rb,0.51839e-05_rb,0.68587e-05_rb,0.27475e-04_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.52843e-07_rb,0.53573e-06_rb,0.17199e-05_rb,0.27038e-05_rb,0.35027e-05_rb, &\n        & 0.42858e-05_rb,0.52233e-05_rb,0.67410e-05_rb,0.28097e-04_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.49841e-07_rb,0.54248e-06_rb,0.17493e-05_rb,0.27418e-05_rb,0.35427e-05_rb, &\n        & 0.43127e-05_rb,0.52517e-05_rb,0.67418e-05_rb,0.28632e-04_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.50649e-07_rb,0.54940e-06_rb,0.17700e-05_rb,0.27695e-05_rb,0.35712e-05_rb, &\n        & 0.43482e-05_rb,0.52645e-05_rb,0.67282e-05_rb,0.28662e-04_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.82685e-07_rb,0.54022e-06_rb,0.87761e-06_rb,0.18752e-05_rb,0.27293e-05_rb, &\n        & 0.34506e-05_rb,0.42821e-05_rb,0.56501e-05_rb,0.44067e-04_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.87011e-07_rb,0.54017e-06_rb,0.89732e-06_rb,0.19208e-05_rb,0.27945e-05_rb, &\n        & 0.35005e-05_rb,0.43124e-05_rb,0.57881e-05_rb,0.45858e-04_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.79909e-07_rb,0.55355e-06_rb,0.90995e-06_rb,0.19451e-05_rb,0.28460e-05_rb, &\n        & 0.35425e-05_rb,0.43438e-05_rb,0.56593e-05_rb,0.45805e-04_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.75533e-07_rb,0.55705e-06_rb,0.92147e-06_rb,0.19661e-05_rb,0.28785e-05_rb, &\n        & 0.35628e-05_rb,0.43635e-05_rb,0.56526e-05_rb,0.46295e-04_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.76631e-07_rb,0.55159e-06_rb,0.93362e-06_rb,0.19832e-05_rb,0.29003e-05_rb, &\n        & 0.35965e-05_rb,0.43731e-05_rb,0.56385e-05_rb,0.46720e-04_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.11164e-06_rb,0.57710e-06_rb,0.71279e-06_rb,0.10003e-05_rb,0.19253e-05_rb, &\n        & 0.28027e-05_rb,0.35523e-05_rb,0.47607e-05_rb,0.51144e-04_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.11484e-06_rb,0.58649e-06_rb,0.71918e-06_rb,0.10167e-05_rb,0.19538e-05_rb, &\n        & 0.28431e-05_rb,0.35713e-05_rb,0.48333e-05_rb,0.49887e-04_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.11442e-06_rb,0.58483e-06_rb,0.70503e-06_rb,0.10320e-05_rb,0.19684e-05_rb, &\n        & 0.28674e-05_rb,0.35911e-05_rb,0.47191e-05_rb,0.50222e-04_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.11737e-06_rb,0.58895e-06_rb,0.70242e-06_rb,0.10442e-05_rb,0.19738e-05_rb, &\n        & 0.28962e-05_rb,0.36035e-05_rb,0.47045e-05_rb,0.48754e-04_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.12314e-06_rb,0.59299e-06_rb,0.70874e-06_rb,0.10470e-05_rb,0.19736e-05_rb, &\n        & 0.29100e-05_rb,0.36075e-05_rb,0.46813e-05_rb,0.45986e-04_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.14446e-06_rb,0.57459e-06_rb,0.72800e-06_rb,0.69912e-06_rb,0.11693e-05_rb, &\n        & 0.21457e-05_rb,0.29151e-05_rb,0.39683e-05_rb,0.42970e-04_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.14738e-06_rb,0.58568e-06_rb,0.75374e-06_rb,0.69814e-06_rb,0.11797e-05_rb, &\n        & 0.21759e-05_rb,0.29287e-05_rb,0.39942e-05_rb,0.41434e-04_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.15006e-06_rb,0.60144e-06_rb,0.75420e-06_rb,0.70559e-06_rb,0.11849e-05_rb, &\n        & 0.21718e-05_rb,0.29383e-05_rb,0.39185e-05_rb,0.42909e-04_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.15745e-06_rb,0.60776e-06_rb,0.75984e-06_rb,0.71270e-06_rb,0.11804e-05_rb, &\n        & 0.21578e-05_rb,0.29477e-05_rb,0.38939e-05_rb,0.41761e-04_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.16583e-06_rb,0.62207e-06_rb,0.74591e-06_rb,0.69746e-06_rb,0.11751e-05_rb, &\n        & 0.21552e-05_rb,0.29514e-05_rb,0.38695e-05_rb,0.45252e-04_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.18492e-06_rb,0.65841e-06_rb,0.74904e-06_rb,0.82698e-06_rb,0.69790e-06_rb, &\n        & 0.13356e-05_rb,0.23333e-05_rb,0.33010e-05_rb,0.43502e-04_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.18447e-06_rb,0.66115e-06_rb,0.74200e-06_rb,0.80748e-06_rb,0.68676e-06_rb, &\n        & 0.13419e-05_rb,0.23369e-05_rb,0.32873e-05_rb,0.44908e-04_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.20107e-06_rb,0.65387e-06_rb,0.73155e-06_rb,0.79291e-06_rb,0.67848e-06_rb, &\n        & 0.13368e-05_rb,0.23434e-05_rb,0.32337e-05_rb,0.47417e-04_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.20493e-06_rb,0.66191e-06_rb,0.72707e-06_rb,0.79839e-06_rb,0.67208e-06_rb, &\n        & 0.13273e-05_rb,0.23466e-05_rb,0.32075e-05_rb,0.48703e-04_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.20003e-06_rb,0.66753e-06_rb,0.73390e-06_rb,0.79794e-06_rb,0.66936e-06_rb, &\n        & 0.13150e-05_rb,0.23558e-05_rb,0.31828e-05_rb,0.50012e-04_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.45955e-07_rb,0.96988e-05_rb,0.16766e-04_rb,0.23073e-04_rb,0.28829e-04_rb, &\n        & 0.34350e-04_rb,0.39744e-04_rb,0.45071e-04_rb,0.36783e-04_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.57268e-07_rb,0.98413e-05_rb,0.16970e-04_rb,0.23311e-04_rb,0.29149e-04_rb, &\n        & 0.34726e-04_rb,0.40229e-04_rb,0.45682e-04_rb,0.37190e-04_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.70060e-07_rb,0.10517e-04_rb,0.18168e-04_rb,0.24965e-04_rb,0.31264e-04_rb, &\n        & 0.37439e-04_rb,0.43299e-04_rb,0.49335e-04_rb,0.41254e-04_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.84370e-07_rb,0.10120e-04_rb,0.17302e-04_rb,0.23633e-04_rb,0.29544e-04_rb, &\n        & 0.35368e-04_rb,0.40885e-04_rb,0.46535e-04_rb,0.37819e-04_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.97346e-07_rb,0.10254e-04_rb,0.17458e-04_rb,0.23773e-04_rb,0.29672e-04_rb, &\n        & 0.35542e-04_rb,0.41140e-04_rb,0.46864e-04_rb,0.38054e-04_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.27937e-07_rb,0.87332e-05_rb,0.15102e-04_rb,0.20785e-04_rb,0.26002e-04_rb, &\n        & 0.30993e-04_rb,0.35918e-04_rb,0.41124e-04_rb,0.32692e-04_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.34502e-07_rb,0.88655e-05_rb,0.15279e-04_rb,0.20992e-04_rb,0.26281e-04_rb, &\n        & 0.31393e-04_rb,0.36363e-04_rb,0.41768e-04_rb,0.33047e-04_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.45243e-07_rb,0.95567e-05_rb,0.16535e-04_rb,0.22740e-04_rb,0.28503e-04_rb, &\n        & 0.34161e-04_rb,0.39521e-04_rb,0.45509e-04_rb,0.37184e-04_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.56029e-07_rb,0.96404e-05_rb,0.16599e-04_rb,0.22759e-04_rb,0.28526e-04_rb, &\n        & 0.34207e-04_rb,0.39586e-04_rb,0.45601e-04_rb,0.37152e-04_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.67453e-07_rb,0.92372e-05_rb,0.15744e-04_rb,0.21435e-04_rb,0.26769e-04_rb, &\n        & 0.32085e-04_rb,0.37228e-04_rb,0.42908e-04_rb,0.33841e-04_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.21909e-07_rb,0.77821e-05_rb,0.13457e-04_rb,0.18525e-04_rb,0.23194e-04_rb, &\n        & 0.27662e-04_rb,0.32086e-04_rb,0.37089e-04_rb,0.28700e-04_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.25816e-07_rb,0.78998e-05_rb,0.13627e-04_rb,0.18723e-04_rb,0.23459e-04_rb, &\n        & 0.28049e-04_rb,0.32494e-04_rb,0.37775e-04_rb,0.29060e-04_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.28009e-07_rb,0.80177e-05_rb,0.13778e-04_rb,0.18883e-04_rb,0.23652e-04_rb, &\n        & 0.28348e-04_rb,0.32831e-04_rb,0.38183e-04_rb,0.29363e-04_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.32250e-07_rb,0.87000e-05_rb,0.14997e-04_rb,0.20591e-04_rb,0.25858e-04_rb, &\n        & 0.30984e-04_rb,0.35855e-04_rb,0.41716e-04_rb,0.33352e-04_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.38565e-07_rb,0.82442e-05_rb,0.14048e-04_rb,0.19147e-04_rb,0.23963e-04_rb, &\n        & 0.28712e-04_rb,0.33322e-04_rb,0.38841e-04_rb,0.29827e-04_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.27845e-07_rb,0.68782e-05_rb,0.11887e-04_rb,0.16370e-04_rb,0.20522e-04_rb, &\n        & 0.24507e-04_rb,0.28445e-04_rb,0.33146e-04_rb,0.25091e-04_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.30162e-07_rb,0.69860e-05_rb,0.12053e-04_rb,0.16569e-04_rb,0.20786e-04_rb, &\n        & 0.24863e-04_rb,0.28833e-04_rb,0.33823e-04_rb,0.25439e-04_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.31547e-07_rb,0.70934e-05_rb,0.12196e-04_rb,0.16734e-04_rb,0.20984e-04_rb, &\n        & 0.25140e-04_rb,0.29167e-04_rb,0.34188e-04_rb,0.25743e-04_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.30733e-07_rb,0.72009e-05_rb,0.12319e-04_rb,0.16870e-04_rb,0.21150e-04_rb, &\n        & 0.25350e-04_rb,0.29432e-04_rb,0.34551e-04_rb,0.26011e-04_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.33104e-07_rb,0.78742e-05_rb,0.13511e-04_rb,0.18536e-04_rb,0.23314e-04_rb, &\n        & 0.27934e-04_rb,0.32284e-04_rb,0.37983e-04_rb,0.29911e-04_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.31453e-07_rb,0.60344e-05_rb,0.10431e-04_rb,0.14360e-04_rb,0.18025e-04_rb, &\n        & 0.21556e-04_rb,0.25057e-04_rb,0.29352e-04_rb,0.21244e-04_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.32645e-07_rb,0.61373e-05_rb,0.10589e-04_rb,0.14561e-04_rb,0.18288e-04_rb, &\n        & 0.21896e-04_rb,0.25427e-04_rb,0.30041e-04_rb,0.21582e-04_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.36285e-07_rb,0.62371e-05_rb,0.10724e-04_rb,0.14730e-04_rb,0.18494e-04_rb, &\n        & 0.22175e-04_rb,0.25749e-04_rb,0.30401e-04_rb,0.21875e-04_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.35840e-07_rb,0.63361e-05_rb,0.10841e-04_rb,0.14872e-04_rb,0.18672e-04_rb, &\n        & 0.22386e-04_rb,0.26001e-04_rb,0.30772e-04_rb,0.22136e-04_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.34391e-07_rb,0.70384e-05_rb,0.12100e-04_rb,0.16639e-04_rb,0.20967e-04_rb, &\n        & 0.25106e-04_rb,0.29033e-04_rb,0.34382e-04_rb,0.26458e-04_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.38317e-07_rb,0.52554e-05_rb,0.90847e-05_rb,0.12506e-04_rb,0.15706e-04_rb, &\n        & 0.18802e-04_rb,0.21926e-04_rb,0.25721e-04_rb,0.82786e-05_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.42993e-07_rb,0.53521e-05_rb,0.92425e-05_rb,0.12708e-04_rb,0.15965e-04_rb, &\n        & 0.19131e-04_rb,0.22269e-04_rb,0.26449e-04_rb,0.85145e-05_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.43612e-07_rb,0.54474e-05_rb,0.93707e-05_rb,0.12875e-04_rb,0.16176e-04_rb, &\n        & 0.19407e-04_rb,0.22575e-04_rb,0.26830e-04_rb,0.87594e-05_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.42757e-07_rb,0.55405e-05_rb,0.94823e-05_rb,0.13019e-04_rb,0.16363e-04_rb, &\n        & 0.19625e-04_rb,0.22815e-04_rb,0.27200e-04_rb,0.90170e-05_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.43664e-07_rb,0.56274e-05_rb,0.95923e-05_rb,0.13140e-04_rb,0.16520e-04_rb, &\n        & 0.19797e-04_rb,0.22995e-04_rb,0.27528e-04_rb,0.91836e-05_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.39995e-07_rb,0.45414e-05_rb,0.78502e-05_rb,0.10801e-04_rb,0.13562e-04_rb, &\n        & 0.16248e-04_rb,0.19009e-04_rb,0.22439e-04_rb,0.93804e-05_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.43614e-07_rb,0.46331e-05_rb,0.80059e-05_rb,0.11000e-04_rb,0.13813e-04_rb, &\n        & 0.16577e-04_rb,0.19346e-04_rb,0.23103e-04_rb,0.95334e-05_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.45687e-07_rb,0.47201e-05_rb,0.81316e-05_rb,0.11167e-04_rb,0.14031e-04_rb, &\n        & 0.16844e-04_rb,0.19646e-04_rb,0.23513e-04_rb,0.96503e-05_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.48386e-07_rb,0.48081e-05_rb,0.82413e-05_rb,0.11310e-04_rb,0.14223e-04_rb, &\n        & 0.17063e-04_rb,0.19885e-04_rb,0.23881e-04_rb,0.95360e-05_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.54287e-07_rb,0.48899e-05_rb,0.83473e-05_rb,0.11434e-04_rb,0.14383e-04_rb, &\n        & 0.17240e-04_rb,0.20064e-04_rb,0.24201e-04_rb,0.94267e-05_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.45720e-07_rb,0.38685e-05_rb,0.67269e-05_rb,0.92537e-05_rb,0.11613e-04_rb, &\n        & 0.13930e-04_rb,0.16333e-04_rb,0.19500e-04_rb,0.15537e-04_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.46817e-07_rb,0.39568e-05_rb,0.68775e-05_rb,0.94493e-05_rb,0.11857e-04_rb, &\n        & 0.14250e-04_rb,0.16679e-04_rb,0.19983e-04_rb,0.15822e-04_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.48700e-07_rb,0.40362e-05_rb,0.70012e-05_rb,0.96148e-05_rb,0.12076e-04_rb, &\n        & 0.14508e-04_rb,0.16969e-04_rb,0.20440e-04_rb,0.15878e-04_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.54460e-07_rb,0.41199e-05_rb,0.71098e-05_rb,0.97580e-05_rb,0.12268e-04_rb, &\n        & 0.14725e-04_rb,0.17206e-04_rb,0.20805e-04_rb,0.16014e-04_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.59565e-07_rb,0.42000e-05_rb,0.72128e-05_rb,0.98789e-05_rb,0.12424e-04_rb, &\n        & 0.14896e-04_rb,0.17382e-04_rb,0.21113e-04_rb,0.15894e-04_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.60502e-07_rb,0.31758e-05_rb,0.57011e-05_rb,0.78602e-05_rb,0.98646e-05_rb, &\n        & 0.11842e-04_rb,0.13914e-04_rb,0.16812e-04_rb,0.32738e-04_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.61920e-07_rb,0.32583e-05_rb,0.58474e-05_rb,0.80501e-05_rb,0.10097e-04_rb, &\n        & 0.12150e-04_rb,0.14260e-04_rb,0.17128e-04_rb,0.32707e-04_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.66102e-07_rb,0.33410e-05_rb,0.59686e-05_rb,0.82148e-05_rb,0.10310e-04_rb, &\n        & 0.12398e-04_rb,0.14542e-04_rb,0.17650e-04_rb,0.33629e-04_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.86168e-07_rb,0.34261e-05_rb,0.60763e-05_rb,0.83539e-05_rb,0.10496e-04_rb, &\n        & 0.12604e-04_rb,0.14773e-04_rb,0.17994e-04_rb,0.33878e-04_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.91586e-07_rb,0.35057e-05_rb,0.61764e-05_rb,0.84703e-05_rb,0.10646e-04_rb, &\n        & 0.12765e-04_rb,0.14939e-04_rb,0.18282e-04_rb,0.33645e-04_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.96997e-07_rb,0.19211e-05_rb,0.47098e-05_rb,0.66155e-05_rb,0.83225e-05_rb, &\n        & 0.10005e-04_rb,0.11773e-04_rb,0.14404e-04_rb,0.53631e-04_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.96064e-07_rb,0.20141e-05_rb,0.48491e-05_rb,0.67941e-05_rb,0.85382e-05_rb, &\n        & 0.10290e-04_rb,0.12102e-04_rb,0.14626e-04_rb,0.54289e-04_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.10431e-06_rb,0.20834e-05_rb,0.49690e-05_rb,0.69520e-05_rb,0.87398e-05_rb, &\n        & 0.10520e-04_rb,0.12369e-04_rb,0.15124e-04_rb,0.55603e-04_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.11432e-06_rb,0.21653e-05_rb,0.50755e-05_rb,0.70852e-05_rb,0.89148e-05_rb, &\n        & 0.10714e-04_rb,0.12591e-04_rb,0.15457e-04_rb,0.56630e-04_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.11074e-06_rb,0.22480e-05_rb,0.51732e-05_rb,0.71951e-05_rb,0.90530e-05_rb, &\n        & 0.10860e-04_rb,0.12745e-04_rb,0.15721e-04_rb,0.54963e-04_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.15854e-06_rb,0.91297e-06_rb,0.32555e-05_rb,0.55113e-05_rb,0.70464e-05_rb, &\n        & 0.85121e-05_rb,0.10027e-04_rb,0.12303e-04_rb,0.52607e-04_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.16751e-06_rb,0.96634e-06_rb,0.33790e-05_rb,0.56722e-05_rb,0.72351e-05_rb, &\n        & 0.87519e-05_rb,0.10311e-04_rb,0.12547e-04_rb,0.52883e-04_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.16741e-06_rb,0.10318e-05_rb,0.35064e-05_rb,0.58058e-05_rb,0.74099e-05_rb, &\n        & 0.89413e-05_rb,0.10546e-04_rb,0.12998e-04_rb,0.52407e-04_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.16708e-06_rb,0.10925e-05_rb,0.36064e-05_rb,0.59145e-05_rb,0.75531e-05_rb, &\n        & 0.90996e-05_rb,0.10715e-04_rb,0.13285e-04_rb,0.53203e-04_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.16578e-06_rb,0.11490e-05_rb,0.36852e-05_rb,0.60104e-05_rb,0.76652e-05_rb, &\n        & 0.92182e-05_rb,0.10838e-04_rb,0.13496e-04_rb,0.54467e-04_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.17287e-06_rb,0.67222e-06_rb,0.20177e-05_rb,0.42045e-05_rb,0.58863e-05_rb, &\n        & 0.71911e-05_rb,0.84904e-05_rb,0.10467e-04_rb,0.53824e-04_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.17534e-06_rb,0.66930e-06_rb,0.20902e-05_rb,0.43510e-05_rb,0.60518e-05_rb, &\n        & 0.73834e-05_rb,0.87285e-05_rb,0.10723e-04_rb,0.57713e-04_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.19862e-06_rb,0.69271e-06_rb,0.21807e-05_rb,0.44473e-05_rb,0.61938e-05_rb, &\n        & 0.75395e-05_rb,0.89230e-05_rb,0.11082e-04_rb,0.58727e-04_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.20481e-06_rb,0.70155e-06_rb,0.22437e-05_rb,0.45330e-05_rb,0.63072e-05_rb, &\n        & 0.76639e-05_rb,0.90515e-05_rb,0.11316e-04_rb,0.62478e-04_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.22362e-06_rb,0.66686e-06_rb,0.23107e-05_rb,0.46277e-05_rb,0.64004e-05_rb, &\n        & 0.77560e-05_rb,0.91460e-05_rb,0.11480e-04_rb,0.61459e-04_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.24394e-06_rb,0.78850e-06_rb,0.10005e-05_rb,0.25869e-05_rb,0.46671e-05_rb, &\n        & 0.60110e-05_rb,0.71462e-05_rb,0.88357e-05_rb,0.59707e-04_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.25387e-06_rb,0.77656e-06_rb,0.10565e-05_rb,0.27093e-05_rb,0.48105e-05_rb, &\n        & 0.61610e-05_rb,0.73436e-05_rb,0.90989e-05_rb,0.60151e-04_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.22260e-06_rb,0.76604e-06_rb,0.11188e-05_rb,0.28168e-05_rb,0.49259e-05_rb, &\n        & 0.62864e-05_rb,0.74912e-05_rb,0.93777e-05_rb,0.58560e-04_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.22499e-06_rb,0.75979e-06_rb,0.11746e-05_rb,0.28869e-05_rb,0.50154e-05_rb, &\n        & 0.63819e-05_rb,0.75933e-05_rb,0.95633e-05_rb,0.61656e-04_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.22527e-06_rb,0.74699e-06_rb,0.12195e-05_rb,0.29526e-05_rb,0.50915e-05_rb, &\n        & 0.64528e-05_rb,0.76669e-05_rb,0.96909e-05_rb,0.60588e-04_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.29788e-05_rb,0.29380e-04_rb,0.47103e-04_rb,0.62484e-04_rb,0.75923e-04_rb, &\n        & 0.86945e-04_rb,0.96459e-04_rb,0.10727e-03_rb,0.95715e-04_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.31829e-05_rb,0.29542e-04_rb,0.47406e-04_rb,0.62987e-04_rb,0.76500e-04_rb, &\n        & 0.87575e-04_rb,0.97244e-04_rb,0.10847e-03_rb,0.96769e-04_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.34017e-05_rb,0.30451e-04_rb,0.49181e-04_rb,0.65673e-04_rb,0.79848e-04_rb, &\n        & 0.91475e-04_rb,0.10206e-03_rb,0.11418e-03_rb,0.10339e-03_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.36204e-05_rb,0.29858e-04_rb,0.47964e-04_rb,0.63849e-04_rb,0.77416e-04_rb, &\n        & 0.88495e-04_rb,0.98624e-04_rb,0.11030e-03_rb,0.98665e-04_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.38336e-05_rb,0.30032e-04_rb,0.48176e-04_rb,0.64174e-04_rb,0.77743e-04_rb, &\n        & 0.88899e-04_rb,0.99219e-04_rb,0.11117e-03_rb,0.99410e-04_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.24422e-05_rb,0.27039e-04_rb,0.43472e-04_rb,0.57657e-04_rb,0.69985e-04_rb, &\n        & 0.80297e-04_rb,0.89716e-04_rb,0.10091e-03_rb,0.87814e-04_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.26194e-05_rb,0.27224e-04_rb,0.43834e-04_rb,0.58227e-04_rb,0.70564e-04_rb, &\n        & 0.80899e-04_rb,0.90555e-04_rb,0.10201e-03_rb,0.88900e-04_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.28026e-05_rb,0.28185e-04_rb,0.45675e-04_rb,0.60941e-04_rb,0.73932e-04_rb, &\n        & 0.84933e-04_rb,0.95539e-04_rb,0.10795e-03_rb,0.95932e-04_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.29807e-05_rb,0.28297e-04_rb,0.45818e-04_rb,0.61151e-04_rb,0.74119e-04_rb, &\n        & 0.85132e-04_rb,0.95905e-04_rb,0.10857e-03_rb,0.96316e-04_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.31559e-05_rb,0.27777e-04_rb,0.44649e-04_rb,0.59431e-04_rb,0.71821e-04_rb, &\n        & 0.82324e-04_rb,0.92537e-04_rb,0.10487e-03_rb,0.91446e-04_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.19527e-05_rb,0.24728e-04_rb,0.39864e-04_rb,0.52777e-04_rb,0.63893e-04_rb, &\n        & 0.73441e-04_rb,0.82582e-04_rb,0.93968e-04_rb,0.79571e-04_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.21028e-05_rb,0.24948e-04_rb,0.40273e-04_rb,0.53366e-04_rb,0.64472e-04_rb, &\n        & 0.74070e-04_rb,0.83496e-04_rb,0.95166e-04_rb,0.80711e-04_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.22571e-05_rb,0.25146e-04_rb,0.40613e-04_rb,0.53873e-04_rb,0.64998e-04_rb, &\n        & 0.74638e-04_rb,0.84298e-04_rb,0.96249e-04_rb,0.81670e-04_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.24052e-05_rb,0.26082e-04_rb,0.42367e-04_rb,0.56407e-04_rb,0.68204e-04_rb, &\n        & 0.78600e-04_rb,0.89199e-04_rb,0.10217e-03_rb,0.88502e-04_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.25493e-05_rb,0.25521e-04_rb,0.41156e-04_rb,0.54597e-04_rb,0.65795e-04_rb, &\n        & 0.75610e-04_rb,0.85600e-04_rb,0.98234e-04_rb,0.83132e-04_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.15249e-05_rb,0.22458e-04_rb,0.36230e-04_rb,0.47832e-04_rb,0.57788e-04_rb, &\n        & 0.66572e-04_rb,0.75267e-04_rb,0.86613e-04_rb,0.71765e-04_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.16472e-05_rb,0.22706e-04_rb,0.36674e-04_rb,0.48420e-04_rb,0.58373e-04_rb, &\n        & 0.67233e-04_rb,0.76205e-04_rb,0.87918e-04_rb,0.72872e-04_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.17727e-05_rb,0.22924e-04_rb,0.37041e-04_rb,0.48925e-04_rb,0.58917e-04_rb, &\n        & 0.67822e-04_rb,0.77056e-04_rb,0.89127e-04_rb,0.73812e-04_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.18979e-05_rb,0.23116e-04_rb,0.37363e-04_rb,0.49353e-04_rb,0.59386e-04_rb, &\n        & 0.68373e-04_rb,0.77816e-04_rb,0.90208e-04_rb,0.74597e-04_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.20187e-05_rb,0.24032e-04_rb,0.39090e-04_rb,0.51784e-04_rb,0.62486e-04_rb, &\n        & 0.72274e-04_rb,0.82652e-04_rb,0.95944e-04_rb,0.81360e-04_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.11616e-05_rb,0.20230e-04_rb,0.32593e-04_rb,0.43015e-04_rb,0.51913e-04_rb, &\n        & 0.59885e-04_rb,0.68041e-04_rb,0.79091e-04_rb,0.64237e-04_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.12634e-05_rb,0.20493e-04_rb,0.33052e-04_rb,0.43575e-04_rb,0.52485e-04_rb, &\n        & 0.60579e-04_rb,0.68993e-04_rb,0.80447e-04_rb,0.65308e-04_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.13665e-05_rb,0.20722e-04_rb,0.33449e-04_rb,0.44078e-04_rb,0.53031e-04_rb, &\n        & 0.61206e-04_rb,0.69878e-04_rb,0.81712e-04_rb,0.66219e-04_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.14654e-05_rb,0.20926e-04_rb,0.33806e-04_rb,0.44507e-04_rb,0.53511e-04_rb, &\n        & 0.61775e-04_rb,0.70644e-04_rb,0.82800e-04_rb,0.67010e-04_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.15654e-05_rb,0.21919e-04_rb,0.35683e-04_rb,0.47135e-04_rb,0.56892e-04_rb, &\n        & 0.66014e-04_rb,0.75901e-04_rb,0.88948e-04_rb,0.74367e-04_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.85477e-06_rb,0.18056e-04_rb,0.29058e-04_rb,0.38374e-04_rb,0.46318e-04_rb, &\n        & 0.53503e-04_rb,0.60983e-04_rb,0.71567e-04_rb,0.55220e-04_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.93399e-06_rb,0.18333e-04_rb,0.29518e-04_rb,0.38924e-04_rb,0.46903e-04_rb, &\n        & 0.54228e-04_rb,0.61990e-04_rb,0.72960e-04_rb,0.56327e-04_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.10173e-05_rb,0.18568e-04_rb,0.29940e-04_rb,0.39430e-04_rb,0.47457e-04_rb, &\n        & 0.54891e-04_rb,0.62912e-04_rb,0.74219e-04_rb,0.57262e-04_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.10990e-05_rb,0.18773e-04_rb,0.30321e-04_rb,0.39858e-04_rb,0.47937e-04_rb, &\n        & 0.55463e-04_rb,0.63685e-04_rb,0.75339e-04_rb,0.58060e-04_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.11736e-05_rb,0.18980e-04_rb,0.30632e-04_rb,0.40210e-04_rb,0.48338e-04_rb, &\n        & 0.55952e-04_rb,0.64349e-04_rb,0.76243e-04_rb,0.58787e-04_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.60315e-06_rb,0.15982e-04_rb,0.25725e-04_rb,0.33991e-04_rb,0.41066e-04_rb, &\n        & 0.47516e-04_rb,0.54302e-04_rb,0.64196e-04_rb,0.19175e-04_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.66792e-06_rb,0.16270e-04_rb,0.26184e-04_rb,0.34534e-04_rb,0.41673e-04_rb, &\n        & 0.48253e-04_rb,0.55322e-04_rb,0.65617e-04_rb,0.20214e-04_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.72908e-06_rb,0.16517e-04_rb,0.26616e-04_rb,0.35037e-04_rb,0.42229e-04_rb, &\n        & 0.48924e-04_rb,0.56239e-04_rb,0.66903e-04_rb,0.21171e-04_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.78570e-06_rb,0.16735e-04_rb,0.27002e-04_rb,0.35463e-04_rb,0.42700e-04_rb, &\n        & 0.49504e-04_rb,0.57015e-04_rb,0.68011e-04_rb,0.22118e-04_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.83832e-06_rb,0.16948e-04_rb,0.27325e-04_rb,0.35815e-04_rb,0.43102e-04_rb, &\n        & 0.50003e-04_rb,0.57693e-04_rb,0.68917e-04_rb,0.22989e-04_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.37835e-06_rb,0.14042e-04_rb,0.22619e-04_rb,0.29906e-04_rb,0.36184e-04_rb, &\n        & 0.41943e-04_rb,0.48058e-04_rb,0.57159e-04_rb,0.15030e-04_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.42400e-06_rb,0.14336e-04_rb,0.23076e-04_rb,0.30441e-04_rb,0.36790e-04_rb, &\n        & 0.42677e-04_rb,0.49055e-04_rb,0.58574e-04_rb,0.15267e-04_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.47003e-06_rb,0.14598e-04_rb,0.23503e-04_rb,0.30926e-04_rb,0.37338e-04_rb, &\n        & 0.43345e-04_rb,0.49944e-04_rb,0.59871e-04_rb,0.15168e-04_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.50983e-06_rb,0.14832e-04_rb,0.23887e-04_rb,0.31342e-04_rb,0.37806e-04_rb, &\n        & 0.43932e-04_rb,0.50714e-04_rb,0.60954e-04_rb,0.15479e-04_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.55238e-06_rb,0.15050e-04_rb,0.24211e-04_rb,0.31698e-04_rb,0.38215e-04_rb, &\n        & 0.44447e-04_rb,0.51404e-04_rb,0.61843e-04_rb,0.15864e-04_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.20614e-06_rb,0.12247e-04_rb,0.19755e-04_rb,0.26136e-04_rb,0.31671e-04_rb, &\n        & 0.36795e-04_rb,0.42267e-04_rb,0.50480e-04_rb,0.31415e-04_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.22820e-06_rb,0.12543e-04_rb,0.20203e-04_rb,0.26660e-04_rb,0.32273e-04_rb, &\n        & 0.37518e-04_rb,0.43228e-04_rb,0.51895e-04_rb,0.32257e-04_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.25381e-06_rb,0.12814e-04_rb,0.20621e-04_rb,0.27129e-04_rb,0.32814e-04_rb, &\n        & 0.38186e-04_rb,0.44095e-04_rb,0.53151e-04_rb,0.31766e-04_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.26266e-06_rb,0.13056e-04_rb,0.20991e-04_rb,0.27538e-04_rb,0.33285e-04_rb, &\n        & 0.38781e-04_rb,0.44859e-04_rb,0.54214e-04_rb,0.32184e-04_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.28878e-06_rb,0.13277e-04_rb,0.21308e-04_rb,0.27899e-04_rb,0.33704e-04_rb, &\n        & 0.39313e-04_rb,0.45556e-04_rb,0.55111e-04_rb,0.32436e-04_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.12421e-06_rb,0.10598e-04_rb,0.17170e-04_rb,0.22745e-04_rb,0.27597e-04_rb, &\n        & 0.32129e-04_rb,0.37024e-04_rb,0.44410e-04_rb,0.36288e-04_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.11833e-06_rb,0.10888e-04_rb,0.17606e-04_rb,0.23251e-04_rb,0.28191e-04_rb, &\n        & 0.32843e-04_rb,0.37957e-04_rb,0.45757e-04_rb,0.36706e-04_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.11564e-06_rb,0.11153e-04_rb,0.18009e-04_rb,0.23706e-04_rb,0.28726e-04_rb, &\n        & 0.33507e-04_rb,0.38804e-04_rb,0.46971e-04_rb,0.39285e-04_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.11888e-06_rb,0.11400e-04_rb,0.18364e-04_rb,0.24104e-04_rb,0.29196e-04_rb, &\n        & 0.34101e-04_rb,0.39555e-04_rb,0.47996e-04_rb,0.37765e-04_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.13250e-06_rb,0.11625e-04_rb,0.18671e-04_rb,0.24463e-04_rb,0.29622e-04_rb, &\n        & 0.34646e-04_rb,0.40249e-04_rb,0.48876e-04_rb,0.41184e-04_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.17958e-06_rb,0.90757e-05_rb,0.15007e-04_rb,0.19889e-04_rb,0.24154e-04_rb, &\n        & 0.28187e-04_rb,0.32636e-04_rb,0.39437e-04_rb,0.34162e-04_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.18139e-06_rb,0.93666e-05_rb,0.15418e-04_rb,0.20361e-04_rb,0.24716e-04_rb, &\n        & 0.28864e-04_rb,0.33507e-04_rb,0.40680e-04_rb,0.35787e-04_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.18275e-06_rb,0.96291e-05_rb,0.15787e-04_rb,0.20786e-04_rb,0.25221e-04_rb, &\n        & 0.29495e-04_rb,0.34295e-04_rb,0.41765e-04_rb,0.33878e-04_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.18574e-06_rb,0.98743e-05_rb,0.16117e-04_rb,0.21165e-04_rb,0.25673e-04_rb, &\n        & 0.30069e-04_rb,0.35015e-04_rb,0.42686e-04_rb,0.32841e-04_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.20082e-06_rb,0.10102e-04_rb,0.16409e-04_rb,0.21512e-04_rb,0.26096e-04_rb, &\n        & 0.30600e-04_rb,0.35678e-04_rb,0.43526e-04_rb,0.33904e-04_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.23860e-06_rb,0.72127e-05_rb,0.13015e-04_rb,0.17297e-04_rb,0.21033e-04_rb, &\n        & 0.24600e-04_rb,0.28604e-04_rb,0.34818e-04_rb,0.40933e-04_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.23391e-06_rb,0.75352e-05_rb,0.13408e-04_rb,0.17740e-04_rb,0.21564e-04_rb, &\n        & 0.25251e-04_rb,0.29426e-04_rb,0.35947e-04_rb,0.39399e-04_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.24701e-06_rb,0.78057e-05_rb,0.13760e-04_rb,0.18144e-04_rb,0.22045e-04_rb, &\n        & 0.25844e-04_rb,0.30162e-04_rb,0.36924e-04_rb,0.38294e-04_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.26761e-06_rb,0.80774e-05_rb,0.14071e-04_rb,0.18509e-04_rb,0.22485e-04_rb, &\n        & 0.26399e-04_rb,0.30850e-04_rb,0.37793e-04_rb,0.37310e-04_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.23665e-06_rb,0.83711e-05_rb,0.14360e-04_rb,0.18850e-04_rb,0.22903e-04_rb, &\n        & 0.26918e-04_rb,0.31485e-04_rb,0.38601e-04_rb,0.34593e-04_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.27521e-06_rb,0.50755e-05_rb,0.11059e-04_rb,0.14942e-04_rb,0.18221e-04_rb, &\n        & 0.21366e-04_rb,0.24941e-04_rb,0.30569e-04_rb,0.35909e-04_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.25317e-06_rb,0.53749e-05_rb,0.11450e-04_rb,0.15364e-04_rb,0.18725e-04_rb, &\n        & 0.21982e-04_rb,0.25707e-04_rb,0.31598e-04_rb,0.37411e-04_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.23895e-06_rb,0.56684e-05_rb,0.11800e-04_rb,0.15745e-04_rb,0.19182e-04_rb, &\n        & 0.22548e-04_rb,0.26403e-04_rb,0.32490e-04_rb,0.35715e-04_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.23323e-06_rb,0.59219e-05_rb,0.12110e-04_rb,0.16104e-04_rb,0.19621e-04_rb, &\n        & 0.23090e-04_rb,0.27069e-04_rb,0.33309e-04_rb,0.26489e-04_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.23115e-06_rb,0.61949e-05_rb,0.12408e-04_rb,0.16438e-04_rb,0.20031e-04_rb, &\n        & 0.23602e-04_rb,0.27683e-04_rb,0.34068e-04_rb,0.26612e-04_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.91507e-04_rb,0.14710e-03_rb,0.19128e-03_rb,0.22605e-03_rb,0.25532e-03_rb, &\n        & 0.28077e-03_rb,0.30345e-03_rb,0.32646e-03_rb,0.30807e-03_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.91242e-04_rb,0.14642e-03_rb,0.19074e-03_rb,0.22564e-03_rb,0.25500e-03_rb, &\n        & 0.28086e-03_rb,0.30369e-03_rb,0.32690e-03_rb,0.30957e-03_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.90877e-04_rb,0.14692e-03_rb,0.19251e-03_rb,0.22869e-03_rb,0.25946e-03_rb, &\n        & 0.28682e-03_rb,0.31087e-03_rb,0.33538e-03_rb,0.32011e-03_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.90459e-04_rb,0.14494e-03_rb,0.18943e-03_rb,0.22459e-03_rb,0.25465e-03_rb, &\n        & 0.28114e-03_rb,0.30414e-03_rb,0.32755e-03_rb,0.31196e-03_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.89993e-04_rb,0.14416e-03_rb,0.18875e-03_rb,0.22408e-03_rb,0.25453e-03_rb, &\n        & 0.28137e-03_rb,0.30449e-03_rb,0.32780e-03_rb,0.31307e-03_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.77262e-04_rb,0.13432e-03_rb,0.17769e-03_rb,0.21240e-03_rb,0.24204e-03_rb, &\n        & 0.26866e-03_rb,0.29235e-03_rb,0.31628e-03_rb,0.29582e-03_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.77061e-04_rb,0.13375e-03_rb,0.17727e-03_rb,0.21210e-03_rb,0.24206e-03_rb, &\n        & 0.26905e-03_rb,0.29288e-03_rb,0.31707e-03_rb,0.29754e-03_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.76803e-04_rb,0.13443e-03_rb,0.17926e-03_rb,0.21557e-03_rb,0.24713e-03_rb, &\n        & 0.27557e-03_rb,0.30072e-03_rb,0.32610e-03_rb,0.30880e-03_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.76502e-04_rb,0.13372e-03_rb,0.17855e-03_rb,0.21503e-03_rb,0.24689e-03_rb, &\n        & 0.27560e-03_rb,0.30084e-03_rb,0.32601e-03_rb,0.30963e-03_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.76149e-04_rb,0.13198e-03_rb,0.17568e-03_rb,0.21133e-03_rb,0.24254e-03_rb, &\n        & 0.27051e-03_rb,0.29485e-03_rb,0.31890e-03_rb,0.30223e-03_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.65103e-04_rb,0.12258e-03_rb,0.16452e-03_rb,0.19865e-03_rb,0.22866e-03_rb, &\n        & 0.25591e-03_rb,0.28055e-03_rb,0.30511e-03_rb,0.28178e-03_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.64961e-04_rb,0.12216e-03_rb,0.16424e-03_rb,0.19863e-03_rb,0.22903e-03_rb, &\n        & 0.25664e-03_rb,0.28152e-03_rb,0.30626e-03_rb,0.28379e-03_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.64796e-04_rb,0.12170e-03_rb,0.16393e-03_rb,0.19861e-03_rb,0.22948e-03_rb, &\n        & 0.25740e-03_rb,0.28253e-03_rb,0.30727e-03_rb,0.28578e-03_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.64583e-04_rb,0.12248e-03_rb,0.16600e-03_rb,0.20227e-03_rb,0.23481e-03_rb, &\n        & 0.26421e-03_rb,0.29055e-03_rb,0.31636e-03_rb,0.29736e-03_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.64341e-04_rb,0.12081e-03_rb,0.16325e-03_rb,0.19869e-03_rb,0.23043e-03_rb, &\n        & 0.25903e-03_rb,0.28445e-03_rb,0.30920e-03_rb,0.28976e-03_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.54784e-04_rb,0.11174e-03_rb,0.15188e-03_rb,0.18523e-03_rb,0.21503e-03_rb, &\n        & 0.24239e-03_rb,0.26770e-03_rb,0.29311e-03_rb,0.26685e-03_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.54700e-04_rb,0.11144e-03_rb,0.15177e-03_rb,0.18550e-03_rb,0.21578e-03_rb, &\n        & 0.24348e-03_rb,0.26903e-03_rb,0.29466e-03_rb,0.26928e-03_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.54592e-04_rb,0.11111e-03_rb,0.15167e-03_rb,0.18578e-03_rb,0.21655e-03_rb, &\n        & 0.24456e-03_rb,0.27029e-03_rb,0.29609e-03_rb,0.27162e-03_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.54457e-04_rb,0.11078e-03_rb,0.15152e-03_rb,0.18607e-03_rb,0.21728e-03_rb, &\n        & 0.24565e-03_rb,0.27151e-03_rb,0.29746e-03_rb,0.27399e-03_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.54312e-04_rb,0.11162e-03_rb,0.15369e-03_rb,0.18993e-03_rb,0.22281e-03_rb, &\n        & 0.25263e-03_rb,0.27972e-03_rb,0.30664e-03_rb,0.28593e-03_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.46088e-04_rb,0.10164e-03_rb,0.13985e-03_rb,0.17192e-03_rb,0.20105e-03_rb, &\n        & 0.22810e-03_rb,0.25365e-03_rb,0.28019e-03_rb,0.25169e-03_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.46037e-04_rb,0.10150e-03_rb,0.13996e-03_rb,0.17251e-03_rb,0.20208e-03_rb, &\n        & 0.22949e-03_rb,0.25532e-03_rb,0.28211e-03_rb,0.25438e-03_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.45971e-04_rb,0.10129e-03_rb,0.14008e-03_rb,0.17302e-03_rb,0.20310e-03_rb, &\n        & 0.23085e-03_rb,0.25690e-03_rb,0.28385e-03_rb,0.25702e-03_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.45890e-04_rb,0.10111e-03_rb,0.14015e-03_rb,0.17355e-03_rb,0.20405e-03_rb, &\n        & 0.23221e-03_rb,0.25843e-03_rb,0.28547e-03_rb,0.25970e-03_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.45808e-04_rb,0.10210e-03_rb,0.14263e-03_rb,0.17783e-03_rb,0.21010e-03_rb, &\n        & 0.23994e-03_rb,0.26750e-03_rb,0.29545e-03_rb,0.27288e-03_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.38759e-04_rb,0.92287e-04_rb,0.12830e-03_rb,0.15873e-03_rb,0.18673e-03_rb, &\n        & 0.21305e-03_rb,0.23858e-03_rb,0.26603e-03_rb,0.23576e-03_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.38742e-04_rb,0.92285e-04_rb,0.12860e-03_rb,0.15956e-03_rb,0.18804e-03_rb, &\n        & 0.21479e-03_rb,0.24061e-03_rb,0.26833e-03_rb,0.23876e-03_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.38716e-04_rb,0.92248e-04_rb,0.12890e-03_rb,0.16031e-03_rb,0.18934e-03_rb, &\n        & 0.21647e-03_rb,0.24252e-03_rb,0.27042e-03_rb,0.24167e-03_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.38672e-04_rb,0.92189e-04_rb,0.12914e-03_rb,0.16108e-03_rb,0.19055e-03_rb, &\n        & 0.21815e-03_rb,0.24441e-03_rb,0.27232e-03_rb,0.24468e-03_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.38631e-04_rb,0.92110e-04_rb,0.12940e-03_rb,0.16181e-03_rb,0.19180e-03_rb, &\n        & 0.21982e-03_rb,0.24634e-03_rb,0.27420e-03_rb,0.24778e-03_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.32524e-04_rb,0.83578e-04_rb,0.11715e-03_rb,0.14581e-03_rb,0.17242e-03_rb, &\n        & 0.19778e-03_rb,0.22289e-03_rb,0.25099e-03_rb,0.21544e-03_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.32544e-04_rb,0.83724e-04_rb,0.11765e-03_rb,0.14685e-03_rb,0.17402e-03_rb, &\n        & 0.19984e-03_rb,0.22531e-03_rb,0.25360e-03_rb,0.21897e-03_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.32541e-04_rb,0.83837e-04_rb,0.11812e-03_rb,0.14785e-03_rb,0.17560e-03_rb, &\n        & 0.20184e-03_rb,0.22764e-03_rb,0.25604e-03_rb,0.22234e-03_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.32522e-04_rb,0.83911e-04_rb,0.11855e-03_rb,0.14886e-03_rb,0.17710e-03_rb, &\n        & 0.20381e-03_rb,0.22989e-03_rb,0.25831e-03_rb,0.22586e-03_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.32511e-04_rb,0.83972e-04_rb,0.11899e-03_rb,0.14985e-03_rb,0.17863e-03_rb, &\n        & 0.20577e-03_rb,0.23212e-03_rb,0.26056e-03_rb,0.22930e-03_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.27162e-04_rb,0.75477e-04_rb,0.10657e-03_rb,0.13337e-03_rb,0.15848e-03_rb, &\n        & 0.18267e-03_rb,0.20707e-03_rb,0.23532e-03_rb,0.10685e-03_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.27219e-04_rb,0.75747e-04_rb,0.10724e-03_rb,0.13464e-03_rb,0.16036e-03_rb, &\n        & 0.18507e-03_rb,0.20988e-03_rb,0.23834e-03_rb,0.11049e-03_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.27240e-04_rb,0.75981e-04_rb,0.10788e-03_rb,0.13591e-03_rb,0.16217e-03_rb, &\n        & 0.18731e-03_rb,0.21250e-03_rb,0.24115e-03_rb,0.11463e-03_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.27241e-04_rb,0.76175e-04_rb,0.10851e-03_rb,0.13715e-03_rb,0.16392e-03_rb, &\n        & 0.18952e-03_rb,0.21504e-03_rb,0.24375e-03_rb,0.11830e-03_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.27254e-04_rb,0.76338e-04_rb,0.10913e-03_rb,0.13836e-03_rb,0.16569e-03_rb, &\n        & 0.19172e-03_rb,0.21755e-03_rb,0.24638e-03_rb,0.12227e-03_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.22546e-04_rb,0.67903e-04_rb,0.96628e-04_rb,0.12150e-03_rb,0.14489e-03_rb, &\n        & 0.16757e-03_rb,0.19095e-03_rb,0.21913e-03_rb,0.25626e-04_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.22635e-04_rb,0.68268e-04_rb,0.97460e-04_rb,0.12301e-03_rb,0.14702e-03_rb, &\n        & 0.17028e-03_rb,0.19411e-03_rb,0.22260e-03_rb,0.25839e-04_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.22685e-04_rb,0.68616e-04_rb,0.98277e-04_rb,0.12450e-03_rb,0.14909e-03_rb, &\n        & 0.17284e-03_rb,0.19709e-03_rb,0.22578e-03_rb,0.27443e-04_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.22709e-04_rb,0.68929e-04_rb,0.99095e-04_rb,0.12593e-03_rb,0.15108e-03_rb, &\n        & 0.17530e-03_rb,0.19995e-03_rb,0.22878e-03_rb,0.28531e-04_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.22740e-04_rb,0.69227e-04_rb,0.99896e-04_rb,0.12734e-03_rb,0.15306e-03_rb, &\n        & 0.17777e-03_rb,0.20277e-03_rb,0.23170e-03_rb,0.28894e-04_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.18403e-04_rb,0.60856e-04_rb,0.87340e-04_rb,0.11017e-03_rb,0.13174e-03_rb, &\n        & 0.15284e-03_rb,0.17492e-03_rb,0.20267e-03_rb,0.31931e-04_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.18527e-04_rb,0.61329e-04_rb,0.88371e-04_rb,0.11191e-03_rb,0.13412e-03_rb, &\n        & 0.15579e-03_rb,0.17838e-03_rb,0.20650e-03_rb,0.29084e-04_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.18600e-04_rb,0.61796e-04_rb,0.89354e-04_rb,0.11363e-03_rb,0.13643e-03_rb, &\n        & 0.15861e-03_rb,0.18170e-03_rb,0.21009e-03_rb,0.27893e-04_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.18642e-04_rb,0.62226e-04_rb,0.90339e-04_rb,0.11526e-03_rb,0.13867e-03_rb, &\n        & 0.16137e-03_rb,0.18486e-03_rb,0.21346e-03_rb,0.33895e-04_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.18688e-04_rb,0.62651e-04_rb,0.91302e-04_rb,0.11690e-03_rb,0.14093e-03_rb, &\n        & 0.16416e-03_rb,0.18804e-03_rb,0.21676e-03_rb,0.31724e-04_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.14636e-04_rb,0.54588e-04_rb,0.79114e-04_rb,0.10030e-03_rb,0.12035e-03_rb, &\n        & 0.14003e-03_rb,0.16089e-03_rb,0.18797e-03_rb,0.24886e-04_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.14721e-04_rb,0.55182e-04_rb,0.80295e-04_rb,0.10221e-03_rb,0.12288e-03_rb, &\n        & 0.14315e-03_rb,0.16455e-03_rb,0.19200e-03_rb,0.28280e-04_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.14784e-04_rb,0.55751e-04_rb,0.81465e-04_rb,0.10405e-03_rb,0.12535e-03_rb, &\n        & 0.14614e-03_rb,0.16802e-03_rb,0.19578e-03_rb,0.31405e-04_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.14831e-04_rb,0.56293e-04_rb,0.82611e-04_rb,0.10589e-03_rb,0.12782e-03_rb, &\n        & 0.14918e-03_rb,0.17147e-03_rb,0.19942e-03_rb,0.34684e-04_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.14856e-04_rb,0.56829e-04_rb,0.83754e-04_rb,0.10776e-03_rb,0.13034e-03_rb, &\n        & 0.15225e-03_rb,0.17499e-03_rb,0.20312e-03_rb,0.30970e-04_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.11572e-04_rb,0.48876e-04_rb,0.71553e-04_rb,0.91191e-04_rb,0.10973e-03_rb, &\n        & 0.12799e-03_rb,0.14756e-03_rb,0.17351e-03_rb,0.30682e-04_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.11642e-04_rb,0.49592e-04_rb,0.72882e-04_rb,0.93233e-04_rb,0.11240e-03_rb, &\n        & 0.13124e-03_rb,0.15132e-03_rb,0.17770e-03_rb,0.31240e-04_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.11629e-04_rb,0.50261e-04_rb,0.74205e-04_rb,0.95210e-04_rb,0.11505e-03_rb, &\n        & 0.13447e-03_rb,0.15502e-03_rb,0.18170e-03_rb,0.31943e-04_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.11633e-04_rb,0.50925e-04_rb,0.75501e-04_rb,0.97246e-04_rb,0.11773e-03_rb, &\n        & 0.13775e-03_rb,0.15878e-03_rb,0.18567e-03_rb,0.23441e-04_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.11677e-04_rb,0.51560e-04_rb,0.76851e-04_rb,0.99310e-04_rb,0.12044e-03_rb, &\n        & 0.14103e-03_rb,0.16255e-03_rb,0.18968e-03_rb,0.23249e-04_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.88185e-05_rb,0.43709e-04_rb,0.64627e-04_rb,0.82824e-04_rb,0.99889e-04_rb, &\n        & 0.11672e-03_rb,0.13488e-03_rb,0.15952e-03_rb,0.30903e-04_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.88986e-05_rb,0.44515e-04_rb,0.66093e-04_rb,0.84980e-04_rb,0.10270e-03_rb, &\n        & 0.12016e-03_rb,0.13885e-03_rb,0.16386e-03_rb,0.25840e-04_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.89568e-05_rb,0.45280e-04_rb,0.67556e-04_rb,0.87134e-04_rb,0.10555e-03_rb, &\n        & 0.12361e-03_rb,0.14282e-03_rb,0.16813e-03_rb,0.26878e-04_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.89829e-05_rb,0.46045e-04_rb,0.69040e-04_rb,0.89346e-04_rb,0.10842e-03_rb, &\n        & 0.12710e-03_rb,0.14682e-03_rb,0.17243e-03_rb,0.28852e-04_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.90413e-05_rb,0.46787e-04_rb,0.70568e-04_rb,0.91561e-04_rb,0.11129e-03_rb, &\n        & 0.13056e-03_rb,0.15080e-03_rb,0.17669e-03_rb,0.28623e-04_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.44112e-03_rb,0.47423e-03_rb,0.54876e-03_rb,0.61567e-03_rb,0.66971e-03_rb, &\n        & 0.71699e-03_rb,0.76347e-03_rb,0.77814e-03_rb,0.77298e-03_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.43794e-03_rb,0.47285e-03_rb,0.54643e-03_rb,0.61370e-03_rb,0.66959e-03_rb, &\n        & 0.71530e-03_rb,0.76226e-03_rb,0.77693e-03_rb,0.76966e-03_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.43480e-03_rb,0.47183e-03_rb,0.54721e-03_rb,0.61831e-03_rb,0.67726e-03_rb, &\n        & 0.72423e-03_rb,0.77288e-03_rb,0.78901e-03_rb,0.78603e-03_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.43220e-03_rb,0.46825e-03_rb,0.54213e-03_rb,0.61349e-03_rb,0.66880e-03_rb, &\n        & 0.71215e-03_rb,0.75938e-03_rb,0.77341e-03_rb,0.76775e-03_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.42987e-03_rb,0.46597e-03_rb,0.54025e-03_rb,0.61237e-03_rb,0.66800e-03_rb, &\n        & 0.70968e-03_rb,0.75599e-03_rb,0.77132e-03_rb,0.76754e-03_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.37934e-03_rb,0.43540e-03_rb,0.51852e-03_rb,0.59327e-03_rb,0.65919e-03_rb, &\n        & 0.71028e-03_rb,0.75523e-03_rb,0.78660e-03_rb,0.77018e-03_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.37616e-03_rb,0.43418e-03_rb,0.51743e-03_rb,0.59232e-03_rb,0.65869e-03_rb, &\n        & 0.70879e-03_rb,0.75385e-03_rb,0.78506e-03_rb,0.76914e-03_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.37285e-03_rb,0.43338e-03_rb,0.51992e-03_rb,0.59796e-03_rb,0.66588e-03_rb, &\n        & 0.71863e-03_rb,0.76525e-03_rb,0.79746e-03_rb,0.78726e-03_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.36993e-03_rb,0.43092e-03_rb,0.51858e-03_rb,0.59729e-03_rb,0.66425e-03_rb, &\n        & 0.71582e-03_rb,0.76129e-03_rb,0.79428e-03_rb,0.78557e-03_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.36795e-03_rb,0.42667e-03_rb,0.51498e-03_rb,0.59125e-03_rb,0.65451e-03_rb, &\n        & 0.70295e-03_rb,0.74646e-03_rb,0.77706e-03_rb,0.76846e-03_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.32398e-03_rb,0.39840e-03_rb,0.48910e-03_rb,0.57202e-03_rb,0.64247e-03_rb, &\n        & 0.69920e-03_rb,0.74272e-03_rb,0.78560e-03_rb,0.76158e-03_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.32107e-03_rb,0.39683e-03_rb,0.48877e-03_rb,0.57106e-03_rb,0.64200e-03_rb, &\n        & 0.69780e-03_rb,0.74068e-03_rb,0.78389e-03_rb,0.76255e-03_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.31808e-03_rb,0.39502e-03_rb,0.48851e-03_rb,0.57104e-03_rb,0.64052e-03_rb, &\n        & 0.69677e-03_rb,0.73846e-03_rb,0.78156e-03_rb,0.76341e-03_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.31534e-03_rb,0.39419e-03_rb,0.49223e-03_rb,0.57621e-03_rb,0.64746e-03_rb, &\n        & 0.70569e-03_rb,0.74986e-03_rb,0.79350e-03_rb,0.78192e-03_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.31343e-03_rb,0.39031e-03_rb,0.48789e-03_rb,0.56911e-03_rb,0.63804e-03_rb, &\n        & 0.69322e-03_rb,0.73529e-03_rb,0.77554e-03_rb,0.76249e-03_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.27516e-03_rb,0.36405e-03_rb,0.46107e-03_rb,0.54790e-03_rb,0.62253e-03_rb, &\n        & 0.68384e-03_rb,0.73057e-03_rb,0.77856e-03_rb,0.74793e-03_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.27272e-03_rb,0.36262e-03_rb,0.46080e-03_rb,0.54700e-03_rb,0.62201e-03_rb, &\n        & 0.68300e-03_rb,0.72976e-03_rb,0.77591e-03_rb,0.74919e-03_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.26991e-03_rb,0.36139e-03_rb,0.46064e-03_rb,0.54673e-03_rb,0.62063e-03_rb, &\n        & 0.68269e-03_rb,0.72862e-03_rb,0.77298e-03_rb,0.75070e-03_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.26757e-03_rb,0.35993e-03_rb,0.46053e-03_rb,0.54625e-03_rb,0.61982e-03_rb, &\n        & 0.68167e-03_rb,0.72799e-03_rb,0.77005e-03_rb,0.75046e-03_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.26556e-03_rb,0.36025e-03_rb,0.46433e-03_rb,0.55132e-03_rb,0.62683e-03_rb, &\n        & 0.69143e-03_rb,0.74137e-03_rb,0.78366e-03_rb,0.76845e-03_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.23277e-03_rb,0.33279e-03_rb,0.43313e-03_rb,0.52236e-03_rb,0.59970e-03_rb, &\n        & 0.66464e-03_rb,0.71686e-03_rb,0.76626e-03_rb,0.72457e-03_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.23078e-03_rb,0.33167e-03_rb,0.43303e-03_rb,0.52181e-03_rb,0.60054e-03_rb, &\n        & 0.66529e-03_rb,0.71807e-03_rb,0.76458e-03_rb,0.72852e-03_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.22839e-03_rb,0.33111e-03_rb,0.43245e-03_rb,0.52229e-03_rb,0.60068e-03_rb, &\n        & 0.66640e-03_rb,0.71880e-03_rb,0.76367e-03_rb,0.73165e-03_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.22634e-03_rb,0.33010e-03_rb,0.43234e-03_rb,0.52220e-03_rb,0.60179e-03_rb, &\n        & 0.66699e-03_rb,0.71996e-03_rb,0.76305e-03_rb,0.73316e-03_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.22442e-03_rb,0.33158e-03_rb,0.43680e-03_rb,0.52864e-03_rb,0.61018e-03_rb, &\n        & 0.67770e-03_rb,0.73371e-03_rb,0.78031e-03_rb,0.75138e-03_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.19685e-03_rb,0.30442e-03_rb,0.40547e-03_rb,0.49610e-03_rb,0.57453e-03_rb, &\n        & 0.64299e-03_rb,0.69899e-03_rb,0.74954e-03_rb,0.69460e-03_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.19517e-03_rb,0.30338e-03_rb,0.40585e-03_rb,0.49683e-03_rb,0.57671e-03_rb, &\n        & 0.64425e-03_rb,0.70130e-03_rb,0.75004e-03_rb,0.70036e-03_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.19324e-03_rb,0.30268e-03_rb,0.40573e-03_rb,0.49834e-03_rb,0.57803e-03_rb, &\n        & 0.64627e-03_rb,0.70310e-03_rb,0.75130e-03_rb,0.70596e-03_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.19132e-03_rb,0.30224e-03_rb,0.40644e-03_rb,0.49947e-03_rb,0.58014e-03_rb, &\n        & 0.64741e-03_rb,0.70472e-03_rb,0.75293e-03_rb,0.70917e-03_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.18952e-03_rb,0.30177e-03_rb,0.40672e-03_rb,0.50101e-03_rb,0.58137e-03_rb, &\n        & 0.64847e-03_rb,0.70602e-03_rb,0.75537e-03_rb,0.71121e-03_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.16684e-03_rb,0.27825e-03_rb,0.37860e-03_rb,0.46883e-03_rb,0.54680e-03_rb, &\n        & 0.61510e-03_rb,0.67386e-03_rb,0.72824e-03_rb,0.66391e-03_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.16553e-03_rb,0.27719e-03_rb,0.37963e-03_rb,0.47077e-03_rb,0.54985e-03_rb, &\n        & 0.61768e-03_rb,0.67717e-03_rb,0.73093e-03_rb,0.67156e-03_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.16397e-03_rb,0.27663e-03_rb,0.38054e-03_rb,0.47308e-03_rb,0.55166e-03_rb, &\n        & 0.62067e-03_rb,0.67975e-03_rb,0.73342e-03_rb,0.67787e-03_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.16246e-03_rb,0.27634e-03_rb,0.38198e-03_rb,0.47489e-03_rb,0.55414e-03_rb, &\n        & 0.62280e-03_rb,0.68232e-03_rb,0.73600e-03_rb,0.68175e-03_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.16089e-03_rb,0.27624e-03_rb,0.38314e-03_rb,0.47665e-03_rb,0.55585e-03_rb, &\n        & 0.62443e-03_rb,0.68436e-03_rb,0.73852e-03_rb,0.68559e-03_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.14215e-03_rb,0.25407e-03_rb,0.35215e-03_rb,0.43863e-03_rb,0.51443e-03_rb, &\n        & 0.58154e-03_rb,0.64180e-03_rb,0.70004e-03_rb,0.62276e-03_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.14104e-03_rb,0.25332e-03_rb,0.35394e-03_rb,0.44179e-03_rb,0.51810e-03_rb, &\n        & 0.58508e-03_rb,0.64584e-03_rb,0.70407e-03_rb,0.63285e-03_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.13977e-03_rb,0.25313e-03_rb,0.35560e-03_rb,0.44458e-03_rb,0.52101e-03_rb, &\n        & 0.58953e-03_rb,0.65037e-03_rb,0.70785e-03_rb,0.64108e-03_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.13869e-03_rb,0.25332e-03_rb,0.35744e-03_rb,0.44722e-03_rb,0.52464e-03_rb, &\n        & 0.59336e-03_rb,0.65468e-03_rb,0.71201e-03_rb,0.64611e-03_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.13742e-03_rb,0.25367e-03_rb,0.35927e-03_rb,0.44959e-03_rb,0.52752e-03_rb, &\n        & 0.59656e-03_rb,0.65824e-03_rb,0.71554e-03_rb,0.65066e-03_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.12109e-03_rb,0.23210e-03_rb,0.32446e-03_rb,0.40715e-03_rb,0.48065e-03_rb, &\n        & 0.54715e-03_rb,0.60775e-03_rb,0.66825e-03_rb,0.18336e-04_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.12018e-03_rb,0.23207e-03_rb,0.32699e-03_rb,0.41058e-03_rb,0.48505e-03_rb, &\n        & 0.55180e-03_rb,0.61323e-03_rb,0.67309e-03_rb,0.24327e-04_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.11917e-03_rb,0.23229e-03_rb,0.32956e-03_rb,0.41390e-03_rb,0.48910e-03_rb, &\n        & 0.55710e-03_rb,0.61911e-03_rb,0.67851e-03_rb,0.23065e-04_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.11843e-03_rb,0.23292e-03_rb,0.33197e-03_rb,0.41764e-03_rb,0.49354e-03_rb, &\n        & 0.56238e-03_rb,0.62497e-03_rb,0.68395e-03_rb,0.23680e-04_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.11748e-03_rb,0.23365e-03_rb,0.33458e-03_rb,0.42109e-03_rb,0.49774e-03_rb, &\n        & 0.56667e-03_rb,0.62987e-03_rb,0.68909e-03_rb,0.25905e-04_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.10273e-03_rb,0.21204e-03_rb,0.29794e-03_rb,0.37761e-03_rb,0.44937e-03_rb, &\n        & 0.51495e-03_rb,0.57567e-03_rb,0.63761e-03_rb,0.19724e-04_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.10190e-03_rb,0.21272e-03_rb,0.30059e-03_rb,0.38150e-03_rb,0.45434e-03_rb, &\n        & 0.52089e-03_rb,0.58270e-03_rb,0.64346e-03_rb,0.24197e-04_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.10112e-03_rb,0.21334e-03_rb,0.30377e-03_rb,0.38507e-03_rb,0.45917e-03_rb, &\n        & 0.52739e-03_rb,0.58976e-03_rb,0.64941e-03_rb,0.34326e-04_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.10061e-03_rb,0.21443e-03_rb,0.30659e-03_rb,0.38965e-03_rb,0.46453e-03_rb, &\n        & 0.53354e-03_rb,0.59675e-03_rb,0.65639e-03_rb,0.33702e-04_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.99890e-04_rb,0.21543e-03_rb,0.30998e-03_rb,0.39375e-03_rb,0.46925e-03_rb, &\n        & 0.53804e-03_rb,0.60223e-03_rb,0.66255e-03_rb,0.31412e-04_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.86338e-04_rb,0.19398e-03_rb,0.27516e-03_rb,0.35204e-03_rb,0.42116e-03_rb, &\n        & 0.48556e-03_rb,0.54615e-03_rb,0.60927e-03_rb,0.19945e-04_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.85730e-04_rb,0.19502e-03_rb,0.27834e-03_rb,0.35636e-03_rb,0.42792e-03_rb, &\n        & 0.49403e-03_rb,0.55597e-03_rb,0.61737e-03_rb,0.90093e-05_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.85275e-04_rb,0.19618e-03_rb,0.28168e-03_rb,0.36165e-03_rb,0.43438e-03_rb, &\n        & 0.50224e-03_rb,0.56492e-03_rb,0.62614e-03_rb,0.37496e-04_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.84865e-04_rb,0.19761e-03_rb,0.28526e-03_rb,0.36657e-03_rb,0.44042e-03_rb, &\n        & 0.50863e-03_rb,0.57263e-03_rb,0.63413e-03_rb,0.15044e-04_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.84443e-04_rb,0.19914e-03_rb,0.28886e-03_rb,0.37069e-03_rb,0.44492e-03_rb, &\n        & 0.51377e-03_rb,0.57803e-03_rb,0.63993e-03_rb,0.48683e-04_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.72237e-04_rb,0.17794e-03_rb,0.25491e-03_rb,0.32737e-03_rb,0.39376e-03_rb, &\n        & 0.45690e-03_rb,0.51684e-03_rb,0.58057e-03_rb,0.10800e-04_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.71846e-04_rb,0.17916e-03_rb,0.25896e-03_rb,0.33355e-03_rb,0.40234e-03_rb, &\n        & 0.46708e-03_rb,0.52856e-03_rb,0.59174e-03_rb,0.37304e-04_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.71641e-04_rb,0.18095e-03_rb,0.26291e-03_rb,0.34013e-03_rb,0.41022e-03_rb, &\n        & 0.47645e-03_rb,0.53911e-03_rb,0.60240e-03_rb,0.20066e-04_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.71337e-04_rb,0.18255e-03_rb,0.26698e-03_rb,0.34557e-03_rb,0.41722e-03_rb, &\n        & 0.48390e-03_rb,0.54753e-03_rb,0.61134e-03_rb,0.20267e-04_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.71187e-04_rb,0.18456e-03_rb,0.27032e-03_rb,0.35012e-03_rb,0.42265e-03_rb, &\n        & 0.49079e-03_rb,0.55462e-03_rb,0.61760e-03_rb,0.29175e-04_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.60308e-04_rb,0.16344e-03_rb,0.23674e-03_rb,0.30451e-03_rb,0.36859e-03_rb, &\n        & 0.42973e-03_rb,0.48896e-03_rb,0.55265e-03_rb,0.35870e-04_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.60075e-04_rb,0.16518e-03_rb,0.24182e-03_rb,0.31202e-03_rb,0.37817e-03_rb, &\n        & 0.44097e-03_rb,0.50163e-03_rb,0.56563e-03_rb,0.24717e-04_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.59963e-04_rb,0.16736e-03_rb,0.24636e-03_rb,0.31956e-03_rb,0.38717e-03_rb, &\n        & 0.45122e-03_rb,0.51282e-03_rb,0.57786e-03_rb,0.24967e-04_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.59808e-04_rb,0.16950e-03_rb,0.25081e-03_rb,0.32559e-03_rb,0.39488e-03_rb, &\n        & 0.45992e-03_rb,0.52243e-03_rb,0.58716e-03_rb,0.25073e-04_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.59738e-04_rb,0.17182e-03_rb,0.25430e-03_rb,0.33121e-03_rb,0.40220e-03_rb, &\n        & 0.46925e-03_rb,0.53224e-03_rb,0.59573e-03_rb,0.14031e-04_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.79109e-03_rb,0.77354e-03_rb,0.84795e-03_rb,0.91837e-03_rb,0.98287e-03_rb, &\n        & 0.10467e-02_rb,0.10876e-02_rb,0.10899e-02_rb,0.10918e-02_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.79035e-03_rb,0.76999e-03_rb,0.84502e-03_rb,0.91315e-03_rb,0.97569e-03_rb, &\n        & 0.10420e-02_rb,0.10843e-02_rb,0.10840e-02_rb,0.10904e-02_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.79094e-03_rb,0.76969e-03_rb,0.84501e-03_rb,0.91212e-03_rb,0.97616e-03_rb, &\n        & 0.10502e-02_rb,0.10978e-02_rb,0.10968e-02_rb,0.11098e-02_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.79012e-03_rb,0.76698e-03_rb,0.84052e-03_rb,0.90224e-03_rb,0.96448e-03_rb, &\n        & 0.10367e-02_rb,0.10810e-02_rb,0.10798e-02_rb,0.10838e-02_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.78840e-03_rb,0.76416e-03_rb,0.83816e-03_rb,0.89971e-03_rb,0.96199e-03_rb, &\n        & 0.10344e-02_rb,0.10796e-02_rb,0.10773e-02_rb,0.10800e-02_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.69789e-03_rb,0.72093e-03_rb,0.81475e-03_rb,0.89922e-03_rb,0.96655e-03_rb, &\n        & 0.10286e-02_rb,0.10852e-02_rb,0.10968e-02_rb,0.10998e-02_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.69799e-03_rb,0.71831e-03_rb,0.81026e-03_rb,0.89390e-03_rb,0.96162e-03_rb, &\n        & 0.10278e-02_rb,0.10853e-02_rb,0.10953e-02_rb,0.10980e-02_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.69849e-03_rb,0.71872e-03_rb,0.81039e-03_rb,0.89368e-03_rb,0.96713e-03_rb, &\n        & 0.10387e-02_rb,0.11003e-02_rb,0.11139e-02_rb,0.11199e-02_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.69786e-03_rb,0.71702e-03_rb,0.80831e-03_rb,0.88926e-03_rb,0.96426e-03_rb, &\n        & 0.10353e-02_rb,0.10976e-02_rb,0.11107e-02_rb,0.11152e-02_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.69639e-03_rb,0.71420e-03_rb,0.80246e-03_rb,0.88289e-03_rb,0.95515e-03_rb, &\n        & 0.10226e-02_rb,0.10812e-02_rb,0.10915e-02_rb,0.10904e-02_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.60717e-03_rb,0.66595e-03_rb,0.77916e-03_rb,0.87509e-03_rb,0.95372e-03_rb, &\n        & 0.10167e-02_rb,0.10820e-02_rb,0.11070e-02_rb,0.11005e-02_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.60740e-03_rb,0.66447e-03_rb,0.77425e-03_rb,0.87078e-03_rb,0.95087e-03_rb, &\n        & 0.10164e-02_rb,0.10820e-02_rb,0.11070e-02_rb,0.10996e-02_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.60743e-03_rb,0.66421e-03_rb,0.77076e-03_rb,0.86668e-03_rb,0.94936e-03_rb, &\n        & 0.10146e-02_rb,0.10809e-02_rb,0.11066e-02_rb,0.10979e-02_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.60721e-03_rb,0.66487e-03_rb,0.77207e-03_rb,0.87093e-03_rb,0.95679e-03_rb, &\n        & 0.10247e-02_rb,0.10950e-02_rb,0.11248e-02_rb,0.11171e-02_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.60632e-03_rb,0.66259e-03_rb,0.76645e-03_rb,0.86469e-03_rb,0.94611e-03_rb, &\n        & 0.10116e-02_rb,0.10778e-02_rb,0.11040e-02_rb,0.10953e-02_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.52196e-03_rb,0.61309e-03_rb,0.74127e-03_rb,0.84825e-03_rb,0.93805e-03_rb, &\n        & 0.10078e-02_rb,0.10732e-02_rb,0.11156e-02_rb,0.10964e-02_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.52205e-03_rb,0.61209e-03_rb,0.73709e-03_rb,0.84586e-03_rb,0.93585e-03_rb, &\n        & 0.10074e-02_rb,0.10727e-02_rb,0.11168e-02_rb,0.10976e-02_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.52218e-03_rb,0.61175e-03_rb,0.73426e-03_rb,0.84316e-03_rb,0.93485e-03_rb, &\n        & 0.10055e-02_rb,0.10718e-02_rb,0.11162e-02_rb,0.10985e-02_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.52176e-03_rb,0.61131e-03_rb,0.73315e-03_rb,0.84162e-03_rb,0.93319e-03_rb, &\n        & 0.10035e-02_rb,0.10709e-02_rb,0.11149e-02_rb,0.11000e-02_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.52100e-03_rb,0.61215e-03_rb,0.73639e-03_rb,0.84868e-03_rb,0.94102e-03_rb, &\n        & 0.10132e-02_rb,0.10822e-02_rb,0.11303e-02_rb,0.11192e-02_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.44537e-03_rb,0.56415e-03_rb,0.70334e-03_rb,0.81986e-03_rb,0.91737e-03_rb, &\n        & 0.99505e-03_rb,0.10590e-02_rb,0.11155e-02_rb,0.10855e-02_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.44499e-03_rb,0.56304e-03_rb,0.70021e-03_rb,0.81824e-03_rb,0.91496e-03_rb, &\n        & 0.99465e-03_rb,0.10577e-02_rb,0.11163e-02_rb,0.10886e-02_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.44481e-03_rb,0.56231e-03_rb,0.69884e-03_rb,0.81557e-03_rb,0.91387e-03_rb, &\n        & 0.99269e-03_rb,0.10566e-02_rb,0.11154e-02_rb,0.10925e-02_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.44459e-03_rb,0.56155e-03_rb,0.69827e-03_rb,0.81462e-03_rb,0.91145e-03_rb, &\n        & 0.99105e-03_rb,0.10558e-02_rb,0.11141e-02_rb,0.10950e-02_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.44401e-03_rb,0.56266e-03_rb,0.70342e-03_rb,0.82262e-03_rb,0.92017e-03_rb, &\n        & 0.10017e-02_rb,0.10686e-02_rb,0.11300e-02_rb,0.11166e-02_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.37714e-03_rb,0.51787e-03_rb,0.66544e-03_rb,0.78793e-03_rb,0.89178e-03_rb, &\n        & 0.97506e-03_rb,0.10421e-02_rb,0.11072e-02_rb,0.10679e-02_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.37645e-03_rb,0.51719e-03_rb,0.66329e-03_rb,0.78619e-03_rb,0.88946e-03_rb, &\n        & 0.97613e-03_rb,0.10421e-02_rb,0.11076e-02_rb,0.10727e-02_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.37621e-03_rb,0.51663e-03_rb,0.66248e-03_rb,0.78421e-03_rb,0.88840e-03_rb, &\n        & 0.97530e-03_rb,0.10423e-02_rb,0.11074e-02_rb,0.10773e-02_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.37625e-03_rb,0.51591e-03_rb,0.66198e-03_rb,0.78342e-03_rb,0.88665e-03_rb, &\n        & 0.97510e-03_rb,0.10427e-02_rb,0.11065e-02_rb,0.10807e-02_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.37578e-03_rb,0.51583e-03_rb,0.66231e-03_rb,0.78322e-03_rb,0.88597e-03_rb, &\n        & 0.97458e-03_rb,0.10416e-02_rb,0.11045e-02_rb,0.10828e-02_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.31849e-03_rb,0.47598e-03_rb,0.62784e-03_rb,0.75245e-03_rb,0.86097e-03_rb, &\n        & 0.95037e-03_rb,0.10228e-02_rb,0.10907e-02_rb,0.10381e-02_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.31748e-03_rb,0.47565e-03_rb,0.62625e-03_rb,0.75127e-03_rb,0.86016e-03_rb, &\n        & 0.95292e-03_rb,0.10249e-02_rb,0.10924e-02_rb,0.10446e-02_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.31709e-03_rb,0.47527e-03_rb,0.62527e-03_rb,0.75044e-03_rb,0.86086e-03_rb, &\n        & 0.95398e-03_rb,0.10272e-02_rb,0.10943e-02_rb,0.10513e-02_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.31690e-03_rb,0.47506e-03_rb,0.62534e-03_rb,0.75023e-03_rb,0.86098e-03_rb, &\n        & 0.95576e-03_rb,0.10298e-02_rb,0.10956e-02_rb,0.10570e-02_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.31661e-03_rb,0.47556e-03_rb,0.62564e-03_rb,0.75129e-03_rb,0.86194e-03_rb, &\n        & 0.95752e-03_rb,0.10312e-02_rb,0.10967e-02_rb,0.10605e-02_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.26920e-03_rb,0.43740e-03_rb,0.58907e-03_rb,0.71604e-03_rb,0.82585e-03_rb, &\n        & 0.92017e-03_rb,0.99828e-03_rb,0.10677e-02_rb,0.99191e-03_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.26802e-03_rb,0.43738e-03_rb,0.58846e-03_rb,0.71590e-03_rb,0.82753e-03_rb, &\n        & 0.92484e-03_rb,0.10036e-02_rb,0.10726e-02_rb,0.10010e-02_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.26738e-03_rb,0.43742e-03_rb,0.58827e-03_rb,0.71679e-03_rb,0.83051e-03_rb, &\n        & 0.92821e-03_rb,0.10079e-02_rb,0.10772e-02_rb,0.10102e-02_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.26701e-03_rb,0.43751e-03_rb,0.58933e-03_rb,0.71793e-03_rb,0.83304e-03_rb, &\n        & 0.93190e-03_rb,0.10124e-02_rb,0.10810e-02_rb,0.10188e-02_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.26686e-03_rb,0.43824e-03_rb,0.58999e-03_rb,0.72050e-03_rb,0.83607e-03_rb, &\n        & 0.93581e-03_rb,0.10160e-02_rb,0.10848e-02_rb,0.10263e-02_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.22904e-03_rb,0.40123e-03_rb,0.55115e-03_rb,0.67712e-03_rb,0.78732e-03_rb, &\n        & 0.88313e-03_rb,0.96568e-03_rb,0.10387e-02_rb,0.14403e-04_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.22775e-03_rb,0.40129e-03_rb,0.55155e-03_rb,0.67918e-03_rb,0.79168e-03_rb, &\n        & 0.89045e-03_rb,0.97356e-03_rb,0.10468e-02_rb,0.17396e-04_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.22691e-03_rb,0.40187e-03_rb,0.55239e-03_rb,0.68238e-03_rb,0.79664e-03_rb, &\n        & 0.89641e-03_rb,0.98013e-03_rb,0.10538e-02_rb,0.17983e-04_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.22637e-03_rb,0.40220e-03_rb,0.55452e-03_rb,0.68525e-03_rb,0.80145e-03_rb, &\n        & 0.90223e-03_rb,0.98673e-03_rb,0.10599e-02_rb,0.14884e-04_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.22595e-03_rb,0.40316e-03_rb,0.55613e-03_rb,0.68950e-03_rb,0.80623e-03_rb, &\n        & 0.90849e-03_rb,0.99244e-03_rb,0.10655e-02_rb,0.19485e-04_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.19610e-03_rb,0.36707e-03_rb,0.51305e-03_rb,0.63612e-03_rb,0.74337e-03_rb, &\n        & 0.83875e-03_rb,0.92458e-03_rb,0.10007e-02_rb,0.30583e-04_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.19499e-03_rb,0.36759e-03_rb,0.51501e-03_rb,0.64066e-03_rb,0.75082e-03_rb, &\n        & 0.84853e-03_rb,0.93443e-03_rb,0.10117e-02_rb,0.20484e-04_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.19427e-03_rb,0.36886e-03_rb,0.51745e-03_rb,0.64625e-03_rb,0.75815e-03_rb, &\n        & 0.85733e-03_rb,0.94303e-03_rb,0.10217e-02_rb,0.20784e-04_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.19367e-03_rb,0.36958e-03_rb,0.52106e-03_rb,0.65093e-03_rb,0.76545e-03_rb, &\n        & 0.86571e-03_rb,0.95244e-03_rb,0.10301e-02_rb,0.30511e-04_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.19319e-03_rb,0.37098e-03_rb,0.52409e-03_rb,0.65675e-03_rb,0.77258e-03_rb, &\n        & 0.87491e-03_rb,0.96110e-03_rb,0.10378e-02_rb,0.19883e-04_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.16767e-03_rb,0.33624e-03_rb,0.47635e-03_rb,0.59543e-03_rb,0.70301e-03_rb, &\n        & 0.79872e-03_rb,0.88652e-03_rb,0.96550e-03_rb,0.27483e-04_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.16687e-03_rb,0.33764e-03_rb,0.48055e-03_rb,0.60283e-03_rb,0.71186e-03_rb, &\n        & 0.80978e-03_rb,0.89673e-03_rb,0.97758e-03_rb,0.20639e-04_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.16664e-03_rb,0.33942e-03_rb,0.48524e-03_rb,0.60962e-03_rb,0.72075e-03_rb, &\n        & 0.81953e-03_rb,0.90753e-03_rb,0.98729e-03_rb,0.27689e-04_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.16611e-03_rb,0.34104e-03_rb,0.48994e-03_rb,0.61708e-03_rb,0.72992e-03_rb, &\n        & 0.83047e-03_rb,0.91898e-03_rb,0.99769e-03_rb,0.13719e-04_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.16596e-03_rb,0.34313e-03_rb,0.49467e-03_rb,0.62538e-03_rb,0.73960e-03_rb, &\n        & 0.84171e-03_rb,0.92999e-03_rb,0.10075e-02_rb,0.27137e-04_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.14282e-03_rb,0.30890e-03_rb,0.44183e-03_rb,0.55831e-03_rb,0.66503e-03_rb, &\n        & 0.76077e-03_rb,0.84890e-03_rb,0.93128e-03_rb,0.21228e-04_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.14255e-03_rb,0.31125e-03_rb,0.44731e-03_rb,0.56685e-03_rb,0.67491e-03_rb, &\n        & 0.77277e-03_rb,0.86092e-03_rb,0.94274e-03_rb,0.32331e-04_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.14244e-03_rb,0.31334e-03_rb,0.45354e-03_rb,0.57479e-03_rb,0.68552e-03_rb, &\n        & 0.78420e-03_rb,0.87396e-03_rb,0.95434e-03_rb,0.19978e-06_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.14239e-03_rb,0.31614e-03_rb,0.45984e-03_rb,0.58419e-03_rb,0.69607e-03_rb, &\n        & 0.79750e-03_rb,0.88765e-03_rb,0.96637e-03_rb,0.21475e-04_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.14252e-03_rb,0.31876e-03_rb,0.46658e-03_rb,0.59385e-03_rb,0.70775e-03_rb, &\n        & 0.80986e-03_rb,0.90037e-03_rb,0.97814e-03_rb,0.21476e-04_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.12125e-03_rb,0.28444e-03_rb,0.41080e-03_rb,0.52444e-03_rb,0.62932e-03_rb, &\n        & 0.72481e-03_rb,0.81245e-03_rb,0.89716e-03_rb,0.27405e-04_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.12138e-03_rb,0.28788e-03_rb,0.41712e-03_rb,0.53396e-03_rb,0.64078e-03_rb, &\n        & 0.73819e-03_rb,0.82737e-03_rb,0.91020e-03_rb,0.13699e-04_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.12142e-03_rb,0.29086e-03_rb,0.42441e-03_rb,0.54338e-03_rb,0.65260e-03_rb, &\n        & 0.75224e-03_rb,0.84352e-03_rb,0.92398e-03_rb,0.13820e-04_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.12174e-03_rb,0.29430e-03_rb,0.43176e-03_rb,0.55440e-03_rb,0.66546e-03_rb, &\n        & 0.76738e-03_rb,0.85914e-03_rb,0.93821e-03_rb,0.26505e-06_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.12197e-03_rb,0.29750e-03_rb,0.43989e-03_rb,0.56500e-03_rb,0.67844e-03_rb, &\n        & 0.78071e-03_rb,0.87280e-03_rb,0.95108e-03_rb,0.33764e-06_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.15537e-02_rb,0.13818e-02_rb,0.14273e-02_rb,0.15055e-02_rb,0.15786e-02_rb, &\n        & 0.16339e-02_rb,0.16467e-02_rb,0.15800e-02_rb,0.16050e-02_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.15485e-02_rb,0.13765e-02_rb,0.14181e-02_rb,0.14978e-02_rb,0.15727e-02_rb, &\n        & 0.16256e-02_rb,0.16371e-02_rb,0.15728e-02_rb,0.16005e-02_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.15437e-02_rb,0.13722e-02_rb,0.14122e-02_rb,0.14971e-02_rb,0.15752e-02_rb, &\n        & 0.16261e-02_rb,0.16396e-02_rb,0.15797e-02_rb,0.16209e-02_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.15424e-02_rb,0.13691e-02_rb,0.14015e-02_rb,0.14839e-02_rb,0.15593e-02_rb, &\n        & 0.16040e-02_rb,0.16150e-02_rb,0.15487e-02_rb,0.15957e-02_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.15425e-02_rb,0.13681e-02_rb,0.13961e-02_rb,0.14766e-02_rb,0.15502e-02_rb, &\n        & 0.15943e-02_rb,0.16046e-02_rb,0.15376e-02_rb,0.15923e-02_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.14274e-02_rb,0.13101e-02_rb,0.13901e-02_rb,0.14665e-02_rb,0.15597e-02_rb, &\n        & 0.16365e-02_rb,0.16682e-02_rb,0.16286e-02_rb,0.16381e-02_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.14223e-02_rb,0.13039e-02_rb,0.13828e-02_rb,0.14629e-02_rb,0.15522e-02_rb, &\n        & 0.16256e-02_rb,0.16567e-02_rb,0.16183e-02_rb,0.16362e-02_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.14195e-02_rb,0.12999e-02_rb,0.13791e-02_rb,0.14641e-02_rb,0.15538e-02_rb, &\n        & 0.16259e-02_rb,0.16605e-02_rb,0.16235e-02_rb,0.16585e-02_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.14181e-02_rb,0.12958e-02_rb,0.13726e-02_rb,0.14576e-02_rb,0.15447e-02_rb, &\n        & 0.16149e-02_rb,0.16487e-02_rb,0.16101e-02_rb,0.16540e-02_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.14191e-02_rb,0.12933e-02_rb,0.13650e-02_rb,0.14448e-02_rb,0.15270e-02_rb, &\n        & 0.15959e-02_rb,0.16273e-02_rb,0.15850e-02_rb,0.16279e-02_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.12975e-02_rb,0.12495e-02_rb,0.13516e-02_rb,0.14440e-02_rb,0.15390e-02_rb, &\n        & 0.16298e-02_rb,0.16807e-02_rb,0.16634e-02_rb,0.16697e-02_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.12938e-02_rb,0.12434e-02_rb,0.13457e-02_rb,0.14406e-02_rb,0.15301e-02_rb, &\n        & 0.16196e-02_rb,0.16709e-02_rb,0.16534e-02_rb,0.16671e-02_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.12920e-02_rb,0.12378e-02_rb,0.13412e-02_rb,0.14340e-02_rb,0.15221e-02_rb, &\n        & 0.16094e-02_rb,0.16610e-02_rb,0.16426e-02_rb,0.16655e-02_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.12905e-02_rb,0.12343e-02_rb,0.13399e-02_rb,0.14335e-02_rb,0.15224e-02_rb, &\n        & 0.16137e-02_rb,0.16692e-02_rb,0.16519e-02_rb,0.16891e-02_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.12916e-02_rb,0.12305e-02_rb,0.13333e-02_rb,0.14197e-02_rb,0.15049e-02_rb, &\n        & 0.15945e-02_rb,0.16481e-02_rb,0.16282e-02_rb,0.16593e-02_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.11586e-02_rb,0.11791e-02_rb,0.13059e-02_rb,0.14246e-02_rb,0.15191e-02_rb, &\n        & 0.16155e-02_rb,0.16888e-02_rb,0.16884e-02_rb,0.16900e-02_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.11563e-02_rb,0.11735e-02_rb,0.13020e-02_rb,0.14191e-02_rb,0.15117e-02_rb, &\n        & 0.16067e-02_rb,0.16804e-02_rb,0.16804e-02_rb,0.16885e-02_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.11547e-02_rb,0.11684e-02_rb,0.12989e-02_rb,0.14121e-02_rb,0.15049e-02_rb, &\n        & 0.15986e-02_rb,0.16736e-02_rb,0.16742e-02_rb,0.16864e-02_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.11549e-02_rb,0.11640e-02_rb,0.12947e-02_rb,0.14053e-02_rb,0.14971e-02_rb, &\n        & 0.15940e-02_rb,0.16690e-02_rb,0.16701e-02_rb,0.16826e-02_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.11568e-02_rb,0.11629e-02_rb,0.12947e-02_rb,0.14048e-02_rb,0.15017e-02_rb, &\n        & 0.16054e-02_rb,0.16836e-02_rb,0.16886e-02_rb,0.17044e-02_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.10197e-02_rb,0.11002e-02_rb,0.12563e-02_rb,0.13948e-02_rb,0.15048e-02_rb, &\n        & 0.16026e-02_rb,0.16898e-02_rb,0.17082e-02_rb,0.17013e-02_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.10187e-02_rb,0.10963e-02_rb,0.12532e-02_rb,0.13909e-02_rb,0.14993e-02_rb, &\n        & 0.15953e-02_rb,0.16843e-02_rb,0.17040e-02_rb,0.16991e-02_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.10179e-02_rb,0.10925e-02_rb,0.12502e-02_rb,0.13858e-02_rb,0.14932e-02_rb, &\n        & 0.15900e-02_rb,0.16803e-02_rb,0.17019e-02_rb,0.16952e-02_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.10188e-02_rb,0.10896e-02_rb,0.12461e-02_rb,0.13806e-02_rb,0.14878e-02_rb, &\n        & 0.15873e-02_rb,0.16767e-02_rb,0.17001e-02_rb,0.16925e-02_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.10211e-02_rb,0.10901e-02_rb,0.12464e-02_rb,0.13834e-02_rb,0.14970e-02_rb, &\n        & 0.16026e-02_rb,0.16952e-02_rb,0.17210e-02_rb,0.17180e-02_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.88455e-03_rb,0.10185e-02_rb,0.12021e-02_rb,0.13605e-02_rb,0.14894e-02_rb, &\n        & 0.15922e-02_rb,0.16870e-02_rb,0.17277e-02_rb,0.17006e-02_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.88487e-03_rb,0.10158e-02_rb,0.12001e-02_rb,0.13587e-02_rb,0.14854e-02_rb, &\n        & 0.15856e-02_rb,0.16819e-02_rb,0.17253e-02_rb,0.17001e-02_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.88512e-03_rb,0.10136e-02_rb,0.11981e-02_rb,0.13544e-02_rb,0.14820e-02_rb, &\n        & 0.15811e-02_rb,0.16785e-02_rb,0.17233e-02_rb,0.16989e-02_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.88698e-03_rb,0.10127e-02_rb,0.11948e-02_rb,0.13505e-02_rb,0.14784e-02_rb, &\n        & 0.15789e-02_rb,0.16749e-02_rb,0.17211e-02_rb,0.16988e-02_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.88923e-03_rb,0.10128e-02_rb,0.11919e-02_rb,0.13468e-02_rb,0.14756e-02_rb, &\n        & 0.15764e-02_rb,0.16734e-02_rb,0.17190e-02_rb,0.16990e-02_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.75937e-03_rb,0.93876e-03_rb,0.11443e-02_rb,0.13228e-02_rb,0.14681e-02_rb, &\n        & 0.15807e-02_rb,0.16771e-02_rb,0.17403e-02_rb,0.16920e-02_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.75998e-03_rb,0.93770e-03_rb,0.11447e-02_rb,0.13222e-02_rb,0.14656e-02_rb, &\n        & 0.15751e-02_rb,0.16722e-02_rb,0.17374e-02_rb,0.16943e-02_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.76057e-03_rb,0.93698e-03_rb,0.11442e-02_rb,0.13192e-02_rb,0.14630e-02_rb, &\n        & 0.15711e-02_rb,0.16684e-02_rb,0.17351e-02_rb,0.16966e-02_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.76306e-03_rb,0.93700e-03_rb,0.11417e-02_rb,0.13175e-02_rb,0.14605e-02_rb, &\n        & 0.15679e-02_rb,0.16649e-02_rb,0.17327e-02_rb,0.16998e-02_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.76563e-03_rb,0.93740e-03_rb,0.11401e-02_rb,0.13155e-02_rb,0.14583e-02_rb, &\n        & 0.15655e-02_rb,0.16637e-02_rb,0.17306e-02_rb,0.17045e-02_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.64586e-03_rb,0.86421e-03_rb,0.10884e-02_rb,0.12806e-02_rb,0.14383e-02_rb, &\n        & 0.15636e-02_rb,0.16605e-02_rb,0.17434e-02_rb,0.16711e-02_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.64665e-03_rb,0.86473e-03_rb,0.10896e-02_rb,0.12820e-02_rb,0.14363e-02_rb, &\n        & 0.15592e-02_rb,0.16561e-02_rb,0.17403e-02_rb,0.16771e-02_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.64816e-03_rb,0.86506e-03_rb,0.10903e-02_rb,0.12802e-02_rb,0.14357e-02_rb, &\n        & 0.15554e-02_rb,0.16529e-02_rb,0.17367e-02_rb,0.16846e-02_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.65115e-03_rb,0.86561e-03_rb,0.10893e-02_rb,0.12797e-02_rb,0.14336e-02_rb, &\n        & 0.15533e-02_rb,0.16505e-02_rb,0.17349e-02_rb,0.16920e-02_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.65335e-03_rb,0.86692e-03_rb,0.10897e-02_rb,0.12788e-02_rb,0.14323e-02_rb, &\n        & 0.15519e-02_rb,0.16494e-02_rb,0.17328e-02_rb,0.17005e-02_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.54495e-03_rb,0.79374e-03_rb,0.10331e-02_rb,0.12325e-02_rb,0.13999e-02_rb, &\n        & 0.15343e-02_rb,0.16359e-02_rb,0.17304e-02_rb,0.88289e-03_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.54631e-03_rb,0.79621e-03_rb,0.10351e-02_rb,0.12356e-02_rb,0.13999e-02_rb, &\n        & 0.15332e-02_rb,0.16343e-02_rb,0.17287e-02_rb,0.90009e-03_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.54838e-03_rb,0.79738e-03_rb,0.10366e-02_rb,0.12358e-02_rb,0.14008e-02_rb, &\n        & 0.15312e-02_rb,0.16325e-02_rb,0.17267e-02_rb,0.91715e-03_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.55103e-03_rb,0.79925e-03_rb,0.10373e-02_rb,0.12370e-02_rb,0.14003e-02_rb, &\n        & 0.15313e-02_rb,0.16317e-02_rb,0.17265e-02_rb,0.93948e-03_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.55358e-03_rb,0.80158e-03_rb,0.10391e-02_rb,0.12370e-02_rb,0.14008e-02_rb, &\n        & 0.15320e-02_rb,0.16328e-02_rb,0.17271e-02_rb,0.97099e-03_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.45828e-03_rb,0.73128e-03_rb,0.97725e-03_rb,0.11801e-02_rb,0.13541e-02_rb, &\n        & 0.14966e-02_rb,0.16059e-02_rb,0.17081e-02_rb,0.25261e-04_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.45994e-03_rb,0.73433e-03_rb,0.98047e-03_rb,0.11852e-02_rb,0.13571e-02_rb, &\n        & 0.14993e-02_rb,0.16071e-02_rb,0.17093e-02_rb,0.32778e-04_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.46172e-03_rb,0.73698e-03_rb,0.98332e-03_rb,0.11877e-02_rb,0.13607e-02_rb, &\n        & 0.15001e-02_rb,0.16089e-02_rb,0.17098e-02_rb,0.30108e-04_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.46419e-03_rb,0.73967e-03_rb,0.98568e-03_rb,0.11903e-02_rb,0.13620e-02_rb, &\n        & 0.15042e-02_rb,0.16117e-02_rb,0.17131e-02_rb,0.14814e-04_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.46710e-03_rb,0.74287e-03_rb,0.98852e-03_rb,0.11927e-02_rb,0.13653e-02_rb, &\n        & 0.15080e-02_rb,0.16153e-02_rb,0.17174e-02_rb,0.18206e-04_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.38711e-03_rb,0.67660e-03_rb,0.92352e-03_rb,0.11285e-02_rb,0.13042e-02_rb, &\n        & 0.14533e-02_rb,0.15680e-02_rb,0.16768e-02_rb,0.35375e-04_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.38827e-03_rb,0.68076e-03_rb,0.92811e-03_rb,0.11355e-02_rb,0.13110e-02_rb, &\n        & 0.14578e-02_rb,0.15732e-02_rb,0.16802e-02_rb,0.17785e-04_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.39017e-03_rb,0.68339e-03_rb,0.93243e-03_rb,0.11404e-02_rb,0.13179e-02_rb, &\n        & 0.14648e-02_rb,0.15809e-02_rb,0.16870e-02_rb,0.17310e-04_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.39259e-03_rb,0.68706e-03_rb,0.93609e-03_rb,0.11451e-02_rb,0.13243e-02_rb, &\n        & 0.14746e-02_rb,0.15892e-02_rb,0.16958e-02_rb,0.17795e-04_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.39544e-03_rb,0.69011e-03_rb,0.94016e-03_rb,0.11496e-02_rb,0.13318e-02_rb, &\n        & 0.14825e-02_rb,0.15980e-02_rb,0.17052e-02_rb,0.87581e-05_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.32882e-03_rb,0.62658e-03_rb,0.87124e-03_rb,0.10770e-02_rb,0.12526e-02_rb, &\n        & 0.14042e-02_rb,0.15246e-02_rb,0.16367e-02_rb,0.13823e-04_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.33008e-03_rb,0.63068e-03_rb,0.87790e-03_rb,0.10857e-02_rb,0.12638e-02_rb, &\n        & 0.14155e-02_rb,0.15376e-02_rb,0.16473e-02_rb,0.27356e-04_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.33191e-03_rb,0.63479e-03_rb,0.88401e-03_rb,0.10939e-02_rb,0.12749e-02_rb, &\n        & 0.14298e-02_rb,0.15521e-02_rb,0.16615e-02_rb,0.26924e-04_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.33384e-03_rb,0.63914e-03_rb,0.88945e-03_rb,0.11023e-02_rb,0.12871e-02_rb, &\n        & 0.14439e-02_rb,0.15651e-02_rb,0.16755e-02_rb,0.13486e-04_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.33630e-03_rb,0.64288e-03_rb,0.89554e-03_rb,0.11106e-02_rb,0.12985e-02_rb, &\n        & 0.14567e-02_rb,0.15792e-02_rb,0.16910e-02_rb,0.54470e-04_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.28179e-03_rb,0.58039e-03_rb,0.82131e-03_rb,0.10258e-02_rb,0.12001e-02_rb, &\n        & 0.13522e-02_rb,0.14762e-02_rb,0.15892e-02_rb,0.17365e-04_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.28322e-03_rb,0.58517e-03_rb,0.83048e-03_rb,0.10376e-02_rb,0.12180e-02_rb, &\n        & 0.13721e-02_rb,0.14980e-02_rb,0.16092e-02_rb,0.19167e-10_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.28449e-03_rb,0.59004e-03_rb,0.83867e-03_rb,0.10495e-02_rb,0.12349e-02_rb, &\n        & 0.13937e-02_rb,0.15189e-02_rb,0.16302e-02_rb,0.17686e-04_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.28623e-03_rb,0.59506e-03_rb,0.84661e-03_rb,0.10616e-02_rb,0.12511e-02_rb, &\n        & 0.14124e-02_rb,0.15380e-02_rb,0.16505e-02_rb,0.27174e-10_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.28834e-03_rb,0.60000e-03_rb,0.85510e-03_rb,0.10735e-02_rb,0.12664e-02_rb, &\n        & 0.14298e-02_rb,0.15583e-02_rb,0.16724e-02_rb,0.30930e-10_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.39229e-02_rb,0.34326e-02_rb,0.30162e-02_rb,0.28699e-02_rb,0.28381e-02_rb, &\n        & 0.27734e-02_rb,0.26260e-02_rb,0.23062e-02_rb,0.25522e-02_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.39213e-02_rb,0.34310e-02_rb,0.30108e-02_rb,0.28565e-02_rb,0.28216e-02_rb, &\n        & 0.27552e-02_rb,0.26075e-02_rb,0.22956e-02_rb,0.25296e-02_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.39180e-02_rb,0.34283e-02_rb,0.30095e-02_rb,0.28490e-02_rb,0.28140e-02_rb, &\n        & 0.27516e-02_rb,0.26057e-02_rb,0.23031e-02_rb,0.25320e-02_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.39161e-02_rb,0.34265e-02_rb,0.30039e-02_rb,0.28320e-02_rb,0.27864e-02_rb, &\n        & 0.27263e-02_rb,0.25779e-02_rb,0.22767e-02_rb,0.24834e-02_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.39129e-02_rb,0.34239e-02_rb,0.29985e-02_rb,0.28202e-02_rb,0.27725e-02_rb, &\n        & 0.27107e-02_rb,0.25647e-02_rb,0.22654e-02_rb,0.24632e-02_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.35717e-02_rb,0.31250e-02_rb,0.28583e-02_rb,0.28716e-02_rb,0.28885e-02_rb, &\n        & 0.28569e-02_rb,0.27419e-02_rb,0.24528e-02_rb,0.26589e-02_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.35704e-02_rb,0.31241e-02_rb,0.28509e-02_rb,0.28521e-02_rb,0.28717e-02_rb, &\n        & 0.28411e-02_rb,0.27277e-02_rb,0.24440e-02_rb,0.26352e-02_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.35692e-02_rb,0.31228e-02_rb,0.28479e-02_rb,0.28438e-02_rb,0.28636e-02_rb, &\n        & 0.28419e-02_rb,0.27327e-02_rb,0.24542e-02_rb,0.26382e-02_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.35651e-02_rb,0.31194e-02_rb,0.28382e-02_rb,0.28288e-02_rb,0.28472e-02_rb, &\n        & 0.28288e-02_rb,0.27211e-02_rb,0.24428e-02_rb,0.26140e-02_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.35614e-02_rb,0.31162e-02_rb,0.28280e-02_rb,0.28080e-02_rb,0.28270e-02_rb, &\n        & 0.28018e-02_rb,0.26919e-02_rb,0.24122e-02_rb,0.25721e-02_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.32370e-02_rb,0.28408e-02_rb,0.27429e-02_rb,0.28459e-02_rb,0.29107e-02_rb, &\n        & 0.29163e-02_rb,0.28452e-02_rb,0.26013e-02_rb,0.27589e-02_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.32378e-02_rb,0.28409e-02_rb,0.27346e-02_rb,0.28282e-02_rb,0.28967e-02_rb, &\n        & 0.29036e-02_rb,0.28357e-02_rb,0.25912e-02_rb,0.27381e-02_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.32344e-02_rb,0.28366e-02_rb,0.27224e-02_rb,0.28159e-02_rb,0.28824e-02_rb, &\n        & 0.28940e-02_rb,0.28268e-02_rb,0.25801e-02_rb,0.27164e-02_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.32328e-02_rb,0.28349e-02_rb,0.27139e-02_rb,0.28071e-02_rb,0.28820e-02_rb, &\n        & 0.28985e-02_rb,0.28328e-02_rb,0.25870e-02_rb,0.27280e-02_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.32337e-02_rb,0.28348e-02_rb,0.27027e-02_rb,0.27877e-02_rb,0.28613e-02_rb, &\n        & 0.28723e-02_rb,0.28004e-02_rb,0.25498e-02_rb,0.26848e-02_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.29442e-02_rb,0.26158e-02_rb,0.26686e-02_rb,0.28002e-02_rb,0.29074e-02_rb, &\n        & 0.29569e-02_rb,0.29354e-02_rb,0.27381e-02_rb,0.28491e-02_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.29416e-02_rb,0.26110e-02_rb,0.26570e-02_rb,0.27866e-02_rb,0.28959e-02_rb, &\n        & 0.29477e-02_rb,0.29295e-02_rb,0.27262e-02_rb,0.28287e-02_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.29392e-02_rb,0.26064e-02_rb,0.26421e-02_rb,0.27765e-02_rb,0.28845e-02_rb, &\n        & 0.29406e-02_rb,0.29202e-02_rb,0.27107e-02_rb,0.28099e-02_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.29406e-02_rb,0.26055e-02_rb,0.26309e-02_rb,0.27645e-02_rb,0.28769e-02_rb, &\n        & 0.29312e-02_rb,0.29057e-02_rb,0.26928e-02_rb,0.27972e-02_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.29379e-02_rb,0.26016e-02_rb,0.26230e-02_rb,0.27605e-02_rb,0.28772e-02_rb, &\n        & 0.29338e-02_rb,0.29114e-02_rb,0.26956e-02_rb,0.28225e-02_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.26861e-02_rb,0.24510e-02_rb,0.26014e-02_rb,0.27478e-02_rb,0.28811e-02_rb, &\n        & 0.29878e-02_rb,0.30091e-02_rb,0.28610e-02_rb,0.29320e-02_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.26822e-02_rb,0.24426e-02_rb,0.25898e-02_rb,0.27369e-02_rb,0.28725e-02_rb, &\n        & 0.29815e-02_rb,0.30039e-02_rb,0.28485e-02_rb,0.29157e-02_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.26829e-02_rb,0.24377e-02_rb,0.25766e-02_rb,0.27289e-02_rb,0.28648e-02_rb, &\n        & 0.29741e-02_rb,0.29940e-02_rb,0.28292e-02_rb,0.29014e-02_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.26816e-02_rb,0.24329e-02_rb,0.25674e-02_rb,0.27192e-02_rb,0.28602e-02_rb, &\n        & 0.29643e-02_rb,0.29808e-02_rb,0.28105e-02_rb,0.28911e-02_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.26776e-02_rb,0.24242e-02_rb,0.25584e-02_rb,0.27174e-02_rb,0.28631e-02_rb, &\n        & 0.29690e-02_rb,0.29916e-02_rb,0.28176e-02_rb,0.29253e-02_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.24590e-02_rb,0.23376e-02_rb,0.25355e-02_rb,0.26945e-02_rb,0.28553e-02_rb, &\n        & 0.29996e-02_rb,0.30574e-02_rb,0.29544e-02_rb,0.30033e-02_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.24565e-02_rb,0.23281e-02_rb,0.25242e-02_rb,0.26862e-02_rb,0.28495e-02_rb, &\n        & 0.29966e-02_rb,0.30559e-02_rb,0.29459e-02_rb,0.29901e-02_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.24594e-02_rb,0.23224e-02_rb,0.25135e-02_rb,0.26796e-02_rb,0.28441e-02_rb, &\n        & 0.29914e-02_rb,0.30494e-02_rb,0.29315e-02_rb,0.29796e-02_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.24561e-02_rb,0.23120e-02_rb,0.25070e-02_rb,0.26723e-02_rb,0.28398e-02_rb, &\n        & 0.29830e-02_rb,0.30431e-02_rb,0.29165e-02_rb,0.29718e-02_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.24544e-02_rb,0.23009e-02_rb,0.24971e-02_rb,0.26678e-02_rb,0.28335e-02_rb, &\n        & 0.29758e-02_rb,0.30342e-02_rb,0.29019e-02_rb,0.29654e-02_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.22277e-02_rb,0.22296e-02_rb,0.24669e-02_rb,0.26497e-02_rb,0.28285e-02_rb, &\n        & 0.29885e-02_rb,0.30855e-02_rb,0.30292e-02_rb,0.30616e-02_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.22293e-02_rb,0.22219e-02_rb,0.24569e-02_rb,0.26437e-02_rb,0.28247e-02_rb, &\n        & 0.29924e-02_rb,0.30879e-02_rb,0.30266e-02_rb,0.30510e-02_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.22351e-02_rb,0.22176e-02_rb,0.24495e-02_rb,0.26382e-02_rb,0.28222e-02_rb, &\n        & 0.29913e-02_rb,0.30877e-02_rb,0.30175e-02_rb,0.30415e-02_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.22344e-02_rb,0.22079e-02_rb,0.24453e-02_rb,0.26324e-02_rb,0.28192e-02_rb, &\n        & 0.29887e-02_rb,0.30862e-02_rb,0.30074e-02_rb,0.30342e-02_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.22361e-02_rb,0.21982e-02_rb,0.24378e-02_rb,0.26291e-02_rb,0.28143e-02_rb, &\n        & 0.29850e-02_rb,0.30822e-02_rb,0.29969e-02_rb,0.30270e-02_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.19878e-02_rb,0.21080e-02_rb,0.23886e-02_rb,0.26087e-02_rb,0.27952e-02_rb, &\n        & 0.29676e-02_rb,0.31003e-02_rb,0.30904e-02_rb,0.31018e-02_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.19936e-02_rb,0.21034e-02_rb,0.23825e-02_rb,0.26049e-02_rb,0.27978e-02_rb, &\n        & 0.29755e-02_rb,0.31107e-02_rb,0.30954e-02_rb,0.30940e-02_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.20012e-02_rb,0.21016e-02_rb,0.23778e-02_rb,0.26010e-02_rb,0.27982e-02_rb, &\n        & 0.29815e-02_rb,0.31166e-02_rb,0.30929e-02_rb,0.30865e-02_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.20034e-02_rb,0.20960e-02_rb,0.23764e-02_rb,0.25979e-02_rb,0.27992e-02_rb, &\n        & 0.29823e-02_rb,0.31192e-02_rb,0.30868e-02_rb,0.30812e-02_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.20095e-02_rb,0.20891e-02_rb,0.23711e-02_rb,0.25960e-02_rb,0.27964e-02_rb, &\n        & 0.29828e-02_rb,0.31181e-02_rb,0.30806e-02_rb,0.30733e-02_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.17523e-02_rb,0.19789e-02_rb,0.23024e-02_rb,0.25572e-02_rb,0.27629e-02_rb, &\n        & 0.29479e-02_rb,0.31085e-02_rb,0.31444e-02_rb,0.30417e-02_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.17607e-02_rb,0.19777e-02_rb,0.23013e-02_rb,0.25587e-02_rb,0.27691e-02_rb, &\n        & 0.29613e-02_rb,0.31227e-02_rb,0.31535e-02_rb,0.30346e-02_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.17693e-02_rb,0.19800e-02_rb,0.23011e-02_rb,0.25605e-02_rb,0.27739e-02_rb, &\n        & 0.29714e-02_rb,0.31329e-02_rb,0.31549e-02_rb,0.30299e-02_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.17751e-02_rb,0.19773e-02_rb,0.23025e-02_rb,0.25606e-02_rb,0.27770e-02_rb, &\n        & 0.29770e-02_rb,0.31405e-02_rb,0.31532e-02_rb,0.30280e-02_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.17845e-02_rb,0.19738e-02_rb,0.23006e-02_rb,0.25633e-02_rb,0.27766e-02_rb, &\n        & 0.29802e-02_rb,0.31452e-02_rb,0.31517e-02_rb,0.30317e-02_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.15244e-02_rb,0.18437e-02_rb,0.22100e-02_rb,0.24972e-02_rb,0.27331e-02_rb, &\n        & 0.29304e-02_rb,0.31059e-02_rb,0.31844e-02_rb,0.23817e-04_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.15360e-02_rb,0.18467e-02_rb,0.22145e-02_rb,0.25068e-02_rb,0.27437e-02_rb, &\n        & 0.29473e-02_rb,0.31260e-02_rb,0.31986e-02_rb,0.12454e-04_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.15476e-02_rb,0.18512e-02_rb,0.22181e-02_rb,0.25119e-02_rb,0.27538e-02_rb, &\n        & 0.29593e-02_rb,0.31389e-02_rb,0.32042e-02_rb,0.30814e-04_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.15571e-02_rb,0.18528e-02_rb,0.22235e-02_rb,0.25174e-02_rb,0.27591e-02_rb, &\n        & 0.29666e-02_rb,0.31497e-02_rb,0.32063e-02_rb,0.11698e-04_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.15695e-02_rb,0.18534e-02_rb,0.22262e-02_rb,0.25236e-02_rb,0.27611e-02_rb, &\n        & 0.29733e-02_rb,0.31600e-02_rb,0.32093e-02_rb,0.22330e-04_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.13188e-02_rb,0.17123e-02_rb,0.21150e-02_rb,0.24398e-02_rb,0.27060e-02_rb, &\n        & 0.29190e-02_rb,0.31061e-02_rb,0.32197e-02_rb,0.11689e-04_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.13341e-02_rb,0.17189e-02_rb,0.21240e-02_rb,0.24532e-02_rb,0.27222e-02_rb, &\n        & 0.29371e-02_rb,0.31262e-02_rb,0.32338e-02_rb,0.11845e-04_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.13447e-02_rb,0.17274e-02_rb,0.21339e-02_rb,0.24651e-02_rb,0.27343e-02_rb, &\n        & 0.29498e-02_rb,0.31430e-02_rb,0.32440e-02_rb,0.24255e-04_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.13578e-02_rb,0.17324e-02_rb,0.21454e-02_rb,0.24765e-02_rb,0.27400e-02_rb, &\n        & 0.29585e-02_rb,0.31579e-02_rb,0.32502e-02_rb,0.35648e-04_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.13715e-02_rb,0.17394e-02_rb,0.21518e-02_rb,0.24842e-02_rb,0.27436e-02_rb, &\n        & 0.29689e-02_rb,0.31719e-02_rb,0.32570e-02_rb,0.48216e-04_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.11367e-02_rb,0.15942e-02_rb,0.20255e-02_rb,0.23827e-02_rb,0.26757e-02_rb, &\n        & 0.29001e-02_rb,0.30944e-02_rb,0.32386e-02_rb,0.48616e-12_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.11495e-02_rb,0.16057e-02_rb,0.20405e-02_rb,0.24019e-02_rb,0.26965e-02_rb, &\n        & 0.29177e-02_rb,0.31160e-02_rb,0.32553e-02_rb,0.63803e-12_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.11626e-02_rb,0.16147e-02_rb,0.20558e-02_rb,0.24193e-02_rb,0.27102e-02_rb, &\n        & 0.29330e-02_rb,0.31363e-02_rb,0.32673e-02_rb,0.18451e-04_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.11784e-02_rb,0.16224e-02_rb,0.20681e-02_rb,0.24334e-02_rb,0.27187e-02_rb, &\n        & 0.29473e-02_rb,0.31560e-02_rb,0.32789e-02_rb,0.93725e-12_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.11935e-02_rb,0.16327e-02_rb,0.20790e-02_rb,0.24438e-02_rb,0.27275e-02_rb, &\n        & 0.29614e-02_rb,0.31756e-02_rb,0.32901e-02_rb,0.36773e-04_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.97386e-03_rb,0.14865e-02_rb,0.19422e-02_rb,0.23265e-02_rb,0.26377e-02_rb, &\n        & 0.28742e-02_rb,0.30758e-02_rb,0.32440e-02_rb,0.42838e-12_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.98704e-03_rb,0.15018e-02_rb,0.19617e-02_rb,0.23518e-02_rb,0.26608e-02_rb, &\n        & 0.28955e-02_rb,0.31025e-02_rb,0.32660e-02_rb,0.54956e-12_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.10034e-02_rb,0.15127e-02_rb,0.19822e-02_rb,0.23722e-02_rb,0.26791e-02_rb, &\n        & 0.29131e-02_rb,0.31272e-02_rb,0.32827e-02_rb,0.68281e-12_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.10185e-02_rb,0.15248e-02_rb,0.19990e-02_rb,0.23896e-02_rb,0.26942e-02_rb, &\n        & 0.29331e-02_rb,0.31525e-02_rb,0.33003e-02_rb,0.47348e-04_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.10353e-02_rb,0.15370e-02_rb,0.20122e-02_rb,0.24032e-02_rb,0.27096e-02_rb, &\n        & 0.29526e-02_rb,0.31774e-02_rb,0.33154e-02_rb,0.94094e-12_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.11127e-01_rb,0.97365e-02_rb,0.83450e-02_rb,0.69546e-02_rb,0.57518e-02_rb, &\n        & 0.48972e-02_rb,0.42517e-02_rb,0.34771e-02_rb,0.44616e-02_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.11168e-01_rb,0.97719e-02_rb,0.83762e-02_rb,0.69801e-02_rb,0.57613e-02_rb, &\n        & 0.48914e-02_rb,0.42324e-02_rb,0.34356e-02_rb,0.44183e-02_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.11206e-01_rb,0.98061e-02_rb,0.84051e-02_rb,0.70040e-02_rb,0.57786e-02_rb, &\n        & 0.48973e-02_rb,0.42300e-02_rb,0.34167e-02_rb,0.44088e-02_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.11230e-01_rb,0.98265e-02_rb,0.84228e-02_rb,0.70190e-02_rb,0.57794e-02_rb, &\n        & 0.48702e-02_rb,0.41927e-02_rb,0.33658e-02_rb,0.43365e-02_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.11247e-01_rb,0.98411e-02_rb,0.84348e-02_rb,0.70292e-02_rb,0.57800e-02_rb, &\n        & 0.48600e-02_rb,0.41735e-02_rb,0.33367e-02_rb,0.43003e-02_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.11360e-01_rb,0.99403e-02_rb,0.85204e-02_rb,0.71449e-02_rb,0.60754e-02_rb, &\n        & 0.53678e-02_rb,0.47333e-02_rb,0.38804e-02_rb,0.48459e-02_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.11402e-01_rb,0.99768e-02_rb,0.85517e-02_rb,0.71687e-02_rb,0.60816e-02_rb, &\n        & 0.53522e-02_rb,0.47062e-02_rb,0.38343e-02_rb,0.48034e-02_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.11432e-01_rb,0.10003e-01_rb,0.85744e-02_rb,0.71872e-02_rb,0.60934e-02_rb, &\n        & 0.53498e-02_rb,0.46968e-02_rb,0.38177e-02_rb,0.48004e-02_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.11460e-01_rb,0.10028e-01_rb,0.85956e-02_rb,0.72000e-02_rb,0.60909e-02_rb, &\n        & 0.53282e-02_rb,0.46686e-02_rb,0.37852e-02_rb,0.47598e-02_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.11484e-01_rb,0.10049e-01_rb,0.86132e-02_rb,0.72108e-02_rb,0.60794e-02_rb, &\n        & 0.52951e-02_rb,0.46284e-02_rb,0.37347e-02_rb,0.46895e-02_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.11375e-01_rb,0.99535e-02_rb,0.85318e-02_rb,0.72748e-02_rb,0.63965e-02_rb, &\n        & 0.58374e-02_rb,0.52215e-02_rb,0.43002e-02_rb,0.52258e-02_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.11412e-01_rb,0.99855e-02_rb,0.85592e-02_rb,0.72909e-02_rb,0.63926e-02_rb, &\n        & 0.58142e-02_rb,0.51838e-02_rb,0.42530e-02_rb,0.51857e-02_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.11451e-01_rb,0.10019e-01_rb,0.85873e-02_rb,0.73027e-02_rb,0.63856e-02_rb, &\n        & 0.57886e-02_rb,0.51485e-02_rb,0.42153e-02_rb,0.51479e-02_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.11483e-01_rb,0.10047e-01_rb,0.86122e-02_rb,0.73190e-02_rb,0.63840e-02_rb, &\n        & 0.57742e-02_rb,0.51342e-02_rb,0.42027e-02_rb,0.51482e-02_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.11512e-01_rb,0.10073e-01_rb,0.86339e-02_rb,0.73301e-02_rb,0.63706e-02_rb, &\n        & 0.57344e-02_rb,0.50899e-02_rb,0.41496e-02_rb,0.50782e-02_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.11149e-01_rb,0.97560e-02_rb,0.83906e-02_rb,0.73568e-02_rb,0.67050e-02_rb, &\n        & 0.62789e-02_rb,0.56809e-02_rb,0.47244e-02_rb,0.55742e-02_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.11201e-01_rb,0.98016e-02_rb,0.84237e-02_rb,0.73684e-02_rb,0.66927e-02_rb, &\n        & 0.62506e-02_rb,0.56398e-02_rb,0.46775e-02_rb,0.55381e-02_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.11250e-01_rb,0.98437e-02_rb,0.84576e-02_rb,0.73794e-02_rb,0.66793e-02_rb, &\n        & 0.62192e-02_rb,0.56018e-02_rb,0.46402e-02_rb,0.55028e-02_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.11293e-01_rb,0.98814e-02_rb,0.84883e-02_rb,0.73928e-02_rb,0.66658e-02_rb, &\n        & 0.61879e-02_rb,0.55699e-02_rb,0.46073e-02_rb,0.54669e-02_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.11341e-01_rb,0.99237e-02_rb,0.85206e-02_rb,0.74085e-02_rb,0.66636e-02_rb, &\n        & 0.61710e-02_rb,0.55548e-02_rb,0.45934e-02_rb,0.54646e-02_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.10704e-01_rb,0.93660e-02_rb,0.81568e-02_rb,0.74021e-02_rb,0.69945e-02_rb, &\n        & 0.66654e-02_rb,0.61172e-02_rb,0.51470e-02_rb,0.58967e-02_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.10771e-01_rb,0.94250e-02_rb,0.81953e-02_rb,0.74101e-02_rb,0.69769e-02_rb, &\n        & 0.66347e-02_rb,0.60743e-02_rb,0.50992e-02_rb,0.58616e-02_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.10834e-01_rb,0.94795e-02_rb,0.82348e-02_rb,0.74202e-02_rb,0.69586e-02_rb, &\n        & 0.66047e-02_rb,0.60376e-02_rb,0.50623e-02_rb,0.58279e-02_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.10899e-01_rb,0.95365e-02_rb,0.82726e-02_rb,0.74343e-02_rb,0.69400e-02_rb, &\n        & 0.65760e-02_rb,0.60076e-02_rb,0.50289e-02_rb,0.57953e-02_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.10965e-01_rb,0.95941e-02_rb,0.83123e-02_rb,0.74464e-02_rb,0.69292e-02_rb, &\n        & 0.65626e-02_rb,0.59940e-02_rb,0.50178e-02_rb,0.57938e-02_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.10078e-01_rb,0.88178e-02_rb,0.78666e-02_rb,0.74112e-02_rb,0.72308e-02_rb, &\n        & 0.70100e-02_rb,0.65312e-02_rb,0.55779e-02_rb,0.62140e-02_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.10161e-01_rb,0.88906e-02_rb,0.79113e-02_rb,0.74185e-02_rb,0.72160e-02_rb, &\n        & 0.69843e-02_rb,0.64888e-02_rb,0.55247e-02_rb,0.61818e-02_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.10243e-01_rb,0.89616e-02_rb,0.79583e-02_rb,0.74318e-02_rb,0.71999e-02_rb, &\n        & 0.69579e-02_rb,0.64523e-02_rb,0.54833e-02_rb,0.61492e-02_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.10327e-01_rb,0.90374e-02_rb,0.79989e-02_rb,0.74443e-02_rb,0.71832e-02_rb, &\n        & 0.69350e-02_rb,0.64210e-02_rb,0.54479e-02_rb,0.61172e-02_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.10409e-01_rb,0.91075e-02_rb,0.80421e-02_rb,0.74489e-02_rb,0.71645e-02_rb, &\n        & 0.69118e-02_rb,0.63952e-02_rb,0.54129e-02_rb,0.60849e-02_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.93799e-02_rb,0.82246e-02_rb,0.75645e-02_rb,0.73983e-02_rb,0.74124e-02_rb, &\n        & 0.73054e-02_rb,0.69103e-02_rb,0.59986e-02_rb,0.65205e-02_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.94746e-02_rb,0.83048e-02_rb,0.76105e-02_rb,0.74041e-02_rb,0.74008e-02_rb, &\n        & 0.72835e-02_rb,0.68745e-02_rb,0.59435e-02_rb,0.64911e-02_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.95665e-02_rb,0.83814e-02_rb,0.76560e-02_rb,0.74150e-02_rb,0.73885e-02_rb, &\n        & 0.72645e-02_rb,0.68399e-02_rb,0.59000e-02_rb,0.64612e-02_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.96610e-02_rb,0.84615e-02_rb,0.76953e-02_rb,0.74218e-02_rb,0.73786e-02_rb, &\n        & 0.72467e-02_rb,0.68110e-02_rb,0.58618e-02_rb,0.64309e-02_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.97576e-02_rb,0.85445e-02_rb,0.77428e-02_rb,0.74271e-02_rb,0.73666e-02_rb, &\n        & 0.72295e-02_rb,0.67856e-02_rb,0.58248e-02_rb,0.64018e-02_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.86695e-02_rb,0.76539e-02_rb,0.72832e-02_rb,0.73811e-02_rb,0.75539e-02_rb, &\n        & 0.75395e-02_rb,0.72391e-02_rb,0.63979e-02_rb,0.68067e-02_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.87714e-02_rb,0.77350e-02_rb,0.73260e-02_rb,0.73889e-02_rb,0.75481e-02_rb, &\n        & 0.75307e-02_rb,0.72059e-02_rb,0.63386e-02_rb,0.67797e-02_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.88648e-02_rb,0.78065e-02_rb,0.73635e-02_rb,0.73928e-02_rb,0.75428e-02_rb, &\n        & 0.75176e-02_rb,0.71786e-02_rb,0.62948e-02_rb,0.67512e-02_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.89696e-02_rb,0.78903e-02_rb,0.74008e-02_rb,0.73947e-02_rb,0.75364e-02_rb, &\n        & 0.75091e-02_rb,0.71562e-02_rb,0.62573e-02_rb,0.67249e-02_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.90827e-02_rb,0.79827e-02_rb,0.74524e-02_rb,0.74004e-02_rb,0.75307e-02_rb, &\n        & 0.75004e-02_rb,0.71406e-02_rb,0.62196e-02_rb,0.66995e-02_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.79522e-02_rb,0.71197e-02_rb,0.70358e-02_rb,0.73522e-02_rb,0.76328e-02_rb, &\n        & 0.77097e-02_rb,0.75175e-02_rb,0.67703e-02_rb,0.70524e-02_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.80598e-02_rb,0.71969e-02_rb,0.70715e-02_rb,0.73653e-02_rb,0.76374e-02_rb, &\n        & 0.77113e-02_rb,0.74908e-02_rb,0.67151e-02_rb,0.70338e-02_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.81632e-02_rb,0.72678e-02_rb,0.71027e-02_rb,0.73712e-02_rb,0.76458e-02_rb, &\n        & 0.77123e-02_rb,0.74742e-02_rb,0.66728e-02_rb,0.70182e-02_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.82823e-02_rb,0.73561e-02_rb,0.71392e-02_rb,0.73768e-02_rb,0.76576e-02_rb, &\n        & 0.77143e-02_rb,0.74622e-02_rb,0.66357e-02_rb,0.69991e-02_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.84105e-02_rb,0.74558e-02_rb,0.71910e-02_rb,0.73874e-02_rb,0.76648e-02_rb, &\n        & 0.77180e-02_rb,0.74509e-02_rb,0.65977e-02_rb,0.69736e-02_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.72630e-02_rb,0.66377e-02_rb,0.68373e-02_rb,0.72984e-02_rb,0.76509e-02_rb, &\n        & 0.78294e-02_rb,0.77460e-02_rb,0.71207e-02_rb,0.20344e-04_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.73671e-02_rb,0.67055e-02_rb,0.68587e-02_rb,0.73198e-02_rb,0.76710e-02_rb, &\n        & 0.78437e-02_rb,0.77323e-02_rb,0.70655e-02_rb,0.20564e-04_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.74810e-02_rb,0.67793e-02_rb,0.68858e-02_rb,0.73353e-02_rb,0.76947e-02_rb, &\n        & 0.78590e-02_rb,0.77307e-02_rb,0.70272e-02_rb,0.37563e-05_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.76171e-02_rb,0.68754e-02_rb,0.69230e-02_rb,0.73502e-02_rb,0.77241e-02_rb, &\n        & 0.78765e-02_rb,0.77271e-02_rb,0.69915e-02_rb,0.47236e-05_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.77608e-02_rb,0.69811e-02_rb,0.69732e-02_rb,0.73676e-02_rb,0.77455e-02_rb, &\n        & 0.78941e-02_rb,0.77236e-02_rb,0.69531e-02_rb,0.26047e-04_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.66493e-02_rb,0.62366e-02_rb,0.66807e-02_rb,0.72344e-02_rb,0.76404e-02_rb, &\n        & 0.79217e-02_rb,0.79405e-02_rb,0.74097e-02_rb,0.00000e+00_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.67616e-02_rb,0.63044e-02_rb,0.67053e-02_rb,0.72656e-02_rb,0.76819e-02_rb, &\n        & 0.79515e-02_rb,0.79506e-02_rb,0.73718e-02_rb,0.18408e-04_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.69005e-02_rb,0.63894e-02_rb,0.67349e-02_rb,0.72931e-02_rb,0.77291e-02_rb, &\n        & 0.79845e-02_rb,0.79576e-02_rb,0.73388e-02_rb,0.37607e-04_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.70530e-02_rb,0.64912e-02_rb,0.67712e-02_rb,0.73223e-02_rb,0.77726e-02_rb, &\n        & 0.80170e-02_rb,0.79618e-02_rb,0.73054e-02_rb,0.56367e-04_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.72039e-02_rb,0.65911e-02_rb,0.68118e-02_rb,0.73572e-02_rb,0.78096e-02_rb, &\n        & 0.80477e-02_rb,0.79648e-02_rb,0.72708e-02_rb,0.00000e+00_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.60858e-02_rb,0.58916e-02_rb,0.65335e-02_rb,0.71525e-02_rb,0.76284e-02_rb, &\n        & 0.80006e-02_rb,0.81294e-02_rb,0.76675e-02_rb,0.58588e-04_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.62191e-02_rb,0.59612e-02_rb,0.65675e-02_rb,0.71998e-02_rb,0.76898e-02_rb, &\n        & 0.80500e-02_rb,0.81534e-02_rb,0.76479e-02_rb,0.00000e+00_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.63725e-02_rb,0.60546e-02_rb,0.66095e-02_rb,0.72445e-02_rb,0.77558e-02_rb, &\n        & 0.80973e-02_rb,0.81695e-02_rb,0.76255e-02_rb,0.29841e-04_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.65241e-02_rb,0.61494e-02_rb,0.66519e-02_rb,0.72916e-02_rb,0.78126e-02_rb, &\n        & 0.81445e-02_rb,0.81839e-02_rb,0.75955e-02_rb,0.00000e+00_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.66908e-02_rb,0.62534e-02_rb,0.66904e-02_rb,0.73429e-02_rb,0.78615e-02_rb, &\n        & 0.81879e-02_rb,0.81898e-02_rb,0.75652e-02_rb,0.00000e+00_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.55891e-02_rb,0.56116e-02_rb,0.63936e-02_rb,0.70621e-02_rb,0.76241e-02_rb, &\n        & 0.80837e-02_rb,0.82964e-02_rb,0.79007e-02_rb,0.00000e+00_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.57354e-02_rb,0.56825e-02_rb,0.64439e-02_rb,0.71280e-02_rb,0.77039e-02_rb, &\n        & 0.81460e-02_rb,0.83322e-02_rb,0.78896e-02_rb,0.38090e-04_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.58847e-02_rb,0.57651e-02_rb,0.64971e-02_rb,0.71963e-02_rb,0.77792e-02_rb, &\n        & 0.82047e-02_rb,0.83632e-02_rb,0.78746e-02_rb,0.00000e+00_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.60503e-02_rb,0.58579e-02_rb,0.65448e-02_rb,0.72663e-02_rb,0.78467e-02_rb, &\n        & 0.82617e-02_rb,0.83886e-02_rb,0.78555e-02_rb,0.00000e+00_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.62326e-02_rb,0.59678e-02_rb,0.65939e-02_rb,0.73313e-02_rb,0.79071e-02_rb, &\n        & 0.83133e-02_rb,0.83975e-02_rb,0.78294e-02_rb,0.00000e+00_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.22784e-01_rb,0.19937e-01_rb,0.17089e-01_rb,0.14240e-01_rb,0.11393e-01_rb, &\n        & 0.85439e-02_rb,0.62360e-02_rb,0.50515e-02_rb,0.76952e-02_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.22781e-01_rb,0.19933e-01_rb,0.17085e-01_rb,0.14238e-01_rb,0.11390e-01_rb, &\n        & 0.85426e-02_rb,0.62118e-02_rb,0.49990e-02_rb,0.75953e-02_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.22781e-01_rb,0.19934e-01_rb,0.17086e-01_rb,0.14239e-01_rb,0.11390e-01_rb, &\n        & 0.85428e-02_rb,0.62149e-02_rb,0.49913e-02_rb,0.75531e-02_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.22807e-01_rb,0.19955e-01_rb,0.17104e-01_rb,0.14253e-01_rb,0.11403e-01_rb, &\n        & 0.85521e-02_rb,0.61662e-02_rb,0.48921e-02_rb,0.74213e-02_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.22846e-01_rb,0.19991e-01_rb,0.17134e-01_rb,0.14278e-01_rb,0.11422e-01_rb, &\n        & 0.85672e-02_rb,0.61477e-02_rb,0.48442e-02_rb,0.73437e-02_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.25963e-01_rb,0.22716e-01_rb,0.19471e-01_rb,0.16227e-01_rb,0.12981e-01_rb, &\n        & 0.97432e-02_rb,0.72799e-02_rb,0.58913e-02_rb,0.89930e-02_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.25957e-01_rb,0.22712e-01_rb,0.19468e-01_rb,0.16223e-01_rb,0.12978e-01_rb, &\n        & 0.97376e-02_rb,0.72409e-02_rb,0.58243e-02_rb,0.88738e-02_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.25967e-01_rb,0.22721e-01_rb,0.19475e-01_rb,0.16229e-01_rb,0.12984e-01_rb, &\n        & 0.97376e-02_rb,0.72294e-02_rb,0.57970e-02_rb,0.88082e-02_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.25991e-01_rb,0.22741e-01_rb,0.19493e-01_rb,0.16243e-01_rb,0.12995e-01_rb, &\n        & 0.97464e-02_rb,0.71939e-02_rb,0.57194e-02_rb,0.86974e-02_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.26012e-01_rb,0.22759e-01_rb,0.19508e-01_rb,0.16256e-01_rb,0.13005e-01_rb, &\n        & 0.97539e-02_rb,0.71378e-02_rb,0.56167e-02_rb,0.85506e-02_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.29273e-01_rb,0.25614e-01_rb,0.21954e-01_rb,0.18296e-01_rb,0.14638e-01_rb, &\n        & 0.11059e-01_rb,0.84536e-02_rb,0.68488e-02_rb,0.10453e-01_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.29273e-01_rb,0.25613e-01_rb,0.21954e-01_rb,0.18296e-01_rb,0.14636e-01_rb, &\n        & 0.11040e-01_rb,0.84006e-02_rb,0.67671e-02_rb,0.10308e-01_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.29281e-01_rb,0.25620e-01_rb,0.21957e-01_rb,0.18299e-01_rb,0.14639e-01_rb, &\n        & 0.11029e-01_rb,0.83532e-02_rb,0.66803e-02_rb,0.10170e-01_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.29284e-01_rb,0.25622e-01_rb,0.21963e-01_rb,0.18303e-01_rb,0.14642e-01_rb, &\n        & 0.11027e-01_rb,0.83265e-02_rb,0.66328e-02_rb,0.10072e-01_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.29273e-01_rb,0.25615e-01_rb,0.21955e-01_rb,0.18297e-01_rb,0.14636e-01_rb, &\n        & 0.11016e-01_rb,0.82524e-02_rb,0.65141e-02_rb,0.98927e-02_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.32689e-01_rb,0.28601e-01_rb,0.24517e-01_rb,0.20431e-01_rb,0.16343e-01_rb, &\n        & 0.12498e-01_rb,0.97860e-02_rb,0.79359e-02_rb,0.11964e-01_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.32673e-01_rb,0.28590e-01_rb,0.24505e-01_rb,0.20420e-01_rb,0.16336e-01_rb, &\n        & 0.12462e-01_rb,0.97090e-02_rb,0.78356e-02_rb,0.11793e-01_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.32657e-01_rb,0.28575e-01_rb,0.24494e-01_rb,0.20410e-01_rb,0.16330e-01_rb, &\n        & 0.12434e-01_rb,0.96384e-02_rb,0.77321e-02_rb,0.11625e-01_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.32631e-01_rb,0.28553e-01_rb,0.24473e-01_rb,0.20396e-01_rb,0.16316e-01_rb, &\n        & 0.12404e-01_rb,0.95671e-02_rb,0.76286e-02_rb,0.11457e-01_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.32595e-01_rb,0.28521e-01_rb,0.24445e-01_rb,0.20372e-01_rb,0.16297e-01_rb, &\n        & 0.12376e-01_rb,0.95137e-02_rb,0.75694e-02_rb,0.11318e-01_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.36129e-01_rb,0.31613e-01_rb,0.27097e-01_rb,0.22582e-01_rb,0.18065e-01_rb, &\n        & 0.14059e-01_rb,0.11253e-01_rb,0.91497e-02_rb,0.13513e-01_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.36091e-01_rb,0.31580e-01_rb,0.27068e-01_rb,0.22557e-01_rb,0.18046e-01_rb, &\n        & 0.13996e-01_rb,0.11159e-01_rb,0.90273e-02_rb,0.13314e-01_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.36050e-01_rb,0.31543e-01_rb,0.27038e-01_rb,0.22530e-01_rb,0.18025e-01_rb, &\n        & 0.13938e-01_rb,0.11057e-01_rb,0.89022e-02_rb,0.13117e-01_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.35994e-01_rb,0.31496e-01_rb,0.26994e-01_rb,0.22495e-01_rb,0.17996e-01_rb, &\n        & 0.13877e-01_rb,0.10953e-01_rb,0.87755e-02_rb,0.12914e-01_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.35944e-01_rb,0.31450e-01_rb,0.26957e-01_rb,0.22466e-01_rb,0.17973e-01_rb, &\n        & 0.13819e-01_rb,0.10863e-01_rb,0.86942e-02_rb,0.12744e-01_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.39506e-01_rb,0.34566e-01_rb,0.29627e-01_rb,0.24691e-01_rb,0.19819e-01_rb, &\n        & 0.15734e-01_rb,0.12852e-01_rb,0.10482e-01_rb,0.15100e-01_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.39438e-01_rb,0.34510e-01_rb,0.29581e-01_rb,0.24651e-01_rb,0.19767e-01_rb, &\n        & 0.15626e-01_rb,0.12723e-01_rb,0.10339e-01_rb,0.14869e-01_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.39363e-01_rb,0.34443e-01_rb,0.29524e-01_rb,0.24601e-01_rb,0.19714e-01_rb, &\n        & 0.15531e-01_rb,0.12593e-01_rb,0.10189e-01_rb,0.14636e-01_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.39295e-01_rb,0.34380e-01_rb,0.29468e-01_rb,0.24559e-01_rb,0.19663e-01_rb, &\n        & 0.15432e-01_rb,0.12453e-01_rb,0.10038e-01_rb,0.14402e-01_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.39232e-01_rb,0.34326e-01_rb,0.29423e-01_rb,0.24518e-01_rb,0.19622e-01_rb, &\n        & 0.15336e-01_rb,0.12308e-01_rb,0.98939e-02_rb,0.14172e-01_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.42642e-01_rb,0.37314e-01_rb,0.31983e-01_rb,0.26652e-01_rb,0.21609e-01_rb, &\n        & 0.17542e-01_rb,0.14584e-01_rb,0.11924e-01_rb,0.16714e-01_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.42588e-01_rb,0.37267e-01_rb,0.31942e-01_rb,0.26620e-01_rb,0.21537e-01_rb, &\n        & 0.17385e-01_rb,0.14405e-01_rb,0.11750e-01_rb,0.16453e-01_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.42519e-01_rb,0.37203e-01_rb,0.31888e-01_rb,0.26575e-01_rb,0.21450e-01_rb, &\n        & 0.17237e-01_rb,0.14233e-01_rb,0.11569e-01_rb,0.16190e-01_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.42450e-01_rb,0.37145e-01_rb,0.31837e-01_rb,0.26531e-01_rb,0.21364e-01_rb, &\n        & 0.17089e-01_rb,0.14051e-01_rb,0.11390e-01_rb,0.15924e-01_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.42372e-01_rb,0.37075e-01_rb,0.31780e-01_rb,0.26482e-01_rb,0.21293e-01_rb, &\n        & 0.16947e-01_rb,0.13866e-01_rb,0.11216e-01_rb,0.15662e-01_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.45438e-01_rb,0.39757e-01_rb,0.34077e-01_rb,0.28427e-01_rb,0.23418e-01_rb, &\n        & 0.19456e-01_rb,0.16427e-01_rb,0.13456e-01_rb,0.18359e-01_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.45420e-01_rb,0.39742e-01_rb,0.34065e-01_rb,0.28396e-01_rb,0.23308e-01_rb, &\n        & 0.19242e-01_rb,0.16196e-01_rb,0.13253e-01_rb,0.18076e-01_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.45404e-01_rb,0.39728e-01_rb,0.34054e-01_rb,0.28379e-01_rb,0.23190e-01_rb, &\n        & 0.19044e-01_rb,0.15968e-01_rb,0.13036e-01_rb,0.17789e-01_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.45355e-01_rb,0.39684e-01_rb,0.34015e-01_rb,0.28348e-01_rb,0.23074e-01_rb, &\n        & 0.18841e-01_rb,0.15735e-01_rb,0.12818e-01_rb,0.17487e-01_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.45268e-01_rb,0.39604e-01_rb,0.33951e-01_rb,0.28294e-01_rb,0.22964e-01_rb, &\n        & 0.18639e-01_rb,0.15495e-01_rb,0.12608e-01_rb,0.17187e-01_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.47828e-01_rb,0.41848e-01_rb,0.35870e-01_rb,0.30096e-01_rb,0.25238e-01_rb, &\n        & 0.21453e-01_rb,0.18348e-01_rb,0.15048e-01_rb,0.20030e-01_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.47883e-01_rb,0.41899e-01_rb,0.35911e-01_rb,0.30061e-01_rb,0.25102e-01_rb, &\n        & 0.21178e-01_rb,0.18071e-01_rb,0.14812e-01_rb,0.19720e-01_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.47917e-01_rb,0.41930e-01_rb,0.35941e-01_rb,0.30033e-01_rb,0.24934e-01_rb, &\n        & 0.20917e-01_rb,0.17786e-01_rb,0.14566e-01_rb,0.19396e-01_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.47914e-01_rb,0.41927e-01_rb,0.35936e-01_rb,0.29997e-01_rb,0.24771e-01_rb, &\n        & 0.20657e-01_rb,0.17491e-01_rb,0.14311e-01_rb,0.19056e-01_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.47853e-01_rb,0.41872e-01_rb,0.35889e-01_rb,0.29935e-01_rb,0.24616e-01_rb, &\n        & 0.20393e-01_rb,0.17196e-01_rb,0.14061e-01_rb,0.18721e-01_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.49786e-01_rb,0.43562e-01_rb,0.37346e-01_rb,0.31673e-01_rb,0.27058e-01_rb, &\n        & 0.23446e-01_rb,0.20298e-01_rb,0.16634e-01_rb,0.20401e-01_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.49957e-01_rb,0.43713e-01_rb,0.37470e-01_rb,0.31624e-01_rb,0.26879e-01_rb, &\n        & 0.23121e-01_rb,0.19962e-01_rb,0.16379e-01_rb,0.19980e-01_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.50073e-01_rb,0.43811e-01_rb,0.37553e-01_rb,0.31591e-01_rb,0.26668e-01_rb, &\n        & 0.22810e-01_rb,0.19616e-01_rb,0.16101e-01_rb,0.19150e-01_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.50104e-01_rb,0.43839e-01_rb,0.37576e-01_rb,0.31542e-01_rb,0.26451e-01_rb, &\n        & 0.22487e-01_rb,0.19263e-01_rb,0.15810e-01_rb,0.18309e-01_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.50083e-01_rb,0.43821e-01_rb,0.37560e-01_rb,0.31463e-01_rb,0.26247e-01_rb, &\n        & 0.22153e-01_rb,0.18906e-01_rb,0.15516e-01_rb,0.17790e-01_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.51449e-01_rb,0.45016e-01_rb,0.38642e-01_rb,0.33136e-01_rb,0.28759e-01_rb, &\n        & 0.25254e-01_rb,0.22053e-01_rb,0.18120e-01_rb,0.53897e-02_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.51718e-01_rb,0.45255e-01_rb,0.38815e-01_rb,0.33090e-01_rb,0.28517e-01_rb, &\n        & 0.24894e-01_rb,0.21659e-01_rb,0.17825e-01_rb,0.47196e-02_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.51885e-01_rb,0.45397e-01_rb,0.38919e-01_rb,0.33034e-01_rb,0.28248e-01_rb, &\n        & 0.24520e-01_rb,0.21252e-01_rb,0.17499e-01_rb,0.36639e-02_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.51965e-01_rb,0.45468e-01_rb,0.38969e-01_rb,0.32946e-01_rb,0.27987e-01_rb, &\n        & 0.24125e-01_rb,0.20834e-01_rb,0.17164e-01_rb,0.30436e-02_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.52007e-01_rb,0.45508e-01_rb,0.39008e-01_rb,0.32828e-01_rb,0.27732e-01_rb, &\n        & 0.23720e-01_rb,0.20415e-01_rb,0.16822e-01_rb,0.23024e-02_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.52772e-01_rb,0.46179e-01_rb,0.39786e-01_rb,0.34518e-01_rb,0.30341e-01_rb, &\n        & 0.26996e-01_rb,0.23719e-01_rb,0.19625e-01_rb,0.00000e+00_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.53131e-01_rb,0.46489e-01_rb,0.39976e-01_rb,0.34451e-01_rb,0.30050e-01_rb, &\n        & 0.26583e-01_rb,0.23271e-01_rb,0.19259e-01_rb,0.79250e-04_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.53372e-01_rb,0.46707e-01_rb,0.40090e-01_rb,0.34369e-01_rb,0.29734e-01_rb, &\n        & 0.26140e-01_rb,0.22802e-01_rb,0.18870e-01_rb,0.00000e+00_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.53549e-01_rb,0.46855e-01_rb,0.40175e-01_rb,0.34238e-01_rb,0.29424e-01_rb, &\n        & 0.25661e-01_rb,0.22318e-01_rb,0.18486e-01_rb,0.00000e+00_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.53641e-01_rb,0.46944e-01_rb,0.40238e-01_rb,0.34087e-01_rb,0.29108e-01_rb, &\n        & 0.25184e-01_rb,0.21836e-01_rb,0.18091e-01_rb,0.00000e+00_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.53794e-01_rb,0.47070e-01_rb,0.40802e-01_rb,0.35804e-01_rb,0.31808e-01_rb, &\n        & 0.28611e-01_rb,0.25317e-01_rb,0.21103e-01_rb,0.00000e+00_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.54248e-01_rb,0.47468e-01_rb,0.40994e-01_rb,0.35717e-01_rb,0.31468e-01_rb, &\n        & 0.28147e-01_rb,0.24800e-01_rb,0.20666e-01_rb,0.99549e-04_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.54616e-01_rb,0.47795e-01_rb,0.41127e-01_rb,0.35591e-01_rb,0.31112e-01_rb, &\n        & 0.27634e-01_rb,0.24251e-01_rb,0.20223e-01_rb,0.00000e+00_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.54881e-01_rb,0.48017e-01_rb,0.41234e-01_rb,0.35410e-01_rb,0.30749e-01_rb, &\n        & 0.27090e-01_rb,0.23692e-01_rb,0.19766e-01_rb,0.00000e+00_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.55030e-01_rb,0.48150e-01_rb,0.41295e-01_rb,0.35229e-01_rb,0.30369e-01_rb, &\n        & 0.26544e-01_rb,0.23150e-01_rb,0.19313e-01_rb,0.00000e+00_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.31412e-01_rb,0.27484e-01_rb,0.23556e-01_rb,0.19630e-01_rb,0.15703e-01_rb, &\n        & 0.11777e-01_rb,0.78503e-02_rb,0.63859e-02_rb,0.10546e-01_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.31306e-01_rb,0.27393e-01_rb,0.23480e-01_rb,0.19566e-01_rb,0.15652e-01_rb, &\n        & 0.11737e-01_rb,0.78244e-02_rb,0.64039e-02_rb,0.10543e-01_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.31189e-01_rb,0.27291e-01_rb,0.23390e-01_rb,0.19492e-01_rb,0.15594e-01_rb, &\n        & 0.11694e-01_rb,0.77949e-02_rb,0.65607e-02_rb,0.10621e-01_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.31060e-01_rb,0.27175e-01_rb,0.23293e-01_rb,0.19412e-01_rb,0.15526e-01_rb, &\n        & 0.11645e-01_rb,0.77621e-02_rb,0.64197e-02_rb,0.10470e-01_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.30934e-01_rb,0.27069e-01_rb,0.23201e-01_rb,0.19334e-01_rb,0.15466e-01_rb, &\n        & 0.11599e-01_rb,0.77309e-02_rb,0.64181e-02_rb,0.10407e-01_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.37345e-01_rb,0.32673e-01_rb,0.28007e-01_rb,0.23341e-01_rb,0.18670e-01_rb, &\n        & 0.14002e-01_rb,0.93330e-02_rb,0.76035e-02_rb,0.12759e-01_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.37160e-01_rb,0.32513e-01_rb,0.27871e-01_rb,0.23225e-01_rb,0.18579e-01_rb, &\n        & 0.13933e-01_rb,0.92868e-02_rb,0.75902e-02_rb,0.12702e-01_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.36977e-01_rb,0.32353e-01_rb,0.27732e-01_rb,0.23111e-01_rb,0.18487e-01_rb, &\n        & 0.13864e-01_rb,0.92415e-02_rb,0.77168e-02_rb,0.12729e-01_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.36807e-01_rb,0.32204e-01_rb,0.27602e-01_rb,0.23002e-01_rb,0.18402e-01_rb, &\n        & 0.13798e-01_rb,0.91981e-02_rb,0.77023e-02_rb,0.12641e-01_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.36620e-01_rb,0.32046e-01_rb,0.27465e-01_rb,0.22887e-01_rb,0.18309e-01_rb, &\n        & 0.13731e-01_rb,0.91527e-02_rb,0.75684e-02_rb,0.12457e-01_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.44232e-01_rb,0.38700e-01_rb,0.33173e-01_rb,0.27644e-01_rb,0.22114e-01_rb, &\n        & 0.16581e-01_rb,0.11054e-01_rb,0.91028e-02_rb,0.15510e-01_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.43957e-01_rb,0.38463e-01_rb,0.32969e-01_rb,0.27474e-01_rb,0.21977e-01_rb, &\n        & 0.16483e-01_rb,0.10987e-01_rb,0.90298e-02_rb,0.15354e-01_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.43680e-01_rb,0.38217e-01_rb,0.32756e-01_rb,0.27297e-01_rb,0.21838e-01_rb, &\n        & 0.16376e-01_rb,0.10918e-01_rb,0.89896e-02_rb,0.15195e-01_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.43409e-01_rb,0.37982e-01_rb,0.32556e-01_rb,0.27128e-01_rb,0.21703e-01_rb, &\n        & 0.16277e-01_rb,0.10849e-01_rb,0.90630e-02_rb,0.15090e-01_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.43148e-01_rb,0.37757e-01_rb,0.32362e-01_rb,0.26967e-01_rb,0.21574e-01_rb, &\n        & 0.16179e-01_rb,0.10784e-01_rb,0.89323e-02_rb,0.14861e-01_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.52173e-01_rb,0.45650e-01_rb,0.39129e-01_rb,0.32609e-01_rb,0.26084e-01_rb, &\n        & 0.19564e-01_rb,0.13063e-01_rb,0.10928e-01_rb,0.18665e-01_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.51767e-01_rb,0.45298e-01_rb,0.38824e-01_rb,0.32358e-01_rb,0.25882e-01_rb, &\n        & 0.19411e-01_rb,0.12948e-01_rb,0.10795e-01_rb,0.18386e-01_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.51358e-01_rb,0.44935e-01_rb,0.38514e-01_rb,0.32093e-01_rb,0.25677e-01_rb, &\n        & 0.19255e-01_rb,0.12843e-01_rb,0.10694e-01_rb,0.18120e-01_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.50955e-01_rb,0.44587e-01_rb,0.38218e-01_rb,0.31847e-01_rb,0.25475e-01_rb, &\n        & 0.19107e-01_rb,0.12737e-01_rb,0.10607e-01_rb,0.17851e-01_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.50544e-01_rb,0.44227e-01_rb,0.37909e-01_rb,0.31588e-01_rb,0.25270e-01_rb, &\n        & 0.18952e-01_rb,0.12634e-01_rb,0.10599e-01_rb,0.17618e-01_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.61214e-01_rb,0.53565e-01_rb,0.45917e-01_rb,0.38262e-01_rb,0.30607e-01_rb, &\n        & 0.22954e-01_rb,0.15462e-01_rb,0.13125e-01_rb,0.22278e-01_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.60651e-01_rb,0.53068e-01_rb,0.45484e-01_rb,0.37903e-01_rb,0.30322e-01_rb, &\n        & 0.22741e-01_rb,0.15244e-01_rb,0.12927e-01_rb,0.21870e-01_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.60040e-01_rb,0.52533e-01_rb,0.45028e-01_rb,0.37524e-01_rb,0.30019e-01_rb, &\n        & 0.22514e-01_rb,0.15074e-01_rb,0.12758e-01_rb,0.21465e-01_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.59437e-01_rb,0.52006e-01_rb,0.44573e-01_rb,0.37145e-01_rb,0.29715e-01_rb, &\n        & 0.22286e-01_rb,0.14911e-01_rb,0.12602e-01_rb,0.21062e-01_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.58809e-01_rb,0.51461e-01_rb,0.44106e-01_rb,0.36755e-01_rb,0.29405e-01_rb, &\n        & 0.22053e-01_rb,0.14746e-01_rb,0.12499e-01_rb,0.20685e-01_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.71375e-01_rb,0.62451e-01_rb,0.53529e-01_rb,0.44607e-01_rb,0.35687e-01_rb, &\n        & 0.26759e-01_rb,0.18273e-01_rb,0.15758e-01_rb,0.26378e-01_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.70571e-01_rb,0.61748e-01_rb,0.52933e-01_rb,0.44107e-01_rb,0.35285e-01_rb, &\n        & 0.26462e-01_rb,0.17959e-01_rb,0.15470e-01_rb,0.25822e-01_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.69734e-01_rb,0.61022e-01_rb,0.52301e-01_rb,0.43583e-01_rb,0.34867e-01_rb, &\n        & 0.26147e-01_rb,0.17660e-01_rb,0.15207e-01_rb,0.25265e-01_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.68870e-01_rb,0.60256e-01_rb,0.51654e-01_rb,0.43043e-01_rb,0.34432e-01_rb, &\n        & 0.25826e-01_rb,0.17391e-01_rb,0.14968e-01_rb,0.24710e-01_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.67988e-01_rb,0.59482e-01_rb,0.50988e-01_rb,0.42488e-01_rb,0.33987e-01_rb, &\n        & 0.25491e-01_rb,0.17159e-01_rb,0.14740e-01_rb,0.24148e-01_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.82705e-01_rb,0.72369e-01_rb,0.62031e-01_rb,0.51694e-01_rb,0.41353e-01_rb, &\n        & 0.31012e-01_rb,0.21511e-01_rb,0.18843e-01_rb,0.31008e-01_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.81487e-01_rb,0.71304e-01_rb,0.61113e-01_rb,0.50924e-01_rb,0.40740e-01_rb, &\n        & 0.30554e-01_rb,0.21074e-01_rb,0.18457e-01_rb,0.30235e-01_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.80318e-01_rb,0.70281e-01_rb,0.60235e-01_rb,0.50200e-01_rb,0.40157e-01_rb, &\n        & 0.30117e-01_rb,0.20636e-01_rb,0.18102e-01_rb,0.29494e-01_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.79154e-01_rb,0.69255e-01_rb,0.59365e-01_rb,0.49470e-01_rb,0.39576e-01_rb, &\n        & 0.29680e-01_rb,0.20228e-01_rb,0.17748e-01_rb,0.28759e-01_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.77937e-01_rb,0.68190e-01_rb,0.58450e-01_rb,0.48707e-01_rb,0.38965e-01_rb, &\n        & 0.29223e-01_rb,0.19858e-01_rb,0.17406e-01_rb,0.28017e-01_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.95173e-01_rb,0.83270e-01_rb,0.71377e-01_rb,0.59480e-01_rb,0.47582e-01_rb, &\n        & 0.35684e-01_rb,0.25169e-01_rb,0.22449e-01_rb,0.36274e-01_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.93409e-01_rb,0.81740e-01_rb,0.70058e-01_rb,0.58384e-01_rb,0.46709e-01_rb, &\n        & 0.35028e-01_rb,0.24581e-01_rb,0.21893e-01_rb,0.35207e-01_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.91737e-01_rb,0.80263e-01_rb,0.68796e-01_rb,0.57330e-01_rb,0.45863e-01_rb, &\n        & 0.34396e-01_rb,0.23987e-01_rb,0.21409e-01_rb,0.34174e-01_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.90113e-01_rb,0.78852e-01_rb,0.67585e-01_rb,0.56324e-01_rb,0.45060e-01_rb, &\n        & 0.33794e-01_rb,0.23415e-01_rb,0.20940e-01_rb,0.33185e-01_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.88500e-01_rb,0.77445e-01_rb,0.66378e-01_rb,0.55317e-01_rb,0.44252e-01_rb, &\n        & 0.33190e-01_rb,0.22890e-01_rb,0.20471e-01_rb,0.32236e-01_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.10878e+00_rb,0.95186e-01_rb,0.81587e-01_rb,0.67986e-01_rb,0.54386e-01_rb, &\n        & 0.40792e-01_rb,0.29314e-01_rb,0.26669e-01_rb,0.42265e-01_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.10631e+00_rb,0.93021e-01_rb,0.79732e-01_rb,0.66444e-01_rb,0.53150e-01_rb, &\n        & 0.39864e-01_rb,0.28508e-01_rb,0.25873e-01_rb,0.40792e-01_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.10400e+00_rb,0.91002e-01_rb,0.78003e-01_rb,0.64997e-01_rb,0.51997e-01_rb, &\n        & 0.39001e-01_rb,0.27707e-01_rb,0.25186e-01_rb,0.39383e-01_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.10173e+00_rb,0.89018e-01_rb,0.76292e-01_rb,0.63582e-01_rb,0.50863e-01_rb, &\n        & 0.38144e-01_rb,0.26926e-01_rb,0.24532e-01_rb,0.38084e-01_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.99555e-01_rb,0.87113e-01_rb,0.74666e-01_rb,0.62221e-01_rb,0.49774e-01_rb, &\n        & 0.37334e-01_rb,0.26211e-01_rb,0.23902e-01_rb,0.36825e-01_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.12320e+00_rb,0.10779e+00_rb,0.92400e-01_rb,0.76993e-01_rb,0.61601e-01_rb, &\n        & 0.46197e-01_rb,0.33879e-01_rb,0.31475e-01_rb,0.48792e-01_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.11986e+00_rb,0.10487e+00_rb,0.89890e-01_rb,0.74910e-01_rb,0.59927e-01_rb, &\n        & 0.44946e-01_rb,0.32786e-01_rb,0.30373e-01_rb,0.46838e-01_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.11671e+00_rb,0.10212e+00_rb,0.87531e-01_rb,0.72938e-01_rb,0.58350e-01_rb, &\n        & 0.43767e-01_rb,0.31728e-01_rb,0.29415e-01_rb,0.45011e-01_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.11373e+00_rb,0.99514e-01_rb,0.85291e-01_rb,0.71084e-01_rb,0.56859e-01_rb, &\n        & 0.42648e-01_rb,0.30712e-01_rb,0.28518e-01_rb,0.43306e-01_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.11086e+00_rb,0.97005e-01_rb,0.83130e-01_rb,0.69287e-01_rb,0.55428e-01_rb, &\n        & 0.41573e-01_rb,0.29748e-01_rb,0.27669e-01_rb,0.41673e-01_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.13635e+00_rb,0.11930e+00_rb,0.10226e+00_rb,0.85213e-01_rb,0.68170e-01_rb, &\n        & 0.51126e-01_rb,0.38257e-01_rb,0.36212e-01_rb,0.54706e-01_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.13203e+00_rb,0.11554e+00_rb,0.99030e-01_rb,0.82523e-01_rb,0.66019e-01_rb, &\n        & 0.49513e-01_rb,0.36799e-01_rb,0.34833e-01_rb,0.52312e-01_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.12805e+00_rb,0.11203e+00_rb,0.96022e-01_rb,0.80023e-01_rb,0.64019e-01_rb, &\n        & 0.48015e-01_rb,0.35435e-01_rb,0.33591e-01_rb,0.50057e-01_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.12432e+00_rb,0.10877e+00_rb,0.93237e-01_rb,0.77695e-01_rb,0.62158e-01_rb, &\n        & 0.46618e-01_rb,0.34181e-01_rb,0.32427e-01_rb,0.47918e-01_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.12077e+00_rb,0.10567e+00_rb,0.90572e-01_rb,0.75471e-01_rb,0.60381e-01_rb, &\n        & 0.45284e-01_rb,0.32973e-01_rb,0.31331e-01_rb,0.45895e-01_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.14909e+00_rb,0.13045e+00_rb,0.11182e+00_rb,0.93176e-01_rb,0.74537e-01_rb, &\n        & 0.55927e-01_rb,0.42736e-01_rb,0.41194e-01_rb,0.43864e-01_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.14380e+00_rb,0.12582e+00_rb,0.10785e+00_rb,0.89883e-01_rb,0.71900e-01_rb, &\n        & 0.53925e-01_rb,0.40874e-01_rb,0.39509e-01_rb,0.34410e-01_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.13887e+00_rb,0.12152e+00_rb,0.10414e+00_rb,0.86796e-01_rb,0.69431e-01_rb, &\n        & 0.52073e-01_rb,0.39165e-01_rb,0.37950e-01_rb,0.27228e-01_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.13436e+00_rb,0.11758e+00_rb,0.10078e+00_rb,0.83978e-01_rb,0.67186e-01_rb, &\n        & 0.50383e-01_rb,0.37599e-01_rb,0.36473e-01_rb,0.23165e-01_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.13007e+00_rb,0.11382e+00_rb,0.97560e-01_rb,0.81293e-01_rb,0.65042e-01_rb, &\n        & 0.48775e-01_rb,0.36131e-01_rb,0.35083e-01_rb,0.14412e-01_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.16113e+00_rb,0.14100e+00_rb,0.12085e+00_rb,0.10071e+00_rb,0.80563e-01_rb, &\n        & 0.60580e-01_rb,0.47246e-01_rb,0.46365e-01_rb,0.26456e-01_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.15486e+00_rb,0.13550e+00_rb,0.11616e+00_rb,0.96791e-01_rb,0.77431e-01_rb, &\n        & 0.58082e-01_rb,0.44915e-01_rb,0.44314e-01_rb,0.19340e-01_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.14906e+00_rb,0.13042e+00_rb,0.11179e+00_rb,0.93156e-01_rb,0.74526e-01_rb, &\n        & 0.55893e-01_rb,0.42831e-01_rb,0.42380e-01_rb,0.11993e-01_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.14369e+00_rb,0.12574e+00_rb,0.10777e+00_rb,0.89817e-01_rb,0.71849e-01_rb, &\n        & 0.53884e-01_rb,0.40915e-01_rb,0.40556e-01_rb,0.50486e-02_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.13868e+00_rb,0.12134e+00_rb,0.10400e+00_rb,0.86669e-01_rb,0.69338e-01_rb, &\n        & 0.52006e-01_rb,0.39136e-01_rb,0.38851e-01_rb,0.00000e+00_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.12158e-08_rb,0.13238e-08_rb,0.15146e-08_rb,0.16862e-08_rb,0.18609e-08_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.16931e-08_rb,0.20047e-08_rb,0.23006e-08_rb,0.25636e-08_rb,0.28912e-08_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.31521e-08_rb,0.36963e-08_rb,0.41550e-08_rb,0.46365e-08_rb,0.50834e-08_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.46152e-08_rb,0.50173e-08_rb,0.55381e-08_rb,0.60748e-08_rb,0.66355e-08_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.62662e-08_rb,0.67518e-08_rb,0.71765e-08_rb,0.80302e-08_rb,0.89056e-08_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.81764e-08_rb,0.91818e-08_rb,0.10385e-07_rb,0.11708e-07_rb,0.12536e-07_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.12946e-07_rb,0.13631e-07_rb,0.14453e-07_rb,0.15133e-07_rb,0.15911e-07_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.15868e-07_rb,0.16654e-07_rb,0.17281e-07_rb,0.17857e-07_rb,0.18383e-07_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.18151e-07_rb,0.19056e-07_rb,0.20057e-07_rb,0.20708e-07_rb,0.21229e-07_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.20234e-07_rb,0.21482e-07_rb,0.22599e-07_rb,0.23778e-07_rb,0.25115e-07_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.23827e-07_rb,0.25405e-07_rb,0.26545e-07_rb,0.27716e-07_rb,0.28422e-07_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.27638e-07_rb,0.28518e-07_rb,0.29101e-07_rb,0.29639e-07_rb,0.30077e-07_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.28942e-07_rb,0.29436e-07_rb,0.29831e-07_rb,0.30066e-07_rb,0.30242e-07_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.28774e-07_rb,0.29004e-07_rb,0.29272e-07_rb,0.29431e-07_rb,0.29616e-07_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.27317e-07_rb,0.27462e-07_rb,0.27698e-07_rb,0.27835e-07_rb,0.27843e-07_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.25463e-07_rb,0.25523e-07_rb,0.25678e-07_rb,0.25658e-07_rb,0.25687e-07_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.22603e-07_rb,0.22672e-07_rb,0.22704e-07_rb,0.22668e-07_rb,0.22698e-07_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.19657e-07_rb,0.19747e-07_rb,0.19687e-07_rb,0.19659e-07_rb,0.19680e-07_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.16553e-07_rb,0.16571e-07_rb,0.16522e-07_rb,0.16545e-07_rb,0.16563e-07_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.13867e-07_rb,0.13795e-07_rb,0.13808e-07_rb,0.13815e-07_rb,0.13799e-07_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.11414e-07_rb,0.11409e-07_rb,0.11395e-07_rb,0.11384e-07_rb,0.11416e-07_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.95639e-08_rb,0.95514e-08_rb,0.95251e-08_rb,0.95607e-08_rb,0.95767e-08_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.80018e-08_rb,0.79882e-08_rb,0.79720e-08_rb,0.79934e-08_rb,0.79942e-08_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.67279e-08_rb,0.67135e-08_rb,0.67089e-08_rb,0.67131e-08_rb,0.67290e-08_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.57292e-08_rb,0.57278e-08_rb,0.57247e-08_rb,0.57298e-08_rb,0.57269e-08_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.48406e-08_rb,0.48461e-08_rb,0.48394e-08_rb,0.48468e-08_rb,0.48401e-08_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.40368e-08_rb,0.40419e-08_rb,0.40353e-08_rb,0.40432e-08_rb,0.40267e-08_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.34875e-08_rb,0.34931e-08_rb,0.34872e-08_rb,0.34940e-08_rb,0.34782e-08_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.30195e-08_rb,0.30243e-08_rb,0.30129e-08_rb,0.30148e-08_rb,0.30016e-08_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.25993e-08_rb,0.25924e-08_rb,0.25861e-08_rb,0.25841e-08_rb,0.25734e-08_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.22290e-08_rb,0.22166e-08_rb,0.22080e-08_rb,0.22067e-08_rb,0.21992e-08_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.18916e-08_rb,0.18847e-08_rb,0.18733e-08_rb,0.18685e-08_rb,0.18685e-08_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.15840e-08_rb,0.15787e-08_rb,0.15719e-08_rb,0.15641e-08_rb,0.15644e-08_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.13197e-08_rb,0.13138e-08_rb,0.13098e-08_rb,0.13024e-08_rb,0.13049e-08_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.11052e-08_rb,0.11003e-08_rb,0.10954e-08_rb,0.10927e-08_rb,0.10941e-08_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.91115e-09_rb,0.90837e-09_rb,0.90520e-09_rb,0.90009e-09_rb,0.90047e-09_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.73101e-09_rb,0.73246e-09_rb,0.73006e-09_rb,0.72687e-09_rb,0.72508e-09_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.60565e-09_rb,0.60526e-09_rb,0.60121e-09_rb,0.60117e-09_rb,0.60056e-09_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.50736e-09_rb,0.50750e-09_rb,0.50421e-09_rb,0.50378e-09_rb,0.50259e-09_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.41843e-09_rb,0.41856e-09_rb,0.41499e-09_rb,0.41535e-09_rb,0.41353e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.33766e-09_rb,0.33794e-09_rb,0.33511e-09_rb,0.33405e-09_rb,0.33405e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.29473e-09_rb,0.29448e-09_rb,0.29284e-09_rb,0.29146e-09_rb,0.29053e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.26948e-09_rb,0.27034e-09_rb,0.27016e-09_rb,0.26799e-09_rb,0.26580e-09_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.24773e-09_rb,0.24784e-09_rb,0.24734e-09_rb,0.24436e-09_rb,0.24377e-09_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.22707e-09_rb,0.22765e-09_rb,0.22683e-09_rb,0.22503e-09_rb,0.22447e-09_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.21180e-09_rb,0.21264e-09_rb,0.21254e-09_rb,0.21338e-09_rb,0.21089e-09_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.22898e-09_rb,0.23089e-09_rb,0.23471e-09_rb,0.23606e-09_rb,0.23388e-09_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.18001e-08_rb,0.19945e-08_rb,0.21612e-08_rb,0.23316e-08_rb,0.25983e-08_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.39853e-08_rb,0.42632e-08_rb,0.44602e-08_rb,0.46784e-08_rb,0.48071e-08_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.60848e-08_rb,0.61494e-08_rb,0.61069e-08_rb,0.61295e-08_rb,0.65707e-08_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.75494e-08_rb,0.85999e-08_rb,0.91057e-08_rb,0.10175e-07_rb,0.10943e-07_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.12037e-07_rb,0.12753e-07_rb,0.13314e-07_rb,0.13239e-07_rb,0.13306e-07_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.15519e-07_rb,0.15517e-07_rb,0.15097e-07_rb,0.14435e-07_rb,0.13983e-07_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.16420e-07_rb,0.17025e-07_rb,0.17639e-07_rb,0.17633e-07_rb,0.17513e-07_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.18021e-07_rb,0.19301e-07_rb,0.20621e-07_rb,0.22238e-07_rb,0.23351e-07_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.22378e-07_rb,0.23582e-07_rb,0.24409e-07_rb,0.24915e-07_rb,0.25516e-07_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.24712e-07_rb,0.24864e-07_rb,0.24556e-07_rb,0.23953e-07_rb,0.23424e-07_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.22545e-07_rb,0.22002e-07_rb,0.21325e-07_rb,0.20492e-07_rb,0.20022e-07_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.18798e-07_rb,0.18566e-07_rb,0.18366e-07_rb,0.18099e-07_rb,0.17971e-07_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.16773e-07_rb,0.16803e-07_rb,0.16541e-07_rb,0.16450e-07_rb,0.16482e-07_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.15222e-07_rb,0.15398e-07_rb,0.15177e-07_rb,0.15147e-07_rb,0.14951e-07_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.13792e-07_rb,0.13944e-07_rb,0.13534e-07_rb,0.13546e-07_rb,0.13516e-07_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.12157e-07_rb,0.12221e-07_rb,0.11930e-07_rb,0.12115e-07_rb,0.12027e-07_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.10487e-07_rb,0.10393e-07_rb,0.10366e-07_rb,0.10455e-07_rb,0.10269e-07_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.90084e-08_rb,0.88590e-08_rb,0.90055e-08_rb,0.88655e-08_rb,0.87392e-08_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.74765e-08_rb,0.74889e-08_rb,0.73915e-08_rb,0.73289e-08_rb,0.72219e-08_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.62311e-08_rb,0.62461e-08_rb,0.61378e-08_rb,0.59795e-08_rb,0.60309e-08_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.51421e-08_rb,0.50519e-08_rb,0.50031e-08_rb,0.49630e-08_rb,0.49489e-08_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.42880e-08_rb,0.42042e-08_rb,0.41366e-08_rb,0.41198e-08_rb,0.41265e-08_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.35718e-08_rb,0.34728e-08_rb,0.34599e-08_rb,0.34385e-08_rb,0.34695e-08_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.29713e-08_rb,0.29023e-08_rb,0.28707e-08_rb,0.28790e-08_rb,0.28873e-08_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.25246e-08_rb,0.24463e-08_rb,0.24323e-08_rb,0.24308e-08_rb,0.24753e-08_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.21159e-08_rb,0.20527e-08_rb,0.20532e-08_rb,0.20325e-08_rb,0.20615e-08_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.17631e-08_rb,0.17097e-08_rb,0.17043e-08_rb,0.16987e-08_rb,0.17298e-08_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.15260e-08_rb,0.14757e-08_rb,0.14566e-08_rb,0.14513e-08_rb,0.14651e-08_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.13009e-08_rb,0.12457e-08_rb,0.12523e-08_rb,0.12490e-08_rb,0.12671e-08_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.10990e-08_rb,0.10789e-08_rb,0.10741e-08_rb,0.10762e-08_rb,0.10873e-08_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.94313e-09_rb,0.92236e-09_rb,0.92369e-09_rb,0.91495e-09_rb,0.92405e-09_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.80746e-09_rb,0.78453e-09_rb,0.77646e-09_rb,0.77477e-09_rb,0.77888e-09_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.67944e-09_rb,0.66381e-09_rb,0.65747e-09_rb,0.65286e-09_rb,0.65668e-09_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.56677e-09_rb,0.55682e-09_rb,0.54825e-09_rb,0.54623e-09_rb,0.54843e-09_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.47375e-09_rb,0.47120e-09_rb,0.45836e-09_rb,0.45709e-09_rb,0.45689e-09_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.39797e-09_rb,0.39204e-09_rb,0.37735e-09_rb,0.37505e-09_rb,0.37687e-09_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.32772e-09_rb,0.31857e-09_rb,0.30808e-09_rb,0.30232e-09_rb,0.30140e-09_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.27300e-09_rb,0.26581e-09_rb,0.26125e-09_rb,0.24922e-09_rb,0.25029e-09_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.23073e-09_rb,0.22159e-09_rb,0.21979e-09_rb,0.20969e-09_rb,0.21117e-09_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.18868e-09_rb,0.18466e-09_rb,0.18517e-09_rb,0.17470e-09_rb,0.17469e-09_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.15290e-09_rb,0.14970e-09_rb,0.15032e-09_rb,0.14201e-09_rb,0.14053e-09_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.13616e-09_rb,0.13340e-09_rb,0.13256e-09_rb,0.12713e-09_rb,0.12621e-09_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.12605e-09_rb,0.12524e-09_rb,0.12106e-09_rb,0.11994e-09_rb,0.11735e-09_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.11625e-09_rb,0.11350e-09_rb,0.11287e-09_rb,0.11534e-09_rb,0.10942e-09_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.10168e-09_rb,0.10628e-09_rb,0.10684e-09_rb,0.10799e-09_rb,0.10313e-09_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.92659e-10_rb,0.10050e-09_rb,0.10168e-09_rb,0.97877e-10_rb,0.97971e-10_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.10198e-09_rb,0.11632e-09_rb,0.11127e-09_rb,0.10947e-09_rb,0.11000e-09_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.33788e-08_rb,0.38685e-08_rb,0.40059e-08_rb,0.41301e-08_rb,0.43316e-08_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.54022e-08_rb,0.55644e-08_rb,0.55814e-08_rb,0.55195e-08_rb,0.57708e-08_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.95769e-08_rb,0.10205e-07_rb,0.12445e-07_rb,0.13419e-07_rb,0.13357e-07_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.17233e-07_rb,0.16177e-07_rb,0.16092e-07_rb,0.15590e-07_rb,0.15068e-07_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.19731e-07_rb,0.19947e-07_rb,0.20278e-07_rb,0.20235e-07_rb,0.20699e-07_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.23168e-07_rb,0.23970e-07_rb,0.25507e-07_rb,0.27034e-07_rb,0.29135e-07_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.33749e-07_rb,0.35374e-07_rb,0.37333e-07_rb,0.38730e-07_rb,0.39816e-07_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.39844e-07_rb,0.39698e-07_rb,0.39651e-07_rb,0.38618e-07_rb,0.37699e-07_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.37013e-07_rb,0.35923e-07_rb,0.35560e-07_rb,0.35217e-07_rb,0.34594e-07_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.32381e-07_rb,0.31844e-07_rb,0.32272e-07_rb,0.32430e-07_rb,0.31922e-07_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.29924e-07_rb,0.29834e-07_rb,0.30537e-07_rb,0.30494e-07_rb,0.30313e-07_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.27849e-07_rb,0.28147e-07_rb,0.29005e-07_rb,0.29081e-07_rb,0.28673e-07_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.25534e-07_rb,0.25854e-07_rb,0.26978e-07_rb,0.27173e-07_rb,0.27116e-07_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.23413e-07_rb,0.24124e-07_rb,0.25341e-07_rb,0.25322e-07_rb,0.25266e-07_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.21218e-07_rb,0.22105e-07_rb,0.23470e-07_rb,0.23280e-07_rb,0.23250e-07_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.19002e-07_rb,0.20309e-07_rb,0.21106e-07_rb,0.20908e-07_rb,0.21199e-07_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.16901e-07_rb,0.18244e-07_rb,0.18426e-07_rb,0.18398e-07_rb,0.18708e-07_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.15065e-07_rb,0.15814e-07_rb,0.15711e-07_rb,0.16012e-07_rb,0.16145e-07_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.13100e-07_rb,0.13194e-07_rb,0.13385e-07_rb,0.13455e-07_rb,0.13435e-07_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.10972e-07_rb,0.10986e-07_rb,0.11085e-07_rb,0.11182e-07_rb,0.11030e-07_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.90750e-08_rb,0.90832e-08_rb,0.91769e-08_rb,0.89877e-08_rb,0.89513e-08_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.75008e-08_rb,0.76569e-08_rb,0.76237e-08_rb,0.74547e-08_rb,0.74719e-08_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.63063e-08_rb,0.64050e-08_rb,0.62067e-08_rb,0.61836e-08_rb,0.61775e-08_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.53250e-08_rb,0.52712e-08_rb,0.52454e-08_rb,0.51153e-08_rb,0.51657e-08_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.45450e-08_rb,0.45358e-08_rb,0.44274e-08_rb,0.43893e-08_rb,0.43616e-08_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.38039e-08_rb,0.38254e-08_rb,0.37172e-08_rb,0.37203e-08_rb,0.37278e-08_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.31821e-08_rb,0.31632e-08_rb,0.30774e-08_rb,0.30626e-08_rb,0.30979e-08_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.27339e-08_rb,0.27443e-08_rb,0.26754e-08_rb,0.26505e-08_rb,0.27022e-08_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.23939e-08_rb,0.24228e-08_rb,0.23415e-08_rb,0.23287e-08_rb,0.23327e-08_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.20895e-08_rb,0.20874e-08_rb,0.20298e-08_rb,0.20180e-08_rb,0.19876e-08_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.17869e-08_rb,0.17800e-08_rb,0.17392e-08_rb,0.17376e-08_rb,0.16927e-08_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.15169e-08_rb,0.15335e-08_rb,0.14778e-08_rb,0.14668e-08_rb,0.14407e-08_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.12692e-08_rb,0.12902e-08_rb,0.12439e-08_rb,0.12324e-08_rb,0.11996e-08_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.10611e-08_rb,0.10656e-08_rb,0.10472e-08_rb,0.10282e-08_rb,0.10015e-08_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.90394e-09_rb,0.88143e-09_rb,0.87958e-09_rb,0.84984e-09_rb,0.85121e-09_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.73451e-09_rb,0.71978e-09_rb,0.73014e-09_rb,0.70436e-09_rb,0.69840e-09_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.58678e-09_rb,0.58259e-09_rb,0.58316e-09_rb,0.55960e-09_rb,0.56079e-09_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.48502e-09_rb,0.47984e-09_rb,0.48693e-09_rb,0.47265e-09_rb,0.46016e-09_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.40704e-09_rb,0.40367e-09_rb,0.41046e-09_rb,0.39764e-09_rb,0.38714e-09_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.33771e-09_rb,0.33070e-09_rb,0.32984e-09_rb,0.33231e-09_rb,0.32299e-09_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.27062e-09_rb,0.27028e-09_rb,0.26516e-09_rb,0.26816e-09_rb,0.25661e-09_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.23501e-09_rb,0.23579e-09_rb,0.23460e-09_rb,0.23532e-09_rb,0.22777e-09_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.20561e-09_rb,0.21843e-09_rb,0.22171e-09_rb,0.22358e-09_rb,0.21702e-09_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.18557e-09_rb,0.20864e-09_rb,0.21196e-09_rb,0.20646e-09_rb,0.20759e-09_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.17099e-09_rb,0.19489e-09_rb,0.19486e-09_rb,0.19102e-09_rb,0.19124e-09_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.16535e-09_rb,0.16955e-09_rb,0.18769e-09_rb,0.18586e-09_rb,0.18358e-09_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.18472e-09_rb,0.17614e-09_rb,0.20835e-09_rb,0.19900e-09_rb,0.17587e-09_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.14276e-07_rb,0.14530e-07_rb,0.14762e-07_rb,0.14823e-07_rb,0.15070e-07_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.22710e-07_rb,0.23419e-07_rb,0.26577e-07_rb,0.28008e-07_rb,0.28298e-07_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.40218e-07_rb,0.40306e-07_rb,0.38786e-07_rb,0.38421e-07_rb,0.37982e-07_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.46010e-07_rb,0.46709e-07_rb,0.48658e-07_rb,0.49166e-07_rb,0.49018e-07_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.57896e-07_rb,0.59606e-07_rb,0.62582e-07_rb,0.65981e-07_rb,0.66467e-07_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.74731e-07_rb,0.75116e-07_rb,0.75181e-07_rb,0.74922e-07_rb,0.73535e-07_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.76222e-07_rb,0.73788e-07_rb,0.71345e-07_rb,0.70864e-07_rb,0.69839e-07_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.69638e-07_rb,0.67680e-07_rb,0.66694e-07_rb,0.67021e-07_rb,0.67066e-07_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.65779e-07_rb,0.64200e-07_rb,0.63508e-07_rb,0.64106e-07_rb,0.64461e-07_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.61488e-07_rb,0.60248e-07_rb,0.59719e-07_rb,0.60704e-07_rb,0.61392e-07_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.56738e-07_rb,0.55143e-07_rb,0.55071e-07_rb,0.56796e-07_rb,0.58031e-07_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.53299e-07_rb,0.52091e-07_rb,0.52308e-07_rb,0.54157e-07_rb,0.55094e-07_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.49763e-07_rb,0.48954e-07_rb,0.49068e-07_rb,0.51533e-07_rb,0.52367e-07_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.46006e-07_rb,0.45410e-07_rb,0.45860e-07_rb,0.48840e-07_rb,0.49788e-07_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.42208e-07_rb,0.41876e-07_rb,0.43006e-07_rb,0.46350e-07_rb,0.47032e-07_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.38508e-07_rb,0.38430e-07_rb,0.40481e-07_rb,0.43465e-07_rb,0.43170e-07_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.33913e-07_rb,0.34466e-07_rb,0.37202e-07_rb,0.38288e-07_rb,0.38327e-07_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.29454e-07_rb,0.30842e-07_rb,0.33204e-07_rb,0.33354e-07_rb,0.33727e-07_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.25253e-07_rb,0.27183e-07_rb,0.28228e-07_rb,0.27946e-07_rb,0.28495e-07_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.21784e-07_rb,0.23351e-07_rb,0.23372e-07_rb,0.23449e-07_rb,0.23246e-07_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.18910e-07_rb,0.19134e-07_rb,0.18984e-07_rb,0.19294e-07_rb,0.18955e-07_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.15933e-07_rb,0.15755e-07_rb,0.16059e-07_rb,0.15913e-07_rb,0.15386e-07_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.13356e-07_rb,0.13247e-07_rb,0.13429e-07_rb,0.13202e-07_rb,0.12675e-07_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.11207e-07_rb,0.11196e-07_rb,0.11048e-07_rb,0.10870e-07_rb,0.10431e-07_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.95811e-08_rb,0.94647e-08_rb,0.93875e-08_rb,0.90968e-08_rb,0.88553e-08_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.81243e-08_rb,0.80255e-08_rb,0.78559e-08_rb,0.75538e-08_rb,0.74057e-08_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.66871e-08_rb,0.66553e-08_rb,0.65003e-08_rb,0.62809e-08_rb,0.60862e-08_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.58254e-08_rb,0.57657e-08_rb,0.56185e-08_rb,0.54242e-08_rb,0.52135e-08_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.50967e-08_rb,0.50027e-08_rb,0.48304e-08_rb,0.46813e-08_rb,0.44864e-08_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.43731e-08_rb,0.43157e-08_rb,0.41432e-08_rb,0.39968e-08_rb,0.38854e-08_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.37430e-08_rb,0.37088e-08_rb,0.35491e-08_rb,0.34012e-08_rb,0.33022e-08_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.32207e-08_rb,0.31034e-08_rb,0.30690e-08_rb,0.29015e-08_rb,0.27644e-08_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.27111e-08_rb,0.25582e-08_rb,0.26092e-08_rb,0.24352e-08_rb,0.23234e-08_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.22675e-08_rb,0.21455e-08_rb,0.21930e-08_rb,0.20490e-08_rb,0.19277e-08_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.18722e-08_rb,0.18163e-08_rb,0.18222e-08_rb,0.17256e-08_rb,0.16025e-08_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.15670e-08_rb,0.15133e-08_rb,0.14751e-08_rb,0.14433e-08_rb,0.13269e-08_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.12576e-08_rb,0.12106e-08_rb,0.11779e-08_rb,0.11664e-08_rb,0.10722e-08_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.10308e-08_rb,0.10019e-08_rb,0.98151e-09_rb,0.96758e-09_rb,0.89739e-09_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.84050e-09_rb,0.85047e-09_rb,0.83131e-09_rb,0.81346e-09_rb,0.77303e-09_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.67669e-09_rb,0.70190e-09_rb,0.68695e-09_rb,0.66858e-09_rb,0.63719e-09_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.52755e-09_rb,0.56097e-09_rb,0.54716e-09_rb,0.53877e-09_rb,0.51047e-09_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.44864e-09_rb,0.48984e-09_rb,0.48831e-09_rb,0.46728e-09_rb,0.45462e-09_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.40938e-09_rb,0.45501e-09_rb,0.45212e-09_rb,0.43586e-09_rb,0.42245e-09_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.38293e-09_rb,0.40217e-09_rb,0.41760e-09_rb,0.39645e-09_rb,0.38652e-09_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.35808e-09_rb,0.34306e-09_rb,0.38440e-09_rb,0.37442e-09_rb,0.33472e-09_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.33278e-09_rb,0.31839e-09_rb,0.35327e-09_rb,0.33061e-09_rb,0.29093e-09_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.32589e-09_rb,0.30766e-09_rb,0.30185e-09_rb,0.35182e-09_rb,0.34474e-09_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.19090e-07_rb,0.19323e-07_rb,0.21491e-07_rb,0.23162e-07_rb,0.23970e-07_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.37888e-07_rb,0.37108e-07_rb,0.33727e-07_rb,0.34146e-07_rb,0.33930e-07_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.46395e-07_rb,0.47265e-07_rb,0.48201e-07_rb,0.50512e-07_rb,0.51101e-07_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.60743e-07_rb,0.64371e-07_rb,0.67862e-07_rb,0.71479e-07_rb,0.74200e-07_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.79052e-07_rb,0.79011e-07_rb,0.77558e-07_rb,0.75900e-07_rb,0.76450e-07_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.75325e-07_rb,0.74009e-07_rb,0.72866e-07_rb,0.72803e-07_rb,0.73869e-07_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.74009e-07_rb,0.74054e-07_rb,0.73970e-07_rb,0.73800e-07_rb,0.75638e-07_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.73077e-07_rb,0.73306e-07_rb,0.72248e-07_rb,0.73120e-07_rb,0.74630e-07_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.68928e-07_rb,0.70100e-07_rb,0.69203e-07_rb,0.69478e-07_rb,0.71860e-07_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.65324e-07_rb,0.66570e-07_rb,0.66457e-07_rb,0.66345e-07_rb,0.68314e-07_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.62411e-07_rb,0.63996e-07_rb,0.63443e-07_rb,0.63576e-07_rb,0.65766e-07_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.60058e-07_rb,0.60956e-07_rb,0.60176e-07_rb,0.60222e-07_rb,0.63287e-07_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.57223e-07_rb,0.58225e-07_rb,0.58348e-07_rb,0.58584e-07_rb,0.61933e-07_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.55089e-07_rb,0.55723e-07_rb,0.55839e-07_rb,0.56337e-07_rb,0.60335e-07_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.52294e-07_rb,0.51745e-07_rb,0.52750e-07_rb,0.52701e-07_rb,0.57676e-07_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.48915e-07_rb,0.48234e-07_rb,0.48708e-07_rb,0.49873e-07_rb,0.54442e-07_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.43357e-07_rb,0.43230e-07_rb,0.43679e-07_rb,0.47285e-07_rb,0.49519e-07_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.37379e-07_rb,0.38427e-07_rb,0.39703e-07_rb,0.43492e-07_rb,0.43278e-07_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.31354e-07_rb,0.32238e-07_rb,0.35376e-07_rb,0.37358e-07_rb,0.37130e-07_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.26553e-07_rb,0.27801e-07_rb,0.30978e-07_rb,0.30698e-07_rb,0.31234e-07_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.21542e-07_rb,0.24274e-07_rb,0.24944e-07_rb,0.25194e-07_rb,0.25415e-07_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.19097e-07_rb,0.20582e-07_rb,0.20324e-07_rb,0.21006e-07_rb,0.20944e-07_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.16377e-07_rb,0.16881e-07_rb,0.16957e-07_rb,0.16743e-07_rb,0.16958e-07_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.13727e-07_rb,0.13834e-07_rb,0.13766e-07_rb,0.13776e-07_rb,0.13546e-07_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.11550e-07_rb,0.11601e-07_rb,0.11757e-07_rb,0.11723e-07_rb,0.11413e-07_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.98076e-08_rb,0.96320e-08_rb,0.10028e-07_rb,0.98197e-08_rb,0.91408e-08_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.80861e-08_rb,0.80113e-08_rb,0.81586e-08_rb,0.80121e-08_rb,0.75021e-08_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.70348e-08_rb,0.69980e-08_rb,0.71058e-08_rb,0.69171e-08_rb,0.64103e-08_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.61395e-08_rb,0.60379e-08_rb,0.61651e-08_rb,0.59006e-08_rb,0.54433e-08_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.51740e-08_rb,0.51391e-08_rb,0.53717e-08_rb,0.50506e-08_rb,0.46901e-08_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.44374e-08_rb,0.44002e-08_rb,0.45405e-08_rb,0.42888e-08_rb,0.39390e-08_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.36635e-08_rb,0.37555e-08_rb,0.37320e-08_rb,0.35598e-08_rb,0.33280e-08_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.30833e-08_rb,0.31320e-08_rb,0.30264e-08_rb,0.29827e-08_rb,0.28298e-08_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.25366e-08_rb,0.26077e-08_rb,0.24905e-08_rb,0.24281e-08_rb,0.22727e-08_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.20576e-08_rb,0.22029e-08_rb,0.20905e-08_rb,0.21040e-08_rb,0.19027e-08_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.16047e-08_rb,0.18190e-08_rb,0.17008e-08_rb,0.17298e-08_rb,0.16059e-08_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.12276e-08_rb,0.14135e-08_rb,0.13565e-08_rb,0.13704e-08_rb,0.13029e-08_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.98291e-09_rb,0.11837e-08_rb,0.11000e-08_rb,0.11342e-08_rb,0.10621e-08_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.79374e-09_rb,0.97756e-09_rb,0.90252e-09_rb,0.90527e-09_rb,0.86815e-09_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.64781e-09_rb,0.78454e-09_rb,0.75690e-09_rb,0.74124e-09_rb,0.73195e-09_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.51536e-09_rb,0.61158e-09_rb,0.60936e-09_rb,0.59007e-09_rb,0.58458e-09_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.46178e-09_rb,0.51944e-09_rb,0.52167e-09_rb,0.53965e-09_rb,0.50524e-09_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.44467e-09_rb,0.42857e-09_rb,0.50799e-09_rb,0.47528e-09_rb,0.43900e-09_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.39667e-09_rb,0.37862e-09_rb,0.45808e-09_rb,0.43270e-09_rb,0.38817e-09_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.35926e-09_rb,0.35410e-09_rb,0.38962e-09_rb,0.37502e-09_rb,0.40935e-09_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.31517e-09_rb,0.32964e-09_rb,0.29323e-09_rb,0.39945e-09_rb,0.40389e-09_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.36198e-09_rb,0.38633e-09_rb,0.41096e-09_rb,0.53914e-09_rb,0.57631e-09_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.23095e-07_rb,0.23025e-07_rb,0.25126e-07_rb,0.25618e-07_rb,0.24969e-07_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.31573e-07_rb,0.32360e-07_rb,0.33220e-07_rb,0.32611e-07_rb,0.32150e-07_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.45219e-07_rb,0.45787e-07_rb,0.47088e-07_rb,0.49543e-07_rb,0.54072e-07_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.65293e-07_rb,0.67448e-07_rb,0.64557e-07_rb,0.63976e-07_rb,0.64905e-07_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.64862e-07_rb,0.63259e-07_rb,0.62851e-07_rb,0.62500e-07_rb,0.63112e-07_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.61849e-07_rb,0.62108e-07_rb,0.60565e-07_rb,0.60920e-07_rb,0.61810e-07_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.63930e-07_rb,0.63195e-07_rb,0.62478e-07_rb,0.62282e-07_rb,0.62250e-07_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.60100e-07_rb,0.60269e-07_rb,0.59919e-07_rb,0.57578e-07_rb,0.57933e-07_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.56465e-07_rb,0.56674e-07_rb,0.56992e-07_rb,0.55969e-07_rb,0.54719e-07_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.54280e-07_rb,0.53760e-07_rb,0.52615e-07_rb,0.52261e-07_rb,0.51523e-07_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.49921e-07_rb,0.49472e-07_rb,0.49168e-07_rb,0.47959e-07_rb,0.47449e-07_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.45803e-07_rb,0.46271e-07_rb,0.46322e-07_rb,0.46536e-07_rb,0.46494e-07_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.43723e-07_rb,0.44225e-07_rb,0.44324e-07_rb,0.43726e-07_rb,0.43579e-07_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.41617e-07_rb,0.42588e-07_rb,0.42306e-07_rb,0.41086e-07_rb,0.41943e-07_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.38855e-07_rb,0.40231e-07_rb,0.39090e-07_rb,0.39461e-07_rb,0.39072e-07_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.35912e-07_rb,0.36691e-07_rb,0.35670e-07_rb,0.35644e-07_rb,0.38295e-07_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.33357e-07_rb,0.33134e-07_rb,0.32394e-07_rb,0.32909e-07_rb,0.36234e-07_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.30529e-07_rb,0.29196e-07_rb,0.29147e-07_rb,0.30292e-07_rb,0.33912e-07_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.27228e-07_rb,0.27081e-07_rb,0.26630e-07_rb,0.30010e-07_rb,0.28781e-07_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.24109e-07_rb,0.24388e-07_rb,0.25546e-07_rb,0.26823e-07_rb,0.26681e-07_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.21402e-07_rb,0.22303e-07_rb,0.24668e-07_rb,0.24556e-07_rb,0.24369e-07_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.18136e-07_rb,0.20944e-07_rb,0.21211e-07_rb,0.21286e-07_rb,0.21648e-07_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.16306e-07_rb,0.17531e-07_rb,0.17744e-07_rb,0.18061e-07_rb,0.18282e-07_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.13873e-07_rb,0.14963e-07_rb,0.15398e-07_rb,0.15527e-07_rb,0.15391e-07_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.11948e-07_rb,0.12614e-07_rb,0.12946e-07_rb,0.12916e-07_rb,0.13085e-07_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.98235e-08_rb,0.10612e-07_rb,0.10029e-07_rb,0.10618e-07_rb,0.10860e-07_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.81514e-08_rb,0.84716e-08_rb,0.81123e-08_rb,0.83644e-08_rb,0.81668e-08_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.68179e-08_rb,0.69030e-08_rb,0.69393e-08_rb,0.69969e-08_rb,0.71027e-08_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.59350e-08_rb,0.60668e-08_rb,0.59026e-08_rb,0.60181e-08_rb,0.60779e-08_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.51181e-08_rb,0.52127e-08_rb,0.48788e-08_rb,0.51397e-08_rb,0.50230e-08_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.42653e-08_rb,0.44600e-08_rb,0.41100e-08_rb,0.44735e-08_rb,0.42607e-08_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.34724e-08_rb,0.37628e-08_rb,0.35340e-08_rb,0.38309e-08_rb,0.36188e-08_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.27994e-08_rb,0.31690e-08_rb,0.28599e-08_rb,0.30290e-08_rb,0.27730e-08_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.22089e-08_rb,0.25761e-08_rb,0.23856e-08_rb,0.24874e-08_rb,0.23603e-08_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.18078e-08_rb,0.20304e-08_rb,0.19457e-08_rb,0.19366e-08_rb,0.19286e-08_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.14716e-08_rb,0.15703e-08_rb,0.17393e-08_rb,0.14836e-08_rb,0.15316e-08_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.11334e-08_rb,0.12901e-08_rb,0.13556e-08_rb,0.11610e-08_rb,0.11617e-08_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.90881e-09_rb,0.10323e-08_rb,0.11378e-08_rb,0.95509e-09_rb,0.96291e-09_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.76751e-09_rb,0.81710e-09_rb,0.97432e-09_rb,0.82408e-09_rb,0.81205e-09_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.62668e-09_rb,0.66223e-09_rb,0.76870e-09_rb,0.68347e-09_rb,0.65771e-09_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.50547e-09_rb,0.49991e-09_rb,0.61494e-09_rb,0.55640e-09_rb,0.52803e-09_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.42841e-09_rb,0.42678e-09_rb,0.51796e-09_rb,0.46340e-09_rb,0.44830e-09_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.40234e-09_rb,0.40065e-09_rb,0.45944e-09_rb,0.42252e-09_rb,0.44365e-09_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.36764e-09_rb,0.35937e-09_rb,0.36570e-09_rb,0.44631e-09_rb,0.45684e-09_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.33321e-09_rb,0.29808e-09_rb,0.31056e-09_rb,0.44585e-09_rb,0.41122e-09_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.31198e-09_rb,0.29542e-09_rb,0.33327e-09_rb,0.43871e-09_rb,0.45291e-09_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.38710e-09_rb,0.42412e-09_rb,0.44197e-09_rb,0.49964e-09_rb,0.70387e-09_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.30377e-07_rb,0.31586e-07_rb,0.27647e-07_rb,0.27937e-07_rb,0.28036e-07_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.37766e-07_rb,0.39819e-07_rb,0.39822e-07_rb,0.40069e-07_rb,0.42091e-07_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.57996e-07_rb,0.64474e-07_rb,0.69368e-07_rb,0.70909e-07_rb,0.70748e-07_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.73220e-07_rb,0.70124e-07_rb,0.69135e-07_rb,0.68058e-07_rb,0.66524e-07_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.66529e-07_rb,0.66306e-07_rb,0.63797e-07_rb,0.63551e-07_rb,0.63462e-07_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.66492e-07_rb,0.65156e-07_rb,0.66323e-07_rb,0.64485e-07_rb,0.63285e-07_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.62980e-07_rb,0.62900e-07_rb,0.62718e-07_rb,0.61114e-07_rb,0.59765e-07_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.59754e-07_rb,0.58066e-07_rb,0.59540e-07_rb,0.58926e-07_rb,0.57835e-07_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.57368e-07_rb,0.55161e-07_rb,0.55685e-07_rb,0.55360e-07_rb,0.53982e-07_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.51435e-07_rb,0.49998e-07_rb,0.50952e-07_rb,0.50442e-07_rb,0.49717e-07_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.47663e-07_rb,0.46845e-07_rb,0.47849e-07_rb,0.48876e-07_rb,0.48885e-07_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.47926e-07_rb,0.45619e-07_rb,0.45793e-07_rb,0.46467e-07_rb,0.45938e-07_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.44687e-07_rb,0.43904e-07_rb,0.44284e-07_rb,0.44176e-07_rb,0.45520e-07_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.42751e-07_rb,0.41938e-07_rb,0.42889e-07_rb,0.42927e-07_rb,0.43868e-07_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.40180e-07_rb,0.40529e-07_rb,0.40621e-07_rb,0.40949e-07_rb,0.41005e-07_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.35890e-07_rb,0.36716e-07_rb,0.37875e-07_rb,0.38308e-07_rb,0.37626e-07_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.31499e-07_rb,0.33284e-07_rb,0.32725e-07_rb,0.32493e-07_rb,0.35018e-07_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.29364e-07_rb,0.28675e-07_rb,0.28942e-07_rb,0.28761e-07_rb,0.33960e-07_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.25558e-07_rb,0.23679e-07_rb,0.24292e-07_rb,0.26053e-07_rb,0.29211e-07_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.20860e-07_rb,0.21491e-07_rb,0.20910e-07_rb,0.25598e-07_rb,0.24209e-07_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.18874e-07_rb,0.18554e-07_rb,0.21206e-07_rb,0.20708e-07_rb,0.21100e-07_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.18632e-07_rb,0.18625e-07_rb,0.20707e-07_rb,0.19570e-07_rb,0.18956e-07_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.15958e-07_rb,0.19141e-07_rb,0.19004e-07_rb,0.19249e-07_rb,0.17793e-07_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.14552e-07_rb,0.16561e-07_rb,0.16607e-07_rb,0.16784e-07_rb,0.16326e-07_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.13127e-07_rb,0.14300e-07_rb,0.14021e-07_rb,0.14385e-07_rb,0.13328e-07_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.11514e-07_rb,0.12356e-07_rb,0.12677e-07_rb,0.12181e-07_rb,0.11774e-07_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.93434e-08_rb,0.10196e-07_rb,0.10605e-07_rb,0.10201e-07_rb,0.10584e-07_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.81790e-08_rb,0.89000e-08_rb,0.85315e-08_rb,0.89663e-08_rb,0.91635e-08_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.65541e-08_rb,0.74884e-08_rb,0.72364e-08_rb,0.72692e-08_rb,0.75649e-08_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.54665e-08_rb,0.61796e-08_rb,0.61564e-08_rb,0.61304e-08_rb,0.64285e-08_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.43531e-08_rb,0.47798e-08_rb,0.51393e-08_rb,0.49135e-08_rb,0.53520e-08_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.35872e-08_rb,0.38233e-08_rb,0.42659e-08_rb,0.39384e-08_rb,0.44541e-08_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.28156e-08_rb,0.32775e-08_rb,0.36262e-08_rb,0.32518e-08_rb,0.36805e-08_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.23879e-08_rb,0.26299e-08_rb,0.28972e-08_rb,0.27379e-08_rb,0.30333e-08_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.19282e-08_rb,0.22066e-08_rb,0.23812e-08_rb,0.23512e-08_rb,0.23794e-08_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.15092e-08_rb,0.18255e-08_rb,0.17414e-08_rb,0.19322e-08_rb,0.19399e-08_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.11905e-08_rb,0.13964e-08_rb,0.14306e-08_rb,0.14791e-08_rb,0.14939e-08_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.98537e-09_rb,0.10687e-08_rb,0.11753e-08_rb,0.11334e-08_rb,0.13178e-08_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.84255e-09_rb,0.88069e-09_rb,0.95073e-09_rb,0.92632e-09_rb,0.10457e-08_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.68238e-09_rb,0.70376e-09_rb,0.74795e-09_rb,0.75152e-09_rb,0.78131e-09_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.56271e-09_rb,0.58527e-09_rb,0.61397e-09_rb,0.56343e-09_rb,0.61138e-09_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.52493e-09_rb,0.46040e-09_rb,0.53769e-09_rb,0.51459e-09_rb,0.52912e-09_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.40372e-09_rb,0.38720e-09_rb,0.40004e-09_rb,0.56294e-09_rb,0.55844e-09_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.37372e-09_rb,0.35358e-09_rb,0.39920e-09_rb,0.52819e-09_rb,0.50147e-09_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.31149e-09_rb,0.39454e-09_rb,0.38951e-09_rb,0.52086e-09_rb,0.54542e-09_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.30564e-09_rb,0.36251e-09_rb,0.38551e-09_rb,0.43845e-09_rb,0.61772e-09_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.46934e-09_rb,0.57639e-09_rb,0.58591e-09_rb,0.63021e-09_rb,0.71158e-09_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.34320e-07_rb,0.31607e-07_rb,0.29840e-07_rb,0.29114e-07_rb,0.28831e-07_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.38157e-07_rb,0.37907e-07_rb,0.40351e-07_rb,0.45015e-07_rb,0.44786e-07_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.71231e-07_rb,0.71647e-07_rb,0.71034e-07_rb,0.71647e-07_rb,0.71755e-07_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.72049e-07_rb,0.69075e-07_rb,0.67707e-07_rb,0.67019e-07_rb,0.66780e-07_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.69751e-07_rb,0.66211e-07_rb,0.66017e-07_rb,0.63095e-07_rb,0.63343e-07_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.67728e-07_rb,0.66581e-07_rb,0.64787e-07_rb,0.62981e-07_rb,0.62245e-07_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.65864e-07_rb,0.63789e-07_rb,0.62712e-07_rb,0.62065e-07_rb,0.61005e-07_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.61816e-07_rb,0.63755e-07_rb,0.63424e-07_rb,0.61945e-07_rb,0.58720e-07_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.59112e-07_rb,0.58061e-07_rb,0.57019e-07_rb,0.54795e-07_rb,0.56069e-07_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.56217e-07_rb,0.53887e-07_rb,0.54812e-07_rb,0.52500e-07_rb,0.53303e-07_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.54428e-07_rb,0.52930e-07_rb,0.53278e-07_rb,0.52797e-07_rb,0.51840e-07_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.51236e-07_rb,0.52532e-07_rb,0.53348e-07_rb,0.51715e-07_rb,0.53224e-07_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.49989e-07_rb,0.50872e-07_rb,0.49932e-07_rb,0.52702e-07_rb,0.51493e-07_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.49845e-07_rb,0.48733e-07_rb,0.48348e-07_rb,0.51346e-07_rb,0.51109e-07_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.43883e-07_rb,0.43853e-07_rb,0.46523e-07_rb,0.47281e-07_rb,0.47292e-07_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.41424e-07_rb,0.42057e-07_rb,0.43773e-07_rb,0.43422e-07_rb,0.41438e-07_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.37736e-07_rb,0.34915e-07_rb,0.37971e-07_rb,0.38437e-07_rb,0.38122e-07_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.30209e-07_rb,0.32936e-07_rb,0.31853e-07_rb,0.30285e-07_rb,0.31746e-07_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.25886e-07_rb,0.26990e-07_rb,0.27039e-07_rb,0.26019e-07_rb,0.34246e-07_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.24750e-07_rb,0.20653e-07_rb,0.21921e-07_rb,0.25087e-07_rb,0.25874e-07_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.19410e-07_rb,0.18820e-07_rb,0.18768e-07_rb,0.23223e-07_rb,0.20942e-07_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.16037e-07_rb,0.16060e-07_rb,0.19012e-07_rb,0.17686e-07_rb,0.18319e-07_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.16085e-07_rb,0.15072e-07_rb,0.16472e-07_rb,0.15719e-07_rb,0.16406e-07_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.15014e-07_rb,0.17144e-07_rb,0.16353e-07_rb,0.15223e-07_rb,0.14884e-07_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.12909e-07_rb,0.15628e-07_rb,0.16086e-07_rb,0.15318e-07_rb,0.15605e-07_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.11803e-07_rb,0.12970e-07_rb,0.13587e-07_rb,0.13257e-07_rb,0.13920e-07_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.10299e-07_rb,0.10951e-07_rb,0.11006e-07_rb,0.11507e-07_rb,0.10553e-07_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.87605e-08_rb,0.10094e-07_rb,0.10641e-07_rb,0.94199e-08_rb,0.97115e-08_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.69747e-08_rb,0.82105e-08_rb,0.93516e-08_rb,0.90234e-08_rb,0.91657e-08_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.60201e-08_rb,0.73523e-08_rb,0.76249e-08_rb,0.76962e-08_rb,0.80489e-08_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.50249e-08_rb,0.64035e-08_rb,0.62997e-08_rb,0.63745e-08_rb,0.65773e-08_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.43021e-08_rb,0.55682e-08_rb,0.52391e-08_rb,0.55432e-08_rb,0.53417e-08_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.34659e-08_rb,0.41011e-08_rb,0.41998e-08_rb,0.45328e-08_rb,0.45452e-08_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.26629e-08_rb,0.30573e-08_rb,0.34050e-08_rb,0.36018e-08_rb,0.38146e-08_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.20352e-08_rb,0.25120e-08_rb,0.29668e-08_rb,0.27818e-08_rb,0.34015e-08_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.16537e-08_rb,0.17568e-08_rb,0.23894e-08_rb,0.22154e-08_rb,0.25802e-08_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.13981e-08_rb,0.14349e-08_rb,0.17246e-08_rb,0.17767e-08_rb,0.19090e-08_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.10918e-08_rb,0.11356e-08_rb,0.12258e-08_rb,0.14996e-08_rb,0.12493e-08_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.96204e-09_rb,0.88786e-09_rb,0.10061e-08_rb,0.12415e-08_rb,0.10774e-08_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.79848e-09_rb,0.70289e-09_rb,0.84515e-09_rb,0.10143e-08_rb,0.85552e-09_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.60435e-09_rb,0.54746e-09_rb,0.63806e-09_rb,0.74615e-09_rb,0.64507e-09_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.47378e-09_rb,0.48059e-09_rb,0.54886e-09_rb,0.73215e-09_rb,0.65721e-09_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.45346e-09_rb,0.46291e-09_rb,0.55380e-09_rb,0.67829e-09_rb,0.56756e-09_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.43938e-09_rb,0.46043e-09_rb,0.50980e-09_rb,0.62685e-09_rb,0.70094e-09_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.42587e-09_rb,0.43184e-09_rb,0.47819e-09_rb,0.57152e-09_rb,0.76528e-09_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.47403e-09_rb,0.46387e-09_rb,0.50904e-09_rb,0.58886e-09_rb,0.70162e-09_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.54448e-09_rb,0.50172e-09_rb,0.65155e-09_rb,0.65748e-09_rb,0.98321e-09_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.10995e-05_rb,0.11095e-05_rb,0.11168e-05_rb,0.11200e-05_rb,0.11274e-05_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.73340e-06_rb,0.73567e-06_rb,0.73740e-06_rb,0.73330e-06_rb,0.73919e-06_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.32510e-06_rb,0.31252e-06_rb,0.30243e-06_rb,0.29146e-06_rb,0.28830e-06_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.61567e-07_rb,0.60590e-07_rb,0.61057e-07_rb,0.58821e-07_rb,0.58536e-07_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.60009e-07_rb,0.60924e-07_rb,0.61205e-07_rb,0.63591e-07_rb,0.59950e-07_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.61458e-07_rb,0.61692e-07_rb,0.60339e-07_rb,0.59878e-07_rb,0.58575e-07_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.57878e-07_rb,0.60299e-07_rb,0.60236e-07_rb,0.59512e-07_rb,0.58126e-07_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.58329e-07_rb,0.57451e-07_rb,0.54760e-07_rb,0.57082e-07_rb,0.56805e-07_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.53092e-07_rb,0.51700e-07_rb,0.51833e-07_rb,0.52853e-07_rb,0.52467e-07_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.47591e-07_rb,0.51357e-07_rb,0.49075e-07_rb,0.53548e-07_rb,0.55924e-07_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.49724e-07_rb,0.51803e-07_rb,0.51793e-07_rb,0.49922e-07_rb,0.52665e-07_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.47737e-07_rb,0.49279e-07_rb,0.51207e-07_rb,0.49000e-07_rb,0.51613e-07_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.49014e-07_rb,0.50174e-07_rb,0.54886e-07_rb,0.47520e-07_rb,0.49798e-07_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.42783e-07_rb,0.51200e-07_rb,0.50600e-07_rb,0.47620e-07_rb,0.43709e-07_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.42685e-07_rb,0.50611e-07_rb,0.42800e-07_rb,0.43026e-07_rb,0.46518e-07_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.40023e-07_rb,0.44433e-07_rb,0.38380e-07_rb,0.40945e-07_rb,0.42005e-07_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.34641e-07_rb,0.38943e-07_rb,0.36153e-07_rb,0.36773e-07_rb,0.32051e-07_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.31936e-07_rb,0.28774e-07_rb,0.32629e-07_rb,0.32074e-07_rb,0.31547e-07_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.25468e-07_rb,0.25946e-07_rb,0.23671e-07_rb,0.23770e-07_rb,0.28704e-07_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.18317e-07_rb,0.22069e-07_rb,0.20055e-07_rb,0.21665e-07_rb,0.25653e-07_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.18319e-07_rb,0.17920e-07_rb,0.16523e-07_rb,0.20049e-07_rb,0.19951e-07_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.15127e-07_rb,0.13546e-07_rb,0.16257e-07_rb,0.16818e-07_rb,0.15661e-07_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.12192e-07_rb,0.13829e-07_rb,0.15792e-07_rb,0.15440e-07_rb,0.14596e-07_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.11593e-07_rb,0.10509e-07_rb,0.13211e-07_rb,0.13026e-07_rb,0.13917e-07_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.12302e-07_rb,0.13196e-07_rb,0.12558e-07_rb,0.11760e-07_rb,0.12490e-07_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.10116e-07_rb,0.12498e-07_rb,0.12546e-07_rb,0.12890e-07_rb,0.12908e-07_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.88258e-08_rb,0.10400e-07_rb,0.11293e-07_rb,0.11361e-07_rb,0.11468e-07_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.70753e-08_rb,0.81481e-08_rb,0.94292e-08_rb,0.10943e-07_rb,0.90300e-08_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.71994e-08_rb,0.84394e-08_rb,0.89108e-08_rb,0.89407e-08_rb,0.87875e-08_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.55536e-08_rb,0.66846e-08_rb,0.83965e-08_rb,0.80560e-08_rb,0.79305e-08_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.50223e-08_rb,0.59958e-08_rb,0.69583e-08_rb,0.70648e-08_rb,0.76990e-08_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.40990e-08_rb,0.43884e-08_rb,0.50706e-08_rb,0.56081e-08_rb,0.62414e-08_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.35590e-08_rb,0.38731e-08_rb,0.41923e-08_rb,0.44278e-08_rb,0.44950e-08_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.26814e-08_rb,0.33691e-08_rb,0.34101e-08_rb,0.34324e-08_rb,0.35321e-08_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.21424e-08_rb,0.21249e-08_rb,0.27532e-08_rb,0.28475e-08_rb,0.25748e-08_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.16514e-08_rb,0.18931e-08_rb,0.22507e-08_rb,0.22575e-08_rb,0.21238e-08_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.12235e-08_rb,0.12503e-08_rb,0.16643e-08_rb,0.16742e-08_rb,0.16438e-08_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.11340e-08_rb,0.11248e-08_rb,0.13120e-08_rb,0.13854e-08_rb,0.13503e-08_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.79176e-09_rb,0.91681e-09_rb,0.99908e-09_rb,0.13532e-08_rb,0.10405e-08_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.64785e-09_rb,0.57185e-09_rb,0.84784e-09_rb,0.90912e-09_rb,0.87721e-09_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.51330e-09_rb,0.43209e-09_rb,0.61659e-09_rb,0.79798e-09_rb,0.65017e-09_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.40227e-09_rb,0.45562e-09_rb,0.54691e-09_rb,0.63160e-09_rb,0.62902e-09_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.44280e-09_rb,0.43833e-09_rb,0.48132e-09_rb,0.55748e-09_rb,0.72672e-09_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.33767e-09_rb,0.43448e-09_rb,0.42774e-09_rb,0.52401e-09_rb,0.66273e-09_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.40113e-09_rb,0.38794e-09_rb,0.46286e-09_rb,0.57261e-09_rb,0.60773e-09_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.36624e-09_rb,0.52965e-09_rb,0.49530e-09_rb,0.54114e-09_rb,0.65708e-09_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.52598e-09_rb,0.55940e-09_rb,0.70094e-09_rb,0.71749e-09_rb,0.81086e-09_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.75197e-05_rb,0.74908e-05_rb,0.74768e-05_rb,0.74579e-05_rb,0.74485e-05_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.62427e-05_rb,0.62400e-05_rb,0.62314e-05_rb,0.62357e-05_rb,0.62230e-05_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.51235e-05_rb,0.51220e-05_rb,0.51270e-05_rb,0.51388e-05_rb,0.51377e-05_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.36653e-05_rb,0.36812e-05_rb,0.36844e-05_rb,0.36893e-05_rb,0.37175e-05_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.10067e-05_rb,0.10571e-05_rb,0.10948e-05_rb,0.11331e-05_rb,0.11791e-05_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.37963e-07_rb,0.35028e-07_rb,0.38085e-07_rb,0.36252e-07_rb,0.39741e-07_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.58861e-07_rb,0.39909e-07_rb,0.43872e-07_rb,0.52963e-07_rb,0.37762e-07_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.65438e-07_rb,0.43429e-07_rb,0.52709e-07_rb,0.35811e-07_rb,0.59833e-07_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.50452e-07_rb,0.50995e-07_rb,0.40371e-07_rb,0.51145e-07_rb,0.52725e-07_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.42139e-07_rb,0.45011e-07_rb,0.61867e-07_rb,0.41292e-07_rb,0.37916e-07_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.30176e-07_rb,0.29856e-07_rb,0.39637e-07_rb,0.38957e-07_rb,0.64896e-07_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.36010e-07_rb,0.42155e-07_rb,0.32787e-07_rb,0.46750e-07_rb,0.46940e-07_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.34802e-07_rb,0.41607e-07_rb,0.40854e-07_rb,0.61643e-07_rb,0.53762e-07_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.41295e-07_rb,0.39697e-07_rb,0.46005e-07_rb,0.46334e-07_rb,0.53334e-07_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.61711e-07_rb,0.29641e-07_rb,0.51823e-07_rb,0.42625e-07_rb,0.36336e-07_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.45196e-07_rb,0.56637e-07_rb,0.31716e-07_rb,0.38569e-07_rb,0.45693e-07_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.47349e-07_rb,0.38492e-07_rb,0.26330e-07_rb,0.30953e-07_rb,0.33330e-07_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.20700e-07_rb,0.24999e-07_rb,0.19626e-07_rb,0.33645e-07_rb,0.21883e-07_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.31879e-07_rb,0.26245e-07_rb,0.28697e-07_rb,0.26867e-07_rb,0.26801e-07_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.29616e-07_rb,0.18927e-07_rb,0.18903e-07_rb,0.14917e-07_rb,0.25602e-07_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.22437e-07_rb,0.26260e-07_rb,0.17262e-07_rb,0.13354e-07_rb,0.18413e-07_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.15957e-07_rb,0.11226e-07_rb,0.16852e-07_rb,0.11987e-07_rb,0.14358e-07_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.11233e-07_rb,0.90736e-08_rb,0.13960e-07_rb,0.76472e-08_rb,0.11733e-07_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.13919e-07_rb,0.10081e-07_rb,0.10035e-07_rb,0.10345e-07_rb,0.10622e-07_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.76780e-08_rb,0.12331e-07_rb,0.10794e-07_rb,0.16023e-07_rb,0.11524e-07_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.65416e-08_rb,0.97484e-08_rb,0.12132e-07_rb,0.10472e-07_rb,0.11363e-07_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.78511e-08_rb,0.70392e-08_rb,0.91444e-08_rb,0.84352e-08_rb,0.95946e-08_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.81878e-08_rb,0.94957e-08_rb,0.84996e-08_rb,0.11246e-07_rb,0.13024e-07_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.65901e-08_rb,0.80717e-08_rb,0.78357e-08_rb,0.67309e-08_rb,0.85966e-08_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.64210e-08_rb,0.59979e-08_rb,0.56936e-08_rb,0.70018e-08_rb,0.70433e-08_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.40388e-08_rb,0.71452e-08_rb,0.63548e-08_rb,0.84902e-08_rb,0.75828e-08_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.39142e-08_rb,0.55915e-08_rb,0.49863e-08_rb,0.52254e-08_rb,0.62790e-08_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.42931e-08_rb,0.31608e-08_rb,0.46572e-08_rb,0.47490e-08_rb,0.59912e-08_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.38722e-08_rb,0.16146e-08_rb,0.40010e-08_rb,0.24242e-08_rb,0.45711e-08_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.14942e-08_rb,0.28671e-08_rb,0.27168e-08_rb,0.40090e-08_rb,0.42343e-08_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.11911e-08_rb,0.13582e-08_rb,0.26580e-08_rb,0.29275e-08_rb,0.17855e-08_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.14130e-08_rb,0.10553e-08_rb,0.10543e-08_rb,0.11428e-08_rb,0.14141e-08_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.12182e-08_rb,0.14973e-08_rb,0.13182e-08_rb,0.84197e-09_rb,0.12115e-08_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.81227e-09_rb,0.90496e-09_rb,0.77903e-09_rb,0.83007e-09_rb,0.86051e-09_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.96715e-09_rb,0.52504e-09_rb,0.42702e-09_rb,0.99435e-09_rb,0.91829e-09_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.37232e-09_rb,0.22359e-09_rb,0.89279e-09_rb,0.85173e-09_rb,0.51790e-09_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.34402e-09_rb,0.40116e-09_rb,0.54696e-09_rb,0.50848e-09_rb,0.53123e-09_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.66100e-09_rb,0.65370e-09_rb,0.58427e-09_rb,0.74840e-09_rb,0.49778e-09_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.43138e-09_rb,0.39155e-09_rb,0.52944e-09_rb,0.58374e-09_rb,0.77481e-09_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.48190e-09_rb,0.37726e-09_rb,0.54783e-09_rb,0.43462e-09_rb,0.46295e-09_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.42276e-09_rb,0.62831e-09_rb,0.68493e-09_rb,0.49089e-09_rb,0.43799e-09_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.37023e-09_rb,0.90764e-09_rb,0.36527e-09_rb,0.99235e-09_rb,0.10719e-08_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.15119e-04_rb,0.15135e-04_rb,0.15140e-04_rb,0.15181e-04_rb,0.15209e-04_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.12807e-04_rb,0.12837e-04_rb,0.12873e-04_rb,0.12938e-04_rb,0.12999e-04_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.10789e-04_rb,0.10839e-04_rb,0.10921e-04_rb,0.10986e-04_rb,0.11078e-04_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.90472e-05_rb,0.91077e-05_rb,0.91930e-05_rb,0.92812e-05_rb,0.93959e-05_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.74085e-05_rb,0.75116e-05_rb,0.76103e-05_rb,0.77238e-05_rb,0.78364e-05_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.47863e-05_rb,0.49607e-05_rb,0.51634e-05_rb,0.53824e-05_rb,0.55724e-05_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.17849e-05_rb,0.19797e-05_rb,0.21641e-05_rb,0.23597e-05_rb,0.26015e-05_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.14011e-06_rb,0.26424e-06_rb,0.39902e-06_rb,0.56382e-06_rb,0.75666e-06_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.32681e-07_rb,0.30855e-07_rb,0.23688e-07_rb,0.28954e-07_rb,0.30262e-07_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.39000e-07_rb,0.34641e-07_rb,0.36220e-07_rb,0.29230e-07_rb,0.25365e-07_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.39936e-07_rb,0.40586e-07_rb,0.26460e-07_rb,0.13886e-07_rb,0.18108e-07_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.34546e-07_rb,0.30818e-07_rb,0.33243e-07_rb,0.31408e-07_rb,0.37755e-07_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.36078e-07_rb,0.45586e-07_rb,0.18117e-07_rb,0.20176e-07_rb,0.46256e-07_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.61382e-07_rb,0.31185e-07_rb,0.38578e-07_rb,0.18908e-07_rb,0.43919e-07_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.37585e-07_rb,0.28323e-07_rb,0.45638e-07_rb,0.34261e-07_rb,0.26227e-07_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.41226e-07_rb,0.24793e-07_rb,0.23296e-07_rb,0.20952e-07_rb,0.27899e-07_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.21318e-07_rb,0.23768e-07_rb,0.39220e-07_rb,0.28896e-07_rb,0.15703e-07_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.25522e-07_rb,0.29485e-07_rb,0.39326e-07_rb,0.29293e-07_rb,0.36529e-07_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.14494e-07_rb,0.25417e-07_rb,0.13732e-07_rb,0.97827e-08_rb,0.20014e-07_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.14101e-07_rb,0.26239e-07_rb,0.22312e-07_rb,0.10163e-07_rb,0.17547e-07_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.17347e-07_rb,0.17261e-07_rb,0.13014e-07_rb,0.21130e-07_rb,0.31576e-08_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.11923e-07_rb,0.13818e-07_rb,0.14692e-07_rb,0.14120e-07_rb,0.12000e-07_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.86917e-08_rb,0.10083e-07_rb,0.11872e-07_rb,0.58578e-08_rb,0.13194e-07_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.74538e-08_rb,0.94606e-08_rb,0.85633e-08_rb,0.15394e-07_rb,0.81997e-08_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.59982e-08_rb,0.58805e-08_rb,0.92255e-08_rb,0.69472e-08_rb,0.63632e-08_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.75481e-08_rb,0.82094e-08_rb,0.10405e-07_rb,0.62921e-08_rb,0.70021e-08_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.65770e-08_rb,0.73715e-08_rb,0.70899e-08_rb,0.49884e-08_rb,0.73567e-08_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.62200e-08_rb,0.79227e-08_rb,0.65710e-08_rb,0.35793e-08_rb,0.48653e-08_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.67810e-08_rb,0.64933e-08_rb,0.26651e-08_rb,0.71067e-08_rb,0.42136e-08_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.32351e-08_rb,0.79993e-08_rb,0.25727e-08_rb,0.70581e-08_rb,0.58932e-08_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.54331e-08_rb,0.21653e-08_rb,0.69372e-08_rb,0.30142e-08_rb,0.23071e-07_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.26834e-08_rb,0.43047e-08_rb,0.44246e-08_rb,0.29474e-08_rb,0.52315e-07_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.22521e-08_rb,0.21920e-08_rb,0.35952e-08_rb,0.29799e-08_rb,0.81164e-07_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.28580e-08_rb,0.12605e-08_rb,0.64390e-09_rb,0.24255e-07_rb,0.96879e-07_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.13005e-08_rb,0.17967e-08_rb,0.21618e-08_rb,0.30225e-07_rb,0.10319e-06_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.13676e-08_rb,0.96043e-09_rb,0.14275e-08_rb,0.39735e-07_rb,0.11261e-06_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.79619e-09_rb,0.85338e-09_rb,0.14300e-08_rb,0.51821e-07_rb,0.12169e-06_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.49284e-09_rb,0.21801e-09_rb,0.75017e-08_rb,0.50308e-07_rb,0.11953e-06_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.51956e-09_rb,0.59927e-09_rb,0.87276e-08_rb,0.45028e-07_rb,0.11141e-06_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.35814e-09_rb,0.78982e-09_rb,0.10205e-07_rb,0.45574e-07_rb,0.10332e-06_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.69729e-09_rb,0.23757e-09_rb,0.11741e-07_rb,0.45086e-07_rb,0.98023e-07_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.38203e-09_rb,0.28792e-09_rb,0.72239e-08_rb,0.35770e-07_rb,0.80771e-07_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.33870e-09_rb,0.39698e-09_rb,0.15883e-08_rb,0.22568e-07_rb,0.61465e-07_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.50424e-09_rb,0.25383e-09_rb,0.46226e-09_rb,0.12214e-07_rb,0.43776e-07_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.18824e-09_rb,0.14340e-09_rb,0.96547e-10_rb,0.36771e-08_rb,0.28437e-07_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.53960e-09_rb,0.71198e-09_rb,0.40290e-09_rb,0.38600e-09_rb,0.14449e-07_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.64570e-09_rb,0.80856e-09_rb,0.54439e-09_rb,0.66021e-09_rb,0.28306e-09_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.35137e-04_rb,0.35315e-04_rb,0.35473e-04_rb,0.35691e-04_rb,0.35953e-04_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.30387e-04_rb,0.30535e-04_rb,0.30693e-04_rb,0.30906e-04_rb,0.31121e-04_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.26404e-04_rb,0.26560e-04_rb,0.26776e-04_rb,0.26963e-04_rb,0.27157e-04_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.22908e-04_rb,0.23161e-04_rb,0.23420e-04_rb,0.23636e-04_rb,0.23864e-04_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.19849e-04_rb,0.20170e-04_rb,0.20453e-04_rb,0.20723e-04_rb,0.21011e-04_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.17158e-04_rb,0.17516e-04_rb,0.17820e-04_rb,0.18149e-04_rb,0.18467e-04_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.14706e-04_rb,0.15074e-04_rb,0.15426e-04_rb,0.15809e-04_rb,0.16128e-04_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.12200e-04_rb,0.12654e-04_rb,0.13122e-04_rb,0.13561e-04_rb,0.13942e-04_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.88744e-05_rb,0.95294e-05_rb,0.10194e-04_rb,0.10811e-04_rb,0.11447e-04_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.63063e-05_rb,0.69160e-05_rb,0.75170e-05_rb,0.81696e-05_rb,0.87829e-05_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.42549e-05_rb,0.48576e-05_rb,0.54224e-05_rb,0.60649e-05_rb,0.65852e-05_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.26155e-05_rb,0.31537e-05_rb,0.36816e-05_rb,0.42795e-05_rb,0.47356e-05_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.14576e-05_rb,0.18762e-05_rb,0.23875e-05_rb,0.29308e-05_rb,0.33846e-05_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.67369e-06_rb,0.10096e-05_rb,0.14730e-05_rb,0.19592e-05_rb,0.24356e-05_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.27240e-06_rb,0.59733e-06_rb,0.98553e-06_rb,0.13968e-05_rb,0.18466e-05_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.81179e-07_rb,0.35063e-06_rb,0.74692e-06_rb,0.11081e-05_rb,0.15613e-05_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.94800e-07_rb,0.40513e-06_rb,0.73547e-06_rb,0.10914e-05_rb,0.16188e-05_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.19045e-06_rb,0.51192e-06_rb,0.80594e-06_rb,0.12694e-05_rb,0.16954e-05_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.38493e-06_rb,0.71230e-06_rb,0.11392e-05_rb,0.15875e-05_rb,0.20565e-05_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.61444e-06_rb,0.97779e-06_rb,0.14257e-05_rb,0.18883e-05_rb,0.26649e-05_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.84230e-06_rb,0.12390e-05_rb,0.17304e-05_rb,0.23322e-05_rb,0.32859e-05_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.10458e-05_rb,0.14709e-05_rb,0.19634e-05_rb,0.28004e-05_rb,0.37724e-05_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.11901e-05_rb,0.16306e-05_rb,0.22411e-05_rb,0.31089e-05_rb,0.41007e-05_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.12859e-05_rb,0.17604e-05_rb,0.24414e-05_rb,0.32964e-05_rb,0.43267e-05_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.13015e-05_rb,0.17577e-05_rb,0.24562e-05_rb,0.33117e-05_rb,0.43238e-05_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.13522e-05_rb,0.18247e-05_rb,0.25116e-05_rb,0.33483e-05_rb,0.43352e-05_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.14322e-05_rb,0.19336e-05_rb,0.26107e-05_rb,0.34258e-05_rb,0.44158e-05_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.14006e-05_rb,0.18728e-05_rb,0.25304e-05_rb,0.33179e-05_rb,0.42738e-05_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.13551e-05_rb,0.18012e-05_rb,0.24357e-05_rb,0.32084e-05_rb,0.41141e-05_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.13297e-05_rb,0.17512e-05_rb,0.23561e-05_rb,0.30946e-05_rb,0.39665e-05_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.12687e-05_rb,0.16768e-05_rb,0.22464e-05_rb,0.29540e-05_rb,0.37527e-05_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.12099e-05_rb,0.15968e-05_rb,0.21385e-05_rb,0.28006e-05_rb,0.35240e-05_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.11534e-05_rb,0.15243e-05_rb,0.20279e-05_rb,0.26581e-05_rb,0.33062e-05_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.10898e-05_rb,0.14434e-05_rb,0.19097e-05_rb,0.24739e-05_rb,0.30807e-05_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.10111e-05_rb,0.13412e-05_rb,0.17607e-05_rb,0.22724e-05_rb,0.28391e-05_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.92540e-06_rb,0.12447e-05_rb,0.16295e-05_rb,0.20863e-05_rb,0.26097e-05_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.84684e-06_rb,0.11506e-05_rb,0.15141e-05_rb,0.19160e-05_rb,0.23957e-05_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.76391e-06_rb,0.10519e-05_rb,0.13910e-05_rb,0.17635e-05_rb,0.22060e-05_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.68139e-06_rb,0.95640e-06_rb,0.12771e-05_rb,0.16252e-05_rb,0.20363e-05_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.60392e-06_rb,0.86706e-06_rb,0.11671e-05_rb,0.14940e-05_rb,0.18793e-05_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.53856e-06_rb,0.78259e-06_rb,0.10620e-05_rb,0.13737e-05_rb,0.17330e-05_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.46919e-06_rb,0.69589e-06_rb,0.96582e-06_rb,0.12666e-05_rb,0.16070e-05_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.40013e-06_rb,0.61215e-06_rb,0.87450e-06_rb,0.11663e-05_rb,0.14929e-05_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.33987e-06_rb,0.53286e-06_rb,0.78520e-06_rb,0.10697e-05_rb,0.13857e-05_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.28415e-06_rb,0.45936e-06_rb,0.69784e-06_rb,0.97544e-06_rb,0.12829e-05_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.23457e-06_rb,0.39019e-06_rb,0.61528e-06_rb,0.88439e-06_rb,0.11866e-05_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.19576e-06_rb,0.34385e-06_rb,0.56055e-06_rb,0.82347e-06_rb,0.11274e-05_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.12143e-03_rb,0.12308e-03_rb,0.12512e-03_rb,0.12699e-03_rb,0.12910e-03_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.10385e-03_rb,0.10569e-03_rb,0.10770e-03_rb,0.10972e-03_rb,0.11214e-03_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.88944e-04_rb,0.90837e-04_rb,0.92688e-04_rb,0.94910e-04_rb,0.97472e-04_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.76542e-04_rb,0.78268e-04_rb,0.80179e-04_rb,0.82469e-04_rb,0.84734e-04_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.66332e-04_rb,0.67885e-04_rb,0.69742e-04_rb,0.71831e-04_rb,0.74034e-04_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.57811e-04_rb,0.59251e-04_rb,0.61096e-04_rb,0.62954e-04_rb,0.65175e-04_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.50669e-04_rb,0.52124e-04_rb,0.53790e-04_rb,0.55608e-04_rb,0.57861e-04_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.44810e-04_rb,0.46258e-04_rb,0.47774e-04_rb,0.49573e-04_rb,0.51715e-04_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.40009e-04_rb,0.41361e-04_rb,0.42755e-04_rb,0.44560e-04_rb,0.46559e-04_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.36116e-04_rb,0.37297e-04_rb,0.38718e-04_rb,0.40472e-04_rb,0.42441e-04_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.32736e-04_rb,0.33861e-04_rb,0.35361e-04_rb,0.37075e-04_rb,0.39134e-04_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.29883e-04_rb,0.31056e-04_rb,0.32552e-04_rb,0.34296e-04_rb,0.36499e-04_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.27373e-04_rb,0.28693e-04_rb,0.30179e-04_rb,0.32033e-04_rb,0.34358e-04_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.25273e-04_rb,0.26749e-04_rb,0.28306e-04_rb,0.30341e-04_rb,0.32793e-04_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.23652e-04_rb,0.25175e-04_rb,0.26905e-04_rb,0.29145e-04_rb,0.31814e-04_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.22453e-04_rb,0.24077e-04_rb,0.26031e-04_rb,0.28419e-04_rb,0.31259e-04_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.21794e-04_rb,0.23553e-04_rb,0.25672e-04_rb,0.28266e-04_rb,0.31243e-04_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.21501e-04_rb,0.23414e-04_rb,0.25687e-04_rb,0.28389e-04_rb,0.31547e-04_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.21532e-04_rb,0.23577e-04_rb,0.25947e-04_rb,0.28793e-04_rb,0.32070e-04_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.21702e-04_rb,0.23850e-04_rb,0.26365e-04_rb,0.29337e-04_rb,0.32730e-04_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.21999e-04_rb,0.24243e-04_rb,0.26895e-04_rb,0.29970e-04_rb,0.33492e-04_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.22272e-04_rb,0.24615e-04_rb,0.27365e-04_rb,0.30535e-04_rb,0.34149e-04_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.22408e-04_rb,0.24786e-04_rb,0.27609e-04_rb,0.30838e-04_rb,0.34518e-04_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.22324e-04_rb,0.24717e-04_rb,0.27535e-04_rb,0.30781e-04_rb,0.34466e-04_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.21914e-04_rb,0.24278e-04_rb,0.27037e-04_rb,0.30223e-04_rb,0.33847e-04_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.21518e-04_rb,0.23846e-04_rb,0.26529e-04_rb,0.29664e-04_rb,0.33219e-04_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.21138e-04_rb,0.23443e-04_rb,0.26064e-04_rb,0.29132e-04_rb,0.32628e-04_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.20535e-04_rb,0.22813e-04_rb,0.25328e-04_rb,0.28289e-04_rb,0.31682e-04_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.19918e-04_rb,0.22174e-04_rb,0.24598e-04_rb,0.27447e-04_rb,0.30722e-04_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.19309e-04_rb,0.21550e-04_rb,0.23909e-04_rb,0.26639e-04_rb,0.29801e-04_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.18566e-04_rb,0.20812e-04_rb,0.23112e-04_rb,0.25700e-04_rb,0.28732e-04_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.17767e-04_rb,0.20035e-04_rb,0.22299e-04_rb,0.24756e-04_rb,0.27639e-04_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.16962e-04_rb,0.19260e-04_rb,0.21500e-04_rb,0.23864e-04_rb,0.26597e-04_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.16086e-04_rb,0.18421e-04_rb,0.20671e-04_rb,0.22972e-04_rb,0.25545e-04_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.15115e-04_rb,0.17481e-04_rb,0.19766e-04_rb,0.22019e-04_rb,0.24442e-04_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.14158e-04_rb,0.16526e-04_rb,0.18843e-04_rb,0.21088e-04_rb,0.23419e-04_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.13195e-04_rb,0.15552e-04_rb,0.17911e-04_rb,0.20179e-04_rb,0.22454e-04_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.12314e-04_rb,0.14653e-04_rb,0.17032e-04_rb,0.19326e-04_rb,0.21576e-04_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.11480e-04_rb,0.13788e-04_rb,0.16154e-04_rb,0.18484e-04_rb,0.20739e-04_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.10629e-04_rb,0.12922e-04_rb,0.15279e-04_rb,0.17642e-04_rb,0.19921e-04_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.97710e-05_rb,0.12082e-04_rb,0.14410e-04_rb,0.16788e-04_rb,0.19091e-04_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.90074e-05_rb,0.11316e-04_rb,0.13617e-04_rb,0.15981e-04_rb,0.18321e-04_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.83042e-05_rb,0.10569e-04_rb,0.12859e-04_rb,0.15214e-04_rb,0.17581e-04_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.76202e-05_rb,0.98296e-05_rb,0.12125e-04_rb,0.14457e-04_rb,0.16835e-04_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.69561e-05_rb,0.91024e-05_rb,0.11398e-04_rb,0.13700e-04_rb,0.16068e-04_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.63426e-05_rb,0.84347e-05_rb,0.10695e-04_rb,0.12984e-04_rb,0.15340e-04_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.61056e-05_rb,0.81719e-05_rb,0.10410e-04_rb,0.12698e-04_rb,0.15054e-04_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.69692e-03_rb,0.71516e-03_rb,0.73378e-03_rb,0.75443e-03_rb,0.77716e-03_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.64436e-03_rb,0.66211e-03_rb,0.68199e-03_rb,0.70460e-03_rb,0.72891e-03_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.59775e-03_rb,0.61618e-03_rb,0.63785e-03_rb,0.66198e-03_rb,0.68803e-03_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.55668e-03_rb,0.57752e-03_rb,0.60052e-03_rb,0.62615e-03_rb,0.65391e-03_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.52104e-03_rb,0.54458e-03_rb,0.56934e-03_rb,0.59627e-03_rb,0.62539e-03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.49086e-03_rb,0.51685e-03_rb,0.54337e-03_rb,0.57147e-03_rb,0.60182e-03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.46544e-03_rb,0.49373e-03_rb,0.52192e-03_rb,0.55124e-03_rb,0.58277e-03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.44496e-03_rb,0.47526e-03_rb,0.50494e-03_rb,0.53564e-03_rb,0.56857e-03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.42855e-03_rb,0.46070e-03_rb,0.49202e-03_rb,0.52375e-03_rb,0.55795e-03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.41783e-03_rb,0.45160e-03_rb,0.48421e-03_rb,0.51739e-03_rb,0.55269e-03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.41085e-03_rb,0.44564e-03_rb,0.47947e-03_rb,0.51389e-03_rb,0.55016e-03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.40699e-03_rb,0.44263e-03_rb,0.47766e-03_rb,0.51290e-03_rb,0.55008e-03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.40592e-03_rb,0.44215e-03_rb,0.47812e-03_rb,0.51419e-03_rb,0.55216e-03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.40741e-03_rb,0.44425e-03_rb,0.48085e-03_rb,0.51770e-03_rb,0.55654e-03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.41074e-03_rb,0.44811e-03_rb,0.48506e-03_rb,0.52264e-03_rb,0.56211e-03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.41538e-03_rb,0.45333e-03_rb,0.49042e-03_rb,0.52868e-03_rb,0.56877e-03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.42139e-03_rb,0.45956e-03_rb,0.49700e-03_rb,0.53588e-03_rb,0.57647e-03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.42836e-03_rb,0.46659e-03_rb,0.50435e-03_rb,0.54377e-03_rb,0.58489e-03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.43618e-03_rb,0.47431e-03_rb,0.51248e-03_rb,0.55256e-03_rb,0.59401e-03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.44466e-03_rb,0.48256e-03_rb,0.52138e-03_rb,0.56187e-03_rb,0.60364e-03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.45349e-03_rb,0.49137e-03_rb,0.53076e-03_rb,0.57166e-03_rb,0.61359e-03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.46108e-03_rb,0.49922e-03_rb,0.53902e-03_rb,0.58028e-03_rb,0.62237e-03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.46528e-03_rb,0.50354e-03_rb,0.54368e-03_rb,0.58501e-03_rb,0.62724e-03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.46539e-03_rb,0.50375e-03_rb,0.54391e-03_rb,0.58538e-03_rb,0.62763e-03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.45984e-03_rb,0.49817e-03_rb,0.53806e-03_rb,0.57948e-03_rb,0.62153e-03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.45408e-03_rb,0.49229e-03_rb,0.53205e-03_rb,0.57322e-03_rb,0.61533e-03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.44837e-03_rb,0.48652e-03_rb,0.52604e-03_rb,0.56712e-03_rb,0.60916e-03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.43865e-03_rb,0.47705e-03_rb,0.51607e-03_rb,0.55678e-03_rb,0.59870e-03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.42850e-03_rb,0.46708e-03_rb,0.50578e-03_rb,0.54611e-03_rb,0.58790e-03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.41832e-03_rb,0.45718e-03_rb,0.49552e-03_rb,0.53551e-03_rb,0.57688e-03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.40611e-03_rb,0.44501e-03_rb,0.48328e-03_rb,0.52271e-03_rb,0.56375e-03_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.39281e-03_rb,0.43169e-03_rb,0.47025e-03_rb,0.50904e-03_rb,0.54960e-03_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.37939e-03_rb,0.41841e-03_rb,0.45722e-03_rb,0.49565e-03_rb,0.53564e-03_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.36481e-03_rb,0.40443e-03_rb,0.44334e-03_rb,0.48171e-03_rb,0.52104e-03_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.34813e-03_rb,0.38867e-03_rb,0.42754e-03_rb,0.46626e-03_rb,0.50489e-03_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.33101e-03_rb,0.37257e-03_rb,0.41188e-03_rb,0.45078e-03_rb,0.48906e-03_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.31369e-03_rb,0.35613e-03_rb,0.39621e-03_rb,0.43508e-03_rb,0.47354e-03_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.29739e-03_rb,0.34030e-03_rb,0.38132e-03_rb,0.42035e-03_rb,0.45918e-03_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.28140e-03_rb,0.32461e-03_rb,0.36662e-03_rb,0.40619e-03_rb,0.44511e-03_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.26563e-03_rb,0.30898e-03_rb,0.35161e-03_rb,0.39193e-03_rb,0.43080e-03_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.24997e-03_rb,0.29311e-03_rb,0.33618e-03_rb,0.37741e-03_rb,0.41655e-03_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.23534e-03_rb,0.27846e-03_rb,0.32175e-03_rb,0.36391e-03_rb,0.40359e-03_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.22140e-03_rb,0.26468e-03_rb,0.30799e-03_rb,0.35062e-03_rb,0.39107e-03_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.20748e-03_rb,0.25097e-03_rb,0.29409e-03_rb,0.33714e-03_rb,0.37835e-03_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.19363e-03_rb,0.23702e-03_rb,0.28013e-03_rb,0.32339e-03_rb,0.36545e-03_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.18066e-03_rb,0.22379e-03_rb,0.26710e-03_rb,0.31040e-03_rb,0.35295e-03_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.17550e-03_rb,0.21855e-03_rb,0.26188e-03_rb,0.30515e-03_rb,0.34793e-03_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.67077e-02_rb,0.67643e-02_rb,0.68102e-02_rb,0.68432e-02_rb,0.68617e-02_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.68112e-02_rb,0.68842e-02_rb,0.69413e-02_rb,0.69806e-02_rb,0.70063e-02_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.68961e-02_rb,0.69833e-02_rb,0.70488e-02_rb,0.70965e-02_rb,0.71269e-02_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.69706e-02_rb,0.70648e-02_rb,0.71387e-02_rb,0.71925e-02_rb,0.72279e-02_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.70342e-02_rb,0.71339e-02_rb,0.72130e-02_rb,0.72737e-02_rb,0.73138e-02_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.70890e-02_rb,0.71933e-02_rb,0.72776e-02_rb,0.73426e-02_rb,0.73856e-02_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.71380e-02_rb,0.72441e-02_rb,0.73326e-02_rb,0.74006e-02_rb,0.74464e-02_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.71838e-02_rb,0.72907e-02_rb,0.73816e-02_rb,0.74514e-02_rb,0.74969e-02_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.72239e-02_rb,0.73326e-02_rb,0.74235e-02_rb,0.74941e-02_rb,0.75405e-02_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.72699e-02_rb,0.73767e-02_rb,0.74650e-02_rb,0.75340e-02_rb,0.75785e-02_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.73111e-02_rb,0.74172e-02_rb,0.75033e-02_rb,0.75687e-02_rb,0.76113e-02_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.73510e-02_rb,0.74537e-02_rb,0.75371e-02_rb,0.76008e-02_rb,0.76395e-02_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.73875e-02_rb,0.74885e-02_rb,0.75684e-02_rb,0.76282e-02_rb,0.76634e-02_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.74256e-02_rb,0.75226e-02_rb,0.75985e-02_rb,0.76530e-02_rb,0.76835e-02_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.74605e-02_rb,0.75517e-02_rb,0.76248e-02_rb,0.76742e-02_rb,0.77008e-02_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.74927e-02_rb,0.75800e-02_rb,0.76483e-02_rb,0.76927e-02_rb,0.77139e-02_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.75244e-02_rb,0.76057e-02_rb,0.76690e-02_rb,0.77086e-02_rb,0.77249e-02_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.75518e-02_rb,0.76303e-02_rb,0.76877e-02_rb,0.77209e-02_rb,0.77334e-02_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.75781e-02_rb,0.76519e-02_rb,0.77036e-02_rb,0.77320e-02_rb,0.77395e-02_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.76025e-02_rb,0.76727e-02_rb,0.77178e-02_rb,0.77409e-02_rb,0.77439e-02_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.76266e-02_rb,0.76908e-02_rb,0.77289e-02_rb,0.77461e-02_rb,0.77464e-02_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.76450e-02_rb,0.77038e-02_rb,0.77387e-02_rb,0.77507e-02_rb,0.77465e-02_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.76558e-02_rb,0.77117e-02_rb,0.77433e-02_rb,0.77536e-02_rb,0.77475e-02_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.76587e-02_rb,0.77150e-02_rb,0.77452e-02_rb,0.77564e-02_rb,0.77495e-02_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.76522e-02_rb,0.77109e-02_rb,0.77439e-02_rb,0.77579e-02_rb,0.77534e-02_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.76429e-02_rb,0.77056e-02_rb,0.77426e-02_rb,0.77582e-02_rb,0.77560e-02_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.76339e-02_rb,0.76993e-02_rb,0.77402e-02_rb,0.77587e-02_rb,0.77588e-02_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.76166e-02_rb,0.76865e-02_rb,0.77335e-02_rb,0.77564e-02_rb,0.77613e-02_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.75961e-02_rb,0.76706e-02_rb,0.77239e-02_rb,0.77534e-02_rb,0.77621e-02_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.75752e-02_rb,0.76537e-02_rb,0.77143e-02_rb,0.77487e-02_rb,0.77622e-02_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.75459e-02_rb,0.76317e-02_rb,0.76988e-02_rb,0.77406e-02_rb,0.77602e-02_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.75134e-02_rb,0.76061e-02_rb,0.76788e-02_rb,0.77299e-02_rb,0.77567e-02_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.74772e-02_rb,0.75773e-02_rb,0.76562e-02_rb,0.77161e-02_rb,0.77502e-02_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.74372e-02_rb,0.75438e-02_rb,0.76298e-02_rb,0.76975e-02_rb,0.77405e-02_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.73875e-02_rb,0.75032e-02_rb,0.75980e-02_rb,0.76724e-02_rb,0.77261e-02_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.73358e-02_rb,0.74597e-02_rb,0.75632e-02_rb,0.76453e-02_rb,0.77080e-02_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.72811e-02_rb,0.74117e-02_rb,0.75238e-02_rb,0.76147e-02_rb,0.76865e-02_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.72248e-02_rb,0.73656e-02_rb,0.74842e-02_rb,0.75831e-02_rb,0.76614e-02_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.71662e-02_rb,0.73174e-02_rb,0.74427e-02_rb,0.75493e-02_rb,0.76342e-02_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.71006e-02_rb,0.72655e-02_rb,0.73997e-02_rb,0.75133e-02_rb,0.76064e-02_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.70300e-02_rb,0.72101e-02_rb,0.73531e-02_rb,0.74734e-02_rb,0.75745e-02_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.69596e-02_rb,0.71548e-02_rb,0.73082e-02_rb,0.74357e-02_rb,0.75431e-02_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.68873e-02_rb,0.70968e-02_rb,0.72620e-02_rb,0.73967e-02_rb,0.75110e-02_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.68089e-02_rb,0.70345e-02_rb,0.72141e-02_rb,0.73575e-02_rb,0.74766e-02_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.67241e-02_rb,0.69678e-02_rb,0.71623e-02_rb,0.73141e-02_rb,0.74401e-02_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.66371e-02_rb,0.69009e-02_rb,0.71063e-02_rb,0.72699e-02_rb,0.74044e-02_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.66009e-02_rb,0.68723e-02_rb,0.70852e-02_rb,0.72532e-02_rb,0.73888e-02_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.20091e-01_rb,0.19310e-01_rb,0.18586e-01_rb,0.17917e-01_rb,0.17293e-01_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.21405e-01_rb,0.20507e-01_rb,0.19679e-01_rb,0.18912e-01_rb,0.18201e-01_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.22567e-01_rb,0.21555e-01_rb,0.20633e-01_rb,0.19775e-01_rb,0.18992e-01_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.23562e-01_rb,0.22456e-01_rb,0.21445e-01_rb,0.20508e-01_rb,0.19661e-01_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.24411e-01_rb,0.23217e-01_rb,0.22126e-01_rb,0.21126e-01_rb,0.20220e-01_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.25116e-01_rb,0.23847e-01_rb,0.22688e-01_rb,0.21635e-01_rb,0.20680e-01_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.25693e-01_rb,0.24361e-01_rb,0.23149e-01_rb,0.22047e-01_rb,0.21053e-01_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.26126e-01_rb,0.24747e-01_rb,0.23489e-01_rb,0.22355e-01_rb,0.21332e-01_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.26457e-01_rb,0.25034e-01_rb,0.23751e-01_rb,0.22588e-01_rb,0.21537e-01_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.26586e-01_rb,0.25153e-01_rb,0.23857e-01_rb,0.22677e-01_rb,0.21621e-01_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.26640e-01_rb,0.25191e-01_rb,0.23890e-01_rb,0.22706e-01_rb,0.21649e-01_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.26616e-01_rb,0.25160e-01_rb,0.23861e-01_rb,0.22680e-01_rb,0.21622e-01_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.26518e-01_rb,0.25075e-01_rb,0.23777e-01_rb,0.22603e-01_rb,0.21555e-01_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.26348e-01_rb,0.24922e-01_rb,0.23637e-01_rb,0.22478e-01_rb,0.21437e-01_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.26138e-01_rb,0.24737e-01_rb,0.23465e-01_rb,0.22328e-01_rb,0.21299e-01_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.25904e-01_rb,0.24526e-01_rb,0.23272e-01_rb,0.22156e-01_rb,0.21140e-01_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.25645e-01_rb,0.24289e-01_rb,0.23059e-01_rb,0.21960e-01_rb,0.20965e-01_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.25364e-01_rb,0.24034e-01_rb,0.22831e-01_rb,0.21758e-01_rb,0.20776e-01_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.25075e-01_rb,0.23766e-01_rb,0.22595e-01_rb,0.21541e-01_rb,0.20581e-01_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.24769e-01_rb,0.23490e-01_rb,0.22348e-01_rb,0.21316e-01_rb,0.20377e-01_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.24460e-01_rb,0.23211e-01_rb,0.22098e-01_rb,0.21090e-01_rb,0.20170e-01_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.24193e-01_rb,0.22975e-01_rb,0.21887e-01_rb,0.20894e-01_rb,0.19994e-01_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.24050e-01_rb,0.22849e-01_rb,0.21770e-01_rb,0.20789e-01_rb,0.19901e-01_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.24043e-01_rb,0.22842e-01_rb,0.21764e-01_rb,0.20784e-01_rb,0.19894e-01_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.24229e-01_rb,0.23006e-01_rb,0.21915e-01_rb,0.20918e-01_rb,0.20018e-01_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.24421e-01_rb,0.23180e-01_rb,0.22070e-01_rb,0.21062e-01_rb,0.20144e-01_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.24617e-01_rb,0.23352e-01_rb,0.22226e-01_rb,0.21205e-01_rb,0.20274e-01_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.24953e-01_rb,0.23654e-01_rb,0.22496e-01_rb,0.21449e-01_rb,0.20495e-01_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.25312e-01_rb,0.23980e-01_rb,0.22786e-01_rb,0.21712e-01_rb,0.20738e-01_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.25679e-01_rb,0.24315e-01_rb,0.23082e-01_rb,0.21982e-01_rb,0.20981e-01_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.26140e-01_rb,0.24730e-01_rb,0.23454e-01_rb,0.22317e-01_rb,0.21287e-01_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.26653e-01_rb,0.25200e-01_rb,0.23871e-01_rb,0.22691e-01_rb,0.21628e-01_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.27190e-01_rb,0.25674e-01_rb,0.24311e-01_rb,0.23078e-01_rb,0.21977e-01_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.27783e-01_rb,0.26205e-01_rb,0.24787e-01_rb,0.23504e-01_rb,0.22362e-01_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.28471e-01_rb,0.26819e-01_rb,0.25343e-01_rb,0.24006e-01_rb,0.22809e-01_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.29185e-01_rb,0.27464e-01_rb,0.25918e-01_rb,0.24532e-01_rb,0.23275e-01_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.29935e-01_rb,0.28138e-01_rb,0.26520e-01_rb,0.25074e-01_rb,0.23762e-01_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.30661e-01_rb,0.28793e-01_rb,0.27111e-01_rb,0.25603e-01_rb,0.24243e-01_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.31401e-01_rb,0.29455e-01_rb,0.27706e-01_rb,0.26135e-01_rb,0.24726e-01_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.32182e-01_rb,0.30140e-01_rb,0.28322e-01_rb,0.26686e-01_rb,0.25224e-01_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.33002e-01_rb,0.30856e-01_rb,0.28966e-01_rb,0.27268e-01_rb,0.25738e-01_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.33792e-01_rb,0.31541e-01_rb,0.29577e-01_rb,0.27816e-01_rb,0.26234e-01_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.34581e-01_rb,0.32233e-01_rb,0.30182e-01_rb,0.28363e-01_rb,0.26721e-01_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.35416e-01_rb,0.32947e-01_rb,0.30807e-01_rb,0.28926e-01_rb,0.27227e-01_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.36291e-01_rb,0.33701e-01_rb,0.31460e-01_rb,0.29510e-01_rb,0.27750e-01_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.37161e-01_rb,0.34436e-01_rb,0.32106e-01_rb,0.30077e-01_rb,0.28264e-01_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.37521e-01_rb,0.34750e-01_rb,0.32373e-01_rb,0.30309e-01_rb,0.28477e-01_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.515619e-08_rb, 0.131078e-06_rb, 0.349038e-06_rb /)\n      forrefo(:, 2) = (/ 0.329605e-07_rb, 0.430497e-06_rb, 0.458569e-05_rb /)\n      forrefo(:, 3) = (/ 0.188244e-06_rb, 0.792931e-06_rb, 0.267176e-05_rb /)\n      forrefo(:, 4) = (/ 0.611237e-06_rb, 0.798868e-06_rb, 0.411583e-06_rb /)\n      forrefo(:, 5) = (/ 0.111903e-05_rb, 0.914895e-06_rb, 0.444828e-06_rb /)\n      forrefo(:, 6) = (/ 0.235399e-05_rb, 0.269099e-05_rb, 0.739855e-06_rb /)\n      forrefo(:, 7) = (/ 0.400131e-05_rb, 0.378135e-05_rb, 0.231265e-06_rb /)\n      forrefo(:, 8) = (/ 0.464257e-05_rb, 0.371927e-05_rb, 0.460611e-06_rb /)\n      forrefo(:, 9) = (/ 0.476792e-05_rb, 0.311841e-05_rb, 0.934811e-06_rb /)\n      forrefo(:,10) = (/ 0.555683e-05_rb, 0.238129e-05_rb, 0.400334e-07_rb /)\n      forrefo(:,11) = (/ 0.569068e-05_rb, 0.196039e-05_rb, 0.374476e-07_rb /)\n      forrefo(:,12) = (/ 0.554154e-05_rb, 0.131724e-05_rb, 0.399720e-07_rb /)\n      forrefo(:,13) = (/ 0.462684e-05_rb, 0.238826e-07_rb, 0.325793e-07_rb /)\n      forrefo(:,14) = (/ 0.808644e-06_rb, 0.105126e-11_rb, 0.148691e-07_rb /)\n      forrefo(:,15) = (/ 0.865024e-12_rb, 0.822434e-12_rb, 0.825756e-12_rb /)\n      forrefo(:,16) = (/ 0.945747e-12_rb, 0.802065e-12_rb, 0.724732e-12_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.637755e-05_rb, 0.403921e-05_rb, 0.255823e-05_rb, 0.162025e-05_rb, 0.102618e-05_rb, &\n        &  0.649930e-06_rb, 0.411632e-06_rb, 0.260707e-06_rb, 0.165118e-06_rb, 0.104577e-06_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.180887e-04_rb, 0.108890e-04_rb, 0.655493e-05_rb, 0.394592e-05_rb, 0.237536e-05_rb, &\n        &  0.142991e-05_rb, 0.860774e-06_rb, 0.518167e-06_rb, 0.311925e-06_rb, 0.187772e-06_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.212261e-04_rb, 0.150697e-04_rb, 0.106989e-04_rb, 0.759581e-05_rb, 0.539274e-05_rb, &\n        &  0.382864e-05_rb, 0.271819e-05_rb, 0.192981e-05_rb, 0.137009e-05_rb, 0.972711e-06_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.132497e-04_rb, 0.118071e-04_rb, 0.105216e-04_rb, 0.937599e-05_rb, 0.835516e-05_rb, &\n        &  0.744547e-05_rb, 0.663482e-05_rb, 0.591243e-05_rb, 0.526870e-05_rb, 0.469506e-05_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.124069e-04_rb, 0.120785e-04_rb, 0.117589e-04_rb, 0.114477e-04_rb, 0.111447e-04_rb, &\n        &  0.108498e-04_rb, 0.105626e-04_rb, 0.102831e-04_rb, 0.100109e-04_rb, 0.974601e-05_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.411994e-04_rb, 0.372560e-04_rb, 0.336901e-04_rb, 0.304654e-04_rb, 0.275494e-04_rb, &\n        &  0.249126e-04_rb, 0.225281e-04_rb, 0.203718e-04_rb, 0.184219e-04_rb, 0.166587e-04_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.537376e-04_rb, 0.501002e-04_rb, 0.467090e-04_rb, 0.435473e-04_rb, 0.405996e-04_rb, &\n        &  0.378515e-04_rb, 0.352893e-04_rb, 0.329006e-04_rb, 0.306736e-04_rb, 0.285974e-04_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.494279e-04_rb, 0.475365e-04_rb, 0.457175e-04_rb, 0.439681e-04_rb, 0.422857e-04_rb, &\n        &  0.406676e-04_rb, 0.391114e-04_rb, 0.376148e-04_rb, 0.361755e-04_rb, 0.347912e-04_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.377444e-04_rb, 0.378199e-04_rb, 0.378956e-04_rb, 0.379715e-04_rb, 0.380475e-04_rb, &\n        &  0.381236e-04_rb, 0.381999e-04_rb, 0.382763e-04_rb, 0.383529e-04_rb, 0.384297e-04_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.245916e-04_rb, 0.267183e-04_rb, 0.290289e-04_rb, 0.315394e-04_rb, 0.342669e-04_rb, &\n        &  0.372304e-04_rb, 0.404501e-04_rb, 0.439483e-04_rb, 0.477490e-04_rb, 0.518784e-04_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.186528e-04_rb, 0.211417e-04_rb, 0.239628e-04_rb, 0.271603e-04_rb, 0.307845e-04_rb, &\n        &  0.348923e-04_rb, 0.395482e-04_rb, 0.448254e-04_rb, 0.508068e-04_rb, 0.575863e-04_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.109896e-04_rb, 0.133794e-04_rb, 0.162890e-04_rb, 0.198312e-04_rb, 0.241438e-04_rb, &\n        &  0.293942e-04_rb, 0.357864e-04_rb, 0.435686e-04_rb, 0.530432e-04_rb, 0.645781e-04_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.183885e-06_rb, 0.391019e-06_rb, 0.831472e-06_rb, 0.176806e-05_rb, 0.375966e-05_rb, &\n        &  0.799463e-05_rb, 0.170000e-04_rb, 0.361492e-04_rb, 0.768686e-04_rb, 0.163455e-03_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.466057e-07_rb, 0.937419e-07_rb, 0.188551e-06_rb, 0.379248e-06_rb, 0.762813e-06_rb, &\n        &  0.153431e-05_rb, 0.308608e-05_rb, 0.620729e-05_rb, 0.124852e-04_rb, 0.251126e-04_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.248961e-06_rb, 0.216780e-06_rb, 0.188758e-06_rb, 0.164358e-06_rb, 0.143113e-06_rb, &\n        &  0.124613e-06_rb, 0.108505e-06_rb, 0.944795e-07_rb, 0.822667e-07_rb, 0.716326e-07_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.252246e-06_rb, 0.220335e-06_rb, 0.192462e-06_rb, 0.168114e-06_rb, 0.146847e-06_rb, &\n        &  0.128270e-06_rb, 0.112043e-06_rb, 0.978688e-07_rb, 0.854878e-07_rb, 0.746731e-07_rb /)\n     \n      end subroutine sw_kgb24\n\n! **************************************************************************\n      subroutine sw_kgb25\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg25, only : kao, sfluxrefo, &\n                            raylo, abso3ao, abso3bo, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 42.6858_rb , 45.7720_rb, 44.9872_rb, 45.9662_rb    , &\n        & 46.5458_rb , 41.6926_rb, 32.2893_rb, 24.0928_rb    , &\n        & 16.7686_rb , 1.86048_rb, 1.54057_rb, 1.23503_rb    , &\n        & 0.915085_rb,0.590099_rb,0.218622_rb, 3.21287e-02_rb /)\n\n! Rayleigh extinction coefficient at v = 2925 cm-1.\n      raylo(:) = (/ &\n        & 9.81132e-07_rb,8.25605e-07_rb,6.71302e-07_rb,5.53556e-07_rb, & \n        & 3.97383e-07_rb,3.68206e-07_rb,4.42379e-07_rb,4.57799e-07_rb, &\n        & 4.22683e-07_rb,3.87113e-07_rb,3.79810e-07_rb,3.63192e-07_rb, &\n        & 3.51921e-07_rb,3.34231e-07_rb,3.34294e-07_rb,3.32673e-07_rb /)\n     \n      abso3ao(:) = (/ &\n        & 2.32664e-02_rb,5.76154e-02_rb,0.125389_rb,0.250158_rb, &\n        & 0.378756_rb   ,0.402196_rb   ,0.352026_rb,0.352036_rb, &\n        & 0.386253_rb   ,0.414598_rb   ,0.420079_rb,0.435471_rb, &\n        & 0.445487_rb   ,0.459549_rb   ,0.452920_rb,0.456838_rb /)\n\n      abso3bo(:) = (/ &     \n        & 1.76917e-02_rb,4.64185e-02_rb,1.03640e-01_rb,0.189469_rb, &\n        & 0.303858_rb   ,0.400248_rb   ,0.447357_rb   ,0.470009_rb, &\n        & 0.498673_rb   ,0.515696_rb   ,0.517053_rb   ,0.517930_rb, &\n        & 0.518345_rb   ,0.524952_rb   ,0.508244_rb   ,0.468981_rb /)\n\n     layreffr = 2\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.16461e-08_rb,0.16782e-08_rb,0.19339e-08_rb,0.17100e-08_rb,0.17045e-08_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.28759e-08_rb,0.29469e-08_rb,0.33789e-08_rb,0.34357e-08_rb,0.28833e-08_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.55148e-08_rb,0.54808e-08_rb,0.54190e-08_rb,0.68260e-08_rb,0.51972e-08_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.95336e-08_rb,0.94552e-08_rb,0.93001e-08_rb,0.90961e-08_rb,0.14451e-07_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.14930e-07_rb,0.14736e-07_rb,0.14432e-07_rb,0.14074e-07_rb,0.24102e-07_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.22770e-07_rb,0.22301e-07_rb,0.21778e-07_rb,0.21194e-07_rb,0.20569e-07_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.34699e-07_rb,0.33951e-07_rb,0.33124e-07_rb,0.32144e-07_rb,0.31220e-07_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.62339e-07_rb,0.60405e-07_rb,0.59548e-07_rb,0.58214e-07_rb,0.56977e-07_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.17411e-06_rb,0.17654e-06_rb,0.18315e-06_rb,0.18100e-06_rb,0.17839e-06_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.23526e-06_rb,0.22729e-06_rb,0.21947e-06_rb,0.21188e-06_rb,0.20454e-06_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.23535e-06_rb,0.22737e-06_rb,0.21956e-06_rb,0.21196e-06_rb,0.20461e-06_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.23539e-06_rb,0.22740e-06_rb,0.21959e-06_rb,0.21199e-06_rb,0.20465e-06_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.23543e-06_rb,0.22744e-06_rb,0.21962e-06_rb,0.21202e-06_rb,0.20467e-06_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.62912e-08_rb,0.61559e-08_rb,0.84640e-08_rb,0.59240e-08_rb,0.58217e-08_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.83749e-08_rb,0.80756e-08_rb,0.11623e-07_rb,0.11272e-07_rb,0.73636e-08_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.13304e-07_rb,0.12795e-07_rb,0.12343e-07_rb,0.21235e-07_rb,0.11577e-07_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.20704e-07_rb,0.19736e-07_rb,0.18900e-07_rb,0.18228e-07_rb,0.31601e-07_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.31149e-07_rb,0.29669e-07_rb,0.28318e-07_rb,0.27101e-07_rb,0.49649e-07_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.45713e-07_rb,0.43519e-07_rb,0.41488e-07_rb,0.39918e-07_rb,0.38291e-07_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.77265e-07_rb,0.73848e-07_rb,0.70437e-07_rb,0.67945e-07_rb,0.66127e-07_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.15754e-06_rb,0.15664e-06_rb,0.15378e-06_rb,0.15027e-06_rb,0.14633e-06_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.16439e-06_rb,0.14678e-06_rb,0.12610e-06_rb,0.11532e-06_rb,0.10591e-06_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.14366e-06_rb,0.13506e-06_rb,0.12583e-06_rb,0.11774e-06_rb,0.11011e-06_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.14521e-06_rb,0.13766e-06_rb,0.13072e-06_rb,0.12218e-06_rb,0.11400e-06_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.14524e-06_rb,0.13769e-06_rb,0.13074e-06_rb,0.12241e-06_rb,0.11552e-06_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.14525e-06_rb,0.13770e-06_rb,0.13075e-06_rb,0.12252e-06_rb,0.11553e-06_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.14060e-07_rb,0.13587e-07_rb,0.24644e-07_rb,0.12716e-07_rb,0.12367e-07_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.17055e-07_rb,0.16577e-07_rb,0.32443e-07_rb,0.31273e-07_rb,0.15381e-07_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.25414e-07_rb,0.24672e-07_rb,0.23874e-07_rb,0.47281e-07_rb,0.22346e-07_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.39536e-07_rb,0.38124e-07_rb,0.36836e-07_rb,0.35587e-07_rb,0.72260e-07_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.59488e-07_rb,0.57630e-07_rb,0.55623e-07_rb,0.53878e-07_rb,0.11230e-06_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.99996e-07_rb,0.96206e-07_rb,0.93184e-07_rb,0.90812e-07_rb,0.89206e-07_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.17678e-06_rb,0.17554e-06_rb,0.17358e-06_rb,0.17091e-06_rb,0.16830e-06_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.18672e-06_rb,0.17850e-06_rb,0.16967e-06_rb,0.16275e-06_rb,0.15875e-06_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.13558e-06_rb,0.13493e-06_rb,0.13633e-06_rb,0.13799e-06_rb,0.13932e-06_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.18883e-06_rb,0.20452e-06_rb,0.22206e-06_rb,0.24347e-06_rb,0.26091e-06_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.21296e-06_rb,0.23580e-06_rb,0.26439e-06_rb,0.30148e-06_rb,0.34942e-06_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.22072e-06_rb,0.25535e-06_rb,0.28661e-06_rb,0.34814e-06_rb,0.39337e-06_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.22515e-06_rb,0.26161e-06_rb,0.30833e-06_rb,0.36527e-06_rb,0.40123e-06_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.32735e-07_rb,0.31345e-07_rb,0.58846e-07_rb,0.28258e-07_rb,0.27022e-07_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.37754e-07_rb,0.36873e-07_rb,0.82776e-07_rb,0.80947e-07_rb,0.35190e-07_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.76368e-07_rb,0.75292e-07_rb,0.74075e-07_rb,0.10820e-06_rb,0.73183e-07_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.16392e-06_rb,0.16130e-06_rb,0.15926e-06_rb,0.15700e-06_rb,0.22041e-06_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.29704e-06_rb,0.28924e-06_rb,0.28301e-06_rb,0.27633e-06_rb,0.42284e-06_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.48466e-06_rb,0.47240e-06_rb,0.46143e-06_rb,0.45012e-06_rb,0.43867e-06_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.71637e-06_rb,0.69847e-06_rb,0.67384e-06_rb,0.65368e-06_rb,0.63375e-06_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.11904e-05_rb,0.11714e-05_rb,0.11524e-05_rb,0.11354e-05_rb,0.11172e-05_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.21976e-05_rb,0.21606e-05_rb,0.21332e-05_rb,0.20944e-05_rb,0.20536e-05_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.21713e-05_rb,0.21144e-05_rb,0.20553e-05_rb,0.19901e-05_rb,0.19286e-05_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.21443e-05_rb,0.20785e-05_rb,0.20048e-05_rb,0.19232e-05_rb,0.18295e-05_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.21363e-05_rb,0.20578e-05_rb,0.19811e-05_rb,0.18729e-05_rb,0.17807e-05_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.21319e-05_rb,0.20513e-05_rb,0.19580e-05_rb,0.18546e-05_rb,0.17725e-05_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.36050e-07_rb,0.36125e-07_rb,0.46253e-07_rb,0.37280e-07_rb,0.37359e-07_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.65102e-07_rb,0.64266e-07_rb,0.68896e-07_rb,0.65925e-07_rb,0.61190e-07_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.12173e-06_rb,0.11889e-06_rb,0.11625e-06_rb,0.17574e-06_rb,0.10921e-06_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.20555e-06_rb,0.19853e-06_rb,0.19068e-06_rb,0.18313e-06_rb,0.30241e-06_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.30900e-06_rb,0.29996e-06_rb,0.28857e-06_rb,0.27772e-06_rb,0.51631e-06_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.43774e-06_rb,0.42465e-06_rb,0.40920e-06_rb,0.39315e-06_rb,0.37901e-06_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.63869e-06_rb,0.61654e-06_rb,0.60324e-06_rb,0.58966e-06_rb,0.57948e-06_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.98362e-06_rb,0.96271e-06_rb,0.94180e-06_rb,0.92206e-06_rb,0.91105e-06_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.12061e-05_rb,0.11895e-05_rb,0.11564e-05_rb,0.11296e-05_rb,0.11110e-05_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.12958e-05_rb,0.12694e-05_rb,0.12425e-05_rb,0.12153e-05_rb,0.11880e-05_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.12962e-05_rb,0.12698e-05_rb,0.12429e-05_rb,0.12156e-05_rb,0.11883e-05_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.12964e-05_rb,0.12701e-05_rb,0.12431e-05_rb,0.12158e-05_rb,0.11885e-05_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.12966e-05_rb,0.12702e-05_rb,0.12433e-05_rb,0.12160e-05_rb,0.11886e-05_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.73925e-07_rb,0.70231e-07_rb,0.21454e-06_rb,0.63477e-07_rb,0.60912e-07_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.67794e-07_rb,0.65807e-07_rb,0.13854e-06_rb,0.13061e-06_rb,0.59361e-07_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.98353e-07_rb,0.95275e-07_rb,0.92426e-07_rb,0.15768e-06_rb,0.87986e-07_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.15855e-06_rb,0.15394e-06_rb,0.14948e-06_rb,0.14655e-06_rb,0.23172e-06_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.27764e-06_rb,0.26941e-06_rb,0.26299e-06_rb,0.25975e-06_rb,0.40526e-06_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.45469e-06_rb,0.44417e-06_rb,0.43276e-06_rb,0.42440e-06_rb,0.41489e-06_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.71540e-06_rb,0.71291e-06_rb,0.70656e-06_rb,0.69823e-06_rb,0.68342e-06_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.79651e-06_rb,0.79807e-06_rb,0.80621e-06_rb,0.80941e-06_rb,0.79835e-06_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.18716e-06_rb,0.16713e-06_rb,0.14725e-06_rb,0.13728e-06_rb,0.11763e-06_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.92638e-07_rb,0.86207e-07_rb,0.80877e-07_rb,0.70432e-07_rb,0.64517e-07_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.13396e-06_rb,0.12820e-06_rb,0.12387e-06_rb,0.10427e-06_rb,0.94091e-07_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.14877e-06_rb,0.14827e-06_rb,0.14350e-06_rb,0.12154e-06_rb,0.10552e-06_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.15437e-06_rb,0.15323e-06_rb,0.14992e-06_rb,0.12715e-06_rb,0.10933e-06_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.72717e-06_rb,0.70656e-06_rb,0.13933e-05_rb,0.66449e-06_rb,0.64269e-06_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.52595e-06_rb,0.50791e-06_rb,0.11171e-05_rb,0.10538e-05_rb,0.45644e-06_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.29919e-06_rb,0.29227e-06_rb,0.28284e-06_rb,0.65215e-06_rb,0.26347e-06_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.27961e-06_rb,0.27579e-06_rb,0.27068e-06_rb,0.26343e-06_rb,0.41265e-06_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.37031e-06_rb,0.36318e-06_rb,0.35475e-06_rb,0.34488e-06_rb,0.53740e-06_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.53195e-06_rb,0.52692e-06_rb,0.52224e-06_rb,0.51934e-06_rb,0.51146e-06_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.83043e-06_rb,0.84552e-06_rb,0.84833e-06_rb,0.82800e-06_rb,0.80930e-06_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.14910e-05_rb,0.15179e-05_rb,0.15248e-05_rb,0.15091e-05_rb,0.14853e-05_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.37340e-05_rb,0.37823e-05_rb,0.38311e-05_rb,0.38453e-05_rb,0.38567e-05_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.86791e-05_rb,0.89697e-05_rb,0.92118e-05_rb,0.93991e-05_rb,0.95564e-05_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.11878e-04_rb,0.12201e-04_rb,0.12588e-04_rb,0.12897e-04_rb,0.13151e-04_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.13192e-04_rb,0.13732e-04_rb,0.14137e-04_rb,0.14465e-04_rb,0.14643e-04_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.13716e-04_rb,0.14229e-04_rb,0.14617e-04_rb,0.14944e-04_rb,0.15182e-04_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.39538e-05_rb,0.38949e-05_rb,0.56188e-05_rb,0.37475e-05_rb,0.36648e-05_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.34231e-05_rb,0.33633e-05_rb,0.51877e-05_rb,0.50048e-05_rb,0.31425e-05_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.28073e-05_rb,0.27497e-05_rb,0.26875e-05_rb,0.44405e-05_rb,0.25492e-05_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.19229e-05_rb,0.18818e-05_rb,0.18382e-05_rb,0.17896e-05_rb,0.33073e-05_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.11453e-05_rb,0.11293e-05_rb,0.11095e-05_rb,0.10866e-05_rb,0.19344e-05_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.14565e-05_rb,0.14517e-05_rb,0.14369e-05_rb,0.14141e-05_rb,0.13944e-05_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.23228e-05_rb,0.22753e-05_rb,0.22395e-05_rb,0.22124e-05_rb,0.21731e-05_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.34877e-05_rb,0.34362e-05_rb,0.33796e-05_rb,0.33389e-05_rb,0.32924e-05_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.63448e-05_rb,0.63701e-05_rb,0.63619e-05_rb,0.62632e-05_rb,0.61645e-05_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.12155e-04_rb,0.11880e-04_rb,0.11762e-04_rb,0.11759e-04_rb,0.11651e-04_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.14093e-04_rb,0.13835e-04_rb,0.13547e-04_rb,0.13205e-04_rb,0.12690e-04_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.14428e-04_rb,0.14056e-04_rb,0.13932e-04_rb,0.13396e-04_rb,0.12885e-04_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.15229e-04_rb,0.14534e-04_rb,0.13849e-04_rb,0.13292e-04_rb,0.12704e-04_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.19250e-04_rb,0.19148e-04_rb,0.21702e-04_rb,0.18906e-04_rb,0.18761e-04_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.18132e-04_rb,0.18040e-04_rb,0.20884e-04_rb,0.20523e-04_rb,0.17656e-04_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.16928e-04_rb,0.16843e-04_rb,0.16742e-04_rb,0.19715e-04_rb,0.16470e-04_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.15526e-04_rb,0.15463e-04_rb,0.15377e-04_rb,0.15268e-04_rb,0.18367e-04_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.13545e-04_rb,0.13511e-04_rb,0.13455e-04_rb,0.13362e-04_rb,0.16722e-04_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.97183e-05_rb,0.97218e-05_rb,0.97084e-05_rb,0.96717e-05_rb,0.96030e-05_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.50307e-05_rb,0.50984e-05_rb,0.51628e-05_rb,0.52093e-05_rb,0.52354e-05_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.45837e-05_rb,0.45939e-05_rb,0.45938e-05_rb,0.45639e-05_rb,0.45109e-05_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.12254e-04_rb,0.12319e-04_rb,0.12397e-04_rb,0.12584e-04_rb,0.12620e-04_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.21545e-04_rb,0.21836e-04_rb,0.21718e-04_rb,0.21511e-04_rb,0.21211e-04_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.20079e-04_rb,0.19539e-04_rb,0.18859e-04_rb,0.18393e-04_rb,0.18181e-04_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.17115e-04_rb,0.16357e-04_rb,0.15410e-04_rb,0.15220e-04_rb,0.15207e-04_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.14935e-04_rb,0.14679e-04_rb,0.14593e-04_rb,0.14448e-04_rb,0.14436e-04_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.53569e-04_rb,0.53042e-04_rb,0.55454e-04_rb,0.52098e-04_rb,0.51678e-04_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.52196e-04_rb,0.51739e-04_rb,0.54777e-04_rb,0.54075e-04_rb,0.50624e-04_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.50339e-04_rb,0.50046e-04_rb,0.49769e-04_rb,0.53168e-04_rb,0.49370e-04_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.48505e-04_rb,0.48316e-04_rb,0.48143e-04_rb,0.47993e-04_rb,0.51621e-04_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.46313e-04_rb,0.46267e-04_rb,0.46119e-04_rb,0.46064e-04_rb,0.50279e-04_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.42662e-04_rb,0.42818e-04_rb,0.42935e-04_rb,0.43007e-04_rb,0.43099e-04_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.35762e-04_rb,0.36149e-04_rb,0.36450e-04_rb,0.36639e-04_rb,0.36887e-04_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.13516e-05_rb,0.18607e-05_rb,0.23061e-05_rb,0.27339e-05_rb,0.36516e-05_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.36432e-05_rb,0.40739e-05_rb,0.43830e-05_rb,0.41136e-05_rb,0.43128e-05_rb /)\n      kao(:,10,10) = (/ &\n        & 0.62049e-05_rb,0.69116e-05_rb,0.73244e-05_rb,0.65087e-05_rb,0.78951e-05_rb /)\n      kao(:,11,10) = (/ &\n        & 0.32156e-05_rb,0.38834e-05_rb,0.41231e-05_rb,0.43386e-05_rb,0.43405e-05_rb /)\n      kao(:,12,10) = (/ &\n        & 0.22152e-05_rb,0.26754e-05_rb,0.31971e-05_rb,0.34911e-05_rb,0.37935e-05_rb /)\n      kao(:,13,10) = (/ &\n        & 0.19792e-05_rb,0.26543e-05_rb,0.31511e-05_rb,0.34597e-05_rb,0.40624e-05_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.75384e-04_rb,0.75103e-04_rb,0.77406e-04_rb,0.74222e-04_rb,0.73734e-04_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.75458e-04_rb,0.75244e-04_rb,0.77778e-04_rb,0.77018e-04_rb,0.73942e-04_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.75023e-04_rb,0.74844e-04_rb,0.74477e-04_rb,0.77271e-04_rb,0.73633e-04_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.73633e-04_rb,0.73539e-04_rb,0.73257e-04_rb,0.72934e-04_rb,0.76232e-04_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.71348e-04_rb,0.71322e-04_rb,0.71227e-04_rb,0.71069e-04_rb,0.75258e-04_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.67784e-04_rb,0.67873e-04_rb,0.67974e-04_rb,0.67924e-04_rb,0.67903e-04_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.61855e-04_rb,0.61922e-04_rb,0.61973e-04_rb,0.62206e-04_rb,0.62496e-04_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.36622e-04_rb,0.37413e-04_rb,0.38740e-04_rb,0.40550e-04_rb,0.41833e-04_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.28544e-05_rb,0.28831e-05_rb,0.31445e-05_rb,0.32900e-05_rb,0.27967e-05_rb /)\n      kao(:,10,11) = (/ &\n        & 0.53755e-05_rb,0.42123e-05_rb,0.51154e-05_rb,0.63481e-05_rb,0.54219e-05_rb /)\n      kao(:,11,11) = (/ &\n        & 0.12605e-05_rb,0.14078e-05_rb,0.19167e-05_rb,0.23729e-05_rb,0.30161e-05_rb /)\n      kao(:,12,11) = (/ &\n        & 0.11370e-05_rb,0.91524e-06_rb,0.11150e-05_rb,0.14746e-05_rb,0.20128e-05_rb /)\n      kao(:,13,11) = (/ &\n        & 0.10511e-05_rb,0.10014e-05_rb,0.11405e-05_rb,0.13852e-05_rb,0.15576e-05_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.11184e-03_rb,0.11117e-03_rb,0.11327e-03_rb,0.10989e-03_rb,0.10910e-03_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.11379e-03_rb,0.11322e-03_rb,0.11555e-03_rb,0.11462e-03_rb,0.11135e-03_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.11508e-03_rb,0.11459e-03_rb,0.11421e-03_rb,0.11671e-03_rb,0.11339e-03_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.11596e-03_rb,0.11563e-03_rb,0.11538e-03_rb,0.11511e-03_rb,0.11770e-03_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.11597e-03_rb,0.11581e-03_rb,0.11569e-03_rb,0.11553e-03_rb,0.11890e-03_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.11443e-03_rb,0.11445e-03_rb,0.11443e-03_rb,0.11443e-03_rb,0.11438e-03_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.10852e-03_rb,0.10888e-03_rb,0.10912e-03_rb,0.10934e-03_rb,0.10942e-03_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.93194e-04_rb,0.94766e-04_rb,0.95355e-04_rb,0.95090e-04_rb,0.94926e-04_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.11836e-05_rb,0.16115e-05_rb,0.12883e-05_rb,0.14202e-05_rb,0.16541e-05_rb /)\n      kao(:,10,12) = (/ &\n        & 0.18748e-05_rb,0.34401e-05_rb,0.39984e-05_rb,0.44576e-05_rb,0.33683e-05_rb /)\n      kao(:,11,12) = (/ &\n        & 0.29890e-06_rb,0.48741e-06_rb,0.66276e-06_rb,0.99698e-06_rb,0.19230e-05_rb /)\n      kao(:,12,12) = (/ &\n        & 0.15034e-06_rb,0.39966e-06_rb,0.56523e-06_rb,0.70494e-06_rb,0.10046e-05_rb /)\n      kao(:,13,12) = (/ &\n        & 0.15016e-06_rb,0.25751e-06_rb,0.48928e-06_rb,0.63534e-06_rb,0.93575e-06_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.17305e-03_rb,0.17234e-03_rb,0.17389e-03_rb,0.17055e-03_rb,0.16974e-03_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.18170e-03_rb,0.18075e-03_rb,0.18265e-03_rb,0.18138e-03_rb,0.17772e-03_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.18990e-03_rb,0.18892e-03_rb,0.18776e-03_rb,0.18950e-03_rb,0.18494e-03_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.19649e-03_rb,0.19552e-03_rb,0.19424e-03_rb,0.19281e-03_rb,0.19464e-03_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.20197e-03_rb,0.20109e-03_rb,0.19993e-03_rb,0.19856e-03_rb,0.20092e-03_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.20595e-03_rb,0.20549e-03_rb,0.20452e-03_rb,0.20331e-03_rb,0.20199e-03_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.20703e-03_rb,0.20710e-03_rb,0.20649e-03_rb,0.20552e-03_rb,0.20428e-03_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.19874e-03_rb,0.19767e-03_rb,0.19696e-03_rb,0.19655e-03_rb,0.19591e-03_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.20434e-04_rb,0.23398e-04_rb,0.27400e-04_rb,0.32409e-04_rb,0.38451e-04_rb /)\n      kao(:,10,13) = (/ &\n        & 0.18617e-05_rb,0.99513e-06_rb,0.10554e-05_rb,0.16516e-05_rb,0.37792e-05_rb /)\n      kao(:,11,13) = (/ &\n        & 0.12517e-06_rb,0.29518e-06_rb,0.77058e-06_rb,0.11660e-05_rb,0.15349e-05_rb /)\n      kao(:,12,13) = (/ &\n        & 0.12734e-06_rb,0.36524e-06_rb,0.66699e-06_rb,0.10362e-05_rb,0.14158e-05_rb /)\n      kao(:,13,13) = (/ &\n        & 0.12431e-06_rb,0.39389e-06_rb,0.67331e-06_rb,0.10292e-05_rb,0.14448e-05_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.29365e-03_rb,0.29046e-03_rb,0.29008e-03_rb,0.28509e-03_rb,0.28286e-03_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.31990e-03_rb,0.31668e-03_rb,0.31617e-03_rb,0.31332e-03_rb,0.30885e-03_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.34787e-03_rb,0.34432e-03_rb,0.34112e-03_rb,0.34052e-03_rb,0.33589e-03_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.37401e-03_rb,0.37027e-03_rb,0.36696e-03_rb,0.36394e-03_rb,0.36355e-03_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.39840e-03_rb,0.39446e-03_rb,0.39082e-03_rb,0.38763e-03_rb,0.38760e-03_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.42165e-03_rb,0.41729e-03_rb,0.41335e-03_rb,0.41006e-03_rb,0.40721e-03_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.44257e-03_rb,0.43782e-03_rb,0.43364e-03_rb,0.43014e-03_rb,0.42736e-03_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.45299e-03_rb,0.44953e-03_rb,0.44586e-03_rb,0.44260e-03_rb,0.44006e-03_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.40190e-03_rb,0.39751e-03_rb,0.39238e-03_rb,0.38812e-03_rb,0.38612e-03_rb /)\n      kao(:,10,14) = (/ &\n        & 0.64278e-05_rb,0.18248e-05_rb,0.16996e-05_rb,0.31086e-06_rb,0.16836e-06_rb /)\n      kao(:,11,14) = (/ &\n        & 0.14350e-05_rb,0.94778e-06_rb,0.41349e-06_rb,0.20817e-06_rb,0.20238e-06_rb /)\n      kao(:,12,14) = (/ &\n        & 0.16805e-05_rb,0.15323e-05_rb,0.62348e-06_rb,0.99743e-07_rb,0.12977e-06_rb /)\n      kao(:,13,14) = (/ &\n        & 0.16858e-05_rb,0.17103e-05_rb,0.80574e-06_rb,0.15825e-06_rb,0.15032e-06_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.52181e-03_rb,0.51578e-03_rb,0.51251e-03_rb,0.50356e-03_rb,0.49731e-03_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.59491e-03_rb,0.58822e-03_rb,0.58413e-03_rb,0.57646e-03_rb,0.56692e-03_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.67653e-03_rb,0.66881e-03_rb,0.66126e-03_rb,0.65540e-03_rb,0.64461e-03_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.76388e-03_rb,0.75456e-03_rb,0.74556e-03_rb,0.73649e-03_rb,0.72840e-03_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.85507e-03_rb,0.84417e-03_rb,0.83378e-03_rb,0.82338e-03_rb,0.81349e-03_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.95034e-03_rb,0.93798e-03_rb,0.92553e-03_rb,0.91287e-03_rb,0.89957e-03_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.10496e-02_rb,0.10352e-02_rb,0.10206e-02_rb,0.10054e-02_rb,0.98958e-03_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.11507e-02_rb,0.11337e-02_rb,0.11169e-02_rb,0.10991e-02_rb,0.10806e-02_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.12408e-02_rb,0.12207e-02_rb,0.11996e-02_rb,0.11773e-02_rb,0.11531e-02_rb /)\n      kao(:,10,15) = (/ &\n        & 0.12042e-03_rb,0.11501e-03_rb,0.11424e-03_rb,0.11450e-03_rb,0.13219e-03_rb /)\n      kao(:,11,15) = (/ &\n        & 0.68914e-06_rb,0.83960e-06_rb,0.74591e-06_rb,0.18660e-05_rb,0.32503e-05_rb /)\n      kao(:,12,15) = (/ &\n        & 0.35963e-07_rb,0.46256e-06_rb,0.56223e-06_rb,0.98816e-06_rb,0.92366e-06_rb /)\n      kao(:,13,15) = (/ &\n        & 0.36605e-07_rb,0.56591e-06_rb,0.84008e-06_rb,0.86042e-06_rb,0.68452e-06_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.76517e-03_rb,0.75944e-03_rb,0.76010e-03_rb,0.76100e-03_rb,0.76498e-03_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.92375e-03_rb,0.91357e-03_rb,0.90997e-03_rb,0.90997e-03_rb,0.90993e-03_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.11142e-02_rb,0.10974e-02_rb,0.10835e-02_rb,0.10789e-02_rb,0.10748e-02_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.13278e-02_rb,0.13025e-02_rb,0.12802e-02_rb,0.12631e-02_rb,0.12539e-02_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.15712e-02_rb,0.15343e-02_rb,0.15017e-02_rb,0.14713e-02_rb,0.14497e-02_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.18525e-02_rb,0.17982e-02_rb,0.17525e-02_rb,0.17101e-02_rb,0.16714e-02_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.21731e-02_rb,0.20986e-02_rb,0.20340e-02_rb,0.19757e-02_rb,0.19210e-02_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.25325e-02_rb,0.24346e-02_rb,0.23473e-02_rb,0.22687e-02_rb,0.21950e-02_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.29269e-02_rb,0.28006e-02_rb,0.26863e-02_rb,0.25805e-02_rb,0.24878e-02_rb /)\n      kao(:,10,16) = (/ &\n        & 0.29442e-02_rb,0.27008e-02_rb,0.23913e-02_rb,0.21437e-02_rb,0.18865e-02_rb /)\n      kao(:,11,16) = (/ &\n        & 0.23220e-05_rb,0.22310e-04_rb,0.48349e-04_rb,0.67183e-04_rb,0.88908e-04_rb /)\n      kao(:,12,16) = (/ &\n        & 0.22857e-05_rb,0.11848e-04_rb,0.42066e-04_rb,0.67613e-04_rb,0.86033e-04_rb /)\n      kao(:,13,16) = (/ &\n        & 0.22823e-05_rb,0.69105e-05_rb,0.36212e-04_rb,0.66247e-04_rb,0.85488e-04_rb /)\n  \n      end subroutine sw_kgb25\n\n! **************************************************************************\n      subroutine sw_kgb26\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg26, only : sfluxrefo, raylo\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n!         &     129.462_rb, 15*0._rb /)\n        &   29.0079_rb,  28.4088_rb,     20.3099_rb,  13.0283_rb &\n        &,  11.8619_rb,  9.95840_rb,     6.68696_rb,  5.38987_rb &\n        &,  3.49829_rb, 0.407693_rb,    0.299027_rb, 0.236827_rb &\n        &, 0.188502_rb, 0.163489_rb, 4.64335e-02_rb, 2.72662e-03_rb /)\n\n! Rayleigh extinction coefficient at all v \n      raylo(:) = (/ &\n        &  1.21263e-06_rb,1.43428e-06_rb,1.67677e-06_rb,1.93255e-06_rb &\n        &, 2.19177e-06_rb,2.44195e-06_rb,2.66926e-06_rb,2.85990e-06_rb &\n        &, 3.00380e-06_rb,3.06996e-06_rb,3.08184e-06_rb,3.09172e-06_rb &\n        &, 3.09938e-06_rb,3.10456e-06_rb,3.10727e-06_rb,3.10818e-06_rb /)\n\n      end subroutine sw_kgb26\n\n! **************************************************************************\n      subroutine sw_kgb27\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, &\n                            scalekur, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n! The following values were obtained using the \"low resolution\"\n! version of the Kurucz solar source function.  For unknown reasons,\n! the total irradiance in this band differs from the corresponding\n! total in the \"high-resolution\" version of the Kurucz function.\n! Therefore, below these values are scaled by the factor SCALEKUR.\n      sfluxrefo(:) = (/ &\n        & 14.0526_rb    , 11.4794_rb    , 8.72590_rb    , 5.56966_rb    , &\n        & 3.80927_rb    , 1.57690_rb    , 1.15099_rb    , 1.10012_rb    , &\n        & 0.658212_rb   , 5.86859e-02_rb, 5.56186e-02_rb, 4.68040e-02_rb, &\n        & 3.64897e-02_rb, 3.58053e-02_rb, 1.38130e-02_rb, 1.90193e-03_rb /)\n\n! Rayleigh extinction coefficient at v = 2925 cm-1.\n      raylo(:) = (/ &\n        & 3.44534e-06_rb,4.14480e-06_rb,4.95069e-06_rb,5.81204e-06_rb, &\n        & 6.69748e-06_rb,7.56488e-06_rb,8.36344e-06_rb,9.04135e-06_rb, &\n        & 9.58324e-06_rb,9.81542e-06_rb,9.75119e-06_rb,9.74533e-06_rb, &\n        & 9.74139e-06_rb,9.73525e-06_rb,9.73577e-06_rb,9.73618e-06_rb /)\n\n      scalekur = 50.15_rb/48.37_rb\n\n      layreffr = 32\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.22907e+00_rb,0.25625e+00_rb,0.28779e+00_rb,0.32376e+00_rb,0.36426e+00_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.21913e+00_rb,0.24445e+00_rb,0.27422e+00_rb,0.30832e+00_rb,0.34694e+00_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.20602e+00_rb,0.22864e+00_rb,0.25574e+00_rb,0.28721e+00_rb,0.32310e+00_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.19379e+00_rb,0.21352e+00_rb,0.23771e+00_rb,0.26643e+00_rb,0.29940e+00_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.18369e+00_rb,0.20061e+00_rb,0.22200e+00_rb,0.24786e+00_rb,0.27816e+00_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.17517e+00_rb,0.18920e+00_rb,0.20771e+00_rb,0.23069e+00_rb,0.25817e+00_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.16888e+00_rb,0.17988e+00_rb,0.19559e+00_rb,0.21577e+00_rb,0.24042e+00_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.16442e+00_rb,0.17273e+00_rb,0.18565e+00_rb,0.20315e+00_rb,0.22512e+00_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.16159e+00_rb,0.16738e+00_rb,0.17752e+00_rb,0.19242e+00_rb,0.21179e+00_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.16037e+00_rb,0.16402e+00_rb,0.17204e+00_rb,0.18463e+00_rb,0.20183e+00_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.20716e+01_rb,0.21925e+01_rb,0.23327e+01_rb,0.24921e+01_rb,0.26726e+01_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.20272e+01_rb,0.21401e+01_rb,0.22723e+01_rb,0.24238e+01_rb,0.25950e+01_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.19684e+01_rb,0.20697e+01_rb,0.21902e+01_rb,0.23301e+01_rb,0.24892e+01_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.19133e+01_rb,0.20021e+01_rb,0.21101e+01_rb,0.22375e+01_rb,0.23842e+01_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.18673e+01_rb,0.19441e+01_rb,0.20400e+01_rb,0.21553e+01_rb,0.22898e+01_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.18277e+01_rb,0.18925e+01_rb,0.19760e+01_rb,0.20788e+01_rb,0.22009e+01_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.17963e+01_rb,0.18497e+01_rb,0.19214e+01_rb,0.20121e+01_rb,0.21222e+01_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.17749e+01_rb,0.18156e+01_rb,0.18763e+01_rb,0.19555e+01_rb,0.20540e+01_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.17600e+01_rb,0.17885e+01_rb,0.18388e+01_rb,0.19071e+01_rb,0.19943e+01_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.17526e+01_rb,0.17729e+01_rb,0.18121e+01_rb,0.18716e+01_rb,0.19496e+01_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.12189e+02_rb,0.12619e+02_rb,0.13110e+02_rb,0.13663e+02_rb,0.14275e+02_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.12030e+02_rb,0.12434e+02_rb,0.12899e+02_rb,0.13427e+02_rb,0.14015e+02_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.11816e+02_rb,0.12183e+02_rb,0.12611e+02_rb,0.13101e+02_rb,0.13653e+02_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.11611e+02_rb,0.11938e+02_rb,0.12327e+02_rb,0.12777e+02_rb,0.13289e+02_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.11437e+02_rb,0.11726e+02_rb,0.12076e+02_rb,0.12488e+02_rb,0.12961e+02_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.11284e+02_rb,0.11533e+02_rb,0.11843e+02_rb,0.12215e+02_rb,0.12649e+02_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.11160e+02_rb,0.11370e+02_rb,0.11641e+02_rb,0.11975e+02_rb,0.12370e+02_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.11063e+02_rb,0.11237e+02_rb,0.11471e+02_rb,0.11768e+02_rb,0.12126e+02_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.10990e+02_rb,0.11129e+02_rb,0.11327e+02_rb,0.11588e+02_rb,0.11910e+02_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.10945e+02_rb,0.11053e+02_rb,0.11223e+02_rb,0.11454e+02_rb,0.11746e+02_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.55057e+02_rb,0.56143e+02_rb,0.57364e+02_rb,0.58719e+02_rb,0.60208e+02_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.54647e+02_rb,0.55677e+02_rb,0.56842e+02_rb,0.58142e+02_rb,0.59575e+02_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.54090e+02_rb,0.55039e+02_rb,0.56123e+02_rb,0.57342e+02_rb,0.58694e+02_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.53548e+02_rb,0.54410e+02_rb,0.55408e+02_rb,0.56539e+02_rb,0.57805e+02_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.53074e+02_rb,0.53853e+02_rb,0.54766e+02_rb,0.55813e+02_rb,0.56995e+02_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.52644e+02_rb,0.53336e+02_rb,0.54162e+02_rb,0.55123e+02_rb,0.56218e+02_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.52279e+02_rb,0.52887e+02_rb,0.53629e+02_rb,0.54505e+02_rb,0.55516e+02_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.51979e+02_rb,0.52507e+02_rb,0.53168e+02_rb,0.53965e+02_rb,0.54895e+02_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.51734e+02_rb,0.52183e+02_rb,0.52767e+02_rb,0.53485e+02_rb,0.54337e+02_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.51565e+02_rb,0.51948e+02_rb,0.52467e+02_rb,0.53120e+02_rb,0.53907e+02_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.17794e+03_rb,0.17973e+03_rb,0.18164e+03_rb,0.18366e+03_rb,0.18581e+03_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.17724e+03_rb,0.17898e+03_rb,0.18083e+03_rb,0.18281e+03_rb,0.18491e+03_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.17624e+03_rb,0.17791e+03_rb,0.17970e+03_rb,0.18160e+03_rb,0.18363e+03_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.17523e+03_rb,0.17682e+03_rb,0.17853e+03_rb,0.18036e+03_rb,0.18231e+03_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.17429e+03_rb,0.17581e+03_rb,0.17744e+03_rb,0.17920e+03_rb,0.18107e+03_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.17338e+03_rb,0.17482e+03_rb,0.17638e+03_rb,0.17805e+03_rb,0.17985e+03_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.17253e+03_rb,0.17390e+03_rb,0.17539e+03_rb,0.17699e+03_rb,0.17871e+03_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.17177e+03_rb,0.17307e+03_rb,0.17448e+03_rb,0.17601e+03_rb,0.17767e+03_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.17107e+03_rb,0.17230e+03_rb,0.17364e+03_rb,0.17511e+03_rb,0.17669e+03_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.17052e+03_rb,0.17169e+03_rb,0.17298e+03_rb,0.17438e+03_rb,0.17591e+03_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.37680e+05_rb,0.36801e+05_rb,0.36011e+05_rb,0.35298e+05_rb,0.34715e+05_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.39286e+03_rb,0.39463e+03_rb,0.39616e+03_rb,0.39748e+03_rb,0.39858e+03_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.39169e+03_rb,0.39359e+03_rb,0.39526e+03_rb,0.39671e+03_rb,0.39794e+03_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.39034e+03_rb,0.39239e+03_rb,0.39421e+03_rb,0.39580e+03_rb,0.39717e+03_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.38895e+03_rb,0.39113e+03_rb,0.39309e+03_rb,0.39483e+03_rb,0.39634e+03_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.38742e+03_rb,0.38975e+03_rb,0.39185e+03_rb,0.39373e+03_rb,0.39539e+03_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.38585e+03_rb,0.38832e+03_rb,0.39056e+03_rb,0.39258e+03_rb,0.39438e+03_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.38426e+03_rb,0.38686e+03_rb,0.38924e+03_rb,0.39140e+03_rb,0.39333e+03_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.38264e+03_rb,0.38538e+03_rb,0.38789e+03_rb,0.39017e+03_rb,0.39223e+03_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.38123e+03_rb,0.38408e+03_rb,0.38670e+03_rb,0.38909e+03_rb,0.39126e+03_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.18202e+07_rb,0.17771e+07_rb,0.17382e+07_rb,0.17034e+07_rb,0.16716e+07_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.63027e+03_rb,0.63194e+03_rb,0.63388e+03_rb,0.63607e+03_rb,0.63849e+03_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.62938e+03_rb,0.63090e+03_rb,0.63268e+03_rb,0.63472e+03_rb,0.63701e+03_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.62853e+03_rb,0.62989e+03_rb,0.63150e+03_rb,0.63337e+03_rb,0.63550e+03_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.62781e+03_rb,0.62901e+03_rb,0.63046e+03_rb,0.63217e+03_rb,0.63413e+03_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.62717e+03_rb,0.62821e+03_rb,0.62950e+03_rb,0.63104e+03_rb,0.63283e+03_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.62666e+03_rb,0.62753e+03_rb,0.62867e+03_rb,0.63005e+03_rb,0.63168e+03_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.62627e+03_rb,0.62698e+03_rb,0.62795e+03_rb,0.62919e+03_rb,0.63067e+03_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.62600e+03_rb,0.62653e+03_rb,0.62735e+03_rb,0.62844e+03_rb,0.62978e+03_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.62583e+03_rb,0.62624e+03_rb,0.62692e+03_rb,0.62788e+03_rb,0.62910e+03_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.55488e+07_rb,0.54180e+07_rb,0.53005e+07_rb,0.51943e+07_rb,0.50978e+07_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.82143e+03_rb,0.82232e+03_rb,0.82327e+03_rb,0.82429e+03_rb,0.82541e+03_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.82092e+03_rb,0.82177e+03_rb,0.82269e+03_rb,0.82366e+03_rb,0.82472e+03_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.82041e+03_rb,0.82121e+03_rb,0.82209e+03_rb,0.82303e+03_rb,0.82402e+03_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.81996e+03_rb,0.82070e+03_rb,0.82152e+03_rb,0.82243e+03_rb,0.82339e+03_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.81952e+03_rb,0.82021e+03_rb,0.82098e+03_rb,0.82184e+03_rb,0.82277e+03_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.81917e+03_rb,0.81977e+03_rb,0.82048e+03_rb,0.82129e+03_rb,0.82218e+03_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.81881e+03_rb,0.81938e+03_rb,0.82004e+03_rb,0.82080e+03_rb,0.82163e+03_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.81846e+03_rb,0.81906e+03_rb,0.81965e+03_rb,0.82035e+03_rb,0.82114e+03_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.82000e+03_rb,0.82074e+03_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81934e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81935e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.10204e+08_rb,0.99477e+07_rb,0.97209e+07_rb,0.95103e+07_rb,0.92960e+07_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.95102e+03_rb,0.95144e+03_rb,0.95133e+03_rb,0.95066e+03_rb,0.94964e+03_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.95048e+03_rb,0.95118e+03_rb,0.95136e+03_rb,0.95103e+03_rb,0.95020e+03_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.94969e+03_rb,0.95077e+03_rb,0.95126e+03_rb,0.95124e+03_rb,0.95074e+03_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.94872e+03_rb,0.95015e+03_rb,0.95101e+03_rb,0.95129e+03_rb,0.95105e+03_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.94752e+03_rb,0.94929e+03_rb,0.95052e+03_rb,0.95116e+03_rb,0.95126e+03_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.94612e+03_rb,0.94825e+03_rb,0.94981e+03_rb,0.95083e+03_rb,0.95126e+03_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.94461e+03_rb,0.94704e+03_rb,0.94894e+03_rb,0.95029e+03_rb,0.95107e+03_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.94291e+03_rb,0.94567e+03_rb,0.94791e+03_rb,0.94957e+03_rb,0.95069e+03_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.94135e+03_rb,0.94441e+03_rb,0.94689e+03_rb,0.94884e+03_rb,0.95022e+03_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.94133e+03_rb,0.94440e+03_rb,0.94688e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.94133e+03_rb,0.94438e+03_rb,0.94688e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.94133e+03_rb,0.94438e+03_rb,0.94687e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.12764e+08_rb,0.12408e+08_rb,0.12012e+08_rb,0.11438e+08_rb,0.11217e+08_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.99589e+03_rb,0.99493e+03_rb,0.99263e+03_rb,0.98974e+03_rb,0.98742e+03_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.99532e+03_rb,0.99571e+03_rb,0.99447e+03_rb,0.99207e+03_rb,0.98779e+03_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.99446e+03_rb,0.99559e+03_rb,0.99536e+03_rb,0.99386e+03_rb,0.99088e+03_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.99288e+03_rb,0.99493e+03_rb,0.99558e+03_rb,0.99487e+03_rb,0.99336e+03_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.99069e+03_rb,0.99366e+03_rb,0.99519e+03_rb,0.99534e+03_rb,0.99428e+03_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.98811e+03_rb,0.99191e+03_rb,0.99430e+03_rb,0.99510e+03_rb,0.99504e+03_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.98531e+03_rb,0.98996e+03_rb,0.99300e+03_rb,0.99479e+03_rb,0.99513e+03_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.98264e+03_rb,0.98737e+03_rb,0.99138e+03_rb,0.99390e+03_rb,0.99503e+03_rb /)\n      kao(:,10,10) = (/ &\n        & 0.98010e+03_rb,0.98517e+03_rb,0.98974e+03_rb,0.99281e+03_rb,0.99470e+03_rb /)\n      kao(:,11,10) = (/ &\n        & 0.98010e+03_rb,0.98509e+03_rb,0.98985e+03_rb,0.99280e+03_rb,0.99468e+03_rb /)\n      kao(:,12,10) = (/ &\n        & 0.98035e+03_rb,0.98524e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)\n      kao(:,13,10) = (/ &\n        & 0.98012e+03_rb,0.98526e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.12266e+08_rb,0.12000e+08_rb,0.11724e+08_rb,0.11828e+08_rb,0.11523e+08_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.10001e+04_rb,0.99984e+03_rb,0.99745e+03_rb,0.99535e+03_rb,0.98599e+03_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.99963e+03_rb,0.99927e+03_rb,0.99848e+03_rb,0.99596e+03_rb,0.99390e+03_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.99904e+03_rb,0.99942e+03_rb,0.99870e+03_rb,0.99747e+03_rb,0.99542e+03_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.99826e+03_rb,0.99927e+03_rb,0.99919e+03_rb,0.99821e+03_rb,0.99627e+03_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.99730e+03_rb,0.99882e+03_rb,0.99938e+03_rb,0.99902e+03_rb,0.99764e+03_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.99551e+03_rb,0.99810e+03_rb,0.99919e+03_rb,0.99961e+03_rb,0.99863e+03_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.99324e+03_rb,0.99688e+03_rb,0.99871e+03_rb,0.99940e+03_rb,0.99942e+03_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.99058e+03_rb,0.99489e+03_rb,0.99773e+03_rb,0.99912e+03_rb,0.99954e+03_rb /)\n      kao(:,10,11) = (/ &\n        & 0.98802e+03_rb,0.99297e+03_rb,0.99656e+03_rb,0.99861e+03_rb,0.99937e+03_rb /)\n      kao(:,11,11) = (/ &\n        & 0.98800e+03_rb,0.99310e+03_rb,0.99655e+03_rb,0.99860e+03_rb,0.99936e+03_rb /)\n      kao(:,12,11) = (/ &\n        & 0.98771e+03_rb,0.99296e+03_rb,0.99669e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)\n      kao(:,13,11) = (/ &\n        & 0.98800e+03_rb,0.99296e+03_rb,0.99655e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.12503e+08_rb,0.11946e+08_rb,0.11557e+08_rb,0.11503e+08_rb,0.11901e+08_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.10015e+04_rb,0.10004e+04_rb,0.99932e+03_rb,0.99373e+03_rb,0.98591e+03_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.10024e+04_rb,0.10021e+04_rb,0.10003e+04_rb,0.99817e+03_rb,0.99146e+03_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.10022e+04_rb,0.10027e+04_rb,0.10021e+04_rb,0.99956e+03_rb,0.99610e+03_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.10024e+04_rb,0.10024e+04_rb,0.10028e+04_rb,0.10015e+04_rb,0.99826e+03_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.10017e+04_rb,0.10025e+04_rb,0.10025e+04_rb,0.10023e+04_rb,0.10008e+04_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.10005e+04_rb,0.10020e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10019e+04_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.10000e+04_rb,0.10010e+04_rb,0.10024e+04_rb,0.10029e+04_rb,0.10023e+04_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.99906e+03_rb,0.10004e+04_rb,0.10018e+04_rb,0.10029e+04_rb,0.10028e+04_rb /)\n      kao(:,10,12) = (/ &\n        & 0.99791e+03_rb,0.99989e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10031e+04_rb /)\n      kao(:,11,12) = (/ &\n        & 0.99769e+03_rb,0.99967e+03_rb,0.10008e+04_rb,0.10024e+04_rb,0.10029e+04_rb /)\n      kao(:,12,12) = (/ &\n        & 0.99787e+03_rb,0.99985e+03_rb,0.10008e+04_rb,0.10025e+04_rb,0.10029e+04_rb /)\n      kao(:,13,12) = (/ &\n        & 0.99768e+03_rb,0.99984e+03_rb,0.10012e+04_rb,0.10026e+04_rb,0.10029e+04_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.12359e+08_rb,0.12469e+08_rb,0.12868e+08_rb,0.12776e+08_rb,0.12590e+08_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.10045e+04_rb,0.10033e+04_rb,0.99840e+03_rb,0.99184e+03_rb,0.98861e+03_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.10050e+04_rb,0.10041e+04_rb,0.10024e+04_rb,0.99701e+03_rb,0.99083e+03_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.10053e+04_rb,0.10043e+04_rb,0.10035e+04_rb,0.10017e+04_rb,0.99538e+03_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.10048e+04_rb,0.10056e+04_rb,0.10038e+04_rb,0.10026e+04_rb,0.10008e+04_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.10042e+04_rb,0.10054e+04_rb,0.10054e+04_rb,0.10039e+04_rb,0.10017e+04_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.10029e+04_rb,0.10046e+04_rb,0.10055e+04_rb,0.10046e+04_rb,0.10033e+04_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.10002e+04_rb,0.10039e+04_rb,0.10051e+04_rb,0.10054e+04_rb,0.10046e+04_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.99825e+03_rb,0.10019e+04_rb,0.10043e+04_rb,0.10051e+04_rb,0.10052e+04_rb /)\n      kao(:,10,13) = (/ &\n        & 0.99595e+03_rb,0.99983e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10051e+04_rb /)\n      kao(:,11,13) = (/ &\n        & 0.99621e+03_rb,0.99979e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10054e+04_rb /)\n      kao(:,12,13) = (/ &\n        & 0.99597e+03_rb,0.99979e+03_rb,0.10031e+04_rb,0.10047e+04_rb,0.10054e+04_rb /)\n      kao(:,13,13) = (/ &\n        & 0.99623e+03_rb,0.99978e+03_rb,0.10031e+04_rb,0.10047e+04_rb,0.10054e+04_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.13636e+08_rb,0.13818e+08_rb,0.13518e+08_rb,0.13266e+08_rb,0.13048e+08_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.10049e+04_rb,0.99946e+03_rb,0.99774e+03_rb,0.99774e+03_rb,0.99771e+03_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.10051e+04_rb,0.10068e+04_rb,0.10007e+04_rb,0.99775e+03_rb,0.99778e+03_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.10071e+04_rb,0.10061e+04_rb,0.10050e+04_rb,0.10005e+04_rb,0.99776e+03_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.10067e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10044e+04_rb,0.99972e+03_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.10049e+04_rb,0.10070e+04_rb,0.10074e+04_rb,0.10057e+04_rb,0.10037e+04_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.10033e+04_rb,0.10063e+04_rb,0.10072e+04_rb,0.10067e+04_rb,0.10050e+04_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.10025e+04_rb,0.10048e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.99880e+03_rb,0.10031e+04_rb,0.10060e+04_rb,0.10071e+04_rb,0.10069e+04_rb /)\n      kao(:,10,14) = (/ &\n        & 0.99610e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kao(:,11,14) = (/ &\n        & 0.99601e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kao(:,12,14) = (/ &\n        & 0.99598e+03_rb,0.10023e+04_rb,0.10051e+04_rb,0.10067e+04_rb,0.10076e+04_rb /)\n      kao(:,13,14) = (/ &\n        & 0.99596e+03_rb,0.10027e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.14285e+08_rb,0.13947e+08_rb,0.13644e+08_rb,0.13317e+08_rb,0.13015e+08_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.99932e+03_rb,0.10011e+04_rb,0.10018e+04_rb,0.10007e+04_rb,0.99706e+03_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.10097e+04_rb,0.99743e+03_rb,0.10015e+04_rb,0.10018e+04_rb,0.99920e+03_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.10099e+04_rb,0.10076e+04_rb,0.10030e+04_rb,0.10017e+04_rb,0.10013e+04_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.10075e+04_rb,0.10079e+04_rb,0.10073e+04_rb,0.10035e+04_rb,0.10018e+04_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.10068e+04_rb,0.10088e+04_rb,0.10068e+04_rb,0.10090e+04_rb,0.10033e+04_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.10057e+04_rb,0.10073e+04_rb,0.10090e+04_rb,0.10087e+04_rb,0.10062e+04_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.10010e+04_rb,0.10054e+04_rb,0.10076e+04_rb,0.10079e+04_rb,0.10072e+04_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.99853e+03_rb,0.10054e+04_rb,0.10071e+04_rb,0.10079e+04_rb,0.10078e+04_rb /)\n      kao(:,10,15) = (/ &\n        & 0.99742e+03_rb,0.10007e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kao(:,11,15) = (/ &\n        & 0.99635e+03_rb,0.10006e+04_rb,0.10064e+04_rb,0.10087e+04_rb,0.10090e+04_rb /)\n      kao(:,12,15) = (/ &\n        & 0.99635e+03_rb,0.10006e+04_rb,0.10064e+04_rb,0.10087e+04_rb,0.10069e+04_rb /)\n      kao(:,13,15) = (/ &\n        & 0.99635e+03_rb,0.99960e+03_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.14326e+08_rb,0.13988e+08_rb,0.13684e+08_rb,0.13409e+08_rb,0.13021e+08_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.10008e+04_rb,0.10027e+04_rb,0.10036e+04_rb,0.10037e+04_rb,0.99673e+03_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.99286e+03_rb,0.10016e+04_rb,0.10031e+04_rb,0.10038e+04_rb,0.10035e+04_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.99278e+03_rb,0.10078e+04_rb,0.10023e+04_rb,0.10035e+04_rb,0.10038e+04_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.10074e+04_rb,0.10079e+04_rb,0.10075e+04_rb,0.10028e+04_rb,0.10037e+04_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.10069e+04_rb,0.10002e+04_rb,0.10079e+04_rb,0.99212e+03_rb,0.10032e+04_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.10060e+04_rb,0.10072e+04_rb,0.10004e+04_rb,0.10003e+04_rb,0.10063e+04_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.10009e+04_rb,0.10066e+04_rb,0.10075e+04_rb,0.10080e+04_rb,0.10074e+04_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.99860e+03_rb,0.10057e+04_rb,0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb /)\n      kao(:,10,16) = (/ &\n        & 0.98908e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)\n      kao(:,11,16) = (/ &\n        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10000e+04_rb,0.10005e+04_rb /)\n      kao(:,12,16) = (/ &\n        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10000e+04_rb,0.10080e+04_rb /)\n      kao(:,13,16) = (/ &\n        & 0.99644e+03_rb,0.10006e+04_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n  \n      kbo(:,13, 1) = (/ &\n        & 0.16036e+00_rb,0.16399e+00_rb,0.17198e+00_rb,0.18455e+00_rb,0.20173e+00_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.16050e+00_rb,0.16454e+00_rb,0.17292e+00_rb,0.18592e+00_rb,0.20351e+00_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.16071e+00_rb,0.16519e+00_rb,0.17400e+00_rb,0.18750e+00_rb,0.20554e+00_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.16098e+00_rb,0.16593e+00_rb,0.17517e+00_rb,0.18921e+00_rb,0.20772e+00_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.16129e+00_rb,0.16670e+00_rb,0.17642e+00_rb,0.19093e+00_rb,0.20991e+00_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.16164e+00_rb,0.16750e+00_rb,0.17771e+00_rb,0.19267e+00_rb,0.21211e+00_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.16203e+00_rb,0.16832e+00_rb,0.17901e+00_rb,0.19443e+00_rb,0.21431e+00_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.16255e+00_rb,0.16934e+00_rb,0.18059e+00_rb,0.19653e+00_rb,0.21694e+00_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.16313e+00_rb,0.17044e+00_rb,0.18225e+00_rb,0.19873e+00_rb,0.21967e+00_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.16416e+00_rb,0.17227e+00_rb,0.18498e+00_rb,0.20229e+00_rb,0.22406e+00_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.16539e+00_rb,0.17431e+00_rb,0.18796e+00_rb,0.20612e+00_rb,0.22875e+00_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.16684e+00_rb,0.17666e+00_rb,0.19125e+00_rb,0.21032e+00_rb,0.23385e+00_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.16856e+00_rb,0.17939e+00_rb,0.19493e+00_rb,0.21495e+00_rb,0.23943e+00_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.17067e+00_rb,0.18260e+00_rb,0.19919e+00_rb,0.22024e+00_rb,0.24578e+00_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.17306e+00_rb,0.18613e+00_rb,0.20377e+00_rb,0.22588e+00_rb,0.25248e+00_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.17570e+00_rb,0.18994e+00_rb,0.20865e+00_rb,0.23184e+00_rb,0.25952e+00_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.17882e+00_rb,0.19417e+00_rb,0.21399e+00_rb,0.23828e+00_rb,0.26708e+00_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.18223e+00_rb,0.19870e+00_rb,0.21964e+00_rb,0.24505e+00_rb,0.27492e+00_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.18602e+00_rb,0.20364e+00_rb,0.22572e+00_rb,0.25229e+00_rb,0.28325e+00_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.19018e+00_rb,0.20895e+00_rb,0.23219e+00_rb,0.25994e+00_rb,0.29200e+00_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.19466e+00_rb,0.21461e+00_rb,0.23902e+00_rb,0.26795e+00_rb,0.30114e+00_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.19880e+00_rb,0.21976e+00_rb,0.24520e+00_rb,0.27509e+00_rb,0.30932e+00_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.20129e+00_rb,0.22283e+00_rb,0.24886e+00_rb,0.27931e+00_rb,0.31412e+00_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.20170e+00_rb,0.22334e+00_rb,0.24946e+00_rb,0.28000e+00_rb,0.31492e+00_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.19920e+00_rb,0.22026e+00_rb,0.24579e+00_rb,0.27578e+00_rb,0.31010e+00_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.19662e+00_rb,0.21706e+00_rb,0.24197e+00_rb,0.27135e+00_rb,0.30504e+00_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.19414e+00_rb,0.21396e+00_rb,0.23824e+00_rb,0.26704e+00_rb,0.30010e+00_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.19003e+00_rb,0.20877e+00_rb,0.23197e+00_rb,0.25968e+00_rb,0.29171e+00_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.18597e+00_rb,0.20357e+00_rb,0.22564e+00_rb,0.25219e+00_rb,0.28314e+00_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.18220e+00_rb,0.19865e+00_rb,0.21958e+00_rb,0.24498e+00_rb,0.27484e+00_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.17798e+00_rb,0.19304e+00_rb,0.21257e+00_rb,0.23657e+00_rb,0.26510e+00_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.17397e+00_rb,0.18746e+00_rb,0.20548e+00_rb,0.22798e+00_rb,0.25496e+00_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.17053e+00_rb,0.18239e+00_rb,0.19890e+00_rb,0.21989e+00_rb,0.24535e+00_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.16739e+00_rb,0.17754e+00_rb,0.19245e+00_rb,0.21183e+00_rb,0.23568e+00_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.16454e+00_rb,0.17292e+00_rb,0.18592e+00_rb,0.20351e+00_rb,0.22556e+00_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.16239e+00_rb,0.16903e+00_rb,0.18011e+00_rb,0.19590e+00_rb,0.21615e+00_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.16095e+00_rb,0.16584e+00_rb,0.17504e+00_rb,0.18902e+00_rb,0.20747e+00_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.16025e+00_rb,0.16348e+00_rb,0.17109e+00_rb,0.18322e+00_rb,0.20000e+00_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.16021e+00_rb,0.16179e+00_rb,0.16781e+00_rb,0.17821e+00_rb,0.19335e+00_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.16078e+00_rb,0.16068e+00_rb,0.16511e+00_rb,0.17387e+00_rb,0.18731e+00_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.16197e+00_rb,0.16018e+00_rb,0.16299e+00_rb,0.17017e+00_rb,0.18186e+00_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.16362e+00_rb,0.16026e+00_rb,0.16155e+00_rb,0.16729e+00_rb,0.17738e+00_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.16570e+00_rb,0.16083e+00_rb,0.16064e+00_rb,0.16498e+00_rb,0.17365e+00_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.16825e+00_rb,0.16187e+00_rb,0.16020e+00_rb,0.16311e+00_rb,0.17041e+00_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.17129e+00_rb,0.16340e+00_rb,0.16023e+00_rb,0.16169e+00_rb,0.16761e+00_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.17462e+00_rb,0.16529e+00_rb,0.16069e+00_rb,0.16077e+00_rb,0.16535e+00_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.17607e+00_rb,0.16617e+00_rb,0.16100e+00_rb,0.16051e+00_rb,0.16456e+00_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.17525e+01_rb,0.17727e+01_rb,0.18119e+01_rb,0.18712e+01_rb,0.19491e+01_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.17536e+01_rb,0.17755e+01_rb,0.18165e+01_rb,0.18775e+01_rb,0.19571e+01_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.17549e+01_rb,0.17787e+01_rb,0.18219e+01_rb,0.18847e+01_rb,0.19662e+01_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.17565e+01_rb,0.17819e+01_rb,0.18278e+01_rb,0.18925e+01_rb,0.19761e+01_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.17583e+01_rb,0.17850e+01_rb,0.18336e+01_rb,0.19003e+01_rb,0.19859e+01_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.17603e+01_rb,0.17891e+01_rb,0.18396e+01_rb,0.19082e+01_rb,0.19957e+01_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.17624e+01_rb,0.17934e+01_rb,0.18457e+01_rb,0.19162e+01_rb,0.20056e+01_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.17652e+01_rb,0.17986e+01_rb,0.18530e+01_rb,0.19257e+01_rb,0.20174e+01_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.17683e+01_rb,0.18042e+01_rb,0.18607e+01_rb,0.19356e+01_rb,0.20296e+01_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.17736e+01_rb,0.18133e+01_rb,0.18732e+01_rb,0.19516e+01_rb,0.20492e+01_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.17796e+01_rb,0.18234e+01_rb,0.18868e+01_rb,0.19689e+01_rb,0.20702e+01_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.17857e+01_rb,0.18347e+01_rb,0.19018e+01_rb,0.19877e+01_rb,0.20929e+01_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.17946e+01_rb,0.18475e+01_rb,0.19185e+01_rb,0.20085e+01_rb,0.21178e+01_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.18053e+01_rb,0.18623e+01_rb,0.19377e+01_rb,0.20322e+01_rb,0.21460e+01_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.18172e+01_rb,0.18785e+01_rb,0.19583e+01_rb,0.20574e+01_rb,0.21757e+01_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.18303e+01_rb,0.18959e+01_rb,0.19802e+01_rb,0.20839e+01_rb,0.22069e+01_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.18448e+01_rb,0.19150e+01_rb,0.20042e+01_rb,0.21126e+01_rb,0.22404e+01_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.18606e+01_rb,0.19355e+01_rb,0.20295e+01_rb,0.21428e+01_rb,0.22754e+01_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.18780e+01_rb,0.19577e+01_rb,0.20566e+01_rb,0.21749e+01_rb,0.23125e+01_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.18969e+01_rb,0.19816e+01_rb,0.20855e+01_rb,0.22088e+01_rb,0.23514e+01_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.19172e+01_rb,0.20069e+01_rb,0.21160e+01_rb,0.22443e+01_rb,0.23920e+01_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.19359e+01_rb,0.20300e+01_rb,0.21434e+01_rb,0.22762e+01_rb,0.24282e+01_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.19471e+01_rb,0.20437e+01_rb,0.21597e+01_rb,0.22949e+01_rb,0.24495e+01_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.19490e+01_rb,0.20460e+01_rb,0.21624e+01_rb,0.22980e+01_rb,0.24530e+01_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.19377e+01_rb,0.20322e+01_rb,0.21461e+01_rb,0.22792e+01_rb,0.24317e+01_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.19261e+01_rb,0.20179e+01_rb,0.21291e+01_rb,0.22595e+01_rb,0.24093e+01_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.19149e+01_rb,0.20040e+01_rb,0.21125e+01_rb,0.22402e+01_rb,0.23873e+01_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.18963e+01_rb,0.19807e+01_rb,0.20845e+01_rb,0.22076e+01_rb,0.23501e+01_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.18778e+01_rb,0.19574e+01_rb,0.20563e+01_rb,0.21745e+01_rb,0.23120e+01_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.18604e+01_rb,0.19352e+01_rb,0.20292e+01_rb,0.21425e+01_rb,0.22750e+01_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.18409e+01_rb,0.19099e+01_rb,0.19978e+01_rb,0.21050e+01_rb,0.22315e+01_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.18217e+01_rb,0.18845e+01_rb,0.19660e+01_rb,0.20667e+01_rb,0.21867e+01_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.18046e+01_rb,0.18613e+01_rb,0.19364e+01_rb,0.20306e+01_rb,0.21441e+01_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.17886e+01_rb,0.18389e+01_rb,0.19072e+01_rb,0.19945e+01_rb,0.21011e+01_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.17755e+01_rb,0.18165e+01_rb,0.18775e+01_rb,0.19571e+01_rb,0.20559e+01_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.17644e+01_rb,0.17970e+01_rb,0.18508e+01_rb,0.19228e+01_rb,0.20139e+01_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.17563e+01_rb,0.17816e+01_rb,0.18271e+01_rb,0.18916e+01_rb,0.19749e+01_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.17517e+01_rb,0.17702e+01_rb,0.18074e+01_rb,0.18651e+01_rb,0.19413e+01_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.17504e+01_rb,0.17611e+01_rb,0.17908e+01_rb,0.18420e+01_rb,0.19113e+01_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.17523e+01_rb,0.17547e+01_rb,0.17783e+01_rb,0.18212e+01_rb,0.18839e+01_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.17566e+01_rb,0.17510e+01_rb,0.17675e+01_rb,0.18028e+01_rb,0.18589e+01_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.17623e+01_rb,0.17507e+01_rb,0.17598e+01_rb,0.17881e+01_rb,0.18381e+01_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.17691e+01_rb,0.17524e+01_rb,0.17544e+01_rb,0.17777e+01_rb,0.18201e+01_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.17776e+01_rb,0.17562e+01_rb,0.17512e+01_rb,0.17682e+01_rb,0.18040e+01_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.17881e+01_rb,0.17616e+01_rb,0.17505e+01_rb,0.17606e+01_rb,0.17897e+01_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.17996e+01_rb,0.17678e+01_rb,0.17520e+01_rb,0.17552e+01_rb,0.17794e+01_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.18045e+01_rb,0.17707e+01_rb,0.17530e+01_rb,0.17536e+01_rb,0.17756e+01_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.10945e+02_rb,0.11052e+02_rb,0.11222e+02_rb,0.11452e+02_rb,0.11744e+02_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.10952e+02_rb,0.11065e+02_rb,0.11240e+02_rb,0.11476e+02_rb,0.11774e+02_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.10961e+02_rb,0.11080e+02_rb,0.11261e+02_rb,0.11503e+02_rb,0.11807e+02_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.10971e+02_rb,0.11097e+02_rb,0.11284e+02_rb,0.11533e+02_rb,0.11844e+02_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.10981e+02_rb,0.11115e+02_rb,0.11307e+02_rb,0.11562e+02_rb,0.11879e+02_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.10992e+02_rb,0.11132e+02_rb,0.11331e+02_rb,0.11592e+02_rb,0.11915e+02_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.11003e+02_rb,0.11149e+02_rb,0.11354e+02_rb,0.11622e+02_rb,0.11951e+02_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.11017e+02_rb,0.11170e+02_rb,0.11382e+02_rb,0.11657e+02_rb,0.11994e+02_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.11031e+02_rb,0.11192e+02_rb,0.11412e+02_rb,0.11694e+02_rb,0.12038e+02_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.11056e+02_rb,0.11228e+02_rb,0.11460e+02_rb,0.11754e+02_rb,0.12109e+02_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.11085e+02_rb,0.11267e+02_rb,0.11511e+02_rb,0.11817e+02_rb,0.12184e+02_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.11118e+02_rb,0.11312e+02_rb,0.11568e+02_rb,0.11886e+02_rb,0.12266e+02_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.11154e+02_rb,0.11361e+02_rb,0.11630e+02_rb,0.11962e+02_rb,0.12354e+02_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11196e+02_rb,0.11418e+02_rb,0.11702e+02_rb,0.12048e+02_rb,0.12455e+02_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.11243e+02_rb,0.11480e+02_rb,0.11778e+02_rb,0.12138e+02_rb,0.12560e+02_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.11294e+02_rb,0.11545e+02_rb,0.11859e+02_rb,0.12234e+02_rb,0.12670e+02_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.11351e+02_rb,0.11617e+02_rb,0.11946e+02_rb,0.12336e+02_rb,0.12788e+02_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.11411e+02_rb,0.11694e+02_rb,0.12038e+02_rb,0.12443e+02_rb,0.12910e+02_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.11478e+02_rb,0.11776e+02_rb,0.12136e+02_rb,0.12557e+02_rb,0.13040e+02_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.11549e+02_rb,0.11864e+02_rb,0.12239e+02_rb,0.12677e+02_rb,0.13175e+02_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.11626e+02_rb,0.11956e+02_rb,0.12348e+02_rb,0.12801e+02_rb,0.13316e+02_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.11695e+02_rb,0.12040e+02_rb,0.12446e+02_rb,0.12913e+02_rb,0.13442e+02_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.11737e+02_rb,0.12089e+02_rb,0.12503e+02_rb,0.12979e+02_rb,0.13515e+02_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.11744e+02_rb,0.12098e+02_rb,0.12513e+02_rb,0.12989e+02_rb,0.13528e+02_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.11702e+02_rb,0.12048e+02_rb,0.12455e+02_rb,0.12924e+02_rb,0.13454e+02_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.11659e+02_rb,0.11996e+02_rb,0.12395e+02_rb,0.12855e+02_rb,0.13376e+02_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.11617e+02_rb,0.11946e+02_rb,0.12336e+02_rb,0.12787e+02_rb,0.13300e+02_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.11547e+02_rb,0.11861e+02_rb,0.12236e+02_rb,0.12673e+02_rb,0.13171e+02_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.11477e+02_rb,0.11775e+02_rb,0.12134e+02_rb,0.12555e+02_rb,0.13038e+02_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.11411e+02_rb,0.11693e+02_rb,0.12037e+02_rb,0.12442e+02_rb,0.12909e+02_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.11335e+02_rb,0.11598e+02_rb,0.11923e+02_rb,0.12309e+02_rb,0.12757e+02_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.11261e+02_rb,0.11503e+02_rb,0.11807e+02_rb,0.12172e+02_rb,0.12599e+02_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.11193e+02_rb,0.11414e+02_rb,0.11697e+02_rb,0.12042e+02_rb,0.12448e+02_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.11129e+02_rb,0.11328e+02_rb,0.11588e+02_rb,0.11911e+02_rb,0.12295e+02_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.11065e+02_rb,0.11240e+02_rb,0.11476e+02_rb,0.11774e+02_rb,0.12133e+02_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.11012e+02_rb,0.11163e+02_rb,0.11374e+02_rb,0.11647e+02_rb,0.11981e+02_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.10969e+02_rb,0.11095e+02_rb,0.11282e+02_rb,0.11530e+02_rb,0.11839e+02_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.10938e+02_rb,0.11040e+02_rb,0.11204e+02_rb,0.11429e+02_rb,0.11715e+02_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.10916e+02_rb,0.10996e+02_rb,0.11138e+02_rb,0.11340e+02_rb,0.11604e+02_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.10900e+02_rb,0.10960e+02_rb,0.11079e+02_rb,0.11259e+02_rb,0.11500e+02_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.10894e+02_rb,0.10932e+02_rb,0.11028e+02_rb,0.11186e+02_rb,0.11405e+02_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.10895e+02_rb,0.10912e+02_rb,0.10989e+02_rb,0.11127e+02_rb,0.11325e+02_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.10903e+02_rb,0.10900e+02_rb,0.10958e+02_rb,0.11075e+02_rb,0.11255e+02_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.10921e+02_rb,0.10894e+02_rb,0.10933e+02_rb,0.11031e+02_rb,0.11191e+02_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.10944e+02_rb,0.10894e+02_rb,0.10914e+02_rb,0.10993e+02_rb,0.11134e+02_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.10972e+02_rb,0.10901e+02_rb,0.10902e+02_rb,0.10963e+02_rb,0.11084e+02_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.10984e+02_rb,0.10906e+02_rb,0.10898e+02_rb,0.10952e+02_rb,0.11066e+02_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.51563e+02_rb,0.51946e+02_rb,0.52464e+02_rb,0.53116e+02_rb,0.53902e+02_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.51593e+02_rb,0.51987e+02_rb,0.52517e+02_rb,0.53182e+02_rb,0.53980e+02_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.51626e+02_rb,0.52035e+02_rb,0.52579e+02_rb,0.53256e+02_rb,0.54069e+02_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.51664e+02_rb,0.52087e+02_rb,0.52644e+02_rb,0.53337e+02_rb,0.54163e+02_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.51701e+02_rb,0.52138e+02_rb,0.52710e+02_rb,0.53416e+02_rb,0.54257e+02_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.51740e+02_rb,0.52191e+02_rb,0.52776e+02_rb,0.53496e+02_rb,0.54351e+02_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.51779e+02_rb,0.52244e+02_rb,0.52843e+02_rb,0.53576e+02_rb,0.54444e+02_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.51827e+02_rb,0.52307e+02_rb,0.52922e+02_rb,0.53671e+02_rb,0.54555e+02_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.51877e+02_rb,0.52373e+02_rb,0.53004e+02_rb,0.53770e+02_rb,0.54669e+02_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.51959e+02_rb,0.52481e+02_rb,0.53136e+02_rb,0.53927e+02_rb,0.54851e+02_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.52049e+02_rb,0.52596e+02_rb,0.53278e+02_rb,0.54094e+02_rb,0.55044e+02_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.52148e+02_rb,0.52723e+02_rb,0.53431e+02_rb,0.54274e+02_rb,0.55252e+02_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.52259e+02_rb,0.52862e+02_rb,0.53599e+02_rb,0.54471e+02_rb,0.55477e+02_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.52387e+02_rb,0.53022e+02_rb,0.53790e+02_rb,0.54693e+02_rb,0.55730e+02_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.52525e+02_rb,0.53191e+02_rb,0.53992e+02_rb,0.54926e+02_rb,0.55995e+02_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.52672e+02_rb,0.53371e+02_rb,0.54203e+02_rb,0.55170e+02_rb,0.56271e+02_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.52833e+02_rb,0.53565e+02_rb,0.54430e+02_rb,0.55430e+02_rb,0.56565e+02_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.53003e+02_rb,0.53768e+02_rb,0.54668e+02_rb,0.55702e+02_rb,0.56870e+02_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.53186e+02_rb,0.53986e+02_rb,0.54920e+02_rb,0.55988e+02_rb,0.57190e+02_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.53381e+02_rb,0.54216e+02_rb,0.55184e+02_rb,0.56287e+02_rb,0.57525e+02_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.53587e+02_rb,0.54457e+02_rb,0.55460e+02_rb,0.56599e+02_rb,0.57871e+02_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.53773e+02_rb,0.54673e+02_rb,0.55707e+02_rb,0.56876e+02_rb,0.58179e+02_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.53883e+02_rb,0.54800e+02_rb,0.55852e+02_rb,0.57039e+02_rb,0.58359e+02_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.53901e+02_rb,0.54822e+02_rb,0.55876e+02_rb,0.57066e+02_rb,0.58389e+02_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.53791e+02_rb,0.54694e+02_rb,0.55731e+02_rb,0.56903e+02_rb,0.58208e+02_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.53676e+02_rb,0.54560e+02_rb,0.55578e+02_rb,0.56731e+02_rb,0.58018e+02_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.53563e+02_rb,0.54429e+02_rb,0.55429e+02_rb,0.56563e+02_rb,0.57832e+02_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.53375e+02_rb,0.54208e+02_rb,0.55175e+02_rb,0.56277e+02_rb,0.57513e+02_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.53184e+02_rb,0.53983e+02_rb,0.54916e+02_rb,0.55984e+02_rb,0.57186e+02_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.53001e+02_rb,0.53766e+02_rb,0.54665e+02_rb,0.55699e+02_rb,0.56866e+02_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.52790e+02_rb,0.53513e+02_rb,0.54370e+02_rb,0.55362e+02_rb,0.56488e+02_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.52577e+02_rb,0.53254e+02_rb,0.54066e+02_rb,0.55012e+02_rb,0.56093e+02_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.52379e+02_rb,0.53011e+02_rb,0.53777e+02_rb,0.54678e+02_rb,0.55713e+02_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.52184e+02_rb,0.52768e+02_rb,0.53486e+02_rb,0.54339e+02_rb,0.55326e+02_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.51987e+02_rb,0.52517e+02_rb,0.53182e+02_rb,0.53980e+02_rb,0.54913e+02_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.51812e+02_rb,0.52288e+02_rb,0.52898e+02_rb,0.53643e+02_rb,0.54522e+02_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.51659e+02_rb,0.52081e+02_rb,0.52637e+02_rb,0.53327e+02_rb,0.54152e+02_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.51535e+02_rb,0.51906e+02_rb,0.52412e+02_rb,0.53052e+02_rb,0.53826e+02_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.51433e+02_rb,0.51755e+02_rb,0.52211e+02_rb,0.52802e+02_rb,0.53527e+02_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.51349e+02_rb,0.51622e+02_rb,0.52029e+02_rb,0.52571e+02_rb,0.53247e+02_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.51285e+02_rb,0.51507e+02_rb,0.51865e+02_rb,0.52358e+02_rb,0.52985e+02_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.51240e+02_rb,0.51417e+02_rb,0.51730e+02_rb,0.52178e+02_rb,0.52760e+02_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.51211e+02_rb,0.51346e+02_rb,0.51615e+02_rb,0.52020e+02_rb,0.52559e+02_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.51194e+02_rb,0.51288e+02_rb,0.51514e+02_rb,0.51875e+02_rb,0.52371e+02_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.51190e+02_rb,0.51245e+02_rb,0.51426e+02_rb,0.51746e+02_rb,0.52198e+02_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.51200e+02_rb,0.51216e+02_rb,0.51357e+02_rb,0.51635e+02_rb,0.52046e+02_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.51207e+02_rb,0.51207e+02_rb,0.51333e+02_rb,0.51594e+02_rb,0.51989e+02_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.17051e+03_rb,0.17168e+03_rb,0.17297e+03_rb,0.17437e+03_rb,0.17590e+03_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.17061e+03_rb,0.17179e+03_rb,0.17309e+03_rb,0.17451e+03_rb,0.17604e+03_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.17073e+03_rb,0.17192e+03_rb,0.17323e+03_rb,0.17466e+03_rb,0.17621e+03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.17085e+03_rb,0.17205e+03_rb,0.17338e+03_rb,0.17482e+03_rb,0.17638e+03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.17097e+03_rb,0.17218e+03_rb,0.17352e+03_rb,0.17497e+03_rb,0.17655e+03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.17109e+03_rb,0.17232e+03_rb,0.17366e+03_rb,0.17513e+03_rb,0.17671e+03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.17121e+03_rb,0.17245e+03_rb,0.17381e+03_rb,0.17528e+03_rb,0.17688e+03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.17134e+03_rb,0.17260e+03_rb,0.17397e+03_rb,0.17547e+03_rb,0.17708e+03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.17149e+03_rb,0.17276e+03_rb,0.17415e+03_rb,0.17565e+03_rb,0.17728e+03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.17172e+03_rb,0.17301e+03_rb,0.17442e+03_rb,0.17594e+03_rb,0.17759e+03_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.17195e+03_rb,0.17327e+03_rb,0.17470e+03_rb,0.17625e+03_rb,0.17792e+03_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.17221e+03_rb,0.17355e+03_rb,0.17500e+03_rb,0.17658e+03_rb,0.17827e+03_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.17248e+03_rb,0.17385e+03_rb,0.17533e+03_rb,0.17693e+03_rb,0.17865e+03_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.17279e+03_rb,0.17418e+03_rb,0.17569e+03_rb,0.17732e+03_rb,0.17906e+03_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.17311e+03_rb,0.17453e+03_rb,0.17606e+03_rb,0.17772e+03_rb,0.17949e+03_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.17344e+03_rb,0.17488e+03_rb,0.17645e+03_rb,0.17813e+03_rb,0.17994e+03_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.17379e+03_rb,0.17526e+03_rb,0.17686e+03_rb,0.17857e+03_rb,0.18040e+03_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.17414e+03_rb,0.17565e+03_rb,0.17727e+03_rb,0.17902e+03_rb,0.18088e+03_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.17452e+03_rb,0.17605e+03_rb,0.17771e+03_rb,0.17948e+03_rb,0.18137e+03_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.17491e+03_rb,0.17647e+03_rb,0.17816e+03_rb,0.17996e+03_rb,0.18188e+03_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.17531e+03_rb,0.17690e+03_rb,0.17862e+03_rb,0.18045e+03_rb,0.18241e+03_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.17566e+03_rb,0.17728e+03_rb,0.17903e+03_rb,0.18089e+03_rb,0.18287e+03_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.17586e+03_rb,0.17750e+03_rb,0.17926e+03_rb,0.18114e+03_rb,0.18313e+03_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.17590e+03_rb,0.17754e+03_rb,0.17930e+03_rb,0.18118e+03_rb,0.18318e+03_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.17569e+03_rb,0.17732e+03_rb,0.17906e+03_rb,0.18093e+03_rb,0.18291e+03_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.17547e+03_rb,0.17708e+03_rb,0.17881e+03_rb,0.18066e+03_rb,0.18263e+03_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.17526e+03_rb,0.17685e+03_rb,0.17857e+03_rb,0.18040e+03_rb,0.18235e+03_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.17489e+03_rb,0.17646e+03_rb,0.17814e+03_rb,0.17995e+03_rb,0.18187e+03_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.17451e+03_rb,0.17605e+03_rb,0.17770e+03_rb,0.17948e+03_rb,0.18137e+03_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.17414e+03_rb,0.17565e+03_rb,0.17727e+03_rb,0.17901e+03_rb,0.18087e+03_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.17369e+03_rb,0.17516e+03_rb,0.17675e+03_rb,0.17846e+03_rb,0.18028e+03_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.17323e+03_rb,0.17465e+03_rb,0.17620e+03_rb,0.17787e+03_rb,0.17965e+03_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.17277e+03_rb,0.17416e+03_rb,0.17567e+03_rb,0.17729e+03_rb,0.17904e+03_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.17230e+03_rb,0.17365e+03_rb,0.17511e+03_rb,0.17669e+03_rb,0.17840e+03_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.17179e+03_rb,0.17309e+03_rb,0.17451e+03_rb,0.17604e+03_rb,0.17770e+03_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.17130e+03_rb,0.17255e+03_rb,0.17392e+03_rb,0.17541e+03_rb,0.17702e+03_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.17083e+03_rb,0.17204e+03_rb,0.17336e+03_rb,0.17480e+03_rb,0.17636e+03_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.17041e+03_rb,0.17157e+03_rb,0.17285e+03_rb,0.17424e+03_rb,0.17576e+03_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.17002e+03_rb,0.17113e+03_rb,0.17237e+03_rb,0.17372e+03_rb,0.17519e+03_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.16964e+03_rb,0.17071e+03_rb,0.17190e+03_rb,0.17321e+03_rb,0.17464e+03_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.16927e+03_rb,0.17031e+03_rb,0.17145e+03_rb,0.17272e+03_rb,0.17411e+03_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.16896e+03_rb,0.16995e+03_rb,0.17106e+03_rb,0.17228e+03_rb,0.17363e+03_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.16866e+03_rb,0.16962e+03_rb,0.17069e+03_rb,0.17188e+03_rb,0.17318e+03_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.16839e+03_rb,0.16930e+03_rb,0.17033e+03_rb,0.17148e+03_rb,0.17275e+03_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.16812e+03_rb,0.16899e+03_rb,0.16999e+03_rb,0.17110e+03_rb,0.17233e+03_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.16788e+03_rb,0.16871e+03_rb,0.16968e+03_rb,0.17075e+03_rb,0.17195e+03_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.16779e+03_rb,0.16861e+03_rb,0.16955e+03_rb,0.17062e+03_rb,0.17180e+03_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.38122e+03_rb,0.38406e+03_rb,0.38668e+03_rb,0.38908e+03_rb,0.39125e+03_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.38148e+03_rb,0.38431e+03_rb,0.38691e+03_rb,0.38929e+03_rb,0.39144e+03_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.38178e+03_rb,0.38458e+03_rb,0.38716e+03_rb,0.38951e+03_rb,0.39164e+03_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.38209e+03_rb,0.38487e+03_rb,0.38742e+03_rb,0.38975e+03_rb,0.39186e+03_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.38239e+03_rb,0.38514e+03_rb,0.38767e+03_rb,0.38998e+03_rb,0.39206e+03_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.38268e+03_rb,0.38541e+03_rb,0.38792e+03_rb,0.39020e+03_rb,0.39226e+03_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.38297e+03_rb,0.38568e+03_rb,0.38816e+03_rb,0.39042e+03_rb,0.39246e+03_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.38330e+03_rb,0.38598e+03_rb,0.38844e+03_rb,0.39067e+03_rb,0.39268e+03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.38363e+03_rb,0.38629e+03_rb,0.38872e+03_rb,0.39092e+03_rb,0.39291e+03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.38414e+03_rb,0.38675e+03_rb,0.38914e+03_rb,0.39131e+03_rb,0.39325e+03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.38466e+03_rb,0.38723e+03_rb,0.38958e+03_rb,0.39170e+03_rb,0.39360e+03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.38520e+03_rb,0.38772e+03_rb,0.39002e+03_rb,0.39210e+03_rb,0.39395e+03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.38575e+03_rb,0.38823e+03_rb,0.39048e+03_rb,0.39251e+03_rb,0.39432e+03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.38635e+03_rb,0.38877e+03_rb,0.39098e+03_rb,0.39295e+03_rb,0.39470e+03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.38694e+03_rb,0.38932e+03_rb,0.39146e+03_rb,0.39339e+03_rb,0.39509e+03_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.38753e+03_rb,0.38985e+03_rb,0.39194e+03_rb,0.39381e+03_rb,0.39546e+03_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.38813e+03_rb,0.39039e+03_rb,0.39243e+03_rb,0.39424e+03_rb,0.39583e+03_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.38871e+03_rb,0.39092e+03_rb,0.39290e+03_rb,0.39466e+03_rb,0.39620e+03_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.38930e+03_rb,0.39145e+03_rb,0.39338e+03_rb,0.39508e+03_rb,0.39655e+03_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.38988e+03_rb,0.39197e+03_rb,0.39384e+03_rb,0.39548e+03_rb,0.39690e+03_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.39045e+03_rb,0.39248e+03_rb,0.39429e+03_rb,0.39587e+03_rb,0.39723e+03_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.39093e+03_rb,0.39291e+03_rb,0.39467e+03_rb,0.39620e+03_rb,0.39751e+03_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.39120e+03_rb,0.39316e+03_rb,0.39488e+03_rb,0.39639e+03_rb,0.39766e+03_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.39125e+03_rb,0.39320e+03_rb,0.39492e+03_rb,0.39642e+03_rb,0.39769e+03_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.39098e+03_rb,0.39295e+03_rb,0.39471e+03_rb,0.39623e+03_rb,0.39754e+03_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.39068e+03_rb,0.39269e+03_rb,0.39447e+03_rb,0.39603e+03_rb,0.39737e+03_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.39039e+03_rb,0.39243e+03_rb,0.39424e+03_rb,0.39583e+03_rb,0.39720e+03_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.38986e+03_rb,0.39196e+03_rb,0.39382e+03_rb,0.39547e+03_rb,0.39689e+03_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.38929e+03_rb,0.39144e+03_rb,0.39337e+03_rb,0.39507e+03_rb,0.39655e+03_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.38871e+03_rb,0.39092e+03_rb,0.39290e+03_rb,0.39466e+03_rb,0.39619e+03_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.38797e+03_rb,0.39025e+03_rb,0.39230e+03_rb,0.39413e+03_rb,0.39574e+03_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.38715e+03_rb,0.38951e+03_rb,0.39164e+03_rb,0.39354e+03_rb,0.39522e+03_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.38631e+03_rb,0.38874e+03_rb,0.39094e+03_rb,0.39292e+03_rb,0.39468e+03_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.38538e+03_rb,0.38789e+03_rb,0.39018e+03_rb,0.39224e+03_rb,0.39407e+03_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.38431e+03_rb,0.38691e+03_rb,0.38929e+03_rb,0.39144e+03_rb,0.39336e+03_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.38320e+03_rb,0.38589e+03_rb,0.38836e+03_rb,0.39060e+03_rb,0.39262e+03_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.38206e+03_rb,0.38484e+03_rb,0.38739e+03_rb,0.38972e+03_rb,0.39183e+03_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.38095e+03_rb,0.38382e+03_rb,0.38646e+03_rb,0.38887e+03_rb,0.39106e+03_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.37985e+03_rb,0.38279e+03_rb,0.38552e+03_rb,0.38802e+03_rb,0.39029e+03_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.37873e+03_rb,0.38175e+03_rb,0.38455e+03_rb,0.38713e+03_rb,0.38949e+03_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.37762e+03_rb,0.38067e+03_rb,0.38355e+03_rb,0.38621e+03_rb,0.38865e+03_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.37661e+03_rb,0.37965e+03_rb,0.38261e+03_rb,0.38535e+03_rb,0.38786e+03_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.37559e+03_rb,0.37867e+03_rb,0.38169e+03_rb,0.38450e+03_rb,0.38708e+03_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.37459e+03_rb,0.37768e+03_rb,0.38074e+03_rb,0.38362e+03_rb,0.38628e+03_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.37353e+03_rb,0.37673e+03_rb,0.37977e+03_rb,0.38272e+03_rb,0.38545e+03_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.37251e+03_rb,0.37577e+03_rb,0.37885e+03_rb,0.38185e+03_rb,0.38465e+03_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.37212e+03_rb,0.37539e+03_rb,0.37847e+03_rb,0.38150e+03_rb,0.38432e+03_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.62583e+03_rb,0.62623e+03_rb,0.62691e+03_rb,0.62787e+03_rb,0.62909e+03_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.62586e+03_rb,0.62628e+03_rb,0.62699e+03_rb,0.62797e+03_rb,0.62921e+03_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.62589e+03_rb,0.62634e+03_rb,0.62708e+03_rb,0.62809e+03_rb,0.62935e+03_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.62593e+03_rb,0.62640e+03_rb,0.62717e+03_rb,0.62821e+03_rb,0.62950e+03_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.62597e+03_rb,0.62647e+03_rb,0.62727e+03_rb,0.62833e+03_rb,0.62965e+03_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.62601e+03_rb,0.62654e+03_rb,0.62737e+03_rb,0.62846e+03_rb,0.62980e+03_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.62605e+03_rb,0.62661e+03_rb,0.62746e+03_rb,0.62858e+03_rb,0.62995e+03_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.62610e+03_rb,0.62670e+03_rb,0.62758e+03_rb,0.62873e+03_rb,0.63012e+03_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.62615e+03_rb,0.62679e+03_rb,0.62770e+03_rb,0.62888e+03_rb,0.63031e+03_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.62625e+03_rb,0.62694e+03_rb,0.62790e+03_rb,0.62913e+03_rb,0.63060e+03_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.62636e+03_rb,0.62710e+03_rb,0.62812e+03_rb,0.62939e+03_rb,0.63091e+03_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.62648e+03_rb,0.62729e+03_rb,0.62835e+03_rb,0.62968e+03_rb,0.63125e+03_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.62663e+03_rb,0.62749e+03_rb,0.62861e+03_rb,0.62999e+03_rb,0.63162e+03_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.62681e+03_rb,0.62773e+03_rb,0.62891e+03_rb,0.63035e+03_rb,0.63203e+03_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.62700e+03_rb,0.62799e+03_rb,0.62923e+03_rb,0.63072e+03_rb,0.63247e+03_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.62721e+03_rb,0.62826e+03_rb,0.62956e+03_rb,0.63112e+03_rb,0.63292e+03_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.62745e+03_rb,0.62856e+03_rb,0.62993e+03_rb,0.63154e+03_rb,0.63341e+03_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.62770e+03_rb,0.62888e+03_rb,0.63031e+03_rb,0.63198e+03_rb,0.63392e+03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.62798e+03_rb,0.62922e+03_rb,0.63071e+03_rb,0.63245e+03_rb,0.63446e+03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.62828e+03_rb,0.62958e+03_rb,0.63114e+03_rb,0.63295e+03_rb,0.63503e+03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.62860e+03_rb,0.62997e+03_rb,0.63159e+03_rb,0.63347e+03_rb,0.63562e+03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.62889e+03_rb,0.63031e+03_rb,0.63199e+03_rb,0.63393e+03_rb,0.63614e+03_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.62906e+03_rb,0.63052e+03_rb,0.63223e+03_rb,0.63421e+03_rb,0.63644e+03_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.62909e+03_rb,0.63055e+03_rb,0.63227e+03_rb,0.63425e+03_rb,0.63649e+03_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.62891e+03_rb,0.63035e+03_rb,0.63203e+03_rb,0.63397e+03_rb,0.63619e+03_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.62873e+03_rb,0.63013e+03_rb,0.63178e+03_rb,0.63369e+03_rb,0.63586e+03_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.62856e+03_rb,0.62992e+03_rb,0.63154e+03_rb,0.63341e+03_rb,0.63555e+03_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.62827e+03_rb,0.62957e+03_rb,0.63113e+03_rb,0.63293e+03_rb,0.63501e+03_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.62798e+03_rb,0.62922e+03_rb,0.63071e+03_rb,0.63245e+03_rb,0.63445e+03_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.62770e+03_rb,0.62887e+03_rb,0.63030e+03_rb,0.63198e+03_rb,0.63391e+03_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.62739e+03_rb,0.62848e+03_rb,0.62983e+03_rb,0.63143e+03_rb,0.63328e+03_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.62708e+03_rb,0.62808e+03_rb,0.62935e+03_rb,0.63086e+03_rb,0.63263e+03_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.62679e+03_rb,0.62771e+03_rb,0.62889e+03_rb,0.63032e+03_rb,0.63200e+03_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.62653e+03_rb,0.62735e+03_rb,0.62844e+03_rb,0.62978e+03_rb,0.63137e+03_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.62629e+03_rb,0.62699e+03_rb,0.62797e+03_rb,0.62921e+03_rb,0.63070e+03_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.62608e+03_rb,0.62667e+03_rb,0.62755e+03_rb,0.62868e+03_rb,0.63007e+03_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.62592e+03_rb,0.62640e+03_rb,0.62716e+03_rb,0.62820e+03_rb,0.62948e+03_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.62580e+03_rb,0.62619e+03_rb,0.62684e+03_rb,0.62778e+03_rb,0.62897e+03_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.62580e+03_rb,0.62602e+03_rb,0.62657e+03_rb,0.62741e+03_rb,0.62850e+03_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.62578e+03_rb,0.62589e+03_rb,0.62633e+03_rb,0.62707e+03_rb,0.62807e+03_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.62574e+03_rb,0.62578e+03_rb,0.62614e+03_rb,0.62677e+03_rb,0.62768e+03_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.62576e+03_rb,0.62580e+03_rb,0.62600e+03_rb,0.62652e+03_rb,0.62734e+03_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.62585e+03_rb,0.62578e+03_rb,0.62588e+03_rb,0.62632e+03_rb,0.62705e+03_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.62587e+03_rb,0.62576e+03_rb,0.62579e+03_rb,0.62615e+03_rb,0.62678e+03_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.62591e+03_rb,0.62574e+03_rb,0.62580e+03_rb,0.62601e+03_rb,0.62655e+03_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.62591e+03_rb,0.62583e+03_rb,0.62578e+03_rb,0.62590e+03_rb,0.62636e+03_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.62590e+03_rb,0.62586e+03_rb,0.62578e+03_rb,0.62586e+03_rb,0.62628e+03_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.81821e+03_rb,0.81877e+03_rb,0.81935e+03_rb,0.81999e+03_rb,0.82074e+03_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.81826e+03_rb,0.81882e+03_rb,0.81939e+03_rb,0.82006e+03_rb,0.82081e+03_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.81831e+03_rb,0.81888e+03_rb,0.81946e+03_rb,0.82012e+03_rb,0.82089e+03_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.81836e+03_rb,0.81895e+03_rb,0.81952e+03_rb,0.82021e+03_rb,0.82098e+03_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.81842e+03_rb,0.81901e+03_rb,0.81959e+03_rb,0.82028e+03_rb,0.82106e+03_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.81847e+03_rb,0.81907e+03_rb,0.81965e+03_rb,0.82036e+03_rb,0.82116e+03_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.81853e+03_rb,0.81913e+03_rb,0.81972e+03_rb,0.82043e+03_rb,0.82123e+03_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.81860e+03_rb,0.81919e+03_rb,0.81980e+03_rb,0.82052e+03_rb,0.82133e+03_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.81868e+03_rb,0.81925e+03_rb,0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.81879e+03_rb,0.81936e+03_rb,0.82001e+03_rb,0.82076e+03_rb,0.82160e+03_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.81889e+03_rb,0.81947e+03_rb,0.82015e+03_rb,0.82091e+03_rb,0.82177e+03_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.81902e+03_rb,0.81960e+03_rb,0.82030e+03_rb,0.82108e+03_rb,0.82195e+03_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.81914e+03_rb,0.81974e+03_rb,0.82046e+03_rb,0.82126e+03_rb,0.82214e+03_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.81927e+03_rb,0.81990e+03_rb,0.82063e+03_rb,0.82145e+03_rb,0.82236e+03_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.81941e+03_rb,0.82006e+03_rb,0.82082e+03_rb,0.82166e+03_rb,0.82258e+03_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.81957e+03_rb,0.82024e+03_rb,0.82101e+03_rb,0.82188e+03_rb,0.82281e+03_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.81971e+03_rb,0.82042e+03_rb,0.82122e+03_rb,0.82210e+03_rb,0.82305e+03_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb,0.82233e+03_rb,0.82330e+03_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.82006e+03_rb,0.82081e+03_rb,0.82166e+03_rb,0.82258e+03_rb,0.82355e+03_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.82025e+03_rb,0.82103e+03_rb,0.82189e+03_rb,0.82283e+03_rb,0.82380e+03_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.82044e+03_rb,0.82124e+03_rb,0.82213e+03_rb,0.82308e+03_rb,0.82408e+03_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.82062e+03_rb,0.82144e+03_rb,0.82234e+03_rb,0.82330e+03_rb,0.82432e+03_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.82072e+03_rb,0.82155e+03_rb,0.82246e+03_rb,0.82342e+03_rb,0.82446e+03_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.82074e+03_rb,0.82157e+03_rb,0.82248e+03_rb,0.82345e+03_rb,0.82448e+03_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.82063e+03_rb,0.82146e+03_rb,0.82236e+03_rb,0.82332e+03_rb,0.82434e+03_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.82053e+03_rb,0.82134e+03_rb,0.82223e+03_rb,0.82319e+03_rb,0.82419e+03_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.82042e+03_rb,0.82122e+03_rb,0.82210e+03_rb,0.82305e+03_rb,0.82405e+03_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.82024e+03_rb,0.82102e+03_rb,0.82188e+03_rb,0.82282e+03_rb,0.82380e+03_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.82006e+03_rb,0.82081e+03_rb,0.82165e+03_rb,0.82257e+03_rb,0.82354e+03_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.81988e+03_rb,0.82061e+03_rb,0.82143e+03_rb,0.82233e+03_rb,0.82329e+03_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.81967e+03_rb,0.82037e+03_rb,0.82117e+03_rb,0.82204e+03_rb,0.82299e+03_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.81946e+03_rb,0.82013e+03_rb,0.82089e+03_rb,0.82174e+03_rb,0.82267e+03_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.81926e+03_rb,0.81989e+03_rb,0.82062e+03_rb,0.82144e+03_rb,0.82234e+03_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.81907e+03_rb,0.81965e+03_rb,0.82034e+03_rb,0.82114e+03_rb,0.82201e+03_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.81882e+03_rb,0.81939e+03_rb,0.82006e+03_rb,0.82081e+03_rb,0.82165e+03_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.81858e+03_rb,0.81917e+03_rb,0.81978e+03_rb,0.82050e+03_rb,0.82130e+03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.81836e+03_rb,0.81894e+03_rb,0.81953e+03_rb,0.82019e+03_rb,0.82097e+03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.81817e+03_rb,0.81871e+03_rb,0.81929e+03_rb,0.81993e+03_rb,0.82067e+03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.81790e+03_rb,0.81850e+03_rb,0.81910e+03_rb,0.81967e+03_rb,0.82039e+03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.81779e+03_rb,0.81830e+03_rb,0.81888e+03_rb,0.81945e+03_rb,0.82012e+03_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.81766e+03_rb,0.81812e+03_rb,0.81866e+03_rb,0.81924e+03_rb,0.81986e+03_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.81744e+03_rb,0.81785e+03_rb,0.81846e+03_rb,0.81906e+03_rb,0.81964e+03_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.81733e+03_rb,0.81777e+03_rb,0.81829e+03_rb,0.81886e+03_rb,0.81944e+03_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.81741e+03_rb,0.81767e+03_rb,0.81813e+03_rb,0.81867e+03_rb,0.81925e+03_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.81785e+03_rb,0.81749e+03_rb,0.81788e+03_rb,0.81848e+03_rb,0.81908e+03_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.81817e+03_rb,0.81731e+03_rb,0.81779e+03_rb,0.81832e+03_rb,0.81889e+03_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.81824e+03_rb,0.81736e+03_rb,0.81776e+03_rb,0.81826e+03_rb,0.81883e+03_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.94133e+03_rb,0.94438e+03_rb,0.94687e+03_rb,0.94883e+03_rb,0.95021e+03_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.94163e+03_rb,0.94463e+03_rb,0.94708e+03_rb,0.94898e+03_rb,0.95031e+03_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.94195e+03_rb,0.94490e+03_rb,0.94731e+03_rb,0.94914e+03_rb,0.95042e+03_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.94229e+03_rb,0.94518e+03_rb,0.94753e+03_rb,0.94930e+03_rb,0.95052e+03_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.94262e+03_rb,0.94544e+03_rb,0.94774e+03_rb,0.94946e+03_rb,0.95061e+03_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.94293e+03_rb,0.94570e+03_rb,0.94795e+03_rb,0.94960e+03_rb,0.95069e+03_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.94323e+03_rb,0.94595e+03_rb,0.94814e+03_rb,0.94974e+03_rb,0.95078e+03_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.94357e+03_rb,0.94624e+03_rb,0.94835e+03_rb,0.94989e+03_rb,0.95087e+03_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.94393e+03_rb,0.94654e+03_rb,0.94857e+03_rb,0.95003e+03_rb,0.95096e+03_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.94445e+03_rb,0.94695e+03_rb,0.94888e+03_rb,0.95025e+03_rb,0.95105e+03_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.94499e+03_rb,0.94737e+03_rb,0.94919e+03_rb,0.95045e+03_rb,0.95113e+03_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.94549e+03_rb,0.94778e+03_rb,0.94948e+03_rb,0.95063e+03_rb,0.95120e+03_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.94602e+03_rb,0.94819e+03_rb,0.94978e+03_rb,0.95082e+03_rb,0.95125e+03_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.94658e+03_rb,0.94861e+03_rb,0.95006e+03_rb,0.95096e+03_rb,0.95127e+03_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.94710e+03_rb,0.94900e+03_rb,0.95033e+03_rb,0.95109e+03_rb,0.95126e+03_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.94759e+03_rb,0.94937e+03_rb,0.95056e+03_rb,0.95118e+03_rb,0.95123e+03_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.94811e+03_rb,0.94973e+03_rb,0.95077e+03_rb,0.95124e+03_rb,0.95116e+03_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.94856e+03_rb,0.95003e+03_rb,0.95095e+03_rb,0.95127e+03_rb,0.95105e+03_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.94901e+03_rb,0.95032e+03_rb,0.95108e+03_rb,0.95127e+03_rb,0.95090e+03_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.94939e+03_rb,0.95057e+03_rb,0.95118e+03_rb,0.95121e+03_rb,0.95071e+03_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.94975e+03_rb,0.95079e+03_rb,0.95125e+03_rb,0.95115e+03_rb,0.95050e+03_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.95004e+03_rb,0.95095e+03_rb,0.95128e+03_rb,0.95105e+03_rb,0.95030e+03_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.95020e+03_rb,0.95102e+03_rb,0.95127e+03_rb,0.95098e+03_rb,0.95016e+03_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.95021e+03_rb,0.95103e+03_rb,0.95127e+03_rb,0.95096e+03_rb,0.95023e+03_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.95006e+03_rb,0.95096e+03_rb,0.95127e+03_rb,0.95104e+03_rb,0.95027e+03_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.94990e+03_rb,0.95087e+03_rb,0.95126e+03_rb,0.95110e+03_rb,0.95040e+03_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.94972e+03_rb,0.95077e+03_rb,0.95124e+03_rb,0.95117e+03_rb,0.95053e+03_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.94939e+03_rb,0.95057e+03_rb,0.95118e+03_rb,0.95123e+03_rb,0.95072e+03_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.94899e+03_rb,0.95032e+03_rb,0.95108e+03_rb,0.95127e+03_rb,0.95090e+03_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.94856e+03_rb,0.95004e+03_rb,0.95094e+03_rb,0.95127e+03_rb,0.95105e+03_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.94799e+03_rb,0.94963e+03_rb,0.95073e+03_rb,0.95123e+03_rb,0.95118e+03_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.94729e+03_rb,0.94914e+03_rb,0.95041e+03_rb,0.95112e+03_rb,0.95126e+03_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.94655e+03_rb,0.94858e+03_rb,0.95004e+03_rb,0.95095e+03_rb,0.95127e+03_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.94568e+03_rb,0.94792e+03_rb,0.94958e+03_rb,0.95070e+03_rb,0.95122e+03_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.94463e+03_rb,0.94708e+03_rb,0.94898e+03_rb,0.95031e+03_rb,0.95108e+03_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.94348e+03_rb,0.94616e+03_rb,0.94829e+03_rb,0.94984e+03_rb,0.95084e+03_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.94226e+03_rb,0.94515e+03_rb,0.94748e+03_rb,0.94928e+03_rb,0.95051e+03_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.94103e+03_rb,0.94413e+03_rb,0.94669e+03_rb,0.94868e+03_rb,0.95011e+03_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.93978e+03_rb,0.94307e+03_rb,0.94580e+03_rb,0.94802e+03_rb,0.94965e+03_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.93828e+03_rb,0.94192e+03_rb,0.94488e+03_rb,0.94728e+03_rb,0.94912e+03_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.93678e+03_rb,0.94072e+03_rb,0.94388e+03_rb,0.94646e+03_rb,0.94851e+03_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.93537e+03_rb,0.93955e+03_rb,0.94287e+03_rb,0.94565e+03_rb,0.94789e+03_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.93380e+03_rb,0.93820e+03_rb,0.94186e+03_rb,0.94483e+03_rb,0.94722e+03_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.93205e+03_rb,0.93688e+03_rb,0.94080e+03_rb,0.94394e+03_rb,0.94652e+03_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.92997e+03_rb,0.93554e+03_rb,0.93969e+03_rb,0.94299e+03_rb,0.94574e+03_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.92808e+03_rb,0.93414e+03_rb,0.93844e+03_rb,0.94204e+03_rb,0.94498e+03_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.92793e+03_rb,0.93341e+03_rb,0.93792e+03_rb,0.94165e+03_rb,0.94465e+03_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.98036e+03_rb,0.98526e+03_rb,0.98973e+03_rb,0.99279e+03_rb,0.99468e+03_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.98067e+03_rb,0.98568e+03_rb,0.99005e+03_rb,0.99301e+03_rb,0.99477e+03_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.98125e+03_rb,0.98614e+03_rb,0.99040e+03_rb,0.99324e+03_rb,0.99485e+03_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.98185e+03_rb,0.98662e+03_rb,0.99076e+03_rb,0.99348e+03_rb,0.99493e+03_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.98242e+03_rb,0.98721e+03_rb,0.99109e+03_rb,0.99369e+03_rb,0.99498e+03_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.98296e+03_rb,0.98755e+03_rb,0.99141e+03_rb,0.99390e+03_rb,0.99502e+03_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.98350e+03_rb,0.98800e+03_rb,0.99172e+03_rb,0.99408e+03_rb,0.99505e+03_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.98411e+03_rb,0.98852e+03_rb,0.99205e+03_rb,0.99428e+03_rb,0.99507e+03_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.98464e+03_rb,0.98894e+03_rb,0.99238e+03_rb,0.99447e+03_rb,0.99496e+03_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.98547e+03_rb,0.98983e+03_rb,0.99286e+03_rb,0.99470e+03_rb,0.99509e+03_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.98617e+03_rb,0.99062e+03_rb,0.99331e+03_rb,0.99487e+03_rb,0.99508e+03_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.98718e+03_rb,0.99115e+03_rb,0.99373e+03_rb,0.99499e+03_rb,0.99503e+03_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.98813e+03_rb,0.99180e+03_rb,0.99413e+03_rb,0.99494e+03_rb,0.99492e+03_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.98918e+03_rb,0.99244e+03_rb,0.99450e+03_rb,0.99508e+03_rb,0.99475e+03_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.99010e+03_rb,0.99304e+03_rb,0.99478e+03_rb,0.99509e+03_rb,0.99499e+03_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.99090e+03_rb,0.99357e+03_rb,0.99495e+03_rb,0.99505e+03_rb,0.99433e+03_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.99167e+03_rb,0.99393e+03_rb,0.99505e+03_rb,0.99495e+03_rb,0.99385e+03_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.99249e+03_rb,0.99447e+03_rb,0.99508e+03_rb,0.99477e+03_rb,0.99348e+03_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.99290e+03_rb,0.99477e+03_rb,0.99509e+03_rb,0.99452e+03_rb,0.99326e+03_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.99360e+03_rb,0.99496e+03_rb,0.99505e+03_rb,0.99419e+03_rb,0.99287e+03_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.99410e+03_rb,0.99506e+03_rb,0.99493e+03_rb,0.99381e+03_rb,0.99210e+03_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.99447e+03_rb,0.99508e+03_rb,0.99465e+03_rb,0.99347e+03_rb,0.99121e+03_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.99453e+03_rb,0.99509e+03_rb,0.99465e+03_rb,0.99330e+03_rb,0.99083e+03_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.99467e+03_rb,0.99509e+03_rb,0.99463e+03_rb,0.99327e+03_rb,0.98992e+03_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.99451e+03_rb,0.99508e+03_rb,0.99475e+03_rb,0.99344e+03_rb,0.99124e+03_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.99429e+03_rb,0.99507e+03_rb,0.99486e+03_rb,0.99365e+03_rb,0.99174e+03_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.99405e+03_rb,0.99505e+03_rb,0.99495e+03_rb,0.99373e+03_rb,0.99219e+03_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.99347e+03_rb,0.99496e+03_rb,0.99505e+03_rb,0.99420e+03_rb,0.99289e+03_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.99302e+03_rb,0.99477e+03_rb,0.99509e+03_rb,0.99452e+03_rb,0.99315e+03_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.99237e+03_rb,0.99435e+03_rb,0.99508e+03_rb,0.99477e+03_rb,0.99348e+03_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.99148e+03_rb,0.99394e+03_rb,0.99491e+03_rb,0.99498e+03_rb,0.99395e+03_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.99040e+03_rb,0.99324e+03_rb,0.99485e+03_rb,0.99508e+03_rb,0.99453e+03_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.98910e+03_rb,0.99241e+03_rb,0.99449e+03_rb,0.99508e+03_rb,0.99476e+03_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.98735e+03_rb,0.99138e+03_rb,0.99388e+03_rb,0.99490e+03_rb,0.99500e+03_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.98565e+03_rb,0.99006e+03_rb,0.99301e+03_rb,0.99477e+03_rb,0.99509e+03_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.98383e+03_rb,0.98834e+03_rb,0.99196e+03_rb,0.99423e+03_rb,0.99507e+03_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.98174e+03_rb,0.98651e+03_rb,0.99073e+03_rb,0.99346e+03_rb,0.99492e+03_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.97955e+03_rb,0.98480e+03_rb,0.98924e+03_rb,0.99257e+03_rb,0.99470e+03_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.97755e+03_rb,0.98298e+03_rb,0.98767e+03_rb,0.99154e+03_rb,0.99399e+03_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.97554e+03_rb,0.98111e+03_rb,0.98597e+03_rb,0.99036e+03_rb,0.99323e+03_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.97320e+03_rb,0.97892e+03_rb,0.98413e+03_rb,0.98888e+03_rb,0.99232e+03_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.97086e+03_rb,0.97720e+03_rb,0.98263e+03_rb,0.98733e+03_rb,0.99135e+03_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.96881e+03_rb,0.97539e+03_rb,0.98096e+03_rb,0.98583e+03_rb,0.99029e+03_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.96735e+03_rb,0.97336e+03_rb,0.97906e+03_rb,0.98435e+03_rb,0.98900e+03_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.96407e+03_rb,0.97115e+03_rb,0.97740e+03_rb,0.98282e+03_rb,0.98752e+03_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.96154e+03_rb,0.96893e+03_rb,0.97574e+03_rb,0.98129e+03_rb,0.98611e+03_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.95571e+03_rb,0.96861e+03_rb,0.97503e+03_rb,0.98063e+03_rb,0.98557e+03_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.98771e+03_rb,0.99296e+03_rb,0.99655e+03_rb,0.99859e+03_rb,0.99936e+03_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.98850e+03_rb,0.99335e+03_rb,0.99679e+03_rb,0.99871e+03_rb,0.99939e+03_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.98905e+03_rb,0.99377e+03_rb,0.99705e+03_rb,0.99882e+03_rb,0.99942e+03_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.98962e+03_rb,0.99419e+03_rb,0.99730e+03_rb,0.99893e+03_rb,0.99945e+03_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.99016e+03_rb,0.99444e+03_rb,0.99754e+03_rb,0.99903e+03_rb,0.99947e+03_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.99067e+03_rb,0.99497e+03_rb,0.99775e+03_rb,0.99911e+03_rb,0.99948e+03_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.99117e+03_rb,0.99532e+03_rb,0.99795e+03_rb,0.99918e+03_rb,0.99949e+03_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.99173e+03_rb,0.99572e+03_rb,0.99816e+03_rb,0.99924e+03_rb,0.99949e+03_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.99228e+03_rb,0.99610e+03_rb,0.99835e+03_rb,0.99929e+03_rb,0.99946e+03_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.99309e+03_rb,0.99663e+03_rb,0.99862e+03_rb,0.99936e+03_rb,0.99953e+03_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.99388e+03_rb,0.99698e+03_rb,0.99900e+03_rb,0.99942e+03_rb,0.99925e+03_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.99466e+03_rb,0.99758e+03_rb,0.99904e+03_rb,0.99947e+03_rb,0.99905e+03_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.99542e+03_rb,0.99800e+03_rb,0.99919e+03_rb,0.99963e+03_rb,0.99878e+03_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.99618e+03_rb,0.99839e+03_rb,0.99930e+03_rb,0.99945e+03_rb,0.99847e+03_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.99683e+03_rb,0.99872e+03_rb,0.99939e+03_rb,0.99934e+03_rb,0.99751e+03_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.99741e+03_rb,0.99897e+03_rb,0.99946e+03_rb,0.99913e+03_rb,0.99749e+03_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.99792e+03_rb,0.99917e+03_rb,0.99949e+03_rb,0.99884e+03_rb,0.99707e+03_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.99821e+03_rb,0.99929e+03_rb,0.99946e+03_rb,0.99850e+03_rb,0.99637e+03_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.99871e+03_rb,0.99938e+03_rb,0.99949e+03_rb,0.99810e+03_rb,0.99532e+03_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.99899e+03_rb,0.99961e+03_rb,0.99926e+03_rb,0.99761e+03_rb,0.99460e+03_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.99918e+03_rb,0.99949e+03_rb,0.99880e+03_rb,0.99700e+03_rb,0.99413e+03_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.99929e+03_rb,0.99946e+03_rb,0.99850e+03_rb,0.99635e+03_rb,0.99329e+03_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.99934e+03_rb,0.99941e+03_rb,0.99830e+03_rb,0.99590e+03_rb,0.99292e+03_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.99935e+03_rb,0.99940e+03_rb,0.99826e+03_rb,0.99583e+03_rb,0.99287e+03_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.99930e+03_rb,0.99946e+03_rb,0.99846e+03_rb,0.99628e+03_rb,0.99327e+03_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.99924e+03_rb,0.99949e+03_rb,0.99866e+03_rb,0.99670e+03_rb,0.99350e+03_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.99917e+03_rb,0.99949e+03_rb,0.99899e+03_rb,0.99707e+03_rb,0.99451e+03_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.99898e+03_rb,0.99946e+03_rb,0.99913e+03_rb,0.99777e+03_rb,0.99505e+03_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.99871e+03_rb,0.99939e+03_rb,0.99935e+03_rb,0.99810e+03_rb,0.99546e+03_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.99835e+03_rb,0.99929e+03_rb,0.99947e+03_rb,0.99851e+03_rb,0.99637e+03_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.99780e+03_rb,0.99913e+03_rb,0.99949e+03_rb,0.99893e+03_rb,0.99722e+03_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.99704e+03_rb,0.99882e+03_rb,0.99942e+03_rb,0.99928e+03_rb,0.99778e+03_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.99613e+03_rb,0.99837e+03_rb,0.99930e+03_rb,0.99947e+03_rb,0.99849e+03_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.99492e+03_rb,0.99787e+03_rb,0.99911e+03_rb,0.99949e+03_rb,0.99897e+03_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.99335e+03_rb,0.99679e+03_rb,0.99871e+03_rb,0.99939e+03_rb,0.99936e+03_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.99156e+03_rb,0.99560e+03_rb,0.99810e+03_rb,0.99923e+03_rb,0.99951e+03_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.98955e+03_rb,0.99414e+03_rb,0.99727e+03_rb,0.99894e+03_rb,0.99946e+03_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.98749e+03_rb,0.99256e+03_rb,0.99630e+03_rb,0.99847e+03_rb,0.99918e+03_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.98496e+03_rb,0.99085e+03_rb,0.99509e+03_rb,0.99784e+03_rb,0.99916e+03_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.98304e+03_rb,0.98897e+03_rb,0.99370e+03_rb,0.99701e+03_rb,0.99883e+03_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.98104e+03_rb,0.98693e+03_rb,0.99213e+03_rb,0.99600e+03_rb,0.99833e+03_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.97906e+03_rb,0.98440e+03_rb,0.99053e+03_rb,0.99485e+03_rb,0.99771e+03_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.97789e+03_rb,0.98286e+03_rb,0.98886e+03_rb,0.99361e+03_rb,0.99696e+03_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.97514e+03_rb,0.98117e+03_rb,0.98708e+03_rb,0.99224e+03_rb,0.99622e+03_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.97242e+03_rb,0.97945e+03_rb,0.98472e+03_rb,0.99072e+03_rb,0.99500e+03_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.96969e+03_rb,0.97814e+03_rb,0.98316e+03_rb,0.98916e+03_rb,0.99384e+03_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.96859e+03_rb,0.97725e+03_rb,0.98261e+03_rb,0.98851e+03_rb,0.99335e+03_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.99768e+03_rb,0.99984e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10029e+04_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.99795e+03_rb,0.99992e+03_rb,0.10011e+04_rb,0.10025e+04_rb,0.10029e+04_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.99880e+03_rb,0.99996e+03_rb,0.10013e+04_rb,0.10026e+04_rb,0.10031e+04_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.99852e+03_rb,0.10003e+04_rb,0.10015e+04_rb,0.10028e+04_rb,0.10029e+04_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.99876e+03_rb,0.10000e+04_rb,0.10016e+04_rb,0.10027e+04_rb,0.10029e+04_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.99898e+03_rb,0.10001e+04_rb,0.10018e+04_rb,0.10028e+04_rb,0.10028e+04_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.99918e+03_rb,0.10003e+04_rb,0.10021e+04_rb,0.10028e+04_rb,0.10028e+04_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.99940e+03_rb,0.10005e+04_rb,0.10026e+04_rb,0.10029e+04_rb,0.10031e+04_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.99959e+03_rb,0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.99984e+03_rb,0.10010e+04_rb,0.10024e+04_rb,0.10030e+04_rb,0.10023e+04_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.99996e+03_rb,0.10013e+04_rb,0.10024e+04_rb,0.10029e+04_rb,0.10025e+04_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.10000e+04_rb,0.10016e+04_rb,0.10029e+04_rb,0.10029e+04_rb,0.10023e+04_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.10003e+04_rb,0.10023e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10019e+04_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.10012e+04_rb,0.10025e+04_rb,0.10031e+04_rb,0.10024e+04_rb,0.10010e+04_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.10015e+04_rb,0.10027e+04_rb,0.10029e+04_rb,0.10022e+04_rb,0.10005e+04_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.10019e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10019e+04_rb,0.99992e+03_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10017e+04_rb,0.99965e+03_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.10025e+04_rb,0.10030e+04_rb,0.10022e+04_rb,0.10011e+04_rb,0.99843e+03_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.10027e+04_rb,0.10029e+04_rb,0.10020e+04_rb,0.10007e+04_rb,0.99748e+03_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.10029e+04_rb,0.10028e+04_rb,0.10021e+04_rb,0.10000e+04_rb,0.99658e+03_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.10031e+04_rb,0.10026e+04_rb,0.10017e+04_rb,0.99945e+03_rb,0.99563e+03_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.10030e+04_rb,0.10025e+04_rb,0.10031e+04_rb,0.99888e+03_rb,0.99496e+03_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.10030e+04_rb,0.10025e+04_rb,0.10020e+04_rb,0.99880e+03_rb,0.99482e+03_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb,0.99939e+03_rb,0.99547e+03_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.10029e+04_rb,0.10027e+04_rb,0.10017e+04_rb,0.99958e+03_rb,0.99634e+03_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.10028e+04_rb,0.10028e+04_rb,0.10017e+04_rb,0.99993e+03_rb,0.99613e+03_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.10027e+04_rb,0.10029e+04_rb,0.10022e+04_rb,0.10003e+04_rb,0.99696e+03_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.10027e+04_rb,0.10029e+04_rb,0.10024e+04_rb,0.10013e+04_rb,0.99857e+03_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.10022e+04_rb,0.10029e+04_rb,0.10028e+04_rb,0.10021e+04_rb,0.99929e+03_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.10018e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10020e+04_rb,0.10001e+04_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.10013e+04_rb,0.10026e+04_rb,0.10029e+04_rb,0.10023e+04_rb,0.10016e+04_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.10007e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10026e+04_rb,0.10015e+04_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.10014e+04_rb,0.10016e+04_rb,0.10028e+04_rb,0.10028e+04_rb,0.10020e+04_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.99993e+03_rb,0.10012e+04_rb,0.10025e+04_rb,0.10029e+04_rb,0.10024e+04_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.99937e+03_rb,0.10005e+04_rb,0.10022e+04_rb,0.10029e+04_rb,0.10027e+04_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.99853e+03_rb,0.10002e+04_rb,0.10015e+04_rb,0.10026e+04_rb,0.10029e+04_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.99741e+03_rb,0.99993e+03_rb,0.10008e+04_rb,0.10023e+04_rb,0.10029e+04_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.99665e+03_rb,0.99912e+03_rb,0.10002e+04_rb,0.10018e+04_rb,0.10028e+04_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.99385e+03_rb,0.99826e+03_rb,0.10000e+04_rb,0.10013e+04_rb,0.10025e+04_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.99099e+03_rb,0.99714e+03_rb,0.99965e+03_rb,0.10007e+04_rb,0.10022e+04_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.98826e+03_rb,0.99612e+03_rb,0.99903e+03_rb,0.10002e+04_rb,0.10018e+04_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.98397e+03_rb,0.99379e+03_rb,0.99822e+03_rb,0.10000e+04_rb,0.10013e+04_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.98006e+03_rb,0.99120e+03_rb,0.99722e+03_rb,0.99969e+03_rb,0.10006e+04_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.97631e+03_rb,0.98840e+03_rb,0.99624e+03_rb,0.99911e+03_rb,0.10002e+04_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.97279e+03_rb,0.98508e+03_rb,0.99422e+03_rb,0.99838e+03_rb,0.10001e+04_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.97171e+03_rb,0.98327e+03_rb,0.99315e+03_rb,0.99818e+03_rb,0.99997e+03_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.99623e+03_rb,0.99978e+03_rb,0.10034e+04_rb,0.10050e+04_rb,0.10054e+04_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.99674e+03_rb,0.10002e+04_rb,0.10034e+04_rb,0.10050e+04_rb,0.10053e+04_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.99652e+03_rb,0.10007e+04_rb,0.10036e+04_rb,0.10051e+04_rb,0.10051e+04_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.99785e+03_rb,0.10007e+04_rb,0.10039e+04_rb,0.10049e+04_rb,0.10053e+04_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.99816e+03_rb,0.10017e+04_rb,0.10043e+04_rb,0.10052e+04_rb,0.10052e+04_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.99792e+03_rb,0.10021e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10051e+04_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.99826e+03_rb,0.10023e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10051e+04_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.99869e+03_rb,0.10028e+04_rb,0.10038e+04_rb,0.10053e+04_rb,0.10044e+04_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.99914e+03_rb,0.10028e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.99989e+03_rb,0.10035e+04_rb,0.10050e+04_rb,0.10053e+04_rb,0.10046e+04_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.10011e+04_rb,0.10037e+04_rb,0.10051e+04_rb,0.10053e+04_rb,0.10041e+04_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.10018e+04_rb,0.10041e+04_rb,0.10050e+04_rb,0.10052e+04_rb,0.10037e+04_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.10026e+04_rb,0.10040e+04_rb,0.10056e+04_rb,0.10050e+04_rb,0.10036e+04_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.10031e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10050e+04_rb,0.10030e+04_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.10047e+04_rb,0.10050e+04_rb,0.10051e+04_rb,0.10045e+04_rb,0.10025e+04_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.10039e+04_rb,0.10052e+04_rb,0.10052e+04_rb,0.10041e+04_rb,0.10018e+04_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.10044e+04_rb,0.10053e+04_rb,0.10051e+04_rb,0.10037e+04_rb,0.10011e+04_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb,0.10029e+04_rb,0.99977e+03_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.10050e+04_rb,0.10053e+04_rb,0.10045e+04_rb,0.10025e+04_rb,0.99968e+03_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.10052e+04_rb,0.10050e+04_rb,0.10041e+04_rb,0.10015e+04_rb,0.99880e+03_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.10053e+04_rb,0.10050e+04_rb,0.10033e+04_rb,0.10008e+04_rb,0.99675e+03_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.10051e+04_rb,0.10048e+04_rb,0.10028e+04_rb,0.10000e+04_rb,0.99529e+03_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.10054e+04_rb,0.10047e+04_rb,0.10003e+04_rb,0.99992e+03_rb,0.99481e+03_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.10054e+04_rb,0.10046e+04_rb,0.10017e+04_rb,0.99987e+03_rb,0.99445e+03_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.10054e+04_rb,0.10048e+04_rb,0.10030e+04_rb,0.99995e+03_rb,0.99517e+03_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.10054e+04_rb,0.10049e+04_rb,0.10034e+04_rb,0.10006e+04_rb,0.99603e+03_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.10053e+04_rb,0.10051e+04_rb,0.10037e+04_rb,0.10011e+04_rb,0.99693e+03_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.10052e+04_rb,0.10052e+04_rb,0.10041e+04_rb,0.10018e+04_rb,0.99860e+03_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.10048e+04_rb,0.10053e+04_rb,0.10045e+04_rb,0.10023e+04_rb,0.99951e+03_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.10048e+04_rb,0.10054e+04_rb,0.10046e+04_rb,0.10024e+04_rb,0.10003e+04_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.10043e+04_rb,0.10053e+04_rb,0.10051e+04_rb,0.10038e+04_rb,0.10013e+04_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.10036e+04_rb,0.10051e+04_rb,0.10053e+04_rb,0.10044e+04_rb,0.10012e+04_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.10028e+04_rb,0.10048e+04_rb,0.10054e+04_rb,0.10048e+04_rb,0.10031e+04_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.10008e+04_rb,0.10042e+04_rb,0.10053e+04_rb,0.10052e+04_rb,0.10038e+04_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.10002e+04_rb,0.10039e+04_rb,0.10050e+04_rb,0.10053e+04_rb,0.10045e+04_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.99859e+03_rb,0.10025e+04_rb,0.10043e+04_rb,0.10054e+04_rb,0.10050e+04_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.99776e+03_rb,0.10009e+04_rb,0.10041e+04_rb,0.10052e+04_rb,0.10053e+04_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.99565e+03_rb,0.99944e+03_rb,0.10034e+04_rb,0.10049e+04_rb,0.10054e+04_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.99271e+03_rb,0.99811e+03_rb,0.10022e+04_rb,0.10043e+04_rb,0.10053e+04_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.99056e+03_rb,0.99717e+03_rb,0.10006e+04_rb,0.10036e+04_rb,0.10051e+04_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.98830e+03_rb,0.99502e+03_rb,0.99909e+03_rb,0.10028e+04_rb,0.10048e+04_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.98610e+03_rb,0.99275e+03_rb,0.99821e+03_rb,0.10021e+04_rb,0.10042e+04_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.98386e+03_rb,0.99045e+03_rb,0.99729e+03_rb,0.10008e+04_rb,0.10038e+04_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.98150e+03_rb,0.98846e+03_rb,0.99517e+03_rb,0.99919e+03_rb,0.10028e+04_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.97902e+03_rb,0.98636e+03_rb,0.99303e+03_rb,0.99832e+03_rb,0.10022e+04_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.97656e+03_rb,0.98426e+03_rb,0.99079e+03_rb,0.99735e+03_rb,0.10008e+04_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.97503e+03_rb,0.98337e+03_rb,0.99004e+03_rb,0.99647e+03_rb,0.10002e+04_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.99596e+03_rb,0.10023e+04_rb,0.10047e+04_rb,0.10067e+04_rb,0.10072e+04_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.99625e+03_rb,0.10024e+04_rb,0.10052e+04_rb,0.10068e+04_rb,0.10071e+04_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.99662e+03_rb,0.10025e+04_rb,0.10054e+04_rb,0.10069e+04_rb,0.10071e+04_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.99703e+03_rb,0.10026e+04_rb,0.10056e+04_rb,0.10070e+04_rb,0.10070e+04_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.99784e+03_rb,0.10032e+04_rb,0.10054e+04_rb,0.10071e+04_rb,0.10070e+04_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.99947e+03_rb,0.10032e+04_rb,0.10060e+04_rb,0.10071e+04_rb,0.10069e+04_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.10001e+04_rb,0.10036e+04_rb,0.10062e+04_rb,0.10071e+04_rb,0.10068e+04_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.10009e+04_rb,0.10037e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10067e+04_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.10015e+04_rb,0.10046e+04_rb,0.10065e+04_rb,0.10072e+04_rb,0.10065e+04_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.10023e+04_rb,0.10047e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10063e+04_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.10021e+04_rb,0.10055e+04_rb,0.10069e+04_rb,0.10071e+04_rb,0.10060e+04_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.10028e+04_rb,0.10059e+04_rb,0.10071e+04_rb,0.10069e+04_rb,0.10057e+04_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.10033e+04_rb,0.10062e+04_rb,0.10068e+04_rb,0.10068e+04_rb,0.10052e+04_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.10043e+04_rb,0.10066e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10047e+04_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.10033e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.10057e+04_rb,0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10036e+04_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.10062e+04_rb,0.10075e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10030e+04_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.10065e+04_rb,0.10072e+04_rb,0.10069e+04_rb,0.10048e+04_rb,0.10022e+04_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb,0.10014e+04_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10035e+04_rb,0.99925e+03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.10071e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10029e+04_rb,0.99808e+03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb,0.10021e+04_rb,0.99788e+03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.10072e+04_rb,0.10064e+04_rb,0.10045e+04_rb,0.10016e+04_rb,0.99700e+03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.10072e+04_rb,0.10063e+04_rb,0.10044e+04_rb,0.10015e+04_rb,0.99731e+03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.10072e+04_rb,0.10065e+04_rb,0.10047e+04_rb,0.10021e+04_rb,0.99778e+03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.10072e+04_rb,0.10067e+04_rb,0.10050e+04_rb,0.10026e+04_rb,0.99820e+03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.10071e+04_rb,0.10068e+04_rb,0.10053e+04_rb,0.10030e+04_rb,0.99855e+03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.10070e+04_rb,0.10070e+04_rb,0.10058e+04_rb,0.10036e+04_rb,0.99965e+03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb,0.10042e+04_rb,0.10010e+04_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.10065e+04_rb,0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb,0.10022e+04_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.10061e+04_rb,0.10071e+04_rb,0.10069e+04_rb,0.10055e+04_rb,0.10031e+04_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.10054e+04_rb,0.10069e+04_rb,0.10071e+04_rb,0.10061e+04_rb,0.10039e+04_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.10046e+04_rb,0.10066e+04_rb,0.10072e+04_rb,0.10065e+04_rb,0.10048e+04_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.10023e+04_rb,0.10060e+04_rb,0.10075e+04_rb,0.10069e+04_rb,0.10055e+04_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.10024e+04_rb,0.10044e+04_rb,0.10068e+04_rb,0.10071e+04_rb,0.10062e+04_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.10006e+04_rb,0.10039e+04_rb,0.10063e+04_rb,0.10072e+04_rb,0.10067e+04_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.99705e+03_rb,0.10026e+04_rb,0.10052e+04_rb,0.10070e+04_rb,0.10070e+04_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.99574e+03_rb,0.10014e+04_rb,0.10040e+04_rb,0.10066e+04_rb,0.10072e+04_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.99447e+03_rb,0.99966e+03_rb,0.10033e+04_rb,0.10065e+04_rb,0.10071e+04_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.99299e+03_rb,0.99670e+03_rb,0.10025e+04_rb,0.10054e+04_rb,0.10069e+04_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.99138e+03_rb,0.99552e+03_rb,0.10013e+04_rb,0.10044e+04_rb,0.10065e+04_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.98979e+03_rb,0.99462e+03_rb,0.99874e+03_rb,0.10030e+04_rb,0.10060e+04_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.98814e+03_rb,0.99291e+03_rb,0.99630e+03_rb,0.10029e+04_rb,0.10050e+04_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.98639e+03_rb,0.99150e+03_rb,0.99562e+03_rb,0.10014e+04_rb,0.10045e+04_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.98454e+03_rb,0.98998e+03_rb,0.99438e+03_rb,0.99904e+03_rb,0.10032e+04_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.98268e+03_rb,0.98844e+03_rb,0.99315e+03_rb,0.99688e+03_rb,0.10025e+04_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.98190e+03_rb,0.98779e+03_rb,0.99262e+03_rb,0.99638e+03_rb,0.10024e+04_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.99739e+03_rb,0.10017e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.99781e+03_rb,0.10021e+04_rb,0.10065e+04_rb,0.10077e+04_rb,0.10090e+04_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.99827e+03_rb,0.10029e+04_rb,0.10067e+04_rb,0.10077e+04_rb,0.10079e+04_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.99875e+03_rb,0.10040e+04_rb,0.10068e+04_rb,0.10078e+04_rb,0.10089e+04_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.99816e+03_rb,0.10041e+04_rb,0.10080e+04_rb,0.10079e+04_rb,0.10078e+04_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.99861e+03_rb,0.10065e+04_rb,0.10071e+04_rb,0.10090e+04_rb,0.10078e+04_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.10001e+04_rb,0.10056e+04_rb,0.10072e+04_rb,0.10079e+04_rb,0.10077e+04_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.99952e+03_rb,0.10059e+04_rb,0.10074e+04_rb,0.10090e+04_rb,0.10087e+04_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.10000e+04_rb,0.10061e+04_rb,0.10085e+04_rb,0.10080e+04_rb,0.10085e+04_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.10012e+04_rb,0.10064e+04_rb,0.10076e+04_rb,0.10090e+04_rb,0.10073e+04_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.10032e+04_rb,0.10067e+04_rb,0.10088e+04_rb,0.10079e+04_rb,0.10070e+04_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.10052e+04_rb,0.10070e+04_rb,0.10079e+04_rb,0.10089e+04_rb,0.10067e+04_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.10057e+04_rb,0.10083e+04_rb,0.10079e+04_rb,0.10098e+04_rb,0.10062e+04_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.10061e+04_rb,0.10085e+04_rb,0.10080e+04_rb,0.10075e+04_rb,0.10068e+04_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.10066e+04_rb,0.10087e+04_rb,0.10111e+04_rb,0.10072e+04_rb,0.10051e+04_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.10069e+04_rb,0.10089e+04_rb,0.10079e+04_rb,0.10068e+04_rb,0.10054e+04_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.10072e+04_rb,0.10069e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10034e+04_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.10075e+04_rb,0.10111e+04_rb,0.10075e+04_rb,0.10068e+04_rb,0.10088e+04_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.10077e+04_rb,0.10080e+04_rb,0.10072e+04_rb,0.10061e+04_rb,0.10007e+04_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.10078e+04_rb,0.10089e+04_rb,0.10068e+04_rb,0.10043e+04_rb,0.10013e+04_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.10079e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10044e+04_rb,0.10009e+04_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.10090e+04_rb,0.10075e+04_rb,0.10058e+04_rb,0.10025e+04_rb,0.10002e+04_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.10080e+04_rb,0.10073e+04_rb,0.10054e+04_rb,0.10021e+04_rb,0.99972e+03_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.10090e+04_rb,0.10073e+04_rb,0.10054e+04_rb,0.10020e+04_rb,0.99964e+03_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.10080e+04_rb,0.10075e+04_rb,0.10057e+04_rb,0.10024e+04_rb,0.10001e+04_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.10090e+04_rb,0.10076e+04_rb,0.10060e+04_rb,0.10040e+04_rb,0.10006e+04_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.10079e+04_rb,0.10077e+04_rb,0.10063e+04_rb,0.10034e+04_rb,0.10010e+04_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.10089e+04_rb,0.10089e+04_rb,0.10068e+04_rb,0.10054e+04_rb,0.10014e+04_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.10087e+04_rb,0.10090e+04_rb,0.10082e+04_rb,0.10051e+04_rb,0.10018e+04_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.10085e+04_rb,0.10090e+04_rb,0.10075e+04_rb,0.10058e+04_rb,0.10025e+04_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.10071e+04_rb,0.10079e+04_rb,0.10078e+04_rb,0.10086e+04_rb,0.10037e+04_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.10067e+04_rb,0.10088e+04_rb,0.10079e+04_rb,0.10071e+04_rb,0.10048e+04_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.10061e+04_rb,0.10075e+04_rb,0.10090e+04_rb,0.10096e+04_rb,0.10057e+04_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.10054e+04_rb,0.10071e+04_rb,0.10068e+04_rb,0.10078e+04_rb,0.10065e+04_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.10020e+04_rb,0.10065e+04_rb,0.10087e+04_rb,0.10079e+04_rb,0.10093e+04_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.99938e+03_rb,0.10058e+04_rb,0.10073e+04_rb,0.10079e+04_rb,0.10087e+04_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.99869e+03_rb,0.10038e+04_rb,0.10079e+04_rb,0.10099e+04_rb,0.10089e+04_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.99593e+03_rb,0.10003e+04_rb,0.10062e+04_rb,0.10075e+04_rb,0.10090e+04_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.99417e+03_rb,0.99877e+03_rb,0.10055e+04_rb,0.10061e+04_rb,0.10090e+04_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.99334e+03_rb,0.99717e+03_rb,0.10030e+04_rb,0.10077e+04_rb,0.10077e+04_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.99034e+03_rb,0.99548e+03_rb,0.99989e+03_rb,0.10071e+04_rb,0.10085e+04_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.98844e+03_rb,0.99385e+03_rb,0.99849e+03_rb,0.10064e+04_rb,0.10081e+04_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.98654e+03_rb,0.99323e+03_rb,0.99708e+03_rb,0.10005e+04_rb,0.10066e+04_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.98558e+03_rb,0.99048e+03_rb,0.99560e+03_rb,0.99999e+03_rb,0.10071e+04_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.98349e+03_rb,0.98867e+03_rb,0.99404e+03_rb,0.99866e+03_rb,0.10054e+04_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.98039e+03_rb,0.98688e+03_rb,0.99250e+03_rb,0.99837e+03_rb,0.10028e+04_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.97954e+03_rb,0.98614e+03_rb,0.99186e+03_rb,0.99679e+03_rb,0.10019e+04_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.98905e+03_rb,0.99319e+03_rb,0.10065e+04_rb,0.10075e+04_rb,0.10080e+04_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.98947e+03_rb,0.10009e+04_rb,0.10067e+04_rb,0.10076e+04_rb,0.10005e+04_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.98993e+03_rb,0.10052e+04_rb,0.10068e+04_rb,0.10076e+04_rb,0.10080e+04_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.99040e+03_rb,0.10054e+04_rb,0.10069e+04_rb,0.10077e+04_rb,0.10005e+04_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.99823e+03_rb,0.10056e+04_rb,0.99955e+03_rb,0.10078e+04_rb,0.10080e+04_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.99867e+03_rb,0.99832e+03_rb,0.10071e+04_rb,0.10003e+04_rb,0.10079e+04_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.99168e+03_rb,0.10059e+04_rb,0.10072e+04_rb,0.10078e+04_rb,0.10079e+04_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.99955e+03_rb,0.10061e+04_rb,0.10073e+04_rb,0.99297e+03_rb,0.10003e+04_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.10000e+04_rb,0.10063e+04_rb,0.99994e+03_rb,0.10079e+04_rb,0.10002e+04_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.10007e+04_rb,0.10066e+04_rb,0.10075e+04_rb,0.10005e+04_rb,0.10075e+04_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.10052e+04_rb,0.10068e+04_rb,0.10002e+04_rb,0.10080e+04_rb,0.10072e+04_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.10056e+04_rb,0.10070e+04_rb,0.10078e+04_rb,0.10005e+04_rb,0.10068e+04_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.10060e+04_rb,0.99977e+03_rb,0.10079e+04_rb,0.99294e+03_rb,0.10064e+04_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.10064e+04_rb,0.99996e+03_rb,0.10080e+04_rb,0.10077e+04_rb,0.99839e+03_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.10067e+04_rb,0.10001e+04_rb,0.98561e+03_rb,0.10074e+04_rb,0.10052e+04_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.10069e+04_rb,0.10003e+04_rb,0.10080e+04_rb,0.10070e+04_rb,0.99700e+03_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.10072e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.10065e+04_rb,0.10036e+04_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.10074e+04_rb,0.98555e+03_rb,0.10002e+04_rb,0.99845e+03_rb,0.95900e+03_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.10076e+04_rb,0.10080e+04_rb,0.10074e+04_rb,0.99776e+03_rb,0.10037e+04_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.10077e+04_rb,0.10005e+04_rb,0.10070e+04_rb,0.10044e+04_rb,0.10038e+04_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.10079e+04_rb,0.10079e+04_rb,0.10064e+04_rb,0.99602e+03_rb,0.10038e+04_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.10005e+04_rb,0.10077e+04_rb,0.10059e+04_rb,0.10036e+04_rb,0.10037e+04_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.10080e+04_rb,0.10075e+04_rb,0.10055e+04_rb,0.10037e+04_rb,0.10036e+04_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.10005e+04_rb,0.10075e+04_rb,0.10055e+04_rb,0.10037e+04_rb,0.10036e+04_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.10080e+04_rb,0.10077e+04_rb,0.10058e+04_rb,0.10037e+04_rb,0.10037e+04_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.10004e+04_rb,0.10078e+04_rb,0.10062e+04_rb,0.99569e+03_rb,0.10037e+04_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.10078e+04_rb,0.10079e+04_rb,0.10065e+04_rb,0.10036e+04_rb,0.10038e+04_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.10003e+04_rb,0.10005e+04_rb,0.10070e+04_rb,0.99698e+03_rb,0.10038e+04_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.10001e+04_rb,0.10005e+04_rb,0.99992e+03_rb,0.10052e+04_rb,0.10037e+04_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.99994e+03_rb,0.10005e+04_rb,0.10077e+04_rb,0.10059e+04_rb,0.10036e+04_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.99172e+03_rb,0.10038e+04_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.10068e+04_rb,0.10002e+04_rb,0.10080e+04_rb,0.10072e+04_rb,0.10049e+04_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.10063e+04_rb,0.10074e+04_rb,0.10005e+04_rb,0.99276e+03_rb,0.10059e+04_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.10057e+04_rb,0.10071e+04_rb,0.10078e+04_rb,0.10079e+04_rb,0.10067e+04_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.10009e+04_rb,0.10067e+04_rb,0.10001e+04_rb,0.10080e+04_rb,0.99247e+03_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.99941e+03_rb,0.10061e+04_rb,0.10073e+04_rb,0.10079e+04_rb,0.10004e+04_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.99034e+03_rb,0.10054e+04_rb,0.99943e+03_rb,0.99276e+03_rb,0.10005e+04_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.99601e+03_rb,0.10003e+04_rb,0.10064e+04_rb,0.10074e+04_rb,0.10005e+04_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.99422e+03_rb,0.99882e+03_rb,0.10058e+04_rb,0.10071e+04_rb,0.10003e+04_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.98496e+03_rb,0.99726e+03_rb,0.10013e+04_rb,0.99930e+03_rb,0.10076e+04_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.99030e+03_rb,0.99555e+03_rb,0.99990e+03_rb,0.99882e+03_rb,0.99991e+03_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.98836e+03_rb,0.98653e+03_rb,0.99856e+03_rb,0.99827e+03_rb,0.99962e+03_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.98643e+03_rb,0.98485e+03_rb,0.99716e+03_rb,0.10012e+04_rb,0.10067e+04_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.97714e+03_rb,0.99044e+03_rb,0.99567e+03_rb,0.99999e+03_rb,0.99885e+03_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.97511e+03_rb,0.98860e+03_rb,0.99409e+03_rb,0.99872e+03_rb,0.10058e+04_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.98036e+03_rb,0.98678e+03_rb,0.99251e+03_rb,0.99003e+03_rb,0.10052e+04_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.97953e+03_rb,0.98603e+03_rb,0.99185e+03_rb,0.99687e+03_rb,0.10009e+04_rb /)\n     \n      end subroutine sw_kgb27\n\n! **************************************************************************\n      subroutine sw_kgb28\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg28, only : kao, kbo, sfluxrefo, &\n                            rayl, strrat, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:,1) = (/ &\n        & 1.06156_rb    , 0.599910_rb   , 0.422462_rb   , 0.400077_rb   , &\n        & 0.282221_rb   , 0.187893_rb   , 6.77357e-02_rb, 3.04572e-02_rb, &\n        & 2.00442e-02_rb, 2.30786e-03_rb, 2.08824e-03_rb, 1.42604e-03_rb, &\n        & 9.67384e-04_rb, 6.35362e-04_rb, 1.47727e-04_rb, 6.87639e-06_rb /)\n      sfluxrefo(:,2) = (/ &\n        & 1.07598_rb    , 0.585099_rb   , 0.422852_rb   , 0.400077_rb   , &\n        & 0.282221_rb   , 0.187893_rb   , 6.69686e-02_rb, 3.09070e-02_rb, &\n        & 2.02400e-02_rb, 2.47760e-03_rb, 1.89411e-03_rb, 1.41122e-03_rb, &\n        & 1.12449e-03_rb, 5.73505e-04_rb, 2.04160e-04_rb, 1.58371e-05_rb /)\n      sfluxrefo(:,3) = (/ &\n        & 0.461647_rb   , 0.406113_rb   , 0.332506_rb   , 0.307508_rb   , &\n        & 0.211167_rb   , 0.235457_rb   , 0.495886_rb   , 0.363921_rb   , &\n        & 0.192700_rb   , 2.04678e-02_rb, 1.55407e-02_rb, 1.03882e-02_rb, &\n        & 1.10778e-02_rb, 1.00504e-02_rb, 4.93497e-03_rb, 5.73410e-04_rb /)\n      sfluxrefo(:,4) = (/ &\n        & 0.132669_rb   , 0.175058_rb   , 0.359263_rb   , 0.388142_rb   , &\n        & 0.350359_rb   , 0.475892_rb   , 0.489593_rb   , 0.408437_rb   , &\n        & 0.221049_rb   , 1.94514e-02_rb, 1.54848e-02_rb, 1.44999e-02_rb, &\n        & 1.44568e-02_rb, 1.00527e-02_rb, 4.95897e-03_rb, 5.73327e-04_rb /)\n      sfluxrefo(:,5) = (/ &\n        & 7.54800e-02_rb, 0.232246_rb   , 0.359263_rb   , 0.388142_rb   , &\n        & 0.350359_rb   , 0.426317_rb   , 0.493485_rb   , 0.432016_rb   , &\n        & 0.239203_rb   , 1.74951e-02_rb, 1.74477e-02_rb, 1.83566e-02_rb, &\n        & 1.44818e-02_rb, 1.01048e-02_rb, 4.97487e-03_rb, 5.66831e-04_rb /)\n\n! Rayleigh extinction coefficient at v = ????? cm-1.\n      rayl = 2.02e-05_rb\n\n      strrat = 6.67029e-07_rb\n\n      layreffr = 58\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1, 1) = (/ &\n        & 0.46447e+02_rb,0.18001e+03_rb,0.31338e+03_rb,0.44652e+03_rb,0.54636e+03_rb, &\n        & 0.54173e+03_rb,0.45707e+03_rb,0.27363e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 1, 1) = (/ &\n        & 0.45270e+02_rb,0.17886e+03_rb,0.31225e+03_rb,0.44541e+03_rb,0.54177e+03_rb, &\n        & 0.53436e+03_rb,0.44932e+03_rb,0.26748e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 1, 1) = (/ &\n        & 0.44214e+02_rb,0.17776e+03_rb,0.31115e+03_rb,0.44427e+03_rb,0.53733e+03_rb, &\n        & 0.52756e+03_rb,0.44224e+03_rb,0.26195e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 1, 1) = (/ &\n        & 0.43259e+02_rb,0.17673e+03_rb,0.31005e+03_rb,0.44305e+03_rb,0.53298e+03_rb, &\n        & 0.52129e+03_rb,0.43574e+03_rb,0.25696e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 1, 1) = (/ &\n        & 0.42393e+02_rb,0.17575e+03_rb,0.30896e+03_rb,0.44173e+03_rb,0.52883e+03_rb, &\n        & 0.51548e+03_rb,0.42976e+03_rb,0.25242e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 2, 1) = (/ &\n        & 0.42908e+02_rb,0.17695e+03_rb,0.31077e+03_rb,0.44434e+03_rb,0.53161e+03_rb, &\n        & 0.51895e+03_rb,0.43332e+03_rb,0.25512e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 2, 1) = (/ &\n        & 0.41899e+02_rb,0.17596e+03_rb,0.30980e+03_rb,0.44336e+03_rb,0.52686e+03_rb, &\n        & 0.51213e+03_rb,0.42632e+03_rb,0.24984e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 2, 1) = (/ &\n        & 0.40995e+02_rb,0.17502e+03_rb,0.30884e+03_rb,0.44232e+03_rb,0.52230e+03_rb, &\n        & 0.50592e+03_rb,0.41995e+03_rb,0.24511e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 2, 1) = (/ &\n        & 0.40181e+02_rb,0.17412e+03_rb,0.30788e+03_rb,0.44119e+03_rb,0.51785e+03_rb, &\n        & 0.50025e+03_rb,0.41414e+03_rb,0.24085e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 2, 1) = (/ &\n        & 0.39443e+02_rb,0.17326e+03_rb,0.30691e+03_rb,0.43992e+03_rb,0.51364e+03_rb, &\n        & 0.49503e+03_rb,0.40882e+03_rb,0.23699e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 3, 1) = (/ &\n        & 0.40126e+02_rb,0.17457e+03_rb,0.30876e+03_rb,0.44248e+03_rb,0.51755e+03_rb, &\n        & 0.49986e+03_rb,0.41375e+03_rb,0.24056e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 3, 1) = (/ &\n        & 0.39240e+02_rb,0.17370e+03_rb,0.30792e+03_rb,0.44146e+03_rb,0.51254e+03_rb, &\n        & 0.49358e+03_rb,0.40735e+03_rb,0.23593e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 3, 1) = (/ &\n        & 0.38450e+02_rb,0.17288e+03_rb,0.30708e+03_rb,0.44031e+03_rb,0.50793e+03_rb, &\n        & 0.48786e+03_rb,0.40155e+03_rb,0.23179e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 3, 1) = (/ &\n        & 0.37740e+02_rb,0.17210e+03_rb,0.30624e+03_rb,0.43908e+03_rb,0.50368e+03_rb, &\n        & 0.48264e+03_rb,0.39629e+03_rb,0.22808e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 3, 1) = (/ &\n        & 0.37099e+02_rb,0.17134e+03_rb,0.30539e+03_rb,0.43781e+03_rb,0.49975e+03_rb, &\n        & 0.47787e+03_rb,0.39149e+03_rb,0.22473e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 4, 1) = (/ &\n        & 0.37818e+02_rb,0.17258e+03_rb,0.30708e+03_rb,0.43967e+03_rb,0.50412e+03_rb, &\n        & 0.48321e+03_rb,0.39687e+03_rb,0.22848e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 4, 1) = (/ &\n        & 0.37034e+02_rb,0.17183e+03_rb,0.30636e+03_rb,0.43833e+03_rb,0.49935e+03_rb, &\n        & 0.47738e+03_rb,0.39100e+03_rb,0.22439e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 4, 1) = (/ &\n        & 0.36338e+02_rb,0.17111e+03_rb,0.30564e+03_rb,0.43700e+03_rb,0.49496e+03_rb, &\n        & 0.47212e+03_rb,0.38572e+03_rb,0.22075e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 4, 1) = (/ &\n        & 0.35716e+02_rb,0.17043e+03_rb,0.30491e+03_rb,0.43569e+03_rb,0.49094e+03_rb, &\n        & 0.46732e+03_rb,0.38094e+03_rb,0.21749e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 4, 1) = (/ &\n        & 0.35156e+02_rb,0.16977e+03_rb,0.30416e+03_rb,0.43437e+03_rb,0.48726e+03_rb, &\n        & 0.46294e+03_rb,0.37660e+03_rb,0.21456e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 5, 1) = (/ &\n        & 0.35857e+02_rb,0.17089e+03_rb,0.30563e+03_rb,0.43619e+03_rb,0.49186e+03_rb, &\n        & 0.46841e+03_rb,0.38202e+03_rb,0.21822e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 5, 1) = (/ &\n        & 0.35163e+02_rb,0.17023e+03_rb,0.30502e+03_rb,0.43478e+03_rb,0.48731e+03_rb, &\n        & 0.46300e+03_rb,0.37666e+03_rb,0.21460e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 5, 1) = (/ &\n        & 0.34550e+02_rb,0.16961e+03_rb,0.30441e+03_rb,0.43332e+03_rb,0.48321e+03_rb, &\n        & 0.45813e+03_rb,0.37186e+03_rb,0.21139e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 5, 1) = (/ &\n        & 0.34004e+02_rb,0.16902e+03_rb,0.30378e+03_rb,0.43194e+03_rb,0.47950e+03_rb, &\n        & 0.45375e+03_rb,0.36755e+03_rb,0.20853e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 5, 1) = (/ &\n        & 0.33514e+02_rb,0.16844e+03_rb,0.30312e+03_rb,0.43058e+03_rb,0.47611e+03_rb, &\n        & 0.44977e+03_rb,0.36365e+03_rb,0.20597e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 6, 1) = (/ &\n        & 0.34212e+02_rb,0.16946e+03_rb,0.30440e+03_rb,0.43247e+03_rb,0.48092e+03_rb, &\n        & 0.45542e+03_rb,0.36920e+03_rb,0.20962e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 6, 1) = (/ &\n        & 0.33595e+02_rb,0.16889e+03_rb,0.30389e+03_rb,0.43093e+03_rb,0.47667e+03_rb, &\n        & 0.45043e+03_rb,0.36430e+03_rb,0.20639e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 6, 1) = (/ &\n        & 0.33052e+02_rb,0.16835e+03_rb,0.30337e+03_rb,0.42946e+03_rb,0.47287e+03_rb, &\n        & 0.44599e+03_rb,0.35993e+03_rb,0.20355e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 6, 1) = (/ &\n        & 0.32571e+02_rb,0.16784e+03_rb,0.30283e+03_rb,0.42807e+03_rb,0.46947e+03_rb, &\n        & 0.44201e+03_rb,0.35602e+03_rb,0.20103e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 6, 1) = (/ &\n        & 0.32141e+02_rb,0.16733e+03_rb,0.30227e+03_rb,0.42674e+03_rb,0.46640e+03_rb, &\n        & 0.43842e+03_rb,0.35250e+03_rb,0.19879e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 7, 1) = (/ &\n        & 0.32812e+02_rb,0.16823e+03_rb,0.30334e+03_rb,0.42859e+03_rb,0.47118e+03_rb, &\n        & 0.44401e+03_rb,0.35799e+03_rb,0.20230e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 7, 1) = (/ &\n        & 0.32263e+02_rb,0.16774e+03_rb,0.30291e+03_rb,0.42708e+03_rb,0.46727e+03_rb, &\n        & 0.43944e+03_rb,0.35350e+03_rb,0.19942e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 7, 1) = (/ &\n        & 0.31782e+02_rb,0.16728e+03_rb,0.30248e+03_rb,0.42558e+03_rb,0.46381e+03_rb, &\n        & 0.43539e+03_rb,0.34954e+03_rb,0.19691e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 7, 1) = (/ &\n        & 0.31357e+02_rb,0.16683e+03_rb,0.30203e+03_rb,0.42413e+03_rb,0.46069e+03_rb, &\n        & 0.43177e+03_rb,0.34599e+03_rb,0.19468e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 7, 1) = (/ &\n        & 0.30980e+02_rb,0.16640e+03_rb,0.30154e+03_rb,0.42276e+03_rb,0.45787e+03_rb, &\n        & 0.42852e+03_rb,0.34280e+03_rb,0.19271e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 8, 1) = (/ &\n        & 0.31614e+02_rb,0.16716e+03_rb,0.30239e+03_rb,0.42473e+03_rb,0.46259e+03_rb, &\n        & 0.43397e+03_rb,0.34814e+03_rb,0.19603e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 8, 1) = (/ &\n        & 0.31125e+02_rb,0.16674e+03_rb,0.30206e+03_rb,0.42311e+03_rb,0.45896e+03_rb, &\n        & 0.42978e+03_rb,0.34403e+03_rb,0.19347e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 8, 1) = (/ &\n        & 0.30699e+02_rb,0.16635e+03_rb,0.30170e+03_rb,0.42163e+03_rb,0.45573e+03_rb, &\n        & 0.42608e+03_rb,0.34039e+03_rb,0.19124e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 8, 1) = (/ &\n        & 0.30325e+02_rb,0.16597e+03_rb,0.30133e+03_rb,0.42027e+03_rb,0.45286e+03_rb, &\n        & 0.42281e+03_rb,0.33716e+03_rb,0.18928e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 8, 1) = (/ &\n        & 0.29993e+02_rb,0.16559e+03_rb,0.30092e+03_rb,0.41901e+03_rb,0.45030e+03_rb, &\n        & 0.41988e+03_rb,0.33427e+03_rb,0.18755e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 9, 1) = (/ &\n        & 0.30594e+02_rb,0.16624e+03_rb,0.30156e+03_rb,0.42087e+03_rb,0.45493e+03_rb, &\n        & 0.42517e+03_rb,0.33949e+03_rb,0.19069e+03_rb,0.35000e+02_rb /)\n      kao(:, 2, 9, 1) = (/ &\n        & 0.30158e+02_rb,0.16589e+03_rb,0.30131e+03_rb,0.41937e+03_rb,0.45157e+03_rb, &\n        & 0.42134e+03_rb,0.33570e+03_rb,0.18841e+03_rb,0.35000e+02_rb /)\n      kao(:, 3, 9, 1) = (/ &\n        & 0.29780e+02_rb,0.16556e+03_rb,0.30103e+03_rb,0.41800e+03_rb,0.44864e+03_rb, &\n        & 0.41799e+03_rb,0.33239e+03_rb,0.18643e+03_rb,0.35000e+02_rb /)\n      kao(:, 4, 9, 1) = (/ &\n        & 0.29450e+02_rb,0.16523e+03_rb,0.30072e+03_rb,0.41674e+03_rb,0.44606e+03_rb, &\n        & 0.41504e+03_rb,0.32946e+03_rb,0.18471e+03_rb,0.35000e+02_rb /)\n      kao(:, 5, 9, 1) = (/ &\n        & 0.29159e+02_rb,0.16491e+03_rb,0.30039e+03_rb,0.41557e+03_rb,0.44377e+03_rb, &\n        & 0.41242e+03_rb,0.32686e+03_rb,0.18318e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,10, 1) = (/ &\n        & 0.29691e+02_rb,0.16541e+03_rb,0.30081e+03_rb,0.41722e+03_rb,0.44795e+03_rb, &\n        & 0.41720e+03_rb,0.33160e+03_rb,0.18597e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,10, 1) = (/ &\n        & 0.29307e+02_rb,0.16512e+03_rb,0.30063e+03_rb,0.41581e+03_rb,0.44493e+03_rb, &\n        & 0.41375e+03_rb,0.32818e+03_rb,0.18396e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,10, 1) = (/ &\n        & 0.28975e+02_rb,0.16485e+03_rb,0.30042e+03_rb,0.41454e+03_rb,0.44231e+03_rb, &\n        & 0.41076e+03_rb,0.32520e+03_rb,0.18222e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,10, 1) = (/ &\n        & 0.28687e+02_rb,0.16458e+03_rb,0.30018e+03_rb,0.41340e+03_rb,0.44002e+03_rb, &\n        & 0.40814e+03_rb,0.32259e+03_rb,0.18071e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,10, 1) = (/ &\n        & 0.28434e+02_rb,0.16431e+03_rb,0.29989e+03_rb,0.41235e+03_rb,0.43799e+03_rb, &\n        & 0.40583e+03_rb,0.32028e+03_rb,0.17939e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,11, 1) = (/ &\n        & 0.28760e+02_rb,0.16459e+03_rb,0.30010e+03_rb,0.41321e+03_rb,0.44060e+03_rb, &\n        & 0.40880e+03_rb,0.32325e+03_rb,0.18109e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,11, 1) = (/ &\n        & 0.28444e+02_rb,0.16436e+03_rb,0.29997e+03_rb,0.41200e+03_rb,0.43807e+03_rb, &\n        & 0.40592e+03_rb,0.32038e+03_rb,0.17944e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,11, 1) = (/ &\n        & 0.28173e+02_rb,0.16414e+03_rb,0.29981e+03_rb,0.41092e+03_rb,0.43587e+03_rb, &\n        & 0.40342e+03_rb,0.31788e+03_rb,0.17802e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,11, 1) = (/ &\n        & 0.27937e+02_rb,0.16392e+03_rb,0.29960e+03_rb,0.40994e+03_rb,0.43395e+03_rb, &\n        & 0.40124e+03_rb,0.31570e+03_rb,0.17679e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,11, 1) = (/ &\n        & 0.27730e+02_rb,0.16369e+03_rb,0.29936e+03_rb,0.40905e+03_rb,0.43224e+03_rb, &\n        & 0.39931e+03_rb,0.31377e+03_rb,0.17571e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,12, 1) = (/ &\n        & 0.27995e+02_rb,0.16391e+03_rb,0.29951e+03_rb,0.40970e+03_rb,0.43443e+03_rb, &\n        & 0.40178e+03_rb,0.31624e+03_rb,0.17709e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,12, 1) = (/ &\n        & 0.27737e+02_rb,0.16374e+03_rb,0.29943e+03_rb,0.40869e+03_rb,0.43230e+03_rb, &\n        & 0.39938e+03_rb,0.31384e+03_rb,0.17574e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,12, 1) = (/ &\n        & 0.27515e+02_rb,0.16356e+03_rb,0.29930e+03_rb,0.40779e+03_rb,0.43046e+03_rb, &\n        & 0.39730e+03_rb,0.31176e+03_rb,0.17458e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,12, 1) = (/ &\n        & 0.27322e+02_rb,0.16338e+03_rb,0.29913e+03_rb,0.40697e+03_rb,0.42883e+03_rb, &\n        & 0.39548e+03_rb,0.30994e+03_rb,0.17357e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,12, 1) = (/ &\n        & 0.27152e+02_rb,0.16318e+03_rb,0.29892e+03_rb,0.40622e+03_rb,0.42740e+03_rb, &\n        & 0.39387e+03_rb,0.30834e+03_rb,0.17268e+03_rb,0.35000e+02_rb /)\n      kao(:, 1,13, 1) = (/ &\n        & 0.27369e+02_rb,0.16336e+03_rb,0.29903e+03_rb,0.40671e+03_rb,0.42924e+03_rb, &\n        & 0.39593e+03_rb,0.31039e+03_rb,0.17382e+03_rb,0.35000e+02_rb /)\n      kao(:, 2,13, 1) = (/ &\n        & 0.27158e+02_rb,0.16323e+03_rb,0.29898e+03_rb,0.40587e+03_rb,0.42745e+03_rb, &\n        & 0.39393e+03_rb,0.30840e+03_rb,0.17271e+03_rb,0.35000e+02_rb /)\n      kao(:, 3,13, 1) = (/ &\n        & 0.26976e+02_rb,0.16309e+03_rb,0.29889e+03_rb,0.40513e+03_rb,0.42590e+03_rb, &\n        & 0.39221e+03_rb,0.30667e+03_rb,0.17176e+03_rb,0.35000e+02_rb /)\n      kao(:, 4,13, 1) = (/ &\n        & 0.26818e+02_rb,0.16293e+03_rb,0.29875e+03_rb,0.40445e+03_rb,0.42455e+03_rb, &\n        & 0.39070e+03_rb,0.30516e+03_rb,0.17093e+03_rb,0.35000e+02_rb /)\n      kao(:, 5,13, 1) = (/ &\n        & 0.26679e+02_rb,0.16276e+03_rb,0.29855e+03_rb,0.40381e+03_rb,0.42335e+03_rb, &\n        & 0.38937e+03_rb,0.30384e+03_rb,0.17021e+03_rb,0.35000e+02_rb /)\n      kao(:, 1, 1, 2) = (/ &\n        & 0.17271e+03_rb,0.27646e+03_rb,0.38039e+03_rb,0.48420e+03_rb,0.56932e+03_rb, &\n        & 0.57534e+03_rb,0.47873e+03_rb,0.28147e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 1, 2) = (/ &\n        & 0.16834e+03_rb,0.27246e+03_rb,0.37678e+03_rb,0.48091e+03_rb,0.56471e+03_rb, &\n        & 0.56734e+03_rb,0.47005e+03_rb,0.27593e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 1, 2) = (/ &\n        & 0.16441e+03_rb,0.26883e+03_rb,0.37341e+03_rb,0.47777e+03_rb,0.56037e+03_rb, &\n        & 0.56003e+03_rb,0.46210e+03_rb,0.27096e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 1, 2) = (/ &\n        & 0.16086e+03_rb,0.26548e+03_rb,0.37025e+03_rb,0.47479e+03_rb,0.55629e+03_rb, &\n        & 0.55327e+03_rb,0.45481e+03_rb,0.26647e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 1, 2) = (/ &\n        & 0.15764e+03_rb,0.26237e+03_rb,0.36725e+03_rb,0.47195e+03_rb,0.55235e+03_rb, &\n        & 0.54701e+03_rb,0.44810e+03_rb,0.26239e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 2, 2) = (/ &\n        & 0.15955e+03_rb,0.26500e+03_rb,0.37067e+03_rb,0.47595e+03_rb,0.55480e+03_rb, &\n        & 0.55074e+03_rb,0.45210e+03_rb,0.26482e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 2, 2) = (/ &\n        & 0.15580e+03_rb,0.26157e+03_rb,0.36756e+03_rb,0.47303e+03_rb,0.55028e+03_rb, &\n        & 0.54339e+03_rb,0.44423e+03_rb,0.26007e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 2, 2) = (/ &\n        & 0.15244e+03_rb,0.25844e+03_rb,0.36465e+03_rb,0.47023e+03_rb,0.54619e+03_rb, &\n        & 0.53664e+03_rb,0.43708e+03_rb,0.25581e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 2, 2) = (/ &\n        & 0.14941e+03_rb,0.25556e+03_rb,0.36191e+03_rb,0.46753e+03_rb,0.54253e+03_rb, &\n        & 0.53041e+03_rb,0.43052e+03_rb,0.25198e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 2, 2) = (/ &\n        & 0.14667e+03_rb,0.25289e+03_rb,0.35930e+03_rb,0.46494e+03_rb,0.53908e+03_rb, &\n        & 0.52470e+03_rb,0.42448e+03_rb,0.24851e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 3, 2) = (/ &\n        & 0.14921e+03_rb,0.25601e+03_rb,0.36308e+03_rb,0.46872e+03_rb,0.54234e+03_rb, &\n        & 0.52999e+03_rb,0.43007e+03_rb,0.25172e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 3, 2) = (/ &\n        & 0.14591e+03_rb,0.25301e+03_rb,0.36036e+03_rb,0.46599e+03_rb,0.53834e+03_rb, &\n        & 0.52313e+03_rb,0.42280e+03_rb,0.24755e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 3, 2) = (/ &\n        & 0.14297e+03_rb,0.25028e+03_rb,0.35782e+03_rb,0.46350e+03_rb,0.53459e+03_rb, &\n        & 0.51696e+03_rb,0.41619e+03_rb,0.24383e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 3, 2) = (/ &\n        & 0.14033e+03_rb,0.24777e+03_rb,0.35542e+03_rb,0.46116e+03_rb,0.53100e+03_rb, &\n        & 0.51122e+03_rb,0.41016e+03_rb,0.24049e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 3, 2) = (/ &\n        & 0.13795e+03_rb,0.24544e+03_rb,0.35313e+03_rb,0.45882e+03_rb,0.52751e+03_rb, &\n        & 0.50591e+03_rb,0.40463e+03_rb,0.23747e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 4, 2) = (/ &\n        & 0.14062e+03_rb,0.24856e+03_rb,0.35678e+03_rb,0.46260e+03_rb,0.53137e+03_rb, &\n        & 0.51186e+03_rb,0.41082e+03_rb,0.24086e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 4, 2) = (/ &\n        & 0.13771e+03_rb,0.24592e+03_rb,0.35440e+03_rb,0.46020e+03_rb,0.52732e+03_rb, &\n        & 0.50537e+03_rb,0.40407e+03_rb,0.23717e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 4, 2) = (/ &\n        & 0.13512e+03_rb,0.24353e+03_rb,0.35219e+03_rb,0.45796e+03_rb,0.52348e+03_rb, &\n        & 0.49954e+03_rb,0.39798e+03_rb,0.23389e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 4, 2) = (/ &\n        & 0.13281e+03_rb,0.24133e+03_rb,0.35008e+03_rb,0.45583e+03_rb,0.51985e+03_rb, &\n        & 0.49431e+03_rb,0.39246e+03_rb,0.23096e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 4, 2) = (/ &\n        & 0.13073e+03_rb,0.23928e+03_rb,0.34807e+03_rb,0.45378e+03_rb,0.51643e+03_rb, &\n        & 0.48957e+03_rb,0.38745e+03_rb,0.22833e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 5, 2) = (/ &\n        & 0.13333e+03_rb,0.24222e+03_rb,0.35141e+03_rb,0.45702e+03_rb,0.52057e+03_rb, &\n        & 0.49550e+03_rb,0.39372e+03_rb,0.23163e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 5, 2) = (/ &\n        & 0.13075e+03_rb,0.23990e+03_rb,0.34934e+03_rb,0.45476e+03_rb,0.51651e+03_rb, &\n        & 0.48963e+03_rb,0.38752e+03_rb,0.22836e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 5, 2) = (/ &\n        & 0.12847e+03_rb,0.23780e+03_rb,0.34741e+03_rb,0.45266e+03_rb,0.51271e+03_rb, &\n        & 0.48438e+03_rb,0.38196e+03_rb,0.22548e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 5, 2) = (/ &\n        & 0.12644e+03_rb,0.23588e+03_rb,0.34557e+03_rb,0.45066e+03_rb,0.50911e+03_rb, &\n        & 0.47962e+03_rb,0.37696e+03_rb,0.22291e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 5, 2) = (/ &\n        & 0.12462e+03_rb,0.23409e+03_rb,0.34381e+03_rb,0.44874e+03_rb,0.50570e+03_rb, &\n        & 0.47526e+03_rb,0.37245e+03_rb,0.22060e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 6, 2) = (/ &\n        & 0.12722e+03_rb,0.23690e+03_rb,0.34688e+03_rb,0.45177e+03_rb,0.51032e+03_rb, &\n        & 0.48144e+03_rb,0.37887e+03_rb,0.22389e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 6, 2) = (/ &\n        & 0.12492e+03_rb,0.23485e+03_rb,0.34508e+03_rb,0.44967e+03_rb,0.50620e+03_rb, &\n        & 0.47598e+03_rb,0.37319e+03_rb,0.22098e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 6, 2) = (/ &\n        & 0.12290e+03_rb,0.23301e+03_rb,0.34340e+03_rb,0.44769e+03_rb,0.50242e+03_rb, &\n        & 0.47108e+03_rb,0.36815e+03_rb,0.21843e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 6, 2) = (/ &\n        & 0.12111e+03_rb,0.23132e+03_rb,0.34180e+03_rb,0.44582e+03_rb,0.49894e+03_rb, &\n        & 0.46668e+03_rb,0.36363e+03_rb,0.21616e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 6, 2) = (/ &\n        & 0.11952e+03_rb,0.22976e+03_rb,0.34026e+03_rb,0.44407e+03_rb,0.49574e+03_rb, &\n        & 0.46270e+03_rb,0.35956e+03_rb,0.21414e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 7, 2) = (/ &\n        & 0.12201e+03_rb,0.23235e+03_rb,0.34300e+03_rb,0.44700e+03_rb,0.50054e+03_rb, &\n        & 0.46889e+03_rb,0.36590e+03_rb,0.21730e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 7, 2) = (/ &\n        & 0.11997e+03_rb,0.23055e+03_rb,0.34145e+03_rb,0.44492e+03_rb,0.49657e+03_rb, &\n        & 0.46383e+03_rb,0.36071e+03_rb,0.21471e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 7, 2) = (/ &\n        & 0.11818e+03_rb,0.22894e+03_rb,0.33999e+03_rb,0.44309e+03_rb,0.49292e+03_rb, &\n        & 0.45934e+03_rb,0.35613e+03_rb,0.21245e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 7, 2) = (/ &\n        & 0.11660e+03_rb,0.22746e+03_rb,0.33859e+03_rb,0.44146e+03_rb,0.48959e+03_rb, &\n        & 0.45533e+03_rb,0.35208e+03_rb,0.21045e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 7, 2) = (/ &\n        & 0.11520e+03_rb,0.22609e+03_rb,0.33724e+03_rb,0.43996e+03_rb,0.48657e+03_rb, &\n        & 0.45175e+03_rb,0.34847e+03_rb,0.20867e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 8, 2) = (/ &\n        & 0.11756e+03_rb,0.22844e+03_rb,0.33965e+03_rb,0.44261e+03_rb,0.49147e+03_rb, &\n        & 0.45776e+03_rb,0.35454e+03_rb,0.21166e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 8, 2) = (/ &\n        & 0.11574e+03_rb,0.22687e+03_rb,0.33830e+03_rb,0.44082e+03_rb,0.48767e+03_rb, &\n        & 0.45313e+03_rb,0.34986e+03_rb,0.20936e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 8, 2) = (/ &\n        & 0.11415e+03_rb,0.22546e+03_rb,0.33704e+03_rb,0.43915e+03_rb,0.48429e+03_rb, &\n        & 0.44908e+03_rb,0.34579e+03_rb,0.20735e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 8, 2) = (/ &\n        & 0.11276e+03_rb,0.22417e+03_rb,0.33584e+03_rb,0.43758e+03_rb,0.48126e+03_rb, &\n        & 0.44549e+03_rb,0.34220e+03_rb,0.20559e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 8, 2) = (/ &\n        & 0.11153e+03_rb,0.22298e+03_rb,0.33466e+03_rb,0.43617e+03_rb,0.47855e+03_rb, &\n        & 0.44228e+03_rb,0.33902e+03_rb,0.20403e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 9, 2) = (/ &\n        & 0.11376e+03_rb,0.22510e+03_rb,0.33674e+03_rb,0.43882e+03_rb,0.48336e+03_rb, &\n        & 0.44807e+03_rb,0.34479e+03_rb,0.20686e+03_rb,0.71840e+02_rb /)\n      kao(:, 2, 9, 2) = (/ &\n        & 0.11214e+03_rb,0.22372e+03_rb,0.33559e+03_rb,0.43706e+03_rb,0.47989e+03_rb, &\n        & 0.44388e+03_rb,0.34060e+03_rb,0.20480e+03_rb,0.71840e+02_rb /)\n      kao(:, 3, 9, 2) = (/ &\n        & 0.11074e+03_rb,0.22250e+03_rb,0.33451e+03_rb,0.43547e+03_rb,0.47679e+03_rb, &\n        & 0.44020e+03_rb,0.33697e+03_rb,0.20303e+03_rb,0.71840e+02_rb /)\n      kao(:, 4, 9, 2) = (/ &\n        & 0.10951e+03_rb,0.22138e+03_rb,0.33348e+03_rb,0.43404e+03_rb,0.47404e+03_rb, &\n        & 0.43694e+03_rb,0.33379e+03_rb,0.20147e+03_rb,0.71840e+02_rb /)\n      kao(:, 5, 9, 2) = (/ &\n        & 0.10843e+03_rb,0.22034e+03_rb,0.33246e+03_rb,0.43277e+03_rb,0.47159e+03_rb, &\n        & 0.43405e+03_rb,0.33096e+03_rb,0.20010e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,10, 2) = (/ &\n        & 0.11041e+03_rb,0.22214e+03_rb,0.33414e+03_rb,0.43517e+03_rb,0.47604e+03_rb, &\n        & 0.43932e+03_rb,0.33611e+03_rb,0.20261e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,10, 2) = (/ &\n        & 0.10898e+03_rb,0.22095e+03_rb,0.33317e+03_rb,0.43358e+03_rb,0.47283e+03_rb, &\n        & 0.43552e+03_rb,0.33239e+03_rb,0.20080e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,10, 2) = (/ &\n        & 0.10774e+03_rb,0.21989e+03_rb,0.33226e+03_rb,0.43213e+03_rb,0.47002e+03_rb, &\n        & 0.43222e+03_rb,0.32917e+03_rb,0.19924e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,10, 2) = (/ &\n        & 0.10667e+03_rb,0.21893e+03_rb,0.33139e+03_rb,0.43083e+03_rb,0.46753e+03_rb, &\n        & 0.42932e+03_rb,0.32634e+03_rb,0.19788e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,10, 2) = (/ &\n        & 0.10573e+03_rb,0.21803e+03_rb,0.33053e+03_rb,0.42965e+03_rb,0.46532e+03_rb, &\n        & 0.42677e+03_rb,0.32386e+03_rb,0.19669e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,11, 2) = (/ &\n        & 0.10694e+03_rb,0.21911e+03_rb,0.33152e+03_rb,0.43127e+03_rb,0.46816e+03_rb, &\n        & 0.43005e+03_rb,0.32706e+03_rb,0.19822e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,11, 2) = (/ &\n        & 0.10577e+03_rb,0.21815e+03_rb,0.33074e+03_rb,0.42984e+03_rb,0.46541e+03_rb, &\n        & 0.42687e+03_rb,0.32396e+03_rb,0.19674e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,11, 2) = (/ &\n        & 0.10476e+03_rb,0.21728e+03_rb,0.33000e+03_rb,0.42855e+03_rb,0.46301e+03_rb, &\n        & 0.42411e+03_rb,0.32130e+03_rb,0.19546e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,11, 2) = (/ &\n        & 0.10388e+03_rb,0.21649e+03_rb,0.32928e+03_rb,0.42741e+03_rb,0.46089e+03_rb, &\n        & 0.42169e+03_rb,0.31897e+03_rb,0.19435e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,11, 2) = (/ &\n        & 0.10311e+03_rb,0.21575e+03_rb,0.32855e+03_rb,0.42639e+03_rb,0.45902e+03_rb, &\n        & 0.41954e+03_rb,0.31692e+03_rb,0.19338e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,12, 2) = (/ &\n        & 0.10410e+03_rb,0.21663e+03_rb,0.32937e+03_rb,0.42778e+03_rb,0.46141e+03_rb, &\n        & 0.42229e+03_rb,0.31955e+03_rb,0.19463e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,12, 2) = (/ &\n        & 0.10314e+03_rb,0.21585e+03_rb,0.32875e+03_rb,0.42654e+03_rb,0.45909e+03_rb, &\n        & 0.41961e+03_rb,0.31700e+03_rb,0.19341e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,12, 2) = (/ &\n        & 0.10231e+03_rb,0.21515e+03_rb,0.32815e+03_rb,0.42544e+03_rb,0.45707e+03_rb, &\n        & 0.41729e+03_rb,0.31480e+03_rb,0.19236e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,12, 2) = (/ &\n        & 0.10159e+03_rb,0.21449e+03_rb,0.32754e+03_rb,0.42445e+03_rb,0.45532e+03_rb, &\n        & 0.41526e+03_rb,0.31288e+03_rb,0.19145e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,12, 2) = (/ &\n        & 0.10096e+03_rb,0.21387e+03_rb,0.32692e+03_rb,0.42356e+03_rb,0.45377e+03_rb, &\n        & 0.41347e+03_rb,0.31119e+03_rb,0.19066e+03_rb,0.71840e+02_rb /)\n      kao(:, 1,13, 2) = (/ &\n        & 0.10177e+03_rb,0.21460e+03_rb,0.32761e+03_rb,0.42475e+03_rb,0.45575e+03_rb, &\n        & 0.41576e+03_rb,0.31335e+03_rb,0.19168e+03_rb,0.71840e+02_rb /)\n      kao(:, 2,13, 2) = (/ &\n        & 0.10099e+03_rb,0.21397e+03_rb,0.32712e+03_rb,0.42368e+03_rb,0.45383e+03_rb, &\n        & 0.41353e+03_rb,0.31125e+03_rb,0.19068e+03_rb,0.71840e+02_rb /)\n      kao(:, 3,13, 2) = (/ &\n        & 0.10031e+03_rb,0.21340e+03_rb,0.32663e+03_rb,0.42272e+03_rb,0.45216e+03_rb, &\n        & 0.41160e+03_rb,0.30943e+03_rb,0.18983e+03_rb,0.71840e+02_rb /)\n      kao(:, 4,13, 2) = (/ &\n        & 0.99720e+02_rb,0.21286e+03_rb,0.32612e+03_rb,0.42187e+03_rb,0.45071e+03_rb, &\n        & 0.40991e+03_rb,0.30785e+03_rb,0.18908e+03_rb,0.71840e+02_rb /)\n      kao(:, 5,13, 2) = (/ &\n        & 0.99204e+02_rb,0.21233e+03_rb,0.32558e+03_rb,0.42112e+03_rb,0.44942e+03_rb, &\n        & 0.40842e+03_rb,0.30646e+03_rb,0.18843e+03_rb,0.71840e+02_rb /)\n      kao(:, 1, 1, 3) = (/ &\n        & 0.44909e+03_rb,0.47445e+03_rb,0.49981e+03_rb,0.52556e+03_rb,0.59352e+03_rb, &\n        & 0.63011e+03_rb,0.50440e+03_rb,0.31793e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 1, 3) = (/ &\n        & 0.43771e+03_rb,0.46449e+03_rb,0.49128e+03_rb,0.51852e+03_rb,0.58982e+03_rb, &\n        & 0.62155e+03_rb,0.49364e+03_rb,0.31383e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 1, 3) = (/ &\n        & 0.42749e+03_rb,0.45555e+03_rb,0.48362e+03_rb,0.51220e+03_rb,0.58623e+03_rb, &\n        & 0.61324e+03_rb,0.48379e+03_rb,0.31014e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 1, 3) = (/ &\n        & 0.41826e+03_rb,0.44748e+03_rb,0.47670e+03_rb,0.50650e+03_rb,0.58281e+03_rb, &\n        & 0.60555e+03_rb,0.47483e+03_rb,0.30681e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 1, 3) = (/ &\n        & 0.40989e+03_rb,0.44015e+03_rb,0.47042e+03_rb,0.50132e+03_rb,0.57944e+03_rb, &\n        & 0.59846e+03_rb,0.46657e+03_rb,0.30379e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 2, 3) = (/ &\n        & 0.41487e+03_rb,0.44451e+03_rb,0.47415e+03_rb,0.50447e+03_rb,0.58410e+03_rb, &\n        & 0.60269e+03_rb,0.47150e+03_rb,0.30559e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 2, 3) = (/ &\n        & 0.40511e+03_rb,0.43597e+03_rb,0.46683e+03_rb,0.49854e+03_rb,0.58056e+03_rb, &\n        & 0.59434e+03_rb,0.46181e+03_rb,0.30207e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 2, 3) = (/ &\n        & 0.39637e+03_rb,0.42832e+03_rb,0.46028e+03_rb,0.49326e+03_rb,0.57701e+03_rb, &\n        & 0.58648e+03_rb,0.45298e+03_rb,0.29892e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 2, 3) = (/ &\n        & 0.38850e+03_rb,0.42143e+03_rb,0.45437e+03_rb,0.48855e+03_rb,0.57350e+03_rb, &\n        & 0.57914e+03_rb,0.44500e+03_rb,0.29608e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 2, 3) = (/ &\n        & 0.38136e+03_rb,0.41519e+03_rb,0.44902e+03_rb,0.48433e+03_rb,0.57004e+03_rb, &\n        & 0.57245e+03_rb,0.43774e+03_rb,0.29351e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 3, 3) = (/ &\n        & 0.38797e+03_rb,0.42097e+03_rb,0.45397e+03_rb,0.48897e+03_rb,0.57508e+03_rb, &\n        & 0.57865e+03_rb,0.44446e+03_rb,0.29589e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 3, 3) = (/ &\n        & 0.37940e+03_rb,0.41348e+03_rb,0.44755e+03_rb,0.48416e+03_rb,0.57138e+03_rb, &\n        & 0.57059e+03_rb,0.43573e+03_rb,0.29280e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 3, 3) = (/ &\n        & 0.37176e+03_rb,0.40679e+03_rb,0.44182e+03_rb,0.47985e+03_rb,0.56781e+03_rb, &\n        & 0.56324e+03_rb,0.42791e+03_rb,0.29005e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 3, 3) = (/ &\n        & 0.36490e+03_rb,0.40078e+03_rb,0.43667e+03_rb,0.47599e+03_rb,0.56436e+03_rb, &\n        & 0.55656e+03_rb,0.42088e+03_rb,0.28757e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 3, 3) = (/ &\n        & 0.35870e+03_rb,0.39536e+03_rb,0.43202e+03_rb,0.47253e+03_rb,0.56109e+03_rb, &\n        & 0.55041e+03_rb,0.41448e+03_rb,0.28534e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 4, 3) = (/ &\n        & 0.36565e+03_rb,0.40144e+03_rb,0.43723e+03_rb,0.47759e+03_rb,0.56581e+03_rb, &\n        & 0.55729e+03_rb,0.42164e+03_rb,0.28784e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 4, 3) = (/ &\n        & 0.35808e+03_rb,0.39482e+03_rb,0.43155e+03_rb,0.47386e+03_rb,0.56215e+03_rb, &\n        & 0.54978e+03_rb,0.41381e+03_rb,0.28511e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 4, 3) = (/ &\n        & 0.35135e+03_rb,0.38893e+03_rb,0.42651e+03_rb,0.47052e+03_rb,0.55875e+03_rb, &\n        & 0.54295e+03_rb,0.40683e+03_rb,0.28269e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 4, 3) = (/ &\n        & 0.34533e+03_rb,0.38366e+03_rb,0.42199e+03_rb,0.46746e+03_rb,0.55555e+03_rb, &\n        & 0.53669e+03_rb,0.40055e+03_rb,0.28052e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 4, 3) = (/ &\n        & 0.33991e+03_rb,0.37892e+03_rb,0.41793e+03_rb,0.46467e+03_rb,0.55244e+03_rb, &\n        & 0.53093e+03_rb,0.39488e+03_rb,0.27856e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 5, 3) = (/ &\n        & 0.34669e+03_rb,0.38485e+03_rb,0.42301e+03_rb,0.46943e+03_rb,0.55667e+03_rb, &\n        & 0.53812e+03_rb,0.40197e+03_rb,0.28101e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 5, 3) = (/ &\n        & 0.33999e+03_rb,0.37899e+03_rb,0.41799e+03_rb,0.46662e+03_rb,0.55311e+03_rb, &\n        & 0.53101e+03_rb,0.39496e+03_rb,0.27859e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 5, 3) = (/ &\n        & 0.33406e+03_rb,0.37380e+03_rb,0.41354e+03_rb,0.46416e+03_rb,0.54976e+03_rb, &\n        & 0.52459e+03_rb,0.38873e+03_rb,0.27645e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 5, 3) = (/ &\n        & 0.32878e+03_rb,0.36918e+03_rb,0.40958e+03_rb,0.46185e+03_rb,0.54671e+03_rb, &\n        & 0.51881e+03_rb,0.38326e+03_rb,0.27455e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 5, 3) = (/ &\n        & 0.32404e+03_rb,0.36503e+03_rb,0.40603e+03_rb,0.45969e+03_rb,0.54395e+03_rb, &\n        & 0.51356e+03_rb,0.37844e+03_rb,0.27284e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 6, 3) = (/ &\n        & 0.33079e+03_rb,0.37094e+03_rb,0.41109e+03_rb,0.46395e+03_rb,0.54790e+03_rb, &\n        & 0.52101e+03_rb,0.38534e+03_rb,0.27527e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 6, 3) = (/ &\n        & 0.32482e+03_rb,0.36572e+03_rb,0.40662e+03_rb,0.46188e+03_rb,0.54448e+03_rb, &\n        & 0.51443e+03_rb,0.37923e+03_rb,0.27312e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 6, 3) = (/ &\n        & 0.31958e+03_rb,0.36113e+03_rb,0.40268e+03_rb,0.45998e+03_rb,0.54143e+03_rb, &\n        & 0.50857e+03_rb,0.37397e+03_rb,0.27123e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 6, 3) = (/ &\n        & 0.31492e+03_rb,0.35705e+03_rb,0.39919e+03_rb,0.45816e+03_rb,0.53866e+03_rb, &\n        & 0.50335e+03_rb,0.36939e+03_rb,0.26955e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 6, 3) = (/ &\n        & 0.31076e+03_rb,0.35342e+03_rb,0.39607e+03_rb,0.45638e+03_rb,0.53611e+03_rb, &\n        & 0.49868e+03_rb,0.36537e+03_rb,0.26805e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 7, 3) = (/ &\n        & 0.31725e+03_rb,0.35910e+03_rb,0.40094e+03_rb,0.45992e+03_rb,0.53978e+03_rb, &\n        & 0.50597e+03_rb,0.37168e+03_rb,0.27039e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 7, 3) = (/ &\n        & 0.31194e+03_rb,0.35445e+03_rb,0.39695e+03_rb,0.45835e+03_rb,0.53664e+03_rb, &\n        & 0.50000e+03_rb,0.36650e+03_rb,0.26848e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 7, 3) = (/ &\n        & 0.30729e+03_rb,0.35038e+03_rb,0.39347e+03_rb,0.45686e+03_rb,0.53383e+03_rb, &\n        & 0.49465e+03_rb,0.36205e+03_rb,0.26680e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 7, 3) = (/ &\n        & 0.30318e+03_rb,0.34679e+03_rb,0.39040e+03_rb,0.45536e+03_rb,0.53125e+03_rb, &\n        & 0.48979e+03_rb,0.35818e+03_rb,0.26532e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 7, 3) = (/ &\n        & 0.29953e+03_rb,0.34359e+03_rb,0.38767e+03_rb,0.45383e+03_rb,0.52882e+03_rb, &\n        & 0.48543e+03_rb,0.35479e+03_rb,0.26401e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 8, 3) = (/ &\n        & 0.30567e+03_rb,0.34896e+03_rb,0.39226e+03_rb,0.45673e+03_rb,0.53243e+03_rb, &\n        & 0.49274e+03_rb,0.36052e+03_rb,0.26622e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 8, 3) = (/ &\n        & 0.30094e+03_rb,0.34482e+03_rb,0.38872e+03_rb,0.45541e+03_rb,0.52945e+03_rb, &\n        & 0.48711e+03_rb,0.35609e+03_rb,0.26451e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 8, 3) = (/ &\n        & 0.29682e+03_rb,0.34122e+03_rb,0.38564e+03_rb,0.45413e+03_rb,0.52674e+03_rb, &\n        & 0.48217e+03_rb,0.35231e+03_rb,0.26303e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 8, 3) = (/ &\n        & 0.29320e+03_rb,0.33805e+03_rb,0.38294e+03_rb,0.45285e+03_rb,0.52426e+03_rb, &\n        & 0.47779e+03_rb,0.34904e+03_rb,0.26172e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 8, 3) = (/ &\n        & 0.29000e+03_rb,0.33525e+03_rb,0.38055e+03_rb,0.45152e+03_rb,0.52191e+03_rb, &\n        & 0.47388e+03_rb,0.34618e+03_rb,0.26057e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 9, 3) = (/ &\n        & 0.29581e+03_rb,0.34033e+03_rb,0.38489e+03_rb,0.45387e+03_rb,0.52555e+03_rb, &\n        & 0.48095e+03_rb,0.35139e+03_rb,0.26266e+03_rb,0.17829e+03_rb /)\n      kao(:, 2, 9, 3) = (/ &\n        & 0.29159e+03_rb,0.33664e+03_rb,0.38173e+03_rb,0.45277e+03_rb,0.52268e+03_rb, &\n        & 0.47582e+03_rb,0.34759e+03_rb,0.26114e+03_rb,0.17829e+03_rb /)\n      kao(:, 3, 9, 3) = (/ &\n        & 0.28794e+03_rb,0.33344e+03_rb,0.37901e+03_rb,0.45167e+03_rb,0.52008e+03_rb, &\n        & 0.47135e+03_rb,0.34436e+03_rb,0.25982e+03_rb,0.17829e+03_rb /)\n      kao(:, 4, 9, 3) = (/ &\n        & 0.28475e+03_rb,0.33065e+03_rb,0.37663e+03_rb,0.45055e+03_rb,0.51765e+03_rb, &\n        & 0.46738e+03_rb,0.34157e+03_rb,0.25867e+03_rb,0.17829e+03_rb /)\n      kao(:, 5, 9, 3) = (/ &\n        & 0.28193e+03_rb,0.32819e+03_rb,0.37453e+03_rb,0.44937e+03_rb,0.51538e+03_rb, &\n        & 0.46382e+03_rb,0.33916e+03_rb,0.25766e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,10, 3) = (/ &\n        & 0.28708e+03_rb,0.33269e+03_rb,0.37836e+03_rb,0.45121e+03_rb,0.51885e+03_rb, &\n        & 0.47029e+03_rb,0.34361e+03_rb,0.25951e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,10, 3) = (/ &\n        & 0.28336e+03_rb,0.32944e+03_rb,0.37559e+03_rb,0.45027e+03_rb,0.51611e+03_rb, &\n        & 0.46563e+03_rb,0.34037e+03_rb,0.25817e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,10, 3) = (/ &\n        & 0.28016e+03_rb,0.32664e+03_rb,0.37320e+03_rb,0.44932e+03_rb,0.51361e+03_rb, &\n        & 0.46153e+03_rb,0.33765e+03_rb,0.25702e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,10, 3) = (/ &\n        & 0.27737e+03_rb,0.32420e+03_rb,0.37112e+03_rb,0.44835e+03_rb,0.51133e+03_rb, &\n        & 0.45793e+03_rb,0.33532e+03_rb,0.25601e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,10, 3) = (/ &\n        & 0.27492e+03_rb,0.32206e+03_rb,0.36930e+03_rb,0.44735e+03_rb,0.50922e+03_rb, &\n        & 0.45473e+03_rb,0.33330e+03_rb,0.25513e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,11, 3) = (/ &\n        & 0.27807e+03_rb,0.32481e+03_rb,0.37164e+03_rb,0.44842e+03_rb,0.51141e+03_rb, &\n        & 0.45884e+03_rb,0.33590e+03_rb,0.25627e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,11, 3) = (/ &\n        & 0.27502e+03_rb,0.32214e+03_rb,0.36937e+03_rb,0.44764e+03_rb,0.50894e+03_rb, &\n        & 0.45486e+03_rb,0.33338e+03_rb,0.25517e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,11, 3) = (/ &\n        & 0.27240e+03_rb,0.31985e+03_rb,0.36742e+03_rb,0.44685e+03_rb,0.50671e+03_rb, &\n        & 0.45139e+03_rb,0.33123e+03_rb,0.25422e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,11, 3) = (/ &\n        & 0.27012e+03_rb,0.31785e+03_rb,0.36572e+03_rb,0.44602e+03_rb,0.50464e+03_rb, &\n        & 0.44836e+03_rb,0.32939e+03_rb,0.25340e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,11, 3) = (/ &\n        & 0.26811e+03_rb,0.31610e+03_rb,0.36422e+03_rb,0.44514e+03_rb,0.50273e+03_rb, &\n        & 0.44569e+03_rb,0.32779e+03_rb,0.25268e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,12, 3) = (/ &\n        & 0.27068e+03_rb,0.31834e+03_rb,0.36613e+03_rb,0.44605e+03_rb,0.50476e+03_rb, &\n        & 0.44911e+03_rb,0.32983e+03_rb,0.25360e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,12, 3) = (/ &\n        & 0.26818e+03_rb,0.31616e+03_rb,0.36428e+03_rb,0.44539e+03_rb,0.50255e+03_rb, &\n        & 0.44579e+03_rb,0.32784e+03_rb,0.25270e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,12, 3) = (/ &\n        & 0.26603e+03_rb,0.31428e+03_rb,0.36268e+03_rb,0.44471e+03_rb,0.50054e+03_rb, &\n        & 0.44293e+03_rb,0.32614e+03_rb,0.25193e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,12, 3) = (/ &\n        & 0.26417e+03_rb,0.31264e+03_rb,0.36129e+03_rb,0.44399e+03_rb,0.49874e+03_rb, &\n        & 0.44043e+03_rb,0.32468e+03_rb,0.25125e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,12, 3) = (/ &\n        & 0.26252e+03_rb,0.31121e+03_rb,0.36005e+03_rb,0.44322e+03_rb,0.49710e+03_rb, &\n        & 0.43824e+03_rb,0.32341e+03_rb,0.25066e+03_rb,0.17829e+03_rb /)\n      kao(:, 1,13, 3) = (/ &\n        & 0.26463e+03_rb,0.31305e+03_rb,0.36163e+03_rb,0.44400e+03_rb,0.49889e+03_rb, &\n        & 0.44105e+03_rb,0.32504e+03_rb,0.25142e+03_rb,0.17829e+03_rb /)\n      kao(:, 2,13, 3) = (/ &\n        & 0.26258e+03_rb,0.31126e+03_rb,0.36010e+03_rb,0.44348e+03_rb,0.49698e+03_rb, &\n        & 0.43831e+03_rb,0.32345e+03_rb,0.25068e+03_rb,0.17829e+03_rb /)\n      kao(:, 3,13, 3) = (/ &\n        & 0.26082e+03_rb,0.30972e+03_rb,0.35880e+03_rb,0.44291e+03_rb,0.49519e+03_rb, &\n        & 0.43595e+03_rb,0.32210e+03_rb,0.25005e+03_rb,0.17829e+03_rb /)\n      kao(:, 4,13, 3) = (/ &\n        & 0.25929e+03_rb,0.30838e+03_rb,0.35766e+03_rb,0.44229e+03_rb,0.49360e+03_rb, &\n        & 0.43388e+03_rb,0.32093e+03_rb,0.24950e+03_rb,0.17829e+03_rb /)\n      kao(:, 5,13, 3) = (/ &\n        & 0.25795e+03_rb,0.30721e+03_rb,0.35666e+03_rb,0.44160e+03_rb,0.49217e+03_rb, &\n        & 0.43204e+03_rb,0.31991e+03_rb,0.24901e+03_rb,0.17829e+03_rb /)\n      kao(:, 1, 1, 4) = (/ &\n        & 0.86913e+03_rb,0.80389e+03_rb,0.73864e+03_rb,0.67339e+03_rb,0.62239e+03_rb, &\n        & 0.67741e+03_rb,0.51596e+03_rb,0.43641e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 1, 4) = (/ &\n        & 0.84711e+03_rb,0.78462e+03_rb,0.72212e+03_rb,0.65963e+03_rb,0.61530e+03_rb, &\n        & 0.66963e+03_rb,0.50564e+03_rb,0.43387e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 1, 4) = (/ &\n        & 0.82734e+03_rb,0.76731e+03_rb,0.70729e+03_rb,0.64727e+03_rb,0.60932e+03_rb, &\n        & 0.66251e+03_rb,0.49688e+03_rb,0.43160e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 1, 4) = (/ &\n        & 0.80948e+03_rb,0.75169e+03_rb,0.69390e+03_rb,0.63611e+03_rb,0.60420e+03_rb, &\n        & 0.65531e+03_rb,0.48930e+03_rb,0.42954e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 1, 4) = (/ &\n        & 0.79327e+03_rb,0.73751e+03_rb,0.68174e+03_rb,0.62598e+03_rb,0.59980e+03_rb, &\n        & 0.64776e+03_rb,0.48275e+03_rb,0.42767e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 2, 4) = (/ &\n        & 0.80291e+03_rb,0.74594e+03_rb,0.68897e+03_rb,0.63200e+03_rb,0.60547e+03_rb, &\n        & 0.65273e+03_rb,0.48660e+03_rb,0.42878e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 2, 4) = (/ &\n        & 0.78403e+03_rb,0.72942e+03_rb,0.67481e+03_rb,0.62020e+03_rb,0.60133e+03_rb, &\n        & 0.64384e+03_rb,0.47915e+03_rb,0.42661e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 2, 4) = (/ &\n        & 0.76711e+03_rb,0.71462e+03_rb,0.66212e+03_rb,0.60962e+03_rb,0.59788e+03_rb, &\n        & 0.63506e+03_rb,0.47284e+03_rb,0.42466e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 2, 4) = (/ &\n        & 0.75187e+03_rb,0.70128e+03_rb,0.65069e+03_rb,0.60010e+03_rb,0.59472e+03_rb, &\n        & 0.62679e+03_rb,0.46742e+03_rb,0.42291e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 2, 4) = (/ &\n        & 0.73807e+03_rb,0.68920e+03_rb,0.64034e+03_rb,0.59147e+03_rb,0.59165e+03_rb, &\n        & 0.61864e+03_rb,0.46272e+03_rb,0.42132e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 3, 4) = (/ &\n        & 0.75084e+03_rb,0.70038e+03_rb,0.64992e+03_rb,0.59946e+03_rb,0.59732e+03_rb, &\n        & 0.62621e+03_rb,0.46707e+03_rb,0.42279e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 3, 4) = (/ &\n        & 0.73427e+03_rb,0.68588e+03_rb,0.63749e+03_rb,0.58910e+03_rb,0.59435e+03_rb, &\n        & 0.61627e+03_rb,0.46147e+03_rb,0.42088e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 3, 4) = (/ &\n        & 0.71948e+03_rb,0.67294e+03_rb,0.62640e+03_rb,0.57986e+03_rb,0.59145e+03_rb, &\n        & 0.60690e+03_rb,0.45675e+03_rb,0.41918e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 3, 4) = (/ &\n        & 0.70620e+03_rb,0.66132e+03_rb,0.61644e+03_rb,0.57156e+03_rb,0.58863e+03_rb, &\n        & 0.59842e+03_rb,0.45269e+03_rb,0.41765e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 3, 4) = (/ &\n        & 0.69421e+03_rb,0.65083e+03_rb,0.60744e+03_rb,0.56406e+03_rb,0.58580e+03_rb, &\n        & 0.59032e+03_rb,0.44923e+03_rb,0.41627e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 4, 4) = (/ &\n        & 0.70765e+03_rb,0.66259e+03_rb,0.61753e+03_rb,0.57246e+03_rb,0.59114e+03_rb, &\n        & 0.59936e+03_rb,0.45313e+03_rb,0.41781e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 4, 4) = (/ &\n        & 0.69300e+03_rb,0.64977e+03_rb,0.60654e+03_rb,0.56330e+03_rb,0.58834e+03_rb, &\n        & 0.58949e+03_rb,0.44892e+03_rb,0.41613e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 4, 4) = (/ &\n        & 0.67997e+03_rb,0.63837e+03_rb,0.59677e+03_rb,0.55516e+03_rb,0.58563e+03_rb, &\n        & 0.58057e+03_rb,0.44538e+03_rb,0.41463e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 4, 4) = (/ &\n        & 0.66833e+03_rb,0.62818e+03_rb,0.58803e+03_rb,0.54788e+03_rb,0.58292e+03_rb, &\n        & 0.57257e+03_rb,0.44238e+03_rb,0.41329e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 4, 4) = (/ &\n        & 0.65784e+03_rb,0.61901e+03_rb,0.58017e+03_rb,0.54133e+03_rb,0.58031e+03_rb, &\n        & 0.56522e+03_rb,0.43982e+03_rb,0.41208e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 5, 4) = (/ &\n        & 0.67096e+03_rb,0.63048e+03_rb,0.59001e+03_rb,0.54953e+03_rb,0.58521e+03_rb, &\n        & 0.57438e+03_rb,0.44304e+03_rb,0.41359e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 5, 4) = (/ &\n        & 0.65799e+03_rb,0.61913e+03_rb,0.58028e+03_rb,0.54142e+03_rb,0.58256e+03_rb, &\n        & 0.56532e+03_rb,0.43984e+03_rb,0.41210e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 5, 4) = (/ &\n        & 0.64651e+03_rb,0.60909e+03_rb,0.57167e+03_rb,0.53427e+03_rb,0.57997e+03_rb, &\n        & 0.55705e+03_rb,0.43718e+03_rb,0.41077e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 5, 4) = (/ &\n        & 0.63629e+03_rb,0.60015e+03_rb,0.56401e+03_rb,0.52793e+03_rb,0.57742e+03_rb, &\n        & 0.54959e+03_rb,0.43482e+03_rb,0.40960e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 5, 4) = (/ &\n        & 0.62713e+03_rb,0.59213e+03_rb,0.55713e+03_rb,0.52227e+03_rb,0.57480e+03_rb, &\n        & 0.54282e+03_rb,0.43271e+03_rb,0.40854e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 6, 4) = (/ &\n        & 0.64019e+03_rb,0.60356e+03_rb,0.56693e+03_rb,0.53034e+03_rb,0.57955e+03_rb, &\n        & 0.55244e+03_rb,0.43572e+03_rb,0.41005e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 6, 4) = (/ &\n        & 0.62864e+03_rb,0.59346e+03_rb,0.55827e+03_rb,0.52321e+03_rb,0.57700e+03_rb, &\n        & 0.54395e+03_rb,0.43306e+03_rb,0.40872e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 6, 4) = (/ &\n        & 0.61849e+03_rb,0.58457e+03_rb,0.55065e+03_rb,0.51703e+03_rb,0.57439e+03_rb, &\n        & 0.53634e+03_rb,0.43072e+03_rb,0.40755e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 6, 4) = (/ &\n        & 0.60948e+03_rb,0.57669e+03_rb,0.54390e+03_rb,0.51158e+03_rb,0.57170e+03_rb, &\n        & 0.52946e+03_rb,0.42865e+03_rb,0.40651e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 6, 4) = (/ &\n        & 0.60143e+03_rb,0.56965e+03_rb,0.53786e+03_rb,0.50675e+03_rb,0.56897e+03_rb, &\n        & 0.52321e+03_rb,0.42679e+03_rb,0.40558e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 7, 4) = (/ &\n        & 0.61399e+03_rb,0.58064e+03_rb,0.54728e+03_rb,0.51440e+03_rb,0.57380e+03_rb, &\n        & 0.53292e+03_rb,0.42969e+03_rb,0.40703e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 7, 4) = (/ &\n        & 0.60371e+03_rb,0.57164e+03_rb,0.53957e+03_rb,0.50828e+03_rb,0.57103e+03_rb, &\n        & 0.52498e+03_rb,0.42732e+03_rb,0.40585e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 7, 4) = (/ &\n        & 0.59471e+03_rb,0.56376e+03_rb,0.53282e+03_rb,0.50302e+03_rb,0.56836e+03_rb, &\n        & 0.51802e+03_rb,0.42525e+03_rb,0.40481e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 7, 4) = (/ &\n        & 0.58676e+03_rb,0.55681e+03_rb,0.52686e+03_rb,0.49842e+03_rb,0.56580e+03_rb, &\n        & 0.51197e+03_rb,0.42342e+03_rb,0.40389e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 7, 4) = (/ &\n        & 0.57970e+03_rb,0.55063e+03_rb,0.52156e+03_rb,0.49437e+03_rb,0.56333e+03_rb, &\n        & 0.50656e+03_rb,0.42179e+03_rb,0.40308e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 8, 4) = (/ &\n        & 0.59158e+03_rb,0.56102e+03_rb,0.53047e+03_rb,0.50136e+03_rb,0.56762e+03_rb, &\n        & 0.51564e+03_rb,0.42452e+03_rb,0.40445e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 8, 4) = (/ &\n        & 0.58242e+03_rb,0.55301e+03_rb,0.52360e+03_rb,0.49623e+03_rb,0.56499e+03_rb, &\n        & 0.50866e+03_rb,0.42242e+03_rb,0.40339e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 8, 4) = (/ &\n        & 0.57445e+03_rb,0.54604e+03_rb,0.51762e+03_rb,0.49188e+03_rb,0.56245e+03_rb, &\n        & 0.50238e+03_rb,0.42058e+03_rb,0.40248e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 8, 4) = (/ &\n        & 0.56745e+03_rb,0.53991e+03_rb,0.51237e+03_rb,0.48811e+03_rb,0.55998e+03_rb, &\n        & 0.49675e+03_rb,0.41897e+03_rb,0.40167e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 8, 4) = (/ &\n        & 0.56125e+03_rb,0.53448e+03_rb,0.50772e+03_rb,0.48477e+03_rb,0.55757e+03_rb, &\n        & 0.49178e+03_rb,0.41754e+03_rb,0.40096e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 9, 4) = (/ &\n        & 0.57249e+03_rb,0.54432e+03_rb,0.51615e+03_rb,0.49103e+03_rb,0.56159e+03_rb, &\n        & 0.50080e+03_rb,0.42013e+03_rb,0.40225e+03_rb,0.38437e+03_rb /)\n      kao(:, 2, 9, 4) = (/ &\n        & 0.56432e+03_rb,0.53718e+03_rb,0.51003e+03_rb,0.48678e+03_rb,0.55899e+03_rb, &\n        & 0.49424e+03_rb,0.41825e+03_rb,0.40131e+03_rb,0.38437e+03_rb /)\n      kao(:, 3, 9, 4) = (/ &\n        & 0.55726e+03_rb,0.53099e+03_rb,0.50473e+03_rb,0.48321e+03_rb,0.55650e+03_rb, &\n        & 0.48858e+03_rb,0.41662e+03_rb,0.40050e+03_rb,0.38437e+03_rb /)\n      kao(:, 4, 9, 4) = (/ &\n        & 0.55108e+03_rb,0.52559e+03_rb,0.50010e+03_rb,0.48011e+03_rb,0.55416e+03_rb, &\n        & 0.48367e+03_rb,0.41520e+03_rb,0.39978e+03_rb,0.38437e+03_rb /)\n      kao(:, 5, 9, 4) = (/ &\n        & 0.54564e+03_rb,0.52083e+03_rb,0.49601e+03_rb,0.47737e+03_rb,0.55194e+03_rb, &\n        & 0.47938e+03_rb,0.41394e+03_rb,0.39916e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,10, 4) = (/ &\n        & 0.55559e+03_rb,0.52954e+03_rb,0.50348e+03_rb,0.48256e+03_rb,0.55544e+03_rb, &\n        & 0.48725e+03_rb,0.41624e+03_rb,0.40030e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,10, 4) = (/ &\n        & 0.54839e+03_rb,0.52324e+03_rb,0.49808e+03_rb,0.47910e+03_rb,0.55295e+03_rb, &\n        & 0.48155e+03_rb,0.41458e+03_rb,0.39948e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,10, 4) = (/ &\n        & 0.54220e+03_rb,0.51781e+03_rb,0.49343e+03_rb,0.47621e+03_rb,0.55067e+03_rb, &\n        & 0.47667e+03_rb,0.41315e+03_rb,0.39876e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,10, 4) = (/ &\n        & 0.53680e+03_rb,0.51310e+03_rb,0.48939e+03_rb,0.47371e+03_rb,0.54855e+03_rb, &\n        & 0.47238e+03_rb,0.41191e+03_rb,0.39814e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,10, 4) = (/ &\n        & 0.53207e+03_rb,0.50895e+03_rb,0.48584e+03_rb,0.47148e+03_rb,0.54655e+03_rb, &\n        & 0.46857e+03_rb,0.41082e+03_rb,0.39760e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,11, 4) = (/ &\n        & 0.53816e+03_rb,0.51428e+03_rb,0.49041e+03_rb,0.47455e+03_rb,0.54857e+03_rb, &\n        & 0.47346e+03_rb,0.41222e+03_rb,0.39830e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,11, 4) = (/ &\n        & 0.53226e+03_rb,0.50912e+03_rb,0.48598e+03_rb,0.47200e+03_rb,0.54640e+03_rb, &\n        & 0.46874e+03_rb,0.41086e+03_rb,0.39762e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,11, 4) = (/ &\n        & 0.52718e+03_rb,0.50468e+03_rb,0.48217e+03_rb,0.46982e+03_rb,0.54436e+03_rb, &\n        & 0.46486e+03_rb,0.40969e+03_rb,0.39703e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,11, 4) = (/ &\n        & 0.52277e+03_rb,0.50081e+03_rb,0.47886e+03_rb,0.46790e+03_rb,0.54248e+03_rb, &\n        & 0.46109e+03_rb,0.40868e+03_rb,0.39652e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,11, 4) = (/ &\n        & 0.51889e+03_rb,0.49742e+03_rb,0.47595e+03_rb,0.46618e+03_rb,0.54076e+03_rb, &\n        & 0.45793e+03_rb,0.40778e+03_rb,0.39608e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,12, 4) = (/ &\n        & 0.52385e+03_rb,0.50177e+03_rb,0.47968e+03_rb,0.46863e+03_rb,0.54244e+03_rb, &\n        & 0.46202e+03_rb,0.40893e+03_rb,0.39665e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,12, 4) = (/ &\n        & 0.51902e+03_rb,0.49754e+03_rb,0.47606e+03_rb,0.46673e+03_rb,0.54050e+03_rb, &\n        & 0.45805e+03_rb,0.40782e+03_rb,0.39609e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,12, 4) = (/ &\n        & 0.51487e+03_rb,0.49390e+03_rb,0.47294e+03_rb,0.46509e+03_rb,0.53868e+03_rb, &\n        & 0.45465e+03_rb,0.40686e+03_rb,0.39561e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,12, 4) = (/ &\n        & 0.51125e+03_rb,0.49074e+03_rb,0.47022e+03_rb,0.46362e+03_rb,0.53703e+03_rb, &\n        & 0.45171e+03_rb,0.40602e+03_rb,0.39520e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,12, 4) = (/ &\n        & 0.50807e+03_rb,0.48796e+03_rb,0.46784e+03_rb,0.46227e+03_rb,0.53558e+03_rb, &\n        & 0.44916e+03_rb,0.40529e+03_rb,0.39483e+03_rb,0.38437e+03_rb /)\n      kao(:, 1,13, 4) = (/ &\n        & 0.51214e+03_rb,0.49152e+03_rb,0.47089e+03_rb,0.46425e+03_rb,0.53698e+03_rb, &\n        & 0.45243e+03_rb,0.40623e+03_rb,0.39530e+03_rb,0.38437e+03_rb /)\n      kao(:, 2,13, 4) = (/ &\n        & 0.50819e+03_rb,0.48806e+03_rb,0.46793e+03_rb,0.46281e+03_rb,0.53522e+03_rb, &\n        & 0.44925e+03_rb,0.40532e+03_rb,0.39485e+03_rb,0.38437e+03_rb /)\n      kao(:, 3,13, 4) = (/ &\n        & 0.50478e+03_rb,0.48508e+03_rb,0.46537e+03_rb,0.46157e+03_rb,0.53378e+03_rb, &\n        & 0.44654e+03_rb,0.40453e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)\n      kao(:, 4,13, 4) = (/ &\n        & 0.50182e+03_rb,0.48249e+03_rb,0.46315e+03_rb,0.46044e+03_rb,0.53251e+03_rb, &\n        & 0.44422e+03_rb,0.40385e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kao(:, 5,13, 4) = (/ &\n        & 0.49922e+03_rb,0.48021e+03_rb,0.46120e+03_rb,0.45936e+03_rb,0.53137e+03_rb, &\n        & 0.44221e+03_rb,0.40325e+03_rb,0.39381e+03_rb,0.38437e+03_rb /)\n      kao(:, 1, 1, 5) = (/ &\n        & 0.13243e+04_rb,0.11799e+04_rb,0.10354e+04_rb,0.89093e+03_rb,0.74647e+03_rb, &\n        & 0.71044e+03_rb,0.61021e+03_rb,0.64069e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 1, 5) = (/ &\n        & 0.12908e+04_rb,0.11505e+04_rb,0.10102e+04_rb,0.86996e+03_rb,0.72969e+03_rb, &\n        & 0.70292e+03_rb,0.60750e+03_rb,0.63934e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 1, 5) = (/ &\n        & 0.12606e+04_rb,0.11241e+04_rb,0.98763e+03_rb,0.85113e+03_rb,0.71463e+03_rb, &\n        & 0.69451e+03_rb,0.60507e+03_rb,0.63812e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 1, 5) = (/ &\n        & 0.12334e+04_rb,0.11003e+04_rb,0.96722e+03_rb,0.83412e+03_rb,0.70102e+03_rb, &\n        & 0.68564e+03_rb,0.60287e+03_rb,0.63703e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 1, 5) = (/ &\n        & 0.12087e+04_rb,0.10787e+04_rb,0.94870e+03_rb,0.81869e+03_rb,0.68867e+03_rb, &\n        & 0.67724e+03_rb,0.60088e+03_rb,0.63603e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 2, 5) = (/ &\n        & 0.12234e+04_rb,0.10916e+04_rb,0.95972e+03_rb,0.82787e+03_rb,0.69602e+03_rb, &\n        & 0.68345e+03_rb,0.60207e+03_rb,0.63662e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 2, 5) = (/ &\n        & 0.11946e+04_rb,0.10664e+04_rb,0.93814e+03_rb,0.80988e+03_rb,0.68163e+03_rb, &\n        & 0.67225e+03_rb,0.59975e+03_rb,0.63546e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 2, 5) = (/ &\n        & 0.11689e+04_rb,0.10438e+04_rb,0.91881e+03_rb,0.79377e+03_rb,0.66882e+03_rb, &\n        & 0.66165e+03_rb,0.59767e+03_rb,0.63442e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 2, 5) = (/ &\n        & 0.11456e+04_rb,0.10235e+04_rb,0.90139e+03_rb,0.77926e+03_rb,0.65759e+03_rb, &\n        & 0.65058e+03_rb,0.59579e+03_rb,0.63348e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 2, 5) = (/ &\n        & 0.11246e+04_rb,0.10051e+04_rb,0.88561e+03_rb,0.76611e+03_rb,0.64778e+03_rb, &\n        & 0.64016e+03_rb,0.59410e+03_rb,0.63264e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 3, 5) = (/ &\n        & 0.11441e+04_rb,0.10221e+04_rb,0.90021e+03_rb,0.77828e+03_rb,0.65728e+03_rb, &\n        & 0.64981e+03_rb,0.59567e+03_rb,0.63342e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 3, 5) = (/ &\n        & 0.11188e+04_rb,0.10001e+04_rb,0.88128e+03_rb,0.76250e+03_rb,0.64582e+03_rb, &\n        & 0.63739e+03_rb,0.59363e+03_rb,0.63240e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 3, 5) = (/ &\n        & 0.10963e+04_rb,0.98033e+03_rb,0.86437e+03_rb,0.74841e+03_rb,0.63611e+03_rb, &\n        & 0.62581e+03_rb,0.59181e+03_rb,0.63149e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 3, 5) = (/ &\n        & 0.10761e+04_rb,0.96263e+03_rb,0.84920e+03_rb,0.73577e+03_rb,0.62780e+03_rb, &\n        & 0.61513e+03_rb,0.59018e+03_rb,0.63068e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 3, 5) = (/ &\n        & 0.10578e+04_rb,0.94664e+03_rb,0.83549e+03_rb,0.72435e+03_rb,0.62066e+03_rb, &\n        & 0.60588e+03_rb,0.58871e+03_rb,0.62994e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 4, 5) = (/ &\n        & 0.10783e+04_rb,0.96456e+03_rb,0.85086e+03_rb,0.73715e+03_rb,0.62971e+03_rb, &\n        & 0.61628e+03_rb,0.59036e+03_rb,0.63077e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 4, 5) = (/ &\n        & 0.10559e+04_rb,0.94502e+03_rb,0.83411e+03_rb,0.72319e+03_rb,0.62145e+03_rb, &\n        & 0.60490e+03_rb,0.58856e+03_rb,0.62987e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 4, 5) = (/ &\n        & 0.10361e+04_rb,0.92766e+03_rb,0.81923e+03_rb,0.71079e+03_rb,0.61457e+03_rb, &\n        & 0.59452e+03_rb,0.58696e+03_rb,0.62907e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 4, 5) = (/ &\n        & 0.10183e+04_rb,0.91213e+03_rb,0.80591e+03_rb,0.69970e+03_rb,0.60876e+03_rb, &\n        & 0.58559e+03_rb,0.58552e+03_rb,0.62835e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 4, 5) = (/ &\n        & 0.10024e+04_rb,0.89816e+03_rb,0.79394e+03_rb,0.68972e+03_rb,0.60374e+03_rb, &\n        & 0.57800e+03_rb,0.58424e+03_rb,0.62771e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 5, 5) = (/ &\n        & 0.10224e+04_rb,0.91564e+03_rb,0.80892e+03_rb,0.70221e+03_rb,0.61144e+03_rb, &\n        & 0.58757e+03_rb,0.58585e+03_rb,0.62851e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 5, 5) = (/ &\n        & 0.10026e+04_rb,0.89835e+03_rb,0.79410e+03_rb,0.68985e+03_rb,0.60588e+03_rb, &\n        & 0.57810e+03_rb,0.58425e+03_rb,0.62772e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 5, 5) = (/ &\n        & 0.98511e+03_rb,0.88305e+03_rb,0.78099e+03_rb,0.67893e+03_rb,0.60138e+03_rb, &\n        & 0.57034e+03_rb,0.58284e+03_rb,0.62701e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 5, 5) = (/ &\n        & 0.96954e+03_rb,0.86942e+03_rb,0.76931e+03_rb,0.66919e+03_rb,0.59759e+03_rb, &\n        & 0.56378e+03_rb,0.58159e+03_rb,0.62638e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 5, 5) = (/ &\n        & 0.95557e+03_rb,0.85720e+03_rb,0.75883e+03_rb,0.66046e+03_rb,0.59436e+03_rb, &\n        & 0.55823e+03_rb,0.58046e+03_rb,0.62582e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 6, 5) = (/ &\n        & 0.97547e+03_rb,0.87461e+03_rb,0.77376e+03_rb,0.67290e+03_rb,0.60045e+03_rb, &\n        & 0.56624e+03_rb,0.58207e+03_rb,0.62662e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 6, 5) = (/ &\n        & 0.95788e+03_rb,0.85922e+03_rb,0.76057e+03_rb,0.66191e+03_rb,0.59710e+03_rb, &\n        & 0.55912e+03_rb,0.58065e+03_rb,0.62591e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 6, 5) = (/ &\n        & 0.94241e+03_rb,0.84568e+03_rb,0.74896e+03_rb,0.65223e+03_rb,0.59434e+03_rb, &\n        & 0.55328e+03_rb,0.57940e+03_rb,0.62529e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 6, 5) = (/ &\n        & 0.92868e+03_rb,0.83367e+03_rb,0.73866e+03_rb,0.64365e+03_rb,0.59182e+03_rb, &\n        & 0.54839e+03_rb,0.57829e+03_rb,0.62473e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 6, 5) = (/ &\n        & 0.91642e+03_rb,0.82295e+03_rb,0.72947e+03_rb,0.63599e+03_rb,0.58948e+03_rb, &\n        & 0.54428e+03_rb,0.57730e+03_rb,0.62424e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 7, 5) = (/ &\n        & 0.93556e+03_rb,0.83969e+03_rb,0.74382e+03_rb,0.64795e+03_rb,0.59420e+03_rb, &\n        & 0.55081e+03_rb,0.57885e+03_rb,0.62501e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 7, 5) = (/ &\n        & 0.91989e+03_rb,0.82598e+03_rb,0.73207e+03_rb,0.63816e+03_rb,0.59179e+03_rb, &\n        & 0.54542e+03_rb,0.57758e+03_rb,0.62438e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 7, 5) = (/ &\n        & 0.90618e+03_rb,0.81398e+03_rb,0.72179e+03_rb,0.62959e+03_rb,0.58955e+03_rb, &\n        & 0.54102e+03_rb,0.57648e+03_rb,0.62383e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 7, 5) = (/ &\n        & 0.89407e+03_rb,0.80339e+03_rb,0.71271e+03_rb,0.62202e+03_rb,0.58737e+03_rb, &\n        & 0.53729e+03_rb,0.57550e+03_rb,0.62334e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 7, 5) = (/ &\n        & 0.88331e+03_rb,0.79397e+03_rb,0.70463e+03_rb,0.61530e+03_rb,0.58524e+03_rb, &\n        & 0.53413e+03_rb,0.57463e+03_rb,0.62290e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 8, 5) = (/ &\n        & 0.90140e+03_rb,0.80981e+03_rb,0.71821e+03_rb,0.62661e+03_rb,0.58941e+03_rb, &\n        & 0.53953e+03_rb,0.57609e+03_rb,0.62363e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 8, 5) = (/ &\n        & 0.88745e+03_rb,0.79760e+03_rb,0.70774e+03_rb,0.61789e+03_rb,0.58727e+03_rb, &\n        & 0.53533e+03_rb,0.57497e+03_rb,0.62307e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 8, 5) = (/ &\n        & 0.87531e+03_rb,0.78697e+03_rb,0.69863e+03_rb,0.61030e+03_rb,0.58522e+03_rb, &\n        & 0.53203e+03_rb,0.57399e+03_rb,0.62258e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 8, 5) = (/ &\n        & 0.86464e+03_rb,0.77763e+03_rb,0.69063e+03_rb,0.60363e+03_rb,0.58317e+03_rb, &\n        & 0.52938e+03_rb,0.57313e+03_rb,0.62215e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 8, 5) = (/ &\n        & 0.85519e+03_rb,0.76937e+03_rb,0.68354e+03_rb,0.59772e+03_rb,0.58120e+03_rb, &\n        & 0.52712e+03_rb,0.57236e+03_rb,0.62177e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 9, 5) = (/ &\n        & 0.87232e+03_rb,0.78435e+03_rb,0.69639e+03_rb,0.60843e+03_rb,0.58508e+03_rb, &\n        & 0.53128e+03_rb,0.57375e+03_rb,0.62246e+03_rb,0.67118e+03_rb /)\n      kao(:, 2, 9, 5) = (/ &\n        & 0.85988e+03_rb,0.77347e+03_rb,0.68706e+03_rb,0.60065e+03_rb,0.58302e+03_rb, &\n        & 0.52823e+03_rb,0.57274e+03_rb,0.62196e+03_rb,0.67118e+03_rb /)\n      kao(:, 3, 9, 5) = (/ &\n        & 0.84911e+03_rb,0.76405e+03_rb,0.67898e+03_rb,0.59392e+03_rb,0.58102e+03_rb, &\n        & 0.52572e+03_rb,0.57187e+03_rb,0.62153e+03_rb,0.67118e+03_rb /)\n      kao(:, 4, 9, 5) = (/ &\n        & 0.83970e+03_rb,0.75581e+03_rb,0.67193e+03_rb,0.58804e+03_rb,0.57906e+03_rb, &\n        & 0.52364e+03_rb,0.57111e+03_rb,0.62115e+03_rb,0.67118e+03_rb /)\n      kao(:, 5, 9, 5) = (/ &\n        & 0.83140e+03_rb,0.74855e+03_rb,0.66571e+03_rb,0.58286e+03_rb,0.57713e+03_rb, &\n        & 0.52190e+03_rb,0.57045e+03_rb,0.62081e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,10, 5) = (/ &\n        & 0.84657e+03_rb,0.76183e+03_rb,0.67708e+03_rb,0.59234e+03_rb,0.58061e+03_rb, &\n        & 0.52515e+03_rb,0.57167e+03_rb,0.62142e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,10, 5) = (/ &\n        & 0.83560e+03_rb,0.75223e+03_rb,0.66886e+03_rb,0.58548e+03_rb,0.57865e+03_rb, &\n        & 0.52276e+03_rb,0.57078e+03_rb,0.62098e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,10, 5) = (/ &\n        & 0.82616e+03_rb,0.74397e+03_rb,0.66177e+03_rb,0.57958e+03_rb,0.57663e+03_rb, &\n        & 0.52085e+03_rb,0.57002e+03_rb,0.62060e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,10, 5) = (/ &\n        & 0.81794e+03_rb,0.73678e+03_rb,0.65561e+03_rb,0.57444e+03_rb,0.57466e+03_rb, &\n        & 0.51933e+03_rb,0.56936e+03_rb,0.62027e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,10, 5) = (/ &\n        & 0.81073e+03_rb,0.73047e+03_rb,0.65020e+03_rb,0.56994e+03_rb,0.57276e+03_rb, &\n        & 0.51811e+03_rb,0.56878e+03_rb,0.61998e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,11, 5) = (/ &\n        & 0.82001e+03_rb,0.73859e+03_rb,0.65716e+03_rb,0.57574e+03_rb,0.57531e+03_rb, &\n        & 0.51970e+03_rb,0.56953e+03_rb,0.62035e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,11, 5) = (/ &\n        & 0.81102e+03_rb,0.73072e+03_rb,0.65042e+03_rb,0.57012e+03_rb,0.57326e+03_rb, &\n        & 0.51814e+03_rb,0.56880e+03_rb,0.61999e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,11, 5) = (/ &\n        & 0.80328e+03_rb,0.72395e+03_rb,0.64462e+03_rb,0.56528e+03_rb,0.57135e+03_rb, &\n        & 0.51670e+03_rb,0.56818e+03_rb,0.61968e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,11, 5) = (/ &\n        & 0.79655e+03_rb,0.71806e+03_rb,0.63957e+03_rb,0.56108e+03_rb,0.56956e+03_rb, &\n        & 0.51595e+03_rb,0.56763e+03_rb,0.61941e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,11, 5) = (/ &\n        & 0.79064e+03_rb,0.71289e+03_rb,0.63514e+03_rb,0.55738e+03_rb,0.56781e+03_rb, &\n        & 0.51517e+03_rb,0.56716e+03_rb,0.61917e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,12, 5) = (/ &\n        & 0.79821e+03_rb,0.71951e+03_rb,0.64081e+03_rb,0.56211e+03_rb,0.57002e+03_rb, &\n        & 0.51613e+03_rb,0.56777e+03_rb,0.61947e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,12, 5) = (/ &\n        & 0.79085e+03_rb,0.71307e+03_rb,0.63529e+03_rb,0.55751e+03_rb,0.56813e+03_rb, &\n        & 0.51519e+03_rb,0.56717e+03_rb,0.61918e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,12, 5) = (/ &\n        & 0.78452e+03_rb,0.70753e+03_rb,0.63054e+03_rb,0.55355e+03_rb,0.56648e+03_rb, &\n        & 0.51441e+03_rb,0.56666e+03_rb,0.61892e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,12, 5) = (/ &\n        & 0.77901e+03_rb,0.70271e+03_rb,0.62641e+03_rb,0.55011e+03_rb,0.56489e+03_rb, &\n        & 0.51374e+03_rb,0.56622e+03_rb,0.61870e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,12, 5) = (/ &\n        & 0.77417e+03_rb,0.69847e+03_rb,0.62278e+03_rb,0.54708e+03_rb,0.56325e+03_rb, &\n        & 0.51315e+03_rb,0.56583e+03_rb,0.61850e+03_rb,0.67118e+03_rb /)\n      kao(:, 1,13, 5) = (/ &\n        & 0.78036e+03_rb,0.70389e+03_rb,0.62743e+03_rb,0.55096e+03_rb,0.56495e+03_rb, &\n        & 0.51390e+03_rb,0.56633e+03_rb,0.61875e+03_rb,0.67118e+03_rb /)\n      kao(:, 2,13, 5) = (/ &\n        & 0.77434e+03_rb,0.69862e+03_rb,0.62291e+03_rb,0.54719e+03_rb,0.56343e+03_rb, &\n        & 0.51318e+03_rb,0.56584e+03_rb,0.61851e+03_rb,0.67118e+03_rb /)\n      kao(:, 3,13, 5) = (/ &\n        & 0.76915e+03_rb,0.69408e+03_rb,0.61902e+03_rb,0.54395e+03_rb,0.56189e+03_rb, &\n        & 0.51255e+03_rb,0.56542e+03_rb,0.61830e+03_rb,0.67118e+03_rb /)\n      kao(:, 4,13, 5) = (/ &\n        & 0.76464e+03_rb,0.69014e+03_rb,0.61563e+03_rb,0.54113e+03_rb,0.56027e+03_rb, &\n        & 0.51200e+03_rb,0.56506e+03_rb,0.61812e+03_rb,0.67118e+03_rb /)\n      kao(:, 5,13, 5) = (/ &\n        & 0.76068e+03_rb,0.68667e+03_rb,0.61266e+03_rb,0.53865e+03_rb,0.55865e+03_rb, &\n        & 0.51152e+03_rb,0.56474e+03_rb,0.61796e+03_rb,0.67118e+03_rb /)\n      kao(:, 1, 1, 6) = (/ &\n        & 0.16832e+04_rb,0.14832e+04_rb,0.12833e+04_rb,0.10834e+04_rb,0.88343e+03_rb, &\n        & 0.73047e+03_rb,0.75923e+03_rb,0.85568e+03_rb,0.94989e+03_rb /)\n      kao(:, 2, 1, 6) = (/ &\n        & 0.16405e+04_rb,0.14459e+04_rb,0.12513e+04_rb,0.10567e+04_rb,0.86211e+03_rb, &\n        & 0.72257e+03_rb,0.75791e+03_rb,0.85457e+03_rb,0.94915e+03_rb /)\n      kao(:, 3, 1, 6) = (/ &\n        & 0.16022e+04_rb,0.14124e+04_rb,0.12226e+04_rb,0.10328e+04_rb,0.84296e+03_rb, &\n        & 0.71182e+03_rb,0.75643e+03_rb,0.85315e+03_rb,0.94805e+03_rb /)\n      kao(:, 4, 1, 6) = (/ &\n        & 0.15677e+04_rb,0.13822e+04_rb,0.11967e+04_rb,0.10112e+04_rb,0.82566e+03_rb, &\n        & 0.70003e+03_rb,0.75475e+03_rb,0.85145e+03_rb,0.94659e+03_rb /)\n      kao(:, 5, 1, 6) = (/ &\n        & 0.15363e+04_rb,0.13547e+04_rb,0.11731e+04_rb,0.99155e+03_rb,0.80997e+03_rb, &\n        & 0.68802e+03_rb,0.75277e+03_rb,0.84941e+03_rb,0.94478e+03_rb /)\n      kao(:, 1, 2, 6) = (/ &\n        & 0.15549e+04_rb,0.13710e+04_rb,0.11871e+04_rb,0.10032e+04_rb,0.81930e+03_rb, &\n        & 0.69644e+03_rb,0.75599e+03_rb,0.85402e+03_rb,0.95009e+03_rb /)\n      kao(:, 2, 2, 6) = (/ &\n        & 0.15184e+04_rb,0.13390e+04_rb,0.11597e+04_rb,0.98036e+03_rb,0.80102e+03_rb, &\n        & 0.68214e+03_rb,0.75486e+03_rb,0.85308e+03_rb,0.94950e+03_rb /)\n      kao(:, 3, 2, 6) = (/ &\n        & 0.14856e+04_rb,0.13104e+04_rb,0.11351e+04_rb,0.95988e+03_rb,0.78464e+03_rb, &\n        & 0.67032e+03_rb,0.75359e+03_rb,0.85186e+03_rb,0.94855e+03_rb /)\n      kao(:, 4, 2, 6) = (/ &\n        & 0.14561e+04_rb,0.12845e+04_rb,0.11130e+04_rb,0.94143e+03_rb,0.76988e+03_rb, &\n        & 0.66240e+03_rb,0.75215e+03_rb,0.85037e+03_rb,0.94724e+03_rb /)\n      kao(:, 5, 2, 6) = (/ &\n        & 0.14294e+04_rb,0.12611e+04_rb,0.10929e+04_rb,0.92472e+03_rb,0.75651e+03_rb, &\n        & 0.65660e+03_rb,0.75042e+03_rb,0.84857e+03_rb,0.94557e+03_rb /)\n      kao(:, 1, 3, 6) = (/ &\n        & 0.14541e+04_rb,0.12828e+04_rb,0.11115e+04_rb,0.94019e+03_rb,0.76889e+03_rb, &\n        & 0.66226e+03_rb,0.75340e+03_rb,0.85268e+03_rb,0.95029e+03_rb /)\n      kao(:, 2, 3, 6) = (/ &\n        & 0.14220e+04_rb,0.12547e+04_rb,0.10874e+04_rb,0.92013e+03_rb,0.75284e+03_rb, &\n        & 0.65611e+03_rb,0.75249e+03_rb,0.85200e+03_rb,0.94990e+03_rb /)\n      kao(:, 3, 3, 6) = (/ &\n        & 0.13934e+04_rb,0.12297e+04_rb,0.10659e+04_rb,0.90223e+03_rb,0.73852e+03_rb, &\n        & 0.65222e+03_rb,0.75143e+03_rb,0.85101e+03_rb,0.94916e+03_rb /)\n      kao(:, 4, 3, 6) = (/ &\n        & 0.13676e+04_rb,0.12071e+04_rb,0.10467e+04_rb,0.88615e+03_rb,0.72566e+03_rb, &\n        & 0.64945e+03_rb,0.75024e+03_rb,0.84977e+03_rb,0.94807e+03_rb /)\n      kao(:, 5, 3, 6) = (/ &\n        & 0.13444e+04_rb,0.11868e+04_rb,0.10292e+04_rb,0.87164e+03_rb,0.71405e+03_rb, &\n        & 0.64733e+03_rb,0.74880e+03_rb,0.84822e+03_rb,0.94662e+03_rb /)\n      kao(:, 1, 4, 6) = (/ &\n        & 0.13705e+04_rb,0.12096e+04_rb,0.10488e+04_rb,0.88791e+03_rb,0.72707e+03_rb, &\n        & 0.64976e+03_rb,0.75119e+03_rb,0.85151e+03_rb,0.95037e+03_rb /)\n      kao(:, 2, 4, 6) = (/ &\n        & 0.13421e+04_rb,0.11848e+04_rb,0.10275e+04_rb,0.87017e+03_rb,0.71287e+03_rb, &\n        & 0.64785e+03_rb,0.75047e+03_rb,0.85104e+03_rb,0.95019e+03_rb /)\n      kao(:, 3, 4, 6) = (/ &\n        & 0.13169e+04_rb,0.11627e+04_rb,0.10086e+04_rb,0.85441e+03_rb,0.70026e+03_rb, &\n        & 0.64696e+03_rb,0.74964e+03_rb,0.85031e+03_rb,0.94968e+03_rb /)\n      kao(:, 4, 4, 6) = (/ &\n        & 0.12943e+04_rb,0.11430e+04_rb,0.99164e+03_rb,0.84031e+03_rb,0.68898e+03_rb, &\n        & 0.64601e+03_rb,0.74865e+03_rb,0.84930e+03_rb,0.94882e+03_rb /)\n      kao(:, 5, 4, 6) = (/ &\n        & 0.12740e+04_rb,0.11252e+04_rb,0.97642e+03_rb,0.82763e+03_rb,0.67884e+03_rb, &\n        & 0.64496e+03_rb,0.74747e+03_rb,0.84802e+03_rb,0.94760e+03_rb /)\n      kao(:, 1, 5, 6) = (/ &\n        & 0.12994e+04_rb,0.11474e+04_rb,0.99546e+03_rb,0.84350e+03_rb,0.69153e+03_rb, &\n        & 0.64599e+03_rb,0.74922e+03_rb,0.85040e+03_rb,0.95032e+03_rb /)\n      kao(:, 2, 5, 6) = (/ &\n        & 0.12743e+04_rb,0.11254e+04_rb,0.97662e+03_rb,0.82780e+03_rb,0.67897e+03_rb, &\n        & 0.64529e+03_rb,0.74869e+03_rb,0.85015e+03_rb,0.95034e+03_rb /)\n      kao(:, 3, 5, 6) = (/ &\n        & 0.12521e+04_rb,0.11060e+04_rb,0.95996e+03_rb,0.81391e+03_rb,0.66786e+03_rb, &\n        & 0.64458e+03_rb,0.74805e+03_rb,0.84965e+03_rb,0.95004e+03_rb /)\n      kao(:, 4, 5, 6) = (/ &\n        & 0.12323e+04_rb,0.10887e+04_rb,0.94511e+03_rb,0.80154e+03_rb,0.65797e+03_rb, &\n        & 0.64380e+03_rb,0.74727e+03_rb,0.84886e+03_rb,0.94940e+03_rb /)\n      kao(:, 5, 5, 6) = (/ &\n        & 0.12145e+04_rb,0.10732e+04_rb,0.93180e+03_rb,0.79045e+03_rb,0.64909e+03_rb, &\n        & 0.64294e+03_rb,0.74629e+03_rb,0.84781e+03_rb,0.94841e+03_rb /)\n      kao(:, 1, 6, 6) = (/ &\n        & 0.12398e+04_rb,0.10953e+04_rb,0.95077e+03_rb,0.80625e+03_rb,0.66174e+03_rb, &\n        & 0.64362e+03_rb,0.74747e+03_rb,0.84935e+03_rb,0.95014e+03_rb /)\n      kao(:, 2, 6, 6) = (/ &\n        & 0.12174e+04_rb,0.10757e+04_rb,0.93400e+03_rb,0.79228e+03_rb,0.65056e+03_rb, &\n        & 0.64308e+03_rb,0.74712e+03_rb,0.84932e+03_rb,0.95036e+03_rb /)\n      kao(:, 3, 6, 6) = (/ &\n        & 0.11978e+04_rb,0.10585e+04_rb,0.91925e+03_rb,0.77999e+03_rb,0.64087e+03_rb, &\n        & 0.64253e+03_rb,0.74666e+03_rb,0.84902e+03_rb,0.95027e+03_rb /)\n      kao(:, 4, 6, 6) = (/ &\n        & 0.11803e+04_rb,0.10432e+04_rb,0.90616e+03_rb,0.76908e+03_rb,0.63262e+03_rb, &\n        & 0.64192e+03_rb,0.74606e+03_rb,0.84847e+03_rb,0.94985e+03_rb /)\n      kao(:, 5, 6, 6) = (/ &\n        & 0.11647e+04_rb,0.10296e+04_rb,0.89448e+03_rb,0.75935e+03_rb,0.62549e+03_rb, &\n        & 0.64122e+03_rb,0.74529e+03_rb,0.84763e+03_rb,0.94909e+03_rb /)\n      kao(:, 1, 7, 6) = (/ &\n        & 0.11891e+04_rb,0.10509e+04_rb,0.91272e+03_rb,0.77455e+03_rb,0.63693e+03_rb, &\n        & 0.64154e+03_rb,0.74584e+03_rb,0.84830e+03_rb,0.94975e+03_rb /)\n      kao(:, 2, 7, 6) = (/ &\n        & 0.11692e+04_rb,0.10335e+04_rb,0.89779e+03_rb,0.76210e+03_rb,0.62795e+03_rb, &\n        & 0.64115e+03_rb,0.74575e+03_rb,0.84848e+03_rb,0.95025e+03_rb /)\n      kao(:, 3, 7, 6) = (/ &\n        & 0.11517e+04_rb,0.10182e+04_rb,0.88471e+03_rb,0.75121e+03_rb,0.62051e+03_rb, &\n        & 0.64074e+03_rb,0.74542e+03_rb,0.84840e+03_rb,0.95037e+03_rb /)\n      kao(:, 4, 7, 6) = (/ &\n        & 0.11363e+04_rb,0.10048e+04_rb,0.87317e+03_rb,0.74159e+03_rb,0.61432e+03_rb, &\n        & 0.64028e+03_rb,0.74499e+03_rb,0.84806e+03_rb,0.95015e+03_rb /)\n      kao(:, 5, 7, 6) = (/ &\n        & 0.11227e+04_rb,0.99279e+03_rb,0.86291e+03_rb,0.73304e+03_rb,0.60908e+03_rb, &\n        & 0.63974e+03_rb,0.74440e+03_rb,0.84744e+03_rb,0.94961e+03_rb /)\n      kao(:, 1, 8, 6) = (/ &\n        & 0.11457e+04_rb,0.10129e+04_rb,0.88017e+03_rb,0.74742e+03_rb,0.61848e+03_rb, &\n        & 0.63968e+03_rb,0.74433e+03_rb,0.84725e+03_rb,0.94927e+03_rb /)\n      kao(:, 2, 8, 6) = (/ &\n        & 0.11279e+04_rb,0.99740e+03_rb,0.86687e+03_rb,0.73633e+03_rb,0.61183e+03_rb, &\n        & 0.63944e+03_rb,0.74439e+03_rb,0.84765e+03_rb,0.94999e+03_rb /)\n      kao(:, 3, 8, 6) = (/ &\n        & 0.11125e+04_rb,0.98389e+03_rb,0.85529e+03_rb,0.72668e+03_rb,0.60652e+03_rb, &\n        & 0.63917e+03_rb,0.74428e+03_rb,0.84777e+03_rb,0.95034e+03_rb /)\n      kao(:, 4, 8, 6) = (/ &\n        & 0.10989e+04_rb,0.97202e+03_rb,0.84512e+03_rb,0.71821e+03_rb,0.60224e+03_rb, &\n        & 0.63885e+03_rb,0.74401e+03_rb,0.84763e+03_rb,0.95032e+03_rb /)\n      kao(:, 5, 8, 6) = (/ &\n        & 0.10869e+04_rb,0.96152e+03_rb,0.83611e+03_rb,0.71070e+03_rb,0.59867e+03_rb, &\n        & 0.63844e+03_rb,0.74359e+03_rb,0.84721e+03_rb,0.94997e+03_rb /)\n      kao(:, 1, 9, 6) = (/ &\n        & 0.11087e+04_rb,0.98057e+03_rb,0.85244e+03_rb,0.72431e+03_rb,0.60583e+03_rb, &\n        & 0.63802e+03_rb,0.74290e+03_rb,0.84619e+03_rb,0.94868e+03_rb /)\n      kao(:, 2, 9, 6) = (/ &\n        & 0.10929e+04_rb,0.96673e+03_rb,0.84058e+03_rb,0.71443e+03_rb,0.60128e+03_rb, &\n        & 0.63792e+03_rb,0.74318e+03_rb,0.84681e+03_rb,0.94962e+03_rb /)\n      kao(:, 3, 9, 6) = (/ &\n        & 0.10792e+04_rb,0.95475e+03_rb,0.83031e+03_rb,0.70587e+03_rb,0.59784e+03_rb, &\n        & 0.63778e+03_rb,0.74323e+03_rb,0.84713e+03_rb,0.95019e+03_rb /)\n      kao(:, 4, 9, 6) = (/ &\n        & 0.10672e+04_rb,0.94429e+03_rb,0.82134e+03_rb,0.69840e+03_rb,0.59517e+03_rb, &\n        & 0.63759e+03_rb,0.74313e+03_rb,0.84718e+03_rb,0.95037e+03_rb /)\n      kao(:, 5, 9, 6) = (/ &\n        & 0.10567e+04_rb,0.93506e+03_rb,0.81344e+03_rb,0.69181e+03_rb,0.59278e+03_rb, &\n        & 0.63730e+03_rb,0.74285e+03_rb,0.84695e+03_rb,0.95021e+03_rb /)\n      kao(:, 1,10, 6) = (/ &\n        & 0.10760e+04_rb,0.95193e+03_rb,0.82790e+03_rb,0.70386e+03_rb,0.59768e+03_rb, &\n        & 0.63651e+03_rb,0.74157e+03_rb,0.84519e+03_rb,0.94809e+03_rb /)\n      kao(:, 2,10, 6) = (/ &\n        & 0.10620e+04_rb,0.93974e+03_rb,0.81744e+03_rb,0.69515e+03_rb,0.59477e+03_rb, &\n        & 0.63656e+03_rb,0.74203e+03_rb,0.84600e+03_rb,0.94921e+03_rb /)\n      kao(:, 3,10, 6) = (/ &\n        & 0.10500e+04_rb,0.92923e+03_rb,0.80844e+03_rb,0.68764e+03_rb,0.59242e+03_rb, &\n        & 0.63654e+03_rb,0.74226e+03_rb,0.84650e+03_rb,0.94996e+03_rb /)\n      kao(:, 4,10, 6) = (/ &\n        & 0.10396e+04_rb,0.92010e+03_rb,0.80061e+03_rb,0.68112e+03_rb,0.59042e+03_rb, &\n        & 0.63645e+03_rb,0.74230e+03_rb,0.84672e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,10, 6) = (/ &\n        & 0.10304e+04_rb,0.91207e+03_rb,0.79373e+03_rb,0.67539e+03_rb,0.58849e+03_rb, &\n        & 0.63628e+03_rb,0.74216e+03_rb,0.84665e+03_rb,0.95033e+03_rb /)\n      kao(:, 1,11, 6) = (/ &\n        & 0.10422e+04_rb,0.92239e+03_rb,0.80258e+03_rb,0.68276e+03_rb,0.59118e+03_rb, &\n        & 0.63525e+03_rb,0.74065e+03_rb,0.84470e+03_rb,0.94808e+03_rb /)\n      kao(:, 2,11, 6) = (/ &\n        & 0.10308e+04_rb,0.91240e+03_rb,0.79401e+03_rb,0.67562e+03_rb,0.58920e+03_rb, &\n        & 0.63540e+03_rb,0.74118e+03_rb,0.84554e+03_rb,0.94920e+03_rb /)\n      kao(:, 3,11, 6) = (/ &\n        & 0.10210e+04_rb,0.90379e+03_rb,0.78663e+03_rb,0.66947e+03_rb,0.58737e+03_rb, &\n        & 0.63545e+03_rb,0.74147e+03_rb,0.84609e+03_rb,0.94995e+03_rb /)\n      kao(:, 4,11, 6) = (/ &\n        & 0.10124e+04_rb,0.89631e+03_rb,0.78022e+03_rb,0.66413e+03_rb,0.58569e+03_rb, &\n        & 0.63543e+03_rb,0.74156e+03_rb,0.84634e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,11, 6) = (/ &\n        & 0.10049e+04_rb,0.88974e+03_rb,0.77458e+03_rb,0.65943e+03_rb,0.58398e+03_rb, &\n        & 0.63532e+03_rb,0.74146e+03_rb,0.84628e+03_rb,0.95033e+03_rb /)\n      kao(:, 1,12, 6) = (/ &\n        & 0.10145e+04_rb,0.89815e+03_rb,0.78180e+03_rb,0.66544e+03_rb,0.58616e+03_rb, &\n        & 0.63421e+03_rb,0.73990e+03_rb,0.84430e+03_rb,0.94808e+03_rb /)\n      kao(:, 2,12, 6) = (/ &\n        & 0.10052e+04_rb,0.88997e+03_rb,0.77478e+03_rb,0.65960e+03_rb,0.58451e+03_rb, &\n        & 0.63444e+03_rb,0.74048e+03_rb,0.84518e+03_rb,0.94921e+03_rb /)\n      kao(:, 3,12, 6) = (/ &\n        & 0.99710e+03_rb,0.88292e+03_rb,0.76874e+03_rb,0.65457e+03_rb,0.58265e+03_rb, &\n        & 0.63457e+03_rb,0.74082e+03_rb,0.84574e+03_rb,0.94995e+03_rb /)\n      kao(:, 4,12, 6) = (/ &\n        & 0.99010e+03_rb,0.87679e+03_rb,0.76349e+03_rb,0.65019e+03_rb,0.58054e+03_rb, &\n        & 0.63460e+03_rb,0.74095e+03_rb,0.84600e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,12, 6) = (/ &\n        & 0.98395e+03_rb,0.87141e+03_rb,0.75888e+03_rb,0.64634e+03_rb,0.57844e+03_rb, &\n        & 0.63453e+03_rb,0.74089e+03_rb,0.84598e+03_rb,0.95033e+03_rb /)\n      kao(:, 1,13, 6) = (/ &\n        & 0.99182e+03_rb,0.87830e+03_rb,0.76478e+03_rb,0.65127e+03_rb,0.58122e+03_rb, &\n        & 0.63336e+03_rb,0.73928e+03_rb,0.84397e+03_rb,0.94808e+03_rb /)\n      kao(:, 2,13, 6) = (/ &\n        & 0.98416e+03_rb,0.87160e+03_rb,0.75904e+03_rb,0.64648e+03_rb,0.57888e+03_rb, &\n        & 0.63366e+03_rb,0.73991e+03_rb,0.84487e+03_rb,0.94921e+03_rb /)\n      kao(:, 3,13, 6) = (/ &\n        & 0.97757e+03_rb,0.86583e+03_rb,0.75410e+03_rb,0.64236e+03_rb,0.57650e+03_rb, &\n        & 0.63384e+03_rb,0.74029e+03_rb,0.84546e+03_rb,0.94996e+03_rb /)\n      kao(:, 4,13, 6) = (/ &\n        & 0.97184e+03_rb,0.86082e+03_rb,0.74980e+03_rb,0.63878e+03_rb,0.57428e+03_rb, &\n        & 0.63391e+03_rb,0.74045e+03_rb,0.84574e+03_rb,0.95033e+03_rb /)\n      kao(:, 5,13, 6) = (/ &\n        & 0.96680e+03_rb,0.85641e+03_rb,0.74602e+03_rb,0.63563e+03_rb,0.57218e+03_rb, &\n        & 0.63388e+03_rb,0.74043e+03_rb,0.84574e+03_rb,0.95033e+03_rb /)\n      kao(:, 1, 1, 7) = (/ &\n        & 0.18845e+04_rb,0.16548e+04_rb,0.14251e+04_rb,0.11953e+04_rb,0.96557e+03_rb, &\n        & 0.74301e+03_rb,0.82697e+03_rb,0.94964e+03_rb,0.10740e+04_rb /)\n      kao(:, 2, 1, 7) = (/ &\n        & 0.18367e+04_rb,0.16130e+04_rb,0.13892e+04_rb,0.11655e+04_rb,0.94169e+03_rb, &\n        & 0.73101e+03_rb,0.82533e+03_rb,0.94833e+03_rb,0.10730e+04_rb /)\n      kao(:, 3, 1, 7) = (/ &\n        & 0.17938e+04_rb,0.15755e+04_rb,0.13571e+04_rb,0.11387e+04_rb,0.92025e+03_rb, &\n        & 0.71894e+03_rb,0.82353e+03_rb,0.94679e+03_rb,0.10715e+04_rb /)\n      kao(:, 4, 1, 7) = (/ &\n        & 0.17551e+04_rb,0.15416e+04_rb,0.13280e+04_rb,0.11145e+04_rb,0.90089e+03_rb, &\n        & 0.70691e+03_rb,0.82149e+03_rb,0.94487e+03_rb,0.10696e+04_rb /)\n      kao(:, 5, 1, 7) = (/ &\n        & 0.17200e+04_rb,0.15108e+04_rb,0.13017e+04_rb,0.10925e+04_rb,0.88332e+03_rb, &\n        & 0.69946e+03_rb,0.81920e+03_rb,0.94260e+03_rb,0.10672e+04_rb /)\n      kao(:, 1, 2, 7) = (/ &\n        & 0.17409e+04_rb,0.15291e+04_rb,0.13174e+04_rb,0.11056e+04_rb,0.89377e+03_rb, &\n        & 0.70556e+03_rb,0.82545e+03_rb,0.94918e+03_rb,0.10743e+04_rb /)\n      kao(:, 2, 2, 7) = (/ &\n        & 0.16999e+04_rb,0.14933e+04_rb,0.12867e+04_rb,0.10800e+04_rb,0.87329e+03_rb, &\n        & 0.70177e+03_rb,0.82404e+03_rb,0.94806e+03_rb,0.10734e+04_rb /)\n      kao(:, 3, 2, 7) = (/ &\n        & 0.16632e+04_rb,0.14612e+04_rb,0.12591e+04_rb,0.10571e+04_rb,0.85495e+03_rb, &\n        & 0.69985e+03_rb,0.82245e+03_rb,0.94668e+03_rb,0.10721e+04_rb /)\n      kao(:, 4, 2, 7) = (/ &\n        & 0.16302e+04_rb,0.14323e+04_rb,0.12344e+04_rb,0.10364e+04_rb,0.83842e+03_rb, &\n        & 0.69778e+03_rb,0.82061e+03_rb,0.94495e+03_rb,0.10705e+04_rb /)\n      kao(:, 5, 2, 7) = (/ &\n        & 0.16003e+04_rb,0.14061e+04_rb,0.12119e+04_rb,0.10177e+04_rb,0.82345e+03_rb, &\n        & 0.69549e+03_rb,0.81853e+03_rb,0.94286e+03_rb,0.10683e+04_rb /)\n      kao(:, 1, 3, 7) = (/ &\n        & 0.16280e+04_rb,0.14303e+04_rb,0.12327e+04_rb,0.10350e+04_rb,0.83731e+03_rb, &\n        & 0.70164e+03_rb,0.82440e+03_rb,0.94900e+03_rb,0.10748e+04_rb /)\n      kao(:, 2, 3, 7) = (/ &\n        & 0.15920e+04_rb,0.13989e+04_rb,0.12057e+04_rb,0.10126e+04_rb,0.81934e+03_rb, &\n        & 0.70016e+03_rb,0.82323e+03_rb,0.94804e+03_rb,0.10740e+04_rb /)\n      kao(:, 3, 3, 7) = (/ &\n        & 0.15600e+04_rb,0.13708e+04_rb,0.11817e+04_rb,0.99252e+03_rb,0.80330e+03_rb, &\n        & 0.69850e+03_rb,0.82187e+03_rb,0.94688e+03_rb,0.10730e+04_rb /)\n      kao(:, 4, 3, 7) = (/ &\n        & 0.15312e+04_rb,0.13457e+04_rb,0.11601e+04_rb,0.97452e+03_rb,0.78890e+03_rb, &\n        & 0.69669e+03_rb,0.82029e+03_rb,0.94542e+03_rb,0.10716e+04_rb /)\n      kao(:, 5, 3, 7) = (/ &\n        & 0.15052e+04_rb,0.13229e+04_rb,0.11406e+04_rb,0.95827e+03_rb,0.77590e+03_rb, &\n        & 0.69468e+03_rb,0.81844e+03_rb,0.94358e+03_rb,0.10697e+04_rb /)\n      kao(:, 1, 4, 7) = (/ &\n        & 0.15343e+04_rb,0.13484e+04_rb,0.11625e+04_rb,0.97650e+03_rb,0.79047e+03_rb, &\n        & 0.70005e+03_rb,0.82352e+03_rb,0.94883e+03_rb,0.10751e+04_rb /)\n      kao(:, 2, 4, 7) = (/ &\n        & 0.15026e+04_rb,0.13206e+04_rb,0.11386e+04_rb,0.95663e+03_rb,0.77458e+03_rb, &\n        & 0.69884e+03_rb,0.82260e+03_rb,0.94808e+03_rb,0.10745e+04_rb /)\n      kao(:, 3, 4, 7) = (/ &\n        & 0.14743e+04_rb,0.12959e+04_rb,0.11175e+04_rb,0.93898e+03_rb,0.76046e+03_rb, &\n        & 0.69743e+03_rb,0.82145e+03_rb,0.94711e+03_rb,0.10737e+04_rb /)\n      kao(:, 4, 4, 7) = (/ &\n        & 0.14491e+04_rb,0.12738e+04_rb,0.10985e+04_rb,0.92319e+03_rb,0.74783e+03_rb, &\n        & 0.69586e+03_rb,0.82010e+03_rb,0.94588e+03_rb,0.10725e+04_rb /)\n      kao(:, 5, 4, 7) = (/ &\n        & 0.14263e+04_rb,0.12539e+04_rb,0.10815e+04_rb,0.90900e+03_rb,0.73646e+03_rb, &\n        & 0.69412e+03_rb,0.81852e+03_rb,0.94430e+03_rb,0.10710e+04_rb /)\n      kao(:, 1, 5, 7) = (/ &\n        & 0.14548e+04_rb,0.12788e+04_rb,0.11028e+04_rb,0.92676e+03_rb,0.75068e+03_rb, &\n        & 0.69862e+03_rb,0.82271e+03_rb,0.94860e+03_rb,0.10753e+04_rb /)\n      kao(:, 2, 5, 7) = (/ &\n        & 0.14266e+04_rb,0.12542e+04_rb,0.10817e+04_rb,0.90918e+03_rb,0.73662e+03_rb, &\n        & 0.69765e+03_rb,0.82202e+03_rb,0.94804e+03_rb,0.10749e+04_rb /)\n      kao(:, 3, 5, 7) = (/ &\n        & 0.14018e+04_rb,0.12324e+04_rb,0.10630e+04_rb,0.89363e+03_rb,0.72418e+03_rb, &\n        & 0.69649e+03_rb,0.82110e+03_rb,0.94729e+03_rb,0.10743e+04_rb /)\n      kao(:, 4, 5, 7) = (/ &\n        & 0.13796e+04_rb,0.12130e+04_rb,0.10464e+04_rb,0.87978e+03_rb,0.71309e+03_rb, &\n        & 0.69515e+03_rb,0.81992e+03_rb,0.94623e+03_rb,0.10733e+04_rb /)\n      kao(:, 5, 5, 7) = (/ &\n        & 0.13597e+04_rb,0.11956e+04_rb,0.10315e+04_rb,0.86737e+03_rb,0.70315e+03_rb, &\n        & 0.69363e+03_rb,0.81858e+03_rb,0.94492e+03_rb,0.10720e+04_rb /)\n      kao(:, 1, 6, 7) = (/ &\n        & 0.13881e+04_rb,0.12204e+04_rb,0.10528e+04_rb,0.88506e+03_rb,0.71732e+03_rb, &\n        & 0.69732e+03_rb,0.82195e+03_rb,0.94833e+03_rb,0.10753e+04_rb /)\n      kao(:, 2, 6, 7) = (/ &\n        & 0.13630e+04_rb,0.11985e+04_rb,0.10340e+04_rb,0.86942e+03_rb,0.70480e+03_rb, &\n        & 0.69661e+03_rb,0.82150e+03_rb,0.94796e+03_rb,0.10752e+04_rb /)\n      kao(:, 3, 6, 7) = (/ &\n        & 0.13410e+04_rb,0.11792e+04_rb,0.10175e+04_rb,0.85565e+03_rb,0.69378e+03_rb, &\n        & 0.69568e+03_rb,0.82079e+03_rb,0.94739e+03_rb,0.10747e+04_rb /)\n      kao(:, 4, 6, 7) = (/ &\n        & 0.13215e+04_rb,0.11622e+04_rb,0.10028e+04_rb,0.84344e+03_rb,0.68401e+03_rb, &\n        & 0.69456e+03_rb,0.81984e+03_rb,0.94655e+03_rb,0.10740e+04_rb /)\n      kao(:, 5, 6, 7) = (/ &\n        & 0.13040e+04_rb,0.11469e+04_rb,0.98973e+03_rb,0.83254e+03_rb,0.67529e+03_rb, &\n        & 0.69326e+03_rb,0.81868e+03_rb,0.94544e+03_rb,0.10729e+04_rb /)\n      kao(:, 1, 7, 7) = (/ &\n        & 0.13313e+04_rb,0.11707e+04_rb,0.10101e+04_rb,0.84956e+03_rb,0.68891e+03_rb, &\n        & 0.69611e+03_rb,0.82122e+03_rb,0.94800e+03_rb,0.10754e+04_rb /)\n      kao(:, 2, 7, 7) = (/ &\n        & 0.13090e+04_rb,0.11512e+04_rb,0.99343e+03_rb,0.83562e+03_rb,0.67776e+03_rb, &\n        & 0.69564e+03_rb,0.82091e+03_rb,0.94785e+03_rb,0.10753e+04_rb /)\n      kao(:, 3, 7, 7) = (/ &\n        & 0.12894e+04_rb,0.11341e+04_rb,0.97879e+03_rb,0.82342e+03_rb,0.66800e+03_rb, &\n        & 0.69494e+03_rb,0.82048e+03_rb,0.94742e+03_rb,0.10750e+04_rb /)\n      kao(:, 4, 7, 7) = (/ &\n        & 0.12722e+04_rb,0.11191e+04_rb,0.96587e+03_rb,0.81266e+03_rb,0.65938e+03_rb, &\n        & 0.69403e+03_rb,0.81973e+03_rb,0.94677e+03_rb,0.10745e+04_rb /)\n      kao(:, 5, 7, 7) = (/ &\n        & 0.12569e+04_rb,0.11057e+04_rb,0.95438e+03_rb,0.80308e+03_rb,0.65172e+03_rb, &\n        & 0.69293e+03_rb,0.81874e+03_rb,0.94587e+03_rb,0.10736e+04_rb /)\n      kao(:, 1, 8, 7) = (/ &\n        & 0.12827e+04_rb,0.11282e+04_rb,0.97371e+03_rb,0.81918e+03_rb,0.66460e+03_rb, &\n        & 0.69497e+03_rb,0.82050e+03_rb,0.94762e+03_rb,0.10753e+04_rb /)\n      kao(:, 2, 8, 7) = (/ &\n        & 0.12628e+04_rb,0.11108e+04_rb,0.95881e+03_rb,0.80678e+03_rb,0.65467e+03_rb, &\n        & 0.69473e+03_rb,0.82044e+03_rb,0.94765e+03_rb,0.10754e+04_rb /)\n      kao(:, 3, 8, 7) = (/ &\n        & 0.12455e+04_rb,0.10957e+04_rb,0.94585e+03_rb,0.79597e+03_rb,0.64602e+03_rb, &\n        & 0.69425e+03_rb,0.82014e+03_rb,0.94746e+03_rb,0.10752e+04_rb /)\n      kao(:, 4, 8, 7) = (/ &\n        & 0.12303e+04_rb,0.10824e+04_rb,0.93446e+03_rb,0.78648e+03_rb,0.63843e+03_rb, &\n        & 0.69354e+03_rb,0.81959e+03_rb,0.94691e+03_rb,0.10748e+04_rb /)\n      kao(:, 5, 8, 7) = (/ &\n        & 0.12169e+04_rb,0.10706e+04_rb,0.92437e+03_rb,0.77807e+03_rb,0.63171e+03_rb, &\n        & 0.69262e+03_rb,0.81878e+03_rb,0.94618e+03_rb,0.10741e+04_rb /)\n      kao(:, 1, 9, 7) = (/ &\n        & 0.12413e+04_rb,0.10920e+04_rb,0.94266e+03_rb,0.79331e+03_rb,0.64390e+03_rb, &\n        & 0.69387e+03_rb,0.81977e+03_rb,0.94713e+03_rb,0.10750e+04_rb /)\n      kao(:, 2, 9, 7) = (/ &\n        & 0.12236e+04_rb,0.10765e+04_rb,0.92938e+03_rb,0.78225e+03_rb,0.63504e+03_rb, &\n        & 0.69385e+03_rb,0.81989e+03_rb,0.94741e+03_rb,0.10753e+04_rb /)\n      kao(:, 3, 9, 7) = (/ &\n        & 0.12082e+04_rb,0.10631e+04_rb,0.91789e+03_rb,0.77267e+03_rb,0.62738e+03_rb, &\n        & 0.69359e+03_rb,0.81979e+03_rb,0.94732e+03_rb,0.10754e+04_rb /)\n      kao(:, 4, 9, 7) = (/ &\n        & 0.11949e+04_rb,0.10514e+04_rb,0.90785e+03_rb,0.76430e+03_rb,0.62068e+03_rb, &\n        & 0.69307e+03_rb,0.81942e+03_rb,0.94698e+03_rb,0.10751e+04_rb /)\n      kao(:, 5, 9, 7) = (/ &\n        & 0.11831e+04_rb,0.10410e+04_rb,0.89899e+03_rb,0.75692e+03_rb,0.61500e+03_rb, &\n        & 0.69235e+03_rb,0.81879e+03_rb,0.94641e+03_rb,0.10746e+04_rb /)\n      kao(:, 1,10, 7) = (/ &\n        & 0.12046e+04_rb,0.10599e+04_rb,0.91518e+03_rb,0.77041e+03_rb,0.62557e+03_rb, &\n        & 0.69285e+03_rb,0.81909e+03_rb,0.94663e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,10, 7) = (/ &\n        & 0.11890e+04_rb,0.10463e+04_rb,0.90347e+03_rb,0.76066e+03_rb,0.61799e+03_rb, &\n        & 0.69301e+03_rb,0.81937e+03_rb,0.94709e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,10, 7) = (/ &\n        & 0.11756e+04_rb,0.10345e+04_rb,0.89339e+03_rb,0.75225e+03_rb,0.61189e+03_rb, &\n        & 0.69293e+03_rb,0.81942e+03_rb,0.94719e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,10, 7) = (/ &\n        & 0.11639e+04_rb,0.10243e+04_rb,0.88463e+03_rb,0.74495e+03_rb,0.60683e+03_rb, &\n        & 0.69260e+03_rb,0.81922e+03_rb,0.94698e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,10, 7) = (/ &\n        & 0.11536e+04_rb,0.10153e+04_rb,0.87693e+03_rb,0.73853e+03_rb,0.60268e+03_rb, &\n        & 0.69203e+03_rb,0.81871e+03_rb,0.94653e+03_rb,0.10749e+04_rb /)\n      kao(:, 1,11, 7) = (/ &\n        & 0.11668e+04_rb,0.10268e+04_rb,0.88684e+03_rb,0.74678e+03_rb,0.60837e+03_rb, &\n        & 0.69208e+03_rb,0.81864e+03_rb,0.94642e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,11, 7) = (/ &\n        & 0.11540e+04_rb,0.10157e+04_rb,0.87724e+03_rb,0.73879e+03_rb,0.60335e+03_rb, &\n        & 0.69229e+03_rb,0.81896e+03_rb,0.94691e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,11, 7) = (/ &\n        & 0.11430e+04_rb,0.10060e+04_rb,0.86898e+03_rb,0.73191e+03_rb,0.59939e+03_rb, &\n        & 0.69226e+03_rb,0.81904e+03_rb,0.94700e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,11, 7) = (/ &\n        & 0.11335e+04_rb,0.99764e+03_rb,0.86180e+03_rb,0.72592e+03_rb,0.59585e+03_rb, &\n        & 0.69198e+03_rb,0.81884e+03_rb,0.94679e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,11, 7) = (/ &\n        & 0.11251e+04_rb,0.99028e+03_rb,0.85549e+03_rb,0.72067e+03_rb,0.59286e+03_rb, &\n        & 0.69146e+03_rb,0.81839e+03_rb,0.94639e+03_rb,0.10749e+04_rb /)\n      kao(:, 1,12, 7) = (/ &\n        & 0.11358e+04_rb,0.99970e+03_rb,0.86357e+03_rb,0.72739e+03_rb,0.59707e+03_rb, &\n        & 0.69145e+03_rb,0.81829e+03_rb,0.94626e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,12, 7) = (/ &\n        & 0.11253e+04_rb,0.99054e+03_rb,0.85571e+03_rb,0.72085e+03_rb,0.59339e+03_rb, &\n        & 0.69172e+03_rb,0.81863e+03_rb,0.94675e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,12, 7) = (/ &\n        & 0.11163e+04_rb,0.98265e+03_rb,0.84895e+03_rb,0.71521e+03_rb,0.59030e+03_rb, &\n        & 0.69172e+03_rb,0.81873e+03_rb,0.94686e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,12, 7) = (/ &\n        & 0.11085e+04_rb,0.97579e+03_rb,0.84307e+03_rb,0.71031e+03_rb,0.58782e+03_rb, &\n        & 0.69148e+03_rb,0.81855e+03_rb,0.94672e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,12, 7) = (/ &\n        & 0.11016e+04_rb,0.96977e+03_rb,0.83790e+03_rb,0.70601e+03_rb,0.58538e+03_rb, &\n        & 0.69099e+03_rb,0.81812e+03_rb,0.94628e+03_rb,0.10749e+04_rb /)\n      kao(:, 1,13, 7) = (/ &\n        & 0.11104e+04_rb,0.97748e+03_rb,0.84452e+03_rb,0.71152e+03_rb,0.58852e+03_rb, &\n        & 0.69093e+03_rb,0.81799e+03_rb,0.94612e+03_rb,0.10746e+04_rb /)\n      kao(:, 2,13, 7) = (/ &\n        & 0.11018e+04_rb,0.96998e+03_rb,0.83809e+03_rb,0.70616e+03_rb,0.58570e+03_rb, &\n        & 0.69123e+03_rb,0.81841e+03_rb,0.94664e+03_rb,0.10752e+04_rb /)\n      kao(:, 3,13, 7) = (/ &\n        & 0.10945e+04_rb,0.96352e+03_rb,0.83255e+03_rb,0.70155e+03_rb,0.58307e+03_rb, &\n        & 0.69128e+03_rb,0.81849e+03_rb,0.94675e+03_rb,0.10754e+04_rb /)\n      kao(:, 4,13, 7) = (/ &\n        & 0.10880e+04_rb,0.95790e+03_rb,0.82774e+03_rb,0.69753e+03_rb,0.58045e+03_rb, &\n        & 0.69107e+03_rb,0.81832e+03_rb,0.94657e+03_rb,0.10753e+04_rb /)\n      kao(:, 5,13, 7) = (/ &\n        & 0.10824e+04_rb,0.95297e+03_rb,0.82351e+03_rb,0.69401e+03_rb,0.57806e+03_rb, &\n        & 0.69061e+03_rb,0.81788e+03_rb,0.94614e+03_rb,0.10749e+04_rb /)\n      kao(:, 1, 1, 8) = (/ &\n        & 0.19433e+04_rb,0.17047e+04_rb,0.14661e+04_rb,0.12275e+04_rb,0.98902e+03_rb, &\n        & 0.75120e+03_rb,0.85754e+03_rb,0.98845e+03_rb,0.11206e+04_rb /)\n      kao(:, 2, 1, 8) = (/ &\n        & 0.18941e+04_rb,0.16616e+04_rb,0.14292e+04_rb,0.11968e+04_rb,0.96439e+03_rb, &\n        & 0.73548e+03_rb,0.85594e+03_rb,0.98707e+03_rb,0.11193e+04_rb /)\n      kao(:, 3, 1, 8) = (/ &\n        & 0.18499e+04_rb,0.16229e+04_rb,0.13960e+04_rb,0.11691e+04_rb,0.94229e+03_rb, &\n        & 0.72448e+03_rb,0.85413e+03_rb,0.98549e+03_rb,0.11177e+04_rb /)\n      kao(:, 4, 1, 8) = (/ &\n        & 0.18099e+04_rb,0.15880e+04_rb,0.13661e+04_rb,0.11442e+04_rb,0.92233e+03_rb, &\n        & 0.72225e+03_rb,0.85214e+03_rb,0.98373e+03_rb,0.11158e+04_rb /)\n      kao(:, 5, 1, 8) = (/ &\n        & 0.17737e+04_rb,0.15563e+04_rb,0.13389e+04_rb,0.11215e+04_rb,0.90421e+03_rb, &\n        & 0.72001e+03_rb,0.85005e+03_rb,0.98175e+03_rb,0.11138e+04_rb /)\n      kao(:, 1, 2, 8) = (/ &\n        & 0.17953e+04_rb,0.15751e+04_rb,0.13551e+04_rb,0.11350e+04_rb,0.91499e+03_rb, &\n        & 0.72569e+03_rb,0.85649e+03_rb,0.98821e+03_rb,0.11210e+04_rb /)\n      kao(:, 2, 2, 8) = (/ &\n        & 0.17530e+04_rb,0.15382e+04_rb,0.13234e+04_rb,0.11086e+04_rb,0.89388e+03_rb, &\n        & 0.72424e+03_rb,0.85509e+03_rb,0.98698e+03_rb,0.11198e+04_rb /)\n      kao(:, 3, 2, 8) = (/ &\n        & 0.17152e+04_rb,0.15051e+04_rb,0.12950e+04_rb,0.10850e+04_rb,0.87497e+03_rb, &\n        & 0.72267e+03_rb,0.85348e+03_rb,0.98553e+03_rb,0.11184e+04_rb /)\n      kao(:, 4, 2, 8) = (/ &\n        & 0.16811e+04_rb,0.14753e+04_rb,0.12695e+04_rb,0.10637e+04_rb,0.85793e+03_rb, &\n        & 0.72084e+03_rb,0.85163e+03_rb,0.98389e+03_rb,0.11166e+04_rb /)\n      kao(:, 5, 2, 8) = (/ &\n        & 0.16502e+04_rb,0.14483e+04_rb,0.12463e+04_rb,0.10444e+04_rb,0.84250e+03_rb, &\n        & 0.71877e+03_rb,0.84969e+03_rb,0.98204e+03_rb,0.11147e+04_rb /)\n      kao(:, 1, 3, 8) = (/ &\n        & 0.16788e+04_rb,0.14733e+04_rb,0.12678e+04_rb,0.10623e+04_rb,0.85679e+03_rb, &\n        & 0.72434e+03_rb,0.85588e+03_rb,0.98822e+03_rb,0.11216e+04_rb /)\n      kao(:, 2, 3, 8) = (/ &\n        & 0.16418e+04_rb,0.14409e+04_rb,0.12400e+04_rb,0.10391e+04_rb,0.83827e+03_rb, &\n        & 0.72306e+03_rb,0.85466e+03_rb,0.98716e+03_rb,0.11206e+04_rb /)\n      kao(:, 3, 3, 8) = (/ &\n        & 0.16087e+04_rb,0.14119e+04_rb,0.12152e+04_rb,0.10184e+04_rb,0.82172e+03_rb, &\n        & 0.72165e+03_rb,0.85327e+03_rb,0.98590e+03_rb,0.11193e+04_rb /)\n      kao(:, 4, 3, 8) = (/ &\n        & 0.15790e+04_rb,0.13859e+04_rb,0.11929e+04_rb,0.99988e+03_rb,0.80688e+03_rb, &\n        & 0.72007e+03_rb,0.85161e+03_rb,0.98438e+03_rb,0.11177e+04_rb /)\n      kao(:, 5, 3, 8) = (/ &\n        & 0.15522e+04_rb,0.13625e+04_rb,0.11728e+04_rb,0.98311e+03_rb,0.79349e+03_rb, &\n        & 0.71824e+03_rb,0.84982e+03_rb,0.98270e+03_rb,0.11159e+04_rb /)\n      kao(:, 1, 4, 8) = (/ &\n        & 0.15823e+04_rb,0.13888e+04_rb,0.11953e+04_rb,0.10019e+04_rb,0.80851e+03_rb, &\n        & 0.72326e+03_rb,0.85540e+03_rb,0.98823e+03_rb,0.11221e+04_rb /)\n      kao(:, 2, 4, 8) = (/ &\n        & 0.15495e+04_rb,0.13601e+04_rb,0.11708e+04_rb,0.98142e+03_rb,0.79213e+03_rb, &\n        & 0.72214e+03_rb,0.85436e+03_rb,0.98737e+03_rb,0.11213e+04_rb /)\n      kao(:, 3, 4, 8) = (/ &\n        & 0.15204e+04_rb,0.13346e+04_rb,0.11489e+04_rb,0.96322e+03_rb,0.77758e+03_rb, &\n        & 0.72091e+03_rb,0.85317e+03_rb,0.98628e+03_rb,0.11202e+04_rb /)\n      kao(:, 4, 4, 8) = (/ &\n        & 0.14943e+04_rb,0.13118e+04_rb,0.11294e+04_rb,0.94694e+03_rb,0.76455e+03_rb, &\n        & 0.71952e+03_rb,0.85175e+03_rb,0.98496e+03_rb,0.11188e+04_rb /)\n      kao(:, 5, 4, 8) = (/ &\n        & 0.14709e+04_rb,0.12913e+04_rb,0.11118e+04_rb,0.93229e+03_rb,0.75284e+03_rb, &\n        & 0.71792e+03_rb,0.85010e+03_rb,0.98342e+03_rb,0.11171e+04_rb /)\n      kao(:, 1, 5, 8) = (/ &\n        & 0.15002e+04_rb,0.13170e+04_rb,0.11338e+04_rb,0.95063e+03_rb,0.76749e+03_rb, &\n        & 0.72234e+03_rb,0.85495e+03_rb,0.98821e+03_rb,0.11224e+04_rb /)\n      kao(:, 2, 5, 8) = (/ &\n        & 0.14712e+04_rb,0.12916e+04_rb,0.11120e+04_rb,0.93250e+03_rb,0.75300e+03_rb, &\n        & 0.72139e+03_rb,0.85409e+03_rb,0.98753e+03_rb,0.11218e+04_rb /)\n      kao(:, 3, 5, 8) = (/ &\n        & 0.14456e+04_rb,0.12692e+04_rb,0.10928e+04_rb,0.91647e+03_rb,0.74017e+03_rb, &\n        & 0.72031e+03_rb,0.85307e+03_rb,0.98657e+03_rb,0.11209e+04_rb /)\n      kao(:, 4, 5, 8) = (/ &\n        & 0.14227e+04_rb,0.12492e+04_rb,0.10757e+04_rb,0.90219e+03_rb,0.72875e+03_rb, &\n        & 0.71909e+03_rb,0.85186e+03_rb,0.98546e+03_rb,0.11197e+04_rb /)\n      kao(:, 5, 5, 8) = (/ &\n        & 0.14022e+04_rb,0.12312e+04_rb,0.10603e+04_rb,0.88937e+03_rb,0.71851e+03_rb, &\n        & 0.71769e+03_rb,0.85037e+03_rb,0.98406e+03_rb,0.11182e+04_rb /)\n      kao(:, 1, 6, 8) = (/ &\n        & 0.14314e+04_rb,0.12568e+04_rb,0.10822e+04_rb,0.90763e+03_rb,0.73310e+03_rb, &\n        & 0.72155e+03_rb,0.85452e+03_rb,0.98813e+03_rb,0.11226e+04_rb /)\n      kao(:, 2, 6, 8) = (/ &\n        & 0.14056e+04_rb,0.12342e+04_rb,0.10628e+04_rb,0.89150e+03_rb,0.72020e+03_rb, &\n        & 0.72077e+03_rb,0.85386e+03_rb,0.98765e+03_rb,0.11222e+04_rb /)\n      kao(:, 3, 6, 8) = (/ &\n        & 0.13829e+04_rb,0.12143e+04_rb,0.10458e+04_rb,0.87730e+03_rb,0.70887e+03_rb, &\n        & 0.71986e+03_rb,0.85300e+03_rb,0.98688e+03_rb,0.11215e+04_rb /)\n      kao(:, 4, 6, 8) = (/ &\n        & 0.13627e+04_rb,0.11967e+04_rb,0.10307e+04_rb,0.86473e+03_rb,0.69880e+03_rb, &\n        & 0.71879e+03_rb,0.85197e+03_rb,0.98590e+03_rb,0.11205e+04_rb /)\n      kao(:, 5, 6, 8) = (/ &\n        & 0.13448e+04_rb,0.11810e+04_rb,0.10172e+04_rb,0.85348e+03_rb,0.68979e+03_rb, &\n        & 0.71757e+03_rb,0.85073e+03_rb,0.98469e+03_rb,0.11192e+04_rb /)\n      kao(:, 1, 7, 8) = (/ &\n        & 0.13728e+04_rb,0.12055e+04_rb,0.10383e+04_rb,0.87102e+03_rb,0.70382e+03_rb, &\n        & 0.72081e+03_rb,0.85410e+03_rb,0.98799e+03_rb,0.11227e+04_rb /)\n      kao(:, 2, 7, 8) = (/ &\n        & 0.13499e+04_rb,0.11854e+04_rb,0.10210e+04_rb,0.85666e+03_rb,0.69233e+03_rb, &\n        & 0.72022e+03_rb,0.85362e+03_rb,0.98768e+03_rb,0.11225e+04_rb /)\n      kao(:, 3, 7, 8) = (/ &\n        & 0.13297e+04_rb,0.11678e+04_rb,0.10059e+04_rb,0.84408e+03_rb,0.68228e+03_rb, &\n        & 0.71945e+03_rb,0.85293e+03_rb,0.98711e+03_rb,0.11220e+04_rb /)\n      kao(:, 4, 7, 8) = (/ &\n        & 0.13120e+04_rb,0.11523e+04_rb,0.99261e+03_rb,0.83298e+03_rb,0.67339e+03_rb, &\n        & 0.71854e+03_rb,0.85205e+03_rb,0.98632e+03_rb,0.11212e+04_rb /)\n      kao(:, 5, 7, 8) = (/ &\n        & 0.12962e+04_rb,0.11384e+04_rb,0.98077e+03_rb,0.82312e+03_rb,0.66550e+03_rb, &\n        & 0.71746e+03_rb,0.85098e+03_rb,0.98523e+03_rb,0.11200e+04_rb /)\n      kao(:, 1, 8, 8) = (/ &\n        & 0.13227e+04_rb,0.11617e+04_rb,0.10007e+04_rb,0.83971e+03_rb,0.67877e+03_rb, &\n        & 0.72007e+03_rb,0.85366e+03_rb,0.98779e+03_rb,0.11227e+04_rb /)\n      kao(:, 2, 8, 8) = (/ &\n        & 0.13022e+04_rb,0.11438e+04_rb,0.98533e+03_rb,0.82690e+03_rb,0.66854e+03_rb, &\n        & 0.71969e+03_rb,0.85334e+03_rb,0.98763e+03_rb,0.11227e+04_rb /)\n      kao(:, 3, 8, 8) = (/ &\n        & 0.12844e+04_rb,0.11282e+04_rb,0.97196e+03_rb,0.81577e+03_rb,0.65963e+03_rb, &\n        & 0.71908e+03_rb,0.85283e+03_rb,0.98717e+03_rb,0.11223e+04_rb /)\n      kao(:, 4, 8, 8) = (/ &\n        & 0.12688e+04_rb,0.11145e+04_rb,0.96023e+03_rb,0.80599e+03_rb,0.65182e+03_rb, &\n        & 0.71830e+03_rb,0.85210e+03_rb,0.98659e+03_rb,0.11217e+04_rb /)\n      kao(:, 5, 8, 8) = (/ &\n        & 0.12549e+04_rb,0.11024e+04_rb,0.94982e+03_rb,0.79733e+03_rb,0.64488e+03_rb, &\n        & 0.71736e+03_rb,0.85118e+03_rb,0.98569e+03_rb,0.11208e+04_rb /)\n      kao(:, 1, 9, 8) = (/ &\n        & 0.12800e+04_rb,0.11244e+04_rb,0.96868e+03_rb,0.81302e+03_rb,0.65744e+03_rb, &\n        & 0.71936e+03_rb,0.85323e+03_rb,0.98761e+03_rb,0.11226e+04_rb /)\n      kao(:, 2, 9, 8) = (/ &\n        & 0.12618e+04_rb,0.11084e+04_rb,0.95498e+03_rb,0.80161e+03_rb,0.64832e+03_rb, &\n        & 0.71916e+03_rb,0.85306e+03_rb,0.98751e+03_rb,0.11227e+04_rb /)\n      kao(:, 3, 9, 8) = (/ &\n        & 0.12460e+04_rb,0.10945e+04_rb,0.94313e+03_rb,0.79175e+03_rb,0.64042e+03_rb, &\n        & 0.71874e+03_rb,0.85269e+03_rb,0.98731e+03_rb,0.11226e+04_rb /)\n      kao(:, 4, 9, 8) = (/ &\n        & 0.12322e+04_rb,0.10825e+04_rb,0.93277e+03_rb,0.78311e+03_rb,0.63351e+03_rb, &\n        & 0.71809e+03_rb,0.85213e+03_rb,0.98681e+03_rb,0.11221e+04_rb /)\n      kao(:, 5, 9, 8) = (/ &\n        & 0.12200e+04_rb,0.10718e+04_rb,0.92365e+03_rb,0.77552e+03_rb,0.62743e+03_rb, &\n        & 0.71728e+03_rb,0.85134e+03_rb,0.98607e+03_rb,0.11214e+04_rb /)\n      kao(:, 1,10, 8) = (/ &\n        & 0.12423e+04_rb,0.10913e+04_rb,0.94034e+03_rb,0.78942e+03_rb,0.63856e+03_rb, &\n        & 0.71867e+03_rb,0.85279e+03_rb,0.98738e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,10, 8) = (/ &\n        & 0.12262e+04_rb,0.10772e+04_rb,0.92827e+03_rb,0.77936e+03_rb,0.63052e+03_rb, &\n        & 0.71863e+03_rb,0.85274e+03_rb,0.98738e+03_rb,0.11227e+04_rb /)\n      kao(:, 3,10, 8) = (/ &\n        & 0.12123e+04_rb,0.10651e+04_rb,0.91788e+03_rb,0.77071e+03_rb,0.62359e+03_rb, &\n        & 0.71835e+03_rb,0.85251e+03_rb,0.98725e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,10, 8) = (/ &\n        & 0.12002e+04_rb,0.10545e+04_rb,0.90884e+03_rb,0.76317e+03_rb,0.61756e+03_rb, &\n        & 0.71785e+03_rb,0.85203e+03_rb,0.98691e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,10, 8) = (/ &\n        & 0.11897e+04_rb,0.10453e+04_rb,0.90090e+03_rb,0.75655e+03_rb,0.61227e+03_rb, &\n        & 0.71716e+03_rb,0.85141e+03_rb,0.98631e+03_rb,0.11218e+04_rb /)\n      kao(:, 1,11, 8) = (/ &\n        & 0.12033e+04_rb,0.10572e+04_rb,0.91110e+03_rb,0.76506e+03_rb,0.61908e+03_rb, &\n        & 0.71809e+03_rb,0.85242e+03_rb,0.98721e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,11, 8) = (/ &\n        & 0.11901e+04_rb,0.10456e+04_rb,0.90123e+03_rb,0.75682e+03_rb,0.61248e+03_rb, &\n        & 0.71809e+03_rb,0.85240e+03_rb,0.98723e+03_rb,0.11226e+04_rb /)\n      kao(:, 3,11, 8) = (/ &\n        & 0.11788e+04_rb,0.10357e+04_rb,0.89271e+03_rb,0.74972e+03_rb,0.60692e+03_rb, &\n        & 0.71785e+03_rb,0.85217e+03_rb,0.98712e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,11, 8) = (/ &\n        & 0.11689e+04_rb,0.10271e+04_rb,0.88529e+03_rb,0.74355e+03_rb,0.60253e+03_rb, &\n        & 0.71738e+03_rb,0.85177e+03_rb,0.98681e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,11, 8) = (/ &\n        & 0.11602e+04_rb,0.10195e+04_rb,0.87880e+03_rb,0.73813e+03_rb,0.59855e+03_rb, &\n        & 0.71672e+03_rb,0.85114e+03_rb,0.98618e+03_rb,0.11218e+04_rb /)\n      kao(:, 1,12, 8) = (/ &\n        & 0.11713e+04_rb,0.10292e+04_rb,0.88712e+03_rb,0.74507e+03_rb,0.60379e+03_rb, &\n        & 0.71766e+03_rb,0.85212e+03_rb,0.98706e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,12, 8) = (/ &\n        & 0.11605e+04_rb,0.10197e+04_rb,0.87902e+03_rb,0.73833e+03_rb,0.59891e+03_rb, &\n        & 0.71764e+03_rb,0.85212e+03_rb,0.98710e+03_rb,0.11227e+04_rb /)\n      kao(:, 3,12, 8) = (/ &\n        & 0.11512e+04_rb,0.10116e+04_rb,0.87205e+03_rb,0.73251e+03_rb,0.59502e+03_rb, &\n        & 0.71744e+03_rb,0.85192e+03_rb,0.98700e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,12, 8) = (/ &\n        & 0.11431e+04_rb,0.10045e+04_rb,0.86598e+03_rb,0.72746e+03_rb,0.59151e+03_rb, &\n        & 0.71699e+03_rb,0.85153e+03_rb,0.98663e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,12, 8) = (/ &\n        & 0.11360e+04_rb,0.99832e+03_rb,0.86067e+03_rb,0.72302e+03_rb,0.58868e+03_rb, &\n        & 0.71636e+03_rb,0.85092e+03_rb,0.98606e+03_rb,0.11218e+04_rb /)\n      kao(:, 1,13, 8) = (/ &\n        & 0.11451e+04_rb,0.10063e+04_rb,0.86748e+03_rb,0.72871e+03_rb,0.59258e+03_rb, &\n        & 0.71726e+03_rb,0.85187e+03_rb,0.98696e+03_rb,0.11225e+04_rb /)\n      kao(:, 2,13, 8) = (/ &\n        & 0.11363e+04_rb,0.99855e+03_rb,0.86085e+03_rb,0.72320e+03_rb,0.58896e+03_rb, &\n        & 0.71729e+03_rb,0.85183e+03_rb,0.98699e+03_rb,0.11227e+04_rb /)\n      kao(:, 3,13, 8) = (/ &\n        & 0.11287e+04_rb,0.99189e+03_rb,0.85515e+03_rb,0.71842e+03_rb,0.58585e+03_rb, &\n        & 0.71710e+03_rb,0.85169e+03_rb,0.98691e+03_rb,0.11227e+04_rb /)\n      kao(:, 4,13, 8) = (/ &\n        & 0.11220e+04_rb,0.98609e+03_rb,0.85017e+03_rb,0.71429e+03_rb,0.58380e+03_rb, &\n        & 0.71668e+03_rb,0.85133e+03_rb,0.98660e+03_rb,0.11224e+04_rb /)\n      kao(:, 5,13, 8) = (/ &\n        & 0.11162e+04_rb,0.98101e+03_rb,0.84582e+03_rb,0.71065e+03_rb,0.58234e+03_rb, &\n        & 0.71606e+03_rb,0.85074e+03_rb,0.98601e+03_rb,0.11218e+04_rb /)\n      kao(:, 1, 1, 9) = (/ &\n        & 0.19571e+04_rb,0.17167e+04_rb,0.14761e+04_rb,0.12357e+04_rb,0.99528e+03_rb, &\n        & 0.75488e+03_rb,0.87315e+03_rb,0.10086e+04_rb,0.11441e+04_rb /)\n      kao(:, 2, 1, 9) = (/ &\n        & 0.19076e+04_rb,0.16733e+04_rb,0.14390e+04_rb,0.12047e+04_rb,0.97044e+03_rb, &\n        & 0.73841e+03_rb,0.87146e+03_rb,0.10070e+04_rb,0.11425e+04_rb /)\n      kao(:, 3, 1, 9) = (/ &\n        & 0.18630e+04_rb,0.16343e+04_rb,0.14056e+04_rb,0.11769e+04_rb,0.94822e+03_rb, &\n        & 0.73460e+03_rb,0.86967e+03_rb,0.10052e+04_rb,0.11407e+04_rb /)\n      kao(:, 4, 1, 9) = (/ &\n        & 0.18229e+04_rb,0.15991e+04_rb,0.13754e+04_rb,0.11517e+04_rb,0.92811e+03_rb, &\n        & 0.73269e+03_rb,0.86788e+03_rb,0.10033e+04_rb,0.11387e+04_rb /)\n      kao(:, 5, 1, 9) = (/ &\n        & 0.17864e+04_rb,0.15672e+04_rb,0.13481e+04_rb,0.11289e+04_rb,0.90984e+03_rb, &\n        & 0.73091e+03_rb,0.86616e+03_rb,0.10016e+04_rb,0.11368e+04_rb /)\n      kao(:, 1, 2, 9) = (/ &\n        & 0.18080e+04_rb,0.15862e+04_rb,0.13643e+04_rb,0.11425e+04_rb,0.92072e+03_rb, &\n        & 0.73694e+03_rb,0.87246e+03_rb,0.10086e+04_rb,0.11448e+04_rb /)\n      kao(:, 2, 2, 9) = (/ &\n        & 0.17655e+04_rb,0.15491e+04_rb,0.13324e+04_rb,0.11159e+04_rb,0.89943e+03_rb, &\n        & 0.73525e+03_rb,0.87092e+03_rb,0.10070e+04_rb,0.11432e+04_rb /)\n      kao(:, 3, 2, 9) = (/ &\n        & 0.17274e+04_rb,0.15157e+04_rb,0.13039e+04_rb,0.10921e+04_rb,0.88039e+03_rb, &\n        & 0.73343e+03_rb,0.86922e+03_rb,0.10053e+04_rb,0.11415e+04_rb /)\n      kao(:, 4, 2, 9) = (/ &\n        & 0.16931e+04_rb,0.14856e+04_rb,0.12781e+04_rb,0.10706e+04_rb,0.86326e+03_rb, &\n        & 0.73166e+03_rb,0.86752e+03_rb,0.10036e+04_rb,0.11395e+04_rb /)\n      kao(:, 5, 2, 9) = (/ &\n        & 0.16621e+04_rb,0.14584e+04_rb,0.12549e+04_rb,0.10512e+04_rb,0.84768e+03_rb, &\n        & 0.73000e+03_rb,0.86583e+03_rb,0.10018e+04_rb,0.11376e+04_rb /)\n      kao(:, 1, 3, 9) = (/ &\n        & 0.16908e+04_rb,0.14837e+04_rb,0.12764e+04_rb,0.10692e+04_rb,0.86209e+03_rb, &\n        & 0.73591e+03_rb,0.87213e+03_rb,0.10088e+04_rb,0.11456e+04_rb /)\n      kao(:, 2, 3, 9) = (/ &\n        & 0.16535e+04_rb,0.14509e+04_rb,0.12484e+04_rb,0.10459e+04_rb,0.84339e+03_rb, &\n        & 0.73450e+03_rb,0.87080e+03_rb,0.10075e+04_rb,0.11442e+04_rb /)\n      kao(:, 3, 3, 9) = (/ &\n        & 0.16202e+04_rb,0.14218e+04_rb,0.12234e+04_rb,0.10251e+04_rb,0.82680e+03_rb, &\n        & 0.73291e+03_rb,0.86926e+03_rb,0.10059e+04_rb,0.11426e+04_rb /)\n      kao(:, 4, 3, 9) = (/ &\n        & 0.15902e+04_rb,0.13956e+04_rb,0.12011e+04_rb,0.10064e+04_rb,0.81183e+03_rb, &\n        & 0.73120e+03_rb,0.86761e+03_rb,0.10042e+04_rb,0.11407e+04_rb /)\n      kao(:, 5, 3, 9) = (/ &\n        & 0.15632e+04_rb,0.13720e+04_rb,0.11808e+04_rb,0.98952e+03_rb,0.79832e+03_rb, &\n        & 0.72957e+03_rb,0.86594e+03_rb,0.10024e+04_rb,0.11387e+04_rb /)\n      kao(:, 1, 4, 9) = (/ &\n        & 0.15935e+04_rb,0.13985e+04_rb,0.12035e+04_rb,0.10084e+04_rb,0.81344e+03_rb, &\n        & 0.73513e+03_rb,0.87195e+03_rb,0.10092e+04_rb,0.11463e+04_rb /)\n      kao(:, 2, 4, 9) = (/ &\n        & 0.15605e+04_rb,0.13697e+04_rb,0.11787e+04_rb,0.98782e+03_rb,0.79694e+03_rb, &\n        & 0.73394e+03_rb,0.87080e+03_rb,0.10079e+04_rb,0.11451e+04_rb /)\n      kao(:, 3, 4, 9) = (/ &\n        & 0.15313e+04_rb,0.13439e+04_rb,0.11567e+04_rb,0.96950e+03_rb,0.78229e+03_rb, &\n        & 0.73257e+03_rb,0.86942e+03_rb,0.10065e+04_rb,0.11436e+04_rb /)\n      kao(:, 4, 4, 9) = (/ &\n        & 0.15050e+04_rb,0.13210e+04_rb,0.11371e+04_rb,0.95308e+03_rb,0.76922e+03_rb, &\n        & 0.73104e+03_rb,0.86787e+03_rb,0.10049e+04_rb,0.11419e+04_rb /)\n      kao(:, 5, 4, 9) = (/ &\n        & 0.14814e+04_rb,0.13003e+04_rb,0.11193e+04_rb,0.93833e+03_rb,0.75745e+03_rb, &\n        & 0.72946e+03_rb,0.86622e+03_rb,0.10032e+04_rb,0.11400e+04_rb /)\n      kao(:, 1, 5, 9) = (/ &\n        & 0.15109e+04_rb,0.13262e+04_rb,0.11415e+04_rb,0.95685e+03_rb,0.77217e+03_rb, &\n        & 0.73443e+03_rb,0.87177e+03_rb,0.10094e+04_rb,0.11470e+04_rb /)\n      kao(:, 2, 5, 9) = (/ &\n        & 0.14817e+04_rb,0.13007e+04_rb,0.11196e+04_rb,0.93852e+03_rb,0.75755e+03_rb, &\n        & 0.73343e+03_rb,0.87078e+03_rb,0.10083e+04_rb,0.11459e+04_rb /)\n      kao(:, 3, 5, 9) = (/ &\n        & 0.14559e+04_rb,0.12780e+04_rb,0.11003e+04_rb,0.92240e+03_rb,0.74463e+03_rb, &\n        & 0.73229e+03_rb,0.86958e+03_rb,0.10071e+04_rb,0.11446e+04_rb /)\n      kao(:, 4, 5, 9) = (/ &\n        & 0.14329e+04_rb,0.12579e+04_rb,0.10829e+04_rb,0.90802e+03_rb,0.73310e+03_rb, &\n        & 0.73095e+03_rb,0.86817e+03_rb,0.10056e+04_rb,0.11430e+04_rb /)\n      kao(:, 5, 5, 9) = (/ &\n        & 0.14122e+04_rb,0.12398e+04_rb,0.10675e+04_rb,0.89511e+03_rb,0.72281e+03_rb, &\n        & 0.72946e+03_rb,0.86664e+03_rb,0.10039e+04_rb,0.11412e+04_rb /)\n      kao(:, 1, 6, 9) = (/ &\n        & 0.14417e+04_rb,0.12655e+04_rb,0.10896e+04_rb,0.91348e+03_rb,0.73747e+03_rb, &\n        & 0.73386e+03_rb,0.87165e+03_rb,0.10096e+04_rb,0.11475e+04_rb /)\n      kao(:, 2, 6, 9) = (/ &\n        & 0.14156e+04_rb,0.12429e+04_rb,0.10700e+04_rb,0.89725e+03_rb,0.72457e+03_rb, &\n        & 0.73304e+03_rb,0.87078e+03_rb,0.10087e+04_rb,0.11466e+04_rb /)\n      kao(:, 3, 6, 9) = (/ &\n        & 0.13928e+04_rb,0.12228e+04_rb,0.10529e+04_rb,0.88300e+03_rb,0.71308e+03_rb, &\n        & 0.73207e+03_rb,0.86977e+03_rb,0.10076e+04_rb,0.11455e+04_rb /)\n      kao(:, 4, 6, 9) = (/ &\n        & 0.13725e+04_rb,0.12051e+04_rb,0.10377e+04_rb,0.87029e+03_rb,0.70290e+03_rb, &\n        & 0.73093e+03_rb,0.86853e+03_rb,0.10063e+04_rb,0.11441e+04_rb /)\n      kao(:, 5, 6, 9) = (/ &\n        & 0.13544e+04_rb,0.11892e+04_rb,0.10241e+04_rb,0.85897e+03_rb,0.69390e+03_rb, &\n        & 0.72961e+03_rb,0.86706e+03_rb,0.10048e+04_rb,0.11424e+04_rb /)\n      kao(:, 1, 7, 9) = (/ &\n        & 0.13826e+04_rb,0.12140e+04_rb,0.10453e+04_rb,0.87664e+03_rb,0.70803e+03_rb, &\n        & 0.73339e+03_rb,0.87155e+03_rb,0.10098e+04_rb,0.11480e+04_rb /)\n      kao(:, 2, 7, 9) = (/ &\n        & 0.13594e+04_rb,0.11937e+04_rb,0.10279e+04_rb,0.86216e+03_rb,0.69645e+03_rb, &\n        & 0.73269e+03_rb,0.87079e+03_rb,0.10090e+04_rb,0.11472e+04_rb /)\n      kao(:, 3, 7, 9) = (/ &\n        & 0.13392e+04_rb,0.11759e+04_rb,0.10127e+04_rb,0.84953e+03_rb,0.68632e+03_rb, &\n        & 0.73188e+03_rb,0.86990e+03_rb,0.10081e+04_rb,0.11462e+04_rb /)\n      kao(:, 4, 7, 9) = (/ &\n        & 0.13213e+04_rb,0.11603e+04_rb,0.99928e+03_rb,0.83829e+03_rb,0.67737e+03_rb, &\n        & 0.73090e+03_rb,0.86884e+03_rb,0.10069e+04_rb,0.11450e+04_rb /)\n      kao(:, 5, 7, 9) = (/ &\n        & 0.13054e+04_rb,0.11464e+04_rb,0.98739e+03_rb,0.82837e+03_rb,0.66946e+03_rb, &\n        & 0.72975e+03_rb,0.86756e+03_rb,0.10055e+04_rb,0.11435e+04_rb /)\n      kao(:, 1, 8, 9) = (/ &\n        & 0.13322e+04_rb,0.11698e+04_rb,0.10074e+04_rb,0.84511e+03_rb,0.68280e+03_rb, &\n        & 0.73302e+03_rb,0.87145e+03_rb,0.10099e+04_rb,0.11483e+04_rb /)\n      kao(:, 2, 8, 9) = (/ &\n        & 0.13116e+04_rb,0.11517e+04_rb,0.99199e+03_rb,0.83221e+03_rb,0.67250e+03_rb, &\n        & 0.73244e+03_rb,0.87079e+03_rb,0.10093e+04_rb,0.11477e+04_rb /)\n      kao(:, 3, 8, 9) = (/ &\n        & 0.12937e+04_rb,0.11360e+04_rb,0.97848e+03_rb,0.82097e+03_rb,0.66349e+03_rb, &\n        & 0.73170e+03_rb,0.87002e+03_rb,0.10085e+04_rb,0.11469e+04_rb /)\n      kao(:, 4, 8, 9) = (/ &\n        & 0.12778e+04_rb,0.11223e+04_rb,0.96666e+03_rb,0.81113e+03_rb,0.65562e+03_rb, &\n        & 0.73087e+03_rb,0.86909e+03_rb,0.10075e+04_rb,0.11458e+04_rb /)\n      kao(:, 5, 8, 9) = (/ &\n        & 0.12639e+04_rb,0.11101e+04_rb,0.95620e+03_rb,0.80244e+03_rb,0.64865e+03_rb, &\n        & 0.72985e+03_rb,0.86796e+03_rb,0.10062e+04_rb,0.11444e+04_rb /)\n      kao(:, 1, 9, 9) = (/ &\n        & 0.12892e+04_rb,0.11322e+04_rb,0.97520e+03_rb,0.81821e+03_rb,0.66134e+03_rb, &\n        & 0.73274e+03_rb,0.87135e+03_rb,0.10099e+04_rb,0.11485e+04_rb /)\n      kao(:, 2, 9, 9) = (/ &\n        & 0.12708e+04_rb,0.11161e+04_rb,0.96140e+03_rb,0.80674e+03_rb,0.65213e+03_rb, &\n        & 0.73213e+03_rb,0.87079e+03_rb,0.10095e+04_rb,0.11481e+04_rb /)\n      kao(:, 3, 9, 9) = (/ &\n        & 0.12548e+04_rb,0.11022e+04_rb,0.94949e+03_rb,0.79681e+03_rb,0.64421e+03_rb, &\n        & 0.73152e+03_rb,0.87011e+03_rb,0.10088e+04_rb,0.11474e+04_rb /)\n      kao(:, 4, 9, 9) = (/ &\n        & 0.12410e+04_rb,0.10900e+04_rb,0.93905e+03_rb,0.78808e+03_rb,0.63726e+03_rb, &\n        & 0.73083e+03_rb,0.86928e+03_rb,0.10079e+04_rb,0.11464e+04_rb /)\n      kao(:, 5, 9, 9) = (/ &\n        & 0.12287e+04_rb,0.10793e+04_rb,0.92981e+03_rb,0.78042e+03_rb,0.63106e+03_rb, &\n        & 0.72995e+03_rb,0.86831e+03_rb,0.10068e+04_rb,0.11452e+04_rb /)\n      kao(:, 1,10, 9) = (/ &\n        & 0.12511e+04_rb,0.10989e+04_rb,0.94665e+03_rb,0.79449e+03_rb,0.64227e+03_rb, &\n        & 0.73248e+03_rb,0.87121e+03_rb,0.10099e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,10, 9) = (/ &\n        & 0.12350e+04_rb,0.10848e+04_rb,0.93449e+03_rb,0.78435e+03_rb,0.63416e+03_rb, &\n        & 0.73188e+03_rb,0.87073e+03_rb,0.10095e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,10, 9) = (/ &\n        & 0.12209e+04_rb,0.10725e+04_rb,0.92407e+03_rb,0.77565e+03_rb,0.62724e+03_rb, &\n        & 0.73132e+03_rb,0.87012e+03_rb,0.10091e+04_rb,0.11477e+04_rb /)\n      kao(:, 4,10, 9) = (/ &\n        & 0.12088e+04_rb,0.10618e+04_rb,0.91493e+03_rb,0.76801e+03_rb,0.62113e+03_rb, &\n        & 0.73072e+03_rb,0.86943e+03_rb,0.10082e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,10, 9) = (/ &\n        & 0.11981e+04_rb,0.10526e+04_rb,0.90691e+03_rb,0.76134e+03_rb,0.61583e+03_rb, &\n        & 0.72997e+03_rb,0.86853e+03_rb,0.10072e+04_rb,0.11458e+04_rb /)\n      kao(:, 1,11, 9) = (/ &\n        & 0.12119e+04_rb,0.10646e+04_rb,0.91723e+03_rb,0.76995e+03_rb,0.62265e+03_rb, &\n        & 0.73201e+03_rb,0.87093e+03_rb,0.10098e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,11, 9) = (/ &\n        & 0.11986e+04_rb,0.10529e+04_rb,0.90727e+03_rb,0.76161e+03_rb,0.61603e+03_rb, &\n        & 0.73147e+03_rb,0.87046e+03_rb,0.10094e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,11, 9) = (/ &\n        & 0.11871e+04_rb,0.10429e+04_rb,0.89865e+03_rb,0.75449e+03_rb,0.61031e+03_rb, &\n        & 0.73094e+03_rb,0.86988e+03_rb,0.10088e+04_rb,0.11477e+04_rb /)\n      kao(:, 4,11, 9) = (/ &\n        & 0.11772e+04_rb,0.10342e+04_rb,0.89122e+03_rb,0.74824e+03_rb,0.60537e+03_rb, &\n        & 0.73035e+03_rb,0.86918e+03_rb,0.10081e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,11, 9) = (/ &\n        & 0.11684e+04_rb,0.10265e+04_rb,0.88467e+03_rb,0.74278e+03_rb,0.60127e+03_rb, &\n        & 0.72963e+03_rb,0.86831e+03_rb,0.10071e+04_rb,0.11458e+04_rb /)\n      kao(:, 1,12, 9) = (/ &\n        & 0.11796e+04_rb,0.10363e+04_rb,0.89308e+03_rb,0.74980e+03_rb,0.60664e+03_rb, &\n        & 0.73158e+03_rb,0.87066e+03_rb,0.10097e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,12, 9) = (/ &\n        & 0.11688e+04_rb,0.10268e+04_rb,0.88492e+03_rb,0.74297e+03_rb,0.60173e+03_rb, &\n        & 0.73111e+03_rb,0.87023e+03_rb,0.10093e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,12, 9) = (/ &\n        & 0.11594e+04_rb,0.10186e+04_rb,0.87787e+03_rb,0.73715e+03_rb,0.59711e+03_rb, &\n        & 0.73061e+03_rb,0.86968e+03_rb,0.10088e+04_rb,0.11478e+04_rb /)\n      kao(:, 4,12, 9) = (/ &\n        & 0.11512e+04_rb,0.10115e+04_rb,0.87180e+03_rb,0.73203e+03_rb,0.59373e+03_rb, &\n        & 0.73004e+03_rb,0.86900e+03_rb,0.10080e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,12, 9) = (/ &\n        & 0.11441e+04_rb,0.10053e+04_rb,0.86640e+03_rb,0.72756e+03_rb,0.59149e+03_rb, &\n        & 0.72934e+03_rb,0.86813e+03_rb,0.10070e+04_rb,0.11458e+04_rb /)\n      kao(:, 1,13, 9) = (/ &\n        & 0.11533e+04_rb,0.10132e+04_rb,0.87330e+03_rb,0.73334e+03_rb,0.59476e+03_rb, &\n        & 0.73130e+03_rb,0.87046e+03_rb,0.10096e+04_rb,0.11487e+04_rb /)\n      kao(:, 2,13, 9) = (/ &\n        & 0.11444e+04_rb,0.10055e+04_rb,0.86659e+03_rb,0.72770e+03_rb,0.59240e+03_rb, &\n        & 0.73084e+03_rb,0.87005e+03_rb,0.10092e+04_rb,0.11483e+04_rb /)\n      kao(:, 3,13, 9) = (/ &\n        & 0.11367e+04_rb,0.99882e+03_rb,0.86084e+03_rb,0.72297e+03_rb,0.59186e+03_rb, &\n        & 0.73036e+03_rb,0.86950e+03_rb,0.10087e+04_rb,0.11478e+04_rb /)\n      kao(:, 4,13, 9) = (/ &\n        & 0.11300e+04_rb,0.99294e+03_rb,0.85585e+03_rb,0.71880e+03_rb,0.59143e+03_rb, &\n        & 0.72979e+03_rb,0.86883e+03_rb,0.10079e+04_rb,0.11469e+04_rb /)\n      kao(:, 5,13, 9) = (/ &\n        & 0.11242e+04_rb,0.98788e+03_rb,0.85146e+03_rb,0.71512e+03_rb,0.59082e+03_rb, &\n        & 0.72910e+03_rb,0.86797e+03_rb,0.10069e+04_rb,0.11459e+04_rb /)\n      kao(:, 1, 1,10) = (/ &\n        & 0.19609e+04_rb,0.17196e+04_rb,0.14787e+04_rb,0.12373e+04_rb,0.99636e+03_rb, &\n        & 0.75577e+03_rb,0.88158e+03_rb,0.10175e+04_rb,0.11538e+04_rb /)\n      kao(:, 2, 1,10) = (/ &\n        & 0.19102e+04_rb,0.16765e+04_rb,0.14403e+04_rb,0.12063e+04_rb,0.97232e+03_rb, &\n        & 0.74406e+03_rb,0.87986e+03_rb,0.10152e+04_rb,0.11513e+04_rb /)\n      kao(:, 3, 1,10) = (/ &\n        & 0.18658e+04_rb,0.16364e+04_rb,0.14075e+04_rb,0.11783e+04_rb,0.94916e+03_rb, &\n        & 0.74249e+03_rb,0.87815e+03_rb,0.10135e+04_rb,0.11491e+04_rb /)\n      kao(:, 4, 1,10) = (/ &\n        & 0.18250e+04_rb,0.16014e+04_rb,0.13778e+04_rb,0.11533e+04_rb,0.92945e+03_rb, &\n        & 0.74050e+03_rb,0.87640e+03_rb,0.10114e+04_rb,0.11477e+04_rb /)\n      kao(:, 5, 1,10) = (/ &\n        & 0.17888e+04_rb,0.15692e+04_rb,0.13504e+04_rb,0.11313e+04_rb,0.91134e+03_rb, &\n        & 0.73837e+03_rb,0.87432e+03_rb,0.10096e+04_rb,0.11467e+04_rb /)\n      kao(:, 1, 2,10) = (/ &\n        & 0.18108e+04_rb,0.15879e+04_rb,0.13673e+04_rb,0.11437e+04_rb,0.92213e+03_rb, &\n        & 0.74428e+03_rb,0.88077e+03_rb,0.10175e+04_rb,0.11547e+04_rb /)\n      kao(:, 2, 2,10) = (/ &\n        & 0.17684e+04_rb,0.15508e+04_rb,0.13352e+04_rb,0.11178e+04_rb,0.90099e+03_rb, &\n        & 0.74265e+03_rb,0.87920e+03_rb,0.10158e+04_rb,0.11521e+04_rb /)\n      kao(:, 3, 2,10) = (/ &\n        & 0.17293e+04_rb,0.15183e+04_rb,0.13063e+04_rb,0.10931e+04_rb,0.88199e+03_rb, &\n        & 0.74117e+03_rb,0.87755e+03_rb,0.10136e+04_rb,0.11500e+04_rb /)\n      kao(:, 4, 2,10) = (/ &\n        & 0.16960e+04_rb,0.14887e+04_rb,0.12799e+04_rb,0.10727e+04_rb,0.86433e+03_rb, &\n        & 0.73957e+03_rb,0.87577e+03_rb,0.10116e+04_rb,0.11482e+04_rb /)\n      kao(:, 5, 2,10) = (/ &\n        & 0.16637e+04_rb,0.14607e+04_rb,0.12562e+04_rb,0.10527e+04_rb,0.84877e+03_rb, &\n        & 0.73748e+03_rb,0.87409e+03_rb,0.10096e+04_rb,0.11470e+04_rb /)\n      kao(:, 1, 3,10) = (/ &\n        & 0.16939e+04_rb,0.14847e+04_rb,0.12786e+04_rb,0.10705e+04_rb,0.86372e+03_rb, &\n        & 0.74343e+03_rb,0.88064e+03_rb,0.10178e+04_rb,0.11559e+04_rb /)\n      kao(:, 2, 3,10) = (/ &\n        & 0.16557e+04_rb,0.14542e+04_rb,0.12503e+04_rb,0.10478e+04_rb,0.84533e+03_rb, &\n        & 0.74182e+03_rb,0.87906e+03_rb,0.10163e+04_rb,0.11537e+04_rb /)\n      kao(:, 3, 3,10) = (/ &\n        & 0.16218e+04_rb,0.14239e+04_rb,0.12249e+04_rb,0.10266e+04_rb,0.82819e+03_rb, &\n        & 0.74031e+03_rb,0.87730e+03_rb,0.10137e+04_rb,0.11513e+04_rb /)\n      kao(:, 4, 3,10) = (/ &\n        & 0.15929e+04_rb,0.13992e+04_rb,0.12027e+04_rb,0.10077e+04_rb,0.81299e+03_rb, &\n        & 0.73896e+03_rb,0.87590e+03_rb,0.10123e+04_rb,0.11493e+04_rb /)\n      kao(:, 5, 3,10) = (/ &\n        & 0.15654e+04_rb,0.13740e+04_rb,0.11824e+04_rb,0.99136e+03_rb,0.79933e+03_rb, &\n        & 0.73740e+03_rb,0.87406e+03_rb,0.10104e+04_rb,0.11477e+04_rb /)\n      kao(:, 1, 4,10) = (/ &\n        & 0.15959e+04_rb,0.14010e+04_rb,0.12054e+04_rb,0.10100e+04_rb,0.81522e+03_rb, &\n        & 0.74271e+03_rb,0.88040e+03_rb,0.10180e+04_rb,0.11570e+04_rb /)\n      kao(:, 2, 4,10) = (/ &\n        & 0.15637e+04_rb,0.13710e+04_rb,0.11804e+04_rb,0.98920e+03_rb,0.79803e+03_rb, &\n        & 0.74139e+03_rb,0.87903e+03_rb,0.10168e+04_rb,0.11552e+04_rb /)\n      kao(:, 3, 4,10) = (/ &\n        & 0.15330e+04_rb,0.13459e+04_rb,0.11594e+04_rb,0.97120e+03_rb,0.78314e+03_rb, &\n        & 0.74000e+03_rb,0.87753e+03_rb,0.10151e+04_rb,0.11528e+04_rb /)\n      kao(:, 4, 4,10) = (/ &\n        & 0.15077e+04_rb,0.13229e+04_rb,0.11386e+04_rb,0.95486e+03_rb,0.77029e+03_rb, &\n        & 0.73854e+03_rb,0.87600e+03_rb,0.10131e+04_rb,0.11506e+04_rb /)\n      kao(:, 5, 4,10) = (/ &\n        & 0.14835e+04_rb,0.13025e+04_rb,0.11209e+04_rb,0.94000e+03_rb,0.75786e+03_rb, &\n        & 0.73717e+03_rb,0.87438e+03_rb,0.10111e+04_rb,0.11486e+04_rb /)\n      kao(:, 1, 5,10) = (/ &\n        & 0.15126e+04_rb,0.13285e+04_rb,0.11431e+04_rb,0.95745e+03_rb,0.77284e+03_rb, &\n        & 0.74220e+03_rb,0.88024e+03_rb,0.10187e+04_rb,0.11578e+04_rb /)\n      kao(:, 2, 5,10) = (/ &\n        & 0.14829e+04_rb,0.13024e+04_rb,0.11209e+04_rb,0.94020e+03_rb,0.75863e+03_rb, &\n        & 0.74099e+03_rb,0.87909e+03_rb,0.10174e+04_rb,0.11564e+04_rb /)\n      kao(:, 3, 5,10) = (/ &\n        & 0.14582e+04_rb,0.12806e+04_rb,0.11014e+04_rb,0.92377e+03_rb,0.74596e+03_rb, &\n        & 0.73960e+03_rb,0.87772e+03_rb,0.10159e+04_rb,0.11544e+04_rb /)\n      kao(:, 4, 5,10) = (/ &\n        & 0.14345e+04_rb,0.12594e+04_rb,0.10847e+04_rb,0.90887e+03_rb,0.73410e+03_rb, &\n        & 0.73828e+03_rb,0.87622e+03_rb,0.10139e+04_rb,0.11518e+04_rb /)\n      kao(:, 5, 5,10) = (/ &\n        & 0.14140e+04_rb,0.12418e+04_rb,0.10683e+04_rb,0.89661e+03_rb,0.72364e+03_rb, &\n        & 0.73696e+03_rb,0.87469e+03_rb,0.10119e+04_rb,0.11501e+04_rb /)\n      kao(:, 1, 6,10) = (/ &\n        & 0.14435e+04_rb,0.12676e+04_rb,0.10914e+04_rb,0.91493e+03_rb,0.73889e+03_rb, &\n        & 0.74179e+03_rb,0.88024e+03_rb,0.10190e+04_rb,0.11586e+04_rb /)\n      kao(:, 2, 6,10) = (/ &\n        & 0.14184e+04_rb,0.12443e+04_rb,0.10722e+04_rb,0.89834e+03_rb,0.72535e+03_rb, &\n        & 0.74069e+03_rb,0.87922e+03_rb,0.10178e+04_rb,0.11574e+04_rb /)\n      kao(:, 3, 6,10) = (/ &\n        & 0.13949e+04_rb,0.12245e+04_rb,0.10548e+04_rb,0.88411e+03_rb,0.71441e+03_rb, &\n        & 0.73951e+03_rb,0.87792e+03_rb,0.10164e+04_rb,0.11554e+04_rb /)\n      kao(:, 4, 6,10) = (/ &\n        & 0.13745e+04_rb,0.12070e+04_rb,0.10388e+04_rb,0.87157e+03_rb,0.70381e+03_rb, &\n        & 0.73817e+03_rb,0.87654e+03_rb,0.10150e+04_rb,0.11533e+04_rb /)\n      kao(:, 5, 6,10) = (/ &\n        & 0.13558e+04_rb,0.11909e+04_rb,0.10253e+04_rb,0.86039e+03_rb,0.69505e+03_rb, &\n        & 0.73669e+03_rb,0.87508e+03_rb,0.10128e+04_rb,0.11510e+04_rb /)\n      kao(:, 1, 7,10) = (/ &\n        & 0.13849e+04_rb,0.12154e+04_rb,0.10465e+04_rb,0.87809e+03_rb,0.70922e+03_rb, &\n        & 0.74150e+03_rb,0.88017e+03_rb,0.10197e+04_rb,0.11599e+04_rb /)\n      kao(:, 2, 7,10) = (/ &\n        & 0.13622e+04_rb,0.11954e+04_rb,0.10296e+04_rb,0.86328e+03_rb,0.69750e+03_rb, &\n        & 0.74031e+03_rb,0.87926e+03_rb,0.10184e+04_rb,0.11581e+04_rb /)\n      kao(:, 3, 7,10) = (/ &\n        & 0.13407e+04_rb,0.11775e+04_rb,0.10144e+04_rb,0.85098e+03_rb,0.68710e+03_rb, &\n        & 0.73933e+03_rb,0.87824e+03_rb,0.10171e+04_rb,0.11568e+04_rb /)\n      kao(:, 4, 7,10) = (/ &\n        & 0.13234e+04_rb,0.11620e+04_rb,0.10006e+04_rb,0.83940e+03_rb,0.67808e+03_rb, &\n        & 0.73818e+03_rb,0.87693e+03_rb,0.10157e+04_rb,0.11549e+04_rb /)\n      kao(:, 5, 7,10) = (/ &\n        & 0.13077e+04_rb,0.11481e+04_rb,0.98850e+03_rb,0.82952e+03_rb,0.66976e+03_rb, &\n        & 0.73685e+03_rb,0.87533e+03_rb,0.10140e+04_rb,0.11525e+04_rb /)\n      kao(:, 1, 8,10) = (/ &\n        & 0.13336e+04_rb,0.11711e+04_rb,0.10088e+04_rb,0.84626e+03_rb,0.68382e+03_rb, &\n        & 0.74131e+03_rb,0.88025e+03_rb,0.10205e+04_rb,0.11609e+04_rb /)\n      kao(:, 2, 8,10) = (/ &\n        & 0.13133e+04_rb,0.11535e+04_rb,0.99382e+03_rb,0.83328e+03_rb,0.67355e+03_rb, &\n        & 0.73954e+03_rb,0.87931e+03_rb,0.10187e+04_rb,0.11591e+04_rb /)\n      kao(:, 3, 8,10) = (/ &\n        & 0.12952e+04_rb,0.11377e+04_rb,0.97980e+03_rb,0.82257e+03_rb,0.66450e+03_rb, &\n        & 0.73910e+03_rb,0.87831e+03_rb,0.10177e+04_rb,0.11576e+04_rb /)\n      kao(:, 4, 8,10) = (/ &\n        & 0.12798e+04_rb,0.11238e+04_rb,0.96848e+03_rb,0.81189e+03_rb,0.65672e+03_rb, &\n        & 0.73820e+03_rb,0.87729e+03_rb,0.10162e+04_rb,0.11560e+04_rb /)\n      kao(:, 5, 8,10) = (/ &\n        & 0.12652e+04_rb,0.11115e+04_rb,0.95739e+03_rb,0.80373e+03_rb,0.64938e+03_rb, &\n        & 0.73712e+03_rb,0.87584e+03_rb,0.10149e+04_rb,0.11541e+04_rb /)\n      kao(:, 1, 9,10) = (/ &\n        & 0.12921e+04_rb,0.11338e+04_rb,0.97649e+03_rb,0.81965e+03_rb,0.66193e+03_rb, &\n        & 0.74117e+03_rb,0.88056e+03_rb,0.10212e+04_rb,0.11621e+04_rb /)\n      kao(:, 2, 9,10) = (/ &\n        & 0.12725e+04_rb,0.11175e+04_rb,0.96294e+03_rb,0.80792e+03_rb,0.65314e+03_rb, &\n        & 0.74018e+03_rb,0.87944e+03_rb,0.10196e+04_rb,0.11602e+04_rb /)\n      kao(:, 3, 9,10) = (/ &\n        & 0.12569e+04_rb,0.11032e+04_rb,0.95038e+03_rb,0.79825e+03_rb,0.64471e+03_rb, &\n        & 0.73910e+03_rb,0.87852e+03_rb,0.10181e+04_rb,0.11585e+04_rb /)\n      kao(:, 4, 9,10) = (/ &\n        & 0.12428e+04_rb,0.10914e+04_rb,0.94028e+03_rb,0.78940e+03_rb,0.63769e+03_rb, &\n        & 0.73816e+03_rb,0.87758e+03_rb,0.10170e+04_rb,0.11569e+04_rb /)\n      kao(:, 5, 9,10) = (/ &\n        & 0.12310e+04_rb,0.10815e+04_rb,0.93149e+03_rb,0.78151e+03_rb,0.63218e+03_rb, &\n        & 0.73726e+03_rb,0.87637e+03_rb,0.10156e+04_rb,0.11553e+04_rb /)\n      kao(:, 1,10,10) = (/ &\n        & 0.12531e+04_rb,0.11009e+04_rb,0.94808e+03_rb,0.79569e+03_rb,0.64353e+03_rb, &\n        & 0.74092e+03_rb,0.88101e+03_rb,0.10222e+04_rb,0.11631e+04_rb /)\n      kao(:, 2,10,10) = (/ &\n        & 0.12357e+04_rb,0.10861e+04_rb,0.93599e+03_rb,0.78490e+03_rb,0.63564e+03_rb, &\n        & 0.74008e+03_rb,0.87961e+03_rb,0.10203e+04_rb,0.11613e+04_rb /)\n      kao(:, 3,10,10) = (/ &\n        & 0.12227e+04_rb,0.10738e+04_rb,0.92501e+03_rb,0.77680e+03_rb,0.62842e+03_rb, &\n        & 0.73914e+03_rb,0.87860e+03_rb,0.10179e+04_rb,0.11592e+04_rb /)\n      kao(:, 4,10,10) = (/ &\n        & 0.12109e+04_rb,0.10632e+04_rb,0.91605e+03_rb,0.76920e+03_rb,0.62177e+03_rb, &\n        & 0.73819e+03_rb,0.87758e+03_rb,0.10174e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,10,10) = (/ &\n        & 0.11998e+04_rb,0.10537e+04_rb,0.90813e+03_rb,0.76232e+03_rb,0.61616e+03_rb, &\n        & 0.73732e+03_rb,0.87676e+03_rb,0.10162e+04_rb,0.11563e+04_rb /)\n      kao(:, 1,11,10) = (/ &\n        & 0.12137e+04_rb,0.10654e+04_rb,0.91884e+03_rb,0.77105e+03_rb,0.62358e+03_rb, &\n        & 0.74042e+03_rb,0.88057e+03_rb,0.10221e+04_rb,0.11630e+04_rb /)\n      kao(:, 2,11,10) = (/ &\n        & 0.11999e+04_rb,0.10545e+04_rb,0.90854e+03_rb,0.76253e+03_rb,0.61715e+03_rb, &\n        & 0.73961e+03_rb,0.87932e+03_rb,0.10201e+04_rb,0.11611e+04_rb /)\n      kao(:, 3,11,10) = (/ &\n        & 0.11890e+04_rb,0.10445e+04_rb,0.90019e+03_rb,0.75537e+03_rb,0.61109e+03_rb, &\n        & 0.73864e+03_rb,0.87832e+03_rb,0.10186e+04_rb,0.11592e+04_rb /)\n      kao(:, 4,11,10) = (/ &\n        & 0.11789e+04_rb,0.10359e+04_rb,0.89280e+03_rb,0.74928e+03_rb,0.60622e+03_rb, &\n        & 0.73779e+03_rb,0.87747e+03_rb,0.10172e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,11,10) = (/ &\n        & 0.11709e+04_rb,0.10287e+04_rb,0.88607e+03_rb,0.74401e+03_rb,0.60247e+03_rb, &\n        & 0.73688e+03_rb,0.87644e+03_rb,0.10160e+04_rb,0.11563e+04_rb /)\n      kao(:, 1,12,10) = (/ &\n        & 0.11820e+04_rb,0.10383e+04_rb,0.89456e+03_rb,0.75081e+03_rb,0.60714e+03_rb, &\n        & 0.74001e+03_rb,0.88049e+03_rb,0.10220e+04_rb,0.11631e+04_rb /)\n      kao(:, 2,12,10) = (/ &\n        & 0.11713e+04_rb,0.10290e+04_rb,0.88623e+03_rb,0.74407e+03_rb,0.60058e+03_rb, &\n        & 0.73921e+03_rb,0.87901e+03_rb,0.10201e+04_rb,0.11611e+04_rb /)\n      kao(:, 3,12,10) = (/ &\n        & 0.11605e+04_rb,0.10200e+04_rb,0.87951e+03_rb,0.73788e+03_rb,0.59769e+03_rb, &\n        & 0.73835e+03_rb,0.87808e+03_rb,0.10182e+04_rb,0.11591e+04_rb /)\n      kao(:, 4,12,10) = (/ &\n        & 0.11533e+04_rb,0.10132e+04_rb,0.87284e+03_rb,0.73305e+03_rb,0.59795e+03_rb, &\n        & 0.73753e+03_rb,0.87718e+03_rb,0.10171e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,12,10) = (/ &\n        & 0.11467e+04_rb,0.10071e+04_rb,0.86739e+03_rb,0.72890e+03_rb,0.59711e+03_rb, &\n        & 0.73664e+03_rb,0.87623e+03_rb,0.10159e+04_rb,0.11563e+04_rb /)\n      kao(:, 1,13,10) = (/ &\n        & 0.11553e+04_rb,0.10149e+04_rb,0.87419e+03_rb,0.73470e+03_rb,0.59975e+03_rb, &\n        & 0.73968e+03_rb,0.88029e+03_rb,0.10219e+04_rb,0.11630e+04_rb /)\n      kao(:, 2,13,10) = (/ &\n        & 0.11455e+04_rb,0.10072e+04_rb,0.86782e+03_rb,0.72873e+03_rb,0.59921e+03_rb, &\n        & 0.73889e+03_rb,0.87889e+03_rb,0.10200e+04_rb,0.11611e+04_rb /)\n      kao(:, 3,13,10) = (/ &\n        & 0.11380e+04_rb,0.10000e+04_rb,0.86190e+03_rb,0.72452e+03_rb,0.59831e+03_rb, &\n        & 0.73799e+03_rb,0.87789e+03_rb,0.10182e+04_rb,0.11592e+04_rb /)\n      kao(:, 4,13,10) = (/ &\n        & 0.11318e+04_rb,0.99472e+03_rb,0.85697e+03_rb,0.71950e+03_rb,0.59744e+03_rb, &\n        & 0.73726e+03_rb,0.87708e+03_rb,0.10170e+04_rb,0.11577e+04_rb /)\n      kao(:, 5,13,10) = (/ &\n        & 0.11253e+04_rb,0.98825e+03_rb,0.85273e+03_rb,0.71635e+03_rb,0.59683e+03_rb, &\n        & 0.73639e+03_rb,0.87606e+03_rb,0.10160e+04_rb,0.11562e+04_rb /)\n      kao(:, 1, 1,11) = (/ &\n        & 0.19598e+04_rb,0.17186e+04_rb,0.14777e+04_rb,0.12380e+04_rb,0.99729e+03_rb, &\n        & 0.75567e+03_rb,0.88469e+03_rb,0.10202e+04_rb,0.11560e+04_rb /)\n      kao(:, 2, 1,11) = (/ &\n        & 0.19102e+04_rb,0.16743e+04_rb,0.14414e+04_rb,0.12066e+04_rb,0.97117e+03_rb, &\n        & 0.74679e+03_rb,0.88252e+03_rb,0.10178e+04_rb,0.11544e+04_rb /)\n      kao(:, 3, 1,11) = (/ &\n        & 0.18656e+04_rb,0.16383e+04_rb,0.14073e+04_rb,0.11791e+04_rb,0.94951e+03_rb, &\n        & 0.74505e+03_rb,0.88029e+03_rb,0.10159e+04_rb,0.11530e+04_rb /)\n      kao(:, 4, 1,11) = (/ &\n        & 0.18261e+04_rb,0.16025e+04_rb,0.13782e+04_rb,0.11540e+04_rb,0.92917e+03_rb, &\n        & 0.74299e+03_rb,0.87816e+03_rb,0.10141e+04_rb,0.11522e+04_rb /)\n      kao(:, 5, 1,11) = (/ &\n        & 0.17888e+04_rb,0.15710e+04_rb,0.13500e+04_rb,0.11298e+04_rb,0.91140e+03_rb, &\n        & 0.74109e+03_rb,0.87588e+03_rb,0.10122e+04_rb,0.11510e+04_rb /)\n      kao(:, 1, 2,11) = (/ &\n        & 0.18117e+04_rb,0.15887e+04_rb,0.13651e+04_rb,0.11459e+04_rb,0.92177e+03_rb, &\n        & 0.74731e+03_rb,0.88412e+03_rb,0.10203e+04_rb,0.11568e+04_rb /)\n      kao(:, 2, 2,11) = (/ &\n        & 0.17673e+04_rb,0.15512e+04_rb,0.13335e+04_rb,0.11174e+04_rb,0.90028e+03_rb, &\n        & 0.74546e+03_rb,0.88203e+03_rb,0.10179e+04_rb,0.11551e+04_rb /)\n      kao(:, 3, 2,11) = (/ &\n        & 0.17317e+04_rb,0.15193e+04_rb,0.13050e+04_rb,0.10955e+04_rb,0.88112e+03_rb, &\n        & 0.74378e+03_rb,0.87978e+03_rb,0.10161e+04_rb,0.11535e+04_rb /)\n      kao(:, 4, 2,11) = (/ &\n        & 0.16956e+04_rb,0.14873e+04_rb,0.12805e+04_rb,0.10729e+04_rb,0.86470e+03_rb, &\n        & 0.74189e+03_rb,0.87768e+03_rb,0.10142e+04_rb,0.11524e+04_rb /)\n      kao(:, 5, 2,11) = (/ &\n        & 0.16657e+04_rb,0.14596e+04_rb,0.12568e+04_rb,0.10531e+04_rb,0.84904e+03_rb, &\n        & 0.73979e+03_rb,0.87528e+03_rb,0.10122e+04_rb,0.11511e+04_rb /)\n      kao(:, 1, 3,11) = (/ &\n        & 0.16927e+04_rb,0.14859e+04_rb,0.12782e+04_rb,0.10724e+04_rb,0.86335e+03_rb, &\n        & 0.74646e+03_rb,0.88392e+03_rb,0.10211e+04_rb,0.11579e+04_rb /)\n      kao(:, 2, 3,11) = (/ &\n        & 0.16581e+04_rb,0.14524e+04_rb,0.12540e+04_rb,0.10466e+04_rb,0.84448e+03_rb, &\n        & 0.74471e+03_rb,0.88205e+03_rb,0.10189e+04_rb,0.11562e+04_rb /)\n      kao(:, 3, 3,11) = (/ &\n        & 0.16261e+04_rb,0.14229e+04_rb,0.12269e+04_rb,0.10264e+04_rb,0.82790e+03_rb, &\n        & 0.74305e+03_rb,0.87988e+03_rb,0.10167e+04_rb,0.11544e+04_rb /)\n      kao(:, 4, 3,11) = (/ &\n        & 0.15929e+04_rb,0.13986e+04_rb,0.12038e+04_rb,0.10084e+04_rb,0.81266e+03_rb, &\n        & 0.74160e+03_rb,0.87767e+03_rb,0.10148e+04_rb,0.11530e+04_rb /)\n      kao(:, 5, 3,11) = (/ &\n        & 0.15661e+04_rb,0.13746e+04_rb,0.11837e+04_rb,0.99103e+03_rb,0.79967e+03_rb, &\n        & 0.73929e+03_rb,0.87586e+03_rb,0.10132e+04_rb,0.11521e+04_rb /)\n      kao(:, 1, 4,11) = (/ &\n        & 0.15973e+04_rb,0.14004e+04_rb,0.12065e+04_rb,0.10106e+04_rb,0.81385e+03_rb, &\n        & 0.74599e+03_rb,0.88404e+03_rb,0.10218e+04_rb,0.11590e+04_rb /)\n      kao(:, 2, 4,11) = (/ &\n        & 0.15637e+04_rb,0.13722e+04_rb,0.11812e+04_rb,0.98900e+03_rb,0.79856e+03_rb, &\n        & 0.74428e+03_rb,0.88217e+03_rb,0.10197e+04_rb,0.11572e+04_rb /)\n      kao(:, 3, 4,11) = (/ &\n        & 0.15340e+04_rb,0.13469e+04_rb,0.11576e+04_rb,0.97012e+03_rb,0.78412e+03_rb, &\n        & 0.74257e+03_rb,0.88022e+03_rb,0.10176e+04_rb,0.11556e+04_rb /)\n      kao(:, 4, 4,11) = (/ &\n        & 0.15085e+04_rb,0.13226e+04_rb,0.11393e+04_rb,0.95486e+03_rb,0.76980e+03_rb, &\n        & 0.74114e+03_rb,0.87815e+03_rb,0.10155e+04_rb,0.11538e+04_rb /)\n      kao(:, 5, 4,11) = (/ &\n        & 0.14836e+04_rb,0.13020e+04_rb,0.11212e+04_rb,0.93957e+03_rb,0.75824e+03_rb, &\n        & 0.73939e+03_rb,0.87630e+03_rb,0.10138e+04_rb,0.11526e+04_rb /)\n      kao(:, 1, 5,11) = (/ &\n        & 0.15143e+04_rb,0.13286e+04_rb,0.11431e+04_rb,0.95847e+03_rb,0.77403e+03_rb, &\n        & 0.74572e+03_rb,0.88418e+03_rb,0.10223e+04_rb,0.11603e+04_rb /)\n      kao(:, 2, 5,11) = (/ &\n        & 0.14842e+04_rb,0.13025e+04_rb,0.11230e+04_rb,0.94028e+03_rb,0.75881e+03_rb, &\n        & 0.74405e+03_rb,0.88254e+03_rb,0.10205e+04_rb,0.11584e+04_rb /)\n      kao(:, 3, 5,11) = (/ &\n        & 0.14577e+04_rb,0.12799e+04_rb,0.11020e+04_rb,0.92340e+03_rb,0.74531e+03_rb, &\n        & 0.74244e+03_rb,0.88060e+03_rb,0.10185e+04_rb,0.11566e+04_rb /)\n      kao(:, 4, 5,11) = (/ &\n        & 0.14365e+04_rb,0.12603e+04_rb,0.10859e+04_rb,0.90939e+03_rb,0.73467e+03_rb, &\n        & 0.74090e+03_rb,0.87865e+03_rb,0.10164e+04_rb,0.11549e+04_rb /)\n      kao(:, 5, 5,11) = (/ &\n        & 0.14147e+04_rb,0.12422e+04_rb,0.10695e+04_rb,0.89657e+03_rb,0.72409e+03_rb, &\n        & 0.73938e+03_rb,0.87659e+03_rb,0.10145e+04_rb,0.11530e+04_rb /)\n      kao(:, 1, 6,11) = (/ &\n        & 0.14426e+04_rb,0.12686e+04_rb,0.10911e+04_rb,0.91528e+03_rb,0.73914e+03_rb, &\n        & 0.74563e+03_rb,0.88436e+03_rb,0.10228e+04_rb,0.11615e+04_rb /)\n      kao(:, 2, 6,11) = (/ &\n        & 0.14171e+04_rb,0.12457e+04_rb,0.10728e+04_rb,0.89861e+03_rb,0.72517e+03_rb, &\n        & 0.74402e+03_rb,0.88280e+03_rb,0.10215e+04_rb,0.11596e+04_rb /)\n      kao(:, 3, 6,11) = (/ &\n        & 0.13943e+04_rb,0.12252e+04_rb,0.10539e+04_rb,0.88362e+03_rb,0.71333e+03_rb, &\n        & 0.74243e+03_rb,0.88117e+03_rb,0.10194e+04_rb,0.11577e+04_rb /)\n      kao(:, 4, 6,11) = (/ &\n        & 0.13749e+04_rb,0.12056e+04_rb,0.10405e+04_rb,0.87188e+03_rb,0.70449e+03_rb, &\n        & 0.74089e+03_rb,0.87923e+03_rb,0.10173e+04_rb,0.11560e+04_rb /)\n      kao(:, 5, 6,11) = (/ &\n        & 0.13580e+04_rb,0.11907e+04_rb,0.10258e+04_rb,0.85998e+03_rb,0.69473e+03_rb, &\n        & 0.73937e+03_rb,0.87727e+03_rb,0.10154e+04_rb,0.11543e+04_rb /)\n      kao(:, 1, 7,11) = (/ &\n        & 0.13844e+04_rb,0.12166e+04_rb,0.10469e+04_rb,0.87815e+03_rb,0.70873e+03_rb, &\n        & 0.74560e+03_rb,0.88449e+03_rb,0.10233e+04_rb,0.11626e+04_rb /)\n      kao(:, 2, 7,11) = (/ &\n        & 0.13610e+04_rb,0.11962e+04_rb,0.10291e+04_rb,0.86318e+03_rb,0.69730e+03_rb, &\n        & 0.74409e+03_rb,0.88322e+03_rb,0.10221e+04_rb,0.11608e+04_rb /)\n      kao(:, 3, 7,11) = (/ &\n        & 0.13413e+04_rb,0.11786e+04_rb,0.10145e+04_rb,0.85031e+03_rb,0.68760e+03_rb, &\n        & 0.74253e+03_rb,0.88154e+03_rb,0.10203e+04_rb,0.11589e+04_rb /)\n      kao(:, 4, 7,11) = (/ &\n        & 0.13235e+04_rb,0.11630e+04_rb,0.10007e+04_rb,0.84004e+03_rb,0.67864e+03_rb, &\n        & 0.74101e+03_rb,0.87982e+03_rb,0.10185e+04_rb,0.11572e+04_rb /)\n      kao(:, 5, 7,11) = (/ &\n        & 0.13063e+04_rb,0.11482e+04_rb,0.98932e+03_rb,0.82998e+03_rb,0.67037e+03_rb, &\n        & 0.73955e+03_rb,0.87796e+03_rb,0.10167e+04_rb,0.11554e+04_rb /)\n      kao(:, 1, 8,11) = (/ &\n        & 0.13361e+04_rb,0.11714e+04_rb,0.10092e+04_rb,0.84627e+03_rb,0.68340e+03_rb, &\n        & 0.74540e+03_rb,0.88457e+03_rb,0.10236e+04_rb,0.11638e+04_rb /)\n      kao(:, 2, 8,11) = (/ &\n        & 0.13143e+04_rb,0.11537e+04_rb,0.99295e+03_rb,0.83355e+03_rb,0.67330e+03_rb, &\n        & 0.74420e+03_rb,0.88339e+03_rb,0.10225e+04_rb,0.11619e+04_rb /)\n      kao(:, 3, 8,11) = (/ &\n        & 0.12952e+04_rb,0.11377e+04_rb,0.98075e+03_rb,0.82213e+03_rb,0.66496e+03_rb, &\n        & 0.74271e+03_rb,0.88199e+03_rb,0.10211e+04_rb,0.11601e+04_rb /)\n      kao(:, 4, 8,11) = (/ &\n        & 0.12808e+04_rb,0.11242e+04_rb,0.96858e+03_rb,0.81350e+03_rb,0.65663e+03_rb, &\n        & 0.74121e+03_rb,0.88037e+03_rb,0.10192e+04_rb,0.11582e+04_rb /)\n      kao(:, 5, 8,11) = (/ &\n        & 0.12664e+04_rb,0.11113e+04_rb,0.95757e+03_rb,0.80317e+03_rb,0.64978e+03_rb, &\n        & 0.73975e+03_rb,0.87862e+03_rb,0.10173e+04_rb,0.11564e+04_rb /)\n      kao(:, 1, 9,11) = (/ &\n        & 0.12911e+04_rb,0.11331e+04_rb,0.97754e+03_rb,0.81972e+03_rb,0.66210e+03_rb, &\n        & 0.74501e+03_rb,0.88462e+03_rb,0.10244e+04_rb,0.11652e+04_rb /)\n      kao(:, 2, 9,11) = (/ &\n        & 0.12743e+04_rb,0.11193e+04_rb,0.96288e+03_rb,0.80865e+03_rb,0.65325e+03_rb, &\n        & 0.74437e+03_rb,0.88360e+03_rb,0.10230e+04_rb,0.11629e+04_rb /)\n      kao(:, 3, 9,11) = (/ &\n        & 0.12573e+04_rb,0.11051e+04_rb,0.95155e+03_rb,0.79729e+03_rb,0.64451e+03_rb, &\n        & 0.74294e+03_rb,0.88237e+03_rb,0.10218e+04_rb,0.11610e+04_rb /)\n      kao(:, 4, 9,11) = (/ &\n        & 0.12441e+04_rb,0.10920e+04_rb,0.94089e+03_rb,0.78911e+03_rb,0.63797e+03_rb, &\n        & 0.74148e+03_rb,0.88091e+03_rb,0.10202e+04_rb,0.11593e+04_rb /)\n      kao(:, 5, 9,11) = (/ &\n        & 0.12297e+04_rb,0.10813e+04_rb,0.93127e+03_rb,0.78127e+03_rb,0.63265e+03_rb, &\n        & 0.74003e+03_rb,0.87926e+03_rb,0.10184e+04_rb,0.11573e+04_rb /)\n      kao(:, 1,10,11) = (/ &\n        & 0.12530e+04_rb,0.11001e+04_rb,0.94821e+03_rb,0.79486e+03_rb,0.64277e+03_rb, &\n        & 0.74454e+03_rb,0.88447e+03_rb,0.10249e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,10,11) = (/ &\n        & 0.12387e+04_rb,0.10865e+04_rb,0.93685e+03_rb,0.78643e+03_rb,0.63425e+03_rb, &\n        & 0.74423e+03_rb,0.88371e+03_rb,0.10234e+04_rb,0.11637e+04_rb /)\n      kao(:, 3,10,11) = (/ &\n        & 0.12243e+04_rb,0.10744e+04_rb,0.92585e+03_rb,0.77676e+03_rb,0.62740e+03_rb, &\n        & 0.74307e+03_rb,0.88260e+03_rb,0.10221e+04_rb,0.11620e+04_rb /)\n      kao(:, 4,10,11) = (/ &\n        & 0.12107e+04_rb,0.10640e+04_rb,0.91623e+03_rb,0.76957e+03_rb,0.62235e+03_rb, &\n        & 0.74168e+03_rb,0.88129e+03_rb,0.10208e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,10,11) = (/ &\n        & 0.12010e+04_rb,0.10536e+04_rb,0.90891e+03_rb,0.76248e+03_rb,0.61761e+03_rb, &\n        & 0.74025e+03_rb,0.87965e+03_rb,0.10191e+04_rb,0.11583e+04_rb /)\n      kao(:, 1,11,11) = (/ &\n        & 0.12140e+04_rb,0.10672e+04_rb,0.91852e+03_rb,0.77048e+03_rb,0.62320e+03_rb, &\n        & 0.74401e+03_rb,0.88413e+03_rb,0.10249e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,11,11) = (/ &\n        & 0.12007e+04_rb,0.10549e+04_rb,0.90904e+03_rb,0.76333e+03_rb,0.61635e+03_rb, &\n        & 0.74367e+03_rb,0.88337e+03_rb,0.10233e+04_rb,0.11639e+04_rb /)\n      kao(:, 3,11,11) = (/ &\n        & 0.11891e+04_rb,0.10458e+04_rb,0.90055e+03_rb,0.75543e+03_rb,0.61123e+03_rb, &\n        & 0.74262e+03_rb,0.88229e+03_rb,0.10219e+04_rb,0.11620e+04_rb /)\n      kao(:, 4,11,11) = (/ &\n        & 0.11794e+04_rb,0.10371e+04_rb,0.89190e+03_rb,0.74912e+03_rb,0.60572e+03_rb, &\n        & 0.74128e+03_rb,0.88110e+03_rb,0.10207e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,11,11) = (/ &\n        & 0.11697e+04_rb,0.10285e+04_rb,0.88631e+03_rb,0.74374e+03_rb,0.60062e+03_rb, &\n        & 0.73987e+03_rb,0.87958e+03_rb,0.10191e+04_rb,0.11583e+04_rb /)\n      kao(:, 1,12,11) = (/ &\n        & 0.11829e+04_rb,0.10373e+04_rb,0.89433e+03_rb,0.75107e+03_rb,0.60775e+03_rb, &\n        & 0.74357e+03_rb,0.88385e+03_rb,0.10247e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,12,11) = (/ &\n        & 0.11707e+04_rb,0.10276e+04_rb,0.88712e+03_rb,0.74426e+03_rb,0.60163e+03_rb, &\n        & 0.74327e+03_rb,0.88309e+03_rb,0.10231e+04_rb,0.11639e+04_rb /)\n      kao(:, 3,12,11) = (/ &\n        & 0.11629e+04_rb,0.10211e+04_rb,0.88018e+03_rb,0.73831e+03_rb,0.60184e+03_rb, &\n        & 0.74224e+03_rb,0.88203e+03_rb,0.10219e+04_rb,0.11620e+04_rb /)\n      kao(:, 4,12,11) = (/ &\n        & 0.11538e+04_rb,0.10126e+04_rb,0.87253e+03_rb,0.73377e+03_rb,0.60080e+03_rb, &\n        & 0.74101e+03_rb,0.88067e+03_rb,0.10205e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,12,11) = (/ &\n        & 0.11449e+04_rb,0.10062e+04_rb,0.86764e+03_rb,0.72842e+03_rb,0.59975e+03_rb, &\n        & 0.73955e+03_rb,0.87926e+03_rb,0.10190e+04_rb,0.11583e+04_rb /)\n      kao(:, 1,13,11) = (/ &\n        & 0.11561e+04_rb,0.10152e+04_rb,0.87509e+03_rb,0.73383e+03_rb,0.60253e+03_rb, &\n        & 0.74321e+03_rb,0.88362e+03_rb,0.10246e+04_rb,0.11664e+04_rb /)\n      kao(:, 2,13,11) = (/ &\n        & 0.11468e+04_rb,0.10069e+04_rb,0.86783e+03_rb,0.72921e+03_rb,0.60211e+03_rb, &\n        & 0.74294e+03_rb,0.88286e+03_rb,0.10230e+04_rb,0.11639e+04_rb /)\n      kao(:, 3,13,11) = (/ &\n        & 0.11390e+04_rb,0.10001e+04_rb,0.86301e+03_rb,0.72323e+03_rb,0.60140e+03_rb, &\n        & 0.74194e+03_rb,0.88181e+03_rb,0.10218e+04_rb,0.11621e+04_rb /)\n      kao(:, 4,13,11) = (/ &\n        & 0.11313e+04_rb,0.99361e+03_rb,0.85706e+03_rb,0.72032e+03_rb,0.60042e+03_rb, &\n        & 0.74065e+03_rb,0.88048e+03_rb,0.10204e+04_rb,0.11602e+04_rb /)\n      kao(:, 5,13,11) = (/ &\n        & 0.11266e+04_rb,0.99042e+03_rb,0.85257e+03_rb,0.71548e+03_rb,0.59931e+03_rb, &\n        & 0.73930e+03_rb,0.87908e+03_rb,0.10187e+04_rb,0.11583e+04_rb /)\n      kao(:, 1, 1,12) = (/ &\n        & 0.19596e+04_rb,0.17200e+04_rb,0.14802e+04_rb,0.12370e+04_rb,0.99641e+03_rb, &\n        & 0.75556e+03_rb,0.88658e+03_rb,0.10236e+04_rb,0.11622e+04_rb /)\n      kao(:, 2, 1,12) = (/ &\n        & 0.19107e+04_rb,0.16797e+04_rb,0.14463e+04_rb,0.12083e+04_rb,0.97440e+03_rb, &\n        & 0.74935e+03_rb,0.88455e+03_rb,0.10223e+04_rb,0.11611e+04_rb /)\n      kao(:, 3, 1,12) = (/ &\n        & 0.18687e+04_rb,0.16368e+04_rb,0.14091e+04_rb,0.11809e+04_rb,0.95100e+03_rb, &\n        & 0.74626e+03_rb,0.88278e+03_rb,0.10214e+04_rb,0.11600e+04_rb /)\n      kao(:, 4, 1,12) = (/ &\n        & 0.18274e+04_rb,0.15998e+04_rb,0.13805e+04_rb,0.11544e+04_rb,0.92955e+03_rb, &\n        & 0.74432e+03_rb,0.88029e+03_rb,0.10193e+04_rb,0.11572e+04_rb /)\n      kao(:, 5, 1,12) = (/ &\n        & 0.17908e+04_rb,0.15685e+04_rb,0.13492e+04_rb,0.11303e+04_rb,0.91228e+03_rb, &\n        & 0.74183e+03_rb,0.87814e+03_rb,0.10165e+04_rb,0.11551e+04_rb /)\n      kao(:, 1, 2,12) = (/ &\n        & 0.18091e+04_rb,0.15890e+04_rb,0.13701e+04_rb,0.11447e+04_rb,0.92240e+03_rb, &\n        & 0.75031e+03_rb,0.88580e+03_rb,0.10236e+04_rb,0.11628e+04_rb /)\n      kao(:, 2, 2,12) = (/ &\n        & 0.17702e+04_rb,0.15507e+04_rb,0.13346e+04_rb,0.11179e+04_rb,0.90072e+03_rb, &\n        & 0.74790e+03_rb,0.88384e+03_rb,0.10222e+04_rb,0.11616e+04_rb /)\n      kao(:, 3, 2,12) = (/ &\n        & 0.17282e+04_rb,0.15159e+04_rb,0.13066e+04_rb,0.10967e+04_rb,0.88274e+03_rb, &\n        & 0.74530e+03_rb,0.88241e+03_rb,0.10213e+04_rb,0.11606e+04_rb /)\n      kao(:, 4, 2,12) = (/ &\n        & 0.16964e+04_rb,0.14887e+04_rb,0.12816e+04_rb,0.10711e+04_rb,0.86387e+03_rb, &\n        & 0.74308e+03_rb,0.88064e+03_rb,0.10199e+04_rb,0.11593e+04_rb /)\n      kao(:, 5, 2,12) = (/ &\n        & 0.16664e+04_rb,0.14634e+04_rb,0.12570e+04_rb,0.10541e+04_rb,0.84878e+03_rb, &\n        & 0.74105e+03_rb,0.87802e+03_rb,0.10170e+04_rb,0.11559e+04_rb /)\n      kao(:, 1, 3,12) = (/ &\n        & 0.16969e+04_rb,0.14893e+04_rb,0.12806e+04_rb,0.10686e+04_rb,0.86200e+03_rb, &\n        & 0.74953e+03_rb,0.88586e+03_rb,0.10239e+04_rb,0.11637e+04_rb /)\n      kao(:, 2, 3,12) = (/ &\n        & 0.16530e+04_rb,0.14535e+04_rb,0.12505e+04_rb,0.10502e+04_rb,0.84485e+03_rb, &\n        & 0.74734e+03_rb,0.88380e+03_rb,0.10224e+04_rb,0.11623e+04_rb /)\n      kao(:, 3, 3,12) = (/ &\n        & 0.16258e+04_rb,0.14316e+04_rb,0.12308e+04_rb,0.10274e+04_rb,0.82737e+03_rb, &\n        & 0.74498e+03_rb,0.88220e+03_rb,0.10214e+04_rb,0.11612e+04_rb /)\n      kao(:, 4, 3,12) = (/ &\n        & 0.15947e+04_rb,0.13987e+04_rb,0.12036e+04_rb,0.10100e+04_rb,0.81398e+03_rb, &\n        & 0.74250e+03_rb,0.88073e+03_rb,0.10203e+04_rb,0.11601e+04_rb /)\n      kao(:, 5, 3,12) = (/ &\n        & 0.15659e+04_rb,0.13745e+04_rb,0.11827e+04_rb,0.99357e+03_rb,0.79945e+03_rb, &\n        & 0.74072e+03_rb,0.87844e+03_rb,0.10192e+04_rb,0.11574e+04_rb /)\n      kao(:, 1, 4,12) = (/ &\n        & 0.15993e+04_rb,0.14029e+04_rb,0.12034e+04_rb,0.10105e+04_rb,0.81494e+03_rb, &\n        & 0.74898e+03_rb,0.88604e+03_rb,0.10246e+04_rb,0.11648e+04_rb /)\n      kao(:, 2, 4,12) = (/ &\n        & 0.15603e+04_rb,0.13717e+04_rb,0.11803e+04_rb,0.99158e+03_rb,0.79797e+03_rb, &\n        & 0.74702e+03_rb,0.88413e+03_rb,0.10230e+04_rb,0.11631e+04_rb /)\n      kao(:, 3, 4,12) = (/ &\n        & 0.15363e+04_rb,0.13460e+04_rb,0.11581e+04_rb,0.97158e+03_rb,0.78286e+03_rb, &\n        & 0.74488e+03_rb,0.88249e+03_rb,0.10215e+04_rb,0.11618e+04_rb /)\n      kao(:, 4, 4,12) = (/ &\n        & 0.15069e+04_rb,0.13248e+04_rb,0.11397e+04_rb,0.95515e+03_rb,0.77185e+03_rb, &\n        & 0.74259e+03_rb,0.88086e+03_rb,0.10207e+04_rb,0.11608e+04_rb /)\n      kao(:, 5, 4,12) = (/ &\n        & 0.14842e+04_rb,0.13030e+04_rb,0.11201e+04_rb,0.94205e+03_rb,0.75928e+03_rb, &\n        & 0.74072e+03_rb,0.87912e+03_rb,0.10193e+04_rb,0.11593e+04_rb /)\n      kao(:, 1, 5,12) = (/ &\n        & 0.15161e+04_rb,0.13293e+04_rb,0.11434e+04_rb,0.96071e+03_rb,0.77366e+03_rb, &\n        & 0.74856e+03_rb,0.88634e+03_rb,0.10256e+04_rb,0.11660e+04_rb /)\n      kao(:, 2, 5,12) = (/ &\n        & 0.14862e+04_rb,0.13039e+04_rb,0.11202e+04_rb,0.93927e+03_rb,0.75808e+03_rb, &\n        & 0.74678e+03_rb,0.88432e+03_rb,0.10237e+04_rb,0.11641e+04_rb /)\n      kao(:, 3, 5,12) = (/ &\n        & 0.14569e+04_rb,0.12812e+04_rb,0.11040e+04_rb,0.92477e+03_rb,0.74608e+03_rb, &\n        & 0.74483e+03_rb,0.88267e+03_rb,0.10221e+04_rb,0.11626e+04_rb /)\n      kao(:, 4, 5,12) = (/ &\n        & 0.14370e+04_rb,0.12601e+04_rb,0.10866e+04_rb,0.91322e+03_rb,0.73546e+03_rb, &\n        & 0.74282e+03_rb,0.88106e+03_rb,0.10210e+04_rb,0.11614e+04_rb /)\n      kao(:, 5, 5,12) = (/ &\n        & 0.14157e+04_rb,0.12432e+04_rb,0.10692e+04_rb,0.89766e+03_rb,0.72371e+03_rb, &\n        & 0.74075e+03_rb,0.87977e+03_rb,0.10201e+04_rb,0.11604e+04_rb /)\n      kao(:, 1, 6,12) = (/ &\n        & 0.14446e+04_rb,0.12668e+04_rb,0.10902e+04_rb,0.91458e+03_rb,0.73853e+03_rb, &\n        & 0.74800e+03_rb,0.88683e+03_rb,0.10267e+04_rb,0.11674e+04_rb /)\n      kao(:, 2, 6,12) = (/ &\n        & 0.14180e+04_rb,0.12442e+04_rb,0.10729e+04_rb,0.90054e+03_rb,0.72712e+03_rb, &\n        & 0.74664e+03_rb,0.88490e+03_rb,0.10243e+04_rb,0.11653e+04_rb /)\n      kao(:, 3, 6,12) = (/ &\n        & 0.13970e+04_rb,0.12338e+04_rb,0.10562e+04_rb,0.88644e+03_rb,0.71466e+03_rb, &\n        & 0.74490e+03_rb,0.88299e+03_rb,0.10228e+04_rb,0.11635e+04_rb /)\n      kao(:, 4, 6,12) = (/ &\n        & 0.13772e+04_rb,0.12092e+04_rb,0.10403e+04_rb,0.87191e+03_rb,0.70566e+03_rb, &\n        & 0.74297e+03_rb,0.88145e+03_rb,0.10214e+04_rb,0.11622e+04_rb /)\n      kao(:, 5, 6,12) = (/ &\n        & 0.13536e+04_rb,0.11933e+04_rb,0.10279e+04_rb,0.85985e+03_rb,0.69532e+03_rb, &\n        & 0.74091e+03_rb,0.88002e+03_rb,0.10207e+04_rb,0.11611e+04_rb /)\n      kao(:, 1, 7,12) = (/ &\n        & 0.13872e+04_rb,0.12173e+04_rb,0.10473e+04_rb,0.87779e+03_rb,0.70929e+03_rb, &\n        & 0.74753e+03_rb,0.88739e+03_rb,0.10279e+04_rb,0.11686e+04_rb /)\n      kao(:, 2, 7,12) = (/ &\n        & 0.13614e+04_rb,0.11960e+04_rb,0.10302e+04_rb,0.86342e+03_rb,0.69779e+03_rb, &\n        & 0.74649e+03_rb,0.88535e+03_rb,0.10254e+04_rb,0.11666e+04_rb /)\n      kao(:, 3, 7,12) = (/ &\n        & 0.13423e+04_rb,0.11779e+04_rb,0.10152e+04_rb,0.85120e+03_rb,0.68669e+03_rb, &\n        & 0.74500e+03_rb,0.88364e+03_rb,0.10236e+04_rb,0.11646e+04_rb /)\n      kao(:, 4, 7,12) = (/ &\n        & 0.13222e+04_rb,0.11614e+04_rb,0.10027e+04_rb,0.84138e+03_rb,0.67980e+03_rb, &\n        & 0.74324e+03_rb,0.88194e+03_rb,0.10219e+04_rb,0.11628e+04_rb /)\n      kao(:, 5, 7,12) = (/ &\n        & 0.13077e+04_rb,0.11487e+04_rb,0.98870e+03_rb,0.82923e+03_rb,0.67117e+03_rb, &\n        & 0.74131e+03_rb,0.88052e+03_rb,0.10200e+04_rb,0.11617e+04_rb /)\n      kao(:, 1, 8,12) = (/ &\n        & 0.13318e+04_rb,0.11751e+04_rb,0.10116e+04_rb,0.84760e+03_rb,0.68552e+03_rb, &\n        & 0.74755e+03_rb,0.88764e+03_rb,0.10284e+04_rb,0.11697e+04_rb /)\n      kao(:, 2, 8,12) = (/ &\n        & 0.13123e+04_rb,0.11533e+04_rb,0.99316e+03_rb,0.83364e+03_rb,0.67452e+03_rb, &\n        & 0.74634e+03_rb,0.88623e+03_rb,0.10267e+04_rb,0.11679e+04_rb /)\n      kao(:, 3, 8,12) = (/ &\n        & 0.12963e+04_rb,0.11395e+04_rb,0.98036e+03_rb,0.82206e+03_rb,0.66378e+03_rb, &\n        & 0.74528e+03_rb,0.88422e+03_rb,0.10245e+04_rb,0.11657e+04_rb /)\n      kao(:, 4, 8,12) = (/ &\n        & 0.12799e+04_rb,0.11235e+04_rb,0.96838e+03_rb,0.81175e+03_rb,0.65688e+03_rb, &\n        & 0.74350e+03_rb,0.88249e+03_rb,0.10227e+04_rb,0.11639e+04_rb /)\n      kao(:, 5, 8,12) = (/ &\n        & 0.12649e+04_rb,0.11128e+04_rb,0.95762e+03_rb,0.80323e+03_rb,0.64917e+03_rb, &\n        & 0.74172e+03_rb,0.88089e+03_rb,0.10213e+04_rb,0.11624e+04_rb /)\n      kao(:, 1, 9,12) = (/ &\n        & 0.12892e+04_rb,0.11353e+04_rb,0.97529e+03_rb,0.81997e+03_rb,0.66439e+03_rb, &\n        & 0.74689e+03_rb,0.88774e+03_rb,0.10288e+04_rb,0.11703e+04_rb /)\n      kao(:, 2, 9,12) = (/ &\n        & 0.12710e+04_rb,0.11179e+04_rb,0.96230e+03_rb,0.80757e+03_rb,0.65174e+03_rb, &\n        & 0.74606e+03_rb,0.88671e+03_rb,0.10277e+04_rb,0.11691e+04_rb /)\n      kao(:, 3, 9,12) = (/ &\n        & 0.12556e+04_rb,0.11026e+04_rb,0.95506e+03_rb,0.79904e+03_rb,0.64512e+03_rb, &\n        & 0.74525e+03_rb,0.88489e+03_rb,0.10254e+04_rb,0.11669e+04_rb /)\n      kao(:, 4, 9,12) = (/ &\n        & 0.12434e+04_rb,0.10930e+04_rb,0.94625e+03_rb,0.79326e+03_rb,0.63956e+03_rb, &\n        & 0.74375e+03_rb,0.88308e+03_rb,0.10236e+04_rb,0.11649e+04_rb /)\n      kao(:, 5, 9,12) = (/ &\n        & 0.12362e+04_rb,0.10807e+04_rb,0.93519e+03_rb,0.78318e+03_rb,0.63176e+03_rb, &\n        & 0.74222e+03_rb,0.88144e+03_rb,0.10218e+04_rb,0.11632e+04_rb /)\n      kao(:, 1,10,12) = (/ &\n        & 0.12560e+04_rb,0.11008e+04_rb,0.94819e+03_rb,0.79713e+03_rb,0.64289e+03_rb, &\n        & 0.74662e+03_rb,0.88790e+03_rb,0.10293e+04_rb,0.11710e+04_rb /)\n      kao(:, 2,10,12) = (/ &\n        & 0.12370e+04_rb,0.10868e+04_rb,0.93614e+03_rb,0.78750e+03_rb,0.63591e+03_rb, &\n        & 0.74589e+03_rb,0.88689e+03_rb,0.10281e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,10,12) = (/ &\n        & 0.12228e+04_rb,0.10745e+04_rb,0.92565e+03_rb,0.77586e+03_rb,0.63013e+03_rb, &\n        & 0.74525e+03_rb,0.88546e+03_rb,0.10265e+04_rb,0.11680e+04_rb /)\n      kao(:, 4,10,12) = (/ &\n        & 0.12130e+04_rb,0.10629e+04_rb,0.91805e+03_rb,0.77218e+03_rb,0.62214e+03_rb, &\n        & 0.74398e+03_rb,0.88360e+03_rb,0.10243e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,10,12) = (/ &\n        & 0.11990e+04_rb,0.10561e+04_rb,0.90990e+03_rb,0.76234e+03_rb,0.61782e+03_rb, &\n        & 0.74238e+03_rb,0.88192e+03_rb,0.10225e+04_rb,0.11640e+04_rb /)\n      kao(:, 1,11,12) = (/ &\n        & 0.12160e+04_rb,0.10660e+04_rb,0.91756e+03_rb,0.77092e+03_rb,0.62410e+03_rb, &\n        & 0.74614e+03_rb,0.88758e+03_rb,0.10288e+04_rb,0.11712e+04_rb /)\n      kao(:, 2,11,12) = (/ &\n        & 0.12001e+04_rb,0.10573e+04_rb,0.90897e+03_rb,0.76187e+03_rb,0.61778e+03_rb, &\n        & 0.74563e+03_rb,0.88659e+03_rb,0.10280e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,11,12) = (/ &\n        & 0.11883e+04_rb,0.10436e+04_rb,0.89901e+03_rb,0.75711e+03_rb,0.61087e+03_rb, &\n        & 0.74468e+03_rb,0.88519e+03_rb,0.10264e+04_rb,0.11680e+04_rb /)\n      kao(:, 4,11,12) = (/ &\n        & 0.11791e+04_rb,0.10338e+04_rb,0.89462e+03_rb,0.74974e+03_rb,0.60740e+03_rb, &\n        & 0.74372e+03_rb,0.88322e+03_rb,0.10242e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,11,12) = (/ &\n        & 0.11736e+04_rb,0.10284e+04_rb,0.88610e+03_rb,0.74386e+03_rb,0.60256e+03_rb, &\n        & 0.74204e+03_rb,0.88156e+03_rb,0.10223e+04_rb,0.11640e+04_rb /)\n      kao(:, 1,12,12) = (/ &\n        & 0.11783e+04_rb,0.10408e+04_rb,0.89462e+03_rb,0.75034e+03_rb,0.60838e+03_rb, &\n        & 0.74575e+03_rb,0.88732e+03_rb,0.10288e+04_rb,0.11710e+04_rb /)\n      kao(:, 2,12,12) = (/ &\n        & 0.11693e+04_rb,0.10333e+04_rb,0.88486e+03_rb,0.74467e+03_rb,0.60420e+03_rb, &\n        & 0.74514e+03_rb,0.88635e+03_rb,0.10279e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,12,12) = (/ &\n        & 0.11597e+04_rb,0.10197e+04_rb,0.87845e+03_rb,0.73901e+03_rb,0.60371e+03_rb, &\n        & 0.74440e+03_rb,0.88495e+03_rb,0.10263e+04_rb,0.11680e+04_rb /)\n      kao(:, 4,12,12) = (/ &\n        & 0.11554e+04_rb,0.10154e+04_rb,0.87390e+03_rb,0.73209e+03_rb,0.60310e+03_rb, &\n        & 0.74343e+03_rb,0.88312e+03_rb,0.10241e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,12,12) = (/ &\n        & 0.11463e+04_rb,0.10081e+04_rb,0.86768e+03_rb,0.73113e+03_rb,0.60226e+03_rb, &\n        & 0.74178e+03_rb,0.88148e+03_rb,0.10222e+04_rb,0.11640e+04_rb /)\n      kao(:, 1,13,12) = (/ &\n        & 0.11576e+04_rb,0.10172e+04_rb,0.87697e+03_rb,0.73496e+03_rb,0.60442e+03_rb, &\n        & 0.74542e+03_rb,0.88710e+03_rb,0.10287e+04_rb,0.11710e+04_rb /)\n      kao(:, 2,13,12) = (/ &\n        & 0.11489e+04_rb,0.10121e+04_rb,0.86787e+03_rb,0.73038e+03_rb,0.60369e+03_rb, &\n        & 0.74483e+03_rb,0.88615e+03_rb,0.10278e+04_rb,0.11697e+04_rb /)\n      kao(:, 3,13,12) = (/ &\n        & 0.11408e+04_rb,0.10003e+04_rb,0.86069e+03_rb,0.72468e+03_rb,0.60332e+03_rb, &\n        & 0.74398e+03_rb,0.88477e+03_rb,0.10262e+04_rb,0.11679e+04_rb /)\n      kao(:, 4,13,12) = (/ &\n        & 0.11353e+04_rb,0.99812e+03_rb,0.85805e+03_rb,0.72010e+03_rb,0.60276e+03_rb, &\n        & 0.74301e+03_rb,0.88294e+03_rb,0.10240e+04_rb,0.11659e+04_rb /)\n      kao(:, 5,13,12) = (/ &\n        & 0.11276e+04_rb,0.99093e+03_rb,0.85424e+03_rb,0.71851e+03_rb,0.60186e+03_rb, &\n        & 0.74137e+03_rb,0.88131e+03_rb,0.10223e+04_rb,0.11640e+04_rb /)\n      kao(:, 1, 1,13) = (/ &\n        & 0.19698e+04_rb,0.17183e+04_rb,0.14812e+04_rb,0.12476e+04_rb,0.10057e+04_rb, &\n        & 0.76142e+03_rb,0.89076e+03_rb,0.10305e+04_rb,0.11701e+04_rb /)\n      kao(:, 2, 1,13) = (/ &\n        & 0.19138e+04_rb,0.16790e+04_rb,0.14471e+04_rb,0.12079e+04_rb,0.97024e+03_rb, &\n        & 0.74958e+03_rb,0.88854e+03_rb,0.10281e+04_rb,0.11676e+04_rb /)\n      kao(:, 3, 1,13) = (/ &\n        & 0.18656e+04_rb,0.16362e+04_rb,0.14072e+04_rb,0.11764e+04_rb,0.95368e+03_rb, &\n        & 0.74756e+03_rb,0.88578e+03_rb,0.10247e+04_rb,0.11642e+04_rb /)\n      kao(:, 4, 1,13) = (/ &\n        & 0.18274e+04_rb,0.16076e+04_rb,0.13744e+04_rb,0.11522e+04_rb,0.93101e+03_rb, &\n        & 0.74489e+03_rb,0.88368e+03_rb,0.10224e+04_rb,0.11624e+04_rb /)\n      kao(:, 5, 1,13) = (/ &\n        & 0.18123e+04_rb,0.15711e+04_rb,0.13539e+04_rb,0.11391e+04_rb,0.91271e+03_rb, &\n        & 0.74309e+03_rb,0.88194e+03_rb,0.10210e+04_rb,0.11601e+04_rb /)\n      kao(:, 1, 2,13) = (/ &\n        & 0.18136e+04_rb,0.16074e+04_rb,0.13682e+04_rb,0.11455e+04_rb,0.92152e+03_rb, &\n        & 0.75090e+03_rb,0.89044e+03_rb,0.10309e+04_rb,0.11711e+04_rb /)\n      kao(:, 2, 2,13) = (/ &\n        & 0.17663e+04_rb,0.15639e+04_rb,0.13412e+04_rb,0.11338e+04_rb,0.90565e+03_rb, &\n        & 0.74892e+03_rb,0.88842e+03_rb,0.10286e+04_rb,0.11690e+04_rb /)\n      kao(:, 3, 2,13) = (/ &\n        & 0.17473e+04_rb,0.15168e+04_rb,0.13179e+04_rb,0.10933e+04_rb,0.88564e+03_rb, &\n        & 0.74657e+03_rb,0.88587e+03_rb,0.10277e+04_rb,0.11659e+04_rb /)\n      kao(:, 4, 2,13) = (/ &\n        & 0.16935e+04_rb,0.14940e+04_rb,0.12866e+04_rb,0.10771e+04_rb,0.86513e+03_rb, &\n        & 0.74388e+03_rb,0.88292e+03_rb,0.10226e+04_rb,0.11621e+04_rb /)\n      kao(:, 5, 2,13) = (/ &\n        & 0.16796e+04_rb,0.14587e+04_rb,0.12610e+04_rb,0.10625e+04_rb,0.85051e+03_rb, &\n        & 0.74222e+03_rb,0.88187e+03_rb,0.10215e+04_rb,0.11614e+04_rb /)\n      kao(:, 1, 3,13) = (/ &\n        & 0.16915e+04_rb,0.14853e+04_rb,0.12759e+04_rb,0.10742e+04_rb,0.87078e+03_rb, &\n        & 0.75040e+03_rb,0.89056e+03_rb,0.10314e+04_rb,0.11723e+04_rb /)\n      kao(:, 2, 3,13) = (/ &\n        & 0.16685e+04_rb,0.14695e+04_rb,0.12569e+04_rb,0.10522e+04_rb,0.84369e+03_rb, &\n        & 0.74849e+03_rb,0.88875e+03_rb,0.10295e+04_rb,0.11702e+04_rb /)\n      kao(:, 3, 3,13) = (/ &\n        & 0.16315e+04_rb,0.14234e+04_rb,0.12207e+04_rb,0.10278e+04_rb,0.83542e+03_rb, &\n        & 0.74665e+03_rb,0.88665e+03_rb,0.10272e+04_rb,0.11677e+04_rb /)\n      kao(:, 4, 3,13) = (/ &\n        & 0.15936e+04_rb,0.13973e+04_rb,0.11983e+04_rb,0.10068e+04_rb,0.81253e+03_rb, &\n        & 0.74392e+03_rb,0.88383e+03_rb,0.10241e+04_rb,0.11643e+04_rb /)\n      kao(:, 5, 3,13) = (/ &\n        & 0.15704e+04_rb,0.13749e+04_rb,0.11794e+04_rb,0.99081e+03_rb,0.79887e+03_rb, &\n        & 0.74214e+03_rb,0.88216e+03_rb,0.10204e+04_rb,0.11625e+04_rb /)\n      kao(:, 1, 4,13) = (/ &\n        & 0.16005e+04_rb,0.14146e+04_rb,0.12141e+04_rb,0.10096e+04_rb,0.81830e+03_rb, &\n        & 0.74981e+03_rb,0.89073e+03_rb,0.10323e+04_rb,0.11736e+04_rb /)\n      kao(:, 2, 4,13) = (/ &\n        & 0.15697e+04_rb,0.13709e+04_rb,0.11792e+04_rb,0.98706e+03_rb,0.80274e+03_rb, &\n        & 0.74843e+03_rb,0.88917e+03_rb,0.10304e+04_rb,0.11716e+04_rb /)\n      kao(:, 3, 4,13) = (/ &\n        & 0.15342e+04_rb,0.13528e+04_rb,0.11633e+04_rb,0.97494e+03_rb,0.78298e+03_rb, &\n        & 0.74655e+03_rb,0.88714e+03_rb,0.10283e+04_rb,0.11694e+04_rb /)\n      kao(:, 4, 4,13) = (/ &\n        & 0.15079e+04_rb,0.13273e+04_rb,0.11368e+04_rb,0.95326e+03_rb,0.76898e+03_rb, &\n        & 0.74477e+03_rb,0.88522e+03_rb,0.10258e+04_rb,0.11666e+04_rb /)\n      kao(:, 5, 4,13) = (/ &\n        & 0.14904e+04_rb,0.13050e+04_rb,0.11274e+04_rb,0.94133e+03_rb,0.75918e+03_rb, &\n        & 0.74185e+03_rb,0.88236e+03_rb,0.10229e+04_rb,0.11634e+04_rb /)\n      kao(:, 1, 5,13) = (/ &\n        & 0.15223e+04_rb,0.13292e+04_rb,0.11458e+04_rb,0.96632e+03_rb,0.77253e+03_rb, &\n        & 0.74931e+03_rb,0.89080e+03_rb,0.10327e+04_rb,0.11744e+04_rb /)\n      kao(:, 2, 5,13) = (/ &\n        & 0.14887e+04_rb,0.13100e+04_rb,0.11308e+04_rb,0.95564e+03_rb,0.76318e+03_rb, &\n        & 0.74814e+03_rb,0.88953e+03_rb,0.10311e+04_rb,0.11728e+04_rb /)\n      kao(:, 3, 5,13) = (/ &\n        & 0.14666e+04_rb,0.12805e+04_rb,0.10990e+04_rb,0.92585e+03_rb,0.74527e+03_rb, &\n        & 0.74662e+03_rb,0.88788e+03_rb,0.10293e+04_rb,0.11708e+04_rb /)\n      kao(:, 4, 5,13) = (/ &\n        & 0.14380e+04_rb,0.12615e+04_rb,0.10805e+04_rb,0.91192e+03_rb,0.73306e+03_rb, &\n        & 0.74471e+03_rb,0.88594e+03_rb,0.10272e+04_rb,0.11684e+04_rb /)\n      kao(:, 5, 5,13) = (/ &\n        & 0.14117e+04_rb,0.12389e+04_rb,0.10707e+04_rb,0.89863e+03_rb,0.72872e+03_rb, &\n        & 0.74254e+03_rb,0.88356e+03_rb,0.10243e+04_rb,0.11652e+04_rb /)\n      kao(:, 1, 6,13) = (/ &\n        & 0.14428e+04_rb,0.12661e+04_rb,0.10990e+04_rb,0.91605e+03_rb,0.74645e+03_rb, &\n        & 0.74914e+03_rb,0.89068e+03_rb,0.10327e+04_rb,0.11747e+04_rb /)\n      kao(:, 2, 6,13) = (/ &\n        & 0.14277e+04_rb,0.12454e+04_rb,0.10670e+04_rb,0.90364e+03_rb,0.72758e+03_rb, &\n        & 0.74802e+03_rb,0.88983e+03_rb,0.10318e+04_rb,0.11738e+04_rb /)\n      kao(:, 3, 6,13) = (/ &\n        & 0.14072e+04_rb,0.12244e+04_rb,0.10539e+04_rb,0.88576e+03_rb,0.71342e+03_rb, &\n        & 0.74674e+03_rb,0.88844e+03_rb,0.10303e+04_rb,0.11723e+04_rb /)\n      kao(:, 4, 6,13) = (/ &\n        & 0.13764e+04_rb,0.12101e+04_rb,0.10371e+04_rb,0.87173e+03_rb,0.70565e+03_rb, &\n        & 0.74519e+03_rb,0.88672e+03_rb,0.10284e+04_rb,0.11700e+04_rb /)\n      kao(:, 5, 6,13) = (/ &\n        & 0.13559e+04_rb,0.11928e+04_rb,0.10275e+04_rb,0.87202e+03_rb,0.69916e+03_rb, &\n        & 0.74337e+03_rb,0.88468e+03_rb,0.10257e+04_rb,0.11677e+04_rb /)\n      kao(:, 1, 7,13) = (/ &\n        & 0.13816e+04_rb,0.12181e+04_rb,0.10498e+04_rb,0.87727e+03_rb,0.70862e+03_rb, &\n        & 0.74879e+03_rb,0.89032e+03_rb,0.10324e+04_rb,0.11748e+04_rb /)\n      kao(:, 2, 7,13) = (/ &\n        & 0.13746e+04_rb,0.12007e+04_rb,0.10368e+04_rb,0.86700e+03_rb,0.69742e+03_rb, &\n        & 0.74791e+03_rb,0.88998e+03_rb,0.10322e+04_rb,0.11745e+04_rb /)\n      kao(:, 3, 7,13) = (/ &\n        & 0.13471e+04_rb,0.11822e+04_rb,0.10118e+04_rb,0.85187e+03_rb,0.69076e+03_rb, &\n        & 0.74684e+03_rb,0.88891e+03_rb,0.10311e+04_rb,0.11732e+04_rb /)\n      kao(:, 4, 7,13) = (/ &\n        & 0.13306e+04_rb,0.11625e+04_rb,0.10055e+04_rb,0.83687e+03_rb,0.67946e+03_rb, &\n        & 0.74564e+03_rb,0.88741e+03_rb,0.10294e+04_rb,0.11714e+04_rb /)\n      kao(:, 5, 7,13) = (/ &\n        & 0.13072e+04_rb,0.11462e+04_rb,0.98997e+03_rb,0.82975e+03_rb,0.67148e+03_rb, &\n        & 0.74390e+03_rb,0.88544e+03_rb,0.10275e+04_rb,0.11691e+04_rb /)\n      kao(:, 1, 8,13) = (/ &\n        & 0.13342e+04_rb,0.11738e+04_rb,0.10072e+04_rb,0.84777e+03_rb,0.68336e+03_rb, &\n        & 0.74810e+03_rb,0.89032e+03_rb,0.10328e+04_rb,0.11753e+04_rb /)\n      kao(:, 2, 8,13) = (/ &\n        & 0.13170e+04_rb,0.11565e+04_rb,0.99551e+03_rb,0.83812e+03_rb,0.67873e+03_rb, &\n        & 0.74767e+03_rb,0.88984e+03_rb,0.10325e+04_rb,0.11747e+04_rb /)\n      kao(:, 3, 8,13) = (/ &\n        & 0.12961e+04_rb,0.11348e+04_rb,0.98531e+03_rb,0.82142e+03_rb,0.66767e+03_rb, &\n        & 0.74660e+03_rb,0.88923e+03_rb,0.10317e+04_rb,0.11741e+04_rb /)\n      kao(:, 4, 8,13) = (/ &\n        & 0.12863e+04_rb,0.11324e+04_rb,0.96704e+03_rb,0.81553e+03_rb,0.65703e+03_rb, &\n        & 0.74590e+03_rb,0.88815e+03_rb,0.10305e+04_rb,0.11725e+04_rb /)\n      kao(:, 5, 8,13) = (/ &\n        & 0.12689e+04_rb,0.11113e+04_rb,0.96142e+03_rb,0.81188e+03_rb,0.65150e+03_rb, &\n        & 0.74435e+03_rb,0.88637e+03_rb,0.10284e+04_rb,0.11705e+04_rb /)\n      kao(:, 1, 9,13) = (/ &\n        & 0.12929e+04_rb,0.11420e+04_rb,0.97941e+03_rb,0.82358e+03_rb,0.66259e+03_rb, &\n        & 0.74862e+03_rb,0.89046e+03_rb,0.10332e+04_rb,0.11761e+04_rb /)\n      kao(:, 2, 9,13) = (/ &\n        & 0.12739e+04_rb,0.11222e+04_rb,0.96918e+03_rb,0.81141e+03_rb,0.65436e+03_rb, &\n        & 0.74747e+03_rb,0.88962e+03_rb,0.10323e+04_rb,0.11749e+04_rb /)\n      kao(:, 3, 9,13) = (/ &\n        & 0.12674e+04_rb,0.11070e+04_rb,0.94554e+03_rb,0.79811e+03_rb,0.64989e+03_rb, &\n        & 0.74671e+03_rb,0.88937e+03_rb,0.10320e+04_rb,0.11746e+04_rb /)\n      kao(:, 4, 9,13) = (/ &\n        & 0.12536e+04_rb,0.10974e+04_rb,0.93180e+03_rb,0.78881e+03_rb,0.64048e+03_rb, &\n        & 0.74596e+03_rb,0.88846e+03_rb,0.10310e+04_rb,0.11735e+04_rb /)\n      kao(:, 5, 9,13) = (/ &\n        & 0.12304e+04_rb,0.10931e+04_rb,0.92897e+03_rb,0.78158e+03_rb,0.63657e+03_rb, &\n        & 0.74461e+03_rb,0.88706e+03_rb,0.10294e+04_rb,0.11717e+04_rb /)\n      kao(:, 1,10,13) = (/ &\n        & 0.12516e+04_rb,0.11039e+04_rb,0.96641e+03_rb,0.80204e+03_rb,0.64728e+03_rb, &\n        & 0.74871e+03_rb,0.89043e+03_rb,0.10331e+04_rb,0.11761e+04_rb /)\n      kao(:, 2,10,13) = (/ &\n        & 0.12445e+04_rb,0.10951e+04_rb,0.94205e+03_rb,0.78296e+03_rb,0.63684e+03_rb, &\n        & 0.74738e+03_rb,0.88974e+03_rb,0.10326e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,10,13) = (/ &\n        & 0.12212e+04_rb,0.10830e+04_rb,0.92907e+03_rb,0.78344e+03_rb,0.62583e+03_rb, &\n        & 0.74649e+03_rb,0.88924e+03_rb,0.10320e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,10,13) = (/ &\n        & 0.12116e+04_rb,0.10675e+04_rb,0.91424e+03_rb,0.76668e+03_rb,0.62374e+03_rb, &\n        & 0.74589e+03_rb,0.88889e+03_rb,0.10314e+04_rb,0.11741e+04_rb /)\n      kao(:, 5,10,13) = (/ &\n        & 0.12052e+04_rb,0.10532e+04_rb,0.90488e+03_rb,0.76246e+03_rb,0.61399e+03_rb, &\n        & 0.74500e+03_rb,0.88754e+03_rb,0.10301e+04_rb,0.11727e+04_rb /)\n      kao(:, 1,11,13) = (/ &\n        & 0.12119e+04_rb,0.10670e+04_rb,0.92549e+03_rb,0.77292e+03_rb,0.62469e+03_rb, &\n        & 0.74822e+03_rb,0.89015e+03_rb,0.10331e+04_rb,0.11759e+04_rb /)\n      kao(:, 2,11,13) = (/ &\n        & 0.12040e+04_rb,0.10529e+04_rb,0.90947e+03_rb,0.76631e+03_rb,0.61756e+03_rb, &\n        & 0.74680e+03_rb,0.88950e+03_rb,0.10325e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,11,13) = (/ &\n        & 0.11932e+04_rb,0.10470e+04_rb,0.90374e+03_rb,0.75316e+03_rb,0.61137e+03_rb, &\n        & 0.74625e+03_rb,0.88901e+03_rb,0.10319e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,11,13) = (/ &\n        & 0.11901e+04_rb,0.10395e+04_rb,0.89205e+03_rb,0.75483e+03_rb,0.60707e+03_rb, &\n        & 0.74529e+03_rb,0.88868e+03_rb,0.10313e+04_rb,0.11742e+04_rb /)\n      kao(:, 5,11,13) = (/ &\n        & 0.11740e+04_rb,0.10262e+04_rb,0.88782e+03_rb,0.74555e+03_rb,0.60321e+03_rb, &\n        & 0.74456e+03_rb,0.88735e+03_rb,0.10302e+04_rb,0.11727e+04_rb /)\n      kao(:, 1,12,13) = (/ &\n        & 0.11952e+04_rb,0.10387e+04_rb,0.90464e+03_rb,0.75031e+03_rb,0.60579e+03_rb, &\n        & 0.74809e+03_rb,0.88993e+03_rb,0.10330e+04_rb,0.11761e+04_rb /)\n      kao(:, 2,12,13) = (/ &\n        & 0.11767e+04_rb,0.10280e+04_rb,0.89305e+03_rb,0.74295e+03_rb,0.60520e+03_rb, &\n        & 0.74658e+03_rb,0.88930e+03_rb,0.10324e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,12,13) = (/ &\n        & 0.11638e+04_rb,0.10252e+04_rb,0.88200e+03_rb,0.74209e+03_rb,0.60448e+03_rb, &\n        & 0.74580e+03_rb,0.88883e+03_rb,0.10318e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,12,13) = (/ &\n        & 0.11608e+04_rb,0.10182e+04_rb,0.87717e+03_rb,0.73339e+03_rb,0.60384e+03_rb, &\n        & 0.74474e+03_rb,0.88834e+03_rb,0.10314e+04_rb,0.11742e+04_rb /)\n      kao(:, 5,12,13) = (/ &\n        & 0.11455e+04_rb,0.10085e+04_rb,0.86868e+03_rb,0.72782e+03_rb,0.60261e+03_rb, &\n        & 0.74417e+03_rb,0.88752e+03_rb,0.10299e+04_rb,0.11727e+04_rb /)\n      kao(:, 1,13,13) = (/ &\n        & 0.11538e+04_rb,0.10104e+04_rb,0.87836e+03_rb,0.74181e+03_rb,0.60545e+03_rb, &\n        & 0.74747e+03_rb,0.88975e+03_rb,0.10329e+04_rb,0.11763e+04_rb /)\n      kao(:, 2,13,13) = (/ &\n        & 0.11412e+04_rb,0.10013e+04_rb,0.88484e+03_rb,0.73153e+03_rb,0.60489e+03_rb, &\n        & 0.74629e+03_rb,0.88914e+03_rb,0.10323e+04_rb,0.11754e+04_rb /)\n      kao(:, 3,13,13) = (/ &\n        & 0.11370e+04_rb,0.10022e+04_rb,0.86246e+03_rb,0.73215e+03_rb,0.60419e+03_rb, &\n        & 0.74569e+03_rb,0.88867e+03_rb,0.10317e+04_rb,0.11747e+04_rb /)\n      kao(:, 4,13,13) = (/ &\n        & 0.11288e+04_rb,0.99109e+03_rb,0.86549e+03_rb,0.72280e+03_rb,0.60356e+03_rb, &\n        & 0.74480e+03_rb,0.88820e+03_rb,0.10312e+04_rb,0.11742e+04_rb /)\n      kao(:, 5,13,13) = (/ &\n        & 0.11445e+04_rb,0.99099e+03_rb,0.85129e+03_rb,0.71952e+03_rb,0.60234e+03_rb, &\n        & 0.74410e+03_rb,0.88705e+03_rb,0.10299e+04_rb,0.11727e+04_rb /)\n      kao(:, 1, 1,14) = (/ &\n        & 0.20185e+04_rb,0.18044e+04_rb,0.14758e+04_rb,0.13047e+04_rb,0.10029e+04_rb, &\n        & 0.77460e+03_rb,0.89226e+03_rb,0.10322e+04_rb,0.11721e+04_rb /)\n      kao(:, 2, 1,14) = (/ &\n        & 0.19173e+04_rb,0.17154e+04_rb,0.14467e+04_rb,0.12101e+04_rb,0.99594e+03_rb, &\n        & 0.75026e+03_rb,0.88974e+03_rb,0.10295e+04_rb,0.11713e+04_rb /)\n      kao(:, 3, 1,14) = (/ &\n        & 0.19468e+04_rb,0.16851e+04_rb,0.14136e+04_rb,0.12474e+04_rb,0.94959e+03_rb, &\n        & 0.74773e+03_rb,0.88696e+03_rb,0.10271e+04_rb,0.11663e+04_rb /)\n      kao(:, 4, 1,14) = (/ &\n        & 0.18423e+04_rb,0.16214e+04_rb,0.13991e+04_rb,0.11633e+04_rb,0.94698e+03_rb, &\n        & 0.74507e+03_rb,0.88457e+03_rb,0.10239e+04_rb,0.11632e+04_rb /)\n      kao(:, 5, 1,14) = (/ &\n        & 0.17538e+04_rb,0.16376e+04_rb,0.13645e+04_rb,0.11303e+04_rb,0.98877e+03_rb, &\n        & 0.74430e+03_rb,0.88372e+03_rb,0.10232e+04_rb,0.11626e+04_rb /)\n      kao(:, 1, 2,14) = (/ &\n        & 0.18551e+04_rb,0.16163e+04_rb,0.13640e+04_rb,0.12440e+04_rb,0.97095e+03_rb, &\n        & 0.75153e+03_rb,0.89202e+03_rb,0.10323e+04_rb,0.11731e+04_rb /)\n      kao(:, 2, 2,14) = (/ &\n        & 0.18136e+04_rb,0.16209e+04_rb,0.13887e+04_rb,0.11127e+04_rb,0.90845e+03_rb, &\n        & 0.74936e+03_rb,0.88974e+03_rb,0.10301e+04_rb,0.11702e+04_rb /)\n      kao(:, 3, 2,14) = (/ &\n        & 0.17918e+04_rb,0.15931e+04_rb,0.13282e+04_rb,0.11266e+04_rb,0.93052e+03_rb, &\n        & 0.74732e+03_rb,0.88725e+03_rb,0.10243e+04_rb,0.11672e+04_rb /)\n      kao(:, 4, 2,14) = (/ &\n        & 0.17507e+04_rb,0.14791e+04_rb,0.12865e+04_rb,0.10818e+04_rb,0.87901e+03_rb, &\n        & 0.74478e+03_rb,0.88467e+03_rb,0.10246e+04_rb,0.11645e+04_rb /)\n      kao(:, 5, 2,14) = (/ &\n        & 0.16872e+04_rb,0.14818e+04_rb,0.12871e+04_rb,0.10513e+04_rb,0.88744e+03_rb, &\n        & 0.74325e+03_rb,0.88337e+03_rb,0.10230e+04_rb,0.11625e+04_rb /)\n      kao(:, 1, 3,14) = (/ &\n        & 0.16919e+04_rb,0.15533e+04_rb,0.13337e+04_rb,0.10831e+04_rb,0.86308e+03_rb, &\n        & 0.75085e+03_rb,0.89217e+03_rb,0.10333e+04_rb,0.11744e+04_rb /)\n      kao(:, 2, 3,14) = (/ &\n        & 0.17034e+04_rb,0.15495e+04_rb,0.12643e+04_rb,0.11407e+04_rb,0.84365e+03_rb, &\n        & 0.74929e+03_rb,0.89025e+03_rb,0.10312e+04_rb,0.11722e+04_rb /)\n      kao(:, 3, 3,14) = (/ &\n        & 0.16844e+04_rb,0.14282e+04_rb,0.12585e+04_rb,0.10790e+04_rb,0.84114e+03_rb, &\n        & 0.74691e+03_rb,0.88785e+03_rb,0.10286e+04_rb,0.11700e+04_rb /)\n      kao(:, 4, 3,14) = (/ &\n        & 0.16791e+04_rb,0.14180e+04_rb,0.12209e+04_rb,0.10441e+04_rb,0.85899e+03_rb, &\n        & 0.74519e+03_rb,0.88544e+03_rb,0.10259e+04_rb,0.11667e+04_rb /)\n      kao(:, 5, 3,14) = (/ &\n        & 0.16063e+04_rb,0.13774e+04_rb,0.12181e+04_rb,0.10006e+04_rb,0.82020e+03_rb, &\n        & 0.74245e+03_rb,0.88287e+03_rb,0.10231e+04_rb,0.11633e+04_rb /)\n      kao(:, 1, 4,14) = (/ &\n        & 0.15960e+04_rb,0.13846e+04_rb,0.12078e+04_rb,0.10284e+04_rb,0.81079e+03_rb, &\n        & 0.75078e+03_rb,0.89233e+03_rb,0.10336e+04_rb,0.11751e+04_rb /)\n      kao(:, 2, 4,14) = (/ &\n        & 0.16237e+04_rb,0.13919e+04_rb,0.11906e+04_rb,0.10115e+04_rb,0.83009e+03_rb, &\n        & 0.74909e+03_rb,0.89076e+03_rb,0.10322e+04_rb,0.11737e+04_rb /)\n      kao(:, 3, 4,14) = (/ &\n        & 0.16136e+04_rb,0.13698e+04_rb,0.12046e+04_rb,0.98839e+03_rb,0.80997e+03_rb, &\n        & 0.74745e+03_rb,0.88871e+03_rb,0.10300e+04_rb,0.11712e+04_rb /)\n      kao(:, 4, 4,14) = (/ &\n        & 0.15739e+04_rb,0.13753e+04_rb,0.11394e+04_rb,0.97871e+03_rb,0.77029e+03_rb, &\n        & 0.74770e+03_rb,0.88627e+03_rb,0.10279e+04_rb,0.11682e+04_rb /)\n      kao(:, 5, 4,14) = (/ &\n        & 0.14863e+04_rb,0.13334e+04_rb,0.11445e+04_rb,0.95775e+03_rb,0.78998e+03_rb, &\n        & 0.74317e+03_rb,0.88387e+03_rb,0.10246e+04_rb,0.11653e+04_rb /)\n      kao(:, 1, 5,14) = (/ &\n        & 0.15101e+04_rb,0.14006e+04_rb,0.11513e+04_rb,0.96783e+03_rb,0.79581e+03_rb, &\n        & 0.75045e+03_rb,0.89239e+03_rb,0.10340e+04_rb,0.11759e+04_rb /)\n      kao(:, 2, 5,14) = (/ &\n        & 0.15461e+04_rb,0.13003e+04_rb,0.11685e+04_rb,0.92112e+03_rb,0.77517e+03_rb, &\n        & 0.74927e+03_rb,0.89114e+03_rb,0.10330e+04_rb,0.11749e+04_rb /)\n      kao(:, 3, 5,14) = (/ &\n        & 0.14676e+04_rb,0.12966e+04_rb,0.11042e+04_rb,0.93875e+03_rb,0.79645e+03_rb, &\n        & 0.74772e+03_rb,0.88943e+03_rb,0.10311e+04_rb,0.11729e+04_rb /)\n      kao(:, 4, 5,14) = (/ &\n        & 0.14571e+04_rb,0.12955e+04_rb,0.11734e+04_rb,0.89731e+03_rb,0.76986e+03_rb, &\n        & 0.74578e+03_rb,0.88723e+03_rb,0.10287e+04_rb,0.11702e+04_rb /)\n      kao(:, 5, 5,14) = (/ &\n        & 0.14311e+04_rb,0.13054e+04_rb,0.10738e+04_rb,0.10079e+04_rb,0.72704e+03_rb, &\n        & 0.74437e+03_rb,0.88461e+03_rb,0.10260e+04_rb,0.11675e+04_rb /)\n      kao(:, 1, 6,14) = (/ &\n        & 0.14715e+04_rb,0.12798e+04_rb,0.11182e+04_rb,0.92160e+03_rb,0.75379e+03_rb, &\n        & 0.75023e+03_rb,0.89251e+03_rb,0.10348e+04_rb,0.11771e+04_rb /)\n      kao(:, 2, 6,14) = (/ &\n        & 0.14479e+04_rb,0.12414e+04_rb,0.11222e+04_rb,0.91289e+03_rb,0.75013e+03_rb, &\n        & 0.74921e+03_rb,0.89141e+03_rb,0.10336e+04_rb,0.11758e+04_rb /)\n      kao(:, 3, 6,14) = (/ &\n        & 0.14270e+04_rb,0.12651e+04_rb,0.10793e+04_rb,0.91215e+03_rb,0.74649e+03_rb, &\n        & 0.74796e+03_rb,0.89005e+03_rb,0.10321e+04_rb,0.11739e+04_rb /)\n      kao(:, 4, 6,14) = (/ &\n        & 0.14058e+04_rb,0.12702e+04_rb,0.11005e+04_rb,0.93809e+03_rb,0.69854e+03_rb, &\n        & 0.74632e+03_rb,0.88820e+03_rb,0.10301e+04_rb,0.11720e+04_rb /)\n      kao(:, 5, 6,14) = (/ &\n        & 0.14048e+04_rb,0.12100e+04_rb,0.10413e+04_rb,0.84934e+03_rb,0.69794e+03_rb, &\n        & 0.74429e+03_rb,0.88588e+03_rb,0.10284e+04_rb,0.11701e+04_rb /)\n      kao(:, 1, 7,14) = (/ &\n        & 0.14325e+04_rb,0.12413e+04_rb,0.10595e+04_rb,0.88906e+03_rb,0.71717e+03_rb, &\n        & 0.75037e+03_rb,0.89273e+03_rb,0.10353e+04_rb,0.11779e+04_rb /)\n      kao(:, 2, 7,14) = (/ &\n        & 0.13620e+04_rb,0.12089e+04_rb,0.10598e+04_rb,0.89550e+03_rb,0.73134e+03_rb, &\n        & 0.74911e+03_rb,0.89161e+03_rb,0.10341e+04_rb,0.11766e+04_rb /)\n      kao(:, 3, 7,14) = (/ &\n        & 0.13346e+04_rb,0.12111e+04_rb,0.10262e+04_rb,0.84775e+03_rb,0.68161e+03_rb, &\n        & 0.74811e+03_rb,0.89050e+03_rb,0.10329e+04_rb,0.11753e+04_rb /)\n      kao(:, 4, 7,14) = (/ &\n        & 0.13132e+04_rb,0.11998e+04_rb,0.99757e+03_rb,0.86083e+03_rb,0.70251e+03_rb, &\n        & 0.74653e+03_rb,0.88899e+03_rb,0.10312e+04_rb,0.11735e+04_rb /)\n      kao(:, 5, 7,14) = (/ &\n        & 0.13232e+04_rb,0.11634e+04_rb,0.10230e+04_rb,0.84353e+03_rb,0.68339e+03_rb, &\n        & 0.74500e+03_rb,0.88698e+03_rb,0.10287e+04_rb,0.11709e+04_rb /)\n      kao(:, 1, 8,14) = (/ &\n        & 0.13366e+04_rb,0.11630e+04_rb,0.10188e+04_rb,0.86405e+03_rb,0.71800e+03_rb, &\n        & 0.75008e+03_rb,0.89285e+03_rb,0.10357e+04_rb,0.11785e+04_rb /)\n      kao(:, 2, 8,14) = (/ &\n        & 0.13647e+04_rb,0.11518e+04_rb,0.10110e+04_rb,0.84719e+03_rb,0.67819e+03_rb, &\n        & 0.74911e+03_rb,0.89187e+03_rb,0.10343e+04_rb,0.11777e+04_rb /)\n      kao(:, 3, 8,14) = (/ &\n        & 0.13128e+04_rb,0.11472e+04_rb,0.99038e+03_rb,0.82656e+03_rb,0.66483e+03_rb, &\n        & 0.74815e+03_rb,0.89080e+03_rb,0.10335e+04_rb,0.11761e+04_rb /)\n      kao(:, 4, 8,14) = (/ &\n        & 0.12817e+04_rb,0.11127e+04_rb,0.10092e+04_rb,0.82047e+03_rb,0.65442e+03_rb, &\n        & 0.74685e+03_rb,0.88933e+03_rb,0.10318e+04_rb,0.11746e+04_rb /)\n      kao(:, 5, 8,14) = (/ &\n        & 0.13162e+04_rb,0.11356e+04_rb,0.98305e+03_rb,0.84668e+03_rb,0.66544e+03_rb, &\n        & 0.74558e+03_rb,0.88790e+03_rb,0.10302e+04_rb,0.11725e+04_rb /)\n      kao(:, 1, 9,14) = (/ &\n        & 0.13174e+04_rb,0.11399e+04_rb,0.97696e+03_rb,0.84117e+03_rb,0.66145e+03_rb, &\n        & 0.75011e+03_rb,0.89307e+03_rb,0.10362e+04_rb,0.11789e+04_rb /)\n      kao(:, 2, 9,14) = (/ &\n        & 0.13196e+04_rb,0.11310e+04_rb,0.99094e+03_rb,0.80674e+03_rb,0.67265e+03_rb, &\n        & 0.74915e+03_rb,0.89213e+03_rb,0.10351e+04_rb,0.11781e+04_rb /)\n      kao(:, 3, 9,14) = (/ &\n        & 0.12950e+04_rb,0.10983e+04_rb,0.10229e+04_rb,0.86051e+03_rb,0.66007e+03_rb, &\n        & 0.74819e+03_rb,0.89107e+03_rb,0.10339e+04_rb,0.11768e+04_rb /)\n      kao(:, 4, 9,14) = (/ &\n        & 0.12605e+04_rb,0.10785e+04_rb,0.10061e+04_rb,0.79531e+03_rb,0.63414e+03_rb, &\n        & 0.74728e+03_rb,0.89004e+03_rb,0.10328e+04_rb,0.11756e+04_rb /)\n      kao(:, 5, 9,14) = (/ &\n        & 0.12553e+04_rb,0.10628e+04_rb,0.94908e+03_rb,0.82074e+03_rb,0.64983e+03_rb, &\n        & 0.74606e+03_rb,0.88866e+03_rb,0.10313e+04_rb,0.11739e+04_rb /)\n      kao(:, 1,10,14) = (/ &\n        & 0.13413e+04_rb,0.11632e+04_rb,0.10048e+04_rb,0.80476e+03_rb,0.65189e+03_rb, &\n        & 0.75022e+03_rb,0.89354e+03_rb,0.10369e+04_rb,0.11806e+04_rb /)\n      kao(:, 2,10,14) = (/ &\n        & 0.12838e+04_rb,0.11017e+04_rb,0.10173e+04_rb,0.85213e+03_rb,0.64367e+03_rb, &\n        & 0.74909e+03_rb,0.89223e+03_rb,0.10354e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,10,14) = (/ &\n        & 0.12657e+04_rb,0.11229e+04_rb,0.92134e+03_rb,0.80214e+03_rb,0.64195e+03_rb, &\n        & 0.74870e+03_rb,0.89159e+03_rb,0.10344e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,10,14) = (/ &\n        & 0.12310e+04_rb,0.10594e+04_rb,0.92792e+03_rb,0.78251e+03_rb,0.62401e+03_rb, &\n        & 0.74734e+03_rb,0.89003e+03_rb,0.10332e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,10,14) = (/ &\n        & 0.12088e+04_rb,0.10663e+04_rb,0.92275e+03_rb,0.77707e+03_rb,0.64354e+03_rb, &\n        & 0.74634e+03_rb,0.88914e+03_rb,0.10320e+04_rb,0.11748e+04_rb /)\n      kao(:, 1,11,14) = (/ &\n        & 0.12205e+04_rb,0.10982e+04_rb,0.93349e+03_rb,0.79899e+03_rb,0.64961e+03_rb, &\n        & 0.74981e+03_rb,0.89329e+03_rb,0.10368e+04_rb,0.11803e+04_rb /)\n      kao(:, 2,11,14) = (/ &\n        & 0.12266e+04_rb,0.10977e+04_rb,0.90836e+03_rb,0.76723e+03_rb,0.61851e+03_rb, &\n        & 0.74871e+03_rb,0.89199e+03_rb,0.10353e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,11,14) = (/ &\n        & 0.11876e+04_rb,0.10750e+04_rb,0.92258e+03_rb,0.76849e+03_rb,0.61349e+03_rb, &\n        & 0.74902e+03_rb,0.89163e+03_rb,0.10343e+04_rb,0.11775e+04_rb /)\n      kao(:, 4,11,14) = (/ &\n        & 0.12363e+04_rb,0.10327e+04_rb,0.91965e+03_rb,0.74736e+03_rb,0.60206e+03_rb, &\n        & 0.74703e+03_rb,0.88982e+03_rb,0.10331e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,11,14) = (/ &\n        & 0.11827e+04_rb,0.10266e+04_rb,0.89018e+03_rb,0.76668e+03_rb,0.60360e+03_rb, &\n        & 0.74604e+03_rb,0.88895e+03_rb,0.10316e+04_rb,0.11748e+04_rb /)\n      kao(:, 1,12,14) = (/ &\n        & 0.11808e+04_rb,0.10792e+04_rb,0.88334e+03_rb,0.76947e+03_rb,0.60663e+03_rb, &\n        & 0.74904e+03_rb,0.89307e+03_rb,0.10367e+04_rb,0.11803e+04_rb /)\n      kao(:, 2,12,14) = (/ &\n        & 0.12120e+04_rb,0.10402e+04_rb,0.92096e+03_rb,0.78880e+03_rb,0.60609e+03_rb, &\n        & 0.74841e+03_rb,0.89179e+03_rb,0.10352e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,12,14) = (/ &\n        & 0.12016e+04_rb,0.10899e+04_rb,0.90018e+03_rb,0.73017e+03_rb,0.60527e+03_rb, &\n        & 0.75028e+03_rb,0.89119e+03_rb,0.10342e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,12,14) = (/ &\n        & 0.11901e+04_rb,0.10101e+04_rb,0.88929e+03_rb,0.75342e+03_rb,0.60426e+03_rb, &\n        & 0.74677e+03_rb,0.88991e+03_rb,0.10327e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,12,14) = (/ &\n        & 0.12404e+04_rb,0.10285e+04_rb,0.87283e+03_rb,0.77029e+03_rb,0.60316e+03_rb, &\n        & 0.74579e+03_rb,0.88852e+03_rb,0.10318e+04_rb,0.11748e+04_rb /)\n      kao(:, 1,13,14) = (/ &\n        & 0.11819e+04_rb,0.10465e+04_rb,0.87588e+03_rb,0.72550e+03_rb,0.60649e+03_rb, &\n        & 0.74922e+03_rb,0.89289e+03_rb,0.10366e+04_rb,0.11799e+04_rb /)\n      kao(:, 2,13,14) = (/ &\n        & 0.11759e+04_rb,0.10245e+04_rb,0.86816e+03_rb,0.77411e+03_rb,0.60565e+03_rb, &\n        & 0.74816e+03_rb,0.89163e+03_rb,0.10351e+04_rb,0.11786e+04_rb /)\n      kao(:, 3,13,14) = (/ &\n        & 0.11354e+04_rb,0.10124e+04_rb,0.96299e+03_rb,0.72358e+03_rb,0.60486e+03_rb, &\n        & 0.74851e+03_rb,0.89156e+03_rb,0.10341e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,13,14) = (/ &\n        & 0.11811e+04_rb,0.10736e+04_rb,0.85638e+03_rb,0.74549e+03_rb,0.60366e+03_rb, &\n        & 0.74655e+03_rb,0.88977e+03_rb,0.10330e+04_rb,0.11762e+04_rb /)\n      kao(:, 5,13,14) = (/ &\n        & 0.11332e+04_rb,0.99282e+03_rb,0.87259e+03_rb,0.77082e+03_rb,0.60280e+03_rb, &\n        & 0.74559e+03_rb,0.88865e+03_rb,0.10317e+04_rb,0.11748e+04_rb /)\n      kao(:, 1, 1,15) = (/ &\n        & 0.19847e+04_rb,0.16615e+04_rb,0.16299e+04_rb,0.11466e+04_rb,0.10123e+04_rb, &\n        & 0.72871e+03_rb,0.89405e+03_rb,0.10334e+04_rb,0.11734e+04_rb /)\n      kao(:, 2, 1,15) = (/ &\n        & 0.18867e+04_rb,0.16470e+04_rb,0.14051e+04_rb,0.12848e+04_rb,0.91870e+03_rb, &\n        & 0.75104e+03_rb,0.89013e+03_rb,0.10307e+04_rb,0.11650e+04_rb /)\n      kao(:, 3, 1,15) = (/ &\n        & 0.17405e+04_rb,0.16240e+04_rb,0.14364e+04_rb,0.10773e+04_rb,0.10008e+04_rb, &\n        & 0.74790e+03_rb,0.89023e+03_rb,0.10382e+04_rb,0.11720e+04_rb /)\n      kao(:, 4, 1,15) = (/ &\n        & 0.19099e+04_rb,0.16930e+04_rb,0.14454e+04_rb,0.12410e+04_rb,0.95925e+03_rb, &\n        & 0.74605e+03_rb,0.88544e+03_rb,0.10248e+04_rb,0.11651e+04_rb /)\n      kao(:, 5, 1,15) = (/ &\n        & 0.19738e+04_rb,0.13892e+04_rb,0.14377e+04_rb,0.12129e+04_rb,0.77083e+03_rb, &\n        & 0.74496e+03_rb,0.88458e+03_rb,0.10242e+04_rb,0.11638e+04_rb /)\n      kao(:, 1, 2,15) = (/ &\n        & 0.18788e+04_rb,0.15414e+04_rb,0.14391e+04_rb,0.94831e+03_rb,0.88384e+03_rb, &\n        & 0.75320e+03_rb,0.89399e+03_rb,0.10340e+04_rb,0.11746e+04_rb /)\n      kao(:, 2, 2,15) = (/ &\n        & 0.16660e+04_rb,0.14507e+04_rb,0.12145e+04_rb,0.11753e+04_rb,0.91977e+03_rb, &\n        & 0.75003e+03_rb,0.89113e+03_rb,0.10308e+04_rb,0.11712e+04_rb /)\n      kao(:, 3, 2,15) = (/ &\n        & 0.15746e+04_rb,0.14551e+04_rb,0.13375e+04_rb,0.10698e+04_rb,0.76931e+03_rb, &\n        & 0.74657e+03_rb,0.88729e+03_rb,0.10267e+04_rb,0.11695e+04_rb /)\n      kao(:, 4, 2,15) = (/ &\n        & 0.16772e+04_rb,0.16415e+04_rb,0.13391e+04_rb,0.10287e+04_rb,0.88207e+03_rb, &\n        & 0.74593e+03_rb,0.88530e+03_rb,0.10252e+04_rb,0.11661e+04_rb /)\n      kao(:, 5, 2,15) = (/ &\n        & 0.16581e+04_rb,0.15452e+04_rb,0.12479e+04_rb,0.10067e+04_rb,0.83698e+03_rb, &\n        & 0.74419e+03_rb,0.88279e+03_rb,0.10234e+04_rb,0.11634e+04_rb /)\n      kao(:, 1, 3,15) = (/ &\n        & 0.17888e+04_rb,0.13395e+04_rb,0.12224e+04_rb,0.11479e+04_rb,0.91734e+03_rb, &\n        & 0.75291e+03_rb,0.89358e+03_rb,0.10348e+04_rb,0.11761e+04_rb /)\n      kao(:, 2, 3,15) = (/ &\n        & 0.16146e+04_rb,0.11805e+04_rb,0.12709e+04_rb,0.85911e+03_rb,0.90210e+03_rb, &\n        & 0.75028e+03_rb,0.89203e+03_rb,0.10324e+04_rb,0.11734e+04_rb /)\n      kao(:, 3, 3,15) = (/ &\n        & 0.14717e+04_rb,0.15353e+04_rb,0.12224e+04_rb,0.96001e+03_rb,0.77554e+03_rb, &\n        & 0.74753e+03_rb,0.88823e+03_rb,0.10297e+04_rb,0.11678e+04_rb /)\n      kao(:, 4, 3,15) = (/ &\n        & 0.15479e+04_rb,0.14535e+04_rb,0.11756e+04_rb,0.99609e+03_rb,0.71892e+03_rb, &\n        & 0.74634e+03_rb,0.88703e+03_rb,0.10366e+04_rb,0.11684e+04_rb /)\n      kao(:, 5, 3,15) = (/ &\n        & 0.15155e+04_rb,0.14515e+04_rb,0.11733e+04_rb,0.10638e+04_rb,0.80510e+03_rb, &\n        & 0.74461e+03_rb,0.88580e+03_rb,0.10240e+04_rb,0.11652e+04_rb /)\n      kao(:, 1, 4,15) = (/ &\n        & 0.15848e+04_rb,0.14083e+04_rb,0.12006e+04_rb,0.10439e+04_rb,0.81336e+03_rb, &\n        & 0.75201e+03_rb,0.89444e+03_rb,0.10363e+04_rb,0.11781e+04_rb /)\n      kao(:, 2, 4,15) = (/ &\n        & 0.13736e+04_rb,0.13760e+04_rb,0.12165e+04_rb,0.94289e+03_rb,0.75006e+03_rb, &\n        & 0.75167e+03_rb,0.89210e+03_rb,0.10337e+04_rb,0.11753e+04_rb /)\n      kao(:, 3, 4,15) = (/ &\n        & 0.14353e+04_rb,0.13702e+04_rb,0.10217e+04_rb,0.10119e+04_rb,0.72585e+03_rb, &\n        & 0.74883e+03_rb,0.88956e+03_rb,0.10325e+04_rb,0.11731e+04_rb /)\n      kao(:, 4, 4,15) = (/ &\n        & 0.14295e+04_rb,0.12548e+04_rb,0.12198e+04_rb,0.96945e+03_rb,0.84557e+03_rb, &\n        & 0.73846e+03_rb,0.88641e+03_rb,0.10258e+04_rb,0.11703e+04_rb /)\n      kao(:, 5, 4,15) = (/ &\n        & 0.15742e+04_rb,0.13268e+04_rb,0.10395e+04_rb,0.90301e+03_rb,0.67604e+03_rb, &\n        & 0.74473e+03_rb,0.88569e+03_rb,0.10266e+04_rb,0.11676e+04_rb /)\n      kao(:, 1, 5,15) = (/ &\n        & 0.15038e+04_rb,0.11787e+04_rb,0.11191e+04_rb,0.96573e+03_rb,0.74364e+03_rb, &\n        & 0.75161e+03_rb,0.89373e+03_rb,0.10358e+04_rb,0.11780e+04_rb /)\n      kao(:, 2, 5,15) = (/ &\n        & 0.12972e+04_rb,0.14157e+04_rb,0.10073e+04_rb,0.10120e+04_rb,0.78829e+03_rb, &\n        & 0.75051e+03_rb,0.89254e+03_rb,0.10346e+04_rb,0.11785e+04_rb /)\n      kao(:, 3, 5,15) = (/ &\n        & 0.15562e+04_rb,0.12980e+04_rb,0.11053e+04_rb,0.96784e+03_rb,0.68156e+03_rb, &\n        & 0.74938e+03_rb,0.89063e+03_rb,0.10325e+04_rb,0.11743e+04_rb /)\n      kao(:, 4, 5,15) = (/ &\n        & 0.15203e+04_rb,0.12953e+04_rb,0.96757e+03_rb,0.95061e+03_rb,0.68480e+03_rb, &\n        & 0.74750e+03_rb,0.88780e+03_rb,0.10293e+04_rb,0.11708e+04_rb /)\n      kao(:, 5, 5,15) = (/ &\n        & 0.14730e+04_rb,0.11456e+04_rb,0.11151e+04_rb,0.68408e+03_rb,0.76176e+03_rb, &\n        & 0.75307e+03_rb,0.89322e+03_rb,0.10317e+04_rb,0.11682e+04_rb /)\n      kao(:, 1, 6,15) = (/ &\n        & 0.15240e+04_rb,0.12794e+04_rb,0.10826e+04_rb,0.93131e+03_rb,0.69525e+03_rb, &\n        & 0.75122e+03_rb,0.89364e+03_rb,0.10361e+04_rb,0.11785e+04_rb /)\n      kao(:, 2, 6,15) = (/ &\n        & 0.13735e+04_rb,0.12837e+04_rb,0.10725e+04_rb,0.91616e+03_rb,0.69548e+03_rb, &\n        & 0.75041e+03_rb,0.89279e+03_rb,0.10360e+04_rb,0.11776e+04_rb /)\n      kao(:, 3, 6,15) = (/ &\n        & 0.14287e+04_rb,0.11366e+04_rb,0.10240e+04_rb,0.87529e+03_rb,0.70795e+03_rb, &\n        & 0.75034e+03_rb,0.89142e+03_rb,0.10337e+04_rb,0.11759e+04_rb /)\n      kao(:, 4, 6,15) = (/ &\n        & 0.12768e+04_rb,0.11078e+04_rb,0.98805e+03_rb,0.76254e+03_rb,0.77383e+03_rb, &\n        & 0.74782e+03_rb,0.88921e+03_rb,0.10312e+04_rb,0.11732e+04_rb /)\n      kao(:, 5, 6,15) = (/ &\n        & 0.13045e+04_rb,0.12087e+04_rb,0.10585e+04_rb,0.89185e+03_rb,0.69378e+03_rb, &\n        & 0.74461e+03_rb,0.88618e+03_rb,0.10253e+04_rb,0.11684e+04_rb /)\n      kao(:, 1, 7,15) = (/ &\n        & 0.13068e+04_rb,0.11778e+04_rb,0.10485e+04_rb,0.87245e+03_rb,0.70237e+03_rb, &\n        & 0.75029e+03_rb,0.89358e+03_rb,0.10363e+04_rb,0.11790e+04_rb /)\n      kao(:, 2, 7,15) = (/ &\n        & 0.13988e+04_rb,0.11525e+04_rb,0.98924e+03_rb,0.83779e+03_rb,0.64617e+03_rb, &\n        & 0.75022e+03_rb,0.89357e+03_rb,0.10355e+04_rb,0.11782e+04_rb /)\n      kao(:, 3, 7,15) = (/ &\n        & 0.14294e+04_rb,0.11695e+04_rb,0.10182e+04_rb,0.91196e+03_rb,0.69696e+03_rb, &\n        & 0.74932e+03_rb,0.89330e+03_rb,0.10353e+04_rb,0.11780e+04_rb /)\n      kao(:, 4, 7,15) = (/ &\n        & 0.14082e+04_rb,0.10640e+04_rb,0.10540e+04_rb,0.79295e+03_rb,0.62688e+03_rb, &\n        & 0.74789e+03_rb,0.89097e+03_rb,0.10327e+04_rb,0.11750e+04_rb /)\n      kao(:, 5, 7,15) = (/ &\n        & 0.13514e+04_rb,0.12038e+04_rb,0.10012e+04_rb,0.83544e+03_rb,0.67927e+03_rb, &\n        & 0.74629e+03_rb,0.88843e+03_rb,0.10298e+04_rb,0.11718e+04_rb /)\n      kao(:, 1, 8,15) = (/ &\n        & 0.14761e+04_rb,0.12412e+04_rb,0.10429e+04_rb,0.84370e+03_rb,0.62388e+03_rb, &\n        & 0.75133e+03_rb,0.89371e+03_rb,0.10367e+04_rb,0.11796e+04_rb /)\n      kao(:, 2, 8,15) = (/ &\n        & 0.12119e+04_rb,0.11409e+04_rb,0.10121e+04_rb,0.85755e+03_rb,0.70976e+03_rb, &\n        & 0.74998e+03_rb,0.89216e+03_rb,0.10357e+04_rb,0.11786e+04_rb /)\n      kao(:, 3, 8,15) = (/ &\n        & 0.12581e+04_rb,0.11663e+04_rb,0.10198e+04_rb,0.88649e+03_rb,0.69509e+03_rb, &\n        & 0.74932e+03_rb,0.89355e+03_rb,0.10350e+04_rb,0.11787e+04_rb /)\n      kao(:, 4, 8,15) = (/ &\n        & 0.12478e+04_rb,0.12066e+04_rb,0.87201e+03_rb,0.84155e+03_rb,0.70223e+03_rb, &\n        & 0.74886e+03_rb,0.89098e+03_rb,0.10337e+04_rb,0.11764e+04_rb /)\n      kao(:, 5, 8,15) = (/ &\n        & 0.12322e+04_rb,0.11048e+04_rb,0.93070e+03_rb,0.68296e+03_rb,0.66022e+03_rb, &\n        & 0.74776e+03_rb,0.88972e+03_rb,0.10315e+04_rb,0.11748e+04_rb /)\n      kao(:, 1, 9,15) = (/ &\n        & 0.13164e+04_rb,0.12093e+04_rb,0.10729e+04_rb,0.80022e+03_rb,0.68605e+03_rb, &\n        & 0.75075e+03_rb,0.89396e+03_rb,0.10372e+04_rb,0.11804e+04_rb /)\n      kao(:, 2, 9,15) = (/ &\n        & 0.12738e+04_rb,0.11851e+04_rb,0.88381e+03_rb,0.85846e+03_rb,0.65813e+03_rb, &\n        & 0.74985e+03_rb,0.89295e+03_rb,0.10369e+04_rb,0.11792e+04_rb /)\n      kao(:, 3, 9,15) = (/ &\n        & 0.12657e+04_rb,0.12031e+04_rb,0.79849e+03_rb,0.64636e+03_rb,0.60824e+03_rb, &\n        & 0.74924e+03_rb,0.89227e+03_rb,0.10353e+04_rb,0.11783e+04_rb /)\n      kao(:, 4, 9,15) = (/ &\n        & 0.12866e+04_rb,0.11531e+04_rb,0.85958e+03_rb,0.76890e+03_rb,0.66204e+03_rb, &\n        & 0.74965e+03_rb,0.89143e+03_rb,0.10344e+04_rb,0.11773e+04_rb /)\n      kao(:, 5, 9,15) = (/ &\n        & 0.11604e+04_rb,0.11730e+04_rb,0.87009e+03_rb,0.73148e+03_rb,0.58106e+03_rb, &\n        & 0.74723e+03_rb,0.88998e+03_rb,0.10327e+04_rb,0.11755e+04_rb /)\n      kao(:, 1,10,15) = (/ &\n        & 0.11188e+04_rb,0.99215e+03_rb,0.73460e+03_rb,0.83046e+03_rb,0.68844e+03_rb, &\n        & 0.75085e+03_rb,0.89429e+03_rb,0.10377e+04_rb,0.11803e+04_rb /)\n      kao(:, 2,10,15) = (/ &\n        & 0.12059e+04_rb,0.10804e+04_rb,0.70761e+03_rb,0.65712e+03_rb,0.66535e+03_rb, &\n        & 0.74980e+03_rb,0.89311e+03_rb,0.10364e+04_rb,0.11807e+04_rb /)\n      kao(:, 3,10,15) = (/ &\n        & 0.11817e+04_rb,0.10195e+04_rb,0.95365e+03_rb,0.71601e+03_rb,0.59959e+03_rb, &\n        & 0.74791e+03_rb,0.89228e+03_rb,0.10355e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,10,15) = (/ &\n        & 0.11350e+04_rb,0.11533e+04_rb,0.91058e+03_rb,0.81845e+03_rb,0.64874e+03_rb, &\n        & 0.74908e+03_rb,0.89233e+03_rb,0.10356e+04_rb,0.11779e+04_rb /)\n      kao(:, 5,10,15) = (/ &\n        & 0.12000e+04_rb,0.10896e+04_rb,0.93671e+03_rb,0.81314e+03_rb,0.60750e+03_rb, &\n        & 0.74754e+03_rb,0.89053e+03_rb,0.10335e+04_rb,0.11765e+04_rb /)\n      kao(:, 1,11,15) = (/ &\n        & 0.12887e+04_rb,0.10795e+04_rb,0.92507e+03_rb,0.76020e+03_rb,0.61621e+03_rb, &\n        & 0.75046e+03_rb,0.89404e+03_rb,0.10376e+04_rb,0.11812e+04_rb /)\n      kao(:, 2,11,15) = (/ &\n        & 0.11864e+04_rb,0.99352e+03_rb,0.96688e+03_rb,0.81999e+03_rb,0.65449e+03_rb, &\n        & 0.74944e+03_rb,0.89287e+03_rb,0.10363e+04_rb,0.11797e+04_rb /)\n      kao(:, 3,11,15) = (/ &\n        & 0.11946e+04_rb,0.10069e+04_rb,0.91904e+03_rb,0.81170e+03_rb,0.65606e+03_rb, &\n        & 0.74582e+03_rb,0.89066e+03_rb,0.10354e+04_rb,0.11787e+04_rb /)\n      kao(:, 4,11,15) = (/ &\n        & 0.10269e+04_rb,0.10463e+04_rb,0.82697e+03_rb,0.81731e+03_rb,0.61185e+03_rb, &\n        & 0.74876e+03_rb,0.89142e+03_rb,0.10347e+04_rb,0.11779e+04_rb /)\n      kao(:, 5,11,15) = (/ &\n        & 0.11483e+04_rb,0.10490e+04_rb,0.91718e+03_rb,0.72295e+03_rb,0.60510e+03_rb, &\n        & 0.74783e+03_rb,0.89173e+03_rb,0.10334e+04_rb,0.11765e+04_rb /)\n      kao(:, 1,12,15) = (/ &\n        & 0.12157e+04_rb,0.94948e+03_rb,0.89441e+03_rb,0.76380e+03_rb,0.60866e+03_rb, &\n        & 0.75013e+03_rb,0.89382e+03_rb,0.10375e+04_rb,0.11812e+04_rb /)\n      kao(:, 2,12,15) = (/ &\n        & 0.10470e+04_rb,0.10059e+04_rb,0.83704e+03_rb,0.70161e+03_rb,0.60721e+03_rb, &\n        & 0.74914e+03_rb,0.89267e+03_rb,0.10370e+04_rb,0.11807e+04_rb /)\n      kao(:, 3,12,15) = (/ &\n        & 0.10541e+04_rb,0.86865e+03_rb,0.86614e+03_rb,0.79420e+03_rb,0.60576e+03_rb, &\n        & 0.74144e+03_rb,0.89117e+03_rb,0.10353e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,12,15) = (/ &\n        & 0.11152e+04_rb,0.10946e+04_rb,0.91200e+03_rb,0.75719e+03_rb,0.60459e+03_rb, &\n        & 0.74791e+03_rb,0.89124e+03_rb,0.10346e+04_rb,0.11788e+04_rb /)\n      kao(:, 5,12,15) = (/ &\n        & 0.10232e+04_rb,0.97767e+03_rb,0.95862e+03_rb,0.62268e+03_rb,0.60382e+03_rb, &\n        & 0.74758e+03_rb,0.88947e+03_rb,0.10333e+04_rb,0.11765e+04_rb /)\n      kao(:, 1,13,15) = (/ &\n        & 0.11027e+04_rb,0.93786e+03_rb,0.84040e+03_rb,0.77686e+03_rb,0.60858e+03_rb, &\n        & 0.74987e+03_rb,0.89364e+03_rb,0.10374e+04_rb,0.11812e+04_rb /)\n      kao(:, 2,13,15) = (/ &\n        & 0.10816e+04_rb,0.10747e+04_rb,0.88690e+03_rb,0.66213e+03_rb,0.60670e+03_rb, &\n        & 0.74889e+03_rb,0.89251e+03_rb,0.10369e+04_rb,0.11797e+04_rb /)\n      kao(:, 3,13,15) = (/ &\n        & 0.11963e+04_rb,0.98701e+03_rb,0.69767e+03_rb,0.73646e+03_rb,0.60528e+03_rb, &\n        & 0.74531e+03_rb,0.88962e+03_rb,0.10352e+04_rb,0.11778e+04_rb /)\n      kao(:, 4,13,15) = (/ &\n        & 0.10530e+04_rb,0.78530e+03_rb,0.91477e+03_rb,0.71026e+03_rb,0.60430e+03_rb, &\n        & 0.74770e+03_rb,0.89110e+03_rb,0.10345e+04_rb,0.11779e+04_rb /)\n      kao(:, 5,13,15) = (/ &\n        & 0.11409e+04_rb,0.10574e+04_rb,0.83207e+03_rb,0.61034e+03_rb,0.60355e+03_rb, &\n        & 0.74679e+03_rb,0.89073e+03_rb,0.10333e+04_rb,0.11765e+04_rb /)\n      kao(:, 1, 1,16) = (/ &\n        & 0.34848e+03_rb,0.49670e+03_rb,0.29569e+03_rb,0.31627e+03_rb,0.46514e+03_rb, &\n        & 0.42834e+03_rb,0.88848e+03_rb,0.10335e+04_rb,0.11735e+04_rb /)\n      kao(:, 2, 1,16) = (/ &\n        & 0.18044e+04_rb,0.87518e+03_rb,0.11930e+04_rb,0.45580e+03_rb,0.83690e+03_rb, &\n        & 0.74631e+03_rb,0.89022e+03_rb,0.10242e+04_rb,0.11632e+04_rb /)\n      kao(:, 3, 1,16) = (/ &\n        & 0.11196e+04_rb,0.73658e+03_rb,0.10480e+04_rb,0.53695e+03_rb,0.39566e+03_rb, &\n        & 0.74377e+03_rb,0.86775e+03_rb,0.94144e+03_rb,0.11277e+04_rb /)\n      kao(:, 4, 1,16) = (/ &\n        & 0.72013e+03_rb,0.40040e+03_rb,0.39030e+03_rb,0.31401e+03_rb,0.31498e+03_rb, &\n        & 0.74613e+03_rb,0.88553e+03_rb,0.10249e+04_rb,0.11579e+04_rb /)\n      kao(:, 5, 1,16) = (/ &\n        & 0.34789e+03_rb,0.14911e+04_rb,0.33003e+03_rb,0.29522e+03_rb,0.31385e+03_rb, &\n        & 0.74516e+03_rb,0.88480e+03_rb,0.10244e+04_rb,0.11641e+04_rb /)\n      kao(:, 1, 2,16) = (/ &\n        & 0.41247e+03_rb,0.81197e+03_rb,0.68322e+03_rb,0.50855e+03_rb,0.24076e+03_rb, &\n        & 0.74851e+03_rb,0.88842e+03_rb,0.10341e+04_rb,0.11748e+04_rb /)\n      kao(:, 2, 2,16) = (/ &\n        & 0.16209e+04_rb,0.56884e+03_rb,0.94156e+03_rb,0.29182e+03_rb,0.46039e+03_rb, &\n        & 0.75011e+03_rb,0.88557e+03_rb,0.10309e+04_rb,0.11714e+04_rb /)\n      kao(:, 3, 2,16) = (/ &\n        & 0.11534e+04_rb,0.51443e+03_rb,0.23941e+03_rb,0.44358e+03_rb,0.58779e+03_rb, &\n        & 0.74720e+03_rb,0.88237e+03_rb,0.10275e+04_rb,0.11547e+04_rb /)\n      kao(:, 4, 2,16) = (/ &\n        & 0.78193e+03_rb,0.30585e+03_rb,0.42670e+03_rb,0.10365e+04_rb,0.43225e+03_rb, &\n        & 0.74126e+03_rb,0.88535e+03_rb,0.10253e+04_rb,0.11588e+04_rb /)\n      kao(:, 5, 2,16) = (/ &\n        & 0.67509e+03_rb,0.40574e+03_rb,0.57252e+03_rb,0.10353e+04_rb,0.15564e+03_rb, &\n        & 0.73954e+03_rb,0.88360e+03_rb,0.10236e+04_rb,0.11636e+04_rb /)\n      kao(:, 1, 3,16) = (/ &\n        & 0.91257e+03_rb,0.11144e+04_rb,0.54685e+03_rb,0.19037e+03_rb,0.25900e+03_rb, &\n        & 0.74823e+03_rb,0.89369e+03_rb,0.10350e+04_rb,0.11762e+04_rb /)\n      kao(:, 2, 3,16) = (/ &\n        & 0.67162e+03_rb,0.10092e+04_rb,0.40983e+03_rb,0.37826e+03_rb,0.42702e+03_rb, &\n        & 0.75035e+03_rb,0.88647e+03_rb,0.10325e+04_rb,0.11736e+04_rb /)\n      kao(:, 3, 3,16) = (/ &\n        & 0.94657e+03_rb,0.26107e+03_rb,0.43567e+03_rb,0.41065e+03_rb,0.70838e+03_rb, &\n        & 0.74760e+03_rb,0.88832e+03_rb,0.10233e+04_rb,0.11698e+04_rb /)\n      kao(:, 4, 3,16) = (/ &\n        & 0.10618e+03_rb,0.45040e+03_rb,0.10291e+04_rb,0.30237e+03_rb,0.57813e+03_rb, &\n        & 0.73277e+03_rb,0.87582e+03_rb,0.95203e+03_rb,0.11472e+04_rb /)\n      kao(:, 5, 3,16) = (/ &\n        & 0.96551e+03_rb,0.68706e+03_rb,0.56500e+03_rb,0.14865e+03_rb,0.35532e+03_rb, &\n        & 0.73527e+03_rb,0.86908e+03_rb,0.10241e+04_rb,0.11579e+04_rb /)\n      kao(:, 1, 4,16) = (/ &\n        & 0.13211e+04_rb,0.11050e+04_rb,0.91067e+03_rb,0.34788e+03_rb,0.76485e+03_rb, &\n        & 0.75213e+03_rb,0.88892e+03_rb,0.10299e+04_rb,0.11709e+04_rb /)\n      kao(:, 2, 4,16) = (/ &\n        & 0.15543e+04_rb,0.92211e+03_rb,0.72798e+03_rb,0.86839e+03_rb,0.36802e+03_rb, &\n        & 0.74223e+03_rb,0.89219e+03_rb,0.10338e+04_rb,0.11754e+04_rb /)\n      kao(:, 3, 4,16) = (/ &\n        & 0.53676e+03_rb,0.46363e+03_rb,0.10941e+04_rb,0.19958e+03_rb,0.68767e+03_rb, &\n        & 0.74416e+03_rb,0.88965e+03_rb,0.10195e+04_rb,0.11658e+04_rb /)\n      kao(:, 4, 4,16) = (/ &\n        & 0.66992e+03_rb,0.61007e+03_rb,0.50612e+03_rb,0.34999e+03_rb,0.19685e+03_rb, &\n        & 0.74139e+03_rb,0.88155e+03_rb,0.10274e+04_rb,0.11555e+04_rb /)\n      kao(:, 5, 4,16) = (/ &\n        & 0.55226e+03_rb,0.42689e+03_rb,0.10712e+04_rb,0.69959e+03_rb,0.69105e+03_rb, &\n        & 0.73534e+03_rb,0.87452e+03_rb,0.10137e+04_rb,0.11529e+04_rb /)\n      kao(:, 1, 5,16) = (/ &\n        & 0.11854e+04_rb,0.90025e+03_rb,0.10734e+04_rb,0.36732e+03_rb,0.51551e+03_rb, &\n        & 0.75181e+03_rb,0.89397e+03_rb,0.10361e+04_rb,0.11783e+04_rb /)\n      kao(:, 2, 5,16) = (/ &\n        & 0.13933e+04_rb,0.23882e+03_rb,0.71015e+03_rb,0.29765e+03_rb,0.88507e+02_rb, &\n        & 0.75060e+03_rb,0.89266e+03_rb,0.10347e+04_rb,0.11637e+04_rb /)\n      kao(:, 3, 5,16) = (/ &\n        & 0.30783e+03_rb,0.72533e+03_rb,0.99782e+03_rb,0.22581e+03_rb,0.21957e+03_rb, &\n        & 0.74471e+03_rb,0.89072e+03_rb,0.10326e+04_rb,0.11744e+04_rb /)\n      kao(:, 4, 5,16) = (/ &\n        & 0.12756e+03_rb,0.23797e+03_rb,0.16871e+03_rb,0.60625e+03_rb,0.35893e+03_rb, &\n        & 0.73811e+03_rb,0.88789e+03_rb,0.10294e+04_rb,0.11709e+04_rb /)\n      kao(:, 5, 5,16) = (/ &\n        & 0.67577e+03_rb,0.67606e+03_rb,0.57612e+03_rb,0.15439e+03_rb,0.22922e+03_rb, &\n        & 0.66526e+03_rb,0.82593e+03_rb,0.98621e+03_rb,0.11543e+04_rb /)\n      kao(:, 1, 6,16) = (/ &\n        & 0.35294e+03_rb,0.92951e+03_rb,0.39404e+03_rb,0.59466e+03_rb,0.46365e+03_rb, &\n        & 0.75155e+03_rb,0.89403e+03_rb,0.10365e+04_rb,0.11790e+04_rb /)\n      kao(:, 2, 6,16) = (/ &\n        & 0.83494e+03_rb,0.91972e+03_rb,0.83351e+02_rb,0.26459e+03_rb,0.33053e+03_rb, &\n        & 0.75056e+03_rb,0.89298e+03_rb,0.10296e+04_rb,0.11778e+04_rb /)\n      kao(:, 3, 6,16) = (/ &\n        & 0.77495e+02_rb,0.67358e+03_rb,0.71470e+03_rb,0.28985e+03_rb,0.12695e+03_rb, &\n        & 0.74093e+03_rb,0.89153e+03_rb,0.10338e+04_rb,0.11761e+04_rb /)\n      kao(:, 4, 6,16) = (/ &\n        & 0.12524e+04_rb,0.52300e+03_rb,0.17321e+03_rb,0.31958e+03_rb,0.15643e+03_rb, &\n        & 0.74316e+03_rb,0.88930e+03_rb,0.10313e+04_rb,0.11733e+04_rb /)\n      kao(:, 5, 6,16) = (/ &\n        & 0.79880e+03_rb,0.54259e+03_rb,0.31909e+03_rb,0.47791e+03_rb,0.45938e+03_rb, &\n        & 0.74468e+03_rb,0.88626e+03_rb,0.10278e+04_rb,0.11499e+04_rb /)\n      kao(:, 1, 7,16) = (/ &\n        & 0.10078e+04_rb,0.83081e+03_rb,0.68047e+03_rb,0.68284e+03_rb,0.57904e+03_rb, &\n        & 0.75128e+03_rb,0.89403e+03_rb,0.10368e+04_rb,0.11795e+04_rb /)\n      kao(:, 2, 7,16) = (/ &\n        & 0.67323e+03_rb,0.10228e+04_rb,0.49758e+03_rb,0.33578e+03_rb,0.38746e+03_rb, &\n        & 0.75047e+03_rb,0.88822e+03_rb,0.10359e+04_rb,0.11786e+04_rb /)\n      kao(:, 3, 7,16) = (/ &\n        & 0.60358e+03_rb,0.41876e+03_rb,0.74942e+03_rb,0.38757e+03_rb,0.61092e+03_rb, &\n        & 0.74943e+03_rb,0.88213e+03_rb,0.10289e+04_rb,0.11707e+04_rb /)\n      kao(:, 4, 7,16) = (/ &\n        & 0.69109e+03_rb,0.11040e+04_rb,0.46705e+03_rb,0.74628e+03_rb,0.47483e+03_rb, &\n        & 0.74797e+03_rb,0.88542e+03_rb,0.10328e+04_rb,0.11752e+04_rb /)\n      kao(:, 5, 7,16) = (/ &\n        & 0.68277e+03_rb,0.46564e+03_rb,0.19228e+03_rb,0.48854e+03_rb,0.28304e+03_rb, &\n        & 0.74163e+03_rb,0.88289e+03_rb,0.10299e+04_rb,0.11719e+04_rb /)\n      kao(:, 1, 8,16) = (/ &\n        & 0.26685e+03_rb,0.60532e+03_rb,0.51009e+03_rb,0.40907e+03_rb,0.39126e+03_rb, &\n        & 0.74682e+03_rb,0.89396e+03_rb,0.10369e+04_rb,0.11799e+04_rb /)\n      kao(:, 2, 8,16) = (/ &\n        & 0.94869e+03_rb,0.11471e+04_rb,0.44706e+03_rb,0.23151e+03_rb,0.93532e+02_rb, &\n        & 0.75035e+03_rb,0.89331e+03_rb,0.10363e+04_rb,0.11727e+04_rb /)\n      kao(:, 3, 8,16) = (/ &\n        & 0.11588e+04_rb,0.74588e+03_rb,0.28311e+03_rb,0.27864e+03_rb,0.32853e+03_rb, &\n        & 0.74950e+03_rb,0.88246e+03_rb,0.10352e+04_rb,0.11716e+04_rb /)\n      kao(:, 4, 8,16) = (/ &\n        & 0.11874e+04_rb,0.47456e+03_rb,0.83368e+03_rb,0.31591e+03_rb,0.30274e+03_rb, &\n        & 0.74421e+03_rb,0.89109e+03_rb,0.10338e+04_rb,0.11765e+04_rb /)\n      kao(:, 5, 8,16) = (/ &\n        & 0.45710e+03_rb,0.66086e+03_rb,0.55863e+03_rb,0.58037e+03_rb,0.20569e+03_rb, &\n        & 0.73836e+03_rb,0.88417e+03_rb,0.10316e+04_rb,0.11675e+04_rb /)\n      kao(:, 1, 9,16) = (/ &\n        & 0.55233e+03_rb,0.18269e+03_rb,0.18991e+03_rb,0.35964e+03_rb,0.38998e+03_rb, &\n        & 0.75089e+03_rb,0.89415e+03_rb,0.10374e+04_rb,0.11807e+04_rb /)\n      kao(:, 2, 9,16) = (/ &\n        & 0.31819e+03_rb,0.14904e+03_rb,0.79703e+03_rb,0.32317e+03_rb,0.20679e+03_rb, &\n        & 0.75021e+03_rb,0.89337e+03_rb,0.10308e+04_rb,0.11797e+04_rb /)\n      kao(:, 3, 9,16) = (/ &\n        & 0.16059e+03_rb,0.37409e+03_rb,0.62337e+03_rb,0.62951e+03_rb,0.47662e+03_rb, &\n        & 0.74953e+03_rb,0.89262e+03_rb,0.10357e+04_rb,0.11788e+04_rb /)\n      kao(:, 4, 9,16) = (/ &\n        & 0.15191e+03_rb,0.63681e+03_rb,0.25601e+03_rb,0.65772e+03_rb,0.38994e+03_rb, &\n        & 0.74029e+03_rb,0.89158e+03_rb,0.10346e+04_rb,0.11775e+04_rb /)\n      kao(:, 5, 9,16) = (/ &\n        & 0.10392e+04_rb,0.33629e+03_rb,0.90538e+03_rb,0.33435e+03_rb,0.46694e+03_rb, &\n        & 0.74731e+03_rb,0.89008e+03_rb,0.10329e+04_rb,0.11756e+04_rb /)\n      kao(:, 1,10,16) = (/ &\n        & 0.43161e+03_rb,0.53194e+03_rb,0.82168e+03_rb,0.11050e+03_rb,0.32159e+02_rb, &\n        & 0.75101e+03_rb,0.89450e+03_rb,0.10380e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,10,16) = (/ &\n        & 0.23362e+03_rb,0.50697e+03_rb,0.75913e+03_rb,0.37965e+03_rb,0.15877e+03_rb, &\n        & 0.75002e+03_rb,0.89333e+03_rb,0.10366e+04_rb,0.11734e+04_rb /)\n      kao(:, 3,10,16) = (/ &\n        & 0.66577e+03_rb,0.22676e+03_rb,0.63752e+03_rb,0.50488e+03_rb,0.52339e+03_rb, &\n        & 0.74947e+03_rb,0.88778e+03_rb,0.10360e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,10,16) = (/ &\n        & 0.12040e+04_rb,0.37222e+03_rb,0.71269e+03_rb,0.68368e+02_rb,0.31445e+03_rb, &\n        & 0.74453e+03_rb,0.88691e+03_rb,0.10293e+04_rb,0.11782e+04_rb /)\n      kao(:, 5,10,16) = (/ &\n        & 0.85334e+03_rb,0.50951e+03_rb,0.43397e+03_rb,0.11861e+03_rb,0.15074e+03_rb, &\n        & 0.74764e+03_rb,0.89065e+03_rb,0.10337e+04_rb,0.11767e+04_rb /)\n      kao(:, 1,11,16) = (/ &\n        & 0.45853e+03_rb,0.29024e+03_rb,0.38275e+03_rb,0.26130e+03_rb,0.12124e+03_rb, &\n        & 0.75062e+03_rb,0.89424e+03_rb,0.10379e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,11,16) = (/ &\n        & 0.66691e+03_rb,0.55656e+03_rb,0.39879e+03_rb,0.16526e+03_rb,0.24675e+03_rb, &\n        & 0.74965e+03_rb,0.89309e+03_rb,0.10365e+04_rb,0.11800e+04_rb /)\n      kao(:, 3,11,16) = (/ &\n        & 0.10239e+04_rb,0.60930e+03_rb,0.22001e+03_rb,0.10914e+03_rb,0.22748e+03_rb, &\n        & 0.74913e+03_rb,0.89251e+03_rb,0.10359e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,11,16) = (/ &\n        & 0.80567e+03_rb,0.90344e+03_rb,0.77356e+03_rb,0.12489e+03_rb,0.55902e+03_rb, &\n        & 0.74421e+03_rb,0.89165e+03_rb,0.10349e+04_rb,0.11782e+04_rb /)\n      kao(:, 5,11,16) = (/ &\n        & 0.80619e+03_rb,0.87963e+03_rb,0.47254e+03_rb,0.39261e+03_rb,0.59752e+03_rb, &\n        & 0.74319e+03_rb,0.88056e+03_rb,0.10336e+04_rb,0.11767e+04_rb /)\n      kao(:, 1,12,16) = (/ &\n        & 0.54479e+03_rb,0.73809e+03_rb,0.74534e+03_rb,0.30870e+03_rb,0.60893e+03_rb, &\n        & 0.75030e+03_rb,0.89402e+03_rb,0.10378e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,12,16) = (/ &\n        & 0.10600e+04_rb,0.76559e+03_rb,0.34957e+03_rb,0.18602e+03_rb,0.60736e+03_rb, &\n        & 0.74935e+03_rb,0.89289e+03_rb,0.10307e+04_rb,0.11734e+04_rb /)\n      kao(:, 3,12,16) = (/ &\n        & 0.10515e+04_rb,0.60079e+03_rb,0.43472e+03_rb,0.33220e+03_rb,0.60582e+03_rb, &\n        & 0.74885e+03_rb,0.89233e+03_rb,0.10358e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,12,16) = (/ &\n        & 0.32670e+03_rb,0.23075e+03_rb,0.13581e+03_rb,0.17106e+03_rb,0.60474e+03_rb, &\n        & 0.74811e+03_rb,0.89148e+03_rb,0.10348e+04_rb,0.11717e+04_rb /)\n      kao(:, 5,12,16) = (/ &\n        & 0.20371e+03_rb,0.68798e+03_rb,0.91592e+02_rb,0.60316e+03_rb,0.60390e+03_rb, &\n        & 0.74294e+03_rb,0.89029e+03_rb,0.10335e+04_rb,0.11767e+04_rb /)\n      kao(:, 1,13,16) = (/ &\n        & 0.85988e+03_rb,0.94717e+03_rb,0.84544e+03_rb,0.31415e+03_rb,0.60500e+03_rb, &\n        & 0.75003e+03_rb,0.89385e+03_rb,0.10377e+04_rb,0.11815e+04_rb /)\n      kao(:, 2,13,16) = (/ &\n        & 0.10379e+04_rb,0.11189e+03_rb,0.20733e+03_rb,0.17410e+03_rb,0.60685e+03_rb, &\n        & 0.74910e+03_rb,0.89272e+03_rb,0.10306e+04_rb,0.11800e+04_rb /)\n      kao(:, 3,13,16) = (/ &\n        & 0.70206e+03_rb,0.77801e+03_rb,0.11974e+03_rb,0.34591e+03_rb,0.60534e+03_rb, &\n        & 0.74861e+03_rb,0.89217e+03_rb,0.10357e+04_rb,0.11793e+04_rb /)\n      kao(:, 4,13,16) = (/ &\n        & 0.69165e+03_rb,0.93369e+03_rb,0.16190e+03_rb,0.16396e+03_rb,0.60445e+03_rb, &\n        & 0.74789e+03_rb,0.89133e+03_rb,0.10348e+04_rb,0.11782e+04_rb /)\n      kao(:, 5,13,16) = (/ &\n        & 0.20016e+03_rb,0.25832e+03_rb,0.57797e+03_rb,0.24270e+03_rb,0.60363e+03_rb, &\n        & 0.74689e+03_rb,0.88521e+03_rb,0.10334e+04_rb,0.11767e+04_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:, 1,13, 1) = (/ &\n        & 0.27369e+02_rb,0.29903e+03_rb,0.42924e+03_rb,0.31039e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,13, 1) = (/ &\n        & 0.27158e+02_rb,0.29898e+03_rb,0.42745e+03_rb,0.30840e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,13, 1) = (/ &\n        & 0.26976e+02_rb,0.29889e+03_rb,0.42590e+03_rb,0.30668e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,13, 1) = (/ &\n        & 0.26818e+02_rb,0.29875e+03_rb,0.42455e+03_rb,0.30517e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,13, 1) = (/ &\n        & 0.26679e+02_rb,0.29855e+03_rb,0.42335e+03_rb,0.30384e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,14, 1) = (/ &\n        & 0.26840e+02_rb,0.29863e+03_rb,0.42474e+03_rb,0.30538e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,14, 1) = (/ &\n        & 0.26669e+02_rb,0.29862e+03_rb,0.42327e+03_rb,0.30375e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,14, 1) = (/ &\n        & 0.26522e+02_rb,0.29854e+03_rb,0.42199e+03_rb,0.30234e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,14, 1) = (/ &\n        & 0.26394e+02_rb,0.29842e+03_rb,0.42088e+03_rb,0.30111e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,14, 1) = (/ &\n        & 0.26282e+02_rb,0.29824e+03_rb,0.41990e+03_rb,0.30002e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,15, 1) = (/ &\n        & 0.26408e+02_rb,0.29831e+03_rb,0.42100e+03_rb,0.30124e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,15, 1) = (/ &\n        & 0.26271e+02_rb,0.29832e+03_rb,0.41980e+03_rb,0.29991e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,15, 1) = (/ &\n        & 0.26152e+02_rb,0.29826e+03_rb,0.41876e+03_rb,0.29877e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,15, 1) = (/ &\n        & 0.26049e+02_rb,0.29814e+03_rb,0.41785e+03_rb,0.29776e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,15, 1) = (/ &\n        & 0.25958e+02_rb,0.29797e+03_rb,0.41705e+03_rb,0.29688e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,16, 1) = (/ &\n        & 0.26057e+02_rb,0.29806e+03_rb,0.41793e+03_rb,0.29784e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,16, 1) = (/ &\n        & 0.25946e+02_rb,0.29807e+03_rb,0.41695e+03_rb,0.29676e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,16, 1) = (/ &\n        & 0.25851e+02_rb,0.29803e+03_rb,0.41610e+03_rb,0.29583e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,16, 1) = (/ &\n        & 0.25767e+02_rb,0.29792e+03_rb,0.41536e+03_rb,0.29502e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,16, 1) = (/ &\n        & 0.25694e+02_rb,0.29776e+03_rb,0.41470e+03_rb,0.29430e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,17, 1) = (/ &\n        & 0.25772e+02_rb,0.29785e+03_rb,0.41540e+03_rb,0.29506e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,17, 1) = (/ &\n        & 0.25683e+02_rb,0.29787e+03_rb,0.41460e+03_rb,0.29419e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,17, 1) = (/ &\n        & 0.25606e+02_rb,0.29784e+03_rb,0.41391e+03_rb,0.29343e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,17, 1) = (/ &\n        & 0.25538e+02_rb,0.29774e+03_rb,0.41331e+03_rb,0.29277e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,17, 1) = (/ &\n        & 0.25479e+02_rb,0.29758e+03_rb,0.41278e+03_rb,0.29219e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,18, 1) = (/ &\n        & 0.25541e+02_rb,0.29768e+03_rb,0.41334e+03_rb,0.29280e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,18, 1) = (/ &\n        & 0.25469e+02_rb,0.29772e+03_rb,0.41269e+03_rb,0.29209e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,18, 1) = (/ &\n        & 0.25407e+02_rb,0.29768e+03_rb,0.41213e+03_rb,0.29147e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,18, 1) = (/ &\n        & 0.25353e+02_rb,0.29758e+03_rb,0.41163e+03_rb,0.29094e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,18, 1) = (/ &\n        & 0.25305e+02_rb,0.29743e+03_rb,0.41120e+03_rb,0.29046e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,19, 1) = (/ &\n        & 0.25354e+02_rb,0.29755e+03_rb,0.41165e+03_rb,0.29095e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,19, 1) = (/ &\n        & 0.25296e+02_rb,0.29758e+03_rb,0.41112e+03_rb,0.29037e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,19, 1) = (/ &\n        & 0.25245e+02_rb,0.29755e+03_rb,0.41067e+03_rb,0.28988e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,19, 1) = (/ &\n        & 0.25201e+02_rb,0.29746e+03_rb,0.41027e+03_rb,0.28944e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,19, 1) = (/ &\n        & 0.25163e+02_rb,0.29730e+03_rb,0.40991e+03_rb,0.28905e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,20, 1) = (/ &\n        & 0.25201e+02_rb,0.29744e+03_rb,0.41026e+03_rb,0.28943e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,20, 1) = (/ &\n        & 0.25154e+02_rb,0.29748e+03_rb,0.40984e+03_rb,0.28897e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,20, 1) = (/ &\n        & 0.25113e+02_rb,0.29745e+03_rb,0.40947e+03_rb,0.28856e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,20, 1) = (/ &\n        & 0.25078e+02_rb,0.29735e+03_rb,0.40914e+03_rb,0.28821e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,20, 1) = (/ &\n        & 0.25047e+02_rb,0.29719e+03_rb,0.40886e+03_rb,0.28790e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,21, 1) = (/ &\n        & 0.25076e+02_rb,0.29736e+03_rb,0.40913e+03_rb,0.28819e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,21, 1) = (/ &\n        & 0.25039e+02_rb,0.29739e+03_rb,0.40879e+03_rb,0.28782e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,21, 1) = (/ &\n        & 0.25006e+02_rb,0.29736e+03_rb,0.40849e+03_rb,0.28749e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,21, 1) = (/ &\n        & 0.24978e+02_rb,0.29726e+03_rb,0.40823e+03_rb,0.28722e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,21, 1) = (/ &\n        & 0.24952e+02_rb,0.29710e+03_rb,0.40800e+03_rb,0.28695e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,22, 1) = (/ &\n        & 0.24973e+02_rb,0.29729e+03_rb,0.40819e+03_rb,0.28717e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,22, 1) = (/ &\n        & 0.24944e+02_rb,0.29732e+03_rb,0.40792e+03_rb,0.28687e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,22, 1) = (/ &\n        & 0.24917e+02_rb,0.29728e+03_rb,0.40768e+03_rb,0.28661e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,22, 1) = (/ &\n        & 0.24895e+02_rb,0.29717e+03_rb,0.40747e+03_rb,0.28638e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,22, 1) = (/ &\n        & 0.24874e+02_rb,0.29700e+03_rb,0.40728e+03_rb,0.28618e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,23, 1) = (/ &\n        & 0.24890e+02_rb,0.29724e+03_rb,0.40743e+03_rb,0.28634e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,23, 1) = (/ &\n        & 0.24866e+02_rb,0.29726e+03_rb,0.40721e+03_rb,0.28610e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,23, 1) = (/ &\n        & 0.24846e+02_rb,0.29721e+03_rb,0.40702e+03_rb,0.28589e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,23, 1) = (/ &\n        & 0.24827e+02_rb,0.29710e+03_rb,0.40685e+03_rb,0.28571e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,23, 1) = (/ &\n        & 0.24811e+02_rb,0.29692e+03_rb,0.40671e+03_rb,0.28554e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,24, 1) = (/ &\n        & 0.24823e+02_rb,0.29721e+03_rb,0.40681e+03_rb,0.28566e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,24, 1) = (/ &\n        & 0.24804e+02_rb,0.29721e+03_rb,0.40664e+03_rb,0.28547e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,24, 1) = (/ &\n        & 0.24787e+02_rb,0.29715e+03_rb,0.40649e+03_rb,0.28530e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,24, 1) = (/ &\n        & 0.24773e+02_rb,0.29703e+03_rb,0.40635e+03_rb,0.28516e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,24, 1) = (/ &\n        & 0.24760e+02_rb,0.29684e+03_rb,0.40623e+03_rb,0.28503e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,25, 1) = (/ &\n        & 0.24769e+02_rb,0.29717e+03_rb,0.40631e+03_rb,0.28511e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,25, 1) = (/ &\n        & 0.24753e+02_rb,0.29717e+03_rb,0.40618e+03_rb,0.28496e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,25, 1) = (/ &\n        & 0.24740e+02_rb,0.29710e+03_rb,0.40606e+03_rb,0.28483e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,25, 1) = (/ &\n        & 0.24729e+02_rb,0.29696e+03_rb,0.40595e+03_rb,0.28472e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,25, 1) = (/ &\n        & 0.24718e+02_rb,0.29676e+03_rb,0.40585e+03_rb,0.28462e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,26, 1) = (/ &\n        & 0.24724e+02_rb,0.29715e+03_rb,0.40591e+03_rb,0.28467e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,26, 1) = (/ &\n        & 0.24712e+02_rb,0.29713e+03_rb,0.40580e+03_rb,0.28456e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,26, 1) = (/ &\n        & 0.24702e+02_rb,0.29704e+03_rb,0.40570e+03_rb,0.28445e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,26, 1) = (/ &\n        & 0.24693e+02_rb,0.29689e+03_rb,0.40562e+03_rb,0.28435e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,26, 1) = (/ &\n        & 0.24684e+02_rb,0.29668e+03_rb,0.40554e+03_rb,0.28427e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,27, 1) = (/ &\n        & 0.24689e+02_rb,0.29713e+03_rb,0.40558e+03_rb,0.28431e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,27, 1) = (/ &\n        & 0.24679e+02_rb,0.29709e+03_rb,0.40550e+03_rb,0.28422e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,27, 1) = (/ &\n        & 0.24671e+02_rb,0.29699e+03_rb,0.40542e+03_rb,0.28423e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,27, 1) = (/ &\n        & 0.24664e+02_rb,0.29683e+03_rb,0.40535e+03_rb,0.28405e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,27, 1) = (/ &\n        & 0.24657e+02_rb,0.29660e+03_rb,0.40529e+03_rb,0.28399e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,28, 1) = (/ &\n        & 0.24660e+02_rb,0.29710e+03_rb,0.40532e+03_rb,0.28404e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,28, 1) = (/ &\n        & 0.24653e+02_rb,0.29706e+03_rb,0.40525e+03_rb,0.28395e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,28, 1) = (/ &\n        & 0.24646e+02_rb,0.29694e+03_rb,0.40519e+03_rb,0.28389e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,28, 1) = (/ &\n        & 0.24640e+02_rb,0.29676e+03_rb,0.40514e+03_rb,0.28383e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,28, 1) = (/ &\n        & 0.24635e+02_rb,0.29651e+03_rb,0.40509e+03_rb,0.28376e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,29, 1) = (/ &\n        & 0.24637e+02_rb,0.29708e+03_rb,0.40511e+03_rb,0.28380e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,29, 1) = (/ &\n        & 0.24631e+02_rb,0.29702e+03_rb,0.40505e+03_rb,0.28374e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,29, 1) = (/ &\n        & 0.24626e+02_rb,0.29689e+03_rb,0.40500e+03_rb,0.28368e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,29, 1) = (/ &\n        & 0.24621e+02_rb,0.29669e+03_rb,0.40496e+03_rb,0.28364e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,29, 1) = (/ &\n        & 0.24617e+02_rb,0.29643e+03_rb,0.40492e+03_rb,0.28359e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,30, 1) = (/ &\n        & 0.24619e+02_rb,0.29706e+03_rb,0.40494e+03_rb,0.28360e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,30, 1) = (/ &\n        & 0.24614e+02_rb,0.29698e+03_rb,0.40489e+03_rb,0.28355e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,30, 1) = (/ &\n        & 0.24610e+02_rb,0.29683e+03_rb,0.40485e+03_rb,0.28351e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,30, 1) = (/ &\n        & 0.24606e+02_rb,0.29662e+03_rb,0.40482e+03_rb,0.28347e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,30, 1) = (/ &\n        & 0.24603e+02_rb,0.29634e+03_rb,0.40479e+03_rb,0.28344e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,31, 1) = (/ &\n        & 0.24604e+02_rb,0.29704e+03_rb,0.40480e+03_rb,0.28345e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,31, 1) = (/ &\n        & 0.24600e+02_rb,0.29694e+03_rb,0.40477e+03_rb,0.28341e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,31, 1) = (/ &\n        & 0.24597e+02_rb,0.29678e+03_rb,0.40473e+03_rb,0.28338e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,31, 1) = (/ &\n        & 0.24594e+02_rb,0.29655e+03_rb,0.40471e+03_rb,0.28336e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,31, 1) = (/ &\n        & 0.24591e+02_rb,0.29625e+03_rb,0.40468e+03_rb,0.28332e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,32, 1) = (/ &\n        & 0.24592e+02_rb,0.29701e+03_rb,0.40469e+03_rb,0.28333e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,32, 1) = (/ &\n        & 0.24589e+02_rb,0.29689e+03_rb,0.40466e+03_rb,0.28330e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,32, 1) = (/ &\n        & 0.24586e+02_rb,0.29672e+03_rb,0.40464e+03_rb,0.28328e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,32, 1) = (/ &\n        & 0.24584e+02_rb,0.29647e+03_rb,0.40461e+03_rb,0.28324e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,32, 1) = (/ &\n        & 0.24582e+02_rb,0.29615e+03_rb,0.40459e+03_rb,0.28325e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,33, 1) = (/ &\n        & 0.24582e+02_rb,0.29698e+03_rb,0.40460e+03_rb,0.28323e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,33, 1) = (/ &\n        & 0.24580e+02_rb,0.29685e+03_rb,0.40458e+03_rb,0.28321e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,33, 1) = (/ &\n        & 0.24578e+02_rb,0.29665e+03_rb,0.40456e+03_rb,0.28318e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,33, 1) = (/ &\n        & 0.24576e+02_rb,0.29639e+03_rb,0.40454e+03_rb,0.28317e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,33, 1) = (/ &\n        & 0.24574e+02_rb,0.29605e+03_rb,0.40452e+03_rb,0.28315e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,34, 1) = (/ &\n        & 0.24574e+02_rb,0.29695e+03_rb,0.40453e+03_rb,0.28315e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,34, 1) = (/ &\n        & 0.24572e+02_rb,0.29680e+03_rb,0.40451e+03_rb,0.28313e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,34, 1) = (/ &\n        & 0.24571e+02_rb,0.29659e+03_rb,0.40449e+03_rb,0.28312e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,34, 1) = (/ &\n        & 0.24569e+02_rb,0.29631e+03_rb,0.40448e+03_rb,0.28310e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,34, 1) = (/ &\n        & 0.24568e+02_rb,0.29596e+03_rb,0.40447e+03_rb,0.28308e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,35, 1) = (/ &\n        & 0.24568e+02_rb,0.29693e+03_rb,0.40447e+03_rb,0.28309e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,35, 1) = (/ &\n        & 0.24567e+02_rb,0.29678e+03_rb,0.40446e+03_rb,0.28308e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,35, 1) = (/ &\n        & 0.24565e+02_rb,0.29656e+03_rb,0.40444e+03_rb,0.28306e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,35, 1) = (/ &\n        & 0.24564e+02_rb,0.29627e+03_rb,0.40443e+03_rb,0.28305e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,35, 1) = (/ &\n        & 0.24563e+02_rb,0.29590e+03_rb,0.40442e+03_rb,0.28304e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,36, 1) = (/ &\n        & 0.24563e+02_rb,0.29692e+03_rb,0.40443e+03_rb,0.28305e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,36, 1) = (/ &\n        & 0.24562e+02_rb,0.29677e+03_rb,0.40442e+03_rb,0.28304e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,36, 1) = (/ &\n        & 0.24561e+02_rb,0.29655e+03_rb,0.40440e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,36, 1) = (/ &\n        & 0.24560e+02_rb,0.29626e+03_rb,0.40440e+03_rb,0.28302e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,36, 1) = (/ &\n        & 0.24559e+02_rb,0.29589e+03_rb,0.40439e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,37, 1) = (/ &\n        & 0.24560e+02_rb,0.29693e+03_rb,0.40439e+03_rb,0.28301e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,37, 1) = (/ &\n        & 0.24559e+02_rb,0.29679e+03_rb,0.40438e+03_rb,0.28299e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,37, 1) = (/ &\n        & 0.24558e+02_rb,0.29658e+03_rb,0.40437e+03_rb,0.28299e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,37, 1) = (/ &\n        & 0.24557e+02_rb,0.29630e+03_rb,0.40437e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,37, 1) = (/ &\n        & 0.24556e+02_rb,0.29594e+03_rb,0.40436e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,38, 1) = (/ &\n        & 0.24557e+02_rb,0.29695e+03_rb,0.40436e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,38, 1) = (/ &\n        & 0.24556e+02_rb,0.29681e+03_rb,0.40436e+03_rb,0.28296e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,38, 1) = (/ &\n        & 0.24555e+02_rb,0.29661e+03_rb,0.40435e+03_rb,0.28297e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,38, 1) = (/ &\n        & 0.24554e+02_rb,0.29634e+03_rb,0.40434e+03_rb,0.28296e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,38, 1) = (/ &\n        & 0.24554e+02_rb,0.29599e+03_rb,0.40434e+03_rb,0.28294e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,39, 1) = (/ &\n        & 0.24554e+02_rb,0.29696e+03_rb,0.40434e+03_rb,0.28295e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,39, 1) = (/ &\n        & 0.24553e+02_rb,0.29683e+03_rb,0.40433e+03_rb,0.28294e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,39, 1) = (/ &\n        & 0.24553e+02_rb,0.29664e+03_rb,0.40433e+03_rb,0.28293e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,39, 1) = (/ &\n        & 0.24552e+02_rb,0.29638e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,39, 1) = (/ &\n        & 0.24552e+02_rb,0.29604e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,40, 1) = (/ &\n        & 0.24552e+02_rb,0.29698e+03_rb,0.40432e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,40, 1) = (/ &\n        & 0.24551e+02_rb,0.29687e+03_rb,0.40432e+03_rb,0.28293e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,40, 1) = (/ &\n        & 0.24551e+02_rb,0.29669e+03_rb,0.40431e+03_rb,0.28292e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,40, 1) = (/ &\n        & 0.24550e+02_rb,0.29645e+03_rb,0.40431e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,40, 1) = (/ &\n        & 0.24550e+02_rb,0.29613e+03_rb,0.40430e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,41, 1) = (/ &\n        & 0.24550e+02_rb,0.29699e+03_rb,0.40431e+03_rb,0.28290e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,41, 1) = (/ &\n        & 0.24550e+02_rb,0.29690e+03_rb,0.40430e+03_rb,0.28291e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,41, 1) = (/ &\n        & 0.24549e+02_rb,0.29674e+03_rb,0.40430e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,41, 1) = (/ &\n        & 0.24549e+02_rb,0.29651e+03_rb,0.40429e+03_rb,0.28290e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,41, 1) = (/ &\n        & 0.24549e+02_rb,0.29622e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,42, 1) = (/ &\n        & 0.24549e+02_rb,0.29700e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,42, 1) = (/ &\n        & 0.24549e+02_rb,0.29693e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,42, 1) = (/ &\n        & 0.24548e+02_rb,0.29679e+03_rb,0.40429e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,42, 1) = (/ &\n        & 0.24548e+02_rb,0.29658e+03_rb,0.40428e+03_rb,0.28289e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,42, 1) = (/ &\n        & 0.24547e+02_rb,0.29630e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,43, 1) = (/ &\n        & 0.24548e+02_rb,0.29701e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29696e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29684e+03_rb,0.40428e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29665e+03_rb,0.40427e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,43, 1) = (/ &\n        & 0.24547e+02_rb,0.29639e+03_rb,0.40427e+03_rb,0.28288e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,44, 1) = (/ &\n        & 0.24547e+02_rb,0.29702e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,44, 1) = (/ &\n        & 0.24547e+02_rb,0.29698e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,44, 1) = (/ &\n        & 0.24546e+02_rb,0.29688e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,44, 1) = (/ &\n        & 0.24546e+02_rb,0.29672e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,44, 1) = (/ &\n        & 0.24546e+02_rb,0.29649e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,45, 1) = (/ &\n        & 0.24546e+02_rb,0.29701e+03_rb,0.40427e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,45, 1) = (/ &\n        & 0.24546e+02_rb,0.29700e+03_rb,0.40426e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,45, 1) = (/ &\n        & 0.24546e+02_rb,0.29692e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,45, 1) = (/ &\n        & 0.24545e+02_rb,0.29678e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,45, 1) = (/ &\n        & 0.24545e+02_rb,0.29657e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29699e+03_rb,0.40426e+03_rb,0.28287e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29701e+03_rb,0.40426e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29696e+03_rb,0.40426e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29684e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,46, 1) = (/ &\n        & 0.24545e+02_rb,0.29665e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,47, 1) = (/ &\n        & 0.24545e+02_rb,0.29696e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,47, 1) = (/ &\n        & 0.24545e+02_rb,0.29701e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,47, 1) = (/ &\n        & 0.24544e+02_rb,0.29699e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,47, 1) = (/ &\n        & 0.24544e+02_rb,0.29690e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,47, 1) = (/ &\n        & 0.24544e+02_rb,0.29674e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29691e+03_rb,0.40425e+03_rb,0.28286e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29700e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29701e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29694e+03_rb,0.40425e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,48, 1) = (/ &\n        & 0.24544e+02_rb,0.29681e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29685e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29698e+03_rb,0.40425e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29697e+03_rb,0.40424e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,49, 1) = (/ &\n        & 0.24544e+02_rb,0.29687e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,50, 1) = (/ &\n        & 0.24544e+02_rb,0.29678e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,50, 1) = (/ &\n        & 0.24544e+02_rb,0.29694e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,50, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,50, 1) = (/ &\n        & 0.24543e+02_rb,0.29700e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,50, 1) = (/ &\n        & 0.24543e+02_rb,0.29692e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29670e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29689e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29699e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,51, 1) = (/ &\n        & 0.24543e+02_rb,0.29695e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29660e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29684e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29697e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,52, 1) = (/ &\n        & 0.24543e+02_rb,0.29698e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29648e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29676e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29693e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,53, 1) = (/ &\n        & 0.24543e+02_rb,0.29700e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29635e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29668e+03_rb,0.40424e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29688e+03_rb,0.40424e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29699e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,54, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40423e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29622e+03_rb,0.40424e+03_rb,0.28285e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29659e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29683e+03_rb,0.40423e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29696e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,55, 1) = (/ &\n        & 0.24543e+02_rb,0.29701e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,56, 1) = (/ &\n        & 0.24543e+02_rb,0.29607e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,56, 1) = (/ &\n        & 0.24543e+02_rb,0.29649e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,56, 1) = (/ &\n        & 0.24543e+02_rb,0.29676e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,56, 1) = (/ &\n        & 0.24542e+02_rb,0.29693e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,56, 1) = (/ &\n        & 0.24542e+02_rb,0.29700e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,57, 1) = (/ &\n        & 0.24543e+02_rb,0.29591e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29637e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29669e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29689e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,57, 1) = (/ &\n        & 0.24542e+02_rb,0.29699e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29574e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29624e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29660e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29684e+03_rb,0.40423e+03_rb,0.28284e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,58, 1) = (/ &\n        & 0.24542e+02_rb,0.29697e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29566e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 2,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29619e+03_rb,0.40423e+03_rb,0.28282e+03_rb,0.35000e+02_rb /)\n      kbo(:, 3,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29657e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 4,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29682e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 5,59, 1) = (/ &\n        & 0.24542e+02_rb,0.29696e+03_rb,0.40423e+03_rb,0.28283e+03_rb,0.35000e+02_rb /)\n      kbo(:, 1,13, 2) = (/ &\n        & 0.10177e+03_rb,0.32761e+03_rb,0.45575e+03_rb,0.31335e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,13, 2) = (/ &\n        & 0.10099e+03_rb,0.32713e+03_rb,0.45383e+03_rb,0.31125e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,13, 2) = (/ &\n        & 0.10031e+03_rb,0.32663e+03_rb,0.45216e+03_rb,0.30943e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,13, 2) = (/ &\n        & 0.99721e+02_rb,0.32612e+03_rb,0.45071e+03_rb,0.30785e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,13, 2) = (/ &\n        & 0.99204e+02_rb,0.32558e+03_rb,0.44942e+03_rb,0.30646e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,14, 2) = (/ &\n        & 0.99803e+02_rb,0.32613e+03_rb,0.45091e+03_rb,0.30807e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,14, 2) = (/ &\n        & 0.99169e+02_rb,0.32574e+03_rb,0.44934e+03_rb,0.30636e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,14, 2) = (/ &\n        & 0.98622e+02_rb,0.32534e+03_rb,0.44797e+03_rb,0.30489e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,14, 2) = (/ &\n        & 0.98146e+02_rb,0.32491e+03_rb,0.44677e+03_rb,0.30362e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,14, 2) = (/ &\n        & 0.97728e+02_rb,0.32444e+03_rb,0.44571e+03_rb,0.30248e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,15, 2) = (/ &\n        & 0.98198e+02_rb,0.32493e+03_rb,0.44690e+03_rb,0.30375e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,15, 2) = (/ &\n        & 0.97687e+02_rb,0.32462e+03_rb,0.44560e+03_rb,0.30237e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,15, 2) = (/ &\n        & 0.97245e+02_rb,0.32429e+03_rb,0.44448e+03_rb,0.30119e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,15, 2) = (/ &\n        & 0.96861e+02_rb,0.32392e+03_rb,0.44350e+03_rb,0.30014e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,15, 2) = (/ &\n        & 0.96523e+02_rb,0.32350e+03_rb,0.44263e+03_rb,0.29923e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,16, 2) = (/ &\n        & 0.96892e+02_rb,0.32395e+03_rb,0.44358e+03_rb,0.30023e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,16, 2) = (/ &\n        & 0.96480e+02_rb,0.32371e+03_rb,0.44252e+03_rb,0.29912e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,16, 2) = (/ &\n        & 0.96125e+02_rb,0.32343e+03_rb,0.44161e+03_rb,0.29817e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,16, 2) = (/ &\n        & 0.95814e+02_rb,0.32311e+03_rb,0.44081e+03_rb,0.29733e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,16, 2) = (/ &\n        & 0.95541e+02_rb,0.32273e+03_rb,0.44010e+03_rb,0.29661e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,17, 2) = (/ &\n        & 0.95833e+02_rb,0.32316e+03_rb,0.44086e+03_rb,0.29737e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,17, 2) = (/ &\n        & 0.95501e+02_rb,0.32297e+03_rb,0.44000e+03_rb,0.29648e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,17, 2) = (/ &\n        & 0.95214e+02_rb,0.32274e+03_rb,0.43925e+03_rb,0.29569e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,17, 2) = (/ &\n        & 0.94964e+02_rb,0.32245e+03_rb,0.43860e+03_rb,0.29502e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,17, 2) = (/ &\n        & 0.94743e+02_rb,0.32210e+03_rb,0.43803e+03_rb,0.29442e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,18, 2) = (/ &\n        & 0.94974e+02_rb,0.32251e+03_rb,0.43863e+03_rb,0.29504e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,18, 2) = (/ &\n        & 0.94707e+02_rb,0.32236e+03_rb,0.43793e+03_rb,0.29432e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,18, 2) = (/ &\n        & 0.94475e+02_rb,0.32217e+03_rb,0.43733e+03_rb,0.29369e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,18, 2) = (/ &\n        & 0.94272e+02_rb,0.32191e+03_rb,0.43680e+03_rb,0.29315e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,18, 2) = (/ &\n        & 0.94094e+02_rb,0.32158e+03_rb,0.43633e+03_rb,0.29267e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,19, 2) = (/ &\n        & 0.94277e+02_rb,0.32199e+03_rb,0.43681e+03_rb,0.29316e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,19, 2) = (/ &\n        & 0.94061e+02_rb,0.32187e+03_rb,0.43624e+03_rb,0.29258e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,19, 2) = (/ &\n        & 0.93874e+02_rb,0.32170e+03_rb,0.43575e+03_rb,0.29207e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,19, 2) = (/ &\n        & 0.93711e+02_rb,0.32146e+03_rb,0.43532e+03_rb,0.29164e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,19, 2) = (/ &\n        & 0.93566e+02_rb,0.32115e+03_rb,0.43494e+03_rb,0.29125e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,20, 2) = (/ &\n        & 0.93708e+02_rb,0.32157e+03_rb,0.43531e+03_rb,0.29163e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,20, 2) = (/ &\n        & 0.93534e+02_rb,0.32147e+03_rb,0.43485e+03_rb,0.29117e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,20, 2) = (/ &\n        & 0.93383e+02_rb,0.32132e+03_rb,0.43445e+03_rb,0.29076e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,20, 2) = (/ &\n        & 0.93251e+02_rb,0.32109e+03_rb,0.43411e+03_rb,0.29041e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,20, 2) = (/ &\n        & 0.93135e+02_rb,0.32079e+03_rb,0.43380e+03_rb,0.29010e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,21, 2) = (/ &\n        & 0.93246e+02_rb,0.32122e+03_rb,0.43409e+03_rb,0.29040e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,21, 2) = (/ &\n        & 0.93106e+02_rb,0.32114e+03_rb,0.43372e+03_rb,0.29003e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,21, 2) = (/ &\n        & 0.92985e+02_rb,0.32100e+03_rb,0.43340e+03_rb,0.28970e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,21, 2) = (/ &\n        & 0.92878e+02_rb,0.32079e+03_rb,0.43311e+03_rb,0.28941e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,21, 2) = (/ &\n        & 0.92784e+02_rb,0.32049e+03_rb,0.43286e+03_rb,0.28917e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,22, 2) = (/ &\n        & 0.92863e+02_rb,0.32094e+03_rb,0.43307e+03_rb,0.28938e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,22, 2) = (/ &\n        & 0.92751e+02_rb,0.32087e+03_rb,0.43278e+03_rb,0.28908e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,22, 2) = (/ &\n        & 0.92655e+02_rb,0.32073e+03_rb,0.43252e+03_rb,0.28882e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,22, 2) = (/ &\n        & 0.92569e+02_rb,0.32051e+03_rb,0.43229e+03_rb,0.28860e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,22, 2) = (/ &\n        & 0.92494e+02_rb,0.32022e+03_rb,0.43209e+03_rb,0.28840e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,23, 2) = (/ &\n        & 0.92553e+02_rb,0.32072e+03_rb,0.43225e+03_rb,0.28855e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,23, 2) = (/ &\n        & 0.92465e+02_rb,0.32064e+03_rb,0.43201e+03_rb,0.28832e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,23, 2) = (/ &\n        & 0.92387e+02_rb,0.32050e+03_rb,0.43180e+03_rb,0.28811e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,23, 2) = (/ &\n        & 0.92319e+02_rb,0.32029e+03_rb,0.43162e+03_rb,0.28793e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,23, 2) = (/ &\n        & 0.92259e+02_rb,0.31998e+03_rb,0.43146e+03_rb,0.28778e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,24, 2) = (/ &\n        & 0.92303e+02_rb,0.32053e+03_rb,0.43158e+03_rb,0.28789e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,24, 2) = (/ &\n        & 0.92233e+02_rb,0.32046e+03_rb,0.43139e+03_rb,0.28770e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,24, 2) = (/ &\n        & 0.92171e+02_rb,0.32031e+03_rb,0.43122e+03_rb,0.28754e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,24, 2) = (/ &\n        & 0.92117e+02_rb,0.32009e+03_rb,0.43108e+03_rb,0.28740e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,24, 2) = (/ &\n        & 0.92068e+02_rb,0.31978e+03_rb,0.43095e+03_rb,0.28727e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,25, 2) = (/ &\n        & 0.92101e+02_rb,0.32038e+03_rb,0.43103e+03_rb,0.28736e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,25, 2) = (/ &\n        & 0.92045e+02_rb,0.32030e+03_rb,0.43088e+03_rb,0.28721e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,25, 2) = (/ &\n        & 0.91996e+02_rb,0.32015e+03_rb,0.43075e+03_rb,0.28708e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,25, 2) = (/ &\n        & 0.91952e+02_rb,0.31991e+03_rb,0.43064e+03_rb,0.28696e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,25, 2) = (/ &\n        & 0.91914e+02_rb,0.31959e+03_rb,0.43053e+03_rb,0.28684e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,26, 2) = (/ &\n        & 0.91937e+02_rb,0.32025e+03_rb,0.43059e+03_rb,0.28693e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,26, 2) = (/ &\n        & 0.91892e+02_rb,0.32016e+03_rb,0.43047e+03_rb,0.28680e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,26, 2) = (/ &\n        & 0.91853e+02_rb,0.32000e+03_rb,0.43037e+03_rb,0.28670e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,26, 2) = (/ &\n        & 0.91819e+02_rb,0.31975e+03_rb,0.43028e+03_rb,0.28661e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,26, 2) = (/ &\n        & 0.91788e+02_rb,0.31942e+03_rb,0.43019e+03_rb,0.28653e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,27, 2) = (/ &\n        & 0.91805e+02_rb,0.32015e+03_rb,0.43024e+03_rb,0.28658e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,27, 2) = (/ &\n        & 0.91770e+02_rb,0.32005e+03_rb,0.43014e+03_rb,0.28648e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,27, 2) = (/ &\n        & 0.91738e+02_rb,0.31986e+03_rb,0.43006e+03_rb,0.28630e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,27, 2) = (/ &\n        & 0.91711e+02_rb,0.31960e+03_rb,0.42998e+03_rb,0.28633e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,27, 2) = (/ &\n        & 0.91687e+02_rb,0.31925e+03_rb,0.42992e+03_rb,0.28626e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,28, 2) = (/ &\n        & 0.91698e+02_rb,0.32005e+03_rb,0.42995e+03_rb,0.28628e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,28, 2) = (/ &\n        & 0.91670e+02_rb,0.31994e+03_rb,0.42987e+03_rb,0.28622e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,28, 2) = (/ &\n        & 0.91646e+02_rb,0.31974e+03_rb,0.42981e+03_rb,0.28615e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,28, 2) = (/ &\n        & 0.91624e+02_rb,0.31946e+03_rb,0.42975e+03_rb,0.28609e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,28, 2) = (/ &\n        & 0.91604e+02_rb,0.31910e+03_rb,0.42970e+03_rb,0.28605e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,29, 2) = (/ &\n        & 0.91613e+02_rb,0.31997e+03_rb,0.42972e+03_rb,0.28605e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,29, 2) = (/ &\n        & 0.91591e+02_rb,0.31984e+03_rb,0.42966e+03_rb,0.28600e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,29, 2) = (/ &\n        & 0.91571e+02_rb,0.31963e+03_rb,0.42960e+03_rb,0.28595e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,29, 2) = (/ &\n        & 0.91554e+02_rb,0.31933e+03_rb,0.42956e+03_rb,0.28590e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,29, 2) = (/ &\n        & 0.91538e+02_rb,0.31895e+03_rb,0.42952e+03_rb,0.28586e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,30, 2) = (/ &\n        & 0.91544e+02_rb,0.31990e+03_rb,0.42953e+03_rb,0.28589e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,30, 2) = (/ &\n        & 0.91526e+02_rb,0.31975e+03_rb,0.42948e+03_rb,0.28584e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,30, 2) = (/ &\n        & 0.91511e+02_rb,0.31952e+03_rb,0.42944e+03_rb,0.28580e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,30, 2) = (/ &\n        & 0.91497e+02_rb,0.31920e+03_rb,0.42940e+03_rb,0.28577e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,30, 2) = (/ &\n        & 0.91484e+02_rb,0.31880e+03_rb,0.42937e+03_rb,0.28573e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,31, 2) = (/ &\n        & 0.91488e+02_rb,0.31983e+03_rb,0.42938e+03_rb,0.28574e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,31, 2) = (/ &\n        & 0.91474e+02_rb,0.31966e+03_rb,0.42934e+03_rb,0.28571e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,31, 2) = (/ &\n        & 0.91462e+02_rb,0.31941e+03_rb,0.42931e+03_rb,0.28567e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,31, 2) = (/ &\n        & 0.91451e+02_rb,0.31908e+03_rb,0.42928e+03_rb,0.28564e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,31, 2) = (/ &\n        & 0.91441e+02_rb,0.31866e+03_rb,0.42925e+03_rb,0.28562e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,32, 2) = (/ &\n        & 0.91443e+02_rb,0.31976e+03_rb,0.42926e+03_rb,0.28562e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,32, 2) = (/ &\n        & 0.91432e+02_rb,0.31958e+03_rb,0.42923e+03_rb,0.28559e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,32, 2) = (/ &\n        & 0.91423e+02_rb,0.31930e+03_rb,0.42920e+03_rb,0.28557e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,32, 2) = (/ &\n        & 0.91414e+02_rb,0.31895e+03_rb,0.42918e+03_rb,0.28555e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,32, 2) = (/ &\n        & 0.91406e+02_rb,0.31851e+03_rb,0.42916e+03_rb,0.28551e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,33, 2) = (/ &\n        & 0.91407e+02_rb,0.31970e+03_rb,0.42916e+03_rb,0.28553e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,33, 2) = (/ &\n        & 0.91399e+02_rb,0.31949e+03_rb,0.42914e+03_rb,0.28551e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,33, 2) = (/ &\n        & 0.91391e+02_rb,0.31920e+03_rb,0.42912e+03_rb,0.28549e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,33, 2) = (/ &\n        & 0.91384e+02_rb,0.31882e+03_rb,0.42910e+03_rb,0.28547e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,33, 2) = (/ &\n        & 0.91378e+02_rb,0.31837e+03_rb,0.42908e+03_rb,0.28546e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,34, 2) = (/ &\n        & 0.91379e+02_rb,0.31964e+03_rb,0.42908e+03_rb,0.28546e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,34, 2) = (/ &\n        & 0.91372e+02_rb,0.31941e+03_rb,0.42906e+03_rb,0.28544e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,34, 2) = (/ &\n        & 0.91365e+02_rb,0.31910e+03_rb,0.42905e+03_rb,0.28542e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,34, 2) = (/ &\n        & 0.91360e+02_rb,0.31871e+03_rb,0.42903e+03_rb,0.28541e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,34, 2) = (/ &\n        & 0.91355e+02_rb,0.31824e+03_rb,0.42902e+03_rb,0.28540e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,35, 2) = (/ &\n        & 0.91356e+02_rb,0.31960e+03_rb,0.42902e+03_rb,0.28539e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,35, 2) = (/ &\n        & 0.91350e+02_rb,0.31936e+03_rb,0.42901e+03_rb,0.28538e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,35, 2) = (/ &\n        & 0.91345e+02_rb,0.31904e+03_rb,0.42899e+03_rb,0.28537e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,35, 2) = (/ &\n        & 0.91341e+02_rb,0.31863e+03_rb,0.42898e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,35, 2) = (/ &\n        & 0.91337e+02_rb,0.31816e+03_rb,0.42897e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,36, 2) = (/ &\n        & 0.91338e+02_rb,0.31958e+03_rb,0.42897e+03_rb,0.28535e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,36, 2) = (/ &\n        & 0.91334e+02_rb,0.31934e+03_rb,0.42896e+03_rb,0.28533e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,36, 2) = (/ &\n        & 0.91330e+02_rb,0.31902e+03_rb,0.42895e+03_rb,0.28533e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,36, 2) = (/ &\n        & 0.91326e+02_rb,0.31862e+03_rb,0.42894e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,36, 2) = (/ &\n        & 0.91323e+02_rb,0.31814e+03_rb,0.42893e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,37, 2) = (/ &\n        & 0.91324e+02_rb,0.31959e+03_rb,0.42894e+03_rb,0.28531e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,37, 2) = (/ &\n        & 0.91320e+02_rb,0.31937e+03_rb,0.42893e+03_rb,0.28530e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,37, 2) = (/ &\n        & 0.91317e+02_rb,0.31906e+03_rb,0.42892e+03_rb,0.28529e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,37, 2) = (/ &\n        & 0.91314e+02_rb,0.31866e+03_rb,0.42891e+03_rb,0.28529e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,37, 2) = (/ &\n        & 0.91311e+02_rb,0.31819e+03_rb,0.42890e+03_rb,0.28527e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,38, 2) = (/ &\n        & 0.91313e+02_rb,0.31961e+03_rb,0.42890e+03_rb,0.28528e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,38, 2) = (/ &\n        & 0.91310e+02_rb,0.31939e+03_rb,0.42890e+03_rb,0.28528e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,38, 2) = (/ &\n        & 0.91307e+02_rb,0.31910e+03_rb,0.42889e+03_rb,0.28526e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,38, 2) = (/ &\n        & 0.91304e+02_rb,0.31871e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,38, 2) = (/ &\n        & 0.91302e+02_rb,0.31826e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,39, 2) = (/ &\n        & 0.91303e+02_rb,0.31962e+03_rb,0.42888e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,39, 2) = (/ &\n        & 0.91301e+02_rb,0.31942e+03_rb,0.42887e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,39, 2) = (/ &\n        & 0.91298e+02_rb,0.31914e+03_rb,0.42886e+03_rb,0.28525e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,39, 2) = (/ &\n        & 0.91296e+02_rb,0.31877e+03_rb,0.42886e+03_rb,0.28524e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,39, 2) = (/ &\n        & 0.91294e+02_rb,0.31832e+03_rb,0.42885e+03_rb,0.28523e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,40, 2) = (/ &\n        & 0.91296e+02_rb,0.31965e+03_rb,0.42886e+03_rb,0.28524e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,40, 2) = (/ &\n        & 0.91293e+02_rb,0.31947e+03_rb,0.42885e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,40, 2) = (/ &\n        & 0.91292e+02_rb,0.31921e+03_rb,0.42885e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,40, 2) = (/ &\n        & 0.91290e+02_rb,0.31886e+03_rb,0.42884e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,40, 2) = (/ &\n        & 0.91288e+02_rb,0.31843e+03_rb,0.42884e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,41, 2) = (/ &\n        & 0.91289e+02_rb,0.31968e+03_rb,0.42884e+03_rb,0.28523e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,41, 2) = (/ &\n        & 0.91288e+02_rb,0.31952e+03_rb,0.42884e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,41, 2) = (/ &\n        & 0.91286e+02_rb,0.31928e+03_rb,0.42883e+03_rb,0.28522e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,41, 2) = (/ &\n        & 0.91284e+02_rb,0.31895e+03_rb,0.42883e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,41, 2) = (/ &\n        & 0.91283e+02_rb,0.31854e+03_rb,0.42882e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,42, 2) = (/ &\n        & 0.91284e+02_rb,0.31970e+03_rb,0.42883e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,42, 2) = (/ &\n        & 0.91283e+02_rb,0.31957e+03_rb,0.42882e+03_rb,0.28521e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,42, 2) = (/ &\n        & 0.91281e+02_rb,0.31934e+03_rb,0.42882e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,42, 2) = (/ &\n        & 0.91280e+02_rb,0.31904e+03_rb,0.42882e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,42, 2) = (/ &\n        & 0.91279e+02_rb,0.31865e+03_rb,0.42881e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,43, 2) = (/ &\n        & 0.91280e+02_rb,0.31972e+03_rb,0.42882e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,43, 2) = (/ &\n        & 0.91279e+02_rb,0.31961e+03_rb,0.42881e+03_rb,0.28520e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,43, 2) = (/ &\n        & 0.91277e+02_rb,0.31942e+03_rb,0.42881e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,43, 2) = (/ &\n        & 0.91276e+02_rb,0.31914e+03_rb,0.42881e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,43, 2) = (/ &\n        & 0.91275e+02_rb,0.31878e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,44, 2) = (/ &\n        & 0.91276e+02_rb,0.31974e+03_rb,0.42881e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,44, 2) = (/ &\n        & 0.91275e+02_rb,0.31966e+03_rb,0.42880e+03_rb,0.28519e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,44, 2) = (/ &\n        & 0.91274e+02_rb,0.31949e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,44, 2) = (/ &\n        & 0.91273e+02_rb,0.31924e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,44, 2) = (/ &\n        & 0.91273e+02_rb,0.31890e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,45, 2) = (/ &\n        & 0.91274e+02_rb,0.31974e+03_rb,0.42880e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,45, 2) = (/ &\n        & 0.91273e+02_rb,0.31969e+03_rb,0.42880e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,45, 2) = (/ &\n        & 0.91272e+02_rb,0.31955e+03_rb,0.42879e+03_rb,0.28518e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,45, 2) = (/ &\n        & 0.91271e+02_rb,0.31933e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,45, 2) = (/ &\n        & 0.91270e+02_rb,0.31903e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,46, 2) = (/ &\n        & 0.91271e+02_rb,0.31974e+03_rb,0.42879e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,46, 2) = (/ &\n        & 0.91270e+02_rb,0.31972e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,46, 2) = (/ &\n        & 0.91270e+02_rb,0.31961e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,46, 2) = (/ &\n        & 0.91269e+02_rb,0.31942e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,46, 2) = (/ &\n        & 0.91268e+02_rb,0.31914e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,47, 2) = (/ &\n        & 0.91269e+02_rb,0.31973e+03_rb,0.42879e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,47, 2) = (/ &\n        & 0.91268e+02_rb,0.31974e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,47, 2) = (/ &\n        & 0.91268e+02_rb,0.31966e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,47, 2) = (/ &\n        & 0.91267e+02_rb,0.31951e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,47, 2) = (/ &\n        & 0.91267e+02_rb,0.31926e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,48, 2) = (/ &\n        & 0.91267e+02_rb,0.31970e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,48, 2) = (/ &\n        & 0.91267e+02_rb,0.31974e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,48, 2) = (/ &\n        & 0.91266e+02_rb,0.31970e+03_rb,0.42878e+03_rb,0.28517e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,48, 2) = (/ &\n        & 0.91266e+02_rb,0.31958e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,48, 2) = (/ &\n        & 0.91265e+02_rb,0.31937e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,49, 2) = (/ &\n        & 0.91266e+02_rb,0.31966e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,49, 2) = (/ &\n        & 0.91265e+02_rb,0.31973e+03_rb,0.42878e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,49, 2) = (/ &\n        & 0.91265e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,49, 2) = (/ &\n        & 0.91265e+02_rb,0.31964e+03_rb,0.42878e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,49, 2) = (/ &\n        & 0.91264e+02_rb,0.31946e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,50, 2) = (/ &\n        & 0.91265e+02_rb,0.31962e+03_rb,0.42877e+03_rb,0.28516e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,50, 2) = (/ &\n        & 0.91264e+02_rb,0.31972e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,50, 2) = (/ &\n        & 0.91264e+02_rb,0.31974e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,50, 2) = (/ &\n        & 0.91264e+02_rb,0.31968e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,50, 2) = (/ &\n        & 0.91263e+02_rb,0.31954e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,51, 2) = (/ &\n        & 0.91264e+02_rb,0.31958e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,51, 2) = (/ &\n        & 0.91263e+02_rb,0.31969e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,51, 2) = (/ &\n        & 0.91263e+02_rb,0.31974e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,51, 2) = (/ &\n        & 0.91263e+02_rb,0.31971e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,51, 2) = (/ &\n        & 0.91262e+02_rb,0.31960e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,52, 2) = (/ &\n        & 0.91263e+02_rb,0.31953e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,52, 2) = (/ &\n        & 0.91263e+02_rb,0.31965e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,52, 2) = (/ &\n        & 0.91262e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,52, 2) = (/ &\n        & 0.91262e+02_rb,0.31973e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,52, 2) = (/ &\n        & 0.91262e+02_rb,0.31965e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,53, 2) = (/ &\n        & 0.91262e+02_rb,0.31948e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,53, 2) = (/ &\n        & 0.91262e+02_rb,0.31961e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,53, 2) = (/ &\n        & 0.91262e+02_rb,0.31971e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,53, 2) = (/ &\n        & 0.91261e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,53, 2) = (/ &\n        & 0.91261e+02_rb,0.31969e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,54, 2) = (/ &\n        & 0.91262e+02_rb,0.31942e+03_rb,0.42877e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31957e+03_rb,0.42877e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31968e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,54, 2) = (/ &\n        & 0.91261e+02_rb,0.31971e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31937e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31953e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31965e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,55, 2) = (/ &\n        & 0.91261e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,55, 2) = (/ &\n        & 0.91260e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,56, 2) = (/ &\n        & 0.91261e+02_rb,0.31932e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31947e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31961e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31971e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,56, 2) = (/ &\n        & 0.91260e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31927e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31943e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31957e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31968e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,57, 2) = (/ &\n        & 0.91260e+02_rb,0.31974e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31922e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31938e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31953e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31965e+03_rb,0.42876e+03_rb,0.28513e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,58, 2) = (/ &\n        & 0.91260e+02_rb,0.31973e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,59, 2) = (/ &\n        & 0.91260e+02_rb,0.31920e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 2,59, 2) = (/ &\n        & 0.91260e+02_rb,0.31936e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 3,59, 2) = (/ &\n        & 0.91259e+02_rb,0.31952e+03_rb,0.42876e+03_rb,0.28515e+03_rb,0.71839e+02_rb /)\n      kbo(:, 4,59, 2) = (/ &\n        & 0.91259e+02_rb,0.31964e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 5,59, 2) = (/ &\n        & 0.91259e+02_rb,0.31972e+03_rb,0.42876e+03_rb,0.28514e+03_rb,0.71839e+02_rb /)\n      kbo(:, 1,13, 3) = (/ &\n        & 0.26463e+03_rb,0.36163e+03_rb,0.49889e+03_rb,0.32504e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,13, 3) = (/ &\n        & 0.26258e+03_rb,0.36010e+03_rb,0.49695e+03_rb,0.32345e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,13, 3) = (/ &\n        & 0.26083e+03_rb,0.35879e+03_rb,0.49519e+03_rb,0.32209e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,13, 3) = (/ &\n        & 0.25930e+03_rb,0.35766e+03_rb,0.49360e+03_rb,0.32093e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,13, 3) = (/ &\n        & 0.25795e+03_rb,0.35666e+03_rb,0.49217e+03_rb,0.31991e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,14, 3) = (/ &\n        & 0.25951e+03_rb,0.35782e+03_rb,0.49358e+03_rb,0.32109e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,14, 3) = (/ &\n        & 0.25786e+03_rb,0.35659e+03_rb,0.49191e+03_rb,0.31984e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,14, 3) = (/ &\n        & 0.25644e+03_rb,0.35554e+03_rb,0.49043e+03_rb,0.31877e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,14, 3) = (/ &\n        & 0.25520e+03_rb,0.35461e+03_rb,0.48912e+03_rb,0.31784e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,14, 3) = (/ &\n        & 0.25411e+03_rb,0.35381e+03_rb,0.48795e+03_rb,0.31704e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,15, 3) = (/ &\n        & 0.25534e+03_rb,0.35471e+03_rb,0.48908e+03_rb,0.31794e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,15, 3) = (/ &\n        & 0.25401e+03_rb,0.35373e+03_rb,0.48771e+03_rb,0.31695e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,15, 3) = (/ &\n        & 0.25286e+03_rb,0.35287e+03_rb,0.48651e+03_rb,0.31610e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,15, 3) = (/ &\n        & 0.25186e+03_rb,0.35213e+03_rb,0.48543e+03_rb,0.31537e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,15, 3) = (/ &\n        & 0.25098e+03_rb,0.35147e+03_rb,0.48447e+03_rb,0.31472e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,16, 3) = (/ &\n        & 0.25194e+03_rb,0.35219e+03_rb,0.48538e+03_rb,0.31543e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,16, 3) = (/ &\n        & 0.25087e+03_rb,0.35140e+03_rb,0.48427e+03_rb,0.31463e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,16, 3) = (/ &\n        & 0.24994e+03_rb,0.35071e+03_rb,0.48328e+03_rb,0.31395e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,16, 3) = (/ &\n        & 0.24914e+03_rb,0.35011e+03_rb,0.48239e+03_rb,0.31337e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,16, 3) = (/ &\n        & 0.24843e+03_rb,0.34958e+03_rb,0.48159e+03_rb,0.31282e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,17, 3) = (/ &\n        & 0.24919e+03_rb,0.35014e+03_rb,0.48236e+03_rb,0.31341e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,17, 3) = (/ &\n        & 0.24832e+03_rb,0.34950e+03_rb,0.48145e+03_rb,0.31278e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,17, 3) = (/ &\n        & 0.24758e+03_rb,0.34895e+03_rb,0.48063e+03_rb,0.31225e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,17, 3) = (/ &\n        & 0.24693e+03_rb,0.34847e+03_rb,0.47989e+03_rb,0.31178e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,17, 3) = (/ &\n        & 0.24635e+03_rb,0.34804e+03_rb,0.47924e+03_rb,0.31137e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,18, 3) = (/ &\n        & 0.24695e+03_rb,0.34848e+03_rb,0.47988e+03_rb,0.31180e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,18, 3) = (/ &\n        & 0.24626e+03_rb,0.34797e+03_rb,0.47913e+03_rb,0.31130e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,18, 3) = (/ &\n        & 0.24565e+03_rb,0.34752e+03_rb,0.47845e+03_rb,0.31086e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,18, 3) = (/ &\n        & 0.24513e+03_rb,0.34713e+03_rb,0.47784e+03_rb,0.31048e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,18, 3) = (/ &\n        & 0.24466e+03_rb,0.34679e+03_rb,0.47731e+03_rb,0.31015e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,19, 3) = (/ &\n        & 0.24514e+03_rb,0.34714e+03_rb,0.47784e+03_rb,0.31049e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,19, 3) = (/ &\n        & 0.24458e+03_rb,0.34672e+03_rb,0.47721e+03_rb,0.31009e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,19, 3) = (/ &\n        & 0.24409e+03_rb,0.34636e+03_rb,0.47665e+03_rb,0.30974e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,19, 3) = (/ &\n        & 0.24367e+03_rb,0.34605e+03_rb,0.47616e+03_rb,0.30943e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,19, 3) = (/ &\n        & 0.24329e+03_rb,0.34577e+03_rb,0.47573e+03_rb,0.30916e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,20, 3) = (/ &\n        & 0.24366e+03_rb,0.34604e+03_rb,0.47615e+03_rb,0.30943e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,20, 3) = (/ &\n        & 0.24321e+03_rb,0.34571e+03_rb,0.47563e+03_rb,0.30910e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,20, 3) = (/ &\n        & 0.24282e+03_rb,0.34542e+03_rb,0.47518e+03_rb,0.30882e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,20, 3) = (/ &\n        & 0.24247e+03_rb,0.34516e+03_rb,0.47478e+03_rb,0.30857e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,20, 3) = (/ &\n        & 0.24217e+03_rb,0.34494e+03_rb,0.47443e+03_rb,0.30835e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,21, 3) = (/ &\n        & 0.24246e+03_rb,0.34515e+03_rb,0.47476e+03_rb,0.30856e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,21, 3) = (/ &\n        & 0.24210e+03_rb,0.34488e+03_rb,0.47434e+03_rb,0.30830e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,21, 3) = (/ &\n        & 0.24178e+03_rb,0.34465e+03_rb,0.47397e+03_rb,0.30807e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,21, 3) = (/ &\n        & 0.24150e+03_rb,0.34444e+03_rb,0.47364e+03_rb,0.30787e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,21, 3) = (/ &\n        & 0.24126e+03_rb,0.34426e+03_rb,0.47341e+03_rb,0.30769e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,22, 3) = (/ &\n        & 0.24146e+03_rb,0.34441e+03_rb,0.47360e+03_rb,0.30784e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,22, 3) = (/ &\n        & 0.24117e+03_rb,0.34420e+03_rb,0.47327e+03_rb,0.30763e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,22, 3) = (/ &\n        & 0.24092e+03_rb,0.34401e+03_rb,0.47296e+03_rb,0.30745e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,22, 3) = (/ &\n        & 0.24070e+03_rb,0.34385e+03_rb,0.47270e+03_rb,0.30729e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,22, 3) = (/ &\n        & 0.24050e+03_rb,0.34370e+03_rb,0.47246e+03_rb,0.30715e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,23, 3) = (/ &\n        & 0.24066e+03_rb,0.34382e+03_rb,0.47265e+03_rb,0.30726e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,23, 3) = (/ &\n        & 0.24043e+03_rb,0.34365e+03_rb,0.47237e+03_rb,0.30709e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,23, 3) = (/ &\n        & 0.24023e+03_rb,0.34350e+03_rb,0.47213e+03_rb,0.30695e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,23, 3) = (/ &\n        & 0.24005e+03_rb,0.34336e+03_rb,0.47191e+03_rb,0.30682e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,23, 3) = (/ &\n        & 0.23989e+03_rb,0.34325e+03_rb,0.47173e+03_rb,0.30671e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,24, 3) = (/ &\n        & 0.24001e+03_rb,0.34333e+03_rb,0.47187e+03_rb,0.30679e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,24, 3) = (/ &\n        & 0.23982e+03_rb,0.34320e+03_rb,0.47164e+03_rb,0.30666e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,24, 3) = (/ &\n        & 0.23966e+03_rb,0.34308e+03_rb,0.47145e+03_rb,0.30654e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,24, 3) = (/ &\n        & 0.23952e+03_rb,0.34297e+03_rb,0.47128e+03_rb,0.30644e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,24, 3) = (/ &\n        & 0.23940e+03_rb,0.34288e+03_rb,0.47113e+03_rb,0.30635e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,25, 3) = (/ &\n        & 0.23948e+03_rb,0.34294e+03_rb,0.47124e+03_rb,0.30641e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,25, 3) = (/ &\n        & 0.23934e+03_rb,0.34284e+03_rb,0.47105e+03_rb,0.30631e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,25, 3) = (/ &\n        & 0.23921e+03_rb,0.34274e+03_rb,0.47089e+03_rb,0.30622e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,25, 3) = (/ &\n        & 0.23910e+03_rb,0.34266e+03_rb,0.47075e+03_rb,0.30613e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,25, 3) = (/ &\n        & 0.23900e+03_rb,0.34258e+03_rb,0.47063e+03_rb,0.30606e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,26, 3) = (/ &\n        & 0.23906e+03_rb,0.34263e+03_rb,0.47070e+03_rb,0.30610e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,26, 3) = (/ &\n        & 0.23894e+03_rb,0.34254e+03_rb,0.47056e+03_rb,0.30602e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,26, 3) = (/ &\n        & 0.23884e+03_rb,0.34247e+03_rb,0.47044e+03_rb,0.30595e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,26, 3) = (/ &\n        & 0.23875e+03_rb,0.34240e+03_rb,0.47033e+03_rb,0.30588e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,26, 3) = (/ &\n        & 0.23867e+03_rb,0.34234e+03_rb,0.47023e+03_rb,0.30583e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,27, 3) = (/ &\n        & 0.23871e+03_rb,0.34237e+03_rb,0.47028e+03_rb,0.30586e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,27, 3) = (/ &\n        & 0.23862e+03_rb,0.34230e+03_rb,0.47017e+03_rb,0.30579e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,27, 3) = (/ &\n        & 0.23854e+03_rb,0.34225e+03_rb,0.47007e+03_rb,0.30573e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,27, 3) = (/ &\n        & 0.23847e+03_rb,0.34219e+03_rb,0.46998e+03_rb,0.30568e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,27, 3) = (/ &\n        & 0.23840e+03_rb,0.34214e+03_rb,0.46990e+03_rb,0.30564e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,28, 3) = (/ &\n        & 0.23844e+03_rb,0.34217e+03_rb,0.46994e+03_rb,0.30566e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,28, 3) = (/ &\n        & 0.23836e+03_rb,0.34211e+03_rb,0.46985e+03_rb,0.30561e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,28, 3) = (/ &\n        & 0.23830e+03_rb,0.34207e+03_rb,0.46977e+03_rb,0.30556e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,28, 3) = (/ &\n        & 0.23824e+03_rb,0.34202e+03_rb,0.46970e+03_rb,0.30552e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,28, 3) = (/ &\n        & 0.23819e+03_rb,0.34198e+03_rb,0.46964e+03_rb,0.30548e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,29, 3) = (/ &\n        & 0.23821e+03_rb,0.34200e+03_rb,0.46966e+03_rb,0.30550e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,29, 3) = (/ &\n        & 0.23815e+03_rb,0.34196e+03_rb,0.46959e+03_rb,0.30546e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,29, 3) = (/ &\n        & 0.23810e+03_rb,0.34192e+03_rb,0.46953e+03_rb,0.30542e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,29, 3) = (/ &\n        & 0.23806e+03_rb,0.34189e+03_rb,0.46948e+03_rb,0.30539e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,29, 3) = (/ &\n        & 0.23802e+03_rb,0.34185e+03_rb,0.46942e+03_rb,0.30536e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,30, 3) = (/ &\n        & 0.23803e+03_rb,0.34187e+03_rb,0.46944e+03_rb,0.30537e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,30, 3) = (/ &\n        & 0.23799e+03_rb,0.34184e+03_rb,0.46939e+03_rb,0.30533e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,30, 3) = (/ &\n        & 0.23795e+03_rb,0.34180e+03_rb,0.46934e+03_rb,0.30531e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,30, 3) = (/ &\n        & 0.23791e+03_rb,0.34178e+03_rb,0.46929e+03_rb,0.30528e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,30, 3) = (/ &\n        & 0.23788e+03_rb,0.34175e+03_rb,0.46925e+03_rb,0.30526e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,31, 3) = (/ &\n        & 0.23789e+03_rb,0.34176e+03_rb,0.46926e+03_rb,0.30526e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,31, 3) = (/ &\n        & 0.23785e+03_rb,0.34173e+03_rb,0.46922e+03_rb,0.30524e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,31, 3) = (/ &\n        & 0.23782e+03_rb,0.34171e+03_rb,0.46918e+03_rb,0.30521e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,31, 3) = (/ &\n        & 0.23779e+03_rb,0.34169e+03_rb,0.46914e+03_rb,0.30519e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,31, 3) = (/ &\n        & 0.23777e+03_rb,0.34167e+03_rb,0.46911e+03_rb,0.30518e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,32, 3) = (/ &\n        & 0.23777e+03_rb,0.34168e+03_rb,0.46912e+03_rb,0.30518e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,32, 3) = (/ &\n        & 0.23774e+03_rb,0.34166e+03_rb,0.46908e+03_rb,0.30516e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,32, 3) = (/ &\n        & 0.23772e+03_rb,0.34163e+03_rb,0.46905e+03_rb,0.30514e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,32, 3) = (/ &\n        & 0.23770e+03_rb,0.34162e+03_rb,0.46902e+03_rb,0.30512e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,32, 3) = (/ &\n        & 0.23767e+03_rb,0.34160e+03_rb,0.46900e+03_rb,0.30511e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,33, 3) = (/ &\n        & 0.23768e+03_rb,0.34161e+03_rb,0.46900e+03_rb,0.30511e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,33, 3) = (/ &\n        & 0.23766e+03_rb,0.34159e+03_rb,0.46897e+03_rb,0.30510e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,33, 3) = (/ &\n        & 0.23764e+03_rb,0.34157e+03_rb,0.46895e+03_rb,0.30508e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,33, 3) = (/ &\n        & 0.23762e+03_rb,0.34156e+03_rb,0.46893e+03_rb,0.30507e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,33, 3) = (/ &\n        & 0.23760e+03_rb,0.34154e+03_rb,0.46891e+03_rb,0.30506e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,34, 3) = (/ &\n        & 0.23760e+03_rb,0.34155e+03_rb,0.46891e+03_rb,0.30506e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,34, 3) = (/ &\n        & 0.23759e+03_rb,0.34154e+03_rb,0.46889e+03_rb,0.30505e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,34, 3) = (/ &\n        & 0.23757e+03_rb,0.34152e+03_rb,0.46887e+03_rb,0.30503e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,34, 3) = (/ &\n        & 0.23756e+03_rb,0.34151e+03_rb,0.46885e+03_rb,0.30502e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,34, 3) = (/ &\n        & 0.23754e+03_rb,0.34150e+03_rb,0.46883e+03_rb,0.30501e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,35, 3) = (/ &\n        & 0.23755e+03_rb,0.34151e+03_rb,0.46884e+03_rb,0.30502e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,35, 3) = (/ &\n        & 0.23753e+03_rb,0.34150e+03_rb,0.46882e+03_rb,0.30501e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,35, 3) = (/ &\n        & 0.23752e+03_rb,0.34148e+03_rb,0.46880e+03_rb,0.30500e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,35, 3) = (/ &\n        & 0.23751e+03_rb,0.34147e+03_rb,0.46879e+03_rb,0.30499e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,35, 3) = (/ &\n        & 0.23750e+03_rb,0.34146e+03_rb,0.46878e+03_rb,0.30498e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,36, 3) = (/ &\n        & 0.23750e+03_rb,0.34147e+03_rb,0.46878e+03_rb,0.30498e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,36, 3) = (/ &\n        & 0.23749e+03_rb,0.34146e+03_rb,0.46877e+03_rb,0.30497e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,36, 3) = (/ &\n        & 0.23748e+03_rb,0.34145e+03_rb,0.46875e+03_rb,0.30497e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,36, 3) = (/ &\n        & 0.23747e+03_rb,0.34144e+03_rb,0.46874e+03_rb,0.30496e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,36, 3) = (/ &\n        & 0.23746e+03_rb,0.34144e+03_rb,0.46873e+03_rb,0.30495e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,37, 3) = (/ &\n        & 0.23746e+03_rb,0.34145e+03_rb,0.46874e+03_rb,0.30496e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,37, 3) = (/ &\n        & 0.23745e+03_rb,0.34144e+03_rb,0.46872e+03_rb,0.30495e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,37, 3) = (/ &\n        & 0.23744e+03_rb,0.34143e+03_rb,0.46871e+03_rb,0.30494e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,37, 3) = (/ &\n        & 0.23744e+03_rb,0.34142e+03_rb,0.46870e+03_rb,0.30494e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,37, 3) = (/ &\n        & 0.23743e+03_rb,0.34141e+03_rb,0.46869e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,38, 3) = (/ &\n        & 0.23743e+03_rb,0.34143e+03_rb,0.46870e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,38, 3) = (/ &\n        & 0.23742e+03_rb,0.34142e+03_rb,0.46869e+03_rb,0.30493e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,38, 3) = (/ &\n        & 0.23742e+03_rb,0.34141e+03_rb,0.46868e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,38, 3) = (/ &\n        & 0.23741e+03_rb,0.34140e+03_rb,0.46867e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,38, 3) = (/ &\n        & 0.23740e+03_rb,0.34140e+03_rb,0.46866e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,39, 3) = (/ &\n        & 0.23741e+03_rb,0.34141e+03_rb,0.46867e+03_rb,0.30492e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,39, 3) = (/ &\n        & 0.23740e+03_rb,0.34140e+03_rb,0.46866e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,39, 3) = (/ &\n        & 0.23739e+03_rb,0.34139e+03_rb,0.46865e+03_rb,0.30491e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,39, 3) = (/ &\n        & 0.23739e+03_rb,0.34139e+03_rb,0.46865e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,39, 3) = (/ &\n        & 0.23738e+03_rb,0.34138e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,40, 3) = (/ &\n        & 0.23739e+03_rb,0.34139e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,40, 3) = (/ &\n        & 0.23738e+03_rb,0.34139e+03_rb,0.46864e+03_rb,0.30490e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,40, 3) = (/ &\n        & 0.23738e+03_rb,0.34138e+03_rb,0.46863e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,40, 3) = (/ &\n        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,40, 3) = (/ &\n        & 0.23737e+03_rb,0.34137e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,41, 3) = (/ &\n        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,41, 3) = (/ &\n        & 0.23737e+03_rb,0.34138e+03_rb,0.46862e+03_rb,0.30489e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,41, 3) = (/ &\n        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,41, 3) = (/ &\n        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,41, 3) = (/ &\n        & 0.23736e+03_rb,0.34136e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,42, 3) = (/ &\n        & 0.23736e+03_rb,0.34137e+03_rb,0.46861e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,42, 3) = (/ &\n        & 0.23735e+03_rb,0.34137e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,42, 3) = (/ &\n        & 0.23735e+03_rb,0.34136e+03_rb,0.46860e+03_rb,0.30488e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,42, 3) = (/ &\n        & 0.23735e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,42, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,43, 3) = (/ &\n        & 0.23735e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34136e+03_rb,0.46859e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34136e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,43, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,44, 3) = (/ &\n        & 0.23734e+03_rb,0.34136e+03_rb,0.46858e+03_rb,0.30487e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,44, 3) = (/ &\n        & 0.23734e+03_rb,0.34135e+03_rb,0.46858e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,44, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,44, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,44, 3) = (/ &\n        & 0.23733e+03_rb,0.34134e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,45, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,45, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,45, 3) = (/ &\n        & 0.23733e+03_rb,0.34135e+03_rb,0.46857e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,45, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,45, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34135e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30486e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,46, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,47, 3) = (/ &\n        & 0.23732e+03_rb,0.34135e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,47, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46856e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,47, 3) = (/ &\n        & 0.23732e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,47, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,47, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34135e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,48, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34135e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46855e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30485e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,49, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,50, 3) = (/ &\n        & 0.23731e+03_rb,0.34136e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,50, 3) = (/ &\n        & 0.23731e+03_rb,0.34134e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,50, 3) = (/ &\n        & 0.23731e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,50, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,50, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,51, 3) = (/ &\n        & 0.23731e+03_rb,0.34136e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,51, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34132e+03_rb,0.46854e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,52, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46851e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,53, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46849e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,54, 3) = (/ &\n        & 0.23730e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34138e+03_rb,0.46847e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34136e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,55, 3) = (/ &\n        & 0.23730e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34139e+03_rb,0.46844e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46850e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,56, 3) = (/ &\n        & 0.23730e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34140e+03_rb,0.46840e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34137e+03_rb,0.46849e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34135e+03_rb,0.46852e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,57, 3) = (/ &\n        & 0.23730e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,57, 3) = (/ &\n        & 0.23729e+03_rb,0.34132e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,58, 3) = (/ &\n        & 0.23730e+03_rb,0.34140e+03_rb,0.46837e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34138e+03_rb,0.46847e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34136e+03_rb,0.46851e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,58, 3) = (/ &\n        & 0.23729e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34141e+03_rb,0.46835e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 2,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34138e+03_rb,0.46846e+03_rb,0.30484e+03_rb,0.17829e+03_rb /)\n      kbo(:, 3,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34136e+03_rb,0.46851e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 4,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34134e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 5,59, 3) = (/ &\n        & 0.23729e+03_rb,0.34133e+03_rb,0.46853e+03_rb,0.30483e+03_rb,0.17829e+03_rb /)\n      kbo(:, 1,13, 4) = (/ &\n        & 0.51214e+03_rb,0.47089e+03_rb,0.53698e+03_rb,0.40623e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,13, 4) = (/ &\n        & 0.50819e+03_rb,0.46793e+03_rb,0.53525e+03_rb,0.40532e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,13, 4) = (/ &\n        & 0.50478e+03_rb,0.46537e+03_rb,0.53379e+03_rb,0.40453e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,13, 4) = (/ &\n        & 0.50182e+03_rb,0.46315e+03_rb,0.53251e+03_rb,0.40385e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,13, 4) = (/ &\n        & 0.49922e+03_rb,0.46120e+03_rb,0.53137e+03_rb,0.40325e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,14, 4) = (/ &\n        & 0.50224e+03_rb,0.46346e+03_rb,0.53224e+03_rb,0.40395e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,14, 4) = (/ &\n        & 0.49905e+03_rb,0.46107e+03_rb,0.53090e+03_rb,0.40321e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,14, 4) = (/ &\n        & 0.49629e+03_rb,0.45901e+03_rb,0.52974e+03_rb,0.40258e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,14, 4) = (/ &\n        & 0.49390e+03_rb,0.45721e+03_rb,0.52871e+03_rb,0.40203e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,14, 4) = (/ &\n        & 0.49179e+03_rb,0.45563e+03_rb,0.52774e+03_rb,0.40154e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,15, 4) = (/ &\n        & 0.49416e+03_rb,0.45741e+03_rb,0.52835e+03_rb,0.40209e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,15, 4) = (/ &\n        & 0.49159e+03_rb,0.45548e+03_rb,0.52725e+03_rb,0.40149e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,15, 4) = (/ &\n        & 0.48937e+03_rb,0.45381e+03_rb,0.52626e+03_rb,0.40098e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,15, 4) = (/ &\n        & 0.48743e+03_rb,0.45236e+03_rb,0.52534e+03_rb,0.40054e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,15, 4) = (/ &\n        & 0.48573e+03_rb,0.45108e+03_rb,0.52448e+03_rb,0.40015e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,16, 4) = (/ &\n        & 0.48759e+03_rb,0.45248e+03_rb,0.52492e+03_rb,0.40057e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,16, 4) = (/ &\n        & 0.48552e+03_rb,0.45092e+03_rb,0.52397e+03_rb,0.40010e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,16, 4) = (/ &\n        & 0.48373e+03_rb,0.44958e+03_rb,0.52310e+03_rb,0.39968e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,16, 4) = (/ &\n        & 0.48216e+03_rb,0.44841e+03_rb,0.52232e+03_rb,0.39932e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,16, 4) = (/ &\n        & 0.48079e+03_rb,0.44738e+03_rb,0.52159e+03_rb,0.39901e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,17, 4) = (/ &\n        & 0.48226e+03_rb,0.44848e+03_rb,0.52188e+03_rb,0.39935e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,17, 4) = (/ &\n        & 0.48059e+03_rb,0.44723e+03_rb,0.52110e+03_rb,0.39896e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,17, 4) = (/ &\n        & 0.47915e+03_rb,0.44615e+03_rb,0.52038e+03_rb,0.39863e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,17, 4) = (/ &\n        & 0.47788e+03_rb,0.44520e+03_rb,0.51974e+03_rb,0.39834e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,17, 4) = (/ &\n        & 0.47677e+03_rb,0.44437e+03_rb,0.51913e+03_rb,0.39808e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,18, 4) = (/ &\n        & 0.47794e+03_rb,0.44524e+03_rb,0.51928e+03_rb,0.39835e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,18, 4) = (/ &\n        & 0.47659e+03_rb,0.44423e+03_rb,0.51865e+03_rb,0.39804e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,18, 4) = (/ &\n        & 0.47542e+03_rb,0.44336e+03_rb,0.51808e+03_rb,0.39777e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,18, 4) = (/ &\n        & 0.47441e+03_rb,0.44259e+03_rb,0.51755e+03_rb,0.39754e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,18, 4) = (/ &\n        & 0.47351e+03_rb,0.44192e+03_rb,0.51705e+03_rb,0.39733e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,19, 4) = (/ &\n        & 0.47443e+03_rb,0.44261e+03_rb,0.51710e+03_rb,0.39754e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,19, 4) = (/ &\n        & 0.47334e+03_rb,0.44179e+03_rb,0.51660e+03_rb,0.39729e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,19, 4) = (/ &\n        & 0.47240e+03_rb,0.44109e+03_rb,0.51615e+03_rb,0.39708e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,19, 4) = (/ &\n        & 0.47158e+03_rb,0.44047e+03_rb,0.51573e+03_rb,0.39689e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,19, 4) = (/ &\n        & 0.47085e+03_rb,0.43993e+03_rb,0.51533e+03_rb,0.39672e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,20, 4) = (/ &\n        & 0.47156e+03_rb,0.44046e+03_rb,0.51527e+03_rb,0.39688e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,20, 4) = (/ &\n        & 0.47069e+03_rb,0.43980e+03_rb,0.51490e+03_rb,0.39668e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,20, 4) = (/ &\n        & 0.46993e+03_rb,0.43924e+03_rb,0.51455e+03_rb,0.39651e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,20, 4) = (/ &\n        & 0.46927e+03_rb,0.43874e+03_rb,0.51422e+03_rb,0.39635e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,20, 4) = (/ &\n        & 0.46868e+03_rb,0.43830e+03_rb,0.51389e+03_rb,0.39622e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,21, 4) = (/ &\n        & 0.46924e+03_rb,0.43872e+03_rb,0.51377e+03_rb,0.39635e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,21, 4) = (/ &\n        & 0.46853e+03_rb,0.43819e+03_rb,0.51350e+03_rb,0.39619e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,21, 4) = (/ &\n        & 0.46792e+03_rb,0.43773e+03_rb,0.51323e+03_rb,0.39604e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,21, 4) = (/ &\n        & 0.46739e+03_rb,0.43733e+03_rb,0.51296e+03_rb,0.39592e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,21, 4) = (/ &\n        & 0.46692e+03_rb,0.43697e+03_rb,0.51263e+03_rb,0.39581e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,22, 4) = (/ &\n        & 0.46731e+03_rb,0.43727e+03_rb,0.51254e+03_rb,0.39590e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,22, 4) = (/ &\n        & 0.46675e+03_rb,0.43685e+03_rb,0.51231e+03_rb,0.39577e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,22, 4) = (/ &\n        & 0.46626e+03_rb,0.43648e+03_rb,0.51212e+03_rb,0.39566e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,22, 4) = (/ &\n        & 0.46584e+03_rb,0.43616e+03_rb,0.51190e+03_rb,0.39556e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,22, 4) = (/ &\n        & 0.46546e+03_rb,0.43588e+03_rb,0.51168e+03_rb,0.39548e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,23, 4) = (/ &\n        & 0.46575e+03_rb,0.43610e+03_rb,0.51153e+03_rb,0.39554e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,23, 4) = (/ &\n        & 0.46531e+03_rb,0.43577e+03_rb,0.51138e+03_rb,0.39544e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,23, 4) = (/ &\n        & 0.46492e+03_rb,0.43548e+03_rb,0.51122e+03_rb,0.39535e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,23, 4) = (/ &\n        & 0.46458e+03_rb,0.43522e+03_rb,0.51104e+03_rb,0.39527e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,23, 4) = (/ &\n        & 0.46427e+03_rb,0.43499e+03_rb,0.51086e+03_rb,0.39520e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,24, 4) = (/ &\n        & 0.46450e+03_rb,0.43516e+03_rb,0.51071e+03_rb,0.39525e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,24, 4) = (/ &\n        & 0.46414e+03_rb,0.43489e+03_rb,0.51060e+03_rb,0.39517e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,24, 4) = (/ &\n        & 0.46383e+03_rb,0.43466e+03_rb,0.51047e+03_rb,0.39510e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,24, 4) = (/ &\n        & 0.46356e+03_rb,0.43445e+03_rb,0.51033e+03_rb,0.39504e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,24, 4) = (/ &\n        & 0.46331e+03_rb,0.43427e+03_rb,0.51019e+03_rb,0.39498e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,25, 4) = (/ &\n        & 0.46348e+03_rb,0.43439e+03_rb,0.51003e+03_rb,0.39502e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,25, 4) = (/ &\n        & 0.46319e+03_rb,0.43418e+03_rb,0.50997e+03_rb,0.39496e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,25, 4) = (/ &\n        & 0.46295e+03_rb,0.43400e+03_rb,0.50987e+03_rb,0.39490e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,25, 4) = (/ &\n        & 0.46273e+03_rb,0.43383e+03_rb,0.50976e+03_rb,0.39485e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,25, 4) = (/ &\n        & 0.46254e+03_rb,0.43369e+03_rb,0.50965e+03_rb,0.39480e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,26, 4) = (/ &\n        & 0.46265e+03_rb,0.43378e+03_rb,0.50951e+03_rb,0.39483e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,26, 4) = (/ &\n        & 0.46243e+03_rb,0.43361e+03_rb,0.50946e+03_rb,0.39478e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,26, 4) = (/ &\n        & 0.46223e+03_rb,0.43346e+03_rb,0.50938e+03_rb,0.39473e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,26, 4) = (/ &\n        & 0.46206e+03_rb,0.43333e+03_rb,0.50930e+03_rb,0.39469e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,26, 4) = (/ &\n        & 0.46190e+03_rb,0.43321e+03_rb,0.50921e+03_rb,0.39466e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,27, 4) = (/ &\n        & 0.46199e+03_rb,0.43328e+03_rb,0.50908e+03_rb,0.39468e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,27, 4) = (/ &\n        & 0.46181e+03_rb,0.43314e+03_rb,0.50904e+03_rb,0.39464e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,27, 4) = (/ &\n        & 0.46165e+03_rb,0.43303e+03_rb,0.50899e+03_rb,0.39460e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,27, 4) = (/ &\n        & 0.46152e+03_rb,0.43292e+03_rb,0.50892e+03_rb,0.39457e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,27, 4) = (/ &\n        & 0.46139e+03_rb,0.43283e+03_rb,0.50885e+03_rb,0.39454e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,28, 4) = (/ &\n        & 0.46145e+03_rb,0.43288e+03_rb,0.50873e+03_rb,0.39455e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,28, 4) = (/ &\n        & 0.46131e+03_rb,0.43277e+03_rb,0.50871e+03_rb,0.39452e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,28, 4) = (/ &\n        & 0.46119e+03_rb,0.43268e+03_rb,0.50867e+03_rb,0.39449e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,28, 4) = (/ &\n        & 0.46108e+03_rb,0.43259e+03_rb,0.50862e+03_rb,0.39447e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,28, 4) = (/ &\n        & 0.46098e+03_rb,0.43252e+03_rb,0.50856e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,29, 4) = (/ &\n        & 0.46102e+03_rb,0.43255e+03_rb,0.50845e+03_rb,0.39445e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,29, 4) = (/ &\n        & 0.46091e+03_rb,0.43247e+03_rb,0.50844e+03_rb,0.39443e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,29, 4) = (/ &\n        & 0.46081e+03_rb,0.43239e+03_rb,0.50842e+03_rb,0.39441e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,29, 4) = (/ &\n        & 0.46072e+03_rb,0.43233e+03_rb,0.50837e+03_rb,0.39439e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,29, 4) = (/ &\n        & 0.46064e+03_rb,0.43227e+03_rb,0.50832e+03_rb,0.39437e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,30, 4) = (/ &\n        & 0.46067e+03_rb,0.43229e+03_rb,0.50823e+03_rb,0.39437e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,30, 4) = (/ &\n        & 0.46058e+03_rb,0.43223e+03_rb,0.50823e+03_rb,0.39435e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,30, 4) = (/ &\n        & 0.46051e+03_rb,0.43217e+03_rb,0.50821e+03_rb,0.39434e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,30, 4) = (/ &\n        & 0.46044e+03_rb,0.43211e+03_rb,0.50818e+03_rb,0.39432e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,30, 4) = (/ &\n        & 0.46037e+03_rb,0.43207e+03_rb,0.50813e+03_rb,0.39431e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,31, 4) = (/ &\n        & 0.46039e+03_rb,0.43208e+03_rb,0.50805e+03_rb,0.39431e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,31, 4) = (/ &\n        & 0.46032e+03_rb,0.43203e+03_rb,0.50805e+03_rb,0.39429e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,31, 4) = (/ &\n        & 0.46026e+03_rb,0.43198e+03_rb,0.50804e+03_rb,0.39428e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,31, 4) = (/ &\n        & 0.46021e+03_rb,0.43194e+03_rb,0.50801e+03_rb,0.39427e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,31, 4) = (/ &\n        & 0.46016e+03_rb,0.43190e+03_rb,0.50797e+03_rb,0.39426e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,32, 4) = (/ &\n        & 0.46017e+03_rb,0.43191e+03_rb,0.50790e+03_rb,0.39426e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,32, 4) = (/ &\n        & 0.46011e+03_rb,0.43187e+03_rb,0.50792e+03_rb,0.39425e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,32, 4) = (/ &\n        & 0.46006e+03_rb,0.43183e+03_rb,0.50791e+03_rb,0.39423e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,32, 4) = (/ &\n        & 0.46002e+03_rb,0.43180e+03_rb,0.50788e+03_rb,0.39422e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,32, 4) = (/ &\n        & 0.45998e+03_rb,0.43177e+03_rb,0.50784e+03_rb,0.39421e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,33, 4) = (/ &\n        & 0.45999e+03_rb,0.43178e+03_rb,0.50779e+03_rb,0.39422e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,33, 4) = (/ &\n        & 0.45994e+03_rb,0.43174e+03_rb,0.50781e+03_rb,0.39421e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,33, 4) = (/ &\n        & 0.45990e+03_rb,0.43171e+03_rb,0.50780e+03_rb,0.39420e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,33, 4) = (/ &\n        & 0.45987e+03_rb,0.43169e+03_rb,0.50777e+03_rb,0.39419e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,33, 4) = (/ &\n        & 0.45984e+03_rb,0.43166e+03_rb,0.50773e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,34, 4) = (/ &\n        & 0.45984e+03_rb,0.43167e+03_rb,0.50770e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,34, 4) = (/ &\n        & 0.45981e+03_rb,0.43164e+03_rb,0.50772e+03_rb,0.39418e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,34, 4) = (/ &\n        & 0.45978e+03_rb,0.43162e+03_rb,0.50771e+03_rb,0.39417e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,34, 4) = (/ &\n        & 0.45975e+03_rb,0.43160e+03_rb,0.50768e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,34, 4) = (/ &\n        & 0.45972e+03_rb,0.43158e+03_rb,0.50764e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,35, 4) = (/ &\n        & 0.45973e+03_rb,0.43158e+03_rb,0.50763e+03_rb,0.39416e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,35, 4) = (/ &\n        & 0.45970e+03_rb,0.43156e+03_rb,0.50764e+03_rb,0.39415e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,35, 4) = (/ &\n        & 0.45968e+03_rb,0.43154e+03_rb,0.50764e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,35, 4) = (/ &\n        & 0.45965e+03_rb,0.43153e+03_rb,0.50761e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,35, 4) = (/ &\n        & 0.45963e+03_rb,0.43151e+03_rb,0.50757e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,36, 4) = (/ &\n        & 0.45964e+03_rb,0.43152e+03_rb,0.50757e+03_rb,0.39414e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,36, 4) = (/ &\n        & 0.45962e+03_rb,0.43150e+03_rb,0.50758e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,36, 4) = (/ &\n        & 0.45960e+03_rb,0.43148e+03_rb,0.50758e+03_rb,0.39413e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,36, 4) = (/ &\n        & 0.45958e+03_rb,0.43147e+03_rb,0.50756e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,36, 4) = (/ &\n        & 0.45956e+03_rb,0.43146e+03_rb,0.50752e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,37, 4) = (/ &\n        & 0.45957e+03_rb,0.43146e+03_rb,0.50751e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,37, 4) = (/ &\n        & 0.45955e+03_rb,0.43145e+03_rb,0.50753e+03_rb,0.39412e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,37, 4) = (/ &\n        & 0.45953e+03_rb,0.43144e+03_rb,0.50754e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,37, 4) = (/ &\n        & 0.45952e+03_rb,0.43142e+03_rb,0.50752e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,37, 4) = (/ &\n        & 0.45950e+03_rb,0.43141e+03_rb,0.50748e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,38, 4) = (/ &\n        & 0.45951e+03_rb,0.43142e+03_rb,0.50746e+03_rb,0.39411e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,38, 4) = (/ &\n        & 0.45950e+03_rb,0.43141e+03_rb,0.50749e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,38, 4) = (/ &\n        & 0.45948e+03_rb,0.43140e+03_rb,0.50750e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,38, 4) = (/ &\n        & 0.45947e+03_rb,0.43139e+03_rb,0.50749e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,38, 4) = (/ &\n        & 0.45946e+03_rb,0.43138e+03_rb,0.50745e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,39, 4) = (/ &\n        & 0.45946e+03_rb,0.43138e+03_rb,0.50742e+03_rb,0.39410e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,39, 4) = (/ &\n        & 0.45945e+03_rb,0.43137e+03_rb,0.50746e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,39, 4) = (/ &\n        & 0.45944e+03_rb,0.43137e+03_rb,0.50747e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,39, 4) = (/ &\n        & 0.45943e+03_rb,0.43136e+03_rb,0.50746e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,39, 4) = (/ &\n        & 0.45942e+03_rb,0.43135e+03_rb,0.50743e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,40, 4) = (/ &\n        & 0.45943e+03_rb,0.43136e+03_rb,0.50738e+03_rb,0.39409e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,40, 4) = (/ &\n        & 0.45941e+03_rb,0.43135e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,40, 4) = (/ &\n        & 0.45940e+03_rb,0.43134e+03_rb,0.50744e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,40, 4) = (/ &\n        & 0.45940e+03_rb,0.43133e+03_rb,0.50744e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,40, 4) = (/ &\n        & 0.45939e+03_rb,0.43133e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,41, 4) = (/ &\n        & 0.45939e+03_rb,0.43133e+03_rb,0.50734e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,41, 4) = (/ &\n        & 0.45938e+03_rb,0.43133e+03_rb,0.50739e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,41, 4) = (/ &\n        & 0.45938e+03_rb,0.43132e+03_rb,0.50742e+03_rb,0.39408e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,41, 4) = (/ &\n        & 0.45937e+03_rb,0.43131e+03_rb,0.50742e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,41, 4) = (/ &\n        & 0.45936e+03_rb,0.43131e+03_rb,0.50741e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,42, 4) = (/ &\n        & 0.45937e+03_rb,0.43131e+03_rb,0.50731e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,42, 4) = (/ &\n        & 0.45936e+03_rb,0.43131e+03_rb,0.50736e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,42, 4) = (/ &\n        & 0.45935e+03_rb,0.43130e+03_rb,0.50739e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,42, 4) = (/ &\n        & 0.45935e+03_rb,0.43130e+03_rb,0.50741e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,42, 4) = (/ &\n        & 0.45934e+03_rb,0.43129e+03_rb,0.50740e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,43, 4) = (/ &\n        & 0.45935e+03_rb,0.43130e+03_rb,0.50727e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,43, 4) = (/ &\n        & 0.45934e+03_rb,0.43129e+03_rb,0.50733e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,43, 4) = (/ &\n        & 0.45933e+03_rb,0.43129e+03_rb,0.50737e+03_rb,0.39407e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,43, 4) = (/ &\n        & 0.45933e+03_rb,0.43128e+03_rb,0.50739e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,43, 4) = (/ &\n        & 0.45932e+03_rb,0.43128e+03_rb,0.50739e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,44, 4) = (/ &\n        & 0.45933e+03_rb,0.43128e+03_rb,0.50723e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,44, 4) = (/ &\n        & 0.45932e+03_rb,0.43128e+03_rb,0.50730e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,44, 4) = (/ &\n        & 0.45932e+03_rb,0.43128e+03_rb,0.50735e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,44, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50737e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,44, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50738e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,45, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50718e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,45, 4) = (/ &\n        & 0.45931e+03_rb,0.43127e+03_rb,0.50727e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,45, 4) = (/ &\n        & 0.45930e+03_rb,0.43127e+03_rb,0.50732e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,45, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50736e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,45, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50737e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,46, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50714e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,46, 4) = (/ &\n        & 0.45930e+03_rb,0.43126e+03_rb,0.50723e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,46, 4) = (/ &\n        & 0.45929e+03_rb,0.43126e+03_rb,0.50730e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,46, 4) = (/ &\n        & 0.45929e+03_rb,0.43125e+03_rb,0.50734e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,46, 4) = (/ &\n        & 0.45929e+03_rb,0.43125e+03_rb,0.50736e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,47, 4) = (/ &\n        & 0.45929e+03_rb,0.43126e+03_rb,0.50708e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,47, 4) = (/ &\n        & 0.45929e+03_rb,0.43125e+03_rb,0.50719e+03_rb,0.39406e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,47, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50727e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,47, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50732e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,47, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50735e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,48, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,48, 4) = (/ &\n        & 0.45928e+03_rb,0.43125e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,48, 4) = (/ &\n        & 0.45928e+03_rb,0.43124e+03_rb,0.50723e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,48, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50729e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,48, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50733e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,49, 4) = (/ &\n        & 0.45928e+03_rb,0.43124e+03_rb,0.50694e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50709e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50720e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50727e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,49, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50732e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,50, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50686e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,50, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50704e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,50, 4) = (/ &\n        & 0.45927e+03_rb,0.43124e+03_rb,0.50716e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,50, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50724e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,50, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50730e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43124e+03_rb,0.50679e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50697e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50711e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50721e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,51, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50728e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50671e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50691e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50707e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,52, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50718e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,52, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50725e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,53, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50663e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,53, 4) = (/ &\n        & 0.45926e+03_rb,0.43123e+03_rb,0.50684e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,53, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,53, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,53, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50722e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50655e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50677e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50696e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50710e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,54, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50720e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43123e+03_rb,0.50647e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50670e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50690e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50706e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,55, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50717e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50640e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50663e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50683e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50701e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,56, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50714e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50632e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50656e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50677e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,57, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50696e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,57, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50710e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,58, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50624e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,58, 4) = (/ &\n        & 0.45925e+03_rb,0.43122e+03_rb,0.50648e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,58, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50671e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,58, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50690e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,58, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50706e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50622e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 2,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50645e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 3,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50668e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 4,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50688e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 5,59, 4) = (/ &\n        & 0.45924e+03_rb,0.43122e+03_rb,0.50704e+03_rb,0.39405e+03_rb,0.38437e+03_rb /)\n      kbo(:, 1,13, 5) = (/ &\n        & 0.78037e+03_rb,0.62743e+03_rb,0.56495e+03_rb,0.56633e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,13, 5) = (/ &\n        & 0.77434e+03_rb,0.62291e+03_rb,0.56343e+03_rb,0.56584e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,13, 5) = (/ &\n        & 0.76915e+03_rb,0.61902e+03_rb,0.56189e+03_rb,0.56542e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,13, 5) = (/ &\n        & 0.76464e+03_rb,0.61563e+03_rb,0.56027e+03_rb,0.56506e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,13, 5) = (/ &\n        & 0.76068e+03_rb,0.61266e+03_rb,0.55865e+03_rb,0.56474e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,14, 5) = (/ &\n        & 0.76527e+03_rb,0.61611e+03_rb,0.56011e+03_rb,0.56511e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,14, 5) = (/ &\n        & 0.76041e+03_rb,0.61246e+03_rb,0.55859e+03_rb,0.56472e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,14, 5) = (/ &\n        & 0.75622e+03_rb,0.60932e+03_rb,0.55696e+03_rb,0.56438e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,14, 5) = (/ &\n        & 0.75257e+03_rb,0.60658e+03_rb,0.55539e+03_rb,0.56408e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,14, 5) = (/ &\n        & 0.74936e+03_rb,0.60417e+03_rb,0.55391e+03_rb,0.56383e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,15, 5) = (/ &\n        & 0.75296e+03_rb,0.60688e+03_rb,0.55521e+03_rb,0.56412e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,15, 5) = (/ &\n        & 0.74904e+03_rb,0.60394e+03_rb,0.55372e+03_rb,0.56380e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,15, 5) = (/ &\n        & 0.74566e+03_rb,0.60140e+03_rb,0.55235e+03_rb,0.56353e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,15, 5) = (/ &\n        & 0.74271e+03_rb,0.59919e+03_rb,0.55103e+03_rb,0.56329e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,15, 5) = (/ &\n        & 0.74012e+03_rb,0.59724e+03_rb,0.54977e+03_rb,0.56308e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,16, 5) = (/ &\n        & 0.74295e+03_rb,0.59937e+03_rb,0.55079e+03_rb,0.56331e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,16, 5) = (/ &\n        & 0.73979e+03_rb,0.59700e+03_rb,0.54953e+03_rb,0.56305e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,16, 5) = (/ &\n        & 0.73707e+03_rb,0.59495e+03_rb,0.54828e+03_rb,0.56283e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,16, 5) = (/ &\n        & 0.73469e+03_rb,0.59317e+03_rb,0.54708e+03_rb,0.56264e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,16, 5) = (/ &\n        & 0.73259e+03_rb,0.59160e+03_rb,0.54600e+03_rb,0.56247e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,17, 5) = (/ &\n        & 0.73483e+03_rb,0.59328e+03_rb,0.54695e+03_rb,0.56265e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,17, 5) = (/ &\n        & 0.73229e+03_rb,0.59137e+03_rb,0.54572e+03_rb,0.56245e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,17, 5) = (/ &\n        & 0.73009e+03_rb,0.58972e+03_rb,0.54462e+03_rb,0.56227e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,17, 5) = (/ &\n        & 0.72817e+03_rb,0.58828e+03_rb,0.54366e+03_rb,0.56212e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,17, 5) = (/ &\n        & 0.72647e+03_rb,0.58701e+03_rb,0.54281e+03_rb,0.56198e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,18, 5) = (/ &\n        & 0.72825e+03_rb,0.58834e+03_rb,0.54354e+03_rb,0.56212e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,18, 5) = (/ &\n        & 0.72619e+03_rb,0.58680e+03_rb,0.54253e+03_rb,0.56196e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,18, 5) = (/ &\n        & 0.72442e+03_rb,0.58547e+03_rb,0.54166e+03_rb,0.56181e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,18, 5) = (/ &\n        & 0.72286e+03_rb,0.58430e+03_rb,0.54091e+03_rb,0.56169e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,18, 5) = (/ &\n        & 0.72150e+03_rb,0.58328e+03_rb,0.54024e+03_rb,0.56158e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,19, 5) = (/ &\n        & 0.72290e+03_rb,0.58433e+03_rb,0.54075e+03_rb,0.56169e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,19, 5) = (/ &\n        & 0.72124e+03_rb,0.58309e+03_rb,0.53996e+03_rb,0.56156e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,19, 5) = (/ &\n        & 0.71981e+03_rb,0.58201e+03_rb,0.53928e+03_rb,0.56144e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,19, 5) = (/ &\n        & 0.71856e+03_rb,0.58107e+03_rb,0.53868e+03_rb,0.56134e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,19, 5) = (/ &\n        & 0.71745e+03_rb,0.58024e+03_rb,0.53816e+03_rb,0.56125e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,20, 5) = (/ &\n        & 0.71853e+03_rb,0.58105e+03_rb,0.53849e+03_rb,0.56134e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,20, 5) = (/ &\n        & 0.71720e+03_rb,0.58006e+03_rb,0.53788e+03_rb,0.56123e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,20, 5) = (/ &\n        & 0.71605e+03_rb,0.57919e+03_rb,0.53734e+03_rb,0.56114e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,20, 5) = (/ &\n        & 0.71504e+03_rb,0.57843e+03_rb,0.53687e+03_rb,0.56106e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,20, 5) = (/ &\n        & 0.71414e+03_rb,0.57776e+03_rb,0.53643e+03_rb,0.56098e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,21, 5) = (/ &\n        & 0.71499e+03_rb,0.57840e+03_rb,0.53667e+03_rb,0.56105e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,21, 5) = (/ &\n        & 0.71392e+03_rb,0.57759e+03_rb,0.53620e+03_rb,0.56097e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,21, 5) = (/ &\n        & 0.71299e+03_rb,0.57690e+03_rb,0.53578e+03_rb,0.56089e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,21, 5) = (/ &\n        & 0.71217e+03_rb,0.57628e+03_rb,0.53541e+03_rb,0.56083e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,21, 5) = (/ &\n        & 0.71145e+03_rb,0.57574e+03_rb,0.53506e+03_rb,0.56077e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,22, 5) = (/ &\n        & 0.71206e+03_rb,0.57620e+03_rb,0.53519e+03_rb,0.56082e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,22, 5) = (/ &\n        & 0.71120e+03_rb,0.57555e+03_rb,0.53482e+03_rb,0.56075e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,22, 5) = (/ &\n        & 0.71046e+03_rb,0.57500e+03_rb,0.53450e+03_rb,0.56069e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,22, 5) = (/ &\n        & 0.70981e+03_rb,0.57451e+03_rb,0.53420e+03_rb,0.56064e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,22, 5) = (/ &\n        & 0.70923e+03_rb,0.57408e+03_rb,0.53390e+03_rb,0.56059e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,23, 5) = (/ &\n        & 0.70968e+03_rb,0.57442e+03_rb,0.53396e+03_rb,0.56063e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,23, 5) = (/ &\n        & 0.70900e+03_rb,0.57391e+03_rb,0.53367e+03_rb,0.56057e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,23, 5) = (/ &\n        & 0.70841e+03_rb,0.57346e+03_rb,0.53341e+03_rb,0.56052e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,23, 5) = (/ &\n        & 0.70789e+03_rb,0.57307e+03_rb,0.53316e+03_rb,0.56048e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,23, 5) = (/ &\n        & 0.70743e+03_rb,0.57272e+03_rb,0.53290e+03_rb,0.56044e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,24, 5) = (/ &\n        & 0.70776e+03_rb,0.57298e+03_rb,0.53293e+03_rb,0.56047e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,24, 5) = (/ &\n        & 0.70722e+03_rb,0.57257e+03_rb,0.53269e+03_rb,0.56043e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,24, 5) = (/ &\n        & 0.70675e+03_rb,0.57222e+03_rb,0.53248e+03_rb,0.56039e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,24, 5) = (/ &\n        & 0.70633e+03_rb,0.57190e+03_rb,0.53228e+03_rb,0.56036e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,24, 5) = (/ &\n        & 0.70596e+03_rb,0.57163e+03_rb,0.53207e+03_rb,0.56033e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,25, 5) = (/ &\n        & 0.70621e+03_rb,0.57181e+03_rb,0.53206e+03_rb,0.56035e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,25, 5) = (/ &\n        & 0.70578e+03_rb,0.57149e+03_rb,0.53188e+03_rb,0.56031e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,25, 5) = (/ &\n        & 0.70541e+03_rb,0.57121e+03_rb,0.53172e+03_rb,0.56028e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,25, 5) = (/ &\n        & 0.70507e+03_rb,0.57096e+03_rb,0.53156e+03_rb,0.56025e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,25, 5) = (/ &\n        & 0.70478e+03_rb,0.57074e+03_rb,0.53138e+03_rb,0.56023e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,26, 5) = (/ &\n        & 0.70496e+03_rb,0.57087e+03_rb,0.53135e+03_rb,0.56024e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,26, 5) = (/ &\n        & 0.70461e+03_rb,0.57061e+03_rb,0.53122e+03_rb,0.56022e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,26, 5) = (/ &\n        & 0.70432e+03_rb,0.57039e+03_rb,0.53110e+03_rb,0.56019e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,26, 5) = (/ &\n        & 0.70405e+03_rb,0.57019e+03_rb,0.53097e+03_rb,0.56017e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,26, 5) = (/ &\n        & 0.70382e+03_rb,0.57001e+03_rb,0.53082e+03_rb,0.56015e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,27, 5) = (/ &\n        & 0.70394e+03_rb,0.57011e+03_rb,0.53077e+03_rb,0.56016e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,27, 5) = (/ &\n        & 0.70367e+03_rb,0.56991e+03_rb,0.53069e+03_rb,0.56014e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,27, 5) = (/ &\n        & 0.70343e+03_rb,0.56973e+03_rb,0.53060e+03_rb,0.56012e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,27, 5) = (/ &\n        & 0.70322e+03_rb,0.56957e+03_rb,0.53049e+03_rb,0.56010e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,27, 5) = (/ &\n        & 0.70304e+03_rb,0.56943e+03_rb,0.53036e+03_rb,0.56009e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,28, 5) = (/ &\n        & 0.70313e+03_rb,0.56950e+03_rb,0.53032e+03_rb,0.56010e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,28, 5) = (/ &\n        & 0.70291e+03_rb,0.56934e+03_rb,0.53026e+03_rb,0.56008e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,28, 5) = (/ &\n        & 0.70272e+03_rb,0.56920e+03_rb,0.53019e+03_rb,0.56006e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,28, 5) = (/ &\n        & 0.70256e+03_rb,0.56907e+03_rb,0.53010e+03_rb,0.56005e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,28, 5) = (/ &\n        & 0.70241e+03_rb,0.56896e+03_rb,0.52998e+03_rb,0.56004e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,29, 5) = (/ &\n        & 0.70247e+03_rb,0.56901e+03_rb,0.52995e+03_rb,0.56004e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,29, 5) = (/ &\n        & 0.70230e+03_rb,0.56888e+03_rb,0.52991e+03_rb,0.56003e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,29, 5) = (/ &\n        & 0.70215e+03_rb,0.56877e+03_rb,0.52985e+03_rb,0.56002e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,29, 5) = (/ &\n        & 0.70202e+03_rb,0.56867e+03_rb,0.52978e+03_rb,0.56001e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,29, 5) = (/ &\n        & 0.70190e+03_rb,0.56858e+03_rb,0.52967e+03_rb,0.56000e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,30, 5) = (/ &\n        & 0.70194e+03_rb,0.56861e+03_rb,0.52966e+03_rb,0.56000e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,30, 5) = (/ &\n        & 0.70181e+03_rb,0.56851e+03_rb,0.52963e+03_rb,0.55999e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,30, 5) = (/ &\n        & 0.70169e+03_rb,0.56842e+03_rb,0.52958e+03_rb,0.55998e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,30, 5) = (/ &\n        & 0.70158e+03_rb,0.56834e+03_rb,0.52951e+03_rb,0.55997e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,30, 5) = (/ &\n        & 0.70149e+03_rb,0.56827e+03_rb,0.52941e+03_rb,0.55996e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,31, 5) = (/ &\n        & 0.70151e+03_rb,0.56829e+03_rb,0.52942e+03_rb,0.55997e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,31, 5) = (/ &\n        & 0.70141e+03_rb,0.56821e+03_rb,0.52941e+03_rb,0.55996e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,31, 5) = (/ &\n        & 0.70131e+03_rb,0.56814e+03_rb,0.52936e+03_rb,0.55995e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,31, 5) = (/ &\n        & 0.70123e+03_rb,0.56807e+03_rb,0.52930e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,31, 5) = (/ &\n        & 0.70115e+03_rb,0.56802e+03_rb,0.52920e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,32, 5) = (/ &\n        & 0.70117e+03_rb,0.56803e+03_rb,0.52924e+03_rb,0.55994e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,32, 5) = (/ &\n        & 0.70109e+03_rb,0.56797e+03_rb,0.52922e+03_rb,0.55993e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,32, 5) = (/ &\n        & 0.70101e+03_rb,0.56791e+03_rb,0.52919e+03_rb,0.55993e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,32, 5) = (/ &\n        & 0.70094e+03_rb,0.56786e+03_rb,0.52912e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,32, 5) = (/ &\n        & 0.70088e+03_rb,0.56782e+03_rb,0.52902e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,33, 5) = (/ &\n        & 0.70090e+03_rb,0.56782e+03_rb,0.52908e+03_rb,0.55992e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,33, 5) = (/ &\n        & 0.70083e+03_rb,0.56777e+03_rb,0.52907e+03_rb,0.55991e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,33, 5) = (/ &\n        & 0.70077e+03_rb,0.56773e+03_rb,0.52904e+03_rb,0.55991e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,33, 5) = (/ &\n        & 0.70072e+03_rb,0.56769e+03_rb,0.52897e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,33, 5) = (/ &\n        & 0.70067e+03_rb,0.56765e+03_rb,0.52887e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,34, 5) = (/ &\n        & 0.70068e+03_rb,0.56766e+03_rb,0.52896e+03_rb,0.55990e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,34, 5) = (/ &\n        & 0.70062e+03_rb,0.56762e+03_rb,0.52895e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,34, 5) = (/ &\n        & 0.70057e+03_rb,0.56758e+03_rb,0.52892e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,34, 5) = (/ &\n        & 0.70053e+03_rb,0.56755e+03_rb,0.52885e+03_rb,0.55989e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,34, 5) = (/ &\n        & 0.70049e+03_rb,0.56752e+03_rb,0.52874e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,35, 5) = (/ &\n        & 0.70050e+03_rb,0.56753e+03_rb,0.52886e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,35, 5) = (/ &\n        & 0.70046e+03_rb,0.56750e+03_rb,0.52885e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,35, 5) = (/ &\n        & 0.70042e+03_rb,0.56747e+03_rb,0.52883e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,35, 5) = (/ &\n        & 0.70039e+03_rb,0.56744e+03_rb,0.52876e+03_rb,0.55988e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,35, 5) = (/ &\n        & 0.70035e+03_rb,0.56742e+03_rb,0.52864e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,36, 5) = (/ &\n        & 0.70037e+03_rb,0.56743e+03_rb,0.52877e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,36, 5) = (/ &\n        & 0.70033e+03_rb,0.56740e+03_rb,0.52878e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,36, 5) = (/ &\n        & 0.70030e+03_rb,0.56738e+03_rb,0.52875e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,36, 5) = (/ &\n        & 0.70027e+03_rb,0.56736e+03_rb,0.52869e+03_rb,0.55987e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,36, 5) = (/ &\n        & 0.70025e+03_rb,0.56734e+03_rb,0.52857e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,37, 5) = (/ &\n        & 0.70026e+03_rb,0.56735e+03_rb,0.52870e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,37, 5) = (/ &\n        & 0.70023e+03_rb,0.56733e+03_rb,0.52872e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,37, 5) = (/ &\n        & 0.70020e+03_rb,0.56731e+03_rb,0.52870e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,37, 5) = (/ &\n        & 0.70018e+03_rb,0.56729e+03_rb,0.52864e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,37, 5) = (/ &\n        & 0.70016e+03_rb,0.56727e+03_rb,0.52854e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,38, 5) = (/ &\n        & 0.70017e+03_rb,0.56728e+03_rb,0.52864e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,38, 5) = (/ &\n        & 0.70015e+03_rb,0.56726e+03_rb,0.52866e+03_rb,0.55986e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,38, 5) = (/ &\n        & 0.70012e+03_rb,0.56725e+03_rb,0.52866e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,38, 5) = (/ &\n        & 0.70010e+03_rb,0.56723e+03_rb,0.52860e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,38, 5) = (/ &\n        & 0.70009e+03_rb,0.56722e+03_rb,0.52852e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,39, 5) = (/ &\n        & 0.70010e+03_rb,0.56723e+03_rb,0.52860e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,39, 5) = (/ &\n        & 0.70008e+03_rb,0.56721e+03_rb,0.52862e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,39, 5) = (/ &\n        & 0.70006e+03_rb,0.56720e+03_rb,0.52861e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,39, 5) = (/ &\n        & 0.70004e+03_rb,0.56719e+03_rb,0.52858e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,39, 5) = (/ &\n        & 0.70003e+03_rb,0.56717e+03_rb,0.52850e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,40, 5) = (/ &\n        & 0.70004e+03_rb,0.56718e+03_rb,0.52855e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,40, 5) = (/ &\n        & 0.70002e+03_rb,0.56717e+03_rb,0.52858e+03_rb,0.55985e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,40, 5) = (/ &\n        & 0.70001e+03_rb,0.56716e+03_rb,0.52859e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,40, 5) = (/ &\n        & 0.69999e+03_rb,0.56715e+03_rb,0.52856e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,40, 5) = (/ &\n        & 0.69998e+03_rb,0.56714e+03_rb,0.52849e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,41, 5) = (/ &\n        & 0.69999e+03_rb,0.56715e+03_rb,0.52850e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,41, 5) = (/ &\n        & 0.69998e+03_rb,0.56714e+03_rb,0.52854e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,41, 5) = (/ &\n        & 0.69996e+03_rb,0.56713e+03_rb,0.52856e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,41, 5) = (/ &\n        & 0.69995e+03_rb,0.56712e+03_rb,0.52854e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,41, 5) = (/ &\n        & 0.69994e+03_rb,0.56711e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,42, 5) = (/ &\n        & 0.69995e+03_rb,0.56712e+03_rb,0.52846e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,42, 5) = (/ &\n        & 0.69994e+03_rb,0.56711e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,42, 5) = (/ &\n        & 0.69993e+03_rb,0.56710e+03_rb,0.52853e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,42, 5) = (/ &\n        & 0.69992e+03_rb,0.56709e+03_rb,0.52853e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,42, 5) = (/ &\n        & 0.69991e+03_rb,0.56709e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,43, 5) = (/ &\n        & 0.69992e+03_rb,0.56709e+03_rb,0.52843e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,43, 5) = (/ &\n        & 0.69991e+03_rb,0.56708e+03_rb,0.52848e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,43, 5) = (/ &\n        & 0.69990e+03_rb,0.56708e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,43, 5) = (/ &\n        & 0.69989e+03_rb,0.56707e+03_rb,0.52851e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,43, 5) = (/ &\n        & 0.69988e+03_rb,0.56707e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,44, 5) = (/ &\n        & 0.69989e+03_rb,0.56707e+03_rb,0.52838e+03_rb,0.55984e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,44, 5) = (/ &\n        & 0.69988e+03_rb,0.56707e+03_rb,0.52844e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,44, 5) = (/ &\n        & 0.69988e+03_rb,0.56706e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,44, 5) = (/ &\n        & 0.69987e+03_rb,0.56705e+03_rb,0.52850e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,44, 5) = (/ &\n        & 0.69986e+03_rb,0.56705e+03_rb,0.52849e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,45, 5) = (/ &\n        & 0.69987e+03_rb,0.56706e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,45, 5) = (/ &\n        & 0.69986e+03_rb,0.56705e+03_rb,0.52841e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,45, 5) = (/ &\n        & 0.69986e+03_rb,0.56704e+03_rb,0.52846e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,45, 5) = (/ &\n        & 0.69985e+03_rb,0.56704e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,45, 5) = (/ &\n        & 0.69984e+03_rb,0.56704e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,46, 5) = (/ &\n        & 0.69985e+03_rb,0.56704e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,46, 5) = (/ &\n        & 0.69984e+03_rb,0.56704e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,46, 5) = (/ &\n        & 0.69984e+03_rb,0.56703e+03_rb,0.52843e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,46, 5) = (/ &\n        & 0.69983e+03_rb,0.56703e+03_rb,0.52847e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,46, 5) = (/ &\n        & 0.69983e+03_rb,0.56703e+03_rb,0.52848e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,47, 5) = (/ &\n        & 0.69984e+03_rb,0.56703e+03_rb,0.52826e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,47, 5) = (/ &\n        & 0.69983e+03_rb,0.56703e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,47, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52840e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,47, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52845e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,47, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52847e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,48, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52821e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,48, 5) = (/ &\n        & 0.69982e+03_rb,0.56702e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,48, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,48, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52842e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,48, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52845e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,49, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52817e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,49, 5) = (/ &\n        & 0.69981e+03_rb,0.56701e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,49, 5) = (/ &\n        & 0.69980e+03_rb,0.56701e+03_rb,0.52833e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,49, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52840e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,49, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52844e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,50, 5) = (/ &\n        & 0.69980e+03_rb,0.56701e+03_rb,0.52812e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,50, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52821e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,50, 5) = (/ &\n        & 0.69980e+03_rb,0.56700e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,50, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52837e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,50, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52842e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52807e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56700e+03_rb,0.52818e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52827e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,51, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52834e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,51, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52841e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,52, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52802e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,52, 5) = (/ &\n        & 0.69979e+03_rb,0.56699e+03_rb,0.52814e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,52, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52823e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,52, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52831e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,52, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52838e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52798e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52809e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52820e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,53, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52828e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,53, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52836e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,54, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52794e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,54, 5) = (/ &\n        & 0.69978e+03_rb,0.56699e+03_rb,0.52804e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,54, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52816e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,54, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,54, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52833e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52790e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52801e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52812e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52822e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,55, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52830e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52786e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52797e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52808e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52819e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,56, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52827e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,57, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52781e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,57, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52794e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,57, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52805e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,57, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52815e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,57, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52825e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,58, 5) = (/ &\n        & 0.69977e+03_rb,0.56698e+03_rb,0.52777e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52790e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52801e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52812e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,58, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52822e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52775e+03_rb,0.55983e+03_rb,0.67117e+03_rb /)\n      kbo(:, 2,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56698e+03_rb,0.52788e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 3,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52801e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 4,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52811e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 5,59, 5) = (/ &\n        & 0.69976e+03_rb,0.56697e+03_rb,0.52821e+03_rb,0.55982e+03_rb,0.67117e+03_rb /)\n      kbo(:, 1,13, 6) = (/ &\n        & 0.99182e+03_rb,0.76479e+03_rb,0.58123e+03_rb,0.73928e+03_rb,0.94808e+03_rb /)\n      kbo(:, 2,13, 6) = (/ &\n        & 0.98417e+03_rb,0.75904e+03_rb,0.57888e+03_rb,0.73991e+03_rb,0.94920e+03_rb /)\n      kbo(:, 3,13, 6) = (/ &\n        & 0.97757e+03_rb,0.75410e+03_rb,0.57650e+03_rb,0.74029e+03_rb,0.94995e+03_rb /)\n      kbo(:, 4,13, 6) = (/ &\n        & 0.97184e+03_rb,0.74980e+03_rb,0.57428e+03_rb,0.74046e+03_rb,0.95033e+03_rb /)\n      kbo(:, 5,13, 6) = (/ &\n        & 0.96680e+03_rb,0.74602e+03_rb,0.57217e+03_rb,0.74043e+03_rb,0.95033e+03_rb /)\n      kbo(:, 1,14, 6) = (/ &\n        & 0.97264e+03_rb,0.75040e+03_rb,0.57482e+03_rb,0.73884e+03_rb,0.94820e+03_rb /)\n      kbo(:, 2,14, 6) = (/ &\n        & 0.96646e+03_rb,0.74576e+03_rb,0.57229e+03_rb,0.73949e+03_rb,0.94928e+03_rb /)\n      kbo(:, 3,14, 6) = (/ &\n        & 0.96113e+03_rb,0.74177e+03_rb,0.57016e+03_rb,0.73988e+03_rb,0.95000e+03_rb /)\n      kbo(:, 4,14, 6) = (/ &\n        & 0.95649e+03_rb,0.73829e+03_rb,0.56822e+03_rb,0.74006e+03_rb,0.95035e+03_rb /)\n      kbo(:, 5,14, 6) = (/ &\n        & 0.95242e+03_rb,0.73523e+03_rb,0.56635e+03_rb,0.74003e+03_rb,0.95032e+03_rb /)\n      kbo(:, 1,15, 6) = (/ &\n        & 0.95700e+03_rb,0.73867e+03_rb,0.56844e+03_rb,0.73851e+03_rb,0.94832e+03_rb /)\n      kbo(:, 2,15, 6) = (/ &\n        & 0.95201e+03_rb,0.73493e+03_rb,0.56632e+03_rb,0.73916e+03_rb,0.94937e+03_rb /)\n      kbo(:, 3,15, 6) = (/ &\n        & 0.94772e+03_rb,0.73170e+03_rb,0.56426e+03_rb,0.73956e+03_rb,0.95005e+03_rb /)\n      kbo(:, 4,15, 6) = (/ &\n        & 0.94397e+03_rb,0.72889e+03_rb,0.56242e+03_rb,0.73973e+03_rb,0.95035e+03_rb /)\n      kbo(:, 5,15, 6) = (/ &\n        & 0.94067e+03_rb,0.72642e+03_rb,0.56076e+03_rb,0.73970e+03_rb,0.95029e+03_rb /)\n      kbo(:, 1,16, 6) = (/ &\n        & 0.94427e+03_rb,0.72912e+03_rb,0.56257e+03_rb,0.73826e+03_rb,0.94846e+03_rb /)\n      kbo(:, 2,16, 6) = (/ &\n        & 0.94026e+03_rb,0.72611e+03_rb,0.56064e+03_rb,0.73891e+03_rb,0.94946e+03_rb /)\n      kbo(:, 3,16, 6) = (/ &\n        & 0.93679e+03_rb,0.72351e+03_rb,0.55906e+03_rb,0.73929e+03_rb,0.95011e+03_rb /)\n      kbo(:, 4,16, 6) = (/ &\n        & 0.93377e+03_rb,0.72124e+03_rb,0.55770e+03_rb,0.73948e+03_rb,0.95036e+03_rb /)\n      kbo(:, 5,16, 6) = (/ &\n        & 0.93110e+03_rb,0.71925e+03_rb,0.55641e+03_rb,0.73943e+03_rb,0.95027e+03_rb /)\n      kbo(:, 1,17, 6) = (/ &\n        & 0.93395e+03_rb,0.72138e+03_rb,0.55755e+03_rb,0.73807e+03_rb,0.94857e+03_rb /)\n      kbo(:, 2,17, 6) = (/ &\n        & 0.93072e+03_rb,0.71896e+03_rb,0.55622e+03_rb,0.73871e+03_rb,0.94955e+03_rb /)\n      kbo(:, 3,17, 6) = (/ &\n        & 0.92792e+03_rb,0.71686e+03_rb,0.55497e+03_rb,0.73909e+03_rb,0.95015e+03_rb /)\n      kbo(:, 4,17, 6) = (/ &\n        & 0.92548e+03_rb,0.71503e+03_rb,0.55372e+03_rb,0.73925e+03_rb,0.95038e+03_rb /)\n      kbo(:, 5,17, 6) = (/ &\n        & 0.92333e+03_rb,0.71341e+03_rb,0.55252e+03_rb,0.73921e+03_rb,0.95024e+03_rb /)\n      kbo(:, 1,18, 6) = (/ &\n        & 0.92558e+03_rb,0.71510e+03_rb,0.55360e+03_rb,0.73792e+03_rb,0.94869e+03_rb /)\n      kbo(:, 2,18, 6) = (/ &\n        & 0.92297e+03_rb,0.71315e+03_rb,0.55237e+03_rb,0.73856e+03_rb,0.94963e+03_rb /)\n      kbo(:, 3,18, 6) = (/ &\n        & 0.92072e+03_rb,0.71146e+03_rb,0.55114e+03_rb,0.73892e+03_rb,0.95019e+03_rb /)\n      kbo(:, 4,18, 6) = (/ &\n        & 0.91874e+03_rb,0.70998e+03_rb,0.55001e+03_rb,0.73908e+03_rb,0.95037e+03_rb /)\n      kbo(:, 5,18, 6) = (/ &\n        & 0.91700e+03_rb,0.70867e+03_rb,0.54903e+03_rb,0.73903e+03_rb,0.95021e+03_rb /)\n      kbo(:, 1,19, 6) = (/ &\n        & 0.91879e+03_rb,0.71001e+03_rb,0.55004e+03_rb,0.73782e+03_rb,0.94880e+03_rb /)\n      kbo(:, 2,19, 6) = (/ &\n        & 0.91668e+03_rb,0.70843e+03_rb,0.54889e+03_rb,0.73844e+03_rb,0.94970e+03_rb /)\n      kbo(:, 3,19, 6) = (/ &\n        & 0.91486e+03_rb,0.70706e+03_rb,0.54830e+03_rb,0.73880e+03_rb,0.95023e+03_rb /)\n      kbo(:, 4,19, 6) = (/ &\n        & 0.91327e+03_rb,0.70587e+03_rb,0.54705e+03_rb,0.73894e+03_rb,0.95037e+03_rb /)\n      kbo(:, 5,19, 6) = (/ &\n        & 0.91186e+03_rb,0.70481e+03_rb,0.54615e+03_rb,0.73887e+03_rb,0.95019e+03_rb /)\n      kbo(:, 1,20, 6) = (/ &\n        & 0.91324e+03_rb,0.70585e+03_rb,0.54718e+03_rb,0.73776e+03_rb,0.94893e+03_rb /)\n      kbo(:, 2,20, 6) = (/ &\n        & 0.91155e+03_rb,0.70458e+03_rb,0.54599e+03_rb,0.73835e+03_rb,0.94979e+03_rb /)\n      kbo(:, 3,20, 6) = (/ &\n        & 0.91008e+03_rb,0.70348e+03_rb,0.54519e+03_rb,0.73870e+03_rb,0.95026e+03_rb /)\n      kbo(:, 4,20, 6) = (/ &\n        & 0.90879e+03_rb,0.70251e+03_rb,0.54450e+03_rb,0.73882e+03_rb,0.95036e+03_rb /)\n      kbo(:, 5,20, 6) = (/ &\n        & 0.90766e+03_rb,0.70166e+03_rb,0.54390e+03_rb,0.73874e+03_rb,0.95013e+03_rb /)\n      kbo(:, 1,21, 6) = (/ &\n        & 0.90874e+03_rb,0.70247e+03_rb,0.54444e+03_rb,0.73773e+03_rb,0.94905e+03_rb /)\n      kbo(:, 2,21, 6) = (/ &\n        & 0.90737e+03_rb,0.70145e+03_rb,0.54370e+03_rb,0.73831e+03_rb,0.94986e+03_rb /)\n      kbo(:, 3,21, 6) = (/ &\n        & 0.90619e+03_rb,0.70056e+03_rb,0.54308e+03_rb,0.73862e+03_rb,0.95029e+03_rb /)\n      kbo(:, 4,21, 6) = (/ &\n        & 0.90515e+03_rb,0.69978e+03_rb,0.54255e+03_rb,0.73872e+03_rb,0.95035e+03_rb /)\n      kbo(:, 5,21, 6) = (/ &\n        & 0.90424e+03_rb,0.69910e+03_rb,0.54208e+03_rb,0.73862e+03_rb,0.95008e+03_rb /)\n      kbo(:, 1,22, 6) = (/ &\n        & 0.90500e+03_rb,0.69967e+03_rb,0.54240e+03_rb,0.73776e+03_rb,0.94923e+03_rb /)\n      kbo(:, 2,22, 6) = (/ &\n        & 0.90392e+03_rb,0.69886e+03_rb,0.54185e+03_rb,0.73829e+03_rb,0.94997e+03_rb /)\n      kbo(:, 3,22, 6) = (/ &\n        & 0.90297e+03_rb,0.69815e+03_rb,0.54138e+03_rb,0.73857e+03_rb,0.95033e+03_rb /)\n      kbo(:, 4,22, 6) = (/ &\n        & 0.90215e+03_rb,0.69753e+03_rb,0.54099e+03_rb,0.73864e+03_rb,0.95033e+03_rb /)\n      kbo(:, 5,22, 6) = (/ &\n        & 0.90141e+03_rb,0.69698e+03_rb,0.54066e+03_rb,0.73851e+03_rb,0.94999e+03_rb /)\n      kbo(:, 1,23, 6) = (/ &\n        & 0.90199e+03_rb,0.69741e+03_rb,0.54083e+03_rb,0.73780e+03_rb,0.94940e+03_rb /)\n      kbo(:, 2,23, 6) = (/ &\n        & 0.90112e+03_rb,0.69676e+03_rb,0.54044e+03_rb,0.73828e+03_rb,0.95007e+03_rb /)\n      kbo(:, 3,23, 6) = (/ &\n        & 0.90037e+03_rb,0.69620e+03_rb,0.54010e+03_rb,0.73854e+03_rb,0.95036e+03_rb /)\n      kbo(:, 4,23, 6) = (/ &\n        & 0.89971e+03_rb,0.69570e+03_rb,0.53983e+03_rb,0.73858e+03_rb,0.95029e+03_rb /)\n      kbo(:, 5,23, 6) = (/ &\n        & 0.89912e+03_rb,0.69526e+03_rb,0.53959e+03_rb,0.73840e+03_rb,0.94989e+03_rb /)\n      kbo(:, 1,24, 6) = (/ &\n        & 0.89955e+03_rb,0.69558e+03_rb,0.53965e+03_rb,0.73787e+03_rb,0.94957e+03_rb /)\n      kbo(:, 2,24, 6) = (/ &\n        & 0.89886e+03_rb,0.69507e+03_rb,0.53937e+03_rb,0.73829e+03_rb,0.95016e+03_rb /)\n      kbo(:, 3,24, 6) = (/ &\n        & 0.89826e+03_rb,0.69461e+03_rb,0.53914e+03_rb,0.73851e+03_rb,0.95038e+03_rb /)\n      kbo(:, 4,24, 6) = (/ &\n        & 0.89773e+03_rb,0.69422e+03_rb,0.53895e+03_rb,0.73850e+03_rb,0.95023e+03_rb /)\n      kbo(:, 5,24, 6) = (/ &\n        & 0.89726e+03_rb,0.69387e+03_rb,0.53876e+03_rb,0.73829e+03_rb,0.94977e+03_rb /)\n      kbo(:, 1,25, 6) = (/ &\n        & 0.89758e+03_rb,0.69410e+03_rb,0.53876e+03_rb,0.73792e+03_rb,0.94973e+03_rb /)\n      kbo(:, 2,25, 6) = (/ &\n        & 0.89703e+03_rb,0.69369e+03_rb,0.53857e+03_rb,0.73831e+03_rb,0.95024e+03_rb /)\n      kbo(:, 3,25, 6) = (/ &\n        & 0.89655e+03_rb,0.69333e+03_rb,0.53841e+03_rb,0.73848e+03_rb,0.95037e+03_rb /)\n      kbo(:, 4,25, 6) = (/ &\n        & 0.89613e+03_rb,0.69302e+03_rb,0.53826e+03_rb,0.73843e+03_rb,0.95016e+03_rb /)\n      kbo(:, 5,25, 6) = (/ &\n        & 0.89576e+03_rb,0.69273e+03_rb,0.53811e+03_rb,0.73818e+03_rb,0.94963e+03_rb /)\n      kbo(:, 1,26, 6) = (/ &\n        & 0.89598e+03_rb,0.69290e+03_rb,0.53808e+03_rb,0.73799e+03_rb,0.94987e+03_rb /)\n      kbo(:, 2,26, 6) = (/ &\n        & 0.89555e+03_rb,0.69258e+03_rb,0.53794e+03_rb,0.73834e+03_rb,0.95030e+03_rb /)\n      kbo(:, 3,26, 6) = (/ &\n        & 0.89517e+03_rb,0.69229e+03_rb,0.53782e+03_rb,0.73845e+03_rb,0.95035e+03_rb /)\n      kbo(:, 4,26, 6) = (/ &\n        & 0.89483e+03_rb,0.69204e+03_rb,0.53770e+03_rb,0.73836e+03_rb,0.95007e+03_rb /)\n      kbo(:, 5,26, 6) = (/ &\n        & 0.89453e+03_rb,0.69182e+03_rb,0.53759e+03_rb,0.73806e+03_rb,0.94946e+03_rb /)\n      kbo(:, 1,27, 6) = (/ &\n        & 0.89469e+03_rb,0.69194e+03_rb,0.53754e+03_rb,0.73806e+03_rb,0.95001e+03_rb /)\n      kbo(:, 2,27, 6) = (/ &\n        & 0.89435e+03_rb,0.69168e+03_rb,0.53744e+03_rb,0.73835e+03_rb,0.95034e+03_rb /)\n      kbo(:, 3,27, 6) = (/ &\n        & 0.89405e+03_rb,0.69145e+03_rb,0.53736e+03_rb,0.73843e+03_rb,0.95031e+03_rb /)\n      kbo(:, 4,27, 6) = (/ &\n        & 0.89378e+03_rb,0.69125e+03_rb,0.53727e+03_rb,0.73828e+03_rb,0.94995e+03_rb /)\n      kbo(:, 5,27, 6) = (/ &\n        & 0.89354e+03_rb,0.69107e+03_rb,0.53717e+03_rb,0.73792e+03_rb,0.94926e+03_rb /)\n      kbo(:, 1,28, 6) = (/ &\n        & 0.89366e+03_rb,0.69116e+03_rb,0.53711e+03_rb,0.73814e+03_rb,0.95012e+03_rb /)\n      kbo(:, 2,28, 6) = (/ &\n        & 0.89338e+03_rb,0.69096e+03_rb,0.53705e+03_rb,0.73836e+03_rb,0.95037e+03_rb /)\n      kbo(:, 3,28, 6) = (/ &\n        & 0.89314e+03_rb,0.69078e+03_rb,0.53699e+03_rb,0.73838e+03_rb,0.95026e+03_rb /)\n      kbo(:, 4,28, 6) = (/ &\n        & 0.89293e+03_rb,0.69062e+03_rb,0.53692e+03_rb,0.73819e+03_rb,0.94982e+03_rb /)\n      kbo(:, 5,28, 6) = (/ &\n        & 0.89274e+03_rb,0.69047e+03_rb,0.53684e+03_rb,0.73778e+03_rb,0.94904e+03_rb /)\n      kbo(:, 1,29, 6) = (/ &\n        & 0.89282e+03_rb,0.69053e+03_rb,0.53678e+03_rb,0.73818e+03_rb,0.95022e+03_rb /)\n      kbo(:, 2,29, 6) = (/ &\n        & 0.89261e+03_rb,0.69037e+03_rb,0.53674e+03_rb,0.73837e+03_rb,0.95037e+03_rb /)\n      kbo(:, 3,29, 6) = (/ &\n        & 0.89241e+03_rb,0.69023e+03_rb,0.53670e+03_rb,0.73834e+03_rb,0.95018e+03_rb /)\n      kbo(:, 4,29, 6) = (/ &\n        & 0.89224e+03_rb,0.69010e+03_rb,0.53663e+03_rb,0.73810e+03_rb,0.94966e+03_rb /)\n      kbo(:, 5,29, 6) = (/ &\n        & 0.89209e+03_rb,0.68999e+03_rb,0.53656e+03_rb,0.73762e+03_rb,0.94880e+03_rb /)\n      kbo(:, 1,30, 6) = (/ &\n        & 0.89215e+03_rb,0.69003e+03_rb,0.53652e+03_rb,0.73823e+03_rb,0.95029e+03_rb /)\n      kbo(:, 2,30, 6) = (/ &\n        & 0.89198e+03_rb,0.68990e+03_rb,0.53650e+03_rb,0.73836e+03_rb,0.95035e+03_rb /)\n      kbo(:, 3,30, 6) = (/ &\n        & 0.89183e+03_rb,0.68979e+03_rb,0.53646e+03_rb,0.73828e+03_rb,0.95008e+03_rb /)\n      kbo(:, 4,30, 6) = (/ &\n        & 0.89169e+03_rb,0.68969e+03_rb,0.53641e+03_rb,0.73798e+03_rb,0.94948e+03_rb /)\n      kbo(:, 5,30, 6) = (/ &\n        & 0.89157e+03_rb,0.68960e+03_rb,0.53634e+03_rb,0.73744e+03_rb,0.94852e+03_rb /)\n      kbo(:, 1,31, 6) = (/ &\n        & 0.89161e+03_rb,0.68962e+03_rb,0.53631e+03_rb,0.73827e+03_rb,0.95034e+03_rb /)\n      kbo(:, 2,31, 6) = (/ &\n        & 0.89147e+03_rb,0.68952e+03_rb,0.53629e+03_rb,0.73835e+03_rb,0.95031e+03_rb /)\n      kbo(:, 3,31, 6) = (/ &\n        & 0.89135e+03_rb,0.68943e+03_rb,0.53627e+03_rb,0.73821e+03_rb,0.94996e+03_rb /)\n      kbo(:, 4,31, 6) = (/ &\n        & 0.89124e+03_rb,0.68935e+03_rb,0.53622e+03_rb,0.73786e+03_rb,0.94927e+03_rb /)\n      kbo(:, 5,31, 6) = (/ &\n        & 0.89115e+03_rb,0.68928e+03_rb,0.53615e+03_rb,0.73725e+03_rb,0.94822e+03_rb /)\n      kbo(:, 1,32, 6) = (/ &\n        & 0.89117e+03_rb,0.68930e+03_rb,0.53614e+03_rb,0.73830e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,32, 6) = (/ &\n        & 0.89106e+03_rb,0.68922e+03_rb,0.53614e+03_rb,0.73833e+03_rb,0.95025e+03_rb /)\n      kbo(:, 3,32, 6) = (/ &\n        & 0.89097e+03_rb,0.68914e+03_rb,0.53611e+03_rb,0.73813e+03_rb,0.94981e+03_rb /)\n      kbo(:, 4,32, 6) = (/ &\n        & 0.89088e+03_rb,0.68908e+03_rb,0.53608e+03_rb,0.73772e+03_rb,0.94903e+03_rb /)\n      kbo(:, 5,32, 6) = (/ &\n        & 0.89081e+03_rb,0.68902e+03_rb,0.53600e+03_rb,0.73703e+03_rb,0.94789e+03_rb /)\n      kbo(:, 1,33, 6) = (/ &\n        & 0.89082e+03_rb,0.68903e+03_rb,0.53602e+03_rb,0.73832e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,33, 6) = (/ &\n        & 0.89073e+03_rb,0.68897e+03_rb,0.53601e+03_rb,0.73829e+03_rb,0.95017e+03_rb /)\n      kbo(:, 3,33, 6) = (/ &\n        & 0.89066e+03_rb,0.68891e+03_rb,0.53599e+03_rb,0.73804e+03_rb,0.94964e+03_rb /)\n      kbo(:, 4,33, 6) = (/ &\n        & 0.89059e+03_rb,0.68886e+03_rb,0.53595e+03_rb,0.73756e+03_rb,0.94877e+03_rb /)\n      kbo(:, 5,33, 6) = (/ &\n        & 0.89053e+03_rb,0.68882e+03_rb,0.53586e+03_rb,0.73678e+03_rb,0.94753e+03_rb /)\n      kbo(:, 1,34, 6) = (/ &\n        & 0.89054e+03_rb,0.68882e+03_rb,0.53592e+03_rb,0.73832e+03_rb,0.95035e+03_rb /)\n      kbo(:, 2,34, 6) = (/ &\n        & 0.89047e+03_rb,0.68877e+03_rb,0.53592e+03_rb,0.73824e+03_rb,0.95008e+03_rb /)\n      kbo(:, 3,34, 6) = (/ &\n        & 0.89041e+03_rb,0.68873e+03_rb,0.53589e+03_rb,0.73795e+03_rb,0.94947e+03_rb /)\n      kbo(:, 4,34, 6) = (/ &\n        & 0.89036e+03_rb,0.68869e+03_rb,0.53584e+03_rb,0.73741e+03_rb,0.94852e+03_rb /)\n      kbo(:, 5,34, 6) = (/ &\n        & 0.89031e+03_rb,0.68865e+03_rb,0.53575e+03_rb,0.73655e+03_rb,0.94719e+03_rb /)\n      kbo(:, 1,35, 6) = (/ &\n        & 0.89032e+03_rb,0.68866e+03_rb,0.53584e+03_rb,0.73832e+03_rb,0.95034e+03_rb /)\n      kbo(:, 2,35, 6) = (/ &\n        & 0.89027e+03_rb,0.68862e+03_rb,0.53584e+03_rb,0.73821e+03_rb,0.95002e+03_rb /)\n      kbo(:, 3,35, 6) = (/ &\n        & 0.89022e+03_rb,0.68858e+03_rb,0.53581e+03_rb,0.73788e+03_rb,0.94937e+03_rb /)\n      kbo(:, 4,35, 6) = (/ &\n        & 0.89017e+03_rb,0.68855e+03_rb,0.53576e+03_rb,0.73731e+03_rb,0.94836e+03_rb /)\n      kbo(:, 5,35, 6) = (/ &\n        & 0.89013e+03_rb,0.68852e+03_rb,0.53567e+03_rb,0.73640e+03_rb,0.94700e+03_rb /)\n      kbo(:, 1,36, 6) = (/ &\n        & 0.89015e+03_rb,0.68853e+03_rb,0.53577e+03_rb,0.73831e+03_rb,0.95033e+03_rb /)\n      kbo(:, 2,36, 6) = (/ &\n        & 0.89010e+03_rb,0.68849e+03_rb,0.53577e+03_rb,0.73820e+03_rb,0.95001e+03_rb /)\n      kbo(:, 3,36, 6) = (/ &\n        & 0.89006e+03_rb,0.68846e+03_rb,0.53575e+03_rb,0.73787e+03_rb,0.94935e+03_rb /)\n      kbo(:, 4,36, 6) = (/ &\n        & 0.89003e+03_rb,0.68844e+03_rb,0.53570e+03_rb,0.73729e+03_rb,0.94834e+03_rb /)\n      kbo(:, 5,36, 6) = (/ &\n        & 0.88999e+03_rb,0.68841e+03_rb,0.53561e+03_rb,0.73637e+03_rb,0.94696e+03_rb /)\n      kbo(:, 1,37, 6) = (/ &\n        & 0.89001e+03_rb,0.68843e+03_rb,0.53571e+03_rb,0.73831e+03_rb,0.95036e+03_rb /)\n      kbo(:, 2,37, 6) = (/ &\n        & 0.88997e+03_rb,0.68840e+03_rb,0.53572e+03_rb,0.73823e+03_rb,0.95007e+03_rb /)\n      kbo(:, 3,37, 6) = (/ &\n        & 0.88994e+03_rb,0.68837e+03_rb,0.53570e+03_rb,0.73792e+03_rb,0.94946e+03_rb /)\n      kbo(:, 4,37, 6) = (/ &\n        & 0.88991e+03_rb,0.68835e+03_rb,0.53566e+03_rb,0.73738e+03_rb,0.94849e+03_rb /)\n      kbo(:, 5,37, 6) = (/ &\n        & 0.88988e+03_rb,0.68833e+03_rb,0.53557e+03_rb,0.73651e+03_rb,0.94716e+03_rb /)\n      kbo(:, 1,38, 6) = (/ &\n        & 0.88990e+03_rb,0.68834e+03_rb,0.53566e+03_rb,0.73830e+03_rb,0.95036e+03_rb /)\n      kbo(:, 2,38, 6) = (/ &\n        & 0.88987e+03_rb,0.68832e+03_rb,0.53568e+03_rb,0.73825e+03_rb,0.95013e+03_rb /)\n      kbo(:, 3,38, 6) = (/ &\n        & 0.88984e+03_rb,0.68830e+03_rb,0.53566e+03_rb,0.73798e+03_rb,0.94957e+03_rb /)\n      kbo(:, 4,38, 6) = (/ &\n        & 0.88982e+03_rb,0.68828e+03_rb,0.53563e+03_rb,0.73747e+03_rb,0.94865e+03_rb /)\n      kbo(:, 5,38, 6) = (/ &\n        & 0.88979e+03_rb,0.68826e+03_rb,0.53555e+03_rb,0.73665e+03_rb,0.94737e+03_rb /)\n      kbo(:, 1,39, 6) = (/ &\n        & 0.88981e+03_rb,0.68827e+03_rb,0.53562e+03_rb,0.73829e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,39, 6) = (/ &\n        & 0.88978e+03_rb,0.68825e+03_rb,0.53564e+03_rb,0.73826e+03_rb,0.95018e+03_rb /)\n      kbo(:, 3,39, 6) = (/ &\n        & 0.88976e+03_rb,0.68824e+03_rb,0.53563e+03_rb,0.73803e+03_rb,0.94966e+03_rb /)\n      kbo(:, 4,39, 6) = (/ &\n        & 0.88974e+03_rb,0.68822e+03_rb,0.53560e+03_rb,0.73755e+03_rb,0.94880e+03_rb /)\n      kbo(:, 5,39, 6) = (/ &\n        & 0.88972e+03_rb,0.68821e+03_rb,0.53553e+03_rb,0.73679e+03_rb,0.94757e+03_rb /)\n      kbo(:, 1,40, 6) = (/ &\n        & 0.88973e+03_rb,0.68822e+03_rb,0.53558e+03_rb,0.73826e+03_rb,0.95037e+03_rb /)\n      kbo(:, 2,40, 6) = (/ &\n        & 0.88971e+03_rb,0.68820e+03_rb,0.53561e+03_rb,0.73829e+03_rb,0.95026e+03_rb /)\n      kbo(:, 3,40, 6) = (/ &\n        & 0.88969e+03_rb,0.68819e+03_rb,0.53561e+03_rb,0.73810e+03_rb,0.94982e+03_rb /)\n      kbo(:, 4,40, 6) = (/ &\n        & 0.88967e+03_rb,0.68817e+03_rb,0.53559e+03_rb,0.73769e+03_rb,0.94904e+03_rb /)\n      kbo(:, 5,40, 6) = (/ &\n        & 0.88966e+03_rb,0.68816e+03_rb,0.53553e+03_rb,0.73700e+03_rb,0.94790e+03_rb /)\n      kbo(:, 1,41, 6) = (/ &\n        & 0.88967e+03_rb,0.68817e+03_rb,0.53555e+03_rb,0.73822e+03_rb,0.95035e+03_rb /)\n      kbo(:, 2,41, 6) = (/ &\n        & 0.88965e+03_rb,0.68816e+03_rb,0.53558e+03_rb,0.73830e+03_rb,0.95031e+03_rb /)\n      kbo(:, 3,41, 6) = (/ &\n        & 0.88964e+03_rb,0.68815e+03_rb,0.53559e+03_rb,0.73817e+03_rb,0.94996e+03_rb /)\n      kbo(:, 4,41, 6) = (/ &\n        & 0.88962e+03_rb,0.68813e+03_rb,0.53558e+03_rb,0.73782e+03_rb,0.94927e+03_rb /)\n      kbo(:, 5,41, 6) = (/ &\n        & 0.88961e+03_rb,0.68812e+03_rb,0.53553e+03_rb,0.73722e+03_rb,0.94822e+03_rb /)\n      kbo(:, 1,42, 6) = (/ &\n        & 0.88962e+03_rb,0.68813e+03_rb,0.53551e+03_rb,0.73816e+03_rb,0.95029e+03_rb /)\n      kbo(:, 2,42, 6) = (/ &\n        & 0.88960e+03_rb,0.68812e+03_rb,0.53555e+03_rb,0.73830e+03_rb,0.95035e+03_rb /)\n      kbo(:, 3,42, 6) = (/ &\n        & 0.88959e+03_rb,0.68811e+03_rb,0.53557e+03_rb,0.73822e+03_rb,0.95008e+03_rb /)\n      kbo(:, 4,42, 6) = (/ &\n        & 0.88958e+03_rb,0.68810e+03_rb,0.53556e+03_rb,0.73793e+03_rb,0.94948e+03_rb /)\n      kbo(:, 5,42, 6) = (/ &\n        & 0.88957e+03_rb,0.68809e+03_rb,0.53553e+03_rb,0.73739e+03_rb,0.94853e+03_rb /)\n      kbo(:, 1,43, 6) = (/ &\n        & 0.88958e+03_rb,0.68810e+03_rb,0.53547e+03_rb,0.73807e+03_rb,0.95020e+03_rb /)\n      kbo(:, 2,43, 6) = (/ &\n        & 0.88957e+03_rb,0.68809e+03_rb,0.53552e+03_rb,0.73828e+03_rb,0.95037e+03_rb /)\n      kbo(:, 3,43, 6) = (/ &\n        & 0.88955e+03_rb,0.68808e+03_rb,0.53555e+03_rb,0.73826e+03_rb,0.95020e+03_rb /)\n      kbo(:, 4,43, 6) = (/ &\n        & 0.88954e+03_rb,0.68808e+03_rb,0.53555e+03_rb,0.73804e+03_rb,0.94970e+03_rb /)\n      kbo(:, 5,43, 6) = (/ &\n        & 0.88953e+03_rb,0.68807e+03_rb,0.53553e+03_rb,0.73758e+03_rb,0.94886e+03_rb /)\n      kbo(:, 1,44, 6) = (/ &\n        & 0.88954e+03_rb,0.68808e+03_rb,0.53544e+03_rb,0.73795e+03_rb,0.95005e+03_rb /)\n      kbo(:, 2,44, 6) = (/ &\n        & 0.88953e+03_rb,0.68807e+03_rb,0.53549e+03_rb,0.73823e+03_rb,0.95035e+03_rb /)\n      kbo(:, 3,44, 6) = (/ &\n        & 0.88952e+03_rb,0.68806e+03_rb,0.53553e+03_rb,0.73829e+03_rb,0.95030e+03_rb /)\n      kbo(:, 4,44, 6) = (/ &\n        & 0.88951e+03_rb,0.68805e+03_rb,0.53554e+03_rb,0.73815e+03_rb,0.94991e+03_rb /)\n      kbo(:, 5,44, 6) = (/ &\n        & 0.88951e+03_rb,0.68805e+03_rb,0.53553e+03_rb,0.73776e+03_rb,0.94919e+03_rb /)\n      kbo(:, 1,45, 6) = (/ &\n        & 0.88952e+03_rb,0.68806e+03_rb,0.53540e+03_rb,0.73782e+03_rb,0.94987e+03_rb /)\n      kbo(:, 2,45, 6) = (/ &\n        & 0.88951e+03_rb,0.68805e+03_rb,0.53547e+03_rb,0.73816e+03_rb,0.95030e+03_rb /)\n      kbo(:, 3,45, 6) = (/ &\n        & 0.88950e+03_rb,0.68804e+03_rb,0.53551e+03_rb,0.73830e+03_rb,0.95035e+03_rb /)\n      kbo(:, 4,45, 6) = (/ &\n        & 0.88949e+03_rb,0.68804e+03_rb,0.53553e+03_rb,0.73821e+03_rb,0.95008e+03_rb /)\n      kbo(:, 5,45, 6) = (/ &\n        & 0.88948e+03_rb,0.68803e+03_rb,0.53553e+03_rb,0.73792e+03_rb,0.94947e+03_rb /)\n      kbo(:, 1,46, 6) = (/ &\n        & 0.88949e+03_rb,0.68804e+03_rb,0.53537e+03_rb,0.73763e+03_rb,0.94962e+03_rb /)\n      kbo(:, 2,46, 6) = (/ &\n        & 0.88948e+03_rb,0.68803e+03_rb,0.53544e+03_rb,0.73806e+03_rb,0.95019e+03_rb /)\n      kbo(:, 3,46, 6) = (/ &\n        & 0.88948e+03_rb,0.68803e+03_rb,0.53549e+03_rb,0.73827e+03_rb,0.95037e+03_rb /)\n      kbo(:, 4,46, 6) = (/ &\n        & 0.88947e+03_rb,0.68802e+03_rb,0.53552e+03_rb,0.73827e+03_rb,0.95021e+03_rb /)\n      kbo(:, 5,46, 6) = (/ &\n        & 0.88946e+03_rb,0.68802e+03_rb,0.53552e+03_rb,0.73805e+03_rb,0.94973e+03_rb /)\n      kbo(:, 1,47, 6) = (/ &\n        & 0.88947e+03_rb,0.68802e+03_rb,0.53531e+03_rb,0.73737e+03_rb,0.94929e+03_rb /)\n      kbo(:, 2,47, 6) = (/ &\n        & 0.88947e+03_rb,0.68802e+03_rb,0.53539e+03_rb,0.73792e+03_rb,0.95000e+03_rb /)\n      kbo(:, 3,47, 6) = (/ &\n        & 0.88946e+03_rb,0.68801e+03_rb,0.53546e+03_rb,0.73821e+03_rb,0.95034e+03_rb /)\n      kbo(:, 4,47, 6) = (/ &\n        & 0.88945e+03_rb,0.68801e+03_rb,0.53550e+03_rb,0.73829e+03_rb,0.95032e+03_rb /)\n      kbo(:, 5,47, 6) = (/ &\n        & 0.88945e+03_rb,0.68800e+03_rb,0.53551e+03_rb,0.73816e+03_rb,0.94996e+03_rb /)\n      kbo(:, 1,48, 6) = (/ &\n        & 0.88946e+03_rb,0.68801e+03_rb,0.53528e+03_rb,0.73708e+03_rb,0.94889e+03_rb /)\n      kbo(:, 2,48, 6) = (/ &\n        & 0.88945e+03_rb,0.68801e+03_rb,0.53536e+03_rb,0.73773e+03_rb,0.94976e+03_rb /)\n      kbo(:, 3,48, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53543e+03_rb,0.73812e+03_rb,0.95025e+03_rb /)\n      kbo(:, 4,48, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53548e+03_rb,0.73829e+03_rb,0.95037e+03_rb /)\n      kbo(:, 5,48, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53551e+03_rb,0.73824e+03_rb,0.95014e+03_rb /)\n      kbo(:, 1,49, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53524e+03_rb,0.73674e+03_rb,0.94844e+03_rb /)\n      kbo(:, 2,49, 6) = (/ &\n        & 0.88944e+03_rb,0.68800e+03_rb,0.53533e+03_rb,0.73750e+03_rb,0.94945e+03_rb /)\n      kbo(:, 3,49, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53540e+03_rb,0.73799e+03_rb,0.95016e+03_rb /)\n      kbo(:, 4,49, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53546e+03_rb,0.73825e+03_rb,0.95036e+03_rb /)\n      kbo(:, 5,49, 6) = (/ &\n        & 0.88942e+03_rb,0.68799e+03_rb,0.53549e+03_rb,0.73828e+03_rb,0.95027e+03_rb /)\n      kbo(:, 1,50, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53521e+03_rb,0.73638e+03_rb,0.94796e+03_rb /)\n      kbo(:, 2,50, 6) = (/ &\n        & 0.88943e+03_rb,0.68799e+03_rb,0.53529e+03_rb,0.73724e+03_rb,0.94911e+03_rb /)\n      kbo(:, 3,50, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53537e+03_rb,0.73783e+03_rb,0.94990e+03_rb /)\n      kbo(:, 4,50, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53544e+03_rb,0.73817e+03_rb,0.95031e+03_rb /)\n      kbo(:, 5,50, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53548e+03_rb,0.73829e+03_rb,0.95034e+03_rb /)\n      kbo(:, 1,51, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53518e+03_rb,0.73600e+03_rb,0.94745e+03_rb /)\n      kbo(:, 2,51, 6) = (/ &\n        & 0.88942e+03_rb,0.68798e+03_rb,0.53525e+03_rb,0.73696e+03_rb,0.94873e+03_rb /)\n      kbo(:, 3,51, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53533e+03_rb,0.73765e+03_rb,0.94966e+03_rb /)\n      kbo(:, 4,51, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53541e+03_rb,0.73807e+03_rb,0.95020e+03_rb /)\n      kbo(:, 5,51, 6) = (/ &\n        & 0.88941e+03_rb,0.68797e+03_rb,0.53546e+03_rb,0.73827e+03_rb,0.95037e+03_rb /)\n      kbo(:, 1,52, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53513e+03_rb,0.73556e+03_rb,0.94688e+03_rb /)\n      kbo(:, 2,52, 6) = (/ &\n        & 0.88941e+03_rb,0.68798e+03_rb,0.53522e+03_rb,0.73664e+03_rb,0.94831e+03_rb /)\n      kbo(:, 3,52, 6) = (/ &\n        & 0.88941e+03_rb,0.68797e+03_rb,0.53531e+03_rb,0.73743e+03_rb,0.94936e+03_rb /)\n      kbo(:, 4,52, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53538e+03_rb,0.73795e+03_rb,0.95005e+03_rb /)\n      kbo(:, 5,52, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53545e+03_rb,0.73822e+03_rb,0.95036e+03_rb /)\n      kbo(:, 1,53, 6) = (/ &\n        & 0.88941e+03_rb,0.68797e+03_rb,0.53507e+03_rb,0.73509e+03_rb,0.94627e+03_rb /)\n      kbo(:, 2,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53519e+03_rb,0.73629e+03_rb,0.94784e+03_rb /)\n      kbo(:, 3,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53527e+03_rb,0.73717e+03_rb,0.94902e+03_rb /)\n      kbo(:, 4,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53535e+03_rb,0.73779e+03_rb,0.94984e+03_rb /)\n      kbo(:, 5,53, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53542e+03_rb,0.73815e+03_rb,0.95029e+03_rb /)\n      kbo(:, 1,54, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53502e+03_rb,0.73463e+03_rb,0.94566e+03_rb /)\n      kbo(:, 2,54, 6) = (/ &\n        & 0.88940e+03_rb,0.68797e+03_rb,0.53516e+03_rb,0.73592e+03_rb,0.94735e+03_rb /)\n      kbo(:, 3,54, 6) = (/ &\n        & 0.88940e+03_rb,0.68796e+03_rb,0.53524e+03_rb,0.73691e+03_rb,0.94866e+03_rb /)\n      kbo(:, 4,54, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53533e+03_rb,0.73761e+03_rb,0.94961e+03_rb /)\n      kbo(:, 5,54, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53539e+03_rb,0.73805e+03_rb,0.95018e+03_rb /)\n      kbo(:, 1,55, 6) = (/ &\n        & 0.88940e+03_rb,0.68796e+03_rb,0.53495e+03_rb,0.73415e+03_rb,0.94503e+03_rb /)\n      kbo(:, 2,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53513e+03_rb,0.73554e+03_rb,0.94685e+03_rb /)\n      kbo(:, 3,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53521e+03_rb,0.73662e+03_rb,0.94828e+03_rb /)\n      kbo(:, 4,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53530e+03_rb,0.73742e+03_rb,0.94934e+03_rb /)\n      kbo(:, 5,55, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53537e+03_rb,0.73794e+03_rb,0.95004e+03_rb /)\n      kbo(:, 1,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53489e+03_rb,0.73364e+03_rb,0.94437e+03_rb /)\n      kbo(:, 2,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53507e+03_rb,0.73512e+03_rb,0.94631e+03_rb /)\n      kbo(:, 3,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53519e+03_rb,0.73631e+03_rb,0.94787e+03_rb /)\n      kbo(:, 4,56, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53527e+03_rb,0.73719e+03_rb,0.94904e+03_rb /)\n      kbo(:, 5,56, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53535e+03_rb,0.73780e+03_rb,0.94987e+03_rb /)\n      kbo(:, 1,57, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53481e+03_rb,0.73310e+03_rb,0.94366e+03_rb /)\n      kbo(:, 2,57, 6) = (/ &\n        & 0.88939e+03_rb,0.68796e+03_rb,0.53502e+03_rb,0.73469e+03_rb,0.94573e+03_rb /)\n      kbo(:, 3,57, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53516e+03_rb,0.73597e+03_rb,0.94741e+03_rb /)\n      kbo(:, 4,57, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53524e+03_rb,0.73694e+03_rb,0.94871e+03_rb /)\n      kbo(:, 5,57, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53532e+03_rb,0.73764e+03_rb,0.94964e+03_rb /)\n      kbo(:, 1,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53474e+03_rb,0.73255e+03_rb,0.94296e+03_rb /)\n      kbo(:, 2,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68796e+03_rb,0.53496e+03_rb,0.73423e+03_rb,0.94515e+03_rb /)\n      kbo(:, 3,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53512e+03_rb,0.73561e+03_rb,0.94695e+03_rb /)\n      kbo(:, 4,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53522e+03_rb,0.73667e+03_rb,0.94836e+03_rb /)\n      kbo(:, 5,58, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53530e+03_rb,0.73745e+03_rb,0.94939e+03_rb /)\n      kbo(:, 1,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53470e+03_rb,0.73233e+03_rb,0.94266e+03_rb /)\n      kbo(:, 2,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53494e+03_rb,0.73405e+03_rb,0.94490e+03_rb /)\n      kbo(:, 3,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53510e+03_rb,0.73546e+03_rb,0.94675e+03_rb /)\n      kbo(:, 4,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53521e+03_rb,0.73657e+03_rb,0.94820e+03_rb /)\n      kbo(:, 5,59, 6) = (/ &\n        & 0.88938e+03_rb,0.68795e+03_rb,0.53529e+03_rb,0.73737e+03_rb,0.94929e+03_rb /)\n      kbo(:, 1,13, 7) = (/ &\n        & 0.11104e+04_rb,0.84453e+03_rb,0.58852e+03_rb,0.81799e+03_rb,0.10746e+04_rb /)\n      kbo(:, 2,13, 7) = (/ &\n        & 0.11019e+04_rb,0.83810e+03_rb,0.58572e+03_rb,0.81836e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,13, 7) = (/ &\n        & 0.10945e+04_rb,0.83257e+03_rb,0.58306e+03_rb,0.81848e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,13, 7) = (/ &\n        & 0.10881e+04_rb,0.82775e+03_rb,0.58047e+03_rb,0.81831e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,13, 7) = (/ &\n        & 0.10824e+04_rb,0.82352e+03_rb,0.57809e+03_rb,0.81788e+03_rb,0.10749e+04_rb /)\n      kbo(:, 1,14, 7) = (/ &\n        & 0.10890e+04_rb,0.82842e+03_rb,0.58087e+03_rb,0.81780e+03_rb,0.10747e+04_rb /)\n      kbo(:, 2,14, 7) = (/ &\n        & 0.10820e+04_rb,0.82323e+03_rb,0.57803e+03_rb,0.81816e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,14, 7) = (/ &\n        & 0.10761e+04_rb,0.81875e+03_rb,0.57524e+03_rb,0.81827e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,14, 7) = (/ &\n        & 0.10709e+04_rb,0.81486e+03_rb,0.57281e+03_rb,0.81809e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,14, 7) = (/ &\n        & 0.10663e+04_rb,0.81144e+03_rb,0.57087e+03_rb,0.81766e+03_rb,0.10748e+04_rb /)\n      kbo(:, 1,15, 7) = (/ &\n        & 0.10714e+04_rb,0.81529e+03_rb,0.57324e+03_rb,0.81765e+03_rb,0.10748e+04_rb /)\n      kbo(:, 2,15, 7) = (/ &\n        & 0.10659e+04_rb,0.81110e+03_rb,0.57094e+03_rb,0.81800e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,15, 7) = (/ &\n        & 0.10611e+04_rb,0.80749e+03_rb,0.56926e+03_rb,0.81809e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,15, 7) = (/ &\n        & 0.10569e+04_rb,0.80434e+03_rb,0.56791e+03_rb,0.81790e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,15, 7) = (/ &\n        & 0.10532e+04_rb,0.80157e+03_rb,0.56672e+03_rb,0.81746e+03_rb,0.10748e+04_rb /)\n      kbo(:, 1,16, 7) = (/ &\n        & 0.10572e+04_rb,0.80460e+03_rb,0.56822e+03_rb,0.81755e+03_rb,0.10748e+04_rb /)\n      kbo(:, 2,16, 7) = (/ &\n        & 0.10527e+04_rb,0.80122e+03_rb,0.56701e+03_rb,0.81788e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,16, 7) = (/ &\n        & 0.10488e+04_rb,0.79831e+03_rb,0.56599e+03_rb,0.81796e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,16, 7) = (/ &\n        & 0.10454e+04_rb,0.79577e+03_rb,0.56505e+03_rb,0.81773e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,16, 7) = (/ &\n        & 0.10425e+04_rb,0.79354e+03_rb,0.56418e+03_rb,0.81728e+03_rb,0.10747e+04_rb /)\n      kbo(:, 1,17, 7) = (/ &\n        & 0.10456e+04_rb,0.79593e+03_rb,0.56540e+03_rb,0.81747e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,17, 7) = (/ &\n        & 0.10420e+04_rb,0.79321e+03_rb,0.56464e+03_rb,0.81778e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,17, 7) = (/ &\n        & 0.10389e+04_rb,0.79086e+03_rb,0.56406e+03_rb,0.81783e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,17, 7) = (/ &\n        & 0.10362e+04_rb,0.78881e+03_rb,0.56355e+03_rb,0.81761e+03_rb,0.10751e+04_rb /)\n      kbo(:, 5,17, 7) = (/ &\n        & 0.10337e+04_rb,0.78701e+03_rb,0.56298e+03_rb,0.81712e+03_rb,0.10746e+04_rb /)\n      kbo(:, 1,18, 7) = (/ &\n        & 0.10363e+04_rb,0.78890e+03_rb,0.56372e+03_rb,0.81741e+03_rb,0.10750e+04_rb /)\n      kbo(:, 2,18, 7) = (/ &\n        & 0.10334e+04_rb,0.78671e+03_rb,0.56351e+03_rb,0.81771e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,18, 7) = (/ &\n        & 0.10308e+04_rb,0.78481e+03_rb,0.56335e+03_rb,0.81775e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,18, 7) = (/ &\n        & 0.10286e+04_rb,0.78316e+03_rb,0.56306e+03_rb,0.81749e+03_rb,0.10751e+04_rb /)\n      kbo(:, 5,18, 7) = (/ &\n        & 0.10267e+04_rb,0.78170e+03_rb,0.56253e+03_rb,0.81698e+03_rb,0.10746e+04_rb /)\n      kbo(:, 1,19, 7) = (/ &\n        & 0.10287e+04_rb,0.78319e+03_rb,0.56306e+03_rb,0.81737e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,19, 7) = (/ &\n        & 0.10263e+04_rb,0.78143e+03_rb,0.56317e+03_rb,0.81766e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,19, 7) = (/ &\n        & 0.10243e+04_rb,0.77990e+03_rb,0.56256e+03_rb,0.81764e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,19, 7) = (/ &\n        & 0.10225e+04_rb,0.77856e+03_rb,0.56270e+03_rb,0.81737e+03_rb,0.10751e+04_rb /)\n      kbo(:, 5,19, 7) = (/ &\n        & 0.10209e+04_rb,0.77738e+03_rb,0.56230e+03_rb,0.81685e+03_rb,0.10745e+04_rb /)\n      kbo(:, 1,20, 7) = (/ &\n        & 0.10225e+04_rb,0.77853e+03_rb,0.56258e+03_rb,0.81735e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,20, 7) = (/ &\n        & 0.10206e+04_rb,0.77711e+03_rb,0.56304e+03_rb,0.81761e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,20, 7) = (/ &\n        & 0.10189e+04_rb,0.77589e+03_rb,0.56295e+03_rb,0.81757e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,20, 7) = (/ &\n        & 0.10175e+04_rb,0.77480e+03_rb,0.56264e+03_rb,0.81728e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,20, 7) = (/ &\n        & 0.10162e+04_rb,0.77385e+03_rb,0.56211e+03_rb,0.81672e+03_rb,0.10744e+04_rb /)\n      kbo(:, 1,21, 7) = (/ &\n        & 0.10174e+04_rb,0.77475e+03_rb,0.56279e+03_rb,0.81734e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,21, 7) = (/ &\n        & 0.10159e+04_rb,0.77361e+03_rb,0.56292e+03_rb,0.81756e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,21, 7) = (/ &\n        & 0.10146e+04_rb,0.77262e+03_rb,0.56281e+03_rb,0.81751e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,21, 7) = (/ &\n        & 0.10134e+04_rb,0.77175e+03_rb,0.56248e+03_rb,0.81718e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,21, 7) = (/ &\n        & 0.10124e+04_rb,0.77098e+03_rb,0.56193e+03_rb,0.81661e+03_rb,0.10743e+04_rb /)\n      kbo(:, 1,22, 7) = (/ &\n        & 0.10132e+04_rb,0.77163e+03_rb,0.56273e+03_rb,0.81736e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,22, 7) = (/ &\n        & 0.10120e+04_rb,0.77071e+03_rb,0.56281e+03_rb,0.81753e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,22, 7) = (/ &\n        & 0.10110e+04_rb,0.76992e+03_rb,0.56267e+03_rb,0.81743e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,22, 7) = (/ &\n        & 0.10100e+04_rb,0.76922e+03_rb,0.56230e+03_rb,0.81706e+03_rb,0.10749e+04_rb /)\n      kbo(:, 5,22, 7) = (/ &\n        & 0.10092e+04_rb,0.76860e+03_rb,0.56172e+03_rb,0.81643e+03_rb,0.10742e+04_rb /)\n      kbo(:, 1,23, 7) = (/ &\n        & 0.10099e+04_rb,0.76909e+03_rb,0.56267e+03_rb,0.81738e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,23, 7) = (/ &\n        & 0.10089e+04_rb,0.76836e+03_rb,0.56273e+03_rb,0.81751e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,23, 7) = (/ &\n        & 0.10080e+04_rb,0.76773e+03_rb,0.56254e+03_rb,0.81734e+03_rb,0.10752e+04_rb /)\n      kbo(:, 4,23, 7) = (/ &\n        & 0.10073e+04_rb,0.76717e+03_rb,0.56214e+03_rb,0.81691e+03_rb,0.10748e+04_rb /)\n      kbo(:, 5,23, 7) = (/ &\n        & 0.10067e+04_rb,0.76668e+03_rb,0.56152e+03_rb,0.81625e+03_rb,0.10740e+04_rb /)\n      kbo(:, 1,24, 7) = (/ &\n        & 0.10071e+04_rb,0.76704e+03_rb,0.56263e+03_rb,0.81739e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,24, 7) = (/ &\n        & 0.10064e+04_rb,0.76647e+03_rb,0.56264e+03_rb,0.81747e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,24, 7) = (/ &\n        & 0.10057e+04_rb,0.76596e+03_rb,0.56242e+03_rb,0.81725e+03_rb,0.10751e+04_rb /)\n      kbo(:, 4,24, 7) = (/ &\n        & 0.10051e+04_rb,0.76551e+03_rb,0.56198e+03_rb,0.81678e+03_rb,0.10746e+04_rb /)\n      kbo(:, 5,24, 7) = (/ &\n        & 0.10046e+04_rb,0.76512e+03_rb,0.56132e+03_rb,0.81606e+03_rb,0.10738e+04_rb /)\n      kbo(:, 1,25, 7) = (/ &\n        & 0.10049e+04_rb,0.76538e+03_rb,0.56260e+03_rb,0.81741e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,25, 7) = (/ &\n        & 0.10043e+04_rb,0.76492e+03_rb,0.56256e+03_rb,0.81742e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,25, 7) = (/ &\n        & 0.10038e+04_rb,0.76453e+03_rb,0.56229e+03_rb,0.81717e+03_rb,0.10750e+04_rb /)\n      kbo(:, 4,25, 7) = (/ &\n        & 0.10033e+04_rb,0.76417e+03_rb,0.56181e+03_rb,0.81663e+03_rb,0.10745e+04_rb /)\n      kbo(:, 5,25, 7) = (/ &\n        & 0.10029e+04_rb,0.76385e+03_rb,0.56111e+03_rb,0.81585e+03_rb,0.10736e+04_rb /)\n      kbo(:, 1,26, 7) = (/ &\n        & 0.10031e+04_rb,0.76404e+03_rb,0.56257e+03_rb,0.81743e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,26, 7) = (/ &\n        & 0.10026e+04_rb,0.76368e+03_rb,0.56248e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,26, 7) = (/ &\n        & 0.10022e+04_rb,0.76336e+03_rb,0.56216e+03_rb,0.81707e+03_rb,0.10749e+04_rb /)\n      kbo(:, 4,26, 7) = (/ &\n        & 0.10018e+04_rb,0.76308e+03_rb,0.56163e+03_rb,0.81645e+03_rb,0.10743e+04_rb /)\n      kbo(:, 5,26, 7) = (/ &\n        & 0.10015e+04_rb,0.76282e+03_rb,0.56088e+03_rb,0.81561e+03_rb,0.10734e+04_rb /)\n      kbo(:, 1,27, 7) = (/ &\n        & 0.10017e+04_rb,0.76296e+03_rb,0.56253e+03_rb,0.81743e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,27, 7) = (/ &\n        & 0.10013e+04_rb,0.76268e+03_rb,0.56239e+03_rb,0.81730e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,27, 7) = (/ &\n        & 0.10010e+04_rb,0.76242e+03_rb,0.56202e+03_rb,0.81696e+03_rb,0.10748e+04_rb /)\n      kbo(:, 4,27, 7) = (/ &\n        & 0.10007e+04_rb,0.76220e+03_rb,0.56144e+03_rb,0.81630e+03_rb,0.10741e+04_rb /)\n      kbo(:, 5,27, 7) = (/ &\n        & 0.10004e+04_rb,0.76200e+03_rb,0.56064e+03_rb,0.81536e+03_rb,0.10731e+04_rb /)\n      kbo(:, 1,28, 7) = (/ &\n        & 0.10005e+04_rb,0.76209e+03_rb,0.56249e+03_rb,0.81738e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,28, 7) = (/ &\n        & 0.10002e+04_rb,0.76186e+03_rb,0.56229e+03_rb,0.81724e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,28, 7) = (/ &\n        & 0.99995e+03_rb,0.76166e+03_rb,0.56188e+03_rb,0.81687e+03_rb,0.10747e+04_rb /)\n      kbo(:, 4,28, 7) = (/ &\n        & 0.99971e+03_rb,0.76148e+03_rb,0.56124e+03_rb,0.81607e+03_rb,0.10739e+04_rb /)\n      kbo(:, 5,28, 7) = (/ &\n        & 0.99950e+03_rb,0.76132e+03_rb,0.56040e+03_rb,0.81510e+03_rb,0.10728e+04_rb /)\n      kbo(:, 1,29, 7) = (/ &\n        & 0.99960e+03_rb,0.76139e+03_rb,0.56244e+03_rb,0.81739e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,29, 7) = (/ &\n        & 0.99935e+03_rb,0.76121e+03_rb,0.56219e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 3,29, 7) = (/ &\n        & 0.99914e+03_rb,0.76105e+03_rb,0.56172e+03_rb,0.81663e+03_rb,0.10745e+04_rb /)\n      kbo(:, 4,29, 7) = (/ &\n        & 0.99895e+03_rb,0.76091e+03_rb,0.56103e+03_rb,0.81584e+03_rb,0.10737e+04_rb /)\n      kbo(:, 5,29, 7) = (/ &\n        & 0.99878e+03_rb,0.76078e+03_rb,0.56014e+03_rb,0.81482e+03_rb,0.10725e+04_rb /)\n      kbo(:, 1,30, 7) = (/ &\n        & 0.99885e+03_rb,0.76083e+03_rb,0.56238e+03_rb,0.81733e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,30, 7) = (/ &\n        & 0.99865e+03_rb,0.76069e+03_rb,0.56207e+03_rb,0.81703e+03_rb,0.10750e+04_rb /)\n      kbo(:, 3,30, 7) = (/ &\n        & 0.99848e+03_rb,0.76055e+03_rb,0.56155e+03_rb,0.81643e+03_rb,0.10743e+04_rb /)\n      kbo(:, 4,30, 7) = (/ &\n        & 0.99833e+03_rb,0.76044e+03_rb,0.56081e+03_rb,0.81561e+03_rb,0.10734e+04_rb /)\n      kbo(:, 5,30, 7) = (/ &\n        & 0.99819e+03_rb,0.76034e+03_rb,0.55986e+03_rb,0.81451e+03_rb,0.10721e+04_rb /)\n      kbo(:, 1,31, 7) = (/ &\n        & 0.99824e+03_rb,0.76037e+03_rb,0.56231e+03_rb,0.81727e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,31, 7) = (/ &\n        & 0.99808e+03_rb,0.76026e+03_rb,0.56195e+03_rb,0.81690e+03_rb,0.10748e+04_rb /)\n      kbo(:, 3,31, 7) = (/ &\n        & 0.99794e+03_rb,0.76015e+03_rb,0.56137e+03_rb,0.81625e+03_rb,0.10741e+04_rb /)\n      kbo(:, 4,31, 7) = (/ &\n        & 0.99782e+03_rb,0.76006e+03_rb,0.56058e+03_rb,0.81535e+03_rb,0.10731e+04_rb /)\n      kbo(:, 5,31, 7) = (/ &\n        & 0.99772e+03_rb,0.75998e+03_rb,0.55958e+03_rb,0.81419e+03_rb,0.10717e+04_rb /)\n      kbo(:, 1,32, 7) = (/ &\n        & 0.99774e+03_rb,0.76000e+03_rb,0.56222e+03_rb,0.81719e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,32, 7) = (/ &\n        & 0.99763e+03_rb,0.75991e+03_rb,0.56181e+03_rb,0.81675e+03_rb,0.10747e+04_rb /)\n      kbo(:, 3,32, 7) = (/ &\n        & 0.99752e+03_rb,0.75984e+03_rb,0.56117e+03_rb,0.81604e+03_rb,0.10739e+04_rb /)\n      kbo(:, 4,32, 7) = (/ &\n        & 0.99742e+03_rb,0.75976e+03_rb,0.56033e+03_rb,0.81507e+03_rb,0.10728e+04_rb /)\n      kbo(:, 5,32, 7) = (/ &\n        & 0.99733e+03_rb,0.75970e+03_rb,0.55927e+03_rb,0.81384e+03_rb,0.10713e+04_rb /)\n      kbo(:, 1,33, 7) = (/ &\n        & 0.99735e+03_rb,0.75971e+03_rb,0.56212e+03_rb,0.81709e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,33, 7) = (/ &\n        & 0.99725e+03_rb,0.75964e+03_rb,0.56165e+03_rb,0.81658e+03_rb,0.10745e+04_rb /)\n      kbo(:, 3,33, 7) = (/ &\n        & 0.99717e+03_rb,0.75957e+03_rb,0.56096e+03_rb,0.81581e+03_rb,0.10736e+04_rb /)\n      kbo(:, 4,33, 7) = (/ &\n        & 0.99709e+03_rb,0.75952e+03_rb,0.56006e+03_rb,0.81477e+03_rb,0.10724e+04_rb /)\n      kbo(:, 5,33, 7) = (/ &\n        & 0.99703e+03_rb,0.75946e+03_rb,0.55896e+03_rb,0.81347e+03_rb,0.10709e+04_rb /)\n      kbo(:, 1,34, 7) = (/ &\n        & 0.99704e+03_rb,0.75947e+03_rb,0.56203e+03_rb,0.81702e+03_rb,0.10750e+04_rb /)\n      kbo(:, 2,34, 7) = (/ &\n        & 0.99696e+03_rb,0.75942e+03_rb,0.56151e+03_rb,0.81642e+03_rb,0.10743e+04_rb /)\n      kbo(:, 3,34, 7) = (/ &\n        & 0.99689e+03_rb,0.75937e+03_rb,0.56077e+03_rb,0.81558e+03_rb,0.10734e+04_rb /)\n      kbo(:, 4,34, 7) = (/ &\n        & 0.99683e+03_rb,0.75932e+03_rb,0.55982e+03_rb,0.81449e+03_rb,0.10721e+04_rb /)\n      kbo(:, 5,34, 7) = (/ &\n        & 0.99678e+03_rb,0.75928e+03_rb,0.55868e+03_rb,0.81314e+03_rb,0.10704e+04_rb /)\n      kbo(:, 1,35, 7) = (/ &\n        & 0.99679e+03_rb,0.75929e+03_rb,0.56197e+03_rb,0.81693e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,35, 7) = (/ &\n        & 0.99673e+03_rb,0.75925e+03_rb,0.56142e+03_rb,0.81633e+03_rb,0.10742e+04_rb /)\n      kbo(:, 3,35, 7) = (/ &\n        & 0.99667e+03_rb,0.75920e+03_rb,0.56065e+03_rb,0.81545e+03_rb,0.10733e+04_rb /)\n      kbo(:, 4,35, 7) = (/ &\n        & 0.99663e+03_rb,0.75916e+03_rb,0.55968e+03_rb,0.81434e+03_rb,0.10719e+04_rb /)\n      kbo(:, 5,35, 7) = (/ &\n        & 0.99658e+03_rb,0.75913e+03_rb,0.55851e+03_rb,0.81294e+03_rb,0.10702e+04_rb /)\n      kbo(:, 1,36, 7) = (/ &\n        & 0.99660e+03_rb,0.75914e+03_rb,0.56195e+03_rb,0.81692e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,36, 7) = (/ &\n        & 0.99655e+03_rb,0.75911e+03_rb,0.56140e+03_rb,0.81631e+03_rb,0.10742e+04_rb /)\n      kbo(:, 3,36, 7) = (/ &\n        & 0.99650e+03_rb,0.75907e+03_rb,0.56063e+03_rb,0.81543e+03_rb,0.10732e+04_rb /)\n      kbo(:, 4,36, 7) = (/ &\n        & 0.99646e+03_rb,0.75904e+03_rb,0.55965e+03_rb,0.81430e+03_rb,0.10719e+04_rb /)\n      kbo(:, 5,36, 7) = (/ &\n        & 0.99642e+03_rb,0.75901e+03_rb,0.55848e+03_rb,0.81290e+03_rb,0.10702e+04_rb /)\n      kbo(:, 1,37, 7) = (/ &\n        & 0.99645e+03_rb,0.75903e+03_rb,0.56200e+03_rb,0.81697e+03_rb,0.10749e+04_rb /)\n      kbo(:, 2,37, 7) = (/ &\n        & 0.99640e+03_rb,0.75900e+03_rb,0.56148e+03_rb,0.81640e+03_rb,0.10743e+04_rb /)\n      kbo(:, 3,37, 7) = (/ &\n        & 0.99636e+03_rb,0.75897e+03_rb,0.56074e+03_rb,0.81556e+03_rb,0.10734e+04_rb /)\n      kbo(:, 4,37, 7) = (/ &\n        & 0.99633e+03_rb,0.75894e+03_rb,0.55979e+03_rb,0.81446e+03_rb,0.10721e+04_rb /)\n      kbo(:, 5,37, 7) = (/ &\n        & 0.99630e+03_rb,0.75892e+03_rb,0.55864e+03_rb,0.81313e+03_rb,0.10704e+04_rb /)\n      kbo(:, 1,38, 7) = (/ &\n        & 0.99632e+03_rb,0.75894e+03_rb,0.56206e+03_rb,0.81703e+03_rb,0.10750e+04_rb /)\n      kbo(:, 2,38, 7) = (/ &\n        & 0.99628e+03_rb,0.75891e+03_rb,0.56157e+03_rb,0.81650e+03_rb,0.10744e+04_rb /)\n      kbo(:, 3,38, 7) = (/ &\n        & 0.99625e+03_rb,0.75889e+03_rb,0.56085e+03_rb,0.81569e+03_rb,0.10735e+04_rb /)\n      kbo(:, 4,38, 7) = (/ &\n        & 0.99623e+03_rb,0.75887e+03_rb,0.55993e+03_rb,0.81464e+03_rb,0.10723e+04_rb /)\n      kbo(:, 5,38, 7) = (/ &\n        & 0.99620e+03_rb,0.75885e+03_rb,0.55881e+03_rb,0.81331e+03_rb,0.10707e+04_rb /)\n      kbo(:, 1,39, 7) = (/ &\n        & 0.99622e+03_rb,0.75886e+03_rb,0.56210e+03_rb,0.81708e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,39, 7) = (/ &\n        & 0.99619e+03_rb,0.75884e+03_rb,0.56164e+03_rb,0.81666e+03_rb,0.10745e+04_rb /)\n      kbo(:, 3,39, 7) = (/ &\n        & 0.99617e+03_rb,0.75882e+03_rb,0.56096e+03_rb,0.81582e+03_rb,0.10737e+04_rb /)\n      kbo(:, 4,39, 7) = (/ &\n        & 0.99614e+03_rb,0.75880e+03_rb,0.56007e+03_rb,0.81479e+03_rb,0.10725e+04_rb /)\n      kbo(:, 5,39, 7) = (/ &\n        & 0.99612e+03_rb,0.75878e+03_rb,0.55897e+03_rb,0.81351e+03_rb,0.10709e+04_rb /)\n      kbo(:, 1,40, 7) = (/ &\n        & 0.99613e+03_rb,0.75880e+03_rb,0.56218e+03_rb,0.81716e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,40, 7) = (/ &\n        & 0.99611e+03_rb,0.75878e+03_rb,0.56177e+03_rb,0.81672e+03_rb,0.10747e+04_rb /)\n      kbo(:, 3,40, 7) = (/ &\n        & 0.99609e+03_rb,0.75876e+03_rb,0.56114e+03_rb,0.81603e+03_rb,0.10739e+04_rb /)\n      kbo(:, 4,40, 7) = (/ &\n        & 0.99607e+03_rb,0.75875e+03_rb,0.56030e+03_rb,0.81506e+03_rb,0.10728e+04_rb /)\n      kbo(:, 5,40, 7) = (/ &\n        & 0.99605e+03_rb,0.75874e+03_rb,0.55925e+03_rb,0.81383e+03_rb,0.10713e+04_rb /)\n      kbo(:, 1,41, 7) = (/ &\n        & 0.99606e+03_rb,0.75874e+03_rb,0.56225e+03_rb,0.81724e+03_rb,0.10752e+04_rb /)\n      kbo(:, 2,41, 7) = (/ &\n        & 0.99604e+03_rb,0.75873e+03_rb,0.56189e+03_rb,0.81688e+03_rb,0.10748e+04_rb /)\n      kbo(:, 3,41, 7) = (/ &\n        & 0.99602e+03_rb,0.75871e+03_rb,0.56132e+03_rb,0.81623e+03_rb,0.10741e+04_rb /)\n      kbo(:, 4,41, 7) = (/ &\n        & 0.99601e+03_rb,0.75870e+03_rb,0.56053e+03_rb,0.81532e+03_rb,0.10731e+04_rb /)\n      kbo(:, 5,41, 7) = (/ &\n        & 0.99600e+03_rb,0.75869e+03_rb,0.55954e+03_rb,0.81416e+03_rb,0.10717e+04_rb /)\n      kbo(:, 1,42, 7) = (/ &\n        & 0.99601e+03_rb,0.75870e+03_rb,0.56231e+03_rb,0.81730e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,42, 7) = (/ &\n        & 0.99599e+03_rb,0.75869e+03_rb,0.56200e+03_rb,0.81698e+03_rb,0.10750e+04_rb /)\n      kbo(:, 3,42, 7) = (/ &\n        & 0.99597e+03_rb,0.75868e+03_rb,0.56149e+03_rb,0.81641e+03_rb,0.10743e+04_rb /)\n      kbo(:, 4,42, 7) = (/ &\n        & 0.99596e+03_rb,0.75867e+03_rb,0.56075e+03_rb,0.81559e+03_rb,0.10734e+04_rb /)\n      kbo(:, 5,42, 7) = (/ &\n        & 0.99595e+03_rb,0.75866e+03_rb,0.55981e+03_rb,0.81449e+03_rb,0.10721e+04_rb /)\n      kbo(:, 1,43, 7) = (/ &\n        & 0.99596e+03_rb,0.75867e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,43, 7) = (/ &\n        & 0.99595e+03_rb,0.75866e+03_rb,0.56212e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 3,43, 7) = (/ &\n        & 0.99594e+03_rb,0.75865e+03_rb,0.56167e+03_rb,0.81662e+03_rb,0.10746e+04_rb /)\n      kbo(:, 4,43, 7) = (/ &\n        & 0.99592e+03_rb,0.75864e+03_rb,0.56100e+03_rb,0.81588e+03_rb,0.10737e+04_rb /)\n      kbo(:, 5,43, 7) = (/ &\n        & 0.99591e+03_rb,0.75863e+03_rb,0.56012e+03_rb,0.81487e+03_rb,0.10726e+04_rb /)\n      kbo(:, 1,44, 7) = (/ &\n        & 0.99592e+03_rb,0.75864e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,44, 7) = (/ &\n        & 0.99591e+03_rb,0.75863e+03_rb,0.56222e+03_rb,0.81722e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,44, 7) = (/ &\n        & 0.99591e+03_rb,0.75862e+03_rb,0.56184e+03_rb,0.81680e+03_rb,0.10748e+04_rb /)\n      kbo(:, 4,44, 7) = (/ &\n        & 0.99589e+03_rb,0.75861e+03_rb,0.56125e+03_rb,0.81614e+03_rb,0.10741e+04_rb /)\n      kbo(:, 5,44, 7) = (/ &\n        & 0.99588e+03_rb,0.75861e+03_rb,0.56044e+03_rb,0.81523e+03_rb,0.10730e+04_rb /)\n      kbo(:, 1,45, 7) = (/ &\n        & 0.99589e+03_rb,0.75861e+03_rb,0.56237e+03_rb,0.81733e+03_rb,0.10754e+04_rb /)\n      kbo(:, 2,45, 7) = (/ &\n        & 0.99588e+03_rb,0.75861e+03_rb,0.56230e+03_rb,0.81729e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,45, 7) = (/ &\n        & 0.99587e+03_rb,0.75860e+03_rb,0.56199e+03_rb,0.81699e+03_rb,0.10750e+04_rb /)\n      kbo(:, 4,45, 7) = (/ &\n        & 0.99586e+03_rb,0.75859e+03_rb,0.56147e+03_rb,0.81641e+03_rb,0.10743e+04_rb /)\n      kbo(:, 5,45, 7) = (/ &\n        & 0.99585e+03_rb,0.75859e+03_rb,0.56074e+03_rb,0.81557e+03_rb,0.10734e+04_rb /)\n      kbo(:, 1,46, 7) = (/ &\n        & 0.99586e+03_rb,0.75859e+03_rb,0.56233e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,46, 7) = (/ &\n        & 0.99585e+03_rb,0.75859e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,46, 7) = (/ &\n        & 0.99585e+03_rb,0.75858e+03_rb,0.56213e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 4,46, 7) = (/ &\n        & 0.99584e+03_rb,0.75858e+03_rb,0.56169e+03_rb,0.81663e+03_rb,0.10746e+04_rb /)\n      kbo(:, 5,46, 7) = (/ &\n        & 0.99583e+03_rb,0.75858e+03_rb,0.56103e+03_rb,0.81590e+03_rb,0.10738e+04_rb /)\n      kbo(:, 1,47, 7) = (/ &\n        & 0.99585e+03_rb,0.75858e+03_rb,0.56226e+03_rb,0.81718e+03_rb,0.10753e+04_rb /)\n      kbo(:, 2,47, 7) = (/ &\n        & 0.99583e+03_rb,0.75857e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,47, 7) = (/ &\n        & 0.99583e+03_rb,0.75857e+03_rb,0.56224e+03_rb,0.81723e+03_rb,0.10752e+04_rb /)\n      kbo(:, 4,47, 7) = (/ &\n        & 0.99582e+03_rb,0.75856e+03_rb,0.56189e+03_rb,0.81686e+03_rb,0.10748e+04_rb /)\n      kbo(:, 5,47, 7) = (/ &\n        & 0.99581e+03_rb,0.75856e+03_rb,0.56132e+03_rb,0.81626e+03_rb,0.10741e+04_rb /)\n      kbo(:, 1,48, 7) = (/ &\n        & 0.99582e+03_rb,0.75856e+03_rb,0.56215e+03_rb,0.81703e+03_rb,0.10751e+04_rb /)\n      kbo(:, 2,48, 7) = (/ &\n        & 0.99582e+03_rb,0.75856e+03_rb,0.56235e+03_rb,0.81732e+03_rb,0.10754e+04_rb /)\n      kbo(:, 3,48, 7) = (/ &\n        & 0.99581e+03_rb,0.75855e+03_rb,0.56232e+03_rb,0.81733e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,48, 7) = (/ &\n        & 0.99580e+03_rb,0.75855e+03_rb,0.56206e+03_rb,0.81704e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,48, 7) = (/ &\n        & 0.99580e+03_rb,0.75855e+03_rb,0.56157e+03_rb,0.81651e+03_rb,0.10744e+04_rb /)\n      kbo(:, 1,49, 7) = (/ &\n        & 0.99581e+03_rb,0.75855e+03_rb,0.56199e+03_rb,0.81684e+03_rb,0.10748e+04_rb /)\n      kbo(:, 2,49, 7) = (/ &\n        & 0.99580e+03_rb,0.75855e+03_rb,0.56230e+03_rb,0.81724e+03_rb,0.10753e+04_rb /)\n      kbo(:, 3,49, 7) = (/ &\n        & 0.99580e+03_rb,0.75854e+03_rb,0.56236e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,49, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56219e+03_rb,0.81718e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,49, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56179e+03_rb,0.81678e+03_rb,0.10747e+04_rb /)\n      kbo(:, 1,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56180e+03_rb,0.81662e+03_rb,0.10745e+04_rb /)\n      kbo(:, 2,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56221e+03_rb,0.81713e+03_rb,0.10752e+04_rb /)\n      kbo(:, 3,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56237e+03_rb,0.81735e+03_rb,0.10754e+04_rb /)\n      kbo(:, 4,50, 7) = (/ &\n        & 0.99579e+03_rb,0.75854e+03_rb,0.56228e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,50, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56197e+03_rb,0.81695e+03_rb,0.10749e+04_rb /)\n      kbo(:, 1,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56158e+03_rb,0.81637e+03_rb,0.10741e+04_rb /)\n      kbo(:, 2,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56209e+03_rb,0.81697e+03_rb,0.10750e+04_rb /)\n      kbo(:, 3,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56234e+03_rb,0.81729e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,51, 7) = (/ &\n        & 0.99578e+03_rb,0.75853e+03_rb,0.56234e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 5,51, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56211e+03_rb,0.81712e+03_rb,0.10751e+04_rb /)\n      kbo(:, 1,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75853e+03_rb,0.56131e+03_rb,0.81608e+03_rb,0.10737e+04_rb /)\n      kbo(:, 2,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56194e+03_rb,0.81678e+03_rb,0.10748e+04_rb /)\n      kbo(:, 3,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56228e+03_rb,0.81721e+03_rb,0.10753e+04_rb /)\n      kbo(:, 4,52, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56237e+03_rb,0.81738e+03_rb,0.10754e+04_rb /)\n      kbo(:, 5,52, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56222e+03_rb,0.81722e+03_rb,0.10752e+04_rb /)\n      kbo(:, 1,53, 7) = (/ &\n        & 0.99577e+03_rb,0.75852e+03_rb,0.56102e+03_rb,0.81574e+03_rb,0.10731e+04_rb /)\n      kbo(:, 2,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56174e+03_rb,0.81656e+03_rb,0.10744e+04_rb /)\n      kbo(:, 3,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56218e+03_rb,0.81709e+03_rb,0.10752e+04_rb /)\n      kbo(:, 4,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75851e+03_rb,0.56236e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 5,53, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56230e+03_rb,0.81736e+03_rb,0.10753e+04_rb /)\n      kbo(:, 1,54, 7) = (/ &\n        & 0.99576e+03_rb,0.75852e+03_rb,0.56072e+03_rb,0.81536e+03_rb,0.10726e+04_rb /)\n      kbo(:, 2,54, 7) = (/ &\n        & 0.99576e+03_rb,0.75851e+03_rb,0.56153e+03_rb,0.81633e+03_rb,0.10740e+04_rb /)\n      kbo(:, 3,54, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56207e+03_rb,0.81694e+03_rb,0.10750e+04_rb /)\n      kbo(:, 4,54, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56233e+03_rb,0.81728e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,54, 7) = (/ &\n        & 0.99576e+03_rb,0.75851e+03_rb,0.56235e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56039e+03_rb,0.81495e+03_rb,0.10720e+04_rb /)\n      kbo(:, 2,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56128e+03_rb,0.81606e+03_rb,0.10736e+04_rb /)\n      kbo(:, 3,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56193e+03_rb,0.81677e+03_rb,0.10747e+04_rb /)\n      kbo(:, 4,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56227e+03_rb,0.81720e+03_rb,0.10753e+04_rb /)\n      kbo(:, 5,55, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56237e+03_rb,0.81736e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,56, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56002e+03_rb,0.81448e+03_rb,0.10713e+04_rb /)\n      kbo(:, 2,56, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56104e+03_rb,0.81576e+03_rb,0.10732e+04_rb /)\n      kbo(:, 3,56, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.56175e+03_rb,0.81659e+03_rb,0.10744e+04_rb /)\n      kbo(:, 4,56, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56219e+03_rb,0.81709e+03_rb,0.10752e+04_rb /)\n      kbo(:, 5,56, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56236e+03_rb,0.81734e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,57, 7) = (/ &\n        & 0.99575e+03_rb,0.75851e+03_rb,0.55963e+03_rb,0.81395e+03_rb,0.10705e+04_rb /)\n      kbo(:, 2,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56076e+03_rb,0.81540e+03_rb,0.10727e+04_rb /)\n      kbo(:, 3,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56157e+03_rb,0.81635e+03_rb,0.10741e+04_rb /)\n      kbo(:, 4,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56208e+03_rb,0.81696e+03_rb,0.10750e+04_rb /)\n      kbo(:, 5,57, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56234e+03_rb,0.81729e+03_rb,0.10754e+04_rb /)\n      kbo(:, 1,58, 7) = (/ &\n        & 0.99575e+03_rb,0.75850e+03_rb,0.55922e+03_rb,0.81340e+03_rb,0.10697e+04_rb /)\n      kbo(:, 2,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56044e+03_rb,0.81503e+03_rb,0.10721e+04_rb /)\n      kbo(:, 3,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75851e+03_rb,0.56134e+03_rb,0.81611e+03_rb,0.10737e+04_rb /)\n      kbo(:, 4,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75851e+03_rb,0.56195e+03_rb,0.81681e+03_rb,0.10748e+04_rb /)\n      kbo(:, 5,58, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56228e+03_rb,0.81722e+03_rb,0.10753e+04_rb /)\n      kbo(:, 1,59, 7) = (/ &\n        & 0.99575e+03_rb,0.75850e+03_rb,0.55905e+03_rb,0.81317e+03_rb,0.10694e+04_rb /)\n      kbo(:, 2,59, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56032e+03_rb,0.81485e+03_rb,0.10718e+04_rb /)\n      kbo(:, 3,59, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56125e+03_rb,0.81601e+03_rb,0.10735e+04_rb /)\n      kbo(:, 4,59, 7) = (/ &\n        & 0.99574e+03_rb,0.75850e+03_rb,0.56189e+03_rb,0.81673e+03_rb,0.10747e+04_rb /)\n      kbo(:, 5,59, 7) = (/ &\n        & 0.99573e+03_rb,0.75850e+03_rb,0.56225e+03_rb,0.81718e+03_rb,0.10753e+04_rb /)\n      kbo(:, 1,13, 8) = (/ &\n        & 0.11451e+04_rb,0.86748e+03_rb,0.59259e+03_rb,0.85187e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,13, 8) = (/ &\n        & 0.11363e+04_rb,0.86085e+03_rb,0.58896e+03_rb,0.85188e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,13, 8) = (/ &\n        & 0.11286e+04_rb,0.85515e+03_rb,0.58586e+03_rb,0.85170e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,13, 8) = (/ &\n        & 0.11220e+04_rb,0.85016e+03_rb,0.58378e+03_rb,0.85132e+03_rb,0.11224e+04_rb /)\n      kbo(:, 5,13, 8) = (/ &\n        & 0.11162e+04_rb,0.84582e+03_rb,0.58229e+03_rb,0.85074e+03_rb,0.11218e+04_rb /)\n      kbo(:, 1,14, 8) = (/ &\n        & 0.11230e+04_rb,0.85087e+03_rb,0.58392e+03_rb,0.85168e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,14, 8) = (/ &\n        & 0.11158e+04_rb,0.84552e+03_rb,0.58280e+03_rb,0.85169e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,14, 8) = (/ &\n        & 0.11097e+04_rb,0.84090e+03_rb,0.58233e+03_rb,0.85151e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,14, 8) = (/ &\n        & 0.11043e+04_rb,0.83689e+03_rb,0.58194e+03_rb,0.85113e+03_rb,0.11223e+04_rb /)\n      kbo(:, 5,14, 8) = (/ &\n        & 0.10996e+04_rb,0.83336e+03_rb,0.58140e+03_rb,0.85052e+03_rb,0.11217e+04_rb /)\n      kbo(:, 1,15, 8) = (/ &\n        & 0.11049e+04_rb,0.83731e+03_rb,0.58207e+03_rb,0.85153e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,15, 8) = (/ &\n        & 0.10991e+04_rb,0.83301e+03_rb,0.58217e+03_rb,0.85153e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,15, 8) = (/ &\n        & 0.10942e+04_rb,0.82928e+03_rb,0.58200e+03_rb,0.85134e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,15, 8) = (/ &\n        & 0.10899e+04_rb,0.82605e+03_rb,0.58161e+03_rb,0.85094e+03_rb,0.11223e+04_rb /)\n      kbo(:, 5,15, 8) = (/ &\n        & 0.10860e+04_rb,0.82320e+03_rb,0.58108e+03_rb,0.85034e+03_rb,0.11216e+04_rb /)\n      kbo(:, 1,16, 8) = (/ &\n        & 0.10902e+04_rb,0.82630e+03_rb,0.58181e+03_rb,0.85141e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,16, 8) = (/ &\n        & 0.10856e+04_rb,0.82283e+03_rb,0.58190e+03_rb,0.85139e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,16, 8) = (/ &\n        & 0.10816e+04_rb,0.81983e+03_rb,0.58172e+03_rb,0.85119e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,16, 8) = (/ &\n        & 0.10781e+04_rb,0.81721e+03_rb,0.58133e+03_rb,0.85078e+03_rb,0.11222e+04_rb /)\n      kbo(:, 5,16, 8) = (/ &\n        & 0.10750e+04_rb,0.81491e+03_rb,0.58080e+03_rb,0.85015e+03_rb,0.11215e+04_rb /)\n      kbo(:, 1,17, 8) = (/ &\n        & 0.10783e+04_rb,0.81738e+03_rb,0.58160e+03_rb,0.85131e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,17, 8) = (/ &\n        & 0.10746e+04_rb,0.81457e+03_rb,0.58168e+03_rb,0.85129e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,17, 8) = (/ &\n        & 0.10713e+04_rb,0.81215e+03_rb,0.58149e+03_rb,0.85108e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,17, 8) = (/ &\n        & 0.10685e+04_rb,0.81004e+03_rb,0.58109e+03_rb,0.85064e+03_rb,0.11222e+04_rb /)\n      kbo(:, 5,17, 8) = (/ &\n        & 0.10660e+04_rb,0.80818e+03_rb,0.58056e+03_rb,0.85000e+03_rb,0.11214e+04_rb /)\n      kbo(:, 1,18, 8) = (/ &\n        & 0.10686e+04_rb,0.81013e+03_rb,0.58144e+03_rb,0.85124e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,18, 8) = (/ &\n        & 0.10656e+04_rb,0.80786e+03_rb,0.58150e+03_rb,0.85119e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,18, 8) = (/ &\n        & 0.10630e+04_rb,0.80591e+03_rb,0.58129e+03_rb,0.85095e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,18, 8) = (/ &\n        & 0.10607e+04_rb,0.80419e+03_rb,0.58089e+03_rb,0.85052e+03_rb,0.11221e+04_rb /)\n      kbo(:, 5,18, 8) = (/ &\n        & 0.10587e+04_rb,0.80269e+03_rb,0.58036e+03_rb,0.84984e+03_rb,0.11213e+04_rb /)\n      kbo(:, 1,19, 8) = (/ &\n        & 0.10608e+04_rb,0.80424e+03_rb,0.58130e+03_rb,0.85117e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,19, 8) = (/ &\n        & 0.10584e+04_rb,0.80242e+03_rb,0.58135e+03_rb,0.85109e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,19, 8) = (/ &\n        & 0.10562e+04_rb,0.80084e+03_rb,0.58113e+03_rb,0.85087e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,19, 8) = (/ &\n        & 0.10544e+04_rb,0.79946e+03_rb,0.58072e+03_rb,0.85040e+03_rb,0.11220e+04_rb /)\n      kbo(:, 5,19, 8) = (/ &\n        & 0.10528e+04_rb,0.79825e+03_rb,0.58019e+03_rb,0.84971e+03_rb,0.11212e+04_rb /)\n      kbo(:, 1,20, 8) = (/ &\n        & 0.10544e+04_rb,0.79943e+03_rb,0.58120e+03_rb,0.85111e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,20, 8) = (/ &\n        & 0.10524e+04_rb,0.79797e+03_rb,0.58122e+03_rb,0.85103e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,20, 8) = (/ &\n        & 0.10507e+04_rb,0.79669e+03_rb,0.58098e+03_rb,0.85078e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,20, 8) = (/ &\n        & 0.10492e+04_rb,0.79558e+03_rb,0.58056e+03_rb,0.85028e+03_rb,0.11220e+04_rb /)\n      kbo(:, 5,20, 8) = (/ &\n        & 0.10479e+04_rb,0.79460e+03_rb,0.58002e+03_rb,0.84958e+03_rb,0.11211e+04_rb /)\n      kbo(:, 1,21, 8) = (/ &\n        & 0.10492e+04_rb,0.79553e+03_rb,0.58112e+03_rb,0.85107e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,21, 8) = (/ &\n        & 0.10476e+04_rb,0.79436e+03_rb,0.58112e+03_rb,0.85096e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,21, 8) = (/ &\n        & 0.10462e+04_rb,0.79334e+03_rb,0.58085e+03_rb,0.85069e+03_rb,0.11224e+04_rb /)\n      kbo(:, 4,21, 8) = (/ &\n        & 0.10450e+04_rb,0.79243e+03_rb,0.58042e+03_rb,0.85021e+03_rb,0.11219e+04_rb /)\n      kbo(:, 5,21, 8) = (/ &\n        & 0.10440e+04_rb,0.79165e+03_rb,0.57987e+03_rb,0.84945e+03_rb,0.11210e+04_rb /)\n      kbo(:, 1,22, 8) = (/ &\n        & 0.10449e+04_rb,0.79230e+03_rb,0.58106e+03_rb,0.85103e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,22, 8) = (/ &\n        & 0.10436e+04_rb,0.79136e+03_rb,0.58100e+03_rb,0.85090e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,22, 8) = (/ &\n        & 0.10425e+04_rb,0.79054e+03_rb,0.58071e+03_rb,0.85058e+03_rb,0.11224e+04_rb /)\n      kbo(:, 4,22, 8) = (/ &\n        & 0.10416e+04_rb,0.78983e+03_rb,0.58026e+03_rb,0.85002e+03_rb,0.11217e+04_rb /)\n      kbo(:, 5,22, 8) = (/ &\n        & 0.10407e+04_rb,0.78921e+03_rb,0.57969e+03_rb,0.84925e+03_rb,0.11208e+04_rb /)\n      kbo(:, 1,23, 8) = (/ &\n        & 0.10414e+04_rb,0.78969e+03_rb,0.58100e+03_rb,0.85099e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,23, 8) = (/ &\n        & 0.10404e+04_rb,0.78894e+03_rb,0.58090e+03_rb,0.85083e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,23, 8) = (/ &\n        & 0.10395e+04_rb,0.78829e+03_rb,0.58058e+03_rb,0.85047e+03_rb,0.11223e+04_rb /)\n      kbo(:, 4,23, 8) = (/ &\n        & 0.10387e+04_rb,0.78772e+03_rb,0.58011e+03_rb,0.84989e+03_rb,0.11216e+04_rb /)\n      kbo(:, 5,23, 8) = (/ &\n        & 0.10381e+04_rb,0.78721e+03_rb,0.57952e+03_rb,0.84905e+03_rb,0.11206e+04_rb /)\n      kbo(:, 1,24, 8) = (/ &\n        & 0.10386e+04_rb,0.78759e+03_rb,0.58095e+03_rb,0.85095e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,24, 8) = (/ &\n        & 0.10378e+04_rb,0.78698e+03_rb,0.58081e+03_rb,0.85075e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,24, 8) = (/ &\n        & 0.10371e+04_rb,0.78646e+03_rb,0.58046e+03_rb,0.85035e+03_rb,0.11222e+04_rb /)\n      kbo(:, 4,24, 8) = (/ &\n        & 0.10365e+04_rb,0.78601e+03_rb,0.57995e+03_rb,0.84971e+03_rb,0.11214e+04_rb /)\n      kbo(:, 5,24, 8) = (/ &\n        & 0.10359e+04_rb,0.78561e+03_rb,0.57934e+03_rb,0.84885e+03_rb,0.11203e+04_rb /)\n      kbo(:, 1,25, 8) = (/ &\n        & 0.10363e+04_rb,0.78588e+03_rb,0.58090e+03_rb,0.85090e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,25, 8) = (/ &\n        & 0.10357e+04_rb,0.78541e+03_rb,0.58070e+03_rb,0.85067e+03_rb,0.11225e+04_rb /)\n      kbo(:, 3,25, 8) = (/ &\n        & 0.10351e+04_rb,0.78498e+03_rb,0.58032e+03_rb,0.85020e+03_rb,0.11220e+04_rb /)\n      kbo(:, 4,25, 8) = (/ &\n        & 0.10346e+04_rb,0.78461e+03_rb,0.57980e+03_rb,0.84953e+03_rb,0.11212e+04_rb /)\n      kbo(:, 5,25, 8) = (/ &\n        & 0.10342e+04_rb,0.78430e+03_rb,0.57916e+03_rb,0.84863e+03_rb,0.11201e+04_rb /)\n      kbo(:, 1,26, 8) = (/ &\n        & 0.10345e+04_rb,0.78450e+03_rb,0.58084e+03_rb,0.85084e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,26, 8) = (/ &\n        & 0.10339e+04_rb,0.78411e+03_rb,0.58059e+03_rb,0.85057e+03_rb,0.11224e+04_rb /)\n      kbo(:, 3,26, 8) = (/ &\n        & 0.10335e+04_rb,0.78378e+03_rb,0.58018e+03_rb,0.85004e+03_rb,0.11219e+04_rb /)\n      kbo(:, 4,26, 8) = (/ &\n        & 0.10331e+04_rb,0.78349e+03_rb,0.57964e+03_rb,0.84934e+03_rb,0.11210e+04_rb /)\n      kbo(:, 5,26, 8) = (/ &\n        & 0.10328e+04_rb,0.78323e+03_rb,0.57897e+03_rb,0.84838e+03_rb,0.11198e+04_rb /)\n      kbo(:, 1,27, 8) = (/ &\n        & 0.10329e+04_rb,0.78338e+03_rb,0.58078e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,27, 8) = (/ &\n        & 0.10326e+04_rb,0.78307e+03_rb,0.58048e+03_rb,0.85045e+03_rb,0.11223e+04_rb /)\n      kbo(:, 3,27, 8) = (/ &\n        & 0.10322e+04_rb,0.78282e+03_rb,0.58003e+03_rb,0.84982e+03_rb,0.11217e+04_rb /)\n      kbo(:, 4,27, 8) = (/ &\n        & 0.10319e+04_rb,0.78258e+03_rb,0.57947e+03_rb,0.84907e+03_rb,0.11207e+04_rb /)\n      kbo(:, 5,27, 8) = (/ &\n        & 0.10316e+04_rb,0.78237e+03_rb,0.57877e+03_rb,0.84811e+03_rb,0.11194e+04_rb /)\n      kbo(:, 1,28, 8) = (/ &\n        & 0.10318e+04_rb,0.78248e+03_rb,0.58069e+03_rb,0.85072e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,28, 8) = (/ &\n        & 0.10314e+04_rb,0.78225e+03_rb,0.58037e+03_rb,0.85030e+03_rb,0.11222e+04_rb /)\n      kbo(:, 3,28, 8) = (/ &\n        & 0.10312e+04_rb,0.78205e+03_rb,0.57989e+03_rb,0.84960e+03_rb,0.11215e+04_rb /)\n      kbo(:, 4,28, 8) = (/ &\n        & 0.10309e+04_rb,0.78185e+03_rb,0.57929e+03_rb,0.84888e+03_rb,0.11204e+04_rb /)\n      kbo(:, 5,28, 8) = (/ &\n        & 0.10307e+04_rb,0.78168e+03_rb,0.57856e+03_rb,0.84784e+03_rb,0.11191e+04_rb /)\n      kbo(:, 1,29, 8) = (/ &\n        & 0.10308e+04_rb,0.78175e+03_rb,0.58061e+03_rb,0.85062e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,29, 8) = (/ &\n        & 0.10305e+04_rb,0.78157e+03_rb,0.58024e+03_rb,0.85019e+03_rb,0.11221e+04_rb /)\n      kbo(:, 3,29, 8) = (/ &\n        & 0.10303e+04_rb,0.78140e+03_rb,0.57974e+03_rb,0.84950e+03_rb,0.11213e+04_rb /)\n      kbo(:, 4,29, 8) = (/ &\n        & 0.10301e+04_rb,0.78126e+03_rb,0.57911e+03_rb,0.84863e+03_rb,0.11201e+04_rb /)\n      kbo(:, 5,29, 8) = (/ &\n        & 0.10300e+04_rb,0.78112e+03_rb,0.57834e+03_rb,0.84752e+03_rb,0.11188e+04_rb /)\n      kbo(:, 1,30, 8) = (/ &\n        & 0.10300e+04_rb,0.78117e+03_rb,0.58052e+03_rb,0.85055e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,30, 8) = (/ &\n        & 0.10298e+04_rb,0.78102e+03_rb,0.58011e+03_rb,0.85001e+03_rb,0.11219e+04_rb /)\n      kbo(:, 3,30, 8) = (/ &\n        & 0.10296e+04_rb,0.78089e+03_rb,0.57958e+03_rb,0.84932e+03_rb,0.11210e+04_rb /)\n      kbo(:, 4,30, 8) = (/ &\n        & 0.10295e+04_rb,0.78077e+03_rb,0.57892e+03_rb,0.84838e+03_rb,0.11198e+04_rb /)\n      kbo(:, 5,30, 8) = (/ &\n        & 0.10294e+04_rb,0.78066e+03_rb,0.57811e+03_rb,0.84720e+03_rb,0.11184e+04_rb /)\n      kbo(:, 1,31, 8) = (/ &\n        & 0.10294e+04_rb,0.78070e+03_rb,0.58042e+03_rb,0.85041e+03_rb,0.11223e+04_rb /)\n      kbo(:, 2,31, 8) = (/ &\n        & 0.10292e+04_rb,0.78058e+03_rb,0.57998e+03_rb,0.84985e+03_rb,0.11217e+04_rb /)\n      kbo(:, 3,31, 8) = (/ &\n        & 0.10291e+04_rb,0.78049e+03_rb,0.57941e+03_rb,0.84908e+03_rb,0.11207e+04_rb /)\n      kbo(:, 4,31, 8) = (/ &\n        & 0.10290e+04_rb,0.78039e+03_rb,0.57872e+03_rb,0.84808e+03_rb,0.11195e+04_rb /)\n      kbo(:, 5,31, 8) = (/ &\n        & 0.10289e+04_rb,0.78030e+03_rb,0.57786e+03_rb,0.84686e+03_rb,0.11179e+04_rb /)\n      kbo(:, 1,32, 8) = (/ &\n        & 0.10289e+04_rb,0.78033e+03_rb,0.58031e+03_rb,0.85030e+03_rb,0.11222e+04_rb /)\n      kbo(:, 2,32, 8) = (/ &\n        & 0.10288e+04_rb,0.78024e+03_rb,0.57984e+03_rb,0.84967e+03_rb,0.11215e+04_rb /)\n      kbo(:, 3,32, 8) = (/ &\n        & 0.10287e+04_rb,0.78016e+03_rb,0.57924e+03_rb,0.84884e+03_rb,0.11204e+04_rb /)\n      kbo(:, 4,32, 8) = (/ &\n        & 0.10286e+04_rb,0.78009e+03_rb,0.57851e+03_rb,0.84778e+03_rb,0.11191e+04_rb /)\n      kbo(:, 5,32, 8) = (/ &\n        & 0.10285e+04_rb,0.78000e+03_rb,0.57759e+03_rb,0.84651e+03_rb,0.11175e+04_rb /)\n      kbo(:, 1,33, 8) = (/ &\n        & 0.10285e+04_rb,0.78003e+03_rb,0.58019e+03_rb,0.85016e+03_rb,0.11220e+04_rb /)\n      kbo(:, 2,33, 8) = (/ &\n        & 0.10284e+04_rb,0.77995e+03_rb,0.57968e+03_rb,0.84947e+03_rb,0.11212e+04_rb /)\n      kbo(:, 3,33, 8) = (/ &\n        & 0.10283e+04_rb,0.77988e+03_rb,0.57905e+03_rb,0.84858e+03_rb,0.11201e+04_rb /)\n      kbo(:, 4,33, 8) = (/ &\n        & 0.10282e+04_rb,0.77982e+03_rb,0.57829e+03_rb,0.84747e+03_rb,0.11187e+04_rb /)\n      kbo(:, 5,33, 8) = (/ &\n        & 0.10282e+04_rb,0.77978e+03_rb,0.57730e+03_rb,0.84615e+03_rb,0.11170e+04_rb /)\n      kbo(:, 1,34, 8) = (/ &\n        & 0.10282e+04_rb,0.77978e+03_rb,0.58008e+03_rb,0.84998e+03_rb,0.11219e+04_rb /)\n      kbo(:, 2,34, 8) = (/ &\n        & 0.10281e+04_rb,0.77972e+03_rb,0.57954e+03_rb,0.84930e+03_rb,0.11210e+04_rb /)\n      kbo(:, 3,34, 8) = (/ &\n        & 0.10280e+04_rb,0.77967e+03_rb,0.57889e+03_rb,0.84836e+03_rb,0.11198e+04_rb /)\n      kbo(:, 4,34, 8) = (/ &\n        & 0.10280e+04_rb,0.77962e+03_rb,0.57808e+03_rb,0.84718e+03_rb,0.11184e+04_rb /)\n      kbo(:, 5,34, 8) = (/ &\n        & 0.10279e+04_rb,0.77958e+03_rb,0.57705e+03_rb,0.84582e+03_rb,0.11166e+04_rb /)\n      kbo(:, 1,35, 8) = (/ &\n        & 0.10279e+04_rb,0.77958e+03_rb,0.58001e+03_rb,0.84995e+03_rb,0.11218e+04_rb /)\n      kbo(:, 2,35, 8) = (/ &\n        & 0.10278e+04_rb,0.77953e+03_rb,0.57946e+03_rb,0.84916e+03_rb,0.11209e+04_rb /)\n      kbo(:, 3,35, 8) = (/ &\n        & 0.10278e+04_rb,0.77951e+03_rb,0.57880e+03_rb,0.84823e+03_rb,0.11196e+04_rb /)\n      kbo(:, 4,35, 8) = (/ &\n        & 0.10277e+04_rb,0.77946e+03_rb,0.57796e+03_rb,0.84701e+03_rb,0.11181e+04_rb /)\n      kbo(:, 5,35, 8) = (/ &\n        & 0.10277e+04_rb,0.77943e+03_rb,0.57689e+03_rb,0.84563e+03_rb,0.11163e+04_rb /)\n      kbo(:, 1,36, 8) = (/ &\n        & 0.10277e+04_rb,0.77944e+03_rb,0.58000e+03_rb,0.84992e+03_rb,0.11218e+04_rb /)\n      kbo(:, 2,36, 8) = (/ &\n        & 0.10277e+04_rb,0.77940e+03_rb,0.57944e+03_rb,0.84917e+03_rb,0.11208e+04_rb /)\n      kbo(:, 3,36, 8) = (/ &\n        & 0.10276e+04_rb,0.77936e+03_rb,0.57877e+03_rb,0.84819e+03_rb,0.11196e+04_rb /)\n      kbo(:, 4,36, 8) = (/ &\n        & 0.10276e+04_rb,0.77933e+03_rb,0.57793e+03_rb,0.84697e+03_rb,0.11181e+04_rb /)\n      kbo(:, 5,36, 8) = (/ &\n        & 0.10275e+04_rb,0.77931e+03_rb,0.57686e+03_rb,0.84561e+03_rb,0.11162e+04_rb /)\n      kbo(:, 1,37, 8) = (/ &\n        & 0.10275e+04_rb,0.77932e+03_rb,0.58006e+03_rb,0.85002e+03_rb,0.11219e+04_rb /)\n      kbo(:, 2,37, 8) = (/ &\n        & 0.10275e+04_rb,0.77929e+03_rb,0.57952e+03_rb,0.84927e+03_rb,0.11210e+04_rb /)\n      kbo(:, 3,37, 8) = (/ &\n        & 0.10275e+04_rb,0.77926e+03_rb,0.57886e+03_rb,0.84832e+03_rb,0.11198e+04_rb /)\n      kbo(:, 4,37, 8) = (/ &\n        & 0.10274e+04_rb,0.77924e+03_rb,0.57805e+03_rb,0.84715e+03_rb,0.11183e+04_rb /)\n      kbo(:, 5,37, 8) = (/ &\n        & 0.10274e+04_rb,0.77921e+03_rb,0.57701e+03_rb,0.84575e+03_rb,0.11165e+04_rb /)\n      kbo(:, 1,38, 8) = (/ &\n        & 0.10274e+04_rb,0.77922e+03_rb,0.58012e+03_rb,0.85009e+03_rb,0.11220e+04_rb /)\n      kbo(:, 2,38, 8) = (/ &\n        & 0.10274e+04_rb,0.77920e+03_rb,0.57959e+03_rb,0.84938e+03_rb,0.11211e+04_rb /)\n      kbo(:, 3,38, 8) = (/ &\n        & 0.10274e+04_rb,0.77918e+03_rb,0.57896e+03_rb,0.84848e+03_rb,0.11200e+04_rb /)\n      kbo(:, 4,38, 8) = (/ &\n        & 0.10273e+04_rb,0.77915e+03_rb,0.57818e+03_rb,0.84731e+03_rb,0.11185e+04_rb /)\n      kbo(:, 5,38, 8) = (/ &\n        & 0.10273e+04_rb,0.77912e+03_rb,0.57716e+03_rb,0.84599e+03_rb,0.11168e+04_rb /)\n      kbo(:, 1,39, 8) = (/ &\n        & 0.10273e+04_rb,0.77914e+03_rb,0.58018e+03_rb,0.85016e+03_rb,0.11221e+04_rb /)\n      kbo(:, 2,39, 8) = (/ &\n        & 0.10273e+04_rb,0.77912e+03_rb,0.57968e+03_rb,0.84939e+03_rb,0.11213e+04_rb /)\n      kbo(:, 3,39, 8) = (/ &\n        & 0.10273e+04_rb,0.77911e+03_rb,0.57905e+03_rb,0.84861e+03_rb,0.11201e+04_rb /)\n      kbo(:, 4,39, 8) = (/ &\n        & 0.10272e+04_rb,0.77910e+03_rb,0.57829e+03_rb,0.84750e+03_rb,0.11187e+04_rb /)\n      kbo(:, 5,39, 8) = (/ &\n        & 0.10272e+04_rb,0.77907e+03_rb,0.57732e+03_rb,0.84617e+03_rb,0.11171e+04_rb /)\n      kbo(:, 1,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77908e+03_rb,0.58028e+03_rb,0.85029e+03_rb,0.11222e+04_rb /)\n      kbo(:, 2,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77906e+03_rb,0.57981e+03_rb,0.84968e+03_rb,0.11215e+04_rb /)\n      kbo(:, 3,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77904e+03_rb,0.57922e+03_rb,0.84885e+03_rb,0.11204e+04_rb /)\n      kbo(:, 4,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77904e+03_rb,0.57849e+03_rb,0.84779e+03_rb,0.11191e+04_rb /)\n      kbo(:, 5,40, 8) = (/ &\n        & 0.10272e+04_rb,0.77901e+03_rb,0.57757e+03_rb,0.84651e+03_rb,0.11176e+04_rb /)\n      kbo(:, 1,41, 8) = (/ &\n        & 0.10272e+04_rb,0.77903e+03_rb,0.58037e+03_rb,0.85041e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,41, 8) = (/ &\n        & 0.10272e+04_rb,0.77902e+03_rb,0.57994e+03_rb,0.84983e+03_rb,0.11217e+04_rb /)\n      kbo(:, 3,41, 8) = (/ &\n        & 0.10271e+04_rb,0.77900e+03_rb,0.57937e+03_rb,0.84906e+03_rb,0.11207e+04_rb /)\n      kbo(:, 4,41, 8) = (/ &\n        & 0.10271e+04_rb,0.77898e+03_rb,0.57870e+03_rb,0.84808e+03_rb,0.11195e+04_rb /)\n      kbo(:, 5,41, 8) = (/ &\n        & 0.10271e+04_rb,0.77898e+03_rb,0.57782e+03_rb,0.84685e+03_rb,0.11180e+04_rb /)\n      kbo(:, 1,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77900e+03_rb,0.58046e+03_rb,0.85051e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77898e+03_rb,0.58006e+03_rb,0.85002e+03_rb,0.11219e+04_rb /)\n      kbo(:, 3,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77896e+03_rb,0.57953e+03_rb,0.84930e+03_rb,0.11210e+04_rb /)\n      kbo(:, 4,42, 8) = (/ &\n        & 0.10271e+04_rb,0.77895e+03_rb,0.57888e+03_rb,0.84835e+03_rb,0.11198e+04_rb /)\n      kbo(:, 5,42, 8) = (/ &\n        & 0.10270e+04_rb,0.77894e+03_rb,0.57806e+03_rb,0.84718e+03_rb,0.11184e+04_rb /)\n      kbo(:, 1,43, 8) = (/ &\n        & 0.10271e+04_rb,0.77895e+03_rb,0.58056e+03_rb,0.85062e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77895e+03_rb,0.58020e+03_rb,0.85017e+03_rb,0.11221e+04_rb /)\n      kbo(:, 3,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77892e+03_rb,0.57970e+03_rb,0.84954e+03_rb,0.11213e+04_rb /)\n      kbo(:, 4,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77892e+03_rb,0.57909e+03_rb,0.84866e+03_rb,0.11202e+04_rb /)\n      kbo(:, 5,43, 8) = (/ &\n        & 0.10270e+04_rb,0.77891e+03_rb,0.57834e+03_rb,0.84756e+03_rb,0.11188e+04_rb /)\n      kbo(:, 1,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77892e+03_rb,0.58064e+03_rb,0.85071e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77891e+03_rb,0.58034e+03_rb,0.85036e+03_rb,0.11223e+04_rb /)\n      kbo(:, 3,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77891e+03_rb,0.57988e+03_rb,0.84979e+03_rb,0.11216e+04_rb /)\n      kbo(:, 4,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77890e+03_rb,0.57931e+03_rb,0.84899e+03_rb,0.11206e+04_rb /)\n      kbo(:, 5,44, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.57861e+03_rb,0.84797e+03_rb,0.11193e+04_rb /)\n      kbo(:, 1,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77889e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.58047e+03_rb,0.85051e+03_rb,0.11224e+04_rb /)\n      kbo(:, 3,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.58005e+03_rb,0.84999e+03_rb,0.11219e+04_rb /)\n      kbo(:, 4,45, 8) = (/ &\n        & 0.10270e+04_rb,0.77888e+03_rb,0.57952e+03_rb,0.84927e+03_rb,0.11210e+04_rb /)\n      kbo(:, 5,45, 8) = (/ &\n        & 0.10269e+04_rb,0.77886e+03_rb,0.57890e+03_rb,0.84837e+03_rb,0.11198e+04_rb /)\n      kbo(:, 1,46, 8) = (/ &\n        & 0.10270e+04_rb,0.77887e+03_rb,0.58072e+03_rb,0.85082e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,46, 8) = (/ &\n        & 0.10270e+04_rb,0.77886e+03_rb,0.58056e+03_rb,0.85063e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,46, 8) = (/ &\n        & 0.10269e+04_rb,0.77886e+03_rb,0.58022e+03_rb,0.85021e+03_rb,0.11221e+04_rb /)\n      kbo(:, 4,46, 8) = (/ &\n        & 0.10270e+04_rb,0.77885e+03_rb,0.57972e+03_rb,0.84957e+03_rb,0.11213e+04_rb /)\n      kbo(:, 5,46, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.57911e+03_rb,0.84871e+03_rb,0.11203e+04_rb /)\n      kbo(:, 1,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77885e+03_rb,0.58070e+03_rb,0.85086e+03_rb,0.11227e+04_rb /)\n      kbo(:, 2,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77886e+03_rb,0.58066e+03_rb,0.85073e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77885e+03_rb,0.58037e+03_rb,0.85041e+03_rb,0.11223e+04_rb /)\n      kbo(:, 4,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.57993e+03_rb,0.84985e+03_rb,0.11217e+04_rb /)\n      kbo(:, 5,47, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.57937e+03_rb,0.84903e+03_rb,0.11207e+04_rb /)\n      kbo(:, 1,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.58064e+03_rb,0.85086e+03_rb,0.11226e+04_rb /)\n      kbo(:, 2,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58071e+03_rb,0.85080e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58051e+03_rb,0.85055e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58013e+03_rb,0.85010e+03_rb,0.11220e+04_rb /)\n      kbo(:, 5,48, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.57961e+03_rb,0.84941e+03_rb,0.11212e+04_rb /)\n      kbo(:, 1,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77884e+03_rb,0.58054e+03_rb,0.85082e+03_rb,0.11225e+04_rb /)\n      kbo(:, 2,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58072e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)\n      kbo(:, 3,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58061e+03_rb,0.85068e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58029e+03_rb,0.85032e+03_rb,0.11222e+04_rb /)\n      kbo(:, 5,49, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.57983e+03_rb,0.84969e+03_rb,0.11215e+04_rb /)\n      kbo(:, 1,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77883e+03_rb,0.58042e+03_rb,0.85074e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.58068e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58069e+03_rb,0.85077e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58043e+03_rb,0.85048e+03_rb,0.11224e+04_rb /)\n      kbo(:, 5,50, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58002e+03_rb,0.84997e+03_rb,0.11218e+04_rb /)\n      kbo(:, 1,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.58027e+03_rb,0.85064e+03_rb,0.11224e+04_rb /)\n      kbo(:, 2,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77882e+03_rb,0.58061e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)\n      kbo(:, 3,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85082e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58055e+03_rb,0.85061e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,51, 8) = (/ &\n        & 0.10269e+04_rb,0.77881e+03_rb,0.58020e+03_rb,0.85015e+03_rb,0.11221e+04_rb /)\n      kbo(:, 1,52, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58011e+03_rb,0.85051e+03_rb,0.11222e+04_rb /)\n      kbo(:, 2,52, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58051e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)\n      kbo(:, 3,52, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)\n      kbo(:, 4,52, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58064e+03_rb,0.85068e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,52, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58034e+03_rb,0.85037e+03_rb,0.11223e+04_rb /)\n      kbo(:, 1,53, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.57994e+03_rb,0.85036e+03_rb,0.11220e+04_rb /)\n      kbo(:, 2,53, 8) = (/ &\n        & 0.10269e+04_rb,0.77879e+03_rb,0.58038e+03_rb,0.85072e+03_rb,0.11224e+04_rb /)\n      kbo(:, 3,53, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58066e+03_rb,0.85087e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,53, 8) = (/ &\n        & 0.10269e+04_rb,0.77880e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 5,53, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58047e+03_rb,0.85044e+03_rb,0.11225e+04_rb /)\n      kbo(:, 1,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.57977e+03_rb,0.85022e+03_rb,0.11219e+04_rb /)\n      kbo(:, 2,54, 8) = (/ &\n        & 0.10269e+04_rb,0.77879e+03_rb,0.58026e+03_rb,0.85061e+03_rb,0.11223e+04_rb /)\n      kbo(:, 3,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77881e+03_rb,0.58060e+03_rb,0.85084e+03_rb,0.11226e+04_rb /)\n      kbo(:, 4,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58072e+03_rb,0.85083e+03_rb,0.11227e+04_rb /)\n      kbo(:, 5,54, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58058e+03_rb,0.85063e+03_rb,0.11226e+04_rb /)\n      kbo(:, 1,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.57962e+03_rb,0.85008e+03_rb,0.11217e+04_rb /)\n      kbo(:, 2,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58011e+03_rb,0.85050e+03_rb,0.11222e+04_rb /)\n      kbo(:, 3,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58050e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)\n      kbo(:, 4,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77880e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,55, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58064e+03_rb,0.85072e+03_rb,0.11226e+04_rb /)\n      kbo(:, 1,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57945e+03_rb,0.84993e+03_rb,0.11216e+04_rb /)\n      kbo(:, 2,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.57995e+03_rb,0.85037e+03_rb,0.11220e+04_rb /)\n      kbo(:, 3,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58039e+03_rb,0.85071e+03_rb,0.11224e+04_rb /)\n      kbo(:, 4,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58067e+03_rb,0.85086e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,56, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58069e+03_rb,0.85078e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.57927e+03_rb,0.84978e+03_rb,0.11215e+04_rb /)\n      kbo(:, 2,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57979e+03_rb,0.85024e+03_rb,0.11219e+04_rb /)\n      kbo(:, 3,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58025e+03_rb,0.85063e+03_rb,0.11223e+04_rb /)\n      kbo(:, 4,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58060e+03_rb,0.85084e+03_rb,0.11226e+04_rb /)\n      kbo(:, 5,57, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58071e+03_rb,0.85083e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57911e+03_rb,0.84962e+03_rb,0.11212e+04_rb /)\n      kbo(:, 2,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57964e+03_rb,0.85010e+03_rb,0.11218e+04_rb /)\n      kbo(:, 3,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58013e+03_rb,0.85053e+03_rb,0.11222e+04_rb /)\n      kbo(:, 4,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58052e+03_rb,0.85080e+03_rb,0.11225e+04_rb /)\n      kbo(:, 5,58, 8) = (/ &\n        & 0.10268e+04_rb,0.77879e+03_rb,0.58071e+03_rb,0.85085e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.57904e+03_rb,0.84955e+03_rb,0.11212e+04_rb /)\n      kbo(:, 2,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.57958e+03_rb,0.85006e+03_rb,0.11217e+04_rb /)\n      kbo(:, 3,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58007e+03_rb,0.85048e+03_rb,0.11222e+04_rb /)\n      kbo(:, 4,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77878e+03_rb,0.58048e+03_rb,0.85078e+03_rb,0.11225e+04_rb /)\n      kbo(:, 5,59, 8) = (/ &\n        & 0.10268e+04_rb,0.77877e+03_rb,0.58070e+03_rb,0.85086e+03_rb,0.11227e+04_rb /)\n      kbo(:, 1,13, 9) = (/ &\n        & 0.11533e+04_rb,0.87327e+03_rb,0.59473e+03_rb,0.87046e+03_rb,0.11487e+04_rb /)\n      kbo(:, 2,13, 9) = (/ &\n        & 0.11444e+04_rb,0.86660e+03_rb,0.59240e+03_rb,0.87005e+03_rb,0.11483e+04_rb /)\n      kbo(:, 3,13, 9) = (/ &\n        & 0.11367e+04_rb,0.86090e+03_rb,0.59185e+03_rb,0.86950e+03_rb,0.11478e+04_rb /)\n      kbo(:, 4,13, 9) = (/ &\n        & 0.11301e+04_rb,0.85587e+03_rb,0.59143e+03_rb,0.86883e+03_rb,0.11469e+04_rb /)\n      kbo(:, 5,13, 9) = (/ &\n        & 0.11242e+04_rb,0.85148e+03_rb,0.59084e+03_rb,0.86797e+03_rb,0.11458e+04_rb /)\n      kbo(:, 1,14, 9) = (/ &\n        & 0.11310e+04_rb,0.85656e+03_rb,0.59238e+03_rb,0.87026e+03_rb,0.11487e+04_rb /)\n      kbo(:, 2,14, 9) = (/ &\n        & 0.11238e+04_rb,0.85118e+03_rb,0.59190e+03_rb,0.86988e+03_rb,0.11483e+04_rb /)\n      kbo(:, 3,14, 9) = (/ &\n        & 0.11176e+04_rb,0.84654e+03_rb,0.59149e+03_rb,0.86931e+03_rb,0.11477e+04_rb /)\n      kbo(:, 4,14, 9) = (/ &\n        & 0.11122e+04_rb,0.84248e+03_rb,0.59105e+03_rb,0.86863e+03_rb,0.11468e+04_rb /)\n      kbo(:, 5,14, 9) = (/ &\n        & 0.11074e+04_rb,0.83890e+03_rb,0.59046e+03_rb,0.86777e+03_rb,0.11457e+04_rb /)\n      kbo(:, 1,15, 9) = (/ &\n        & 0.11128e+04_rb,0.84292e+03_rb,0.59202e+03_rb,0.87009e+03_rb,0.11486e+04_rb /)\n      kbo(:, 2,15, 9) = (/ &\n        & 0.11070e+04_rb,0.83857e+03_rb,0.59157e+03_rb,0.86969e+03_rb,0.11482e+04_rb /)\n      kbo(:, 3,15, 9) = (/ &\n        & 0.11020e+04_rb,0.83480e+03_rb,0.59118e+03_rb,0.86913e+03_rb,0.11476e+04_rb /)\n      kbo(:, 4,15, 9) = (/ &\n        & 0.10976e+04_rb,0.83151e+03_rb,0.59076e+03_rb,0.86843e+03_rb,0.11467e+04_rb /)\n      kbo(:, 5,15, 9) = (/ &\n        & 0.10938e+04_rb,0.82865e+03_rb,0.59015e+03_rb,0.86756e+03_rb,0.11457e+04_rb /)\n      kbo(:, 1,16, 9) = (/ &\n        & 0.10980e+04_rb,0.83182e+03_rb,0.59172e+03_rb,0.86994e+03_rb,0.11486e+04_rb /)\n      kbo(:, 2,16, 9) = (/ &\n        & 0.10933e+04_rb,0.82831e+03_rb,0.59129e+03_rb,0.86966e+03_rb,0.11482e+04_rb /)\n      kbo(:, 3,16, 9) = (/ &\n        & 0.10893e+04_rb,0.82527e+03_rb,0.59092e+03_rb,0.86898e+03_rb,0.11475e+04_rb /)\n      kbo(:, 4,16, 9) = (/ &\n        & 0.10858e+04_rb,0.82261e+03_rb,0.59049e+03_rb,0.86826e+03_rb,0.11466e+04_rb /)\n      kbo(:, 5,16, 9) = (/ &\n        & 0.10827e+04_rb,0.82037e+03_rb,0.58989e+03_rb,0.86738e+03_rb,0.11455e+04_rb /)\n      kbo(:, 1,17, 9) = (/ &\n        & 0.10860e+04_rb,0.82280e+03_rb,0.59147e+03_rb,0.86983e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,17, 9) = (/ &\n        & 0.10822e+04_rb,0.81997e+03_rb,0.59107e+03_rb,0.86941e+03_rb,0.11481e+04_rb /)\n      kbo(:, 3,17, 9) = (/ &\n        & 0.10790e+04_rb,0.81753e+03_rb,0.59070e+03_rb,0.86883e+03_rb,0.11474e+04_rb /)\n      kbo(:, 4,17, 9) = (/ &\n        & 0.10761e+04_rb,0.81539e+03_rb,0.59027e+03_rb,0.86811e+03_rb,0.11465e+04_rb /)\n      kbo(:, 5,17, 9) = (/ &\n        & 0.10736e+04_rb,0.81353e+03_rb,0.58965e+03_rb,0.86721e+03_rb,0.11454e+04_rb /)\n      kbo(:, 1,18, 9) = (/ &\n        & 0.10762e+04_rb,0.81555e+03_rb,0.59126e+03_rb,0.86969e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,18, 9) = (/ &\n        & 0.10732e+04_rb,0.81322e+03_rb,0.59088e+03_rb,0.86928e+03_rb,0.11481e+04_rb /)\n      kbo(:, 3,18, 9) = (/ &\n        & 0.10706e+04_rb,0.81128e+03_rb,0.59052e+03_rb,0.86870e+03_rb,0.11474e+04_rb /)\n      kbo(:, 4,18, 9) = (/ &\n        & 0.10683e+04_rb,0.80956e+03_rb,0.59008e+03_rb,0.86800e+03_rb,0.11464e+04_rb /)\n      kbo(:, 5,18, 9) = (/ &\n        & 0.10663e+04_rb,0.80808e+03_rb,0.58945e+03_rb,0.86705e+03_rb,0.11452e+04_rb /)\n      kbo(:, 1,19, 9) = (/ &\n        & 0.10684e+04_rb,0.80963e+03_rb,0.59108e+03_rb,0.86962e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,19, 9) = (/ &\n        & 0.10659e+04_rb,0.80774e+03_rb,0.59072e+03_rb,0.86917e+03_rb,0.11480e+04_rb /)\n      kbo(:, 3,19, 9) = (/ &\n        & 0.10638e+04_rb,0.80613e+03_rb,0.59038e+03_rb,0.86858e+03_rb,0.11473e+04_rb /)\n      kbo(:, 4,19, 9) = (/ &\n        & 0.10619e+04_rb,0.80481e+03_rb,0.58991e+03_rb,0.86784e+03_rb,0.11463e+04_rb /)\n      kbo(:, 5,19, 9) = (/ &\n        & 0.10603e+04_rb,0.80353e+03_rb,0.58926e+03_rb,0.86690e+03_rb,0.11451e+04_rb /)\n      kbo(:, 1,20, 9) = (/ &\n        & 0.10619e+04_rb,0.80474e+03_rb,0.59092e+03_rb,0.86952e+03_rb,0.11484e+04_rb /)\n      kbo(:, 2,20, 9) = (/ &\n        & 0.10599e+04_rb,0.80326e+03_rb,0.59057e+03_rb,0.86907e+03_rb,0.11479e+04_rb /)\n      kbo(:, 3,20, 9) = (/ &\n        & 0.10582e+04_rb,0.80198e+03_rb,0.59022e+03_rb,0.86845e+03_rb,0.11472e+04_rb /)\n      kbo(:, 4,20, 9) = (/ &\n        & 0.10567e+04_rb,0.80089e+03_rb,0.58976e+03_rb,0.86771e+03_rb,0.11462e+04_rb /)\n      kbo(:, 5,20, 9) = (/ &\n        & 0.10554e+04_rb,0.79986e+03_rb,0.58910e+03_rb,0.86674e+03_rb,0.11449e+04_rb /)\n      kbo(:, 1,21, 9) = (/ &\n        & 0.10567e+04_rb,0.80080e+03_rb,0.59079e+03_rb,0.86945e+03_rb,0.11483e+04_rb /)\n      kbo(:, 2,21, 9) = (/ &\n        & 0.10550e+04_rb,0.79960e+03_rb,0.59045e+03_rb,0.86897e+03_rb,0.11478e+04_rb /)\n      kbo(:, 3,21, 9) = (/ &\n        & 0.10537e+04_rb,0.79858e+03_rb,0.59010e+03_rb,0.86836e+03_rb,0.11471e+04_rb /)\n      kbo(:, 4,21, 9) = (/ &\n        & 0.10525e+04_rb,0.79770e+03_rb,0.58962e+03_rb,0.86752e+03_rb,0.11460e+04_rb /)\n      kbo(:, 5,21, 9) = (/ &\n        & 0.10514e+04_rb,0.79685e+03_rb,0.58893e+03_rb,0.86654e+03_rb,0.11447e+04_rb /)\n      kbo(:, 1,22, 9) = (/ &\n        & 0.10523e+04_rb,0.79754e+03_rb,0.59066e+03_rb,0.86933e+03_rb,0.11483e+04_rb /)\n      kbo(:, 2,22, 9) = (/ &\n        & 0.10510e+04_rb,0.79661e+03_rb,0.59033e+03_rb,0.86884e+03_rb,0.11477e+04_rb /)\n      kbo(:, 3,22, 9) = (/ &\n        & 0.10500e+04_rb,0.79577e+03_rb,0.58997e+03_rb,0.86819e+03_rb,0.11469e+04_rb /)\n      kbo(:, 4,22, 9) = (/ &\n        & 0.10490e+04_rb,0.79506e+03_rb,0.58945e+03_rb,0.86737e+03_rb,0.11458e+04_rb /)\n      kbo(:, 5,22, 9) = (/ &\n        & 0.10482e+04_rb,0.79443e+03_rb,0.58872e+03_rb,0.86635e+03_rb,0.11444e+04_rb /)\n      kbo(:, 1,23, 9) = (/ &\n        & 0.10488e+04_rb,0.79491e+03_rb,0.59053e+03_rb,0.86922e+03_rb,0.11482e+04_rb /)\n      kbo(:, 2,23, 9) = (/ &\n        & 0.10478e+04_rb,0.79417e+03_rb,0.59023e+03_rb,0.86872e+03_rb,0.11476e+04_rb /)\n      kbo(:, 3,23, 9) = (/ &\n        & 0.10469e+04_rb,0.79351e+03_rb,0.58983e+03_rb,0.86802e+03_rb,0.11467e+04_rb /)\n      kbo(:, 4,23, 9) = (/ &\n        & 0.10461e+04_rb,0.79293e+03_rb,0.58929e+03_rb,0.86717e+03_rb,0.11456e+04_rb /)\n      kbo(:, 5,23, 9) = (/ &\n        & 0.10455e+04_rb,0.79241e+03_rb,0.58851e+03_rb,0.86610e+03_rb,0.11442e+04_rb /)\n      kbo(:, 1,24, 9) = (/ &\n        & 0.10460e+04_rb,0.79285e+03_rb,0.59042e+03_rb,0.86910e+03_rb,0.11481e+04_rb /)\n      kbo(:, 2,24, 9) = (/ &\n        & 0.10452e+04_rb,0.79220e+03_rb,0.59009e+03_rb,0.86856e+03_rb,0.11474e+04_rb /)\n      kbo(:, 3,24, 9) = (/ &\n        & 0.10445e+04_rb,0.79170e+03_rb,0.58968e+03_rb,0.86785e+03_rb,0.11465e+04_rb /)\n      kbo(:, 4,24, 9) = (/ &\n        & 0.10439e+04_rb,0.79123e+03_rb,0.58911e+03_rb,0.86698e+03_rb,0.11453e+04_rb /)\n      kbo(:, 5,24, 9) = (/ &\n        & 0.10433e+04_rb,0.79086e+03_rb,0.58830e+03_rb,0.86584e+03_rb,0.11439e+04_rb /)\n      kbo(:, 1,25, 9) = (/ &\n        & 0.10438e+04_rb,0.79109e+03_rb,0.59032e+03_rb,0.86899e+03_rb,0.11480e+04_rb /)\n      kbo(:, 2,25, 9) = (/ &\n        & 0.10430e+04_rb,0.79059e+03_rb,0.58999e+03_rb,0.86841e+03_rb,0.11473e+04_rb /)\n      kbo(:, 3,25, 9) = (/ &\n        & 0.10425e+04_rb,0.79018e+03_rb,0.58955e+03_rb,0.86768e+03_rb,0.11463e+04_rb /)\n      kbo(:, 4,25, 9) = (/ &\n        & 0.10420e+04_rb,0.78985e+03_rb,0.58893e+03_rb,0.86674e+03_rb,0.11450e+04_rb /)\n      kbo(:, 5,25, 9) = (/ &\n        & 0.10416e+04_rb,0.78947e+03_rb,0.58810e+03_rb,0.86557e+03_rb,0.11436e+04_rb /)\n      kbo(:, 1,26, 9) = (/ &\n        & 0.10418e+04_rb,0.78966e+03_rb,0.59022e+03_rb,0.86886e+03_rb,0.11478e+04_rb /)\n      kbo(:, 2,26, 9) = (/ &\n        & 0.10414e+04_rb,0.78932e+03_rb,0.58989e+03_rb,0.86824e+03_rb,0.11471e+04_rb /)\n      kbo(:, 3,26, 9) = (/ &\n        & 0.10409e+04_rb,0.78898e+03_rb,0.58940e+03_rb,0.86743e+03_rb,0.11460e+04_rb /)\n      kbo(:, 4,26, 9) = (/ &\n        & 0.10405e+04_rb,0.78870e+03_rb,0.58873e+03_rb,0.86647e+03_rb,0.11447e+04_rb /)\n      kbo(:, 5,26, 9) = (/ &\n        & 0.10401e+04_rb,0.78842e+03_rb,0.58782e+03_rb,0.86527e+03_rb,0.11432e+04_rb /)\n      kbo(:, 1,27, 9) = (/ &\n        & 0.10403e+04_rb,0.78855e+03_rb,0.59012e+03_rb,0.86872e+03_rb,0.11477e+04_rb /)\n      kbo(:, 2,27, 9) = (/ &\n        & 0.10399e+04_rb,0.78827e+03_rb,0.58977e+03_rb,0.86806e+03_rb,0.11468e+04_rb /)\n      kbo(:, 3,27, 9) = (/ &\n        & 0.10396e+04_rb,0.78799e+03_rb,0.58924e+03_rb,0.86723e+03_rb,0.11458e+04_rb /)\n      kbo(:, 4,27, 9) = (/ &\n        & 0.10392e+04_rb,0.78776e+03_rb,0.58850e+03_rb,0.86619e+03_rb,0.11444e+04_rb /)\n      kbo(:, 5,27, 9) = (/ &\n        & 0.10390e+04_rb,0.78757e+03_rb,0.58756e+03_rb,0.86495e+03_rb,0.11428e+04_rb /)\n      kbo(:, 1,28, 9) = (/ &\n        & 0.10391e+04_rb,0.78770e+03_rb,0.59002e+03_rb,0.86856e+03_rb,0.11475e+04_rb /)\n      kbo(:, 2,28, 9) = (/ &\n        & 0.10388e+04_rb,0.78747e+03_rb,0.58964e+03_rb,0.86790e+03_rb,0.11466e+04_rb /)\n      kbo(:, 3,28, 9) = (/ &\n        & 0.10385e+04_rb,0.78719e+03_rb,0.58908e+03_rb,0.86701e+03_rb,0.11455e+04_rb /)\n      kbo(:, 4,28, 9) = (/ &\n        & 0.10383e+04_rb,0.78704e+03_rb,0.58829e+03_rb,0.86590e+03_rb,0.11440e+04_rb /)\n      kbo(:, 5,28, 9) = (/ &\n        & 0.10381e+04_rb,0.78687e+03_rb,0.58729e+03_rb,0.86461e+03_rb,0.11423e+04_rb /)\n      kbo(:, 1,29, 9) = (/ &\n        & 0.10382e+04_rb,0.78694e+03_rb,0.58994e+03_rb,0.86841e+03_rb,0.11473e+04_rb /)\n      kbo(:, 2,29, 9) = (/ &\n        & 0.10379e+04_rb,0.78677e+03_rb,0.58950e+03_rb,0.86767e+03_rb,0.11463e+04_rb /)\n      kbo(:, 3,29, 9) = (/ &\n        & 0.10377e+04_rb,0.78658e+03_rb,0.58888e+03_rb,0.86674e+03_rb,0.11451e+04_rb /)\n      kbo(:, 4,29, 9) = (/ &\n        & 0.10375e+04_rb,0.78645e+03_rb,0.58805e+03_rb,0.86559e+03_rb,0.11436e+04_rb /)\n      kbo(:, 5,29, 9) = (/ &\n        & 0.10374e+04_rb,0.78628e+03_rb,0.58702e+03_rb,0.86429e+03_rb,0.11419e+04_rb /)\n      kbo(:, 1,30, 9) = (/ &\n        & 0.10373e+04_rb,0.78632e+03_rb,0.58983e+03_rb,0.86822e+03_rb,0.11471e+04_rb /)\n      kbo(:, 2,30, 9) = (/ &\n        & 0.10371e+04_rb,0.78619e+03_rb,0.58935e+03_rb,0.86746e+03_rb,0.11460e+04_rb /)\n      kbo(:, 3,30, 9) = (/ &\n        & 0.10370e+04_rb,0.78613e+03_rb,0.58869e+03_rb,0.86647e+03_rb,0.11448e+04_rb /)\n      kbo(:, 4,30, 9) = (/ &\n        & 0.10369e+04_rb,0.78594e+03_rb,0.58779e+03_rb,0.86529e+03_rb,0.11432e+04_rb /)\n      kbo(:, 5,30, 9) = (/ &\n        & 0.10367e+04_rb,0.78585e+03_rb,0.58673e+03_rb,0.86393e+03_rb,0.11414e+04_rb /)\n      kbo(:, 1,31, 9) = (/ &\n        & 0.10367e+04_rb,0.78588e+03_rb,0.58971e+03_rb,0.86804e+03_rb,0.11468e+04_rb /)\n      kbo(:, 2,31, 9) = (/ &\n        & 0.10365e+04_rb,0.78574e+03_rb,0.58919e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)\n      kbo(:, 3,31, 9) = (/ &\n        & 0.10364e+04_rb,0.78562e+03_rb,0.58847e+03_rb,0.86618e+03_rb,0.11443e+04_rb /)\n      kbo(:, 4,31, 9) = (/ &\n        & 0.10363e+04_rb,0.78557e+03_rb,0.58752e+03_rb,0.86495e+03_rb,0.11427e+04_rb /)\n      kbo(:, 5,31, 9) = (/ &\n        & 0.10362e+04_rb,0.78546e+03_rb,0.58644e+03_rb,0.86356e+03_rb,0.11409e+04_rb /)\n      kbo(:, 1,32, 9) = (/ &\n        & 0.10362e+04_rb,0.78556e+03_rb,0.58958e+03_rb,0.86784e+03_rb,0.11466e+04_rb /)\n      kbo(:, 2,32, 9) = (/ &\n        & 0.10361e+04_rb,0.78539e+03_rb,0.58901e+03_rb,0.86697e+03_rb,0.11454e+04_rb /)\n      kbo(:, 3,32, 9) = (/ &\n        & 0.10360e+04_rb,0.78539e+03_rb,0.58824e+03_rb,0.86587e+03_rb,0.11440e+04_rb /)\n      kbo(:, 4,32, 9) = (/ &\n        & 0.10359e+04_rb,0.78525e+03_rb,0.58724e+03_rb,0.86459e+03_rb,0.11423e+04_rb /)\n      kbo(:, 5,32, 9) = (/ &\n        & 0.10358e+04_rb,0.78516e+03_rb,0.58615e+03_rb,0.86318e+03_rb,0.11404e+04_rb /)\n      kbo(:, 1,33, 9) = (/ &\n        & 0.10358e+04_rb,0.78520e+03_rb,0.58945e+03_rb,0.86763e+03_rb,0.11463e+04_rb /)\n      kbo(:, 2,33, 9) = (/ &\n        & 0.10357e+04_rb,0.78510e+03_rb,0.58883e+03_rb,0.86670e+03_rb,0.11450e+04_rb /)\n      kbo(:, 3,33, 9) = (/ &\n        & 0.10356e+04_rb,0.78504e+03_rb,0.58799e+03_rb,0.86554e+03_rb,0.11435e+04_rb /)\n      kbo(:, 4,33, 9) = (/ &\n        & 0.10356e+04_rb,0.78500e+03_rb,0.58695e+03_rb,0.86422e+03_rb,0.11418e+04_rb /)\n      kbo(:, 5,33, 9) = (/ &\n        & 0.10355e+04_rb,0.78493e+03_rb,0.58586e+03_rb,0.86281e+03_rb,0.11399e+04_rb /)\n      kbo(:, 1,34, 9) = (/ &\n        & 0.10355e+04_rb,0.78495e+03_rb,0.58932e+03_rb,0.86743e+03_rb,0.11460e+04_rb /)\n      kbo(:, 2,34, 9) = (/ &\n        & 0.10354e+04_rb,0.78487e+03_rb,0.58865e+03_rb,0.86644e+03_rb,0.11447e+04_rb /)\n      kbo(:, 3,34, 9) = (/ &\n        & 0.10354e+04_rb,0.78485e+03_rb,0.58776e+03_rb,0.86524e+03_rb,0.11432e+04_rb /)\n      kbo(:, 4,34, 9) = (/ &\n        & 0.10353e+04_rb,0.78479e+03_rb,0.58670e+03_rb,0.86390e+03_rb,0.11414e+04_rb /)\n      kbo(:, 5,34, 9) = (/ &\n        & 0.10352e+04_rb,0.78474e+03_rb,0.58560e+03_rb,0.86249e+03_rb,0.11395e+04_rb /)\n      kbo(:, 1,35, 9) = (/ &\n        & 0.10352e+04_rb,0.78478e+03_rb,0.58924e+03_rb,0.86731e+03_rb,0.11459e+04_rb /)\n      kbo(:, 2,35, 9) = (/ &\n        & 0.10352e+04_rb,0.78472e+03_rb,0.58855e+03_rb,0.86632e+03_rb,0.11445e+04_rb /)\n      kbo(:, 3,35, 9) = (/ &\n        & 0.10351e+04_rb,0.78465e+03_rb,0.58761e+03_rb,0.86508e+03_rb,0.11430e+04_rb /)\n      kbo(:, 4,35, 9) = (/ &\n        & 0.10350e+04_rb,0.78465e+03_rb,0.58655e+03_rb,0.86369e+03_rb,0.11412e+04_rb /)\n      kbo(:, 5,35, 9) = (/ &\n        & 0.10350e+04_rb,0.78456e+03_rb,0.58545e+03_rb,0.86237e+03_rb,0.11393e+04_rb /)\n      kbo(:, 1,36, 9) = (/ &\n        & 0.10350e+04_rb,0.78465e+03_rb,0.58922e+03_rb,0.86729e+03_rb,0.11458e+04_rb /)\n      kbo(:, 2,36, 9) = (/ &\n        & 0.10350e+04_rb,0.78456e+03_rb,0.58852e+03_rb,0.86627e+03_rb,0.11445e+04_rb /)\n      kbo(:, 3,36, 9) = (/ &\n        & 0.10350e+04_rb,0.78452e+03_rb,0.58759e+03_rb,0.86505e+03_rb,0.11429e+04_rb /)\n      kbo(:, 4,36, 9) = (/ &\n        & 0.10349e+04_rb,0.78450e+03_rb,0.58651e+03_rb,0.86369e+03_rb,0.11411e+04_rb /)\n      kbo(:, 5,36, 9) = (/ &\n        & 0.10348e+04_rb,0.78444e+03_rb,0.58544e+03_rb,0.86227e+03_rb,0.11392e+04_rb /)\n      kbo(:, 1,37, 9) = (/ &\n        & 0.10349e+04_rb,0.78446e+03_rb,0.58930e+03_rb,0.86738e+03_rb,0.11460e+04_rb /)\n      kbo(:, 2,37, 9) = (/ &\n        & 0.10348e+04_rb,0.78444e+03_rb,0.58863e+03_rb,0.86642e+03_rb,0.11447e+04_rb /)\n      kbo(:, 3,37, 9) = (/ &\n        & 0.10348e+04_rb,0.78441e+03_rb,0.58773e+03_rb,0.86522e+03_rb,0.11432e+04_rb /)\n      kbo(:, 4,37, 9) = (/ &\n        & 0.10348e+04_rb,0.78439e+03_rb,0.58667e+03_rb,0.86387e+03_rb,0.11414e+04_rb /)\n      kbo(:, 5,37, 9) = (/ &\n        & 0.10347e+04_rb,0.78436e+03_rb,0.58559e+03_rb,0.86245e+03_rb,0.11394e+04_rb /)\n      kbo(:, 1,38, 9) = (/ &\n        & 0.10348e+04_rb,0.78440e+03_rb,0.58936e+03_rb,0.86753e+03_rb,0.11462e+04_rb /)\n      kbo(:, 2,38, 9) = (/ &\n        & 0.10347e+04_rb,0.78434e+03_rb,0.58873e+03_rb,0.86658e+03_rb,0.11449e+04_rb /)\n      kbo(:, 3,38, 9) = (/ &\n        & 0.10347e+04_rb,0.78432e+03_rb,0.58786e+03_rb,0.86537e+03_rb,0.11434e+04_rb /)\n      kbo(:, 4,38, 9) = (/ &\n        & 0.10346e+04_rb,0.78431e+03_rb,0.58681e+03_rb,0.86407e+03_rb,0.11416e+04_rb /)\n      kbo(:, 5,38, 9) = (/ &\n        & 0.10347e+04_rb,0.78428e+03_rb,0.58573e+03_rb,0.86265e+03_rb,0.11397e+04_rb /)\n      kbo(:, 1,39, 9) = (/ &\n        & 0.10347e+04_rb,0.78431e+03_rb,0.58943e+03_rb,0.86764e+03_rb,0.11463e+04_rb /)\n      kbo(:, 2,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78431e+03_rb,0.58882e+03_rb,0.86672e+03_rb,0.11451e+04_rb /)\n      kbo(:, 3,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78424e+03_rb,0.58800e+03_rb,0.86557e+03_rb,0.11436e+04_rb /)\n      kbo(:, 4,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78421e+03_rb,0.58697e+03_rb,0.86426e+03_rb,0.11419e+04_rb /)\n      kbo(:, 5,39, 9) = (/ &\n        & 0.10346e+04_rb,0.78429e+03_rb,0.58587e+03_rb,0.86284e+03_rb,0.11400e+04_rb /)\n      kbo(:, 1,40, 9) = (/ &\n        & 0.10346e+04_rb,0.78426e+03_rb,0.58957e+03_rb,0.86785e+03_rb,0.11466e+04_rb /)\n      kbo(:, 2,40, 9) = (/ &\n        & 0.10345e+04_rb,0.78427e+03_rb,0.58899e+03_rb,0.86697e+03_rb,0.11454e+04_rb /)\n      kbo(:, 3,40, 9) = (/ &\n        & 0.10345e+04_rb,0.78422e+03_rb,0.58822e+03_rb,0.86585e+03_rb,0.11440e+04_rb /)\n      kbo(:, 4,40, 9) = (/ &\n        & 0.10345e+04_rb,0.78421e+03_rb,0.58723e+03_rb,0.86460e+03_rb,0.11423e+04_rb /)\n      kbo(:, 5,40, 9) = (/ &\n        & 0.10344e+04_rb,0.78416e+03_rb,0.58614e+03_rb,0.86319e+03_rb,0.11403e+04_rb /)\n      kbo(:, 1,41, 9) = (/ &\n        & 0.10345e+04_rb,0.78421e+03_rb,0.58967e+03_rb,0.86804e+03_rb,0.11468e+04_rb /)\n      kbo(:, 2,41, 9) = (/ &\n        & 0.10345e+04_rb,0.78418e+03_rb,0.58916e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)\n      kbo(:, 3,41, 9) = (/ &\n        & 0.10344e+04_rb,0.78415e+03_rb,0.58844e+03_rb,0.86618e+03_rb,0.11444e+04_rb /)\n      kbo(:, 4,41, 9) = (/ &\n        & 0.10344e+04_rb,0.78413e+03_rb,0.58748e+03_rb,0.86492e+03_rb,0.11428e+04_rb /)\n      kbo(:, 5,41, 9) = (/ &\n        & 0.10344e+04_rb,0.78411e+03_rb,0.58642e+03_rb,0.86355e+03_rb,0.11409e+04_rb /)\n      kbo(:, 1,42, 9) = (/ &\n        & 0.10345e+04_rb,0.78414e+03_rb,0.58976e+03_rb,0.86830e+03_rb,0.11471e+04_rb /)\n      kbo(:, 2,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78417e+03_rb,0.58930e+03_rb,0.86744e+03_rb,0.11460e+04_rb /)\n      kbo(:, 3,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78411e+03_rb,0.58863e+03_rb,0.86645e+03_rb,0.11448e+04_rb /)\n      kbo(:, 4,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78409e+03_rb,0.58775e+03_rb,0.86525e+03_rb,0.11432e+04_rb /)\n      kbo(:, 5,42, 9) = (/ &\n        & 0.10344e+04_rb,0.78408e+03_rb,0.58670e+03_rb,0.86391e+03_rb,0.11414e+04_rb /)\n      kbo(:, 1,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78410e+03_rb,0.58987e+03_rb,0.86842e+03_rb,0.11473e+04_rb /)\n      kbo(:, 2,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78408e+03_rb,0.58947e+03_rb,0.86769e+03_rb,0.11464e+04_rb /)\n      kbo(:, 3,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78409e+03_rb,0.58887e+03_rb,0.86678e+03_rb,0.11452e+04_rb /)\n      kbo(:, 4,43, 9) = (/ &\n        & 0.10344e+04_rb,0.78410e+03_rb,0.58806e+03_rb,0.86567e+03_rb,0.11437e+04_rb /)\n      kbo(:, 5,43, 9) = (/ &\n        & 0.10343e+04_rb,0.78406e+03_rb,0.58704e+03_rb,0.86435e+03_rb,0.11420e+04_rb /)\n      kbo(:, 1,44, 9) = (/ &\n        & 0.10344e+04_rb,0.78409e+03_rb,0.58998e+03_rb,0.86862e+03_rb,0.11476e+04_rb /)\n      kbo(:, 2,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78407e+03_rb,0.58962e+03_rb,0.86796e+03_rb,0.11467e+04_rb /)\n      kbo(:, 3,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78406e+03_rb,0.58910e+03_rb,0.86711e+03_rb,0.11456e+04_rb /)\n      kbo(:, 4,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58835e+03_rb,0.86607e+03_rb,0.11442e+04_rb /)\n      kbo(:, 5,44, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58738e+03_rb,0.86483e+03_rb,0.11426e+04_rb /)\n      kbo(:, 1,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78404e+03_rb,0.59009e+03_rb,0.86881e+03_rb,0.11478e+04_rb /)\n      kbo(:, 2,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78405e+03_rb,0.58975e+03_rb,0.86821e+03_rb,0.11471e+04_rb /)\n      kbo(:, 3,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78404e+03_rb,0.58930e+03_rb,0.86741e+03_rb,0.11460e+04_rb /)\n      kbo(:, 4,45, 9) = (/ &\n        & 0.10342e+04_rb,0.78400e+03_rb,0.58862e+03_rb,0.86644e+03_rb,0.11447e+04_rb /)\n      kbo(:, 5,45, 9) = (/ &\n        & 0.10343e+04_rb,0.78402e+03_rb,0.58769e+03_rb,0.86520e+03_rb,0.11432e+04_rb /)\n      kbo(:, 1,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.59019e+03_rb,0.86899e+03_rb,0.11481e+04_rb /)\n      kbo(:, 2,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58989e+03_rb,0.86845e+03_rb,0.11474e+04_rb /)\n      kbo(:, 3,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78403e+03_rb,0.58947e+03_rb,0.86773e+03_rb,0.11464e+04_rb /)\n      kbo(:, 4,46, 9) = (/ &\n        & 0.10342e+04_rb,0.78401e+03_rb,0.58890e+03_rb,0.86681e+03_rb,0.11452e+04_rb /)\n      kbo(:, 5,46, 9) = (/ &\n        & 0.10343e+04_rb,0.78405e+03_rb,0.58808e+03_rb,0.86568e+03_rb,0.11438e+04_rb /)\n      kbo(:, 1,47, 9) = (/ &\n        & 0.10343e+04_rb,0.78401e+03_rb,0.59032e+03_rb,0.86917e+03_rb,0.11483e+04_rb /)\n      kbo(:, 2,47, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.59001e+03_rb,0.86868e+03_rb,0.11477e+04_rb /)\n      kbo(:, 3,47, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.58967e+03_rb,0.86807e+03_rb,0.11468e+04_rb /)\n      kbo(:, 4,47, 9) = (/ &\n        & 0.10343e+04_rb,0.78397e+03_rb,0.58916e+03_rb,0.86720e+03_rb,0.11457e+04_rb /)\n      kbo(:, 5,47, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58844e+03_rb,0.86618e+03_rb,0.11444e+04_rb /)\n      kbo(:, 1,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.59046e+03_rb,0.86932e+03_rb,0.11485e+04_rb /)\n      kbo(:, 2,48, 9) = (/ &\n        & 0.10343e+04_rb,0.78398e+03_rb,0.59013e+03_rb,0.86890e+03_rb,0.11480e+04_rb /)\n      kbo(:, 3,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78402e+03_rb,0.58982e+03_rb,0.86829e+03_rb,0.11472e+04_rb /)\n      kbo(:, 4,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.58938e+03_rb,0.86756e+03_rb,0.11462e+04_rb /)\n      kbo(:, 5,48, 9) = (/ &\n        & 0.10342e+04_rb,0.78400e+03_rb,0.58875e+03_rb,0.86661e+03_rb,0.11449e+04_rb /)\n      kbo(:, 1,49, 9) = (/ &\n        & 0.10343e+04_rb,0.78402e+03_rb,0.59060e+03_rb,0.86945e+03_rb,0.11486e+04_rb /)\n      kbo(:, 2,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.59025e+03_rb,0.86908e+03_rb,0.11482e+04_rb /)\n      kbo(:, 3,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58995e+03_rb,0.86856e+03_rb,0.11475e+04_rb /)\n      kbo(:, 4,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58958e+03_rb,0.86790e+03_rb,0.11466e+04_rb /)\n      kbo(:, 5,49, 9) = (/ &\n        & 0.10342e+04_rb,0.78398e+03_rb,0.58903e+03_rb,0.86700e+03_rb,0.11455e+04_rb /)\n      kbo(:, 1,50, 9) = (/ &\n        & 0.10343e+04_rb,0.78395e+03_rb,0.59074e+03_rb,0.86956e+03_rb,0.11487e+04_rb /)\n      kbo(:, 2,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.59038e+03_rb,0.86924e+03_rb,0.11483e+04_rb /)\n      kbo(:, 3,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.59006e+03_rb,0.86878e+03_rb,0.11478e+04_rb /)\n      kbo(:, 4,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.58974e+03_rb,0.86817e+03_rb,0.11470e+04_rb /)\n      kbo(:, 5,50, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58927e+03_rb,0.86736e+03_rb,0.11460e+04_rb /)\n      kbo(:, 1,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78399e+03_rb,0.59088e+03_rb,0.86965e+03_rb,0.11488e+04_rb /)\n      kbo(:, 2,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59051e+03_rb,0.86937e+03_rb,0.11485e+04_rb /)\n      kbo(:, 3,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78400e+03_rb,0.59018e+03_rb,0.86897e+03_rb,0.11480e+04_rb /)\n      kbo(:, 4,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.58987e+03_rb,0.86840e+03_rb,0.11473e+04_rb /)\n      kbo(:, 5,51, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.58946e+03_rb,0.86768e+03_rb,0.11464e+04_rb /)\n      kbo(:, 1,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59100e+03_rb,0.86971e+03_rb,0.11490e+04_rb /)\n      kbo(:, 2,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.59064e+03_rb,0.86949e+03_rb,0.11486e+04_rb /)\n      kbo(:, 3,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59029e+03_rb,0.86915e+03_rb,0.11482e+04_rb /)\n      kbo(:, 4,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.58998e+03_rb,0.86864e+03_rb,0.11476e+04_rb /)\n      kbo(:, 5,52, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58963e+03_rb,0.86796e+03_rb,0.11468e+04_rb /)\n      kbo(:, 1,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78397e+03_rb,0.59111e+03_rb,0.86975e+03_rb,0.11490e+04_rb /)\n      kbo(:, 2,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78394e+03_rb,0.59078e+03_rb,0.86960e+03_rb,0.11488e+04_rb /)\n      kbo(:, 3,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59041e+03_rb,0.86926e+03_rb,0.11484e+04_rb /)\n      kbo(:, 4,53, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59010e+03_rb,0.86884e+03_rb,0.11479e+04_rb /)\n      kbo(:, 5,53, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58977e+03_rb,0.86822e+03_rb,0.11471e+04_rb /)\n      kbo(:, 1,54, 9) = (/ &\n        & 0.10343e+04_rb,0.78394e+03_rb,0.59121e+03_rb,0.86979e+03_rb,0.11491e+04_rb /)\n      kbo(:, 2,54, 9) = (/ &\n        & 0.10341e+04_rb,0.78399e+03_rb,0.59088e+03_rb,0.86966e+03_rb,0.11489e+04_rb /)\n      kbo(:, 3,54, 9) = (/ &\n        & 0.10341e+04_rb,0.78394e+03_rb,0.59052e+03_rb,0.86939e+03_rb,0.11485e+04_rb /)\n      kbo(:, 4,54, 9) = (/ &\n        & 0.10341e+04_rb,0.78394e+03_rb,0.59020e+03_rb,0.86900e+03_rb,0.11481e+04_rb /)\n      kbo(:, 5,54, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.58987e+03_rb,0.86845e+03_rb,0.11474e+04_rb /)\n      kbo(:, 1,55, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59130e+03_rb,0.86983e+03_rb,0.11491e+04_rb /)\n      kbo(:, 2,55, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59100e+03_rb,0.86971e+03_rb,0.11490e+04_rb /)\n      kbo(:, 3,55, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59065e+03_rb,0.86949e+03_rb,0.11486e+04_rb /)\n      kbo(:, 4,55, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59029e+03_rb,0.86914e+03_rb,0.11483e+04_rb /)\n      kbo(:, 5,55, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59000e+03_rb,0.86864e+03_rb,0.11477e+04_rb /)\n      kbo(:, 1,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59137e+03_rb,0.86987e+03_rb,0.11492e+04_rb /)\n      kbo(:, 2,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78395e+03_rb,0.59111e+03_rb,0.86975e+03_rb,0.11490e+04_rb /)\n      kbo(:, 3,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78392e+03_rb,0.59077e+03_rb,0.86958e+03_rb,0.11488e+04_rb /)\n      kbo(:, 4,56, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59040e+03_rb,0.86926e+03_rb,0.11484e+04_rb /)\n      kbo(:, 5,56, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59009e+03_rb,0.86883e+03_rb,0.11479e+04_rb /)\n      kbo(:, 1,57, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59143e+03_rb,0.86993e+03_rb,0.11492e+04_rb /)\n      kbo(:, 2,57, 9) = (/ &\n        & 0.10342e+04_rb,0.78392e+03_rb,0.59122e+03_rb,0.86979e+03_rb,0.11491e+04_rb /)\n      kbo(:, 3,57, 9) = (/ &\n        & 0.10342e+04_rb,0.78392e+03_rb,0.59089e+03_rb,0.86966e+03_rb,0.11489e+04_rb /)\n      kbo(:, 4,57, 9) = (/ &\n        & 0.10341e+04_rb,0.78395e+03_rb,0.59052e+03_rb,0.86938e+03_rb,0.11485e+04_rb /)\n      kbo(:, 5,57, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59018e+03_rb,0.86897e+03_rb,0.11481e+04_rb /)\n      kbo(:, 1,58, 9) = (/ &\n        & 0.10341e+04_rb,0.78395e+03_rb,0.59147e+03_rb,0.86996e+03_rb,0.11493e+04_rb /)\n      kbo(:, 2,58, 9) = (/ &\n        & 0.10341e+04_rb,0.78397e+03_rb,0.59129e+03_rb,0.86982e+03_rb,0.11491e+04_rb /)\n      kbo(:, 3,58, 9) = (/ &\n        & 0.10341e+04_rb,0.78393e+03_rb,0.59099e+03_rb,0.86970e+03_rb,0.11489e+04_rb /)\n      kbo(:, 4,58, 9) = (/ &\n        & 0.10342e+04_rb,0.78397e+03_rb,0.59063e+03_rb,0.86948e+03_rb,0.11486e+04_rb /)\n      kbo(:, 5,58, 9) = (/ &\n        & 0.10342e+04_rb,0.78390e+03_rb,0.59028e+03_rb,0.86913e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,59, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59148e+03_rb,0.86998e+03_rb,0.11494e+04_rb /)\n      kbo(:, 2,59, 9) = (/ &\n        & 0.10342e+04_rb,0.78396e+03_rb,0.59132e+03_rb,0.86982e+03_rb,0.11492e+04_rb /)\n      kbo(:, 3,59, 9) = (/ &\n        & 0.10342e+04_rb,0.78393e+03_rb,0.59103e+03_rb,0.86972e+03_rb,0.11490e+04_rb /)\n      kbo(:, 4,59, 9) = (/ &\n        & 0.10341e+04_rb,0.78394e+03_rb,0.59067e+03_rb,0.86951e+03_rb,0.11487e+04_rb /)\n      kbo(:, 5,59, 9) = (/ &\n        & 0.10341e+04_rb,0.78397e+03_rb,0.59032e+03_rb,0.86918e+03_rb,0.11483e+04_rb /)\n      kbo(:, 1,13,10) = (/ &\n        & 0.11544e+04_rb,0.87486e+03_rb,0.59975e+03_rb,0.88029e+03_rb,0.11631e+04_rb /)\n      kbo(:, 2,13,10) = (/ &\n        & 0.11458e+04_rb,0.86752e+03_rb,0.59921e+03_rb,0.87889e+03_rb,0.11611e+04_rb /)\n      kbo(:, 3,13,10) = (/ &\n        & 0.11380e+04_rb,0.86177e+03_rb,0.59836e+03_rb,0.87789e+03_rb,0.11592e+04_rb /)\n      kbo(:, 4,13,10) = (/ &\n        & 0.11310e+04_rb,0.85697e+03_rb,0.59745e+03_rb,0.87697e+03_rb,0.11577e+04_rb /)\n      kbo(:, 5,13,10) = (/ &\n        & 0.11259e+04_rb,0.85279e+03_rb,0.59663e+03_rb,0.87606e+03_rb,0.11564e+04_rb /)\n      kbo(:, 1,14,10) = (/ &\n        & 0.11329e+04_rb,0.85757e+03_rb,0.59935e+03_rb,0.88000e+03_rb,0.11630e+04_rb /)\n      kbo(:, 2,14,10) = (/ &\n        & 0.11257e+04_rb,0.85228e+03_rb,0.59878e+03_rb,0.87841e+03_rb,0.11609e+04_rb /)\n      kbo(:, 3,14,10) = (/ &\n        & 0.11201e+04_rb,0.84731e+03_rb,0.59797e+03_rb,0.87766e+03_rb,0.11591e+04_rb /)\n      kbo(:, 4,14,10) = (/ &\n        & 0.11140e+04_rb,0.84389e+03_rb,0.59731e+03_rb,0.87707e+03_rb,0.11577e+04_rb /)\n      kbo(:, 5,14,10) = (/ &\n        & 0.11094e+04_rb,0.84001e+03_rb,0.59642e+03_rb,0.87571e+03_rb,0.11561e+04_rb /)\n      kbo(:, 1,15,10) = (/ &\n        & 0.11142e+04_rb,0.84370e+03_rb,0.59900e+03_rb,0.87973e+03_rb,0.11627e+04_rb /)\n      kbo(:, 2,15,10) = (/ &\n        & 0.11097e+04_rb,0.84029e+03_rb,0.59841e+03_rb,0.87827e+03_rb,0.11607e+04_rb /)\n      kbo(:, 3,15,10) = (/ &\n        & 0.11039e+04_rb,0.83570e+03_rb,0.59763e+03_rb,0.87745e+03_rb,0.11587e+04_rb /)\n      kbo(:, 4,15,10) = (/ &\n        & 0.10995e+04_rb,0.83295e+03_rb,0.59685e+03_rb,0.87664e+03_rb,0.11574e+04_rb /)\n      kbo(:, 5,15,10) = (/ &\n        & 0.10956e+04_rb,0.82966e+03_rb,0.59611e+03_rb,0.87548e+03_rb,0.11555e+04_rb /)\n      kbo(:, 1,16,10) = (/ &\n        & 0.11006e+04_rb,0.83290e+03_rb,0.59871e+03_rb,0.87947e+03_rb,0.11625e+04_rb /)\n      kbo(:, 2,16,10) = (/ &\n        & 0.10967e+04_rb,0.82960e+03_rb,0.59809e+03_rb,0.87696e+03_rb,0.11605e+04_rb /)\n      kbo(:, 3,16,10) = (/ &\n        & 0.10908e+04_rb,0.82627e+03_rb,0.59735e+03_rb,0.87716e+03_rb,0.11587e+04_rb /)\n      kbo(:, 4,16,10) = (/ &\n        & 0.10878e+04_rb,0.82496e+03_rb,0.59665e+03_rb,0.87645e+03_rb,0.11573e+04_rb /)\n      kbo(:, 5,16,10) = (/ &\n        & 0.10846e+04_rb,0.82140e+03_rb,0.59584e+03_rb,0.87537e+03_rb,0.11556e+04_rb /)\n      kbo(:, 1,17,10) = (/ &\n        & 0.10872e+04_rb,0.82399e+03_rb,0.59847e+03_rb,0.87912e+03_rb,0.11623e+04_rb /)\n      kbo(:, 2,17,10) = (/ &\n        & 0.10836e+04_rb,0.82137e+03_rb,0.59782e+03_rb,0.87785e+03_rb,0.11604e+04_rb /)\n      kbo(:, 3,17,10) = (/ &\n        & 0.10806e+04_rb,0.81903e+03_rb,0.59710e+03_rb,0.87700e+03_rb,0.11586e+04_rb /)\n      kbo(:, 4,17,10) = (/ &\n        & 0.10781e+04_rb,0.81649e+03_rb,0.59641e+03_rb,0.87627e+03_rb,0.11571e+04_rb /)\n      kbo(:, 5,17,10) = (/ &\n        & 0.10750e+04_rb,0.81461e+03_rb,0.59560e+03_rb,0.87517e+03_rb,0.11554e+04_rb /)\n      kbo(:, 1,18,10) = (/ &\n        & 0.10783e+04_rb,0.81627e+03_rb,0.59826e+03_rb,0.87902e+03_rb,0.11620e+04_rb /)\n      kbo(:, 2,18,10) = (/ &\n        & 0.10752e+04_rb,0.81450e+03_rb,0.59759e+03_rb,0.87778e+03_rb,0.11602e+04_rb /)\n      kbo(:, 3,18,10) = (/ &\n        & 0.10718e+04_rb,0.81284e+03_rb,0.59689e+03_rb,0.87707e+03_rb,0.11584e+04_rb /)\n      kbo(:, 4,18,10) = (/ &\n        & 0.10695e+04_rb,0.81051e+03_rb,0.59620e+03_rb,0.87578e+03_rb,0.11570e+04_rb /)\n      kbo(:, 5,18,10) = (/ &\n        & 0.10675e+04_rb,0.80859e+03_rb,0.59539e+03_rb,0.87498e+03_rb,0.11554e+04_rb /)\n      kbo(:, 1,19,10) = (/ &\n        & 0.10693e+04_rb,0.81014e+03_rb,0.59808e+03_rb,0.87871e+03_rb,0.11618e+04_rb /)\n      kbo(:, 2,19,10) = (/ &\n        & 0.10674e+04_rb,0.80961e+03_rb,0.59739e+03_rb,0.87763e+03_rb,0.11601e+04_rb /)\n      kbo(:, 3,19,10) = (/ &\n        & 0.10651e+04_rb,0.80782e+03_rb,0.59664e+03_rb,0.87683e+03_rb,0.11582e+04_rb /)\n      kbo(:, 4,19,10) = (/ &\n        & 0.10639e+04_rb,0.80562e+03_rb,0.59610e+03_rb,0.87595e+03_rb,0.11569e+04_rb /)\n      kbo(:, 5,19,10) = (/ &\n        & 0.10620e+04_rb,0.80440e+03_rb,0.59520e+03_rb,0.87481e+03_rb,0.11551e+04_rb /)\n      kbo(:, 1,20,10) = (/ &\n        & 0.10633e+04_rb,0.80580e+03_rb,0.59791e+03_rb,0.87862e+03_rb,0.11616e+04_rb /)\n      kbo(:, 2,20,10) = (/ &\n        & 0.10619e+04_rb,0.80442e+03_rb,0.59720e+03_rb,0.87747e+03_rb,0.11598e+04_rb /)\n      kbo(:, 3,20,10) = (/ &\n        & 0.10607e+04_rb,0.80344e+03_rb,0.59654e+03_rb,0.87680e+03_rb,0.11581e+04_rb /)\n      kbo(:, 4,20,10) = (/ &\n        & 0.10584e+04_rb,0.80182e+03_rb,0.59585e+03_rb,0.87568e+03_rb,0.11568e+04_rb /)\n      kbo(:, 5,20,10) = (/ &\n        & 0.10568e+04_rb,0.80142e+03_rb,0.59502e+03_rb,0.87461e+03_rb,0.11549e+04_rb /)\n      kbo(:, 1,21,10) = (/ &\n        & 0.10577e+04_rb,0.80247e+03_rb,0.59775e+03_rb,0.87831e+03_rb,0.11614e+04_rb /)\n      kbo(:, 2,21,10) = (/ &\n        & 0.10572e+04_rb,0.80108e+03_rb,0.59703e+03_rb,0.87733e+03_rb,0.11595e+04_rb /)\n      kbo(:, 3,21,10) = (/ &\n        & 0.10551e+04_rb,0.79955e+03_rb,0.59639e+03_rb,0.87689e+03_rb,0.11579e+04_rb /)\n      kbo(:, 4,21,10) = (/ &\n        & 0.10548e+04_rb,0.79914e+03_rb,0.59569e+03_rb,0.87563e+03_rb,0.11565e+04_rb /)\n      kbo(:, 5,21,10) = (/ &\n        & 0.10533e+04_rb,0.79794e+03_rb,0.59484e+03_rb,0.87454e+03_rb,0.11546e+04_rb /)\n      kbo(:, 1,22,10) = (/ &\n        & 0.10544e+04_rb,0.79901e+03_rb,0.59755e+03_rb,0.87816e+03_rb,0.11610e+04_rb /)\n      kbo(:, 2,22,10) = (/ &\n        & 0.10524e+04_rb,0.79865e+03_rb,0.59692e+03_rb,0.87715e+03_rb,0.11592e+04_rb /)\n      kbo(:, 3,22,10) = (/ &\n        & 0.10518e+04_rb,0.79733e+03_rb,0.59621e+03_rb,0.87638e+03_rb,0.11576e+04_rb /)\n      kbo(:, 4,22,10) = (/ &\n        & 0.10503e+04_rb,0.79602e+03_rb,0.59549e+03_rb,0.87540e+03_rb,0.11562e+04_rb /)\n      kbo(:, 5,22,10) = (/ &\n        & 0.10497e+04_rb,0.79577e+03_rb,0.59455e+03_rb,0.87415e+03_rb,0.11542e+04_rb /)\n      kbo(:, 1,23,10) = (/ &\n        & 0.10504e+04_rb,0.79618e+03_rb,0.59736e+03_rb,0.87790e+03_rb,0.11608e+04_rb /)\n      kbo(:, 2,23,10) = (/ &\n        & 0.10488e+04_rb,0.79542e+03_rb,0.59652e+03_rb,0.87687e+03_rb,0.11588e+04_rb /)\n      kbo(:, 3,23,10) = (/ &\n        & 0.10489e+04_rb,0.79466e+03_rb,0.59603e+03_rb,0.87619e+03_rb,0.11574e+04_rb /)\n      kbo(:, 4,23,10) = (/ &\n        & 0.10477e+04_rb,0.79399e+03_rb,0.59528e+03_rb,0.87505e+03_rb,0.11559e+04_rb /)\n      kbo(:, 5,23,10) = (/ &\n        & 0.10468e+04_rb,0.79357e+03_rb,0.59440e+03_rb,0.87388e+03_rb,0.11537e+04_rb /)\n      kbo(:, 1,24,10) = (/ &\n        & 0.10475e+04_rb,0.79355e+03_rb,0.59716e+03_rb,0.87766e+03_rb,0.11603e+04_rb /)\n      kbo(:, 2,24,10) = (/ &\n        & 0.10471e+04_rb,0.79325e+03_rb,0.59650e+03_rb,0.87681e+03_rb,0.11585e+04_rb /)\n      kbo(:, 3,24,10) = (/ &\n        & 0.10463e+04_rb,0.79243e+03_rb,0.59586e+03_rb,0.87587e+03_rb,0.11571e+04_rb /)\n      kbo(:, 4,24,10) = (/ &\n        & 0.10454e+04_rb,0.79206e+03_rb,0.59508e+03_rb,0.87468e+03_rb,0.11555e+04_rb /)\n      kbo(:, 5,24,10) = (/ &\n        & 0.10455e+04_rb,0.79146e+03_rb,0.59426e+03_rb,0.87360e+03_rb,0.11532e+04_rb /)\n      kbo(:, 1,25,10) = (/ &\n        & 0.10443e+04_rb,0.79222e+03_rb,0.59698e+03_rb,0.87742e+03_rb,0.11598e+04_rb /)\n      kbo(:, 2,25,10) = (/ &\n        & 0.10446e+04_rb,0.79165e+03_rb,0.59633e+03_rb,0.87696e+03_rb,0.11582e+04_rb /)\n      kbo(:, 3,25,10) = (/ &\n        & 0.10440e+04_rb,0.79123e+03_rb,0.59567e+03_rb,0.87565e+03_rb,0.11568e+04_rb /)\n      kbo(:, 4,25,10) = (/ &\n        & 0.10433e+04_rb,0.79106e+03_rb,0.59487e+03_rb,0.87451e+03_rb,0.11551e+04_rb /)\n      kbo(:, 5,25,10) = (/ &\n        & 0.10423e+04_rb,0.79063e+03_rb,0.59375e+03_rb,0.87329e+03_rb,0.11525e+04_rb /)\n      kbo(:, 1,26,10) = (/ &\n        & 0.10431e+04_rb,0.79112e+03_rb,0.59671e+03_rb,0.87720e+03_rb,0.11595e+04_rb /)\n      kbo(:, 2,26,10) = (/ &\n        & 0.10430e+04_rb,0.79016e+03_rb,0.59608e+03_rb,0.87633e+03_rb,0.11579e+04_rb /)\n      kbo(:, 3,26,10) = (/ &\n        & 0.10422e+04_rb,0.78992e+03_rb,0.59547e+03_rb,0.87551e+03_rb,0.11565e+04_rb /)\n      kbo(:, 4,26,10) = (/ &\n        & 0.10418e+04_rb,0.78943e+03_rb,0.59456e+03_rb,0.87419e+03_rb,0.11545e+04_rb /)\n      kbo(:, 5,26,10) = (/ &\n        & 0.10417e+04_rb,0.78966e+03_rb,0.59375e+03_rb,0.87285e+03_rb,0.11523e+04_rb /)\n      kbo(:, 1,27,10) = (/ &\n        & 0.10421e+04_rb,0.78970e+03_rb,0.59653e+03_rb,0.87700e+03_rb,0.11589e+04_rb /)\n      kbo(:, 2,27,10) = (/ &\n        & 0.10419e+04_rb,0.78911e+03_rb,0.59591e+03_rb,0.87623e+03_rb,0.11575e+04_rb /)\n      kbo(:, 3,27,10) = (/ &\n        & 0.10414e+04_rb,0.78914e+03_rb,0.59527e+03_rb,0.87524e+03_rb,0.11555e+04_rb /)\n      kbo(:, 4,27,10) = (/ &\n        & 0.10412e+04_rb,0.78891e+03_rb,0.59440e+03_rb,0.87398e+03_rb,0.11540e+04_rb /)\n      kbo(:, 5,27,10) = (/ &\n        & 0.10400e+04_rb,0.78850e+03_rb,0.59354e+03_rb,0.87262e+03_rb,0.11516e+04_rb /)\n      kbo(:, 1,28,10) = (/ &\n        & 0.10402e+04_rb,0.78860e+03_rb,0.59644e+03_rb,0.87682e+03_rb,0.11586e+04_rb /)\n      kbo(:, 2,28,10) = (/ &\n        & 0.10405e+04_rb,0.78788e+03_rb,0.59574e+03_rb,0.87579e+03_rb,0.11571e+04_rb /)\n      kbo(:, 3,28,10) = (/ &\n        & 0.10403e+04_rb,0.78855e+03_rb,0.59498e+03_rb,0.87473e+03_rb,0.11552e+04_rb /)\n      kbo(:, 4,28,10) = (/ &\n        & 0.10397e+04_rb,0.78826e+03_rb,0.59417e+03_rb,0.87377e+03_rb,0.11534e+04_rb /)\n      kbo(:, 5,28,10) = (/ &\n        & 0.10396e+04_rb,0.78810e+03_rb,0.59333e+03_rb,0.87227e+03_rb,0.11511e+04_rb /)\n      kbo(:, 1,29,10) = (/ &\n        & 0.10391e+04_rb,0.78797e+03_rb,0.59612e+03_rb,0.87685e+03_rb,0.11584e+04_rb /)\n      kbo(:, 2,29,10) = (/ &\n        & 0.10393e+04_rb,0.78808e+03_rb,0.59562e+03_rb,0.87577e+03_rb,0.11569e+04_rb /)\n      kbo(:, 3,29,10) = (/ &\n        & 0.10401e+04_rb,0.78791e+03_rb,0.59476e+03_rb,0.87463e+03_rb,0.11550e+04_rb /)\n      kbo(:, 4,29,10) = (/ &\n        & 0.10388e+04_rb,0.78727e+03_rb,0.59387e+03_rb,0.87332e+03_rb,0.11526e+04_rb /)\n      kbo(:, 5,29,10) = (/ &\n        & 0.10383e+04_rb,0.78753e+03_rb,0.59306e+03_rb,0.87189e+03_rb,0.11504e+04_rb /)\n      kbo(:, 1,30,10) = (/ &\n        & 0.10398e+04_rb,0.78748e+03_rb,0.59603e+03_rb,0.87643e+03_rb,0.11579e+04_rb /)\n      kbo(:, 2,30,10) = (/ &\n        & 0.10387e+04_rb,0.78733e+03_rb,0.59550e+03_rb,0.87550e+03_rb,0.11567e+04_rb /)\n      kbo(:, 3,30,10) = (/ &\n        & 0.10384e+04_rb,0.78700e+03_rb,0.59460e+03_rb,0.87431e+03_rb,0.11543e+04_rb /)\n      kbo(:, 4,30,10) = (/ &\n        & 0.10381e+04_rb,0.78738e+03_rb,0.59372e+03_rb,0.87275e+03_rb,0.11522e+04_rb /)\n      kbo(:, 5,30,10) = (/ &\n        & 0.10382e+04_rb,0.78707e+03_rb,0.59292e+03_rb,0.87137e+03_rb,0.11500e+04_rb /)\n      kbo(:, 1,31,10) = (/ &\n        & 0.10388e+04_rb,0.78740e+03_rb,0.59593e+03_rb,0.87621e+03_rb,0.11575e+04_rb /)\n      kbo(:, 2,31,10) = (/ &\n        & 0.10385e+04_rb,0.78757e+03_rb,0.59522e+03_rb,0.87522e+03_rb,0.11561e+04_rb /)\n      kbo(:, 3,31,10) = (/ &\n        & 0.10386e+04_rb,0.78718e+03_rb,0.59436e+03_rb,0.87397e+03_rb,0.11540e+04_rb /)\n      kbo(:, 4,31,10) = (/ &\n        & 0.10377e+04_rb,0.78650e+03_rb,0.59350e+03_rb,0.87250e+03_rb,0.11516e+04_rb /)\n      kbo(:, 5,31,10) = (/ &\n        & 0.10376e+04_rb,0.78651e+03_rb,0.59269e+03_rb,0.87108e+03_rb,0.11495e+04_rb /)\n      kbo(:, 1,32,10) = (/ &\n        & 0.10383e+04_rb,0.78682e+03_rb,0.59576e+03_rb,0.87597e+03_rb,0.11572e+04_rb /)\n      kbo(:, 2,32,10) = (/ &\n        & 0.10383e+04_rb,0.78712e+03_rb,0.59500e+03_rb,0.87480e+03_rb,0.11556e+04_rb /)\n      kbo(:, 3,32,10) = (/ &\n        & 0.10381e+04_rb,0.78606e+03_rb,0.59405e+03_rb,0.87362e+03_rb,0.11534e+04_rb /)\n      kbo(:, 4,32,10) = (/ &\n        & 0.10372e+04_rb,0.78628e+03_rb,0.59329e+03_rb,0.87223e+03_rb,0.11510e+04_rb /)\n      kbo(:, 5,32,10) = (/ &\n        & 0.10377e+04_rb,0.78690e+03_rb,0.59245e+03_rb,0.87068e+03_rb,0.11490e+04_rb /)\n      kbo(:, 1,33,10) = (/ &\n        & 0.10380e+04_rb,0.78593e+03_rb,0.59549e+03_rb,0.87572e+03_rb,0.11567e+04_rb /)\n      kbo(:, 2,33,10) = (/ &\n        & 0.10375e+04_rb,0.78654e+03_rb,0.59477e+03_rb,0.87458e+03_rb,0.11551e+04_rb /)\n      kbo(:, 3,33,10) = (/ &\n        & 0.10374e+04_rb,0.78686e+03_rb,0.59389e+03_rb,0.87337e+03_rb,0.11527e+04_rb /)\n      kbo(:, 4,33,10) = (/ &\n        & 0.10366e+04_rb,0.78593e+03_rb,0.59308e+03_rb,0.87194e+03_rb,0.11506e+04_rb /)\n      kbo(:, 5,33,10) = (/ &\n        & 0.10369e+04_rb,0.78626e+03_rb,0.59219e+03_rb,0.87038e+03_rb,0.11486e+04_rb /)\n      kbo(:, 1,34,10) = (/ &\n        & 0.10373e+04_rb,0.78657e+03_rb,0.59539e+03_rb,0.87559e+03_rb,0.11565e+04_rb /)\n      kbo(:, 2,34,10) = (/ &\n        & 0.10370e+04_rb,0.78641e+03_rb,0.59464e+03_rb,0.87429e+03_rb,0.11546e+04_rb /)\n      kbo(:, 3,34,10) = (/ &\n        & 0.10370e+04_rb,0.78587e+03_rb,0.59369e+03_rb,0.87295e+03_rb,0.11522e+04_rb /)\n      kbo(:, 4,34,10) = (/ &\n        & 0.10371e+04_rb,0.78562e+03_rb,0.59289e+03_rb,0.87146e+03_rb,0.11500e+04_rb /)\n      kbo(:, 5,34,10) = (/ &\n        & 0.10372e+04_rb,0.78597e+03_rb,0.59202e+03_rb,0.86991e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,35,10) = (/ &\n        & 0.10364e+04_rb,0.78559e+03_rb,0.59529e+03_rb,0.87523e+03_rb,0.11563e+04_rb /)\n      kbo(:, 2,35,10) = (/ &\n        & 0.10362e+04_rb,0.78545e+03_rb,0.59445e+03_rb,0.87400e+03_rb,0.11543e+04_rb /)\n      kbo(:, 3,35,10) = (/ &\n        & 0.10372e+04_rb,0.78599e+03_rb,0.59365e+03_rb,0.87265e+03_rb,0.11519e+04_rb /)\n      kbo(:, 4,35,10) = (/ &\n        & 0.10370e+04_rb,0.78527e+03_rb,0.59278e+03_rb,0.87136e+03_rb,0.11496e+04_rb /)\n      kbo(:, 5,35,10) = (/ &\n        & 0.10363e+04_rb,0.78582e+03_rb,0.59179e+03_rb,0.86905e+03_rb,0.11477e+04_rb /)\n      kbo(:, 1,36,10) = (/ &\n        & 0.10368e+04_rb,0.78515e+03_rb,0.59520e+03_rb,0.87532e+03_rb,0.11563e+04_rb /)\n      kbo(:, 2,36,10) = (/ &\n        & 0.10358e+04_rb,0.78589e+03_rb,0.59443e+03_rb,0.87419e+03_rb,0.11542e+04_rb /)\n      kbo(:, 3,36,10) = (/ &\n        & 0.10361e+04_rb,0.78556e+03_rb,0.59355e+03_rb,0.87273e+03_rb,0.11517e+04_rb /)\n      kbo(:, 4,36,10) = (/ &\n        & 0.10361e+04_rb,0.78543e+03_rb,0.59275e+03_rb,0.87122e+03_rb,0.11497e+04_rb /)\n      kbo(:, 5,36,10) = (/ &\n        & 0.10368e+04_rb,0.78570e+03_rb,0.59176e+03_rb,0.86999e+03_rb,0.11477e+04_rb /)\n      kbo(:, 1,37,10) = (/ &\n        & 0.10363e+04_rb,0.78591e+03_rb,0.59537e+03_rb,0.87546e+03_rb,0.11565e+04_rb /)\n      kbo(:, 2,37,10) = (/ &\n        & 0.10360e+04_rb,0.78548e+03_rb,0.59454e+03_rb,0.87425e+03_rb,0.11545e+04_rb /)\n      kbo(:, 3,37,10) = (/ &\n        & 0.10362e+04_rb,0.78546e+03_rb,0.59366e+03_rb,0.87291e+03_rb,0.11521e+04_rb /)\n      kbo(:, 4,37,10) = (/ &\n        & 0.10364e+04_rb,0.78543e+03_rb,0.59286e+03_rb,0.87142e+03_rb,0.11500e+04_rb /)\n      kbo(:, 5,37,10) = (/ &\n        & 0.10360e+04_rb,0.78560e+03_rb,0.59177e+03_rb,0.86987e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,38,10) = (/ &\n        & 0.10362e+04_rb,0.78542e+03_rb,0.59547e+03_rb,0.87560e+03_rb,0.11567e+04_rb /)\n      kbo(:, 2,38,10) = (/ &\n        & 0.10357e+04_rb,0.78588e+03_rb,0.59466e+03_rb,0.87433e+03_rb,0.11549e+04_rb /)\n      kbo(:, 3,38,10) = (/ &\n        & 0.10370e+04_rb,0.78605e+03_rb,0.59385e+03_rb,0.87310e+03_rb,0.11524e+04_rb /)\n      kbo(:, 4,38,10) = (/ &\n        & 0.10362e+04_rb,0.78574e+03_rb,0.59297e+03_rb,0.87186e+03_rb,0.11501e+04_rb /)\n      kbo(:, 5,38,10) = (/ &\n        & 0.10364e+04_rb,0.78533e+03_rb,0.59199e+03_rb,0.87009e+03_rb,0.11482e+04_rb /)\n      kbo(:, 1,39,10) = (/ &\n        & 0.10359e+04_rb,0.78514e+03_rb,0.59557e+03_rb,0.87574e+03_rb,0.11567e+04_rb /)\n      kbo(:, 2,39,10) = (/ &\n        & 0.10371e+04_rb,0.78541e+03_rb,0.59478e+03_rb,0.87461e+03_rb,0.11552e+04_rb /)\n      kbo(:, 3,39,10) = (/ &\n        & 0.10366e+04_rb,0.78569e+03_rb,0.59382e+03_rb,0.87329e+03_rb,0.11528e+04_rb /)\n      kbo(:, 4,39,10) = (/ &\n        & 0.10359e+04_rb,0.78528e+03_rb,0.59308e+03_rb,0.87198e+03_rb,0.11506e+04_rb /)\n      kbo(:, 5,39,10) = (/ &\n        & 0.10356e+04_rb,0.78487e+03_rb,0.59220e+03_rb,0.87042e+03_rb,0.11486e+04_rb /)\n      kbo(:, 1,40,10) = (/ &\n        & 0.10357e+04_rb,0.78518e+03_rb,0.59566e+03_rb,0.87586e+03_rb,0.11569e+04_rb /)\n      kbo(:, 2,40,10) = (/ &\n        & 0.10357e+04_rb,0.78506e+03_rb,0.59498e+03_rb,0.87480e+03_rb,0.11555e+04_rb /)\n      kbo(:, 3,40,10) = (/ &\n        & 0.10366e+04_rb,0.78504e+03_rb,0.59396e+03_rb,0.87362e+03_rb,0.11534e+04_rb /)\n      kbo(:, 4,40,10) = (/ &\n        & 0.10363e+04_rb,0.78503e+03_rb,0.59319e+03_rb,0.87212e+03_rb,0.11511e+04_rb /)\n      kbo(:, 5,40,10) = (/ &\n        & 0.10363e+04_rb,0.78540e+03_rb,0.59243e+03_rb,0.87078e+03_rb,0.11490e+04_rb /)\n      kbo(:, 1,41,10) = (/ &\n        & 0.10363e+04_rb,0.78503e+03_rb,0.59590e+03_rb,0.87608e+03_rb,0.11576e+04_rb /)\n      kbo(:, 2,41,10) = (/ &\n        & 0.10356e+04_rb,0.78491e+03_rb,0.59519e+03_rb,0.87520e+03_rb,0.11561e+04_rb /)\n      kbo(:, 3,41,10) = (/ &\n        & 0.10364e+04_rb,0.78558e+03_rb,0.59433e+03_rb,0.87384e+03_rb,0.11540e+04_rb /)\n      kbo(:, 4,41,10) = (/ &\n        & 0.10357e+04_rb,0.78518e+03_rb,0.59354e+03_rb,0.87259e+03_rb,0.11516e+04_rb /)\n      kbo(:, 5,41,10) = (/ &\n        & 0.10360e+04_rb,0.78526e+03_rb,0.59259e+03_rb,0.87107e+03_rb,0.11495e+04_rb /)\n      kbo(:, 1,42,10) = (/ &\n        & 0.10360e+04_rb,0.78488e+03_rb,0.59605e+03_rb,0.87553e+03_rb,0.11576e+04_rb /)\n      kbo(:, 2,42,10) = (/ &\n        & 0.10363e+04_rb,0.78507e+03_rb,0.59538e+03_rb,0.87537e+03_rb,0.11565e+04_rb /)\n      kbo(:, 3,42,10) = (/ &\n        & 0.10362e+04_rb,0.78535e+03_rb,0.59456e+03_rb,0.87429e+03_rb,0.11545e+04_rb /)\n      kbo(:, 4,42,10) = (/ &\n        & 0.10361e+04_rb,0.78514e+03_rb,0.59368e+03_rb,0.87295e+03_rb,0.11522e+04_rb /)\n      kbo(:, 5,42,10) = (/ &\n        & 0.10360e+04_rb,0.78523e+03_rb,0.59281e+03_rb,0.87146e+03_rb,0.11502e+04_rb /)\n      kbo(:, 1,43,10) = (/ &\n        & 0.10359e+04_rb,0.78504e+03_rb,0.59624e+03_rb,0.87675e+03_rb,0.11584e+04_rb /)\n      kbo(:, 2,43,10) = (/ &\n        & 0.10355e+04_rb,0.78552e+03_rb,0.59568e+03_rb,0.87580e+03_rb,0.11570e+04_rb /)\n      kbo(:, 3,43,10) = (/ &\n        & 0.10354e+04_rb,0.78512e+03_rb,0.59483e+03_rb,0.87469e+03_rb,0.11553e+04_rb /)\n      kbo(:, 4,43,10) = (/ &\n        & 0.10354e+04_rb,0.78569e+03_rb,0.59395e+03_rb,0.87316e+03_rb,0.11531e+04_rb /)\n      kbo(:, 5,43,10) = (/ &\n        & 0.10359e+04_rb,0.78598e+03_rb,0.59313e+03_rb,0.87186e+03_rb,0.11507e+04_rb /)\n      kbo(:, 1,44,10) = (/ &\n        & 0.10359e+04_rb,0.78521e+03_rb,0.59645e+03_rb,0.87700e+03_rb,0.11590e+04_rb /)\n      kbo(:, 2,44,10) = (/ &\n        & 0.10361e+04_rb,0.78510e+03_rb,0.59583e+03_rb,0.87611e+03_rb,0.11574e+04_rb /)\n      kbo(:, 3,44,10) = (/ &\n        & 0.10368e+04_rb,0.78519e+03_rb,0.59511e+03_rb,0.87509e+03_rb,0.11561e+04_rb /)\n      kbo(:, 4,44,10) = (/ &\n        & 0.10360e+04_rb,0.78508e+03_rb,0.59424e+03_rb,0.87372e+03_rb,0.11538e+04_rb /)\n      kbo(:, 5,44,10) = (/ &\n        & 0.10356e+04_rb,0.78537e+03_rb,0.59339e+03_rb,0.87213e+03_rb,0.11514e+04_rb /)\n      kbo(:, 1,45,10) = (/ &\n        & 0.10357e+04_rb,0.78557e+03_rb,0.59666e+03_rb,0.87715e+03_rb,0.11597e+04_rb /)\n      kbo(:, 2,45,10) = (/ &\n        & 0.10356e+04_rb,0.78527e+03_rb,0.59604e+03_rb,0.87639e+03_rb,0.11579e+04_rb /)\n      kbo(:, 3,45,10) = (/ &\n        & 0.10360e+04_rb,0.78546e+03_rb,0.59537e+03_rb,0.87547e+03_rb,0.11565e+04_rb /)\n      kbo(:, 4,45,10) = (/ &\n        & 0.10361e+04_rb,0.78506e+03_rb,0.59454e+03_rb,0.87427e+03_rb,0.11544e+04_rb /)\n      kbo(:, 5,45,10) = (/ &\n        & 0.10353e+04_rb,0.78535e+03_rb,0.59366e+03_rb,0.87293e+03_rb,0.11520e+04_rb /)\n      kbo(:, 1,46,10) = (/ &\n        & 0.10358e+04_rb,0.78506e+03_rb,0.59691e+03_rb,0.87749e+03_rb,0.11602e+04_rb /)\n      kbo(:, 2,46,10) = (/ &\n        & 0.10353e+04_rb,0.78486e+03_rb,0.59626e+03_rb,0.87678e+03_rb,0.11584e+04_rb /)\n      kbo(:, 3,46,10) = (/ &\n        & 0.10353e+04_rb,0.78495e+03_rb,0.59563e+03_rb,0.87572e+03_rb,0.11570e+04_rb /)\n      kbo(:, 4,46,10) = (/ &\n        & 0.10363e+04_rb,0.78534e+03_rb,0.59478e+03_rb,0.87473e+03_rb,0.11554e+04_rb /)\n      kbo(:, 5,46,10) = (/ &\n        & 0.10355e+04_rb,0.78455e+03_rb,0.59398e+03_rb,0.87342e+03_rb,0.11530e+04_rb /)\n      kbo(:, 1,47,10) = (/ &\n        & 0.10357e+04_rb,0.78544e+03_rb,0.59719e+03_rb,0.87795e+03_rb,0.11609e+04_rb /)\n      kbo(:, 2,47,10) = (/ &\n        & 0.10355e+04_rb,0.78533e+03_rb,0.59651e+03_rb,0.87696e+03_rb,0.11589e+04_rb /)\n      kbo(:, 3,47,10) = (/ &\n        & 0.10358e+04_rb,0.78543e+03_rb,0.59590e+03_rb,0.87576e+03_rb,0.11576e+04_rb /)\n      kbo(:, 4,47,10) = (/ &\n        & 0.10351e+04_rb,0.78562e+03_rb,0.59519e+03_rb,0.87521e+03_rb,0.11561e+04_rb /)\n      kbo(:, 5,47,10) = (/ &\n        & 0.10359e+04_rb,0.78571e+03_rb,0.59433e+03_rb,0.87385e+03_rb,0.11540e+04_rb /)\n      kbo(:, 1,48,10) = (/ &\n        & 0.10363e+04_rb,0.78513e+03_rb,0.59744e+03_rb,0.87846e+03_rb,0.11618e+04_rb /)\n      kbo(:, 2,48,10) = (/ &\n        & 0.10360e+04_rb,0.78532e+03_rb,0.59677e+03_rb,0.87730e+03_rb,0.11598e+04_rb /)\n      kbo(:, 3,48,10) = (/ &\n        & 0.10365e+04_rb,0.78483e+03_rb,0.59614e+03_rb,0.87707e+03_rb,0.11581e+04_rb /)\n      kbo(:, 4,48,10) = (/ &\n        & 0.10355e+04_rb,0.78521e+03_rb,0.59549e+03_rb,0.87564e+03_rb,0.11567e+04_rb /)\n      kbo(:, 5,48,10) = (/ &\n        & 0.10355e+04_rb,0.78531e+03_rb,0.59469e+03_rb,0.87448e+03_rb,0.11550e+04_rb /)\n      kbo(:, 1,49,10) = (/ &\n        & 0.10351e+04_rb,0.78492e+03_rb,0.59768e+03_rb,0.87902e+03_rb,0.11625e+04_rb /)\n      kbo(:, 2,49,10) = (/ &\n        & 0.10355e+04_rb,0.78541e+03_rb,0.59705e+03_rb,0.87772e+03_rb,0.11606e+04_rb /)\n      kbo(:, 3,49,10) = (/ &\n        & 0.10352e+04_rb,0.78472e+03_rb,0.59639e+03_rb,0.87682e+03_rb,0.11587e+04_rb /)\n      kbo(:, 4,49,10) = (/ &\n        & 0.10356e+04_rb,0.78511e+03_rb,0.59577e+03_rb,0.87591e+03_rb,0.11574e+04_rb /)\n      kbo(:, 5,49,10) = (/ &\n        & 0.10352e+04_rb,0.78501e+03_rb,0.59510e+03_rb,0.87498e+03_rb,0.11558e+04_rb /)\n      kbo(:, 1,50,10) = (/ &\n        & 0.10361e+04_rb,0.78540e+03_rb,0.59770e+03_rb,0.87956e+03_rb,0.11633e+04_rb /)\n      kbo(:, 2,50,10) = (/ &\n        & 0.10357e+04_rb,0.78530e+03_rb,0.59731e+03_rb,0.87817e+03_rb,0.11612e+04_rb /)\n      kbo(:, 3,50,10) = (/ &\n        & 0.10365e+04_rb,0.78510e+03_rb,0.59662e+03_rb,0.87710e+03_rb,0.11596e+04_rb /)\n      kbo(:, 4,50,10) = (/ &\n        & 0.10365e+04_rb,0.78510e+03_rb,0.59601e+03_rb,0.87645e+03_rb,0.11578e+04_rb /)\n      kbo(:, 5,50,10) = (/ &\n        & 0.10352e+04_rb,0.78588e+03_rb,0.59525e+03_rb,0.87541e+03_rb,0.11564e+04_rb /)\n      kbo(:, 1,51,10) = (/ &\n        & 0.10356e+04_rb,0.78490e+03_rb,0.59781e+03_rb,0.88010e+03_rb,0.11639e+04_rb /)\n      kbo(:, 2,51,10) = (/ &\n        & 0.10356e+04_rb,0.78539e+03_rb,0.59751e+03_rb,0.87866e+03_rb,0.11620e+04_rb /)\n      kbo(:, 3,51,10) = (/ &\n        & 0.10359e+04_rb,0.78461e+03_rb,0.59687e+03_rb,0.87744e+03_rb,0.11601e+04_rb /)\n      kbo(:, 4,51,10) = (/ &\n        & 0.10352e+04_rb,0.78519e+03_rb,0.59623e+03_rb,0.87674e+03_rb,0.11583e+04_rb /)\n      kbo(:, 5,51,10) = (/ &\n        & 0.10356e+04_rb,0.78470e+03_rb,0.59552e+03_rb,0.87578e+03_rb,0.11569e+04_rb /)\n      kbo(:, 1,52,10) = (/ &\n        & 0.10352e+04_rb,0.78509e+03_rb,0.59800e+03_rb,0.88094e+03_rb,0.11643e+04_rb /)\n      kbo(:, 2,52,10) = (/ &\n        & 0.10355e+04_rb,0.78528e+03_rb,0.59763e+03_rb,0.87918e+03_rb,0.11627e+04_rb /)\n      kbo(:, 3,52,10) = (/ &\n        & 0.10361e+04_rb,0.78479e+03_rb,0.59712e+03_rb,0.87762e+03_rb,0.11608e+04_rb /)\n      kbo(:, 4,52,10) = (/ &\n        & 0.10358e+04_rb,0.78528e+03_rb,0.59645e+03_rb,0.87678e+03_rb,0.11589e+04_rb /)\n      kbo(:, 5,52,10) = (/ &\n        & 0.10355e+04_rb,0.78528e+03_rb,0.59584e+03_rb,0.87612e+03_rb,0.11573e+04_rb /)\n      kbo(:, 1,53,10) = (/ &\n        & 0.10357e+04_rb,0.78528e+03_rb,0.59832e+03_rb,0.88148e+03_rb,0.11650e+04_rb /)\n      kbo(:, 2,53,10) = (/ &\n        & 0.10357e+04_rb,0.78596e+03_rb,0.59772e+03_rb,0.87969e+03_rb,0.11634e+04_rb /)\n      kbo(:, 3,53,10) = (/ &\n        & 0.10361e+04_rb,0.78547e+03_rb,0.59737e+03_rb,0.87830e+03_rb,0.11614e+04_rb /)\n      kbo(:, 4,53,10) = (/ &\n        & 0.10362e+04_rb,0.78537e+03_rb,0.59668e+03_rb,0.87707e+03_rb,0.11596e+04_rb /)\n      kbo(:, 5,53,10) = (/ &\n        & 0.10356e+04_rb,0.78498e+03_rb,0.59606e+03_rb,0.87642e+03_rb,0.11578e+04_rb /)\n      kbo(:, 1,54,10) = (/ &\n        & 0.10351e+04_rb,0.78567e+03_rb,0.59851e+03_rb,0.88199e+03_rb,0.11656e+04_rb /)\n      kbo(:, 2,54,10) = (/ &\n        & 0.10366e+04_rb,0.78518e+03_rb,0.59776e+03_rb,0.88021e+03_rb,0.11638e+04_rb /)\n      kbo(:, 3,54,10) = (/ &\n        & 0.10364e+04_rb,0.78478e+03_rb,0.59753e+03_rb,0.87875e+03_rb,0.11621e+04_rb /)\n      kbo(:, 4,54,10) = (/ &\n        & 0.10356e+04_rb,0.78498e+03_rb,0.59692e+03_rb,0.87751e+03_rb,0.11602e+04_rb /)\n      kbo(:, 5,54,10) = (/ &\n        & 0.10362e+04_rb,0.78527e+03_rb,0.59627e+03_rb,0.87657e+03_rb,0.11584e+04_rb /)\n      kbo(:, 1,55,10) = (/ &\n        & 0.10355e+04_rb,0.78488e+03_rb,0.59876e+03_rb,0.88250e+03_rb,0.11663e+04_rb /)\n      kbo(:, 2,55,10) = (/ &\n        & 0.10362e+04_rb,0.78527e+03_rb,0.59801e+03_rb,0.88087e+03_rb,0.11643e+04_rb /)\n      kbo(:, 3,55,10) = (/ &\n        & 0.10356e+04_rb,0.78507e+03_rb,0.59764e+03_rb,0.87920e+03_rb,0.11628e+04_rb /)\n      kbo(:, 4,55,10) = (/ &\n        & 0.10353e+04_rb,0.78488e+03_rb,0.59714e+03_rb,0.87787e+03_rb,0.11606e+04_rb /)\n      kbo(:, 5,55,10) = (/ &\n        & 0.10356e+04_rb,0.78488e+03_rb,0.59639e+03_rb,0.87691e+03_rb,0.11585e+04_rb /)\n      kbo(:, 1,56,10) = (/ &\n        & 0.10353e+04_rb,0.78537e+03_rb,0.59904e+03_rb,0.88318e+03_rb,0.11672e+04_rb /)\n      kbo(:, 2,56,10) = (/ &\n        & 0.10354e+04_rb,0.78497e+03_rb,0.59830e+03_rb,0.88144e+03_rb,0.11649e+04_rb /)\n      kbo(:, 3,56,10) = (/ &\n        & 0.10361e+04_rb,0.78536e+03_rb,0.59771e+03_rb,0.87966e+03_rb,0.11634e+04_rb /)\n      kbo(:, 4,56,10) = (/ &\n        & 0.10357e+04_rb,0.78497e+03_rb,0.59736e+03_rb,0.87826e+03_rb,0.11615e+04_rb /)\n      kbo(:, 5,56,10) = (/ &\n        & 0.10353e+04_rb,0.78478e+03_rb,0.59667e+03_rb,0.87705e+03_rb,0.11595e+04_rb /)\n      kbo(:, 1,57,10) = (/ &\n        & 0.10358e+04_rb,0.78458e+03_rb,0.59927e+03_rb,0.88350e+03_rb,0.11679e+04_rb /)\n      kbo(:, 2,57,10) = (/ &\n        & 0.10352e+04_rb,0.78536e+03_rb,0.59840e+03_rb,0.88193e+03_rb,0.11656e+04_rb /)\n      kbo(:, 3,57,10) = (/ &\n        & 0.10352e+04_rb,0.78526e+03_rb,0.59782e+03_rb,0.88003e+03_rb,0.11638e+04_rb /)\n      kbo(:, 4,57,10) = (/ &\n        & 0.10358e+04_rb,0.78497e+03_rb,0.59751e+03_rb,0.87869e+03_rb,0.11622e+04_rb /)\n      kbo(:, 5,57,10) = (/ &\n        & 0.10360e+04_rb,0.78497e+03_rb,0.59689e+03_rb,0.87746e+03_rb,0.11601e+04_rb /)\n      kbo(:, 1,58,10) = (/ &\n        & 0.10358e+04_rb,0.78468e+03_rb,0.59969e+03_rb,0.88402e+03_rb,0.11685e+04_rb /)\n      kbo(:, 2,58,10) = (/ &\n        & 0.10357e+04_rb,0.78458e+03_rb,0.59873e+03_rb,0.88241e+03_rb,0.11662e+04_rb /)\n      kbo(:, 3,58,10) = (/ &\n        & 0.10358e+04_rb,0.78526e+03_rb,0.59797e+03_rb,0.88085e+03_rb,0.11642e+04_rb /)\n      kbo(:, 4,58,10) = (/ &\n        & 0.10356e+04_rb,0.78487e+03_rb,0.59762e+03_rb,0.87912e+03_rb,0.11626e+04_rb /)\n      kbo(:, 5,58,10) = (/ &\n        & 0.10357e+04_rb,0.78565e+03_rb,0.59710e+03_rb,0.87769e+03_rb,0.11608e+04_rb /)\n      kbo(:, 1,59,10) = (/ &\n        & 0.10360e+04_rb,0.78507e+03_rb,0.59979e+03_rb,0.88416e+03_rb,0.11687e+04_rb /)\n      kbo(:, 2,59,10) = (/ &\n        & 0.10357e+04_rb,0.78477e+03_rb,0.59879e+03_rb,0.88260e+03_rb,0.11665e+04_rb /)\n      kbo(:, 3,59,10) = (/ &\n        & 0.10350e+04_rb,0.78526e+03_rb,0.59804e+03_rb,0.88100e+03_rb,0.11644e+04_rb /)\n      kbo(:, 4,59,10) = (/ &\n        & 0.10357e+04_rb,0.78467e+03_rb,0.59773e+03_rb,0.87930e+03_rb,0.11629e+04_rb /)\n      kbo(:, 5,59,10) = (/ &\n        & 0.10358e+04_rb,0.78457e+03_rb,0.59718e+03_rb,0.87783e+03_rb,0.11609e+04_rb /)\n      kbo(:, 1,13,11) = (/ &\n        & 0.11563e+04_rb,0.87491e+03_rb,0.60253e+03_rb,0.88362e+03_rb,0.11664e+04_rb /)\n      kbo(:, 2,13,11) = (/ &\n        & 0.11454e+04_rb,0.86861e+03_rb,0.60211e+03_rb,0.88300e+03_rb,0.11639e+04_rb /)\n      kbo(:, 3,13,11) = (/ &\n        & 0.11392e+04_rb,0.86181e+03_rb,0.60140e+03_rb,0.88181e+03_rb,0.11620e+04_rb /)\n      kbo(:, 4,13,11) = (/ &\n        & 0.11315e+04_rb,0.85680e+03_rb,0.60042e+03_rb,0.88057e+03_rb,0.11602e+04_rb /)\n      kbo(:, 5,13,11) = (/ &\n        & 0.11273e+04_rb,0.85330e+03_rb,0.59929e+03_rb,0.87908e+03_rb,0.11581e+04_rb /)\n      kbo(:, 1,14,11) = (/ &\n        & 0.11333e+04_rb,0.85776e+03_rb,0.60215e+03_rb,0.88338e+03_rb,0.11660e+04_rb /)\n      kbo(:, 2,14,11) = (/ &\n        & 0.11256e+04_rb,0.85211e+03_rb,0.60176e+03_rb,0.88258e+03_rb,0.11637e+04_rb /)\n      kbo(:, 3,14,11) = (/ &\n        & 0.11185e+04_rb,0.84809e+03_rb,0.60101e+03_rb,0.88154e+03_rb,0.11618e+04_rb /)\n      kbo(:, 4,14,11) = (/ &\n        & 0.11137e+04_rb,0.84328e+03_rb,0.59992e+03_rb,0.87989e+03_rb,0.11599e+04_rb /)\n      kbo(:, 5,14,11) = (/ &\n        & 0.11092e+04_rb,0.83997e+03_rb,0.59898e+03_rb,0.87879e+03_rb,0.11581e+04_rb /)\n      kbo(:, 1,15,11) = (/ &\n        & 0.11149e+04_rb,0.84435e+03_rb,0.60192e+03_rb,0.88317e+03_rb,0.11660e+04_rb /)\n      kbo(:, 2,15,11) = (/ &\n        & 0.11071e+04_rb,0.83899e+03_rb,0.60145e+03_rb,0.88233e+03_rb,0.11635e+04_rb /)\n      kbo(:, 3,15,11) = (/ &\n        & 0.11058e+04_rb,0.83612e+03_rb,0.60066e+03_rb,0.88128e+03_rb,0.11617e+04_rb /)\n      kbo(:, 4,15,11) = (/ &\n        & 0.10996e+04_rb,0.83410e+03_rb,0.59965e+03_rb,0.88002e+03_rb,0.11599e+04_rb /)\n      kbo(:, 5,15,11) = (/ &\n        & 0.10957e+04_rb,0.83022e+03_rb,0.59863e+03_rb,0.87850e+03_rb,0.11578e+04_rb /)\n      kbo(:, 1,16,11) = (/ &\n        & 0.10993e+04_rb,0.83361e+03_rb,0.60157e+03_rb,0.88298e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,16,11) = (/ &\n        & 0.10933e+04_rb,0.82961e+03_rb,0.60127e+03_rb,0.88210e+03_rb,0.11633e+04_rb /)\n      kbo(:, 3,16,11) = (/ &\n        & 0.10924e+04_rb,0.82745e+03_rb,0.60035e+03_rb,0.88104e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,16,11) = (/ &\n        & 0.10885e+04_rb,0.82319e+03_rb,0.59934e+03_rb,0.87977e+03_rb,0.11597e+04_rb /)\n      kbo(:, 5,16,11) = (/ &\n        & 0.10838e+04_rb,0.82062e+03_rb,0.59823e+03_rb,0.87823e+03_rb,0.11577e+04_rb /)\n      kbo(:, 1,17,11) = (/ &\n        & 0.10881e+04_rb,0.82385e+03_rb,0.60135e+03_rb,0.88282e+03_rb,0.11656e+04_rb /)\n      kbo(:, 2,17,11) = (/ &\n        & 0.10840e+04_rb,0.82201e+03_rb,0.60094e+03_rb,0.88190e+03_rb,0.11631e+04_rb /)\n      kbo(:, 3,17,11) = (/ &\n        & 0.10809e+04_rb,0.81908e+03_rb,0.60007e+03_rb,0.88083e+03_rb,0.11613e+04_rb /)\n      kbo(:, 4,17,11) = (/ &\n        & 0.10772e+04_rb,0.81792e+03_rb,0.59907e+03_rb,0.87953e+03_rb,0.11595e+04_rb /)\n      kbo(:, 5,17,11) = (/ &\n        & 0.10760e+04_rb,0.81580e+03_rb,0.59806e+03_rb,0.87798e+03_rb,0.11575e+04_rb /)\n      kbo(:, 1,18,11) = (/ &\n        & 0.10780e+04_rb,0.81679e+03_rb,0.60116e+03_rb,0.88267e+03_rb,0.11653e+04_rb /)\n      kbo(:, 2,18,11) = (/ &\n        & 0.10749e+04_rb,0.81512e+03_rb,0.60072e+03_rb,0.88171e+03_rb,0.11629e+04_rb /)\n      kbo(:, 3,18,11) = (/ &\n        & 0.10728e+04_rb,0.81180e+03_rb,0.59983e+03_rb,0.88050e+03_rb,0.11611e+04_rb /)\n      kbo(:, 4,18,11) = (/ &\n        & 0.10707e+04_rb,0.81081e+03_rb,0.59883e+03_rb,0.87944e+03_rb,0.11593e+04_rb /)\n      kbo(:, 5,18,11) = (/ &\n        & 0.10678e+04_rb,0.80905e+03_rb,0.59782e+03_rb,0.87775e+03_rb,0.11574e+04_rb /)\n      kbo(:, 1,19,11) = (/ &\n        & 0.10696e+04_rb,0.81122e+03_rb,0.60101e+03_rb,0.88252e+03_rb,0.11649e+04_rb /)\n      kbo(:, 2,19,11) = (/ &\n        & 0.10692e+04_rb,0.80792e+03_rb,0.60053e+03_rb,0.88155e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,19,11) = (/ &\n        & 0.10653e+04_rb,0.80791e+03_rb,0.59962e+03_rb,0.88058e+03_rb,0.11609e+04_rb /)\n      kbo(:, 4,19,11) = (/ &\n        & 0.10635e+04_rb,0.80651e+03_rb,0.59853e+03_rb,0.87910e+03_rb,0.11591e+04_rb /)\n      kbo(:, 5,19,11) = (/ &\n        & 0.10626e+04_rb,0.80552e+03_rb,0.59761e+03_rb,0.87753e+03_rb,0.11572e+04_rb /)\n      kbo(:, 1,20,11) = (/ &\n        & 0.10638e+04_rb,0.80613e+03_rb,0.60096e+03_rb,0.88236e+03_rb,0.11646e+04_rb /)\n      kbo(:, 2,20,11) = (/ &\n        & 0.10623e+04_rb,0.80416e+03_rb,0.60035e+03_rb,0.88137e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,20,11) = (/ &\n        & 0.10590e+04_rb,0.80264e+03_rb,0.59950e+03_rb,0.88013e+03_rb,0.11607e+04_rb /)\n      kbo(:, 4,20,11) = (/ &\n        & 0.10603e+04_rb,0.80308e+03_rb,0.59841e+03_rb,0.87915e+03_rb,0.11587e+04_rb /)\n      kbo(:, 5,20,11) = (/ &\n        & 0.10573e+04_rb,0.80101e+03_rb,0.59740e+03_rb,0.87729e+03_rb,0.11568e+04_rb /)\n      kbo(:, 1,21,11) = (/ &\n        & 0.10580e+04_rb,0.80255e+03_rb,0.60075e+03_rb,0.88233e+03_rb,0.11643e+04_rb /)\n      kbo(:, 2,21,11) = (/ &\n        & 0.10580e+04_rb,0.80172e+03_rb,0.60017e+03_rb,0.88121e+03_rb,0.11623e+04_rb /)\n      kbo(:, 3,21,11) = (/ &\n        & 0.10551e+04_rb,0.80129e+03_rb,0.59922e+03_rb,0.87954e+03_rb,0.11605e+04_rb /)\n      kbo(:, 4,21,11) = (/ &\n        & 0.10544e+04_rb,0.79894e+03_rb,0.59822e+03_rb,0.87866e+03_rb,0.11586e+04_rb /)\n      kbo(:, 5,21,11) = (/ &\n        & 0.10531e+04_rb,0.79850e+03_rb,0.59721e+03_rb,0.87693e+03_rb,0.11568e+04_rb /)\n      kbo(:, 1,22,11) = (/ &\n        & 0.10535e+04_rb,0.79809e+03_rb,0.60064e+03_rb,0.88198e+03_rb,0.11639e+04_rb /)\n      kbo(:, 2,22,11) = (/ &\n        & 0.10534e+04_rb,0.79679e+03_rb,0.59986e+03_rb,0.88098e+03_rb,0.11619e+04_rb /)\n      kbo(:, 3,22,11) = (/ &\n        & 0.10517e+04_rb,0.79764e+03_rb,0.59897e+03_rb,0.87993e+03_rb,0.11602e+04_rb /)\n      kbo(:, 4,22,11) = (/ &\n        & 0.10510e+04_rb,0.79739e+03_rb,0.59797e+03_rb,0.87835e+03_rb,0.11582e+04_rb /)\n      kbo(:, 5,22,11) = (/ &\n        & 0.10492e+04_rb,0.79579e+03_rb,0.59697e+03_rb,0.87672e+03_rb,0.11565e+04_rb /)\n      kbo(:, 1,23,11) = (/ &\n        & 0.10516e+04_rb,0.79606e+03_rb,0.60095e+03_rb,0.88176e+03_rb,0.11633e+04_rb /)\n      kbo(:, 2,23,11) = (/ &\n        & 0.10497e+04_rb,0.79542e+03_rb,0.59972e+03_rb,0.88074e+03_rb,0.11616e+04_rb /)\n      kbo(:, 3,23,11) = (/ &\n        & 0.10482e+04_rb,0.79453e+03_rb,0.59873e+03_rb,0.87952e+03_rb,0.11598e+04_rb /)\n      kbo(:, 4,23,11) = (/ &\n        & 0.10486e+04_rb,0.79431e+03_rb,0.59782e+03_rb,0.87802e+03_rb,0.11579e+04_rb /)\n      kbo(:, 5,23,11) = (/ &\n        & 0.10473e+04_rb,0.79522e+03_rb,0.59672e+03_rb,0.87637e+03_rb,0.11562e+04_rb /)\n      kbo(:, 1,24,11) = (/ &\n        & 0.10467e+04_rb,0.79476e+03_rb,0.60034e+03_rb,0.88154e+03_rb,0.11630e+04_rb /)\n      kbo(:, 2,24,11) = (/ &\n        & 0.10461e+04_rb,0.79357e+03_rb,0.59948e+03_rb,0.88049e+03_rb,0.11613e+04_rb /)\n      kbo(:, 3,24,11) = (/ &\n        & 0.10460e+04_rb,0.79280e+03_rb,0.59849e+03_rb,0.87921e+03_rb,0.11596e+04_rb /)\n      kbo(:, 4,24,11) = (/ &\n        & 0.10457e+04_rb,0.79222e+03_rb,0.59749e+03_rb,0.87768e+03_rb,0.11575e+04_rb /)\n      kbo(:, 5,24,11) = (/ &\n        & 0.10450e+04_rb,0.79193e+03_rb,0.59639e+03_rb,0.87600e+03_rb,0.11558e+04_rb /)\n      kbo(:, 1,25,11) = (/ &\n        & 0.10463e+04_rb,0.79209e+03_rb,0.60015e+03_rb,0.88131e+03_rb,0.11626e+04_rb /)\n      kbo(:, 2,25,11) = (/ &\n        & 0.10455e+04_rb,0.79185e+03_rb,0.59924e+03_rb,0.87983e+03_rb,0.11609e+04_rb /)\n      kbo(:, 3,25,11) = (/ &\n        & 0.10450e+04_rb,0.79214e+03_rb,0.59824e+03_rb,0.87889e+03_rb,0.11590e+04_rb /)\n      kbo(:, 4,25,11) = (/ &\n        & 0.10445e+04_rb,0.79118e+03_rb,0.59725e+03_rb,0.87732e+03_rb,0.11571e+04_rb /)\n      kbo(:, 5,25,11) = (/ &\n        & 0.10428e+04_rb,0.79168e+03_rb,0.59624e+03_rb,0.87561e+03_rb,0.11555e+04_rb /)\n      kbo(:, 1,26,11) = (/ &\n        & 0.10437e+04_rb,0.79093e+03_rb,0.59993e+03_rb,0.88106e+03_rb,0.11624e+04_rb /)\n      kbo(:, 2,26,11) = (/ &\n        & 0.10430e+04_rb,0.79091e+03_rb,0.59898e+03_rb,0.87993e+03_rb,0.11605e+04_rb /)\n      kbo(:, 3,26,11) = (/ &\n        & 0.10430e+04_rb,0.79069e+03_rb,0.59808e+03_rb,0.87852e+03_rb,0.11586e+04_rb /)\n      kbo(:, 4,26,11) = (/ &\n        & 0.10425e+04_rb,0.79087e+03_rb,0.59699e+03_rb,0.87692e+03_rb,0.11569e+04_rb /)\n      kbo(:, 5,26,11) = (/ &\n        & 0.10414e+04_rb,0.78954e+03_rb,0.59598e+03_rb,0.87517e+03_rb,0.11547e+04_rb /)\n      kbo(:, 1,27,11) = (/ &\n        & 0.10423e+04_rb,0.79028e+03_rb,0.59970e+03_rb,0.88080e+03_rb,0.11616e+04_rb /)\n      kbo(:, 2,27,11) = (/ &\n        & 0.10415e+04_rb,0.78939e+03_rb,0.59872e+03_rb,0.87961e+03_rb,0.11600e+04_rb /)\n      kbo(:, 3,27,11) = (/ &\n        & 0.10419e+04_rb,0.78972e+03_rb,0.59773e+03_rb,0.87814e+03_rb,0.11581e+04_rb /)\n      kbo(:, 4,27,11) = (/ &\n        & 0.10405e+04_rb,0.78901e+03_rb,0.59673e+03_rb,0.87651e+03_rb,0.11564e+04_rb /)\n      kbo(:, 5,27,11) = (/ &\n        & 0.10410e+04_rb,0.78880e+03_rb,0.59572e+03_rb,0.87471e+03_rb,0.11546e+04_rb /)\n      kbo(:, 1,28,11) = (/ &\n        & 0.10411e+04_rb,0.78831e+03_rb,0.59945e+03_rb,0.88052e+03_rb,0.11614e+04_rb /)\n      kbo(:, 2,28,11) = (/ &\n        & 0.10402e+04_rb,0.78866e+03_rb,0.59846e+03_rb,0.87954e+03_rb,0.11596e+04_rb /)\n      kbo(:, 3,28,11) = (/ &\n        & 0.10401e+04_rb,0.78798e+03_rb,0.59747e+03_rb,0.87776e+03_rb,0.11577e+04_rb /)\n      kbo(:, 4,28,11) = (/ &\n        & 0.10407e+04_rb,0.78779e+03_rb,0.59647e+03_rb,0.87596e+03_rb,0.11560e+04_rb /)\n      kbo(:, 5,28,11) = (/ &\n        & 0.10407e+04_rb,0.78751e+03_rb,0.59548e+03_rb,0.87425e+03_rb,0.11542e+04_rb /)\n      kbo(:, 1,29,11) = (/ &\n        & 0.10408e+04_rb,0.78876e+03_rb,0.59920e+03_rb,0.87983e+03_rb,0.11608e+04_rb /)\n      kbo(:, 2,29,11) = (/ &\n        & 0.10408e+04_rb,0.78834e+03_rb,0.59820e+03_rb,0.87891e+03_rb,0.11591e+04_rb /)\n      kbo(:, 3,29,11) = (/ &\n        & 0.10387e+04_rb,0.78864e+03_rb,0.59721e+03_rb,0.87735e+03_rb,0.11572e+04_rb /)\n      kbo(:, 4,29,11) = (/ &\n        & 0.10384e+04_rb,0.78778e+03_rb,0.59621e+03_rb,0.87578e+03_rb,0.11555e+04_rb /)\n      kbo(:, 5,29,11) = (/ &\n        & 0.10412e+04_rb,0.78824e+03_rb,0.59524e+03_rb,0.87368e+03_rb,0.11538e+04_rb /)\n      kbo(:, 1,30,11) = (/ &\n        & 0.10383e+04_rb,0.78758e+03_rb,0.59894e+03_rb,0.87992e+03_rb,0.11605e+04_rb /)\n      kbo(:, 2,30,11) = (/ &\n        & 0.10390e+04_rb,0.78755e+03_rb,0.59785e+03_rb,0.87840e+03_rb,0.11584e+04_rb /)\n      kbo(:, 3,30,11) = (/ &\n        & 0.10391e+04_rb,0.78813e+03_rb,0.59695e+03_rb,0.87693e+03_rb,0.11568e+04_rb /)\n      kbo(:, 4,30,11) = (/ &\n        & 0.10384e+04_rb,0.78683e+03_rb,0.59594e+03_rb,0.87519e+03_rb,0.11551e+04_rb /)\n      kbo(:, 5,30,11) = (/ &\n        & 0.10388e+04_rb,0.78660e+03_rb,0.59501e+03_rb,0.87341e+03_rb,0.11534e+04_rb /)\n      kbo(:, 1,31,11) = (/ &\n        & 0.10376e+04_rb,0.78640e+03_rb,0.59867e+03_rb,0.87959e+03_rb,0.11601e+04_rb /)\n      kbo(:, 2,31,11) = (/ &\n        & 0.10381e+04_rb,0.78687e+03_rb,0.59768e+03_rb,0.87813e+03_rb,0.11581e+04_rb /)\n      kbo(:, 3,31,11) = (/ &\n        & 0.10369e+04_rb,0.78736e+03_rb,0.59668e+03_rb,0.87650e+03_rb,0.11564e+04_rb /)\n      kbo(:, 4,31,11) = (/ &\n        & 0.10380e+04_rb,0.78738e+03_rb,0.59577e+03_rb,0.87483e+03_rb,0.11546e+04_rb /)\n      kbo(:, 5,31,11) = (/ &\n        & 0.10391e+04_rb,0.78671e+03_rb,0.59479e+03_rb,0.87299e+03_rb,0.11532e+04_rb /)\n      kbo(:, 1,32,11) = (/ &\n        & 0.10371e+04_rb,0.78531e+03_rb,0.59840e+03_rb,0.87936e+03_rb,0.11596e+04_rb /)\n      kbo(:, 2,32,11) = (/ &\n        & 0.10383e+04_rb,0.78734e+03_rb,0.59742e+03_rb,0.87771e+03_rb,0.11576e+04_rb /)\n      kbo(:, 3,32,11) = (/ &\n        & 0.10363e+04_rb,0.78691e+03_rb,0.59641e+03_rb,0.87605e+03_rb,0.11559e+04_rb /)\n      kbo(:, 4,32,11) = (/ &\n        & 0.10373e+04_rb,0.78648e+03_rb,0.59543e+03_rb,0.87420e+03_rb,0.11542e+04_rb /)\n      kbo(:, 5,32,11) = (/ &\n        & 0.10376e+04_rb,0.78617e+03_rb,0.59455e+03_rb,0.87256e+03_rb,0.11529e+04_rb /)\n      kbo(:, 1,33,11) = (/ &\n        & 0.10366e+04_rb,0.78725e+03_rb,0.59814e+03_rb,0.87885e+03_rb,0.11591e+04_rb /)\n      kbo(:, 2,33,11) = (/ &\n        & 0.10366e+04_rb,0.78694e+03_rb,0.59715e+03_rb,0.87729e+03_rb,0.11572e+04_rb /)\n      kbo(:, 3,33,11) = (/ &\n        & 0.10365e+04_rb,0.78534e+03_rb,0.59614e+03_rb,0.87545e+03_rb,0.11555e+04_rb /)\n      kbo(:, 4,33,11) = (/ &\n        & 0.10377e+04_rb,0.78705e+03_rb,0.59518e+03_rb,0.87362e+03_rb,0.11536e+04_rb /)\n      kbo(:, 5,33,11) = (/ &\n        & 0.10381e+04_rb,0.78546e+03_rb,0.59428e+03_rb,0.87201e+03_rb,0.11526e+04_rb /)\n      kbo(:, 1,34,11) = (/ &\n        & 0.10370e+04_rb,0.78547e+03_rb,0.59791e+03_rb,0.87837e+03_rb,0.11586e+04_rb /)\n      kbo(:, 2,34,11) = (/ &\n        & 0.10369e+04_rb,0.78635e+03_rb,0.59683e+03_rb,0.87691e+03_rb,0.11568e+04_rb /)\n      kbo(:, 3,34,11) = (/ &\n        & 0.10373e+04_rb,0.78607e+03_rb,0.59591e+03_rb,0.87516e+03_rb,0.11551e+04_rb /)\n      kbo(:, 4,34,11) = (/ &\n        & 0.10371e+04_rb,0.78696e+03_rb,0.59498e+03_rb,0.87338e+03_rb,0.11534e+04_rb /)\n      kbo(:, 5,34,11) = (/ &\n        & 0.10366e+04_rb,0.78538e+03_rb,0.59374e+03_rb,0.87179e+03_rb,0.11524e+04_rb /)\n      kbo(:, 1,35,11) = (/ &\n        & 0.10371e+04_rb,0.78681e+03_rb,0.59778e+03_rb,0.87830e+03_rb,0.11583e+04_rb /)\n      kbo(:, 2,35,11) = (/ &\n        & 0.10367e+04_rb,0.78665e+03_rb,0.59678e+03_rb,0.87669e+03_rb,0.11566e+04_rb /)\n      kbo(:, 3,35,11) = (/ &\n        & 0.10363e+04_rb,0.78613e+03_rb,0.59569e+03_rb,0.87491e+03_rb,0.11549e+04_rb /)\n      kbo(:, 4,35,11) = (/ &\n        & 0.10364e+04_rb,0.78668e+03_rb,0.59487e+03_rb,0.87304e+03_rb,0.11533e+04_rb /)\n      kbo(:, 5,35,11) = (/ &\n        & 0.10370e+04_rb,0.78641e+03_rb,0.59363e+03_rb,0.87159e+03_rb,0.11523e+04_rb /)\n      kbo(:, 1,36,11) = (/ &\n        & 0.10366e+04_rb,0.78595e+03_rb,0.59775e+03_rb,0.87827e+03_rb,0.11583e+04_rb /)\n      kbo(:, 2,36,11) = (/ &\n        & 0.10367e+04_rb,0.78568e+03_rb,0.59676e+03_rb,0.87652e+03_rb,0.11565e+04_rb /)\n      kbo(:, 3,36,11) = (/ &\n        & 0.10363e+04_rb,0.78600e+03_rb,0.59575e+03_rb,0.87487e+03_rb,0.11548e+04_rb /)\n      kbo(:, 4,36,11) = (/ &\n        & 0.10370e+04_rb,0.78596e+03_rb,0.59503e+03_rb,0.87314e+03_rb,0.11533e+04_rb /)\n      kbo(:, 5,36,11) = (/ &\n        & 0.10356e+04_rb,0.78546e+03_rb,0.59359e+03_rb,0.87116e+03_rb,0.11523e+04_rb /)\n      kbo(:, 1,37,11) = (/ &\n        & 0.10367e+04_rb,0.78524e+03_rb,0.59788e+03_rb,0.87847e+03_rb,0.11586e+04_rb /)\n      kbo(:, 2,37,11) = (/ &\n        & 0.10373e+04_rb,0.78580e+03_rb,0.59689e+03_rb,0.87687e+03_rb,0.11567e+04_rb /)\n      kbo(:, 3,37,11) = (/ &\n        & 0.10369e+04_rb,0.78554e+03_rb,0.59588e+03_rb,0.87512e+03_rb,0.11550e+04_rb /)\n      kbo(:, 4,37,11) = (/ &\n        & 0.10372e+04_rb,0.78551e+03_rb,0.59495e+03_rb,0.87335e+03_rb,0.11534e+04_rb /)\n      kbo(:, 5,37,11) = (/ &\n        & 0.10364e+04_rb,0.78631e+03_rb,0.59378e+03_rb,0.87175e+03_rb,0.11524e+04_rb /)\n      kbo(:, 1,38,11) = (/ &\n        & 0.10372e+04_rb,0.78574e+03_rb,0.59801e+03_rb,0.87867e+03_rb,0.11588e+04_rb /)\n      kbo(:, 2,38,11) = (/ &\n        & 0.10364e+04_rb,0.78476e+03_rb,0.59702e+03_rb,0.87710e+03_rb,0.11570e+04_rb /)\n      kbo(:, 3,38,11) = (/ &\n        & 0.10351e+04_rb,0.78521e+03_rb,0.59593e+03_rb,0.87537e+03_rb,0.11553e+04_rb /)\n      kbo(:, 4,38,11) = (/ &\n        & 0.10362e+04_rb,0.78507e+03_rb,0.59507e+03_rb,0.87344e+03_rb,0.11536e+04_rb /)\n      kbo(:, 5,38,11) = (/ &\n        & 0.10371e+04_rb,0.78635e+03_rb,0.59400e+03_rb,0.87197e+03_rb,0.11525e+04_rb /)\n      kbo(:, 1,39,11) = (/ &\n        & 0.10359e+04_rb,0.78601e+03_rb,0.59815e+03_rb,0.87888e+03_rb,0.11591e+04_rb /)\n      kbo(:, 2,39,11) = (/ &\n        & 0.10375e+04_rb,0.78669e+03_rb,0.59716e+03_rb,0.87732e+03_rb,0.11572e+04_rb /)\n      kbo(:, 3,39,11) = (/ &\n        & 0.10350e+04_rb,0.78597e+03_rb,0.59615e+03_rb,0.87562e+03_rb,0.11555e+04_rb /)\n      kbo(:, 4,39,11) = (/ &\n        & 0.10366e+04_rb,0.78524e+03_rb,0.59519e+03_rb,0.87365e+03_rb,0.11538e+04_rb /)\n      kbo(:, 5,39,11) = (/ &\n        & 0.10373e+04_rb,0.78605e+03_rb,0.59422e+03_rb,0.87205e+03_rb,0.11526e+04_rb /)\n      kbo(:, 1,40,11) = (/ &\n        & 0.10361e+04_rb,0.78559e+03_rb,0.59838e+03_rb,0.87949e+03_rb,0.11596e+04_rb /)\n      kbo(:, 2,40,11) = (/ &\n        & 0.10364e+04_rb,0.78533e+03_rb,0.59740e+03_rb,0.87771e+03_rb,0.11576e+04_rb /)\n      kbo(:, 3,40,11) = (/ &\n        & 0.10357e+04_rb,0.78567e+03_rb,0.59640e+03_rb,0.87605e+03_rb,0.11559e+04_rb /)\n      kbo(:, 4,40,11) = (/ &\n        & 0.10354e+04_rb,0.78518e+03_rb,0.59541e+03_rb,0.87434e+03_rb,0.11542e+04_rb /)\n      kbo(:, 5,40,11) = (/ &\n        & 0.10361e+04_rb,0.78553e+03_rb,0.59453e+03_rb,0.87244e+03_rb,0.11529e+04_rb /)\n      kbo(:, 1,41,11) = (/ &\n        & 0.10352e+04_rb,0.78554e+03_rb,0.59863e+03_rb,0.87958e+03_rb,0.11601e+04_rb /)\n      kbo(:, 2,41,11) = (/ &\n        & 0.10361e+04_rb,0.78611e+03_rb,0.59765e+03_rb,0.87811e+03_rb,0.11581e+04_rb /)\n      kbo(:, 3,41,11) = (/ &\n        & 0.10357e+04_rb,0.78586e+03_rb,0.59665e+03_rb,0.87648e+03_rb,0.11564e+04_rb /)\n      kbo(:, 4,41,11) = (/ &\n        & 0.10369e+04_rb,0.78632e+03_rb,0.59556e+03_rb,0.87469e+03_rb,0.11547e+04_rb /)\n      kbo(:, 5,41,11) = (/ &\n        & 0.10372e+04_rb,0.78631e+03_rb,0.59476e+03_rb,0.87298e+03_rb,0.11532e+04_rb /)\n      kbo(:, 1,42,11) = (/ &\n        & 0.10352e+04_rb,0.78620e+03_rb,0.59889e+03_rb,0.87990e+03_rb,0.11605e+04_rb /)\n      kbo(:, 2,42,11) = (/ &\n        & 0.10362e+04_rb,0.78666e+03_rb,0.59790e+03_rb,0.87851e+03_rb,0.11586e+04_rb /)\n      kbo(:, 3,42,11) = (/ &\n        & 0.10358e+04_rb,0.78476e+03_rb,0.59691e+03_rb,0.87691e+03_rb,0.11568e+04_rb /)\n      kbo(:, 4,42,11) = (/ &\n        & 0.10367e+04_rb,0.78534e+03_rb,0.59590e+03_rb,0.87517e+03_rb,0.11551e+04_rb /)\n      kbo(:, 5,42,11) = (/ &\n        & 0.10374e+04_rb,0.78497e+03_rb,0.59497e+03_rb,0.87339e+03_rb,0.11533e+04_rb /)\n      kbo(:, 1,43,11) = (/ &\n        & 0.10357e+04_rb,0.78569e+03_rb,0.59919e+03_rb,0.88014e+03_rb,0.11611e+04_rb /)\n      kbo(:, 2,43,11) = (/ &\n        & 0.10384e+04_rb,0.78603e+03_rb,0.59811e+03_rb,0.87910e+03_rb,0.11592e+04_rb /)\n      kbo(:, 3,43,11) = (/ &\n        & 0.10376e+04_rb,0.78685e+03_rb,0.59731e+03_rb,0.87742e+03_rb,0.11573e+04_rb /)\n      kbo(:, 4,43,11) = (/ &\n        & 0.10368e+04_rb,0.78484e+03_rb,0.59612e+03_rb,0.87573e+03_rb,0.11555e+04_rb /)\n      kbo(:, 5,43,11) = (/ &\n        & 0.10371e+04_rb,0.78612e+03_rb,0.59525e+03_rb,0.87389e+03_rb,0.11539e+04_rb /)\n      kbo(:, 1,44,11) = (/ &\n        & 0.10362e+04_rb,0.78531e+03_rb,0.59952e+03_rb,0.88052e+03_rb,0.11615e+04_rb /)\n      kbo(:, 2,44,11) = (/ &\n        & 0.10357e+04_rb,0.78506e+03_rb,0.59854e+03_rb,0.87945e+03_rb,0.11599e+04_rb /)\n      kbo(:, 3,44,11) = (/ &\n        & 0.10347e+04_rb,0.78494e+03_rb,0.59755e+03_rb,0.87796e+03_rb,0.11576e+04_rb /)\n      kbo(:, 4,44,11) = (/ &\n        & 0.10360e+04_rb,0.78599e+03_rb,0.59655e+03_rb,0.87632e+03_rb,0.11562e+04_rb /)\n      kbo(:, 5,44,11) = (/ &\n        & 0.10364e+04_rb,0.78610e+03_rb,0.59556e+03_rb,0.87451e+03_rb,0.11545e+04_rb /)\n      kbo(:, 1,45,11) = (/ &\n        & 0.10355e+04_rb,0.78552e+03_rb,0.59982e+03_rb,0.88100e+03_rb,0.11621e+04_rb /)\n      kbo(:, 2,45,11) = (/ &\n        & 0.10357e+04_rb,0.78527e+03_rb,0.59887e+03_rb,0.87975e+03_rb,0.11605e+04_rb /)\n      kbo(:, 3,45,11) = (/ &\n        & 0.10358e+04_rb,0.78432e+03_rb,0.59788e+03_rb,0.87848e+03_rb,0.11586e+04_rb /)\n      kbo(:, 4,45,11) = (/ &\n        & 0.10358e+04_rb,0.78597e+03_rb,0.59689e+03_rb,0.87689e+03_rb,0.11568e+04_rb /)\n      kbo(:, 5,45,11) = (/ &\n        & 0.10353e+04_rb,0.78525e+03_rb,0.59589e+03_rb,0.87514e+03_rb,0.11551e+04_rb /)\n      kbo(:, 1,46,11) = (/ &\n        & 0.10358e+04_rb,0.78503e+03_rb,0.60010e+03_rb,0.88136e+03_rb,0.11629e+04_rb /)\n      kbo(:, 2,46,11) = (/ &\n        & 0.10366e+04_rb,0.78667e+03_rb,0.59923e+03_rb,0.88004e+03_rb,0.11611e+04_rb /)\n      kbo(:, 3,46,11) = (/ &\n        & 0.10372e+04_rb,0.78560e+03_rb,0.59824e+03_rb,0.87915e+03_rb,0.11593e+04_rb /)\n      kbo(:, 4,46,11) = (/ &\n        & 0.10348e+04_rb,0.78513e+03_rb,0.59725e+03_rb,0.87748e+03_rb,0.11574e+04_rb /)\n      kbo(:, 5,46,11) = (/ &\n        & 0.10372e+04_rb,0.78595e+03_rb,0.59625e+03_rb,0.87592e+03_rb,0.11557e+04_rb /)\n      kbo(:, 1,47,11) = (/ &\n        & 0.10352e+04_rb,0.78466e+03_rb,0.60059e+03_rb,0.88175e+03_rb,0.11637e+04_rb /)\n      kbo(:, 2,47,11) = (/ &\n        & 0.10362e+04_rb,0.78477e+03_rb,0.59970e+03_rb,0.88075e+03_rb,0.11618e+04_rb /)\n      kbo(:, 3,47,11) = (/ &\n        & 0.10362e+04_rb,0.78559e+03_rb,0.59863e+03_rb,0.87958e+03_rb,0.11601e+04_rb /)\n      kbo(:, 4,47,11) = (/ &\n        & 0.10356e+04_rb,0.78476e+03_rb,0.59765e+03_rb,0.87812e+03_rb,0.11581e+04_rb /)\n      kbo(:, 5,47,11) = (/ &\n        & 0.10361e+04_rb,0.78428e+03_rb,0.59665e+03_rb,0.87649e+03_rb,0.11564e+04_rb /)\n      kbo(:, 1,48,11) = (/ &\n        & 0.10354e+04_rb,0.78500e+03_rb,0.60042e+03_rb,0.88214e+03_rb,0.11645e+04_rb /)\n      kbo(:, 2,48,11) = (/ &\n        & 0.10348e+04_rb,0.78582e+03_rb,0.59995e+03_rb,0.88117e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,48,11) = (/ &\n        & 0.10353e+04_rb,0.78569e+03_rb,0.59903e+03_rb,0.87942e+03_rb,0.11608e+04_rb /)\n      kbo(:, 4,48,11) = (/ &\n        & 0.10359e+04_rb,0.78569e+03_rb,0.59804e+03_rb,0.87873e+03_rb,0.11589e+04_rb /)\n      kbo(:, 5,48,11) = (/ &\n        & 0.10354e+04_rb,0.78509e+03_rb,0.59705e+03_rb,0.87716e+03_rb,0.11570e+04_rb /)\n      kbo(:, 1,49,11) = (/ &\n        & 0.10362e+04_rb,0.78463e+03_rb,0.60042e+03_rb,0.88242e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,49,11) = (/ &\n        & 0.10367e+04_rb,0.78580e+03_rb,0.60023e+03_rb,0.88156e+03_rb,0.11633e+04_rb /)\n      kbo(:, 3,49,11) = (/ &\n        & 0.10373e+04_rb,0.78533e+03_rb,0.59942e+03_rb,0.88054e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,49,11) = (/ &\n        & 0.10373e+04_rb,0.78462e+03_rb,0.59844e+03_rb,0.87918e+03_rb,0.11595e+04_rb /)\n      kbo(:, 5,49,11) = (/ &\n        & 0.10370e+04_rb,0.78532e+03_rb,0.59736e+03_rb,0.87781e+03_rb,0.11578e+04_rb /)\n      kbo(:, 1,50,11) = (/ &\n        & 0.10356e+04_rb,0.78474e+03_rb,0.60056e+03_rb,0.88267e+03_rb,0.11666e+04_rb /)\n      kbo(:, 2,50,11) = (/ &\n        & 0.10370e+04_rb,0.78497e+03_rb,0.60046e+03_rb,0.88192e+03_rb,0.11642e+04_rb /)\n      kbo(:, 3,50,11) = (/ &\n        & 0.10348e+04_rb,0.78508e+03_rb,0.59977e+03_rb,0.88094e+03_rb,0.11634e+04_rb /)\n      kbo(:, 4,50,11) = (/ &\n        & 0.10352e+04_rb,0.78473e+03_rb,0.59881e+03_rb,0.87954e+03_rb,0.11604e+04_rb /)\n      kbo(:, 5,50,11) = (/ &\n        & 0.10360e+04_rb,0.78437e+03_rb,0.59782e+03_rb,0.87840e+03_rb,0.11585e+04_rb /)\n      kbo(:, 1,51,11) = (/ &\n        & 0.10365e+04_rb,0.78532e+03_rb,0.60054e+03_rb,0.88306e+03_rb,0.11674e+04_rb /)\n      kbo(:, 2,51,11) = (/ &\n        & 0.10360e+04_rb,0.78555e+03_rb,0.60046e+03_rb,0.88226e+03_rb,0.11651e+04_rb /)\n      kbo(:, 3,51,11) = (/ &\n        & 0.10359e+04_rb,0.78508e+03_rb,0.60006e+03_rb,0.88131e+03_rb,0.11628e+04_rb /)\n      kbo(:, 4,51,11) = (/ &\n        & 0.10359e+04_rb,0.78554e+03_rb,0.59917e+03_rb,0.88011e+03_rb,0.11610e+04_rb /)\n      kbo(:, 5,51,11) = (/ &\n        & 0.10363e+04_rb,0.78507e+03_rb,0.59818e+03_rb,0.87894e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,52,11) = (/ &\n        & 0.10357e+04_rb,0.78531e+03_rb,0.60048e+03_rb,0.88333e+03_rb,0.11687e+04_rb /)\n      kbo(:, 2,52,11) = (/ &\n        & 0.10368e+04_rb,0.78554e+03_rb,0.60053e+03_rb,0.88249e+03_rb,0.11660e+04_rb /)\n      kbo(:, 3,52,11) = (/ &\n        & 0.10362e+04_rb,0.78601e+03_rb,0.60037e+03_rb,0.88166e+03_rb,0.11635e+04_rb /)\n      kbo(:, 4,52,11) = (/ &\n        & 0.10354e+04_rb,0.78507e+03_rb,0.59952e+03_rb,0.88066e+03_rb,0.11617e+04_rb /)\n      kbo(:, 5,52,11) = (/ &\n        & 0.10363e+04_rb,0.78565e+03_rb,0.59854e+03_rb,0.87959e+03_rb,0.11599e+04_rb /)\n      kbo(:, 1,53,11) = (/ &\n        & 0.10366e+04_rb,0.78460e+03_rb,0.60030e+03_rb,0.88415e+03_rb,0.11699e+04_rb /)\n      kbo(:, 2,53,11) = (/ &\n        & 0.10366e+04_rb,0.78400e+03_rb,0.60056e+03_rb,0.88262e+03_rb,0.11668e+04_rb /)\n      kbo(:, 3,53,11) = (/ &\n        & 0.10358e+04_rb,0.78459e+03_rb,0.60039e+03_rb,0.88202e+03_rb,0.11644e+04_rb /)\n      kbo(:, 4,53,11) = (/ &\n        & 0.10348e+04_rb,0.78471e+03_rb,0.59985e+03_rb,0.88104e+03_rb,0.11623e+04_rb /)\n      kbo(:, 5,53,11) = (/ &\n        & 0.10366e+04_rb,0.78577e+03_rb,0.59891e+03_rb,0.87992e+03_rb,0.11606e+04_rb /)\n      kbo(:, 1,54,11) = (/ &\n        & 0.10355e+04_rb,0.78471e+03_rb,0.60033e+03_rb,0.88501e+03_rb,0.11708e+04_rb /)\n      kbo(:, 2,54,11) = (/ &\n        & 0.10360e+04_rb,0.78494e+03_rb,0.60053e+03_rb,0.88313e+03_rb,0.11678e+04_rb /)\n      kbo(:, 3,54,11) = (/ &\n        & 0.10360e+04_rb,0.78671e+03_rb,0.60047e+03_rb,0.88230e+03_rb,0.11652e+04_rb /)\n      kbo(:, 4,54,11) = (/ &\n        & 0.10355e+04_rb,0.78588e+03_rb,0.60010e+03_rb,0.88137e+03_rb,0.11629e+04_rb /)\n      kbo(:, 5,54,11) = (/ &\n        & 0.10357e+04_rb,0.78517e+03_rb,0.59924e+03_rb,0.88032e+03_rb,0.11612e+04_rb /)\n      kbo(:, 1,55,11) = (/ &\n        & 0.10357e+04_rb,0.78506e+03_rb,0.60035e+03_rb,0.88567e+03_rb,0.11714e+04_rb /)\n      kbo(:, 2,55,11) = (/ &\n        & 0.10357e+04_rb,0.78518e+03_rb,0.60047e+03_rb,0.88349e+03_rb,0.11688e+04_rb /)\n      kbo(:, 3,55,11) = (/ &\n        & 0.10361e+04_rb,0.78517e+03_rb,0.60053e+03_rb,0.88250e+03_rb,0.11660e+04_rb /)\n      kbo(:, 4,55,11) = (/ &\n        & 0.10357e+04_rb,0.78529e+03_rb,0.60029e+03_rb,0.88168e+03_rb,0.11636e+04_rb /)\n      kbo(:, 5,55,11) = (/ &\n        & 0.10360e+04_rb,0.78529e+03_rb,0.59954e+03_rb,0.88068e+03_rb,0.11617e+04_rb /)\n      kbo(:, 1,56,11) = (/ &\n        & 0.10361e+04_rb,0.78494e+03_rb,0.60049e+03_rb,0.88607e+03_rb,0.11718e+04_rb /)\n      kbo(:, 2,56,11) = (/ &\n        & 0.10360e+04_rb,0.78482e+03_rb,0.60030e+03_rb,0.88410e+03_rb,0.11698e+04_rb /)\n      kbo(:, 3,56,11) = (/ &\n        & 0.10354e+04_rb,0.78493e+03_rb,0.60056e+03_rb,0.88273e+03_rb,0.11667e+04_rb /)\n      kbo(:, 4,56,11) = (/ &\n        & 0.10357e+04_rb,0.78552e+03_rb,0.60038e+03_rb,0.88199e+03_rb,0.11645e+04_rb /)\n      kbo(:, 5,56,11) = (/ &\n        & 0.10357e+04_rb,0.78517e+03_rb,0.59983e+03_rb,0.88101e+03_rb,0.11624e+04_rb /)\n      kbo(:, 1,57,11) = (/ &\n        & 0.10357e+04_rb,0.78588e+03_rb,0.60099e+03_rb,0.88686e+03_rb,0.11725e+04_rb /)\n      kbo(:, 2,57,11) = (/ &\n        & 0.10366e+04_rb,0.78458e+03_rb,0.60033e+03_rb,0.88491e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,57,11) = (/ &\n        & 0.10366e+04_rb,0.78481e+03_rb,0.60053e+03_rb,0.88335e+03_rb,0.11676e+04_rb /)\n      kbo(:, 4,57,11) = (/ &\n        & 0.10358e+04_rb,0.78611e+03_rb,0.60046e+03_rb,0.88227e+03_rb,0.11650e+04_rb /)\n      kbo(:, 5,57,11) = (/ &\n        & 0.10355e+04_rb,0.78599e+03_rb,0.60008e+03_rb,0.88133e+03_rb,0.11630e+04_rb /)\n      kbo(:, 1,58,11) = (/ &\n        & 0.10363e+04_rb,0.78576e+03_rb,0.60143e+03_rb,0.88764e+03_rb,0.11733e+04_rb /)\n      kbo(:, 2,58,11) = (/ &\n        & 0.10354e+04_rb,0.78611e+03_rb,0.60042e+03_rb,0.88557e+03_rb,0.11713e+04_rb /)\n      kbo(:, 3,58,11) = (/ &\n        & 0.10363e+04_rb,0.78576e+03_rb,0.60048e+03_rb,0.88329e+03_rb,0.11686e+04_rb /)\n      kbo(:, 4,58,11) = (/ &\n        & 0.10364e+04_rb,0.78505e+03_rb,0.60052e+03_rb,0.88247e+03_rb,0.11659e+04_rb /)\n      kbo(:, 5,58,11) = (/ &\n        & 0.10357e+04_rb,0.78552e+03_rb,0.60026e+03_rb,0.88163e+03_rb,0.11633e+04_rb /)\n      kbo(:, 1,59,11) = (/ &\n        & 0.10354e+04_rb,0.78634e+03_rb,0.60176e+03_rb,0.88797e+03_rb,0.11736e+04_rb /)\n      kbo(:, 2,59,11) = (/ &\n        & 0.10350e+04_rb,0.78505e+03_rb,0.60038e+03_rb,0.88577e+03_rb,0.11715e+04_rb /)\n      kbo(:, 3,59,11) = (/ &\n        & 0.10360e+04_rb,0.78469e+03_rb,0.60046e+03_rb,0.88358e+03_rb,0.11703e+04_rb /)\n      kbo(:, 4,59,11) = (/ &\n        & 0.10357e+04_rb,0.78493e+03_rb,0.60045e+03_rb,0.88254e+03_rb,0.11662e+04_rb /)\n      kbo(:, 5,59,11) = (/ &\n        & 0.10366e+04_rb,0.78516e+03_rb,0.60041e+03_rb,0.88174e+03_rb,0.11637e+04_rb /)\n      kbo(:, 1,13,12) = (/ &\n        & 0.11535e+04_rb,0.87955e+03_rb,0.60434e+03_rb,0.88744e+03_rb,0.11710e+04_rb /)\n      kbo(:, 2,13,12) = (/ &\n        & 0.11485e+04_rb,0.86886e+03_rb,0.60369e+03_rb,0.88598e+03_rb,0.11697e+04_rb /)\n      kbo(:, 3,13,12) = (/ &\n        & 0.11395e+04_rb,0.86441e+03_rb,0.60332e+03_rb,0.88477e+03_rb,0.11680e+04_rb /)\n      kbo(:, 4,13,12) = (/ &\n        & 0.11350e+04_rb,0.86216e+03_rb,0.60276e+03_rb,0.88294e+03_rb,0.11659e+04_rb /)\n      kbo(:, 5,13,12) = (/ &\n        & 0.11237e+04_rb,0.85514e+03_rb,0.60186e+03_rb,0.88131e+03_rb,0.11640e+04_rb /)\n      kbo(:, 1,14,12) = (/ &\n        & 0.11312e+04_rb,0.85960e+03_rb,0.60391e+03_rb,0.88683e+03_rb,0.11708e+04_rb /)\n      kbo(:, 2,14,12) = (/ &\n        & 0.11248e+04_rb,0.85192e+03_rb,0.60329e+03_rb,0.88591e+03_rb,0.11696e+04_rb /)\n      kbo(:, 3,14,12) = (/ &\n        & 0.11210e+04_rb,0.84824e+03_rb,0.60297e+03_rb,0.88444e+03_rb,0.11678e+04_rb /)\n      kbo(:, 4,14,12) = (/ &\n        & 0.11139e+04_rb,0.84322e+03_rb,0.60241e+03_rb,0.88264e+03_rb,0.11657e+04_rb /)\n      kbo(:, 5,14,12) = (/ &\n        & 0.11123e+04_rb,0.84158e+03_rb,0.60150e+03_rb,0.88104e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,15,12) = (/ &\n        & 0.11159e+04_rb,0.84414e+03_rb,0.60344e+03_rb,0.88657e+03_rb,0.11715e+04_rb /)\n      kbo(:, 2,15,12) = (/ &\n        & 0.11106e+04_rb,0.84043e+03_rb,0.60296e+03_rb,0.88568e+03_rb,0.11695e+04_rb /)\n      kbo(:, 3,15,12) = (/ &\n        & 0.11018e+04_rb,0.83588e+03_rb,0.60268e+03_rb,0.88413e+03_rb,0.11676e+04_rb /)\n      kbo(:, 4,15,12) = (/ &\n        & 0.10976e+04_rb,0.83213e+03_rb,0.60210e+03_rb,0.88235e+03_rb,0.11655e+04_rb /)\n      kbo(:, 5,15,12) = (/ &\n        & 0.10965e+04_rb,0.83273e+03_rb,0.60128e+03_rb,0.88077e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,16,12) = (/ &\n        & 0.11003e+04_rb,0.83414e+03_rb,0.60325e+03_rb,0.88634e+03_rb,0.11705e+04_rb /)\n      kbo(:, 2,16,12) = (/ &\n        & 0.10991e+04_rb,0.82921e+03_rb,0.60259e+03_rb,0.88546e+03_rb,0.11694e+04_rb /)\n      kbo(:, 3,16,12) = (/ &\n        & 0.10955e+04_rb,0.82665e+03_rb,0.60243e+03_rb,0.88384e+03_rb,0.11674e+04_rb /)\n      kbo(:, 4,16,12) = (/ &\n        & 0.10851e+04_rb,0.82401e+03_rb,0.60183e+03_rb,0.88207e+03_rb,0.11653e+04_rb /)\n      kbo(:, 5,16,12) = (/ &\n        & 0.10849e+04_rb,0.82356e+03_rb,0.60085e+03_rb,0.88053e+03_rb,0.11635e+04_rb /)\n      kbo(:, 1,17,12) = (/ &\n        & 0.10876e+04_rb,0.82527e+03_rb,0.60299e+03_rb,0.88614e+03_rb,0.11702e+04_rb /)\n      kbo(:, 2,17,12) = (/ &\n        & 0.10859e+04_rb,0.82135e+03_rb,0.60250e+03_rb,0.88526e+03_rb,0.11692e+04_rb /)\n      kbo(:, 3,17,12) = (/ &\n        & 0.10841e+04_rb,0.81891e+03_rb,0.60222e+03_rb,0.88356e+03_rb,0.11671e+04_rb /)\n      kbo(:, 4,17,12) = (/ &\n        & 0.10784e+04_rb,0.81708e+03_rb,0.60159e+03_rb,0.88183e+03_rb,0.11651e+04_rb /)\n      kbo(:, 5,17,12) = (/ &\n        & 0.10763e+04_rb,0.81350e+03_rb,0.60170e+03_rb,0.88030e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,18,12) = (/ &\n        & 0.10781e+04_rb,0.81748e+03_rb,0.60276e+03_rb,0.88597e+03_rb,0.11700e+04_rb /)\n      kbo(:, 2,18,12) = (/ &\n        & 0.10771e+04_rb,0.81396e+03_rb,0.60232e+03_rb,0.88573e+03_rb,0.11691e+04_rb /)\n      kbo(:, 3,18,12) = (/ &\n        & 0.10718e+04_rb,0.81415e+03_rb,0.60204e+03_rb,0.88331e+03_rb,0.11669e+04_rb /)\n      kbo(:, 4,18,12) = (/ &\n        & 0.10689e+04_rb,0.81027e+03_rb,0.60137e+03_rb,0.88144e+03_rb,0.11649e+04_rb /)\n      kbo(:, 5,18,12) = (/ &\n        & 0.10691e+04_rb,0.80937e+03_rb,0.60029e+03_rb,0.88009e+03_rb,0.11632e+04_rb /)\n      kbo(:, 1,19,12) = (/ &\n        & 0.10732e+04_rb,0.81093e+03_rb,0.60257e+03_rb,0.88582e+03_rb,0.11702e+04_rb /)\n      kbo(:, 2,19,12) = (/ &\n        & 0.10665e+04_rb,0.81093e+03_rb,0.60218e+03_rb,0.88486e+03_rb,0.11689e+04_rb /)\n      kbo(:, 3,19,12) = (/ &\n        & 0.10668e+04_rb,0.80596e+03_rb,0.60188e+03_rb,0.88291e+03_rb,0.11667e+04_rb /)\n      kbo(:, 4,19,12) = (/ &\n        & 0.10625e+04_rb,0.80871e+03_rb,0.60129e+03_rb,0.88139e+03_rb,0.11647e+04_rb /)\n      kbo(:, 5,19,12) = (/ &\n        & 0.10641e+04_rb,0.80549e+03_rb,0.60005e+03_rb,0.87990e+03_rb,0.11631e+04_rb /)\n      kbo(:, 1,20,12) = (/ &\n        & 0.10655e+04_rb,0.80608e+03_rb,0.60228e+03_rb,0.88568e+03_rb,0.11700e+04_rb /)\n      kbo(:, 2,20,12) = (/ &\n        & 0.10621e+04_rb,0.80582e+03_rb,0.60205e+03_rb,0.88462e+03_rb,0.11686e+04_rb /)\n      kbo(:, 3,20,12) = (/ &\n        & 0.10596e+04_rb,0.80439e+03_rb,0.60161e+03_rb,0.88282e+03_rb,0.11664e+04_rb /)\n      kbo(:, 4,20,12) = (/ &\n        & 0.10569e+04_rb,0.80052e+03_rb,0.60133e+03_rb,0.88084e+03_rb,0.11645e+04_rb /)\n      kbo(:, 5,20,12) = (/ &\n        & 0.10576e+04_rb,0.80029e+03_rb,0.59980e+03_rb,0.87969e+03_rb,0.11629e+04_rb /)\n      kbo(:, 1,21,12) = (/ &\n        & 0.10601e+04_rb,0.80047e+03_rb,0.60235e+03_rb,0.88539e+03_rb,0.11699e+04_rb /)\n      kbo(:, 2,21,12) = (/ &\n        & 0.10553e+04_rb,0.80126e+03_rb,0.60195e+03_rb,0.88437e+03_rb,0.11684e+04_rb /)\n      kbo(:, 3,21,12) = (/ &\n        & 0.10581e+04_rb,0.79916e+03_rb,0.60159e+03_rb,0.88257e+03_rb,0.11662e+04_rb /)\n      kbo(:, 4,21,12) = (/ &\n        & 0.10523e+04_rb,0.79871e+03_rb,0.60090e+03_rb,0.88096e+03_rb,0.11643e+04_rb /)\n      kbo(:, 5,21,12) = (/ &\n        & 0.10536e+04_rb,0.79852e+03_rb,0.59957e+03_rb,0.87950e+03_rb,0.11627e+04_rb /)\n      kbo(:, 1,22,12) = (/ &\n        & 0.10543e+04_rb,0.79995e+03_rb,0.60207e+03_rb,0.88538e+03_rb,0.11697e+04_rb /)\n      kbo(:, 2,22,12) = (/ &\n        & 0.10531e+04_rb,0.79794e+03_rb,0.60195e+03_rb,0.88401e+03_rb,0.11680e+04_rb /)\n      kbo(:, 3,22,12) = (/ &\n        & 0.10510e+04_rb,0.79590e+03_rb,0.60141e+03_rb,0.88205e+03_rb,0.11658e+04_rb /)\n      kbo(:, 4,22,12) = (/ &\n        & 0.10516e+04_rb,0.79518e+03_rb,0.60121e+03_rb,0.88065e+03_rb,0.11640e+04_rb /)\n      kbo(:, 5,22,12) = (/ &\n        & 0.10507e+04_rb,0.79514e+03_rb,0.59925e+03_rb,0.87922e+03_rb,0.11625e+04_rb /)\n      kbo(:, 1,23,12) = (/ &\n        & 0.10496e+04_rb,0.79686e+03_rb,0.60138e+03_rb,0.88518e+03_rb,0.11695e+04_rb /)\n      kbo(:, 2,23,12) = (/ &\n        & 0.10500e+04_rb,0.79504e+03_rb,0.60174e+03_rb,0.88363e+03_rb,0.11675e+04_rb /)\n      kbo(:, 3,23,12) = (/ &\n        & 0.10497e+04_rb,0.79559e+03_rb,0.60122e+03_rb,0.88187e+03_rb,0.11654e+04_rb /)\n      kbo(:, 4,23,12) = (/ &\n        & 0.10478e+04_rb,0.79456e+03_rb,0.60013e+03_rb,0.88034e+03_rb,0.11637e+04_rb /)\n      kbo(:, 5,23,12) = (/ &\n        & 0.10481e+04_rb,0.79269e+03_rb,0.59893e+03_rb,0.87894e+03_rb,0.11623e+04_rb /)\n      kbo(:, 1,24,12) = (/ &\n        & 0.10504e+04_rb,0.79322e+03_rb,0.60186e+03_rb,0.88494e+03_rb,0.11692e+04_rb /)\n      kbo(:, 2,24,12) = (/ &\n        & 0.10474e+04_rb,0.79292e+03_rb,0.60174e+03_rb,0.88325e+03_rb,0.11671e+04_rb /)\n      kbo(:, 3,24,12) = (/ &\n        & 0.10457e+04_rb,0.79315e+03_rb,0.60103e+03_rb,0.88153e+03_rb,0.11648e+04_rb /)\n      kbo(:, 4,24,12) = (/ &\n        & 0.10462e+04_rb,0.79329e+03_rb,0.59996e+03_rb,0.88003e+03_rb,0.11633e+04_rb /)\n      kbo(:, 5,24,12) = (/ &\n        & 0.10477e+04_rb,0.79348e+03_rb,0.59860e+03_rb,0.87867e+03_rb,0.11620e+04_rb /)\n      kbo(:, 1,25,12) = (/ &\n        & 0.10437e+04_rb,0.79315e+03_rb,0.60179e+03_rb,0.88497e+03_rb,0.11688e+04_rb /)\n      kbo(:, 2,25,12) = (/ &\n        & 0.10446e+04_rb,0.79177e+03_rb,0.60151e+03_rb,0.88285e+03_rb,0.11666e+04_rb /)\n      kbo(:, 3,25,12) = (/ &\n        & 0.10443e+04_rb,0.79105e+03_rb,0.60081e+03_rb,0.88119e+03_rb,0.11647e+04_rb /)\n      kbo(:, 4,25,12) = (/ &\n        & 0.10440e+04_rb,0.79204e+03_rb,0.59965e+03_rb,0.87971e+03_rb,0.11630e+04_rb /)\n      kbo(:, 5,25,12) = (/ &\n        & 0.10441e+04_rb,0.79141e+03_rb,0.59825e+03_rb,0.87840e+03_rb,0.11618e+04_rb /)\n      kbo(:, 1,26,12) = (/ &\n        & 0.10444e+04_rb,0.79040e+03_rb,0.60171e+03_rb,0.88422e+03_rb,0.11681e+04_rb /)\n      kbo(:, 2,26,12) = (/ &\n        & 0.10415e+04_rb,0.78987e+03_rb,0.60136e+03_rb,0.88243e+03_rb,0.11661e+04_rb /)\n      kbo(:, 3,26,12) = (/ &\n        & 0.10417e+04_rb,0.79014e+03_rb,0.60043e+03_rb,0.88082e+03_rb,0.11642e+04_rb /)\n      kbo(:, 4,26,12) = (/ &\n        & 0.10442e+04_rb,0.78985e+03_rb,0.59932e+03_rb,0.87937e+03_rb,0.11625e+04_rb /)\n      kbo(:, 5,26,12) = (/ &\n        & 0.10421e+04_rb,0.79004e+03_rb,0.59787e+03_rb,0.87814e+03_rb,0.11615e+04_rb /)\n      kbo(:, 1,27,12) = (/ &\n        & 0.10431e+04_rb,0.78868e+03_rb,0.60163e+03_rb,0.88378e+03_rb,0.11678e+04_rb /)\n      kbo(:, 2,27,12) = (/ &\n        & 0.10423e+04_rb,0.79138e+03_rb,0.60118e+03_rb,0.88201e+03_rb,0.11657e+04_rb /)\n      kbo(:, 3,27,12) = (/ &\n        & 0.10404e+04_rb,0.78916e+03_rb,0.60037e+03_rb,0.88046e+03_rb,0.11638e+04_rb /)\n      kbo(:, 4,27,12) = (/ &\n        & 0.10405e+04_rb,0.78893e+03_rb,0.59897e+03_rb,0.87905e+03_rb,0.11624e+04_rb /)\n      kbo(:, 5,27,12) = (/ &\n        & 0.10396e+04_rb,0.78917e+03_rb,0.59748e+03_rb,0.87790e+03_rb,0.11613e+04_rb /)\n      kbo(:, 1,28,12) = (/ &\n        & 0.10409e+04_rb,0.79152e+03_rb,0.60155e+03_rb,0.88334e+03_rb,0.11673e+04_rb /)\n      kbo(:, 2,28,12) = (/ &\n        & 0.10439e+04_rb,0.78963e+03_rb,0.60099e+03_rb,0.88127e+03_rb,0.11652e+04_rb /)\n      kbo(:, 3,28,12) = (/ &\n        & 0.10423e+04_rb,0.78823e+03_rb,0.60006e+03_rb,0.88010e+03_rb,0.11635e+04_rb /)\n      kbo(:, 4,28,12) = (/ &\n        & 0.10442e+04_rb,0.78834e+03_rb,0.59861e+03_rb,0.87873e+03_rb,0.11621e+04_rb /)\n      kbo(:, 5,28,12) = (/ &\n        & 0.10392e+04_rb,0.79042e+03_rb,0.59708e+03_rb,0.87768e+03_rb,0.11610e+04_rb /)\n      kbo(:, 1,29,12) = (/ &\n        & 0.10405e+04_rb,0.79019e+03_rb,0.60167e+03_rb,0.88289e+03_rb,0.11667e+04_rb /)\n      kbo(:, 2,29,12) = (/ &\n        & 0.10432e+04_rb,0.78865e+03_rb,0.60111e+03_rb,0.88122e+03_rb,0.11647e+04_rb /)\n      kbo(:, 3,29,12) = (/ &\n        & 0.10406e+04_rb,0.78834e+03_rb,0.59962e+03_rb,0.87974e+03_rb,0.11631e+04_rb /)\n      kbo(:, 4,29,12) = (/ &\n        & 0.10397e+04_rb,0.78909e+03_rb,0.59824e+03_rb,0.87826e+03_rb,0.11618e+04_rb /)\n      kbo(:, 5,29,12) = (/ &\n        & 0.10387e+04_rb,0.78925e+03_rb,0.59665e+03_rb,0.87746e+03_rb,0.11608e+04_rb /)\n      kbo(:, 1,30,12) = (/ &\n        & 0.10411e+04_rb,0.78840e+03_rb,0.60130e+03_rb,0.88244e+03_rb,0.11662e+04_rb /)\n      kbo(:, 2,30,12) = (/ &\n        & 0.10395e+04_rb,0.79020e+03_rb,0.60051e+03_rb,0.88083e+03_rb,0.11643e+04_rb /)\n      kbo(:, 3,30,12) = (/ &\n        & 0.10384e+04_rb,0.78543e+03_rb,0.59928e+03_rb,0.87938e+03_rb,0.11627e+04_rb /)\n      kbo(:, 4,30,12) = (/ &\n        & 0.10394e+04_rb,0.78756e+03_rb,0.59785e+03_rb,0.87814e+03_rb,0.11615e+04_rb /)\n      kbo(:, 5,30,12) = (/ &\n        & 0.10383e+04_rb,0.78820e+03_rb,0.59620e+03_rb,0.87743e+03_rb,0.11605e+04_rb /)\n      kbo(:, 1,31,12) = (/ &\n        & 0.10385e+04_rb,0.78703e+03_rb,0.60113e+03_rb,0.88199e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,31,12) = (/ &\n        & 0.10401e+04_rb,0.79050e+03_rb,0.60021e+03_rb,0.88045e+03_rb,0.11639e+04_rb /)\n      kbo(:, 3,31,12) = (/ &\n        & 0.10412e+04_rb,0.78681e+03_rb,0.59892e+03_rb,0.87903e+03_rb,0.11624e+04_rb /)\n      kbo(:, 4,31,12) = (/ &\n        & 0.10385e+04_rb,0.78582e+03_rb,0.59732e+03_rb,0.87772e+03_rb,0.11613e+04_rb /)\n      kbo(:, 5,31,12) = (/ &\n        & 0.10372e+04_rb,0.78947e+03_rb,0.59573e+03_rb,0.87705e+03_rb,0.11602e+04_rb /)\n      kbo(:, 1,32,12) = (/ &\n        & 0.10378e+04_rb,0.78710e+03_rb,0.60105e+03_rb,0.88140e+03_rb,0.11652e+04_rb /)\n      kbo(:, 2,32,12) = (/ &\n        & 0.10375e+04_rb,0.78506e+03_rb,0.59989e+03_rb,0.88006e+03_rb,0.11634e+04_rb /)\n      kbo(:, 3,32,12) = (/ &\n        & 0.10409e+04_rb,0.78648e+03_rb,0.59855e+03_rb,0.87869e+03_rb,0.11621e+04_rb /)\n      kbo(:, 4,32,12) = (/ &\n        & 0.10389e+04_rb,0.78640e+03_rb,0.59701e+03_rb,0.87765e+03_rb,0.11610e+04_rb /)\n      kbo(:, 5,32,12) = (/ &\n        & 0.10378e+04_rb,0.78589e+03_rb,0.59527e+03_rb,0.87675e+03_rb,0.11598e+04_rb /)\n      kbo(:, 1,33,12) = (/ &\n        & 0.10380e+04_rb,0.78620e+03_rb,0.60093e+03_rb,0.88116e+03_rb,0.11647e+04_rb /)\n      kbo(:, 2,33,12) = (/ &\n        & 0.10383e+04_rb,0.78582e+03_rb,0.59966e+03_rb,0.87968e+03_rb,0.11631e+04_rb /)\n      kbo(:, 3,33,12) = (/ &\n        & 0.10388e+04_rb,0.78740e+03_rb,0.59816e+03_rb,0.87838e+03_rb,0.11618e+04_rb /)\n      kbo(:, 4,33,12) = (/ &\n        & 0.10367e+04_rb,0.78734e+03_rb,0.59657e+03_rb,0.87743e+03_rb,0.11608e+04_rb /)\n      kbo(:, 5,33,12) = (/ &\n        & 0.10382e+04_rb,0.78803e+03_rb,0.59484e+03_rb,0.87630e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,34,12) = (/ &\n        & 0.10390e+04_rb,0.78774e+03_rb,0.60058e+03_rb,0.88098e+03_rb,0.11643e+04_rb /)\n      kbo(:, 2,34,12) = (/ &\n        & 0.10374e+04_rb,0.78664e+03_rb,0.59936e+03_rb,0.87936e+03_rb,0.11627e+04_rb /)\n      kbo(:, 3,34,12) = (/ &\n        & 0.10352e+04_rb,0.78733e+03_rb,0.59781e+03_rb,0.87813e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,34,12) = (/ &\n        & 0.10386e+04_rb,0.78609e+03_rb,0.59617e+03_rb,0.87742e+03_rb,0.11605e+04_rb /)\n      kbo(:, 5,34,12) = (/ &\n        & 0.10400e+04_rb,0.78709e+03_rb,0.59476e+03_rb,0.87581e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,35,12) = (/ &\n        & 0.10374e+04_rb,0.78486e+03_rb,0.60032e+03_rb,0.88061e+03_rb,0.11641e+04_rb /)\n      kbo(:, 2,35,12) = (/ &\n        & 0.10385e+04_rb,0.78482e+03_rb,0.59906e+03_rb,0.87918e+03_rb,0.11626e+04_rb /)\n      kbo(:, 3,35,12) = (/ &\n        & 0.10371e+04_rb,0.78627e+03_rb,0.59760e+03_rb,0.87799e+03_rb,0.11614e+04_rb /)\n      kbo(:, 4,35,12) = (/ &\n        & 0.10378e+04_rb,0.78697e+03_rb,0.59593e+03_rb,0.87715e+03_rb,0.11604e+04_rb /)\n      kbo(:, 5,35,12) = (/ &\n        & 0.10370e+04_rb,0.78545e+03_rb,0.59500e+03_rb,0.87549e+03_rb,0.11592e+04_rb /)\n      kbo(:, 1,36,12) = (/ &\n        & 0.10362e+04_rb,0.78845e+03_rb,0.60029e+03_rb,0.88058e+03_rb,0.11640e+04_rb /)\n      kbo(:, 2,36,12) = (/ &\n        & 0.10379e+04_rb,0.78676e+03_rb,0.59903e+03_rb,0.87915e+03_rb,0.11625e+04_rb /)\n      kbo(:, 3,36,12) = (/ &\n        & 0.10369e+04_rb,0.78598e+03_rb,0.59768e+03_rb,0.87797e+03_rb,0.11614e+04_rb /)\n      kbo(:, 4,36,12) = (/ &\n        & 0.10369e+04_rb,0.78595e+03_rb,0.59566e+03_rb,0.87713e+03_rb,0.11604e+04_rb /)\n      kbo(:, 5,36,12) = (/ &\n        & 0.10368e+04_rb,0.78548e+03_rb,0.59464e+03_rb,0.87594e+03_rb,0.11600e+04_rb /)\n      kbo(:, 1,37,12) = (/ &\n        & 0.10374e+04_rb,0.78579e+03_rb,0.60055e+03_rb,0.88077e+03_rb,0.11642e+04_rb /)\n      kbo(:, 2,37,12) = (/ &\n        & 0.10362e+04_rb,0.78844e+03_rb,0.59921e+03_rb,0.87933e+03_rb,0.11627e+04_rb /)\n      kbo(:, 3,37,12) = (/ &\n        & 0.10360e+04_rb,0.78603e+03_rb,0.59777e+03_rb,0.87810e+03_rb,0.11615e+04_rb /)\n      kbo(:, 4,37,12) = (/ &\n        & 0.10367e+04_rb,0.78734e+03_rb,0.59623e+03_rb,0.87723e+03_rb,0.11605e+04_rb /)\n      kbo(:, 5,37,12) = (/ &\n        & 0.10361e+04_rb,0.78702e+03_rb,0.59474e+03_rb,0.87592e+03_rb,0.11587e+04_rb /)\n      kbo(:, 1,38,12) = (/ &\n        & 0.10367e+04_rb,0.78778e+03_rb,0.60058e+03_rb,0.88098e+03_rb,0.11645e+04_rb /)\n      kbo(:, 2,38,12) = (/ &\n        & 0.10387e+04_rb,0.78865e+03_rb,0.59939e+03_rb,0.87952e+03_rb,0.11629e+04_rb /)\n      kbo(:, 3,38,12) = (/ &\n        & 0.10363e+04_rb,0.78758e+03_rb,0.59820e+03_rb,0.87825e+03_rb,0.11617e+04_rb /)\n      kbo(:, 4,38,12) = (/ &\n        & 0.10372e+04_rb,0.78786e+03_rb,0.59636e+03_rb,0.87717e+03_rb,0.11609e+04_rb /)\n      kbo(:, 5,38,12) = (/ &\n        & 0.10362e+04_rb,0.78470e+03_rb,0.59485e+03_rb,0.87657e+03_rb,0.11589e+04_rb /)\n      kbo(:, 1,39,12) = (/ &\n        & 0.10374e+04_rb,0.78680e+03_rb,0.60094e+03_rb,0.88119e+03_rb,0.11647e+04_rb /)\n      kbo(:, 2,39,12) = (/ &\n        & 0.10352e+04_rb,0.78618e+03_rb,0.60014e+03_rb,0.87971e+03_rb,0.11631e+04_rb /)\n      kbo(:, 3,39,12) = (/ &\n        & 0.10401e+04_rb,0.78497e+03_rb,0.59818e+03_rb,0.87840e+03_rb,0.11618e+04_rb /)\n      kbo(:, 4,39,12) = (/ &\n        & 0.10369e+04_rb,0.78868e+03_rb,0.59660e+03_rb,0.87744e+03_rb,0.11608e+04_rb /)\n      kbo(:, 5,39,12) = (/ &\n        & 0.10353e+04_rb,0.78494e+03_rb,0.59497e+03_rb,0.87635e+03_rb,0.11593e+04_rb /)\n      kbo(:, 1,40,12) = (/ &\n        & 0.10385e+04_rb,0.78584e+03_rb,0.60091e+03_rb,0.88123e+03_rb,0.11652e+04_rb /)\n      kbo(:, 2,40,12) = (/ &\n        & 0.10387e+04_rb,0.78568e+03_rb,0.59987e+03_rb,0.88006e+03_rb,0.11635e+04_rb /)\n      kbo(:, 3,40,12) = (/ &\n        & 0.10371e+04_rb,0.78626e+03_rb,0.59853e+03_rb,0.87869e+03_rb,0.11621e+04_rb /)\n      kbo(:, 4,40,12) = (/ &\n        & 0.10386e+04_rb,0.78684e+03_rb,0.59700e+03_rb,0.87748e+03_rb,0.11610e+04_rb /)\n      kbo(:, 5,40,12) = (/ &\n        & 0.10362e+04_rb,0.78503e+03_rb,0.59526e+03_rb,0.87692e+03_rb,0.11598e+04_rb /)\n      kbo(:, 1,41,12) = (/ &\n        & 0.10384e+04_rb,0.78504e+03_rb,0.60109e+03_rb,0.88198e+03_rb,0.11657e+04_rb /)\n      kbo(:, 2,41,12) = (/ &\n        & 0.10360e+04_rb,0.78533e+03_rb,0.60017e+03_rb,0.88043e+03_rb,0.11639e+04_rb /)\n      kbo(:, 3,41,12) = (/ &\n        & 0.10374e+04_rb,0.78412e+03_rb,0.59889e+03_rb,0.87902e+03_rb,0.11624e+04_rb /)\n      kbo(:, 4,41,12) = (/ &\n        & 0.10350e+04_rb,0.78545e+03_rb,0.59741e+03_rb,0.87788e+03_rb,0.11613e+04_rb /)\n      kbo(:, 5,41,12) = (/ &\n        & 0.10385e+04_rb,0.78529e+03_rb,0.59570e+03_rb,0.87704e+03_rb,0.11607e+04_rb /)\n      kbo(:, 1,42,12) = (/ &\n        & 0.10370e+04_rb,0.78560e+03_rb,0.60125e+03_rb,0.88242e+03_rb,0.11662e+04_rb /)\n      kbo(:, 2,42,12) = (/ &\n        & 0.10383e+04_rb,0.78469e+03_rb,0.60057e+03_rb,0.88081e+03_rb,0.11643e+04_rb /)\n      kbo(:, 3,42,12) = (/ &\n        & 0.10368e+04_rb,0.78617e+03_rb,0.59924e+03_rb,0.87937e+03_rb,0.11627e+04_rb /)\n      kbo(:, 4,42,12) = (/ &\n        & 0.10362e+04_rb,0.78586e+03_rb,0.59780e+03_rb,0.87813e+03_rb,0.11615e+04_rb /)\n      kbo(:, 5,42,12) = (/ &\n        & 0.10350e+04_rb,0.78958e+03_rb,0.59616e+03_rb,0.87725e+03_rb,0.11605e+04_rb /)\n      kbo(:, 1,43,12) = (/ &\n        & 0.10375e+04_rb,0.78586e+03_rb,0.60140e+03_rb,0.88280e+03_rb,0.11669e+04_rb /)\n      kbo(:, 2,43,12) = (/ &\n        & 0.10344e+04_rb,0.78615e+03_rb,0.60088e+03_rb,0.88112e+03_rb,0.11651e+04_rb /)\n      kbo(:, 3,43,12) = (/ &\n        & 0.10344e+04_rb,0.78345e+03_rb,0.59953e+03_rb,0.87980e+03_rb,0.11632e+04_rb /)\n      kbo(:, 4,43,12) = (/ &\n        & 0.10347e+04_rb,0.78777e+03_rb,0.59827e+03_rb,0.87847e+03_rb,0.11619e+04_rb /)\n      kbo(:, 5,43,12) = (/ &\n        & 0.10355e+04_rb,0.78627e+03_rb,0.59681e+03_rb,0.87766e+03_rb,0.11609e+04_rb /)\n      kbo(:, 1,44,12) = (/ &\n        & 0.10355e+04_rb,0.78449e+03_rb,0.60162e+03_rb,0.88358e+03_rb,0.11676e+04_rb /)\n      kbo(:, 2,44,12) = (/ &\n        & 0.10359e+04_rb,0.78627e+03_rb,0.60103e+03_rb,0.88182e+03_rb,0.11655e+04_rb /)\n      kbo(:, 3,44,12) = (/ &\n        & 0.10377e+04_rb,0.78715e+03_rb,0.60005e+03_rb,0.88029e+03_rb,0.11637e+04_rb /)\n      kbo(:, 4,44,12) = (/ &\n        & 0.10378e+04_rb,0.78625e+03_rb,0.59875e+03_rb,0.87890e+03_rb,0.11623e+04_rb /)\n      kbo(:, 5,44,12) = (/ &\n        & 0.10374e+04_rb,0.78401e+03_rb,0.59725e+03_rb,0.87779e+03_rb,0.11612e+04_rb /)\n      kbo(:, 1,45,12) = (/ &\n        & 0.10390e+04_rb,0.78655e+03_rb,0.60158e+03_rb,0.88419e+03_rb,0.11684e+04_rb /)\n      kbo(:, 2,45,12) = (/ &\n        & 0.10396e+04_rb,0.78684e+03_rb,0.60124e+03_rb,0.88239e+03_rb,0.11662e+04_rb /)\n      kbo(:, 3,45,12) = (/ &\n        & 0.10355e+04_rb,0.78758e+03_rb,0.60044e+03_rb,0.88079e+03_rb,0.11643e+04_rb /)\n      kbo(:, 4,45,12) = (/ &\n        & 0.10368e+04_rb,0.78548e+03_rb,0.59922e+03_rb,0.87935e+03_rb,0.11627e+04_rb /)\n      kbo(:, 5,45,12) = (/ &\n        & 0.10360e+04_rb,0.78578e+03_rb,0.59778e+03_rb,0.87811e+03_rb,0.11615e+04_rb /)\n      kbo(:, 1,46,12) = (/ &\n        & 0.10390e+04_rb,0.78534e+03_rb,0.60165e+03_rb,0.88476e+03_rb,0.11691e+04_rb /)\n      kbo(:, 2,46,12) = (/ &\n        & 0.10368e+04_rb,0.78339e+03_rb,0.60141e+03_rb,0.88303e+03_rb,0.11669e+04_rb /)\n      kbo(:, 3,46,12) = (/ &\n        & 0.10364e+04_rb,0.78696e+03_rb,0.60079e+03_rb,0.88117e+03_rb,0.11649e+04_rb /)\n      kbo(:, 4,46,12) = (/ &\n        & 0.10407e+04_rb,0.78666e+03_rb,0.59968e+03_rb,0.87985e+03_rb,0.11632e+04_rb /)\n      kbo(:, 5,46,12) = (/ &\n        & 0.10344e+04_rb,0.78501e+03_rb,0.59832e+03_rb,0.87835e+03_rb,0.11619e+04_rb /)\n      kbo(:, 1,47,12) = (/ &\n        & 0.10372e+04_rb,0.78547e+03_rb,0.60140e+03_rb,0.88518e+03_rb,0.11696e+04_rb /)\n      kbo(:, 2,47,12) = (/ &\n        & 0.10368e+04_rb,0.78740e+03_rb,0.60142e+03_rb,0.88376e+03_rb,0.11678e+04_rb /)\n      kbo(:, 3,47,12) = (/ &\n        & 0.10360e+04_rb,0.78411e+03_rb,0.60109e+03_rb,0.88198e+03_rb,0.11657e+04_rb /)\n      kbo(:, 4,47,12) = (/ &\n        & 0.10358e+04_rb,0.78709e+03_rb,0.60017e+03_rb,0.88044e+03_rb,0.11639e+04_rb /)\n      kbo(:, 5,47,12) = (/ &\n        & 0.10354e+04_rb,0.78664e+03_rb,0.59889e+03_rb,0.87902e+03_rb,0.11624e+04_rb /)\n      kbo(:, 1,48,12) = (/ &\n        & 0.10362e+04_rb,0.78680e+03_rb,0.60195e+03_rb,0.88548e+03_rb,0.11701e+04_rb /)\n      kbo(:, 2,48,12) = (/ &\n        & 0.10362e+04_rb,0.78545e+03_rb,0.60161e+03_rb,0.88447e+03_rb,0.11687e+04_rb /)\n      kbo(:, 3,48,12) = (/ &\n        & 0.10378e+04_rb,0.78604e+03_rb,0.60144e+03_rb,0.88268e+03_rb,0.11665e+04_rb /)\n      kbo(:, 4,48,12) = (/ &\n        & 0.10382e+04_rb,0.78544e+03_rb,0.60061e+03_rb,0.88104e+03_rb,0.11646e+04_rb /)\n      kbo(:, 5,48,12) = (/ &\n        & 0.10364e+04_rb,0.78424e+03_rb,0.59943e+03_rb,0.87957e+03_rb,0.11630e+04_rb /)\n      kbo(:, 1,49,12) = (/ &\n        & 0.10370e+04_rb,0.78693e+03_rb,0.60225e+03_rb,0.88600e+03_rb,0.11705e+04_rb /)\n      kbo(:, 2,49,12) = (/ &\n        & 0.10356e+04_rb,0.78469e+03_rb,0.60169e+03_rb,0.88499e+03_rb,0.11694e+04_rb /)\n      kbo(:, 3,49,12) = (/ &\n        & 0.10350e+04_rb,0.78588e+03_rb,0.60148e+03_rb,0.88340e+03_rb,0.11674e+04_rb /)\n      kbo(:, 4,49,12) = (/ &\n        & 0.10352e+04_rb,0.78677e+03_rb,0.60095e+03_rb,0.88166e+03_rb,0.11653e+04_rb /)\n      kbo(:, 5,49,12) = (/ &\n        & 0.10356e+04_rb,0.78647e+03_rb,0.59993e+03_rb,0.88015e+03_rb,0.11636e+04_rb /)\n      kbo(:, 1,50,12) = (/ &\n        & 0.10356e+04_rb,0.78558e+03_rb,0.60226e+03_rb,0.88620e+03_rb,0.11712e+04_rb /)\n      kbo(:, 2,50,12) = (/ &\n        & 0.10346e+04_rb,0.78796e+03_rb,0.60171e+03_rb,0.88533e+03_rb,0.11698e+04_rb /)\n      kbo(:, 3,50,12) = (/ &\n        & 0.10366e+04_rb,0.78751e+03_rb,0.60168e+03_rb,0.88408e+03_rb,0.11667e+04_rb /)\n      kbo(:, 4,50,12) = (/ &\n        & 0.10366e+04_rb,0.78646e+03_rb,0.60132e+03_rb,0.88229e+03_rb,0.11661e+04_rb /)\n      kbo(:, 5,50,12) = (/ &\n        & 0.10393e+04_rb,0.78616e+03_rb,0.60083e+03_rb,0.88070e+03_rb,0.11642e+04_rb /)\n      kbo(:, 1,51,12) = (/ &\n        & 0.10356e+04_rb,0.78468e+03_rb,0.60241e+03_rb,0.88644e+03_rb,0.11719e+04_rb /)\n      kbo(:, 2,51,12) = (/ &\n        & 0.10368e+04_rb,0.78423e+03_rb,0.60203e+03_rb,0.88559e+03_rb,0.11702e+04_rb /)\n      kbo(:, 3,51,12) = (/ &\n        & 0.10356e+04_rb,0.78586e+03_rb,0.60163e+03_rb,0.88469e+03_rb,0.11690e+04_rb /)\n      kbo(:, 4,51,12) = (/ &\n        & 0.10358e+04_rb,0.78601e+03_rb,0.60139e+03_rb,0.88294e+03_rb,0.11668e+04_rb /)\n      kbo(:, 5,51,12) = (/ &\n        & 0.10379e+04_rb,0.78646e+03_rb,0.60074e+03_rb,0.88126e+03_rb,0.11648e+04_rb /)\n      kbo(:, 1,52,12) = (/ &\n        & 0.10383e+04_rb,0.78512e+03_rb,0.60257e+03_rb,0.88672e+03_rb,0.11727e+04_rb /)\n      kbo(:, 2,52,12) = (/ &\n        & 0.10350e+04_rb,0.78646e+03_rb,0.60217e+03_rb,0.88594e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,52,12) = (/ &\n        & 0.10358e+04_rb,0.78466e+03_rb,0.60160e+03_rb,0.88510e+03_rb,0.11695e+04_rb /)\n      kbo(:, 4,52,12) = (/ &\n        & 0.10356e+04_rb,0.78511e+03_rb,0.60151e+03_rb,0.88359e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,52,12) = (/ &\n        & 0.10365e+04_rb,0.78541e+03_rb,0.60103e+03_rb,0.88167e+03_rb,0.11655e+04_rb /)\n      kbo(:, 1,53,12) = (/ &\n        & 0.10352e+04_rb,0.78496e+03_rb,0.60273e+03_rb,0.88710e+03_rb,0.11735e+04_rb /)\n      kbo(:, 2,53,12) = (/ &\n        & 0.10359e+04_rb,0.78600e+03_rb,0.60229e+03_rb,0.88628e+03_rb,0.11714e+04_rb /)\n      kbo(:, 3,53,12) = (/ &\n        & 0.10369e+04_rb,0.78526e+03_rb,0.60188e+03_rb,0.88540e+03_rb,0.11699e+04_rb /)\n      kbo(:, 4,53,12) = (/ &\n        & 0.10383e+04_rb,0.78660e+03_rb,0.60159e+03_rb,0.88425e+03_rb,0.11685e+04_rb /)\n      kbo(:, 5,53,12) = (/ &\n        & 0.10373e+04_rb,0.78555e+03_rb,0.60126e+03_rb,0.88246e+03_rb,0.11663e+04_rb /)\n      kbo(:, 1,54,12) = (/ &\n        & 0.10367e+04_rb,0.78451e+03_rb,0.60297e+03_rb,0.88752e+03_rb,0.11746e+04_rb /)\n      kbo(:, 2,54,12) = (/ &\n        & 0.10355e+04_rb,0.78600e+03_rb,0.60244e+03_rb,0.88648e+03_rb,0.11721e+04_rb /)\n      kbo(:, 3,54,12) = (/ &\n        & 0.10348e+04_rb,0.78301e+03_rb,0.60206e+03_rb,0.88564e+03_rb,0.11703e+04_rb /)\n      kbo(:, 4,54,12) = (/ &\n        & 0.10395e+04_rb,0.78629e+03_rb,0.60165e+03_rb,0.88477e+03_rb,0.11691e+04_rb /)\n      kbo(:, 5,54,12) = (/ &\n        & 0.10361e+04_rb,0.78420e+03_rb,0.60141e+03_rb,0.88305e+03_rb,0.11670e+04_rb /)\n      kbo(:, 1,55,12) = (/ &\n        & 0.10361e+04_rb,0.78555e+03_rb,0.60296e+03_rb,0.88822e+03_rb,0.11760e+04_rb /)\n      kbo(:, 2,55,12) = (/ &\n        & 0.10355e+04_rb,0.78495e+03_rb,0.60258e+03_rb,0.88674e+03_rb,0.11727e+04_rb /)\n      kbo(:, 3,55,12) = (/ &\n        & 0.10349e+04_rb,0.78525e+03_rb,0.60217e+03_rb,0.88596e+03_rb,0.11709e+04_rb /)\n      kbo(:, 4,55,12) = (/ &\n        & 0.10361e+04_rb,0.78465e+03_rb,0.60184e+03_rb,0.88512e+03_rb,0.11696e+04_rb /)\n      kbo(:, 5,55,12) = (/ &\n        & 0.10363e+04_rb,0.78599e+03_rb,0.60163e+03_rb,0.88363e+03_rb,0.11677e+04_rb /)\n      kbo(:, 1,56,12) = (/ &\n        & 0.10361e+04_rb,0.78599e+03_rb,0.60309e+03_rb,0.88918e+03_rb,0.11774e+04_rb /)\n      kbo(:, 2,56,12) = (/ &\n        & 0.10391e+04_rb,0.78674e+03_rb,0.60272e+03_rb,0.88707e+03_rb,0.11734e+04_rb /)\n      kbo(:, 3,56,12) = (/ &\n        & 0.10363e+04_rb,0.78584e+03_rb,0.60228e+03_rb,0.88626e+03_rb,0.11716e+04_rb /)\n      kbo(:, 4,56,12) = (/ &\n        & 0.10369e+04_rb,0.78509e+03_rb,0.60186e+03_rb,0.88538e+03_rb,0.11695e+04_rb /)\n      kbo(:, 5,56,12) = (/ &\n        & 0.10363e+04_rb,0.78554e+03_rb,0.60158e+03_rb,0.88421e+03_rb,0.11682e+04_rb /)\n      kbo(:, 1,57,12) = (/ &\n        & 0.10381e+04_rb,0.78509e+03_rb,0.60327e+03_rb,0.89026e+03_rb,0.11789e+04_rb /)\n      kbo(:, 2,57,12) = (/ &\n        & 0.10344e+04_rb,0.78852e+03_rb,0.60284e+03_rb,0.88747e+03_rb,0.11744e+04_rb /)\n      kbo(:, 3,57,12) = (/ &\n        & 0.10369e+04_rb,0.78509e+03_rb,0.60242e+03_rb,0.88612e+03_rb,0.11720e+04_rb /)\n      kbo(:, 4,57,12) = (/ &\n        & 0.10393e+04_rb,0.78330e+03_rb,0.60216e+03_rb,0.88561e+03_rb,0.11703e+04_rb /)\n      kbo(:, 5,57,12) = (/ &\n        & 0.10365e+04_rb,0.78494e+03_rb,0.60164e+03_rb,0.88472e+03_rb,0.11688e+04_rb /)\n      kbo(:, 1,58,12) = (/ &\n        & 0.10353e+04_rb,0.78509e+03_rb,0.60357e+03_rb,0.89125e+03_rb,0.11802e+04_rb /)\n      kbo(:, 2,58,12) = (/ &\n        & 0.10371e+04_rb,0.78524e+03_rb,0.60283e+03_rb,0.88807e+03_rb,0.11757e+04_rb /)\n      kbo(:, 3,58,12) = (/ &\n        & 0.10365e+04_rb,0.78718e+03_rb,0.60278e+03_rb,0.88669e+03_rb,0.11726e+04_rb /)\n      kbo(:, 4,58,12) = (/ &\n        & 0.10349e+04_rb,0.78673e+03_rb,0.60216e+03_rb,0.88590e+03_rb,0.11708e+04_rb /)\n      kbo(:, 5,58,12) = (/ &\n        & 0.10365e+04_rb,0.78389e+03_rb,0.60170e+03_rb,0.88506e+03_rb,0.11695e+04_rb /)\n      kbo(:, 1,59,12) = (/ &\n        & 0.10365e+04_rb,0.78390e+03_rb,0.60373e+03_rb,0.89165e+03_rb,0.11808e+04_rb /)\n      kbo(:, 2,59,12) = (/ &\n        & 0.10369e+04_rb,0.78479e+03_rb,0.60298e+03_rb,0.88840e+03_rb,0.11763e+04_rb /)\n      kbo(:, 3,59,12) = (/ &\n        & 0.10357e+04_rb,0.78703e+03_rb,0.60261e+03_rb,0.88680e+03_rb,0.11713e+04_rb /)\n      kbo(:, 4,59,12) = (/ &\n        & 0.10363e+04_rb,0.78509e+03_rb,0.60219e+03_rb,0.88602e+03_rb,0.11708e+04_rb /)\n      kbo(:, 5,59,12) = (/ &\n        & 0.10365e+04_rb,0.78479e+03_rb,0.60174e+03_rb,0.88517e+03_rb,0.11696e+04_rb /)\n      kbo(:, 1,13,13) = (/ &\n        & 0.11661e+04_rb,0.87073e+03_rb,0.60556e+03_rb,0.88929e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,13,13) = (/ &\n        & 0.11527e+04_rb,0.87014e+03_rb,0.60489e+03_rb,0.88914e+03_rb,0.11754e+04_rb /)\n      kbo(:, 3,13,13) = (/ &\n        & 0.11423e+04_rb,0.85968e+03_rb,0.60419e+03_rb,0.88867e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,13,13) = (/ &\n        & 0.11371e+04_rb,0.85890e+03_rb,0.60344e+03_rb,0.88820e+03_rb,0.11742e+04_rb /)\n      kbo(:, 5,13,13) = (/ &\n        & 0.11390e+04_rb,0.85008e+03_rb,0.60234e+03_rb,0.88705e+03_rb,0.11727e+04_rb /)\n      kbo(:, 1,14,13) = (/ &\n        & 0.11362e+04_rb,0.85805e+03_rb,0.60511e+03_rb,0.88957e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,14,13) = (/ &\n        & 0.11276e+04_rb,0.85398e+03_rb,0.60448e+03_rb,0.88893e+03_rb,0.11753e+04_rb /)\n      kbo(:, 3,14,13) = (/ &\n        & 0.11208e+04_rb,0.84888e+03_rb,0.60397e+03_rb,0.88854e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,14,13) = (/ &\n        & 0.11194e+04_rb,0.85006e+03_rb,0.60305e+03_rb,0.88823e+03_rb,0.11740e+04_rb /)\n      kbo(:, 5,14,13) = (/ &\n        & 0.11083e+04_rb,0.84212e+03_rb,0.60191e+03_rb,0.88682e+03_rb,0.11725e+04_rb /)\n      kbo(:, 1,15,13) = (/ &\n        & 0.11142e+04_rb,0.84766e+03_rb,0.60488e+03_rb,0.88941e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,15,13) = (/ &\n        & 0.11176e+04_rb,0.84112e+03_rb,0.60414e+03_rb,0.88873e+03_rb,0.11752e+04_rb /)\n      kbo(:, 3,15,13) = (/ &\n        & 0.11051e+04_rb,0.84191e+03_rb,0.60348e+03_rb,0.88843e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,15,13) = (/ &\n        & 0.11036e+04_rb,0.83753e+03_rb,0.60270e+03_rb,0.88781e+03_rb,0.11739e+04_rb /)\n      kbo(:, 5,15,13) = (/ &\n        & 0.10935e+04_rb,0.82883e+03_rb,0.60139e+03_rb,0.88658e+03_rb,0.11723e+04_rb /)\n      kbo(:, 1,16,13) = (/ &\n        & 0.11074e+04_rb,0.83456e+03_rb,0.60440e+03_rb,0.88927e+03_rb,0.11760e+04_rb /)\n      kbo(:, 2,16,13) = (/ &\n        & 0.11018e+04_rb,0.83298e+03_rb,0.60385e+03_rb,0.88856e+03_rb,0.11751e+04_rb /)\n      kbo(:, 3,16,13) = (/ &\n        & 0.10859e+04_rb,0.83101e+03_rb,0.60319e+03_rb,0.88832e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,16,13) = (/ &\n        & 0.10925e+04_rb,0.82836e+03_rb,0.60254e+03_rb,0.88762e+03_rb,0.11738e+04_rb /)\n      kbo(:, 5,16,13) = (/ &\n        & 0.10900e+04_rb,0.82283e+03_rb,0.60124e+03_rb,0.88636e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,17,13) = (/ &\n        & 0.10953e+04_rb,0.82596e+03_rb,0.60413e+03_rb,0.88915e+03_rb,0.11759e+04_rb /)\n      kbo(:, 2,17,13) = (/ &\n        & 0.10864e+04_rb,0.82504e+03_rb,0.60360e+03_rb,0.88842e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,17,13) = (/ &\n        & 0.10812e+04_rb,0.81898e+03_rb,0.60295e+03_rb,0.88822e+03_rb,0.11746e+04_rb /)\n      kbo(:, 4,17,13) = (/ &\n        & 0.10806e+04_rb,0.81706e+03_rb,0.60242e+03_rb,0.88745e+03_rb,0.11736e+04_rb /)\n      kbo(:, 5,17,13) = (/ &\n        & 0.10764e+04_rb,0.81771e+03_rb,0.59943e+03_rb,0.88638e+03_rb,0.11722e+04_rb /)\n      kbo(:, 1,18,13) = (/ &\n        & 0.10787e+04_rb,0.82265e+03_rb,0.60390e+03_rb,0.88903e+03_rb,0.11759e+04_rb /)\n      kbo(:, 2,18,13) = (/ &\n        & 0.10743e+04_rb,0.81466e+03_rb,0.60339e+03_rb,0.88738e+03_rb,0.11749e+04_rb /)\n      kbo(:, 3,18,13) = (/ &\n        & 0.10792e+04_rb,0.81648e+03_rb,0.60273e+03_rb,0.88812e+03_rb,0.11749e+04_rb /)\n      kbo(:, 4,18,13) = (/ &\n        & 0.10724e+04_rb,0.81516e+03_rb,0.60185e+03_rb,0.88728e+03_rb,0.11735e+04_rb /)\n      kbo(:, 5,18,13) = (/ &\n        & 0.10737e+04_rb,0.81301e+03_rb,0.60092e+03_rb,0.88618e+03_rb,0.11717e+04_rb /)\n      kbo(:, 1,19,13) = (/ &\n        & 0.10778e+04_rb,0.81646e+03_rb,0.60388e+03_rb,0.88893e+03_rb,0.11758e+04_rb /)\n      kbo(:, 2,19,13) = (/ &\n        & 0.10709e+04_rb,0.81021e+03_rb,0.60321e+03_rb,0.88822e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,19,13) = (/ &\n        & 0.10651e+04_rb,0.80945e+03_rb,0.60254e+03_rb,0.88803e+03_rb,0.11745e+04_rb /)\n      kbo(:, 4,19,13) = (/ &\n        & 0.10677e+04_rb,0.80743e+03_rb,0.60147e+03_rb,0.88735e+03_rb,0.11733e+04_rb /)\n      kbo(:, 5,19,13) = (/ &\n        & 0.10575e+04_rb,0.80245e+03_rb,0.60072e+03_rb,0.88575e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,20,13) = (/ &\n        & 0.10622e+04_rb,0.81096e+03_rb,0.60356e+03_rb,0.88881e+03_rb,0.11757e+04_rb /)\n      kbo(:, 2,20,13) = (/ &\n        & 0.10607e+04_rb,0.80739e+03_rb,0.60305e+03_rb,0.88816e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,20,13) = (/ &\n        & 0.10623e+04_rb,0.80381e+03_rb,0.60252e+03_rb,0.88792e+03_rb,0.11744e+04_rb /)\n      kbo(:, 4,20,13) = (/ &\n        & 0.10570e+04_rb,0.80456e+03_rb,0.60093e+03_rb,0.88695e+03_rb,0.11731e+04_rb /)\n      kbo(:, 5,20,13) = (/ &\n        & 0.10628e+04_rb,0.80481e+03_rb,0.60051e+03_rb,0.88554e+03_rb,0.11713e+04_rb /)\n      kbo(:, 1,21,13) = (/ &\n        & 0.10564e+04_rb,0.80721e+03_rb,0.60326e+03_rb,0.88869e+03_rb,0.11756e+04_rb /)\n      kbo(:, 2,21,13) = (/ &\n        & 0.10630e+04_rb,0.79813e+03_rb,0.60290e+03_rb,0.88813e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,21,13) = (/ &\n        & 0.10553e+04_rb,0.80228e+03_rb,0.60219e+03_rb,0.88781e+03_rb,0.11743e+04_rb /)\n      kbo(:, 4,21,13) = (/ &\n        & 0.10544e+04_rb,0.79888e+03_rb,0.60136e+03_rb,0.88677e+03_rb,0.11729e+04_rb /)\n      kbo(:, 5,21,13) = (/ &\n        & 0.10596e+04_rb,0.81049e+03_rb,0.60032e+03_rb,0.88532e+03_rb,0.11710e+04_rb /)\n      kbo(:, 1,22,13) = (/ &\n        & 0.10550e+04_rb,0.80310e+03_rb,0.60326e+03_rb,0.88850e+03_rb,0.11754e+04_rb /)\n      kbo(:, 2,22,13) = (/ &\n        & 0.10516e+04_rb,0.80380e+03_rb,0.60256e+03_rb,0.88810e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,22,13) = (/ &\n        & 0.10562e+04_rb,0.80152e+03_rb,0.60229e+03_rb,0.88764e+03_rb,0.11741e+04_rb /)\n      kbo(:, 4,22,13) = (/ &\n        & 0.10509e+04_rb,0.80224e+03_rb,0.60002e+03_rb,0.88651e+03_rb,0.11726e+04_rb /)\n      kbo(:, 5,22,13) = (/ &\n        & 0.10563e+04_rb,0.79871e+03_rb,0.59990e+03_rb,0.88500e+03_rb,0.11706e+04_rb /)\n      kbo(:, 1,23,13) = (/ &\n        & 0.10567e+04_rb,0.79860e+03_rb,0.60326e+03_rb,0.88832e+03_rb,0.11752e+04_rb /)\n      kbo(:, 2,23,13) = (/ &\n        & 0.10532e+04_rb,0.79557e+03_rb,0.60254e+03_rb,0.88806e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,23,13) = (/ &\n        & 0.10534e+04_rb,0.79512e+03_rb,0.60237e+03_rb,0.88744e+03_rb,0.11739e+04_rb /)\n      kbo(:, 4,23,13) = (/ &\n        & 0.10472e+04_rb,0.79721e+03_rb,0.60072e+03_rb,0.88622e+03_rb,0.11723e+04_rb /)\n      kbo(:, 5,23,13) = (/ &\n        & 0.10509e+04_rb,0.79423e+03_rb,0.59964e+03_rb,0.88466e+03_rb,0.11702e+04_rb /)\n      kbo(:, 1,24,13) = (/ &\n        & 0.10549e+04_rb,0.79502e+03_rb,0.60296e+03_rb,0.88817e+03_rb,0.11750e+04_rb /)\n      kbo(:, 2,24,13) = (/ &\n        & 0.10498e+04_rb,0.80428e+03_rb,0.60221e+03_rb,0.88799e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,24,13) = (/ &\n        & 0.10553e+04_rb,0.79369e+03_rb,0.60149e+03_rb,0.88721e+03_rb,0.11736e+04_rb /)\n      kbo(:, 4,24,13) = (/ &\n        & 0.10517e+04_rb,0.79240e+03_rb,0.60048e+03_rb,0.88592e+03_rb,0.11719e+04_rb /)\n      kbo(:, 5,24,13) = (/ &\n        & 0.10493e+04_rb,0.79281e+03_rb,0.59936e+03_rb,0.88429e+03_rb,0.11697e+04_rb /)\n      kbo(:, 1,25,13) = (/ &\n        & 0.10472e+04_rb,0.79884e+03_rb,0.60281e+03_rb,0.88760e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,25,13) = (/ &\n        & 0.10433e+04_rb,0.79261e+03_rb,0.60217e+03_rb,0.88787e+03_rb,0.11745e+04_rb /)\n      kbo(:, 3,25,13) = (/ &\n        & 0.10495e+04_rb,0.79568e+03_rb,0.60138e+03_rb,0.88696e+03_rb,0.11733e+04_rb /)\n      kbo(:, 4,25,13) = (/ &\n        & 0.10412e+04_rb,0.79264e+03_rb,0.60023e+03_rb,0.88559e+03_rb,0.11715e+04_rb /)\n      kbo(:, 5,25,13) = (/ &\n        & 0.10432e+04_rb,0.79682e+03_rb,0.59908e+03_rb,0.88390e+03_rb,0.11692e+04_rb /)\n      kbo(:, 1,26,13) = (/ &\n        & 0.10426e+04_rb,0.79538e+03_rb,0.60266e+03_rb,0.88804e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,26,13) = (/ &\n        & 0.10459e+04_rb,0.79909e+03_rb,0.60196e+03_rb,0.88771e+03_rb,0.11743e+04_rb /)\n      kbo(:, 3,26,13) = (/ &\n        & 0.10455e+04_rb,0.79078e+03_rb,0.60113e+03_rb,0.88666e+03_rb,0.11729e+04_rb /)\n      kbo(:, 4,26,13) = (/ &\n        & 0.10380e+04_rb,0.79069e+03_rb,0.60011e+03_rb,0.88521e+03_rb,0.11710e+04_rb /)\n      kbo(:, 5,26,13) = (/ &\n        & 0.10428e+04_rb,0.79124e+03_rb,0.59892e+03_rb,0.88345e+03_rb,0.11686e+04_rb /)\n      kbo(:, 1,27,13) = (/ &\n        & 0.10409e+04_rb,0.79057e+03_rb,0.60249e+03_rb,0.88802e+03_rb,0.11747e+04_rb /)\n      kbo(:, 2,27,13) = (/ &\n        & 0.10432e+04_rb,0.78863e+03_rb,0.60172e+03_rb,0.88750e+03_rb,0.11740e+04_rb /)\n      kbo(:, 3,27,13) = (/ &\n        & 0.10404e+04_rb,0.79041e+03_rb,0.60057e+03_rb,0.88634e+03_rb,0.11728e+04_rb /)\n      kbo(:, 4,27,13) = (/ &\n        & 0.10425e+04_rb,0.78854e+03_rb,0.59967e+03_rb,0.88481e+03_rb,0.11704e+04_rb /)\n      kbo(:, 5,27,13) = (/ &\n        & 0.10492e+04_rb,0.78874e+03_rb,0.59843e+03_rb,0.88297e+03_rb,0.11680e+04_rb /)\n      kbo(:, 1,28,13) = (/ &\n        & 0.10434e+04_rb,0.79273e+03_rb,0.60231e+03_rb,0.88820e+03_rb,0.11747e+04_rb /)\n      kbo(:, 2,28,13) = (/ &\n        & 0.10472e+04_rb,0.78799e+03_rb,0.60162e+03_rb,0.88726e+03_rb,0.11737e+04_rb /)\n      kbo(:, 3,28,13) = (/ &\n        & 0.10366e+04_rb,0.79125e+03_rb,0.60032e+03_rb,0.88600e+03_rb,0.11720e+04_rb /)\n      kbo(:, 4,28,13) = (/ &\n        & 0.10345e+04_rb,0.78841e+03_rb,0.59938e+03_rb,0.88440e+03_rb,0.11699e+04_rb /)\n      kbo(:, 5,28,13) = (/ &\n        & 0.10534e+04_rb,0.78866e+03_rb,0.59808e+03_rb,0.88245e+03_rb,0.11673e+04_rb /)\n      kbo(:, 1,29,13) = (/ &\n        & 0.10524e+04_rb,0.78934e+03_rb,0.60181e+03_rb,0.88786e+03_rb,0.11745e+04_rb /)\n      kbo(:, 2,29,13) = (/ &\n        & 0.10481e+04_rb,0.78588e+03_rb,0.60321e+03_rb,0.88698e+03_rb,0.11734e+04_rb /)\n      kbo(:, 3,29,13) = (/ &\n        & 0.10466e+04_rb,0.79266e+03_rb,0.60021e+03_rb,0.88562e+03_rb,0.11715e+04_rb /)\n      kbo(:, 4,29,13) = (/ &\n        & 0.10466e+04_rb,0.79965e+03_rb,0.59906e+03_rb,0.88395e+03_rb,0.11693e+04_rb /)\n      kbo(:, 5,29,13) = (/ &\n        & 0.10459e+04_rb,0.78993e+03_rb,0.59799e+03_rb,0.88185e+03_rb,0.11668e+04_rb /)\n      kbo(:, 1,30,13) = (/ &\n        & 0.10360e+04_rb,0.78916e+03_rb,0.60191e+03_rb,0.88770e+03_rb,0.11743e+04_rb /)\n      kbo(:, 2,30,13) = (/ &\n        & 0.10409e+04_rb,0.78411e+03_rb,0.60093e+03_rb,0.88667e+03_rb,0.11729e+04_rb /)\n      kbo(:, 3,30,13) = (/ &\n        & 0.10391e+04_rb,0.79193e+03_rb,0.59993e+03_rb,0.88546e+03_rb,0.11710e+04_rb /)\n      kbo(:, 4,30,13) = (/ &\n        & 0.10409e+04_rb,0.78876e+03_rb,0.59874e+03_rb,0.88348e+03_rb,0.11687e+04_rb /)\n      kbo(:, 5,30,13) = (/ &\n        & 0.10396e+04_rb,0.78722e+03_rb,0.59722e+03_rb,0.88117e+03_rb,0.11665e+04_rb /)\n      kbo(:, 1,31,13) = (/ &\n        & 0.10394e+04_rb,0.79419e+03_rb,0.60167e+03_rb,0.88749e+03_rb,0.11740e+04_rb /)\n      kbo(:, 2,31,13) = (/ &\n        & 0.10363e+04_rb,0.79203e+03_rb,0.60068e+03_rb,0.88633e+03_rb,0.11725e+04_rb /)\n      kbo(:, 3,31,13) = (/ &\n        & 0.10437e+04_rb,0.78663e+03_rb,0.59963e+03_rb,0.88481e+03_rb,0.11705e+04_rb /)\n      kbo(:, 4,31,13) = (/ &\n        & 0.10406e+04_rb,0.79000e+03_rb,0.59839e+03_rb,0.88297e+03_rb,0.11680e+04_rb /)\n      kbo(:, 5,31,13) = (/ &\n        & 0.10413e+04_rb,0.79093e+03_rb,0.59674e+03_rb,0.88044e+03_rb,0.11650e+04_rb /)\n      kbo(:, 1,32,13) = (/ &\n        & 0.10440e+04_rb,0.79014e+03_rb,0.60327e+03_rb,0.88723e+03_rb,0.11737e+04_rb /)\n      kbo(:, 2,32,13) = (/ &\n        & 0.10391e+04_rb,0.79106e+03_rb,0.60042e+03_rb,0.88596e+03_rb,0.11720e+04_rb /)\n      kbo(:, 3,32,13) = (/ &\n        & 0.10467e+04_rb,0.78955e+03_rb,0.59932e+03_rb,0.88436e+03_rb,0.11699e+04_rb /)\n      kbo(:, 4,32,13) = (/ &\n        & 0.10407e+04_rb,0.79722e+03_rb,0.59818e+03_rb,0.88241e+03_rb,0.11673e+04_rb /)\n      kbo(:, 5,32,13) = (/ &\n        & 0.10382e+04_rb,0.78961e+03_rb,0.59626e+03_rb,0.87980e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,33,13) = (/ &\n        & 0.10522e+04_rb,0.78494e+03_rb,0.60081e+03_rb,0.88693e+03_rb,0.11733e+04_rb /)\n      kbo(:, 2,33,13) = (/ &\n        & 0.10373e+04_rb,0.79220e+03_rb,0.59999e+03_rb,0.88557e+03_rb,0.11715e+04_rb /)\n      kbo(:, 3,33,13) = (/ &\n        & 0.10359e+04_rb,0.78622e+03_rb,0.59900e+03_rb,0.88389e+03_rb,0.11695e+04_rb /)\n      kbo(:, 4,33,13) = (/ &\n        & 0.10377e+04_rb,0.78474e+03_rb,0.59760e+03_rb,0.88177e+03_rb,0.11667e+04_rb /)\n      kbo(:, 5,33,13) = (/ &\n        & 0.10406e+04_rb,0.78876e+03_rb,0.59580e+03_rb,0.87933e+03_rb,0.11633e+04_rb /)\n      kbo(:, 1,34,13) = (/ &\n        & 0.10360e+04_rb,0.79366e+03_rb,0.60074e+03_rb,0.88666e+03_rb,0.11729e+04_rb /)\n      kbo(:, 2,34,13) = (/ &\n        & 0.10445e+04_rb,0.78362e+03_rb,0.59974e+03_rb,0.88521e+03_rb,0.11710e+04_rb /)\n      kbo(:, 3,34,13) = (/ &\n        & 0.10445e+04_rb,0.78784e+03_rb,0.59871e+03_rb,0.88346e+03_rb,0.11687e+04_rb /)\n      kbo(:, 4,34,13) = (/ &\n        & 0.10420e+04_rb,0.78840e+03_rb,0.59718e+03_rb,0.88091e+03_rb,0.11665e+04_rb /)\n      kbo(:, 5,34,13) = (/ &\n        & 0.10384e+04_rb,0.79182e+03_rb,0.59540e+03_rb,0.87927e+03_rb,0.11620e+04_rb /)\n      kbo(:, 1,35,13) = (/ &\n        & 0.10422e+04_rb,0.79326e+03_rb,0.60077e+03_rb,0.88648e+03_rb,0.11727e+04_rb /)\n      kbo(:, 2,35,13) = (/ &\n        & 0.10360e+04_rb,0.79158e+03_rb,0.59975e+03_rb,0.88500e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,35,13) = (/ &\n        & 0.10370e+04_rb,0.78869e+03_rb,0.59854e+03_rb,0.88320e+03_rb,0.11683e+04_rb /)\n      kbo(:, 4,35,13) = (/ &\n        & 0.10364e+04_rb,0.79354e+03_rb,0.59694e+03_rb,0.88077e+03_rb,0.11651e+04_rb /)\n      kbo(:, 5,35,13) = (/ &\n        & 0.10369e+04_rb,0.78943e+03_rb,0.59473e+03_rb,0.87892e+03_rb,0.11616e+04_rb /)\n      kbo(:, 1,36,13) = (/ &\n        & 0.10401e+04_rb,0.78191e+03_rb,0.60075e+03_rb,0.88645e+03_rb,0.11727e+04_rb /)\n      kbo(:, 2,36,13) = (/ &\n        & 0.10371e+04_rb,0.78614e+03_rb,0.59972e+03_rb,0.88519e+03_rb,0.11707e+04_rb /)\n      kbo(:, 3,36,13) = (/ &\n        & 0.10392e+04_rb,0.78550e+03_rb,0.59835e+03_rb,0.88339e+03_rb,0.11683e+04_rb /)\n      kbo(:, 4,36,13) = (/ &\n        & 0.10378e+04_rb,0.78649e+03_rb,0.59690e+03_rb,0.88071e+03_rb,0.11650e+04_rb /)\n      kbo(:, 5,36,13) = (/ &\n        & 0.10389e+04_rb,0.79012e+03_rb,0.59516e+03_rb,0.87821e+03_rb,0.11604e+04_rb /)\n      kbo(:, 1,37,13) = (/ &\n        & 0.10397e+04_rb,0.78790e+03_rb,0.60071e+03_rb,0.88662e+03_rb,0.11729e+04_rb /)\n      kbo(:, 2,37,13) = (/ &\n        & 0.10413e+04_rb,0.78135e+03_rb,0.59986e+03_rb,0.88540e+03_rb,0.11710e+04_rb /)\n      kbo(:, 3,37,13) = (/ &\n        & 0.10434e+04_rb,0.78885e+03_rb,0.59867e+03_rb,0.88341e+03_rb,0.11686e+04_rb /)\n      kbo(:, 4,37,13) = (/ &\n        & 0.10382e+04_rb,0.79636e+03_rb,0.59698e+03_rb,0.88108e+03_rb,0.11655e+04_rb /)\n      kbo(:, 5,37,13) = (/ &\n        & 0.10369e+04_rb,0.78656e+03_rb,0.59536e+03_rb,0.87879e+03_rb,0.11626e+04_rb /)\n      kbo(:, 1,38,13) = (/ &\n        & 0.10433e+04_rb,0.78475e+03_rb,0.60099e+03_rb,0.88680e+03_rb,0.11731e+04_rb /)\n      kbo(:, 2,38,13) = (/ &\n        & 0.10422e+04_rb,0.78187e+03_rb,0.60001e+03_rb,0.88539e+03_rb,0.11713e+04_rb /)\n      kbo(:, 3,38,13) = (/ &\n        & 0.10376e+04_rb,0.78470e+03_rb,0.59854e+03_rb,0.88368e+03_rb,0.11690e+04_rb /)\n      kbo(:, 4,38,13) = (/ &\n        & 0.10379e+04_rb,0.78467e+03_rb,0.59739e+03_rb,0.88147e+03_rb,0.11660e+04_rb /)\n      kbo(:, 5,38,13) = (/ &\n        & 0.10346e+04_rb,0.79279e+03_rb,0.59559e+03_rb,0.87849e+03_rb,0.11631e+04_rb /)\n      kbo(:, 1,39,13) = (/ &\n        & 0.10564e+04_rb,0.79016e+03_rb,0.60113e+03_rb,0.88696e+03_rb,0.11734e+04_rb /)\n      kbo(:, 2,39,13) = (/ &\n        & 0.10405e+04_rb,0.78139e+03_rb,0.59938e+03_rb,0.88561e+03_rb,0.11715e+04_rb /)\n      kbo(:, 3,39,13) = (/ &\n        & 0.10386e+04_rb,0.79256e+03_rb,0.59902e+03_rb,0.88393e+03_rb,0.11693e+04_rb /)\n      kbo(:, 4,39,13) = (/ &\n        & 0.10351e+04_rb,0.78501e+03_rb,0.59779e+03_rb,0.88184e+03_rb,0.11668e+04_rb /)\n      kbo(:, 5,39,13) = (/ &\n        & 0.10353e+04_rb,0.78561e+03_rb,0.59583e+03_rb,0.87937e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,40,13) = (/ &\n        & 0.10351e+04_rb,0.78501e+03_rb,0.60325e+03_rb,0.88723e+03_rb,0.11737e+04_rb /)\n      kbo(:, 2,40,13) = (/ &\n        & 0.10332e+04_rb,0.78519e+03_rb,0.60040e+03_rb,0.88596e+03_rb,0.11720e+04_rb /)\n      kbo(:, 3,40,13) = (/ &\n        & 0.10393e+04_rb,0.78843e+03_rb,0.59931e+03_rb,0.88436e+03_rb,0.11699e+04_rb /)\n      kbo(:, 4,40,13) = (/ &\n        & 0.10339e+04_rb,0.78821e+03_rb,0.59801e+03_rb,0.88242e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,40,13) = (/ &\n        & 0.10476e+04_rb,0.78616e+03_rb,0.59626e+03_rb,0.87958e+03_rb,0.11639e+04_rb /)\n      kbo(:, 1,41,13) = (/ &\n        & 0.10420e+04_rb,0.78658e+03_rb,0.60226e+03_rb,0.88748e+03_rb,0.11740e+04_rb /)\n      kbo(:, 2,41,13) = (/ &\n        & 0.10471e+04_rb,0.78433e+03_rb,0.60065e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 3,41,13) = (/ &\n        & 0.10385e+04_rb,0.78777e+03_rb,0.59960e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)\n      kbo(:, 4,41,13) = (/ &\n        & 0.10374e+04_rb,0.79305e+03_rb,0.59837e+03_rb,0.88319e+03_rb,0.11680e+04_rb /)\n      kbo(:, 5,41,13) = (/ &\n        & 0.10341e+04_rb,0.79121e+03_rb,0.59671e+03_rb,0.88067e+03_rb,0.11641e+04_rb /)\n      kbo(:, 1,42,13) = (/ &\n        & 0.10427e+04_rb,0.78654e+03_rb,0.60202e+03_rb,0.88768e+03_rb,0.11743e+04_rb /)\n      kbo(:, 2,42,13) = (/ &\n        & 0.10376e+04_rb,0.78774e+03_rb,0.60073e+03_rb,0.88666e+03_rb,0.11730e+04_rb /)\n      kbo(:, 3,42,13) = (/ &\n        & 0.10387e+04_rb,0.78631e+03_rb,0.59989e+03_rb,0.88522e+03_rb,0.11710e+04_rb /)\n      kbo(:, 4,42,13) = (/ &\n        & 0.10432e+04_rb,0.79240e+03_rb,0.59870e+03_rb,0.88347e+03_rb,0.11690e+04_rb /)\n      kbo(:, 5,42,13) = (/ &\n        & 0.10408e+04_rb,0.78283e+03_rb,0.59718e+03_rb,0.88116e+03_rb,0.11677e+04_rb /)\n      kbo(:, 1,43,13) = (/ &\n        & 0.10384e+04_rb,0.78732e+03_rb,0.60211e+03_rb,0.88787e+03_rb,0.11746e+04_rb /)\n      kbo(:, 2,43,13) = (/ &\n        & 0.10392e+04_rb,0.79483e+03_rb,0.60103e+03_rb,0.88703e+03_rb,0.11735e+04_rb /)\n      kbo(:, 3,43,13) = (/ &\n        & 0.10435e+04_rb,0.79279e+03_rb,0.60022e+03_rb,0.88570e+03_rb,0.11717e+04_rb /)\n      kbo(:, 4,43,13) = (/ &\n        & 0.10453e+04_rb,0.78261e+03_rb,0.59909e+03_rb,0.88405e+03_rb,0.11698e+04_rb /)\n      kbo(:, 5,43,13) = (/ &\n        & 0.10349e+04_rb,0.78239e+03_rb,0.59773e+03_rb,0.88200e+03_rb,0.11670e+04_rb /)\n      kbo(:, 1,44,13) = (/ &\n        & 0.10376e+04_rb,0.78973e+03_rb,0.60218e+03_rb,0.88797e+03_rb,0.11747e+04_rb /)\n      kbo(:, 2,44,13) = (/ &\n        & 0.10357e+04_rb,0.79073e+03_rb,0.60154e+03_rb,0.88738e+03_rb,0.11742e+04_rb /)\n      kbo(:, 3,44,13) = (/ &\n        & 0.10381e+04_rb,0.78584e+03_rb,0.60056e+03_rb,0.88619e+03_rb,0.11723e+04_rb /)\n      kbo(:, 4,44,13) = (/ &\n        & 0.10410e+04_rb,0.78726e+03_rb,0.59965e+03_rb,0.88464e+03_rb,0.11703e+04_rb /)\n      kbo(:, 5,44,13) = (/ &\n        & 0.10370e+04_rb,0.78461e+03_rb,0.59824e+03_rb,0.88299e+03_rb,0.11677e+04_rb /)\n      kbo(:, 1,45,13) = (/ &\n        & 0.10383e+04_rb,0.78177e+03_rb,0.60254e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,45,13) = (/ &\n        & 0.10337e+04_rb,0.78400e+03_rb,0.60200e+03_rb,0.88790e+03_rb,0.11743e+04_rb /)\n      kbo(:, 3,45,13) = (/ &\n        & 0.10407e+04_rb,0.78928e+03_rb,0.60087e+03_rb,0.88664e+03_rb,0.11732e+04_rb /)\n      kbo(:, 4,45,13) = (/ &\n        & 0.10410e+04_rb,0.79578e+03_rb,0.59987e+03_rb,0.88519e+03_rb,0.11713e+04_rb /)\n      kbo(:, 5,45,13) = (/ &\n        & 0.10369e+04_rb,0.78337e+03_rb,0.59884e+03_rb,0.88344e+03_rb,0.11687e+04_rb /)\n      kbo(:, 1,46,13) = (/ &\n        & 0.10415e+04_rb,0.79090e+03_rb,0.60272e+03_rb,0.88805e+03_rb,0.11749e+04_rb /)\n      kbo(:, 2,46,13) = (/ &\n        & 0.10332e+04_rb,0.79374e+03_rb,0.60213e+03_rb,0.88788e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,46,13) = (/ &\n        & 0.10495e+04_rb,0.78743e+03_rb,0.60122e+03_rb,0.88707e+03_rb,0.11738e+04_rb /)\n      kbo(:, 4,46,13) = (/ &\n        & 0.10359e+04_rb,0.78275e+03_rb,0.60025e+03_rb,0.88575e+03_rb,0.11717e+04_rb /)\n      kbo(:, 5,46,13) = (/ &\n        & 0.10407e+04_rb,0.79210e+03_rb,0.59913e+03_rb,0.88411e+03_rb,0.11695e+04_rb /)\n      kbo(:, 1,47,13) = (/ &\n        & 0.10396e+04_rb,0.78478e+03_rb,0.60291e+03_rb,0.88833e+03_rb,0.11753e+04_rb /)\n      kbo(:, 2,47,13) = (/ &\n        & 0.10391e+04_rb,0.78254e+03_rb,0.60239e+03_rb,0.88798e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,47,13) = (/ &\n        & 0.10358e+04_rb,0.79087e+03_rb,0.60194e+03_rb,0.88748e+03_rb,0.11740e+04_rb /)\n      kbo(:, 4,47,13) = (/ &\n        & 0.10382e+04_rb,0.78212e+03_rb,0.60065e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 5,47,13) = (/ &\n        & 0.10417e+04_rb,0.78639e+03_rb,0.59976e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)\n      kbo(:, 1,48,13) = (/ &\n        & 0.10401e+04_rb,0.78456e+03_rb,0.60307e+03_rb,0.88865e+03_rb,0.11757e+04_rb /)\n      kbo(:, 2,48,13) = (/ &\n        & 0.10385e+04_rb,0.78639e+03_rb,0.60262e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 3,48,13) = (/ &\n        & 0.10377e+04_rb,0.78374e+03_rb,0.60183e+03_rb,0.88778e+03_rb,0.11745e+04_rb /)\n      kbo(:, 4,48,13) = (/ &\n        & 0.10347e+04_rb,0.78455e+03_rb,0.60102e+03_rb,0.88707e+03_rb,0.11732e+04_rb /)\n      kbo(:, 5,48,13) = (/ &\n        & 0.10420e+04_rb,0.79085e+03_rb,0.60005e+03_rb,0.88545e+03_rb,0.11713e+04_rb /)\n      kbo(:, 1,49,13) = (/ &\n        & 0.10372e+04_rb,0.78740e+03_rb,0.60317e+03_rb,0.88862e+03_rb,0.11760e+04_rb /)\n      kbo(:, 2,49,13) = (/ &\n        & 0.10417e+04_rb,0.78862e+03_rb,0.60282e+03_rb,0.88818e+03_rb,0.11751e+04_rb /)\n      kbo(:, 3,49,13) = (/ &\n        & 0.10345e+04_rb,0.78780e+03_rb,0.60227e+03_rb,0.88818e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,49,13) = (/ &\n        & 0.10406e+04_rb,0.78617e+03_rb,0.60221e+03_rb,0.88729e+03_rb,0.11738e+04_rb /)\n      kbo(:, 5,49,13) = (/ &\n        & 0.10382e+04_rb,0.79023e+03_rb,0.60061e+03_rb,0.88605e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,50,13) = (/ &\n        & 0.10347e+04_rb,0.79207e+03_rb,0.60367e+03_rb,0.88900e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,50,13) = (/ &\n        & 0.10350e+04_rb,0.78739e+03_rb,0.60298e+03_rb,0.88872e+03_rb,0.11755e+04_rb /)\n      kbo(:, 3,50,13) = (/ &\n        & 0.10353e+04_rb,0.78433e+03_rb,0.60234e+03_rb,0.88799e+03_rb,0.11744e+04_rb /)\n      kbo(:, 4,50,13) = (/ &\n        & 0.10489e+04_rb,0.79267e+03_rb,0.60164e+03_rb,0.88763e+03_rb,0.11743e+04_rb /)\n      kbo(:, 5,50,13) = (/ &\n        & 0.10406e+04_rb,0.78514e+03_rb,0.60019e+03_rb,0.88656e+03_rb,0.11728e+04_rb /)\n      kbo(:, 1,51,13) = (/ &\n        & 0.10345e+04_rb,0.78799e+03_rb,0.60398e+03_rb,0.88932e+03_rb,0.11765e+04_rb /)\n      kbo(:, 2,51,13) = (/ &\n        & 0.10401e+04_rb,0.78697e+03_rb,0.60314e+03_rb,0.88874e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,51,13) = (/ &\n        & 0.10366e+04_rb,0.78656e+03_rb,0.60285e+03_rb,0.88803e+03_rb,0.11749e+04_rb /)\n      kbo(:, 4,51,13) = (/ &\n        & 0.10374e+04_rb,0.78473e+03_rb,0.60240e+03_rb,0.88809e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,51,13) = (/ &\n        & 0.10390e+04_rb,0.78920e+03_rb,0.60116e+03_rb,0.88701e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,52,13) = (/ &\n        & 0.10369e+04_rb,0.78758e+03_rb,0.60425e+03_rb,0.88974e+03_rb,0.11770e+04_rb /)\n      kbo(:, 2,52,13) = (/ &\n        & 0.10369e+04_rb,0.78229e+03_rb,0.60357e+03_rb,0.88889e+03_rb,0.11760e+04_rb /)\n      kbo(:, 3,52,13) = (/ &\n        & 0.10371e+04_rb,0.78737e+03_rb,0.60287e+03_rb,0.88826e+03_rb,0.11752e+04_rb /)\n      kbo(:, 4,52,13) = (/ &\n        & 0.10414e+04_rb,0.78574e+03_rb,0.60234e+03_rb,0.88797e+03_rb,0.11747e+04_rb /)\n      kbo(:, 5,52,13) = (/ &\n        & 0.10377e+04_rb,0.78696e+03_rb,0.60170e+03_rb,0.88739e+03_rb,0.11739e+04_rb /)\n      kbo(:, 1,53,13) = (/ &\n        & 0.10446e+04_rb,0.78533e+03_rb,0.60451e+03_rb,0.89022e+03_rb,0.11778e+04_rb /)\n      kbo(:, 2,53,13) = (/ &\n        & 0.10366e+04_rb,0.78675e+03_rb,0.60391e+03_rb,0.88907e+03_rb,0.11762e+04_rb /)\n      kbo(:, 3,53,13) = (/ &\n        & 0.10339e+04_rb,0.78472e+03_rb,0.60302e+03_rb,0.88857e+03_rb,0.11756e+04_rb /)\n      kbo(:, 4,53,13) = (/ &\n        & 0.10347e+04_rb,0.78858e+03_rb,0.60271e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 5,53,13) = (/ &\n        & 0.10414e+04_rb,0.78370e+03_rb,0.60188e+03_rb,0.88770e+03_rb,0.11743e+04_rb /)\n      kbo(:, 1,54,13) = (/ &\n        & 0.10366e+04_rb,0.78980e+03_rb,0.60463e+03_rb,0.89072e+03_rb,0.11788e+04_rb /)\n      kbo(:, 2,54,13) = (/ &\n        & 0.10376e+04_rb,0.78289e+03_rb,0.60402e+03_rb,0.88939e+03_rb,0.11765e+04_rb /)\n      kbo(:, 3,54,13) = (/ &\n        & 0.10387e+04_rb,0.78695e+03_rb,0.60318e+03_rb,0.88877e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,54,13) = (/ &\n        & 0.10435e+04_rb,0.78370e+03_rb,0.60273e+03_rb,0.88806e+03_rb,0.11749e+04_rb /)\n      kbo(:, 5,54,13) = (/ &\n        & 0.10492e+04_rb,0.79000e+03_rb,0.60214e+03_rb,0.88789e+03_rb,0.11746e+04_rb /)\n      kbo(:, 1,55,13) = (/ &\n        & 0.10395e+04_rb,0.78654e+03_rb,0.60524e+03_rb,0.89136e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,55,13) = (/ &\n        & 0.10379e+04_rb,0.78553e+03_rb,0.60426e+03_rb,0.88977e+03_rb,0.11770e+04_rb /)\n      kbo(:, 3,55,13) = (/ &\n        & 0.10376e+04_rb,0.78959e+03_rb,0.60343e+03_rb,0.88890e+03_rb,0.11757e+04_rb /)\n      kbo(:, 4,55,13) = (/ &\n        & 0.10360e+04_rb,0.78634e+03_rb,0.60272e+03_rb,0.88828e+03_rb,0.11752e+04_rb /)\n      kbo(:, 5,55,13) = (/ &\n        & 0.10355e+04_rb,0.78796e+03_rb,0.60219e+03_rb,0.88821e+03_rb,0.11747e+04_rb /)\n      kbo(:, 1,56,13) = (/ &\n        & 0.10500e+04_rb,0.78471e+03_rb,0.60540e+03_rb,0.89210e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,56,13) = (/ &\n        & 0.10441e+04_rb,0.78735e+03_rb,0.60449e+03_rb,0.89019e+03_rb,0.11777e+04_rb /)\n      kbo(:, 3,56,13) = (/ &\n        & 0.10382e+04_rb,0.78755e+03_rb,0.60374e+03_rb,0.88905e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,56,13) = (/ &\n        & 0.10470e+04_rb,0.78715e+03_rb,0.60301e+03_rb,0.88855e+03_rb,0.11756e+04_rb /)\n      kbo(:, 5,56,13) = (/ &\n        & 0.10358e+04_rb,0.78674e+03_rb,0.60270e+03_rb,0.88799e+03_rb,0.11748e+04_rb /)\n      kbo(:, 1,57,13) = (/ &\n        & 0.10339e+04_rb,0.78715e+03_rb,0.60588e+03_rb,0.89295e+03_rb,0.11828e+04_rb /)\n      kbo(:, 2,57,13) = (/ &\n        & 0.10441e+04_rb,0.78267e+03_rb,0.60475e+03_rb,0.89065e+03_rb,0.11787e+04_rb /)\n      kbo(:, 3,57,13) = (/ &\n        & 0.10435e+04_rb,0.78938e+03_rb,0.60399e+03_rb,0.88934e+03_rb,0.11765e+04_rb /)\n      kbo(:, 4,57,13) = (/ &\n        & 0.10392e+04_rb,0.79203e+03_rb,0.60300e+03_rb,0.88875e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,57,13) = (/ &\n        & 0.10360e+04_rb,0.78491e+03_rb,0.60271e+03_rb,0.88827e+03_rb,0.11749e+04_rb /)\n      kbo(:, 1,58,13) = (/ &\n        & 0.10392e+04_rb,0.78430e+03_rb,0.60601e+03_rb,0.89398e+03_rb,0.11847e+04_rb /)\n      kbo(:, 2,58,13) = (/ &\n        & 0.10363e+04_rb,0.78694e+03_rb,0.60503e+03_rb,0.89124e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,58,13) = (/ &\n        & 0.10360e+04_rb,0.78084e+03_rb,0.60391e+03_rb,0.88970e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,58,13) = (/ &\n        & 0.10459e+04_rb,0.78267e+03_rb,0.60338e+03_rb,0.88888e+03_rb,0.11757e+04_rb /)\n      kbo(:, 5,58,13) = (/ &\n        & 0.10368e+04_rb,0.79101e+03_rb,0.60285e+03_rb,0.88823e+03_rb,0.11752e+04_rb /)\n      kbo(:, 1,59,13) = (/ &\n        & 0.10403e+04_rb,0.78613e+03_rb,0.60612e+03_rb,0.89444e+03_rb,0.11849e+04_rb /)\n      kbo(:, 2,59,13) = (/ &\n        & 0.10349e+04_rb,0.78531e+03_rb,0.60514e+03_rb,0.89150e+03_rb,0.11802e+04_rb /)\n      kbo(:, 3,59,13) = (/ &\n        & 0.10360e+04_rb,0.78470e+03_rb,0.60447e+03_rb,0.88985e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,59,13) = (/ &\n        & 0.10411e+04_rb,0.78531e+03_rb,0.60349e+03_rb,0.88892e+03_rb,0.11761e+04_rb /)\n      kbo(:, 5,59,13) = (/ &\n        & 0.10355e+04_rb,0.78795e+03_rb,0.60275e+03_rb,0.88833e+03_rb,0.11753e+04_rb /)\n      kbo(:, 1,13,14) = (/ &\n        & 0.12194e+04_rb,0.91192e+03_rb,0.60649e+03_rb,0.89289e+03_rb,0.11803e+04_rb /)\n      kbo(:, 2,13,14) = (/ &\n        & 0.11340e+04_rb,0.93388e+03_rb,0.60565e+03_rb,0.89163e+03_rb,0.11786e+04_rb /)\n      kbo(:, 3,13,14) = (/ &\n        & 0.11287e+04_rb,0.93154e+03_rb,0.60510e+03_rb,0.89077e+03_rb,0.11775e+04_rb /)\n      kbo(:, 4,13,14) = (/ &\n        & 0.11571e+04_rb,0.89198e+03_rb,0.60383e+03_rb,0.88977e+03_rb,0.11762e+04_rb /)\n      kbo(:, 5,13,14) = (/ &\n        & 0.11232e+04_rb,0.85932e+03_rb,0.60280e+03_rb,0.88865e+03_rb,0.11748e+04_rb /)\n      kbo(:, 1,14,14) = (/ &\n        & 0.11313e+04_rb,0.85574e+03_rb,0.60604e+03_rb,0.89259e+03_rb,0.11800e+04_rb /)\n      kbo(:, 2,14,14) = (/ &\n        & 0.11392e+04_rb,0.85278e+03_rb,0.60523e+03_rb,0.89143e+03_rb,0.11785e+04_rb /)\n      kbo(:, 3,14,14) = (/ &\n        & 0.11402e+04_rb,0.86846e+03_rb,0.60420e+03_rb,0.89055e+03_rb,0.11774e+04_rb /)\n      kbo(:, 4,14,14) = (/ &\n        & 0.11058e+04_rb,0.85128e+03_rb,0.60339e+03_rb,0.88920e+03_rb,0.11761e+04_rb /)\n      kbo(:, 5,14,14) = (/ &\n        & 0.11286e+04_rb,0.84325e+03_rb,0.60241e+03_rb,0.88842e+03_rb,0.11746e+04_rb /)\n      kbo(:, 1,15,14) = (/ &\n        & 0.11349e+04_rb,0.84417e+03_rb,0.60541e+03_rb,0.89231e+03_rb,0.11798e+04_rb /)\n      kbo(:, 2,15,14) = (/ &\n        & 0.11015e+04_rb,0.88045e+03_rb,0.60487e+03_rb,0.89125e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,15,14) = (/ &\n        & 0.11261e+04_rb,0.83776e+03_rb,0.60408e+03_rb,0.89034e+03_rb,0.11772e+04_rb /)\n      kbo(:, 4,15,14) = (/ &\n        & 0.10962e+04_rb,0.86597e+03_rb,0.60302e+03_rb,0.88937e+03_rb,0.11760e+04_rb /)\n      kbo(:, 5,15,14) = (/ &\n        & 0.10995e+04_rb,0.86095e+03_rb,0.60207e+03_rb,0.88855e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,16,14) = (/ &\n        & 0.11556e+04_rb,0.89943e+03_rb,0.60533e+03_rb,0.89241e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,16,14) = (/ &\n        & 0.10928e+04_rb,0.87845e+03_rb,0.60456e+03_rb,0.89108e+03_rb,0.11783e+04_rb /)\n      kbo(:, 3,16,14) = (/ &\n        & 0.11526e+04_rb,0.84568e+03_rb,0.60375e+03_rb,0.89014e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,16,14) = (/ &\n        & 0.11224e+04_rb,0.82958e+03_rb,0.60245e+03_rb,0.88919e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,16,14) = (/ &\n        & 0.11104e+04_rb,0.83492e+03_rb,0.60177e+03_rb,0.88796e+03_rb,0.11747e+04_rb /)\n      kbo(:, 1,17,14) = (/ &\n        & 0.11093e+04_rb,0.86391e+03_rb,0.60505e+03_rb,0.89183e+03_rb,0.11794e+04_rb /)\n      kbo(:, 2,17,14) = (/ &\n        & 0.10879e+04_rb,0.83992e+03_rb,0.60455e+03_rb,0.89093e+03_rb,0.11782e+04_rb /)\n      kbo(:, 3,17,14) = (/ &\n        & 0.11180e+04_rb,0.83675e+03_rb,0.60345e+03_rb,0.88997e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,17,14) = (/ &\n        & 0.11203e+04_rb,0.81299e+03_rb,0.60195e+03_rb,0.88902e+03_rb,0.11757e+04_rb /)\n      kbo(:, 5,17,14) = (/ &\n        & 0.10902e+04_rb,0.84755e+03_rb,0.60151e+03_rb,0.88739e+03_rb,0.11736e+04_rb /)\n      kbo(:, 1,18,14) = (/ &\n        & 0.10889e+04_rb,0.82171e+03_rb,0.60482e+03_rb,0.89199e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,18,14) = (/ &\n        & 0.10836e+04_rb,0.85518e+03_rb,0.60408e+03_rb,0.89079e+03_rb,0.11781e+04_rb /)\n      kbo(:, 3,18,14) = (/ &\n        & 0.10919e+04_rb,0.82437e+03_rb,0.60318e+03_rb,0.88981e+03_rb,0.11763e+04_rb /)\n      kbo(:, 4,18,14) = (/ &\n        & 0.11143e+04_rb,0.86811e+03_rb,0.60223e+03_rb,0.88886e+03_rb,0.11755e+04_rb /)\n      kbo(:, 5,18,14) = (/ &\n        & 0.10618e+04_rb,0.80694e+03_rb,0.60104e+03_rb,0.88718e+03_rb,0.11738e+04_rb /)\n      kbo(:, 1,19,14) = (/ &\n        & 0.10700e+04_rb,0.81179e+03_rb,0.60437e+03_rb,0.89145e+03_rb,0.11790e+04_rb /)\n      kbo(:, 2,19,14) = (/ &\n        & 0.11096e+04_rb,0.84185e+03_rb,0.60389e+03_rb,0.89066e+03_rb,0.11785e+04_rb /)\n      kbo(:, 3,19,14) = (/ &\n        & 0.10919e+04_rb,0.82575e+03_rb,0.60295e+03_rb,0.89004e+03_rb,0.11767e+04_rb /)\n      kbo(:, 4,19,14) = (/ &\n        & 0.10874e+04_rb,0.81974e+03_rb,0.60205e+03_rb,0.88835e+03_rb,0.11754e+04_rb /)\n      kbo(:, 5,19,14) = (/ &\n        & 0.11077e+04_rb,0.86723e+03_rb,0.60084e+03_rb,0.88734e+03_rb,0.11727e+04_rb /)\n      kbo(:, 1,20,14) = (/ &\n        & 0.10813e+04_rb,0.82037e+03_rb,0.60443e+03_rb,0.89128e+03_rb,0.11789e+04_rb /)\n      kbo(:, 2,20,14) = (/ &\n        & 0.10944e+04_rb,0.83718e+03_rb,0.60369e+03_rb,0.89052e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,20,14) = (/ &\n        & 0.10922e+04_rb,0.81527e+03_rb,0.60248e+03_rb,0.88953e+03_rb,0.11765e+04_rb /)\n      kbo(:, 4,20,14) = (/ &\n        & 0.10962e+04_rb,0.82815e+03_rb,0.60188e+03_rb,0.88854e+03_rb,0.11752e+04_rb /)\n      kbo(:, 5,20,14) = (/ &\n        & 0.10768e+04_rb,0.81150e+03_rb,0.60064e+03_rb,0.88711e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,21,14) = (/ &\n        & 0.10919e+04_rb,0.79941e+03_rb,0.60426e+03_rb,0.89114e+03_rb,0.11787e+04_rb /)\n      kbo(:, 2,21,14) = (/ &\n        & 0.10481e+04_rb,0.83111e+03_rb,0.60351e+03_rb,0.89037e+03_rb,0.11777e+04_rb /)\n      kbo(:, 3,21,14) = (/ &\n        & 0.10716e+04_rb,0.81475e+03_rb,0.60253e+03_rb,0.88975e+03_rb,0.11764e+04_rb /)\n      kbo(:, 4,21,14) = (/ &\n        & 0.11197e+04_rb,0.80344e+03_rb,0.60123e+03_rb,0.88837e+03_rb,0.11750e+04_rb /)\n      kbo(:, 5,21,14) = (/ &\n        & 0.10436e+04_rb,0.80977e+03_rb,0.60045e+03_rb,0.88688e+03_rb,0.11731e+04_rb /)\n      kbo(:, 1,22,14) = (/ &\n        & 0.11028e+04_rb,0.82019e+03_rb,0.60406e+03_rb,0.89099e+03_rb,0.11785e+04_rb /)\n      kbo(:, 2,22,14) = (/ &\n        & 0.10664e+04_rb,0.84127e+03_rb,0.60327e+03_rb,0.89089e+03_rb,0.11775e+04_rb /)\n      kbo(:, 3,22,14) = (/ &\n        & 0.10764e+04_rb,0.83101e+03_rb,0.60182e+03_rb,0.88920e+03_rb,0.11762e+04_rb /)\n      kbo(:, 4,22,14) = (/ &\n        & 0.10955e+04_rb,0.82928e+03_rb,0.60175e+03_rb,0.88811e+03_rb,0.11747e+04_rb /)\n      kbo(:, 5,22,14) = (/ &\n        & 0.10429e+04_rb,0.82150e+03_rb,0.60042e+03_rb,0.88653e+03_rb,0.11726e+04_rb /)\n      kbo(:, 1,23,14) = (/ &\n        & 0.10449e+04_rb,0.79677e+03_rb,0.60363e+03_rb,0.89084e+03_rb,0.11784e+04_rb /)\n      kbo(:, 2,23,14) = (/ &\n        & 0.10443e+04_rb,0.81477e+03_rb,0.60352e+03_rb,0.88994e+03_rb,0.11772e+04_rb /)\n      kbo(:, 3,23,14) = (/ &\n        & 0.10490e+04_rb,0.84026e+03_rb,0.60112e+03_rb,0.88900e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,23,14) = (/ &\n        & 0.10652e+04_rb,0.80737e+03_rb,0.60128e+03_rb,0.88783e+03_rb,0.11744e+04_rb /)\n      kbo(:, 5,23,14) = (/ &\n        & 0.10777e+04_rb,0.80975e+03_rb,0.60014e+03_rb,0.88615e+03_rb,0.11722e+04_rb /)\n      kbo(:, 1,24,14) = (/ &\n        & 0.10587e+04_rb,0.83370e+03_rb,0.60369e+03_rb,0.89067e+03_rb,0.11782e+04_rb /)\n      kbo(:, 2,24,14) = (/ &\n        & 0.10413e+04_rb,0.79049e+03_rb,0.60278e+03_rb,0.88972e+03_rb,0.11769e+04_rb /)\n      kbo(:, 3,24,14) = (/ &\n        & 0.10508e+04_rb,0.83928e+03_rb,0.60192e+03_rb,0.88879e+03_rb,0.11757e+04_rb /)\n      kbo(:, 4,24,14) = (/ &\n        & 0.10667e+04_rb,0.80304e+03_rb,0.60105e+03_rb,0.88752e+03_rb,0.11740e+04_rb /)\n      kbo(:, 5,24,14) = (/ &\n        & 0.10776e+04_rb,0.78685e+03_rb,0.59985e+03_rb,0.88574e+03_rb,0.11716e+04_rb /)\n      kbo(:, 1,25,14) = (/ &\n        & 0.10559e+04_rb,0.78648e+03_rb,0.60348e+03_rb,0.89048e+03_rb,0.11779e+04_rb /)\n      kbo(:, 2,25,14) = (/ &\n        & 0.10600e+04_rb,0.81980e+03_rb,0.60253e+03_rb,0.88951e+03_rb,0.11766e+04_rb /)\n      kbo(:, 3,25,14) = (/ &\n        & 0.10484e+04_rb,0.79331e+03_rb,0.60149e+03_rb,0.88854e+03_rb,0.11754e+04_rb /)\n      kbo(:, 4,25,14) = (/ &\n        & 0.11000e+04_rb,0.80548e+03_rb,0.60080e+03_rb,0.88717e+03_rb,0.11735e+04_rb /)\n      kbo(:, 5,25,14) = (/ &\n        & 0.11165e+04_rb,0.79968e+03_rb,0.59952e+03_rb,0.88528e+03_rb,0.11711e+04_rb /)\n      kbo(:, 1,26,14) = (/ &\n        & 0.10604e+04_rb,0.79570e+03_rb,0.60325e+03_rb,0.89026e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,26,14) = (/ &\n        & 0.10870e+04_rb,0.78311e+03_rb,0.60230e+03_rb,0.88929e+03_rb,0.11764e+04_rb /)\n      kbo(:, 3,26,14) = (/ &\n        & 0.10476e+04_rb,0.79338e+03_rb,0.60128e+03_rb,0.88826e+03_rb,0.11750e+04_rb /)\n      kbo(:, 4,26,14) = (/ &\n        & 0.10459e+04_rb,0.80175e+03_rb,0.60027e+03_rb,0.88677e+03_rb,0.11730e+04_rb /)\n      kbo(:, 5,26,14) = (/ &\n        & 0.10485e+04_rb,0.81112e+03_rb,0.59892e+03_rb,0.88476e+03_rb,0.11704e+04_rb /)\n      kbo(:, 1,27,14) = (/ &\n        & 0.10458e+04_rb,0.79457e+03_rb,0.60301e+03_rb,0.89001e+03_rb,0.11773e+04_rb /)\n      kbo(:, 2,27,14) = (/ &\n        & 0.10576e+04_rb,0.79170e+03_rb,0.60208e+03_rb,0.88906e+03_rb,0.11761e+04_rb /)\n      kbo(:, 3,27,14) = (/ &\n        & 0.10632e+04_rb,0.79464e+03_rb,0.60130e+03_rb,0.88794e+03_rb,0.11741e+04_rb /)\n      kbo(:, 4,27,14) = (/ &\n        & 0.10506e+04_rb,0.80916e+03_rb,0.60021e+03_rb,0.88633e+03_rb,0.11725e+04_rb /)\n      kbo(:, 5,27,14) = (/ &\n        & 0.10406e+04_rb,0.79035e+03_rb,0.59878e+03_rb,0.88422e+03_rb,0.11697e+04_rb /)\n      kbo(:, 1,28,14) = (/ &\n        & 0.10390e+04_rb,0.79142e+03_rb,0.60274e+03_rb,0.88940e+03_rb,0.11770e+04_rb /)\n      kbo(:, 2,28,14) = (/ &\n        & 0.10793e+04_rb,0.84664e+03_rb,0.60165e+03_rb,0.88883e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,28,14) = (/ &\n        & 0.10389e+04_rb,0.81244e+03_rb,0.60106e+03_rb,0.88760e+03_rb,0.11741e+04_rb /)\n      kbo(:, 4,28,14) = (/ &\n        & 0.10910e+04_rb,0.82250e+03_rb,0.59988e+03_rb,0.88586e+03_rb,0.11718e+04_rb /)\n      kbo(:, 5,28,14) = (/ &\n        & 0.10984e+04_rb,0.79766e+03_rb,0.59863e+03_rb,0.88510e+03_rb,0.11689e+04_rb /)\n      kbo(:, 1,29,14) = (/ &\n        & 0.10453e+04_rb,0.79421e+03_rb,0.60249e+03_rb,0.88988e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,29,14) = (/ &\n        & 0.10759e+04_rb,0.85231e+03_rb,0.59780e+03_rb,0.88856e+03_rb,0.11754e+04_rb /)\n      kbo(:, 3,29,14) = (/ &\n        & 0.10355e+04_rb,0.83260e+03_rb,0.60079e+03_rb,0.88721e+03_rb,0.11736e+04_rb /)\n      kbo(:, 4,29,14) = (/ &\n        & 0.10260e+04_rb,0.78313e+03_rb,0.59953e+03_rb,0.88535e+03_rb,0.11712e+04_rb /)\n      kbo(:, 5,29,14) = (/ &\n        & 0.10495e+04_rb,0.79101e+03_rb,0.59751e+03_rb,0.88309e+03_rb,0.11682e+04_rb /)\n      kbo(:, 1,30,14) = (/ &\n        & 0.10479e+04_rb,0.78753e+03_rb,0.60225e+03_rb,0.88928e+03_rb,0.11764e+04_rb /)\n      kbo(:, 2,30,14) = (/ &\n        & 0.10451e+04_rb,0.80563e+03_rb,0.60150e+03_rb,0.88827e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,30,14) = (/ &\n        & 0.10758e+04_rb,0.79525e+03_rb,0.60050e+03_rb,0.88643e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,30,14) = (/ &\n        & 0.10781e+04_rb,0.79929e+03_rb,0.59916e+03_rb,0.88480e+03_rb,0.11705e+04_rb /)\n      kbo(:, 5,30,14) = (/ &\n        & 0.10459e+04_rb,0.81358e+03_rb,0.59790e+03_rb,0.88220e+03_rb,0.11665e+04_rb /)\n      kbo(:, 1,31,14) = (/ &\n        & 0.10607e+04_rb,0.80146e+03_rb,0.60204e+03_rb,0.88905e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,31,14) = (/ &\n        & 0.10395e+04_rb,0.78822e+03_rb,0.60127e+03_rb,0.88793e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,31,14) = (/ &\n        & 0.10321e+04_rb,0.80923e+03_rb,0.60018e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 4,31,14) = (/ &\n        & 0.11042e+04_rb,0.80049e+03_rb,0.59875e+03_rb,0.88457e+03_rb,0.11697e+04_rb /)\n      kbo(:, 5,31,14) = (/ &\n        & 0.10581e+04_rb,0.80105e+03_rb,0.59750e+03_rb,0.88200e+03_rb,0.11672e+04_rb /)\n      kbo(:, 1,32,14) = (/ &\n        & 0.10889e+04_rb,0.84488e+03_rb,0.59867e+03_rb,0.88880e+03_rb,0.11757e+04_rb /)\n      kbo(:, 2,32,14) = (/ &\n        & 0.10428e+04_rb,0.79586e+03_rb,0.60101e+03_rb,0.88756e+03_rb,0.11741e+04_rb /)\n      kbo(:, 3,32,14) = (/ &\n        & 0.10671e+04_rb,0.82487e+03_rb,0.59984e+03_rb,0.88582e+03_rb,0.11718e+04_rb /)\n      kbo(:, 4,32,14) = (/ &\n        & 0.10426e+04_rb,0.83726e+03_rb,0.59809e+03_rb,0.88469e+03_rb,0.11694e+04_rb /)\n      kbo(:, 5,32,14) = (/ &\n        & 0.10522e+04_rb,0.80937e+03_rb,0.59684e+03_rb,0.88175e+03_rb,0.11659e+04_rb /)\n      kbo(:, 1,33,14) = (/ &\n        & 0.10391e+04_rb,0.79980e+03_rb,0.60166e+03_rb,0.88852e+03_rb,0.11754e+04_rb /)\n      kbo(:, 2,33,14) = (/ &\n        & 0.10719e+04_rb,0.78917e+03_rb,0.60073e+03_rb,0.88751e+03_rb,0.11736e+04_rb /)\n      kbo(:, 3,33,14) = (/ &\n        & 0.10389e+04_rb,0.82235e+03_rb,0.59947e+03_rb,0.88564e+03_rb,0.11706e+04_rb /)\n      kbo(:, 4,33,14) = (/ &\n        & 0.10819e+04_rb,0.81877e+03_rb,0.59794e+03_rb,0.88337e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,33,14) = (/ &\n        & 0.10266e+04_rb,0.78772e+03_rb,0.59642e+03_rb,0.88112e+03_rb,0.11651e+04_rb /)\n      kbo(:, 1,34,14) = (/ &\n        & 0.10675e+04_rb,0.78932e+03_rb,0.60147e+03_rb,0.88789e+03_rb,0.11750e+04_rb /)\n      kbo(:, 2,34,14) = (/ &\n        & 0.10375e+04_rb,0.79310e+03_rb,0.60047e+03_rb,0.88677e+03_rb,0.11731e+04_rb /)\n      kbo(:, 3,34,14) = (/ &\n        & 0.10378e+04_rb,0.82372e+03_rb,0.59913e+03_rb,0.88478e+03_rb,0.11704e+04_rb /)\n      kbo(:, 4,34,14) = (/ &\n        & 0.10677e+04_rb,0.78757e+03_rb,0.59836e+03_rb,0.88254e+03_rb,0.11660e+04_rb /)\n      kbo(:, 5,34,14) = (/ &\n        & 0.10419e+04_rb,0.77666e+03_rb,0.59604e+03_rb,0.87984e+03_rb,0.11644e+04_rb /)\n      kbo(:, 1,35,14) = (/ &\n        & 0.10613e+04_rb,0.80031e+03_rb,0.60136e+03_rb,0.88808e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,35,14) = (/ &\n        & 0.11118e+04_rb,0.80250e+03_rb,0.60031e+03_rb,0.88654e+03_rb,0.11732e+04_rb /)\n      kbo(:, 3,35,14) = (/ &\n        & 0.10759e+04_rb,0.83185e+03_rb,0.59892e+03_rb,0.88448e+03_rb,0.11701e+04_rb /)\n      kbo(:, 4,35,14) = (/ &\n        & 0.11049e+04_rb,0.77622e+03_rb,0.59743e+03_rb,0.88477e+03_rb,0.11680e+04_rb /)\n      kbo(:, 5,35,14) = (/ &\n        & 0.10459e+04_rb,0.78322e+03_rb,0.59581e+03_rb,0.87986e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,36,14) = (/ &\n        & 0.10396e+04_rb,0.79026e+03_rb,0.60134e+03_rb,0.88805e+03_rb,0.11748e+04_rb /)\n      kbo(:, 2,36,14) = (/ &\n        & 0.10471e+04_rb,0.80778e+03_rb,0.60028e+03_rb,0.88614e+03_rb,0.11727e+04_rb /)\n      kbo(:, 3,36,14) = (/ &\n        & 0.10450e+04_rb,0.79912e+03_rb,0.59889e+03_rb,0.88407e+03_rb,0.11700e+04_rb /)\n      kbo(:, 4,36,14) = (/ &\n        & 0.10626e+04_rb,0.80803e+03_rb,0.59740e+03_rb,0.88257e+03_rb,0.11756e+04_rb /)\n      kbo(:, 5,36,14) = (/ &\n        & 0.10609e+04_rb,0.81056e+03_rb,0.59577e+03_rb,0.87981e+03_rb,0.11634e+04_rb /)\n      kbo(:, 1,37,14) = (/ &\n        & 0.10479e+04_rb,0.79014e+03_rb,0.60145e+03_rb,0.88822e+03_rb,0.11750e+04_rb /)\n      kbo(:, 2,37,14) = (/ &\n        & 0.10744e+04_rb,0.81437e+03_rb,0.60044e+03_rb,0.88637e+03_rb,0.11730e+04_rb /)\n      kbo(:, 3,37,14) = (/ &\n        & 0.10335e+04_rb,0.79550e+03_rb,0.59909e+03_rb,0.88473e+03_rb,0.11704e+04_rb /)\n      kbo(:, 4,37,14) = (/ &\n        & 0.10410e+04_rb,0.77504e+03_rb,0.59808e+03_rb,0.88321e+03_rb,0.11674e+04_rb /)\n      kbo(:, 5,37,14) = (/ &\n        & 0.10557e+04_rb,0.79226e+03_rb,0.59599e+03_rb,0.88014e+03_rb,0.11643e+04_rb /)\n      kbo(:, 1,38,14) = (/ &\n        & 0.10418e+04_rb,0.80249e+03_rb,0.60156e+03_rb,0.88838e+03_rb,0.11752e+04_rb /)\n      kbo(:, 2,38,14) = (/ &\n        & 0.10220e+04_rb,0.82577e+03_rb,0.60060e+03_rb,0.88697e+03_rb,0.11733e+04_rb /)\n      kbo(:, 3,38,14) = (/ &\n        & 0.10502e+04_rb,0.80915e+03_rb,0.59929e+03_rb,0.88503e+03_rb,0.11708e+04_rb /)\n      kbo(:, 4,38,14) = (/ &\n        & 0.10497e+04_rb,0.81774e+03_rb,0.59826e+03_rb,0.88277e+03_rb,0.11673e+04_rb /)\n      kbo(:, 5,38,14) = (/ &\n        & 0.10771e+04_rb,0.81134e+03_rb,0.59623e+03_rb,0.88049e+03_rb,0.11648e+04_rb /)\n      kbo(:, 1,39,14) = (/ &\n        & 0.10165e+04_rb,0.77782e+03_rb,0.60118e+03_rb,0.88854e+03_rb,0.11754e+04_rb /)\n      kbo(:, 2,39,14) = (/ &\n        & 0.10531e+04_rb,0.80302e+03_rb,0.60075e+03_rb,0.88719e+03_rb,0.11736e+04_rb /)\n      kbo(:, 3,39,14) = (/ &\n        & 0.10758e+04_rb,0.78257e+03_rb,0.59949e+03_rb,0.88533e+03_rb,0.11712e+04_rb /)\n      kbo(:, 4,39,14) = (/ &\n        & 0.10568e+04_rb,0.79852e+03_rb,0.59772e+03_rb,0.88307e+03_rb,0.11677e+04_rb /)\n      kbo(:, 5,39,14) = (/ &\n        & 0.11120e+04_rb,0.79275e+03_rb,0.59645e+03_rb,0.88083e+03_rb,0.11652e+04_rb /)\n      kbo(:, 1,40,14) = (/ &\n        & 0.10416e+04_rb,0.79660e+03_rb,0.59890e+03_rb,0.88879e+03_rb,0.11758e+04_rb /)\n      kbo(:, 2,40,14) = (/ &\n        & 0.10391e+04_rb,0.79051e+03_rb,0.60100e+03_rb,0.88756e+03_rb,0.11741e+04_rb /)\n      kbo(:, 3,40,14) = (/ &\n        & 0.10420e+04_rb,0.78155e+03_rb,0.59983e+03_rb,0.88583e+03_rb,0.11718e+04_rb /)\n      kbo(:, 4,40,14) = (/ &\n        & 0.10496e+04_rb,0.79527e+03_rb,0.59833e+03_rb,0.88434e+03_rb,0.11689e+04_rb /)\n      kbo(:, 5,40,14) = (/ &\n        & 0.10264e+04_rb,0.78919e+03_rb,0.59684e+03_rb,0.88140e+03_rb,0.11660e+04_rb /)\n      kbo(:, 1,41,14) = (/ &\n        & 0.10689e+04_rb,0.80516e+03_rb,0.60103e+03_rb,0.88904e+03_rb,0.11761e+04_rb /)\n      kbo(:, 2,41,14) = (/ &\n        & 0.10416e+04_rb,0.82239e+03_rb,0.60124e+03_rb,0.88792e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,41,14) = (/ &\n        & 0.10563e+04_rb,0.81535e+03_rb,0.60016e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 4,41,14) = (/ &\n        & 0.10676e+04_rb,0.82044e+03_rb,0.59873e+03_rb,0.88421e+03_rb,0.11697e+04_rb /)\n      kbo(:, 5,41,14) = (/ &\n        & 0.10596e+04_rb,0.78372e+03_rb,0.59724e+03_rb,0.88164e+03_rb,0.11672e+04_rb /)\n      kbo(:, 1,42,14) = (/ &\n        & 0.10655e+04_rb,0.80320e+03_rb,0.60196e+03_rb,0.88927e+03_rb,0.11764e+04_rb /)\n      kbo(:, 2,42,14) = (/ &\n        & 0.10714e+04_rb,0.78435e+03_rb,0.60147e+03_rb,0.88825e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,42,14) = (/ &\n        & 0.10516e+04_rb,0.79392e+03_rb,0.60071e+03_rb,0.88678e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,42,14) = (/ &\n        & 0.10516e+04_rb,0.77763e+03_rb,0.59913e+03_rb,0.88479e+03_rb,0.11700e+04_rb /)\n      kbo(:, 5,42,14) = (/ &\n        & 0.10486e+04_rb,0.79390e+03_rb,0.59811e+03_rb,0.88255e+03_rb,0.11641e+04_rb /)\n      kbo(:, 1,43,14) = (/ &\n        & 0.10979e+04_rb,0.83796e+03_rb,0.60248e+03_rb,0.88955e+03_rb,0.11768e+04_rb /)\n      kbo(:, 2,43,14) = (/ &\n        & 0.11147e+04_rb,0.76548e+03_rb,0.60171e+03_rb,0.88861e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,43,14) = (/ &\n        & 0.10326e+04_rb,0.79357e+03_rb,0.60081e+03_rb,0.88729e+03_rb,0.11738e+04_rb /)\n      kbo(:, 4,43,14) = (/ &\n        & 0.10439e+04_rb,0.86155e+03_rb,0.59958e+03_rb,0.88546e+03_rb,0.11709e+04_rb /)\n      kbo(:, 5,43,14) = (/ &\n        & 0.10945e+04_rb,0.81749e+03_rb,0.59781e+03_rb,0.88321e+03_rb,0.11679e+04_rb /)\n      kbo(:, 1,44,14) = (/ &\n        & 0.10684e+04_rb,0.83027e+03_rb,0.60306e+03_rb,0.88988e+03_rb,0.11772e+04_rb /)\n      kbo(:, 2,44,14) = (/ &\n        & 0.10549e+04_rb,0.78589e+03_rb,0.60194e+03_rb,0.88895e+03_rb,0.11755e+04_rb /)\n      kbo(:, 3,44,14) = (/ &\n        & 0.10654e+04_rb,0.79705e+03_rb,0.60140e+03_rb,0.88779e+03_rb,0.11744e+04_rb /)\n      kbo(:, 4,44,14) = (/ &\n        & 0.10595e+04_rb,0.79130e+03_rb,0.59979e+03_rb,0.88614e+03_rb,0.11722e+04_rb /)\n      kbo(:, 5,44,14) = (/ &\n        & 0.10477e+04_rb,0.80597e+03_rb,0.59858e+03_rb,0.88363e+03_rb,0.11704e+04_rb /)\n      kbo(:, 1,45,14) = (/ &\n        & 0.10873e+04_rb,0.79417e+03_rb,0.60313e+03_rb,0.89023e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,45,14) = (/ &\n        & 0.10616e+04_rb,0.78299e+03_rb,0.60195e+03_rb,0.88889e+03_rb,0.11764e+04_rb /)\n      kbo(:, 3,45,14) = (/ &\n        & 0.10452e+04_rb,0.80979e+03_rb,0.60145e+03_rb,0.88823e+03_rb,0.11745e+04_rb /)\n      kbo(:, 4,45,14) = (/ &\n        & 0.10957e+04_rb,0.80372e+03_rb,0.60045e+03_rb,0.88675e+03_rb,0.11726e+04_rb /)\n      kbo(:, 5,45,14) = (/ &\n        & 0.10725e+04_rb,0.79223e+03_rb,0.59886e+03_rb,0.88476e+03_rb,0.11704e+04_rb /)\n      kbo(:, 1,46,14) = (/ &\n        & 0.10477e+04_rb,0.79958e+03_rb,0.60344e+03_rb,0.89054e+03_rb,0.11781e+04_rb /)\n      kbo(:, 2,46,14) = (/ &\n        & 0.10873e+04_rb,0.80021e+03_rb,0.60251e+03_rb,0.88958e+03_rb,0.11768e+04_rb /)\n      kbo(:, 3,46,14) = (/ &\n        & 0.10228e+04_rb,0.78903e+03_rb,0.60173e+03_rb,0.88864e+03_rb,0.11751e+04_rb /)\n      kbo(:, 4,46,14) = (/ &\n        & 0.10295e+04_rb,0.83052e+03_rb,0.60085e+03_rb,0.88734e+03_rb,0.11738e+04_rb /)\n      kbo(:, 5,46,14) = (/ &\n        & 0.10527e+04_rb,0.80434e+03_rb,0.59963e+03_rb,0.88553e+03_rb,0.11714e+04_rb /)\n      kbo(:, 1,47,14) = (/ &\n        & 0.10317e+04_rb,0.78934e+03_rb,0.60373e+03_rb,0.89119e+03_rb,0.11785e+04_rb /)\n      kbo(:, 2,47,14) = (/ &\n        & 0.10325e+04_rb,0.79125e+03_rb,0.60291e+03_rb,0.88999e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,47,14) = (/ &\n        & 0.10417e+04_rb,0.79891e+03_rb,0.60152e+03_rb,0.88904e+03_rb,0.11761e+04_rb /)\n      kbo(:, 4,47,14) = (/ &\n        & 0.10561e+04_rb,0.78901e+03_rb,0.60124e+03_rb,0.88793e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,47,14) = (/ &\n        & 0.10468e+04_rb,0.79347e+03_rb,0.59991e+03_rb,0.88632e+03_rb,0.11725e+04_rb /)\n      kbo(:, 1,48,14) = (/ &\n        & 0.10540e+04_rb,0.78901e+03_rb,0.60401e+03_rb,0.89113e+03_rb,0.11789e+04_rb /)\n      kbo(:, 2,48,14) = (/ &\n        & 0.10320e+04_rb,0.80975e+03_rb,0.60327e+03_rb,0.89037e+03_rb,0.11779e+04_rb /)\n      kbo(:, 3,48,14) = (/ &\n        & 0.10535e+04_rb,0.79283e+03_rb,0.60233e+03_rb,0.88940e+03_rb,0.11766e+04_rb /)\n      kbo(:, 4,48,14) = (/ &\n        & 0.10485e+04_rb,0.81102e+03_rb,0.60158e+03_rb,0.88807e+03_rb,0.11753e+04_rb /)\n      kbo(:, 5,48,14) = (/ &\n        & 0.10337e+04_rb,0.82793e+03_rb,0.60064e+03_rb,0.88703e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,49,14) = (/ &\n        & 0.10304e+04_rb,0.83177e+03_rb,0.60454e+03_rb,0.89164e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,49,14) = (/ &\n        & 0.10417e+04_rb,0.78580e+03_rb,0.60359e+03_rb,0.89069e+03_rb,0.11783e+04_rb /)\n      kbo(:, 3,49,14) = (/ &\n        & 0.10725e+04_rb,0.82186e+03_rb,0.60271e+03_rb,0.88942e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,49,14) = (/ &\n        & 0.10362e+04_rb,0.80207e+03_rb,0.60065e+03_rb,0.88885e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,49,14) = (/ &\n        & 0.10383e+04_rb,0.79856e+03_rb,0.60081e+03_rb,0.88765e+03_rb,0.11743e+04_rb /)\n      kbo(:, 1,50,14) = (/ &\n        & 0.10581e+04_rb,0.78356e+03_rb,0.60457e+03_rb,0.89226e+03_rb,0.11805e+04_rb /)\n      kbo(:, 2,50,14) = (/ &\n        & 0.10447e+04_rb,0.80207e+03_rb,0.60385e+03_rb,0.89058e+03_rb,0.11786e+04_rb /)\n      kbo(:, 3,50,14) = (/ &\n        & 0.10788e+04_rb,0.82154e+03_rb,0.60308e+03_rb,0.89017e+03_rb,0.11776e+04_rb /)\n      kbo(:, 4,50,14) = (/ &\n        & 0.10695e+04_rb,0.79696e+03_rb,0.60214e+03_rb,0.88920e+03_rb,0.11763e+04_rb /)\n      kbo(:, 5,50,14) = (/ &\n        & 0.10859e+04_rb,0.79983e+03_rb,0.60140e+03_rb,0.88816e+03_rb,0.11749e+04_rb /)\n      kbo(:, 1,51,14) = (/ &\n        & 0.10459e+04_rb,0.79632e+03_rb,0.60498e+03_rb,0.89284e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,51,14) = (/ &\n        & 0.10371e+04_rb,0.78419e+03_rb,0.60411e+03_rb,0.89166e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,51,14) = (/ &\n        & 0.10657e+04_rb,0.82185e+03_rb,0.60315e+03_rb,0.89049e+03_rb,0.11780e+04_rb /)\n      kbo(:, 4,51,14) = (/ &\n        & 0.10396e+04_rb,0.78418e+03_rb,0.60197e+03_rb,0.88917e+03_rb,0.11768e+04_rb /)\n      kbo(:, 5,51,14) = (/ &\n        & 0.10354e+04_rb,0.78290e+03_rb,0.60169e+03_rb,0.88859e+03_rb,0.11755e+04_rb /)\n      kbo(:, 1,52,14) = (/ &\n        & 0.10434e+04_rb,0.78546e+03_rb,0.60574e+03_rb,0.89370e+03_rb,0.11824e+04_rb /)\n      kbo(:, 2,52,14) = (/ &\n        & 0.10665e+04_rb,0.78610e+03_rb,0.60413e+03_rb,0.89180e+03_rb,0.11798e+04_rb /)\n      kbo(:, 3,52,14) = (/ &\n        & 0.10821e+04_rb,0.78641e+03_rb,0.60367e+03_rb,0.89113e+03_rb,0.11784e+04_rb /)\n      kbo(:, 4,52,14) = (/ &\n        & 0.10514e+04_rb,0.79279e+03_rb,0.60282e+03_rb,0.88989e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,52,14) = (/ &\n        & 0.10408e+04_rb,0.77939e+03_rb,0.60170e+03_rb,0.88895e+03_rb,0.11760e+04_rb /)\n      kbo(:, 1,53,14) = (/ &\n        & 0.10497e+04_rb,0.80875e+03_rb,0.60601e+03_rb,0.89382e+03_rb,0.11825e+04_rb /)\n      kbo(:, 2,53,14) = (/ &\n        & 0.10514e+04_rb,0.81226e+03_rb,0.60441e+03_rb,0.89243e+03_rb,0.11807e+04_rb /)\n      kbo(:, 3,53,14) = (/ &\n        & 0.11137e+04_rb,0.80237e+03_rb,0.60392e+03_rb,0.89101e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,53,14) = (/ &\n        & 0.10661e+04_rb,0.79885e+03_rb,0.60292e+03_rb,0.89026e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,53,14) = (/ &\n        & 0.10324e+04_rb,0.82343e+03_rb,0.60222e+03_rb,0.88929e+03_rb,0.11764e+04_rb /)\n      kbo(:, 1,54,14) = (/ &\n        & 0.10594e+04_rb,0.86492e+03_rb,0.60646e+03_rb,0.89428e+03_rb,0.11831e+04_rb /)\n      kbo(:, 2,54,14) = (/ &\n        & 0.10303e+04_rb,0.85949e+03_rb,0.60506e+03_rb,0.89294e+03_rb,0.11813e+04_rb /)\n      kbo(:, 3,54,14) = (/ &\n        & 0.10905e+04_rb,0.84800e+03_rb,0.60416e+03_rb,0.89138e+03_rb,0.11793e+04_rb /)\n      kbo(:, 4,54,14) = (/ &\n        & 0.10438e+04_rb,0.78736e+03_rb,0.60344e+03_rb,0.89055e+03_rb,0.11781e+04_rb /)\n      kbo(:, 5,54,14) = (/ &\n        & 0.10324e+04_rb,0.83619e+03_rb,0.60252e+03_rb,0.88959e+03_rb,0.11768e+04_rb /)\n      kbo(:, 1,55,14) = (/ &\n        & 0.10463e+04_rb,0.78385e+03_rb,0.60663e+03_rb,0.89475e+03_rb,0.11838e+04_rb /)\n      kbo(:, 2,55,14) = (/ &\n        & 0.10543e+04_rb,0.79119e+03_rb,0.60552e+03_rb,0.89337e+03_rb,0.11824e+04_rb /)\n      kbo(:, 3,55,14) = (/ &\n        & 0.10391e+04_rb,0.80395e+03_rb,0.60439e+03_rb,0.89183e+03_rb,0.11799e+04_rb /)\n      kbo(:, 4,55,14) = (/ &\n        & 0.10421e+04_rb,0.79916e+03_rb,0.60368e+03_rb,0.89078e+03_rb,0.11784e+04_rb /)\n      kbo(:, 5,55,14) = (/ &\n        & 0.10909e+04_rb,0.78448e+03_rb,0.60284e+03_rb,0.88955e+03_rb,0.11777e+04_rb /)\n      kbo(:, 1,56,14) = (/ &\n        & 0.10143e+04_rb,0.81481e+03_rb,0.60727e+03_rb,0.89531e+03_rb,0.11848e+04_rb /)\n      kbo(:, 2,56,14) = (/ &\n        & 0.10240e+04_rb,0.81034e+03_rb,0.60598e+03_rb,0.89378e+03_rb,0.11825e+04_rb /)\n      kbo(:, 3,56,14) = (/ &\n        & 0.10324e+04_rb,0.78927e+03_rb,0.60463e+03_rb,0.89238e+03_rb,0.11806e+04_rb /)\n      kbo(:, 4,56,14) = (/ &\n        & 0.10273e+04_rb,0.78959e+03_rb,0.60390e+03_rb,0.89099e+03_rb,0.11787e+04_rb /)\n      kbo(:, 5,56,14) = (/ &\n        & 0.10404e+04_rb,0.80937e+03_rb,0.60290e+03_rb,0.89024e+03_rb,0.11777e+04_rb /)\n      kbo(:, 1,57,14) = (/ &\n        & 0.10408e+04_rb,0.79150e+03_rb,0.60742e+03_rb,0.89593e+03_rb,0.11860e+04_rb /)\n      kbo(:, 2,57,14) = (/ &\n        & 0.10640e+04_rb,0.82150e+03_rb,0.60641e+03_rb,0.89422e+03_rb,0.11831e+04_rb /)\n      kbo(:, 3,57,14) = (/ &\n        & 0.10551e+04_rb,0.79661e+03_rb,0.60501e+03_rb,0.89288e+03_rb,0.11813e+04_rb /)\n      kbo(:, 4,57,14) = (/ &\n        & 0.10817e+04_rb,0.79118e+03_rb,0.60413e+03_rb,0.89133e+03_rb,0.11792e+04_rb /)\n      kbo(:, 5,57,14) = (/ &\n        & 0.10370e+04_rb,0.79629e+03_rb,0.60341e+03_rb,0.89015e+03_rb,0.11781e+04_rb /)\n      kbo(:, 1,58,14) = (/ &\n        & 0.10442e+04_rb,0.84033e+03_rb,0.60809e+03_rb,0.89672e+03_rb,0.11869e+04_rb /)\n      kbo(:, 2,58,14) = (/ &\n        & 0.10934e+04_rb,0.79820e+03_rb,0.60680e+03_rb,0.89466e+03_rb,0.11837e+04_rb /)\n      kbo(:, 3,58,14) = (/ &\n        & 0.10657e+04_rb,0.80043e+03_rb,0.60544e+03_rb,0.89329e+03_rb,0.11818e+04_rb /)\n      kbo(:, 4,58,14) = (/ &\n        & 0.10223e+04_rb,0.78480e+03_rb,0.60435e+03_rb,0.89175e+03_rb,0.11798e+04_rb /)\n      kbo(:, 5,58,14) = (/ &\n        & 0.10438e+04_rb,0.81735e+03_rb,0.60364e+03_rb,0.89074e+03_rb,0.11789e+04_rb /)\n      kbo(:, 1,59,14) = (/ &\n        & 0.10513e+04_rb,0.80331e+03_rb,0.60826e+03_rb,0.89709e+03_rb,0.11883e+04_rb /)\n      kbo(:, 2,59,14) = (/ &\n        & 0.10429e+04_rb,0.81799e+03_rb,0.60696e+03_rb,0.89486e+03_rb,0.11840e+04_rb /)\n      kbo(:, 3,59,14) = (/ &\n        & 0.10400e+04_rb,0.80905e+03_rb,0.60537e+03_rb,0.89345e+03_rb,0.11830e+04_rb /)\n      kbo(:, 4,59,14) = (/ &\n        & 0.10488e+04_rb,0.79628e+03_rb,0.60443e+03_rb,0.89194e+03_rb,0.11800e+04_rb /)\n      kbo(:, 5,59,14) = (/ &\n        & 0.10795e+04_rb,0.78415e+03_rb,0.60372e+03_rb,0.89082e+03_rb,0.11785e+04_rb /)\n      kbo(:, 1,13,15) = (/ &\n        & 0.98934e+03_rb,0.75572e+03_rb,0.60810e+03_rb,0.89364e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,13,15) = (/ &\n        & 0.12809e+04_rb,0.72091e+03_rb,0.60670e+03_rb,0.89251e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,13,15) = (/ &\n        & 0.11704e+04_rb,0.77844e+03_rb,0.60529e+03_rb,0.89171e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,13,15) = (/ &\n        & 0.11159e+04_rb,0.83495e+03_rb,0.60430e+03_rb,0.89110e+03_rb,0.11779e+04_rb /)\n      kbo(:, 5,13,15) = (/ &\n        & 0.11939e+04_rb,0.93553e+03_rb,0.60355e+03_rb,0.89003e+03_rb,0.11765e+04_rb /)\n      kbo(:, 1,14,15) = (/ &\n        & 0.11963e+04_rb,0.95315e+03_rb,0.60753e+03_rb,0.89338e+03_rb,0.11810e+04_rb /)\n      kbo(:, 2,14,15) = (/ &\n        & 0.11729e+04_rb,0.92141e+03_rb,0.60616e+03_rb,0.89229e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,14,15) = (/ &\n        & 0.11471e+04_rb,0.85602e+03_rb,0.60478e+03_rb,0.89154e+03_rb,0.11786e+04_rb /)\n      kbo(:, 4,14,15) = (/ &\n        & 0.11824e+04_rb,0.88196e+03_rb,0.60401e+03_rb,0.89091e+03_rb,0.11778e+04_rb /)\n      kbo(:, 5,14,15) = (/ &\n        & 0.11271e+04_rb,0.87462e+03_rb,0.60324e+03_rb,0.89075e+03_rb,0.11763e+04_rb /)\n      kbo(:, 1,15,15) = (/ &\n        & 0.10604e+04_rb,0.90519e+03_rb,0.60703e+03_rb,0.89409e+03_rb,0.11809e+04_rb /)\n      kbo(:, 2,15,15) = (/ &\n        & 0.11577e+04_rb,0.75557e+03_rb,0.60568e+03_rb,0.89209e+03_rb,0.11795e+04_rb /)\n      kbo(:, 3,15,15) = (/ &\n        & 0.11406e+04_rb,0.81803e+03_rb,0.60438e+03_rb,0.89138e+03_rb,0.11785e+04_rb /)\n      kbo(:, 4,15,15) = (/ &\n        & 0.11847e+04_rb,0.71960e+03_rb,0.60376e+03_rb,0.89073e+03_rb,0.11790e+04_rb /)\n      kbo(:, 5,15,15) = (/ &\n        & 0.11179e+04_rb,0.81112e+03_rb,0.60296e+03_rb,0.88859e+03_rb,0.11787e+04_rb /)\n      kbo(:, 1,16,15) = (/ &\n        & 0.10356e+04_rb,0.71983e+03_rb,0.60659e+03_rb,0.89194e+03_rb,0.11820e+04_rb /)\n      kbo(:, 2,16,15) = (/ &\n        & 0.11364e+04_rb,0.76870e+03_rb,0.60526e+03_rb,0.89190e+03_rb,0.11794e+04_rb /)\n      kbo(:, 3,16,15) = (/ &\n        & 0.96034e+03_rb,0.83277e+03_rb,0.60407e+03_rb,0.89124e+03_rb,0.11785e+04_rb /)\n      kbo(:, 4,16,15) = (/ &\n        & 0.10077e+04_rb,0.87988e+03_rb,0.60354e+03_rb,0.89055e+03_rb,0.11776e+04_rb /)\n      kbo(:, 5,16,15) = (/ &\n        & 0.10422e+04_rb,0.83397e+03_rb,0.60335e+03_rb,0.88931e+03_rb,0.11759e+04_rb /)\n      kbo(:, 1,17,15) = (/ &\n        & 0.10091e+04_rb,0.77782e+03_rb,0.60621e+03_rb,0.89269e+03_rb,0.11805e+04_rb /)\n      kbo(:, 2,17,15) = (/ &\n        & 0.11716e+04_rb,0.80971e+03_rb,0.60425e+03_rb,0.89175e+03_rb,0.11793e+04_rb /)\n      kbo(:, 3,17,15) = (/ &\n        & 0.10550e+04_rb,0.78786e+03_rb,0.60385e+03_rb,0.89112e+03_rb,0.11784e+04_rb /)\n      kbo(:, 4,17,15) = (/ &\n        & 0.99990e+03_rb,0.88096e+03_rb,0.60335e+03_rb,0.89039e+03_rb,0.11774e+04_rb /)\n      kbo(:, 5,17,15) = (/ &\n        & 0.11263e+04_rb,0.73127e+03_rb,0.60311e+03_rb,0.88908e+03_rb,0.11770e+04_rb /)\n      kbo(:, 1,18,15) = (/ &\n        & 0.11151e+04_rb,0.85991e+03_rb,0.60588e+03_rb,0.89155e+03_rb,0.11804e+04_rb /)\n      kbo(:, 2,18,15) = (/ &\n        & 0.10413e+04_rb,0.70815e+03_rb,0.60458e+03_rb,0.89161e+03_rb,0.11791e+04_rb /)\n      kbo(:, 3,18,15) = (/ &\n        & 0.11058e+04_rb,0.82037e+03_rb,0.60370e+03_rb,0.89101e+03_rb,0.11783e+04_rb /)\n      kbo(:, 4,18,15) = (/ &\n        & 0.10134e+04_rb,0.64109e+03_rb,0.60383e+03_rb,0.89024e+03_rb,0.11786e+04_rb /)\n      kbo(:, 5,18,15) = (/ &\n        & 0.11497e+04_rb,0.88170e+03_rb,0.60224e+03_rb,0.88981e+03_rb,0.11767e+04_rb /)\n      kbo(:, 1,19,15) = (/ &\n        & 0.10261e+04_rb,0.82130e+03_rb,0.60625e+03_rb,0.89236e+03_rb,0.11802e+04_rb /)\n      kbo(:, 2,19,15) = (/ &\n        & 0.10077e+04_rb,0.78017e+03_rb,0.60431e+03_rb,0.89148e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,19,15) = (/ &\n        & 0.10505e+04_rb,0.75163e+03_rb,0.60422e+03_rb,0.88995e+03_rb,0.11782e+04_rb /)\n      kbo(:, 4,19,15) = (/ &\n        & 0.10498e+04_rb,0.84163e+03_rb,0.60302e+03_rb,0.89009e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,19,15) = (/ &\n        & 0.94853e+03_rb,0.71012e+03_rb,0.60269e+03_rb,0.88958e+03_rb,0.11765e+04_rb /)\n      kbo(:, 1,20,15) = (/ &\n        & 0.11198e+04_rb,0.83291e+03_rb,0.60532e+03_rb,0.89221e+03_rb,0.11814e+04_rb /)\n      kbo(:, 2,20,15) = (/ &\n        & 0.10146e+04_rb,0.70988e+03_rb,0.60473e+03_rb,0.89136e+03_rb,0.11789e+04_rb /)\n      kbo(:, 3,20,15) = (/ &\n        & 0.98440e+03_rb,0.83872e+03_rb,0.60345e+03_rb,0.89080e+03_rb,0.11781e+04_rb /)\n      kbo(:, 4,20,15) = (/ &\n        & 0.10595e+04_rb,0.75621e+03_rb,0.60286e+03_rb,0.88992e+03_rb,0.11770e+04_rb /)\n      kbo(:, 5,20,15) = (/ &\n        & 0.10274e+04_rb,0.81836e+03_rb,0.60247e+03_rb,0.88836e+03_rb,0.11749e+04_rb /)\n      kbo(:, 1,21,15) = (/ &\n        & 0.10788e+04_rb,0.78645e+03_rb,0.60506e+03_rb,0.89207e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,21,15) = (/ &\n        & 0.10852e+04_rb,0.74295e+03_rb,0.60386e+03_rb,0.89125e+03_rb,0.11788e+04_rb /)\n      kbo(:, 3,21,15) = (/ &\n        & 0.10428e+04_rb,0.82396e+03_rb,0.60333e+03_rb,0.88973e+03_rb,0.11780e+04_rb /)\n      kbo(:, 4,21,15) = (/ &\n        & 0.10018e+04_rb,0.87387e+03_rb,0.60336e+03_rb,0.89071e+03_rb,0.11768e+04_rb /)\n      kbo(:, 5,21,15) = (/ &\n        & 0.11155e+04_rb,0.79293e+03_rb,0.60225e+03_rb,0.88809e+03_rb,0.11746e+04_rb /)\n      kbo(:, 1,22,15) = (/ &\n        & 0.10301e+04_rb,0.79445e+03_rb,0.60539e+03_rb,0.89186e+03_rb,0.11797e+04_rb /)\n      kbo(:, 2,22,15) = (/ &\n        & 0.11174e+04_rb,0.68851e+03_rb,0.60364e+03_rb,0.88919e+03_rb,0.11787e+04_rb /)\n      kbo(:, 3,22,15) = (/ &\n        & 0.10845e+04_rb,0.72821e+03_rb,0.60320e+03_rb,0.89053e+03_rb,0.11779e+04_rb /)\n      kbo(:, 4,22,15) = (/ &\n        & 0.94182e+03_rb,0.74129e+03_rb,0.60185e+03_rb,0.88948e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,22,15) = (/ &\n        & 0.11256e+04_rb,0.74069e+03_rb,0.60323e+03_rb,0.88766e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,23,15) = (/ &\n        & 0.11218e+04_rb,0.85968e+03_rb,0.60443e+03_rb,0.89167e+03_rb,0.11795e+04_rb /)\n      kbo(:, 2,23,15) = (/ &\n        & 0.10449e+04_rb,0.80739e+03_rb,0.60218e+03_rb,0.89100e+03_rb,0.11785e+04_rb /)\n      kbo(:, 3,23,15) = (/ &\n        & 0.11277e+04_rb,0.69098e+03_rb,0.60306e+03_rb,0.89036e+03_rb,0.11777e+04_rb /)\n      kbo(:, 4,23,15) = (/ &\n        & 0.10580e+04_rb,0.81384e+03_rb,0.60228e+03_rb,0.88919e+03_rb,0.11761e+04_rb /)\n      kbo(:, 5,23,15) = (/ &\n        & 0.10279e+04_rb,0.82530e+03_rb,0.60094e+03_rb,0.88718e+03_rb,0.11734e+04_rb /)\n      kbo(:, 1,24,15) = (/ &\n        & 0.10227e+04_rb,0.68179e+03_rb,0.60412e+03_rb,0.89149e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,24,15) = (/ &\n        & 0.11518e+04_rb,0.80624e+03_rb,0.60338e+03_rb,0.89088e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,24,15) = (/ &\n        & 0.10788e+04_rb,0.70820e+03_rb,0.60290e+03_rb,0.89016e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,24,15) = (/ &\n        & 0.10466e+04_rb,0.82233e+03_rb,0.60268e+03_rb,0.88884e+03_rb,0.11757e+04_rb /)\n      kbo(:, 5,24,15) = (/ &\n        & 0.10066e+04_rb,0.82618e+03_rb,0.60057e+03_rb,0.88665e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,25,15) = (/ &\n        & 0.10780e+04_rb,0.80937e+03_rb,0.60386e+03_rb,0.89131e+03_rb,0.11790e+04_rb /)\n      kbo(:, 2,25,15) = (/ &\n        & 0.10199e+04_rb,0.81059e+03_rb,0.60327e+03_rb,0.89075e+03_rb,0.11782e+04_rb /)\n      kbo(:, 3,25,15) = (/ &\n        & 0.11207e+04_rb,0.80162e+03_rb,0.60338e+03_rb,0.88992e+03_rb,0.11771e+04_rb /)\n      kbo(:, 4,25,15) = (/ &\n        & 0.97495e+03_rb,0.78589e+03_rb,0.60305e+03_rb,0.88845e+03_rb,0.11751e+04_rb /)\n      kbo(:, 5,25,15) = (/ &\n        & 0.95428e+03_rb,0.80945e+03_rb,0.60015e+03_rb,0.88605e+03_rb,0.11720e+04_rb /)\n      kbo(:, 1,26,15) = (/ &\n        & 0.10862e+04_rb,0.78235e+03_rb,0.60361e+03_rb,0.89115e+03_rb,0.11801e+04_rb /)\n      kbo(:, 2,26,15) = (/ &\n        & 0.91581e+03_rb,0.82546e+03_rb,0.60381e+03_rb,0.89059e+03_rb,0.11780e+04_rb /)\n      kbo(:, 3,26,15) = (/ &\n        & 0.10920e+04_rb,0.84813e+03_rb,0.60253e+03_rb,0.88964e+03_rb,0.11767e+04_rb /)\n      kbo(:, 4,26,15) = (/ &\n        & 0.11174e+04_rb,0.83078e+03_rb,0.60207e+03_rb,0.88892e+03_rb,0.11745e+04_rb /)\n      kbo(:, 5,26,15) = (/ &\n        & 0.11159e+04_rb,0.75128e+03_rb,0.59967e+03_rb,0.88536e+03_rb,0.11723e+04_rb /)\n      kbo(:, 1,27,15) = (/ &\n        & 0.10835e+04_rb,0.80424e+03_rb,0.60343e+03_rb,0.89101e+03_rb,0.11786e+04_rb /)\n      kbo(:, 2,27,15) = (/ &\n        & 0.10910e+04_rb,0.86525e+03_rb,0.60302e+03_rb,0.89041e+03_rb,0.11778e+04_rb /)\n      kbo(:, 3,27,15) = (/ &\n        & 0.10210e+04_rb,0.77642e+03_rb,0.60231e+03_rb,0.89027e+03_rb,0.11763e+04_rb /)\n      kbo(:, 4,27,15) = (/ &\n        & 0.10645e+04_rb,0.80598e+03_rb,0.60105e+03_rb,0.88742e+03_rb,0.11751e+04_rb /)\n      kbo(:, 5,27,15) = (/ &\n        & 0.10451e+04_rb,0.82023e+03_rb,0.59981e+03_rb,0.88559e+03_rb,0.11701e+04_rb /)\n      kbo(:, 1,28,15) = (/ &\n        & 0.10856e+04_rb,0.83991e+03_rb,0.60332e+03_rb,0.89088e+03_rb,0.11784e+04_rb /)\n      kbo(:, 2,28,15) = (/ &\n        & 0.93268e+03_rb,0.70779e+03_rb,0.60288e+03_rb,0.89019e+03_rb,0.11788e+04_rb /)\n      kbo(:, 3,28,15) = (/ &\n        & 0.11243e+04_rb,0.76544e+03_rb,0.60205e+03_rb,0.88894e+03_rb,0.11758e+04_rb /)\n      kbo(:, 4,28,15) = (/ &\n        & 0.10096e+04_rb,0.72189e+03_rb,0.60064e+03_rb,0.88682e+03_rb,0.11730e+04_rb /)\n      kbo(:, 5,28,15) = (/ &\n        & 0.88490e+03_rb,0.83821e+03_rb,0.59801e+03_rb,0.88198e+03_rb,0.11692e+04_rb /)\n      kbo(:, 1,29,15) = (/ &\n        & 0.10218e+04_rb,0.78897e+03_rb,0.60322e+03_rb,0.88978e+03_rb,0.11783e+04_rb /)\n      kbo(:, 2,29,15) = (/ &\n        & 0.97223e+03_rb,0.70803e+03_rb,0.60270e+03_rb,0.88994e+03_rb,0.11772e+04_rb /)\n      kbo(:, 3,29,15) = (/ &\n        & 0.10729e+04_rb,0.71638e+03_rb,0.60175e+03_rb,0.88850e+03_rb,0.11752e+04_rb /)\n      kbo(:, 4,29,15) = (/ &\n        & 0.10369e+04_rb,0.79357e+03_rb,0.60017e+03_rb,0.88614e+03_rb,0.11734e+04_rb /)\n      kbo(:, 5,29,15) = (/ &\n        & 0.10748e+04_rb,0.83591e+03_rb,0.59814e+03_rb,0.88321e+03_rb,0.11671e+04_rb /)\n      kbo(:, 1,30,15) = (/ &\n        & 0.10681e+04_rb,0.78838e+03_rb,0.60311e+03_rb,0.89058e+03_rb,0.11780e+04_rb /)\n      kbo(:, 2,30,15) = (/ &\n        & 0.10690e+04_rb,0.81372e+03_rb,0.60250e+03_rb,0.88965e+03_rb,0.11768e+04_rb /)\n      kbo(:, 3,30,15) = (/ &\n        & 0.10330e+04_rb,0.79065e+03_rb,0.60271e+03_rb,0.88800e+03_rb,0.11759e+04_rb /)\n      kbo(:, 4,30,15) = (/ &\n        & 0.99812e+03_rb,0.80751e+03_rb,0.60032e+03_rb,0.88541e+03_rb,0.11712e+04_rb /)\n      kbo(:, 5,30,15) = (/ &\n        & 0.10394e+04_rb,0.71741e+03_rb,0.59705e+03_rb,0.88643e+03_rb,0.11676e+04_rb /)\n      kbo(:, 1,31,15) = (/ &\n        & 0.10025e+04_rb,0.73187e+03_rb,0.60298e+03_rb,0.89039e+03_rb,0.11778e+04_rb /)\n      kbo(:, 2,31,15) = (/ &\n        & 0.11099e+04_rb,0.74280e+03_rb,0.60227e+03_rb,0.88930e+03_rb,0.11763e+04_rb /)\n      kbo(:, 3,31,15) = (/ &\n        & 0.10884e+04_rb,0.79617e+03_rb,0.60102e+03_rb,0.88838e+03_rb,0.11738e+04_rb /)\n      kbo(:, 4,31,15) = (/ &\n        & 0.90245e+03_rb,0.76637e+03_rb,0.59915e+03_rb,0.88368e+03_rb,0.11701e+04_rb /)\n      kbo(:, 5,31,15) = (/ &\n        & 0.10031e+04_rb,0.78751e+03_rb,0.59673e+03_rb,0.89640e+03_rb,0.11644e+04_rb /)\n      kbo(:, 1,32,15) = (/ &\n        & 0.87663e+03_rb,0.68400e+03_rb,0.60283e+03_rb,0.89016e+03_rb,0.11775e+04_rb /)\n      kbo(:, 2,32,15) = (/ &\n        & 0.10467e+04_rb,0.83071e+03_rb,0.60330e+03_rb,0.88890e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,32,15) = (/ &\n        & 0.97045e+03_rb,0.72881e+03_rb,0.60123e+03_rb,0.88677e+03_rb,0.11730e+04_rb /)\n      kbo(:, 4,32,15) = (/ &\n        & 0.11080e+04_rb,0.69141e+03_rb,0.59860e+03_rb,0.88193e+03_rb,0.11679e+04_rb /)\n      kbo(:, 5,32,15) = (/ &\n        & 0.10206e+04_rb,0.73037e+03_rb,0.59837e+03_rb,0.88358e+03_rb,0.11726e+04_rb /)\n      kbo(:, 1,33,15) = (/ &\n        & 0.10520e+04_rb,0.78807e+03_rb,0.60265e+03_rb,0.89086e+03_rb,0.11771e+04_rb /)\n      kbo(:, 2,33,15) = (/ &\n        & 0.98139e+03_rb,0.81175e+03_rb,0.60169e+03_rb,0.88843e+03_rb,0.11752e+04_rb /)\n      kbo(:, 3,33,15) = (/ &\n        & 0.11223e+04_rb,0.75994e+03_rb,0.60074e+03_rb,0.88510e+03_rb,0.11720e+04_rb /)\n      kbo(:, 4,33,15) = (/ &\n        & 0.10271e+04_rb,0.75564e+03_rb,0.59806e+03_rb,0.88218e+03_rb,0.11708e+04_rb /)\n      kbo(:, 5,33,15) = (/ &\n        & 0.10438e+04_rb,0.78527e+03_rb,0.59677e+03_rb,0.88217e+03_rb,0.11682e+04_rb /)\n      kbo(:, 1,34,15) = (/ &\n        & 0.10293e+04_rb,0.82175e+03_rb,0.60313e+03_rb,0.88963e+03_rb,0.11768e+04_rb /)\n      kbo(:, 2,34,15) = (/ &\n        & 0.11086e+04_rb,0.80472e+03_rb,0.60138e+03_rb,0.88797e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,34,15) = (/ &\n        & 0.10235e+04_rb,0.72497e+03_rb,0.60029e+03_rb,0.88634e+03_rb,0.11724e+04_rb /)\n      kbo(:, 4,34,15) = (/ &\n        & 0.10022e+04_rb,0.79360e+03_rb,0.59703e+03_rb,0.88927e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,34,15) = (/ &\n        & 0.11107e+04_rb,0.84019e+03_rb,0.59650e+03_rb,0.88082e+03_rb,0.11651e+04_rb /)\n      kbo(:, 1,35,15) = (/ &\n        & 0.10782e+04_rb,0.81052e+03_rb,0.60236e+03_rb,0.89138e+03_rb,0.11766e+04_rb /)\n      kbo(:, 2,35,15) = (/ &\n        & 0.89922e+03_rb,0.74859e+03_rb,0.60119e+03_rb,0.88769e+03_rb,0.11729e+04_rb /)\n      kbo(:, 3,35,15) = (/ &\n        & 0.10088e+04_rb,0.71209e+03_rb,0.59938e+03_rb,0.88499e+03_rb,0.11706e+04_rb /)\n      kbo(:, 4,35,15) = (/ &\n        & 0.96175e+03_rb,0.77055e+03_rb,0.60072e+03_rb,0.87852e+03_rb,0.11710e+04_rb /)\n      kbo(:, 5,35,15) = (/ &\n        & 0.10310e+04_rb,0.84426e+03_rb,0.59635e+03_rb,0.88059e+03_rb,0.11648e+04_rb /)\n      kbo(:, 1,36,15) = (/ &\n        & 0.10188e+04_rb,0.85190e+03_rb,0.60234e+03_rb,0.88943e+03_rb,0.11765e+04_rb /)\n      kbo(:, 2,36,15) = (/ &\n        & 0.10154e+04_rb,0.76964e+03_rb,0.60245e+03_rb,0.88859e+03_rb,0.11741e+04_rb /)\n      kbo(:, 3,36,15) = (/ &\n        & 0.10902e+04_rb,0.77130e+03_rb,0.59998e+03_rb,0.88588e+03_rb,0.11705e+04_rb /)\n      kbo(:, 4,36,15) = (/ &\n        & 0.98172e+03_rb,0.79246e+03_rb,0.59876e+03_rb,0.89371e+03_rb,0.11495e+04_rb /)\n      kbo(:, 5,36,15) = (/ &\n        & 0.10409e+04_rb,0.75260e+03_rb,0.59632e+03_rb,0.88055e+03_rb,0.11660e+04_rb /)\n      kbo(:, 1,37,15) = (/ &\n        & 0.10398e+04_rb,0.81024e+03_rb,0.60310e+03_rb,0.88960e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,37,15) = (/ &\n        & 0.94253e+03_rb,0.72207e+03_rb,0.60199e+03_rb,0.88792e+03_rb,0.11745e+04_rb /)\n      kbo(:, 3,37,15) = (/ &\n        & 0.11326e+04_rb,0.78984e+03_rb,0.60024e+03_rb,0.88532e+03_rb,0.11710e+04_rb /)\n      kbo(:, 4,37,15) = (/ &\n        & 0.10789e+04_rb,0.84320e+03_rb,0.59634e+03_rb,0.88350e+03_rb,0.11688e+04_rb /)\n      kbo(:, 5,37,15) = (/ &\n        & 0.10084e+04_rb,0.82623e+03_rb,0.59647e+03_rb,0.88078e+03_rb,0.11651e+04_rb /)\n      kbo(:, 1,38,15) = (/ &\n        & 0.99835e+03_rb,0.77031e+03_rb,0.60321e+03_rb,0.88977e+03_rb,0.11782e+04_rb /)\n      kbo(:, 2,38,15) = (/ &\n        & 0.11135e+04_rb,0.73046e+03_rb,0.60283e+03_rb,0.88917e+03_rb,0.11749e+04_rb /)\n      kbo(:, 3,38,15) = (/ &\n        & 0.10419e+04_rb,0.72620e+03_rb,0.59987e+03_rb,0.88669e+03_rb,0.11716e+04_rb /)\n      kbo(:, 4,38,15) = (/ &\n        & 0.10631e+04_rb,0.75245e+03_rb,0.59721e+03_rb,0.88572e+03_rb,0.11692e+04_rb /)\n      kbo(:, 5,38,15) = (/ &\n        & 0.10228e+04_rb,0.73209e+03_rb,0.59792e+03_rb,0.88102e+03_rb,0.11654e+04_rb /)\n      kbo(:, 1,39,15) = (/ &\n        & 0.10910e+04_rb,0.86853e+03_rb,0.60266e+03_rb,0.88992e+03_rb,0.11772e+04_rb /)\n      kbo(:, 2,39,15) = (/ &\n        & 0.10519e+04_rb,0.73802e+03_rb,0.60236e+03_rb,0.88944e+03_rb,0.11753e+04_rb /)\n      kbo(:, 3,39,15) = (/ &\n        & 0.90206e+03_rb,0.82442e+03_rb,0.60079e+03_rb,0.88708e+03_rb,0.11721e+04_rb /)\n      kbo(:, 4,39,15) = (/ &\n        & 0.10954e+04_rb,0.83033e+03_rb,0.59811e+03_rb,0.88319e+03_rb,0.11696e+04_rb /)\n      kbo(:, 5,39,15) = (/ &\n        & 0.92773e+03_rb,0.79134e+03_rb,0.59808e+03_rb,0.88316e+03_rb,0.11657e+04_rb /)\n      kbo(:, 1,40,15) = (/ &\n        & 0.10887e+04_rb,0.78119e+03_rb,0.60281e+03_rb,0.89016e+03_rb,0.11775e+04_rb /)\n      kbo(:, 2,40,15) = (/ &\n        & 0.10361e+04_rb,0.78964e+03_rb,0.60199e+03_rb,0.88890e+03_rb,0.11758e+04_rb /)\n      kbo(:, 3,40,15) = (/ &\n        & 0.10674e+04_rb,0.81250e+03_rb,0.60058e+03_rb,0.88678e+03_rb,0.11730e+04_rb /)\n      kbo(:, 4,40,15) = (/ &\n        & 0.11076e+04_rb,0.76250e+03_rb,0.59989e+03_rb,0.88480e+03_rb,0.11679e+04_rb /)\n      kbo(:, 5,40,15) = (/ &\n        & 0.11154e+04_rb,0.83280e+03_rb,0.59900e+03_rb,0.88168e+03_rb,0.11814e+04_rb /)\n      kbo(:, 1,41,15) = (/ &\n        & 0.10350e+04_rb,0.79893e+03_rb,0.60296e+03_rb,0.89038e+03_rb,0.11778e+04_rb /)\n      kbo(:, 2,41,15) = (/ &\n        & 0.10104e+04_rb,0.69640e+03_rb,0.60225e+03_rb,0.88929e+03_rb,0.11763e+04_rb /)\n      kbo(:, 3,41,15) = (/ &\n        & 0.10193e+04_rb,0.78110e+03_rb,0.60100e+03_rb,0.88741e+03_rb,0.11751e+04_rb /)\n      kbo(:, 4,41,15) = (/ &\n        & 0.10785e+04_rb,0.73450e+03_rb,0.59977e+03_rb,0.88368e+03_rb,0.11701e+04_rb /)\n      kbo(:, 5,41,15) = (/ &\n        & 0.96003e+03_rb,0.80480e+03_rb,0.59865e+03_rb,0.90400e+03_rb,0.11833e+04_rb /)\n      kbo(:, 1,42,15) = (/ &\n        & 0.97569e+03_rb,0.77685e+03_rb,0.60307e+03_rb,0.89056e+03_rb,0.11793e+04_rb /)\n      kbo(:, 2,42,15) = (/ &\n        & 0.98796e+03_rb,0.83953e+03_rb,0.60247e+03_rb,0.88963e+03_rb,0.11768e+04_rb /)\n      kbo(:, 3,42,15) = (/ &\n        & 0.10852e+04_rb,0.82427e+03_rb,0.60332e+03_rb,0.88798e+03_rb,0.11746e+04_rb /)\n      kbo(:, 4,42,15) = (/ &\n        & 0.10360e+04_rb,0.83188e+03_rb,0.59965e+03_rb,0.88636e+03_rb,0.11712e+04_rb /)\n      kbo(:, 5,42,15) = (/ &\n        & 0.10125e+04_rb,0.74885e+03_rb,0.59702e+03_rb,0.88356e+03_rb,0.11676e+04_rb /)\n      kbo(:, 1,43,15) = (/ &\n        & 0.91082e+03_rb,0.72514e+03_rb,0.60320e+03_rb,0.89075e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,43,15) = (/ &\n        & 0.82029e+03_rb,0.80137e+03_rb,0.60335e+03_rb,0.88998e+03_rb,0.11773e+04_rb /)\n      kbo(:, 3,43,15) = (/ &\n        & 0.11298e+04_rb,0.78950e+03_rb,0.60243e+03_rb,0.88859e+03_rb,0.11754e+04_rb /)\n      kbo(:, 4,43,15) = (/ &\n        & 0.10717e+04_rb,0.65904e+03_rb,0.60090e+03_rb,0.88726e+03_rb,0.11724e+04_rb /)\n      kbo(:, 5,43,15) = (/ &\n        & 0.89290e+03_rb,0.78779e+03_rb,0.59823e+03_rb,0.88240e+03_rb,0.11774e+04_rb /)\n      kbo(:, 1,44,15) = (/ &\n        & 0.10292e+04_rb,0.72935e+03_rb,0.60266e+03_rb,0.89093e+03_rb,0.11785e+04_rb /)\n      kbo(:, 2,44,15) = (/ &\n        & 0.10616e+04_rb,0.76323e+03_rb,0.60355e+03_rb,0.89030e+03_rb,0.11790e+04_rb /)\n      kbo(:, 3,44,15) = (/ &\n        & 0.10058e+04_rb,0.82082e+03_rb,0.60215e+03_rb,0.88915e+03_rb,0.11762e+04_rb /)\n      kbo(:, 4,44,15) = (/ &\n        & 0.96216e+03_rb,0.76914e+03_rb,0.60084e+03_rb,0.88814e+03_rb,0.11735e+04_rb /)\n      kbo(:, 5,44,15) = (/ &\n        & 0.10069e+04_rb,0.76998e+03_rb,0.59893e+03_rb,0.88624e+03_rb,0.11672e+04_rb /)\n      kbo(:, 1,45,15) = (/ &\n        & 0.92082e+03_rb,0.79879e+03_rb,0.60350e+03_rb,0.89110e+03_rb,0.11788e+04_rb /)\n      kbo(:, 2,45,15) = (/ &\n        & 0.96551e+03_rb,0.79963e+03_rb,0.60307e+03_rb,0.89055e+03_rb,0.11780e+04_rb /)\n      kbo(:, 3,45,15) = (/ &\n        & 0.10337e+04_rb,0.76320e+03_rb,0.60246e+03_rb,0.88962e+03_rb,0.11768e+04_rb /)\n      kbo(:, 4,45,15) = (/ &\n        & 0.97219e+03_rb,0.72677e+03_rb,0.60201e+03_rb,0.88795e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,45,15) = (/ &\n        & 0.10146e+04_rb,0.80892e+03_rb,0.59962e+03_rb,0.88632e+03_rb,0.11711e+04_rb /)\n      kbo(:, 1,46,15) = (/ &\n        & 0.10772e+04_rb,0.81655e+03_rb,0.60383e+03_rb,0.89135e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,46,15) = (/ &\n        & 0.98671e+03_rb,0.73523e+03_rb,0.60321e+03_rb,0.89077e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,46,15) = (/ &\n        & 0.10348e+04_rb,0.84026e+03_rb,0.60272e+03_rb,0.89002e+03_rb,0.11773e+04_rb /)\n      kbo(:, 4,46,15) = (/ &\n        & 0.11018e+04_rb,0.66661e+03_rb,0.60312e+03_rb,0.88865e+03_rb,0.11755e+04_rb /)\n      kbo(:, 5,46,15) = (/ &\n        & 0.10012e+04_rb,0.71404e+03_rb,0.60161e+03_rb,0.88639e+03_rb,0.11725e+04_rb /)\n      kbo(:, 1,47,15) = (/ &\n        & 0.10560e+04_rb,0.78520e+03_rb,0.60429e+03_rb,0.89072e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,47,15) = (/ &\n        & 0.10627e+04_rb,0.82754e+03_rb,0.60335e+03_rb,0.89097e+03_rb,0.11773e+04_rb /)\n      kbo(:, 3,47,15) = (/ &\n        & 0.10705e+04_rb,0.76570e+03_rb,0.60295e+03_rb,0.89038e+03_rb,0.11791e+04_rb /)\n      kbo(:, 4,47,15) = (/ &\n        & 0.11051e+04_rb,0.83346e+03_rb,0.60225e+03_rb,0.89026e+03_rb,0.11789e+04_rb /)\n      kbo(:, 5,47,15) = (/ &\n        & 0.10627e+04_rb,0.79957e+03_rb,0.60100e+03_rb,0.88742e+03_rb,0.11738e+04_rb /)\n      kbo(:, 1,48,15) = (/ &\n        & 0.10526e+04_rb,0.83431e+03_rb,0.60478e+03_rb,0.89205e+03_rb,0.11801e+04_rb /)\n      kbo(:, 2,48,15) = (/ &\n        & 0.11375e+04_rb,0.74537e+03_rb,0.60363e+03_rb,0.89121e+03_rb,0.11790e+04_rb /)\n      kbo(:, 3,48,15) = (/ &\n        & 0.10571e+04_rb,0.77077e+03_rb,0.60313e+03_rb,0.89066e+03_rb,0.11782e+04_rb /)\n      kbo(:, 4,48,15) = (/ &\n        & 0.10694e+04_rb,0.73604e+03_rb,0.60258e+03_rb,0.88981e+03_rb,0.11770e+04_rb /)\n      kbo(:, 5,48,15) = (/ &\n        & 0.11062e+04_rb,0.66828e+03_rb,0.60158e+03_rb,0.88925e+03_rb,0.11750e+04_rb /)\n      kbo(:, 1,49,15) = (/ &\n        & 0.10727e+04_rb,0.73859e+03_rb,0.60462e+03_rb,0.89249e+03_rb,0.11807e+04_rb /)\n      kbo(:, 2,49,15) = (/ &\n        & 0.11006e+04_rb,0.84446e+03_rb,0.60404e+03_rb,0.89152e+03_rb,0.11794e+04_rb /)\n      kbo(:, 3,49,15) = (/ &\n        & 0.96096e+03_rb,0.73858e+03_rb,0.60393e+03_rb,0.89088e+03_rb,0.11785e+04_rb /)\n      kbo(:, 4,49,15) = (/ &\n        & 0.11140e+04_rb,0.80464e+03_rb,0.60285e+03_rb,0.89021e+03_rb,0.11776e+04_rb /)\n      kbo(:, 5,49,15) = (/ &\n        & 0.10928e+04_rb,0.75297e+03_rb,0.60205e+03_rb,0.88996e+03_rb,0.11760e+04_rb /)\n      kbo(:, 1,50,15) = (/ &\n        & 0.10626e+04_rb,0.84953e+03_rb,0.60572e+03_rb,0.89295e+03_rb,0.11814e+04_rb /)\n      kbo(:, 2,50,15) = (/ &\n        & 0.11017e+04_rb,0.71824e+03_rb,0.60451e+03_rb,0.89185e+03_rb,0.11811e+04_rb /)\n      kbo(:, 3,50,15) = (/ &\n        & 0.10336e+04_rb,0.71570e+03_rb,0.60345e+03_rb,0.89107e+03_rb,0.11800e+04_rb /)\n      kbo(:, 4,50,15) = (/ &\n        & 0.95200e+03_rb,0.76482e+03_rb,0.60304e+03_rb,0.89051e+03_rb,0.11793e+04_rb /)\n      kbo(:, 5,50,15) = (/ &\n        & 0.96988e+03_rb,0.83512e+03_rb,0.60306e+03_rb,0.88954e+03_rb,0.11767e+04_rb /)\n      kbo(:, 1,51,15) = (/ &\n        & 0.11017e+04_rb,0.77329e+03_rb,0.60615e+03_rb,0.89371e+03_rb,0.11825e+04_rb /)\n      kbo(:, 2,51,15) = (/ &\n        & 0.10950e+04_rb,0.81479e+03_rb,0.60496e+03_rb,0.89123e+03_rb,0.11790e+04_rb /)\n      kbo(:, 3,51,15) = (/ &\n        & 0.99893e+03_rb,0.69452e+03_rb,0.60377e+03_rb,0.89131e+03_rb,0.11791e+04_rb /)\n      kbo(:, 4,51,15) = (/ &\n        & 0.10704e+04_rb,0.82834e+03_rb,0.60319e+03_rb,0.89074e+03_rb,0.11783e+04_rb /)\n      kbo(:, 5,51,15) = (/ &\n        & 0.10391e+04_rb,0.80716e+03_rb,0.60333e+03_rb,0.89092e+03_rb,0.11772e+04_rb /)\n      kbo(:, 1,52,15) = (/ &\n        & 0.10358e+04_rb,0.83681e+03_rb,0.60593e+03_rb,0.89390e+03_rb,0.11828e+04_rb /)\n      kbo(:, 2,52,15) = (/ &\n        & 0.95423e+03_rb,0.78599e+03_rb,0.60540e+03_rb,0.89262e+03_rb,0.11809e+04_rb /)\n      kbo(:, 3,52,15) = (/ &\n        & 0.98439e+03_rb,0.83257e+03_rb,0.60417e+03_rb,0.89064e+03_rb,0.11795e+04_rb /)\n      kbo(:, 4,52,15) = (/ &\n        & 0.10548e+04_rb,0.77074e+03_rb,0.60331e+03_rb,0.89093e+03_rb,0.11786e+04_rb /)\n      kbo(:, 5,52,15) = (/ &\n        & 0.10358e+04_rb,0.81478e+03_rb,0.60291e+03_rb,0.89030e+03_rb,0.11777e+04_rb /)\n      kbo(:, 1,53,15) = (/ &\n        & 0.96204e+03_rb,0.74448e+03_rb,0.60716e+03_rb,0.89629e+03_rb,0.11860e+04_rb /)\n      kbo(:, 2,53,15) = (/ &\n        & 0.10872e+04_rb,0.75126e+03_rb,0.60583e+03_rb,0.89310e+03_rb,0.11816e+04_rb /)\n      kbo(:, 3,53,15) = (/ &\n        & 0.90617e+03_rb,0.75210e+03_rb,0.60463e+03_rb,0.89194e+03_rb,0.11800e+04_rb /)\n      kbo(:, 4,53,15) = (/ &\n        & 0.97991e+03_rb,0.76565e+03_rb,0.60352e+03_rb,0.89113e+03_rb,0.11788e+04_rb /)\n      kbo(:, 5,53,15) = (/ &\n        & 0.10425e+04_rb,0.76988e+03_rb,0.60308e+03_rb,0.89058e+03_rb,0.11793e+04_rb /)\n      kbo(:, 1,54,15) = (/ &\n        & 0.10112e+04_rb,0.55645e+03_rb,0.60785e+03_rb,0.89766e+03_rb,0.11878e+04_rb /)\n      kbo(:, 2,54,15) = (/ &\n        & 0.10637e+04_rb,0.66232e+03_rb,0.60623e+03_rb,0.89389e+03_rb,0.11827e+04_rb /)\n      kbo(:, 3,54,15) = (/ &\n        & 0.88717e+03_rb,0.63014e+03_rb,0.60503e+03_rb,0.89226e+03_rb,0.11804e+04_rb /)\n      kbo(:, 4,54,15) = (/ &\n        & 0.10369e+04_rb,0.84103e+03_rb,0.60384e+03_rb,0.89232e+03_rb,0.11792e+04_rb /)\n      kbo(:, 5,54,15) = (/ &\n        & 0.10000e+04_rb,0.70043e+03_rb,0.60321e+03_rb,0.89174e+03_rb,0.11783e+04_rb /)\n      kbo(:, 1,55,15) = (/ &\n        & 0.10615e+04_rb,0.77920e+03_rb,0.60858e+03_rb,0.89903e+03_rb,0.11896e+04_rb /)\n      kbo(:, 2,55,15) = (/ &\n        & 0.10425e+04_rb,0.78513e+03_rb,0.60661e+03_rb,0.89494e+03_rb,0.11829e+04_rb /)\n      kbo(:, 3,55,15) = (/ &\n        & 0.10916e+04_rb,0.73854e+03_rb,0.60542e+03_rb,0.89361e+03_rb,0.11809e+04_rb /)\n      kbo(:, 4,55,15) = (/ &\n        & 0.10715e+04_rb,0.78936e+03_rb,0.60420e+03_rb,0.89162e+03_rb,0.11795e+04_rb /)\n      kbo(:, 5,55,15) = (/ &\n        & 0.96091e+03_rb,0.82578e+03_rb,0.60397e+03_rb,0.89094e+03_rb,0.11773e+04_rb /)\n      kbo(:, 1,56,15) = (/ &\n        & 0.10458e+04_rb,0.77242e+03_rb,0.60942e+03_rb,0.90044e+03_rb,0.11915e+04_rb /)\n      kbo(:, 2,56,15) = (/ &\n        & 0.11062e+04_rb,0.77581e+03_rb,0.60712e+03_rb,0.89619e+03_rb,0.11859e+04_rb /)\n      kbo(:, 3,56,15) = (/ &\n        & 0.10883e+04_rb,0.80121e+03_rb,0.60580e+03_rb,0.89306e+03_rb,0.11815e+04_rb /)\n      kbo(:, 4,56,15) = (/ &\n        & 0.10726e+04_rb,0.82069e+03_rb,0.60459e+03_rb,0.89192e+03_rb,0.11799e+04_rb /)\n      kbo(:, 5,56,15) = (/ &\n        & 0.11263e+04_rb,0.78597e+03_rb,0.60416e+03_rb,0.89111e+03_rb,0.11788e+04_rb /)\n      kbo(:, 1,57,15) = (/ &\n        & 0.11095e+04_rb,0.76988e+03_rb,0.61034e+03_rb,0.90190e+03_rb,0.11935e+04_rb /)\n      kbo(:, 2,57,15) = (/ &\n        & 0.97543e+03_rb,0.72583e+03_rb,0.60777e+03_rb,0.89749e+03_rb,0.11876e+04_rb /)\n      kbo(:, 3,57,15) = (/ &\n        & 0.98548e+03_rb,0.78597e+03_rb,0.60618e+03_rb,0.89378e+03_rb,0.11826e+04_rb /)\n      kbo(:, 4,57,15) = (/ &\n        & 0.98213e+03_rb,0.81053e+03_rb,0.60499e+03_rb,0.89222e+03_rb,0.11804e+04_rb /)\n      kbo(:, 5,57,15) = (/ &\n        & 0.10760e+04_rb,0.81137e+03_rb,0.60380e+03_rb,0.89133e+03_rb,0.11791e+04_rb /)\n      kbo(:, 1,58,15) = (/ &\n        & 0.10034e+04_rb,0.71059e+03_rb,0.61128e+03_rb,0.90333e+03_rb,0.11954e+04_rb /)\n      kbo(:, 2,58,15) = (/ &\n        & 0.97431e+03_rb,0.80290e+03_rb,0.60845e+03_rb,0.89878e+03_rb,0.11893e+04_rb /)\n      kbo(:, 3,58,15) = (/ &\n        & 0.95308e+03_rb,0.77157e+03_rb,0.60654e+03_rb,0.89474e+03_rb,0.11839e+04_rb /)\n      kbo(:, 4,58,15) = (/ &\n        & 0.10737e+04_rb,0.87404e+03_rb,0.60535e+03_rb,0.89257e+03_rb,0.11808e+04_rb /)\n      kbo(:, 5,58,15) = (/ &\n        & 0.10626e+04_rb,0.67671e+03_rb,0.60413e+03_rb,0.89157e+03_rb,0.11782e+04_rb /)\n      kbo(:, 1,59,15) = (/ &\n        & 0.98325e+03_rb,0.78258e+03_rb,0.61167e+03_rb,0.90392e+03_rb,0.11962e+04_rb /)\n      kbo(:, 2,59,15) = (/ &\n        & 0.10481e+04_rb,0.74785e+03_rb,0.60874e+03_rb,0.89931e+03_rb,0.11900e+04_rb /)\n      kbo(:, 3,59,15) = (/ &\n        & 0.11151e+04_rb,0.73006e+03_rb,0.60669e+03_rb,0.89518e+03_rb,0.11820e+04_rb /)\n      kbo(:, 4,59,15) = (/ &\n        & 0.10425e+04_rb,0.79358e+03_rb,0.60550e+03_rb,0.89369e+03_rb,0.11810e+04_rb /)\n      kbo(:, 5,59,15) = (/ &\n        & 0.97877e+03_rb,0.79866e+03_rb,0.60428e+03_rb,0.89168e+03_rb,0.11796e+04_rb /)\n      kbo(:, 1,13,16) = (/ &\n        & 0.75523e+03_rb,0.86786e+03_rb,0.60838e+03_rb,0.89385e+03_rb,0.11815e+04_rb /)\n      kbo(:, 2,13,16) = (/ &\n        & 0.10580e+03_rb,0.52074e+03_rb,0.60685e+03_rb,0.89272e+03_rb,0.11800e+04_rb /)\n      kbo(:, 3,13,16) = (/ &\n        & 0.88450e+03_rb,0.99478e+02_rb,0.60069e+03_rb,0.89217e+03_rb,0.11793e+04_rb /)\n      kbo(:, 4,13,16) = (/ &\n        & 0.47883e+03_rb,0.85714e+02_rb,0.60445e+03_rb,0.89133e+03_rb,0.11782e+04_rb /)\n      kbo(:, 5,13,16) = (/ &\n        & 0.30313e+03_rb,0.39357e+02_rb,0.60363e+03_rb,0.89015e+03_rb,0.11767e+04_rb /)\n      kbo(:, 1,14,16) = (/ &\n        & 0.59250e+03_rb,0.12538e+03_rb,0.60779e+03_rb,0.89359e+03_rb,0.11813e+04_rb /)\n      kbo(:, 2,14,16) = (/ &\n        & 0.45021e+03_rb,0.30819e+03_rb,0.60630e+03_rb,0.89255e+03_rb,0.11799e+04_rb /)\n      kbo(:, 3,14,16) = (/ &\n        & 0.38746e+03_rb,0.31955e+03_rb,0.60482e+03_rb,0.89198e+03_rb,0.11792e+04_rb /)\n      kbo(:, 4,14,16) = (/ &\n        & 0.59123e+03_rb,0.24014e+03_rb,0.60415e+03_rb,0.89112e+03_rb,0.11781e+04_rb /)\n      kbo(:, 5,14,16) = (/ &\n        & 0.47780e+03_rb,0.41362e+03_rb,0.60332e+03_rb,0.88306e+03_rb,0.11765e+04_rb /)\n      kbo(:, 1,15,16) = (/ &\n        & 0.10202e+04_rb,0.29221e+03_rb,0.60727e+03_rb,0.88647e+03_rb,0.11812e+04_rb /)\n      kbo(:, 2,15,16) = (/ &\n        & 0.55435e+03_rb,0.58788e+03_rb,0.60581e+03_rb,0.89239e+03_rb,0.11799e+04_rb /)\n      kbo(:, 3,15,16) = (/ &\n        & 0.31413e+03_rb,0.75889e+03_rb,0.60450e+03_rb,0.89181e+03_rb,0.11791e+04_rb /)\n      kbo(:, 4,15,16) = (/ &\n        & 0.41436e+03_rb,0.80717e+03_rb,0.60389e+03_rb,0.89092e+03_rb,0.11689e+04_rb /)\n      kbo(:, 5,15,16) = (/ &\n        & 0.84269e+03_rb,0.27451e+03_rb,0.60303e+03_rb,0.88966e+03_rb,0.11582e+04_rb /)\n      kbo(:, 1,16,16) = (/ &\n        & 0.19456e+03_rb,0.24351e+03_rb,0.60682e+03_rb,0.89311e+03_rb,0.11719e+04_rb /)\n      kbo(:, 2,16,16) = (/ &\n        & 0.43800e+03_rb,0.21696e+03_rb,0.60538e+03_rb,0.89225e+03_rb,0.11798e+04_rb /)\n      kbo(:, 3,16,16) = (/ &\n        & 0.73851e+03_rb,0.22888e+03_rb,0.60428e+03_rb,0.89164e+03_rb,0.11790e+04_rb /)\n      kbo(:, 4,16,16) = (/ &\n        & 0.83650e+03_rb,0.13309e+03_rb,0.60366e+03_rb,0.89073e+03_rb,0.11778e+04_rb /)\n      kbo(:, 5,16,16) = (/ &\n        & 0.65895e+03_rb,0.36022e+03_rb,0.59813e+03_rb,0.88942e+03_rb,0.11670e+04_rb /)\n      kbo(:, 1,17,16) = (/ &\n        & 0.97890e+03_rb,0.27257e+03_rb,0.60643e+03_rb,0.89290e+03_rb,0.11808e+04_rb /)\n      kbo(:, 2,17,16) = (/ &\n        & 0.21678e+03_rb,0.36639e+03_rb,0.60501e+03_rb,0.89213e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,17,16) = (/ &\n        & 0.36576e+03_rb,0.64243e+03_rb,0.60409e+03_rb,0.89150e+03_rb,0.11789e+04_rb /)\n      kbo(:, 4,17,16) = (/ &\n        & 0.71301e+03_rb,0.32666e+03_rb,0.60345e+03_rb,0.89056e+03_rb,0.11777e+04_rb /)\n      kbo(:, 5,17,16) = (/ &\n        & 0.30605e+03_rb,0.68315e+03_rb,0.59789e+03_rb,0.88918e+03_rb,0.11668e+04_rb /)\n      kbo(:, 1,18,16) = (/ &\n        & 0.52238e+03_rb,0.17591e+03_rb,0.60609e+03_rb,0.89271e+03_rb,0.11807e+04_rb /)\n      kbo(:, 2,18,16) = (/ &\n        & 0.10253e+04_rb,0.75807e+03_rb,0.60468e+03_rb,0.89202e+03_rb,0.11797e+04_rb /)\n      kbo(:, 3,18,16) = (/ &\n        & 0.23095e+03_rb,0.31874e+03_rb,0.60392e+03_rb,0.89136e+03_rb,0.11788e+04_rb /)\n      kbo(:, 4,18,16) = (/ &\n        & 0.55144e+03_rb,0.80452e+03_rb,0.59863e+03_rb,0.89039e+03_rb,0.11685e+04_rb /)\n      kbo(:, 5,18,16) = (/ &\n        & 0.36145e+03_rb,0.21165e+03_rb,0.60231e+03_rb,0.88211e+03_rb,0.11666e+04_rb /)\n      kbo(:, 1,19,16) = (/ &\n        & 0.10124e+04_rb,0.51143e+03_rb,0.60113e+03_rb,0.89253e+03_rb,0.11805e+04_rb /)\n      kbo(:, 2,19,16) = (/ &\n        & 0.54199e+03_rb,0.26758e+03_rb,0.60439e+03_rb,0.89192e+03_rb,0.11796e+04_rb /)\n      kbo(:, 3,19,16) = (/ &\n        & 0.61467e+03_rb,0.78253e+03_rb,0.59913e+03_rb,0.89123e+03_rb,0.11787e+04_rb /)\n      kbo(:, 4,19,16) = (/ &\n        & 0.58906e+03_rb,0.74398e+02_rb,0.60311e+03_rb,0.89023e+03_rb,0.11774e+04_rb /)\n      kbo(:, 5,19,16) = (/ &\n        & 0.98025e+03_rb,0.28476e+03_rb,0.59747e+03_rb,0.88189e+03_rb,0.11663e+04_rb /)\n      kbo(:, 1,20,16) = (/ &\n        & 0.25361e+03_rb,0.16739e+03_rb,0.60550e+03_rb,0.89234e+03_rb,0.11712e+04_rb /)\n      kbo(:, 2,20,16) = (/ &\n        & 0.70227e+03_rb,0.71784e+03_rb,0.59948e+03_rb,0.89182e+03_rb,0.11795e+04_rb /)\n      kbo(:, 3,20,16) = (/ &\n        & 0.89681e+03_rb,0.24714e+03_rb,0.60364e+03_rb,0.89109e+03_rb,0.11786e+04_rb /)\n      kbo(:, 4,20,16) = (/ &\n        & 0.30123e+03_rb,0.54911e+03_rb,0.60295e+03_rb,0.89006e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,20,16) = (/ &\n        & 0.68301e+03_rb,0.36973e+03_rb,0.59725e+03_rb,0.88846e+03_rb,0.11750e+04_rb /)\n      kbo(:, 1,21,16) = (/ &\n        & 0.25236e+03_rb,0.80202e+03_rb,0.60523e+03_rb,0.89218e+03_rb,0.11801e+04_rb /)\n      kbo(:, 2,21,16) = (/ &\n        & 0.77221e+03_rb,0.62834e+03_rb,0.60401e+03_rb,0.89171e+03_rb,0.11794e+04_rb /)\n      kbo(:, 3,21,16) = (/ &\n        & 0.70626e+03_rb,0.20918e+03_rb,0.60351e+03_rb,0.89096e+03_rb,0.11784e+04_rb /)\n      kbo(:, 4,21,16) = (/ &\n        & 0.16217e+03_rb,0.14134e+03_rb,0.59816e+03_rb,0.88303e+03_rb,0.11770e+04_rb /)\n      kbo(:, 5,21,16) = (/ &\n        & 0.51843e+03_rb,0.20259e+03_rb,0.59703e+03_rb,0.88818e+03_rb,0.11747e+04_rb /)\n      kbo(:, 1,22,16) = (/ &\n        & 0.21890e+03_rb,0.24577e+03_rb,0.60023e+03_rb,0.89209e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,22,16) = (/ &\n        & 0.30771e+03_rb,0.55233e+03_rb,0.60388e+03_rb,0.89157e+03_rb,0.11793e+04_rb /)\n      kbo(:, 3,22,16) = (/ &\n        & 0.17796e+03_rb,0.48432e+03_rb,0.60334e+03_rb,0.89076e+03_rb,0.11782e+04_rb /)\n      kbo(:, 4,22,16) = (/ &\n        & 0.88899e+03_rb,0.36751e+03_rb,0.60258e+03_rb,0.88960e+03_rb,0.11676e+04_rb /)\n      kbo(:, 5,22,16) = (/ &\n        & 0.37953e+03_rb,0.56918e+03_rb,0.58746e+03_rb,0.88775e+03_rb,0.11742e+04_rb /)\n      kbo(:, 1,23,16) = (/ &\n        & 0.42018e+03_rb,0.21434e+03_rb,0.60456e+03_rb,0.89198e+03_rb,0.11798e+04_rb /)\n      kbo(:, 2,23,16) = (/ &\n        & 0.10252e+04_rb,0.32427e+03_rb,0.60375e+03_rb,0.89142e+03_rb,0.11791e+04_rb /)\n      kbo(:, 3,23,16) = (/ &\n        & 0.25811e+03_rb,0.61743e+03_rb,0.60318e+03_rb,0.89055e+03_rb,0.11779e+04_rb /)\n      kbo(:, 4,23,16) = (/ &\n        & 0.60449e+03_rb,0.28100e+03_rb,0.60235e+03_rb,0.88930e+03_rb,0.11762e+04_rb /)\n      kbo(:, 5,23,16) = (/ &\n        & 0.43495e+03_rb,0.18925e+03_rb,0.60100e+03_rb,0.88727e+03_rb,0.11735e+04_rb /)\n      kbo(:, 1,24,16) = (/ &\n        & 0.68497e+03_rb,0.77568e+03_rb,0.60423e+03_rb,0.89188e+03_rb,0.11797e+04_rb /)\n      kbo(:, 2,24,16) = (/ &\n        & 0.27378e+03_rb,0.43332e+03_rb,0.60362e+03_rb,0.89125e+03_rb,0.11789e+04_rb /)\n      kbo(:, 3,24,16) = (/ &\n        & 0.44258e+03_rb,0.48182e+03_rb,0.60301e+03_rb,0.89032e+03_rb,0.11686e+04_rb /)\n      kbo(:, 4,24,16) = (/ &\n        & 0.38603e+03_rb,0.34135e+03_rb,0.59747e+03_rb,0.88895e+03_rb,0.11758e+04_rb /)\n      kbo(:, 5,24,16) = (/ &\n        & 0.39386e+03_rb,0.54222e+03_rb,0.60062e+03_rb,0.88674e+03_rb,0.11638e+04_rb /)\n      kbo(:, 1,25,16) = (/ &\n        & 0.55482e+03_rb,0.53022e+03_rb,0.60394e+03_rb,0.89175e+03_rb,0.11796e+04_rb /)\n      kbo(:, 2,25,16) = (/ &\n        & 0.90002e+03_rb,0.91361e+02_rb,0.60348e+03_rb,0.89107e+03_rb,0.11787e+04_rb /)\n      kbo(:, 3,25,16) = (/ &\n        & 0.17670e+03_rb,0.51744e+03_rb,0.59819e+03_rb,0.89007e+03_rb,0.11773e+04_rb /)\n      kbo(:, 4,25,16) = (/ &\n        & 0.44153e+03_rb,0.41376e+03_rb,0.59256e+03_rb,0.88854e+03_rb,0.11753e+04_rb /)\n      kbo(:, 5,25,16) = (/ &\n        & 0.24073e+03_rb,0.21288e+03_rb,0.60020e+03_rb,0.88614e+03_rb,0.11721e+04_rb /)\n      kbo(:, 1,26,16) = (/ &\n        & 0.37725e+03_rb,0.61445e+03_rb,0.60383e+03_rb,0.89161e+03_rb,0.11703e+04_rb /)\n      kbo(:, 2,26,16) = (/ &\n        & 0.10269e+04_rb,0.42565e+03_rb,0.59868e+03_rb,0.89085e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,26,16) = (/ &\n        & 0.49719e+03_rb,0.26744e+03_rb,0.60261e+03_rb,0.88977e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,26,16) = (/ &\n        & 0.41684e+03_rb,0.19443e+03_rb,0.59685e+03_rb,0.88123e+03_rb,0.11746e+04_rb /)\n      kbo(:, 5,26,16) = (/ &\n        & 0.32855e+03_rb,0.57095e+03_rb,0.59973e+03_rb,0.88545e+03_rb,0.11622e+04_rb /)\n      kbo(:, 1,27,16) = (/ &\n        & 0.60914e+03_rb,0.57105e+03_rb,0.60371e+03_rb,0.89145e+03_rb,0.11792e+04_rb /)\n      kbo(:, 2,27,16) = (/ &\n        & 0.26439e+03_rb,0.15182e+03_rb,0.60316e+03_rb,0.89062e+03_rb,0.11781e+04_rb /)\n      kbo(:, 3,27,16) = (/ &\n        & 0.73685e+03_rb,0.69813e+03_rb,0.60238e+03_rb,0.88259e+03_rb,0.11765e+04_rb /)\n      kbo(:, 4,27,16) = (/ &\n        & 0.64054e+03_rb,0.28524e+03_rb,0.60110e+03_rb,0.88751e+03_rb,0.11649e+04_rb /)\n      kbo(:, 5,27,16) = (/ &\n        & 0.75244e+03_rb,0.50359e+03_rb,0.59461e+03_rb,0.87791e+03_rb,0.11702e+04_rb /)\n      kbo(:, 1,28,16) = (/ &\n        & 0.64046e+03_rb,0.15170e+03_rb,0.60358e+03_rb,0.89127e+03_rb,0.11790e+04_rb /)\n      kbo(:, 2,28,16) = (/ &\n        & 0.70429e+03_rb,0.23052e+03_rb,0.60299e+03_rb,0.89037e+03_rb,0.11687e+04_rb /)\n      kbo(:, 3,28,16) = (/ &\n        & 0.44006e+03_rb,0.41240e+03_rb,0.60212e+03_rb,0.88904e+03_rb,0.11760e+04_rb /)\n      kbo(:, 4,28,16) = (/ &\n        & 0.22398e+03_rb,0.59419e+03_rb,0.60069e+03_rb,0.88691e+03_rb,0.11731e+04_rb /)\n      kbo(:, 5,28,16) = (/ &\n        & 0.55183e+03_rb,0.13336e+03_rb,0.59871e+03_rb,0.87038e+03_rb,0.11692e+04_rb /)\n      kbo(:, 1,29,16) = (/ &\n        & 0.59987e+03_rb,0.49106e+03_rb,0.60344e+03_rb,0.89107e+03_rb,0.11787e+04_rb /)\n      kbo(:, 2,29,16) = (/ &\n        & 0.34384e+03_rb,0.96976e+02_rb,0.60280e+03_rb,0.89009e+03_rb,0.11774e+04_rb /)\n      kbo(:, 3,29,16) = (/ &\n        & 0.54363e+03_rb,0.20603e+03_rb,0.60181e+03_rb,0.88860e+03_rb,0.11754e+04_rb /)\n      kbo(:, 4,29,16) = (/ &\n        & 0.10391e+04_rb,0.38775e+03_rb,0.60023e+03_rb,0.88623e+03_rb,0.11632e+04_rb /)\n      kbo(:, 5,29,16) = (/ &\n        & 0.22377e+03_rb,0.17567e+03_rb,0.59820e+03_rb,0.88324e+03_rb,0.11684e+04_rb /)\n      kbo(:, 1,30,16) = (/ &\n        & 0.63138e+03_rb,0.68455e+03_rb,0.60329e+03_rb,0.89085e+03_rb,0.11784e+04_rb /)\n      kbo(:, 2,30,16) = (/ &\n        & 0.58332e+03_rb,0.21199e+03_rb,0.60259e+03_rb,0.88978e+03_rb,0.11770e+04_rb /)\n      kbo(:, 3,30,16) = (/ &\n        & 0.33555e+03_rb,0.46024e+03_rb,0.59221e+03_rb,0.88809e+03_rb,0.11657e+04_rb /)\n      kbo(:, 4,30,16) = (/ &\n        & 0.44733e+03_rb,0.32696e+03_rb,0.59512e+03_rb,0.88550e+03_rb,0.11713e+04_rb /)\n      kbo(:, 5,30,16) = (/ &\n        & 0.79071e+03_rb,0.72043e+03_rb,0.59773e+03_rb,0.85548e+03_rb,0.11586e+04_rb /)\n      kbo(:, 1,31,16) = (/ &\n        & 0.81471e+03_rb,0.68414e+03_rb,0.60312e+03_rb,0.89060e+03_rb,0.11781e+04_rb /)\n      kbo(:, 2,31,16) = (/ &\n        & 0.44722e+03_rb,0.73246e+03_rb,0.60235e+03_rb,0.88942e+03_rb,0.11765e+04_rb /)\n      kbo(:, 3,31,16) = (/ &\n        & 0.48709e+03_rb,0.24210e+03_rb,0.60108e+03_rb,0.88068e+03_rb,0.11739e+04_rb /)\n      kbo(:, 4,31,16) = (/ &\n        & 0.63873e+03_rb,0.56888e+03_rb,0.59920e+03_rb,0.88472e+03_rb,0.11702e+04_rb /)\n      kbo(:, 5,31,16) = (/ &\n        & 0.72647e+03_rb,0.26020e+03_rb,0.59739e+03_rb,0.78035e+03_rb,0.11669e+04_rb /)\n      kbo(:, 1,32,16) = (/ &\n        & 0.10219e+04_rb,0.29652e+03_rb,0.60294e+03_rb,0.89034e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,32,16) = (/ &\n        & 0.75833e+03_rb,0.13311e+03_rb,0.59281e+03_rb,0.88900e+03_rb,0.11759e+04_rb /)\n      kbo(:, 3,32,16) = (/ &\n        & 0.54275e+03_rb,0.31460e+03_rb,0.59602e+03_rb,0.88686e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,32,16) = (/ &\n        & 0.28731e+03_rb,0.15124e+03_rb,0.59865e+03_rb,0.87712e+03_rb,0.11692e+04_rb /)\n      kbo(:, 5,32,16) = (/ &\n        & 0.79004e+03_rb,0.63514e+03_rb,0.58791e+03_rb,0.86135e+03_rb,0.11214e+04_rb /)\n      kbo(:, 1,33,16) = (/ &\n        & 0.42295e+03_rb,0.52022e+03_rb,0.60275e+03_rb,0.88319e+03_rb,0.11773e+04_rb /)\n      kbo(:, 2,33,16) = (/ &\n        & 0.72614e+03_rb,0.33266e+03_rb,0.60175e+03_rb,0.88169e+03_rb,0.11753e+04_rb /)\n      kbo(:, 3,33,16) = (/ &\n        & 0.36703e+03_rb,0.22982e+03_rb,0.59554e+03_rb,0.88614e+03_rb,0.11721e+04_rb /)\n      kbo(:, 4,33,16) = (/ &\n        & 0.23137e+03_rb,0.32656e+03_rb,0.59813e+03_rb,0.88315e+03_rb,0.11503e+04_rb /)\n      kbo(:, 5,33,16) = (/ &\n        & 0.98125e+03_rb,0.60471e+03_rb,0.59681e+03_rb,0.86770e+03_rb,0.11478e+04_rb /)\n      kbo(:, 1,34,16) = (/ &\n        & 0.44676e+03_rb,0.16327e+03_rb,0.59792e+03_rb,0.88976e+03_rb,0.11770e+04_rb /)\n      kbo(:, 2,34,16) = (/ &\n        & 0.27122e+03_rb,0.52002e+03_rb,0.60144e+03_rb,0.88807e+03_rb,0.11747e+04_rb /)\n      kbo(:, 3,34,16) = (/ &\n        & 0.89338e+03_rb,0.37487e+03_rb,0.59509e+03_rb,0.87866e+03_rb,0.11622e+04_rb /)\n      kbo(:, 4,34,16) = (/ &\n        & 0.43071e+03_rb,0.56832e+03_rb,0.58850e+03_rb,0.83509e+03_rb,0.10958e+04_rb /)\n      kbo(:, 5,34,16) = (/ &\n        & 0.20737e+03_rb,0.35064e+03_rb,0.59655e+03_rb,0.88088e+03_rb,0.11652e+04_rb /)\n      kbo(:, 1,35,16) = (/ &\n        & 0.79758e+02_rb,0.10278e+03_rb,0.60244e+03_rb,0.87589e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,35,16) = (/ &\n        & 0.52637e+03_rb,0.56826e+03_rb,0.60124e+03_rb,0.88778e+03_rb,0.11743e+04_rb /)\n      kbo(:, 3,35,16) = (/ &\n        & 0.43064e+03_rb,0.29620e+03_rb,0.59943e+03_rb,0.88508e+03_rb,0.11707e+04_rb /)\n      kbo(:, 4,35,16) = (/ &\n        & 0.21531e+03_rb,0.74954e+03_rb,0.57453e+03_rb,0.86197e+03_rb,0.11223e+04_rb /)\n      kbo(:, 5,35,16) = (/ &\n        & 0.85323e+03_rb,0.27200e+03_rb,0.59640e+03_rb,0.88066e+03_rb,0.11649e+04_rb /)\n      kbo(:, 1,36,16) = (/ &\n        & 0.99678e+03_rb,0.21760e+03_rb,0.60242e+03_rb,0.88955e+03_rb,0.11767e+04_rb /)\n      kbo(:, 2,36,16) = (/ &\n        & 0.90902e+03_rb,0.40496e+03_rb,0.59196e+03_rb,0.88090e+03_rb,0.11742e+04_rb /)\n      kbo(:, 3,36,16) = (/ &\n        & 0.38273e+03_rb,0.60439e+03_rb,0.59478e+03_rb,0.87820e+03_rb,0.11706e+04_rb /)\n      kbo(:, 4,36,16) = (/ &\n        & 0.84516e+03_rb,0.25383e+03_rb,0.58829e+03_rb,0.79406e+03_rb,0.11312e+04_rb /)\n      kbo(:, 5,36,16) = (/ &\n        & 0.45445e+03_rb,0.41700e+03_rb,0.59637e+03_rb,0.88062e+03_rb,0.11559e+04_rb /)\n      kbo(:, 1,37,16) = (/ &\n        & 0.62987e+03_rb,0.44723e+03_rb,0.59790e+03_rb,0.88973e+03_rb,0.11769e+04_rb /)\n      kbo(:, 2,37,16) = (/ &\n        & 0.80524e+03_rb,0.68894e+03_rb,0.59677e+03_rb,0.88802e+03_rb,0.11746e+04_rb /)\n      kbo(:, 3,37,16) = (/ &\n        & 0.18337e+03_rb,0.45323e+03_rb,0.59504e+03_rb,0.88541e+03_rb,0.11712e+04_rb /)\n      kbo(:, 4,37,16) = (/ &\n        & 0.50224e+03_rb,0.16920e+03_rb,0.59765e+03_rb,0.86220e+03_rb,0.11586e+04_rb /)\n      kbo(:, 5,37,16) = (/ &\n        & 0.85299e+03_rb,0.22358e+03_rb,0.59652e+03_rb,0.88084e+03_rb,0.11652e+04_rb /)\n      kbo(:, 1,38,16) = (/ &\n        & 0.91678e+03_rb,0.47738e+03_rb,0.59801e+03_rb,0.88990e+03_rb,0.11681e+04_rb /)\n      kbo(:, 2,38,16) = (/ &\n        & 0.47033e+03_rb,0.39881e+03_rb,0.59234e+03_rb,0.88147e+03_rb,0.11750e+04_rb /)\n      kbo(:, 3,38,16) = (/ &\n        & 0.69352e+03_rb,0.66467e+03_rb,0.59993e+03_rb,0.87901e+03_rb,0.11717e+04_rb /)\n      kbo(:, 4,38,16) = (/ &\n        & 0.48625e+03_rb,0.32628e+03_rb,0.59330e+03_rb,0.86251e+03_rb,0.11590e+04_rb /)\n      kbo(:, 5,38,16) = (/ &\n        & 0.31087e+03_rb,0.44108e+03_rb,0.58749e+03_rb,0.88107e+03_rb,0.11655e+04_rb /)\n      kbo(:, 1,39,16) = (/ &\n        & 0.35870e+03_rb,0.11480e+03_rb,0.60275e+03_rb,0.89007e+03_rb,0.11774e+04_rb /)\n      kbo(:, 2,39,16) = (/ &\n        & 0.37464e+03_rb,0.78547e+03_rb,0.59714e+03_rb,0.88174e+03_rb,0.11754e+04_rb /)\n      kbo(:, 3,39,16) = (/ &\n        & 0.10123e+04_rb,0.30814e+03_rb,0.59558e+03_rb,0.87940e+03_rb,0.11722e+04_rb /)\n      kbo(:, 4,39,16) = (/ &\n        & 0.17535e+03_rb,0.96668e+02_rb,0.59817e+03_rb,0.88323e+03_rb,0.11594e+04_rb /)\n      kbo(:, 5,39,16) = (/ &\n        & 0.36664e+03_rb,0.56187e+03_rb,0.58764e+03_rb,0.86774e+03_rb,0.11658e+04_rb /)\n      kbo(:, 1,40,16) = (/ &\n        & 0.48620e+03_rb,0.57396e+03_rb,0.60293e+03_rb,0.89033e+03_rb,0.11777e+04_rb /)\n      kbo(:, 2,40,16) = (/ &\n        & 0.94847e+03_rb,0.62832e+03_rb,0.60206e+03_rb,0.88901e+03_rb,0.11760e+04_rb /)\n      kbo(:, 3,40,16) = (/ &\n        & 0.54197e+03_rb,0.51352e+03_rb,0.60063e+03_rb,0.88687e+03_rb,0.11731e+04_rb /)\n      kbo(:, 4,40,16) = (/ &\n        & 0.21519e+03_rb,0.61017e+03_rb,0.58944e+03_rb,0.86354e+03_rb,0.11692e+04_rb /)\n      kbo(:, 5,40,16) = (/ &\n        & 0.27098e+03_rb,0.33831e+03_rb,0.58331e+03_rb,0.88170e+03_rb,0.10587e+04_rb /)\n      kbo(:, 1,41,16) = (/ &\n        & 0.14346e+03_rb,0.26582e+03_rb,0.60309e+03_rb,0.89059e+03_rb,0.11781e+04_rb /)\n      kbo(:, 2,41,16) = (/ &\n        & 0.76510e+03_rb,0.70682e+03_rb,0.60232e+03_rb,0.88941e+03_rb,0.11765e+04_rb /)\n      kbo(:, 3,41,16) = (/ &\n        & 0.62163e+03_rb,0.16311e+03_rb,0.60105e+03_rb,0.88750e+03_rb,0.11649e+04_rb /)\n      kbo(:, 4,41,16) = (/ &\n        & 0.87665e+02_rb,0.19331e+03_rb,0.59457e+03_rb,0.88472e+03_rb,0.11703e+04_rb /)\n      kbo(:, 5,41,16) = (/ &\n        & 0.10041e+04_rb,0.44098e+03_rb,0.58818e+03_rb,0.72606e+03_rb,0.10412e+04_rb /)\n      kbo(:, 1,42,16) = (/ &\n        & 0.66944e+03_rb,0.41079e+03_rb,0.60325e+03_rb,0.89083e+03_rb,0.11693e+04_rb /)\n      kbo(:, 2,42,16) = (/ &\n        & 0.51801e+03_rb,0.25976e+03_rb,0.60255e+03_rb,0.88976e+03_rb,0.11770e+04_rb /)\n      kbo(:, 3,42,16) = (/ &\n        & 0.23111e+03_rb,0.27788e+03_rb,0.58293e+03_rb,0.88808e+03_rb,0.11747e+04_rb /)\n      kbo(:, 4,42,16) = (/ &\n        & 0.44627e+03_rb,0.35036e+03_rb,0.59971e+03_rb,0.87868e+03_rb,0.11713e+04_rb /)\n      kbo(:, 5,42,16) = (/ &\n        & 0.75706e+03_rb,0.77924e+03_rb,0.59310e+03_rb,0.87584e+03_rb,0.11676e+04_rb /)\n      kbo(:, 1,43,16) = (/ &\n        & 0.60566e+03_rb,0.10873e+03_rb,0.60342e+03_rb,0.89110e+03_rb,0.11697e+04_rb /)\n      kbo(:, 2,43,16) = (/ &\n        & 0.92441e+03_rb,0.64634e+03_rb,0.59816e+03_rb,0.89014e+03_rb,0.11775e+04_rb /)\n      kbo(:, 3,43,16) = (/ &\n        & 0.18329e+03_rb,0.35035e+03_rb,0.59722e+03_rb,0.88869e+03_rb,0.11755e+04_rb /)\n      kbo(:, 4,43,16) = (/ &\n        & 0.34266e+03_rb,0.17517e+03_rb,0.59569e+03_rb,0.87957e+03_rb,0.11725e+04_rb /)\n      kbo(:, 5,43,16) = (/ &\n        & 0.92438e+03_rb,0.90606e+02_rb,0.59829e+03_rb,0.88341e+03_rb,0.11057e+04_rb /)\n      kbo(:, 1,44,16) = (/ &\n        & 0.38251e+03_rb,0.19934e+03_rb,0.60359e+03_rb,0.89135e+03_rb,0.11791e+04_rb /)\n      kbo(:, 2,44,16) = (/ &\n        & 0.48609e+03_rb,0.71881e+03_rb,0.59839e+03_rb,0.89050e+03_rb,0.11689e+04_rb /)\n      kbo(:, 3,44,16) = (/ &\n        & 0.54984e+03_rb,0.19933e+03_rb,0.59759e+03_rb,0.88926e+03_rb,0.11763e+04_rb /)\n      kbo(:, 4,44,16) = (/ &\n        & 0.85264e+03_rb,0.64027e+03_rb,0.60090e+03_rb,0.88045e+03_rb,0.11736e+04_rb /)\n      kbo(:, 5,44,16) = (/ &\n        & 0.88451e+03_rb,0.49530e+03_rb,0.59898e+03_rb,0.87082e+03_rb,0.11699e+04_rb /)\n      kbo(:, 1,45,16) = (/ &\n        & 0.66936e+03_rb,0.51946e+03_rb,0.60373e+03_rb,0.89157e+03_rb,0.11794e+04_rb /)\n      kbo(:, 2,45,16) = (/ &\n        & 0.95622e+03_rb,0.66442e+03_rb,0.60324e+03_rb,0.89082e+03_rb,0.11784e+04_rb /)\n      kbo(:, 3,45,16) = (/ &\n        & 0.70122e+03_rb,0.25973e+03_rb,0.60254e+03_rb,0.88974e+03_rb,0.11769e+04_rb /)\n      kbo(:, 4,45,16) = (/ &\n        & 0.13546e+03_rb,0.47717e+03_rb,0.59679e+03_rb,0.88805e+03_rb,0.11747e+04_rb /)\n      kbo(:, 5,45,16) = (/ &\n        & 0.44623e+03_rb,0.47716e+03_rb,0.59968e+03_rb,0.87864e+03_rb,0.11712e+04_rb /)\n      kbo(:, 1,46,16) = (/ &\n        & 0.16734e+03_rb,0.11476e+03_rb,0.60389e+03_rb,0.89176e+03_rb,0.11797e+04_rb /)\n      kbo(:, 2,46,16) = (/ &\n        & 0.41435e+03_rb,0.59796e+03_rb,0.60344e+03_rb,0.89112e+03_rb,0.11697e+04_rb /)\n      kbo(:, 3,46,16) = (/ &\n        & 0.78886e+03_rb,0.13892e+03_rb,0.60282e+03_rb,0.89018e+03_rb,0.11775e+04_rb /)\n      kbo(:, 4,46,16) = (/ &\n        & 0.48606e+03_rb,0.76103e+03_rb,0.59263e+03_rb,0.88876e+03_rb,0.11756e+04_rb /)\n      kbo(:, 5,46,16) = (/ &\n        & 0.77291e+03_rb,0.68855e+03_rb,0.59113e+03_rb,0.88648e+03_rb,0.11726e+04_rb /)\n      kbo(:, 1,47,16) = (/ &\n        & 0.80479e+03_rb,0.70064e+03_rb,0.60443e+03_rb,0.89194e+03_rb,0.11799e+04_rb /)\n      kbo(:, 2,47,16) = (/ &\n        & 0.74901e+03_rb,0.35032e+03_rb,0.60363e+03_rb,0.89142e+03_rb,0.11792e+04_rb /)\n      kbo(:, 3,47,16) = (/ &\n        & 0.62948e+03_rb,0.48923e+03_rb,0.60309e+03_rb,0.89059e+03_rb,0.11690e+04_rb /)\n      kbo(:, 4,47,16) = (/ &\n        & 0.87648e+02_rb,0.36239e+03_rb,0.60232e+03_rb,0.88257e+03_rb,0.11584e+04_rb /)\n      kbo(:, 5,47,16) = (/ &\n        & 0.44621e+03_rb,0.42279e+03_rb,0.60106e+03_rb,0.88751e+03_rb,0.11740e+04_rb /)\n      kbo(:, 1,48,16) = (/ &\n        & 0.39044e+03_rb,0.31407e+03_rb,0.60497e+03_rb,0.89220e+03_rb,0.11803e+04_rb /)\n      kbo(:, 2,48,16) = (/ &\n        & 0.28685e+03_rb,0.50131e+03_rb,0.60379e+03_rb,0.89166e+03_rb,0.11795e+04_rb /)\n      kbo(:, 3,48,16) = (/ &\n        & 0.38246e+03_rb,0.70665e+03_rb,0.60333e+03_rb,0.89096e+03_rb,0.11786e+04_rb /)\n      kbo(:, 4,48,16) = (/ &\n        & 0.47011e+03_rb,0.61002e+03_rb,0.60267e+03_rb,0.88995e+03_rb,0.11772e+04_rb /)\n      kbo(:, 5,48,16) = (/ &\n        & 0.36652e+03_rb,0.63417e+03_rb,0.60164e+03_rb,0.88155e+03_rb,0.11751e+04_rb /)\n      kbo(:, 1,49,16) = (/ &\n        & 0.76492e+03_rb,0.96636e+02_rb,0.60550e+03_rb,0.89270e+03_rb,0.11810e+04_rb /)\n      kbo(:, 2,49,16) = (/ &\n        & 0.23107e+03_rb,0.19931e+03_rb,0.60416e+03_rb,0.89186e+03_rb,0.11798e+04_rb /)\n      kbo(:, 3,49,16) = (/ &\n        & 0.86850e+03_rb,0.30199e+03_rb,0.59890e+03_rb,0.89128e+03_rb,0.11790e+04_rb /)\n      kbo(:, 4,49,16) = (/ &\n        & 0.27091e+03_rb,0.22951e+03_rb,0.60296e+03_rb,0.89040e+03_rb,0.11778e+04_rb /)\n      kbo(:, 5,49,16) = (/ &\n        & 0.45416e+03_rb,0.53149e+03_rb,0.60212e+03_rb,0.88227e+03_rb,0.11761e+04_rb /)\n      kbo(:, 1,50,16) = (/ &\n        & 0.39042e+03_rb,0.12079e+03_rb,0.60601e+03_rb,0.89316e+03_rb,0.11816e+04_rb /)\n      kbo(:, 2,50,16) = (/ &\n        & 0.38245e+03_rb,0.73080e+03_rb,0.60467e+03_rb,0.89201e+03_rb,0.11709e+04_rb /)\n      kbo(:, 3,50,16) = (/ &\n        & 0.19919e+03_rb,0.50733e+03_rb,0.60370e+03_rb,0.89153e+03_rb,0.11703e+04_rb /)\n      kbo(:, 4,50,16) = (/ &\n        & 0.52587e+03_rb,0.41673e+03_rb,0.60320e+03_rb,0.89076e+03_rb,0.11693e+04_rb /)\n      kbo(:, 5,50,16) = (/ &\n        & 0.25497e+03_rb,0.90594e+02_rb,0.59785e+03_rb,0.88966e+03_rb,0.11768e+04_rb /)\n      kbo(:, 1,51,16) = (/ &\n        & 0.35058e+03_rb,0.56772e+03_rb,0.60650e+03_rb,0.89405e+03_rb,0.11830e+04_rb /)\n      kbo(:, 2,51,16) = (/ &\n        & 0.39839e+03_rb,0.52545e+03_rb,0.60516e+03_rb,0.89238e+03_rb,0.11806e+04_rb /)\n      kbo(:, 3,51,16) = (/ &\n        & 0.69319e+03_rb,0.65831e+03_rb,0.60384e+03_rb,0.89174e+03_rb,0.11796e+04_rb /)\n      kbo(:, 4,51,16) = (/ &\n        & 0.66132e+03_rb,0.42881e+03_rb,0.60341e+03_rb,0.89108e+03_rb,0.11788e+04_rb /)\n      kbo(:, 5,51,16) = (/ &\n        & 0.80473e+03_rb,0.49524e+03_rb,0.59814e+03_rb,0.88327e+03_rb,0.11775e+04_rb /)\n      kbo(:, 1,52,16) = (/ &\n        & 0.75693e+03_rb,0.32010e+03_rb,0.60698e+03_rb,0.89551e+03_rb,0.11849e+04_rb /)\n      kbo(:, 2,52,16) = (/ &\n        & 0.98002e+03_rb,0.74890e+03_rb,0.60565e+03_rb,0.89283e+03_rb,0.11812e+04_rb /)\n      kbo(:, 3,52,16) = (/ &\n        & 0.42228e+03_rb,0.32613e+03_rb,0.60430e+03_rb,0.89190e+03_rb,0.11799e+04_rb /)\n      kbo(:, 4,52,16) = (/ &\n        & 0.43025e+03_rb,0.70662e+03_rb,0.60359e+03_rb,0.89136e+03_rb,0.11791e+04_rb /)\n      kbo(:, 5,52,16) = (/ &\n        & 0.81269e+03_rb,0.56167e+03_rb,0.60303e+03_rb,0.89051e+03_rb,0.11780e+04_rb /)\n      kbo(:, 1,53,16) = (/ &\n        & 0.98002e+03_rb,0.61603e+03_rb,0.60747e+03_rb,0.89705e+03_rb,0.11870e+04_rb /)\n      kbo(:, 2,53,16) = (/ &\n        & 0.28683e+03_rb,0.42277e+03_rb,0.60613e+03_rb,0.89328e+03_rb,0.11818e+04_rb /)\n      kbo(:, 3,53,16) = (/ &\n        & 0.45415e+03_rb,0.68246e+03_rb,0.60479e+03_rb,0.89204e+03_rb,0.11801e+04_rb /)\n      kbo(:, 4,53,16) = (/ &\n        & 0.78879e+03_rb,0.48920e+03_rb,0.60374e+03_rb,0.89159e+03_rb,0.11794e+04_rb /)\n      kbo(:, 5,53,16) = (/ &\n        & 0.76488e+03_rb,0.14495e+03_rb,0.60326e+03_rb,0.89085e+03_rb,0.11694e+04_rb /)\n      kbo(:, 1,54,16) = (/ &\n        & 0.67724e+03_rb,0.76701e+03_rb,0.60808e+03_rb,0.89852e+03_rb,0.11890e+04_rb /)\n      kbo(:, 2,54,16) = (/ &\n        & 0.81269e+03_rb,0.24762e+03_rb,0.60658e+03_rb,0.89430e+03_rb,0.11833e+04_rb /)\n      kbo(:, 3,54,16) = (/ &\n        & 0.94813e+03_rb,0.63414e+03_rb,0.60524e+03_rb,0.89246e+03_rb,0.11807e+04_rb /)\n      kbo(:, 4,54,16) = (/ &\n        & 0.49398e+03_rb,0.28989e+03_rb,0.60390e+03_rb,0.88491e+03_rb,0.11797e+04_rb /)\n      kbo(:, 5,54,16) = (/ &\n        & 0.89236e+03_rb,0.27781e+03_rb,0.60344e+03_rb,0.88428e+03_rb,0.11788e+04_rb /)\n      kbo(:, 1,55,16) = (/ &\n        & 0.52586e+03_rb,0.77305e+03_rb,0.60906e+03_rb,0.89999e+03_rb,0.11909e+04_rb /)\n      kbo(:, 2,55,16) = (/ &\n        & 0.54179e+03_rb,0.64018e+03_rb,0.60701e+03_rb,0.89560e+03_rb,0.11851e+04_rb /)\n      kbo(:, 3,55,16) = (/ &\n        & 0.50992e+03_rb,0.60394e+03_rb,0.60567e+03_rb,0.88598e+03_rb,0.11812e+04_rb /)\n      kbo(:, 4,55,16) = (/ &\n        & 0.63740e+03_rb,0.44088e+03_rb,0.60433e+03_rb,0.89191e+03_rb,0.11799e+04_rb /)\n      kbo(:, 5,55,16) = (/ &\n        & 0.49398e+03_rb,0.37444e+03_rb,0.59895e+03_rb,0.89137e+03_rb,0.11791e+04_rb /)\n      kbo(:, 1,56,16) = (/ &\n        & 0.90829e+03_rb,0.27177e+03_rb,0.61007e+03_rb,0.90151e+03_rb,0.11929e+04_rb /)\n      kbo(:, 2,56,16) = (/ &\n        & 0.35854e+03_rb,0.24158e+03_rb,0.60744e+03_rb,0.89694e+03_rb,0.11869e+04_rb /)\n      kbo(:, 3,56,16) = (/ &\n        & 0.59756e+03_rb,0.47107e+03_rb,0.60610e+03_rb,0.89325e+03_rb,0.11817e+04_rb /)\n      kbo(:, 4,56,16) = (/ &\n        & 0.52585e+03_rb,0.35632e+03_rb,0.60476e+03_rb,0.89203e+03_rb,0.11801e+04_rb /)\n      kbo(:, 5,56,16) = (/ &\n        & 0.27886e+03_rb,0.24761e+03_rb,0.59909e+03_rb,0.89157e+03_rb,0.11794e+04_rb /)\n      kbo(:, 1,57,16) = (/ &\n        & 0.34260e+03_rb,0.66433e+03_rb,0.61112e+03_rb,0.90308e+03_rb,0.11950e+04_rb /)\n      kbo(:, 2,57,16) = (/ &\n        & 0.66130e+03_rb,0.45295e+03_rb,0.60796e+03_rb,0.89834e+03_rb,0.11887e+04_rb /)\n      kbo(:, 3,57,16) = (/ &\n        & 0.69317e+03_rb,0.42880e+03_rb,0.60653e+03_rb,0.89415e+03_rb,0.11831e+04_rb /)\n      kbo(:, 4,57,16) = (/ &\n        & 0.27089e+03_rb,0.28385e+03_rb,0.60519e+03_rb,0.89241e+03_rb,0.11806e+04_rb /)\n      kbo(:, 5,57,16) = (/ &\n        & 0.66926e+03_rb,0.34424e+03_rb,0.60385e+03_rb,0.89175e+03_rb,0.11797e+04_rb /)\n      kbo(:, 1,58,16) = (/ &\n        & 0.96406e+03_rb,0.25365e+03_rb,0.61214e+03_rb,0.90462e+03_rb,0.11971e+04_rb /)\n      kbo(:, 2,58,16) = (/ &\n        & 0.31073e+03_rb,0.28385e+03_rb,0.60888e+03_rb,0.89972e+03_rb,0.11906e+04_rb /)\n      kbo(:, 3,58,16) = (/ &\n        & 0.96405e+03_rb,0.57374e+03_rb,0.60693e+03_rb,0.89536e+03_rb,0.11848e+04_rb /)\n      kbo(:, 4,58,16) = (/ &\n        & 0.69316e+03_rb,0.13891e+03_rb,0.60560e+03_rb,0.89278e+03_rb,0.11811e+04_rb /)\n      kbo(:, 5,58,16) = (/ &\n        & 0.59755e+03_rb,0.75492e+03_rb,0.60426e+03_rb,0.89189e+03_rb,0.11798e+04_rb /)\n      kbo(:, 1,59,16) = (/ &\n        & 0.92422e+03_rb,0.39860e+03_rb,0.61256e+03_rb,0.90525e+03_rb,0.11979e+04_rb /)\n      kbo(:, 2,59,16) = (/ &\n        & 0.78877e+03_rb,0.42275e+03_rb,0.60926e+03_rb,0.90029e+03_rb,0.11913e+04_rb /)\n      kbo(:, 3,59,16) = (/ &\n        & 0.35853e+03_rb,0.65225e+03_rb,0.60710e+03_rb,0.89586e+03_rb,0.11854e+04_rb /)\n      kbo(:, 4,59,16) = (/ &\n        & 0.54975e+03_rb,0.50730e+03_rb,0.60576e+03_rb,0.88606e+03_rb,0.11813e+04_rb /)\n      kbo(:, 5,59,16) = (/ &\n        & 0.52585e+03_rb,0.62205e+03_rb,0.60442e+03_rb,0.89194e+03_rb,0.11799e+04_rb /)\n     \n      end subroutine sw_kgb28\n\n! **************************************************************************\n      subroutine sw_kgb29\n! **************************************************************************\n\n      use parkind, only : im => kind_im, rb => kind_rb \n      use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, &\n                            absh2oo, absco2o, rayl, layreffr\n\n      implicit none\n      save\n\n! Kurucz solar source function\n      sfluxrefo(:) = (/ &\n        & 1.32880_rb    , 2.14018_rb    , 1.97612_rb    , 1.79000_rb    , &\n        & 1.51242_rb    , 1.22977_rb    , 1.06052_rb    , 0.800996_rb   , &\n        & 0.748053_rb   , 8.64369e-02_rb, 7.10675e-02_rb, 5.62425e-02_rb, &\n        & 4.46988e-02_rb, 3.07441e-02_rb, 1.16728e-02_rb, 1.65573e-03_rb /)\n\n      absco2o(:) = (/ &\n        & 2.90073e-06_rb, 2.12382e-05_rb, 1.03032e-04_rb, 1.86481e-04_rb, &\n        & 4.31997e-04_rb, 6.08238e-04_rb, 2.17603e-03_rb, 4.64479e-02_rb, &\n        & 2.96956_rb    , 14.9569_rb    , 28.4831_rb    , 61.3998_rb    , &\n        & 164.129_rb    , 832.282_rb    , 4995.02_rb    , 12678.1_rb     /)\n\n      absh2oo(:) = (/ &\n        & 2.99508e-04_rb, 3.95012e-03_rb, 1.49316e-02_rb, 3.24384e-02_rb, &\n        & 6.92879e-02_rb, 0.123523_rb   , 0.360985_rb   , 1.86434_rb    , &\n        & 10.38157_rb   , 0.214129_rb   , 0.213914_rb   , 0.212781_rb   , &\n        & 0.215562_rb   , 0.218087_rb   , 0.220918_rb   , 0.218546_rb    /)\n           \n! Rayleigh extinction coefficient at v = 2200 cm-1.\n      rayl = 9.30e-11_rb\n\n      layreffr = 49\n\n!     ------------------------------------------------------------------\n!     The array KAO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels> ~100mb, temperatures, and binary\n!     species parameters (see taumol.f for definition).  The first \n!     index in the array, JS, runs from 1 to 9, and corresponds to \n!     different values of the binary species parameter.  For instance, \n!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, \n!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index\n!     in the array, JT, which runs from 1 to 5, corresponds to different\n!     temperatures.  More specifically, JT = 3 means that the data are for\n!     the reference temperature TREF for this  pressure level, JT = 2 refers\n!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5\n!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers\n!     to the JPth reference pressure level (see taumol.f for these levels\n!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates\n!     which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kao(:, 1, 1) = (/ &\n        & 0.11565e-03_rb,0.10123e-03_rb,0.90804e-04_rb,0.82282e-04_rb,0.71083e-04_rb /)\n      kao(:, 2, 1) = (/ &\n        & 0.96434e-04_rb,0.82830e-04_rb,0.72366e-04_rb,0.61803e-04_rb,0.52497e-04_rb /)\n      kao(:, 3, 1) = (/ &\n        & 0.64539e-04_rb,0.56659e-04_rb,0.46605e-04_rb,0.39815e-04_rb,0.37118e-04_rb /)\n      kao(:, 4, 1) = (/ &\n        & 0.34417e-04_rb,0.27113e-04_rb,0.25362e-04_rb,0.30345e-04_rb,0.36275e-04_rb /)\n      kao(:, 5, 1) = (/ &\n        & 0.12260e-04_rb,0.15856e-04_rb,0.20834e-04_rb,0.27363e-04_rb,0.36114e-04_rb /)\n      kao(:, 6, 1) = (/ &\n        & 0.10221e-04_rb,0.14598e-04_rb,0.19695e-04_rb,0.25976e-04_rb,0.33702e-04_rb /)\n      kao(:, 7, 1) = (/ &\n        & 0.97563e-05_rb,0.13809e-04_rb,0.20231e-04_rb,0.27238e-04_rb,0.36110e-04_rb /)\n      kao(:, 8, 1) = (/ &\n        & 0.14062e-04_rb,0.19587e-04_rb,0.27069e-04_rb,0.36937e-04_rb,0.49415e-04_rb /)\n      kao(:, 9, 1) = (/ &\n        & 0.36371e-04_rb,0.48122e-04_rb,0.61586e-04_rb,0.77647e-04_rb,0.99897e-04_rb /)\n      kao(:,10, 1) = (/ &\n        & 0.99203e-04_rb,0.12842e-03_rb,0.16588e-03_rb,0.20834e-03_rb,0.26000e-03_rb /)\n      kao(:,11, 1) = (/ &\n        & 0.13233e-03_rb,0.17318e-03_rb,0.22059e-03_rb,0.28904e-03_rb,0.36062e-03_rb /)\n      kao(:,12, 1) = (/ &\n        & 0.13379e-03_rb,0.17484e-03_rb,0.23687e-03_rb,0.30286e-03_rb,0.37504e-03_rb /)\n      kao(:,13, 1) = (/ &\n        & 0.11740e-03_rb,0.15667e-03_rb,0.20962e-03_rb,0.26768e-03_rb,0.33485e-03_rb /)\n      kao(:, 1, 2) = (/ &\n        & 0.10246e-03_rb,0.10450e-03_rb,0.97383e-04_rb,0.96398e-04_rb,0.10549e-03_rb /)\n      kao(:, 2, 2) = (/ &\n        & 0.10589e-03_rb,0.10240e-03_rb,0.95801e-04_rb,0.98509e-04_rb,0.11993e-03_rb /)\n      kao(:, 3, 2) = (/ &\n        & 0.94054e-04_rb,0.87009e-04_rb,0.10941e-03_rb,0.13486e-03_rb,0.15918e-03_rb /)\n      kao(:, 4, 2) = (/ &\n        & 0.11883e-03_rb,0.14236e-03_rb,0.16636e-03_rb,0.18235e-03_rb,0.19785e-03_rb /)\n      kao(:, 5, 2) = (/ &\n        & 0.17800e-03_rb,0.19347e-03_rb,0.20977e-03_rb,0.22730e-03_rb,0.25111e-03_rb /)\n      kao(:, 6, 2) = (/ &\n        & 0.22243e-03_rb,0.24157e-03_rb,0.26567e-03_rb,0.28549e-03_rb,0.30723e-03_rb /)\n      kao(:, 7, 2) = (/ &\n        & 0.29248e-03_rb,0.32242e-03_rb,0.34635e-03_rb,0.37915e-03_rb,0.40803e-03_rb /)\n      kao(:, 8, 2) = (/ &\n        & 0.43386e-03_rb,0.48611e-03_rb,0.52681e-03_rb,0.56812e-03_rb,0.60642e-03_rb /)\n      kao(:, 9, 2) = (/ &\n        & 0.89109e-03_rb,0.10345e-02_rb,0.11794e-02_rb,0.13045e-02_rb,0.14303e-02_rb /)\n      kao(:,10, 2) = (/ &\n        & 0.21538e-02_rb,0.24459e-02_rb,0.27329e-02_rb,0.30932e-02_rb,0.35253e-02_rb /)\n      kao(:,11, 2) = (/ &\n        & 0.29272e-02_rb,0.32676e-02_rb,0.36353e-02_rb,0.40062e-02_rb,0.45441e-02_rb /)\n      kao(:,12, 2) = (/ &\n        & 0.30762e-02_rb,0.34365e-02_rb,0.38146e-02_rb,0.41556e-02_rb,0.47164e-02_rb /)\n      kao(:,13, 2) = (/ &\n        & 0.27808e-02_rb,0.31114e-02_rb,0.34383e-02_rb,0.37954e-02_rb,0.42576e-02_rb /)\n      kao(:, 1, 3) = (/ &\n        & 0.24042e-03_rb,0.32719e-03_rb,0.44370e-03_rb,0.56836e-03_rb,0.70357e-03_rb /)\n      kao(:, 2, 3) = (/ &\n        & 0.23303e-03_rb,0.31901e-03_rb,0.41926e-03_rb,0.52400e-03_rb,0.62365e-03_rb /)\n      kao(:, 3, 3) = (/ &\n        & 0.35050e-03_rb,0.42158e-03_rb,0.47490e-03_rb,0.53390e-03_rb,0.60411e-03_rb /)\n      kao(:, 4, 3) = (/ &\n        & 0.49954e-03_rb,0.53067e-03_rb,0.56338e-03_rb,0.60859e-03_rb,0.66569e-03_rb /)\n      kao(:, 5, 3) = (/ &\n        & 0.66908e-03_rb,0.69727e-03_rb,0.72898e-03_rb,0.76756e-03_rb,0.80358e-03_rb /)\n      kao(:, 6, 3) = (/ &\n        & 0.88634e-03_rb,0.92853e-03_rb,0.96856e-03_rb,0.10101e-02_rb,0.10556e-02_rb /)\n      kao(:, 7, 3) = (/ &\n        & 0.11659e-02_rb,0.12355e-02_rb,0.13238e-02_rb,0.13889e-02_rb,0.14491e-02_rb /)\n      kao(:, 8, 3) = (/ &\n        & 0.17485e-02_rb,0.18223e-02_rb,0.19411e-02_rb,0.20705e-02_rb,0.22025e-02_rb /)\n      kao(:, 9, 3) = (/ &\n        & 0.42442e-02_rb,0.43561e-02_rb,0.45061e-02_rb,0.47505e-02_rb,0.50358e-02_rb /)\n      kao(:,10, 3) = (/ &\n        & 0.10940e-01_rb,0.11499e-01_rb,0.11906e-01_rb,0.12570e-01_rb,0.12803e-01_rb /)\n      kao(:,11, 3) = (/ &\n        & 0.14287e-01_rb,0.15010e-01_rb,0.15581e-01_rb,0.16054e-01_rb,0.16609e-01_rb /)\n      kao(:,12, 3) = (/ &\n        & 0.14856e-01_rb,0.15546e-01_rb,0.16074e-01_rb,0.16478e-01_rb,0.17057e-01_rb /)\n      kao(:,13, 3) = (/ &\n        & 0.13257e-01_rb,0.13834e-01_rb,0.14155e-01_rb,0.14723e-01_rb,0.15095e-01_rb /)\n      kao(:, 1, 4) = (/ &\n        & 0.24391e-02_rb,0.28720e-02_rb,0.33497e-02_rb,0.38926e-02_rb,0.45054e-02_rb /)\n      kao(:, 2, 4) = (/ &\n        & 0.22506e-02_rb,0.26004e-02_rb,0.30002e-02_rb,0.34490e-02_rb,0.39579e-02_rb /)\n      kao(:, 3, 4) = (/ &\n        & 0.22153e-02_rb,0.25711e-02_rb,0.29320e-02_rb,0.33330e-02_rb,0.37728e-02_rb /)\n      kao(:, 4, 4) = (/ &\n        & 0.22483e-02_rb,0.25445e-02_rb,0.28745e-02_rb,0.32484e-02_rb,0.36554e-02_rb /)\n      kao(:, 5, 4) = (/ &\n        & 0.23388e-02_rb,0.25985e-02_rb,0.28914e-02_rb,0.32377e-02_rb,0.36113e-02_rb /)\n      kao(:, 6, 4) = (/ &\n        & 0.24669e-02_rb,0.26579e-02_rb,0.28834e-02_rb,0.31538e-02_rb,0.34593e-02_rb /)\n      kao(:, 7, 4) = (/ &\n        & 0.32536e-02_rb,0.33413e-02_rb,0.34375e-02_rb,0.35905e-02_rb,0.38010e-02_rb /)\n      kao(:, 8, 4) = (/ &\n        & 0.51228e-02_rb,0.51967e-02_rb,0.52820e-02_rb,0.53446e-02_rb,0.53797e-02_rb /)\n      kao(:, 9, 4) = (/ &\n        & 0.13029e-01_rb,0.13065e-01_rb,0.12891e-01_rb,0.12848e-01_rb,0.12777e-01_rb /)\n      kao(:,10, 4) = (/ &\n        & 0.29911e-01_rb,0.30117e-01_rb,0.28340e-01_rb,0.27321e-01_rb,0.27485e-01_rb /)\n      kao(:,11, 4) = (/ &\n        & 0.36663e-01_rb,0.36877e-01_rb,0.34688e-01_rb,0.33004e-01_rb,0.32437e-01_rb /)\n      kao(:,12, 4) = (/ &\n        & 0.37282e-01_rb,0.37775e-01_rb,0.34910e-01_rb,0.33463e-01_rb,0.33074e-01_rb /)\n      kao(:,13, 4) = (/ &\n        & 0.33412e-01_rb,0.32961e-01_rb,0.30323e-01_rb,0.29437e-01_rb,0.29572e-01_rb /)\n      kao(:, 1, 5) = (/ &\n        & 0.20792e-01_rb,0.22727e-01_rb,0.25207e-01_rb,0.27650e-01_rb,0.29866e-01_rb /)\n      kao(:, 2, 5) = (/ &\n        & 0.17515e-01_rb,0.19421e-01_rb,0.21509e-01_rb,0.23389e-01_rb,0.25418e-01_rb /)\n      kao(:, 3, 5) = (/ &\n        & 0.14912e-01_rb,0.16535e-01_rb,0.18159e-01_rb,0.19873e-01_rb,0.21718e-01_rb /)\n      kao(:, 4, 5) = (/ &\n        & 0.13498e-01_rb,0.14786e-01_rb,0.16253e-01_rb,0.17812e-01_rb,0.19494e-01_rb /)\n      kao(:, 5, 5) = (/ &\n        & 0.12840e-01_rb,0.13983e-01_rb,0.15257e-01_rb,0.16617e-01_rb,0.18015e-01_rb /)\n      kao(:, 6, 5) = (/ &\n        & 0.12557e-01_rb,0.13714e-01_rb,0.14939e-01_rb,0.16145e-01_rb,0.17356e-01_rb /)\n      kao(:, 7, 5) = (/ &\n        & 0.11839e-01_rb,0.12951e-01_rb,0.14090e-01_rb,0.15237e-01_rb,0.16396e-01_rb /)\n      kao(:, 8, 5) = (/ &\n        & 0.13190e-01_rb,0.13998e-01_rb,0.14783e-01_rb,0.15641e-01_rb,0.16632e-01_rb /)\n      kao(:, 9, 5) = (/ &\n        & 0.24479e-01_rb,0.24660e-01_rb,0.25206e-01_rb,0.25571e-01_rb,0.26098e-01_rb /)\n      kao(:,10, 5) = (/ &\n        & 0.62373e-01_rb,0.60241e-01_rb,0.61372e-01_rb,0.61530e-01_rb,0.60978e-01_rb /)\n      kao(:,11, 5) = (/ &\n        & 0.76394e-01_rb,0.73727e-01_rb,0.74701e-01_rb,0.75649e-01_rb,0.75608e-01_rb /)\n      kao(:,12, 5) = (/ &\n        & 0.76656e-01_rb,0.73608e-01_rb,0.75610e-01_rb,0.76362e-01_rb,0.76033e-01_rb /)\n      kao(:,13, 5) = (/ &\n        & 0.66025e-01_rb,0.64890e-01_rb,0.66873e-01_rb,0.66992e-01_rb,0.66685e-01_rb /)\n      kao(:, 1, 6) = (/ &\n        & 0.99799e-01_rb,0.10479e+00_rb,0.10918e+00_rb,0.11347e+00_rb,0.11767e+00_rb /)\n      kao(:, 2, 6) = (/ &\n        & 0.87946e-01_rb,0.91820e-01_rb,0.95208e-01_rb,0.99071e-01_rb,0.10286e+00_rb /)\n      kao(:, 3, 6) = (/ &\n        & 0.76753e-01_rb,0.80377e-01_rb,0.84204e-01_rb,0.87924e-01_rb,0.91370e-01_rb /)\n      kao(:, 4, 6) = (/ &\n        & 0.67002e-01_rb,0.70630e-01_rb,0.73736e-01_rb,0.76764e-01_rb,0.79671e-01_rb /)\n      kao(:, 5, 6) = (/ &\n        & 0.58933e-01_rb,0.61857e-01_rb,0.64756e-01_rb,0.67323e-01_rb,0.69871e-01_rb /)\n      kao(:, 6, 6) = (/ &\n        & 0.53143e-01_rb,0.55386e-01_rb,0.57507e-01_rb,0.59715e-01_rb,0.62263e-01_rb /)\n      kao(:, 7, 6) = (/ &\n        & 0.50856e-01_rb,0.52603e-01_rb,0.54414e-01_rb,0.56230e-01_rb,0.58483e-01_rb /)\n      kao(:, 8, 6) = (/ &\n        & 0.50528e-01_rb,0.52598e-01_rb,0.54634e-01_rb,0.56710e-01_rb,0.58872e-01_rb /)\n      kao(:, 9, 6) = (/ &\n        & 0.64616e-01_rb,0.65915e-01_rb,0.67210e-01_rb,0.68742e-01_rb,0.70092e-01_rb /)\n      kao(:,10, 6) = (/ &\n        & 0.11509e+00_rb,0.11448e+00_rb,0.11368e+00_rb,0.11348e+00_rb,0.11401e+00_rb /)\n      kao(:,11, 6) = (/ &\n        & 0.14266e+00_rb,0.13997e+00_rb,0.13810e+00_rb,0.13688e+00_rb,0.13622e+00_rb /)\n      kao(:,12, 6) = (/ &\n        & 0.14464e+00_rb,0.14198e+00_rb,0.13915e+00_rb,0.13789e+00_rb,0.13781e+00_rb /)\n      kao(:,13, 6) = (/ &\n        & 0.12550e+00_rb,0.12328e+00_rb,0.12173e+00_rb,0.12127e+00_rb,0.12078e+00_rb /)\n      kao(:, 1, 7) = (/ &\n        & 0.30825e+00_rb,0.31119e+00_rb,0.31335e+00_rb,0.31641e+00_rb,0.32024e+00_rb /)\n      kao(:, 2, 7) = (/ &\n        & 0.28100e+00_rb,0.28660e+00_rb,0.29192e+00_rb,0.29680e+00_rb,0.30014e+00_rb /)\n      kao(:, 3, 7) = (/ &\n        & 0.26374e+00_rb,0.27129e+00_rb,0.27887e+00_rb,0.28626e+00_rb,0.29478e+00_rb /)\n      kao(:, 4, 7) = (/ &\n        & 0.24539e+00_rb,0.25325e+00_rb,0.26070e+00_rb,0.26955e+00_rb,0.27794e+00_rb /)\n      kao(:, 5, 7) = (/ &\n        & 0.21737e+00_rb,0.22642e+00_rb,0.23531e+00_rb,0.24408e+00_rb,0.25322e+00_rb /)\n      kao(:, 6, 7) = (/ &\n        & 0.19066e+00_rb,0.19913e+00_rb,0.20834e+00_rb,0.21782e+00_rb,0.22698e+00_rb /)\n      kao(:, 7, 7) = (/ &\n        & 0.17386e+00_rb,0.18325e+00_rb,0.19211e+00_rb,0.20024e+00_rb,0.20881e+00_rb /)\n      kao(:, 8, 7) = (/ &\n        & 0.17625e+00_rb,0.18236e+00_rb,0.18905e+00_rb,0.19574e+00_rb,0.20193e+00_rb /)\n      kao(:, 9, 7) = (/ &\n        & 0.21820e+00_rb,0.22416e+00_rb,0.22986e+00_rb,0.23737e+00_rb,0.24518e+00_rb /)\n      kao(:,10, 7) = (/ &\n        & 0.33529e+00_rb,0.34302e+00_rb,0.35397e+00_rb,0.36397e+00_rb,0.37339e+00_rb /)\n      kao(:,11, 7) = (/ &\n        & 0.38474e+00_rb,0.39863e+00_rb,0.41168e+00_rb,0.42115e+00_rb,0.42917e+00_rb /)\n      kao(:,12, 7) = (/ &\n        & 0.38499e+00_rb,0.39580e+00_rb,0.40497e+00_rb,0.41279e+00_rb,0.42045e+00_rb /)\n      kao(:,13, 7) = (/ &\n        & 0.34291e+00_rb,0.35180e+00_rb,0.35970e+00_rb,0.36697e+00_rb,0.37460e+00_rb /)\n      kao(:, 1, 8) = (/ &\n        & 0.87131e+00_rb,0.87876e+00_rb,0.88509e+00_rb,0.89061e+00_rb,0.89432e+00_rb /)\n      kao(:, 2, 8) = (/ &\n        & 0.78963e+00_rb,0.79236e+00_rb,0.79978e+00_rb,0.80959e+00_rb,0.82163e+00_rb /)\n      kao(:, 3, 8) = (/ &\n        & 0.82479e+00_rb,0.82842e+00_rb,0.83069e+00_rb,0.83679e+00_rb,0.84334e+00_rb /)\n      kao(:, 4, 8) = (/ &\n        & 0.90877e+00_rb,0.91962e+00_rb,0.92466e+00_rb,0.93139e+00_rb,0.93904e+00_rb /)\n      kao(:, 5, 8) = (/ &\n        & 0.97131e+00_rb,0.99301e+00_rb,0.10095e+01_rb,0.10270e+01_rb,0.10371e+01_rb /)\n      kao(:, 6, 8) = (/ &\n        & 0.96984e+00_rb,0.10040e+01_rb,0.10393e+01_rb,0.10670e+01_rb,0.10990e+01_rb /)\n      kao(:, 7, 8) = (/ &\n        & 0.95686e+00_rb,0.10029e+01_rb,0.10449e+01_rb,0.10923e+01_rb,0.11334e+01_rb /)\n      kao(:, 8, 8) = (/ &\n        & 0.97227e+00_rb,0.10380e+01_rb,0.11014e+01_rb,0.11624e+01_rb,0.12218e+01_rb /)\n      kao(:, 9, 8) = (/ &\n        & 0.12290e+01_rb,0.13071e+01_rb,0.14005e+01_rb,0.15005e+01_rb,0.15980e+01_rb /)\n      kao(:,10, 8) = (/ &\n        & 0.17996e+01_rb,0.19304e+01_rb,0.20752e+01_rb,0.22219e+01_rb,0.23814e+01_rb /)\n      kao(:,11, 8) = (/ &\n        & 0.19289e+01_rb,0.20656e+01_rb,0.22166e+01_rb,0.23715e+01_rb,0.25386e+01_rb /)\n      kao(:,12, 8) = (/ &\n        & 0.18429e+01_rb,0.19765e+01_rb,0.21175e+01_rb,0.22722e+01_rb,0.24239e+01_rb /)\n      kao(:,13, 8) = (/ &\n        & 0.16420e+01_rb,0.17464e+01_rb,0.18635e+01_rb,0.19773e+01_rb,0.21012e+01_rb /)\n      kao(:, 1, 9) = (/ &\n        & 0.39892e+01_rb,0.40153e+01_rb,0.40324e+01_rb,0.40465e+01_rb,0.40524e+01_rb /)\n      kao(:, 2, 9) = (/ &\n        & 0.38871e+01_rb,0.39035e+01_rb,0.39123e+01_rb,0.39056e+01_rb,0.38966e+01_rb /)\n      kao(:, 3, 9) = (/ &\n        & 0.37883e+01_rb,0.37950e+01_rb,0.38080e+01_rb,0.37991e+01_rb,0.37826e+01_rb /)\n      kao(:, 4, 9) = (/ &\n        & 0.37778e+01_rb,0.37663e+01_rb,0.37745e+01_rb,0.37709e+01_rb,0.37556e+01_rb /)\n      kao(:, 5, 9) = (/ &\n        & 0.38757e+01_rb,0.38404e+01_rb,0.38539e+01_rb,0.39228e+01_rb,0.39777e+01_rb /)\n      kao(:, 6, 9) = (/ &\n        & 0.40990e+01_rb,0.41407e+01_rb,0.41745e+01_rb,0.42258e+01_rb,0.42574e+01_rb /)\n      kao(:, 7, 9) = (/ &\n        & 0.46288e+01_rb,0.46726e+01_rb,0.47096e+01_rb,0.47165e+01_rb,0.47374e+01_rb /)\n      kao(:, 8, 9) = (/ &\n        & 0.58432e+01_rb,0.58474e+01_rb,0.58608e+01_rb,0.58935e+01_rb,0.59261e+01_rb /)\n      kao(:, 9, 9) = (/ &\n        & 0.88685e+01_rb,0.88567e+01_rb,0.88137e+01_rb,0.87653e+01_rb,0.87262e+01_rb /)\n      kao(:,10, 9) = (/ &\n        & 0.10455e+02_rb,0.10242e+02_rb,0.10004e+02_rb,0.97643e+01_rb,0.95067e+01_rb /)\n      kao(:,11, 9) = (/ &\n        & 0.10240e+02_rb,0.99968e+01_rb,0.97347e+01_rb,0.94750e+01_rb,0.92006e+01_rb /)\n      kao(:,12, 9) = (/ &\n        & 0.10401e+02_rb,0.10165e+02_rb,0.99240e+01_rb,0.96656e+01_rb,0.94112e+01_rb /)\n      kao(:,13, 9) = (/ &\n        & 0.10764e+02_rb,0.10580e+02_rb,0.10381e+02_rb,0.10188e+02_rb,0.99802e+01_rb /)\n      kao(:, 1,10) = (/ &\n        & 0.10712e+02_rb,0.10575e+02_rb,0.10581e+02_rb,0.10556e+02_rb,0.10575e+02_rb /)\n      kao(:, 2,10) = (/ &\n        & 0.11144e+02_rb,0.11109e+02_rb,0.11034e+02_rb,0.11107e+02_rb,0.11138e+02_rb /)\n      kao(:, 3,10) = (/ &\n        & 0.12257e+02_rb,0.12112e+02_rb,0.11992e+02_rb,0.11951e+02_rb,0.12031e+02_rb /)\n      kao(:, 4,10) = (/ &\n        & 0.13040e+02_rb,0.13085e+02_rb,0.12882e+02_rb,0.12756e+02_rb,0.12737e+02_rb /)\n      kao(:, 5,10) = (/ &\n        & 0.13809e+02_rb,0.13771e+02_rb,0.13452e+02_rb,0.12567e+02_rb,0.12086e+02_rb /)\n      kao(:, 6,10) = (/ &\n        & 0.14608e+02_rb,0.13942e+02_rb,0.13365e+02_rb,0.13494e+02_rb,0.13762e+02_rb /)\n      kao(:, 7,10) = (/ &\n        & 0.14665e+02_rb,0.14685e+02_rb,0.15121e+02_rb,0.15602e+02_rb,0.15768e+02_rb /)\n      kao(:, 8,10) = (/ &\n        & 0.15612e+02_rb,0.16507e+02_rb,0.16644e+02_rb,0.16706e+02_rb,0.16696e+02_rb /)\n      kao(:, 9,10) = (/ &\n        & 0.15405e+02_rb,0.15874e+02_rb,0.16716e+02_rb,0.17957e+02_rb,0.17859e+02_rb /)\n      kao(:,10,10) = (/ &\n        & 0.19406e+00_rb,0.17932e+00_rb,0.16660e+00_rb,0.15558e+00_rb,0.14589e+00_rb /)\n      kao(:,11,10) = (/ &\n        & 0.27650e+00_rb,0.25556e+00_rb,0.23727e+00_rb,0.22182e+00_rb,0.20805e+00_rb /)\n      kao(:,12,10) = (/ &\n        & 0.29298e+00_rb,0.27044e+00_rb,0.25162e+00_rb,0.23497e+00_rb,0.22076e+00_rb /)\n      kao(:,13,10) = (/ &\n        & 0.24883e+00_rb,0.22985e+00_rb,0.21413e+00_rb,0.20012e+00_rb,0.18795e+00_rb /)\n      kao(:, 1,11) = (/ &\n        & 0.13650e+02_rb,0.13767e+02_rb,0.13771e+02_rb,0.13650e+02_rb,0.13663e+02_rb /)\n      kao(:, 2,11) = (/ &\n        & 0.15146e+02_rb,0.15253e+02_rb,0.15272e+02_rb,0.15152e+02_rb,0.15138e+02_rb /)\n      kao(:, 3,11) = (/ &\n        & 0.16834e+02_rb,0.17107e+02_rb,0.17158e+02_rb,0.17187e+02_rb,0.17057e+02_rb /)\n      kao(:, 4,11) = (/ &\n        & 0.19191e+02_rb,0.19144e+02_rb,0.19155e+02_rb,0.19247e+02_rb,0.19292e+02_rb /)\n      kao(:, 5,11) = (/ &\n        & 0.20953e+02_rb,0.21248e+02_rb,0.21186e+02_rb,0.21027e+02_rb,0.20703e+02_rb /)\n      kao(:, 6,11) = (/ &\n        & 0.22592e+02_rb,0.22192e+02_rb,0.22056e+02_rb,0.20972e+02_rb,0.19910e+02_rb /)\n      kao(:, 7,11) = (/ &\n        & 0.24652e+02_rb,0.23679e+02_rb,0.22339e+02_rb,0.21302e+02_rb,0.21697e+02_rb /)\n      kao(:, 8,11) = (/ &\n        & 0.22508e+02_rb,0.20438e+02_rb,0.20163e+02_rb,0.20628e+02_rb,0.20954e+02_rb /)\n      kao(:, 9,11) = (/ &\n        & 0.10264e+02_rb,0.85820e+01_rb,0.65270e+01_rb,0.38883e+01_rb,0.27974e+01_rb /)\n      kao(:,10,11) = (/ &\n        & 0.19324e+00_rb,0.17913e+00_rb,0.16619e+00_rb,0.15516e+00_rb,0.14524e+00_rb /)\n      kao(:,11,11) = (/ &\n        & 0.27573e+00_rb,0.25425e+00_rb,0.23627e+00_rb,0.22036e+00_rb,0.20639e+00_rb /)\n      kao(:,12,11) = (/ &\n        & 0.29224e+00_rb,0.26998e+00_rb,0.25055e+00_rb,0.23380e+00_rb,0.21908e+00_rb /)\n      kao(:,13,11) = (/ &\n        & 0.24964e+00_rb,0.23056e+00_rb,0.21391e+00_rb,0.19980e+00_rb,0.18698e+00_rb /)\n      kao(:, 1,12) = (/ &\n        & 0.17721e+02_rb,0.17805e+02_rb,0.17752e+02_rb,0.17857e+02_rb,0.17872e+02_rb /)\n      kao(:, 2,12) = (/ &\n        & 0.20222e+02_rb,0.20161e+02_rb,0.20267e+02_rb,0.20335e+02_rb,0.20254e+02_rb /)\n      kao(:, 3,12) = (/ &\n        & 0.23717e+02_rb,0.23414e+02_rb,0.23571e+02_rb,0.23552e+02_rb,0.23687e+02_rb /)\n      kao(:, 4,12) = (/ &\n        & 0.26876e+02_rb,0.26972e+02_rb,0.27155e+02_rb,0.26947e+02_rb,0.27025e+02_rb /)\n      kao(:, 5,12) = (/ &\n        & 0.30213e+02_rb,0.29978e+02_rb,0.30226e+02_rb,0.30477e+02_rb,0.30329e+02_rb /)\n      kao(:, 6,12) = (/ &\n        & 0.33660e+02_rb,0.33482e+02_rb,0.33159e+02_rb,0.32959e+02_rb,0.32299e+02_rb /)\n      kao(:, 7,12) = (/ &\n        & 0.35893e+02_rb,0.35649e+02_rb,0.35067e+02_rb,0.34565e+02_rb,0.32437e+02_rb /)\n      kao(:, 8,12) = (/ &\n        & 0.33426e+02_rb,0.33323e+02_rb,0.31984e+02_rb,0.29587e+02_rb,0.27505e+02_rb /)\n      kao(:, 9,12) = (/ &\n        & 0.46633e-01_rb,0.43205e-01_rb,0.40562e-01_rb,0.38133e-01_rb,0.35900e-01_rb /)\n      kao(:,10,12) = (/ &\n        & 0.19421e+00_rb,0.18024e+00_rb,0.16872e+00_rb,0.15815e+00_rb,0.14837e+00_rb /)\n      kao(:,11,12) = (/ &\n        & 0.27315e+00_rb,0.25480e+00_rb,0.23771e+00_rb,0.22191e+00_rb,0.20780e+00_rb /)\n      kao(:,12,12) = (/ &\n        & 0.29027e+00_rb,0.26969e+00_rb,0.25017e+00_rb,0.23314e+00_rb,0.21774e+00_rb /)\n      kao(:,13,12) = (/ &\n        & 0.24833e+00_rb,0.22943e+00_rb,0.21278e+00_rb,0.19800e+00_rb,0.18543e+00_rb /)\n      kao(:, 1,13) = (/ &\n        & 0.29672e+02_rb,0.29291e+02_rb,0.29191e+02_rb,0.29170e+02_rb,0.29116e+02_rb /)\n      kao(:, 2,13) = (/ &\n        & 0.24713e+02_rb,0.24965e+02_rb,0.25039e+02_rb,0.25355e+02_rb,0.25650e+02_rb /)\n      kao(:, 3,13) = (/ &\n        & 0.30510e+02_rb,0.31166e+02_rb,0.30663e+02_rb,0.31021e+02_rb,0.30901e+02_rb /)\n      kao(:, 4,13) = (/ &\n        & 0.38695e+02_rb,0.38922e+02_rb,0.38741e+02_rb,0.39204e+02_rb,0.38826e+02_rb /)\n      kao(:, 5,13) = (/ &\n        & 0.45118e+02_rb,0.44337e+02_rb,0.43664e+02_rb,0.43267e+02_rb,0.43524e+02_rb /)\n      kao(:, 6,13) = (/ &\n        & 0.34652e+02_rb,0.35182e+02_rb,0.35339e+02_rb,0.35340e+02_rb,0.35899e+02_rb /)\n      kao(:, 7,13) = (/ &\n        & 0.18801e+02_rb,0.18598e+02_rb,0.18855e+02_rb,0.18819e+02_rb,0.19052e+02_rb /)\n      kao(:, 8,13) = (/ &\n        & 0.12297e-01_rb,0.11425e-01_rb,0.10670e-01_rb,0.99994e-02_rb,0.94139e-02_rb /)\n      kao(:, 9,13) = (/ &\n        & 0.46821e-01_rb,0.43361e-01_rb,0.40368e-01_rb,0.37752e-01_rb,0.35493e-01_rb /)\n      kao(:,10,13) = (/ &\n        & 0.19817e+00_rb,0.18303e+00_rb,0.17002e+00_rb,0.15883e+00_rb,0.14933e+00_rb /)\n      kao(:,11,13) = (/ &\n        & 0.28145e+00_rb,0.25995e+00_rb,0.24181e+00_rb,0.22660e+00_rb,0.21326e+00_rb /)\n      kao(:,12,13) = (/ &\n        & 0.29510e+00_rb,0.27294e+00_rb,0.25519e+00_rb,0.23947e+00_rb,0.22551e+00_rb /)\n      kao(:,13,13) = (/ &\n        & 0.24830e+00_rb,0.23074e+00_rb,0.21556e+00_rb,0.20226e+00_rb,0.19029e+00_rb /)\n      kao(:, 1,14) = (/ &\n        & 0.47168e+02_rb,0.46890e+02_rb,0.46612e+02_rb,0.46353e+02_rb,0.46088e+02_rb /)\n      kao(:, 2,14) = (/ &\n        & 0.47771e+02_rb,0.46980e+02_rb,0.46445e+02_rb,0.45828e+02_rb,0.45437e+02_rb /)\n      kao(:, 3,14) = (/ &\n        & 0.42946e+02_rb,0.42652e+02_rb,0.43791e+02_rb,0.43237e+02_rb,0.44104e+02_rb /)\n      kao(:, 4,14) = (/ &\n        & 0.30957e+02_rb,0.30098e+02_rb,0.30055e+02_rb,0.29555e+02_rb,0.29902e+02_rb /)\n      kao(:, 5,14) = (/ &\n        & 0.28397e+01_rb,0.38572e+01_rb,0.42906e+01_rb,0.47091e+01_rb,0.48135e+01_rb /)\n      kao(:, 6,14) = (/ &\n        & 0.36978e-02_rb,0.34591e-02_rb,0.32524e-02_rb,0.30649e-02_rb,0.29018e-02_rb /)\n      kao(:, 7,14) = (/ &\n        & 0.61733e-02_rb,0.57589e-02_rb,0.53925e-02_rb,0.50742e-02_rb,0.47835e-02_rb /)\n      kao(:, 8,14) = (/ &\n        & 0.12390e-01_rb,0.11526e-01_rb,0.10766e-01_rb,0.10096e-01_rb,0.95010e-02_rb /)\n      kao(:, 9,14) = (/ &\n        & 0.47105e-01_rb,0.43648e-01_rb,0.40665e-01_rb,0.38054e-01_rb,0.35722e-01_rb /)\n      kao(:,10,14) = (/ &\n        & 0.19915e+00_rb,0.18412e+00_rb,0.17099e+00_rb,0.15957e+00_rb,0.14948e+00_rb /)\n      kao(:,11,14) = (/ &\n        & 0.28280e+00_rb,0.26124e+00_rb,0.24266e+00_rb,0.22645e+00_rb,0.21214e+00_rb /)\n      kao(:,12,14) = (/ &\n        & 0.29891e+00_rb,0.27613e+00_rb,0.25648e+00_rb,0.23927e+00_rb,0.22423e+00_rb /)\n      kao(:,13,14) = (/ &\n        & 0.25421e+00_rb,0.23484e+00_rb,0.21809e+00_rb,0.20347e+00_rb,0.19057e+00_rb /)\n      kao(:, 1,15) = (/ &\n        & 0.64994e+02_rb,0.64283e+02_rb,0.63755e+02_rb,0.63407e+02_rb,0.63287e+02_rb /)\n      kao(:, 2,15) = (/ &\n        & 0.78266e+02_rb,0.77364e+02_rb,0.76722e+02_rb,0.76285e+02_rb,0.75992e+02_rb /)\n      kao(:, 3,15) = (/ &\n        & 0.41710e+02_rb,0.38379e+02_rb,0.35076e+02_rb,0.35418e+02_rb,0.33306e+02_rb /)\n      kao(:, 4,15) = (/ &\n        & 0.14170e-02_rb,0.13401e-02_rb,0.12716e-02_rb,0.12073e-02_rb,0.11535e-02_rb /)\n      kao(:, 5,15) = (/ &\n        & 0.23659e-02_rb,0.22261e-02_rb,0.21042e-02_rb,0.19950e-02_rb,0.18970e-02_rb /)\n      kao(:, 6,15) = (/ &\n        & 0.37432e-02_rb,0.35105e-02_rb,0.33006e-02_rb,0.31222e-02_rb,0.29521e-02_rb /)\n      kao(:, 7,15) = (/ &\n        & 0.62408e-02_rb,0.58258e-02_rb,0.54782e-02_rb,0.51594e-02_rb,0.48767e-02_rb /)\n      kao(:, 8,15) = (/ &\n        & 0.12522e-01_rb,0.11652e-01_rb,0.10922e-01_rb,0.10265e-01_rb,0.96672e-02_rb /)\n      kao(:, 9,15) = (/ &\n        & 0.47545e-01_rb,0.44152e-01_rb,0.41251e-01_rb,0.38666e-01_rb,0.36358e-01_rb /)\n      kao(:,10,15) = (/ &\n        & 0.20097e+00_rb,0.18592e+00_rb,0.17341e+00_rb,0.16203e+00_rb,0.15235e+00_rb /)\n      kao(:,11,15) = (/ &\n        & 0.28499e+00_rb,0.26428e+00_rb,0.24585e+00_rb,0.22980e+00_rb,0.21575e+00_rb /)\n      kao(:,12,15) = (/ &\n        & 0.30172e+00_rb,0.27929e+00_rb,0.25980e+00_rb,0.24306e+00_rb,0.22789e+00_rb /)\n      kao(:,13,15) = (/ &\n        & 0.25655e+00_rb,0.23731e+00_rb,0.22092e+00_rb,0.20639e+00_rb,0.19367e+00_rb /)\n      kao(:, 1,16) = (/ &\n        & 0.80810e+02_rb,0.81099e+02_rb,0.81190e+02_rb,0.81107e+02_rb,0.80989e+02_rb /)\n      kao(:, 2,16) = (/ &\n        & 0.99319e+02_rb,0.99708e+02_rb,0.99822e+02_rb,0.99871e+02_rb,0.99993e+02_rb /)\n      kao(:, 3,16) = (/ &\n        & 0.46927e+02_rb,0.54316e+02_rb,0.57355e+02_rb,0.53715e+02_rb,0.52802e+02_rb /)\n      kao(:, 4,16) = (/ &\n        & 0.12802e-02_rb,0.12027e-02_rb,0.11386e-02_rb,0.10866e-02_rb,0.10525e-02_rb /)\n      kao(:, 5,16) = (/ &\n        & 0.21675e-02_rb,0.20715e-02_rb,0.19422e-02_rb,0.18402e-02_rb,0.17681e-02_rb /)\n      kao(:, 6,16) = (/ &\n        & 0.34707e-02_rb,0.32796e-02_rb,0.30986e-02_rb,0.29246e-02_rb,0.28034e-02_rb /)\n      kao(:, 7,16) = (/ &\n        & 0.58659e-02_rb,0.55310e-02_rb,0.51820e-02_rb,0.48829e-02_rb,0.46784e-02_rb /)\n      kao(:, 8,16) = (/ &\n        & 0.11875e-01_rb,0.11183e-01_rb,0.10438e-01_rb,0.98038e-02_rb,0.93665e-02_rb /)\n      kao(:, 9,16) = (/ &\n        & 0.45519e-01_rb,0.42850e-01_rb,0.39715e-01_rb,0.37447e-01_rb,0.35369e-01_rb /)\n      kao(:,10,16) = (/ &\n        & 0.19392e+00_rb,0.18108e+00_rb,0.16817e+00_rb,0.15883e+00_rb,0.14864e+00_rb /)\n      kao(:,11,16) = (/ &\n        & 0.27830e+00_rb,0.25715e+00_rb,0.24100e+00_rb,0.22595e+00_rb,0.21321e+00_rb /)\n      kao(:,12,16) = (/ &\n        & 0.29533e+00_rb,0.27422e+00_rb,0.25636e+00_rb,0.23936e+00_rb,0.22658e+00_rb /)\n      kao(:,13,16) = (/ &\n        & 0.25310e+00_rb,0.23535e+00_rb,0.21855e+00_rb,0.20552e+00_rb,0.19293e+00_rb /)\n  \n!     -----------------------------------------------------------------\n!     The array KBO contains absorption coefs at the 16 chosen g-values \n!     for a range of pressure levels < ~100mb and temperatures. The first \n!     index in the array, JT, which runs from 1 to 5, corresponds to \n!     different temperatures.  More specifically, JT = 3 means that the \n!     data are for the reference temperature TREF for this pressure \n!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for\n!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  \n!     The second index, JP, runs from 13 to 59 and refers to the JPth\n!     reference pressure level (see taumol.f for the value of these\n!     pressure levels in mb).  The third index, IG, goes from 1 to 16,\n!     and tells us which g-interval the absorption coefficients are for.\n!     -----------------------------------------------------------------\n\n      kbo(:,13, 1) = (/ &\n        & 0.18379e-05_rb,0.23296e-05_rb,0.29007e-05_rb,0.35902e-05_rb,0.43437e-05_rb /)\n      kbo(:,14, 1) = (/ &\n        & 0.15919e-05_rb,0.19832e-05_rb,0.24720e-05_rb,0.30683e-05_rb,0.37253e-05_rb /)\n      kbo(:,15, 1) = (/ &\n        & 0.13850e-05_rb,0.17115e-05_rb,0.21225e-05_rb,0.26292e-05_rb,0.31945e-05_rb /)\n      kbo(:,16, 1) = (/ &\n        & 0.11896e-05_rb,0.14680e-05_rb,0.18142e-05_rb,0.22537e-05_rb,0.27284e-05_rb /)\n      kbo(:,17, 1) = (/ &\n        & 0.10228e-05_rb,0.12597e-05_rb,0.15532e-05_rb,0.19272e-05_rb,0.23163e-05_rb /)\n      kbo(:,18, 1) = (/ &\n        & 0.88243e-06_rb,0.10835e-05_rb,0.13316e-05_rb,0.16603e-05_rb,0.19808e-05_rb /)\n      kbo(:,19, 1) = (/ &\n        & 0.75677e-06_rb,0.92925e-06_rb,0.11401e-05_rb,0.14107e-05_rb,0.16901e-05_rb /)\n      kbo(:,20, 1) = (/ &\n        & 0.64614e-06_rb,0.79361e-06_rb,0.97353e-06_rb,0.11964e-05_rb,0.14414e-05_rb /)\n      kbo(:,21, 1) = (/ &\n        & 0.55323e-06_rb,0.67580e-06_rb,0.82647e-06_rb,0.10137e-05_rb,0.12318e-05_rb /)\n      kbo(:,22, 1) = (/ &\n        & 0.47719e-06_rb,0.58149e-06_rb,0.71060e-06_rb,0.87005e-06_rb,0.10605e-05_rb /)\n      kbo(:,23, 1) = (/ &\n        & 0.41128e-06_rb,0.50080e-06_rb,0.61104e-06_rb,0.75347e-06_rb,0.91200e-06_rb /)\n      kbo(:,24, 1) = (/ &\n        & 0.35306e-06_rb,0.42860e-06_rb,0.52320e-06_rb,0.65156e-06_rb,0.78122e-06_rb /)\n      kbo(:,25, 1) = (/ &\n        & 0.30363e-06_rb,0.36731e-06_rb,0.44673e-06_rb,0.56097e-06_rb,0.66791e-06_rb /)\n      kbo(:,26, 1) = (/ &\n        & 0.26073e-06_rb,0.31537e-06_rb,0.38738e-06_rb,0.48210e-06_rb,0.57382e-06_rb /)\n      kbo(:,27, 1) = (/ &\n        & 0.22303e-06_rb,0.26986e-06_rb,0.33628e-06_rb,0.41161e-06_rb,0.48722e-06_rb /)\n      kbo(:,28, 1) = (/ &\n        & 0.18954e-06_rb,0.22952e-06_rb,0.28797e-06_rb,0.35166e-06_rb,0.41440e-06_rb /)\n      kbo(:,29, 1) = (/ &\n        & 0.16106e-06_rb,0.19430e-06_rb,0.24661e-06_rb,0.29815e-06_rb,0.35151e-06_rb /)\n      kbo(:,30, 1) = (/ &\n        & 0.13630e-06_rb,0.16528e-06_rb,0.20922e-06_rb,0.25193e-06_rb,0.29913e-06_rb /)\n      kbo(:,31, 1) = (/ &\n        & 0.11504e-06_rb,0.14276e-06_rb,0.17807e-06_rb,0.21482e-06_rb,0.25451e-06_rb /)\n      kbo(:,32, 1) = (/ &\n        & 0.96980e-07_rb,0.12215e-06_rb,0.15159e-06_rb,0.18179e-06_rb,0.21515e-06_rb /)\n      kbo(:,33, 1) = (/ &\n        & 0.81598e-07_rb,0.10315e-06_rb,0.12730e-06_rb,0.15190e-06_rb,0.18093e-06_rb /)\n      kbo(:,34, 1) = (/ &\n        & 0.67700e-07_rb,0.85970e-07_rb,0.10559e-06_rb,0.12608e-06_rb,0.15006e-06_rb /)\n      kbo(:,35, 1) = (/ &\n        & 0.55177e-07_rb,0.69519e-07_rb,0.85967e-07_rb,0.10223e-06_rb,0.12147e-06_rb /)\n      kbo(:,36, 1) = (/ &\n        & 0.43924e-07_rb,0.54395e-07_rb,0.67998e-07_rb,0.81142e-07_rb,0.95717e-07_rb /)\n      kbo(:,37, 1) = (/ &\n        & 0.34469e-07_rb,0.41036e-07_rb,0.52575e-07_rb,0.63117e-07_rb,0.74301e-07_rb /)\n      kbo(:,38, 1) = (/ &\n        & 0.26777e-07_rb,0.31734e-07_rb,0.40555e-07_rb,0.49032e-07_rb,0.57653e-07_rb /)\n      kbo(:,39, 1) = (/ &\n        & 0.20670e-07_rb,0.24721e-07_rb,0.30685e-07_rb,0.37873e-07_rb,0.44555e-07_rb /)\n      kbo(:,40, 1) = (/ &\n        & 0.15860e-07_rb,0.19032e-07_rb,0.22612e-07_rb,0.28845e-07_rb,0.34246e-07_rb /)\n      kbo(:,41, 1) = (/ &\n        & 0.12129e-07_rb,0.14603e-07_rb,0.17357e-07_rb,0.21851e-07_rb,0.26346e-07_rb /)\n      kbo(:,42, 1) = (/ &\n        & 0.92319e-08_rb,0.11199e-07_rb,0.13365e-07_rb,0.16174e-07_rb,0.20019e-07_rb /)\n      kbo(:,43, 1) = (/ &\n        & 0.69289e-08_rb,0.84537e-08_rb,0.10159e-07_rb,0.11992e-07_rb,0.14940e-07_rb /)\n      kbo(:,44, 1) = (/ &\n        & 0.51546e-08_rb,0.63380e-08_rb,0.76593e-08_rb,0.90562e-08_rb,0.10716e-07_rb /)\n      kbo(:,45, 1) = (/ &\n        & 0.38335e-08_rb,0.47085e-08_rb,0.57219e-08_rb,0.68148e-08_rb,0.79518e-08_rb /)\n      kbo(:,46, 1) = (/ &\n        & 0.28583e-08_rb,0.34724e-08_rb,0.42447e-08_rb,0.50888e-08_rb,0.59494e-08_rb /)\n      kbo(:,47, 1) = (/ &\n        & 0.20945e-08_rb,0.25418e-08_rb,0.31058e-08_rb,0.37494e-08_rb,0.44274e-08_rb /)\n      kbo(:,48, 1) = (/ &\n        & 0.15164e-08_rb,0.18560e-08_rb,0.22628e-08_rb,0.27371e-08_rb,0.32773e-08_rb /)\n      kbo(:,49, 1) = (/ &\n        & 0.10916e-08_rb,0.13465e-08_rb,0.16387e-08_rb,0.19740e-08_rb,0.23865e-08_rb /)\n      kbo(:,50, 1) = (/ &\n        & 0.78324e-09_rb,0.98361e-09_rb,0.11977e-08_rb,0.14517e-08_rb,0.17457e-08_rb /)\n      kbo(:,51, 1) = (/ &\n        & 0.57263e-09_rb,0.71786e-09_rb,0.87689e-09_rb,0.10705e-08_rb,0.12881e-08_rb /)\n      kbo(:,52, 1) = (/ &\n        & 0.41574e-09_rb,0.51264e-09_rb,0.64152e-09_rb,0.78315e-09_rb,0.94705e-09_rb /)\n      kbo(:,53, 1) = (/ &\n        & 0.29940e-09_rb,0.36836e-09_rb,0.45886e-09_rb,0.56405e-09_rb,0.69166e-09_rb /)\n      kbo(:,54, 1) = (/ &\n        & 0.22617e-09_rb,0.27395e-09_rb,0.33754e-09_rb,0.42095e-09_rb,0.51544e-09_rb /)\n      kbo(:,55, 1) = (/ &\n        & 0.17483e-09_rb,0.20845e-09_rb,0.25546e-09_rb,0.31817e-09_rb,0.39119e-09_rb /)\n      kbo(:,56, 1) = (/ &\n        & 0.13496e-09_rb,0.15930e-09_rb,0.19380e-09_rb,0.23861e-09_rb,0.29770e-09_rb /)\n      kbo(:,57, 1) = (/ &\n        & 0.10406e-09_rb,0.12247e-09_rb,0.14749e-09_rb,0.18078e-09_rb,0.22597e-09_rb /)\n      kbo(:,58, 1) = (/ &\n        & 0.81345e-10_rb,0.94816e-10_rb,0.11329e-09_rb,0.13832e-09_rb,0.17161e-09_rb /)\n      kbo(:,59, 1) = (/ &\n        & 0.67159e-10_rb,0.78312e-10_rb,0.94745e-10_rb,0.11544e-09_rb,0.14442e-09_rb /)\n      kbo(:,13, 2) = (/ &\n        & 0.16654e-04_rb,0.18728e-04_rb,0.21238e-04_rb,0.24491e-04_rb,0.29038e-04_rb /)\n      kbo(:,14, 2) = (/ &\n        & 0.15636e-04_rb,0.17574e-04_rb,0.19918e-04_rb,0.23671e-04_rb,0.27237e-04_rb /)\n      kbo(:,15, 2) = (/ &\n        & 0.14853e-04_rb,0.16629e-04_rb,0.19700e-04_rb,0.22604e-04_rb,0.25586e-04_rb /)\n      kbo(:,16, 2) = (/ &\n        & 0.13519e-04_rb,0.15923e-04_rb,0.18289e-04_rb,0.20530e-04_rb,0.22799e-04_rb /)\n      kbo(:,17, 2) = (/ &\n        & 0.12411e-04_rb,0.14439e-04_rb,0.16431e-04_rb,0.18235e-04_rb,0.20109e-04_rb /)\n      kbo(:,18, 2) = (/ &\n        & 0.11267e-04_rb,0.12880e-04_rb,0.14429e-04_rb,0.16005e-04_rb,0.17538e-04_rb /)\n      kbo(:,19, 2) = (/ &\n        & 0.10025e-04_rb,0.11332e-04_rb,0.12550e-04_rb,0.13853e-04_rb,0.15103e-04_rb /)\n      kbo(:,20, 2) = (/ &\n        & 0.86342e-05_rb,0.97455e-05_rb,0.10778e-04_rb,0.11898e-04_rb,0.12789e-04_rb /)\n      kbo(:,21, 2) = (/ &\n        & 0.74004e-05_rb,0.83107e-05_rb,0.91633e-05_rb,0.10071e-04_rb,0.10674e-04_rb /)\n      kbo(:,22, 2) = (/ &\n        & 0.63700e-05_rb,0.70549e-05_rb,0.78271e-05_rb,0.85170e-05_rb,0.90022e-05_rb /)\n      kbo(:,23, 2) = (/ &\n        & 0.54404e-05_rb,0.60156e-05_rb,0.66393e-05_rb,0.71320e-05_rb,0.75007e-05_rb /)\n      kbo(:,24, 2) = (/ &\n        & 0.45997e-05_rb,0.50718e-05_rb,0.55713e-05_rb,0.59455e-05_rb,0.62118e-05_rb /)\n      kbo(:,25, 2) = (/ &\n        & 0.38745e-05_rb,0.42617e-05_rb,0.46479e-05_rb,0.49297e-05_rb,0.51638e-05_rb /)\n      kbo(:,26, 2) = (/ &\n        & 0.32488e-05_rb,0.35592e-05_rb,0.38685e-05_rb,0.40759e-05_rb,0.43092e-05_rb /)\n      kbo(:,27, 2) = (/ &\n        & 0.26995e-05_rb,0.29601e-05_rb,0.32065e-05_rb,0.33666e-05_rb,0.35609e-05_rb /)\n      kbo(:,28, 2) = (/ &\n        & 0.22359e-05_rb,0.24429e-05_rb,0.26408e-05_rb,0.27752e-05_rb,0.29293e-05_rb /)\n      kbo(:,29, 2) = (/ &\n        & 0.18487e-05_rb,0.20089e-05_rb,0.21668e-05_rb,0.22793e-05_rb,0.24029e-05_rb /)\n      kbo(:,30, 2) = (/ &\n        & 0.15291e-05_rb,0.16589e-05_rb,0.17733e-05_rb,0.18706e-05_rb,0.19584e-05_rb /)\n      kbo(:,31, 2) = (/ &\n        & 0.12554e-05_rb,0.13589e-05_rb,0.14436e-05_rb,0.15195e-05_rb,0.15928e-05_rb /)\n      kbo(:,32, 2) = (/ &\n        & 0.10248e-05_rb,0.11046e-05_rb,0.11716e-05_rb,0.12288e-05_rb,0.12916e-05_rb /)\n      kbo(:,33, 2) = (/ &\n        & 0.83272e-06_rb,0.89120e-06_rb,0.95036e-06_rb,0.99040e-06_rb,0.10409e-05_rb /)\n      kbo(:,34, 2) = (/ &\n        & 0.67518e-06_rb,0.72097e-06_rb,0.76854e-06_rb,0.80246e-06_rb,0.83912e-06_rb /)\n      kbo(:,35, 2) = (/ &\n        & 0.53577e-06_rb,0.57870e-06_rb,0.61715e-06_rb,0.64987e-06_rb,0.67220e-06_rb /)\n      kbo(:,36, 2) = (/ &\n        & 0.42402e-06_rb,0.45825e-06_rb,0.49307e-06_rb,0.52005e-06_rb,0.54029e-06_rb /)\n      kbo(:,37, 2) = (/ &\n        & 0.33419e-06_rb,0.36213e-06_rb,0.38911e-06_rb,0.41359e-06_rb,0.43177e-06_rb /)\n      kbo(:,38, 2) = (/ &\n        & 0.26240e-06_rb,0.28355e-06_rb,0.30530e-06_rb,0.32881e-06_rb,0.34617e-06_rb /)\n      kbo(:,39, 2) = (/ &\n        & 0.20468e-06_rb,0.22245e-06_rb,0.23980e-06_rb,0.25776e-06_rb,0.27424e-06_rb /)\n      kbo(:,40, 2) = (/ &\n        & 0.16070e-06_rb,0.17478e-06_rb,0.18856e-06_rb,0.20230e-06_rb,0.21801e-06_rb /)\n      kbo(:,41, 2) = (/ &\n        & 0.12583e-06_rb,0.13680e-06_rb,0.14851e-06_rb,0.15917e-06_rb,0.17184e-06_rb /)\n      kbo(:,42, 2) = (/ &\n        & 0.98494e-07_rb,0.10639e-06_rb,0.11634e-06_rb,0.12500e-06_rb,0.13490e-06_rb /)\n      kbo(:,43, 2) = (/ &\n        & 0.75196e-07_rb,0.82809e-07_rb,0.90095e-07_rb,0.97952e-07_rb,0.10509e-06_rb /)\n      kbo(:,44, 2) = (/ &\n        & 0.57305e-07_rb,0.63787e-07_rb,0.69227e-07_rb,0.75635e-07_rb,0.81687e-07_rb /)\n      kbo(:,45, 2) = (/ &\n        & 0.42965e-07_rb,0.48245e-07_rb,0.53346e-07_rb,0.58061e-07_rb,0.63120e-07_rb /)\n      kbo(:,46, 2) = (/ &\n        & 0.31048e-07_rb,0.36457e-07_rb,0.40514e-07_rb,0.44557e-07_rb,0.48550e-07_rb /)\n      kbo(:,47, 2) = (/ &\n        & 0.23094e-07_rb,0.26356e-07_rb,0.30443e-07_rb,0.33954e-07_rb,0.36789e-07_rb /)\n      kbo(:,48, 2) = (/ &\n        & 0.16858e-07_rb,0.19402e-07_rb,0.22449e-07_rb,0.25401e-07_rb,0.28254e-07_rb /)\n      kbo(:,49, 2) = (/ &\n        & 0.11413e-07_rb,0.14055e-07_rb,0.16046e-07_rb,0.18927e-07_rb,0.21080e-07_rb /)\n      kbo(:,50, 2) = (/ &\n        & 0.78650e-08_rb,0.99879e-08_rb,0.11846e-07_rb,0.13654e-07_rb,0.15871e-07_rb /)\n      kbo(:,51, 2) = (/ &\n        & 0.55417e-08_rb,0.68977e-08_rb,0.87006e-08_rb,0.10108e-07_rb,0.11829e-07_rb /)\n      kbo(:,52, 2) = (/ &\n        & 0.39143e-08_rb,0.48025e-08_rb,0.60180e-08_rb,0.73762e-08_rb,0.85851e-08_rb /)\n      kbo(:,53, 2) = (/ &\n        & 0.27637e-08_rb,0.33397e-08_rb,0.41996e-08_rb,0.52787e-08_rb,0.62923e-08_rb /)\n      kbo(:,54, 2) = (/ &\n        & 0.19691e-08_rb,0.24529e-08_rb,0.30071e-08_rb,0.38041e-08_rb,0.46981e-08_rb /)\n      kbo(:,55, 2) = (/ &\n        & 0.13034e-08_rb,0.18257e-08_rb,0.22359e-08_rb,0.28210e-08_rb,0.35386e-08_rb /)\n      kbo(:,56, 2) = (/ &\n        & 0.10026e-08_rb,0.13422e-08_rb,0.16687e-08_rb,0.20793e-08_rb,0.26054e-08_rb /)\n      kbo(:,57, 2) = (/ &\n        & 0.77730e-09_rb,0.91190e-09_rb,0.12468e-08_rb,0.15302e-08_rb,0.19418e-08_rb /)\n      kbo(:,58, 2) = (/ &\n        & 0.60359e-09_rb,0.67848e-09_rb,0.92414e-09_rb,0.11511e-08_rb,0.14401e-08_rb /)\n      kbo(:,59, 2) = (/ &\n        & 0.50441e-09_rb,0.56797e-09_rb,0.77369e-09_rb,0.95612e-09_rb,0.11957e-08_rb /)\n      kbo(:,13, 3) = (/ &\n        & 0.98124e-04_rb,0.10149e-03_rb,0.10303e-03_rb,0.10669e-03_rb,0.10870e-03_rb /)\n      kbo(:,14, 3) = (/ &\n        & 0.88110e-04_rb,0.89730e-04_rb,0.90679e-04_rb,0.91892e-04_rb,0.91413e-04_rb /)\n      kbo(:,15, 3) = (/ &\n        & 0.78555e-04_rb,0.78633e-04_rb,0.79145e-04_rb,0.77689e-04_rb,0.77791e-04_rb /)\n      kbo(:,16, 3) = (/ &\n        & 0.67245e-04_rb,0.67743e-04_rb,0.66690e-04_rb,0.65765e-04_rb,0.65950e-04_rb /)\n      kbo(:,17, 3) = (/ &\n        & 0.57553e-04_rb,0.57490e-04_rb,0.56012e-04_rb,0.55634e-04_rb,0.56016e-04_rb /)\n      kbo(:,18, 3) = (/ &\n        & 0.49729e-04_rb,0.48302e-04_rb,0.47418e-04_rb,0.47262e-04_rb,0.47732e-04_rb /)\n      kbo(:,19, 3) = (/ &\n        & 0.42101e-04_rb,0.40906e-04_rb,0.40541e-04_rb,0.40229e-04_rb,0.40671e-04_rb /)\n      kbo(:,20, 3) = (/ &\n        & 0.35046e-04_rb,0.34193e-04_rb,0.34032e-04_rb,0.33881e-04_rb,0.34691e-04_rb /)\n      kbo(:,21, 3) = (/ &\n        & 0.29192e-04_rb,0.28813e-04_rb,0.28525e-04_rb,0.28485e-04_rb,0.29764e-04_rb /)\n      kbo(:,22, 3) = (/ &\n        & 0.24212e-04_rb,0.23970e-04_rb,0.23804e-04_rb,0.23947e-04_rb,0.24310e-04_rb /)\n      kbo(:,23, 3) = (/ &\n        & 0.20167e-04_rb,0.19961e-04_rb,0.19837e-04_rb,0.20528e-04_rb,0.19887e-04_rb /)\n      kbo(:,24, 3) = (/ &\n        & 0.16817e-04_rb,0.16624e-04_rb,0.16525e-04_rb,0.17263e-04_rb,0.16481e-04_rb /)\n      kbo(:,25, 3) = (/ &\n        & 0.13896e-04_rb,0.13806e-04_rb,0.13810e-04_rb,0.14348e-04_rb,0.13634e-04_rb /)\n      kbo(:,26, 3) = (/ &\n        & 0.11515e-04_rb,0.11474e-04_rb,0.11553e-04_rb,0.11705e-04_rb,0.11167e-04_rb /)\n      kbo(:,27, 3) = (/ &\n        & 0.95004e-05_rb,0.94543e-05_rb,0.95650e-05_rb,0.95316e-05_rb,0.91651e-05_rb /)\n      kbo(:,28, 3) = (/ &\n        & 0.78135e-05_rb,0.77862e-05_rb,0.78715e-05_rb,0.77825e-05_rb,0.74877e-05_rb /)\n      kbo(:,29, 3) = (/ &\n        & 0.63615e-05_rb,0.63601e-05_rb,0.64198e-05_rb,0.63507e-05_rb,0.61200e-05_rb /)\n      kbo(:,30, 3) = (/ &\n        & 0.51738e-05_rb,0.51781e-05_rb,0.52250e-05_rb,0.51709e-05_rb,0.50243e-05_rb /)\n      kbo(:,31, 3) = (/ &\n        & 0.41825e-05_rb,0.42240e-05_rb,0.42510e-05_rb,0.42241e-05_rb,0.41058e-05_rb /)\n      kbo(:,32, 3) = (/ &\n        & 0.34024e-05_rb,0.34302e-05_rb,0.34514e-05_rb,0.34436e-05_rb,0.33474e-05_rb /)\n      kbo(:,33, 3) = (/ &\n        & 0.27510e-05_rb,0.27828e-05_rb,0.28059e-05_rb,0.28125e-05_rb,0.27394e-05_rb /)\n      kbo(:,34, 3) = (/ &\n        & 0.22195e-05_rb,0.22517e-05_rb,0.22743e-05_rb,0.22728e-05_rb,0.22254e-05_rb /)\n      kbo(:,35, 3) = (/ &\n        & 0.18029e-05_rb,0.18238e-05_rb,0.18432e-05_rb,0.18461e-05_rb,0.18241e-05_rb /)\n      kbo(:,36, 3) = (/ &\n        & 0.14477e-05_rb,0.14734e-05_rb,0.14936e-05_rb,0.15116e-05_rb,0.14874e-05_rb /)\n      kbo(:,37, 3) = (/ &\n        & 0.11637e-05_rb,0.11929e-05_rb,0.12098e-05_rb,0.12265e-05_rb,0.12076e-05_rb /)\n      kbo(:,38, 3) = (/ &\n        & 0.93292e-06_rb,0.96246e-06_rb,0.98169e-06_rb,0.99435e-06_rb,0.98749e-06_rb /)\n      kbo(:,39, 3) = (/ &\n        & 0.74927e-06_rb,0.76742e-06_rb,0.79020e-06_rb,0.80604e-06_rb,0.81415e-06_rb /)\n      kbo(:,40, 3) = (/ &\n        & 0.60479e-06_rb,0.61743e-06_rb,0.63973e-06_rb,0.65295e-06_rb,0.66261e-06_rb /)\n      kbo(:,41, 3) = (/ &\n        & 0.48450e-06_rb,0.49742e-06_rb,0.51366e-06_rb,0.52876e-06_rb,0.53813e-06_rb /)\n      kbo(:,42, 3) = (/ &\n        & 0.38298e-06_rb,0.40088e-06_rb,0.41192e-06_rb,0.42651e-06_rb,0.43595e-06_rb /)\n      kbo(:,43, 3) = (/ &\n        & 0.30310e-06_rb,0.31905e-06_rb,0.32907e-06_rb,0.34154e-06_rb,0.35007e-06_rb /)\n      kbo(:,44, 3) = (/ &\n        & 0.23745e-06_rb,0.25035e-06_rb,0.26224e-06_rb,0.27145e-06_rb,0.28146e-06_rb /)\n      kbo(:,45, 3) = (/ &\n        & 0.18653e-06_rb,0.19510e-06_rb,0.20644e-06_rb,0.21510e-06_rb,0.22354e-06_rb /)\n      kbo(:,46, 3) = (/ &\n        & 0.14759e-06_rb,0.15322e-06_rb,0.16145e-06_rb,0.17034e-06_rb,0.17744e-06_rb /)\n      kbo(:,47, 3) = (/ &\n        & 0.11410e-06_rb,0.12007e-06_rb,0.12507e-06_rb,0.13237e-06_rb,0.13995e-06_rb /)\n      kbo(:,48, 3) = (/ &\n        & 0.88327e-07_rb,0.93967e-07_rb,0.97683e-07_rb,0.10257e-06_rb,0.10921e-06_rb /)\n      kbo(:,49, 3) = (/ &\n        & 0.66715e-07_rb,0.72172e-07_rb,0.76442e-07_rb,0.79214e-07_rb,0.84006e-07_rb /)\n      kbo(:,50, 3) = (/ &\n        & 0.51458e-07_rb,0.55761e-07_rb,0.59239e-07_rb,0.62292e-07_rb,0.64470e-07_rb /)\n      kbo(:,51, 3) = (/ &\n        & 0.39957e-07_rb,0.42400e-07_rb,0.45870e-07_rb,0.48592e-07_rb,0.50287e-07_rb /)\n      kbo(:,52, 3) = (/ &\n        & 0.31150e-07_rb,0.32725e-07_rb,0.35598e-07_rb,0.37633e-07_rb,0.39607e-07_rb /)\n      kbo(:,53, 3) = (/ &\n        & 0.23783e-07_rb,0.25415e-07_rb,0.26634e-07_rb,0.28885e-07_rb,0.30620e-07_rb /)\n      kbo(:,54, 3) = (/ &\n        & 0.18531e-07_rb,0.19938e-07_rb,0.20988e-07_rb,0.22678e-07_rb,0.23867e-07_rb /)\n      kbo(:,55, 3) = (/ &\n        & 0.14810e-07_rb,0.15772e-07_rb,0.16651e-07_rb,0.17727e-07_rb,0.18861e-07_rb /)\n      kbo(:,56, 3) = (/ &\n        & 0.11652e-07_rb,0.12557e-07_rb,0.13319e-07_rb,0.13930e-07_rb,0.15077e-07_rb /)\n      kbo(:,57, 3) = (/ &\n        & 0.91523e-08_rb,0.99835e-08_rb,0.10603e-07_rb,0.11081e-07_rb,0.11999e-07_rb /)\n      kbo(:,58, 3) = (/ &\n        & 0.72383e-08_rb,0.79060e-08_rb,0.84489e-08_rb,0.88615e-08_rb,0.94456e-08_rb /)\n      kbo(:,59, 3) = (/ &\n        & 0.60315e-08_rb,0.65931e-08_rb,0.71001e-08_rb,0.74012e-08_rb,0.78761e-08_rb /)\n      kbo(:,13, 4) = (/ &\n        & 0.21882e-03_rb,0.20968e-03_rb,0.18648e-03_rb,0.17505e-03_rb,0.17320e-03_rb /)\n      kbo(:,14, 4) = (/ &\n        & 0.19140e-03_rb,0.17026e-03_rb,0.15903e-03_rb,0.15552e-03_rb,0.16009e-03_rb /)\n      kbo(:,15, 4) = (/ &\n        & 0.16003e-03_rb,0.14531e-03_rb,0.14007e-03_rb,0.14511e-03_rb,0.14619e-03_rb /)\n      kbo(:,16, 4) = (/ &\n        & 0.13387e-03_rb,0.12423e-03_rb,0.12444e-03_rb,0.12743e-03_rb,0.12749e-03_rb /)\n      kbo(:,17, 4) = (/ &\n        & 0.11266e-03_rb,0.10780e-03_rb,0.11110e-03_rb,0.11051e-03_rb,0.11075e-03_rb /)\n      kbo(:,18, 4) = (/ &\n        & 0.96156e-04_rb,0.95617e-04_rb,0.96775e-04_rb,0.96220e-04_rb,0.96078e-04_rb /)\n      kbo(:,19, 4) = (/ &\n        & 0.82712e-04_rb,0.82946e-04_rb,0.83265e-04_rb,0.82827e-04_rb,0.82044e-04_rb /)\n      kbo(:,20, 4) = (/ &\n        & 0.71080e-04_rb,0.71167e-04_rb,0.71040e-04_rb,0.70443e-04_rb,0.69069e-04_rb /)\n      kbo(:,21, 4) = (/ &\n        & 0.60110e-04_rb,0.60836e-04_rb,0.59994e-04_rb,0.58992e-04_rb,0.57237e-04_rb /)\n      kbo(:,22, 4) = (/ &\n        & 0.50688e-04_rb,0.51296e-04_rb,0.50271e-04_rb,0.48889e-04_rb,0.48471e-04_rb /)\n      kbo(:,23, 4) = (/ &\n        & 0.42706e-04_rb,0.42628e-04_rb,0.41764e-04_rb,0.39999e-04_rb,0.40893e-04_rb /)\n      kbo(:,24, 4) = (/ &\n        & 0.35803e-04_rb,0.35316e-04_rb,0.34535e-04_rb,0.33229e-04_rb,0.34127e-04_rb /)\n      kbo(:,25, 4) = (/ &\n        & 0.29906e-04_rb,0.29201e-04_rb,0.28336e-04_rb,0.27455e-04_rb,0.28044e-04_rb /)\n      kbo(:,26, 4) = (/ &\n        & 0.24659e-04_rb,0.23926e-04_rb,0.23159e-04_rb,0.22827e-04_rb,0.23266e-04_rb /)\n      kbo(:,27, 4) = (/ &\n        & 0.20221e-04_rb,0.19578e-04_rb,0.18838e-04_rb,0.18853e-04_rb,0.19067e-04_rb /)\n      kbo(:,28, 4) = (/ &\n        & 0.16345e-04_rb,0.15913e-04_rb,0.15327e-04_rb,0.15412e-04_rb,0.15560e-04_rb /)\n      kbo(:,29, 4) = (/ &\n        & 0.13195e-04_rb,0.12870e-04_rb,0.12430e-04_rb,0.12518e-04_rb,0.12639e-04_rb /)\n      kbo(:,30, 4) = (/ &\n        & 0.10622e-04_rb,0.10384e-04_rb,0.10068e-04_rb,0.10151e-04_rb,0.10256e-04_rb /)\n      kbo(:,31, 4) = (/ &\n        & 0.85785e-05_rb,0.83523e-05_rb,0.81227e-05_rb,0.81998e-05_rb,0.83313e-05_rb /)\n      kbo(:,32, 4) = (/ &\n        & 0.69114e-05_rb,0.67093e-05_rb,0.65758e-05_rb,0.66222e-05_rb,0.67679e-05_rb /)\n      kbo(:,33, 4) = (/ &\n        & 0.55456e-05_rb,0.54342e-05_rb,0.53229e-05_rb,0.53610e-05_rb,0.54819e-05_rb /)\n      kbo(:,34, 4) = (/ &\n        & 0.44461e-05_rb,0.43891e-05_rb,0.43112e-05_rb,0.43632e-05_rb,0.44560e-05_rb /)\n      kbo(:,35, 4) = (/ &\n        & 0.35725e-05_rb,0.35192e-05_rb,0.34703e-05_rb,0.35075e-05_rb,0.35919e-05_rb /)\n      kbo(:,36, 4) = (/ &\n        & 0.28842e-05_rb,0.28362e-05_rb,0.28143e-05_rb,0.28097e-05_rb,0.29057e-05_rb /)\n      kbo(:,37, 4) = (/ &\n        & 0.23374e-05_rb,0.22987e-05_rb,0.22934e-05_rb,0.22812e-05_rb,0.23451e-05_rb /)\n      kbo(:,38, 4) = (/ &\n        & 0.18966e-05_rb,0.18679e-05_rb,0.18613e-05_rb,0.18437e-05_rb,0.18894e-05_rb /)\n      kbo(:,39, 4) = (/ &\n        & 0.15300e-05_rb,0.15180e-05_rb,0.15096e-05_rb,0.14915e-05_rb,0.15107e-05_rb /)\n      kbo(:,40, 4) = (/ &\n        & 0.12426e-05_rb,0.12357e-05_rb,0.12171e-05_rb,0.12170e-05_rb,0.12227e-05_rb /)\n      kbo(:,41, 4) = (/ &\n        & 0.10102e-05_rb,0.10077e-05_rb,0.98593e-06_rb,0.98478e-06_rb,0.99213e-06_rb /)\n      kbo(:,42, 4) = (/ &\n        & 0.82201e-06_rb,0.81050e-06_rb,0.80313e-06_rb,0.80181e-06_rb,0.80361e-06_rb /)\n      kbo(:,43, 4) = (/ &\n        & 0.67318e-06_rb,0.65347e-06_rb,0.65478e-06_rb,0.64360e-06_rb,0.64722e-06_rb /)\n      kbo(:,44, 4) = (/ &\n        & 0.55598e-06_rb,0.53355e-06_rb,0.52778e-06_rb,0.52097e-06_rb,0.51997e-06_rb /)\n      kbo(:,45, 4) = (/ &\n        & 0.46157e-06_rb,0.43457e-06_rb,0.42412e-06_rb,0.42137e-06_rb,0.41750e-06_rb /)\n      kbo(:,46, 4) = (/ &\n        & 0.39156e-06_rb,0.35690e-06_rb,0.34498e-06_rb,0.33995e-06_rb,0.33614e-06_rb /)\n      kbo(:,47, 4) = (/ &\n        & 0.33392e-06_rb,0.29746e-06_rb,0.28074e-06_rb,0.27344e-06_rb,0.27079e-06_rb /)\n      kbo(:,48, 4) = (/ &\n        & 0.27066e-06_rb,0.25369e-06_rb,0.23115e-06_rb,0.22213e-06_rb,0.21766e-06_rb /)\n      kbo(:,49, 4) = (/ &\n        & 0.22198e-06_rb,0.21395e-06_rb,0.19274e-06_rb,0.18040e-06_rb,0.17542e-06_rb /)\n      kbo(:,50, 4) = (/ &\n        & 0.18070e-06_rb,0.17367e-06_rb,0.16473e-06_rb,0.14916e-06_rb,0.14306e-06_rb /)\n      kbo(:,51, 4) = (/ &\n        & 0.14595e-06_rb,0.14287e-06_rb,0.13847e-06_rb,0.12418e-06_rb,0.11697e-06_rb /)\n      kbo(:,52, 4) = (/ &\n        & 0.11819e-06_rb,0.11588e-06_rb,0.11225e-06_rb,0.10604e-06_rb,0.96269e-07_rb /)\n      kbo(:,53, 4) = (/ &\n        & 0.95028e-07_rb,0.93094e-07_rb,0.91303e-07_rb,0.88900e-07_rb,0.80262e-07_rb /)\n      kbo(:,54, 4) = (/ &\n        & 0.77005e-07_rb,0.76238e-07_rb,0.74228e-07_rb,0.72526e-07_rb,0.67965e-07_rb /)\n      kbo(:,55, 4) = (/ &\n        & 0.62979e-07_rb,0.62692e-07_rb,0.60930e-07_rb,0.59579e-07_rb,0.57700e-07_rb /)\n      kbo(:,56, 4) = (/ &\n        & 0.51571e-07_rb,0.51196e-07_rb,0.50031e-07_rb,0.48916e-07_rb,0.48127e-07_rb /)\n      kbo(:,57, 4) = (/ &\n        & 0.42602e-07_rb,0.41678e-07_rb,0.41006e-07_rb,0.39709e-07_rb,0.39283e-07_rb /)\n      kbo(:,58, 4) = (/ &\n        & 0.35155e-07_rb,0.34052e-07_rb,0.33561e-07_rb,0.32395e-07_rb,0.32057e-07_rb /)\n      kbo(:,59, 4) = (/ &\n        & 0.29318e-07_rb,0.28516e-07_rb,0.28097e-07_rb,0.26888e-07_rb,0.26840e-07_rb /)\n      kbo(:,13, 5) = (/ &\n        & 0.43718e-03_rb,0.42279e-03_rb,0.43200e-03_rb,0.42910e-03_rb,0.42775e-03_rb /)\n      kbo(:,14, 5) = (/ &\n        & 0.37902e-03_rb,0.38090e-03_rb,0.38058e-03_rb,0.37637e-03_rb,0.36798e-03_rb /)\n      kbo(:,15, 5) = (/ &\n        & 0.33222e-03_rb,0.33597e-03_rb,0.33205e-03_rb,0.32000e-03_rb,0.31310e-03_rb /)\n      kbo(:,16, 5) = (/ &\n        & 0.28736e-03_rb,0.28700e-03_rb,0.27853e-03_rb,0.26891e-03_rb,0.26391e-03_rb /)\n      kbo(:,17, 5) = (/ &\n        & 0.24534e-03_rb,0.24098e-03_rb,0.23072e-03_rb,0.22519e-03_rb,0.22013e-03_rb /)\n      kbo(:,18, 5) = (/ &\n        & 0.20645e-03_rb,0.20019e-03_rb,0.19266e-03_rb,0.18716e-03_rb,0.18139e-03_rb /)\n      kbo(:,19, 5) = (/ &\n        & 0.17271e-03_rb,0.16642e-03_rb,0.16064e-03_rb,0.15556e-03_rb,0.14951e-03_rb /)\n      kbo(:,20, 5) = (/ &\n        & 0.14266e-03_rb,0.13766e-03_rb,0.13239e-03_rb,0.12767e-03_rb,0.12305e-03_rb /)\n      kbo(:,21, 5) = (/ &\n        & 0.11797e-03_rb,0.11256e-03_rb,0.10880e-03_rb,0.10424e-03_rb,0.10062e-03_rb /)\n      kbo(:,22, 5) = (/ &\n        & 0.97085e-04_rb,0.92101e-04_rb,0.88420e-04_rb,0.85535e-04_rb,0.82201e-04_rb /)\n      kbo(:,23, 5) = (/ &\n        & 0.79380e-04_rb,0.75312e-04_rb,0.72177e-04_rb,0.69710e-04_rb,0.66966e-04_rb /)\n      kbo(:,24, 5) = (/ &\n        & 0.64591e-04_rb,0.61520e-04_rb,0.58891e-04_rb,0.56626e-04_rb,0.54603e-04_rb /)\n      kbo(:,25, 5) = (/ &\n        & 0.52423e-04_rb,0.49934e-04_rb,0.48122e-04_rb,0.46331e-04_rb,0.44875e-04_rb /)\n      kbo(:,26, 5) = (/ &\n        & 0.42528e-04_rb,0.40739e-04_rb,0.39218e-04_rb,0.37806e-04_rb,0.36631e-04_rb /)\n      kbo(:,27, 5) = (/ &\n        & 0.34453e-04_rb,0.33104e-04_rb,0.32009e-04_rb,0.30764e-04_rb,0.30000e-04_rb /)\n      kbo(:,28, 5) = (/ &\n        & 0.28076e-04_rb,0.26948e-04_rb,0.26097e-04_rb,0.25065e-04_rb,0.24596e-04_rb /)\n      kbo(:,29, 5) = (/ &\n        & 0.22814e-04_rb,0.21902e-04_rb,0.21222e-04_rb,0.20350e-04_rb,0.20152e-04_rb /)\n      kbo(:,30, 5) = (/ &\n        & 0.18551e-04_rb,0.17731e-04_rb,0.17162e-04_rb,0.16614e-04_rb,0.16461e-04_rb /)\n      kbo(:,31, 5) = (/ &\n        & 0.15020e-04_rb,0.14383e-04_rb,0.13922e-04_rb,0.13548e-04_rb,0.13388e-04_rb /)\n      kbo(:,32, 5) = (/ &\n        & 0.12091e-04_rb,0.11653e-04_rb,0.11308e-04_rb,0.11033e-04_rb,0.10954e-04_rb /)\n      kbo(:,33, 5) = (/ &\n        & 0.97901e-05_rb,0.93570e-05_rb,0.91428e-05_rb,0.89594e-05_rb,0.89614e-05_rb /)\n      kbo(:,34, 5) = (/ &\n        & 0.79439e-05_rb,0.76095e-05_rb,0.74365e-05_rb,0.73099e-05_rb,0.73269e-05_rb /)\n      kbo(:,35, 5) = (/ &\n        & 0.64505e-05_rb,0.62326e-05_rb,0.60921e-05_rb,0.59939e-05_rb,0.59799e-05_rb /)\n      kbo(:,36, 5) = (/ &\n        & 0.52745e-05_rb,0.51017e-05_rb,0.49658e-05_rb,0.48988e-05_rb,0.48773e-05_rb /)\n      kbo(:,37, 5) = (/ &\n        & 0.43522e-05_rb,0.42053e-05_rb,0.40681e-05_rb,0.40176e-05_rb,0.40058e-05_rb /)\n      kbo(:,38, 5) = (/ &\n        & 0.35676e-05_rb,0.34559e-05_rb,0.33446e-05_rb,0.33017e-05_rb,0.32771e-05_rb /)\n      kbo(:,39, 5) = (/ &\n        & 0.29238e-05_rb,0.28445e-05_rb,0.27512e-05_rb,0.27095e-05_rb,0.26825e-05_rb /)\n      kbo(:,40, 5) = (/ &\n        & 0.23985e-05_rb,0.23437e-05_rb,0.22756e-05_rb,0.22251e-05_rb,0.22009e-05_rb /)\n      kbo(:,41, 5) = (/ &\n        & 0.19763e-05_rb,0.19311e-05_rb,0.18886e-05_rb,0.18370e-05_rb,0.18072e-05_rb /)\n      kbo(:,42, 5) = (/ &\n        & 0.16256e-05_rb,0.15918e-05_rb,0.15558e-05_rb,0.15108e-05_rb,0.14861e-05_rb /)\n      kbo(:,43, 5) = (/ &\n        & 0.13290e-05_rb,0.13116e-05_rb,0.12833e-05_rb,0.12550e-05_rb,0.12262e-05_rb /)\n      kbo(:,44, 5) = (/ &\n        & 0.10777e-05_rb,0.10760e-05_rb,0.10566e-05_rb,0.10365e-05_rb,0.10136e-05_rb /)\n      kbo(:,45, 5) = (/ &\n        & 0.86690e-06_rb,0.87981e-06_rb,0.87044e-06_rb,0.85428e-06_rb,0.83627e-06_rb /)\n      kbo(:,46, 5) = (/ &\n        & 0.68706e-06_rb,0.71088e-06_rb,0.70939e-06_rb,0.70110e-06_rb,0.69032e-06_rb /)\n      kbo(:,47, 5) = (/ &\n        & 0.54665e-06_rb,0.56934e-06_rb,0.58033e-06_rb,0.57830e-06_rb,0.57105e-06_rb /)\n      kbo(:,48, 5) = (/ &\n        & 0.44874e-06_rb,0.44653e-06_rb,0.46650e-06_rb,0.47090e-06_rb,0.46732e-06_rb /)\n      kbo(:,49, 5) = (/ &\n        & 0.36869e-06_rb,0.35456e-06_rb,0.36842e-06_rb,0.37978e-06_rb,0.38217e-06_rb /)\n      kbo(:,50, 5) = (/ &\n        & 0.30489e-06_rb,0.29229e-06_rb,0.29104e-06_rb,0.30430e-06_rb,0.31068e-06_rb /)\n      kbo(:,51, 5) = (/ &\n        & 0.25290e-06_rb,0.24012e-06_rb,0.23271e-06_rb,0.24366e-06_rb,0.25149e-06_rb /)\n      kbo(:,52, 5) = (/ &\n        & 0.21148e-06_rb,0.19715e-06_rb,0.19121e-06_rb,0.19177e-06_rb,0.20148e-06_rb /)\n      kbo(:,53, 5) = (/ &\n        & 0.17334e-06_rb,0.16335e-06_rb,0.15574e-06_rb,0.15266e-06_rb,0.15921e-06_rb /)\n      kbo(:,54, 5) = (/ &\n        & 0.14189e-06_rb,0.13650e-06_rb,0.12781e-06_rb,0.12535e-06_rb,0.12749e-06_rb /)\n      kbo(:,55, 5) = (/ &\n        & 0.11763e-06_rb,0.11398e-06_rb,0.10627e-06_rb,0.10373e-06_rb,0.10268e-06_rb /)\n      kbo(:,56, 5) = (/ &\n        & 0.98316e-07_rb,0.94892e-07_rb,0.88799e-07_rb,0.85036e-07_rb,0.83393e-07_rb /)\n      kbo(:,57, 5) = (/ &\n        & 0.83049e-07_rb,0.78499e-07_rb,0.74140e-07_rb,0.70137e-07_rb,0.68774e-07_rb /)\n      kbo(:,58, 5) = (/ &\n        & 0.71768e-07_rb,0.64682e-07_rb,0.62012e-07_rb,0.58149e-07_rb,0.57037e-07_rb /)\n      kbo(:,59, 5) = (/ &\n        & 0.60166e-07_rb,0.54824e-07_rb,0.52042e-07_rb,0.49198e-07_rb,0.47862e-07_rb /)\n      kbo(:,13, 6) = (/ &\n        & 0.71254e-03_rb,0.65708e-03_rb,0.60824e-03_rb,0.57965e-03_rb,0.55389e-03_rb /)\n      kbo(:,14, 6) = (/ &\n        & 0.58852e-03_rb,0.54811e-03_rb,0.51125e-03_rb,0.48557e-03_rb,0.47730e-03_rb /)\n      kbo(:,15, 6) = (/ &\n        & 0.50599e-03_rb,0.46869e-03_rb,0.44362e-03_rb,0.43503e-03_rb,0.43705e-03_rb /)\n      kbo(:,16, 6) = (/ &\n        & 0.43493e-03_rb,0.40996e-03_rb,0.39680e-03_rb,0.39623e-03_rb,0.40784e-03_rb /)\n      kbo(:,17, 6) = (/ &\n        & 0.38028e-03_rb,0.36175e-03_rb,0.35696e-03_rb,0.36547e-03_rb,0.38127e-03_rb /)\n      kbo(:,18, 6) = (/ &\n        & 0.33113e-03_rb,0.32205e-03_rb,0.32458e-03_rb,0.33502e-03_rb,0.35577e-03_rb /)\n      kbo(:,19, 6) = (/ &\n        & 0.28886e-03_rb,0.29134e-03_rb,0.29799e-03_rb,0.31134e-03_rb,0.33676e-03_rb /)\n      kbo(:,20, 6) = (/ &\n        & 0.25113e-03_rb,0.25555e-03_rb,0.26535e-03_rb,0.28470e-03_rb,0.30677e-03_rb /)\n      kbo(:,21, 6) = (/ &\n        & 0.21640e-03_rb,0.22152e-03_rb,0.23323e-03_rb,0.25467e-03_rb,0.27764e-03_rb /)\n      kbo(:,22, 6) = (/ &\n        & 0.18601e-03_rb,0.19217e-03_rb,0.20696e-03_rb,0.22593e-03_rb,0.24729e-03_rb /)\n      kbo(:,23, 6) = (/ &\n        & 0.15978e-03_rb,0.16833e-03_rb,0.18229e-03_rb,0.19994e-03_rb,0.21913e-03_rb /)\n      kbo(:,24, 6) = (/ &\n        & 0.13748e-03_rb,0.14696e-03_rb,0.16025e-03_rb,0.17620e-03_rb,0.19459e-03_rb /)\n      kbo(:,25, 6) = (/ &\n        & 0.11841e-03_rb,0.12828e-03_rb,0.13998e-03_rb,0.15487e-03_rb,0.17174e-03_rb /)\n      kbo(:,26, 6) = (/ &\n        & 0.10209e-03_rb,0.11175e-03_rb,0.12193e-03_rb,0.13590e-03_rb,0.15125e-03_rb /)\n      kbo(:,27, 6) = (/ &\n        & 0.87003e-04_rb,0.95681e-04_rb,0.10499e-03_rb,0.11744e-03_rb,0.13086e-03_rb /)\n      kbo(:,28, 6) = (/ &\n        & 0.73110e-04_rb,0.80653e-04_rb,0.89103e-04_rb,0.99988e-04_rb,0.11120e-03_rb /)\n      kbo(:,29, 6) = (/ &\n        & 0.60620e-04_rb,0.66736e-04_rb,0.74222e-04_rb,0.82863e-04_rb,0.92471e-04_rb /)\n      kbo(:,30, 6) = (/ &\n        & 0.49831e-04_rb,0.54602e-04_rb,0.61288e-04_rb,0.68281e-04_rb,0.75599e-04_rb /)\n      kbo(:,31, 6) = (/ &\n        & 0.40315e-04_rb,0.44435e-04_rb,0.49703e-04_rb,0.55140e-04_rb,0.60140e-04_rb /)\n      kbo(:,32, 6) = (/ &\n        & 0.32490e-04_rb,0.36020e-04_rb,0.39894e-04_rb,0.44068e-04_rb,0.48080e-04_rb /)\n      kbo(:,33, 6) = (/ &\n        & 0.26085e-04_rb,0.29063e-04_rb,0.32003e-04_rb,0.35074e-04_rb,0.38662e-04_rb /)\n      kbo(:,34, 6) = (/ &\n        & 0.21201e-04_rb,0.23256e-04_rb,0.25636e-04_rb,0.28140e-04_rb,0.31273e-04_rb /)\n      kbo(:,35, 6) = (/ &\n        & 0.17022e-04_rb,0.18534e-04_rb,0.20322e-04_rb,0.22464e-04_rb,0.25109e-04_rb /)\n      kbo(:,36, 6) = (/ &\n        & 0.13427e-04_rb,0.14606e-04_rb,0.16055e-04_rb,0.17783e-04_rb,0.19877e-04_rb /)\n      kbo(:,37, 6) = (/ &\n        & 0.10630e-04_rb,0.11559e-04_rb,0.12731e-04_rb,0.14118e-04_rb,0.15831e-04_rb /)\n      kbo(:,38, 6) = (/ &\n        & 0.84365e-05_rb,0.91300e-05_rb,0.10077e-04_rb,0.11171e-04_rb,0.12568e-04_rb /)\n      kbo(:,39, 6) = (/ &\n        & 0.66762e-05_rb,0.71770e-05_rb,0.79359e-05_rb,0.88044e-05_rb,0.99043e-05_rb /)\n      kbo(:,40, 6) = (/ &\n        & 0.53561e-05_rb,0.57216e-05_rb,0.63210e-05_rb,0.70080e-05_rb,0.79213e-05_rb /)\n      kbo(:,41, 6) = (/ &\n        & 0.42954e-05_rb,0.45692e-05_rb,0.50356e-05_rb,0.56102e-05_rb,0.63394e-05_rb /)\n      kbo(:,42, 6) = (/ &\n        & 0.34409e-05_rb,0.36788e-05_rb,0.40124e-05_rb,0.44898e-05_rb,0.50645e-05_rb /)\n      kbo(:,43, 6) = (/ &\n        & 0.27453e-05_rb,0.29361e-05_rb,0.31651e-05_rb,0.35498e-05_rb,0.40058e-05_rb /)\n      kbo(:,44, 6) = (/ &\n        & 0.21863e-05_rb,0.23320e-05_rb,0.24965e-05_rb,0.27915e-05_rb,0.31593e-05_rb /)\n      kbo(:,45, 6) = (/ &\n        & 0.17409e-05_rb,0.18472e-05_rb,0.19801e-05_rb,0.21812e-05_rb,0.24741e-05_rb /)\n      kbo(:,46, 6) = (/ &\n        & 0.13903e-05_rb,0.14639e-05_rb,0.15660e-05_rb,0.17042e-05_rb,0.19243e-05_rb /)\n      kbo(:,47, 6) = (/ &\n        & 0.11229e-05_rb,0.11661e-05_rb,0.12377e-05_rb,0.13335e-05_rb,0.14898e-05_rb /)\n      kbo(:,48, 6) = (/ &\n        & 0.90528e-06_rb,0.92962e-06_rb,0.97799e-06_rb,0.10483e-05_rb,0.11575e-05_rb /)\n      kbo(:,49, 6) = (/ &\n        & 0.72877e-06_rb,0.74278e-06_rb,0.77380e-06_rb,0.82564e-06_rb,0.89736e-06_rb /)\n      kbo(:,50, 6) = (/ &\n        & 0.59358e-06_rb,0.59955e-06_rb,0.62170e-06_rb,0.65720e-06_rb,0.70771e-06_rb /)\n      kbo(:,51, 6) = (/ &\n        & 0.48783e-06_rb,0.48769e-06_rb,0.50300e-06_rb,0.52655e-06_rb,0.56377e-06_rb /)\n      kbo(:,52, 6) = (/ &\n        & 0.39834e-06_rb,0.39922e-06_rb,0.40604e-06_rb,0.42316e-06_rb,0.45057e-06_rb /)\n      kbo(:,53, 6) = (/ &\n        & 0.33019e-06_rb,0.32505e-06_rb,0.33011e-06_rb,0.33917e-06_rb,0.35858e-06_rb /)\n      kbo(:,54, 6) = (/ &\n        & 0.27829e-06_rb,0.26763e-06_rb,0.27219e-06_rb,0.27714e-06_rb,0.29159e-06_rb /)\n      kbo(:,55, 6) = (/ &\n        & 0.23259e-06_rb,0.22250e-06_rb,0.22510e-06_rb,0.22855e-06_rb,0.23937e-06_rb /)\n      kbo(:,56, 6) = (/ &\n        & 0.19401e-06_rb,0.18605e-06_rb,0.18566e-06_rb,0.18937e-06_rb,0.19605e-06_rb /)\n      kbo(:,57, 6) = (/ &\n        & 0.15908e-06_rb,0.15649e-06_rb,0.15396e-06_rb,0.15754e-06_rb,0.16039e-06_rb /)\n      kbo(:,58, 6) = (/ &\n        & 0.12892e-06_rb,0.13132e-06_rb,0.12793e-06_rb,0.13093e-06_rb,0.13273e-06_rb /)\n      kbo(:,59, 6) = (/ &\n        & 0.11177e-06_rb,0.11165e-06_rb,0.10875e-06_rb,0.11132e-06_rb,0.11431e-06_rb /)\n      kbo(:,13, 7) = (/ &\n        & 0.19357e-02_rb,0.20341e-02_rb,0.21760e-02_rb,0.22982e-02_rb,0.24550e-02_rb /)\n      kbo(:,14, 7) = (/ &\n        & 0.20343e-02_rb,0.21709e-02_rb,0.23192e-02_rb,0.24854e-02_rb,0.27026e-02_rb /)\n      kbo(:,15, 7) = (/ &\n        & 0.21108e-02_rb,0.23009e-02_rb,0.25488e-02_rb,0.28048e-02_rb,0.30159e-02_rb /)\n      kbo(:,16, 7) = (/ &\n        & 0.21016e-02_rb,0.23581e-02_rb,0.25958e-02_rb,0.28093e-02_rb,0.29839e-02_rb /)\n      kbo(:,17, 7) = (/ &\n        & 0.21350e-02_rb,0.23722e-02_rb,0.25718e-02_rb,0.27703e-02_rb,0.30036e-02_rb /)\n      kbo(:,18, 7) = (/ &\n        & 0.21493e-02_rb,0.23550e-02_rb,0.25593e-02_rb,0.27827e-02_rb,0.29722e-02_rb /)\n      kbo(:,19, 7) = (/ &\n        & 0.21677e-02_rb,0.23602e-02_rb,0.25446e-02_rb,0.27267e-02_rb,0.29542e-02_rb /)\n      kbo(:,20, 7) = (/ &\n        & 0.21009e-02_rb,0.22669e-02_rb,0.24261e-02_rb,0.26095e-02_rb,0.28436e-02_rb /)\n      kbo(:,21, 7) = (/ &\n        & 0.19811e-02_rb,0.21249e-02_rb,0.22790e-02_rb,0.24716e-02_rb,0.26844e-02_rb /)\n      kbo(:,22, 7) = (/ &\n        & 0.18393e-02_rb,0.19585e-02_rb,0.21127e-02_rb,0.22962e-02_rb,0.25211e-02_rb /)\n      kbo(:,23, 7) = (/ &\n        & 0.16905e-02_rb,0.18032e-02_rb,0.19594e-02_rb,0.21280e-02_rb,0.23466e-02_rb /)\n      kbo(:,24, 7) = (/ &\n        & 0.15327e-02_rb,0.16542e-02_rb,0.18047e-02_rb,0.19642e-02_rb,0.21591e-02_rb /)\n      kbo(:,25, 7) = (/ &\n        & 0.13831e-02_rb,0.14932e-02_rb,0.16391e-02_rb,0.17921e-02_rb,0.19606e-02_rb /)\n      kbo(:,26, 7) = (/ &\n        & 0.12298e-02_rb,0.13325e-02_rb,0.14676e-02_rb,0.16086e-02_rb,0.17628e-02_rb /)\n      kbo(:,27, 7) = (/ &\n        & 0.10692e-02_rb,0.11652e-02_rb,0.12858e-02_rb,0.14124e-02_rb,0.15514e-02_rb /)\n      kbo(:,28, 7) = (/ &\n        & 0.91706e-03_rb,0.10034e-02_rb,0.11100e-02_rb,0.12231e-02_rb,0.13481e-02_rb /)\n      kbo(:,29, 7) = (/ &\n        & 0.76824e-03_rb,0.84492e-03_rb,0.93654e-03_rb,0.10377e-02_rb,0.11448e-02_rb /)\n      kbo(:,30, 7) = (/ &\n        & 0.63841e-03_rb,0.70573e-03_rb,0.78553e-03_rb,0.87197e-03_rb,0.96607e-03_rb /)\n      kbo(:,31, 7) = (/ &\n        & 0.51979e-03_rb,0.58056e-03_rb,0.64728e-03_rb,0.71891e-03_rb,0.80875e-03_rb /)\n      kbo(:,32, 7) = (/ &\n        & 0.42659e-03_rb,0.47686e-03_rb,0.53347e-03_rb,0.60016e-03_rb,0.67592e-03_rb /)\n      kbo(:,33, 7) = (/ &\n        & 0.34820e-03_rb,0.39030e-03_rb,0.44004e-03_rb,0.49875e-03_rb,0.56492e-03_rb /)\n      kbo(:,34, 7) = (/ &\n        & 0.28753e-03_rb,0.32477e-03_rb,0.36831e-03_rb,0.41989e-03_rb,0.47708e-03_rb /)\n      kbo(:,35, 7) = (/ &\n        & 0.23568e-03_rb,0.26716e-03_rb,0.30618e-03_rb,0.35062e-03_rb,0.39934e-03_rb /)\n      kbo(:,36, 7) = (/ &\n        & 0.19116e-03_rb,0.21863e-03_rb,0.25180e-03_rb,0.28983e-03_rb,0.33082e-03_rb /)\n      kbo(:,37, 7) = (/ &\n        & 0.15437e-03_rb,0.17829e-03_rb,0.20646e-03_rb,0.23900e-03_rb,0.27320e-03_rb /)\n      kbo(:,38, 7) = (/ &\n        & 0.12397e-03_rb,0.14462e-03_rb,0.16847e-03_rb,0.19621e-03_rb,0.22528e-03_rb /)\n      kbo(:,39, 7) = (/ &\n        & 0.98930e-04_rb,0.11647e-03_rb,0.13711e-03_rb,0.16057e-03_rb,0.18549e-03_rb /)\n      kbo(:,40, 7) = (/ &\n        & 0.79845e-04_rb,0.94437e-04_rb,0.11202e-03_rb,0.13217e-03_rb,0.15346e-03_rb /)\n      kbo(:,41, 7) = (/ &\n        & 0.64260e-04_rb,0.76439e-04_rb,0.91253e-04_rb,0.10837e-03_rb,0.12691e-03_rb /)\n      kbo(:,42, 7) = (/ &\n        & 0.51561e-04_rb,0.61686e-04_rb,0.74044e-04_rb,0.88504e-04_rb,0.10431e-03_rb /)\n      kbo(:,43, 7) = (/ &\n        & 0.40906e-04_rb,0.49267e-04_rb,0.59361e-04_rb,0.71417e-04_rb,0.84751e-04_rb /)\n      kbo(:,44, 7) = (/ &\n        & 0.32247e-04_rb,0.38955e-04_rb,0.47246e-04_rb,0.57199e-04_rb,0.68540e-04_rb /)\n      kbo(:,45, 7) = (/ &\n        & 0.25243e-04_rb,0.30790e-04_rb,0.37490e-04_rb,0.45754e-04_rb,0.55394e-04_rb /)\n      kbo(:,46, 7) = (/ &\n        & 0.19604e-04_rb,0.24131e-04_rb,0.29598e-04_rb,0.36431e-04_rb,0.44419e-04_rb /)\n      kbo(:,47, 7) = (/ &\n        & 0.15116e-04_rb,0.18785e-04_rb,0.23180e-04_rb,0.28780e-04_rb,0.35381e-04_rb /)\n      kbo(:,48, 7) = (/ &\n        & 0.11550e-04_rb,0.14451e-04_rb,0.18039e-04_rb,0.22545e-04_rb,0.28005e-04_rb /)\n      kbo(:,49, 7) = (/ &\n        & 0.87452e-05_rb,0.10992e-04_rb,0.13863e-04_rb,0.17498e-04_rb,0.21949e-04_rb /)\n      kbo(:,50, 7) = (/ &\n        & 0.66768e-05_rb,0.84974e-05_rb,0.10835e-04_rb,0.13777e-04_rb,0.17448e-04_rb /)\n      kbo(:,51, 7) = (/ &\n        & 0.51359e-05_rb,0.66277e-05_rb,0.85196e-05_rb,0.10905e-04_rb,0.13933e-04_rb /)\n      kbo(:,52, 7) = (/ &\n        & 0.38737e-05_rb,0.51001e-05_rb,0.66347e-05_rb,0.85842e-05_rb,0.11033e-04_rb /)\n      kbo(:,53, 7) = (/ &\n        & 0.28793e-05_rb,0.38820e-05_rb,0.50987e-05_rb,0.66800e-05_rb,0.86846e-05_rb /)\n      kbo(:,54, 7) = (/ &\n        & 0.22250e-05_rb,0.30528e-05_rb,0.40721e-05_rb,0.53813e-05_rb,0.70529e-05_rb /)\n      kbo(:,55, 7) = (/ &\n        & 0.17548e-05_rb,0.24455e-05_rb,0.32962e-05_rb,0.43877e-05_rb,0.58071e-05_rb /)\n      kbo(:,56, 7) = (/ &\n        & 0.13740e-05_rb,0.19413e-05_rb,0.26523e-05_rb,0.35566e-05_rb,0.47512e-05_rb /)\n      kbo(:,57, 7) = (/ &\n        & 0.10745e-05_rb,0.15242e-05_rb,0.21190e-05_rb,0.28679e-05_rb,0.38612e-05_rb /)\n      kbo(:,58, 7) = (/ &\n        & 0.84271e-06_rb,0.12117e-05_rb,0.17039e-05_rb,0.23246e-05_rb,0.31564e-05_rb /)\n      kbo(:,59, 7) = (/ &\n        & 0.75625e-06_rb,0.11002e-05_rb,0.15376e-05_rb,0.20855e-05_rb,0.28548e-05_rb /)\n      kbo(:,13, 8) = (/ &\n        & 0.41133e-01_rb,0.43585e-01_rb,0.46448e-01_rb,0.50156e-01_rb,0.54607e-01_rb /)\n      kbo(:,14, 8) = (/ &\n        & 0.39162e-01_rb,0.41636e-01_rb,0.44649e-01_rb,0.48118e-01_rb,0.52078e-01_rb /)\n      kbo(:,15, 8) = (/ &\n        & 0.37770e-01_rb,0.40048e-01_rb,0.43090e-01_rb,0.46524e-01_rb,0.50698e-01_rb /)\n      kbo(:,16, 8) = (/ &\n        & 0.35235e-01_rb,0.37712e-01_rb,0.40429e-01_rb,0.44092e-01_rb,0.48470e-01_rb /)\n      kbo(:,17, 8) = (/ &\n        & 0.32748e-01_rb,0.35232e-01_rb,0.38049e-01_rb,0.41536e-01_rb,0.45596e-01_rb /)\n      kbo(:,18, 8) = (/ &\n        & 0.30656e-01_rb,0.33078e-01_rb,0.36084e-01_rb,0.39403e-01_rb,0.43319e-01_rb /)\n      kbo(:,19, 8) = (/ &\n        & 0.28887e-01_rb,0.31462e-01_rb,0.34348e-01_rb,0.37660e-01_rb,0.41532e-01_rb /)\n      kbo(:,20, 8) = (/ &\n        & 0.26521e-01_rb,0.29153e-01_rb,0.32006e-01_rb,0.35368e-01_rb,0.39083e-01_rb /)\n      kbo(:,21, 8) = (/ &\n        & 0.23988e-01_rb,0.26537e-01_rb,0.29508e-01_rb,0.32666e-01_rb,0.36356e-01_rb /)\n      kbo(:,22, 8) = (/ &\n        & 0.21655e-01_rb,0.24205e-01_rb,0.27193e-01_rb,0.30346e-01_rb,0.33820e-01_rb /)\n      kbo(:,23, 8) = (/ &\n        & 0.19724e-01_rb,0.22257e-01_rb,0.25021e-01_rb,0.27997e-01_rb,0.31309e-01_rb /)\n      kbo(:,24, 8) = (/ &\n        & 0.18094e-01_rb,0.20464e-01_rb,0.23167e-01_rb,0.26069e-01_rb,0.29357e-01_rb /)\n      kbo(:,25, 8) = (/ &\n        & 0.16666e-01_rb,0.18896e-01_rb,0.21422e-01_rb,0.24282e-01_rb,0.27401e-01_rb /)\n      kbo(:,26, 8) = (/ &\n        & 0.15252e-01_rb,0.17451e-01_rb,0.19828e-01_rb,0.22565e-01_rb,0.25604e-01_rb /)\n      kbo(:,27, 8) = (/ &\n        & 0.13902e-01_rb,0.15940e-01_rb,0.18143e-01_rb,0.20720e-01_rb,0.23727e-01_rb /)\n      kbo(:,28, 8) = (/ &\n        & 0.12642e-01_rb,0.14401e-01_rb,0.16467e-01_rb,0.18975e-01_rb,0.21740e-01_rb /)\n      kbo(:,29, 8) = (/ &\n        & 0.11177e-01_rb,0.12765e-01_rb,0.14750e-01_rb,0.16957e-01_rb,0.19575e-01_rb /)\n      kbo(:,30, 8) = (/ &\n        & 0.97810e-02_rb,0.11281e-01_rb,0.13066e-01_rb,0.15112e-01_rb,0.17581e-01_rb /)\n      kbo(:,31, 8) = (/ &\n        & 0.84562e-02_rb,0.98553e-02_rb,0.11427e-01_rb,0.13312e-01_rb,0.15536e-01_rb /)\n      kbo(:,32, 8) = (/ &\n        & 0.73434e-02_rb,0.85939e-02_rb,0.10020e-01_rb,0.11770e-01_rb,0.13758e-01_rb /)\n      kbo(:,33, 8) = (/ &\n        & 0.63801e-02_rb,0.74957e-02_rb,0.87874e-02_rb,0.10375e-01_rb,0.12145e-01_rb /)\n      kbo(:,34, 8) = (/ &\n        & 0.56002e-02_rb,0.65926e-02_rb,0.77964e-02_rb,0.92186e-02_rb,0.10768e-01_rb /)\n      kbo(:,35, 8) = (/ &\n        & 0.48489e-02_rb,0.57164e-02_rb,0.68333e-02_rb,0.80886e-02_rb,0.94500e-02_rb /)\n      kbo(:,36, 8) = (/ &\n        & 0.41428e-02_rb,0.49220e-02_rb,0.58884e-02_rb,0.69905e-02_rb,0.81862e-02_rb /)\n      kbo(:,37, 8) = (/ &\n        & 0.34967e-02_rb,0.41841e-02_rb,0.50244e-02_rb,0.59657e-02_rb,0.70167e-02_rb /)\n      kbo(:,38, 8) = (/ &\n        & 0.29333e-02_rb,0.35364e-02_rb,0.42644e-02_rb,0.50719e-02_rb,0.59938e-02_rb /)\n      kbo(:,39, 8) = (/ &\n        & 0.24443e-02_rb,0.29647e-02_rb,0.35953e-02_rb,0.42898e-02_rb,0.50972e-02_rb /)\n      kbo(:,40, 8) = (/ &\n        & 0.20439e-02_rb,0.25046e-02_rb,0.30512e-02_rb,0.36459e-02_rb,0.43466e-02_rb /)\n      kbo(:,41, 8) = (/ &\n        & 0.17068e-02_rb,0.21107e-02_rb,0.25838e-02_rb,0.30959e-02_rb,0.36971e-02_rb /)\n      kbo(:,42, 8) = (/ &\n        & 0.14199e-02_rb,0.17705e-02_rb,0.21755e-02_rb,0.26204e-02_rb,0.31356e-02_rb /)\n      kbo(:,43, 8) = (/ &\n        & 0.11616e-02_rb,0.14584e-02_rb,0.18069e-02_rb,0.21876e-02_rb,0.26286e-02_rb /)\n      kbo(:,44, 8) = (/ &\n        & 0.93807e-03_rb,0.11864e-02_rb,0.14851e-02_rb,0.18080e-02_rb,0.21849e-02_rb /)\n      kbo(:,45, 8) = (/ &\n        & 0.75026e-03_rb,0.95460e-03_rb,0.12092e-02_rb,0.14831e-02_rb,0.18037e-02_rb /)\n      kbo(:,46, 8) = (/ &\n        & 0.59319e-03_rb,0.76134e-03_rb,0.97292e-03_rb,0.12059e-02_rb,0.14787e-02_rb /)\n      kbo(:,47, 8) = (/ &\n        & 0.46546e-03_rb,0.60113e-03_rb,0.77762e-03_rb,0.97379e-03_rb,0.12030e-02_rb /)\n      kbo(:,48, 8) = (/ &\n        & 0.36131e-03_rb,0.46999e-03_rb,0.61292e-03_rb,0.77778e-03_rb,0.96667e-03_rb /)\n      kbo(:,49, 8) = (/ &\n        & 0.27490e-03_rb,0.36153e-03_rb,0.47561e-03_rb,0.61173e-03_rb,0.76634e-03_rb /)\n      kbo(:,50, 8) = (/ &\n        & 0.21403e-03_rb,0.28416e-03_rb,0.37592e-03_rb,0.48994e-03_rb,0.61812e-03_rb /)\n      kbo(:,51, 8) = (/ &\n        & 0.16745e-03_rb,0.22425e-03_rb,0.29943e-03_rb,0.39474e-03_rb,0.50310e-03_rb /)\n      kbo(:,52, 8) = (/ &\n        & 0.12927e-03_rb,0.17496e-03_rb,0.23541e-03_rb,0.31434e-03_rb,0.40442e-03_rb /)\n      kbo(:,53, 8) = (/ &\n        & 0.98512e-04_rb,0.13503e-03_rb,0.18276e-03_rb,0.24681e-03_rb,0.32086e-03_rb /)\n      kbo(:,54, 8) = (/ &\n        & 0.78150e-04_rb,0.10819e-03_rb,0.14843e-03_rb,0.20243e-03_rb,0.26646e-03_rb /)\n      kbo(:,55, 8) = (/ &\n        & 0.63455e-04_rb,0.88570e-04_rb,0.12297e-03_rb,0.17015e-03_rb,0.22626e-03_rb /)\n      kbo(:,56, 8) = (/ &\n        & 0.51095e-04_rb,0.72223e-04_rb,0.10144e-03_rb,0.14188e-03_rb,0.19132e-03_rb /)\n      kbo(:,57, 8) = (/ &\n        & 0.40866e-04_rb,0.58631e-04_rb,0.83096e-04_rb,0.11753e-03_rb,0.16055e-03_rb /)\n      kbo(:,58, 8) = (/ &\n        & 0.32890e-04_rb,0.47893e-04_rb,0.68644e-04_rb,0.98156e-04_rb,0.13564e-03_rb /)\n      kbo(:,59, 8) = (/ &\n        & 0.29702e-04_rb,0.43928e-04_rb,0.64217e-04_rb,0.92621e-04_rb,0.12965e-03_rb /)\n      kbo(:,13, 9) = (/ &\n        & 0.27690e+01_rb,0.28644e+01_rb,0.29696e+01_rb,0.30850e+01_rb,0.32162e+01_rb /)\n      kbo(:,14, 9) = (/ &\n        & 0.23162e+01_rb,0.23973e+01_rb,0.24876e+01_rb,0.25913e+01_rb,0.27107e+01_rb /)\n      kbo(:,15, 9) = (/ &\n        & 0.19377e+01_rb,0.20096e+01_rb,0.20909e+01_rb,0.21846e+01_rb,0.22904e+01_rb /)\n      kbo(:,16, 9) = (/ &\n        & 0.16221e+01_rb,0.16854e+01_rb,0.17596e+01_rb,0.18440e+01_rb,0.19374e+01_rb /)\n      kbo(:,17, 9) = (/ &\n        & 0.13581e+01_rb,0.14147e+01_rb,0.14813e+01_rb,0.15562e+01_rb,0.16364e+01_rb /)\n      kbo(:,18, 9) = (/ &\n        & 0.11494e+01_rb,0.11995e+01_rb,0.12558e+01_rb,0.13168e+01_rb,0.13828e+01_rb /)\n      kbo(:,19, 9) = (/ &\n        & 0.99857e+00_rb,0.10422e+01_rb,0.10890e+01_rb,0.11391e+01_rb,0.11917e+01_rb /)\n      kbo(:,20, 9) = (/ &\n        & 0.86585e+00_rb,0.90292e+00_rb,0.94341e+00_rb,0.98616e+00_rb,0.10332e+01_rb /)\n      kbo(:,21, 9) = (/ &\n        & 0.74752e+00_rb,0.77983e+00_rb,0.81433e+00_rb,0.85283e+00_rb,0.89462e+00_rb /)\n      kbo(:,22, 9) = (/ &\n        & 0.64494e+00_rb,0.67286e+00_rb,0.70277e+00_rb,0.73658e+00_rb,0.77352e+00_rb /)\n      kbo(:,23, 9) = (/ &\n        & 0.55485e+00_rb,0.57897e+00_rb,0.60654e+00_rb,0.63699e+00_rb,0.66979e+00_rb /)\n      kbo(:,24, 9) = (/ &\n        & 0.47664e+00_rb,0.49869e+00_rb,0.52329e+00_rb,0.54973e+00_rb,0.57955e+00_rb /)\n      kbo(:,25, 9) = (/ &\n        & 0.41114e+00_rb,0.42988e+00_rb,0.45044e+00_rb,0.47447e+00_rb,0.50163e+00_rb /)\n      kbo(:,26, 9) = (/ &\n        & 0.35513e+00_rb,0.37142e+00_rb,0.38942e+00_rb,0.41045e+00_rb,0.43493e+00_rb /)\n      kbo(:,27, 9) = (/ &\n        & 0.30546e+00_rb,0.31995e+00_rb,0.33673e+00_rb,0.35597e+00_rb,0.37742e+00_rb /)\n      kbo(:,28, 9) = (/ &\n        & 0.26188e+00_rb,0.27552e+00_rb,0.29117e+00_rb,0.30879e+00_rb,0.32839e+00_rb /)\n      kbo(:,29, 9) = (/ &\n        & 0.22377e+00_rb,0.23654e+00_rb,0.25102e+00_rb,0.26735e+00_rb,0.28587e+00_rb /)\n      kbo(:,30, 9) = (/ &\n        & 0.19129e+00_rb,0.20332e+00_rb,0.21691e+00_rb,0.23233e+00_rb,0.24924e+00_rb /)\n      kbo(:,31, 9) = (/ &\n        & 0.16347e+00_rb,0.17463e+00_rb,0.18745e+00_rb,0.20165e+00_rb,0.21712e+00_rb /)\n      kbo(:,32, 9) = (/ &\n        & 0.14037e+00_rb,0.15075e+00_rb,0.16282e+00_rb,0.17567e+00_rb,0.18973e+00_rb /)\n      kbo(:,33, 9) = (/ &\n        & 0.12095e+00_rb,0.13081e+00_rb,0.14161e+00_rb,0.15337e+00_rb,0.16632e+00_rb /)\n      kbo(:,34, 9) = (/ &\n        & 0.10468e+00_rb,0.11371e+00_rb,0.12351e+00_rb,0.13423e+00_rb,0.14632e+00_rb /)\n      kbo(:,35, 9) = (/ &\n        & 0.90259e-01_rb,0.98421e-01_rb,0.10717e+00_rb,0.11695e+00_rb,0.12831e+00_rb /)\n      kbo(:,36, 9) = (/ &\n        & 0.77272e-01_rb,0.84599e-01_rb,0.92464e-01_rb,0.10140e+00_rb,0.11193e+00_rb /)\n      kbo(:,37, 9) = (/ &\n        & 0.65606e-01_rb,0.72029e-01_rb,0.79063e-01_rb,0.87174e-01_rb,0.96643e-01_rb /)\n      kbo(:,38, 9) = (/ &\n        & 0.55528e-01_rb,0.61268e-01_rb,0.67613e-01_rb,0.74898e-01_rb,0.83456e-01_rb /)\n      kbo(:,39, 9) = (/ &\n        & 0.46985e-01_rb,0.52085e-01_rb,0.57765e-01_rb,0.64303e-01_rb,0.72021e-01_rb /)\n      kbo(:,40, 9) = (/ &\n        & 0.39626e-01_rb,0.44094e-01_rb,0.49150e-01_rb,0.55005e-01_rb,0.61884e-01_rb /)\n      kbo(:,41, 9) = (/ &\n        & 0.33376e-01_rb,0.37326e-01_rb,0.41783e-01_rb,0.46997e-01_rb,0.53158e-01_rb /)\n      kbo(:,42, 9) = (/ &\n        & 0.28074e-01_rb,0.31535e-01_rb,0.35493e-01_rb,0.40112e-01_rb,0.45645e-01_rb /)\n      kbo(:,43, 9) = (/ &\n        & 0.23419e-01_rb,0.26419e-01_rb,0.29889e-01_rb,0.33982e-01_rb,0.38867e-01_rb /)\n      kbo(:,44, 9) = (/ &\n        & 0.19437e-01_rb,0.22035e-01_rb,0.25042e-01_rb,0.28622e-01_rb,0.32930e-01_rb /)\n      kbo(:,45, 9) = (/ &\n        & 0.16083e-01_rb,0.18329e-01_rb,0.20937e-01_rb,0.24027e-01_rb,0.27786e-01_rb /)\n      kbo(:,46, 9) = (/ &\n        & 0.13236e-01_rb,0.15146e-01_rb,0.17420e-01_rb,0.20094e-01_rb,0.23328e-01_rb /)\n      kbo(:,47, 9) = (/ &\n        & 0.10820e-01_rb,0.12455e-01_rb,0.14377e-01_rb,0.16656e-01_rb,0.19464e-01_rb /)\n      kbo(:,48, 9) = (/ &\n        & 0.88043e-02_rb,0.10190e-01_rb,0.11813e-01_rb,0.13745e-01_rb,0.16141e-01_rb /)\n      kbo(:,49, 9) = (/ &\n        & 0.71234e-02_rb,0.82775e-02_rb,0.96453e-02_rb,0.11284e-01_rb,0.13310e-01_rb /)\n      kbo(:,50, 9) = (/ &\n        & 0.58127e-02_rb,0.67802e-02_rb,0.79379e-02_rb,0.93254e-02_rb,0.11078e-01_rb /)\n      kbo(:,51, 9) = (/ &\n        & 0.47494e-02_rb,0.55659e-02_rb,0.65602e-02_rb,0.77407e-02_rb,0.92288e-02_rb /)\n      kbo(:,52, 9) = (/ &\n        & 0.38618e-02_rb,0.45424e-02_rb,0.53925e-02_rb,0.64011e-02_rb,0.76645e-02_rb /)\n      kbo(:,53, 9) = (/ &\n        & 0.31264e-02_rb,0.36823e-02_rb,0.43952e-02_rb,0.52615e-02_rb,0.63311e-02_rb /)\n      kbo(:,54, 9) = (/ &\n        & 0.25794e-02_rb,0.30481e-02_rb,0.36548e-02_rb,0.44037e-02_rb,0.53380e-02_rb /)\n      kbo(:,55, 9) = (/ &\n        & 0.21508e-02_rb,0.25472e-02_rb,0.30665e-02_rb,0.37188e-02_rb,0.45472e-02_rb /)\n      kbo(:,56, 9) = (/ &\n        & 0.17938e-02_rb,0.21263e-02_rb,0.25713e-02_rb,0.31411e-02_rb,0.38667e-02_rb /)\n      kbo(:,57, 9) = (/ &\n        & 0.14949e-02_rb,0.17755e-02_rb,0.21510e-02_rb,0.26439e-02_rb,0.32830e-02_rb /)\n      kbo(:,58, 9) = (/ &\n        & 0.12521e-02_rb,0.14938e-02_rb,0.18137e-02_rb,0.22426e-02_rb,0.28028e-02_rb /)\n      kbo(:,59, 9) = (/ &\n        & 0.11302e-02_rb,0.13552e-02_rb,0.16582e-02_rb,0.20691e-02_rb,0.26051e-02_rb /)\n      kbo(:,13,10) = (/ &\n        & 0.14370e+02_rb,0.14649e+02_rb,0.14957e+02_rb,0.15296e+02_rb,0.15663e+02_rb /)\n      kbo(:,14,10) = (/ &\n        & 0.12178e+02_rb,0.12411e+02_rb,0.12682e+02_rb,0.12978e+02_rb,0.13316e+02_rb /)\n      kbo(:,15,10) = (/ &\n        & 0.10211e+02_rb,0.10402e+02_rb,0.10625e+02_rb,0.10894e+02_rb,0.11239e+02_rb /)\n      kbo(:,16,10) = (/ &\n        & 0.85974e+01_rb,0.87539e+01_rb,0.89410e+01_rb,0.91849e+01_rb,0.95108e+01_rb /)\n      kbo(:,17,10) = (/ &\n        & 0.72440e+01_rb,0.73858e+01_rb,0.75683e+01_rb,0.78199e+01_rb,0.81516e+01_rb /)\n      kbo(:,18,10) = (/ &\n        & 0.59680e+01_rb,0.61054e+01_rb,0.63108e+01_rb,0.66074e+01_rb,0.69367e+01_rb /)\n      kbo(:,19,10) = (/ &\n        & 0.47759e+01_rb,0.49000e+01_rb,0.51125e+01_rb,0.53858e+01_rb,0.56972e+01_rb /)\n      kbo(:,20,10) = (/ &\n        & 0.40682e+01_rb,0.42060e+01_rb,0.43988e+01_rb,0.46035e+01_rb,0.48052e+01_rb /)\n      kbo(:,21,10) = (/ &\n        & 0.35226e+01_rb,0.36715e+01_rb,0.38357e+01_rb,0.40017e+01_rb,0.41636e+01_rb /)\n      kbo(:,22,10) = (/ &\n        & 0.30730e+01_rb,0.32059e+01_rb,0.33607e+01_rb,0.35055e+01_rb,0.36621e+01_rb /)\n      kbo(:,23,10) = (/ &\n        & 0.26688e+01_rb,0.27999e+01_rb,0.29296e+01_rb,0.30668e+01_rb,0.32115e+01_rb /)\n      kbo(:,24,10) = (/ &\n        & 0.23228e+01_rb,0.24338e+01_rb,0.25510e+01_rb,0.26866e+01_rb,0.28223e+01_rb /)\n      kbo(:,25,10) = (/ &\n        & 0.19964e+01_rb,0.21083e+01_rb,0.22332e+01_rb,0.23566e+01_rb,0.24845e+01_rb /)\n      kbo(:,26,10) = (/ &\n        & 0.17097e+01_rb,0.18190e+01_rb,0.19420e+01_rb,0.20663e+01_rb,0.21952e+01_rb /)\n      kbo(:,27,10) = (/ &\n        & 0.14729e+01_rb,0.15741e+01_rb,0.16825e+01_rb,0.17963e+01_rb,0.19295e+01_rb /)\n      kbo(:,28,10) = (/ &\n        & 0.12788e+01_rb,0.13609e+01_rb,0.14562e+01_rb,0.15668e+01_rb,0.17032e+01_rb /)\n      kbo(:,29,10) = (/ &\n        & 0.11113e+01_rb,0.11813e+01_rb,0.12669e+01_rb,0.13763e+01_rb,0.15012e+01_rb /)\n      kbo(:,30,10) = (/ &\n        & 0.96661e+00_rb,0.10287e+01_rb,0.11081e+01_rb,0.12093e+01_rb,0.13273e+01_rb /)\n      kbo(:,31,10) = (/ &\n        & 0.83795e+00_rb,0.89792e+00_rb,0.97327e+00_rb,0.10727e+01_rb,0.11828e+01_rb /)\n      kbo(:,32,10) = (/ &\n        & 0.72634e+00_rb,0.78480e+00_rb,0.86071e+00_rb,0.95503e+00_rb,0.10615e+01_rb /)\n      kbo(:,33,10) = (/ &\n        & 0.63134e+00_rb,0.68789e+00_rb,0.76628e+00_rb,0.85854e+00_rb,0.96370e+00_rb /)\n      kbo(:,34,10) = (/ &\n        & 0.55172e+00_rb,0.60863e+00_rb,0.68672e+00_rb,0.77637e+00_rb,0.87664e+00_rb /)\n      kbo(:,35,10) = (/ &\n        & 0.48039e+00_rb,0.53701e+00_rb,0.61125e+00_rb,0.69795e+00_rb,0.79084e+00_rb /)\n      kbo(:,36,10) = (/ &\n        & 0.41819e+00_rb,0.47188e+00_rb,0.54096e+00_rb,0.62096e+00_rb,0.70693e+00_rb /)\n      kbo(:,37,10) = (/ &\n        & 0.36050e+00_rb,0.40906e+00_rb,0.47069e+00_rb,0.54184e+00_rb,0.62144e+00_rb /)\n      kbo(:,38,10) = (/ &\n        & 0.31156e+00_rb,0.35409e+00_rb,0.40958e+00_rb,0.47371e+00_rb,0.54611e+00_rb /)\n      kbo(:,39,10) = (/ &\n        & 0.26782e+00_rb,0.30677e+00_rb,0.35645e+00_rb,0.41535e+00_rb,0.48073e+00_rb /)\n      kbo(:,40,10) = (/ &\n        & 0.23006e+00_rb,0.26273e+00_rb,0.30670e+00_rb,0.35934e+00_rb,0.41871e+00_rb /)\n      kbo(:,41,10) = (/ &\n        & 0.19681e+00_rb,0.22601e+00_rb,0.26383e+00_rb,0.31041e+00_rb,0.36443e+00_rb /)\n      kbo(:,42,10) = (/ &\n        & 0.16794e+00_rb,0.19457e+00_rb,0.22757e+00_rb,0.26875e+00_rb,0.31708e+00_rb /)\n      kbo(:,43,10) = (/ &\n        & 0.14222e+00_rb,0.16606e+00_rb,0.19480e+00_rb,0.23049e+00_rb,0.27422e+00_rb /)\n      kbo(:,44,10) = (/ &\n        & 0.11907e+00_rb,0.14059e+00_rb,0.16567e+00_rb,0.19741e+00_rb,0.23557e+00_rb /)\n      kbo(:,45,10) = (/ &\n        & 0.99508e-01_rb,0.11792e+00_rb,0.14029e+00_rb,0.16912e+00_rb,0.20294e+00_rb /)\n      kbo(:,46,10) = (/ &\n        & 0.82787e-01_rb,0.98729e-01_rb,0.11783e+00_rb,0.14344e+00_rb,0.17433e+00_rb /)\n      kbo(:,47,10) = (/ &\n        & 0.68205e-01_rb,0.81739e-01_rb,0.98558e-01_rb,0.12017e+00_rb,0.14798e+00_rb /)\n      kbo(:,48,10) = (/ &\n        & 0.55907e-01_rb,0.67050e-01_rb,0.81465e-01_rb,0.10030e+00_rb,0.12506e+00_rb /)\n      kbo(:,49,10) = (/ &\n        & 0.45682e-01_rb,0.54871e-01_rb,0.66950e-01_rb,0.83270e-01_rb,0.10500e+00_rb /)\n      kbo(:,50,10) = (/ &\n        & 0.37515e-01_rb,0.45259e-01_rb,0.55584e-01_rb,0.69475e-01_rb,0.88432e-01_rb /)\n      kbo(:,51,10) = (/ &\n        & 0.31052e-01_rb,0.37347e-01_rb,0.46136e-01_rb,0.58029e-01_rb,0.74379e-01_rb /)\n      kbo(:,52,10) = (/ &\n        & 0.25697e-01_rb,0.30758e-01_rb,0.38027e-01_rb,0.48169e-01_rb,0.62340e-01_rb /)\n      kbo(:,53,10) = (/ &\n        & 0.21053e-01_rb,0.25282e-01_rb,0.31221e-01_rb,0.39765e-01_rb,0.52061e-01_rb /)\n      kbo(:,54,10) = (/ &\n        & 0.17506e-01_rb,0.21171e-01_rb,0.26181e-01_rb,0.33450e-01_rb,0.43837e-01_rb /)\n      kbo(:,55,10) = (/ &\n        & 0.14733e-01_rb,0.17912e-01_rb,0.22352e-01_rb,0.28517e-01_rb,0.37310e-01_rb /)\n      kbo(:,56,10) = (/ &\n        & 0.12382e-01_rb,0.15138e-01_rb,0.19031e-01_rb,0.24337e-01_rb,0.31780e-01_rb /)\n      kbo(:,57,10) = (/ &\n        & 0.10363e-01_rb,0.12802e-01_rb,0.16188e-01_rb,0.20731e-01_rb,0.27252e-01_rb /)\n      kbo(:,58,10) = (/ &\n        & 0.87632e-02_rb,0.10863e-01_rb,0.13823e-01_rb,0.17907e-01_rb,0.23570e-01_rb /)\n      kbo(:,59,10) = (/ &\n        & 0.79477e-02_rb,0.99708e-02_rb,0.12797e-01_rb,0.16832e-01_rb,0.22384e-01_rb /)\n      kbo(:,13,11) = (/ &\n        & 0.27028e+02_rb,0.27753e+02_rb,0.28483e+02_rb,0.29219e+02_rb,0.29909e+02_rb /)\n      kbo(:,14,11) = (/ &\n        & 0.23419e+02_rb,0.24025e+02_rb,0.24638e+02_rb,0.25228e+02_rb,0.25789e+02_rb /)\n      kbo(:,15,11) = (/ &\n        & 0.20150e+02_rb,0.20660e+02_rb,0.21151e+02_rb,0.21642e+02_rb,0.22118e+02_rb /)\n      kbo(:,16,11) = (/ &\n        & 0.17107e+02_rb,0.17510e+02_rb,0.17925e+02_rb,0.18355e+02_rb,0.18823e+02_rb /)\n      kbo(:,17,11) = (/ &\n        & 0.14361e+02_rb,0.14686e+02_rb,0.15035e+02_rb,0.15422e+02_rb,0.15903e+02_rb /)\n      kbo(:,18,11) = (/ &\n        & 0.12138e+02_rb,0.12397e+02_rb,0.12696e+02_rb,0.13058e+02_rb,0.13553e+02_rb /)\n      kbo(:,19,11) = (/ &\n        & 0.10135e+02_rb,0.10395e+02_rb,0.10708e+02_rb,0.11115e+02_rb,0.11638e+02_rb /)\n      kbo(:,20,11) = (/ &\n        & 0.81786e+01_rb,0.84190e+01_rb,0.87492e+01_rb,0.92221e+01_rb,0.97673e+01_rb /)\n      kbo(:,21,11) = (/ &\n        & 0.68203e+01_rb,0.70074e+01_rb,0.73249e+01_rb,0.77062e+01_rb,0.81227e+01_rb /)\n      kbo(:,22,11) = (/ &\n        & 0.58880e+01_rb,0.61142e+01_rb,0.64089e+01_rb,0.67273e+01_rb,0.70540e+01_rb /)\n      kbo(:,23,11) = (/ &\n        & 0.51482e+01_rb,0.53972e+01_rb,0.56613e+01_rb,0.59190e+01_rb,0.62039e+01_rb /)\n      kbo(:,24,11) = (/ &\n        & 0.45460e+01_rb,0.47798e+01_rb,0.50055e+01_rb,0.52340e+01_rb,0.54793e+01_rb /)\n      kbo(:,25,11) = (/ &\n        & 0.40038e+01_rb,0.42162e+01_rb,0.44356e+01_rb,0.46519e+01_rb,0.48861e+01_rb /)\n      kbo(:,26,11) = (/ &\n        & 0.35330e+01_rb,0.37282e+01_rb,0.39261e+01_rb,0.41342e+01_rb,0.43614e+01_rb /)\n      kbo(:,27,11) = (/ &\n        & 0.30918e+01_rb,0.32790e+01_rb,0.34783e+01_rb,0.36774e+01_rb,0.38933e+01_rb /)\n      kbo(:,28,11) = (/ &\n        & 0.27019e+01_rb,0.28880e+01_rb,0.30842e+01_rb,0.32755e+01_rb,0.34826e+01_rb /)\n      kbo(:,29,11) = (/ &\n        & 0.23567e+01_rb,0.25399e+01_rb,0.27237e+01_rb,0.29118e+01_rb,0.31184e+01_rb /)\n      kbo(:,30,11) = (/ &\n        & 0.20673e+01_rb,0.22421e+01_rb,0.24146e+01_rb,0.26001e+01_rb,0.28136e+01_rb /)\n      kbo(:,31,11) = (/ &\n        & 0.18233e+01_rb,0.19796e+01_rb,0.21491e+01_rb,0.23275e+01_rb,0.25391e+01_rb /)\n      kbo(:,32,11) = (/ &\n        & 0.16164e+01_rb,0.17629e+01_rb,0.19137e+01_rb,0.20921e+01_rb,0.23020e+01_rb /)\n      kbo(:,33,11) = (/ &\n        & 0.14325e+01_rb,0.15691e+01_rb,0.17171e+01_rb,0.18965e+01_rb,0.20991e+01_rb /)\n      kbo(:,34,11) = (/ &\n        & 0.12711e+01_rb,0.14025e+01_rb,0.15514e+01_rb,0.17231e+01_rb,0.19204e+01_rb /)\n      kbo(:,35,11) = (/ &\n        & 0.11251e+01_rb,0.12478e+01_rb,0.13948e+01_rb,0.15591e+01_rb,0.17428e+01_rb /)\n      kbo(:,36,11) = (/ &\n        & 0.98734e+00_rb,0.11026e+01_rb,0.12425e+01_rb,0.13991e+01_rb,0.15730e+01_rb /)\n      kbo(:,37,11) = (/ &\n        & 0.85152e+00_rb,0.96327e+00_rb,0.10911e+01_rb,0.12398e+01_rb,0.14045e+01_rb /)\n      kbo(:,38,11) = (/ &\n        & 0.73399e+00_rb,0.83942e+00_rb,0.95984e+00_rb,0.10967e+01_rb,0.12526e+01_rb /)\n      kbo(:,39,11) = (/ &\n        & 0.63468e+00_rb,0.73175e+00_rb,0.84488e+00_rb,0.97279e+00_rb,0.11163e+01_rb /)\n      kbo(:,40,11) = (/ &\n        & 0.54166e+00_rb,0.63099e+00_rb,0.73459e+00_rb,0.85525e+00_rb,0.98986e+00_rb /)\n      kbo(:,41,11) = (/ &\n        & 0.46341e+00_rb,0.54185e+00_rb,0.63786e+00_rb,0.75041e+00_rb,0.87557e+00_rb /)\n      kbo(:,42,11) = (/ &\n        & 0.39710e+00_rb,0.46604e+00_rb,0.55335e+00_rb,0.65788e+00_rb,0.77518e+00_rb /)\n      kbo(:,43,11) = (/ &\n        & 0.33809e+00_rb,0.39845e+00_rb,0.47656e+00_rb,0.56991e+00_rb,0.67763e+00_rb /)\n      kbo(:,44,11) = (/ &\n        & 0.28738e+00_rb,0.33811e+00_rb,0.40783e+00_rb,0.49238e+00_rb,0.58805e+00_rb /)\n      kbo(:,45,11) = (/ &\n        & 0.24372e+00_rb,0.28787e+00_rb,0.34858e+00_rb,0.42338e+00_rb,0.51131e+00_rb /)\n      kbo(:,46,11) = (/ &\n        & 0.20655e+00_rb,0.24407e+00_rb,0.29751e+00_rb,0.36239e+00_rb,0.44206e+00_rb /)\n      kbo(:,47,11) = (/ &\n        & 0.17359e+00_rb,0.20653e+00_rb,0.25158e+00_rb,0.30900e+00_rb,0.37888e+00_rb /)\n      kbo(:,48,11) = (/ &\n        & 0.14508e+00_rb,0.17395e+00_rb,0.21335e+00_rb,0.26232e+00_rb,0.32328e+00_rb /)\n      kbo(:,49,11) = (/ &\n        & 0.12016e+00_rb,0.14523e+00_rb,0.17928e+00_rb,0.22128e+00_rb,0.27412e+00_rb /)\n      kbo(:,50,11) = (/ &\n        & 0.99920e-01_rb,0.12218e+00_rb,0.15097e+00_rb,0.18907e+00_rb,0.23575e+00_rb /)\n      kbo(:,51,11) = (/ &\n        & 0.82909e-01_rb,0.10226e+00_rb,0.12737e+00_rb,0.16132e+00_rb,0.20378e+00_rb /)\n      kbo(:,52,11) = (/ &\n        & 0.68577e-01_rb,0.85131e-01_rb,0.10673e+00_rb,0.13644e+00_rb,0.17453e+00_rb /)\n      kbo(:,53,11) = (/ &\n        & 0.56302e-01_rb,0.70491e-01_rb,0.88684e-01_rb,0.11469e+00_rb,0.14786e+00_rb /)\n      kbo(:,54,11) = (/ &\n        & 0.47171e-01_rb,0.59185e-01_rb,0.74877e-01_rb,0.97387e-01_rb,0.12762e+00_rb /)\n      kbo(:,55,11) = (/ &\n        & 0.40028e-01_rb,0.50199e-01_rb,0.63960e-01_rb,0.83211e-01_rb,0.11104e+00_rb /)\n      kbo(:,56,11) = (/ &\n        & 0.33854e-01_rb,0.42508e-01_rb,0.54649e-01_rb,0.71262e-01_rb,0.95596e-01_rb /)\n      kbo(:,57,11) = (/ &\n        & 0.28590e-01_rb,0.36142e-01_rb,0.46409e-01_rb,0.61269e-01_rb,0.82012e-01_rb /)\n      kbo(:,58,11) = (/ &\n        & 0.24352e-01_rb,0.30934e-01_rb,0.39697e-01_rb,0.52483e-01_rb,0.71167e-01_rb /)\n      kbo(:,59,11) = (/ &\n        & 0.22598e-01_rb,0.29152e-01_rb,0.37468e-01_rb,0.48573e-01_rb,0.66434e-01_rb /)\n      kbo(:,13,12) = (/ &\n        & 0.57172e+02_rb,0.59297e+02_rb,0.61400e+02_rb,0.63512e+02_rb,0.65627e+02_rb /)\n      kbo(:,14,12) = (/ &\n        & 0.50361e+02_rb,0.52086e+02_rb,0.53828e+02_rb,0.55595e+02_rb,0.57346e+02_rb /)\n      kbo(:,15,12) = (/ &\n        & 0.44078e+02_rb,0.45453e+02_rb,0.46902e+02_rb,0.48347e+02_rb,0.49789e+02_rb /)\n      kbo(:,16,12) = (/ &\n        & 0.38395e+02_rb,0.39554e+02_rb,0.40754e+02_rb,0.41955e+02_rb,0.43150e+02_rb /)\n      kbo(:,17,12) = (/ &\n        & 0.33363e+02_rb,0.34355e+02_rb,0.35352e+02_rb,0.36337e+02_rb,0.37312e+02_rb /)\n      kbo(:,18,12) = (/ &\n        & 0.28599e+02_rb,0.29463e+02_rb,0.30307e+02_rb,0.31155e+02_rb,0.32043e+02_rb /)\n      kbo(:,19,12) = (/ &\n        & 0.24284e+02_rb,0.24982e+02_rb,0.25685e+02_rb,0.26424e+02_rb,0.27289e+02_rb /)\n      kbo(:,20,12) = (/ &\n        & 0.20576e+02_rb,0.21117e+02_rb,0.21693e+02_rb,0.22370e+02_rb,0.23304e+02_rb /)\n      kbo(:,21,12) = (/ &\n        & 0.17126e+02_rb,0.17629e+02_rb,0.18193e+02_rb,0.18968e+02_rb,0.20012e+02_rb /)\n      kbo(:,22,12) = (/ &\n        & 0.14084e+02_rb,0.14526e+02_rb,0.15112e+02_rb,0.15986e+02_rb,0.17086e+02_rb /)\n      kbo(:,23,12) = (/ &\n        & 0.11727e+02_rb,0.12073e+02_rb,0.12663e+02_rb,0.13546e+02_rb,0.14594e+02_rb /)\n      kbo(:,24,12) = (/ &\n        & 0.10116e+02_rb,0.10483e+02_rb,0.11087e+02_rb,0.11839e+02_rb,0.12630e+02_rb /)\n      kbo(:,25,12) = (/ &\n        & 0.89362e+01_rb,0.93748e+01_rb,0.99578e+01_rb,0.10576e+02_rb,0.11263e+02_rb /)\n      kbo(:,26,12) = (/ &\n        & 0.79574e+01_rb,0.84325e+01_rb,0.89960e+01_rb,0.95862e+01_rb,0.10135e+02_rb /)\n      kbo(:,27,12) = (/ &\n        & 0.71290e+01_rb,0.76343e+01_rb,0.81343e+01_rb,0.86609e+01_rb,0.91441e+01_rb /)\n      kbo(:,28,12) = (/ &\n        & 0.64441e+01_rb,0.69081e+01_rb,0.73340e+01_rb,0.77892e+01_rb,0.82579e+01_rb /)\n      kbo(:,29,12) = (/ &\n        & 0.57859e+01_rb,0.61904e+01_rb,0.65762e+01_rb,0.69937e+01_rb,0.74255e+01_rb /)\n      kbo(:,30,12) = (/ &\n        & 0.51602e+01_rb,0.55338e+01_rb,0.58953e+01_rb,0.62766e+01_rb,0.66823e+01_rb /)\n      kbo(:,31,12) = (/ &\n        & 0.45943e+01_rb,0.49270e+01_rb,0.52739e+01_rb,0.56298e+01_rb,0.60118e+01_rb /)\n      kbo(:,32,12) = (/ &\n        & 0.40881e+01_rb,0.44095e+01_rb,0.47450e+01_rb,0.50839e+01_rb,0.54488e+01_rb /)\n      kbo(:,33,12) = (/ &\n        & 0.36534e+01_rb,0.39549e+01_rb,0.42670e+01_rb,0.46043e+01_rb,0.49743e+01_rb /)\n      kbo(:,34,12) = (/ &\n        & 0.32874e+01_rb,0.35667e+01_rb,0.38571e+01_rb,0.41872e+01_rb,0.45862e+01_rb /)\n      kbo(:,35,12) = (/ &\n        & 0.29379e+01_rb,0.31963e+01_rb,0.34845e+01_rb,0.38151e+01_rb,0.42290e+01_rb /)\n      kbo(:,36,12) = (/ &\n        & 0.26101e+01_rb,0.28628e+01_rb,0.31405e+01_rb,0.34760e+01_rb,0.38927e+01_rb /)\n      kbo(:,37,12) = (/ &\n        & 0.23047e+01_rb,0.25368e+01_rb,0.28124e+01_rb,0.31292e+01_rb,0.35310e+01_rb /)\n      kbo(:,38,12) = (/ &\n        & 0.20413e+01_rb,0.22603e+01_rb,0.25129e+01_rb,0.28252e+01_rb,0.32149e+01_rb /)\n      kbo(:,39,12) = (/ &\n        & 0.18040e+01_rb,0.20133e+01_rb,0.22565e+01_rb,0.25571e+01_rb,0.29423e+01_rb /)\n      kbo(:,40,12) = (/ &\n        & 0.15898e+01_rb,0.17862e+01_rb,0.20189e+01_rb,0.22992e+01_rb,0.26576e+01_rb /)\n      kbo(:,41,12) = (/ &\n        & 0.14002e+01_rb,0.15861e+01_rb,0.18008e+01_rb,0.20620e+01_rb,0.24028e+01_rb /)\n      kbo(:,42,12) = (/ &\n        & 0.12302e+01_rb,0.14049e+01_rb,0.16015e+01_rb,0.18444e+01_rb,0.21658e+01_rb /)\n      kbo(:,43,12) = (/ &\n        & 0.10668e+01_rb,0.12258e+01_rb,0.14101e+01_rb,0.16347e+01_rb,0.19297e+01_rb /)\n      kbo(:,44,12) = (/ &\n        & 0.91800e+00_rb,0.10642e+01_rb,0.12324e+01_rb,0.14347e+01_rb,0.17074e+01_rb /)\n      kbo(:,45,12) = (/ &\n        & 0.78687e+00_rb,0.91967e+00_rb,0.10737e+01_rb,0.12598e+01_rb,0.15049e+01_rb /)\n      kbo(:,46,12) = (/ &\n        & 0.67148e+00_rb,0.79041e+00_rb,0.92761e+00_rb,0.10973e+01_rb,0.13177e+01_rb /)\n      kbo(:,47,12) = (/ &\n        & 0.57045e+00_rb,0.67640e+00_rb,0.80034e+00_rb,0.94779e+00_rb,0.11432e+01_rb /)\n      kbo(:,48,12) = (/ &\n        & 0.48142e+00_rb,0.57646e+00_rb,0.68676e+00_rb,0.82116e+00_rb,0.98898e+00_rb /)\n      kbo(:,49,12) = (/ &\n        & 0.40194e+00_rb,0.48757e+00_rb,0.58498e+00_rb,0.70838e+00_rb,0.85881e+00_rb /)\n      kbo(:,50,12) = (/ &\n        & 0.34095e+00_rb,0.41499e+00_rb,0.50425e+00_rb,0.61464e+00_rb,0.75451e+00_rb /)\n      kbo(:,51,12) = (/ &\n        & 0.29038e+00_rb,0.35608e+00_rb,0.43553e+00_rb,0.53422e+00_rb,0.66315e+00_rb /)\n      kbo(:,52,12) = (/ &\n        & 0.24615e+00_rb,0.30360e+00_rb,0.37359e+00_rb,0.46378e+00_rb,0.57808e+00_rb /)\n      kbo(:,53,12) = (/ &\n        & 0.20660e+00_rb,0.25764e+00_rb,0.31993e+00_rb,0.39869e+00_rb,0.50232e+00_rb /)\n      kbo(:,54,12) = (/ &\n        & 0.17518e+00_rb,0.22280e+00_rb,0.27852e+00_rb,0.34881e+00_rb,0.44243e+00_rb /)\n      kbo(:,55,12) = (/ &\n        & 0.14906e+00_rb,0.19392e+00_rb,0.24538e+00_rb,0.31045e+00_rb,0.39204e+00_rb /)\n      kbo(:,56,12) = (/ &\n        & 0.12564e+00_rb,0.16748e+00_rb,0.21535e+00_rb,0.27386e+00_rb,0.34816e+00_rb /)\n      kbo(:,57,12) = (/ &\n        & 0.10489e+00_rb,0.14334e+00_rb,0.18902e+00_rb,0.24147e+00_rb,0.30976e+00_rb /)\n      kbo(:,58,12) = (/ &\n        & 0.88415e-01_rb,0.12250e+00_rb,0.16566e+00_rb,0.21499e+00_rb,0.27515e+00_rb /)\n      kbo(:,59,12) = (/ &\n        & 0.80710e-01_rb,0.11375e+00_rb,0.15629e+00_rb,0.20737e+00_rb,0.26838e+00_rb /)\n      kbo(:,13,13) = (/ &\n        & 0.16465e+03_rb,0.16298e+03_rb,0.16413e+03_rb,0.16796e+03_rb,0.17425e+03_rb /)\n      kbo(:,14,13) = (/ &\n        & 0.14134e+03_rb,0.14223e+03_rb,0.14584e+03_rb,0.15183e+03_rb,0.15823e+03_rb /)\n      kbo(:,15,13) = (/ &\n        & 0.12334e+03_rb,0.12642e+03_rb,0.13170e+03_rb,0.13719e+03_rb,0.14248e+03_rb /)\n      kbo(:,16,13) = (/ &\n        & 0.10903e+03_rb,0.11350e+03_rb,0.11825e+03_rb,0.12284e+03_rb,0.12720e+03_rb /)\n      kbo(:,17,13) = (/ &\n        & 0.96744e+02_rb,0.10077e+03_rb,0.10473e+03_rb,0.10856e+03_rb,0.11225e+03_rb /)\n      kbo(:,18,13) = (/ &\n        & 0.85368e+02_rb,0.88669e+02_rb,0.91934e+02_rb,0.95127e+02_rb,0.98216e+02_rb /)\n      kbo(:,19,13) = (/ &\n        & 0.74865e+02_rb,0.77560e+02_rb,0.80263e+02_rb,0.82912e+02_rb,0.85499e+02_rb /)\n      kbo(:,20,13) = (/ &\n        & 0.65304e+02_rb,0.67588e+02_rb,0.69849e+02_rb,0.72099e+02_rb,0.74316e+02_rb /)\n      kbo(:,21,13) = (/ &\n        & 0.56704e+02_rb,0.58616e+02_rb,0.60541e+02_rb,0.62457e+02_rb,0.64444e+02_rb /)\n      kbo(:,22,13) = (/ &\n        & 0.49099e+02_rb,0.50788e+02_rb,0.52451e+02_rb,0.54119e+02_rb,0.55970e+02_rb /)\n      kbo(:,23,13) = (/ &\n        & 0.42076e+02_rb,0.43646e+02_rb,0.45230e+02_rb,0.46888e+02_rb,0.48798e+02_rb /)\n      kbo(:,24,13) = (/ &\n        & 0.35457e+02_rb,0.36904e+02_rb,0.38447e+02_rb,0.40262e+02_rb,0.42565e+02_rb /)\n      kbo(:,25,13) = (/ &\n        & 0.29832e+02_rb,0.31036e+02_rb,0.32508e+02_rb,0.34502e+02_rb,0.36979e+02_rb /)\n      kbo(:,26,13) = (/ &\n        & 0.25205e+02_rb,0.26348e+02_rb,0.27792e+02_rb,0.29788e+02_rb,0.32459e+02_rb /)\n      kbo(:,27,13) = (/ &\n        & 0.21486e+02_rb,0.22586e+02_rb,0.24162e+02_rb,0.26260e+02_rb,0.28944e+02_rb /)\n      kbo(:,28,13) = (/ &\n        & 0.18712e+02_rb,0.19693e+02_rb,0.21370e+02_rb,0.23591e+02_rb,0.26158e+02_rb /)\n      kbo(:,29,13) = (/ &\n        & 0.16630e+02_rb,0.17716e+02_rb,0.19369e+02_rb,0.21565e+02_rb,0.24102e+02_rb /)\n      kbo(:,30,13) = (/ &\n        & 0.14923e+02_rb,0.16119e+02_rb,0.17783e+02_rb,0.19989e+02_rb,0.22379e+02_rb /)\n      kbo(:,31,13) = (/ &\n        & 0.13532e+02_rb,0.14853e+02_rb,0.16576e+02_rb,0.18745e+02_rb,0.21084e+02_rb /)\n      kbo(:,32,13) = (/ &\n        & 0.12453e+02_rb,0.13784e+02_rb,0.15587e+02_rb,0.17718e+02_rb,0.20022e+02_rb /)\n      kbo(:,33,13) = (/ &\n        & 0.11580e+02_rb,0.13038e+02_rb,0.14851e+02_rb,0.16892e+02_rb,0.19192e+02_rb /)\n      kbo(:,34,13) = (/ &\n        & 0.10820e+02_rb,0.12376e+02_rb,0.14134e+02_rb,0.16152e+02_rb,0.18402e+02_rb /)\n      kbo(:,35,13) = (/ &\n        & 0.10116e+02_rb,0.11686e+02_rb,0.13402e+02_rb,0.15346e+02_rb,0.17556e+02_rb /)\n      kbo(:,36,13) = (/ &\n        & 0.93933e+01_rb,0.10910e+02_rb,0.12572e+02_rb,0.14432e+02_rb,0.16536e+02_rb /)\n      kbo(:,37,13) = (/ &\n        & 0.85160e+01_rb,0.99755e+01_rb,0.11554e+02_rb,0.13358e+02_rb,0.15350e+02_rb /)\n      kbo(:,38,13) = (/ &\n        & 0.77505e+01_rb,0.91225e+01_rb,0.10670e+02_rb,0.12380e+02_rb,0.14273e+02_rb /)\n      kbo(:,39,13) = (/ &\n        & 0.70897e+01_rb,0.83885e+01_rb,0.98694e+01_rb,0.11502e+02_rb,0.13343e+02_rb /)\n      kbo(:,40,13) = (/ &\n        & 0.63295e+01_rb,0.75506e+01_rb,0.89466e+01_rb,0.10495e+02_rb,0.12287e+02_rb /)\n      kbo(:,41,13) = (/ &\n        & 0.56302e+01_rb,0.67988e+01_rb,0.80957e+01_rb,0.96013e+01_rb,0.11280e+02_rb /)\n      kbo(:,42,13) = (/ &\n        & 0.50234e+01_rb,0.61071e+01_rb,0.73389e+01_rb,0.87816e+01_rb,0.10380e+02_rb /)\n      kbo(:,43,13) = (/ &\n        & 0.44225e+01_rb,0.54282e+01_rb,0.65963e+01_rb,0.79433e+01_rb,0.94666e+01_rb /)\n      kbo(:,44,13) = (/ &\n        & 0.38558e+01_rb,0.47912e+01_rb,0.58905e+01_rb,0.71478e+01_rb,0.86145e+01_rb /)\n      kbo(:,45,13) = (/ &\n        & 0.33575e+01_rb,0.42351e+01_rb,0.52475e+01_rb,0.64292e+01_rb,0.78296e+01_rb /)\n      kbo(:,46,13) = (/ &\n        & 0.29053e+01_rb,0.37074e+01_rb,0.46432e+01_rb,0.57484e+01_rb,0.70674e+01_rb /)\n      kbo(:,47,13) = (/ &\n        & 0.24706e+01_rb,0.31851e+01_rb,0.40524e+01_rb,0.50837e+01_rb,0.62990e+01_rb /)\n      kbo(:,48,13) = (/ &\n        & 0.20907e+01_rb,0.27320e+01_rb,0.35232e+01_rb,0.44689e+01_rb,0.55998e+01_rb /)\n      kbo(:,49,13) = (/ &\n        & 0.17652e+01_rb,0.23397e+01_rb,0.30525e+01_rb,0.39130e+01_rb,0.49641e+01_rb /)\n      kbo(:,50,13) = (/ &\n        & 0.14980e+01_rb,0.19995e+01_rb,0.26386e+01_rb,0.34309e+01_rb,0.43930e+01_rb /)\n      kbo(:,51,13) = (/ &\n        & 0.12883e+01_rb,0.17229e+01_rb,0.22808e+01_rb,0.30058e+01_rb,0.38921e+01_rb /)\n      kbo(:,52,13) = (/ &\n        & 0.11032e+01_rb,0.14878e+01_rb,0.19945e+01_rb,0.26225e+01_rb,0.34327e+01_rb /)\n      kbo(:,53,13) = (/ &\n        & 0.94256e+00_rb,0.12803e+01_rb,0.17436e+01_rb,0.23095e+01_rb,0.30258e+01_rb /)\n      kbo(:,54,13) = (/ &\n        & 0.80847e+00_rb,0.11045e+01_rb,0.15250e+01_rb,0.20573e+01_rb,0.27048e+01_rb /)\n      kbo(:,55,13) = (/ &\n        & 0.69972e+00_rb,0.95008e+00_rb,0.13215e+01_rb,0.18178e+01_rb,0.24326e+01_rb /)\n      kbo(:,56,13) = (/ &\n        & 0.60659e+00_rb,0.81298e+00_rb,0.11430e+01_rb,0.15925e+01_rb,0.21783e+01_rb /)\n      kbo(:,57,13) = (/ &\n        & 0.52664e+00_rb,0.69670e+00_rb,0.97998e+00_rb,0.13891e+01_rb,0.19333e+01_rb /)\n      kbo(:,58,13) = (/ &\n        & 0.45985e+00_rb,0.60682e+00_rb,0.84337e+00_rb,0.12113e+01_rb,0.17188e+01_rb /)\n      kbo(:,59,13) = (/ &\n        & 0.43853e+00_rb,0.57879e+00_rb,0.79018e+00_rb,0.11130e+01_rb,0.16039e+01_rb /)\n      kbo(:,13,14) = (/ &\n        & 0.86016e+03_rb,0.84626e+03_rb,0.83228e+03_rb,0.81817e+03_rb,0.80450e+03_rb /)\n      kbo(:,14,14) = (/ &\n        & 0.75981e+03_rb,0.74663e+03_rb,0.73345e+03_rb,0.72104e+03_rb,0.71224e+03_rb /)\n      kbo(:,15,14) = (/ &\n        & 0.66201e+03_rb,0.64993e+03_rb,0.63891e+03_rb,0.63210e+03_rb,0.62978e+03_rb /)\n      kbo(:,16,14) = (/ &\n        & 0.57014e+03_rb,0.56027e+03_rb,0.55466e+03_rb,0.55378e+03_rb,0.55721e+03_rb /)\n      kbo(:,17,14) = (/ &\n        & 0.48861e+03_rb,0.48354e+03_rb,0.48324e+03_rb,0.48760e+03_rb,0.49602e+03_rb /)\n      kbo(:,18,14) = (/ &\n        & 0.41987e+03_rb,0.41964e+03_rb,0.42411e+03_rb,0.43291e+03_rb,0.44575e+03_rb /)\n      kbo(:,19,14) = (/ &\n        & 0.36303e+03_rb,0.36702e+03_rb,0.37556e+03_rb,0.38834e+03_rb,0.40471e+03_rb /)\n      kbo(:,20,14) = (/ &\n        & 0.31651e+03_rb,0.32421e+03_rb,0.33627e+03_rb,0.35219e+03_rb,0.37072e+03_rb /)\n      kbo(:,21,14) = (/ &\n        & 0.27867e+03_rb,0.28947e+03_rb,0.30434e+03_rb,0.32131e+03_rb,0.33823e+03_rb /)\n      kbo(:,22,14) = (/ &\n        & 0.24916e+03_rb,0.26251e+03_rb,0.27768e+03_rb,0.29296e+03_rb,0.30844e+03_rb /)\n      kbo(:,23,14) = (/ &\n        & 0.22571e+03_rb,0.23932e+03_rb,0.25291e+03_rb,0.26670e+03_rb,0.28069e+03_rb /)\n      kbo(:,24,14) = (/ &\n        & 0.20503e+03_rb,0.21765e+03_rb,0.23029e+03_rb,0.24291e+03_rb,0.25575e+03_rb /)\n      kbo(:,25,14) = (/ &\n        & 0.18574e+03_rb,0.19763e+03_rb,0.20960e+03_rb,0.22151e+03_rb,0.23356e+03_rb /)\n      kbo(:,26,14) = (/ &\n        & 0.16825e+03_rb,0.17945e+03_rb,0.19085e+03_rb,0.20242e+03_rb,0.21406e+03_rb /)\n      kbo(:,27,14) = (/ &\n        & 0.15254e+03_rb,0.16311e+03_rb,0.17402e+03_rb,0.18521e+03_rb,0.19696e+03_rb /)\n      kbo(:,28,14) = (/ &\n        & 0.13815e+03_rb,0.14857e+03_rb,0.15913e+03_rb,0.17022e+03_rb,0.18238e+03_rb /)\n      kbo(:,29,14) = (/ &\n        & 0.12560e+03_rb,0.13571e+03_rb,0.14630e+03_rb,0.15763e+03_rb,0.17019e+03_rb /)\n      kbo(:,30,14) = (/ &\n        & 0.11497e+03_rb,0.12476e+03_rb,0.13550e+03_rb,0.14719e+03_rb,0.16044e+03_rb /)\n      kbo(:,31,14) = (/ &\n        & 0.10602e+03_rb,0.11577e+03_rb,0.12671e+03_rb,0.13889e+03_rb,0.15289e+03_rb /)\n      kbo(:,32,14) = (/ &\n        & 0.98519e+02_rb,0.10855e+03_rb,0.11978e+03_rb,0.13265e+03_rb,0.14744e+03_rb /)\n      kbo(:,33,14) = (/ &\n        & 0.92517e+02_rb,0.10274e+03_rb,0.11452e+03_rb,0.12822e+03_rb,0.14389e+03_rb /)\n      kbo(:,34,14) = (/ &\n        & 0.87441e+02_rb,0.97936e+02_rb,0.11044e+03_rb,0.12495e+03_rb,0.14148e+03_rb /)\n      kbo(:,35,14) = (/ &\n        & 0.82499e+02_rb,0.93333e+02_rb,0.10635e+03_rb,0.12151e+03_rb,0.13874e+03_rb /)\n      kbo(:,36,14) = (/ &\n        & 0.77442e+02_rb,0.88493e+02_rb,0.10184e+03_rb,0.11740e+03_rb,0.13513e+03_rb /)\n      kbo(:,37,14) = (/ &\n        & 0.71771e+02_rb,0.82731e+02_rb,0.96032e+02_rb,0.11158e+03_rb,0.12941e+03_rb /)\n      kbo(:,38,14) = (/ &\n        & 0.66727e+02_rb,0.77610e+02_rb,0.90795e+02_rb,0.10632e+03_rb,0.12415e+03_rb /)\n      kbo(:,39,14) = (/ &\n        & 0.62339e+02_rb,0.73113e+02_rb,0.86200e+02_rb,0.10167e+03_rb,0.11942e+03_rb /)\n      kbo(:,40,14) = (/ &\n        & 0.57601e+02_rb,0.67999e+02_rb,0.80724e+02_rb,0.95858e+02_rb,0.11323e+03_rb /)\n      kbo(:,41,14) = (/ &\n        & 0.53285e+02_rb,0.63203e+02_rb,0.75577e+02_rb,0.90242e+02_rb,0.10726e+03_rb /)\n      kbo(:,42,14) = (/ &\n        & 0.49392e+02_rb,0.58908e+02_rb,0.70834e+02_rb,0.85045e+02_rb,0.10163e+03_rb /)\n      kbo(:,43,14) = (/ &\n        & 0.45446e+02_rb,0.54452e+02_rb,0.65751e+02_rb,0.79402e+02_rb,0.95397e+02_rb /)\n      kbo(:,44,14) = (/ &\n        & 0.41620e+02_rb,0.50184e+02_rb,0.60777e+02_rb,0.73786e+02_rb,0.89076e+02_rb /)\n      kbo(:,45,14) = (/ &\n        & 0.38059e+02_rb,0.46282e+02_rb,0.56226e+02_rb,0.68539e+02_rb,0.83136e+02_rb /)\n      kbo(:,46,14) = (/ &\n        & 0.34554e+02_rb,0.42501e+02_rb,0.51829e+02_rb,0.63383e+02_rb,0.77220e+02_rb /)\n      kbo(:,47,14) = (/ &\n        & 0.31009e+02_rb,0.38610e+02_rb,0.47385e+02_rb,0.58058e+02_rb,0.71080e+02_rb /)\n      kbo(:,48,14) = (/ &\n        & 0.27715e+02_rb,0.34934e+02_rb,0.43319e+02_rb,0.53190e+02_rb,0.65347e+02_rb /)\n      kbo(:,49,14) = (/ &\n        & 0.24658e+02_rb,0.31478e+02_rb,0.39500e+02_rb,0.48743e+02_rb,0.59997e+02_rb /)\n      kbo(:,50,14) = (/ &\n        & 0.22034e+02_rb,0.28437e+02_rb,0.36093e+02_rb,0.44894e+02_rb,0.55346e+02_rb /)\n      kbo(:,51,14) = (/ &\n        & 0.19684e+02_rb,0.25626e+02_rb,0.32937e+02_rb,0.41385e+02_rb,0.51154e+02_rb /)\n      kbo(:,52,14) = (/ &\n        & 0.17504e+02_rb,0.22995e+02_rb,0.29925e+02_rb,0.38057e+02_rb,0.47307e+02_rb /)\n      kbo(:,53,14) = (/ &\n        & 0.15552e+02_rb,0.20544e+02_rb,0.27079e+02_rb,0.34832e+02_rb,0.43722e+02_rb /)\n      kbo(:,54,14) = (/ &\n        & 0.13886e+02_rb,0.18476e+02_rb,0.24607e+02_rb,0.31966e+02_rb,0.40540e+02_rb /)\n      kbo(:,55,14) = (/ &\n        & 0.12396e+02_rb,0.16681e+02_rb,0.22385e+02_rb,0.29384e+02_rb,0.37592e+02_rb /)\n      kbo(:,56,14) = (/ &\n        & 0.11028e+02_rb,0.15006e+02_rb,0.20297e+02_rb,0.26955e+02_rb,0.34780e+02_rb /)\n      kbo(:,57,14) = (/ &\n        & 0.97493e+01_rb,0.13452e+02_rb,0.18354e+02_rb,0.24644e+02_rb,0.32099e+02_rb /)\n      kbo(:,58,14) = (/ &\n        & 0.86411e+01_rb,0.12068e+02_rb,0.16627e+02_rb,0.22569e+02_rb,0.29684e+02_rb /)\n      kbo(:,59,14) = (/ &\n        & 0.80894e+01_rb,0.11449e+02_rb,0.15905e+02_rb,0.21753e+02_rb,0.28728e+02_rb /)\n      kbo(:,13,15) = (/ &\n        & 0.50046e+04_rb,0.50034e+04_rb,0.49950e+04_rb,0.49781e+04_rb,0.49542e+04_rb /)\n      kbo(:,14,15) = (/ &\n        & 0.51812e+04_rb,0.51738e+04_rb,0.51582e+04_rb,0.51357e+04_rb,0.51054e+04_rb /)\n      kbo(:,15,15) = (/ &\n        & 0.52793e+04_rb,0.52645e+04_rb,0.52450e+04_rb,0.52172e+04_rb,0.51836e+04_rb /)\n      kbo(:,16,15) = (/ &\n        & 0.53001e+04_rb,0.52818e+04_rb,0.52568e+04_rb,0.52274e+04_rb,0.51924e+04_rb /)\n      kbo(:,17,15) = (/ &\n        & 0.52448e+04_rb,0.52242e+04_rb,0.52004e+04_rb,0.51715e+04_rb,0.51377e+04_rb /)\n      kbo(:,18,15) = (/ &\n        & 0.51200e+04_rb,0.51031e+04_rb,0.50817e+04_rb,0.50571e+04_rb,0.50308e+04_rb /)\n      kbo(:,19,15) = (/ &\n        & 0.49389e+04_rb,0.49284e+04_rb,0.49153e+04_rb,0.49007e+04_rb,0.48819e+04_rb /)\n      kbo(:,20,15) = (/ &\n        & 0.47181e+04_rb,0.47168e+04_rb,0.47163e+04_rb,0.47129e+04_rb,0.47111e+04_rb /)\n      kbo(:,21,15) = (/ &\n        & 0.44718e+04_rb,0.44865e+04_rb,0.44990e+04_rb,0.45153e+04_rb,0.45403e+04_rb /)\n      kbo(:,22,15) = (/ &\n        & 0.42192e+04_rb,0.42497e+04_rb,0.42861e+04_rb,0.43316e+04_rb,0.43809e+04_rb /)\n      kbo(:,23,15) = (/ &\n        & 0.39727e+04_rb,0.40275e+04_rb,0.40936e+04_rb,0.41646e+04_rb,0.42404e+04_rb /)\n      kbo(:,24,15) = (/ &\n        & 0.37507e+04_rb,0.38336e+04_rb,0.39239e+04_rb,0.40206e+04_rb,0.41209e+04_rb /)\n      kbo(:,25,15) = (/ &\n        & 0.35606e+04_rb,0.36694e+04_rb,0.37826e+04_rb,0.39026e+04_rb,0.40244e+04_rb /)\n      kbo(:,26,15) = (/ &\n        & 0.34043e+04_rb,0.35364e+04_rb,0.36731e+04_rb,0.38130e+04_rb,0.39519e+04_rb /)\n      kbo(:,27,15) = (/ &\n        & 0.32803e+04_rb,0.34346e+04_rb,0.35912e+04_rb,0.37476e+04_rb,0.39014e+04_rb /)\n      kbo(:,28,15) = (/ &\n        & 0.31876e+04_rb,0.33610e+04_rb,0.35344e+04_rb,0.37042e+04_rb,0.38699e+04_rb /)\n      kbo(:,29,15) = (/ &\n        & 0.31239e+04_rb,0.33137e+04_rb,0.34995e+04_rb,0.36813e+04_rb,0.38573e+04_rb /)\n      kbo(:,30,15) = (/ &\n        & 0.30850e+04_rb,0.32872e+04_rb,0.34837e+04_rb,0.36745e+04_rb,0.38591e+04_rb /)\n      kbo(:,31,15) = (/ &\n        & 0.30674e+04_rb,0.32795e+04_rb,0.34848e+04_rb,0.36826e+04_rb,0.38724e+04_rb /)\n      kbo(:,32,15) = (/ &\n        & 0.30683e+04_rb,0.32879e+04_rb,0.34990e+04_rb,0.37022e+04_rb,0.38953e+04_rb /)\n      kbo(:,33,15) = (/ &\n        & 0.30831e+04_rb,0.33087e+04_rb,0.35243e+04_rb,0.37303e+04_rb,0.39250e+04_rb /)\n      kbo(:,34,15) = (/ &\n        & 0.31017e+04_rb,0.33308e+04_rb,0.35496e+04_rb,0.37580e+04_rb,0.39527e+04_rb /)\n      kbo(:,35,15) = (/ &\n        & 0.31057e+04_rb,0.33387e+04_rb,0.35601e+04_rb,0.37700e+04_rb,0.39654e+04_rb /)\n      kbo(:,36,15) = (/ &\n        & 0.30895e+04_rb,0.33260e+04_rb,0.35504e+04_rb,0.37630e+04_rb,0.39606e+04_rb /)\n      kbo(:,37,15) = (/ &\n        & 0.30400e+04_rb,0.32811e+04_rb,0.35096e+04_rb,0.37263e+04_rb,0.39277e+04_rb /)\n      kbo(:,38,15) = (/ &\n        & 0.29913e+04_rb,0.32361e+04_rb,0.34690e+04_rb,0.36890e+04_rb,0.38942e+04_rb /)\n      kbo(:,39,15) = (/ &\n        & 0.29441e+04_rb,0.31926e+04_rb,0.34294e+04_rb,0.36526e+04_rb,0.38612e+04_rb /)\n      kbo(:,40,15) = (/ &\n        & 0.28722e+04_rb,0.31254e+04_rb,0.33667e+04_rb,0.35943e+04_rb,0.38073e+04_rb /)\n      kbo(:,41,15) = (/ &\n        & 0.27971e+04_rb,0.30548e+04_rb,0.33004e+04_rb,0.35326e+04_rb,0.37505e+04_rb /)\n      kbo(:,42,15) = (/ &\n        & 0.27226e+04_rb,0.29837e+04_rb,0.32336e+04_rb,0.34701e+04_rb,0.36925e+04_rb /)\n      kbo(:,43,15) = (/ &\n        & 0.26332e+04_rb,0.28981e+04_rb,0.31525e+04_rb,0.33944e+04_rb,0.36223e+04_rb /)\n      kbo(:,44,15) = (/ &\n        & 0.25372e+04_rb,0.28050e+04_rb,0.30643e+04_rb,0.33114e+04_rb,0.35441e+04_rb /)\n      kbo(:,45,15) = (/ &\n        & 0.24417e+04_rb,0.27113e+04_rb,0.29748e+04_rb,0.32268e+04_rb,0.34651e+04_rb /)\n      kbo(:,46,15) = (/ &\n        & 0.23395e+04_rb,0.26115e+04_rb,0.28783e+04_rb,0.31351e+04_rb,0.33792e+04_rb /)\n      kbo(:,47,15) = (/ &\n        & 0.22243e+04_rb,0.24998e+04_rb,0.27694e+04_rb,0.30313e+04_rb,0.32810e+04_rb /)\n      kbo(:,48,15) = (/ &\n        & 0.21083e+04_rb,0.23877e+04_rb,0.26592e+04_rb,0.29257e+04_rb,0.31803e+04_rb /)\n      kbo(:,49,15) = (/ &\n        & 0.19925e+04_rb,0.22741e+04_rb,0.25488e+04_rb,0.28180e+04_rb,0.30783e+04_rb /)\n      kbo(:,50,15) = (/ &\n        & 0.18841e+04_rb,0.21666e+04_rb,0.24447e+04_rb,0.27159e+04_rb,0.29806e+04_rb /)\n      kbo(:,51,15) = (/ &\n        & 0.17798e+04_rb,0.20618e+04_rb,0.23428e+04_rb,0.26160e+04_rb,0.28839e+04_rb /)\n      kbo(:,52,15) = (/ &\n        & 0.16762e+04_rb,0.19574e+04_rb,0.22398e+04_rb,0.25156e+04_rb,0.27862e+04_rb /)\n      kbo(:,53,15) = (/ &\n        & 0.15731e+04_rb,0.18530e+04_rb,0.21358e+04_rb,0.24152e+04_rb,0.26872e+04_rb /)\n      kbo(:,54,15) = (/ &\n        & 0.14802e+04_rb,0.17581e+04_rb,0.20401e+04_rb,0.23219e+04_rb,0.25956e+04_rb /)\n      kbo(:,55,15) = (/ &\n        & 0.13915e+04_rb,0.16675e+04_rb,0.19488e+04_rb,0.22318e+04_rb,0.25080e+04_rb /)\n      kbo(:,56,15) = (/ &\n        & 0.13039e+04_rb,0.15778e+04_rb,0.18577e+04_rb,0.21406e+04_rb,0.24200e+04_rb /)\n      kbo(:,57,15) = (/ &\n        & 0.12167e+04_rb,0.14890e+04_rb,0.17672e+04_rb,0.20493e+04_rb,0.23313e+04_rb /)\n      kbo(:,58,15) = (/ &\n        & 0.11349e+04_rb,0.14057e+04_rb,0.16818e+04_rb,0.19631e+04_rb,0.22464e+04_rb /)\n      kbo(:,59,15) = (/ &\n        & 0.11025e+04_rb,0.13721e+04_rb,0.16476e+04_rb,0.19283e+04_rb,0.22117e+04_rb /)\n      kbo(:,13,16) = (/ &\n        & 0.12492e+05_rb,0.12602e+05_rb,0.12678e+05_rb,0.12730e+05_rb,0.12749e+05_rb /)\n      kbo(:,14,16) = (/ &\n        & 0.14696e+05_rb,0.14792e+05_rb,0.14862e+05_rb,0.14890e+05_rb,0.14889e+05_rb /)\n      kbo(:,15,16) = (/ &\n        & 0.17153e+05_rb,0.17242e+05_rb,0.17275e+05_rb,0.17274e+05_rb,0.17231e+05_rb /)\n      kbo(:,16,16) = (/ &\n        & 0.19843e+05_rb,0.19894e+05_rb,0.19898e+05_rb,0.19845e+05_rb,0.19747e+05_rb /)\n      kbo(:,17,16) = (/ &\n        & 0.22727e+05_rb,0.22731e+05_rb,0.22667e+05_rb,0.22551e+05_rb,0.22386e+05_rb /)\n      kbo(:,18,16) = (/ &\n        & 0.25761e+05_rb,0.25684e+05_rb,0.25544e+05_rb,0.25342e+05_rb,0.25070e+05_rb /)\n      kbo(:,19,16) = (/ &\n        & 0.28878e+05_rb,0.28701e+05_rb,0.28454e+05_rb,0.28131e+05_rb,0.27759e+05_rb /)\n      kbo(:,20,16) = (/ &\n        & 0.31981e+05_rb,0.31695e+05_rb,0.31314e+05_rb,0.30871e+05_rb,0.30360e+05_rb /)\n      kbo(:,21,16) = (/ &\n        & 0.35017e+05_rb,0.34575e+05_rb,0.34064e+05_rb,0.33480e+05_rb,0.32821e+05_rb /)\n      kbo(:,22,16) = (/ &\n        & 0.37854e+05_rb,0.37264e+05_rb,0.36589e+05_rb,0.35840e+05_rb,0.35046e+05_rb /)\n      kbo(:,23,16) = (/ &\n        & 0.40473e+05_rb,0.39710e+05_rb,0.38862e+05_rb,0.37967e+05_rb,0.37023e+05_rb /)\n      kbo(:,24,16) = (/ &\n        & 0.42796e+05_rb,0.41864e+05_rb,0.40869e+05_rb,0.39817e+05_rb,0.38718e+05_rb /)\n      kbo(:,25,16) = (/ &\n        & 0.44813e+05_rb,0.43719e+05_rb,0.42578e+05_rb,0.41380e+05_rb,0.40143e+05_rb /)\n      kbo(:,26,16) = (/ &\n        & 0.46504e+05_rb,0.45263e+05_rb,0.43973e+05_rb,0.42641e+05_rb,0.41294e+05_rb /)\n      kbo(:,27,16) = (/ &\n        & 0.47893e+05_rb,0.46507e+05_rb,0.45087e+05_rb,0.43647e+05_rb,0.42197e+05_rb /)\n      kbo(:,28,16) = (/ &\n        & 0.48993e+05_rb,0.47480e+05_rb,0.45952e+05_rb,0.44417e+05_rb,0.42878e+05_rb /)\n      kbo(:,29,16) = (/ &\n        & 0.49823e+05_rb,0.48206e+05_rb,0.46588e+05_rb,0.44969e+05_rb,0.43353e+05_rb /)\n      kbo(:,30,16) = (/ &\n        & 0.50415e+05_rb,0.48716e+05_rb,0.47025e+05_rb,0.45339e+05_rb,0.43659e+05_rb /)\n      kbo(:,31,16) = (/ &\n        & 0.50811e+05_rb,0.49042e+05_rb,0.47288e+05_rb,0.45543e+05_rb,0.43813e+05_rb /)\n      kbo(:,32,16) = (/ &\n        & 0.51032e+05_rb,0.49203e+05_rb,0.47400e+05_rb,0.45610e+05_rb,0.43841e+05_rb /)\n      kbo(:,33,16) = (/ &\n        & 0.51107e+05_rb,0.49234e+05_rb,0.47393e+05_rb,0.45565e+05_rb,0.43775e+05_rb /)\n      kbo(:,34,16) = (/ &\n        & 0.51130e+05_rb,0.49228e+05_rb,0.47350e+05_rb,0.45497e+05_rb,0.43688e+05_rb /)\n      kbo(:,35,16) = (/ &\n        & 0.51256e+05_rb,0.49316e+05_rb,0.47413e+05_rb,0.45540e+05_rb,0.43711e+05_rb /)\n      kbo(:,36,16) = (/ &\n        & 0.51519e+05_rb,0.49555e+05_rb,0.47626e+05_rb,0.45731e+05_rb,0.43885e+05_rb /)\n      kbo(:,37,16) = (/ &\n        & 0.52034e+05_rb,0.50041e+05_rb,0.48090e+05_rb,0.46168e+05_rb,0.44302e+05_rb /)\n      kbo(:,38,16) = (/ &\n        & 0.52529e+05_rb,0.50511e+05_rb,0.48535e+05_rb,0.46595e+05_rb,0.44706e+05_rb /)\n      kbo(:,39,16) = (/ &\n        & 0.52985e+05_rb,0.50952e+05_rb,0.48954e+05_rb,0.46996e+05_rb,0.45085e+05_rb /)\n      kbo(:,40,16) = (/ &\n        & 0.53633e+05_rb,0.51575e+05_rb,0.49556e+05_rb,0.47578e+05_rb,0.45648e+05_rb /)\n      kbo(:,41,16) = (/ &\n        & 0.54289e+05_rb,0.52211e+05_rb,0.50171e+05_rb,0.48171e+05_rb,0.46220e+05_rb /)\n      kbo(:,42,16) = (/ &\n        & 0.54932e+05_rb,0.52836e+05_rb,0.50778e+05_rb,0.48759e+05_rb,0.46785e+05_rb /)\n      kbo(:,43,16) = (/ &\n        & 0.55673e+05_rb,0.53569e+05_rb,0.51488e+05_rb,0.49449e+05_rb,0.47456e+05_rb /)\n      kbo(:,44,16) = (/ &\n        & 0.56461e+05_rb,0.54346e+05_rb,0.52247e+05_rb,0.50190e+05_rb,0.48178e+05_rb /)\n      kbo(:,45,16) = (/ &\n        & 0.57241e+05_rb,0.55121e+05_rb,0.53007e+05_rb,0.50929e+05_rb,0.48897e+05_rb /)\n      kbo(:,46,16) = (/ &\n        & 0.58063e+05_rb,0.55933e+05_rb,0.53806e+05_rb,0.51710e+05_rb,0.49656e+05_rb /)\n      kbo(:,47,16) = (/ &\n        & 0.58978e+05_rb,0.56828e+05_rb,0.54697e+05_rb,0.52582e+05_rb,0.50505e+05_rb /)\n      kbo(:,48,16) = (/ &\n        & 0.59891e+05_rb,0.57720e+05_rb,0.55586e+05_rb,0.53459e+05_rb,0.51367e+05_rb /)\n      kbo(:,49,16) = (/ &\n        & 0.60795e+05_rb,0.58621e+05_rb,0.56472e+05_rb,0.54336e+05_rb,0.52224e+05_rb /)\n      kbo(:,50,16) = (/ &\n        & 0.61639e+05_rb,0.59466e+05_rb,0.57298e+05_rb,0.55162e+05_rb,0.53034e+05_rb /)\n      kbo(:,51,16) = (/ &\n        & 0.62447e+05_rb,0.60284e+05_rb,0.58110e+05_rb,0.55961e+05_rb,0.53824e+05_rb /)\n      kbo(:,52,16) = (/ &\n        & 0.63240e+05_rb,0.61098e+05_rb,0.58916e+05_rb,0.56760e+05_rb,0.54612e+05_rb /)\n      kbo(:,53,16) = (/ &\n        & 0.64030e+05_rb,0.61903e+05_rb,0.59727e+05_rb,0.57558e+05_rb,0.55411e+05_rb /)\n      kbo(:,54,16) = (/ &\n        & 0.64735e+05_rb,0.62637e+05_rb,0.60471e+05_rb,0.58287e+05_rb,0.56138e+05_rb /)\n      kbo(:,55,16) = (/ &\n        & 0.65407e+05_rb,0.63332e+05_rb,0.61181e+05_rb,0.59003e+05_rb,0.56834e+05_rb /)\n      kbo(:,56,16) = (/ &\n        & 0.66069e+05_rb,0.64015e+05_rb,0.61881e+05_rb,0.59702e+05_rb,0.57529e+05_rb /)\n      kbo(:,57,16) = (/ &\n        & 0.66725e+05_rb,0.64683e+05_rb,0.62576e+05_rb,0.60411e+05_rb,0.58225e+05_rb /)\n      kbo(:,58,16) = (/ &\n        & 0.67327e+05_rb,0.65315e+05_rb,0.63232e+05_rb,0.61078e+05_rb,0.58891e+05_rb /)\n      kbo(:,59,16) = (/ &\n        & 0.67577e+05_rb,0.65572e+05_rb,0.63496e+05_rb,0.61349e+05_rb,0.59161e+05_rb /)\n\n!     -----------------------------------------------------------------\n\n      forrefo(:, 1) = (/ 0.299818e-05_rb, 0.209282e-05_rb, 0.988353e-04_rb, 0.632178e-03_rb /)\n      forrefo(:, 2) = (/ 0.633648e-05_rb, 0.509214e-04_rb, 0.650535e-03_rb, 0.264019e-02_rb /)\n      forrefo(:, 3) = (/ 0.636782e-04_rb, 0.136577e-03_rb, 0.166500e-02_rb, 0.750821e-02_rb /)\n      forrefo(:, 4) = (/ 0.472314e-03_rb, 0.988296e-03_rb, 0.585751e-02_rb, 0.187352e-01_rb /)\n      forrefo(:, 5) = (/ 0.558635e-02_rb, 0.856489e-02_rb, 0.157438e-01_rb, 0.181471e-01_rb /)\n      forrefo(:, 6) = (/ 0.217395e-01_rb, 0.229156e-01_rb, 0.230125e-01_rb, 0.143821e-01_rb /)\n      forrefo(:, 7) = (/ 0.277222e-01_rb, 0.299252e-01_rb, 0.208929e-01_rb, 0.826748e-02_rb /)\n      forrefo(:, 8) = (/ 0.252119e-01_rb, 0.262911e-01_rb, 0.187663e-01_rb, 0.417110e-02_rb /)\n      forrefo(:, 9) = (/ 0.304941e-01_rb, 0.175545e-01_rb, 0.971224e-02_rb, 0.142023e-02_rb /)\n      forrefo(:,10) = (/ 0.327200e-01_rb, 0.215788e-01_rb, 0.346831e-02_rb, 0.157989e-02_rb /)\n      forrefo(:,11) = (/ 0.324955e-01_rb, 0.228571e-01_rb, 0.171749e-02_rb, 0.226853e-02_rb /)\n      forrefo(:,12) = (/ 0.326588e-01_rb, 0.198544e-01_rb, 0.532339e-06_rb, 0.279086e-02_rb /)\n      forrefo(:,13) = (/ 0.345157e-01_rb, 0.168679e-01_rb, 0.505361e-06_rb, 0.276647e-02_rb /)\n      forrefo(:,14) = (/ 0.448765e-01_rb, 0.123791e-02_rb, 0.488367e-06_rb, 0.122245e-02_rb /)\n      forrefo(:,15) = (/ 0.486925e-01_rb, 0.464371e-06_rb, 0.464241e-06_rb, 0.753846e-06_rb /)\n      forrefo(:,16) = (/ 0.530511e-01_rb, 0.376234e-06_rb, 0.409824e-06_rb, 0.470650e-06_rb /)\n\n!     -----------------------------------------------------------------\n!     The array SELFREFO contains the coefficient of the water vapor\n!     self-continuum (including the energy term).  The first index\n!     refers to temperature in 7.2 degree increments.  For instance,\n!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,\n!     etc.  The second index runs over the g-channel (1 to 16).\n\n      selfrefo(:, 1) = (/ &\n        &  0.118069e+00_rb, 0.713523e-01_rb, 0.431199e-01_rb, 0.260584e-01_rb, 0.157477e-01_rb, &\n        &  0.951675e-02_rb, 0.575121e-02_rb, 0.347560e-02_rb, 0.210039e-02_rb, 0.126932e-02_rb /)\n      selfrefo(:, 2) = (/ &\n        &  0.137081e-01_rb, 0.139046e-01_rb, 0.141040e-01_rb, 0.143061e-01_rb, 0.145112e-01_rb, &\n        &  0.147193e-01_rb, 0.149303e-01_rb, 0.151443e-01_rb, 0.153614e-01_rb, 0.155816e-01_rb /)\n      selfrefo(:, 3) = (/ &\n        &  0.166575e-01_rb, 0.164916e-01_rb, 0.163273e-01_rb, 0.161647e-01_rb, 0.160037e-01_rb, &\n        &  0.158443e-01_rb, 0.156864e-01_rb, 0.155302e-01_rb, 0.153755e-01_rb, 0.152224e-01_rb /)\n      selfrefo(:, 4) = (/ &\n        &  0.597379e-01_rb, 0.509517e-01_rb, 0.434579e-01_rb, 0.370662e-01_rb, 0.316145e-01_rb, &\n        &  0.269647e-01_rb, 0.229988e-01_rb, 0.196162e-01_rb, 0.167311e-01_rb, 0.142703e-01_rb /)\n      selfrefo(:, 5) = (/ &\n        &  0.227517e+00_rb, 0.198401e+00_rb, 0.173011e+00_rb, 0.150870e+00_rb, 0.131563e+00_rb, &\n        &  0.114726e+00_rb, 0.100044e+00_rb, 0.872415e-01_rb, 0.760769e-01_rb, 0.663411e-01_rb /)\n      selfrefo(:, 6) = (/ &\n        &  0.453235e+00_rb, 0.414848e+00_rb, 0.379712e+00_rb, 0.347552e+00_rb, 0.318116e+00_rb, &\n        &  0.291173e+00_rb, 0.266512e+00_rb, 0.243940e+00_rb, 0.223279e+00_rb, 0.204368e+00_rb /)\n      selfrefo(:, 7) = (/ &\n        &  0.569263e+00_rb, 0.516415e+00_rb, 0.468473e+00_rb, 0.424982e+00_rb, 0.385528e+00_rb, &\n        &  0.349737e+00_rb, 0.317269e+00_rb, 0.287815e+00_rb, 0.261095e+00_rb, 0.236856e+00_rb /)\n      selfrefo(:, 8) = (/ &\n        &  0.490314e+00_rb, 0.448042e+00_rb, 0.409413e+00_rb, 0.374116e+00_rb, 0.341861e+00_rb, &\n        &  0.312387e+00_rb, 0.285455e+00_rb, 0.260844e+00_rb, 0.238355e+00_rb, 0.217805e+00_rb /)\n      selfrefo(:, 9) = (/ &\n        &  0.258162e+00_rb, 0.265085e+00_rb, 0.272193e+00_rb, 0.279493e+00_rb, 0.286988e+00_rb, &\n        &  0.294684e+00_rb, 0.302586e+00_rb, 0.310701e+00_rb, 0.319033e+00_rb, 0.327588e+00_rb /)\n      selfrefo(:,10) = (/ &\n        &  0.332019e+00_rb, 0.331902e+00_rb, 0.331784e+00_rb, 0.331666e+00_rb, 0.331549e+00_rb, &\n        &  0.331431e+00_rb, 0.331314e+00_rb, 0.331197e+00_rb, 0.331079e+00_rb, 0.330962e+00_rb /)\n      selfrefo(:,11) = (/ &\n        &  0.357523e+00_rb, 0.353154e+00_rb, 0.348839e+00_rb, 0.344576e+00_rb, 0.340366e+00_rb, &\n        &  0.336207e+00_rb, 0.332099e+00_rb, 0.328041e+00_rb, 0.324032e+00_rb, 0.320073e+00_rb /)\n      selfrefo(:,12) = (/ &\n        &  0.294662e+00_rb, 0.299043e+00_rb, 0.303488e+00_rb, 0.308000e+00_rb, 0.312579e+00_rb, &\n        &  0.317226e+00_rb, 0.321941e+00_rb, 0.326727e+00_rb, 0.331585e+00_rb, 0.336514e+00_rb /)\n      selfrefo(:,13) = (/ &\n        &  0.227445e+00_rb, 0.241545e+00_rb, 0.256519e+00_rb, 0.272422e+00_rb, 0.289311e+00_rb, &\n        &  0.307247e+00_rb, 0.326294e+00_rb, 0.346523e+00_rb, 0.368005e+00_rb, 0.390820e+00_rb /)\n      selfrefo(:,14) = (/ &\n        &  0.616203e-02_rb, 0.113523e-01_rb, 0.209144e-01_rb, 0.385307e-01_rb, 0.709852e-01_rb, &\n        &  0.130776e+00_rb, 0.240929e+00_rb, 0.443865e+00_rb, 0.817733e+00_rb, 0.150651e+01_rb /)\n      selfrefo(:,15) = (/ &\n        &  0.279552e-03_rb, 0.808472e-03_rb, 0.233812e-02_rb, 0.676192e-02_rb, 0.195557e-01_rb, &\n        &  0.565555e-01_rb, 0.163560e+00_rb, 0.473020e+00_rb, 0.136799e+01_rb, 0.395626e+01_rb /)\n      selfrefo(:,16) = (/ &\n        &  0.261006e-03_rb, 0.771043e-03_rb, 0.227776e-02_rb, 0.672879e-02_rb, 0.198777e-01_rb, &\n        &  0.587212e-01_rb, 0.173470e+00_rb, 0.512452e+00_rb, 0.151385e+01_rb, 0.447209e+01_rb /)\n     \n      end subroutine sw_kgb29\n\n      end module rrtmg_sw_k_g\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_rad.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_rad.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.10 $\n!     created:   $Date: 2009/02/09 19:45:55 $\n!\n\n       module rrtmg_sw_rad\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n!\n! ****************************************************************************\n! *                                                                          *\n! *                             RRTMG_SW                                     *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                 a rapid radiative transfer model                         *\n! *                  for the solar spectral region                           *\n! *           for application to general circulation models                  *\n! *                                                                          *\n! *                                                                          *\n! *           Atmospheric and Environmental Research, Inc.                   *\n! *                       131 Hartwell Avenue                                *\n! *                       Lexington, MA 02421                                *\n! *                                                                          *\n! *                                                                          *\n! *                          Eli J. Mlawer                                   *\n! *                       Jennifer S. Delamere                               *\n! *                        Michael J. Iacono                                 *\n! *                        Shepard A. Clough                                 *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                                                                          *\n! *                      email:  miacono@aer.com                             *\n! *                      email:  emlawer@aer.com                             *\n! *                      email:  jdelamer@aer.com                            *\n! *                                                                          *\n! *       The authors wish to acknowledge the contributions of the           *\n! *       following people:  Steven J. Taubman, Patrick D. Brown,            *\n! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                     *\n! *                                                                          *\n! ****************************************************************************\n\n! --------- Modules ---------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrsw_vsn\n      use mcica_subcol_gen_sw, only: mcica_subcol_sw\n      use rrtmg_sw_cldprmc, only: cldprmc_sw\n! *** Move the required call to rrtmg_sw_ini below and the following \n! use association to GCM initialization area ***\n!      use rrtmg_sw_init, only: rrtmg_sw_ini\n      use rrtmg_sw_setcoef, only: setcoef_sw\n      use rrtmg_sw_spcvmc, only: spcvmc_sw\n\n      implicit none\n      private\n! public interfaces/functions/subroutines\n      public :: rrtmg_sw, inatm_sw, earth_sun\n\n!------------------------------------------------------------------\n      contains\n!------------------------------------------------------------------\n\n!------------------------------------------------------------------\n! Public subroutines\n!------------------------------------------------------------------\n\n      recursive subroutine rrtmg_sw &\n            (ncol    ,nlay    ,icld    , &\n             play    ,plev    ,tlay    ,tlev    ,tsfc   , &\n             h2ovmr , o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr ,o2vmr , &\n             asdir   ,asdif   ,aldir   ,aldif   , &\n             coszen  ,adjes   ,dyofyr  ,scon    , &\n             inflgsw ,iceflgsw,liqflgsw,cldfmcl , &\n             taucmcl ,ssacmcl ,asmcmcl ,fsfcmcl , &\n             ciwpmcl ,clwpmcl ,reicmcl ,relqmcl , &\n             tauaer  ,ssaaer  ,asmaer  ,ecaer   , &\n             swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc)\n\n! ------- Description -------\n\n! This program is the driver for RRTMG_SW, the AER SW radiation model for \n!  application to GCMs, that has been adapted from RRTM_SW for improved\n!  efficiency and to provide fractional cloudiness and cloud overlap\n!  capability using McICA.\n!\n! Note: The call to RRTMG_SW_INI should be moved to the GCM initialization \n!  area, since this has to be called only once. \n!\n! This routine\n!    b) calls INATM_SW to read in the atmospheric profile;\n!       all layering in RRTMG is ordered from surface to toa. \n!    c) calls CLDPRMC_SW to set cloud optical depth for McICA based\n!       on input cloud properties\n!    d) calls SETCOEF_SW to calculate various quantities needed for \n!       the radiative transfer algorithm\n!    e) calls SPCVMC to call the two-stream model that in turn \n!       calls TAUMOL to calculate gaseous optical depths for each \n!       of the 16 spectral bands and to perform the radiative transfer\n!       using McICA, the Monte-Carlo Independent Column Approximation,\n!       to represent sub-grid scale cloud variability\n!    f) passes the calculated fluxes and cooling rates back to GCM\n!\n! Two modes of operation are possible:\n!     The mode is chosen by using either rrtmg_sw.nomcica.f90 (to not use\n!     McICA) or rrtmg_sw.f90 (to use McICA) to interface with a GCM.\n!\n!    1) Standard, single forward model calculation (imca = 0); this is \n!       valid only for clear sky or fully overcast clouds\n!    2) Monte Carlo Independent Column Approximation (McICA, Pincus et al., \n!       JC, 2003) method is applied to the forward model calculation (imca = 1)\n!       This method is valid for clear sky or partial cloud conditions.\n!\n! This call to RRTMG_SW must be preceeded by a call to the module\n!     mcica_subcol_gen_sw.f90 to run the McICA sub-column cloud generator,\n!     which will provide the cloud physical or cloud optical properties\n!     on the RRTMG quadrature point (ngptsw) dimension.\n!\n! Two methods of cloud property input are possible:\n!     Cloud properties can be input in one of two ways (controlled by input \n!     flags inflag, iceflag and liqflag; see text file rrtmg_sw_instructions\n!     and subroutine rrtmg_sw_cldprmc.f90 for further details):\n!\n!    1) Input cloud fraction, cloud optical depth, single scattering albedo \n!       and asymmetry parameter directly (inflgsw = 0)\n!    2) Input cloud fraction and cloud physical properties: ice fracion,\n!       ice and liquid particle sizes (inflgsw = 1 or 2);  \n!       cloud optical properties are calculated by cldprmc based\n!       on input settings of iceflgsw and liqflgsw\n!\n! Two methods of aerosol property input are possible:\n!     Aerosol properties can be input in one of two ways (controlled by input \n!     flag iaer, see text file rrtmg_sw_instructions for further details):\n!\n!    1) Input aerosol optical depth, single scattering albedo and asymmetry\n!       parameter directly by layer and spectral band (iaer=10)\n!    2) Input aerosol optical depth and 0.55 micron directly by layer and use\n!       one or more of six ECMWF aerosol types (iaer=6)\n!\n!\n! ------- Modifications -------\n!\n! This version of RRTMG_SW has been modified from RRTM_SW to use a reduced\n! set of g-point intervals and a two-stream model for application to GCMs. \n!\n!-- Original version (derived from RRTM_SW)\n!     2002: AER. Inc.\n!-- Conversion to F90 formatting; addition of 2-stream radiative transfer\n!     Feb 2003: J.-J. Morcrette, ECMWF\n!-- Additional modifications for GCM application\n!     Aug 2003: M. J. Iacono, AER Inc.\n!-- Total number of g-points reduced from 224 to 112.  Original\n!   set of 224 can be restored by exchanging code in module parrrsw.f90 \n!   and in file rrtmg_sw_init.f90.\n!     Apr 2004: M. J. Iacono, AER, Inc.\n!-- Modifications to include output for direct and diffuse \n!   downward fluxes.  There are output as \"true\" fluxes without\n!   any delta scaling applied.  Code can be commented to exclude\n!   this calculation in source file rrtmg_sw_spcvrt.f90.\n!     Jan 2005: E. J. Mlawer, M. J. Iacono, AER, Inc.\n!-- Revised to add McICA capability.\n!     Nov 2005: M. J. Iacono, AER, Inc.\n!-- Reformatted for consistency with rrtmg_lw.\n!     Feb 2007: M. J. Iacono, AER, Inc.\n!-- Modifications to formatting to use assumed-shape arrays. \n!     Aug 2007: M. J. Iacono, AER, Inc.\n!-- Modified to output direct and diffuse fluxes either with or without\n!   delta scaling based on setting of idelm flag. \n!     Dec 2008: M. J. Iacono, AER, Inc.\n\n! --------- Modules ---------\n\n      use parrrsw, only : nbndsw, ngptsw, naerec, nstr, nmol, mxmol, &\n                          jpband, jpb1, jpb2\n      use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya\n      use rrsw_con, only : heatfac, oneminus, pi\n      use rrsw_wvn, only : wavenum1, wavenum2\n\n! ------- Declarations\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: ncol            ! Number of horizontal columns     \n      integer(kind=im), intent(in) :: nlay            ! Number of model layers\n      integer(kind=im), intent(inout) :: icld         ! Cloud overlap method\n                                                      !    0: Clear only\n                                                      !    1: Random\n                                                      !    2: Maximum/random\n                                                      !    3: Maximum\n\n      real(kind=rb), intent(in) :: play(ncol,nlay)          ! Layer pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(ncol,nlay+1)          ! Interface pressures (hPa, mb)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(ncol,nlay)          ! Layer temperatures (K)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(ncol,nlay+1)          ! Interface temperatures (K)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(ncol)            ! Surface temperature (K)\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(ncol,nlay)        ! H2O volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(ncol,nlay)         ! O3 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(ncol,nlay)        ! CO2 volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(ncol,nlay)        ! Methane volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(ncol,nlay)        ! Nitrous oxide volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(ncol,nlay)         ! Oxygen volume mixing ratio\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: asdir(ncol)           ! UV/vis surface albedo direct rad\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: aldir(ncol)           ! Near-IR surface albedo direct rad\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: asdif(ncol)           ! UV/vis surface albedo: diffuse rad\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: aldif(ncol)           ! Near-IR surface albedo: diffuse rad\n                                                      !    Dimensions: (ncol)\n\n      integer(kind=im), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun\n                                                      !  distance if adjflx not provided)\n      real(kind=rb), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance\n      real(kind=rb), intent(in) :: coszen(ncol)          ! Cosine of solar zenith angle\n                                                      !    Dimensions: (ncol)\n      real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)\n\n      integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfmcl(ngptsw,ncol,nlay)     ! Cloud fraction\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: taucmcl(ngptsw,ncol,nlay)     ! In-cloud optical depth\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ssacmcl(ngptsw,ncol,nlay)     ! In-cloud single scattering albedo\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: asmcmcl(ngptsw,ncol,nlay)     ! In-cloud asymmetry parameter\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: fsfcmcl(ngptsw,ncol,nlay)     ! In-cloud forward scattering fraction\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwpmcl(ngptsw,ncol,nlay)     ! In-cloud ice water path (g/m2)\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: clwpmcl(ngptsw,ncol,nlay)     ! In-cloud liquid water path (g/m2)\n                                                      !    Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: reicmcl(ncol,nlay)       ! Cloud ice effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n                                                      ! specific definition of reicmcl depends on setting of iceflgsw:\n                                                      ! iceflgsw = 0: (inactive)\n                                                      ! \n                                                      ! iceflgsw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992),\n                                                      !               r_ec range is limited to 13.0 to 130.0 microns\n                                                      ! iceflgsw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996)\n                                                      !               r_k range is limited to 5.0 to 131.0 microns\n                                                      ! iceflgsw = 3: generalized effective size, dge, (Fu, 1996),\n                                                      !               dge range is limited to 5.0 to 140.0 microns\n                                                      !               [dge = 1.0315 * r_ec]\n      real(kind=rb), intent(in) :: relqmcl(ncol,nlay)       ! Cloud water drop effective radius (microns)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tauaer(ncol,nlay,nbndsw)      ! Aerosol optical depth (iaer=10 only)\n                                                      !    Dimensions: (ncol,nlay,nbndsw)\n                                                      ! (non-delta scaled)      \n      real(kind=rb), intent(in) :: ssaaer(ncol,nlay,nbndsw)      ! Aerosol single scattering albedo (iaer=10 only)\n                                                      !    Dimensions: (ncol,nlay,nbndsw)\n                                                      ! (non-delta scaled)      \n      real(kind=rb), intent(in) :: asmaer(ncol,nlay,nbndsw)      ! Aerosol asymmetry parameter (iaer=10 only)\n                                                      !    Dimensions: (ncol,nlay,nbndsw)\n                                                      ! (non-delta scaled)      \n      real(kind=rb), intent(in) :: ecaer(ncol,nlay,naerec)       ! Aerosol optical depth at 0.55 micron (iaer=6 only)\n                                                      !    Dimensions: (ncol,nlay,naerec)\n                                                      ! (non-delta scaled)      \n\n! ----- Output -----\n\n      real(kind=rb), intent(out) :: swuflx(ncol,nlay+1)       ! Total sky shortwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: swdflx(ncol,nlay+1)       ! Total sky shortwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: swhr(ncol,nlay)         ! Total sky shortwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n      real(kind=rb), intent(out) :: swuflxc(ncol,nlay+1)      ! Clear sky shortwave upward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: swdflxc(ncol,nlay+1)      ! Clear sky shortwave downward flux (W/m2)\n                                                      !    Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(out) :: swhrc(ncol,nlay)        ! Clear sky shortwave radiative heating rate (K/d)\n                                                      !    Dimensions: (ncol,nlay)\n\n! ----- Local -----\n\n! Control\n      integer(kind=im) :: nlayers             ! total number of layers\n      integer(kind=im) :: istart              ! beginning band of calculation\n      integer(kind=im) :: iend                ! ending band of calculation\n      integer(kind=im) :: icpr                ! cldprop/cldprmc use flag\n      integer(kind=im) :: iout                ! output option flag (inactive)\n      integer(kind=im) :: iaer                ! aerosol option flag\n      integer(kind=im) :: idelm               ! delta-m scaling flag\n                                              ! [0 = direct and diffuse fluxes are unscaled]\n                                              ! [1 = direct and diffuse fluxes are scaled]\n                                              ! (total downward fluxes are always delta scaled)\n      integer(kind=im) :: isccos              ! instrumental cosine response flag (inactive)\n      integer(kind=im) :: iplon               ! column loop index\n      integer(kind=im) :: i                   ! layer loop index                       ! jk\n      integer(kind=im) :: ib                  ! band loop index                        ! jsw\n      integer(kind=im) :: ia, ig              ! indices\n      integer(kind=im) :: k                   ! layer loop index\n      integer(kind=im) :: ims                 ! value for changing mcica permute seed\n      integer(kind=im) :: imca                ! flag for mcica [0=off, 1=on]\n\n      real(kind=rb) :: zepsec, zepzen         ! epsilon\n      real(kind=rb) :: zdpgcp                 ! flux to heating conversion ratio\n\n! Atmosphere\n      real(kind=rb) :: pavel(nlay+1)          ! layer pressures (mb) \n      real(kind=rb) :: tavel(nlay+1)          ! layer temperatures (K)\n      real(kind=rb) :: pz(0:nlay+1)           ! level (interface) pressures (hPa, mb)\n      real(kind=rb) :: tz(0:nlay+1)           ! level (interface) temperatures (K)\n      real(kind=rb) :: tbound                 ! surface temperature (K)\n      real(kind=rb) :: pdp(nlay+1)            ! layer pressure thickness (hPa, mb)\n      real(kind=rb) :: coldry(nlay+1)         ! dry air column amount\n      real(kind=rb) :: wkl(mxmol,nlay+1)      ! molecular amounts (mol/cm-2)\n\n!      real(kind=rb) :: earth_sun             ! function for Earth/Sun distance factor\n      real(kind=rb) :: cossza                 ! Cosine of solar zenith angle\n      real(kind=rb) :: adjflux(jpband)        ! adjustment for current Earth/Sun distance\n      real(kind=rb) :: solvar(jpband)         ! solar constant scaling factor from rrtmg_sw\n                                              !  default value of 1368.22 Wm-2 at 1 AU\n      real(kind=rb) :: albdir(nbndsw)         ! surface albedo, direct          ! zalbp\n      real(kind=rb) :: albdif(nbndsw)         ! surface albedo, diffuse         ! zalbd\n\n      real(kind=rb) :: taua(nlay+1,nbndsw)    ! Aerosol optical depth\n      real(kind=rb) :: ssaa(nlay+1,nbndsw)    ! Aerosol single scattering albedo\n      real(kind=rb) :: asma(nlay+1,nbndsw)    ! Aerosol asymmetry parameter\n\n! Atmosphere - setcoef\n      integer(kind=im) :: laytrop             ! tropopause layer index\n      integer(kind=im) :: layswtch            ! tropopause layer index\n      integer(kind=im) :: laylow              ! tropopause layer index\n      integer(kind=im) :: jp(nlay+1)          ! \n      integer(kind=im) :: jt(nlay+1)          !\n      integer(kind=im) :: jt1(nlay+1)         !\n\n      real(kind=rb) :: colh2o(nlay+1)         ! column amount (h2o)\n      real(kind=rb) :: colco2(nlay+1)         ! column amount (co2)\n      real(kind=rb) :: colo3(nlay+1)          ! column amount (o3)\n      real(kind=rb) :: coln2o(nlay+1)         ! column amount (n2o)\n      real(kind=rb) :: colch4(nlay+1)         ! column amount (ch4)\n      real(kind=rb) :: colo2(nlay+1)          ! column amount (o2)\n      real(kind=rb) :: colmol(nlay+1)         ! column amount\n      real(kind=rb) :: co2mult(nlay+1)        ! column amount \n\n      integer(kind=im) :: indself(nlay+1)\n      integer(kind=im) :: indfor(nlay+1)\n      real(kind=rb) :: selffac(nlay+1)\n      real(kind=rb) :: selffrac(nlay+1)\n      real(kind=rb) :: forfac(nlay+1)\n      real(kind=rb) :: forfrac(nlay+1)\n\n      real(kind=rb) :: &                      !\n                         fac00(nlay+1), fac01(nlay+1), &\n                         fac10(nlay+1), fac11(nlay+1) \n\n! Atmosphere/clouds - cldprop\n      integer(kind=im) :: ncbands             ! number of cloud spectral bands\n      integer(kind=im) :: inflag              ! flag for cloud property method\n      integer(kind=im) :: iceflag             ! flag for ice cloud properties\n      integer(kind=im) :: liqflag             ! flag for liquid cloud properties\n\n!      real(kind=rb) :: cldfrac(nlay+1)        ! layer cloud fraction\n!      real(kind=rb) :: tauc(nlay+1)           ! in-cloud optical depth (non-delta scaled)\n!      real(kind=rb) :: ssac(nlay+1)           ! in-cloud single scattering albedo (non-delta scaled)\n!      real(kind=rb) :: asmc(nlay+1)           ! in-cloud asymmetry parameter (non-delta scaled)\n!      real(kind=rb) :: fsfc(nlay+1)           ! in-cloud forward scattering fraction (non-delta scaled)\n!      real(kind=rb) :: ciwp(nlay+1)           ! in-cloud ice water path\n!      real(kind=rb) :: clwp(nlay+1)           ! in-cloud liquid water path\n!      real(kind=rb) :: rei(nlay+1)            ! cloud ice particle size\n!      real(kind=rb) :: rel(nlay+1)            ! cloud liquid particle size\n\n!      real(kind=rb) :: taucloud(nlay+1,jpband)  ! in-cloud optical depth\n!      real(kind=rb) :: taucldorig(nlay+1,jpband)! in-cloud optical depth (non-delta scaled)\n!      real(kind=rb) :: ssacloud(nlay+1,jpband)  ! in-cloud single scattering albedo\n!      real(kind=rb) :: asmcloud(nlay+1,jpband)  ! in-cloud asymmetry parameter\n\n! Atmosphere/clouds - cldprmc [mcica]\n      real(kind=rb) :: cldfmc(ngptsw,nlay+1)    ! cloud fraction [mcica]\n      real(kind=rb) :: ciwpmc(ngptsw,nlay+1)    ! in-cloud ice water path [mcica]\n      real(kind=rb) :: clwpmc(ngptsw,nlay+1)    ! in-cloud liquid water path [mcica]\n      real(kind=rb) :: relqmc(nlay+1)           ! liquid particle effective radius (microns)\n      real(kind=rb) :: reicmc(nlay+1)           ! ice particle effective size (microns)\n      real(kind=rb) :: taucmc(ngptsw,nlay+1)    ! in-cloud optical depth [mcica]\n      real(kind=rb) :: taormc(ngptsw,nlay+1)    ! unscaled in-cloud optical depth [mcica]\n      real(kind=rb) :: ssacmc(ngptsw,nlay+1)    ! in-cloud single scattering albedo [mcica]\n      real(kind=rb) :: asmcmc(ngptsw,nlay+1)    ! in-cloud asymmetry parameter [mcica]\n      real(kind=rb) :: fsfcmc(ngptsw,nlay+1)    ! in-cloud forward scattering fraction [mcica]\n\n! Atmosphere/clouds/aerosol - spcvrt,spcvmc\n      real(kind=rb) :: ztauc(nlay+1,nbndsw)     ! cloud optical depth\n      real(kind=rb) :: ztaucorig(nlay+1,nbndsw) ! unscaled cloud optical depth\n      real(kind=rb) :: zasyc(nlay+1,nbndsw)     ! cloud asymmetry parameter \n                                                !  (first moment of phase function)\n      real(kind=rb) :: zomgc(nlay+1,nbndsw)     ! cloud single scattering albedo\n      real(kind=rb) :: ztaua(nlay+1,nbndsw)     ! total aerosol optical depth\n      real(kind=rb) :: zasya(nlay+1,nbndsw)     ! total aerosol asymmetry parameter \n      real(kind=rb) :: zomga(nlay+1,nbndsw)     ! total aerosol single scattering albedo\n\n      real(kind=rb) :: zcldfmc(nlay+1,ngptsw)   ! cloud fraction [mcica]\n      real(kind=rb) :: ztaucmc(nlay+1,ngptsw)   ! cloud optical depth [mcica]\n      real(kind=rb) :: ztaormc(nlay+1,ngptsw)   ! unscaled cloud optical depth [mcica]\n      real(kind=rb) :: zasycmc(nlay+1,ngptsw)   ! cloud asymmetry parameter [mcica] \n      real(kind=rb) :: zomgcmc(nlay+1,ngptsw)   ! cloud single scattering albedo [mcica]\n\n      real(kind=rb) :: zbbfu(nlay+2)          ! temporary upward shortwave flux (w/m2)\n      real(kind=rb) :: zbbfd(nlay+2)          ! temporary downward shortwave flux (w/m2)\n      real(kind=rb) :: zbbcu(nlay+2)          ! temporary clear sky upward shortwave flux (w/m2)\n      real(kind=rb) :: zbbcd(nlay+2)          ! temporary clear sky downward shortwave flux (w/m2)\n      real(kind=rb) :: zbbfddir(nlay+2)       ! temporary downward direct shortwave flux (w/m2)\n      real(kind=rb) :: zbbcddir(nlay+2)       ! temporary clear sky downward direct shortwave flux (w/m2)\n      real(kind=rb) :: zuvfd(nlay+2)          ! temporary UV downward shortwave flux (w/m2)\n      real(kind=rb) :: zuvcd(nlay+2)          ! temporary clear sky UV downward shortwave flux (w/m2)\n      real(kind=rb) :: zuvfddir(nlay+2)       ! temporary UV downward direct shortwave flux (w/m2)\n      real(kind=rb) :: zuvcddir(nlay+2)       ! temporary clear sky UV downward direct shortwave flux (w/m2)\n      real(kind=rb) :: znifd(nlay+2)          ! temporary near-IR downward shortwave flux (w/m2)\n      real(kind=rb) :: znicd(nlay+2)          ! temporary clear sky near-IR downward shortwave flux (w/m2)\n      real(kind=rb) :: znifddir(nlay+2)       ! temporary near-IR downward direct shortwave flux (w/m2)\n      real(kind=rb) :: znicddir(nlay+2)       ! temporary clear sky near-IR downward direct shortwave flux (w/m2)\n\n! Optional output fields \n      real(kind=rb) :: swnflx(nlay+2)         ! Total sky shortwave net flux (W/m2)\n      real(kind=rb) :: swnflxc(nlay+2)        ! Clear sky shortwave net flux (W/m2)\n      real(kind=rb) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux\n      real(kind=rb) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux\n      real(kind=rb) :: uvdflx(nlay+2)         ! Total sky downward shortwave flux, UV/vis  \n      real(kind=rb) :: nidflx(nlay+2)         ! Total sky downward shortwave flux, near-IR \n      real(kind=rb) :: dirdnuv(nlay+2)        ! Direct downward shortwave flux, UV/vis\n      real(kind=rb) :: difdnuv(nlay+2)        ! Diffuse downward shortwave flux, UV/vis\n      real(kind=rb) :: dirdnir(nlay+2)        ! Direct downward shortwave flux, near-IR\n      real(kind=rb) :: difdnir(nlay+2)        ! Diffuse downward shortwave flux, near-IR\n\n! Output - inactive\n!      real(kind=rb) :: zuvfu(nlay+2)         ! temporary upward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zuvfd(nlay+2)         ! temporary downward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zuvcu(nlay+2)         ! temporary clear sky upward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zuvcd(nlay+2)         ! temporary clear sky downward UV shortwave flux (w/m2)\n!      real(kind=rb) :: zvsfu(nlay+2)         ! temporary upward visible shortwave flux (w/m2)\n!      real(kind=rb) :: zvsfd(nlay+2)         ! temporary downward visible shortwave flux (w/m2)\n!      real(kind=rb) :: zvscu(nlay+2)         ! temporary clear sky upward visible shortwave flux (w/m2)\n!      real(kind=rb) :: zvscd(nlay+2)         ! temporary clear sky downward visible shortwave flux (w/m2)\n!      real(kind=rb) :: znifu(nlay+2)         ! temporary upward near-IR shortwave flux (w/m2)\n!      real(kind=rb) :: znifd(nlay+2)         ! temporary downward near-IR shortwave flux (w/m2)\n!      real(kind=rb) :: znicu(nlay+2)         ! temporary clear sky upward near-IR shortwave flux (w/m2)\n!      real(kind=rb) :: znicd(nlay+2)         ! temporary clear sky downward near-IR shortwave flux (w/m2)\n\n\n! Initializations\n\n      zepsec = 1.e-06_rb\n      zepzen = 1.e-10_rb\n      oneminus = 1.0_rb - zepsec\n      pi = 2._rb * asin(1._rb)\n\n      istart = jpb1\n      iend = jpb2\n      icpr = 0\n      ims = 2\n\n! In a GCM with or without McICA, set nlon to the longitude dimension\n!\n! Set imca to select calculation type:\n!  imca = 0, use standard forward model calculation (clear and overcast only)\n!  imca = 1, use McICA for Monte Carlo treatment of sub-grid cloud variability\n!            (clear, overcast or partial cloud conditions)\n\n! *** This version uses McICA (imca = 1) ***\n\n! Set icld to default selection of clear or cloud calculation and cloud overlap method\n! if not passed in with valid value\n! icld = 0, clear only\n! icld = 1, with clouds using random cloud overlap (McICA only)\n! icld = 2, with clouds using maximum/random cloud overlap (McICA only)\n! icld = 3, with clouds using maximum cloud overlap (McICA only)\n      if (icld.lt.0.or.icld.gt.3) icld = 2\n\n! Set iaer to select aerosol option\n! iaer = 0, no aerosols\n! iaer = 6, use six ECMWF aerosol types\n!           input aerosol optical depth at 0.55 microns for each aerosol type (ecaer)\n! iaer = 10, input total aerosol optical depth, single scattering albedo \n!            and asymmetry parameter (tauaer, ssaaer, asmaer) directly\n      iaer = 10\n\n! Set idelm to select between delta-M scaled or unscaled output direct and diffuse fluxes\n! NOTE: total downward fluxes are always delta scaled\n! idelm = 0, output direct and diffuse flux components are not delta scaled\n!            (direct flux does not include forward scattering peak)\n! idelm = 1, output direct and diffuse flux components are delta scaled (default)\n!            (direct flux includes part or most of forward scattering peak)\n      idelm = 1\n\n! Call model and data initialization, compute lookup tables, perform\n! reduction of g-points from 224 to 112 for input absorption\n! coefficient data and other arrays.\n!\n! In a GCM this call should be placed in the model initialization\n! area, since this has to be called only once.  \n!      call rrtmg_sw_ini(cpdair)\n\n! This is the main longitude/column loop in RRTMG.\n! Modify to loop over all columns (nlon) or over daylight columns\n      do iplon = 1, ncol\n\n! Prepare atmosphere profile from GCM for use in RRTMG, and define\n! other input parameters\n         call inatm_sw (iplon, nlay, icld, iaer, &\n              play, plev, tlay, tlev, tsfc, h2ovmr, &\n              o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, &\n              adjes, dyofyr, scon, inflgsw, iceflgsw, liqflgsw, &\n              cldfmcl, taucmcl, ssacmcl, asmcmcl, fsfcmcl, ciwpmcl, clwpmcl, &\n              reicmcl, relqmcl, tauaer, ssaaer, asmaer, &\n              nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, &\n              adjflux, solvar, inflag, iceflag, liqflag, cldfmc, taucmc, &\n              ssacmc, asmcmc, fsfcmc, ciwpmc, clwpmc, reicmc, relqmc, &\n              taua, ssaa, asma)\n\n!  For cloudy atmosphere, use cldprmc to set cloud optical properties based on\n!  input cloud physical properties.  Select method based on choices described\n!  in cldprmc.  Cloud fraction, water path, liquid droplet and ice particle\n!  effective radius must be passed in cldprmc.  Cloud fraction and cloud\n!  optical properties are transferred to rrtmg_sw arrays in cldprmc.  \n\n         call cldprmc_sw(nlayers, inflag, iceflag, liqflag, cldfmc, &\n                         ciwpmc, clwpmc, reicmc, relqmc, &\n                         taormc, taucmc, ssacmc, asmcmc, fsfcmc)\n         icpr = 1\n\n! Calculate coefficients for the temperature and pressure dependence of the \n! molecular absorption coefficients by interpolating data from stored\n! reference atmospheres.\n\n         call setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &\n                         laytrop, layswtch, laylow, jp, jt, jt1, &\n                         co2mult, colch4, colco2, colh2o, colmol, coln2o, &\n                         colo2, colo3, fac00, fac01, fac10, fac11, &\n                         selffac, selffrac, indself, forfac, forfrac, indfor)\n\n\n! Cosine of the solar zenith angle \n!  Prevent using value of zero; ideally, SW model is not called from host model when sun \n!  is below horizon\n\n         cossza = coszen(iplon)\n         if (cossza .lt. zepzen) cossza = zepzen\n\n\n! Transfer albedo, cloud and aerosol properties into arrays for 2-stream radiative transfer \n\n! Surface albedo\n!  Near-IR bands 16-24 and 29 (1-9 and 14), 820-16000 cm-1, 0.625-12.195 microns\n         do ib=1,9\n            albdir(ib) = aldir(iplon)\n            albdif(ib) = aldif(iplon)\n         enddo\n         albdir(nbndsw) = aldir(iplon)\n         albdif(nbndsw) = aldif(iplon)\n!  UV/visible bands 25-28 (10-13), 16000-50000 cm-1, 0.200-0.625 micron\n         do ib=10,13\n            albdir(ib) = asdir(iplon)\n            albdif(ib) = asdif(iplon)\n         enddo\n\n\n! Clouds\n         if (icld.eq.0) then\n\n            zcldfmc(:,:) = 0._rb\n            ztaucmc(:,:) = 0._rb\n            ztaormc(:,:) = 0._rb\n            zasycmc(:,:) = 0._rb\n            zomgcmc(:,:) = 1._rb\n\n         elseif (icld.ge.1) then\n            do i=1,nlayers\n               do ig=1,ngptsw\n                  zcldfmc(i,ig) = cldfmc(ig,i)\n                  ztaucmc(i,ig) = taucmc(ig,i)\n                  ztaormc(i,ig) = taormc(ig,i)\n                  zasycmc(i,ig) = asmcmc(ig,i)\n                  zomgcmc(i,ig) = ssacmc(ig,i)\n               enddo\n            enddo\n\n         endif   \n\n! Aerosol\n! IAER = 0: no aerosols\n         if (iaer.eq.0) then\n\n            ztaua(:,:) = 0._rb\n            zasya(:,:) = 0._rb\n            zomga(:,:) = 1._rb\n\n! IAER = 6: Use ECMWF six aerosol types. See rrsw_aer.f90 for details.\n! Input aerosol optical thickness at 0.55 micron for each aerosol type (ecaer), \n! or set manually here for each aerosol and layer.\n         elseif (iaer.eq.6) then\n\n!            do i = 1, nlayers\n!               do ia = 1, naerec\n!                  ecaer(iplon,i,ia) = 1.0e-15_rb\n!               enddo\n!            enddo\n\n            do i = 1, nlayers\n               do ib = 1, nbndsw\n                  ztaua(i,ib) = 0._rb\n                  zasya(i,ib) = 0._rb\n                  zomga(i,ib) = 1._rb\n                  do ia = 1, naerec\n                     ztaua(i,ib) = ztaua(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia)\n                     zomga(i,ib) = zomga(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia) * &\n                                   rsrpiza(ib,ia)\n                     zasya(i,ib) = zasya(i,ib) + rsrtaua(ib,ia) * ecaer(iplon,i,ia) * &\n                                   rsrpiza(ib,ia) * rsrasya(ib,ia)\n                  enddo\n                  if (zomga(i,ib) /= 0._rb) then\n                     zasya(i,ib) = zasya(i,ib) / zomga(i,ib)\n                  endif\n                  if (ztaua(i,ib) /= 0._rb) then\n                     zomga(i,ib) = zomga(i,ib) / ztaua(i,ib)\n                  endif\n               enddo\n            enddo\n\n! IAER=10: Direct specification of aerosol optical properties from GCM\n         elseif (iaer.eq.10) then\n\n            do i = 1 ,nlayers\n               do ib = 1 ,nbndsw\n                  ztaua(i,ib) = taua(i,ib)\n                  zasya(i,ib) = asma(i,ib)\n                  zomga(i,ib) = ssaa(i,ib)\n               enddo\n            enddo\n\n         endif\n\n\n! Call the 2-stream radiation transfer model\n\n         do i=1,nlayers+1\n            zbbcu(i) = 0._rb\n            zbbcd(i) = 0._rb\n            zbbfu(i) = 0._rb\n            zbbfd(i) = 0._rb\n            zbbcddir(i) = 0._rb\n            zbbfddir(i) = 0._rb\n            zuvcd(i) = 0._rb\n            zuvfd(i) = 0._rb\n            zuvcddir(i) = 0._rb\n            zuvfddir(i) = 0._rb\n            znicd(i) = 0._rb\n            znifd(i) = 0._rb\n            znicddir(i) = 0._rb\n            znifddir(i) = 0._rb\n         enddo\n\n\n         call spcvmc_sw &\n             (nlayers, istart, iend, icpr, idelm, iout, &\n              pavel, tavel, pz, tz, tbound, albdif, albdir, &\n              zcldfmc, ztaucmc, zasycmc, zomgcmc, ztaormc, &\n              ztaua, zasya, zomga, cossza, coldry, wkl, adjflux, &\t \n              laytrop, layswtch, laylow, jp, jt, jt1, &\n              co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n              fac00, fac01, fac10, fac11, &\n              selffac, selffrac, indself, forfac, forfrac, indfor, &\n              zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, &\n              zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir)\n\n! Transfer up and down, clear and total sky fluxes to output arrays.\n! Vertical indexing goes from bottom to top; reverse here for GCM if necessary.\n\n         do i = 1, nlayers+1\n            swuflxc(iplon,i) = zbbcu(i)\n            swdflxc(iplon,i) = zbbcd(i)\n            swuflx(iplon,i) = zbbfu(i)\n            swdflx(iplon,i) = zbbfd(i)\n            uvdflx(i) = zuvfd(i)\n            nidflx(i) = znifd(i)\n!  Direct/diffuse fluxes\n            dirdflux(i) = zbbfddir(i)\n            difdflux(i) = swdflx(iplon,i) - dirdflux(i)\n!  UV/visible direct/diffuse fluxes\n            dirdnuv(i) = zuvfddir(i)\n            difdnuv(i) = zuvfd(i) - dirdnuv(i)\n!  Near-IR direct/diffuse fluxes\n            dirdnir(i) = znifddir(i)\n            difdnir(i) = znifd(i) - dirdnir(i)\n         enddo\n\n!  Total and clear sky net fluxes\n         do i = 1, nlayers+1\n            swnflxc(i) = swdflxc(iplon,i) - swuflxc(iplon,i)\n            swnflx(i) = swdflx(iplon,i) - swuflx(iplon,i)\n         enddo\n\n!  Total and clear sky heating rates\n         do i = 1, nlayers\n            zdpgcp = heatfac / pdp(i)\n            swhrc(iplon,i) = (swnflxc(i+1) - swnflxc(i)) * zdpgcp\n            swhr(iplon,i) = (swnflx(i+1) - swnflx(i)) * zdpgcp\n         enddo\n         swhrc(iplon,nlayers) = 0._rb\n         swhr(iplon,nlayers) = 0._rb\n\n! End longitude loop\n      enddo\n\n      end subroutine rrtmg_sw\n\n!*************************************************************************\n      real(kind=rb) function earth_sun(idn)\n!*************************************************************************\n!\n!  Purpose: Function to calculate the correction factor of Earth's orbit\n!  for current day of the year\n\n!  idn        : Day of the year\n!  earth_sun  : square of the ratio of mean to actual Earth-Sun distance\n\n! ------- Modules -------\n\n      use rrsw_con, only : pi\n\n      integer(kind=im), intent(in) :: idn\n\n      real(kind=rb) :: gamma\n\n      gamma = 2._rb*pi*(idn-1)/365._rb\n\n! Use Iqbal's equation 1.2.1\n\n      earth_sun = 1.000110_rb + .034221_rb * cos(gamma) + .001289_rb * sin(gamma) + &\n                   .000719_rb * cos(2._rb*gamma) + .000077_rb * sin(2._rb*gamma)\n\n      end function earth_sun\n\n!***************************************************************************\n      subroutine inatm_sw (iplon, nlay, icld, iaer, &\n            play, plev, tlay, tlev, tsfc, h2ovmr, &\n            o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, &\n            adjes, dyofyr, scon, inflgsw, iceflgsw, liqflgsw, &\n            cldfmcl, taucmcl, ssacmcl, asmcmcl, fsfcmcl, ciwpmcl, clwpmcl, &\n            reicmcl, relqmcl, tauaer, ssaaer, asmaer, &\n            nlayers, pavel, pz, pdp, tavel, tz, tbound, coldry, wkl, &\n            adjflux, solvar, inflag, iceflag, liqflag, cldfmc, taucmc, &\n            ssacmc, asmcmc, fsfcmc, ciwpmc, clwpmc, reicmc, relqmc, &\n            taua, ssaa, asma)\n!***************************************************************************\n!\n!  Input atmospheric profile from GCM, and prepare it for use in RRTMG_SW.\n!  Set other RRTMG_SW input parameters.  \n!\n!***************************************************************************\n\n! --------- Modules ----------\n\n      use parrrsw, only : nbndsw, ngptsw, nstr, nmol, mxmol, &\n                          jpband, jpb1, jpb2, rrsw_scon\n      use rrsw_con, only : heatfac, oneminus, pi, grav, avogad\n      use rrsw_wvn, only : ng, nspa, nspb, wavenum1, wavenum2, delwave\n\n! ------- Declarations -------\n\n! ----- Input -----\n! Note: All volume mixing ratios are in dimensionless units of mole fraction obtained\n! by scaling mass mixing ratio (g/g) with the appropriate molecular weights (g/mol) \n      integer(kind=im), intent(in) :: iplon           ! column loop index\n      integer(kind=im), intent(in) :: nlay            ! number of model layers\n      integer(kind=im), intent(in) :: icld            ! clear/cloud and cloud overlap flag\n      integer(kind=im), intent(in) :: iaer            ! aerosol option flag\n\n      real(kind=rb), intent(in) :: play(:,:)          ! Layer pressures (hPa, mb)\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: plev(:,:)          ! Interface pressures (hPa, mb)\n                                                      ! Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tlay(:,:)          ! Layer temperatures (K)\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: tlev(:,:)          ! Interface temperatures (K)\n                                                      ! Dimensions: (ncol,nlay+1)\n      real(kind=rb), intent(in) :: tsfc(:)            ! Surface temperature (K)\n                                                      ! Dimensions: (ncol)\n      real(kind=rb), intent(in) :: h2ovmr(:,:)        ! H2O volume mixing ratio\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o3vmr(:,:)         ! O3 volume mixing ratio\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: co2vmr(:,:)        ! CO2 volume mixing ratio\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: ch4vmr(:,:)        ! Methane volume mixing ratio\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: n2ovmr(:,:)        ! Nitrous oxide volume mixing ratio\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: o2vmr(:,:)         ! Oxygen volume mixing ratio\n                                                      ! Dimensions: (ncol,nlay)\n\n      integer(kind=im), intent(in) :: dyofyr          ! Day of the year (used to get Earth/Sun\n                                                      !  distance if adjflx not provided)\n      real(kind=rb), intent(in) :: adjes              ! Flux adjustment for Earth/Sun distance\n      real(kind=rb), intent(in) :: scon               ! Solar constant (W/m2)\n\n      integer(kind=im), intent(in) :: inflgsw         ! Flag for cloud optical properties\n      integer(kind=im), intent(in) :: iceflgsw        ! Flag for ice particle specification\n      integer(kind=im), intent(in) :: liqflgsw        ! Flag for liquid droplet specification\n\n      real(kind=rb), intent(in) :: cldfmcl(:,:,:)     ! Cloud fraction\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: taucmcl(:,:,:)     ! In-cloud optical depth (optional)\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ssacmcl(:,:,:)     ! In-cloud single scattering albedo\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: asmcmcl(:,:,:)     ! In-cloud asymmetry parameter\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: fsfcmcl(:,:,:)     ! In-cloud forward scattering fraction\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: ciwpmcl(:,:,:)     ! In-cloud ice water path (g/m2)\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: clwpmcl(:,:,:)     ! In-cloud liquid water path (g/m2)\n                                                      ! Dimensions: (ngptsw,ncol,nlay)\n      real(kind=rb), intent(in) :: reicmcl(:,:)       ! Cloud ice effective size (microns)\n                                                      ! Dimensions: (ncol,nlay)\n      real(kind=rb), intent(in) :: relqmcl(:,:)       ! Cloud water drop effective radius (microns)\n                                                      ! Dimensions: (ncol,nlay)\n\n      real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth\n                                                      ! Dimensions: (ncol,nlay,nbndsw)\n      real(kind=rb), intent(in) :: ssaaer(:,:,:)      ! Aerosol single scattering albedo\n                                                      ! Dimensions: (ncol,nlay,nbndsw)\n      real(kind=rb), intent(in) :: asmaer(:,:,:)      ! Aerosol asymmetry parameter\n                                                      ! Dimensions: (ncol,nlay,nbndsw)\n\n! Atmosphere\n      integer(kind=im), intent(out) :: nlayers        ! number of layers\n\n      real(kind=rb), intent(out) :: pavel(:)          ! layer pressures (mb) \n                                                      ! Dimensions: (nlay)\n      real(kind=rb), intent(out) :: tavel(:)          ! layer temperatures (K)\n                                                      ! Dimensions: (nlay)\n      real(kind=rb), intent(out) :: pz(0:)            ! level (interface) pressures (hPa, mb)\n                                                      ! Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tz(0:)            ! level (interface) temperatures (K)\n                                                      ! Dimensions: (0:nlay)\n      real(kind=rb), intent(out) :: tbound            ! surface temperature (K)\n      real(kind=rb), intent(out) :: pdp(:)            ! layer pressure thickness (hPa, mb)\n                                                      ! Dimensions: (nlay)\n      real(kind=rb), intent(out) :: coldry(:)         ! dry air column density (mol/cm2)\n                                                      ! Dimensions: (nlay)\n      real(kind=rb), intent(out) :: wkl(:,:)          ! molecular amounts (mol/cm-2)\n                                                      ! Dimensions: (mxmol,nlay)\n\n      real(kind=rb), intent(out) :: adjflux(:)        ! adjustment for current Earth/Sun distance\n                                                      ! Dimensions: (jpband)\n      real(kind=rb), intent(out) :: solvar(:)         ! solar constant scaling factor from rrtmg_sw\n                                                      ! Dimensions: (jpband)\n                                                      !  default value of 1368.22 Wm-2 at 1 AU\n      real(kind=rb), intent(out) :: taua(:,:)         ! Aerosol optical depth\n                                                      ! Dimensions: (nlay,nbndsw)\n      real(kind=rb), intent(out) :: ssaa(:,:)         ! Aerosol single scattering albedo\n                                                      ! Dimensions: (nlay,nbndsw)\n      real(kind=rb), intent(out) :: asma(:,:)         ! Aerosol asymmetry parameter\n                                                      ! Dimensions: (nlay,nbndsw)\n\n! Atmosphere/clouds - cldprmc\n      integer(kind=im), intent(out) :: inflag         ! flag for cloud property method\n      integer(kind=im), intent(out) :: iceflag        ! flag for ice cloud properties\n      integer(kind=im), intent(out) :: liqflag        ! flag for liquid cloud properties\n\n      real(kind=rb), intent(out) :: cldfmc(:,:)       ! layer cloud fraction\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: taucmc(:,:)       ! in-cloud optical depth (non-delta scaled)\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: ssacmc(:,:)       ! in-cloud single scattering albedo (non-delta-scaled)\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: asmcmc(:,:)       ! in-cloud asymmetry parameter (non-delta scaled)\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: fsfcmc(:,:)       ! in-cloud forward scattering fraction (non-delta scaled)\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: ciwpmc(:,:)       ! in-cloud ice water path\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: clwpmc(:,:)       ! in-cloud liquid water path\n                                                      ! Dimensions: (ngptsw,nlay)\n      real(kind=rb), intent(out) :: relqmc(:)         ! liquid particle effective radius (microns)\n                                                      ! Dimensions: (nlay)\n      real(kind=rb), intent(out) :: reicmc(:)         ! ice particle effective size (microns)\n                                                      ! Dimensions: (nlay)\n\n! ----- Local -----\n      real(kind=rb), parameter :: amd = 28.9660_rb    ! Effective molecular weight of dry air (g/mol)\n      real(kind=rb), parameter :: amw = 18.0160_rb    ! Molecular weight of water vapor (g/mol)\n!      real(kind=rb), parameter :: amc = 44.0098_rb   ! Molecular weight of carbon dioxide (g/mol)\n!      real(kind=rb), parameter :: amo = 47.9998_rb   ! Molecular weight of ozone (g/mol)\n!      real(kind=rb), parameter :: amo2 = 31.9999_rb  ! Molecular weight of oxygen (g/mol)\n!      real(kind=rb), parameter :: amch4 = 16.0430_rb ! Molecular weight of methane (g/mol)\n!      real(kind=rb), parameter :: amn2o = 44.0128_rb ! Molecular weight of nitrous oxide (g/mol)\n\n! Set molecular weight ratios (for converting mmr to vmr)\n!  e.g. h2ovmr = h2ommr * amdw)\n      real(kind=rb), parameter :: amdw = 1.607793_rb  ! Molecular weight of dry air / water vapor\n      real(kind=rb), parameter :: amdc = 0.658114_rb  ! Molecular weight of dry air / carbon dioxide\n      real(kind=rb), parameter :: amdo = 0.603428_rb  ! Molecular weight of dry air / ozone\n      real(kind=rb), parameter :: amdm = 1.805423_rb  ! Molecular weight of dry air / methane\n      real(kind=rb), parameter :: amdn = 0.658090_rb  ! Molecular weight of dry air / nitrous oxide\n      real(kind=rb), parameter :: amdo2 = 0.905140_rb ! Molecular weight of dry air / oxygen\n\n      real(kind=rb), parameter :: sbc = 5.67e-08_rb   ! Stefan-Boltzmann constant (W/m2K4)\n\n      integer(kind=im) :: isp, l, ix, n, imol, ib, ig   ! Loop indices\n      real(kind=rb) :: amm, summol                      ! \n      real(kind=rb) :: adjflx                           ! flux adjustment for Earth/Sun distance\n!      real(kind=rb) :: earth_sun                        ! function for Earth/Sun distance adjustment\n\n! Add one to nlayers here to include extra model layer at top of atmosphere\n      nlayers = nlay\n\n!  Initialize all molecular amounts to zero here, then pass input amounts\n!  into RRTM array WKL below.\n\n       wkl(:,:) = 0.0_rb\n       cldfmc(:,:) = 0.0_rb\n       taucmc(:,:) = 0.0_rb\n       ssacmc(:,:) = 1.0_rb\n       asmcmc(:,:) = 0.0_rb\n       fsfcmc(:,:) = 0.0_rb\n       ciwpmc(:,:) = 0.0_rb\n       clwpmc(:,:) = 0.0_rb\n       reicmc(:) = 0.0_rb\n       relqmc(:) = 0.0_rb\n       taua(:,:) = 0.0_rb\n       ssaa(:,:) = 1.0_rb\n       asma(:,:) = 0.0_rb\n \n! Set flux adjustment for current Earth/Sun distance (two options).\n! 1) Use Earth/Sun distance flux adjustment provided by GCM (input as adjes);\n      adjflx = adjes\n!\n! 2) Calculate Earth/Sun distance from DYOFYR, the cumulative day of the year.\n!    (Set adjflx to 1. to use constant Earth/Sun distance of 1 AU). \n      if (dyofyr .gt. 0) then\n         adjflx = earth_sun(dyofyr)\n      endif\n\n! Set incoming solar flux adjustment to include adjustment for\n! current Earth/Sun distance (ADJFLX) and scaling of default internal\n! solar constant (rrsw_scon = 1368.22 Wm-2) by band (SOLVAR).  SOLVAR can be set \n! to a single scaling factor as needed, or to a different value in each \n! band, which may be necessary for paleoclimate simulations. \n! \n      do ib = jpb1,jpb2\n!         solvar(ib) = 1._rb\n         solvar(ib) = scon / rrsw_scon \n         adjflux(ib) = adjflx * solvar(ib)\n      enddo\n\n!  Set surface temperature.\n      tbound = tsfc(iplon)\n\n!  Install input GCM arrays into RRTMG_SW arrays for pressure, temperature,\n!  and molecular amounts.  \n!  Pressures are input in mb, or are converted to mb here.\n!  Molecular amounts are input in volume mixing ratio, or are converted from \n!  mass mixing ratio (or specific humidity for h2o) to volume mixing ratio\n!  here. These are then converted to molecular amount (molec/cm2) below.  \n!  The dry air column COLDRY (in molec/cm2) is calculated from the level \n!  pressures, pz (in mb), based on the hydrostatic equation and includes a \n!  correction to account for h2o in the layer.  The molecular weight of moist \n!  air (amm) is calculated for each layer.  \n!  Note: In RRTMG, layer indexing goes from bottom to top, and coding below\n!  assumes GCM input fields are also bottom to top. Input layer indexing\n!  from GCM fields should be reversed here if necessary.\n\n      pz(0) = plev(iplon,1)\n      tz(0) = tlev(iplon,1)\n      do l = 1, nlayers\n         pavel(l) = play(iplon,l)\n         tavel(l) = tlay(iplon,l)\n         pz(l) = plev(iplon,l+1)\n         tz(l) = tlev(iplon,l+1)\n         pdp(l) = pz(l-1) - pz(l)\n! For h2o input in vmr:\n         wkl(1,l) = h2ovmr(iplon,l)\n! For h2o input in mmr:\n!         wkl(1,l) = h2o(iplon,l)*amdw\n! For h2o input in specific humidity;\n!         wkl(1,l) = (h2o(iplon,l)/(1._rb - h2o(iplon,l)))*amdw\n         wkl(2,l) = co2vmr(iplon,l)\n         wkl(3,l) = o3vmr(iplon,l)\n         wkl(4,l) = n2ovmr(iplon,l)\n         wkl(6,l) = ch4vmr(iplon,l)\n         wkl(7,l) = o2vmr(iplon,l)\n         amm = (1._rb - wkl(1,l)) * amd + wkl(1,l) * amw            \n         coldry(l) = (pz(l-1)-pz(l)) * 1.e3_rb * avogad / &\n                     (1.e2_rb * grav * amm * (1._rb + wkl(1,l)))\n      enddo\n\n! The following section can be used to set values for an additional layer (from\n! the GCM top level to 1.e-4 mb) for improved calculation of TOA fluxes. \n! Temperature and molecular amounts in the extra model layer are set to \n! their values in the top GCM model layer, though these can be modified\n! here if necessary. \n! If this feature is utilized, increase nlayers by one above, limit the two\n! loops above to (nlayers-1), and set the top most (nlayers) layer values here. \n\n!      pavel(nlayers) = 0.5_rb * pz(nlayers-1)\n!      tavel(nlayers) = tavel(nlayers-1)\n!      pz(nlayers) = 1.e-4_rb\n!      tz(nlayers-1) = 0.5_rb * (tavel(nlayers)+tavel(nlayers-1))\n!      tz(nlayers) = tz(nlayers-1)\n!      pdp(nlayers) = pz(nlayers-1) - pz(nlayers)\n!      wkl(1,nlayers) = wkl(1,nlayers-1)\n!      wkl(2,nlayers) = wkl(2,nlayers-1)\n!      wkl(3,nlayers) = wkl(3,nlayers-1)\n!      wkl(4,nlayers) = wkl(4,nlayers-1)\n!      wkl(6,nlayers) = wkl(6,nlayers-1)\n!      wkl(7,nlayers) = wkl(7,nlayers-1)\n!      amm = (1._rb - wkl(1,nlayers-1)) * amd + wkl(1,nlayers-1) * amw\n!      coldry(nlayers) = (pz(nlayers-1)) * 1.e3_rb * avogad / &\n!                        (1.e2_rb * grav * amm * (1._rb + wkl(1,nlayers-1)))\n\n! At this point all molecular amounts in wkl are in volume mixing ratio; \n! convert to molec/cm2 based on coldry for use in rrtm.  \n\n      do l = 1, nlayers\n         do imol = 1, nmol\n            wkl(imol,l) = coldry(l) * wkl(imol,l)\n         enddo\n      enddo\n\n! Transfer aerosol optical properties to RRTM variables;\n! modify to reverse layer indexing here if necessary.\n\n      if (iaer .ge. 1) then \n         do l = 1, nlayers\n            do ib = 1, nbndsw\n               taua(l,ib) = tauaer(iplon,l,ib)\n               ssaa(l,ib) = ssaaer(iplon,l,ib)\n               asma(l,ib) = asmaer(iplon,l,ib)\n            enddo\n         enddo\n      endif\n\n! Transfer cloud fraction and cloud optical properties to RRTM variables;\n! modify to reverse layer indexing here if necessary.\n\n      if (icld .ge. 1) then \n         inflag = inflgsw\n         iceflag = iceflgsw\n         liqflag = liqflgsw\n\n! Move incoming GCM cloud arrays to RRTMG cloud arrays.\n! For GCM input, incoming reicmcl is defined based on selected ice parameterization (inflglw)\n\n         do l = 1, nlayers\n            do ig = 1, ngptsw\n               cldfmc(ig,l) = cldfmcl(ig,iplon,l)\n               taucmc(ig,l) = taucmcl(ig,iplon,l)\n               ssacmc(ig,l) = ssacmcl(ig,iplon,l)\n               asmcmc(ig,l) = asmcmcl(ig,iplon,l)\n               fsfcmc(ig,l) = fsfcmcl(ig,iplon,l)\n               ciwpmc(ig,l) = ciwpmcl(ig,iplon,l)\n               clwpmc(ig,l) = clwpmcl(ig,iplon,l)\n            enddo\n            reicmc(l) = reicmcl(iplon,l)\n            relqmc(l) = relqmcl(iplon,l)\n         enddo\n! If an extra layer is being used in RRTMG, set all cloud properties to zero in the extra layer.\n\n!         cldfmc(:,nlayers) = 0.0_rb\n!         taucmc(:,nlayers) = 0.0_rb\n!         ssacmc(:,nlayers) = 1.0_rb\n!         asmcmc(:,nlayers) = 0.0_rb\n!         fsfcmc(:,nlayers) = 0.0_rb\n!         ciwpmc(:,nlayers) = 0.0_rb\n!         clwpmc(:,nlayers) = 0.0_rb\n!         reicmc(nlayers) = 0.0_rb\n!         relqmc(nlayers) = 0.0_rb\n      \n      endif\n\n      end subroutine inatm_sw\n\n      end module rrtmg_sw_rad\n\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_reftra.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_reftra.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/02/09 19:45:55 $\n\n      module rrtmg_sw_reftra\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl\n      use rrsw_vsn, only : hvrrft, hnamrft\n\n      implicit none\n\n      contains\n\n! --------------------------------------------------------------------\n      subroutine reftra_sw(nlayers, lrtchk, pgg, prmuz, ptau, pw, &\n                           pref, prefd, ptra, ptrad)\n! --------------------------------------------------------------------\n  \n! Purpose: computes the reflectivity and transmissivity of a clear or \n!   cloudy layer using a choice of various approximations.\n!\n! Interface:  *rrtmg_sw_reftra* is called by *rrtmg_sw_spcvrt*\n!\n! Description:\n! explicit arguments :\n! --------------------\n! inputs\n! ------ \n!      lrtchk  = .t. for all layers in clear profile\n!      lrtchk  = .t. for cloudy layers in cloud profile \n!              = .f. for clear layers in cloud profile\n!      pgg     = assymetry factor\n!      prmuz   = cosine solar zenith angle\n!      ptau    = optical thickness\n!      pw      = single scattering albedo\n!\n! outputs\n! -------\n!      pref    : collimated beam reflectivity\n!      prefd   : diffuse beam reflectivity \n!      ptra    : collimated beam transmissivity\n!      ptrad   : diffuse beam transmissivity\n!\n!\n! Method:\n! -------\n!      standard delta-eddington, p.i.f.m., or d.o.m. layer calculations.\n!      kmodts  = 1 eddington (joseph et al., 1976)\n!              = 2 pifm (zdunkowski et al., 1980)\n!              = 3 discrete ordinates (liou, 1973)\n!\n!\n! Modifications:\n! --------------\n! Original: J-JMorcrette, ECMWF, Feb 2003\n! Revised for F90 reformatting: MJIacono, AER, Jul 2006\n! Revised to add exponential lookup table: MJIacono, AER, Aug 2007\n!\n! ------------------------------------------------------------------\n\n! ------- Declarations ------\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers\n\n      logical, intent(in) :: lrtchk(:)                         ! Logical flag for reflectivity and\n                                                               ! and transmissivity calculation; \n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: pgg(:)                      ! asymmetry parameter\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: ptau(:)                     ! optical depth\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pw(:)                       ! single scattering albedo \n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: prmuz                       ! cosine of solar zenith angle\n\n! ------- Output -------\n\n      real(kind=rb), intent(inout) :: pref(:)                  ! direct beam reflectivity\n                                                               !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: prefd(:)                 ! diffuse beam reflectivity\n                                                               !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: ptra(:)                  ! direct beam transmissivity\n                                                               !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: ptrad(:)                 ! diffuse beam transmissivity\n                                                               !   Dimensions: (nlayers+1)\n\n! ------- Local -------\n\n      integer(kind=im) :: jk, jl, kmodts\n      integer(kind=im) :: itind\n\n      real(kind=rb) :: tblind\n      real(kind=rb) :: za, za1, za2\n      real(kind=rb) :: zbeta, zdend, zdenr, zdent\n      real(kind=rb) :: ze1, ze2, zem1, zem2, zemm, zep1, zep2\n      real(kind=rb) :: zg, zg3, zgamma1, zgamma2, zgamma3, zgamma4, zgt\n      real(kind=rb) :: zr1, zr2, zr3, zr4, zr5\n      real(kind=rb) :: zrk, zrk2, zrkg, zrm1, zrp, zrp1, zrpp\n      real(kind=rb) :: zsr3, zt1, zt2, zt3, zt4, zt5, zto1\n      real(kind=rb) :: zw, zwcrit, zwo\n\n      real(kind=rb), parameter :: eps = 1.e-08_rb\n\n!     ------------------------------------------------------------------\n\n! Initialize\n\n      hvrrft = '$Revision: 1.4 $'\n\n      zsr3=sqrt(3._rb)\n      zwcrit=0.9999995_rb\n      kmodts=2\n\n      do jk=1, nlayers\n         if (.not.lrtchk(jk)) then\n            pref(jk) =0._rb\n            ptra(jk) =1._rb\n            prefd(jk)=0._rb\n            ptrad(jk)=1._rb\n         else\n            zto1=ptau(jk)\n            zw  =pw(jk)\n            zg  =pgg(jk)  \n\n! General two-stream expressions\n\n            zg3= 3._rb * zg\n            if (kmodts == 1) then\n               zgamma1= (7._rb - zw * (4._rb + zg3)) * 0.25_rb\n               zgamma2=-(1._rb - zw * (4._rb - zg3)) * 0.25_rb\n               zgamma3= (2._rb - zg3 * prmuz ) * 0.25_rb\n            else if (kmodts == 2) then  \n               zgamma1= (8._rb - zw * (5._rb + zg3)) * 0.25_rb\n               zgamma2=  3._rb *(zw * (1._rb - zg )) * 0.25_rb\n               zgamma3= (2._rb - zg3 * prmuz ) * 0.25_rb\n            else if (kmodts == 3) then  \n               zgamma1= zsr3 * (2._rb - zw * (1._rb + zg)) * 0.5_rb\n               zgamma2= zsr3 * zw * (1._rb - zg ) * 0.5_rb\n               zgamma3= (1._rb - zsr3 * zg * prmuz ) * 0.5_rb\n            end if\n            zgamma4= 1._rb - zgamma3\n    \n! Recompute original s.s.a. to test for conservative solution\n\n            zwo= zw / (1._rb - (1._rb - zw) * (zg / (1._rb - zg))**2)\n    \n            if (zwo >= zwcrit) then\n! Conservative scattering\n\n               za  = zgamma1 * prmuz \n               za1 = za - zgamma3\n               zgt = zgamma1 * zto1\n        \n! Homogeneous reflectance and transmittance,\n! collimated beam\n\n               ze1 = min ( zto1 / prmuz , 500._rb)\n!               ze2 = exp( -ze1 )\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               if (ze1 .le. od_lo) then \n                  ze2 = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  ze2 = exp_tbl(itind)\n               endif\n!\n\n               pref(jk) = (zgt - za1 * (1._rb - ze2)) / (1._rb + zgt)\n               ptra(jk) = 1._rb - pref(jk)\n\n! isotropic incidence\n\n               prefd(jk) = zgt / (1._rb + zgt)\n               ptrad(jk) = 1._rb - prefd(jk)        \n\n! This is applied for consistency between total (delta-scaled) and direct (unscaled) \n! calculations at very low optical depths (tau < 1.e-4) when the exponential lookup\n! table returns a transmittance of 1.0.\n               if (ze2 .eq. 1.0_rb) then \n                  pref(jk) = 0.0_rb\n                  ptra(jk) = 1.0_rb\n                  prefd(jk) = 0.0_rb\n                  ptrad(jk) = 1.0_rb\n               endif\n\n            else\n! Non-conservative scattering\n\n               za1 = zgamma1 * zgamma4 + zgamma2 * zgamma3\n               za2 = zgamma1 * zgamma3 + zgamma2 * zgamma4\n               zrk = sqrt ( zgamma1**2 - zgamma2**2)\n               zrp = zrk * prmuz               \n               zrp1 = 1._rb + zrp\n               zrm1 = 1._rb - zrp\n               zrk2 = 2._rb * zrk\n               zrpp = 1._rb - zrp*zrp\n               zrkg = zrk + zgamma1\n               zr1  = zrm1 * (za2 + zrk * zgamma3)\n               zr2  = zrp1 * (za2 - zrk * zgamma3)\n               zr3  = zrk2 * (zgamma3 - za2 * prmuz )\n               zr4  = zrpp * zrkg\n               zr5  = zrpp * (zrk - zgamma1)\n               zt1  = zrp1 * (za1 + zrk * zgamma4)\n               zt2  = zrm1 * (za1 - zrk * zgamma4)\n               zt3  = zrk2 * (zgamma4 + za1 * prmuz )\n               zt4  = zr4\n               zt5  = zr5\n\n! mji - reformulated code to avoid potential floating point exceptions\n!               zbeta = - zr5 / zr4\n               zbeta = (zgamma1 - zrk) / zrkg\n!!\n        \n! Homogeneous reflectance and transmittance\n\n               ze1 = min ( zrk * zto1, 500._rb)\n               ze2 = min ( zto1 / prmuz , 500._rb)\n!\n! Original\n!              zep1 = exp( ze1 )\n!              zem1 = exp(-ze1 )\n!              zep2 = exp( ze2 )\n!              zem2 = exp(-ze2 )\n!\n! Revised original, to reduce exponentials\n!              zep1 = exp( ze1 )\n!              zem1 = 1._rb / zep1\n!              zep2 = exp( ze2 )\n!              zem2 = 1._rb / zep2\n!\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               if (ze1 .le. od_lo) then \n                  zem1 = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  zep1 = 1._rb / zem1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zem1 = exp_tbl(itind)\n                  zep1 = 1._rb / zem1\n               endif\n\n               if (ze2 .le. od_lo) then \n                  zem2 = 1._rb - ze2 + 0.5_rb * ze2 * ze2\n                  zep2 = 1._rb / zem2\n               else\n                  tblind = ze2 / (bpade + ze2)\n                  itind = tblint * tblind + 0.5_rb\n                  zem2 = exp_tbl(itind)\n                  zep2 = 1._rb / zem2\n               endif\n\n! collimated beam\n\n! mji - reformulated code to avoid potential floating point exceptions\n!               zdenr = zr4*zep1 + zr5*zem1\n!               pref(jk) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr\n!               zdent = zt4*zep1 + zt5*zem1\n!               ptra(jk) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent\n\n               zdenr = zr4*zep1 + zr5*zem1\n               zdent = zt4*zep1 + zt5*zem1\n               if (zdenr .ge. -eps .and. zdenr .le. eps) then\n                  pref(jk) = eps\n                  ptra(jk) = zem2\n               else \n                  pref(jk) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr\n                  ptra(jk) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent\n               endif\n!!\n\n! diffuse beam\n\n               zemm = zem1*zem1\n               zdend = 1._rb / ( (1._rb - zbeta*zemm ) * zrkg)\n               prefd(jk) =  zgamma2 * (1._rb - zemm) * zdend\n               ptrad(jk) =  zrk2*zem1*zdend\n\n            endif\n\n         endif         \n\n      enddo    \n\n      end subroutine reftra_sw\n\n      end module rrtmg_sw_reftra\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_setcoef.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_setcoef.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.3 $\n!     created:   $Date: 2008/08/29 17:59:10 $\n\n      module rrtmg_sw_setcoef\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : mxmol\n      use rrsw_ref, only : pref, preflog, tref\n      use rrsw_vsn, only : hvrset, hnamset\n\n      implicit none\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine setcoef_sw(nlayers, pavel, tavel, pz, tz, tbound, coldry, wkl, &\n                            laytrop, layswtch, laylow, jp, jt, jt1, &\n                            co2mult, colch4, colco2, colh2o, colmol, coln2o, &\n                            colo2, colo3, fac00, fac01, fac10, fac11, &\n                            selffac, selffrac, indself, forfac, forfrac, indfor)\n!----------------------------------------------------------------------------\n!\n! Purpose:  For a given atmosphere, calculate the indices and\n! fractions related to the pressure and temperature interpolations.\n\n! Modifications:\n! Original: J. Delamere, AER, Inc. (version 2.5, 02/04/01)\n! Revised: Rewritten and adapted to ECMWF F90, JJMorcrette 030224\n! Revised: For uniform rrtmg formatting, MJIacono, Jul 2006\n\n! ------ Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers         ! total number of layers\n\n      real(kind=rb), intent(in) :: pavel(:)           ! layer pressures (mb) \n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tavel(:)           ! layer temperatures (K)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pz(0:)             ! level (interface) pressures (hPa, mb)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tz(0:)             ! level (interface) temperatures (K)\n                                                      !    Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tbound             ! surface temperature (K)\n      real(kind=rb), intent(in) :: coldry(:)          ! dry air column density (mol/cm2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: wkl(:,:)           ! molecular amounts (mol/cm-2)\n                                                      !    Dimensions: (mxmol,nlayers)\n\n! ----- Output -----\n      integer(kind=im), intent(out) :: laytrop        ! tropopause layer index\n      integer(kind=im), intent(out) :: layswtch       ! \n      integer(kind=im), intent(out) :: laylow         ! \n\n      integer(kind=im), intent(out) :: jp(:)          ! \n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: jt(:)          !\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: jt1(:)         !\n                                                      !    Dimensions: (nlayers)\n\n      real(kind=rb), intent(out) :: colh2o(:)         ! column amount (h2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colco2(:)         ! column amount (co2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colo3(:)          ! column amount (o3)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: coln2o(:)         ! column amount (n2o)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colch4(:)         ! column amount (ch4)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colo2(:)          ! column amount (o2)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: colmol(:)         ! \n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: co2mult(:)        !\n                                                      !    Dimensions: (nlayers)\n\n      integer(kind=im), intent(out) :: indself(:)\n                                                      !    Dimensions: (nlayers)\n      integer(kind=im), intent(out) :: indfor(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: selffac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: selffrac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: forfac(:)\n                                                      !    Dimensions: (nlayers)\n      real(kind=rb), intent(out) :: forfrac(:)\n                                                      !    Dimensions: (nlayers)\n\n      real(kind=rb), intent(out) :: &                 !\n                         fac00(:), fac01(:), &        !    Dimensions: (nlayers)\n                         fac10(:), fac11(:) \n\n! ----- Local -----\n\n      integer(kind=im) :: indbound\n      integer(kind=im) :: indlev0\n      integer(kind=im) :: lay\n      integer(kind=im) :: jp1\n\n      real(kind=rb) :: stpfac\n      real(kind=rb) :: tbndfrac\n      real(kind=rb) :: t0frac\n      real(kind=rb) :: plog\n      real(kind=rb) :: fp\n      real(kind=rb) :: ft\n      real(kind=rb) :: ft1\n      real(kind=rb) :: water\n      real(kind=rb) :: scalefac\n      real(kind=rb) :: factor\n      real(kind=rb) :: co2reg\n      real(kind=rb) :: compfp\n\n\n! Initializations\n      stpfac = 296._rb/1013._rb\n\n      indbound = tbound - 159._rb\n      tbndfrac = tbound - int(tbound)\n      indlev0  = tz(0) - 159._rb\n      t0frac   = tz(0) - int(tz(0))\n\n      laytrop  = 0\n      layswtch = 0\n      laylow   = 0\n\n! Begin layer loop\n      do lay = 1, nlayers\n! Find the two reference pressures on either side of the\n! layer pressure.  Store them in JP and JP1.  Store in FP the\n! fraction of the difference (in ln(pressure)) between these\n! two values that the layer pressure lies.\n\n         plog = log(pavel(lay))\n         jp(lay) = int(36._rb - 5*(plog+0.04_rb))\n         if (jp(lay) .lt. 1) then\n            jp(lay) = 1\n         elseif (jp(lay) .gt. 58) then\n            jp(lay) = 58\n         endif\n         jp1 = jp(lay) + 1\n         fp = 5._rb * (preflog(jp(lay)) - plog)\n\n! Determine, for each reference pressure (JP and JP1), which\n! reference temperature (these are different for each  \n! reference pressure) is nearest the layer temperature but does\n! not exceed it.  Store these indices in JT and JT1, resp.\n! Store in FT (resp. FT1) the fraction of the way between JT\n! (JT1) and the next highest reference temperature that the \n! layer temperature falls.\n\n         jt(lay) = int(3._rb + (tavel(lay)-tref(jp(lay)))/15._rb)\n         if (jt(lay) .lt. 1) then\n            jt(lay) = 1\n         elseif (jt(lay) .gt. 4) then\n            jt(lay) = 4\n         endif\n         ft = ((tavel(lay)-tref(jp(lay)))/15._rb) - float(jt(lay)-3)\n         jt1(lay) = int(3._rb + (tavel(lay)-tref(jp1))/15._rb)\n         if (jt1(lay) .lt. 1) then\n            jt1(lay) = 1\n         elseif (jt1(lay) .gt. 4) then\n            jt1(lay) = 4\n         endif\n         ft1 = ((tavel(lay)-tref(jp1))/15._rb) - float(jt1(lay)-3)\n\n         water = wkl(1,lay)/coldry(lay)\n         scalefac = pavel(lay) * stpfac / tavel(lay)\n\n! If the pressure is less than ~100mb, perform a different\n! set of species interpolations.\n\n         if (plog .le. 4.56_rb) go to 5300\n         laytrop =  laytrop + 1\n         if (plog .ge. 6.62_rb) laylow = laylow + 1\n\n! Set up factors needed to separately include the water vapor\n! foreign-continuum in the calculation of absorption coefficient.\n\n         forfac(lay) = scalefac / (1.+water)\n         factor = (332.0_rb-tavel(lay))/36.0_rb\n         indfor(lay) = min(2, max(1, int(factor)))\n         forfrac(lay) = factor - float(indfor(lay))\n\n! Set up factors needed to separately include the water vapor\n! self-continuum in the calculation of absorption coefficient.\n\n         selffac(lay) = water * forfac(lay)\n         factor = (tavel(lay)-188.0_rb)/7.2_rb\n         indself(lay) = min(9, max(1, int(factor)-7))\n         selffrac(lay) = factor - float(indself(lay) + 7)\n\n! Calculate needed column amounts.\n\n         colh2o(lay) = 1.e-20_rb * wkl(1,lay)\n         colco2(lay) = 1.e-20_rb * wkl(2,lay)\n         colo3(lay) = 1.e-20_rb * wkl(3,lay)\n!           colo3(lay) = 0._rb\n!           colo3(lay) = colo3(lay)/1.16_rb\n         coln2o(lay) = 1.e-20_rb * wkl(4,lay)\n         colch4(lay) = 1.e-20_rb * wkl(6,lay)\n         colo2(lay) = 1.e-20_rb * wkl(7,lay)\n         colmol(lay) = 1.e-20_rb * coldry(lay) + colh2o(lay)\n!           colco2(lay) = 0._rb\n!           colo3(lay) = 0._rb\n!           coln2o(lay) = 0._rb\n!           colch4(lay) = 0._rb\n!           colo2(lay) = 0._rb\n!           colmol(lay) = 0._rb\n         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)\n         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)\n         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)\n         if (colo2(lay) .eq. 0._rb) colo2(lay) = 1.e-32_rb * coldry(lay)\n! Using E = 1334.2 cm-1.\n         co2reg = 3.55e-24_rb * coldry(lay)\n         co2mult(lay)= (colco2(lay) - co2reg) * &\n               272.63_rb*exp(-1919.4_rb/tavel(lay))/(8.7604e-4_rb*tavel(lay))\n         goto 5400\n\n! Above laytrop.\n 5300    continue\n\n! Set up factors needed to separately include the water vapor\n! foreign-continuum in the calculation of absorption coefficient.\n\n         forfac(lay) = scalefac / (1.+water)\n         factor = (tavel(lay)-188.0_rb)/36.0_rb\n         indfor(lay) = 3\n         forfrac(lay) = factor - 1.0_rb\n\n! Calculate needed column amounts.\n\n         colh2o(lay) = 1.e-20_rb * wkl(1,lay)\n         colco2(lay) = 1.e-20_rb * wkl(2,lay)\n         colo3(lay)  = 1.e-20_rb * wkl(3,lay)\n         coln2o(lay) = 1.e-20_rb * wkl(4,lay)\n         colch4(lay) = 1.e-20_rb * wkl(6,lay)\n         colo2(lay)  = 1.e-20_rb * wkl(7,lay)\n         colmol(lay) = 1.e-20_rb * coldry(lay) + colh2o(lay)\n         if (colco2(lay) .eq. 0._rb) colco2(lay) = 1.e-32_rb * coldry(lay)\n         if (coln2o(lay) .eq. 0._rb) coln2o(lay) = 1.e-32_rb * coldry(lay)\n         if (colch4(lay) .eq. 0._rb) colch4(lay) = 1.e-32_rb * coldry(lay)\n         if (colo2(lay)  .eq. 0._rb) colo2(lay)  = 1.e-32_rb * coldry(lay)\n         co2reg = 3.55e-24_rb * coldry(lay)\n         co2mult(lay)= (colco2(lay) - co2reg) * &\n               272.63_rb*exp(-1919.4_rb/tavel(lay))/(8.7604e-4_rb*tavel(lay))\n\n         selffac(lay) = 0._rb\n         selffrac(lay)= 0._rb\n         indself(lay) = 0\n\n 5400    continue\n\n! We have now isolated the layer ln pressure and temperature,\n! between two reference pressures and two reference temperatures \n! (for each reference pressure).  We multiply the pressure \n! fraction FP with the appropriate temperature fractions to get \n! the factors that will be needed for the interpolation that yields\n! the optical depths (performed in routines TAUGBn for band n).\n\n         compfp = 1._rb - fp\n         fac10(lay) = compfp * ft\n         fac00(lay) = compfp * (1._rb - ft)\n         fac11(lay) = fp * ft1\n         fac01(lay) = fp * (1._rb - ft1)\n\n! End layer loop\n      enddo\n\n      end subroutine setcoef_sw\n\n!***************************************************************************\n      subroutine swatmref\n!***************************************************************************\n\n      save\n \n! These pressures are chosen such that the ln of the first pressure\n! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and\n! each subsequent ln(pressure) differs from the previous one by 0.2.\n\n      pref(:) = (/ &\n          1.05363e+03_rb,8.62642e+02_rb,7.06272e+02_rb,5.78246e+02_rb,4.73428e+02_rb, &\n          3.87610e+02_rb,3.17348e+02_rb,2.59823e+02_rb,2.12725e+02_rb,1.74164e+02_rb, &\n          1.42594e+02_rb,1.16746e+02_rb,9.55835e+01_rb,7.82571e+01_rb,6.40715e+01_rb, &\n          5.24573e+01_rb,4.29484e+01_rb,3.51632e+01_rb,2.87892e+01_rb,2.35706e+01_rb, &\n          1.92980e+01_rb,1.57998e+01_rb,1.29358e+01_rb,1.05910e+01_rb,8.67114e+00_rb, &\n          7.09933e+00_rb,5.81244e+00_rb,4.75882e+00_rb,3.89619e+00_rb,3.18993e+00_rb, &\n          2.61170e+00_rb,2.13828e+00_rb,1.75067e+00_rb,1.43333e+00_rb,1.17351e+00_rb, &\n          9.60789e-01_rb,7.86628e-01_rb,6.44036e-01_rb,5.27292e-01_rb,4.31710e-01_rb, &\n          3.53455e-01_rb,2.89384e-01_rb,2.36928e-01_rb,1.93980e-01_rb,1.58817e-01_rb, &\n          1.30029e-01_rb,1.06458e-01_rb,8.71608e-02_rb,7.13612e-02_rb,5.84256e-02_rb, &\n          4.78349e-02_rb,3.91639e-02_rb,3.20647e-02_rb,2.62523e-02_rb,2.14936e-02_rb, &\n          1.75975e-02_rb,1.44076e-02_rb,1.17959e-02_rb,9.65769e-03_rb /)\n\n      preflog(:) = (/ &\n           6.9600e+00_rb, 6.7600e+00_rb, 6.5600e+00_rb, 6.3600e+00_rb, 6.1600e+00_rb, &\n           5.9600e+00_rb, 5.7600e+00_rb, 5.5600e+00_rb, 5.3600e+00_rb, 5.1600e+00_rb, &\n           4.9600e+00_rb, 4.7600e+00_rb, 4.5600e+00_rb, 4.3600e+00_rb, 4.1600e+00_rb, &\n           3.9600e+00_rb, 3.7600e+00_rb, 3.5600e+00_rb, 3.3600e+00_rb, 3.1600e+00_rb, &\n           2.9600e+00_rb, 2.7600e+00_rb, 2.5600e+00_rb, 2.3600e+00_rb, 2.1600e+00_rb, &\n           1.9600e+00_rb, 1.7600e+00_rb, 1.5600e+00_rb, 1.3600e+00_rb, 1.1600e+00_rb, &\n           9.6000e-01_rb, 7.6000e-01_rb, 5.6000e-01_rb, 3.6000e-01_rb, 1.6000e-01_rb, &\n          -4.0000e-02_rb,-2.4000e-01_rb,-4.4000e-01_rb,-6.4000e-01_rb,-8.4000e-01_rb, &\n          -1.0400e+00_rb,-1.2400e+00_rb,-1.4400e+00_rb,-1.6400e+00_rb,-1.8400e+00_rb, &\n          -2.0400e+00_rb,-2.2400e+00_rb,-2.4400e+00_rb,-2.6400e+00_rb,-2.8400e+00_rb, &\n          -3.0400e+00_rb,-3.2400e+00_rb,-3.4400e+00_rb,-3.6400e+00_rb,-3.8400e+00_rb, &\n          -4.0400e+00_rb,-4.2400e+00_rb,-4.4400e+00_rb,-4.6400e+00_rb /)\n\n! These are the temperatures associated with the respective \n! pressures for the MLS standard atmosphere. \n\n      tref(:) = (/ &\n           2.9420e+02_rb, 2.8799e+02_rb, 2.7894e+02_rb, 2.6925e+02_rb, 2.5983e+02_rb, &\n           2.5017e+02_rb, 2.4077e+02_rb, 2.3179e+02_rb, 2.2306e+02_rb, 2.1578e+02_rb, &\n           2.1570e+02_rb, 2.1570e+02_rb, 2.1570e+02_rb, 2.1706e+02_rb, 2.1858e+02_rb, &\n           2.2018e+02_rb, 2.2174e+02_rb, 2.2328e+02_rb, 2.2479e+02_rb, 2.2655e+02_rb, &\n           2.2834e+02_rb, 2.3113e+02_rb, 2.3401e+02_rb, 2.3703e+02_rb, 2.4022e+02_rb, &\n           2.4371e+02_rb, 2.4726e+02_rb, 2.5085e+02_rb, 2.5457e+02_rb, 2.5832e+02_rb, &\n           2.6216e+02_rb, 2.6606e+02_rb, 2.6999e+02_rb, 2.7340e+02_rb, 2.7536e+02_rb, &\n           2.7568e+02_rb, 2.7372e+02_rb, 2.7163e+02_rb, 2.6955e+02_rb, 2.6593e+02_rb, &\n           2.6211e+02_rb, 2.5828e+02_rb, 2.5360e+02_rb, 2.4854e+02_rb, 2.4348e+02_rb, & \n           2.3809e+02_rb, 2.3206e+02_rb, 2.2603e+02_rb, 2.2000e+02_rb, 2.1435e+02_rb, &\n           2.0887e+02_rb, 2.0340e+02_rb, 1.9792e+02_rb, 1.9290e+02_rb, 1.8809e+02_rb, &\n           1.8329e+02_rb, 1.7849e+02_rb, 1.7394e+02_rb, 1.7212e+02_rb /)\n\n      end subroutine swatmref\n\n      end module rrtmg_sw_setcoef\n\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_spcvmc.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_spcvmc.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/02/09 19:45:56 $\n\n      module rrtmg_sw_spcvmc\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n      use parrrsw, only : nbndsw, ngptsw, mxmol, jpband\n      use rrsw_tbl, only : tblint, bpade, od_lo, exp_tbl\n      use rrsw_vsn, only : hvrspc, hnamspc\n      use rrsw_wvn, only : ngc, ngs\n      use rrtmg_sw_reftra, only: reftra_sw\n      use rrtmg_sw_taumol, only: taumol_sw\n      use rrtmg_sw_vrtqdr, only: vrtqdr_sw\n\n      implicit none\n\n      contains\n\n! ---------------------------------------------------------------------------\n      subroutine spcvmc_sw &\n            (nlayers, istart, iend, icpr, idelm, iout, &\n             pavel, tavel, pz, tz, tbound, palbd, palbp, &\n             pcldfmc, ptaucmc, pasycmc, pomgcmc, ptaormc, &\n             ptaua, pasya, pomga, prmu0, coldry, wkl, adjflux, &\n             laytrop, layswtch, laylow, jp, jt, jt1, &\n             co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, &\n             fac00, fac01, fac10, fac11, &\n             selffac, selffrac, indself, forfac, forfrac, indfor, &\n             pbbfd, pbbfu, pbbcd, pbbcu, puvfd, puvcd, pnifd, pnicd, &\n             pbbfddir, pbbcddir, puvfddir, puvcddir, pnifddir, pnicddir)\n! ---------------------------------------------------------------------------\n!\n! Purpose: Contains spectral loop to compute the shortwave radiative fluxes, \n!          using the two-stream method of H. Barker and McICA, the Monte-Carlo\n!          Independent Column Approximation, for the representation of \n!          sub-grid cloud variability (i.e. cloud overlap).\n!\n! Interface:  *spcvmc_sw* is called from *rrtmg_sw.F90* or rrtmg_sw.1col.F90*\n!\n! Method:\n!    Adapted from two-stream model of H. Barker;\n!    Two-stream model options (selected with kmodts in rrtmg_sw_reftra.F90):\n!        1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates\n!\n! Modifications:\n!\n! Original: H. Barker\n! Revision: Merge with RRTMG_SW: J.-J.Morcrette, ECMWF, Feb 2003\n! Revision: Add adjustment for Earth/Sun distance : MJIacono, AER, Oct 2003\n! Revision: Bug fix for use of PALBP and PALBD: MJIacono, AER, Nov 2003\n! Revision: Bug fix to apply delta scaling to clear sky: AER, Dec 2004\n! Revision: Code modified so that delta scaling is not done in cloudy profiles\n!           if routine cldprop is used; delta scaling can be applied by swithcing\n!           code below if cldprop is not used to get cloud properties. \n!           AER, Jan 2005\n! Revision: Modified to use McICA: MJIacono, AER, Nov 2005\n! Revision: Uniform formatting for RRTMG: MJIacono, AER, Jul 2006 \n! Revision: Use exponential lookup table for transmittance: MJIacono, AER, \n!           Aug 2007 \n!\n! ------------------------------------------------------------------\n\n! ------- Declarations ------\n\n! ------- Input -------\n\n      integer(kind=im), intent(in) :: nlayers\n      integer(kind=im), intent(in) :: istart\n      integer(kind=im), intent(in) :: iend\n      integer(kind=im), intent(in) :: icpr\n      integer(kind=im), intent(in) :: idelm   ! delta-m scaling flag\n                                              ! [0 = direct and diffuse fluxes are unscaled]\n                                              ! [1 = direct and diffuse fluxes are scaled]\n      integer(kind=im), intent(in) :: iout\n      integer(kind=im), intent(in) :: laytrop\n      integer(kind=im), intent(in) :: layswtch\n      integer(kind=im), intent(in) :: laylow\n\n      integer(kind=im), intent(in) :: indfor(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: indself(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jp(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt(:)\n                                                               !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt1(:)\n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: pavel(:)                    ! layer pressure (hPa, mb) \n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: tavel(:)                    ! layer temperature (K)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: pz(0:)                      ! level (interface) pressure (hPa, mb)\n                                                               !   Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tz(0:)                      ! level temperatures (hPa, mb)\n                                                               !   Dimensions: (0:nlayers)\n      real(kind=rb), intent(in) :: tbound                      ! surface temperature (K)\n      real(kind=rb), intent(in) :: wkl(:,:)                    ! molecular amounts (mol/cm2) \n                                                               !   Dimensions: (mxmol,nlayers)\n      real(kind=rb), intent(in) :: coldry(:)                   ! dry air column density (mol/cm2)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colmol(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: adjflux(:)                  ! Earth/Sun distance adjustment\n                                                               !   Dimensions: (jpband)\n\n      real(kind=rb), intent(in) :: palbd(:)                    ! surface albedo (diffuse)\n                                                               !   Dimensions: (nbndsw)\n      real(kind=rb), intent(in) :: palbp(:)                    ! surface albedo (direct)\n                                                               !   Dimensions: (nbndsw)\n      real(kind=rb), intent(in) :: prmu0                       ! cosine of solar zenith angle\n      real(kind=rb), intent(in) :: pcldfmc(:,:)                ! cloud fraction [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: ptaucmc(:,:)                ! cloud optical depth [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: pasycmc(:,:)                ! cloud asymmetry parameter [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: pomgcmc(:,:)                ! cloud single scattering albedo [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: ptaormc(:,:)                ! cloud optical depth, non-delta scaled [mcica]\n                                                               !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(in) :: ptaua(:,:)                  ! aerosol optical depth\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pasya(:,:)                  ! aerosol asymmetry parameter\n                                                               !   Dimensions: (nlayers,nbndsw)\n      real(kind=rb), intent(in) :: pomga(:,:)                  ! aerosol single scattering albedo\n                                                               !   Dimensions: (nlayers,nbndsw)\n\n      real(kind=rb), intent(in) :: colh2o(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco2(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colch4(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: co2mult(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo3(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo2(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: coln2o(:)\n                                                               !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: forfac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfrac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffrac(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac00(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac01(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac10(:)\n                                                               !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: fac11(:)\n                                                               !   Dimensions: (nlayers)\n\n! ------- Output -------\n                                                               !   All Dimensions: (nlayers+1)\n      real(kind=rb), intent(out) :: pbbcd(:)\n      real(kind=rb), intent(out) :: pbbcu(:)\n      real(kind=rb), intent(out) :: pbbfd(:)\n      real(kind=rb), intent(out) :: pbbfu(:)\n      real(kind=rb), intent(out) :: pbbfddir(:)\n      real(kind=rb), intent(out) :: pbbcddir(:)\n\n      real(kind=rb), intent(out) :: puvcd(:)\n      real(kind=rb), intent(out) :: puvfd(:)\n      real(kind=rb), intent(out) :: puvcddir(:)\n      real(kind=rb), intent(out) :: puvfddir(:)\n\n      real(kind=rb), intent(out) :: pnicd(:)\n      real(kind=rb), intent(out) :: pnifd(:)\n      real(kind=rb), intent(out) :: pnicddir(:)\n      real(kind=rb), intent(out) :: pnifddir(:)\n\n! Output - inactive                                            !   All Dimensions: (nlayers+1)\n!      real(kind=rb), intent(out) :: puvcu(:)\n!      real(kind=rb), intent(out) :: puvfu(:)\n!      real(kind=rb), intent(out) :: pnicu(:)\n!      real(kind=rb), intent(out) :: pnifu(:)\n!      real(kind=rb), intent(out) :: pvscd(:)\n!      real(kind=rb), intent(out) :: pvscu(:)\n!      real(kind=rb), intent(out) :: pvsfd(:)\n!      real(kind=rb), intent(out) :: pvsfu(:)\n\n! ------- Local -------\n\n      logical :: lrtchkclr(nlayers),lrtchkcld(nlayers)\n\n      integer(kind=im)  :: klev\n      integer(kind=im) :: ib1, ib2, ibm, igt, ikl, ikp, ikx\n      integer(kind=im) :: iw, jb, jg, jl, jk\n!      integer(kind=im), parameter :: nuv = ?? \n!      integer(kind=im), parameter :: nvs = ?? \n      integer(kind=im) :: itind\n\n      real(kind=rb) :: tblind, ze1\n      real(kind=rb) :: zclear, zcloud\n      real(kind=rb) :: zdbt(nlayers+1), zdbt_nodel(nlayers+1)\n      real(kind=rb) :: zgc(nlayers), zgcc(nlayers), zgco(nlayers)\n      real(kind=rb) :: zomc(nlayers), zomcc(nlayers), zomco(nlayers)\n      real(kind=rb) :: zrdnd(nlayers+1), zrdndc(nlayers+1)\n      real(kind=rb) :: zref(nlayers+1), zrefc(nlayers+1), zrefo(nlayers+1)\n      real(kind=rb) :: zrefd(nlayers+1), zrefdc(nlayers+1), zrefdo(nlayers+1)\n      real(kind=rb) :: zrup(nlayers+1), zrupd(nlayers+1)\n      real(kind=rb) :: zrupc(nlayers+1), zrupdc(nlayers+1)\n      real(kind=rb) :: zs1(nlayers+1)\n      real(kind=rb) :: ztauc(nlayers), ztauo(nlayers)\n      real(kind=rb) :: ztdn(nlayers+1), ztdnd(nlayers+1), ztdbt(nlayers+1)\n      real(kind=rb) :: ztoc(nlayers), ztor(nlayers)\n      real(kind=rb) :: ztra(nlayers+1), ztrac(nlayers+1), ztrao(nlayers+1)\n      real(kind=rb) :: ztrad(nlayers+1), ztradc(nlayers+1), ztrado(nlayers+1)\n      real(kind=rb) :: zdbtc(nlayers+1), ztdbtc(nlayers+1)\n      real(kind=rb) :: zincflx(ngptsw), zdbtc_nodel(nlayers+1) \n      real(kind=rb) :: ztdbt_nodel(nlayers+1), ztdbtc_nodel(nlayers+1)\n\n      real(kind=rb) :: zdbtmc, zdbtmo, zf, zgw, zreflect\n      real(kind=rb) :: zwf, tauorig, repclc\n!     real(kind=rb) :: zincflux                                   ! inactive\n\n! Arrays from rrtmg_sw_taumoln routines\n\n!      real(kind=rb) :: ztaug(nlayers,16), ztaur(nlayers,16)\n!      real(kind=rb) :: zsflxzen(16)\n      real(kind=rb) :: ztaug(nlayers,ngptsw), ztaur(nlayers,ngptsw)\n      real(kind=rb) :: zsflxzen(ngptsw)\n\n! Arrays from rrtmg_sw_vrtqdr routine\n\n      real(kind=rb) :: zcd(nlayers+1,ngptsw), zcu(nlayers+1,ngptsw)\n      real(kind=rb) :: zfd(nlayers+1,ngptsw), zfu(nlayers+1,ngptsw)\n\n! Inactive arrays\n!     real(kind=rb) :: zbbcd(nlayers+1), zbbcu(nlayers+1)\n!     real(kind=rb) :: zbbfd(nlayers+1), zbbfu(nlayers+1)\n!     real(kind=rb) :: zbbfddir(nlayers+1), zbbcddir(nlayers+1)\n\n! ------------------------------------------------------------------\n\n! Initializations\n\n      ib1 = istart\n      ib2 = iend\n      klev = nlayers\n      iw = 0\n      repclc = 1.e-12_rb\n!      zincflux = 0.0_rb\n\n      do jk=1,klev+1\n         pbbcd(jk)=0._rb\n         pbbcu(jk)=0._rb\n         pbbfd(jk)=0._rb\n         pbbfu(jk)=0._rb\n         pbbcddir(jk)=0._rb\n         pbbfddir(jk)=0._rb\n         puvcd(jk)=0._rb\n         puvfd(jk)=0._rb\n         puvcddir(jk)=0._rb\n         puvfddir(jk)=0._rb\n         pnicd(jk)=0._rb\n         pnifd(jk)=0._rb\n         pnicddir(jk)=0._rb\n         pnifddir(jk)=0._rb\n      enddo\n\n\n! Calculate the optical depths for gaseous absorption and Rayleigh scattering\n\n      call taumol_sw(klev, &\n                     colh2o, colco2, colch4, colo2, colo3, colmol, &\n                     laytrop, jp, jt, jt1, &\n                     fac00, fac01, fac10, fac11, &\n                     selffac, selffrac, indself, forfac, forfrac, indfor, &\n                     zsflxzen, ztaug, ztaur)\n\n! Top of shortwave spectral band loop, jb = 16 -> 29; ibm = 1 -> 14\n\n      do jb = ib1, ib2\n         ibm = jb-15\n         igt = ngc(ibm)\n\n! Reinitialize g-point counter for each band if output for each band is requested.\n         if (iout.gt.0.and.ibm.ge.2) iw = ngs(ibm-1)\n\n!        do jk=1,klev+1\n!           zbbcd(jk)=0.0_rb\n!           zbbcu(jk)=0.0_rb\n!           zbbfd(jk)=0.0_rb\n!           zbbfu(jk)=0.0_rb\n!        enddo\n\n! Top of g-point interval loop within each band (iw is cumulative counter) \n         do jg = 1,igt\n            iw = iw+1\n\n! Apply adjustment for correct Earth/Sun distance and zenith angle to incoming solar flux\n            zincflx(iw) = adjflux(jb) * zsflxzen(iw) * prmu0\n!             zincflux = zincflux + adjflux(jb) * zsflxzen(iw) * prmu0           ! inactive\n\n! Compute layer reflectances and transmittances for direct and diffuse sources, \n! first clear then cloudy\n\n! zrefc(jk)  direct albedo for clear\n! zrefo(jk)  direct albedo for cloud\n! zrefdc(jk) diffuse albedo for clear\n! zrefdo(jk) diffuse albedo for cloud\n! ztrac(jk)  direct transmittance for clear\n! ztrao(jk)  direct transmittance for cloudy\n! ztradc(jk) diffuse transmittance for clear\n! ztrado(jk) diffuse transmittance for cloudy\n!  \n! zref(jk)   direct reflectance\n! zrefd(jk)  diffuse reflectance\n! ztra(jk)   direct transmittance\n! ztrad(jk)  diffuse transmittance\n!\n! zdbtc(jk)  clear direct beam transmittance\n! zdbto(jk)  cloudy direct beam transmittance\n! zdbt(jk)   layer mean direct beam transmittance\n! ztdbt(jk)  total direct beam transmittance at levels\n\n! Clear-sky    \n!   TOA direct beam    \n            ztdbtc(1)=1.0_rb\n            ztdbtc_nodel(1)=1.0_rb\n!   Surface values\n            zdbtc(klev+1) =0.0_rb\n            ztrac(klev+1) =0.0_rb\n            ztradc(klev+1)=0.0_rb\n            zrefc(klev+1) =palbp(ibm)\n            zrefdc(klev+1)=palbd(ibm)\n            zrupc(klev+1) =palbp(ibm)\n            zrupdc(klev+1)=palbd(ibm)\n           \n! Cloudy-sky    \n!   Surface values\n            ztrao(klev+1) =0.0_rb\n            ztrado(klev+1)=0.0_rb\n            zrefo(klev+1) =palbp(ibm)\n            zrefdo(klev+1)=palbd(ibm)\n           \n! Total sky    \n!   TOA direct beam    \n            ztdbt(1)=1.0_rb\n            ztdbt_nodel(1)=1.0_rb\n!   Surface values\n            zdbt(klev+1) =0.0_rb\n            ztra(klev+1) =0.0_rb\n            ztrad(klev+1)=0.0_rb\n            zref(klev+1) =palbp(ibm)\n            zrefd(klev+1)=palbd(ibm)\n            zrup(klev+1) =palbp(ibm)\n            zrupd(klev+1)=palbd(ibm)\n    \n! Top of layer loop\n            do jk=1,klev\n\n! Note: two-stream calculations proceed from top to bottom; \n!   RRTMG_SW quantities are given bottom to top and are reversed here\n\n               ikl=klev+1-jk\n\n! Set logical flag to do REFTRA calculation\n!   Do REFTRA for all clear layers\n               lrtchkclr(jk)=.true.\n\n!   Do REFTRA only for cloudy layers in profile, since already done for clear layers\n               lrtchkcld(jk)=.false.\n               lrtchkcld(jk)=(pcldfmc(ikl,iw) > repclc)\n\n! Clear-sky optical parameters - this section inactive     \n!   Original\n!               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw)\n!               zomcc(jk) = ztaur(ikl,iw) / ztauc(jk)\n!               zgcc(jk) = 0.0001_rb\n!   Total sky optical parameters        \n!               ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaucmc(ikl,iw)\n!               zomco(jk) = ptaucmc(ikl,iw) * pomgcmc(ikl,iw) + ztaur(ikl,iw)\n!               zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &\n!                           ztaur(ikl,iw) * 0.0001_rb) / zomco(jk)\n!               zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Clear-sky optical parameters including aerosols\n               ztauc(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm)\n               zomcc(jk) = ztaur(ikl,iw) * 1.0_rb + ptaua(ikl,ibm) * pomga(ikl,ibm)\n               zgcc(jk) = pasya(ikl,ibm) * pomga(ikl,ibm) * ptaua(ikl,ibm) / zomcc(jk)\n               zomcc(jk) = zomcc(jk) / ztauc(jk)\n\n! Pre-delta-scaling clear and cloudy direct beam transmittance (must use 'orig', unscaled cloud OD)       \n!   \\/\\/\\/ This block of code is only needed for unscaled direct beam calculation\n               if (idelm .eq. 0) then\n!     \n                  zclear = 1.0_rb - pcldfmc(ikl,iw)\n                  zcloud = pcldfmc(ikl,iw)\n\n! Clear\n!                   zdbtmc = exp(-ztauc(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of exponential for low tau\n                  ze1 = ztauc(jk) / prmu0\n                  if (ze1 .le. od_lo) then\n                     zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  else \n                     tblind = ze1 / (bpade + ze1)\n                     itind = tblint * tblind + 0.5_rb\n                     zdbtmc = exp_tbl(itind)\n                  endif\n\n                  zdbtc_nodel(jk) = zdbtmc\n                  ztdbtc_nodel(jk+1) = zdbtc_nodel(jk) * ztdbtc_nodel(jk)\n\n! Clear + Cloud\n                  tauorig = ztauc(jk) + ptaormc(ikl,iw)\n!                   zdbtmo = exp(-tauorig / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of exponential for low tau\n                  ze1 = tauorig / prmu0\n                  if (ze1 .le. od_lo) then\n                     zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n                  else\n                     tblind = ze1 / (bpade + ze1)\n                     itind = tblint * tblind + 0.5_rb\n                     zdbtmo = exp_tbl(itind)\n                  endif\n\n                  zdbt_nodel(jk) = zclear*zdbtmc + zcloud*zdbtmo\n                  ztdbt_nodel(jk+1) = zdbt_nodel(jk) * ztdbt_nodel(jk)\n\n               endif\n!   /\\/\\/\\ Above code only needed for unscaled direct beam calculation\n\n\n! Delta scaling - clear   \n               zf = zgcc(jk) * zgcc(jk)\n               zwf = zomcc(jk) * zf\n               ztauc(jk) = (1.0_rb - zwf) * ztauc(jk)\n               zomcc(jk) = (zomcc(jk) - zwf) / (1.0_rb - zwf)\n               zgcc (jk) = (zgcc(jk) - zf) / (1.0_rb - zf)\n\n! Total sky optical parameters (cloud properties already delta-scaled)\n!   Use this code if cloud properties are derived in rrtmg_sw_cldprop       \n               if (icpr .ge. 1) then\n                  ztauo(jk) = ztauc(jk) + ptaucmc(ikl,iw)\n                  zomco(jk) = ztauc(jk) * zomcc(jk) + ptaucmc(ikl,iw) * pomgcmc(ikl,iw) \n                  zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &\n                              ztauc(jk) * zomcc(jk) * zgcc(jk)) / zomco(jk)\n                  zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Total sky optical parameters (if cloud properties not delta scaled)\n!   Use this code if cloud properties are not derived in rrtmg_sw_cldprop       \n               elseif (icpr .eq. 0) then\n                  ztauo(jk) = ztaur(ikl,iw) + ztaug(ikl,iw) + ptaua(ikl,ibm) + ptaucmc(ikl,iw)\n                  zomco(jk) = ptaua(ikl,ibm) * pomga(ikl,ibm) + ptaucmc(ikl,iw) * pomgcmc(ikl,iw) + &\n                              ztaur(ikl,iw) * 1.0_rb\n                  zgco (jk) = (ptaucmc(ikl,iw) * pomgcmc(ikl,iw) * pasycmc(ikl,iw) + &\n                              ptaua(ikl,ibm)*pomga(ikl,ibm)*pasya(ikl,ibm)) / zomco(jk)\n                  zomco(jk) = zomco(jk) / ztauo(jk)\n\n! Delta scaling - clouds \n!   Use only if subroutine rrtmg_sw_cldprop is not used to get cloud properties and to apply delta scaling\n                  zf = zgco(jk) * zgco(jk)\n                  zwf = zomco(jk) * zf\n                  ztauo(jk) = (1._rb - zwf) * ztauo(jk)\n                  zomco(jk) = (zomco(jk) - zwf) / (1.0_rb - zwf)\n                  zgco (jk) = (zgco(jk) - zf) / (1.0_rb - zf)\n               endif \n\n! End of layer loop\n            enddo    \n\n! Clear sky reflectivities\n            call reftra_sw (klev, &\n                            lrtchkclr, zgcc, prmu0, ztauc, zomcc, &\n                            zrefc, zrefdc, ztrac, ztradc)\n\n! Total sky reflectivities      \n            call reftra_sw (klev, &\n                            lrtchkcld, zgco, prmu0, ztauo, zomco, &\n                            zrefo, zrefdo, ztrao, ztrado)\n\n            do jk=1,klev\n\n! Combine clear and cloudy contributions for total sky\n               ikl = klev+1-jk \n               zclear = 1.0_rb - pcldfmc(ikl,iw)\n               zcloud = pcldfmc(ikl,iw)\n\n               zref(jk) = zclear*zrefc(jk) + zcloud*zrefo(jk)\n               zrefd(jk)= zclear*zrefdc(jk) + zcloud*zrefdo(jk)\n               ztra(jk) = zclear*ztrac(jk) + zcloud*ztrao(jk)\n               ztrad(jk)= zclear*ztradc(jk) + zcloud*ztrado(jk)\n\n! Direct beam transmittance        \n\n! Clear\n!                zdbtmc = exp(-ztauc(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               ze1 = ztauc(jk) / prmu0\n               if (ze1 .le. od_lo) then\n                  zdbtmc = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zdbtmc = exp_tbl(itind)\n               endif\n\n               zdbtc(jk) = zdbtmc\n               ztdbtc(jk+1) = zdbtc(jk)*ztdbtc(jk)\n\n! Clear + Cloud\n!                zdbtmo = exp(-ztauo(jk) / prmu0)\n\n! Use exponential lookup table for transmittance, or expansion of \n! exponential for low tau\n               ze1 = ztauo(jk) / prmu0\n               if (ze1 .le. od_lo) then\n                  zdbtmo = 1._rb - ze1 + 0.5_rb * ze1 * ze1\n               else\n                  tblind = ze1 / (bpade + ze1)\n                  itind = tblint * tblind + 0.5_rb\n                  zdbtmo = exp_tbl(itind)\n               endif\n\n               zdbt(jk) = zclear*zdbtmc + zcloud*zdbtmo\n               ztdbt(jk+1) = zdbt(jk)*ztdbt(jk)\n        \n            enddo           \n                 \n! Vertical quadrature for clear-sky fluxes\n\n            call vrtqdr_sw(klev, iw, &\n                           zrefc, zrefdc, ztrac, ztradc, &\n                           zdbtc, zrdndc, zrupc, zrupdc, ztdbtc, &\n                           zcd, zcu)\n      \n! Vertical quadrature for cloudy fluxes\n\n            call vrtqdr_sw(klev, iw, &\n                           zref, zrefd, ztra, ztrad, &\n                           zdbt, zrdnd, zrup, zrupd, ztdbt, &\n                           zfd, zfu)\n\n! Upwelling and downwelling fluxes at levels\n!   Two-stream calculations go from top to bottom; \n!   layer indexing is reversed to go bottom to top for output arrays\n\n            do jk=1,klev+1\n               ikl=klev+2-jk\n\n! Accumulate spectral fluxes over bands - inactive\n!               zbbfu(ikl) = zbbfu(ikl) + zincflx(iw)*zfu(jk,iw)  \n!               zbbfd(ikl) = zbbfd(ikl) + zincflx(iw)*zfd(jk,iw)\n!               zbbcu(ikl) = zbbcu(ikl) + zincflx(iw)*zcu(jk,iw)\n!               zbbcd(ikl) = zbbcd(ikl) + zincflx(iw)*zcd(jk,iw)\n!               zbbfddir(ikl) = zbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n!               zbbcddir(ikl) = zbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n\n! Accumulate spectral fluxes over whole spectrum  \n               pbbfu(ikl) = pbbfu(ikl) + zincflx(iw)*zfu(jk,iw)\n               pbbfd(ikl) = pbbfd(ikl) + zincflx(iw)*zfd(jk,iw)\n               pbbcu(ikl) = pbbcu(ikl) + zincflx(iw)*zcu(jk,iw)\n               pbbcd(ikl) = pbbcd(ikl) + zincflx(iw)*zcd(jk,iw)\n               if (idelm .eq. 0) then \n                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n               elseif (idelm .eq. 1) then\n                  pbbfddir(ikl) = pbbfddir(ikl) + zincflx(iw)*ztdbt(jk)\n                  pbbcddir(ikl) = pbbcddir(ikl) + zincflx(iw)*ztdbtc(jk)\n               endif\n\n! Accumulate direct fluxes for UV/visible bands\n               if (ibm >= 10 .and. ibm <= 13) then\n                  puvcd(ikl) = puvcd(ikl) + zincflx(iw)*zcd(jk,iw)\n                  puvfd(ikl) = puvfd(ikl) + zincflx(iw)*zfd(jk,iw)\n                  if (idelm .eq. 0) then \n                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n                  elseif (idelm .eq. 1) then\n                     puvfddir(ikl) = puvfddir(ikl) + zincflx(iw)*ztdbt(jk)\n                     puvcddir(ikl) = puvcddir(ikl) + zincflx(iw)*ztdbtc(jk)\n                  endif\n! Accumulate direct fluxes for near-IR bands\n               else if (ibm == 14 .or. ibm <= 9) then  \n                  pnicd(ikl) = pnicd(ikl) + zincflx(iw)*zcd(jk,iw)\n                  pnifd(ikl) = pnifd(ikl) + zincflx(iw)*zfd(jk,iw)\n                  if (idelm .eq. 0) then \n                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt_nodel(jk)\n                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc_nodel(jk)\n                  elseif (idelm .eq. 1) then\n                     pnifddir(ikl) = pnifddir(ikl) + zincflx(iw)*ztdbt(jk)\n                     pnicddir(ikl) = pnicddir(ikl) + zincflx(iw)*ztdbtc(jk)\n                  endif\n               endif\n\n            enddo\n\n! End loop on jg, g-point interval\n         enddo             \n\n! End loop on jb, spectral band\n      enddo                    \n\n      end subroutine spcvmc_sw\n\n      end module rrtmg_sw_spcvmc\n\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_taumol.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_taumol.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.4 $\n!     created:   $Date: 2009/02/09 19:45:58 $\n\n      module rrtmg_sw_taumol\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only : im => kind_im, rb => kind_rb\n!      use parrrsw, only : mg, jpband, nbndsw, ngptsw\n      use rrsw_con, only: oneminus\n      use rrsw_wvn, only: nspa, nspb\n      use rrsw_vsn, only: hvrtau, hnamtau\n\n      implicit none\n\n      contains\n\n!----------------------------------------------------------------------------\n      subroutine taumol_sw(nlayers, &\n                           colh2o, colco2, colch4, colo2, colo3, colmol, &\n                           laytrop, jp, jt, jt1, &\n                           fac00, fac01, fac10, fac11, &\n                           selffac, selffrac, indself, forfac, forfrac, indfor, &\n                           sfluxzen, taug, taur)\n!----------------------------------------------------------------------------\n\n! ******************************************************************************\n! *                                                                            *\n! *                 Optical depths developed for the                           *\n! *                                                                            *\n! *               RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *\n! *                                                                            *\n! *                                                                            *\n! *           ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *\n! *                       131 HARTWELL AVENUE                                  *\n! *                       LEXINGTON, MA 02421                                  *\n! *                                                                            *\n! *                                                                            *\n! *                          ELI J. MLAWER                                     *\n! *                        JENNIFER DELAMERE                                   *\n! *                        STEVEN J. TAUBMAN                                   *\n! *                        SHEPARD A. CLOUGH                                   *\n! *                                                                            *\n! *                                                                            *\n! *                                                                            *\n! *                                                                            *\n! *                      email:  mlawer@aer.com                                *\n! *                      email:  jdelamer@aer.com                              *\n! *                                                                            *\n! *       The authors wish to acknowledge the contributions of the             *\n! *       following people:  Patrick D. Brown, Michael J. Iacono,              *\n! *       Ronald E. Farren, Luke Chen, Robert Bergstrom.                       *\n! *                                                                            *\n! ******************************************************************************\n! *    TAUMOL                                                                  *\n! *                                                                            *\n! *    This file contains the subroutines TAUGBn (where n goes from            *\n! *    1 to 28).  TAUGBn calculates the optical depths and Planck fractions    *\n! *    per g-value and layer for band n.                                       *\n! *                                                                            *\n! * Output:  optical depths (unitless)                                         *\n! *          fractions needed to compute Planck functions at every layer       *\n! *              and g-value                                                   *\n! *                                                                            *\n! *    COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *\n! *    COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *\n! *                                                                            *\n! * Input                                                                      *\n! *                                                                            *\n! *    PARAMETER (MG=16, MXLAY=203, NBANDS=14)                                 *\n! *                                                                            *\n! *    COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *\n! *    COMMON /PRECISE/  ONEMINUS                                              *\n! *    COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *\n! *   &                  PZ(0:MXLAY),TZ(0:MXLAY),TBOUND                        *\n! *    COMMON /PROFDATA/ LAYTROP,LAYSWTCH,LAYLOW,                              *\n! *   &                  COLH2O(MXLAY),COLCO2(MXLAY),                          *\n! *   &                  COLO3(MXLAY),COLN2O(MXLAY),COLCH4(MXLAY),             *\n! *   &                  COLO2(MXLAY),CO2MULT(MXLAY)                           *\n! *    COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *\n! *   &                  FAC10(MXLAY),FAC11(MXLAY)                             *\n! *    COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *\n! *    COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *\n! *                                                                            *\n! *    Description:                                                            *\n! *    NG(IBAND) - number of g-values in band IBAND                            *\n! *    NSPA(IBAND) - for the lower atmosphere, the number of reference         *\n! *                  atmospheres that are stored for band IBAND per            *\n! *                  pressure level and temperature.  Each of these            *\n! *                  atmospheres has different relative amounts of the         *\n! *                  key species for the band (i.e. different binary           *\n! *                  species parameters).                                      *\n! *    NSPB(IBAND) - same for upper atmosphere                                 *\n! *    ONEMINUS - since problems are caused in some cases by interpolation     *\n! *               parameters equal to or greater than 1, for these cases       *\n! *               these parameters are set to this value, slightly < 1.        *\n! *    PAVEL - layer pressures (mb)                                            *\n! *    TAVEL - layer temperatures (degrees K)                                  *\n! *    PZ - level pressures (mb)                                               *\n! *    TZ - level temperatures (degrees K)                                     *\n! *    LAYTROP - layer at which switch is made from one combination of         *\n! *              key species to another                                        *\n! *    COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *\n! *              vapor,carbon dioxide, ozone, nitrous ozide, methane,          *\n! *              respectively (molecules/cm**2)                                *\n! *    CO2MULT - for bands in which carbon dioxide is implemented as a         *\n! *              trace species, this is the factor used to multiply the        *\n! *              band's average CO2 absorption coefficient to get the added    *\n! *              contribution to the optical depth relative to 355 ppm.        *\n! *    FACij(LAY) - for layer LAY, these are factors that are needed to        *\n! *                 compute the interpolation factors that multiply the        *\n! *                 appropriate reference k-values.  A value of 0 (1) for      *\n! *                 i,j indicates that the corresponding factor multiplies     *\n! *                 reference k-value for the lower (higher) of the two        *\n! *                 appropriate temperatures, and altitudes, respectively.     *\n! *    JP - the index of the lower (in altitude) of the two appropriate        *\n! *         reference pressure levels needed for interpolation                 *\n! *    JT, JT1 - the indices of the lower of the two appropriate reference     *\n! *              temperatures needed for interpolation (for pressure           *\n! *              levels JP and JP+1, respectively)                             *\n! *    SELFFAC - scale factor needed to water vapor self-continuum, equals     *\n! *              (water vapor density)/(atmospheric density at 296K and        *\n! *              1013 mb)                                                      *\n! *    SELFFRAC - factor needed for temperature interpolation of reference     *\n! *               water vapor self-continuum data                              *\n! *    INDSELF - index of the lower of the two appropriate reference           *\n! *              temperatures needed for the self-continuum interpolation      *\n! *                                                                            *\n! * Data input                                                                 *\n! *    COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG) *\n! *       (note:  n is the band number)                                        *\n! *                                                                            *\n! *    Description:                                                            *\n! *    KA - k-values for low reference atmospheres (no water vapor             *\n! *         self-continuum) (units: cm**2/molecule)                            *\n! *    KB - k-values for high reference atmospheres (all sources)              *\n! *         (units: cm**2/molecule)                                            *\n! *    SELFREF - k-values for water vapor self-continuum for reference         *\n! *              atmospheres (used below LAYTROP)                              *\n! *              (units: cm**2/molecule)                                       *\n! *                                                                            *\n! *    DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *\n! *    EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *\n! *                                                                            *\n! *****************************************************************************\n!\n! Modifications\n!\n! Revised: Adapted to F90 coding, J.-J.Morcrette, ECMWF, Feb 2003\n! Revised: Modified for g-point reduction, MJIacono, AER, Dec 2003\n! Revised: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006\n!\n! ------- Declarations -------\n\n! ----- Input -----\n      integer(kind=im), intent(in) :: nlayers            ! total number of layers\n\n      integer(kind=im), intent(in) :: laytrop            ! tropopause layer index\n      integer(kind=im), intent(in) :: jp(:)              ! \n                                                         !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt(:)              !\n                                                         !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: jt1(:)             !\n                                                         !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: colh2o(:)             ! column amount (h2o)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colco2(:)             ! column amount (co2)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo3(:)              ! column amount (o3)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colch4(:)             ! column amount (ch4)\n                                                         !   Dimensions: (nlayers)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colo2(:)              ! column amount (o2)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: colmol(:)             ! \n                                                         !   Dimensions: (nlayers)\n\n      integer(kind=im), intent(in) :: indself(:)    \n                                                         !   Dimensions: (nlayers)\n      integer(kind=im), intent(in) :: indfor(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffac(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: selffrac(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfac(:)\n                                                         !   Dimensions: (nlayers)\n      real(kind=rb), intent(in) :: forfrac(:)\n                                                         !   Dimensions: (nlayers)\n\n      real(kind=rb), intent(in) :: &                     !\n                       fac00(:), fac01(:), &             !   Dimensions: (nlayers)\n                       fac10(:), fac11(:) \n\n! ----- Output -----\n      real(kind=rb), intent(out) :: sfluxzen(:)          ! solar source function\n                                                         !   Dimensions: (ngptsw)\n      real(kind=rb), intent(out) :: taug(:,:)            ! gaseous optical depth \n                                                         !   Dimensions: (nlayers,ngptsw)\n      real(kind=rb), intent(out) :: taur(:,:)            ! Rayleigh \n                                                         !   Dimensions: (nlayers,ngptsw)\n!      real(kind=rb), intent(out) :: ssa(:,:)            ! single scattering albedo (inactive)\n                                                         !   Dimensions: (nlayers,ngptsw)\n\n      hvrtau = '$Revision: 1.4 $'\n\n! Calculate gaseous optical depth and planck fractions for each spectral band.\n\n      call taumol16\n      call taumol17\n      call taumol18\n      call taumol19\n      call taumol20\n      call taumol21\n      call taumol22\n      call taumol23\n      call taumol24\n      call taumol25\n      call taumol26\n      call taumol27\n      call taumol28\n      call taumol29\n\n!-------------\n      contains\n!-------------\n\n!----------------------------------------------------------------------------\n      subroutine taumol16\n!----------------------------------------------------------------------------\n!\n!     band 16:  2600-3250 cm-1 (low - h2o,ch4; high - ch4)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng16\n      use rrsw_kg16, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl, layreffr, strrat1\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         speccomb = colh2o(lay) + strrat1*colch4(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(16) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(16) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng16\n            taug(lay,ig) = speccomb * &\n                (fac000 * absa(ind0   ,ig) + &\n                 fac100 * absa(ind0 +1,ig) + &\n                 fac010 * absa(ind0 +9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1   ,ig) + &\n                 fac101 * absa(ind1 +1,ig) + &\n                 fac011 * absa(ind1 +9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ig) = tauray/taug(lay,ig)\n            taur(lay,ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(16) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(16) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng16\n            taug(lay,ig) = colch4(lay) * &\n                (fac00(lay) * absb(ind0  ,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1  ,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) \n!            ssa(lay,ig) = tauray/taug(lay,ig)\n            if (lay .eq. laysolfr) sfluxzen(ig) = sfluxref(ig) \n            taur(lay,ig) = tauray  \n         enddo\n      enddo\n\n      end subroutine taumol16\n\n!----------------------------------------------------------------------------\n      subroutine taumol17\n!----------------------------------------------------------------------------\n!\n!     band 17:  3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng17, ngs16\n      use rrsw_kg17, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl, layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(17) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(17) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng17\n            taug(lay,ngs16+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!             ssa(lay,ngs16+ig) = tauray/taug(lay,ngs16+ig)\n            taur(lay,ngs16+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(17) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(17) + js\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng17\n            taug(lay,ngs16+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                 fac100 * absb(ind0+1,ig) + &\n                 fac010 * absb(ind0+5,ig) + &\n                 fac110 * absb(ind0+6,ig) + &\n                 fac001 * absb(ind1,ig) + &\n                 fac101 * absb(ind1+1,ig) + &\n                 fac011 * absb(ind1+5,ig) + &\n                 fac111 * absb(ind1+6,ig)) + &\n                 colh2o(lay) * &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))) \n!            ssa(lay,ngs16+ig) = tauray/taug(lay,ngs16+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs16+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs16+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol17\n\n!----------------------------------------------------------------------------\n      subroutine taumol18\n!----------------------------------------------------------------------------\n!\n!     band 18:  4000-4650 cm-1 (low - h2o,ch4; high - ch4)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng18, ngs17\n      use rrsw_kg18, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl, layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n      \n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colch4(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(18) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(18) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng18\n            taug(lay,ngs17+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ngs17+ig) = tauray/taug(lay,ngs17+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs17+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs17+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(18) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(18) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng18\n            taug(lay,ngs17+ig) = colch4(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\t  \n                 fac11(lay) * absb(ind1+1,ig)) \n!           ssa(lay,ngs17+ig) = tauray/taug(lay,ngs17+ig)\n           taur(lay,ngs17+ig) = tauray\n         enddo\n       enddo\n\n       end subroutine taumol18\n\n!----------------------------------------------------------------------------\n      subroutine taumol19\n!----------------------------------------------------------------------------\n!\n!     band 19:  4650-5150 cm-1 (low - h2o,co2; high - co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng19, ngs18\n      use rrsw_kg19, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl, layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop      \n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(19) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(19) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1 , ng19\n            taug(lay,ngs18+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + & \n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ngs18+ig) = tauray/taug(lay,ngs18+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs18+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs18+ig) = tauray   \n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(19) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(19) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1 , ng19\n            taug(lay,ngs18+ig) = colco2(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) \n!            ssa(lay,ngs18+ig) = tauray/taug(lay,ngs18+ig) \n            taur(lay,ngs18+ig) = tauray   \n         enddo\n      enddo\n\n      end subroutine taumol19\n\n!----------------------------------------------------------------------------\n      subroutine taumol20\n!----------------------------------------------------------------------------\n!\n!     band 20:  5150-6150 cm-1 (low - h2o; high - h2o)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng20, ngs19\n      use rrsw_kg20, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, absch4, rayl, layreffr\n\n      implicit none\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(20) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(20) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng20\n            taug(lay,ngs19+ig) = colh2o(lay) * &\n               ((fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 selffac(lay) * (selfref(inds,ig) + & \n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) &\n                 + colch4(lay) * absch4(ig)\n!            ssa(lay,ngs19+ig) = tauray/taug(lay,ngs19+ig)\n            taur(lay,ngs19+ig) = tauray \n            if (lay .eq. laysolfr) sfluxzen(ngs19+ig) = sfluxref(ig) \n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(20) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(20) + 1\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng20\n            taug(lay,ngs19+ig) = colh2o(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) + &\n                 colch4(lay) * absch4(ig)\n!            ssa(lay,ngs19+ig) = tauray/taug(lay,ngs19+ig)\n            taur(lay,ngs19+ig) = tauray \n         enddo\n      enddo\n\n      end subroutine taumol20\n\n!----------------------------------------------------------------------------\n      subroutine taumol21\n!----------------------------------------------------------------------------\n!\n!     band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng21, ngs20\n      use rrsw_kg21, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl, layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n      \n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(21) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(21) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng21\n            taug(lay,ngs20+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))))\n!            ssa(lay,ngs20+ig) = tauray/taug(lay,ngs20+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs20+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs20+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         speccomb = colh2o(lay) + strrat*colco2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(21) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(21) + js\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng21\n            taug(lay,ngs20+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                 fac100 * absb(ind0+1,ig) + &\n                 fac010 * absb(ind0+5,ig) + &\n                 fac110 * absb(ind0+6,ig) + &\n                 fac001 * absb(ind1,ig) + &\n                 fac101 * absb(ind1+1,ig) + &\n                 fac011 * absb(ind1+5,ig) + &\n                 fac111 * absb(ind1+6,ig)) + &\n                 colh2o(lay) * &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))\n!            ssa(lay,ngs20+ig) = tauray/taug(lay,ngs20+ig)\n            taur(lay,ngs20+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol21\n\n!----------------------------------------------------------------------------\n      subroutine taumol22\n!----------------------------------------------------------------------------\n!\n!     band 22:  7700-8050 cm-1 (low - h2o,o2; high - o2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng22, ngs21\n      use rrsw_kg22, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, rayl, layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray, o2adj, o2cont\n\n! The following factor is the ratio of total O2 band intensity (lines \n! and Mate continuum) to O2 band intensity (line only).  It is needed\n! to adjust the optical depths since the k's include only lines.\n      o2adj = 1.6_rb\n      \n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         o2cont = 4.35e-4_rb*colo2(lay)/(350.0_rb*2.0_rb)\n         speccomb = colh2o(lay) + o2adj*strrat*colo2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n!         odadj = specparm + o2adj * (1._rb - specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(22) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(22) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng22\n            taug(lay,ngs21+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colh2o(lay) * &\n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                  (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) &\n                 + o2cont\n!            ssa(lay,ngs21+ig) = tauray/taug(lay,ngs21+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs21+ig) = sfluxref(ig,js) &\n                + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs21+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         o2cont = 4.35e-4_rb*colo2(lay)/(350.0_rb*2.0_rb)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(22) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(22) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng22\n            taug(lay,ngs21+ig) = colo2(lay) * o2adj * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) + &\n                 o2cont\n!            ssa(lay,ngs21+ig) = tauray/taug(lay,ngs21+ig)\n            taur(lay,ngs21+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol22\n\n!----------------------------------------------------------------------------\n      subroutine taumol23\n!----------------------------------------------------------------------------\n!\n!     band 23:  8050-12850 cm-1 (low - h2o; high - nothing)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng23, ngs22\n      use rrsw_kg23, only : absa, ka, forref, selfref, &\n                            sfluxref, rayl, layreffr, givfac\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(23) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(23) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         do ig = 1, ng23\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs22+ig) = colh2o(lay) * &\n                (givfac * (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + &\n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) \n!            ssa(lay,ngs22+ig) = tauray/taug(lay,ngs22+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs22+ig) = sfluxref(ig) \n            taur(lay,ngs22+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng23\n!            taug(lay,ngs22+ig) = colmol(lay) * rayl(ig)\n!            ssa(lay,ngs22+ig) = 1.0_rb\n            taug(lay,ngs22+ig) = 0._rb\n            taur(lay,ngs22+ig) = colmol(lay) * rayl(ig) \n         enddo\n      enddo\n\n      end subroutine taumol23\n\n!----------------------------------------------------------------------------\n      subroutine taumol24\n!----------------------------------------------------------------------------\n!\n!     band 24:  12850-16000 cm-1 (low - h2o,o2; high - o2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng24, ngs23\n      use rrsw_kg24, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, abso3a, abso3b, rayla, raylb, &\n                            layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         speccomb = colh2o(lay) + strrat*colo2(lay)\n         specparm = colh2o(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(24) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(24) + js\n         inds = indself(lay)\n         indf = indfor(lay)\n\n         do ig = 1, ng24\n            tauray = colmol(lay) * (rayla(ig,js) + &\n               fs * (rayla(ig,js+1) - rayla(ig,js)))\n            taug(lay,ngs23+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) + &\n                 colo3(lay) * abso3a(ig) + &\n                 colh2o(lay) * & \n                 (selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + & \n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig))))\n!            ssa(lay,ngs23+ig) = tauray/taug(lay,ngs23+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs23+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs23+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(24) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(24) + 1\n\n         do ig = 1, ng24\n            tauray = colmol(lay) * raylb(ig)\n            taug(lay,ngs23+ig) = colo2(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) + &\n                 colo3(lay) * abso3b(ig)\n!            ssa(lay,ngs23+ig) = tauray/taug(lay,ngs23+ig)\n            taur(lay,ngs23+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol24\n\n!----------------------------------------------------------------------------\n      subroutine taumol25\n!----------------------------------------------------------------------------\n!\n!     band 25:  16000-22650 cm-1 (low - h2o; high - nothing)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng25, ngs24\n      use rrsw_kg25, only : absa, ka, &\n                            sfluxref, abso3a, abso3b, rayl, layreffr\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         if (jp(lay) .lt. layreffr .and. jp(lay+1) .ge. layreffr) &\n            laysolfr = min(lay+1,laytrop)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(25) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(25) + 1\n\n         do ig = 1, ng25\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs24+ig) = colh2o(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 colo3(lay) * abso3a(ig) \n!            ssa(lay,ngs24+ig) = tauray/taug(lay,ngs24+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs24+ig) = sfluxref(ig) \n            taur(lay,ngs24+ig) = tauray\n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng25\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs24+ig) = colo3(lay) * abso3b(ig) \n!            ssa(lay,ngs24+ig) = tauray/taug(lay,ngs24+ig)\n            taur(lay,ngs24+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol25\n\n!----------------------------------------------------------------------------\n      subroutine taumol26\n!----------------------------------------------------------------------------\n!\n!     band 26:  22650-29000 cm-1 (low - nothing; high - nothing)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng26, ngs25\n      use rrsw_kg26, only : sfluxref, rayl\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n      laysolfr = laytrop\n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         do ig = 1, ng26 \n!            taug(lay,ngs25+ig) = colmol(lay) * rayl(ig)\n!            ssa(lay,ngs25+ig) = 1.0_rb\n            if (lay .eq. laysolfr) sfluxzen(ngs25+ig) = sfluxref(ig) \n            taug(lay,ngs25+ig) = 0._rb\n            taur(lay,ngs25+ig) = colmol(lay) * rayl(ig) \n         enddo\n      enddo\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         do ig = 1, ng26\n!            taug(lay,ngs25+ig) = colmol(lay) * rayl(ig)\n!            ssa(lay,ngs25+ig) = 1.0_rb\n            taug(lay,ngs25+ig) = 0._rb\n            taur(lay,ngs25+ig) = colmol(lay) * rayl(ig) \n         enddo\n      enddo\n\n      end subroutine taumol26\n\n!----------------------------------------------------------------------------\n      subroutine taumol27\n!----------------------------------------------------------------------------\n!\n!     band 27:  29000-38000 cm-1 (low - o3; high - o3)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng27, ngs26\n      use rrsw_kg27, only : absa, ka, absb, kb, &\n                            sfluxref, rayl, layreffr, scalekur\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(27) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(27) + 1\n\n         do ig = 1, ng27\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs26+ig) = colo3(lay) * &\n                (fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig))\n!            ssa(lay,ngs26+ig) = tauray/taug(lay,ngs26+ig)\n            taur(lay,ngs26+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(27) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(27) + 1\n\n         do ig = 1, ng27\n            tauray = colmol(lay) * rayl(ig)\n            taug(lay,ngs26+ig) = colo3(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + & \n                 fac11(lay) * absb(ind1+1,ig))\n!            ssa(lay,ngs26+ig) = tauray/taug(lay,ngs26+ig)\n            if (lay.eq.laysolfr) sfluxzen(ngs26+ig) = scalekur * sfluxref(ig) \n            taur(lay,ngs26+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol27\n\n!----------------------------------------------------------------------------\n      subroutine taumol28\n!----------------------------------------------------------------------------\n!\n!     band 28:  38000-50000 cm-1 (low - o3,o2; high - o3,o2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng28, ngs27\n      use rrsw_kg28, only : absa, ka, absb, kb, &\n                            sfluxref, rayl, layreffr, strrat\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         speccomb = colo3(lay) + strrat*colo2(lay)\n         specparm = colo3(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 8._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(28) + js\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(28) + js\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng28\n            taug(lay,ngs27+ig) = speccomb * &\n                (fac000 * absa(ind0,ig) + &\n                 fac100 * absa(ind0+1,ig) + &\n                 fac010 * absa(ind0+9,ig) + &\n                 fac110 * absa(ind0+10,ig) + &\n                 fac001 * absa(ind1,ig) + &\n                 fac101 * absa(ind1+1,ig) + &\n                 fac011 * absa(ind1+9,ig) + &\n                 fac111 * absa(ind1+10,ig)) \n!            ssa(lay,ngs27+ig) = tauray/taug(lay,ngs27+ig)\n            taur(lay,ngs27+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         speccomb = colo3(lay) + strrat*colo2(lay)\n         specparm = colo3(lay)/speccomb \n         if (specparm .ge. oneminus) specparm = oneminus\n         specmult = 4._rb*(specparm)\n         js = 1 + int(specmult)\n         fs = mod(specmult, 1._rb )\n         fac000 = (1._rb - fs) * fac00(lay)\n         fac010 = (1._rb - fs) * fac10(lay)\n         fac100 = fs * fac00(lay)\n         fac110 = fs * fac10(lay)\n         fac001 = (1._rb - fs) * fac01(lay)\n         fac011 = (1._rb - fs) * fac11(lay)\n         fac101 = fs * fac01(lay)\n         fac111 = fs * fac11(lay)\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(28) + js\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(28) + js\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng28\n            taug(lay,ngs27+ig) = speccomb * &\n                (fac000 * absb(ind0,ig) + &\n                 fac100 * absb(ind0+1,ig) + &\n                 fac010 * absb(ind0+5,ig) + &\n                 fac110 * absb(ind0+6,ig) + &\n                 fac001 * absb(ind1,ig) + &\n                 fac101 * absb(ind1+1,ig) + &\n                 fac011 * absb(ind1+5,ig) + &\n                 fac111 * absb(ind1+6,ig)) \n!            ssa(lay,ngs27+ig) = tauray/taug(lay,ngs27+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs27+ig) = sfluxref(ig,js) &\n               + fs * (sfluxref(ig,js+1) - sfluxref(ig,js))\n            taur(lay,ngs27+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol28\n\n!----------------------------------------------------------------------------\n      subroutine taumol29\n!----------------------------------------------------------------------------\n!\n!     band 29:  820-2600 cm-1 (low - h2o; high - co2)\n!\n!----------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parrrsw, only : ng29, ngs28\n      use rrsw_kg29, only : absa, ka, absb, kb, forref, selfref, &\n                            sfluxref, absh2o, absco2, rayl, layreffr\n\n! ------- Declarations -------\n\n! Local\n\n      integer(kind=im) :: ig, ind0, ind1, inds, indf, js, lay, laysolfr\n      real(kind=rb) :: fac000, fac001, fac010, fac011, fac100, fac101, &\n                       fac110, fac111, fs, speccomb, specmult, specparm, &\n                       tauray\n\n! Compute the optical depth by interpolating in ln(pressure), \n! temperature, and appropriate species.  Below LAYTROP, the water\n! vapor self-continuum is interpolated (in temperature) separately.  \n\n! Lower atmosphere loop\n      do lay = 1, laytrop\n         ind0 = ((jp(lay)-1)*5+(jt(lay)-1))*nspa(29) + 1\n         ind1 = (jp(lay)*5+(jt1(lay)-1))*nspa(29) + 1\n         inds = indself(lay)\n         indf = indfor(lay)\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng29\n            taug(lay,ngs28+ig) = colh2o(lay) * &\n               ((fac00(lay) * absa(ind0,ig) + &\n                 fac10(lay) * absa(ind0+1,ig) + &\n                 fac01(lay) * absa(ind1,ig) + &\n                 fac11(lay) * absa(ind1+1,ig)) + &\n                 selffac(lay) * (selfref(inds,ig) + &\n                 selffrac(lay) * &\n                 (selfref(inds+1,ig) - selfref(inds,ig))) + &\n                 forfac(lay) * (forref(indf,ig) + & \n                 forfrac(lay) * &\n                 (forref(indf+1,ig) - forref(indf,ig)))) &\n                 + colco2(lay) * absco2(ig) \n!            ssa(lay,ngs28+ig) = tauray/taug(lay,ngs28+ig)\n            taur(lay,ngs28+ig) = tauray\n         enddo\n      enddo\n\n      laysolfr = nlayers\n\n! Upper atmosphere loop\n      do lay = laytrop+1, nlayers\n         if (jp(lay-1) .lt. layreffr .and. jp(lay) .ge. layreffr) &\n            laysolfr = lay\n         ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(29) + 1\n         ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(29) + 1\n         tauray = colmol(lay) * rayl\n\n         do ig = 1, ng29\n            taug(lay,ngs28+ig) = colco2(lay) * &\n                (fac00(lay) * absb(ind0,ig) + &\n                 fac10(lay) * absb(ind0+1,ig) + &\n                 fac01(lay) * absb(ind1,ig) + &\n                 fac11(lay) * absb(ind1+1,ig)) &  \n                 + colh2o(lay) * absh2o(ig) \n!            ssa(lay,ngs28+ig) = tauray/taug(lay,ngs28+ig)\n            if (lay .eq. laysolfr) sfluxzen(ngs28+ig) = sfluxref(ig) \n            taur(lay,ngs28+ig) = tauray\n         enddo\n      enddo\n\n      end subroutine taumol29\n\n      end subroutine taumol_sw\n\n      end module rrtmg_sw_taumol\n\n"
  },
  {
    "path": "GeosRad/rrtmg_sw_vrtqdr.F90",
    "content": "!     path:      $Source: /storm/rc1/cvsroot/rc/rrtmg_sw/src/rrtmg_sw_vrtqdr.f90,v $\n!     author:    $Author: mike $\n!     revision:  $Revision: 1.3 $\n!     created:   $Date: 2008/08/29 17:59:12 $\n!\n      module rrtmg_sw_vrtqdr\n\n!  --------------------------------------------------------------------------\n! |                                                                          |\n! |  Copyright 2002-2008, Atmospheric & Environmental Research, Inc. (AER).  |\n! |  This software may be used, copied, or redistributed as long as it is    |\n! |  not sold and this copyright notice is reproduced on each copy made.     |\n! |  This model is provided as is without any express or implied warranties. |\n! |                       (http://www.rtweb.aer.com/)                        |\n! |                                                                          |\n!  --------------------------------------------------------------------------\n\n! ------- Modules -------\n\n      use parkind, only: im => kind_im, rb => kind_rb\n!      use parrrsw, only: ngptsw\n\n      implicit none\n\n      contains\n\n! --------------------------------------------------------------------------\n      subroutine vrtqdr_sw(klev, kw, &\n                           pref, prefd, ptra, ptrad, &\n                           pdbt, prdnd, prup, prupd, ptdbt, &\n                           pfd, pfu)\n! --------------------------------------------------------------------------\n \n! Purpose: This routine performs the vertical quadrature integration\n!\n! Interface:  *vrtqdr_sw* is called from *spcvrt_sw* and *spcvmc_sw*\n!\n! Modifications.\n! \n! Original: H. Barker\n! Revision: Integrated with rrtmg_sw, J.-J. Morcrette, ECMWF, Oct 2002\n! Revision: Reformatted for consistency with rrtmg_lw: MJIacono, AER, Jul 2006\n!\n!-----------------------------------------------------------------------\n\n! ------- Declarations -------\n\n! Input\n\n      integer(kind=im), intent (in) :: klev                   ! number of model layers\n      integer(kind=im), intent (in) :: kw                     ! g-point index\n\n      real(kind=rb), intent(in) :: pref(:)                    ! direct beam reflectivity\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: prefd(:)                   ! diffuse beam reflectivity\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: ptra(:)                    ! direct beam transmissivity\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: ptrad(:)                   ! diffuse beam transmissivity\n                                                              !   Dimensions: (nlayers+1)\n\n      real(kind=rb), intent(in) :: pdbt(:)\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(in) :: ptdbt(:)\n                                                              !   Dimensions: (nlayers+1)\n\n      real(kind=rb), intent(inout) :: prdnd(:)\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: prup(:)\n                                                              !   Dimensions: (nlayers+1)\n      real(kind=rb), intent(inout) :: prupd(:)\n                                                              !   Dimensions: (nlayers+1)\n\n! Output\n      real(kind=rb), intent(out) :: pfd(:,:)                  ! downwelling flux (W/m2)\n                                                              !   Dimensions: (nlayers+1,ngptsw)\n                                                              ! unadjusted for earth/sun distance or zenith angle\n      real(kind=rb), intent(out) :: pfu(:,:)                  ! upwelling flux (W/m2)\n                                                              !   Dimensions: (nlayers+1,ngptsw)\n                                                              ! unadjusted for earth/sun distance or zenith angle\n\n! Local\n\n      integer(kind=im) :: ikp, ikx, jk\n\n      real(kind=rb) :: zreflect\n      real(kind=rb) :: ztdn(klev+1)  \n\n! Definitions\n!\n! pref(jk)   direct reflectance\n! prefd(jk)  diffuse reflectance\n! ptra(jk)   direct transmittance\n! ptrad(jk)  diffuse transmittance\n!\n! pdbt(jk)   layer mean direct beam transmittance\n! ptdbt(jk)  total direct beam transmittance at levels\n!\n!-----------------------------------------------------------------------------\n                   \n! Link lowest layer with surface\n             \n      zreflect = 1._rb / (1._rb - prefd(klev+1) * prefd(klev))\n      prup(klev) = pref(klev) + (ptrad(klev) * &\n                 ((ptra(klev) - pdbt(klev)) * prefd(klev+1) + &\n                   pdbt(klev) * pref(klev+1))) * zreflect\n      prupd(klev) = prefd(klev) + ptrad(klev) * ptrad(klev) * &\n                    prefd(klev+1) * zreflect\n\n! Pass from bottom to top \n\n      do jk = 1,klev-1\n         ikp = klev+1-jk                       \n         ikx = ikp-1\n         zreflect = 1._rb / (1._rb -prupd(ikp) * prefd(ikx))\n         prup(ikx) = pref(ikx) + (ptrad(ikx) * &\n                   ((ptra(ikx) - pdbt(ikx)) * prupd(ikp) + &\n                     pdbt(ikx) * prup(ikp))) * zreflect\n         prupd(ikx) = prefd(ikx) + ptrad(ikx) * ptrad(ikx) * &\n                      prupd(ikp) * zreflect\n      enddo\n    \n! Upper boundary conditions\n\n      ztdn(1) = 1._rb\n      prdnd(1) = 0._rb\n      ztdn(2) = ptra(1)\n      prdnd(2) = prefd(1)\n\n! Pass from top to bottom\n\n      do jk = 2,klev\n         ikp = jk+1\n         zreflect = 1._rb / (1._rb - prefd(jk) * prdnd(jk))\n         ztdn(ikp) = ptdbt(jk) * ptra(jk) + &\n                    (ptrad(jk) * ((ztdn(jk) - ptdbt(jk)) + &\n                     ptdbt(jk) * pref(jk) * prdnd(jk))) * zreflect\n         prdnd(ikp) = prefd(jk) + ptrad(jk) * ptrad(jk) * &\n                      prdnd(jk) * zreflect\n      enddo\n    \n! Up and down-welling fluxes at levels\n\n      do jk = 1,klev+1\n         zreflect = 1._rb / (1._rb - prdnd(jk) * prupd(jk))\n         pfu(jk,kw) = (ptdbt(jk) * prup(jk) + &\n                      (ztdn(jk) - ptdbt(jk)) * prupd(jk)) * zreflect\n         pfd(jk,kw) = ptdbt(jk) + (ztdn(jk) - ptdbt(jk)+ &\n                      ptdbt(jk) * prup(jk) * prdnd(jk)) * zreflect\n      enddo\n\n      end subroutine vrtqdr_sw\n\n      end module rrtmg_sw_vrtqdr\n"
  },
  {
    "path": "GeosRad/test_aero_init.F",
    "content": "      program test_AERO_INIT\n    \n        parameter (nwv=61,nr=7,nspec=6)\n        parameter (nbndlw=16,nbndsw=14)\n        real*8    :: lambda(nwv)\n        real*8   :: rrtmg_lmb(nbndlw+nbndsw)\n\n! RRTMG locations for aerosol OD \n        REAL*8  :: aero_band_sel(nbndlw+nbndsw) \n        INTEGER  :: id_aer_lmb0 (nbndlw+nbndsw)\n        INTEGER  :: id_aer_lmb1 (nbndlw+nbndsw)\n\n       ! Local variables\n       integer  :: ib, iflag\n\n      data aero_band_sel /180.,425.,565.,665.,760.,900.,1030.,1130.,\n     &                   1285.,1435.,1640.,1940.,2165.,2315.,2490.,\n     &                   2925., 2903.,3601.,4310.,4892.,5623.,6872.,\n     &                   7872., 10590.,14420.,18970.,25015.,30390.,\n     &                   43507.,1412./\n\n      data lambda /250, 300, 350, 400, 450, 500, 550, 600, 650, 700,\n     &  750, 800, 900, 1000, 1250, 1500, 1750, 2000, 2500, 3000, 3200, \n     & 3390, 3500, 3750, 4000, 4500, 5000, 5500, 6000, 6200, 6500, 7200, \n     & 7900, 8200, 8500, 8700, 9000, 9200, 9500, 9800, 10000, 10600, \n     &11000, 11500, 12500, 13000, 14000, 14800, 15000, 16400, 17200, \n     & 18000, 18500, 20000, 21300, 22500, 25000, 27900, \n     & 30000, -30536, -25536/\n    \n       rrtmg_lmb = 1.0e7/aero_band_sel   ! convert from cm-1 to nm\n\n       ! Find bracketing GC aerosol indices for each RRTMG band\n       do ib=nbndlw+nbndsw,1,-1\n          iflag = 0 \n          if(rrtmg_lmb(ib).lt.lambda(1)) iflag = -1\n          if(rrtmg_lmb(ib).gt.lambda(59)) iflag = 1 \n          select case (iflag)\n       !Handle short wavelength points\n             case (-1)\n                id_aer_lmb0(ib) = 1 \n                id_aer_lmb1(ib) = 2 \n\n       !Handle long wavelength points\n             case (1) \n                id_aer_lmb0(ib) = 58\n                id_aer_lmb1(ib) = 59\n    \n             case default\n                ip = 1 \n                do while (rrtmg_lmb(ib).gt. lambda(ip)) \n                   ip=ip+1\n                end do\n                id_aer_lmb0(ib) =  ip-1\n                id_aer_lmb1(ib) =  ip  \n             end select\n       end do\n\n       do ib=1,nbndlw+nbndsw\n          print *, rrtmg_lmb(ib),lambda(id_aer_lmb0(ib)),\n     &             lambda(id_aer_lmb1(ib))\n       end do\n   \n       end\n"
  },
  {
    "path": "GeosRad/test_arr_mult.F90",
    "content": "        program test_arr_mult\n\n        real*4 :: a(5) = (/2.,4.,6.,8.,10./)\n        real*4 :: b(5) = (/3.,3.,3.,3.,3./)\n        real*4 :: c(5)\n\n        print *, a*b\n\n        end\n\n"
  },
  {
    "path": "GeosUtil/CMakeLists.txt",
    "content": "add_library(JulDay STATIC EXCLUDE_FROM_ALL\n\tjulday_mod.F90\n)\ntarget_link_libraries(JulDay\n\tPUBLIC Headers\n)\n\nadd_library(GeosUtil STATIC EXCLUDE_FROM_ALL\n\terror_mod.F90\n\tfile_mod.F90\n\tgc_grid_mod.F90\n        henry_mod.F90\n\tifort_errmsg.F90\n\tpressure_mod.F90\n\tprint_mod.F90\n\tregrid_a2a_mod.F90\n\ttime_mod.F90\n\ttimers_mod.F90\n\ttransfer_mod.F90\n\tunitconv_mod.F90\n)\ntarget_link_libraries(GeosUtil\n\tPUBLIC NcdfUtil\n)\n\n"
  },
  {
    "path": "GeosUtil/error_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: error_mod.F90\n!\n! !DESCRIPTION: Module ERROR\\_MOD contains error checking routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE ERROR_MOD\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Input_Opt_Mod,      ONLY : OptInput\n  USE PRECISION_MOD            ! For GEOS-Chem Precision (fp)\n#if defined( ESMF_ )\n    USE pFlogger\n#endif\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: ALLOC_ERR\n  PUBLIC  :: CHECK_VALUE\n  PUBLIC  :: DEBUG_MSG\n  PUBLIC  :: LOG_MSG\n  PUBLIC  :: ERROR_STOP\n  PUBLIC  :: GEOS_CHEM_STOP\n  PUBLIC  :: IS_SAFE_DIV\n  PUBLIC  :: IS_SAFE_EXP\n  PUBLIC  :: IT_IS_NAN\n  PUBLIC  :: IT_IS_FINITE\n  PUBLIC  :: SAFE_DIV\n  PUBLIC  :: SAFE_EXP\n  PUBLIC  :: SAFE_LOG\n  PUBLIC  :: SAFE_LOG10\n  PUBLIC  :: INIT_ERROR\n  PUBLIC  :: CLEANUP_ERROR\n\n  ! Interface for NaN-check routines\n  INTERFACE IT_IS_NAN\n     MODULE PROCEDURE NAN_FLOAT\n     MODULE PROCEDURE NAN_DBLE\n  END INTERFACE IT_IS_NAN\n\n  ! Interface for finite-check routines\n  INTERFACE IT_IS_FINITE\n     MODULE PROCEDURE FINITE_FLOAT\n     MODULE PROCEDURE FINITE_DBLE\n  END INTERFACE IT_IS_FINITE\n\n  ! Interface for check-value routines\n  INTERFACE CHECK_VALUE\n     MODULE PROCEDURE CHECK_REAL_VALUE\n     MODULE PROCEDURE CHECK_DBLE_VALUE\n  END INTERFACE CHECK_VALUE\n\n  INTERFACE IS_SAFE_DIV\n     MODULE PROCEDURE IS_SAFE_DIV_R4\n     MODULE PROCEDURE IS_SAFE_DIV_R8\n  END INTERFACE IS_SAFE_DIV\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: CHECK_DBLE_VALUE\n  PRIVATE :: FINITE_DBLE\n  PRIVATE :: FINITE_FLOAT\n  PRIVATE :: NAN_DBLE\n  PRIVATE :: NAN_FLOAT\n  PRIVATE :: IS_SAFE_DIV_R4\n  PRIVATE :: IS_SAFE_DIV_R8\n\n!\n! !REVISION HISTORY:\n!  08 Mar 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n\n  LOGICAL                 :: SHADOW_am_I_Root   ! Shadow for am_I_Root\n  TYPE(OptInput), POINTER :: SHADOW_Input_Opt   ! Shadow for Input_Opt\n#if defined( ESMF_ )\n  class(Logger), pointer :: lgr\n  Character(Len=255) :: compname\n#endif\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nan_Float\n!\n! !DESCRIPTION: Function NAN\\_FLOAT returns TRUE if a REAL*4 number is equal\n!  to the IEEE NaN (Not-a-Number) flag.  Returns FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION NAN_FLOAT( VALUE ) RESULT( IT_IS_A_NAN )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4, INTENT(IN) :: VALUE        ! Value to be tested for NaN\n!\n! !RETURN VALUE:\n!\n    LOGICAL            :: IT_IS_A_NAN  ! =T if VALUE is NaN; =F otherwise\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IT_IS_A_NAN = ISNAN( VALUE )\n\n  END FUNCTION NAN_FLOAT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nan_Dble\n!\n! !DESCRIPTION: Function NAN\\_DBLE returns TRUE if a REAL(fp) number is equal\n!  to the IEEE NaN (Not-a-Number) flag.  Returns FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION NAN_DBLE( VALUE ) RESULT( IT_IS_A_NAN )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8, INTENT(IN) :: VALUE        ! Value to be tested for NaN\n!\n! !RETURN VALUE:\n!\n    LOGICAL            :: IT_IS_A_NAN  ! =T if VALUE is NaN; =F otherwise\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IT_IS_A_NAN = ISNAN( VALUE )\n\n  END FUNCTION NAN_DBLE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finite_Float\n!\n! !DESCRIPTION: Function FINITE\\_FLOAT returns FALSE if a REAL*4 number is\n!  equal to the IEEE Infinity flag.  Returns TRUE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION FINITE_FLOAT( VALUE ) RESULT( IT_IS_A_FINITE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4, INTENT(IN) :: VALUE           ! Value to be tested for infinity\n!\n! !RETURN VALUE:\n!\n    LOGICAL            :: IT_IS_A_FINITE  ! =T if VALUE is finite; =F else\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n#if defined( LINUX_GFORTRAN )\n\n    IT_IS_A_FINITE = ((.not.ISNAN(VALUE)) .and. &\n                      (VALUE.lt.HUGE(1.0e0)) .and. &\n                      (VALUE.gt.(-1.0e0*HUGE(1.0e0))))\n\n#elif defined( LINUX_IFORT )\n\n    ! Local variables (parameters copied from \"fordef.for\")\n    INTEGER, PARAMETER :: SNAN=0, QNAN=1, POS_INF=2, NEG_INF=3\n    INTEGER            :: FPC\n\n    ! Get the floating point type class for VALUE\n    FPC            = FP_CLASS( VALUE )\n\n    ! VALUE is infinite if it is either +Inf or -Inf\n    ! Also flag an error if VALUE is a signaling or quiet NaN\n    IT_IS_A_FINITE = ( FPC /= POS_INF .and. FPC /= NEG_INF .and. &\n                       FPC /= SNAN    .and. FPC /= QNAN          )\n\n#endif\n\n  END FUNCTION FINITE_FLOAT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finite_Dble\n!\n! !DESCRIPTION: Function FINITE\\_FLOAT returns FALSE if a REAL(fp) number is\n!  equal to the IEEE Infinity flag.  Returns TRUE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION FINITE_DBLE( VALUE ) RESULT( IT_IS_A_FINITE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8, INTENT(IN) :: VALUE           ! Value to be tested for infinity\n!\n! !RETURN VALUE:\n!\n    LOGICAL            :: IT_IS_A_FINITE  ! =T if VALUE is finite; =F else\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n#if   defined( LINUX_GFORTRAN )\n\n    IT_IS_A_FINITE = ((.not.ISNAN(VALUE)) .and. &\n                      (VALUE.lt.HUGE(1.d0)) .and. &\n                      (VALUE.gt.(-1.0d0*HUGE(1.d0))))\n\n#elif defined( LINUX_IFORT )\n\n    ! Local variables (parameters copied from \"fordef.for\")\n    INTEGER, PARAMETER :: SNAN=0, QNAN=1, POS_INF=2, NEG_INF=3\n    INTEGER            :: FPC\n\n    ! Get the floating point type class for VALUE\n    FPC            = FP_CLASS( VALUE )\n\n    ! VALUE is infinite if it is either +Inf or -Inf\n    ! Also flag an error if VALUE is a signaling or quiet NaN\n    IT_IS_A_FINITE = ( FPC /= POS_INF .and. FPC /= NEG_INF .and. &\n                       FPC /= SNAN    .and. FPC /= QNAN          )\n\n#endif\n\n  END FUNCTION FINITE_DBLE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check_Real_Value\n!\n! !DESCRIPTION: Subroutine CHECK\\_REAL\\_VALUE checks to make sure a REAL*4\n!  value is not NaN or Infinity. This is a wrapper for the interfaces\n!  IT\\_IS\\_NAN and IT\\_IS\\_FINITE.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHECK_REAL_VALUE( VALUE, LOCATION, VARNAME, MESSAGE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4,             INTENT(IN) :: VALUE        ! Value to be checked\n    CHARACTER(LEN=255), INTENT(IN) :: VARNAME      ! Name of variable\n    CHARACTER(LEN=255), INTENT(IN) :: MESSAGE      ! Short descriptive msg\n    INTEGER,            INTENT(IN) :: LOCATION(4)  ! (/ I, J, L, N /) indices\n!\n! !REVISION HISTORY:\n!  13 Jun 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! First check for NaN -- print info & stop run if found\n    IF ( IT_IS_NAN( VALUE ) ) THEN\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       WRITE( 6, 110   ) TRIM( VARNAME )\n       WRITE( 6, 115   ) LOCATION\n       WRITE( 6, '(a)' ) TRIM( MESSAGE )\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP()\n    ENDIF\n\n    ! Next check for infinity -- print info & stop run if found\n    IF ( .not. IT_IS_FINITE( VALUE ) ) THEN\n       WRITE( 6, '(a)'     ) REPEAT( '=', 79 )\n       WRITE( 6, 120       ) TRIM( VARNAME )\n       WRITE( 6, 115       ) LOCATION\n       WRITE( 6, '(f13.6)' ) VALUE\n       WRITE( 6, '(a)'     ) TRIM ( MESSAGE )\n       WRITE( 6, '(a)'     ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP()\n    ENDIF\n\n    ! FORMAT statements\n110 FORMAT( 'CHECK_VALUE: ', a, ' is NaN!'        )\n115 FORMAT( 'Grid box (I,J,L,N) : ', 4i4          )\n120 FORMAT( 'CHECK_VALUE: ', a, ' is not finite!' )\n\n  END SUBROUTINE CHECK_REAL_VALUE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check_Dble_Value\n!\n! !DESCRIPTION: Subroutine CHECK\\_DBLE\\_VALUE checks to make sure a REAL*4\n!  value is not NaN or Infinity. This is a wrapper for the interfaces\n!  IT\\_IS\\_NAN and IT\\_IS\\_FINITE.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CHECK_DBLE_VALUE( VALUE, LOCATION, VARNAME, MESSAGE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8,             INTENT(IN) :: VALUE        ! Value to be checked\n    CHARACTER(LEN=255), INTENT(IN) :: VARNAME      ! Name of variable\n    CHARACTER(LEN=255), INTENT(IN) :: MESSAGE      ! Short descriptive msg\n    INTEGER,            INTENT(IN) :: LOCATION(4)  ! (/ I, J, L, N /) indices\n!\n! !REVISION HISTORY:\n!  13 Jun 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! First check for NaN\n    IF ( IT_IS_NAN( VALUE ) )THEN\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       WRITE( 6, 110   ) TRIM( VARNAME )\n       WRITE( 6, 115   ) LOCATION\n       WRITE( 6, '(a)' ) TRIM( MESSAGE )\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! Next check for infinity\n    IF ( .not. IT_IS_FINITE( VALUE ) ) THEN\n       WRITE( 6, '(a)'     ) REPEAT( '=', 79 )\n       WRITE( 6, 120       ) TRIM( VARNAME )\n       WRITE( 6, 115       ) LOCATION\n       WRITE( 6, '(f13.6)' ) VALUE\n       WRITE( 6, '(a)'     ) TRIM ( MESSAGE )\n       WRITE( 6, '(a)'     ) REPEAT( '=', 79 )\n       CALL GEOS_CHEM_STOP\n    ENDIF\n\n    ! FORMAT statements\n110 FORMAT( 'CHECK_VALUE: ', a, ' is NaN!'        )\n115 FORMAT( 'Grid box (I,J,L,N) : ', 4i4          )\n120 FORMAT( 'CHECK_VALUE: ', a, ' is not finite!' )\n\n  END SUBROUTINE CHECK_DBLE_VALUE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Error_Stop\n!\n! !DESCRIPTION: Subroutine ERROR\\_STOP is a wrapper for GEOS\\_CHEM\\_STOP.  It\n!  prints an error message then calls GEOS\\_CHEM\\_STOP to free memory and quit.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ERROR_STOP( MESSAGE, LOCATION, INSTRUCTIONS )\n!\n! !USES:\n!\n    USE CharPak_Mod, ONLY : WordWrapPrint\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: MESSAGE      ! Error msg to print\n    CHARACTER(LEN=*), INTENT(IN) :: LOCATION     ! Where ERROR_STOP is called\n    CHARACTER(LEN=*), OPTIONAL   :: INSTRUCTIONS ! Further instructions\n!\n! !REVISION HISTORY:\n!  15 Oct 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: TmpMsg\n\n    !$OMP CRITICAL\n\n    ! Write the error message\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    TmpMsg = 'GEOS-CHEM ERROR: ' // TRIM( MESSAGE )\n    CALL WordWrapPrint( TmpMsg, 76 )\n\n    ! If the optional INSTRUCTIONS argument is passed, then print it to\n    ! the stdout stream.  This is useful for instructing the user to\n    ! look for the error in another location (e.g. the HEMCO log file).\n    IF ( PRESENT( INSTRUCTIONS ) ) THEN\n       WRITE( 6, '(a)' )\n       CALL WordWrapPrint( Instructions, 76 )\n       WRITE( 6, '(a)' )\n    ENDIF\n\n    ! Write the location of the error\n    WRITE( 6, '(a)' ) 'STOP at ' // TRIM( LOCATION )\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    !$OMP END CRITICAL\n\n    ! Flush text to file before stopping\n    CALL FLUSH( 6 )\n\n    ! Deallocate memory and stop the run\n    CALL GEOS_CHEM_STOP()\n\n  END SUBROUTINE ERROR_STOP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Geos_Chem_Stop\n!\n! !DESCRIPTION: Subroutine GEOS\\_CHEM\\_STOP calls CLEANUP to deallocate all\n!  module arrays and then stops the run.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CHEM_STOP()\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Timers_Mod\n#if defined( ESMF_ )\n    !-----------------------------------------------------------------\n    !         %%%%%%% GEOS-Chem HP (with ESMF & MPI) %%%%%%%\n    !\n    ! Use GEOS-5 style error reporting when connecting to the GEOS-5\n    ! GCM via the ESMF interface (bmy, 3/12/13)\n    !-----------------------------------------------------------------\n    USE MAPL_Mod\n#   include \"MAPL_Generic.h\"\n#elif defined( MODEL_CESM )\n      USE CAM_ABORTUTILS,     ONLY : ENDRUN\n#endif\n!\n! !REVISION HISTORY:\n!  15 Oct 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    INTEGER :: RC          ! Success / Failure\n    LOGICAL :: am_I_Root   ! Is this the root CPU?\n\n#if defined( ESMF_ )\n    !-----------------------------------------------------------------\n    !         %%%%%%% GEOS-Chem HP (with ESMF & MPI) %%%%%%%\n    !\n    ! Use GEOS-5 style error reporting when connecting to the GEOS-5\n    ! GCM via the ESMF interface (bmy, 3/12/13)\n    !-----------------------------------------------------------------\n    __Iam__('GEOSCHEMSTOP')\n\n    ! Only write to stdout if we are on the root CPU\n    am_I_Root = .TRUE.\n\n    IF ( SHADOW_Input_Opt%useTimers ) THEN\n       CALL Timer_StopAll( RC )\n       CALL Timer_PrintAll( SHADOW_Input_Opt, RC )\n    ENDIF\n\n    ! Use MAPL macro\n    _FAIL('Failure in GEOS-Chem!')\n\n#elif defined( MODEL_CESM )\n      CALL ENDRUN('GEOS-Chem failure!')\n\n#else\n    ! Only write to stdout if we are on the root CPU\n    am_I_Root = .TRUE.\n\n    IF ( SHADOW_Input_Opt%useTimers ) THEN\n       CALL Timer_StopAll( RC )\n       CALL Timer_PrintAll( SHADOW_Input_Opt, RC )\n    ENDIF\n\n    !-----------------------------------------------------------------\n    !         %%%%%%% GEOS-Chem CLASSIC (with OpenMP) %%%%%%%\n    !\n    ! Current practice in the std GEOS-Chem is to call CLEANUP to\n    ! deallocate module arrays and then exit (bmy, 3/12/13)\n    !-----------------------------------------------------------------\n    !$OMP CRITICAL\n\n    ! Deallocate all module arrays\n    CALL CLEANUP( SHADOW_am_I_Root, SHADOW_Input_Opt, .TRUE., RC )\n\n    ! Flush all files and stop\n    CALL EXIT( 99999 )\n\n    !$OMP END CRITICAL\n\n#endif\n\n  END SUBROUTINE GEOS_CHEM_STOP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Alloc_Err\n!\n! !DESCRIPTION: Subroutine ALLOC\\_ERR prints an error message if there is not\n!  enough memory to allocate a particular allocatable array.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ALLOC_ERR( ARRAYNAME, AS )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),  INTENT(IN) :: ARRAYNAME  ! Name of array\n    INTEGER, OPTIONAL, INTENT(IN) :: AS         ! Error output from \"STAT\"\n!\n! !REVISION HISTORY:\n!  26 Jun 2000 - R. Yantosca - Initial version, split off from \"ndxx_setup.F90\"\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)            :: ERRMSG\n\n    !=================================================================\n    ! ALLOC_ERR begins here!\n    !=================================================================\n\n#if defined( LINUX_IFORT )\n\n    !-----------------------\n    ! Linux/IFORT compiler\n    !-----------------------\n\n    ! More local variables\n    CHARACTER(LEN=255) :: IFORT_ERRMSG, MSG\n\n    ! Define error message\n    ERRMSG = 'Allocation error in array: ' // TRIM( ARRAYNAME )\n\n    ! If we have passed the allocation status argument ...\n    IF ( PRESENT( AS ) ) THEN\n\n       ! Get IFORT error message\n       MSG = IFORT_ERRMSG( AS )\n\n       ! Append IFORT error message\n       ERRMSG = TRIM( ERRMSG ) // ' :: ' // TRIM( MSG )\n\n    ENDIF\n\n#else\n\n    !-----------------------\n    ! All other compilers\n    !-----------------------\n\n    ! Define error message\n    ERRMSG = 'Allocation error in array: ' // TRIM( ARRAYNAME )\n\n#endif\n\n    ! Print error message, deallocate memory, and stop the run\n    CALL ERROR_STOP( ERRMSG, 'ALLOC_ERR in error_mod.F90' )\n\n  END SUBROUTINE ALLOC_ERR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Debug_Msg\n!\n! !DESCRIPTION: Subroutine DEBUG\\_MSG prints a message to the stdout buffer\n!  and flushes.  This is useful for determining the exact location where\n!  errors occur.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE DEBUG_MSG( MESSAGE )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: MESSAGE   ! Message to print\n!\n! !REVISION HISTORY:\n!  07 Jan 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Print message\n    WRITE( 6, '(5x,a)' ) MESSAGE\n\n    ! Call FLUSH routine to flush the output buffer\n    CALL FLUSH( 6 )\n\n  END SUBROUTINE DEBUG_MSG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Log_Msg\n!\n! !DESCRIPTION: Subroutine LOG\\_MSG prints a message to whatever logging \n!  mechanism is used by the various host models. This is the safest way\n!  to ensure that a message is passed to the user.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE LOG_MSG( MESSAGE, LEVEL, SRC )\n!\n! !USES:\n!\n    USE CharPak_Mod, ONLY : To_Uppercase\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)           :: MESSAGE   ! Message to print\n    CHARACTER(LEN=*), INTENT(IN), OPTIONAL :: LEVEL     ! Level (warning, debug, or info)\n    CHARACTER(LEN=*), INTENT(IN), OPTIONAL :: SRC       ! Calling location\n!\n! !REVISION HISTORY:\n!  07 Jan 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=10)     :: LEVEL_SAFE\n    CHARACTER(LEN=255)    :: Iam\n\n    If (PRESENT(LEVEL)) Then\n        LEVEL_SAFE = To_Uppercase(LEVEL)\n    Else\n        LEVEL_SAFE = 'DEBUG'\n    End If\n    If (PRESENT(SRC)) Then\n        Iam = Trim(src)\n    Else\n        Iam = 'unknown'\n    End If\n\n#if defined( ESMF_ )\n    ! Preceded by the component name already\n    If (Level_Safe == 'INFO') Then\n        call lgr%info(   '%a~: %a', Trim(Iam), Trim(Message))\n    Else if (Level_Safe == 'DEBUG') Then\n        call lgr%debug(  '%a~: %a', Trim(Iam), Trim(Message))\n    Else\n        call lgr%warning('%a~: %a', Trim(Iam), Trim(Message))\n    End If\n#else\n    ! Print message\n    WRITE( 6, '(a15,x,a5,2a)' ) Trim(Iam), Trim(LEVEL_SAFE), ': ',Trim(MESSAGE)\n#endif\n\n  END SUBROUTINE LOG_MSG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Safe_Div\n!\n! !DESCRIPTION: Function SAFE\\_DIV performs \"safe division\", that is to\n!  prevent overflow, underlow, NaN, or infinity errors.  An alternate value\n!  is returned if the division cannot be performed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SAFE_DIV( N, D, ALT_NAN, ALT_OVER, ALT_UNDER ) &\n       RESULT( Q )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),           INTENT(IN) :: N         ! Numerator\n    REAL(fp),           INTENT(IN) :: D         ! Denominator\n    REAL(fp),           INTENT(IN) :: ALT_NAN   ! Alternate value to be\n                                                !  returned if the division\n                                                !  is either NAN (0/0) or\n                                                !  leads to overflow (i.e.,\n                                                !  a too large number)\n    REAL(fp), OPTIONAL, INTENT(IN) :: ALT_OVER  ! Alternate value to be\n                                                !  returned if the division\n                                                !  leads to overflow (default\n                                                !  is ALT_NAN)\n    REAL(fp), OPTIONAL, INTENT(IN) :: ALT_UNDER ! Alternate value to be\n                                                !  returned if the division\n                                                !  leads to underflow\n                                                !  (default is 0, but you\n                                                !  could use TINY() if you\n                                                !  want a non-zero result).\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                       :: Q         ! Output from the division\n\n!\n! !REMARKS:\n!  For more information, see the discussion on:\n!   http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/8b367f44c419fa1d/\n!\n! !REVISION HISTORY:\n!  26 Feb 2008 - P. Le Sager & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( N==0 .and. D==0 ) THEN\n\n       ! NAN\n       Q = ALT_NAN\n\n    ELSE IF ( EXPONENT(N) - EXPONENT(D) >= MAXEXPONENT(N) .OR. D==0 ) THEN\n\n       ! OVERFLOW\n       Q = ALT_NAN\n       IF ( PRESENT(ALT_OVER) ) Q = ALT_OVER\n\n    ELSE IF ( EXPONENT(N) - EXPONENT(D) <= MINEXPONENT(N) ) THEN\n\n       ! UNDERFLOW\n       Q = 0D0\n       IF ( PRESENT(ALT_UNDER) ) Q = ALT_UNDER\n\n    ELSE\n\n       ! No problem\n       Q = N / D\n\n    ENDIF\n\n  END FUNCTION SAFE_DIV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Is_Safe_Div_r4\n!\n! !DESCRIPTION: Function IS\\_SAFE\\_DIV tests for \"safe division\", that is\n!  check if the division will overflow/underflow or hold NaN.  .FALSE. is\n!  returned if the division cannot be performed.  The numerator and\n!  denominator must be 4-byte floating point.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION IS_SAFE_DIV_R4( N, D, R4 ) RESULT( F )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f4), INTENT(IN)           :: N    ! Numerator\n    REAL(f4), INTENT(IN)           :: D    ! Denominator\n    LOGICAL,  INTENT(IN), OPTIONAL :: R4   ! Logical flag to use the limits\n                                           !  of REAL*4 to define underflow\n                                           !  or overflow.  Extra defensive.\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL                        :: F    ! =F if division isn't allowed\n                                           ! =T otherwise\n!\n! !REMARKS:\n!  UnderFlow, OverFlow and NaN are tested for. If you need to\n!  differentiate between the three, use the SAFE_DIV (phs, 4/14/09)\n!\n! !REVISION HISTORY:\n!  11 Jun 2008 - P. Le Sager - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: MaxExp, MinExp\n    REAL(f4) :: RR\n\n    !==================================================================\n    ! IS_SAFE_DIV begins here!\n    !==================================================================\n\n    MaxExp = MAXEXPONENT( N )\n    MinExp = MINEXPONENT( N )\n\n    IF ( PRESENT( R4 ) ) THEN\n       IF ( R4 ) THEN\n          MaxExp = MAXEXPONENT( RR )\n          MinExp = MINEXPONENT( RR )\n       ENDIF\n    ENDIF\n\n    IF ( EXPONENT(N) - EXPONENT(D) >= MaxExp .or. D==0 .or. &\n         EXPONENT(N) - EXPONENT(D) <= MinExp  ) THEN\n       F = .FALSE.\n    ELSE\n       F = .TRUE.\n    ENDIF\n\n  END FUNCTION IS_SAFE_DIV_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Is_Safe_Div_r8\n!\n! !DESCRIPTION: Function IS\\_SAFE\\_DIV tests for \"safe division\", that is\n!  check if the division will overflow/underflow or hold NaN.  .FALSE. is\n!  returned if the division cannot be performed.  The numerator and\n!  denominator must be 4-byte floating point.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION IS_SAFE_DIV_R8( N, D, R4 ) RESULT( F )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)           :: N    ! Numerator\n    REAL(f8), INTENT(IN)           :: D    ! Denominator\n    LOGICAL,  INTENT(IN), OPTIONAL :: R4   ! Logical flag to use the limits\n                                           !  of REAL*4 to define underflow\n                                           !  or overflow.  Extra defensive.\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL                        :: F    ! =F if division isn't allowed\n                                           ! =T otherwise\n!\n! !REMARKS:\n!  UnderFlow, OverFlow and NaN are tested for. If you need to\n!  differentiate between the three, use the SAFE_DIV (phs, 4/14/09)\n!\n! !REVISION HISTORY:\n!  11 Jun 2008 - P. Le Sager - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: MaxExp, MinExp\n    REAL(f4) :: RR\n\n    !==================================================================\n    ! IS_SAFE_DIV begins here!\n    !==================================================================\n\n    MaxExp = MAXEXPONENT( N )\n    MinExp = MINEXPONENT( N )\n\n    IF ( PRESENT( R4 ) ) THEN\n       IF ( R4 ) THEN\n          MaxExp = MAXEXPONENT( RR )\n          MinExp = MINEXPONENT( RR )\n       ENDIF\n    ENDIF\n\n    IF ( EXPONENT(N) - EXPONENT(D) >= MaxExp .or. D==0 .or. &\n         EXPONENT(N) - EXPONENT(D) <= MinExp  ) THEN\n       F = .FALSE.\n    ELSE\n       F = .TRUE.\n    ENDIF\n\n  END FUNCTION IS_SAFE_DIV_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Safe_Exp\n!\n! !DESCRIPTION: Function SAFE\\_EXP performs a \"safe exponential\", that is to\n!  prevent overflow, underlow, NaN, or infinity errors when taking the\n!  value EXP( x ).  An alternate value is returned if the exponential\n!  cannot be performed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SAFE_EXP( X, ALT ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X      ! Argument of EXP\n    REAL(fp), INTENT(IN) :: ALT    ! Alternate value to be returned\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: VALUE  ! Output from the exponential\n!\n! !REVISION HISTORY:\n!  04 Jan 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( IS_SAFE_EXP( X ) ) THEN\n       VALUE = EXP( X )\n    ELSE\n       VALUE = ALT\n    ENDIF\n\n  END FUNCTION SAFE_EXP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Is_Safe_Exp\n!\n! !DESCRIPTION: Function IS\\_SAFE\\_EXP returns TRUE if it is safe to take\n!  the value EXP( x ) without encountering a floating point exception.  FALSE\n!  is returned if the exponential cannot be performed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION IS_SAFE_EXP( X ) RESULT( F )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X    ! Argument to the exponential function\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL              :: F    ! =F if exponential isn't allowed\n                                 ! =T otherwise\n!\n! !REMARKS:\n!  Empirical testing has revealed that -600 < X < 600 will not result in\n!  a floating-point exception on Sun and IFORT compilers.  This is good\n!  enough for most purposes.\n!\n! !REVISION HISTORY:\n!  04 Jan 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n#if defined( USE_REAL8 )\n    REAL(fp), PARAMETER :: CUTOFF = 600e+0_fp\n#else\n    REAL(fp), PARAMETER :: CUTOFF = 75e+0_fp\n#endif\n\n    ! If -CUTOFF < x < CUTOFF, then it is safe to take EXP( x )\n    F = ( ABS( X ) < CUTOFF )\n\n  END FUNCTION IS_SAFE_EXP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Safe_Log\n!\n! !DESCRIPTION: Function SAFE\\_LOG performs a \"safe natural logarithm\", that\n!  is to prevent overflow, underlow, NaN, or infinity errors when taking the\n!  value LOG( x ).  An alternate value is returned if the logarithm\n!  cannot be performed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SAFE_LOG( X, ALT ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X      ! Argument of LOG\n    REAL(fp), INTENT(IN) :: ALT    ! Alternate value to be returned\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: VALUE  ! Output from the natural logarithm\n!\n! !REVISION HISTORY:\n!  04 Jan 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( X > 0e+0_fp ) THEN\n       VALUE = LOG( X )          ! Take LOG(x) for positive-definite X\n    ELSE\n       VALUE = ALT               ! Otherwise return alternate value\n    ENDIF\n\n  END FUNCTION SAFE_LOG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Safe_Log10\n!\n! !DESCRIPTION: Function SAFE\\_LOG10 performs a \"safe log10\", that\n!  is to prevent overflow, underlow, NaN, or infinity errors when taking the\n!  value LOG10( x ).  An alternate value is returned if the logarithm\n!  cannot be performed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SAFE_LOG10( X, ALT ) RESULT( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: X      ! Argument of LOG10\n    REAL(fp), INTENT(IN) :: ALT    ! Alternate value to be returned\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: VALUE  ! Output from the natural logarithm\n!\n! !REVISION HISTORY:\n!  04 Jan 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( X > 0e+0_fp ) THEN\n       VALUE = LOG10( X )        ! Take LOG10(x) for positive-definite X\n    ELSE\n       VALUE = ALT               ! Otherwise return alternate value\n    ENDIF\n\n  END FUNCTION SAFE_LOG10\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Error\n!\n! !DESCRIPTION: Subroutine INIT\\_ERROR stores shadow copies of am\\_I\\_Root\n!  and Input\\_Opt.  We need store shadow copies of these variables within\n!  error\\_mod.F90 to compensate for the removal of logical\\_mod.F from\n!  GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_ERROR( Input_Opt, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN), TARGET :: Input_Opt ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)        :: RC        ! Success or failure?\n!\n! !REMARKS:\n!  Instead of making a copy of Input_Opt, we use a pointer reference.\n!  This should be more efficient memory-wise.\n!\n! !REVISION HISTORY:\n!  04 Jan 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Assume success\n    RC               =  GC_SUCCESS\n\n    ! Store a shadow copy of am_I_Root\n    SHADOW_am_I_Root =  Input_Opt%amIRoot\n\n    ! Store a shadow copy of Input_Opt (point to it instead of copying)\n    SHADOW_Input_Opt => Input_Opt\n\n#if defined( ESMF_ )\n    lgr => Input_Opt%lgr\n    compname = Input_Opt%CompName\n#endif\n\n  END SUBROUTINE INIT_ERROR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Error\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_ERROR finalizes all module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_ERROR()\n!\n! !REVISION HISTORY:\n!  04 Jan 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Free the pointer to Input_Opt\n    NULLIFY( SHADOW_Input_Opt )\n#if defined( ESMF_ )\n    NULLIFY( lgr )\n#endif\n\n  END SUBROUTINE CLEANUP_ERROR\n!EOC\nEND MODULE ERROR_MOD\n"
  },
  {
    "path": "GeosUtil/file_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: file_mod.F90\n!\n! !DESCRIPTION: Module FILE\\_MOD contains file unit numbers, as well as file\n!  I/O routines for GEOS-Chem.  FILE\\_MOD keeps all of the I/O unit numbers\n!  in a single location for convenient access.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE FILE_MOD\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !DEFINED PARAMETERS:\n!\n  !----------------------------------------------------------------\n  ! In the GEOS ESM, the unit numbers cannot be PARAMETERs.\n  ! Instead,  use INQUIREs to find open LUNs at the point of\n  ! request.  References to most IU_* variables have now been\n  ! made local.\n  !----------------------------------------------------------------\n\n  ! Logical file unit numbers for ...\n  INTEGER, PUBLIC :: IU_FILE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CLOSE_FILES\n  PUBLIC  :: FILE_EXISTS\n  PUBLIC  :: IOERROR\n\n  INTERFACE FILE_EXISTS\n     MODULE PROCEDURE FILE_EX_C\n     MODULE PROCEDURE FILE_EX_I\n  END INTERFACE FILE_EXISTS\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: FILE_EX_C\n  PRIVATE :: FILE_EX_I\n!\n! !REVISION HISTORY:\n! See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: IoError\n!\n! !DESCRIPTION: Subroutine IOERROR prints out I/O error messages.\n!  The error number, file unit, location, and a brief description will\n!  be printed, and program execution will be halted. (bmy, 5/28/99, 7/4/09)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE IOERROR( ERROR_NUM, UNIT, LOCATION )\n!\n! !USES:\n!\n    USE ERROR_MOD, ONLY : GEOS_CHEM_STOP\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: ERROR_NUM  ! I/O error from IOSTAT\n    INTEGER,          INTENT(IN) :: UNIT       ! Logical unit # for file\n    CHARACTER(LEN=*), INTENT(IN) :: LOCATION   ! Descriptive message\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=10)            :: ERROR_NUMSTR\n    CHARACTER(LEN=255)           :: ERROR_MSG\n    CHARACTER(LEN=255)           :: EXPLAIN_CMD\n\n    ! External functions\n    CHARACTER(LEN=255), EXTERNAL :: GERROR, IFORT_ERRMSG\n\n    !=================================================================\n    ! IOERROR begins here!\n    !=================================================================\n\n    ! Fancy output\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    ! Write error number, unit, location\n    WRITE( 6, 110 ) ERROR_NUM, UNIT, TRIM( LOCATION )\n110 FORMAT( 'GEOS-CHEM I/O ERROR ', i5, ' in file unit ', i5, /, &\n            'Encountered at routine:location ', a )\n\n#ifdef LINUX_IFORT\n    !=================================================================\n    ! For LINUX platform w/ IFORT v8/v9 compiler:\n    ! Call IFORT_ERRMSG to get the error number and message\n    !=================================================================\n\n    ! Get an error msg corresponding to this error number\n    ERROR_MSG = IFORT_ERRMSG( ERROR_NUM )\n\n    ! Print error message to std output\n    WRITE( 6, 120 ) ERROR_NUM, TRIM( ERROR_MSG )\n120 FORMAT( /, 'Error ', i4, ': ', a )\n#endif\n\n    ! Fancy output\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    ! Deallocate arrays and stop safely\n    CALL GEOS_CHEM_STOP\n\n  END SUBROUTINE IOERROR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: File_Ex_C\n!\n! !DESCRIPTION: Function FILE\\_EX\\_C returns TRUE if FILENAME exists or FALSE\n!  otherwise.  This is handled in a platform-independent way.  The argument\n!  is of CHARACTER type.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION FILE_EX_C( FILENAME ) RESULT( IT_EXISTS )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: FILENAME   ! Name of file or dir to test\n!\n! !RETURN VALUE:\n!\n    LOGICAL                      :: IT_EXISTS  ! =T if the file/dir exists\n!\n! !REMARKS:\n!  This routine is overloaded by public interface FILE_EXISTS.\n!\n! !REVISION HISTORY:\n!  23 Mar 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Test whether directory exists w/ F90 INQUIRE function\n    INQUIRE( FILE=TRIM( FILENAME ), EXIST=IT_EXISTS )\n\n#ifdef LINUX_IFORT\n    ! Intel IFORT v9 compiler requires use of the DIRECTORY keyword to \n    ! INQUIRE for checking existence of directories.  (bmy, 11/2/05)\n    IF ( .not. IT_EXISTS ) THEN\n       INQUIRE( DIRECTORY=TRIM( FILENAME ), EXIST=IT_EXISTS )\n    ENDIF\n#endif\n\n  END FUNCTION FILE_EX_C\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: File_Ex_I\n!\n! !DESCRIPTION: Function FILE\\_EX\\_I returns TRUE if FILENAME exists or FALSE\n!  otherwise.  This is handled in a platform-independent way.  The argument\n!  is of INTEGER type.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION FILE_EX_I( IUNIT ) RESULT( IT_EXISTS )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: IUNIT      ! LUN of file to be tested\n!\n! !RETURN VALUE:\n!\n    LOGICAL             :: IT_EXISTS  ! =T if the file/dir exists\n!\n! !REMARKS:\n!  This routine is overloaded by public interface FILE_EXISTS.\n!\n! !REVISION HISTORY:\n!  23 Mar 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Test whether file unit exists w/ F90 INQUIRE function\n    INQUIRE( IUNIT, EXIST=IT_EXISTS )\n\n  END FUNCTION FILE_EX_I\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Close_Files\n!\n! !DESCRIPTION: Subroutine CLOSE\\_FILES closes files used by GEOS-Chem.  This\n!  should be called only from the end of the \"main.f\" program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLOSE_FILES\n!\n! !REVISION HISTORY:\n!  04 Mar 1998 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    CLOSE( IU_FILE    )\n\n  END SUBROUTINE CLOSE_FILES\n!EOC\nEND MODULE FILE_MOD\n"
  },
  {
    "path": "GeosUtil/gc_grid_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: gc_grid_mod.F90\n!\n! !DESCRIPTION: Module GC\\_GRID\\_MOD contains variables and routines which are\n!  used to specify the parameters of a GEOS-Chem horizontal grid. Grid\n!  parameters are computed as 3D arrays, which are required for interfacing\n!  with a GCM.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GC_Grid_Mod\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Error_Mod\n  USE Precision_Mod\n  USE PhysConstants\n  USE Registry_Mod,   ONLY : MetaRegItem\n  USE State_Grid_Mod, ONLY : GrdState\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n  PUBLIC  :: Compute_Grid\n  PUBLIC  :: Compute_Scaled_Grid\n#endif\n  PUBLIC  :: GET_IJ\n  PUBLIC  :: SetGridFromCtr\n#if defined ( MODEL_WRF ) || defined( MODEL_CESM )\n  PUBLIC  :: SetGridFromCtrEdges\n#endif\n!\n! !REVISION HISTORY:\n!  23 Feb 2012 - R. Yantosca - Initial version, based on grid_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\nCONTAINS\n!EOC\n#if !(defined( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING ))\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_Grid\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_GRID initializes the longitude, latitude,\n!  and surface area arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Grid( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt         ! Input Options\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid        ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC                ! Success/failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  22 May 2019 - M. Sulprizio- Initial version: Consolidated Compute_Grid and\n!                              DoGridComputation into single routine that\n!                              computes fields in State_Grid.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL  :: is_GMAO\n    INTEGER  :: I, J, L, IG, JG\n    REAL(fp) :: YEDGE_VAL, YSIN_VAL\n    REAL(fp) :: SIN_N, SIN_S, SIN_DIFF\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !======================================================================\n    ! Initialization\n    !======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n    ThisLoc = 'Compute_Grid (gc_grid_mod.F90)'\n\n    !======================================================================\n    ! Vertical Grid\n    !======================================================================\n\n    ! Set a flag to denote if this is a GMAO met field\n    ! and also determine the native vertical resolution\n    SELECT CASE( TRIM( Input_Opt%MetField ) )\n\n       ! GMAO met fields\n       CASE( 'GEOSFP', 'GEOSIT', 'MERRA2' )\n          is_GMAO             = .TRUE.\n          State_Grid%NativeNZ = 72\n\n       CASE( 'MODELE2.1' )\n          is_GMAO             = .FALSE.\n          State_Grid%NativeNZ = 102\n\n       CASE DEFAULT\n          ErrMsg = 'Met field ' // TRIM( Input_Opt%MetField ) // ' does ' // &\n                   'not have State_Grid%NativeNZ defined.  Please add '   // &\n                   'this definition in GeosUtil/gc_grid_mod.F90.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n\n    END SELECT\n\n    !======================================================================\n    ! Global Horizontal Grid\n    !\n    ! First, we need to compute the XMid and YMid values on the global\n    ! grid at the specified resolution to that we can compute X and Y\n    ! offsets.\n    !======================================================================\n\n    ! Compute number of grid boxes on global grid\n    State_Grid%GlobalNX =   360.0_fp / State_Grid%DX\n    IF ( State_Grid%HalfPolar .or. is_GMAO ) THEN\n       State_Grid%GlobalNY = ( 180.0_fp / State_Grid%DY ) + 1\n    ELSE\n       State_Grid%GlobalNY = ( 180.0_fp / State_Grid%DY )\n    ENDIF\n\n    !----------------------------------------------------------------------\n    ! Calculate grid box centers on global grid\n    !----------------------------------------------------------------------\n\n    ! Allocate arrays\n    ALLOCATE( State_Grid%GlobalXMid(State_Grid%GlobalNX,State_Grid%GlobalNY),&\n              STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%GlobalXMid', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%GlobalXMid = 0e+0_fp\n\n    ALLOCATE( State_Grid%GlobalYMid(State_Grid%GlobalNX,State_Grid%GlobalNY),&\n              STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%GlobalYMid', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%GlobalYMid = 0e+0_fp\n\n    ALLOCATE( State_Grid%GlobalXEdge(State_Grid%GlobalNX+1,State_Grid%GlobalNY),&\n              STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%GlobalXEdge', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%GlobalXEdge = 0e+0_fp\n\n    ALLOCATE( State_Grid%GlobalYEdge(State_Grid%GlobalNX,State_Grid%GlobalNY+1),&\n              STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%GlobalYEdge', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%GlobalYEdge = 0e+0_fp\n\n    !======================================================================\n    ! Global Horizontal Grid: Edges\n    !======================================================================\n    DO J = 1, State_Grid%GlobalNY\n    DO I = 1, State_Grid%GlobalNX\n\n       ! Latitude edges\n       IF ( J == 1 ) THEN\n\n          ! South Pole\n          State_Grid%GlobalYEdge(I,J) = -90.0_fp\n\n       ELSE\n\n          IF ( State_Grid%HalfPolar .or. is_GMAO ) THEN\n             State_Grid%GlobalYEdge(I,J) = -90.0_fp                          &\n                                         - ( State_Grid%DY * 0.5_fp    )     &\n                                         + ( State_Grid%DY * ( J - 1 ) )\n          ELSE\n             State_Grid%GlobalYEdge(I,J) = -90.0_fp                          &\n                                         + ( State_Grid%DY * ( J - 1 ) )\n          ENDIF\n\n          IF ( J == State_Grid%GlobalNY ) THEN\n\n             ! North pole\n             State_Grid%GlobalYEdge(I,J+1) = +90.0_fp\n\n          ENDIF\n\n       ENDIF\n\n       ! Longitude edges\n       IF ( I == 1 ) THEN\n\n          IF ( State_Grid%Center180 ) THEN\n             State_Grid%GlobalXEdge(I,J) = -180.0_fp                         &\n                                         - ( State_Grid%DX * 0.5_fp )\n          ELSE\n             State_Grid%GlobalXEdge(I,J) = -180.0_fp\n          ENDIF\n\n       ELSE\n\n          State_Grid%GlobalXEdge(I,J) = State_Grid%GlobalXEdge(1,J)          &\n                                      + ( State_Grid%DX * ( I - 1 ) )\n\n          IF ( I == State_Grid%GlobalNX ) THEN\n             State_Grid%GlobalXEdge(I+1,J) = State_Grid%GlobalXEdge(1,J)     &\n                                           + 360.0_fp\n          ENDIF\n\n       ENDIF\n\n    ENDDO\n    ENDDO\n\n    !======================================================================\n    ! Global Horizontal Grid: Centers\n    !======================================================================\n    DO J = 1, State_Grid%GlobalNY\n    DO I = 1, State_Grid%GlobalNX\n\n       ! Latitude centers\n       State_Grid%GlobalYMid(I,J) = 0.5_fp *                                 &\n            ( State_Grid%GlobalYEdge(I,J) + State_Grid%GlobalYEdge(I,J+1) )\n\n       ! Longitude centers\n       State_Grid%GlobalXMid(I,J) = 0.5_fp *                                 &\n            ( State_Grid%GlobalXEdge(I,J) + State_Grid%GlobalXEdge(I+1,J) )\n\n    ENDDO\n    ENDDO\n\n    !======================================================================\n    ! User-defined Horizontal Grid\n    !======================================================================\n\n    ! Determine X offsets based on global grid\n    DO I = 1, State_Grid%GlobalNX\n       IF ( State_Grid%GlobalXMid(I,1) >= State_Grid%XMin ) THEN\n          State_Grid%XMinOffset = I - 1\n          EXIT\n       ENDIF\n    ENDDO\n    DO I = State_Grid%GlobalNX, 1, -1\n       IF ( State_Grid%GlobalXMid(I,1) <= State_Grid%XMax ) THEN\n          State_Grid%XMaxOffset = I - 1\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Determine Y offsets based on global grid\n    DO J = 1, State_Grid%GlobalNY\n       IF ( State_Grid%GlobalYMid(1,J) >= State_Grid%YMin ) THEN\n          State_Grid%YMinOffset = J - 1\n          EXIT\n       ENDIF\n    ENDDO\n    DO J = State_Grid%GlobalNY, 1, -1\n       IF ( State_Grid%GlobalYMid(1,J) <= State_Grid%YMax ) THEN\n          State_Grid%YMaxOffset = J - 1\n          EXIT\n       ENDIF\n    ENDDO\n\n    !----------------------------------------------------------------------\n    ! Calculate grid box centers and edges on global grid\n    !----------------------------------------------------------------------\n\n    ! Loop over horizontal grid\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Index value for user-defined grid on the global grid\n       IG = I + State_Grid%XMinOffset\n       JG = J + State_Grid%YMinOffset\n\n       !--------------------------------\n       ! Longitude centers [degrees]\n       !--------------------------------\n       State_Grid%XMid(I,J) = State_Grid%GlobalXMid( IG, JG )\n\n       !--------------------------------\n       ! Longitude edges [degrees]\n       !--------------------------------\n       State_Grid%XEdge(I,J) = State_Grid%GlobalXEdge( IG, JG )\n\n       ! Compute the last longitude edge\n       IF ( I == State_Grid%NX ) THEN\n          State_Grid%XEdge(I+1,J) = State_Grid%GlobalXEdge(IG+1,J)\n       ENDIF\n\n       !--------------------------------\n       ! Latitude centers [degrees]\n       !--------------------------------\n       State_Grid%YMid(I,J) = State_Grid%GlobalYMid( IG, JG )\n\n       !--------------------------------\n       ! Latitude centers [radians]\n       !--------------------------------\n       State_Grid%YMid_R(I,J) = ( PI_180 * State_Grid%YMid(I,J)  )\n\n       !-----------------------------------------\n       ! Latitude edges [degrees; rad; sin(lat)]\n       !-----------------------------------------\n       State_Grid%YEdge(I,J)   = State_Grid%GlobalYEdge( IG, JG )\n       State_Grid%YEdge_R(I,J) = ( PI_180  * State_Grid%YEdge(I,J) )\n       State_Grid%YSIN(I,J)    = SIN( State_Grid%YEdge_R(I,J) )\n\n       ! Compute the last latitude edge\n       IF ( J == State_Grid%NY ) THEN\n          State_Grid%YEdge(I,J+1)   = State_Grid%GlobalYEdge(I,JG+1)\n          State_Grid%YEdge_R(I,J+1) = ( PI_180  * State_Grid%YEdge(I,J+1) )\n          State_Grid%YSIN(I,J+1)    = SIN( State_Grid%YEdge_R(I,J+1) )\n       ENDIF\n\n    ENDDO\n    ENDDO\n\n    !======================================================================\n    ! Compute grid box surface areas\n    !\n    ! The surface area of a grid box is derived as follows:\n    !\n    !    Area = dx * dy\n    !\n    ! Where:\n    !\n    !    dx is the arc length of the box in longitude\n    !    dy is the arc length of the box in latitude\n    !\n    ! Which are computed as:\n    !\n    !    dx = r * delta-longitude\n    !       = ( Re * cos[ YMID[J] ] ) * ( 2 * PI / IIIPAR )\n    !\n    !    dy = r * delta-latitude\n    !       = Re * ( YEDGE[J+1] - YEDGE[J] )\n    !\n    ! Where:\n    !\n    !    Re         is the radius of the earth\n    !    YMID[J]    is the latitude at the center of box J\n    !    YEDGE[J+1] is the latitude at the N. Edge of box J\n    !    YEDGE[J]   is the latitude at the S. Edge of box J\n    !\n    ! So, the surface area is thus:\n    !\n    !    Area = ( Re * cos( YMID[J] ) * ( 2 * PI / IIIPAR ) *\n    !             Re * ( YEDGE[J+1] - YEDGE[J] )\n    !\n    !    2*PI*Re^2    {                                            }\n    ! = ----------- * { cos( YMID[J] ) * ( YEDGE[J+1] - YEDGE[J] ) }\n    !     IIIPAR      {                                            }\n    !\n    ! And, by using the trigonometric identity:\n    !\n    !    d sin(x) = cos x * dx\n    !\n    ! The following term:\n    !\n    !    cos( YMID[J] ) * ( YEDGE[J+1] - YEDGE[J] )\n    !\n    ! May also be written as a difference of sines:\n    !\n    !    sin( YEDGE[J+1] ) - sin( YEDGE[J] )\n    !\n    ! So the final formula for surface area of a grid box is:\n    !\n    !            2*PI*Re^2    {                                     }\n    !    Area = ----------- * { sin( YEDGE[J+1] ) - sin( YEDGE[J] ) }\n    !              IIIPAR     {                                     }\n    !\n    !\n    ! NOTES:\n    ! (1) The formula with sines is more numerically stable, and will\n    !      yield identical global total surface areas for all grids.\n    ! (2) The units are determined by the radius of the earth Re.\n    !      if you use Re [m], then surface area will be in [m2], or\n    !      if you use Re [cm], then surface area will be in [cm2], etc.\n    ! (3) The grid box surface areas only depend on latitude, as they\n    !      are symmetric in longitude.  To compute the global surface\n    !      area, multiply the surface area arrays below by the number\n    !      of longitudes (e.g. IIIPAR).\n    ! (4) At present, assumes that GEOS-Chem will work on a\n    !      Cartesian grid.\n    !\n    ! (bmy, 4/20/06, 2/24/12)\n    !======================================================================\n\n    ! Loop over horizontal grid\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Sine of latitudes at N and S edges of grid box (I,J)\n       SIN_N = SIN( State_Grid%YEdge_R(I,J+1) )\n       SIN_S = SIN( State_Grid%YEdge_R(I,J  ) )\n\n       ! Difference of sin(latitude) at N and S edges of grid box\n       SIN_DIFF = SIN_N - SIN_S\n\n       ! Grid box surface areas [m2]\n       State_Grid%Area_M2(I,J) = ( State_Grid%DX * PI_180 ) * &\n                                   ( Re**2 ) * SIN_DIFF\n\n#ifdef LUO_WETDEP\n       State_Grid%DXSN_M(I,J) = Re *                                         &\n             ACOS( SIN( State_Grid%YMid(I,J)    * PI_180 ) *                 &\n                   SIN( State_Grid%YMid(I,J)    * PI_180 ) +                 &\n                   COS( State_Grid%YMid(I,J)    * PI_180 ) *                 &\n                   COS( State_Grid%YMid(I,J)    * PI_180 ) *                 &\n                   COS( State_Grid%XEdge(I+1,J) * PI_180   -                 &\n                        State_Grid%XEdge(I,J)   * PI_180) )\n\n       State_Grid%DYWE_M(I,J) = Re *                                         &\n             ACOS( SIN( State_Grid%YEdge_R(I,J  ) ) *                        &\n                   SIN( State_Grid%YEdge_R(I,J+1) ) +                        &\n                   COS( State_Grid%YEdge_R(I,J  ) ) *                        &\n                   COS( State_Grid%YEdge_R(I,J+1) ) *                        &\n                   COS( State_Grid%XMid(I,J)        * PI_180 -               &\n                        State_Grid%XMid(I,J)        * PI_180 ) )\n#endif\n\n    ENDDO\n    ENDDO\n\n    ! Return successfully\n    RC = GC_SUCCESS\n\n    !======================================================================\n    ! Echo info to stdout\n    !======================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''%%%%%%%%%%%%%%% GLOBAL GRID %%%%%%%%%%%%%%%'')' )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''Grid box longitude centers [degrees]: '')' )\n       WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid%GlobalXMid(I,1), &\n                                    I=1,State_Grid%GlobalNX )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''Grid box latitude centers [degrees]: '')' )\n       WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid%GlobalYMid(1,J), &\n                                    J=1,State_Grid%GlobalNY )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''%%%%%%%%%%%% USER-DEFINED GRID %%%%%%%%%%%%'')' )\n       WRITE( 6, '(a)' )\n       WRITE( 6, * ) ' XMinOffset : ', State_Grid%XMinOffset\n       WRITE( 6, * ) ' XMaxOffset : ', State_Grid%XMaxOffset\n       WRITE( 6, * ) ' YMinOffset : ', State_Grid%YMinOffset\n       WRITE( 6, * ) ' YMaxOffset : ', State_Grid%YMaxOffset\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''Grid box longitude centers [degrees]: '')' )\n       WRITE( 6, '(7(f10.5,1x))') ( State_Grid%XMid(I,1), I=1,State_Grid%NX )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''Grid box longitude edges [degrees]: '')' )\n       WRITE( 6, '(7(f10.5,1x))') ( State_Grid%XEdge(I,1), I=1,State_Grid%NX+1 )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''Grid box latitude centers [degrees]: '')' )\n       WRITE( 6, '(7(f10.5,1x))') ( State_Grid%YMid(1,J), J=1,State_Grid%NY )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''Grid box latitude edges [degrees]: '')' )\n       WRITE( 6, '(7(f10.5,1x))') ( State_Grid%YEdge(1,J), J=1,State_Grid%NY+1 )\n       WRITE( 6, '(a)' )\n       WRITE( 6, '(''SIN( grid box latitude edges )'')' )\n       WRITE( 6, '(7(f10.5,1x))') ( State_Grid%YSIN(1,J), J=1,State_Grid%NY+1 )\n    ENDIF\n\n  END SUBROUTINE Compute_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_Scaled_Grid\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_SCALED\\_GRID populates a secondary Grid\n!  State object (\"Destination\") by performing a linear scaling refinement\n!  of the primary (\"Source\") Grid. e.g. a scale of 2 will yield\n!  2 x 2.5 -> 1 x 1.25.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Scaled_Grid( Input_Opt, State_Grid, State_Grid_Dst,      &\n                                  XScale,    YScale,      RC                 )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : Init_State_Grid, Allocate_State_Grid\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt       ! Input Options\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN   ) :: State_Grid      ! Grid State object, orig\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid_Dst  ! Grid State object, scaled\n    INTEGER,        INTENT(IN   ) :: XScale          ! Long dim scale (>=1)\n    INTEGER,        INTENT(IN   ) :: YScale          ! Lat  dim scale (>=1)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC                ! Success/failure?\n!\n! !REMARKS:\n!  Unlike Compute_Grid, Compute_Scaled_Grid takes care of allocating\n!  the State_Grid_Dst derived type object.\n!  Only works with rectilinear lat-lon (assumptions given)\n!\n! !REVISION HISTORY:\n!  15 Jun 2020 - H.P. Lin    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                       :: I, J, L, II, JJ\n    REAL(fp)                      :: delta\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    ! Code begins here!\n    RC = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Compute_Scaled_Grid (in module GeosUtil/gc_grid_mod.F90)'\n\n    ! Verify the scales are correct\n    IF ( XScale .lt. 1 .or. YScale .lt. 1 ) THEN\n      RC = GC_FAILURE\n      ErrMsg = 'Cannot scale Compute_Scaled_Grid to a negative factor!'\n      CALL GC_Error( ErrMsg, RC, ThisLoc )\n    ENDIF\n\n    ! Initialize the destination object for safety sake\n    CALL Init_State_Grid ( Input_Opt, State_Grid_Dst, RC )\n\n    ! First, copy generic properties of the grid state information\n    State_Grid_Dst%HalfPolar  = State_Grid%HalfPolar\n    State_Grid_Dst%NestedGrid = State_Grid%NestedGrid\n\n    ! The vertical direction is NOT scaled!\n    State_Grid_Dst%NZ   = State_Grid%NZ\n\n    ! Compute the scaling. First NX, NY will be x number the scaled grid boxes\n    State_Grid_Dst%NX   = State_Grid%NX * XScale\n    State_Grid_Dst%NY   = State_Grid%NY * YScale\n\n    State_Grid_Dst%XMin = State_Grid%XMin\n    State_Grid_Dst%XMax = State_Grid%XMax\n    State_Grid_Dst%YMin = State_Grid%YMin\n    State_Grid_Dst%YMax = State_Grid%YMax\n\n    ! The delta is also divided. Note however that the polar boxes\n    ! will also be evenly divided so you may have more than 1 1/2-sized polar box.\n    !\n    ! LATITUDE EDGES example:\n    !   [deg_Src]                   [deg_Dst]\n    !    90.0                        90.0\n    !                                89.5*   * additional polar edge\n    !    89.0                        89.0\n    !                                88.0\n    !    87.0                        87.0\n    !     ...  in 2x2.5 grid          ...  in 1xLon grid (2x scaling)\n    State_Grid_Dst%DX   = State_Grid%DX / XScale\n    State_Grid_Dst%DY   = State_Grid%DY / YScale\n\n    ! Now, allocate the derived type object as we have NX, NY and NZ now!\n    CALL Allocate_State_Grid ( Input_Opt, State_Grid_Dst, RC )\n\n    IF ( Input_Opt%amIRoot ) THEN\n      WRITE(6,*) \"GC_GRID_MOD: Scaled grid NX, NY, DX, DY\", State_Grid_Dst%NX, State_Grid_Dst%NY, &\n                 State_Grid_Dst%DX, State_Grid_Dst%DY\n    ENDIF\n\n    ! Now, fill in the appropriate fields. Note that we do not fill\n    ! all available fields in State_Grid, only the ones that are used\n    ! by HEMCO for now. This is just to save development time (hplin, 6/15/20) <-- person to blame\n    ! XMid, YMid, XEdge, YEdge, YSin, Area_M2\n\n    ! First, construct the edges. The end goals is that the edges\n    ! of the destination grid will be equal as the original grid, plus the refined edges.\n    ! So, fill in the original edges, then interpolate\n    DO I = 1, State_Grid%NX+1         ! For each original longitude EDGE...\n      II = 1 + XScale * (I - 1)\n      State_Grid_Dst%XEdge(II,:) = State_Grid%XEdge(I,1)\n\n      ! Fill in the gaps above, except if there isnt one\n      IF ( II .lt. State_Grid_Dst%NX ) THEN\n        Delta = (State_Grid%XEdge(I+1,1) - State_Grid%XEdge(I,1)) / XScale\n        DO JJ = 1, XScale\n          State_Grid_Dst%XEdge(II+JJ,:) = State_Grid_Dst%XEdge(II,:) + Delta * JJ\n        ENDDO\n      ENDIF\n    ENDDO\n\n    ! For latitude, do the same\n    DO I = 1, State_Grid%NY+1\n      II = 1 + YScale * (I - 1)\n      State_Grid_Dst%YEdge(:,II) = State_Grid%YEdge(1,I)\n\n      ! Fill in the gaps above, except if there isnt one\n      IF ( II .lt. State_Grid_Dst%NY ) THEN\n        Delta = (State_Grid%YEdge(1,I+1) - State_Grid%YEdge(1,I)) / YScale\n        DO JJ = 1, YScale\n          State_Grid_Dst%YEdge(:,II+JJ) = State_Grid_Dst%YEdge(:,II) + Delta * JJ\n        ENDDO\n      ENDIF\n    ENDDO\n\n    DO J = 1, State_Grid_Dst%NY+1   ! Including edges!\n    DO I = 1, State_Grid_Dst%NX\n      State_Grid_Dst%YEdge_R(I,J) = ( PI_180 * State_Grid_Dst%YEdge(I,J) )\n      State_Grid_Dst%YSIN(I,J) = SIN( State_Grid_Dst%YEdge_R(I,J) )\n    ENDDO\n    ENDDO\n\n    ! Compute surface areas and midpoints\n    DO J = 1, State_Grid_Dst%NY\n    DO I = 1, State_Grid_Dst%NX\n      State_Grid_Dst%XMid(I,J) = (State_Grid_Dst%XEdge(I,J) + State_Grid_Dst%XEdge(I+1,J)) / 2.0\n      State_Grid_Dst%YMid(I,J) = (State_Grid_Dst%YEdge(I,J) + State_Grid_Dst%YEdge(I,J+1)) / 2.0\n\n      ! Grid box surface areas [m2]\n      State_Grid_Dst%Area_M2(I,J) = ( State_Grid_Dst%DX * PI_180 ) * ( Re**2 ) * &\n                                    ( SIN( State_Grid_Dst%YEdge_R(I,J+1) ) - SIN( State_Grid_Dst%YEdge_R(I,J  ) ))\n    ENDDO\n    ENDDO\n\n    IF ( Input_Opt%amIRoot ) THEN\n      WRITE( 6, '(''%%%%%%%%%%%%%%% SCALED (HEMCO) GRID %%%%%%%%%%%%%%%'')' )\n      WRITE( 6, '(''Grid box longitude centers [degrees]: '')' )\n      WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid_Dst%XMid(I,1), I=1,State_Grid_Dst%NX )\n      WRITE( 6, '(a)' )\n      WRITE( 6, '(''Grid box longitude edges [degrees]: '')' )\n      WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid_Dst%XEdge(I,1), I=1,State_Grid_Dst%NX+1 )\n      WRITE( 6, '(a)' )\n      WRITE( 6, '(''Grid box latitude centers [degrees]: '')' )\n      WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid_Dst%YMid(1,J), J=1,State_Grid_Dst%NY )\n      WRITE( 6, '(a)' )\n      WRITE( 6, '(''Grid box latitude edges [degrees]: '')' )\n      WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid_Dst%YEdge(1,J), J=1,State_Grid_Dst%NY+1 )\n      WRITE( 6, '(a)' )\n      WRITE( 6, '(''SIN( grid box latitude edges )'')' )\n      WRITE( 6, '(7(f10.5,1x))' ) ( State_Grid_Dst%YSIN(1,J), J=1,State_Grid_Dst%NY+1 )\n    ENDIF\n  END SUBROUTINE Compute_Scaled_Grid\n!EOC\n#endif\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SetGridFromCtr\n!\n! !DESCRIPTION: Subroutine SetGridFromCtr sets the grid based upon the passed\n! mid-points. This routine is primarily intented to provide an interface to\n! GEOS-5 in an ESMF-environment.\n!\\\\\n!\\\\\n! This routine does not update the grid box areas (AREA\\_M2) of grid\\_mod.F90.\n! These need to be updated manually. We cannot do this within this routine\n! since in GEOS-5, the grid box areas are not yet available during the\n! initialization phase (they are imported from superdynamics).\n! !INTERFACE:\n!\n  SUBROUTINE SetGridFromCtr( Input_Opt, State_Grid, lonCtr, latCtr, RC )\n!\n! USES\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Roundoff_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt      ! Input Options object\n    REAL(f4),       INTENT(IN)    :: lonCtr(:,:)    ! Lon ctrs [rad]\n    REAL(f4),       INTENT(IN)    :: latCtr(:,:)    ! Lat ctrs [rad]\n    TYPE(GrdState), INTENT(IN)    :: State_Grid     ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC\n!\n! !REVISION HISTORY:\n!  02 Jan 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: I, J\n    REAL(fp)           :: YEDGE_VAL, YSIN_VAL, TMP\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !======================================================================\n    ! SetGridFromCtr begins here!\n    !======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at SetGridFromCtr (in module GeosUtil/gc_grid_mod.F90)'\n\n    ! Loop over all grid boxes\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Mid points: get directly from passed value\n       State_Grid%XMid(I,J)   = RoundOff( lonCtr(I,J) / PI_180, 4 )\n       State_Grid%YMid(I,J)   = RoundOff( latCtr(I,J) / PI_180, 4 )\n       State_Grid%YMid_R(I,J) = State_Grid%YMid(I,J) * PI_180\n\n       ! Edges: approximate from neighboring mid points.\n#if defined( MODEL_CESM )\n       ! If using CESM, prevent out-of-bound errors when running with\n       ! NX or NY equal to 1\n       IF ( State_Grid%NX > 1 ) THEN\n#endif\n           IF ( I == 1 ) THEN\n              TMP = RoundOff( lonCtr(I+1,J) / PI_180, 4 )\n              State_Grid%XEdge(I,J) = State_Grid%XMid(I,J) - &\n                                      ( ( TMP - State_Grid%XMid(I,J) ) / 2.0_f4 )\n           ELSE\n              State_Grid%XEdge(I,J) = ( State_Grid%XMid(I,J) + &\n                                          State_Grid%XMid(I-1,J) ) / 2.0_f4\n           ENDIF\n#if defined( MODEL_CESM )\n       ELSE\n           State_Grid%XEdge(I,J) = State_Grid%XMid(I,J)\n       ENDIF\n\n       IF ( State_Grid%NY > 1 ) THEN\n#endif\n           IF ( J == 1 ) THEN\n              TMP = RoundOff( latCtr(I,J+1) / PI_180, 4 )\n              State_Grid%YEdge(I,J) = State_Grid%YMid(I,J) - &\n                                      ( ( TMP - State_Grid%YMid(I,J) ) / 2.0_f4 )\n           ELSE\n              State_Grid%YEdge(I,J) = ( State_Grid%YMid(I,J) + &\n                                          State_Grid%YMid(I,J-1) ) / 2.0_f4\n           ENDIF\n#if defined( MODEL_CESM )\n       ELSE\n           State_Grid%YEdge(I,J) = State_Grid%YMid(I,J)\n       ENDIF\n#endif\n\n       ! Special treatment at uppermost edge\n#if defined( MODEL_CESM )\n       IF ( State_Grid%NX > 1 ) THEN\n#endif\n           IF ( I == State_Grid%NX ) THEN\n              State_Grid%XEdge(I+1,J) = State_Grid%XMid(I,J) + &\n                 ( ( State_Grid%XMid(I,J) - State_Grid%XMid(I-1,J) ) / 2.0_f4 )\n           ENDIF\n#if defined( MODEL_CESM )\n       ENDIF\n       IF ( State_Grid%NY > 1 ) THEN\n#endif\n           IF ( J == State_Grid%NY ) THEN\n              State_Grid%YEdge(I,J+1) = State_Grid%YMid(I,J) + &\n                 ( ( State_Grid%YMid(I,J) - State_Grid%YMid(I,J-1) ) / 2.0_f4 )\n           ENDIF\n#if defined( MODEL_CESM )\n       ENDIF\n#endif\n\n       ! Special quantities directly derived from State_Grid%YEdge\n       State_Grid%YEdge_R(I,J) = State_Grid%YEdge(I,J) * PI_180\n       YEDGE_VAL               = State_Grid%YEdge_R(I,J) ! Lat edge[radians]\n       YSIN_VAL                = SIN( YEDGE_VAL)         ! SIN( lat edge )\n       State_Grid%YSIN(I,J)    = YSIN_VAL                ! Store in YSIN\n\n    ENDDO\n    ENDDO\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE SetGridFromCtr\n!EOC\n#if defined ( MODEL_WRF ) || defined( MODEL_CESM )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SetGridFromCtrEdges\n!\n! !DESCRIPTION: Subroutine SetGridFromCtrEdges sets the grid based upon the\n!  passed mid-points and edge-points given an external grid. This interface\n!  is primarily used for GEOS-Chem to interface with the WRF and CESM models.\n!\\\\\n!\\\\\n! This routine does not update the grid box areas (AREA\\_M2) of grid\\_mod.F90.\n! These need to be updated manually from State\\_Grid%AREA\\_M2 to maintain\n! consistency with the GEOS-Chem interface to GEOS-5.\n! !INTERFACE:\n!\n  SUBROUTINE SetGridFromCtrEdges( Input_Opt, State_Grid, lonCtr, latCtr, &\n                                  lonEdge, latEdge, RC )\n!\n! USES\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Roundoff_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt      ! Input Options object\n    REAL(f4),       INTENT(IN)    :: lonCtr (:,:)   ! Lon ctrs [rad]\n    REAL(f4),       INTENT(IN)    :: latCtr (:,:)   ! Lat ctrs [rad]\n    REAL(f4),       INTENT(IN)    :: lonEdge(:,:)   ! Lon edges [rad]\n    REAL(f4),       INTENT(IN)    :: latEdge(:,:)   ! Lat edges [rad]\n    TYPE(GrdState), INTENT(IN)    :: State_Grid     ! Grid State object\n!!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(INOUT) :: RC\n!\n! !REVISION HISTORY:\n!  11 Nov 2018 - H.P. Lin    - Initial version based on SetGridFromCtr\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: I, J\n    REAL(fp)           :: YEDGE_VAL, YSIN_VAL, TMP\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !======================================================================\n    ! SetGridFromCtrEdges begins here!\n    !======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at SetGridFromCtrEdges (in module GeosUtil/gc_grid_mod.F90)'\n\n    ! Loop over all grid boxes\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Mid points: get directly from passed value\n       State_Grid%XMid(I,J)      = RoundOff( lonCtr(I,J) / PI_180, 4 )\n       State_Grid%YMid(I,J)      = RoundOff( latCtr(I,J) / PI_180, 4 )\n       State_Grid%YMid_R(I,J)    = State_Grid%YMid(I,J) * PI_180\n\n       ! Edges: get directly from passed value\n       State_Grid%XEdge(I,J)     = RoundOff( lonEdge(I,J) / PI_180, 4 )\n       State_Grid%YEdge(I,J)     = RoundOff( latEdge(I,J) / PI_180, 4 )\n\n       ! Special treatment at uppermost edge\n       IF ( I == State_Grid%NX ) THEN\n          State_Grid%XEdge(I+1,J) = RoundOff( lonEdge(I+1,J) / PI_180, 4 )\n       ENDIF\n       IF ( J == State_Grid%NY ) THEN\n          State_Grid%YEdge(I,J+1)   = RoundOff( latEdge(I,J+1) / PI_180, 4 )\n          State_Grid%YEdge_R(I,J+1) = State_Grid%YEdge(I,J+1) * PI_180\n          State_Grid%YSIN(I,J+1)    = SIN( State_Grid%YEdge_R(I,J+1) )\n       ENDIF\n\n       ! Special quantities directly derived from State_Grid%YEdge\n       State_Grid%YEdge_R(I,J) = State_Grid%YEdge(I,J) * PI_180\n       YEDGE_VAL               = State_Grid%YEdge_R(I,J) ! Lat edge[radians]\n       YSIN_VAL                = SIN( YEDGE_VAL )        ! SIN( lat edge )\n       State_Grid%YSIN(I,J)    = YSIN_VAL                ! Store in YSIN\n\n    ENDDO\n    ENDDO\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE SetGridFromCtrEdges\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_IJ\n!\n! !DESCRIPTION: Function GET\\_IJ returns I and J index for a LON, LAT\n!  coordinate (dkh, 11/16/06). Updated to support nested domains and made much\n!  simpler (zhe, 1/19/11).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_IJ( LON, LAT, State_Grid ) RESULT ( IIJJ )\n!\n! !USES:\n!\n    USE ERROR_MOD,      ONLY : ERROR_STOP\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4,         INTENT(IN)  :: LAT, LON\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !RETURN VALUE:\n!\n    INTEGER                     :: IIJJ(2)\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - M. Sulprizio- Initial version based on routine from adjoint\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp) :: TLON, TLAT\n      REAL(fp) :: I0,   J0\n\n      !=================================================================\n      ! GET_IJ begins here!\n      !=================================================================\n      I0 = State_Grid%XMinOffset\n      J0 = State_Grid%YMinOffset\n\n      TLON = INT( ( LON + 180e+0_fp ) / State_Grid%DX + 1.5e+0_fp )\n      TLAT = INT( ( LAT +  90e+0_fp ) / State_Grid%DY + 1.5e+0_fp )\n\n      IF ( State_Grid%NestedGrid ) THEN\n         TLON = TLON - I0\n         TLAT = TLAT - J0\n         IF ( TLAT < 1 .or. TLAT > State_Grid%NY ) THEN\n            CALL ERROR_STOP('Beyond the nested window', 'GET_IJ')\n         ENDIF\n      ELSE\n         IF ( TLON > State_Grid%NX ) TLON = TLON - State_Grid%NX\n\n         ! Check for impossible values\n         IF ( TLON > State_Grid%NX .or. TLAT > State_Grid%NY .or. &\n              TLON < 1             .or. TLAT < 1          ) THEN\n            CALL ERROR_STOP('Error finding grid box', 'GET_IJ')\n         ENDIF\n      ENDIF\n\n      IIJJ(1) = TLON\n      IIJJ(2) = TLAT\n\n    END FUNCTION GET_IJ\n!EOC\nEND MODULE GC_Grid_Mod\n"
  },
  {
    "path": "GeosUtil/henry_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: henry_mod.F90\n!\n! !DESCRIPTION: Module HENRY\\_MOD contains routines to calculate\n! The dimensionless liquid-over-gas Henry constant KH as well as the\n! effective Henry constant HEFF, which accounts for hydrolysis.\n!\\\\\n!\\\\\n! KH   = K0 * exp ( CR * (1/T - 1/Tref)  ) * R * T / 101.325\n!\\\\\n!\\\\\n! HEFF = KH * ( 1 + 10\\^(pH-pKa) )\n!\\\\\n!\\\\\n! where K0 is the value of KH at standard conditions [M/atm], CR is the\n! temperature dependency of KH [K], T is the temperature in Kelvin, Tref\n! is the reference temperature (298.15 K), and R is the universal gas\n! constant R = 8.314 JK-1mol-1.\n!\\\\\n!\\\\\n! References:\n! \\begin{itemize}\n! \\item Sander, R: Compilation of Henry's law constant for inorganic and\n! organic species of potential importance in environmental chemistry, 1999.\n! \\item  http://www.mpch-mainz.mpg.de/~sander/res/henry.html.\n! \\end{itemize}\n!\n! !INTERFACE:\n!\nMODULE HENRY_MOD\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: CALC_KH\n  PUBLIC :: CALC_HEFF\n!\n! !REVISION HISTORY:\n!  16 Apr 2013 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  REAL*8, PARAMETER :: TREF = 298.15d0      ! [K          ]\n  REAL*8, PARAMETER :: R    = 8.3144598d0   ! [J K-1 mol-1]\n  REAL*8, PARAMETER :: ATM  = 101.325d0     ! [mPa (!)    ]\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_kh\n!\n! !DESCRIPTION: Function CALC\\_KH calculates the liquid over gas\n! dimensionless Henry constant for the given tracer and temperature.\n!\n! Reference: http://www.mpch-mainz.mpg.de/~sander/res/henry.html\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_KH ( thisK0, thisCR, TK, KH, RC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN)    :: thisK0  ! [M/atm]\n    REAL*8,  INTENT(IN)    :: thisCR  ! [-d ln kH / d(1/T) ]\n    REAL*8,  INTENT(IN)    :: TK      ! Temperature [K]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,  INTENT(OUT)   :: KH      ! Henry liquid over gas constant [-]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(INOUT) :: RC      ! Error handling\n!\n! !REVISION HISTORY:\n!  16 Apr 2013 - C. Keller - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! CALC_KH begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = 0\n\n    ! Error if not defined\n    IF ( thisK0 == 0d0 ) THEN\n       RC = -999\n       KH = -999\n       RETURN\n    ENDIF\n\n    ! Calculate Henry coefficient for given temperature\n    KH = thisK0 * exp( thisCR * (1/TK - 1/TREF) ) * R * TK / ATM\n\n  END SUBROUTINE CALC_KH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: calc_heff\n!\n! !DESCRIPTION: Function CALC\\_HEFF calculates the effective Henry\n! constant taking into account hydrolysis effects. For instance, aqueous\n! HBr will dissociate to Br- (and H+), and often we are interested in the\n! total Br concentration in water, i.e. Brx = HBr + Br-, with the equilibrium\n! concentration of Brx and gaseous HBr being the effective Henry\n! constant. This function provides the correction factor to calculate\n! the effective Henry constant from the 'regular' Henry constant\n! (above):\n!\\\\\n!\\\\\n! Heff = KH * CORR\n!\\\\\n!\\\\\n! The correction term is derived as following:\n!\\\\\n!\\\\\n! The regular Henry constant is:   H    = HA(liq) / HA(g)\n! The effective Henry constant is: Heff = ( HA(liq) + A(liq)) / HA(g)\n! Equilibrium between HA and A is: pH = pK + log ( A/HA )\n! A(liq) hence becomes: HA(liq) * 10**(pH-pK)\n!\\\\\n!\\\\\n! ==> Heff = ( HA(liq) * ( 1 + 10**(pH-pK) ) / HA(g)\n!          = HA(liq) / HA(g) * ( 1 + 10**(pH-pK) )\n!          = H * ( 1 + 10**(pH-pK) )\n!\\\\\n!\\\\\n! ==> CORR = 1 + 10**(pH-pK)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALC_HEFF ( thispKa, PH, KH, HEFF, RC )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN)    :: thispKa  ! pKa value [-]\n    REAL*8,  INTENT(IN)    :: PH       ! PH value [-]\n    REAL*8,  INTENT(IN)    :: KH       ! gas/aq Henry constant [-]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,  INTENT(OUT)   :: HEFF     ! effective gas/aq constant [-]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(INOUT) :: RC       ! for error handling\n!\n! !REMARKS:\n! It should be noted that the correction term calculated here is from a\n! 'acid perspective', i.e. for compounds with the acid being in the\n! gaseous phase. The correction term reads 1 + 10**(-pH+pK) for\n! compounds with the base in the gas phase (e.g. ammonia).\n!\n! The correction term becomes more complicated for compounds with more\n! than two equilibrium compounds that are relevant under the current\n! conditions (e.g. CO2).\n!\n! We ignore any temperature dependencies of pKa for now.\n!\n! !REVISION HISTORY:\n!  16 Apr 2013 - C. Keller - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! CALC_HEFF begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = 0\n\n    ! Calculate correction term.\n    ! NOTE: Allow for negative pKa, but skip missing values (-999).\n    ! Also remove the ELSE block for computational efficiency.\n    !  -- Viral Shah & Bob Yantosca, 03 Dec 2020\n    HEFF = KH\n    IF ( pH > 0.0d0 .and. thispKa > -100d0 ) THEN\n       HEFF = HEFF * ( 1d0 + 10d0**( pH - thispKa ) )\n    ENDIF\n\n  END SUBROUTINE CALC_HEFF\n!EOC\nEND MODULE HENRY_MOD\n"
  },
  {
    "path": "GeosUtil/ifort_errmsg.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !ROUTINE: ifort_errmsg.F90\n!\n! !DESCRIPTION: Function IFORT\\_ERRMSG returns an error message string that\n!  corresponds to an I/O error number obtained via the IOSTAT or STAT\n!  specifiers.  (This is specifically for the Intel Fortran compiler.)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nFUNCTION IFORT_ERRMSG( ERROR_NUM ) RESULT( MSG )\n!\n! !INPUT PARAMETERS:\n!\n  INTEGER, INTENT(IN) :: ERROR_NUM   ! Error condition from IOSTAT\n!\n! !RETURN VALUE:\n!\n  CHARACTER(LEN=255)  :: MSG         ! Descriptive error message\n!\n! !REVISION HISTORY:\n!  30 Nov 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  ! Select a error message based on the error codes\n  ! for Intel Fortran Compiler v9.0.\n  SELECT CASE( ERROR_NUM )\n  CASE( 0   )\n     MSG = ''\n  CASE( 1   )\n     MSG = 'Not a Fortran-specific error'\n  CASE( 8   )\n     MSG = 'Internal consistency check failure'\n  CASE( 9   )\n     MSG = 'Permission to access file denied'\n  CASE( 10  )\n     MSG = 'Cannot overwrite existing file'\n  CASE( 11  )\n     MSG = 'Unit not connected'\n  CASE( 17  )\n     MSG = 'Syntax error in NAMELIST input'\n  CASE( 18  )\n     MSG = 'Too many values for NAMELIST variable'\n  CASE( 19  )\n     MSG = 'Invalid reference to variable in NAMELIST input'\n  CASE( 20  )\n     MSG = 'REWIND error'\n  CASE( 21  )\n     MSG = 'Duplicate file specifications'\n  CASE( 22  )\n     MSG = 'Input record too long'\n  CASE( 23  )\n     MSG = 'Backspace error'\n  CASE( 24  )\n     MSG = 'END-OF-FILE during read'\n  CASE( 25  )\n     MSG = 'Record number outside range'\n  CASE( 26  )\n     MSG = 'OPEN or DEFINE FILE required'\n  CASE( 27  )\n     MSG = 'Too many records in I/O statement'\n  CASE( 28  )\n     MSG = 'CLOSE error'\n  CASE( 29 )\n     MSG = 'File not found'\n  CASE( 30 )\n     MSG = 'OPEN failure'\n  CASE( 31  )\n     MSG = 'Mixed file access modes'\n  CASE( 32  )\n     MSG = 'Invalid logical unit number'\n  CASE( 33  )\n     MSG = 'ENDFILE error'\n  CASE( 34  )\n     MSG = 'Unit already open'\n  CASE( 35  )\n     MSG = 'Segmented record format error'\n  CASE( 36  )\n     MSG = 'Attempt to access non-existent record'\n  CASE( 37  )\n     MSG = 'Inconsistent record length'\n  CASE( 38  )\n     MSG = 'Error during write'\n  CASE( 39  )\n     MSG = 'Error during read'\n  CASE( 40  )\n     MSG = 'Recursive I/O operation'\n  CASE( 41  )\n     MSG = 'Insufficient virtual memory'\n  CASE( 42  )\n     MSG = 'No such device'\n  CASE( 43  )\n     MSG = 'File name specification error'\n  CASE( 44  )\n     MSG = 'Inconsistent record type'\n  CASE( 45  )\n     MSG = 'Keyword value error in OPEN statement'\n  CASE( 46  )\n     MSG = 'Inconsistent OPEN/CLOSE parameters'\n  CASE( 47  )\n     MSG = 'Write to READONLY file'\n  CASE( 48  )\n     MSG = 'Invalid argument to Fortran Run-Time Library'\n  CASE( 51 )\n     MSG = 'Inconsistent file organization'\n  CASE( 53  )\n     MSG = 'No current record'\n  CASE( 55  )\n     MSG = 'DELETE error'\n  CASE( 57  )\n     MSG = 'FIND error'\n  CASE( 58  )\n     MSG = 'Format syntax error'\n  CASE( 59  )\n     MSG = 'List-directed I/O syntax error'\n  CASE( 60  )\n     MSG = 'Infinite format loop'\n  CASE( 61 )\n     MSG = 'Format/variable type mismatch'\n  CASE( 62  )\n     MSG = 'Syntax error in format'\n  CASE( 63 )\n     MSG = 'Output conversion error'\n  CASE( 64  )\n     MSG = 'Input conversion error'\n  CASE( 65  )\n     MSG = 'Floating invalid'\n  CASE( 66  )\n     MSG = 'Output statement overflows record'\n  CASE( 67  )\n     MSG = 'Input statement requires too much data'\n  CASE( 68  )\n     MSG = 'Variable format expression value error'\n  CASE( 69  )\n     MSG = 'Process interrupted (SIGINT)'\n  CASE( 70  )\n     MSG = 'Integer overflow'\n  CASE( 71  )\n     MSG = 'Integer divide by zero'\n  CASE( 72  )\n     MSG = 'Floating overflow'\n  CASE( 73  )\n     MSG = 'Floating divide by zero'\n  CASE( 74  )\n     MSG = 'Floating underflow'\n  CASE( 75  )\n     MSG = 'Floating point exception'\n  CASE( 76 )\n     MSG = 'IOT trap signal'\n  CASE( 77  )\n     MSG = 'Subscript out of range'\n  CASE( 78  )\n     MSG = 'Process killed (SIGTERM)'\n  CASE( 79  )\n     MSG = 'Process quit (SIGQUIT)'\n  CASE( 95 )\n     MSG = 'Floating-point conversion failed'\n  CASE( 96 )\n     MSG = 'F_UFMTENDIAN env variable was ignored: bad syntax'\n  CASE( 108 )\n     MSG = 'Cannot stat file'\n  CASE( 120 )\n     MSG = 'Operation requires seek ability'\n  CASE( 138 )\n     MSG = 'Array index out of bounds (SIGILL)'\n  CASE( 139 )\n     MSG = 'Array index out of bounds'\n  CASE( 140 )\n     MSG = 'Floating inexact'\n  CASE( 144 )\n     MSG = 'Reserved operand'\n  CASE( 145 )\n     MSG = 'Assertion error'\n  CASE( 146 )\n     MSG = 'Null pointer error'\n  CASE( 147 )\n     MSG = 'Stack overflow'\n  CASE( 148 )\n     MSG = 'String length error'\n  CASE( 149 )\n     MSG = 'Substring error'\n  CASE( 150 )\n     MSG = 'Range error'\n  CASE( 151 )\n     MSG = 'Allocatable array is already allocated'\n  CASE( 152 )\n     MSG = 'Unresolved contention for RTL global resource'\n  CASE( 153 )\n     MSG = 'Allocatable array or pointer is not allocated'\n  CASE( 173 )\n     MSG = 'A pointer passed to DEALLOCATE points to an array'\n     MSG = TRIM( MSG ) // ' that cannot be deallocated'\n  CASE( 174 )\n     MSG = 'SIGSEGV: seg fault or program stack overflow'\n  CASE( 175 )\n     MSG = 'DATE argument to DATE_AND_TIME is too short,'\n     MSG = TRIM( MSG ) // ' required LEN=8'\n  CASE( 176 )\n     MSG = 'TIME argument to DATE_AND_TIME is too short,'\n     MSG = TRIM( MSG ) // ' required LEN=10'\n  CASE( 177 )\n     MSG = 'ZONE argument to DATE_AND_TIME is too short,'\n     MSG = TRIM( MSG ) // ' required LEN=5'\n  CASE( 178 )\n     MSG = 'Divide by zero'\n  CASE( 179 )\n     MSG = 'Cannot allocate array:'\n     MSG = TRIM( MSG ) // ' overflow in array size calculation'\n  CASE( 256 )\n     MSG = 'Unformatted I/O to unit open for formatted transfers'\n  CASE( 257 )\n     MSG = 'Formatted I/O to unit open for unformatted transfers'\n  CASE( 264 )\n     MSG = 'Operation requires file to be on disk or tape'\n  CASE( 265 )\n     MSG = 'Operation requires sequential file organization'\n     MSG = TRIM( MSG ) // ' and access'\n  CASE( 266 )\n     MSG = 'Fortran abort routine called'\n  CASE( 268 )\n     MSG = 'End of record during read'\n  CASE( 269 )\n     MSG = 'Floating invalid traps'\n  CASE( 298 )\n     MSG = 'Floating overflow traps'\n  CASE( 299 )\n     MSG = 'Divide-by-zero traps'\n  CASE( 300 )\n     MSG = 'Floating underflow traps'\n  CASE DEFAULT\n     MSG = 'Unknown error'\n  END SELECT\n\nEND FUNCTION IFORT_ERRMSG\n!EOC\n"
  },
  {
    "path": "GeosUtil/julday_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: julday_mod.F90\n!\n! !DESCRIPTION: Module JULDAY\\_MOD contains routines used to convert from\n!  month/day/year to Astronomical Julian Date and back again.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE JULDAY_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: JULDAY\n  PUBLIC  :: CALDATE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: MINT\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: JulDay\n!\n! !DESCRIPTION: Function JULDAY returns the astronomical Julian day.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION JULDAY( YYYY, MM, DD ) RESULT( JULIANDAY )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: YYYY        ! Year (must be in 4-digit format!)\n    INTEGER, INTENT(IN) :: MM          ! Month (1-12)\n    REAL*8,  INTENT(IN) :: DD          ! Day of month (may be fractional!)\n!\n! !RETURN VALUE:\n!\n    REAL*8              :: JULIANDAY   ! Astronomical Julian Date\n!\n! !REMARKS:\n!  (1) Algorithm taken from \"Practical Astronomy With Your Calculator\",\n!       Third Edition, by Peter Duffett-Smith, Cambridge UP, 1992.\n!  (2) Requires the external function MINT.F.\n!  (3) JulDay will compute the correct Julian day for any BC or AD date.\n!  (4) For BC dates, subtract 1 from the year and append a minus sign.\n!       For example, 1 BC is 0, 2 BC is -1, etc.  This is necessary for\n!       the algorithm.\n!\n! !REVISION HISTORY:\n!  26 Nov 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: YEAR1, MONTH1\n    REAL*8              :: X1, A, B, C, D\n    LOGICAL             :: ISGREGORIAN\n\n    !==================================================================\n    ! JULDAY begins here!\n    !\n    ! Follow algorithm from Peter Duffett-Smith (1992)\n    !==================================================================\n\n    ! Compute YEAR and MONTH1\n    IF ( ( MM == 1 ) .OR. ( MM == 2 ) ) THEN\n       YEAR1  = YYYY  - 1\n       MONTH1 = MM    + 12\n    ELSE\n       YEAR1  = YYYY\n       MONTH1 = MM\n    ENDIF\n\n    ! Compute the \"A\" term.\n    X1 = DBLE( YEAR1 ) / 100.0d0\n    A  = MINT( X1 )\n\n    ! The Gregorian calendar begins on 10 October 1582\n    ! Any dates prior to this will be in the Julian calendar\n    IF ( YYYY > 1582 ) THEN\n       ISGREGORIAN = .TRUE.\n    ELSE\n       IF ( ( YYYY   == 1582 )  .AND. &\n            ( MONTH1 >= 10   )  .AND. &\n            ( DD     >= 15.0 ) ) THEN\n          ISGREGORIAN = .TRUE.\n       ELSE\n          ISGREGORIAN = .FALSE.\n       ENDIF\n    ENDIF\n\n    ! Compute the \"B\" term according to Gregorian or Julian calendar\n    IF ( ISGREGORIAN ) THEN\n       B = 2.0d0 - A + MINT( A / 4.0d0 )\n    ELSE\n       B = 0.0d0\n    ENDIF\n\n    ! Compute the \"C\" term for BC dates (YEAR1 <= 0 )\n    ! or AD dates (YEAR1 > 0)\n    IF ( YEAR1 < 0 ) THEN\n       X1 = ( 365.25d0 * YEAR1 ) - 0.75d0\n       C  = MINT( X1 )\n    ELSE\n       X1 = 365.25d0 * YEAR1\n       C  = MINT( X1 )\n    ENDIF\n\n    ! Compute the \"D\" term\n    X1 = 30.6001d0 * DBLE( MONTH1 + 1 )\n    D  = MINT( X1 )\n\n    ! Add the terms to get the Julian Day number\n    JULIANDAY = B + C + D + DD + 1720994.5d0\n\n  END FUNCTION JULDAY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Mint\n!\n! !DESCRIPTION: Function MINT is the modified integer function.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION MINT( X ) RESULT ( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8, INTENT(IN) :: X\n!\n! !RETURN VALUE:\n!\n    REAL*8             :: VALUE\n!\n! !REMARKS:\n!  The modified integer function is defined as follows:\n!\n!            { -INT( ABS( X ) )   for X < 0\n!     MINT = {\n!            {  INT( ABS( X ) )   for X >= 0\n!\n! !REVISION HISTORY:\n!  20 Nov 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( X < 0d0 ) THEN\n       VALUE = -INT( ABS( X ) )\n    ELSE\n       VALUE =  INT( ABS( X ) )\n    ENDIF\n\n  END FUNCTION MINT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CalDate\n!\n! !DESCRIPTION: Subroutine CALDATE converts an astronomical Julian day to\n!  the YYYYMMDD and HHMMSS format.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALDATE( JULIANDAY, YYYYMMDD, HHMMSS )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN)  :: JULIANDAY  ! Astronomical Julian Date\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: YYYYMMDD   ! Date in YYYY/MM/DD format\n    INTEGER, INTENT(OUT) :: HHMMSS     ! Time in hh:mm:ss format\n!\n! !REMARKS:\n!   Algorithm taken from \"Practical Astronomy With Your Calculator\",\n!   Third Edition, by Peter Duffett-Smith, Cambridge UP, 1992.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL*4               :: HH, MM, SS\n    REAL*8               :: A, B, C, D, DAY, E, F\n    REAL*8               :: FDAY, G, I, J, JD, M, Y\n\n    !=================================================================\n    ! CALDATE begins here!\n    ! See \"Practical astronomy with your calculator\", Peter Duffett-\n    ! Smith 1992, for an explanation of the following algorithm.\n    !=================================================================\n    JD = JULIANDAY + 0.5d0\n    I  = INT( JD )\n    F  = JD - INT( I )\n\n    IF ( I > 2299160d0 ) THEN\n       A = INT( ( I - 1867216.25d0 ) / 36524.25d0 )\n       B = I + 1 + A - INT( A / 4 )\n    ELSE\n       B = I\n    ENDIF\n\n    C = B + 1524d0\n\n    D = INT( ( C - 122.1d0 ) / 365.25d0 )\n\n    E = INT( 365.25d0 * D )\n\n    G = INT( ( C - E ) / 30.6001d0 )\n\n    ! DAY is the day number\n    DAY  = C - E + F - INT( 30.6001d0 * G )\n\n    ! FDAY is the fractional day number\n    FDAY = DAY - INT( DAY )\n\n    ! M is the month number\n    IF ( G < 13.5d0 ) THEN\n       M = G - 1d0\n    ELSE\n       M = G - 13d0\n    ENDIF\n\n    ! Y is the year number\n    IF ( M > 2.5d0 ) THEN\n       Y = D - 4716d0\n    ELSE\n       Y = D - 4715d0\n    ENDIF\n\n    ! Year-month-day value\n    YYYYMMDD = ( INT( Y ) * 10000 ) + ( INT( M ) * 100 ) + INT( DAY )\n\n    ! Hour-minute-second value\n    ! NOTE: HH, MM, SS are REAL*4 to avoid numerical roundoff errors\n    HH     = FDAY * 24d0\n    MM     = ( HH - INT( HH ) ) * 60d0\n    SS     = ( MM - INT( MM ) ) * 60d0\n    !------------------------------------------------------------------\n    ! NOTE: Some times (like 40min = 0.6666 hrs) will cause a roundoff\n    ! error that will make the minutes eg. 39.9999 instead of 40.\n    ! For now put in a kludge to rectify this situation.\n    IF ( INT(SS) == 59 ) THEN\n       SS = 0.0e0\n       MM = NINT( MM )\n    ENDIF\n    !---------------------------------------------------------------\n    HHMMSS = ( INT( HH ) * 10000 ) + ( INT( MM ) * 100 ) + INT( SS )\n\n  END SUBROUTINE CALDATE\n!EOC\nEND MODULE JULDAY_MOD\n"
  },
  {
    "path": "GeosUtil/pressure_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: pressure_mod.F90\n!\n! !DESCRIPTION: Module PRESSURE\\_MOD contains variables and routines which\n!  specify the grid box pressures for both hybrid or pure-sigma models.\n!  This is necessary for running GEOS-Chem with the hybrid grids.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE PRESSURE_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: GET_AP\n  PUBLIC  :: GET_BP\n  PUBLIC  :: GET_PEDGE                ! wet air P at lower grid edge\n  PUBLIC  :: GET_PCENTER              ! wet air P at grid center\n  PUBLIC  :: GET_PEDGE_FULLGRID\n  PUBLIC  :: GET_PEDGE_DRY\n  PUBLIC  :: GET_DELP_DRY\n  PUBLIC  :: INIT_PRESSURE\n  PUBLIC  :: SET_FLOATING_PRESSURES\n  PUBLIC  :: CLEANUP_PRESSURE\n#if defined( ESMF_ ) || defined( MODEL_ )\n  PUBLIC  :: Accept_External_Pedge\n#endif\n#if defined( MODEL_WRF ) || defined( MODEL_CESM )\n  PUBLIC  :: Accept_External_ApBp\n#endif\n!\n! !REMARKS:\n!\n!  Hybrid Grid Coordinate Definition: (dsa, bmy, 8/27/02, 2/2/12)\n!  ============================================================================\n!\n!  The pressure at the bottom edge of grid box (I,J,L) is defined as follows:\n!                                                                             .\n!     Pedge(I,J,L) = Ap(L) + [ Bp(L) * Psurface(I,J) ]\n!                                                                             .\n!  where\n!                                                                             .\n!     Psurface(I,J) is  the \"true\" surface pressure at lon,lat (I,J)\n!     Ap(L)         has the same units as surface pressure [hPa]\n!     Bp(L)         is  a unitless constant given at level edges\n!                                                                             .\n!  Ap(L) and Bp(L) are given to us by GMAO.\n!                                                                             .\n!  The following are true:\n!  ----------------------------------------------------------------------------\n!  (1) Bp(NZ+1) = 0.0       (L=NZ+1 is the atmosphere top)\n!  (2) Bp(1)    = 1.0       (L=1    is the surface       )\n!  (3) PTOP     = Ap(NZ+1)  (L=NZ+1 is the atmosphere top)\n!\n! !REVISION HISTORY:\n!  27 Aug 2002 - D. Abbot & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  REAL(fp), ALLOCATABLE :: AP(:)                  ! \"A\" term for hybrid grid\n  REAL(fp), ALLOCATABLE :: BP(:)                  ! \"B\" term for hybrid grid\n  REAL(fp), ALLOCATABLE :: PFLT_DRY(:,:)          ! \"Floating\" dry sfc pres\n  REAL(fp), ALLOCATABLE :: PFLT_WET(:,:)          ! \"Floating\" wet sfc pres\n  REAL(fp), ALLOCATABLE :: AP_FULLGRID(:)         ! \"A\" term for full grid\n  REAL(fp), ALLOCATABLE :: BP_FULLGRID(:)         ! \"B\" term for full grid\n#if defined( ESMF_ ) || defined( MODEL_ )\n  REAL(fp), ALLOCATABLE :: EXTERNAL_PEDGE(:,:,:)  ! Pressure edges from\n                                                  !  external grid\n#endif\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Ap\n!\n! !DESCRIPTION: Function GET\\_AP returns the \"A\" term [hPa] for the\n!  hybrid ETA coordinate.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_AP( L ) RESULT( AP_TEMP )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: L        ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(fp)            :: AP_TEMP  ! Corresponding \"A\" value [hPa]\n                                    !  at bottom edge of level L\n!\n! !REVISION HISTORY:\n!  20 Aug 2002 - D. Abbot & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    AP_TEMP = AP(L)\n\n  END FUNCTION GET_AP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Bp\n!\n! !DESCRIPTION: Function GET\\_BP returns the \"B\" term [unitless] for the\n!  hybrid ETA coordinate.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_BP( L ) RESULT( BP_TEMP )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: L        ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(fp)            :: BP_TEMP  ! Corresponding \"B\" value [unitless]\n                                    !  at bottom edge of level L\n!\n! !REVISION HISTORY:\n!  20 Aug 2002 - D. Abbot & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    BP_TEMP = BP(L)\n\n  END FUNCTION GET_BP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Floating_Pressures\n!\n! !DESCRIPTION: Subroutine SET\\_FLOATING\\_PRESSURES initializes the\n!  dry and wet floating pressure fields PFLT\\_DRY and PFLT\\_WET with the \n!  \"true\" surface pressures PSC2\\_DRY and PSC2\\_WET, stored in State\\_Met.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_FLOATING_PRESSURES( State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ERROR_MOD, ONLY : CHECK_VALUE\n    USE ErrCode_Mod\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology state object\n!\n! !OUTPUT ARGUMENTS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!   The surface pressures PSC2_DRY and PSC2_WET represent the most recently\n!   interpolated values derived from GMAO instantaneous atmospheric pressure\n!   at the surface (including moisture).\n!\n! !REVISION HISTORY:\n!  21 Jun 2016 - E. Lundgren- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: I, J, L\n    INTEGER            :: ERR_LOC(4)\n    CHARACTER(LEN=255) :: ERR_VAR\n    CHARACTER(LEN=255) :: ERR_MSG\n    REAL(fp)           :: PEDGE1, PEDGE2, SPHU_KGKG\n\n    !=================================================================\n    ! SET_FLOATING_PRESSURES begins here!\n    !=================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    !! DEBUGGING (ewl)\n    !PRINT *, \" \"\n    !PRINT *, \"In SET_FLOATING_PRESSURES\"\n    !PRINT *, \"   Old PFLT_DRY(56,20): \", PFLT_DRY(56,20)\n    !PRINT *, \"   Old PFLT_WET(56,20): \", PFLT_WET(56,20)\n    !! END DEBUGGING\n\n    ! Set PFLT_DRY equal to input value PS\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, ERR_LOC, ERR_VAR, ERR_MSG )\n    DO J = 1, State_Grid%NY\n    DO I = 1, State_Grid%NX\n\n       ! Set the floating pressures to the most recently interpolated\n       ! instantaneous pressures\n       PFLT_DRY(I,J) = State_Met%PSC2_DRY(I,J)\n       PFLT_WET(I,J) = State_Met%PSC2_WET(I,J)\n\n#if !defined ( MODEL_BCC )\n       ! Check for NaN or Infinities in PFLT_DRY and PFLT_WET\n       ERR_LOC = (/ I, J, 0, 0 /)\n       ERR_VAR = 'PFLT_DRY'\n       ERR_MSG = 'set_floating_pressures:1'\n       CALL CHECK_VALUE( PFLT_DRY(I,J), ERR_LOC, ERR_VAR, ERR_MSG )\n       ERR_VAR = 'PFLT_WET'\n       ERR_MSG = 'set_floating_pressures:2'\n       CALL CHECK_VALUE( PFLT_WET(I,J), ERR_LOC, ERR_VAR, ERR_MSG )\n#endif\n    ENDDO\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !! DEBUGGING (ewl)\n    !PRINT *, \"   New PFLT_DRY(56,20): \", PFLT_DRY(56,20)\n    !PRINT *, \"   New PFLT_WET(56,20): \", PFLT_WET(56,20)\n    !! END DEBUGGING\n\n  END SUBROUTINE SET_FLOATING_PRESSURES\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Pedge\n!\n! !DESCRIPTION: Function GET\\_PEDGE returns the pressure at the bottom edge\n!  of level L.  L=1 is the surface, L=State\\_Grid%NZ+1 is the atm top.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_PEDGE( I, J, L ) RESULT( PEDGE )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)   :: I        ! GEOS-Chem lon   index\n    INTEGER, INTENT(IN)   :: J        ! GEOS-Chem lat   index\n    INTEGER, INTENT(IN)   :: L        ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(f8)              :: PEDGE  ! Pressure @ bottom edge of (I,J,L) [hPa]\n!\n! !REVISION HISTORY:\n!  20 Aug 2002 - D. Abbot & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n#if defined( ESMF_ ) || defined( MODEL_ )\n    ! Pressure [hPa] at bottom edge of level L (see documentation header)\n    ! Taken from the GCM fields\n    PEDGE = EXTERNAL_PEDGE(I,J,L)\n#else\n    ! Pressure [hPa] at bottom edge of level L (see documentation header)\n    ! Computed for use w/in GEOS-Chem\n    PEDGE = AP(L) + ( BP(L) * PFLT_WET(I,J) )\n#endif\n\n  END FUNCTION GET_PEDGE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Pcenter\n!\n! !DESCRIPTION: Function GET\\_PCENTER returns the pressure at the vertical\n!  midpoint of level L.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_PCENTER( I, J, L ) RESULT( PCENTER )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: I        ! GEOS-Chem lon   index\n    INTEGER, INTENT(IN) :: J        ! GEOS-Chem lat   index\n    INTEGER, INTENT(IN) :: L        ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(fp)              :: PCENTER  ! Pressure @ center of (I,J,L) [hPa]\n!\n! !REVISION HISTORY:\n!  20 Aug 2002 - D. Abbot & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! The pressure at the center of a grid-box is found\n    ! by averaging the pressures at the box's two edges\n    PCENTER = 0.5e+0_fp * ( GET_PEDGE(I,J,L) + GET_PEDGE(I,J,L+1) )\n\n  END FUNCTION GET_PCENTER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Pedge_Fullgrid\n!\n! !DESCRIPTION: Function GET\\_PEDGE\\_FULLGRID returns the pressure at the\n!  bottom edge of level L of the unreduced vertical grid.  L=1 is the surface,\n!  L=LState\\_Grid%NZ+1 is the atm top.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_PEDGE_FULLGRID( I, J, L ) RESULT( PEDGE )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: I      ! GEOS-Chem lon   index\n    INTEGER, INTENT(IN) :: J      ! GEOS-Chem lat   index\n    INTEGER, INTENT(IN) :: L      ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(fp)              :: PEDGE  ! Pressure @ bottom edge of (I,J,L) [hPa]\n!\n! !REVISION HISTORY:\n!  (1 ) Modified from GET_PEDGE (cdh, 1/22/09)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! GET_PEDGE_FULLGRID begins here!\n    !=================================================================\n\n    ! Pressure [hPa] at bottom edge of level L (see documentation header)\n    PEDGE = AP_FULLGRID(L) + ( BP_FULLGRID(L) * PFLT_WET(I,J) )\n\n  END FUNCTION GET_PEDGE_FULLGRID\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Pedge_Dry\n!\n! !DESCRIPTION: Function GET\\_PEDGE\\_DRY returns the pressure at the\n!  bottom edge of level L, reconstructed using the dry surface pressure. \n!  L=1 is the surface, L=State\\_Grid%NZ+1 is the atm top.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_PEDGE_DRY( I, J, L ) RESULT( PEDGE_DRY )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: I      ! GEOS-Chem lon   index\n    INTEGER, INTENT(IN) :: J      ! GEOS-Chem lat   index\n    INTEGER, INTENT(IN) :: L      ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: PEDGE_DRY  ! Dry prssr @ bottom edge of (I,J,L) [hPa]\n!\n! !REMARKS:\n!  Dry pressures at the edges calculated within this routine should not\n!  be used as height proxies. Wet pressure edge should be used instead.\n!\n! !REVISION HISTORY:\n!  16 Jun 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    PEDGE_DRY = AP(L) + ( BP(L) * PFLT_DRY(I,J) )\n\n  END FUNCTION GET_PEDGE_DRY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Delp_Dry\n!\n! !DESCRIPTION: Function GET\\_DELP\\_DRY returns the delta dry pressure\n!  between the bottom edge of level L and top edge of level L+1,\n!  constructed using the dry surface pressure and A and B parameters.\n!  L=1 is the surface, L=State\\_Grid%NZ+1 is the atm top.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_DELP_DRY( I, J, L ) RESULT( DELP_DRY )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: I      ! GEOS-Chem lon   index\n    INTEGER, INTENT(IN) :: J      ! GEOS-Chem lat   index\n    INTEGER, INTENT(IN) :: L      ! GEOS-Chem level index\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: DELP_DRY          ! Prssr difference [hPa] between\n                                  ! bottom edge of (I,J,L) and\n                                  ! bottom edge of (I,J,L+1)\n!\n! !REVISION HISTORY:\n!  06 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)           :: PEDGE_DRY_BOT, PEDGE_DRY_TOP\n\n    PEDGE_DRY_BOT = AP(L)   + ( BP(L)   * PFLT_DRY(I,J) )\n    PEDGE_DRY_TOP = AP(L+1) + ( BP(L+1) * PFLT_DRY(I,J) )\n\n    DELP_DRY = PEDGE_DRY_BOT - PEDGE_DRY_TOP\n\n  END FUNCTION GET_DELP_DRY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Pressure\n!\n! !DESCRIPTION: Subroutine INIT\\_PRESSURE allocates and initializes the AP\n!  and BP arrays.  It must be called in \"main.f\", after SIGE is defined.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_PRESSURE( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE ERROR_MOD,      ONLY : ALLOC_ERR\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  27 Aug 2002 - D. Abbot, S. Wu, & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: L\n\n    ! Arrays\n    REAL(fp)           :: a132_loc(133), b132_loc(133)\n    REAL(fp)           :: a91_loc(92),   b91_loc(92)\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, nLev\n\n\n    !=================================================================\n    ! INIT_PRESSURE begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_Pressure (in GeosUtil/pressure_mod.F90)'\n\n    IF (.NOT. ALLOCATED( PFLT_DRY )) THEN\n      ALLOCATE( PFLT_DRY( State_Grid%NX, State_Grid%NY ), STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:PFLT_DRY', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      PFLT_DRY = 0e+0_fp\n    END IF\n\n    IF (.NOT. ALLOCATED( PFLT_WET )) THEN\n      ALLOCATE( PFLT_WET( State_Grid%NX, State_Grid%NY ), STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:PFLT_WET', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      PFLT_WET = 0e+0_fp\n    END IF\n\n    IF (.NOT. ALLOCATED( AP )) THEN\n      ALLOCATE( AP( State_Grid%NZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:AP', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      AP = 1e+0_fp\n    END IF\n\n    IF (.NOT. ALLOCATED( BP )) THEN\n      ALLOCATE( BP( State_Grid%NZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:BP', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      BP = 0e+0_fp\n    END IF\n\n    IF (.NOT. ALLOCATED( AP_FULLGRID )) THEN\n      ALLOCATE( AP_FULLGRID( State_Grid%NativeNZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:AP_FULLGRID', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      AP = 1e+0_fp\n    END IF\n\n    IF (.NOT. ALLOCATED( BP_FULLGRID )) THEN\n      ALLOCATE( BP_FULLGRID( State_Grid%NativeNZ+1 ), STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:BP_FULLGRID', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      BP = 0e+0_fp\n    END IF\n\n#if defined( ESMF_ ) || defined( MODEL_ ) || defined( MODEL_BCC )\n    IF (.NOT. ALLOCATED( EXTERNAL_PEDGE )) THEN\n      ALLOCATE( EXTERNAL_PEDGE( State_Grid%NX, State_Grid%NY, &\n                                State_Grid%NZ+1 ), &\n                STAT=RC )\n      CALL GC_CheckVar( 'pressure_mod.F90:EXTERNAL_PEDGE', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      EXTERNAL_PEDGE = 0e+0_fp\n    END IF\n#endif\n\n    IF ( State_Grid%NZ == 47 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 47-level reduced vertical grid\n       !\n       !  Bottom   Bottom    # levels\n       !  edge of  edge prs  lumped\n       !  level    (hPa)     together\n       !\n       !   PTOP       0.010\n       !    47        0.066     4\n       !    46        0.211     4\n       !    45        0.617     4\n       !    44        1.651     4\n       !    43        4.077     4\n       !    42        9.293     4\n       !    41       19.792     4\n       !    40       28.368     2\n       !    39       40.175     2\n       !    38       56.388     2\n       !    37       78.512     2\n       ! %%%% START LUMPING LEVELS ABOVE HERE %%%%%\n       !    36       92.366\n       !    35      108.663\n       !    34      127.837\n       !    33      150.393\n       !    32      176.930\n       ! %%%% FIXED-PRESSURE LEVELS BEGIN HERE %%%%\n       !-----------------------------------------------------------------\n\n       ! Ap [hPa] for 47 levels (48 edges)\n       AP = (/ 0.000000d+00, 4.804826d-02, 6.593752d+00, 1.313480d+01, &\n               1.961311d+01, 2.609201d+01, 3.257081d+01, 3.898201d+01, &\n               4.533901d+01, 5.169611d+01, 5.805321d+01, 6.436264d+01, &\n               7.062198d+01, 7.883422d+01, 8.909992d+01, 9.936521d+01, &\n               1.091817d+02, 1.189586d+02, 1.286959d+02, 1.429100d+02, &\n               1.562600d+02, 1.696090d+02, 1.816190d+02, 1.930970d+02, &\n               2.032590d+02, 2.121500d+02, 2.187760d+02, 2.238980d+02, &\n               2.243630d+02, 2.168650d+02, 2.011920d+02, 1.769300d+02, &\n               1.503930d+02, 1.278370d+02, 1.086630d+02, 9.236572d+01, &\n               7.851231d+01, 5.638791d+01, 4.017541d+01, 2.836781d+01, &\n               1.979160d+01, 9.292942d+00, 4.076571d+00, 1.650790d+00, &\n               6.167791d-01, 2.113490d-01, 6.600001d-02, 1.000000d-02 /)\n\n       ! Bp [unitless] for 47 levels (48 edges)\n       BP = (/ 1.000000d+00, 9.849520d-01, 9.634060d-01, 9.418650d-01, &\n               9.203870d-01, 8.989080d-01, 8.774290d-01, 8.560180d-01, &\n               8.346609d-01, 8.133039d-01, 7.919469d-01, 7.706375d-01, &\n               7.493782d-01, 7.211660d-01, 6.858999d-01, 6.506349d-01, &\n               6.158184d-01, 5.810415d-01, 5.463042d-01, 4.945902d-01, &\n               4.437402d-01, 3.928911d-01, 3.433811d-01, 2.944031d-01, &\n               2.467411d-01, 2.003501d-01, 1.562241d-01, 1.136021d-01, &\n               6.372006d-02, 2.801004d-02, 6.960025d-03, 8.175413d-09, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00 /)\n\n       !-----------------------------------------------------------------\n       ! 72 level grid\n       !-----------------------------------------------------------------\n\n       ! Ap [hPa] for 72 levels (73 edges)\n       AP_FULLGRID = &\n            (/ 0.000000d+00, 4.804826d-02, 6.593752d+00, 1.313480d+01, &\n               1.961311d+01, 2.609201d+01, 3.257081d+01, 3.898201d+01, &\n               4.533901d+01, 5.169611d+01, 5.805321d+01, 6.436264d+01, &\n               7.062198d+01, 7.883422d+01, 8.909992d+01, 9.936521d+01, &\n               1.091817d+02, 1.189586d+02, 1.286959d+02, 1.429100d+02, &\n               1.562600d+02, 1.696090d+02, 1.816190d+02, 1.930970d+02, &\n               2.032590d+02, 2.121500d+02, 2.187760d+02, 2.238980d+02, &\n               2.243630d+02, 2.168650d+02, 2.011920d+02, 1.769300d+02, &\n               1.503930d+02, 1.278370d+02, 1.086630d+02, 9.236572d+01, &\n               7.851231d+01, 6.660341d+01, 5.638791d+01, 4.764391d+01, &\n               4.017541d+01, 3.381001d+01, 2.836781d+01, 2.373041d+01, &\n               1.979160d+01, 1.645710d+01, 1.364340d+01, 1.127690d+01, &\n               9.292942d+00, 7.619842d+00, 6.216801d+00, 5.046801d+00, &\n               4.076571d+00, 3.276431d+00, 2.620211d+00, 2.084970d+00, &\n               1.650790d+00, 1.300510d+00, 1.019440d+00, 7.951341d-01, &\n               6.167791d-01, 4.758061d-01, 3.650411d-01, 2.785261d-01, &\n               2.113490d-01, 1.594950d-01, 1.197030d-01, 8.934502d-02, &\n               6.600001d-02, 4.758501d-02, 3.270000d-02, 2.000000d-02, &\n               1.000000d-02 /)\n\n       ! Bp [unitless] for 72 levels (73 edges)\n       BP_FULLGRID = &\n            (/ 1.000000d+00, 9.849520d-01, 9.634060d-01, 9.418650d-01, &\n               9.203870d-01, 8.989080d-01, 8.774290d-01, 8.560180d-01, &\n               8.346609d-01, 8.133039d-01, 7.919469d-01, 7.706375d-01, &\n               7.493782d-01, 7.211660d-01, 6.858999d-01, 6.506349d-01, &\n               6.158184d-01, 5.810415d-01, 5.463042d-01, 4.945902d-01, &\n               4.437402d-01, 3.928911d-01, 3.433811d-01, 2.944031d-01, &\n               2.467411d-01, 2.003501d-01, 1.562241d-01, 1.136021d-01, &\n               6.372006d-02, 2.801004d-02, 6.960025d-03, 8.175413d-09, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00 /)\n\n    ELSE IF (State_Grid%NZ == 72 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 72 level grid\n       !-----------------------------------------------------------------\n\n       ! Ap [hPa] for 72 levels (73 edges)\n       AP = (/ 0.000000d+00, 4.804826d-02, 6.593752d+00, 1.313480d+01, &\n               1.961311d+01, 2.609201d+01, 3.257081d+01, 3.898201d+01, &\n               4.533901d+01, 5.169611d+01, 5.805321d+01, 6.436264d+01, &\n               7.062198d+01, 7.883422d+01, 8.909992d+01, 9.936521d+01, &\n               1.091817d+02, 1.189586d+02, 1.286959d+02, 1.429100d+02, &\n               1.562600d+02, 1.696090d+02, 1.816190d+02, 1.930970d+02, &\n               2.032590d+02, 2.121500d+02, 2.187760d+02, 2.238980d+02, &\n               2.243630d+02, 2.168650d+02, 2.011920d+02, 1.769300d+02, &\n               1.503930d+02, 1.278370d+02, 1.086630d+02, 9.236572d+01, &\n               7.851231d+01, 6.660341d+01, 5.638791d+01, 4.764391d+01, &\n               4.017541d+01, 3.381001d+01, 2.836781d+01, 2.373041d+01, &\n               1.979160d+01, 1.645710d+01, 1.364340d+01, 1.127690d+01, &\n               9.292942d+00, 7.619842d+00, 6.216801d+00, 5.046801d+00, &\n               4.076571d+00, 3.276431d+00, 2.620211d+00, 2.084970d+00, &\n               1.650790d+00, 1.300510d+00, 1.019440d+00, 7.951341d-01, &\n               6.167791d-01, 4.758061d-01, 3.650411d-01, 2.785261d-01, &\n               2.113490d-01, 1.594950d-01, 1.197030d-01, 8.934502d-02, &\n               6.600001d-02, 4.758501d-02, 3.270000d-02, 2.000000d-02, &\n               1.000000d-02 /)\n\n       ! Bp [unitless] for 72 levels (73 edges)\n       BP = (/ 1.000000d+00, 9.849520d-01, 9.634060d-01, 9.418650d-01, &\n               9.203870d-01, 8.989080d-01, 8.774290d-01, 8.560180d-01, &\n               8.346609d-01, 8.133039d-01, 7.919469d-01, 7.706375d-01, &\n               7.493782d-01, 7.211660d-01, 6.858999d-01, 6.506349d-01, &\n               6.158184d-01, 5.810415d-01, 5.463042d-01, 4.945902d-01, &\n               4.437402d-01, 3.928911d-01, 3.433811d-01, 2.944031d-01, &\n               2.467411d-01, 2.003501d-01, 1.562241d-01, 1.136021d-01, &\n               6.372006d-02, 2.801004d-02, 6.960025d-03, 8.175413d-09, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00 /)\n\n    ELSE IF ( State_Grid%NZ == 40 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 40-level GISS grid\n       !-----------------------------------------------------------------\n \n       ! Ap [hPa] for 40 levels (41 edges)\n       AP = (/   0.000000,   3.597122,   7.553957,  12.050360, &\n                16.906475,  22.302158,  28.597122,  35.791367, &\n                43.884892,  52.517986,  61.510791,  70.683453, &\n                80.035971,  89.028777,  97.661871, 105.755396, &\n               113.309353, 120.143885, 126.258993, 131.834532, &\n               136.870504, 141.546763, 145.863309, 150.000000, &\n               128.000000, 108.000000,  90.000000,  73.000000, &\n                57.000000,  43.000000,  31.000000,  20.000000, &\n                10.000000,   5.620000,   3.160000,   1.780000, &\n                 1.000000,   0.562000,   0.316000,   0.178000, &\n                 0.100000                                       /)\n \n       ! Bp [unitless] for 40 levels (41 edges)\n       BP = (/ 1.00000000, 0.97601918, 0.94964029, 0.91966427, &\n               0.88729017, 0.85131894, 0.80935252, 0.76139089, &\n               0.70743405, 0.64988010, 0.58992806, 0.52877698, &\n               0.46642686, 0.40647482, 0.34892086, 0.29496403, &\n               0.24460432, 0.19904077, 0.15827338, 0.12110312, &\n               0.08752998, 0.05635492, 0.02757794, 0.00000000, &\n               0.00000000, 0.00000000, 0.00000000, 0.00000000, &\n               0.00000000, 0.00000000, 0.00000000, 0.00000000, &\n               0.00000000, 0.00000000, 0.00000000, 0.00000000, &\n               0.00000000, 0.00000000, 0.00000000, 0.00000000, &\n               0.00000000                                       /)\n     \n       AP_FULLGRID = AP\n       BP_FULLGRID = BP\n#if defined ( MODEL_BCC )\n    ELSE IF ( State_Grid%NZ == 26 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 26-level BCC grid\n       !-----------------------------------------------------------------\n\n       ! Ap [hPa] for 26 levels (27 edges)\n       AP = (/ 0.000000d+00, 0.000000d+00, 2.521360d+02, 7.084990d+02, &\n               1.334443d+03, 2.084739d+03, 2.908949d+03, 3.752191d+03, &\n               4468.96, 5078.225, 5596.111, 6036.322, &\n               6410.509000, 6728.574000, 6998.933000, 7228.744000, &\n               7424.086000, 7590.131000, 7731.271000, 7851.243000, &\n               6160.587000, 4462.334000, 2983.724000, 1805.201000, &\n               988.241800,  489.520900,  219.406700 /)\n\n\n       ! Bp [unitless] for 26 levels (27 edges)\n       BP = (/ 1.000000d+00, 9.851120d-01, 9.534760d-01, 8.962150d-01, &\n               8.176770d-01, 7.235360d-01, 6.201200d-01, 5.143170d-01, &\n               4.243820d-01, 3.479360d-01, 2.829560d-01, 2.277220d-01, &\n               1.807720d-01, 1.408640d-01, 1.069410d-01, 0.781060d-01, &\n               0.535960d-01, 0.327620d-01, 0.150530d-01, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00, &\n               0.000000d+00, 0.000000d+00, 0.000000d+00 /)\n\n       AP_FULLGRID = AP\n       BP_FULLGRID = BP\n#endif\n    ELSE IF ( State_Grid%NZ == 74 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 74-level GISS grid (condensed from 102-layer grid)\n       !\n       !  Bottom   Bottom    # levels\n       !  edge of  edge prs  lumped\n       !  level    (hPa)     together\n       !\n       !  PTOP      0.0020000\n       !    74      0.0320000      4\n       !    73      0.3168814      4\n       !    72      1.0427319      4\n       !    71      2.2207877      4\n       !    70      4.4119297      4\n       !    69      8.7353750      4\n       !    68     17.1896562      4\n       !    67     23.1875000      2\n       !    66     30.2226562      2\n       !    65     38.5546875      2\n       !    64     48.2226562      2\n       !    63     59.2226562      2\n       !    62     71.5546875      2\n       !    61     85.2265625      2\n       ! %%%% START LUMPING LEVELS ABOVE HERE %%%%%\n       !    60     92.5898438\n       !    59    100.3671875\n       !    58    108.5859375\n       !    57    117.1914062\n       !    56    126.0781250\n       !    55    135.1875000\n       !    54    144.5468750\n       !    53    154.1875000\n       ! %%%% FIXED-PRESSURE LEVELS BEGIN HERE %%%%\n       !-----------------------------------------------------------------\n\n       ! Ap [hPa] for 74 levels (75 edges)\n       AP = (/   0.0000000,   2.7871507,   5.5743014,   8.3614521,  11.1486028, &\n                13.9357536,  16.7229043,  19.5100550,  22.2972057,  25.0843564, &\n                27.8715071,  30.6586578,  33.4458085,  36.2329593,  39.0201100, &\n                41.8087123,  44.6089278,  47.4534183,  50.4082336,  53.5662786, &\n                57.0095710,  60.7533531,  64.7323011,  68.8549615,  73.0567364, &\n                77.2969797,  81.5364973,  85.7346430,  89.8565776,  93.8754457, &\n                97.7709243, 101.5277712, 105.1350991, 108.5878272, 111.8859556, &\n               115.0302100, 118.0249453, 120.8854039, 123.6326345, 126.2811535, &\n               128.8360417, 131.2987506, 133.6736353, 135.9708571, 138.2013035, &\n               140.3700552, 142.4814670, 144.5457005, 146.5692881, 148.5464231, &\n               150.4712991, 152.3497225, &\n               154.1875000, 144.5468750, 135.1875000, 126.0781250, 117.1914062, & ! LS1:(LM+1)\n               108.5859375, 100.3671875,  92.5898438, &\n               85.2265625, & ! 2\n               71.5546875, & ! 2\n               59.2226562, & ! 2\n               48.2226562, & ! 2\n               38.5546875, & ! 2\n               30.2226562, & ! 2\n               23.1875000, & ! 2\n               17.1896562, & ! 4\n                8.7353750, & ! 4\n                4.4119297, & ! 4\n                2.2207877, & ! 4\n                1.0427319, & ! 4\n                0.3168814, & ! 4\n                0.0320000, & ! 4\n                0.0020000/)\n\n       ! Bp [unitless] for 74 levels (75 edges)\n       BP = (/1.00000000d0,  0.98192363d0,   0.96384725d0,  0.94577088d0, &\n              0.92769451d0,  0.90961814d0,   0.89154176d0,  0.87346539d0, &\n              0.85538902d0,  0.83731265d0,   0.81923627d0,  0.80115990d0, &\n              0.78308353d0,  0.76500716d0,   0.74693078d0,  0.72884500d0, &\n              0.71068389d0,  0.69223563d0,   0.67307185d0,  0.65259001d0, &\n              0.63025815d0,  0.60597744d0,   0.58017154d0,  0.55343357d0, &\n              0.52618250d0,  0.49868193d0,   0.47118607d0,  0.44395854d0, &\n              0.41722528d0,  0.39116047d0,   0.36589591d0,  0.34153047d0, &\n              0.31813474d0,  0.29574170d0,   0.27435132d0,  0.25395891d0, &\n              0.23453623d0,  0.21598441d0,   0.19816694d0,  0.18098968d0, &\n              0.16441967d0,  0.14844750d0,   0.13304493d0,  0.11814604d0, &\n              0.10368024d0,  0.08961456d0,   0.07592077d0,  0.06253295d0, &\n              0.04940875d0,  0.03658583d0,   0.02410183d0,  0.01191911d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, & ! 53\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0                   /)\n\n       AP_FULLGRID = AP\n       BP_FULLGRID = BP\n       \n    ELSE IF ( State_Grid%NZ == 102 ) THEN\n    \n       !-----------------------------------------------------------------\n       ! 102-level GISS grid\n       !-----------------------------------------------------------------\n       \n       AP = (/ 0.0000000d0,   2.7871507d0,   5.5743014d0,   8.3614521d0, &\n              11.1486028d0,  13.9357536d0,  16.7229043d0,  19.5100550d0, &\n              22.2972057d0,  25.0843564d0,  27.8715071d0,  30.6586578d0, &\n              33.4458085d0,  36.2329593d0,  39.0201100d0,  41.8087123d0, &\n              44.6089278d0,  47.4534183d0,  50.4082336d0,  53.5662786d0, &\n              57.0095710d0,  60.7533531d0,  64.7323011d0,  68.8549615d0, &\n              73.0567364d0,  77.2969797d0,  81.5364973d0,  85.7346430d0, &\n              89.8565776d0,  93.8754457d0,  97.7709243d0, 101.5277712d0, &\n             105.1350991d0, 108.5878272d0, 111.8859556d0, 115.0302100d0, &\n             118.0249453d0, 120.8854039d0, 123.6326345d0, 126.2811535d0, &\n             128.8360417d0, 131.2987506d0, 133.6736353d0, 135.9708571d0, &\n             138.2013035d0, 140.3700552d0, 142.4814670d0, 144.5457005d0, &\n             146.5692881d0, 148.5464231d0, 150.4712991d0, 152.3497225d0, &\n             154.1875000d0, 144.5468750d0, 135.1875000d0, 126.0781250d0, &\n             117.1914062d0, 108.5859375d0, 100.3671875d0,  92.5898438d0, &\n              85.2265625d0,  78.2226562d0,  71.5546875d0,  65.2226562d0, &\n              59.2226562d0,  53.5546875d0,  48.2226562d0,  43.2226562d0, &\n              38.5546875d0,  34.2226562d0,  30.2226562d0,  26.5507812d0, &\n              23.1875000d0,  20.0781250d0,  17.1896562d0,  14.5684375d0, &\n              12.2865742d0,  10.3573086d0,   8.7353750d0,   7.3664922d0, &\n               6.2100156d0,   5.2343633d0,   4.4119297d0,   3.7186797d0, &\n               3.1341479d0,   2.6404328d0,   2.2207877d0,   1.8587369d0, &\n               1.5477125d0,   1.2782115d0,   1.0427319d0,   0.8367716d0, &\n               0.6514691d0,   0.4772511d0,   0.3168814d0,   0.1785988d0, &\n               0.1000000d0,   0.0560000d0,   0.0320000d0,   0.0180000d0, &\n               0.0100000d0,   0.0050000d0,   0.0020000d0                   /)\n\n\n       BP = (/1.00000000d0,  0.98192363d0,   0.96384725d0,  0.94577088d0, &\n              0.92769451d0,  0.90961814d0,   0.89154176d0,  0.87346539d0, &\n              0.85538902d0,  0.83731265d0,   0.81923627d0,  0.80115990d0, &\n              0.78308353d0,  0.76500716d0,   0.74693078d0,  0.72884500d0, &\n              0.71068389d0,  0.69223563d0,   0.67307185d0,  0.65259001d0, &\n              0.63025815d0,  0.60597744d0,   0.58017154d0,  0.55343357d0, &\n              0.52618250d0,  0.49868193d0,   0.47118607d0,  0.44395854d0, &\n              0.41722528d0,  0.39116047d0,   0.36589591d0,  0.34153047d0, &\n              0.31813474d0,  0.29574170d0,   0.27435132d0,  0.25395891d0, &\n              0.23453623d0,  0.21598441d0,   0.19816694d0,  0.18098968d0, &\n              0.16441967d0,  0.14844750d0,   0.13304493d0,  0.11814604d0, &\n              0.10368024d0,  0.08961456d0,   0.07592077d0,  0.06253295d0, &\n              0.04940875d0,  0.03658583d0,   0.02410183d0,  0.01191911d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0,  0.00000000d0, &\n              0.00000000d0,  0.00000000d0,   0.00000000d0                   /)\n              \n       AP_FULLGRID = AP\n       BP_FULLGRID = BP\n\n    ELSE IF ( State_Grid%NZ == 91 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 91 level grid\n       !-----------------------------------------------------------------\n\n       a91_loc = (/1.0000000, 1.7500000, 2.7500000, 4.1000000, 5.9895105,  &\n                   8.6293297, 12.257263, 17.151091, 23.654547, 32.162769,  &\n                   43.131092, 57.110043, 74.659576, 96.447098, 123.16977,  &\n                   155.60132, 194.59401, 241.04753, 295.87384, 360.04697,  &\n                   434.60483, 520.62872, 619.15485, 731.29602, 858.24091,  &\n                   1001.0656, 1160.9286, 1339.0399, 1536.5001, 1754.4894,  &\n                   1994.1783, 2256.6741, 2543.1714, 2854.7639, 3192.5857,  &\n                   3557.7537, 3951.3511, 4374.2866, 4827.1108, 5310.2217,  &\n                   5823.8779, 6369.0425, 6948.7524, 7566.9199, 8226.3428,  &\n                   8931.2100, 9684.4619, 10482.272, 11318.279, 12184.077,  &\n                   13065.567, 13953.221, 14830.729, 15687.262, 16508.064,  &\n                   17281.100, 17994.299, 18636.322, 19196.180, 19664.072,  &\n                   20030.191, 20285.369, 20421.525, 20430.068, 20302.873,  &\n                   20032.371, 19611.066, 19031.385, 18286.643, 17377.793,  &\n                   16322.464, 15144.403, 13872.567, 12540.479, 11183.417,  &\n                   9835.3271, 8526.3066, 7282.2451, 6123.2607, 5063.5068,  &\n                   4111.2490, 3270.0012, 2539.2273, 1915.3076, 1392.4500,  &\n                   963.13477, 620.59937, 357.98950, 169.42139, 51.031494,  &\n                   2.4841309, 0.0000000 /)\n\n       b91_loc = (/0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    0.00000,    0.00000,    &\n                   0.00000,    0.00000,    0.00000,    3.50124e-06,2.81484e-05,&\n                   9.38667e-05,0.000228562,0.000512343,0.00104713, 0.00195625, &\n                   0.00342318, 0.00558632, 0.00865429, 0.0127844,  0.0181720,  &\n                   0.0249935,  0.0334199,  0.0436249,  0.0557769,  0.0700352,  &\n                   0.0865636,  0.105520,   0.127052,   0.151320,   0.178477,   &\n                   0.208676,   0.242069,   0.278814,   0.319043,   0.362559,   &\n                   0.408596,   0.456385,   0.505112,   0.553903,   0.601903,   &\n                   0.648333,   0.692535,   0.733981,   0.772292,   0.807236,   &\n                   0.838725,   0.866775,   0.891497,   0.913065,   0.931703,   &\n                   0.947658,   0.961176,   0.972495,   0.981844,   0.989411,   &\n                   0.995342,   1.00000 /)\n\n       ! Assign AP and BP as reverse of a91_loc and b91_loc, with unit change\n       DO L=1,State_Grid%NZ+1\n          ! Ap [hPa] for 91 levels (91 edges)\n          AP(L) = a91_loc(State_Grid%NZ+2-L)/100.0\n\n          ! Bp [unitless] for 91 levels (92 edges)\n          BP(L) = b91_loc(State_Grid%NZ+2-L)\n       ENDDO\n\n    ELSE IF ( State_Grid%NZ == 132 ) THEN\n\n       !-----------------------------------------------------------------\n       ! 132 level grid\n       !-----------------------------------------------------------------\n\n       ! GEOS-5 132 levels (from /src/GMAO_Shared/GMAO_hermes/m_set_eta.F90\n       ! --------------\n       a132_loc = (/  1.000000,     1.996276,     3.093648,     4.651099,    &\n                      6.804155,     9.711212,     13.553898,    18.536953,   &\n                     24.887674,    32.854966,    42.708057,    54.734916,    &\n                     69.240493,    86.544776,    106.980758,   130.892382,   &\n                     158.632424,   190.560538,   227.041195,   268.441904,   &\n                     315.131439,   367.478204,   425.848769,   490.606509,   &\n                     562.110455,   640.714290,   726.765342,   820.603888,   &\n                     922.562490,   1032.965616,  1152.128995,  1280.359406,  &\n                     1417.954457,  1565.202880,  1722.383803,  1889.767115,  &\n                     2067.613829,  2256.175598,  2455.695564,  2666.408361,  &\n                     2888.539866,  3122.308425,  3367.924596,  3625.591648,  &\n                     3895.506041,  4177.787642,  4472.464900,  4779.536600,  &\n                     5098.971133,  5430.705281,  5774.647623,  6130.914868,  &\n                     6500.271455,  6883.621876,  7281.985387,  7695.829790,  &\n                     8126.006088,  8573.341452,  9039.303976,  9523.598485,  &\n                     10024.837122, 10541.370406, 11071.225963, 11612.410025, &\n                     12161.636274, 12714.691534, 13270.207397, 13824.594107, &\n                     14373.151226, 14914.405313, 15444.869700, 15960.611311, &\n                     16459.769620, 16939.268383, 17396.217121, 17828.450893, &\n                     18233.600515, 18609.343488, 18953.501254, 19264.447677, &\n                     19539.848583, 19778.217887, 19977.939176, 20137.018678, &\n                     20254.734748, 20328.875760, 20358.523606, 20342.231101, &\n                     20278.589963, 20166.744330, 20004.982477, 19792.792832, &\n                     19528.424768, 19211.380327, 18840.138412, 18414.132983, &\n                     17933.325139, 17400.426408, 16819.657745, 16195.578563, &\n                     15532.946677, 14837.558610, 14115.393726, 13372.886551, &\n                     12616.479397, 11852.696266, 11087.800514, 10327.790957, &\n                     9578.207359,  8844.157660,  8129.832058,  7440.098773,  &\n                     6777.003948,  6143.217998,  5541.186971,  4972.725810,  &\n                     4438.905073,  3940.077056,  3475.984433,  3045.886238,  &\n                     2648.697264,  2283.946319,  1951.862407,  1652.526827,  &\n                     1385.902714,  1151.874101,  950.288155,   780.991556,   &\n                     643.875906,   538.919476,   466.225293,   426.071190,   &\n                     0.000000      /)\n\n       b132_loc = (/ 0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000000, &\n                     0.000000, 0.000000, 0.000000, 0.000007, &\n                     0.000024, 0.000059, 0.000112, 0.000198, &\n                     0.000339, 0.000560, 0.000886, 0.001347, &\n                     0.001984, 0.002845, 0.003955, 0.005356, &\n                     0.007104, 0.009223, 0.011758, 0.014755, &\n                     0.018243, 0.022264, 0.026854, 0.032044, &\n                     0.037871, 0.044366, 0.051561, 0.059484, &\n                     0.068168, 0.077639, 0.087925, 0.099055, &\n                     0.111049, 0.123939, 0.137748, 0.152499, &\n                     0.168220, 0.184930, 0.202659, 0.221424, &\n                     0.241254, 0.262166, 0.284188, 0.307337, &\n                     0.331578, 0.356790, 0.382792, 0.409444, &\n                     0.436599, 0.464098, 0.491782, 0.519487, &\n                     0.547056, 0.574335, 0.601181, 0.627461, &\n                     0.653056, 0.677861, 0.701765, 0.724759, &\n                     0.746767, 0.767710, 0.787535, 0.806224, &\n                     0.823790, 0.840276, 0.855742, 0.870260, &\n                     0.883905, 0.896733, 0.908781, 0.920085, &\n                     0.930681, 0.940600, 0.949868, 0.958500, &\n                     0.966498, 0.973850, 0.980526, 0.986474, 1.000000 /)\n\n       ! Assign AP and BP as reverse of a91_loc and b91_loc, with unit change\n       DO L=1,State_Grid%NZ+1\n          ! Ap [hPa] for 132 levels (133 edges)\n          AP(L) = a132_loc(State_Grid%NZ+2-L)/100.0\n\n          ! Bp [unitless] for 132 levels (133 edges)\n          BP(L) = b132_loc(State_Grid%NZ+2-L)\n       ENDDO\n\n#if !defined( MODEL_WRF ) && !defined( MODEL_CESM )\n    ELSE\n\n       WRITE( nLev, * ) State_Grid%NZ\n       ErrMSg = 'Ap and Bp not defined for ' // TRIM( nLev ) // &\n                ' levels. Please add these defintions in pressure_mod.F90.'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n#endif\n\n    ENDIF\n\n    !=======================================================================\n    ! Compute the maximum vertical level in the chemistry grid.\n    ! This corresponds to the 1 hPa level\n    !=======================================================================\n    CALL Init_MaxChemLev( State_Grid, State_Met, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"Init_MaxChemLev\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n#if ( !defined( ESMF_ ) && !defined( MODEL_ ) ) || defined( MODEL_GEOS )\n    ! Echo info to std output (skip if interfacing with external models)\n    IF ( Input_Opt%amIRoot .and. ( .not. Input_Opt%DryRun ) ) THEN\n       WRITE( 6, '(a)'   ) REPEAT( '=', 79 )\n       WRITE( 6, '(a,/)' ) 'V E R T I C A L   G R I D   S E T U P'\n       WRITE( 6, '(a,/)' ) 'INIT_PRESSURE: Vertical coordinates!'\n       WRITE( 6, '( ''Ap '', /, 6(f11.6,1x) )' ) AP(1:State_Grid%NZ+1)\n       WRITE( 6, '(a)'   )\n       WRITE( 6, '( ''Bp '', /, 6(f11.6,1x) )' ) BP(1:State_Grid%NZ+1)\n       WRITE( 6, '(a)'   ) REPEAT( '=', 79 )\n    ENDIF\n#endif\n\n  END SUBROUTINE INIT_PRESSURE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Pressure\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_PRESSURE deallocates all allocated arrays\n!  at the end of a GEOS-Chem model run.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_PRESSURE\n!\n! !REVISION HISTORY:\n!  20 Aug 2002 - D. Abbot & R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( ALLOCATED( AP          ) ) DEALLOCATE( AP          )\n    IF ( ALLOCATED( BP          ) ) DEALLOCATE( BP          )\n    IF ( ALLOCATED( AP_FULLGRID ) ) DEALLOCATE( AP_FULLGRID )\n    IF ( ALLOCATED( BP_FULLGRID ) ) DEALLOCATE( BP_FULLGRID )\n    IF ( ALLOCATED( PFLT_DRY    ) ) DEALLOCATE( PFLT_DRY    )\n    IF ( ALLOCATED( PFLT_WET    ) ) DEALLOCATE( PFLT_WET    )\n#if defined( ESMF_ ) || defined( MODEL_ ) || defined( MODEL_BCC )\n    IF ( ALLOCATED( EXTERNAL_PEDGE ) ) DEALLOCATE( EXTERNAL_PEDGE )\n#endif\n\n  END SUBROUTINE CLEANUP_PRESSURE\n!EOC\n#if defined( ESMF_ ) || defined( MODEL_ )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Accept_External_Pedge\n!\n! !DESCRIPTION: Subroutine ACCEPT\\_EXTERNAL\\_PEDGE sets the GEOS-Chem\n!  pressure edge variable with the values obtained from an external GCM\n!  (such as the NASA GEOS-5 GCM).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Accept_External_Pedge( State_Met, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Met_Mod,      ONLY : MetState\n    USE State_Grid_Mod,     ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(IN)  :: State_Met   ! Meteorology state object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT ARGUMENTS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine is a setter for EXTERNAL_PEDGE.  It allows us to keep the\n!  EXTERNAL_PEDGE array PRIVATE to this module, which is good programming\n!  practice.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: I, J, L\n\n    ! Set EXTERNAL_PEDGE to the pressure edges [hPa] carried in the\n    ! State_Met object, which were obtained from the external GCM\n\n    !$OMP PARALLEL DO       &\n    !$OMP DEFAULT( SHARED ) &\n    !$OMP PRIVATE( I, J, L ) \n    DO I = 1, State_Grid%NX\n    DO J = 1, State_Grid%NY\n    DO L = 1, State_Grid%NZ+1\n\n       EXTERNAL_PEDGE(I,J,L) = State_Met%PEDGE(I,J,L)\n\n    ENDDO\n    ENDDO\n    ENDDO\n\n    ! Return successfully\n    RC             = GC_SUCCESS\n\n  END SUBROUTINE Accept_External_Pedge\n!EOC\n#endif\n#if defined ( MODEL_WRF ) || defined( MODEL_CESM )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Accept_External_ApBp\n!\n! !DESCRIPTION: Subroutine ACCEPT\\_EXTERNAL\\_ApBp sets the GEOS-Chem\n!  hybrid grid AP, BP values with values obtained from an external model,\n!  such as the WRF model.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Accept_External_ApBp( State_Grid, ApIn, BpIn, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)  :: State_Grid            ! Grid State object\n    REAL(fp),       INTENT(IN)  :: ApIn(State_Grid%NZ+1) ! \"A\" term for hybrid grid\n    REAL(fp),       INTENT(IN)  :: BpIn(State_Grid%NZ+1) ! \"B\" term for hybrid grid\n!\n! !OUTPUT ARGUMENTS:\n!\n    INTEGER,        INTENT(OUT) :: RC              ! Success or failure?\n!\n! !REMARKS:\n!  This routine is a setter for AP, BP.  It allows us to keep the\n!  AP, BP array PRIVATE to this module, which is good programming\n!  practice.\n!\n!  For WRF-GC, you need to enable the v3.9+ hybrid-sigma vertical coordinate system\n!  in the WRF model. Set hybrid_opt = 2 in &dynamics, and ./configure -hyb.\n!  Like WRF-GC itself, hybrid-sigma grids are experimental in WRF 3.9+.\n!\n! !REVISION HISTORY:\n!  17 Aug 2018 - H.P. Lin    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    AP             = ApIn\n    BP             = BpIn\n\n    ! Return successfully\n    RC             = GC_SUCCESS\n\n  END SUBROUTINE Accept_External_ApBp\n#endif\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_MaxChemLev\n!\n! !DESCRIPTION: Computes the maximum level at which chemsitry will be\n!  performed. This corresponds to the 1 hPa level.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_MaxChemLev( State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success/failure\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: L\n\n    ! Strings\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Init_MaxChemLev begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Init_MaxChemLev (in GeosUtil/pressure_mod.F90)'\n\n    SELECT CASE( State_Grid%NZ )\n\n       !---------------------------------------------------------------------\n       ! GMAO met fields\n       !\n       ! State_Met%MaxStratLev is the 1 hPa level\n       ! State_Met%MaxChemLev is set to State_Chm%MaxStratLev by default\n       ! (but this could be defined differently if desired)\n       !---------------------------------------------------------------------\n       CASE( 72, 47 )\n          DO L = State_Grid%NZ+1, 1, -1\n             IF ( Get_Ap(L) > 1.0 ) THEN\n                State_Met%MaxChemLev  = L\n                State_Met%MaxStratLev = L\n                EXIT\n             ENDIF\n          ENDDO\n\n       !---------------------------------------------------------------------\n       ! GCAP / ModelE 2.1\n       !\n       ! For now, use the previous definitions to ensure\n       ! zero-diff results w/r/t older GEOS-Chem versions.\n       !---------------------------------------------------------------------\n       CASE( 102 )\n          State_Met%MaxChemLev  = 91\n          State_Met%MaxStratLev = 91\n       CASE( 74 )\n          State_Met%MaxChemLev  = 72\n          State_Met%MaxStratLev = 72\n       CASE( 40 )\n          State_Met%MaxChemLev  = 40\n          State_Met%MaxStratLev = 40\n\n       !---------------------------------------------------------------------\n       ! Otherwise stop with error\n       !---------------------------------------------------------------------\n       CASE DEFAULT\n          ErrMsg =                                                           &\n             'State_Grid%GridRes = ' // Trim( State_Grid%GridRes )        // &\n             ' does not have MaxTropLev and MaxStratLev defined.  Please' // &\n             ' add these definitions to the CASE statement in routine'    // &\n             ' \"Init_MaxChemLev\" (located in GeosUtil/pressure_mod.F90).' \n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    END SELECT\n\n  END SUBROUTINE Init_MaxChemLev\n!EOC\nEND MODULE PRESSURE_MOD\n"
  },
  {
    "path": "GeosUtil/print_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: print_mod.F90\n!\n! !DESCRIPTION: Module PRINT\\_MOD contains routines which are used as a\n!  general utility to print various quantities to log for debugging\n!  or informational purposes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Print_Mod\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Error_Mod\n  USE PhysConstants\n  USE Precision_Mod\n  USE Input_Opt_Mod,  ONLY : OptInput\n  USE State_Chm_Mod,  ONLY : ChmState\n  USE State_Chm_Mod,  ONLY : Ind_\n  USE State_Grid_Mod, ONLY : GrdState\n  USE State_Met_Mod,  ONLY : MetState\n  USE UnitConv_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Print_Species_Min_Max_Sum\n  PUBLIC :: Print_Species_Global_Mass\n  PUBLIC :: Print_Species_Global_Mass_From_VVDry\n!\n! !REMARKS:\n!\n!\n! !REVISION HISTORY:\n!  15 Oct 20324 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Species_Min_Max_Sum\n!\n! !DESCRIPTION: Subroutine Print\\_Species\\_Min\\_Max\\_Sum prints the\n!   minimum, maximum, and sum of species concentrations on the root thread\n!   to log. The default is to write all species. Arguments can be passed to\n!   to specify start index and stop index of State_Chm%Species array to\n!   limit species to one species or a consecutive sequence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Species_Min_Max_Sum( msg, Input_Opt, State_Chm,  &\n                                        RC,  nStart,    nStop        )\n!\n! !INPUT PARAMETERS:\n!\n\n    CHARACTER(LEN=*), INTENT(IN)           :: msg       ! Message to print\n    TYPE(OptInput),   INTENT(IN)           :: Input_Opt ! Input Options object\n    TYPE(ChmState),   INTENT(IN)           :: State_Chm ! Chemistry State object\n    INTEGER,          INTENT(IN), OPTIONAL :: nStart    ! Index of 1st species to print\n    INTEGER,          INTENT(IN), OPTIONAL :: nStop     ! Index of last species to print\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC     ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  07 Oct 2024 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N, N_Start, N_Stop\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, errLoc, units\n\n    !========================================================================\n    ! Print_Species_Min_Max_Sum begins here!\n    !========================================================================\n\n    RC     = GC_SUCCESS\n    errMsg = ''\n    errLoc = ' -> at Print_Species_Min_Max_Sum (in GeosUtil/print_mod.F90)'\n\n    ! Set defaults\n    N_START = 1\n    N_STOP = State_Chm%nSpecies\n\n    ! Override with optional args\n    IF ( PRESENT(nStart) ) N_START = nStart\n    IF ( PRESENT(nStop ) ) N_STOP  = nStop\n\n    ! Write to log\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE(6,*) TRIM(msg) // ' (' // TRIM(UNIT_STR(State_Chm%Species(1)%Units)) // ')'\n       DO N = N_START, N_STOP\n          WRITE( 6, 120 ) N, TRIM( State_Chm%SpcData(N)%Info%Name ), &\n               MINVAL( State_Chm%Species(N)%Conc(:,:,:) ), &\n               MAXVAL( State_Chm%Species(N)%Conc(:,:,:) ), &\n               SUM ( State_Chm%Species(N)%Conc(:,:,:) )\n       ENDDO\n    ENDIF\n120 FORMAT( '   Species ', i3, ', ', a8, ': Min = ', es15.9, &\n         '  Max = ',es15.9, '  Sum = ',es15.9)\n\n  END SUBROUTINE Print_Species_Min_Max_Sum\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Species_Global_Mass\n!\n! !DESCRIPTION: Subroutine Print\\_Species\\_Global\\_Mass prints the\n!   global sum of species mass in kg on the root thread to log.\n!   The default is to write all species. Arguments can be passed to\n!   to specify start index and stop index of State_Chm%Species array to\n!   limit species to one species or a consecutive sequence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Species_Global_Mass( msg,        Input_Opt,   State_Chm,  &\n                                        State_Met,  State_Grid,  RC,         &\n                                        nStart,     nStop                   )\n!\n! !INPUT PARAMETERS:\n!\n\n    CHARACTER(LEN=*), INTENT(IN)           :: msg        ! Message to print\n    TYPE(OptInput),   INTENT(IN)           :: Input_Opt  ! Input Options\n    TYPE(MetState),   INTENT(IN)           :: State_Met  ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)           :: State_Grid ! Grid State object\n    INTEGER,          INTENT(IN), OPTIONAL :: nStart     ! Index of 1st spc\n    INTEGER,          INTENT(IN), OPTIONAL :: nStop      ! Index of last spc\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n\n    TYPE(ChmState),   INTENT(INOUT)        :: State_Chm  ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)          :: RC         ! Success or failure?\n!\n! !REMARKS:\n!  You may see very small numerical differences when comparing results\n!  from a simulation where Print_Species_Global_Mass has been called to a\n!  simulation where it has not been called.  This is because there is an\n!  additional unit conversion in Print_Species_Global_Mass, which may\n!  cause numerical noise in the species concentration array.\n!\n! !REVISION HISTORY:\n!  07 Oct 2024 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N, N_Start, N_Stop, previous_units\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, errLoc, units\n\n    !========================================================================\n    ! Print_Species_Global_Mass begins here!\n    !========================================================================\n\n    RC     = GC_SUCCESS\n    errMsg = ''\n    errLoc = ' -> at Print_Species_Global_Mass (in GeosUtil/print_mod.F90)'\n\n    ! Set defaults\n    N_START = 1\n    N_STOP = State_Chm%nSpecies\n\n    ! Override with optional args\n    IF ( PRESENT( nStart) ) N_START = nStart\n    IF ( PRESENT( nStop ) ) N_STOP  = nStop\n\n    ! Convert species to kg if needed\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Write to log\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a)' ) 'Global mass sum of each species [kg]'\n       IF ( LEN_TRIM ( msg ) > 0 ) WRITE( 6, '(a)' ) TRIM( msg )\n       DO N = N_START, N_STOP\n          WRITE( 6, 130 ) N, TRIM( State_Chm%SpcData(N)%Info%Name ),         &\n                             SUM( State_Chm%Species(N)%Conc )\n       ENDDO\n    ENDIF\n\n    ! Convert species to original units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = previous_units,                                    &\n         RC             = RC                                                )\n\n130 FORMAT( '   Species ', i3, ', ', a9, ': Global mass = ', es15.9 )\n\n  END SUBROUTINE Print_Species_Global_Mass\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Species_Global_Mass\n!\n! !DESCRIPTION: Subroutine Print\\_Species\\_Global\\_Mass prints the\n!   global sum of species mass in kg on the root thread to log.\n!   The default is to write all species. Arguments can be passed to\n!   to specify start index and stop index of State_Chm%Species array to\n!   limit species to one species or a consecutive sequence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Species_Global_Mass_From_VVDry( msg,        Input_Opt,    &\n                                                   State_Chm,  State_Met,    &\n                                                   State_Grid, RC,           &\n                                                   nStart,     nStop        )\n!\n! !INPUT PARAMETERS:\n!\n\n    CHARACTER(LEN=*), INTENT(IN)    :: msg        ! Message to print\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(MetState),   INTENT(IN)    :: State_Met  ! Meteorology State object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid ! Grid State object\n    INTEGER,          OPTIONAL      :: nStart     ! Index of 1st species\n    INTEGER,          OPTIONAL      :: nStop      ! Index of last species\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm  ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC         ! Success or failure?\n!\n! !REMARKS:\n!  This routine prints species global masses without modifying the\n!  State_Chm%Species array.  This should prevent very small numerical\n!  differences caused by roundoff.\n!\n! !REVISION HISTORY:\n!  05 Mar 2026 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,       N_Start, N_Stop\n\n    ! Arrays\n    REAL(fp)           :: conv(State_Grid%NX,State_Grid%NY,State_Grid%NZ)\n\n    !========================================================================\n    ! Print_Species_Global_Mass_From_VVDry begins here!\n    !========================================================================\n\n    ! Set defaults\n    N_START = 1\n    N_STOP = State_Chm%nSpecies\n\n    ! Override with optional args\n    IF ( PRESENT( nStart ) ) N_START = nStart\n    IF ( PRESENT( nStop  ) ) N_STOP  = nStop\n\n    ! Write to log\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(a)' ) 'Global mass sum of each species [kg]'\n       IF ( LEN_TRIM ( msg ) > 0 ) WRITE( 6, '(a)' ) TRIM( msg )\n\n       ! Loop over species\n       DO N = N_START, N_STOP\n\n          ! Conversion from [mol/mol dry] -> [kg]\n          conv = State_Met%AD * ( State_Chm%SpcData(N)%Info%MW_g / AIRMW )\n\n          ! Print species mass in kg\n          WRITE( 6, 10 ) N, TRIM( State_Chm%SpcData(N)%Info%Name  ),         &\n                            SUM( State_Chm%Species(N)%Conc * conv )\n       ENDDO\n    ENDIF\n\n 10 FORMAT( '   Species ', i3, ', ', a9, ': Global mass = ', es15.9 )\n\n  END SUBROUTINE Print_Species_Global_Mass_From_VVDry\n!EOC\nEND MODULE Print_Mod\n"
  },
  {
    "path": "GeosUtil/regrid_a2a_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: regrid_a2a_mod.F90\n!\n! !DESCRIPTION: Module REGRID\\_A2A\\_MOD uses an algorithm adapted from\n!  MAP\\_A2A code to regrid from one horizontal grid to another.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Regrid_A2A_Mod\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Map_A2A\n\n  ! Map_A2A overloads these routines\n  INTERFACE Map_A2A\n    MODULE PROCEDURE Map_A2A_R8R8\n    MODULE PROCEDURE Map_A2A_R4R8\n    MODULE PROCEDURE Map_A2A_R4R4\n    MODULE PROCEDURE Map_A2A_R8R4\n  END INTERFACE Map_A2A\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Map_A2A_R8R8\n  PRIVATE :: Map_A2A_R4R4\n  PRIVATE :: Map_A2A_R4R8\n  PRIVATE :: Map_A2A_R8R4\n  PRIVATE :: Ymap_R8R8\n  PRIVATE :: Ymap_R4R8\n  PRIVATE :: Ymap_R4R4\n  PRIVATE :: Ymap_R8R4\n  PRIVATE :: Xmap_R8R8\n  PRIVATE :: Xmap_R4R4\n  PRIVATE :: Xmap_R4R8\n  PRIVATE :: Xmap_R8R4\n!\n! !REVISION HISTORY:\n!  13 Mar 2012 - M. Cooper   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  !---------------------------------------------------------------------------\n  ! Physical constants taken from the GEOS-Chem \"physconstants.F90\" module,\n  ! which uses values from NIST 2014. (ewl, bmy, 03 Mar 2022)\n  !---------------------------------------------------------------------------\n  REAL(fp), PARAMETER :: PI = 3.14159265358979323_fp        ! Pi\n  REAL(fp), PARAMETER :: Re = 6.3710072e+6_fp               ! Earth radius [m]\n\n  !---------------------------------------------------------------------------\n  ! Tiny numbers for single and double precision. These are being used for\n  ! skipping missing values. miss_r4 and miss_r8 are the default missing values\n  ! for single and double precision, respectively. (ckeller, 4/8/2017)\n  !---------------------------------------------------------------------------\n  REAL*4, PARAMETER   :: tiny_r4 = 1.0e-30  !1.0e-20\n  REAL*4, PARAMETER   :: miss_r4 = 0.0e0\n  REAL*8, PARAMETER   :: tiny_r8 = 1.0d-40\n  REAL*8, PARAMETER   :: miss_r8 = 0.0d0\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Map_A2A_r8r8\n!\n! !DESCRIPTION: Subroutine MAP\\_A2A\\_R8R8 is a horizontal arbitrary grid to\n!  arbitrary grid conservative high-order mapping regridding routine by S-J\n!  Lin.  Both the input data and output data have REAL(fp) precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Map_A2A_r8r8( im, jm, lon1, sin1, q1, &\n                           in, jn, lon2, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Longitude and Latitude dimensions of INPUT grid\n    INTEGER, INTENT(IN)  :: im, jm\n\n    ! Longitude and Latitude dimensions of OUTPUT grid\n    INTEGER, INTENT(IN)  :: in, jn\n\n    ! IG=0: pole to pole;\n    ! IG=1 J=1 is half-dy north of south pole\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: Regrid scalar quantity\n    ! IV=1: Regrid vector quantity\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Longitude edges (degrees) of INPUT and OUTPUT grids\n    REAL*8,  INTENT(IN)  :: lon1(im+1), lon2(in+1)\n\n    ! Sine of Latitude Edges (radians) of INPUT and OUTPUT grids\n    REAL*8,  INTENT(IN)  :: sin1(jm+1), sin2(jn+1)\n\n    ! Quantity on INPUT grid\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Regridded quantity on OUTPUT grid\n    REAL*8,  INTENT(OUT) :: q2(in,jn)\n!\n! !OPTIONAL ARGUMENTS\n!\n    REAL*8,  INTENT(IN), OPTIONAL :: missval\n!\n! !REMARKS:\n!  This routine is overloaded by the MAP_A2A interface.\n!\n! !REVISION HISTORY:\n!  (1) Original subroutine by S-J Lin.  Converted to F90 freeform format\n!      and inserted into \"Geos3RegridModule\" by Bob Yantosca (9/21/00)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i,j,k\n    REAL*8  :: qtmp(in,jm)\n\n    ! Init\n    IF ( PRESENT(missval) ) THEN\n       qtmp = missval\n       q2   = missval\n    ELSE\n       qtmp = miss_r8\n       q2   = miss_r8\n    ENDIF\n\n    !===================================================================\n    ! E-W regridding\n    !===================================================================\n    IF ( im         == in         .and. &\n         lon1(1)    == lon2(1)    .and. &\n         lon1(im+1) == lon2(in+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes\n       ! but save the input data in the QTMP array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,im\n          qtmp(i,j+ig) = q1(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call XMAP to regrid in the E-W direction\n       CALL xmap_r8r8(im, jm-ig, lon1, q1(1,1+ig),in, lon2, qtmp(1,1+ig), &\n                      missval=missval )\n\n    ENDIF\n\n    !===================================================================\n    ! N-S regridding\n    !===================================================================\n    IF ( jm         == jn         .and. &\n         sin1(1)    == sin2(1)    .and. &\n         sin1(jm+1) == sin2(jn+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes,\n       ! but assign the value of QTMP to the output Q2 array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,in\n          q2(i,j+ig) = qtmp(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call YMAP to regrid in the N-S direction\n       CALL ymap_r8r8(in, jm, sin1, qtmp(1,1+ig), jn, sin2, q2(1,1+ig), ig, iv, &\n                      missval=missval )\n\n    ENDIF\n\n  END SUBROUTINE Map_A2A_r8r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Map_A2A_r4r4\n!\n! !DESCRIPTION: Subroutine MAP\\_A2A\\_R4R4 is a horizontal arbitrary grid\n!  to arbitrary grid conservative high-order mapping regridding routine\n!  by S-J Lin.  Both the input and output data have REAL*4 precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Map_A2A_r4r4( im, jm, lon1, sin1, q1, &\n                           in, jn, lon2, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Longitude and Latitude dimensions of INPUT grid\n    INTEGER, INTENT(IN)  :: im, jm\n\n    ! Longitude and Latitude dimensions of OUTPUT grid\n    INTEGER, INTENT(IN)  :: in, jn\n\n    ! IG=0: pole to pole;\n    ! IG=1 J=1 is half-dy north of south pole\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: Regrid scalar quantity\n    ! IV=1: Regrid vector quantity\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Longitude edges (degrees) of INPUT and OUTPUT grids\n    REAL*4,  INTENT(IN)  :: lon1(im+1), lon2(in+1)\n\n    ! Sine of Latitude Edges (radians) of INPUT and OUTPUT grids\n    REAL*4,  INTENT(IN)  :: sin1(jm+1), sin2(jn+1)\n\n    ! Quantity on INPUT grid\n    REAL*4,  INTENT(IN)  :: q1(im,jm)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Regridded quantity on OUTPUT grid\n    REAL*4,  INTENT(OUT) :: q2(in,jn)\n!\n! !OPTIONAL ARGUMENTS\n!\n    REAL*4,  INTENT(IN), OPTIONAL :: missval\n!\n! !REMARKS:\n!  This routine is overloaded by the MAP_A2A interface.\n!\n! !REVISION HISTORY:\n!  (1) Original subroutine by S-J Lin.  Converted to F90 freeform format\n!      and inserted into \"Geos3RegridModule\" by Bob Yantosca (9/21/00)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i,j,k\n    REAL*4  :: qtmp(in,jm)\n\n    ! Init\n    IF ( PRESENT(missval) ) THEN\n       qtmp = missval\n       q2   = missval\n    ELSE\n       qtmp = miss_r4\n       q2   = miss_r4\n    ENDIF\n\n    !===================================================================\n    ! E-W regridding\n    !===================================================================\n    IF ( im         == in         .and. &\n         lon1(1)    == lon2(1)    .and. &\n         lon1(im+1) == lon2(in+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes\n       ! but save the input data in the QTMP array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,im\n          qtmp(i,j+ig) = q1(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call XMAP to regrid in the E-W direction\n       CALL xmap_r4r4(im, jm-ig, lon1, q1(1,1+ig),in, lon2, qtmp(1,1+ig), &\n                      missval=missval )\n\n    ENDIF\n\n    !===================================================================\n    ! N-S regridding\n    !===================================================================\n    IF ( jm         == jn         .and. &\n         sin1(1)    == sin2(1)    .and. &\n         sin1(jm+1) == sin2(jn+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes,\n       ! but assign the value of QTMP to the output Q2 array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,in\n          q2(i,j+ig) = qtmp(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call YMAP to regrid in the N-S direction\n       CALL ymap_r4r4(in, jm, sin1, qtmp(1,1+ig), jn, sin2, q2(1,1+ig), ig, iv, &\n                      missval=missval)\n\n    ENDIF\n\n  END SUBROUTINE Map_A2A_r4r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Map_A2A_r4r8\n!\n! !DESCRIPTION: Subroutine MAP\\_A2A\\_R4R8 is a horizontal arbitrary grid to\n!  arbitrary grid conservative high-order mapping regridding routine by\n!  S-J Lin.  The input data has REAL*4 precision, but the output argument\n!  has REAL(fp) precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Map_A2A_r4r8( im, jm, lon1, sin1, q1, &\n                           in, jn, lon2, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Longitude and Latitude dimensions of INPUT grid\n    INTEGER, INTENT(IN)  :: im, jm\n\n    ! Longitude and Latitude dimensions of OUTPUT grid\n    INTEGER, INTENT(IN)  :: in, jn\n\n    ! IG=0: pole to pole;\n    ! IG=1 J=1 is half-dy north of south pole\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: Regrid scalar quantity\n    ! IV=1: Regrid vector quantity\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Longitude edges (degrees) of INPUT and OUTPUT grids\n    REAL*4,  INTENT(IN)  :: lon1(im+1), lon2(in+1)\n\n    ! Sine of Latitude Edges (radians) of INPUT and OUTPUT grids\n    REAL*4,  INTENT(IN)  :: sin1(jm+1), sin2(jn+1)\n\n    ! Quantity on INPUT grid\n    REAL*4,  INTENT(IN)  :: q1(im,jm)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Regridded quantity on OUTPUT grid\n    REAL*8,  INTENT(OUT) :: q2(in,jn)\n!\n! !OPTIONAL ARGUMENTS\n!\n    REAL*4,  INTENT(IN), OPTIONAL :: missval\n!\n! !REMARKS:\n!  This routine is overloaded by the MAP_A2A interface.\n!\n! !REVISION HISTORY:\n!  (1) Original subroutine by S-J Lin.  Converted to F90 freeform format\n!      and inserted into \"Geos3RegridModule\" by Bob Yantosca (9/21/00)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i,j,k\n    REAL*8  :: qtmp(in,jm)\n\n    ! Init\n    IF ( PRESENT(missval) ) THEN\n       qtmp = real(missval,8)\n       q2   = real(missval,8)\n    ELSE\n       qtmp = miss_r8\n       q2   = miss_r8\n    ENDIF\n\n    !===================================================================\n    ! E-W regridding\n    !===================================================================\n    IF ( im         == in         .and. &\n         lon1(1)    == lon2(1)    .and. &\n         lon1(im+1) == lon2(in+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes\n       ! but save the input data in the QTMP array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,im\n          qtmp(i,j+ig) = q1(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call XMAP to regrid in the E-W direction\n       CALL xmap_r4r8(im, jm-ig, lon1, q1(1,1+ig),in, lon2, qtmp(1,1+ig), &\n                      missval=missval )\n\n    ENDIF\n\n    !===================================================================\n    ! N-S regridding\n    !===================================================================\n    IF ( jm         == jn         .and. &\n         sin1(1)    == sin2(1)    .and. &\n         sin1(jm+1) == sin2(jn+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes,\n       ! but assign the value of QTMP to the output Q2 array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,in\n          q2(i,j+ig) = qtmp(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call YMAP to regrid in the N-S direction\n       CALL ymap_r4r8(in, jm, sin1, qtmp(1,1+ig), jn, sin2, q2(1,1+ig), ig, iv, &\n                      missval=missval )\n\n    ENDIF\n\n  END SUBROUTINE Map_A2A_r4r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Map_A2A_r8r4\n!\n! !DESCRIPTION: Subroutine MAP\\_A2A\\_R8R4 is a horizontal arbitrary grid to\n!  arbitrary grid conservative high-order mapping regridding routine by\n!  S-J Lin.  The input data has REAL*8 precision, but the output argument\n!  has REAL*4 precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Map_A2A_r8r4( im, jm, lon1, sin1, q1, &\n                           in, jn, lon2, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Longitude and Latitude dimensions of INPUT grid\n    INTEGER, INTENT(IN)  :: im, jm\n\n    ! Longitude and Latitude dimensions of OUTPUT grid\n    INTEGER, INTENT(IN)  :: in, jn\n\n    ! IG=0: pole to pole;\n    ! IG=1 J=1 is half-dy north of south pole\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: Regrid scalar quantity\n    ! IV=1: Regrid vector quantity\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Longitude edges (degrees) of INPUT and OUTPUT grids\n    REAL*4,  INTENT(IN)  :: lon1(im+1), lon2(in+1)\n\n    ! Sine of Latitude Edges (radians) of INPUT and OUTPUT grids\n    REAL*4,  INTENT(IN)  :: sin1(jm+1), sin2(jn+1)\n\n    ! Quantity on INPUT grid\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Regridded quantity on OUTPUT grid\n    REAL*4,  INTENT(OUT) :: q2(in,jn)\n!\n! !OPTIONAL ARGUMENTS\n!\n    REAL*8,  INTENT(IN), OPTIONAL :: missval\n!\n! !REMARKS:\n!  This routine is overloaded by the MAP_A2A interface.\n!\n! !REVISION HISTORY:\n!  (1) Original subroutine by S-J Lin.  Converted to F90 freeform format\n!      and inserted into \"Geos3RegridModule\" by Bob Yantosca (9/21/00)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i,j,k\n    REAL*4  :: qtmp(in,jm)\n\n    ! Init\n    IF ( PRESENT(missval) ) THEN\n       qtmp = real(missval,4)\n       q2   = real(missval,4)\n    ELSE\n       qtmp = miss_r4\n       q2   = miss_r4\n    ENDIF\n\n    !===================================================================\n    ! E-W regridding\n    !===================================================================\n    IF ( im         == in         .and. &\n         lon1(1)    == lon2(1)    .and. &\n         lon1(im+1) == lon2(in+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes\n       ! but save the input data in the QTMP array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,im\n          qtmp(i,j+ig) = q1(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call XMAP to regrid in the E-W direction\n       CALL xmap_r8r4(im, jm-ig, lon1, q1(1,1+ig),in, lon2, qtmp(1,1+ig), &\n                      missval=missval )\n\n    ENDIF\n\n    !===================================================================\n    ! N-S regridding\n    !===================================================================\n    IF ( jm         == jn         .and. &\n         sin1(1)    == sin2(1)    .and. &\n         sin1(jm+1) == sin2(jn+1)        ) THEN\n\n       ! Don't call XMAP if both grids have the same # of longitudes,\n       ! but assign the value of QTMP to the output Q2 array\n       !$OMP PARALLEL DO       &\n       !$OMP DEFAULT( SHARED ) &\n       !$OMP PRIVATE( I, J )\n       DO j=1,jm-ig\n       DO i=1,in\n          q2(i,j+ig) = qtmp(i,j+ig)\n       ENDDO\n       ENDDO\n       !$OMP END PARALLEL DO\n\n    ELSE\n\n       ! Otherwise, call YMAP to regrid in the N-S direction\n       CALL ymap_r4r4(in, jm, sin1, qtmp(1,1+ig), jn, sin2, q2(1,1+ig), ig, iv, &\n                      missval=real(missval,4))\n\n    ENDIF\n\n  END SUBROUTINE Map_A2A_r8r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ymap_r8r8\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in N-S from an\n!  arbitrary resolution to another.  Both the input and output arguments\n!  have REAL(fp) precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ymap_r8r8(im, jm, sin1, q1, jn, sin2, q2, ig, iv, missval )\n!\n! !INPUT PARAMETERS:\n!\n    ! original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Target N-S dimension\n    INTEGER, INTENT(IN)  :: jn\n\n    ! IG=0: scalars from SP to NP (D-grid v-wind is also IG=0)\n    ! IG=1: D-grid u-wind\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: scalar;\n    ! IV=1: vector\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Original southern edge of the cell sin(lat1)\n    REAL*8,  INTENT(IN)  :: sin1(jm+1-ig)\n\n    ! Original data at center of the cell\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's southern edge sin(lat2)\n    REAL*8,  INTENT(IN)  :: sin2(jn+1-ig)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN), OPTIONAL :: missval\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*8,  INTENT(OUT) :: q2(im,jn)\n!\n! !REMARKS:\n!\n!   sin1 (1) = -1 must be south pole; sin1(jm+1)=1 must be N pole.\n!\n!   sin1(1) < sin1(2) < sin1(3) < ... < sin1(jm) < sin1(jm+1)\n!   sin2(1) < sin2(2) < sin2(3) < ... < sin2(jn) < sin2(jn+1)!\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i, j0, m, mm, j\n    REAL*8               :: dy1(jm)\n    REAL*8               :: dy\n    REAL*8               :: qsum, sum\n    REAL*8               :: dlat, nlon, miss\n\n    ! YMAP begins here!\n    do j=1,jm-ig\n       dy1(j) = sin1(j+1) - sin1(j)\n    enddo\n\n    ! Missing value\n    miss = miss_r8\n    if ( present(missval) ) miss=missval\n\n    !===============================================================\n    ! Area preserving mapping\n    !===============================================================\n\n    !$OMP PARALLEL DO                                &\n    !$OMP DEFAULT( SHARED                          ) &\n    !$OMP PRIVATE( I, J0, J, M, QSUM, DLAT, MM, DY )\n    do 1000 i=1,im\n       qsum = 0.0d0\n       dlat = 0.0d0\n       j0 = 1\n       do 555 j=1,jn-ig\n       do 100 m=j0,jm-ig\n\n          !=========================================================\n          ! locate the southern edge: sin2(i)\n          !=========================================================\n          if(sin2(j) .ge. sin1(m) .and. sin2(j) .le. sin1(m+1)) then\n\n             if(sin2(j+1) .le. sin1(m+1)) then\n\n                ! entire new cell is within the original cell\n                if( abs(q1(i,m)-miss)>tiny_r8 ) q2(i,j)=q1(i,m)\n                j0 = m\n                goto 555\n             else\n\n                ! South most fractional area\n                if( abs(q1(i,m)-miss)>tiny_r8 ) then\n                   dlat= sin1(m+1)-sin2(j)\n                   qsum=(sin1(m+1)-sin2(j))*q1(i,m)\n                endif\n\n                do mm=m+1,jm-ig\n\n                   ! locate the northern edge: sin2(j+1)\n                   if(sin2(j+1) .gt. sin1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(q1(i,mm)-miss)>tiny_r8 ) then\n                         dlat = dlat + dy1(mm)\n                         qsum = qsum + dy1(mm)*q1(i,mm)\n                      endif\n                   else\n\n                      ! North most fractional area\n                      dy = sin2(j+1)-sin1(mm)\n                      if ( abs(q1(i,mm)-miss)>tiny_r8 ) then\n                         qsum=qsum+dy*q1(i,mm)\n                         dlat=dlat+dy\n                      endif\n                      j0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n!123    q2(i,j) = qsum / ( sin2(j+1) - sin2(j) )\n123    if ( ABS( dlat ) > 0.0d0 ) q2(i,j) = qsum / dlat\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n     !===================================================================\n     ! Final processing for poles\n     !===================================================================\n     if ( ig .eq. 0 .and. iv .eq. 0 ) then\n\n        ! South pole\n        if ( sin2(1) .eq. -1.0_fp ) then\n          sum = 0.e+0_fp\n          nlon= 0.0d0\n          do i=1,im\n             if(abs(q2(i,1)-miss)>tiny_r8 ) then\n                sum = sum + q2(i,1)\n                nlon= nlon + 1.0d0\n             endif\n          enddo\n\n          if ( nlon > 0.0d0 ) sum = sum / nlon\n          do i=1,im\n             q2(i,1) = sum\n          enddo\n        endif\n\n        ! North pole:\n        if( sin2(jn+1) .eq. 1.0_fp ) then\n          sum = 0.e+0_fp\n          nlon= 0.0d0\n          do i=1,im\n             if( abs(q2(i,jn)-miss)>tiny_r8 ) then\n                sum = sum + q2(i,jn)\n                nlon= nlon + 1.0d0\n             endif\n          enddo\n\n          if ( nlon > 0.0d0 ) sum = sum / DBLE( im )\n          do i=1,im\n             q2(i,jn) = sum\n          enddo\n        endif\n\n     endif\n\n   END SUBROUTINE ymap_r8r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ymap_r4r8\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in N-S from an\n!  arbitrary resolution to another.  The input argument has REAL*4 precision\n!  but the output argument has REAL(fp) precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ymap_r4r8(im, jm, sin1, q1, jn, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n\n    ! original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Target N-S dimension\n    INTEGER, INTENT(IN)  :: jn\n\n    ! IG=0: scalars from SP to NP (D-grid v-wind is also IG=0)\n    ! IG=1: D-grid u-wind\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: scalar;\n    ! IV=1: vector\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Original southern edge of the cell sin(lat1)\n    REAL*4,  INTENT(IN)  :: sin1(jm+1-ig)\n\n    ! Original data at center of the cell\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's southern edge sin(lat2)\n    REAL*4,  INTENT(IN)  :: sin2(jn+1-ig)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    REAL*4,  INTENT(IN), OPTIONAL :: missval\n!\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*8,  INTENT(OUT) :: q2(im,jn)\n!\n! !REMARKS:\n!\n!   sin1 (1) = -1 must be south pole; sin1(jm+1)=1 must be N pole.\n!\n!   sin1(1) < sin1(2) < sin1(3) < ... < sin1(jm) < sin1(jm+1)\n!   sin2(1) < sin2(2) < sin2(3) < ... < sin2(jn) < sin2(jn+1)!\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i, j0, m, mm, j\n    REAL*8               :: dy1(jm)\n    REAL*8               :: dy\n    REAL*8               :: qsum, dlat, nlon, sum\n    REAL*4               :: miss\n\n    ! YMAP begins here!\n    do j=1,jm-ig\n       dy1(j) = sin1(j+1) - sin1(j)\n    enddo\n\n    ! Missing value\n    miss = miss_r4\n    if ( present(missval) ) miss=missval\n\n    !===============================================================\n    ! Area preserving mapping\n    !===============================================================\n\n    !$OMP PARALLEL DO                                &\n    !$OMP DEFAULT( SHARED                          ) &\n    !$OMP PRIVATE( I, J0, J, M, QSUM, DLAT, MM, DY )\n    do 1000 i=1,im\n       qsum = 0.0d0\n       dlat = 0.0d0\n       j0 = 1\n       do 555 j=1,jn-ig\n       do 100 m=j0,jm-ig\n\n          !=========================================================\n          ! locate the southern edge: sin2(i)\n          !=========================================================\n          if(sin2(j) .ge. sin1(m) .and. sin2(j) .le. sin1(m+1)) then\n\n             if(sin2(j+1) .le. sin1(m+1)) then\n\n                ! entire new cell is within the original cell\n                if ( abs(q1(i,m)-miss)>tiny_r4 ) q2(i,j)=q1(i,m)\n                j0 = m\n                goto 555\n             else\n\n                ! South most fractional area\n                if( abs(q1(i,m)-miss)>tiny_r4 ) then\n                   dlat= sin1(m+1)-sin2(j)\n                   qsum=(sin1(m+1)-sin2(j))*q1(i,m)\n                endif\n\n                do mm=m+1,jm-ig\n\n                   ! locate the northern edge: sin2(j+1)\n                   if(sin2(j+1) .gt. sin1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(q1(i,mm)-miss)>tiny_r4 ) then\n                         qsum = qsum + dy1(mm)*q1(i,mm)\n                         dlat = dlat + dy1(mm)\n                      endif\n                   else\n\n                      ! North most fractional area\n                      if( abs(q1(i,mm)-miss)>tiny_r4 ) then\n                         dy = sin2(j+1)-sin1(mm)\n                         qsum=qsum+dy*q1(i,mm)\n                         dlat=dlat+dy\n                      endif\n                      j0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    if ( ABS( dlat ) > 0.0d0 ) q2(i,j) = qsum / dlat\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n     !===================================================================\n     ! Final processing for poles\n     !===================================================================\n     if ( ig .eq. 0 .and. iv .eq. 0 ) then\n\n        ! South pole:\n        if ( sin2(1) .eq. -1.0_fp ) then\n          sum = 0.e+0_fp\n          nlon= 0.0d0\n          do i=1,im\n             if( abs(q2(i,1)-miss)>tiny_r4 ) then\n                sum = sum + q2(i,1)\n                nlon = nlon + 1.0d0\n             endif\n          enddo\n\n          if ( nlon > 0.0d0 ) sum = sum / nlon\n          do i=1,im\n             q2(i,1) = sum\n          enddo\n        endif\n\n        ! North pole:\n        if( sin2(jn+1) .eq. 1.0_fp ) then\n          sum = 0.e+0_fp\n          nlon = 0.0d0\n          do i=1,im\n             if( abs(q2(i,jn)-miss)>tiny_r4 ) then\n                sum = sum + q2(i,jn)\n                nlon = nlon + 1.0d0\n             endif\n          enddo\n\n          if ( nlon > 0.0d0 ) sum = sum / nlon\n          do i=1,im\n             q2(i,jn) = sum\n          enddo\n        endif\n\n     endif\n\n   END SUBROUTINE ymap_r4r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ymap_r8r4\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in N-S from an\n!  arbitrary resolution to another.  The input argument has REAL*8 precision\n!  but the output argument has REAL*4 precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ymap_r8r4(im, jm, sin1, q1, jn, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n\n    ! original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Target N-S dimension\n    INTEGER, INTENT(IN)  :: jn\n\n    ! IG=0: scalars from SP to NP (D-grid v-wind is also IG=0)\n    ! IG=1: D-grid u-wind\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: scalar;\n    ! IV=1: vector\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Original southern edge of the cell sin(lat1)\n    REAL*4,  INTENT(IN)  :: sin1(jm+1-ig)\n\n    ! Original data at center of the cell\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's southern edge sin(lat2)\n    REAL*4,  INTENT(IN)  :: sin2(jn+1-ig)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN), OPTIONAL :: missval\n!\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*4,  INTENT(OUT) :: q2(im,jn)\n!\n! !REMARKS:\n!\n!   sin1 (1) = -1 must be south pole; sin1(jm+1)=1 must be N pole.\n!\n!   sin1(1) < sin1(2) < sin1(3) < ... < sin1(jm) < sin1(jm+1)\n!   sin2(1) < sin2(2) < sin2(3) < ... < sin2(jn) < sin2(jn+1)!\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i, j0, m, mm, j\n    REAL*8               :: dy1(jm)\n    REAL*8               :: dy\n    REAL*8               :: qsum, sum, dlat\n    REAL*8               :: miss\n    REAL*4               :: nlon\n\n    ! YMAP begins here!\n    do j=1,jm-ig\n       dy1(j) = sin1(j+1) - sin1(j)\n    enddo\n\n    ! Missing value\n    miss = miss_r8\n    if ( present(missval) ) miss=missval\n\n    !===============================================================\n    ! Area preserving mapping\n    !===============================================================\n\n    !$OMP PARALLEL DO                                &\n    !$OMP DEFAULT( SHARED                          ) &\n    !$OMP PRIVATE( I, J0, J, M, QSUM, DLAT, MM, DY )\n    do 1000 i=1,im\n       qsum = 0.0d0\n       dlat = 0.0d0\n       j0 = 1\n       do 555 j=1,jn-ig\n       do 100 m=j0,jm-ig\n\n          !=========================================================\n          ! locate the southern edge: sin2(i)\n          !=========================================================\n          if(sin2(j) .ge. sin1(m) .and. sin2(j) .le. sin1(m+1)) then\n\n             if(sin2(j+1) .le. sin1(m+1)) then\n\n                ! entire new cell is within the original cell\n                if( abs(q1(i,m)-miss)>tiny_r8 ) q2(i,j)=q1(i,m)\n                j0 = m\n                goto 555\n             else\n\n                ! South most fractional area\n                if( abs(q1(i,m)-miss)>tiny_r8 ) then\n                   dlat= sin1(m+1)-sin2(j)\n                   qsum=(sin1(m+1)-sin2(j))*q1(i,m)\n                endif\n\n                do mm=m+1,jm-ig\n\n                   ! locate the northern edge: sin2(j+1)\n                   if(sin2(j+1) .gt. sin1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(q1(i,mm)-miss)>tiny_r8 ) then\n                         qsum = qsum + dy1(mm)*q1(i,mm)\n                         dlat = dlat + dy1(mm)\n                      endif\n                   else\n\n                      ! North most fractional area\n                      dy = sin2(j+1)-sin1(mm)\n                      if( abs(q1(i,mm)-miss)>tiny_r8 ) then\n                         qsum=qsum+dy*q1(i,mm)\n                         dlat=dlat+dy\n                      endif\n                      j0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    if ( ABS( dlat ) > 0.0d0 ) q2(i,j) = qsum / dlat\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n     !===================================================================\n     ! Final processing for poles\n     !===================================================================\n     if ( ig .eq. 0 .and. iv .eq. 0 ) then\n\n        ! South pole\n        if ( sin2(1) .eq. -1.0_fp ) then\n          sum = 0.0_f4\n          nlon= 0.0\n          do i=1,im\n             if( abs(q2(i,1)-miss)>tiny_r8 ) then\n                sum = sum + q2(i,1)\n                nlon= nlon + 1.0\n             endif\n          enddo\n\n          if ( nlon > 0.0 ) sum = sum / nlon\n          do i=1,im\n             q2(i,1) = sum\n          enddo\n        endif\n\n        ! North pole:\n        if( sin2(jn+1) .eq. 1.0_fp ) then\n          sum = 0.0_f4\n          nlon= 0.\n          do i=1,im\n             if( abs(q2(i,jn)-miss)>tiny_r8 ) then\n                sum = sum + q2(i,jn)\n                nlon= nlon + 1.0\n             endif\n          enddo\n\n          if ( nlon > 0.0 ) sum = sum / nlon\n          do i=1,im\n             q2(i,jn) = sum\n          enddo\n        endif\n\n     endif\n\n   END SUBROUTINE ymap_r8r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ymap_r4r4\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in N-S from an\n!  arbitrary resolution to another.  Both the input and output arguments\n!  have REAL(fp) precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ymap_r4r4(im, jm, sin1, q1, jn, sin2, q2, ig, iv, missval)\n!\n! !INPUT PARAMETERS:\n!\n\n    ! original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Target N-S dimension\n    INTEGER, INTENT(IN)  :: jn\n\n    ! IG=0: scalars from SP to NP (D-grid v-wind is also IG=0)\n    ! IG=1: D-grid u-wind\n    INTEGER, INTENT(IN)  :: ig\n\n    ! IV=0: scalar;\n    ! IV=1: vector\n    INTEGER, INTENT(IN)  :: iv\n\n    ! Original southern edge of the cell sin(lat1)\n    REAL*4,  INTENT(IN)  :: sin1(jm+1-ig)\n\n    ! Original data at center of the cell\n    REAL*4,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's southern edge sin(lat2)\n    REAL*4,  INTENT(IN)  :: sin2(jn+1-ig)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    ! Missing value\n    REAL*4,  INTENT(IN), OPTIONAL  :: missval\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*4,  INTENT(OUT) :: q2(im,jn)\n!\n! !REMARKS:\n!\n!   sin1 (1) = -1 must be south pole; sin1(jm+1)=1 must be N pole.\n!\n!   sin1(1) < sin1(2) < sin1(3) < ... < sin1(jm) < sin1(jm+1)\n!   sin2(1) < sin2(2) < sin2(3) < ... < sin2(jn) < sin2(jn+1)!\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i, j0, m, mm, j\n    REAL*4               :: dy1(jm)\n    REAL*4               :: dy\n    REAL*4               :: qsum, sum\n    REAL*4               :: dlat, nlon, miss\n\n    ! YMAP begins here!\n    do j=1,jm-ig\n       dy1(j) = sin1(j+1) - sin1(j)\n    enddo\n\n    ! missing value\n    miss = miss_r4\n    if ( present(missval) ) miss = missval\n\n    !===============================================================\n    ! Area preserving mapping\n    !===============================================================\n\n    !$OMP PARALLEL DO                                &\n    !$OMP DEFAULT( SHARED                          ) &\n    !$OMP PRIVATE( I, J0, J, M, QSUM, DLAT, MM, DY )\n    do 1000 i=1,im\n       qsum = 0.0\n       dlat = 0.0\n       j0 = 1\n       do 555 j=1,jn-ig\n       do 100 m=j0,jm-ig\n\n          !=========================================================\n          ! locate the southern edge: sin2(i)\n          !=========================================================\n          if(sin2(j) .ge. sin1(m) .and. sin2(j) .le. sin1(m+1)) then\n\n             if(sin2(j+1) .le. sin1(m+1)) then\n\n                ! entire new cell is within the original cell\n                if( abs(q1(i,m)-miss)>tiny_r4 ) q2(i,j)=q1(i,m)\n                j0 = m\n                goto 555\n             else\n\n                ! South most fractional area\n                if( abs(q1(i,m)-miss)>tiny_r4 ) then\n                   dlat=sin1(m+1)-sin2(j)\n                   qsum=dlat*q1(i,m)\n                endif\n\n                do mm=m+1,jm-ig\n\n                   ! locate the northern edge: sin2(j+1)\n                   if(sin2(j+1) .gt. sin1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(q1(i,mm)-miss)>tiny_r4 ) then\n                         qsum = qsum + dy1(mm)*q1(i,mm)\n                         dlat = dlat + dy1(mm)\n                      endif\n                   else\n\n                      ! North most fractional area\n                      if( abs(q1(i,mm)-miss)>tiny_r4 ) then\n                         dy = sin2(j+1)-sin1(mm)\n                         qsum=qsum+dy*q1(i,mm)\n                         dlat=dlat+dy\n                      endif\n                      j0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n!123    q2(i,j) = qsum / ( sin2(j+1) - sin2(j) )\n123    if ( ABS( dlat ) > 0.0e0 ) q2(i,j) = qsum / dlat\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n     !===================================================================\n     ! Final processing for poles\n     !===================================================================\n     if ( ig .eq. 0 .and. iv .eq. 0 ) then\n\n        ! South pole\n        if ( sin2(1) .eq. -1.0_fp ) then\n          sum  = 0.e+0_fp\n          nlon = 0.0\n          do i=1,im\n             if( abs(q2(i,1)-miss)>tiny_r4 ) then\n                sum  = sum + q2(i,1)\n                nlon = nlon + 1.0\n             endif\n          enddo\n\n          if ( nlon > 0.0 ) sum = sum / nlon\n          !sum = sum / REAL( im, 4 )\n          do i=1,im\n             q2(i,1) = sum\n          enddo\n        endif\n\n        ! North pole:\n        if( sin2(jn+1) .eq. 1.0_fp ) then\n          sum = 0.e+0_fp\n          nlon= 0.0\n          do i=1,im\n             if( abs(q2(i,jn)-miss)>tiny_r4 ) then\n                sum  = sum + q2(i,jn)\n                nlon = nlon + 1.0\n             endif\n          enddo\n\n          !sum = sum / REAL( im, 4 )\n          if ( nlon > 0.0 ) sum = sum / nlon\n          do i=1,im\n             q2(i,jn) = sum\n          enddo\n        endif\n     endif\n\n   END SUBROUTINE ymap_r4r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xmap_r8r8\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in E-W from an\n!  arbitrary resolution to another.  Both the input and output arguments\n!  have REAL(fp) precision.\n!\\\\\n!\\\\\n!  Periodic domain will be assumed, i.e., the eastern wall bounding cell\n!  im is lon1(im+1) = lon1(1); Note the equal sign is true geographysically.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE xmap_r8r8(im, jm, lon1, q1, iin, ilon2, iq2, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! Target E-W dimension\n    INTEGER, INTENT(IN)  :: iin\n\n    ! Original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Original western edge of the cell\n    REAL*8,  INTENT(IN)  :: lon1(im+1)\n\n    ! Original data at center of the cell\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's western edge\n    REAL*8,  INTENT(IN), TARGET  :: ilon2(iin+1)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    ! Missing value\n    REAL*8,  INTENT(IN), OPTIONAL  :: missval\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*8,  INTENT(OUT), TARGET :: iq2(iin,jm)\n!\n! !REMARKS:\n!   lon1(1) < lon1(2) < lon1(3) < ... < lon1(im) < lon1(im+1)\n!   lon2(1) < lon2(2) < lon2(3) < ... < lon2(in) < lon2(in+1)\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i1, i2, i, i0, m, mm, j\n    REAL*8               :: qtmp(-im:im+im)\n    REAL*8               :: x1(-im:im+im+1)\n    REAL*8               :: dx1(-im:im+im)\n    REAL*8               :: dx\n    REAL*8               :: qsum, dlon\n    LOGICAL              :: found\n\n    ! Update\n    INTEGER              :: n1, n2\n    INTEGER              :: in\n    REAL*8, POINTER      :: lon2(:)\n    REAL*8, POINTER      :: q2(:,:)\n    REAL*8               :: minlon, maxlon\n    REAL*8               :: lon1s(im+1)\n\n    ! Ghost correction\n    Logical              :: isGlobal\n    Real*8               :: xSpan\n\n    ! Missing value\n    Real*8               :: miss\n\n    ! Initialize pointers\n    lon2 => NULL()\n    q2   => NULL()\n\n    ! missing value\n    miss = miss_r8\n    if ( present(missval) ) miss = missval\n\n    ! XMAP begins here!\n    do i=1,im+1\n       x1(i) = lon1(i)\n    enddo\n\n    do i=1,im\n       dx1(i) = x1(i+1) - x1(i)\n    enddo\n\n    !===================================================================\n    ! define minimum and maximum longitude on output grid\n    ! to be used. Remapping will be restricted to this\n    ! domain. This procedure allows remapping of nested\n    ! domains onto larger (e.g. global) domains.\n    ! ckeller, 2/11/15).\n    !===================================================================\n    minlon = minval(lon1)\n    maxlon = maxval(lon1)\n\n    ! check for values > 180.0\n    if(maxlon > 180.0d0) then\n       lon1s = lon1\n       do while(maxlon > 180.0d0)\n          WHERE(lon1s > 180.0d0) lon1s = lon1s - 360.0d0\n          minlon = minval(lon1s)\n          maxlon = maxval(lon1s)\n       enddo\n    endif\n\n    ! maxlon must represent the easter edge of the grid:\n    maxlon = maxlon + ( lon1(im+1)-lon1(im) )\n\n    ! Reduce input grid\n    n1 = 1\n    n2 = iin+1\n    do i=1,iin+1\n       if ( ilon2(i) < minlon ) n1 = i\n       if ( ilon2(iin+2-i) > maxlon ) n2 = iin+2-i\n    enddo\n    in = n2 - n1\n    lon2 => ilon2(n1:n2)\n    q2   => iq2(n1:(n2-1),:)\n\n    ! if there is no overlap between original grid and output grid\n    ! reduced will be zero and missing values should be returned\n    if ( in .eq. 0 ) then\n       iq2 = missval\n       lon2 => NULL()\n       q2 => NULL()\n       return\n    endif\n\n    ! Periodic BC only valid if the variable is \"global\"\n    xSpan = x1(im+1)-x1(1)\n    isGlobal = ((xSpan.ge.355.0).and.(xSpan.le.365.0))\n\n    !===================================================================\n    ! check to see if ghosting is necessary\n    ! Western edge:\n    !===================================================================\n    found = .false.\n    i1 = 1\n    do while ( .not. found )\n       if( lon2(1) .ge. x1(i1) ) then\n          found = .true.\n       else\n          i1 = i1 - 1\n          if (i1 .lt. -im) then\n             write(6,*) 'Failed in Xmap_R8R8 (regrid_a2a_mod.F90)'\n             stop\n          else\n             x1(i1) = x1(i1+1) - dx1(im+i1)\n             dx1(i1) = dx1(im+i1)\n          endif\n       endif\n    enddo\n\n    !===================================================================\n    ! Eastern edge:\n    !===================================================================\n    found = .false.\n    i2 = im+1\n    do while ( .not. found )\n       if( lon2(in+1) .le. x1(i2) ) then\n          found = .true.\n       else\n          i2 = i2 + 1\n          if (i2 .gt. 2*im) then\n             write(6,*) 'Failed in Xmap_R8R8 (regrid_a2a_mod.F90)'\n             stop\n          else\n             dx1(i2-1) = dx1(i2-1-im)\n             x1(i2) = x1(i2-1) + dx1(i2-1)\n          endif\n       endif\n    enddo\n\n    !$OMP PARALLEL DO                                      &\n    !$OMP DEFAULT( SHARED                                ) &\n    !$OMP PRIVATE( J, QTMP, I, I0, M, QSUM, DLON, MM, DX )\n    do 1000 j=1,jm\n\n       !=================================================================\n       ! Area preserving mapping\n       !================================================================\n\n       qtmp(:) = 0.0d0\n       do i=1,im\n          qtmp(i)=q1(i,j)\n       enddo\n\n       ! SDE 2017-01-07\n       ! Only have shadow regions if we are on a global grid. Otherwise, we\n       ! should keep the zero boundary conditions.\n       If (isGlobal) Then\n          qtmp(0)=q1(im,j)\n          qtmp(im+1)=q1(1,j)\n\n          ! check to see if ghosting is necessary\n          ! Western edge\n          if ( i1 .le. 0 ) then\n             do i=i1,0\n                qtmp(i) = qtmp(im+i)\n             enddo\n          endif\n\n          ! Eastern edge:\n          if ( i2 .gt. im+1 ) then\n             do i=im+1,i2-1\n                qtmp(i) = qtmp(i-im)\n             enddo\n          endif\n       End If\n\n       i0 = i1\n\n       do 555 i=1,in\n       do 100 m=i0,i2-1\n\n          !=============================================================\n          ! locate the western edge: lon2(i)\n          !=============================================================\n          if(lon2(i) .ge. x1(m) .and. lon2(i) .le. x1(m+1)) then\n\n             if(lon2(i+1) .le. x1(m+1)) then\n\n                ! entire new grid is within the original grid\n                if( abs(qtmp(m)-miss)>tiny_r8 ) q2(i,j)=qtmp(m)\n                i0 = m\n                goto 555\n             else\n\n                ! Left most fractional area\n                if( abs(qtmp(m)-miss)>tiny_r8 ) then\n                   qsum=(x1(m+1)-lon2(i))*qtmp(m)\n                   dlon= x1(m+1)-lon2(i)\n                else\n                   qsum = 0.0d0\n                   dlon = 0.0d0\n                endif\n                do mm=m+1,i2-1\n\n                   ! locate the eastern edge: lon2(i+1)\n                   if(lon2(i+1) .gt. x1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(qtmp(mm)-miss)>tiny_r8 ) then\n                         qsum = qsum + dx1(mm)*qtmp(mm)\n                         dlon = dlon + dx1(mm)\n                      endif\n                   else\n                      ! Right most fractional area\n                      if( abs(qtmp(mm)-miss)>tiny_r8 ) then\n                         dx = lon2(i+1)-x1(mm)\n                         qsum=qsum+dx*qtmp(mm)\n                         dlon=dlon+dx\n                      endif\n                      i0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    if ( ABS( dlon ) > 0.0d0 ) q2(i,j) = qsum / dlon\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n    ! Cleanup\n    lon2 => NULL()\n    q2   => NULL()\n\n  END SUBROUTINE xmap_r8r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xmap_r4r4\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in E-W from an\n!  arbitrary resolution to another.  Both the input and output arguments\n!  have REAL*4 precision.\n!\\\\\n!\\\\\n!  Periodic domain will be assumed, i.e., the eastern wall bounding cell\n!  im is lon1(im+1) = lon1(1); Note the equal sign is true geographysically.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE xmap_r4r4(im, jm, lon1, q1, iin, ilon2, iq2, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! Target E-W dimension\n    INTEGER, INTENT(IN)  :: iin\n\n    ! Original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Original western edge of the cell\n    REAL*4,  INTENT(IN)  :: lon1(im+1)\n\n    ! Original data at center of the cell\n    REAL*4,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's western edge\n    REAL*4,  INTENT(IN), TARGET  :: ilon2(iin+1)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    ! Missing value\n    REAL*4,  INTENT(IN), OPTIONAL  :: missval\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*4,  INTENT(OUT), TARGET :: iq2(iin,jm)\n!\n! !REMARKS:\n!   lon1(1) < lon1(2) < lon1(3) < ... < lon1(im) < lon1(im+1)\n!   lon2(1) < lon2(2) < lon2(3) < ... < lon2(in) < lon2(in+1)\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i1, i2, i, i0, m, mm, j\n    REAL*4               :: qtmp(-im:im+im)\n    REAL*4               :: x1(-im:im+im+1)\n    REAL*4               :: dx1(-im:im+im)\n    REAL*4               :: dx\n    REAL*4               :: qsum, dlon\n    LOGICAL              :: found\n\n    ! Update\n    INTEGER              :: n1, n2\n    INTEGER              :: in\n    REAL*4, POINTER      :: lon2(:)\n    REAL*4, POINTER      :: q2(:,:)\n    REAL*4               :: minlon, maxlon\n    REAL*4               :: lon1s(im+1)\n\n    ! Ghost correction\n    Logical              :: isGlobal\n    Real*4               :: xSpan\n\n    ! Missing value\n    REAL*4               :: miss\n\n    ! Initialize\n    lon2 => NULL()\n    q2   => NULL()\n\n    ! Missing value\n    miss = miss_r4\n    if ( present(missval) ) miss = missval\n\n    ! XMAP begins here!\n    do i=1,im+1\n       x1(i) = lon1(i)\n    enddo\n\n    do i=1,im\n       dx1(i) = x1(i+1) - x1(i)\n    enddo\n\n    !===================================================================\n    ! define minimum and maximum longitude on output grid\n    ! to be used. Remapping will be restricted to this\n    ! domain. This procedure allows remapping of nested\n    ! domains onto larger (e.g. global) domains.\n    ! ckeller, (2/11/15).\n    !===================================================================\n    minlon = minval(lon1)\n    maxlon = maxval(lon1)\n\n    ! check for values > 180.0\n    if(maxlon > 180.0) then\n       lon1s = lon1\n       do while(maxlon > 180.0)\n          WHERE(lon1s > 180.0) lon1s = lon1s - 360.0\n          minlon = minval(lon1s)\n          maxlon = maxval(lon1s)\n       enddo\n    endif\n\n    ! maxlon must represent the easter edge of the grid:\n    maxlon = maxlon + ( lon1(im+1)-lon1(im) )\n\n    ! Reduce output grid\n    n1 = 1\n    n2 = iin+1\n    do i=1,iin+1\n       if ( ilon2(i) < minlon ) n1 = i\n       if ( ilon2(iin+2-i) > maxlon ) n2 = iin+2-i\n    enddo\n    in = n2 - n1\n    lon2 => ilon2(n1:n2)\n    q2   => iq2(n1:(n2-1),:)\n\n    ! if there is no overlap between original grid and output grid\n    ! reduced will be zero and missing values should be returned\n    if ( in .eq. 0 ) then\n       iq2 = missval\n       lon2 => NULL()\n       q2 => NULL()\n       return\n    endif\n\n    ! shadow variables to selected range\n    ! Periodic BC only valid if the variable is \"global\"\n    xSpan = x1(im+1)-x1(1)\n    isGlobal = ((xSpan.ge.355.0).and.(xSpan.le.365.0))\n\n    !===================================================================\n    ! check to see if ghosting is necessary\n    ! Western edge:\n    !===================================================================\n    found = .false.\n    i1 = 1\n    do while ( .not. found )\n       if( lon2(1) .ge. x1(i1) ) then\n          found = .true.\n       else\n          i1 = i1 - 1\n          if (i1 .lt. -im) then\n             write(6,*) 'Failed in Xmap_R4R4 (regrid_a2a_mod.F90)'\n             stop\n          else\n             x1(i1) = x1(i1+1) - dx1(im+i1)\n             dx1(i1) = dx1(im+i1)\n          endif\n       endif\n    enddo\n\n    !===================================================================\n    ! Eastern edge:\n    !===================================================================\n    found = .false.\n    i2 = im+1\n    do while ( .not. found )\n       if( lon2(in+1) .le. x1(i2) ) then\n          found = .true.\n       else\n          i2 = i2 + 1\n          if (i2 .gt. 2*im) then\n             write(6,*) 'Failed in Xmap_R4R4 (regrid_a2a_mod.F90)'\n             stop\n          else\n             dx1(i2-1) = dx1(i2-1-im)\n             x1(i2) = x1(i2-1) + dx1(i2-1)\n          endif\n       endif\n    enddo\n\n    !$OMP PARALLEL DO                                      &\n    !$OMP DEFAULT( SHARED                                ) &\n    !$OMP PRIVATE( J, QTMP, I, I0, M, QSUM, DLON, MM, DX )\n    do 1000 j=1,jm\n\n       !=================================================================\n       ! Area preserving mapping\n       !================================================================\n\n       qtmp(:) = 0.0\n       do i=1,im\n          qtmp(i)=q1(i,j)\n       enddo\n\n       ! SDE 2017-01-07\n       ! Only have shadow regions if we are on a global grid. Otherwise, we\n       ! should keep the zero boundary conditions.\n       If (isGlobal) Then\n          qtmp(0)=q1(im,j)\n          qtmp(im+1)=q1(1,j)\n\n          ! check to see if ghosting is necessary\n          ! Western edge\n          if ( i1 .le. 0 ) then\n             do i=i1,0\n                qtmp(i) = qtmp(im+i)\n             enddo\n          endif\n\n          ! Eastern edge:\n          if ( i2 .gt. im+1 ) then\n             do i=im+1,i2-1\n                qtmp(i) = qtmp(i-im)\n             enddo\n          endif\n       End If\n\n       i0 = i1\n\n       do 555 i=1,in\n       do 100 m=i0,i2-1\n\n          !=============================================================\n          ! locate the western edge: lon2(i)\n          !=============================================================\n          if(lon2(i) .ge. x1(m) .and. lon2(i) .le. x1(m+1)) then\n\n             if(lon2(i+1) .le. x1(m+1)) then\n\n                ! entire new grid is within the original grid\n                if ( abs(qtmp(m)-miss)>tiny_r4 ) q2(i,j)=qtmp(m)\n                i0 = m\n                goto 555\n             else\n\n                ! Left most fractional area\n                if( abs(qtmp(m)-miss)>tiny_r4 ) then\n                   dlon=x1(m+1)-lon2(i)\n                   qsum=dlon*qtmp(m)\n                else\n                   dlon=0.0\n                   qsum=0.0\n                endif\n                do mm=m+1,i2-1\n\n                   ! locate the eastern edge: lon2(i+1)\n                   if(lon2(i+1) .gt. x1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(qtmp(mm)-miss)>tiny_r4 ) then\n                         qsum = qsum + dx1(mm)*qtmp(mm)\n                         dlon = dlon + dx1(mm)\n                      endif\n\n                   else\n                      ! Right most fractional area\n                      if( abs(qtmp(mm)-miss)>tiny_r4 ) then\n                         dx = lon2(i+1)-x1(mm)\n                         qsum=qsum+dx*qtmp(mm)\n                         dlon=dlon+dx\n                      endif\n                      i0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    if( ABS( dlon ) > 0.0e0 ) q2(i,j) = qsum / dlon\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n     ! Cleanup\n     lon2 => NULL()\n     q2   => NULL()\n\n  END SUBROUTINE xmap_r4r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xmap_r4r8\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in E-W from an\n!  arbitrary resolution to another.  The input argument has REAL*4 precision\n!  but the output argument has REAL(fp) precision.\n!\\\\\n!\\\\\n!  Periodic domain will be assumed, i.e., the eastern wall bounding cell\n!  im is lon1(im+1) = lon1(1); Note the equal sign is true geographysically.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE xmap_r4r8(im, jm, lon1, q1, iin, ilon2, iq2, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! Target E-W dimension\n    INTEGER, INTENT(IN)  :: iin\n\n    ! Original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Original western edge of the cell\n    REAL*4,  INTENT(IN)  :: lon1(im+1)\n\n    ! Original data at center of the cell\n    REAL*4,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's western edge\n    REAL*4,  INTENT(IN), TARGET  :: ilon2(iin+1)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    REAL*4,  INTENT(IN), OPTIONAL :: missval\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*8,  INTENT(OUT), TARGET :: iq2(iin,jm)\n!\n! !REMARKS:\n!   lon1(1) < lon1(2) < lon1(3) < ... < lon1(im) < lon1(im+1)\n!   lon2(1) < lon2(2) < lon2(3) < ... < lon2(in) < lon2(in+1)\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i1, i2, i, i0, m, mm, j\n    REAL*8               :: qtmp(-im:im+im)\n    REAL*8               :: x1(-im:im+im+1)\n    REAL*8               :: dx1(-im:im+im)\n    REAL*8               :: dx\n    REAL*8               :: qsum, dlon\n    LOGICAL              :: found\n\n    ! Update\n    INTEGER              :: n1, n2\n    INTEGER              :: in\n    REAL*4, POINTER      :: lon2(:)\n    REAL*8, POINTER      :: q2(:,:)\n    REAL*4               :: minlon, maxlon\n    REAL*4               :: lon1s(im+1)\n\n    ! Ghost correction\n    Logical              :: isGlobal\n    Real*8               :: xSpan\n\n    ! Missing value\n    REAL*4               :: miss\n\n    ! Initialize\n    lon2 => NULL()\n    q2   => NULL()\n\n    ! Missing value\n    miss = miss_r4\n    if ( present(missval) ) miss = missval\n\n    ! XMAP begins here!\n    do i=1,im+1\n       x1(i) = lon1(i)\n    enddo\n\n    do i=1,im\n       dx1(i) = x1(i+1) - x1(i)\n    enddo\n\n    !===================================================================\n    ! define minimum and maximum longitude on output grid\n    ! to be used. Remapping will be restricted to this\n    ! domain. This procedure allows remapping of nested\n    ! domains onto larger (e.g. global) domains.\n    ! ckeller, 2/11/15).\n    !===================================================================\n    minlon = minval(lon1)\n    maxlon = maxval(lon1)\n\n    ! check for values > 180.0\n    if(maxlon > 180.0) then\n       lon1s = lon1\n       do while(maxlon > 180.0)\n          WHERE(lon1s > 180.0) lon1s = lon1s - 360.0\n          minlon = minval(lon1s)\n          maxlon = maxval(lon1s)\n       enddo\n    endif\n\n    ! maxlon must represent the easter edge of the grid:\n    maxlon = maxlon + ( lon1(im+1)-lon1(im) )\n\n    ! Reduce input grid\n    n1 = 1\n    n2 = iin+1\n    do i=1,iin+1\n       if ( ilon2(i) < minlon ) n1 = i\n       if ( ilon2(iin+2-i) > maxlon ) n2 = iin+2-i\n    enddo\n    in = n2 - n1\n    lon2 => ilon2(n1:n2)\n    q2   => iq2(n1:(n2-1),:)\n\n    ! Periodic BC only valid if the variable is \"global\"\n    xSpan = x1(im+1)-x1(1)\n    isGlobal = ((xSpan.ge.355.0).and.(xSpan.le.365.0))\n\n    !===================================================================\n    ! check to see if ghosting is necessary\n    ! Western edge:\n    !===================================================================\n    found = .false.\n    i1 = 1\n    do while ( .not. found )\n       if( lon2(1) .ge. x1(i1) ) then\n          found = .true.\n       else\n          i1 = i1 - 1\n          if (i1 .lt. -im) then\n             write(6,*) 'Failed in Xmap_R4R8 (regrid_a2a_mod.F90)'\n             stop\n          else\n             x1(i1) = x1(i1+1) - dx1(im+i1)\n             dx1(i1) = dx1(im+i1)\n          endif\n       endif\n    enddo\n\n    !===================================================================\n    ! Eastern edge:\n    !===================================================================\n    found = .false.\n    i2 = im+1\n    do while ( .not. found )\n       if( lon2(in+1) .le. x1(i2) ) then\n          found = .true.\n       else\n          i2 = i2 + 1\n          if (i2 .gt. 2*im) then\n             write(6,*) 'Failed in Xmap_R4R8 (regrid_a2a_mod.F90)'\n             stop\n          else\n             dx1(i2-1) = dx1(i2-1-im)\n             x1(i2) = x1(i2-1) + dx1(i2-1)\n          endif\n       endif\n    enddo\n\n    !$OMP PARALLEL DO                                      &\n    !$OMP DEFAULT( SHARED                                ) &\n    !$OMP PRIVATE( J, QTMP, I, I0, M, QSUM, DLON, MM, DX )\n    do 1000 j=1,jm\n\n       !=================================================================\n       ! Area preserving mapping\n       !================================================================\n\n       qtmp(:) = 0.0d0\n       do i=1,im\n          qtmp(i)=q1(i,j)\n       enddo\n\n       ! SDE 2017-01-07\n       ! Only have shadow regions if we are on a global grid. Otherwise, we\n       ! should keep the zero boundary conditions.\n       If (isGlobal) Then\n          qtmp(0)=q1(im,j)\n          qtmp(im+1)=q1(1,j)\n\n          ! check to see if ghosting is necessary\n          ! Western edge\n          if ( i1 .le. 0 ) then\n             do i=i1,0\n                qtmp(i) = qtmp(im+i)\n             enddo\n          endif\n\n          ! Eastern edge:\n          if ( i2 .gt. im+1 ) then\n             do i=im+1,i2-1\n                qtmp(i) = qtmp(i-im)\n             enddo\n          endif\n       End If\n\n       i0 = i1\n\n       do 555 i=1,in\n       do 100 m=i0,i2-1\n\n          !=============================================================\n          ! locate the western edge: lon2(i)\n          !=============================================================\n          if(lon2(i) .ge. x1(m) .and. lon2(i) .le. x1(m+1)) then\n\n             if(lon2(i+1) .le. x1(m+1)) then\n\n                ! entire new grid is within the original grid\n                if( abs(qtmp(m)-miss)>tiny_r4 ) q2(i,j)=qtmp(m)\n                i0 = m\n                goto 555\n             else\n\n                ! Left most fractional area\n                if( abs(qtmp(m)-miss)>tiny_r4 ) then\n                   qsum=(x1(m+1)-lon2(i))*qtmp(m)\n                   dlon= x1(m+1)-lon2(i)\n                else\n                   qsum=0.0d0\n                   dlon=0.0d0\n                endif\n                do mm=m+1,i2-1\n\n                   ! locate the eastern edge: lon2(i+1)\n                   if(lon2(i+1) .gt. x1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(qtmp(mm)-miss)>tiny_r4 ) then\n                         qsum = qsum + dx1(mm)*qtmp(mm)\n                         dlon = dlon + dx1(mm)\n                      endif\n                   else\n                      ! Right most fractional area\n                      if( abs(qtmp(mm)-miss)>tiny_r4 ) then\n                         dx = lon2(i+1)-x1(mm)\n                         qsum=qsum+dx*qtmp(mm)\n                         dlon=dlon+dx\n                      endif\n                      i0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    if ( ABS( dlon ) > 0.0d0 ) q2(i,j) = qsum / dlon\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n    ! Cleanup\n    lon2 => NULL()\n    q2   => NULL()\n\n  END SUBROUTINE xmap_r4r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Xmap_r8r4\n!\n! !DESCRIPTION: Routine to perform area preserving mapping in E-W from an\n!  arbitrary resolution to another.  The input argument has REAL*8 precision\n!  but the output argument has REAL*4 precision.\n!\\\\\n!\\\\\n!  Periodic domain will be assumed, i.e., the eastern wall bounding cell\n!  im is lon1(im+1) = lon1(1); Note the equal sign is true geographysically.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE xmap_r8r4(im, jm, lon1, q1, iin, ilon2, iq2, missval)\n!\n! !INPUT PARAMETERS:\n!\n    ! Original E-W dimension\n    INTEGER, INTENT(IN)  :: im\n\n    ! Target E-W dimension\n    INTEGER, INTENT(IN)  :: iin\n\n    ! Original N-S dimension\n    INTEGER, INTENT(IN)  :: jm\n\n    ! Original western edge of the cell\n    REAL*4,  INTENT(IN)  :: lon1(im+1)\n\n    ! Original data at center of the cell\n    REAL*8,  INTENT(IN)  :: q1(im,jm)\n\n    ! Target cell's western edge\n    REAL*4,  INTENT(IN), TARGET  :: ilon2(iin+1)\n!\n! !OPTIONAL INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN), OPTIONAL :: missval\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Mapped data at the target resolution\n    REAL*4,  INTENT(OUT), TARGET :: iq2(iin,jm)\n!\n! !REMARKS:\n!   lon1(1) < lon1(2) < lon1(3) < ... < lon1(im) < lon1(im+1)\n!   lon2(1) < lon2(2) < lon2(3) < ... < lon2(in) < lon2(in+1)\n!\n! !AUTHOR:\n!   Developer: Prasad Kasibhatla\n!   March 6, 2012\n!\n! !REVISION HISTORY\n!  06 Mar 2012 - P. Kasibhatla - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: i1, i2, i, i0, m, mm, j\n    REAL*4               :: qtmp(-im:im+im)\n    REAL*4               :: x1(-im:im+im+1)\n    REAL*4               :: dx1(-im:im+im)\n    REAL*4               :: dx\n    REAL*4               :: qsum, dlon\n    LOGICAL              :: found\n\n    ! Update\n    INTEGER              :: n1, n2\n    INTEGER              :: in\n    REAL*4, POINTER      :: lon2(:)\n    REAL*4, POINTER      :: q2(:,:)\n    REAL*4               :: minlon, maxlon\n    REAL*4               :: lon1s(im+1)\n\n    ! Ghost correction\n    Logical              :: isGlobal\n    Real*4               :: xSpan\n\n    ! Missing value\n    REAL*8               :: miss\n\n    ! Initialize\n    lon2 => NULL()\n    q2   => NULL()\n\n    ! Missing value\n    miss = miss_r8\n    if ( present(missval) ) miss = missval\n\n    ! XMAP begins here!\n    do i=1,im+1\n       x1(i) = lon1(i)\n    enddo\n\n    do i=1,im\n       dx1(i) = x1(i+1) - x1(i)\n    enddo\n\n    !===================================================================\n    ! define minimum and maximum longitude on output grid\n    ! to be used. Remapping will be restricted to this\n    ! domain. This procedure allows remapping of nested\n    ! domains onto larger (e.g. global) domains.\n    ! ckeller, 2/11/15).\n    !===================================================================\n    minlon = minval(lon1)\n    maxlon = maxval(lon1)\n\n    ! check for values > 180.0\n    if(maxlon > 180.0) then\n       lon1s = lon1\n       do while(maxlon > 180.0)\n          WHERE(lon1s > 180.0) lon1s = lon1s - 360.0\n          minlon = minval(lon1s)\n          maxlon = maxval(lon1s)\n       enddo\n    endif\n\n    ! maxlon must represent the easter edge of the grid:\n    maxlon = maxlon + ( lon1(im+1)-lon1(im) )\n\n    ! Reduce input grid\n    n1 = 1\n    n2 = iin+1\n    do i=1,iin+1\n       if ( ilon2(i) < minlon ) n1 = i\n       if ( ilon2(iin+2-i) > maxlon ) n2 = iin+2-i\n    enddo\n    in = n2 - n1\n    lon2 => ilon2(n1:n2)\n    q2   => iq2(n1:(n2-1),:)\n\n    ! Periodic BC only valid if the variable is \"global\"\n    xSpan = x1(im+1)-x1(1)\n    isGlobal = ((xSpan.ge.355.0).and.(xSpan.le.365.0))\n\n    !===================================================================\n    ! check to see if ghosting is necessary\n    ! Western edge:\n    !===================================================================\n    found = .false.\n    i1 = 1\n    do while ( .not. found )\n       if( lon2(1) .ge. x1(i1) ) then\n          found = .true.\n       else\n          i1 = i1 - 1\n          if (i1 .lt. -im) then\n             write(6,*) 'Failed in Xmap_R4R8 (regrid_a2a_mod.F90)'\n             stop\n          else\n             x1(i1) = x1(i1+1) - dx1(im+i1)\n             dx1(i1) = dx1(im+i1)\n          endif\n       endif\n    enddo\n\n    !===================================================================\n    ! Eastern edge:\n    !===================================================================\n    found = .false.\n    i2 = im+1\n    do while ( .not. found )\n       if( lon2(in+1) .le. x1(i2) ) then\n          found = .true.\n       else\n          i2 = i2 + 1\n          if (i2 .gt. 2*im) then\n             write(6,*) 'Failed in Xmap_R4R8 (regrid_a2a_mod.F90)'\n             stop\n          else\n             dx1(i2-1) = dx1(i2-1-im)\n             x1(i2) = x1(i2-1) + dx1(i2-1)\n          endif\n       endif\n    enddo\n\n    !$OMP PARALLEL DO                                      &\n    !$OMP DEFAULT( SHARED                                ) &\n    !$OMP PRIVATE( J, QTMP, I, I0, M, QSUM, DLON, MM, DX )\n    do 1000 j=1,jm\n\n       !=================================================================\n       ! Area preserving mapping\n       !================================================================\n\n       qtmp(:) = 0.0\n       do i=1,im\n          qtmp(i)=q1(i,j)\n       enddo\n\n       ! SDE 2017-01-07\n       ! Only have shadow regions if we are on a global grid. Otherwise, we\n       ! should keep the zero boundary conditions.\n       If (isGlobal) Then\n          qtmp(0)=q1(im,j)\n          qtmp(im+1)=q1(1,j)\n\n          ! check to see if ghosting is necessary\n          ! Western edge\n          if ( i1 .le. 0 ) then\n             do i=i1,0\n                qtmp(i) = qtmp(im+i)\n             enddo\n          endif\n\n          ! Eastern edge:\n          if ( i2 .gt. im+1 ) then\n             do i=im+1,i2-1\n                qtmp(i) = qtmp(i-im)\n             enddo\n          endif\n       End If\n\n       i0 = i1\n\n       do 555 i=1,in\n       do 100 m=i0,i2-1\n\n          !=============================================================\n          ! locate the western edge: lon2(i)\n          !=============================================================\n          if(lon2(i) .ge. x1(m) .and. lon2(i) .le. x1(m+1)) then\n\n             if(lon2(i+1) .le. x1(m+1)) then\n\n                ! entire new grid is within the original grid\n                if( abs(qtmp(m)-miss)>tiny_r8 ) q2(i,j)=qtmp(m)\n                i0 = m\n                goto 555\n             else\n\n                ! Left most fractional area\n                if( abs(qtmp(m)-miss)>tiny_r8 ) then\n                   qsum=(x1(m+1)-lon2(i))*qtmp(m)\n                   dlon= x1(m+1)-lon2(i)\n                else\n                   qsum=0.0\n                   dlon=0.0\n                endif\n                do mm=m+1,i2-1\n\n                   ! locate the eastern edge: lon2(i+1)\n                   if(lon2(i+1) .gt. x1(mm+1) ) then\n\n                      ! Whole layer\n                      if( abs(qtmp(mm)-miss)>tiny_r8 ) then\n                         qsum = qsum + dx1(mm)*qtmp(mm)\n                         dlon = dlon + dx1(mm)\n                      endif\n                   else\n                      ! Right most fractional area\n                      if( abs(qtmp(m)-miss)>tiny_r8 ) then\n                         dx = lon2(i+1)-x1(mm)\n                         qsum=qsum+dx*qtmp(mm)\n                         dlon=dlon+dx\n                      endif\n                      i0 = mm\n                      goto 123\n                   endif\n                enddo\n                goto 123\n             endif\n          endif\n100    continue\n123    if( ABS( dlon ) > 0.0e0 ) q2(i,j) = qsum / dlon\n555    continue\n1000 continue\n     !$OMP END PARALLEL DO\n\n    ! Cleanup\n    lon2 => NULL()\n    q2   => NULL()\n\n  END SUBROUTINE xmap_r8r4\n!EOC\nEND MODULE Regrid_A2A_Mod\n"
  },
  {
    "path": "GeosUtil/time_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: time_mod.F90\n!\n! !DESCRIPTION: Module TIME\\_MOD contains GEOS-Chem date and time variables\n!  and timesteps, and routines for accessing them.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TIME_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n!\n! !PRIVATE TYPES:\n!\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: SET_CURRENT_TIME\n  PUBLIC  :: SET_BEGIN_TIME\n  PUBLIC  :: SET_END_TIME\n  PUBLIC  :: SET_TIMESTEPS\n  PUBLIC  :: SET_ELAPSED_SEC\n  PUBLIC  :: GET_JD\n  PUBLIC  :: GET_ELAPSED_SEC\n  PUBLIC  :: GET_NYMDb\n  PUBLIC  :: GET_NHMSb\n  PUBLIC  :: GET_NYMDe\n  PUBLIC  :: GET_NHMSe\n  PUBLIC  :: GET_NYMD\n  PUBLIC  :: GET_NHMS\n  PUBLIC  :: GET_TIME_AHEAD\n  PUBLIC  :: GET_MONTH\n  PUBLIC  :: GET_DAY\n  PUBLIC  :: GET_YEAR\n  PUBLIC  :: GET_HOUR\n  PUBLIC  :: GET_MINUTE\n  PUBLIC  :: GET_SECOND\n  PUBLIC  :: GET_DAY_OF_YEAR\n  PUBLIC  :: GET_GMT\n  PUBLIC  :: GET_TAU\n  PUBLIC  :: GET_TAUb\n  PUBLIC  :: GET_TAUe\n  PUBLIC  :: GET_LOCALTIME\n  PUBLIC  :: GET_LOCALTIME_IN_SEC\n  PUBLIC  :: GET_TS_CHEM\n  PUBLIC  :: GET_TS_CONV\n  PUBLIC  :: GET_TS_DIAG\n  PUBLIC  :: GET_TS_DYN\n  PUBLIC  :: GET_TS_EMIS\n  PUBLIC  :: GET_TS_UNIT\n  PUBLIC  :: GET_TS_RAD\n  PUBLIC  :: GET_A1_TIME\n  PUBLIC  :: GET_A3_TIME\n  PUBLIC  :: GET_I3_TIME\n  PUBLIC  :: GET_I1dyn_TIME\n  PUBLIC  :: GET_BC_TIME\n  PUBLIC  :: GET_FIRST_A1_TIME\n  PUBLIC  :: GET_FIRST_A3_TIME\n  PUBLIC  :: GET_FIRST_I3_TIME\n  PUBLIC  :: GET_FIRST_I1dyn_TIME\n  PUBLIC  :: GET_FIRST_BC_TIME\n  PUBLIC  :: ITS_TIME_FOR_CHEM\n  PUBLIC  :: ITS_TIME_FOR_CONV\n  PUBLIC  :: ITS_TIME_FOR_DYN\n  PUBLIC  :: ITS_TIME_FOR_EMIS\n  PUBLIC  :: ITS_TIME_FOR_EXCH\n  PUBLIC  :: ITS_TIME_FOR_UNIT\n  PUBLIC  :: ITS_TIME_FOR_RT\n  PUBLIC  :: ITS_TIME_FOR_SURFACE_RAD\n  PUBLIC  :: ITS_TIME_FOR_A1\n  PUBLIC  :: ITS_TIME_FOR_A3\n  PUBLIC  :: ITS_TIME_FOR_I3\n  PUBLIC  :: ITS_TIME_FOR_I1dyn\n  PUBLIC  :: ITS_TIME_FOR_BC\n  PUBLIC  :: ITS_TIME_FOR_EXIT\n  PUBLIC  :: ITS_MIDMONTH\n  PUBLIC  :: ITS_A_LEAPYEAR\n  PUBLIC  :: ITS_A_NEW_YEAR\n  PUBLIC  :: ITS_A_NEW_MONTH\n  PUBLIC  :: ITS_A_NEW_DAY\n  PUBLIC  :: ITS_A_NEW_HOUR\n  PUBLIC  :: PRINT_CURRENT_TIME\n  PUBLIC  :: TIMESTAMP_STRING\n  PUBLIC  :: YMD_EXTRACT\n  PUBLIC  :: EXPAND_DATE\n  PUBLIC  :: Valid_Date\n  PUBLIC  :: Valid_Time\n  PUBLIC  :: SYSTEM_DATE_TIME\n  PUBLIC  :: SYSTEM_TIMESTAMP\n  PUBLIC  :: TIMESTAMP_DIAG\n#if defined( ESMF_ ) || defined( MODEL_ )\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  !%%%  NOTE: THESE ROUTINES WILL BE OMITTED UNLESS GEOS-Chem     %%%\n  !%%%  IS COMPILED FOR GCHP OR FOR CONNECTION TO EXTERNAL ESMs   %%%\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  PUBLIC  :: Accept_External_Date_Time\n#endif\n!\n! !REMARKS:\n!  References:\n!  ---------------------------------------------------------------------------\n!  (1) \"Practical Astronomy with Your Calculator\", 3rd Ed.\n!        Peter Duffett-Smith, Cambridge UP, 1992, p9.\n!  (2) Rounding algorithm from: Hultquist, P.F, \"Numerical Methods for\n!        Engineers and Computer Scientists\", Benjamin/Cummings, Menlo Park CA,\n!        1988, p. 20.\n!  (3) Truncation algorithm from: http://en.wikipedia.org/wiki/Truncation\n!\n! !REVISION HISTORY:\n!  21 Jun 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  !---------------------------------\n  ! GMT dates @ start & end of run\n  !---------------------------------\n  INTEGER             :: NYMDb        ! YYYY/MM/DD on which to start run\n  INTEGER             :: NHMSb        ! hh:mm:ss   on which to start run\n  REAL(f8)            :: TAUb         ! Hours since 1/1/1985 @ start of run\n\n  INTEGER             :: NYMDe        ! YYYY/MM/DD on which to end run\n  INTEGER             :: NHMSe        ! hh:mm:ss   on which to end run\n  REAL(f8)            :: TAUe         ! Hours since 1/1/1985 @ end of run\n\n  !---------------------------------\n  ! Current GMT date/time values\n  !---------------------------------\n  INTEGER             :: NYMD         ! YYYY/MM/DD date\n  INTEGER             :: NHMS         ! hh:mm:ss time\n  INTEGER             :: MONTH        ! Month (1-12)\n  INTEGER             :: DAY          ! Day of month (1-31)\n  INTEGER             :: YEAR         ! Year (YYYY format)\n  INTEGER             :: HOUR         ! hour (0-23)\n  INTEGER             :: MINUTE       ! Minutes (0-59)\n  INTEGER             :: SECOND       ! Seconds (0-59)\n  INTEGER             :: NSEASON      ! Season (1=DJF,2=MAM,3=JJA,4=SON)\n  INTEGER             :: DAY_OF_YEAR  ! Day of year (0-365 or 0-366 if LY)\n  INTEGER             :: DAY_OF_WEEK  ! Day of week (0=Sun,1=Mon,.., 6=Sat)\n  REAL(f8)            :: TAU          ! Hours since 1/1/1985\n  REAL(f8)            :: GMT          ! Current GMT time [decimal hours]\n\n  !---------------------------------\n  ! Elapsed time values\n  !---------------------------------\n  INTEGER             :: ELAPSED_SEC    ! # of seconds into the run\n  REAL(f8)            :: LEAP_YEAR_DAYS ! # of leap yrs since start of run\n\n  !---------------------------------\n  ! Diagnostic date/time values\n  !---------------------------------\n  INTEGER             :: NYMD_DIAG    ! Diagnostic date for output\n  REAL(f8)            :: DIAGb        ! Start of diag averaging interval\n  REAL(f8)            :: DIAGe        ! End   of diag averaging interval\n\n  !---------------------------------\n  ! Timestep values\n  !---------------------------------\n  INTEGER             :: TS_CHEM      ! Chemistry timestep       [sec]\n  INTEGER             :: TS_CONV      ! Convection timestep      [sec]\n  INTEGER             :: TS_DIAG      ! Diagnostic timestep      [sec]\n  INTEGER             :: TS_DYN       ! Dynamic timestep         [sec]\n  INTEGER             :: TS_EMIS      ! Emissions timestep       [sec]\n  INTEGER             :: TS_UNIT      ! Unit conversion timestep [sec]\n  INTEGER             :: TS_RAD       ! Radiation timestep       [sec]\n\n  !---------------------------------\n  ! Counter values\n  !---------------------------------\n  INTEGER             :: CT_CHEM      ! # of elapsed chemistry timesteps\n  INTEGER             :: CT_CONV      ! # of elapsed convection timesteps\n  INTEGER             :: CT_DYN       ! # of elapsed dynamic timesteps\n  INTEGER             :: CT_EMIS      ! # of elapsed emission timesteps\n  INTEGER             :: CT_RAD       ! # of elapsed radiation timesteps\n  INTEGER             :: CT_A3        ! # of elapsed A3 met field reads\n  INTEGER             :: CT_I3        ! # of elapsed I3 met field reads\n  INTEGER             :: CT_DIAG      ! # of elapsed diagnostic timesteps\n  INTEGER             :: Hg2_DIAG     ! # of elapsed Hg2 diag outputs\n\n  !---------------------------------\n  ! For historical emissions\n  !---------------------------------\n  INTEGER             :: HISTYRA      ! Year for historical emissions\n!\n! !DEFINED PARAMETERS:\n!\n  ! Astronomical Julian Date at 0 GMT, 1 Jan 1985\n  REAL(f8), PARAMETER :: JD85 = 2446066.5e+0_f8\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_current_time\n!\n! !DESCRIPTION: Subroutine SET\\_CURRENT\\_TIME takes in the elapsed time in\n!  minutes since the start of a GEOS-Chem simulation and sets the GEOS-Chem\n!  time variables accordingly.  NOTE: All time variables are returned\n!  w/r/t Greenwich Mean Time (aka Universal Time).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_CURRENT_TIME\n!\n! !USES:\n!\n    USE JULDAY_MOD, ONLY : JULDAY, CALDATE\n!\n! !REMARKS:\n!  The GEOS met fields are assimilated data, and therefore contain data on\n!  the leap-year days.  SET_CURRENT_TIME computes the days according to the\n!  Astronomical Julian Date algorithms (in \"julday_mod.F90\"), which contain\n!  leap-year days.\n!\n! !REVISION HISTORY:\n!  05 Feb 2006 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    REAL(f4)      :: TMP\n    REAL(f8)      :: A, B, JD, JD0, JD1, THISDAY\n\n    !=================================================================\n    ! SET_CURRENT_TIME begins here!\n    !=================================================================\n\n    ! Initialize LEAP_YEAR_DAYS\n    IF ( FIRST ) THEN\n       LEAP_YEAR_DAYS = 0e+0_f8\n       FIRST          = .FALSE.\n    ENDIF\n\n    ! JD0: Astronomical Julian Date at start of GEOS-Chem run\n    JD0 = GET_JD( NYMDb, NHMSb )\n\n    ! JD1: Astronomical Julian Date at current time\n    JD1 = JD0 + ( DBLE( ELAPSED_SEC ) / 86400e+0_f8 )\n\n    ! Call CALDATE to compute the current YYYYMMDD and HHMMSS\n    CALL CALDATE( DBLE(JD1), NYMD, NHMS )\n\n    ! Extract current year, month, day from NYMD\n    CALL YMD_EXTRACT( NYMD, YEAR, MONTH, DAY )\n\n    ! Extract current hour, minute, second from NHMS\n    CALL YMD_EXTRACT( NHMS, HOUR, MINUTE, SECOND )\n\n    ! Fix minutes & seconds for display purposes (esp. for 1x1)\n    IF ( SECOND              == 59 ) SECOND = 0\n    IF ( MOD( MINUTE+1, 10 ) == 0  ) MINUTE = MINUTE + 1\n\n    !=================================================================\n    ! Compute other GEOS-Chem timing variables\n    !=================================================================\n\n    ! Current Greenwich Mean Time\n    GMT         = ( DBLE( HOUR )                ) + &\n                  ( DBLE( MINUTE ) /   60e+0_f8 ) + &\n                  ( DBLE( SECOND ) / 3600e+0_f8 )\n\n    ! Days elapsed in this year (0-366)\n    DAY_OF_YEAR = JD1 - JULDAY( YEAR, 1, 0d0 ) ! has to be REAL*8\n\n    ! TAU value (# of hours since 1 Jan 1985)\n    ! NOTE: TMP is REAL*4 to prevent precision problems\n    TMP         = ( JD1 - JD85 ) * 24e+0_f4\n    TAU         = DBLE( TMP )\n\n    ! Season index (1=DJF, 2=MAM, 3=JJA, 4=SON)\n    SELECT CASE ( MONTH )\n    CASE ( 12, 1, 2 )\n       NSEASON = 1\n    CASE ( 3, 4, 5 )\n       NSEASON = 2\n    CASE ( 6, 7, 8 )\n       NSEASON = 3\n    CASE ( 9, 10, 11 )\n       NSEASON = 4\n    END SELECT\n\n    !=================================================================\n    ! Compute day of week w/r/t the GMT date\n    ! (moved here from routine GET_DAY_OF_WEEK)\n    !=================================================================\n\n    ! Get fractional GMT day\n    THISDAY     = DAY + ( GMT / 24e+0_f8 ) ! real*8\n\n    ! Get current Julian date\n    JD          = JULDAY( YEAR, MONTH, DBLE(THISDAY) ) ! real*8\n\n    ! Add 1.5 to JD and divide by 7\n    A           = ( JD + 1.5e+0_f8 ) / 7e+0_f8\n\n    ! Take fractional part and multiply by 7\n    B           = ( A - INT( A ) ) * 7e+0_f8\n\n    ! NOTE: This is not in the Duffett-Smith book, but when using\n    ! REAL(f8), we have to round B to 4 decimal places in order\n    ! to avoid floating-point errors. (bmy, 6/13/13)\n    B           = INT( NINT( B*1e+5_f8 + SIGN( 5e+0_f8, B ) ) &\n                  / 10e+0_f8 ) / 1e+4_f8\n\n    ! Discard the fractional part of B\n    DAY_OF_WEEK = INT( B )\n\n  END SUBROUTINE SET_CURRENT_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_begin_time\n!\n! !DESCRIPTION: Subroutine SET\\_BEGIN\\_TIME initializes NYMDb, NHMSb, and TAUb,\n!  which are the YYYYMMDD, HHMMSS, and hours since 1/1/1985 corresponding to\n!  the beginning date and time of a GEOS-Chem run.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_BEGIN_TIME( THISNYMDb, THISNHMSb, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: THISNYMDb   ! YYYYMMDD @ start of G-C simulation\n    INTEGER, INTENT(IN)  :: THISNHMSb   ! HHMMSS   @ start of G-C simulation\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f4) :: TMP\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! SET_BEGIN_TIME begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Set_Begin_Time (in module GeosUtil/time_mod.F90)'\n\n    ! Error check THISNHMSb\n    IF ( THISNHMSb > 235959 ) THEN\n       ErrMsg = 'NHMSb cannot be greater than 23:59:59!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Error check THISNYMDb\n    IF ( THISNYMDb < 17500101 ) THEN\n       ErrMsg = 'NYMDb must be in the format YYYYMMDD!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize NYMDb, NHMSb\n    NYMDb = THISNYMDb\n    NHMSb = THISNHMSb\n\n    ! TAUb value (TMP is REAL*4 to prevent precision problems)\n    TMP   = ( GET_JD( NYMDb, NHMSb ) - JD85 ) * 24e+0_f4\n    TAUb  = DBLE( TMP )\n\n    ! Also initialize ELAPSED_SEC\n    ELAPSED_SEC = 0\n\n  END SUBROUTINE SET_BEGIN_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_end_time\n!\n! !DESCRIPTION: Subroutine SET\\_END\\_TIME initializes NYMDe, NHMSe, and TAUe,\n!  which are the YYYYMMDD, HHMMSS, and hours since 1/1/1985 corresponding to\n!  the ending date and time of a GEOS-Chem run.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_END_TIME( THISNYMDe, THISNHMSe, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: THISNYMDe   ! YYYYMMDD @ end of G-C simulation\n    INTEGER, INTENT(IN)  :: THISNHMSe   ! HHMMSS   @ end of G-C simulation\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  20 Jul 2004 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(f4) :: TMP\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! SET_END_TIME begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Set_End_Time (in module GeosUtil/time_mod.F90)'\n\n    ! Error check THISNHMS\n    IF ( THISNHMSe > 235959 ) THEN\n       ErrMsg = 'NHMSe cannot be greater than 23:59:59!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Error check THISNYMDe\n    IF ( THISNYMDe < 17500101 ) THEN\n       ErrMsg = 'NYMDe must be in the format YYYYMMDD!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize NYMDe, NHMSe\n    NYMDe = THISNYMDe\n    NHMSe = THISNHMSe\n\n    ! TAUe value (TMP is REAL*4 to prevent precision problems)\n    TMP   = ( GET_JD( NYMDe, NHMSe ) - JD85 ) * 24e+0_f4\n    TAUe  = DBLE( TMP )\n\n  END SUBROUTINE SET_END_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_diagb\n!\n! !DESCRIPTION: Subroutine SET\\_DIAGb initializes DIAGb, the TAU value at the\n!  start of the diagnostic averaging interval.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_DIAGb( THISDIAGb )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN) :: THISDIAGb  ! Initial DIAGb value [hrs from 1/1/85]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    DIAGb = THISDIAGb\n\n  END SUBROUTINE SET_DIAGb\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_timesteps\n!\n! !DESCRIPTION: Subroutine SET\\_TIMESTEPS initializes the timesteps for\n!  dynamics, convection, chemistry, emissions, and diagnostics.\n!  Counters are also zeroed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_TIMESTEPS( Input_Opt, CHEMISTRY,  CONVECTION, DYNAMICS, &\n                            EMISSION,  UNIT_CONV,  DIAGNOS,    RADIATION )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt    ! Input options\n    INTEGER,        INTENT(IN) :: CHEMISTRY    ! Chemistry  timestep [sec]\n    INTEGER,        INTENT(IN) :: CONVECTION   ! Convection timestep [sec]\n    INTEGER,        INTENT(IN) :: DYNAMICS     ! Dynamic    timestep [sec]\n    INTEGER,        INTENT(IN) :: EMISSION     ! Emission   timestep [sec]\n    INTEGER,        INTENT(IN) :: UNIT_CONV    ! Unit conve timestep [sec]\n    INTEGER,        INTENT(IN) :: DIAGNOS      ! Diagnostic timestep [sec]\n    INTEGER,        INTENT(IN) :: RADIATION    ! Radiation  timestep [sec]\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Initialize timesteps\n    TS_CHEM  = CHEMISTRY\n    TS_CONV  = CONVECTION\n    TS_DYN   = DYNAMICS\n    TS_EMIS  = EMISSION\n    TS_UNIT  = UNIT_CONV\n    TS_DIAG  = DIAGNOS\n    TS_RAD   = RADIATION\n\n    ! Echo to stdout\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(/,a)' ) 'TIMESTEPS SETTINGS'\n       WRITE( 6, '(  a)' ) '------------------'\n       WRITE( 6, '(''Chemistry  Timestep [sec]   : '', i6)' ) TS_CHEM\n       WRITE( 6, '(''Convection Timestep [sec]   : '', i6)' ) TS_CONV\n       WRITE( 6, '(''Dynamics   Timestep [sec]   : '', i6)' ) TS_DYN\n       WRITE( 6, '(''Emission   Timestep [sec]   : '', i6)' ) TS_EMIS\n       WRITE( 6, '(''Unit Conv  Timestep [sec]   : '', i6)' ) TS_UNIT\n       WRITE( 6, '(''Diagnostic Timestep [sec]   : '', i6)' ) TS_DIAG\n       WRITE( 6, '(''Radiation  Timestep [sec]   : '', i6)' ) TS_RAD\n    ENDIF\n\n  END SUBROUTINE SET_TIMESTEPS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_elapsed_sec\n!\n! !DESCRIPTION: Subroutine SET\\_ELAPSED\\_SEC increments the number of elapsed\n!  seconds by the dynamic timestep TS\\_DYN.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_ELAPSED_SEC\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ELAPSED_SEC = ELAPSED_SEC + TS_DYN\n\n  END SUBROUTINE SET_ELAPSED_SEC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_jd\n!\n! !DESCRIPTION: Function GET\\_JD is a wrapper for the JULDAY routine.  Given\n!  the current NYMD and NHMS values, GET\\_JD will return the current\n!  astronomical Julian date.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_JD( THISNYMD, THISNHMS ) RESULT( THISJD )\n!\n! !USES:\n!\n    USE JULDAY_MOD, ONLY : JULDAY\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: THISNYMD   ! YYYY/MM/DD value\n    INTEGER, INTENT(IN)  :: THISNHMS   ! hh:mm:ss   value\n!\n! !RETURN VALUE:\n!\n    REAL(f8)             :: THISJD     ! Output value\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: Y, M, D, H, MI, S\n    REAL(f8) :: DAY\n\n    !=================================================================\n    ! GET_JD begins here!\n    !=================================================================\n\n    ! Extract year, month, day from NYMDb\n    CALL YMD_EXTRACT( THISNYMD, Y, M, D )\n\n    ! Extract hour, minute, second from NHMSb\n    CALL YMD_EXTRACT( THISNHMS, H, MI, S )\n\n    ! Decimal day (including fractional part)\n    DAY  = DBLE( D ) + ( DBLE( H  ) /    24e+0_f8 ) + &\n                       ( DBLE( MI ) /  1440e+0_f8 ) + &\n                       ( DBLE( S  ) / 86400e+0_f8 )\n\n    ! Compute astronomical Julian day at start of run\n    THISJD = JULDAY( Y, M, DAY )\n\n  END FUNCTION GET_JD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_elapsed_sec\n!\n! !DESCRIPTION: Function GET\\_ELAPSED\\_SEC returns the elapsed seconds since\n!  the start of a GEOS-Chem run to the calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_ELAPSED_SEC() RESULT( THIS_ELAPSED_SEC )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_ELAPSED_SEC\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n! See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_ELAPSED_SEC = ELAPSED_SEC\n\n  END FUNCTION GET_ELAPSED_SEC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_nymdb\n!\n! !DESCRIPTION: Function GET\\_NYMDb returns the NYMDb value (YYYYMMDD at the\n!  beginning of the run).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_NYMDb() RESULT( THISNYMDb )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISNYMDb\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISNYMDb = NYMDb\n\n  END FUNCTION GET_NYMDb\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_nhmsb\n!\n! !DESCRIPTION: Function GET\\_NHMSb returns the NHMSb value (HHMMSS at the\n!  beginning of the run) to the calling program. (bmy, 3/21/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_NHMSb() RESULT( THISNHMSb )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISNHMSb\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISNHMSb = NHMSb\n\n  END FUNCTION GET_NHMSb\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_nymde\n!\n! !DESCRIPTION: Function GET\\_NYMDe returns the NYMDe value (YYYYMMDD at the\n!  end of the run) to the calling program. (bmy, 3/21/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_NYMDe() RESULT( THISNYMDe )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISNYMDe\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n! See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISNYMDe = NYMDe\n\n  END FUNCTION GET_NYMDe\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_nhmse\n!\n! !DESCRIPTION: Function GET\\_NHMSe returns the NHMSe value (HHMMSS at the end\n!  of the run).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_NHMSe() RESULT( THISNHMSe )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISNHMSe\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISNHMSe = NHMSe\n\n  END FUNCTION GET_NHMSe\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_nymd\n!\n! !DESCRIPTION: Function GET\\_NYMD returns the current NYMD value (YYYYMMDD).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_NYMD() RESULT( THISNYMD )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISNYMD\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISNYMD = NYMD\n\n  END FUNCTION GET_NYMD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_nhms\n!\n! !DESCRIPTION: Function GET\\_NHMS returns the current NHMS value (HHMMSS).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_NHMS() RESULT( THISNHMS )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISNHMS\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISNHMS = NHMS\n\n  END FUNCTION GET_NHMS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_time_ahead\n!\n! !DESCRIPTION: Function GET\\_3h\\_AHEAD returns to the calling program a\n!  2-element vector containing the YYYYMMDD and HHMMSS values at the current\n!  time plus N\\_SECS seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TIME_AHEAD( N_SECS ) RESULT( DATE )\n!\n! !USES:\n!\n    USE JULDAY_MOD, ONLY : CALDATE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: N_SECS   ! Seconds ahead to compute date & time\n!\n! !RETURN VALUE:\n!\n    INTEGER             :: DATE(2)  ! Date & time output\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: THISYEAR, THISMONTH, THISDAY, TMP\n    REAL(f8) :: JD\n\n    !=================================================================\n    ! GET_TIME_AHEAD begins here!\n    !=================================================================\n\n    ! Astronomical Julian Date at current time + N_SECS\n    JD = GET_JD( NYMD, NHMS ) + ( N_SECS / 86400e+0_f8 )\n\n    ! Call CALDATE to compute the current YYYYMMDD and HHMMSS\n    CALL CALDATE( DBLE(JD), DATE(1), DATE(2) )\n\n    ! Check to see if HHMMSS is 240000.  This may occur due to a\n    ! roundoff error in CALDATE.  If this is the case, then add 1\n    ! to the date and then set HHMMSS = 0.  Use the GET_JD and\n    ! CALDATE functions to do this computation rigorously.\n    IF ( DATE(2) == 240000 ) THEN\n\n       ! Split the date into Y/M/D variables\n       CALL YMD_EXTRACT( DATE(1), THISYEAR, THISMONTH, THISDAY )\n\n       ! Increment the Astronomical Julian Date by 1 day\n       TMP = THISYEAR*10000 + THISMONTH*100 + THISDAY\n       JD  = GET_JD( TMP, 000000 ) + 1\n\n       ! Convert to YYYY/MM/DD and hh:mm:ss\n       CALL CALDATE( DBLE(JD), DATE(1), DATE(2) )\n    ENDIF\n\n  END FUNCTION GET_TIME_AHEAD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_month\n!\n! !DESCRIPTION: Function GET\\_MONTH returns the current GMT month.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_MONTH() RESULT( THISMONTH )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISMONTH\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISMONTH = MONTH\n\n  END FUNCTION GET_MONTH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_day\n!\n! !DESCRIPTION: Function GET\\_DAY returns the current GMT day.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_DAY() RESULT( THISDAY )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISDAY\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISDAY = DAY\n\n  END FUNCTION GET_DAY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_year\n!\n! !DESCRIPTION: Function GET\\_YEAR returns the current GMT year.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_YEAR() RESULT( THISYEAR )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISYEAR\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISYEAR = YEAR\n\n  END FUNCTION GET_YEAR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_hour\n!\n! !DESCRIPTION: Function GET\\_HOUR returns the current GMT hour.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_HOUR() RESULT( THISHOUR )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISHOUR\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISHOUR = HOUR\n\n  END FUNCTION GET_HOUR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_minute\n!\n! !DESCRIPTION: Function GET\\_MINUTE returns the current GMT minutes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_MINUTE() RESULT( THISMINUTE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISMINUTE\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISMINUTE = MINUTE\n\n  END FUNCTION GET_MINUTE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_second\n!\n! !DESCRIPTION: Function GET\\_SECOND returns the current GMT seconds.\n!  calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_SECOND() RESULT( THISSECOND )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISSECOND\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISSECOND = SECOND\n\n  END FUNCTION GET_SECOND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_day_of_year\n!\n! !DESCRIPTION: Function GET\\_DAY\\_OF\\_YEAR returns the current day of the\n!  year (0-365 or 0-366 for leap years) to the calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_DAY_OF_YEAR() RESULT( THISDAYOFYEAR )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THISDAYOFYEAR  ! Day of year\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISDAYOFYEAR = DAY_OF_YEAR\n\n  END FUNCTION GET_DAY_OF_YEAR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_gmt\n!\n! !DESCRIPTION:  Function GET\\_GMT returns the current Greenwich Mean Time\n!  to the calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_GMT() RESULT( THISGMT )\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: THISGMT   ! Greenwich mean time [hrs]\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISGMT = GMT\n\n  END FUNCTION GET_GMT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_tau\n!\n! !DESCRIPTION: Function GET\\_TAU returns TAU (hours since 1 Jan\n!  1985 at the start of a GEOS-Chem run) to the calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TAU() RESULT( THISTAU )\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: THISTAU  ! TAUb [hrs since 1/1/1985]\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISTAU = TAU\n\n  END FUNCTION GET_TAU\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_taub\n!\n! !DESCRIPTION: Function GET\\_TAUb returns TAUb (hours since 1 Jan 1985\n!  at the start of a GEOS-Chem run) to the calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TAUb() RESULT( THISTAUb )\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: THISTAUb  ! TAUb [hrs since 1/1/1985]\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISTAUb = TAUb\n\n  END FUNCTION GET_TAUb\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_taue\n!\n! !DESCRIPTION: Function GET\\_TAUe returns TAUe (hours since 1 Jan 1985\n!  at the end of a GEOS-Chem run) to the calling program.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TAUe() RESULT( THISTAUe )\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: THISTAUe  ! TAUe [hrs since 1/1/1985]\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THISTAUe = TAUe\n\n  END FUNCTION GET_TAUe\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_localtime\n!\n! !DESCRIPTION: Function GET\\_LOCALTIME returns the local time of a grid\n!  box to the calling program. (bmy, 2/5/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_LOCALTIME( I, J, L, State_Grid, GMT ) &\n       RESULT( THISLOCALTIME )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)           :: I          ! Longitude index\n    INTEGER,        INTENT(IN)           :: J          ! Latitude index\n    INTEGER,        INTENT(IN)           :: L          ! Level index\n    TYPE(GrdState), INTENT(IN)           :: State_Grid ! Grid State object\n    REAL(f8),       INTENT(IN), OPTIONAL :: GMT        ! GMT time of day [hrs]\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: THISLOCALTIME  ! Local time [hrs]\n!\n! !REMARKS:\n!  Local Time = GMT + ( longitude / 15 ) since each hour of time\n!  corresponds to 15 degrees of longitude on the globe\n!\n! !REVISION HISTORY:\n!  05 Feb 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8) :: GMT_HRS\n\n    ! Save the value of the argument GMT in a local variable\n    ! If not passed, then use the current GMT time from time_mod.F90\n    IF ( PRESENT( GMT ) ) THEN\n       GMT_HRS = GMT\n    ELSE\n       GMT_HRS = GET_GMT()\n    ENDIF\n\n    ! Local time  = GMT time [hrs] + longitude / 15\n    THISLOCALTIME = GMT_HRS + ( State_Grid%XMid(I,J) / 15.0_f8 )\n\n    ! Make sure that THISLOCALTIME is in the range 0-24 hours\n    IF ( THISLOCALTIME > 24.0_f8 ) THEN\n       THISLOCALTIME = THISLOCALTIME - 24.0_f8\n    ENDIF\n\n    IF ( THISLOCALTIME < 0.0_f8 ) THEN\n       THISLOCALTIME = THISLOCALTIME + 24.0_f8\n    ENDIF\n\n  END FUNCTION GET_LOCALTIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_LocalTime_In_Sec\n!\n! !DESCRIPTION: Function GET\\_LOCALTIME returns the local time of a grid\n!  box to the calling program. (bmy, 2/5/03)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Get_LocalTime_In_Sec( I, J, L, State_Grid ) &\n       RESULT( Lt_In_Sec )\n!\n! !USES:\n!\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: I           ! Longitude index\n    INTEGER,        INTENT(IN) :: J           ! Latitude index\n    INTEGER,        INTENT(IN) :: L           ! Level index\n    TYPE(GrdState), INTENT(IN) :: State_Grid  ! Grid State object\n!\n! !RETURN VALUE:\n!\n    INTEGER :: Lt_In_Sec   ! Local time [s]\n!\n! !REMARKS:\n!  Local Time = GMT + ( longitude / 15 ) since each hour of time\n!  corresponds to 15 degrees of longitude on the globe\n!\n! !REVISION HISTORY:\n!  18 Apr 2019 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: Offset_Sec, UTC_In_Sec\n\n    ! Compute UTC value in seconds\n    UTC_In_Sec = ( Hour * 3600 ) + ( Minute * 60 ) + Second\n\n    ! 15 degrees of longitude on Earth is 1 hour or 3600 sec of time\n    ! Use NINT to avoid roundoff issues\n    Offset_Sec = NINT(( State_Grid%XMid(I,J) / 15.0_f8 ) * 3600.0_f8 )\n\n    ! Add offset to UTC to get local time\n    Lt_In_Sec  = UTC_In_Sec + Offset_Sec\n\n    ! Make sure that local time is in the range 0-86400\n    IF ( Lt_In_Sec > 86400 ) THEN\n       Lt_In_Sec = Lt_In_Sec - 86400\n    ENDIF\n\n    IF ( Lt_In_Sec < 0 ) THEN\n       Lt_In_Sec = Lt_In_Sec + 86400\n    ENDIF\n\n  END FUNCTION Get_LocalTime_In_Sec\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_chem\n!\n! !DESCRIPTION: Function GET\\_TS\\_CHEM returns the chemistry timestep in\n!  seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_CHEM() RESULT( THIS_TS_CHEM )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_CHEM   ! ! Chemistry timestep [sec]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_CHEM = TS_CHEM\n\n  END FUNCTION GET_TS_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_rad\n!\n! !DESCRIPTION: Function GET\\_TS\\_RAD returns the radiation timestep in\n!  seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_RAD() RESULT( THIS_TS_RAD )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_RAD   ! ! Radiation timestep [sec]\n!\n! !REVISION HISTORY:\n!  06 Oct 2012 - D. Ridley   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_RAD = TS_RAD\n\n  END FUNCTION GET_TS_RAD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_conv\n!\n! !DESCRIPTION: Function GET\\_TS\\_CONV returns the convection timestep in\n!  seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_CONV() RESULT( THIS_TS_CONV )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_CONV   ! Convective timestep [sec]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_CONV = TS_CONV\n\n  END FUNCTION GET_TS_CONV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_diag\n!\n! !DESCRIPTION: Function GET\\_TS\\_DIAG returns the diagnostic timestep in\n!  seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_DIAG() RESULT( THIS_TS_DIAG )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_DIAG   ! Diagnostic timestep [sec]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_DIAG = TS_DIAG\n\n  END FUNCTION GET_TS_DIAG\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_dyn\n!\n! !DESCRIPTION: Function GET\\_TS\\_DIAG returns the diagnostic timestep in\n!  seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_DYN() RESULT( THIS_TS_DYN )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_DYN    ! Dynamic timestep [sec]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_DYN = TS_DYN\n\n  END FUNCTION GET_TS_DYN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_emis\n!\n! !DESCRIPTION: Function GET\\_TS\\_EMIS returns the emission timestep in\n!  seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_EMIS() RESULT( THIS_TS_EMIS )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_EMIS   ! Emissions timestep [sec]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_EMIS = TS_EMIS\n\n  END FUNCTION GET_TS_EMIS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_ts_unit\n!\n! !DESCRIPTION: Function GET\\_TS\\_UNIT returns the unit-conversion timestep\n!  in seconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TS_UNIT() RESULT( THIS_TS_UNIT )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: THIS_TS_UNIT   ! Unit conversion timestep [sec]\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    THIS_TS_UNIT = TS_UNIT\n\n  END FUNCTION GET_TS_UNIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_a1_time\n!\n! !DESCRIPTION: Function GET\\_A1\\_TIME returns the correct YYYYMMDD and HHMMSS\n!  values that are needed to read in the next average 1-hour (A-1) fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_A1_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REVISION HISTORY:\n!  19 Aug 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! GEOS-FP and MERRA-2 met fields are 1-hour time-averages, timestamped\n    ! at the center of the averaging periods (00:30, 01:30, 02:30 ... 23:30)\n    DATE = GET_TIME_AHEAD( 1800 )\n\n  END FUNCTION GET_A1_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_a3_time\n!\n! !DESCRIPTION: Function GET\\_A3\\_TIME returns the correct YYYYMMDD and HHMMSS\n!  values that are needed to read in the next average 3-hour (A-3) fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_A3_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! The A-3 fields are timestamped by center time.\n    ! Therefore, the difference between the actual time when the fields\n    ! are read and the A-3 timestamp time is 90 minutes.\n    DATE = GET_TIME_AHEAD( 5400 )\n\n  END FUNCTION GET_A3_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_i3_time\n!\n! !DESCRIPTION: Function GET\\_I3\\_TIME returns the correct YYYYMMDD and\n!  HHMMSS values that are needed to read in the next instantaneous 3-hour\n!  (I-3) fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_I3_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REMARKS:\n!  Modified for start times other than 0 GMT.\n!\n! !REVISION HISTORY:\n!  06 Feb 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    INTEGER       :: HH, MM, SS, SECS, OFFSET\n\n    !=================================================================\n    ! ALL MET FIELDS:\n    !=================================================================\n\n    IF ( FIRST ) THEN\n       !--------------------------------------------------------------\n       ! FIRST-TIME ONLY!  Get the proper # of hours until the next\n       ! I3 time.  Also works for start times other than 0 GMT.\n       !--------------------------------------------------------------\n\n       ! Split NHMS into hours, mins, seconds\n       CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n       ! Compute seconds elapsed in the 3-hour interval\n       SECS   = MOD( HH, 3 )*3600 + MM*60 + SS\n\n       ! Compute offset to next I-3 time\n       OFFSET = 10800 - SECS\n\n       ! Get YYYY/MM/DD and hh:mm:ss to next I3 time\n       DATE   = GET_TIME_AHEAD( OFFSET )\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n\n       RETURN\n    ENDIF\n\n    ! We need to read in the I-3 fields 3h (180 mins, or 10800 secs)\n    ! ahead of time\n    DATE = GET_TIME_AHEAD( 10800 )\n\n  END FUNCTION GET_I3_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_i1dyn_time\n!\n! !DESCRIPTION: Function GET\\_I1dyn\\_TIME returns the correct YYYYMMDD and\n!  HHMMSS values that are needed to read in the next instantaneous 1-hour\n!  (I-1) fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_I1dyn_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REMARKS:\n!  Modified for start times other than 0 GMT.\n!\n! !REVISION HISTORY:\n!  15 Jun 2024 - X. Wang - Initial version, for 0.125x0.15625\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    INTEGER       :: HH, MM, SS, SECS, OFFSET\n\n    !=================================================================\n    ! ALL MET FIELDS:\n    !=================================================================\n\n    IF ( FIRST ) THEN\n       !--------------------------------------------------------------\n       ! FIRST-TIME ONLY!  Get the proper # of hours until the next\n       ! I1dyn time.  Also works for start times other than 0 GMT.\n       !--------------------------------------------------------------\n\n       ! Split NHMS into hours, mins, seconds\n       CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n       ! Compute seconds elapsed in the 1-hour interval\n       SECS   = MOD( HH, 1 )*3600 + MM*60 + SS\n\n       ! Compute offset to next I-1 time\n       OFFSET = 3600 - SECS\n\n       ! Get YYYY/MM/DD and hh:mm:ss to next I1dyn time\n       DATE   = GET_TIME_AHEAD( OFFSET )\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n\n       RETURN\n    ENDIF\n\n    ! We need to read in the I-1 fields 1h (60 mins, or 3600 secs)\n    ! ahead of time\n    DATE = GET_TIME_AHEAD( 3600 )\n\n\n  END FUNCTION GET_I1dyn_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_bc_time\n!\n! !DESCRIPTION: Function GET\\_BC\\_TIME returns the correct YYYYMMDD and HHMMSS\n!  values that are needed to read in the next 3-hour boundary condition fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_BC_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REVISION HISTORY:\n!  24 Feb 2020 - M. Sulprizio- Initial version, based on GET_I3_TIME\n!  See the Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    LOGICAL, SAVE :: FIRST = .TRUE.\n    INTEGER       :: HH, MM, SS, SECS, OFFSET\n\n    IF ( FIRST ) THEN\n       !--------------------------------------------------------------\n       ! FIRST-TIME ONLY!  Get the proper # of hours until the next\n       ! BC time.  Also works for start times other than 0 GMT.\n       !--------------------------------------------------------------\n\n       ! Split NHMS into hours, mins, seconds\n       CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n       ! Compute seconds elapsed in the 3-hour interval\n       SECS   = MOD( HH, 3 )*3600 + MM*60 + SS\n\n       ! Compute offset to next I-3 time\n       OFFSET = 10800 - SECS\n\n       ! Get YYYY/MM/DD and hh:mm:ss to next BC time\n       DATE   = GET_TIME_AHEAD( OFFSET )\n\n       ! Reset first-time flag\n       FIRST = .FALSE.\n\n       RETURN\n    ENDIF\n\n    ! Boundary condition time slices are set to fixed 3-hourly intervals\n    ! starting from 00z, in units of minutes from start. i.e.,\n    ! time = 0, 180, 360, 540, 720, 900, 1080, 1260 ;\n    ! time:units = \"minutes since 2019-01-01T00:00:00+00:00\" ;\n    !\n    ! The GET_BC_TIME is used to retrieve HHMMSS time slices for use in\n    ! Get_Boundary_Conditions, which performs the calculation\n    !     t_index = ( HHMMSS / 030000 ) + 1\n    ! Thus, HHMMSS must not be offset from the current time. (hplin, 7/27/23)\n    DATE = GET_TIME_AHEAD( 0 )\n\n  END FUNCTION GET_BC_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_first_a1_time\n!\n! !DESCRIPTION: Function GET\\_FIRST\\_A1\\_TIME returns the correct YYYYMMDD\n!  and HHMMSS values the first time that A-3 fields are read in from disk.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_FIRST_A1_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REVISION HISTORY:\n!  26 Jun 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    DATE = GET_A1_TIME()\n\n  END FUNCTION GET_FIRST_A1_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_first_a3_time\n!\n! !DESCRIPTION: Function GET\\_FIRST\\_A3\\_TIME returns the correct YYYYMMDD\n!  and HHMMSS values the first time that A-3 fields are read in from disk.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_FIRST_A3_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)   ! YYYYMMDD and HHMMSS values\n!\n! !REVISION HISTORY:\n!  26 Jun 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: HH, MM, SS, SECS, OFFSET\n\n    !==================================================================\n    ! A3 fields are indexed at the midpoint of the 3-hr interval\n    !==================================================================\n\n    ! Split NYMS into hours, mins, seconds\n    CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n    ! Compute seconds elapsed in the 3-hour interval\n    SECS   = MOD( HH, 3 )*3600 + MM*60 + SS\n\n    ! Compute offset to midpoint of 3hr interval\n    OFFSET = 10800 - ( SECS + 5400 )\n\n    ! Get YYYY/MM/DD and hh:mm:ss at midpoint of 3hr interval\n    DATE   = GET_TIME_AHEAD( OFFSET )\n\n  END FUNCTION GET_FIRST_A3_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_first_i3_time\n!\n! !DESCRIPTION: Function GET\\_FIRST\\_I3\\_TIME returns the correct YYYYMMDD and\n!  HHMMSS values the first time that I-3 fields are read in from disk.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_FIRST_I3_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)    ! YYYYMMDD, HHMMSS values\n!\n! !REVISION HISTORY:\n!  03 Feb 2012 - R. Yantosca - Initial version, for GEOS-5.7.2\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: HH, MM, SS, SECS, OFFSET\n\n    !==================================================================\n    ! Compute first I-6 time for all met field types\n    !==================================================================\n\n    ! Split NYMS into hours, mins, seconds\n    CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n    ! Compute seconds elapsed in the 3-hour interval\n    SECS   = MOD( HH, 3 )*3600 + MM*60 + SS\n\n    ! Compute offset to nearest I-6 time\n    OFFSET = -SECS\n\n    ! Get YYYY/MM/DD and hh:mm:ss to nearest I-6 time\n    DATE   = GET_TIME_AHEAD( OFFSET )\n\n  END FUNCTION GET_FIRST_I3_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_first_i1dyn_time\n!\n! !DESCRIPTION: Function GET\\_FIRST\\_I1dyn\\_TIME returns the correct YYYYMMDD and\n!  HHMMSS values the first time that I-1 fields are read in from disk.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_FIRST_I1dyn_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)    ! YYYYMMDD, HHMMSS values\n!\n! !REVISION HISTORY:\n!  15 Jun 2024 - X. Wang - Initial version, for 0.125x0.15625\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: HH, MM, SS, SECS, OFFSET\n\n    !==================================================================\n    ! Compute first I-6 time for all met field types\n    !==================================================================\n\n    ! Split NYMS into hours, mins, seconds\n    CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n    ! Compute seconds elapsed in the 3-hour interval\n    SECS   = MOD( HH, 1 )*3600 + MM*60 + SS\n\n    ! Compute offset to nearest I-6 time\n    OFFSET = -SECS\n\n    ! Get YYYY/MM/DD and hh:mm:ss to nearest I-6 time\n    DATE   = GET_TIME_AHEAD( OFFSET )\n\n  END FUNCTION GET_FIRST_I1dyn_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_first_bc_time\n!\n! !DESCRIPTION: Function GET\\_FIRST\\_BC\\_TIME returns the correct YYYYMMDD and\n!  HHMMSS values the first time that boundary conditions are read in from disk.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_FIRST_BC_TIME() RESULT( DATE )\n!\n! !RETURN VALUE:\n!\n    INTEGER :: DATE(2)    ! YYYYMMDD, HHMMSS values\n!\n! !REVISION HISTORY:\n!  24 Feb 2020 - M. Sulprizio- Initial version, based on GET_FIRST_3_TIME\n!  See the Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: HH, MM, SS, SECS, OFFSET\n\n    !==================================================================\n    ! Compute first time for boundary conditions\n    !==================================================================\n\n    ! Split NYMS into hours, mins, seconds\n    CALL YMD_EXTRACT( NHMS, HH, MM, SS )\n\n    ! Compute seconds elapsed in the 3-hour interval\n    SECS   = MOD( HH, 3 )*3600 + MM*60 + SS\n\n    ! Compute offset to nearest I-6 time\n    OFFSET = -SECS\n\n    ! Get YYYY/MM/DD and hh:mm:ss to nearest I-6 time\n    DATE   = GET_TIME_AHEAD( OFFSET )\n\n  END FUNCTION GET_FIRST_BC_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_chem\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_CHEM returns TRUE if it is time to do\n!  chemistry, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_CHEM() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! changes for proper chemistry time (lzh, ccc, 3/20/10)\n    INTEGER :: M\n\n    !=================================================================\n    ! ITS_TIME_FOR_CHEM begins here!\n    !=================================================================\n\n    ! Get multiplier between transport and chemistry:\n    M = TS_CHEM/TS_DYN\n\n    ! Divide by 2 (get middle). KEEP INTEGERS!!!!\n    M = MAX( M/2, 1 )\n\n    ! Is it time for chemistry?\n    ! Chemistry time step is now in the center of transport time steps\n    FLAG = ( MOD( ELAPSED_SEC, TS_CHEM ) == (M-1)*TS_DYN )\n\n  END FUNCTION ITS_TIME_FOR_CHEM\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: its_time_for_rt\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_RT returns TRUE if it is time to do\n!  radiative transfer calculations, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_RT() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  04 Oct 2012 - D. Ridley   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Is it time for radiation?\n    FLAG = ( MOD( ELAPSED_SEC, TS_RAD ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_RT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: its_time_for_surface_rad\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_SURFACE\\_RAD returns TRUE if it is\n!  time to read surface albedo and emissivity fields, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_SURFACE_RAD() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  06 Oct 2012 - D. Ridley   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: M\n\n    !=================================================================\n    ! ITS_TIME_FOR_SURFACE_RAD begins here!\n    !=================================================================\n\n    ! Get half a time step value\n    M = GET_DAY_OF_YEAR()\n\n    ! Is it time to read the 8-day file?\n    ! files start on 1, then 9, 17... etc\n    FLAG = ( MOD( M, 8 ) == 1 )\n\n  END FUNCTION ITS_TIME_FOR_SURFACE_RAD\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_conv\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_CONV returns TRUE if it is time to do\n!  convection, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_CONV() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Is it time for convection?\n    FLAG = ( MOD( ELAPSED_SEC, TS_CONV ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_CONV\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_dyn\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_DYN returns TRUE if it is time to do\n!  chemistry and false otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_DYN() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n! See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Is it time for dynamics?\n    FLAG = ( MOD( ELAPSED_SEC, TS_DYN ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_DYN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_emis\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_EMIS returns TRUE if it is time to do\n!  emissions, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_EMIS() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! changes for proper chemistry time (lzh, ccc, 3/20/10)\n    INTEGER :: M\n\n    !=================================================================\n    ! ITS_TIME_FOR_EMIS begins here!\n    !=================================================================\n\n    ! Get multiplier between transport and chemistry:\n    M = TS_EMIS/TS_DYN\n\n    ! Divide by 2 (get middle). KEEP INTEGERS!!!!\n    M = MAX( M/2, 1 )\n\n    ! Is it time for emissions?\n    ! Emission time step is now in the center of transport time steps\n    FLAG = ( MOD( ELAPSED_SEC, TS_EMIS ) == (M-1)*TS_DYN )\n\n  END FUNCTION ITS_TIME_FOR_EMIS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_exch\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_EXCH returns TRUE if it is time to do\n!  exchange for two-way coupled simulation, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_EXCH() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  30 Mar 2014 - Y.Y. Yan    - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! changes for proper chemistry time (lzh, ccc, 3/20/10)\n    INTEGER :: M\n\n    !=================================================================\n    ! ITS_TIME_FOR_CHEM begins here!\n    !=================================================================\n\n    ! Get multiplier between transport and chemistry:\n    M = TS_CHEM/TS_DYN\n\n    ! Divide by 2 (get middle). KEEP INTEGERS!!!!\n    M = MAX( M/2, 1 )\n\n    ! Is it time for exchange?\n    ! Chemistry time step is now in the center of transport time steps\n    FLAG = ( MOD( ELAPSED_SEC, 10800 ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_EXCH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_unit\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_UNIT returns TRUE if it is time to do\n!  unit conversion, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_UNIT() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Is it time for unit conversion?\n    FLAG = ( MOD( ELAPSED_SEC, TS_DYN ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_UNIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_a1\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_A1 returns TRUE if it is time to read\n!  in A1 (average 1-hr fields) and FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_A1() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  20 Aug 2010 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! We read A1 fields every 3 hours\n    FLAG = ( MOD( NHMS, 010000 ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_A1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_a3\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_A3 returns TRUE if it is time to read\n!  in A3 (average 3-hr fields) and FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_A3() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! We read A3 fields every 3 hours\n    FLAG = ( MOD( NHMS, 030000 ) == 0 )\n\n  END FUNCTION ITS_TIME_FOR_A3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_i3\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_I3 returns TRUE if it is time to read\n!  in I2 (instantaneous 3-hr fields) and FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_I3() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  03 Feb 2012 - R. Yantosca - Initial version, for GEOS-5.7.2\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARAIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n\n    ! We read in I-6 fields at 00, 03, 06, 09, 12, 15, 18, 21 GMT\n    FLAG = ( ( MOD( NHMS, 030000 ) == 0 ) .or. FIRST )\n\n    FIRST = .FALSE.\n\n  END FUNCTION ITS_TIME_FOR_I3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_i1dyn\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_I1dyn returns TRUE if it is time to read\n!  in I1 (instantaneous 1-hr fields) and FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_I1dyn() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  15 Jun 2024 - X. Wang - Initial version, for 0.125x0.15625\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARAIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n\n    ! We read in I1dyn fields every hours at 00, 01, 02, ... GMT\n    FLAG = ( ( MOD( NHMS, 10000 ) == 0 ) .or. FIRST )\n\n    FIRST = .FALSE.\n\n  END FUNCTION ITS_TIME_FOR_I1dyn\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_bc\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_BC returns TRUE if it is time to read\n!  in 3-hourly boundary conditions and FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_BC() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  24 Feb 2020 - M. Sulprizio- Initial version, based on ITS_TIME_FOR_I3\n!  See the Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARAIABLES:\n!\n    LOGICAL, SAVE :: FIRST = .TRUE.\n\n    ! We read in boundary conditions at 00, 03, 06, 09, 12, 15, 18, 21 GMT\n    FLAG = ( ( MOD( NHMS, 030000 ) == 0 ) .or. FIRST )\n\n    FIRST = .FALSE.\n\n  END FUNCTION ITS_TIME_FOR_BC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_Time_For_exit\n!\n! !DESCRIPTION: Function ITS\\_TIME\\_FOR\\_EXIT returns TRUE if it is the end of\n!  the GEOS-Chem simulation (i.e. TAU >= TAUe), or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_TIME_FOR_EXIT() RESULT( FLAG )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: FLAG\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Test if it's end of run\n    FLAG = ( TAU >= TAUe )\n\n  END FUNCTION ITS_TIME_FOR_EXIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_A_LeapYear\n!\n! !DESCRIPTION: Function ITS\\_A\\_LEAPYEAR tests to see if a year is really a\n!  leapyear.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_A_LEAPYEAR( YEAR_IN, FORCE ) RESULT( IS_LEAPYEAR )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN), OPTIONAL :: YEAR_IN   ! Year to test if leapyear\n    LOGICAL, INTENT(IN), OPTIONAL :: FORCE     ! Do not exit if using GCAP\n!\n! !RETURN VALUE:\n!\n    LOGICAL                       :: IS_LEAPYEAR  ! =T if it's a leapyear\n!\n! !REVISION HISTORY:\n!  17 Mar 1999 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER  :: THISYEAR\n    LOGICAL  :: THISFORCE\n\n    !=================================================================\n    ! LEAPYEAR begins here!\n    !=================================================================\n\n    ! If YEAR_IN is passed, use that value; otherwise use the value\n    ! of the current year as stored in module variable YEAR.\n    IF ( PRESENT( YEAR_IN ) ) THEN\n       THISYEAR = YEAR_IN\n    ELSE\n       THISYEAR = YEAR\n    ENDIF\n\n    ! If FORCE is passed, use that value, otherwise default to .FALSE.\n    IF ( PRESENT( FORCE ) ) THEN\n       THISFORCE = FORCE\n    ELSE\n       THISFORCE = .FALSE.\n    ENDIF\n\n    !=================================================================\n    ! A leap year is:\n    ! (1) evenly divisible by 4 (if not a century year)\n    ! (2) evenly divisible by 4, 100, and 400 (if a century year)\n    !\n    ! EXAMPLES:\n    ! (a) 1992 is a leap year since it is evenly divisible by 4,\n    !     and is not a century year (i.e. it doesn't end in '00').\n    !\n    ! (b) 1900 is NOT a leap year, since while being evenly divisible\n    !     by 4 and 100, it is NOT divisible by 400.\n    !\n    ! (c) 2000 is a leap year, since it is divisible by\n    !     4, 100, and 400.\n    !=================================================================\n    IS_LEAPYEAR = .FALSE.\n\n    IF ( MOD( THISYEAR, 4 ) == 0 ) THEN\n       IF ( MOD( THISYEAR, 100 ) == 0 ) THEN\n          IF ( MOD( THISYEAR, 400 ) == 0 ) THEN\n             IS_LEAPYEAR = .TRUE.\n          ENDIF\n       ELSE\n          IS_LEAPYEAR = .TRUE.\n       ENDIF\n    ENDIF\n\n  END FUNCTION ITS_A_LEAPYEAR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_A_New_Year\n!\n! !DESCRIPTION: Function ITS\\_A\\_NEW\\_YEAR returns TRUE if it's the first\n!  timestep of the year when we have to read in annual data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_A_NEW_YEAR( NO_CCTS ) RESULT( IS_NEW_YEAR )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL, OPTIONAL :: NO_CCTS       ! =T reverts to previous behavior\n                                       ! (i.e. w/o using central chem step)\n!\n! !RETURN VALUE:\n!\n    LOGICAL           :: IS_NEW_YEAR   ! =T if it's 1st data read of year\n!\n! !REMARKS:\n!  ITS_A_NEW_YEAR assumes that we are using the central chemistry timestep\n!  option (i.e. do chemistry & emissions & related processes at the midpoint\n!  of each chemistry timestep).  To revert to the prior behavior, set the\n!  optional flag NO_CCTS = .TRUE.\n!                                                                             .\n!  If we are using the central chemistry timestep option (which is now the\n!  default behavior), then we must not read data at 00:00 GMT on the first day\n!  of the year, but at the center of the first chemistry timestep of the\n!  year.  This is because emissions and chemistry are done at the same time.\n!  The proper time of day for reading emissions is determined by function\n!  ITS_TIME_FOR_EMIS, also within time_mod.F90.\n!                                                                             .\n!  Similarly, for simulations that start at an arbitrary midmonth date and\n!  time, we must not read data at the starting date and time of the simulation,\n!  but at the midpoint of the first chemistry timestep of the simulation.\n!                                                                             .\n!  If we are not using the central chemistry timestep option (specified by\n!  NO_CCTS=.TRUE.), then the first data read of the month occurs at 00:00 GMT\n!  on the Jan 1st.  Similarly, for those simulations that start at midmonth,\n!  the first data read will occur the starting date and time\n!  of the simulation.\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    LOGICAL  :: NO_CENTRAL\n    INTEGER  :: HH,     MM,   SS\n    REAL(f8) :: GMTb,   TS\n\n    !==============================================================\n    ! Initialization\n    !==============================================================\n\n    ! Save the optional argument NO_CCTS in a local shadow variable\n    IF ( PRESENT( NO_CCTS ) ) THEN\n       NO_CENTRAL = NO_CCTS\n    ELSE\n       NO_CENTRAL = .FALSE.\n    ENDIF\n\n    ! Emissions timestep [hours]\n    TS = DBLE( TS_EMIS ) / 3600e+0_f8\n\n    !==============================================================\n    ! FOR JANUARY 1st OF THE YEAR\n    !==============================================================\n    IF ( MONTH == 1 .and. DAY == 1 ) THEN\n\n       IF ( NO_CENTRAL ) THEN\n\n          ! Here, we are not using the central chemistry timestep.\n          ! Therefore, the first data read of the year should occur\n          ! at 00:00 GMT on Jan 1st.\n          IS_NEW_YEAR = ( NHMS == 000000 )\n\n       ELSE\n\n          ! Here, we are using the central chemistry timestep option.\n          ! Therefore, the first data read of the year will occur not at\n          ! 00:00 GMT on the Jan 1st, but offset by a small amount (as\n          ! diagnosed by function ITS_TIME_FOR_EMIS).\n          IS_NEW_YEAR = ( GMT < TS .and. ITS_TIME_FOR_EMIS() )\n\n       ENDIF\n\n    ELSE IF ( NYMD == NYMDb ) THEN\n\n       !==============================================================\n       ! FOR THE FIRST DAY OF THE SIMULATION\n       ! (i.e. for simulations that start at other times of the year)\n       !==============================================================\n       IF ( NO_CENTRAL ) THEN\n\n          ! Here, we are not using the central chemistry timestep.\n          ! Therefore, the first data read of this year should occur\n          ! at the start time of the simulation.\n          IS_NEW_YEAR = ( NHMS == NHMSb )\n\n       ELSE\n\n          ! Split starting time into hour, minute, second\n          CALL YMD_EXTRACT( NHMSb, HH, MM, SS )\n\n          ! Compute GMT at the start of the simulation\n          GMTb         = DBLE( HH ) + ( DBLE( MM ) / 60e+0_f8 )\n\n          ! Here, we are using the central chemistry timestep option.\n          ! Therefore, the first data read of the year will occur not\n          ! at  00:00 GMT on Jan 1st, but offset by a small amount (as\n          ! diagnosed by function ITS_TIME_FOR_EMIS).\n          IS_NEW_YEAR  = ( GMT < GMTb+TS .and. ITS_TIME_FOR_EMIS() )\n\n       ENDIF\n\n    ELSE\n\n       !==============================================================\n       ! FOR ALL OTHER DAYS\n       !==============================================================\n\n       ! It isn't time for the first data read of the year; return FALSE\n       IS_NEW_YEAR = .FALSE.\n\n    ENDIF\n\n  END FUNCTION ITS_A_NEW_YEAR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_A_New_Month\n!\n! !DESCRIPTION: Function ITS\\_A\\_NEW\\_MONTH returns TRUE if it's the first\n!  timestep of the month when we have to read in monthly data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_A_NEW_MONTH( NO_CCTS ) RESULT( IS_NEW_MONTH )\n!\n! !INPUT PARAMETERS\n!\n    LOGICAL, OPTIONAL :: NO_CCTS       ! =T reverts to previous behavior\n                                       ! (i.e. w/o using central chem step)\n!\n! !RETURN VALUE:\n!\n    LOGICAL           :: IS_NEW_MONTH  ! =T if it's 1st data read of month\n!\n! !REMARKS:\n!  ITS_A_NEW_MONTH assumes that we are using the central chemistry timestep\n!  option (i.e. do chemistry & emissions & related processes at the midpoint\n!  of each chemistry timestep).  To revert to the prior behavior, set the\n!  optional flag NO_CCTS = .TRUE.\n!                                                                             .\n!  If we are using the central chemistry timestep option (which is now the\n!  default behavior), then we must not read data at 00:00 GMT on the first day\n!  of the month, but at the center of the first chemistry timestep of the\n!  month.  This is because emissions and chemistry are done at the same time.\n!  The proper time of day for reading emissions is determined by function\n!  ITS_TIME_FOR_EMIS, also within time_mod.F90.\n!                                                                             .\n!  Similarly, for simulations that start at an arbitrary midmonth date and\n!  time, we must not read data at the starting date and time of the simulation,\n!  but at the midpoint of the first chemistry timestep of the simulation.\n!                                                                             .\n!  If we are not using the central chemistry timestep option (specified by\n!  NO_CCTS=.TRUE.), then the first data read of the month occurs at 00:00 GMT\n!  on the first day of the month.  Similarly, for those simulations that start\n!  at midmonth, the first data read will occur the starting date and time\n!  of the simulation.\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    LOGICAL  :: NO_CENTRAL\n    INTEGER  :: HH,   MM,  SS\n    REAL(f8) :: GMTb, TS\n\n    !==============================================================\n    ! Initialization\n    !==============================================================\n\n    ! Save\n    IF ( PRESENT( NO_CCTS ) ) THEN\n       NO_CENTRAL = NO_CCTS\n    ELSE\n       NO_CENTRAL = .FALSE.\n    ENDIF\n\n    ! Emissions timestep [hours]\n    TS = DBLE( TS_EMIS ) / 3600e+0_f8\n\n    IF ( DAY == 1 .and. HOUR == 0 .and. MINUTE == 0 ) THEN\n\n       !==============================================================\n       ! FOR THE FIRST DAY OF THE MONTH\n       !==============================================================\n       IF ( NO_CENTRAL ) THEN\n\n          ! Here, we are not using the central chemistry timestep.\n          ! Therefore, the first data read of the month should occur\n          ! at 00:00 GMT of the 1st day of the month.\n          IS_NEW_MONTH = ( NHMS == 000000 )\n\n       ELSE\n\n          ! Here, we are using the central chemistry timestep option.\n          ! Therefore, the first data read of the month will occur not at\n          ! 00:00 GMT on the 1st day of the month, but offset by a small\n          ! amount (as diagnosed by function ITS_TIME_FOR_EMIS).\n          IS_NEW_MONTH = ( GMT < TS .and. ITS_TIME_FOR_EMIS() )\n\n       ENDIF\n\n    ELSE IF ( NYMD == NYMDb ) THEN\n\n       !==============================================================\n       ! FOR THE FIRST DAY OF THE SIMULATION\n       ! (i.e. for simulations that start at other times of the month)\n       !==============================================================\n       IF ( NO_CENTRAL ) THEN\n\n          ! Here, we are not using the central chemistry timestep.\n          ! Therefore, the first data read of this month should occur\n          ! at the start time of the simulation.\n          IS_NEW_MONTH = ( NHMS == NHMSb )\n\n       ELSE\n\n          ! Split starting time into hour, minute, second\n          CALL YMD_EXTRACT( NHMSb, HH, MM, SS )\n\n          ! Compute GMT at the start of the simulation\n          GMTb         = DBLE( HH ) + ( DBLE( MM ) / 60e+0_f8 )\n\n          ! Here, we are using the central chemistry timestep option.\n          ! Therefore, the first data read of the month will occur not at\n          ! 00:00 GMT on the 1st day of the month, but offset by a small\n          ! amount (as diagnosed by function ITS_TIME_FOR_EMIS).\n          IS_NEW_MONTH = ( GMT < GMTb+TS .and. ITS_TIME_FOR_EMIS() )\n\n       ENDIF\n\n    ELSE\n\n       !==============================================================\n       ! FOR ALL OTHER DAYS\n       !==============================================================\n\n       ! It isn't time for the first data read of the month; return FALSE\n       IS_NEW_MONTH = .FALSE.\n\n    ENDIF\n\n  END FUNCTION ITS_A_NEW_MONTH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_MidMonth\n!\n! !DESCRIPTION: Function ITS\\_MIDMONTH returns TRUE if it's the middle of a\n!  month.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_MIDMONTH() RESULT( IS_MIDMONTH )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: IS_MIDMONTH\n!\n! !REVISION HISTORY:\n!  10 Oct 2005 - S. Strode   - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Test for the 16th of the month at 0 GMT\n    IS_MIDMONTH = ( DAY == 16 .and. ITS_A_NEW_DAY() )\n\n  END FUNCTION ITS_MIDMONTH\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_A_New_Day\n!\n! !DESCRIPTION: Function ITS\\_A\\_NEW\\_DAY returns TRUE if it's the first\n!  timestep of the day when we have to read in daily data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_A_NEW_DAY( NO_CCTS ) RESULT( IS_NEW_DAY )\n!\n! !INPUT PARAMETERS\n!\n    LOGICAL, OPTIONAL :: NO_CCTS       ! =T reverts to previous behavior\n                                       ! (i.e. w/o using central chem step)\n!\n! !RETURN VALUE:\n!\n    LOGICAL           :: IS_NEW_DAY    ! =T if it's 1st data read of day\n!\n! !REMARKS:\n!  ITS_A_NEW_DAY assumes that we are using the central chemistry timestep\n!  option (i.e. do chemistry & emissions & related processes at the midpoint\n!  of each chemistry timestep).  To revert to the prior behavior, set the\n!  optional flag NO_CCTS = .TRUE.\n!                                                                             .\n!  If we are using the central chemistry timestep option (which is now the\n!  default behavior), then we must not read data at 00:00 GMT of each day,\n!  but at the center of the first chemistry timestep of the day.  This is\n!  because emissions and chemistry are done at the same time.  The proper\n!  time of day for reading emissions is determined by function\n!  ITS_TIME_FOR_EMIS, also within time_mod.F90.\n!                                                                             .\n!  Similarly, for simulations that start at an arbitrary midmonth date and\n!  time, we must not read data at the starting date and time of the simulation,\n!  but at the midpoint of the first chemistry timestep of the simulation.\n!                                                                             .\n!  If we are not using the central chemistry timestep option (specified by\n!  NO_CCTS=.TRUE.), then the first data read of the month occurs at 00:00 GMT\n!  each day.  Similarly, for those simulations that start at midmonth, the\n!  first data read will occur the starting date and time of the simulation.\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    LOGICAL  :: NO_CENTRAL\n    INTEGER  :: HH,     MM,   SS\n    REAL(f8) :: GMTb,   TS\n\n    !==============================================================\n    ! Initialization\n    !==============================================================\n\n    ! Save optional argument NO_CCTS in a local shadow variable\n    IF ( PRESENT( NO_CCTS ) ) THEN\n       NO_CENTRAL = NO_CCTS\n    ELSE\n       NO_CENTRAL = .FALSE.\n    ENDIF\n\n    ! Emissions timestep [hours]\n    TS = DBLE( TS_EMIS ) / 3600e+0_f8\n\n    IF ( NYMD == NYMDb ) THEN\n\n       !==============================================================\n       ! FOR THE FIRST DAY OF THE SIMULATION\n       ! (i.e. for simulations that start at any time of the year)\n       !==============================================================\n       IF ( NO_CENTRAL ) THEN\n\n          ! Here, we are not using the central chemistry timestep option\n          ! Therefore, the first data read of this day should occur at\n          ! the start time of the simulation.\n          IS_NEW_DAY = ( NHMS == NHMSb )\n\n       ELSE\n\n          ! Split starting time into hour, minute, second\n          CALL YMD_EXTRACT( NHMSb, HH, MM, SS )\n\n          ! Compute GMT at the start of the simulation\n          GMTb       = DBLE( HH ) + ( DBLE( MM ) / 60e+0_f8 )\n\n          ! Here, we are using the central chemistry timestep option.\n          ! Therefore, the first data read of the day will occur not at\n          ! 00:00 GMT, but offset by a small amount (as diagnosed by\n          ! function ITS_TIME_FOR_EMIS).\n          IS_NEW_DAY = ( GMT < GMTb+TS .and. ITS_TIME_FOR_EMIS() )\n\n       ENDIF\n\n    ELSE\n\n       !==============================================================\n       ! FOR EACH NEW DAY\n       !==============================================================\n       IF ( NO_CENTRAL ) THEN\n\n          ! Here, we are not using the central chemistry timestep.\n          ! Therefore, the first data read of this day should occur\n          ! at 00:00 GMT.\n          IS_NEW_DAY = ( NHMS == 000000 )\n\n       ELSE\n\n          ! Here, we are using the central chemistry timestep option.\n          ! Therefore, the first data read of the day will occur not at\n          ! 00:00 GMT, but offset by a small amount (as diagnosed by\n          ! function ITS_TIME_FOR_EMIS).\n          IS_NEW_DAY = ( GMT < TS .and. ITS_TIME_FOR_EMIS() )\n\n       ENDIF\n\n    ENDIF\n\n  END FUNCTION ITS_A_NEW_DAY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Its_A_New_Hour\n!\n! !DESCRIPTION: Function ITS\\_A\\_NEW\\_HOUR returns TRUE if it's the first\n!  timestep of a new hour (it also returns TRUE on the first timestep of the\n!  run).  This is useful for setting flags for reading in data. (bmy, 4/1/04)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ITS_A_NEW_HOUR( ) RESULT( IS_NEW_HOUR )\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: IS_NEW_HOUR\n!\n! !REVISION HISTORY:\n!  01 Apr 2004 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! ITS_A_NEW_HOUR begins here!\n    !=================================================================\n    IF ( MOD( NHMS, 10000 ) == 0 ) THEN\n\n       ! Test if it's 0 GMT\n       IS_NEW_HOUR = .TRUE.\n\n    ELSE IF ( NYMD == NYMDb .and. NHMS == NHMSb ) THEN\n\n       ! Also return TRUE if it's the start of the run\n       ! (since files will need to be read in from disk)\n       IS_NEW_HOUR = .TRUE.\n\n    ELSE\n\n       ! Otherwise, it's not a new year\n       IS_NEW_HOUR = .FALSE.\n\n    ENDIF\n\n  END FUNCTION ITS_A_NEW_HOUR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Current_Time\n!\n! !DESCRIPTION: Subroutine PRINT\\_CURRENT\\_TIME prints the date, and UTC time\n!  of a GEOS-Chem simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE PRINT_CURRENT_TIME\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Write quantities\n    WRITE( 6, 100 ) YEAR, MONTH, DAY, HOUR, MINUTE\n\n    ! Format string\n100 FORMAT( '---> DATE: ', i4.4, '/', i2.2, '/', i2.2, &\n                '  UTC: ', i2.2, ':', i2.2 )\n\n  END SUBROUTINE PRINT_CURRENT_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timestamp_String\n!\n! !DESCRIPTION: Function TIMESTAMP\\_STRING returns a formatted string\n!  \"YYYY/MM/DD hh:mm\" for the a date and time specified by YYYYMMDD and hhmmss.\n!  If YYYYMMDD and hhmmss are omitted, then TIMESTAMP\\_STRING will create a\n!  formatted string for the current date and time.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION TIMESTAMP_STRING( YYYYMMDD, HHMMSS ) RESULT( TIME_STR )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN), OPTIONAL :: YYYYMMDD   ! YYYY/MM/DD date\n    INTEGER, INTENT(IN), OPTIONAL :: HHMMSS     ! hh:mm:ss time\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=16)             :: TIME_STR\n!\n! !REVISION HISTORY:\n!  21 Mar 2003 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: THISYEAR, THISMONTH,  THISDAY\n    INTEGER :: THISHOUR, THISMINUTE, THISSECOND\n\n    ! If YYYYMMDD is passed, then use that date.  Otherwise use the\n    ! current date stored in global variables YEAR, MONTH, DAY.\n    IF ( PRESENT( YYYYMMDD ) ) THEN\n       CALL YMD_EXTRACT( YYYYMMDD, THISYEAR, THISMONTH, THISDAY )\n    ELSE\n       THISYEAR  = YEAR\n       THISMONTH = MONTH\n       THISDAY   = DAY\n    ENDIF\n\n    ! If HHMMSS is passed, then use that time.  Otherwise use the\n    ! current time stored in global variables HOUR and MINUTE.\n    IF ( PRESENT( HHMMSS ) ) THEN\n       CALL YMD_EXTRACT( HHMMSS, THISHOUR, THISMINUTE, THISSECOND )\n    ELSE\n       THISHOUR   = HOUR\n       THISMINUTE = MINUTE\n    ENDIF\n\n    ! For other platforms, we can just use a FORTRAN internal write\n    WRITE( TIME_STR, 100 ) THISYEAR, THISMONTH, THISDAY, THISHOUR, THISMINUTE\n\n    ! Format statement\n100 FORMAT( i4.4, '/', i2.2, '/', i2.2, ' ', i2.2, ':', i2.2 )\n\n  END FUNCTION TIMESTAMP_STRING\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ymd_Extract\n!\n! !DESCRIPTION: Subroutine YMD\\_EXTRACT extracts the year, month, and date\n!  from an integer variable in YYYYMMDD format.  It can also extract the\n!  hours, minutes, and seconds from a variable in HHMMSS format.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE YMD_EXTRACT( NYMD, Y, M, D )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: NYMD      ! YYYY/MM/DD format date\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: Y, M, D   ! Separated YYYY, MM, DD values\n!\n! !REVISION HISTORY:\n!  21 Nov 2001 - R. Yantosca - Initial Version\n! See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8) :: REM\n\n    ! Extract YYYY from YYYYMMDD\n    Y = INT( DBLE( NYMD ) / 1e+4_f8 )\n\n    ! Extract MM from YYYYMMDD\n    REM = DBLE( NYMD ) - ( DBLE( Y ) * 1e+4_f8 )\n    M   = INT( REM / 1e+2_f8 )\n\n    ! Extract DD from YYYYMMDD\n    REM = REM - ( DBLE( M ) * 1e+2_f8 )\n    D   = INT( REM )\n\n  END SUBROUTINE YMD_EXTRACT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Expand_Date\n!\n! !DESCRIPTION: Subroutine EXPAND\\_DATE replaces \"YYYYMMDD\" and \"hhmmss\"\n!  tokens within a filename string with the actual values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE EXPAND_DATE( FILENAME, YYYYMMDD, HHMMSS )\n!\n! !USES:\n!\n    USE CHARPAK_MOD, ONLY : STRREPL\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)    :: YYYYMMDD   ! YYYY/MM/DD date\n    INTEGER,          INTENT(IN)    :: HHMMSS     ! hh:mm:ss time\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: FILENAME   ! Filename to modify\n!\n! !REVISION HISTORY:\n!  27 Jun 2002 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: YYYY, YY, MM, DD, HH, II, SS\n    CHARACTER(LEN=2)  :: MM_STR, DD_STR\n    CHARACTER(LEN=2)  :: HH_STR, II_STR, SS_STR\n    CHARACTER(LEN=2)  :: YY_STR\n    CHARACTER(LEN=4)  :: YYYY_STR\n\n    !=================================================================\n    ! EXPAND_DATE begins here!\n    !=================================================================\n\n    ! Extract today's date into year, month, and day sections\n    CALL YMD_EXTRACT( YYYYMMDD, YYYY, MM, DD )\n\n    ! Extract today's time into HH, MM, and SS sections\n    ! (rename minutes to II so as not to overwrite MM)\n    CALL YMD_EXTRACT( HHMMSS, HH, II, SS )\n\n    ! 2-digit year number (e.g. \"97\" instead of \"1997\")\n    YY = MODULO( YYYY, 100 )\n\n    ! For other platforms, use an F90 internal write (bmy, 9/29/03)\n    WRITE( YYYY_STR, '(i4.4)' ) YYYY\n    WRITE( YY_STR,   '(i2.2)' ) YY\n    WRITE( MM_STR,   '(i2.2)' ) MM\n    WRITE( DD_STR,   '(i2.2)' ) DD\n    WRITE( HH_STR,   '(i2.2)' ) HH\n    WRITE( II_STR,   '(i2.2)' ) II\n\n    ! Replace YYYY, MM, DD, HH tokens w/ actual values\n    CALL STRREPL( FILENAME, 'YYYY', YYYY_STR )\n    CALL STRREPL( FILENAME, 'YY',   YY_STR   )\n    CALL STRREPL( FILENAME, 'MM',   MM_STR   )\n    CALL STRREPL( FILENAME, 'DD',   DD_STR   )\n    CALL STRREPL( FILENAME, 'hh',   HH_STR   )\n    CALL STRREPL( FILENAME, 'mm',   II_STR   )\n\n  END SUBROUTINE EXPAND_DATE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Valid_Date\n!\n! !DESCRIPTION: Function VALID\\_DATE returns TRUE if the input date is\n!  a valid calendar date, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Valid_Date( YYYYMMDD ) RESULT( Is_Valid )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: YYYYMMDD   ! YYYY/MM/DD date\n!\n! !RETURN VALUE:\n!\n    LOGICAL             :: Is_Valid   ! =T if YYYYMMDD is a valid date\n                                      ! =F otherwise\n!\n! !REVISION HISTORY:\n!  06 Jul 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL :: Is_Leap\n    INTEGER :: YYYY, MM, DD, HH, II, SS, LastDay\n\n    !=================================================================\n    ! VALID_DATE begins here!\n    !=================================================================\n\n    ! Assume success until otherwise proven\n    Is_Valid = .TRUE.\n\n    ! Extract the date value into year, month, and day sections\n    CALL YMD_EXTRACT( YYYYMMDD, YYYY, MM, DD )\n\n    ! Exit if month is out of range\n    IF ( MM < 1 .or. MM > 12 ) THEN\n       Is_Valid = .FALSE.\n       RETURN\n    ENDIF\n\n    ! Get the last day of the month\n    SELECT CASE( MM )\n\n    ! Check for leap year day if it's Feb\n    CASE( 2 )\n       IF ( ITS_A_LEAPYEAR( YYYY ) ) THEN\n          LastDay = 29\n       ELSE\n          LastDay = 28\n       ENDIF\n\n    ! 30 days hath September, April, June, and November\n    CASE( 4, 6, 9, 11 )\n       LastDay = 30\n\n    ! All the rest have 31\n    CASE DEFAULT\n       LastDay = 31\n\n    END SELECT\n\n    ! Exit if the day is out of range\n    IF ( DD < 1 .or. DD > LastDay ) THEN\n       Is_Valid = .FALSE.\n       RETURN\n    ENDIF\n\n  END FUNCTION Valid_Date\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Valid_Time\n!\n! !DESCRIPTION: Function VALID\\_TIME returns TRUE if the input date is\n!  a valid clock time, or FALSE otherwise.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Valid_Time( HHMMSS ) RESULT( Is_Valid )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: HHMMSS     ! HH:MM:SS time\n!\n! !RETURN VALUE:\n!\n    LOGICAL             :: Is_Valid   ! =T if HHMMSS is a valid time\n                                      ! =F otherwise\n!\n! !REVISION HISTORY:\n!  06 Jul 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: HH, MM, SS\n\n    !=================================================================\n    ! VALID_TIME begins here!\n    !=================================================================\n\n    ! Assume success until otherwise proven\n    Is_Valid = .TRUE.\n\n    ! Extract the time value into hour, minute, and second sections\n    CALL YMD_EXTRACT( HHMMSS, HH, MM, SS )\n\n    ! Exit if hours are out of range\n    IF ( HH < 0 .or. HH > 23 ) THEN\n       Is_Valid = .FALSE.\n       RETURN\n    ENDIF\n\n    ! Exit if minutes are out of range\n    IF ( MM < 0 .or. MM > 59 ) THEN\n       Is_Valid = .FALSE.\n       RETURN\n    ENDIF\n\n    ! Exit if seconds are out of range\n    IF ( SS < 0 .or. SS > 59 ) THEN\n       Is_Valid = .FALSE.\n       RETURN\n    ENDIF\n\n  END FUNCTION Valid_Time\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: System_Date_Time\n!\n! !DESCRIPTION: Subroutine SYSTEM\\_DATE\\_TIME returns the actual local date\n!  and time (as opposed to the model date and time).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SYSTEM_DATE_TIME( SYS_NYMD, SYS_NHMS )\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: SYS_NYMD   ! System date in YYYY/MM/DD format\n    INTEGER, INTENT(OUT) :: SYS_NHMS   ! System time in YYYY/MM/DD format\n!\n! !REMARKS:\n!  Uses the F90 intrinsic function DATE_AND_TIME.\n!\n! !REVISION HISTORY:\n!  02 May 2005 - R. Yantosca - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: V(8)\n    CHARACTER(LEN=8)     :: D\n    CHARACTER(LEN=10)    :: T\n\n    !=================================================================\n    ! SYSTEM_DATE_TIME begins here!\n    !=================================================================\n\n    ! Initialize\n    D = 'ccyymmdd'\n    T = 'hhmmss.sss'\n\n    ! Call the F90 intrinsic routine DATE_AND_TIME\n    ! Return values are (/YYYY, MM, DD, GMT_MIN, HH, MM, SS, MSEC/)\n    CALL DATE_AND_TIME( DATE=D, TIME=T, VALUES=V )\n\n    ! Save to YYYYMMDD and HHMMSS format\n    SYS_NYMD = ( V(1) * 10000 ) + ( V(2) * 100 ) + V(3)\n    SYS_NHMS = ( V(5) * 10000 ) + ( V(6) * 100 ) + V(7)\n\n  END SUBROUTINE SYSTEM_DATE_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: System_Timestamp\n!\n! !DESCRIPTION: Function SYSTEM\\_TIMESTAMP returns a 16 character string with\n!  the system date and time in YYYY/MM/DD HH:MM format.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION SYSTEM_TIMESTAMP() RESULT( STAMP )\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=16) :: STAMP\n!\n! !REVISION HISTORY:\n!  03 May 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER           :: SYS_NYMD, SYS_NHMS\n\n    !=================================================================\n    ! SYSTEM_TIMESTAMP begins here!\n    !=================================================================\n\n    ! Get system date and time\n    CALL SYSTEM_DATE_TIME( SYS_NYMD, SYS_NHMS )\n\n    ! Create a string w/ system date & time\n    STAMP = TIMESTAMP_STRING( SYS_NYMD, SYS_NHMS )\n\n  END FUNCTION SYSTEM_TIMESTAMP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: timestamp_diag\n!\n! !DESCRIPTION: Subroutine TIMESTAMP\\_DIAG save timestamps to be used in\n!  filenames for diagnostics. We do not want the time when the diagnostic\n!  is saved but the time for previous dynamic time step because midnight is\n!  considered as the beginning of next day (and not ending of previous day).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TIMESTAMP_DIAG\n!\n! !REVISION HISTORY:\n!  12 Aug 2009 - C. Carouge  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    NYMD_DIAG = GET_NYMD()\n\n  END SUBROUTINE TIMESTAMP_DIAG\n!EOC\n#if defined( ESMF_ ) || defined( MODEL_ )\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Accept_External_Date_Time\n!\n! !DESCRIPTION: Subroutine ACCEPT\\_EXTERNAL\\_DATE\\_TIME sets the date and\n!  time variables in time\\_mod.F90 with the values obtained from an external\n!  GCM (such as NASA's GEOS-5 GCM).  The various date \\& time values from\n!  the GCM are passed as arguments.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Accept_External_Date_Time(             &\n       value_NYMDb,  value_NYMDe,    value_NYMD,    &\n       value_NHMSb,  value_NHMSe,    value_NHMS,    &\n       value_YEAR,   value_MONTH,    value_DAY,     value_DAYOFYR, &\n       value_HOUR,   value_MINUTE,   value_SECOND,  &\n       value_UTC,    value_HELAPSED, value_TS_CHEM, &\n       value_TS_CONV, value_TS_DYN,  value_TS_EMIS, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE JULDAY_MOD,       ONLY : JULDAY\n    USE JULDAY_MOD,       ONLY : CALDATE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  OPTIONAL    :: value_NYMDb     ! YYYY/MM/DD @ start of run\n    INTEGER,  OPTIONAL    :: value_NYMDe     ! YYYY/MM/DD @ end of run\n    INTEGER,  OPTIONAL    :: value_NYMD      ! YYYY/MM/DD @ current time\n    INTEGER,  OPTIONAL    :: value_NHMSb     ! hh:mm:ss   @ start of run\n    INTEGER,  OPTIONAL    :: value_NHMSe     ! hh:mm:ss   @ end of run\n    INTEGER,  OPTIONAL    :: value_NHMS      ! hh:mm:ss   @ current time\n    INTEGER,  OPTIONAL    :: value_YEAR      ! UTC year\n    INTEGER,  OPTIONAL    :: value_MONTH     ! UTC month\n    INTEGER,  OPTIONAL    :: value_DAY       ! UTC day\n    INTEGER,  OPTIONAL    :: value_DAYOFYR   ! UTC day of year\n    INTEGER,  OPTIONAL    :: value_HOUR      ! UTC hour\n    INTEGER,  OPTIONAL    :: value_MINUTE    ! UTC minute\n    INTEGER,  OPTIONAL    :: value_SECOND    ! UTC second\n    REAL(f4), OPTIONAL    :: value_UTC       ! UTC time [hrs]\n    REAL(f4), OPTIONAL    :: value_HELAPSED  ! Elapsed hours\n    INTEGER,  OPTIONAL    :: value_TS_CHEM   ! Chemistry  timestep [sec]\n    INTEGER,  OPTIONAL    :: value_TS_CONV   ! Convection timestep [sec]\n    INTEGER,  OPTIONAL    :: value_TS_DYN    ! Dynamic    timestep [sec]\n    INTEGER,  OPTIONAL    :: value_TS_EMIS   ! Emissions  timestep [sec]\n!\n! !OUTPUT ARGUMENTS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  The date and time values are obtained via the Extract_ subroutine in\n!  module file GEOSCHEMchem_GridCompMod.F90.\n!\n! !REVISION HISTORY:\n!  06 Dec 2012 - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8) :: A, B, JD, THISDAY, TMP\n\n    !=================================================================\n    ! Set time/date values of time_mod.F90 from the ESMF inputs\n    !=================================================================\n    IF ( PRESENT( value_NYMDb    ) ) NYMDb       = value_NYMdb\n    IF ( PRESENT( value_NYMDe    ) ) NYMDe       = value_NYMDe\n    IF ( PRESENT( value_NYMD     ) ) NYMD        = value_NYMD\n    IF ( PRESENT( value_NHMSb    ) ) NHMSb       = value_NHMSb\n    IF ( PRESENT( value_NHMSe    ) ) NHMSe       = value_NHMSe\n    IF ( PRESENT( value_NHMS     ) ) NHMS        = value_NHMS\n    IF ( PRESENT( value_YEAR     ) ) YEAR        = value_YEAR\n    IF ( PRESENT( value_MONTH    ) ) MONTH       = value_MONTH\n    IF ( PRESENT( value_DAY      ) ) DAY         = value_DAY\n    IF ( PRESENT( value_DAYOFYR  ) ) DAY_OF_YEAR = value_DAYOFYR\n    IF ( PRESENT( value_HOUR     ) ) HOUR        = value_HOUR\n    IF ( PRESENT( value_MINUTE   ) ) MINUTE      = value_MINUTE\n    IF ( PRESENT( value_SECOND   ) ) SECOND      = value_SECOND\n    IF ( PRESENT( value_TS_CHEM  ) ) TS_CHEM     = value_TS_CHEM\n    IF ( PRESENT( value_TS_CONV  ) ) TS_CONV     = value_TS_CONV\n    IF ( PRESENT( value_TS_DYN   ) ) TS_DYN      = value_TS_DYN\n    IF ( PRESENT( value_TS_EMIS  ) ) TS_EMIS     = value_TS_EMIS\n\n    ! Special handling for GMT to avoid roundoff error\n    IF ( PRESENT( value_UTC  ) ) THEN\n       TMP = value_UTC\n       GMT = TMP\n    ENDIF\n\n    !=================================================================\n    ! Compute various other derived time/date values\n    !=================================================================\n\n    ! Elapsed seconds since the start of the run\n    IF ( PRESENT( value_HELAPSED ) ) THEN\n       ELAPSED_SEC = value_HELAPSED * 3600\n    ENDIF\n\n    ! TAUb (hours since 0 UTC on 01 Jan 1985) @ start of simulation\n    IF ( PRESENT( value_NYMDb ) .and. PRESENT( value_NHMSb ) ) THEN\n       TMP  = ( GET_JD( NYMDb, NHMSb ) - JD85 ) * 24e+0_f8\n       TAUb = DBLE( TMP )\n    ENDIF\n\n    ! TAUe (hours since 0 UTC on 01 Jan 1985) @ end of simulation\n    IF ( PRESENT( value_NYMDe ) .and. PRESENT( value_NHMSe ) ) THEN\n       TMP  = ( GET_JD( NYMDe, NHMSe ) - JD85 ) * 24e+0_f8\n       TAUe = DBLE( TMP )\n    ENDIF\n\n    ! TAU value ( hours since 0 UTC on 01 Jan 1985)\n    IF ( PRESENT( value_NYMD ) .and. PRESENT( value_NHMS ) ) THEN\n       TMP  = ( GET_JD( NYMD, NHMS ) - JD85 ) * 24e+0_f8\n       TAU  = DBLE( TMP )\n    ENDIF\n\n    ! Season index (1=DJF, 2=MAM, 3=JJA, 4=SON)\n    SELECT CASE ( MONTH )\n       CASE ( 12, 1, 2 )\n          NSEASON = 1\n       CASE ( 3, 4, 5 )\n          NSEASON = 2\n       CASE ( 6, 7, 8 )\n          NSEASON = 3\n       CASE ( 9, 10, 11 )\n          NSEASON = 4\n    END SELECT\n\n    ! Day of week w/r/t the GMT date\n    ! Use same algorithm as in routine SET_CURRENT_TIME\n    THISDAY     = DAY + ( GMT / 24e+0_f8 )\n    JD          = JULDAY( YEAR, MONTH, THISDAY )\n    A           = ( JD + 1.5e+0_f8 ) / 7e+0_f8\n    B           = ( A - INT( A ) ) * 7e+0_f8\n    B           = INT( NINT( B*1e+5_f8 + SIGN( 5e+0_f8, B ) ) &\n                  / 10e+0_f8 ) / 1e+4_f8\n    DAY_OF_WEEK = INT( B )\n\n    ! Return successfully\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Accept_External_Date_Time\n!EOC\n#endif\nEND MODULE TIME_MOD\n"
  },
  {
    "path": "GeosUtil/timers_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: timers_mod.F90\n!\n! !DESCRIPTION: Module TIMERS\\_MOD is used to track and time how long\n! specified parts of GEOS-Chem take to run.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Timers_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Timer_Setup          ! Setup timers\n  PUBLIC  :: Timer_Add            ! Adds a timer\n  PUBLIC  :: Timer_Start          ! Starts a timer ticking\n  PUBLIC  :: Timer_End            ! Stops a timer ticking\n  PUBLIC  :: Timer_Sum_Loop       ! Sums the timers within a loop\n  PUBLIC  :: Timer_Print          ! Prints the specified timer\n  PUBLIC  :: Timer_PrintAll       ! Prints all timers\n  PUBLIC  :: Timer_StopAll        ! Stops all currently running timers\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Timer_Find           ! Finds the specified timer\n  PRIVATE :: Timer_PrintNum       ! Prints the timer by number\n  PRIVATE :: Timer_PrintHeaders   ! Writes headers for logfile & JSON output\n  PRIVATE :: Timer_TheTime        ! Returns the current time in milliseconds\n  PRIVATE :: Timer_TimePrint      ! Formats the seconds when printing\n  PRIVATE :: Timer_TimePrint_JSON ! Prints the timer to JSON format\n!\n! !REMARKS:\n!  This module helps track valuable timing information.\n!\n! !REVISION HISTORY:\n!  23 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! What mode the timers should be in. Defaults to 1.\n  ! 1: CPU Time\n  ! 2: Real Time\n  ! 3: MPI time\n  INTEGER                                   :: TimerMode = 1\n\n  ! Current number of timers. Starts at 0.\n  INTEGER                                   :: TimerCurrentSize = 0\n\n  ! Maximum Supported Timers. Increasing will increase memory footprint.\n  INTEGER, PARAMETER                        :: TimerMaxSize = 35\n\n  ! Number of threads for parallel loops\n  INTEGER                                   :: nThreads   = 1\n  REAL(f8)                                  :: d_nThreads = 1.0_f8\n\n  ! The definition of the GC_Timer type.\n  TYPE GC_Timer\n     LOGICAL                                :: ENABLED\n     CHARACTER(LEN=30)                      :: TIMER_NAME\n     REAL(f8)                               :: TOTAL_TIME\n     REAL(f8), ALLOCATABLE                  :: TOTAL_TIME_LOOP(:)\n     REAL(f8)                               :: START_TIME\n     REAL(f8), ALLOCATABLE                  :: START_TIME_LOOP(:)\n     REAL(f8)                               :: END_TIME\n     REAL(f8), ALLOCATABLE                  :: END_TIME_LOOP(:)\n  END TYPE GC_Timer\n\n  ! The array of timers. Determined by TimerMaxSize.\n  TYPE(GC_Timer), DIMENSION(TimerMaxSize) :: SavedTimers\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_Setup\n!\n! !DESCRIPTION: Set up the Timer for first use.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_Setup( TheMode )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: TheMode     ! Timer mode\n                                        ! 1:CPU time, 2:Real time, 3:MPI time\n!\n! !REMARKS:\n!  This currently only needs to run if you want to manually set the mode.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: RC\n#ifdef MODEL_CLASSIC\n#ifndef NO_OMP\n    INTEGER, EXTERNAL  :: OMP_GET_NUM_THREADS\n#endif\n#endif\n\n    ! Strings\n    CHARACTER(LEN=255) :: WarnMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_Setup begins here\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    WarnMsg = ''\n    ThisLoc = ' -> at Timer_Setup (in module GeosUtil/timers_mod.F90)'\n\n    ! Warning if timer mode is incorrect\n    IF ( TheMode .lt. 1 ) THEN\n       WarnMsg = 'INVALID TIMER TYPE! '                                   // &\n                  'The following timer modes are supported: '             // &\n                  '(1) CPU time, (2) Real time, or (3) MPI time.'\n       CALL GC_Warning( WarnMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    TimerMode = TheMode\n\n#ifdef MODEL_CLASSIC\n#ifndef NO_OMP\n    ! Determine the number of threads available for parallel loops\n    !$OMP PARALLEL\n    nThreads   = OMP_GET_NUM_THREADS()\n    d_nThreads = DBLE( nThreads )\n    !$OMP END PARALLEL\n#endif\n#endif\n\n    ! Debug\n    !PRINT*, \"Timer_Setup: Done setting up GEOS-Chem timers\"\n\n  END SUBROUTINE Timer_Setup\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_Add\n!\n! !DESCRIPTION: Adds a new timer to the timer list. Returns status of success.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_Add( TimerName, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: TimerName   ! Name for timer\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  This only fails if the timers are full.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_Add begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Timer_Add (in module GeosUtil/timers_mod.F90)'\n\n    ! Now we are sure that timers are enabled\n    ! We need to check if the timers are full\n    IF (TimerCurrentSize < TimerMaxSize) THEN         ! There's room\n\n       ! Increase the timer current size by one\n       TimerCurrentSize = TimerCurrentSize + 1\n\n       ! Set the defaults of the new Timer\n       SavedTimers(TimerCurrentSize)%ENABLED    = .false.\n       SavedTimers(TimerCurrentSize)%TIMER_NAME = TimerName\n       SavedTimers(TimerCurrentSize)%TOTAL_TIME = 0.0_f8\n       SavedTimers(TimerCurrentSize)%START_TIME = 0.0_f8\n       SavedTimers(TimerCurrentSize)%END_TIME   = 0.0_f8\n\n       ! Setup arrays for timers called within parallel loops\n       ALLOCATE( SavedTimers(TimerCurrentSize)%START_TIME_LOOP(nThreads), &\n                 STAT=RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       SavedTimers(TimerCurrentSize)%START_TIME_LOOP = 0.0_f8\n\n       ALLOCATE( SavedTimers(TimerCurrentSize)%END_TIME_LOOP(nThreads), &\n                 STAT=RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       SavedTimers(TimerCurrentSize)%END_TIME_LOOP = 0.0_f8\n\n       ALLOCATE( SavedTimers(TimerCurrentSize)%TOTAL_TIME_LOOP(nThreads), &\n                 STAT=RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       SavedTimers(TimerCurrentSize)%TOTAL_TIME_LOOP = 0.0_f8\n\n       ! Debug\n       !PRINT*, TimerName, \"timer added at slot \", TimerCurrentSize\n\n       ! Success.\n       RC = GC_SUCCESS\n\n    ELSE                                             ! There's not room\n\n       ! Exit with error\n       PRINT*,\"    TimerCurrentSize = \", TimerCurrentSize\n       PRINT*,\"    TimerMaxSize     = \", TimerMaxSize\n       ErrMsg = 'Maximum number of timers is reached!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Timer_Add\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_Start\n!\n! !DESCRIPTION: Starts a timer ticking.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_Start( TimerName, RC, InLoop, ThreadNum )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),  INTENT(IN)    :: TimerName   ! Name for timer\n    LOGICAL, OPTIONAL, INTENT(IN)    :: InLoop      ! Called within a loop?\n    INTEGER, OPTIONAL, INTENT(IN)    :: ThreadNum   ! Current thread number\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(INOUT) :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  This must be called to start a timer ticking.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: LoopTimer          ! Is this a timer in a DO loop?\n    INTEGER            :: TimerLoc           ! Timer number\n    REAL(f8)           :: TheTime            ! Returned Time from method\n\n    ! Strings\n    CHARACTER(LEN=30)  :: TempTimerName\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_Start begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    ErrMsg    = ''\n    ThisLoc   = ' -> at Timer_Start (in module GeosUtil/timers_mod.F90)'\n\n    ! Is this timer in a parallel loop?\n    LoopTimer = .FALSE.\n    IF ( PRESENT(InLoop) ) LoopTimer = .TRUE.\n\n    ! Determine the timer index\n    TempTimerName = TimerName\n    TimerLoc      = Timer_Find( TempTimerName )\n\n    ! Exit if timer is not found\n    IF (TimerLoc .eq. 0) THEN\n       ErrMsg = 'Timer not found: ' // TRIM( TimerName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    IF ( .not. LoopTimer ) THEN\n       ! Now we do some minor error checking\n       IF ( SavedTimers(TimerLoc)%ENABLED ) THEN\n          ErrMsg = 'Timer already running: ' // TRIM( TimerName )\n          CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Timer isn't enabled, it's been found, so we enable it\n       SavedTimers(TimerLoc)%ENABLED = .true.\n    ENDIF\n\n    ! And we note the current time\n    ! 1: CPU Time\n    ! 2: Real Time\n    ! 3: MPI time\n    IF ( TimerMode .eq. 1 ) THEN\n       TheTime = Timer_TheTime()\n    ENDIF\n\n    IF ( LoopTimer ) THEN\n       ! Debug\n       !PRINT*, TRIM(TempTimerName), \": Thread=\", ThreadNum, \", Start=\", TheTime\n\n       ! Get the start time\n       SavedTimers(TimerLoc)%START_TIME_LOOP(ThreadNum) = TheTime\n    ELSE\n       ! Debug\n       !PRINT*, TRIM(TempTimerName), \": Start=\", TheTime\n\n       ! Get the start time\n       SavedTimers(TimerLoc)%START_TIME = TheTime\n    ENDIF\n\n  END SUBROUTINE Timer_Start\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_End\n!\n! !DESCRIPTION: Stops a timer ticking. Adds elapsed time to total.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_End( TimerName, RC, InLoop, ThreadNum )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),  INTENT(IN)    :: TimerName   ! Name for timer\n    LOGICAL, OPTIONAL, INTENT(IN)    :: InLoop      ! Called within a loop?\n    INTEGER, OPTIONAL, INTENT(IN)    :: ThreadNum   ! Current thread number\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(INOUT) :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  Without this routine being called, a timer will not add to its total.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: LoopTimer          ! Is this a timer in a DO loop?\n    INTEGER            :: TimerLoc           ! Timer number\n    REAL(f8)           :: TheTime            ! Returned Time from method\n    REAL(f8)           :: Diff               ! Difference in times\n\n    ! Strings\n    CHARACTER(LEN=30)  :: TempTimerName\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_End begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Timer_End (in module GeosUtil/timers_mod.F90)'\n\n    ! Is this timer in a parallel loop?\n    LoopTimer = .FALSE.\n    IF ( PRESENT(InLoop) ) LoopTimer = .TRUE.\n\n    ! Determine timer index\n    TempTimerName = TimerName\n    TimerLoc      = Timer_Find( TempTimerName )\n\n    ! Exit if timer is not found\n    IF (TimerLoc .eq. 0) THEN\n       ErrMsg = 'Timer not found: ' // TRIM( TimerName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    IF ( .not. LoopTimer ) THEN\n       ! Now we do some minor error checking\n       IF ( .not. SavedTimers(TimerLoc)%ENABLED ) THEN\n          ErrMsg = 'Timer is not running: ' // TRIM( TimerName )\n          CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! And we note the current time\n    ! 1: CPU Time\n    ! 2: Real Time\n    ! 3: MPI time\n    IF ( TimerMode .eq. 1 ) THEN\n       TheTime = Timer_TheTime()\n    ENDIF\n\n    IF ( LoopTimer ) THEN\n       ! Debug\n       !PRINT*, TRIM(TempTimerName), \": Thread=\", ThreadNum, \", End  =\", TheTime\n\n       ! Get the end time\n       SavedTimers(TimerLoc)%END_TIME_LOOP(ThreadNum) = TheTime\n\n       ! Get the difference in stard and end times for this thread\n       Diff = SavedTimers(TimerLoc)%END_TIME_LOOP(ThreadNum) - &\n              SavedTimers(TimerLoc)%START_TIME_LOOP(ThreadNum)\n\n       ! Error check...\n       IF ( Diff .lt. 0 ) THEN\n          ErrMsg = 'Timer returned invalid value: ' // TRIM( TimerName )\n          CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          Diff = 0\n       ENDIF\n\n       ! Asd difference to current value of total time\n       SavedTimers(TimerLoc)%TOTAL_TIME_LOOP(ThreadNum) = &\n              SavedTimers(TimerLoc)%TOTAL_TIME_LOOP(ThreadNum) + Diff\n\n       ! Debug\n       !Print*, TRIM(TempTimerName), \": Thread=\", ThreadNum, \", Diff=\", Diff, \", TotalTime=\", SavedTimers(TimerLoc)%TOTAL_TIME_LOOP(ThreadNum)\n\n    ELSE\n       ! Timer is enabled, it's been found, so we disable it\n       SavedTimers(TimerLoc)%ENABLED = .false.\n\n       ! Debug\n       !PRINT*, TRIM(TempTimerName), \": End  =\", TheTime\n\n       ! Get the end time\n       SavedTimers(TimerLoc)%END_TIME = TheTime\n\n       ! Get the difference in start and end times\n       Diff = SavedTimers(TimerLoc)%END_TIME - SavedTimers(TimerLoc)%START_TIME\n\n       ! Error check...\n       IF ( Diff .lt. 0 ) THEN\n          ErrMsg = 'Timer returned invalid value: ' // TRIM( TimerName )\n          CALL GC_Warning( ErrMsg, RC, ThisLoc )\n          Diff = 0\n       ENDIF\n\n       ! Add difference to current value of total time\n       SavedTimers(TimerLoc)%TOTAL_TIME = SavedTimers(TimerLoc)%TOTAL_TIME + &\n                                          Diff\n    ENDIF\n\n  END SUBROUTINE Timer_End\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_Sum_Loop\n!\n! !DESCRIPTION: Sums elapsed time across parallel threads to obtain the total.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_Sum_Loop( TimerName, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),  INTENT(IN)    :: TimerName   ! Name for timer\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(INOUT) :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  Without this routine being called, a timer will not add to its total.\n!\n! !REVISION HISTORY:\n!  30 Apr 2020 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n    INTEGER            :: TimerLoc       ! Timer number\n    REAL(f8)           :: TheTime        ! Returned Time from method\n    REAL(f8)           :: Diff           ! Difference in times for each thread\n    REAL(f8)           :: TotalDiff      ! Total difference in times\n\n    ! Strings\n    CHARACTER(LEN=30)  :: TempTimerName\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_Sum_Loop begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Timer_Sum_Loop (in module GeosUtil/timers_mod.F90)'\n    TotalDiff= 0.0\n\n    ! Determine timer index\n    TempTimerName = TimerName\n    TimerLoc      = Timer_Find( TempTimerName )\n\n    ! Exit if timer is not found\n    IF (TimerLoc .eq. 0) THEN\n       ErrMsg = 'Timer not found: ' // TRIM( TimerName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Sum the total time across threads\n    SavedTimers(TimerLoc)%TOTAL_TIME =                                       &\n         SUM(SavedTimers(TimerLoc)%TOTAL_TIME_LOOP) / d_nThreads\n\n    ! Debug\n    !Print*, 'Timer:', TRIM(TimerName)\n    !Print*, 'Thread totals:', SavedTimers(TimerLoc)%TOTAL_TIME_LOOP\n    !Print*, 'Total time', SavedTimers(TimerLoc)%TOTAL_TIME\n\n  END SUBROUTINE Timer_Sum_Loop\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_Print\n!\n! !DESCRIPTION: Prints the specified Timer by name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_Print( TimerName, RC, LunJson )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: TimerName   ! Name for timer\n    INTEGER,          OPTIONAL      :: LunJson     ! Logical unit for JSON\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  This is useful if you only want to print a single timer.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: TimerLoc           ! Timer number\n\n    ! Strings\n    CHARACTER(LEN=30)  :: TempTimerName\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_Print begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Timer_Print (in module GeosUtil/timers_mod.F90)'\n\n    TempTimerName = TimerName\n\n    TimerLoc = Timer_Find( TempTimerName )\n\n    ! Exit if timer is not found\n    IF ( TimerLoc == 0 ) THEN\n       ErrMsg = 'Timer not found: ' // TRIM( TimerName )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Print the timer output; write to JSON if LunJson is passed\n    IF ( PRESENT( LunJson ) ) THEN\n       CALL Timer_PrintNum( TimerLoc, LunJson )\n    ELSE\n       CALL Timer_PrintNum( TimerLoc          )\n    ENDIF\n\n  END SUBROUTINE Timer_Print\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_PrintAll\n!\n! !DESCRIPTION: Prints all Timers to log file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_PrintAll( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE inquireMod,    ONLY : findFreeLun\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)       :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  This prints all timers in the order added.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I,      LunJson\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_PrintAll begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Timer_PrintAll (in module GeosUtil/timers_mod.F90)'\n\n    ! Exit if no timers were turned on\n    IF ( TimerCurrentSize < 1 ) THEN\n       ErrMsg = 'No timers are defined!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Print header info\n    IF ( Input_Opt%amIRoot ) THEN\n\n       ! Find LUN and open a file for JSON output\n       LunJson = findFreeLun()\n       OPEN( LunJson, FILE='gcclassic_timers.json', FORM='formatted' )\n\n       ! Print headers for both logfile and JSON output\n       CALL Timer_PrintHeaders( LunJson )\n\n       ! Print formatted output to stdout and to a JSON file\n       DO I = 1, TimerCurrentSize\n          CALL Timer_PrintNum( I, LunJson )\n\n          ! Deallocate loop timer arrays\n          IF ( ALLOCATED( SavedTimers(I)%START_TIME_LOOP ) ) THEN\n             DEALLOCATE(  SavedTimers(I)%START_TIME_LOOP, STAT=RC )\n             IF ( RC /= GC_SUCCESS ) RETURN\n          ENDIF\n          IF ( ALLOCATED( SavedTimers(I)%END_TIME_LOOP ) ) THEN\n             DEALLOCATE(  SavedTimers(I)%END_TIME_LOOP, STAT=RC )\n             IF ( RC /= GC_SUCCESS ) RETURN\n          ENDIF\n          IF ( ALLOCATED( SavedTimers(I)%TOTAL_TIME_LOOP ) ) THEN\n             DEALLOCATE(  SavedTimers(I)%TOTAL_TIME_LOOP, STAT=RC )\n             IF ( RC /= GC_SUCCESS ) RETURN\n          ENDIF\n\n       ENDDO\n\n       ! Close the JSON file\n       WRITE( LunJson, '(a)' ) '    }'\n       WRITE( LunJson, '(a)' ) '}'\n       CLOSE( LunJson        )\n    ENDIF\n\n  END SUBROUTINE Timer_PrintAll\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_StopAll\n!\n! !DESCRIPTION: Stops all Timers.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_StopAll( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC          ! Success / Failure\n!\n! !REMARKS:\n!  This stops all currently running timers. Used during crashes.\n!\n! !REVISION HISTORY:\n!  11 Aug 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: I\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Timer_StopAll begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at Timer_StopAll  (in module GeosUtil/timers_mod.F90)'\n\n    ! Exit if no timers are defined\n    IF ( TimerCurrentSize < 1 ) THEN\n       ErrMsg = 'No timers are defined!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Stop all of the timers\n    DO I = 1, TimerCurrentSize\n       IF ( (SavedTimers(I)%ENABLED) ) THEN\n          PRINT*, \"Timer forced to stop due to error: \",                     &\n               SavedTimers(I)%TIMER_NAME\n\n          ! Yes, this is inefficient. Should have another function\n          ! written eventually to replace using the normal one.\n          CALL Timer_End( SavedTimers(I)%TIMER_NAME, RC )\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE Timer_StopAll\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_PrintNum\n!\n! !DESCRIPTION: Prints Timer by number.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_PrintNum( SlotNumber, LunJson )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: SlotNumber  ! The slot of the timer\n    INTEGER, OPTIONAL   :: LunJson     ! Logical unit # for JSON file\n!\n! !REMARKS:\n!  This actually does the printing, and is called by other print\n!  routines.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    IF ( TimerCurrentSize < 1 ) THEN  ! Return if it's empty\n       RETURN\n    ENDIF\n\n    IF ( (SavedTimers(SlotNumber)%ENABLED) ) THEN\n       PRINT*, \"** WARNING: Timer still enabled! \"\n    ENDIF\n\n    ! Print the timer info; write to JSON if LunJson is passed\n    IF ( PRESENT( LunJson ) ) THEN\n       CALL Timer_TimePrint( SlotNumber, LunJson )\n    ELSE\n       CALL Timer_TimePrint( SlotNumber          )\n    ENDIF\n\n  END SUBROUTINE Timer_PrintNum\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_Find\n!\n! !DESCRIPTION: Finds the number of the specified Timer.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Timer_Find( TimerName ) RESULT ( SlotNumber )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=30), INTENT(IN) :: TimerName   ! Name for timer.\n!\n! !RETURN VALUE:\n!\n    INTEGER                       :: SlotNumber  ! The slot of the timer.\n!\n! !REMARKS:\n!  This is a private routine.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: I\n\n    SlotNumber = 0\n\n    IF(TimerCurrentSize .lt. 1) THEN  ! Return 0 if it's empty\n       RETURN\n    ENDIF\n\n    DO I = 1, TimerCurrentSize, 1\n       IF( TRIM((SavedTimers(I)%TIMER_NAME)) .eq. TRIM(TimerName)) THEN\n          SlotNumber = I\n       ENDIF\n    ENDDO\n\n  END FUNCTION Timer_Find\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_TheTime\n!\n! !DESCRIPTION: Returns the current time in milliseconds.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Timer_TheTime() RESULT ( TotalTime )\n!\n! !RETURN VALUE:\n!\n    REAL(f8) :: TotalTime  ! The current calculated time.\n!\n! !REMARKS:\n!  This is a private routine.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER        :: TIME_VALUE            ! For the function\n    INTEGER        :: TIME_CLOCK            ! For the function\n\n    ! Let's call the intrinsic function...\n    CALL SYSTEM_CLOCK(TIME_VALUE, TIME_CLOCK)\n\n    ! Debug\n    !PRINT*, \"TIME_VALUE: \", TIME_VALUE\n    !PRINT*, \"TIME_CLOCK: \", TIME_CLOCK\n    !CALL FLUSH(6)\n\n    TotalTime = REAL(TIME_VALUE) / REAL(TIME_CLOCK)\n\n  END FUNCTION Timer_TheTime\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_TimePrint\n!\n! !DESCRIPTION: Formats the time and writes it out to the log file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_TimePrint( SlotNumber, LunJson )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: SlotNumber  ! The slot of the timer\n    INTEGER, OPTIONAL   :: LunJson    ! File unit for Json write\n!\n! !REMARKS:\n!  This is a private subroutine.\n!\n! !REVISION HISTORY:\n!  24 Jul 2015 - M. Yannetti - Initial version.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(f8)           :: InputSecs       ! Real value of secones\n    REAL(f8)           :: SecsLeft        ! How many seconds are 'left'\n    INTEGER            :: IntSecs         ! Same as above, but integer\n    INTEGER            :: TotalMS         ! Total Milliseconds\n    INTEGER            :: TotalSecs       ! Total Seconds\n    INTEGER            :: TotalMins       ! Total Minutes\n    INTEGER            :: TotalHours      ! Total Hours\n    INTEGER            :: TotalDays       ! Total Days\n\n\n    ! Strings\n    CHARACTER(LEN=100) :: OutputStr       ! Combined output string\n    CHARACTER(LEN=15)  :: JsonDhms\n    CHARACTER(LEN=14)  :: JsonSecs\n    CHARACTER(LEN=10)  :: TempStr         ! Needed to remove whitespace.\n    CHARACTER(LEN=2)   :: DD, HH, MM, SS\n    CHARACTER(LEN=3)   :: MS\n\n    !=======================================================================\n    ! Timer_TimePrint begins here!\n    !=======================================================================\n\n    ! Initialize\n    InputSecs  = 0.0_f8\n    SecsLeft   = 0.0_f8\n    TotalMS    = 0\n    TotalSecs  = 0\n    TotalMins  = 0\n    TotalHours = 0\n    TotalDays  = 0\n\n    ! Copy the timer value\n    InputSecs = SavedTimers(SlotNumber)%TOTAL_TIME\n    IntSecs   = INT(InputSecs)\n    SecsLeft  = InputSecs - REAL(IntSecs)\n\n    IF ( InputSecs < 0 ) THEN ! Invalid time\n       WRITE( 6, 110 ) SavedTimers(SlotNumber)%TIMER_NAME\n110    FORMAT(2x,a30,': Invalid run time - negative value')\n       RETURN\n    ELSEIF ( InputSecs .eq. 0 ) THEN ! Zero timer\n       WRITE( 6, 120 ) SavedTimers(SlotNumber)%TIMER_NAME\n120    FORMAT(2x,a30,':  >>>>> THE TIMER DID NOT RUN <<<<<')\n       RETURN\n    ENDIF\n\n    ! Debug\n    !PRINT*, \"INT   : \", IntSecs\n    !PRINT*, \"REAL  : \", InputSecs\n    !PRINT*, \"REMAIN: \", SecsLeft\n\n    !-----------------------------------------------------------------------\n    ! Calculate hours\n    !-----------------------------------------------------------------------\n    TotalHours = FLOOR(REAL(IntSecs)/3600.0)\n    IntSecs    = IntSecs - (TotalHours*3600)\n\n    !-----------------------------------------------------------------------\n    ! Calculate days (if needed)\n    !-----------------------------------------------------------------------\n    IF ( TotalHours > 24 ) THEN\n       TotalDays  = FLOOR(REAL(TotalHours)/24.0)\n       TotalHours = TotalHours - (TotalDays*24)\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Calculate minutes\n    !-----------------------------------------------------------------------\n    TotalMins  = FLOOR(REAL(IntSecs)/60.0)\n    IntSecs    = IntSecs - (TotalMins*60)\n\n    !-----------------------------------------------------------------------\n    ! Calculate seconds\n    !-----------------------------------------------------------------------\n    TotalSecs  = IntSecs\n\n    !-----------------------------------------------------------------------\n    ! Calculate milliseconds\n    !-----------------------------------------------------------------------\n    SecsLeft = SecsLeft * 1000\n    TotalMS = INT(SecsLeft)\n\n    !-----------------------------------------------------------------------\n    ! Write timers to log file in DD-hh:mm:ss.SSS format\n    ! and also write the total number of seconds for convenience\n    !-----------------------------------------------------------------------\n    WRITE( DD, '(i2.2)' ) TotalDays\n    WRITE( HH, '(i2.2)' ) TotalHours\n    WRITE( MM, '(i2.2)' ) TotalMins\n    WRITE( SS, '(i2.2)' ) TotalSecs\n    WRITE( MS, '(i3.3)' ) TotalMS\n\n    WRITE( 6, 130 ) SavedTimers(SlotNumber)%TIMER_NAME,                      &\n                    DD, HH, MM, SS, MS, InputSecs\n130 FORMAT( 2x,a30,':',2x,a2,'-',a2,':',a2,':',a2,'.',a3, 4x, f14.3    )\n\n    !-----------------------------------------------------------------------\n    ! Also write to JSON format\n    !-----------------------------------------------------------------------\n    IF ( PRESENT( LunJson ) ) THEN\n       WRITE( JsonDhms, 140      ) DD, HH, MM, SS, MS\n       WRITE( JsonSecs, '(f14.3)') InputSecs\n140    FORMAT( a2,'-',a2,':',a2,':',a2,'.',a3 )\n\n       ! Write to JSON file\n       CALL Timer_TimePrint_JSON(                                            &\n            lun        = LunJson,                                            &\n            slot       = SlotNumber,                                         &\n            timer_name = TRIM( SavedTimers(SlotNumber)%TIMER_NAME ),         &\n            d_hms      = TRIM( ADJUSTL( JsonDhms )               ),          &\n            seconds    = TRIM( ADJUSTL( JsonSecs )               )          )\n    ENDIF\n\n  END SUBROUTINE Timer_TimePrint\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_TimePrint_JSON\n!\n! !DESCRIPTION: Writes each timer to JSON output\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_TimePrint_JSON( lun, slot, timer_name, d_hms, seconds )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: lun\n    INTEGER,          INTENT(IN) :: slot\n    CHARACTER(LEN=*), INTENT(IN) :: timer_name\n    CHARACTER(LEN=*), INTENT(IN) :: d_hms\n    CHARACTER(LEN=*), INTENT(IN) :: seconds\n\n!\n! !REMARKS:\n!  This is a private subroutine.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=======================================================================\n    ! Timer_TimePrint begins here!\n    !=======================================================================\n\n    ! Write timer info\n    ! Skip trailing comma if we are on the last timer\n    WRITE( lun, 100 ) timer_name\n    WRITE( lun, 110 )\n    WRITE( lun, 120 ) d_hms\n    WRITE( lun, 130 ) seconds\n    IF ( slot == TimerCurrentSize ) THEN\n       WRITE( lun, 140 )\n    ELSE\n       WRITE( lun, 150 )\n    ENDIF\n\n    ! FORMAT statements\n100 FORMAT( '        \"', a, '\":'                                            )\n110 FORMAT( '        {'                                                     )\n120 FORMAT( '            \"d_hms\":',   1x, '\"', a, '\",'                      )\n130 FORMAT( '            \"seconds\":', 1x, a                                 )\n140 FORMAT( '        }'                                                     )\n150 FORMAT( '        },'                                                    )\n\n  END SUBROUTINE Timer_TimePrint_JSON\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Timer_WriteHeaders\n!\n! !DESCRIPTION: Writes headers for logfile output to stdout\n!  as well for JSON file format.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Timer_PrintHeaders( lun )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: lun   ! Logical unit number for JSON\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=======================================================================\n    ! Write header for log file output to stdout\n    !=======================================================================\n    WRITE( 6, *     ) ''\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    WRITE( 6, '(a)' ) 'G E O S - C H E M   T I M E R S'\n    WRITE( 6, *     ) ''\n    WRITE( 6, 100   ) 'Timer name','DD-hh:mm:ss.SSS','Total Seconds'\n    WRITE( 6, '(a)' ) REPEAT( '-', 79 )\n100 FORMAT( 2x, a10, 23x, a15, 5x, a13 )\n\n    !=======================================================================\n    ! Write header for JSON output\n    !=======================================================================\n    WRITE( lun, 200 )\n    WRITE( lun, 210 )\n    WRITE( lun, 220 )\n    WRITE( lun, 230 )\n    WRITE( lun, 240 )\n    WRITE( lun, 250 )\n    WRITE( lun, 260 )\n    WRITE( lun, 270 )\n    WRITE( lun, 220 )\n200 FORMAT( '{'                                                             )\n210 FORMAT( '    \"description\":'                                            )\n220 FORMAT( '    {'                                                         )\n230 FORMAT( '        \"name\": \"GEOS-Chem Classic timers output\",'            )\n240 FORMAT( '        \"author\": \"The International GEOS-Chem Community\",'    )\n250 FORMAT( '        \"reference\": \"https://geos-chem.readthedocs.io\"'       )\n260 FORMAT( '    },'                                                         )\n270 FORMAT( '    \"GEOS-Chem Classic timers\":'                               )\n\n  END SUBROUTINE Timer_PrintHeaders\n!EOC\nEND MODULE Timers_Mod\n"
  },
  {
    "path": "GeosUtil/transfer_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: transfer_mod.F90\n!\n! !DESCRIPTION: Module TRANSFER\\_MOD contains routines used to copy data\n!  from REAL*4 to REAL(fp) arrays after being read from disk.  Also, vertical\n!  levels will be collapsed in the stratosphere if necessary.  This will help\n!  us to gain computational advantage.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TRANSFER_MOD\n#ifdef EXCHANGE\n!\n! !USES:\n!\n  USE ERROR_MOD,      ONLY : ALLOC_ERR\n  USE ERROR_MOD,      ONLY : GEOS_CHEM_STOP\n  USE PRECISION_MOD\n  USE State_Grid_Mod, ONLY : GrdState\n\n  IMPLICIT NONE\n\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: TRANSFER_3D_yan\n  PUBLIC  :: INIT_TRANSFER\n  PUBLIC  :: CLEANUP_TRANSFER\n!\n! !REMARKS:\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!  %%%  NOTE: THIS MODULE WILL BE A STUB UNLESS GEOS-Chem IS COMPILED    %%%\n!  %%%  WITH THE EXCHANGE=y OPTION. (bmy, 10/4/19)                       %%%\n!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!\n!  Hybrid Grid Coordinate Definition: (dsa, bmy, 8/27/02, 8/11/15)\n!  ============================================================================\n!                                                                             .\n!  GEOS-4, GEOS-5, GEOS-FP, MERRA, and MERRA-2 (hybrid grids):\n!  ----------------------------------------------------------------------------\n!  For GEOS-4 and GEOS-5, the pressure at the bottom edge of grid box (I,J,L)\n!  is defined as follows:\n!                                                                             .\n!     Pedge(I,J,L) = Ap(L) + [ Bp(L) * Psurface(I,J) ]\n!                                                                             .\n!  where\n!                                                                             .\n!     Psurface(I,J) is  the \"true\" surface pressure at lon,lat (I,J)\n!     Ap(L)         has the same units as surface pressure [hPa]\n!     Bp(L)         is  a unitless constant given at level edges\n!                                                                             .\n!  Ap(L) and Bp(L) are given to us by GMAO.\n!                                                                             .\n!                                                                             .\n!  GEOS-3 (pure-sigma) and GCAP (hybrid grid):\n!  ----------------------------------------------------------------------------\n!  GEOS-3 is a pure-sigma grid.  GCAP is a hybrid grid, but its grid is\n!  defined as if it were a pure sigma grid (i.e. PTOP=150 hPa, and negative\n!  sigma edges at higher levels).  For these grids, can stil use the same\n!  formula as for GEOS-4, with one modification:\n!                                                                             .\n!     Pedge(I,J,L) = Ap(L) + [ Bp(L) * ( Psurface(I,J) - PTOP ) ]\n!                                                                             .\n!  where\n!                                                                             .\n!     Psurface(I,J) = the \"true\" surface pressure at lon,lat (I,J)\n!     Ap(L)         = PTOP    = model top pressure\n!     Bp(L)         = SIGE(L) = bottom sigma edge of level L\n!                                                                             .\n!                                                                             .\n!  The following are true for GCAP, GEOS-3, GEOS-4:\n!  ----------------------------------------------------------------------------\n!  (1) Bp(NZ+1) = 0.0       (L=NZ+1 is the atmosphere top)\n!  (2) Bp(1)    = 1.0       (L=1    is the surface       )\n!  (3) PTOP     = Ap(NZ+1)  (L=NZ+1 is the atmosphere top)\n!\n! !REVISION HISTORY:\n!  21 Sep 2010 - M. Evans    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !PRIVATE TYPES:\n!\n  ! Scalars\n  INTEGER             :: I0\n  INTEGER             :: J0\n  INTEGER             :: L_COPY\n\n  ! Arrays\n  REAL(fp), ALLOCATABLE :: EDGE_IN(:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Transfer_3d_yan\n!\n! !DESCRIPTION: Subroutine TRANSFER\\_3D\\_YAN\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TRANSFER_3D_yan( NI, NJ, NK, IN, OUT )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: NI, NJ, NK\n    REAL*4,   INTENT(IN)  :: IN(NI,NJ,NK)    ! Input data\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: OUT(NI,NJ,NK)   ! Output data\n!\n! !REVISION HISTORY:\n!  08 Feb 2007 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER   :: I,J,K\n\n    !=================================================================\n    ! TRANSFER_3D_Lp1 begins here!\n    !=================================================================\n\n    ! Copy the first L_COPY+1 levels\n    OUT(:,:,:) = IN(:,:,:)\n\n  END SUBROUTINE TRANSFER_3D_yan\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Transfer\n!\n! !DESCRIPTION: Subroutine INIT\\_TRANSFER initializes and zeroes\n!  all module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE INIT_TRANSFER( State_Grid, THIS_I0, THIS_J0 )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN) :: State_Grid ! Grid State object\n    INTEGER,        INTENT(IN) :: THIS_I0    ! Global X (longitude) offset\n    INTEGER,        INTENT(IN) :: THIS_J0    ! Global Y (latitude)  offset\n!\n! !REVISION HISTORY:\n!  19 Sep 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL, SAVE :: IS_INIT = .FALSE.\n    INTEGER       :: AS, L\n\n    !=================================================================\n    ! INIT_TRANSFER begins here!\n    !=================================================================\n\n    ! Return if we have already initialized\n    IF ( IS_INIT ) RETURN\n\n    !-----------------------------------------------------------------\n    ! Get global X and Y offsets (usually =0, even for nested grid)\n    !-----------------------------------------------------------------\n    I0 = THIS_I0\n    J0 = THIS_J0\n\n    !-----------------------------------------------------------------\n    ! Get the # of levels to copy in the vertical\n    !-----------------------------------------------------------------\n    IF ( State_Grid%NZ == State_Grid%NativeNZ ) THEN\n\n       ! Full vertical resolution; copy all levels!\n       L_COPY = State_Grid%NativeNZ\n\n    ELSE\n\n       ! Copy up to L=36 (GEOS-FP, MERRA-2)\n       L_COPY = 36\n\n    ENDIF\n\n    !=================================================================\n    ! Define vertical edges for collapsing stratospheric levels\n    !=================================================================\n\n    ! Allocate the EDGE_IN array\n    ALLOCATE( EDGE_IN( State_Grid%NativeNZ + 1 ), STAT=AS )\n    IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGE_IN' )\n    EDGE_IN = 0e+0_fp\n\n    !-----------------------------------------------------------------\n    ! Levels 1-31 are \"terrain-following\" coordinates\n    ! (i.e. vary with location), and levels 32-72 are\n    ! fixed pressure levels.  The transition pressure is 176.93 hPa,\n    ! which is the edge between L=31 and L=32.\n    !\n    ! Initialize EDGE_IN with the original 73 Ap values for GEOS-5.\n    !-----------------------------------------------------------------\n    EDGE_IN = (/ 0.000000e+00_fp, 4.804826e-02_fp, &\n                 6.593752e+00_fp, 1.313480e+01_fp, &\n                 1.961311e+01_fp, 2.609201e+01_fp, &\n                 3.257081e+01_fp, 3.898201e+01_fp, &\n                 4.533901e+01_fp, 5.169611e+01_fp, &\n                 5.805321e+01_fp, 6.436264e+01_fp, &\n                 7.062198e+01_fp, 7.883422e+01_fp, &\n                 8.909992e+01_fp, 9.936521e+01_fp, &\n                 1.091817e+02_fp, 1.189586e+02_fp, &\n                 1.286959e+02_fp, 1.429100e+02_fp, &\n                 1.562600e+02_fp, 1.696090e+02_fp, &\n                 1.816190e+02_fp, 1.930970e+02_fp, &\n                 2.032590e+02_fp, 2.121500e+02_fp, &\n                 2.187760e+02_fp, 2.238980e+02_fp, &\n                 2.243630e+02_fp, 2.168650e+02_fp, &\n                 2.011920e+02_fp,\n    !---- EDGES OF GEOS-5 FIXED PRESSURE LEVELS OCCUR BELOW THIS LINE ------\n                 1.769300e+02_fp, &\n                 1.503930e+02_fp, 1.278370e+02_fp, &\n                 1.086630e+02_fp, 9.236572e+01_fp, &\n                 7.851231e+01_fp, 6.660341e+01_fp, &\n                 5.638791e+01_fp, 4.764391e+01_fp, &\n                 4.017541e+01_fp, 3.381001e+01_fp, &\n                 2.836781e+01_fp, 2.373041e+01_fp, &\n                 1.979160e+01_fp, 1.645710e+01_fp, &\n                 1.364340e+01_fp, 1.127690e+01_fp, &\n                 9.292942e+00_fp, 7.619842e+00_fp, &\n                 6.216801e+00_fp, 5.046801e+00_fp, &\n                 4.076571e+00_fp, 3.276431e+00_fp, &\n                 2.620211e+00_fp, 2.084970e+00_fp, &\n                 1.650790e+00_fp, 1.300510e+00_fp, &\n                 1.019440e+00_fp, 7.951341e-01_fp, &\n                 6.167791e-01_fp, 4.758061e-01_fp, &\n                 3.650411e-01_fp, 2.785261e-01_fp, &\n                 2.113490e-01_fp, 1.594950e-01_fp, &\n                 1.197030e-01_fp, 8.934502e-02_fp, &\n                 6.600001e-02_fp, 4.758501e-02_fp, &\n                 3.270000e-02_fp, 2.000000e-02_fp, &\n                 1.000000e-02_fp /)\n\n    ! We have now initialized everything\n    IS_INIT = .TRUE.\n\n  END SUBROUTINE INIT_TRANSFER\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Transfer\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_TRANSFER deallocates all module variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CLEANUP_TRANSFER\n!\n! !REVISION HISTORY:\n!  19 Sep 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( ALLOCATED( EDGE_IN ) ) DEALLOCATE( EDGE_IN )\n\n  END SUBROUTINE CLEANUP_TRANSFER\n#endif\n!EOC\nEND MODULE TRANSFER_MOD\n"
  },
  {
    "path": "GeosUtil/unitconv_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: unitconv_mod.F90\n!\n! !DESCRIPTION: Module UNITCONV\\_MOD contains routines which are used to\n!  convert the units of species concentrations between mass\n!  mixing ratio [kg/kg air], mass per grid box per area [kg/m2], molar\n!  mixing ratio [vol/vol], and molecular number density [molecules/cm3].\n!  There are different conversion routines for dry air and total (wet)\n!  air mixing ratios. Conversions involving column area will be phased\n!  out for grid-independent GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE UnitConv_Mod\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Error_Mod\n  USE PhysConstants\n  USE Precision_Mod\n  USE Input_Opt_Mod,  ONLY : OptInput\n  USE State_Chm_Mod,  ONLY : ChmState\n  USE State_Chm_Mod,  ONLY : Ind_\n  USE State_Grid_Mod, ONLY : GrdState\n  USE State_Met_Mod,  ONLY : MetState\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !DEFINED PARAMETERS:\n!\n  ! Unit flags (use integers; faster comparisons than strings)\n  ! NOTE: mol/mol are equivalent units to v/v\n  INTEGER, PARAMETER, PUBLIC :: KG_SPECIES                        = 1\n  INTEGER, PARAMETER, PUBLIC :: KG_SPECIES_PER_KG_DRY_AIR         = 2\n  INTEGER, PARAMETER, PUBLIC :: KG_SPECIES_PER_KG_TOTAL_AIR       = 3\n  INTEGER, PARAMETER, PUBLIC :: KG_SPECIES_PER_M2                 = 4\n  INTEGER, PARAMETER, PUBLIC :: MOLECULES_SPECIES_PER_CM3         = 5\n  INTEGER, PARAMETER, PUBLIC :: MOLES_SPECIES_PER_MOLES_DRY_AIR   = 6\n  INTEGER, PARAMETER, PUBLIC :: MOLES_SPECIES_PER_MOLES_TOTAL_AIR = 7\n\n  ! Labels corresponding to each integer unit flag defined above.\n  ! This array is private to this module, whereas the flags are public.\n  CHARACTER(LEN=13), PARAMETER, PUBLIC :: UNIT_STR(7) =                   (/ &\n     'kg           ', 'kg/kg dry    ', 'kg/kg total  ', 'kg/m2        ',     &\n     'molec/cm3    ', 'mol/mol dry  ', 'mol/mol total'                       &\n                                                                         /)\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Check_Units\n  PUBLIC :: Convert_Spc_Units\n  PUBLIC :: Print_Global_Species_Kg\n  PUBLIC :: Print_Species_Units\n\n  ! kg/kg dry air <-> kg/grid box (single box only)\n  ! Used for TOMAS compatibility in WASHOUT\n  PUBLIC :: ConvertBox_KgKgDry_to_Kg\n  PUBLIC :: ConvertBox_Kg_to_KgKgDry\n\n  ! kg <-> kg/m2 (single box only)\n  ! Used for TOMAS compatibility in WASHOUT within wetscav_mod\n  PUBLIC :: ConvertBox_Kgm2_to_Kg\n  PUBLIC :: ConvertBox_Kg_to_Kgm2\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! KG/KG DRY <-> V/V DRY\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! kg/kg dry air <-> v/v dry air\n  ! Used in DO_TEND in mixing\n  PRIVATE :: ConvertSpc_KgKgDry_to_VVDry\n  PRIVATE :: ConvertSpc_VVDry_to_KgKgDry\n\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! KG/KG DRY <-> KG/KG TOTAL\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! kg/kg dry air <-> kg/kg total air\n  ! Used in DO_TEND in mixing\n  PRIVATE :: ConvertSpc_KgKgDry_to_KgKgTotal\n  PRIVATE :: ConvertSpc_KgKgTotal_to_KgKgDry\n\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! KG/KG DRY <-> KG/M2\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! kg/kg dry air <-> kg/m2\n  ! Used for wet deposition, DO_TEND in mixing,\n  ! and around AIRQNT and SET_H2O_TRAC in main\n  PRIVATE :: ConvertSpc_KgKgDry_to_Kgm2\n  PRIVATE :: ConvertSpc_kgm2_to_KgKgDry\n\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! KG/KG DRY <-> MOLEC/CM3\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  PRIVATE :: ConvertSpc_KgKgDry_to_MND\n  PRIVATE :: ConvertSpc_MND_to_KgKgDry\n\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! AREA-DEPENDENT (temporary routines)\n  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n  ! v/v dry air <-> kg/grid box\n  ! Temporarily replaces legacy CONVERT_UNITS\n  ! Used in strat_chem_mod and sulfate_mod\n  PRIVATE :: ConvertSpc_VVDry_to_Kg\n  PRIVATE :: ConvertSpc_Kg_to_VVDry\n\n  ! kg/kg dry air <-> kg/grid box\n  ! Used in aerosol_mod, tomas_mod, emissions_mod,\n  ! strat_chem_mod, exchange_mod, rrtmg_rad_transfer_mod,\n  ! chemistry_mod, sulfate_mod, and carbon_mod\n  ! This is since RRTMG, TOMAS, exchange_mod, chemistry,\n  ! and EMISSMERCURY are still in [kg]\n  PRIVATE :: ConvertSpc_KgKgDry_to_Kg\n  PRIVATE :: ConvertSpc_Kg_to_KgKgDry\n\n  ! molec/cm3 dry air <-> kg/gridbox\n  PRIVATE :: ConvertSpc_MND_to_Kg\n  PRIVATE :: ConvertSpc_Kg_to_MND\n!\n! !REMARKS:\n!  The routines in this module are used to convert the units of\n!  species concentrations in various GEOS-Chem routines.\n!\n! !REVISION HISTORY:\n!  23 Jun 2015 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Convert_Spc_Units\n!\n! !DESCRIPTION: Subroutine Convert\\_Spc\\_Units is a wrapper function to convert\n!  the species input array to a desired unit.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Convert_Spc_Units( Input_Opt, State_Chm,      State_Grid,       &\n                                State_Met, new_units,      RC,               &\n                                mapping,   previous_units                   )\n!\n! !USES:\n!\n    USE TIMERS_MOD\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)        :: Input_Opt      ! Input Options object\n    TYPE(GrdState), INTENT(IN)        :: State_Grid     ! Grid state object\n    TYPE(MetState), INTENT(IN)        :: State_Met      ! Met State object\n    INTEGER,        INTENT(IN)        :: new_units      ! Units to convert to\n    INTEGER,        OPTIONAL, POINTER :: mapping(:)     ! Spc ID -> modelId\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT)     :: State_Chm      ! Chem State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)       :: RC             ! Success or failure?\n    INTEGER,        OPTIONAL          :: previous_units ! Previous units\n!\n! !CALLING SEQUENCE:\n!\n!    ! Convert units from mol/mol dry to kg\n!    CALL Convert_Spc_Units(                    &\n!         Input_Opt      = Input_Opt,           &\n!         State_Chm      = State_Chm,           &\n!         State_Grid     = State_Grid,          &\n!         State_Met      = State_Met,           &\n!         mapping        = State_Chm%Map_XXXXX, & ! Uses Map_All if omitted\n!         new_units      = KG_SPECIES,          &\n!         previous_units = previous_units,      &\n!         RC             = RC                  )\n!\n!    ...computation...\n!\n!    ! Convert back to original units\n!    CALL Convert_Spc_Units(                    &\n!         Input_Opt  = Input_Opt,               &\n!         State_Chm  = State_Chm,               &\n!         State_Grid = State_Grid,              &\n!         State_Met  = State_Met,               &\n!         mapping    = State_Chm%Map_XXXXX,     & ! Uses Map_All if omitted\n!         new_units  = previous_units,          &\n!         RC         = RC                      )\n!\n! !REVISION HISTORY:\n!  14 Apr 2016 - C. Keller    - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: isAdjoint\n    INTEGER            :: current_units\n\n    ! Pointers\n    INTEGER, POINTER   :: theMapping(:)\n\n    ! Strings\n    CHARACTER(LEN=255) :: errNoIn, errNoOut, errMsg, errUnits, thisLoc\n\n    !====================================================================\n    ! Convert_Spc_Units begins here!\n    !====================================================================\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Unit conversions\", RC )\n    ENDIF\n\n    ! Convert units for all species unless mapping is passed\n    ! NOTE: Avoid an ELSE statement here, which can be a bottleneck.\n    theMapping => State_Chm%Map_All\n    IF ( PRESENT( mapping ) ) theMapping => mapping\n\n    ! Error check the mapping argument\n    IF ( SIZE(theMapping) < 1 ) THEN\n       errMsg = 'The \"mapping\" argument has zero elements!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize\n    RC             = GC_SUCCESS\n    current_units  = State_Chm%Species(theMapping(1))%Units\n    isAdjoint      = .FALSE.\n    thisLoc        = ' -> at Convert_Spc_Units (in GeosUtil/unitconv_mod.F90)'\n\n    ! Error messages\n    errNoOut  = 'Conversion to ' // TRIM( UNIT_STR( new_units ) )         // &\n                ' is not defined!'\n    errNoIn   = 'Conversion from ' // TRIM( UNIT_STR( current_units ) )   // &\n                ' is not defined!'\n    errMsg    = 'Error in conversion from ' // &\n                 TRIM( UNIT_STR( current_units ) ) // ' to '              // &\n                 TRIM( UNIT_STR( new_units     ) ) //  '!'\n    errUnits  = ''\n\n    ! Debugging print\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) TRIM( UNIT_STR( current_units ) ),                    &\n                       TRIM( UNIT_STR( new_units     ) )\n 100   FORMAT( '     ### Species Unit Conversion: ', a, ' -> ', a )\n    ENDIF\n\n    ! Exit if in and out units are the same\n    IF ( new_units == current_units ) THEN\n       IF ( PRESENT( previous_units ) ) previous_units = new_units\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"Unit conversions\", RC )\n       ENDIF\n       RETURN\n    ENDIF\n\n    ! Make sure all species have consistent starting units\n    IF ( .not. Check_Units( State_Chm, current_units, theMapping ) ) THEN\n       errMsg = 'All species do not have consistent starting units!'\n       theMapping => NULL()\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef ADJOINT\n    ! Set a flag if we have compiled for the adjoint\n    isAdjoint = Input_Opt%is_Adjoint\n#endif\n\n    ! Convert based on input and output units\n    SELECT CASE ( current_units )\n\n       !================================================================\n       ! Convert from kg/kg dry\n       !================================================================\n       CASE ( KG_SPECIES_PER_KG_DRY_AIR )\n\n          SELECT CASE ( new_units )\n\n             CASE ( MOLES_SPECIES_PER_MOLES_DRY_AIR )\n                CALL ConvertSpc_KgKgDry_to_VVDry(                            &\n                     State_Chm,  State_Grid, theMapping,                     &\n                     isAdjoint,  RC                                         )\n\n             CASE ( KG_SPECIES_PER_KG_TOTAL_AIR )\n                CALL ConvertSpc_KgKgDry_to_KgKgTotal(                        &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                              )\n\n             CASE ( KG_SPECIES )\n                CALL ConvertSpc_KgKgDry_to_Kg(                               &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES_PER_M2 )\n                CALL ConvertSpc_KgKgDry_to_Kgm2(                             &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( MOLECULES_SPECIES_PER_CM3 )\n                CALL ConvertSpc_KgKgDry_to_MND(                              &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE DEFAULT\n                CALL GC_Error( errNoOut, RC, thisLoc )\n\n          END SELECT\n\n       !================================================================\n       ! Convert from kg/kg total\n       !================================================================\n       CASE ( KG_SPECIES_PER_KG_TOTAL_AIR )\n\n          SELECT CASE ( new_units )\n\n             CASE ( KG_SPECIES_PER_KG_DRY_AIR )\n                CALL ConvertSpc_KgKgTotal_to_KgKgDry(                        &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES )\n                CALL ConvertSpc_KgKgTotal_to_KgKgDry(                        &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n                CALL ConvertSpc_KgKgDry_to_Kg(                               &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( MOLECULES_SPECIES_PER_CM3 )\n                CALL ConvertSpc_KgKgTotal_to_KgKgDry(                        &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n                CALL ConvertSpc_KgKgDry_to_MND(                              &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE DEFAULT\n                CALL GC_Error( errNoOut, RC, thisLoc )\n          END SELECT\n\n       !====================================================================\n       ! Convert from v/v dry\n       !====================================================================\n       CASE ( MOLES_SPECIES_PER_MOLES_DRY_AIR )\n\n          SELECT CASE ( new_units )\n\n             CASE ( KG_SPECIES_PER_KG_DRY_AIR )\n                CALL ConvertSpc_VVDry_to_KgKgDry(                            &\n                     State_Chm,  State_Grid,                                 &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES )\n                CALL ConvertSpc_VVDry_to_Kg(                                 &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES_PER_M2 )\n                CALL ConvertSpc_VVDry_to_KgKgDry(                            &\n                     State_Chm,  State_Grid,                                 &\n                     theMapping, isAdjoint,  RC                             )\n                CALL ConvertSpc_KgKgDry_to_Kgm2(                             &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE DEFAULT\n                CALL GC_Error( errNoOut, RC, thisLoc )\n\n          END SELECT\n\n       !====================================================================\n       ! Convert from kg\n       !====================================================================\n       CASE ( KG_SPECIES )\n\n          SELECT CASE ( new_units )\n\n            CASE ( KG_SPECIES_PER_KG_DRY_AIR )\n                CALL ConvertSpc_Kg_to_KgKgDry(                               &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES_PER_KG_TOTAL_AIR )\n                CALL ConvertSpc_Kg_to_KgKgDry(                               &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n                CALL ConvertSpc_KgKgDry_to_KgKgTotal(                        &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( MOLES_SPECIES_PER_MOLES_DRY_AIR )\n                CALL ConvertSpc_Kg_to_VVDry(                                 &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( MOLECULES_SPECIES_PER_CM3 )\n                CALL ConvertSpc_Kg_to_MND(                                   &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE DEFAULT\n                CALL GC_Error( errNoOut, RC, thisLoc )\n\n          END SELECT\n\n       !====================================================================\n       ! Convert from kg/m2\n       !====================================================================\n       CASE ( KG_SPECIES_PER_M2 )\n\n          SELECT CASE ( new_units )\n\n             CASE( KG_SPECIES_PER_KG_DRY_AIR )\n                CALL ConvertSpc_Kgm2_to_KgKgDry(                             &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( MOLES_SPECIES_PER_MOLES_DRY_AIR )\n                CALL ConvertSpc_Kgm2_to_KgKgDry(                             &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n                CALL ConvertSpc_KgKgDry_to_VVDry(                            &\n                     State_Chm,  State_Grid,                                 &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE DEFAULT\n                CALL GC_Error( errNoOut, RC, thisLoc )\n\n          END SELECT\n\n       !====================================================================\n       ! Convert from molecular number density (MND)\n       !====================================================================\n       CASE ( MOLECULES_SPECIES_PER_CM3 )\n\n          SELECT CASE ( new_units )\n\n             CASE ( KG_SPECIES )\n                CALL ConvertSpc_MND_to_Kg(                                   &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES_PER_KG_DRY_AIR )\n                CALL ConvertSpc_MND_to_KgKgDry(                              &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE ( KG_SPECIES_PER_KG_TOTAL_AIR )\n                CALL ConvertSpc_MND_to_KgKgDry(                              &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n                CALL ConvertSpc_KgKgDry_to_KgKgTotal(                        &\n                     State_Chm,  State_Grid, State_Met,                      &\n                     theMapping, isAdjoint,  RC                             )\n\n             CASE DEFAULT\n                CALL GC_Error( errNoOut, RC, thisLoc )\n\n          END SELECT\n\n       ! Error if input units not found\n       CASE DEFAULT\n          CALL GC_Error( errNoIn, RC, thisLoc )\n\n    END SELECT\n\n    !========================================================================\n    ! Cleanup and quit\n    !========================================================================\n\n    ! Return the previous units (if necessary)\n    IF ( PRESENT( previous_units ) ) previous_units = current_units\n\n    ! Free pointer\n    theMapping => NULL()\n\n    ! Error if problem within called conversion routine\n    IF ( RC /= GC_SUCCESS ) THEN\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Unit conversions\", RC )\n    ENDIF\n\n  END SUBROUTINE Convert_Spc_Units\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Global_Species_Kg\n!\n! !DESCRIPTION: Subroutine Print\\_Global\\_Species\\_Kg prints the\n!   global and grid box (I,J,L) mass for species N to log. Species\n!   units can be any unit for which conversion to kg is defined in\n!   the unit conversion module unitconv\\_mod.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Global_Species_Kg( I,          J,         L,              &\n                                      Spc,        Input_Opt, State_Chm,      &\n                                      State_Grid, State_Met, thisLoc,        &\n                                      RC                                    )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)    :: I           ! Grid cell lat index\n    INTEGER,          INTENT(IN)    :: J           ! Grid cell lon index\n    INTEGER,          INTENT(IN)    :: L           ! Grid cell lev index\n    CHARACTER(LEN=*), INTENT(IN)    :: Spc         ! Species abbrev string\n    CHARACTER(LEN=*), INTENT(IN)    :: thisLoc     ! Call location string\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine is for debugging purposes to helptrace where species\n!  mass is not conserved.\n!\n! !REVISION HISTORY:\n!  22 Jun 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n    INTEGER            :: previous_units\n    REAL(fp)           :: SpcTotal\n\n    ! Arrays\n    INTEGER, TARGET    :: mapping(1)\n\n    ! Pointers\n    INTEGER, POINTER   :: theMapping(:)\n\n    ! Strings\n    CHARACTER(LEN=12)  :: SpcName\n    CHARACTER(LEN=255) :: errMsg, errLoc\n\n    !========================================================================\n    ! Print_Global_Species_Kg begins here!\n    !========================================================================\n\n    RC     = GC_SUCCESS\n    errMsg = ''\n    errLoc = &\n     ' -> at Print_Global_Species_Kg (in GeosUtil/unitconv_mod.F90)'\n\n    ! Get species index\n    N = Ind_(spc)\n\n    ! Create a pointer for the mapping indices\n    mapping(1) =  N\n    theMapping => mapping\n\n    ! Convert species conc units to kg\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         mapping        = theMapping,                                        &\n         new_units      = KG_SPECIES,                                        &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Unit conversion error!'\n       CALL GC_Error( errMsg, RC, errLoc )\n       RETURN\n    ENDIF\n\n    ! Echo info\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) TRIM( thisLoc )\n    ENDIF\n100 FORMAT( /, '%%%%% PRINT_GLOBAL_SPECIES_KG at ', a )\n\n    ! Compute global sum\n    SpcTotal = SUM( State_Chm%Species(N)%Conc(:,:,:) )\n\n    ! Get species name from the species database\n    SpcName = TRIM( State_Chm%SpcData(N)%Info%Name )\n\n    ! Write formatted output\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 110 ) SpcName, SpcTotal\n       WRITE( 6, 115 ) SpcName, State_Chm%Species(N)%Conc(I,J,L), I, J, L\n       WRITE( 6, 115 ) 'AD', State_Met%AD(I,J,L), I, J, L\n       WRITE( 6, 115 ) 'PREVSPHU', State_Met%SPHU_PREV(I,J,L), I, J, L\n       WRITE( 6, 115 ) 'SPHU', State_Met%SPHU(I,J,L), I, J, L\n       WRITE( 6, 120 )\n    ENDIF\n110 FORMAT( 'Global sum [kg] for ', a8, ' = ', es24.16 )\n115 FORMAT( 'Grid cell  [kg] for ', a8, ' = ', es24.16, ', I,J,L= ',3I4 )\n120 FORMAT( / )\n\n    ! Convert back to original units\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         mapping    = theMapping,                                            &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n\n    ! Free pointer\n    theMapping => NULL()\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Unit conversion error!'\n       CALL GC_Error( errMsg, RC, errLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Print_Global_Species_Kg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgkgdry_to_vvdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_KgKgDry\\_to\\_VVDry converts the\n!  units of species concentrations from mass mixing ratio (KGKG) [kg/kg] to\n!  volume ratio (VR) [vol/vol] (same as molar ratio [mol/mol]).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_KgKgDry_to_VVDry( State_Chm, State_Grid,             &\n                                          mapping,   isAdjoint,  RC         )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N,      S\n    REAL(fp)               :: const\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_KgKgDry_to_VVDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_KgKgDry_to_VVDry (in GeosUtil/unitconv_mod.F90)'\n\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !   kg species(N)   g dry air      mol species(N)\n    !   ------------- * ----------  *  -------------\n    !     kg air        mol air         g species(N)\n    !\n    !   = mass mixing ratio * ratio of air to species molecular weights\n    !\n    !   = molar ratio\n    !\n    ! Therefore, with:\n    !\n    !  AIRMW   = dry air molecular wt [g/mol]\n    !  MW_G(N) = species molecular wt [g/mol]\n    !\n    ! the conversion is:\n    !\n    !  Species(I,J,L,N) [vol/vol]\n    !\n    !    = Species(I,J,L,N) [kg/kg] * ( AIRMW / MW_G(N) )\n    !\n    !========================================================================\n\n    ! Loop over species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, const                                              )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Compute this constant term only once\n       const = AIRMW / State_Chm%SpcData(N)%Info%MW_g\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * const\n\n#ifdef ADJOINT\n          IF ( isAdjoint ) THEN\n             State_Chm%SpeciesAdj(:,:,:,N) =                                 &\n             State_Chm%SpeciesAdj(:,:,:,N) * const\n          ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = MOLES_SPECIES_PER_MOLES_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_KgKgDry_to_VVDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_vvdry_to_kgkgdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_VVDry\\_to\\_KgKgDry converts the\n!  units of species concentrations from volume ratio (VR) [vol/vol] (same\n!  as molar mixing ratio [mol/mol]) to mass mixing ratio [kg/kg].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_VVDry_to_KgKgDry( State_Chm, State_Grid,             &\n                                          mapping,   isAdjoint,  RC         )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N,      S\n    REAL(fp)               :: const\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_VVDry_to_KgKgDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_VVDry_to_KgKgDry (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !   mol species(N)  mol dry air     g species(N)\n    !   -----------  * -----------  *  -------------\n    !     mol air       g dry air      mol species(N)\n    !\n    !   = volume ratio / ratio of air to species molecular wts\n    !\n    !   = mass mixing ratio ([g/g] is equivalent to [kg/kg])\n    !\n    ! Therefore, with:\n    !\n    !  AIRMW   = dry air molecular wt [g/mol]\n    !  MW_G(N) = species molecular wt [g/mol]\n    !\n    ! the conversion is:\n    !\n    !  Species(I,J,L,N) [vol/vol]\n    !\n    !    = Species(I,J,L,N) [kg/kg] / ( AIRMW / MW_G(N) )\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, const                                              )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Compute this constant only once\n       const = AIRMW / State_Chm%SpcData(N)%Info%MW_g\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc / const\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) / const\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    END SUBROUTINE ConvertSpc_VVDry_to_KgKgDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgkgdry_to_kgkgtotal\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_KgKgDry\\_to\\_KgKgTotal converts the\n!  units of species concentrations from dry mass mixing ratio (KGKG) [kg/kg] to\n!  total mass mixing ratio [kg/kg] including moisture.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_KgKgDry_to_KgKgTotal( State_Chm, State_Grid,         &\n                                              State_Met, mapping,            &\n                                              isAdjoint, RC                 )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  07 Nov 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N,      S\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_KgKgDry_to_KgKgTotal begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_KgKgDry_to_KgKgTotal (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N                                                     )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc *                                           &\n          ( 1.0_fp - ( State_Met%SPHU * 1e-3_fp ) )\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) *                                    &\n             ( 1.0_fp - ( State_Met%SPHU * 1e-3_fp ) )\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_TOTAL_AIR\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_KgKgDry_to_KgKgTotal\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgkgtotal_to_kgkgdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_KgKgTotal\\_to\\_KgKgDry converts the\n!  units of species concentrations from total mass mixing ratio [kg/kg]\n!  (includes moisture) to dry mass mixing ratio [kg/kg].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_KgKgTotal_to_KgKgDry( State_Chm, State_Grid,         &\n                                              State_Met, mapping,            &\n                                              isAdjoint, RC                 )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  07 Nov 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N,      S\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_KgKgTotal_to_KgKgDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_KgKgTotal_to_KgKgDry (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N                                                     )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc /                                           &\n          ( 1e0_fp - ( State_Met%SPHU * 1e-3_fp ) )\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) /                                    &\n             ( 1e0_fp - ( State_Met%SPHU * 1e-3_fp ) )\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    END SUBROUTINE ConvertSpc_KgKgTotal_to_KgKgDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgkgdry_to_kgm2\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_kgkgdry\\_to\\_kgm2 converts the units of\n!  a 3D array from dry mass mixing ratio [kg/kg dry air] to area density\n!  [kg/m2].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_KgKgDry_to_Kgm2( State_Chm, State_Grid, State_Met,   &\n                                         mapping,   isAdjoint,  RC          )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_KgKgDry_to_Kgm2 begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_KgKgDry_to_Kgm2 (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !   kg species     Delta dry P [hPa]   100 [Pa]\n    !   -----------  * ----------------- * --------\n    !   kg dry air     g [m/s2]            [hPa]\n    !\n    !   = kg species / m2\n    !\n    ! where:\n    !\n    !  Delta dry P = dry pressure difference across level as derived\n    !                from the dry surface pressure with A and B params\n    !  g = acceleration due to gravity\n    !  kg dry air / kg total air  = 1 - specific humidity\n    !\n    !========================================================================\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N                                                     )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * ( g0_100 * State_Met%DELP_DRY )\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * ( g0_100 * State_Met%DELP_DRY )\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_M2\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_KgKgDry_to_Kgm2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgm2_to_kgkgdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_Kgm2\\_to\\_kgkgdry converts the units of\n!  species concentrations from area density [kg/m2] to dry mass mixing ratio\n!  [kg/kg dry air].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_Kgm2_to_KgKgDry( State_Chm, State_Grid, State_Met,   &\n                                         mapping,   isAdjoint,  RC          )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_Kgm2_to_KgKgDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_Kgm2_to_KgKgDry (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !   kg species(N)   g [m/s2]            [hPa]\n    !   -----------  * ----------------- * --------\n    !        m2        Delta dry P [hPa]   100 [Pa]\n    !\n    !   = kg species(N) / kg dry air\n    !\n    ! where:\n    !\n    !  Delta dry P = dry pressure difference across level as derived\n    !                from the dry surface pressure with A and B params\n    !  g = acceleration due to gravity\n    !  kg dry air / kg total air  = 1 - specific humidity\n    !\n    !========================================================================\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N                                                     )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc / ( g0_100  * State_Met%DELP_DRY )\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) / ( g0_100  * State_Met%DELP_DRY )\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_Kgm2_to_KgKgDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgkgdry_to_mnd\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_KgKgDry\\_to\\_MND converts the units of\n!  species concentrations from dry mass mixing ratio [kg/kg dry air] to\n!  molecular number density (MND) [molecules/cm3].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_KgKgDry_to_MND( State_Chm, State_Grid, State_Met,    &\n                                        mapping,   isAdjoint,  RC           )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,       S\n    REAL(fp)           :: const,   MW_kg\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg,  thisLoc\n\n    !========================================================================\n    ! ConvertSpc_KgKgDry_to_MND begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_KgKgDry_to_MND (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    ! The conversion is as follows:\n    !\n    !   kg species(N)    kg air     molec   mol species(N)     m3\n    !   -----------   * --------  * ----- * -------------  * -------\n    !   kg dry air         m3        mol        kg           1E6 cm3\n    !\n    !   = mixing ratio * air density * Avogadro's # / MW * conversion factors\n    !\n    !   = molecules per cm3\n    !\n    ! Therefore, with:\n    !\n    !  AVO             = Avogadro's #\n    !  AIRDEN(I,J,L)   = grid box dry air density [kg/m3]\n    !  MW_KG           = molecules species / kg species\n    !\n    ! the conversion is:\n    !\n    !  Spcies(I,J,L,N) [molecules/cm3]\n    !\n    !    = Species(I,J,L,N) [kg/kg] * AIRDEN(I,J,L) * AVO / MW_KG / 1e6\n    !\n    ! NOTES:\n    !   (1) Use AD/AIRVOL instead of AIRDEN to preserve legacy method\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, MW_kg, const                                       )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Molecular weight for the species [kg]\n       MW_kg = State_Chm%SpcData(N)%Info%MW_g * 1.e-3_fp\n\n       ! Compute this constant term once\n       const = ( AVO / MW_kg ) / 1.0e+6_fp\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * State_Met%AIRDEN * const\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * State_Met%AIRDEN * const\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = MOLECULES_SPECIES_PER_CM3\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_KgKgDry_to_MND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_mnd_to_kgkgdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_MND\\_to\\_KgKgDry converts the units of\n!  species concentrations from molecular number density (MND) [molecules/cm3]\n!  to dry mass mixing ratio [kg/kg dry air].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_MND_to_KgKgDry( State_Chm, State_Grid, State_Met,    &\n                                        mapping,   isAdjoint, RC            )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n    REAL(fp)           :: const,  MW_kg\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_MND_to_KgKgDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_MND_to_KgKgDry (in GeosUtil/unitconv_mod.F90)'\n\n    !====================================================================\n    !\n    ! The conversion is as follows:\n    !\n    !   molec species(N)   mol     kg species(N)      m3      1E6 cm3\n    !   ---------------- * ----- * -------------- * ------  * -------\n    !       cm3            molec   mol species(N)   kg air      m3\n    !\n    !\n    !   = # density / Avogadro's # * MW / air density * conversion factors\n    !\n    !   = kg species / kg dry air\n    !\n    ! Therefore, with:\n    !\n    !  AVO             = Avogadro's #\n    !  AIRDEN(I,J,L)   = grid box dry air density [kg/m3]\n    !  MW_KG           = molecules species / kg species\n    !\n    ! the conversion is:\n    !\n    !  Spcies(I,J,L,N) [kg/kg dry air]\n    !\n    !    = Species(I,J,L,N) [molecules/cm3] * AIRDEN(I,J,L) * AVO / MW_KG / 1e6\n    !\n    ! NOTES:\n    !  (1) Use exact reverse of the mixing ratio -> # density conversion to\n    !      avoid numerical noise differences\n    !  (2) Use AD/AIRVOL instead of AIRDEN to preserve legacy method\n    !\n    !========================================================================\n\n    ! Loop over species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, MW_kg, const                                       )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Molecular weight for the species [kg]\n       MW_kg = State_Chm%SpcData(N)%Info%MW_g * 1.e-3_fp\n\n       ! Compute this constant term once\n       const = 1.0e+6_fp / ( AVO / MW_kg )\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * const / State_Met%AIRDEN\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * const / State_Met%AIRDEN\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_MND_to_KgKgDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_vvdry_to_kg\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_VVDry\\_to\\_Kg converts the units of\n!  species concentrations from dry volume mixing ratio\n!  [mol species/mol dry air] to species mass per grid box [kg].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_VVDry_to_Kg( State_Chm, State_Grid, State_Met,       &\n                                     mapping,   isAdjoint,  RC              )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Object containing species concentration\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine replaces legacy routine CONVERT_UNITS and will be removed\n!  once GEOS-Chem is entirely area independent\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n    REAL(fp)           :: const\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_VVDry_to_Kg begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_VVDry_to_Kg (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !   mol species(N)                g/mol species(N)\n    !   -------------  * kg dry air * ----------------\n    !   mol dry air                   g/mol dry air\n    !\n    !   = volume mixing ratio * dry air mass * MW species(N) / MW dry air\n    !\n    !   = kg species(N)\n    !\n    ! Therefore, with:\n    !\n    !  AD(I,J,L) = grid box dry air mass [kg]\n    !  AIRMW     = dry air molecular wt [g/mol]\n    !  MW_G(N)   = species molecular wt [g/mol]\n    !\n    ! the conversion is:\n    !\n    !  SPECIES(I,J,L,N) [kg]\n    !\n    !    = SPECIES(I,J,L,N) [v/v] * AD(I,J,L) /  ( AIRMW / MW_G(N) )\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, const                                              )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Compute this constant term only once\n       const = AIRMW / State_Chm%SpcData(N)%Info%MW_g\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * State_Met%AD / const\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * State_Met%AD / const\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_VVDry_to_Kg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kg_to_vvdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_Kg\\_to\\_VVDry converts the units of\n!  species concentrations from species mass per grid box [kg] to dry volume\n!  mixing ratio [mol species/mol dry air].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_Kg_to_VVDry( State_Chm, State_Grid, State_Met,       &\n                                     mapping,   isAdjoint,  RC              )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine replaces legacy routine CONVERT_UNITS and will be removed\n!  once GEOS-Chem is entirely area independent\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n    REAL(fp)           :: const\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_Kg_to_VVDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_Kg_to_VVDry (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !                         1           g/mol dry air\n    !   kg species(N)  * -------------- * ----------------\n    !                    kg dry air       g/mol species(N)\n    !\n    !   = kg species(N) / dry air mass * MW dry air / MW species(N)\n    !\n    !   = volume mixing ratio\n    !\n    ! Therefore, with:\n    !\n    !  AD(I,J,L) = grid box dry air mass [kg]\n    !  AIRMW     = dry air molecular wt [g/mol]\n    !  MW_G(N)   = species molecular wt [g/mol]\n    !\n    ! the conversion is:\n    !\n    !  Species(I,J,L,N) [v/v]\n    !\n    !    = Species(I,J,L,N) [kg] * ( AIRMW / MW_G(N) ) / AD(I,J,L)\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, const                                              )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Compute this constant only once\n       const = AIRMW / State_Chm%SpcData(N)%Info%MW_g\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * const / State_Met%AD\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * const / State_Met%AD\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = MOLES_SPECIES_PER_MOLES_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_Kg_to_VVDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kgkgdry_to_kg\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_KgKgDry\\_to\\_Kg converts the units of\n!  species concentrations from dry mass mixing ratio\n!  [kg species/kg dry air] to species mass per grid box [kg].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_KgKgDry_to_Kg( State_Chm, State_Grid, State_Met,     &\n                                       mapping,   isAdjoint, RC             )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_KgKgDry_to_Kg begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_KgKgDry_to_Kg (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !   kg species(N)\n    !   -----------  *  kg dry air\n    !   kg dry air\n    !\n    !   = mass mixing ratio * dry air mass\n    !\n    !   = kg species(N)\n    !\n    ! Therefore, with:\n    !\n    !  AD(I,J,L)   = grid box dry air mass [kg]\n    !\n    ! the conversion is:\n    !\n    !  Species(I,J,L,N) [kg]\n    !\n    !    = Species(I,J,L,N) [kg/kg] * AD(I,J,L)\n    !\n    !========================================================================\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N                                                     )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * State_Met%AD\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                 &\n          State_Chm%SpeciesAdj(:,:,:,N) * State_Met%AD\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_KgKgDry_to_Kg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kg_to_kgkgdry\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_Kg\\_to\\_KgKgDry converts the units of\n!  species concentrations from species mass per grid box [kg] to dry mass\n!  mixing ratio [kg species/kg dry air].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_Kg_to_KgKgDry( State_Chm, State_Grid, State_Met,     &\n                                       mapping,   isAdjoint,  RC            )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_Kg_to_KgKgDry begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_Kg_to_KgKgDry (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    !  The conversion is as follows:\n    !\n    !                         1\n    !   kg species(N)  * --------------\n    !                      kg dry air\n    !\n    !   = kg species(N) / dry air mass\n    !\n    !   = mass mixing ratio\n    !\n    ! Therefore, with:\n    !\n    !  AD(I,J,L)    = grid box dry air mass [kg]\n    !\n    ! the conversion is:\n    !\n    !  Species(I,J,L,N) [kg/kg]\n    !\n    !    = Species(I,J,L,N) [kg] / AD(I,J,L)\n    !\n    !========================================================================\n\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N                                                     )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc / State_Met%AD\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                  &\n          State_Chm%SpeciesAdj(:,:,:,N) / State_Met%AD\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_DRY_AIR\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_Kg_to_KgKgDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_mnd_to_kg\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_MND\\_to\\_Kg converts the units of\n!  species concentrations from molecular number density (MND)\n!  [molecules/cm3] to mass per grid box [kg].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_MND_to_Kg( State_Chm, State_Grid, State_Met,         &\n                                   mapping,   isAdjoint,  RC                )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N,      S\n    REAL(fp)               :: const,  MW_kg\n\n    ! Strings\n    CHARACTER(LEN=255)     :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_MND_to_Kg begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_MND_to_Kg (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    ! The conversion is as follows:\n    !\n    !   molec species(N)   mol     kg species(N)    box m3    1E6 cm3\n    !   ---------------- * ----- * -------------- * ------  * -------\n    !       cm3            molec   mol species(N)      1        m3\n    !\n    !\n    !   = # density / Avogadro's # * MW / box volume * conversion factors\n    !\n    !   = kg species\n    !\n    ! Therefore, with:\n    !\n    !  AVO             = Avogadro's #\n    !  AIRVOL(I,J,L)   = grid box volume [m3]\n    !  MW_KG           = molecules species / kg species\n    !\n    ! the conversion is:\n    !\n    !  Species(I,J,L,N) [kg]\n    !\n    !    = Species(I,J,L,N) [molec/cm3] * AIRVOL(I,J,L) / AVO * MW_KG * 1e6\n    !    = Species(I,J,L,N) [molec/cm3] * [1e6 / (AVO / MW_KG)] * AIRVOL(I,J,L)\n    !\n    ! NOTES:\n    !  (1) Use exact reverse of the species mass -> # density conversion to\n    !      avoid numerical noise differences\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, MW_kg, const                                       )\n    DO S = 1, SIZE( mapping )\n\n       ! Get the modelId from the mapping array\n       N = mapping(S)\n\n       ! Molecular weight for the species [g]\n       MW_kg = State_Chm%SpcData(N)%Info%MW_g * 1.e-3_fp\n\n       ! Define this constant term only once\n       const = 1.0e6_fp / ( AVO / MW_kg )\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * const * State_Met%AIRVOL\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * const * State_Met%AIRVOL\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = KG_SPECIES\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_MND_to_Kg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertSpc_kg_to_mnd\n!\n! !DESCRIPTION: Subroutine ConvertSpc\\_Kg\\_to\\_MND converts the units of\n!  species concentrations from mass per grid box [kg] to molecular\n!  number density (MND) [molecules/cm3].\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertSpc_Kg_to_MND( State_Chm, State_Grid, State_Met,         &\n                                   mapping,   isAdjoint,  RC                )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology state object\n    INTEGER,        INTENT(IN)    :: mapping(:)  ! Species map to modelId\n    LOGICAL,        INTENT(IN)    :: isAdjoint   ! Is this reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N,      S\n    REAL(fp)           :: const,  MW_kg\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! ConvertSpc_Kg_to_MND begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at ConvertSpc_Kg_to_MND (in GeosUtil/unitconv_mod.F90)'\n\n    !========================================================================\n    !\n    ! The conversion is as follows:\n    !\n    !                   molec   mol species(N)      1       m3\n    !   kg species(N) * ----- * -------------- * ------ * -------\n    !                    mol    kg species(N)    box m3   1E6 cm3\n    !\n    !   = species mass * Avogadro's # / MW / box volume * conversion factors\n    !\n    !   = molecules per cm3\n    !\n    ! Therefore, with:\n    !\n    !  AVO             = Avogadro's #\n    !  AIRVOL(I,J,L)   = grid box volume [m3]\n    !  MW_KG           = molecules species / kg species\n    !\n    ! the conversion is:\n    !\n    !  Spcies(I,J,L,N) [molecules/cm3]\n    !\n    !    = Species(I,J,L,N) [kg] / AIRVOL(I,J,L) * AVO / MW_KG / 1e6\n    !    = Species(I,J,L,N) [kg] * [ AVO / MW_KG / 1e6 ] / AIRVOL(I,J,L)\n    !\n    !========================================================================\n\n    ! Loop over all species\n    !$OMP PARALLEL DO                                                        &\n    !$OMP DEFAULT( SHARED                                                   )&\n    !$OMP PRIVATE( S, N, MW_kg, const                                       )\n    DO N = 1, State_Chm%nSpecies\n\n       ! Molecular weight for the species [kg]\n       MW_kg = State_Chm%SpcData(N)%Info%MW_g * 1.e-3_fp\n\n       ! Compute this constant term only once\n       const = ( AVO / MW_kg ) / 1.0e6_fp\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc =                                           &\n       State_Chm%Species(N)%Conc * const / State_Met%AIRVOL\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(:,:,:,N) =                                    &\n          State_Chm%SpeciesAdj(:,:,:,N) * const / State_Met%AIRVOL\n       ENDIF\n#endif\n\n       ! Update units metadata\n       State_Chm%Species(N)%Units = MOLECULES_SPECIES_PER_CM3\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertSpc_Kg_to_MND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertBox_kgkgdry_to_kg\n!\n! !DESCRIPTION: Subroutine ConvertBox\\_KgKgDry\\_to\\_Kg converts the units of\n!  species concentrations from dry mass mixing ratio [kg tracer/kg dry air]\n!  to tracer mass per grid box [kg] for a single grid box. This routine is\n!  temporary during the unit transition of TOMAS to area-independence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertBox_KgKgDry_to_Kg( I,         J,         L,              &\n                                       State_Met, State_Chm, isAdjoint      )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,           INTENT(IN)    :: I, J, L     ! Grid box indices\n    TYPE(MetState),    INTENT(IN)    :: State_Met   ! Meteorology state object\n    LOGICAL,           INTENT(IN)    :: isAdjoint   ! Reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),    INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !REMARKS:\n!  This routine is temporary and is only used for local conversion of species\n!  concentrations for use in TOMAS within wetscav_mod routine WASHOUT.\n!  That routine is called within a parallel do loop and therefore units can\n!  only be converted per grid box to avoid excessive computation time. Also,\n!  State_Chm%Spc_Units cannot be changed within the parallel do loop without\n!  causing problems. It is therefore left out of this routine.\n!\n! !REVISION HISTORY:\n!  16 Sep 2016 - E. Lundgren - Initial version, an adaptation of\n!                              convertspc_kgkgdry_to_kg\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    !========================================================================\n    ! ConvertBox_KgKgDry_to_Kg begins here!\n    !========================================================================\n    !$OMP PARALLEL DO           &\n    !$OMP DEFAULT( SHARED     ) &\n    !$OMP PRIVATE( N )\n    DO N = 1, State_Chm%nSpecies\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc(I,J,L) =                                    &\n       State_Chm%Species(N)%Conc(I,J,L) * State_Met%AD(I,J,L)\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(I,J,L,N) =                                    &\n          State_Chm%SpeciesAdj(I,J,L,N) * State_Met%AD(I,J,L)\n       ENDIF\n#endif\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertBox_KgKgDry_to_Kg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertBox_kg_to_kgkgdry\n!\n! !DESCRIPTION: Subroutine ConvertBox\\_Kg\\_to\\_KgKgDry converts the units of\n!  species concentrations from species mass per grid box [kg] to mass\n!  mixing ratio [kg tracer/kg dry air] for a single grid box.\n!  This routine is temporary during the unit transition of TOMAS to\n!  area-independence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertBox_Kg_to_KgKgDry( I,         J,         L,              &\n                                       State_Met, State_Chm, isAdjoint      )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,           INTENT(IN)    :: I, J, L     ! Grid box indices\n    TYPE(MetState),    INTENT(IN)    :: State_Met   ! Meteorology state object\n    LOGICAL,           INTENT(IN)    :: isAdjoint   ! Reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),    INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !REMARKS:\n!  This routine is temporary and is only used for local conversion of species\n!  concentrations for use in TOMAS within wetscav_mod routine WASHOUT.\n!  That routine is called within a parallel do loop and therefore units can\n!  only be converted per grid box to avoid excessive computation time. Also,\n!  State_Chm%Spc_Units cannot be changed within the parallel do loop without\n!  causing problems. It is therefore left out of this routine.\n!\n! !REVISION HISTORY:\n!  16 Sep 2016 - E. Lundgren - Initial version, an adaptation of\n!                              convertspc_kg_to_kgkgdry\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    !========================================================================\n    ! ConvertBox_Kg_to_KgKgDry begins here!\n    !========================================================================\n    !$OMP PARALLEL DO           &\n    !$OMP DEFAULT( SHARED     ) &\n    !$OMP PRIVATE( N )\n    DO N = 1, State_Chm%nSpecies\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc(I,J,L) =                                    &\n       State_Chm%Species(N)%Conc(I,J,L) / State_Met%AD(I,J,L)\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(I,J,L,N) =                                    &\n          State_Chm%SpeciesAdj(I,J,L,N) / State_Met%AD(I,J,L)\n       ENDIF\n#endif\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertBox_Kg_to_KgKgDry\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertBox_kgm2_to_kg\n!\n! !DESCRIPTION: Subroutine ConvertBox\\_Kgm2\\_to\\_Kg converts the units of area\n!  density [kg/m2] to mass [kg] for a single grid box. This routine is\n!  temporary during the unit transition of TOMAS to area-independence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertBox_Kgm2_to_Kg( I,         J,          L,                &\n                                    State_Chm, State_Grid, isAdjoint        )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,           INTENT(IN)    :: I, J, L     ! Grid box indices\n    TYPE(GrdState),    INTENT(IN)    :: State_Grid  ! Grid State object\n    LOGICAL,           INTENT(IN)    :: isAdjoint   ! Reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),    INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !REMARKS:\n!  This routine is temporary and is only used for local conversion of species\n!  concentrations for use in TOMAS within wetscav_mod routine WASHOUT.\n!  That routine is called within a parallel do loop and therefore units can\n!  only be converted per grid box to avoid excessive computation time. Also,\n!  State_Chm%Spc_Units cannot be changed within the parallel do loop without\n!  causing problems. It is therefore left out of this routine.\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version - convert single grid box only\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    !========================================================================\n    ! ConvertBox_Kgm2_to_Kg begins here!\n    !========================================================================\n    !$OMP PARALLEL DO           &\n    !$OMP DEFAULT( SHARED     ) &\n    !$OMP PRIVATE( N )\n    DO N = 1, State_Chm%nSpecies\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc(I,J,L) =                                    &\n       State_Chm%Species(N)%Conc(I,J,L) * State_Grid%Area_M2(I,J)\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(I,J,L,N) =                                    &\n          State_Chm%SpeciesAdj(I,J,L,N) * State_Grid%Area_M2(I,J)\n       ENDIF\n#endif\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertBox_Kgm2_to_Kg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ConvertBox_kg_to_kgm2\n!\n! !DESCRIPTION: Subroutine ConvertBox\\_Kg\\_to\\_kgm2 converts the units of\n! mass [kg] to area density [kg/m2] for a single grid box.  This routine is\n!  temporary during the unit transition of TOMAS to area-independence.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ConvertBox_Kg_to_Kgm2( I,         J,          L,                &\n                                    State_Chm, State_Grid, isAdjoint        )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,           INTENT(IN)    :: I, J, L     ! Grid box indexes\n    TYPE(GrdState),    INTENT(IN)    :: State_Grid  ! Grid State object\n    LOGICAL,           INTENT(IN)    :: isAdjoint   ! Reverse integration?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),    INTENT(INOUT) :: State_Chm   ! Chemistry state object\n!\n! !REMARKS:\n!  This routine is temporary and is only used for local conversion of species\n!  concentrations for use in TOMAS within wetscav_mod routine WASHOUT.\n!  That routine is called within a parallel do loop and therefore units can\n!  only be converted per grid box to avoid excessive computation time. Also,\n!  State_Chm%Spc_Units cannot be changed within the parallel do loop without\n!  causing problems. It is therefore left out of this routine.\n!\n! !REVISION HISTORY:\n!  21 Jul 2016 - E. Lundgren - Initial version - convert single grid box only\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    !========================================================================\n    ! ConvertBox_Kg_to_Kgm2 begins here!\n    !========================================================================\n    !$OMP PARALLEL DO           &\n    !$OMP DEFAULT( SHARED     ) &\n    !$OMP PRIVATE( N )\n    DO N = 1, State_Chm%nSpecies\n\n       ! Convert species concentration units\n       State_Chm%Species(N)%Conc(I,J,L) =                                    &\n       State_Chm%Species(N)%Conc(I,J,L) / State_Grid%Area_M2(I,J)\n\n#ifdef ADJOINT\n       IF ( isAdjoint ) THEN\n          State_Chm%SpeciesAdj(I,J,L,N) =                                    &\n          State_Chm%SpeciesAdj(I,J,L,N) / State_Grid%Area_M2(I,J)\n       ENDIF\n#endif\n\n    ENDDO\n    !$OMP END PARALLEL DO\n\n  END SUBROUTINE ConvertBox_Kg_to_Kgm2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check_Units\n!\n! !DESCRIPTION: Returns .TRUE. if all species have the same units, or\n!  .FALSE. if not.\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Check_Units( State_Chm, units, mapping ) RESULT( same )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,           INTENT(IN) :: units      ! Input units flag\n    INTEGER, OPTIONAL, POINTER    :: mapping(:) ! Species ID -> modelId\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState),    INTENT(IN) :: State_Chm  ! Chemistry State object\n!\n! !RETURN VALUE:\n!\n    LOGICAL                       :: same       ! All species in same units?\n!\n! !REVISION HISTORY:\n!  30 Nov 2023 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER, POINTER :: theMapping(:)\n\n    !========================================================================\n    ! Check_Units begins here!\n    !========================================================================\n\n    ! Point to the mapping array (or use all species if not passed)\n    theMapping => State_Chm%Map_All\n    IF ( PRESENT( mapping ) ) theMapping => mapping\n\n    ! Are all species in the same units?\n    same = ALL( State_Chm%Species(theMapping)%Units == units )\n\n    ! Free pointer\n    theMapping => NULL()\n\n  END FUNCTION Check_Units\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Species_Units\n!\n! !DESCRIPTION: Prints each species name and its units.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Species_Units( State_Chm, mapping )\n!\n! !USES:\n!\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN) :: State_Chm    ! Chemistry state object\n    INTEGER, OPTIONAL, POINTER :: mapping(:)   ! Species Id -> modelId\n!\n! !REVISION HISTORY:\n!  23 Feb 2024 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: N, S\n\n    ! Pointers\n    INTEGER, POINTER :: theMapping(:)\n\n    !========================================================================\n    ! Print_Species_Units begins here!\n    !========================================================================\n\n    ! Assume all species will be printed if mapping is not passed\n    theMapping => State_Chm%Map_All\n    IF ( PRESENT( mapping ) ) theMapping => mapping\n\n    ! Loop over species\n    DO S = 1, SIZE( theMapping )\n\n       ! Get the modelId for each species\n       N = theMapping(S)\n\n       WRITE( 6, 100 ) N, ADJUSTL( State_Chm%SpcData(N)%Info%Name ),         &\n                          UNIT_STR( State_Chm%Species(N)%Units )\n 100   FORMAT( i5, 1x, a20, 1x, a )\n    ENDDO\n\n    ! Free pointer\n    theMapping => NULL()\n\n  END SUBROUTINE Print_Species_Units\n!EOC\nEND MODULE UnitConv_Mod\n"
  },
  {
    "path": "Headers/.cvsignore",
    "content": "*.mod\n*.o\n*.a\n*.pdf\n*.ps\n*.tex\ngeos\n"
  },
  {
    "path": "Headers/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*"
  },
  {
    "path": "Headers/CMN_FJX_MOD.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: CMN_FJX_mod.F90\n!\n! !DESCRIPTION: Module CMN\\_FJX\\_MOD contains parameters and global variables\n!  used to interface between Harvard chemistry and UC-Irvine photolysis\n!  programs (Fast-J/Fast-JX). Contents of this module previously were in\n!  Headers/CMN_FJX_MOD.F90. That module was split into this file and\n!  Headers/CMN_Phot_mod.F90 for the development of Cloud-J to replace\n!  Fast-JX. This module will be used only in Fast-JX and not in Cloud-J.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE CMN_FJX_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD      ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PUBLIC\n!\n! !DEFINED PARAMETERS:\n!\n\n  !-----------------------------------------------------------------------\n  ! Parameters\n  !-----------------------------------------------------------------------\n\n  INTEGER, PARAMETER :: JVN_ = 167     ! Max number of J-values\n\n  INTEGER, PARAMETER :: WX_   = 18     ! # wavelengths in file FJX_spec.dat\n\n  INTEGER, PARAMETER :: X_    = 123    ! Max # X-section data in FJX_spec.dat\n\n  INTEGER, PARAMETER :: A_    = 56     ! # aerosol/cloud Mie sets\n\n#ifdef MODEL_GEOS\n!!!INTEGER, PARAMETER :: N_ = 601\n!!!INTEGER, PARAMETER :: N_ = 1201\n  INTEGER            :: N_\n#else\n  INTEGER, PARAMETER :: N_    = 601    ! # levels in Mie scattering arrays\n                                       ! = 2*NC+1 = 4*(L_+1) + 1 + 2*sum(JADDLV)\n#endif\n\n  INTEGER, PARAMETER :: M_    = 4      ! # Gauss points used (must be 4 in FJX)\n\n  INTEGER, PARAMETER :: M2_   = 2*M_   ! M2_ = 2*M_ = 8, replaces MFIT\n\n  ! 4 Gauss pts = 8-stream\n  REAL(fp), DIMENSION(M_), PARAMETER  :: &\n       EMU = [.06943184420297e+0_fp, .33000947820757e+0_fp, &\n              .66999052179243e+0_fp, .93056815579703e+0_fp]\n  REAL(fp), DIMENSION(M_), PARAMETER  :: &\n       WT  = [.17392742256873e+0_fp, .32607257743127e+0_fp, &\n              .32607257743127e+0_fp, .17392742256873e+0_fp]\n\n  ! Physical constants\n  REAL(fp), PARAMETER  :: ZZHT   = 5.e+5_fp      ! ZZHT: scale height (cm)\n\n  REAL(fp), PARAMETER  :: RAD    = 6375.e+5_fp   ! RAD: Radius of Earth (cm)\n\n  REAL(fp), PARAMETER  :: ATAU   = 1.120e+0_fp   ! ATAU: heating rate (factor\n                                                 ! increase layer to layer\n#ifdef MODEL_GEOS\n  !REAL(fp), PARAMETER  :: ATAU   = 1.180e+0_fp\n#endif\n\n  REAL(fp), PARAMETER  :: ATAU0  = 0.010e+0_fp   ! ATAU0: minimum heating rate\n\n  !-----------------------------------------------------------------------\n  ! Array dimension sizes set in Init_CMN_FJX at run-time\n  !-----------------------------------------------------------------------\n\n  INTEGER :: L_             ! Number of CTM layers\n\n  INTEGER :: L1_            ! Number of CTM layer edges\n\n  INTEGER :: L2_            ! Number of levels in FJX grid that\n                            ! inc. both edges and mid-points\n\n  INTEGER :: JVL_           ! Vertical levels for J-values\n\n  INTEGER :: AN_            ! # of separate aerosols per layer\n\n  INTEGER :: JXL_           ! Vertical level for Jvals (mid)\n\n  INTEGER :: JXL1_          ! Vertical level for Jvals (edge)\n\n  INTEGER :: JXL2_          ! Max # levels in Fast-JX grid (mid)\n\n  INTEGER :: W_             ! # wavelength bins\n\n  INTEGER :: JTAUMX         ! Max # divisions, i.e. < ATAUMN\n\n  !-----------------------------------------------------------------------\n  ! RD_XXX variables (file 'FJX_spec.dat')\n  !-----------------------------------------------------------------------\n\n  INTEGER              :: NW1\n  INTEGER              :: NW2\n\n  ! WL: Centres of wavelength bins - 'effective wavelength'\n  REAL(fp)             :: WL(WX_)\n\n  ! FL: Solar flux incident on top of atmosphere (cm-2.s-1)\n  REAL(fp)             :: FL(WX_)\n\n  ! QRAYL: Rayleigh parameters (effective cross-section) (cm2)\n  REAL(fp)             :: QRAYL(WX_+1)\n\n  ! TITLEJX: Title for supplied cross sections, from 'FJX_spec.dat'\n  CHARACTER*6          :: TITLEJX(X_)\n\n  ! LQQQ = 1, 2, or 3 to determine interpolation with T or P\n  INTEGER              :: LQQ(X_)\n\n  ! SQQ: Flag for supplied cross sections, from 'FJX_spec.dat'\n  CHARACTER*1          :: SQQ(X_)\n\n  ! TQQ: Temperature for supplied cross sections\n  REAL(fp)             :: TQQ(3,X_)\n\n  ! QQQ: Supplied cross sections in each wavelength bin (cm2)\n  REAL(fp)             :: QQQ(WX_,3,X_)\n\n  ! NJX: Number of species to calculate J-values for\n  INTEGER              :: NJX\n\n  ! O2 and O3 cross-sections, and O3 => O(1D) quantum yield\n  REAL(fp)             :: QO2(WX_,3)\n  REAL(fp)             :: QO3(WX_,3)\n  REAL(fp)             :: Q1D(WX_,3)\n\n  ! WBIN: Boundaries of wavelength bins\n  REAL(fp)             :: WBIN(WX_+1)\n\n  !-----------------------------------------------------------------------\n  ! RD_MIE variables (file 'jv_spec_mie.dat')\n  !-----------------------------------------------------------------------\n\n  ! NAA: Number of categories for scattering phase functions\n  INTEGER              :: NAA\n\n  ! TITLAA: Title per scattering data set, e.g. \"01 RAYLE  = Rayleigh phase\"\n  CHARACTER*80, DIMENSION(A_) :: TITLAA\n\n  ! WAA: 5 Wavelengths for the supplied phase functions. 1st col in file.\n  REAL(fp)             :: WAA(5,A_)\n\n  ! QAA: Aerosol scattering phase functions. 2nd col in file.\n  REAL(fp)             :: QAA(5,A_)\n\n  ! RAA: Effective radius associated with aerosol type. 3rd col in file.\n  REAL(fp)             :: RAA(5,A_)\n\n  ! SAA: Single scattering albedo. 4th col in file.\n  REAL(fp)             :: SAA(5,A_)\n\n  ! PAA: Phase function: first 8 terms of expansion. Cols 5:12 in file.\n  REAL(fp)             :: PAA(8,5,A_)\n\n  !-----------------------------------------------------------------------\n  ! RD_JS_JX variables (file 'FJX_j2j.dat')\n  !-----------------------------------------------------------------------\n\n  ! Label of J-value used in the main chem model\n  CHARACTER*50       :: JLABEL(JVN_)\n\n  ! Multiplication factor for fast-JX calculated J\n  REAL(fp)           :: JFACTA(JVN_)\n\n  ! Mumber of Photolysis reactions in CTM chemistry, derived here NRATJ\n  ! must be .le. JVN_\n  INTEGER            :: NRATJ\n\n  ! Names of photolysis species\n  CHARACTER (LEN=10) :: RNAMES(JVN_)\n\n  ! Branches for photolysis species\n  INTEGER            :: BRANCH(JVN_)\n\n  ! Index arrays that map Jvalue(j) onto rates\n  INTEGER            :: JIND(JVN_)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Cmn_FJX\n!\n! !DESCRIPTION: Routine INIT\\_CMN\\_FJX initializes quantities based on\n!  the grid-independent size parameters.\n!\\\\\n!\\\\\n! !INTERFACE:\n\n  SUBROUTINE Init_CMN_FJX( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! INIT_CMN_FJX begins here!\n    !=================================================================\n\n    L_     = State_Grid%NZ ! Number of CTM layers\n    L1_    = L_+1          ! Number of CTM layer edges\n    L2_    = L1_*2         ! Number of levels in FJX grid that\n                           ! inc. both edges and mid-points\n    JVL_   = State_Grid%NZ ! Vertical levs for J-values\n\n    JXL_   = State_Grid%NZ ! Vertical levs for J-values computed w/in Fast-JX\n    JXL1_  = JXL_+1        ! Vertical levs edges for J-values\n    JXL2_  = 2*JXL_+2      ! Max # levs in the basic Fast-JX grid (mid-level)\n\n#ifdef MODEL_GEOS\n    ! N_  = no. of levels in Mie scattering arrays\n    IF ( Input_Opt%LLFASTJX > 0 ) THEN\n       N_ = Input_Opt%LLFASTJX\n    ELSE\n       N_ = 601\n    ENDIF\n#endif\n\n    JTAUMX = ( N_ - 4*JXL_ ) / 2  ! Maximum number of divisions ( i.e., may\n                                  ! not get to ATAUMN)\n\n    AN_       = 37  ! # of separate aerosols per layer; Including PSCs\n    W_        = 18  ! # of wavelength bins\n\n    ! Initialize RNAMES to empty string (ckeller,12/29/17)\n    RNAMES(:) = \"\"\n\n    ! Return w/ success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Init_CMN_FJX\n!EOC\n\nEND MODULE CMN_FJX_MOD\n"
  },
  {
    "path": "Headers/CMN_SIZE_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: CMN_SIZE_mod.F90\n!\n! !DESCRIPTION: CMN\\_SIZE contains size parameters for GEOS-Chem arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE CMN_SIZE_MOD\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PUBLIC\n!\n! !DEFINED PARAMETERS:\n!\n  ! Model top pressure (mb)\n#if defined( MODEL_CESM )\n  REAL*8             :: PTOP\n#else\n  REAL*8,  PARAMETER :: PTOP = 0.01d0\n#endif\n\n  ! Maximum number of surface types: 73 olson\n  INTEGER, PARAMETER :: NSURFTYPE = 73\n\n  ! Maximum number of veg types in a CTM grid box\n#if defined( EXTERNAL_GRID ) || defined( EXTERNAL_TYPE )\n  INTEGER, PARAMETER :: NTYPE = 50\n#else\n  INTEGER, PARAMETER :: NTYPE = 25\n#endif\n\n  !Number of coefficients for polynomial fits\n  INTEGER, PARAMETER :: NPOLY = 20\n\n  ! Number of FAST-J aerosol size bins (rvm, bmy, 11/15/01)\n  INTEGER, PARAMETER :: NDUST = 7\n\n  ! Number of aerosols undergoing hygroscopic growth\n  INTEGER, PARAMETER :: NRHAER = 5\n\n  ! Number of stratospheric aerosols (SDE 04/17/13)\n  INTEGER, PARAMETER :: NSTRATAER = 2\n\n  ! Number of other aerosol categories, include stratospheric aerosols\n  INTEGER, PARAMETER :: NAER = NRHAER + NSTRATAER\n\n  ! NRH -- number of relative humidity bins (rvm, bmy, 2/27/02)\n  INTEGER,  PARAMETER :: NRH = 5\n\n  ! Number of dust size bins for transport (tdf, bmy, 3/31/04)\n#if defined(TOMAS)\n#if defined(TOMAS40)\n  INTEGER, PARAMETER :: NDSTBIN = 40\n#elif defined(TOMAS15)\n  INTEGER, PARAMETER :: NDSTBIN = 15\n#elif defined(TOMAS12)\n  INTEGER, PARAMETER :: NDSTBIN = 12\n#else\n  INTEGER, PARAMETER :: NDSTBIN = 30\n#endif\n#else\n  INTEGER, PARAMETER :: NDSTBIN = 7 ! (Extend to 7 dust bins, D. Zhang, 5 Mar 2025)\n#endif\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!EOC\nEND MODULE CMN_SIZE_MOD\n"
  },
  {
    "path": "Headers/CMakeLists.txt",
    "content": "# Headers/CMakeLists.txt\n\n#----------------------------------------------------------------------------\n# Define libHeaders.a\n#----------------------------------------------------------------------------\nadd_library(Headers\n  STATIC EXCLUDE_FROM_ALL\n  aermass_container_mod.F90\n  charpak_mod.F90\n  CMN_FJX_MOD.F90\n  CMN_SIZE_mod.F90\n  diaglist_mod.F90\n  dictionary_m.F90\n  taggeddiaglist_mod.F90\n  errcode_mod.F90\n  input_opt_mod.F90\n  inquireMod.F90\n  phot_container_mod.F90\n  physconstants.F90\n  precision_mod.F90\n  qfyaml_mod.F90\n  registry_mod.F90\n  registry_params_mod.F90\n  roundoff_mod.F90\n  species_database_mod.F90\n  species_mod.F90\n  state_chm_mod.F90\n  state_diag_mod.F90\n  state_grid_mod.F90\n  state_met_mod.F90\n)\n\n# Define dependencies for libHeaders.a\ntarget_link_libraries(Headers PUBLIC\n  KPP_FirstPass\n  CloudJ_Core\n)\n"
  },
  {
    "path": "Headers/aermass_container_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: aermass_container_mod.F90\n!\n! !DESCRIPTION: Module AERMASS\\_CONTAINER\\_MOD contains the derived type used\n!  to store aerosol data used for computing optical depths and diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE AerMass_Container_Mod\n!\n! USES:\n!\n  USE ErrCode_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Init_AerMass_Container\n  PUBLIC :: Cleanup_AerMass_Container\n!\n! !PUBLIC DATA MEMBERS:\n!\n  !=========================================================================\n  ! Derived type for aerosol data container\n  !=========================================================================\n  TYPE, PUBLIC :: AerMassContainer\n\n     ! Arrays\n     !========================================================================\n     ! OCFPOA      : OM/OC for POA                      [unitless] - used in carbon_mod\n     ! OCFOPOA     : OM/OC for OPOA, OCPI, OCPO         [unitless] - used in carbon_mod\n     ! BCPI        : Hydrophilic black carbon aerosol   [kg/m3]\n     ! BCPO        : Hydrophobic black carbon aerosol   [kg/m3]\n     ! OCPI        : Hydrophilic organic carbon aerosol [kg/m3]\n     ! OCPO        : Hydrophobic organic carbon aerosol [kg/m3]\n     ! OCPISOA     : Hydrophilic OC + SOA aerosol       [kg/m3]\n     ! SALA        : Accumulation mode seasalt aerosol  [kg/m3]\n     ! ACL         : Accumulation mode Cl aerosol       [kg/m3]\n     ! SALC        : Coarse mode seasalt aerosol        [kg/m3]\n     ! SO4_NH4_NIT : Lumped SO4-NH4-NIT aerosol         [kg/m3]\n     ! SO4         : Sulfate aerosol                    [kg/m3]\n     ! HMS         : Hydroxymethane sulfonate aerosol   [kg/m3]\n     ! NH4         : Ammonium aerosol                   [kg/m3]\n     ! NIT         : Inorganic nitrate aerosol          [kg/m3]\n     ! SLA         : Stratospheric liquid aerosol       [kg/m3]\n     ! SPA         : Stratospheric particulate aerosol  [kg/m3]\n     ! TSOA        : Terpene SOA                        [kg/m3]\n     ! ASOA        : Aromatic + IVOC SOA                [kg/m3]\n     ! OPOA        : Aerosol product of SVOC oxidation  [kg/m3]\n     ! SOAGX       : SOA product of GLYX                [kg/m3]\n     ! SOAIE       : SOA product of IEPOX & HMML        [kg/m3]\n     ! PM25        : Particulate matter < 2.5 um        [kg/m3]\n     ! PM10        : Particulate matter < 10 um        [kg/m3]\n     ! PDER        : Parameterized effective Radius for SNA and OM [nm] - used for AOD calcualtion (H. Zhu)\n     ! ISOAAQ      : Isoprene SOA (aqueous formation)   [kg/m3]\n     ! SOAS        : Simple SOA                         [kg/m3]\n     ! FRAC_SNA    :\n     ! DAERSL      : Mass of hydrophobic aerosol (Mian Chin)\n     ! WAERSL      : Mass of hydrophilic aerosol (Mian Chin)\n     !========================================================================\n     REAL(fp), POINTER :: OCFPOA     (:,:)\n     REAL(fp), POINTER :: OCFOPOA    (:,:)\n     REAL(fp), POINTER :: BCPI       (:,:,:)\n     REAL(fp), POINTER :: BCPO       (:,:,:)\n     REAL(fp), POINTER :: OCPI       (:,:,:)\n     REAL(fp), POINTER :: OCPO       (:,:,:)\n     REAL(fp), POINTER :: OCPISOA    (:,:,:)\n     REAL(fp), POINTER :: SALA       (:,:,:)\n     REAL(fp), POINTER :: ACL        (:,:,:)\n     REAL(fp), POINTER :: SALC       (:,:,:)\n     REAL(fp), POINTER :: SO4_NH4_NIT(:,:,:)\n     REAL(fp), POINTER :: SO4        (:,:,:)\n     REAL(fp), POINTER :: HMS        (:,:,:)\n     REAL(fp), POINTER :: NH4        (:,:,:)\n     REAL(fp), POINTER :: NIT        (:,:,:)\n     REAL(fp), POINTER :: SLA        (:,:,:)\n     REAL(fp), POINTER :: SPA        (:,:,:)\n     REAL(fp), POINTER :: TSOA       (:,:,:)\n     REAL(fp), POINTER :: ASOA       (:,:,:)\n     REAL(fp), POINTER :: OPOA       (:,:,:)\n     REAL(fp), POINTER :: SOAGX      (:,:,:)\n     REAL(fp), POINTER :: PM25       (:,:,:)\n     REAL(fp), POINTER :: PM10       (:,:,:)\n     REAL(fp), POINTER :: PDER       (:,:,:) !H. Zhu\n     REAL(fp), POINTER :: SNAOM         (:,:,:) !H. Zhu\n     REAL(fp), POINTER :: R_OMSNA       (:,:,:) !H. Zhu\n     REAL(fp), POINTER :: ISOAAQ     (:,:,:)\n     REAL(fp), POINTER :: SOAS       (:,:,:)\n     REAL(fp), POINTER :: FRAC_SNA   (:,:,:,:)\n     REAL(fp), POINTER :: DAERSL     (:,:,:,:)\n     REAL(fp), POINTER :: WAERSL     (:,:,:,:)\n\n  END TYPE AerMassContainer\n!\n! !REMARKS:\n! \n! !REVISION HISTORY:\n!  28 Mar 2023 - E. Lundgren- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_AerMass_Container\n!\n! !DESCRIPTION: Subroutine INIT\\_AER\\_Container allocates and initializes\n! the Aer container object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_AerMass_Container( Input_Opt, State_Grid, Aer, RC )\n!\n! !USES:\n!\n    USE CMN_Size_Mod,   ONLY : NAER\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(GrdState),      INTENT(IN)  :: State_Grid ! Grid object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(AerMassContainer),  POINTER :: Aer        ! Aerosol data container\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Mar 2023 - E. Lundgren- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n    INTEGER            :: NX, NY, NZ\n\n    !======================================================================\n    ! Init_AerMass_Container starts here\n    !======================================================================\n\n    ! Initialize local variables\n    RC = GC_SUCCESS\n    thisLoc = ' -> at Init_AerMass_Container (in module Headers/aermass_container_mod.F90)'\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n    NZ = State_Grid%NZ\n\n    ! Exit immediately if this is a dry-run\n    IF ( Input_Opt%DryRun ) RETURN\n\n    !======================================================================\n    ! Initialize arrays\n    !======================================================================\n\n    ! OM/OC for POA\n    ALLOCATE( Aer%OCFPOA( NX, NY ), STAT=RC )\n    CALL GC_CheckVar( 'OCFPOA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array OCFPOA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%OCFPOA = 0.0_fp\n\n    ! OM/OC for OPOA, OCPI, OCPO\n    ALLOCATE( Aer%OCFOPOA( NX, NY ), STAT=RC )\n    CALL GC_CheckVar( 'OCFOPOA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array OCFOPOA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%OCFOPOA = 0.0_fp\n\n    ALLOCATE( Aer%BCPI( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'BCPI', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array BCPI!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%BCPI = 0.0_fp\n\n    ALLOCATE( Aer%BCPO( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'BCPO', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array BCPO!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%BCPO = 0.0_fp\n\n    ALLOCATE( Aer%OCPI( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'OCPI', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array OCPI!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%OCPI = 0.0_fp\n\n    ALLOCATE( Aer%OCPO( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'OCPO', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array OCPO!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%OCPO = 0.0_fp\n\n    ALLOCATE( Aer%OCPISOA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'OCPISOA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array OCPISOA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%OCPISOA = 0.0_fp\n\n    ALLOCATE( Aer%SALA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SALA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SALA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SALA = 0.0_fp\n\n    ALLOCATE( Aer%SALC( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SALC', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SALC!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SALC = 0.0_fp\n\n    ALLOCATE( Aer%ACL( NX, NY, NZ ),  STAT=RC )\n    CALL GC_CheckVar( 'ACL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array ACL!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%ACL = 0.0_fp\n\n    ALLOCATE( Aer%SO4_NH4_NIT( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SO4_NH4_NIT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SO4_NH4_NIT!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SO4_NH4_NIT = 0.0_fp\n\n    ALLOCATE( Aer%SO4( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SO4', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SO4!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SO4 = 0.0_fp\n\n    ! (jmm, 06/30/18)\n    ALLOCATE( Aer%HMS( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'HMS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array HMS!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%HMS = 0.0_fp\n\n    ALLOCATE( Aer%NH4( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'NH4', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array NH4!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%NH4 = 0.0_fp\n\n    ALLOCATE( Aer%NIT( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'NIT', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array NIT!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%NIT = 0.0_fp\n\n    ALLOCATE( Aer%SLA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SLA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SLA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SLA = 0.0_fp\n\n    ALLOCATE( Aer%SPA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SPA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SPA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SPA   = 0.0_fp\n\n    ALLOCATE( Aer%TSOA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'TSOA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array TSOA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%TSOA = 0.0_fp\n\n    ALLOCATE( Aer%ASOA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'ASOA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array ASOA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%ASOA = 0.0_fp\n\n    ALLOCATE( Aer%OPOA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'OPOA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array OPOA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%OPOA = 0.0_fp\n\n    ALLOCATE( Aer%PM25( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'PM25', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array PM25!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%PM25 = 0.0_fp\n\n    !zhaisx\n    ALLOCATE( Aer%PM10( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'PM10', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array PM10!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%PM10 = 0.0_fp\n    ! H. Zhu\n    ALLOCATE( Aer%PDER( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'PDER', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array PDER!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%PDER = 0.0_fp\n    ! H. Zhu\n    ALLOCATE( Aer%SNAOM( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SNAOM', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SNAOM!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SNAOM = 0.0_fp    \n    ! H. Zhu\n    ALLOCATE( Aer%R_OMSNA( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'R_OMSNA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array R_OMSNA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%R_OMSNA = 0.0_fp\n\n\n    ALLOCATE( Aer%SOAGX( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SOAGX', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SOAGX!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SOAGX = 0.0_fp\n\n    ! Mechanistic isoprene SOA (eam, 2014):\n    ALLOCATE( Aer%ISOAAQ( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'ISOAAQ', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array ISOAAQ!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%ISOAAQ = 0.0_fp\n\n    ! Simple SOA\n    ALLOCATE( Aer%SOAS( NX, NY, NZ ), STAT=RC )\n    CALL GC_CheckVar( 'SOAS', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array SOAS!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%SOAS = 0.0_fp\n\n    ALLOCATE( Aer%FRAC_SNA( NX, NY, NZ, 3 ), STAT=RC )\n    CALL GC_CheckVar( 'FRAC_SNA', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array FRAC_SNA!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%FRAC_SNA = 0.0_fp\n\n    ! Mass of hydrophobic aerosol from Mian Chin\n    ALLOCATE( Aer%DAERSL( NX, NY, NZ, 2 ), STAT=RC )\n    CALL GC_CheckVar( 'DAERSL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array DAERSL!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%DAERSL = 0.0_fp\n\n    ! Mass of hydrophilic aerosol from Mian Chin\n    ALLOCATE( Aer%WAERSL( NX, NY, NZ, NAER ), STAT=RC )\n    CALL GC_CheckVar( 'WAERSL', 0, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error allocating array WAERSL!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    Aer%WAERSL = 0.0_fp\n\n  END SUBROUTINE Init_AerMass_Container\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_AerMass_Container\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_AER\\_CONTAINER deallocates all fields\n!  of the aer container object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_AerMass_Container( Aer, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(AerMassContainer), POINTER :: Aer   ! Aer data container\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC    ! Return code\n!\n! !REVISION HISTORY:\n!  28 Mar 2023 - E. Lundgren- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !======================================================================\n    ! Cleanup_AerMass_Container starts here\n    !======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Deallocate arrays and nullify pointer\n    IF ( ASSOCIATED( Aer%OCFPOA ) ) THEN\n       DEALLOCATE( Aer%OCFPOA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%OCFPOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%OCFPOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%OCFOPOA ) ) THEN\n       DEALLOCATE( Aer%OCFOPOA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%OCFOPOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%OCFOPOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%BCPI ) ) THEN\n       DEALLOCATE( Aer%BCPI, STAT=RC )\n       CALL GC_CheckVar( 'Aer%BCPI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%BCPI => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%BCPO ) ) THEN\n       DEALLOCATE( Aer%BCPO, STAT=RC )\n       CALL GC_CheckVar( 'Aer%BCPO', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%BCPO => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%OCPI ) ) THEN\n       DEALLOCATE( Aer%OCPI, STAT=RC )\n       CALL GC_CheckVar( 'Aer%OCPI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%OCPI => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%OCPO ) ) THEN\n       DEALLOCATE( Aer%OCPO, STAT=RC )\n       CALL GC_CheckVar( 'Aer%OCPO', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%OCPO => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%OCPISOA ) ) THEN\n       DEALLOCATE( Aer%OCPISOA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%OCPISOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%OCPISOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SALA ) ) THEN\n       DEALLOCATE( Aer%SALA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SALA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SALA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%ACL ) ) THEN\n       DEALLOCATE( Aer%ACL, STAT=RC )\n       CALL GC_CheckVar( 'Aer%ACL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%ACL => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SALC ) ) THEN\n       DEALLOCATE( Aer%SALC, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SALC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SALC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SO4_NH4_NIT ) ) THEN\n       DEALLOCATE( Aer%SO4_NH4_NIT, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SO4_NH4_NIT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SO4_NH4_NIT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SO4 ) ) THEN\n       DEALLOCATE( Aer%SO4, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SO4', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SO4 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%HMS ) ) THEN\n       DEALLOCATE( Aer%HMS, STAT=RC )\n       CALL GC_CheckVar( 'Aer%HMS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%HMS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%NH4 ) ) THEN\n       DEALLOCATE( Aer%NH4, STAT=RC )\n       CALL GC_CheckVar( 'Aer%NH4', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%NH4 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%NIT ) ) THEN\n       DEALLOCATE( Aer%NIT, STAT=RC )\n       CALL GC_CheckVar( 'Aer%NIT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%NIT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SLA ) ) THEN\n       DEALLOCATE( Aer%SLA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SLA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SLA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SPA ) ) THEN\n       DEALLOCATE( Aer%SPA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SPA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SPA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%TSOA ) ) THEN\n       DEALLOCATE( Aer%TSOA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%TSOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%TSOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%ASOA ) ) THEN\n       DEALLOCATE( Aer%ASOA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%ASOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%ASOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%OPOA ) ) THEN\n       DEALLOCATE( Aer%OPOA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%OPOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%OPOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SOAGX ) ) THEN\n       DEALLOCATE( Aer%SOAGX, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SOAGX', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SOAGX => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%PM25 ) ) THEN\n       DEALLOCATE( Aer%PM25, STAT=RC )\n       CALL GC_CheckVar( 'Aer%PM25', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%PM25 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%PM10 ) ) THEN\n       DEALLOCATE( Aer%PM10, STAT=RC )\n       CALL GC_CheckVar( 'Aer%PM10', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%PM10 => NULL()\n    ENDIF\n    ! H. Zhu\n    IF ( ASSOCIATED( Aer%PDER ) ) THEN\n       DEALLOCATE( Aer%PDER, STAT=RC )\n       CALL GC_CheckVar( 'Aer%PDER', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%PDER => NULL()\n    ENDIF\n    ! H. Zhu\n    IF ( ASSOCIATED( Aer%SNAOM ) ) THEN\n       DEALLOCATE( Aer%SNAOM, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SNAOM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SNAOM => NULL()\n    ENDIF    \n    ! H. Zhu\n    IF ( ASSOCIATED( Aer%R_OMSNA ) ) THEN\n       DEALLOCATE( Aer%R_OMSNA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%R_OMSNA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%R_OMSNA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%ISOAAQ ) ) THEN\n       DEALLOCATE( Aer%ISOAAQ, STAT=RC )\n       CALL GC_CheckVar( 'Aer%ISOAAQ', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%ISOAAQ => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%SOAS ) ) THEN\n       DEALLOCATE( Aer%SOAS, STAT=RC )\n       CALL GC_CheckVar( 'Aer%SOAS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%SOAS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%FRAC_SNA ) ) THEN\n       DEALLOCATE( Aer%FRAC_SNA, STAT=RC )\n       CALL GC_CheckVar( 'Aer%FRAC_SNA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%FRAC_SNA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%DAERSL ) ) THEN\n       DEALLOCATE( Aer%DAERSL, STAT=RC )\n       CALL GC_CheckVar( 'Aer%DAERSL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%DAERSL => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Aer%WAERSL ) ) THEN\n       DEALLOCATE( Aer%WAERSL, STAT=RC )\n       CALL GC_CheckVar( 'Aer%WAERSL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Aer%WAERSL => NULL()\n    ENDIF\n\n  END SUBROUTINE Cleanup_AerMass_Container\n!EOC\n\nEND MODULE AerMass_Container_Mod\n"
  },
  {
    "path": "Headers/charpak_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: charpak_mod.F90\n!\n! !DESCRIPTION: Module CHARPAK\\_MOD contains routines from the CHARPAK\n!  string and character manipulation package used by GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Charpak_Mod\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CleanText\n  PUBLIC  :: CntMat\n  PUBLIC  :: CopyTxt\n  PUBLIC  :: CStrip\n  PUBLIC  :: IsDigit\n  PUBLIC  :: ReadOneLine\n  PUBLIC  :: StrRepl\n  PUBLIC  :: StrSplit\n  PUBLIC  :: StrSqueeze\n  PUBLIC  :: To_UpperCase\n  PUBLIC  :: TranLc\n  PUBLIC  :: TranUc\n  PUBLIC  :: Txtext\n  PUBLIC  :: WordWrapPrint\n  PUBLIC  :: Unique\n  PUBLIC  :: charArr2Str\n  PUBLIC  :: str2CharArr\n!\n! !REMARKS:\n!  CHARPAK routines by Robert D. Stewart, 1992.  Subsequent modifications\n!  made for GEOS-CHEM by Bob Yantosca (1998, 2002, 2004).\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS\n!\n  ! Maximum string length\n  INTEGER, PARAMETER, PUBLIC :: MAXSTRLEN = 500\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CntMat\n!\n! !DESCRIPTION: Counts the number of characters in str1 that match\n!  a character in str2.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CntMat( Str1, Str2, Imat, Locations )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) ::  Str1             ! Text to scan\n    CHARACTER(LEN=*), INTENT(IN) ::  Str2             ! Character to match\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: imat             ! Number of matches\n    INTEGER,          OPTIONAL    :: Locations(255)   ! Positions of matches\n!\n! !REVISION HISTORY:\n!     DATE:   JAN. 6, 1995\n!     AUTHOR: R.D. STEWART\n!     COMMENTS: Revised slightly (2-5-1996) so that trailing\n!               blanks in str1 are ignored.  Revised again\n!               on 3-6-1996.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: L1, L2, i, j\n    LOGICAL :: again\n\n    ! Arrays\n    INTEGER :: TmpLocations(255)\n\n    ! Initialize\n    TmpLocations = 0\n    L1           = MAX(1,LEN_TRIM(str1))\n    L2           = LEN(str2)\n    imat         = 0\n\n    DO i=1,L1\n       again = .true.\n       j = 1\n       DO WHILE (again)\n          IF (str2(j:j).EQ.str1(i:i)) THEN\n             imat               = imat+1\n             TmpLocations(imat) = i\n             again              = .false.\n          ELSEIF (j.LT.L2) THEN\n             j=j+1\n          ELSE\n             again = .false.\n          ENDIF\n       ENDDO\n    ENDDO\n\n    ! Return positions where matches occured (OPTIONAL)\n    IF ( PRESENT( Locations ) ) Locations = TmpLocations\n\n  END SUBROUTINE CntMat\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CopyTxt\n!\n! !DESCRIPTION: Write all of the characters in str1 into variable\n!               str2 beginning at column, col.  If the length of str1\n!               + col is longer than the number of characters str2\n!               can store, some characters will not be transfered to\n!               str2.  Any characters already existing in str2 will\n!               will be overwritten.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CopyTxt( col, str1, str2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)    :: col\n    CHARACTER(LEN=*), INTENT(IN)    :: str1\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: str2\n!\n! !REVISION HISTORY:\n!     DATE:   DEC. 24, 1993\n!     AUTHOR: R.D. STEWART\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ilt1,i1,i,j,ic\n\n    i1 = LEN(str2)\n    IF (i1.GT.0) THEN\n       ilt1 = LEN(str1)\n       IF (ilt1.GT.0) THEN\n          ic = MAX0(col,1)\n          i = 1\n          j = ic\n          DO WHILE ((i.LE.ilt1).and.(j.LE.i1))\n             str2(j:j) = str1(i:i)\n             i = i + 1\n             j = ic + (i-1)\n          ENDDO\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE CopyTxt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cstrip\n!\n! !DESCRIPTION: Strip blanks and null characters for the variable TEXT.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CStrip( text, KeepSpaces )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          OPTIONAL      :: KeepSpaces ! If =T, then keep spaces\n                                                  !  but skip all other\n                                                  !  non-printing chars\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: TEXT       ! Text to be modified\n!\n! !REMARKS:\n!  The original \"text\" is destroyed upon exit.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: May 19, 1992\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER          :: ilen, iasc, icnt, i, Start\n    CHARACTER(LEN=1) :: ch\n\n    ! Default: Skip space characters\n    Start = 32\n\n    ! If KEEPSPACES=T then skip all non-printing characters,\n    ! but keep space characters. (bmy, 1/30/18)\n    IF ( PRESENT( KeepSpaces ) ) THEN\n       IF ( KeepSpaces ) Start = 31\n    ENDIF\n\n    ilen = LEN(text)\n    IF (ilen.GT.1) THEN\n       icnt = 1\n       DO i=1,ilen\n          iasc = ICHAR(text(i:i))\n\n          ! Keep characters between these limits\n          IF ( ( iasc > Start ).AND. (iasc < 255 ) ) THEN\n             ch = text(i:i)\n             text(icnt:icnt) = ch\n             icnt = icnt + 1\n          ENDIF\n       ENDDO\n       ! Fill remainder of text with blanks\n       DO i=icnt,ilen\n          text(i:i) = ' '\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE CStrip\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: IsDigit\n!\n! !DESCRIPTION: Returned as true if ch is a numeric character (i.e., one of\n!  the numbers from 0 to 9).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION IsDigit( ch ) RESULT( lnum )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=1), INTENT(IN) :: ch\n!\n! !RETURN VALUE:\n!\n    LOGICAL                      :: lnum\n!\n! !REMARKS:\n!  NOTE: Changed name from ISNUM to ISDIGIT (bmy, 7/15/04)\n!\n! !REVISION HISTORY:\n!     DATE:   NOV. 11, 1993\n!     AUTHOR: R.D. STEWART\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER iasc\n\n    iasc = ICHAR(ch)\n    lnum = .FALSE.\n    IF ((iasc.GE.48).AND.(iasc.LE.57)) THEN\n       lnum = .TRUE.\n    ENDIF\n\n  END FUNCTION IsDigit\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: StrRepl\n!\n! !DESCRIPTION: Subroutine StrRepl replaces all instances of PATTERN within\n!  a string STR with replacement text REPLTXT.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE StrRepl( Str, Pattern, ReplTxt )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: Pattern   ! Pattern to search for\n    CHARACTER(LEN=*), INTENT(IN)    :: ReplTxt   ! Text to replace\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: Str       ! String to be manipulated\n!\n! !REMARKS:\n!  PATTERN and REPLTXT can now have a different number of characters.\n!\n! !REVISION HISTORY:\n!  25 Jun 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Local variables\n    INTEGER :: I1, I2\n\n    !=================================================================\n    ! StrRepl begins here!\n    !=================================================================\n    DO\n\n       ! I1 is the first character that matches the search pattern;\n       ! it must be 1 or larger.  Otherwise exit the routine.\n       I1 = INDEX( Str, Pattern )\n       IF ( I1 < 1 ) RETURN\n\n       ! Replace the text.  I2 is the starting position of the\n       ! string following the point of text replacement.\n       I2 = I1 + LEN( Pattern )\n       Str = Str(1:I1-1) // ReplTxt // Str(I2:)\n\n    ENDDO\n\n  END SUBROUTINE StrRepl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: StrSplit\n!\n! !DESCRIPTION: Subroutine STRSPLIT returns substrings in a string, separated\n!  by a separator character (similar to IDL's StrSplit function).  This is\n!  mainly a convenience wrapper for CHARPAK routine TxtExt.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE StrSplit( Str, Sep, Result, N_SubStrs )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: STR           ! String to be searched\n    CHARACTER(LEN=1), INTENT(IN)  :: SEP           ! Separator character\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT) :: Result(255)   ! Returned substrings\n    INTEGER,          OPTIONAL    :: N_SubStrs     ! # of substrings\n!\n! !REVISION HISTORY:\n!  11 Jul 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: I, IFLAG, COL\n    CHARACTER(LEN=2047) :: WORD\n\n    !=======================================================================\n    ! STRSPLIT begins here!\n    !=======================================================================\n\n    ! Initialize\n    I         = 0\n    COL       = 1\n    IFLAG     = 0\n    RESULT(:) = ''\n\n    ! Loop until all matches found, or end of string\n    DO WHILE ( IFLAG == 0 )\n\n       ! Look for strings beteeen separator string\n       CALL TXTEXT ( SEP, TRIM( STR ), COL, WORD, IFLAG )\n\n       ! Store substrings in RESULT array\n       I         = I + 1\n       RESULT(I) = TRIM( WORD )\n\n    ENDDO\n\n    ! Optional argument: return # of substrings found\n    IF ( PRESENT( N_SUBSTRS ) ) N_SUBSTRS = I\n\n  END SUBROUTINE StrSplit\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: StrSqueeze\n!\n! !DESCRIPTION: Subroutine STRSQUEEZE strips white space from both ends of a\n!  string.  White space in the middle of the string (i.e. between characters)\n!  will be preserved as-is.  Somewhat similar (though not exactly) to IDL's\n!  STRCOMPRESS function.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE StrSqueeze( Str )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: Str   ! String to be squeezed\n!\n! !REVISION HISTORY:\n!  11 Jul 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! STRSQUEEZE begins here!\n    !=================================================================\n    Str = ADJUSTR( TRIM( Str ) )\n    Str = ADJUSTL( TRIM( Str ) )\n\n  END SUBROUTINE StrSqueeze\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TranLc\n!\n! !DESCRIPTION: Tranlate a character variable to all lowercase letters.\n!               Non-alphabetic characters are not affected.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TranLc( text )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*) :: text\n!\n! !REMARKS:\n!  The original \"text\" is destroyed.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: May 19, 1992\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: iasc,i,ilen\n\n    ilen = LEN(text)\n    DO I=1,ilen\n       iasc = ICHAR(text(i:i))\n       IF ((iasc.GT.64).AND.(iasc.LT.91)) THEN\n          text(i:i) = CHAR(iasc+32)\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE TRANLC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TranUc\n!\n! !DESCRIPTION: Tranlate a character variable to all upper case letters.\n!               Non-alphabetic characters are not affected.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TranUc( text )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*) :: text\n!\n! !REMARKS:\n!  The original \"text\" is destroyed.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: May 19, 1992\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: iasc,i,ilen\n\n    ilen = LEN(text)\n    DO i=1,ilen\n       iasc = ICHAR(text(i:i))\n       IF ((iasc.GT.96).AND.(iasc.LT.123)) THEN\n          text(i:i) = CHAR(iasc-32)\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE TRANUC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TxtExt\n!\n! !DESCRIPTION: TxtExt extracts a sequence of characters from\n!               text and transfers them to word.  The extraction\n!               procedure uses a set of character \"delimiters\"\n!               to denote the desired sequence of characters.\n!               For example if ch=' ', the first character sequence\n!               bracketed by blank spaces will be returned in word.\n!               The extraction procedure begins in column, col,\n!               of TEXT.  If text(col:col) = ch (any character in\n!               the character string), the text is returned beginning\n!               with col+1 in text (i.e., the first match with ch\n!               is ignored).\n!\\\\\n!\\\\\n!               After completing the extraction, col is incremented to\n!               the location of the first character following the\n!               end of the extracted text.\n!\\\\\n!\\\\\n!               A status flag is also returned with the following\n!               meaning(s)\n!\\\\\n!\\\\\n!               IF iflg = -1, found a text block, but no more characters\n!                             are available in TEXT\n!                  iflg = 0,  task completed sucessfully (normal term)\n!                  iflg = 1,  ran out of text before finding a block of\n!                             text.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TxtExt(ch,text,col,word,iflg)\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: ch,text\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: col\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT)   :: word\n    INTEGER                         :: iflg\n!\n! !REMARKS:\n!  TxtExt is short for Text Extraction.  This routine provides a set of\n!  powerful line-by-line text search and extraction capabilities in\n!  standard FORTRAN.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: Jan. 1st, 1995\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: Tmax,T1,T2,imat\n    LOGICAL :: again,prev\n\n    ! Length of text\n    Tmax = LEN(text)\n\n    ! Fill Word with blanks\n    WORD = REPEAT( ' ', LEN( WORD ) )\n\n    IF (col.GT.Tmax) THEN\n       ! Text does not contain any characters past Tmax.\n       ! Reset col to one and return flag = {error condition}\n       iflg = 1\n       col = 1\n    ELSEIF (col.EQ.Tmax) THEN\n       ! End of TEXT reached\n       CALL CntMat(ch,text(Tmax:Tmax),imat)\n       IF (imat.EQ.0) THEN\n          ! Copy character into Word and set col=1\n          CALL CopyTxt(1,Text(Tmax:Tmax),Word)\n          col = 1\n          iflg = -1\n       ELSE\n          ! Same error condition as if col.GT.Tmax\n          iflg = 1\n       ENDIF\n    ELSE\n       ! Make sure column is not less than 1\n       IF (col.LT.1) col=1\n       CALL CntMat(ch,text(col:col),imat)\n       IF (imat.GT.0) THEN\n          prev=.true.\n       ELSE\n          prev=.false.\n       ENDIF\n       T1=col\n       T2 = T1\n\n       again = .true.\n       DO WHILE (again)\n          ! Check for a match with a character in ch\n          CALL CntMat(ch,text(T2:T2),imat)\n          IF (imat.GT.0) THEN\n             ! Current character in TEXT matches one (or more) of the\n             ! characters in ch.\n             IF (prev) THEN\n                IF (T2.LT.Tmax) THEN\n                   ! Keep searching for a block of text\n                   T2=T2+1\n                   T1=T2\n                ELSE\n                   ! Did not find any text blocks before running\n                   ! out of characters in TEXT.\n                   again=.false.\n                   iflg=1\n                ENDIF\n             ELSE\n                 ! Previous character did not match ch, so terminate.\n                 ! NOTE: This is \"NORMAL\" termination of the loop\n                again=.false.\n                T2=T2-1\n                iflg = 0\n             ENDIF\n          ELSEIF (T2.LT.Tmax) THEN\n             ! Add a letter to the current block of text\n             prev = .false.\n             T2=T2+1\n          ELSE\n             ! Reached the end of the characters in TEXT before reaching\n             ! another delimiting character.  A text block was identified\n             ! however.\n             again=.false.\n             iflg=-1\n          ENDIF\n       ENDDO\n\n       IF (iflg.EQ.0) THEN\n          ! Copy characters into WORD and set col for return\n          CALL CopyTxt(1,Text(T1:T2),Word)\n          col = T2+1\n       ELSE\n          ! Copy characters into WORD and set col for return\n          CALL CopyTxt(1,Text(T1:T2),Word)\n          col = 1\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE TxtExt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: To_Uppercase\n!\n! !DESCRIPTION: Converts a string to uppercase, so that we can reliably\n!  do string matching.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION To_UpperCase( Text ) RESULT( UpCaseText )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: Text         ! Input test\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=255)           :: UpCaseText   ! Output text, uppercase\n!\n! !REMARKS:\n!  Code originally from routine TRANUC (Author: R. D. Stewart, 19 May 1992)\n!\n! !REVISION HISTORY:\n!  26 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: C, Ascii\n\n    !=======================================================================\n    ! Convert to uppercase\n    !=======================================================================\n\n    ! Initialize\n    UpCaseText = Text\n\n    ! Loop over all characters\n    DO C = 1, LEN_TRIM( UpCaseText )\n\n       ! Get the ASCII code for each character\n       Ascii = ICHAR( UpCaseText(C:C) )\n\n       ! If lowercase, convert to uppercase\n       IF ( Ascii > 96 .and. Ascii < 123 ) THEN\n          UpCaseText(C:C) = CHAR( Ascii - 32 )\n       ENDIF\n    ENDDO\n\n  END FUNCTION To_UpperCase\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ReadOneLine\n!\n! !DESCRIPTION: Subroutine READ\\_ONE\\_LINE reads a line from the input file.\n!  If the global variable VERBOSE is set, the line will be printed to stdout.\n!  READ\\_ONE\\_LINE can trap an unexpected EOF if LOCATION is passed.\n!  Otherwise, it will pass a logical flag back to the calling routine,\n!  where the error trapping will be done.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ReadOneLine( fId, EndOfFile, IoStatus, Squeeze ) RESULT( Line )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)      :: fId        ! File unit number\n    LOGICAL, OPTIONAL        :: Squeeze    ! Call Strsqueeze?\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL, INTENT(OUT)     :: EndOfFile  ! Denotes EOF condition\n    INTEGER, INTENT(OUT)     :: IoStatus   ! I/O status code\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=MAXSTRLEN) :: Line       ! Single line from the input file\n!\n! !REMARKS:\n!  Mostly used by routines in the History/ folder.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! Initialize\n    !=================================================================\n    EndOfFile = .FALSE.\n    IoStatus  = 0\n    Line      = ''\n\n    !=================================================================\n    ! Read data from the file\n    !=================================================================\n\n    ! Read a line from the file\n    READ( fId, '(a)', IOSTAT=IoStatus ) Line\n\n    ! IO Status < 0: EOF condition\n    IF ( IoStatus < 0 ) THEN\n       EndOfFile = .TRUE.\n       RETURN\n    ENDIF\n\n    ! If desired, call StrSqueeze to strip leading and trailing blanks\n    IF ( PRESENT( Squeeze ) ) THEN\n       IF ( Squeeze ) THEN\n          CALL StrSqueeze( Line )\n       ENDIF\n    ENDIF\n\n  END FUNCTION ReadOneLine\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CleanText\n!\n! !DESCRIPTION: Strips commas, apostrophes, spaces, and tabs from a string.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION CleanText( Str ) RESULT( CleanStr )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: Str        ! Original string\n!\n! !RETURN VALUE\n!\n    CHARACTER(LEN=255)           :: CleanStr   ! Cleaned-up string\n!\n! !REMARKS:\n!  Mostly used by routines in the History/ folder.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    CleanStr = Str\n\n    ! Strip out non-printing characters (e.g. tabs)\n    CALL CStrip    ( CleanStr           )\n\n    ! Remove commas and quotes\n    CALL StrRepl   ( CleanStr, \",\", \" \" )\n    CALL StrRepl   ( CleanStr, \"'\", \" \" )\n\n    ! Remove leading and trailing spaces\n    CALL StrSqueeze( CleanStr           )\n\n  END FUNCTION CleanText\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: WordWrapPrint\n!\n! !DESCRIPTION: Prints a text string wrapped to a specified line width.\n!  Useful for displaying error and warning messages.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WordWrapPrint( Text, LineWidth, Delimiter )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: Text        ! Text to print\n    INTEGER,          INTENT(IN) :: LineWidth   ! Width (characters) of lines\n    CHARACTER(LEN=1), OPTIONAL   :: Delimiter   ! Delimiter between words\n!\n! !REMARKS:\n!  The default DELIMITER is the space (\" \") character.\n!\n! !REVISION HISTORY:\n!  20 Dec 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER          :: C, S, B, Matches, Length\n\n    ! Arrays\n    INTEGER          :: BreakPts(100)\n    INTEGER          :: SpaceLoc(500)\n\n    ! Strings\n    CHARACTER(LEN=1) :: Delim\n\n    !=======================================================================\n    ! WordWrapPrint begins here!\n    !=======================================================================\n\n    ! SpaceLoc is the array of where delimiters (usually the \" \"\n    ! character) occur in the text, and S is its index.\n    S           = 1\n    SpaceLoc    = 0\n\n    ! BreakPts is the array of where line breaks occur\n    ! and B is its index.\n    BreakPts    = 0\n    B           = 1\n    BreakPts(B) = 1\n\n    ! Delimiter for separating words (will be the space character by default)\n    IF ( PRESENT( Delimiter ) ) THEN\n       Delim = Delimiter\n    ELSE\n       Delim = ' '\n    ENDIF\n\n    ! Find the Location of spaces in the text\n    CALL CntMat( Text, ' ', Matches, SpaceLoc )\n\n    ! Loop through the number of matches\n    DO\n\n       ! Move to the next delimiter location\n       S = S + 1\n\n       ! Compute the length of the line\n       Length = SpaceLoc(S) - BreakPts(B)\n\n       ! If the length of this segment is greater than the requested\n       ! line length, store the position of this line break\n       IF ( Length > LineWidth ) THEN\n          B           = B             + 1\n          BreakPts(B) = SpaceLoc(S-1) + 1\n       ENDIF\n\n       ! If we have exceeded the number of delimiters in the text, then set\n       ! the last breakpoint at the end of the text and exit the loop.\n       IF ( S > Matches ) THEN\n          B           = B + 1\n          BreakPts(B) = LEN_TRIM( Text ) + 1\n          EXIT\n       ENDIF\n\n    ENDDO\n\n    ! Print each line\n    DO C = 1, B-1\n       WRITE( 6, '(a)' ) Text( BreakPts(C):BreakPts(C+1)-1 )\n    ENDDO\n\n  END SUBROUTINE WordWrapPrint\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Unique\n!\n! !DESCRIPTION: Returns only the unique values in a vector of strings.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Unique( vec, vec_unique )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),              INTENT(IN)    :: vec(:)\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), ALLOCATABLE, INTENT(INOUT) :: vec_unique(:)\n!\n! !AUTHOR:\n!  Jacob Williams (jacob@degenerateconic.com)\n!  Source code at: http://degenerateconic.com/unique/\n!  Modified for string handling by Bob Yantosca\n!\n! !REVISION HISTORY:\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: i,num\n    logical,dimension(size(vec)) :: mask\n\n    mask = .false.\n\n    !=======================================================================\n    ! Unique begins here!\n    !=======================================================================\n\n    ! Loop over all elements\n    do i = 1, SIZE( vec )\n\n       ! Assume that all valid array elements are located\n       ! contiguously  Exit upon the encountering the\n       ! first null character. (bmy, 7/23/19)\n       IF ( LEN_TRIM( vec(I) ) == 0 ) EXIT\n\n       !count the number of occurrences of this element:\n       num = count( vec(i)==vec )\n\n       if (num==1) then\n          !there is only one, flag it:\n          mask(i) = .true.\n       else\n          !flag this value only if it hasn't already been flagged:\n          if (.not. any(vec(i)==vec .and. mask) ) mask(i) = .true.\n       end if\n\n    end do\n\n    !return only flagged elements:\n    IF ( ALLOCATED(  vec_unique ) ) DEALLOCATE( vec_unique )\n    ALLOCATE( vec_unique(count(mask)) )\n    vec_unique = PACK( vec, mask )\n\n    !if you also need it sorted, then do so.\n    ! For example, with slatec routine:\n    !call ISORT (vec_unique, [0], size(vec_unique), 1)\n\n  END SUBROUTINE Unique\n!\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: charArr2Str\n!\n! !DESCRIPTION: Converts a character array of dimension N to a string of\n!  length N.  Useful for writing character strings to netCDF files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION charArr2Str( charArray, N ) RESULT( string )\n!\n! !INPUT PARAMETERS: \n!\n    INTEGER,          INTENT(IN) :: N              ! Dimension of charArray\n    CHARACTER(LEN=1), INTENT(IN) :: charArray(N)   ! Character array\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=N)             :: string         ! Output string\n!\n! !REVISION HISTORY:\n!  05 Mar 2024 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: C\n    \n    !=======================================================================\n    ! charArray2str begins here!\n    !=======================================================================\n\n    ! Initialize the string\n    string = \"\"\n\n\n    ! Copy as much of the charArray to the string, until we hit the \n    ! null byte (ASCII character 0), which denotes the end of characters\n    DO C = 1, N\n       IF ( chararray(C) == ACHAR(0) ) EXIT\n       string(C:C) = chararray(C)\n    ENDDO\n\n  END FUNCTION charArr2Str\n!EOC\n!\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: str2CharArr\n!\n! !DESCRIPTION: Converts a string of length N to a character array of \n!  dimension N.  Useful for writing character strings to netCDF files.\n\n! !DESCRIPTION: \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION str2CharArr( string, N ) RESULT( charArray )\n!\n! !INPUT PARAMETERS: \n!\n    INTEGER,          INTENT(IN) :: N              ! Length of string\n    CHARACTER(LEN=N), INTENT(IN) :: string         ! Input string\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=1)             :: charArray(N)   ! Output character array\n!\n! !REVISION HISTORY:\n!  05 Mar 2024 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n   INTEGER :: C,  L\n\n   ! Length of the string without trailing whitespace\n   L = LEN_TRIM( string )\n   \n   ! Copy the non-whitespace characters to chararray\n   DO C = 1, L\n      chararray(C) = string(C:C)\n   ENDDO\n   \n   ! Pad the remaining elements with the null byte\n   charArray(L+1:) = ACHAR(0)\n\n END FUNCTION str2CharArr\n!EOC\nEND MODULE CharPak_Mod\n"
  },
  {
    "path": "Headers/diaglist_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: diaglist_mod.F90\n!\n! !DESCRIPTION: Module diaglist\\_mod.F90 contains the derived types\n!  and subroutines used for reading and storing user-configured diagnostic\n!  information from the history configuration file, specifically names\n!  and information derived from the names. The diagnostics list is\n!  used to allocate diagnostics stored in container State\\_Diag and to\n!  declare exports in GCHP. It does not store collection information. A\n!  module-level collection list containing names all collections that\n!  are declared in HISTORY.rc with names not commented out is also in\n!  this module. This is used to prevent adding diagnostics to the\n!  diagnostic list that are in collections not turned on in HISTORY.rc,\n!  thereby preventing their analogous State\\_Diag array initialization\n!  in GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE DiagList_Mod\n!\n! !USES:\n!\n  USE ErrCode_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_DiagList\n  PUBLIC  :: Print_DiagList\n  PUBLIC  :: Check_DiagList\n  PUBLIC  :: Cleanup_DiagList\n  PUBLIC  :: Search_CollList\n!\n! !PRIVATE MEMBER FUNCTIONS\n!\n  PRIVATE :: Init_DiagItem\n  PRIVATE :: InsertBeginning_DiagList\n  PRIVATE :: Search_DiagList\n\n  ! Private collection list in Init_DiagList\n  ! Make public for more widespread use?\n  PRIVATE :: Init_ColItem\n  PRIVATE :: Set_ColItem\n  PRIVATE :: InsertBeginning_ColList\n  PRIVATE :: Print_ColList\n  PRIVATE :: Cleanup_ColList\n!\n! !PUBLIC DATA TYPES:\n!\n  !=========================================================================\n  ! Derived type for Diagnostics List\n  !=========================================================================\n  TYPE, PUBLIC :: DgnList\n     TYPE(DgnItem), POINTER  :: head\n  END TYPE DgnList\n\n  !=========================================================================\n  ! Derived type for Diagnostics Item (unique name in HISTORY.rc)\n  !=========================================================================\n  TYPE, PUBLIC :: DgnItem\n     CHARACTER(LEN=63)      :: name\n     CHARACTER(LEN=63)      :: state\n     CHARACTER(LEN=63)      :: metadataID\n     CHARACTER(LEN=63)      :: registryID\n     LOGICAL                :: isWildcard\n     CHARACTER(LEN=7)       :: wildcard\n     LOGICAL                :: isTagged\n     CHARACTER(LEN=63)      :: tag\n     ! could also add a list of collections this diagnostic is part of\n     TYPE(DgnItem), POINTER :: next\n  END TYPE DgnItem\n\n  !=========================================================================\n  ! Configurable Settings Used for Diagnostic Names at Run-time\n  !=========================================================================\n  CHARACTER(LEN=3),  PUBLIC  :: budgetBotLev_str ! Budget diag level range bottom\n  CHARACTER(LEN=3),  PUBLIC  :: budgetTopLev_str ! Budget diag level range top\n  CHARACTER(LEN=5),  PUBLIC  :: RadWL(3)         ! Wavelengths in radiation menu\n  CHARACTER(LEN=4),  PUBLIC  :: RadOut(17)       ! Names of RRTMG outputs (tags)\n  INTEGER,           PUBLIC  :: nRadOut          ! # of selected RRTMG outputs\n  LOGICAL,           PUBLIC  :: IsFullChem       ! Is it a fullchem simulation?\n  LOGICAL,           PUBLIC  :: IsHg             ! Is it a Hg simulation?\n  LOGICAL,           PUBLIC  :: IsCarbon         ! Is it a carbon sim?\n  CHARACTER(LEN=10), PUBLIC  :: AltAboveSfc      ! Alt for O3, HNO3 diagnostics\n\n  !=========================================================================\n  ! Derived type for Collections List\n  !=========================================================================\n  TYPE, PUBLIC :: ColList\n     TYPE(ColItem), POINTER :: head\n  END TYPE ColList\n\n  !=========================================================================\n  ! Derived type for Collections Item (uncommented in HISTORY.rc)\n  !=========================================================================\n  TYPE, PUBLIC :: ColItem\n     CHARACTER(LEN=63)      :: cname\n     TYPE(ColItem), POINTER :: next\n  END TYPE ColItem\n!\n! !PUBLIC DATA MEMBERS:\n!\n  TYPE(ColList),    PUBLIC  :: CollList      ! Collection list object\n#if defined( ESMF_ )\n!\n! !PUBLIC PARAMETERS\n!\n  ! Prefix of the species names in the internal state\n  CHARACTER(LEN=4), PUBLIC, PARAMETER  :: SPFX = 'SPC_'\n\n#if defined( MODEL_GEOS )\n  ! Non-standard diagnostics in GEOS may use GCC_.\n  CHARACTER(LEN=4), PUBLIC, PARAMETER  :: GPFX = 'GCC_'\n#endif\n#endif\n!\n! !REVISION HISTORY:\n!  22 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_DiagList\n!\n! !DESCRIPTION: Reads the HISTORY.rc and geoschem_config.yml input files to get\n!  determine which GEOS-Chem diagnostics have been requested.  Then it\n!  uses this information to initialize the main list of diagnostics,\n!  aka, the DiagList object.\n!\\\\\n!\\\\\n!  NOTE: This routine has to be called before any of the GEOS-Chem objects\n!  Input\\_Opt, State\\_Chm, State\\_Met, and State\\_Diag are created. When using\n!  GCHP, we must create the ESMF/MAPL export objects for the diagnostics\n!  in the Set\\_Services routine.  Set\\_Services is called before GEOS-Chem\n!  is initialized.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_DiagList ( am_I_Root, historyConfigFile, DiagList, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod\n    USE InquireMod,       ONLY : findFreeLun\n    USE QFYAML_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,              INTENT(IN)    :: am_I_Root\n    CHARACTER(LEN=*),     INTENT(IN)    :: historyConfigFile\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(DgnList),        INTENT(INOUT) :: DiagList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,              INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  22 Sep 2017 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: doPrintCollList\n    LOGICAL                      :: EOF, found, isWildcard, isTagged\n    LOGICAL                      :: InDefSection, InFieldsSection\n    INTEGER                      :: QMatch, CMatch\n    INTEGER                      :: LineNum, LineLen, LineInd, LineInd2\n    INTEGER                      :: fId, IOS, N, N1, N2, N3, I, J\n    INTEGER                      :: WLIndMax, WLIndMaxLoc(1), WLInd(3)\n    INTEGER                      :: strIndMax, strIndMin, strInd(5)\n    INTEGER                      :: numSpcWords, numIDWords\n    INTEGER                      :: NFIELDS\n\n    ! Strings\n    CHARACTER(LEN=80 )           :: ErrorLine\n    CHARACTER(LEN=255)           :: errMsg, thisLoc, nameAllCaps\n    CHARACTER(LEN=255)           :: line, SubStrs(500), SubStr\n    CHARACTER(LEN=255)           :: wildcard, tag, fullname, name, state\n    CHARACTER(LEN=255)           :: metadataID, registryID, registryIDprefix\n    CHARACTER(LEN=255)           :: collname, AttName, AttValue\n    CHARACTER(LEN=255)           :: AttComp,  FieldName\n    CHARACTER(LEN=2)             :: rrtmgOutputs(10)\n    CHARACTER(LEN=3)             :: topLev, botLev\n    CHARACTER(LEN=255)           :: names(100)\n    CHARACTER(LEN=QFYAML_NamLen) :: key\n    CHARACTER(LEN=QFYAML_StrLen) :: v_str, a_str(3)\n\n    ! SAVEd variables\n    CHARACTER(LEN=255), SAVE     :: LastCollName\n\n    ! Pointers & Objects\n    TYPE(DgnItem),      POINTER  :: NewDiagItem\n    TYPE(ColItem),      POINTER  :: NewCollItem\n    TYPE(QFYAML_t)               :: Config\n    TYPE(QFYAML_t)               :: ConfigAnchored\n\n    !=======================================================================\n    ! Init_DiagList begins here\n    !=======================================================================\n\n    ! Initialize\n    RC              =  GC_SUCCESS\n    ErrMsg          =  ''\n    ThisLoc         =  ' -> at Init_DiagList (Headers/diaglist_mod.F90)'\n    EOF             = .FALSE.\n    found           = .FALSE.\n    NewDiagItem     => NULL()\n    topLev          =  ''\n    botLev          =  ''\n    budgetBotLev_str=  ''\n    budgetTopLev_str=  ''\n    RadWL           =  ''\n    RadOut          =  ''\n    nRadOut         =  0\n    IsFullChem      = .FALSE.\n    IsHg            = .FALSE.\n    IsCarbon        = .FALSE.\n    InDefSection    = .FALSE.\n    InFieldsSection = .FALSE.\n    doPrintCollList = .FALSE.\n    Name            =  ''\n    LastCollName    =  ''\n\n    ! Create DiagList object\n    DiagList%head   => NULL()\n\n    ! Create ColList object\n    CollList%head   => NULL()\n\n    !=======================================================================\n    ! Read the geoschem_config.yml configuration file to find out:\n    ! (1) Which wavelength has been selected for optical depth diag output\n    ! (2) If this is a fullchem simulation\n    !=======================================================================\n\n    ! Open the YAML file\n    CALL QFYAML_Init( 'geoschem_config.yml', Config, ConfigAnchored, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error opening input_options.yml!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config          )\n       CALL QFYAML_CleanUp( ConfigAnchored  )\n       RETURN\n    ENDIF\n\n    ! Read the simulation name\n    key   = \"simulation%name\"\n    v_str = \"UNKNOWN\"\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config          )\n       CALL QFYAML_CleanUp( ConfigAnchored  )\n       RETURN\n    ENDIF\n    IsFullChem  = ( To_UpperCase( v_str ) == \"FULLCHEM\"    )\n    IsHg        = ( To_UpperCase( v_str ) == \"HG\"          )\n    IsCarbon    = ( To_UpperCase( v_str ) == \"CARBON\" )\n\n    ! Read the altitude above the surface in meters for drydep diags\n    key   = \"operations%dry_deposition%diag_alt_above_sfc_in_m\"\n    v_str = \"UNKNOWN\"\n    CALL QFYAML_Add_Get( Config, key, v_str, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config          )\n       CALL QFYAML_CleanUp( ConfigAnchored  )\n       RETURN\n    ENDIF\n    AltAboveSfc = TRIM( ADJUSTL( v_str ) ) // 'm'\n\n    ! Read the AOD wavelength in nm for diagnostics\n    key   = \"operations%rrtmg_rad_transfer_model%aod_wavelengths_in_nm\"\n    a_str = \"UNKNOWN\"\n    CALL QFYAML_Add_Get( Config, key, a_str, \"\", RC, dynamic_size=.TRUE. )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config          )\n       CALL QFYAML_CleanUp( ConfigAnchored  )\n       RETURN\n    ENDIF\n    I = 0\n    DO N = 1, SIZE( a_str )\n       IF ( TRIM( ADJUSTL( a_str(N) ) ) == \"UNKNOWN\" ) EXIT\n       I = I + 1\n       WRITE ( RadWL(I), \"(a5)\" ) a_str(N)\n       RadWL(I) = ADJUSTL( RadWL(I) )\n    ENDDO\n\n    ! Read the simulation name\n    key  = \"simulation%debug_printout\"\n    CALL QFYAML_Add_Get( Config, key, doPrintCollList, \"\", RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error parsing ' // TRIM( key ) // '!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       CALL QFYAML_CleanUp( Config          )\n       CALL QFYAML_CleanUp( ConfigAnchored  )\n       RETURN\n    ENDIF\n\n    ! Clean up YAML config objects\n    CALL QFYAML_CleanUp( Config          )\n    CALL QFYAML_CleanUp( ConfigAnchored  )\n\n    !=======================================================================\n    ! Read data from the HISTORY.rc configuration file\n    !=======================================================================\n\n    ! Open the history config file\n    fId = FindFreeLun()\n    OPEN( fId, FILE=TRIM(historyConfigFile), STATUS='OLD', IOSTAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Could not open \"' // TRIM(historyConfigFile) // '\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Zero the line counter\n    LineNum = 0\n\n    !====================================================================\n    ! Read history config file line by line in a loop\n    !====================================================================\n    DO\n\n       ! Read line and strip leading/trailing spaces. Skip if commented out\n       Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n       LineNum = LineNum + 1\n       IF ( EOF ) EXIT\n       IF ( IOS > 0 ) THEN\n          ErrMsg = 'Unexpected end-of-file in \"'       // &\n                    TRIM( historyConfigFile ) // '\" (1)!'\n          WRITE( ErrorLine, '(i6)' ) LineNum\n 250      FORMAT( ' -> ERROR occurred at (or near) line ', i6,               &\n                      ' of the HISTORY.rc file' )\n          CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n          RETURN\n       ENDIF\n\n       ! Skip if there is a commment at the start of the line\n       IF ( Line(1:1) == '#' ) CYCLE\n\n       ! Skip the EXPID tag at the top of the file\n       IF ( INDEX( Line, 'EXPID:' ) > 0 ) CYCLE\n\n       !====================================================================\n       ! Set collection name list (uncommented names only)\n       !====================================================================\n       IF ( INDEX( Line, 'COLLECTIONS:' ) .gt. 0 ) THEN\n\n          ! Get the first collection name; remove commas, apost, and whitespace\n          CALL CStrip( Line, KeepSpaces=.TRUE. )\n          CALL StrSplit( Line, \":\", SubStrs, N )\n          collname = CleanText( SubStrs(2) )\n\n          ! Read through file until end of COLLECTIONS section\n          DO WHILE ( INDEX( Line, '::' ) .le. 0 )\n\n             ! Add name to collection list if not commented out\n             IF ( collname(1:1) /= \"#\"  ) THEN\n                CALL Init_ColItem( am_I_Root, NewCollItem, collname )\n                CALL InsertBeginning_ColList( am_I_Root, NewCollItem, &\n                                              CollList, RC )\n             ENDIF\n\n             ! Read the next line and strip leading/trailing spaces\n             Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n             LineNum = LineNum + 1\n\n             IF ( IOS > 0 .OR. EOF ) THEN\n                ErrMsg = 'Unexpected end-of-file in \"'       // &\n                          TRIM( historyConfigFile ) // '\" (2)!'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n\n             ! Get next collection name\n             collname = CleanText( Line )\n\n          ENDDO\n          IF ( doPrintCollList ) THEN\n             CALL Print_ColList( am_I_Root, CollList, RC )\n          ENDIF\n          CYCLE\n       ENDIF\n\n       !====================================================================\n       ! Skip collection section if not in collection name list\n       !====================================================================\n       IF ( INDEX( Line, '.template' ) .gt. 0 .or. &\n            INDEX( Line, '.filename' ) .gt. 0 ) THEN\n\n          ! Check if collection was uncommented in the COLLECTIONS section\n          CALL CStrip( Line, KeepSpaces=.TRUE. )\n          CALL StrSplit( Line, \".\", SubStrs, N )\n          collname = CleanText( SubStrs(1) )\n          CALL Search_CollList( am_I_Root, CollList, collname, Found, RC )\n\n          ! Skip this collection if not found in list\n          IF ( .NOT. Found ) THEN\n             DO WHILE ( INDEX( Line, '::' ) .le. 0 )\n                Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n                LineNum = LineNum + 1\n                IF ( IOS > 0 .OR. EOF ) THEN\n                   ErrMsg = 'Unexpected end-of-file in \"'       // &\n                             TRIM( historyConfigFile ) // '\" (4)!'\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n             ENDDO\n             CYCLE\n          ENDIF\n       ENDIF\n\n#ifdef MODEL_CLASSIC\n       !====================================================================\n       ! Add some extra error checks for collections that are in the\n       ! collection name list (and therefore will be archived)\n       !====================================================================\n\n       ! The double-colon indicates the end of a collection definition\n       IF ( INDEX( Line, '::' ) > 0 ) THEN\n          InDefSection    = .FALSE.\n          InFieldsSection = .FALSE.\n          LastCollName    = ''\n          CYCLE\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! If the line has a \".\" character, then this denotes that we are\n       ! in the section where collection attributes are defined\n       !--------------------------------------------------------------------\n       IF ( INDEX( Line, '.' ) > 0 ) THEN\n\n          ! Denote that we are in the definition section\n          InDefSection = .TRUE.\n\n          ! Split the line into substrings\n          CALL StrSplit( Line, \" \", SubStrs, N )\n          AttName  = SubStrs(1)           ! Attribute name\n          AttValue = SubStrs(2)           ! Attribute value\n          AttComp  = Substrs(3)           ! Gridded component name (for GCHP)\n\n          ! If the .fields tag is found, then denote that we are\n          ! in the section where collection fields are defined\n          ! we have entered into th\n          IF ( INDEX( Line, '.fields' ) > 0 ) THEN\n             InFieldsSection = .TRUE.\n             LastCollName    = collName\n          ENDIF\n\n          ! We expect at least 2 substrings\n          IF ( LEN_TRIM( AttValue ) == 0 ) THEN\n             ErrMsg = 'The value of attribute \"'// TRIM( AttName )        // &\n                      '\" is missing! Please check the HISTORY.rc file.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          ! Each collection attribute definition needs to end with a colon\n          LineLen = LEN_TRIM( AttName )\n          IF ( AttName(LineLen:LineLen) /= ':' ) THEN\n             ErrMsg = 'The \"' // TRIM( AttName ) // '\" '                  // &\n                      'collection attribute did not end with a \":\" '      // &\n                      'character!  Please check the HISTORY.rc file.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! The \"template\", \"filename\", and \"format\", attribute values\n          ! must be single-quoted strings that are followed by a comma,\n          ! or else GCHP will die with an error.\n          !-----------------------------------------------------------------\n          IF ( INDEX( AttName, '.template' ) > 0   .or.                      &\n               INDEX( AttName, '.filename' ) > 0   .or.                      &\n               INDEX( AttName, '.format'   ) > 0  ) THEN\n\n             ! Make sure that the value starts with a single quote\n             IF ( AttValue(1:1) /= \"'\" ) THEN\n                ErrMsg = 'The value of attribute \"'// TRIM( AttName )     // &\n                          '\" does not begin with a single quote '         // &\n                          'character! Please check the HISTORY.rc file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n\n             ! Make sure that the value ends with a single quote\n             ! (comma is optional)\n             LineLen = LEN_TRIM( AttValue )\n             IF ( AttValue(LineLen-1:LineLen) /= \"',\" ) THEN\n                ErrMsg = 'The value of attribute \"'// TRIM( AttName )     // &\n                         '\" must end with a single quote character, '     // &\n                         'followed by a comma. '                          // &\n                         'Please check the HISTORY.rc file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! The \"mode\" attribute value must be a quoted string.  The comma\n          ! is optional, or at least omitting it isn't fatal for GCHP.\n          !-----------------------------------------------------------------\n          IF ( INDEX( AttName, '.mode' ) > 0 ) THEN\n\n             ! Make sure that the value starts with a single quote\n             IF ( AttValue(1:1) /= \"'\" ) THEN\n                ErrMsg = 'The value of attribute \"'// TRIM( AttName )     // &\n                          '\" does not begin with a single quote '         // &\n                          'character! Please check the HISTORY.rc file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n\n             ! Make sure that the value ends with a single quote\n             ! (comma is optional)\n             LineLen = LEN_TRIM( AttValue )\n             IF ( AttValue(LineLen:LineLen) == ',' ) LineLen = LineLen -1\n             IF ( AttValue(LineLen:LineLen) /= \"'\" ) THEN\n                ErrMsg = 'The value of attribute \"'// TRIM( AttName )     // &\n                         '\" must end with a single quote character. '     // &\n                         'Please check the HISTORY.rc file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! Further error checks for the fields attribute\n       !-----------------------------------------------------------------\n       IF ( InFieldsSection ) THEN\n\n          ! Extract the current collection name, which forms the first\n          ! part of the attribute name (up to the \".\" character.  If this\n          ! does not match the expected collection name, then we have a\n          ! missing separator (\"::\") somewhere.  Stop with an error.\n          LineInd = INDEX( AttName, '.' )\n          IF ( AttName(1:LineInd-1) /= TRIM( LastCollName ) ) THEN\n             ErrMsg = 'Attribute \"' // TRIM( AttName ) // ' specifies a ' // &\n                      'value for collection \"'                            // &\n                      TRIM( AttName(1:LineInd-1) )                        // &\n                      '\", but the expected collection name is \"'          // &\n                      TRIM( LastCollName ) // '\".  This indicates that '  // &\n                      'the end-of-collection delimiter (i.e. \"::\") is '   // &\n                      'missing.  Please check the HISTORY.rc file.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          ! Save into LineSq the text of the line, skipping over\n          ! the attribute name (if we are on the first line),\n          ! as well as the gridcomp name\n          LineInd = INDEX( Line, ',' )\n          IF ( INDEX( Line, '.fields' ) > 0 ) THEN\n             LineInd2 = INDEX( Line, ':' )\n             FieldName = Line(LineInd2+1:LineInd)\n          ELSE\n             FieldName = Line(1:LineInd)\n          ENDIF\n\n          ! Pack all whitespace in LineSq\n          CALL StrSqueeze( FieldName )\n          CALL CStrip( FieldName )\n\n          ! Make sure that the value starts with a single quote\n          IF ( FieldName(1:1) /= \"'\" ) THEN\n             ErrMsg = 'The diagnostic field name \"' // TRIM( FieldName )  // &\n                      '\" does not begin with a single quote '             // &\n                      'character! Please check the HISTORY.rc file.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          ! Make sure that the value ends with a single quote\n          LineLen = LEN_TRIM( FieldName )\n          IF ( FieldName(LineLen-1:LineLen) /= \"',\" ) THEN\n             ErrMsg = 'The diagnostic field name \"' // TRIM( FieldName )  // &\n                      '\" must end with a single quote character '         // &\n                      'followed by a comma, '                             // &\n                      'Please check the HISTORY.rc file.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n       ENDIF\n#endif\n\n       !====================================================================\n       ! Add unique diagnostic names to diag list\n       !====================================================================\n\n       ! Skip line if gridded component name not present and using GCHP or GEOS\n#if defined( MODEL_GCHPCTM )\n       IF ( INDEX( Line, 'GCHPchem' ) .le. 0 ) CYCLE\n#elif defined( MODEL_GEOS )\n       IF ( INDEX( Line, 'GEOSCHEMCHEM' ) .le. 0 ) CYCLE\n#endif\n\n       ! Get diagnostic name\n       CALL CStrip( Line, KeepSpaces=.TRUE. )\n       CALL StrSplit( Line, \" \", SubStrs, N )\n       IF ( INDEX(Line, '.fields') > 0 .AND. N > 1 ) THEN\n          fullname = CleanText( SubStrs(2) )\n       ELSE\n          fullname = CleanText( SubStrs(1) )\n       ENDIF\n\n       ! Skip to next line if the diagnostic name is commented out,\n       ! missing, or contains an attribute tag.\n       IF ( fullname(1:1) == '#' ) CYCLE\n       IF ( LEN_TRIM( fullname ) == 0   ) CYCLE\n       IF ( INDEX( fullname, '.template'  ) >  0   ) CYCLE\n       IF ( INDEX( fullname, '.frequency' ) >  0   ) CYCLE\n       IF ( INDEX( fullname, '.duration'  ) >  0   ) CYCLE\n       IF ( INDEX( fullname, '.format'    ) >  0   ) CYCLE\n       IF ( INDEX( fullname, '.mode'      ) >  0   ) CYCLE\n\n       ! Parse full diagnostics name. ESMF/MAPL supports the combination of\n       ! multiple fields (e.g., 'Field1+Field2') as well as math operations\n       ! (e.g.,2*Field1). To preserve this functionality, we need to register\n       ! each requested field individually.\n       CALL Parse_FullName( am_I_Root, fullname, names, NFIELDS, RC )\n       IF ( NFIELDS == 0 ) CYCLE\n\n       ! Register all fields - as identified by Parse_FullName - individually\n       DO J=1,NFIELDS\n          name = TRIM(names(J))\n\n          ! Skip if name is already in diag list\n          CALL Search_DiagList( am_I_Root, DiagList, name, Found, RC )\n          IF ( Found ) CYCLE\n\n          ! Set GC state\n          nameAllCaps = To_Uppercase( TRIM(name) )\n          IF ( nameAllCaps(1:4) == 'MET_' ) THEN\n             state = 'MET'\n          ELSEIF ( nameAllCaps(1:5) == 'CHEM_' ) THEN\n             state = 'CHEM'\n          ELSEIF ( nameAllCaps(1:5) == 'GRID_' ) THEN\n             state = 'GRID'\n#ifdef ESMF_\n          ! HEMCO diagnostics are included in HISTORY.rc in GCHP/GEOS only.\n          ! Prefix for HEMCO diagnostics in HEMCO_Diagn.rc must be one of the\n          ! following (case-insensitve).\n          ELSEIF ( nameAllCaps(1:4) == 'EMIS' .OR. &\n                   nameAllCaps(1:3) == 'INV'  .OR. &\n                   nameAllCaps(1:3) == 'HCO') THEN\n             state = 'HEMCO'\n#ifdef ADJOINT\n          ! Emissions scaling factor sensitivites are included in HISTORY.rc in GCHP only\n          ELSEIF ( nameAllCaps(1:6) == 'SFEMIS' ) THEN\n             state = 'HEMCO'\n#endif\n#ifdef MODEL_GEOS\n          ! GEOS might have custom diagnostics outside of the standard states\n          ELSEIF ( nameAllCaps(1:5) == 'GEOS_' .OR. &\n                   nameAllCaps(1:4) == 'GCC_' ) THEN\n             state = 'GEOS'\n          ! GEOS might have internal state variables that start with other prefix\n          ELSEIF ( nameAllCaps(1:4) == GPFX ) THEN\n             state = 'INTERNAL'\n#endif\n          ELSEIF ( nameAllCaps(1:4) == SPFX ) THEN\n             state = 'INTERNAL'\n#endif\n          ELSE\n             state = 'DIAG'\n          ENDIF\n\n          ! Get wildcard, if any\n          ! NOTE: Must be prefaced with single underscore in HISTORY.rc!\n          isWildcard = .FALSE.\n          wildcard   = ''\n          IF ( INDEX( name, '?' ) > 0 ) THEN\n#if defined( MODEL_GCHPCTM ) || defined( MODEL_GEOS ) || defined( MODEL_CESM )\n             ! Exit with an error if using GCHP and wildcard is present\n             ErrMsg = 'ERROR: HISTORY.rc wildcard handling is not ' // &\n                      'implemented in GCHP/CESM: ' // TRIM(name) // '. Replace ' // &\n                      'wildcard with a specific tag.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n#endif\n             isWildcard = .TRUE.\n             CALL StrSplit( name, '?', SubStrs, N )\n             wildcard = SubStrs(N-1)\n          ENDIF\n\n          ! Get registryID - start with the full name in HISTORY.rc\n          registryID = TRIM(nameAllCaps)\n          ! Then strip off the state prefix, if any\n          IF ( TRIM(state) == 'MET' ) THEN\n             registryID = registryID(5:)\n          ELSE IF ( TRIM(state) == 'CHEM' ) THEN\n             registryID = registryID(6:)\n          ENDIF\n          ! Then strip off the wildcard, if any\n          IF ( isWildcard ) THEN\n             LineInd = INDEX( TRIM(registryID), '_' )\n             IF ( LineInd .le. 0 ) THEN\n                ErrMsg = 'Error setting registryID. Single underscore must' &\n                         // ' precede wildcard in HISTORY.rc!'\n                CALL GC_ERROR( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n             registryID = registryID(1:LineInd-1)\n          ENDIF\n\n          ! Get metadataID and strip off the tag suffix, if any\n          isTagged  = .FALSE.\n          tag = ''\n          LineInd= INDEX( TRIM(registryID), '_' )\n          IF ( LineInd > 0 ) THEN\n             isTagged = .TRUE.\n             tag = TRIM(registryID(LineInd+1:))\n             metadataID = registryID(1:LineInd-1)\n          ELSE\n             metadataID = registryID\n          ENDIF\n\n          ! For registryID and metdataID, handle special case of AOD wavelength\n          ! Update registryID\n          WLInd(1) = INDEX( TRIM(registryID), 'WL1' )\n          WLInd(2) = INDEX( TRIM(registryID), 'WL2' )\n          WLInd(3) = INDEX( TRIM(registryID), 'WL3' )\n          WLIndMax = Max(WLInd(1),WLInd(2),WLInd(3))\n          IF ( WLIndMax > 0 ) THEN\n             WLIndMaxLoc = MAXLOC(WLInd)\n             registryIDprefix = registryID(1:WLInd(WLIndMaxLoc(1))-1) // &\n                                TRIM(RadWL(WLIndMaxLoc(1))) // 'NM'\n             LineInd = INDEX( TRIM(registryID), '_' )\n             IF ( LineInd > 0 ) THEN\n                registryID = TRIM(registryIDprefix) // registryID(LineInd:)\n             ELSE\n                registryID = registryIDprefix\n             ENDIF\n          ENDIF\n\n          ! Update metadataID with wavelength\n          WLInd(1) = INDEX( TRIM(metadataID), 'WL1' )\n          WLInd(2) = INDEX( TRIM(metadataID), 'WL2' )\n          WLInd(3) = INDEX( TRIM(metadataID), 'WL3' )\n          WLIndMax = Max(WLInd(1),WLInd(2),WLInd(3))\n          IF ( WLIndMax > 0 ) THEN\n             WLIndMaxLoc = MaxLOC(WLInd(:))\n             metadataID = metadataID(1:WLInd(WLIndMaxLoc(1))-1) //  &\n                          TRIM(RadWL(WLIndMaxLoc(1))) // 'NM'\n          ENDIF\n\n          ! Special handling for the RRTMG diagnostic outputs\n          ! Store the list of the requested outputs (tags) in RadOut.\n          strInd(1) = INDEX( TRIM(metadataID), 'RADCLR' )\n          strInd(2) = INDEX( TRIM(metadataID), 'RADALL' )\n          strInd(3) = INDEX( TRIM(metadataID), 'RADAOD' )\n          strInd(4) = INDEX( TRIM(metadataID), 'RADSSA' )\n          strInd(5) = INDEX( TRIM(metadataID), 'RADASYM' )\n          strIndMax = MAX(strInd(1),strInd(2),strInd(3),strInd(4),strInd(5))\n          IF ( strIndMax == 1 .AND. nRadOut < 17 ) THEN\n\n             ! If RRTMG diagnostics present, always calculate BASE, and store\n             ! first, since used to calculate other outputs.\n             IF ( nRadOut == 0 ) THEN\n                nRadOut = nRadOut + 1\n                RadOut(nRadOut) = 'BASE'\n             ENDIF\n\n             ! Set the rest of the array to the contents of HISTORY.rc, or to\n             ! include all except stratosphere if wildcard found.\n             IF ( .NOT. isWildcard ) THEN\n                ! If a tag is specified explicitly, then add to the RadOut array\n                IF ( .not. ANY( RadOut == TRIM(Tag) ) ) THEN\n                   nRadOut          = nRadOut + 1\n                   RadOut(nRadOut) = TRIM( Tag )\n                ENDIF\n             ELSE\n                ! If the RRTMG wildcard is used then add all remaining possible\n                ! outputs, except the stratosphere (ST) and BASE (already added).\n                ! ST must be explicit in HISTORY.rc and is not included in the\n                ! RRTMG wildcard since it may not be relevant to the simulation.\n                ! CO2, CFCs, H2O, and N2O also excluded since they are somewhat\n                ! niche (same for trop-only O3).\n                RRTMGOutputs = (/'O3','ME','SU','NI','AM','BC','OA','SS','DU','PM'/)\n                DO N = 1, SIZE(rrtmgOutputs,1)\n                   IF ( .not. ANY( RadOut == TRIM(rrtmgOutputs(N)) ) ) THEN\n                      nRadOut          = nRadOut + 1\n                      RadOut(nRadOut) = TRIM( rrtmgOutputs(N) )\n                   ENDIF\n                ENDDO\n             ENDIF\n          ENDIF\n\n          ! Special handling for diagnostics at a specific height\n          ! (e.g. rename O3CONCATALT --> O3CONCAT10M)\n          strInd(1) = INDEX( TRIM(registryID), 'ALT1' )\n          IF ( strInd(1) > 0 ) THEN\n             registryIDprefix = registryID(1:strInd(1)-1) // TRIM( AltAboveSfc )\n             LineInd = INDEX( TRIM(registryID), '_' )\n             IF ( LineInd > 0 ) THEN\n                registryID = TRIM(registryIDprefix) // registryID(LineInd:)\n             ELSE\n                registryID = registryIDprefix\n             ENDIF\n          ENDIF\n          strInd(2) = INDEX( TRIM(metadataID), 'ALT1' )\n          IF ( strInd(2) > 0 ) THEN\n             metadataID = metadataID(1:strInd(2)-1) // TRIM( AltAboveSfc )\n          ENDIF\n\n          ! Special handling for the budget fixed level range diagnostic\n          strInd(1) = INDEX( TRIM(metadataID), 'BUDGET' )\n          strInd(2) = INDEX( TRIM(metadataID), 'LEVS' )\n          strInd(3) = INDEX( TRIM(metadataID), 'TO' )\n          strIndMin = MIN( strInd(1), strInd(2), strInd(3) )\n          ! Set budget diagnostic level range top and bottom from entry in HISTORY.rc\n          ! All budget level diagnostics must have the same range\n          IF ( strIndMin > 0  ) THEN\n             botLev = TRIM( metadataID( strInd(2)+4:strInd(3)-1 ) )\n             topLev = TRIM( metadataID( strInd(3)+2:LEN(TRIM(metadataID)) ) )\n             IF ( budgetBotLev_str == '' .AND. budgetTopLev_str == '' ) THEN\n                budgetBotLev_str = botLev\n                budgetTopLev_str = topLev\n             ELSE IF ( ( budgetBotLev_str == '' ) .OR. &\n                       ( budgetTopLev_str == '' ) ) THEN\n                ErrMsg = 'Missing level in budget diagnostic name: ' // TRIM(name)\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ELSE IF ( ( budgetBotLev_str /= botLev ) .OR. &\n                       ( budgetTopLev_str /= topLev ) ) THEN\n                ErrMsg = 'Budget diagnostic level ranges do not match: ' //      &\n                     TRIM(budgetBotLev_str) // ' and ' // TRIM(budgetTopLev_str) &\n                     // ' versus ' // TRIM(botLev) // ' and ' // TRIM(TopLev) // &\n                     '. Check budget diagnostic entries in HISTORY.rc'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n          !====================================================================\n          ! Create a new DiagItem object\n          !====================================================================\n          CALL Init_DiagItem( am_I_Root,              &\n                              NewDiagItem,            &\n                              name=name,              &\n                              state=state,            &\n                              metadataID=metadataID,  &\n                              registryID=registryID,  &\n                              isWildcard=isWildcard,  &\n                              wildcard=wildcard,      &\n                              isTagged=isTagged,      &\n                              tag=tag,                &\n                              RC=RC  )\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error initializing DiagItem ' // TRIM(name)\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !====================================================================\n          ! Add new DiagItem to linked list\n          !====================================================================\n          CALL InsertBeginning_DiagList( am_I_Root, NewDiagItem, DiagList, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n\n       ENDDO !J loop (NFIELDS)\n\n    ENDDO\n\n    !====================================================================\n    ! Close the file\n    !====================================================================\n    CLOSE( fId )\n\n  END SUBROUTINE Init_DiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Parse_FullName\n!\n! !DESCRIPTION: Parses the full field name as set in HISTORY.rc and checks\n!  for math expressions / field combinations, as possible in MAPL. Returns all\n!  individual field names as separate strings, along with the number of\n!  identified fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Parse_FullName ( am_I_Root, fullname, names, NFIELDS, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod,        ONLY : CleanText, StrSplit\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN) :: am_I_Root        ! Root CPU?\n    CHARACTER(LEN=*),    INTENT(IN) :: fullname         ! original field name, all upper-case\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT)   :: names(100)       ! individual names (all upper-case)\n    INTEGER,          INTENT(OUT)   :: NFIELDS          ! number of individual fields\n    INTEGER,          OPTIONAL      :: RC               ! return code\n!\n! !REVISION HISTORY:\n!  05 Jan 2021 - C. Keller - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: thisLoc, workstring, istr, SubStrs(500)\n    CHARACTER(LEN=1)   :: thischar\n    INTEGER            :: I, J, N, ilen, iasc\n    LOGICAL            :: hasChar\n\n    ! ================================================================\n    ! Parse_FullName begins here\n    ! ================================================================\n    thisLoc = 'Parse_FullName (diaglist_mod.F90)'\n\n    ! Init\n    names(:) = \"\"\n\n    ! Replace all supported math symbols (+,-,*,/) with hash symbol\n    workstring = CleanText(fullname)\n    ilen = LEN_TRIM(workstring)\n    DO I = 1,ilen\n       thischar = workstring(I:I)\n       IF ( thischar == \"+\" .OR. &\n            thischar == \"-\" .OR. &\n            thischar == \"*\" .OR. &\n            thischar == \"/\"       ) THEN\n          workstring(I:I) = \"#\"\n       ENDIF\n    ENDDO\n\n    ! Split for hashsymbol, then place each (valid) substring into\n    ! separate slot and count them. Some entries may be invalid. I.e., if one\n    ! uses something like '2*FieldX', the numeric entry needs to be removed.\n    ! All fields with at least one upper-case alphanumeric character (i.e.,\n    ! ascii characters 65-90), are assumed to be valid fields.\n    NFIELDS = 0\n    CALL StrSplit( workstring, \"#\", SubStrs, N )\n    DO I = 1, N\n       istr = CleanText( SubStrs(I) )\n       ! Check if clean name contains at least one upper-case alphanumeric character\n       hasChar = .FALSE.\n       ilen = LEN_TRIM(istr)\n       DO J = 1, ilen\n          iasc = ICHAR(istr(J:J))\n          IF ((iasc.GT.64).AND.(iasc.LT.91)) THEN\n             hasChar = .TRUE.\n             EXIT\n          ENDIF\n       ENDDO\n       IF ( hasChar ) THEN\n          NFIELDS = NFIELDS + 1\n          names(NFIELDS) = istr\n       ENDIF\n    ENDDO\n\n    ! Return\n    RC = GC_SUCCESS\n\n  END SUBROUTINE Parse_FullName\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_DiagItem\n!\n! !DESCRIPTION: Initializes a DiagItem object, which contains information\n!  about a single GEOS-Chem diagnostic.  Several DiagItem objects will be\n!  linked together in the main diagnostics list (DiagList).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_DiagItem ( am_I_Root,  NewDiagItem, name,       state,     &\n                             metadataID, registryID,  isWildcard, wildcard,  &\n                             isTagged,   tag,         RC  )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN) :: am_I_Root\n    CHARACTER(LEN=*),    OPTIONAL   :: name\n    CHARACTER(LEN=*),    OPTIONAL   :: state\n    CHARACTER(LEN=*),    OPTIONAL   :: metadataID\n    CHARACTER(LEN=*),    OPTIONAL   :: registryID\n    LOGICAL,             OPTIONAL   :: isWildcard\n    CHARACTER(LEN=*),    OPTIONAL   :: wildcard\n    LOGICAL,             OPTIONAL   :: isTagged\n    CHARACTER(LEN=*),    OPTIONAL   :: tag\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(DgnItem), POINTER  :: NewDiagItem\n    INTEGER,       OPTIONAL :: RC\n!\n! !REVISION HISTORY:\n!  21 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: thisLoc\n\n    ! ================================================================\n    ! Init_DiagList begins here\n    ! ================================================================\n    thisLoc = 'Init_DiagItem (diaglist_mod.F90)'\n\n    ALLOCATE(NewDiagItem)\n    NewDiagItem%name       = TRIM(name)\n    NewDiagItem%state      = TRIM(state)\n    NewDiagItem%metadataID = TRIM(metadataID)\n    NewDiagItem%registryID = TRIM(registryID)\n    NewDiagItem%isWildcard = isWildcard\n    NewDiagItem%wildcard   = TRIM(wildcard)\n    NewDiagItem%isTagged   = isTagged\n    NewDiagItem%tag        = TRIM(tag)\n\n  END SUBROUTINE Init_DiagItem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_ColItem\n!\n! !DESCRIPTION: Initializes a ColItem object, which contains information\n!  about a single GEOS-Chem collection.  Several ColItem objects will be\n!  linked together in the main collections list (ColList).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_ColItem ( am_I_Root, NewCollItem, cname, RC  )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN) :: am_I_Root\n    TYPE(ColItem),  POINTER    :: NewCollItem\n    CHARACTER(LEN=*)           :: cname\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        OPTIONAL   :: RC\n!\n! !REVISION HISTORY:\n!  25 Jan 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: thisLoc\n\n    ! ================================================================\n    ! Init_ColItem begins here\n    ! ================================================================\n    thisLoc = 'Init_ColItem (diaglist_mod.F90)'\n\n    ALLOCATE(NewCollItem)\n    NewCollItem%cname      = TRIM(cname)\n\n  END SUBROUTINE Init_ColItem\n!EOC\n!!------------------------------------------------------------------------------\n!!                  GEOS-Chem Global Chemical Transport Model                  !\n!!------------------------------------------------------------------------------\n!!BOP\n!!\n!! !IROUTINE: Get_ColItem\n!!\n!! !DESCRIPTION: Gets a pointer to a collection (ColItem) object\n!!\\\\\n!!\\\\\n!! !INTERFACE:\n!!\n!  SUBROUTINE Get_ColItem ( am_I_Root, CollName, CollList, CollItem, Found, RC )\n!!\n!! !INPUT PARAMETERS:\n!!\n!    LOGICAL,          INTENT(IN) :: am_I_Root\n!    CHARACTER(LEN=*), INTENT(IN) :: CollName\n!    TYPE(ColList),    INTENT(IN) :: CollList\n!!\n!! !OUTPUT PARAMETERS:\n!!\n!    TYPE(ColItem),    POINTER    :: CollItem\n!    LOGICAL,          OPTIONAL   :: Found\n!    INTEGER,          OPTIONAL   :: RC\n!!\n!! !REVISION HISTORY:\n!!  25 Jan 2018 - E. Lundgren - Initial version\n!!  See https://github.com/geoschem/geos-chem for complete history\n!!EOP\n!!------------------------------------------------------------------------------\n!!BOC\n!!\n!! !LOCAL VARIABLES:\n!!\n!    TYPE(ColItem), POINTER :: current\n!    CHARACTER(LEN=255)     :: thisLoc\n!\n!    ! ================================================================\n!    ! Get_ColList begins here\n!    ! ================================================================\n!\n!    ! Initialize\n!    thisLoc = 'Get_ColItem (diaglist_mod.F90)'\n!    IF ( PRESENT( Found ) ) Found = .FALSE.\n!\n!    ! Search for name in list\n!    current => CollList%head\n!    DO WHILE ( ASSOCIATED( current ) )\n!       IF ( current%cname == CollName ) THEN\n!          IF ( PRESENT( Found ) ) Found = .TRUE.\n!          CollItem = current\n!          EXIT\n!       ENDIF\n!       current => current%next\n!    ENDDO\n!    current => NULL()\n!\n!  END SUBROUTINE Get_ColItem\n!!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_ColItem\n!\n! !DESCRIPTION: Sets a ColItem object, which contains information\n!  about a single GEOS-Chem collection.  Several ColItem objects will be\n!  linked together in the main collections list (ColList).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_ColItem ( am_I_Root, Collname, CollList, Found, RC  )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN) :: am_I_Root\n    CHARACTER(LEN=*)             :: CollName\n    TYPE(ColList)                :: CollList\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,          OPTIONAL   :: Found\n    INTEGER,          OPTIONAL   :: RC\n!\n! !REVISION HISTORY:\n!  25 Jan 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)     :: thisLoc\n    TYPE(ColItem), POINTER :: current\n\n    ! ================================================================\n    ! Set_ColList begins here\n    ! ================================================================\n\n    ! Initialize\n    thisLoc = 'Set_ColItem (diaglist_mod.F90)'\n    IF ( PRESENT( Found ) ) Found = .FALSE.\n\n    ! Search for name in list\n    current => CollList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       IF ( current%cname == CollName ) THEN\n          IF ( PRESENT( Found ) ) Found = .TRUE.\n          EXIT\n       ENDIF\n       current => current%next\n    ENDDO\n\n    ! Exit with error if no collection matches the input name\n    IF ( .NOT. FOUND ) THEN\n       CALL GC_ERROR(\"Error setting collection item\", RC, ThisLoc)\n       RETURN\n    ENDIF\n\n    ! Null pointer\n    current => NULL()\n\n  END SUBROUTINE Set_ColItem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: InsertBeginning_DiagList\n!\n! !DESCRIPTION: Inserts a new node at the beginning of the DiagList linked\n!  list object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE InsertBeginning_DiagList ( am_I_Root, DiagItem, DiagList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,         INTENT(IN)    :: am_I_Root\n    TYPE(DgnItem),   POINTER       :: DiagItem\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnList),   INTENT(INOUT) :: DiagList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,         INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  22 Sep 2017 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(DgnItem),  POINTER :: NewDiagItem\n    CHARACTER(LEN=255)      :: thisLoc\n\n    ! ================================================================\n    ! InsertBeginning_DiagList begins here\n    ! ================================================================\n    thisLoc = 'InsertBeginning_DiagList (diaglist_mod.F90)'\n\n    ! Add new object to the beginning of the linked list\n    DiagItem%next => DiagList%head\n    DiagList%head => DiagItem\n\n  END SUBROUTINE InsertBeginning_DiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: InsertBeginning_ColList\n!\n! !DESCRIPTION: Inserts a new node at the beginning of the ColList linked\n!  list object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE InsertBeginning_ColList ( am_I_Root, CollItem, CollList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,         INTENT(IN)    :: am_I_Root\n    TYPE(ColItem),   POINTER       :: CollItem\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ColList),   INTENT(INOUT) :: CollList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,         INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  25 Jan 2018 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(ColItem),  POINTER :: NewCollItem\n    CHARACTER(LEN=255)      :: thisLoc\n\n    ! ================================================================\n    ! InsertBeginning_ColList begins here\n    ! ================================================================\n    thisLoc = 'InsertBeginning_ColList (diaglist_mod.F90)'\n\n    ! Add new object to the beginning of the linked list\n    CollItem%next => CollList%head\n    CollList%head => CollItem\n\n  END SUBROUTINE InsertBeginning_ColList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Search_DiagList\n!\n! !DESCRIPTION: Searches for a given diagnostic name within the DiagList\n!  diagnostic list object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Search_DiagList ( am_I_Root, DiagList, name, found, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN) :: am_I_Root\n    TYPE(DgnList),     INTENT(IN) :: DiagList\n    CHARACTER(LEN=*),  INTENT(IN) :: name\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(OUT) :: found\n    INTEGER,           INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  22 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(DgnItem), POINTER :: current\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! Initialize\n    thisLoc = 'Search_DiagList (diaglist_mod.F90)'\n    found = .FALSE.\n\n    ! Search for name in list\n    current => DiagList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       IF ( TRIM(current%name) == TRIM(name) ) THEN\n          found = .TRUE.\n          current=> NULL()\n          EXIT\n       ENDIF\n       current => current%next\n    ENDDO\n    current => NULL()\n\n  END SUBROUTINE Search_DiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Search_CollList\n!\n! !DESCRIPTION: Searches for a given collection name within the ColList\n!  collection list object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Search_CollList ( am_I_Root, CollList, name, found, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN) :: am_I_Root\n    TYPE(ColList),     INTENT(IN) :: CollList\n    CHARACTER(LEN=*),  INTENT(IN) :: name\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(OUT) :: found\n    INTEGER,           INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  25 Jan 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(ColItem), POINTER :: current\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! Initialize\n    thisLoc = 'Search_CollList (diaglist_mod.F90)'\n    found = .FALSE.\n\n    ! Search for name in list\n    current => CollList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       IF ( TRIM(current%cname) == TRIM(name) ) THEN\n          found = .TRUE.\n          EXIT\n       ENDIF\n       current => current%next\n    ENDDO\n    current => NULL()\n\n  END SUBROUTINE Search_CollList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check_DiagList\n!\n! !DESCRIPTION: Returns TRUE if a string matches the metadataID for at\n!  least one diagnostic in the passed DiagList object. An exact match is\n!  required (case-insensitive) unless optional partial logical argument\n!  is passed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Check_DiagList( am_I_Root, DiagList, name, found, RC, partial )\n!\n! !USES:\n!\n    USE Charpak_Mod, ONLY : To_UpperCase\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN)  :: am_I_Root   ! Are we on the root CPU?\n    TYPE(DgnList),     INTENT(IN)  :: DiagList    ! Diagnostic list object\n    CHARACTER(LEN=*),  INTENT(IN)  :: name        ! Diagnostic metadata name\n    LOGICAL,           OPTIONAL    :: partial     ! Allow partial name match?\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(OUT) :: found       ! Was a match found (T/F)?\n    INTEGER,           INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  22 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: doPartialMatch\n    INTEGER                :: matchInd\n    INTEGER                :: matchLen\n\n    ! Strings\n    CHARACTER(LEN=255)     :: thisLoc\n    CHARACTER(LEN=255)     :: inName_AllCaps\n    CHARACTER(LEN=255)     :: currentName_AllCaps\n\n    ! Pointers\n    TYPE(DgnItem), POINTER :: current\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    thisLoc = ' -> at Check_DiagList (in module Headers/diaglist_mod.F90)'\n    found   = .FALSE.\n\n    ! Get the optional exactMatch argument, which determines\n    ! if we should force an exact name match or not (bmy, 10/29/18)\n    IF ( PRESENT( partial ) ) THEN\n       doPartialMatch = partial\n    ELSE\n       doPartialMatch = .FALSE.\n    ENDIF\n\n    ! Convert strings to uppercase for comparison\n    inName_AllCaps = To_Uppercase( TRIM( name ) )\n\n    ! Get the length of inName_AllCaps excluding whitespace\n    matchLen = LEN_TRIM( inName_AllCaps )\n\n    ! Search for name in list\n    current => DiagList%head\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! Name of the diagnostic metadata at this point in the linked list\n       currentName_AllCaps = To_Uppercase( current%metadataID )\n\n       ! Test if the substring matches all or part of the diagnostic name\n       matchInd = INDEX( currentName_AllCaps, TRIM( inName_AllCaps ) )\n\n       ! Determine if we need to have an exact or partial match\n       IF ( .NOT. doPartialMatch ) THEN\n\n          ! Exact match: inName_AllCaps matches a sequence of characters\n          ! starting with the first character of currentName_AllCaps.\n          ! AND has the same trimmed length as currentName_AllCaps\n          IF ( ( matchInd == 1                               )   .and.       &\n               ( matchLen == LEN_TRIM( currentName_AllCaps ) ) ) THEN\n             found = .TRUE.\n             EXIT\n          ENDIF\n\n       ELSE\n\n          ! Partial match: inName_AllCaps matches a sequence of characters\n          ! somewhere within currentName_AllCaps (but not necessarily\n          ! starting from the beginning).\n          IF ( matchInd > 0 ) THEN\n             found = .TRUE.\n             EXIT\n          ENDIF\n\n       ENDIF\n\n       ! Move to next diagnostic in the linked list\n       current => current%next\n    ENDDO\n\n    ! Free pointer\n    current => NULL()\n\n  END SUBROUTINE Check_DiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_DiagList\n!\n! !DESCRIPTION: Subroutine Print\\_DiagList prints information for all\n!  DiagItem members in a DiagList linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_DiagList( am_I_Root, DiagList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN)    :: am_I_Root\n    TYPE(DgnList),     INTENT(IN)    :: DiagList\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(INOUT) :: RC            ! Success?\n!\n! !REVISION HISTORY:\n!  22 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(DgnItem), POINTER :: current\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! ================================================================\n    ! Print_DiagList begins here (come back to replace with write instead)\n    ! ================================================================\n    thisLoc = 'Print_DiagList (diaglist_mod.F90)'\n    current => DiagList%head\n\n    IF ( am_I_Root ) THEN\n       PRINT *, \" \"\n       PRINT *, \"====================\"\n       PRINT *, \"Contents of DiagList\"\n       PRINT *, \" \"\n    ENDIF\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! Print info\n       IF ( am_I_Root ) THEN\n          PRINT *, TRIM(current%name)\n          PRINT *, \"   state:      \", TRIM(current%state)\n          PRINT *, \"   metadataID: \", TRIM(current%metadataID)\n          PRINT *, \"   registryID: \", TRIM(current%registryID)\n          IF ( current%isWildcard ) THEN\n             PRINT *, \"   isWildcard: \", current%isWildcard\n             PRINT *, \"   wildcard:   \", TRIM(current%wildcard)\n          ENDIF\n          IF ( current%isTagged ) THEN\n             PRINT *, \"   isTagged:  \", current%isTagged\n             PRINT *, \"   tag:    \", TRIM(current%tag)\n          ENDIF\n          PRINT *, \" \"\n       ENDIF\n\n       ! Set up for next item\n       current => current%next\n    ENDDO\n\n    ! cleanup\n    current => NULL()\n    IF ( am_I_Root ) PRINT *, \" \"\n\n  END SUBROUTINE Print_DiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_ColList\n!\n! !DESCRIPTION: Subroutine Print\\_ColList prints information for all\n!  ColItem members in a ColList linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_ColList( am_I_Root, CollList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN)    :: am_I_Root\n    TYPE(ColList),     INTENT(IN)    :: CollList\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(INOUT) :: RC            ! Success?\n!\n! !REVISION HISTORY:\n!  25 Jan 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(ColItem), POINTER :: current\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! ================================================================\n    ! Print_ColList begins here (come back to replace with write instead)\n    ! ================================================================\n    thisLoc = 'Print_ColList (diaglist_mod.F90)'\n    current => CollList%head\n\n    IF ( am_I_Root ) THEN\n       PRINT *, \" \"\n       PRINT *, \"======================\"\n       PRINT *, \"Contents of  CollList\"\n       PRINT *, \" \"\n    ENDIF\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! Print info\n       IF ( am_I_Root ) THEN\n          PRINT *, TRIM(current%cname)\n       ENDIF\n\n       ! Set up for next item\n       current => current%next\n    ENDDO\n\n    ! cleanup\n    current => NULL()\n    IF ( am_I_Root ) PRINT *, \" \"\n\n  END SUBROUTINE Print_ColList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_DiagList\n!\n! !DESCRIPTION: Subroutine Cleanup\\_DiagList deallocates a DiagList\n!  object and all of its member objects including the linked list of\n!  DiagItem objects.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_DiagList( DiagList, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnList),     INTENT(INOUT) :: DiagList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT)   :: RC            ! Success?\n!\n! !REVISION HISTORY:\n!  21 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(DgnItem), POINTER :: current\n    TYPE(DgnItem), POINTER :: next\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! ================================================================\n    ! Cleanup_DiagList begins here\n    ! ================================================================\n    thisLoc = 'Cleanup_DiagList (diaglist_mod.F90)'\n\n    ! Deallocate each item in the linked list of DiagExport objects\n    current => DiagList%head\n    IF ( ASSOCIATED( current ) ) next => current%next\n    DO WHILE ( ASSOCIATED( current ) )\n       DEALLOCATE( current, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       IF ( .NOT. ASSOCIATED ( next ) ) EXIT\n       current => next\n       next => current%next\n    ENDDO\n\n    ! Also get rid of module-level collection list when cleanup up diaglist\n    CALL Cleanup_ColList( CollList, RC )\n\n    ! Final cleanup\n    current => NULL()\n    next    => NULL()\n\n  END SUBROUTINE Cleanup_DiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_ColList\n!\n! !DESCRIPTION: Subroutine Cleanup\\_ColList deallocates a ColList\n!  object and all of its member objects including the linked list of\n!  ColItem objects.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_ColList ( CollList, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ColList),     INTENT(INOUT) :: CollList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT)   :: RC            ! Success?\n!\n! !REVISION HISTORY:\n!  21 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(ColItem), POINTER :: current\n    TYPE(ColItem), POINTER :: next\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! ================================================================\n    ! Cleanup_ColList begins here\n    ! ================================================================\n    thisLoc = 'Cleanup_ColList (diaglist_mod.F90)'\n\n    ! Deallocate each item in the linked list of collection objects\n    current => CollList%head\n    IF ( ASSOCIATED( current ) ) next => current%next\n    DO WHILE ( ASSOCIATED( current ) )\n       DEALLOCATE( current, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       IF ( .NOT. ASSOCIATED ( next ) ) EXIT\n       current => next\n       next => current%next\n    ENDDO\n\n    ! Final cleanup\n    current => NULL()\n    next    => NULL()\n\n  END SUBROUTINE Cleanup_ColList\n!EOC\nEND MODULE DiagList_Mod\n"
  },
  {
    "path": "Headers/dictionary_m.F90",
    "content": "!> \\file dictionary_m.f90\n!! \\brief Module file for dictionary_t\n\n!> Dictionary type that uses strings for the keys and values\n!!\n!! Design:\n!!  - djb2 hash function (D. J. Bernstein, see http://www.cse.yorku.ca/~oz/hash.html)\n!!  - The strings are all \"character(len=:), allocatable\" variables\n!!  - There is no linked list nor pointers, only allocatable arrays for the dynamic data structure\n!!  - set rewrites existing entries without complaining\n!!\n!!%%%BMY\n!!%%%BMY  Modified to return integer values (see !!%%%BMY comments for\n!!%%%BMY  places where the code was changed) -- Bob Yantosca (06 Dec 2019)\n!!%%%BMY\n\nmodule dictionary_m\n  implicit none\n\n  private\n\n  public :: dictionary_t\n\n  !> Single entry in the dictionary\n  type entry_t\n     character(len=:), allocatable :: key\n!!%%%BMY\n!!%%%BMY Change value type from string to integer\n!!%%%BMY     character(len=:), allocatable :: value\n!!%%%BMY\n     INTEGER :: value\n  end type entry_t\n\n  !> A bucket contains several entries\n  type bucket_t\n     type(entry_t), allocatable :: entries(:)\n     integer :: current_size = 0\n     integer :: current_idx = 0\n   contains\n     procedure :: find\n  end type bucket_t\n\n  !> The dictionary contains dict_size buckets (defined at run time)\n  type dictionary_t\n     type(bucket_t), allocatable :: buckets(:)\n     integer :: dict_size = 0\n   contains\n     procedure :: djb2\n     procedure :: set\n     procedure :: get\n     procedure :: init\n     procedure :: show\n     procedure :: destroy\n  end type dictionary_t\n\n  integer, parameter :: BUCKET_EMPTY = -2\n  integer, parameter :: BUCKET_ENTRY_NOT_FOUND = -4\n\ncontains\n\n  !> djb2 hash function\n  !!\n  !! \\param this the dictionary_t object\n  !! \\param s a string\n  !!\n  !! \\return the hash value between 0 and dict_size-1\n  function djb2(this, s) result(r)\n    class(dictionary_t), intent(in) :: this\n    character(len=*), intent(in) :: s\n    integer :: r\n\n    integer :: i, l\n\n    l = len(s)\n\n    r = 5381\n\n    do i = 1, l\n       r = r*33 + ichar(s(i:i))\n    end do\n\n    r = modulo(r, this%dict_size)\n\n  end function djb2\n\n  !> Add or replace an entry in the dictionary\n  !!\n  !! \\param this the dictionary_t object\n  !! \\param k the key\n  !! \\param v the value\n  subroutine set(this, k, v)\n    class(dictionary_t), intent(inout) :: this\n    character(len=*), intent(in) :: k\n!!%%%BMY\n!!%%%BMY Change value type from string to integer\n!!%%%BMY    character(len=*), intent(in) :: v\n!!%%%BMY\n    INTEGER, INTENT(IN) :: v\n\n    type(bucket_t) :: tmp_bucket\n\n    integer :: h, i, b_idx\n\n    h = this%djb2(k) + 1\n\n    b_idx = this%buckets(h)%find(k)\n\n    if (b_idx == BUCKET_EMPTY) then\n       ! allocate bucket for 1 entry\n       ! also, means we can take the first entry\n       allocate(this%buckets(h)%entries(1))\n       this%buckets(h)%current_size = 1\n       this%buckets(h)%current_idx = 1\n       b_idx = 1\n       this%buckets(h)%entries(1)%key = trim(k)\n!!%%%BMY\n!!%%%BMY Change value type from string to integer\n!!%%%BMY       this%buckets(h)%entries(1)%value = trim(v)\n!!%%%BMY\n       this%buckets(h)%entries(1)%value = v\n       ! the values are registered, exit\n       return\n    end if\n\n    if (b_idx == BUCKET_ENTRY_NOT_FOUND) then\n       ! copy and grow bucket entries\n\n       allocate(tmp_bucket%entries(this%buckets(h)%current_size + 1))\n       tmp_bucket%current_size = this%buckets(h)%current_size + 1\n       tmp_bucket%current_idx = this%buckets(h)%current_idx + 1\n\n       do i = 1, this%buckets(h)%current_size\n          tmp_bucket%entries(i)%key = this%buckets(h)%entries(i)%key\n          tmp_bucket%entries(i)%value = this%buckets(h)%entries(i)%value\n       end do\n\n       deallocate(this%buckets(h)%entries)\n       allocate(this%buckets(h)%entries, source=tmp_bucket%entries)\n       deallocate(tmp_bucket%entries)\n\n       this%buckets(h)%current_size = tmp_bucket%current_size\n       this%buckets(h)%current_idx = tmp_bucket%current_idx\n       b_idx = this%buckets(h)%current_idx\n    end if\n\n    if (b_idx > 0) then\n       this%buckets(h)%entries(b_idx)%key = trim(k)\n       this%buckets(h)%entries(b_idx)%value = v\n    end if\n\n  end subroutine set\n\n  !> Initialize a dictionary object\n  !!\n  !! \\param this the dictionary_t object\n  !! \\param dict_size the size of the hash table\n  subroutine init(this, dict_size)\n    class(dictionary_t), intent(out) :: this\n    integer, intent(in) :: dict_size\n\n    allocate(this%buckets(dict_size))\n    this%dict_size = dict_size\n\n  end subroutine init\n\n  !> Display the content of a dictionary\n  !!\n  !! \\param this the dictionary_t object\n  subroutine show(this)\n    class(dictionary_t), intent(in) :: this\n\n    integer :: i, j, s\n    integer :: n\n\n    n = 0\n    do i = 1, this%dict_size\n       s = this%buckets(i)%current_idx\n       if (s > 0) then\n             write(*,*) 'bucket   : ', i, ' size ', s\n          do j = 1, s\n             write(*,*) 'key      : ', this%buckets(i)%entries(j)%key\n             write(*,*) 'value    : ', this%buckets(i)%entries(j)%value\n          end do\n       end if\n    end do\n\n  end subroutine show\n\n  !> Find the \"in-bucket\" index for a given key\n  !!\n  !! Negative return values correspond to module-defined return codes.\n  !!\n  !! \\param this the bucket_t object\n  !! \\param k the key\n  !!\n  !! \\return the index (1-based) of the key in the bucket or a return code\n  function find(this, k) result(r)\n    class(bucket_t), intent(in) :: this\n    character(len=*), intent(in) :: k\n    integer :: r\n\n    integer :: i\n\n    if (this%current_size == 0) then\n       r = BUCKET_EMPTY\n       return\n    end if\n\n    r = BUCKET_ENTRY_NOT_FOUND\n    do i = 1, this%current_size\n       if (this%entries(i)%key == trim(k)) then\n          r = i\n          exit\n       end if\n    end do\n\n  end function find\n\n  !> Fetch an entry in the dictionary.\n  !!\n  !! \\param this the dictionary_t object\n  !! \\param k the key\n  !!\n  !! \\return the value if found, an empty string else\n  function get(this, k) result(r)\n    class(dictionary_t), intent(in) :: this\n    character(len=*), intent(in) :: k\n!!%%%BMY\n!!%%%BMY Change result type from string to integer\n!!%%%BMY    character(len=:), allocatable :: r\n!!%%%BMY\n    INTEGER :: r\n\n    integer :: h, b_idx\n\n    h = this%djb2(k) + 1\n\n    b_idx = this%buckets(h)%find(k)\n \n    if ( (b_idx == BUCKET_EMPTY) .or. &\n         (b_idx == BUCKET_ENTRY_NOT_FOUND) ) then\n!!%%%BMY\n!!%%%BMY Set default return to -1, to match Ind_ function\n!!%%%BMY       r = ''\n!!%%%BMY\n       r = -1\n       return\n    end if\n\n    if (b_idx>0) then\n       r = this%buckets(h)%entries(b_idx)%value\n    end if\n\n  end function get\n\n!%%%BMY !> Free a dictionary object\n!%%%BMY !!\n!%%%BMY !! \\param this the dictionary_t object\n!%%%BMY !! \\param dict_size the size of the hash table\n  subroutine destroy(this)\n    class(dictionary_t), intent(inout) :: this\n\n    if ( allocated( this%buckets ) ) then\n       deallocate( this%buckets )\n    endif\n\n  end subroutine destroy\n\nend module dictionary_m\n"
  },
  {
    "path": "Headers/errcode_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: errcode_mod.F90\n!\n! !DESCRIPTION: Module ERRCODE\\_MOD contains the error codes (i.e. that\n!  report success or failure) returned by GEOS-Chem routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE ErrCode_Mod\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: GC_Error\n  PUBLIC :: GC_Warning\n  PUBLIC :: GC_CheckVar\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER, PUBLIC, PARAMETER :: GC_SUCCESS =  0   ! Routine returns success\n  INTEGER, PUBLIC, PARAMETER :: GC_FAILURE = -1   ! Routine returns failure\n!\n! !REMARKS:\n!  The error codes are returned by routines at various levels of GEOS-Chem.\n!\n! !REVISION HISTORY:\n!  19 Oct 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GC_Error\n!\n! !DESCRIPTION: Subroutine GC\\_Error prints an error message and sets RC to\n!  GC\\_FAILURE. Note that this routine does not stop a run, but it will cause\n!  a stop at a higher level if you add a catch for RC /= GC\\_SUCCESS.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_Error( ErrMsg, RC, ThisLoc, Instr )\n!\n! !USES:\n!\n    USE Charpak_Mod,    ONLY : WordWrapPrint\n#if defined( MODEL_CESM )\n    USE CAM_ABORTUTILS, ONLY : ENDRUN\n#endif\n#if defined( ESMF_ )\n#include \"MAPL_Generic.h\"\n    USE ESMF\n    USE MAPL_Mod\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN   )            :: ErrMsg  ! Message to display\n    CHARACTER(LEN=*), INTENT(IN   ), OPTIONAL  :: ThisLoc ! Location of error\n    CHARACTER(LEN=*), INTENT(IN   ), OPTIONAL  :: Instr   ! Other instructions\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)            :: RC      ! Error code\n!\n! !REVISION HISTORY:\n!  13 Aug 2015 - E. Lundgren - Initial version, based on C. Keller's HCO_ERROR\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    CHARACTER(LEN=1000) :: Message\n#if defined( ESMF_)\n    INTEGER             :: localPET, STATUS\n    CHARACTER(4)        :: localPETchar\n    CHARACTER(LEN=1023) :: MSG, MSG1, MSG2\n    TYPE(ESMF_VM)       :: VM\n#endif\n    !=======================================================================\n    ! GC_ERROR begins here\n    !=======================================================================\n\n    ! Construct error message\n#if defined( ESMF_ )\n    ! Get current thread number\n    CALL ESMF_VMGetCurrent(VM, RC=STATUS)\n    CALL ESMF_VmGet( VM, localPET=localPET, __RC__ )\n    WRITE(localPETchar,'(I4.4)') localPET\n    MSG1 = 'GEOS-Chem ERROR ['//TRIM(localPETchar)//']: '//TRIM(ErrMsg)\n    MSG2 = ''\n    IF ( PRESENT(THISLOC) ) THEN\n       MSG2 = NEW_LINE('a') // ' --> LOCATION: ' // TRIM( THISLOC )\n    ENDIF\n    MSG = NEW_LINE('a') // TRIM(MSG1) // TRIM(MSG2)\n\n    ! Print error message\n    WRITE(*,*) TRIM(MSG)\n#else\n\n    ! Separator\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    ! Print error message to log\n    Message =  'GEOS-Chem ERROR: ' // TRIM( ErrMsg )\n    CALL WordWrapPrint( Message, 78 )\n\n    ! Print error location to log\n    IF ( PRESENT( ThisLoc ) ) THEN\n       Message = 'ERROR LOCATION: ' // TRIM( ThisLoc )\n       WRITE( 6, '(a)' ) TRIM( ThisLoc )\n    ENDIF\n\n    ! Print additional instructions to log\n    IF ( PRESENT( Instr ) ) THEN\n       WRITE( 6, '(a)' )\n       CALL WordWrapPrint( Instr, 78 )\n    ENDIF\n\n    ! Separators\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    WRITE( 6, '(a)' ) ''\n#endif\n\n    ! Force the message to be flushed to the log file\n    CALL Flush( 6 )\n\n#if defined( MODEL_CESM )\n    CALL ENDRUN('GEOS-Chem failure!')\n#endif\n\n    ! Return with failure, but preserve existing error code\n    IF ( RC == GC_SUCCESS ) THEN\n       RC = GC_FAILURE\n    ENDIF\n\n  END SUBROUTINE GC_Error\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GC_Warning\n!\n! !DESCRIPTION: Subroutine GC\\_Warning prints an warning (i.e. non-fatal\n!  error message) and sets RC to GC\\_SUCCESS.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_Warning( WarnMsg, RC, ThisLoc, Instr )\n!\n! !USES:\n!\n    USE Charpak_Mod, ONLY : WordWrapPrint\n!!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN   )            :: WarnMsg ! Message to display\n    CHARACTER(LEN=*), INTENT(IN   ), OPTIONAL  :: ThisLoc ! Location of warning\n    CHARACTER(LEN=*), INTENT(IN   ), OPTIONAL  :: Instr   ! Other instructions\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)            :: RC\n!\n! !REVISION HISTORY:\n!  13 Aug 2015 - E. Lundgren - Initial version, based on C. Keller's HCO_ERROR\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    CHARACTER(LEN=1000) :: Message\n\n    !=======================================================================\n    ! GC_ERROR begins here\n    !=======================================================================\n\n    ! Separator\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n    ! Print error message to log\n    Message =  'GEOS-Chem WARNING: ' // TRIM( WarnMsg )\n    CALL WordWrapPrint( Message, 78 )\n\n    ! Print error location to log\n    IF ( PRESENT( ThisLoc ) ) THEN\n       Message = 'WARNING LOCATION: ' // TRIM( ThisLoc )\n       WRITE( 6, '(a)' ) TRIM( ThisLoc )\n    ENDIF\n\n    ! Print additional instructions to log\n    IF ( PRESENT( Instr ) ) THEN\n       WRITE( 6, '(a)' )\n       CALL WordWrapPrint( Instr, 78 )\n    ENDIF\n\n    ! Separators\n    WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    WRITE( 6, '(a)' ) ''\n\n    ! Force the message to be flushed to the log file\n    CALL Flush( 6 )\n\n    ! Return with success, since this is only a warning message\n    RC = GC_SUCCESS\n\n  END SUBROUTINE GC_Warning\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GC_CheckVar\n!\n! !DESCRIPTION: Wrapper routine for GC\\_Error.  Prints an error message\n!  if there is an allocation or registration error.  This is intended to\n!  be called from the state initialization method (e.g. Init\\_State\\_Met).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GC_CheckVar( Variable, Operation, RC )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: Variable   ! Name of variable to check\n    INTEGER,          INTENT(IN)    :: Operation  ! 0=Allocate\n                                                  ! 1=Register\n                                                  ! 2=Deallocate\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC         ! Success or failure\n!\n! !REMARKS:\n!  You also need to add an\n!    IF ( RC /= GC_SUCCESS ) RETURN\n!  from the calling routine for proper error handling.\n!\n! !REVISION HISTORY:\n!  27 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  ! Strings\n  CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n  !=========================================================================\n  ! Initialize\n  !=========================================================================\n\n  ! Define error message\n  SELECT CASE( Operation )\n     CASE( 1 )\n        ErrMsg = 'Could not register '   // TRIM( Variable ) // '!'\n     CASE( 2 )\n        ErrMsg = 'Could not deallocate ' // TRIM( Variable ) // '!'\n     CASE DEFAULT\n        ErrMsg = 'Could not allocate '   // TRIM( Variable ) // '!'\n  END SELECT\n\n  ! Define location string\n  ThisLoc   = ' -> at GC_CheckVar (in Headers/errcode_mod.F90)'\n\n  !=========================================================================\n  ! Display error message if necessary\n  !=========================================================================\n  IF ( RC /= GC_SUCCESS ) THEN\n     CALL GC_Error( ErrMsg, RC, ThisLoc )\n  ENDIF\n\n  END SUBROUTINE GC_CheckVar\n!EOC\nEND MODULE ErrCode_Mod\n\n"
  },
  {
    "path": "Headers/input_opt_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: input_opt_mod.F90\n!\n! !DESCRIPTION: Module INPUT\\_OPT\\_MOD contains the derived type for GEOS-Chem\n!  options and logical switches.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Input_Opt_Mod\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n#if defined( ESMF_ )\n    USE pFlogger\n#endif\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Set_Input_Opt\n  PUBLIC :: Cleanup_Input_Opt\n!\n! !PUBLIC DATA MEMBERS:\n!\n  !=========================================================================\n  ! Derived type for Input Options\n  !=========================================================================\n  TYPE, PUBLIC :: OptInput\n\n     !----------------------------------------\n     ! General Runtime & Distributed Comp Info\n     !----------------------------------------\n     INTEGER                     :: numCPUs    ! Number of MPI procs\n     INTEGER                     :: thisCPU    ! Local MPI process handle\n     INTEGER                     :: MPIComm    ! MPI Communicator Handle\n     LOGICAL                     :: isMPI      ! Is this an MPI sim?\n     LOGICAL                     :: amIRoot    ! Is this the root cpu?\n\n     !----------------------------------------\n     ! Dry run info (print out file names)\n     !----------------------------------------\n     LOGICAL                     :: DryRun     ! Is this a dry run?\n\n     !----------------------------------------\n     ! SIZE PARAMETER fields\n     !----------------------------------------\n     INTEGER                     :: Max_Families\n     INTEGER                     :: Max_AdvectSpc\n\n     !----------------------------------------\n     ! SIMULATION MENU fields\n     !----------------------------------------\n     INTEGER                     :: NYMDb\n     INTEGER                     :: NHMSb\n     INTEGER                     :: NYMDe\n     INTEGER                     :: NHMSe\n     INTEGER                     :: SimLengthSec\n     CHARACTER(LEN=255)          :: RUN_DIR\n     CHARACTER(LEN=255)          :: DATA_DIR\n     CHARACTER(LEN=255)          :: CHEM_INPUTS_DIR\n     CHARACTER(LEN=255)          :: MetField\n     CHARACTER(LEN=255)          :: SimulationName\n     CHARACTER(LEN=255)          :: SpcDatabaseFile\n     CHARACTER(LEN=255)          :: SpcMetaDataOutFile\n     LOGICAL                     :: ITS_AN_AEROSOL_SIM\n     LOGICAL                     :: ITS_A_CARBON_SIM\n     LOGICAL                     :: ITS_A_FULLCHEM_SIM\n     LOGICAL                     :: ITS_A_MERCURY_SIM\n     LOGICAL                     :: ITS_A_POPS_SIM\n     LOGICAL                     :: ITS_A_TAGO3_SIM\n     LOGICAL                     :: ITS_A_TRACEMETAL_SIM\n     LOGICAL                     :: ITS_A_TRACER_SIM\n     LOGICAL                     :: VerboseRequested\n     CHARACTER(LEN=10)           :: VerboseOnCores\n     LOGICAL                     :: Verbose\n     LOGICAL                     :: useTimers\n     LOGICAL                     :: read_restart_as_real8\n\n     !----------------------------------------\n     ! ADVECTED SPECIES MENU fields\n     !----------------------------------------\n     INTEGER                     :: N_ADVECT\n     CHARACTER(LEN=255), POINTER :: AdvectSpc_Name(:)\n     LOGICAL                     :: LSPLIT\n\n     !----------------------------------------\n     ! AEROSOL MENU fields\n     !----------------------------------------\n     CHARACTER(LEN=255)          :: AER_OPTICS_DIR\n     LOGICAL                     :: LSULF\n     LOGICAL                     :: LMETALCATSO2\n     LOGICAL                     :: LCARB\n     LOGICAL                     :: LBRC\n     LOGICAL                     :: LSOA\n     LOGICAL                     :: LMPOA\n     LOGICAL                     :: LSVPOA\n     LOGICAL                     :: LDUST\n     LOGICAL                     :: LDEAD\n     LOGICAL                     :: LSSALT\n     LOGICAL                     :: LDSTUP\n     REAL(fp),           POINTER :: SALA_REDGE_um(:)\n     REAL(fp),           POINTER :: SALC_REDGE_um(:)\n     LOGICAL                     :: LGRAVSTRAT\n     LOGICAL                     :: LSOLIDPSC\n     LOGICAL                     :: LHOMNUCNAT\n     REAL(fp)                    :: T_NAT_SUPERCOOL\n     REAL(fp)                    :: P_ICE_SUPERSAT\n     LOGICAL                     :: LPSCCHEM\n     LOGICAL                     :: LSTRATOD\n     !for BC absorption enhancement, (xnw, 8/24/15)\n     LOGICAL                     :: LBCAE\n     REAL(fp)                    :: BCAE_1\n     REAL(fp)                    :: BCAE_2\n\n     !----------------------------------------\n     ! EMISSIONS fields\n     !----------------------------------------\n     LOGICAL                     :: DoEmissions\n     INTEGER                     :: TS_EMIS\n     LOGICAL                     :: LBIOFUEL\n     LOGICAL                     :: LOTDLOC\n     LOGICAL                     :: LSOILNOX\n     LOGICAL                     :: LCH4SBC\n     LOGICAL                     :: LSETH2O\n     LOGICAL                     :: LStaticH2OBC\n     LOGICAL                     :: LHCodedOrgHal\n     LOGICAL                     :: LCMIP6OrgHal\n     LOGICAL                     :: DoLightNOx ! Shadow for LightNOX extension\n     LOGICAL                     :: UseSoilTemp\n\n     ! For HEMCO \"intermediate\" grid (hplin, 6/2/20)\n     LOGICAL                     :: LIMGRID    ! Use different grid resolution for HEMCO?\n     INTEGER                     :: IMGRID_XSCALE\n     INTEGER                     :: IMGRID_YSCALE\n\n     !----------------------------------------\n     ! CO MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LPCO_CH4\n     LOGICAL                     :: LPCO_NMVOC\n\n     !----------------------------------------\n     ! CO2 MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LCHEMCO2\n     LOGICAL                     :: LBIOSPHTAG\n     LOGICAL                     :: LFOSSILTAG\n\n     !----------------------------------------\n     ! CHEMISTRY MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LCHEM\n     LOGICAL                     :: LINEAR_CHEM\n     LOGICAL                     :: LLINOZ\n     LOGICAL                     :: LSYNOZ\n     INTEGER                     :: TS_CHEM\n     REAL(fp)                    :: GAMMA_HO2\n     LOGICAL                     :: LACTIVEH2O\n     LOGICAL                     :: LINITSPEC\n     LOGICAL                     :: USE_AUTOREDUCE\n     LOGICAL                     :: AUTOREDUCE_IS_KEEPACTIVE\n     LOGICAL                     :: AUTOREDUCE_IS_KEY_THRESHOLD\n     LOGICAL                     :: AUTOREDUCE_IS_PRS_THRESHOLD\n     LOGICAL                     :: AUTOREDUCE_IS_APPEND\n     REAL(f8)                    :: AUTOREDUCE_THRESHOLD\n     REAL(f8)                    :: AUTOREDUCE_TUNING_OH\n     REAL(f8)                    :: AUTOREDUCE_TUNING_NO2\n#ifdef MODEL_GEOS\n     LOGICAL                     :: LGMIOZ\n#endif\n\n     !----------------------------------------\n     ! PHOTOLYSIS MENU fields\n     !----------------------------------------\n     LOGICAL                     :: Do_Photolysis\n     CHARACTER(LEN=255)          :: FAST_JX_DIR\n     CHARACTER(LEN=255)          :: CloudJ_Dir\n     INTEGER                     :: Nlevs_Phot_Cloud   ! Cloud-J var LWEPAR\n     INTEGER                     :: Cloud_Flag         ! Cloud-J var CLDFLAG\n     REAL(fp)                    :: OD_Increase_Factor ! Cloud-J var ATAU\n     REAL(fp)                    :: Min_Cloud_OD       ! Cloud-J var ATAU0\n     REAL(fp)                    :: Cloud_Corr         ! Cloud-J var CLDCOR\n     INTEGER                     :: Num_Max_Overlap    ! Cloud-J var LNRG\n     INTEGER                     :: Sphere_Correction  ! Cloud-J var ATM0\n     INTEGER                     :: Num_WV_Bins        ! Cloud-J var NWBIN\n     LOGICAL                     :: USE_H2O_UV_Abs     ! Cloud-J var USEH2OUV\n     LOGICAL                     :: USE_ONLINE_O3\n     LOGICAL                     :: USE_O3_FROM_MET\n     LOGICAL                     :: USE_TOMS_O3\n     LOGICAL                     :: CloudJ_Verbose     ! sets Cloud-J var LPRTJ\n     LOGICAL                     :: hvAerNIT\n     REAL(fp)                    :: hvAerNIT_JNIT\n     REAL(fp)                    :: hvAerNIT_JNITs\n     REAL(fp)                    :: JNITChanA\n     REAL(fp)                    :: JNITChanB\n\n     !----------------------------------------\n     ! RADIATION MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LRAD\n     LOGICAL                     :: LLWRAD\n     LOGICAL                     :: LSWRAD\n     LOGICAL,            POINTER :: LSKYRAD(:)\n     INTEGER                     :: TS_RAD\n     INTEGER                     :: NWVSELECT\n     REAL(8),            POINTER :: WVSELECT(:)\n     CHARACTER(LEN=5),   POINTER :: STRWVSELECT(:)\n     INTEGER                     :: NSPECRADMENU\n     INTEGER,            POINTER :: LSPECRADMENU(:)\n     REAL(8)                     :: RRTMG_CO2_ppmv\n     LOGICAL                     :: RRTMG_FDH\n     LOGICAL                     :: RRTMG_SEFDH\n     LOGICAL                     :: RRTMG_SA_TOA\n     LOGICAL                     :: Read_Dyn_Heating\n\n     !----------------------------------------\n     ! TRANSPORT MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LTRAN\n     LOGICAL                     :: LFILL\n     INTEGER                     :: TPCORE_IORD\n     INTEGER                     :: TPCORE_JORD\n     INTEGER                     :: TPCORE_KORD\n     INTEGER                     :: TS_DYN\n\n     !----------------------------------------\n     ! CONVECTION MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LCONV\n     LOGICAL                     :: LTURB\n     LOGICAL                     :: LNLPBL\n     LOGICAL                     :: Grell_Freitas_Convection\n     INTEGER                     :: TS_CONV\n\n     !----------------------------------------\n     ! DEPOSITION MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LDRYD\n     LOGICAL                     :: LWETD\n     REAL(fp)                    :: WETD_CONV_SCAL\n     LOGICAL                     :: PBL_DRYDEP\n     LOGICAL                     :: CO2_EFFECT\n     REAL(fp)                    :: CO2_LEVEL\n     REAL(fp)                    :: CO2_REF\n     REAL(fp)                    :: RS_SCALE\n     INTEGER                     :: RA_Alt_Above_Sfc\n\n     !----------------------------------------\n     ! GAMAP MENU fields\n     !----------------------------------------\n     CHARACTER(LEN=255)          :: GAMAP_DIAGINFO\n     CHARACTER(LEN=255)          :: GAMAP_TRACERINFO\n\n     !----------------------------------------\n     ! OUTPUT MENU fields\n     !----------------------------------------\n     INTEGER,            POINTER :: NJDAY(:)\n\n     !----------------------------------------\n     ! DIAGNOSTIC MENU fields\n     !----------------------------------------\n     CHARACTER(LEN=255)          :: HistoryInputFile\n     INTEGER                     :: DIAG_COLLECTION\n     INTEGER                     :: GC_RST_COLLECTION ! Used only for NetCDF\n\n     !----------------------------------------\n     ! PLANEFLIGHT MENU fields\n     !----------------------------------------\n     LOGICAL                     :: Do_Planeflight\n     CHARACTER(LEN=255)          :: Planeflight_InFile\n     CHARACTER(LEN=255)          :: Planeflight_OutFile\n\n     !----------------------------------------\n     ! OBSPACK MENU fields\n     !----------------------------------------\n     LOGICAL                     :: Do_ObsPack\n     LOGICAL                     :: ObsPack_Quiet\n     CHARACTER(LEN=255)          :: ObsPack_InputFile\n     CHARACTER(LEN=255)          :: ObsPack_OutputFile\n     INTEGER                     :: ObsPack_nSpc\n     CHARACTER(LEN=255), POINTER :: ObsPack_SpcName(:)\n\n     !----------------------------------------\n     ! ND51 MENU fields\n     !----------------------------------------\n     LOGICAL                     :: DO_ND51\n     INTEGER                     :: N_ND51\n     CHARACTER(LEN=255)          :: ND51_FILE\n     INTEGER,            POINTER :: ND51_TRACERS(:)\n     REAL(fp)                    :: ND51_HR_WRITE\n     REAL(fp)                    :: ND51_HR1\n     REAL(fp)                    :: ND51_HR2\n     INTEGER                     :: ND51_IMIN\n     INTEGER                     :: ND51_IMAX\n     INTEGER                     :: ND51_JMIN\n     INTEGER                     :: ND51_JMAX\n     INTEGER                     :: ND51_LMIN\n     INTEGER                     :: ND51_LMAX\n\n     !----------------------------------------\n     ! ND51b MENU fields\n     !----------------------------------------\n     LOGICAL                     :: DO_ND51b\n     INTEGER                     :: N_ND51b\n     CHARACTER(LEN=255)          :: ND51b_FILE\n     INTEGER,            POINTER :: ND51b_TRACERS(:)\n     REAL(fp)                    :: ND51b_HR_WRITE\n     REAL(fp)                    :: ND51b_HR1\n     REAL(fp)                    :: ND51b_HR2\n     INTEGER                     :: ND51b_IMIN\n     INTEGER                     :: ND51b_IMAX\n     INTEGER                     :: ND51b_JMIN\n     INTEGER                     :: ND51b_JMAX\n     INTEGER                     :: ND51b_LMIN\n     INTEGER                     :: ND51b_LMAX\n\n     !----------------------------------------\n     ! PROD LOSS MENU fields\n     !----------------------------------------\n     LOGICAL                     :: DO_SAVE_PL\n     INTEGER                     :: ND65, LD65\n     INTEGER                     :: NFAM\n     CHARACTER(LEN=255), POINTER :: FAM_NAME(:)\n     CHARACTER(LEN=255), POINTER :: FAM_TYPE(:)\n\n     !----------------------------------------\n     ! BENCHMARK MENU fields\n     !----------------------------------------\n     LOGICAL                     :: LSTDRUN\n     CHARACTER(LEN=255)          :: STDRUN_INIT_FILE\n     CHARACTER(LEN=255)          :: STDRUN_FINAL_FILE\n\n     !----------------------------------------\n     ! MERCURY MENU fields\n     !----------------------------------------\n     INTEGER                     :: ANTHRO_Hg_YEAR\n     CHARACTER(LEN=255)          :: HG_SCENARIO\n     LOGICAL                     :: USE_CHECKS\n     LOGICAL                     :: LDYNOCEAN\n     LOGICAL                     :: LPREINDHG\n     LOGICAL                     :: LGTMM\n     CHARACTER(LEN=255)          :: GTMM_RST_FILE\n     LOGICAL                     :: LARCTICRIV\n     LOGICAL                     :: LKRedUV\n\n     !----------------------------------------\n     ! CH4 MENU fields\n     !----------------------------------------\n     LOGICAL                     :: Satellite_CH4_Columns\n     LOGICAL                     :: GOSAT_CH4_OBS\n     LOGICAL                     :: AIRS_CH4_OBS\n     LOGICAL                     :: TCCON_CH4_OBS\n     LOGICAL                     :: DoAnalyticalInv\n     INTEGER                     :: StateVectorElement\n     REAL(fp)                    :: EmisPerturbFactor\n     LOGICAL                     :: DoPerturbCH4BoundaryConditions\n     REAL(fp)                    :: CH4BoundaryConditionIncreaseNorth\n     REAL(fp)                    :: CH4BoundaryConditionIncreaseSouth\n     REAL(fp)                    :: CH4BoundaryConditionIncreaseEast\n     REAL(fp)                    :: CH4BoundaryConditionIncreaseWest\n     LOGICAL                     :: UseEmisSF\n     LOGICAL                     :: UseOHSF\n\n     !----------------------------------------\n     ! POPS MENU fields\n     !----------------------------------------\n     CHARACTER(LEN=3)            :: POP_TYPE\n     LOGICAL                     :: CHEM_PROCESS\n     REAL(fp)                    :: POP_XMW\n     REAL(fp)                    :: POP_KOA\n     REAL(fp)                    :: POP_KBC\n     REAL(fp)                    :: POP_K_POPG_OH\n     REAL(fp)                    :: POP_K_POPP_O3A\n     REAL(fp)                    :: POP_K_POPP_O3B\n     REAL(fp)                    :: POP_HSTAR\n     REAL(fp)                    :: POP_DEL_H\n     REAL(fp)                    :: POP_DEL_Hw\n\n     !----------------------------------------\n     ! Fields for interface to GEOS-5 GCM\n     !----------------------------------------\n#ifdef MODEL_GEOS\n     LOGICAL                     :: LCAPTROP     = .FALSE.\n     !REAL(fp)                    :: OZONOPAUSE   = -999.0\n     LOGICAL                     :: haveImpRst   = .FALSE.\n     LOGICAL                     :: AlwaysSetH2O = .TRUE.\n     LOGICAL                     :: UseOnlineVUD = .FALSE.\n     INTEGER                     :: LLFASTJX     = 601\n     INTEGER                     :: NN_RxnRates             ! # of diagnosed reaction rates\n     INTEGER, POINTER            :: RxnRates_IDs(:)         ! Reaction rate numbers to be diagnosed\n     INTEGER                     :: NN_RxnRconst            ! # of diagnosed reaction rates\n     INTEGER, POINTER            :: RxnRconst_IDs(:)        ! Reaction rate numbers to be diagnosed\n     INTEGER                     :: NN_Jvals                ! # of diagnosed Jvalues\n     INTEGER, POINTER            :: Jval_IDs(:)             ! J-values to be diagnosed\n     INTEGER                     :: FJX_EXTRAL_ITERMAX = 5\n     LOGICAL                     :: FJX_EXTRAL_ERR     = .TRUE.\n     ! Toggle for het rates. If true, turns off three Cl producing het reactions\n     ! in the stratosphere. In MODEL_GEOS, this flag is set in GEOSCHEMchem_GridComp.rc\n     LOGICAL                     :: TurnOffHetRates    = .TRUE.\n     INTEGER                     :: KppCheckNegatives  = -1      ! Check for negatives after KPP integration\n     REAL(fp)                    :: KppTolScale        = 1.0_fp  ! Tolerance scale factor for 2nd KPP integration\n     LOGICAL                     :: applyQtend         = .FALSE. ! Apply water vapor tendency\n     LOGICAL                     :: GC_VMBarrier_Run2  = .FALSE. ! Flag for a parallelization barrier after Chem\n#else\n     LOGICAL                     :: AlwaysSetH2O\n     LOGICAL                     :: TurnOffHetRates\n#endif\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n     LOGICAL                     :: KppStop            = .TRUE. ! Stop KPP if integration fails twice\n#endif\n\n#if defined( MODEL_CESM )\n     ! Use albedo from land model\n     LOGICAL                     :: onlineAlbedo       = .TRUE.\n     ! Apply water vapor tendency to specific humidity\n     LOGICAL                     :: applyQtend         = .TRUE.\n     ! Apply photolytic correction for convective scavenging of soluble tracers?\n     LOGICAL                     :: correctConvUTLS    = .TRUE.\n#endif\n\n#ifdef ADJOINT\n     !----------------------------------------\n     ! GCHP adjoint fields\n     !---------------------------------------\n     LOGICAL                     :: IS_ADJOINT\n     LOGICAL                     :: IS_FD_SPOT, IS_FD_GLOBAL\n     INTEGER                     :: FD_STEP\n     LOGICAL                     :: IS_FD_SPOT_THIS_PET\n     INTEGER                     :: IFD, JFD, NFD, LFD, NFD_ADJ\n     INTEGER                     :: CF_IMIN, CF_IMAX\n     INTEGER                     :: CF_JMIN, CF_JMAX\n     INTEGER                     :: CF_LMIN, CF_LMAX\n#endif\n\n     !----------------------------------------\n     ! Fields for LINOZ strat chem\n     !----------------------------------------\n     INTEGER                     :: LINOZ_NLEVELS\n     INTEGER                     :: LINOZ_NLAT\n     INTEGER                     :: LINOZ_NMONTHS\n     INTEGER                     :: LINOZ_NFIELDS\n     REAL(fp),           POINTER :: LINOZ_TPARM(:,:,:,:)\n\n#if defined( ESMF_ )\n     ! ESMF logger\n     class(Logger), pointer      :: lgr\n     Character(Len=255)          :: compname\n#endif\n\n  END TYPE OptInput\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Set_Input_Opt\n!\n! !DESCRIPTION: Subroutine SET\\_INPUT\\_OPT intializes all GEOS-Chem\n!  options carried in Input Options derived type object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Set_Input_Opt( am_I_Root, Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)    :: am_I_Root   ! Are we on the root CPU?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  01 Nov 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=30) :: arrayId\n\n    !----------------------------------------\n    ! Initialize\n    ! Set pointers to NULL for safety's sake\n    !----------------------------------------\n    RC                               =  GC_SUCCESS\n    Input_Opt%AdvectSpc_Name         => NULL()\n    Input_Opt%SALA_REDGE_um          => NULL()\n    Input_Opt%SALC_REDGE_um          => NULL()\n    Input_Opt%LSKYRAD                => NULL()\n    Input_Opt%LSPECRADMENU           => NULL()\n    Input_Opt%LINOZ_TPARM            => NULL()\n\n    !----------------------------------------\n    ! General Runtime & Distributed Comp Info\n    !----------------------------------------\n    Input_Opt%amIRoot                = am_I_Root\n    Input_Opt%isMPI                  = .FALSE.\n    Input_Opt%numCPUs                = 1\n    Input_Opt%thisCPU                = -1\n    Input_Opt%MPIComm                = -1\n\n    !----------------------------------------\n    ! Dry run info (print out file names)\n    !----------------------------------------\n    Input_Opt%DryRun                 = .FALSE.\n\n    !----------------------------------------\n    ! SIZE PARAMETER fields\n    !\n    ! Set to large placeholder values\n    !----------------------------------------\n    Input_Opt%Max_Families           = 250\n    Input_Opt%Max_AdvectSpc          = 600\n\n    !----------------------------------------\n    ! SIMULATION MENU fields\n    !----------------------------------------\n    Input_Opt%NYMDb                  = 0\n    Input_Opt%NHMSb                  = 0\n    Input_Opt%NYMDe                  = 0\n    Input_Opt%NHMSe                  = 0\n    Input_Opt%SimLengthSec           = 0\n    Input_Opt%RUN_DIR                = './'\n    Input_Opt%DATA_DIR               = './'\n    Input_Opt%CHEM_INPUTS_DIR        = './'\n    Input_Opt%MetField               = ''\n    Input_Opt%SimulationName         = ''\n    Input_Opt%SpcDatabaseFile        = ''\n    Input_Opt%SpcMetaDataOutFile     = ''\n    Input_Opt%ITS_AN_AEROSOL_SIM     = .FALSE.\n    Input_Opt%ITS_A_CARBON_SIM       = .FALSE.\n    Input_Opt%ITS_A_FULLCHEM_SIM     = .FALSE.\n    Input_Opt%ITS_A_MERCURY_SIM      = .FALSE.\n    Input_Opt%ITS_A_POPS_SIM         = .FALSE.\n    Input_Opt%ITS_A_TAGO3_SIM        = .FALSE.\n    Input_Opt%ITS_A_TRACEMETAL_SIM   = .FALSE.\n    Input_Opt%ITS_A_TRACER_SIM       = .FALSE.\n    Input_Opt%VerboseRequested       = .FALSE.\n    Input_Opt%VerboseOnCores         = ''\n    Input_Opt%Verbose                = .FALSE.\n    Input_Opt%useTimers              = .FALSE.\n    Input_Opt%read_restart_as_real8  = .FALSE.\n\n    !----------------------------------------\n    ! ADVECTED SPECIES MENU fields\n    !----------------------------------------\n    arrayId = 'Input_Opt%AdvectSpc_Name'\n    ALLOCATE( Input_Opt%AdvectSpc_Name( Input_Opt%Max_AdvectSpc ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    Input_Opt%N_ADVECT               = 0\n    Input_Opt%AdvectSpc_Name         = ''\n    Input_Opt%LSPLIT                 = .FALSE.\n\n    !----------------------------------------\n    ! AEROSOL MENU fields\n    !----------------------------------------\n    arrayId = 'Input_Opt%SALA_REDGE_um'\n    ALLOCATE( Input_Opt%SALA_REDGE_um( 2 ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    arrayId = 'Input_Opt%SALC_REDGE_um'\n    ALLOCATE( Input_Opt%SALC_REDGE_um( 2 ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    Input_Opt%AER_OPTICS_DIR         = ''\n    Input_Opt%LSULF                  = .FALSE.\n    Input_Opt%LMETALCATSO2           = .FALSE.\n    Input_Opt%LCARB                  = .FALSE.\n    Input_Opt%LBRC                   = .FALSE.\n    Input_Opt%LSOA                   = .FALSE.\n    Input_Opt%LMPOA                  = .FALSE.\n    Input_Opt%LSVPOA                 = .FALSE.\n    Input_Opt%LDUST                  = .FALSE.\n    Input_Opt%LDEAD                  = .FALSE.\n    Input_Opt%LDSTUP                 = .FALSE.\n    Input_Opt%LSSALT                 = .FALSE.\n    Input_Opt%SALA_REDGE_um          = 0.0_fp\n    Input_Opt%SALC_REDGE_um          = 0.0_fp\n    Input_Opt%LGRAVSTRAT             = .FALSE.\n    Input_Opt%LSOLIDPSC              = .FALSE.\n    Input_Opt%LHOMNUCNAT             = .FALSE.\n    Input_Opt%T_NAT_SUPERCOOL        = 0.0_fp\n    Input_Opt%P_ICE_SUPERSAT         = 0.0_fp\n    Input_Opt%LPSCCHEM               = .FALSE.\n    Input_Opt%LSTRATOD               = .FALSE.\n\n    !----------------------------------------\n    ! EMISSIONS MENU fields\n    !----------------------------------------\n    Input_Opt%DoEmissions            = .TRUE. ! On by default\n    Input_Opt%TS_EMIS                = 0\n    Input_Opt%LSOILNOX               = .FALSE.\n    Input_Opt%LCH4SBC                = .FALSE.\n    Input_Opt%LSETH2O                = .FALSE.\n    Input_Opt%LStaticH2OBC           = .FALSE.\n    Input_Opt%LHCodedOrgHal          = .FALSE.\n    Input_Opt%LCMIP6OrgHal           = .FALSE.\n    Input_Opt%DoLightNOx             = .FALSE.\n    Input_Opt%UseSoilTemp            = .FALSE.\n    Input_Opt%LIMGRID                = .FALSE.\n    Input_Opt%IMGRID_XSCALE          = 1\n    Input_Opt%IMGRID_YSCALE          = 1\n\n    !----------------------------------------\n    ! CO MENU fields\n    !----------------------------------------\n    Input_Opt%LPCO_CH4               = .FALSE.\n    Input_Opt%LPCO_NMVOC             = .FALSE.\n\n    !----------------------------------------\n    ! CO2 MENU fields\n    !----------------------------------------\n    Input_Opt%LCHEMCO2               = .FALSE.\n    Input_Opt%LBIOSPHTAG             = .FALSE.\n    Input_Opt%LFOSSILTAG             = .FALSE.\n\n    !----------------------------------------\n    ! CHEMISTRY MENU fields\n    !----------------------------------------\n    Input_Opt%LCHEM                  = .FALSE.\n    Input_Opt%LINEAR_CHEM            = .FALSE.\n    Input_Opt%LLINOZ                 = .FALSE.\n    Input_Opt%LSYNOZ                 = .FALSE.\n#ifdef MODEL_GEOS\n    Input_Opt%LGMIOZ                 = .FALSE.\n#endif\n    Input_Opt%TS_CHEM                = 0\n    Input_Opt%GAMMA_HO2              = 0.0_fp\n    Input_Opt%LACTIVEH2O             = .FALSE.\n    Input_Opt%LINITSPEC              = .FALSE.\n\n    Input_Opt%USE_AUTOREDUCE                = .FALSE.\n    Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD   = .TRUE.\n    Input_Opt%AUTOREDUCE_TUNING_OH          = 5e-5_fp\n    Input_Opt%AUTOREDUCE_TUNING_NO2         = 1e-4_fp\n    Input_Opt%AUTOREDUCE_IS_PRS_THRESHOLD   = .TRUE.\n    Input_Opt%AUTOREDUCE_IS_KEEPACTIVE      = .FALSE.\n    Input_Opt%AUTOREDUCE_IS_APPEND          = .FALSE.\n\n    !----------------------------------------\n    ! PHOTOLYSIS MENU fields\n    !----------------------------------------\n    Input_Opt%Do_Photolysis         = .FALSE.\n    Input_Opt%FAST_JX_DIR           = ''\n    Input_Opt%CloudJ_Dir            = ''\n    Input_Opt%Nlevs_Phot_Cloud      = 0\n    Input_Opt%Cloud_Flag            = 0\n    Input_Opt%OD_Increase_Factor    = 0.0_fp\n    Input_Opt%Min_Cloud_OD          = 0.0_fp\n    Input_Opt%Cloud_Corr            = 0\n    Input_Opt%Num_Max_Overlap       = 0\n    Input_Opt%Sphere_Correction     = 0\n    Input_Opt%Num_WV_Bins           = 0\n    Input_Opt%USE_H2O_UV_Abs        = .FALSE.\n    Input_Opt%USE_ONLINE_O3         = .FALSE.\n    Input_Opt%USE_O3_FROM_MET       = .FALSE.\n    Input_Opt%USE_TOMS_O3           = .FALSE.\n    Input_Opt%hvAerNIT              = .FALSE.\n    Input_Opt%CloudJ_Verbose        = .FALSE.\n    Input_Opt%hvAerNIT_JNIT         = 0.0_fp\n    Input_Opt%hvAerNIT_JNITs        = 0.0_fp\n    Input_Opt%JNITChanA             = 0.0_fp\n    Input_Opt%JNITChanB             = 0.0_fp\n\n    !----------------------------------------\n    ! RADIATION MENU fields (for RRTMG only)\n    !----------------------------------------\n    arrayId = 'Input_Opt%LSKYRAD'\n    ALLOCATE( Input_Opt%LSKYRAD( 2 ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    arrayId = 'Input_Opt%WVSELECT'\n    ALLOCATE( Input_Opt%WVSELECT( 3 ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    arrayId = 'Input_Opt%STRWVSELECT'\n    ALLOCATE( Input_Opt%STRWVSELECT( 3 ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Number of RRTMG outputs (change as necessary)\n    Input_Opt%NSpecRadMenu           = 17\n\n    arrayId = 'Input_Opt%LSPECRADMENU'\n    ALLOCATE( Input_Opt%LSPECRADMENU( Input_Opt%NSpecRadMenu ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    Input_Opt%LSpecRadMenu           = 0\n\n    Input_Opt%LRAD                   = .FALSE.\n    Input_Opt%LLWRAD                 = .FALSE.\n    Input_Opt%LSWRAD                 = .FALSE.\n    Input_Opt%LSKYRAD                = .FALSE.\n    Input_Opt%TS_RAD                 = 0\n    Input_Opt%NWVSELECT              = 0\n    Input_Opt%WVSELECT               = 0.0_fp\n    Input_Opt%STRWVSELECT            = ''\n    Input_Opt%RRTMG_CO2_ppmv         = 3.90e-4_fp\n    Input_Opt%RRTMG_FDH              = .FALSE.\n    Input_Opt%RRTMG_SEFDH            = .FALSE.\n    Input_Opt%RRTMG_SA_TOA           = .FALSE.\n    Input_Opt%Read_Dyn_Heating       = .FALSE.\n\n    !----------------------------------------\n    ! TRANSPORT MENU fields\n    !----------------------------------------\n    Input_Opt%LTRAN                  = .FALSE.\n    Input_Opt%LFILL                  = .FALSE.\n    Input_Opt%TPCORE_IORD            = 0\n    Input_Opt%TPCORE_JORD            = 0\n    Input_Opt%TPCORE_KORD            = 0\n    Input_Opt%TS_DYN                 = 0\n\n    !----------------------------------------\n    ! CONVECTION MENU fields\n    !----------------------------------------\n    Input_Opt%LCONV                  = .FALSE.\n    Input_Opt%LTURB                  = .FALSE.\n    Input_Opt%LNLPBL                 = .FALSE.\n    Input_Opt%Grell_Freitas_Convection = .FALSE.\n    Input_Opt%TS_CONV                = 0\n\n    !----------------------------------------\n    ! DEPOSITION MENU fields\n    !----------------------------------------\n    Input_Opt%LDRYD                  = .FALSE.\n    Input_Opt%LWETD                  = .FALSE.\n    Input_Opt%WETD_CONV_SCAL         = 1.0_fp\n    Input_Opt%PBL_DRYDEP             = .FALSE.\n    Input_Opt%CO2_LEVEL              = 390.0_fp\n    Input_Opt%CO2_REF                = 390.0_fp\n    Input_Opt%CO2_EFFECT             = .FALSE.\n    Input_Opt%RS_SCALE               = 1.0_fp\n    Input_Opt%RA_Alt_Above_Sfc       = 10       ! default height\n\n    !----------------------------------------\n    ! OUTPUT MENU fields\n    !----------------------------------------\n    arrayId = 'Input_Opt%NJDAY'\n    ALLOCATE( Input_Opt%NJDAY( 366 ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    Input_Opt%NJDAY                  = 0\n\n    !----------------------------------------\n    ! DIAGNOSTIC MENU fields\n    !----------------------------------------\n    Input_Opt%HistoryInputFile       = ''\n    Input_Opt%DIAG_COLLECTION        = -999\n\n    !----------------------------------------\n    ! PLANEFLIGHT MENU fields\n    !----------------------------------------\n    Input_Opt%Do_Planeflight         = .FALSE.\n    Input_Opt%Planeflight_InFile     = ''\n    Input_Opt%Planeflight_OutFile    = ''\n\n    !----------------------------------------\n    ! PLANEFLIGHT MENU fields\n    !----------------------------------------\n    ALLOCATE( Input_Opt%ObsPack_SpcName( 1000 ), STAT=RC )\n\n    Input_Opt%Do_ObsPack             = .FALSE.\n    Input_Opt%ObsPack_Quiet          = .FALSE.\n    Input_Opt%ObsPack_InputFile      = ''\n    Input_Opt%ObsPack_OutputFile     = ''\n    Input_Opt%ObsPack_nSpc           = 0\n    Input_Opt%ObsPack_SpcName        = ''\n\n    !----------------------------------------\n    ! ND51 MENU fields\n    !----------------------------------------\n    Input_Opt%DO_ND51                = .FALSE.\n    Input_Opt%N_ND51                 = 0\n    Input_Opt%ND51_FILE              = ''\n    Input_Opt%ND51_HR_WRITE          = 0.0_fp\n    Input_Opt%ND51_HR1               = 0.0_fp\n    Input_Opt%ND51_HR2               = 0.0_fp\n    Input_Opt%ND51_IMIN              = 0\n    Input_Opt%ND51_IMAX              = 0\n    Input_Opt%ND51_JMIN              = 0\n    Input_Opt%ND51_JMAX              = 0\n    Input_Opt%ND51_LMIN              = 0\n\n    !----------------------------------------\n    ! ND51b MENU fields\n    !----------------------------------------\n    Input_Opt%DO_ND51b               = .FALSE.\n    Input_Opt%N_ND51b                = 0\n    Input_Opt%ND51b_FILE             = ''\n    Input_Opt%ND51b_HR_WRITE         = 0.0_fp\n    Input_Opt%ND51b_HR1              = 0.0_fp\n    Input_Opt%ND51b_HR2              = 0.0_fp\n    Input_Opt%ND51b_IMIN             = 0\n    Input_Opt%ND51b_IMAX             = 0\n    Input_Opt%ND51b_JMIN             = 0\n    Input_Opt%ND51b_JMAX             = 0\n    Input_Opt%ND51b_LMIN             = 0\n\n    !----------------------------------------\n    ! PROD LOSS MENU fields\n    !---------------------------------------\n\n    arrayId = 'Input_Opt%FAM_NAME'\n    ALLOCATE( Input_Opt%FAM_NAME( Input_Opt%Max_Families ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    arrayId = 'Input_Opt%FAM_TYPE'\n    ALLOCATE( Input_Opt%FAM_TYPE( Input_Opt%Max_Families ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    Input_Opt%DO_SAVE_PL             = .FALSE.\n    Input_Opt%ND65                   = 0\n    Input_Opt%NFAM                   = 0\n    Input_Opt%FAM_NAME               = ''\n    Input_Opt%FAM_TYPE               = ''\n\n    !----------------------------------------\n    ! MERCURY MENU fields\n    !----------------------------------------\n    Input_Opt%ANTHRO_Hg_YEAR         = 0\n    Input_Opt%HG_SCENARIO            = ''\n    Input_Opt%USE_CHECKS             = .FALSE.\n    Input_Opt%LDYNOCEAN              = .FALSE.\n    Input_Opt%LPREINDHG              = .FALSE.\n    Input_Opt%LGTMM                  = .FALSE.\n    Input_Opt%GTMM_RST_FILE          = ''\n\n    !----------------------------------------\n    ! CH4 MENU fields\n    !----------------------------------------\n    Input_Opt%Satellite_CH4_Columns             = .FALSE.\n    Input_Opt%GOSAT_CH4_OBS                     = .FALSE.\n    Input_Opt%AIRS_CH4_OBS                      = .FALSE.\n    Input_Opt%TCCON_CH4_OBS                     = .FALSE.\n    Input_Opt%DoAnalyticalInv                   = .FALSE.\n    Input_Opt%StateVectorElement                = 0\n    Input_Opt%EmisPerturbFactor                 = 1.0\n    Input_Opt%DoPerturbCH4BoundaryConditions    = .FALSE.\n    Input_Opt%CH4BoundaryConditionIncreaseNorth = 0.0_fp\n    Input_Opt%CH4BoundaryConditionIncreaseSouth = 0.0_fp\n    Input_Opt%CH4BoundaryConditionIncreaseEast  = 0.0_fp\n    Input_Opt%CH4BoundaryConditionIncreaseWest  = 0.0_fp\n    Input_Opt%UseEmisSF                         = .FALSE.\n    Input_Opt%UseOHSF                           = .FALSE.\n\n    !----------------------------------------\n    ! POPS MENU fields\n    !----------------------------------------\n    Input_Opt%POP_TYPE               = ''\n    Input_Opt%CHEM_PROCESS           = .FALSE.\n    Input_Opt%POP_XMW                = 0.0_fp\n    Input_Opt%POP_KOA                = 0.0_fp\n    Input_Opt%POP_KBC                = 0.0_fp\n    Input_Opt%POP_K_POPG_OH          = 0.0_fp\n    Input_Opt%POP_K_POPP_O3A         = 0.0_fp\n    Input_Opt%POP_K_POPP_O3B         = 0.0_fp\n    Input_Opt%POP_HSTAR              = 0.0_fp\n    Input_Opt%POP_DEL_H              = 0.0_fp\n    Input_Opt%POP_DEL_Hw             = 0.0_fp\n\n    !----------------------------------------\n    ! Fields for interface to GEOS-5 GCM\n    !----------------------------------------\n#ifdef MODEL_GEOS\n!    Input_Opt%OZONOPAUSE             = -999.0\n!    Input_Opt%haveImpRst             = .FALSE.\n!    Input_Opt%AlwaysSetH2O           = .FALSE.\n!    Input_Opt%LLFASTJX               = -999\n    Input_Opt%NN_RxnRates            = -999\n    Input_Opt%RxnRates_IDs           => NULL()\n    Input_Opt%NN_RxnRconst           = -999\n    Input_Opt%RxnRconst_IDs          => NULL()\n    Input_Opt%NN_Jvals               = -999\n    Input_Opt%Jval_IDs               => NULL()\n#else\n    Input_Opt%AlwaysSetH2O           = .FALSE.\n    Input_Opt%TurnOffHetRates        = .FALSE.\n#endif\n\n#ifdef ADJOINT\n    !----------------------------------------\n    ! Fields for adoint\n    !---------------------------------------\n    Input_Opt%IS_ADJOINT             = .FALSE.\n    Input_Opt%IS_FD_SPOT             = .FALSE.\n    Input_Opt%IS_FD_GLOBAL           = .FALSE.\n    Input_Opt%IS_FD_SPOT_THIS_PET    = .FALSE.\n    Input_Opt%FD_STEP                = -999\n    Input_Opt%IFD                    = -999\n    Input_Opt%JFD                    = -999\n    Input_Opt%NFD                    = -999\n    Input_Opt%LFD                    = -999\n#endif\n\n    !----------------------------------------\n    ! Fields for LINOZ strat chem\n    !----------------------------------------\n    Input_Opt%LINOZ_NLEVELS          = 25\n    Input_Opt%LINOZ_NLAT             = 18\n    Input_Opt%LINOZ_NMONTHS          = 12\n    Input_Opt%LINOZ_NFIELDS          = 7\n\n    arrayId = 'Input_Opt%LINOZ_TPARM'\n    ALLOCATE( Input_Opt%LINOZ_TPARM( Input_Opt%LINOZ_NLEVELS,            &\n                                     Input_Opt%LINOZ_NLAT,               &\n                                     Input_Opt%LINOZ_NMONTHS,            &\n                                     Input_Opt%LINOZ_NFIELDS ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    Input_Opt%LINOZ_TPARM            = 0.0_fp\n\n#if defined( ESMF_ )\n    ! Logger handle is set up by Chem_GridCompMod\n    Input_Opt%lgr => NULL()\n    ! Component name is acquired externally - this is a placeholder\n    Input_Opt%compname = 'GC'\n#endif\n\n  END SUBROUTINE Set_Input_Opt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Input_Opt\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_INPUT\\_OPT deallocates all\n!  allocatable fields of the Input Options object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Input_Opt( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  02 Nov 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    !======================================================================\n    ! Deallocate fields of the Input Options object\n    !======================================================================\n    IF ( ASSOCIATED( Input_Opt%AdvectSpc_Name ) ) THEN\n       DEALLOCATE( Input_Opt%AdvectSpc_Name, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%AdvectSpcName', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%AdvectSpc_Name => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%SALA_REDGE_um ) ) THEN\n       DEALLOCATE( Input_Opt%SALA_REDGE_um, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%SALA_REDGE_um', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%SALA_REDGE_um => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%SALC_REDGE_um ) ) THEN\n       DEALLOCATE( Input_Opt%SALC_REDGE_um, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%SALC_REDGE_um', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%SALC_REDGE_um => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%LINOZ_TPARM ) ) THEN\n       DEALLOCATE( Input_Opt%LINOZ_TPARM, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%LINOZ_TPARM', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%LINOZ_TPARM => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%LSPECRADMENU ) ) THEN\n       DEALLOCATE( Input_Opt%LSPECRADMENU, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%LSPECRADMENU', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%LSPECRADMENU => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%LSKYRAD ) ) THEN\n       DEALLOCATE( Input_Opt%LSKYRAD, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%LSKYRAD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%LSKYRAD => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%WVSELECT ) ) THEN\n       DEALLOCATE( Input_Opt%WVSELECT, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%WVSELECT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%WVSELECT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%STRWVSELECT ) ) THEN\n       DEALLOCATE( Input_Opt%STRWVSELECT, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%STRWVSELECT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%STRWVSELECT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%ObsPack_SpcName ) ) THEN\n       DEALLOCATE( Input_Opt%ObsPack_SpcName, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%ObsPack_SpcName', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%ObsPack_SpcName => NULL()\n    ENDIF\n\n#ifdef MODEL_GEOS\n    !=======================================================================\n    ! These fields of Input_Opt are only finalized when\n    ! GEOS-Chem is coupled to the online NASA/GEOS ESM\n    !=======================================================================\n    IF ( ASSOCIATED( Input_Opt%RxnRconst_IDs ) ) THEN\n       DEALLOCATE( Input_Opt%RxnRconst_IDs, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%RxnRconst_IDs', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%RxnRconst_IDs => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%RxnRates_IDs ) ) THEN\n       DEALLOCATE( Input_Opt%RxnRates_IDs, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%RxnRates_IDs', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%RxnRates_IDs => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( Input_Opt%Jval_IDs ) ) THEN\n       DEALLOCATE( Input_Opt%Jval_IDs, STAT=RC )\n       CALL GC_CheckVar( 'Input_Opt%Jval_Ids', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Input_Opt%Jval_Ids => NULL()\n    ENDIF\n#endif\n\n#if defined( ESMF_ )\n    If (Associated(Input_Opt%lgr)) Input_Opt%lgr => NULL()\n#endif\n\n  END SUBROUTINE Cleanup_Input_Opt\n!EOC\nEND MODULE Input_Opt_Mod\n"
  },
  {
    "path": "Headers/inquireMod.F90",
    "content": "#ifdef ESMF_\n! We only need to refer to this include file if we are connecting\n! to the GEOS-5 GCM via the ESMF/MAPL framework (bmy, 8/3/12)\n#include \"MAPL_Generic.h\"\n#endif\n!------------------------------------------------------------------------\n!     NASA/GSFC, Global Modeling and Assimilation Office, Code 910.1    !\n!------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: inquireMod\n!\n! !DESCRIPTION: Module inquireMod contains functions to find free and\n!  unopened logical file units (LUNs) for Fortran I/O.\n!\n! !INTERFACE:\n!\nMODULE inquireMod\n!\n! !USES:\n!\n#ifdef ESMF_\n  ! We only need to refer to these modules if we are connecting\n  ! to the GEOS-5 GCM via the ESMF/MAPL framework (bmy, 8/3/12)\n  USE ESMF\n  USE MAPL_Mod\n#endif\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: findFreeLUN\n  PUBLIC  :: I_Am_UnOPENed\n!\n! !REVI<SION HISTORY:\n!  14 Jun 2012 - E. Nielsen  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n  CONTAINS\n!EOC\n!------------------------------------------------------------------------\n!     NASA/GSFC, Global Modeling and Assimilation Office, Code 910.1    !\n!------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: findFreeLUN\n!\n! !DESCRIPTION: Inquire for an existing, but unopened, logical unit number\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION findFreeLUN( b ) RESULT( lun )\n!\n! !USES:\n!\n#if defined( MODEL_CESM )\n    USE UNITS,      ONLY : GETUNIT\n#endif\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN), OPTIONAL :: b   ! Not really used here\n!\n! !RETURN VALUE:\n!\n    INTEGER :: lun\n!\n! !REVISION HISTORY:\n!  14 Jun 2012 - E. Nielsen  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                    :: i, rc, status\n    LOGICAL                    :: exists        ! File existence\n    LOGICAL                    :: found         ! Detect unused logical unit\n    LOGICAL                    :: open          ! Is open?\n\n#ifdef ESMF_\n    CHARACTER(LEN=ESMF_MAXSTR) :: Iam\n#else\n    CHARACTER(LEN=255)         :: Iam\n#endif\n!\n! !DEFINED PARAMETERS\n!\n    INTEGER, PARAMETER         :: iTop = 199     ! Maximum LUN limit\n\n#if defined( MODEL_CESM )\n    lun = GETUNIT()\n#else\n    !======================================================================\n    ! Initialization\n    !======================================================================\n    Iam = \"GEOSCHEMCHEM::findFreeLUN\"\n    status = 0\n    rc     = 0\n\n    !======================================================================\n    ! Find an available logical unit\n    !======================================================================\n    found = .FALSE.\n    i     = 11\n\n    DO WHILE ( .NOT. found .AND. i <= iTop )\n       INQUIRE( UNIT=i, EXIST=exists, OPENED=open )\n       IF ( exists .AND. .NOT. open ) THEN\n          found = .TRUE.\n          lun = i\n       ENDIF\n       i = i + 1\n    ENDDO\n\n    IF ( .NOT. found ) THEN\n       status = 1\n       PRINT *,TRIM( Iam ) // \": No available logical units\"\n    ENDIF\n\n#ifdef ESMF_\n    VERIFY_(status)\n#endif\n#endif\n\n  END FUNCTION findFreeLUN\n!EOC\n!------------------------------------------------------------------------\n!     NASA/GSFC, Global Modeling and Assimilation Office, Code 910.1    !\n!------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: I_Am_UnOPENed\n!\n! !DESCRIPTION: Inquire as to the availability of a given logical unit\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION I_Am_UnOPENed( n ) RESULT( TorF )\n!\n! !USES:\n    !\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER :: n     ! Logical unit # to test\n!\n! !RETURN VALUE:\n!\n    LOGICAL :: TorF  ! .TRUE. means the file is unopened\n!\n! !REVISION HISTORY:\n!  14 Jun 2012 - E. Nielsen  - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                    :: rc, status\n    LOGICAL                    :: exists       ! File existence\n    LOGICAL                    :: open         ! Is open?\n\n#ifdef ESMF_\n    CHARACTER(LEN=ESMF_MAXSTR) :: Iam\n#else\n    CHARACTER(LEN=255)         :: Iam\n#endif\n\n    !======================================================================\n    ! Initialization\n    !======================================================================\n    Iam    = \"GEOSCHEMCHEM::I_Am_UnOPENed\"\n    status = 0\n    rc     = 0\n\n    !======================================================================\n    ! Inquire if the LUN is available\n    !======================================================================\n    INQUIRE( UNIT=n, EXIST=exists, OPENED=open )\n\n    IF ( exists .AND. .NOT. open ) THEN\n       TorF = .TRUE.\n    ELSE\n       TorF = .FALSE.\n    ENDIF\n\n  END FUNCTION I_Am_UnOPENed\n!EOC\nEND MODULE inquireMod\n"
  },
  {
    "path": "Headers/phot_container_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: phot_container_mod.F90\n!\n! !DESCRIPTION: Module PHOT\\_CONTAINER\\_MOD contains the derived type used\n!  to store photolysis and optics data in GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Phot_Container_Mod\n!\n! USES:\n!\n  USE ErrCode_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Init_Phot_Container\n  PUBLIC :: Cleanup_Phot_Container\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! Parameters used for allocation\n\n  !=========================================================================\n  ! Derived type for photolysis and optics data container\n  !=========================================================================\n  TYPE, PUBLIC :: PhotContainer\n\n     ! Scalars set during object initialization\n     INTEGER :: IND999    ! Index in RAA & QAA of 999 nm\n     INTEGER :: NWVAA     ! # LUT wavelengths   (RRTMG)\n     INTEGER :: NSPAA     ! # LUT species       (RRTMG)\n     INTEGER :: NRAA      ! # LUT aerosol sizes (RRTMG)   \n     INTEGER :: NWVAA0    ! # non-RRTMG wavelengths\n     INTEGER :: NALBD     ! ??                     \n     INTEGER :: NEMISS    ! ??                     \n     INTEGER :: NASPECRAD ! # RRTMG aerosol species\n     INTEGER :: NSPECRAD  ! # RRTMG aerosol+gas species\n     INTEGER :: NDRg      ! # LUT SNA and OM dry aerosol size bin \n     INTEGER :: DRg       ! # identifier of the default dry aerosol size \n\n     ! Scalars\n     INTEGER  :: JTAUMX      ! max # divisions\n\n     ! For RRTMG?\n     INTEGER :: NWVAART      ! # RRTMG wavelengths\n     INTEGER :: NWVREQUIRED  ! # WLs needed for interpolation\n     INTEGER :: NRTWVREQUIRED! # WLs needed for RT interpolation\n     INTEGER :: IWV1000      ! WL index for 1000 nm\n\n     ! Renamed from Fast-JX module variables for clarity\n     INTEGER  :: nWLbins      ! # WL bins (W_)\n     INTEGER  :: nPhotRxns    ! # photolysis reactions in CTM chemistry (NRATJ)\n     INTEGER  :: nMaxPhotRxns ! Maximum # of photolysis reactions (JVN_?)\n\n     ! Photo-reaction flags for reactions adjusted in PhotRate_Adj\n     INTEGER  :: RXN_O2      ! O2  + jv --> O   + O\n     INTEGER  :: RXN_O3_1    ! O3  + hv --> O2  + O\n     INTEGER  :: RXN_O3_2    ! O3  + hv --> O2  + O(1D)\n     INTEGER  :: RXN_H2SO4   ! SO4 + hv --> SO2 + 2OH\n     INTEGER  :: RXN_NO2     ! NO2 + hv --> NO  + O\n     INTEGER  :: RXN_JHNO3   ! HNO3 + hv --> OH + NO2\n     INTEGER  :: RXN_JNITSa  ! NITs  + hv --> HNO2\n     INTEGER  :: RXN_JNITSb  ! NITs  + hv --> NO2\n     INTEGER  :: RXN_JNITa   ! NIT + hv --> HNO2\n     INTEGER  :: RXN_JNITb   ! NIT + hv --> NO2\n     INTEGER  :: RXN_NO      ! For ucx_mod\n     INTEGER  :: RXN_NO3     ! For ucx_mod\n     INTEGER  :: RXN_N2O     ! For ucx_mod\n     INTEGER  :: RXN_BrO     ! For Hg chem\n     INTEGER  :: RXN_ClO     ! For Hg chem\n\n     ! Arrays\n     INTEGER,  ALLOCATABLE :: RINDEX     (:) ! GC to UCI spc name index mapping\n     INTEGER,  ALLOCATABLE :: GC_Photo_Id(:) ! GC id per photolysis species\n     INTEGER,  ALLOCATABLE :: MIEDX      (:) ! Interface indices for GC/FJX spc\n\n     REAL(fp), ALLOCATABLE :: UVXFACTOR(:) ! Photons/cm2s -> W/m2 conv factors\n     REAL(fp), ALLOCATABLE :: QAA_AOD  (:) ! Single scattering albedo        \n     REAL(fp), ALLOCATABLE :: WAA_AOD  (:) ! Aerosol scattering phase fnctns \n     REAL(fp), ALLOCATABLE :: PAA_AOD  (:) ! WLs for supplied phase functions\n     REAL(fp), ALLOCATABLE :: RAA_AOD  (:) ! Phase fnctn (first 8 terms)     \n     REAL(fp), ALLOCATABLE :: SAA_AOD  (:) ! Aerosol type effective radius\n\n     REAL(fp), ALLOCATABLE :: TREF     (:,:,:)     ! Temp reference profile\n     REAL(fp), ALLOCATABLE :: OREF     (:,:,:)     ! Ozone reference profile\n     REAL(fp), ALLOCATABLE :: ZPJ      (:,:,:,:)   ! J-values\n\n     ! RRTMG allocatable arrays\n     INTEGER, ALLOCATABLE :: SPECMASK     (:)     ! binary switches for spc flux\n     INTEGER, ALLOCATABLE :: IWVREQUIRED  (:)     ! WL indexes for interpolation\n     INTEGER, ALLOCATABLE :: IRTWVREQUIRED(:)     ! WL indexes for RT interp\n     INTEGER, ALLOCATABLE :: IWVSELECT    (:,:)   ! Indexes of requested WLs\n     INTEGER, ALLOCATABLE :: IRTWVSELECT  (:,:)   ! Indexes of requested RT WLs\n     INTEGER, ALLOCATABLE :: IRHARR       (:,:,:) ! Relative humidity indices\n\n     REAL*8,  ALLOCATABLE :: ACOEF_WV  (:)   ! Coeffs for WL interpolation\n     REAL*8,  ALLOCATABLE :: BCOEF_WV  (:)   ! Coeffs for WL interpolation\n     REAL*8,  ALLOCATABLE :: CCOEF_WV  (:)   ! Coeffs for WL interpolation\n     REAL*8,  ALLOCATABLE :: ACOEF_RTWV(:)   ! Coeffs for RT WL interpolation\n     REAL*8,  ALLOCATABLE :: BCOEF_RTWV(:)   ! Coeffs for RT WL interpolation\n     REAL*8,  ALLOCATABLE :: CCOEF_RTWV(:)   ! Coeffs for RT WL interpolation\n     REAL*8,  ALLOCATABLE :: WVAA      (:,:)     ! Wavelength read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: RHAA      (:,:)     ! RH read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: RDAA      (:,:,:)   ! Dry aerosol Rg read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: RWAA      (:,:,:)   ! Wet aerosol Rg read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: SGAA      (:,:)     ! Aerosol size geometric std. read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: REAA      (:,:,:)   ! Effective Radius read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: NRLAA     (:,:,:)   ! RI real part read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: NCMAA     (:,:,:)   ! RI imaginary part read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: QQAA      (:,:,:,:) ! Extinction Effciency read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: ALPHAA    (:,:,:,:) ! Alpha read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: SSAA      (:,:,:,:) ! ss-alb read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: ASYMAA    (:,:,:,:) ! g-sym read from LUTs (so4.dat etc.)\n     REAL*8,  ALLOCATABLE :: PHAA      (:,:,:,:,:) ! phase function read from LUTs (so4.dat etc.)\n\n     ! For optical depth diagnostics\n     REAL(fp), ALLOCATABLE :: ISOPOD   (:,:,:,:)   ! Isoprene optical depth\n     REAL(fp), ALLOCATABLE :: ODMDUST  (:,:,:,:,:) ! Dust optical depth\n     REAL(fp), ALLOCATABLE :: ODAER    (:,:,:,:,:) ! Aerosol optical depth\n\n#ifdef RRTMG\n     REAL*8,  ALLOCATABLE :: RTODAER   (:,:,:,:,:) ! Optical dust\n     REAL*8,  ALLOCATABLE :: RTSSAER   (:,:,:,:,:) ! ??\n     REAL*8,  ALLOCATABLE :: RTASYMAER (:,:,:,:,:) ! ??\n#endif\n\n  END TYPE PhotContainer\n!\n! !REMARKS:\n! \n! !REVISION HISTORY:\n!  28 Nov 2022 - E. Lundgren- Initial version, based on state_grid_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Phot_Container\n!\n! !DESCRIPTION: Subroutine INIT\\_PHOT\\_Container allocates and initializes\n! the Phot container object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Phot_Container( Input_Opt, State_Grid, Phot, RC )\n!\n! !USES:\n!\n#ifdef FASTJX\n    USE CMN_FJX_Mod,    ONLY : A_, AN_, W_, WX_, JVN_, N_, L_\n#else\n    USE Cldj_Cmn_Mod,   ONLY : A_, AN_, W_, WX_, JVN_, N_, L_\n#endif\n    USE CMN_Size_Mod,   ONLY : NDUST, NAER\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(GrdState),      INTENT(IN)  :: State_Grid ! Grid object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(PhotContainer), POINTER     :: Phot       ! Phot data container\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  28 Nov 2022 - E. Lundgren- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)   :: errMsg, thisLoc\n\n    !======================================================================\n    ! Allocate and initialize module variables\n    !======================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    thisLoc = ' -> at Init_Phot_Container (in module Headers/phot_container_mod.F90)'\n\n    ! Constants\n    Phot%IND999 = 5     ! Index in RAA & QAA of 999 nm\n    Phot%NWVAA  = 41    ! # LUT wavelengths   (RRTMG)\n    Phot%NSPAA  = 8     ! # LUT species       (RRTMG)\n    Phot%NRAA   = 7     ! # LUT aerosol sizes (RRTMG)   \n    Phot%NWVAA0 = 11    ! # non-RRTMG wavelengths\n    Phot%NALBD  = 2     ! ??                     \n    Phot%NEMISS = 16    ! ??                     \n    Phot%NASPECRAD = 16 ! # RRTMG aerosol species\n    Phot%NSPECRAD  = 23 ! # RRTMG aerosol+gas species\n    Phot%NDRg   = 40    ! # LUT dry SNA and OM aerosol sizes \n    Phot%DRg    = 6     ! # identifier of the default aerosol size\n\n    ! Store certain values from Fast-JX with more intuitive name\n    Phot%nWLbins      = W_\n    Phot%nPhotRxns    = 0 ! Set during photolysis initialization\n    Phot%nMaxPhotRxns = JVN_! Maximum # of photolysis reactions (JVN_?)\n\n    ! Integer scalars\n    Phot%JTAUMX = (N_-4*L_)/2\n\n    Phot%RXN_O2     = -1\n    Phot%RXN_O3_1   = -1\n    Phot%RXN_O3_2   = -1\n    Phot%RXN_H2SO4  = -1\n    Phot%RXN_NO2    = -1\n    Phot%RXN_JHNO3  = -1\n    Phot%RXN_JNITSa = -1\n    Phot%RXN_JNITSb = -1\n    Phot%RXN_JNITa  = -1\n    Phot%RXN_JNITb  = -1\n    Phot%RXN_NO     = -1\n    Phot%RXN_NO3    = -1\n    Phot%RXN_N2O    = -1\n    Phot%RXN_BrO    = -1\n    Phot%RXN_ClO    = -1\n\n    ! Allocate arrays\n    IF ( .not. Input_Opt%DryRun ) THEN\n\n       ! Integer arrays\n\n       ! Phot%RINDEX      (:)\n       ALLOCATE( Phot%RINDEX( Phot%nMaxPhotRxns ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RINDEX!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RINDEX = 0\n\n       ! Phot%GC_Photo_Id (:)\n       ALLOCATE( Phot%GC_Photo_Id( Phot%nMaxPhotRxns ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array GC_Photo_Id!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%GC_Photo_Id = 0\n\n       ! Phot%MIEDX       (:)\n       ALLOCATE( Phot%MIEDX( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array MIEDX!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%MIEDX = 0\n\n       ! Real(fp) arrays\n\n       ! Phot%UVXFACTOR(:)\n       ALLOCATE( Phot%UVXFACTOR( WX_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array UVXFACTOR!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%UVXFACTOR = 0e+0_fp\n\n       ! Phot%QAA_AOD  (:)\n       ALLOCATE( Phot%QAA_AOD( A_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array QAA_AOD!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%QAA_AOD = 0e+0_fp\n\n       ! Phot%WAA_AOD  (:)\n       ALLOCATE( Phot%WAA_AOD( A_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array WAA_AOD!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%WAA_AOD = 0e+0_fp\n\n       ! Phot%PAA_AOD  (:)\n       ALLOCATE( Phot%PAA_AOD( A_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array PAA_AOD!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%PAA_AOD = 0e+0_fp\n\n       ! Phot%RAA_AOD  (:)\n       ALLOCATE( Phot%RAA_AOD( A_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RAA_AOD!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RAA_AOD = 0e+0_fp\n\n       ! Phot%SAA_AOD  (:)\n       ALLOCATE( Phot%SAA_AOD( A_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array SAA_AOD!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%SAA_AOD = 0e+0_fp\n\n       ! Phot%TREF     (:,:,:)\n       ALLOCATE( Phot%TREF( 51, 18, 12 ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array TREF!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%TREF = 0e+0_fp\n\n       ! Phot%OREF     (:,:,:)\n       ALLOCATE( Phot%OREF( 51, 18, 12 ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array OREF!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%OREF = 0e+0_fp\n\n       ! Phot%ZPJ      (:,:,:,:)\n       ALLOCATE( Phot%ZPJ( State_Grid%NZ, Phot%nMaxPhotRxns, State_Grid%NX, &\n                 State_Grid%NY ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ZPJ!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ZPJ = 0e+0_fp\n\n    ENDIF\n\n    !--------------------------------------------------\n    ! Fields for RRTMG and optical depth diagnostics\n    !--------------------------------------------------\n    \n    ! Other scalars\n    Phot%NWVAART = Phot%NWVAA-Phot%NWVAA0 ! # RRTMG wavelengths    \n\n    ! Scalars set in subroutine CALC_AOD\n    Phot%NWVREQUIRED = 0\n    Phot%NRTWVREQUIRED = 0\n\n    ! Scalars set in subroutine RD_AOD\n    Phot%IWV1000 = 0\n\n    ! Allocate arrays\n    IF ( .not. Input_Opt%DryRun ) THEN\n    \n       ! RRTMG integer arrays\n\n       ! Phot%SPECMASK     (:)\n       ALLOCATE( Phot%SPECMASK( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array SPECMASK!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%SPECMASK = 0\n    \n       ! Phot%IWVREQUIRED  (:)\n       ALLOCATE( Phot%IWVREQUIRED( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array IWVREQUIRED!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%IWVREQUIRED = 0\n    \n       ! Phot%IRTWVREQUIRED(:)\n       ALLOCATE( Phot%IRTWVREQUIRED( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array IRTWVREQUIRED!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF \n       Phot%IRTWVREQUIRED = 0\n    \n       ! Phot%IWVSELECT    (:,:)\n       ALLOCATE( Phot%IWVSELECT( 2, 3 ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array IWVSELECT!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%IWVSELECT = 0\n    \n       ! Phot%IRTWVSELECT  (:,:)\n       ALLOCATE( Phot%IRTWVSELECT( 2, 3 ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array IRTWVSELECT!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%IRTWVSELECT = 0\n    \n       ! Phot%IRHARR    (:,:,:)\n       ALLOCATE( Phot%IRHARR( State_Grid%NX, State_Grid%NY, &\n                              State_Grid%NZ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array IRHARR!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%IRHARR = 0d0\n    \n       ! RRTMG real*8 arrays\n    \n       ! Phot%ACOEF_WV  (:)\n       ALLOCATE( Phot%ACOEF_WV( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ACOEF_WV!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ACOEF_WV = 0d0\n    \n       ! Phot%BCOEF_WV  (:)\n       ALLOCATE( Phot%BCOEF_WV( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array BCOEF_WV!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%BCOEF_WV = 0d0\n    \n       ! Phot%CCOEF_WV  (:)\n       ALLOCATE( Phot%CCOEF_WV( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array CCOEF_WV!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%CCOEF_WV = 0d0\n    \n       ! Phot%ACOEF_RTWV(:)\n       ALLOCATE( Phot%ACOEF_RTWV( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ACOEF_RTWV!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ACOEF_RTWV = 0d0\n    \n       ! Phot%BCOEF_RTWV(:)\n       ALLOCATE( Phot%BCOEF_RTWV( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array BCOEF_RTWV!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%BCOEF_RTWV = 0d0\n    \n       ! Phot%CCOEF_RTWV(:)\n       ALLOCATE( Phot%CCOEF_RTWV( AN_ ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array CCOEF_RTWV!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%CCOEF_RTWV = 0d0\n    \n       ! Phot%WVAA      (:,:)\n       ALLOCATE( Phot%WVAA( Phot%NWVAA, Phot%NSPAA ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array WVAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%WVAA = 0d0\n    \n       ! Phot%RHAA      (:,:)\n       ALLOCATE( Phot%RHAA( Phot%NRAA, Phot%NSPAA ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RHAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RHAA = 0d0\n    \n       ! Phot%RDAA      (:,:,:) ! H. Zhu\n       ALLOCATE( Phot%RDAA( Phot%NRAA, Phot%NSPAA, Phot%NDRg), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RDAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RDAA = 0d0\n    \n       ! Phot%RWAA      (:,:,:) ! H. Zhu\n       ALLOCATE( Phot%RWAA( Phot%NRAA, Phot%NSPAA, Phot%NDRg ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RWAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RWAA = 0d0\n    \n       ! Phot%SGAA      (:,:)\n       ALLOCATE( Phot%SGAA( Phot%NRAA, Phot%NSPAA ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array SGAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%SGAA = 0d0\n    \n       ! Phot%REAA      (:,:,:)\n       ALLOCATE( Phot%REAA( Phot%NRAA, Phot%NSPAA, Phot%NDRg ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array REAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%REAA = 0d0\n    \n       ! Phot%NRLAA     (:,:,:)\n       ALLOCATE( Phot%NRLAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array NRLAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%NRLAA = 0d0\n    \n       ! Phot%NCMAA     (:,:,:)\n       ALLOCATE( Phot%NCMAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array NCMAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%NCMAA = 0d0\n    \n       ! Phot%QQAA      (:,:,:,:)\n       ALLOCATE( Phot%QQAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA, Phot%NDRg ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array QQAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%QQAA = 0d0\n    \n       ! Phot%ALPHAA    (:,:,:,:)\n       ALLOCATE( Phot%ALPHAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA, Phot%NDRg ), &\n                 STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ALPHAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ALPHAA = 0d0\n    \n       ! Phot%SSAA      (:,:,:,:)\n       ALLOCATE( Phot%SSAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA, Phot%NDRg ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array SSAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%SSAA = 0d0\n    \n       ! Phot%ASYMAA    (:,:,:,:)\n       ALLOCATE( Phot%ASYMAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA, Phot%NDRg ), &\n                 STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ASYMAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ASYMAA = 0d0\n    \n       ! Phot%PHAA      (:,:,:,:)\n       ALLOCATE( Phot%PHAA( Phot%NWVAA, Phot%NRAA, Phot%NSPAA, 8, Phot%NDRg ), &\n                 STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array PHAA!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%PHAA = 0d0\n\n       ! Phot%ISOPOD   (:,:,:,:)\n       ALLOCATE( Phot%ISOPOD( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                              Phot%NWVAA ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ISOPOD!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ISOPOD = 0e+0_fp\n       \n       ! Phot%ODMDUST  (:,:,:,:,:)\n       ALLOCATE( Phot%ODMDUST( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                               Phot%NWVAA, NDUST ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ODMDUST!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ODMDUST = 0e+0_fp\n       \n       ! Phot%ODAER    (:,:,:,:,:)\n       ALLOCATE( Phot%ODAER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                             Phot%NWVAA, NAER ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array ODAER!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%ODAER = 0e+0_fp\n\n#ifdef RRTMG\n       ! Phot%RTODAER   (:,:,:,:,:)\n       ! +2 to split SNA into SU, NI and AM\n       ALLOCATE( Phot%RTODAER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                               Phot%NWVAA, NAER+2+NDUST ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RTODAER!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RTODAER = 0d0\n\n       ! Phot%RTSSAER   (:,:,:,:,:)\n       ALLOCATE( Phot%RTSSAER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                               Phot%NWVAA, NAER+2+NDUST ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RTSSAER!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RTSSAER = 0d0\n       \n       ! Phot%RTASYMAER (:,:,:,:,:)\n       ALLOCATE( Phot%RTASYMAER( State_Grid%NX, State_Grid%NY, State_Grid%NZ, &\n                                 Phot%NWVAA, NAER+2+NDUST ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating array RTASYMAER!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       Phot%RTASYMAER = 0d0\n#endif\n     \n    ENDIF\n\n  END SUBROUTINE Init_Phot_Container\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Phot_Container\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_PHOT\\_CONTAINER deallocates all fields\n!  of the phot container object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Phot_Container( Phot, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(PhotContainer), POINTER   :: Phot  ! Phot data container\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC    ! Return code\n!\n! !REVISION HISTORY:\n!  28 Nov 2022 - E. Lundgren- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Assume success\n    RC      = GC_SUCCESS\n\n    !=======================================================================\n    ! Deallocate arrays\n    !=======================================================================\n    ! Will need to change this to just do arrays etc\n    IF ( ASSOCIATED( Phot ) ) THEN\n       IF (ALLOCATED(Phot%RINDEX        )) DEALLOCATE(Phot%RINDEX        )\n       IF (ALLOCATED(Phot%GC_Photo_Id   )) DEALLOCATE(Phot%GC_Photo_Id   )\n       IF (ALLOCATED(Phot%MIEDX         )) DEALLOCATE(Phot%MIEDX         )\n       IF (ALLOCATED(Phot%UVXFACTOR     )) DEALLOCATE(Phot%UVXFACTOR     )\n       IF (ALLOCATED(Phot%QAA_AOD       )) DEALLOCATE(Phot%QAA_AOD       )\n       IF (ALLOCATED(Phot%WAA_AOD       )) DEALLOCATE(Phot%WAA_AOD       )\n       IF (ALLOCATED(Phot%PAA_AOD       )) DEALLOCATE(Phot%PAA_AOD       )\n       IF (ALLOCATED(Phot%RAA_AOD       )) DEALLOCATE(Phot%RAA_AOD       )\n       IF (ALLOCATED(Phot%SAA_AOD       )) DEALLOCATE(Phot%SAA_AOD       )\n       IF (ALLOCATED(Phot%TREF          )) DEALLOCATE(Phot%TREF          )\n       IF (ALLOCATED(Phot%OREF          )) DEALLOCATE(Phot%OREF          )\n       IF (ALLOCATED(Phot%ISOPOD        )) DEALLOCATE(Phot%ISOPOD        )\n       IF (ALLOCATED(Phot%ZPJ           )) DEALLOCATE(Phot%ZPJ           )\n       IF (ALLOCATED(Phot%ODMDUST       )) DEALLOCATE(Phot%ODMDUST       )\n       IF (ALLOCATED(Phot%ODAER         )) DEALLOCATE(Phot%ODAER         )\n       IF (ALLOCATED(Phot%SPECMASK      )) DEALLOCATE(Phot%SPECMASK      )\n       IF (ALLOCATED(Phot%IWVREQUIRED   )) DEALLOCATE(Phot%IWVREQUIRED   )\n       IF (ALLOCATED(Phot%IRTWVREQUIRED )) DEALLOCATE(Phot%IRTWVREQUIRED )\n       IF (ALLOCATED(Phot%IWVSELECT     )) DEALLOCATE(Phot%IWVSELECT     )\n       IF (ALLOCATED(Phot%IRTWVSELECT   )) DEALLOCATE(Phot%IRTWVSELECT   )\n       IF (ALLOCATED(Phot%IRHARR        )) DEALLOCATE(Phot%IRHARR        )\n       IF (ALLOCATED(Phot%ACOEF_WV      )) DEALLOCATE(Phot%ACOEF_WV      )\n       IF (ALLOCATED(Phot%BCOEF_WV      )) DEALLOCATE(Phot%BCOEF_WV      )\n       IF (ALLOCATED(Phot%CCOEF_WV      )) DEALLOCATE(Phot%CCOEF_WV      )\n       IF (ALLOCATED(Phot%ACOEF_RTWV    )) DEALLOCATE(Phot%ACOEF_RTWV    )\n       IF (ALLOCATED(Phot%BCOEF_RTWV    )) DEALLOCATE(Phot%BCOEF_RTWV    )\n       IF (ALLOCATED(Phot%CCOEF_RTWV    )) DEALLOCATE(Phot%CCOEF_RTWV    )\n       IF (ALLOCATED(Phot%WVAA          )) DEALLOCATE(Phot%WVAA          )\n       IF (ALLOCATED(Phot%RHAA          )) DEALLOCATE(Phot%RHAA          )\n       IF (ALLOCATED(Phot%RDAA          )) DEALLOCATE(Phot%RDAA          )\n       IF (ALLOCATED(Phot%RWAA          )) DEALLOCATE(Phot%RWAA          )\n       IF (ALLOCATED(Phot%SGAA          )) DEALLOCATE(Phot%SGAA          )\n       IF (ALLOCATED(Phot%REAA          )) DEALLOCATE(Phot%REAA          )\n       IF (ALLOCATED(Phot%NRLAA         )) DEALLOCATE(Phot%NRLAA         )\n       IF (ALLOCATED(Phot%NCMAA         )) DEALLOCATE(Phot%NCMAA         )\n       IF (ALLOCATED(Phot%QQAA          )) DEALLOCATE(Phot%QQAA          )\n       IF (ALLOCATED(Phot%ALPHAA        )) DEALLOCATE(Phot%ALPHAA        )\n       IF (ALLOCATED(Phot%SSAA          )) DEALLOCATE(Phot%SSAA          )\n       IF (ALLOCATED(Phot%ASYMAA        )) DEALLOCATE(Phot%ASYMAA        )\n       IF (ALLOCATED(Phot%PHAA          )) DEALLOCATE(Phot%PHAA          )\n#ifdef RRTMG \n       IF (ALLOCATED(Phot%RTODAER       )) DEALLOCATE(Phot%RTODAER   )\n       IF (ALLOCATED(Phot%RTSSAER       )) DEALLOCATE(Phot%RTSSAER   )\n       IF (ALLOCATED(Phot%RTASYMAER     )) DEALLOCATE(Phot%RTASYMAER )\n#endif\n\n       DEALLOCATE( Phot )\n       Phot => NULL()\n    ENDIF\n\n  END SUBROUTINE Cleanup_Phot_Container\n!EOC\n\nEND MODULE Phot_Container_Mod\n"
  },
  {
    "path": "Headers/physconstants.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: physconstants.F\n!\n! !DESCRIPTION: PhysConstants contains GEOS-Chem specific PHYSICAL CONSTANTS\n!  and DERIVED QUANTITIES.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE PHYSCONSTANTS\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PUBLIC\n!\n! !DEFINED PARAMETERS:\n!\n  ! Average molecular weight of dry air [g/mol]\n  REAL(fp), PARAMETER :: AIRMW = 28.9644_fp                 ! was 28.97\n\n  ! Molecular weight of water [g/mol]\n  REAL(fp), PARAMETER :: H2OMW = 18.016_fp\n\n  ! Avogadro's number [particles/mol] (Source: NIST, 2014)\n  REAL(fp), PARAMETER :: AVO = 6.022140857e+23_fp\n\n  ! Acceleration due to gravity at earth's surface [m/s^2]\n  ! (Source: NIST, 2014)\n  REAL(fp), PARAMETER :: g0     = 9.80665e+0_fp\n  REAL(fp), PARAMETER :: g0_100 = 100.0_fp / g0\n\n  ! Double-Precision value of PI (and radians per degree)\n  REAL(fp), PARAMETER :: PI     = 3.14159265358979323_fp\n  REAL(fp), PARAMETER :: PI_180 = PI / 180.0_fp\n\n  ! Radius of Earth [m]\n  REAL(fp), PARAMETER :: Re = 6.3710072e+6_fp               ! was 6.375e+6_fp\n\n  ! Gas Constant in Dry Air [J/K/kg] (and divided by g)\n  REAL(fp), PARAMETER :: Rd   = 287.0_fp\n  REAL(fp), PARAMETER :: Rdg0 = Rd / g0\n\n  ! Gas Constant for water vapor [J/K/kg]\n  REAL(fp), PARAMETER :: Rv = 461.00_fp\n\n  ! Scale height of atmosphere [m]\n  REAL(fp), PARAMETER :: SCALE_HEIGHT = 7600.0_fp\n\n  ! Von Karman's constant [.]\n  REAL(fp), PARAMETER :: VON_KARMAN = 0.4_fp\n\n  ! Molar gas constant [J/K/mol] (Source: NIST, 2014)\n  ! NOTE: Also be sure to update con_R in gckpp_Global if you update this!\n  REAL(fp), PARAMETER :: RSTARG = 8.3144598_fp\n\n  ! XNUMOLAIR : Molecules dry air per kg dry air\n  REAL(fp), PARAMETER :: XNUMOLAIR = AVO / ( AIRMW * 1.e-3_fp )\n\n  ! BOLTZ : Boltzmann's constant [J/K]  (Source: NIST, 2014)\n  REAL(fp), PARAMETER :: BOLTZ = 1.38064852e-23_fp\n\n  ! ATM : Standard atmosphere [Pa]  (Source: NIST, 2014)\n  REAL(fp), PARAMETER :: ATM = 1.01325e+5_fp\n\n  ! PLANK : Plank's constant\n  REAL(fp), PARAMETER :: PLANCK = 6.62606957e-34_fp\n\n  ! CCONST : Speed of light [m/s]\n  REAL(fp), PARAMETER :: CCONST = 2.99792458e+8_fp\n\n  ! Condensation vapor pressure\n  ! ** NEED SOURCE **\n  !  We think 6.1078 hPa is the saturation vapor pressure at 273.16 K, the\n  !   triple point of water, but this needs to be confirmed (mps, 4/21/16)\n  !  Use BOLTZ [J/K] rather than BOLTG [ergs/K] from comode_loop_mod\n  !   (ewl, 1/4/16)\n  REAL(fp), PARAMETER :: CONSVAP = 6.1078e+03_fp / ( BOLTZ * 1e+7_fp )\n\n  ! Gas constant in: [L.atm/K.mole]\n  REAL(fp), PARAMETER :: RGASLATM = 8.2057e-2_fp\n\n  ! Molecular weight of carbon (kg/mol)\n  REAL(fp), PARAMETER :: MWCARB = 12.01e-3_fp\n!\n! !REFERENCES:\n! (1) NIST, 2014. Website: http://physics.nist.gov/cuu/Constants/index.html\n!\n! !REVISION HISTORY:\n!  25 Jun 2002 - R. Yantosca - Initial version\n!  07 Jan 2016 - E. Lundgren - Updated to NIST 2014 values\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nEND MODULE PHYSCONSTANTS\n!EOC\n"
  },
  {
    "path": "Headers/precision_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: precision_mod.F90\n!\n! !DESCRIPTION: Module PRECISION\\_MOD is used to change the precision of\n!  many variables throughout GEOS-Chem at compile-time.  Also contains\n!  parameters that can be used to represent missing values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Precision_Mod\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !REMARKS:\n!  This module is designed to help avoid hard-coding precision.\n!\n! !REVISION HISTORY:\n!  04 Nov 2014 - M. Yannetti - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  !=================================================================\n  ! Set parameters for fixed precision\n  !\n  ! Not all variables can be converted into the flexible precision.\n  ! Some may have to be still declared as either 4-byte or 8-byte\n  ! floating point.  Use these parameters for such variables.\n  !=================================================================\n\n  ! KIND parameter for 4-byte precision\n  INTEGER, PARAMETER, PUBLIC :: f4 = KIND( 0.0_4 )\n\n  ! KIND parameter for 8-byte precision\n  INTEGER, PARAMETER, PUBLIC :: f8 = KIND( 0.0_8 )\n\n  !=================================================================\n  ! Set parameters for floating precision\n  !\n  ! FP will be set to either 4-byte or 8-byte precision at compile\n  ! time.  Most variables can now  declared with REAL(fp).\n  !=================================================================\n#ifdef USE_REAL8\n\n  ! Use 8-byte floating point precision when asked.\n  INTEGER, PARAMETER, PUBLIC :: fp = f8\n\n#else\n\n  ! Use 4-byte floating point by default.\n  INTEGER, PARAMETER, PUBLIC :: fp = f4\n\n#endif\n\n  !=========================================================================\n  ! Parameters for missing values\n  !=========================================================================\n  LOGICAL,          PARAMETER, PUBLIC :: MISSING_BOOL = .FALSE.\n  INTEGER,          PARAMETER, PUBLIC :: MISSING_INT  = -999\n  REAL(fp),         PARAMETER, PUBLIC :: MISSING      = -999.0_fp\n  REAL(f4),         PARAMETER, PUBLIC :: MISSING_REAL = -999.0_f4\n  REAL(f8),         PARAMETER, PUBLIC :: MISSING_DBLE = -999.0_f8\n  CHARACTER(LEN=7), PARAMETER, PUBLIC :: MISSING_STR  = \"UNKNOWN\"\n\n  !=========================================================================\n  ! Parameters for zero\n  !=========================================================================\n  REAL(fp),         PARAMETER, PUBLIC :: ZERO         =  0.0_fp\n  REAL(f4),         PARAMETER, PUBLIC :: ZERO_REAL    =  0.0_f4\n  REAL(f8),         PARAMETER, PUBLIC :: ZERO_DBLE    =  0.0_f8\n\n  !=========================================================================\n  ! Parameters for one\n  !=========================================================================\n  REAL(fp),         PARAMETER, PUBLIC :: ONE          =  1.0_fp\n  REAL(f4),         PARAMETER, PUBLIC :: ONE_REAL     =  1.0_f4\n  REAL(f8),         PARAMETER, PUBLIC :: ONE_DBLE     =  1.0_f8\n\nEND MODULE Precision_Mod\n!EOC\n"
  },
  {
    "path": "Headers/qfyaml_mod.F90",
    "content": "!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: qfyaml_mod.F90\n!\n! !DESCRIPTION: Contains routines for reading a YAML file into Fortran,\n!  based off the \"config_fortran\" package of H. J. Teunissen.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE QFYAML_Mod\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC TYPES:\n!\n  PUBLIC :: yp\n  PUBLIC :: QFYAML_t\n!\n! !PUBLIC DATA MEMBERS:\n!\n  ! Constants\n  PUBLIC :: QFYAML_Failure\n  PUBLIC :: QFYAML_MaxArr\n  PUBLIC :: QFYAML_MaxStack\n  PUBLIC :: QFYAML_NamLen\n  PUBLIC :: QFYAML_StrLen\n  PUBLIC :: QFYAML_Success\n\n  ! Public methods\n  PUBLIC :: QFYAML_Add\n  PUBLIC :: QFYAML_Add_Get\n  PUBLIC :: QFYAML_CleanUp\n  PUBLIC :: QFYAML_Get\n  PUBLIC :: QFYAML_Check\n  PUBLIC :: QFYAML_FindDepth\n  PUBLIC :: QFYAML_FindNextHigher\n  PUBLIC :: QFYAML_Init\n  PUBLIC :: QFYAML_Merge\n  PUBLIC :: QFYAML_Print\n  PUBLIC :: QFYAML_Update\n!\n! !REMARKS:\n!  QFYAML -- The Quick Fortran YAML parser!\n!\n!  I developed this package because I needed a quick-and-dirty YAML parser\n!  in Fortran for reading in certain YAML files (e.g. species database)\n!  into the GEOS-Chem model. I found that certain Fortran YAML parsers\n!  either did not support mapping, or required the bleeding edge versions\n!  of Fortran compilers.\n!\n!  The back end is code that was taken from the \"config_fortran\" package\n!  (https://github.com/jannisteunissen/config_fortran) by H. J. Teunissen.\n!  and subsequently modified by myse;lf\n!\n!  The front end (parser) has been modified to accept YAML format instead of\n!  configuration file format.  Not all features of YAML have been implemented.\n!  At present, I have only tested with YAML mappings but as time allows I\n!  can try to add other YAML features.\n!\n!  At present, nested levels of variables are not supported, but\n!  might bein the future.\n!\n!  I have removed some routines that are not as pertinent to YAML input\n!  from the original config-fortran code.\n!\n!      -- Bob Yantosca (15 Apr 2020), yantosca@seas.harvard.edu\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  ! The precision kind-parameter (4-byte)\n  INTEGER, PARAMETER :: yp                    = KIND( 0.0e0 )\n\n  ! Success/failure return codes\n  INTEGER, PARAMETER :: QFYAML_Success        =  0\n  INTEGER, PARAMETER :: QFYAML_Failure        = -1\n\n  ! Numeric type constants\n  INTEGER, PARAMETER :: QFYAML_num_types      =  4\n  INTEGER, PARAMETER :: QFYAML_integer_type   =  1\n  INTEGER, PARAMETER :: QFYAML_real_type      =  2\n  INTEGER, PARAMETER :: QFYAML_string_type    =  3\n  INTEGER, PARAMETER :: QFYAML_bool_type      =  4\n  INTEGER, PARAMETER :: QFYAML_unknown_type   =  0\n\n  ! How was the YAML file set?\n  INTEGER, PARAMETER :: QFYAML_set_by_default =  1\n  INTEGER, PARAMETER :: QFYAML_set_by_file    =  3\n\n  ! Other constants\n  INTEGER, PARAMETER :: QFYAML_MaxStack       =  20    ! Max cat_stack size\n  INTEGER, PARAMETER :: QFYAML_NamLen         =  100   ! Max len for names\n  INTEGER, PARAMETER :: QFYAML_StrLen         =  512   ! Max len for strings\n  INTEGER, PARAMETER :: QFYAML_MaxArr         =  1000  ! Max entries per array\n  INTEGER, PARAMETER :: QFYAML_MaxDataLen     =  20000 ! Max stored data size\n\n  CHARACTER(LEN=7), PARAMETER :: QFYAML_type_names(0:QFYAML_num_types) = &\n      (/ 'storage', 'integer', 'real   ', 'string ', 'bool   ' /)\n\n  ! The separator(s) for array-like variables (space, comma, ', \", and tab)\n  CHARACTER,         PARAMETER :: tab_char = char(9)\n  CHARACTER(LEN=*),  PARAMETER :: QFYAML_separators = \" ,'\"\"\"//tab_char\n\n  ! Bracket characters\n  CHARACTER(LEN=4),  PARAMETER :: QFYAML_brackets = \"{}[]\"\n\n  ! The separator for categories (stored in var_name)\n  CHARACTER(LEN=1),  PARAMETER :: QFYAML_category_separator = \"%\"\n\n  ! The default string for data that is not yet stored\n  CHARACTER(LEN=21), PARAMETER :: unstored_data_string=\"__UNSTORED_DATA_STRING\"\n\n  ! Type for a single variable\n  TYPE, PRIVATE :: QFYAML_var_t\n     PRIVATE\n     CHARACTER(LEN=QFYAML_NamLen)              :: category\n     CHARACTER(LEN=QFYAML_NamLen)              :: var_name\n     CHARACTER(LEN=QFYAML_StrLen)              :: description\n     INTEGER                                   :: var_type\n     INTEGER                                   :: var_size\n     LOGICAL                                   :: dynamic_size\n     LOGICAL                                   :: used\n     INTEGER                                   :: set_by=QFYAML_set_by_default\n     CHARACTER(LEN=QFYAML_maxDataLen)          :: stored_data\n     CHARACTER(LEN=QFYAML_NamLen)              :: anchor_ptr\n     CHARACTER(LEN=QFYAML_NamLen)              :: anchor_tgt\n     REAL(yp),                     ALLOCATABLE :: real_data(:)\n     INTEGER,                      ALLOCATABLE :: int_data(:)\n     CHARACTER(LEN=QFYAML_StrLen), ALLOCATABLE :: char_data(:)\n     LOGICAL,                      ALLOCATABLE :: bool_data(:)\n  END TYPE QFYAML_var_t\n\n  ! Type for the list of variables\n  TYPE :: QFYAML_t\n     LOGICAL                                   :: sorted = .false.\n     INTEGER                                   :: num_vars = 0\n     TYPE(QFYAML_var_t),           ALLOCATABLE :: vars(:)\n  END TYPE QFYAML_t\n\n  ! Interface to add variables to the configuration\n  INTERFACE QFYAML_Add\n     MODULE PROCEDURE  Add_Real,       Add_Real_Array\n     MODULE PROCEDURE  Add_Int,        Add_Int_Array\n     MODULE PROCEDURE  Add_String,     Add_String_Array\n     MODULE PROCEDURE  Add_Bool,       Add_Bool_Array\n  END INTERFACE QFYAML_Add\n\n  ! INTERFACE to get variables from the configuration\n  INTERFACE QFYAML_Get\n     MODULE PROCEDURE  Get_Real,       Get_Real_Array\n     MODULE PROCEDURE  Get_Int,        Get_Int_Array\n     MODULE PROCEDURE  Get_Bool,       Get_Bool_Array\n     MODULE PROCEDURE  Get_String,     Get_String_Array\n  END INTERFACE QFYAML_Get\n\n  ! Interface to get variables from the configuration\n  INTERFACE QFYAML_Add_Get\n     MODULE PROCEDURE  Add_Get_Real,   Add_Get_Real_Array\n     MODULE PROCEDURE  Add_Get_Int,    Add_Get_Int_Array\n     MODULE PROCEDURE  Add_Get_Bool,   Add_Get_Bool_Array\n     MODULE PROCEDURE  Add_Get_String, Add_Get_String_Array\n  END INTERFACE QFYAML_Add_Get\n\n ! Interface to get variables from the configuration\n  INTERFACE QFYAML_Update\n     MODULE PROCEDURE  Update_Real,    Update_Real_Array\n     MODULE PROCEDURE  Update_Int,     Update_Int_Array\n     MODULE PROCEDURE  Update_Bool,    Update_Bool_Array\n     MODULE PROCEDURE  Update_String,  Update_String_Array\n  END INTERFACE QFYAML_Update\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Handle_Error\n!\n! !DESCRIPTION: This routine will be called if an error occurs in one of\n!  the subroutines of this module.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Handle_Error( errMsg, RC, thisLoc )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: errMsg    ! Error message\n    CHARACTER(LEN=*), OPTIONAL    :: thisLoc\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC        ! Return code\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=======================================================================\n    ! Handle_Error begins here!\n    !=======================================================================\n    WRITE( 6, \"(a)\" ) REPEAT( \"=\", 79 )\n    WRITE( 6, \"(a)\" ) \"QFYAML ERROR: \" // TRIM( errMsg )\n    IF ( PRESENT( thisLoc ) ) WRITE( 6, '(a)' ) TRIM( thisLoc )\n    WRITE( 6, \"(a)\" ) REPEAT( \"=\", 79 )\n    WRITE( 6, \"(a)\" )\n\n    ! Return failure\n    RC = QFYAML_FAILURE\n\n  END SUBROUTINE Handle_Error\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Var_Index\n!\n! !DESCRIPTION:  Return the index of the variable with name 'var_name',\n!  or -1 if not found.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Var_Index( yml, var_name, ix )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(IN)  :: yml\n    CHARACTER(LEN=*), INTENT(IN)  :: var_name\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: ix\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i\n\n    !=======================================================================\n    ! Get_Var_Index begins here!\n    !=======================================================================\n\n    ! Initialize\n    ix = -1\n\n    IF ( yml%sorted ) THEN\n\n       ! If the variable names have been sorted, use a binary search\n       CALL Binary_Search_Variable( yml, var_name, ix )\n\n    ELSE\n\n       ! Otherwise use a linear search\n       DO i = 1, yml%num_vars\n          IF ( TRIM( yml%vars(i)%var_name ) == TRIM( var_name ) ) THEN\n             ix = i\n             EXIT\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n  END SUBROUTINE Get_Var_Index\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Anchor_Info\n!\n! !DESCRIPTION: Returns information about a variable containing an anchor\n!  target field: the index, the category name, and the variable name (minus\n!  the category).  Missing values are returned if not found.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Anchor_Info( yml, anchor_ptr, begin_ix, end_ix, anchor_cat )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),               INTENT(IN)  :: yml        ! Config object\n    CHARACTER(LEN=*),             INTENT(IN)  :: anchor_ptr ! Anchor to match\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(OUT) :: begin_ix   ! 1st var w/ anchor\n    INTEGER,                      INTENT(OUT) :: end_ix     ! last var w/ anchor\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT) :: anchor_cat ! Anchor category\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i\n\n    !=======================================================================\n    ! Get_Anchor_Info begins here!\n    !=======================================================================\n\n    ! Initialize\n    begin_ix   = 0\n    end_ix     = 0\n    anchor_cat = \"UNKNOWN\"\n\n    ! Linear search\n    DO i = 1, yml%num_vars\n       IF ( TRIM( yml%vars(i)%anchor_tgt ) == TRIM( anchor_ptr ) ) THEN\n          IF ( begin_ix == 0 ) begin_ix = i\n          end_ix = i\n       ENDIF\n    ENDDO\n\n    ! Also return the category for this anchor\n    IF ( begin_ix > 0 ) THEN\n       anchor_cat = yml%vars(begin_ix)%category\n    ENDIF\n\n  END SUBROUTINE Get_Anchor_Info\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Init\n!\n! !DESCRIPTION: Initializes a QFYAML_t object from a YAML file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Init( fileName, yml, yml_anchored, RC )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: fileName\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml_anchored\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg, thisLoc\n\n    !=======================================================================\n    ! QFYAML_Init begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at QFYAML_Init (in module qfyaml_mod.F90)'\n\n    ! Read the YML file\n    CALL QFYAML_Read_File( yml, fileName, yml_anchored, RC )\n\n    ! Trap potential errors\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"QFYAML_Read_File\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Sort the variable names in the yml object for faster search\n    CALL QFYAML_Sort( yml )\n\n  END SUBROUTINE QFYAML_Init\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Merge\n!\n! !DESCRIPTION: Concatetenates two QFYAML_t objects together.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Merge( yml1, yml2, yml, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(IN)  :: yml1\n    TYPE(QFYAML_t),   INTENT(IN)  :: yml2\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(OUT) :: yml\n    INTEGER,          INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: N\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! QFYAML_Init begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    N       = 0\n    errMsg  = ''\n    thisLoc = ' -> at QFYAML_Merge (in module qfyaml_mod.F90)'\n\n    ! Total number of variables\n    yml%num_vars = yml1%num_vars + yml2%num_vars\n\n    ! Allocate yml%vars\n    ALLOCATE( yml%vars( yml%num_vars ), STAT=RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Could not allocate the yml%vars object!\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Add the variables from the first object\n    DO N = 1, yml1%num_vars\n       yml%vars(N) = yml1%vars(N)\n    ENDDO\n\n    ! Add the variables from the second object\n    DO N = 1, yml2%num_vars\n       yml%vars(N + yml1%num_vars) = yml2%vars(N)\n    ENDDO\n\n    ! Sort the variable names in the yml object for faster search\n    CALL QFYAML_Sort( yml )\n\n  END SUBROUTINE QFYAML_Merge\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Read_File\n!\n! !DESCRIPTION: Read variables from a YAML file into a configuration object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Read_File( yml, fileName, yml_anchored, RC )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: fileName      ! YAML file to read\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml           ! Configuration object\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml_anchored  ! \"\" for anchored vars\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT  ) :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: valid_syntax\n    INTEGER                      :: anchor_ix\n    INTEGER                      :: begin_ix\n    INTEGER                      :: end_ix\n    INTEGER                      :: I\n    INTEGER                      :: io_state\n    INTEGER                      :: N\n    INTEGER                      :: line_number\n    INTEGER                      :: my_unit\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_NamLen) :: line_fmt\n    CHARACTER(LEN=QFYAML_NamLen) :: category\n    CHARACTER(LEN=QFYAML_NamLen) :: anchor_cat\n    CHARACTER(LEN=QFYAML_NamLen) :: anchor_ptr\n    CHARACTER(LEN=QFYAML_NamLen) :: anchor_tgt\n    CHARACTER(LEN=QFYAML_NamLen) :: var_pt_to_anchor\n    CHARACTER(LEN=QFYAML_NamLen) :: var_w_anchor\n    CHARACTER(LEN=QFYAML_NamLen) :: var_name\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: line\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! QFYAML_READ_FILE begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC           = QFYAML_Success\n    anchor_ptr   = \"\"\n    anchor_tgt   = \"\"\n    category     = \"\"\n    errMsg       = \"\"\n    thisLoc      = \" -> at QFYAML_Read_File (in module qfyaml_mod.F90)\"\n    line_number  = 0\n    my_unit      = 777\n\n    !=======================================================================\n    ! First pass: read the file\n    !=======================================================================\n\n    ! Open the file\n    OPEN( my_unit, FILE=TRIM(filename), STATUS=\"old\", ACTION=\"read\", IOSTAT=RC)\n    IF ( RC /= QFYAML_SUCCESS ) THEN\n       errMsg = 'Could not open file: ' // TRIM( fileName )\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Create format line\n    WRITE( line_fmt, \"(a,i0,a)\") \"(a\", QFYAML_StrLen, \")\"\n\n    ! Start looping\n    DO\n\n       ! Read each line and increment the count\n       READ( my_unit, FMT=TRIM(line_fmt), ERR=998, end=999) line\n       line_number = line_number + 1\n\n       ! Parse each line for information.  This will also add\n       ! each found variable to the \"yml\" configuration object.\n       ! YAML anchors will also be referenced.\n       CALL Parse_Line( yml          = yml,                                  &\n                        yml_anchored = yml_anchored,                         &\n                        set_by       = QFYAML_set_by_file,                   &\n                        line_arg     = line,                                 &\n                        valid_syntax = valid_syntax,                         &\n                        category     = category,                             &\n                        anchor_tgt   = anchor_tgt,                           &\n                        anchor_ptr   = anchor_ptr,                           &\n                        RC           = RC                                   )\n\n       ! Trap potential errors\n       IF ( .not. valid_syntax ) THEN\n          WRITE( errMsg, *) \"Cannot read line \", line_number, &\n               \" from \", TRIM(filename)\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDDO\n\n    ! Error handling\n998 WRITE( errMsg, \"(a,i0,a,i0)\" ) \" IOSTAT = \", io_state, &\n         \" while reading from \" // trim(filename) // \" at line \", &\n         line_number\n    CALL Handle_Error( errMsg, RC, thisLoc )\n    RETURN\n\n    ! Routine ends here if the end of \"filename\" is reached\n999 CLOSE( my_unit, iostat=io_state )\n\n    !=======================================================================\n    ! Second pass: Create variables that point to YAML anchors\n    ! with all of the corresponding properties.\n    !=======================================================================\n    DO N = 1, yml_anchored%num_vars\n\n       ! Get proprties of each variable that points to an anchor\n       anchor_ptr = yml_anchored%vars(N)%anchor_ptr\n       category   = yml_anchored%vars(N)%category\n       var_name   = yml_anchored%vars(N)%var_name\n\n       ! Find all target variables with the given value of anchor_ptr,\n       ! and return the start and ending indices in the yml config object.\n       CALL Get_Anchor_Info( yml        = yml,                                &\n                             anchor_ptr = anchor_ptr,                         &\n                             begin_ix   = begin_ix,                           &\n                             end_ix     = end_ix,                             &\n                             anchor_cat = anchor_cat )\n\n       ! Loop over all target variables containing the value of anchor_ptr\n       DO anchor_ix = begin_ix, end_ix\n\n          ! Variable with the anchor\n          var_w_anchor = yml%vars(anchor_ix)%var_name\n\n          ! Variable that we want to point to the anchor\n          I = INDEX( var_w_anchor, QFYAML_category_separator )\n          var_pt_to_anchor = TRIM( category )                             // &\n                             QFYAML_category_separator                    // &\n                             var_w_anchor(I+1:)\n\n          ! Create a new variable for this category,\n          ! copying the fields of the variable with the anchor.\n          CALL Copy_Anchor_Variable( yml              = yml,                 &\n                                     anchor_ix        = anchor_ix,           &\n                                     var_w_anchor     = var_w_anchor,        &\n                                     var_pt_to_anchor = var_pt_to_anchor,    &\n                                     RC               = RC                  )\n\n          ! Trap potential errors\n          IF ( RC /= QFYAML_Success ) THEN\n             errMsg = 'Error encountered in \"Copy_Anchor_Variable\"!'\n             CALL Handle_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n    ENDDO\n\n  END SUBROUTINE QFYAML_Read_File\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Parse_Line\n!\n! !DESCRIPTION: Parses a single line of a YAML file and adds the relevant\n!  variables to the yml configuration object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Parse_Line( yml,        yml_anchored, set_by,                   &\n                         line_arg,   valid_syntax, category,                 &\n                         anchor_ptr, anchor_tgt,   RC                       )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(IN)    :: set_by\n    CHARACTER(LEN=*),             INTENT(IN)    :: line_arg\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),               INTENT(INOUT) :: yml\n    TYPE(QFYAML_t),               INTENT(INOUT) :: yml_anchored\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,                      INTENT(OUT)   :: valid_syntax\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT)   :: category\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT)   :: anchor_ptr\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT)   :: anchor_tgt\n    INTEGER,                      INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                            :: append\n    INTEGER                            :: ix\n    INTEGER                            :: ampsnd_ix\n    INTEGER                            :: anchor_ix\n    INTEGER                            :: colon_ix\n    INTEGER                            :: star_ix\n    INTEGER                            :: trim_len\n    INTEGER                            :: pos\n    INTEGER                            :: C\n    INTEGER                            :: CC\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_NamLen)       :: var_name\n    CHARACTER(LEN=QFYAML_StrLen)       :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)       :: line\n    CHARACTER(LEN=QFYAML_StrLen)       :: line2\n    CHARACTER(LEN=QFYAML_StrLen)       :: thisLoc\n    CHARACTER(LEN=QFYAML_StrLen)       :: last_cat\n\n    ! SAVEd variables\n    LOGICAL,                      SAVE :: is_list_var                = .FALSE.\n    INTEGER,                      SAVE :: last_pos                   = 0\n    INTEGER,                      SAVE :: indent                     = 0\n    INTEGER,                      SAVE :: cat_pos(QFYAML_MaxStack)   = 0\n    INTEGER,                      SAVE :: cat_index                  = 0\n    CHARACTER(LEN=QFYAML_NamLen), SAVE :: cat_stack(QFYAML_MaxStack) = \"\"\n\n    !=======================================================================\n    ! Parse_Line begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC           = QFYAML_Success\n    colon_ix     = 0\n    ampsnd_ix    = 0\n    star_ix      = 0\n    line         = line_arg\n    valid_syntax = .true.\n    errMsg       = ''\n    thisLoc      = '-> at Parse_Line (in module qfyaml_mod.F90)'\n\n    ! Strip all comments from the line\n    CALL Trim_Comment(line, '#;')\n\n    ! Skip empty lines\n    IF ( line == \"\"    ) RETURN\n    IF ( line == \"---\" ) RETURN\n\n    ! Get the length of the line (excluding trailing whitespace)\n    trim_len  = LEN_TRIM( line )\n\n    ! Get the position of the first non-whitespace character in the line\n    pos       = First_Char_Pos( line )\n\n    ! Look for the positions of certain characters\n    colon_ix  = INDEX( line, \":\" )\n    ampsnd_ix = INDEX( line, \"&\" )\n    star_ix   = INDEX( line, \"*\" )\n\n    !========================================================================\n    ! Handling for categories and YAML anchors\n    !========================================================================\n\n    !---------------------------------------------------------------------\n    ! Special handling for YAML sequences:\n    ! Set is_list_var = F once we encounter a new category or variable\n    !---------------------------------------------------------------------\n    IF ( is_list_var .and. line(pos:pos) /= \"-\" ) THEN\n       is_list_var  = .FALSE.\n       append       = .FALSE.\n    ENDIF\n\n    ! If the text is flush with the first column and has a colon\n    ! in the line, then it's a category or a YAML anchor\n    IF ( line(pos:pos) /= \"\" .and. colon_ix > 0 ) THEN\n\n       !---------------------------------------------------------------------\n       ! Categories\n       !\n       ! If there is nothing after the colon, then this indicates\n       ! a category (without an anchor) rather than a variable\n       !---------------------------------------------------------------------\n       IF ( colon_ix == trim_len ) THEN\n\n          ! If this category starts further along the line than the last\n          ! category, then increment index and add its position to the stack.\n          IF ( pos > last_pos ) THEN\n             indent             = last_pos - pos\n             cat_index          = cat_index + 1\n             cat_pos(cat_index) = pos\n          ENDIF\n\n          ! If this category starts earlier along the line than the last\n          ! category, then decrement index and add its position to the stack.\n          ! NOTE: This algorithm will work best if we assume a constant\n          ! indentation level.  Best to use an editor such as emacs\n          ! to enforce a consistent indentation throughout the file.\n          IF ( pos < last_pos ) THEN\n             indent    = last_pos - pos\n             cat_index = cat_index - ( indent / 2 )\n             cat_pos(cat_index) = pos\n          ENDIF\n\n          ! If the index is negative or the category begins at the first\n          ! character of the line, then set index to 1 and store its\n          ! starting position in the first element of the stack.\n          IF ( cat_index <= 0 .or. pos == 1 ) THEN\n             cat_index = 1\n             cat_pos(cat_index) = pos\n          ENDIF\n\n          ! Extract the category name and add it to the stack\n          anchor_tgt = \"\"\n          category   = line(pos:colon_ix-1)\n          IF ( category == \"'NO'\" ) category = \"NO\"   ! Avoid clash w/ FALSE\n          cat_stack(cat_index) = category\n\n          ! Update the category starting position for the next iteration\n          last_pos = pos\n          RETURN\n\n       !---------------------------------------------------------------------\n       ! YAML Anchors\n       !\n       ! If there is an ampersand following the colon\n       ! then this denotes a YAML anchor\n       !\n       ! For simplicity, assume anchors are always at level 1.\n       !---------------------------------------------------------------------\n       ELSE IF ( colon_ix > 0 .and. ampsnd_ix > 0 ) THEN\n\n          ! Return anchor target and category name\n          ! Also save the category start position for next time\n          anchor_tgt   = line(ampsnd_ix+1:trim_len)\n          category     = line(pos:colon_ix-1)\n          cat_stack(1) = category\n          IF ( category == \"'NO'\" ) category = \"NO\"   ! Avoid clash w/ FALSE\n          last_pos     = pos\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Handling for variables\n    !========================================================================\n\n    ! define the variable name\n    append = .FALSE.\n\n    !-----------------------------------------------------------------------\n    ! Special handling for YAML sequences\n    ! (i.e. free lists where each element starts with -)\n    !-----------------------------------------------------------------------\n\n    ! If the line begins with -, then it denotes an element of a sequence\n    IF ( line(pos:pos) == \"-\" ) THEN\n\n       ! Set flag to denote that we are in a YAML sequence\n       is_list_var = .TRUE.\n\n       ! Compute the variable name for the sequence\n       ! NOTE: The variable name has the category prefixed to it!\n       CALL Get_Sequence_VarName( cat_index, cat_stack,                      &\n                                  category,  var_name, append )\n\n       ! Add the YAML sequence variable to the YML object\n       CALL Add_Variable( yml            = yml,                              &\n                          append         = append,                           &\n                          set_by         = set_by,                           &\n                          line_arg       = line(pos+1:),                     &\n                          anchor_ptr_arg = anchor_ptr,                       &\n                          anchor_tgt_arg = anchor_tgt,                       &\n                          category_arg   = category,                         &\n                          var_name_arg   = var_name,                         &\n                          RC             = RC                               )\n\n       ! Return so that we can get the next line\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Regular handling for all other variables\n    !-----------------------------------------------------------------------\n\n    append = .FALSE.\n\n    ! Get the variable name\n    var_name = line(pos:colon_ix-1)\n\n    ! Replace leading tabs by spaces\n    ix = VERIFY(var_name, tab_char) ! Find first non-tab character\n    var_name(1:ix-1) = \"\"\n\n    ! Remove leading blanks\n    var_name = ADJUSTL(var_name)\n\n    category = \"\"\n    DO C = cat_index, 1, -1\n\n       ! If the variable starts at position 1, then it has no category.\n       IF ( pos == 1 ) THEN\n          category = \"\"\n          last_cat = \"\"\n          EXIT\n       ENDIF\n\n       ! If the variable starts beyond the highest category's\n       ! starting position, then it belongs to that category.\n       ! Also reference the category from the start.\n       IF ( pos > cat_pos(C) ) THEN\n          category = cat_stack(C)\n          IF ( C > 1 ) THEN\n             DO CC = C-1, 1, -1\n                category = TRIM( cat_stack(CC)       )                    // &\n                           QFYAML_Category_Separator                      // &\n                           TRIM( category            )\n             ENDDO\n          ENDIF\n          EXIT\n       ENDIF\n\n       ! If the variable starts at the same position as the highest\n       ! category, then it belongs to the previous category\n       IF ( pos == cat_pos(C) ) THEN\n          category = cat_stack( MAX( C-1, 1 ) )\n          IF ( C-1 > 1 ) THEN\n             DO CC = C-2, 1, -1\n                category = TRIM( cat_stack(CC)       )                   // &\n                           QFYAML_Category_Separator                     // &\n                           TRIM( category            )\n             ENDDO\n          ENDIF\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Test if the variable is a YAML anchor\n    IF ( var_name == \"<<\" ) THEN\n\n       !--------------------------------------------------------------------\n       ! Variable points to a YAML anchor\n       !--------------------------------------------------------------------\n\n       ! Add category if it is defined\n       IF ( category /= \"\" ) THEN\n          var_name = TRIM( category ) // QFYAML_category_separator // var_name\n       ENDIF\n\n       ! Get the name of the anchor we want to point to\n       anchor_ptr = line(star_ix+1:)\n\n       ! Add the variable to the extra configuration object\n       ! which we will pass back to routine QFYAML_Read_File.\n       ! There we will create a new variable with all of the\n       ! properties of the anchor target.\n       CALL Add_Variable( yml            = yml_anchored,                     &\n                          append         = .FALSE.,                          &\n                          set_by         = set_by,                           &\n                          line_arg       = line,                             &\n                          anchor_ptr_arg = anchor_ptr,                       &\n                          anchor_tgt_arg = anchor_tgt,                       &\n                          category_arg   = category,                         &\n                          var_name_arg   = var_name,                         &\n                          RC             = RC                               )\n\n       ! Trap potential errors\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Add_Variable\" (points to anchor)!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Variable does NOT point to a YAML anchor\n       !--------------------------------------------------------------------\n\n       ! Add category if it is defined\n       IF ( category /= \"\" ) THEN\n          var_name = TRIM( category ) // QFYAML_category_separator // var_name\n       ENDIF\n\n       ! Set line to the values behind the '=' sign\n       line = line(colon_ix+1:)\n\n       ! Add the variable to the config object\n       CALL Add_Variable( yml            = yml,                              &\n                          append         = .FALSE.,                          &\n                          set_by         = set_by,                           &\n                          line_arg       = line,                             &\n                          anchor_ptr_arg = anchor_ptr,                       &\n                          anchor_tgt_arg = anchor_tgt,                       &\n                          category_arg   = category,                         &\n                          var_name_arg   = var_name,                         &\n                          RC             = RC                               )\n\n       ! Trap potential errors\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Add_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Parse_Line\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Add_Variable\n!\n! !DESCRIPTION: Adds a new variable to the config object.  Either it creates\n!  the variable as \"stored\" (aka deferred) or actual.  This was split off\n!  from the routine Parse\\_Line above.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Add_Variable( yml,            line_arg,     anchor_ptr_arg,     &\n                           anchor_tgt_arg, category_arg, var_name_arg,       &\n                           set_by,         append,       RC                 )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,                      INTENT(IN)    :: append\n    INTEGER,                      INTENT(IN)    :: set_by\n    CHARACTER(LEN=*),             INTENT(IN)    :: line_arg\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)    :: anchor_ptr_arg\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)    :: anchor_tgt_arg\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)    :: category_arg\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)    :: var_name_arg\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),               INTENT(INOUT) :: yml\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: ix\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !=======================================================================\n    ! Add_Variable_Var begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Variable (in module qfyaml_mod.F90)'\n\n    ! Find variable corresponding to name in file\n    CALL Get_Var_Index( yml, var_name_arg, ix )\n\n    IF ( ix <= 0 ) then\n\n       !--------------------------------------------------------------------\n       ! Variable is not already present in the yml object\n       !--------------------------------------------------------------------\n\n       ! Prepare to store the data as a string\n       CALL Prepare_Store_Var( yml          = yml,                           &\n                               var_name     = TRIM( var_name_arg ),          &\n                               var_type     = QFYAML_unknown_type,           &\n                               var_size     = 1,                             &\n                               description  = \"Not yet created\",             &\n                               ix           = ix,                            &\n                               dynamic_size = .FALSE.,                       &\n                               RC           = RC                            )\n\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Store the value of the mapping in the \"stored_data\" field\n       yml%vars(ix)%stored_data = TRIM( line_arg )\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Variable is already present in the yml object\n       !--------------------------------------------------------------------\n       IF ( append ) THEN\n\n          ! Append data to data that is already present\n          yml%vars(ix)%stored_data = TRIM( yml%vars(ix)%stored_data )     // &\n                                     TRIM( line_arg                 )\n\n       ELSE\n\n          ! Or store overwrite existing data\n          yml%vars(ix)%stored_data = line_arg\n\n       ENDIF\n\n       ! If type is known, read in values\n       IF ( yml%vars(ix)%var_type /= QFYAML_unknown_type ) THEN\n          CALL Read_Variable( yml%vars(ix), RC )\n          IF ( RC /= QFYAML_Success ) THEN\n             errMsg = 'Error encountered in \"Read_Variable\"!'\n             CALL Handle_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n    ENDIF\n\n    ! Store other fields of this variable\n    yml%vars(ix)%anchor_tgt = anchor_tgt_arg\n    yml%vars(ix)%anchor_ptr = anchor_ptr_arg\n    yml%vars(ix)%category   = category_arg\n    yml%vars(ix)%set_by     = set_by\n\n  END SUBROUTINE Add_Variable\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Copy_Anchor_Variable\n!\n! !DESCRIPTION: Adds a new variable that is a copy of a variable with a\n!  YAML anchor.  The new variable will contain all of the field values of\n!  the old variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Copy_Anchor_Variable( yml,          anchor_ix,                  &\n                                   var_w_anchor, var_pt_to_anchor,           &\n                                   RC                                       )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(IN)    :: anchor_ix\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)    :: var_w_anchor\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)    :: var_pt_to_anchor\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),               INTENT(INOUT) :: yml\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: ix\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! Copy_Anchor_Variable begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC           = QFYAML_Success\n    errMsg       = ''\n    thisLoc      = ' -> at Copy_Anchor_Variable (in module qfyaml_mod.F90)'\n\n    ! Prepare to store the data as a string\n    CALL Prepare_Store_Var( yml          = yml,                              &\n                            var_name     = TRIM( var_pt_to_anchor ),         &\n                            var_type     = QFYAML_unknown_type,              &\n                            var_size     = 1,                                &\n                            description  = \"Not yet created\",                &\n                            ix           = ix,                               &\n                            dynamic_size = .FALSE.,                          &\n                            RC           = RC                               )\n\n    ! Trap potential errors\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered at \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Copy each field of the \"anchor\" variable to the new variable\n    yml%vars(ix)%category    = yml%vars(anchor_ix)%category\n    yml%vars(ix)%description = yml%vars(anchor_ix)%description\n    yml%vars(ix)%set_by      = yml%vars(anchor_ix)%set_by\n    yml%vars(ix)%stored_data = yml%vars(anchor_ix)%stored_data\n    yml%vars(ix)%anchor_ptr  = yml%vars(anchor_ix)%anchor_tgt\n    yml%vars(ix)%anchor_tgt  = \"\"\n\n  END SUBROUTINE Copy_Anchor_Variable\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Read_Variable\n!\n! !DESCRIPTION: Get the start and end positions of the line content,\n!  and the number of entries.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Read_Variable( var, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_var_t), INTENT(INOUT) :: var\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history wi th the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: n\n    INTEGER                      :: n_entries\n    INTEGER                      :: stat\n\n    ! Arrays\n    INTEGER                      :: ix_start(QFYAML_MaxArr)\n    INTEGER                      :: ix_end(QFYAML_MaxArr)\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n    CHARACTER(LEN=QFYAML_StrLen) :: s1\n    CHARACTER(LEN=QFYAML_StrLen) :: s2\n    CHARACTER(LEN=QFYAML_StrLen) :: s3\n    CHARACTER(LEN=QFYAML_StrLen) :: s4\n\n    !=======================================================================\n    ! Read_Variable begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC        = QFYAML_Success\n    ix_start  = 0\n    ix_end    = 0\n    n         = 0\n    n_entries = 0\n    errMsg    = ''\n    thisLoc   = ' -> at Read_Variable (in module qfyaml_mod.F90)'\n\n    ! Read the stored data field\n    CALL Get_Fields_String( var%stored_data, QFYAML_separators,              &\n                            QFYAML_brackets, QFYAML_MaxArr,                  &\n                            n_entries,       ix_start,                       &\n                            ix_end                                          )\n\n    IF ( var%var_size /= n_entries ) THEN\n\n       IF ( .not. var%dynamic_size ) THEN\n\n          ! Allow strings of length 1 to be automatically concatenated\n          IF ( var%var_type == QFYAML_string_type .and.                      &\n               var%var_size == 1                        ) THEN\n             var%char_data(1) =                                              &\n                  TRIM(var%stored_data(ix_start(1):ix_end(n_entries)))\n             RETURN\n\n          ELSE\n\n             ! Return with error\n             errMsg = \"Variable \" // TRIM( var%var_name )                 // &\n                      \" has the wrong size\"\n             CALL Handle_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ELSE\n          var%var_size = n_entries\n          CALL Resize_Storage(var)\n       ENDIF\n    ENDIF\n\n    DO n = 1, n_entries\n       stat = 0\n       SELECT CASE ( var%var_type )\n\n          CASE( QFYAML_INTEGER_type )\n             READ( var%stored_data(ix_start(n):ix_end(n)), *, iostat=stat )  &\n                  var%int_data(n)\n\n          CASE( QFYAML_real_type )\n             READ( var%stored_data(ix_start(n):ix_end(n)), *, iostat=stat )  &\n                  var%real_data(n)\n\n          CASE( QFYAML_string_type )\n             var%char_data(n) = TRIM( var%stored_data(ix_start(n):ix_end(n)) )\n\n          CASE( QFYAML_bool_type )\n             READ( var%stored_data(ix_start(n):ix_end(n)), *, iostat=stat )  &\n                  var%bool_data(n)\n       END SELECT\n\n       ! Exit with error if the variable can't be read properly\n       IF ( stat /= 0 ) THEN\n          s1 = \"Error parsing YAML file!\"\n          s2 = \"Reading variable : \" // var%var_name\n          s3 = \"Variable type    : \" // QFYAML_type_names(var%var_type)\n          s4 = \"Parsing value    : \" // var%stored_data(ix_start(n):ix_end(n))\n          errMsg = TRIM( s1 ) // NEW_LINE( 'a' ) //                          &\n                   TRIM( s2 ) // NEW_LINE( 'a' ) //                          &\n                   TRIM( s3 ) // NEW_LINE( 'a' ) //                          &\n                   TRIM( s4 )\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE Read_Variable\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Trim_Comment\n!\n! !DESCRIPTION:  Strip comments, but only outside quoted strings\n!  (so that var = '#yolo' is valid when # is a comment char)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Trim_Comment(line, comment_chars)\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: comment_chars\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: line\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER          :: n\n\n    ! Strings\n    CHARACTER(LEN=1) :: current_char\n    CHARACTER(LEN=1) :: need_char\n\n    !=======================================================================\n    ! Trim_Comment begins here!\n    !=======================================================================\n    need_char = \"\"\n\n    DO n = 1, LEN(line)\n       current_char = line(n:n)\n\n       IF (need_char == \"\") THEN\n          IF (current_char == \"'\") THEN\n             need_char = \"'\"    ! Open string\n          ELSE IF (current_char == '\"') THEN\n             need_char = '\"'    ! Open string\n          ELSE IF (INDEX(comment_chars, current_char) /= 0) THEN\n             line = line(1:n-1) ! Trim line up to comment character\n             EXIT\n          ENDIF\n       ELSE IF (current_char == need_char) THEN\n          need_char = \"\"        ! Close string\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE Trim_Comment\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Check\n!\n! !DESCRIPTION: Checks a QFYAML configuration variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Check( yml, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(IN)  :: yml\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                      :: n\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! QFYAML_Check begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at QFYAML_Check (in module qfyaml_mod.F90)'\n\n    DO n = 1, yml%num_vars\n\n       IF ( yml%vars(n)%var_type == QFYAML_unknown_type) THEN\n          errMsg = \"Unknown variable \" // TRIM( yml%vars(n)%var_name )    // &\n                   \" specified\"\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE QFYAML_check\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_FindNextHigher\n!\n! !DESCRIPTION: For a given category or variable name, returns its depth\n!  (i.e. indentation level).  This is equal to the number of separator\n!  strings.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION QFYAML_FindDepth( name ) RESULT( depth )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: name\n!\n! RETURN VALUE:\n!\n    INTEGER                       :: depth\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ix, c\n\n    ! Keep searching for all category separators\n    ! until there aren't any more.\n    depth = 1\n    c     = LEN_TRIM( name )\n    DO\n       ix = INDEX( name(1:c), QFYAML_Category_Separator, back=.TRUE. )\n       IF ( ix <= 1 ) EXIT\n       depth = depth + 1\n       c = ix - 1\n    ENDDO\n\n  END FUNCTION QFYAML_FindDepth\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_FindNextHigher\n!\n! !DESCRIPTION: Finds variables that are one category depth higher than\n!  a given target string (trg_str).  Returns the number of variables that\n!  match this criteria (n_matches), as well as the variables themselves\n!  (match_vars).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_FindNextHigher( yml, trg_str, match_ct, match_vars )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),               INTENT(IN)  :: yml\n    CHARACTER(LEN=*),             INTENT(IN)  :: trg_str\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(OUT) :: match_ct\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT) :: match_vars(:)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                  :: c, ix, len_t\n    CHARACTER(QFYAML_NamLen) :: last_match\n\n    !=======================================================================\n    ! QFYAML_FindNextHigher begins here!\n    !=======================================================================\n\n    ! Initialize\n    len_t      = LEN_TRIM( trg_str )\n    match_ct   = 0\n    match_vars = 'UNKNOWN'\n    last_match = 'UNKNOWN'\n\n    ! Loop over # of stored variables\n    DO ix = 1, yml%num_vars\n\n       ! Reset for safety's sake\n       c = 0\n\n       ! Skip to next variable  if the string is shorter than the prefix\n       IF ( LEN_TRIM( yml%vars(ix)%var_name ) < len_t ) CYCLE\n\n       ! Test if the prefix is in the variable name\n       IF ( INDEX( TRIM( yml%vars(ix)%var_name ), trg_str ) > 0 ) THEN\n\n          ! ... then test if the variable contains another separator.\n          c = INDEX( yml%vars(ix)%var_name(len_t+1:),                        &\n                       QFYAML_Category_Separator                            )\n\n          IF ( c == 0 ) THEN\n\n             ! If no other separator is found, the var_name specifies\n             ! a category and a YAML variable (e.g. weather%pressure).\n             ! This qualifies as a match, so match_ct and match_vars.\n             match_ct             = match_ct + 1\n             match_vars(match_ct) = TRIM( yml%vars(ix)%var_name )\n             last_match           = TRIM( match_vars(match_ct) )\n\n          ELSE\n\n             ! If another separator is found, then the var_name contains\n             ! possibly several more categories and a variable (e.g.\n             ! weather%temperature%daily, weather%temperature%weekly).\n             ! In this case, we will only consider the first match\n             ! as a true match (i.e. returns \"weather%temperature\").\n             IF ( INDEX( TRIM( yml%vars(ix)%var_name ),                      &\n                         TRIM( last_match            )  ) /= 1 ) THEN\n                match_ct             = match_ct + 1\n                match_vars(match_ct) = TRIM( yml%vars(ix)%var_name(1:len_t+c-1))\n                last_match           = TRIM( match_vars(match_ct) )\n             ENDIF\n           ENDIF\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE QFYAML_FindNextHigher\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Split_Category\n!\n! !DESCRIPTION: splits the category and the var name\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Split_Category( variable, category, var_name )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_var_t),       INTENT(IN)  :: variable\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(QFYAML_NamLen), INTENT(OUT) :: category\n    CHARACTER(QFYAML_NamLen), INTENT(OUT) :: var_name\n!\n! !REMARKS:\n!  TO DO: Support nested categories\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ix\n\n    !=======================================================================\n    ! Split_Category begins here!\n    !=======================================================================\n    ix = INDEX( variable%var_name, QFYAML_category_separator )\n\n    IF ( ix == 0 ) THEN\n       category = \"\"\n       var_name = variable%var_name\n    ELSE\n       category = variable%var_name(1:ix-1)\n       var_name = variable%var_name(ix+1:)\n    ENDIF\n\n  END SUBROUTINE Split_Category\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Resize_Storage\n!\n! !DESCRIPTION: Resize the storage size of variable, which can be of type\n!  INTEGER, LOGICAL, REAL, or CHARACTER\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Resize_Storage( variable )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_var_t), INTENT(INOUT) :: variable\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=======================================================================\n    ! Resize_Storage begins here!\n    !=======================================================================\n    SELECT CASE ( variable%var_type )\n\n       CASE( QFYAML_INTEGER_type )\n          DEALLOCATE( variable%int_data )\n          ALLOCATE( variable%int_data(variable%var_size) )\n\n       CASE( QFYAML_bool_type )\n          DEALLOCATE( variable%bool_data )\n          ALLOCATE( variable%bool_data(variable%var_size) )\n\n       CASE( QFYAML_real_type )\n          DEALLOCATE( variable%real_data )\n          ALLOCATE( variable%real_data(variable%var_size) )\n\n       CASE( QFYAML_string_type )\n          DEALLOCATE( variable%char_data )\n          ALLOCATE( variable%char_data(variable%var_size) )\n\n    END SELECT\n\n  END SUBROUTINE Resize_Storage\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | APR 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Prepare_Store_Var\n!\n! !DESCRIPTION: Helper routine to store variables. This is useful because\n!  a lot of the same code is executed for the different types of variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Prepare_Store_Var( yml,      var_name,    var_type,             &\n                                var_size, description, ix,                   &\n                                RC,       dynamic_size                      )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)   :: var_name\n    INTEGER,          INTENT(IN)   :: var_type\n    INTEGER,          INTENT(IN)   :: var_size\n    CHARACTER(LEN=*), INTENT(IN)   :: description\n    LOGICAL,          OPTIONAL     :: dynamic_size\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),  INTENT(INOUT) :: yml\n\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,         INTENT(OUT)   :: ix          ! Index of variable\n    INTEGER,         INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! Prepare_Store_Var begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_Success\n    errMsg  = ''\n    thisLoc = ' -> at Prepare_Store_Var (in module qfyaml_mod.F90)'\n\n    ! Check if variable already exists\n    CALL get_var_index(yml, var_name, ix)\n\n    IF (ix == -1) THEN ! Create a new variable\n       CALL ensure_free_storage(yml)\n       yml%sorted               = .false.\n       ix                       = yml%num_vars + 1\n       yml%num_vars             = yml%num_vars + 1\n       yml%vars(ix)%used        = .false.\n       yml%vars(ix)%stored_data = unstored_data_string\n    ELSE\n       ! Only allowed when the variable is not yet created\n       IF (yml%vars(ix)%var_type /= QFYAML_unknown_type) then\n          errMsg = \"Variable \" // trim(var_name) // \" already exists\"\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    yml%vars(ix)%var_name    = var_name\n    yml%vars(ix)%description = description\n    yml%vars(ix)%var_type    = var_type\n    yml%vars(ix)%var_size    = var_size\n\n    IF ( PRESENT( dynamic_size ) ) THEN\n       yml%vars(ix)%dynamic_size = dynamic_size\n    ELSE\n       yml%vars(ix)%dynamic_size = .false.\n    ENDIF\n\n    SELECT CASE ( var_type )\n\n       CASE( QFYAML_INTEGER_type )\n          ALLOCATE( yml%vars(ix)%int_data(var_size) )\n\n       CASE( QFYAML_real_type )\n          ALLOCATE( yml%vars(ix)%real_data(var_size) )\n\n       CASE( QFYAML_string_type )\n          ALLOCATE( yml%vars(ix)%char_data(var_size) )\n\n       CASE( QFYAML_bool_type )\n          ALLOCATE( yml%vars(ix)%bool_data(var_size) )\n\n    END SELECT\n\n  END SUBROUTINE Prepare_Store_Var\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Prepare_Get_Var\n!\n! !DESCRIPTION: Helper routine to get variables. This is useful because a\n!  lot of the same code is executed for the different types of variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Prepare_Get_Var( yml, var_name, var_type, var_size, ix, RC )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: var_name\n    INTEGER,          INTENT(IN)    :: var_type\n    INTEGER,          INTENT(IN)    :: var_size\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: ix\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! Prepare_Get_Var begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = \"\"\n    thisLoc = \" -> at Prepare_Get_Var (in module qfyaml_mod.F90)\"\n\n    ! Get the variable index from the name\n    CALL Get_Var_Index( yml, var_name, ix )\n\n    IF ( ix == QFYAML_Failure ) THEN\n\n       ! Couldn't find variable, exit with error\n       errMsg = \"QFYAML_get: variable \" // TRIM( var_name) // \" not found!\"\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n\n    ELSE IF ( yml%vars(ix)%var_type /= var_type ) THEN\n\n       ! Variable is different type than expected: exit wit error\n       WRITE( errMsg, \"(a)\" )                                                &\n            \"Variable \" // TRIM( var_name ) // \" has different type (\"    // &\n            TRIM( QFYAML_type_names( yml%vars(ix)%var_type ) )            // &\n            \") than requested (\"                                          // &\n            TRIM( QFYAML_type_names(var_type ) ) // \")\"\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n\n    ELSE IF ( var_size < yml%vars(ix)%var_size ) THEN\n\n       ! Variable has different size than requested: exit w/ error\n       WRITE( errMsg, \"(a,i0,a,i0,a)\" )                                      &\n            \"Variable \" // TRIM( var_name ) // \" has different size (\",      &\n            yml%vars(ix)%var_size, \") than requested (\", var_size, \")\"\n       CALL Handle_Error( errMsg, RC, thisLoc )\n\n    ELSE\n\n       ! All good, variable will be used\n       yml%vars(ix)%used = .true.\n\n    ENDIF\n\n  END SUBROUTINE Prepare_Get_Var\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ensure_free_storage\n!\n! !DESCRIPTION: Routine to ensure that enough storage is allocated for the\n!  configuration type. If not the new size will be twice as much as the\n!  current size. If no storage is allocated yet a minumum amount of storage\n!  is allocated.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Ensure_Free_Storage( yml )\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT)   :: yml\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(QFYAML_var_t), ALLOCATABLE :: yml_copy(:)\n    INTEGER                         :: cur_size, new_size\n!\n! !DEFINED PARAMETERS:\n!\n    INTEGER,            PARAMETER   :: min_dyn_size = 100\n\n    !=======================================================================\n    ! Ensure_Free_storage begins here!\n    !=======================================================================\n    IF ( ALLOCATED( yml%vars ) ) THEN\n       cur_size = SIZE( yml%vars )\n\n       IF ( cur_size < yml%num_vars + 1 ) THEN\n          new_size = 2 * cur_size\n          ALLOCATE( yml_copy( cur_size ) )\n          yml_copy = yml%vars\n          DEALLOCATE( yml%vars )\n          ALLOCATE( yml%vars( new_size ) )\n          yml%vars(1:cur_size) = yml_copy\n       ENDIF\n    ELSE\n       ALLOCATE( yml%vars( min_dyn_size ) )\n    ENDIF\n\n  END SUBROUTINE Ensure_Free_Storage\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Fields_String\n!\n! !DESCRIPTION: Routine to find the indices of entries in a string.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Fields_String( line_arg, delims,  brackets,                 &\n                                n_max,    n_found, ixs_start, ixs_end       )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)   :: line_arg         ! Line to read\n    CHARACTER(LEN=*), INTENT(IN)   :: delims           ! Accepted delimiters\n    CHARACTER(LEN=*), INTENT(IN)   :: brackets         ! brackets\n    INTEGER,          INTENT(IN)   :: n_max            ! Max entries to read\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,         INTENT(INOUT) :: n_found          ! # of entries found\n    INTEGER,         INTENT(INOUT) :: ixs_start(n_max) ! start pt. of ith entry\n    INTEGER,         INTENT(INOUT) :: ixs_end(n_max)   ! end pt.   of ith entry\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                          :: B, ix, ix_prev\n\n    ! Strings\n    CHARACTER(LEN=1                ) :: bkt\n    CHARACTER(LEN=QFYAML_MaxDataLen) :: line\n\n    !=======================================================================\n    ! Get_Fields_String begins here!\n    !=======================================================================\n\n    ! Initialize\n    ix      = 0\n    ix_prev = 0\n    n_found = 0\n    line    = line_arg\n\n    !=======================================================================\n    ! Get_Fields_String begins here!\n    !=======================================================================\n\n    ! Strip out brackets from the line\n    DO B = 1, LEN( QFYAML_brackets )\n       bkt = QFYAML_brackets(B:B)\n       ix  = INDEX( line, bkt )\n       IF ( ix > 0 ) line(ix:ix) = \" \"\n    ENDDO\n\n    ! Parse the values\n    ix = 0\n    DO WHILE (n_found < n_max)\n\n       ! Find the starting point of the next entry (a non-delimiter value)\n       ix = VERIFY(line(ix_prev+1:), delims)\n       IF (ix == 0) EXIT\n\n       n_found            = n_found + 1\n       ixs_start(n_found) = ix_prev + ix ! the absolute position in 'line2'\n\n       ! Get the end point of the current entry (next delimiter index minus one)\n       ix = SCAN( line(ixs_start(n_found)+1:), delims) - 1\n\n       IF (ix == -1) THEN              ! If there is no last delimiter,\n          ixs_end(n_found) = LEN(line) ! the end of the line is the endpoint\n       ELSE\n          ixs_end(n_found) = ixs_start(n_found) + ix\n       ENDIF\n\n       ix_prev = ixs_end(n_found) ! We continue to search from here\n    ENDDO\n\n  END SUBROUTINE get_fields_string\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Binary_Search_Variable\n!\n! !DESCRIPTION: Performs a binary search for a given variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Binary_Search_Variable( yml, var_name, ix )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(IN)  :: yml\n    CHARACTER(LEN=*), INTENT(IN)  :: var_name\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: ix\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: i_min, i_max, i_mid\n\n    i_min = 1\n    i_max = yml%num_vars\n    ix    = - 1\n\n    !=======================================================================\n    ! Binary_Search_Variable begins here!\n    !=======================================================================\n\n    DO WHILE (i_min < i_max)\n       i_mid = i_min + (i_max - i_min) / 2\n       IF ( LLT( yml%vars(i_mid)%var_name, var_name ) ) THEN\n          i_min = i_mid + 1\n       ELSE\n          i_max = i_mid\n       ENDIF\n    ENDDO\n\n    ! If not found, binary_search_variable is not set here, and stays -1\n    IF ( i_max == i_min .and. yml%vars(i_min)%var_name == var_name ) THEN\n       ix = i_min\n    ELSE\n       ix = -1\n    ENDIF\n\n  END SUBROUTINE Binary_Search_Variable\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Sort\n!\n! !DESCRIPTION: Sorts the variables list for faster lookup\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Sort( yml )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: yml\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n !  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=======================================================================\n    ! QFYAML_Sort begins here!\n    !=======================================================================\n\n    ! Sort the list\n    CALL Qsort( yml%vars(1:yml%num_vars) )\n\n    ! Indicate that we have sorted\n    yml%sorted = .TRUE.\n\n  END SUBROUTINE QFYAML_sort\n\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Qsort\n!\n! !DESCRIPTION: Simple implementation of quicksort algorithm to sort\n!  the variable list alphabetically.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  RECURSIVE SUBROUTINE Qsort( list )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_var_t), INTENT(INOUT) :: list(:)\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: split_pos\n\n    !=======================================================================\n    ! Qsort begins here!\n    !=======================================================================\n    IF ( SIZE(list) > 1 ) then\n       CALL Partition_Var_List( list, split_pos )\n       CALL Qsort( list(:split_pos-1) )\n       CALL Qsort( list(split_pos:) )\n    ENDIF\n\n  END SUBROUTINE qsort\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Partition_Var_List\n!\n! !DESCRIPTION: Helper routine for quicksort, to perform partitioning\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Partition_Var_List(list, marker)\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_var_t), INTENT(INOUT) :: list(:)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT)   :: marker\n!\n! !REVISION HISTORY:\n!  15 Apr2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: left\n    INTEGER                      :: right\n    INTEGER                      :: pivot_ix\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_NamLen) :: pivot_value\n\n    ! Objects\n    TYPE(QFYAML_var_t)           :: temp\n\n    !=======================================================================\n    ! Partition_Var_List begins here!\n    !=======================================================================\n\n    left        = 0\n    right       = SIZE( list ) + 1\n\n    ! Take the middle element as pivot\n    pivot_ix    = SIZE( list ) / 2\n    temp        = list(pivot_ix)\n    pivot_value = temp%var_name\n\n    DO WHILE ( left < right )\n\n       right = right - 1\n       DO WHILE ( LGT( list(right)%var_name, pivot_value ) )\n          right = right - 1\n       ENDDO\n\n       left = left + 1\n       DO WHILE (LGT( pivot_value, list(left)%var_name ) )\n          left = left + 1\n       ENDDO\n\n       IF ( left < right ) THEN\n          temp = list(left)\n          list(left) = list(right)\n          list(right) = temp\n       ENDIF\n    ENDDO\n\n    IF ( left == right ) THEN\n       marker = left + 1\n    ELSE\n       marker = left\n    ENDIF\n\n  END SUBROUTINE partition_var_list\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Print\n!\n! !DESCRIPTION: Prints the contents of a yml object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Print( yml, RC, fileName, searchKeys )\n!\n! !USES:\n!\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), OPTIONAL      :: fileName\n    CHARACTER(LEN=*), OPTIONAL      :: searchKeys(:)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  22 Jul 2022\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: isFileName, isSearchKeys, printVar\n    INTEGER                      :: c,          c0,           d\n    INTEGER                      :: i,          lun,          varDepth\n\n    ! Strings\n    CHARACTER(LEN=3)             :: crlf\n    CHARACTER(LEN=QFYAML_NamLen) :: display\n    CHARACTER(LEN=QFYAML_NamLen) :: varName\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    ! String arrays\n    CHARACTER(LEN=QFYAML_NamLen) :: stack(QFYAML_MaxStack)\n    CHARACTER(LEN=QFYAML_NamLen) :: lastStack(QFYAML_MaxStack)\n!\n! !DEFINED PARAMETERS:\n!\n    CHARACTER(LEN=2), PARAMETER  :: QFYAML_indent = \"  \"\n\n    !========================================================================\n    ! QFYAML_Print begins here!\n    !========================================================================\n\n    ! Initialize\n    RC           = QFYAML_Success\n    lun          = 6\n    crlf         = ACHAR(13) // ACHAR(10)  ! Carriage Return + Line Feed (CRLF)\n    isFileName   = PRESENT( fileName   )\n    isSearchKeys = PRESENT( searchKeys )\n    lastStack    = ''\n    errMsg       = ''\n    thisLoc      = ' -> at QFYAML_Print (in qfyaml_mod.F90)'\n\n    !========================================================================\n    ! Open YAML file for output if a filename has been specified\n    !========================================================================\n    IF ( isFileName ) THEN\n\n       ! If fileName = \"*\", then we'll print to stdout,\n       ! Otherwise we'll send output to the file name that is specified.\n       IF ( TRIM( fileName ) /= '*' ) THEN\n          ! Open file\n          lun = 700\n          OPEN( lun, FILE=TRIM( fileName ),  STATUS='UNKNOWN',                  &\n                  FORM='FORMATTED',       IOSTAT=RC                         )\n\n          ! Trap errors\n          IF ( RC /= QFYAML_SUCCESS ) THEN\n             errMsg = 'Could not open YAML file for output!'\n             CALL Handle_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       ! Write YAML header\n       WRITE( lun, '(a)') '---'\n    ENDIF\n\n    !========================================================================\n    ! Step through YAML variables and write output to file\n    !========================================================================\n    DO i = 1, yml%num_vars\n\n       ! Initialize loop variables\n       c       = 0\n       c0      = 0\n       display = ''\n       stack   = ''\n       varName = yml%vars(i)%var_name\n\n       !---------------------------------------------------------------------\n       ! If searchKeys has been provided, then test if the first part of\n       ! the variable name matches any of the search keys.  If so, then\n       ! set a logical flag to denote we will print out the variable.\n       ! Or if searchKeys is not passed, then print out all variables.\n       !---------------------------------------------------------------------\n       printVar = .TRUE.\n       IF ( isSearchKeys ) THEN\n          c = INDEX( varName, QFYAML_category_separator )\n          printVar = ( ANY( searchKeys == yml%vars(i)%var_name(1:c-1) ) )\n       ENDIF\n\n       ! Skip this variable if it isn't to be printed\n       IF ( .not. printVar ) CYCLE\n\n       ! Also skip this variable if it has undefined data\n       IF ( ADJUSTL(yml%vars(i)%stored_data) == unstored_data_string ) CYCLE\n\n       !---------------------------------------------------------------------\n       ! Store each level of the YAML variable in a stack for use below\n       !---------------------------------------------------------------------\n\n       ! Find how many level this variable goes down\n       varDepth = QFYAML_FindDepth( varName )\n\n       ! Split the variable into substrings and store in stack\n       DO d = 1, varDepth-1\n          c        = INDEX( varName(c0+1:), QFYAML_category_separator )\n          stack(d) = varName(c0+1:c0+c-1) // ':'\n          c0       = c0 + c\n       ENDDO\n       stack(d) = &\n           TRIM( varName(c0+1:) ) // ':' // TRIM( yml%vars(i)%stored_data )\n\n       !---------------------------------------------------------------------\n       ! Print out to a YAML file\n       !\n       ! Only print levels that haven't been printed in prior variables\n       !\n       ! For example, if two variables are:\n       !   author%age\n       !   author%fav_reals\n       ! then only print out \"author:\"\n       !---------------------------------------------------------------------\n       DO d = 1, varDepth\n          IF ( TRIM( stack(d) ) /= TRIM( lastStack(d) ) ) THEN\n\n             ! Place quotes around \"NO\" or \"no\", as this is a\n             ! synonym for \"false\" (bmy, 09 Aug 2022)\n             display = stack(d)\n             IF ( d == 1 ) THEN\n                IF ( display(1:3) == \"NO:\" ) display = \"'NO':\"\n                IF ( display(1:3) == \"no:\" ) display = \"'no':\"\n             ENDIF\n\n             ! Print YAML to screen or file\n             WRITE( lun, '(a,a)' ) REPEAT( QFYAML_indent, d-1 ),             &\n                                   TRIM( display              )\n          ENDIF\n       ENDDO\n\n       ! Save a copy of stack for next iteration\n       lastStack = stack\n    ENDDO\n\n    !========================================================================\n    ! Open YAML file for output if a filename has been specified\n    !========================================================================\n    IF ( isFileName ) THEN\n\n       ! Close the file (but not if we print to stdout)\n       IF ( lun == 700 ) THEN\n          CLOSE( lun, IOSTAT=RC )\n\n          ! Trap errors\n          IF ( RC /= QFYAML_SUCCESS ) THEN\n             errMsg = 'Error encountered when closing YAML output file!'\n             CALL Handle_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE QFYAML_Print\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_CleanUp\n!\n! !DESCRIPTION: Clear all data from a QFYAML_t object, so that it can be reused.\n!  Note that this also happens automatically when such an object goes out\n!  of scope.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_CleanUp( yml )\n!\n! !USES:\n!\n    IMPLICIT NONE\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(INOUT) :: yml\n!\n! !REVISION HISTORY:\n!  15 Apr 2020\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=======================================================================\n    ! QFYAML_CleanUp begins here!\n    !=======================================================================\n\n    ! Reset scalars\n    yml%sorted   = .false.\n    yml%num_vars = 0\n\n    ! Deallocate variables array\n    IF ( ALLOCATED( yml%vars ) ) DEALLOCATE( yml%vars )\n\n  END SUBROUTINE QFYAML_CleanUp\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_Get_Size\n!\n! !DESCRIPTION: Get the size of a variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Get_Size( yml, var_name, res, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(IN)  :: yml\n    CHARACTER(LEN=*), INTENT(IN)  :: var_name\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: res\n    INTEGER,          INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                      :: ix\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! Prepare_Store_Var begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at QFYAML_Get_Size (in module qfyaml_mod.F90)'\n\n    ! Get variable index\n    CALL Get_Var_Index( yml, var_name, ix )\n\n    ! Return var_size or exit w/ error\n    IF ( ix /= QFYAML_Failure ) THEN\n       res = yml%vars(ix)%var_size\n    ELSE\n       res = QFYAML_Failure\n       errMsg = \"Variable [\" // TRIM( var_name ) // \"] not found\"\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE QFYAML_Get_Size\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: QFYAML_get_type\n!\n! !DESCRIPTION: Get the type of a given variable of a configuration type\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE QFYAML_Get_Type( yml, var_name, res, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(QFYAML_t),   INTENT(IN)  :: yml\n    CHARACTER(LEN=*), INTENT(IN)  :: var_name\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: res\n    INTEGER,          INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  15 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!\n    ! Scalars\n    INTEGER                      :: ix\n\n    ! Strings\n    CHARACTER(LEN=QFYAML_StrLen) :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen) :: thisLoc\n\n    !=======================================================================\n    ! Prepare_Store_Var begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> QFYAML_Get_Type (in module qfyaml_mod.F90)'\n\n    ! Find the variable index\n    CALL Get_Var_Index( yml, var_name, ix )\n\n    ! Retrurn var_type or exit w/ error\n    IF ( ix /= QFYAML_Failure ) THEN\n       res = yml%vars(ix)%var_type\n    ELSE\n       res = QFYAML_Failure\n       errMsg = \"Variable [\" // TRIM( var_name ) // \"] not found\"\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE QFYAML_get_type\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: First_Char_Pos\n!\n! !DESCRIPTION:Returns the position of the first non-whitespace\n!  character in a string\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION First_Char_Pos( str ) RESULT( pos )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: str\n!\n! !RETURN VALUE:\n!\n    INTEGER                      :: pos\n!\n! !REVISION HISTORY:\n!  09 Feb 2022- R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=QFYAML_StrLen) :: temp\n\n    ! Remove leading whitespace and store in str\n    temp = ADJUSTL( str )\n\n    ! Return the location of the first non-whitespace character\n    pos  = INDEX( str, temp(1:1) )\n\n  END FUNCTION First_Char_Pos\n!EOC\n!------------------------------------------------------------------------------\n! QFYAML: Bob Yantosca | yantosca@seas.harvard.edu | Apr 2020\n! Based on existing package https://github.com/jannisteunissen/config_fortran\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Sequence_VarName\n!\n! !DESCRIPTION:  Computes the category and varname from the category stack.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Sequence_VarName( cat_index, cat_stack,                     &\n                                   category,  var_name,  append             )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,                      INTENT(IN)  :: cat_index\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(IN)  :: cat_stack(QFYAML_MaxStack)\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT) :: category\n    CHARACTER(LEN=QFYAML_NamLen), INTENT(OUT) :: var_name\n    LOGICAL,                      INTENT(OUT) :: append\n!\n! !REVISION HISTORY:\n!  09 Feb 2022- R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                            :: C\n    CHARACTER(LEN=QFYAML_NamLen), SAVE :: last_var = \"\"\n\n    ! Get the variable name for YAML sequences, which includes\n    ! the category prefixed to it.\n    category = \"\"\n    var_name = \"\"\n    IF ( cat_index == 1 ) THEN\n       category = \"\"\n       var_name = cat_stack(1)\n    ELSE\n       DO C = 1, cat_index-1\n          category = TRIM( category ) // TRIM( cat_stack(C) )\n          IF ( C < cat_index-1 ) THEN\n             category = TRIM( category ) // QFYAML_category_separator\n          ENDIF\n       ENDDO\n       var_name = TRIM( category             )                            // &\n                  QFYAML_category_separator                               // &\n                  TRIM( cat_stack(cat_index) )\n    ENDIF\n\n    ! If this variable name is the same as on the last call, then set\n    ! append=T.  This will tell Add_Variable to append the value into the\n    ! same variable in the YAML object rather than saving it into a new\n    ! variable.\n    append = .FALSE.\n    IF ( TRIM( var_name ) == TRIM( last_var ) ) append = .TRUE.\n\n    ! Save for next iteration\n    last_var = var_name\n  END SUBROUTINE Get_Sequence_VarName\n!EOC\n!############################################################################\n!### HERE FOLLOWS OVERLOADED MODULE PROCEDURES.\n!### THESE ARE SIMPLE ROUTINES, SO WE WILL OMIT ADDING SUBROUTINE HEADERS\n!############################################################################\n\n  SUBROUTINE Add_Real( yml, var_name, real_data, comment, RC )\n    !\n    ! Add a YAML variable with a REAL value\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(IN   ) :: real_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = '-> at Add_Real (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml, var_name, QFYAML_real_type,                 &\n                            1,   comment,  ix,               RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%real_data(1) = real_data\n    ENDIF\n\n  END SUBROUTINE Add_Real\n\n  SUBROUTINE Add_Real_Array( yml,     var_name,  real_data,                  &\n                             comment, RC,        dynamic_size               )\n    !\n    ! Add a YAML variable with an array of type REAL\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(IN   ) :: real_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n    LOGICAL,          OPTIONAL      :: dynamic_size\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Real_Array (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml,             var_name,    QFYAML_real_type,  &\n                            SIZE(real_data), comment,     ix,                &\n                            RC,              dynamic_size                   )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%real_data = real_data\n    ENDIF\n\n  END SUBROUTINE Add_Real_Array\n\n  SUBROUTINE Add_Int( yml, var_name, int_data, comment, RC )\n    !\n    ! Add a YAML variable with an INTEGER value\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(IN   ) :: int_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Int (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml, var_name, QFYAML_INTEGER_type,              &\n                            1,   comment,  ix,                  RC          )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%int_data(1) = int_data\n    ENDIF\n\n  END SUBROUTINE Add_Int\n\n  SUBROUTINE Add_Int_Array( yml,     var_name, int_data,                     &\n                            comment, RC,       dynamic_size                 )\n    !\n    ! Add a YAML variable with an array of type INTEGER\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(IN   ) :: int_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    LOGICAL,          OPTIONAL      :: dynamic_size\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Int_Array (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml,            var_name, QFYAML_INTEGER_type,   &\n                            SIZE(int_data), comment,  ix,                    &\n                            RC,             dynamic_size                    )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%int_data = int_data\n    ENDIF\n  END SUBROUTINE Add_Int_Array\n\n  SUBROUTINE Add_String( yml, var_name, char_data, comment, RC )\n    !\n    ! Add a YAML variable with an CHARACTER value\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    CHARACTER(LEN=*), INTENT(IN   ) :: char_data\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_String (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml, var_name, QFYAML_string_type,               &\n                            1,   comment,  ix,                  RC          )\n\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%char_data(1) = char_data\n    ENDIF\n\n  END SUBROUTINE Add_String\n\n  SUBROUTINE Add_String_Array( yml,     var_name,  char_data,                &\n                               comment, RC,        dynamic_size             )\n    !\n    ! Add a YAML variable with an array of type character\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    CHARACTER(LEN=*), INTENT(IN   ) :: char_data(:)\n    INTEGER,          INTENT(OUT  ) :: RC\n    LOGICAL,          OPTIONAL      :: dynamic_size\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_String_Array (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml,             var_name,   QFYAML_string_type, &\n                            SIZE(char_data), comment,    ix,                 &\n                            RC,              dynamic_size                   )\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%char_data = char_data\n    ENDIF\n\n  END SUBROUTINE Add_String_Array\n\n  SUBROUTINE Add_Bool( yml, var_name, bool_data, comment, RC )\n    !\n    ! Add a YAML variable with an logical value\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(IN   ) :: bool_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Bool (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml, var_name, QFYAML_bool_type,                 &\n                            1,   comment,  ix,                RC            )\n\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) THEN\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%bool_data(1) = bool_data\n    ENDIF\n\n  END SUBROUTINE Add_Bool\n\n  SUBROUTINE Add_Bool_Array(yml,     var_name, bool_data,                    &\n                            comment, RC,       dynamic_size                 )\n    !\n    ! Add a YAML variable with an array of type LOGICAL\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(IN   ) :: bool_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n    LOGICAL,          OPTIONAL      :: dynamic_size\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Bool_Array (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Store_Var( yml,             var_name,    QFYAML_bool_type,  &\n                            SIZE(bool_data), comment,     ix,                &\n                            RC,              dynamic_size                   )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Store_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( yml%vars(ix)%stored_data /= unstored_data_string ) then\n       CALL Read_Variable( yml%vars(ix), RC )\n       IF ( RC /= QFYAML_Success ) THEN\n          errMsg = 'Error encountered in \"Read_Variable\"!'\n          CALL Handle_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       yml%vars(ix)%bool_data = bool_data\n    ENDIF\n\n  END SUBROUTINE Add_Bool_Array\n\n  SUBROUTINE Get_Real_Array( yml, var_name, real_data, RC )\n    !\n    ! Get a real array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(INOUT) :: real_data(:)\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    INTEGER                         :: sz_data\n    INTEGER                         :: sz_stored\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_Real_Array (in module qfyaml_mod.F90)'\n\n    ! Make sure the real_data array has at last 1 element\n    sz_data = SIZE( real_data )\n    IF ( sz_data < 1 ) THEN\n       errMsg = 'Argument \"real_data\" must be an array!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Look up the stored data\n    CALL Prepare_Get_Var( yml,     var_name, QFYAML_real_type,               &\n                          sz_data, ix,       RC                             )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Number of elements of stored data in this variable\n    sz_stored = SIZE( yml%vars(ix)%real_data )\n\n    ! Make sure the data array has enough elements\n    IF ( sz_data < sz_stored ) THEN\n       errMsg = 'Argument \"real_data\" does not have enough elements!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Only copy over as many elements as are stored\n    real_data(1:sz_stored) = yml%vars(ix)%real_data(1:sz_stored)\n\n  END SUBROUTINE Get_Real_Array\n\n  SUBROUTINE Get_Int_Array( yml, var_name, int_data, RC )\n    !\n    ! Get a INTEGER array of a given name\n    !\n\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(INOUT) :: int_data(:)\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    INTEGER                         :: sz_data\n    INTEGER                         :: sz_stored\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_Int_Array (in module qfyaml_mod.F90)'\n\n    ! Make sure the real_data array has at last 1 element\n    sz_data = SIZE( int_data )\n    IF ( sz_data < 1 ) THEN\n       errMsg = 'Argument \"int_data\" must be an array!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Look up the stored data\n    CALL Prepare_Get_Var( yml,     var_name, QFYAML_integer_type,            &\n                          sz_data, ix,       RC                             )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Number of elements of stored data in this variable\n    sz_stored = SIZE( yml%vars(ix)%int_data )\n\n    ! Make sure the data array has enough elements\n    IF ( sz_data < sz_stored ) THEN\n       errMsg = 'Argument \"real_data\" does not have enough elements!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Only copy over as many elements as are stored\n    int_data(1:sz_stored) = yml%vars(ix)%int_data(1:sz_stored)\n\n  END SUBROUTINE Get_Int_Array\n\n  SUBROUTINE Get_String_Array( yml, var_name, char_data, RC )\n    !\n    ! Get a character array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(INOUT) :: char_data(:)\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    INTEGER                         :: sz_data\n    INTEGER                         :: sz_stored\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_String_Array (in module qfyaml_mod.F90)'\n\n    ! Make sure the char_data array has at last 1 element\n    sz_data = SIZE( char_data )\n    IF ( sz_data < 1 ) THEN\n       errMsg = 'Argument \"char_data\" must be an array!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Look up the stored data\n    CALL Prepare_Get_Var( yml,     var_name, QFYAML_string_type,             &\n                          sz_data, ix,       RC                             )\n\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Number of elements of stored data in this variable\n    sz_stored = SIZE( yml%vars(ix)%char_data )\n\n    ! Make sure the data array has enough elements\n    IF ( sz_data < sz_stored ) THEN\n       errMsg = 'Argument \"char_data\" does not have enough elements!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Copy over only the number of elements that are stored\n    char_data(1:sz_stored) = yml%vars(ix)%char_data(1:sz_stored)\n\n  END SUBROUTINE Get_String_Array\n\n  SUBROUTINE Get_Bool_Array( yml, var_name, bool_data, RC )\n    !\n    ! Get a LOGICAL array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(INOUT) :: bool_data(:)\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    INTEGER                         :: sz_data\n    INTEGER                         :: sz_stored\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_Bool_Array (in module qfyaml_mod.F90)'\n\n    ! Make sure the char_data array has at last 1 element\n    sz_data = SIZE( bool_data )\n    IF ( sz_data < 1 ) THEN\n       errMsg = 'Argument \"char_data\" must be an array!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Look up the stored data\n    CALL Prepare_Get_Var( yml,             var_name, QFYAML_bool_type,       &\n                          SIZE(bool_data), ix,       RC                     )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Number of elements of stored data in this variable\n    sz_stored = SIZE( yml%vars(ix)%bool_data )\n\n    ! Make sure the data array has enough elements\n    IF ( sz_data < sz_stored ) THEN\n       errMsg = 'Argument \"bool_data`\" does not have enough elements!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Copy over only the number of elements that are stored\n    bool_data(1:sz_stored) = yml%vars(ix)%bool_data(1:sz_stored)\n\n  END SUBROUTINE Get_Bool_Array\n\n  SUBROUTINE Get_Real( yml, var_name, res, RC )\n    !\n    ! Get a real value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(OUT  ) :: res\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_Real (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Get_Var( yml, var_name, QFYAML_real_type, 1, ix, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    res = yml%vars(ix)%real_data(1)\n\n  END SUBROUTINE Get_Real\n\n  SUBROUTINE Get_Int( yml, var_name, res, RC )\n    !\n    ! Get a INTEGER value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(INOUT) :: res\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_Int (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Get_Var( yml, var_name, QFYAML_integer_type, 1, ix, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    res = yml%vars(ix)%int_data(1)\n\n  END SUBROUTINE Get_Int\n\n  SUBROUTINE Get_Bool( yml, var_name, res, RC )\n    !\n    ! Get a LOGICAL value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(OUT  ) :: res\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_Bool (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Get_Var( yml, var_name, QFYAML_bool_type, 1, ix, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    res = yml%vars(ix)%bool_data(1)\n\n  END SUBROUTINE Get_Bool\n\n  SUBROUTINE Get_String( yml, var_name, res, RC )\n    !\n    ! Get a character value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(OUT  ) :: res\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    INTEGER                         :: ix\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Get_String (in module qfyaml_mod.F90)'\n\n    CALL Prepare_Get_Var( yml, var_name, QFYAML_string_type, 1, ix, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Prepare_Get_Var\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    res = yml%vars(ix)%char_data(1)\n\n  END SUBROUTINE Get_String\n\n  SUBROUTINE Add_Get_Real_Array( yml,     var_name,  real_data,              &\n                                 comment, RC,        dynamic_size           )\n    !\n    ! Get or add a real array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(INOUT) :: real_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n    LOGICAL,          OPTIONAL      :: dynamic_size\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_Real_Array (in module qfyaml_mod.F90)'\n\n    CALL Add_Real_Array( yml, var_name, real_data, comment, RC, dynamic_size )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_Real_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_Real_Array( yml, var_name, real_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_Real_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_Real_Array\n\n  SUBROUTINE Add_Get_Int_Array( yml,     var_name,  int_data,                &\n                                comment, RC,        dynamic_size            )\n    !\n    ! Get or add a INTEGER array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(INOUT) :: int_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    LOGICAL,          OPTIONAL      :: dynamic_size\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_Int_Array (in module qfyaml_mod.F90)'\n\n    CALL Add_Int_Array( yml, var_name, int_data, comment, RC, dynamic_size )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_Int_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_Int_Array( yml, var_name, int_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Get_Int_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_Int_Array\n\n  SUBROUTINE Add_Get_String_Array( yml,     var_name, char_data,             &\n                                   comment, RC,       dynamic_size          )\n    !\n    ! Get or add a character array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(INOUT) :: char_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    LOGICAL,          OPTIONAL      :: dynamic_size\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_String_Array (in module qfyaml_mod.F90)'\n\n    CALL Add_String_Array(yml, var_name, char_data, comment, RC, dynamic_size )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_String_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_String_Array( yml, var_name, char_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Get_String_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_String_Array\n\n  SUBROUTINE Add_Get_Bool_Array(yml,     var_name, bool_data,                &\n                                comment, RC,       dynamic_size             )\n    !\n    ! Get or add a LOGICAL array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(INOUT) :: bool_data(:)\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    LOGICAL,          OPTIONAL      :: dynamic_size\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_Bool_Array (in module qfyaml_mod.F90)'\n\n    CALL Add_Bool_Array( yml, var_name, bool_data, comment, RC, dynamic_size )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_Bool_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_Bool_Array( yml, var_name, bool_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Get_Bool_Array\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_Bool_Array\n\n  SUBROUTINE Add_Get_Real( yml, var_name, real_data, comment, RC )\n    !\n    ! Get or add a real value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(INOUT) :: real_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_Real (in module qfyaml_mod.F90)'\n\n    CALL Add_Real( yml, var_name, real_data, comment, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_Real\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_Real( yml, var_name, real_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Get_Real\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_Real\n\n  SUBROUTINE Add_Get_Int( yml, var_name, int_data, comment, RC )\n    !\n    ! Get or add a INTEGER value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(INOUT) :: int_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_Int (in module qfyaml_mod.F90)'\n\n    CALL Add_Int( yml, var_name, int_data, comment, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_Int\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_Int( yml, var_name, int_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Get_Int\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_Int\n\n  SUBROUTINE Add_Get_Bool( yml, var_name, bool_data, comment, RC)\n    !\n    ! Get or add a LOGICAL value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(INOUT) :: bool_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Get_Bool (in module qfyaml_mod.F90)'\n\n    CALL Add_Bool( yml, var_name, bool_data, comment, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_Bool( yml, var_name, bool_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_Bool\n\n  SUBROUTINE Add_Get_String( yml, var_name, string_data, comment, RC )\n\n    ! Get a character value of a given name\n\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(INOUT) :: string_data\n    CHARACTER(LEN=*), INTENT(IN   ) :: comment\n    INTEGER,          INTENT(OUT  ) :: RC\n\n    CHARACTER(LEN=QFYAML_StrLen)    :: errMsg\n    CHARACTER(LEN=QFYAML_StrLen)    :: thisLoc\n\n    ! Initialize\n    RC      = QFYAML_success\n    errMsg  = ''\n    thisLoc = ' -> at Add_Int (in module qfyaml_mod.F90)'\n\n    CALL Add_string( yml, var_name, string_data, comment, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Add_String\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    CALL Get_String( yml, var_name, string_data, RC )\n    IF ( RC /= QFYAML_Success ) THEN\n       errMsg = 'Error encountered in \"Get_String\"!'\n       CALL Handle_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Add_Get_String\n\n  SUBROUTINE Update_Real_Array( yml, var_name, real_data )\n    !\n    ! Get or add a real array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(INOUT) :: real_data(:)\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index( yml, var_name, ix )\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%real_data = real_data\n       real_data = yml%vars(ix)%real_data\n    ENDIF\n\n  END SUBROUTINE Update_Real_Array\n\n  SUBROUTINE Update_Int_Array(yml, var_name, int_data)\n    !\n    ! Get or add a INTEGER array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(INOUT) :: int_data(:)\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index(yml, var_name, ix)\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%int_data = int_data\n       int_data = yml%vars(ix)%int_data\n    ENDIF\n\n  END SUBROUTINE Update_Int_Array\n\n  SUBROUTINE Update_String_Array( yml, var_name, char_data )\n    !\n    ! Get or add a character array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(INOUT) :: char_data(:)\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index( yml, var_name, ix )\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%char_data = char_data\n       char_data = yml%vars(ix)%char_data\n    ENDIF\n\n  END SUBROUTINE Update_String_Array\n\n  SUBROUTINE Update_Bool_Array( yml, var_name, bool_data )\n    !\n    ! Get or add a LOGICAL array of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(INOUT) :: bool_data(:)\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index( yml, var_name, ix )\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%bool_data = bool_data\n       bool_data = yml%vars(ix)%bool_data\n    ENDIF\n\n  END SUBROUTINE Update_Bool_Array\n\n  SUBROUTINE Update_Real( yml, var_name, real_data )\n    !\n    ! Get or add a real value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    REAL(yp),         INTENT(INOUT) :: real_data\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index(yml, var_name, ix)\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%real_data(1) = real_data\n       real_data = yml%vars(ix)%real_data(1)\n    ENDIF\n\n  END SUBROUTINE Update_Real\n\n  SUBROUTINE Update_Int(yml, var_name, int_data)\n    !\n    ! Get or add a INTEGER value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    INTEGER,          INTENT(INOUT) :: int_data\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index( yml, var_name, ix )\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%int_data(1) = int_data\n       int_data = yml%vars(ix)%int_data(1)\n    ENDIF\n\n  END SUBROUTINE Update_Int\n\n  SUBROUTINE Update_Bool( yml, var_name, bool_data )\n    !\n    ! Get or add a LOGICAL value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    LOGICAL,          INTENT(INOUT) :: bool_data\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index( yml, var_name, ix )\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%bool_data(1) = bool_data\n       bool_data = yml%vars(ix)%bool_data(1)\n    ENDIF\n\n  END SUBROUTINE Update_Bool\n\n  SUBROUTINE Update_String(yml, var_name, string_data)\n    !\n    ! Get a character value of a given name\n    !\n    TYPE(QFYAML_t),   INTENT(INOUT) :: yml\n    CHARACTER(LEN=*), INTENT(IN   ) :: var_name\n    CHARACTER(LEN=*), INTENT(INOUT) :: string_data\n    INTEGER                         :: ix\n\n    CALL Get_Var_Index( yml, var_name, ix )\n    IF ( ix > 0 ) THEN\n       yml%vars(ix)%char_data(1) = string_data\n       string_data = yml%vars(ix)%char_data(1)\n    ENDIF\n\n  END SUBROUTINE Update_String\n\nEND MODULE QFYAML_Mod\n"
  },
  {
    "path": "Headers/registry_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: registry_mod.F90\n!\n! !DESCRIPTION: Contains derived types and methods to create a registry\n!  of each variable contained within a given module.  This will allow the\n!  user to obtain a pointer to each module variable by searching for its name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Registry_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n  USE Registry_Params_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Registry_AddField\n  PUBLIC  :: Registry_Lookup\n  PUBLIC  :: Registry_Print\n  PUBLIC  :: Registry_Destroy\n  PUBLIC  :: Registry_Set_LookupTable\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: MetaRegItem_AddNew\n  PRIVATE :: MetaRegItem_Create\n  PRIVATE :: MetaRegItem_Insert\n  PRIVATE :: MetaRegItem_Destroy\n!\n! ! PUBLIC TYPES::\n!\n  !=========================================================================\n  ! Derived type for a REGISTRY ITEM (a single registry entry).\n  ! This represents a single module variable, plus some metadata.\n  !=========================================================================\n  TYPE, PUBLIC :: RegItem\n\n     !----------------------------------------------------------------------\n     ! Identifying info\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=67)    :: FullName         ! e.g. \"STATE_VARIABLE\"\n     CHARACTER(LEN=4 )    :: State            ! Name of state\n     CHARACTER(LEN=63)    :: Variable         ! Name of variable\n\n     !----------------------------------------------------------------------\n     ! Metadata\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=255)   :: Description      ! Longer description\n     REAL(fp)             :: MemoryInKb       ! Memory use in Kb\n     INTEGER              :: Source_KindVal   ! Numerical KIND value of data\n     INTEGER              :: Output_KindVal   ! Numerical KIND value for output\n     INTEGER              :: Rank             ! Dimensions of data\n     CHARACTER(LEN=255)   :: Units            ! Units of data\n     CHARACTER(LEN=3)     :: DimNames         ! e.g. \"xyz\", \"yz\", \"y\", \"t\"\n     LOGICAL              :: OnLevelEdges     ! Is data on level edges (T/F)?\n\n     !----------------------------------------------------------------------\n     ! Pointers to floating point data (8-byte precision)\n     !----------------------------------------------------------------------\n     REAL(f8), POINTER    :: Ptr0d_8          ! For 0D 8-byte data\n     REAL(f8), POINTER    :: Ptr1d_8(:    )   ! For 1D 8-byte data\n     REAL(f8), POINTER    :: Ptr2d_8(:,:  )   ! For 2D 8-byte data\n     REAL(f8), POINTER    :: Ptr3d_8(:,:,:)   ! For 3D 8-byte data\n\n     !----------------------------------------------------------------------\n     ! Pointers to floating point data (4-byte precision)\n     !----------------------------------------------------------------------\n     REAL(f4), POINTER    :: Ptr0d_4          ! For 0D 4-byte data\n     REAL(f4), POINTER    :: Ptr1d_4(:    )   ! For 1D 4-byte data\n     REAL(f4), POINTER    :: Ptr2d_4(:,:  )   ! For 2D 4-byte data\n     REAL(f4), POINTER    :: Ptr3d_4(:,:,:)   ! For 3D 4-byte data\n\n     !----------------------------------------------------------------------\n     ! Pointers to integer data\n     !----------------------------------------------------------------------\n     INTEGER,  POINTER    :: Ptr0d_I          ! For 0D int data\n     INTEGER,  POINTER    :: Ptr1d_I(:    )   ! For 1D int data\n     INTEGER,  POINTER    :: Ptr2d_I(:,:  )   ! For 2D int data\n     INTEGER,  POINTER    :: Ptr3d_I(:,:,:)   ! For 3D int data\n\n  END TYPE RegItem\n\n  !=========================================================================\n  ! Derived type for a METAREGISTRY ITEM (a linked-list of REGISTRY ITEMS)\n  !=========================================================================\n  TYPE, PUBLIC :: MetaRegItem\n     TYPE(MetaRegItem), POINTER :: Next => NULL()   ! Pointer to next node\n     TYPE(RegItem    ), POINTER :: Item => NULL()   ! Registry item within\n  END TYPE MetaRegItem\n!\n! !DEFINED PARAMETERS:\n!\n!\n! !REMARKS:\n!  In Fortran 2003, the maximum variable name length is 63 characers, so we\n!  have declared the various character name fields of RegItem accordingly.\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Registry_AddField\n!\n! !DESCRIPTION: Creates a REGISTRY ITEM, which contains information (i.e.\n!  metadata plus a pointer to the data) about a variable within a module.\n!  The REGISTRY ITEM will then be added to the METAREGISTRY ITEM, which is\n!  the master list of all variables in the module.  This will allow the user\n!  to obtain a pointer to any variable by searching for its name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Registry_AddField( Input_Opt,      Registry,  State,            &\n                                Variable,       RC,        Description,      &\n                                Units,          DimNames,  OnLevelEdges,     &\n                                Output_KindVal, Data0d_8,  Data1d_8,         &\n                                Data2d_8,       Data3d_8,  Data0d_4,         &\n                                Data1d_4,       Data2d_4,  Data3d_4,         &\n                                Data0d_I,       Data1d_I,  Data2d_I,         &\n                                Data3d_I                                    )\n!\n! !USES:\n!\n    USE CharPak_Mod,   ONLY : To_Uppercase\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    ! General identifying information\n    TYPE(OptInput),    INTENT(IN)       :: Input_Opt       ! Input options\n    CHARACTER(LEN=*),  INTENT(IN)       :: State           ! State name\n    CHARACTER(LEN=*),  INTENT(IN)       :: Variable        ! variable\n    CHARACTER(LEN=*),  OPTIONAL         :: Description     ! Long description\n    CHARACTER(LEN=*),  OPTIONAL         :: Units           ! Units of data\n    CHARACTER(LEN=*),  OPTIONAL         :: DimNames        ! \"xyz\", \"xy\", \"t\"\n    LOGICAL,           OPTIONAL         :: OnLevelEdges    ! Set =T if data\n                                                           !  is on level edges\n    INTEGER,           OPTIONAL         :: Output_KindVal  ! Type of data\n                                                           !  to be saved out\n\n    ! Floating-point data targets (8-byte precision)\n    REAL(f8),          OPTIONAL, TARGET :: Data0d_8        ! 0D flex-prec data\n    REAL(f8),          OPTIONAL, TARGET :: Data1d_8(:    ) ! 1D flex_prec data\n    REAL(f8),          OPTIONAL, TARGET :: Data2d_8(:,:  ) ! 2D flex-prec data\n    REAL(f8),          OPTIONAL, TARGET :: Data3d_8(:,:,:) ! 3D flex-prec data\n\n    ! Floating-point data targets (4-byte precision)\n    REAL(f4),          OPTIONAL, TARGET :: Data0d_4        ! 0D 4-byte data\n    REAL(f4),          OPTIONAL, TARGET :: Data1d_4(:    ) ! 1D 4-byte data\n    REAL(f4),          OPTIONAL, TARGET :: Data2d_4(:,:  ) ! 2D 4-byte data\n    REAL(f4),          OPTIONAL, TARGET :: Data3d_4(:,:,:) ! 3D 4-byte data\n\n    ! Integer data targets\n    INTEGER,           OPTIONAL, TARGET :: Data0d_I        ! 1D int data\n    INTEGER,           OPTIONAL, TARGET :: Data1d_I(:    ) ! 1D int data\n    INTEGER,           OPTIONAL, TARGET :: Data2d_I(:,:  ) ! 2D int data\n    INTEGER,           OPTIONAL, TARGET :: Data3d_I(:,:,:) ! 3D int data\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER          :: Registry         ! Registry object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT)      :: RC               ! Success/failure\n!\n! !REMARKS:\n!  Internally, the REGISTRY ITEM will be refered to by its fullname field,\n!  which is \"STATE_VARIABLE\".  Fullname will be defined automatically from\n!  the STATE and VARIABLE inputs as STATE_VARIABLE, unless variable is in\n!  State_Diag, in which case STATE_ is not appended as a prefix.\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: IsOnLevelEdges\n    LOGICAL                :: IsOutputKindVal\n    REAL(fp)               :: KbPerElement\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg,   ThisLoc,  TmpFullName\n    CHARACTER(LEN=255)     :: TmpState, TmpUnits, TmpVariable, TmpDescription\n\n    ! Objects\n    TYPE(RegItem), POINTER :: Item\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC             = GC_SUCCESS\n    IsOnLevelEdges = .FALSE.\n    KbPerElement   = DBLE( fp ) / 1024.0_fp\n    ErrMsg         = ''\n    ThisLoc        = ' -> at Registry_AddField (in Headers/registry_mod.F90)'\n    TmpState       = To_UpperCase( State    )\n    TmpVariable    = To_UpperCase( Variable )\n    IF ( TRIM( TmpState ) /= 'DIAG' ) THEN\n       TmpFullname    = TRIM( TmpState ) // '_' // TRIM( TmpVariable )\n    ELSE\n       TmpFullname = TRIM( TmpVariable )\n    ENDIF\n    TmpDescription = ''\n    TmpUnits       = ''\n\n    ! Save optional arguments in shadow variables, if passed\n    IF ( PRESENT( Description    ) ) TmpDescription  = Description\n    IF ( PRESENT( Units          ) ) TmpUnits        = Units\n    IF ( PRESENT( OnLevelEdges   ) ) IsOnLevelEdges  = OnLevelEdges\n\n    ! Set a logical to indicate if Output_Kindval is passed\n    IF ( PRESENT( Output_KindVal ) ) THEN\n       IsOutputKindVal = .TRUE.\n    ELSE\n       isOutputKindVal = .FALSE.\n    ENDIF\n\n    !=======================================================================\n    ! Allocate the REGISTRY ITEM object, which will hold metadata about\n    ! this field, as well as a pointer to the data source, in the registry.\n    !=======================================================================\n    ALLOCATE( Item, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Item\" for variable: ' // TRIM( Variable )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Save identifying info\n    Item%FullName      =  TmpFullName\n    Item%State         =  TmpState\n    Item%Variable      =  TmpVariable\n    Item%Description   =  TmpDescription\n    Item%Units         =  TmpUnits\n    Item%MemoryInKb    =  0.0_fp\n    Item%OnLevelEdges  =  IsOnLevelEdges\n\n    ! Nullify pointers to data etc.\n    Item%Ptr0d_8       => NULL()\n    Item%Ptr1d_8       => NULL()\n    Item%Ptr2d_8       => NULL()\n    Item%Ptr3d_8       => NULL()\n    Item%Ptr0d_4       => NULL()\n    Item%Ptr1d_4       => NULL()\n    Item%Ptr2d_4       => NULL()\n    Item%Ptr3d_4       => NULL()\n    Item%Ptr0d_I       => NULL()\n    Item%Ptr1d_I       => NULL()\n    Item%Ptr2d_I       => NULL()\n    Item%Ptr3d_I       => NULL()\n\n    !-----------------------------------------------------------------------\n    ! Depending on the size of the data being passed,\n    ! set the rank appropriately and point to the data.\n    ! Also compute the size of the array in bytes.\n    !\n    ! Assign pointers to 8-byte real data targets\n    !-----------------------------------------------------------------------\n    IF ( PRESENT( Data3d_8 ) ) THEN\n       Item%Rank           =  3\n       Item%Ptr3d_8        => Data3d_8\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data3d_8 )\n       Item%Source_KindVal =  KINDVAL_F8\n    ELSE IF ( PRESENT( Data2d_8 ) ) THEN\n       Item%Rank           =  2\n       Item%Ptr2d_8        => Data2d_8\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data2d_8  )\n       Item%Source_KindVal =  KINDVAL_F8\n    ELSE IF ( PRESENT( Data1d_8 ) ) THEN\n       Item%Rank           =  1\n       Item%Ptr1d_8        => Data1d_8\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data1d_8  )\n       Item%Source_KindVal =  KINDVAL_F8\n    ELSE IF ( PRESENT( Data0d_8 ) ) THEN\n       Item%Rank           =  0\n       Item%Ptr0d_8        => Data0d_8\n       Item%MemoryInKb     =  KbPerElement\n       Item%Source_KindVal =  KINDVAL_F8\n\n    !-----------------------------------------------------------------------\n    ! Assign pointers to 4-byte real data targets\n    !-----------------------------------------------------------------------\n    ELSE IF ( PRESENT( Data3d_4 ) ) THEN\n       Item%Rank           =  3\n       Item%Ptr3d_4        => Data3d_4\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data3d_4 )\n       Item%Source_KindVal =  KINDVAL_F4\n    ELSE IF ( PRESENT( Data2d_4 ) ) THEN\n       Item%Rank           =  2\n       Item%Ptr2d_4        => Data2d_4\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data2d_4 )\n       Item%Source_KindVal =  KINDVAL_F4\n    ELSE IF ( PRESENT( Data1d_4 ) ) THEN\n       Item%Rank           =  1\n       Item%Ptr1d_4        => Data1d_4\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data1d_4 )\n       Item%Source_KindVal =  KINDVAL_F4\n    ELSE IF ( PRESENT( Data0d_4 ) ) THEN\n       Item%Rank           =  0\n       Item%Ptr0d_4        => Data0d_4\n       Item%MemoryInKb     =  KbPerElement\n       Item%Source_KindVal =  KINDVAL_F4\n\n    !-----------------------------------------------------------------------\n    ! Assign pointers to integer data targets\n    !-----------------------------------------------------------------------\n    ELSE IF ( PRESENT( Data3d_I ) ) THEN\n       Item%Rank           =  3\n       Item%Ptr3d_I        => Data3d_I\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data3d_I )\n       Item%Source_KindVal =  KINDVAL_I4\n    ELSE IF ( PRESENT( Data2d_I ) ) THEN\n       Item%Rank           =  2\n       Item%Ptr2d_I        => Data2d_I\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data2d_I )\n       Item%Source_KindVal =  KINDVAL_I4\n    ELSE IF ( PRESENT( Data1d_I  ) ) THEN\n       Item%Rank           =  1\n       Item%Ptr1d_I        => Data1d_I\n       Item%MemoryInKb     =  KbPerElement * SIZE( Data1d_I )\n       Item%Source_KindVal =  KINDVAL_I4\n    ELSE IF ( PRESENT( Data0d_I  ) ) THEN\n       Item%Rank           =  0\n       Item%Ptr0d_I        => Data0d_I\n       Item%MemoryInKb     =  KbPerElement\n       Item%Source_KindVal =  KINDVAL_I4\n\n    !-----------------------------------------------------------------------\n    ! Exit with error message if no data target is passed\n    !-----------------------------------------------------------------------\n    ELSE\n       ErrMsg = 'Need to specify a data source!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Set Output_Kindval, which will determine the KIND of data that this\n    ! ITEM will be saved to disk with (e.g, INTEGER, REAL*4 or REAL*8).\n    ! If not passed, assume we will save data to netCDF as REAL*4.\n    !-----------------------------------------------------------------------\n    IF ( isOutputKindVal ) THEN\n       Item%Output_KindVal = Output_KindVal\n    ELSE\n       Item%Output_Kindval = KINDVAL_F4\n    ENDIF\n\n    !=======================================================================\n    ! Define the \"dimnames\" field\n    !=======================================================================\n    IF ( PRESENT( DimNames ) ) THEN\n\n       ! If the DimNames argument is passed, then use it\n       Item%DimNames = TRIM( DimNames )\n\n    ELSE\n\n       ! Otherwise, set default DimNames based on the rank\n       SELECT CASE( Item%Rank )\n          CASE( 3 )\n             Item%DimNames = 'xyz'\n          CASE( 2 )\n             Item%DimNames = 'xy '\n          CASE( 1 )\n             Item%DimNames = 'x  '\n          CASE( 0 )\n             Item%DimNames = '-  '\n        END SELECT\n\n     ENDIF\n\n    !=======================================================================\n    ! Add the REGISTRY ITEM to the METAREGISTRY ITEM, which represents\n    ! the list of all data fields contained in a module.\n    !=======================================================================\n    CALL MetaRegItem_AddNew( Input_Opt, Registry, Item, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not add ' // TRIM( TmpVariable ) // ' to the registry!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Free Item once we have attached it to the Registry linked list\n    DEALLOCATE( Item )\n    Item => NULL()\n\n  END SUBROUTINE Registry_AddField\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Registry_Lookup\n!\n! !DESCRIPTION: Get a pointer to any variable in a module (aka \"state\") by\n!  searching for its name.  Also returns associated metadata.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Registry_Lookup( am_I_Root,      Registry,   RegDict,           &\n                              State,          Variable,   RC,                &\n                              Description,    Dimensions, Source_KindVal,    &\n                              Output_KindVal, MemoryInKb, OnLevelEdges,      &\n                              Rank,           Units,      DimNames,          &\n                              Ptr0d_8,        Ptr1d_8,    Ptr2d_8,           &\n                              Ptr3d_8,        Ptr0d_4,    Ptr1d_4,           &\n                              Ptr2d_4,        Ptr3d_4,    Ptr0d_I,           &\n                              Ptr1d_I,        Ptr2d_I,    Ptr3d_I           )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_UpperCase\n    USE Dictionary_M,  ONLY : dictionary_t\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN) :: am_I_Root         ! Root CPU?\n    TYPE(MetaRegItem), POINTER    :: Registry          ! Registry obj\n    TYPE(dictionary_t)            :: RegDict           ! Registry lookup table\n    CHARACTER(LEN=*),  INTENT(IN) :: State             ! State name\n    CHARACTER(LEN=*),  INTENT(IN) :: Variable          ! Variable name\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Required outputs\n    INTEGER,          INTENT(OUT) :: RC                ! Success or failure\n\n    ! Optional outputs\n    CHARACTER(LEN=255),  OPTIONAL :: Description       ! Description of data\n    INTEGER,             OPTIONAL :: Source_KindVal    ! KIND value of data\n    INTEGER,             OPTIONAL :: Output_KindVal    ! KIND value for output\n    REAL(fp),            OPTIONAL :: MemoryInKb        ! Memory usage\n    INTEGER,             OPTIONAL :: Rank              ! Size of data\n    INTEGER,             OPTIONAL :: Dimensions(3)     ! Dimensions of data\n    CHARACTER(LEN=255),  OPTIONAL :: Units             ! Units of data\n    CHARACTER(LEN=3),    OPTIONAL :: DimNames          ! \"xyz\", \"xz\", \"t\" etc.\n    LOGICAL,             OPTIONAL :: OnLevelEdges      ! Is the data defined\n                                                       !  on level edges (T/F)\n\n    ! Floating-point data pointers (4-byte precision)\n    REAL(f8),   POINTER, OPTIONAL :: Ptr0d_8           ! 0D 8-byte data\n    REAL(f8),   POINTER, OPTIONAL :: Ptr1d_8(:    )    ! 1D 8-byte data\n    REAL(f8),   POINTER, OPTIONAL :: Ptr2d_8(:,:  )    ! 2D 8-byte data\n    REAL(f8),   POINTER, OPTIONAL :: Ptr3d_8(:,:,:)    ! 3D 8-byte data\n\n    ! Floating-point data pointers (4-byte precision)\n    REAL(f4),   POINTER, OPTIONAL :: Ptr0d_4           ! 0D 4-byte data\n    REAL(f4),   POINTER, OPTIONAL :: Ptr1d_4(:    )    ! 1D 4-byte data\n    REAL(f4),   POINTER, OPTIONAL :: Ptr2d_4(:,:  )    ! 2D 4-byte data\n    REAL(f4),   POINTER, OPTIONAL :: Ptr3d_4(:,:,:)    ! 3D 4-byte data\n\n    ! Integer data pointers\n    INTEGER,    POINTER, OPTIONAL :: Ptr0d_I           ! 0D integer data\n    INTEGER,    POINTER, OPTIONAL :: Ptr1d_I(:    )    ! 1D integer data\n    INTEGER,    POINTER, OPTIONAL :: Ptr2d_I(:,:  )    ! 2D integer data\n    INTEGER,    POINTER, OPTIONAL :: Ptr3d_I(:,:,:)    ! 3D integer data\n!\n! !REMARKS:\n!  Internally, the REGISTRY ITEM will be refered to by its fullname field,\n!  which is \"STATE_VARIABLE\".  Fullname will be defined automatically from\n!  the STATE and VARIABLE inputs as STATE_VARIABLE, unless variable is in\n!  State_Diag, in which case STATE_ is not appended as a prefix.\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                    :: Found,          Is_OnLevelEdges\n    LOGICAL                    :: Is_Description, Is_Dimensions\n    LOGICAL                    :: Is_SrcKindVal,  Is_OutKindVal\n    LOGICAL                    :: Is_MemoryInKb,  Is_Rank\n    LOGICAL                    :: Is_Units\n    LOGICAL                    :: Is_0d_8,        Is_0d_4,        Is_0d_I\n    LOGICAL                    :: Is_1d_8,        Is_1d_4,        Is_1d_I\n    LOGICAL                    :: Is_2d_8,        Is_2d_4,        Is_2d_I\n    LOGICAL                    :: Is_3d_8,        Is_3d_4,        Is_3d_I\n    INTEGER                    :: FullHash,       ItemHash\n    INTEGER                    :: N\n\n    ! Strings\n    CHARACTER(LEN=5)           :: TmpState\n    CHARACTER(LEN=67)          :: FullName,       ItemName\n    CHARACTER(LEN=255)         :: ErrMsg,         ThisLoc\n    CHARACTER(LEN=255)         :: VariableUC\n\n    ! Objects\n    TYPE(MetaRegItem), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC              =  GC_SUCCESS\n    Current         => NULL()\n    ErrMsg          =  ''\n    ThisLoc         =  ' -> at Registry_Lookup (in Headers/registry_mod.F90)'\n    TmpState        = TRIM( State ) // '_'\n    VariableUC      =  To_UpperCase( Variable )\n\n    ! Prefix the the state name (always uppercase) to the variable, unless:\n    ! (1) The state name is already part of the variable\n    ! (2) If it's a field from State_Diag, which requires no prefix\n    IF ( ( TRIM( State ) == 'DIAG' ) .OR.  &\n         ( INDEX( VariableUC, TRIM( TmpState ) ) > 0 ) ) THEN\n       FullName  = VariableUC\n    ELSE\n       FullName  = TRIM( TmpState ) // TRIM( VariableUC )\n    ENDIF\n\n    ! Construct a hash for the full name (i.e. \"State_Variable\")\n    FullHash =  RegDict%Get( TRIM( FullName ) )\n\n    ! Return with an error if fullname is not found in this registry\n    IF ( FullHash == -1 ) THEN\n       errMsg = TRIM( fullName ) // ' is not found in the registry for '  // &\n                'the ' // TRIM( State ) // ' object!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Set a flag to denote that we've found the field\n    Found = .FALSE.\n\n    !=======================================================================\n    ! Test if the optional variables are present outside of the main loop.\n    !=======================================================================\n\n    ! Floating-point (8-byte) data pointers\n    Is_0d_8         =  PRESENT( Ptr0d_8        )\n    Is_1d_8         =  PRESENT( Ptr1d_8        )\n    Is_2d_8         =  PRESENT( Ptr2d_8        )\n    Is_3d_8         =  PRESENT( Ptr3d_8        )\n\n    ! Floating-point (4-byte) data pointers\n    Is_0d_4         =  PRESENT( Ptr0d_4        )\n    Is_1d_4         =  PRESENT( Ptr1d_4        )\n    Is_2d_4         =  PRESENT( Ptr2d_4        )\n    Is_3d_4         =  PRESENT( Ptr3d_4        )\n\n    ! Integer data pointers\n    Is_0d_I         =  PRESENT( Ptr0d_I        )\n    Is_1d_I         =  PRESENT( Ptr1d_I        )\n    Is_2d_I         =  PRESENT( Ptr2d_I        )\n    Is_3d_I         =  PRESENT( Ptr3d_I        )\n\n    ! Metadata\n    Is_Description  =  PRESENT( Description    )\n    Is_Dimensions   =  PRESENT( Dimensions     )\n    Is_SrcKindVal   =  PRESENT( Source_KindVal )\n    Is_OutKindVal   =  PRESENT( Output_KindVal )\n    Is_MemoryInKb   =  PRESENT( MemoryInKb     )\n    Is_Rank         =  PRESENT( Rank           )\n    Is_Units        =  PRESENT( Units          )\n    Is_OnLevelEdges =  PRESENT( OnLevelEdges   )\n\n    !=======================================================================\n    ! Nullify all optional pointer arguments that are passed\n    !=======================================================================\n    IF ( Is_0d_8 ) Ptr0d_8 => NULL()\n    IF ( Is_0d_4 ) Ptr0d_4 => NULL()\n    IF ( Is_0d_I ) Ptr0d_I => NULL()\n    IF ( Is_1d_8 ) Ptr1d_8 => NULL()\n    IF ( Is_1d_4 ) Ptr1d_4 => NULL()\n    IF ( Is_1d_I ) Ptr1d_I => NULL()\n    IF ( Is_2d_8 ) Ptr2d_8 => NULL()\n    IF ( Is_2d_4 ) Ptr2d_4 => NULL()\n    IF ( Is_2d_I ) Ptr2d_I => NULL()\n    IF ( Is_3d_8 ) Ptr3d_8 => NULL()\n    IF ( Is_3d_4 ) Ptr3d_4 => NULL()\n    IF ( Is_3d_I ) Ptr3d_I => NULL()\n\n    !=======================================================================\n    ! Search for the specified field in the Registry\n    !=======================================================================\n\n    ! Point to head of linked list\n    Current => Registry\n\n    if (.not. ASSOCIATED( Current ) .and. am_I_Root) &\n         WRITE(*,*) ' Registry head not associated.'\n\n    ! As long as this entry of the linked list isn't NULL\n    DO WHILE( ASSOCIATED( Current ) )\n\n       ! Construct a hash for the full name of this REGISTRY ITEM\n       ItemHash   = RegDict%Get( TRIM( Current%Item%FullName ) )\n\n       ! If the name-hashes match (and are not missing data \"-1\")\n       IF ( FullHash == ItemHash .and. ItemHash > 0 ) THEN\n\n          ! Return rank, units and memory usage, etc. if found\n          IF ( Is_Description  ) Description    = Current%Item%Description\n          IF ( Is_SrcKindVal   ) Source_KindVal = Current%Item%Source_KindVal\n          IF ( Is_OutKindVal   ) Output_KindVal = Current%Item%Output_KindVal\n          IF ( Is_MemoryInKb   ) MemoryInKb     = Current%Item%MemoryInKb\n          IF ( Is_Rank         ) Rank           = Current%Item%Rank\n          IF ( Is_Units        ) Units          = Current%Item%Units\n          If ( Is_OnLevelEdges ) OnLevelEdges   = Current%Item%OnLevelEdges\n\n          ! Then return a pointer to the field\n          SELECT CASE( Current%Item%Rank )\n\n             ! Return the appropriate 3D DATA POINTER (and dimensions)\n             CASE( 3 )\n                IF ( Current%Item%Source_KindVal == KINDVAL_F8 ) THEN\n                   IF ( Is_3d_8 ) THEN\n                      Ptr3d_8 => Current%Item%Ptr3d_8\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr3d_8, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_F4 ) THEN\n                   IF ( Is_3d_4 ) THEN\n                      Ptr3d_4 => Current%Item%Ptr3d_4\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr3d_4, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_I4 ) THEN\n                   IF ( Is_3d_I ) THEN\n                      Ptr3d_I => Current%Item%Ptr3d_I\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr3d_I, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ENDIF\n\n             ! Return the appropriate 2D DATA POINTER (and dimensions)\n             CASE( 2 )\n                IF ( Current%Item%Source_KindVal == KINDVAL_F8 ) THEN\n                   IF ( Is_2d_8 ) THEN\n                      Ptr2d_8 => Current%Item%Ptr2d_8\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr2d_8, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_F4 ) THEN\n                   IF ( Is_2d_4 ) THEN\n                      Ptr2d_4 => Current%Item%Ptr2d_4\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr2d_4, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_I4 ) THEN\n                   IF ( Is_2d_I ) THEN\n                      Ptr2d_I => Current%Item%Ptr2d_I\n                      Found =    .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr2d_I, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ENDIF\n\n             ! Return the appropriate 1D DATA POINTER (and dimensions)\n             CASE( 1 )\n                IF ( Current%Item%Source_KindVal == KINDVAL_F8 ) THEN\n                   IF ( Is_1d_8 ) THEN\n                      Ptr1d_8 => Current%Item%Ptr1d_8\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr1d_8, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_F4 ) THEN\n                   IF ( Is_1d_4 ) THEN\n                      Ptr1d_4 => Current%Item%Ptr1d_4\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr1d_4, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_I4 ) THEN\n                   IF ( Is_1d_I ) THEN\n                      Ptr1d_I => Current%Item%Ptr1d_I\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) THEN\n                         DO N = 1, Current%Item%Rank\n                            Dimensions(N) = SIZE( Ptr1d_I, N )\n                         ENDDO\n                      ENDIF\n                   ENDIF\n                   EXIT\n                ENDIF\n\n             ! Return the appropriate 0D DATA POINTER (and dimensions)\n             CASE( 0 )\n                IF ( Current%Item%Source_KindVal == KINDVAL_F8 ) THEN\n                   IF ( Is_0d_8 ) THEN\n                      Ptr0d_8 => Current%Item%Ptr0d_8\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) Dimensions = 0\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_F4 ) THEN\n                   IF ( Is_0d_4 ) THEN\n                      Ptr0d_4 => Current%Item%Ptr0d_4\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) Dimensions = 0\n                   ENDIF\n                   EXIT\n                ELSE IF ( Current%Item%Source_KindVal == KINDVAL_I4 ) THEN\n                   IF ( Is_0d_I ) THEN\n                      Ptr0d_I => Current%Item%Ptr0d_I\n                      Found   =  .TRUE.\n                      IF ( Is_Dimensions ) Dimensions = 0\n                   ENDIF\n                   EXIT\n                ENDIF\n\n             ! Error message\n             CASE DEFAULT\n                ErrMsg = 'Pointer to data was not passed from calling routine!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n\n          END SELECT\n       ENDIF\n\n       ! Point to next node for next iteration\n       Current => Current%Next\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n999 CONTINUE\n\n    ! Free pointer\n    Current => NULL()\n\n    ! Throw an error if not found\n    IF ( .not. Found ) RC = GC_FAILURE\n\n  END SUBROUTINE Registry_Lookup\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Registry_Print\n!\n! !DESCRIPTION: Prints each REGISTRY ITEM belonging to a METAREGISTRY ITEM.\n!  In other words, this prints information about each field contained within\n!  a module.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Registry_Print( Input_Opt, Registry, RC, ShortFormat )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),    INTENT(IN)  :: Input_Opt     ! Input Options object\n    LOGICAL,           OPTIONAL    :: ShortFormat   ! Print less information\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER     :: Registry      ! Registry of state fields\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                    :: Use_ShortFormat\n\n    ! Strings\n    CHARACTER(LEN=1)           :: CellPos\n    CHARACTER(LEN=255)         :: ErrMsg,  ThisLoc\n\n    ! Objects\n    TYPE(MetaRegItem), POINTER :: Current\n    TYPE(RegItem    ), POINTER :: Item\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Only print information if (1) we are on the root CPU;\n    ! and (2) if debug printout has been selected.\n    IF ( .not. ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) ) RETURN\n\n    ! Initialize fields\n    RC      =  GC_SUCCESS\n    CellPos =  ''\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at Registry_Print (in Headers/registry_mod.F90)'\n    Current => NULL()\n    Item    => NULL()\n\n    ! Save the value of ShortFormat (if passed) in a shadow variable\n    IF ( PRESENT( ShortFormat ) ) THEN\n       Use_ShortFormat = ShortFormat\n    ELSE\n       Use_ShortFormat = .FALSE.\n    ENDIF\n\n    !=======================================================================\n    ! Print information about each state field stored in the Registry\n    !=======================================================================\n\n    ! Point to the head node of the Registry\n    Current => Registry\n\n    ! As long as the current node isn't NULL\n    DO WHILE( ASSOCIATED( Current ) )\n\n       ! Get the REGISTRY ITEM belonging to this node of the Registry\n       Item => Current%Item\n\n       ! Only print on the root CPU\n       IF ( ASSOCIATED( Item ) ) THEN\n\n          IF ( Use_ShortFormat ) THEN\n\n             !--------------------------------------------------------------\n             ! Just print the name, description, dimension, and units\n             !--------------------------------------------------------------\n\n             ! Denote if 3-D data is defined on level edges (E) or centers (C)\n             IF ( Item%Rank == 3 ) THEN\n                IF ( Item%OnLevelEdges ) THEN\n                   CellPos = 'E'\n                ELSE\n                   CellPos = 'C'\n                ENDIF\n             ELSE\n                CellPos = ''\n             ENDIF\n\n             ! Print information\n             WRITE( 6, 100 ) Item%FullName,    Item%Description,             &\n                             Item%DimNames,    CellPos,                      &\n                             TRIM( Item%Units )\n  100        FORMAT( 1x, a30, ' | ', a20, ' | ', a3, ' ', a1, ' | ', a )\n\n          ELSE\n\n             !--------------------------------------------------------------\n             ! Print full information about this REGISTRY ITEM\n             !--------------------------------------------------------------\n\n             ! Print identifying information\n             PRINT*, REPEAT( '-', 70 )\n             PRINT*, 'FullName     : ', TRIM( Item%FullName    )\n             PRINT*, 'State        : ', TRIM( Item%State       )\n             PRINT*, 'Variable     : ', TRIM( Item%Variable    )\n             PRINT*, 'Description  : ', TRIM( Item%Description )\n             PRINT*, 'Units        : ', TRIM( Item%Units       )\n             PRINT*, 'Dim Names    : ', TRIM( Item%DimNames    )\n             PRINT*, 'Source KIND  : ', Item%Source_KindVal\n             PRINT*, 'Output KIND  : ', Item%Output_KindVal\n             PRINT*, 'Memory (Kb)  : ', Item%MemoryInKb\n             PRINT*, 'Rank of data : ', Item%Rank, '(', Item%DimNames, ')'\n             PRINT*, 'On Edges?    : ', Item%OnLevelEdges\n\n             !--------------\n             ! 3D data\n             !--------------\n\n             ! 8-byte\n             IF ( ASSOCIATED( Item%Ptr3d_8 ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr3d_8    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr3d_8    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr3d_8    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr3d_8, 1 ),        &\n                                           SIZE  ( Item%Ptr3d_8, 2 ),        &\n                                           SIZE  ( Item%Ptr3d_8, 3 )\n\n             ! 4-byte\n             ELSE IF ( ASSOCIATED( Item%Ptr3d_4 ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr3d_4    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr3d_4    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr3d_4    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr3d_4, 1 ),        &\n                                           SIZE  ( Item%Ptr3d_4, 2 ),        &\n                                           SIZE  ( Item%Ptr3d_4, 3 )\n\n             ! Integer\n             ELSE IF ( ASSOCIATED( Item%Ptr3d_I ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr3d_I    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr3d_I    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr3d_I    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr3d_I, 1 ),        &\n                                           SIZE  ( Item%Ptr3d_I, 2 ),        &\n                                           SIZE  ( Item%Ptr3d_I, 3 )\n             !--------------\n             ! 2D data\n             !--------------\n\n             ! 8-byte\n             ELSE IF ( ASSOCIATED( Item%Ptr2d_8 ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr2d_8    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr2d_8    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr2d_8    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr2d_8, 1 ),        &\n                                           SIZE  ( Item%Ptr2d_8, 2 )\n\n             ! 4-byte\n             ELSE IF ( ASSOCIATED( Item%Ptr2d_4 ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr2d_4    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr2d_4    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr2d_4    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr2d_4, 1 ),        &\n                                           SIZE  ( Item%Ptr2d_4, 2 )\n\n             ! Integer\n             ELSE IF ( ASSOCIATED( Item%Ptr2d_I ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr2d_I    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr2d_I    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr2d_I    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr2d_I, 1 ),        &\n                                           SIZE  ( Item%Ptr2d_I, 2 )\n             !--------------\n             ! 1D data\n             !--------------\n\n             ! 8-byte\n             ELSE IF ( ASSOCIATED( Item%Ptr1d_8 ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr1d_8    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr1d_8    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr1d_8    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr1d_8    )\n\n             ! 4-byte\n             ELSE IF ( ASSOCIATED( Item%Ptr1d_4 ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr1d_4    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr1d_4    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr1d_4    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr1d_4    )\n\n             ! Integer\n             ELSE IF ( ASSOCIATED( Item%Ptr1d_I ) ) THEN\n                PRINT*, 'Min value    : ', MINVAL( Item%Ptr1d_I    )\n                PRINT*, 'Max value    : ', MAXVAL( Item%Ptr1d_I    )\n                PRINT*, 'Total        : ', SUM   ( Item%Ptr1d_I    )\n                PRINT*, 'Dimensions   : ', SIZE  ( Item%Ptr1d_I    )\n\n             !--------------\n             ! 0D data\n             !--------------\n\n             ! 8-byte precision\n             ELSE IF ( ASSOCIATED( Item%Ptr0d_8 ) ) THEN\n                PRINT*, 'Value        : ', Item%Ptr0d_8\n\n             ! 4-byte\n             ELSE IF ( ASSOCIATED( Item%Ptr0d_4 ) ) THEN\n                PRINT*, 'Value        : ', Item%Ptr0d_4\n\n             ! Integer\n             ELSE IF ( ASSOCIATED( Item%Ptr0d_I ) ) THEN\n                PRINT*, 'Value        : ', Item%Ptr0d_I\n\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! Point to next node of the Registry\n       Current => Current%Next\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n    Current => NULL()\n    Item    => NULL()\n\n  END SUBROUTINE Registry_Print\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Registry_Set_LookupTable\n!\n! !DESCRIPTION: Defines the lookup table for registry items, using the\n!  dictionary_m algorithm.  This will avoid hash collisions.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Registry_Set_LookupTable( Registry, RegDict, RC )\n!\n! !USES:\n!\n    USE Dictionary_M\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetaRegItem),  POINTER       :: Registry   ! Registry of state fields\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(dictionary_t), INTENT(INOUT) :: RegDict    ! Registry lookup table\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT)   :: RC         ! Success or failure?!\n!\n! !REVISION HISTORY:\n!  07 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                    :: index\n    INTEGER                    :: nDiags\n\n\n    ! Strings\n    CHARACTER(LEN=255)         :: errMsg\n    CHARACTER(LEN=255)         :: thisLoc\n\n    ! Objects\n    TYPE(MetaRegItem), POINTER :: current\n\n    !=======================================================================\n    ! Registry_Set_LookupTable begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    index   = 0\n    nDiags  = 0\n    errMsg  = ''\n    thisLoc = &\n     ' -> at Registry_Set_LookupTable (in module Headers/registry_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! First find out how many diagnostics have been registered\n    ! so that we can initialize the lookup table accordingly.\n    !-----------------------------------------------------------------------\n    current => Registry\n    DO WHILE( ASSOCIATED( current ) )\n       IF ( ASSOCIATED( current%Item ) ) THEN\n          nDiags = nDiags + 1\n       ENDIF\n       current => current%next\n    ENDDO\n    current => NULL()\n\n    ! Initialize the lookup table\n    CALL RegDict%Init( nDiags )\n\n    !-----------------------------------------------------------------------\n    ! Then populate the lookup table with the index with which each\n    ! diagnostic is found in the list.  NOTE: Registry names are\n    ! already uppercase, so no need to convert again.\n    !-----------------------------------------------------------------------\n    current => Registry\n    DO WHILE( ASSOCIATED( current ) )\n       IF ( ASSOCIATED( current%Item ) ) THEN\n          index = index + 1\n          CALL RegDict%Set( TRIM( current%Item%fullName ), index )\n       ENDIF\n       current => current%next\n    ENDDO\n    current => NULL()\n\n  END SUBROUTINE Registry_Set_LookupTable\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Registry_Destroy\n!\n! !DESCRIPTION: Destroys a METAREGISTRY ITEM (i.e. a linked list of REGISTRY\n!  ITEMS), each of which contains information (i.e. metadata, plus a pointer\n!  to the data source) for a field contained within a module.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Registry_Destroy( Registry, RegDict, RC )\n!\n! !USES:\n!\n    USE Dictionary_M\n    USE ErrCode_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER     :: Registry   ! Registry of state fields\n    TYPE(dictionary_t)             :: RegDict    ! Registry lookup table\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Registry_Destroy (in Headers/registry_mod.F90)'\n\n    !=======================================================================\n    ! Destroy each REGISTRY ITEM contained in the registry,\n    ! then destroy the registry itself.\n    !=======================================================================\n    CALL MetaRegItem_Destroy( Registry, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not destroy the registry object!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Destroy the lookup table for this registry\n    !=======================================================================\n    CALL RegDict%Destroy()\n\n  END SUBROUTINE Registry_Destroy\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaRegItem_AddNew\n!\n! !DESCRIPTION: Wrapper for methods MetaRegItem\\_Create and\n!  MetaRegItem\\_Insert.  Will create a METAREGISTRY ITEM (containing a\n!  REGISTRY ITEM) and (1) set it as the head node of a new linked list, or\n!  (2) append it to an existing linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaRegItem_AddNew( Input_Opt, Node, Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),    INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(RegItem),     POINTER     :: Item       ! REGISTRY ITEM object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER     :: Node       ! METAREGISTRY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC         ! Success or failure\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at MetaRegItem_AddNew (in Headers/registry_mod.F90)'\n\n    !=======================================================================\n    ! Test if the METAREGISTRY ITEM (aka \"Node\") has been allocated memory\n    ! and is therefore part of an existing linked list\n    !=======================================================================\n    IF ( .not. ASSOCIATED( Node ) ) THEN\n\n       !--------------------------------------------------------------------\n       ! If not, then create a new METAREGISTRY ITEM (named \"Node\"),\n       ! and set it at the head of a new linked list\n       !--------------------------------------------------------------------\n       CALL MetaRegItem_Create( Input_Opt, Node, Item, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not create \"Node\" as the head node of a list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Otherwise, create a new METAREGISTRY ITEM (named \"Node\"),\n       ! and append it to the list, immediately following the head node\n       !--------------------------------------------------------------------\n       CALL MetaRegItem_Insert( Input_Opt, Node, Item, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not insert \"Node\" into an existing linked list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE MetaRegItem_AddNew\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaRegItem_Create\n!\n! !DESCRIPTION: This method creates a new METAREGISTRY ITEM (to contain the\n!  supplied REGISTRY ITEM) and sets it as the head node of a linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaRegItem_Create( Input_Opt, Node, Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),    INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(RegItem),     POINTER     :: Item       ! REGISTRY ITEM object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER     :: Node       ! METAREGISTRY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC         ! Success or failure\n!\n! !REMARKS:\n!  This method is not intended to be called directly, but is rather\n!  wrapped by the MetaRegItem_AddNew method.\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at MetaRegItem_Create (in Headers/registry_mod.F90)'\n\n    !=======================================================================\n    ! Initialize the METAREGISTRY ITEM itself\n    !=======================================================================\n\n    ! Allocate memory\n    ALLOCATE( Node, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Node\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n   ENDIF\n\n    ! Nullify the pointer to the next node (it doesn't exist yet)\n    Node%Next => NULL()\n\n    !=======================================================================\n    ! Initialize the field that will store the REGISTRY ITEM\n    !=======================================================================\n\n    ! Because this is the first METAREGISTRY ITEM that is being created,\n    ! we can consider this to be the head node of a linked list.\n    IF ( .not. ASSOCIATED( Node%Item ) ) THEN\n       ALLOCATE( Node%Item, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"Node%Item\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Attach the given REGISTRY ITEM to the METAREGISTRY ITEM\n    ! (i.e. place it into the head node of a linked list)\n    Node%Item = Item\n\n  END SUBROUTINE MetaRegItem_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaRegItem_Insert\n!\n! !DESCRIPTION: Creates a new METAREGISTRY ITEM (to contain the supplied\n!  REGISTRY ITEM), and pops it into an existing linked list, immediately\n!  following the head node.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaRegItem_Insert( Input_Opt, Node, Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),    INTENT(IN)  :: Input_Opt ! Input Options object\n    TYPE(RegItem),     POINTER     :: Item      ! REGISTRY ITEM object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER     :: Node      ! METAREGISTRY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!  This method is not intended to be called directly, but is rather\n!  wrapped by the MetaRegItem_AddNew method.\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)         :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(MetaRegItem), POINTER :: Head\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at MetaRegItem_Insert (in Headers/registry_mod.F90)'\n\n    !=======================================================================\n    ! Initialize a METAREGISTRY ITEM named \"Next\", which will be inserted\n    ! into the existing list.  \"Next\" will contain a new REGISTRY ITEM.\n    !=======================================================================\n\n    ! Allocate the \"Head\" object\n    ALLOCATE( Head, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Next\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Allocate the \"Head%Item\" field, which will hold the REGISTRY ITEM\n    ALLOCATE( Head%Item, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Head%Item\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Insert \"Head\" at the start of the existing linked list\n    !=======================================================================\n\n    ! Save the REGISTRY ITEM argument in the \"Item\" field of \"Head\"\n    Head%Item  =  Item\n\n    ! The \"Next\" field of \"Head\" points to the current head of the list\n    Head%Next  => Node\n\n    ! Set \"Head\" as the new head of the linked list\n    Node       => Head\n\n  END SUBROUTINE MetaRegItem_Insert\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaRegItem_Destroy\n!\n! !DESCRIPTION:  This method will destroy the REGISTRY ITEM belonging to\n!  each METAREGISTRY ITEM (aka node) of a linked list.  It will then destroy\n!  each METAREGISTRY ITEM itself.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaRegItem_Destroy( List, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaRegItem), POINTER     :: List       ! List of METAREGISTRY ITEMS\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  23 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)          :: ErrMsg,  ThisLoc\n\n    ! Objects\n    TYPE(MetaRegItem), POINTER  :: Current, Node\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    Current => NULL()\n    Node    => NULL()\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at MetaRegItem_Destroy (in Headers/registry_mod.F90)'\n\n    !=======================================================================\n    ! Destroy each METAREGISTRY ITEM in the linked list\n    !=======================================================================\n\n    ! Point to the first METAREGISTRY ITEM (aka node) in the list\n    Node => List\n\n    ! As long as it doesn't point to NULL()\n    DO WHILE ( ASSOCIATED( Node ) )\n\n       ! Set the CURRENT pointer to the current METAREGISTRY ITEM\n       Current => Node\n\n       ! Free 8-byte data pointers in this REGISTRY ITEM\n       Current%Item%Ptr0d_8 => NULL()\n       Current%Item%Ptr1d_8 => NULL()\n       Current%Item%Ptr2d_8 => NULL()\n       Current%Item%Ptr3d_8 => NULL()\n\n       ! Free 4-byte data pointers in this REGISTRY ITEM\n       Current%Item%Ptr0d_4 => NULL()\n       Current%Item%Ptr1d_4 => NULL()\n       Current%Item%Ptr2d_4 => NULL()\n       Current%Item%Ptr3d_4 => NULL()\n\n       ! Free integer data pointers in this REGISTRY ITEM\n       Current%Item%Ptr0d_I => NULL()\n       Current%Item%Ptr1d_I => NULL()\n       Current%Item%Ptr2d_I => NULL()\n       Current%Item%Ptr3d_I => NULL()\n\n       ! Destroy the REGISTRY ITEM itself\n#if defined( ESMF_ )\n       IF ( ASSOCIATED( Current%Item ) ) NULLIFY( Current%Item )\n#else\n       IF ( ASSOCIATED( Current%Item ) ) DEALLOCATE( Current%Item )\n#endif\n\n       ! Point to the next METAREGISTRY ITEM for the next iteration\n       Node => Current%Next\n\n       ! And destroy the current METAREGISTRY ITEM in the list\n       DEALLOCATE( Current, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot deallocate the \"Current\" METAREGISTRY ITEM!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n    Current => NULL()\n    Node    => NULL()\n\n  END SUBROUTINE MetaRegItem_Destroy\n!EOC\nEND MODULE Registry_Mod\n"
  },
  {
    "path": "Headers/registry_params_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: registry_params_mod.F90\n!\n! !DESCRIPTION: Contains parameters that are used to denote the types\n!  of pointers arrays (e.g. REAL(fp), REAL(f4), INTEGER) used in the\n!  GEOS-Chem Registry and History routines, as well as the vertical\n!  location.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Registry_Params_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n!\n! !DEFINED PARAMETERS:\n!\n  !==========================================================================\n  ! Numerical type parameters used in registering & comparing variables\n  !==========================================================================\n  INTEGER, PUBLIC, PARAMETER :: KINDVAL_I4 = 0           ! 4-byte integer\n  INTEGER, PUBLIC, PARAMETER :: KINDVAL_F4 = 1           ! 4-byte real\n  INTEGER, PUBLIC, PARAMETER :: KINDVAL_F8 = 2           ! 8-byte real\n#ifdef USE_REAL8\n  INTEGER, PUBLIC, PARAMETER :: KINDVAL_FP = KINDVAL_F8  ! Flex = 8-byte real\n#else\n  INTEGER, PUBLIC, PARAMETER :: KINDVAL_FP = KINDVAL_F4  ! Flex = 4-byte real\n#endif\n\n  !==========================================================================\n  ! Vertical location parameters\n  !==========================================================================\n  INTEGER, PUBLIC, PARAMETER :: VLocationNone   = 0\n  INTEGER, PUBLIC, PARAMETER :: VLocationEdge   = 1\n  INTEGER, PUBLIC, PARAMETER :: VLocationCenter = 2\n!\n! !REVISION HISTORY:\n!  14 Jul 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nEND MODULE Registry_Params_Mod\n!EOC\n"
  },
  {
    "path": "Headers/roundoff_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: roundoff_mod.F90\n!\n! !DESCRIPTION: Contains routines to round floating point values to a\n!  given number of decimal places.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Roundoff_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Cast_and_RoundOff\n  INTERFACE Cast_and_RoundOff\n     MODULE PROCEDURE Cast_and_RoundOff_Real2Dble\n     MODULE PROCEDURE Cast_and_RoundOff_Str2Flex\n  END INTERFACE\n\n  PUBLIC :: Roundoff\n  INTERFACE RoundOff\n     MODULE PROCEDURE RoundOff_Real\n     MODULE PROCEDURE RoundOff_Dble\n  END INTERFACE\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!     NASA/GSFC, Global Modeling and Assimilation Office, Code 910.1 and      !\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: RoundOff_Real\n!\n! !DESCRIPTION: Rounds a number X to N decimal places of precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION RoundOff_Real( X, N ) RESULT( Y )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f4), INTENT(IN) :: X   ! Number to be rounded\n    INTEGER,  INTENT(IN) :: N   ! Number of decimal places to keep\n!\n! !RETURN VALUE:\n!\n    REAL(f4)             :: Y   ! Number rounded to N decimal places\n!\n! !REMARKS:\n!  The algorithm to round X to N decimal places is as follows:\n!  (1) Multiply X by 10**(N+1)\n!  (2) If X < 0, then add -5 to X; otherwise add 5 to X\n!  (3) Round X to nearest integer\n!  (4) Divide X by 10**(N+1)\n!  (5) Truncate X to N decimal places: INT( X * 10**N ) / 10**N\n!                                                                             .\n!  Rounding algorithm from: Hultquist, P.F, \"Numerical Methods for Engineers\n!   and Computer Scientists\", Benjamin/Cummings, Menlo Park CA, 1988, p. 20.\n!                                                                             .\n!  Truncation algorithm from: http://en.wikipedia.org/wiki/Truncation\n!                                                                             .\n!  The two algorithms have been merged together for efficiency.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Round and truncate X to N decimal places\n    Y = INT( NINT( X*(10.0_f4**(N+1)) + SIGN( 5.0_f4, X ) ) / 10.0_f4 ) / (10.0_f4**N)\n\n  END FUNCTION RoundOff_Real\n!EOC\n!------------------------------------------------------------------------------\n!     NASA/GSFC, Global Modeling and Assimilation Office, Code 910.1 and      !\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: RoundOff_Dble\n!\n! !DESCRIPTION: Rounds a number X to N decimal places of precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION RoundOff_Dble( X, N ) RESULT( Y )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN) :: X   ! Number to be rounded\n    INTEGER,  INTENT(IN) :: N   ! Number of decimal places to keep\n!\n! !RETURN VALUE:\n!\n    REAL(f8)             :: Y   ! Number rounded to N decimal places\n!\n! !REMARKS:\n!  The algorithm to round X to N decimal places is as follows:\n!  (1) Multiply X by 10**(N+1)\n!  (2) If X < 0, then add -5 to X; otherwise add 5 to X\n!  (3) Round X to nearest integer\n!  (4) Divide X by 10**(N+1)\n!  (5) Truncate X to N decimal places: INT( X * 10**N ) / 10**N\n!                                                                             .\n!  Rounding algorithm from: Hultquist, P.F, \"Numerical Methods for Engineers\n!   and Computer Scientists\", Benjamin/Cummings, Menlo Park CA, 1988, p. 20.\n!                                                                             .\n!  Truncation algorithm from: http://en.wikipedia.org/wiki/Truncation\n!                                                                             .\n!  The two algorithms have been merged together for efficiency.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Round and truncate X to N decimal places\n    Y = INT( NINT( X*(10.0_f8**(N+1)) + SIGN( 5.0_f8, X ) ) / 10.0_f8 ) / (10.0_f8**N)\n\n  END FUNCTION RoundOff_Dble\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cast_and_roundoff_real2dble\n!\n! !DESCRIPTION: Casts a 4-byte variable to 8-byte, and then rounds off\n!  to a specified number of decimal places.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Cast_and_RoundOff_Real2Dble( v_real, places ) RESULT( v_dble )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f4), INTENT(IN) :: v_real   ! Input, 4-byte real\n    INTEGER,  INTENT(IN) :: places   ! Keep this many decimal places\n!\n! !RETURN VALUE:\n!\n    REAL(f8)             :: v_dble   ! Output, 8-byte real\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! If v_real is a missing value, return with 8-byte missing value\n    IF ( v_real == MISSING_REAL ) THEN\n       v_dble = MISSING_DBLE\n       RETURN\n    ENDIF\n\n    ! Cast to real*8 and roundoff (if the number isn't too large)\n    v_dble = DBLE( v_real )\n    IF ( places > 0 ) THEN\n       v_dble = RoundOff( v_dble, places )\n    ENDIF\n\n  END FUNCTION Cast_And_RoundOff_Real2Dble\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: cast_and_roundoff_str2flex\n!\n! !DESCRIPTION: Converts a string value to a flexible precision value and\n!  rounds off to a specified number of places.  If the string value indicates\n!  missing data, set the flex-precision value to missing data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Cast_and_RoundOff_Str2Flex( v_str, places ) RESULT( v_flex )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: v_str     ! String value\n    INTEGER,          INTENT(IN) :: places    ! Keep this many decimal places\n                                              ! -1 skips rounding off\n!\n! !RETURN VALUE:\n!\n    REAL(fp)                     :: v_flex    ! Flex precision value\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! If v_str is the missing data value, then assign\n    ! the missing data value to v_real and return\n    IF ( TRIM( v_str ) == MISSING_STR ) THEN\n       v_flex = MISSING\n       RETURN\n    ENDIF\n\n    ! Convert str to real, and roundoff if places > 0\n    READ( v_str, * ) v_flex\n    IF ( places > 0 ) THEN\n       v_flex = RoundOff( v_flex, places )\n    ENDIF\n\n  END FUNCTION Cast_and_RoundOff_Str2Flex\n!EOC\nEND MODULE Roundoff_Mod\n"
  },
  {
    "path": "Headers/species_database_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: species_database_mod.F90\n!\n! !DESCRIPTION: Module SPECIES\\_DATABASE\\_MOD contains routines to set up\n!  a database object containing physical properties for each GEOS-Chem\n!  species.  This allows us to consolidate all species properties into a\n!  single data structure, for convenience.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Species_Database_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Init_Species_Database\n  PUBLIC  :: Cleanup_Species_Database\n\n#if defined ( EXTERNAL_GRID ) || defined( EXTERNAL_FORCING )\n  !-----------------------------------------------------------------\n  !         %%%%%%% GEOS-Chem HP (with ESMF & MPI) %%%%%%%\n  !\n  ! Cleanup routines for restoring the internal state of this\n  ! module are exposed, so the DB can be reset from an external\n  ! interface to perform multiple initializations of\n  ! chemistry states. (hplin, 6/4/18)\n  !-----------------------------------------------------------------\n  PUBLIC  :: Cleanup_Work_Arrays\n#endif\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: TranUc\n!\n! !REVISION HISTORY:\n!  28 Aug 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  ! Work array to hold the list of species names, which combines the advected\n  ! species from geoschem_config.yml with the KPP species names (and removes\n  ! duplicates)\n  CHARACTER(LEN=31), ALLOCATABLE :: Species_Names(:)\n\n  ! Work array to hold the list of all KPP species indices\n  ! (Non-KPP species are given missing values)\n  INTEGER,           ALLOCATABLE :: KppSpcId(:)\n\n  ! Work array to hold the list of KPP fixed species indices\n  ! (Non-KPP species are given missing values)\n  INTEGER,           ALLOCATABLE :: KppFixId(:)\n\n  ! Work array to hold the unique list of KPP variable species indices\n  ! (Non-KPP species are given missing values)\n  INTEGER,           ALLOCATABLE :: KppVarId(:)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Species_Database\n!\n! !DESCRIPTION: Initializes the GEOS-Chem Species database from\n!  YAML file format input.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE QFYAML_Mod\n    USE RoundOff_Mod,  ONLY : Cast_and_Roundoff\n    USE Species_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(SpcPtr),   POINTER       :: SpcData(:)   ! Species database object\n    TYPE(SpcIndCt), INTENT(INOUT) :: SpcCount     ! Species index counters\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Success/failure\n!\n! !REMARKS:\n!  Uses the QFYAML parser, see: https://github.com/yantosca/qfyaml\n!\n! !REVISION HISTORY:\n!  23 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                     :: found_dd_dvzaersnow_luo\n    LOGICAL                     :: found_dd_dvzminval_luo\n    LOGICAL                     :: found_henry_cr_luo\n    LOGICAL                     :: found_henry_k0_luo\n    LOGICAL                     :: found_wd_convfaci2g_luo\n    LOGICAL                     :: found_wd_kcscalefac_luo\n    LOGICAL                     :: found_wd_liqandgas_luo\n    LOGICAL                     :: found_wd_rainouteff_luo\n    LOGICAL                     :: found_wd_retfactor_luo\n    LOGICAL                     :: no_luo\n    LOGICAL                     :: v_bool\n    LOGICAL                     :: wd_liqandgas_luo\n    LOGICAL                     :: addSpc\n#ifdef JACOBIAN\n    LOGICAL                     :: isJacobian\n#endif\n    INTEGER                     :: v_int\n    INTEGER                     :: nSpecies\n    INTEGER                     :: I, N, S\n    REAL(f4)                    :: v_real\n    REAL(f4)                    :: dd_dvzaersnow_luo\n    REAL(f4)                    :: henry_cr_luo\n    REAL(f4)                    :: henry_k0_luo\n    REAL(f4)                    :: wd_convfaci2g_luo\n    REAL(f4)                    :: wd_retfactor_luo\n\n    ! Strings\n    CHARACTER(LEN=17)           :: tag\n    CHARACTER(LEN=31)           :: modelSpcName\n    CHARACTER(LEN=31)           :: dbSpcName\n    CHARACTER(LEN=255)          :: v_str\n    CHARACTER(LEN=255)          :: key\n    CHARACTER(LEN=255)          :: thisLoc\n    CHARACTER(LEN=512)          :: errMsg\n\n    ! Arrays\n    REAL(f4)                    :: a_real_2(2)\n    REAL(f4)                    :: a_real_3(3)\n    REAL(f4)                    :: dd_dvzminval_luo(2)\n    REAL(f4)                    :: wd_kcscalefac_luo(3)\n    REAL(f4)                    :: wd_rainouteff_luo(3)\n\n    ! String arrays\n    CHARACTER(LEN=18)           :: tags(67)\n    CHARACTER(LEN=QFYAML_StrLen):: a_str(2)\n\n    ! Objects\n    TYPE(QFYAML_t)              :: yml\n    TYPE(Species),    POINTER   :: ThisSpc\n\n    !=======================================================================\n    ! Init_Species_Database begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    errMsg     = \"\"\n    thisLoc    = &\n    \" -> at Init_Species_Database (in module Headers/species_database_mod.F90\"\n\n    ! Zero counters\n    SpcCount%nAdvect  = 0\n    SpcCount%nAeroSpc = 0\n    SpcCount%nDryAlt  = 0\n    SpcCount%nDryDep  = 0\n    SpcCount%nGasSpc  = 0\n    SpcCount%nHygGrth = 0\n    SpcCount%nKppVar  = 0\n    SpcCount%nKppFix  = 0\n    SpcCount%nKppSpc  = 0\n    SpcCount%nOmitted = 0\n    SpcCount%nPhotol  = 0\n    SpcCount%nRadNucl = 0\n    SpcCount%nRealSpc = 0\n    SpcCount%nTracer  = 0\n    SpcCount%nWetDep  = 0\n    SpcCount%nHg0     = 0\n    SpcCount%nHg2     = 0\n    SpcCount%nHgP     = 0\n\n    tags = (/\"Background_VV     \",  &\n             \"DD_AeroDryDep     \",  &\n             \"DD_DustDryDep     \",  &\n             \"DD_DvzAerSnow     \",  &\n             \"DD_DvzAerSnow_Luo \",  &\n             \"DD_DvzMinVal      \",  &\n             \"DD_DvzMinVal_Luo  \",  &\n             \"DD_F0             \",  &\n             \"DD_Hstar          \",  &\n             \"DD_KOA            \",  &\n             \"Density           \",  &\n             \"Formula           \",  &\n             \"FullName          \",  &\n             \"Is_Aerosol        \",  &\n             \"Is_DryAlt         \",  &\n             \"Is_DryDep         \",  &\n             \"Is_Gas            \",  &\n             \"Is_HygroGrowth    \",  &\n             \"Is_Hg0            \",  &\n             \"Is_Hg2            \",  &\n             \"Is_HgP            \",  &\n             \"Is_Photolysis     \",  &\n             \"Is_RadioNuclide   \",  &\n             \"Is_Tracer         \",  &\n             \"Is_WetDep         \",  &\n             \"Henry_CR          \",  &\n             \"Henry_CR_Luo      \",  &\n             \"Henry_K0          \",  &\n             \"Henry_K0_Luo      \",  &\n             \"Henry_pKa         \",  &\n             \"MP_SizeResAer     \",  &\n             \"MP_SizeResNum     \",  &\n             \"MW_g              \",  &\n             \"Radius            \",  &\n             \"Snk_Horiz         \",  &\n             \"Snk_Lats          \",  &\n             \"Snk_Mode          \",  &\n             \"Snk_Period        \",  &\n             \"Snk_Value         \",  &\n             \"Snk_Vert          \",  &\n             \"Src_Add           \",  &\n             \"Src_Horiz         \",  &\n             \"Src_Lats          \",  &\n             \"Src_Mode          \",  &\n             \"Src_Pressures     \",  &\n             \"Src_Units         \",  &\n             \"Src_Value         \",  &\n             \"Src_Vert          \",  &\n             \"Units             \",  &\n             \"WD_AerScavEff     \",  &\n             \"WD_CoarseAer      \",  &\n             \"WD_ConvFacI2G     \",  &\n             \"WD_ConvFacI2G_Luo \",  &\n             \"WD_KcScaleFac     \",  &\n             \"WD_KcScaleFac_Luo \",  &\n             \"WD_Is_H2SO4       \",  &\n             \"WD_Is_HNO3        \",  &\n             \"WD_Is_SO2         \",  &\n             \"WD_Is_DSTbin      \",  &\n             \"WD_LiqAndGas      \",  &\n             \"WD_LiqAndGas_Luo  \",  &\n             \"WD_RainoutEff     \",  &\n             \"WD_RainoutEff_Luo \",  &\n             \"WD_WashoutRainPara\",  &\n             \"WD_WashoutSnowPara\",  &\n             \"WD_RetFactor      \",  &\n             \"WD_RetFactor_Luo  \"   /)\n\n    !=======================================================================\n    ! Store the list unique GEOS-Chem species names in work arrays for use\n    ! below. This is the combined list of advected species (from\n    ! geoschem_config.yml) plus KPP species (from SPC_NAMES in\n    ! gckpp_Monitor.F90), with all duplicates removed. Also stores the\n    ! corresponding indices in the KPP VAR and FIX arrays.  For simulations\n    ! that do not use KPP, the unique species list is the list of advected\n    ! species from geoschem_config.yml.\n    !=======================================================================\n    CALL Unique_Species_Names( Input_Opt, nSpecies, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = \"Could not determine species names!\"\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Initialize the species database vector and\n    ! set all tags for each species to missing values\n    CALL SpcData_Init( Input_Opt, nSpecies, SpcData, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = \"Could not initialize the species database object!\"\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Read the species metadata from YAML files into a QFYAML object\n    !=======================================================================\n    CALL Read_Species_Database( Input_Opt, yml, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in routine \"Read_Species_Database\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Extract species metadata and store in the Species Database object\n    !=======================================================================\n\n    ! Loop over the number of species\n    DO S = 1, nSpecies\n\n       ! Species name. Name in model and name of species in specied database\n       ! are allowed to differ if mapping is added below.\n       modelSpcName = species_names(S)\n       dbSpcName    = species_names(S)\n\n#ifdef JACOBIAN\n       ! Special name handling for Jacobian tracers. Assume format is\n       ! {SPC}_jac0001, {SPC}_jac0002, etc. (8 character suffix)\n       isJacobian = .FALSE.\n       IF ( INDEX( modelSpcName,'_jac' ) > 0 ) THEN\n          dbSpcName = modelSpcName(1:LEN(trim(modelSpcName))-8)\n          IF ( Input_Opt%amIRoot ) &\n               WRITE(*,*) \"WARNING: Species \", TRIM(modelSpcName), &\n               \" will use species database properties for entry \", &\n               TRIM(dbSpcName)\n          isJacobian = .TRUE.\n       ENDIF\n#endif\n\n       ! Determine whether this species has already been read from the\n       ! species database. If yes, then get the values rather than\n       ! add and get. This enables reusing species database entries\n       ! for other species.\n       addSpc = .TRUE.\n       N = S - SpcCount%nOmitted\n       IF ( N > 1 ) THEN\n          DO I = 1, N - 1\n             IF ( TRIM(SpcData(I)%Info%Name) == TRIM(dbSpcName) ) THEN\n                AddSpc = .FALSE.\n                EXIT\n             ENDIF\n          ENDDO\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! If the species is a \"dummy\" species (i.e. used for bookkeeping in\n       ! KPP rxns), then flag it as such and skip to the next species\n       !--------------------------------------------------------------------\n       v_bool = MISSING_BOOL\n       key    =  TRIM( dbSpcName) // \"%Is_Omitted\"\n       IF ( TRIM(dbSpcName) == TRIM(modelSpcName) ) THEN\n          CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n       ELSE\n          CALL QFYAML_Get( yml, key, v_bool, RC )\n       ENDIF\n       IF ( v_bool ) THEN\n          SpcCount%nOmitted = SpcCount%nOmitted + 1\n          CYCLE\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Get pointer to species info and prepare to fill with species\n       ! database info. Update number of species by subtracting updated\n       ! SpcCount%nOmitted and use that as current species modelID.\n       !--------------------------------------------------------------------\n       N =  S - SpcCount%nOmitted\n       ThisSpc => SpcData(N)%Info\n       ThisSpc%ModelId   =  N\n       ThisSpc%Name      =  TRIM( modelSpcName )\n       SpcCount%nRealSpc =  SpcCount%nRealSpc + 1\n\n       !--------------------------------------------------------------------\n       ! Set the Is_Advected tag (check against Input_Opt%AdvecSpc list)\n       !-------------------------------------------------------------------\n       v_bool = ANY( Input_Opt%AdvectSpc_Name == modelSpcName )\n       IF ( v_bool ) THEN\n          SpcCount%nAdvect    = SpcCount%nAdvect + 1\n          ThisSpc%AdvectId    = SpcCount%nAdvect\n          ThisSpc%Is_Advected = v_bool\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Set tags for species in the KPP mechanism\n       !-------------------------------------------------------------------\n\n       ! Is this species in the KPP mechanism?\n       IF ( KppSpcId(S) > 0 ) THEN\n          SpcCount%nKppSpc = SpcCount%nKppSpc + 1\n          ThisSpc%KppSpcId = KppSpcId(S)\n       ENDIF\n\n       ! Is this species an active KPP species?\n       IF ( KppVarId(S) > 0 ) THEN\n          SpcCount%nKppVar = SpcCount%nKppVar + 1\n          ThisSpc%KppVarId = KppVarId(S)\n       ENDIF\n\n       ! Is this species a fixed KPP species?\n       IF ( KppFixId(S) > 0 ) THEN\n          SpcCount%nKppFix = SpcCount%nKppFix + 1\n          ThisSpc%KppFixId = KppFixId(S)\n       ENDIF\n\n       ! Is the species part of the KPP chemical mechanism?\n       ThisSpc%Is_Kpp = ( ThisSpc%KppVarId > 0  .or. ThisSpc%KppFixId > 0 )\n\n       ! Is the species an active or fixed species in the chemical mechanism?\n       ThisSpc%Is_ActiveChem = ( ThisSpc%KppVarId >  0 .and.                 &\n                                 ThisSpc%KppFixId <= 0                      )\n       ThisSpc%Is_FixedChem  = ( ThisSpc%KppFixId >  0                      )\n\n#ifdef JACOBIAN\n       ! Is this a Jacobian species?\n       ThisSpc%Is_JacobianTracer = isJacobian\n#endif\n\n       !--------------------------------------------------------------------\n       ! Initialize found flags\n       !-------------------------------------------------------------------\n       found_dd_dvzaersnow_luo = .FALSE.\n       found_dd_dvzminval_luo  = .FALSE.\n       found_henry_cr_luo      = .FALSE.\n       found_henry_k0_luo      = .FALSE.\n       found_wd_convfaci2g_luo = .FALSE.\n       found_wd_kcscalefac_luo = .FALSE.\n       found_wd_liqandgas_luo  = .FALSE.\n       found_wd_rainouteff_luo = .FALSE.\n       found_wd_retfactor_luo  = .FALSE.\n\n       !--------------------------------------------------------------------\n       ! Loop over the remaining tags in the species database and\n       ! copy values from the QFYAML object to the SpcData object\n       !--------------------------------------------------------------------\n       DO N = 1, SIZE( tags )\n\n          ! Set intial values to default \"missing\" values\n          ! If the tag isn't found for a given species, then\n          ! it will be given the appropriate missing value.\n          a_real_2 = MISSING_REAL\n          a_real_3 = MISSING_REAL\n          v_bool   = MISSING_BOOL\n          v_int    = MISSING_INT\n          v_real   = MISSING_REAL\n          v_str    = MISSING_STR\n\n          ! Create search key for each variable\n          key = TRIM( dbSpcName) // '%' // TRIM( tags(N) )\n\n          ! Set a flag if \"Luo\" is not found in the key\n          no_luo = ( INDEX( key, \"Luo\" ) <= 0 )\n\n          ! Save into the proper field of the species database\n          ! NOTE: Attempt to round off values to 2 decimal places,\n          ! unless the values can be either too large or too small\n          ! for the roundoff algorithm.\n          IF ( INDEX( key, \"%Background_VV\" ) > 0 ) THEN\n             v_real = MISSING_VV\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%BackgroundVV = DBLE( v_real )   ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%DD_AeroDryDep\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_AeroDryDep = v_bool\n\n          ELSE IF ( INDEX( key, \"%DD_DustDryDep\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_DustDryDep = v_bool\n\n          ELSE IF ( INDEX( key, \"%DD_DvzAerSnow\" ) >  0  .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_DvzAerSnow = Cast_and_RoundOff( v_real, 2 )\n\n          ELSE IF ( INDEX( key, \"%DD_DvzAerSnow_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             dd_dvzaersnow_luo = Cast_and_RoundOff( v_real, 2 )\n             IF ( dd_dvzaersnow_luo /= MISSING_REAL ) THEN\n                found_dd_dvzaersnow_luo = .TRUE.\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%DD_DvzMinVal\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_2, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_2, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_DvzMinVal(1) = Cast_and_RoundOff( a_real_2(1), 2 )\n             ThisSpc%DD_DvzMinVal(2) = Cast_and_RoundOff( a_real_2(2), 2 )\n\n          ELSE IF ( INDEX( key, \"%DD_DvzMinVal_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_2, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_2, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             dd_dvzminval_luo(1) = Cast_and_RoundOff( a_real_2(1), 2 )\n             dd_dvzminval_luo(2) = Cast_and_RoundOff( a_real_2(2), 2 )\n             IF ( dd_dvzminval_luo(1) /= MISSING_REAL ) THEN\n                found_dd_dvzminval_luo = .TRUE.\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%DD_F0\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_F0 = DBLE( v_real )          ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%DD_Hstar\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_Hstar = DBLE( v_real )       ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%DD_KOA\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%DD_KOA = DBLE( v_real )       ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%Density\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Density = Cast_and_RoundOff( v_real, 2 )\n\n          ELSE IF ( INDEX( key, \"%Formula\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Formula = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%FullName\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%FullName = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Henry_CR\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Henry_CR = DBLE( v_real )       ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%Henry_CR_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             henry_cr_luo = DBLE( v_real )           ! Don't round off\n             IF ( henry_cr_luo /= MISSING_REAL ) THEN\n                found_henry_cr_luo = .TRUE.\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Henry_K0\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Henry_K0 = DBLE( v_real )       ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%Henry_K0_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             henry_k0_luo = DBLE( v_real )           ! Don't round off\n             IF ( henry_k0_luo /= MISSING_REAL ) THEN\n                found_henry_k0_luo = .TRUE.\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_Aerosol\" ) > 0  ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nAeroSpc  = SpcCount%nAeroSpc + 1\n                ThisSpc%AerosolId  = SpcCount%nAeroSpc\n                ThisSpc%Is_Aerosol = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_DryAlt\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nDryAlt  = SpcCount%nDryAlt + 1\n                ThisSpc%DryAltId  = SpcCount%nDryAlt\n                ThisSpc%Is_DryAlt = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_DryDep\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool .AND. ThisSpc%Is_Advected ) THEN\n                SpcCount%nDryDep  = SpcCount%nDryDep + 1\n                ThisSpc%DryDepId  = SpcCount%nDryDep\n                ThisSpc%Is_DryDep = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_HygroGrowth\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nHygGrth      = SpcCount%nHygGrth + 1\n                ThisSpc%HygGrthId      = SpcCount%nHygGrth\n                ThisSpc%Is_HygroGrowth = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_Gas\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nGasSpc = SpcCount%nGasSpc + 1\n                ThisSpc%GasSpcId = SpcCount%nGasSpc\n                ThisSpc%Is_Gas   = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_Hg0\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nHg0  = SpcCount%nHg0 + 1\n                ThisSpc%Is_Hg0 = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_Hg2\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nHg2  = SpcCount%nHg2 + 1\n                ThisSpc%Is_Hg2 = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_HgP\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nHgP  = SpcCount%nHgP + 1\n                ThisSpc%Is_HgP = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_Photolysis\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nPhotol      = SpcCount%nPhotol + 1\n                ThisSpc%PhotolId      = SpcCount%nPhotol\n                ThisSpc%Is_Photolysis = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_RadioNuclide\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nRadNucl       = SpcCount%nRadNucl + 1\n                ThisSpc%RadNuclId       = SpcCount%nRadNucl\n                ThisSpc%Is_RadioNuclide = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_Tracer\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nTracer       = SpcCount%nTracer + 1\n                ThisSpc%TracerId       = SpcCount%nTracer\n                ThisSpc%Is_Tracer      = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%Is_WetDep\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             IF ( v_bool ) THEN\n                SpcCount%nWetDep  = SpcCount%nWetDep + 1\n                ThisSpc%WetDepID  = SpcCount%nWetDep\n                ThisSpc%Is_WetDep = v_bool\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%KPP_AbsTol\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%KPP_AbsTol = Cast_and_RoundOff( v_str, -1 )\n\n          ELSE IF ( INDEX( key, \"%KPP_RelTol\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%KPP_RelTol = Cast_and_RoundOff( v_str, -1 )\n\n          ELSE IF ( INDEX( key, \"%MP_SizeResAer\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%MP_SizeResAer = v_bool\n\n          ELSE IF ( INDEX( key, \"%MP_SizeResNum\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%MP_SizeResNum = v_bool\n\n          ELSE IF ( INDEX( key, \"%MW_g\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%MW_g = Cast_and_RoundOff( v_real, 2 )\n\n          ELSE IF ( INDEX( key, \"%Radius\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Radius = DBLE( v_real )         ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%Snk_Horiz\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Snk_Horiz = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Snk_Lats\" ) > 0 ) THEN\n             a_str = MISSING_STR\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, TRIM( key ), a_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, TRIM( key ), a_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Snk_LatMin = Cast_and_RoundOff( a_str(1), 4 )\n             ThisSpc%Snk_LatMax = Cast_and_RoundOff( a_str(2), 4 )\n\n          ELSE IF ( INDEX( key, \"%Snk_Mode\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Snk_Mode = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Snk_Period\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Snk_Period = DBLE( v_real )\n\n          ELSE IF ( INDEX( key, \"%Snk_Value\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Snk_Value = DBLE( v_real )\n\n          ELSE IF ( INDEX( key, \"%Snk_Vert\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Snk_Vert = TRIM( v_str )\n \n          ELSE IF ( INDEX( key, \"%Src_Add\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_Add = v_bool\n\n          ELSE IF ( INDEX( key, \"%Src_Horiz\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_Horiz = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Src_Lats\" ) > 0 ) THEN\n             a_str = MISSING_STR\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, TRIM( key ), a_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, TRIM( key ), a_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_LatMin = Cast_and_RoundOff( a_str(1), 4 )\n             ThisSpc%Src_LatMax = Cast_and_RoundOff( a_str(2), 4 )\n\n          ELSE IF ( INDEX( key, \"%Src_Mode\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_Mode = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Src_Pressures\" ) > 0 ) THEN\n             a_str = MISSING_STR\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, TRIM( key ), a_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, TRIM( key ), a_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_PresMin = Cast_and_RoundOff( a_str(1), 4 )\n             ThisSpc%Src_PresMax = Cast_and_RoundOff( a_str(2), 4 )\n\n          ELSE IF ( INDEX( key, \"%Src_Units\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_Units = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Src_Value\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_Value = DBLE( v_real )\n\n          ELSE IF ( INDEX( key, \"%Src_Vert\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Src_Vert = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%Units\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_str, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_str, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%Units = TRIM( v_str )\n\n          ELSE IF ( INDEX( key, \"%WD_AerScavEff\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_AerScavEff = Cast_and_RoundOff( v_real, 2 )\n\n          ELSE IF ( INDEX( key, \"%WD_CoarseAer\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_CoarseAer = v_bool\n\n          ELSE IF ( INDEX( key, \"%WD_ConvFacI2G\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_ConvFacI2G = DBLE( v_real )  ! Don't round off\n\n          ELSE IF ( INDEX( key, \"%WD_ConvFacI2G_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             wd_convfaci2g_luo = DBLE( v_real )      ! Don't round off\n             IF ( wd_convfaci2g_luo /= MISSING_REAL ) THEN\n                found_wd_convfaci2g_luo = .TRUE.\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%WD_KcScaleFac\" ) > 0  .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_3, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_3, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_KcScaleFac(1) = Cast_and_RoundOff( a_real_3(1), 2 )\n             ThisSpc%WD_KcScaleFac(2) = Cast_and_RoundOff( a_real_3(2), 2 )\n             ThisSpc%WD_KcScaleFac(3) = Cast_and_RoundOff( a_real_3(3), 2 )\n\n          ELSE IF ( INDEX( key, \"%WD_KcScaleFac_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_3, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_3, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             wd_kcscalefac_luo(1) = Cast_and_RoundOff( a_real_3(1), 2 )\n             wd_kcscalefac_luo(2) = Cast_and_RoundOff( a_real_3(2), 2 )\n             wd_kcscalefac_luo(3) = Cast_and_RoundOff( a_real_3(3), 2 )\n             IF ( wd_kcscalefac_luo(1) /= MISSING_REAL ) THEN\n                found_wd_kcscalefac_luo = .TRUE.\n             ENDIF\n\n          ELSE IF ( INDEX( key, \"%WD_Is_H2SO4\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_Is_H2SO4 = v_bool\n\n          ELSE IF ( INDEX( key, \"%WD_Is_HNO3\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_Is_HNO3 = v_bool\n\n          ELSE IF ( INDEX( key, \"%WD_Is_SO2\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_Is_SO2 = v_bool\n         \n          ELSE IF ( INDEX( key, \"%WD_Is_DSTbin\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_Is_DSTbin = v_bool\n\n          ELSE IF ( INDEX( key, \"%WD_LiqAndGas\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_LiqAndGas = v_bool\n\n          ELSE IF ( INDEX( key, \"%WD_LiqAndGas_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_bool, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_bool, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             wd_liqandgas_luo = v_bool\n             found_wd_liqandgas_luo = wd_liqandgas_luo\n\n          ELSE IF ( INDEX( key, \"%WD_RainoutEff\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_3, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_3, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_RainoutEff(1) = Cast_and_RoundOff( a_real_3(1), 2 )\n             ThisSpc%WD_RainoutEff(2) = Cast_and_RoundOff( a_real_3(2), 2 )\n             ThisSpc%WD_RainoutEff(3) = Cast_and_RoundOff( a_real_3(3), 2 )\n\n          ELSE IF ( INDEX( key, \"%WD_RainoutEff_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_3, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_3, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             wd_rainouteff_luo(1) = Cast_and_RoundOff( a_real_3(1), 2 )\n             wd_rainouteff_luo(2) = Cast_and_RoundOff( a_real_3(2), 2 )\n             wd_rainouteff_luo(3) = Cast_and_RoundOff( a_real_3(3), 2 )\n             IF ( wd_rainouteff_luo(1) /= MISSING_REAL ) THEN\n                found_wd_rainouteff_luo = .TRUE.\n             ENDIF\n          \n          ! add washout parameters for dust species (D. Zhang, 28 Jun, 2024)\n          ELSE IF ( INDEX( key, \"%WD_WashoutRainPara\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_2, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_2, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_WashoutRainPara(1) = DBLE( a_real_2(1) ) ! Do not roundoff \n             ThisSpc%WD_WashoutRainPara(2) = DBLE( a_real_2(2) )\n\n          ELSE IF ( INDEX( key, \"%WD_WashoutSnowPara\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, a_real_2, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, a_real_2, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_WashoutSnowPara(1) = DBLE( a_real_2(1) )\n             ThisSpc%WD_WashoutSnowPara(2) = DBLE( a_real_2(2) )\n\n          ELSE IF ( INDEX( key, \"%WD_RetFactor\" ) > 0 .and. no_luo ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             ThisSpc%WD_RetFactor = Cast_and_RoundOff( v_real, 2 )\n\n          ELSE IF ( INDEX( key, \"%WD_RetFactor_Luo\" ) > 0 ) THEN\n             IF ( addSpc ) THEN\n                CALL QFYAML_Add_Get( yml, key, v_real, \"\", RC )\n             ELSE\n                CALL QFYAML_Get( yml, key, v_real, RC )\n             ENDIF\n             IF ( RC /= GC_SUCCESS ) GOTO 999\n             wd_retfactor_luo = Cast_and_RoundOff( v_real, 2 )\n             IF ( wd_retfactor_luo /= MISSING_REAL ) THEN\n                found_wd_retfactor_luo = .TRUE.\n             ENDIF\n\n          ELSE\n             ! Pass\n\n          ENDIF\n\n       ENDDO\n\n       !--------------------------------------------------------------------\n       ! SANITY CHECKS\n       !--------------------------------------------------------------------\n\n       ! Is_Gas and Is_Aero tags cannot both be TRUE at the same time\n       IF ( ThisSpc%Is_Gas .and. ThisSpc%Is_Aerosol ) THEN\n          errMsg = \"Is_Gas and Is_Aerosol are both TRUE for species \"     // &\n                   TRIM( dbSpcName) // \"!\"\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Is_Gas and Is_Aero tags cannot both be FALSE at the same time\n       IF ( ( .not. ThisSpc%Is_Gas     )   .and.                             &\n            ( .not. ThisSpc%Is_Aerosol )   .and.                             &\n            ( .not. ThisSpc%Is_Omitted ) ) THEN\n\n          ! Check if this is a KPP species, is so set Is_Gas to TRUE, otherwise\n          ! return with an error. This will account for P/L families not\n          ! defined in the species database.\n          IF ( ThisSpc%Is_Kpp ) THEN\n             ThisSpc%Is_Gas = .TRUE.\n          ELSE\n             errMsg = \"Is_Gas and Is_Aerosol are both FALSE for species \" // &\n                      TRIM( dbSpcName) // \"!This species may not be included \" // &\n                      \"in species_database.yml. Please check that file.\"\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n       ! Make sure the molecular weight is not a missing value\n       IF ( ThisSpc%MW_g == MISSING_REAL ) THEN\n          errMsg = 'MW_g for species ' // TRIM( dbSpcName) // ' is undefined!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! If the species is a gas, set all aerosol fields to missing values\n       IF ( ThisSpc%Is_Gas ) THEN\n\n          SELECT CASE( TRIM( dbSpcName) )\n             CASE( 'H2SO4' )\n                ! H2SO4 are gases that wetdep like aerosols,\n                ! so keep both all gas and aerosol properties.\n             CASE( 'HNO3', 'SO2' )\n                ! HNO3 and SO2 drydep like gases but wetdep like fine\n                ! aerosols, so set certain fields to missing values.\n                ThisSpc%DD_DvzAerSnow = MISSING\n                ThisSpc%MP_SizeResAer = MISSING_BOOL\n                ThisSpc%MP_SizeResNum = MISSING_BOOL\n                ThisSpc%WD_CoarseAer  = MISSING_BOOL\n             CASE DEFAULT\n                ! For all other gas-phase species, set all\n                ! aerosol fields to missing values\n                ThisSpc%DD_DvzAerSnow = MISSING\n                ThisSpc%MP_SizeResAer = MISSING_BOOL\n                ThisSpc%MP_SizeResNum = MISSING_BOOL\n                ThisSpc%WD_CoarseAer  = MISSING_BOOL\n                ThisSpc%WD_AerScavEff = MISSING\n                ThisSpc%WD_KcScaleFac = MISSING\n                ThisSpc%WD_RainoutEff = MISSING\n                ThisSpc%WD_Is_DSTbin  = MISSING_BOOL\n                ThisSpc%WD_WashoutRainPara = MISSING\n                ThisSpc%WD_WashoutSnowPara = MISSING\n          END SELECT\n       ENDIF\n\n       ! If the species is an aerosol, set all gas fields to missing values\n       IF ( ThisSpc%Is_Aerosol ) THEN\n          ThisSpc%WD_ConvFacI2G = MISSING\n          ThisSpc%WD_RetFactor  = MISSING\n          ThisSpc%WD_LiqAndGas  = MISSING_BOOL\n       ENDIF\n\n\n#ifdef LUO_WETDEP\n       !--------------------------------------------------------------------\n       ! For Luo et al 2020 wetdep\n       ! Overwrite with special values if present in file\n       !--------------------------------------------------------------------\n       IF ( found_dd_dvzaersnow_luo ) THEN\n          ThisSpc%DD_DvzAerSnow = dd_dvzaersnow_luo\n       ENDIF\n\n       IF ( found_dd_dvzminval_luo ) THEN\n          ThisSpc%DD_DvzMinVal(1) = dd_dvzminval_luo(1)\n          ThisSpc%DD_DvzMinVal(2) = dd_dvzminval_luo(2)\n       ENDIF\n\n       IF ( found_henry_cr_luo ) THEN\n          ThisSpc%Henry_CR = henry_cr_luo\n       ENDIF\n\n       IF ( found_henry_k0_luo ) THEN\n          ThisSpc%Henry_K0 = henry_k0_luo\n       ENDIF\n\n       IF ( found_wd_convfaci2g_luo ) THEN\n          ThisSpc%WD_ConvFacI2G = wd_convfaci2g_luo\n       ENDIF\n\n       IF ( found_wd_liqandgas_luo ) THEN\n          ThisSpc%WD_LiqAndGas = wd_liqandgas_luo\n       ENDIF\n\n       IF ( found_wd_kcscalefac_luo ) THEN\n          ThisSpc%WD_KcScaleFac(1) = wd_kcscalefac_luo(1)\n          ThisSpc%WD_KcScaleFac(2) = wd_kcscalefac_luo(2)\n          ThisSpc%WD_KcScaleFac(3) = wd_kcscalefac_luo(3)\n       ENDIF\n\n       IF ( found_wd_rainouteff_luo ) THEN\n          ThisSpc%WD_RainoutEff(1) = wd_rainouteff_luo(1)\n          ThisSpc%WD_RainoutEff(2) = wd_rainouteff_luo(2)\n          ThisSpc%WD_RainoutEff(3) = wd_rainouteff_luo(3)\n       ENDIF\n\n       IF ( found_wd_retfactor_luo ) THEN\n          ThisSpc%WD_RetFactor = wd_retfactor_luo\n       ENDIF\n#endif\n\n       ! Debug printout\n       IF ( Input_Opt%Verbose ) THEN\n          CALL Spc_Print( Input_Opt, ThisSpc, RC )\n       ENDIF\n\n       ! Free pointer\n       ThisSpc => NULL()\n    ENDDO\n\n    ! FORMAT statements\n10  FORMAT( a30, \" | \", a      )\n20  FORMAT( a30, \" | \", L10    )\n30  FORMAT( a30, \" | \", f10.2  )\n31  FORMAT( a30, \" | \", 2f10.2 )\n32  FORMAT( a30, \" | \", 3f10.2 )\n40  FORMAT( a30, \" | \", i10    )\n\n    !=======================================================================\n    ! Print metadata for only the species that are defined in this\n    ! simulation (but not the entire species database) to a YAML file.\n    ! This file may be used for pre-processing files in other models\n    ! when updating GEOS-Chem versions, such as in WRF and CESM. It\n    ! should not be generated when running those models. Output file is\n    ! set in simulation%species_metadata_output_file in geoschem_config.yml.\n    !=======================================================================\n    IF ( LEN(TRIM( Input_Opt%SpcMetaDataOutFile )) > 0 ) THEN\n       IF ( Input_Opt%amIRoot ) THEN\n          CALL QFYAML_Print( yml        = yml,                               &\n                             fileName   = Input_Opt%SpcMetaDataOutFile,      &\n                             searchKeys = species_names,                     &\n                             RC         = RC                                )\n\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Normal exit\n    !=======================================================================\n\n    ! Free objects and arrays, then return\n    ThisSpc => NULL()\n    CALL QFYAML_CleanUp( yml )\n    CALL Cleanup_Work_Arrays()\n\n    !### Uncomment this to stop here when debugging species info\n    !STOP\n\n    RETURN\n\n    !=======================================================================\n    ! Abnormal exit\n    !=======================================================================\n999 CONTINUE\n\n    ! Free objects and arrays\n    ThisSpc => NULL()\n    CALL QFYAML_CleanUp( yml )\n    CALL Cleanup_Work_Arrays()\n\n    ! Exit with error\n    errMsg = 'Could not read species database variable: ' // TRIM( key )\n    CALL GC_Error( errMsg, RC, thisLoc )\n\n  END SUBROUTINE Init_Species_Database\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Read_Species_Database\n!\n! !DESCRIPTION: Reads the metadata for each species into a QFYAML object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Read_Species_Database( Input_Opt, yml, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE QFYAML_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN) :: Input_Opt   ! Input options\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(QFYAML_t), INTENT(OUT) :: yml\n    INTEGER,        INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  28 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: fileName\n    CHARACTER(LEN=255) :: thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    ! Objects\n    TYPE(QFYAML_t)     :: yml_1\n    TYPE(QFYAML_t)     :: yml_2\n    TYPE(QFYAML_t)     :: yml_anchored\n\n    !=========================================================================\n    ! Read_Species_Database begins here!\n    !=========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = \"\"\n    thisLoc = &\n    \" -> at Read Species Database (in module Headers/species_database_mod.F90)\"\n\n    !=======================================================================\n    ! Read metadata for GEOS-Chem species\n    !========================================================================\n    fileName = TRIM( Input_Opt%SpcDatabaseFile )\n    CALL QFYAML_Init( fileName, yml, yml_anchored, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = \"Error reading \" // TRIM( fileName )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n    CALL QFYAML_CleanUp( yml_anchored )\n\n  END SUBROUTINE Read_Species_Database\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Species_Database\n!\n! !DESCRIPTION: Finalizes the vector with species information.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Species_Database( SpcData, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Species_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(SpcPtr),   POINTER     :: SpcData(:)   ! Species database object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  22 Jul 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Deallocate the species database object\n    CALL SpcData_Cleanup( SpcData )\n\n  END SUBROUTINE Cleanup_Species_Database\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TranUc\n!\n! !DESCRIPTION: Tranlate a character variable to all upper case letters.\n!  Non-alphabetic characters are not affected.  The original \"text\" is\n!  destroyed.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TranUc( text )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: text\n!\n! !AUTHOR:\n!  Robert D. Stewart, May 19, 1992 (part of CHARPAK)\n!\n! !REMARKS:\n!  Keep a private shadow copy of this routine here so as not to\n!  incur a dependency with GeosUtil/charpak_mod.F90.  This lets us\n!  keep species_datbase_mod.F90 in the Headers/ folder together\n!  with state_chm_mod.F90 and species_mod.F90.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: iasc, i, ilen\n\n    ilen = LEN(text)\n    DO i=1,ilen\n       iasc = ICHAR(text(i:i))\n       IF ((iasc.GT.96).AND.(iasc.LT.123)) THEN\n          text(i:i) = CHAR(iasc-32)\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE TranUc\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Unique_Species_Names\n!\n! !DESCRIPTION: Stores the list of unique species names (i.e. removing\n!  duplicates from the list of advected species and the the list of KPP\n!  species) for later use.  Also computes the corresponding indices for\n!  the KPP variable and fixed species arrays (VAR and FIX, respectively).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Unique_Species_Names( Input_Opt, nSpecies, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE GcKpp_Monitor,    ONLY : Spc_Names\n    USE GcKpp_Parameters, ONLY : NFIX, NSPEC, NVAR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: nSpecies    ! Number of unique species\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!  This may not be the fastest search algorithm (because it relies on string\n!  comparisons).  But it is only executed at startup so we can live with it.\n!  We could make it faster by hashing but that seems like overkill.\n!\n! !REVISION HISTORY:\n!  09 May 2016 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                        :: nAdvect, K, S\n\n    ! Strings\n    CHARACTER(LEN=255)             :: errMsg\n    CHARACTER(LEN=255)             :: thisLoc\n\n    ! Arrays\n    CHARACTER(LEN=31), ALLOCATABLE :: Tmp(:)\n    CHARACTER(LEN=31)              :: SpcName\n\n    !=======================================================================\n    ! UNIQUE_SPECIES_NAMES begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC       = GC_SUCCESS\n    errMsg   = ''\n    thisLoc  = &\n    ' -> at Unique_Species_Names (in module Headers/species_database_mod.F90)'\n\n    ! Number of advected species listed in geoschem_config.yml\n    nAdvect  = Input_Opt%N_Advect\n\n    ! First set the # of species to the # of advected species\n    nSpecies = nAdvect\n\n    !=======================================================================\n    ! For KPP-based simulations, get the list of all of\n    ! species names in the KPP mechanism, and their indices\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM      .or.                             &\n         Input_Opt%ITS_A_MERCURY_SIM       .or.                             &\n         Input_Opt%ITS_A_CARBON_SIM      ) THEN\n\n       ! Allocate a temporary array large enough to hold all of the\n       ! advected species listed in geoschem_config.yml as well as all of the\n       ! KPP species names (listed in SPC_NAMES of gckpp_Monitor.F90)\n       ALLOCATE( Tmp( nAdvect + NSPEC ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:Tmp', 0 , RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Tmp = ''\n\n       !--------------------------------------------------------------------\n       ! First determine the unique list of species in the KPP mechanism\n       ! (so that we don't duplicate storage for advected & chemical species)\n       !--------------------------------------------------------------------\n\n       ! First, store advected species (from geoschem_config.yml) in the\n       ! TMP array\n       DO S = 1, nSpecies\n          Tmp(S) = Input_Opt%AdvectSpc_Name(S)\n       ENDDO\n\n       ! Loop over KPP species\n       DO K = 1, NSPEC\n\n          ! Skip dummy RR species for prod/loss diagnostic (mps, 8/23/16)\n          SpcName = ADJUSTL( Spc_Names(K) )\n          IF ( SpcName(1:2) == 'RR' ) CYCLE\n\n          ! Next, add to the TMP array those KPP species that aren't already\n          ! listed as advected species.  nSpecies is the # of unique species.\n          IF ( .not. ANY( Input_Opt%AdvectSpc_Name == Spc_Names(K) ) ) THEN\n             nSpecies      = nSpecies + 1\n             Tmp(nSpecies) = Spc_Names(K)\n          ENDIF\n\n       ENDDO\n\n       ! Allocate the species names array precisely of length nSpecies\n       ALLOCATE( Species_Names( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:Species_Names', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Species_Names = Tmp(1:nSpecies )\n\n       ! Free temporary array\n       IF ( ALLOCATED( Tmp ) ) DEALLOCATE( Tmp )\n\n       !--------------------------------------------------------------------\n       ! Now determine the KPP indices for each unique species name\n       !--------------------------------------------------------------------\n\n       ! Work array to hold the list of all KPP species indices\n       ALLOCATE( KppSpcId( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:KppSpcId', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KppSpcId = MISSING_INT\n\n       ! Work array to hold the list of KPP fixed species indices\n       ALLOCATE( KppFixId( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:KppFixId', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KppFixId = MISSING_INT\n\n       ! Work array to hold the list of KPP variable species indices\n       ALLOCATE( KppVarId( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:KppVarId', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KppVarId = MISSING_INT\n\n       ! Loop through the list of unique species names\n       DO S = 1, nSpecies\n\n          ! Loop through the list of KPP species (stored in SPC_NAMES)\n          DO K = 1, NSPEC\n\n             ! Skip dummy RR species for prod/loss diagnostic (mps, 8/23/16)\n             SpcName = ADJUSTL( Spc_Names(K) )\n             IF ( SpcName(1:2) == 'RR' ) CYCLE\n\n             ! Test the unique species names (stored in SPECIES_NAMES)\n             ! against the list of KPP species (in SPC_NAMES).  The K\n             ! index corresponds to the location of the species in the\n             ! KPP chemical mechanism:  1..NSPEC = [ 1..NVAR, 1..NFIX].\n             IF ( Species_Names(S) == Spc_Names(K) ) THEN\n\n                ! KPP species index (1..NSPEC).  These\n                ! are used to index species in the KPP \"C\" array.\n                ! These include both variable and fixed species.\n                KppSpcId(S) = K\n\n                IF ( K <= NVAR ) THEN\n\n                   ! KPP variable species index (1..NVAR).  These\n                   ! are used to index species in the KPP \"C\" array\n                   ! (as well as the \"VAR\" array).\n                   KppVarId(S) = K\n\n                ELSE\n\n                   ! KPP fixed species also have entries (1..NFIX).  These\n                   ! are used to index species in the KPP \"FIX\" array.\n                   KppFixId(S) = K - NVAR\n\n                ENDIF\n\n                ! Skip to next species\n                EXIT\n             ENDIF\n          ENDDO\n       ENDDO\n\n    !=======================================================================\n    ! For speciality simulations that do not use KPP-built mechanisms,\n    ! we can just use the advected species list from geoschem_config.yml\n    !=======================================================================\n    ELSE\n\n       ! Initialize the species names array from Input_Opt\n       ALLOCATE( Species_Names( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:Species_Names', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Species_Names = Input_Opt%AdvectSpc_Name(1:nSpecies)\n\n       ! Set KppSpcId to missing value\n       ALLOCATE( KppSpcId( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:KppSpcId', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KppSpcId = MISSING_INT\n\n       ! Set KppFixId to missing value\n       ALLOCATE( KppFixId( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:KppFixId', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KppFixId = MISSING_INT\n\n       ! Set KppVarId to missing value\n       ALLOCATE( KppVarId( nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'species_database_mod.F90:KppVarId', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       KppVarId = MISSING_INT\n\n    ENDIF\n\n  END SUBROUTINE Unique_Species_Names\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Work_Arrays\n!\n! !DESCRIPTION: Cleans working (temporary) arrays used by this module,\n!  restoring them to an unused state. It is called at the end of\n!  Init\\_Species\\_Database or by an external module when needed to\n!  reinitialize the species DB.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Work_Arrays()\n!\n! !REMARKS:\n!  This routine allows Species_Database_Mod to be initialized more than once\n!  in the same CPU, if called externally before re-initializing a State_Chm\n!  derived type object.\n!\n! !REVISION HISTORY:\n!  06 May 2016 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Deallocate arrays\n    IF ( ALLOCATED( Species_Names ) ) DEALLOCATE( Species_Names )\n    IF ( ALLOCATED( KppFixId      ) ) DEALLOCATE( KppFixId      )\n    IF ( ALLOCATED( KppVarId      ) ) DEALLOCATE( KppVarId      )\n    IF ( ALLOCATED( KppSpcId      ) ) DEALLOCATE( KppSpcId      )\n\n  END SUBROUTINE Cleanup_Work_Arrays\n!EOC\nEND MODULE Species_Database_Mod\n"
  },
  {
    "path": "Headers/species_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: species_mod.F90\n!\n! !DESCRIPTION: Module SPECIES\\_MOD contains types and routines to define\n!  the GEOS-Chem species object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Species_Mod\n!\n! USES:\n!\n#if defined( MODEL_GCHPCTM)\n  USE ESMF\n#endif\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: SpcData_Init\n  PUBLIC :: SpcData_Cleanup\n  PUBLIC :: Spc_Print\n!\n! !PUBLIC TYPES:\n!\n  !=========================================================================\n  ! Type for species index counters\n  !=========================================================================\n  TYPE, PUBLIC :: SpcIndCt\n     INTEGER :: nAdvect  ! # of advected species\n     INTEGER :: nAeroSpc ! # of aerosol species\n     INTEGER :: nDryAlt  ! # of dry-dep species to save @ user-defined altitude\n     INTEGER :: nDryDep  ! # of dry-deposited species\n     INTEGER :: nGasSpc  ! # of gas-phase species\n     INTEGER :: nHygGrth ! # of hygroscopic growth spc\n     INTEGER :: nKppVar  ! # of variable KPP species\n     INTEGER :: nKppFix  ! # of fixed KPP species\n     INTEGER :: nKppSpc  ! # of species in KPP matrix\n     INTEGER :: nPhotol  ! # of photolysis species\n     INTEGER :: nOmitted ! # of omitted species\n     INTEGER :: nRadNucl ! # of radionuclide species\n     INTEGER :: nTracer  ! # of transport tracers\n     INTEGER :: nRealSpc ! # of total species (w/ omitted species removed)\n     INTEGER :: nWetDep  ! # of wet-deposited species\n     INTEGER :: nHg0     ! # of Hg0 tracers\n     INTEGER :: nHg2     ! # of Hg2 tracers\n     INTEGER :: nHgP     ! # of HgP tracers\n  END TYPE SpcIndCt\n\n  !=========================================================================\n  ! Type for the Species Database object (vector of type Species)\n  !=========================================================================\n  TYPE, PUBLIC :: SpcPtr\n     TYPE(Species), POINTER :: Info         ! Single entry of Species Database\n  END TYPE SpcPtr\n\n  !=========================================================================\n  ! Type for single species concentrations\n  !=========================================================================\n  TYPE, PUBLIC :: SpcConc\n#if defined( MODEL_GCHPCTM )\n     REAL(ESMF_KIND_R8), POINTER :: Conc(:,:,:) ! Concentration array\n#else\n     REAL(fp), POINTER :: Conc(:,:,:)           ! Concentration array\n#endif\n     INTEGER :: Units                           ! Species units\n     INTEGER :: Previous_Units                  ! Previous species units\n  END TYPE SpcConc\n\n  !=========================================================================\n  ! Type for individual species information\n  ! (i.e. this is a single entry in the Species Database)\n  !=========================================================================\n  TYPE, PUBLIC :: Species\n\n     ! Indices\n     INTEGER            :: ModelId          ! Model species Id\n     INTEGER            :: AdvectId         ! Advection index\n     INTEGER            :: AerosolId        ! Aerosol species index\n     INTEGER            :: DryAltId         ! Dry dep species at altitude Id\n     INTEGER            :: DryDepId         ! Dry deposition index\n     INTEGER            :: GasSpcId         ! Gas-phase species index\n     INTEGER            :: HygGrthId        ! Hygroscopic growth species index\n     INTEGER            :: KppVarId         ! KPP variable species index\n     INTEGER            :: KppFixId         ! KPP fixed spcecies index\n     INTEGER            :: KppSpcId         ! KPP species index\n     INTEGER            :: OmittedId        ! Omitted species index\n     INTEGER            :: PhotolId         ! Photolysis index\n     INTEGER            :: RadNuclId        ! Radionuclide index\n     INTEGER            :: TracerId         ! Transport tracer index\n     INTEGER            :: WetDepId         ! Wet deposition index\n\n     ! Names\n     CHARACTER(LEN=31)  :: Name             ! Short name\n     CHARACTER(LEN=80)  :: FullName         ! Long name\n     CHARACTER(LEN=80)  :: Formula          ! Chemical formula\n\n     ! Logical switches\n     LOGICAL            :: Is_Advected      ! Is it advected?\n     LOGICAL            :: Is_Aerosol       ! Is it an aerosol species?\n     LOGICAL            :: Is_DryAlt        ! Is it a dry-dep species that we\n                                            !  want to save at a given altitude?\n     LOGICAL            :: Is_DryDep        ! Is it dry-deposited?\n     LOGICAL            :: Is_Gas           ! Is it a gas?  If not, aerosol.\n     LOGICAL            :: Is_HygroGrowth   ! Does it have hygroscropic growth?\n     LOGICAL            :: Is_ActiveChem    ! Is it an active chemical species?\n     LOGICAL            :: Is_FixedChem     ! Is it a fixed chemical species?\n     LOGICAL            :: Is_Kpp           ! Is it in the KPP mechanism?\n     LOGICAL            :: Is_Omitted       ! Is it omitted from the database?\n     LOGICAL            :: Is_Photolysis    ! Is it an photolysis species?\n     LOGICAL            :: Is_RadioNuclide  ! Is it a radionuclide species?\n     LOGICAL            :: Is_Tracer        ! Is it a transport tracer?\n     LOGICAL            :: Is_WetDep        ! Is it wet-deposited?\n     LOGICAL            :: Is_InRestart     ! Is it in the restart file?\n#ifdef JACOBIAN\n     LOGICAL            :: Is_JacobianTracer  ! Is it a Jacobian tracer?\n#endif\n\n     ! Molecular weights\n     REAL(fp)           :: MW_g             ! Species molecular weight [g/mol]\n\n     ! Default background concentration\n     REAL(fp)           :: BackgroundVV     ! Background conc [v/v]\n\n     ! Species units\n     CHARACTER(LEN=80)  :: Units            ! Species units (e.g. v/v, days)\n\n     ! Density and radius\n     REAL(fp)           :: Density          ! Density [kg/m3]\n     REAL(fp)           :: Radius           ! Radius  [m]\n\n     ! Henry's law parameters\n     REAL(f8)           :: Henry_K0         ! Liq./gas Henry const [M/atm ]\n     REAL(f8)           :: Henry_CR         ! d(ln K0) / d(1/T)    [K     ]\n     REAL(f8)           :: Henry_PKA        ! pKa for Henry const. correction\n\n     ! Drydep parameters\n     LOGICAL            :: DD_AeroDryDep    ! Use AERO_SFCRSII for drydep?\n     LOGICAL            :: DD_DustDryDep    ! Use DUST_SFCRSII for drydep?\n     REAL(fp)           :: DD_DvzAerSnow    ! Vd for aerosols on snow [cm/s]\n     REAL(fp)           :: DD_DvzMinVal(2)  ! Min Vd for aerosols [cm/s]\n     REAL(fp)           :: DD_F0            ! F0 (reactivity) factor [1]\n     REAL(fp)           :: DD_KOA           ! KOA factor for POPG\n     REAL(fp)           :: DD_Hstar         ! HSTAR value in drydep_mod [M/atm]\n\n     ! Wetdep parameters, gas-phase species\n     LOGICAL            :: WD_LiqAndGas     ! Consider liquid and gas phases?\n     REAL(fp)           :: WD_ConvFacI2G    ! Conv. factor for ice/gas ratio\n     REAL(fp)           :: WD_RetFactor     ! Retention factor [1]\n\n     ! Wetdep parameters, aerosol-phase species\n     LOGICAL            :: WD_Is_H2SO4      ! Flag to denote H2SO4 wetdep\n     LOGICAL            :: WD_Is_HNO3       ! Flag to denote HNO3 wetdep\n     LOGICAL            :: WD_Is_SO2        ! Flag to denote SO2 wetdep\n     LOGICAL            :: WD_Is_DSTbin     ! Flag to denote dust wetdep (D. Zhang 28 Jun, 2024)\n     LOGICAL            :: WD_CoarseAer     ! T=coarse aerosol; F=fine aerosol\n     REAL(fp)           :: WD_AerScavEff    ! Aerosol scavenging efficiency\n     REAL(fp)           :: WD_KcScaleFac(3) ! Temperature-dependent scale\n                                            !  factors to multiply Kc rate\n                                            !  (conv of condensate -> precip)\n                                            !  in F_AEROSOL (wetscav_mod.F90)\n     REAL(fp)           :: WD_RainoutEff(3) ! Temperature-dependent scale\n                                            !  factors for rainout efficiency\n     REAL(fp)           :: WD_WashoutRainPara(2) ! Parameters for washout efficiency of dust species due to rain precipitation\n     REAL(fp)           :: WD_WashoutSnowPara(2) ! Parameters for washout efficiency of dust species due to snow precipitation\n\n     ! TransportTracers parameters\n     CHARACTER(LEN=80)  :: Snk_Horiz        ! Where to apply sink horizontally?\n     REAL(fp)           :: Snk_LatMin       ! Minimum latitude for applying sink\n     REAL(fp)           :: Snk_LatMax       ! Maximum latitude for applying sink\n     CHARACTER(LEN=80)  :: Snk_Mode         ! Sink mode of tracer\n     REAL(fp)           :: Snk_Period       ! Sink period in days\n     REAL(fp)           :: Snk_Value        ! Sink value\n     CHARACTER(LEN=80)  :: Snk_Vert         ! Where to apply sink vertically?\n     LOGICAL            :: Src_Add          ! T- add values; F- replace values\n     CHARACTER(LEN=80)  :: Src_Horiz        ! Where to apply source horizontally\n     REAL(fp)           :: Src_LatMin       ! Minimum latitude for applying src\n     REAL(fp)           :: Src_LatMax       ! Maximum latitude for applying src\n     CHARACTER(LEN=80)  :: Src_Mode         ! Source mode of tracer\n     REAL(fp)           :: Src_PresMin      ! Minimum pressure for applying src\n     REAL(fp)           :: Src_PresMax      ! Maximum pressure for applying src\n     CHARACTER(LEN=80)  :: Src_Units        ! Source units\n     REAL(fp)           :: Src_Value        ! Source value in Src_Units\n     CHARACTER(LEN=80)  :: Src_Vert         ! Where to apply source vertically?\n\n     ! Microphysics parameters\n     LOGICAL            :: MP_SizeResAer    ! T=size-resolved aerosol (TOMAS)\n     LOGICAL            :: MP_SizeResNum    ! T=size-resolved aerosol number\n\n     ! Tagged mercury parameters\n     LOGICAL            :: Is_Hg0           ! Is a Hg0 species?\n     LOGICAL            :: Is_Hg2           ! Is a Hg2 species?\n     LOGICAL            :: Is_HgP           ! Is a HgP species?\n\n     ! KPP solver parameters\n     REAL(f8)           :: KPP_AbsTol       ! Absolute tolerance\n     REAL(f8)           :: KPP_RelTol       ! Relative tolerance\n\n  END TYPE Species\n!\n! !DEFINED PARAMETERS:\n!\n  !=========================================================================\n  ! Missing species concentration value if not in restart file and special\n  ! background value not defined\n  !=========================================================================\n  REAL(fp), PARAMETER, PUBLIC :: MISSING_VV  = 1.0e-20_fp ! Missing spc conc\n!\n! !REVISION HISTORY:\n!  28 Feb 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SpcData_Init\n!\n! !DESCRIPTION: Routine SpcData\\_Init initializes species database object.\n!  This is an array where each element is of type Species.  This object holds\n!  the metadata for each species (name, molecular weight, Henry's law\n!  constants, drydep info, wetdep info, etc.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SpcData_Init( Input_Opt, nSpecies, SpcData, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),       INTENT(IN)    :: Input_Opt    ! Input Options object\n    INTEGER,              INTENT(IN)    :: nSpecies     ! # of species\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(SpcPtr),         POINTER       :: SpcData(:)   ! Species database\n    INTEGER,              INTENT(INOUT) :: RC           ! Return code\n!\n! !REVISION HISTORY:\n!  20 Aug 2013 - C. Keller   - Adapted from gigc_state_chm_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! strings\n    CHARACTER(LEN=255) :: varId\n\n    !=====================================================================\n    ! SpcData_Init begins here!\n    !=====================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Check if already allocated\n    IF ( ASSOCIATED( SpcData ) ) THEN\n       CALL SpcData_Cleanup( SpcData )\n    ENDIF\n\n    ! Allocate the species database object\n    varId = \"State_Chm%SpcData\"\n    ALLOCATE( SpcData( nSpecies ), STAT=RC )\n    CALL GC_CheckVar( varId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize each entry in the species database object\n    DO N = 1, nSpecies\n\n       ! Allocate\n       WRITE( varId, 100 ) N\n 100   FORMAT( 'State_Chm%SpcData(', i6, ')%Info' )\n       ALLOCATE( SpcData(N)%Info, STAT=RC )\n       CALL GC_CheckVar( varId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! Set all fields to missing values\n       CALL Spc_Zero( SpcData(N)%Info )\n    ENDDO\n\n  END SUBROUTINE SpcData_Init\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SpcData_Cleanup\n!\n! !DESCRIPTION: Routine SpcData\\_Cleanup cleans up the passed species\n! collection object\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SpcData_Cleanup( SpcData )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(SpcPtr), POINTER :: SpcData(:)  ! Species database object\n!\n! !REVISION HISTORY:\n!  20 Aug 2013 - C. Keller   - Adapted from gigc_state_chm_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N, nSpecies\n\n    !=====================================================================\n    ! SpcData_Cleanup begins here!\n    !=====================================================================\n\n    ! Check if already allocated\n    IF ( ASSOCIATED( SpcData ) ) THEN\n\n       ! First get the size of the SpecDb object\n       nSpecies = SIZE( SpcData )\n\n       ! If there are more than 0 elements ...\n       IF ( nSpecies > 0 ) THEN\n\n          ! Nullify each entry in the species database\n          DO N = 1, nSpecies\n             IF( ASSOCIATED( SpcData(N)%Info ) ) THEN\n                DEALLOCATE( SpcData(N)%Info )\n             ENDIF\n          ENDDO\n\n          ! And free the object's memory\n          DEALLOCATE( SpcData )\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE SpcData_Cleanup\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Spc_Zero\n!\n! !DESCRIPTION: Sets all fields of an object of type Species\n!  to missing values.  Called at initialization.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Spc_Zero( Spc )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(Species), INTENT(INOUT) :: Spc\n!\n! !REVISION HISTORY:\n!  28 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Boolean/Logical\n    Spc%DD_AeroDryDep   = MISSING_BOOL\n    Spc%DD_DustDryDep   = MISSING_BOOL\n    Spc%Is_ActiveChem   = MISSING_BOOL\n    Spc%Is_Advected     = MISSING_BOOL\n    Spc%Is_Aerosol      = MISSING_BOOL\n    Spc%Is_DryAlt       = MISSING_BOOL\n    Spc%Is_DryDep       = MISSING_BOOL\n    Spc%Is_FixedChem    = MISSING_BOOL\n    Spc%Is_Gas          = MISSING_BOOL\n    Spc%Is_Hg0          = MISSING_BOOL\n    Spc%Is_Hg2          = MISSING_BOOL\n    Spc%Is_HgP          = MISSING_BOOL\n    Spc%Is_HygroGrowth  = MISSING_BOOL\n    Spc%Is_InRestart    = MISSING_BOOL\n    Spc%Is_Kpp          = MISSING_BOOL\n    Spc%Is_Omitted      = MISSING_BOOL\n    Spc%Is_Photolysis   = MISSING_BOOL\n    Spc%Is_RadioNuclide = MISSING_BOOL\n    Spc%Is_Tracer       = MISSING_BOOL\n    Spc%Is_WetDep       = MISSING_BOOL\n    Spc%Src_Add         = MISSING_BOOL\n    Spc%MP_SizeResAer   = MISSING_BOOL\n    Spc%MP_SizeResNum   = MISSING_BOOL\n    Spc%WD_CoarseAer    = MISSING_BOOL\n    Spc%WD_Is_H2SO4     = MISSING_BOOL\n    Spc%WD_Is_HNO3      = MISSING_BOOL\n    Spc%WD_Is_SO2       = MISSING_BOOL\n    Spc%WD_LiqAndGas    = MISSING_BOOL\n#ifdef JACOBIAN\n    Spc%Is_JacobianTracer = MISSING_BOOL\n#endif\n\n    ! Integers\n    Spc%AdvectId        = MISSING_INT\n    Spc%AerosolId       = MISSING_INT\n    Spc%DryAltId        = MISSING_INT\n    Spc%DryDepId        = MISSING_INT\n    Spc%GasSpcId        = MISSING_INT\n    Spc%HygGrthId       = MISSING_INT\n    Spc%KppFixId        = MISSING_INT\n    Spc%KppSpcId        = MISSING_INT\n    Spc%KppVarId        = MISSING_INT\n    Spc%ModelId         = MISSING_INT\n    Spc%OmittedId       = MISSING_INT\n    Spc%PhotolId        = MISSING_INT\n    Spc%RadNuclId       = MISSING_INT\n    Spc%TracerId        = MISSING_INT\n    Spc%WetDepId        = MISSING_INT\n\n    ! Reals (floating precision)\n    Spc%BackgroundVV    = MISSING\n    Spc%DD_DvzAerSnow   = MISSING\n    Spc%DD_DvzMinVal    = MISSING\n    Spc%DD_F0           = MISSING\n    Spc%DD_KOA          = MISSING\n    Spc%DD_Hstar        = MISSING\n    Spc%Density         = MISSING\n    Spc%MW_g            = MISSING\n    Spc%Radius          = MISSING\n    Spc%Snk_LatMin      = MISSING\n    Spc%Snk_LatMax      = MISSING\n    Spc%Snk_Period      = MISSING\n    Spc%Snk_Value       = MISSING\n    Spc%Src_LatMin      = MISSING\n    Spc%Src_LatMax      = MISSING\n    Spc%Src_PresMin     = MISSING\n    Spc%Src_PresMax     = MISSING\n    Spc%Src_Value       = MISSING\n    Spc%WD_AerScavEff   = MISSING\n    Spc%WD_ConvFacI2G   = MISSING\n    Spc%WD_KcScaleFac   = MISSING\n    Spc%WD_RainoutEff   = MISSING\n    Spc%WD_RetFactor    = MISSING\n\n    ! Reals (8-byte precision)\n    Spc%Henry_CR        = MISSING_DBLE\n    Spc%Henry_K0        = MISSING_DBLE\n    Spc%Henry_PKA       = MISSING_DBLE\n    Spc%KPP_AbsTol      = MISSING_DBLE\n    Spc%KPP_RelTol      = MISSING_DBLE\n\n    ! Strings\n    Spc%Formula         = MISSING_STR\n    Spc%FullName        = MISSING_STR\n    Spc%Name            = MISSING_STR\n    Spc%Units           = MISSING_STR\n    Spc%Snk_Horiz       = MISSING_STR\n    Spc%Snk_Mode        = MISSING_STR\n    Spc%Snk_Vert        = MISSING_STR\n    Spc%Src_Horiz       = MISSING_STR\n    Spc%Src_Mode        = MISSING_STR\n    Spc%Src_Units       = MISSING_STR\n    Spc%Src_Vert        = MISSING_STR\n\n   END SUBROUTINE Spc_Zero\n!BOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Spc_Print\n!\n! !DESCRIPTION: Routine Spc\\_Create prints the fields of the species object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Spc_Print( Input_Opt, ThisSpc, RC )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt    ! Input Options object\n    TYPE(Species),    POINTER       :: ThisSpc      ! Object w/ species info\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC           ! Return code\n!\n! !REMARKS:\n!  Optional fields are not printed out if they are not defined (i.e. if they\n!  have a \"missing data value\" of -999).\n!\n! !REVISION HISTORY:\n!  27 Jul 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !========================================================================\n    ! Spc_Create begins here!\n    !========================================================================\n    IF ( Input_Opt%amIRoot .and. ( .not. ThisSpc%Is_Omitted ) ) THEN\n\n       !---------------------------------------------------------------------\n       ! Print general species info\n       !---------------------------------------------------------------------\n       WRITE( 6, \"(a)\" )     REPEAT( \"=\", 79 )\n       WRITE( 6, 100 )       \"ModelId        \",  ThisSpc%ModelId\n       WRITE( 6, 110 )       \"Name           \",  TRIM( ThisSpc%Name     )\n       WRITE( 6, 110 )       \"FullName       \",  TRIM( ThisSpc%FullName )\n       WRITE( 6, 110 )       \"Formula        \",  TRIM( ThisSpc%Formula  )\n       WRITE( 6, 121 )       \"MW_g           \",  ThisSpc%MW_g\n       IF ( ThisSpc%Is_Gas ) THEN\n          WRITE( 6, \"(a)\" )  \"Gas or aerosol  : GAS\"\n       ELSE IF ( ThisSpc%Is_Aerosol ) THEN\n          WRITE( 6, \"(a)\" )  \"Gas or aerosol  : AEROSOL\"\n       ENDIF\n       IF ( ThisSpc%Is_RadioNuclide ) THEN\n          WRITE( 6, \"(a)\" )  \"Radionuclide?   : YES\"\n       ENDIF\n       IF ( ThisSpc%Is_Tracer ) THEN\n          WRITE( 6, \"(a)\" )  \"Transport tracer: YES\"\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Print Henry\"s Law info (only applicable to gas-phase species)\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Gas ) THEN\n          IF ( ThisSpc%Henry_K0 > ZERO_DBLE ) THEN\n             WRITE( 6, 120 ) \"Henry_K0       \", ThisSpc%Henry_K0\n          ENDIF\n\n          IF ( ThisSpc%Henry_CR > ZERO_DBLE ) THEN\n             WRITE( 6, 120 ) \"Henry_CR       \", ThisSpc%Henry_CR\n          ENDIF\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Print aerosol-specific properties\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Aerosol ) THEN\n          IF ( ThisSpc%Density > ZERO ) THEN\n             WRITE( 6, 121 ) \"Density        \", ThisSpc%Density\n          ENDIF\n\n          IF ( ThisSpc%Radius > ZERO ) THEN\n             WRITE( 6, 120 ) \"Radius         \", ThisSpc%Radius\n          ENDIF\n\n          IF ( ThisSpc%Is_HygroGrowth ) THEN\n             WRITE( 6, 130 ) \"Is_HygroGrowth \", ThisSpc%Is_HygroGrowth\n             WRITE( 6, 100 ) \"HygGrthId      \", ThisSpc%HygGrthId\n          ENDIF\n\n          ! Microphysics properties\n          IF ( ThisSpc%MP_SizeResAer ) THEN\n             WRITE( 6, 130 ) \"MP_SizeResAer  \", ThisSpc%MP_SizeResAer\n          ENDIF\n          IF ( ThisSpc%MP_SizeResNum ) THEN\n             WRITE( 6, 130 ) \"MP_SizeResNum  \", ThisSpc%MP_SizeResNum\n          ENDIF\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Is the species advected?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Advected ) THEN\n          WRITE( 6, 130 )    \"Is_Advected    \", ThisSpc%Is_Advected\n          WRITE( 6, 100 )    \"AdvectId       \", ThisSpc%AdvectId\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Is the species in the KPP mechanism and is it photolyzed?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Kpp ) THEN\n          WRITE( 6, 130 )    \"Is_Kpp         \", ThisSpc%Is_Kpp\n          WRITE( 6, 100 )    \"KppSpcId       \", ThisSpc%KppSpcId\n\n          IF ( ThisSpc%Is_ActiveChem ) THEN\n             WRITE( 6, 130 ) \"Is_ActiveChem  \", ThisSpc%Is_ActiveChem\n             WRITE( 6, 100 ) \"KppVarId       \", ThisSpc%KppVarId\n          ENDIF\n\n          IF ( ThisSpc%Is_FixedChem ) THEN\n             WRITE( 6, 130 ) \"Is_FixedChem   \", ThisSpc%Is_FixedChem\n             WRITE( 6, 100 ) \"KppFixId       \", ThisSpc%KppFixId\n          ENDIF\n\n          WRITE( 6, 120 )    \"KPP_AbsTol     \", ThisSpc%KPP_AbsTol\n          WRITE( 6, 120 )    \"KPP_RelTol     \", ThisSpc%KPP_RelTol\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Is the species photolyzed\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Photolysis ) THEN\n          WRITE( 6, 130 ) \"Is_Photolysis  \", ThisSpc%Is_Photolysis\n          WRITE( 6, 100 ) \"PhotolId       \", ThisSpc%PhotolId\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Is the species dry-deposited?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_DryDep ) THEN\n          WRITE( 6, 130 ) \"Is_DryDep      \", ThisSpc%Is_DryDep\n          WRITE( 6, 100 ) \"DryDepID       \", ThisSpc%DryDepId\n\n          IF ( ThisSpc%DD_AeroDryDep ) THEN\n             WRITE( 6, 130 ) \"DD_AeroDryDep  \", ThisSpc%DD_AeroDryDep\n          ENDIF\n\n          IF ( ThisSpc%DD_DustDryDep ) THEN\n             WRITE( 6, 130 ) \"DD_DustDryDep  \", ThisSpc%DD_DustDryDep\n          ENDIF\n\n          IF ( ThisSpc%DD_DvzAerSnow > ZERO ) THEN\n             WRITE( 6, 121 ) \"DD_DvzAerSnow  \", ThisSpc%DD_DvzAerSnow\n          ENDIF\n\n          IF ( SUM( ThisSpc%DD_DvzMinVal ) > ZERO ) THEN\n             WRITE( 6, 140 ) \"DD_DvzMinVal   \", ThisSpc%DD_DvzMinVal\n          ENDIF\n\n          IF ( ThisSpc%DD_F0 > ZERO ) THEN\n             WRITE( 6, 120 ) \"DD_F0          \", ThisSpc%DD_F0\n          ENDIF\n\n          IF ( ThisSpc%DD_KOA > ZERO ) THEN\n             WRITE( 6, 120 ) \"DD_KOA         \", ThisSpc%DD_KOA\n          ENDIF\n\n          IF ( ThisSpc%DD_Hstar > ZERO ) THEN\n             WRITE( 6, 120 ) \"DD_Hstar       \", ThisSpc%DD_Hstar\n          ENDIF\n\n          IF ( ThisSpc%Is_DryAlt ) THEN\n             WRITE( 6, 130 ) \"Is_DryAlt      \", ThisSpc%Is_DryAlt\n          ENDIF\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Is the species wet-deposited?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_WetDep ) THEN\n          WRITE( 6, 130 )    \"Is_WetDep      \", ThisSpc%Is_WetDep\n          WRITE( 6, 100 )    \"WetDepID       \", ThisSpc%WetDepId\n\n          IF ( ThisSpc%WD_LiqAndGas ) THEN\n             WRITE( 6, 130 ) \"WD_LiqAndGas   \", ThisSpc%WD_LiqAndGas\n             WRITE( 6, 120 ) \"WD_ConvFacI2G  \", ThisSpc%WD_ConvFacI2G\n          ENDIF\n\n          IF ( ThisSpc%WD_CoarseAer ) THEN\n             WRITE( 6, 130 ) \"WD_CoarseAer   \", ThisSpc%WD_CoarseAer\n          ENDIF\n\n          IF ( ThisSpc%WD_AerScavEff > ZERO ) THEN\n             WRITE( 6, 120 ) \"WD_AerScavEff  \", ThisSpc%WD_AerScavEff\n          ENDIF\n\n          IF ( SUM( ThisSpc%WD_KcScaleFac ) > ZERO ) THEN\n             WRITE( 6, 140 ) \"WD_KcScaleFac  \", ThisSpc%WD_KcScaleFac\n          ENDIF\n\n          IF ( SUM( ThisSpc%WD_RainoutEff ) > ZERO ) THEN\n             WRITE( 6, 140 ) \"WD_RainoutEff  \", ThisSpc%WD_RainoutEff\n          ENDIF\n\n          IF ( ThisSpc%WD_RetFactor > ZERO ) THEN\n             WRITE( 6, 121 ) \"WD_RetFactor   \", ThisSpc%WD_RetFactor\n          ENDIF\n\n          IF ( ThisSpc%WD_Is_H2SO4 ) THEN\n             WRITE( 6, 130 ) \"WD_Is_H2SO4    \", ThisSpc%WD_Is_H2SO4\n          ENDIF\n\n          IF ( ThisSpc%WD_Is_HNO3 ) THEN\n             WRITE( 6, 130 ) \"WD_Is_HNO3     \",  ThisSpc%WD_Is_HNO3\n          ENDIF\n\n          IF ( ThisSpc%WD_Is_SO2 ) THEN\n             WRITE( 6, 130 ) \"WD_Is_SO2      \",  ThisSpc%WD_Is_SO2\n          ENDIF\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Is the species a TransportTracer species?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Tracer ) THEN\n\n          WRITE( 6, 130 )    \"Src_Add        \",  ThisSpc%Src_Add\n          WRITE( 6, 110 )    \"Src_Horiz      \",  TRIM(ThisSpc%Src_Horiz)\n          IF ( TRIM(ThisSpc%Src_Horiz) == 'lat_zone' ) THEN\n             WRITE( 6, 121 ) \"Src_LatMin     \",  ThisSpc%Src_LatMin\n             WRITE( 6, 121 ) \"Src_LatMax     \",  ThisSpc%Src_LatMax\n          ENDIF\n          WRITE( 6, 110 )    \"Src_Mode       \",  TRIM(ThisSpc%Src_Mode)\n          WRITE( 6, 110 )    \"Src_Vert       \",  TRIM(ThisSpc%Src_Vert)\n          IF ( TRIM(ThisSpc%Src_Vert) == 'pressures' ) THEN\n             WRITE( 6, 121 ) \"Src_PresMin    \",  ThisSpc%Src_PresMin\n             WRITE( 6, 121 ) \"Src_PresMax    \",  ThisSpc%Src_PresMax\n          ENDIF\n          WRITE( 6, 110 )    \"Src_Units      \",  TRIM(ThisSpc%Src_Units)\n          WRITE( 6, 121 )    \"Src_Value      \",  ThisSpc%Src_Value\n          WRITE( 6, 110 )    \"Snk_Horiz      \",  TRIM(ThisSpc%Snk_Horiz)\n          IF ( TRIM(ThisSpc%Snk_Horiz) == 'lat_zone' ) THEN\n             WRITE( 6, 121 ) \"Snk_LatMin     \",  ThisSpc%Snk_LatMin\n             WRITE( 6, 121 ) \"Snk_LatMax     \",  ThisSpc%Snk_LatMax\n          ENDIF\n          WRITE( 6, 110 )    \"Snk_Mode       \",  TRIM(ThisSpc%Snk_Mode)\n          WRITE( 6, 121 )    \"Snk_Period     \",  ThisSpc%Snk_Period\n          WRITE( 6, 121 )    \"Snk_Value      \",  ThisSpc%Snk_Value\n          WRITE( 6, 110 )    \"Snk_Vert       \",  TRIM(ThisSpc%Snk_Vert)\n\n       ENDIF\n       \n#ifdef JACOBIAN\n       !--------------------------------------------------------------------\n       ! Is the species a Jacobian Tracer (for IMI)?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_JacobianTracer ) THEN\n          WRITE( 6, 130 )    \"Is_JacobianTracer \",  ThisSpc%Is_JacobianTracer\n       ENDIF\n#endif\n\n       !--------------------------------------------------------------------\n       ! Is the species a mercury species?\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%Is_Hg0 ) THEN\n          WRITE( 6, 130 )    \"Is_Hg0         \",  ThisSpc%Is_Hg0\n       ENDIF\n\n       IF ( ThisSpc%Is_Hg2 ) THEN\n          WRITE( 6, 130 )    \"Is_Hg2         \",  ThisSpc%Is_Hg2\n       ENDIF\n\n       IF ( ThisSpc%Is_HgP ) THEN\n          WRITE( 6, 130 )    \"Is_HgP         \",  ThisSpc%Is_HgP\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Print default background concentration\n       !--------------------------------------------------------------------\n       IF ( ThisSpc%BackgroundVV > ZERO ) THEN\n          WRITE( 6, 120 )    \"BackgroundVV   \", ThisSpc%BackgroundVV\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Format statements\n       !--------------------------------------------------------------------\n 100   FORMAT( a, \" : \", i8          )\n 110   FORMAT( a, \" : \", a           )\n 120   FORMAT( a, \" : \", es13.6      )\n 121   FORMAT( a, \" : \", f8.2        )\n 130   FORMAT( a, \" : \", L1          )\n 140   FORMAT( a, \" : \", 3(f8.2, 1x) )\n    ENDIF\n\n  END SUBROUTINE Spc_Print\n!EOC\nEND MODULE Species_Mod\n"
  },
  {
    "path": "Headers/state_chm_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: state_chm_mod.F90\n!\n! !DESCRIPTION: Module STATE\\_CHM\\_MOD contains the derived type\n!  used to define the Chemistry State object for GEOS-Chem.\n!\\\\\n!\\\\\n!  This module also contains the routines that allocate and deallocate memory\n!  to the Chemistry State object.  The chemistry state object is not defined\n!  in this module.  It must be be declared as variable in the top-level\n!  driver routine, and then passed to lower-level routines as an argument.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE State_Chm_Mod\n!\n! USES:\n!\n  USE AerMass_Container_Mod              ! Aerosol mass object          \n  USE Dictionary_M, ONLY : dictionary_t  ! Fortran hash table type\n  USE ErrCode_Mod                        ! Error handling\n  USE Phot_Container_Mod                 ! For photolysis state object\n  USE PhysConstants                      ! Physical constants\n  USE Precision_Mod                      ! GEOS-Chem precision types\n  USE Registry_Mod                       ! Registry module\n  USE Species_Mod                        ! For species database and conc objects\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Init_State_Chm\n  PUBLIC :: Cleanup_State_Chm\n  PUBLIC :: Get_Metadata_State_Chm\n  PUBLIC :: Ind_\n!\n! !PRIVATE MEMBER FUNCTIONS\n!\n  PRIVATE :: Init_and_Register\n  PRIVATE :: Init_Mapping_Vectors\n  PRIVATE :: Register_ChmField\n  PRIVATE :: Zero_State_Chm\n!\n! !PRIVATE DATA MEMBERS:\n!\n  TYPE(SpcPtr), PRIVATE, POINTER :: SpcDataLocal(:)  ! Local pointer to\n                                                     ! StateChm%SpcData for\n                                                     ! availability to IND_\n  TYPE(SpcIndCt)                 :: SpcCount\n\n  TYPE(dictionary_t), PRIVATE    :: SpcDictLocal     ! Private copy of the\n                                                     ! Fortran Hash table for\n                                                     ! availability to IND_\n\n  INTEGER, PRIVATE               :: nChmState = 0    ! # chemistry states,\n\n  !==========================================================================\n  ! Derived type for Chemistry State\n  !==========================================================================\n  TYPE, PUBLIC :: ChmState\n\n     !-----------------------------------------------------------------------\n     ! Count of each type of species\n     !-----------------------------------------------------------------------\n     INTEGER                    :: nSpecies             ! # species (all)\n     INTEGER                    :: nAdvect              ! # advected species\n     INTEGER                    :: nAeroSpc             ! # of Aerosol Species\n     INTEGER                    :: nAeroType            ! # of Aerosol Types\n     INTEGER                    :: nDryAlt              ! # dryalt species\n     INTEGER                    :: nDryDep              ! # drydep species\n     INTEGER                    :: nGasSpc              ! # gas phase species\n     INTEGER                    :: nHygGrth             ! # hygroscopic growth\n     INTEGER                    :: nKppVar              ! # KPP variable species\n     INTEGER                    :: nKppFix              ! # KPP fixed species\n     INTEGER                    :: nKppSpc              ! # KPP chem species\n     INTEGER                    :: nLoss                ! # of loss species\n     INTEGER                    :: nOmitted             ! # of omitted species\n     INTEGER                    :: nPhotol              ! # photolysis species\n     INTEGER                    :: nProd                ! # of prod species\n     INTEGER                    :: nRadNucl             ! # of radionuclides\n     INTEGER                    :: nTomasBins           ! # of bins for TOMAS\n     INTEGER                    :: nTracer              ! # of transport tracers\n     INTEGER                    :: nWetDep              ! # wetdep species\n\n     !-----------------------------------------------------------------------\n     ! Mapping vectors to subset types of species\n     !-----------------------------------------------------------------------\n     REAL(f8),          POINTER :: KPP_AbsTol (:      ) ! KPP absolute tolerance\n     REAL(f8),          POINTER :: KPP_RelTol (:      ) ! KPP relative tolerance\n     INTEGER,           POINTER :: Map_Advect (:      ) ! Advected species IDs\n     INTEGER,           POINTER :: Map_Aero   (:      ) ! Aerosol species IDs\n     INTEGER,           POINTER :: Map_All    (:      ) ! All species IDs\n     INTEGER,           POINTER :: Map_DryAlt (:      ) ! Dryalt species IDs\n     INTEGER,           POINTER :: Map_DryDep (:      ) ! Drydep species IDs\n     INTEGER,           POINTER :: Map_GasSpc (:      ) ! Gas species IDs\n     INTEGER,           POINTER :: Map_HygGrth(:      ) ! HygGrth species IDs\n     INTEGER,           POINTER :: Map_KppVar (:      ) ! Kpp variable spc IDs\n     INTEGER,           POINTER :: Map_KppFix (:      ) ! KPP fixed species IDs\n     INTEGER,           POINTER :: Map_KppSpc (:      ) ! KPP chem species IDs\n     INTEGER,           POINTER :: Map_Loss   (:      ) ! Loss diag species\n     CHARACTER(LEN=36), POINTER :: Name_Loss  (:      ) !  ID's and names\n     INTEGER,           POINTER :: Map_Photol (:      ) ! Photolysis species IDs\n     INTEGER,           POINTER :: Map_Prod   (:      ) ! Prod diag species\n     CHARACTER(LEN=36), POINTER :: Name_Prod  (:      ) !  ID and names\n     INTEGER,           POINTER :: Map_RadNucl(:      ) ! Radionuclide IDs\n     INTEGER,           POINTER :: Map_Tracer (:      ) ! Transport tracer IDs\n     INTEGER,           POINTER :: Map_WetDep (:      ) ! Wetdep species IDs\n     INTEGER,           POINTER :: Map_WL     (:      ) ! Wavelength bins in fjx\n\n     !-----------------------------------------------------------------------\n     ! Physical properties & indices for each species\n     !-----------------------------------------------------------------------\n     TYPE(SpcPtr),      POINTER :: SpcData    (:      ) ! GC Species database\n     TYPE(dictionary_t)         :: SpcDict              ! Species dictionary\n\n     !-----------------------------------------------------------------------\n     ! Chemical species\n     !-----------------------------------------------------------------------\n     TYPE(SpcConc),     POINTER :: Species (:      )    ! Vector for species\n                                                        ! concentrations\n                                                        !  [kg/kg dry air]\n#ifdef ADJOINT\n     REAL(fp),          POINTER :: SpeciesAdj (:,:,:,:) ! Species adjoint variables\n     REAL(fp),          POINTER :: CostFuncMask(:,:,:)  ! cost function volume mask\n#endif\n\n     !----------------------------------------------------------------------\n     ! Boundary conditions\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: BoundaryCond(:,:,:,:)! Boundary conditions\n                                                        !  [kg/kg dry air]\n\n     !-----------------------------------------------------------------------\n     ! RRTMG state variables\n     !-----------------------------------------------------------------------\n     INTEGER                    :: RRTMG_iSeed\n     INTEGER                    :: RRTMG_iCld\n\n     !-----------------------------------------------------------------------\n     ! Aerosol quantities\n     !-----------------------------------------------------------------------\n     TYPE(AerMassContainer), POINTER :: AerMass ! Aerosol mass data object\n     REAL(fp), POINTER :: AeroArea   (:,:,:,:)  ! Aerosol Area [cm2/cm3]\n     REAL(fp), POINTER :: AeroRadi   (:,:,:,:)  ! Aerosol Radius [cm]\n     REAL(fp), POINTER :: WetAeroArea(:,:,:,:)  ! Aerosol Area [cm2/cm3]\n     REAL(fp), POINTER :: WetAeroRadi(:,:,:,:)  ! Aerosol Radius [cm]\n     REAL(fp), POINTER :: AeroH2O    (:,:,:,:)  ! Aerosol water [cm3/cm3]\n     REAL(fp), POINTER :: GammaN2O5  (:,:,:,:)  ! N2O5 aerosol uptake [unitless]\n     REAL(fp), POINTER :: SSAlk      (:,:,:,:)  ! Sea-salt alkalinity[-]\n     REAL(fp), POINTER :: H2O2AfterChem(:,:,:)  ! H2O2, SO2 [v/v]\n     REAL(fp), POINTER :: SO2AfterChem (:,:,:)  !  after sulfate chem\n     REAL(fp), POINTER :: OMOC           (:,:)  ! OM:OC Ratio [unitless]\n     REAL(fp), POINTER :: OMOC_POA       (:,:)  ! OM:OC Ratio (OCFPOA) [unitless]\n     REAL(fp), POINTER :: OMOC_OPOA      (:,:)  ! OM:OC Ratio (OCFOPOA) [unitless]\n     REAL(fp), POINTER :: ACLArea      (:,:,:)  ! Fine Cl- Area [cm2/cm3]\n     REAL(fp), POINTER :: ACLRadi      (:,:,:)  ! Fine Cl- Radius [cm]\n     REAL(fp), POINTER :: QLxpHCloud   (:,:,:)  !\n     REAL(fp), POINTER :: SoilDust   (:,:,:,:)  ! Soil dust [kg/m3]\n     REAL(fp), POINTER :: ORVCsesq     (:,:,:)  ! Sesquiterpenes mass [kg/box]\n\n     !-----------------------------------------------------------------------\n     ! Fields for nitrogen deposition\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: DryDepNitrogen (:,:) ! Dry deposited N\n     REAL(fp),          POINTER :: WetDepNitrogen (:,:) ! Wet deposited N\n\n     !-----------------------------------------------------------------------\n     ! Cloud quantities\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: pHCloud    (:,:,:  ) ! Cloud pH [-]\n     REAL(fp),          POINTER :: isCloud    (:,:,:  ) ! Cloud presence [-]\n\n     !-----------------------------------------------------------------------\n     ! Fields for KPP solver\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: KPPHvalue  (:,:,:  ) ! H-value for Rosenbrock\n                                                        !  solver\n     !-----------------------------------------------------------------------\n     ! Fields for UCX mechanism\n     !-----------------------------------------------------------------------\n     REAL(f4),          POINTER :: STATE_PSC  (:,:,:  ) ! PSC type (see Kirner\n                                                        !  et al. 2011, GMD)\n     REAL(fp),          POINTER :: KHETI_SLA  (:,:,:,:) ! Strat. liquid aerosol\n                                                        !  reaction cofactors\n\n     !-----------------------------------------------------------------------\n     ! For isoprene SOA via ISORROPIA/HETP\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: IsorropAeropH  (:,:,:,:) ! ISORROPIA aero pH\n     REAL(fp),          POINTER :: IsorropHplus   (:,:,:,:) ! H+ conc [M]\n     REAL(fp),          POINTER :: IsorropAeroH2O (:,:,:,:) ! ISORROPIA aero H2O\n     REAL(fp),          POINTER :: IsorropSulfate (:,:,:  ) ! Sulfate conc [M]\n     REAL(fp),          POINTER :: IsorropNitrate (:,:,:,:) ! Nitrate conc [M]\n     REAL(fp),          POINTER :: IsorropChloride(:,:,:,:) ! Chloride conc [M]\n     REAL(fp),          POINTER :: IsorropBisulfate(:,:,:  )! Bisulfate conc [M]\n\n     !-----------------------------------------------------------------------\n     ! For the tagged Hg simulation\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: OceanHg0(:,:)        ! Hg(0)  ocean mass [kg]\n     REAL(fp),          POINTER :: OceanHg2(:,:)        ! Hg(II) ocean mass [kg]\n     REAL(fp),          POINTER :: OceanHgP(:,:)        ! HgP    ocean mass [kg]\n     REAL(fp),          POINTER :: SnowHgOcean(:,:)     ! Reducible Hg snowpack\n                                                        !  on ocean [kg]\n     REAL(fp),          POINTER :: SnowHgLand(:,:)      ! Reducible Hg snowpack\n                                                        !  on land [kg]\n     REAL(fp),          POINTER :: SnowHgOceanStored(:,:)   ! Non-reducible Hg\n                                                            !  snowpack on ocean\n     REAL(fp),          POINTER :: SnowHgLandStored(:,:)    ! Non-reducible Hg\n                                                            !  snowpack on land\n\n     !----------------------------------------------------------------------\n     ! For HOBr + S(IV) heterogeneous chemistry\n     !----------------------------------------------------------------------\n     REAL(fp),          POINTER :: HSO3_AQ    (:,:,:  ) ! Cloud bisulfite/SO2 ratio\n     REAL(fp),          POINTER :: SO3_AQ     (:,:,:  ) ! Cloud sulfite/SO2 ratio\n     REAL(fp),          POINTER :: fupdateHOBr(:,:,:  ) ! Correction factor for\n                                                        ! HOBr removal by SO2\n                                                        ! [unitless]\n     REAL(fp),          POINTER :: fupdateHOCl(:,:,:  ) ! Correction factor for\n                                                        ! HOCl removal by SO2\n                                                        ! [unitless]\n\n     !-----------------------------------------------------------------------\n     ! Fields for photolysis\n     !-----------------------------------------------------------------------\n     TYPE(PhotContainer), POINTER :: phot               ! Photolysis/optics container\n\n     !-----------------------------------------------------------------------\n     ! Fields for dry deposition\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: Iodide       (:,:  ) ! Ocn surf iodide [nM]\n     REAL(fp),          POINTER :: Salinity     (:,:  ) ! Ocn surf salinity [PSU]\n     REAL(fp),          POINTER :: DryDepFreq (:,:,:  ) ! Drydep freq [s-1]\n     REAL(f8),          POINTER :: DryDepVel  (:,:,:  ) ! Dry deposition velocities\n                                                        ! [m/s] - use REAL8 in drydep\n#if defined( MODEL_GEOS )\n     REAL(fp),          POINTER :: DryDepRa2m (:,:    ) ! 2m  aerodynamic resistance\n     REAL(fp),          POINTER :: DryDepRa10m(:,:    ) ! 10m aerodynamic resistance\n#endif\n     REAL(fp),          POINTER :: JOH        (:,:    ) ! OH J-value\n     REAL(fp),          POINTER :: JNO2       (:,:    ) ! NO2 J-value\n\n     !-----------------------------------------------------------------------\n     ! Fields for non-local PBL mixing\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: SurfaceFlux(:,:,:  )\n\n     !-----------------------------------------------------------------------\n     ! Fields for Linoz stratospheric ozone algorithm\n     !----------------------------------------------------------------------\n     REAL(fp),          POINTER :: TLSTT      (:,:,:,:) ! TLSTT (I,J,L,LINOZ_NFIELDS)\n\n     !------------------------------------------------------------------------\n     ! Fields for Gan Luo et al Wetdep scheme (GMD-12-3439-2019)\n     !----------------------------------------------------------------------\n     REAL(fp),          POINTER :: KRATE      (:,:,:  )\n     REAL(fp),          POINTER :: QQ3D       (:,:,:  )\n     REAL(fp),          POINTER :: pHRain     (:,:,:  ) ! Rain pH [-]\n     REAL(fp),          POINTER :: QQpHRain   (:,:,:  ) ! Rain pH*QQ3D [-]\n     REAL(fp),          POINTER :: QQRain     (:,:,:  ) ! Rain QQ3D [-]\n\n     !-----------------------------------------------------------------------\n     ! Fields for setting mean surface CH4 from HEMCO\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: SFC_CH4    (:,:    )\n\n     !-----------------------------------------------------------------------\n     ! Fields for TOMS overhead ozone column data\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: TO3_DAILY  (:,:    ) ! Daily overhead ozone\n     REAL(fp),          POINTER :: TOMS1      (:,:    )\n     REAL(fp),          POINTER :: TOMS2      (:,:    )\n\n     !-----------------------------------------------------------------------\n     ! Fields for UCX (moved from module)\n     ! Many of these fields are not sized NX x NY, and thus cannot be allocated\n     ! by Init_and_Register. They will be handled by Init_UCX as appropriate,\n     ! and only stored in State_Chm so they can be separated per chemistry state.\n     ! (hplin, 1/5/23)\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: UCX_REGRID (:,:    )\n     REAL(fp),          POINTER :: UCX_PLEVS  (:      ) ! Pressure levels of 2D data (hPa)\n     REAL(fp),          POINTER :: UCX_LATS   (:      ) ! Latitude edges of 2D data (deg)\n     REAL(fp),          POINTER :: RAD_AER    (:,:,:,:) ! Strat. aerosol radius (cm)\n     REAL(fp),          POINTER :: KG_AER     (:,:,:,:) ! Aerosol mass (kg/box)\n     REAL(fp),          POINTER :: SAD_AER    (:,:,:,:) ! Aerosol surface area density (cm2/cm3)\n     REAL(fp),          POINTER :: NDENS_AER  (:,:,:,:) ! Aerosol number density (#/m3)\n     REAL(fp),          POINTER :: RHO_AER    (:,:,:,:) ! Aerosol mass density (kg/m3 aerosol)\n     REAL(fp),          POINTER :: AERFRAC    (:,:,:,:) ! Mass fraction of species in liquid aerosols\n     INTEGER,           POINTER :: AERFRACIND (:      ) ! Indices of liquid aerosol species\n     REAL(fp),          POINTER :: NOX_O      (:,:,:,:) ! Monthly mean noontime O3P/O1D for NOx calcs\n     REAL(fp),          POINTER :: NOX_J      (:,:,:,:) ! Monthly mean noontime J-rates for NOx calcs\n     REAL(fp),          POINTER :: SO4_TOPPHOT(:,:    ) ! Photolysis rate at the top of the chemgrid (1/s)\n\n     !=================================================================\n     ! Variables to use NOx coefficients in ESMF / grid-independent\n     ! envionment. The NOx coefficients are climatological 2D\n     ! (lat/lev/12 months) data that are currently available for\n     ! horizontal (latitude) resolutions of 2 and 4 degrees. For other\n     ! resolutions, the horizontal data becomes mapped onto the\n     ! simulation grid (see GET_JJNOX).\n     ! Similar to the surface mixing ratio boundary conditions, we now\n     ! read all the NOx coefficients during initialization to avoid\n     ! additional I/O calls during run time (ckeller, 05/12/2014).\n     !=================================================================\n     REAL(fp),          POINTER :: NOXCOEFF   (:,:,:,:)\n     REAL(fp),          POINTER :: NOXLAT     (:      )\n     INTEGER                    :: JJNOXCOEFF\n\n     !-----------------------------------------------------------------------\n     ! Switches to enable SO2 cloud chemistry and seasalt chemistry in\n     ! sulfate_mod (TRUE) or in the KPP mechanism (FALSE).\n     !-----------------------------------------------------------------------\n     LOGICAL                    :: Do_SulfateMod_Cld\n     LOGICAL                    :: Do_SulfateMod_SeaSalt\n\n#if defined(MODEL_CESM)\n     !-----------------------------------------------------------------------\n     ! Fields for CESM interface to GEOS-Chem\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: H2SO4_PRDR (:,:,:  ) ! H2SO4 prod rate [mol/mol]\n#endif\n\n     !-----------------------------------------------------------------------\n     ! Fields for CH4 in the carbon simulation\n     !-----------------------------------------------------------------------\n     LOGICAL                    :: IsCH4BCPerturbed     ! Is CH4 BC perturbed?\n\n#ifdef APM\n     !-----------------------------------------------------------------------\n     ! Fields for APM aerosol microphysics\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: PSO4_SO2APM2(:,:,: )\n#endif\n\n     !-----------------------------------------------------------------------\n     ! Fields for RRTMG\n     !-----------------------------------------------------------------------\n     REAL(fp),          POINTER :: TStrat_Adj (:,:,:  ) ! Accumulated strat adjustment\n\n     !-----------------------------------------------------------------------\n     ! Registry of variables contained within State_Chm\n     !-----------------------------------------------------------------------\n     CHARACTER(LEN=4)           :: State     = 'CHEM'   ! Name of this state\n     TYPE(MetaRegItem), POINTER :: Registry  => NULL()  ! Registry object\n     TYPE(dictionary_t)         :: RegDict              ! Registry lookup table\n\n     !-----------------------------------------------------------------------\n     ! GEOS specific fields \n     !-----------------------------------------------------------------------\n#if defined( MODEL_GEOS )\n     ! CO mesosphere boundary\n     INTEGER            :: COmesosphere \n     CHARACTER(LEN=255) :: impCOmeso\n     ! CO2 photolysis\n     INTEGER            :: CO2fromGOCART\n     CHARACTER(LEN=255) :: impCO2name\n     INTEGER            :: numphoto\n     INTEGER            :: nxdo\n     INTEGER            :: nlam\n     INTEGER            :: nsza\n     INTEGER            :: numo3\n     INTEGER            :: nts\n     INTEGER            :: aqsize\n\n     REAL, POINTER      :: sdat(:,:,:,:)\n     REAL, POINTER      :: o2jdat(:,:,:)\n     REAL, POINTER      :: sza_tab(:)\n     REAL, POINTER      :: o3_tab(:,:)\n     REAL, POINTER      :: xtab(:,:,:)\n     REAL, POINTER      :: CH2O_aq(:)\n     REAL, POINTER      :: rlam(:)\n#endif\n\n  END TYPE ChmState\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  19 Oct 2012 - R. Yantosca - Initial version, based on \"gc_type2_mod.F90\"\n!  See https://github.com/geoschem/geos-chem for complete history\n!------------------------------------------------------------------------------\n!BOC\n!\n! !MODULE INTERFACES:\n!\n  INTERFACE Init_and_Register\n     MODULE PROCEDURE Init_and_Register_R4_2D\n     MODULE PROCEDURE Init_and_Register_R4_3D\n     MODULE PROCEDURE Init_and_Register_R4_4D\n     MODULE PROCEDURE Init_and_Register_R8_2D\n     MODULE PROCEDURE Init_and_Register_R8_3D\n     MODULE PROCEDURE Init_and_Register_R8_4D\n  END INTERFACE Init_and_Register\n\n  INTERFACE Register_ChmField\n     MODULE PROCEDURE Register_ChmField_R4_2D\n     MODULE PROCEDURE Register_ChmField_R4_3D\n     MODULE PROCEDURE Register_ChmField_R4_4D\n     MODULE PROCEDURE Register_ChmField_R8_2D\n     MODULE PROCEDURE Register_ChmField_R8_3D\n     MODULE PROCEDURE Register_ChmField_R8_4D\n  END INTERFACE Register_ChmField\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Zero_State_Chm\n!\n! !DESCRIPTION: Nullifies and/or zeroes all fields of State\\_Chm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Zero_State_Chm( State_Chm, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !========================================================================\n    ! Assume success\n    !========================================================================\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Initialize or nullify each member of State_Chm\n    ! This will prevent potential deallocation errors\n    !========================================================================\n\n    ! Counters\n    State_Chm%nAdvect           =  0\n    State_Chm%nAeroSpc          =  0\n    State_Chm%nAeroType         =  0\n    State_Chm%nDryAlt           =  0\n    State_Chm%nDryDep           =  0\n    State_Chm%nGasSpc           =  0\n    State_Chm%nHygGrth          =  0\n    State_Chm%nKppVar           =  0\n    State_Chm%nKppFix           =  0\n    State_Chm%nKppSpc           =  0\n    State_Chm%nLoss             =  0\n    State_Chm%nPhotol           =  0\n    State_Chm%nProd             =  0\n    State_Chm%nOmitted          =  0\n    State_Chm%nSpecies          =  0\n    State_Chm%nWetDep           =  0\n\n    ! Mapping vectors\n    State_Chm%Map_Advect        => NULL()\n    State_Chm%Map_Aero          => NULL()\n    State_Chm%Map_All           => NULL()\n    State_Chm%Map_DryAlt        => NULL()\n    State_Chm%Map_DryDep        => NULL()\n    State_Chm%Map_GasSpc        => NULL()\n    State_Chm%Map_HygGrth       => NULL()\n    State_Chm%Map_KppVar        => NULL()\n    State_Chm%Map_KppFix        => NULL()\n    State_Chm%Map_KppSpc        => NULL()\n    State_Chm%Map_Loss          => NULL()\n    State_Chm%Name_Loss         => NULL()\n    State_Chm%Map_Photol        => NULL()\n    State_Chm%Map_Prod          => NULL()\n    State_Chm%Name_Prod         => NULL()\n    State_Chm%Map_RadNucl       => NULL()\n    State_Chm%Map_Tracer        => NULL()\n    State_Chm%Map_WetDep        => NULL()\n    State_Chm%Map_WL            => NULL()\n\n    ! Species-based quantities\n    State_Chm%SpcData           => NULL()\n    State_Chm%Species           => NULL()\n    State_Chm%BoundaryCond      => NULL()\n\n#ifdef ADJOINT\n    ! Chemical species adjoint variables\n    State_Chm%SpeciesAdj    => NULL()\n    State_Chm%CostFuncMask  => NULL()\n#endif\n\n    ! Photolysis state\n    State_Chm%Phot              => NULL()\n\n    ! RRTMG state\n    State_Chm%RRTMG_iSeed       = 0\n    State_Chm%RRTMG_iCld        = 0\n\n    ! Aerosol and chemistry quantities\n    State_Chm%AerMass           => NULL()\n    State_Chm%AeroArea          => NULL()\n    State_Chm%AeroRadi          => NULL()\n    State_Chm%WetAeroArea       => NULL()\n    State_Chm%WetAeroRadi       => NULL()\n    State_Chm%AeroH2O           => NULL()\n    State_Chm%GammaN2O5         => NULL()\n    State_Chm%SSAlk             => NULL()\n    State_Chm%OMOC              => NULL()\n    State_Chm%OMOC_POA          => NULL()\n    State_Chm%OMOC_OPOA         => NULL()\n    State_Chm%DryDepNitrogen    => NULL()\n    State_Chm%WetDepNitrogen    => NULL()\n    State_Chm%pHCloud           => NULL()\n    State_Chm%isCloud           => NULL()\n    State_Chm%QLxpHCloud        => NULL()\n    State_Chm%ORVCsesq          => NULL()\n    State_Chm%KPPHvalue         => NULL()\n    State_Chm%STATE_PSC         => NULL()\n    State_Chm%KHETI_SLA         => NULL()\n    State_Chm%ACLArea           => NULL()\n    State_Chm%ACLRadi           => NULL()\n    State_Chm%SoilDust          => NULL()\n    State_Chm%HSO3_AQ           => NULL()\n    State_Chm%SO3_AQ            => NULL()\n    State_Chm%fupdateHOBr       => NULL()\n    State_Chm%fupdateHOCl       => NULL()\n    State_Chm%TLSTT             => NULL()\n    State_Chm%TO3_DAILY         => NULL()\n    State_Chm%TOMS1             => NULL()\n    State_Chm%TOMS2             => NULL()\n    State_Chm%SFC_CH4           => NULL()\n\n    State_Chm%UCX_REGRID        => NULL()\n    State_Chm%UCX_PLEVS         => NULL()\n    State_Chm%UCX_LATS          => NULL()\n    State_Chm%RAD_AER           => NULL()\n    State_Chm%KG_AER            => NULL()\n    State_Chm%SAD_AER           => NULL()\n    State_Chm%NDENS_AER         => NULL()\n    State_Chm%RHO_AER           => NULL()\n    State_Chm%AERFRAC           => NULL()\n    State_Chm%AERFRACIND        => NULL()\n    State_Chm%NOX_O             => NULL()\n    State_Chm%NOX_J             => NULL()\n    State_Chm%NOXCOEFF          => NULL()\n    State_Chm%NOXLAT            => NULL()\n\n    ! Emissions and drydep quantities\n    State_Chm%Iodide            => NULL()\n    State_Chm%Salinity          => NULL()\n    State_Chm%DryDepFreq        => NULL()\n    State_Chm%DryDepVel         => NULL()\n#ifdef MODEL_GEOS\n    State_Chm%DryDepRa2m        => NULL()\n    State_Chm%DryDepRa10m       => NULL()\n#endif\n    State_Chm%JOH               => NULL()\n    State_Chm%JNO2              => NULL()\n\n    ! Non-local PBL mixing quantities\n    State_Chm%SurfaceFlux       => NULL()\n\n    ! Wetdep quantities\n    State_Chm%H2O2AfterChem     => NULL()\n    State_Chm%SO2AfterChem      => NULL()\n    State_Chm%QQ3D              => NULL()\n    State_Chm%KRATE             => NULL()\n    State_Chm%QQ3D              => NULL()\n    State_Chm%pHRain            => NULL()\n    State_Chm%QQpHRain          => NULL()\n    State_Chm%QQRain            => NULL()\n\n    ! Isoprene SOA\n    State_Chm%IsorropAeropH     => NULL()\n    State_Chm%IsorropHplus      => NULL()\n    State_Chm%IsorropAeroH2O    => NULL()\n    State_Chm%IsorropSulfate    => NULL()\n    State_Chm%IsorropNitrate    => NULL()\n    State_Chm%IsorropChloride   => NULL()\n    State_Chm%IsorropBisulfate  => NULL()\n\n    ! Hg simulation quantities\n    State_Chm%OceanHg0          => NULL()\n    State_Chm%OceanHg2          => NULL()\n    State_Chm%OceanHgP          => NULL()\n    State_Chm%SnowHgOcean       => NULL()\n    State_Chm%SnowHgLand        => NULL()\n    State_Chm%SnowHgOceanStored => NULL()\n    State_Chm%SnowHgLandStored  => NULL()\n\n    ! RRTMG quantities\n    State_Chm%TStrat_Adj        => NULL()\n\n    ! Flags to toggle sulfate-mod computations or KPP computations\n    ! TRUE  = use sulfate_mod\n    ! FALSE = use KPP computations\n    State_Chm%Do_SulfateMod_Cld     = .FALSE.\n    State_Chm%Do_SulfateMod_SeaSalt = .FALSE.\n\n   ! Flag if CH4 BC has been perturbed or not\n    State_Chm%IsCH4BCPerturbed  = .FALSE.\n\n#if defined( MODEL_GEOS )\n    State_Chm%COmesosphere      = .FALSE.\n    State_Chm%impCOmeso         = \"unknown\" \n    State_Chm%CO2fromGOCART     = .FALSE.\n    State_Chm%impCO2name        = \"unknown\" \n    State_Chm%numphoto          = 0\n    State_Chm%nxdo              = 0\n    State_Chm%nlam              = 0\n    State_Chm%nsza              = 0\n    State_Chm%numo3             = 0\n    State_Chm%nts               = 0\n    State_Chm%aqsize            = 0\n    State_Chm%sdat              => NULL()\n    State_Chm%o2jdat            => NULL()\n    State_Chm%sza_tab           => NULL()\n    State_Chm%o3_tab            => NULL()\n    State_Chm%xtab              => NULL()\n    State_Chm%CH2O_aq           => NULL()\n    State_Chm%rlam              => NULL()\n#endif\n#ifdef MODEL_CESM\n    ! Add quantities for coupling to CESM\n    State_Chm%H2SO4_PRDR        => NULL()\n#endif\n#ifdef APM\n    ! Add fields for APM microphysics\n    State_Chm%PSO4_SO2APM2      => NULL()\n#endif\n\n    ! KPP integrator quantities\n    State_Chm%KPP_AbsTol        => NULL()\n    State_Chm%KPP_RelTol        => NULL()\n\n  END SUBROUTINE Zero_State_Chm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_State_Chm\n!\n! !DESCRIPTION: Routine INIT\\_STATE\\_CHM allocates and initializes the\n!  pointer fields of the chemistry state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_State_Chm( Input_Opt,       State_Chm, State_Grid,         &\n                             TaggedDiag_List, RC                            )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE CharPak_Mod,          ONLY : To_UpperCase\n    USE CMN_Size_Mod,         ONLY : NAER\n    USE CMN_Size_Mod,         ONLY : NDUST\n    USE GcKpp_Parameters,     ONLY : NSPEC\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Species_Database_Mod, ONLY : Init_Species_Database\n    USE State_Grid_Mod,       ONLY : GrdState\n    USE TaggedDiagList_Mod,   ONLY : TaggedDgnList\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(GrdState),      INTENT(IN)    :: State_Grid      ! Grid State object\n    TYPE(TaggedDgnList), INTENT(IN)    :: TaggedDiag_List ! Tagged Diag List\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt       ! Input Options\n    TYPE(ChmState),      INTENT(INOUT) :: State_Chm       ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC              ! Return code\n!\n! !REMARKS:\n!  In the near future we will put some error trapping on the allocations\n!  so that we can stop the simulation if the allocations cannot be made.\n!\n! !REVISION HISTORY:\n!  19 Oct 2012 - R. Yantosca - Renamed from gc_type2_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                 :: C,          N\n    INTEGER                 :: nKHLSA,     nAerosol,   nMatches\n\n    ! Strings\n    CHARACTER(LEN=255)      :: errMsg_ir,  errMsg\n    CHARACTER(LEN=255)      :: chmId,      thisLoc\n\n    ! String arrays\n    CHARACTER(LEN=31)       :: fieldId(14)\n\n    ! Objects\n    TYPE(Species),  POINTER :: ThisSpc\n    INTEGER,        POINTER :: CheckIds(:)\n    REAL(fp),       POINTER :: Ptr2data(:,:,:)\n\n    !========================================================================\n    ! Init_State_Chm begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         =  GC_SUCCESS\n    nAerosol   =  NDUST + NAER\n    Ptr2data   => NULL()\n    ThisSpc    => NULL()\n    errMsg     =  ''\n    errMsg_ir  =  'Error encountered in \"Init_and_Register\", chmId = '\n    thisLoc    =  &\n         ' -> at Init_State_Chm (in module Headers/state_chm_mod.F90)'\n\n    ! Nullify or zero all State_Chm variables\n    CALL Zero_State_Chm( State_Chm, RC )\n\n    ! Count the # of chemistry states we have initialized, so SpcData(Local)\n    ! is not deallocated until the last ChmState is cleaned up.\n    ! This avoids dangling pointers with detrimental effects. (hplin, 8/3/18)\n    nChmState = nChmState + 1\n\n    ! Nullify SpcDataLocal upon the first allocation of the Chemistry\n    ! State object.  This will avoid undefined pointer errors.\n    IF ( nChmState == 1 ) THEN\n       SpcDataLocal => NULL()\n    ENDIF\n\n    !========================================================================\n    ! Do sulfur sea-salt and in-cloud chemistry as part of the KPP-generated\n    ! chemical mechanism for all full-chemistry simulations.  For aerosol-\n    ! only simulations, do the sulfur chemistry rxns in sulfate_mod.\n    !========================================================================\n!    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n!       State_Chm%Do_SulfateMod_Seasalt = .FALSE.\n!       State_Chm%Do_SulfateMod_Cld     = .FALSE.\n!    ENDIF\n\n    !========================================================================\n    ! Populate the species database object field\n    ! (assumes Input_Opt has already been initialized)\n    !========================================================================\n    IF ( ASSOCIATED( SpcDataLocal ) ) THEN\n\n       ! If the species database has already been initialized on this core,\n       ! State_Chm%SpcDataLocal in already contains a copy of the species\n       ! metadata.  It can be directly associated to this new chemistry state.\n       ! (assumes one core will run one copy of G-C with the same species DB)\n       State_Chm%SpcData => SpcDataLocal\n\n    ELSE\n\n       ! Otherwise, initialize the species database by reading the YAML file.\n       CALL Init_Species_Database( Input_Opt = Input_Opt,                    &\n                                   SpcData   = State_Chm%SpcData,            &\n                                   SpcCount  = SpcCount,                     &\n                                   RC        = RC                           )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in routine \"Init_Species_Database\"!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Point to a private module copy of the species database\n       ! which will be used by the Ind_ indexing function\n       SpcDataLocal => State_Chm%SpcData\n\n    ENDIF\n\n    !========================================================================\n    ! Before proceeding, make sure none of the species has a blank name,\n    ! because this has the potential to halt the run inadvertently.\n    !========================================================================\n\n    ! Total number of \"real\" species (excluding \"dummy\" placeholder species)\n    State_Chm%nSpecies =  SpcCount%nRealSpc\n\n    ! Exit if any species name is blank\n    DO N = 1, State_Chm%nSpecies\n       IF ( LEN_TRIM(  State_Chm%SpcData(N)%Info%Name ) == 0 ) THEN\n          WRITE( ErrMsg, '(\"Species number \", i6, \" has a blank name!\")' ) N\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDDO\n\n    !========================================================================\n    ! Allocate and initialize the photolysis object\n    !========================================================================\n    ALLOCATE( State_Chm%Phot, STAT=RC )\n    CALL Init_Phot_Container( Input_Opt, State_Grid, State_Chm%Phot, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Init_Phot_Container\" routine!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Determine the number of advected, drydep, wetdep, and total species\n    !========================================================================\n\n    ! Get the number of advected, dry-deposited, KPP chemical species,\n    ! and and wet-deposited species.  Also return the # of Hg0, Hg2, and\n    ! HgP species (these are zero unless the Hg simulation is used).\n    State_Chm%nAdvect  = SpcCount%nAdvect\n    State_Chm%nAeroSpc = SpcCount%nAeroSpc\n    State_Chm%nDryAlt  = SpcCount%nDryAlt\n    State_Chm%nDryDep  = SpcCount%nDryDep\n    State_Chm%nGasSpc  = SpcCount%nGasSpc\n    State_Chm%nHygGrth = SpcCount%nHygGrth\n    State_Chm%nKppVar  = SpcCount%nKppVar\n    State_Chm%nKppFix  = SpcCount%nKppFix\n    State_Chm%nKppSpc  = SpcCount%nKppSpc\n    State_Chm%nOmitted = SpcCount%nOmitted\n    State_Chm%nPhotol  = SpcCount%nPhotol\n    State_Chm%nRadNucl = SpcCount%nRadNucl\n    State_Chm%nTracer  = SpcCount%nTracer\n    State_Chm%nWetDep  = SpcCount%nWetDep\n\n#if defined (TOMAS12)\n    State_Chm%nTomasBins = 12\n#elif defined(TOMAS15)\n    State_Chm%nTomasBins = 15\n#elif defined(TOMAS40)\n    State_Chm%nTomasBins = 40\n#else\n    State_Chm%nTomasBins = 30\n#endif\n\n    ! Also get the number of the prod/loss species.  For fullchem simulations,\n    ! the prod/loss species are listed in FAM_NAMES in gckpp_Monitor.F90,\n    ! but for certain other simulations (tagO3, carbon), advected species\n    ! can have prod and loss diagnostic entries.\n    CALL GetNumProdLossSpecies( Input_Opt, State_Chm, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"GetNumProdLossSpecies\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !########################################################################\n    !### Save species database info to a HEMCO_sa_Spec.rc file for use with\n    !### the HEMCO standalone simulation.  Uncomment this if you need it.\n    !### (bmy, 9/26/18)\n    !###\n    !\n    !! Open file\n    !OPEN( 700, FILE = 'HEMCO_sa_Spec.rc', STATUS = 'UNKNOWN', IOSTAT=RC )\n    !\n    !! Write data\n    !DO N = 1, State_Chm%nAdvect\n    !   WRITE( 700, 700 ) N, State_Chm%SpcData(N)%Info%Name,                  &\n    !                        State_Chm%SpcData(N)%Info%Mw_g,                  &\n    !                        MAX(State_Chm%SpcData(N)%Info%Henry_K0, 0.0_fp), &\n    !                        MAX(State_Chm%SpcData(N)%Info%Henry_CR, 0.0_fp), &\n    !                        MAX(State_Chm%SpcData(N)%Info%Henry_pKa,0.0_fp)\n    !\n    !   700 FORMAT( i4, 1x, a10, 1x, 2f9.2, f5.1, 2x, es13.6, 2f10.2 )\n    !ENDDO\n    !\n    !! Close file\n    !CLOSE( 700 )\n    !STOP\n    !########################################################################\n\n    !========================================================================\n    ! Populate the species lookup table, for quick index lookup via Ind_\n    !========================================================================\n\n    ! Initialize the species lookup table\n    CALL State_Chm%SpcDict%Init( State_Chm%nSpecies )\n\n    ! Populate the species lookup table\n    DO N = 1, State_Chm%nSpecies\n       ThisSpc => SpcDataLocal(N)%Info\n       CALL State_Chm%SpcDict%Set( To_UpperCase( TRIM( ThisSpc%Name ) ),     &\n                                   ThisSpc%ModelId                          )\n       ThisSpc => NULL()\n    ENDDO\n\n    ! Error check: make sure we have no hash collisions that would\n    ! assign more than one species to the same ModelId value\n    ALLOCATE( CheckIds( State_Chm%nSpecies ), STAT=RC )\n    DO N = 1, State_Chm%nSpecies\n       CheckIds(N) = SpcDataLocal(N)%Info%ModelId\n    ENDDO\n    DO N = 1, State_Chm%nSpecies\n       nMatches = COUNT( CheckIds(N) == CheckIds )\n       IF ( nMatches > 1 ) THEN\n          ErrMsg = 'Species: ' // TRIM( SpcDataLocal(N)%Info%Name )       // &\n                   'maps to more than one ModelID value!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          CheckIds => NULL()\n          RETURN\n       ENDIF\n    ENDDO\n    IF ( ASSOCIATED( CheckIds ) ) DEALLOCATE( CheckIds )\n\n    ! If there are no hash collisions, then species lookup table\n    ! to a local shadow variable for use with the Ind_ function.\n    SpcDictLocal = State_Chm%SpcDict\n\n    !### Debug: Show the values in the lookup table\n    !CALL State_Chm%SpcDict%Show()\n\n    !========================================================================\n    ! Exit if this is a dry-run simulation\n    !========================================================================\n    IF ( Input_Opt%DryRun ) THEN\n       RC = GC_SUCCESS\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Initialize the 1-D mapping vectors (e.g. State_Chm%Map_DryDep)\n    !========================================================================\n    CALL Init_Mapping_Vectors( Input_Opt, State_Chm, TaggedDiag_List, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Init_Mapping_Vectors\" routine!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Allocate and initialize chemical species fields\n    !========================================================================\n    ALLOCATE( State_Chm%Species( State_Chm%nSpecies ), STAT=RC )\n    DO N = 1, State_Chm%nSpecies\n#if defined ( MODEL_GCHPCTM )\n       ! Species concentration array pointers will be set to point\n       ! to MAPL internal state every timestep when internal state level\n       ! values are flipped to match GEOS-Chem standard\n       State_Chm%Species(N)%Conc => NULL()\n#else\n       ALLOCATE( State_Chm%Species(N)%Conc( State_Grid%NX, &\n                                            State_Grid%NY, &\n                                            State_Grid%NZ ), STAT=RC )\n       State_Chm%Species(N)%Conc = 0.0_f8\n#endif\n       State_Chm%Species(N)%Units = 0\n    ENDDO\n\n#ifdef ADJOINT\n    !========================================================================\n    ! Allocate and initialize chemical species fields\n    !========================================================================\n    chmID = 'SpeciesAdj'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SpeciesAdj,                                  &\n         nSlots     = State_Chm%nSpecies,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Allocate and initialize chemical species fields\n    !========================================================================\n    chmID = 'CostFuncMask'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%CostFuncMask,                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Boundary conditions (only needed for nested grid simulations)\n    !========================================================================\n    IF ( State_Grid%NestedGrid ) THEN\n       chmID = 'BoundaryCond'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%BoundaryCond,                             &\n            nSlots     = State_Chm%nAdvect,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Allocate and initialize quantities that are only relevant for the\n    ! the various FULLCHEM simulations or the AEROSOL-ONLY simulation\n    !========================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       ! Save nAerosol to State_Chm\n       State_Chm%nAeroType = nAerosol\n\n       !---------------------------------------------------------------------\n       ! Aerosol object\n       ! NOTE: content is currently not registered\n       !---------------------------------------------------------------------\n       ALLOCATE( State_Chm%AerMass, STAT=RC )\n       CALL Init_AerMass_Container( Input_Opt, State_Grid, State_Chm%AerMass, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Init_AerMass_Container\" routine!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       \n       !---------------------------------------------------------------------\n       ! AeroArea\n       !---------------------------------------------------------------------\n       fieldId = (/ 'AeroAreaMDUST1   ', 'AeroAreaMDUST2   ',                &\n                    'AeroAreaMDUST3   ', 'AeroAreaMDUST4   ',                &\n                    'AeroAreaMDUST5   ', 'AeroAreaMDUST6   ',                &\n                    'AeroAreaMDUST7   ', 'AeroAreaSULF     ',                &\n                    'AeroAreaBC       ', 'AeroAreaOC       ',                &\n                    'AeroAreaSSA      ', 'AeroAreaSSC      ',                &\n                    'AeroAreaBGSULF   ', 'AeroAreaICEI     '                /)\n\n       ! Allocate and register each field individually\n       DO N = 1, State_Chm%nAeroType\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%AeroArea,                              &\n               nSlots     = State_Chm%nAeroType,                             &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n        ENDDO\n\n       !---------------------------------------------------------------------\n       ! AeroRadi\n       !---------------------------------------------------------------------\n       fieldId = (/ 'AeroRadiMDUST1   ', 'AeroRadiMDUST2   ',                &\n                    'AeroRadiMDUST3   ', 'AeroRadiMDUST4   ',                &\n                    'AeroRadiMDUST5   ', 'AeroRadiMDUST6   ',                &\n                    'AeroRadiMDUST7   ', 'AeroRadiSULF     ',                &\n                    'AeroRadiBC       ', 'AeroRadiOC       ',                &\n                    'AeroRadiSSA      ', 'AeroRadiSSC      ',                &\n                    'AeroRadiBGSULF   ', 'AeroRadiICEI     '               /)\n\n       ! Allocate and register each field individually\n       DO N = 1, State_Chm%nAeroType\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%AeroRadi,                              &\n               nSlots     = State_Chm%nAeroType,                             &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! WetAeroArea\n       !---------------------------------------------------------------------\n       fieldId = (/ 'WetAeroAreaMDUST1', 'WetAeroAreaMDUST2',                &\n                    'WetAeroAreaMDUST3', 'WetAeroAreaMDUST4',                &\n                    'WetAeroAreaMDUST5', 'WetAeroAreaMDUST6',                &\n                    'WetAeroAreaMDUST7', 'WetAeroAreaSULF  ',                &\n                    'WetAeroAreaBC    ', 'WetAeroAreaOC    ',                &\n                    'WetAeroAreaSSA   ', 'WetAeroAreaSSC   ',                &\n                    'WetAeroAreaBGSULF', 'WetAeroAreaICEI  '               /)\n\n       ! Allocate and register each field individually\n       DO N = 1, State_Chm%nAeroType\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%WetAeroArea,                           &\n               nSlots     = State_Chm%nAeroType,                             &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! WetAeroRadi\n       !---------------------------------------------------------------------\n       fieldId = (/ 'WetAeroRadiMDUST1', 'WetAeroRadiMDUST2',                &\n                    'WetAeroRadiMDUST3', 'WetAeroRadiMDUST4',                &\n                    'WetAeroRadiMDUST5', 'WetAeroRadiMDUST6',                &\n                    'WetAeroRadiMDUST7', 'WetAeroRadiSULF  ',                &\n                    'WetAeroRadiBC    ', 'WetAeroRadiOC    ',                &\n                    'WetAeroRadiSSA   ', 'WetAeroRadiSSC   ',                &\n                    'WetAeroRadiBGSULF', 'WetAeroRadiICEI  '               /)\n\n       ! Allocate and register each field individually\n       DO N = 1, State_Chm%nAeroType\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%WetAeroRadi,                           &\n               nSlots     = State_Chm%nAeroType,                             &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! AeroH2O\n       !---------------------------------------------------------------------\n       fieldId = (/ 'AeroH2OMDUST1    ', 'AeroH2OMDUST2    ',                &\n                    'AeroH2OMDUST3    ', 'AeroH2OMDUST4    ',                &\n                    'AeroH2OMDUST5    ', 'AeroH2OMDUST6    ',                &\n                    'AeroH2OMDUST7    ', 'AeroH2OSNA       ',                &\n                    'AeroH2OBC        ', 'AeroH2OOC        ',                &\n                    'AeroH2OSSA       ', 'AeroH2OSSC       ',                &\n                    'AeroH2OBGSULF    ', 'AeroH2OICEI      '               /)\n\n       ! Allocate and register each field individually\n       DO N = 1, State_Chm%nAeroType\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%AeroH2O,                               &\n               nSlots     = State_Chm%nAeroType,                             &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! SoilDust, tmf 10/26/21\n       !---------------------------------------------------------------------\n       fieldId(1) = 'SoilDUST1'\n       fieldId(2) = 'SoilDUST2'\n       fieldId(3) = 'SoilDUST3'\n       fieldId(4) = 'SoilDUST4'\n       fieldId(5) = 'SoilDUST5'\n       fieldId(6) = 'SoilDUST6'\n       fieldId(7) = 'SoilDUST7'\n\n       ! Allocate and register each field individually\n       DO N = 1, NDUST\n          CALL Init_and_Register(                                               &\n               Input_Opt  = Input_Opt,                                          &\n               State_Chm  = State_Chm,                                          &\n               State_Grid = State_Grid,                                         &\n               chmId      = TRIM( fieldId(N) ),                                 &\n               Ptr2Data   = State_Chm%SoilDust,                                 &\n               nSlots     = NDUST,                                              &\n               nCat       = N,                                                  &\n               RC         = RC                                                 )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! AClArea, xnw 1/20/18\n       !---------------------------------------------------------------------\n       chmID = 'AClArea'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%AClArea,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! AClRadi, xnw 1/20/18\n       !---------------------------------------------------------------------\n       chmID = 'AClRadi'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%AClRadi,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! GammaN2O5\n       !---------------------------------------------------------------------\n       fieldId(1) = 'GammaN2O5overall '\n       fieldId(2) = 'GammaN2O5fine    '\n       fieldId(3) = 'YieldClNO2fine   '\n\n       ! Allocate and register each field individually\n       DO N = 1, 3\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%GammaN2O5,                             &\n               nSlots     = 3,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! OM:OC Ratios\n       !---------------------------------------------------------------------\n       chmId = 'OMOC'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%OMOC,                                     &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       chmId = 'OMOCpoa'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%OMOC_POA,                                 &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       chmId = 'OMOCopoa'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%OMOC_OPOA,                                &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! IsorropAeropH\n       !---------------------------------------------------------------------\n       fieldId(1) = 'IsorropAeropHAccum'\n       fieldId(2) = 'IsorropAeropHCoarse'\n\n       ! Allocate and register each field individually\n       DO N = 1, 2\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%IsorropAeropH,                         &\n               nSlots     = 2,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! IsorropHplus\n       !---------------------------------------------------------------------\n       fieldId(1) = 'IsorropHplusAccum'\n       fieldId(2) = 'IsorropHplusCoarse'\n\n       ! Allocate and register each field individually\n       DO N = 1, 2\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%IsorropHplus,                          &\n               nSlots     = 2,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! IsorropAeroH2O\n       !---------------------------------------------------------------------\n       fieldId(1) = 'IsorropAeroH2OAccum'\n       fieldId(2) = 'IsorropAeroH2OCoarse'\n\n       ! Allocate and register each field individually\n       DO N = 1, 2\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%IsorropAeroH2O,                        &\n               nSlots     = 2,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! IsorropSulfate\n       !---------------------------------------------------------------------\n       chmId = 'IsorropSulfate'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%IsorropSulfate,                           &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n\n       !---------------------------------------------------------------------\n       ! IsorropNitrate\n       !---------------------------------------------------------------------\n       fieldId(1) = 'IsorropNitrateAccum'\n       fieldId(2) = 'IsorropNitrateCoarse'\n\n       ! Allocate and register each field individually\n       DO N = 1, 2\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%IsorropNitrate,                        &\n               nSlots     = 2,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! IsorropChloride\n       !---------------------------------------------------------------------\n       fieldId(1) = 'IsorropChlorideAccum'\n       fieldId(2) = 'IsorropChlorideCoarse'\n\n       ! Allocate and register each field individually\n       DO N = 1, 2\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%IsorropChloride,                       &\n               nSlots     = 2,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! IsorropBisulfate\n       !---------------------------------------------------------------------\n       chmId  = 'IsorropBisulfate'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%IsorropBisulfate,                         &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! QLxphCloud\n       !---------------------------------------------------------------------\n       chmId = 'QLxpHCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%QLxpHCloud,                               &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! ORVCsesq\n       !---------------------------------------------------------------------\n       chmId = 'ORVCsesq'\n       CALL Init_and_Register(                                            &\n            Input_Opt  = Input_Opt,                                       &\n            State_Chm  = State_Chm,                                       &\n            State_Grid = State_Grid,                                      &\n            chmId      = chmId,                                           &\n            Ptr2Data   = State_Chm%ORVCsesq,                              &\n            RC         = RC                                              )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! isCloud (jmm 3/1/19)\n       !---------------------------------------------------------------------\n       chmId = 'isCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%isCloud,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SSAlk\n       !---------------------------------------------------------------------\n       fieldId(1) = 'SSAlkAccumMode'\n       fieldId(2) = 'SSAlkCoarseMode'\n\n       ! Allocate and register each field individually\n       DO N = 1, 2\n          CALL Init_and_Register(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               chmId      = TRIM( fieldId(N) ),                              &\n               Ptr2Data   = State_Chm%SSAlk,                                 &\n               nSlots     = 2,                                               &\n               nCat       = N,                                               &\n               RC         = RC                                              )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !---------------------------------------------------------------------\n       ! HSO3_AQ\n       !---------------------------------------------------------------------\n       chmId = 'HSO3AQ'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%HSO3_AQ,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! SO3_AQ\n       !---------------------------------------------------------------------\n       chmId = 'SO3AQ'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%SO3_AQ,                                   &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! fupdateHOBr\n       !---------------------------------------------------------------------\n       chmId = 'fupdateHOBr'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%fupdateHOBr,                              &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! fupdateHOCl\n       !---------------------------------------------------------------------\n       chmId = 'fupdateHOCl'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%fupdateHOCl,                              &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! DryDepNitrogen\n       !---------------------------------------------------------------------\n       chmId = 'DryDepNitrogen'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%DryDepNitrogen,                           &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! WetDepNitrogen\n       !---------------------------------------------------------------------\n       chmId = 'WetDepNitrogen'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%WetDepNitrogen,                           &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !------------------------------------------------------------------------\n       ! TOMS_MOD\n       ! Not registered to the registry as these are fields internal to the\n       ! toms_mod module state.\n       !------------------------------------------------------------------------\n       chmId = 'TO3_DAILY'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TO3_DAILY,                                &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       chmId = 'TOMS1'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TOMS1,                                    &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       chmId = 'TOMS2'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TOMS2,                                    &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF ! ITS_A_FULLCHEM_SUM or ITS_AN_AEROSOL_SIM\n\n    !========================================================================\n    ! Allocate and initialize KPPHvalue (used by KPP-based simulations)\n    !========================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM      .or.                              &\n         Input_Opt%ITS_A_MERCURY_SIM     ) THEN\n\n       chmId = 'KPPHvalue'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%KPPHvalue,                                &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Allocate and initialize fields for FULLCHEM or MERCURY simulations\n    !========================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       !---------------------------------------------------------------------\n       ! STATE_PSC (polar stratospheric clouds)\n       !---------------------------------------------------------------------\n       chmId = 'StatePSC'\n       CALL Init_and_Register(                                            &\n            Input_Opt  = Input_Opt,                                       &\n            State_Chm  = State_Chm,                                       &\n            State_Grid = State_Grid,                                      &\n            chmId      = chmId,                                           &\n            Ptr2Data   = State_Chm%STATE_PSC,                             &\n            RC         = RC                                              )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! KHETI_SLA\n       !---------------------------------------------------------------------\n       fieldId = (/ 'KhetiSLAN2O5H2O  ', 'KhetiSLAN2O5HCl  ',             &\n                    'KhetiSLAClNO3H2O ', 'KhetiSLAClNO3HCl ',             &\n                    'KhetiSLAClNO3HBr ', 'KhetiSLABrNO3H2O ',             &\n                    'KhetiSLABrNO3HCl ', 'KhetiSLAHOClHCl  ',             &\n                    'KhetiSLAHOClHBr  ', 'KhetiSLAHOBrHCl  ',             &\n                    'KhetiSLAHOBrHBr  ', '                 ',             &\n                    '                 ', '                 '            /)\n\n       ! Allocate and register each field individually\n       nKHLSA = 11\n       DO N = 1, nKHLSA\n          CALL Init_and_Register(                                         &\n               Input_Opt  = Input_Opt,                                    &\n               State_Chm  = State_Chm,                                    &\n               State_Grid = State_Grid,                                   &\n               chmId      = TRIM( fieldId(N) ),                           &\n               Ptr2Data   = State_Chm%KHETI_SLA,                          &\n               nSlots     = nKHLSA,                                       &\n               nCat       = N,                                            &\n               RC         = RC                                           )\n\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n       !------------------------------------------------------------------------\n       ! TOMS_MOD\n       ! Not registered to the registry as these are fields internal to the\n       ! toms_mod module state.\n       !------------------------------------------------------------------------\n       chmId = 'TO3_DAILY'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TO3_DAILY,                                &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       chmId = 'TOMS1'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TOMS1,                                    &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       chmId = 'TOMS2'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TOMS2,                                    &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Allocate and initialize quantities for wet deposition routines\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! H2O2AfterChem\n    !------------------------------------------------------------------------\n    chmId = 'H2O2AfterChem'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%H2O2AfterChem,                               &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SO2AfterChem\n    !------------------------------------------------------------------------\n    chmId = 'SO2AfterChem'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SO2AfterChem,                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! phCloud\n    !------------------------------------------------------------------------\n    chmId = 'pHCloud'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%pHcloud,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Set default pHcloud value to 5.6, which is typical values of cloud\n    ! water pH in the atmosphere.  This pH value reflects dissolved CO2\n    ! in cloud water.  See geoschem/geos-chem Pull Request #779.\n    State_Chm%pHCloud = 5.6_fp\n\n#ifdef LUO_WETDEP\n    !------------------------------------------------------------------------\n    ! Gan Luo et al 2020 wetdep fields\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%LWETD .or. Input_Opt%LCONV ) THEN\n\n       ! %%% QQ3D %%%\n       chmId = 'QQ3D'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%QQ3D,                                     &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! %%% KRATE %%%\n       chmId = 'KRATE'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%KRATE,                                    &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! %%% phRain %%%\n       chmId = 'pHrain'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%pHrain,                                   &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! %%% QQpHrain %%%\n       chmId = 'QQpHrain'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%QQpHrain,                                 &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! %%% QQrain %%%\n       chmId = 'QQrain'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%QQrain,                                   &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Allocate fields for various GeosCore modules\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! Ocean surface iodide\n    !------------------------------------------------------------------------\n    IF ( State_Chm%nDryDep > 0 ) THEN\n        chmId = 'Iodide'\n        CALL Init_and_Register(                                              &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%Iodide,                                   &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Ocean surface salinity\n    !------------------------------------------------------------------------\n    IF ( State_Chm%nDryDep > 0 ) THEN\n        chmId = 'Salinity'\n        CALL Init_and_Register(                                              &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%Salinity,                                 &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DryDepFreq\n    !------------------------------------------------------------------------\n    IF ( State_Chm%nDryDep > 0 ) THEN\n        chmId = 'DryDepFreq'\n        CALL Init_and_Register(                                              &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%DryDepFreq,                               &\n            nSlots     = State_Chm%nDryDep,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------\n    ! DryDepVel\n    !------------------------------------------------------------------\n    chmID = 'DryDepVel'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%DryDepVel,                                   &\n         nSlots     = State_Chm%nDryDep,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef MODEL_GEOS\n    !========================================================================\n    ! Allocate and initialize aerodynamic resistance fields (GEOS-5 only)\n    !========================================================================\n    chmID = 'DryDepRa2m'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%DryDepRa2m,                                  &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    chmID = 'DryDepRa10m'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%DryDepRa10m,                                 &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    ! J(OH) and J(NO2) are only used in fullchem simulations\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n       !---------------------------------------------------------------------\n       ! J(OH); needed for restart file input to HEMCO PARANOx extension\n       !---------------------------------------------------------------------\n       chmId = 'JOH'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%JOH,                                      &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! J(NO2); needed for restart file input to HEMCO PARANOx extension\n       !---------------------------------------------------------------------\n       chmId = 'JNO2'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%JNO2,                                     &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------\n    ! Surface flux for non-local PBL mixing\n    !------------------------------------------------------------------\n    IF ( Input_Opt%LTURB .and. Input_Opt%LNLPBL ) THEN\n       chmId = 'SurfaceFlux'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%SurfaceFlux,                              &\n            nSlots     = State_Chm%nAdvect,                                  &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------\n    ! TLSTT (Linoz)\n    !------------------------------------------------------------------\n    IF ( Input_Opt%LINOZ_NFIELDS > 0 ) THEN\n        chmId = 'TLSTT'\n        CALL Init_and_Register(                                              &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TLSTT,                                    &\n            nSlots     = Input_Opt%LINOZ_NFIELDS,                            &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SFC_CH4\n    ! Not registered to the registry as these are fields internal to the\n    ! set_global_ch4_mod module state.\n    !------------------------------------------------------------------------\n    chmId = 'SFC_CH4'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SFC_CH4,                                     &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#if defined(MODEL_CESM)\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n       !---------------------------------------------------------------------\n       ! H2SO4_PRDR: H2SO4 production rate [mol/mol] for MAM4 interface\n       !---------------------------------------------------------------------\n       chmId = 'H2SO4_PRDR'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%H2SO4_PRDR,                               &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n#endif\n\n    !=======================================================================\n    ! Initialize State_Chm quantities pertinent to Hg simulations\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n       CALL Init_Hg_Simulation_Fields( Input_Opt, State_Chm, State_Grid,     &\n                                       SpcCount,  RC                        )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in routine \"Init_Hg_Simulation_Fields\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Initialize State_Chm quantities pertinent to RRTMG simulations\n    !=======================================================================\n    If (Input_Opt%LRAD) Then\n       ! %%% TStrat_Adj %%%\n       chmId = 'TStrat_Adj'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            chmId      = chmId,                                              &\n            Ptr2Data   = State_Chm%TStrat_Adj,                               &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n#ifdef APM\n    !=======================================================================\n    ! Initialize State_Chm quantities for APM microphysics simulations\n    !=======================================================================\n    chmId = 'PSO4SO2APM2'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%PSO4_SO2APM2,                                &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Once we are done registering all fields, we need to define the\n    ! registry lookup table.  This algorithm will avoid hash collisions.\n    !========================================================================\n    CALL Registry_Set_LookupTable( Registry  = State_Chm%Registry,           &\n                                   RegDict   = State_Chm%RegDict,            &\n                                   RC        = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"Registry_Set_LookupTable\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Print out the list of registered fields\n    !========================================================================\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 10 )\n 10    FORMAT( /, 'Registered variables contained within the State_Chm object:')\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n       \n       ! Print registered fields\n       CALL Registry_Print( Input_Opt   = Input_Opt,                         &\n                            Registry    = State_Chm%Registry,                &\n                            ShortFormat = .TRUE.,                            &\n                            RC          = RC                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in routine \"Registry Print\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n\n    ! Free pointer for safety's sake\n    ThisSpc => NULL()\n\n    ! Format statement\n100 FORMAT( I3, 2x, A31 )\n110 FORMAT( 5x, '===> ', f4.1, 1x, A6  )\n120 FORMAT( 5x, '---> ', f4.1, 1x, A4  )\n\n  END SUBROUTINE Init_State_Chm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Mapping_Vectors\n!\n! !DESCRIPTION: Initializes the 1-D mapping vectors in the State_Chm object.\n!  This was split off from Init_State_Chm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Mapping_Vectors( Input_Opt, State_Chm, TaggedDiag_List, RC )\n!\n! !USES:\n!\n    USE GcKpp_Parameters,   ONLY : NSPEC\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE TaggedDiagList_Mod, ONLY : TaggedDgnList\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList), INTENT(IN)    :: TaggedDiag_List ! Tagged Diag List\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt       ! Input Options\n    TYPE(ChmState),      INTENT(INOUT) :: State_Chm       ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC              ! Success or failure\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: C,       N\n\n    ! Strings\n    CHARACTER(LEN=10 )     :: inds(6)\n    CHARACTER(LEN=255)     :: errMsg,  thisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: ThisSpc\n\n    !========================================================================\n    ! Init_Mapping_Vectors begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         =  GC_SUCCESS\n    ThisSpc    => NULL()\n    errMsg     =  ''\n    thisLoc    =  &\n       ' -> at Init_Mapping_Vectors (in module Headers/state_chm_mod.F90)'\n\n    !========================================================================\n    ! Allocate and initialize mapping vectors to subset species\n    !========================================================================\n    IF ( State_Chm%nAdvect > 0 ) THEN\n       ALLOCATE( State_Chm%Map_Advect( State_Chm%nAdvect ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Advect', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Advect = 0\n    ELSE\n       ErrMsg = 'No advected species specified!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    IF ( State_Chm%nAeroSpc > 0 ) THEN\n       ALLOCATE( State_Chm%Map_Aero( State_Chm%nAeroSpc ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Aero', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Aero = 0\n    ENDIF\n\n    IF ( State_Chm%nSpecies > 0 ) THEN\n       ALLOCATE( State_Chm%Map_All( State_Chm%nSpecies ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_All', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_All = 0\n    ENDIF\n\n    IF (  State_Chm%nDryAlt > 0 ) THEN\n       ALLOCATE( State_Chm%Map_DryAlt( State_Chm%nDryAlt ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_DryAlt', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_DryAlt = 0\n    ENDIF\n\n    IF (  State_Chm%nDryDep > 0 ) THEN\n       ALLOCATE( State_Chm%Map_Drydep( State_Chm%nDryDep ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Drydep', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_DryDep = 0\n    ENDIF\n\n    IF ( State_Chm%nGasSpc > 0 ) THEN\n       ALLOCATE( State_Chm%Map_GasSpc( State_Chm%nGasSpc ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_GasSpc', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_GasSpc = 0\n    ENDIF\n\n    IF ( State_Chm%nHygGrth > 0 ) THEN\n       ALLOCATE( State_Chm%Map_HygGrth( State_Chm%nHygGrth ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_HygGrth', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_HygGrth = 0\n    ENDIF\n\n    !---------------------------------------------------------------------------\n    ! NOTE: Need to also leave room for the omitted \"dummy\" KPP species in\n    ! the mapping arrays so that the rest of the KPP indices will line up!\n    !  -- Bob Yantosca (04 Jun 2021)\n    N = State_Chm%nKppVar + State_Chm%nOmitted\n    IF ( N > 0 ) THEN\n       ALLOCATE( State_Chm%Map_KppVar( N ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_KppVar', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_KppVar = 0\n\n       ! \n       ALLOCATE( State_Chm%KPP_AbsTol( N ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Kpp_AbsTol', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KPP_AbsTol = 0.0_f8\n\n       ALLOCATE( State_Chm%KPP_RelTol( N ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Kpp_RelTol', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KPP_RelTol = 0.0_f8\n    ENDIF\n\n    N = State_Chm%nKppFix + State_Chm%nOmitted\n    IF ( N > 0 ) THEN\n       ALLOCATE( State_Chm%Map_KppFix( N ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_KppFix', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_KppFix = 0\n    ENDIF\n\n    N = State_Chm%nKppSpc + State_Chm%nOmitted\n    IF ( N > 0 ) THEN\n       ALLOCATE( State_Chm%Map_KppSpc( N ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_KppSpc', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_KppSpc = 0\n    ENDIF\n    !---------------------------------------------------------------------------\n\n    IF ( State_Chm%nLoss > 0 ) THEN\n       ALLOCATE( State_Chm%Name_Loss( State_Chm%nLoss ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Name_Loss', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Name_Loss = ''\n\n       ALLOCATE( State_Chm%Map_Loss( State_Chm%nLoss ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Loss', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Loss = 0\n    ENDIF\n\n    IF ( State_Chm%nPhotol > 0 ) THEN\n       ALLOCATE( State_Chm%Map_Photol( State_Chm%nPhotol ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Photol', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Photol = 0\n    ENDIF\n\n    IF ( State_Chm%nProd >0 ) THEN\n       ALLOCATE( State_Chm%Name_Prod( State_Chm%nProd ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Name_Prod', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Name_Prod = ''\n\n       ALLOCATE( State_Chm%Map_Prod( State_Chm%nProd ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Prod', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Prod = 0\n    ENDIF\n\n    IF ( State_Chm%nRadNucl > 0 ) THEN\n       ALLOCATE( State_Chm%Map_RadNucl( State_Chm%nRadNucl ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_RadNucl', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_RadNucl = 0\n    ENDIF\n\n    IF ( State_Chm%nTracer > 0 ) THEN\n       ALLOCATE( State_Chm%Map_Tracer( State_Chm%nTracer ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Tracer', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Tracer = 0\n    ENDIF\n\n    IF ( State_Chm%nWetDep > 0 ) THEN\n       ALLOCATE( State_Chm%Map_WetDep( State_Chm%nWetDep ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_WetDep', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_WetDep = 0\n    ENDIF\n\n    IF ( State_Chm%Phot%nWLbins > 0 ) THEN\n       ALLOCATE( State_Chm%Map_WL( State_Chm%Phot%nWLbins ), STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_WL', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_WL = 0\n    ENDIF\n\n    !========================================================================\n    ! Set up the species mapping vectors\n    !========================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6,'(  a)' ) REPEAT( '=', 79 )\n       WRITE( 6,'(a,/)' ) 'SPECIES NAMES AND INDICES'\n       WRITE( 6,'(  a)' ) &\n 'Name               ModelId  DryDepId  WetDepId  PhotolId HygGrthId  KppSpcId'\n       WRITE( 6,'(  a)' ) REPEAT( '-', 79 )\n    ENDIF\n\n    ! Loop over all species\n    DO N = 1, State_Chm%nSpecies\n\n       ! GEOS-Chem Species Database entry for species # N\n       ThisSpc => State_Chm%SpcData(N)%Info\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for ALL SPECIES\n       !---------------------------------------------------------------------\n       State_Chm%Map_All(N) = ThisSpc%ModelID\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for ADVECTED SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_Advected ) THEN\n          C                       = ThisSpc%AdvectId\n          State_Chm%Map_Advect(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for AEROSOL SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_Aerosol ) THEN\n          C                     = ThisSpc%AerosolId\n          State_Chm%Map_Aero(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for DRYDEP SPECIES TO SAVE AT A GIVEN ALTITUDE\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_DryAlt ) THEN\n          C                       = ThisSpc%DryAltId\n          State_Chm%Map_DryAlt(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for DRYDEP SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_DryDep ) THEN\n          C                       = ThisSpc%DryDepId\n          State_Chm%Map_Drydep(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for GAS SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_Gas ) THEN\n          C                       = ThisSpc%GasSpcId\n          !###\n          !### Uncomment for debug print if Map_GasSpc goes out-of-bounds\n          !### print*, '===> ', ThisSpc%Name, C, ThisSpc%ModelId\n          !###\n          State_Chm%Map_GasSpc(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for HYGROSCOPIC GROWTH SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_HygroGrowth ) THEN\n          C                        = ThisSpc%HygGrthId\n          State_Chm%Map_HygGrth(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for KPP ACTIVE (VARIABLE) SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_ActiveChem ) THEN\n          C                       = ThisSpc%KppVarId\n          State_Chm%Map_KppVar(C) = ThisSpc%ModelId\n          State_Chm%KPP_AbsTol(C) = ThisSpc%KPP_AbsTol\n          State_Chm%KPP_RelTol(C) = ThisSpc%KPP_RelTol\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for KPP FIXED SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_FixedChem ) THEN\n          C                       = ThisSpc%KppFixId\n          State_Chm%Map_KppFix(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for SPECIES IN THE KPP MECHANISM\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_Kpp ) THEN\n          C                       = ThisSpc%KppSpcId\n          State_Chm%Map_KppSpc(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for PHOTOLYSIS SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_Photolysis ) THEN\n          C                       = ThisSpc%PhotolId\n          State_Chm%Map_Photol(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for RADIONUCLIDE SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_RadioNuclide ) THEN\n          C                        = ThisSpc%RadNuclId\n          State_Chm%Map_RadNucl(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for TRANSPORT TRACER SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_Tracer ) THEN\n          C                       = ThisSpc%TracerId\n          State_Chm%Map_Tracer(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Set up the mapping for WETDEP SPECIES\n       !---------------------------------------------------------------------\n       IF ( ThisSpc%Is_WetDep ) THEN\n          C                       = ThisSpc%WetDepId\n          State_Chm%Map_WetDep(C) = ThisSpc%ModelId\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Write out species names and IDs\n       !---------------------------------------------------------------------\n       IF ( Input_Opt%amIRoot ) THEN\n          inds = '         -'\n          IF ( ThisSpc%ModelId   > 0 ) WRITE( inds(1), 100 ) ThisSpc%ModelId\n          IF ( ThisSpc%DryDepId  > 0 ) WRITE( inds(2), 100 ) ThisSpc%DryDepId\n          IF ( ThisSpc%WetDepId  > 0 ) WRITE( inds(3), 100 ) ThisSpc%WetDepId\n          IF ( ThisSpc%PhotolId  > 0 ) WRITE( inds(4), 100 ) ThisSpc%PhotolId\n          IF ( ThisSpc%HygGrthId > 0 ) WRITE( inds(5), 100 ) ThisSpc%HygGrthId\n          IF ( ThisSpc%KppSpcId  > 0 ) WRITE( inds(6), 100 ) ThisSpc%KppSpcId\n          WRITE( 6, 110 ) ThisSpc%Name(1:14), ( inds(C), C=1,6               )\n 100      FORMAT( i10                                                        )\n 110      FORMAT( a14, 2x, 6a10                                              )\n       ENDIF\n\n       ! Free pointer\n       ThisSpc => NULL()\n\n    ENDDO\n\n    ! Write closing line\n    IF ( Input_Opt%amIRoot ) WRITE( 6,'(  a)'   ) REPEAT( '=', 79)\n\n    !------------------------------------------------------------------------\n    ! Set up the mapping for UVFlux Diagnostics\n    ! placeholder for now since couldn't figure out how to read in WL from file\n    !------------------------------------------------------------------------\n    IF ( State_Chm%Phot%nWLbins > 0 ) THEN\n\n       ! Define identifying string\n       DO N = 1, State_Chm%Phot%nWLbins\n          State_Chm%Map_WL(N) = 0\n       ENDDO\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Set up the mapping for PRODUCTION AND LOSS DIAGNOSTIC SPECIES\n    !------------------------------------------------------------------------\n    IF ( State_Chm%nProd > 0 .or. State_Chm%nLoss > 0 ) THEN\n       CALL MapProdLossSpecies( Input_Opt, State_Chm, TaggedDiag_List, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in routine \"MapProdLossSpecies\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Init_Mapping_Vectors\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Hg_Simulation_Fields\n!\n! !DESCRIPTION: Initializes State_Chm quantities that pertain to the\n!  Hg or tagged Hg simulations.  This was split off from Init_State_Chm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Hg_Simulation_Fields( Input_Opt, State_Chm, State_Grid,    &\n                                        SpcCount,  RC                       )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! INPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(SpcIndCt), INTENT(IN)    :: SpcCount\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  23 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: C\n    INTEGER                :: N\n\n    ! Strings\n    CHARACTER(LEN=255)     :: chmId\n    CHARACTER(LEN=255)     :: errMsg\n    CHARACTER(LEN=255)     :: errMsg_ir\n    CHARACTER(LEN=255)     :: thisLoc\n\n    ! Objects\n    TYPE(Species), POINTER :: ThisSpc\n\n    !========================================================================\n    ! Init_Hg_Simulation_Fields begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_ir  =  'Error encountered in \"Init_and_Register\", chmId = '\n    thisLoc    = &\n     ' -> at Init_Hg_Simulation_Fields (in module Headers/state_chm_mod.F90)'\n\n    !------------------------------------------------------------------------\n    ! Hg(0) ocean mass\n    !------------------------------------------------------------------------\n    chmId = 'OceanHg0'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%OceanHg0,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Hg(II) ocean mass\n    !------------------------------------------------------------------------\n    chmId = 'OceanHg2'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%OceanHg2,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! HgP ocean mass\n    !------------------------------------------------------------------------\n    chmId = 'OceanHgP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%OceanHgP,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Reducible Hg snowpack on ocean\n    !------------------------------------------------------------------------\n    chmId = 'SnowHgOcean'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SnowHgOcean,                                 &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Reducible Hg snowpack on land\n    !------------------------------------------------------------------------\n    chmId = 'SnowHgLand'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SnowHgLand,                                  &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Non-reducible Hg snowpack on ocean\n    !------------------------------------------------------------------------\n    chmId = 'SnowHgOceanStored'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SnowHgOceanStored,                           &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Non-reducible Hg snowpack on land\n    !------------------------------------------------------------------------\n    chmId = 'SnowHgLandStored'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         chmId      = chmId,                                                 &\n         Ptr2Data   = State_Chm%SnowHgLandStored,                            &\n         RC         = RC                                                    )\n\n    !------------------------------------------------------------------------\n    ! TOMS_MOD\n    ! Not registered to the registry as these are fields internal to the\n    ! toms_mod module state.\n    !------------------------------------------------------------------------\n    chmId = 'TO3_DAILY'\n    CALL Init_and_Register(                                               &\n         Input_Opt  = Input_Opt,                                          &\n         State_Chm  = State_Chm,                                          &\n         State_Grid = State_Grid,                                         &\n         chmId      = chmId,                                              &\n         Ptr2Data   = State_Chm%TO3_DAILY,                                &\n         noRegister = .TRUE.,                                             &\n         RC         = RC                                                 )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    chmId = 'TOMS1'\n    CALL Init_and_Register(                                               &\n         Input_Opt  = Input_Opt,                                          &\n         State_Chm  = State_Chm,                                          &\n         State_Grid = State_Grid,                                         &\n         chmId      = chmId,                                              &\n         Ptr2Data   = State_Chm%TOMS1,                                    &\n         noRegister = .TRUE.,                                             &\n         RC         = RC                                                 )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    chmId = 'TOMS2'\n    CALL Init_and_Register(                                               &\n         Input_Opt  = Input_Opt,                                          &\n         State_Chm  = State_Chm,                                          &\n         State_Grid = State_Grid,                                         &\n         chmId      = chmId,                                              &\n         Ptr2Data   = State_Chm%TOMS2,                                    &\n         noRegister = .TRUE.,                                             &\n         RC         = RC                                                 )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( chmId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Init_Hg_Simulation_Fields\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_State_Chm\n!\n! !DESCRIPTION: Routine CLEANUP\\_STATE\\_CHM deallocates all fields\n!  of the chemistry state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_State_Chm( State_Chm, RC )\n!\n! !USES:\n!\n    USE Species_Database_Mod, ONLY : Cleanup_Species_Database\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  15 Oct 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARAIBLES\n!\n    INTEGER            :: N\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Cleanup_State_Chm (in Headers/state_chm_mod.F90)'\n\n    !=======================================================================\n    ! Deallocate and nullify pointer fields of State_Chm\n    !=======================================================================\n    IF ( ASSOCIATED( State_Chm%Phot ) ) THEN\n       CALL Cleanup_Phot_Container( State_Chm%Phot, RC )\n       State_Chm%Phot => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%KPP_AbsTol ) ) THEN\n       DEALLOCATE( State_Chm%KPP_AbsTol, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%KPP_AbsTol', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KPP_AbsTol => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%KPP_RelTol ) ) THEN\n       DEALLOCATE( State_Chm%KPP_RelTol, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%KPP_RelTol', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KPP_RelTol => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_Advect ) ) THEN\n       DEALLOCATE( State_Chm%Map_Advect, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Advect', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Advect => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_Aero ) ) THEN\n       DEALLOCATE( State_Chm%Map_Aero, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Aero', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Aero => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_All ) ) THEN\n       DEALLOCATE( State_Chm%Map_All, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_All', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_All => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_DryDep ) ) THEN\n       DEALLOCATE( State_Chm%Map_DryDep, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Drydep', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_DryDep => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_GasSpc ) ) THEN\n       DEALLOCATE( State_Chm%Map_GasSpc, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_GasSpc', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_GasSpc => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_HygGrth ) ) THEN\n       DEALLOCATE( State_Chm%Map_HygGrth, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_HygGrth', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_HygGrth => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_KppVar ) ) THEN\n       DEALLOCATE( State_Chm%Map_KppVar, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_KppVar', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_KppVar => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_KppFix ) ) THEN\n       DEALLOCATE( State_Chm%Map_KppFix, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_KppFix', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_KppFix => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_KppSpc ) ) THEN\n       DEALLOCATE( State_Chm%Map_KppSpc, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_KppSpc', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_KppSpc => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Name_Loss ) ) THEN\n       DEALLOCATE( State_Chm%Name_Loss, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Name_Loss', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Name_Loss => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_Loss ) ) THEN\n       DEALLOCATE( State_Chm%Map_Loss, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Loss', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Loss => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_Photol ) ) THEN\n       DEALLOCATE( State_Chm%Map_Photol, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Photol', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Photol => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Name_Prod ) ) THEN\n       DEALLOCATE( State_Chm%Name_Prod, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Name_Prod', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Name_Prod => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_Prod ) ) THEN\n       DEALLOCATE( State_Chm%Map_Prod, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Prod', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Prod => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_RadNucl ) ) THEN\n       DEALLOCATE( State_Chm%Map_RadNucl, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_RadNucl', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_RadNucl => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_Tracer ) ) THEN\n       DEALLOCATE( State_Chm%Map_Tracer, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_Tracer', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_Tracer => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_WetDep ) ) THEN\n       DEALLOCATE( State_Chm%Map_WetDep, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_WetDep', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_WetDep => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Map_WL ) ) THEN\n       DEALLOCATE( State_Chm%Map_WL, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Map_WL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Map_WL => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED ( State_Chm%Species ) ) THEN\n       DO N = 1, State_Chm%nSpecies\n          IF ( ASSOCIATED( State_Chm%Species(N)%Conc ) ) THEN\n#if !defined( MODEL_GCHPCTM )\n             DEALLOCATE( State_Chm%Species(N)%Conc, STAT=RC )\n             IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n             State_Chm%Species(N)%Conc => NULL()\n          ENDIF\n       ENDDO\n       DEALLOCATE( State_Chm%Species )\n       CALL GC_CheckVar( 'State_Chm%Species', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Species => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%BoundaryCond ) ) THEN\n       DEALLOCATE( State_Chm%BoundaryCond, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%BoundaryCond', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%BoundaryCond => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AerMass ) ) THEN\n       CALL Cleanup_AerMass_Container(State_Chm%AerMass, RC )\n       DEALLOCATE( State_Chm%AerMass )\n       State_Chm%AerMass => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AeroArea ) ) THEN\n       DEALLOCATE( State_Chm%AeroArea, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AeroArea', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AeroArea => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AeroRadi ) ) THEN\n       DEALLOCATE( State_Chm%AeroRadi, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AeroRadi', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AeroRadi => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AClArea ) ) THEN\n       DEALLOCATE( State_Chm%AClArea, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AClArea', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AClArea => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AClRadi ) ) THEN\n       DEALLOCATE( State_Chm%AClRadi, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AClRadi', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AClRadi => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SoilDust ) ) THEN\n       DEALLOCATE( State_Chm%SoilDust, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SoilDust', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SoilDust => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%WetAeroArea ) ) THEN\n       DEALLOCATE( State_Chm%WetAeroArea, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%WetAeroArea', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%WetAeroArea => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%WetAeroRadi ) ) THEN\n       DEALLOCATE( State_Chm%WetAeroRadi, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%WetAeroRadi', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%WetAeroRadi => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AeroH2O ) ) THEN\n       DEALLOCATE( State_Chm%AeroH2O, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AeroH2O', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AeroH2O => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%GammaN2O5 ) ) THEN\n       DEALLOCATE( State_Chm%GammaN2O5, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%GammaN2O5', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%GammaN2O5 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%OMOC ) ) THEN\n       DEALLOCATE( State_Chm%OMOC, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%OMOC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%OMOC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%OMOC_POA ) ) THEN\n       DEALLOCATE( State_Chm%OMOC_POA, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%OMOC_POA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%OMOC_POA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%OMOC_OPOA ) ) THEN\n       DEALLOCATE( State_Chm%OMOC_OPOA, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%OMOC_OPOA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%OMOC_OPOA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropAeropH ) ) THEN\n       DEALLOCATE( State_Chm%IsorropAeropH, STAT=RC  )\n       CALL GC_CheckVar( 'State_Chm%IsorropAeropH', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropAeropH => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropHplus ) ) THEN\n       DEALLOCATE( State_Chm%IsorropHplus, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%IsorropHplus', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropHplus => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropAeroH2O ) ) THEN\n       DEALLOCATE( State_Chm%IsorropAeroH2O, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%IsorropAeroH2O', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropAeroH2O => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropSulfate ) ) THEN\n       DEALLOCATE( State_Chm%IsorropSulfate, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%IsorropSulfate', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropSulfate => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropNitrate ) ) THEN\n       DEALLOCATE( State_Chm%IsorropNitrate, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%IsorropNitrate', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropNitrate => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropChloride ) ) THEN\n       DEALLOCATE( State_Chm%IsorropChloride, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%IsorropChloride', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropChloride => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%IsorropBisulfate ) ) THEN\n       DEALLOCATE( State_Chm%IsorropBisulfate, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%IsorropBisulfate', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%IsorropBisulfate => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%pHCloud ) ) THEN\n       DEALLOCATE( State_Chm%pHCloud, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%pHCloud', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%pHCloud => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%QLxpHCloud ) ) THEN\n       DEALLOCATE( State_Chm%QLxpHCloud, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%QLxpHCloud', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%QLxpHCloud => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%ORVCsesq ) ) THEN\n       DEALLOCATE( State_Chm%ORVCsesq, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%ORVCsesq', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%ORVCsesq => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%isCloud ) ) THEN\n       DEALLOCATE( State_Chm%isCloud, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%isCloud', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%isCloud => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SSAlk ) ) THEN\n       DEALLOCATE( State_Chm%SSAlk, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SSAlk', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SSAlk => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%H2O2AfterChem ) ) THEN\n       DEALLOCATE( State_Chm%H2O2AfterChem, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%H2O2AfterChem', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SO2AfterChem ) ) THEN\n       DEALLOCATE( State_Chm%SO2AfterChem, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SO2AfterChem', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%DryDepNitrogen ) ) THEN\n       DEALLOCATE( State_Chm%DryDepNitrogen, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%DryDepNitrogen', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%WetDepNitrogen ) ) THEN\n       DEALLOCATE( State_Chm%WetDepNitrogen, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%WetDepNitrogen', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%WetDepNitrogen => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%KPPHvalue ) ) THEN\n       DEALLOCATE( State_Chm%KPPHvalue, STAT=RC  )\n       CALL GC_CheckVar( 'State_Chm%KPPHvalue', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KPPHvalue => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%STATE_PSC ) ) THEN\n       DEALLOCATE( State_Chm%STATE_PSC, STAT=RC  )\n       CALL GC_CheckVar( 'State_Chm%State_PSC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%STATE_PSC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%KHETI_SLA ) ) THEN\n       DEALLOCATE( State_Chm%KHETI_SLA, STAT=RC  )\n       CALL GC_CheckVar( 'State_Chm%KHETI_SLA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KHETI_SLA => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%HSO3_AQ ) ) THEN\n       DEALLOCATE( State_Chm%HSO3_AQ, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%HSO3_AQ', 3, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%HSO3_AQ => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SO3_AQ ) ) THEN\n       DEALLOCATE( State_Chm%SO3_AQ, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SO3_AQ', 3, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SO3_AQ => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%fupdateHOBr ) ) THEN\n       DEALLOCATE( State_Chm%fupdateHOBr, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%fupdateHOBr', 3, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%fupdateHOBr => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%fupdateHOCl ) ) THEN\n       DEALLOCATE( State_Chm%fupdateHOCl, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%fupdateHOCl', 3, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%fupdateHOCl => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%OceanHg0 ) ) THEN\n       DEALLOCATE( State_Chm%OceanHg0, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%OceanHg0', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%OceanHg2 ) ) THEN\n       DEALLOCATE( State_Chm%OceanHg2, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%OceanHg2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%OceanHgP ) ) THEN\n       DEALLOCATE( State_Chm%OceanHgP, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%OceanHgP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SnowHgOcean ) ) THEN\n       DEALLOCATE( State_Chm%SnowHgOcean, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SnowHgOcean', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SnowHgLand ) ) THEN\n       DEALLOCATE( State_Chm%SnowHgLand, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SnowHgLand', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SnowHgOceanStored ) ) THEN\n       DEALLOCATE( State_Chm%SnowHgOceanStored, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SnowHgOceanStored', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SnowHgLandStored ) ) THEN\n       DEALLOCATE( State_Chm%SnowHgLandStored, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SnowHgLandStored', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%DryDepVel ) ) THEN\n       DEALLOCATE( State_Chm%DryDepVel, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%DryDepVel', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%DryDepVel => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%DryDepFreq ) ) THEN\n       DEALLOCATE( State_Chm%DryDepFreq, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%DryDepFreq', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%DryDepFreq => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Iodide ) ) THEN\n       DEALLOCATE( State_Chm%Iodide, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Iodide', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Iodide => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%Salinity ) ) THEN\n       DEALLOCATE( State_Chm%Salinity, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%Salinity', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%Salinity => NULL()\n    ENDIF\n\n#ifdef MODEL_GEOS\n    IF ( ASSOCIATED( State_Chm%DryDepRa2m ) ) THEN\n       DEALLOCATE( State_Chm%DryDepRa2m, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%DryDepRa2m', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%DryDepRa2m => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%DryDepRa10m ) ) THEN\n       DEALLOCATE( State_Chm%DryDepRa10m, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%DryDepRa10m', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%DryDepRa10m => NULL()\n    ENDIF\n\n    ! CO2 photolysis stuff\n    IF ( ASSOCIATED( State_Chm%sdat ) ) THEN\n       DEALLOCATE( State_Chm%sdat, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%sdat', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%sdat => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Chm%o2jdat ) ) THEN\n       DEALLOCATE( State_Chm%o2jdat, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%o2jdat', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%o2jdat => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Chm%sza_tab ) ) THEN\n       DEALLOCATE( State_Chm%sza_tab, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%sza_tab', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%sza_tab => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Chm%o3_tab ) ) THEN\n       DEALLOCATE( State_Chm%o3_tab, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%o3_tab', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%o3_tab => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Chm%xtab ) ) THEN\n       DEALLOCATE( State_Chm%xtab, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%xtab', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%xtab => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Chm%CH2O_aq ) ) THEN\n       DEALLOCATE( State_Chm%CH2O_aq, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%CH2O_aq', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%CH2O_aq => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Chm%rlam ) ) THEN\n       DEALLOCATE( State_Chm%rlam, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%rlam', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%rlam => NULL()\n    ENDIF\n#endif\n\n    IF ( ASSOCIATED( State_Chm%JOH ) ) THEN\n       DEALLOCATE( State_Chm%JOH, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%JOH', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%JOH => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%JNO2 ) ) THEN\n       DEALLOCATE( State_Chm%JNO2, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%JNO2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%JNO2 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SurfaceFlux ) ) THEN\n       DEALLOCATE( State_Chm%SurfaceFlux, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SurfaceFlux', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SurfaceFlux => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%TLSTT ) ) THEN\n       DEALLOCATE( State_Chm%TLSTT, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%TLSTT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%TLSTT => NULL()\n    ENDIF\n\n#ifdef LUO_WETDEP\n    IF ( ASSOCIATED( State_Chm%QQ3D ) ) THEN\n       DEALLOCATE( State_Chm%QQ3D, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%QQ3D', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%QQ3D => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%KRATE ) ) THEN\n       DEALLOCATE( State_Chm%KRATE, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%KRATE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KRATE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%pHrain ) ) THEN\n       DEALLOCATE( State_Chm%pHrain, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%pHrain', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%pHrain => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%QQpHrain ) ) THEN\n       DEALLOCATE( State_Chm%QQpHrain, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%QQpHrain', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%QQpHrain => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%QQrain ) ) THEN\n       DEALLOCATE( State_Chm%QQrain, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%QQrain', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%QQrain => NULL()\n    ENDIF\n#endif\n\n    IF ( ASSOCIATED( State_Chm%SFC_CH4 ) ) THEN\n       DEALLOCATE( State_Chm%SFC_CH4, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SFC_CH4', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SFC_CH4 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%TO3_DAILY ) ) THEN\n       DEALLOCATE( State_Chm%TO3_DAILY, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%TO3_DAILY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%TO3_DAILY => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%TOMS1 ) ) THEN\n       DEALLOCATE( State_Chm%TOMS1, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%TOMS1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%TOMS1 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%TOMS2 ) ) THEN\n       DEALLOCATE( State_Chm%TOMS2, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%TOMS2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%TOMS2 => NULL()\n    ENDIF\n\n#if defined(MODEL_CESM)\n    IF ( ASSOCIATED( State_Chm%H2SO4_PRDR ) ) THEN\n       DEALLOCATE( State_Chm%H2SO4_PRDR, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%H2SO4_PRDR', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%H2SO4_PRDR => NULL()\n    ENDIF\n#endif\n\n    IF ( ASSOCIATED( State_Chm%RAD_AER ) ) THEN\n       DEALLOCATE( State_Chm%RAD_AER, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%RAD_AER', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%RAD_AER => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SAD_AER ) ) THEN\n       DEALLOCATE( State_Chm%SAD_AER, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SAD_AER', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SAD_AER => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%KG_AER ) ) THEN\n       DEALLOCATE( State_Chm%KG_AER, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%KG_AER', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KG_AER => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%RHO_AER ) ) THEN\n       DEALLOCATE( State_Chm%RHO_AER, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%RHO_AER', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%RHO_AER => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%NDENS_AER ) ) THEN\n       DEALLOCATE( State_Chm%NDENS_AER, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%NDENS_AER', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%NDENS_AER => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AERFRAC ) ) THEN\n       DEALLOCATE( State_Chm%AERFRAC, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AERFRAC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AERFRAC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%AERFRACIND ) ) THEN\n       DEALLOCATE( State_Chm%AERFRACIND, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%AERFRACIND', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%AERFRACIND => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%UCX_REGRID ) ) THEN\n       DEALLOCATE( State_Chm%UCX_REGRID, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%UCX_REGRID', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%UCX_REGRID => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%UCX_PLEVS ) ) THEN\n       DEALLOCATE( State_Chm%UCX_PLEVS, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%UCX_PLEVS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%UCX_PLEVS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%UCX_LATS ) ) THEN\n       DEALLOCATE( State_Chm%UCX_LATS, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%UCX_LATS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%UCX_LATS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%NOX_O ) ) THEN\n       DEALLOCATE( State_Chm%NOX_O, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%NOX_O', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%NOX_O => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%NOX_J ) ) THEN\n       DEALLOCATE( State_Chm%NOX_J, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%NOX_J', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%NOX_J => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%SO4_TOPPHOT ) ) THEN\n       DEALLOCATE( State_Chm%SO4_TOPPHOT, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%SO4_TOPPHOT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%SO4_TOPPHOT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%NOXCOEFF ) ) THEN\n       DEALLOCATE( State_Chm%NOXCOEFF, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%NOXCOEFF', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%NOXCOEFF => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Chm%NOXLAT ) ) THEN\n       DEALLOCATE( State_Chm%NOXLAT, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%NOXLAT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%NOXLAT => NULL()\n    ENDIF\n\n#ifdef APM\n    IF ( ASSOCIATED( State_Chm%PSO4_SO2APM2 ) ) THEN\n      DEALLOCATE( State_Chm%PSO4_SO2APM2, STAT=RC )\n      CALL GC_CheckVar( 'State_Chm%PSO4_SO2APM2', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Chm%PSO4_SO2APM2 => NULL()\n    ENDIF\n#endif\n\n    IF ( ASSOCIATED( State_Chm%TStrat_Adj ) ) THEN\n       DEALLOCATE( State_Chm%TStrat_Adj, STAT=RC )\n       CALL GC_CheckVar( 'State_Chm%TStrat_Adj', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Chm%KRATE => NULL()\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Template for deallocating more arrays, replace xxx with field name\n    !-----------------------------------------------------------------------\n    !IF ( ASSOCIATED( State_Chm%xxx ) ) THEN\n    !   DEALLOCATE( State_Chm%xxx, STAT=RC  )\n    !   CALL GC_CheckVar( 'State_Chm%xxx', 2, RC )\n    !   IF ( RC /= GC_SUCCESS ) RETURN\n    !   State_Chm%xxx => NULL()\n    !ENDIF\n\n    !=======================================================================\n    ! Deallocate the species database object field\n    !=======================================================================\n\n    ! This operation should ONLY be done if there are no remaining chemistry\n    ! states in the system, as destroying this State_Chm%SpcData will destroy\n    ! all %SpcDatas, incl. state_chm_mod.F90's SpcDataLocal, in this CPU.\n    !\n    ! The variable state_chm_mod.F90 nChmState keeps track of the # of chemistry\n    ! states initialized in the system. (hplin, 8/3/18)\n    IF ( nChmState == 1 ) THEN\n       CALL Cleanup_Species_Database( State_Chm%SpcData, RC )\n       CALL GC_CheckVar( 'State_Chm%SpcData', 3, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    ! Nullify the State_Chm%SpcData object\n    State_Chm%SpcData => NULL()\n\n    !=======================================================================\n    ! Destroy the registry of fields for this module\n    !=======================================================================\n    CALL Registry_Destroy( State_Chm%Registry, State_Chm%RegDict, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not destroy registry object State_Chm%Registry!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Nullify the registry object\n    State_Chm%Registry => NULL()\n\n    !=======================================================================\n    ! Decrease the counter of chemistry states in this CPU\n    !=======================================================================\n    nChmState = nChmState - 1\n\n  END SUBROUTINE Cleanup_State_Chm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Metadata_State_Chm\n!\n! !DESCRIPTION: Subroutine GET\\_METADATA\\_STATE\\_CHM retrieves basic\n!  information about each State\\_Chm field.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Metadata_State_Chm( am_I_Root,  metadataID, Found,      &\n                                     RC,         Desc,       Units,      &\n                                     PerSpc,     Rank,       Type,       &\n                                     VLoc )\n!\n! !USES:\n!\n    USE Charpak_Mod,        ONLY : To_UpperCase\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)  :: am_I_Root\n    CHARACTER(LEN=*),    INTENT(IN)  :: metadataID  ! State_Chm field name\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(OUT)           :: Found   ! Item found?\n    INTEGER,             INTENT(OUT)           :: RC      ! Return code\n    CHARACTER(LEN=255),  INTENT(OUT), OPTIONAL :: Desc    ! Long name string\n    CHARACTER(LEN=255),  INTENT(OUT), OPTIONAL :: Units   ! Units string\n    CHARACTER(LEN=255),  INTENT(OUT), OPTIONAL :: PerSpc  ! Max spc wildcard\n    INTEGER,             INTENT(OUT), OPTIONAL :: Rank    ! # of dimensions\n    INTEGER,             INTENT(OUT), OPTIONAL :: Type    ! Desc of data type\n    INTEGER,             INTENT(OUT), OPTIONAL :: VLoc    ! Vert placement\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  02 Oct 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, Name_AllCaps\n    LOGICAL            :: isDesc, isUnits, isRank, isType, isVLoc, isSpc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n    ThisLoc = ' -> at Get_Metadata_State_Chm (in Headers/state_chm_mod.F90)'\n    Found   = .TRUE.\n\n    ! Optional arguments present?\n    isDesc  = PRESENT( Desc   )\n    isUnits = PRESENT( Units  )\n    isRank  = PRESENT( Rank   )\n    isType  = PRESENT( Type   )\n    isVLoc  = PRESENT( VLoc   )\n    isSpc   = PRESENT( PerSpc )\n\n    ! Set defaults for optional arguments. Assume type and vertical\n    ! location are real (flexible precision) and center unless specified\n    ! otherwise\n    IF ( isUnits ) Units  = ''\n    IF ( isDesc  ) Desc   = ''\n    IF ( isRank  ) Rank   = -1              ! Init # dims as bad value\n    IF ( isType  ) Type   = KINDVAL_FP      ! Assume flexible precision\n    IF ( isVLoc  ) VLoc   = VLocationCenter ! Assume vertically centered\n    IF ( isSpc   ) PerSpc = ''              ! Assume not per species\n\n    ! Convert name to uppercase\n    Name_AllCaps = To_Uppercase( TRIM( metadataID ) )\n\n    !=======================================================================\n    ! Values for Retrieval (string comparison slow but happens only once)\n    !=======================================================================\n    SELECT CASE ( TRIM( Name_AllCaps ) )\n\n       CASE ( 'SPECIES' )\n          IF ( isDesc  ) Desc   = 'Concentration for species'\n          IF ( isUnits ) Units  = 'varies'\n          IF ( isRank  ) Rank   = 3\n          IF ( isSpc   ) PerSpc = 'ALL'\n\n#ifdef ADJOINT\n       CASE ( 'SPECIESADJ' )\n          IF ( isDesc  ) Desc   = 'Adjoint variables for species'\n          IF ( isUnits ) Units  = 'varies'\n          IF ( isRank  ) Rank   = 3\n          IF ( isSpc   ) PerSpc = 'ALL'\n       CASE ( 'COSTFUNCMASK' )\n          IF ( isDesc    ) Desc  = 'Cost function volume mask'\n          IF ( isUnits   ) Units = 'none'\n          IF ( isRank    ) Rank  = 3\n#endif\n\n       CASE( 'BOUNDARYCOND' )\n          IF ( isDesc  ) Desc   = 'Transport boundary conditions for species'\n          IF ( isUnits ) Units  = 'kg kg-1 dry'\n          IF ( isRank  ) Rank   = 3\n          IF ( isSpc   ) PerSpc = 'ADV'\n\n       CASE ( 'AEROAREAMDUST1' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (0.15 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAMDUST2' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (0.25 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAMDUST3' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (0.4 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAMDUST4' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (0.8 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAMDUST5' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (1.5 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAMDUST6' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (2.5 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAMDUST7' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for mineral dust (4.0 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREASULF' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for black carbon'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREABC' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for black carbon'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAOC' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for organic carbon'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREASSA' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for sea salt,' &\n                                   // ' accumulation mode'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREASSC' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for sea salt, coarse mode'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREABGSULF' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for background' &\n                                   // ' stratospheric sulfate'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROAREAICEI' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for irregular ice cloud' &\n                                   // ' (Mischenko)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST1' )\n          IF ( isDesc  ) Desc  = &\n               'Dry aerosol radius for mineral dust (0.15 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST2' )\n          IF ( isDesc  ) Desc  = &\n               'Dry aerosol radius for mineral dust (0.25 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST3' )\n          IF ( isDesc  ) Desc  = &\n               'Dry aerosol radius for mineral dust (0.4 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST4' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for mineral dust (0.8 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST5' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for mineral dust (1.5 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST6' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for mineral dust (2.5 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIMDUST7' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for mineral dust (4.0 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADISULF' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for tropospheric sulfate'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIBC' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for black carbon'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIOC' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for organic carbon'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADISSA' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for sea salt,' &\n                                 // ' accumulation mode'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADISSC' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for sea salt, coarse mode'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIBGSULF' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for background' &\n                                 // ' stratospheric sulfate'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AERORADIICEI' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for irregular ice' &\n                                 // ' cloud (Mischenko)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST1' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (0.15 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST2' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (0.25 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST3' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (0.4 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST4' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (0.8 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST5' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (1.5 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST6' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (2.5 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAMDUST7' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for mineral dust (4.0 um)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREASULF' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for tropospheric sulfate'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREABC' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for black carbon'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAOC' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for organic carbon'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREASSA' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for sea salt,' &\n                                 // ' accumulation mode'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREASSC' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for sea salt, coarse mode'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREABGSULF' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for background' &\n                                 // ' stratospheric sulfate'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAEROAREAICEI' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol area for irregular ice cloud' &\n                                 // ' (Mischenko)'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST1' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (0.15 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST2' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (0.25 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST3' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (0.4 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST4' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (0.8 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST5' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (1.5 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST6' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (2.5 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIMDUST7' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for mineral dust (4.0 um)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADISULF' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for tropospheric sulfate'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIBC' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for black carbon'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIOC' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for organic carbon'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADISSA' )\n          IF ( isDesc  ) Desc= 'Wet aerosol radius for sea salt,' &\n                               // ' accumulation mode'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADISSC' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for sea salt, coarse mode'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n!       CASE ( 'WETAERORADINITS' )\n!          IF ( isDesc  ) Desc  = 'Wet aerosol radius for inorganic nitrates on' &\n!                                  // 'surface of seasalt aerosol'\n!          IF ( isUnits ) Units = 'cm'\n!          IF ( isRank  ) Rank  = 3\n!\n!       CASE ( 'WETAERORADISALACL' )\n!          IF ( isDesc  ) Desc  = 'Wet aerosol radius for chloride in Accumulation' &\n!                                  // 'mode seasalt aerosol'\n!          IF ( isUnits ) Units = 'cm'\n!          IF ( isRank  ) Rank  = 3\n!\n!       CASE ( 'WETAERORADISALCCL' )\n!          IF ( isDesc  ) Desc  = 'Wet aerosol radius for chloride in coarse' &\n!                                  // 'mode seasalt aerosol'\n!          IF ( isUnits ) Units = 'cm'\n!          IF ( isRank  ) Rank  = 3\n!\n!       CASE ( 'WETAERORADISO4S' )\n!          IF ( isDesc  ) Desc  = 'Wet aerosol radius for sulfate  on' &\n!                                  // 'surface of seasalt aerosol'\n!          IF ( isUnits ) Units = 'cm'\n!          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIBGSULF' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for background' &\n                                // ' stratospheric sulfate'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'WETAERORADIICEI' )\n          IF ( isDesc  ) Desc  = 'Wet aerosol radius for irregular ice cloud' &\n                                // ' (Mischenko)'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST1' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (0.15 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST2' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (0.25 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST3' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (0.4 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST4' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (0.8 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST5' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (1.5 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST6' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (2.5 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OMDUST7' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for mineral dust (4.0 um)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OSNA' )\n          IF ( isDesc  ) Desc  = 'Sulfur-nitrogen-ammonia aerosol water content'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OBC' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for black carbon'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OOC' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for organic carbon'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OSSA' )\n          IF ( isDesc  ) Desc= 'Aerosol H2O content for sea salt,' &\n                               // ' accumulation mode'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OSSC' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for sea salt, coarse mode'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OBGSULF' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for background' &\n                                // ' stratospheric sulfate'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'AEROH2OICEI' )\n          IF ( isDesc  ) Desc  = 'Aerosol H2O content for irregular ice cloud' &\n                                // ' (Mischenko)'\n          IF ( isUnits ) Units = 'cm3(H2O) cm-3(air)'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'SOILDUST1' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 1'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SOILDUST2' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 2'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SOILDUST3' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 3'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SOILDUST4' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 4'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SOILDUST5' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 5'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SOILDUST6' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 6'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SOILDUST7' )\n          IF ( isDesc  ) Desc  = 'Dust aerosol concentration in bin 7'\n          IF ( isUnits ) Units = 'kg/m3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'GAMMAN2O5OVERALL' )\n          IF ( isDesc  ) Desc = 'Sticking coefficient for Gamma N2O5 overall'\n          IF ( isUnits ) Units = 'l'\n          IF ( isRank  ) Rank = 3\n\n       CASE ( 'GAMMAN2O5FINE' )\n          IF ( isDesc  ) Desc = 'Sticking coefficient for Gamma N2O5 and fine aerosol'\n          IF ( isUnits ) Units = 'l'\n          IF ( isRank  ) Rank = 3\n\n       CASE ( 'YIELDCLNO2FINE' )\n          IF ( isDesc  ) Desc = 'Production yield coefficient for ClNO2 ' &\n                               // ' from N2O5 fine aerosol uptake'\n          IF ( isUnits ) Units = 'l'\n          IF ( isRank  ) Rank = 3\n\n       CASE ( 'KPPHVALUE' )\n          IF ( isDesc  ) Desc  = 'H-value for Rosenbrock solver'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'OMOC' )\n          IF ( isDesc  ) Desc  = 'OM:OC ratio as read by HEMCO (from /aerosol_mod.F90)'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'OMOCPOA' )\n          IF ( isDesc  ) Desc  = 'OM:OC ratio for POA (from /aerosol_mod.F90)'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'OMOCOPOA' )\n          IF ( isDesc  ) Desc  = 'OM:OC ratio for OPOA (from /aerosol_mod.F90)'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'STATEPSC' )\n          IF ( isDesc  ) Desc  = 'Polar stratospheric cloud type (cf Kirner' &\n                                // ' et al 2011, GMD)'\n          IF ( isUnits ) Units = 'count'\n          IF ( isRank  ) Rank  = 3\n          IF ( isType ) Type = KINDVAL_F4\n\n       CASE ( 'KHETISLAN2O5H2O' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for N2O5 + H2O reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLAN2O5HCL' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for N2O5 + H2O reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLACLNO3H2O' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for ClNO3 + H2O reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLACLNO3HCL' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for ClNO3 + HCl reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLACLNO3HBR' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for ClNO3 + HBr reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLABRNO3H2O' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for BrNO3 + H2O reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLABRNO3HCL' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for BrNO3 + HCl reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLAHOCLHCL' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for HOCl + HCl reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLAHOCLHBR' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for HClr + HBr reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLAHOBRHCL' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for HOBr + HCl reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'KHETISLAHOBRHBR' )\n          IF ( isDesc  ) Desc  = 'Sticking coefficient for HOBr + HBr reaction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPAEROPHACCUM' )\n          IF ( isDesc  ) Desc  = 'ISORROPIA aerosol pH, accumulation mode'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPAEROPHCOARSE' )\n          IF ( isDesc  ) Desc  = 'ISORROPIA aerosol pH, accumulation mode'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPHPLUSACCUM' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA H+ concentration, accumulation mode'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPHPLUSCOARSE' )\n          IF ( isDesc  ) Desc  = 'ISORROPIA H+ concentration, coarse mode'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPAEROH2OACCUM' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA aerosol water concentration, accumulation mode'\n          IF ( isUnits ) Units = 'ug m-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPAEROH2OCOARSE' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA aerosol water concentration, coarse mode'\n          IF ( isUnits ) Units = 'ug m-3'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPSULFATE' )\n          IF ( isDesc  ) Desc  = 'ISORROPIA sulfate concentration'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPNITRATEACCUM' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA nitrate concentration, accumulation mode'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPNITRATECOARSE' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA nitrate concentration, coarse mode'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPCHLORIDEACCUM' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA chloride concentration, accumulation mode'\n          IF ( isUnits ) Units = 'mol/L'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPCHLORIDECOARSE' )\n          IF ( isDesc  ) Desc  = &\n             'ISORROPIA chloride concentration, coarse mode'\n          IF ( isUnits ) Units = 'mol/L'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'ISORROPBISULFATE' )\n          IF ( isDesc  ) Desc  = 'ISORROPIA Bisulfate (general acid)' &\n                                 // ' concentration'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE( 'PHCLOUD' )\n          IF ( isDesc  ) Desc  = 'Cloud pH'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE( 'QLXPHCLOUD' )\n          IF ( isDesc  ) Desc  = 'Cloud pH * Met_QL'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE( 'ORVCSESQ' )\n          IF ( isDesc  ) Desc  = 'Sesquiterpenes mass'\n          IF ( isUnits ) Units = 'kg'\n          IF ( isRank  ) Rank  =  3\n\n       CASE( 'ISCLOUD' )\n          IF ( isDesc  ) Desc  = 'Cloud presence'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE( 'SSALKACCUMMODE' )\n          IF ( isDesc  ) Desc  = 'Sea salt alkalinity, accumulation mode'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE( 'SSALKCOARSEMODE' )\n          IF ( isDesc  ) Desc  = 'Sea salt alkalinity, coarse mode'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'HSO3AQ' )\n          IF ( isDesc  ) Desc  = 'Cloud bisulfite concentration'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SO3AQ' )\n          IF ( isDesc  ) Desc  = 'Cloud sulfite concentration'\n          IF ( isUnits ) Units = 'mol L-1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'FUPDATEHOBR' )\n          IF ( isDesc  ) Desc  = 'Correction factor for HOBr removal by SO2'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'FUPDATEHOCL' )\n          IF ( isDesc  ) Desc  = 'Correction factor for HOCl removal by SO2'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'ACLAREA' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol area for fine mode Cl-'\n          IF ( isUnits ) Units = 'cm2 cm-3'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'ACLRADI' )\n          IF ( isDesc  ) Desc  = 'Dry aerosol radius for fine mode Cl-'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'H2O2AFTERCHEM' )\n          IF ( isDesc  ) Desc  = 'H2O2 after sulfate chemistry'\n          IF ( isUnits ) Units = 'mol mol-1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'SO2AFTERCHEM' )\n          IF ( isDesc  ) Desc  = 'SO2 after sulfate chemistry'\n          IF ( isUnits ) Units = 'mol mol-1'\n          IF ( isRank  ) Rank  =  3\n\n       CASE ( 'DRYDEPNITROGEN' )\n          IF ( isDesc  ) Desc  = 'Dry deposited nitrogen'\n          IF ( isUnits ) Units = 'molec cm-2 s-1'\n          IF ( isRank  ) Rank  =  2\n\n       CASE ( 'WETDEPNITROGEN' )\n          IF ( isDesc  ) Desc  = 'Wet deposited nitrogen'\n          IF ( isUnits ) Units = 'molec cm-2 s-1'\n          IF ( isRank  ) Rank  =  2\n\n       CASE( 'OCEANHG0' )\n          IF ( isDesc  ) Desc   = 'Hg(0) ocean mass'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE( 'OCEANHG2' )\n          IF ( isDesc  ) Desc   = 'Hg(II) ocean mass'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE( 'OCEANHGP' )\n          IF ( isDesc  ) Desc   = 'HgP ocean mass'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE( 'SNOWHGOCEAN' )\n          IF ( isDesc  ) Desc   = 'Reducible Hg snowpack on ocean'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE( 'SNOWHGLAND' )\n          IF ( isDesc  ) Desc   = 'Reducible Hg snowpack on land'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE( 'SNOWHGOCEANSTORED' )\n          IF ( isDesc  ) Desc   = 'Non-reducible Hg snowpack on ocean'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE( 'SNOWHGLANDSTORED' )\n          IF ( isDesc  ) Desc   = 'Non-reducible Hg snowpack on land'\n          IF ( isUnits ) Units  = 'kg'\n          IF ( isRank  ) Rank   = 2\n\n       CASE ( 'IODIDE' )\n          IF ( isDesc  ) Desc  = 'Surface iodide concentration'\n          IF ( isUnits ) Units = 'nM'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SALINITY' )\n          IF ( isDesc  ) Desc  = 'Salinity'\n          IF ( isUnits ) Units = 'PSU'\n          IF ( isRank  ) Rank  = 2\n\n       CASE( 'DRYDEPFREQ' )\n          IF ( isDesc  ) Desc   = 'Dry deposition frequencies'\n          IF ( isUnits ) Units  = 's-1'\n          IF ( isRank  ) Rank   = 2\n          IF ( isSpc   ) perSpc = 'DRY'\n\n       CASE( 'DRYDEPVEL' )\n          IF ( isDesc    ) Desc   = 'Dry deposition velocities'\n          IF ( isUnits   ) Units  = 'm s-1'\n          IF ( isRank    ) Rank   = 2\n          IF ( isSpc     ) perSpc = 'DRY'\n          IF ( isType    ) type   = KINDVAL_F8\n\n#ifdef MODEL_GEOS\n       CASE( 'DRYDEPRA2M' )\n          IF ( isDesc    ) Desc  = '2 meter aerodynamic resistance'\n          IF ( isUnits   ) Units = 's cm-1'\n          IF ( isRank    ) Rank  = 2\n\n       CASE( 'DRYDEPRA10M' )\n          IF ( isDesc    ) Desc  = '10 meter aerodynamic resistance'\n          IF ( isUnits   ) Units = 's cm-1'\n          IF ( isRank    ) Rank  = 2\n\n#endif\n       CASE( 'JOH' )\n          IF ( isDesc    ) Desc  = 'Surface J-values for reaction O3 + hv --> O2 + O'\n          IF ( isUnits   ) Units = '1'\n          IF ( isRank    ) Rank  = 2\n\n       CASE( 'JNO2' )\n          IF ( isDesc    ) Desc  = 'Surface J-values for reaction NO2 + hv --> NO + O'\n          IF ( isUnits   ) Units = '1'\n          IF ( isRank    ) Rank  = 2\n\n       CASE( 'SURFACEFLUX' )\n          IF ( isDesc  ) Desc   = 'Surface flux (E-D) for non-local PBL mixing'\n          IF ( isUnits ) Units  = 'kg m-2 s-1'\n          IF ( isRank  ) Rank   = 2\n          IF ( isSpc   ) perSpc = 'ADV'\n\n       CASE( 'TLSTT' )\n          IF ( isDesc  ) Desc  = 'TLSTT'\n          IF ( isUnits ) Units = ''\n          IF ( isRank  ) Rank  = 4\n\n       CASE( 'QQ3D' )\n          IF ( isDesc  ) Desc  = 'Rate of new precipitation formation'\n          IF ( isUnits ) Units = 'cm3 H2O cm-3 air'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'KRATE' )\n          IF ( isDesc  ) Desc  = 'KRATE'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'PHRAIN' )\n          IF ( isDesc  ) Desc  = 'Rain pH'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'QQPHRAIN' )\n          IF ( isDesc  ) Desc  = 'QQRain pH'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE( 'QQRAIN' )\n          IF ( isDesc  ) Desc  = 'QQRain'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n#if defined(MODEL_CESM)\n       CASE( 'H2SO4_PRDR' )\n          IF ( isDesc  ) Desc  = 'H2SO4 production rate in timestep'\n          IF ( isUnits ) Units = 'mol mol-1'\n          IF ( isRank  ) Rank  = 3\n#endif\n\n       CASE( 'TSTRAT_ADJ' )\n          IF ( isDesc  ) Desc  = 'Strat T adjustment'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 3\n\n       CASE DEFAULT\n          Found = .False.\n          ErrMsg = 'Metadata not found for State_Chm field ' // &\n                   TRIM( metadataID ) // ' when search for all caps name ' &\n                   // TRIM( Name_AllCaps )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          IF ( RC /= GC_SUCCESS ) RETURN\n\n    END SELECT\n\n   END SUBROUTINE Get_Metadata_State_Chm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_2D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 2-dimensional array fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_2D( Input_Opt, State_Chm, State_Grid,      &\n                                      Ptr2Data,  chmId,     RC,              &\n                                      noRegister                            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chemistry State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: chmId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),         POINTER     :: Ptr2Data(:,:)       ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R4_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Chm%' // TRIM( chmId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( NX, NY ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f4\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_ChmField( Input_Opt, chmId, Ptr2Data, State_Chm, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_3D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 3-dimensional array fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_3D( Input_Opt, State_Chm, State_Grid,      &\n                                      Ptr2Data,  chmId,     RC,              &\n                                      nSlots,    nCat,      noRegister      )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chemistry State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: chmId               ! Field name\n    INTEGER,          OPTIONAL    :: nSlots              ! # slots, 3rd dim\n    INTEGER,          OPTIONAL    :: nCat                ! Category index\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),         POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY, NZ, NW\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R4_3D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Chm%' // TRIM( chmId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array ID and dimensions\n       ! If optional nSlots is passed, use it for the 3rd dimension\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n       IF ( PRESENT( nSlots ) ) THEN\n          NW = nSlots\n       ELSE\n          NW = State_Grid%NZ\n       ENDIF\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( NX, NY, NW ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f4\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_ChmField( Input_Opt, chmId, Ptr2Data,                   &\n                               State_Chm, RC,    nCat=nCat                  )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_4D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 4-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_4D( Input_Opt, State_Chm, State_Grid,      &\n                                      Ptr2Data,  chmId,     nSlots,          &\n                                      RC,        nCat,      noRegister      )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chemistry State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: chmId               ! Field name\n\n    INTEGER,          INTENT(IN)  :: nSlots              ! # of slots, 4th dim\n    INTEGER,          OPTIONAL    :: nCat                ! Optional category\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),         POINTER     :: Ptr2Data(:,:,:,:)   ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY, NZ\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R4_4D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Chm%' // TRIM( chmId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n       NZ = State_Grid%NZ\n\n       ALLOCATE( Ptr2Data( NX, NY, NZ, nSlots ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f4\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_ChmField( Input_Opt, chmId, Ptr2Data,                   &\n                               State_Chm, RC,    nCat=nCat                  )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_2D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 8-byte, 2-dimensional fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_2D( Input_Opt, State_Chm, State_Grid,      &\n                                      Ptr2Data,  chmId,     RC,              &\n                                      noRegister                            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chemistry State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: chmId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),         POINTER     :: Ptr2Data(:,:)       ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !=======================================================================\n    ! Init_and_Register_R8_2D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Chm%' // TRIM( chmId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !=======================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !=======================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n\n       ! Allocate the data\n       ALLOCATE( Ptr2Data( NX, NY ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f8\n\n    ENDIF\n\n    !=======================================================================\n    ! Register the field\n    !=======================================================================\n    IF ( doRegister ) THEN\n       CALL Register_ChmField( Input_Opt, chmId, Ptr2Data, State_Chm, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_3D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 2-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_3D( Input_Opt, State_Chm, State_Grid,      &\n                                      Ptr2Data,  chmId,     RC,              &\n                                      nSlots,    nCat,      noRegister      )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chemistry State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: chmId               ! Field name\n    INTEGER,          OPTIONAL    :: nSlots              ! # slots, 3rd dim\n    INTEGER,          OPTIONAL    :: nCat                ! Category index\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),         POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY, NZ, NW\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R8_3D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Chm%' // TRIM( chmId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n       IF ( PRESENT( nSlots ) ) THEN\n          NW = nSlots\n       ELSE\n          NW = State_Grid%NZ\n       ENDIF\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( NX, NY, NW ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f8\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_ChmField( Input_Opt, chmId, Ptr2Data,                   &\n                               State_Chm, RC,    nCat=nCat                  )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_4D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 2-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_4D( Input_Opt, State_Chm, State_Grid,      &\n                                      Ptr2Data,  chmId,     nSlots,          &\n                                      RC,        nCat,      noRegister      )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm           ! Chemistry State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: chmId               ! Field name\n    INTEGER,          INTENT(IN)  :: nSlots              ! # of slots, 4th dim\n    INTEGER,          OPTIONAL    :: nCat                ! Optional category\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),         POINTER     :: Ptr2Data(:,:,:,:)   ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success/failure!\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY, NZ\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R8_4D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Chm%' // TRIM( chmId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n       NZ = State_Grid%NZ\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( NX, NY, NZ, nSlots ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f8\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_ChmField( Input_Opt, chmId, Ptr2Data,                   &\n                               State_Chm, RC,    nCat=nCat                  )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Test_for_Species_Dim\n!\n! !DESCRIPTION: Returns true if a State_Chm quantity has a species dimension.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Test_for_Species_Dim( perSpc ) RESULT( returnCode )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: perSpc      ! PerSpc value from metadata\n!\n! !RETURN VALUE:\n!\n    INTEGER                      :: returnCode  !  1  = has species dimension\n                                                !  0  = no species dimension\n                                                ! -1  = unknown perSpc value\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    SELECT CASE( TRIM( perSpc ) )\n       CASE( 'ADV', 'ALL', 'DRY', 'WET' )\n          returnCode = 1\n       CASE( '' )\n          returnCode = 0\n       CASE DEFAULT\n          returnCode = -1\n    END SELECT\n\n  END FUNCTION Test_For_Species_Dim\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_NumSlots\n!\n! !DESCRIPTION: Returns the number of slots with which to define a\n!  species-based array of State_Chm.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Get_NumSlots( perSpc, State_Chm ) RESULT( nSlots )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: perSpc      ! PerSpc value from metadata\n    TYPE(ChmState),   INTENT(IN) :: State_Chm   ! Chemistry State object\n!\n! !RETURN VALUE:\n!\n    INTEGER                      :: nSlots      ! Number of slots\n\n! !REVISION HISTORY:\n!  23 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    SELECT CASE( TRIM( perSpc ) )\n       CASE( 'ADV'   )\n          nSlots = State_Chm%nAdvect\n       CASE( 'ALL'   )\n          nSlots = State_Chm%nSpecies\n       CASE( 'DRY'   )\n          nSlots = State_Chm%nDryDep\n       CASE( 'WET'   )\n          nSlots = State_Chm%nWetDep\n       CASE DEFAULT\n          nSlots = -1\n    END SELECT\n\n  END FUNCTION Get_NumSlots\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Diagnostic_Name\n!\n! !DESCRIPTION: Returns the diagnostic name and description of a species-based\n!  quantity (appending the species to the base name if necessary).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Diagnostic_Name( State_Chm, perSpc,    N,        name,      &\n                                  desc,      diagName,  diagDesc            )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ChmState),     INTENT(IN)  :: State_Chm  ! Chemistry State\n    CHARACTER(LEN=*),   INTENT(IN)  :: perSpc     ! PerSpc value from metadata\n    INTEGER,            INTENT(IN)  :: N          ! Diagnostic index\n    CHARACTER(LEN=*),   INTENT(IN)  :: name       ! Name from metadata\n    CHARACTER(LEN=*),   INTENT(IN)  :: desc       ! Description from metadata\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=255), INTENT(OUT) :: diagName   ! Name        + species name\n    CHARACTER(LEN=255), INTENT(OUT) :: diagDesc   ! Description + species name\n!\n! !REVISION HISTORY:\n!  20 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: modelId\n\n    ! Objects\n    TYPE(Species), POINTER :: ThisSpc\n\n    !---------------------------------------------------------------------\n    ! All other species-bound quantities\n    !---------------------------------------------------------------------\n\n    ! Get the species index from the diagnostic index\n    ! depending on the value of PerSpc (bmy, 05 Oct 2021)\n    modelId = N\n    IF ( PerSpc == 'DRY' ) modelId = State_Chm%Map_DryDep(N)\n    IF ( PerSpc == 'WET' ) modelId = State_Chm%Map_WetDep(N)\n    \n    ! Point to the proper species, by modelId\n    ThisSpc => State_Chm%SpcData(modelId)%Info\n\n    ! Append the species name to the diagnostic name with an underscore\n    diagName = TRIM( name ) // '_' // TRIM( ThisSpc%Name )\n\n    ! Append the species name to the diagnostic description\n    diagDesc = TRIM( desc ) // ' ' // TRIM( ThisSpc%Name )\n\n    ! Free pointer\n    ThisSpc => NULL()\n\n  END SUBROUTINE Get_Diagnostic_Name\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_ChmField_R4_2D\n!\n! !DESCRIPTION: Registers a 2-dimensional, 4-byte real array field\n!  of the State\\_Chm object.  This allows the diagnostic modules get\n!  a pointer to the field by searching on the field name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_ChmField_R4_2D( Input_Opt, metadataID, Ptr2Data,       &\n                                      State_Chm, RC                         )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt         ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID        ! State_Chm field ID\n    REAL(f4),         POINTER     :: Ptr2Data(:,:)     ! Pointer to data\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm         ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,       onEdges\n    INTEGER            :: N,           rank,        hasSpeciesDim\n    INTEGER            :: type,        vloc\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_reg,  thisLoc,     desc\n    CHARACTER(LEN=255) :: thisSpcName, thisSpcDesc, perSpc\n    CHARACTER(LEN=255) :: units\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Chm%'\n    thisLoc    = &\n       ' -> at Register_ChmField_R4_2D (in Headers/state_chm_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Chm(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perSpc     = perSpc,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( vLoc == VLocationEdge )\n\n    ! Test if the data has a species dimension\n    hasSpeciesDim = Test_For_Species_Dim( perSpc )\n\n    !------------------------------------------------------------------------\n    ! If not tied to species then simply register the single field\n    !------------------------------------------------------------------------\n    IF ( hasSpeciesDim == 0 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 2 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            Data2d_4     = Ptr2Data,                                         &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !------------------------------------------------------------------------\n    ! Otherwise exit with error\n    !------------------------------------------------------------------------\n    ELSE\n\n       ! Error msg\n       ErrMsg = 'Handling of PerSpc metadata ' // TRIM(perSpc) //    &\n                ' is not implemented for this combo of data type and size'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Register_ChmField_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_ChmField_R4_3D\n!\n! !DESCRIPTION: Registers a 3-dimensional, 4-byte floating point array field\n!  of the State\\_Chm object.  This allows the diagnostic modules get a pointer\n!  to the field by searching on the field name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_ChmField_R4_3D( Input_Opt,  metadataID, Ptr2Data,      &\n                                      State_Chm,  RC,         nCat          )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt        ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID       ! State_Chm field ID\n    REAL(f4),         POINTER     :: Ptr2Data(:,:,:)  ! pointer to data\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm        ! Chemistry State\n    INTEGER,          OPTIONAL    :: nCat             ! Category index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC               ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,       onEdges\n    INTEGER            :: N,           rank,        type\n    INTEGER            :: vloc,        nSlots,      hasSpeciesDim\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_reg,  thisLoc,     desc\n    CHARACTER(LEN=255) :: thisSpcName, thisSpcDesc, perSpc\n    CHARACTER(LEN=255) :: units\n    CHARACTER(LEN=512) :: errMsg\n\n    !=========================================================================\n    ! Initialize\n    !=========================================================================\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Chm%'\n    thisLoc    = &\n       ' -> at Register_ChmField_R4_3D (in Headers/state_chm_mod.F90)'\n\n    !=========================================================================\n    ! Get metadata\n    !=========================================================================\n    CALL Get_MetaData_State_Chm(                                              &\n         am_I_Root  = Input_Opt%amIRoot,                                      &\n         metadataId = metadataId,                                             &\n         found      = found,                                                  &\n         desc       = desc,                                                   &\n         units      = units,                                                  &\n         rank       = rank,                                                   &\n         type       = type,                                                   &\n         vloc       = vloc,                                                   &\n         perSpc     = perSpc,                                                 &\n         RC         = RC                                                     )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Test if the quantity has a species dimension\n    hasSpeciesDim = Test_for_Species_Dim( perSpc )\n\n    !------------------------------------------------------------------------\n    ! If tied to a given category, only register that one\n    !------------------------------------------------------------------------\n    IF ( PRESENT( nCat ) ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 2 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data2d_4     = Ptr2Data(:,:,nCat),                               &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                   '; Abnormal exit from Registry_AddField!'\n          CALL GC_Error( ErrMsg_reg, RC, ThisLoc )\n          RETURN\n      ENDIF\n\n    !------------------------------------------------------------------------\n    ! If tied to a particular species, register each species individually\n    !------------------------------------------------------------------------\n    ELSE IF ( hasSpeciesDim == 1 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 2 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Get the length of the species-based dimension\n       nSlots = Get_NumSlots( perSpc, State_Chm )\n\n       ! Loop over all species\n       DO N = 1, nSlots\n\n          ! Append the species name to the diagnostic name & description\n          CALL Get_Diagnostic_Name(                                          &\n               State_Chm    = State_Chm,                                     &\n               perSpc       = perSpc,                                        &\n               N            = N,                                             &\n               name         = metaDataId,                                    &\n               desc         = desc,                                          &\n               diagName     = thisSpcName,                                   &\n               diagDesc     = thisSpcDesc                                   )\n\n          ! Add field to registry\n          CALL Registry_AddField( &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Chm%Registry,                            &\n               State        = State_Chm%State,                               &\n               Variable     = TRIM( thisSpcName ),                           &\n               Description  = TRIM( thisSpcDesc ),                           &\n               Units        = TRIM( units       ),                           &\n               OnLevelEdges = onEdges,                                       &\n               Data2d_4     = Ptr2Data(:,:,N),                               &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //            &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDDO\n\n    !------------------------------------------------------------------------\n    ! If not tied to species then simply register the single field\n    !------------------------------------------------------------------------\n    ELSE IF ( hasSpeciesDim == 0 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 3 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Is the data placed on vertical edges?\n       onEdges = ( vLoc == VLocationEdge )\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            Data3d_4     = Ptr2Data,                                         &\n            OnLevelEdges = onEdges,                                          &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Otherwise exit with error\n    !-----------------------------------------------------------------------\n    ELSE\n\n       ! Error msg\n       ErrMsg = 'Handling of PerSpc metadata ' // TRIM(perSpc) //    &\n                ' is not implemented for this combo of data type and size'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Register_ChmField_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_ChmField_R4_4D\n!\n! !DESCRIPTION: Registers a 4-dimensional, 4-byte real array field\n!  of the State\\_Chm object.  This allows the diagnostic modules get\n!  a pointer to the field by searching on the field name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_ChmField_R4_4D( Input_Opt,  metadataID, Ptr2Data,     &\n                                      State_Chm,  RC,         Ncat         )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt         ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID        ! State_Chm field Id\n    REAL(f4),         POINTER     :: Ptr2Data(:,:,:,:) ! Pointer to data\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm         ! Chemistry State\n    INTEGER,          OPTIONAL    :: Ncat              ! Category index\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,       onEdges\n    INTEGER            :: N,           rank,        hasSpeciesDim\n    INTEGER            :: type,        vloc,        nSlots\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_reg,  thisLoc,     desc\n    CHARACTER(LEN=255) :: thisSpcName, thisSpcDesc, perSpc\n    CHARACTER(LEN=255) :: units\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Chm%'\n    thisLoc    = &\n       ' -> at Register_ChmField_R4_4D (in Headers/state_chm_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Chm(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perSpc     = perSpc,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Test if the quantity has a species dimension\n    hasSpeciesDim = Test_For_Species_Dim( perSpc )\n\n    !------------------------------------------------------------------------\n    ! Check that metadata consistent with data size\n    !------------------------------------------------------------------------\n    IF ( rank /= 3 ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for ' &\n                // TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on level edges?\n    onEdges = ( VLoc == VLocationEdge )\n\n    !------------------------------------------------------------------------\n    ! If tied to a given category, only registry that one\n    !------------------------------------------------------------------------\n    IF ( PRESENT( Ncat ) ) THEN\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data3d_4     = Ptr2Data(:,:,:,Ncat),                             &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                   '; Abnormal exit from Registry_AddField!'\n          CALL GC_Error( ErrMsg_reg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !------------------------------------------------------------------------\n    ! If tied to a particular species, register each species individually\n    !------------------------------------------------------------------------\n    ELSE IF ( hasSpeciesDim == 1 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 3 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Get the length of the species-based dimension\n       nSlots = Get_NumSlots( perSpc, State_Chm )\n\n       ! Loop over all species\n       DO N = 1, nSlots\n\n          ! Append the species name to the diagnostic name & description\n          CALL Get_Diagnostic_Name(                                          &\n               State_Chm    = State_Chm,                                     &\n               perSpc       = perSpc,                                        &\n               N            = N,                                             &\n               name         = TRIM( metaDataId ),                            &\n               desc         = TRIM( desc       ),                            &\n               diagName     = thisSpcName,                                   &\n               diagDesc     = thisSpcDesc                                   )\n\n          ! Add field to registry\n          CALL Registry_AddField( &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Chm%Registry,                            &\n               State        = State_Chm%State,                               &\n               Variable     = TRIM( thisSpcName ),                           &\n               Description  = TRIM( thisSpcDesc ),                           &\n               Units        = TRIM( units       ),                           &\n               OnLevelEdges = onEdges,                                       &\n               Data3d_4     = Ptr2Data(:,:,:,N),                             &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //            &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDDO\n\n    !------------------------------------------------------------------------\n    ! Otherwise, exit with error\n    !------------------------------------------------------------------------\n    ELSE\n\n       ! Error msg\n       ErrMsg = 'Handling of PerSpc metadata ' // TRIM(perSpc) // &\n                ' is not implemented for this combo of data type and size!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Register_ChmField_R4_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_ChmField_R8_2D\n!\n! !DESCRIPTION: Registers a 2-dimensional, 8-byte real array field\n!  of the State\\_Chm object.  This allows the diagnostic modules get\n!  a pointer to the field by searching on the field name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_ChmField_R8_2D( Input_Opt, metadataID, Ptr2Data,       &\n                                      State_Chm, RC                         )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt       ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID      ! State_Chm field ID\n    REAL(f8),         POINTER     :: Ptr2Data(:,:)   ! Pointer to data\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm       ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC              ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,       onEdges\n    INTEGER            :: N,           rank,        hasSpeciesDim\n    INTEGER            :: type,        vloc\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_reg,  thisLoc,     desc\n    CHARACTER(LEN=255) :: thisSpcName, thisSpcDesc, perSpc\n    CHARACTER(LEN=255) :: units\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Chm%'\n    thisLoc    = &\n       ' -> at Register_ChmField_R8_2D (in Headers/state_chm_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Chm(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perSpc     = perSpc,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( vLoc == VLocationEdge )\n\n    ! Test if the quantity has a species dimension\n    hasSpeciesDim = Test_for_Species_Dim( perSpc )\n\n    !------------------------------------------------------------------------\n    ! If not tied to species then simply register the single field\n    !------------------------------------------------------------------------\n    IF ( hasSpeciesDim == 0 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 2 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            Data2d_8     = Ptr2Data,                                         &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !------------------------------------------------------------------------\n    ! Otherwise exit with error\n    !------------------------------------------------------------------------\n    ELSE\n\n       ! Error msg\n       ErrMsg = 'Handling of PerSpc metadata ' // TRIM(perSpc) //    &\n                ' is not implemented for this combo of data type and size'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Register_ChmField_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_ChmField_R8_3D\n!\n! !DESCRIPTION: Registers a 3-dimensional, 8-byte floating point array field\n!  of the State\\_Chm object.  This allows the diagnostic modules get a pointer\n!  to the field by searching on the field name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_ChmField_R8_3D( Input_Opt, metadataID, Ptr2Data,       &\n                                      State_Chm, RC,         nCat           )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),    INTENT(IN)  :: Input_Opt       ! Input Options object\n    CHARACTER(LEN=*),  INTENT(IN)  :: metadataID      ! State_Chm field ID\n    REAL(f8),          POINTER     :: Ptr2Data(:,:,:) ! Pointer to data\n    TYPE(ChmState),    INTENT(IN)  :: State_Chm       ! Chemistry State\n    INTEGER,           OPTIONAL    :: nCat            ! Category index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,           INTENT(OUT) :: RC              ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,       onEdges\n    INTEGER            :: N,           rank,        hasSpeciesDim\n    INTEGER            :: type,        vloc,        nSlots\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_reg,  thisLoc,     desc\n    CHARACTER(LEN=255) :: thisSpcName, thisSpcDesc, perSpc\n    CHARACTER(LEN=255) :: units\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC         = GC_SUCCESS\n    ErrMsg     = ''\n    ErrMsg_reg = 'Error encountered while registering State_Chm%'\n    ThisLoc    = &\n       ' -> at Register_ChmField_R8_3D (in Headers/state_chm_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Chm(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perSpc     = perSpc,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( vLoc == VLocationEdge )\n\n    ! Test if the data has a species dimension\n    hasSpeciesDim = Test_for_Species_Dim( perSpc )\n\n    !------------------------------------------------------------------------\n    ! If tied to a given category, only registry that one\n    !------------------------------------------------------------------------\n    IF ( PRESENT( nCat ) ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 2 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data2d_8     = Ptr2Data(:,:,nCat),                               &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                   '; Abnormal exit from Registry_AddField!'\n          CALL GC_Error( ErrMsg_reg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !------------------------------------------------------------------------\n    ! If tied to a particular species, register each species individually\n    !------------------------------------------------------------------------\n    ELSE IF ( hasSpeciesDim == 1 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 2 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Get the length of the species-based dimension\n       nSlots = Get_NumSlots( perSpc, State_Chm )\n\n       ! Loop over all species\n       DO N = 1, nSlots\n\n          ! Append the species name to the diagnostic name & description\n          CALL Get_Diagnostic_Name(                                          &\n               State_Chm    = State_Chm,                                     &\n               perSpc       = perSpc,                                        &\n               N            = N,                                             &\n               name         = TRIM( metaDataId ),                            &\n               desc         = TRIM( desc       ),                            &\n               diagName     = thisSpcName,                                   &\n               diagDesc     = thisSpcDesc                                   )\n\n          ! Add field to registry\n          CALL Registry_AddField( &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Chm%Registry,                            &\n               State        = State_Chm%State,                               &\n               Variable     = TRIM( thisSpcName ),                           &\n               Description  = TRIM( thisSpcDesc ),                           &\n               Units        = TRIM( units       ),                           &\n               OnLevelEdges = onEdges,                                       &\n               Data2d_8     = Ptr2Data(:,:,N),                               &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //            &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDDO\n\n    !------------------------------------------------------------------------\n    ! If not tied to species then simply register the single field\n    !------------------------------------------------------------------------\n    ELSE IF ( hasSpeciesDim == 0 ) THEN\n\n       ! Check that metadata consistent with data size\n       IF ( rank /= 3 ) THEN\n          ErrMsg = 'Data dims and metadata rank do not match for '           &\n                   // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Is the data placed on vertical edges?\n       onEdges = ( vLoc == VLocationEdge )\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            Data3d_8     = Ptr2Data,                                         &\n            OnLevelEdges = onEdges,                                          &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Otherwise exit with error\n    !-----------------------------------------------------------------------\n    ELSE\n\n       ! Error msg\n       ErrMsg = 'Handling of PerSpc metadata ' // TRIM(perSpc) //    &\n                ' is not implemented for this combo of data type and size'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Register_ChmField_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_ChmField_R8_4D\n!\n! !DESCRIPTION: Registers a 4-dimensional, 8-byte real array field\n!  of the State\\_Chm object.  This allows the diagnostic modules get\n!  a pointer to the field by searching on the field name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_ChmField_R8_4D( Input_Opt,  metadataID, Ptr2Data,      &\n                                      State_Chm,  RC,         Ncat          )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt         ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)    :: metadataID        ! State_Chm field ID\n    REAL(f8),         POINTER       :: Ptr2Data(:,:,:,:) ! Pointer to data\n    TYPE(ChmState),   INTENT(IN)    :: State_Chm         ! Chemistry State\n    INTEGER,          OPTIONAL      :: Ncat              ! Category index\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC                ! Success or failure?\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,       onEdges\n    INTEGER            :: N,           rank,        hasSpeciesDim\n    INTEGER            :: type,        vloc,        nSlots\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_reg,  thisLoc,     desc\n    CHARACTER(LEN=255) :: thisSpcName, thisSpcDesc, perSpc\n    CHARACTER(LEN=255) :: units\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Chm%'\n    thisLoc    = &\n       ' -> at Register_ChmField_R8_4D (in Headers/state_chm_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Chm(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perSpc     = perSpc,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Chm\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Check that metadata consistent with data size\n    !------------------------------------------------------------------------\n    IF ( rank /= 3 ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for ' &\n                // TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on level edges?\n    onEdges = ( VLoc == VLocationEdge )\n\n    ! Test if the quantity has a species dimension\n    hasSpeciesDim = Test_for_Species_Dim( perSpc )\n\n    !------------------------------------------------------------------------\n    ! If tied to a given category, only registry that one\n    !------------------------------------------------------------------------\n    IF ( PRESENT( Ncat ) ) THEN\n\n       ! Add field to registry\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Chm%Registry,                               &\n            State        = State_Chm%State,                                  &\n            Variable     = TRIM( metadataID ),                               &\n            Description  = TRIM( desc       ),                               &\n            Units        = TRIM( units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data3d_8     = Ptr2Data(:,:,:,Ncat),                             &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n                   '; Abnormal exit from Registry_AddField!'\n          CALL GC_Error( ErrMsg_reg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    !------------------------------------------------------------------------\n    ! If tied to a particular species, register each species individually\n    !------------------------------------------------------------------------\n    ELSE IF ( hasSpeciesDim == 1 ) THEN\n\n       ! Get the length of the species-based dimension\n       nSlots = Get_NumSlots( perSpc, State_Chm )\n\n       ! Loop over all species\n       DO N = 1, nSlots\n\n          ! Append the species name to the diagnostic name & description\n          CALL Get_Diagnostic_Name(                                          &\n               State_Chm    = State_Chm,                                     &\n               perSpc       = perSpc,                                        &\n               N            = N,                                             &\n               name         = TRIM( metaDataId ),                            &\n               desc         = TRIM( desc       ),                            &\n               diagName     = thisSpcName,                                   &\n               diagDesc     = thisSpcDesc                                   )\n\n          ! Add field to registry\n          CALL Registry_AddField( &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Chm%Registry,                            &\n               State        = State_Chm%State,                               &\n               Variable     = TRIM( thisSpcName ),                           &\n               Description  = TRIM( thisSpcDesc ),                           &\n               Units        = TRIM( units       ),                           &\n               OnLevelEdges = onEdges,                                       &\n               Data3d_8     = Ptr2Data(:,:,:,N),                             &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //            &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDDO\n\n    !------------------------------------------------------------------------\n    ! Otherwise, exit with error\n    !------------------------------------------------------------------------\n    ELSE\n\n       ! Error msg\n       ErrMsg = 'Handling of PerSpc metadata ' // TRIM(perSpc ) // &\n                ' is not implemented for this combo of data type and size!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n\n    ENDIF\n\n  END SUBROUTINE Register_ChmField_R8_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ind_\n!\n! !DESCRIPTION: Function IND\\_ returns the index of an advected species or\n!  chemical species contained in the chemistry state object by name.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Ind_( name, flag ) RESULT( Indx )\n!\n! !USES:\n!\n    USE CharPak_Mod, ONLY : To_UpperCase\n\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),           INTENT(IN) :: name  ! Species name\n    CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: flag  ! Species type\n!\n! !RETURN VALUE:\n!\n    INTEGER                                :: Indx  ! Index of this species\n!\n! !REMARKS:\n!   Values of FLAG (case-insensitive):\n!   'A' or 'a' : Returns advected species index\n!   'D' or 'd' : Returns dry-deposition species index\n!   'F' or 'f' : Returns KPP fixed species index\n!   'G' or 'g' : Returns gas-phase species index\n!   'H' or 'h' : Returns hygroscopic-growth species index\n!   'K' or 'k' : Returns KPP main species index\n!   'N' or 'n' : Returns radionuclide species index\n!   'P' or 'p' : Returns photolysis species index\n!   'S' or 's' : Returns main species index (aka \"ModelId\")\n!   'T' or 't' : Returns transport tracer index\n!   'V' or 'v' : Returns KPP variable species index\n!   'W' or 'w' : Returns wet-deposition species index\n!\n! !REVISION HISTORY:\n!  07 Oct 2016 - M. Long     - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: N\n\n    !=====================================================================\n    ! Ind_ begins here!\n    !=====================================================================\n\n    ! Get the ModelId value from the lookup table\n    ! NOTE: -1 is used to denote missing species.\n    N    = SpcDictLocal%Get( To_UpperCase( TRIM( Name ) ) )\n    Indx = N\n\n    ! If N is negative then return -1 to denote the species was not found.\n    ! If FLAG is not passed, RETURN the ModelId (regardless of whether the\n    ! species was found or missing).\n    IF ( ( N < 0 ).or. ( .not. PRESENT( Flag ) ) ) RETURN\n\n    ! For species that were found, return the index specified by FLAG\n    SELECT CASE( Flag(1:1) )\n\n       ! Advected species flag\n       CASE( 'A', 'a' )\n          Indx = SpcDataLocal(N)%Info%AdvectID\n          RETURN\n\n       ! Dry-deposited species ID\n       CASE( 'D', 'd' )\n          Indx = SpcDataLocal(N)%Info%DryDepId\n          RETURN\n\n       ! KPP fixed species ID\n       CASE( 'F', 'f' )\n          Indx = SpcDataLocal(N)%Info%KppFixId\n          RETURN\n\n       ! Gas-phase species ID\n       CASE( 'G', 'g' )\n          Indx = SpcDataLocal(N)%Info%GasSpcId\n          RETURN\n\n       ! Hygroscopic growth species ID\n       CASE( 'H', 'h' )\n          Indx = SpcDataLocal(N)%Info%HygGrthId\n          RETURN\n\n       ! KPP chemical species ID\n       CASE( 'K', 'k' )\n          Indx = SpcDataLocal(N)%Info%KppSpcId\n          RETURN\n\n       ! Radionuclide chemical species ID\n       CASE( 'N', 'n' )\n          Indx = SpcDataLocal(N)%Info%RadNuclId\n          RETURN\n\n       ! Photolysis species ID\n       CASE( 'P', 'p' )\n          Indx = SpcDataLocal(N)%Info%PhotolId\n          RETURN\n\n       ! Species/ModelID\n       CASE ( 'S', 's' )\n          Indx = SpcDataLocal(N)%Info%ModelID\n          RETURN\n\n       ! Transport tracer ID\n       CASE( 'T', 't' )\n          Indx = SpcDataLocal(N)%Info%TracerId\n          RETURN\n\n       ! KPP variable species ID\n       CASE( 'V', 'v' )\n          Indx = SpcDataLocal(N)%Info%KppVarId\n          RETURN\n\n       ! WetDep ID\n       CASE( 'W', 'w' )\n          Indx = SpcDataLocal(N)%Info%WetDepId\n          RETURN\n\n       CASE DEFAULT\n          ! Pass\n\n     END SELECT\n\n  END FUNCTION Ind_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetNumProdLossSpecies\n!\n! !DESCRIPTION: Saves the number of production and loss diagnostic species\n!  in the State\\_Chm\\%nProdLoss variable.  This will be used to set up the\n!  State\\_Chm\\%Map\\_ProdLoss species index vector.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetNumProdLossSpecies( Input_Opt, State_Chm, RC )\n!\n! !USES:\n!\n    USE GcKpp_Monitor,    ONLY : Fam_Names\n    USE GcKpp_Parameters, ONLY : nFam\n    USE Input_Opt_Mod,    ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! GetProdLossSpecies begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n         ' -> at GetNumProdLossSpecies (in module Headers/state_chm_mod.F90)'\n\n    !=======================================================================\n    ! Get the number of prod and loss species depending on the simulation\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       !------------------------------\n       ! Full-chemistry simulations\n       !------------------------------\n\n       ! Get the # of prod/loss species by querying the first leter of\n       ! the species in the Fam_Names array (in gckpp_Monitor.F90)\n       DO N = 1, nFam\n          IF ( Fam_Names(N)(1:1) == 'L' ) State_Chm%nLoss = State_Chm%nLoss + 1\n          IF ( Fam_Names(N)(1:1) == 'P' ) State_Chm%nProd = State_Chm%nProd + 1\n       ENDDO\n\n    ELSE IF ( Input_Opt%ITS_A_TAGO3_SIM         .or.                         &\n              Input_Opt%ITS_A_CARBON_SIM      ) THEN\n\n       !------------------------------\n       ! Tagged O3 or carbon simulation\n       !-----------------------------\n\n       ! Each advected species can have a prod and loss diagnostic attached\n       State_Chm%nLoss = State_Chm%nAdvect\n       State_Chm%nProd = State_Chm%nAdvect\n\n    ELSE\n\n       ! Other simulations do not have a prod/loss functionality\n       ! but this can be added in if necessary\n       State_Chm%nLoss = 0\n       State_Chm%nProd = 0\n\n    ENDIF\n\n  END SUBROUTINE GetNumProdLossSpecies\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MapProdLossSpecies\n!\n! !DESCRIPTION: Stores the ModelId (from the GEOS-Chem Species Database) of\n!  each prod/loss diagnostic species in the State\\_Chm\\%Map\\_ProdLoss vector.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MapProdLossSpecies( Input_Opt, State_Chm, TaggedDiag_List, RC )\n!\n! !USES:\n!\n    USE CharPak_Mod,        ONLY : To_UpperCase\n    USE GcKpp_Monitor,      ONLY : Fam_Names\n    USE GcKpp_Parameters,   ONLY : nFam\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE TaggedDiagList_Mod, ONLY : DgnTagList\n    USE TaggedDiagList_Mod, ONLY : TaggedDgnList\n    USE TaggedDiagList_Mod, ONLY : Query_Tag_in_TagList\n    USE TaggedDiagList_Mod, ONLY : Query_TaggedDiagList\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList), INTENT(IN)    :: TaggedDiag_List ! Tag Diag. List\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt       ! Input Options\n    TYPE(ChmState),      INTENT(INOUT) :: State_Chm       ! Chemistry State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,              INTENT(OUT)  :: RC              ! Return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                   :: found\n    INTEGER                   :: Id, N, numTags, numWildCards, P, L\n\n    ! Strings\n    CHARACTER(LEN=36)         :: name\n    CHARACTER(LEN=255)        :: diagName\n    CHARACTER(LEN=255)        :: errMsg\n    CHARACTER(LEN=255)        :: thisLoc\n\n    ! Objects\n    TYPE(DgnTagList)          :: TagList\n    TYPE(DgnTagList)          :: WildCardList\n\n    !=======================================================================\n    ! GetProdLossSpecies begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    P        =  0\n    L        =  0\n    ErrMsg   =  ''\n    ThisLoc  =  &\n         ' -> at MapProdLossSpecies (in module Headers/state_chm_mod.F90)'\n\n    !=======================================================================\n    ! Get the number of prod and loss species depending on the simulation\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! Full-chemistry simulations\n       !--------------------------------------------------------------------\n\n       ! Loop over the number of prod/loss species\n       DO N = 1, nFam\n\n          ! Initialize\n          name     = ''\n          diagName = ''\n          found    = .FALSE.\n\n          ! Get the KPP prod/loss species from the FAM_NAMES\n          ! array in the gckpp_Parameters.F90 module.\n          ! NOTE: This is the KPP ID number (index of \"VAR\" array)\n          ! and not the GEOS-Chem \"main\" species index!!!\n          Id = Ind_( TRIM( Fam_Names(N) ), 'K' )\n\n          ! Try to add the species if it is valid\n          IF ( Id > 0 ) THEN\n\n             ! KPP prod/loss species name\n             Name = TRIM( Fam_Names(N) )\n\n             !---------------------------------------------------------------\n             ! Loss species\n             !---------------------------------------------------------------\n             IF ( Name(1:1) == 'L' ) THEN\n\n                ! The diagnostic name will be `Loss_' + the KPP family name\n                diagName = 'Loss_' // TRIM( Name(2:) )\n\n                ! Check if the TaggedDiag_List exists for \"Loss\"\n                CALL Query_TaggedDiagList(                                   &\n                     TaggedDiagList = TaggedDiag_List,                       &\n                     diagName       = 'Loss',                                &\n                     found          = found,                                 &\n                     numTags        = numTags,                               &\n                     TagList        = TagList,                               &\n                     numWildCards   = numWildCards,                          &\n                     WildCardList   = WildCardList,                          &\n                     RC             = RC                                    )\n\n                ! Check if the given loss species or wildcard has been\n                ! requested for diagnostic archival before updating\n                ! mapping vectors.\n                IF ( found ) THEN\n\n                   IF ( numTags > 0 ) THEN\n                      CALL Query_Tag_in_TagList( TagList,       name(2:),    &\n                                                 found,         RC          )\n                   ELSE IF ( numWildCards > 0 ) THEN\n                      CALL Query_Tag_in_TagList( WildCardList, 'LOS',        &\n                                                 found,         RC          )\n                   ENDIF\n\n                   IF ( found ) THEN\n                      L                      = L + 1\n                      State_Chm%Map_Loss(L)  = Id\n                      State_Chm%Name_Loss(L) = TRIM( diagName )\n                   ENDIF\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! Prod species\n             !---------------------------------------------------------------\n             ELSE IF ( Name(1:1) == 'P' ) THEN\n\n                ! The diagnostic name will be `Prod_' + the KPP family name\n                diagName = 'Prod_' // TRIM( Name(2:) )\n\n                ! Check if the TaggedDiag_List exists for \"Prod\"\n                CALL Query_TaggedDiagList(                                   &\n                     TaggedDiagList = TaggedDiag_List,                       &\n                     diagName       = 'Prod',                                &\n                     found          = found,                                 &\n                     numTags        = numTags,                               &\n                     TagList        = TagList,                               &\n                     numWildCards   = numWildCards,                          &\n                     WildCardList   = WildCardList,                          &\n                     RC             = RC                                    )\n\n                ! Check if the given prod species or wildcard has been\n                ! requested for diagnostic archival before updating\n                ! mapping vectors.\n                IF ( found ) THEN\n\n                   IF ( numTags > 0 ) THEN\n                      CALL Query_Tag_in_TagList( TagList,       name(2:),    &\n                                                 found,         RC          )\n                   ELSE IF ( numWildCards > 0 ) THEN\n                      CALL Query_Tag_in_TagList( WildCardList, 'PRD',        &\n                                                 found,         RC          )\n                   ENDIF\n\n                   IF ( found ) THEN\n                      P                      = P + 1\n                      State_Chm%Map_Prod(P)  = Id\n                      State_Chm%Name_Prod(P) = TRIM( diagName )\n                   ENDIF\n                ENDIF\n\n             !---------------------------------------------------------------\n             ! Invalid prod/loss species\n             !---------------------------------------------------------------\n             ELSE\n                ErrMsg = 'Invalid prod/loss species name!' //                &\n                          TRIM( Fam_Names(N) )\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n          !------------------------------------------------------------------\n          ! Could not find KPP species\n          !------------------------------------------------------------------\n          ELSE\n\n             ! Invalid species, exit with error!\n             ErrMsg = 'Could not locate KPP prod/loss species: ' //          &\n                      TRIM( Fam_Names(N) )                       // '!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n\n          ENDIF\n\n       ENDDO\n\n\n\n    ELSE IF ( Input_Opt%ITS_A_TAGO3_SIM         .or.                         &\n              Input_Opt%ITS_A_CARBON_SIM      ) THEN\n\n       !--------------------------------------------------------------------\n       ! Tagged O3 simulations\n       !--------------------------------------------------------------------\n\n       ! Each advected species can have an attached loss diagnostic ...\n       DO Id = 1, State_Chm%nLoss\n          Name = 'Loss_' // TRIM( State_Chm%SpcData(Id)%Info%Name )\n          State_Chm%Name_Loss(Id) = TRIM( Name )\n          State_Chm%Map_Loss(Id)  = Id\n       ENDDO\n\n       ! ... as well as an attached production diagnostic\n       DO Id = 1, State_Chm%nProd\n          Name = 'Prod_' // TRIM( State_Chm%SpcData(Id)%Info%Name )\n          State_Chm%Name_Prod(Id) = TRIM( Name )\n          State_Chm%Map_Prod(Id)  = Id\n       ENDDO\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Other simulations do not have prod/loss capability\n       !--------------------------------------------------------------------\n       State_Chm%Name_Prod => NULL()\n       State_Chm%Map_Prod  => NULL()\n    ENDIF\n\n  END SUBROUTINE MapProdLossSpecies\n!EOC\nEND MODULE State_Chm_Mod\n"
  },
  {
    "path": "Headers/state_diag_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: state_diag_mod.F90\n!\n! !DESCRIPTION: Module STATE\\_DIAG\\_MOD contains the derived type\n!  used to define the Diagnostics State object for GEOS-Chem.\n!\\\\\n!\\\\\n!  This module also contains the routines that allocate and deallocate memory\n!  to the Diagnostics State object.  The Diagnostics State object is not\n!  defined in this module.  It must be be declared as variable in the top-level\n!  driver routine, and then passed to lower-level routines as an argument.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE State_Diag_Mod\n!\n! USES:\n!\n  USE CMN_Size_Mod,       ONLY : NDUST\n  USE DiagList_Mod\n  USE Dictionary_M,       ONLY : dictionary_t\n  USE ErrCode_Mod\n  USE gckpp_Parameters,   ONLY : NREACT\n  USE Precision_Mod\n  USE Registry_Mod\n  USE Species_Mod,        ONLY : Species\n  USE State_Chm_Mod,      ONLY : ChmState\n  USE TaggedDiagList_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Cleanup_State_Diag\n  PUBLIC :: Get_Metadata_State_Diag\n  PUBLIC :: Get_NameInfo\n  PUBLIC :: Get_NumTags\n  PUBLIC :: Get_TagInfo\n  PUBLIC :: Init_State_Diag\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Finalize\n  PRIVATE :: Finalize_MapData\n  PRIVATE :: Finalize_R4_2D\n  PRIVATE :: Finalize_R4_3D\n  PRIVATE :: Finalize_R4_4D\n  PRIVATE :: Finalize_R8_2D\n  PRIVATE :: Finalize_R8_3D\n  PRIVATE :: Finalize_R8_4D\n  PRIVATE :: Get_DiagNameDesc\n  PRIVATE :: Get_MapData_and_NumSlots\n  PRIVATE :: Get_Mapping\n  PRIVATE :: Init_and_Register\n  PRIVATE :: Init_and_Register_R4_2D\n  PRIVATE :: Init_and_Register_R4_3D\n  PRIVATE :: Init_and_Register_R4_4D\n  PRIVATE :: Init_and_Register_R8_2D\n  PRIVATE :: Init_and_Register_R8_3D\n  PRIVATE :: Init_and_Register_R8_4D\n  PRIVATE :: Init_RRTMG_Indices\n  PRIVATE :: Register_DiagField\n  PRIVATE :: Register_DiagField_R4_2D\n  PRIVATE :: Register_DiagField_R4_3D\n  PRIVATE :: Register_DiagField_R4_4D\n  PRIVATE :: Register_DiagField_R8_2D\n  PRIVATE :: Register_DiagField_R8_3D\n  PRIVATE :: Register_DiagField_R8_4D\n!\n! !PUBLIC DATA MEMBERS:\n!\n  !=========================================================================\n  ! Type for mapping objects\n  !=========================================================================\n  TYPE, PUBLIC :: DgnMap\n     INTEGER          :: nSlots\n     INTEGER, POINTER :: slot2id(:)\n     INTEGER          :: nIds\n     INTEGER, POINTER :: id2slot(:)\n     CHARACTER(LEN=1) :: indFlag\n  END TYPE DgnMap\n\n  !=========================================================================\n  ! Derived type for Diagnostics State\n  !=========================================================================\n  TYPE, PUBLIC :: DgnState\n\n     !----------------------------------------------------------------------\n     ! Standard Simulation Diagnostic Arrays\n     !----------------------------------------------------------------------\n\n     !%%%%% Restart file fields %%%%%\n\n     REAL(f8),           POINTER :: SpeciesRst(:,:,:,:)\n     LOGICAL                     :: Archive_SpeciesRst\n\n     !%%%%%  Boundary condition fields %%%%%\n\n     REAL(f8),           POINTER :: SpeciesBC(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SpeciesBC\n     LOGICAL                     :: Archive_SpeciesBC\n\n     !%%%%%  Concentrations %%%%%\n\n     REAL(f8),           POINTER :: SpeciesConcVV(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SpeciesConcVV\n     LOGICAL                     :: Archive_SpeciesConcVV\n\n     REAL(f8),           POINTER :: SpeciesConcMND(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SpeciesConcMND\n     LOGICAL                     :: Archive_SpeciesConcMND\n\n     !%%%%%  ML diagnostics %%%%%\n     REAL(f8),           POINTER :: ConcBeforeChem(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_ConcBeforeChem\n     LOGICAL                     :: Archive_ConcBeforeChem\n\n     REAL(f8),           POINTER :: ConcAfterChem(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_ConcAfterChem\n     LOGICAL                     :: Archive_ConcAfterChem\n\n#ifdef ADJOINT\n     ! Adjoint variables for diagnostic output\n     REAL(f8),           POINTER :: SpeciesAdj(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SpeciesAdj\n     LOGICAL                     :: Archive_SpeciesAdj\n\n     ! Concentrations\n     REAL(f8),           POINTER :: ScaleICsAdj(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_ScaleICsAdj\n     LOGICAL                     :: Archive_ScaleICsAdj\n#endif\n\n     !%%%%% Budget diagnostics %%%%%\n\n     REAL(f8),           POINTER :: BudgetEmisDryDepFull(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetEmisDryDepFull\n     LOGICAL                     :: Archive_BudgetEmisDryDepFull\n\n     REAL(f8),           POINTER :: BudgetEmisDryDepTrop(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetEmisDryDepTrop\n     LOGICAL                     :: Archive_BudgetEmisDryDepTrop\n\n     REAL(f8),           POINTER :: BudgetEmisDryDepPBL(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetEmisDryDepPBL\n     LOGICAL                     :: Archive_BudgetEmisDryDepPBL\n\n     REAL(f8),           POINTER :: BudgetEmisDryDepLevs(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetEmisDryDepLevs\n     LOGICAL                     :: Archive_BudgetEmisDryDepLevs\n\n     REAL(f8),           POINTER :: BudgetTransportFull(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetTransportFull\n     LOGICAL                     :: Archive_BudgetTransportFull\n\n     REAL(f8),           POINTER :: BudgetTransportTrop(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetTransportTrop\n     LOGICAL                     :: Archive_BudgetTransportTrop\n\n     REAL(f8),           POINTER :: BudgetTransportPBL(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetTransportPBL\n     LOGICAL                     :: Archive_BudgetTransportPBL\n\n     REAL(f8),           POINTER :: BudgetTransportLevs(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetTransportLevs\n     LOGICAL                     :: Archive_BudgetTransportLevs\n\n     REAL(f8),           POINTER :: BudgetMixingFull(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetMixingFull\n     LOGICAL                     :: Archive_BudgetMixingFull\n\n     REAL(f8),           POINTER :: BudgetMixingTrop(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetMixingTrop\n     LOGICAL                     :: Archive_BudgetMixingTrop\n\n     REAL(f8),           POINTER :: BudgetMixingPBL(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetMixingPBL\n     LOGICAL                     :: Archive_BudgetMixingPBL\n\n     REAL(f8),           POINTER :: BudgetMixingLevs(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetMixingLevs\n     LOGICAL                     :: Archive_BudgetMixingLevs\n\n     REAL(f8),           POINTER :: BudgetConvectionFull(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetConvectionFull\n     LOGICAL                     :: Archive_BudgetConvectionFull\n\n     REAL(f8),           POINTER :: BudgetConvectionTrop(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetConvectionTrop\n     LOGICAL                     :: Archive_BudgetConvectionTrop\n\n     REAL(f8),           POINTER :: BudgetConvectionPBL(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetConvectionPBL\n     LOGICAL                     :: Archive_BudgetConvectionPBL\n\n     REAL(f8),           POINTER :: BudgetConvectionLevs(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetConvectionLevs\n     LOGICAL                     :: Archive_BudgetConvectionLevs\n\n     REAL(f8),           POINTER :: BudgetChemistryFull(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetChemistryFull\n     LOGICAL                     :: Archive_BudgetChemistryFull\n\n     REAL(f8),           POINTER :: BudgetChemistryTrop(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetChemistryTrop\n     LOGICAL                     :: Archive_BudgetChemistryTrop\n\n     REAL(f8),           POINTER :: BudgetChemistryPBL(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetChemistryPBL\n     LOGICAL                     :: Archive_BudgetChemistryPBL\n\n     REAL(f8),           POINTER :: BudgetChemistryLevs(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetChemistryLevs\n     LOGICAL                     :: Archive_BudgetChemistryLevs\n\n     REAL(f8),           POINTER :: BudgetWetDepFull(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetWetDepFull\n     LOGICAL                     :: Archive_BudgetWetDepFull\n\n     REAL(f8),           POINTER :: BudgetWetDepTrop(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetWetDepTrop\n     LOGICAL                     :: Archive_BudgetWetDepTrop\n\n     REAL(f8),           POINTER :: BudgetWetDepPBL(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetWetDepPBL\n     LOGICAL                     :: Archive_BudgetWetDepPBL\n\n     REAL(f8),           POINTER :: BudgetWetDepLevs(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_BudgetWetDepLevs\n     LOGICAL                     :: Archive_BudgetWetDepLevs\n\n     REAL(f8),           POINTER :: BudgetColumnMass(:,:,:,:)\n     INTEGER                     :: BudgetBotLev_int\n     INTEGER                     :: BudgetTopLev_int\n     LOGICAL                     :: Archive_BudgetEmisDryDep\n     LOGICAL                     :: Archive_BudgetTransport\n     LOGICAL                     :: Archive_BudgetMixing\n     LOGICAL                     :: Archive_BudgetConvection\n     LOGICAL                     :: Archive_BudgetChemistry\n     LOGICAL                     :: Archive_BudgetWetDep\n     LOGICAL                     :: Archive_Budget\n\n     !%%%%% Dry deposition %%%%%\n\n     REAL(f4),           POINTER :: DryDepChm(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_DryDepChm\n     LOGICAL                     :: Archive_DryDepChm\n\n     REAL(f4),           POINTER :: DryDepMix(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_DryDepMix\n     LOGICAL                     :: Archive_DryDepMix\n\n     REAL(f4),           POINTER :: DryDep(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_DryDep\n     LOGICAL                     :: Archive_DryDep\n\n     REAL(f4),           POINTER :: DryDepVel(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_DryDepVel\n     LOGICAL                     :: Archive_DryDepVel\n\n     REAL(f4),           POINTER :: SatDiagnDryDep(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnDryDep\n     LOGICAL                     :: Archive_SatDiagnDryDep\n     LOGICAL                     :: Archive_SatDiagn\n     LOGICAL                     :: Archive_SatDiagnEdge\n\n     REAL(f4),           POINTER :: SatDiagnDryDepVel(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnDryDepVel\n     LOGICAL                     :: Archive_SatDiagnDryDepVel\n\n     !%%%%% Photolysis %%%%%\n\n     REAL(f4),           POINTER :: Jval(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_Jval\n     LOGICAL                     :: Archive_Jval\n\n     REAL(f4),           POINTER :: JvalO3O1D(:,:,:)\n     LOGICAL                     :: Archive_JvalO3O1D\n\n     REAL(f4),           POINTER :: JvalO3O3P(:,:,:)\n     LOGICAL                     :: Archive_JvalO3O3P\n\n     REAL(f4),           POINTER :: SatDiagnJval(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnJval\n     LOGICAL                     :: Archive_SatDiagnJval\n\n     REAL(f4),           POINTER :: SatDiagnJvalO3O1D(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnJvalO3O1D\n\n     REAL(f4),           POINTER :: SatDiagnJvalO3O3P(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnJvalO3O3P\n\n     REAL(f4),           POINTER :: JNoon(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_JNoon\n     LOGICAL                     :: Archive_JNoon\n\n     REAL(f4),           POINTER :: JNoonFrac(:,:)\n     LOGICAL                     :: Archive_JNoonFrac\n\n     REAL(f4),           POINTER :: UVFluxDiffuse(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_UvFluxDiffuse\n     LOGICAL                     :: Archive_UVFluxDiffuse\n\n     REAL(f4),           POINTER :: UVFluxDirect(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_UvFluxDirect\n     LOGICAL                     :: Archive_UVFluxDirect\n\n     REAL(f4),           POINTER :: UVFluxNet(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_UvFluxNet\n     LOGICAL                     :: Archive_UVFluxNet\n\n     REAL(f4),           POINTER :: OD600(:,:,:)\n     LOGICAL                     :: Archive_OD600\n\n     REAL(f4),           POINTER :: TCOD600(:,:)\n     LOGICAL                     :: Archive_TCOD600\n\n     !%%%%% Chemistry %%%%%\n\n     REAL(f4),           POINTER :: RxnRate(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_RxnRate\n     LOGICAL                     :: Archive_RxnRate\n\n     REAL(f4),           POINTER :: SatDiagnRxnRate(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnRxnRate\n     LOGICAL                     :: Archive_SatDiagnRxnRate     \n\n     REAL(f4),           POINTER :: RxnConst(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_RxnConst\n     LOGICAL                     :: Archive_RxnConst\n\n     REAL(f4),           POINTER :: OHreactivity(:,:,:)\n     LOGICAL                     :: Archive_OHreactivity\n\n     REAL(f4),           POINTER :: SatDiagnOHreactivity(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnOHreactivity     \n\n     REAL(f4),           POINTER :: OHconcAfterChem(:,:,:)\n     LOGICAL                     :: Archive_OHconcAfterChem\n\n     REAL(f4),           POINTER :: HO2concAfterChem(:,:,:)\n     LOGICAL                     :: Archive_HO2concAfterChem\n\n     REAL(f4),           POINTER :: O1DconcAfterChem(:,:,:)\n     LOGICAL                     :: Archive_O1DconcAfterChem\n\n     REAL(f4),           POINTER :: O3PconcAfterChem(:,:,:)\n     LOGICAL                     :: Archive_O3PconcAfterChem\n\n     REAL(f4),           POINTER :: CH4pseudoFlux(:,:)\n     LOGICAL                     :: Archive_CH4pseudoFlux\n\n     REAL(f4),           POINTER :: SatDiagnLoss(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnLoss\n     LOGICAL                     :: Archive_SatDiagnLoss\n\n     REAL(f4),           POINTER :: Loss(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_Loss\n     LOGICAL                     :: Archive_Loss\n\n     REAL(f4),           POINTER :: SatDiagnProd(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnProd\n     LOGICAL                     :: Archive_SatDiagnProd\n\n     REAL(f4),           POINTER :: Prod(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_Prod\n     LOGICAL                     :: Archive_Prod\n\n#ifdef MODEL_GEOS\n     REAL(f4),           POINTER :: NOxTau(:,:,:)\n     LOGICAL                     :: Archive_NOxTau\n\n     REAL(f4),           POINTER :: TropNOxTau(:,:)\n     LOGICAL                     :: Archive_TropNOxTau\n#endif\n\n     !%%%%% Aerosol characteristics %%%%%\n\n     REAL(f4),           POINTER :: AerHygGrowth(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AerHygGrowth\n     LOGICAL                     :: Archive_AerHygGrowth\n\n     REAL(f4),           POINTER :: AerAqVol(:,:,:)\n     LOGICAL                     :: Archive_AerAqVol\n\n     REAL(f4),           POINTER :: AerSurfAreaHyg(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AerSurfAreaHyg\n     LOGICAL                     :: Archive_AerSurfAreaHyg\n\n     REAL(f4),           POINTER :: AerSurfAreaDust(:,:,:)\n     LOGICAL                     :: Archive_AerSurfAreaDust\n\n     REAL(f4),           POINTER :: AerSurfAreaSLA(:,:,:)\n     LOGICAL                     :: Archive_AerSurfAreaSLA\n\n     REAL(f4),           POINTER :: AerSurfAreaPSC(:,:,:)\n     LOGICAL                     :: Archive_AerSurfAreaPSC\n\n     REAL(f4),           POINTER :: AerNumDenSLA(:,:,:)\n     LOGICAL                     :: Archive_AerNumDenSLA\n\n     REAL(f4),           POINTER :: AerNumDenPSC(:,:,:)\n     LOGICAL                     :: Archive_AerNumDenPSC\n\n#ifdef TOMAS\n     !%%%%% TOMAS microphysics rates %%%%%\n\n     LOGICAL                     :: Archive_Tomas\n\n     REAL(f4),           POINTER :: TomasH2SO4mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasH2SO4mass\n     LOGICAL                     :: Archive_TomasH2SO4mass\n\n     REAL(f4),           POINTER :: TomasH2SO4number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasH2SO4number\n     LOGICAL                     :: Archive_TomasH2SO4number\n\n     REAL(f4),           POINTER :: TomasCOAGmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasCOAGmass\n     LOGICAL                     :: Archive_TomasCOAGmass\n\n     REAL(f4),           POINTER :: TomasCOAGnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasCOAGnumber\n     LOGICAL                     :: Archive_TomasCOAGnumber\n\n     REAL(f4),           POINTER :: TomasNUCRATEFN(:,:,:)\n     LOGICAL                     :: Archive_TomasNUCRATEFN\n\n     REAL(f4),           POINTER :: TomasNUCLmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasNUCLmass\n     LOGICAL                     :: Archive_TomasNUCLmass\n\n     REAL(f4),           POINTER :: TomasNUCLnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasNUCLnumber\n     LOGICAL                     :: Archive_TomasNUCLnumber\n\n     REAL(f4),           POINTER :: TomasNUCRATEnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasNUCRATEnumber\n     LOGICAL                     :: Archive_TomasNUCRATEnumber\n\n     REAL(f4),           POINTER :: TomasAQOXmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasAQOXmass\n     LOGICAL                     :: Archive_TomasAQOXmass\n\n     REAL(f4),           POINTER :: TomasAQOXnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasAQOXnumber\n     LOGICAL                     :: Archive_TomasAQOXnumber\n\n     REAL(f4),           POINTER :: TomasMNFIXmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXmass\n     LOGICAL                     :: Archive_TomasMNFIXmass\n\n     REAL(f4),           POINTER :: TomasMNFIXnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXnumber\n     LOGICAL                     :: Archive_TomasMNFIXnumber\n\n     REAL(f4),           POINTER :: TomasMNFIXh2so4mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXh2so4mass\n     LOGICAL                     :: Archive_TomasMNFIXh2so4mass\n\n     REAL(f4),           POINTER :: TomasMNFIXh2so4number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXh2so4number\n     LOGICAL                     :: Archive_TomasMNFIXh2so4number\n\n     REAL(f4),           POINTER :: TomasMNFIXcoagmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcoagmass\n     LOGICAL                     :: Archive_TomasMNFIXcoagmass\n\n     REAL(f4),           POINTER :: TomasMNFIXcoagnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcoagnumber\n     LOGICAL                     :: Archive_TomasMNFIXcoagnumber\n\n     REAL(f4),           POINTER :: TomasMNFIXaqoxmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXaqoxmass\n     LOGICAL                     :: Archive_TomasMNFIXaqoxmass\n\n     REAL(f4),           POINTER :: TomasMNFIXaqoxnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXaqoxnumber\n     LOGICAL                     :: Archive_TomasMNFIXaqoxnumber\n\n     REAL(f4),           POINTER :: TomasMNFIXezwat1mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXezwat1mass\n     LOGICAL                     :: Archive_TomasMNFIXezwat1mass\n\n     REAL(f4),           POINTER :: TomasMNFIXezwat1number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXezwat1number\n     LOGICAL                     :: Archive_TomasMNFIXezwat1number\n\n     REAL(f4),           POINTER :: TomasMNFIXezwat2mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXezwat2mass\n     LOGICAL                     :: Archive_TomasMNFIXezwat2mass\n\n     REAL(f4),           POINTER :: TomasMNFIXezwat2number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXezwat2number\n     LOGICAL                     :: Archive_TomasMNFIXezwat2number\n\n     REAL(f4),           POINTER :: TomasMNFIXezwat3mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXezwat3mass\n     LOGICAL                     :: Archive_TomasMNFIXezwat3mass\n\n     REAL(f4),           POINTER :: TomasMNFIXezwat3number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXezwat3number\n     LOGICAL                     :: Archive_TomasMNFIXezwat3number\n\n     REAL(f4),           POINTER :: TomasMNFIXcheck1mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcheck1mass\n     LOGICAL                     :: Archive_TomasMNFIXcheck1mass\n\n     REAL(f4),           POINTER :: TomasMNFIXcheck1number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcheck1number\n     LOGICAL                     :: Archive_TomasMNFIXcheck1number\n\n     REAL(f4),           POINTER :: TomasMNFIXcheck2mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcheck2mass\n     LOGICAL                     :: Archive_TomasMNFIXcheck2mass\n\n     REAL(f4),           POINTER :: TomasMNFIXcheck2number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcheck2number\n     LOGICAL                     :: Archive_TomasMNFIXcheck2number\n\n     REAL(f4),           POINTER :: TomasMNFIXcheck3mass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcheck3mass\n     LOGICAL                     :: Archive_TomasMNFIXcheck3mass\n\n     REAL(f4),           POINTER :: TomasMNFIXcheck3number(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasMNFIXcheck3number\n     LOGICAL                     :: Archive_TomasMNFIXcheck3number\n\n     REAL(f4),           POINTER :: TomasSOAmass(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasSOAmass\n     LOGICAL                     :: Archive_TomasSOAmass\n\n     REAL(f4),           POINTER :: TomasSOAnumber(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TomasSOAnumber\n     LOGICAL                     :: Archive_TomasSOAnumber\n#endif\n\n     !%%%%% Aerosol optical depths %%%%%\n\n     REAL(f4),           POINTER :: AODDust(:,:,:)\n     LOGICAL                     :: Archive_AODDust\n     LOGICAL                     :: Archive_AOD\n\n     REAL(f4),           POINTER :: AODDustWL1(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AODDustWL1\n     LOGICAL                     :: Archive_AODDustWL1\n\n     REAL(f4),           POINTER :: AODDustWL2(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AODDustWL2\n     LOGICAL                     :: Archive_AODDustWL2\n\n     REAL(f4),           POINTER :: AODDustWL3(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AODDustWL3\n     LOGICAL                     :: Archive_AODDustWL3\n\n     REAL(f4),           POINTER :: AODHygWL1(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AODHygWL1\n     LOGICAL                     :: Archive_AODHygWL1\n\n     REAL(f4),           POINTER :: AODHygWL2(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AODHygWL2\n     LOGICAL                     :: Archive_AODHygWL2\n\n     REAL(f4),           POINTER :: AODHygWL3(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AODHygWL3\n     LOGICAL                     :: Archive_AODHygWL3\n\n     REAL(f4),           POINTER :: AODSOAfromAqIsopWL1(:,:,:)\n     LOGICAL                     :: Archive_AODSOAfromAqIsopWL1\n\n     REAL(f4),           POINTER :: AODSOAfromAqIsopWL2(:,:,:)\n     LOGICAL                     :: Archive_AODSOAfromAqIsopWL2\n\n     REAL(f4),           POINTER :: AODSOAfromAqIsopWL3(:,:,:)\n     LOGICAL                     :: Archive_AODSOAfromAqIsopWL3\n\n     REAL(f4),           POINTER :: AODSLAWL1(:,:,:)\n     LOGICAL                     :: Archive_AODSLAWL1\n     LOGICAL                     :: Archive_AODStrat\n\n     REAL(f4),           POINTER :: AODSLAWL2(:,:,:)\n     LOGICAL                     :: Archive_AODSLAWL2\n\n     REAL(f4),           POINTER :: AODSLAWL3(:,:,:)\n     LOGICAL                     :: Archive_AODSLAWL3\n\n     REAL(f4),           POINTER :: AODPSCWL1(:,:,:)\n     LOGICAL                     :: Archive_AODPSCWL1\n\n     REAL(f4),           POINTER :: AODPSCWL2(:,:,:)\n     LOGICAL                     :: Archive_AODPSCWL2\n\n     REAL(f4),           POINTER :: AODPSCWL3(:,:,:)\n     LOGICAL                     :: Archive_AODPSCWL3\n\n     !%%%%% Aerosol mass and PM2.5 %%%%%\n\n     REAL(f4),           POINTER :: AerMassASOA(:,:,:)\n     LOGICAL                     :: Archive_AerMassASOA\n     LOGICAL                     :: Archive_AerMass\n\n     REAL(f4),           POINTER :: AerMassBC(:,:,:)\n     LOGICAL                     :: Archive_AerMassBC\n\n     REAL(f4),           POINTER :: AerMassHMS(:,:,:)\n     LOGICAL                     :: Archive_AerMassHMS\n\n     REAL(f4),           POINTER :: AerMassINDIOL(:,:,:)\n     LOGICAL                     :: Archive_AerMassINDIOL\n\n     REAL(f4),           POINTER :: AerMassISN1OA(:,:,: )\n     LOGICAL                     :: Archive_AerMassLVOCOA\n\n     REAL(f4),           POINTER :: AerMassLVOCOA(:,:,:)\n     LOGICAL                     :: Archive_AerMassISN1OA\n\n     REAL(f4),           POINTER :: AerMassNH4(:,:,:)\n     LOGICAL                     :: Archive_AerMassNH4\n\n     REAL(f4),           POINTER :: AerMassNIT(:,:,:)\n     LOGICAL                     :: Archive_AerMassNIT\n\n     REAL(f4),           POINTER :: AerMassOPOA(:,:,:)\n     LOGICAL                     :: Archive_AerMassOPOA\n\n     REAL(f4),           POINTER :: AerMassPOA(:,:,:)\n     LOGICAL                     :: Archive_AerMassPOA\n\n     REAL(f4),           POINTER :: AerMassSAL(:,:,:)\n     LOGICAL                     :: Archive_AerMassSAL\n\n     REAL(f4),           POINTER :: AerMassSO4(:,:,:)\n     LOGICAL                     :: Archive_AerMassSO4\n\n     REAL(f4),           POINTER :: AerMassSOAGX(:,:,:)\n     LOGICAL                     :: Archive_AerMassSOAGX\n\n     REAL(f4),           POINTER :: AerMassSOAIE(:,:,:)\n     LOGICAL                     :: Archive_AerMassSOAIE\n\n     REAL(f4),           POINTER :: AerMassTSOA(:,:,:)\n     LOGICAL                     :: Archive_AerMassTSOA\n\n     REAL(f4),           POINTER :: BetaNO(:,:,:)\n     LOGICAL                     :: Archive_BetaNO\n\n     REAL(f4),           POINTER :: PM25(:,:,:)\n     LOGICAL                     :: Archive_PM25\n\n     !zhaisx\n     REAL(f4),           POINTER :: PM10(:,:,:)\n     LOGICAL                     :: Archive_PM10\n\n     ! H. Zhu\n     REAL(f4),           POINTER :: PDER(:,:,:)\n     LOGICAL                     :: Archive_PDER\n\n     REAL(f4),           POINTER :: TotalOA(:,:,:)\n     LOGICAL                     :: Archive_TotalOA\n\n     REAL(f4),           POINTER :: TotalOC(:,:,:)\n     LOGICAL                     :: Archive_TotalOC\n\n     REAL(f4),           POINTER :: TotalBiogenicOA(:,:,:)\n     LOGICAL                     :: Archive_TotalBiogenicOA\n\n     !%%%%% Advection %%%%%\n\n     REAL(f4),           POINTER :: AdvFluxZonal(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AdvFluxZonal\n     LOGICAL                     :: Archive_AdvFluxZonal\n\n     REAL(f4),           POINTER :: AdvFluxMerid(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AdvFluxMerid\n     LOGICAL                     :: Archive_AdvFluxMerid\n\n     REAL(f4),           POINTER :: AdvFluxVert(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_AdvFluxVert\n     LOGICAL                     :: Archive_AdvFluxVert\n\n     !%%%%% Mixing %%%%%\n\n     REAL(f4),           POINTER :: PBLMixFrac(:,:,:)\n     LOGICAL                     :: Archive_PBLMixFrac\n\n     REAL(f4),           POINTER :: PBLFlux(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_PblFlux\n     LOGICAL                     :: Archive_PBLFlux\n\n     !%%%%% Convection and WetDep %%%%%\n\n     REAL(f4),           POINTER :: CloudConvFlux(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_CloudConvFlux\n     LOGICAL                     :: Archive_CloudConvFlux\n\n     REAL(f4),           POINTER :: WetLossConvFrac(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_WetLossConvFrac\n     LOGICAL                     :: Archive_WetLossConvFrac\n\n     REAL(f4),           POINTER :: WetLossConv(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_WetLossConv\n     LOGICAL                     :: Archive_WetLossConv\n\n     REAL(f4),           POINTER :: SatDiagnWetLossConv(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnWetLossConv\n     LOGICAL                     :: Archive_SatDiagnWetLossConv\n\n     REAL(f4),           POINTER :: WetLossLS(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_WetLossLS\n     LOGICAL                     :: Archive_WetLossLS\n\n     REAL(f4),           POINTER :: SatDiagnWetLossLS(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnWetLossLS\n     LOGICAL                     :: Archive_SatDiagnWetLossLS\n\n     ! These are obsolete diagnostics\n     !REAL(f4),  POINTER :: PrecipFracLS    (:,:,:  )\n     !REAL(f4),  POINTER :: RainFracLS      (:,:,:,:)\n     !REAL(f4),  POINTER :: WashFracLS      (:,:,:,:)\n     !LOGICAL :: Archive_PrecipFracLS\n     !LOGICAL :: Archive_RainFracLS\n     !LOGICAL :: Archive_WashFracLS\n\n     !%%%%% Carbon aerosols %%%%%\n\n     REAL(f4),           POINTER :: ProdBCPIfromBCPO(:,:,:)\n     LOGICAL                     :: Archive_ProdBCPIfromBCPO\n\n     REAL(f4),           POINTER :: ProdOCPIfromOCPO(:,:,:)\n     LOGICAL                     :: Archive_ProdOCPIfromOCPO\n\n     !%%%%%  Sulfur aerosols prod & loss %%%%%\n     REAL(f4),           POINTER :: ProdSO2fromDMSandOH(:,:,:)\n     LOGICAL                     :: Archive_ProdSO2fromDMSandOH\n\n     REAL(f4),           POINTER :: ProdSO2fromDMSandNO3(:,:,:)\n     LOGICAL                     :: Archive_ProdSO2fromDMSandNO3\n\n     REAL(f4),           POINTER :: ProdSO2fromDMS (:,:,:)\n     LOGICAL                     :: Archive_ProdSO2fromDMS\n\n     REAL(f4),           POINTER :: ProdMSAfromDMS(:,:,:)\n     LOGICAL                     :: Archive_ProdMSAfromDMS\n\n     REAL(f4),           POINTER :: ProdNITfromHNO3uptakeOnDust(:,:,:)\n     LOGICAL                     :: Archive_ProdNITfromHNO3uptakeOnDust\n\n     REAL(f4),           POINTER :: ProdSO4fromGasPhase(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromGasPhase\n\n     REAL(f4),           POINTER :: ProdSO4fromH2O2inCloud(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromH2O2inCloud\n\n     REAL(f4),           POINTER :: ProdSO4fromO3inCloud(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromO3inCloud\n\n     REAL(f4),           POINTER :: ProdSO4fromO2inCloudMetal(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromO2inCloudMetal\n\n     REAL(f4),           POINTER :: ProdSO4fromO3inSeaSalt(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromO3inSeaSalt\n\n     REAL(f4),           POINTER :: ProdSO4fromOxidationOnDust(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromOxidationOnDust\n\n     REAL(f4),           POINTER :: ProdSO4fromUptakeOfH2SO4g(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromUptakeOfH2SO4g\n\n     REAL(f4),           POINTER :: ProdSO4fromHOBrInCloud(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromHOBrInCloud\n\n     REAL(f4),           POINTER :: ProdSO4fromSRO3(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromSRO3\n\n     REAL(f4),           POINTER :: ProdSO4fromSRHOBr(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromSRHOBr\n\n     REAL(f4),           POINTER :: ProdSO4fromO3s(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromO3s\n\n     REAL(f4),           POINTER :: LossHNO3onSeaSalt(:,:,:)\n     LOGICAL                     :: Archive_LossHNO3onSeaSalt\n\n     REAL(f4),           POINTER :: ProdHMSfromSO2andHCHOinCloud(:,:,:)\n     LOGICAL                     :: Archive_ProdHMSfromSO2andHCHOinCloud\n\n     REAL(f4),           POINTER :: ProdSO2andHCHOfromHMSinCloud(:,:,:)\n     LOGICAL                     :: Archive_ProdSO2andHCHOfromHMSinCloud\n\n     REAL(f4),           POINTER :: ProdSO4fromHMSinCloud(:,:,:)\n     LOGICAL                     :: Archive_ProdSO4fromHMSinCloud\n\n     !%%%%% O3 and HNO3 at a given height above the surface %%%%%\n\n     REAL(f4),           POINTER :: DryDepRaALT1(:,:)\n     LOGICAL                     :: Archive_DryDepRaALT1\n\n     REAL(f4),           POINTER :: DryDepVelForALT1(:,:,:)\n     LOGICAL                     :: Archive_DryDepVelForALT1\n\n     REAL(f8),           POINTER :: SpeciesConcALT1(:,:,:)\n     LOGICAL                     :: Archive_SpeciesConcALT1\n     LOGICAL                     :: Archive_ConcAboveSfc\n\n     !%%%%% Time spent in the troposphere %%%%%\n\n     REAL(f4),           POINTER :: FracOfTimeInTrop(:,:,:)\n     LOGICAL                     :: Archive_FracOfTimeInTrop\n\n     !%%%%% KPP solver diagnostics %%%%%\n\n     REAL(f4),           POINTER :: KppIntCounts(:,:,:)\n     LOGICAL                     :: Archive_KppIntCounts\n\n     REAL(f4),           POINTER :: KppJacCounts(:,:,:)\n     LOGICAL                     :: Archive_KppJacCounts\n\n     REAL(f4),           POINTER :: KppTotSteps (:,:,:)\n     LOGICAL                     :: Archive_KppTotSteps\n\n     REAL(f4),           POINTER :: KppAccSteps (:,:,:)\n     LOGICAL                     :: Archive_KppAccSteps\n\n     REAL(f4),           POINTER :: KppRejSteps (:,:,:)\n     LOGICAL                     :: Archive_KppRejSteps\n\n     REAL(f4),           POINTER :: KppLuDecomps(:,:,:)\n     LOGICAL                     :: Archive_KppLuDecomps\n\n     REAL(f4),           POINTER :: KppSubsts(:,:,:)\n     LOGICAL                     :: Archive_KppSubsts\n\n     REAL(f4),           POINTER :: KppSmDecomps(:,:,:)\n     LOGICAL                     :: Archive_KppSmDecomps\n\n     REAL(f4),           POINTER :: KppNegatives(:,:,:)\n     LOGICAL                     :: Archive_KppNegatives\n\n     REAL(f4),           POINTER :: KppNegatives0(:,:,:)\n     LOGICAL                     :: Archive_KppNegatives0\n\n     !%%%%% KPP auto-reduce solver diagnostics %%%%%\n     REAL(f4),           POINTER :: KppAutoReducerNVAR(:,:,:)\n     LOGICAL                     :: Archive_KppAutoReducerNVAR\n\n     REAL(f4),           POINTER :: KppAutoReduceThres(:,:,:)\n     LOGICAL                     :: Archive_KppAutoReduceThres\n\n     REAL(f4),           POINTER :: KppTime(:,:,:)\n     LOGICAL                     :: Archive_KppTime\n\n     REAL(f4),           POINTER :: KppcNONZERO(:,:,:)\n     LOGICAL                     :: Archive_KppcNONZERO\n\n     LOGICAL                     :: Archive_KppDiags\n\n     !%%%%% Chemistry metrics (e.g. mean OH, MCF lifetime, CH4 lifetime) %%%%%\n\n     REAL(f8),           POINTER :: AirMassColumnFull(:,:)\n     LOGICAL                     :: Archive_AirMassColumnFull\n     LOGICAL                     :: Archive_Metrics\n\n     REAL(f8),           POINTER :: AirMassColumnTrop(:,:)\n     LOGICAL                     :: Archive_AirMassColumnTrop\n\n     REAL(f8),           POINTER :: CH4emission(:,:)\n     LOGICAL                     :: Archive_CH4emission\n\n     REAL(f8),           POINTER :: CH4massColumnFull(:,:)\n     LOGICAL                     :: Archive_CH4massColumnFull\n\n     REAL(f8),           POINTER :: CH4massColumnTrop(:,:)\n     LOGICAL                     :: Archive_CH4massColumnTrop\n\n     REAL(f8),           POINTER :: LossOHbyCH4columnTrop(:,:)\n     LOGICAL                     :: Archive_LossOHbyCH4columnTrop\n\n     REAL(f8),           POINTER :: LossOHbyMCFcolumnTrop(:,:)\n     LOGICAL                     :: Archive_LossOHbyMCFcolumnTrop\n\n     REAL(f8),           POINTER :: OHwgtByAirMassColumnFull(:,:)\n     LOGICAL                     :: Archive_OHwgtByAirMassColumnFull\n\n     REAL(f8),           POINTER :: OHwgtByAirMassColumnTrop(:,:)\n     LOGICAL                     :: Archive_OHwgtByAirMassColumnTrop\n\n     !%%%%% Satellite diagnostic %%%%%\n\n     REAL(fp)                    :: SatDiagn_StartHr\n     REAL(fp)                    :: SatDiagn_EndHr\n     REAL(fp)                    :: SatDiagn_Count\n\n     REAL(f8),           POINTER :: SatDiagnCount(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnCount\n\n     REAL(f8),           POINTER :: SatDiagnEdgeCount(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnEdgeCount\n     \n     REAL(f8),           POINTER :: SatDiagnConc(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnConc\n     LOGICAL                     :: Archive_SatDiagnConc\n\n     REAL(f8),           POINTER :: SatDiagnColEmis(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnColEmis\n     LOGICAL                     :: Archive_SatDiagnColEmis\n\n     REAL(f8),           POINTER :: SatDiagnSurfFlux(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_SatDiagnSurfFlux\n     LOGICAL                     :: Archive_SatDiagnSurfFlux\n    \n     REAL(f8),           POINTER :: SatDiagnOH(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnOH\n     \n     REAL(f8),           POINTER :: SatDiagnRH(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnRH\n\n     REAL(f8),           POINTER :: SatDiagnAirDen(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnAirDen\n\n     REAL(f8),           POINTER :: SatDiagnBoxHeight(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnBoxHeight\n\n     REAL(f8),           POINTER :: SatDiagnPEdge(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnPEdge\n\n     REAL(f8),           POINTER :: SatDiagnPMid(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnPMid\n\n     REAL(f8),           POINTER :: SatDiagnTROPP(:,:)\n     LOGICAL                     :: Archive_SatDiagnTROPP\n\n     REAL(f8),           POINTER :: SatDiagnTropLev(:,:)\n     LOGICAL                     :: Archive_SatDiagnTropLev\n\n     REAL(f8),           POINTER :: SatDiagnPBLHeight(:,:)\n     LOGICAL                     :: Archive_SatDiagnPBLHeight\n\n     REAL(f8),           POINTER :: SatDiagnPBLTop(:,:)\n     LOGICAL                     :: Archive_SatDiagnPBLTop\n\n     REAL(f8),           POINTER :: SatDiagnTAir(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnTAir\n\n     REAL(f8),           POINTER :: SatDiagnCldFrac(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnCldFrac\n\n     REAL(f8),           POINTER :: SatDiagnCldTopP(:,:)\n     LOGICAL                     :: Archive_SatDiagnCldTopP\n\n     REAL(f8),           POINTER :: SatDiagnGWETROOT(:,:)\n     LOGICAL                     :: Archive_SatDiagnGWETROOT\n\n     REAL(f8),           POINTER :: SatDiagnGWETTOP(:,:)\n     LOGICAL                     :: Archive_SatDiagnGWETTOP\n\n     REAL(f8),           POINTER :: SatDiagnPARDR(:,:)\n     LOGICAL                     :: Archive_SatDiagnPARDR\n\n     REAL(f8),           POINTER :: SatDiagnPARDF(:,:)\n     LOGICAL                     :: Archive_SatDiagnPARDF\n\n     REAL(f8),           POINTER :: SatDiagnPRECTOT(:,:)\n     LOGICAL                     :: Archive_SatDiagnPRECTOT\n\n     REAL(f8),           POINTER :: SatDiagnSLP(:,:)\n     LOGICAL                     :: Archive_SatDiagnSLP\n\n     REAL(f8),           POINTER :: SatDiagnSPHU(:,:,:)\n     LOGICAL                     :: Archive_SatDiagnSPHU\n\n     REAL(f8),           POINTER :: SatDiagnTS(:,:)\n     LOGICAL                     :: Archive_SatDiagnTS\n\n     REAL(f8),           POINTER :: SatDiagnPBLTOPL(:,:)\n     LOGICAL                     :: Archive_SatDiagnPBLTOPL\n\n     REAL(f8),           POINTER :: SatDiagnMODISLAI(:,:)\n     LOGICAL                     :: Archive_SatDiagnMODISLAI\n\n     !----------------------------------------------------------------------\n     ! Specialty Simulation Diagnostic Arrays\n     !----------------------------------------------------------------------\n\n     !%%%%% TransportTracers simulation %%%%%\n\n     REAL(f4),           POINTER :: PbFromRnDecay(:,:,:)\n     LOGICAL                     :: Archive_PbFromRnDecay\n\n     REAL(f4),           POINTER :: RadDecay(:,:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_RadDecay\n     LOGICAL                     :: Archive_RadDecay\n\n     !%%%%% Carbon simulation %%%%%\n\n     REAL(f4),           POINTER :: ProdCO2fromCO(:,:,:)\n     LOGICAL                     :: Archive_ProdCO2fromCO\n\n     REAL(f4),           POINTER :: LossCH4byClinTrop(:,:,:)\n     LOGICAL                     :: Archive_LossCH4byClinTrop\n\n     REAL(f4),           POINTER :: LossCH4byOHinTrop(:,:,:)\n     LOGICAL                     :: Archive_LossCH4byOHinTrop\n\n     REAL(f4),           POINTER :: LossCH4inStrat(:,:,:)\n     LOGICAL                     :: Archive_LossCH4inStrat\n\n     REAL(f4),           POINTER :: ProdCOfromCH4(:,:,:)\n     LOGICAL                     :: Archive_ProdCOfromCH4\n\n     REAL(f4),           POINTER :: ProdCOfromNMVOC(:,:,:)\n     LOGICAL                     :: Archive_ProdCOfromNMVOC\n\n     !%%%%% Persistent Organic Pollutants (POPS) simulation %%%%%\n\n     REAL(f4),           POINTER :: LossPOPPOCPObyGasPhase(:,:,:)\n     LOGICAL                     :: Archive_LossPOPPOCPObyGasPhase\n\n     REAL(f4),           POINTER :: ProdPOPPOCPOfromGasPhase(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPOCPOfromGasPhase\n\n     REAL(f4),           POINTER :: LossPOPPBCPObyGasPhase(:,:,:)\n     LOGICAL                     :: Archive_LossPOPPBCPObyGasPhase\n\n     REAL(f4),           POINTER :: ProdPOPPBCPOfromGasPhase(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPBCPOfromGasPhase\n\n     REAL(f4),           POINTER :: ProdPOPGfromOH(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPGfromOH\n\n     REAL(f4),           POINTER :: ProdPOPPOCPOfromO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPOCPOfromO3\n\n     REAL(f4),           POINTER :: ProdPOPPOCPIfromO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPOCPIfromO3\n\n     REAL(f4),           POINTER :: ProdPOPPBCPIfromO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPBCPIfromO3\n\n     REAL(f4),           POINTER :: ProdPOPPBCPOfromO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPBCPOfromO3\n\n     REAL(f4),           POINTER :: ProdPOPPOCPOfromNO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPOCPOfromNO3\n\n     REAL(f4),           POINTER :: ProdPOPPOCPIfromNO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPOCPIfromNO3\n\n     REAL(f4),           POINTER :: ProdPOPPBCPIfromNO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPBCPIfromNO3\n\n     REAL(f4),           POINTER :: ProdPOPPBCPOfromNO3(:,:,:)\n     LOGICAL                     :: Archive_ProdPOPPBCPOfromNO3\n\n     ! Hg specialty simulation\n     !  -- emissions quantities (e.g. for HEMCO manual diagnostics)\n     REAL(f4),           POINTER :: EmisHg0anthro(:,:)\n     LOGICAL                     :: Archive_EmisHg0anthro\n\n     REAL(f4),           POINTER :: EmisHg0biomass(:,:)\n     LOGICAL                     :: Archive_EmisHg0biomass\n\n     REAL(f4),           POINTER :: EmisHg0geogenic(:,:)\n     LOGICAL                     :: Archive_EmisHg0geogenic\n\n     REAL(f4),           POINTER :: EmisHg0land(:,:)\n     LOGICAL                     :: Archive_EmisHg0land\n\n     REAL(f4),           POINTER :: EmisHg0ocean(:,:)\n     LOGICAL                     :: Archive_EmisHg0ocean\n\n     REAL(f4),           POINTER :: EmisHg0snow(:,:)\n     LOGICAL                     :: Archive_EmisHg0snow\n\n     REAL(f4),           POINTER :: EmisHg0soil(:,:)\n     LOGICAL                     :: Archive_EmisHg0soil\n\n     REAL(f4),           POINTER :: EmisHg2HgPanthro(:,:)\n     LOGICAL                     :: Archive_EmisHg0vegetation\n\n     REAL(f4),           POINTER :: EmisHg0vegetation(:,:)\n     LOGICAL                     :: Archive_EmisHg2HgPanthro\n\n     REAL(f4),           POINTER :: EmisHg2snowToOcean(:,:)\n     LOGICAL                     :: Archive_EmisHg2snowToOcean\n\n     REAL(f4),           POINTER :: EmisHg2rivers(:,:)\n     LOGICAL                     :: Archive_EmisHg2rivers\n\n     REAL(f4),           POINTER :: FluxHg2HgPfromAirToSnow(:,:)\n     LOGICAL                     :: Archive_FluxHg2HgPfromAirToSnow\n     !\n     !  -- oceanic quantities\n     REAL(f4),           POINTER :: FluxHg0fromOceanToAir(:,:)\n     LOGICAL                     :: Archive_FluxHg0fromAirToOcean\n\n     REAL(f4),           POINTER :: FluxHg0fromAirToOcean(:,:)\n     LOGICAL                     :: Archive_FluxHg0fromOceanToAir\n\n     REAL(f4),           POINTER :: FluxHg2HgPfromAirToOcean(:,:)\n     LOGICAL                     :: Archive_FluxHg2HgPfromAirToOcean\n\n     REAL(f4),           POINTER :: FluxHg2toDeepOcean(:,:)\n     LOGICAL                     :: Archive_FluxHg2toDeepOcean\n\n     REAL(f4),           POINTER :: FluxOCtoDeepOcean(:,:)\n     LOGICAL                     :: Archive_FluxOCtoDeepOcean\n\n     REAL(f4),           POINTER :: MassHg0inOcean(:,:)\n     LOGICAL                     :: Archive_MassHg0inOcean\n\n     REAL(f4),           POINTER :: MassHg2inOcean(:,:)\n     LOGICAL                     :: Archive_MassHg2inOcean\n\n     REAL(f4),           POINTER :: MassHgPinOcean(:,:)\n     LOGICAL                     :: Archive_MassHgPinOcean\n\n     REAL(f4),           POINTER :: MassHgTotalInOcean(:,:)\n     LOGICAL                     :: Archive_MassHgTotalInOcean\n     !\n     !  -- chemistry quantities\n     REAL(f4),           POINTER :: ConcBr(:,:,:)\n     LOGICAL                     :: Archive_ConcBr\n\n     REAL(f4),           POINTER :: ConcBrO(:,:,:)\n     LOGICAL                     :: Archive_ConcBrO\n\n     REAL(f4),           POINTER :: LossHg2bySeaSalt(:,:,:)\n     LOGICAL                     :: Archive_LossHg2bySeaSalt\n\n     REAL(f4),           POINTER :: LossRateHg2bySeaSalt(:,:  )\n     LOGICAL                     :: Archive_LossRateHg2bySeaSalt\n\n     REAL(f4),           POINTER :: PolarConcBr(:,:,:)\n     LOGICAL                     :: Archive_PolarConcBr\n\n     REAL(f4),           POINTER :: PolarConcBrO(:,:,:)\n     LOGICAL                     :: Archive_PolarConcBrO\n\n     REAL(f4),           POINTER :: PolarConcO3(:,:,:)\n     LOGICAL                     :: Archive_PolarConcO3\n\n     REAL(f4),           POINTER :: ProdHg2fromBr(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromBr\n\n     REAL(f4),           POINTER :: ProdHg2fromBrY(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromBrY\n\n     REAL(f4),           POINTER :: ProdHg2fromClY(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromClY\n\n     REAL(f4),           POINTER :: ProdHg2fromHg0(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHg0\n\n     REAL(f4),           POINTER :: ProdHg2fromHgBrPlusBr2(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHgBrPlusBr2\n\n     REAL(f4),           POINTER :: ProdHg2fromHgBrPlusBrBrO(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHgBrPlusBrBrO\n\n     REAL(f4),           POINTER :: ProdHg2fromHgBrPlusBrClO(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHgBrPlusBrClO\n\n     REAL(f4),           POINTER :: ProdHg2fromHgBrPlusBrHO2(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHgBrPlusBrHO2\n\n     REAL(f4),           POINTER :: ProdHg2fromHgBrPlusBrNO2(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHgBrPlusBrNO2\n\n     REAL(f4),           POINTER :: ProdHg2fromHgBrPlusBrOH(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromHgBrPlusBrOH\n\n     REAL(f4),           POINTER :: ProdHg2fromOH(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromOH\n\n     REAL(f4),           POINTER :: ProdHg2fromO3(:,:,:)\n     LOGICAL                     :: Archive_ProdHg2fromO3\n\n     REAL(f4),           POINTER :: ParticulateBoundHg(:,:,:)\n     LOGICAL                     :: Archive_ParticulateBoundHg\n\n     REAL(f4),           POINTER :: ReactiveGaseousHg(:,:,:)\n     LOGICAL                     :: Archive_ReactiveGaseousHg\n\n     ! From Viral Shah (MSL, 7.1.21)\n     REAL(f4), POINTER :: HgBrAfterChem            (:,:,:)\n     LOGICAL :: Archive_HgBrAfterChem\n\n     REAL(f4), POINTER :: HgClAfterChem            (:,:,:)\n     LOGICAL :: Archive_HgClAfterChem\n\n     REAL(f4), POINTER :: HgOHAfterChem            (:,:,:)\n     LOGICAL :: Archive_HgOHAfterChem\n\n     REAL(f4), POINTER :: HgBrOAfterChem           (:,:,:)\n     LOGICAL :: Archive_HgBrOAfterChem\n\n     REAL(f4), POINTER :: HgClOAfterChem           (:,:,:)\n     LOGICAL :: Archive_HgClOAfterChem\n\n     REAL(f4), POINTER :: HgOHOAfterChem           (:,:,:)\n     LOGICAL :: Archive_HgOHOAfterChem\n\n     REAL(f4), POINTER :: Hg2GToHg2P               (:,:,:)\n     LOGICAL :: Archive_Hg2GToHg2P\n\n     REAL(f4), POINTER :: Hg2PToHg2G               (:,:,:)\n     LOGICAL :: Archive_Hg2PToHg2G\n\n     REAL(f4), POINTER :: Hg2GasToHg2StrP          (:,:,:)\n     LOGICAL :: Archive_Hg2GasToHg2StrP\n\n     REAL(f4), POINTER :: Hg2GasToSSA              (:,:,:)\n     LOGICAL :: Archive_Hg2GasToSSA\n\n     !%%%%% Simulation with RRTMG %%%%%\n\n     INTEGER                     :: nRadOut\n     INTEGER,            POINTER :: RadOutInd(:)\n     CHARACTER(LEN=4),   POINTER :: RadOutName(:)\n\n     REAL(f4),           POINTER :: RadAllSkyLWSurf(:,:,:)\n     LOGICAL                     :: Archive_RadAllSkyLWSurf\n\n     REAL(f4),           POINTER :: RadAllSkyLWTOA(:,:,:)\n     LOGICAL                     :: Archive_RadAllSkyLWTOA\n\n     REAL(f4),           POINTER :: RadAllSkySWSurf(:,:,:)\n     LOGICAL                     :: Archive_RadAllSkySWSurf\n\n     REAL(f4),           POINTER :: RadAllSkySWTOA(:,:,:)\n     LOGICAL                     :: Archive_RadAllSkySWTOA\n\n     REAL(f4),           POINTER :: RadClrSkyLWSurf(:,:,:)\n     LOGICAL                     :: Archive_RadClrSkyLWSurf\n\n     REAL(f4),           POINTER :: RadClrSkyLWTOA(:,:,:)\n     LOGICAL                     :: Archive_RadClrSkyLWTOA\n\n     REAL(f4),           POINTER :: RadClrSkySWSurf(:,:,:)\n     LOGICAL                     :: Archive_RadClrSkySWSurf\n\n     REAL(f4),           POINTER :: RadClrSkySWTOA(:,:,:)\n     LOGICAL                     :: Archive_RadClrSkySWTOA\n\n     REAL(f4),           POINTER :: RadAllSkyLWTrop(:,:,:)\n     LOGICAL                     :: Archive_RadAllSkyLWTrop\n\n     REAL(f4),           POINTER :: RadAllSkySWTrop(:,:,:)\n     LOGICAL                     :: Archive_RadAllSkySWTrop\n\n     REAL(f4),           POINTER :: RadClrSkyLWTrop(:,:,:)\n     LOGICAL                     :: Archive_RadClrSkyLWTrop\n\n     REAL(f4),           POINTER :: RadClrSkySWTrop(:,:,:)\n     LOGICAL                     :: Archive_RadClrSkySWTrop\n\n     REAL(f4),           POINTER :: RadAODWL1(:,:,:)\n     LOGICAL                     :: Archive_RadAODWL1\n\n     REAL(f4),           POINTER :: RadAODWL2(:,:,:)\n     LOGICAL                     :: Archive_RadAODWL2\n\n     REAL(f4),           POINTER :: RadAODWL3(:,:,:)\n     LOGICAL                     :: Archive_RadAODWL3\n\n     REAL(f4),           POINTER :: RadSSAWL1(:,:,:)\n     LOGICAL                     :: Archive_RadSSAWL1\n\n     REAL(f4),           POINTER :: RadSSAWL2(:,:,:)\n     LOGICAL                     :: Archive_RadSSAWL2\n\n     REAL(f4),           POINTER :: RadSSAWL3(:,:,:)\n     LOGICAL                     :: Archive_RadSSAWL3\n\n     REAL(f4),           POINTER :: RadAsymWL1(:,:,:)\n     LOGICAL                     :: Archive_RadAsymWL1\n\n     REAL(f4),           POINTER :: RadAsymWL2(:,:,:)\n     LOGICAL                     :: Archive_RadAsymWL2\n\n     REAL(f4),           POINTER :: RadAsymWL3(:,:,:)\n     LOGICAL                     :: Archive_RadAsymWL3\n\n     LOGICAL                     :: Archive_RadOptics\n\n     REAL(f8),           POINTER :: DynHeating(:,:,:)\n     LOGICAL                     :: Archive_DynHeating\n\n     REAL(f4),           POINTER :: DTRad(:,:,:)\n     LOGICAL                     :: Archive_DTRad\n\n     REAL(f4),           POINTER :: IsWater(:,:)\n     REAL(f4),           POINTER :: IsLand(:,:)\n     REAL(f4),           POINTER :: IsIce(:,:)\n     REAL(f4),           POINTER :: IsSnow(:,:)\n     LOGICAL                     :: Archive_sfcType\n\n     !----------------------------------------------------------------------\n     ! Variables for the ObsPack diagnostic\n     ! NOTE: ObsPack archives point data, so don't register these\n     ! as the ObsPack file format won't be COARDS-compliant!\n     !----------------------------------------------------------------------\n\n     ! ObsPack File variables\n     LOGICAL                     :: Do_ObsPack\n     INTEGER                     :: ObsPack_fId\n     CHARACTER(LEN=1024)         :: ObsPack_InFile\n     CHARACTER(LEN=1024)         :: ObsPack_OutFile\n\n     ! ObsPack Inputs\n     INTEGER                     :: ObsPack_nObs\n     CHARACTER(LEN=1),   POINTER :: ObsPack_CharArray    (:,:)\n     CHARACTER(LEN=200), POINTER :: ObsPack_Id           (:  )\n     INTEGER,            POINTER :: ObsPack_nSamples     (:  )\n     INTEGER,            POINTER :: ObsPack_Strategy     (:  )\n     REAL(f4),           POINTER :: ObsPack_Latitude     (:  )\n     REAL(f4),           POINTER :: ObsPack_Longitude    (:  )\n     REAL(f4),           POINTER :: ObsPack_Altitude     (:  )\n\n     ! ObsPack time and averaging interval variables\n     REAL(f8)                    :: ObsPack_Ival_Length\n     REAL(f8),           POINTER :: ObsPack_Ival_Start   (:  )\n     REAL(f8),           POINTER :: ObsPack_Ival_Center  (:  )\n     REAL(f8),           POINTER :: ObsPack_Ival_End     (:  )\n\n     ! ObsPack outputs (add more if necessary)\n     REAL(f4),           POINTER :: ObsPack_P            (:  )\n     REAL(f4),           POINTER :: ObsPack_U            (:  )\n     REAL(f4),           POINTER :: ObsPack_V            (:  )\n     REAL(f4),           POINTER :: ObsPack_BLH          (:  )\n     REAL(f4),           POINTER :: ObsPack_Q            (:  )\n     REAL(f4),           POINTER :: ObsPack_T            (:  )\n\n     ! ObsPack species and metadata variables\n     INTEGER                     :: ObsPack_nSpecies\n     REAL(f4),           POINTER :: ObsPack_Species      (:,:)\n     INTEGER,            POINTER :: ObsPack_Species_Ind  (:  )\n     CHARACTER(LEN=31 ), POINTER :: ObsPack_Species_Name (:  )\n     CHARACTER(LEN=80 ), POINTER :: ObsPack_Species_LName(:  )\n\n#ifdef MODEL_GEOS\n     !----------------------------------------------------------------------\n     ! The following diagnostics are only used when\n     ! GEOS-Chem is interfaced into the NASA-GEOS ESM\n     !----------------------------------------------------------------------\n\n     REAL(f4),           POINTER :: MoninObukhov(:,:)\n     LOGICAL                     :: Archive_MoninObukhov\n\n     REAL(f4),           POINTER :: Bry(:,:,:)\n     LOGICAL                     :: Archive_Bry\n\n     REAL(f4),           POINTER :: NOy(:,:,:)\n     LOGICAL                     :: Archive_NOy\n\n     REAL(f4),           POINTER :: Cly(:,:,:)\n     LOGICAL                     :: Archive_Cly\n\n     REAL(f4),           POINTER :: OrganicCl(:,:,:)\n     LOGICAL                     :: Archive_OrganicCl\n\n     REAL(f4),           POINTER :: O3_MASS(:,:,:)\n     LOGICAL                     :: Archive_O3_MASS\n\n     REAL(f4),           POINTER :: GCCTO3(:,:)\n     LOGICAL                     :: Archive_GCCTO3\n\n     REAL(f4),           POINTER :: GCCTTO3(:,:)\n     LOGICAL                     :: Archive_GCCTTO3\n\n     REAL(f4),           POINTER :: O3MASS(:,:,:)\n     LOGICAL                     :: Archive_O3MASS\n\n     REAL(f4),           POINTER :: CHEMTOP(:,:)\n     LOGICAL                     :: Archive_CHEMTOP\n\n     REAL(f4),           POINTER :: CHEMTROPP(:,:)\n     LOGICAL                     :: Archive_CHEMTROPP\n\n     REAL(f4),           POINTER :: CONVCLDTOP(:,:)\n     LOGICAL                     :: Archive_CONVCLDTOP\n\n     REAL(f4),           POINTER :: EXTRALNLEVS(:,:)\n     LOGICAL                     :: Archive_EXTRALNLEVS\n\n     REAL(f4),           POINTER :: EXTRALNITER(:,:)\n     LOGICAL                     :: Archive_EXTRALNITER\n\n     REAL(f4),           POINTER :: LIGHTNINGPOTENTIAL(:,:)\n     LOGICAL                     :: Archive_LGHTPOTENTIAL\n\n     !%%%%% Chemistry diagnostics %%%%%\n\n     REAL(f4),           POINTER :: O3concAfterChem(:,:,:)\n     LOGICAL                     :: Archive_O3concAfterChem\n\n     REAL(f4),           POINTER :: RO2concAfterChem(:,:,:)\n     LOGICAL                     :: Archive_RO2concAfterChem\n\n     !%%%%% PM2.5 diagnostics %%%%%\n\n     REAL(f4),           POINTER :: PM25ni(:,:,:)     ! PM25 nitrate+ammonium\n     LOGICAL                     :: Archive_PM25ni\n\n     REAL(f4),           POINTER :: PM25nit(:,:,:)     ! PM25 nitrates\n     LOGICAL                     :: Archive_PM25nit\n\n     REAL(f4),           POINTER :: PM25nh4(:,:,:)     ! PM25 ammonium\n     LOGICAL                     :: Archive_PM25nh4\n\n     REAL(f4),           POINTER :: PM25su(:,:,:)     ! PM25 sulfates\n     LOGICAL                     :: Archive_PM25su\n\n     REAL(f4),           POINTER :: PM25oc(:,:,:)     ! PM25 OC\n     LOGICAL                     :: Archive_PM25oc\n\n     REAL(f4),           POINTER :: PM25bc(:,:,:)     ! PM25 BC\n     LOGICAL                     :: Archive_PM25bc\n\n     REAL(f4),           POINTER :: PM25du(:,:,:)     ! PM25 dust\n     LOGICAL                     :: Archive_PM25du\n\n     REAL(f4),           POINTER :: PM25ss(:,:,:)     ! PM25 sea salt\n     LOGICAL                     :: Archive_PM25ss\n\n     REAL(f4),           POINTER :: PM25soa(:,:,:)    ! PM25 SOA\n     LOGICAL                     :: Archive_PM25soa\n\n     !%%%%% Species diagnostics %%%%%\n     REAL(f4),           POINTER :: PblCol(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_PblCol\n     LOGICAL                     :: Archive_PblCol\n\n     REAL(f4),           POINTER :: TropCol(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TropCol\n     LOGICAL                     :: Archive_TropCol\n\n     REAL(f4),           POINTER :: TotCol(:,:,:)\n     TYPE(DgnMap),       POINTER :: Map_TotCol\n     LOGICAL                     :: Archive_TotCol\n\n     ! Carbon stuff\n     REAL(f4),           POINTER :: COincCO2phot(:,:,:)\n     LOGICAL                     :: Archive_COincCO2phot\n\n     REAL(f4),           POINTER :: CO2photrate(:,:,:)\n     LOGICAL                     :: Archive_CO2photrate\n#endif\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n     !----------------------------------------------------------------------\n     ! The following diagnostics are only used when\n     ! GEOS-Chem is interfaced into WRF (as WRF-GC) or CESM\n     !----------------------------------------------------------------------\n     REAL(f4),           POINTER :: KppError(:,:,:)\n     LOGICAL                     :: Archive_KppError\n#endif\n\n     !----------------------------------------------------------------------\n     ! Registry of variables contained within State_Diag\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=4)            :: State     = 'DIAG'   ! Name of this state\n     TYPE(MetaRegItem),  POINTER :: Registry  => NULL()  ! Registry object\n     TYPE(dictionary_t)          :: RegDict              ! Lookup table\n\n  END TYPE DgnState\n!\n! !REVISION HISTORY:\n!  05 Jul 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOC\n!------------------------------------------------------------------------------\n!BOC\n!\n! !MODULE INTERFACES:\n!\n  INTERFACE Finalize\n     MODULE PROCEDURE Finalize_R4_2D\n     MODULE PROCEDURE Finalize_R4_3D\n     MODULE PROCEDURE Finalize_R4_4D\n     MODULE PROCEDURE Finalize_R8_2D\n     MODULE PROCEDURE Finalize_R8_3D\n     MODULE PROCEDURE Finalize_R8_4D\n  END INTERFACE Finalize\n\n  INTERFACE Init_and_Register\n     MODULE PROCEDURE Init_and_Register_R4_2D\n     MODULE PROCEDURE Init_and_Register_R4_3D\n     MODULE PROCEDURE Init_and_Register_R4_4D\n     MODULE PROCEDURE Init_and_Register_R8_2D\n     MODULE PROCEDURE Init_and_Register_R8_3D\n     MODULE PROCEDURE Init_and_Register_R8_4D\n  END INTERFACE Init_and_Register\n\n  INTERFACE Register_DiagField\n     MODULE PROCEDURE Register_DiagField_R4_2D\n     MODULE PROCEDURE Register_DiagField_R4_3D\n     MODULE PROCEDURE Register_DiagField_R4_4D\n     MODULE PROCEDURE Register_DiagField_R8_2D\n     MODULE PROCEDURE Register_DiagField_R8_3D\n     MODULE PROCEDURE Register_DiagField_R8_4D\n  END INTERFACE Register_DiagField\n!\n! !DEFINED PARAMETERS:\n!\n  CHARACTER(LEN=5), PARAMETER :: UVFlux_Tag_Names(18) =                    (/&\n       '187nm', '191nm', '193nm', '196nm', '202nm', '208nm',                 &\n       '211nm', '214nm', '261nm', '267nm', '277nm', '295nm',                 &\n       '303nm', '310nm', '316nm', '333nm', '380nm', '574nm'                /)\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Zero_State_Diag\n!\n! !DESCRIPTION: Nullifies all fields of State_Diag.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Zero_State_Diag( State_Diag, RC )\n!\n! !USES\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! %%% Free pointers and set logicals %%%\n    State_Diag%SpeciesRst                          => NULL()\n    State_Diag%Archive_SpeciesRst                  = .FALSE.\n\n    State_Diag%SpeciesBC                           => NULL()\n    State_Diag%Map_SpeciesBC                       => NULL()\n    State_Diag%Archive_SpeciesBC                   = .FALSE.\n\n    ! v/v dry VMR of species array\n    State_Diag%SpeciesConcVV                       => NULL()\n    State_Diag%Map_SpeciesConcVV                   => NULL()\n    State_Diag%Archive_SpeciesConcVV               = .FALSE.\n\n    ! molec/cm3 diagnostic\n    State_Diag%SpeciesConcMND                      => NULL()\n    State_Diag%Map_SpeciesConcMND                  => NULL()\n    State_Diag%Archive_SpeciesConcMND              = .FALSE.\n\n    State_Diag%ConcBeforeChem                      => NULL()\n    State_Diag%Map_ConcBeforeChem                  => NULL()\n    State_Diag%Archive_ConcBeforeChem              = .FALSE.\n\n    State_Diag%ConcAfterChem                       => NULL()\n    State_Diag%Map_ConcAfterChem                   => NULL()\n    State_Diag%Archive_ConcAfterChem               = .FALSE.\n\n#ifdef ADJOINT\n    State_Diag%SpeciesAdj                          => NULL()\n    State_Diag%Map_SpeciesAdj                      => NULL()\n    State_Diag%Archive_SpeciesAdj                  = .FALSE.\n\n    State_Diag%ScaleICsAdj                         => NULL()\n    State_Diag%Map_ScaleICSAdj                     => NULL()\n    State_Diag%Archive_ScaleICsAdj                 = .FALSE.\n#endif\n\n    State_Diag%FracOfTimeInTrop                    => NULL()\n    State_Diag%Archive_FracOfTimeInTrop            = .FALSE.\n\n    !%%%%% Budget diagnostics %%%%%\n\n    State_Diag%BudgetEmisDryDepFull                => NULL()\n    State_Diag%Map_BudgetEmisDryDepFull            => NULL()\n    State_Diag%Archive_BudgetEmisDryDepFull        = .FALSE.\n    State_Diag%Archive_BudgetEmisDryDep            = .FALSE.\n\n    State_Diag%BudgetEmisDryDepTrop                => NULL()\n    State_Diag%Map_BudgetEmisDryDepTrop            => NULL()\n    State_Diag%Archive_BudgetEmisDryDepTrop        = .FALSE.\n\n    State_Diag%BudgetEmisDryDepPBL                 => NULL()\n    State_Diag%Map_BudgetEmisDryDepPBL             => NULL()\n    State_Diag%Archive_BudgetEmisDryDepPBL         = .FALSE.\n\n    State_Diag%BudgetEmisDryDepLevs                => NULL()\n    State_Diag%Map_BudgetEmisDryDepLevs            => NULL()\n    State_Diag%Archive_BudgetEmisDryDepLevs        = .FALSE.\n\n    State_Diag%BudgetTransportFull                 => NULL()\n    State_Diag%Map_BudgetTransportFull             => NULL()\n    State_Diag%Archive_BudgetTransportFull         = .FALSE.\n    State_Diag%Archive_BudgetTransport             = .FALSE.\n\n    State_Diag%BudgetTransportTrop                 => NULL()\n    State_Diag%Map_BudgetTransportTrop             => NULL()\n    State_Diag%Archive_BudgetTransportTrop         = .FALSE.\n\n    State_Diag%BudgetTransportPBL                  => NULL()\n    State_Diag%Map_BudgetTransportPBL              => NULL()\n    State_Diag%Archive_BudgetTransportPBL          = .FALSE.\n\n    State_Diag%BudgetTransportLevs                 => NULL()\n    State_Diag%Map_BudgetTransportLevs             => NULL()\n    State_Diag%Archive_BudgetTransportLevs         = .FALSE.\n\n    State_Diag%BudgetMixingFull                    => NULL()\n    State_Diag%Map_BudgetMixingFull                => NULL()\n    State_Diag%Archive_BudgetMixingFull            = .FALSE.\n    State_Diag%Archive_BudgetMixing                = .FALSE.\n\n    State_Diag%BudgetMixingTrop                    => NULL()\n    State_Diag%Map_BudgetMixingTrop                => NULL()\n    State_Diag%Archive_BudgetMixingTrop            = .FALSE.\n\n    State_Diag%BudgetMixingPBL                     => NULL()\n    State_Diag%Map_BudgetMixingPBL                 => NULL()\n    State_Diag%Archive_BudgetMixingPBL             = .FALSE.\n\n    State_Diag%BudgetMixingLevs                    => NULL()\n    State_Diag%Map_BudgetMixingLevs                => NULL()\n    State_Diag%Archive_BudgetMixingLevs            = .FALSE.\n\n    State_Diag%BudgetConvectionFull                => NULL()\n    State_Diag%Map_BudgetConvectionFull            => NULL()\n    State_Diag%Archive_BudgetConvectionFull        = .FALSE.\n    State_Diag%Archive_BudgetConvection            = .FALSE.\n\n    State_Diag%BudgetConvectionTrop                => NULL()\n    State_Diag%Map_BudgetConvectionTrop            => NULL()\n    State_Diag%Archive_BudgetConvectionTrop        = .FALSE.\n\n    State_Diag%BudgetConvectionPBL                 => NULL()\n    State_Diag%Map_BudgetConvectionPBL             => NULL()\n    State_Diag%Archive_BudgetConvectionPBL         = .FALSE.\n\n    State_Diag%BudgetConvectionLevs                => NULL()\n    State_Diag%Map_BudgetConvectionLevs            => NULL()\n    State_Diag%Archive_BudgetConvectionLevs        = .FALSE.\n\n    State_Diag%BudgetChemistryFull                 => NULL()\n    State_Diag%Map_BudgetChemistryFull             => NULL()\n    State_Diag%Archive_BudgetChemistryFull         = .FALSE.\n    State_Diag%Archive_BudgetChemistry             = .FALSE.\n\n    State_Diag%BudgetChemistryTrop                 => NULL()\n    State_Diag%Map_BudgetChemistryTrop             => NULL()\n    State_Diag%Archive_BudgetChemistryTrop         = .FALSE.\n\n    State_Diag%BudgetChemistryPBL                  => NULL()\n    State_Diag%Map_BudgetChemistryPBL              => NULL()\n    State_Diag%Archive_BudgetChemistryPBL          = .FALSE.\n\n    State_Diag%BudgetChemistryLevs                 => NULL()\n    State_Diag%Map_BudgetChemistryLevs             => NULL()\n    State_Diag%Archive_BudgetChemistryLevs         = .FALSE.\n\n    State_Diag%BudgetWetDepFull                    => NULL()\n    State_Diag%Map_BudgetWetDepFull                => NULL()\n    State_Diag%Archive_BudgetWetDepFull            = .FALSE.\n    State_Diag%Archive_BudgetWetDep                = .FALSE.\n\n    State_Diag%BudgetWetDepTrop                    => NULL()\n    State_Diag%Map_BudgetWetDepTrop                => NULL()\n    State_Diag%Archive_BudgetWetDepTrop            = .FALSE.\n\n    State_Diag%BudgetWetDepPBL                     => NULL()\n    State_Diag%Map_BudgetWetDepPBL                 => NULL()\n    State_Diag%Archive_BudgetWetDepPBL             = .FALSE.\n\n    State_Diag%BudgetWetDepLevs                    => NULL()\n    State_Diag%Map_BudgetWetDepLevs                => NULL()\n    State_Diag%Archive_BudgetWetDepLevs            = .FALSE.\n\n    State_Diag%BudgetColumnMass                    => NULL()\n    State_Diag%Archive_Budget                      = .FALSE.\n\n    State_Diag%BudgetTopLev_int = -999\n    State_Diag%BudgetBotLev_int = -999\n\n    !%%%%% Drydep diagnostics %%%%%\n\n    State_Diag%DryDepChm                           => NULL()\n    State_Diag%Map_DryDepChm                       => NULL()\n    State_Diag%Archive_DryDepChm                   = .FALSE.\n\n    State_Diag%DryDepMix                           => NULL()\n    State_Diag%Map_DryDepMix                       => NULL()\n    State_Diag%Archive_DryDepMix                   = .FALSE.\n\n    State_Diag%DryDep                              => NULL()\n    State_Diag%Map_DryDep                          => NULL()\n    State_Diag%Archive_DryDep                      = .FALSE.\n\n    State_Diag%DryDepVel                           => NULL()\n    State_Diag%Map_DryDepVel                       => NULL()\n    State_Diag%Archive_DryDepVel                   = .FALSE.\n\n    State_Diag%SatDiagnDryDep                      => NULL()\n    State_Diag%Map_SatDiagnDryDep                  => NULL()\n    State_Diag%Archive_SatDiagnDryDep              = .FALSE.\n    State_Diag%Archive_SatDiagn                    = .FALSE.\n\n    State_Diag%SatDiagnDryDepVel                   => NULL()\n    State_Diag%Map_SatDiagnDryDepVel               => NULL()\n    State_Diag%Archive_SatDiagnDryDepVel           = .FALSE.\n\n    !%%%%% Chemistry, J-value, Prod/Loss diagnostics %%%%%\n\n    State_Diag%Jval                                => NULL()\n    State_Diag%Map_Jval                            => NULL()\n    State_Diag%Archive_Jval                        = .FALSE.\n\n    State_Diag%JvalO3O1D                           => NULL()\n    State_Diag%Archive_JvalO3O1D                   = .FALSE.\n\n    State_Diag%JvalO3O3P                           => NULL()\n    State_Diag%Archive_JvalO3O3P                   = .FALSE.\n\n    State_Diag%SatDiagnJval                        => NULL()\n    State_Diag%Map_SatDiagnJval                    => NULL()\n    State_Diag%Archive_SatDiagnJval                = .FALSE.\n\n    State_Diag%SatDiagnJvalO3O1D                   => NULL()\n    State_Diag%Archive_SatDiagnJvalO3O1D           = .FALSE.\n\n    State_Diag%SatDiagnJvalO3O3P                   => NULL()\n    State_Diag%Archive_SatDiagnJvalO3O3P           = .FALSE.\n\n    State_Diag%JNoon                               => NULL()\n    State_Diag%Map_JNoon                           => NULL()\n    State_Diag%Archive_JNoon                       = .FALSE.\n\n    State_Diag%JNoonFrac                           => NULL()\n    State_Diag%Archive_JNoonFrac                   = .FALSE.\n\n    State_Diag%RxnRate                             => NULL()\n    State_Diag%Map_RxnRate                         => NULL()\n    State_Diag%Archive_RxnRate                     = .FALSE.\n\n    State_Diag%SatDiagnRxnRate                     => NULL()\n    State_Diag%Map_SatDiagnRxnRate                 => NULL()\n    State_Diag%Archive_SatDiagnRxnRate             = .FALSE.\n\n    State_Diag%RxnConst                            => NULL()\n    State_Diag%Map_RxnConst                        => NULL()\n    State_Diag%Archive_RxnConst                    = .FALSE.\n\n    State_Diag%OHreactivity                        => NULL()\n    State_Diag%Archive_OHreactivity                = .FALSE.\n\n    State_Diag%SatDiagnOHreactivity                => NULL()\n    State_Diag%Archive_SatDiagnOHreactivity        = .FALSE.    \n\n    State_Diag%UVFluxDiffuse                       => NULL()\n    State_Diag%Map_UvFluxDiffuse                   => NULL()\n    State_Diag%Archive_UVFluxDiffuse               = .FALSE.\n\n    State_Diag%UVFluxDirect                        => NULL()\n    State_Diag%Map_UvFluxDirect                    => NULL()\n    State_Diag%Archive_UVFluxDirect                = .FALSE.\n\n    State_Diag%UVFluxNet                           => NULL()\n    State_Diag%Map_UvFluxNet                       => NULL()\n    State_Diag%Archive_UVFluxNet                   = .FALSE.\n\n    State_Diag%OD600                               => NULL()\n    State_Diag%Archive_OD600                       = .FALSE.\n\n    State_Diag%TCOD600                            => NULL()\n    State_Diag%Archive_TCOD600                    = .FALSE.\n\n    State_Diag%OHconcAfterChem                     => NULL()\n    State_Diag%Archive_OHconcAfterChem             = .FALSE.\n\n    State_Diag%HO2concAfterChem                    => NULL()\n    State_Diag%Archive_HO2concAfterChem            = .FALSE.\n\n    State_Diag%O1DconcAfterChem                    => NULL()\n    State_Diag%Archive_O1DconcAfterChem            = .FALSE.\n\n    State_Diag%O3PconcAfterChem                    => NULL()\n    State_Diag%Archive_O3PconcAfterChem            = .FALSE.\n\n    State_Diag%CH4pseudoflux                       => NULL()\n    State_Diag%Archive_CH4pseudoflux               = .FALSE.\n\n    State_Diag%SatDiagnLoss                        => NULL()\n    State_Diag%Map_SatDiagnLoss                    => NULL()\n    State_Diag%Archive_SatDiagnLoss                = .FALSE.\n\n    State_Diag%Loss                                => NULL()\n    State_Diag%Map_Loss                            => NULL()\n    State_Diag%Archive_Loss                        = .FALSE.\n\n    State_Diag%SatDiagnProd                        => NULL()\n    State_Diag%Map_SatDiagnProd                    => NULL()\n    State_Diag%Archive_SatDiagnProd                = .FALSE.\n\n    State_Diag%Prod                                => NULL()\n    State_Diag%Map_Prod                            => NULL()\n    State_Diag%Archive_Prod                        = .FALSE.\n\n#ifdef MODEL_GEOS\n    State_Diag%NOxTau                              => NULL()\n    State_Diag%Archive_NOxTau                      = .FALSE.\n\n    State_Diag%TropNOxTau                          => NULL()\n    State_Diag%Archive_TropNOxTau                  = .FALSE.\n#endif\n\n    !%%%%% Aerosol hygroscopic growth diagnostics %%%%%\n\n    State_Diag%AerHygGrowth                        => NULL()\n    State_Diag%Map_AerHygGrowth                    => NULL()\n    State_Diag%Archive_AerHygGrowth                = .FALSE.\n\n    State_Diag%AerAqVol                            => NULL()\n    State_Diag%Archive_AerAqVol                    = .FALSE.\n\n    State_Diag%AerSurfAreaHyg                      => NULL()\n    State_Diag%Map_AerSurfAreaHyg                  => NULL()\n    State_Diag%Archive_AerSurfAreaHyg              = .FALSE.\n\n    State_Diag%AerSurfAreaDust                     => NULL()\n    State_Diag%Archive_AerSurfAreaDust             = .FALSE.\n\n    State_Diag%AerSurfAreaSLA                      => NULL()\n    State_Diag%Archive_AerSurfAreaSLA              = .FALSE.\n\n    State_Diag%AerSurfAreaPSC                      => NULL()\n    State_Diag%Archive_AerSurfAreaPSC              = .FALSE.\n\n    State_Diag%AerNumDenSLA                        => NULL()\n    State_Diag%Archive_AerNumDenSLA                = .FALSE.\n\n    State_Diag%AerNumDenPSC                        => NULL()\n    State_Diag%Archive_AerNumDenPSC                = .FALSE.\n\n#ifdef TOMAS\n    !%%%%% Tomas microphysical rate diagnostics %%%%%\n\n    State_Diag%Archive_Tomas                       = .FALSE.\n\n    State_Diag%TomasH2SO4mass                      => NULL()\n    State_Diag%Map_TomasH2SO4mass                  => NULL()\n    State_Diag%Archive_TomasH2SO4mass              = .FALSE.\n    State_Diag%Archive_Tomas                       = .FALSE.\n\n    State_Diag%TomasH2SO4number                    => NULL()\n    State_Diag%Map_TomasH2SO4number                => NULL()\n    State_Diag%Archive_TomasH2SO4number            = .FALSE.\n\n    State_Diag%TomasCOAGmass                       => NULL()\n    State_Diag%Map_TomasCOAGmass                   => NULL()\n    State_Diag%Archive_TomasCOAGmass               = .FALSE.\n\n    State_Diag%TomasCOAGnumber                     => NULL()\n    State_Diag%Map_TomasCOAGnumber                 => NULL()\n    State_Diag%Archive_TomasCOAGnumber             = .FALSE.\n\n    State_Diag%TomasNUCRATEFN                      => NULL()\n    State_Diag%Archive_TomasNUCRATEFN              = .FALSE.\n\n    State_Diag%TomasNUCLmass                       => NULL()\n    State_Diag%Map_TomasNUCLmass                   => NULL()\n    State_Diag%Archive_TomasNUCLmass               = .FALSE.\n\n    State_Diag%TomasNUCLnumber                       => NULL()\n    State_Diag%Map_TomasNUCLnumber                   => NULL()\n    State_Diag%Archive_TomasNUCLnumber               = .FALSE.\n\n    State_Diag%TomasNUCRATEnumber                       => NULL()\n    State_Diag%Map_TomasNUCRATEnumber                   => NULL()\n    State_Diag%Archive_TomasNUCRATEnumber               = .FALSE.\n\n    State_Diag%TomasAQOXmass                       => NULL()\n    State_Diag%Map_TomasAQOXmass                   => NULL()\n    State_Diag%Archive_TomasAQOXmass               = .FALSE.\n\n    State_Diag%TomasAQOXnumber                     => NULL()\n    State_Diag%Map_TomasAQOXnumber                 => NULL()\n    State_Diag%Archive_TomasAQOXnumber             = .FALSE.\n\n    State_Diag%TomasMNFIXmass                      => NULL()\n    State_Diag%Map_TomasMNFIXmass                  => NULL()\n    State_Diag%Archive_TomasMNFIXmass              = .FALSE.\n\n    State_Diag%TomasMNFIXnumber                    => NULL()\n    State_Diag%Map_TomasMNFIXnumber                => NULL()\n    State_Diag%Archive_TomasMNFIXnumber            = .FALSE.\n\n    State_Diag%TomasMNFIXh2so4mass                 => NULL()\n    State_Diag%Map_TomasMNFIXh2so4mass             => NULL()\n    State_Diag%Archive_TomasMNFIXh2so4mass         = .FALSE.\n\n    State_Diag%TomasMNFIXh2so4number               => NULL()\n    State_Diag%Map_TomasMNFIXh2so4number           => NULL()\n    State_Diag%Archive_TomasMNFIXh2so4number       = .FALSE.\n\n    State_Diag%TomasMNFIXcoagmass                  => NULL()\n    State_Diag%Map_TomasMNFIXcoagmass              => NULL()\n    State_Diag%Archive_TomasMNFIXcoagmass          = .FALSE.\n\n    State_Diag%TomasMNFIXcoagnumber                => NULL()\n    State_Diag%Map_TomasMNFIXcoagnumber            => NULL()\n    State_Diag%Archive_TomasMNFIXcoagnumber        = .FALSE.\n\n    State_Diag%TomasMNFIXaqoxmass                  => NULL()\n    State_Diag%Map_TomasMNFIXaqoxmass              => NULL()\n    State_Diag%Archive_TomasMNFIXaqoxmass          = .FALSE.\n\n    State_Diag%TomasMNFIXaqoxnumber                => NULL()\n    State_Diag%Map_TomasMNFIXaqoxnumber            => NULL()\n    State_Diag%Archive_TomasMNFIXaqoxnumber        = .FALSE.\n\n    State_Diag%TomasMNFIXezwat1mass                => NULL()\n    State_Diag%Map_TomasMNFIXezwat1mass            => NULL()\n    State_Diag%Archive_TomasMNFIXezwat1mass        = .FALSE.\n\n    State_Diag%TomasMNFIXezwat1number              => NULL()\n    State_Diag%Map_TomasMNFIXezwat1number          => NULL()\n    State_Diag%Archive_TomasMNFIXezwat1number      = .FALSE.\n\n    State_Diag%TomasMNFIXezwat2mass                => NULL()\n    State_Diag%Map_TomasMNFIXezwat2mass            => NULL()\n    State_Diag%Archive_TomasMNFIXezwat2mass        = .FALSE.\n\n    State_Diag%TomasMNFIXezwat2number              => NULL()\n    State_Diag%Map_TomasMNFIXezwat2number          => NULL()\n    State_Diag%Archive_TomasMNFIXezwat2number      = .FALSE.\n\n    State_Diag%TomasMNFIXezwat3mass                => NULL()\n    State_Diag%Map_TomasMNFIXezwat3mass            => NULL()\n    State_Diag%Archive_TomasMNFIXezwat3mass        = .FALSE.\n\n    State_Diag%TomasMNFIXezwat3number              => NULL()\n    State_Diag%Map_TomasMNFIXezwat3number          => NULL()\n    State_Diag%Archive_TomasMNFIXezwat3number      = .FALSE.\n \n    State_Diag%TomasMNFIXcheck1mass                => NULL()\n    State_Diag%Map_TomasMNFIXcheck1mass            => NULL()\n    State_Diag%Archive_TomasMNFIXcheck1mass        = .FALSE.\n\n    State_Diag%TomasMNFIXcheck1number              => NULL()\n    State_Diag%Map_TomasMNFIXcheck1number          => NULL()\n    State_Diag%Archive_TomasMNFIXcheck1number      = .FALSE.\n\n    State_Diag%TomasMNFIXcheck2mass                => NULL()\n    State_Diag%Map_TomasMNFIXcheck2mass            => NULL()\n    State_Diag%Archive_TomasMNFIXcheck2mass        = .FALSE.\n\n    State_Diag%TomasMNFIXcheck2number              => NULL()\n    State_Diag%Map_TomasMNFIXcheck2number          => NULL()\n    State_Diag%Archive_TomasMNFIXcheck2number      = .FALSE.\n\n    State_Diag%TomasMNFIXcheck3mass                => NULL()\n    State_Diag%Map_TomasMNFIXcheck3mass            => NULL()\n    State_Diag%Archive_TomasMNFIXcheck3mass        = .FALSE.\n\n    State_Diag%TomasMNFIXcheck3number              => NULL()\n    State_Diag%Map_TomasMNFIXcheck3number          => NULL()\n    State_Diag%Archive_TomasMNFIXcheck3number      = .FALSE.\n\n    State_Diag%TomasSOAmass                        => NULL()\n    State_Diag%Map_TomasSOAmass                    => NULL()\n    State_Diag%Archive_TomasSOAmass                = .FALSE.\n\n    State_Diag%TomasSOAnumber                      => NULL()\n    State_Diag%Map_TomasSOAnumber                  => NULL()\n    State_Diag%Archive_TomasSOAnumber              = .FALSE.\n#endif\n\n    !%%%%% Aerosol optical depth diagnostics %%%%%\n    State_Diag%AODDust                             => NULL()\n    State_Diag%Archive_AODDust                     = .FALSE.\n    State_Diag%Archive_AOD                         = .FALSE.\n    State_Diag%Archive_AODStrat                    = .FALSE.\n\n    State_Diag%AODDustWL1                          => NULL()\n    State_Diag%Map_AODDustWL1                      => NULL()\n    State_Diag%Archive_AODDustWL1                  = .FALSE.\n\n    State_Diag%AODDustWL2                          => NULL()\n    State_Diag%Map_AODDustWL2                      => NULL()\n    State_Diag%Archive_AODDustWL2                  = .FALSE.\n\n    State_Diag%AODDustWL3                          => NULL()\n    State_Diag%Map_AODDustWL3                      => NULL()\n    State_Diag%Archive_AODDustWL3                  = .FALSE.\n\n    State_Diag%AODHygWL1                           => NULL()\n    State_Diag%Map_AODHygWL1                       => NULL()\n    State_Diag%Archive_AODHygWL1                   = .FALSE.\n\n    State_Diag%AODHygWL2                           => NULL()\n    State_Diag%Map_AODHygWL2                       => NULL()\n    State_Diag%Archive_AODHygWL2                   = .FALSE.\n\n    State_Diag%AODHygWL3                           => NULL()\n    State_Diag%Map_AODHygWL3                       => NULL()\n    State_Diag%Archive_AODHygWL3                   = .FALSE.\n\n    State_Diag%AODSOAfromAqIsopWL1                 => NULL()\n    State_Diag%Archive_AODSOAfromAqIsopWL1         = .FALSE.\n\n    State_Diag%AODSOAfromAqIsopWL2                 => NULL()\n    State_Diag%Archive_AODSOAfromAqIsopWL2         = .FALSE.\n\n    State_Diag%AODSOAfromAqIsopWL3                 => NULL()\n    State_Diag%Archive_AODSOAfromAqIsopWL3         = .FALSE.\n\n    State_Diag%AODSLAWL1                           => NULL()\n    State_Diag%Archive_AODSLAWL1                   = .FALSE.\n\n    State_Diag%AODSLAWL2                           => NULL()\n    State_Diag%Archive_AODSLAWL2                   = .FALSE.\n\n    State_Diag%AODSLAWL3                           => NULL()\n    State_Diag%Archive_AODSLAWL3                   = .FALSE.\n\n    State_Diag%AODPSCWL1                           => NULL()\n    State_Diag%Archive_AODPSCWL1                   = .FALSE.\n\n    State_Diag%AODPSCWL2                           => NULL()\n    State_Diag%Archive_AODPSCWL2                   = .FALSE.\n\n    State_Diag%AODPSCWL3                           => NULL()\n    State_Diag%Archive_AODPSCWL3                   = .FALSE.\n\n    !%%%%% Aerosol mass diagnostics %%%%%\n\n    State_Diag%AerMassASOA                         => NULL()\n    State_Diag%Archive_AerMassASOA                 = .FALSE.\n    State_Diag%Archive_AerMass                     = .FALSE.\n\n    State_Diag%AerMassBC                           => NULL()\n    State_Diag%Archive_AerMassBC                   = .FALSE.\n\n    State_Diag%AerMassHMS                          => NULL()\n    State_Diag%Archive_AerMassHMS                  = .FALSE.\n\n    State_Diag%AerMassINDIOL                       => NULL()\n    State_Diag%Archive_AerMassINDIOL               = .FALSE.\n\n    State_Diag%AerMassISN1OA                       => NULL()\n    State_Diag%Archive_AerMassISN1OA               = .FALSE.\n\n    State_Diag%AerMassLVOCOA                       => NULL()\n    State_Diag%Archive_AerMassLVOCOA               = .FALSE.\n\n    State_Diag%AerMassNH4                          => NULL()\n    State_Diag%Archive_AerMassNH4                  = .FALSE.\n\n    State_Diag%AerMassNIT                          => NULL()\n    State_Diag%Archive_AerMassNIT                  = .FALSE.\n\n    State_Diag%AerMassOPOA                         => NULL()\n    State_Diag%Archive_AerMassOPOA                 = .FALSE.\n\n    State_Diag%AerMassPOA                          => NULL()\n    State_Diag%Archive_AerMassPOA                  = .FALSE.\n\n    State_Diag%AerMassSAL                          => NULL()\n    State_Diag%Archive_AerMassSAL                  = .FALSE.\n\n    State_Diag%AerMassSO4                          => NULL()\n    State_Diag%Archive_AerMassSO4                  = .FALSE.\n\n    State_Diag%AerMassSOAGX                        => NULL()\n    State_Diag%Archive_AerMassSOAGX                = .FALSE.\n\n    State_Diag%AerMassSOAIE                        => NULL()\n    State_Diag%Archive_AerMassSOAIE                = .FALSE.\n\n    State_Diag%AerMassTSOA                         => NULL()\n    State_Diag%Archive_AerMassTSOA                 = .FALSE.\n\n    State_Diag%BetaNO                              => NULL()\n    State_Diag%Archive_BetaNO                      = .FALSE.\n\n    State_Diag%PM25                                => NULL()\n    State_Diag%Archive_PM25                        = .FALSE.\n\n    !zhaisx\n    State_Diag%PM10                                => NULL()\n    State_Diag%Archive_PM10                        = .FALSE.\n\n    ! Paremeterized Dry Effective radius (H. Zhu, April 05 2024)\n    State_Diag%PDER                                => NULL()\n    State_Diag%Archive_PDER                        = .FALSE.\n\n    State_Diag%TotalOA                             => NULL()\n    State_Diag%Archive_TotalOA                     = .FALSE.\n\n    State_Diag%TotalOC                             => NULL()\n    State_Diag%Archive_TotalOC                     = .FALSE.\n\n    State_Diag%TotalBiogenicOA                     => NULL()\n    State_Diag%Archive_TotalBiogenicOA             = .FALSE.\n\n    !%%%%% Transport diagnostics %%%%%\n    State_Diag%AdvFluxZonal                        => NULL()\n    State_Diag%Map_AdvFluxZonal                    => NULL()\n    State_Diag%Archive_AdvFluxZonal                = .FALSE.\n\n    State_Diag%AdvFluxMerid                        => NULL()\n    State_Diag%Map_AdvFluxMerid                    => NULL()\n    State_Diag%Archive_AdvFluxMerid                = .FALSE.\n\n    State_Diag%AdvFluxVert                         => NULL()\n    State_Diag%Map_AdvFluxVert                     => NULL()\n    State_Diag%Archive_AdvFluxVert                 = .FALSE.\n\n    !%%%%% PBL mixing diagnostics %%%%%\n\n    State_Diag%PBLMixFrac                          => NULL()\n    State_Diag%Archive_PBLMixFrac                  = .FALSE.\n\n    State_Diag%PBLFlux                             => NULL()\n    State_Diag%Map_PBLFlux                         => NULL()\n    State_Diag%Archive_PBLFlux                     = .FALSE.\n\n    !%%%%% Convection and WetDep diagnostics %%%%%\n\n    State_Diag%CloudConvFlux                       => NULL()\n    State_Diag%Map_CloudConvFlux                   => NULL()\n    State_Diag%Archive_CloudConvFlux               = .FALSE.\n\n    State_Diag%WetLossConv                         => NULL()\n    State_Diag%Map_WetLossConv                     => NULL()\n    State_Diag%Archive_WetLossConv                 = .FALSE.\n\n    State_Diag%SatDiagnWetLossConv                 => NULL()\n    State_Diag%Map_SatDiagnWetLossConv             => NULL()\n    State_Diag%Archive_SatDiagnWetLossConv         = .FALSE.\n\n    State_Diag%WetLossConvFrac                     => NULL()\n    State_Diag%Map_WetLossConvFrac                 => NULL()\n    State_Diag%Archive_WetLossConvFrac             = .FALSE.\n\n    State_Diag%WetLossLS                           => NULL()\n    State_Diag%Map_WetLossLS                       => NULL()\n    State_Diag%Archive_WetLossLS                   = .FALSE.\n\n    State_Diag%SatDiagnWetLossLS                   => NULL()\n    State_Diag%Map_SatDiagnWetLossLS               => NULL()\n    State_Diag%Archive_SatDiagnWetLossLS           = .FALSE.    \n\n!### Comment out these diagnostics for now (bmy, 6/2/20)\n!###    State_Diag%PrecipFracLS                        => NULL()\n!###    State_Diag%RainFracLS                          => NULL()\n!###    State_Diag%WashFracLS                          => NULL()\n!###    State_Diag%Archive_PrecipFracLS                = .FALSE.\n!###    State_Diag%Archive_RainFracLS                  = .FALSE.\n!###    State_Diag%Archive_WashFracLS                  = .FALSE.\n\n    !%%%%% Carbon aerosol diagnostics %%%%%\n\n    State_Diag%ProdBCPIfromBCPO                    => NULL()\n    State_Diag%Archive_ProdBCPIfromBCPO            = .FALSE.\n\n    State_Diag%ProdOCPIfromOCPO                    => NULL()\n    State_Diag%Archive_ProdOCPIfromOCPO            = .FALSE.\n\n    !%%%%% Aerosol prod and loss diagnostics %%%%%\n\n    State_Diag%ProdSO2fromDMSandOH                 => NULL()\n    State_Diag%Archive_ProdSO2fromDMSandOH         = .FALSE.\n\n    State_Diag%ProdSO2fromDMSandNO3                => NULL()\n    State_Diag%Archive_ProdSO2fromDMSandNO3        = .FALSE.\n\n    State_Diag%ProdSO2fromDMS                      => NULL()\n    State_Diag%Archive_ProdSO2fromDMS              = .FALSE.\n\n    State_Diag%ProdMSAfromDMS                      => NULL()\n    State_Diag%Archive_ProdMSAfromDMS              = .FALSE.\n\n    State_Diag%ProdNITfromHNO3uptakeOnDust         => NULL()\n    State_Diag%Archive_ProdNITfromHNO3uptakeOnDust = .FALSE.\n\n    State_Diag%ProdSO4fromGasPhase                 => NULL()\n    State_Diag%Archive_ProdSO4fromGasPhase         = .FALSE.\n\n    State_Diag%ProdSO4fromH2O2inCloud              => NULL()\n    State_Diag%Archive_ProdSO4fromH2O2inCloud      = .FALSE.\n\n    State_Diag%ProdSO4fromO3inCloud                => NULL()\n    State_Diag%Archive_ProdSO4fromO3inCloud        = .FALSE.\n\n    State_Diag%ProdSO4fromO2inCloudMetal           => NULL()\n    State_Diag%Archive_ProdSO4fromO2inCloudMetal   = .FALSE.\n\n    State_Diag%ProdSO4fromO3inSeaSalt              => NULL()\n    State_Diag%Archive_ProdSO4fromO3inSeaSalt      = .FALSE.\n\n    State_Diag%ProdSO4fromOxidationOnDust          => NULL()\n    State_Diag%Archive_ProdSO4fromOxidationOnDust  = .FALSE.\n\n    State_Diag%ProdSO4fromUptakeOfH2SO4g           => NULL()\n    State_Diag%Archive_ProdSO4fromUptakeOfH2SO4g   = .FALSE.\n\n    State_Diag%ProdSO4fromHOBrInCloud              => NULL()\n    State_Diag%Archive_ProdSO4fromHOBrInCloud      = .FALSE.\n\n    State_Diag%ProdSO4fromSRO3                     => NULL()\n    State_Diag%Archive_ProdSO4fromSRO3             = .FALSE.\n\n    State_Diag%ProdSO4fromSRHOBr                   => NULL()\n    State_Diag%Archive_ProdSO4fromSRHOBr           = .FALSE.\n\n    State_Diag%ProdSO4fromO3s                      => NULL()\n    State_Diag%Archive_ProdSO4fromO3s              = .FALSE.\n\n    State_Diag%LossHNO3onSeaSalt                   => NULL()\n    State_Diag%Archive_LossHNO3onSeaSalt           = .FALSE.\n\n    State_Diag%ProdSO4fromHMSinCloud               => NULL()\n    State_Diag%Archive_ProdSO4fromHMSinCloud       = .FALSE.\n\n    State_Diag%ProdHMSfromSO2andHCHOinCloud        => NULL()\n    State_Diag%Archive_ProdHMSfromSO2andHCHOinCloud= .FALSE.\n\n    State_Diag%ProdSO2andHCHOfromHMSinCloud        => NULL()\n    State_Diag%Archive_ProdSO2andHCHOfromHMSinCloud= .FALSE.\n\n    !%%%%% O3 and HNO3 at a given height above the surface %%%%%\n\n    State_Diag%DryDepRaALT1                        => NULL()\n    State_Diag%Archive_DryDepRaALT1                = .FALSE.\n\n    State_Diag%DryDepVelForALT1                    => NULL()\n    State_Diag%Archive_DryDepVelForALT1            = .FALSE.\n\n    State_Diag%SpeciesConcALT1                     => NULL()\n    State_Diag%Archive_SpeciesConcALT1             = .FALSE.\n\n    !%%%%% KPP solver diagnostics %%%%%\n\n    State_Diag%KppIntCounts                        => NULL()\n    State_Diag%Archive_KppIntCounts                = .FALSE.\n\n    State_Diag%KppJacCounts                        => NULL()\n    State_Diag%Archive_KppJacCounts                = .FALSE.\n\n    State_Diag%KppTotSteps                         => NULL()\n    State_Diag%Archive_KppTotSteps                 = .FALSE.\n\n    State_Diag%KppAccSteps                         => NULL()\n    State_Diag%Archive_KppAccSteps                 = .FALSE.\n\n    State_Diag%KppRejSteps                         => NULL()\n    State_Diag%Archive_KppRejSteps                 = .FALSE.\n\n    State_Diag%KppLuDecomps                        => NULL()\n    State_Diag%Archive_KppLuDecomps                = .FALSE.\n\n    State_Diag%KppSubsts                           => NULL()\n    State_Diag%Archive_KppSubsts                   = .FALSE.\n\n    State_Diag%KppSmDecomps                        => NULL()\n    State_Diag%Archive_KppSmDecomps                = .FALSE.\n\n    State_Diag%KppNegatives                        => NULL()\n    State_Diag%Archive_KppNegatives                = .FALSE.\n\n    State_Diag%KppNegatives0                       => NULL()\n    State_Diag%Archive_KppNegatives0               = .FALSE.\n\n    State_Diag%KppAutoReducerNVAR                  => NULL()\n    State_Diag%Archive_KppAutoReducerNVAR          = .FALSE.\n\n    State_Diag%KppAutoReduceThres                  => NULL()\n    State_Diag%Archive_KppAutoReduceThres          = .FALSE.\n\n    State_Diag%KppcNONZERO                         => NULL()\n    State_Diag%Archive_KppcNONZERO                 = .FALSE.\n\n    State_Diag%KppTime                             => NULL()\n    State_Diag%Archive_KppTime                     = .FALSE.\n\n    State_Diag%Archive_KppDiags                    = .FALSE.\n\n    !%%%%% Time in troposphere diagnostic %%%%%\n\n    State_Diag%FracOfTimeInTrop                    => NULL()\n    State_Diag%Archive_FracOfTimeInTrop            = .FALSE.\n\n    !%%%%% Chemistry metrics (e.g. mean OH, CH3CCl3 lifetime etc.) %%%%%\n\n    State_Diag%AirMassColumnFull                   => NULL()\n    State_Diag%Archive_AirMassColumnFull           = .FALSE.\n    State_Diag%Archive_Metrics                     = .FALSE.\n\n    State_Diag%AirMassColumnTrop                   => NULL()\n    State_Diag%Archive_AirMassColumnTrop           = .FALSE.\n\n    State_Diag%CH4emission                         => NULL()\n    State_Diag%Archive_CH4emission                 = .FALSE.\n\n    State_Diag%CH4massColumnFull                   => NULL()\n    State_Diag%Archive_CH4massColumnFull           = .FALSE.\n\n    State_Diag%CH4massColumnTrop                   => NULL()\n    State_Diag%Archive_CH4massColumnTrop           = .FALSE.\n\n    State_Diag%OHwgtByAirMassColumnFull            => NULL()\n    State_Diag%Archive_OHwgtByAirMassColumnFull    = .FALSE.\n\n    State_Diag%OHwgtByAirMassColumnTrop            => NULL()\n    State_Diag%Archive_OHwgtByAirMassColumnTrop    = .FALSE.\n\n    State_Diag%LossOHbyCH4columnTrop               => NULL()\n    State_Diag%Archive_LossOHbyCH4columnTrop       = .FALSE.\n\n    State_Diag%LossOHbyMCFcolumnTrop               => NULL()\n    State_Diag%Archive_LossOHbyMCFcolumnTrop       = .FALSE.\n\n    !%%%%% TransportTracers diagnostics %%%%%\n\n    State_Diag%PbFromRnDecay                       => NULL()\n    State_Diag%Archive_PbFromRnDecay               = .FALSE.\n\n    State_Diag%RadDecay                            => NULL()\n    State_Diag%Map_RadDecay                        => NULL()\n    State_Diag%Archive_RadDecay                    = .FALSE.\n\n    !%%%%% Satellite diagnostic %%%%%\n\n    State_Diag%SatDiagn_StartHr                    =  0.0\n    State_Diag%SatDiagn_EndHr                      =  0.0\n    State_Diag%SatDiagn_Count                      =  0.0\n\n    State_Diag%SatDiagnCount                       => NULL()\n    State_Diag%Archive_SatDiagnCount               = .FALSE.\n\n    State_Diag%SatDiagnEdgeCount                   => NULL()\n    State_Diag%Archive_SatDiagnEdgeCount           = .FALSE.\n    \n    State_Diag%SatDiagnConc                        => NULL()\n    State_Diag%Map_SatDiagnConc                    => NULL()\n    State_Diag%Archive_SatDiagnConc                = .FALSE.\n\n    State_Diag%SatDiagnColEmis                     => NULL()\n    State_Diag%Map_SatDiagnColEmis                 => NULL()\n    State_Diag%Archive_SatDiagnColEmis             = .FALSE.\n\n    State_Diag%SatDiagnSurfFlux                    => NULL()\n    State_Diag%Map_SatDiagnSurfFlux                => NULL()\n    State_Diag%Archive_SatDiagnSurfFlux            = .FALSE.\n\n    State_Diag%SatDiagnOH                          => NULL()\n    State_Diag%Archive_SatDiagnOH                  = .FALSE.\n\n    State_Diag%SatDiagnRH                          => NULL()\n    State_Diag%Archive_SatDiagnRH                  = .FALSE.\n\n    State_Diag%SatDiagnAirDen                      => NULL()\n    State_Diag%Archive_SatDiagnAirDen              = .FALSE.\n\n    State_Diag%SatDiagnBoxHeight                   => NULL()\n    State_Diag%Archive_SatDiagnBoxHeight           = .FALSE.\n\n    State_Diag%SatDiagnPEdge                       => NULL()\n    State_Diag%Archive_SatDiagnPEdge               = .FALSE.\n\n    State_Diag%SatDiagnPMid                        => NULL()\n    State_Diag%Archive_SatDiagnPMid                = .FALSE.\n\n    State_Diag%SatDiagnTROPP                       => NULL()\n    State_Diag%Archive_SatDiagnTROPP               = .FALSE.\n\n    State_Diag%SatDiagnTropLev                     => NULL()\n    State_Diag%Archive_SatDiagnTropLev             = .FALSE.\n\n    State_Diag%SatDiagnPBLHeight                   => NULL()\n    State_Diag%Archive_SatDiagnPBLHeight           = .FALSE.\n\n    State_Diag%SatDiagnPBLTop                      => NULL()\n    State_Diag%Archive_SatDiagnPBLTop              = .FALSE.\n\n    State_Diag%SatDiagnTAir                        => NULL()\n    State_Diag%Archive_SatDiagnTAir                = .FALSE.\n\n    State_Diag%SatDiagnCldFrac                     => NULL()\n    State_Diag%Archive_SatDiagnCldFrac             = .FALSE.\n\n    State_Diag%SatDiagnCldTopP                     => NULL()\n    State_Diag%Archive_SatDiagnCldTopP             = .FALSE.\n\n    State_Diag%SatDiagnGWETROOT                    => NULL()\n    State_Diag%Archive_SatDiagnGWETROOT            = .FALSE.\n\n    State_Diag%SatDiagnGWETTOP                     => NULL()\n    State_Diag%Archive_SatDiagnGWETTOP             = .FALSE.\n\n    State_Diag%SatDiagnPARDR                       => NULL()\n    State_Diag%Archive_SatDiagnPARDR               = .FALSE.\n\n    State_Diag%SatDiagnPARDF                       => NULL()\n    State_Diag%Archive_SatDiagnPARDF               = .FALSE.\n\n    State_Diag%SatDiagnPRECTOT                     => NULL()\n    State_Diag%Archive_SatDiagnPRECTOT             = .FALSE.\n\n    State_Diag%SatDiagnSLP                         => NULL()\n    State_Diag%Archive_SatDiagnSLP                 = .FALSE.\n\n    State_Diag%SatDiagnSPHU                        => NULL()\n    State_Diag%Archive_SatDiagnSPHU                = .FALSE.\n\n    State_Diag%SatDiagnTS                          => NULL()\n    State_Diag%Archive_SatDiagnTS                  = .FALSE.\n\n    State_Diag%SatDiagnPBLTOPL                     => NULL()\n    State_Diag%Archive_SatDiagnPBLTOPL             = .FALSE.\n\n    State_Diag%SatDiagnMODISLAI                    => NULL()\n    State_Diag%Archive_SatDiagnMODISLAI            = .FALSE.\n\n    ! RRTMG simulation diagnostics\n\n    State_Diag%nRadOut                             =  0\n\n    State_Diag%RadOutInd                           => NULL()\n    State_Diag%RadOutName                          => NULL()\n\n    State_Diag%RadAllSkyLWSurf                     => NULL()\n    State_Diag%Archive_RadAllSkyLWSurf             = .FALSE.\n\n    State_Diag%RadAllSkyLWTOA                      => NULL()\n    State_Diag%Archive_RadAllSkyLWTOA              = .FALSE.\n\n    State_Diag%RadAllSkySWSurf                     => NULL()\n    State_Diag%Archive_RadAllSkySWSurf             = .FALSE.\n\n    State_Diag%RadAllSkySWTOA                      => NULL()\n    State_Diag%Archive_RadAllSkySWTOA              = .FALSE.\n\n    State_Diag%RadClrSkyLWSurf                     => NULL()\n    State_Diag%Archive_RadClrSkyLWSurf             = .FALSE.\n\n    State_Diag%RadClrSkyLWTOA                      => NULL()\n    State_Diag%Archive_RadClrSkyLWTOA              = .FALSE.\n\n    State_Diag%RadClrSkySWSurf                     => NULL()\n    State_Diag%Archive_RadClrSkySWSurf             = .FALSE.\n\n    State_Diag%RadClrSkySWTOA                      => NULL()\n    State_Diag%Archive_RadClrSkySWTOA              = .FALSE.\n\n    State_Diag%RadAllSkyLWTrop                     => NULL()\n    State_Diag%Archive_RadAllSkyLWTrop             = .FALSE.\n\n    State_Diag%RadAllSkySWTrop                     => NULL()\n    State_Diag%Archive_RadAllSkySWTrop             = .FALSE.\n\n    State_Diag%RadClrSkyLWTrop                     => NULL()\n    State_Diag%Archive_RadClrSkyLWTrop             = .FALSE.\n\n    State_Diag%RadClrSkySWTrop                     => NULL()\n    State_Diag%Archive_RadClrSkySWTrop             = .FALSE.\n\n    State_Diag%RadAODWL1                           => NULL()\n    State_Diag%Archive_RadAODWL1                   = .FALSE.\n\n    State_Diag%RadAODWL2                           => NULL()\n    State_Diag%Archive_RadAODWL2                   = .FALSE.\n\n    State_Diag%RadAODWL3                           => NULL()\n    State_Diag%Archive_RadAODWL3                   = .FALSE.\n\n    State_Diag%RadSSAWL1                           => NULL()\n    State_Diag%Archive_RadSSAWL1                   = .FALSE.\n\n    State_Diag%RadSSAWL2                           => NULL()\n    State_Diag%Archive_RadSSAWL2                   = .FALSE.\n\n    State_Diag%RadSSAWL3                           => NULL()\n    State_Diag%Archive_RadSSAWL3                   = .FALSE.\n\n    State_Diag%RadAsymWL1                          => NULL()\n    State_Diag%Archive_RadAsymWL1                  = .FALSE.\n\n    State_Diag%RadAsymWL2                          => NULL()\n    State_Diag%Archive_RadAsymWL2                  = .FALSE.\n\n    State_Diag%RadAsymWL3                          => NULL()\n    State_Diag%Archive_RadAsymWL3                  = .FALSE.\n\n    State_Diag%DynHeating                          => NULL()\n    State_Diag%Archive_DynHeating                  = .FALSE.\n\n    State_Diag%DTRad                               => NULL()\n    State_Diag%Archive_DTRad                       = .FALSE.\n\n    State_Diag%IsWater                             => NULL()\n    State_Diag%IsLand                              => NULL()\n    State_Diag%IsIce                               => NULL()\n    State_Diag%IsSnow                              => NULL()\n    State_Diag%Archive_SfcType                     = .FALSE.\n\n    State_Diag%Archive_RadOptics                   = .FALSE.\n\n    !%%%%% POPs simulation diagnostics %%%%%\n\n    State_Diag%LossPOPPOCPObyGasPhase              => NULL()\n    State_Diag%Archive_LossPOPPOCPObyGasPhase      = .FALSE.\n\n    State_Diag%ProdPOPPOCPOfromGasPhase            => NULL()\n    State_Diag%Archive_ProdPOPPOCPOfromGasPhase    = .FALSE.\n\n    State_Diag%LossPOPPBCPObyGasPhase              => NULL()\n    State_Diag%Archive_LossPOPPBCPObyGasPhase      = .FALSE.\n\n    State_Diag%ProdPOPPBCPOfromGasPhase            => NULL()\n    State_Diag%Archive_ProdPOPPBCPOfromGasPhase    = .FALSE.\n\n    State_Diag%ProdPOPGfromOH                      => NULL()\n    State_Diag%Archive_ProdPOPGfromOH              = .FALSE.\n\n    State_Diag%ProdPOPPOCPOfromO3                  => NULL()\n    State_Diag%Archive_ProdPOPPOCPOfromO3          = .FALSE.\n\n    State_Diag%ProdPOPPOCPIfromO3                  => NULL()\n    State_Diag%Archive_ProdPOPPOCPIfromO3          = .FALSE.\n\n    State_Diag%ProdPOPPBCPIfromO3                  => NULL()\n    State_Diag%Archive_ProdPOPPBCPIfromO3          = .FALSE.\n\n    State_Diag%ProdPOPPBCPOfromO3                  => NULL()\n    State_Diag%Archive_ProdPOPPBCPOfromO3          = .FALSE.\n\n    State_Diag%ProdPOPPOCPOfromNO3                 => NULL()\n    State_Diag%Archive_ProdPOPPOCPOfromNO3         = .FALSE.\n\n    State_Diag%ProdPOPPOCPIfromNO3                 => NULL()\n    State_Diag%Archive_ProdPOPPOCPIfromNO3         = .FALSE.\n\n    State_Diag%ProdPOPPBCPIfromNO3                 => NULL()\n    State_Diag%Archive_ProdPOPPBCPIfromNO3         = .FALSE.\n\n    State_Diag%ProdPOPPBCPOfromNO3                 => NULL()\n    State_Diag%Archive_ProdPOPPBCPOfromNO3         = .FALSE.\n\n    !%%%%% Carbon simulation diagnostics %%%%%\n\n    State_Diag%ProdCO2fromCO                       => NULL()\n    State_Diag%Archive_ProdCO2fromCO               = .FALSE.\n\n    State_Diag%LossCH4byClinTrop                   => NULL()\n    State_Diag%Archive_LossCH4byClinTrop           = .FALSE.\n\n    State_Diag%LossCH4byOHinTrop                   => NULL()\n    State_Diag%Archive_LossCH4byOHinTrop           = .FALSE.\n\n    State_Diag%LossCH4inStrat                      => NULL()\n    State_Diag%Archive_LossCH4inStrat              = .FALSE.\n\n    State_Diag%ProdCOfromCH4                          => NULL()\n    State_Diag%Archive_ProdCOfromCH4                  = .FALSE.\n\n    State_Diag%ProdCOfromNMVOC                        => NULL()\n    State_Diag%Archive_ProdCOfromNMVOC                = .FALSE.\n\n    ! Hg specialty simulation diagnostics\n    !  -- emissions quantities (e.g. for HEMCO manual diagnostics)\n    State_Diag%EmisHg0anthro                       => NULL()\n    State_Diag%EmisHg0biomass                      => NULL()\n    State_Diag%EmisHg0geogenic                     => NULL()\n    State_Diag%EmisHg0land                         => NULL()\n    State_Diag%EmisHg0ocean                        => NULL()\n    State_Diag%EmisHg0soil                         => NULL()\n    State_Diag%EmisHg0snow                         => NULL()\n    State_Diag%EmisHg0vegetation                   => NULL()\n    State_Diag%EmisHg2HgPanthro                    => NULL()\n    State_Diag%EmisHg2snowToOcean                  => NULL()\n    State_Diag%EmisHg2rivers                       => NULL()\n    State_Diag%FluxHg2HgPfromAirToSnow             => NULL()\n    State_Diag%Archive_EmisHg0anthro               = .FALSE.\n    State_Diag%Archive_EmisHg0biomass              = .FALSE.\n    State_Diag%Archive_EmisHg0geogenic             = .FALSE.\n    State_Diag%Archive_EmisHg0land                 = .FALSE.\n    State_Diag%Archive_EmisHg0ocean                = .FALSE.\n    State_Diag%Archive_EmisHg0snow                 = .FALSE.\n    State_Diag%Archive_EmisHg0soil                 = .FALSE.\n    State_Diag%Archive_EmisHg0vegetation           = .FALSE.\n    State_Diag%Archive_EmisHg2HgPanthro            = .FALSE.\n    State_Diag%Archive_EmisHg2snowToOcean          = .FALSE.\n    State_Diag%Archive_EmisHg2rivers               = .FALSE.\n    State_Diag%Archive_FluxHg2HgPfromAirToSnow     = .FALSE.\n    !\n    ! -- oceanic quantities\n    State_Diag%FluxHg0fromAirToOcean               => NULL()\n    State_Diag%FluxHg0fromOceanToAir               => NULL()\n    State_Diag%FluxHg2toDeepOcean                  => NULL()\n    State_Diag%FluxHg2HgPfromAirToOcean            => NULL()\n    State_Diag%FluxOCtoDeepOcean                   => NULL()\n    State_Diag%MassHg0inOcean                      => NULL()\n    State_Diag%MassHg2inOcean                      => NULL()\n    State_Diag%MassHgPinOcean                      => NULL()\n    State_Diag%MassHgTotalInOcean                  => NULL()\n    State_Diag%Archive_FluxHg0fromOceanToAir       = .FALSE.\n    State_Diag%Archive_FluxHg0fromAirToOcean       = .FALSE.\n    State_Diag%Archive_FluxHg2toDeepOcean          = .FALSE.\n    State_Diag%Archive_FluxHg2HgPfromAirToOcean    = .FALSE.\n    State_Diag%Archive_FluxOCtoDeepOcean           = .FALSE.\n    State_Diag%Archive_MassHg0inOcean              = .FALSE.\n    State_Diag%Archive_MassHg2inOcean              = .FALSE.\n    State_Diag%Archive_MassHgPinOcean              = .FALSE.\n    State_Diag%Archive_MassHgTotalInOcean          = .FALSE.\n    !\n    ! -- chemistry quantities\n    State_Diag%ConcBr                              => NULL()\n    State_Diag%ConcBrO                             => NULL()\n    State_Diag%LossHg2bySeaSalt                    => NULL()\n    State_Diag%LossRateHg2bySeaSalt                => NULL()\n    State_Diag%PolarConcBr                         => NULL()\n    State_Diag%PolarConcBrO                        => NULL()\n    State_Diag%PolarConcO3                         => NULL()\n    State_Diag%ProdHg2fromBr                       => NULL()\n    State_Diag%ProdHg2fromBrY                      => NULL()\n    State_Diag%ProdHg2fromClY                      => NULL()\n    State_Diag%ProdHg2fromHg0                      => NULL()\n    State_Diag%ProdHg2fromHgBrPlusBr2              => NULL()\n    State_Diag%ProdHg2fromHgBrPlusBrBrO            => NULL()\n    State_Diag%ProdHg2fromHgBrPlusBrClO            => NULL()\n    State_Diag%ProdHg2fromHgBrPlusBrHO2            => NULL()\n    State_Diag%ProdHg2fromHgBrPlusBrNO2            => NULL()\n    State_Diag%ProdHg2fromHgBrPlusBrOH             => NULL()\n    State_Diag%ProdHg2fromOH                       => NULL()\n    State_Diag%ProdHg2fromO3                       => NULL()\n    State_Diag%ParticulateBoundHg                  => NULL()\n    State_Diag%ReactiveGaseousHg                   => NULL()\n    State_Diag%Archive_ConcBr                      = .FALSE.\n    State_Diag%Archive_ConcBrO                     = .FALSE.\n    State_Diag%Archive_LossHg2bySeaSalt            = .FALSE.\n    State_Diag%Archive_LossRateHg2bySeaSalt        = .FALSE.\n    State_Diag%Archive_PolarConcBr                 = .FALSE.\n    State_Diag%Archive_PolarConcBrO                = .FALSE.\n    State_Diag%Archive_PolarConcO3                 = .FALSE.\n    State_Diag%Archive_ProdHg2fromBr               = .FALSE.\n    State_Diag%Archive_ProdHg2fromBrY              = .FALSE.\n    State_Diag%Archive_ProdHg2fromClY              = .FALSE.\n    State_Diag%Archive_ProdHg2fromHg0              = .FALSE.\n    State_Diag%Archive_ProdHg2fromHgBrPlusBr2      = .FALSE.\n    State_Diag%Archive_ProdHg2fromHgBrPlusBrBrO    = .FALSE.\n    State_Diag%Archive_ProdHg2fromHgBrPlusBrClO    = .FALSE.\n    State_Diag%Archive_ProdHg2fromHgBrPlusBrHO2    = .FALSE.\n    State_Diag%Archive_ProdHg2fromHgBrPlusBrNO2    = .FALSE.\n    State_Diag%Archive_ProdHg2fromHgBrPlusBrOH     = .FALSE.\n    State_Diag%Archive_ProdHg2fromOH               = .FALSE.\n    State_Diag%Archive_ProdHg2fromO3               = .FALSE.\n    State_Diag%Archive_ParticulateBoundHg          = .FALSE.\n    State_Diag%Archive_ReactiveGaseousHg           = .FALSE.\n\n    ! From Viral Shah (MSL, 7.1.21)\n    State_Diag%HgBrAfterChem                       => NULL()\n    State_Diag%HgClAfterChem                       => NULL()\n    State_Diag%HgOHAfterChem                       => NULL()\n    State_Diag%HgBrOAfterChem                      => NULL()\n    State_Diag%HgClOAfterChem                      => NULL()\n    State_Diag%HgOHOAfterChem                      => NULL()\n    State_Diag%Hg2GToHg2P                          => NULL()\n    State_Diag%Hg2PToHg2G                          => NULL()\n    State_Diag%Hg2GasToHg2StrP                     => NULL()\n    State_Diag%Hg2GasToSSA                         => NULL()\n\n    State_Diag%Archive_HgBrAfterChem               = .FALSE.\n    State_Diag%Archive_HgClAfterChem               = .FALSE.\n    State_Diag%Archive_HgOHAfterChem               = .FALSE.\n    State_Diag%Archive_HgBrOAfterChem              = .FALSE.\n    State_Diag%Archive_HgClOAfterChem              = .FALSE.\n    State_Diag%Archive_HgOHOAfterChem              = .FALSE.\n    State_Diag%Archive_Hg2GToHg2P                  = .FALSE.\n    State_Diag%Archive_Hg2PToHg2G                  = .FALSE.\n    State_Diag%Archive_Hg2GasToHg2StrP             = .FALSE.\n    State_Diag%Archive_Hg2GasToSSA                 = .FALSE.\n\n    ! ObsPack diagnostic quantities\n    State_Diag%Do_ObsPack                          = .FALSE.\n    State_Diag%ObsPack_fId                         =  0\n    State_Diag%ObsPack_InFile                      =  ''\n    State_Diag%ObsPack_OutFile                     =  ''\n    State_Diag%ObsPack_nObs                        =  0\n    State_Diag%ObsPack_Id                          => NULL()\n    State_Diag%ObsPack_nSamples                    => NULL()\n    State_Diag%ObsPack_Strategy                    => NULL()\n    State_Diag%ObsPack_Latitude                    => NULL()\n    State_Diag%ObsPack_Longitude                   => NULL()\n    State_Diag%ObsPack_Altitude                    => NULL()\n    State_Diag%ObsPack_Ival_Start                  => NULL()\n    State_Diag%ObsPack_Ival_Center                 => NULL()\n    State_Diag%ObsPack_Ival_End                    => NULL()\n    State_Diag%ObsPack_P                           => NULL()\n    State_Diag%ObsPack_U                           => NULL()\n    State_Diag%ObsPack_V                           => NULL()\n    State_Diag%ObsPack_BLH                         => NULL()\n    State_Diag%ObsPack_Q                           => NULL()\n    State_Diag%ObsPack_T                           => NULL()\n    State_Diag%ObsPack_nSpecies                    =  0\n    State_Diag%ObsPack_Species                     => NULL()\n    State_Diag%ObsPack_Species_Ind                 => NULL()\n    State_Diag%ObsPack_Species_Name                => NULL()\n    State_Diag%ObsPack_Species_LName               => NULL()\n\n#ifdef MODEL_GEOS\n    !=======================================================================\n    ! These diagnostics are only activated when running GC in NASA/GEOS\n    !=======================================================================\n    State_Diag%MoninObukhov                        => NULL()\n    State_Diag%Archive_MoninObukhov                = .FALSE.\n\n    State_Diag%Bry                                 => NULL()\n    State_Diag%Archive_Bry                         = .FALSE.\n\n    State_Diag%NOy                                 => NULL()\n    State_Diag%Archive_NOy                         = .FALSE.\n\n    State_Diag%Cly                                 => NULL()\n    State_Diag%Archive_Cly                         = .FALSE.\n\n    State_Diag%OrganicCl                           => NULL()\n    State_Diag%Archive_OrganicCl                   = .FALSE.\n\n    State_Diag%O3_MASS                             => NULL()\n    State_Diag%Archive_O3_MASS                     = .FALSE.\n\n    State_Diag%GCCTO3                              => NULL()\n    State_Diag%Archive_GCCTO3                      = .FALSE.\n\n    State_Diag%GCCTTO3                             => NULL()\n    State_Diag%Archive_GCCTTO3                     = .FALSE.\n\n    State_Diag%CHEMTOP                             => NULL()\n    State_Diag%Archive_CHEMTOP                     = .FALSE.\n\n    State_Diag%CHEMTROPP                           => NULL()\n    State_Diag%Archive_CHEMTROPP                   = .FALSE.\n\n    State_Diag%CONVCLDTOP                          => NULL()\n    State_Diag%Archive_CONVCLDTOP                  = .FALSE.\n\n    State_Diag%EXTRALNLEVS                         => NULL()\n    State_Diag%Archive_EXTRALNLEVS                 = .FALSE.\n\n    State_Diag%EXTRALNITER                         => NULL()\n    State_Diag%Archive_EXTRALNITER                 = .FALSE.\n\n    State_Diag%LIGHTNINGPOTENTIAL                  => NULL()\n    State_Diag%Archive_LGHTPOTENTIAL               = .FALSE.\n\n    State_Diag%O3concAfterChem                     => NULL()\n    State_Diag%Archive_O3concAfterChem             = .FALSE.\n\n    State_Diag%RO2concAfterChem                    => NULL()\n    State_Diag%Archive_RO2concAfterChem            = .FALSE.\n\n    State_Diag%PM25ni                              => NULL()\n    State_Diag%Archive_PM25ni                      = .FALSE.\n\n    State_Diag%PM25nit                             => NULL()\n    State_Diag%Archive_PM25nit                     = .FALSE.\n\n    State_Diag%PM25nh4                             => NULL()\n    State_Diag%Archive_PM25nh4                     = .FALSE.\n\n    State_Diag%PM25su                              => NULL()\n    State_Diag%Archive_PM25su                      = .FALSE.\n\n    State_Diag%PM25oc                              => NULL()\n    State_Diag%Archive_PM25oc                      = .FALSE.\n\n    State_Diag%PM25bc                              => NULL()\n    State_Diag%Archive_PM25bc                      = .FALSE.\n\n    State_Diag%PM25du                              => NULL()\n    State_Diag%Archive_PM25du                      = .FALSE.\n\n    State_Diag%PM25ss                              => NULL()\n    State_Diag%Archive_PM25ss                      = .FALSE.\n\n    State_Diag%PM25soa                             => NULL()\n    State_Diag%Archive_PM25soa                     = .FALSE.\n\n    State_Diag%PblCol                              => NULL()\n    State_Diag%Map_PblCol                          => NULL()\n    State_Diag%Archive_PblCol                      = .FALSE.\n\n    State_Diag%TropCol                             => NULL()\n    State_Diag%Map_TropCol                         => NULL()\n    State_Diag%Archive_TropCol                     = .FALSE.\n\n    State_Diag%TotCol                              => NULL()\n    State_Diag%Map_TotCol                          => NULL()\n    State_Diag%Archive_TotCol                      = .FALSE.\n\n    State_Diag%COincCO2phot                        => NULL()\n    State_Diag%Archive_COincCO2phot                = .FALSE.\n\n    State_Diag%CO2photrate                         => NULL()\n    State_Diag%Archive_CO2photrate                 = .FALSE.\n#endif\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n    !=======================================================================\n    ! These diagnostics are only activated when running GC\n    ! either in NASA/GEOS, WRF, or CESM\n    !=======================================================================\n    State_Diag%KppError                            => NULL()\n    State_Diag%Archive_KppError                    = .FALSE.\n#endif\n\n  END SUBROUTINE Zero_State_Diag\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_State_Diag\n!\n! !DESCRIPTION: Subroutine INIT\\_STATE\\_DIAG allocates all fields of\n!  the diagnostics state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_State_Diag( Input_Opt, State_Chm,       State_Grid,        &\n                              Diag_List, TaggedDiag_List, State_Diag, RC    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)    :: Input_Opt        ! Input otions object\n    TYPE(ChmState),      INTENT(IN)    :: State_Chm        ! Chemistry state\n    TYPE(GrdState),      INTENT(IN)    :: State_Grid       ! Grid state object\n    TYPE(DgnList),       INTENT(IN)    :: Diag_List        ! Diagnostics list\n    TYPE(TaggedDgnList), INTENT(IN)    :: TaggedDiag_List\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),      INTENT(INOUT) :: State_Diag       ! Diagnostic State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC               ! Return code\n!\n! !REMARKS:\n!  For consistency, maybe this should be moved to a different module.\n!\n! !REVISION HISTORY:\n!  05 Jul 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=5  ) :: TmpWL\n    CHARACTER(LEN=10 ) :: TmpHt\n    CHARACTER(LEN=255) :: arrayID,   diagID\n    CHARACTER(LEN=255) :: errMsg,    errMsg_ir,   thisLoc\n\n    ! Scalars\n    INTEGER            :: C,         N\n    INTEGER            :: NX,        NY,          NW\n    LOGICAL            :: am_I_Root, EOF\n    LOGICAL            :: found,     forceDefine\n    LOGICAL            :: foundMix,  foundChm\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC        =  GC_SUCCESS\n    arrayID   = ''\n    diagID    = ''\n    errMsg    = ''\n    errMsg_ir = 'Error encountered in \"Init_and_Register\", diagID = '\n    thisLoc   = ' -> at Init_State_Diag (in Headers/state_diag_mod.F90)'\n    Found     = .FALSE.\n    TmpWL     = ''\n    TmpHt     = AltAboveSfc\n    am_I_Root = Input_Opt%amIRoot\n\n    ! Nullify pointer fields and set logical fields to false\n    CALL Zero_State_Diag( State_Diag, RC )\n\n    !------------------------------------------------------------------------\n    ! Exit if this is a dry-run simulation\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%DryRun ) THEN\n       RC = GC_SUCCESS\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Write header\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 10 )\n 10    FORMAT(/, 'Allocating the following fields of the State_Diag object:')\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Restart file -- species concentrations\n    !------------------------------------------------------------------------\n    diagID  = 'SpeciesRst'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SpeciesRst,                             &\n         archiveData    = State_Diag%Archive_SpeciesRst,                     &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Transport boundary conditions diagnostic\n    !------------------------------------------------------------------------\n    diagID  = 'SpeciesBC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SpeciesBC,                              &\n         archiveData    = State_Diag%Archive_SpeciesBC,                      &\n         mapData        = State_Diag%Map_SpeciesBC,                          &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Species concentration diagnostic (v/v dry)\n    !------------------------------------------------------------------------\n    diagId  = 'SpeciesConcVV'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SpeciesConcVV,                          &\n         archiveData    = State_Diag%Archive_SpeciesConcVV,                  &\n         mapData        = State_Diag%Map_SpeciesConcVV,                      &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Species concentration diagnostic (MND)\n    !------------------------------------------------------------------------\n    diagId  = 'SpeciesConcMND'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SpeciesConcMND,                         &\n         archiveData    = State_Diag%Archive_SpeciesConcMND,                 &\n         mapData        = State_Diag%Map_SpeciesConcMND,                     &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    diagId  = 'ConcBeforeChem'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%ConcBeforeChem,                         &\n         archiveData    = State_Diag%Archive_ConcBeforeChem,                 &\n         mapData        = State_Diag%Map_ConcBeforeChem,                     &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    diagId  = 'ConcAfterChem'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%ConcAfterChem,                          &\n         archiveData    = State_Diag%Archive_ConcAfterChem,                  &\n         mapData        = State_Diag%Map_ConcAfterChem,                      &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef ADJOINT\n    !------------------------------------------------------------------------\n    ! Species adjoint diagnostic\n    !------------------------------------------------------------------------\n    diagId  = 'SpeciesAdj'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SpeciesAdj,                             &\n         archiveData    = State_Diag%Archive_SpeciesAdj,                     &\n         mapData        = State_Diag%Map_SpeciesAdj,                         &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Species adjoint diagnostic\n    !------------------------------------------------------------------------\n    diagId  = 'ScaleICsAdj'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%ScaleICsAdj,                            &\n         archiveData    = State_Diag%Archive_ScaleICsAdj,                    &\n         mapData        = State_Diag%Map_ScaleICsAdj,                        &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#endif\n\n    !------------------------------------------------------------------------\n    ! Fraction of total time each grid box spent in the troposphere\n    !------------------------------------------------------------------------\n    diagID  = 'FracOfTimeInTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%FracOfTimeInTrop,                       &\n         archiveData    = State_Diag%Archive_FracOfTimeInTrop,               &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Budget for emissions  (average kg/m2/s across single timestep)\n    !-----------------------------------------------------------------------\n    diagID  = 'BudgetEmisDryDepFull'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetEmisDryDepFull,                   &\n         archiveData    = State_Diag%Archive_BudgetEmisDryDepFull,           &\n         mapData        = State_Diag%Map_BudgetEmisDryDepFull,               &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Trop-only emissions\n    diagID  = 'BudgetEmisDryDepTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetEmisDryDepTrop,                   &\n         archiveData    = State_Diag%Archive_BudgetEmisDryDepTrop,           &\n         mapData        = State_Diag%Map_BudgetEmisDryDepTrop,               &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! PBL-only emissions\n    diagID  = 'BudgetEmisDryDepPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetEmisDryDepPBL,                    &\n         archiveData    = State_Diag%Archive_BudgetEmisDryDepPBL,            &\n         mapData        = State_Diag%Map_BudgetEmisDryDepPBL,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Fixed level range emissions\n    diagID  = 'BudgetEmisDryDepLevs' // &\n              TRIM( budgetBotLev_str ) // 'to' // TRIM( budgetTopLev_str )\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetEmisDryDepLevs,                   &\n         archiveData    = State_Diag%Archive_BudgetEmisDryDepLevs,           &\n         mapData        = State_Diag%Map_BudgetEmisDryDepLevs,               &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! High-level logical for emissions budget\n    IF ( State_Diag%Archive_BudgetEmisDryDepFull .OR. &\n         State_Diag%Archive_BudgetEmisDryDepTrop .OR. &\n         State_Diag%Archive_BudgetEmisDryDepLevs  .OR. &\n         State_Diag%Archive_BudgetEmisDryDepLevs ) THEN\n       State_Diag%Archive_BudgetEmisDryDep = .TRUE.\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Budget for transport  (average kg/m2/s across single timestep)\n    !-----------------------------------------------------------------------\n    diagId = 'BudgetTransportFull'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetTransportFull,                    &\n         archiveData    = State_Diag%Archive_BudgetTransportFull,            &\n         mapData        = State_Diag%Map_BudgetTransportFull,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Trop-only transport\n    diagID  = 'BudgetTransportTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetTransportTrop,                    &\n         archiveData    = State_Diag%Archive_BudgetTransportTrop,            &\n         mapData        = State_Diag%Map_BudgetTransportTrop,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! PBL-only transport\n    diagID  = 'BudgetTransportPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetTransportPBL,                     &\n         archiveData    = State_Diag%Archive_BudgetTransportPBL,             &\n         mapData        = State_Diag%Map_BudgetTransportPBL,                 &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Fixed level range transport\n    diagID  = 'BudgetTransportLevs' // &\n              TRIM( budgetBotLev_str ) // 'to' // TRIM( budgetTopLev_str )\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetTransportLevs,                    &\n         archiveData    = State_Diag%Archive_BudgetTransportLevs,            &\n         mapData        = State_Diag%Map_BudgetTransportLevs,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! High-level logical for transport budget\n    IF ( State_Diag%Archive_BudgetTransportFull .OR. &\n         State_Diag%Archive_BudgetTransportTrop .OR. &\n         State_Diag%Archive_BudgetTransportPBL  .OR. &\n         State_Diag%Archive_BudgetTransportLevs ) THEN\n       State_Diag%Archive_BudgetTransport = .TRUE.\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Budget for mixing (average kg/m2/s across single timestep)\n    !-----------------------------------------------------------------------\n    diagID  = 'BudgetMixingFull'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetMixingFull,                       &\n         archiveData    = State_Diag%Archive_BudgetMixingFull,               &\n         mapData        = State_Diag%Map_BudgetMixingFull,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Trop-only mixing\n    diagID  = 'BudgetMixingTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetMixingTrop,                       &\n         archiveData    = State_Diag%Archive_BudgetMixingTrop,               &\n         mapData        = State_Diag%Map_BudgetMixingTrop,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! PBL-only mixing\n    diagID  = 'BudgetMixingPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetMixingPBL,                        &\n         archiveData    = State_Diag%Archive_BudgetMixingPBL,                &\n         mapData        = State_Diag%Map_BudgetMixingPBL,                    &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Fixed level range mixing\n    diagID  = 'BudgetMixingLevs' // &\n              TRIM( budgetBotLev_str ) // 'to' // TRIM( budgetTopLev_str )\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetMixingLevs,                       &\n         archiveData    = State_Diag%Archive_BudgetMixingLevs,               &\n         mapData        = State_Diag%Map_BudgetMixingLevs,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! High-level logical for mixing budget\n    IF ( State_Diag%Archive_BudgetMixingFull .OR. &\n         State_Diag%Archive_BudgetMixingTrop .OR. &\n         State_Diag%Archive_BudgetMixingPBL  .OR. &\n         State_Diag%Archive_BudgetMixingLevs ) THEN\n       State_Diag%Archive_BudgetMixing = .TRUE.\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Budget for convection (average kg/m2/s across single timestep)\n    !-----------------------------------------------------------------------\n    diagID  = 'BudgetConvectionFull'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetConvectionFull,                   &\n         archiveData    = State_Diag%Archive_BudgetConvectionFull,           &\n         mapData        = State_Diag%Map_BudgetConvectionFull,               &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Trop-only convection\n    diagID  = 'BudgetConvectionTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetConvectionTrop,                   &\n         archiveData    = State_Diag%Archive_BudgetConvectionTrop,           &\n         mapData        = State_Diag%Map_BudgetConvectionTrop,               &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! PBL-only convection\n    diagID  = 'BudgetConvectionPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetConvectionPBL,                    &\n         archiveData    = State_Diag%Archive_BudgetConvectionPBL,            &\n         mapData        = State_Diag%Map_BudgetConvectionPBL,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Fixed level range convection\n    diagID  = 'BudgetConvectionLevs' // &\n              TRIM( budgetBotLev_str ) // 'to' // TRIM( budgetTopLev_str )\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetConvectionLevs,                   &\n         archiveData    = State_Diag%Archive_BudgetConvectionLevs,           &\n         mapData        = State_Diag%Map_BudgetConvectionLevs,               &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! High-level logical for convection budget\n    IF ( State_Diag%Archive_BudgetConvectionFull .OR. &\n         State_Diag%Archive_BudgetConvectionTrop .OR. &\n         State_Diag%Archive_BudgetConvectionPBL  .OR. &\n         State_Diag%Archive_BudgetConvectionLevs ) THEN\n       State_Diag%Archive_BudgetConvection = .TRUE.\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Budget for chemistry (average kg/m2/s across single timestep)\n    !-----------------------------------------------------------------------\n    diagID  = 'BudgetChemistryFull'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetChemistryFull,                    &\n         archiveData    = State_Diag%Archive_BudgetChemistryFull,            &\n         mapData        = State_Diag%Map_BudgetChemistryFull,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Trop-only chemistry\n    diagID  = 'BudgetChemistryTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetChemistryTrop,                    &\n         archiveData    = State_Diag%Archive_BudgetChemistryTrop,            &\n         mapData        = State_Diag%Map_BudgetChemistryTrop,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! PBL-only chemistry\n    diagID  = 'BudgetChemistryPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetChemistryPBL,                     &\n         archiveData    = State_Diag%Archive_BudgetChemistryPBL,             &\n         mapData        = State_Diag%Map_BudgetChemistryPBL,                 &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Fixed level range chemistry\n    diagID  = 'BudgetChemistryLevs' // &\n              TRIM( budgetBotLev_str ) // 'to' // TRIM( budgetTopLev_str )\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetChemistryLevs,                    &\n         archiveData    = State_Diag%Archive_BudgetChemistryLevs,            &\n         mapData        = State_Diag%Map_BudgetChemistryLevs,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Set high-level logical for archiving chemistry budget\n    IF ( State_Diag%Archive_BudgetChemistryFull .OR. &\n         State_Diag%Archive_BudgetChemistryTrop .OR. &\n         State_Diag%Archive_BudgetChemistryPBL  .OR. &\n         State_Diag%Archive_BudgetChemistryLevs ) THEN\n       State_Diag%Archive_BudgetChemistry = .TRUE.\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Budget for wet deposition (average kg/m2/s across single timestep)\n    !-----------------------------------------------------------------------\n    diagID  = 'BudgetWetDepFull'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetWetDepFull,                       &\n         archiveData    = State_Diag%Archive_BudgetWetDepFull,               &\n         mapData        = State_Diag%Map_BudgetWetDepFull,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Trop-only wet deposition\n    diagID  = 'BudgetWetDepTrop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetWetDepTrop,                       &\n         archiveData    = State_Diag%Archive_BudgetWetDepTrop,               &\n         mapData        = State_Diag%Map_BudgetWetDepTrop,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! PBL-only wet deposition\n    diagID  = 'BudgetWetDepPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetWetDepPBL,                        &\n         archiveData    = State_Diag%Archive_BudgetWetDepPBL,                &\n         mapData        = State_Diag%Map_BudgetWetDepPBL,                    &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Fixed level range wet deposition\n    diagID  = 'BudgetWetDepLevs' // &\n              TRIM( budgetBotLev_str ) // 'to' // TRIM( budgetTopLev_str )\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%BudgetWetDepLevs,                       &\n         archiveData    = State_Diag%Archive_BudgetWetDepLevs,               &\n         mapData        = State_Diag%Map_BudgetWetDepLevs,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! High-level logical for wet deposition budget\n    IF ( State_Diag%Archive_BudgetWetDepFull .OR. &\n         State_Diag%Archive_BudgetWetDepTrop .OR. &\n         State_Diag%Archive_BudgetWetDepPBL  .OR. &\n         State_Diag%Archive_BudgetWetDepLevs ) THEN\n       State_Diag%Archive_BudgetWetDep = .TRUE.\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Top and bottom levels for budget level range diagnostics\n    !------------------------------------------------------------------------\n    IF (State_Diag%Archive_BudgetEmisDryDepLevs    .or. &\n        State_Diag%Archive_BudgetTransportLevs     .or. &\n        State_Diag%Archive_BudgetMixingLevs        .or. &\n        State_Diag%Archive_BudgetConvectionLevs    .or. &\n        State_Diag%Archive_BudgetChemistryLevs     .or. &\n        State_Diag%Archive_BudgetWetDepLevs            ) THEN\n       READ( BudgetTopLev_str, '(i3)') State_Diag%BudgetTopLev_int\n       READ( BudgetBotLev_str, '(i3)') State_Diag%BudgetBotLev_int\n       IF ( ( State_Diag%BudgetBotLev_int <= 0 ) .OR. &\n            ( State_Diag%BudgetBotLev_int > State_Diag%BudgetTopLev_int ) .OR. &\n            ( State_Diag%BudgetTopLev_int > State_Grid%NZ ) ) THEN\n          errMsg = 'Budget diagnostic level range is not valid: ' // &\n               TRIM(BudgetBotLev_str) // ' to ' //                   &\n               TRIM(BudgetTopLev_str) // '. Check HISTORY.rc.'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Total dry deposition flux\n    !------------------------------------------------------------------------\n    diagID  = 'DryDep'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%DryDep,                                 &\n         archiveData    = State_Diag%Archive_DryDep,                         &\n         mapData        = State_Diag%Map_DryDep,                             &\n         diagId         = diagId,                                            &\n         diagFlag       = 'D',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite Diagnostic: Total dry deposition flux\n    !------------------------------------------------------------------------\n    diagID  = 'SatDiagnDryDep'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnDryDep,                         &\n         archiveData    = State_Diag%Archive_SatDiagnDryDep,                 &\n         mapData        = State_Diag%Map_SatDiagnDryDep,                     &\n         diagId         = diagId,                                            &\n         diagFlag       = 'D',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF    \n\n    !------------------------------------------------------------------------\n    ! Dry deposition flux from chemistry\n    ! NOTE: Turn on this diagnostic if we are saving total drydep,\n    ! but do not register individual fields unless they are in HISTORY.rc\n    !------------------------------------------------------------------------\n\n    ! Check if \"DryDep\" or \"SatDiagnDryDep\" diagnostics are in the DiagList\n    CALL Check_DiagList( am_I_Root, Diag_List, 'DryDep', forceDefine,   RC )\n    CALL Check_DiagList( am_I_Root, Diag_List, 'SatDiagnDryDep', found, RC )\n    forceDefine = ( forceDefine .or. found )\n\n    ! Check if the \"DryDepChm\" diagnostic is also in the DiagList\n    CALL Check_DiagList( am_I_Root, Diag_List, 'DryDepChm', found, RC )\n\n    IF ( found ) THEN\n\n       ! If DryDepMix is in the DiagList, then allocate all corresponding\n       ! State_Diag fields and register the DryDepMix diagnostic\n       diagID  = 'DryDepChm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%DryDepChm,                           &\n            archiveData    = State_Diag%Archive_DryDepChm,                   &\n            mapData        = State_Diag%Map_DryDepChm,                       &\n            diagId         = diagId,                                         &\n            forceDefine    = forceDefine,                                    &\n            diagFlag       = 'D',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       ! If \"DryDep\" is registered but \"DryDepChm\" is not, then initialize\n       ! the State_Diag%DryDepChm fields but do not register the diagnostic.\n       IF ( forceDefine ) THEN\n          CALL Init_NoRegister_DryDepChmMix( State_Diag, RC, Chm=.TRUE. )\n       ENDIF\n\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Dry deposition flux from mixing\n    ! NOTE: Turn on this diagnostic if we are saving total drydep,\n    ! but do not register individual fields unless they are in HISTORY.rc\n    !------------------------------------------------------------------------\n\n    ! Check if the \"DryDepMix\" diagnostic is also in the DiagList\n    CALL Check_DiagList( am_I_Root, Diag_List, 'DryDepMix', found, RC )\n\n    IF ( found ) THEN\n\n       ! If DryDepMix is in the DiagList, then allocate all\n       ! corresponding State_Diag fields and register the diagnostic\n       diagID  = 'DryDepMix'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%DryDepMix,                           &\n            archiveData    = State_Diag%Archive_DryDepMix,                   &\n            mapData        = State_Diag%Map_DryDepMix,                       &\n            forceDefine    = forceDefine,                                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'D',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       ! If \"DryDep\" is registered but \"DryDepMix\" is not, then initialize\n       ! the State_Diag%DryDepMix fields but do not register the diagnostic.\n       IF ( forceDefine ) THEN\n          CALL Init_NoRegister_DryDepChmMix( State_Diag, RC, Mix=.TRUE. )\n       ENDIF\n\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Dry deposition velocity\n    !-----------------------------------------------------------------------\n    diagID  = 'DryDepVel'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%DryDepVel,                              &\n         archiveData    = State_Diag%Archive_DryDepVel,                      &\n         mapData        = State_Diag%Map_DryDepVel,                          &\n         diagId         = diagId,                                            &\n         diagFlag       = 'D',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Satellite Diagnostic: Dry deposition velocity\n    !-----------------------------------------------------------------------\n    diagID  = 'SatDiagnDryDepVel'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnDryDepVel,                      &\n         archiveData    = State_Diag%Archive_SatDiagnDryDepVel,              &\n         mapData        = State_Diag%Map_SatDiagnDryDepVel,                  &\n         diagId         = diagId,                                            &\n         diagFlag       = 'D',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Surface types\n    !-----------------------------------------------------------------------\n    diagID  = 'IsWater'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%IsWater,                                &\n         archiveData    = State_Diag%Archive_SfcType,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    diagID  = 'IsLand'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%IsLand,                                 &\n         archiveData    = State_Diag%Archive_SfcType,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    diagID  = 'IsIce'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%IsIce,                                  &\n         archiveData    = State_Diag%Archive_SfcType,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    diagID  = 'IsSnow'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%IsSnow,                                 &\n         archiveData    = State_Diag%Archive_SfcType,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef MODEL_GEOS\n    !-----------------------------------------------------------------------\n    ! Monin-Obukhov length\n    !-----------------------------------------------------------------------\n    diagID  = 'MoninObukhov'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%MoninObukhov,                           &\n         archiveData    = State_Diag%Archive_MoninObukhov,                   &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Bry\n    !-----------------------------------------------------------------------\n    diagID  = 'Bry'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%Bry,                                    &\n         archiveData    = State_Diag%Archive_Bry,                            &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! NOy\n    !-----------------------------------------------------------------------\n    diagID  = 'NOy'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%NOy,                                    &\n         archiveData    = State_Diag%Archive_NOy,                            &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Cly\n    !-----------------------------------------------------------------------\n    diagID  = 'Cly'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%Cly,                                    &\n         archiveData    = State_Diag%Archive_Cly,                            &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! OrganicCl\n    !-----------------------------------------------------------------------\n    diagID  = 'OrganicCl'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%OrganicCl,                              &\n         archiveData    = State_Diag%Archive_OrganicCl,                      &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! O3_MASS\n    !-----------------------------------------------------------------------\n    diagID  = 'O3_MASS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%O3_MASS,                                &\n         archiveData    = State_Diag%Archive_O3_MASS,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! GCCTO3\n    !-----------------------------------------------------------------------\n    diagID  = 'GCCTO3'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%GCCTO3,                                &\n         archiveData    = State_Diag%Archive_GCCTO3,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! GCCTTO3\n    !-----------------------------------------------------------------------\n    diagID  = 'GCCTTO3'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%GCCTTO3,                                &\n         archiveData    = State_Diag%Archive_GCCTTO3,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! CHEMTOP\n    !-----------------------------------------------------------------------\n    diagID  = 'CHEMTOP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%CHEMTOP,                                &\n         archiveData    = State_Diag%Archive_CHEMTOP,                        &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! CHEMTROPP\n    !-----------------------------------------------------------------------\n    diagID  = 'CHEMTROPP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%CHEMTROPP,                              &\n         archiveData    = State_Diag%Archive_CHEMTROPP,                      &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! CONVCLDTOP\n    !-----------------------------------------------------------------------\n    diagID  = 'CONVCLDTOP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%CONVCLDTOP,                             &\n         archiveData    = State_Diag%Archive_CONVCLDTOP,                     &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !-----------------------------------------------------------------------\n    ! Zonal Advective Flux (east positive)\n    !-----------------------------------------------------------------------\n    diagID  = 'AdvFluxZonal'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%AdvFluxZonal,                           &\n         archiveData    = State_Diag%Archive_AdvFluxZonal,                   &\n         mapData        = State_Diag%Map_AdvFluxZonal,                       &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Meridional Advective Flux (south positive)\n    !-----------------------------------------------------------------------\n    diagID  = 'AdvFluxMerid'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%AdvFluxMerid,                           &\n         archiveData    = State_Diag%Archive_AdvFluxMerid,                   &\n         mapData        = State_Diag%Map_AdvFluxMerid,                       &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Vertical Advective Flux (downwards positive)\n    !-----------------------------------------------------------------------\n    diagID  = 'AdvFluxVert'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%AdvFluxVert,                            &\n         archiveData    = State_Diag%Archive_AdvFluxVert,                    &\n         mapData        = State_Diag%Map_AdvFluxVert,                        &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Fraction of BL occupied by level L\n    !-----------------------------------------------------------------------\n    diagID  = 'PBLMixFrac'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%PBLMixFrac,                             &\n         archiveData    = State_Diag%Archive_PBLMixFrac,                     &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Mass change due to boundary layer mixing\n    !-----------------------------------------------------------------------\n    diagID  = 'PBLFlux'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%PBLFlux,                                &\n         archiveData    = State_Diag%Archive_PBLFlux,                        &\n         mapData        = State_Diag%Map_PblFlux,                            &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Mass change due to cloud convection\n    !-----------------------------------------------------------------------\n    diagID  = 'CloudConvFlux'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%CloudConvFlux,                          &\n         archiveData    = State_Diag%Archive_CloudConvFlux,                  &\n         mapData        = State_Diag%Map_CloudConvFlux,                      &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Fraction of soluble species lost in convective updrafts\n    !-----------------------------------------------------------------------\n    diagID  = 'WetLossConvFrac'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%WetLossConvFrac,                        &\n         archiveData    = State_Diag%Archive_WetLossConvFrac,                &\n         mapData        = State_Diag%Map_WetLossConvFrac,                    &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Loss of soluble species in convective updrafts\n    !-----------------------------------------------------------------------\n    diagID  = 'WetLossConv'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%WetLossConv,                            &\n         archiveData    = State_Diag%Archive_WetLossConv,                    &\n         mapData        = State_Diag%Map_WetLossConv,                        &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Satellite Diagnostics: Loss of soluble species in convective updrafts\n    !-----------------------------------------------------------------------\n    diagID  = 'SatDiagnWetLossConv'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnWetLossConv,                    &\n         archiveData    = State_Diag%Archive_SatDiagnWetLossConv,            &\n         mapData        = State_Diag%Map_SatDiagnWetLossConv,                &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Loss of solutble species in large-scale rainout/washout\n    !-----------------------------------------------------------------------\n    diagID  = 'WetLossLS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%WetLossLS,                              &\n         archiveData    = State_Diag%Archive_WetLossLS,                      &\n         mapData        = State_Diag%Map_WetLossLS,                          &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! SatDiagn: Loss of soluble species in large-scale rainout/washout\n    !-----------------------------------------------------------------------\n    diagID  = 'SatDiagnWetLossLS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnWetLossLS,                      &\n         archiveData    = State_Diag%Archive_SatDiagnWetLossLS,              &\n         mapData        = State_Diag%Map_SatDiagnWetLossLS,                  &\n         diagId         = diagId,                                            &\n         diagFlag       = 'W',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n!### Comment out these diagnostics for now (bmy, 6/2/20)\n!###    !-----------------------------------------------------------------------\n!###    ! Fraction of grid box undergoing large-scale precipitation\n!###    !-----------------------------------------------------------------------\n!###    arrayID = 'State_Diag%PrecipFracLS'\n!###    diagID  = 'PrecipFracLS'\n!###    CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n!###    IF ( Found ) THEN\n!###       IF ( am_I_Root ) WRITE(6,20) ADJUSTL( arrayID ), TRIM( diagID )\n!###       ALLOCATE( State_Diag%PrecipFracLS( IM, JM, LM ), STAT=RC )\n!###       CALL GC_CheckVar( arrayID, 0, RC )\n!###       IF ( RC /= GC_SUCCESS ) RETURN\n!###       State_Diag%PrecipFracLS = 0.0_f4\n!###       State_Diag%Archive_PrecipFracLS = .TRUE.\n!###       CALL Register_DiagField( Input_Opt, diagID, State_Diag%PrecipFracLS,  &\n!###                                State_Chm, State_Diag, RC                   )\n!###       IF ( RC /= GC_SUCCESS ) RETURN\n!###    ENDIF\n!###\n!###    !-----------------------------------------------------------------------\n!###    ! Fraction of soluble species lost to rainout in large-scale precip\n!###    !-----------------------------------------------------------------------\n!###    arrayID = 'State_Diag%RainFracLS'\n!###    diagID  = 'RainFracLS'\n!###    CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n!###    IF ( Found ) THEN\n!###       IF ( am_I_Root ) WRITE(6,20) ADJUSTL( arrayID ), TRIM( diagID )\n!###       ALLOCATE( State_Diag%RainFracLS( IM, JM, LM, nWetDep ), STAT=RC )\n!###       CALL GC_CheckVar( arrayID, 0, RC )\n!###       IF ( RC /= GC_SUCCESS ) RETURN\n!###       State_Diag%RainFracLS = 0.0_f4\n!###       State_Diag%Archive_RainFracLS = .TRUE.\n!###       CALL Register_DiagField( Input_Opt, diagID, State_Diag%RainFracLS,    &\n!###                                State_Chm, State_Diag, RC                   )\n!###       IF ( RC /= GC_SUCCESS ) RETURN\n!###    ENDIF\n!###\n!###    !-----------------------------------------------------------------------\n!###    ! Fraction of soluble species lost to washout in large-scale precip\n!###    !-----------------------------------------------------------------------\n!###    arrayID = 'State_Diag%WashFracLS'\n!###    diagID  = 'WashFracLS'\n!###    CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n!###    IF ( Found ) THEN\n!###       IF ( am_I_Root ) WRITE(6,20) ADJUSTL( arrayID ), TRIM( diagID )\n!###       ALLOCATE( State_Diag%WashFracLS( IM, JM, LM, nWetDep ), STAT=RC )\n!###       CALL GC_CheckVar( arrayID, 0, RC )\n!###       IF ( RC /= GC_SUCCESS ) RETURN\n!###       State_Diag%WashFracLS = 0.0_f4\n!###       State_Diag%Archive_WashFracLS = .TRUE.\n!###       CALL Register_DiagField( Input_Opt, diagID, State_Diag%WashFracLS,    &\n!###                                State_Chm, State_Diag, RC                   )\n!###       IF ( RC /= GC_SUCCESS ) RETURN\n!###    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! THE TransportTracers SPECIALTY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_TRACER_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! Emission of Pb210 from Rn222 decay\n       !--------------------------------------------------------------------\n       diagID  = 'PbFromRnDecay'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PbFromRnDecay,                       &\n            archiveData    = State_Diag%Archive_PbFromRnDecay,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Radioactive decay of Rn, Pb, Be7, and Be10\n       !--------------------------------------------------------------------\n       diagID  = 'RadDecay'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadDecay,                            &\n            archiveData    = State_Diag%Archive_RadDecay,                    &\n            mapData        = State_Diag%Map_RadDecay,                        &\n            diagId         = diagId,                                         &\n            diagFlag       = 'N',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! the TransportTracers simulation.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 2\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1 )\n                diagID = 'PbFromRnDecay'\n             CASE( 2 )\n                diagID = 'RadDecay'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC  )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for TransportTracers '// &\n                      'simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Advected species concentrations\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnConc'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnConc,                           &\n         archiveData    = State_Diag%Archive_SatDiagnConc,                   &\n         mapData        = State_Diag%Map_SatDiagnConc,                       &\n         diagId         = diagId,                                            &\n         diagFlag       = 'S',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Column Emissions [kg/m2/s] for Advected Species\n    ! From Surface to Maximum Vertical Level\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnColEmis'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnColEmis,                        &\n         archiveData    = State_Diag%Archive_SatDiagnColEmis,                &\n         mapData        = State_Diag%Map_SatDiagnColEmis,                    &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Total Surface Fluxes [kg/m2/s]\n    !                       [eflx (emis)- dflx (drydep)]\n    ! From Surface to Top of the PBL; For Advected Species\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnSurfFlux'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnSurfFlux,                       &\n         archiveData    = State_Diag%Archive_SatDiagnSurfFlux,               &\n         mapData        = State_Diag%Map_SatDiagnSurfFlux,                   &\n         diagId         = diagId,                                            &\n         diagFlag       = 'A',                                               &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: OH number density\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnOH'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnOH,                             &\n         archiveData    = State_Diag%Archive_SatDiagnOH,                     &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Relative humidity (RH)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnRH'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnRH,                             &\n         archiveData    = State_Diag%Archive_SatDiagnRH,                     &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Air density (AirDen)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnAirDen'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnAirDen,                         &\n         archiveData    = State_Diag%Archive_SatDiagnAirDen,                 &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Box height (BoxHeight)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnBoxHeight'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnBoxHeight,                      &\n         archiveData    = State_Diag%Archive_SatDiagnBoxHeight,              &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Pressure edges (PEDGE)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPEdge'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPEdge,                          &\n         archiveData    = State_Diag%Archive_SatDiagnPEdge,                  &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Pressure @ midpoint of layer (PMID)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPMid'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPMid,                           &\n         archiveData    = State_Diag%Archive_SatDiagnPMid,                   &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Tropopause pressure (TROPP)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnTROPP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnTROPP,                          &\n         archiveData    = State_Diag%Archive_SatDiagnTROPP,                  &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Tropopause level (TropLev)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnTropLev'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnTropLev,                        &\n         archiveData    = State_Diag%Archive_SatDiagnTropLev,                &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: PBL Height (m)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPBLHeight'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPBLHeight,                      &\n         archiveData    = State_Diag%Archive_SatDiagnPBLHeight,              &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: PBL Height (m)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPBLTop'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPBLTop,                         &\n         archiveData    = State_Diag%Archive_SatDiagnPBLTop,                 &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Air temperature (K)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnTAir'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnTAir,                           &\n         archiveData    = State_Diag%Archive_SatDiagnTAir,                   &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Cloud top fraction (unitless)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnCldFrac'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnCldFrac,                        &\n         archiveData    = State_Diag%Archive_SatDiagnCldFrac,                &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Cloud top pressure (hPa)\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnCldTopP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnCldTopP,                        &\n         archiveData    = State_Diag%Archive_SatDiagnCldTopP,                &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Root Zone Soil Moisture (or Wetness): GWETROOT\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnGWETROOT'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnGWETROOT,                       &\n         archiveData    = State_Diag%Archive_SatDiagnGWETROOT,               &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Topsoil Moisture (or Wetness): GWETTOP\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnGWETTOP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnGWETTOP,                        &\n         archiveData    = State_Diag%Archive_SatDiagnGWETTOP,                &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Direct Photosynthetically Active Radiation [W/m2]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPARDR'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPARDR,                          &\n         archiveData    = State_Diag%Archive_SatDiagnPARDR,                  &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Diffuse Photosynthetically Active Radiation [W/m2]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPARDF'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPARDF,                          &\n         archiveData    = State_Diag%Archive_SatDiagnPARDF,                  &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Total Precipitation (at surface) [mm/day]: PRECTOT\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPRECTOT'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPRECTOT,                        &\n         archiveData    = State_Diag%Archive_SatDiagnPRECTOT,                &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Sea Level Pressure [hPa]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnSLP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnSLP,                            &\n         archiveData    = State_Diag%Archive_SatDiagnSLP,                    &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Specific Humidity Interpolated to Current Time [g H2O/kg air]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnSPHU'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnSPHU,                           &\n         archiveData    = State_Diag%Archive_SatDiagnSPHU,                   &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Surface Temperature at 2m [K]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnTS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnTS,                             &\n         archiveData    = State_Diag%Archive_SatDiagnTS,                     &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: PBL Top Height [Levels]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnPBLTOPL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnPBLTOPL,                        &\n         archiveData    = State_Diag%Archive_SatDiagnPBLTOPL,                &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: MODIS Daily LAI [m2/m2]\n    !------------------------------------------------------------------------\n    diagId  = 'SatDiagnMODISLAI'\n    CALL Init_and_Register(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Diag     = State_Diag,                                        &\n         State_Grid     = State_Grid,                                        &\n         DiagList       = Diag_List,                                         &\n         TaggedDiagList = TaggedDiag_List,                                   &\n         Ptr2Data       = State_Diag%SatDiagnMODISLAI,                       &\n         archiveData    = State_Diag%Archive_SatDiagnMODISLAI,               &\n         diagId         = diagId,                                            &\n         RC             = RC                                                )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Set logicals for SatDiagn and/or SatDiagnEdge output\n    ! For ease of comparison, place fields in alphabetical order\n    !------------------------------------------------------------------------\n    State_Diag%Archive_SatDiagn = (                                          &\n         State_Diag%Archive_SatDiagnAirDen                              .or. &\n         State_Diag%Archive_SatDiagnBoxHeight                           .or. &\n         State_Diag%Archive_SatDiagnColEmis                             .or. &\n         State_Diag%Archive_SatDiagnConc                                .or. &\n         State_Diag%Archive_SatDiagnDryDep                              .or. &\n         State_Diag%Archive_SatDiagnDryDepVel                           .or. &\n         State_Diag%Archive_SatDiagnTROPP                               .or. &\n         State_Diag%Archive_SatDiagnTropLev                             .or. &\n         State_Diag%Archive_SatDiagnPBLHeight                           .or. &\n         State_Diag%Archive_SatDiagnPBLTop                              .or. &\n         State_Diag%Archive_SatDiagnTAir                                .or. &\n         State_Diag%Archive_SatDiagnCldFrac                             .or. &\n         State_Diag%Archive_SatDiagnCldTopP                             .or. &\n         State_Diag%Archive_SatDiagnGWETROOT                            .or. &\n         State_Diag%Archive_SatDiagnGWETTOP                             .or. &\n         State_Diag%Archive_SatDiagnJval                                .or. &\n         State_Diag%Archive_SatDiagnJvalO3O1D                           .or. &\n         State_Diag%Archive_SatDiagnJvalO3O3P                           .or. &\n         State_Diag%Archive_SatDiagnLoss                                .or. &\n         State_Diag%Archive_SatDiagnMODISLAI                            .or. &\n         State_Diag%Archive_SatDiagnOH                                  .or. &\n         State_Diag%Archive_SatDiagnOHreactivity                        .or. &\n         State_Diag%Archive_SatDiagnPARDF                               .or. &\n         State_Diag%Archive_SatDiagnPARDR                               .or. &\n         State_Diag%Archive_SatDiagnPBLHeight                           .or. &\n         State_Diag%Archive_SatDiagnPBLTop                              .or. &\n         State_Diag%Archive_SatDiagnPBLTopL                             .or. &\n         State_Diag%Archive_SatDiagnPMID                                .or. &\n         State_Diag%Archive_SatDiagnPRECTOT                             .or. &\n         State_Diag%Archive_SatDiagnProd                                .or. &\n         State_Diag%Archive_SatDiagnRH                                  .or. &\n         State_Diag%Archive_SatDiagnRxnRate                             .or. &\n         State_Diag%Archive_SatDiagnSLP                                 .or. &\n         State_Diag%Archive_SatDiagnSPHU                                .or. &\n         State_Diag%Archive_SatDiagnSurfFlux                            .or. &\n         State_Diag%Archive_SatDiagnTROPP                               .or. &\n         State_Diag%Archive_SatDiagnTS                                  .or. &\n         State_Diag%Archive_SatDiagnWetLossLS                           .or. &\n         State_Diag%Archive_SatDiagnWetLossConv                             )\n\n    State_Diag%Archive_SatDiagnEdge = (                                      &\n         State_Diag%Archive_SatDiagnPEdge                                   )\n\n    !------------------------------------------------------------------------\n    ! Satellite diagnostic: Counters\n    !------------------------------------------------------------------------\n    IF ( State_Diag%Archive_SatDiagn ) THEN \n       ALLOCATE( State_Diag%SatDiagnCount( State_Grid%NX,                    &\n                                           State_Grid%NY,                    &\n                                           State_Grid%NZ ), STAT=RC         )\n       CALL GC_CheckVar( 'State_Diag%SatDiagnCount', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%SatDiagnCount = 0.0_f4\n       State_Diag%Archive_SatDiagnCount = .TRUE.\n    ENDIF\n\n    IF ( State_Diag%Archive_SatDiagnEdge ) THEN\n       ALLOCATE( State_Diag%SatDiagnEdgeCount( State_Grid%NX,                &\n                                               State_Grid%NY,                &\n                                               State_Grid%NZ+1 ), STAT=RC   )\n       CALL GC_CheckVar( 'State_Diag%SatDiagnEdgeCount', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%SatDiagnEdgeCount = 0.0_f4\n       State_Diag%Archive_SatDiagnEdgeCount = .TRUE.\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! THE RRTMG RADIATIVE TRANSFER SPECIALTY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%LRAD ) THEN\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Define index arrays\n       !--------------------------------------------------------------------\n\n       ! Number of requested RRTMG outputs (tags)\n       State_Diag%nRadOut = nRadOut\n\n       ! Exit if no outputs have been selected\n       IF ( State_Diag%nRadOut == 0 ) THEN\n          ErrMsg = 'No RRTMG diagnostic outputs have been requested!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Array to contain the RRTMG indices for each requested output\n       ALLOCATE( State_Diag%RadOutInd( State_Diag%nRadOut ), STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%RadOutInd', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! Array to contain the names of each requested output\n       ALLOCATE( State_Diag%RadOutName( State_Diag%nRadOut ), STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%RadOutName', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! Populate the index arrays for RRTMG\n       CALL Init_RRTMG_Indices( Input_Opt, State_Diag, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       !--------------------------------------------------------------------\n       ! RRTMG: All-sky LW rad @ surface\n       !--------------------------------------------------------------------\n       diagID  = 'RadAllSkyLWSurf'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAllSkyLWSurf,                     &\n            archiveData    = State_Diag%Archive_RadAllSkyLWSurf,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: All-sky LW rad @ atm top\n       !--------------------------------------------------------------------\n       diagID  = 'RadAllSkyLWTOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAllSkyLWTOA,                      &\n            archiveData    = State_Diag%Archive_RadAllSkyLWTOA,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: All-sky LW rad @ tropopause\n       !--------------------------------------------------------------------\n       diagID  = 'RadAllSkyLWTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAllSkyLWTrop,                     &\n            archiveData    = State_Diag%Archive_RadAllSkyLWTrop,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: All-sky SW rad @ surface\n       !--------------------------------------------------------------------\n       diagID  = 'RadAllSkySWSurf'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAllSkySWSurf,                     &\n            archiveData    = State_Diag%Archive_RadAllSkySWSurf,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: All-sky SW rad @ atm top\n       !--------------------------------------------------------------------\n       diagID  = 'RadAllSkySWTOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAllSkySWTOA,                      &\n            archiveData    = State_Diag%Archive_RadAllSkySWTOA,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: All-sky SW rad @ tropopause\n       !--------------------------------------------------------------------\n       diagID  = 'RadAllSkySWTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAllSkySWTrop,                     &\n            archiveData    = State_Diag%Archive_RadAllSkySWTrop,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Clear-sky SW rad @ surface\n       !--------------------------------------------------------------------\n       diagID  = 'RadClrSkyLWSurf'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadClrSkyLWSurf,                     &\n            archiveData    = State_Diag%Archive_RadClrSkyLWSurf,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Clear-sky LW rad @ atm top\n       !--------------------------------------------------------------------\n       diagID  = 'RadClrSkyLWTOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadClrSkyLWTOA,                      &\n            archiveData    = State_Diag%Archive_RadClrSkyLWTOA,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Clear-sky LW rad @ tropopause\n       !--------------------------------------------------------------------\n       diagID  = 'RadClrSkyLWTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadClrSkyLWTrop,                     &\n            archiveData    = State_Diag%Archive_RadClrSkyLWTrop,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Clear-sky SW rad @ surface\n       !--------------------------------------------------------------------\n       diagID  = 'RadClrSkySWSurf'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadClrSkySWSurf,                     &\n            archiveData    = State_Diag%Archive_RadClrSkySWSurf,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Clear-sky SW rad @ atm top\n       !--------------------------------------------------------------------\n       diagID  = 'RadClrSkySWTOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadClrSkySWTOA,                      &\n            archiveData    = State_Diag%Archive_RadClrSkySWTOA,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Clear-sky SW rad @ tropopause\n       !--------------------------------------------------------------------\n       diagID  = 'RadClrSkySWTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadClrSkySWTrop,                     &\n            archiveData    = State_Diag%Archive_RadClrSkySWTrop,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Aerosol optical depth per wavelength\n       !--------------------------------------------------------------------\n       TmpWL   = RadWL(1)                           ! Workaround for ifort 17\n       diagID  = 'RadAOD' // TRIM( TmpWL ) // 'nm'  ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAODWL1,                           &\n            archiveData    = State_Diag%Archive_RadAODWL1,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       TmpWL   = RadWL(2)                           ! Workaround for ifort 17\n       diagID  = 'RadAOD' // TRIM( TmpWL ) // 'nm'  ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAODWL2,                           &\n            archiveData    = State_Diag%Archive_RadAODWL2,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       TmpWL   = RadWL(3)                           ! Workaround for ifort 17\n       diagID  = 'RadAOD' // TRIM( TmpWL ) // 'nm'  ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAODWL3,                           &\n            archiveData    = State_Diag%Archive_RadAODWL3,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Single scattering albedo per wavelength\n       !--------------------------------------------------------------------\n       TmpWL   = RadWL(1)                           ! Workaround for ifort 17\n       diagID  = 'RadSSA' // TRIM( TmpWL ) // 'nm'  ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadSSAWL1,                           &\n            archiveData    = State_Diag%Archive_RadSSAWL1,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       TmpWL   = RadWL(2)                           ! Workaround for ifort 17\n       diagID  = 'RadSSA' // TRIM( TmpWL ) // 'nm'  ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadSSAWL2,                           &\n            archiveData    = State_Diag%Archive_RadSSAWL2,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       TmpWL   = RadWL(3)                           ! Workaround for ifort 17\n       diagID  = 'RadSSA' // TRIM( TmpWL ) // 'nm'  ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadSSAWL3,                           &\n            archiveData    = State_Diag%Archive_RadSSAWL3,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! RRTMG: Asymmetry parameter per wavelength\n       !--------------------------------------------------------------------\n       TmpWL   = RadWL(1)                           ! Workaround for ifort 17\n       diagID  = 'RadAsym' // TRIM( TmpWL ) // 'nm' ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAsymWL1,                          &\n            archiveData    = State_Diag%Archive_RadAsymWL1,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       TmpWL   = RadWL(2)                           ! Workaround for ifort 17\n       diagID  = 'RadAsym' // TRIM( TmpWL ) // 'nm' ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAsymWL2,                          &\n            archiveData    = State_Diag%Archive_RadAsymWL2,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       TmpWL   = RadWL(3)                           ! Workaround for ifort 17\n       diagID  = 'RadAsym' // TRIM( TmpWL ) // 'nm' ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RadAsymWL3,                          &\n            archiveData    = State_Diag%Archive_RadAsymWL3,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Z',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'DynHeating'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%DynHeating,                          &\n            archiveData    = State_Diag%Archive_DynHeating,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'DTRad'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%DTRad,                               &\n            archiveData    = State_Diag%Archive_DTRad,                       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! the RRTMG radiatve transfer model.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 23\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1 )\n                diagID = 'RadAllSkyLWSurf'\n             CASE( 2 )\n                diagID = 'RadAllSkyLWTOA'\n             CASE( 3 )\n                diagID = 'RadAllSkyLWTrop'\n             CASE( 4 )\n                diagID = 'RadAllSkySWSurf'\n             CASE( 5 )\n                diagID = 'RadAllSkySWTOA'\n             CASE( 6 )\n                diagID = 'RadAllSkySWTrop'\n             CASE( 7 )\n                diagID = 'RadClrSkyLWSurf'\n             CASE( 8 )\n                diagID = 'RadClrSkyLWTOA'\n             CASE( 9 )\n                diagID = 'RadClrSkyLWTrop'\n             CASE( 10 )\n                diagID = 'RadClrSkySWSurf'\n             CASE( 11 )\n                diagID = 'RadClrSkySWTOA'\n             CASE( 12 )\n                diagID = 'RadClrSkySWTrop'\n             CASE( 13 )\n                TmpWL  = RadWL(1)\n                diagID = 'RadAOD' // TRIM( TmpWL ) // 'nm'\n             CASE( 14 )\n                TmpWL  = RadWL(2)\n                diagID = 'RadAOD' // TRIM( TmpWL ) // 'nm'\n             CASE( 15 )\n                TmpWL  = RadWL(3)\n                diagID = 'RadAOD' // TRIM( TmpWL ) // 'nm'\n             CASE( 16 )\n                TmpWL  = RadWL(1)\n                diagID = 'RadSSA' // TRIM( TmpWL ) // 'nm'\n             CASE( 17 )\n                TmpWL  = RadWL(2)\n                diagID = 'RadSSA' // TRIM( TmpWL ) // 'nm'\n             CASE( 18 )\n                TmpWL  = RadWL(3)\n                diagID = 'RadSSA' // TRIM( TmpWL ) // 'nm'\n             CASE( 19 )\n                TmpWL  = RadWL(1)\n                diagID = 'RadAsym' // TRIM( TmpWL ) // 'nm'\n             CASE( 20 )\n                TmpWL  = RadWL(2)\n                diagID = 'RadAsym' // TRIM( TmpWL ) // 'nm'\n             CASE( 21 )\n                TmpWL  = RadWL(3)\n                diagID = 'RadAsym' // TRIM( TmpWL ) // 'nm'\n             CASE( 22 )\n                diagID = 'DynHeating'\n             CASE( 23 )\n                diagID = 'DTRad'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for simulations '     // &\n                      'with the RRTMG radiative transfer model.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for\n    ! simulations using KPP-generated mechanism code, that is:\n    !\n    ! ALL FULL-CHEMISTRY SIMULATIONS\n    ! MERCURY SIMULATION\n    ! CARBON GASES SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or.                                   &\n         Input_Opt%ITS_A_MERCURY_SIM  .or.                                   &\n         Input_Opt%ITS_A_CARBON_SIM        ) THEN\n\n       !--------------------------------------------------------------------\n       ! KPP Reaction Rates\n       !--------------------------------------------------------------------\n       diagID  = 'RxnRate'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RxnRate,                             &\n            archiveData    = State_Diag%Archive_RxnRate,                     &\n            mapData        = State_Diag%Map_RxnRate,                         &\n            diagId         = diagId,                                         &\n            diagFlag       = 'R',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostic: KPP Reaction Rates\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnRxnRate'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnRxnRate,                     &\n            archiveData    = State_Diag%Archive_SatDiagnRxnRate,             &\n            mapData        = State_Diag%Map_SatDiagnRxnRate,                 &\n            diagId         = diagId,                                         &\n            diagFlag       = 'R',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! KPP Reaction Rate Constants\n       !--------------------------------------------------------------------\n       diagID  = 'RxnConst'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RxnConst,                            &\n            archiveData    = State_Diag%Archive_RxnConst,                    &\n            mapData        = State_Diag%Map_RxnConst,                        &\n            diagId         = diagId,                                         &\n            diagFlag       = 'R',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of KPP Integrations per grid box\n       !-------------------------------------------------------------------\n       diagID  = 'KppIntCounts'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppIntCounts,                        &\n            archiveData    = State_Diag%Archive_KppIntCounts,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of times KPP updated the Jacobian per grid box\n       !-------------------------------------------------------------------\n       diagID  = 'KppJacCounts'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppJacCounts,                        &\n            archiveData    = State_Diag%Archive_KppJacCounts,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       !-------------------------------------------------------------------\n       ! Number of KPP total internal integration time steps\n       !-------------------------------------------------------------------\n       diagID  = 'KppTotSteps'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppTotSteps,                         &\n            archiveData    = State_Diag%Archive_KppTotSteps,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of KPP accepted internal integration time steps\n       !-------------------------------------------------------------------\n       diagID  = 'KppAccSteps'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppAccSteps,                         &\n            archiveData    = State_Diag%Archive_KppAccSteps,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of KPP rejected internal integration time steps\n       !-------------------------------------------------------------------\n       diagID  = 'KppRejSteps'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppRejSteps,                         &\n            archiveData    = State_Diag%Archive_KppRejSteps,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of KPP LU Decompositions\n       !-------------------------------------------------------------------\n       diagID  = 'KppLuDecomps'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppLuDecomps,                        &\n            archiveData    = State_Diag%Archive_KppLuDecomps,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of KPP substitutions (forward and backward)\n       !-------------------------------------------------------------------\n       diagID  = 'KppSubsts'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppSubsts,                           &\n            archiveData    = State_Diag%Archive_KppSubsts,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of KPP singular matrix decompositions\n       !-------------------------------------------------------------------\n       diagID  = 'KppSmDecomps'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppSmDecomps,                        &\n            archiveData    = State_Diag%Archive_KppsmDecomps,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of negative concentrations after KPP integration\n       !-------------------------------------------------------------------\n       diagID  = 'KppNegatives'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppNegatives,                        &\n            archiveData    = State_Diag%Archive_KppNegatives,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Number of negative concentrations after first KPP integration try\n       !-------------------------------------------------------------------\n       diagID  = 'KppNegatives0'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppNegatives0,                       &\n            archiveData    = State_Diag%Archive_KppNegatives0,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! AR only -- Number of species in reduced mechanism (NVAR - NRMV)\n       !-------------------------------------------------------------------\n       diagID = 'KppAutoReducerNVAR'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppAutoReducerNVAR,                  &\n            archiveData    = State_Diag%Archive_KppAutoReducerNVAR,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! AR only -- Computed reduction threshold (molec cm-3 s-1)\n       !-------------------------------------------------------------------\n       diagID = 'KppAutoReduceThres'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppAutoReduceThres,                  &\n            archiveData    = State_Diag%Archive_KppAutoReduceThres,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! AR only -- Number of nonzero entries in LU decomp (cNONZERO)\n       !-------------------------------------------------------------------\n       diagID = 'KppcNONZERO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppcNONZERO,                         &\n            archiveData    = State_Diag%Archive_KppcNONZERO,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! CPU time spent in grid box for KPP\n       !-------------------------------------------------------------------\n       diagID = 'KppTime'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppTime,                             &\n            archiveData    = State_Diag%Archive_KppTime,                     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! full-chemistry simulations.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 17\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'RxnRate'\n             CASE( 2  )\n                diagID = 'SatDiagnRxnRate'\n             CASE( 3  )\n                diagID = 'RxnConst'\n             CASE( 4 )\n                diagID = 'KppIntCounts'\n             CASE( 5 )\n                diagID = 'KppJacCounts'\n             CASE( 6  )\n                diagID = 'KppTotSteps'\n             CASE( 7 )\n                diagID = 'KppAccSteps'\n             CASE( 8 )\n                diagID = 'KppRejSteps'\n             CASE( 9 )\n                diagID = 'KppLuDecomps'\n             CASE( 10 )\n                diagID = 'KppSubsts'\n             CASE( 11 )\n                diagID = 'KppSmDecomps'\n             CASE( 12 )\n                diagID = 'KppNegatives'\n             CASE( 13 )\n                diagID = 'KppNegatives0'\n             CASE( 14 )\n                diagID = 'KppAutoReducerNVAR'\n             CASE( 15 )\n                diagID = 'KppAutoReduceThres'\n             CASE( 16 )\n                diagID = 'KppcNONZERO'\n             CASE( 17 )\n                diagID = 'KppTime'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for full-chemistry, ' // &\n                      'Hg, or carbon gases simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! ALL FULL-CHEMISTRY SIMULATIONS\n    ! MERCURY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! OH reactivity\n       !--------------------------------------------------------------------\n       diagID  = 'OHreactivity'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%OHreactivity,                        &\n            archiveData    = State_Diag%Archive_OHreactivity,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostic: OH reactivity\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnOHreactivity'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnOHreactivity,                &\n            archiveData    = State_Diag%Archive_SatDiagnOHreactivity,        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF       \n\n#ifdef MODEL_GEOS\n       !--------------------------------------------------------------------\n       ! NOx lifetime \n       !--------------------------------------------------------------------\n       diagID  = 'NOxTau'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%NOxTau,                              &\n            archiveData    = State_Diag%Archive_NOxTau,                      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Trop. NOx lifetime \n       !--------------------------------------------------------------------\n       diagID  = 'TropNOxTau'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TropNOxTau,                          &\n            archiveData    = State_Diag%Archive_TropNOxTau,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n#endif\n\n       !--------------------------------------------------------------------\n       ! J-Values (instantaneous values)\n       !--------------------------------------------------------------------\n       diagID  = 'Jval'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Jval,                                &\n            archiveData    = State_Diag%Archive_Jval,                        &\n            mapData        = State_Diag%Map_Jval,                            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'P',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! J-Values for O3_O1D (instantaneous values)\n       !--------------------------------------------------------------------\n       diagID  = 'JvalO3O1D'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%JvalO3O1D,                           &\n            archiveData    = State_Diag%Archive_JvalO3O1D,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! J-Values for O3_O3P (instantaneous values)\n       !--------------------------------------------------------------------\n       diagID  = 'JvalO3O3P'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%JvalO3O3P,                           &\n            archiveData    = State_Diag%Archive_JvalO3O3P,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostics J-Values (instantaneous values)\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnJval'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnJval,                        &\n            archiveData    = State_Diag%Archive_SatDiagnJval,                &\n            mapData        = State_Diag%Map_SatDiagnJval,                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'P',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostics J-Values for O3_O1D (instantaneous values)\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnJvalO3O1D'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnJvalO3O1D,                   &\n            archiveData    = State_Diag%Archive_SatDiagnJvalO3O1D,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostics J-Values for O3_O3P (instantaneous values)\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnJvalO3O3P'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnJvalO3O3P,                   &\n            archiveData    = State_Diag%Archive_SatDiagnJvalO3O3P,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Noontime J-values\n       !\n       ! NOTE: Dimension array nPhotol+2 to archive special photolysis\n       ! reactions for O3_O1D and O3_O3P\n       !--------------------------------------------------------------------\n       diagID  = 'JNoon'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%JNoon,                               &\n            archiveData    = State_Diag%Archive_JNoon,                       &\n            mapData        = State_Diag%Map_JNoon,                           &\n            diagId         = diagId,                                         &\n            diagFlag       = 'P',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'JNoonFrac'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%JNoonFrac,                           &\n            archiveData    = State_Diag%Archive_JNoonFrac,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Diffuse UV flux per wavelength bin\n       !--------------------------------------------------------------------\n       diagID  = 'UvFluxDiffuse'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%UvFluxDiffuse,                       &\n            archiveData    = State_Diag%Archive_UvFluxDiffuse,               &\n            mapData        = State_Diag%Map_UvFluxDiffuse,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'U',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Direct UV flux per wavelength bin\n       !--------------------------------------------------------------------\n       diagID  = 'UVFluxDirect'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%UvFluxDirect,                        &\n            archiveData    = State_Diag%Archive_UvFluxDirect,                &\n            mapData        = State_Diag%Map_UvFluxDirect,                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'U',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Net UV flux per wavelength bin\n       !--------------------------------------------------------------------\n       diagID  = 'UVFluxNet'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%UvFluxNet,                           &\n            archiveData    = State_Diag%Archive_UvFluxNet,                   &\n            mapData        = State_Diag%Map_UvFluxNet,                       &\n            diagId         = diagId,                                         &\n            diagFlag       = 'U',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Optical depth (3D) used to compute photolysis rates (600 nm)\n       !--------------------------------------------------------------------\n       diagID  = 'OD600'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%OD600,                               &\n            archiveData    = State_Diag%Archive_OD600,                       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Total column optical depth used to compute photolysis rates (600 nm)\n       !--------------------------------------------------------------------\n       diagID  = 'TCOD600'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TCOD600,                             &\n            archiveData    = State_Diag%Archive_TCOD600,                     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! full-chemistry simulations.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 17\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'OHreactivity'\n             CASE( 2  )\n                diagID = 'SatDiagnOHreactivity'\n             CASE( 3 )\n                diagID = 'NOxTau'\n             CASE( 4 )\n                diagID = 'TropNOxTau'\n             CASE( 5  )\n                diagID = 'Jval'\n             CASE( 6  )\n                diagID = 'JvalO3O1D'\n             CASE( 7 )\n                diagID = 'JvalO3O3P'\n             CASE( 8 )\n                diagID = 'SatDiagnJval'\n             CASE( 9 )\n                diagID = 'SatDiagnJvalO3O1D'\n             CASE( 10 )\n                diagID = 'SatDiagnJvalO3O3P'\n             CASE( 11 )\n                diagID = 'JNoon'\n             CASE( 12 )\n                diagID = 'JNoonFrac'\n             CASE( 13 )\n                diagID = 'UvFluxDiffuse'\n             CASE( 14 )\n                diagID = 'UVFluxDirect'\n             CASE( 15 )\n                diagID = 'UVFluxNet'\n             CASE( 16 )\n                diagID = 'OD600'\n             CASE( 17 )\n                diagID = 'TCOD600'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for full-chemistry '  // &\n                      'simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! ALL FULL-CHEMISTRY SIMULATIONS\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! HO2 concentration upon exiting the FlexChem solver\n       !--------------------------------------------------------------------\n       diagID  = 'HO2concAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HO2concAfterChem,                    &\n            archiveData    = State_Diag%Archive_HO2concAfterChem,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! O1D concentration upon exiting the FlexChem solver\n       !--------------------------------------------------------------------\n       diagID  = 'O1DconcAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%O1DconcAfterChem,                    &\n            archiveData    = State_Diag%Archive_O1DconcAfterChem,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! O3P concentration upon exiting the FlexChem solver\n       !--------------------------------------------------------------------\n       diagID  = 'O3PconcAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%O3PconcAfterChem,                    &\n            archiveData    = State_Diag%Archive_O3PconcAfterChem,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! CH4 pseudo-flux\n       !--------------------------------------------------------------------\n       diagID  = 'CH4pseudoFlux'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%CH4pseudoFlux,                       &\n            archiveData    = State_Diag%Archive_CH4pseudoFlux,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 by aqueous oxidation of HOBr in cloud\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO4fromHOBrInCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromHOBrInCloud,              &\n            archiveData    = State_Diag%Archive_ProdSO4fromHOBrInCloud,      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 by SRHOBr\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO4fromSRHOBr'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromSRHOBr,                   &\n            archiveData    = State_Diag%Archive_ProdSO4fromSRHOBr,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of ASOA (Aromatic SOA) [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassASOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassASOA,                         &\n            archiveData    = State_Diag%Archive_AerMassASOA,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of INDIOL (Isoprene SOA) [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassINDIOL'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassINDIOL,                       &\n            archiveData    = State_Diag%Archive_AerMassINDIOL,               &\n            diagId         = diagId,                                         &\n            diagFlag       = 'S',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of ISN1OA [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassISN1OA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassISN1OA,                       &\n            archiveData    = State_Diag%Archive_AerMassISN1OA,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of LVOCOA [kg/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassLVOCOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassLVOCOA,                       &\n            archiveData    = State_Diag%Archive_AerMassLVOCOA,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of OPOA\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassOPOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassOPOA,                         &\n            archiveData    = State_Diag%Archive_AerMassOPOA,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of POA\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassPOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassPOA,                          &\n            archiveData    = State_Diag%Archive_AerMassPOA,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of SOAGX [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassSOAGX'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassSOAGX,                        &\n            archiveData    = State_Diag%Archive_AerMassSOAGX,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of SOAIE [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassSOAIE'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassSOAIE,                        &\n            archiveData    = State_Diag%Archive_AerMassSOAIE,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of TSOA (Terpene SOA) [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassTSOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassTSOA,                         &\n            archiveData    = State_Diag%Archive_AerMassTSOA,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Beta NO (branching ratio) [ug C/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'BetaNO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%BetaNO,                              &\n            archiveData    = State_Diag%Archive_BetaNO,                      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Total biogenic organic aerosol mass [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'TotalBiogenicOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TotalBiogenicOA,                     &\n            archiveData    = State_Diag%Archive_TotalBiogenicOA,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n       !--------------------------------------------------------------------\n       ! KPP error flag\n       !--------------------------------------------------------------------\n       diagID  = 'KppError'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%KppError,                            &\n            archiveData    = State_Diag%Archive_KppError,                    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n#endif\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! full-chemistry simulations.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 18\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'HO2concAfterChem'\n             CASE( 2  )\n                diagID = 'O1DconcAfterChem'\n             CASE( 3 )\n                diagID = 'O3PconcAfterChem'\n             CASE( 4 )\n                diagID = 'CH4pseudoFlux'\n             CASE( 5  )\n                diagID = 'ProdSO4fromHOBrInCloud'\n             CASE( 6  )\n                diagID = 'ProdSO4fromSRHOBr'\n             CASE( 7 )\n                diagID = 'AerMassASOA'\n             CASE( 8 )\n                diagID = 'AerMassINDIOL'\n             CASE( 9 )\n                diagID = 'AerMassISN1OA'\n             CASE( 10 )\n                diagID = 'AerMassLVOCOA'\n             CASE( 11 )\n                diagID = 'AerMassOPOA'\n             CASE( 12 )\n                diagID = 'AerMassPOA'\n             CASE( 13 )\n                diagID = 'AerMassSOAGX'\n             CASE( 14 )\n                diagID = 'AerMassSOAIE'\n             CASE( 15 )\n                diagID = 'AerMassTSOA'\n             CASE( 16 )\n                diagID = 'BetaNO'\n             CASE( 17 )\n                diagID = 'TotalBiogenicOA'\n             CASE( 18 )\n                diagID = 'KppError'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for full-chemistry '  // &\n                      'simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! ALL FULL-CHEMISTRY SIMULATIONS\n    ! (benchmark, standard, tropchem, *SOA*, aciduptake, marinePOA)\n    !\n    ! and THE TAGGED O3 SPECIALTY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%LDRYD .and.                                               &\n         ( Input_Opt%ITS_A_FULLCHEM_SIM .or.                                 &\n           Input_Opt%ITS_A_TAGO3_SIM         ) ) THEN\n\n       !--------------------------------------------------------------------\n       ! Dry deposition resistance RA at user-defined altitude above sfc\n       !--------------------------------------------------------------------\n       diagID  = 'DryDepRa' // TRIM( TmpHT )\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%DryDepRaALT1,                        &\n            archiveData    = State_Diag%Archive_DryDepRaALT1,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Dry deposition velocity for species that are requested\n       ! at a user-defined altitude above the surface\n       !--------------------------------------------------------------------\n       diagID  = 'DryDepVelFor' // TRIM( TmpHt )\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%DryDepVelForALT1,                    &\n            archiveData    = State_Diag%Archive_DryDepVelForALT1,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Species concentration at user-defined height above surface\n       !--------------------------------------------------------------------\n       diagID  = 'SpeciesConc' // TRIM( TmpHt )\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SpeciesConcALT1,                     &\n            archiveData    = State_Diag%Archive_SpeciesConcALT1,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in full-chemistry or\n       ! tagged O3 simulations with dry-deposition turned off.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 3\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'DryDepRaALT1'\n             CASE( 2  )\n                diagID = 'DryDepVelForALT1'\n             CASE( 3 )\n                diagID = 'SpeciesConcALT1'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n\n          ! Halt with an error message if any of the following quantities\n          ! have been requested as diagnostics in simulations other than\n          ! full-chemistry simulations or the tagged O3 simulation.\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, but '// &\n                      'this is only appropriate for the full-chemistry  ' // &\n                      'simulations or the tagged O3 simulation.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! ALL FULL-CHEMISTRY SIMULATIONS\n    ! (benchmark, standard, tropchem, *SOA*, aciduptake, marinePOA)\n    !\n    ! THE CARBON SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM                                   .or. &\n         Input_Opt%ITS_A_CARBON_SIM                                     ) THEN\n\n       !--------------------------------------------------------------------\n       ! OH concentration upon exiting the FlexChem solver\n       !--------------------------------------------------------------------\n       diagID  = 'OHconcAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%OHconcAfterChem,                     &\n            archiveData    = State_Diag%Archive_OHconcAfterChem,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n#ifdef MODEL_GEOS\n       diagID  = 'O3concAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%O3concAfterChem,                     &\n            archiveData    = State_Diag%Archive_O3concAfterChem,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'RO2concAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%RO2concAfterChem,                    &\n            archiveData    = State_Diag%Archive_RO2concAfterChem,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n#endif\n\n       !--------------------------------------------------------------------\n       ! Air mass -- full column and trop column\n       !--------------------------------------------------------------------\n       diagId = 'AirMassColumnFull'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AirMassColumnFull,                   &\n            archiveData    = State_Diag%Archive_AirMassColumnFull,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagId = 'AirMassColumnTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AirMassColumnTrop,                   &\n            archiveData    = State_Diag%Archive_AirMassColumnTrop,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! CH4 emission -- needed to compute lifetime metrics for CH4 sims\n       !--------------------------------------------------------------------\n       diagId = 'CH4emission'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%CH4emission,                         &\n            archiveData    = State_Diag%Archive_CH4emission,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Airmass-weighted CH4 -- full column and trop-only column\n       !--------------------------------------------------------------------\n       diagId = 'CH4massColumnFull'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%CH4massColumnFull,                   &\n            archiveData    = State_Diag%Archive_CH4massColumnFull,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagId = 'CH4massColumnTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%CH4massColumnTrop,                   &\n            archiveData    = State_Diag%Archive_CH4massColumnTrop,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Airmass-weighted OH -- full column and trop-only column\n       !--------------------------------------------------------------------\n       diagId = 'OHwgtByAirMassColumnFull'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%OHwgtByAirMassColumnFull,            &\n            archiveData    = State_Diag%Archive_OHwgtByAirMassColumnFull,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagId = 'OHwgtByAirMassColumnTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%OHwgtByAirMassColumnTrop,            &\n            archiveData    = State_Diag%Archive_OHwgtByAirMassColumnTrop,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! CH4 loss in the troposphere\n       !--------------------------------------------------------------------\n       diagId = 'LossOHbyCH4columnTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossOHbyCH4columnTrop,               &\n            archiveData    = State_Diag%Archive_LossOHbyCH4columnTrop,       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Methyl chloroform (aka MCF) loss in the troposphere\n       !--------------------------------------------------------------------\n       diagId = 'LossOHbyMCFcolumnTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossOHbyMCFcolumnTrop,               &\n            archiveData    = State_Diag%Archive_LossOHbyMCFcolumnTrop,       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! full-chemistry or carbon simulations.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 10\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'AirMassColumnFull'\n             CASE( 2  )\n                diagID = 'AirMassColumnTrop'\n             CASE( 3  )\n                diagID = 'CH4emission'\n             CASE( 4  )\n                diagID = 'CH4massColumnFull'\n             CASE( 5  )\n                diagID = 'CH4massColumnTrop'\n             CASE( 6  )\n                diagID = 'OHwgtByAirMassColumnFull'\n             CASE( 7  )\n                diagID = 'OHwgtByAirMassColumnTrop'\n             CASE( 8  )\n                diagID = 'LossOHbyCH4columnTrop'\n             CASE( 9  )\n                diagID = 'LossOHbyMCFcolumnTrop'\n             CASE( 10 )\n                diagID = 'OHconcAfterChem'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                     'but this is only appropriate for full-chemistry '   // &\n                     'or CH4 simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! ALL FULL-CHEMISTRY SIMULATIONS\n    ! (benchmark, standard, tropchem, *SOA*, aciduptake, marinePOA)\n    !\n    ! and THE AEROSOL-ONLY SPECIALTY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n#ifdef TOMAS\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Condensation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasH2SO4mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasH2SO4mass,                      &\n            archiveData    = State_Diag%Archive_TomasH2SO4mass,              &\n            mapData        = State_Diag%Map_TomasH2SO4mass,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Condensation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasH2SO4number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasH2SO4number,                    &\n            archiveData    = State_Diag%Archive_TomasH2SO4number,            &\n            mapData        = State_Diag%Map_TomasH2SO4number,                &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Coagulation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasCOAGmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasCOAGmass,                       &\n            archiveData    = State_Diag%Archive_TomasCOAGmass,               &\n            mapData        = State_Diag%Map_TomasCOAGmass,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Coagulation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasCOAGnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasCOAGnumber,                     &\n            archiveData    = State_Diag%Archive_TomasCOAGnumber,             &\n            mapData        = State_Diag%Map_TomasCOAGnumber,                 &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Nucleation\n       !--------------------------------------------------------------------\n       diagID  = 'TomasNUCRATEFN' \n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasNUCRATEFN,                      &\n            archiveData    = State_Diag%Archive_TomasNUCRATEFN,              &\n            !mapData        = State_Diag%Map_TomasNUCRATEfn,                  &\n            diagId         = diagId,                                         &\n            !diagFlag       = 'B',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Nucleation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasNUCLmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasNUCLmass,                       &\n            archiveData    = State_Diag%Archive_TomasNUCLmass,               &\n            mapData        = State_Diag%Map_TomasNUCLmass,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Nucleation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasNUCLnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasNUCLnumber,                     &\n            archiveData    = State_Diag%Archive_TomasNUCLnumber,             &\n            mapData        = State_Diag%Map_TomasNUCLnumber,                 &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Nucleation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasNUCRATEnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasNUCRATEnumber,                  &\n            archiveData    = State_Diag%Archive_TomasNUCRATEnumber,          &\n            mapData        = State_Diag%Map_TomasNUCRATEnumber,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Aqueous oxidation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasAQOXmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasAQOXmass,                       &\n            archiveData    = State_Diag%Archive_TomasAQOXmass,               &\n            mapData        = State_Diag%Map_TomasAQOXmass,                   &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - Aqueous oxidation rate per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasAQOXnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasAQOXnumber,                     &\n            archiveData    = State_Diag%Archive_TomasAQOXnumber,             &\n            mapData        = State_Diag%Map_TomasAQOXnumber,                 &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXmass,                      &\n            archiveData    = State_Diag%Archive_TomasMNFIXmass,              &\n            mapData        = State_Diag%Map_TomasMNFIXmass,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXnumber,                    &\n            archiveData    = State_Diag%Archive_TomasMNFIXnumber,            &\n            mapData        = State_Diag%Map_TomasMNFIXnumber,                &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXh2so4mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXh2so4mass,                 &\n            archiveData    = State_Diag%Archive_TomasMNFIXh2so4mass,         &\n            mapData        = State_Diag%Map_TomasMNFIXh2so4mass,             &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXh2so4number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXh2so4number,               &\n            archiveData    = State_Diag%Archive_TomasMNFIXh2so4number,       &\n            mapData        = State_Diag%Map_TomasMNFIXh2so4number,           &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcoagmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcoagmass,                  &\n            archiveData    = State_Diag%Archive_TomasMNFIXcoagmass,          &\n            mapData        = State_Diag%Map_TomasMNFIXcoagmass,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcoagnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcoagnumber,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXcoagnumber,        &\n            mapData        = State_Diag%Map_TomasMNFIXcoagnumber,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXaqoxmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXaqoxmass,                  &\n            archiveData    = State_Diag%Archive_TomasMNFIXaqoxmass,          &\n            mapData        = State_Diag%Map_TomasMNFIXaqoxmass,              &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXaqoxnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXaqoxnumber,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXaqoxnumber,        &\n            mapData        = State_Diag%Map_TomasMNFIXaqoxnumber,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXezwat1mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXezwat1mass,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXezwat1mass,        &\n            mapData        = State_Diag%Map_TomasMNFIXezwat1mass,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXezwat1number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXezwat1number,              &\n            archiveData    = State_Diag%Archive_TomasMNFIXezwat1number,      &\n            mapData        = State_Diag%Map_TomasMNFIXezwat1number,          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXezwat2mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXezwat2mass,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXezwat2mass,        &\n            mapData        = State_Diag%Map_TomasMNFIXezwat2mass,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXezwat2number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXezwat2number,              &\n            archiveData    = State_Diag%Archive_TomasMNFIXezwat2number,      &\n            mapData        = State_Diag%Map_TomasMNFIXezwat2number,          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXezwat3mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXezwat3mass,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXezwat3mass,        &\n            mapData        = State_Diag%Map_TomasMNFIXezwat3mass,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXezwat3number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXezwat3number,              &\n            archiveData    = State_Diag%Archive_TomasMNFIXezwat3number,      &\n            mapData        = State_Diag%Map_TomasMNFIXezwat3number,          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcheck1mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcheck1mass,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXcheck1mass,        &\n            mapData        = State_Diag%Map_TomasMNFIXcheck1mass,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcheck1number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcheck1number,              &\n            archiveData    = State_Diag%Archive_TomasMNFIXcheck1number,      &\n            mapData        = State_Diag%Map_TomasMNFIXcheck1number,          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcheck2mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcheck2mass,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXcheck2mass,        &\n            mapData        = State_Diag%Map_TomasMNFIXcheck2mass,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcheck2number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcheck2number,              &\n            archiveData    = State_Diag%Archive_TomasMNFIXcheck2number,      &\n            mapData        = State_Diag%Map_TomasMNFIXcheck2number,          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcheck3mass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcheck3mass,                &\n            archiveData    = State_Diag%Archive_TomasMNFIXcheck3mass,        &\n            mapData        = State_Diag%Map_TomasMNFIXcheck3mass,            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - ERROR per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasMNFIXcheck3number'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasMNFIXcheck3number,              &\n            archiveData    = State_Diag%Archive_TomasMNFIXcheck3number,      &\n            mapData        = State_Diag%Map_TomasMNFIXcheck3number,          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - SOA Cond per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasSOAmass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasSOAmass,                        &\n            archiveData    = State_Diag%Archive_TomasSOAmass,                &\n            mapData        = State_Diag%Map_TomasSOAmass,                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Tomas Microphysics Rate - SOA Cond per bin\n       !--------------------------------------------------------------------\n       diagID  = 'TomasSOAnumber'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TomasSOAnumber,                      &\n            archiveData    = State_Diag%Archive_TomasSOAnumber,              &\n            mapData        = State_Diag%Map_TomasSOAnumber,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'T',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n#endif\n\n       !--------------------------------------------------------------------\n       ! Dust Optical Depth\n       !--------------------------------------------------------------------\n       diagID  = 'AODDust'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODDust,                             &\n            archiveData    = State_Diag%Archive_AODDust,                     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Dust Optical Depth per bin at 1st wavelength\n       !--------------------------------------------------------------------\n       TmpWL   = RadWL(1)                           ! Workaround for ifort 17\n       diagID  = 'AODDust' // TRIM( TmpWL ) // 'nm' ! to avoid seg faults\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODDustWL1,                          &\n            archiveData    = State_Diag%Archive_AODDustWL1,                  &\n            mapData        = State_Diag%Map_AODDustWL1,                      &\n            diagId         = diagId,                                         &\n            diagFlag       = 'B',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Dust Optical Depth per bin at 2nd wavelength\n       !--------------------------------------------------------------------\n       TmpWL   = RadWL(2)\n       diagID  = 'AODDust' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODDustWL2,                          &\n            archiveData    = State_Diag%Archive_AODDustWL2,                  &\n            mapData        = State_Diag%Map_AODDustWL2,                      &\n            diagId         = diagId,                                         &\n            diagFlag       = 'B',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Dust Optical Depth per bin at 3rd wavelength\n       !--------------------------------------------------------------------\n       TmpWL   = RadWL(3)\n       diagID  = 'AODDust' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODDustWL3,                          &\n            archiveData    = State_Diag%Archive_AODDustWL3,                  &\n            mapData        = State_Diag%Map_AODDustWL3,                      &\n            diagId         = diagId,                                         &\n            diagFlag       = 'B',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Optical Depth per Hygroscopic Aerosol Species at 1st Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(1)\n       diagID = 'AODHyg' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODHygWL1,                           &\n            archiveData    = State_Diag%Archive_AODHygWL1,                   &\n            mapData        = State_Diag%Map_AODHygWL1,                       &\n            diagId         = diagId,                                         &\n            diagFlag       = 'H',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Optical Depth per Hygroscopic Aerosol Species at 2nd Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(2)\n       diagID = 'AODHyg' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODHygWL2,                           &\n            archiveData    = State_Diag%Archive_AODHygWL2,                   &\n            mapData        = State_Diag%Map_AODHygWL2,                       &\n            diagId         = diagId,                                         &\n            diagFlag       = 'H',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Optical Depth per Hygroscopic Aerosol Species at 3rd Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(3)\n       diagID = 'AODHyg' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODHygWL3,                           &\n            archiveData    = State_Diag%Archive_AODHygWL3,                   &\n            mapData        = State_Diag%Map_AODHygWL3,                       &\n            diagId         = diagId,                                         &\n            diagFlag       = 'H',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Isoprene SOA Optical Depth at 1st Wavelength\n       !-------------------------------------------------------------------\n       TmpWL   = RadWL(1)\n       diagID  = 'AODSOAfromAqIsoprene' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODSOAfromAqIsopWL1,                 &\n            archiveData    = State_Diag%Archive_AODSOAfromAqIsopWL1,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Isoprene SOA Optical Depth at 2nd Wavelength\n       !-------------------------------------------------------------------\n       TmpWl  = RadWL(2)\n       diagID = 'AODSOAfromAqIsoprene' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODSOAfromAqIsopWL2,                 &\n            archiveData    = State_Diag%Archive_AODSOAfromAqIsopWL2,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Isoprene SOA Optical Depth at 3rd Wavelength\n       !-------------------------------------------------------------------\n       TmpWl  = RadWL(3)\n       diagID = 'AODSOAfromAqIsoprene' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODSOAfromAqIsopWL3,                 &\n            archiveData    = State_Diag%Archive_AODSOAfromAqIsopWL3,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Stratospheric Liquid Aerosol Optical Depth at 1st Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(1)\n       diagID = 'AODStratLiquidAer' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODSLAWL1,                           &\n            archiveData    = State_Diag%Archive_AODSLAWL1,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Stratospheric Liquid Aerosol Optical Depth at 2nd Wavelength\n       !-------------------------------------------------------------------\n       TmpWL   = RadWL(2)\n       diagID  = 'AODStratLiquidAer' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODSLAWL2,                           &\n            archiveData    = State_Diag%Archive_AODSLAWL2,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Stratospheric Liquid Aerosol Optical Depth at 3rd Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(3)\n       diagID = 'AODStratLiquidAer' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODSLAWL3,                           &\n            archiveData    = State_Diag%Archive_AODSLAWL3,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Polar Stratospheric Cloud Type 1a/2 Optical Depth at 1st Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(1)\n       diagID = 'AODPolarStratCloud' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODPSCWL1,                           &\n            archiveData    = State_Diag%Archive_AODPSCWL1,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Polar Stratospheric Cloud Type 1a/2 Optical Depth at 1st Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(2)\n       diagID = 'AODPolarStratCloud' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODPSCWL2,                           &\n            archiveData    = State_Diag%Archive_AODPSCWL2,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Polar Stratospheric Cloud Type 1a/2 Optical Depth at 1st Wavelength\n       !-------------------------------------------------------------------\n       TmpWL  = RadWL(3)\n       diagID = 'AODPolarStratCloud' // TRIM( TmpWL ) // 'nm'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AODPSCWL3,                           &\n            archiveData    = State_Diag%Archive_AODPSCWL3,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Hygroscopic Growth per Aerosol Species\n       !-------------------------------------------------------------------\n       diagID = 'AerHygroscopicGrowth'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerHygGrowth,                        &\n            archiveData    = State_Diag%Archive_AerHygGrowth,                &\n            mapData        = State_Diag%Map_AerHygGrowth,                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'H',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Surface Area of Mineral Dust\n       !-------------------------------------------------------------------\n       diagID  = 'AerSurfAreaDust'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerSurfAreaDust,                     &\n            archiveData    = State_Diag%Archive_AerSurfAreaDust,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Surface Area of Hygroscopic Aerosol Species\n       !-------------------------------------------------------------------\n       diagID  = 'AerSurfAreaHyg'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerSurfAreaHyg,                      &\n            archiveData    = State_Diag%Archive_AerSurfAreaHyg,              &\n            mapData        = State_Diag%Map_AerSurfAreaHyg,                  &\n            diagId         = diagId,                                         &\n            diagFlag       = 'H',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Stratospheric Liquid Aerosol Number Density\n       !-------------------------------------------------------------------\n       diagID  = 'AerNumDensityStratLiquid'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerNumDenSLA,                        &\n            archiveData    = State_Diag%Archive_AerNumDenSLA,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Strospheric Particulate Aerosol Number Density\n       !-------------------------------------------------------------------\n       diagID  = 'AerNumDensityStratParticulate'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerNumDenPSC,                        &\n            archiveData    = State_Diag%Archive_AerNumDenPSC,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aqueous Aerosol Volume\n       !-------------------------------------------------------------------\n       diagID = 'AerAqueousVolume'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerAqVol,                            &\n            archiveData    = State_Diag%Archive_AerAqVol,                    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Stratospheric Liquid Aerosol Surface Area\n       !-------------------------------------------------------------------\n       diagID = 'AerSurfAreaStratLiquid'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerSurfAreaSLA,                      &\n            archiveData    = State_Diag%Archive_AerSurfAreaSLA,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Polar Stratospheric Cloud Type 1a/2 Surface Area\n       !-------------------------------------------------------------------\n       diagID = 'AerSurfAreaPolarStratCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerSurfAreaPSC,                      &\n            archiveData    = State_Diag%Archive_AerSurfAreaPSC,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of Hydrophilic BC (aka BCPI)\n       ! from Hydrophobic BC (aka BCPO)\n       !--------------------------------------------------------------------\n       diagID = 'ProdBCPIfromBCPO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdBCPIfromBCPO,                    &\n            archiveData    = State_Diag%Archive_ProdBCPIfromBCPO,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of Hydrophilic OC (aka OCPI)\n       ! from Hydrophobic OC (aka OCPO)\n       !--------------------------------------------------------------------\n       diagID = 'ProdOCPIfromOCPO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdOCPIfromOCPO,                    &\n            archiveData    = State_Diag%Archive_ProdOCPIfromOCPO,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from aqueous oxidation of H2O2 in cloud\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO4fromH2O2inCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromH2O2inCloud,              &\n            archiveData    = State_Diag%Archive_ProdSO4fromH2O2inCloud,      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from aqueous oxidation of O3 in cloud\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO4fromO3inCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromO3inCloud,                &\n            archiveData    = State_Diag%Archive_ProdSO4fromO3inCloud,        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from aqueous oxidation of O2 metal-catalyzed\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO4fromO2inCloudMetal'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromO2inCloudMetal,           &\n            archiveData    = State_Diag%Archive_ProdSO4fromO2inCloudMetal,   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from O3 in sea salt aerosols\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO4fromO3inSeaSalt'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromO3inSeaSalt,              &\n            archiveData    = State_Diag%Archive_ProdSO4fromO3inSeaSalt,      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 by SRO3\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO4fromSRO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromSRO3,                     &\n            archiveData    = State_Diag%Archive_ProdSO4fromSRO3,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 by O3s\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO4fromO3s'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromO3s,                      &\n            archiveData    = State_Diag%Archive_ProdSO4fromO3s,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of HMS from aqueous reaction of SO2 in cloud\n       ! (jmm, 06/29/18)\n       !--------------------------------------------------------------------\n       diagID  = 'ProdHMSfromSO2andHCHOinCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHMSfromSO2andHCHOinCloud,        &\n            archiveData    = State_Diag%Archive_ProdHMSfromSO2andHCHOinCloud,&\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO2 and HCHO from aqueous reaction of HMS in cloud\n       ! (jmm, 06/29/18)\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO2andHCHOfromHMSinCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO2andHCHOfromHMSinCloud,        &\n            archiveData    = State_Diag%Archive_ProdSO2andHCHOfromHMSinCloud,&\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from aqueous oxidation of HMS in cloud\n       ! (jmm, 06/29/18)\n       !--------------------------------------------------------------------\n       diagID  = 'ProdSO4fromHMSinCloud'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromHMSinCloud,               &\n            archiveData    = State_Diag%Archive_ProdSO4fromHMSinCloud,       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Loss of HNO3 on sea salt\n       !--------------------------------------------------------------------\n       diagID = 'LossHNO3onSeaSalt'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossHNO3onSeaSalt,                   &\n            archiveData    = State_Diag%Archive_LossHNO3onSeaSalt,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of black carbon [ug/m3]\n       !-------------------------------------------------------------------\n       diagID = 'AerMassBC'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassBC,                           &\n            archiveData    = State_Diag%Archive_AerMassBC,                   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of NH4 [ug/m3]\n       !-------------------------------------------------------------------\n       diagID = 'AerMassNH4'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassNH4,                          &\n            archiveData    = State_Diag%Archive_AerMassNH4,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of NIT [kg/m3]\n       !-------------------------------------------------------------------\n       diagID = 'AerMassNIT'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassNIT,                          &\n            archiveData    = State_Diag%Archive_AerMassNIT,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of total seasalt (SALA + SALC) [ug/m3]\n       !-------------------------------------------------------------------\n       diagID = 'AerMassSAL'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassSAL,                          &\n            archiveData    = State_Diag%Archive_AerMassSAL,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of SO4 [ug/m3]\n       !-------------------------------------------------------------------\n       diagID = 'AerMassSO4'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassSO4,                          &\n            archiveData    = State_Diag%Archive_AerMassSO4,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Aerosol mass of HMS [ug/m3]\n       ! (jmm, 06/29/18)\n       !-------------------------------------------------------------------\n       diagID  = 'AerMassHMS'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%AerMassHMS,                          &\n            archiveData    = State_Diag%Archive_AerMassHMS,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! PM2.5, aka prticulate matter with (r < 2.5 um) [ug/m3]\n       !-------------------------------------------------------------------\n       diagID = 'PM25'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25,                                &\n            archiveData    = State_Diag%Archive_PM25,                        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !zhaisx\n       !-------------------------------------------------------------------\n       ! PM10, aka prticulate matter with (r < 10 um) [ug/m3]\n       !-------------------------------------------------------------------\n       diagID = 'PM10'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM10,                                &\n            archiveData    = State_Diag%Archive_PM10,                        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! PDER, aka parameterized dry effective radius for SNA and OM [nm]\n       ! H. Zhu, April 05, 2024\n       !-------------------------------------------------------------------\n       diagID = 'PDER'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PDER,                                &\n            archiveData    = State_Diag%Archive_PDER,                        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n#ifdef MODEL_GEOS\n       !--------------------------------------------------------------------\n       ! PM25 nitrates+ammonium\n       !--------------------------------------------------------------------\n       diagID = 'PM25ni'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25ni,                       &\n            archiveData    = State_Diag%Archive_PM25ni,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 nitrates\n       !--------------------------------------------------------------------\n       diagID = 'PM25nit'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25nit,                       &\n            archiveData    = State_Diag%Archive_PM25nit,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 ammonium\n       !--------------------------------------------------------------------\n       diagID = 'PM25nh4'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25nh4,                       &\n            archiveData    = State_Diag%Archive_PM25nh4,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 sulfates\n       !--------------------------------------------------------------------\n       diagID = 'PM25su'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25su,                       &\n            archiveData    = State_Diag%Archive_PM25su,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 OC\n       !--------------------------------------------------------------------\n       diagID = 'PM25oc'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25oc,                       &\n            archiveData    = State_Diag%Archive_PM25oc,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 BC\n       !--------------------------------------------------------------------\n       diagID = 'PM25bc'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25bc,                       &\n            archiveData    = State_Diag%Archive_PM25bc,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 dust\n       !--------------------------------------------------------------------\n       diagID = 'PM25du'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25du,                       &\n            archiveData    = State_Diag%Archive_PM25du,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 sea salt\n       !--------------------------------------------------------------------\n       diagID = 'PM25ss'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25ss,                       &\n            archiveData    = State_Diag%Archive_PM25ss,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! PM25 SOA\n       !--------------------------------------------------------------------\n       diagID = 'PM25soa'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PM25soa,                      &\n            archiveData    = State_Diag%Archive_PM25soa,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'TotCol'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TotCol,                              &\n            archiveData    = State_Diag%Archive_TotCol,                      &\n            mapData        = State_Diag%Map_TotCol,                          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'S',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'PblCol'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PblCol,                              &\n            archiveData    = State_Diag%Archive_PblCol,                      &\n            mapData        = State_Diag%Map_PblCol,                          &\n            diagId         = diagId,                                         &\n            diagFlag       = 'S',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       diagID  = 'TropCol'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TropCol,                             &\n            archiveData    = State_Diag%Archive_TropCol,                     &\n            mapData        = State_Diag%Map_TropCol,                         &\n            diagId         = diagId,                                         &\n            diagFlag       = 'S',                                            &\n            RC             = RC                                             )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! CO2 photolysis rate \n       !--------------------------------------------------------------------\n       diagID = 'CO2photrate'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%CO2photrate,                         &\n            archiveData    = State_Diag%Archive_CO2photrate,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! CO relative increase due to CO2 photolysis \n       !--------------------------------------------------------------------\n       diagID = 'COincCO2phot'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%COincCO2phot,                        &\n            archiveData    = State_Diag%Archive_COincCO2phot,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n#endif\n\n       !-------------------------------------------------------------------\n       ! Total organic aerosol mass [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'TotalOA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TotalOA,                             &\n            archiveData    = State_Diag%Archive_TotalOA,                     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Total organic carbon mass [ug/m3]\n       !-------------------------------------------------------------------\n       diagID  = 'TotalOC'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%TotalOC,                             &\n            archiveData    = State_Diag%Archive_TotalOC,                     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! full-chemistry simulations or aerosol-only simulations.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 25\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'ProdBCPIfromBCPO'\n             CASE( 2  )\n                diagID = 'ProdOCPIfromOCPO'\n             CASE( 3  )\n                diagID = 'AODDust'\n             CASE( 4  )\n                TmpWL  = RadWL(1)\n                diagID = 'AODDust' // TRIM( TmpWL ) // 'nm'\n             CASE( 5  )\n                TmpWL  = RadWL(2)\n                diagID = 'AODDust' // TRIM( TmpWL ) // 'nm'\n             CASE( 6  )\n                TmpWL  = RadWL(3)\n                diagID = 'AODDust' // TRIM( TmpWL ) // 'nm'\n             CASE( 7  )\n                diagID = 'ProdSO4fromH2O2inCloud'\n             CASE( 8  )\n                diagID = 'ProdSO4fromO3inCloud'\n             CASE( 9  )\n                diagID = 'ProdSO4fromO2inCloudMetal'\n             CASE( 10 )\n                diagID = 'ProdSO4fromO3inSeaSalt'\n             CASE( 11 )\n                diagID = 'ProdSO4fromSRO3'\n             CASE( 12 )\n                diagID = 'ProdSO4fromO3s'\n             CASE( 13 )\n                diagID = 'LossHNO3onSeaSalt'\n             CASE( 14 )\n                diagID = 'PM25'\n             CASE( 15 )\n                diagID = 'AerMassBC'\n             CASE( 16 )\n                diagID = 'AerMassNH4'\n             CASE( 17 )\n                diagID = 'AerMassNIT'\n             CASE( 18 )\n                diagID = 'AerMassSAL'\n             CASE( 19 )\n                diagID = 'AerMassSO4'\n             CASE( 20 )\n                diagID = 'TotalOA'\n             CASE( 21 )\n                diagID = 'TotalOC'\n             CASE( 22 ) ! (jmm, 06/29/18)\n                diagID = 'ProdSO4fromHMSinCloud'\n             CASE( 23 ) ! (jmm, 06/29/18)\n                diagID = 'ProdHMSfromSO2andHCHOinCloud'\n             CASE( 24 ) ! (jmm, 06/29/18)\n                diagID = 'AerMassHMS'\n             CASE( 25 ) ! (jmm, 06/29/18)\n                diagID = 'ProdSO2andHCHOfromHMSinCloud'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for full-chemistry '  // &\n                      'simulations or aerosol-only simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n    ENDIF\n\n    !=======================================================================\n    ! The following diagnostic quantities are only relevant for:\n    !\n    ! THE AEROSOL-ONLY SPECIALTY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 in gas phase\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO4fromGasPhase'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromGasPhase,                 &\n            archiveData    = State_Diag%Archive_ProdSO4fromGasPhase,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of MSA from DMS\n       !--------------------------------------------------------------------\n       diagID  = 'ProdMSAfromDMS'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdMSAfromDMS,                      &\n            archiveData    = State_Diag%Archive_ProdMSAfromDMS,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Total production of SO2 from DMS\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO2fromDMS'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO2fromDMS,                      &\n            archiveData    = State_Diag%Archive_ProdSO2fromDMS,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO2 from DMS and NO3\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO2fromDMSandNO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO2fromDMSandNO3,                &\n            archiveData    = State_Diag%Archive_ProdSO2fromDMSandNO3,        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO2 from DMS and OH\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO2fromDMSandOH'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO2fromDMSandOH,                 &\n            archiveData    = State_Diag%Archive_ProdSO2fromDMSandOH,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! aerosol-only.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 5\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'ProdMSAfromDMS'\n             CASE( 2  )\n                diagID = 'ProdSO2fromDMS'\n             CASE( 3  )\n                diagID = 'ProdSO2fromDMSandNO3'\n             CASE( 4  )\n                diagID = 'ProdSO2fromDMSandOH'\n             CASE( 5  )\n                diagID = 'ProdSO4fromGasPhase'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for aerosol-only '    // &\n                      'simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! The production and loss diagnostics are only relevant for:\n    !\n    ! (1) All simulations implemented as KPP chemical mechanisms\n    !     - fullchem (including extra options like benchmark, *SOA*, etc.)\n    !     - carbon\n    !     - Hg\n    ! (2) The Tagged CO specialty simulation\n    ! (3) The Tagged O3 specialty simulation\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM                                   .or. &\n         Input_Opt%ITS_A_CARBON_SIM                                     .or. &\n         Input_Opt%ITS_A_MERCURY_SIM                                    .or. &\n         Input_Opt%ITS_A_TAGO3_SIM                                    ) THEN\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostic: Chemical loss for selected species or families\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnLoss'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnLoss,                        &\n            archiveData    = State_Diag%Archive_SatDiagnLoss,                &\n            mapData        = State_Diag%Map_SatDiagnLoss,                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'X',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Chemical loss for selected species or families\n       !--------------------------------------------------------------------\n       diagID  = 'Loss'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Loss,                                &\n            archiveData    = State_Diag%Archive_Loss,                        &\n            mapData        = State_Diag%Map_Loss,                            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'X',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Satellite Diagnostic: Chemical production for selected species or families\n       !--------------------------------------------------------------------\n       diagID  = 'SatDiagnProd'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%SatDiagnProd,                        &\n            archiveData    = State_Diag%Archive_SatDiagnProd,                &\n            mapData        = State_Diag%Map_SatDiagnProd,                    &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Y',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Chemical production for selected species or families\n       !--------------------------------------------------------------------\n       diagID  = 'Prod'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Prod,                                &\n            archiveData    = State_Diag%Archive_Prod,                        &\n            mapData        = State_Diag%Map_Prod,                            &\n            diagId         = diagId,                                         &\n            diagFlag       = 'Y',                                            &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! full-chemistry, tagged CO, or tagged O3 simulations.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 2\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1 )\n                diagID  = 'Loss'\n             CASE( 2 )\n                diagID  = 'Prod'\n           END SELECT\n\n           ! Exit if any of the above are in the diagnostic list\n           CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n           IF ( Found ) THEN\n              ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '  // &\n                      'but this is only appropriate for full-chemistry, '// &\n                      'tagged CO, or tagged O3 simulations.'\n              CALL GC_Error( ErrMsg, RC, ThisLoc )\n              RETURN\n           ENDIF\n        ENDDO\n\n     ENDIF\n\n    !=======================================================================\n    ! These diagnostics are only relevant for:\n    !\n    ! THE FULL-CHEMISTRY SIMULATION WITH ACID UPTAKE ON DUST SPECIES\n    ! (aka \"aciduptake\")\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .and. Input_Opt%LDSTUP ) THEN\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from oxidation on dust\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO4fromOxidationOnDust'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromOxidationOnDust,          &\n            archiveData    = State_Diag%Archive_ProdSO4fromOxidationOnDust,  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of NIT from HNO3 uptake on dust\n       !--------------------------------------------------------------------\n       diagID = 'ProdNITfromHNO3uptakeOnDust'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdNITfromHNO3uptakeOnDust,         &\n            archiveData    = State_Diag%Archive_ProdNITfromHNO3uptakeOnDust, &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of SO4 from uptake of H2SO4(g)\n       !--------------------------------------------------------------------\n       diagID = 'ProdSO4fromUptakeOfH2SO4g'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdSO4fromUptakeOfH2SO4g,           &\n            archiveData    = State_Diag%Archive_ProdSO4fromUptakeOfH2SO4g,   &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! acid uptake on dust aerosols.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 3\n\n          ! Select the diagnostic ID\n          SELECT CASE( N )\n             CASE( 1 )\n                diagID  = 'ProdSO4fromOxidationOnDust'\n             CASE( 2 )\n                diagID  = 'ProdNITfromHNO3uptakeOnDust'\n             CASE( 3 )\n                diagID  = 'ProdSO4fromUptakeOfH2SO4g'\n           END SELECT\n\n           ! Exit if any of the above are in the diagnostic list\n           CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n           IF ( Found ) THEN\n              ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '   // &\n                      'but this is only appropriate for acid uptake '     // &\n                      'on dust aerosol simulations (aka \"aciduptake\").'\n              CALL GC_Error( ErrMsg, RC, ThisLoc )\n              RETURN\n           ENDIF\n        ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! These diagnostics are only relevant for:\n    !\n    ! THE PERSISTENT ORGANIC POLLUTANTS (POPS) SPECIALTY SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_POPS_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! Loss of POPPOC by gas phase\n       !--------------------------------------------------------------------\n       diagID = 'LossPOPPOCPObyGasPhase'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossPOPPOCPObyGasPhase,              &\n            archiveData    = State_Diag%Archive_LossPOPPOCPObyGasPhase,      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPOC from gas phase\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPOCPOfromGasPhase'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPOCPOfromGasPhase,            &\n            archiveData    = State_Diag%Archive_ProdPOPPOCPOfromGasPhase,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Loss of POPPBC by gas phase\n       !--------------------------------------------------------------------\n       diagID  = 'LossPOPPBCPObyGasPhase'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossPOPPBCPObyGasPhase,              &\n            archiveData    = State_Diag%Archive_LossPOPPBCPObyGasPhase,      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPBC by gas phase\n       !--------------------------------------------------------------------\n       diagID  = 'ProdPOPPBCPObyGasPhase'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPBCPOfromGasPhase,            &\n            archiveData    = State_Diag%Archive_ProdPOPPBCPOfromGasPhase,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPG from OH\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPGfromOH'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPGfromOH,                      &\n            archiveData    = State_Diag%Archive_ProdPOPGfromOH,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPOCPO from O3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPOCPOfromO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPOCPOfromO3,                  &\n            archiveData    = State_Diag%Archive_ProdPOPPOCPOfromO3,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPOCPI from O3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPOCPIfromO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPOCPIfromO3,                  &\n            archiveData    = State_Diag%Archive_ProdPOPPOCPIfromO3,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPBCPO from O3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPBCPOfromO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPBCPOfromO3,                  &\n            archiveData    = State_Diag%Archive_ProdPOPPBCPOfromO3,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPBCPI from O3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPBCPIfromO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPBCPIfromO3,                  &\n            archiveData    = State_Diag%Archive_ProdPOPPBCPIfromO3,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n       !--------------------------------------------------------------------\n       ! Prod of POPPOCPO from NO3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPOCPOfromNO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPOCPOfromNO3,                 &\n            archiveData    = State_Diag%Archive_ProdPOPPOCPOfromNO3,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPOCPI from NO3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPOCPIfromNO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPOCPIfromNO3,                 &\n            archiveData    = State_Diag%Archive_ProdPOPPOCPIfromNO3,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPBCPO from NO3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPBCPOfromNO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPBCPOfromNO3,                 &\n            archiveData    = State_Diag%Archive_ProdPOPPBCPOfromNO3,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Prod of POPPBCPI from NO3\n       !--------------------------------------------------------------------\n       diagID = 'ProdPOPPBCPIfromNO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdPOPPBCPIfromNO3,                 &\n            archiveData    = State_Diag%Archive_ProdPOPPBCPIfromNO3,         &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! Persistent Organic Pollutants (POPS).\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 12\n\n          SELECT CASE( N )\n             CASE( 1 )\n                diagId = 'LossPOPPOCPObyGasPhase'\n             CASE( 2 )\n                diagId = 'ProdPOPPOCPOfromGasPhase'\n             CASE( 3 )\n                diagId = 'LossPOPPBPOCbyGasPhase'\n             CASE( 4 )\n                diagId = 'ProdPOPPBCPOfromGasPhase'\n             CASE( 5 )\n                diagId = 'ProdPOPGfromOH'\n             CASE( 6 )\n                diagId = 'ProdPOPPOCPOfromO3'\n             CASE( 7 )\n                diagId = 'ProdPOPPOCPIfromO3'\n             CASE( 8 )\n                diagId = 'ProdPOPPBCPIfromO3'\n             CASE( 9 )\n                diagId = 'ProdPOPPBCPOfromO3'\n             CASE( 10 )\n                diagId = 'ProdPOPPOCPOfromNO3'\n             CASE( 11 )\n                diagId = 'ProdPOPPOCPIfromNO3'\n             CASE( 12 )\n                diagId = 'ProdPOPPBCPIfromNO3'\n           END SELECT\n\n           ! Exit if any of the above are in the diagnostic list\n           CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n           IF ( Found ) THEN\n              ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for Persistent '       // &\n                      'Organic Pollutants (POPs) specialty simulations.'\n              CALL GC_Error( ErrMsg, RC, ThisLoc )\n              RETURN\n           ENDIF\n        ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! The production and loss diagnostics are only relevant for:\n    !\n    ! CO2 IN THE CARBON SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_CARBON_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! Prod of CO2 from CO oxidation\n       !--------------------------------------------------------------------\n       diagID  = 'ProdCO2fromCO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdCO2fromCO,                       &\n            archiveData    = State_Diag%Archive_ProdCO2fromCO,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than CO2.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       diagId = 'ProdCO2fromCO'\n\n       ! Exit if any of the above are in the diagnostic list\n       CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n       IF ( Found ) THEN\n          ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '       // &\n               'but this is only appropriate for the CO2 '                // &\n               'specialty simulation.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    !=======================================================================\n    ! These diagnostics are only relevant for:\n    !\n    ! CH4 IN THE CARBON SIMULATION\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_CARBON_SIM ) THEN\n\n       !--------------------------------------------------------------------\n       ! Loss of CH4 by Cl in troposphere\n       !--------------------------------------------------------------------\n       diagID  = 'LossCH4byClinTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossCH4byClinTrop,                   &\n            archiveData    = State_Diag%Archive_LossCH4byClinTrop,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Loss of CH4 by OH in troposphere\n       !--------------------------------------------------------------------\n       diagID  = 'LossCH4byOHinTrop'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossCH4byOHinTrop,                   &\n            archiveData    = State_Diag%Archive_LossCH4byOHinTrop,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Loss of CH4 in the stratosphere\n       !--------------------------------------------------------------------\n       diagID  = 'LossCH4inStrat'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossCH4inStrat,                      &\n            archiveData    = State_Diag%Archive_LossCH4inStrat,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! Persistent Organic Pollutants (POPS).\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 3\n\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'LossCH4byClinTrop'\n             CASE( 2  )\n                diagID = 'LossCH4byOHinTrop'\n             CASE( 3  )\n                diagID = 'LossCH4inStrat'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for the CH4 '         // &\n                      'and carbon specialty simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! These diagnostics are only relevant for:\n    !\n    ! THE CARBON SIMULATION and\n    ! THE FULL-CHEMISTRY SIMULATIONS (for archiving output for CO in carbon sim)\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM                                   .or. &\n         Input_Opt%ITS_A_CARBON_SIM                                   ) THEN\n\n       !--------------------------------------------------------------------\n       ! Production of CO from CH4\n       !--------------------------------------------------------------------\n       diagID  = 'ProdCOfromCH4'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdCOfromCH4,                       &\n            archiveData    = State_Diag%Archive_ProdCOfromCH4,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! Production of CO from NMVOC\n       !--------------------------------------------------------------------\n       diagID  = 'ProdCOfromNMVOC'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdCOfromNMVOC,                     &\n            archiveData    = State_Diag%Archive_ProdCOfromNMVOC,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n    ELSE\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! Persistent Organic Pollutants (POPS).\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 2\n\n          SELECT CASE( N )\n             CASE( 1  )\n                diagID = 'ProdCOfromCH4'\n             CASE( 2  )\n                diagID = 'ProdCOfromNMVOC'\n          END SELECT\n\n          ! Exit if any of the above are in the diagnostic list\n          CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n          IF ( Found ) THEN\n             ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for the '             // &\n                      'tagged CO or full-chemistry simulations.'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    ENDIF\n\n    !=======================================================================\n    ! The production and loss diagnostics are only relevant for:\n    !\n    ! THE Hg and TAGGED Hg SPECIALTY SIMULATIONS\n    !=======================================================================\n    IF ( Input_Opt%ITS_A_MERCURY_SIM ) THEN\n\n       !-------------------------------------------------------------------\n       ! Anthropogenic Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0anthro'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0anthro,                       &\n            archiveData    = State_Diag%Archive_EmisHg0anthro,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Biomass Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0biomass'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0biomass,                      &\n            archiveData    = State_Diag%Archive_EmisHg0biomass,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Geogenic Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0geogenic'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0geogenic,                     &\n            archiveData    = State_Diag%Archive_EmisHg0geogenic,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Land Hg0 re-emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0land'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0land,                         &\n            archiveData    = State_Diag%Archive_EmisHg0land,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Oceanic Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0ocean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0ocean,                        &\n            archiveData    = State_Diag%Archive_EmisHg0ocean,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Snow Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0snow'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0snow,                         &\n            archiveData    = State_Diag%Archive_EmisHg0snow,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Soil Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0soil'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0soil,                         &\n            archiveData    = State_Diag%Archive_EmisHg0soil,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Vegetation Hg0 emissions\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg0vegetation'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg0vegetation,                   &\n            archiveData    = State_Diag%Archive_EmisHg0vegetation,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Hg2 and HgP anthropogenic emissions\n       ! (note: HgP is emitted into Hg2 in the current Hg simulation)\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg2HgPanthro'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg2HgPanthro,                    &\n            archiveData    = State_Diag%Archive_EmisHg2HgPanthro,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Emission of Hg2 from snowmelt into the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg2snowToOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg2snowToOcean,                  &\n            archiveData    = State_Diag%Archive_EmisHg2snowToOcean,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Emission of Hg2 from snowmelt into the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'EmisHg2rivers'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%EmisHg2rivers,                       &\n            archiveData    = State_Diag%Archive_EmisHg2rivers,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Flux of Hg2 and HgP from air to snow/ice\n       !-------------------------------------------------------------------\n       diagID  = 'FluxHg2HgPfromAirToSnow'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%FluxHg2HgPfromAirToSnow,             &\n            archiveData    = State_Diag%Archive_FluxHg2HgPfromAirToSnow,     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Flux of Hg0 from air to ocean\n       !-------------------------------------------------------------------\n       diagID  = 'FluxHg0fromAirToOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%FluxHg0fromAirToOcean,               &\n            archiveData    = State_Diag%Archive_FluxHg0fromAirToOcean,       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Flux of Hg0 from ocean to air\n       !-------------------------------------------------------------------\n       diagID  = 'FluxHg0fromOceanToair'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%FluxHg0fromOceanToAir,               &\n            archiveData    = State_Diag%Archive_FluxHg0fromOceanToAir,       &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Flux of Hg2 to the deep ocean\n       !-------------------------------------------------------------------\n       diagID  = 'FluxHg2toDeepOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%FluxHg2toDeepOcean,                  &\n            archiveData    = State_Diag%Archive_FluxHg2toDeepOcean,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Flux of organic carbon to the deep ocean\n       !-------------------------------------------------------------------\n       diagID  = 'FluxOCtoDeepOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%FluxOCtoDeepOcean,                   &\n            archiveData    = State_Diag%Archive_FluxOCtoDeepOcean,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Flux of Hg2 and HgP deposited to the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'FluxHg2HgPfromAirToOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%FluxHg2HgPfromAirToOcean,            &\n            archiveData    = State_Diag%Archive_FluxHg2HgPfromAirToOcean,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Mass of Hg0 in the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'MassHg0inOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%MassHg0inOcean,                      &\n            archiveData    = State_Diag%Archive_MassHg0inOcean,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Mass of Hg2 in the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'MassHg2inOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%MassHg2inOcean,                      &\n            archiveData    = State_Diag%Archive_MassHg2inOcean,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Mass of HgP in the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'MassHgPinOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%MassHgPinOcean,                      &\n            archiveData    = State_Diag%Archive_MassHgPinOcean,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Mass of total Hg in the ocean\n       !-------------------------------------------------------------------\n       diagID  = 'MassHgTotalInOcean'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%MassHgTotalInOcean,                  &\n            archiveData    = State_Diag%Archive_MassHgTotalInOcean,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! From Viral Shah (MSL, 7.1.21)\n       !-------------------------------------------------------------------\n       ! HgBr concentration after chemistry\n       !-------------------------------------------------------------------\n       diagID  = 'HgBrAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HgBrAfterChem,                       &\n            archiveData    = State_Diag%Archive_HgBrAfterChem,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! HgCl concentration after chemistry\n       !-------------------------------------------------------------------\n       diagID  = 'HgClAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HgClAfterChem,                       &\n            archiveData    = State_Diag%Archive_HgClAfterChem,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! HgOH concentration after chemistry\n       !-------------------------------------------------------------------\n       diagID  = 'HgOHAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HgOHAfterChem,                       &\n            archiveData    = State_Diag%Archive_HgOHAfterChem,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! HgBrO concentration after chemistry\n       !-------------------------------------------------------------------\n       diagID  = 'HgBrOAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HgBrOAfterChem,                       &\n            archiveData    = State_Diag%Archive_HgBrOAfterChem,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! HgClO concentration after chemistry\n       !-------------------------------------------------------------------\n       diagID  = 'HgClOAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HgClOAfterChem,                       &\n            archiveData    = State_Diag%Archive_HgClOAfterChem,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! HgOHO concentration after chemistry\n       !-------------------------------------------------------------------\n       diagID  = 'HgOHOAfterChem'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%HgOHOAfterChem,                       &\n            archiveData    = State_Diag%Archive_HgOHOAfterChem,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Hg2Gas transferred to Hg2P\n       !-------------------------------------------------------------------\n       diagID  = 'Hg2GToHg2P'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Hg2GToHg2P,                          &\n            archiveData    = State_Diag%Archive_Hg2GToHg2P,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Hg2P transferred to Hg2Gas\n       !-------------------------------------------------------------------\n       diagID  = 'Hg2PToHg2G'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Hg2PToHg2G,                          &\n            archiveData    = State_Diag%Archive_Hg2PToHg2G,                  &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Hg2Gas transferred to Hg2StrP\n       !-------------------------------------------------------------------\n       diagID  = 'Hg2GasToHg2StrP'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Hg2GasToHg2StrP,                     &\n            archiveData    = State_Diag%Archive_Hg2GasToHg2StrP,             &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Hg2Gas taken up by sea salt aerosols\n       !-------------------------------------------------------------------\n       diagID  = 'Hg2GasToSSA'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%Hg2GasToSSA,                         &\n            archiveData    = State_Diag%Archive_Hg2GasToSSA,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! Br concentration\n       !----------------------------------------------------------------\n       diagID  = 'ConcBr'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ConcBr,                              &\n            archiveData    = State_Diag%Archive_ConcBr,                      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! BrO concentration\n       !--------------------------------------------------------------------\n       diagID  = 'ConcBrO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ConcBrO,                             &\n            archiveData    = State_Diag%Archive_ConcBrO,                     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! Br concentration in polar regions\n       !----------------------------------------------------------------\n       diagID  = 'PolarConcBr'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PolarConcBr,                         &\n            archiveData    = State_Diag%Archive_PolarConcBr,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! BrO concentration in polar regions\n       !----------------------------------------------------------------\n       diagID  = 'PolarConcBrO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PolarConcBrO,                        &\n            archiveData    = State_Diag%Archive_PolarConcBrO,                &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! O3 concentration in polar regions\n       !----------------------------------------------------------------\n       diagID  = 'PolarConcO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%PolarConcO3,                         &\n            archiveData    = State_Diag%Archive_PolarConcO3,                 &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! Loss of Hg2 by sea salt\n       !----------------------------------------------------------------\n       diagID  = 'LossHg2bySeaSalt'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossHg2bySeaSalt,                    &\n            archiveData    = State_Diag%Archive_LossHg2bySeaSalt,            &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !----------------------------------------------------------------\n       ! Loss rate of Hg2 by sea salt\n       !----------------------------------------------------------------\n       diagID  = 'LossRateHg2bySeaSalt'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%LossRateHg2bySeaSalt,                &\n            archiveData    = State_Diag%Archive_LossRateHg2bySeaSalt,        &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from Br\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromBr'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromBr,                       &\n            archiveData    = State_Diag%Archive_ProdHg2fromBr,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from BrY\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromBrY'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromBrY,                      &\n            archiveData    = State_Diag%Archive_ProdHg2fromBrY,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from ClY\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromClY'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromClY,                      &\n            archiveData    = State_Diag%Archive_ProdHg2fromClY,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from Hg0\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHg0'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHg0,                      &\n            archiveData    = State_Diag%Archive_ProdHg2fromHg0,              &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from HgBr + Br2\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHgBrPlusBr2'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHgBrPlusBr2,              &\n            archiveData    = State_Diag%Archive_ProdHg2fromHgBrPlusBr2,      &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from HgBr + BrBrO\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHgBrPlusBrBrO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHgBrPlusBrBrO,            &\n            archiveData    = State_Diag%Archive_ProdHg2fromHgBrPlusBrBrO,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from HgBr + BrClO\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHgBrPlusBrClO'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHgBrPlusBrClO,            &\n            archiveData    = State_Diag%Archive_ProdHg2fromHgBrPlusBrClO,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from HgBr + BrHO2\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHgBrPlusBrHO2'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHgBrPlusBrHO2,            &\n            archiveData    = State_Diag%Archive_ProdHg2fromHgBrPlusBrHO2,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from HgBr + BrNO2\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHgBrPlusBrNO2'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHgBrPlusBrNO2,            &\n            archiveData    = State_Diag%Archive_ProdHg2fromHgBrPlusBrNO2,    &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from HgBr + BrOH\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromHgBrPlusBrOH'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromHgBrPlusBrOH,             &\n            archiveData    = State_Diag%Archive_ProdHg2fromHgBrPlusBrOH,     &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from O3\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromO3'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromO3,                       &\n            archiveData    = State_Diag%Archive_ProdHg2fromO3,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Production of Hg2 from OH\n       !---------------------------------------------------------------------\n       diagID  = 'ProdHg2fromOH'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ProdHg2fromOH,                       &\n            archiveData    = State_Diag%Archive_ProdHg2fromOH,               &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Particulate Bound Hg (PBM)\n       !-------------------------------------------------------------------\n       diagID  = 'ParticulateBoundHg'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ParticulateBoundHg,                  &\n            archiveData    = State_Diag%Archive_ParticulateBoundHg,          &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-------------------------------------------------------------------\n       ! Reactive Gaseous Hg (RGM)\n       !-------------------------------------------------------------------\n       diagID  = 'ReactiveGaseousHg'\n       CALL Init_and_Register(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Diag     = State_Diag,                                     &\n            State_Grid     = State_Grid,                                     &\n            DiagList       = Diag_List,                                      &\n            TaggedDiagList = TaggedDiag_List,                                &\n            Ptr2Data       = State_Diag%ReactiveGaseousHg,                   &\n            archiveData    = State_Diag%Archive_ReactiveGaseousHg,           &\n            diagId         = diagId,                                         &\n            RC             = RC                                             )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !-------------------------------------------------------------------\n       ! Halt with an error message if any of the following quantities\n       ! have been requested as diagnostics in simulations other than\n       ! Hg and/or tagged Hg.\n       !\n       ! This will prevent potential errors caused by the quantities\n       ! being requested as diagnostic output when the corresponding\n       ! array has not been allocated.\n       !-------------------------------------------------------------------\n       DO N = 1, 41\n\n          SELECT CASE( N )\n             CASE( 1  )\n                diagId = 'ConcBr'\n             CASE( 2  )\n                diagId = 'ConcBro'\n             CASE( 3  )\n                diagId = 'LossHg2bySeaSalt'\n             CASE( 4  )\n                diagId = 'LossRateHg2bySeaSalt'\n             CASE( 5  )\n                diagId = 'PolarConcBr'\n             CASE( 6  )\n                diagId = 'PolarConcBrO'\n             CASE( 7  )\n                diagId = 'PolarConcO3'\n             CASE( 8  )\n                diagId = 'ProdHg2fromBr'\n             CASE( 9  )\n                diagId = 'ProdHg2fromBrY'\n             CASE( 10 )\n                diagId = 'ProdHg2fromClY'\n             CASE( 11 )\n                diagId = 'ProdHg2fromHg0'\n             CASE( 12 )\n                diagId = 'ProdHg2fromHgBrPlusBr2'\n             CASE( 13 )\n                diagId = 'ProdHg2fromHgBrPlusBrBrO'\n             CASE( 14 )\n                diagId = 'ProdHg2fromHgBrPlusBrClO'\n             CASE( 15 )\n                diagId = 'ProdHg2fromHgBrPlusBrHO2'\n             CASE( 16 )\n                diagId = 'ProdHg2fromHgBrPlusBrNO2'\n             CASE( 17 )\n                diagId = 'ProdHg2fromHgBrPlusBrOH'\n             CASE( 18 )\n                diagId = 'ProdHg2fromO3'\n             CASE( 19 )\n                diagId = 'ProdHg2fromOH'\n             CASE( 20 )\n                diagId = 'ParticulateBoundHg'\n             CASE( 21 )\n                diagId = 'ReactiveGaseousHg'\n             CASE( 22 )\n                diagId = 'EmisHg0anthro'\n             CASE( 23 )\n                diagId = 'EmisHg0biomass'\n             CASE( 24 )\n                diagId = 'EmisHg0geogenic'\n             CASE( 25 )\n                diagId = 'EmisHg0land'\n             CASE( 26 )\n                diagId = 'EmisHg0ocean'\n             CASE( 27 )\n                diagId = 'EmisHg0soil'\n             CASE( 28 )\n                diagId = 'EmisHg0snow'\n             CASE( 29 )\n                diagId = 'EmisHg0vegetation'\n             CASE( 30 )\n                diagId = 'EmisHg2HgPanthro'\n             CASE( 31 )\n                diagId = 'EmisHg2snowToOcean'\n             CASE( 32 )\n                diagId = 'EmisHg2rivers'\n             CASE( 33 )\n                diagId = 'FluxHg2HgPfromAirToSnow'\n             CASE( 34 )\n                diagId = 'FluxHg0froimAirToOcean'\n             CASE( 35 )\n                diagId = 'FluxHg0fromOceanToAir'\n             CASE( 36 )\n                diagId = 'FluxHg2HgPfromAirToOcean'\n             CASE( 37 )\n                diagId = 'FluxOCtoDeepOcean'\n             CASE( 38 )\n                diagId = 'MassHg0inOcean'\n             CASE( 39 )\n                diagId = 'MassHg2inOcean'\n             CASE( 40 )\n                diagId = 'MassHgPinOcean'\n             CASE( 41 )\n                diagId = 'MassHgTotalInOcean'\n           END SELECT\n\n           ! Exit if any of the above are in the diagnostic list\n           CALL Check_DiagList( am_I_Root, Diag_List, diagID, Found, RC )\n           IF ( Found ) THEN\n              ErrMsg = TRIM( diagId ) // ' is a requested diagnostic, '    // &\n                      'but this is only appropriate for the mercury '      // &\n                      'specialty simulation.'\n              CALL GC_Error( ErrMsg, RC, ThisLoc )\n              RETURN\n           ENDIF\n        ENDDO\n\n    ENDIF\n\n    ! Format statement\n20  FORMAT( 1x, a32, ' is registered as: ', a )\n\n    !!-------------------------------------------------------------------\n    !! Template for adding more diagnostics arrays\n    !! Search and replace 'xxx' with array name\n    !!-------------------------------------------------------------------\n    !diagID  = 'xxx'\n    !CALL Init_and_Register(                                                  &\n    !     Input_Opt      = Input_Opt,                                         &\n    !     State_Chm      = State_Chm,                                         &\n    !     State_Diag     = State_Diag,                                        &\n    !     State_Grid     = State_Grid,                                        &\n    !     DiagList       = Diag_List,                                         &\n    !     TaggedDiagList = TaggedDiag_List,                                   &\n    !     Ptr2Data       = State_Diag%xxx,                                    &\n    !     archiveData    = State_Diag%Archive_xxx,                            &\n    !     mapData        = State_Diag%Map_xxx,                                &\n    !     diagId         = diagId,                                            &\n    !     RC             = RC                                                )\n    !\n    !IF( RC /= GC_SUCCESS ) THEN\n    !   errMsg = TRIM( errMsg_ir ) // TRIM( diagId )\n    !   CALL GC_Error( errMsg, RC, thisLoc )\n    !   RETURN\n    !ENDIF\n\n    !========================================================================\n    ! Once we are done registering all fields, we need to define the\n    ! registry lookup table.  This algorithm will avoid hash collisions.\n    !========================================================================\n    CALL Registry_Set_LookupTable( Registry  = State_Diag%Registry,          &\n                                   RegDict   = State_Diag%RegDict,           &\n                                   RC        = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"Registry_Set_LookupTable\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Print information about the registered fields (short format)\n    !========================================================================\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 30 )\n 30    FORMAT( /, &\n            'Registered variables contained within the State_Diag object:' )\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n       ! Print registered fields\n       CALL Registry_Print( Input_Opt   = Input_Opt,                         &\n                            Registry    = State_Diag%Registry,               &\n                            ShortFormat = .TRUE.,                            &\n                            RC          = RC                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Registry_Print\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Set high-level logicals for diagnostics\n    !=======================================================================\n    State_Diag%Archive_Budget =  &\n                           ( State_Diag%Archive_BudgetEmisDryDepFull    .or. &\n                             State_Diag%Archive_BudgetEmisDryDepTrop    .or. &\n                             State_Diag%Archive_BudgetEmisDryDepPBL     .or. &\n                             State_Diag%Archive_BudgetEmisDryDepLevs    .or. &\n                             State_Diag%Archive_BudgetTransportFull     .or. &\n                             State_Diag%Archive_BudgetTransportTrop     .or. &\n                             State_Diag%Archive_BudgetTransportPBL      .or. &\n                             State_Diag%Archive_BudgetTransportLevs     .or. &\n                             State_Diag%Archive_BudgetMixingFull        .or. &\n                             State_Diag%Archive_BudgetMixingTrop        .or. &\n                             State_Diag%Archive_BudgetMixingPBL         .or. &\n                             State_Diag%Archive_BudgetMixingLevs        .or. &\n                             State_Diag%Archive_BudgetConvectionFull    .or. &\n                             State_Diag%Archive_BudgetConvectionTrop    .or. &\n                             State_Diag%Archive_BudgetConvectionPBL     .or. &\n                             State_Diag%Archive_BudgetConvectionLevs    .or. &\n                             State_Diag%Archive_BudgetChemistryFull     .or. &\n                             State_Diag%Archive_BudgetChemistryTrop     .or. &\n                             State_Diag%Archive_BudgetChemistryPBL      .or. &\n                             State_Diag%Archive_BudgetChemistryLevs     .or. &\n                             State_Diag%Archive_BudgetWetDepFull        .or. &\n                             State_Diag%Archive_BudgetWetDepTrop        .or. &\n                             State_Diag%Archive_BudgetWetDepPBL         .or. &\n                             State_Diag%Archive_BudgetWetDepLevs            )\n\n    State_Diag%Archive_AerMass = ( State_Diag%Archive_AerMassASOA       .or. &\n                                   State_Diag%Archive_AerMassBC         .or. &\n                                   State_Diag%Archive_AerMassINDIOL     .or. &\n                                   State_Diag%Archive_AerMassISN1OA     .or. &\n                                   State_Diag%Archive_AerMassLVOCOA     .or. &\n                                   State_Diag%Archive_AerMassNH4        .or. &\n                                   State_Diag%Archive_AerMassNIT        .or. &\n                                   State_Diag%Archive_AerMassOPOA       .or. &\n                                   State_Diag%Archive_AerMassPOA        .or. &\n                                   State_Diag%Archive_AerMassSAL        .or. &\n                                   State_Diag%Archive_AerMassSO4        .or. &\n                                   State_Diag%Archive_AerMassHMS        .or. &  !(jmm, 06/29/18)\n                                   State_Diag%Archive_AerMassSOAGX      .or. &\n                                   State_Diag%Archive_AerMassSOAIE      .or. &\n                                   State_Diag%Archive_AerMassTSOA       .or. &\n                                   State_Diag%Archive_BetaNO            .or. &\n                                   State_Diag%Archive_PM25              .or. &\n                                   State_Diag%Archive_PM10              .or. &\n                                   State_Diag%Archive_TotalOA           .or. &\n                                   State_Diag%Archive_TotalOC           .or. &\n                                   State_Diag%Archive_TotalBiogenicOA       )\n\n#ifdef TOMAS\n    State_Diag%Archive_Tomas  = ( State_Diag%Archive_TomasH2SO4mass         .or. &\n                                  State_Diag%Archive_TomasH2SO4number       .or. &\n                                  State_Diag%Archive_TomasCOAGmass          .or. &\n                                  State_Diag%Archive_TomasCOAGnumber        .or. &\n                                  State_Diag%Archive_TomasNUCRATEFN         .or. &\n                                  State_Diag%Archive_TomasNUCLmass          .or. &\n                                  State_Diag%Archive_TomasNUCLnumber        .or. &\n                                  State_Diag%Archive_TomasNUCRATEnumber     .or. &\n                                  State_Diag%Archive_TomasAQOXmass          .or. &\n                                  State_Diag%Archive_TomasAQOXnumber        .or. &\n                                  State_Diag%Archive_TomasMNFIXmass         .or. &\n                                  State_Diag%Archive_TomasMNFIXnumber       .or. &\n                                  State_Diag%Archive_TomasMNFIXh2so4mass    .or. &\n                                  State_Diag%Archive_TomasMNFIXh2so4number  .or. &\n                                  State_Diag%Archive_TomasMNFIXcoagmass     .or. &\n                                  State_Diag%Archive_TomasMNFIXcoagnumber   .or. &\n                                  State_Diag%Archive_TomasMNFIXaqoxmass     .or. &\n                                  State_Diag%Archive_TomasMNFIXaqoxnumber   .or. &\n                                  State_Diag%Archive_TomasMNFIXezwat1mass   .or. &\n                                  State_Diag%Archive_TomasMNFIXezwat1number .or. &\n                                  State_Diag%Archive_TomasMNFIXezwat2mass   .or. &\n                                  State_Diag%Archive_TomasMNFIXezwat2number .or. &\n                                  State_Diag%Archive_TomasMNFIXezwat3mass   .or. &\n                                  State_Diag%Archive_TomasMNFIXezwat3number .or. &\n                                  State_Diag%Archive_TomasMNFIXcheck1mass   .or. &\n                                  State_Diag%Archive_TomasMNFIXcheck1number .or. &\n                                  State_Diag%Archive_TomasMNFIXcheck2mass   .or. &\n                                  State_Diag%Archive_TomasMNFIXcheck2number .or. &\n                                  State_Diag%Archive_TomasMNFIXcheck3mass   .or. &\n                                  State_Diag%Archive_TomasMNFIXcheck3number .or. &\n                                  State_Diag%Archive_TomasSOAmass           .or. &\n                                  State_Diag%Archive_TomasSOAnumber         )\n#endif\n\n    State_Diag%Archive_AOD  = ( State_Diag%Archive_AODHygWL1            .or. &\n                                State_Diag%Archive_AODHygWL2            .or. &\n                                State_Diag%Archive_AODHygWL3            .or. &\n                                State_Diag%Archive_PDER                 .or. & ! H. Zhu, April 05, 2024\n                                State_Diag%Archive_AODSOAfromAqIsopWL1  .or. &\n                                State_Diag%Archive_AODSOAfromAqIsopWL2  .or. &\n                                State_Diag%Archive_AODSOAfromAqIsopWL3  .or. &\n                                State_Diag%Archive_AODDust              .or. &\n                                State_Diag%Archive_AODDustWL1           .or. &\n                                State_Diag%Archive_AODDustWL2           .or. &\n                                State_Diag%Archive_AODDustWL3               )\n\n    State_Diag%Archive_AODStrat = ( State_Diag%Archive_AODSLAWL1        .or. &\n                                    State_Diag%Archive_AODSLAWL2        .or. &\n                                    State_Diag%Archive_AODSLAWL3        .or. &\n                                    State_Diag%Archive_AODPSCWL1        .or. &\n                                    State_Diag%Archive_AODPSCWL2        .or. &\n                                    State_Diag%Archive_AODPSCWL3        .or. &\n                                    State_Diag%Archive_AerNumDenSLA     .or. &\n                                    State_Diag%Archive_AerNumDenPSC        )\n\n    State_Diag%Archive_ConcAboveSfc =                                        &\n                                 ( State_Diag%Archive_SpeciesConcALT1  .and. &\n                                   State_Diag%Archive_DryDepRaALT1     .and. &\n                                   State_Diag%Archive_DryDepVelForALT1      )\n\n    State_Diag%Archive_KppDiags = ( State_Diag%Archive_KppIntCounts       .or. &\n                                    State_Diag%Archive_KppJacCounts       .or. &\n                                    State_Diag%Archive_KppTotSteps        .or. &\n                                    State_Diag%Archive_KppAccSteps        .or. &\n                                    State_Diag%Archive_KppRejSteps        .or. &\n                                    State_Diag%Archive_KppLuDecomps       .or. &\n                                    State_Diag%Archive_KppSubsts          .or. &\n                                    State_Diag%Archive_KppSmDecomps       .or. &\n                                    State_Diag%Archive_KppNegatives       .or. &\n                                    State_Diag%Archive_KppNegatives0      .or. &\n                                    State_Diag%Archive_KppAutoReducerNVAR .or. &\n                                    State_Diag%Archive_KppAutoReduceThres .or. &\n                                    State_Diag%Archive_KppcNONZERO        .or. &\n                                    State_Diag%Archive_KppTime            .or. &\n                                    State_Diag%Archive_KppDiags             )\n\n    State_Diag%Archive_RadOptics  = ( State_Diag%Archive_RadAODWL1     .or. &\n                                      State_Diag%Archive_RadAODWL2     .or. &\n                                      State_Diag%Archive_RadAODWL3     .or. &\n                                      State_Diag%Archive_RadSSAWL1     .or. &\n                                      State_Diag%Archive_RadSSAWL2     .or. &\n                                      State_Diag%Archive_RadSSAWL3     .or. &\n                                      State_Diag%Archive_RadAsymWL1    .or. &\n                                      State_Diag%Archive_RadAsymWL2    .or. &\n                                      State_Diag%Archive_RadAsymWL3        )\n\n    State_Diag%Archive_Metrics = (                                           &\n         State_Diag%Archive_AirMassColumnFull                           .or. &\n         State_Diag%Archive_AirMassColumnTrop                           .or. &\n         State_Diag%Archive_CH4emission                                 .or. &\n         State_Diag%Archive_CH4massColumnFull                           .or. &\n         State_Diag%Archive_CH4massColumnTrop                           .or. &\n         State_Diag%Archive_LossOHbyCH4columnTrop                       .or. &\n         State_Diag%Archive_LossOHbyMCFcolumnTrop                       .or. &\n         State_Diag%Archive_OHwgtByAirMassColumnFull                    .or. &\n         State_Diag%Archive_OHwgtByAirMassColumnTrop                        )\n\n    !========================================================================\n    ! Work array used to to calculate budget diagnostics, if needed\n    ! 4th dimension is column region: Full, Trop, PBL respectively\n    !========================================================================\n    IF ( State_Diag%Archive_Budget ) THEN\n        ALLOCATE( State_Diag%BudgetColumnMass( State_Grid%NX,                &\n                                               State_Grid%NY,                &\n                                               State_Chm%nAdvect,            &\n                                               4                 ), STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%BudgetColumnMass', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_State_Diag\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_State_Diag\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_STATE\\_DIAG deallocates all fields\n!  of the meteorology state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_State_Diag( State_Diag, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Return code\n!\n! !REVISION HISTORY:\n!  05 Jul 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> Cleanup_State_Diag (in Headers/state_diag_mod.F90)'\n\n    !========================================================================\n    ! Deallocate module variables\n    !========================================================================\n    CALL Finalize( diagId   = 'SpeciesRst',                                  &\n                   Ptr2Data = State_Diag%SpeciesRst,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SpeciesBC',                                   &\n                   Ptr2Data = State_Diag%SpeciesBC,                          &\n                   mapData  = State_Diag%Map_SpeciesBC,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SpeciesConcVV',                               &\n                   Ptr2Data = State_Diag%SpeciesConcVV,                      &\n                   mapData  = State_Diag%Map_SpeciesConcVV,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SpeciesConcMND',                              &\n                   Ptr2Data = State_Diag%SpeciesConcMND,                     &\n                   mapData  = State_Diag%Map_SpeciesConcMND,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ConcBeforeChem',                              &\n                   Ptr2Data = State_Diag%ConcBeforeChem,                     &\n                   mapData  = State_Diag%Map_ConcBeforeChem,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ConcAfterChem',                               &\n                   Ptr2Data = State_Diag%ConcAfterChem,                      &\n                   mapData  = State_Diag%Map_ConcAfterChem,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n#ifdef ADJOINT\n    CALL Finalize( diagId   = 'SpeciesAdj',                                  &\n                   Ptr2Data = State_Diag%SpeciesAdj,                         &\n                   mapData  = State_Diag%Map_SpeciesAdj,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ScaleICsAdj',                                 &\n                   Ptr2Data = State_Diag%ScaleICsAdj,                        &\n                   mapData  = State_Diag%Map_ScaleICsAdj,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n    CALL Finalize( diagId   = 'FracOfTimeInTrop',                            &\n                   Ptr2Data = State_Diag%FracOfTimeInTrop,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetColumnMass',                            &\n                   Ptr2Data = State_Diag%BudgetColumnMass,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetEmisDryDepFull',                        &\n                   Ptr2Data = State_Diag%BudgetEmisDryDepFull,               &\n                   mapData  = State_Diag%Map_BudgetEmisDryDepFull,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetEmisDryDepTrop',                        &\n                   Ptr2Data = State_Diag%BudgetEmisDryDepTrop,               &\n                   mapData  = State_Diag%Map_BudgetEmisDryDepTrop,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetEmisDryDepPBL',                         &\n                   Ptr2Data = State_Diag%BudgetEmisDryDepPBL,                &\n                   mapData  = State_Diag%Map_BudgetEmisDryDepPBL,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetEmisDryDepLevs',                        &\n                   Ptr2Data = State_Diag%BudgetEmisDryDepLevs,               &\n                   mapData  = State_Diag%Map_BudgetEmisDryDepLevs,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetTransportFull',                         &\n                   Ptr2Data = State_Diag%BudgetTransportFull,                &\n                   mapData  = State_Diag%Map_BudgetTransportFull,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetTransportTrop',                         &\n                   Ptr2Data = State_Diag%BudgetTransportTrop,                &\n                   mapData  = State_Diag%Map_BudgetTransportTrop,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetTransportPBL',                          &\n                   Ptr2Data = State_Diag%BudgetTransportPBL,                 &\n                   mapData  = State_Diag%Map_BudgetTransportPBL,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetTransportLevs',                         &\n                   Ptr2Data = State_Diag%BudgetTransportLevs,                &\n                   mapData  = State_Diag%Map_BudgetTransportLevs,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetMixingFull',                            &\n                   Ptr2Data = State_Diag%BudgetMixingFull,                   &\n                   mapData  = State_Diag%Map_BudgetMixingFull,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetMixingTrop',                            &\n                   Ptr2Data = State_Diag%BudgetMixingTrop,                   &\n                   mapData  = State_Diag%Map_BudgetMixingTrop,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetMixingPBL',                             &\n                   Ptr2Data = State_Diag%BudgetMixingPBL,                    &\n                   mapData  = State_Diag%Map_BudgetMixingPBL,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetMixingLevs',                            &\n                   Ptr2Data = State_Diag%BudgetMixingLevs,                   &\n                   mapData  = State_Diag%Map_BudgetMixingLevs,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetConvectionFull',                        &\n                   Ptr2Data = State_Diag%BudgetConvectionFull,               &\n                   mapData  = State_Diag%Map_BudgetConvectionFull,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetConvectionTrop',                        &\n                   Ptr2Data = State_Diag%BudgetConvectionTrop,               &\n                   mapData  = State_Diag%Map_BudgetConvectionTrop,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetConvectionPBL',                         &\n                   Ptr2Data = State_Diag%BudgetConvectionPBL,                &\n                   mapData  = State_Diag%Map_BudgetConvectionPBL,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetConvectionLevs',                        &\n                   Ptr2Data = State_Diag%BudgetConvectionLevs,               &\n                   mapData  = State_Diag%Map_BudgetConvectionLevs,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetChemistryFull',                         &\n                   Ptr2Data = State_Diag%BudgetChemistryFull,                &\n                   mapData  = State_Diag%Map_BudgetChemistryFull,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetChemistryTrop',                         &\n                   Ptr2Data = State_Diag%BudgetChemistryTrop,                &\n                   mapData  = State_Diag%Map_BudgetChemistryTrop,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetChemistryPBL',                          &\n                   Ptr2Data = State_Diag%BudgetChemistryPBL,                 &\n                   mapData  = State_Diag%Map_BudgetChemistryPBL,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetChemistryLevs',                         &\n                   Ptr2Data = State_Diag%BudgetChemistryLevs,                &\n                   mapData  = State_Diag%Map_BudgetChemistryLevs,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetWetDepFull',                            &\n                   Ptr2Data = State_Diag%BudgetWetDepFull,                   &\n                   mapData  = State_Diag%Map_BudgetWetDepFull,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetWetDepTrop',                            &\n                   Ptr2Data = State_Diag%BudgetWetDepTrop,                   &\n                   mapData  = State_Diag%Map_BudgetWetDepTrop,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetWetDepPBL',                             &\n                   Ptr2Data = State_Diag%BudgetWetDepPBL,                    &\n                   mapData  = State_Diag%Map_BudgetWetDepPBL,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BudgetWetDepLevs',                            &\n                   Ptr2Data = State_Diag%BudgetWetDepLevs,                   &\n                   mapData  = State_Diag%Map_BudgetWetDepLevs,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'DryDepChm',                                   &\n                   Ptr2Data = State_Diag%DryDepChm,                          &\n                   mapData  = State_Diag%Map_DryDepChm,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'DryDepMix',                                   &\n                   Ptr2Data = State_Diag%DryDepMix,                          &\n                   mapData  = State_Diag%Map_DryDepMix,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'DryDep',                                      &\n                   Ptr2Data = State_Diag%DryDep,                             &\n                   mapData  = State_Diag%Map_DryDep,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'DryDepVel',                                   &\n                   Ptr2Data = State_Diag%DryDepVel,                          &\n                   mapData  = State_Diag%Map_DryDepVel,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'IsWater',                                     &\n                   Ptr2Data = State_Diag%IsWater,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'IsLand',                                      &\n                   Ptr2Data = State_Diag%IsLand,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'IsIce',                                       &\n                   Ptr2Data = State_Diag%IsIce,                              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'IsSnow',                                      &\n                   Ptr2Data = State_Diag%IsSnow,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnDryDep',                              &\n                   Ptr2Data = State_Diag%SatDiagnDryDep,                     &\n                   mapData  = State_Diag%Map_SatDiagnDryDep,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnDryDepVel',                           &\n                   Ptr2Data = State_Diag%SatDiagnDryDepVel,                  &\n                   mapData  = State_Diag%Map_SatDiagnDryDepVel,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'Jval',                                        &\n                   Ptr2Data = State_Diag%Jval,                               &\n                   mapData  = State_Diag%Map_Jval,                           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'JvalO3O1D',                                   &\n                   Ptr2Data = State_Diag%Jval,                               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'JvalO3O3P',                                   &\n                   Ptr2Data = State_Diag%Jval,                               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnJval',                                 &\n                   Ptr2Data = State_Diag%SatDiagnJval,                        &\n                   mapData  = State_Diag%Map_SatDiagnJval,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnJvalO3O1D',                            &\n                   Ptr2Data = State_Diag%SatDiagnJval,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnJvalO3O3P',                            &\n                   Ptr2Data = State_Diag%SatDiagnJval,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'JNoon',                                       &\n                   Ptr2Data = State_Diag%JNoon,                              &\n                   mapData  = State_Diag%Map_JNoon,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'JNoonFrac',                                   &\n                   Ptr2Data = State_Diag%JNoonFrac,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RxnRate',                                     &\n                   Ptr2Data = State_Diag%RxnRate,                            &\n                   mapData  = State_Diag%Map_RxnRate,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnRxnRate',                             &\n                   Ptr2Data = State_Diag%SatDiagnRxnRate,                    &\n                   mapData  = State_Diag%Map_SatDiagnRxnRate,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RxnConst',                                    &\n                   Ptr2Data = State_Diag%RxnConst,                           &\n                   mapData  = State_Diag%Map_RxnConst,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'OHreactivity',                                &\n                   Ptr2Data = State_Diag%OHreactivity,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n#ifdef MODEL_GEOS\n    CALL Finalize( diagId   = 'NOxTau',                                      &\n                   Ptr2Data = State_Diag%NOxTau,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TropNOxTau',                                  &\n                   Ptr2Data = State_Diag%NOxTau,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n    CALL Finalize( diagId   = 'SatDiagnOHreactivity',                        &\n                   Ptr2Data = State_Diag%SatDiagnOHreactivity,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'UvFluxDiffuse',                               &\n                   Ptr2Data = State_Diag%UvFluxDiffuse,                      &\n                   mapData  = State_Diag%Map_UvFluxDiffuse,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'UvFluxDirect',                                &\n                   Ptr2Data = State_Diag%UvFluxDirect,                       &\n                   mapData  = State_Diag%Map_UvFluxDirect,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'UvFluxNet',                                   &\n                   Ptr2Data = State_Diag%UvFluxNet,                          &\n                   mapData  = State_Diag%Map_UvFluxNet,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'OD600',                                       &\n                   Ptr2Data = State_Diag%OD600,                              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TCOD600',                                     &\n                   Ptr2Data = State_Diag%TCOD600,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AdvFluxZonal',                                &\n                   Ptr2Data = State_Diag%AdvFluxZonal,                       &\n                   mapData  = State_Diag%Map_AdvFluxZonal,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AdvFluxMerid',                                &\n                   Ptr2Data = State_Diag%AdvFluxMerid,                       &\n                   mapData  = State_Diag%Map_AdvFluxMerid,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AdvFluxVert',                                 &\n                   Ptr2Data = State_Diag%AdvFluxVert,                        &\n                   mapData  = State_Diag%Map_AdvFluxVert,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PBLMixFrac',                                  &\n                   Ptr2Data = State_Diag%PBLMixFrac,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PBLFlux',                                     &\n                   Ptr2Data = State_Diag%PBLFlux,                            &\n                   mapData  = State_Diag%Map_PBLFlux,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CloudConvFlux',                               &\n                   Ptr2Data = State_Diag%CloudConvFlux,                      &\n                   mapData  = State_Diag%Map_CloudConvFlux,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'WetLossConv',                                 &\n                   Ptr2Data = State_Diag%WetLossConv,                        &\n                   mapData  = State_Diag%Map_WetLossConv,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnWetLossConv',                         &\n                   Ptr2Data = State_Diag%SatDiagnWetLossConv,                &\n                   mapData  = State_Diag%Map_SatDiagnWetLossConv,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'WetLossConvFrac',                             &\n                   Ptr2Data = State_Diag%WetLossConvFrac,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'WetLossLS',                                   &\n                   Ptr2Data = State_Diag%WetLossLS,                          &\n                   mapData  = State_Diag%Map_WetLossLS,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnWetLossLS',                           &\n                   Ptr2Data = State_Diag%SatDiagnWetLossLS,                  &\n                   mapData  = State_Diag%Map_SatDiagnWetLossLS,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n!    IF ( ASSOCIATED( State_Diag%PrecipFracLS ) ) THEN\n!       DEALLOCATE( State_Diag%PrecipFracLS, STAT=RC )\n!       CALL GC_CheckVar( 'State_Diag%PrecipFracLS', 2, RC )\n!       IF ( RC /= GC_SUCCESS ) RETURN\n!       State_Diag%PrecipFracLS => NULL()\n!    ENDIF\n!\n!    IF ( ASSOCIATED( State_Diag%RainFracLS ) ) THEN\n!       DEALLOCATE( State_Diag%RainFracLS, STAT=RC )\n!       CALL GC_CheckVar( 'State_Diag%RainFracLS', 2, RC )\n!       IF ( RC /= GC_SUCCESS ) RETURN\n!       State_Diag%RainFracLS => NULL()\n!    ENDIF\n!\n!    IF ( ASSOCIATED( State_Diag%WashFracLS ) ) THEN\n!       DEALLOCATE( State_Diag%WashFracLS, STAT=RC )\n!       CALL GC_CheckVar( 'State_Diag%WashFracLS', 2, RC )\n!       IF ( RC /= GC_SUCCESS ) RETURN\n!       State_Diag%WashFracLS => NULL()\n!    ENDIF\n\n    CALL Finalize( diagId   = 'SatDiagnCount',                               &\n                   Ptr2Data = State_Diag%SatDiagnCount,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnEdgeCount',                           &\n                   Ptr2Data = State_Diag%SatDiagnEdgeCount,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnConc',                                &\n                   Ptr2Data = State_Diag%SatDiagnConc,                       &\n                   mapData  = State_Diag%Map_SatDiagnConc,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnColEmis',                             &\n                   Ptr2Data = State_Diag%SatDiagnColEmis,                    &\n                   mapData  = State_Diag%Map_SatDiagnColEmis,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnSurfFlux',                            &\n                   Ptr2Data = State_Diag%SatDiagnSurfFlux,                   &\n                   mapData  = State_Diag%Map_SatDiagnSurfFlux,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnOH',                                &\n                   Ptr2Data = State_Diag%SatDiagnOH,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnRH',                                &\n                   Ptr2Data = State_Diag%SatDiagnRH,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnAirDen',                            &\n                   Ptr2Data = State_Diag%SatDiagnAirDen,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnBoxHeight',                         &\n                   Ptr2Data = State_Diag%SatDiagnBoxHeight,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPEdge',                             &\n                   Ptr2Data = State_Diag%SatDiagnPEdge,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPMid',                              &\n                   Ptr2Data = State_Diag%SatDiagnPMid,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnTROPP',                             &\n                   Ptr2Data = State_Diag%SatDiagnTROPP,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnTropLev',                           &\n                   Ptr2Data = State_Diag%SatDiagnTropLev,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPBLHeight',                         &\n                   Ptr2Data = State_Diag%SatDiagnPBLHeight,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPBLTop',                            &\n                   Ptr2Data = State_Diag%SatDiagnPBLTop,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnTAir',                              &\n                   Ptr2Data = State_Diag%SatDiagnTAir,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnCldFrac',                           &\n                   Ptr2Data = State_Diag%SatDiagnCldFrac,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnCldTopP',                           &\n                   Ptr2Data = State_Diag%SatDiagnCldTopP,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnGWETROOT',                          &\n                   Ptr2Data = State_Diag%SatDiagnGWETROOT,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnGWETTOP',                           &\n                   Ptr2Data = State_Diag%SatDiagnGWETTOP,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPARDR',                             &\n                   Ptr2Data = State_Diag%SatDiagnPARDR,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPARDF',                             &\n                   Ptr2Data = State_Diag%SatDiagnPARDF,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPRECTOT',                           &\n                   Ptr2Data = State_Diag%SatDiagnPRECTOT,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnSLP',                               &\n                   Ptr2Data = State_Diag%SatDiagnSLP,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnSPHU',                              &\n                   Ptr2Data = State_Diag%SatDiagnSPHU,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnTS',                                &\n                   Ptr2Data = State_Diag%SatDiagnTS,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnPBLTOPL',                           &\n                   Ptr2Data = State_Diag%SatDiagnPBLTOPL,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnMODISLAI',                          &\n                   Ptr2Data = State_Diag%SatDiagnMODISLAI,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PbFromRnDecay',                               &\n                   Ptr2Data = State_Diag%PbFromRnDecay,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadDecay',                                    &\n                   Ptr2Data = State_Diag%RadDecay,                           &\n                   mapData  = State_Diag%Map_RadDecay,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkyLWSurf',                             &\n                   Ptr2Data = State_Diag%RadAllSkyLWSurf,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkyLWTOA',                              &\n                   Ptr2Data = State_Diag%RadAllSkyLWTOA,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkySWSurf',                             &\n                   Ptr2Data = State_Diag%RadAllSkySWSurf,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkySWTOA',                              &\n                   Ptr2Data = State_Diag%RadAllSkySWTOA,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadClrSkyLWSurf',                             &\n                   Ptr2Data = State_Diag%RadClrSkyLWSurf,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadClrSkyLWTOA',                              &\n                   Ptr2Data = State_Diag%RadClrSkyLWTOA,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkySWSurf',                             &\n                   Ptr2Data = State_Diag%RadAllSkySWSurf,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkySWTOA',                              &\n                   Ptr2Data = State_Diag%RadAllSkySWTOA,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkyLWTrop',                              &\n                   Ptr2Data = State_Diag%RadAllSkyLWTrop,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkySWTrop',                              &\n                   Ptr2Data = State_Diag%RadAllSkySWTrop,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadClrSkyLWTrop',                              &\n                   Ptr2Data = State_Diag%RadClrSkyLWTrop,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAllSkySWTrop',                              &\n                   Ptr2Data = State_Diag%RadAllSkySWTrop,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAODWL1',                                   &\n                   Ptr2Data = State_Diag%RadAODWL1,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAODWL2',                                   &\n                   Ptr2Data = State_Diag%RadAODWL2,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAODWL3',                                   &\n                   Ptr2Data = State_Diag%RadAODWL3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadSSAWL1',                                   &\n                   Ptr2Data = State_Diag%RadSSAWL1,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadSSAWL2',                                   &\n                   Ptr2Data = State_Diag%RadSSAWL2,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadSSAWL3',                                   &\n                   Ptr2Data = State_Diag%RadSSAWL3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAsymWL1',                                   &\n                   Ptr2Data = State_Diag%RadAsymWL1,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAsymWL2',                                   &\n                   Ptr2Data = State_Diag%RadAsymWL2,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RadAsymWL3',                                   &\n                   Ptr2Data = State_Diag%RadAsymWL3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdBCPIfromBCPO',                            &\n                   Ptr2Data = State_Diag%ProdBCPIfromBCPO,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdOCPIfromOCPO',                            &\n                   Ptr2Data = State_Diag%ProdOCPIfromOCPO,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'OHconcAfterChem',                             &\n                   Ptr2Data = State_Diag%OHconcAfterChem,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'O1DconcAfterChem',                            &\n                   Ptr2Data = State_Diag%O1DconcAfterChem,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'O3PconcAfterChem',                            &\n                   Ptr2Data = State_Diag%O3PconcAfterChem,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CH4pseudoFlux',                               &\n                   Ptr2Data = State_Diag%CH4pseudoFlux,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n#ifdef TOMAS\n    CALL Finalize( diagId   = 'TomasH2SO4mass',                              &\n                   Ptr2Data = State_Diag%TomasH2SO4mass,                     &\n                   mapData  = State_Diag%Map_TomasH2SO4mass,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasH2SO4number',                            &\n                   Ptr2Data = State_Diag%TomasH2SO4number,                   &\n                   mapData  = State_Diag%Map_TomasH2SO4number,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasCOAGmass',                               &\n                   Ptr2Data = State_Diag%TomasCOAGmass,                      &\n                   mapData  = State_Diag%Map_TomasCOAGmass,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasCOAGnumber',                             &\n                   Ptr2Data = State_Diag%TomasCOAGnumber,                    &\n                   mapData  = State_Diag%Map_TomasCOAGnumber,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasNUCRATEfn',                              &\n                   Ptr2Data = State_Diag%TomasNUCRATEfn,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasNUCLmass',                               &\n                   Ptr2Data = State_Diag%TomasNUCLmass,                      &\n                   mapData  = State_Diag%Map_TomasNUCLmass,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasNUCLnumber',                             &\n                   Ptr2Data = State_Diag%TomasNUCLnumber,                    &\n                   mapData  = State_Diag%Map_TomasNUCLnumber,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasNUCRATEnumber',                          &\n                   Ptr2Data = State_Diag%TomasNUCRATEnumber,                 &\n                   mapData  = State_Diag%Map_TomasNUCRATEnumber,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasAQOXmass',                               &\n                   Ptr2Data = State_Diag%TomasAQOXmass,                      &\n                   mapData  = State_Diag%Map_TomasAQOXmass,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasAQOXnumber',                             &\n                   Ptr2Data = State_Diag%TomasAQOXnumber,                    &\n                   mapData  = State_Diag%Map_TomasAQOXnumber,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXmass',                              &\n                   Ptr2Data = State_Diag%TomasMNFIXmass,                     &\n                   mapData  = State_Diag%Map_TomasMNFIXmass,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXnumber',                            &\n                   Ptr2Data = State_Diag%TomasMNFIXnumber,                   &\n                   mapData  = State_Diag%Map_TomasMNFIXnumber,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXh2so4mass',                         &\n                   Ptr2Data = State_Diag%TomasMNFIXh2so4mass,                &\n                   mapData  = State_Diag%Map_TomasMNFIXh2so4mass,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXh2so4number',                       &\n                   Ptr2Data = State_Diag%TomasMNFIXh2so4number,              &\n                   mapData  = State_Diag%Map_TomasMNFIXh2so4number,          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcoagmass',                          &\n                   Ptr2Data = State_Diag%TomasMNFIXcoagmass,                 &\n                   mapData  = State_Diag%Map_TomasMNFIXcoagmass,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcoagnumber',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXcoagnumber,               &\n                   mapData  = State_Diag%Map_TomasMNFIXcoagnumber,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXaqoxmass',                          &\n                   Ptr2Data = State_Diag%TomasMNFIXaqoxmass,                 &\n                   mapData  = State_Diag%Map_TomasMNFIXaqoxmass,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXaqoxnumber',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXaqoxnumber,               &\n                   mapData  = State_Diag%Map_TomasMNFIXaqoxnumber,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXezwat1mass',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXezwat1mass,               &\n                   mapData  = State_Diag%Map_TomasMNFIXezwat1mass,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXezwat1number',                      &\n                   Ptr2Data = State_Diag%TomasMNFIXezwat1number,             &\n                   mapData  = State_Diag%Map_TomasMNFIXezwat1number,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXezwat2mass',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXezwat2mass,               &\n                   mapData  = State_Diag%Map_TomasMNFIXezwat2mass,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXezwat2number',                      &\n                   Ptr2Data = State_Diag%TomasMNFIXezwat2number,             &\n                   mapData  = State_Diag%Map_TomasMNFIXezwat2number,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXezwat3mass',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXezwat3mass,               &\n                   mapData  = State_Diag%Map_TomasMNFIXezwat3mass,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXezwat3number',                      &\n                   Ptr2Data = State_Diag%TomasMNFIXezwat3number,             &\n                   mapData  = State_Diag%Map_TomasMNFIXezwat3number,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcheck1mass',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXcheck1mass,               &\n                   mapData  = State_Diag%Map_TomasMNFIXcheck1mass,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcheck1number',                      &\n                   Ptr2Data = State_Diag%TomasMNFIXcheck1number,             &\n                   mapData  = State_Diag%Map_TomasMNFIXcheck1number,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcheck2mass',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXcheck2mass,               &\n                   mapData  = State_Diag%Map_TomasMNFIXcheck2mass,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcheck2number',                      &\n                   Ptr2Data = State_Diag%TomasMNFIXcheck2number,             &\n                   mapData  = State_Diag%Map_TomasMNFIXcheck2number,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcheck3mass',                        &\n                   Ptr2Data = State_Diag%TomasMNFIXcheck3mass,               &\n                   mapData  = State_Diag%Map_TomasMNFIXcheck3mass,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasMNFIXcheck3number',                      &\n                   Ptr2Data = State_Diag%TomasMNFIXcheck3number,             &\n                   mapData  = State_Diag%Map_TomasMNFIXcheck3number,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasSOAmass',                                &\n                   Ptr2Data = State_Diag%TomasSOAmass,                       &\n                   mapData  = State_Diag%Map_TomasSOAmass,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TomasSOAnumber',                              &\n                   Ptr2Data = State_Diag%TomasSOAnumber,                     &\n                   mapData  = State_Diag%Map_TomasSOAnumber,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n    CALL Finalize( diagId   = 'AODdust',                                     &\n                   Ptr2Data = State_Diag%AODdust,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODDustWL1',                                  &\n                   Ptr2Data = State_Diag%AODDustWL1,                         &\n                   mapData  = State_Diag%Map_AODDustWL1,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODDustWL2',                                  &\n                   Ptr2Data = State_Diag%AODDustWL2,                         &\n                   mapData  = State_Diag%Map_AODDustWL2,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODDustWL3',                                  &\n                   Ptr2Data = State_Diag%AODDustWL3,                         &\n                   mapData  = State_Diag%Map_AODDustWL3,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODHygWL1',                                   &\n                   Ptr2Data = State_Diag%AODHygWL1,                          &\n                   mapData  = State_Diag%Map_AODHygWL1,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODHygWL2',                                   &\n                   Ptr2Data = State_Diag%AODHygWL2,                          &\n                   mapData  = State_Diag%Map_AODHygWL2,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODHygWL3',                                   &\n                   Ptr2Data = State_Diag%AODHygWL3,                          &\n                   mapData  = State_Diag%Map_AODHygWL3,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODSOAfromAqIsopWL1',                         &\n                   Ptr2Data = State_Diag%AODSOAfromAqIsopWL1,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODSOAfromAqIsopWL2',                         &\n                   Ptr2Data = State_Diag%AODSOAfromAqIsopWL2,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODSOAfromAqIsopWL3',                         &\n                   Ptr2Data = State_Diag%AODSOAfromAqIsopWL3,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerHygGrowth',                                &\n                   Ptr2Data = State_Diag%AerHygGrowth,                       &\n                   mapData  = State_Diag%Map_AerHygGrowth,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerSurfAreaDust',                             &\n                   Ptr2Data = State_Diag%AerSurfAreaDust,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerSurfAreaHyg',                              &\n                   Ptr2Data = State_Diag%AerSurfAreaHyg,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerNumDenSLA',                                &\n                   Ptr2Data = State_Diag%AerNumDenSLA,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerNumDenPSC',                                &\n                   Ptr2Data = State_Diag%AerNumDenPSC,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerAqVol',                                    &\n                   Ptr2Data = State_Diag%AerAqVol,                           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerSurfAreaSLA',                              &\n                   Ptr2Data = State_Diag%AerSurfAreaSLA,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerSurfAreaPSC',                              &\n                   Ptr2Data = State_Diag%AerSurfAreaPSC,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODSLAWL1',                                   &\n                   Ptr2Data = State_Diag%AODSLAWL1,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODSLAWL2',                                   &\n                   Ptr2Data = State_Diag%AODSLAWL2,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODSLAWL3',                                   &\n                   Ptr2Data = State_Diag%AODSLAWL3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODPSCWL1',                                   &\n                   Ptr2Data = State_Diag%AODPSCWL1,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODPSCWL2',                                   &\n                   Ptr2Data = State_Diag%AODPSCWL2,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AODPSCWL3',                                   &\n                   Ptr2Data = State_Diag%AODPSCWL3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnLoss',                                &\n                   Ptr2Data = State_Diag%SatDiagnLoss,                       &\n                   mapData  = State_Diag%Map_SatDiagnLoss,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'Loss',                                        &\n                   Ptr2Data = State_Diag%Loss,                               &\n                   mapData  = State_Diag%Map_Loss,                           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SatDiagnProd',                                &\n                   Ptr2Data = State_Diag%SatDiagnProd,                       &\n                   mapData  = State_Diag%Map_SatDiagnProd,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'Prod',                                        &\n                   Ptr2Data = State_Diag%Prod,                               &\n                   mapData  = State_Diag%Map_Prod,                           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHMSfromSO2andHCHOinCloud',                &\n                   Ptr2Data = State_Diag%ProdHMSfromSO2andHCHOinCloud,       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO2fromDMSandOH',                         &\n                   Ptr2Data = State_Diag%ProdSO2fromDMSandOH,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO2fromDMSandNO3',                        &\n                   Ptr2Data = State_Diag%ProdSO2fromDMSandNO3,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO2fromDMS',                              &\n                   Ptr2Data = State_Diag%ProdSO2fromDMS,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdMSAfromDMS',                              &\n                   Ptr2Data = State_Diag%ProdMSAfromDMS,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdNITfromHNO3uptakeOnDust',                 &\n                   Ptr2Data = State_Diag%ProdNITfromHNO3uptakeOnDust,        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromGasPhase',                         &\n                   Ptr2Data = State_Diag%ProdSO4fromGasPhase,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromH2O2inCloud',                      &\n                   Ptr2Data = State_Diag%ProdSO4fromH2O2inCloud,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromO3inCloud',                        &\n                   Ptr2Data = State_Diag%ProdSO4fromO3inCloud,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromHOBrInCloud',                      &\n                   Ptr2Data = State_Diag%ProdSO4fromHOBrInCloud,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromO2inCloudMetal',                   &\n                   Ptr2Data = State_Diag%ProdSO4fromO2inCloudMetal,          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromO3inSeaSalt',                      &\n                   Ptr2Data = State_Diag%ProdSO4fromO3inSeaSalt,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromOxidationOnDust',                  &\n                   Ptr2Data = State_Diag%ProdSO4fromOxidationOnDust,         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromUptakeOfH2SO4g',                   &\n                   Ptr2Data = State_Diag%ProdSO4fromUptakeOfH2SO4g,          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromSRO3',                             &\n                   Ptr2Data = State_Diag%ProdSO4fromSRO3,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromSRHOBr',                           &\n                   Ptr2Data = State_Diag%ProdSO4fromSRHOBr,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromO3s',                              &\n                   Ptr2Data = State_Diag%ProdSO4fromO3s,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO4fromHMSinCloud',                       &\n                   Ptr2Data = State_Diag%ProdSO4fromHMSinCloud,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdSO2andHCHOfromHMSinCloud',                &\n                   Ptr2Data = State_Diag%ProdSO2andHCHOfromHMSinCloud,       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n\n    CALL Finalize( diagId   = 'LossHNO3onSeaSalt',                           &\n                   Ptr2Data = State_Diag%LossHNO3onSeaSalt,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassASOA',                                 &\n                   Ptr2Data = State_Diag%AerMassASOA,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassHMS',                                  &\n                   Ptr2Data = State_Diag%AerMassHMS,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassBC',                                   &\n                   Ptr2Data = State_Diag%AerMassBC,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassINDIOL',                               &\n                   Ptr2Data = State_Diag%AerMassINDIOL,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassISN1OA',                               &\n                   Ptr2Data = State_Diag%AerMassISN1OA,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassLVOCOA',                               &\n                   Ptr2Data = State_Diag%AerMassLVOCOA,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassNH4',                                  &\n                   Ptr2Data = State_Diag%AerMassNH4,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassNIT',                                  &\n                   Ptr2Data = State_Diag%AerMassNIT,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassOPOA',                                 &\n                   Ptr2Data = State_Diag%AerMassOPOA,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassPOA',                                  &\n                   Ptr2Data = State_Diag%AerMassPOA,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassSAL',                                  &\n                   Ptr2Data = State_Diag%AerMassSAL,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassSO4',                                  &\n                   Ptr2Data = State_Diag%AerMassSO4,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassSOAGX',                                &\n                   Ptr2Data = State_Diag%AerMassSOAGX,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassSOAIE',                                &\n                   Ptr2Data = State_Diag%AerMassSOAIE,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AerMassTSOA',                                 &\n                   Ptr2Data = State_Diag%AerMassTSOA,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'BetaNO',                                      &\n                   Ptr2Data = State_Diag%BetaNO,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25',                                        &\n                   Ptr2Data = State_Diag%PM25,                               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n!zhaisx\n    CALL Finalize( diagId   = 'PM10',                                        &     \n                   Ptr2Data = State_Diag%PM10,                               &     \n                   RC       = RC                                            )     \n    IF ( RC /= GC_SUCCESS ) RETURN\n\n! H. Zhu\n    CALL Finalize( diagId   = 'PDER',                                        &\n                   Ptr2Data = State_Diag%PDER,                               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TotalOA',                                     &\n                   Ptr2Data = State_Diag%TotalOA,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TotalBiogenicOA',                             &\n                   Ptr2Data = State_Diag%TotalBiogenicOA,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TotalOC',                                     &\n                   Ptr2Data = State_Diag%TotalOC,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossPOPPOCPObyGasPhase',                      &\n                   Ptr2Data = State_Diag%LossPOPPOCPObyGasPhase,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPOCPOfromGasPhase',                    &\n                   Ptr2Data = State_Diag%ProdPOPPOCPOfromGasPhase,          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossPOPPBCPObyGasPhase',                      &\n                   Ptr2Data = State_Diag%LossPOPPBCPObyGasPhase,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPBCPOfromGasPhase',                    &\n                   Ptr2Data = State_Diag%ProdPOPPBCPOfromGasPhase,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPGfromOH',                              &\n                   Ptr2Data = State_Diag%ProdPOPGfromOH,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPOCPOfromO3',                          &\n                   Ptr2Data = State_Diag%ProdPOPPOCPOfromO3,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPOCPIfromO3',                          &\n                   Ptr2Data = State_Diag%ProdPOPPOCPIfromO3,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPBCPOfromO3',                          &\n                   Ptr2Data = State_Diag%ProdPOPPBCPOfromO3,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPBCPIfromO3',                          &\n                   Ptr2Data = State_Diag%ProdPOPPBCPIfromO3,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPOCPOfromNO3',                         &\n                   Ptr2Data = State_Diag%ProdPOPPOCPOfromNO3,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPOCPIfromNO3',                         &\n                   Ptr2Data = State_Diag%ProdPOPPOCPIfromNO3,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPBCPOfromNO3',                         &\n                   Ptr2Data = State_Diag%ProdPOPPBCPOfromNO3,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdPOPPBCPIfromNO3',                         &\n                   Ptr2Data = State_Diag%ProdPOPPBCPIfromNO3,                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdCO2fromCO',                               &\n                   Ptr2Data = State_Diag%ProdCO2fromCO,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossCH4byClinTrop',                           &\n                   Ptr2Data = State_Diag%LossCH4byClinTrop,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossCH4byOHinTrop',                           &\n                   Ptr2Data = State_Diag%LossCH4byOHinTrop,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossCH4inStrat',                              &\n                   Ptr2Data = State_Diag%LossCH4inStrat,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdCOfromCH4',                               &\n                   Ptr2Data = State_Diag%ProdCOfromCH4,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdCOfromNMVOC',                             &\n                   Ptr2Data = State_Diag%ProdCOfromNMVOC,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0anthro',                               &\n                   Ptr2Data = State_Diag%EmisHg0anthro,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0biomass',                              &\n                   Ptr2Data = State_Diag%EmisHg0biomass,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0geogenic',                             &\n                   Ptr2Data = State_Diag%EmisHg0geogenic,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0land',                                 &\n                   Ptr2Data = State_Diag%EmisHg0land,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0ocean',                                &\n                   Ptr2Data = State_Diag%EmisHg0ocean,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0soil',                                 &\n                   Ptr2Data = State_Diag%EmisHg0soil,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0snow',                                 &\n                   Ptr2Data = State_Diag%EmisHg0snow,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg0vegetation',                           &\n                   Ptr2Data = State_Diag%EmisHg0vegetation,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg2HgPanthro',                            &\n                   Ptr2Data = State_Diag%EmisHg2HgPanthro,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg2snowToOcean',                          &\n                   Ptr2Data = State_Diag%EmisHg2snowToOcean,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EmisHg2rivers',                               &\n                   Ptr2Data = State_Diag%EmisHg2rivers,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'FluxHg2HgPfromAirToSnow',                     &\n                   Ptr2Data = State_Diag%FluxHg2HgPfromAirToSnow,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'FluxHg0fromAirToOcean',                       &\n                   Ptr2Data = State_Diag%FluxHg0fromAirToOcean,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'FluxHg0fromOceanToAir',                       &\n                   Ptr2Data = State_Diag%FluxHg0fromOceanToAir,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'FluxHg2toDeepOcean',                          &\n                   Ptr2Data = State_Diag%FluxHg2toDeepOcean,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'FluxHg2HgPfromAirToOcean',                    &\n                   Ptr2Data = State_Diag%FluxHg2HgPfromAirToOcean,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'FluxOCtoDeepOcean',                           &\n                   Ptr2Data = State_Diag%FluxOCtoDeepOcean,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'MassHg0inOcean',                              &\n                   Ptr2Data = State_Diag%MassHg0inOcean,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'MassHg2inOcean',                              &\n                   Ptr2Data = State_Diag%MassHg2inOcean,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'MassHgPinOcean',                              &\n                   Ptr2Data = State_Diag%MassHgPinOcean,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'MassHgTotalInOcean',                          &\n                   Ptr2Data = State_Diag%MassHgTotalInOcean,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ConcBr',                                      &\n                   Ptr2Data = State_Diag%ConcBr,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ConcBrO',                                     &\n                   Ptr2Data = State_Diag%ConcBrO,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossHg2bySeaSalt',                            &\n                   Ptr2Data = State_Diag%LossHg2bySeaSalt,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossRateHg2bySeaSalt',                        &\n                   Ptr2Data = State_Diag%LossRateHg2bySeaSalt,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PolarConcBr',                                 &\n                   Ptr2Data = State_Diag%PolarConcBr,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PolarConcBrO',                                &\n                   Ptr2Data = State_Diag%PolarConcBrO,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PolarConcO3',                                 &\n                   Ptr2Data = State_Diag%PolarConcO3,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromBr',                               &\n                   Ptr2Data = State_Diag%ProdHg2fromBr,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromBrY',                              &\n                   Ptr2Data = State_Diag%ProdHg2fromBrY,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromClY',                              &\n                   Ptr2Data = State_Diag%ProdHg2fromClY,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHg0',                              &\n                   Ptr2Data = State_Diag%ProdHg2fromHg0,                     &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHgBrPlusBr2',                      &\n                   Ptr2Data = State_Diag%ProdHg2fromHgBrPlusBr2,             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHgBrPlusBrBrO',                    &\n                   Ptr2Data = State_Diag%ProdHg2fromHgBrPlusBrBrO,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHgBrPlusBrClO',                    &\n                   Ptr2Data = State_Diag%ProdHg2fromHgBrPlusBrClO,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHgBrplusBrHO2',                    &\n                   Ptr2Data = State_Diag%ProdHg2fromHgBrPlusBrHO2,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHgBrplusBrNO2',                    &\n                   Ptr2Data = State_Diag%ProdHg2fromHgBrPlusBrNO2,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromHgBrPlusBrOH',                     &\n                   Ptr2Data = State_Diag%ProdHg2fromHgBrPlusBrOH,            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromOH',                               &\n                   Ptr2Data = State_Diag%ProdHg2fromOH,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ProdHg2fromO3',                               &\n                   Ptr2Data = State_Diag%ProdHg2fromO3,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ParticulateBoundHg',                          &\n                   Ptr2Data = State_Diag%ParticulateBoundHg,                 &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'ReactiveGaseousHg',                           &\n                   Ptr2Data = State_Diag%ReactiveGaseousHg,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'DryDepRaALT1',                                &\n                   Ptr2Data = State_Diag%DryDepRaALT1,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'DryDepVelForALT1',                            &\n                   Ptr2Data = State_Diag%DryDepVelForALT1,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'SpeciesConcALT1',                             &\n                   Ptr2Data = State_Diag%SpeciesConcALT1,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppIntCounts',                                &\n                   Ptr2Data = State_Diag%KppIntCounts,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppJacCounts',                                &\n                   Ptr2Data = State_Diag%KppJacCounts,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppTotSteps',                                 &\n                   Ptr2Data = State_Diag%KppTotSteps,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppAccSteps',                                 &\n                   Ptr2Data = State_Diag%KppAccSteps,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppRejSteps',                                 &\n                   Ptr2Data = State_Diag%KppRejSteps,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppLuDecomps',                                &\n                   Ptr2Data = State_Diag%KppLuDecomps,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppSubsts',                                   &\n                   Ptr2Data = State_Diag%KppSubsts,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppSmDecomps',                                &\n                   Ptr2Data = State_Diag%KppSmDecomps,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppNegatives',                                &\n                   Ptr2Data = State_Diag%KppNegatives,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'KppNegatives0',                               &\n                   Ptr2Data = State_Diag%KppNegatives0,                      &\n                   RC       = RC                                            )\n\n    IF ( RC /= GC_SUCCESS ) RETURN\n    CALL Finalize( diagId   = 'AirMassColumnFull',                            &\n                   Ptr2Data = State_Diag%AirMassColumnFull,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'AirMassColumnTrop',                            &\n                   Ptr2Data = State_Diag%AirMassColumnTrop,                   &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CH4emission',                                 &\n                   Ptr2Data = State_Diag%CH4emission,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CH4massColumnFull',                           &\n                   Ptr2Data = State_Diag%CH4massColumnFull,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CH4massColumnTrop',                           &\n                   Ptr2Data = State_Diag%CH4massColumnTrop,                  &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'OHwgtByAirMassColumnFull',                    &\n                   Ptr2Data = State_Diag%OHwgtByAirMassColumnFull,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'OHwgtByAirMassColumnTrop',                    &\n                   Ptr2Data = State_Diag%OHwgtByAirMassColumnTrop,           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossOHbyCH4columnTrop',                       &\n                   Ptr2Data = State_Diag%LossOHbyCH4columnTrop,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LossOHbyMCFcolumnTrop',                       &\n                   Ptr2Data = State_Diag%LossOHbyMCFcolumnTrop,              &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n\n#ifdef MODEL_GEOS\n    !=======================================================================\n    ! These fields are only used when GC is interfaced to NASA/GEOS\n    !=======================================================================\n    CALL Finalize( diagId   = 'MoninObukhov',                                &\n                   Ptr2Data = State_Diag%MoninObukhov,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'Bry',                                         &\n                   Ptr2Data = State_Diag%Bry,                                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'NOy',                                         &\n                   Ptr2Data = State_Diag%NOy,                                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'Cly',                                         &\n                   Ptr2Data = State_Diag%Cly,                                &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'OrganicCl',                                   &\n                   Ptr2Data = State_Diag%OrganicCl,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'O3_MASS',                                   &\n                   Ptr2Data = State_Diag%O3_MASS,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'GCCTO3',                                   &\n                   Ptr2Data = State_Diag%GCCTO3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'GCCTTO3',                                   &\n                   Ptr2Data = State_Diag%GCCTTO3,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CHEMTOP',                                   &\n                   Ptr2Data = State_Diag%CHEMTOP,                          &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CHEMTROPP',                                 &\n                   Ptr2Data = State_Diag%CHEMTROPP,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CONVCLDTOP',                                &\n                   Ptr2Data = State_Diag%CONVCLDTOP,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EXTRALNLEVS',                               &\n                   Ptr2Data = State_Diag%EXTRALNLEVS,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'EXTRALNITER',                               &\n                   Ptr2Data = State_Diag%EXTRALNITER,                      &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'LightningPotential',                        &\n                   Ptr2Data = State_Diag%LIGHTNINGPOTENTIAL,               &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'O3concAfterChem',                             &\n                   Ptr2Data = State_Diag%O3concAfterChem,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'RO2concAfterChem',                             &\n                   Ptr2Data = State_Diag%RO2concAfterChem,                    &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25ni',                                      &\n                   Ptr2Data = State_Diag%PM25ni,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25nit',                                     &\n                   Ptr2Data = State_Diag%PM25nit,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25nh4',                                     &\n                   Ptr2Data = State_Diag%PM25nh4,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25su',                                      &\n                   Ptr2Data = State_Diag%PM25su,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25oc',                                      &\n                   Ptr2Data = State_Diag%PM25oc,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25bc',                                      &\n                   Ptr2Data = State_Diag%PM25bc,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25ss',                                      &\n                   Ptr2Data = State_Diag%PM25ss,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25du',                                      &\n                   Ptr2Data = State_Diag%PM25du,                             &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PM25soa',                                     &\n                   Ptr2Data = State_Diag%PM25soa,                            &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TotCol',                                      &\n                   Ptr2Data = State_Diag%TotCol,                             &\n                   mapData  = State_Diag%Map_TotCol,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'TropCol',                                     &\n                   Ptr2Data = State_Diag%TropCol,                            &\n                   mapData  = State_Diag%Map_TropCol,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'PblCol',                                      &\n                   Ptr2Data = State_Diag%PblCol,                             &\n                   mapData  = State_Diag%Map_PblCol,                         &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'CO2photrate',                                 &\n                   Ptr2Data = State_Diag%CO2photrate,                        &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    CALL Finalize( diagId   = 'COincCO2phot',                                &\n                   Ptr2Data = State_Diag%COincCO2phot,                       &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n    !=======================================================================\n    ! These fields are only used when GEOS-Chem\n    ! is interfaced to NASA/GEOS, WRF (as WRF-GC), or CESM\n    !=======================================================================\n    CALL Finalize( diagId   = 'KppError',                                    &\n                   Ptr2Data = State_Diag%KppError,                           &\n                   RC       = RC                                            )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n    !-----------------------------------------------------------------------\n    ! Template for deallocating more arrays, replace xxx with field name\n    !-----------------------------------------------------------------------\n    !IF ( ASSOCIATED( State_Diag%xxx ) ) THEN\n    !   DEALLOCATE( State_Diag%xxx, STAT=RC )\n    !   CALL GC_CheckVar( 'State_Diag%xxx', 2, RC )\n    !   IF ( RC /= GC_SUCCESS ) RETURN\n    !   State_Diag%xxx => NULL()\n    !ENDIF\n\n    !=======================================================================\n    ! Destroy the registry of fields for this module\n    !=======================================================================\n    CALL Registry_Destroy( State_Diag%Registry, State_Diag%RegDict, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not destroy registry object State_Diag%Registry!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Nullify the registry object\n    State_Diag%Registry => NULL()\n\n  END SUBROUTINE Cleanup_State_Diag\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Metadata_State_Diag\n!\n! !DESCRIPTION: Subroutine GET\\_METADATA\\_STATE\\_DIAG retrieves basic\n!  information about each State\\_Diag field.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Metadata_State_Diag( am_I_Root,  metadataID, Found,         &\n                                      RC,         Desc,       Units,         &\n                                      TagId,      Rank,       SrcType,       &\n                                      OutType,    VLoc                      )\n!\n! !USES:\n!\n    USE Charpak_Mod,         ONLY : StrSplit,   To_UpperCase\n    USE DiagList_Mod,        ONLY : IsFullChem, IsCarbon, IsHg\n    USE DiagList_Mod,        ONLY : budgetTopLev_str, budgetBotLev_str\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)            :: am_I_Root\n    CHARACTER(LEN=*),    INTENT(IN)            :: metadataID   ! field ID\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(OUT)           :: Found   ! Item found?\n    INTEGER,             INTENT(OUT)           :: RC      ! Return code\n    CHARACTER(LEN=255),  INTENT(OUT), OPTIONAL :: Desc    ! Long name string\n    CHARACTER(LEN=255),  INTENT(OUT), OPTIONAL :: Units   ! Units string\n    CHARACTER(LEN=255),  INTENT(OUT), OPTIONAL :: TagId   ! Tag wildcard (wc)\n    INTEGER,             INTENT(OUT), OPTIONAL :: Rank    ! # of dimensions\n    INTEGER,             INTENT(OUT), OPTIONAL :: SrcType ! Source type\n    INTEGER,             INTENT(OUT), OPTIONAL :: OutType ! Output type\n    INTEGER,             INTENT(OUT), OPTIONAL :: VLoc    ! Vert placement\n!\n! !REMARKS:\n!  If a diagnostic cannot use a wildcard, then set Tag=''.\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: isDesc,  isUnits,  isRank\n    LOGICAL            :: isVLoc,  isTagged, isSrcType, isOutType\n\n    ! Strings\n    CHARACTER(LEN=5  ) :: TmpWL\n    CHARACTER(LEN=10 ) :: TmpHt,   TmpHt_AllCaps\n    CHARACTER(LEN=255) :: ThisLoc, Name_AllCaps\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC        =  GC_SUCCESS\n    Found     = .TRUE.\n    ErrMsg    = ''\n    TmpHt     = AltAboveSfc\n    ThisLoc   =  &\n         ' -> at Get_Metadata_State_Diag (in Headers/state_diag_mod.F90)'\n\n    ! Optional arguments present?\n    isDesc    = PRESENT( Desc    )\n    isUnits   = PRESENT( Units   )\n    isRank    = PRESENT( Rank    )\n    isSrcType = PRESENT( SrcType )\n    isOutType = PRESENT( OutType )\n    isVLoc    = PRESENT( VLoc    )\n    isTagged  = PRESENT( TagID   )\n\n    ! Set defaults for optional arguments. Assume type and vertical\n    ! location are real (flexible precision) and center unless specified\n    ! otherwise\n    IF ( isUnits   ) Units   = ''\n    IF ( isDesc    ) Desc    = ''\n    IF ( isRank    ) Rank    = -1\n    IF ( isSrcType ) SrcType = KINDVAL_F4      ! Assume real*4\n    IF ( isOutType ) OutType = KINDVAL_F4      ! Assume real*4\n    IF ( isVLoc    ) VLoc   = VLocationCenter  ! Assume vertically centered\n    IF ( isTagged  ) TagID  = ''\n\n    ! Convert to uppercase\n    Name_AllCaps  = To_Uppercase( TRIM( metadataID ) )\n    TmpHt_AllCaps = To_Uppercase( TRIM( TmpHt      ) )\n\n    !=======================================================================\n    ! Values for Retrieval (string comparison slow but happens only once)\n    !=======================================================================\n    IF ( TRIM( Name_AllCaps ) == 'SPECIESRST' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry mixing ratio of species'\n       IF ( isUnits   ) Units = 'mol mol-1 dry'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SPECIESBC' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry mixing ratio of species'\n       IF ( isUnits   ) Units = 'mol mol-1 dry'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SPECIESCONCVV' ) THEN\n       IF ( isDesc    ) Desc  = 'Concentration of species'\n       IF ( isUnits   ) Units = 'mol mol-1 dry'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SPECIESCONCMND' ) THEN\n       IF ( isDesc    ) Desc  = 'Concentration of species'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n#ifdef ADJOINT\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SPECIESADJ' ) THEN\n       IF ( isDesc    ) Desc  = 'Adjoint variable of species'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n#endif\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CONCBEFORECHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'Concentration before chemistry of species'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CONCAFTERCHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'Concentration after chemistry of species'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FRACOFTIMEINTROP' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of time spent in the troposphere'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( INDEX( Name_AllCaps, 'BUDGET' ) == 1 ) THEN\n\n       ! All budget diagnostics have common units, rank, and tag\n#ifdef MODEL_GEOS\n       IF ( isUnits   ) Units = 'kg m-2 s-1'\n#else\n       IF ( isUnits   ) Units = 'kg s-1'\n#endif\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'ADV'\n \n       ! Set description based on diagnostic name\n       IF ( TRIM( Name_AllCaps ) == 'BUDGETEMISDRYDEPFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   'for emissions and dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETEMISDRYDEPTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for emissions and '  // &\n                                   'dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETEMISDRYDEPPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   'in column for emissions and dry '    // &\n                                   'deposition'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETEMISDRYDEPLEVS'            &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '           &\n                                   // TRIM(budgetTopLev_str)                     &\n                                   // ' for emissions and dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETTRANSPORTFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   'for transport'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETTRANSPORTTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for transport'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETTRANSPORTPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   ' in column for transport'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETTRANSPORTLEVS'             &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column  levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '            &\n                                   // TRIM(budgetTopLev_str) // ' for transport'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETDRYDEPFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   'for dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETDRYDEPTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETDRYDEPPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   ' in column for dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETDRYDEPLEVS'                &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '           &\n                                   // TRIM(budgetTopLev_str) // ' for dry deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETMIXINGFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   'for mixing'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETMIXINGTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for mixing'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETMIXINGPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   ' in column for mixing'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETMIXINGLEVS'                &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '           &\n                                   // TRIM(budgetTopLev_str) // ' for mixing'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCONVECTIONFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   'for convection'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCONVECTIONTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for convection'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCONVECTIONPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   ' in column for convection'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCONVECTIONLEVS'            &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '           &\n                                   // TRIM(budgetTopLev_str) // ' for convection'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCHEMISTRYFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   ' for chemistry'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCHEMISTRYTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for chemistry'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCHEMISTRYPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   ' in column for chemistry'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETCHEMISTRYLEVS'             &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '           &\n                                   // TRIM(budgetTopLev_str) // ' for chemistry'\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETWETDEPFULL' ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column ' // &\n                                   'for wet deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETWETDEPTROP' ) THEN\n          IF ( isDesc    ) Desc  = 'Troposphere-only total mass rate of ' // &\n                                   'change in column for wet deposition'\n       \n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETWETDEPPBL' ) THEN\n          IF ( isDesc    ) Desc  = 'PBL-only total mass rate of change ' // &\n                                   ' in column for wet deposition '\n\n       ELSE IF ( TRIM( Name_AllCaps ) == 'BUDGETWETDEPLEVS'                &\n                                         // TRIM(budgetBotLev_str) // 'TO' &\n                                         // TRIM(budgetTopLev_str) ) THEN\n          IF ( isDesc    ) Desc  = 'Total mass rate of change in column levels ' &\n                                   // TRIM(budgetBotLev_str) // ' to '           &\n                                   // TRIM(budgetTopLev_str) // ' for wet deposition'\n\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DRYDEPCHM' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition flux of species, from chemistry'\n       IF ( isUnits   ) Units = 'molec cm-2 s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRY'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DRYDEPMIX' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition flux of species, from mixing'\n       IF ( isUnits   ) Units = 'molec cm-2 s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRY'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DRYDEP' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition flux of species'\n       IF ( isUnits   ) Units = 'molec cm-2 s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRY'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DRYDEPVEL' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition velocity of species'\n       IF ( isUnits   ) Units = 'cm s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRY'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ISWATER' ) THEN\n       IF ( isDesc    ) Desc  = 'Water mask including lakes and oceans'\n       IF ( isUnits   ) Units = '.'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ISLAND' ) THEN\n       IF ( isDesc    ) Desc  = 'Land mask excluding ice and snow'\n       IF ( isUnits   ) Units = '.'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ISICE' ) THEN\n       IF ( isDesc    ) Desc  = 'Ice mask including over land and ocean'\n       IF ( isUnits   ) Units = '.'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ISSNOW' ) THEN\n       IF ( isDesc    ) Desc  = 'Snow mask over land only'\n       IF ( isUnits   ) Units = '.'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNDRYDEP' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition flux of species'\n       IF ( isUnits   ) Units = 'molec cm-2 s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRY'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNDRYDEPVEL' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition velocity of species'\n       IF ( isUnits   ) Units = 'cm s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRY'       \n\n#ifdef MODEL_GEOS\n    ELSE IF ( TRIM( Name_AllCaps ) == 'MONINOBUKHOV' ) THEN\n       IF ( isDesc    ) Desc  = 'Monin-Obukhov length'\n       IF ( isUnits   ) Units = 'm'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'BRY' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'inorganic_bromine_=_2xBr2_Br_BrO_HOBr_HBr_BrNO2_BrNO3_BrCl_IBr'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'NOY' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Reactive_nitrogen_=_NO_NO2_HNO3_HNO4_HONO_2xN2O5_PAN_OrganicNitrates_AerosolNitrates'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CLY' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Inorganic_chlorine_=_Cl_ClO_OClO_ClOO_HOCl_HCl_ClNO2_ClNO3_BrCl_ICl_2xCl2_2xCl2O2'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ORGANICCL' ) THEN\n       IF ( isDesc    ) Desc  = &\n            '4CCl4_H1211_3CFC11_3CFC113_2CFC114_CFC115_2CFC12_3CH3CCl3_CH3Cl_2HCFC141b_HCFC142b_HCFC22_2HCFC123_3CHCl3_2CH2Cl2_CH2ICl'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'O3_MASS' ) THEN\n       IF ( isDesc    ) Desc  = 'O3_grid_cell_mass_per_area'\n       IF ( isUnits   ) Units = 'kg m-2'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'GCCTO3' ) THEN\n       IF ( isDesc    ) Desc  = 'Ozone_(O3,_MW_=_48.00_g_mol-1)_total_column_density'\n       IF ( isUnits   ) Units = 'dobsons'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'GCCTTO3' ) THEN\n       IF ( isDesc    ) Desc  = 'Ozone_(O3,_MW_=_48.00_g_mol-1)_tropospheric_column_density'\n       IF ( isUnits   ) Units = 'dobsons'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CHEMTOP' ) THEN\n       IF ( isDesc    ) Desc  = 'chemistry_grid_top_level'\n       IF ( isUnits   ) Units = 'unitless'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CHEMTROPP' ) THEN\n       IF ( isDesc    ) Desc  = 'Tropopause_used_by_GEOS-Chem_chemistry'\n       IF ( isUnits   ) Units = 'Pa'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CONVCLDTOP' ) THEN\n       IF ( isDesc    ) Desc  = 'Convective_cloud_top_level_as_seen_by_GEOS-Chem'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EXTRALNLEVS' ) THEN\n       IF ( isDesc    ) Desc  = 'FAST-JX_EXTRAL_layers'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EXTRALNITER' ) THEN\n       IF ( isDesc    ) Desc  = 'FAST-JX_EXTRAL_iterations'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LIGHTNINGPOTENTIAL' ) THEN\n       IF ( isDesc    ) Desc  = 'Lightning_potential'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n#endif\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'JVAL' ) THEN\n       IF ( isDesc    ) Desc  = 'Photolysis rate for species'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'PHO'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'JVALO3O1D' ) THEN\n       IF ( isDesc    ) Desc  = 'Photolysis rate for O3 -> O1D'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'JVALO3O3P' ) THEN\n       IF ( isDesc    ) Desc  = 'Photolysis rate for O3 -> O3P'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNJVAL' ) THEN\n       IF ( isDesc    ) Desc  = 'Photolysis rate for species'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'PHO'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNJVALO3O1D' ) THEN\n       IF ( isDesc    ) Desc  = 'Photolysis rate for O3 -> O1D'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNJVALO3O3P' ) THEN\n       IF ( isDesc    ) Desc  = 'Photolysis rate for O3 -> O3P'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'JNOON' ) THEN\n       IF ( isDesc    ) Desc  = 'Noontime photolysis rate for species'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'PHO'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'JNOONFRAC' ) THEN\n       IF ( isDesc    ) Desc  = &\n       'Fraction of the time when local noon occurred at each surface location'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RXNRATE' ) THEN\n       IF ( isDesc    ) Desc  = 'KPP equation reaction rates'\n       IF ( isUnits   ) Units = 'molec cm-3 s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'RXN'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNRXNRATE' ) THEN\n       IF ( isDesc    ) Desc  = 'KPP equation reaction rates'\n       IF ( isUnits   ) Units = 'molec cm-3 s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'RXN'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RXNCONST' ) THEN\n       IF ( isDesc    ) Desc  = 'KPP equation reaction rate constants'\n       IF ( isUnits   ) Units = '(cm3 molec-1)**(nreactants - 1) s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'RXN'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'OHREACTIVITY' ) THEN\n       IF ( isDesc    ) Desc  = 'OH reactivity'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3\n\n#ifdef MODEL_GEOS\n    ELSE IF ( TRIM( Name_AllCaps ) == 'NOXTAU' ) THEN\n       IF ( isDesc    ) Desc  = 'NOx (NO+NO2+NO3+2xN2O5+ClNO2+HNO2+HNO4) chemical lifetime'\n       IF ( isUnits   ) Units = 'h'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TROPNOXTAU' ) THEN\n       IF ( isDesc    ) Desc  = 'Tropospheric NOx (NO+NO2+NO3+2xN2O5+ClNO2+HNO2+HNO4) chemical lifetime'\n       IF ( isUnits   ) Units = 'h'\n       IF ( isRank    ) Rank  = 2\n#endif\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNOHREACTIVITY' ) THEN\n       IF ( isDesc    ) Desc  = 'OH reactivity'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  = 3       \n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'UVFLUXDIFFUSE' ) THEN\n       IF ( isDesc    ) Desc  = 'Diffuse UV flux in bin'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'UVFLX'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'UVFLUXDIRECT' ) THEN\n       IF ( isDesc    ) Desc  = 'Direct UV flux in bin'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'UVFLX'\n\n    ELSEIF ( TRIM( Name_AllCaps ) == 'UVFLUXNET' ) THEN\n       IF ( isDesc    ) Desc  = 'Net UV flux in bin'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'UVFLX'\n\n    ELSEIF ( TRIM( Name_AllCaps ) == 'OD600' ) THEN\n       IF ( isDesc    ) Desc  = 'Optical depth at 600 nm used for photolysis rates'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSEIF ( TRIM( Name_AllCaps ) == 'TCOD600' ) THEN\n       IF ( isDesc    ) Desc  = 'Total column optical depth at 600 nm used for photolysis rates'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ADVFLUXZONAL' ) THEN\n       IF ( isDesc    ) Desc  = 'Advection of species in zonal direction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ADVFLUXMERID' ) THEN\n       IF ( isDesc    ) Desc  = 'Advection of species in meridional direction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ADVFLUXVERT' ) THEN\n       IF ( isDesc    ) Desc  = 'Advection of species in vertical direction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PBLMIXFRAC' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Fraction of boundary layer occupied by each level'\n       IF ( isUnits   ) Units = 'placeholder'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PBLFLUX' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Species mass change due to boundary-layer mixing'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CLOUDCONVFLUX' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass change due to cloud convection'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'WETLOSSCONVFRAC' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Fraction of soluble species lost in convective updrafts'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'WETLOSSCONV' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of soluble species in convective updrafts'\n#ifdef MODEL_GEOS\n       IF ( isUnits   ) Units = 'kg m-2 s-1'\n#else\n       IF ( isUnits   ) Units = 'kg s-1'\n#endif\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNWETLOSSCONV' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of soluble species in convective updrafts'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRECIPFRACCONV' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of grid box undergoing ' // &\n                                'convective precipitation'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RAINFRACCONV' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of soluble species lost to ' // &\n                                'rainout in convective precipitation'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'WASHFRACCONV' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of soluble species lost to ' // &\n                                'washout in convective precipitation'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'WETLOSSLS' ) THEN\n       IF ( isDesc    ) Desc  = 'Loss of soluble species in large-scale ' // &\n                                'precipitation'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNWETLOSSLS' ) THEN\n       IF ( isDesc    ) Desc  = 'Loss of soluble species in large-scale ' // &\n                                'precipitation'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRECIPFRACLS' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of grid box undergoing ' // &\n                                'large-scale precipitation'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RAINFRACLS' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of soluble species lost to ' // &\n                                'rainout in large-scale precipitation'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'WASHFRACLS' ) THEN\n       IF ( isDesc    ) Desc  = 'Fraction of soluble species lost to ' // &\n                                'washout in large-scale precipitation'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'WET'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PBFROMRNDECAY' ) THEN\n       IF ( isDesc    ) Desc  = 'Pb210 created from radioactive decay ' // &\n                                'of Rn222'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADDECAY' ) THEN\n       IF ( isDesc    ) Desc  = 'Radioactive decay of radionuclide species'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNCONC' ) THEN\n       IF ( isDesc    ) Desc  = 'Dry mixing ratio of species'\n       IF ( isUnits   ) Units = 'mol mol-1 dry'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'ALL'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNCOLEMIS' ) THEN\n       IF ( isDesc    ) Desc  = 'Column Emissions for Advected Species'\n       IF ( isUnits   ) Units = 'kg m-2 s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'ADV'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNSURFFLUX' ) THEN\n       IF ( isDesc    ) Desc  = 'Total Surface Fluxes (EFLX (emis) - DFLX (drydep)); from Surface to Top of PBL) for Advected Species'\n       IF ( isUnits   ) Units = 'kg m-2 s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'ADV'       \n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNOH' ) THEN\n       IF ( isDesc    ) Desc  = 'OH number density'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNRH' ) THEN\n       IF ( isDesc    ) Desc  = 'Relative humidity'\n       IF ( isUnits   ) Units = '%'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNAIRDEN' ) THEN\n       IF ( isDesc    ) Desc  = 'Air density'\n       IF ( isUnits   ) Units = 'molec/cm3'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNBOXHEIGHT' ) THEN\n       IF ( isDesc    ) Desc  = 'Box height'\n       IF ( isUnits   ) Units = 'm'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPEDGE' ) THEN\n       IF ( isDesc    ) Desc  = 'Pressure edges'\n       IF ( isUnits   ) Units = 'hPa'\n       IF ( isRank    ) Rank  = 3\n       IF ( isVLoc    ) VLoc  = VLocationEdge\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPMID' ) THEN\n       IF ( isDesc    ) Desc  = 'Pressure at level midpoints'\n       IF ( isUnits   ) Units = 'hPa'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNTROPP' ) THEN\n       IF ( isDesc    ) Desc  = 'Tropopause pressure'\n       IF ( isUnits   ) Units = 'hPa'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNTROPLEV' ) THEN\n       IF ( isDesc    ) Desc  = 'Tropopause level'\n       IF ( isUnits   ) Units = 'unitless'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPBLHEIGHT' ) THEN\n       IF ( isDesc    ) Desc  = 'PBL Height'\n       IF ( isUnits   ) Units = 'm'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPBLTOP' ) THEN\n       IF ( isDesc    ) Desc  = 'PBL Top'\n       IF ( isUnits   ) Units = 'm'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNTAIR' ) THEN\n       IF ( isDesc    ) Desc  = 'Air temperature'\n       IF ( isUnits   ) Units = 'K'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNCLDFRAC' ) THEN\n       IF ( isDesc    ) Desc  = '3D cloud fractions'\n       IF ( isUnits   ) Units = 'unitless'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNCLDTOPP' ) THEN\n       IF ( isDesc    ) Desc  = 'Cloud top pressure'\n       IF ( isUnits   ) Units = 'hPa'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNGWETROOT' ) THEN\n       IF ( isDesc    ) Desc  = 'Root Zone Soil Moisture (or Wetness)'\n       IF ( isUnits   ) Units = 'Fraction'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNGWETTOP' ) THEN\n       IF ( isDesc    ) Desc  = 'Topsoil Moisture (or Wetness)'\n       IF ( isUnits   ) Units = 'Fraction'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPARDR' ) THEN\n       IF ( isDesc    ) Desc  = 'Direct Photosynthetically Active Radiation'\n       IF ( isUnits   ) Units = 'W/m2'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPARDF' ) THEN\n       IF ( isDesc    ) Desc  = 'Diffuse Photosynthetically Active Radiation'\n       IF ( isUnits   ) Units = 'W/m2'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPRECTOT' ) THEN\n       IF ( isDesc    ) Desc  = 'Total Precipitation (at surface)'\n       IF ( isUnits   ) Units = 'mm/day'\n       IF ( isRank    ) Rank  = 2       \n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNSLP' ) THEN\n       IF ( isDesc    ) Desc  = 'Sea Level Pressure'\n       IF ( isUnits   ) Units = 'hPa'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNSPHU' ) THEN\n       IF ( isDesc    ) Desc  = 'Specific Humidity Interpolated to Current Time'\n       IF ( isUnits   ) Units = 'g H2O/kg air'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNTS' ) THEN\n       IF ( isDesc    ) Desc  = 'Surface Temperature at 2m'\n       IF ( isUnits   ) Units = 'K'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPBLTOPL' ) THEN\n       IF ( isDesc    ) Desc  = 'PBL Top Height'\n       IF ( isUnits   ) Units = 'Levels'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNMODISLAI' ) THEN\n       IF ( isDesc    ) Desc  = 'MODIS Daily LAI'\n       IF ( isUnits   ) Units = 'm2/m2'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADALLSKYLWSURF' ) THEN\n       IF ( isDesc    ) Desc  = 'All-sky long-wave radiation at surface'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADALLSKYLWTOA' ) THEN\n       IF ( isDesc    ) Desc  = 'All-sky long-wave radiation at top of ' // &\n                                'atmosphere'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSEIF ( TRIM( Name_AllCaps ) == 'RADALLSKYSWSURF' ) THEN\n       IF ( isDesc    ) Desc  = 'All-sky short-wave radiation at surface'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADALLSKYSWTOA ' ) THEN\n       IF ( isDesc    ) Desc  = 'All-sky short-wave radiation at top of ' // &\n                                'atmosphere'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADCLRSKYLWSURF' ) THEN\n       IF ( isDesc    ) Desc  = 'Clear-sky long-wave radiation at surface'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADCLRSKYLWTOA ' ) THEN\n       IF ( isDesc    ) Desc  = 'Clear-sky long-wave radiation at top of ' // &\n                                'atmosphere'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADCLRSKYSWSURF' ) THEN\n       IF ( isDesc    ) Desc  = 'Clear-sky short-wave radiation at surface'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADCLRSKYSWTOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Clear-sky short-wave radiation at top ' // &\n                                'of atmosphere'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADALLSKYLWTROP' ) THEN\n       IF ( isDesc    ) Desc  = 'All-sky long-wave radiation at the ' // &\n                                'tropopause'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADALLSKYSWTROP' ) THEN\n       IF ( isDesc    ) Desc  = 'All-sky short-wave radiation at the ' // &\n                                'tropopause'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADCLRSKYLWTROP' ) THEN\n       IF ( isDesc    ) Desc  = 'Clear-sky long-wave radiation at the ' // &\n                                'tropopause'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADCLRSKYSWTROP' ) THEN\n       IF ( isDesc    ) Desc  = 'Clear-sky short-wave radiation at the ' // &\n                                'tropopause'\n       IF ( isUnits   ) Units = 'W m-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADAOD' // TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Aerosol optical depth at ' // &\n                                TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADAOD' // TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Aerosol optical depth at ' // &\n                                TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADAOD' // TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Aerosol optical depth at ' // &\n                                TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADSSA' // TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Single scattering albedo at ' // &\n                                TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADSSA' // TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Single scattering albedo at ' // &\n                                TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADSSA' // TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Single scattering albedo at ' // &\n                                TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADASYM' // TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Asymmetry parameter at ' // &\n                                TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADASYM' // TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Asymmetry parameter at ' // &\n                                TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RADASYM' // TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Asymmetry parameter at ' // &\n                                TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'RRTMG'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DYNHEATING' ) THEN\n       IF ( isDesc    ) Desc  = 'Dynamical heating rate ' // &\n                                'in baseline simulation'\n       IF ( isUnits   ) Units = 'K day-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DTRAD' ) THEN\n       IF ( isDesc    ) Desc  = 'Temperature change due ' // &\n                                'to radiative heating'\n       IF ( isUnits   ) Units = 'K'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODBCPIFROMBCPO' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of hydrophilic black carbon ' // &\n                                'from hydrophobic black carbon'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODOCPIFROMOCPO' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of hydrophilic organic ' // &\n                                'carbon from hydrophobic organic carbon'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'OHCONCAFTERCHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'OH concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n\n#ifdef MODEL_GEOS\n    ELSE IF ( TRIM( Name_AllCaps ) == 'O3CONCAFTERCHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'O3 concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'RO2CONCAFTERCHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'Peroxy radical concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n#endif\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HO2CONCAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HO2 concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'O1DCONCAFTERCHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'O1D concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'O3PCONCAFTERCHEM' ) THEN\n       IF ( isDesc    ) Desc  = 'O3P concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CH4PSEUDOFLUX' ) THEN\n       IF ( isDesc    ) Desc  = 'CH4 pseudo-flux balancing chemistry'\n       IF ( isUnits   ) Units = 'kg m-2 s-1'\n       IF ( isRank    ) Rank  = 2\n\n#if defined( MODEL_GEOS ) || defined( MODEL_WRF ) || defined( MODEL_CESM )\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPERROR' ) THEN\n       IF ( isDesc    ) Desc  = 'KppError'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  = 3\n#endif\n\n#ifdef TOMAS\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASH2SO4MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASH2SO4 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASH2SO4NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASH2SO4 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASCOAGMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASCOAG Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASCOAGNUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASCOAG Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASNUCRATEFN' ) THEN\n       IF ( isDesc    ) Desc  = 'TOMAS Nucleation Rate'\n       IF ( isUnits   ) Units = 'number cm-3 s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASNUCLMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASNUCL Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASNUCLNUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASNUCL Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASNUCRATENUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASNUCL Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASAQOXMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASAQOX Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASAQOXNUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASAQOX Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId   = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIX Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXNUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIX Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXH2SO4MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXH2SO4 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXH2SO4NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXH2SO4 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCOAGMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCOAG Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCOAGNUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXAQOX Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXAQOXMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXAQOX Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXAQOXNUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCOND Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXEZWAT1MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXEZWAT1 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXEZWAT1NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXEZWAT1 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXEZWAT2MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXEZWAT2 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXEZWAT2NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXEZWAT2 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXEZWAT3MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXEZWAT3 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXEZWAT3NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXEZWAT3 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCHECK1MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCHECK1 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCHECK1NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCHECK1 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCHECK2MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCHECK2 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCHECK2NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCHECK2 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCHECK3MASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCHECK3 Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASMNFIXCHECK3NUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASMNFIXCHECK3 Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASSOAMASS'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASSOA Rate'\n       IF ( isUnits   ) Units = 'kg kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'TOMASSOANUMBER'  ) THEN\n       IF ( isDesc    ) Desc  = 'TOMASSOA Rate'\n       IF ( isUnits   ) Units = 'number kg-1 s-1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'TOMASBIN'\n#endif\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODDUST' ) THEN\n       IF ( isDesc    ) Desc  = 'Optical depth for mineral dust'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODDUST' // TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc    = 'Optical depth for dust at ' // &\n                                   TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units   = '1'\n       IF ( isRank    ) Rank    =  3\n       IF ( isTagged  ) TagId   = 'DUSTBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODDUST' // TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc    = 'Optical depth for dust at ' // &\n                                   TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units   = '1'\n       IF ( isRank    ) Rank    =  3\n       IF ( isTagged  ) TagId   = 'DUSTBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODDUST' // TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc    = 'Optical depth for dust at ' // &\n                                   TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units   = '1'\n       IF ( isRank    ) Rank    =  3\n       IF ( isTagged  ) TagId   = 'DUSTBIN'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODHYG' // TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  =  'Optical depth for hygroscopic aerosol ' // &\n                                 'at ' // TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'HYG'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODHYG' // TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  =  'Optical depth for hygroscopic aerosol ' // &\n                                 'at ' // TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'HYG'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODHYG' // TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  =  'Optical depth for hygroscopic aerosol ' // &\n                                 'at ' // TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'HYG'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODSOAFROMAQISOPRENE' //  &\n                                    TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Optical depth for SOA from aqueous ' // &\n                                'isoprene at ' // TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODSOAFROMAQISOPRENE' // &\n                                    TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Optical depth for SOA from aqueous ' // &\n                                'isoprene at ' // TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODSOAFROMAQISOPRENE' // &\n                                    TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Optical depth for SOA from aqueous ' // &\n                                'isoprene at ' // TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODSTRATLIQUIDAER'// &\n                                    TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Stratospheric liquid aerosol optical ' // &\n                                'depth at ' // TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODSTRATLIQUIDAER'// &\n                                    TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Stratospheric liquid aerosol optical ' // &\n                                'depth at ' // TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODSTRATLIQUIDAER'// &\n                                    TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Stratospheric liquid aerosol optical ' // &\n                                'depth at ' // TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODPOLARSTRATCLOUD'// &\n                                    TRIM(RadWL(1)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Polar stratospheric cloud type 1a/2 ' // &\n                                'optical depth at ' // TRIM(RadWL(1)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODPOLARSTRATCLOUD'// &\n                                    TRIM(RadWL(2)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Polar stratospheric cloud type 1a/2 ' // &\n                                'optical depth at ' // TRIM(RadWL(2)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AODPOLARSTRATCLOUD'// &\n                                    TRIM(RadWL(3)) // 'NM' ) THEN\n       IF ( isDesc    ) Desc  = 'Polar stratospheric cloud type 1a/2 ' // &\n                                'optical depth at ' // TRIM(RadWL(3)) // ' nm'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERHYGROSCOPICGROWTH' ) THEN\n       IF ( isDesc    ) Desc  = 'Hygroscopic growth of aerosol species'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'HYG'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERAQUEOUSVOLUME' ) THEN\n       IF ( isDesc    ) Desc  = 'Aqueous aerosol volume'\n       IF ( isUnits   ) Units = 'cm3 cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERSURFAREADUST' ) THEN\n       IF ( isDesc    ) Desc  = 'Surface area of mineral dust'\n       IF ( isUnits   ) Units = 'cm2 cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERSURFAREAHYG' ) THEN\n       IF ( isDesc    ) Desc  = 'Surface area of aerosol species'\n       IF ( isUnits   ) Units = 'cm2 cm-3'\n       IF ( isRank    ) Rank  =  3\n       IF ( isTagged  ) TagId = 'HYG'\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERSURFAREASTRATLIQUID' ) THEN\n       IF ( isDesc    ) Desc  = 'Stratospheric liquid surface area'\n       IF ( isUnits   ) Units = 'cm2 cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERSURFAREAPOLARSTRATCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Polar stratospheric cloud type 1a/2 ' // &\n                                'surface area'\n       IF ( isUnits   ) Units = 'cm2 cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERNUMDENSITYSTRATLIQUID' ) THEN\n       IF ( isDesc    ) Desc  = 'Stratospheric liquid aerosol number density'\n       IF ( isUnits   ) Units = '# cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM(Name_AllCaps) == 'AERNUMDENSITYSTRATPARTICULATE' ) THEN\n       IF ( isDesc    ) Desc  = 'Stratospheric particulate aerosol ' // &\n                                'number density'\n       IF ( isUnits   ) Units = '# cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25' ) THEN\n       IF ( isDesc    ) Desc  = 'Particulate matter with radii < 2.5 um'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n!zhaisx\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM10' ) THEN\n       IF ( isDesc    ) Desc  = 'Particulate matter with radii < 10 um'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n! H. Zhu\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PDER' ) THEN\n       IF ( isDesc    ) Desc  = 'Paremeterized Effective Radius for SNA and OM'\n       IF ( isUnits   ) Units = 'um'\n       IF ( isRank    ) Rank  =  3\n\n#ifdef MODEL_GEOS\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25NI' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, nitrates and ammonium'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25NIT' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, nitrate'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25NH4' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, ammonium'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25SU' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, sulfates'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25OC' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, organic carbon'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25BC' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, black carbon'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25DU' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, dust'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25SS' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, sea salt'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PM25SOA' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Particulate matter with radii < 2.5 um, SOA'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TOTCOL' ) THEN\n       IF ( isDesc    ) Desc  = 'total column density of species'\n       IF ( isUnits   ) Units = '1.0e15 molec cm-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'ALL'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TROPCOL' ) THEN\n       IF ( isDesc    ) Desc  = 'tropospheric column density of species'\n       IF ( isUnits   ) Units = '1.0e15 molec cm-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'ALL'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PBLCOL' ) THEN\n       IF ( isDesc    ) Desc  = 'boundary layer column density of species'\n       IF ( isUnits   ) Units = '1.0e15 molec cm-2'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'ALL'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'COINCCO2PHOT' ) THEN\n       IF ( isDesc    ) Desc  = 'Relative change of CO due to CO2 photolysis'\n       IF ( isUnits   ) Units = '1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CO2PHOTRATE' ) THEN\n       IF ( isDesc    ) Desc  = 'CO2 photolysis rate' \n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  =  3\n#endif\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TERPENESOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Monoterpene and sesqiterpene SOA'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'ISOPRENESOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Isoprene (biogenic) SOA from either ' // &\n                                'semivolatile partitioning or ' // &\n                                'irreversible uptake'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AROMATICSOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Aromatic and intermediate volatility ' // &\n                                '(anthropogenic) SOA'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNLOSS' ) THEN\n       IF ( IsDesc    ) Desc  = 'Chemical loss of'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'LOS'\n\n       ! NOTE: Units are different depending on simulation, due to historical\n       ! baggage.  Maybe clean this up at a later point to use the same units\n       ! regardless of simulation type. (bmy, 12/4/17)\n       IF ( isUnits   ) THEN\n          IF ( IsFullChem ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSS' ) THEN\n       IF ( IsDesc    ) Desc  = 'Chemical loss of'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'LOS'\n\n       ! NOTE: Prod/Loss units for simulations with KPP are molec/cm3/s,\n       ! and are currently kg/s for other specialty simulations.\n       ! This will need to be cleaned up later (Bob Yantosca, 22 Aug 2020).\n       IF ( isUnits   ) THEN\n          IF ( IsFullChem .or. IsHg .or. IsCarbon ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SATDIAGNPROD' ) THEN\n       IF ( isDesc    ) Desc  = 'Chemical production of'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'PRD'\n\n       ! NOTE: Units are different depending on simulation, due to historical\n       ! baggage.  Maybe clean this up at a later point to use the same units\n       ! regardless of simulation type. (bmy, 12/4/17)\n       IF ( isUnits   ) THEN\n          IF ( IsFullChem ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PROD' ) THEN\n       IF ( isDesc    ) Desc  = 'Chemical production of'\n       IF ( isRank    ) Rank  = 3\n       IF ( isTagged  ) TagId = 'PRD'\n\n       ! NOTE: Prod/Loss units for simulations with KPP are molec/cm3/s,\n       ! and are currently kg/s for other specialty simulations.\n       ! This will need to be cleaned up later (Bob Yantosca, 22 Aug 2020).\n       IF ( isUnits   ) THEN\n          IF ( IsFullChem .or. IsHg .or. IsCarbon ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO2FROMDMSANDOH' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO2 from DMS+OH reaction'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO2FROMDMSANDNO3' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO2 from DMS+NO3 reaction'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO2FROMDMS' ) THEN\n       IF ( isDesc    ) Desc  = 'Total production of SO2 from DMS'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODMSAFROMDMS' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of MSA from DMS'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMGASPHASE' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from gas phase reactions'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMH2O2INCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from aqueous ' // &\n                                'oxidation of H2O2 in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMO3INCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from aqueous ' // &\n                                'oxidation of O3 in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMHOBRINCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from aqueous ' // &\n                                'oxidation of HOBr in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMO2INCLOUDMETAL' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Production of SO4 from aqueous oxidation of O2 metal-catalyzed'\n       IF ( isUnits   ) Units = 'kg S'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMO3INSEASALT' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from O3 in sea ' // &\n                                'salt aerosols'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMOXIDATIONONDUST' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from oxidation on ' // &\n                                'dust aerosols'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODNITFROMHNO3UPTAKEONDUST' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of NIT from HNO3 uptake ' // &\n                                'on dust aerosols'\n       IF ( isUnits   ) Units = 'kg N s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMUPTAKEOFH2SO4G' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from uptake of H2SO4(g)'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMSRO3' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 by SRO3'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMSRHOBR' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from SRHOBr'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMO3S' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from O3s'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSHNO3ONSEASALT' ) THEN\n       IF ( isDesc    ) Desc  = 'Loss of HNO3 on sea salt aerosols'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSASOA' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Mass of aerosol products of light aromatics + IVOC oxidation'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSBC' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of black carbon aerosol (OA:OC=2.1)'\n       IF ( isUnits   ) Units = 'ug C m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSINDIOL' ) THEN\n       IF ( isDesc    ) Desc  = &\n       'Aerosol mass of generic aerosol-phase organonitrate hydrolysis product'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSISN1OA' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of aerosol-phase 2nd generation hydroxynitrates formed from ISOP+NO3 reaction pathway'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSLVOCOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of aerosol-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation '\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSNH4' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of NH4 aerosol'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSNIT' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of inorganic nitrate aerosols'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSOPOA' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Mass of lumped aerosol primary SVOCs (OA:OC=2.1)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSPOA' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Mass of lumped aerosol primary SVOCs (OA:OC=2.1)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSSAL' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Mass of total seasalt aerosol (accumulation + coarse)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSSO4' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of sulfate aerosol'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSSOAGX' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of aerosol-phase glyoxal'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSSOAIE' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of aerosol-phase IEPOX (isoprene epoxide)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSTSOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of aerosol products of terpene oxidation'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'BETANO' ) THEN\n       IF ( isDesc    ) Desc  = 'Beta NO branching ratio'\n       IF ( isUnits   ) Units = 'ug C m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TOTALBIOGENICOA' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Sum of all biogenic organic aerosol (OA:OC=2.1)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TOTALOA' ) THEN\n       IF ( isDesc    ) Desc  = 'Sum of all organic aerosol (OA:OC=2.1)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'TOTALOC' ) THEN\n       IF ( isDesc    ) Desc  = 'Sum of all organic carbon (OA:OC=2.1)'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPINTCOUNTS' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of calls to KPP integrator'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPJACCOUNTS' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of times KPP updated the Jacobian'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPTOTSTEPS' ) THEN\n       IF ( isDesc    ) Desc  = 'Total number of KPP internal timesteps'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPACCSTEPS' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of accepted KPP internal timesteps'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPREJSTEPS' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of rejected KPP internal timesteps'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPLUDECOMPS' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of KPP LU-decompositions'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPSUBSTS' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Number of KPP forward and backward matrix substitutions'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPSMDECOMPS' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of KPP singular matrix decompositions'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPNEGATIVES' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of negative concentrations after KPP integration'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPNEGATIVES0' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of negative concentrations after first KPP integration attempt'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPAUTOREDUCERNVAR' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of species in auto-reduced mechanism'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPAUTOREDUCETHRES' ) THEN\n       IF ( isDesc    ) Desc  = 'Auto-reduction threshold'\n       IF ( isUnits   ) Units = 'molecules cm-3 s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPCNONZERO' ) THEN\n       IF ( isDesc    ) Desc  = 'Number of nonzero elements in LU decomposition AR only'\n       IF ( isUnits   ) Units = 'count'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'KPPTIME' ) THEN\n       IF ( isDesc    ) Desc  = 'Time KPP spent in grid box'\n       IF ( isUnits   ) Units = 's'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSPOPPOCPOBYGASPHASE' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of POPPOCPO species by gas-phase reactions'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPOCPOFROMGASPHASE' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPOCPO species by gas-phase reactions'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSPOPPBCPOBYGASPHASE' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of POPPBCPO species by gas-phase reactions'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPBCPOFROMGASPHASE' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPBCPO species by gas-phase reactions'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPGFROMOH' ) THEN\n       IF ( isDesc    ) Desc  = 'Prod of POPG species from reaction with OH'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPOCPOFROMO3' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPOCPO species from reaction with O3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPOCPIFROMO3' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPOCPI species from reaction with O3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPBCPOFROMO3' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPBCPO species from reaction with O3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPBCPIFROMO3' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPBCPI species from reaction with O3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPOCPOFROMNO3' ) THEN\n       IF ( isDesc    ) Desc  = '&\n            Prod of POPPOCPO species from reaction with NO3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPOCPIFROMNO3' ) THEN\n       IF ( isDesc    ) Desc  = '&\n            Prod of POPPOCPI species from reaction with NO3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPBCPOFROMNO3' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPBCPO species from reaction with NO3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODPOPPBCPIFROMNO3' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Prod of POPPBCPI species from reaction with NO3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODCO2FROMCO' ) THEN\n       IF ( isDesc    ) Desc  = 'Prod of CO2 from CO oxidation'\n       IF ( isRank    ) Rank  =  3\n       IF ( isUnits   ) THEN\n          IF ( isCarbon ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg m-2 s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSCH4BYCLINTROP' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of CH4 by reaction with Cl in troposphere'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSCH4BYOHINTROP' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of CH4 by reaction with OH in troposphere'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSCH4INSTRAT' ) THEN\n       IF ( isDesc    ) Desc  = 'Loss of CH4 in the stratosphere'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODCOFROMCH4' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of CO by CH4'\n       IF ( isRank    ) Rank  =  3\n       IF ( isUnits   ) THEN\n          IF ( isFullChem .or. isCarbon ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODCOFROMNMVOC' ) THEN\n       IF ( isDesc    ) Desc  = 'Porduction of CO by NMVOC'\n       IF ( isRank    ) Rank  =  3\n       IF ( isUnits   ) THEN\n          IF ( isFullChem .or. isCarbon ) THEN\n             Units = 'molec cm-3 s-1'\n          ELSE\n             Units = 'kg s-1'\n          ENDIF\n       ENDIF\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0ANTHRO' ) THEN\n       IF ( isDesc    ) Desc  = 'Anthropogenic emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0SOIL' ) THEN\n       IF ( isDesc    ) Desc  = 'Soil emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0OCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Oceanic emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0LAND' ) THEN\n       IF ( isDesc    ) Desc  = 'Land re-emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0GEOGENIC' ) THEN\n       IF ( isDesc    ) Desc  = 'Geogenic emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0BIOMASS' ) THEN\n       IF ( isDesc    ) Desc  = 'Biomass burning emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0VEGETATION' ) THEN\n       IF ( isDesc    ) Desc  = 'Vegetation emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG0SNOW' ) THEN\n       IF ( isDesc    ) Desc  = 'Snowpack emissions of Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG2HGPANTHRO' ) THEN\n       IF ( isDesc    ) Desc  = 'Anthropogenic emissions of Hg2 + HgP'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG2SNOWTOOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Emissions of Hg2 to the ocean from snowmelt'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'EMISHG2RIVERS' ) THEN\n       IF ( isDesc    ) Desc  = 'Emissions of Hg2 to the ocean from rivers'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FLUXHG2HGPFROMAIRTOSNOW' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Deposition flux of Hg2 and HgP to snow and ice'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FLUXHG0FROMAIRTOOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Volatization flux of Hg0 from the atmosphere to the ocean'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FLUXHG0FROMOCEANTOAIR' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Deposition flux of Hg0 from the ocean to the atmosphere'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FLUXHG2TODEEPOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Flux of Hg2 sunk to the deep ocean'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FLUXHG2HGPFROMAIRTOOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Deposition flux of Hg2 and HgP from the atmosphere to the ocean'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'FLUXOCTODEEPOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Flux of organic carbon sunk to the deep ocean'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'MASSHG0INOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Total oceanic mass of Hg0'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'MASSHG2INOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Total oceanic mass of Hg2'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'MASSHGPINOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Total oceanic mass of HgP'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'MASSHGTOTALINOCEAN' ) THEN\n       IF ( isDesc    ) Desc  = 'Total ocean mass of all mercury'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n\n    ! From Viral Shah (MSL - 7.1.21)\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HGBRAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HgBr concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HGCLAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HgCl concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HGOHAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HgOH concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HGBROAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HgBrO concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HGCLOAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HgClO concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HGOHOAFTERCHEM' )  THEN\n       IF ( isDesc    ) Desc  = 'HgOHO concentration immediately after chemistry'\n       IF ( isUnits   ) Units = 'mol mol-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HG2GTOHG2P' )  THEN\n       IF ( isDesc    ) Desc  = 'Hg2 gas transferred to Hg2P'\n       IF ( isUnits   ) Units = 'molec cm-3 s-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HG2PTOHG2G' )  THEN\n       IF ( isDesc    ) Desc  = 'Hg2P transferred to Hg2 gas'\n       IF ( isUnits   ) Units = 'molec cm-3 s-1'\n       IF ( isRank    ) Rank  = 3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HG2GASTOHG2STRP' )  THEN\n       IF ( isDesc    ) Desc  = 'Hg2 gas transferred to Hg2StrP'\n       IF ( isUnits   ) Units = 'molec cm-3 s-1'\n       IF ( isRank    ) Rank  = 3\n\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'HG2GASTOSSA ' )  THEN\n       IF ( isDesc    ) Desc  = 'Hg2 gas transferred to SSA'\n       IF ( isUnits   ) Units = 'molec cm-3 s-1'\n       IF ( isRank    ) Rank  = 3\n! MSL\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CONCBR' ) THEN\n       IF ( isDesc    ) Desc  = 'Br concentration'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CONCBRO' ) THEN\n       IF ( isDesc    ) Desc  = 'BrO concentration'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSHG2BYSEASALT' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss of Hg2 by reaction with sea salt aerosols'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSRATEHG2BYSEASALT' ) THEN\n       IF ( isDesc    ) Desc  = &\n            'Loss rate of Hg2 by reaction with sea salt aerosols'\n       IF ( isUnits   ) Units = 's-1'\n       IF ( isRank    ) Rank  =  2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'POLARCONCBR' ) THEN\n       IF ( isDesc    ) Desc  = 'Br concentration in polar regions'\n       IF ( isUnits   ) Units = 'pptv'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'POLARCONCBRO' ) THEN\n       IF ( isDesc    ) Desc  = 'BrO concentration in polar regions'\n       IF ( isUnits   ) Units = 'pptv'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'POLARCONCO3' ) THEN\n       IF ( isDesc    ) Desc  = 'O3 concentration in polar regions'\n       IF ( isUnits   ) Units = 'ppbv'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMBR' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from Br'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMBRY' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from BrY'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMCLY' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from ClY'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHG0' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from Hg0'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHGBRPLUSBR2' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from HgBr + Br2 reaction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHGBRPLUSBRBRO' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from HgBr + BrBrO reaction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHGBRPLUSBRCLO' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from HgBr + ClO reaction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHGBRPLUSBROH' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from HgBr + BrOH reaction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHGBRPLUSBRHO2' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from HgBr + BrHO2 reaction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMHGBRPLUSBRNO2' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from HgBr + BrNO2 reaction'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMO3' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from O3'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHG2FROMOH' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of Hg2 from OH'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PARTICULATEBOUNDHG' ) THEN\n       IF ( isDesc    ) Desc  = 'Particulate bound mercury'\n       IF ( isUnits   ) Units = 'pptv'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'REACTIVEGASEOUSHG' ) THEN\n       IF ( isDesc    ) Desc  = 'Reactive gaseous mercury'\n       IF ( isUnits   ) Units = 'pptv'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DRYDEPRA'                          // &\n                                       TRIM( TmpHt_AllCaps ) )  THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition aerodynamic resistance '  // &\n                                'at ' // TRIM( TmpHt )                    // &\n                                 ' above the surface'\n       IF ( isUnits   ) Units = 's cm-1'\n       IF ( isRank    ) Rank  = 2\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'DRYDEPVELFOR'                      // &\n                                       TRIM( TmpHt_AllCaps ) )  THEN\n       IF ( isDesc    ) Desc  = 'Dry deposition velocity for speecies '   // &\n                                'are requested at ' // TRIM( TmpHt )      // &\n                                ' above the surface'\n       IF ( isUnits   ) Units = 'cm s-1'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRYALT'\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'SPECIESCONC'                       // &\n                                       TRIM( TmpHt_AllCaps ) )  THEN\n       IF ( isDesc    ) Desc  = TRIM( TmpHt_AllCaps ) // ' above the '    // &\n                                'surface, dry mixing ratio of species'\n       IF ( isUnits   ) Units = 'mol mol-1 dry'\n       IF ( isRank    ) Rank  = 2\n       IF ( isTagged  ) TagId = 'DRYALT'\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AIRMASSCOLUMNFULL' ) THEN\n       IF ( isDesc    ) Desc  = 'Air mass, full-atmosphere column sum'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AIRMASSCOLUMNTROP' ) THEN\n       IF ( isDesc    ) Desc  = 'Air mass, tropospheric column sum'\n       IF ( isUnits   ) Units = 'kg'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'OHWGTBYAIRMASSCOLUMNFULL' ) THEN\n       IF ( isDesc    ) Desc  = &\n         'Airmass-weighted OH concentration, full-atmosphere column sum'\n       IF ( isUnits   ) Units = 'kg air kg OH m-3'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'OHWGTBYAIRMASSCOLUMNTROP' ) THEN\n       IF ( isDesc    ) Desc  = &\n         'Airmass-weighted mean OH concentration, troposheric column sum'\n       IF ( isUnits   ) Units = 'kg air kg OH m-3'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CH4EMISSION' ) THEN\n       IF ( isDesc    ) Desc  = &\n         'CH4 emission, used for computing lifetime metrics'\n       IF ( isUnits   ) Units = 'kg s-1'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CH4MASSCOLUMNFULL' ) THEN\n       IF ( isDesc    ) Desc  = &\n         'Airmass-weighted CH4 concentration, full-atmosphere column sum'\n       IF ( isUnits   ) Units = 'kg air kg CH4 m-3'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'CH4MASSCOLUMNTROP' ) THEN\n       IF ( isDesc    ) Desc  = &\n         'Airmass-weighted CH4 concentration, tropospheric column sum'\n       IF ( isUnits   ) Units = 'kg air kg CH4 m-3'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSOHBYCH4COLUMNTROP' ) THEN\n       IF ( isDesc    ) Desc  = &\n        'Loss rate of methane (CH4), tropopsheric column sum'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'LOSSOHBYMCFCOLUMNTROP' ) THEN\n       IF ( isDesc    ) Desc  = &\n        'Loss rate of methyl chloroform (CH3CCl3), tropopsheric column sum'\n       IF ( isUnits   ) Units = 'molec cm-3'\n       IF ( isRank    ) Rank  =  2\n       IF ( isSrcType ) SrcType  = KINDVAL_F8\n       IF ( isOutType ) OutType  = KINDVAL_F8\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMHMSINCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from aqueous ' // &\n                                'oxidation of HMS in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODHMSFROMSO2ANDHCHOINCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of HMS from aqueous ' // &\n                                'reaction of SO2 and HCHO in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO2ANDHCHOFROMHMSINCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO2 and HCHO from ' // &\n                                'aqueous reaction of HS and OH- in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'PRODSO4FROMO3INCLOUD' ) THEN\n       IF ( isDesc    ) Desc  = 'Production of SO4 from aqueous ' // &\n                                'oxidation of O3 in clouds'\n       IF ( isUnits   ) Units = 'kg S s-1'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSHMS' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of hydroxymethanesulfonate aerosol'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n    ELSE IF ( TRIM( Name_AllCaps ) == 'AERMASSSOAGX' ) THEN\n       IF ( isDesc    ) Desc  = 'Mass of aerosol-phase glyoxal'\n       IF ( isUnits   ) Units = 'ug m-3'\n       IF ( isRank    ) Rank  =  3\n\n   ELSE\n\n       !--------------------------------------------------------------------\n       ! Could not find metadata, so exit with error message\n       !--------------------------------------------------------------------\n       Found = .False.\n       ErrMsg = 'Metadata not found for State_Diag field ID: '            // &\n                 TRIM( metadataID ) // '. If the name in HISTORY.rc '     // &\n                'has species appended, make sure the species name '       // &\n                'is preceded by a single underscore. Otherwise, '         // &\n                'check that the name is listed with all capitals in '     // &\n                'subroutine Get_Metadata_State_Diag '                     // &\n                '(Headers/state_diag_mod.F90).'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Get_Metadata_State_Diag\n  !EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_NumTags\n!\n! !DESCRIPTION: Returns the number of tags (i.e. individual species or\n!  other quantities) per GEOS-Chem wildcard.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_NumTags( tagId, State_Chm, numTags, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: tagId      ! Wildcard name\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm  ! Chemistry state object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: numTags    ! Number of tags per wildcard\n    INTEGER,          INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REMARKS:\n!  Split off from routine Get_TagInfo.\n!\n! !REVISION HISTORY:\n!  27 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !=======================================================================\n    ! Get_NumTags begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Get_NumTags (in module \"Headers/state_diag_mod.F90)'\n\n    ! Get the number of tags per wildcard name\n    SELECT CASE( TRIM( tagId ) )\n       CASE( '' )\n          numTags = 0\n       CASE( 'ALL',     'S' )\n          numTags = State_Chm%nSpecies\n       CASE( 'ADV',     'A' )\n          numTags = State_Chm%nAdvect\n       CASE( 'AER'          )\n          numTags = State_Chm%nAeroSpc\n       CASE( 'DRY',     'D' )\n          numTags = State_Chm%nDryDep\n       CASE( 'DRYALT'       )\n          numTags = State_Chm%nDryAlt\n       CASE( 'TOMASBIN', 'T' )\n          numTags = State_Chm%nTomasBins\n       CASE( 'DUSTBIN', 'B' )\n          numTags = NDUST\n       CASE( 'FIX',     'F' )\n          numTags = State_Chm%nKppFix\n       CASE( 'GAS',     'G' )\n          numTags = State_Chm%nGasSpc\n       CASE( 'HYG',     'H' )\n          numTags = State_Chm%nHygGrth\n       CASE( 'KPP',     'K' )\n          numTags = State_Chm%nKppSpc\n       CASE( 'LOS',     'X' )\n          numTags = State_Chm%nLoss\n       CASE( 'NUC',     'N' )\n          numTags = State_Chm%nRadNucl\n       CASE( 'PHO',     'P' )\n          numTags = State_Chm%nPhotol\n       CASE( 'UVFLX',   'U' )\n          numTags = State_Chm%Phot%nWLbins\n       CASE( 'PRD',     'Y' )\n          numTags = State_Chm%nProd\n       CASE( 'RRTMG',   'Z' )\n          numTags = nRadOut\n       CASE( 'RXN',     'R' )\n          numTags = NREACT\n       CASE( 'VAR',     'V' )\n          numTags = State_Chm%nKppVar\n       CASE( 'WET',     'W' )\n          numTags = State_Chm%nWetDep\n       CASE DEFAULT\n          ErrMsg = 'Handling of wildCard ' // TRIM( tagId ) // &\n                   ' is not implemented for getting number of tags'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n    END SELECT\n\n  END SUBROUTINE Get_NumTags\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_TagInfo\n!\n! !DESCRIPTION: Subroutine GET\\_TAGINFO retrieves basic information about\n! tags given a wildcard string.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_TagInfo( Input_Opt, tagID, State_Chm, Found,                &\n                          RC,        N,     tagName,   nTags                )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt   ! Input Options object\n    CHARACTER(LEN=*),   INTENT(IN)  :: tagID       ! ID of tag (e.g. wildcard)\n    TYPE(ChmState),     INTENT(IN)  :: State_Chm   ! Chemistry State object\n    INTEGER,            OPTIONAL    :: N           ! index (1 to # tags)\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,            INTENT(OUT) :: Found       ! Item found?\n    INTEGER,            INTENT(OUT) :: RC          ! Return code\n    CHARACTER(LEN=255), OPTIONAL    :: tagName     ! tag name for index N\n    INTEGER,            OPTIONAL    :: nTags       ! # tags\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  16 Nov 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: D,         numTags\n    LOGICAL            :: isNumTags, isTagName, isN\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg,    ThisLoc,   Nstr\n\n    !=======================================================================\n    ! Get_TagInfo begins here\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    thisLoc    = ' -> at Get_TagInfo (in Headers/state_diag_mod.F90)'\n    found      = .TRUE.\n    numTags    = 0\n\n    ! Optional arguments present?\n    isN        = PRESENT( N       )\n    isTagName  = PRESENT( TagName )\n    isNumTags  = PRESENT( nTags   )\n\n    ! Exit with error if getting tag name but index not specified\n    IF ( isTagName .AND. .NOT. isN ) THEN\n       errMsg = 'Index must be specified if retrieving an individual tag name'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Get number of tags\n    !=======================================================================\n    CALL Get_NumTags( tagId, State_Chm, numTags, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in routine \"Get_NumTags\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Sanity checks -- exit under certain conditions\n    !=======================================================================\n\n    ! If not getting tag name then set nTags and exit\n    IF ( .NOT. isTagName ) THEN\n       nTags = numTags\n       RETURN\n    ENDIF\n\n    ! Exit with error if index exceeds number of tags for this wildcard\n    IF ( isTagName .AND. .NOT. isN ) THEN\n       errMsg = 'Index must be greater than total number of tags for wildcard' &\n                // TRIM(tagId)\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Get mapping index\n    !=======================================================================\n    SELECT CASE( TRIM( tagID ) )\n       CASE( 'ALL', 'ADV',   'DUSTBIN', 'TOMASBIN', 'PRD',                   &\n             'LOS', 'RRTMG', 'UVFLX',   'RXN'                               )\n          D = N\n       CASE( 'AER'  )\n          D = State_Chm%Map_Aero(N)\n       CASE( 'DRYALT'  )\n          D = State_Chm%Map_DryAlt(N)\n       CASE( 'DRY'  )\n          D = State_Chm%Map_DryDep(N)\n       CASE( 'GAS'  )\n          D = State_Chm%Map_GasSpc(N)\n       CASE( 'HYG'  )\n          D = State_Chm%Map_HygGrth(N)\n       CASE( 'VAR'  )\n          D = State_Chm%Map_KppVar(N)\n       CASE( 'FIX'  )\n          D = State_Chm%Map_KppFix(N)\n       CASE( 'KPP'  )\n          D = State_Chm%Map_KppSpc(N)\n       CASE( 'PHO'  )\n          D = State_Chm%Map_Photol(N)\n       CASE( 'WET'  )\n          D = State_Chm%Map_WetDep(N)\n       CASE( 'NUC'  )\n          D = State_Chm%Map_RadNucl(N)\n       CASE DEFAULT\n          found= .FALSE.\n          errMsg = 'Handling of tagId ' // TRIM( tagId ) // &\n                   ' is not implemented for getting tag name'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n    END SELECT\n\n    !=======================================================================\n    ! Return the tag name\n    !=======================================================================\n\n    ! Initialize\n    tagName = ''\n\n    ! Special handling for certain tagID's\n    SELECT CASE( TRIM( tagID ) )\n\n       ! TOMAS bins\n       CASE( 'TOMASBIN' )\n          WRITE ( Nstr, \"(I2.2)\" ) D\n          tagName = 'bin' // TRIM(Nstr)\n\n       ! Dust bins\n       CASE( 'DUSTBIN' )\n          WRITE ( Nstr, \"(I1)\" ) D\n          tagName = 'bin' // TRIM(Nstr)\n\n       ! Loss species\n       CASE( 'LOS' )\n          tagName = State_Chm%Name_Loss(N)\n          D       = INDEX( tagName, '_' )\n          tagName = tagName(D+1:)\n\n       ! Prod species\n       CASE( 'PRD' )\n          tagName = State_Chm%Name_Prod(N)\n          D       = INDEX( tagName, '_' )\n          tagName = tagName(D+1:)\n\n       ! RRTMG requested outputs\n       CASE( 'RRTMG' )\n          tagName = RadOut(D)\n\n       ! KPP equation reaction rates\n       CASE( 'RXN' )\n          WRITE ( Nstr, \"(I4.4)\" ) D\n          tagName = 'EQ' // TRIM(Nstr)\n\n       ! UVFlux requested output fluxes\n       ! These are at the FAST-JX wavelength bins\n       CASE( 'UVFLX' )\n          IF ( D >= 1 .and. D <= 18 ) THEN\n             tagName = UVFlux_Tag_Names(D)\n          ELSE\n             WRITE( errMsg, '(i2.2)' ) D\n             errMsg = 'FAST-JX UV Flux bin ' // TRIM( errMsg ) //           &\n                      'is out of bounds!  It must be in the range 1..18!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n       ! Default tag name is the name in the species database\n       CASE DEFAULT\n          tagName = State_Chm%SpcData(D)%Info%Name\n\n    END SELECT\n\n  END SUBROUTINE Get_TagInfo\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_UVFlux_Bin\n!\n! !DESCRIPTION: Returns the FAST_JX wavelength bin corresponding to\n!  a UVFLUX tag name.\n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_UVFlux_Bin( tagName, bin, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE CharPak_Mod, ONLY : To_UpperCase\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: tagName   ! Tag Name\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: bin       ! Corresponding bin index\n    INTEGER,          INTENT(OUT) :: RC        ! Success or failure\n!\n! !REVISION HISTORY:\n!  01 Jul 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg\n    CHARACTER(LEN=255) :: thisLoc\n\n    !========================================================================\n    ! Get_UVFLux_Bin begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    bin     = -1\n    errMsg  = ''\n    thisLoc = ' -> at Get_UVFlux_Bin (in module Headers/state_diag_mod.F90)'\n\n    ! Get the index for the tagname\n    DO N = 1, 18\n       IF ( TRIM( tagName ) == To_UpperCase( TRIM( UVFlux_Tag_Names(N))) ) THEN\n          bin = N\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Trap potential errros\n    IF ( bin < 0 ) THEN\n       errMsg = 'Could not find bin index for tag name: ' // TRIM( tagName )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Get_UVFlux_Bin\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_NameInfo\n!\n! !DESCRIPTION: Subroutine GET\\_NAMEINFO retrieves a diagnostic name\n! given a string in HISTORY.rc. This enables outputting a diagnostic\n! name different from the input, useful for names that are\n! set at run-time given information in one or more input files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_NameInfo( Input_Opt, InName, OutName, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_Uppercase\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt   ! Input Options object\n    CHARACTER(LEN=*),   INTENT(IN)  :: InName      ! Name in HISTORY.rc\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),   INTENT(OUT) :: OutName     ! Diagnostic output name\n    INTEGER,            INTENT(OUT) :: RC          ! Return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  24 Jan 2018 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, IWL(3), IWLMAX, IWLMAXLOC(1)\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, OutNamePrefix\n\n    !=======================================================================\n    ! Get_TagName begins here\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Get_NameInfo (in Headers/state_diag_mod.F90)'\n    OutName = InName\n\n    ! For now, quick'n'dirty approach for AOD diagnostics\n    IWL(1) = INDEX( TRIM(InName), 'WL1' )\n    IWL(2) = INDEX( TRIM(InName), 'WL2' )\n    IWL(3) = INDEX( TRIM(InName), 'WL3' )\n    IWLMAX = MAX(IWL(1),IWL(2),IWL(3))\n    IF ( IWLMAX > 0 ) THEN\n       IWLMAXLOC = MAXLOC(IWL)\n       OutNamePrefix = InName(1:IWL(IWLMAXLOC(1))-1) // &\n                       TRIM(RadWL(IWLMAXLOC(1))) // 'nm'\n       I = INDEX( TRIM(InName), '_' )\n       IF ( I > 0 ) THEN\n          OutName = TRIM(OutNamePrefix) // InName(I:)\n       ELSE\n          OutName = OutNamePrefix\n       ENDIF\n    ENDIF\n\n    ! For now, quick'n'dirty approach for species at altitude above surface\n    IWL(1) = INDEX( To_Uppercase(TRIM(InName)), 'ALT1' )\n    IF ( IWL(1) > 0 ) THEN\n       OutNamePrefix = InName(1:IWL(1)-1) // TRIM( AltAboveSfc )\n       I = INDEX( TRIM(InName), '_' )\n       IF ( I > 0 ) THEN\n          OutName = TRIM(OutNamePrefix) // InName(I:)\n       ELSE\n          OutName = OutNamePrefix\n       ENDIF\n    ENDIF\n\n    ! No other instances yet of names set from input parameters\n\n\n  END SUBROUTINE Get_NameInfo\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_DiagNameDesc returns the diagnostic name plus any tags, as well\n!  as the diagnostic description plus any tags.  This is a convenience routine\n!  that was abstracted out of the Register_DiagField* routines.\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_DiagNameDesc( Input_Opt, State_Chm, metadataId,             &\n                               desc,      N,         tagId,                  &\n                               diagName,  diagDesc,  RC,                     &\n                               mapData                                      )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState),        INTENT(IN)  :: State_Chm   ! Chemistry state object\n    CHARACTER(LEN=*),      INTENT(IN)  :: metadataId  ! Diagnostic name\n    CHARACTER(LEN=*),      INTENT(IN)  :: desc        ! Description metadata\n    INTEGER,               INTENT(IN)  :: N           ! Current tag number\n    CHARACTER(LEN=*),      INTENT(IN)  :: tagId       ! Tag name (e.g. wildcard)\n    TYPE(DgnMap), POINTER, OPTIONAL    :: mapData     ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=255),    INTENT(OUT) :: diagName    ! Diagnostic name + tag\n    CHARACTER(LEN=255),    INTENT(OUT) :: diagDesc    ! Diagnostic desc + tag\n    INTEGER,               INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found\n    INTEGER            :: index\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg\n    CHARACTER(LEN=255) :: tagName\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Get_DiagNameDesc begins here!\n    !=======================================================================\n    RC         = GC_SUCCESS\n    found      = .FALSE.\n    index      = -1\n    diagName   = ''\n    diagDesc   = ''\n    tagName    = ''\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = ' -> at Get_TagName (in module Headers/state_diag_mod.F90)'\n\n    IF ( PRESENT( mapData ) ) THEN\n\n       !--------------------------------------------------------------------\n       ! If the mapping object is passed, get the name of each species\n       ! from the modelId as specified in the mapData array\n       !--------------------------------------------------------------------\n\n       ! If indFlag=\"S\", then mapData%slot2id is already the modelId,\n       ! but e.g. if indFlag=\"D\", then mapData%Id is the drydep Id.\n       ! (etc. for other flag values)\n       index = mapData%slot2id(N)\n\n       ! If necessary, convert index to be the modelId so that we use it to\n       ! look up the species name.  NOTE: For some wild cards, there is no\n       ! corresponding species in the species database.  For these, call\n       ! routine Get_TagInfo to look up the tag name.  (bmy, 6/3/20)\n       SELECT CASE( mapData%indFlag )\n          CASE( 'A' )\n             index   = State_Chm%Map_Advect(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'D' )\n             index   = State_Chm%Map_DryDep(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'F' )\n             index   = State_Chm%Map_KppFix(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'H' )\n             index   = State_Chm%Map_HygGrth(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'K' )\n             index   = State_Chm%Map_KppSpc(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'N' )\n             index   = State_Chm%Map_RadNucl(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'P' )\n             index   = State_Chm%Map_Photol(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'S' )\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'V' )\n             index   = State_Chm%Map_KppVar(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE( 'W' )\n             index   = State_Chm%Map_WetDep(index)\n             tagName = State_Chm%SpcData(index)%info%name\n          CASE DEFAULT\n\n             ! Special handling for Loss & Prod\n             SELECT CASE( mapData%indFlag )\n                CASE( 'X', 'Y' )\n                   index = N\n                CASE DEFAULT\n                   ! Pass\n             END SELECT\n\n             ! We need to call Get_TagInfo for diagnostics that\n             ! aren't chemical species (e.g. DUSTBIN, UVFLX, RRTMG, RXN, etc.)\n             CALL Get_TagInfo( Input_Opt = Input_Opt,                     &\n                               State_Chm = State_Chm,                     &\n                               tagID     = tagId,                         &\n                               N         = index,                         &\n                               tagName   = tagName,                       &\n                               found     = found,                         &\n                               RC        = RC                            )\n       END SELECT\n\n       ! Make sure there was no error above\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_reg ) // TRIM( metaDataId )            // &\n                   ' where tagID is ' // TRIM( tagID      )            // &\n                   '; Abnormal exit from routine \"Get_TagInfo\"!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! If the mapping object was not passed, then\n       ! call routine  Get_TagInfo to get the tagName\n       !--------------------------------------------------------------------\n       CALL Get_TagInfo( Input_Opt = Input_Opt,                              &\n                         State_Chm = State_Chm,                              &\n                         tagID     = tagId,                                  &\n                         N         = N,                                      &\n                         tagName   = tagName,                                &\n                         found     = found,                                  &\n                         RC        = RC                                     )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_reg ) // TRIM( metaDataId )               // &\n                   ' where tagID is ' // TRIM( tagID      )               // &\n                   '; Abnormal exit from routine \"Get_TagInfo\"!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n    ! Add the tag name to the diagnostic name and description\n    diagName = TRIM( metadataID ) // '_' // TRIM( tagName )\n    diagDesc = TRIM( Desc       ) // ' ' // TRIM( tagName )\n\n  END SUBROUTINE Get_DiagNameDesc\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_DiagField_R4_2D\n!\n! !DESCRIPTION: Registers a 2-dimensional, 4-byte real field of State\\_Diag,\n!  so that we can include it in the netCDF diagnostic output archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_DiagField_R4_2D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Chm, State_Diag, RC,            &\n                                       mapData,   nSlots                    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt       ! Input Options\n    CHARACTER(LEN=*),      INTENT(IN)    :: metadataID      ! Diagnostic name\n    REAL(f4),     POINTER, INTENT(IN)    :: Ptr2Data(:,:)   ! pointer to data\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm       ! Chemistry State\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData         ! Mapping object\n    INTEGER,               OPTIONAL      :: nSlots          ! # of slots to\n!                                                           !  size Ptr2Data\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag      ! JDiag State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC              ! Success/failure\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,      hasMapData, hasNSlots\n    INTEGER            :: N,          nTags,      rank\n    INTEGER            :: srcType,    outType,    vloc\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg, thisLoc,    desc\n    CHARACTER(LEN=255) :: units,      tagId,      tagName\n    CHARACTER(LEN=255) :: diagName,   diagDesc\n\n    !-----------------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------------\n    RC         = GC_SUCCESS\n    hasMapData = PRESENT( mapData )\n    hasNSlots  = PRESENT( nSlots  )\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = &\n         ' -> at Register_DiagField_R4_2D (in Headers/state_diag_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Get metadata for this diagnostic\n    !-----------------------------------------------------------------------\n    CALL Get_Metadata_State_Diag( am_I_root  = Input_Opt%amIRoot,            &\n                                  found      = found,                        &\n                                  metadataId = metadataID,                   &\n                                  desc       = desc,                         &\n                                  outType    = outType,                      &\n                                  units      = units,                        &\n                                  rank       = rank,                         &\n                                  srcType    = srcType,                      &\n                                  tagId      = tagId,                        &\n                                  vloc       = vloc,                         &\n                                  RC         = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Check that metadata dimensions consistent with data pointer\n    !-----------------------------------------------------------------------\n    IF ( ( ( tagId == '' ) .AND. ( rank /= 2 ) )  &\n         .OR. ( ( tagId /= '' ) .AND. ( rank /= 1 ) ) ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for '           // &\n                TRIM( metadataID )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Special handling if there are tags (wildcard)\n    !-----------------------------------------------------------------------\n    IF ( tagId /= '' ) THEN\n\n       ! Make sure one of mapData or nSlots is passed!\n       IF ( ( .not. hasMapData ) .and. ( .not. hasNSlots ) ) THEN\n          errMsg = 'One of mapData or nSlots must be passed '             // &\n                   'for tagged diagnostic : ' // TRIM( metadataId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Get number of tags for this wildcard.  If the mapData object is\n       ! present, then we have already gotten this and saved this\n       ! into mapData%nSlots.  Otherwise, call Get_NumTags.\n       IF ( hasMapData ) THEN\n          nTags = mapData%nSlots\n       ELSE IF ( hasNSlots ) THEN\n          nTags = nSlots\n       ENDIF\n\n       ! Check that number of tags is consistent with array size\n       IF ( nTags /=  SIZE(Ptr2Data,2) ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                '; number of tags is inconsistent with array size'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register each tagged name as a separate diagnostic\n       DO N = 1, nTags\n\n          ! Get the diagnostic name and description\n          ! plus tag (e.g. \"SpeciesConcVV_O3\". etc.)\n          CALL Get_DiagNameDesc( Input_Opt  = Input_Opt,                     &\n                                 State_Chm  = State_Chm,                     &\n                                 metadataId = metadataId,                    &\n                                 desc       = desc,                          &\n                                 N          = N,                             &\n                                 tagId      = tagId,                         &\n                                 mapData    = mapData,                       &\n                                 diagName   = diagName,                      &\n                                 diagDesc   = diagDesc,                      &\n                                 RC         = RC                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Get_DiagNameDesc!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Add field to registry\n          CALL Registry_AddField( Input_Opt      = Input_Opt,                &\n                                  Registry       = State_Diag%Registry,      &\n                                  State          = State_Diag%State,         &\n                                  Variable       = diagName,                 &\n                                  Description    = diagDesc,                 &\n                                  Units          = units,                    &\n                                  Data1d_4       = Ptr2Data(:,N),            &\n                                  Output_KindVal = outType,                  &\n                                  RC             = RC                       )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    !-----------------------------------------------------------------------\n    ! If not tied to species then simply add the single field\n    !-----------------------------------------------------------------------\n    ELSE\n\n       ! Add field to registry\n       CALL Registry_AddField( Input_Opt      = Input_Opt,                   &\n                               Registry       = State_Diag%Registry,         &\n                               State          = State_Diag%State,            &\n                               Variable       = MetadataID,                  &\n                               Description    = desc,                        &\n                               Units          = units,                       &\n                               Data2d_4       = Ptr2Data,                    &\n                               Output_KindVal = outType,                     &\n                               RC             = RC                          )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                  ' where diagnostics is not tied to species; '           // &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Register_DiagField_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_DiagField_R4_3D\n!\n! !DESCRIPTION: Registers a 3-dimensional, 4-byte real field of State\\_Diag,\n!  so that we can include it in the netCDF diagnostic output archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_DiagField_R4_3D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Chm, State_Diag, RC,            &\n                                       mapData,   nSlots                    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt       ! Input Options\n    CHARACTER(LEN=*),      INTENT(IN)    :: metadataID      ! Name\n    REAL(f4),     POINTER, INTENT(IN)    :: Ptr2Data(:,:,:) ! pointer to data\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm       ! Chemistry State\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData         ! Mapping object\n    INTEGER,               OPTIONAL      :: nSlots          ! Size for Ptr2Data\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag      ! Diag State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC              ! Success/failure\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,      hasMapData\n    LOGICAL            :: hasNSlots,  onEdges\n    INTEGER            :: N,          nTags,      rank\n    INTEGER            :: srcType,    outType,    vloc\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg, thisLoc,    desc\n    CHARACTER(LEN=255) :: units,      tagId,      tagName\n    CHARACTER(LEN=255) :: diagName,   diagDesc\n\n    !-----------------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------------\n    RC         = GC_SUCCESS\n    hasMapData = PRESENT( mapData )\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = &\n         ' -> at Register_DiagField_R4_3D (in Headers/state_diag_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Get metadata for this diagnostic\n    !-----------------------------------------------------------------------\n    CALL Get_Metadata_State_Diag( am_I_root  = Input_Opt%amIRoot,            &\n                                  found      = found,                        &\n                                  metadataId = metadataID,                   &\n                                  desc       = desc,                         &\n                                  outType    = outType,                      &\n                                  units      = units,                        &\n                                  rank       = rank,                         &\n                                  srcType    = srcType,                      &\n                                  tagId      = tagId,                        &\n                                  vloc       = vloc,                         &\n                                  RC         = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( VLoc == VLocationEdge )\n\n    !-----------------------------------------------------------------------\n    ! Check that metadata dimensions consistent with data pointer\n    !-----------------------------------------------------------------------\n    IF ( ( ( tagID == '' ) .AND. ( rank /= 3 ) )                             &\n         .OR. ( ( tagID /= '' ) .AND. ( rank /= 2 ) ) ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for '           // &\n                TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Special handling if there are tags\n    !-----------------------------------------------------------------------\n    IF ( tagID /= '' ) THEN\n\n       ! Get the total number of tags\n       IF ( hasMapData ) THEN\n          nTags = mapData%nSlots\n       ELSE\n          nTags = nSlots\n       ENDIF\n\n       ! Check that number of tags is consistent with array size\n       IF ( nTags /=  SIZE( Ptr2Data, 3 ) ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                '; number of tags is inconsistent with array size'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register each tagged name as a separate diagnostic\n       DO N = 1, nTags\n\n          ! Get the diagnostic name and description\n          ! plus tag (e.g. \"SpeciesConcVV_O3\". etc.)\n          CALL Get_DiagNameDesc( Input_Opt  = Input_Opt,                     &\n                                 State_Chm  = State_Chm,                     &\n                                 metadataId = metadataId,                    &\n                                 desc       = desc,                          &\n                                 N          = N,                             &\n                                 tagId      = tagId,                         &\n                                 mapData    = mapData,                       &\n                                 diagName   = diagName,                      &\n                                 diagDesc   = diagDesc,                      &\n                                 RC         = RC                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Get_DiagNameDesc\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Add field to registry\n          CALL Registry_AddField( Input_Opt      = Input_Opt,                &\n                                  Registry       = State_Diag%Registry,      &\n                                  State          = State_Diag%State,         &\n                                  Variable       = diagName,                 &\n                                  Description    = diagDesc,                 &\n                                  Units          = units,                    &\n                                  OnLevelEdges   = onEdges,                  &\n                                  Output_KindVal = outType,                  &\n                                  Data2d_4       = Ptr2Data(:,:,N),          &\n                                  RC             = RC                       )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDDO\n\n    !-----------------------------------------------------------------------\n    ! If not tied to species then simply add the single field\n    !-----------------------------------------------------------------------\n    ELSE\n\n       ! Add field to registry\n       CALL Registry_AddField( Input_Opt      = Input_Opt,                   &\n                               Registry       = State_Diag%Registry,         &\n                               State          = State_Diag%State,            &\n                               Variable       = metadataID,                  &\n                               Description    = desc,                        &\n                               Units          = units,                       &\n                               OnLevelEdges   = onEdges,                     &\n                               Output_KindVal = outType,                     &\n                               Data3d_4       = Ptr2Data,                    &\n                               RC             = RC                          )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                  ' where diagnostics is not tied to species; '           // &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Register_DiagField_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_DiagField_R4_4D\n!\n! !DESCRIPTION: Registers a 4-dimensional, 4-byte real field of State\\_Diag,\n!  so that we can include it in the netCDF diagnostic output archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_DiagField_R4_4D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Chm, State_Diag, RC,            &\n                                       mapData,   nSlots                    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    CHARACTER(LEN=*),      INTENT(IN)    :: metadataID       ! Name\n    REAL(f4),     POINTER, INTENT(IN)    :: Ptr2Data(:,:,:,:)! pointer to data\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n    INTEGER,               OPTIONAL      :: nSlots           ! # of slots to\n!                                                            !  size Ptr2Data\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diag State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,      hasMapData\n    LOGICAL            :: hasNSlots,  onEdges\n    INTEGER            :: N,          nTags,      rank\n    INTEGER            :: srcType,    outType,    vloc\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg, thisLoc,    desc\n    CHARACTER(LEN=255) :: units,      tagId,      tagName\n    CHARACTER(LEN=255) :: diagName,   diagDesc\n\n    !-----------------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------------\n    RC         = GC_SUCCESS\n    hasMapData = PRESENT( mapData )\n    hasNSlots  = PRESENT( nSlots  )\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = &\n         ' -> at Register_DiagField_R4_4D (in Headers/state_diag_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Get metadata for this diagnostic\n    !-----------------------------------------------------------------------\n    CALL Get_Metadata_State_Diag( am_I_root  = Input_Opt%amIRoot,            &\n                                  found      = found,                        &\n                                  metadataId = metadataID,                   &\n                                  desc       = desc,                         &\n                                  outType    = outType,                      &\n                                  units      = units,                        &\n                                  rank       = rank,                         &\n                                  srcType    = srcType,                      &\n                                  tagId      = tagId,                        &\n                                  vloc       = vloc,                         &\n                                  RC         = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )                  // &\n                '; Abnormal exit from routine \"Get_Metadata_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( VLoc == VLocationEdge )\n\n    !-----------------------------------------------------------------------\n    ! Check that metadata dimensions consistent with data pointer\n    !-----------------------------------------------------------------------\n    IF ( rank /= 3 ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for '           // &\n                TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Assume always tagged if 4D, get number of tags\n    !-----------------------------------------------------------------------\n\n    ! Make sure one of mapData or nSlots is passed!\n    IF ( ( .not. hasMapData ) .and. ( .not. hasNSlots ) ) THEN\n       errMsg = 'One of mapData or nSlots must be passed '             // &\n            'for tagged diagnostic : ' // TRIM( metadataId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Number of tags\n    IF ( hasMapData ) THEN\n       nTags = mapData%nSlots\n    ELSE IF ( hasNSlots ) THEN\n       nTags = nSlots\n    ENDIF\n\n    ! Check that number of tags is consistent with array size\n    IF ( nTags /=  SIZE(Ptr2Data,4) ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n            '; number of tags is inconsistent with array size'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Register each tagged name as a separate diagnostic\n    !-----------------------------------------------------------------------\n\n    DO N = 1, nTags\n\n       ! Get the diagnostic name and description\n       ! plus tag (e.g. \"SpeciesConcVV_O3\". etc.)\n       CALL Get_DiagNameDesc( Input_Opt  = Input_Opt,                        &\n                              State_Chm  = State_Chm,                        &\n                              metadataId = metadataId,                       &\n                              desc       = desc,                             &\n                              N          = N,                                &\n                              tagId      = tagId,                            &\n                              mapData    = mapData,                          &\n                              diagName   = diagName,                         &\n                              diagDesc   = diagDesc,                         &\n                              RC         = RC                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )               // &\n                   ' where tagID is ' // TRIM( tagID      )               // &\n                   '; Abnormal exit from routine \"Get_DiagNameDesc\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add field to registry\n       CALL Registry_AddField( Input_Opt      = Input_Opt,                   &\n                               Registry       = State_Diag%Registry,         &\n                               State          = State_Diag%State,            &\n                               Variable       = diagName,                    &\n                               Description    = diagDesc,                    &\n                               Units          = units,                       &\n                               OnLevelEdges   = onEdges,                     &\n                               Output_KindVal = outType,                     &\n                               Data3d_4       = Ptr2Data(:,:,:,N),           &\n                               RC             = RC                          )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )               // &\n                   ' where tagID is ' // TRIM( tagID      )               // &\n                   '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE Register_DiagField_R4_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_DiagField_R8_2D\n!\n! !DESCRIPTION: Registers a 2-dimensional, 4-byte real field of State\\_Diag,\n!  so that we can include it in the netCDF diagnostic output archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_DiagField_R8_2D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Chm, State_Diag, RC,            &\n                                       mapData,   nSlots                    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt       ! Input Options\n    CHARACTER(LEN=*),      INTENT(IN)    :: metadataID      ! Diagnostic name\n    REAL(f8),     POINTER, INTENT(IN)    :: Ptr2Data(:,:)   ! pointer to data\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm       ! Chemistry State\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData         ! Mapping object\n    INTEGER,               OPTIONAL      :: nSlots          ! # of slots to\n!                                                           !  size Ptr2Data\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag      ! Diag State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC              ! Success/failure\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,      hasMapData, hasNSlots\n    INTEGER            :: N,          nTags,      rank\n    INTEGER            :: srcType,    outType,    vloc\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg, thisLoc,    desc\n    CHARACTER(LEN=255) :: units,      tagId,      tagName\n    CHARACTER(LEN=255) :: diagName,   diagDesc\n\n    !-----------------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------------\n    RC         = GC_SUCCESS\n    found      = .FALSE.\n    hasMapData = PRESENT( mapData )\n    hasNSlots  = PRESENT( nSlots  )\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = &\n         ' -> at Register_DiagField_R8_2D (in Headers/state_diag_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Get metadata for this diagnostic\n    !-----------------------------------------------------------------------\n    CALL Get_Metadata_State_Diag( am_I_root  = Input_Opt%amIRoot,            &\n                                  found      = found,                        &\n                                  metadataId = metadataID,                   &\n                                  desc       = desc,                         &\n                                  outType    = outType,                      &\n                                  units      = units,                        &\n                                  rank       = rank,                         &\n                                  srcType    = srcType,                      &\n                                  tagId      = tagId,                        &\n                                  vloc       = vloc,                         &\n                                  RC         = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Check that metadata dimensions consistent with data pointer\n    !-----------------------------------------------------------------------\n    IF ( ( ( tagId == '' ) .AND. ( rank /= 2 ) )  &\n         .OR. ( ( tagId /= '' ) .AND. ( rank /= 1 ) ) ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for '           // &\n                TRIM( metadataID )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Special handling if there are tags (wildcard)\n    !-----------------------------------------------------------------------\n    IF ( tagId /= '' ) THEN\n\n       ! Make sure one of mapData or nSlots is passed!\n       IF ( ( .not. hasMapData ) .and. ( .not. hasNSlots ) ) THEN\n          errMsg = 'One of mapData or nSlots must be passed '             // &\n                   'for tagged diagnostic : ' // TRIM( metadataId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Get number of tags\n       IF ( hasMapData ) THEN\n          nTags = mapData%nSlots\n       ELSE IF ( hasNSlots ) THEN\n          nTags = nSlots\n       ENDIF\n\n       ! Check that number of tags is consistent with array size\n       IF ( nTags /=  SIZE(Ptr2Data,2) ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                '; number of tags is inconsistent with array size'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register each tagged name as a separate diagnostic\n       DO N = 1, nTags\n\n          ! Get the diagnostic name and description\n          ! plus tag (e.g. \"SpeciesConcVV_O3\". etc.)\n          CALL Get_DiagNameDesc( Input_Opt  = Input_Opt,                     &\n                                 State_Chm  = State_Chm,                     &\n                                 metadataId = metadataId,                    &\n                                 desc       = desc,                          &\n                                 N          = N,                             &\n                                 tagId      = tagId,                         &\n                                 mapData    = mapData,                       &\n                                 diagName   = diagName,                      &\n                                 diagDesc   = diagDesc,                      &\n                                 RC         = RC                            )\n\n         ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Get_DiagNameDesc\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Add field to registry\n          CALL Registry_AddField( Input_Opt      = Input_Opt,                &\n                                  Registry       = State_Diag%Registry,      &\n                                  State          = State_Diag%State,         &\n                                  Variable       = diagName,                 &\n                                  Description    = diagDesc,                 &\n                                  Units          = units,                    &\n                                  Output_KindVal = outType,                  &\n                                  Data1d_8       = Ptr2Data(:,N),            &\n                                  RC             = RC                       )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n       ENDDO\n\n    !-----------------------------------------------------------------------\n    ! If not tied to species then simply add the single field\n    !-----------------------------------------------------------------------\n    ELSE\n\n       ! Add field to registry\n       CALL Registry_AddField( Input_Opt      = Input_Opt,                   &\n                               Registry       = State_Diag%Registry,         &\n                               State          = State_Diag%State,            &\n                               Variable       = MetadataID,                  &\n                               Description    = desc,                        &\n                               Units          = units,                       &\n                               Output_KindVal = outType,                     &\n                               Data2d_8       = Ptr2Data,                    &\n                               RC             = RC                          )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                  ' where diagnostics is not tied to species; '           // &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Register_DiagField_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_DiagField_R8_3D\n!\n! !DESCRIPTION: Registers a 3-dimensional, 8-byte real field of State\\_Diag,\n!  so that we can include it in the netCDF diagnostic output archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_DiagField_R8_3D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Chm, State_Diag, RC,            &\n                                       mapData,   nSlots                    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt       ! Input Options\n    CHARACTER(LEN=*),      INTENT(IN)    :: metadataID      ! Diagnostic name\n    REAL(f8),     POINTER, INTENT(IN)    :: Ptr2Data(:,:,:) ! pointer to data\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm       ! Chemistry State\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData         ! Mapping object\n    INTEGER,               OPTIONAL      :: nSlots          ! # of slots to\n!                                                           !  size Ptr2Data\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag      ! Diag State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC              ! Success/failure\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,      hasMapData\n    LOGICAL            :: hasNSlots,  onEdges\n    INTEGER            :: N,          nTags,      rank\n    INTEGER            :: srcType,    outType,    vloc\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg, thisLoc,    desc\n    CHARACTER(LEN=255) :: units,      tagId,      tagName\n    CHARACTER(LEN=255) :: diagName,   diagDesc\n\n    !-----------------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------------\n    RC         = GC_SUCCESS\n    hasMapData = PRESENT( mapData )\n    hasNSlots  = PRESENT( nSlots  )\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = &\n         ' -> at Register_DiagField_R8_3D (in Headers/state_diag_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Get metadata for this diagnostic\n    !-----------------------------------------------------------------------\n    CALL Get_Metadata_State_Diag( am_I_root  = Input_Opt%amIRoot,            &\n                                  found      = found,                        &\n                                  metadataId = metadataID,                   &\n                                  desc       = desc,                         &\n                                  outType    = outType,                      &\n                                  units      = units,                        &\n                                  rank       = rank,                         &\n                                  srcType    = srcType,                      &\n                                  tagId      = tagId,                        &\n                                  vloc       = vloc,                         &\n                                  RC         = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( VLoc == VLocationEdge )\n\n    !-----------------------------------------------------------------------\n    ! Check that metadata dimensions consistent with data pointer\n    !-----------------------------------------------------------------------\n    IF ( ( ( tagID == '' ) .AND. ( rank /= 3 ) )                             &\n         .OR. ( ( tagID /= '' ) .AND. ( rank /= 2 ) ) ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for '           // &\n                TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Special handling if there are tags\n    !-----------------------------------------------------------------------\n    IF ( tagID /= '' ) THEN\n\n       ! Make sure one of mapData or nSlots is passed!\n       IF ( ( .not. hasMapData ) .and. ( .not. hasNSlots ) ) THEN\n          errMsg = 'One of mapData or nSlots must be passed '             // &\n                   'for tagged diagnostic : ' // TRIM( metadataId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Get the number of tags\n       IF ( hasMapData ) THEN\n          nTags = mapData%nSlots\n       ELSE IF ( hasNSlots ) THEN\n          nTags = nSlots\n       ENDIF\n\n       ! Check that number of tags is consistent with array size\n       IF ( nTags /=  SIZE(Ptr2Data,3) ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                '; number of tags is inconsistent with array size'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register each tagged name as a separate diagnostic\n       DO N = 1, nTags\n\n          ! Get the diagnostic name and description\n          ! plus tag (e.g. \"SpeciesConcVV_O3\". etc.)\n          CALL Get_DiagNameDesc( Input_Opt  = Input_Opt,                     &\n                                 State_Chm  = State_Chm,                     &\n                                 metadataId = metadataId,                    &\n                                 desc       = desc,                          &\n                                 N          = N,                             &\n                                 tagId      = tagId,                         &\n                                 mapData    = mapData,                       &\n                                 diagName   = diagName,                      &\n                                 diagDesc   = diagDesc,                      &\n                                 RC         = RC                            )\n\n         ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Get_DiagNameDesc\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Add field to registry\n          CALL Registry_AddField( Input_Opt      = Input_Opt,                &\n                                  Registry       = State_Diag%Registry,      &\n                                  State          = State_Diag%State,         &\n                                  Variable       = diagName,                 &\n                                  Description    = diagDesc,                 &\n                                  Units          = units,                    &\n                                  OnLevelEdges   = onEdges,                  &\n                                  Output_KindVal = outType,                  &\n                                  Data2d_8       = Ptr2Data(:,:,N),          &\n                                  RC             = RC                       )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )            // &\n                      ' where tagID is ' // TRIM( tagID      )            // &\n                      '; Abnormal exit from routine \"Registry_AddField\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       ENDDO\n\n    !-----------------------------------------------------------------------\n    ! If not tied to species, then simply add the single field\n    !-----------------------------------------------------------------------\n    ELSE\n\n       ! Add field to registry\n       CALL Registry_AddField( Input_Opt      = Input_Opt,                   &\n                               Registry       = State_Diag%Registry,         &\n                               State          = State_Diag%State,            &\n                               Variable       = metadataID,                  &\n                               Description    = desc,                        &\n                               Units          = units,                       &\n                               OnLevelEdges   = onEdges,                     &\n                               Output_KindVal = outType,                     &\n                               Data3d_8       = Ptr2Data,                    &\n                               RC             = RC                          )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )               // &\n                  ' where diagnostics is not tied to species; '           // &\n                  '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Register_DiagField_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_DiagField_R8_4D\n!\n! !DESCRIPTION: Registers a 4-dimensional, 8-byte real field of State\\_Diag,\n!  so that we can include it in the netCDF diagnostic output archive.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_DiagField_R8_4D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Chm, State_Diag, RC,            &\n                                       mapData ,  nSlots                    )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    CHARACTER(LEN=*),      INTENT(IN)    :: metadataID       ! Diagnostic name\n    REAL(f8),     POINTER, INTENT(IN)    :: Ptr2Data(:,:,:,:)! pointer to data\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n    INTEGER,               OPTIONAL      :: nSlots           ! # of slots to\n!                                                            !  size Ptr2Data\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diag State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure\n!\n! !REVISION HISTORY:\n!  20 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found,      hasMapData\n    LOGICAL            :: hasNSlots,  onEdges\n    INTEGER            :: N,          nTags,      rank\n    INTEGER            :: srcType,    outType,    vloc\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: errMsg_reg, thisLoc,    desc\n    CHARACTER(LEN=255) :: units,      tagId,      tagName\n    CHARACTER(LEN=255) :: diagName,   diagDesc\n\n    !-----------------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------------\n    RC         = GC_SUCCESS\n    hasMapData = PRESENT( mapData )\n    hasNSlots  = PRESENT( nSlots  )\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Diag%'\n    thisLoc    = &\n         ' -> at Register_DiagField_R8_4D (in Headers/state_diag_mod.F90)'\n\n    !-----------------------------------------------------------------------\n    ! Get metadata for this diagnostic\n    !-----------------------------------------------------------------------\n    CALL Get_Metadata_State_Diag( am_I_root  = Input_Opt%amIRoot,            &\n                                  found      = found,                        &\n                                  metadataId = metadataID,                   &\n                                  desc       = desc,                         &\n                                  outType    = outType,                      &\n                                  units      = units,                        &\n                                  rank       = rank,                         &\n                                  srcType    = srcType,                      &\n                                  tagId      = tagId,                        &\n                                  vloc       = vloc,                         &\n                                  RC         = RC                           )\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Diag\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( VLoc == VLocationEdge )\n\n    !-----------------------------------------------------------------------\n    ! Check that metadata dimensions consistent with data pointer\n    !-----------------------------------------------------------------------\n    IF ( rank /= 3 ) THEN\n       ErrMsg = 'Data dims and metadata rank do not match for '           // &\n                TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Assume always tagged -- get number of tags.\n    ! If the mapData object is passed, then we have already gotten the\n    ! number of tags in routine Get_Mapping.\n    !-----------------------------------------------------------------------\n\n    ! Make sure one of mapData or nSlots is passed!\n    IF ( ( .not. hasMapData ) .and. ( .not. hasNSlots ) ) THEN\n       errMsg = 'One of mapData or nSlots must be passed '                // &\n                'for tagged diagnostic : ' // TRIM( metadataId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Get number of tags\n    IF ( hasMapData ) THEN\n       nTags = mapData%nSlots\n    ELSE IF ( hasNSlots ) THEN\n       nTags = nSlots\n    ENDIF\n\n    ! Check that number of tags is consistent with array size\n    IF ( nTags /=  SIZE(Ptr2Data,4) ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID )                  // &\n             '; number of tags is inconsistent with array size'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Register each tagged name as a separate diagnostic\n    !-----------------------------------------------------------------------\n    DO N = 1, nTags\n\n       ! Get the diagnostic name and description\n       ! plus tag (e.g. \"SpeciesConcVV_O3\". etc.)\n       CALL Get_DiagNameDesc( Input_Opt  = Input_Opt,                        &\n                              State_Chm  = State_Chm,                        &\n                              metadataId = metadataId,                       &\n                              desc       = desc,                             &\n                              N          = N,                                &\n                              tagId      = tagId,                            &\n                              mapData    = mapData,                          &\n                              diagName   = diagName,                         &\n                              diagDesc   = diagDesc,                         &\n                              RC         = RC                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )               // &\n                   ' where tagID is ' // TRIM( tagID      )               // &\n                   '; Abnormal exit from routine \"Get_DiagNameDesc\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Add field to registry\n       CALL Registry_AddField( Input_Opt      = Input_Opt,                   &\n                               Registry       = State_Diag%Registry,         &\n                               State          = State_Diag%State,            &\n                               Variable       = diagName,                    &\n                               Description    = diagDesc,                    &\n                               Units          = units,                       &\n                               OnLevelEdges   = onEdges,                     &\n                               Output_KindVal = outType,                     &\n                               Data3d_8       = Ptr2Data(:,:,:,N),           &\n                               RC             = RC                            )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( metaDataId )               // &\n                   ' where tagID is ' // TRIM( tagID      )               // &\n                   '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE Register_DiagField_R8_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_RRTMG_Indices\n!\n! !DESCRIPTION: Populates fields of State\\_Diag that are used to keep track\n!  of the requested RRTMG flux outputs and their indices.  These are needed\n!  to be able to pass the proper flux output (and corresponding index for\n!  the appropriate netCDF diagnostic arrays) to DO\\_RRTMG\\_RAD\\_TRANSFER.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_RRTMG_Indices( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE DiagList_Mod,   ONLY : RadOut, nRadOut\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REMARKS:\n!  The index fields State_Diag%nRadOut, State_Diag%RadOutName, and\n!  State_Diag%RadOutInd are populated from information obtained in\n!  Headers/diaglist_mod.F90.\n!\n! !REVISION HISTORY:\n!  08 Nov 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, FluxStr, TmpStr\n\n    !=======================================================================\n    ! Init_RRTMG_Indices begins here\n    !=======================================================================\n\n    ! Assume success )\n    RC      = GC_SUCCESS\n\n    ! Return if RRTMG isn't turned on\n    IF ( .not. Input_Opt%LRAD ) RETURN\n\n    ! Initialze\n    FluxStr = ''\n    TmpStr  = ''\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_RRTMG_Indices (in module Headers/state_diag_mod.F90)'\n\n    !=======================================================================\n    ! Loop over all possible types of RRTMG outputs and store the name\n    ! of each output in State_Diag%RadOutName and its expected index\n    ! value in State_Diag%RadOutInd.\n    !\n    ! RRTMG outputs are requested in HISTORY.rc.  The expected\n    ! index corresponding to each flux output type is:\n    !\n    !   0=BASE and then...\n    !   1=O3  2=O3T 3=ME  4=H2O  5=CO2  6=CFC  7=N2O\n    !   8=SU  9=NI 10=AM  11=BC  12=OA  13=SS  14=DU\n    !  15=PM  16=ST\n    !\n    ! See wiki.geos-chem.org/Coupling_GEOS-Chem_with_RRTMG.\n    !\n    ! This is a bit convoluted but we need to do this in order to keep\n    ! track of the slot of the netCDF diagnostic arrays in State_Diag in\n    ! which to archive the various outputs. This also lets us keep\n    ! backwards compatibility with the existing code to the greatest extent.\n    !=======================================================================\n\n    ! Loop over all of the flux outputs requested in HISTORY.rc\n    DO N = 1, State_Diag%nRadOut\n\n       ! Save the name of the requested flux output\n       State_Diag%RadOutName(N) = RadOut(N)\n\n       ! Determine the RRTMG-expected index\n       ! corresponding to each flux output name\n       SELECT CASE( State_Diag%RadOutName(N) )\n          CASE( 'BASE' )\n             State_Diag%RadOutInd(N) = 0\n          CASE( 'O3' )\n             State_Diag%RadOutInd(N) = 1\n          CASE( 'O3T' )\n             State_Diag%RadOutInd(N) = 2\n          CASE( 'ME' )\n             State_Diag%RadOutInd(N) = 3\n          CASE( 'H2O' )\n             State_Diag%RadOutInd(N) = 4\n          CASE( 'CO2' )\n             State_Diag%RadOutInd(N) = 5\n          CASE( 'CFC' )\n             State_Diag%RadOutInd(N) = 6\n          CASE( 'N2O' )\n             State_Diag%RadOutInd(N) = 7\n          CASE( 'SU' )\n             State_Diag%RadOutInd(N) = 8\n          CASE( 'NI' )\n             State_Diag%RadOutInd(N) = 9\n          CASE( 'AM' )\n             State_Diag%RadOutInd(N) = 10\n          CASE( 'BC' )\n             State_Diag%RadOutInd(N) = 11\n          CASE( 'OA' )\n             State_Diag%RadOutInd(N) = 12\n          CASE( 'SS' )\n             State_Diag%RadOutInd(N) = 13\n          CASE( 'DU' )\n             State_Diag%RadOutInd(N) = 14\n          CASE( 'PM' )\n             State_Diag%RadOutInd(N) = 15\n          CASE( 'ST' )\n             State_Diag%RadOutInd(N) = 16\n          CASE DEFAULT\n             ! Nothing\n       END SELECT\n\n       ! Create a string with the requested outputs\n       WRITE( TmpStr, 100 ) State_Diag%RadOutName(N),                       &\n                            State_Diag%RadOutInd(N)\n\n       ! Append to the resultant string\n       IF ( N == 1 ) THEN\n          FluxStr = TRIM( TmpStr )\n       ELSE\n          FluxStr = TRIM( FluxStr ) // '  ' // TRIM( TmpStr )\n       ENDIF\n    ENDDO\n\n    ! Print to screen\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(/,a)' ) 'INIT_RRTMG_INDICES'\n       WRITE( 6, '(  a)' ) '------------------'\n       WRITE( 6, 110 ) 'Requested RRTMG outputs : ', TRIM( FluxStr )\n    ENDIF\n\n    ! FORMAT statements\n100 FORMAT( a, ' (=', i2.2, ')' )\n110 FORMAT( a, a                )\n\n  END SUBROUTINE Init_RRTMG_Indices\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Mapping\n!\n! !DESCRIPTION: Computes a mapping array which contains the index of each\n!  species in its State_Diag array.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Mapping( Input_Opt,   State_Chm, TaggedDiagList,            &\n                          metadataID,  mapData,   indFlag,                   &\n                          RC                                                )\n!\n! !USES:\n!\n    USE CharPak_Mod,        ONLY : CntMat\n    USE CharPak_Mod,        ONLY : Unique\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : Ind_\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)  :: Input_Opt      ! Root CPU?\n    TYPE(ChmState),        INTENT(IN)  :: State_Chm      ! Chemistry State\n    TYPE(TaggedDgnList),   INTENT(IN)  :: TaggedDiagList ! Tags or wildcards\n    CHARACTER(LEN=*),      INTENT(IN)  :: metadataId     ! Diagnostic name\n    CHARACTER(LEN=*),      INTENT(IN)  :: indFlag        ! Flag for Ind_\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(DgnMap), POINTER, INTENT(OUT) :: mapData        ! Mapping object\n    INTEGER,               INTENT(OUT) :: RC             ! Success/failure?\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n !LOCAL VARIABLES:\n\n    ! Scalars\n    LOGICAL                   :: found\n    LOGICAL                   :: isDustBin\n    LOGICAL                   :: isTomasBin\n    LOGICAL                   :: isLoss\n    LOGICAL                   :: isProd\n    LOGICAL                   :: isRxnRate\n    LOGICAL                   :: isUvFlx\n    LOGICAL                   :: isWildCard\n    LOGICAL                   :: skipInd\n    INTEGER                   :: index\n    INTEGER                   :: numTags\n    INTEGER                   :: numWildCards\n    INTEGER                   :: nTags\n    INTEGER                   :: S\n\n    ! Strings\n    CHARACTER(LEN=4  )        :: rxnStr\n    CHARACTER(LEN=255)        :: mapName\n    CHARACTER(LEN=255)        :: mapName2\n    CHARACTER(LEN=255)        :: tagName\n    CHARACTER(LEN=255)        :: thisLoc\n    CHARACTER(LEN=255)        :: spcName\n    CHARACTER(LEN=255)        :: wcName\n    CHARACTER(LEN=512)        :: errMsg\n\n    ! Objects\n    TYPE(DgnTagItem), POINTER :: TagItem\n    TYPE(DgnTagList)          :: TagList\n    TYPE(DgnTagList)          :: WildCardList\n\n    !=======================================================================\n    ! Get_Mapping begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    mapName    = 'Map_ ' // TRIM( metadataId )\n    mapName2   = TRIM( mapName ) // '%id'\n    isTomasBin = ( indFlag == 'T'                        )\n    isDustBin  = ( indFlag == 'B'                        )\n    isRxnRate  = ( indFlag == 'R'                        )\n    isUvFlx    = ( indFlag == 'U'                        )\n    isLoss     = ( indFlag == 'X'                        )\n    isProd     = ( indFlag == 'Y'                        )\n    skipInd    = ( isRxnRate .or. isUvFlx .or. isDustBin .or. isTomasBin )\n    spcName    = ''\n    wcName     = ''\n    errMsg     = ''\n    thisLoc    = ' -> at Get_Mapping (in module Headers/state_diag_mod.F90)'\n\n    !=======================================================================\n    ! Get info about the TaggedDiagList attached to this diagnostic\n    !=======================================================================\n    CALL Query_TaggedDiagList( TaggedDiagList = TaggedDiagList,  &\n                               diagName       = metadataId,      &\n                               Found          = Found,           &\n                               isWildCard     = isWildCard,      &\n                               numWildCards   = numWildCards,    &\n                               WildCardList   = WildCardList,    &\n                               numTags        = numTags,         &\n                               TagList        = TagList,         &\n                               RC             = RC              )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Query_TaggedDiagList\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate and populate the mapData object\n    !=======================================================================\n\n    ! Allocate mapData (because it is a pointer, we have to\n    ! allocate the main object before any of the subfields)\n    IF ( ASSOCIATED( mapData ) ) DEALLOCATE( mapData )\n    ALLOCATE( mapData, STAT=RC )\n    CALL GC_CheckVar( mapName, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize fields of mapData (mostly to missing values)\n    mapData%nSlots  = -1\n    mapData%slot2id => NULL()\n    mapData%nIds    = -1\n    mapData%id2slot => NULL()\n    mapData%indFlag =  indFlag\n\n    IF ( isWildCard ) THEN\n\n       !--------------------------------------------------------------------\n       ! Diagnostic has a wildcard\n       !--------------------------------------------------------------------\n\n       ! Find the number of tags for this wildcard\n       TagItem => WildCardList%head\n       DO WHILE ( ASSOCIATED( TagItem ) )\n          wcName = TagItem%name\n          CALL Get_NumTags( wcName, State_Chm, mapData%nSlots, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Get_NumTags\"!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             TagItem => NULL()\n             RETURN\n          ENDIF\n\n          ! Advance to next wildcard in list\n          ! NOTE: Most diagnostics will only have one wildcard!\n          TagItem => TagItem%next\n       ENDDO\n       TagItem => NULL()\n\n       ! Allocate the mapData%slot2id field\n       IF ( ASSOCIATED( mapData%slot2id ) ) DEALLOCATE( mapData%slot2id )\n       ALLOCATE( mapData%slot2id( mapData%nSlots ), STAT=RC )\n       CALL GC_CheckVar( mapName2, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       mapData%slot2id = -1\n\n       ! Get the id for each species indicated by wildcard\n       ! For diagnostics that are not defined species in the\n       ! species database, skip calling the Ind_ function.\n       DO index = 1, mapData%nSlots\n          CALL Get_TagInfo( Input_Opt = Input_Opt,                           &\n                            State_Chm = State_Chm,                           &\n                            tagId     = wcName,                              &\n                            N         = index,                               &\n                            tagName   = spcName,                             &\n                            found     = found,                               &\n                            RC        = RC                                  )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Get_Mapping!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n          ! Save the in the mapping object\n          IF ( skipInd ) THEN\n             mapData%slot2id(index) = index\n          ELSE IF ( isLoss ) THEN\n             mapData%slot2id(index) = State_Chm%Map_Loss(index)\n          ELSE IF ( isProd ) THEN\n             mapData%slot2id(index) = State_Chm%Map_Prod(index)\n          ELSE\n             mapData%slot2id(index) = Ind_( spcName, indFlag )\n          ENDIF\n       ENDDO\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Diagnostic has tags (i.e. individual non-wildcard species)\n       !--------------------------------------------------------------------\n\n       ! Set the number of tags\n       mapData%nSlots = numTags\n\n       ! Allocate the mapData%id field\n       IF ( ASSOCIATED( mapData%slot2id ) ) DEALLOCATE( mapData%slot2id )\n       ALLOCATE( mapData%slot2id( mapData%nSlots ), STAT=RC )\n       CALL GC_CheckVar( mapName2, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       mapData%slot2id = -1\n\n       ! Loop thru the list of tags and find the relevant ID\n       ! For diagnostics that are not defined species in the\n       ! species database, skip calling the Ind_ function.\n       TagItem => TagList%head\n       DO WHILE ( ASSOCIATED( TagItem ) )\n\n          IF ( isDustBin ) THEN\n\n             ! Dustbin: Tag names are \"bin1\" .. \"bin7\", so the\n             ! bin number is the last character of the tag name\n             S = LEN_TRIM( TagItem%Name )\n             READ( TagItem%Name(S:S), '(I1)' ) index\n             mapData%slot2id(TagItem%index) = index\n\n          ELSEIF ( isTomasBin ) THEN\n\n             ! TomasSbin: Tag names are \"bin01\" .. \"bin15\", so the\n             ! bin number is the last 2 characters of the tag name\n             S = LEN_TRIM( TagItem%Name )\n             READ( TagItem%Name(S-1:S), '(I2.2)' ) index\n             mapData%slot2id(TagItem%index) = index\n\n          ELSE IF ( isLoss ) THEN\n\n             ! Loss: get the index from State_Chm%Map_Loss\n             mapData%slot2id(TagItem%index) = State_Chm%Map_Loss(TagItem%index)\n\n          ELSE IF ( isProd ) THEN\n\n             ! Prod get the index from State_Chm%Map_Prod\n             mapData%slot2id(TagItem%index) = State_Chm%Map_Prod(TagItem%index)\n\n          ELSE IF ( isRxnRate ) THEN\n\n             ! RxnRate: the last 4 characters is the index #\n             S      = LEN_TRIM( TagItem%name )\n             rxnStr = TagItem%name(S-3:S)\n             READ( rxnstr, '(I4.4) ' ) index\n             mapData%slot2id(TagItem%index) = index\n\n          ELSE IF ( isUvFlx ) THEN\n\n             ! Get the proper UVFLux bin index, which is pegged\n             ! to the corresponding FAST-JX wavelength bin\n             CALL Get_UVFlux_Bin( TagItem%name, index, RC )\n             IF ( RC /= GC_SUCCESS ) THEN\n                errMsg = 'Error encountered in routine \"Get_UVFlux_Bin\"!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n\n             ! Store wavelength bin index in the slot2Id field\n             mapData%slot2id(TagItem%index) = index\n\n          ELSE\n\n             ! Otherwise, this is a defined species.\n             ! Call Ind_() to get the proper index\n             mapData%slot2id(TagItem%index) = Ind_( TagItem%name, indFlag )\n\n          ENDIF\n\n          ! Go to next tag\n          TagItem => TagItem%next\n       ENDDO\n       TagItem => NULL()\n    ENDIF\n\n    !--------------------------------------------------------------------\n    ! Create an index array with the max number of possible Id's\n    !--------------------------------------------------------------------\n\n    ! Before proceeding, make sure that slot2Id contains valid values\n    IF ( ANY( mapData%slot2id < 0 ) ) THEN\n       errMsg = 'The mapData%slot2Id array corresponding to collection \"' // &\n                TRIM( metadataId ) // '\" contains missing values! '       // &\n                'This can indicate that this collection is either '       // &\n                'undefined or turned off.  Please check the HISTORY.rc '  // &\n                'configuration file in your run directory.'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Skip computing id2slot for Prod and Loss diagnostics\n    IF ( .not. isLoss .and. .not. isProd ) THEN\n\n       ! Get max number of species for this indFlag\n       CALL Get_NumTags( indFlag, State_Chm, mapData%nIds, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Get_NumTags\" (tagId=indFlag)!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Allocate the mapData%id2slot field\n       IF ( ASSOCIATED( mapData%id2slot ) ) DEALLOCATE( mapData%id2slot )\n       ALLOCATE( mapData%id2slot( mapData%nIds ), STAT=RC )\n       CALL GC_CheckVar( mapName2, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       mapData%id2slot = -1\n\n       ! Populate the mapData%id2slot field\n       DO S = 1, mapData%nSlots\n          index = mapData%slot2Id(S)\n          mapData%id2slot(index) = S\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE Get_Mapping\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_MapData_and_NumSlots\n!\n! !DESCRIPTION: Returns the mapping object (if passed) for a given\n!  diagnostic, as well as the number of slots to size the last dimension\n!  of the diagnostic array.  This is a convenience routine that was\n!  abstracted from the various Init_and_Register_* routines in order\n!  to reduce repetition of code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_MapData_and_NumSlots( Input_Opt,      State_Chm,            &\n                                       TaggedDiagList, metadataId,           &\n                                       numSlots,       RC,                   &\n                                       indFlag,        mapData              )\n!\n! !USES:\n!\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE State_Chm_Mod, ONLY : ChmState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)  :: Input_Opt      ! Input Options\n    TYPE(ChmState),        INTENT(IN)  :: State_Chm      ! Chemistry State\n    TYPE(TaggedDgnList),   INTENT(IN)  :: TaggedDiagList ! Tags/WCs per diag\n    CHARACTER(LEN=*),      INTENT(IN)  :: metadataId     ! Diagnostic name\n    CHARACTER(LEN=*),      INTENT(IN)  :: indFlag        !\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(DgnMap), POINTER, OPTIONAL    :: mapData        ! Mapping object\n    INTEGER,               INTENT(OUT) :: numSlots       ! # of slots to\n                                                         !  size data array\n    INTEGER,               INTENT(OUT) :: RC             ! Success or failure?\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found\n\n    ! Strings\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC       = GC_SUCCESS\n    found    = .FALSE.\n    numSlots = 1\n    errMsg   = ''\n    tagId    = ''\n    thisLoc   = &\n     ' -> at Get_MapData_and_NumSlots (in module Headers/state_diag_mod.F90)'\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n\n       ! If the mapping array is passed, then get the vector which contains\n       ! the list of ModelID's from the species database for each\n       ! quantity in the diagnostic, as well as the number of slots\n       ! to allocate for the 4th dimension of Ptr2Data.\n       CALL Get_Mapping( Input_Opt      = Input_Opt,                         &\n                         State_Chm      = State_Chm,                         &\n                         TaggedDiagList = TaggedDiagList,                    &\n                         metadataId     = metadataId,                        &\n                         indFlag        = indFlag,                           &\n                         mapData        = mapData,                           &\n                         RC             = RC                                )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Get_Mapping\": '// TRIM( metadataId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Number of slots to size the 4th dim of Ptr2Data\n       numSlots = mapData%nSlots\n\n    ELSE\n\n       ! If the mapping array is not passed, then find the wildcard\n       ! that is attached to this diagnostic ...\n       CALL Get_Metadata_State_Diag( am_I_Root  = Input_Opt%amIRoot,          &\n                                     metadataId = metadataId,                 &\n                                     Found      = Found,                      &\n                                     tagId      = tagID,                      &\n                                     RC         = RC                         )\n\n       IF ( RC /= GC_SUCCESS .or. .not. found ) THEN\n          ErrMsg = 'Error encountered in \"Get_MetaData_State_Diag\", '      // &\n                   'could not get tagId for ' // TRIM( metadataId )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! ... and then find the number of \"tags\" corresponding to\n       ! this wilcard.  This will be the number of slots for\n       ! allocating the 4th dimension of Ptr2Data.\n       IF ( found ) THEN\n          CALL Get_NumTags( tagId, State_Chm, numSlots, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Abnormal exit from routine \"Get_NumTags\", could  '  // &\n                      'not get nTags for !' // TRIM( metadataId )\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Get_MapData_and_NumSlots\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_2D\n!\n! !DESCRIPTION: Allocates a State_Diag array and registers each diagnostic\n!  quantity archived by that array.  This particular routine is for\n!  4-byte, 2-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_2D( Input_Opt,   State_Chm,                &\n                                      State_Diag,  State_Grid,               &\n                                      DiagList,    TaggedDiagList,           &\n                                      Ptr2Data,    diagId,                   &\n                                      archiveData, RC,                       &\n                                      mapData,     forceDefine,              &\n                                      dim1d,       diagFlag                 )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(GrdState),        INTENT(IN)    :: State_Grid       ! Grid State\n    TYPE(DgnList),         INTENT(IN)    :: DiagList         ! Diags specified\n    TYPE(TaggedDgnList),   INTENT(IN)    :: TaggedDiagList   ! Tags and WCs\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId           ! Diagnostic name\n    INTEGER,               OPTIONAL      :: dim1d            ! Dim for 1-D data\n    LOGICAL,               OPTIONAL      :: forceDefine      ! Don't skip diag\n    CHARACTER(LEN=*),      OPTIONAL      :: diagFlag         ! Flag for Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diagnostic State\n    LOGICAL,               INTENT(INOUT) :: archiveData      ! Save this diag?\n    REAL(f4),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:)    ! Pointer to data\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure!\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: alwaysDefine, found\n    INTEGER            :: NX,           NY\n    INTEGER            :: NW,           numSlots\n\n    ! Strings\n    CHARACTER(LEN=1)   :: indFlag\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: arrayId\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Init_and_Register_R4_2D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    numSlots   = -1\n    found      = .FALSE.\n    arrayID    = 'State_Diag%' // TRIM( diagId )\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_and_Register_R4_2D (in module Headers/state_diag_mod.F90)'\n\n    ! Test if this diagnostic will always be defined\n    ! (e.g. this might be needed for coupling with GEOS)\n    IF ( PRESENT( forceDefine ) ) THEN\n       alwaysDefine = forceDefine\n    ELSE\n       alwaysDefine = .FALSE.\n    ENDIF\n\n    ! If diagFlag is not passed, then we will get the id for all\n    ! species (instead of restricting to advected, drydep, wetdep, etc.)\n    IF ( PRESENT( diagFlag ) ) THEN\n       indFlag = diagFlag\n    ELSE\n       indFlag = 'S'\n    ENDIF\n\n    ! Zero/nullify the data and mapping variables\n    IF ( ASSOCIATED( Ptr2Data ) ) DEALLOCATE( Ptr2Data )\n    Ptr2Data => NULL()\n    archiveData = .FALSE.\n    IF ( PRESENT( mapData ) ) THEN\n       IF ( ASSOCIATED( mapData ) ) DEALLOCATE( mapData )\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! First determine if the diagnostic is turned on\n    ! Return if it isn't (unless forceDefine = .TRUE.)\n    !=======================================================================\n    CALL Check_DiagList( Input_Opt%amIRoot, DiagList, diagID, found, RC )\n    IF ( ( .not. found ) .and. ( .not. alwaysDefine ) ) RETURN\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array;\n    ! also get the mapping object for memory reduction (if passed)\n    !=======================================================================\n    CALL Get_MapData_and_NumSlots( Input_Opt       = Input_Opt,             &\n                                   State_Chm       = State_Chm,             &\n                                   TaggedDiagList  = TaggedDiagList,        &\n                                   metadataId      = diagId,                &\n                                   indFlag         = indFlag,               &\n                                   numSlots        = numSlots,              &\n                                   mapData         = mapData,               &\n                                   RC              = RC                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Get_MapData_and_NumSlots\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate diagnostic array\n    !=======================================================================\n\n    ! Dimensions of the grid\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n\n    ! Get dimension if this is 1-D tagged data\n    IF ( PRESENT( dim1d ) ) THEN\n       NW = dim1d\n    ELSE\n       NW = -1\n    ENDIF\n\n    ! Allocate the data array\n    IF ( numSlots > 0 .and. NW > 0 ) THEN\n       ALLOCATE( Ptr2Data( NW, numSlots ), STAT=RC )\n    ELSE\n       ALLOCATE( Ptr2Data( NX, NY       ), STAT=RC )\n    ENDIF\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize diagnostic array and set its archival flag to TRUE\n    Ptr2Data    = 0.0_f4\n    archiveData = .TRUE.\n\n    !=======================================================================\n    ! Register the diagnostic\n    !=======================================================================\n    CALL Register_DiagField( Input_Opt  = Input_Opt,                         &\n                             State_Chm  = State_Chm,                         &\n                             State_Diag = State_Diag,                        &\n                             metadataId = diagId,                            &\n                             Ptr2Data   = Ptr2Data,                          &\n                             mapData    = mapData,                           &\n                             nSlots     = numSlots,                          &\n                             RC         = RC                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Register_DiagField\" (hasMapData=T)!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Print info about diagnostic\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) ADJUSTL( arrayID ), TRIM( diagID )\n 100   FORMAT( 1x, a32, ' is registered as: ', a )\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_3D\n!\n! !DESCRIPTION: Allocates a State_Diag array and registers each diagnostic\n!  quantity archived by that array.  This particular routine is for\n!  4-byte, 3-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_3D( Input_Opt,   State_Chm,                &\n                                      State_Diag,  State_Grid,               &\n                                      DiagList,    TaggedDiagList,           &\n                                      Ptr2Data,    diagId,                   &\n                                      archiveData, RC,                       &\n                                      mapData,     forceDefine,              &\n                                      diagFlag                              )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(GrdState),        INTENT(IN)    :: State_Grid       ! Grid State\n    TYPE(DgnList),         INTENT(IN)    :: DiagList         ! Diags specified\n    TYPE(TaggedDgnList),   INTENT(IN)    :: TaggedDiagList   ! Tags and WCs\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId           ! Diagnostic name\n    LOGICAL,               OPTIONAL      :: forceDefine      ! Don't skip diag\n    CHARACTER(LEN=*),      OPTIONAL      :: diagFlag         ! Flag for Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diagnostic State\n    LOGICAL,               INTENT(INOUT) :: archiveData      ! Save this diag?\n    REAL(f4),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:)  ! Pointer to data\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure!\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: alwaysDefine, found\n    INTEGER            :: NX,           NY,       NZ\n    INTEGER            :: NW,           numSlots\n\n    ! Strings\n    CHARACTER(LEN=1)   :: indFlag\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: arrayId\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Init_and_Register_R4_3D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    numSlots   = -1\n    found      = .FALSE.\n    arrayID    = 'State_Diag%' // TRIM( diagId )\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_and_Register_R4_3D (in module Headers/state_diag_mod.F90)'\n\n    ! Test if this diagnostic will always be defined\n    ! (e.g. this might be needed for coupling with GEOS)\n    IF ( PRESENT( forceDefine ) ) THEN\n       alwaysDefine = forceDefine\n    ELSE\n       alwaysDefine = .FALSE.\n    ENDIF\n\n    ! If diagFlag is not passed, then we will get the modelId for all\n    ! species (instead of restricting to advected, drydep, wetdep, etc.)\n    IF ( PRESENT( diagFlag ) ) THEN\n       indFlag = diagFlag\n    ELSE\n       indFlag = 'S'\n    ENDIF\n\n    ! Zero/nullify the data and mapping variables\n    IF ( ASSOCIATED( Ptr2Data ) ) DEALLOCATE( Ptr2Data )\n    Ptr2Data => NULL()\n    archiveData = .FALSE.\n    IF ( PRESENT( mapData ) ) THEN\n       IF ( ASSOCIATED( mapData ) ) DEALLOCATE( mapData )\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! First determine if the diagnostic is turned on\n    ! Return if it isn't (unless forceDefine = .TRUE.)\n    !=======================================================================\n    CALL Check_DiagList( Input_Opt%amIRoot, DiagList, diagID, found, RC )\n    IF ( ( .not. found ) .and. ( .not. alwaysDefine ) ) RETURN\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array;\n    ! also get the mapping object for memory reduction (if passed)\n    !=======================================================================\n    CALL Get_MapData_and_NumSlots( Input_Opt       = Input_Opt,             &\n                                   State_Chm       = State_Chm,             &\n                                   TaggedDiagList  = TaggedDiagList,        &\n                                   metadataId      = diagId,                &\n                                   indFlag         = indFlag,               &\n                                   numSlots        = numSlots,              &\n                                   mapData         = mapData,               &\n                                   RC              = RC                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Get_MapData_and_NumSlots\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate diagnostic array\n    !=======================================================================\n\n    ! Dimensions of the grid\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n    NZ = State_Grid%NZ\n\n    ! Allocate array\n    IF ( numSlots > 0 ) THEN\n       ALLOCATE( Ptr2Data( NX, NY, numSlots ), STAT=RC )\n    ELSE\n       ALLOCATE( Ptr2Data( NX, NY, NZ       ), STAT=RC )\n    ENDIF\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize diagnostic array and set its archival flag to TRUE\n    Ptr2Data    = 0.0_f4\n    archiveData = .TRUE.\n\n    !=======================================================================\n    ! Register the diagnostic\n    !=======================================================================\n    CALL Register_DiagField( Input_Opt  = Input_Opt,                         &\n                             State_Chm  = State_Chm,                         &\n                             State_Diag = State_Diag,                        &\n                             metadataId = diagId,                            &\n                             Ptr2Data   = Ptr2Data,                          &\n                             mapData    = mapData,                           &\n                             nSlots     = numSlots,                          &\n                             RC         = RC                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Register_DiagField\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Print info about diagnostic\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) ADJUSTL( arrayID ), TRIM( diagID )\n 100   FORMAT( 1x, a32, ' is registered as: ', a )\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_4D\n!\n! !DESCRIPTION: Allocates a State_Diag array and registers each diagnostic\n!  quantity archived by that array.  This particular routine is for\n!  4-byte, 4-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_4D( Input_Opt,   State_Chm,                &\n                                      State_Diag,  State_Grid,               &\n                                      DiagList,    TaggedDiagList,           &\n                                      Ptr2Data,    diagId,                   &\n                                      archiveData, RC,                       &\n                                      mapData,     forceDefine,              &\n                                      diagFlag                              )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(GrdState),        INTENT(IN)    :: State_Grid       ! Grid State\n    TYPE(DgnList),         INTENT(IN)    :: DiagList         ! Diags specified\n    TYPE(TaggedDgnList),   INTENT(IN)    :: TaggedDiagList   ! Tags and WCs\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId           ! Diagnostic name\n    LOGICAL,               OPTIONAL      :: forceDefine      ! Don't skip diag\n    CHARACTER(LEN=*),      OPTIONAL      :: diagFlag         ! Flag for Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diagnostic State\n    LOGICAL,               INTENT(INOUT) :: archiveData      ! Save this diag?\n    REAL(f4),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:,:)! Pointer to data\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure!\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: alwaysDefine, found\n    INTEGER            :: NX,           NY,      NZ\n    INTEGER            :: NW,           numSlots\n\n    ! Strings\n    CHARACTER(LEN=1)   :: indFlag\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: arrayId\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Init_and_Register_R4_4D begins here!\n    !=======================================================================\n\n    ! Initialzie\n    RC         = GC_SUCCESS\n    numSlots   = -1\n    found      = .FALSE.\n    arrayID    = 'State_Diag%' // TRIM( diagId )\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_and_Register_R4_4D (in module Headers/state_diag_mod.F90)'\n\n    ! Test if this diagnostic will always be defined\n    ! (e.g. this might be needed for coupling with GEOS)\n    IF ( PRESENT( forceDefine ) ) THEN\n       alwaysDefine = forceDefine\n    ELSE\n       alwaysDefine = .FALSE.\n    ENDIF\n\n    ! If diagFlag is not passed, then we will get the modelId for all\n    ! species (instead of restricting to advected, drydep, wetdep, etc.)\n    IF ( PRESENT( diagFlag ) ) THEN\n       indFlag = diagFlag\n    ELSE\n       indFlag = 'S'\n    ENDIF\n\n    ! Zero/nullify the data and mapping variables\n    IF ( ASSOCIATED( Ptr2Data ) ) DEALLOCATE( Ptr2Data )\n    Ptr2Data => NULL()\n    archiveData = .FALSE.\n    IF ( PRESENT( mapData ) ) THEN\n       IF ( ASSOCIATED( mapData ) ) DEALLOCATE( mapData )\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! First determine if the diagnostic is turned on\n    ! Return if it isn't (unless forceDefine = .TRUE.)\n    !=======================================================================\n    CALL Check_DiagList( Input_Opt%amIRoot, DiagList, diagID, found, RC )\n    IF ( ( .not. found ) .and. ( .not. alwaysDefine ) ) RETURN\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array;\n    ! also get the mapping object for memory reduction (if passed)\n    !=======================================================================\n    CALL Get_MapData_and_NumSlots( Input_Opt       = Input_Opt,             &\n                                   State_Chm       = State_Chm,             &\n                                   TaggedDiagList  = TaggedDiagList,        &\n                                   metadataId      = diagId,                &\n                                   indFlag         = indFlag,               &\n                                   numSlots        = numSlots,              &\n                                   mapData         = mapData,               &\n                                   RC              = RC                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Get_MapData_and_NumSlots\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate diagnostic array\n    !=======================================================================\n\n    ! Dimensions of the grid\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n    NZ = State_Grid%NZ\n\n    ! Allocate array\n    ALLOCATE( Ptr2Data( NX, NY, NZ, numSlots ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize diagnostic array and set its archival flag to TRUE\n    Ptr2Data    = 0.0_f4\n    archiveData = .TRUE.\n\n    !=======================================================================\n    ! Register the diagnostic\n    !=======================================================================\n    CALL Register_DiagField( Input_Opt  = Input_Opt,                      &\n                             State_Chm  = State_Chm,                      &\n                             State_Diag = State_Diag,                     &\n                             metadataId = diagId,                         &\n                             Ptr2Data   = Ptr2Data,                       &\n                             mapData    = mapData,                        &\n                             nSlots     = numSlots,                       &\n                             RC         = RC                             )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Register_DiagField\": '// TRIM(diagID)\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Print info about diagnostic\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) ADJUSTL( arrayID ), TRIM( diagID )\n 100   FORMAT( 1x, a32, ' is registered as: ', a )\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_2D\n!\n! !DESCRIPTION: Allocates a State_Diag array and registers each diagnostic\n!  quantity archived by that array.  This particular routine is for\n!  8-byte, 2-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_2D( Input_Opt,   State_Chm,                &\n                                      State_Diag,  State_Grid,               &\n                                      DiagList,    TaggedDiagList,           &\n                                      Ptr2Data,    diagId,                   &\n                                      archiveData, RC,                       &\n                                      mapData,     forceDefine,              &\n                                      dim1d,       diagFlag                 )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(GrdState),        INTENT(IN)    :: State_Grid       ! Grid State\n    TYPE(DgnList),         INTENT(IN)    :: DiagList         ! Diags specified\n    TYPE(TaggedDgnList),   INTENT(IN)    :: TaggedDiagList   ! Tags and WCs\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId           ! Diagnostic name\n    LOGICAL,               OPTIONAL      :: forceDefine      ! Don't skip diag\n    INTEGER,               OPTIONAL      :: dim1d            ! Dim for 1d data\n    CHARACTER(LEN=*),      OPTIONAL      :: diagFlag         ! Flag for Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diagnostic State\n    LOGICAL,               INTENT(INOUT) :: archiveData      ! Save this diag?\n    REAL(f8),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:)    ! Pointer to data\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure!\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: alwaysDefine, found\n    INTEGER            :: NX,           NY\n    INTEGER            :: NW,           numSlots\n\n    ! Strings\n    CHARACTER(LEN=1)   :: indFlag\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: arrayId\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Init_and_Register_R8_4D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    found      = .FALSE.\n    numSlots   = -1\n    arrayID    = 'State_Diag%' // TRIM( diagId )\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_and_Register_R8_2D (in module Headers/state_diag_mod.F90)'\n\n    ! Test if this diagnostic will always be defined\n    ! (e.g. this might be needed for coupling with GEOS)\n    IF ( PRESENT( forceDefine ) ) THEN\n       alwaysDefine = forceDefine\n    ELSE\n       alwaysDefine = .FALSE.\n    ENDIF\n\n    ! If diagFlag is not passed, then we will get the modelId for all\n    ! species (instead of restricting to advected, drydep, wetdep, etc.)\n    IF ( PRESENT( diagFlag ) ) THEN\n       indFlag = diagFlag\n    ELSE\n       indFlag = 'S'\n    ENDIF\n\n    ! Zero/nullify the data and mapping variables\n    IF ( ASSOCIATED( Ptr2Data ) ) DEALLOCATE( Ptr2Data )\n    Ptr2Data => NULL()\n    archiveData = .FALSE.\n    IF ( PRESENT( mapData ) ) THEN\n       IF ( ASSOCIATED( mapData ) ) DEALLOCATE( mapData )\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! First determine if the diagnostic is turned on\n    ! Return if it isn't (unless forceDefine = .TRUE.)\n    !=======================================================================\n    CALL Check_DiagList( Input_Opt%amIRoot, DiagList, diagID, found, RC )\n    IF ( ( .not. found ) .and. ( .not. alwaysDefine ) ) RETURN\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array;\n    ! also get the mapping object for memory reduction (if passed)\n    !=======================================================================\n    CALL Get_MapData_and_NumSlots( Input_Opt       = Input_Opt,             &\n                                   State_Chm       = State_Chm,             &\n                                   TaggedDiagList  = TaggedDiagList,        &\n                                   metadataId      = diagId,                &\n                                   indFlag         = indFlag,               &\n                                   numSlots        = numSlots,              &\n                                   mapData         = mapData,               &\n                                   RC              = RC                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Get_MapData_and_NumSlots\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate diagnostic array\n    !=======================================================================\n\n    ! Dimensions of the grid\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n\n    IF ( PRESENT( dim1d ) ) THEN\n       NW = State_Grid%NZ\n    ELSE\n       NW = -1\n    ENDIF\n\n    ! Allocate array\n    IF ( numSlots > 0 .and. NW > 0 ) THEN\n       ALLOCATE( Ptr2Data( NW, numSlots ), STAT=RC )\n    ELSE\n       ALLOCATE( Ptr2Data( NX, NY       ), STAT=RC )\n    ENDIF\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize diagnostic array and set its archival flag to TRUE\n    Ptr2Data    = 0.0_f8\n    archiveData = .TRUE.\n\n    !=======================================================================\n    ! Register the diagnostic\n    !=======================================================================\n    CALL Register_DiagField( Input_Opt  = Input_Opt,                         &\n                             State_Chm  = State_Chm,                         &\n                             State_Diag = State_Diag,                        &\n                             metadataId = diagId,                            &\n                             Ptr2Data   = Ptr2Data,                          &\n                             mapData    = mapData,                           &\n                             nSlots     = numSlots,                          &\n                             RC         = RC                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Register_DiagField\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Print info about diagnostic\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) ADJUSTL( arrayID ), TRIM( diagID )\n 100   FORMAT( 1x, a32, ' is registered as: ', a )\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_3D\n!\n! !DESCRIPTION: Allocates a State_Diag array and registers each diagnostic\n!  quantity archived by that array.  This particular routine is for\n!  8-byte, 3-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_3D( Input_Opt,   State_Chm,                &\n                                      State_Diag,  State_Grid,               &\n                                      DiagList,    TaggedDiagList,           &\n                                      Ptr2Data,    diagId,                   &\n                                      archiveData, RC,                       &\n                                      mapData,     forceDefine,              &\n                                      diagFlag                              )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,       ONLY : OptInput\n    USE State_Chm_Mod,       ONLY : ChmState\n    USE State_Grid_Mod,      ONLY : GrdState\n    USE Registry_Params_Mod, ONLY : VLocationEdge\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(GrdState),        INTENT(IN)    :: State_Grid       ! Grid State\n    TYPE(DgnList),         INTENT(IN)    :: DiagList         ! Diags specified\n    TYPE(TaggedDgnList),   INTENT(IN)    :: TaggedDiagList   ! Tags and WCs\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId           ! Diagnostic name\n    LOGICAL,               OPTIONAL      :: forceDefine      ! Don't skip diag\n    CHARACTER(LEN=*),      OPTIONAL      :: diagFlag         ! Flag for Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diagnostic State\n    LOGICAL,               INTENT(INOUT) :: archiveData      ! Save this diag?\n    REAL(f8),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:)  ! Pointer to data\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure!\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: alwaysDefine, found\n    INTEGER            :: NX,           NY,       NZ\n    INTEGER            :: NW,           numSlots, vLoc\n\n    ! Strings\n    CHARACTER(LEN=1)   :: indFlag\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: arrayId\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Init_and_Register_R8_3D begins here!\n    !=======================================================================\n\n    ! Initialzie\n    RC         = GC_SUCCESS\n    numSlots   = -1\n    found      = .FALSE.\n    vLoc       = .FALSE.\n    arrayID    = 'State_Diag%' // TRIM( diagId )\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_and_Register_R8_3D (in module Headers/state_diag_mod.F90)'\n\n    ! Test if this diagnostic will always be defined\n    ! (e.g. this might be needed for coupling with GEOS)\n    IF ( PRESENT( forceDefine ) ) THEN\n       alwaysDefine = forceDefine\n    ELSE\n       alwaysDefine = .FALSE.\n    ENDIF\n\n    ! If diagFlag is not passed, then we will get the modelId for all\n    ! species (instead of restricting to advected, drydep, wetdep, etc.)\n    IF ( PRESENT( diagFlag ) ) THEN\n       indFlag = diagFlag\n    ELSE\n       indFlag = 'S'\n    ENDIF\n\n    ! Zero/nullify the data and mapping variables\n    IF ( ASSOCIATED( Ptr2Data ) ) DEALLOCATE( Ptr2Data )\n    Ptr2Data => NULL()\n    archiveData = .FALSE.\n    IF ( PRESENT( mapData ) ) THEN\n       IF ( ASSOCIATED( mapData ) ) DEALLOCATE( mapData )\n       mapData => NULL()\n    ENDIF\n\n    !=======================================================================\n    ! First determine if the diagnostic is turned on\n    ! Return if it isn't (unless forceDefine = .TRUE.)\n    !=======================================================================\n    CALL Check_DiagList( Input_Opt%amIRoot, DiagList, diagID, found, RC )\n    IF ( ( .not. found ) .and. ( .not. alwaysDefine ) ) RETURN\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array;\n    ! also get the mapping object for memory reduction (if passed)\n    !=======================================================================\n    CALL Get_MapData_and_NumSlots( Input_Opt       = Input_Opt,             &\n                                   State_Chm       = State_Chm,             &\n                                   TaggedDiagList  = TaggedDiagList,        &\n                                   metadataId      = diagId,                &\n                                   indFlag         = indFlag,               &\n                                   numSlots        = numSlots,              &\n                                   mapData         = mapData,               &\n                                   RC              = RC                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Get_MapData_and_NumSlots\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate diagnostic array\n    !=======================================================================\n\n    ! Dimensions of the grid\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n    NZ = State_Grid%NZ\n\n    ! Determine if the array is defined on level edges\n    ! NOTE: This is only needed for the SatDiagnPEDGE field\n    CALL Get_Metadata_State_Diag( am_I_Root  = Input_Opt%amIRoot,          &\n                                  metadataId = diagId,                     &\n                                  found      = found,                      &\n                                  vLoc       = vLoc,                       &\n                                  RC         = RC                         )\n    IF ( vLoc == vLocationEdge ) NZ = NZ + 1\n\n    ! Allocate array\n    IF ( numSlots > 0 ) THEN\n       ALLOCATE( Ptr2Data( NX, NY, numSlots ), STAT=RC )\n    ELSE\n       ALLOCATE( Ptr2Data( NX, NY, NZ       ), STAT=RC )\n    ENDIF\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize diagnostic array and set its archival flag to TRUE\n    Ptr2Data    = 0.0_f8\n    archiveData = .TRUE.\n\n    !=======================================================================\n    ! Register the diagnostic\n    !=======================================================================\n    CALL Register_DiagField( Input_Opt  = Input_Opt,                         &\n                             State_Chm  = State_Chm,                         &\n                             State_Diag = State_Diag,                        &\n                             metadataId = diagId,                            &\n                             Ptr2Data   = Ptr2Data,                          &\n                             mapData    = mapData,                           &\n                             nSlots     = numSlots,                          &\n                             RC         = RC                             )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Register_DiagField\": '// TRIM(diagID)\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Print info about diagnostic\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) ADJUSTL( arrayID ), TRIM( diagID )\n 100   FORMAT( 1x, a32, ' is registered as: ', a )\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_4D\n!\n! !DESCRIPTION: Allocates a State_Diag array and registers each diagnostic\n!  quantity archived by that array.  This particular routine is for\n!  8-byte, 4-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_4D( Input_Opt,   State_Chm,                &\n                                      State_Diag,  State_Grid,               &\n                                      DiagList,    TaggedDiagList,           &\n                                      Ptr2Data,    diagId,                   &\n                                      archiveData, RC,                       &\n                                      mapData,     forceDefine,              &\n                                      diagFlag                              )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),        INTENT(IN)    :: Input_Opt        ! Input Options\n    TYPE(ChmState),        INTENT(IN)    :: State_Chm        ! Chemistry State\n    TYPE(GrdState),        INTENT(IN)    :: State_Grid       ! Grid State\n    TYPE(DgnList),         INTENT(IN)    :: DiagList         ! Diags specified\n    TYPE(TaggedDgnList),   INTENT(IN)    :: TaggedDiagList   ! Tags and WCs\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId           ! Diagnostic name\n    LOGICAL,               OPTIONAL      :: forceDefine      ! Don't skip diag\n    CHARACTER(LEN=*),      OPTIONAL      :: diagFlag         ! Flag for Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState),        INTENT(INOUT) :: State_Diag       ! Diagnostic State\n    LOGICAL,               INTENT(INOUT) :: archiveData      ! Save this diag?\n    REAL(f8),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:,:)! Pointer to data\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData          ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC               ! Success/failure!\n!\n! !REVISION HISTORY:\n!  31 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: alwaysDefine, found\n    INTEGER            :: NX,           NY,      NZ\n    INTEGER            :: NW,           numSlots\n\n    ! Strings\n    CHARACTER(LEN=1)   :: indFlag\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: arrayId\n    CHARACTER(LEN=255) :: tagId\n    CHARACTER(LEN=255) :: thisLoc\n\n    !=======================================================================\n    ! Init_and_Register_R8_4D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    numSlots   = -1\n    found      = .FALSE.\n    arrayID    = 'State_Diag%' // TRIM( diagId )\n    errMsg     = ''\n    thisLoc    = &\n     ' -> at Init_and_Register_R8_4D (in module Headers/state_diag_mod.F90)'\n\n    ! Test if this diagnostic will always be defined\n    ! (e.g. this might be needed for coupling with GEOS)\n    IF ( PRESENT( forceDefine ) ) THEN\n       alwaysDefine = forceDefine\n    ELSE\n       alwaysDefine = .FALSE.\n    ENDIF\n\n    ! If diagFlag is not passed, then we will get the modelId for all\n    ! species (instead of restricting to advected, drydep, wetdep, etc.)\n    IF ( PRESENT( diagFlag ) ) THEN\n       indFlag = diagFlag\n    ELSE\n       indFlag = 'S'\n    ENDIF\n\n    ! Zero/nullify the data and mapping variables\n    !IF ( ASSOCIATED( Ptr2Data ) ) DEALLOCATE( Ptr2Data )\n    Ptr2Data => NULL()\n    archiveData = .FALSE.\n    IF ( PRESENT( mapData ) ) mapData => NULL()\n\n    !=======================================================================\n    ! First determine if the diagnostic is turned on\n    ! Return if it isn't (unless forceDefine = .TRUE.)\n    !=======================================================================\n    CALL Check_DiagList( Input_Opt%amIRoot, DiagList, diagID, found, RC )\n    IF ( ( .not. found ) .and. ( .not. alwaysDefine ) ) RETURN\n\n    !=======================================================================\n    ! Determine the number of slots to allocate the 4th dim of the array;\n    ! also get the mapping object for memory reduction (if passed)\n    !=======================================================================\n    CALL Get_MapData_and_NumSlots( Input_Opt       = Input_Opt,             &\n                                   State_Chm       = State_Chm,             &\n                                   TaggedDiagList  = TaggedDiagList,        &\n                                   metadataId      = diagId,                &\n                                   indFlag         = indFlag,               &\n                                   numSlots        = numSlots,              &\n                                   mapData         = mapData,               &\n                                   RC              = RC                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Get_MapData_and_NumSlots\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate diagnostic array\n    !=======================================================================\n\n    ! Dimensions of the grid\n    NX = State_Grid%NX\n    NY = State_Grid%NY\n    NZ = State_Grid%NZ\n\n    ! Allocate array\n    ALLOCATE( Ptr2Data( NX, NY, NZ, numSlots ), STAT=RC )\n    CALL GC_CheckVar( arrayId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Initialize diagnostic array and set its archival flag to TRUE\n    Ptr2Data    = 0.0_f8\n    archiveData = .TRUE.\n\n    !=======================================================================\n    ! Register the diagnostic\n    !=======================================================================\n    CALL Register_DiagField( Input_Opt  = Input_Opt,                         &\n                             State_Chm  = State_Chm,                         &\n                             State_Diag = State_Diag,                        &\n                             metadataId = diagId,                            &\n                             Ptr2Data   = Ptr2Data,                          &\n                             mapData    = mapData,                           &\n                             nSlots     = numSlots,                          &\n                             RC         = RC                                )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Register_DiagField\": '// TRIM(diagID)\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    ! Print info about diagnostic\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 100 ) ADJUSTL( arrayID ), TRIM( diagID )\n 100   FORMAT( 1x, a32, ' is registered as: ', a )\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_MapData\n!\n! !DESCRIPTION: Finalizes a mapping data object\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_MapData( diagId, mapData, RC )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId   ! Diagnostic name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnMap), POINTER, INTENT(INOUT) :: mapData  ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?!\n!\n! !REVISION HISTORY:\n!  01 Apr 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: mapId\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Finalize MapData if it's has been allocated\n    IF ( ASSOCIATED( mapData ) ) THEN\n\n       ! Deallocate and nullify the allId\n       mapId = 'State_Diag%Map_' // TRIM( diagId ) // '%id2slot'\n       IF ( ASSOCIATED( mapData%id2slot ) ) THEN\n          DEALLOCATE( mapData%id2slot, STAT=RC )\n          CALL GC_CheckVar( mapId, 2, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n       ENDIF\n       mapdata%id2slot => NULL()\n\n       ! Deallocate and nullify the id field\n       mapId = 'State_Diag%Map_' // TRIM( diagId ) // '%slot2id'\n       IF ( ASSOCIATED( mapData%slot2id ) ) THEN\n          DEALLOCATE( mapData%slot2id, STAT=RC )\n          CALL GC_CheckVar( mapId, 2, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n       ENDIF\n       mapdata%slot2id => NULL()\n\n       ! Then finalize the mapData object itself\n       mapId = 'State_Diag%Map_' // TRIM( diagId )\n       DEALLOCATE( mapData, STAT=RC )\n       CALL GC_CheckVar( mapId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n    ENDIF\n\n    ! Nullify mapData\n    mapData => NULL()\n\n  END SUBROUTINE Finalize_MapData\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_R4_2D\n!\n! !DESCRIPTION: Deallocates and nullifies a 4-byte, 2-dimensional\n!  data array and its associated mapping object (if present).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_R4_2D( diagId, Ptr2Data, RC, mapData )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId            ! Diag name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:)     ! Data aray\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData           ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?\n!\n! !REVISION HISTORY:\n!  01 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId, mapId\n\n    !=======================================================================\n    ! Finalize the data array\n    !=======================================================================\n    arrayId = 'State_Diag%' // TRIM( diagId )\n    IF ( ASSOCIATED( Ptr2Data ) ) THEN\n       DEALLOCATE( Ptr2Data, STAT=RC )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n    Ptr2Data => NULL()\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n       CALL Finalize_MapData( diagId, mapData, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Finalize_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_R4_3D\n!\n! !DESCRIPTION: Deallocates and nullifies a 4-byte, 3-dimensional\n!  data array and its associated mapping object (if present).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_R4_3D( diagId, Ptr2Data, RC, mapData )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId            ! Diag name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:)   ! Data aray\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData           ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?\n!\n! !REVISION HISTORY:\n!  01 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId, mapId\n\n    !=======================================================================\n    ! Finalize the data array\n    !=======================================================================\n    arrayId = 'State_Diag%' // TRIM( diagId )\n    IF ( ASSOCIATED( Ptr2Data ) ) THEN\n       DEALLOCATE( Ptr2Data, STAT=RC )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n    Ptr2Data => NULL()\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n       CALL Finalize_MapData( diagId, mapData, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Finalize_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_R4_4D\n!\n! !DESCRIPTION: Deallocates and nullifies a 4-byte, 4-dimensional\n!  data array and its associated mapping object (if present).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_R4_4D( diagId, Ptr2Data, RC, mapData )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId            ! Diag name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:,:) ! Data aray\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData           ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?\n!\n! !REVISION HISTORY:\n!  01 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId, mapId\n\n    !=======================================================================\n    ! Finalize the data array\n    !=======================================================================\n    arrayId = 'State_Diag%' // TRIM( diagId )\n    IF ( ASSOCIATED( Ptr2Data ) ) THEN\n       DEALLOCATE( Ptr2Data, STAT=RC )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n    Ptr2Data => NULL()\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n       CALL Finalize_MapData( diagId, mapData, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Finalize_R4_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_R8_2D\n!\n! !DESCRIPTION: Deallocates and nullifies an 8-byte, 2-dimensional\n!  data array and its associated mapping object (if present).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_R8_2D( diagId, Ptr2Data, RC, mapData )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId            ! Diag name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:)     ! Data aray\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData           ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?\n!\n! !REVISION HISTORY:\n!  01 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId, mapId\n\n    !=======================================================================\n    ! Finalize the data array\n    !=======================================================================\n    arrayId = 'State_Diag%' // TRIM( diagId )\n    IF ( ASSOCIATED( Ptr2Data ) ) THEN\n       DEALLOCATE( Ptr2Data, STAT=RC )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n    Ptr2Data => NULL()\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n       CALL Finalize_MapData( diagId, mapData, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Finalize_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_R8_3D\n!\n! !DESCRIPTION: Deallocates and nullifies an 8-byte, 3-dimensional\n!  data array and its associated mapping object (if present).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_R8_3D( diagId, Ptr2Data, RC, mapData )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId            ! Diag name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:)   ! Data aray\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData           ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?\n!\n! !REVISION HISTORY:\n!  01 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId, mapId\n\n    !=======================================================================\n    ! Finalize the data array\n    !=======================================================================\n    arrayId = 'State_Diag%' // TRIM( diagId )\n    IF ( ASSOCIATED( Ptr2Data ) ) THEN\n       DEALLOCATE( Ptr2Data, STAT=RC )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n    Ptr2Data => NULL()\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n       CALL Finalize_MapData( diagId, mapData, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Finalize_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_R8_4D\n!\n! !DESCRIPTION: Deallocates and nullifies a 4-byte, 2-dimensional\n!  data array and its associated mapping object (if present).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_R8_4D( diagId, Ptr2Data, RC, mapData )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),      INTENT(IN)    :: diagId            ! Diag name\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),     POINTER, INTENT(INOUT) :: Ptr2Data(:,:,:,:) ! Data aray\n    TYPE(DgnMap), POINTER, OPTIONAL      :: mapData           ! Mapping object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,               INTENT(OUT)   :: RC                ! Success ?\n!\n! !REVISION HISTORY:\n!  01 Apr 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId, mapId\n\n    !=======================================================================\n    ! Finalize the data array\n    !=======================================================================\n    arrayId = 'State_Diag%' // TRIM( diagId )\n    IF ( ASSOCIATED( Ptr2Data ) ) THEN\n       DEALLOCATE( Ptr2Data, STAT=RC )\n       CALL GC_CheckVar( arrayId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n    Ptr2Data => NULL()\n\n    !=======================================================================\n    ! Finalize the mapping object\n    !=======================================================================\n    IF ( PRESENT( mapData ) ) THEN\n       CALL Finalize_MapData( diagId, mapData, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Finalize_R8_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_NoRegister_DryDepChemMix\n!\n! !DESCRIPTION: Initializes but does not register the DryDepChm and DryDepMix\n!  arrays.  These are needed for the DryDep or SatDiagnDryDep diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_NoRegister_DryDepChmMix( State_Diag, RC, Chm, Mix )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        OPTIONAL      :: Chm          ! Init DryDepChm arrays\n    LOGICAL,        OPTIONAL      :: Mix          ! Init DryDepMix arrays\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !RETURN VALUE:\n!\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Pointers\n    LOGICAL :: initChm,  initMix\n    LOGICAL :: isDryDep, isSatDgn\n    INTEGER :: NX,       NY,       NW\n    INTEGER :: nSlots,   nIds\n\n    !========================================================================\n    ! Init_NoRegister_DryDepChmMix begins here!\n    !========================================================================\n\n    ! Initialize\n    RC        = GC_SUCCESS\n    initChm   = .FALSE.\n    initMix   = .FALSE.\n    isDryDep  = State_Diag%Archive_DryDep\n    isSatDgn  = State_Diag%Archive_SatDiagnDryDep\n\n    ! Get array sizes\n    IF ( isDryDep ) THEN\n       NX     = SIZE( State_Diag%DryDep, 1 )\n       NY     = SIZE( State_Diag%DryDep, 2 )\n       NW     = SIZE( State_Diag%DryDep, 3 )\n       nSlots = State_Diag%Map_DryDep%nSlots\n       nIds   = State_Diag%Map_DryDep%nIds\n    ELSE IF ( isSatDgn ) THEN\n       NX     = SIZE( State_Diag%SatDiagnDryDep, 1 )\n       NY     = SIZE( State_Diag%SatDiagnDryDep, 2 )\n       NW     = SIZE( State_Diag%SatDiagnDryDep, 3 )\n       nSlots = State_Diag%Map_SatDiagnDryDep%nSlots\n       nIds   = State_Diag%Map_SatDiagnDryDep%nIds\n    ENDIF\n\n    ! Which array to initialize?\n    IF ( PRESENT( Chm ) ) initChm = Chm\n    IF ( PRESENT( Mix ) ) initMix = Mix\n\n    !========================================================================\n    ! Initialize the DryDepChm array\n    !========================================================================\n    IF ( initChm ) THEN\n\n       ! Initialize the logical\n       State_Diag%Archive_DryDepChm = ( isDryDep .or. isSatDgn )\n\n       ! Only allocate the DryDepChm array if necessary\n       IF ( State_Diag%Archive_DryDepChm ) THEN\n\n          ! Initialize\n          ALLOCATE( State_Diag%DryDepChm( NX, NY, NW ), STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%DryDepChm', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n          State_diag%DryDepChm = 0.0_f4\n\n          ! Initialize the mapping object\n          ALLOCATE( State_Diag%Map_DryDepChm, STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%Map_DryDepChm', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n\n          ! Initialize slot2Id vector\n          State_Diag%Map_DryDepChm%nSlots = nSlots\n          ALLOCATE( State_Diag%Map_DryDepChm%slot2Id(nSlots), STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%Map_DryDepChm%slot2Id', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n          IF ( isDryDep ) THEN\n             State_Diag%Map_DryDepChm%slot2Id =                              &\n                  State_Diag%Map_DryDep%slot2Id\n          ELSE IF ( isSatDgn ) THEN\n             State_Diag%Map_DryDepChm%slot2Id =                              &\n                  State_Diag%Map_SatDiagnDryDep%slot2Id\n          ENDIF\n\n          ! Initialize id2slot vector\n          State_Diag%Map_DryDepChm%nIds = nIds\n          ALLOCATE( State_Diag%Map_DryDepChm%id2slot(nIds), STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%Map_DryDepChm%id2slot', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n          IF ( isDryDep ) THEN\n             State_Diag%Map_DryDepChm%id2slot =                              &\n                  State_Diag%Map_DryDep%id2slot\n          ELSE IF ( isSatDgn ) THEN\n             State_Diag%Map_DryDepChm%id2slot =                              &\n               State_Diag%Map_SatDiagnDryDep%id2slot\n          ENDIF\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    ! Initialize the DryDepMix array\n    !========================================================================\n    IF ( initMix ) THEN\n\n       ! Only allocate the DryDepMix array if necessary\n       State_Diag%Archive_DryDepMix = ( isDryDep .or. isSatDgn )\n\n       ! Allocate\n       IF ( State_Diag%Archive_DryDepMix ) THEN\n\n          ! Initialize\n          ALLOCATE( State_Diag%DryDepMix( NX, NY, NW ), STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%DryDepMix', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n          State_diag%DryDepMix = 0.0_f4\n\n          ! Initialize the mapping object\n          ALLOCATE( State_Diag%Map_DryDepMix, STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%Map_DryDepMix', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n\n          ! Initialize slot2Id vector\n          State_Diag%Map_DryDepMix%nSlots = nSlots\n          ALLOCATE( State_Diag%Map_DryDepMix%slot2Id(nSlots), STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%Map_DryDepMix%slot2Id', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n          IF ( isDryDep ) THEN\n             State_Diag%Map_DryDepMix%slot2Id =                              &\n                  State_Diag%Map_DryDep%slot2Id\n          ELSE IF ( isSatDgn ) THEN\n             State_Diag%Map_DryDepMix%slot2Id =                              &\n               State_Diag%Map_SatDiagnDryDep%slot2Id\n          ENDIF\n\n          ! Initialize id2slot vector\n          State_Diag%Map_DryDepMix%nIds = nIds\n          ALLOCATE( State_Diag%Map_DryDepMix%id2slot(nIds), STAT=RC )\n          CALL GC_CheckVar( 'State_Diag%Map_DryDepMix%id2slot', 0, RC )\n          IF ( RC /= GC_SUCCESS ) RETURN\n          IF ( isDryDep ) THEN\n             State_Diag%Map_DryDepMix%id2slot =                              &\n                  State_Diag%Map_DryDep%id2slot\n          ELSE IF ( isSatDgn ) THEN\n             State_Diag%Map_DryDepMix%id2slot =                              &\n                  State_Diag%Map_SatDiagnDryDep%id2slot\n          ENDIF\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Init_NoRegister_DryDepChmMix\n!EOC\nEND MODULE State_Diag_Mod\n"
  },
  {
    "path": "Headers/state_grid_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: state_grid_mod.F90\n!\n! !DESCRIPTION: Module STATE\\_GRID\\_MOD contains the derived type\n!  used to define the Grid State object for GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE State_Grid_Mod\n!\n! USES:\n!\n  USE Dictionary_M, ONLY : dictionary_t\n  USE ErrCode_Mod\n  USE Precision_Mod\n  USE Registry_Mod, ONLY : MetaRegItem\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Init_State_Grid\n  PUBLIC :: Allocate_State_Grid\n  PUBLIC :: Register_State_Grid\n  PUBLIC :: Cleanup_State_Grid\n  PUBLIC :: Lookup_Grid\n!\n! !PUBLIC DATA MEMBERS:\n!\n  !=========================================================================\n  ! Derived type for Grid State\n  !=========================================================================\n  TYPE, PUBLIC :: GrdState\n\n     !----------------------------------------------------------------------\n     ! General grid fields\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=255) :: GridRes          ! Grid resolution\n     REAL(fp)           :: DX               ! Delta X         [deg longitude]\n     REAL(fp)           :: DY               ! Delta Y         [degs latitude]\n     REAL(fp)           :: XMin             ! Minimum X value [deg longitude]\n     REAL(fp)           :: XMax             ! Maximum X value [deg longitude]\n     REAL(fp)           :: YMin             ! Minimum Y value [degs latitude]\n     REAL(fp)           :: YMax             ! Maximum Y value [degs latitude]\n     INTEGER            :: NX               ! # of grid boxes in X-direction\n     INTEGER            :: NY               ! # of grid boxes in Y-direction\n     INTEGER            :: NZ               ! # of grid boxes in Z-direction\n     LOGICAL            :: HalfPolar        ! Use half-sized polar boxes?\n     LOGICAL            :: Center180        ! Is the Int'l Date Line a model\n                                            !  midpoint (T) or edge (F)?\n     LOGICAL            :: NestedGrid       ! Is it a nested grid sim?\n     INTEGER            :: NorthBuffer      ! # buffer grid boxes on N edge\n     INTEGER            :: SouthBuffer      ! # buffer grid boxes on S edge\n     INTEGER            :: EastBuffer       ! # buffer grid boxes on E edge\n     INTEGER            :: WestBuffer       ! # buffer grid boxes on W edge\n     INTEGER            :: GlobalNX         ! NX on the global grid\n     INTEGER            :: GlobalNY         ! NY on the global grid\n     INTEGER            :: NativeNZ         ! NZ on the native-resolution grid\n     INTEGER            :: XMinOffset       ! Min X offset from global grid\n     INTEGER            :: XMaxOffset       ! Max X offset from global grid\n     INTEGER            :: YMinOffset       ! Min Y offset from global grid\n     INTEGER            :: YMaxOffset       ! Max Y offset from global grid\n     REAL(f8),  POINTER :: GlobalXMid (:,:) ! Lon centers on global grid [deg]\n     REAL(f8),  POINTER :: GlobalYMid (:,:) ! Lat centers on global grid [deg]\n     REAL(f8),  POINTER :: GlobalXEdge(:,:) ! Lon centers on global grid [deg]\n     REAL(f8),  POINTER :: GlobalYEdge(:,:) ! Lat centers on global grid [deg]\n     REAL(f8),  POINTER :: XMid       (:,:) ! Lon centers [degrees]\n     REAL(f8),  POINTER :: XEdge      (:,:) ! Lon edges   [degrees]\n     REAL(f8),  POINTER :: YMid       (:,:) ! Lat centers [degrees]\n     REAL(f8),  POINTER :: YEdge      (:,:) ! Lat edges   [degrees]\n     REAL(f8),  POINTER :: YMid_R     (:,:) ! Lat centers [radians]\n     REAL(f8),  POINTER :: YEdge_R    (:,:) ! Lat edges   [radians]\n     REAL(f8),  POINTER :: YSIN       (:,:) ! SIN( lat edges )\n     REAL(f8),  POINTER :: Area_M2    (:,:) ! Grid box area [m2]\n\n     !----------------------------------------------------------------------\n     ! Coordinate variables for GC-Classic History netCDF files\n     !----------------------------------------------------------------------\n     REAL(f4), POINTER  :: Area       (:,:) ! Surface area (REAL*4)\n     REAL(f8), POINTER  :: HyAi       (:  ) ! Hybrid Ap at level interface\n     REAL(f8), POINTER  :: HyAm       (:  ) ! Hybrid Ap at level midpoint\n     REAL(f8), POINTER  :: HyBi       (:  ) ! Hybrid B  at level interface\n     REAL(f8), POINTER  :: HyBm       (:  ) ! Hybrid B  at level midpoint\n     REAL(f8), POINTER  :: ILev       (:  ) ! Level interface coordinate\n     REAL(f8), POINTER  :: Lat        (:  ) ! Latitude centers\n     REAL(f8), POINTER  :: LatBnd     (:,:) ! CF-compliant lat bounds\n     REAL(f8), POINTER  :: LatE       (:  ) ! Latitude edges\n     REAL(f8), POINTER  :: Lev        (:  ) ! Level midpoint coordinate\n     REAL(f8), POINTER  :: Lon        (:  ) ! Longitude centers\n     REAL(f8), POINTER  :: LonBnd     (:,:) ! Cf-compliant lon bounds\n     REAL(f8), POINTER  :: LonE       (:  ) ! Longitude edges\n     REAL(f8)           :: P0               ! Reference pressure (hPa)\n     REAL(f8), POINTER  :: Time       (:  ) ! Time\n\n#ifdef LUO_WETDEP\n     !----------------------------------------------------------------------\n     ! Fields needed for the Luo et al wet deposition scheme\n     !----------------------------------------------------------------------\n     REAL(fp),  POINTER :: DXSN_M     (:,:) ! Averange grid box width [m]\n                                            !  at the S and N edges\n     REAL(fp),  POINTER :: DYWE_M     (:,:) ! Averange grid box width [m]\n                                            !  at the W and E edges\n#endif\n\n#if defined( MODEL_WRF ) || defined( MODEL_CESM )\n     !----------------------------------------------------------------------\n     ! Grid numbers for WRF and CESM, for each CPU to run multiple\n     ! instances  of GEOS-Chem. These numbers are unique-per-core (local).\n     ! A pair of (Input_Opt%thisCPU, State_Grid%CPU_Subdomain_ID) is needed\n     ! to uniquely identify a geographical region.\n     !----------------------------------------------------------------------\n\n     ! Grid identifier number (local)\n     ! WRF  : domain number\n     ! CESM : chunk number/lchnk\n     INTEGER            :: CPU_Subdomain_ID\n\n     ! First grid identifier number (local) in this CPU\n     INTEGER            :: CPU_Subdomain_FirstID\n#endif\n\n#ifdef MODEL_GEOS\n     !----------------------------------------------------------------------\n     ! NASA GEOS ESM-specific fields\n     !----------------------------------------------------------------------\n     LOGICAL            :: PredictorIsActive   ! Are we in the predictor step?\n#endif\n\n     !-----------------------------------------------------------------------\n     ! Registry of variables contained within thje State_Grid object\n     !-----------------------------------------------------------------------\n     CHARACTER(LEN=4)            :: State     = 'GRID'   ! Name of this state\n     TYPE(MetaRegItem),  POINTER :: Registry  => NULL()  ! Registry object\n     TYPE(dictionary_t)          :: RegDict              ! Lookup table\n\n  END TYPE GrdState\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  11 Nov 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_State_Grid\n!\n! !DESCRIPTION: Subroutine INIT\\_STATE\\_GRID initializes all fields of\n!  the Grid State derived type object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_State_Grid( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Mod,       ONLY : Registry_AddField\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid   ! Obj for grid state\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  11 Nov 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Scalars\n    INTEGER            :: I,      J,       L\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, Variable, Desc, Units\n\n    !========================================================================\n    ! Init State_Grid begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n       \" -> at Init_State_Grid (located in Headers/state_grid_mod.F90)\"\n\n    !========================================================================\n    ! Zero scalar fields\n    !========================================================================\n    State_Grid%GridRes               =  ''\n    State_Grid%DX                    =  0e+0_fp\n    State_Grid%DY                    =  0e+0_fp\n    State_Grid%XMin                  =  0e+0_fp\n    State_Grid%XMax                  =  0e+0_fp\n    State_Grid%YMin                  =  0e+0_fp\n    State_Grid%YMax                  =  0e+0_fp\n    State_Grid%NX                    =  0\n    State_Grid%NY                    =  0\n    State_Grid%NZ                    =  0\n    State_Grid%HalfPolar             =  .FALSE.\n    State_Grid%Center180             =  .FALSE.\n    State_Grid%NestedGrid            =  .FALSE.\n    State_Grid%NorthBuffer           =  0\n    State_Grid%SouthBuffer           =  0\n    State_Grid%EastBuffer            =  0\n    State_Grid%WestBuffer            =  0\n    State_Grid%GlobalNX              =  0\n    State_Grid%GlobalNY              =  0\n    State_Grid%NativeNZ              =  0\n    State_Grid%XMinOffset            =  0\n    State_Grid%XMaxOffset            =  0\n    State_Grid%YMinOffset            =  0\n    State_Grid%YMaxOffset            =  0\n    State_Grid%P0                    =  1000.0_f8 ! reference pressure, hPa\n#if defined( MODEL_WRF ) || defined( MODEL_CESM )\n    State_Grid%CPU_Subdomain_ID      =  -1\n    State_Grid%CPU_Subdomain_FirstID =  -1\n#endif\n    State_Grid%GridRes               = ''\n    State_Grid%DX                    = 0e+0_fp\n    State_Grid%DY                    = 0e+0_fp\n    State_Grid%XMin                  = 0e+0_fp\n    State_Grid%XMax                  = 0e+0_fp\n    State_Grid%YMin                  = 0e+0_fp\n    State_Grid%YMax                  = 0e+0_fp\n    State_Grid%NX                    = 0\n    State_Grid%NY                    = 0\n    State_Grid%NZ                    = 0\n    State_Grid%HalfPolar             = .FALSE.\n    State_Grid%Center180             = .FALSE.\n    State_Grid%NestedGrid            = .FALSE.\n    State_Grid%NorthBuffer           = 0\n    State_Grid%SouthBuffer           = 0\n    State_Grid%EastBuffer            = 0\n    State_Grid%WestBuffer            = 0\n\n    !----------------------------------------\n    ! Grid fields computed in gc_grid_mod.F90\n    !----------------------------------------\n    State_Grid%GlobalNX     = 0\n    State_Grid%GlobalNY     = 0\n    State_Grid%NativeNZ     = 0\n    State_Grid%XMinOffset   = 0\n    State_Grid%XMaxOffset   = 0\n    State_Grid%YMinOffset   = 0\n    State_Grid%YMaxOffset   = 0\n\n    !---------------------------------------------------------------\n    ! Nullify all fields for safety's sake before allocating them\n    !---------------------------------------------------------------\n    State_Grid%GlobalXMid   => NULL()\n    State_Grid%GlobalYMid   => NULL()\n    State_Grid%GlobalXEdge  => NULL()\n    State_Grid%GlobalYEdge  => NULL()\n    State_Grid%XMid         => NULL()\n    State_Grid%XEdge        => NULL()\n    State_Grid%YMid         => NULL()\n    State_Grid%YEdge        => NULL()\n    State_Grid%YMid_R       => NULL()\n    State_Grid%YEdge_R      => NULL()\n    State_Grid%YSIN         => NULL()\n    State_Grid%Area_M2      => NULL()\n#ifdef LUO_WETDEP\n    State_Grid%DXSN_M         => NULL()\n    State_Grid%DYWE_M         => NULL()\n#endif\n\n#if defined( MODEL_GEOS )\n    State_Grid%PredictorIsActive     =  .FALSE.\n#endif\n\n    !========================================================================\n    ! Nullify pointer array fields\n    !========================================================================\n    State_Grid%GlobalXMid            => NULL()\n    State_Grid%GlobalYMid            => NULL()\n    State_Grid%GlobalXEdge           => NULL()\n    State_Grid%GlobalYEdge           => NULL()\n    State_Grid%XMid                  => NULL()\n    State_Grid%XEdge                 => NULL()\n    State_Grid%YMid                  => NULL()\n    State_Grid%YEdge                 => NULL()\n    State_Grid%YMid_R                => NULL()\n    State_Grid%YEdge_R               => NULL()\n    State_Grid%YSIN                  => NULL()\n    State_Grid%Area_M2               => NULL()\n    State_Grid%Area                  => NULL()\n    State_Grid%Time                  => NULL()\n    State_Grid%HyAm                  => NULL()\n    State_Grid%HyBm                  => NULL()\n    State_Grid%Lev                   => NULL()\n    State_Grid%HyAi                  => NULL()\n    State_Grid%HyBi                  => NULL()\n    State_Grid%ILev                  => NULL()\n    State_Grid%Lat                   => NULL()\n    State_Grid%LatE                  => NULL()\n    State_Grid%LatBnd                => NULL()\n    State_Grid%Lon                   => NULL()\n    State_Grid%LonE                  => NULL()\n    State_Grid%LonBnd                => NULL()\n#ifdef LUO_WETDEP\n    State_Grid%DXSN_M                => NULL()\n    State_Grid%DYWE_M                => NULL()\n#endif\n\n   END SUBROUTINE Init_State_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Allocate_State_Grid\n!\n! !DESCRIPTION: Subroutine ALLOCATE\\_STATE\\_GRID initializes variables and\n!  allocates module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Allocate_State_Grid( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  State_Grid fields are allocated here.  They will be registered\n!  separately after the call to COMPUTE_GRID.\n!\n! !REVISION HISTORY:\n!  10 Mar 2019 - M. Sulprizio- Initial version, based on Init_Grid formerly in\n!                              gc_grid_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: AS\n\n    !======================================================================\n    ! Allocate_State_Grid begins here!\n    !======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    !======================================================================\n    ! Allocate general grid fields\n    !\n    ! NOTE: State_Grid%GlobalXMid and State_Grid%GlobalYMid are allocated\n    ! in gc_grid_mod.F90 after computing State_Grid%GlobalNX and\n    ! State_Grid%GlobalNY\n    !======================================================================\n    ALLOCATE( State_Grid%Area_M2( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%Area_M2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%Area_M2 = 0.0_f8\n\n    ALLOCATE( State_Grid%XEdge( State_Grid%NX+1, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%XEdge', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%XEdge = 0.0_f8\n\n    ALLOCATE( State_Grid%XMid( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%XMid', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%XMid = 0.0_f8\n\n    ALLOCATE( State_Grid%YEdge( State_Grid%NX, State_Grid%NY+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%YEdge', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%YEdge = 0.0_f8\n\n    ALLOCATE( State_Grid%YEdge_R( State_Grid%NX, State_Grid%NY+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%YEdge_R', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%YEdge_R = 0.0_f8\n\n    ALLOCATE( State_Grid%YMid( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%YMid', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%YMid = 0.0_f8\n\n    ALLOCATE( State_Grid%YMid_R( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%YMid_R', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%YMid_R = 0.0_f8\n\n    ALLOCATE( State_Grid%YSIN( State_Grid%NX, State_Grid%NY+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%YSIN', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%YSIN = 0.0_f8\n\n#if !defined( MODEL_GCHPCTM ) && !defined( MODEL_GEOS )\n    !========================================================================\n    ! Allocate coordinate variables for GC-Classic History diagnostics\n    !========================================================================\n    ALLOCATE( State_Grid%Area( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%Area_M2', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%Area_M2 = 0.0_f4\n\n    ALLOCATE( State_Grid%HyAi( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%HyAi', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%HyAi = 0.0_f8\n\n    ALLOCATE( State_Grid%HyAm( State_Grid%NZ ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%HyAm', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%HyAm = 0.0_f8\n\n    ALLOCATE( State_Grid%HyBi( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%HyBi', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%HyBi = 0.0_f8\n\n    ALLOCATE( State_Grid%HyBm( State_Grid%NZ ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%HyBm', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%HyBm = 0.0_f8\n\n    ALLOCATE( State_Grid%ILev( State_Grid%NZ+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%ILev', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%ILev = 0.0_f8\n\n    ALLOCATE( State_Grid%Lat( State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%Lat', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%Lat = 0.0_f8\n\n    ALLOCATE( State_Grid%LatBnd( 2, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%LatBnd', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%LatBnd = 0.0_f8\n\n    ALLOCATE( State_Grid%LatE( State_Grid%NY+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%LatE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%LatE = 0.0_f8\n\n    ALLOCATE( State_Grid%Lev( State_Grid%NZ ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%Lev', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%Lev = 0.0_f8\n\n    ALLOCATE( State_Grid%Lon( State_Grid%NX ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%Lon', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%Lon = 0.0_f8\n\n    ALLOCATE( State_Grid%LonBnd( 2, State_Grid%NX ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%LonBnd', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%LonBnd = 0.0_f8\n\n    ALLOCATE( State_Grid%LonE( State_Grid%NX+1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%LonE', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%LonE = 0.0_f8\n\n    ALLOCATE( State_Grid%Time( 1 ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%Time', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%Area_M2 = 0.0_f4\n#endif\n\n#ifdef LUO_WETDEP\n    !========================================================================\n    ! Allocate grid arrays for Luo et al wetdep\n    !========================================================================\n    ALLOCATE( State_Grid%DXSN_M( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%DXSN_M', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%DXSN_M = 0e+0_fp\n\n    ALLOCATE( State_Grid%DYWE_M( State_Grid%NX, State_Grid%NY ), STAT=RC )\n    CALL GC_CheckVar( 'State_Grid%DYWE_M', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Grid%DYWE_M = 0e+0_fp\n#endif\n\n  END SUBROUTINE Allocate_State_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_State_Grid\n!\n! !DESCRIPTION: Allocates and registers all module variables, which hold\n!  horizontal and vertical grid information.  This will be used for netCDF\n!  metadata in the History component\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_State_Grid( Input_Opt, State_Grid, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Mod\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! Register_State_Grid begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n       ' -> at Register_State_Grid (located in Headers/state_grid_mod.F90)'\n\n    !========================================================================\n    ! Register general grid fields\n    !\n    ! NOTE The GlobalXEdge, GlobalXMid, GlobalYEdge, and GlobalYGrid fields\n    ! are allocated in GC_Grid_Mod, which only gets called for GC-CLassic.\n    !========================================================================\n\n    !---------------------------\n    ! State_Grid%Area_M2\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'AREAM2',                                          &\n         Description    = 'Surface area',                                    &\n         Units          = 'm2',                                              &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%Area_M2,                                &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%Area_M2', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n#if !defined( MODEL_GCHPCTM ) && !defined( MODEL_GEOS )\n    !---------------------------\n    ! State_Grid%GlobalXEdge\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'GLOBALXEDGE',                                     &\n         Description    = 'Global longitude edges',                          &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%GlobalXEdge,                            &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%GlobalXEdge', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%GlobalXMid\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'GLOBALXMID',                                      &\n         Description    = 'Global longitude centers',                        &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%GlobalXMid,                             &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%GlobalXMid', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%GlobalYEdge\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'GLOBALYEDGE',                                     &\n         Description    = 'Global latitude edges',                           &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%GlobalYEdge,                            &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%GlobalYEdge', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%GlobalYMid\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'GLOBALYMID',                                      &\n         Description    = 'Global latitude centers',                         &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%GlobalYMid,                             &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%GlobalYMid', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n    !---------------------------\n    ! State_Grid%XEdge\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'XEDGE',                                           &\n         Description    = 'Longitude edges',                                 &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%XEdge,                                  &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%XEdge', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%XMid\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'XMID',                                            &\n         Description    = 'Longitude centers',                               &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%XMid,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%XMid', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%YEdge\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'YEDGE',                                           &\n         Description    = 'Latitude edges',                                  &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%YEdge,                                  &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%YEdge', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%YEdge_R\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'YEDGER',                                          &\n         Description    = 'Latitude edges',                                  &\n         Units          = 'radians',                                         &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%YEdge_R,                                &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%YEdge_R', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%YMid\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'YMID',                                            &\n         Description    = 'Latitude centers',                                &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%YMid,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%YMid', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%YMid_R\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'YMIDR',                                           &\n         Description    = 'Latitude centers',                                &\n         Units          = 'radians',                                         &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%YMid_R,                                 &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%YMid_R', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%YSIN\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'YSIN',                                            &\n         Description    = 'Sine of latitude edges',                          &\n         Units          = '1',                                               &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_8       = State_Grid%YSin,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%YSIN', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n#if !defined( MODEL_GCHPCTM ) && !defined( MODEL_GEOS )\n    !========================================================================\n    ! Register coordinate variables for GC-Classic History diagnostics\n    ! (these may also be needed for WRF-GC)\n    !========================================================================\n\n    !---------------------------\n    ! State_Grid%Area\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'AREA',                                            &\n         Description    = 'Surface area',                                    &\n         Units          = 'm2',                                              &\n         Output_KindVal = KINDVAL_F4,                                        &\n         DimNames       = 'xy',                                              &\n         Data2d_4       = State_Grid%Area,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%Area', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%HyAi\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'HYAI',                                            &\n         Description    = 'hybrid A coefficient at layer interfaces',        &\n         Units          = 'hPa',                                             &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'z',                                               &\n         Data1d_8       = State_Grid%HyAi,                                   &\n         OnLevelEdges   = .TRUE.,                                            &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%HyAi', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%HyAm\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'HYAM',                                            &\n         Description    = 'hybrid A coefficient at layer midpoints',         &\n         Units          = 'hPa',                                             &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'z',                                               &\n         Data1d_8       = State_Grid%HyAm,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%HyAm', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%HyBi\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'HYBI',                                            &\n         Description    = 'hybrid B coefficient at layer interfaces',        &\n         Units          = '1',                                               &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'z',                                               &\n         Data1d_8       = State_Grid%HyBi,                                   &\n         OnLevelEdges   = .TRUE.,                                            &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%HyBi', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%HyBm\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'HYBM',                                            &\n         Description    = 'hybrid B coefficient at layer midpoints',         &\n         Units          = '1',                                               &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'z',                                               &\n         Data1d_8       = State_Grid%HyBm,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%HyBm', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%ILev\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'ILEV',                                            &\n         Description    = 'hybrid level at interfaces ((A/P0)+B)',           &\n         Units          = 'level',                                           &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'z',                                               &\n         OnLevelEdges   = .TRUE.,                                            &\n         Data1d_8       = State_Grid%ILev,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%ILev', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%Lat\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LAT',                                             &\n         Description    = 'Latitude',                                        &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'y',                                               &\n         Data1d_8       = State_Grid%Lat,                                    &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%Lat', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%LatBnd\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LATBND',                                          &\n         Description    = 'Latitude bounds (CF-compliant)',                  &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'by',                                              &\n         Data2d_8       = State_Grid%LatBnd,                                 &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%LatBnd', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%LatE\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LATE',                                            &\n         Description    = 'Latitude edges',                                  &\n         Units          = 'degrees_north',                                   &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'y',                                               &\n         Data1d_8       = State_Grid%LatE,                                   &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%LatE', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%Lev\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LEV',                                             &\n         Description    = 'hybrid level at midpoints ((A/P0)+B)',            &\n         Units          = 'level',                                           &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'z',                                               &\n         Data1d_8       = State_Grid%Lev,                                    &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%Lev', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%Lon\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LON',                                             &\n         Description    = 'Longitude',                                       &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'x',                                               &\n         Data1d_8       = State_Grid%Lon,                                    &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%Lat', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%LonBnd\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LONBND',                                          &\n         Description    = 'Longitude bounds (CF-compliant)',                 &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'bx',                                              &\n         Data2d_8       = State_Grid%LonBnd,                                 &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%LonBnd', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%LonE\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'LONE',                                            &\n         Description    = 'Longitude edges',                                 &\n         Units          = 'degrees_east',                                    &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 'x',                                               &\n         Data1d_8       = State_Grid%Lon,                                    &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%LatE', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%P0\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'P0',                                              &\n         Description    = 'reference pressure',                              &\n         Units          = 'hPa',                                             &\n         Output_KindVal = KINDVAL_F8,                                        &\n         Data0d_8       = State_Grid%P0,                                     &\n         RC             = RC                                                )\n\n    CALL GC_CheckVar( 'State_Grid%P0', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !---------------------------\n    ! State_Grid%Time\n    !---------------------------\n    CALL Registry_AddField(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         Registry       = State_Grid%Registry,                               &\n         State          = State_Grid%State,                                  &\n         Variable       = 'TIME',                                            &\n         Description    = 'Time',                                            &\n         Units          = 'minutes since YYYY-MM-DD hh:mm:ss',               &\n         Output_KindVal = KINDVAL_F8,                                        &\n         DimNames       = 't',                                               &\n         Data1d_8       = State_Grid%Time,                                   &\n         RC             = RC                                                )\n\n    ! Allocate\n    CALL GC_CheckVar( 'State_Grid%Time', 1, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n#endif\n\n    !========================================================================\n    ! Once we are done registering all fields, we need to define the\n    ! registry lookup table.  This algorithm will avoid hash collisions.\n    !========================================================================\n    CALL Registry_Set_LookupTable(                                           &\n         Registry = State_Grid%Registry,                                     &\n         RegDict  = State_Grid%RegDict,                                      &\n         RC       = RC                                                      )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in routine \"Registry_Set_LookupTable\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Print list of fields\n    !========================================================================\n    CALL Print_Grid( Input_Opt, State_Grid, RC, ShortFormat=.TRUE. )\n\n    ! Write spacer line for log file\n    WRITE( 6, '(a)' )\n\n  END SUBROUTINE Register_State_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_State_Grid\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_STATE\\_GRID deallocates all fields\n!  of the grid state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_State_Grid( State_Grid, RC )\n!\n! USES:\n!\n    USE Registry_Mod, ONLY : Registry_Destroy\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState), INTENT(INOUT) :: State_Grid   ! Obj for grid state\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC           ! Return code\n!\n! !REVISION HISTORY:\n!  11 Nov 2018 - M. Sulprizio- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg, thisLoc\n\n    !========================================================================\n    ! Cleanup_State_Grid begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n       ' -> at Cleanup_State_Grid (located in Headers/state_grid_mod.F90)'\n\n    !========================================================================\n    ! Deallocate general grid fields\n    !========================================================================\n    IF ( ASSOCIATED( State_Grid%GlobalXMid ) ) THEN\n       DEALLOCATE( State_Grid%GlobalXMid, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%GlobalXMid', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%GlobalXMid => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%GlobalYMid ) ) THEN\n       DEALLOCATE( State_Grid%GlobalYMid, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%GlobalYMid', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%GlobalYMid => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%GlobalXEdge ) ) THEN\n       DEALLOCATE( State_Grid%GlobalXEdge, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%GlobalXEdge', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%GlobalXEdge => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%GlobalYEdge ) ) THEN\n       DEALLOCATE( State_Grid%GlobalYEdge, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%GlobalYEdge', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%GlobalYEdge => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%XMid ) ) THEN\n       DEALLOCATE( State_Grid%XMid, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%XMid', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%XMid => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%XEdge ) ) THEN\n       DEALLOCATE( State_Grid%XEdge, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%XEdge', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%XEdge => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%YMid ) ) THEN\n       DEALLOCATE( State_Grid%YMid, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%XMid', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%XMid => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%YEdge ) ) THEN\n       DEALLOCATE( State_Grid%YEdge, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%YEdge', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%YEdge => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%YMid_R ) ) THEN\n       DEALLOCATE( State_Grid%Ymid_R, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%YMid_R', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%YMid_R => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%YEdge_R ) ) THEN\n       DEALLOCATE( State_Grid%YEdge_R, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%YEdge_R', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%YEdge_R => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%YSIN ) ) THEN\n       DEALLOCATE( State_Grid%YSIN, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%YSIN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%YSIN => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%Area_M2 ) ) THEN\n       DEALLOCATE( State_Grid%Area_M2, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid %Area_M2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%Area_M2 => NULL()\n    ENDIF\n\n#if !defined( MODEL_GCHPCTM ) && !defined( MODEL_GEOS )\n    !========================================================================\n    ! Deallocate coordinate variables for GC-Classic History diagnostics\n    ! (These fields may also be needed for WRF-GC)\n    !========================================================================\n    IF ( ASSOCIATED( State_Grid%Area ) ) THEN\n       DEALLOCATE( State_Grid%Area, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%Area_M2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%Area_M2 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%HyAi ) ) THEN\n       DEALLOCATE( State_Grid%HyAi, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%HyAi', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%HyAi => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%HyAm ) ) THEN\n       DEALLOCATE( State_Grid%HyAm, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%HyAm', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%HyAm => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%HyBi ) ) THEN\n       DEALLOCATE( State_Grid%HyBi, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%HyBi', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%HyBi => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%HyBm ) ) THEN\n       DEALLOCATE( State_Grid%HyBm, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%HyBm', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%HyBm => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%ILev ) ) THEN\n       DEALLOCATE( State_Grid%ILev, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%ILev', 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%ILev => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%Lat ) ) THEN\n       DEALLOCATE( State_Grid%Lat, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%Lat', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%Lat => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%LatBnd ) ) THEN\n       DEALLOCATE( State_Grid%LatBnd, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%LatBnd', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%LatBnd => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%LatE ) ) THEN\n       DEALLOCATE( State_Grid%LatE, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%LatE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%LatE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%Lev ) ) THEN\n       DEALLOCATE( State_Grid%Lev, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%Lev', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%Lev => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%Lon ) ) THEN\n       DEALLOCATE( State_Grid%Lon, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%Lon', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%Lon => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%LonBnd ) ) THEN\n       DEALLOCATE( State_Grid%LonBnd, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%LonBnd', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%LonBnd => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%LonE ) ) THEN\n       DEALLOCATE( State_Grid%LonE, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%LonE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%LonE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Grid%Time ) ) THEN\n       DEALLOCATE( State_Grid%Time, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%Time', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%Area_M2 => NULL()\n    ENDIF\n#endif\n\n#ifdef LUO_WETDEP\n    !========================================================================\n    ! Deallocate grid fields for Luo et al wetdep\n    !========================================================================\n    IF ( ASSOCIATED( State_Grid%DXSN_M ) ) THEN\n       DEALLOCATE( State_Grid%DXSN_M, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%DXSN_M', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%DXSN_M => NULL()\n    ENDIF\n    IF ( ASSOCIATED( State_Grid%DYWE_M ) ) THEN\n       DEALLOCATE( State_Grid%DYWE_M, STAT=RC )\n       CALL GC_CheckVar( 'State_Grid%DYWE_M', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Grid%DYWE_M => NULL()\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Destroy the registry of fields for this module\n    !========================================================================\n    CALL Registry_Destroy( State_Grid%Registry, State_Grid%RegDict, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not destroy registry object \"Registry\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       State_Grid%Registry => NULL()\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Cleanup_State_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Grid\n!\n! !DESCRIPTION: Print information about all the registered variables\n!  contained within the gc\\_grid\\_mod.F90 module. This is basically a wrapper\n!  for routine REGISTRY\\_PRINT in registry\\_mod.F90.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Grid( Input_Opt, State_Grid, RC, ShortFormat )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Registry_Mod,  ONLY : Registry_Print\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid  ! Grid State object\n    LOGICAL,        OPTIONAL    :: ShortFormat ! Print truncated info\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success/failure?\n!\n! !REVISION HISTORY:\n!  23 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Print_GC_Grid (in GeosUtil/grid_registry_mod.F90)'\n\n    ! Only print information on the root CPU\n    IF ( .not. Input_Opt%amIRoot ) RETURN\n\n    !========================================================================\n    ! Print info about registered variables\n    !========================================================================\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n\n       ! Header line\n       WRITE( 6, 10 )\n 10    FORMAT( /, &\n         'Registered variables contained within the State_Grid object:'     )\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n       ! Print registry info in truncated format\n       CALL Registry_Print( Input_Opt   = Input_Opt,                         &\n                            Registry    = State_Grid%Registry,               &\n                            ShortFormat = ShortFormat,                       &\n                            RC          = RC                                )\n\n       ! Trap error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in routine \"Registry_Print\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Print_Grid\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Lookup_Grid\n!\n! !DESCRIPTION: Return metadata and/or a pointer to the data for any\n!  variable contained within the GRID registry by searching for its name.\n!  This is basically a wrapper for routine REGISTRY\\_LOOKUP in\n!  registry\\_mod.F90.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Lookup_Grid( Input_Opt,       State_Grid,      Variable,        &\n                          RC,              Description,     Dimensions,      &\n                          Source_KindVal,  Output_KindVal,  MemoryInKb,      &\n                          Rank,            Units,           OnLevelEdges,    &\n                          Ptr0d_8,         Ptr1d_8,         Ptr2d_4,         &\n                          Ptr2d_8                                           )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE Registry_Mod,  ONLY : Registry_Lookup\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt       ! Input Options object\n    TYPE(GrdState),      INTENT(IN)  :: State_Grid      ! Grid State object\n    CHARACTER(LEN=*),    INTENT(IN)  :: Variable        ! Variable name\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Required outputs\n    INTEGER,             INTENT(OUT) :: RC              ! Success or failure?\n\n    ! Optional outputs\n    CHARACTER(LEN=255),  OPTIONAL    :: Description     ! Description of data\n    INTEGER,             OPTIONAL    :: Dimensions(3)   ! Dimensions of data\n    INTEGER,             OPTIONAL    :: Source_KindVal  ! KIND value of data\n    INTEGER,             OPTIONAL    :: Output_KindVal  ! KIND value of data\n    REAL(fp),            OPTIONAL    :: MemoryInKb      ! Memory usage\n    INTEGER,             OPTIONAL    :: Rank            ! Size of data\n    CHARACTER(LEN=255),  OPTIONAL    :: Units           ! Units of data\n    LOGICAL,             OPTIONAL    :: OnLevelEdges    ! =T if data is defined\n                                                        !  on vertical grid\n                                                        !  edges; =F if center\n\n    ! Pointers to data\n    REAL(f8),   POINTER, OPTIONAL    :: Ptr0d_8         ! 0D 8-byte data\n    REAL(f8),   POINTER, OPTIONAL    :: Ptr1d_8(:  )    ! 1D 8-byte data\n    REAL(f4),   POINTER, OPTIONAL    :: Ptr2d_4(:,:)    ! 2D 4-byte data\n    REAL(f8),   POINTER, OPTIONAL    :: Ptr2d_8(:,:)    ! 2D 8-byte data\n!\n! !REMARKS:\n!  We keep the StateName variable private to this module. Users only have\n!  to supply the name of each module variable.\n!\n! !REVISION HISTORY:\n!  23 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at Lookup_Grid (in GeosUtil/grid_registry_mod.F90)'\n\n    !========================================================================\n    ! Look up a variable; Return metadata and/or a pointer to the data\n    !========================================================================\n    CALL Registry_Lookup( am_I_Root      = Input_Opt%amIRoot,                &\n                          Registry       = State_Grid%Registry,              &\n                          RegDict        = State_Grid%RegDict,               &\n                          State          = State_Grid%State,                 &\n                          Variable       = Variable,                         &\n                          Description    = Description,                      &\n                          Dimensions     = Dimensions,                       &\n                          Source_KindVal = Source_KindVal,                   &\n                          Output_KindVal = Output_KindVal,                   &\n                          MemoryInKb     = MemoryInKb,                       &\n                          Rank           = Rank,                             &\n                          Units          = Units,                            &\n                          OnLevelEdges   = OnLevelEdges,                     &\n                          Ptr0d_8        = Ptr0d_8,                          &\n                          Ptr1d_8        = Ptr1d_8,                          &\n                          Ptr2d_8        = Ptr2d_8,                          &\n                          Ptr2d_4        = Ptr2d_4,                          &\n                          RC             = RC                               )\n\n    ! Trap error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not find variable \"' // TRIM( Variable ) //           &\n                '\" in the State_Grid registry!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Lookup_Grid\n!EOC\nEND MODULE State_Grid_Mod\n"
  },
  {
    "path": "Headers/state_met_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: state_met_mod.F90\n!\n! !DESCRIPTION: Module STATE\\_MET\\_MOD contains the derived type\n!  used to define the Meteorology State object for GEOS-Chem.\n!\\\\\n!\\\\\n!  This module also contains the routines that allocate and deallocate memory\n!  to the Meteorology State object.  The Meteorology State object is not\n!  defined in this module.  It must be be declared as variable in the top-level\n!  driver routine, and then passed to lower-level routines as an argument.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE State_Met_Mod\n!\n! USES:\n!\n  USE Cmn_Size_Mod, ONLY : NSURFTYPE\n  USE Dictionary_M, ONLY : dictionary_t\n  USE ErrCode_Mod\n  USE Precision_Mod\n  USE Registry_Mod\n\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Init_State_Met\n  PUBLIC :: Cleanup_State_Met\n  PUBLIC :: Get_Metadata_State_Met\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Init_and_Register\n  PRIVATE :: Register_MetField\n  PRIVATE :: Zero_State_Met\n!\n! !PUBLIC DATA MEMBERS:\n!\n  !=========================================================================\n  ! Derived type for Meteorology State\n  !=========================================================================\n  TYPE, PUBLIC :: MetState\n\n     !----------------------------------------------------------------------\n     ! Surface fields\n     !----------------------------------------------------------------------\n     REAL(fp), POINTER :: ALBD          (:,:  ) ! Visible surface albedo [1]\n     REAL(fp), POINTER :: AREA_M2       (:,:  ) ! Grid box surface area [m2]\n     INTEGER,  POINTER :: ChemGridLev   (:,:  ) ! Chemistry grid level\n     REAL(fp), POINTER :: CLDFRC        (:,:  ) ! Column cloud fraction [1]\n     INTEGER,  POINTER :: CLDTOPS       (:,:  ) ! Max cloud top height [levels]\n     REAL(fp), POINTER :: CONV_DEPTH    (:,:  ) ! Convective cloud depth [m]\n     REAL(fp), POINTER :: EFLUX         (:,:  ) ! Latent heat flux [W/m2]\n     REAL(fp), POINTER :: FLASH_DENS    (:,:  ) ! Lightning flash density [#/km2/s]\n     REAL(fp), POINTER :: FRCLND        (:,:  ) ! Olson land fraction [1]\n     REAL(fp), POINTER :: FRLAKE        (:,:  ) ! Fraction of lake in grid box [1]\n     REAL(fp), POINTER :: FRLAND        (:,:  ) ! Fraction of land without lake or\n                                                ! ice in grid box [1]\n     REAL(fp), POINTER :: FRLANDICE     (:,:  ) ! Fraction of land ice in grid box [1]\n     REAL(fp), POINTER :: FROCEAN       (:,:  ) ! Fraction of ocean in grid box [1]\n     REAL(fp), POINTER :: FRSEAICE      (:,:  ) ! Fraction of ocean covered by sea\n                                                ! ice [1]\n     REAL(fp), POINTER :: FRSNOW        (:,:  ) ! Fraction of snow over land in\n                                                ! grid box [1]\n     REAL(fp), POINTER :: GWETROOT      (:,:  ) ! Root soil wetness [1]\n     REAL(fp), POINTER :: GWETTOP       (:,:  ) ! Top soil moisture [1]\n     REAL(fp), POINTER :: HFLUX         (:,:  ) ! Sensible heat flux [W/m2]\n     LOGICAL,  POINTER :: IsLand        (:,:  ) ! True if majority surface type is land,\n                                                ! without snow or ice\n     LOGICAL,  POINTER :: IsWater       (:,:  ) ! True if majority surface type is water,\n                                                ! including lake or ocean\n     LOGICAL,  POINTER :: IsIce         (:,:  ) ! True if majority surface type is ice,\n                                                ! including over land or ocean\n     LOGICAL,  POINTER :: IsSnow        (:,:  ) ! True if majority surface type is snow,\n                                                ! over land only\n     REAL(fp), POINTER :: LAI           (:,:  ) ! Leaf area index [m2/m2]\n                                                !  (online)\n     REAL(fp), POINTER :: PARDR         (:,:  ) ! Direct photsynthetically\n                                                !  active radiation [W/m2]\n     REAL(fp), POINTER :: PARDF         (:,:  ) ! Diffuse photsynthetically\n                                                !  active radiation [W/m2]\n     REAL(fp), POINTER :: PBLH          (:,:  ) ! PBL height [m]\n     REAL(fp), POINTER :: PBL_TOP_hPa   (:,:  ) ! PBL top [hPa]\n     REAL(fp), POINTER :: PBL_TOP_L     (:,:  ) ! PBL top [level]\n     REAL(fp), POINTER :: PBL_TOP_m     (:,:  ) ! PBL top [m]\n     REAL(fp), POINTER :: PBL_THICK     (:,:  ) ! PBL thickness [hPa]\n     REAL(fp), POINTER :: PHIS          (:,:  ) ! Surface geopotential height\n                                                !  [m2/s2]\n     REAL(fp), POINTER :: PRECANV       (:,:  ) ! Anvil previp @ ground\n                                                !  [kg/m2/s] -> [mm/day]\n     REAL(fp), POINTER :: PRECCON       (:,:  ) ! Conv  precip @ ground\n                                                !  [kg/m2/s] -> [mm/day]\n     REAL(fp), POINTER :: PRECLSC       (:,:  ) ! Large-scale precip @ ground\n                                                !  [kg/m2/s] -> [mm/day]\n     REAL(fp), POINTER :: PRECTOT       (:,:  ) ! Total precip @ ground\n                                                !  [kg/m2/s] -> [mm/day]\n     REAL(fp), POINTER :: PS1_WET       (:,:  ) ! Wet surface pressure at\n                                                !  start of timestep [hPa]\n     REAL(fp), POINTER :: PS2_WET       (:,:  ) ! Wet surface pressure at\n                                                !  end of timestep [hPa]\n     REAL(fp), POINTER :: PSC2_WET      (:,:  ) ! Wet interpolated surface\n                                                !  pressure [hPa]\n     REAL(fp), POINTER :: PS1_DRY       (:,:  ) ! Dry surface pressure at\n                                                !  start of timestep [hPa]\n     REAL(fp), POINTER :: PS2_DRY       (:,:  ) ! Dry surface pressure at\n                                                !  end of timestep [hPa]\n     REAL(fp), POINTER :: PSC2_DRY      (:,:  ) ! Dry interpolated surface\n                                                !  pressure [hPa]\n     REAL(fp), POINTER :: QV2M          (:,:  ) ! Specific Humidity at 2m [kg/kg]\n     REAL(fp), POINTER :: SEAICE00      (:,:  ) ! Sea ice coverage 00-10%\n     REAL(fp), POINTER :: SEAICE10      (:,:  ) ! Sea ice coverage 10-20%\n     REAL(fp), POINTER :: SEAICE20      (:,:  ) ! Sea ice coverage 20-30%\n     REAL(fp), POINTER :: SEAICE30      (:,:  ) ! Sea ice coverage 30-40%\n     REAL(fp), POINTER :: SEAICE40      (:,:  ) ! Sea ice coverage 40-50%\n     REAL(fp), POINTER :: SEAICE50      (:,:  ) ! Sea ice coverage 50-60%\n     REAL(fp), POINTER :: SEAICE60      (:,:  ) ! Sea ice coverage 60-70%\n     REAL(fp), POINTER :: SEAICE70      (:,:  ) ! Sea ice coverage 70-80%\n     REAL(fp), POINTER :: SEAICE80      (:,:  ) ! Sea ice coverage 80-90%\n     REAL(fp), POINTER :: SEAICE90      (:,:  ) ! Sea ice coverage 90-100%\n     REAL(fp), POINTER :: SLP           (:,:  ) ! Sea level pressure [hPa]\n     REAL(fp), POINTER :: SNODP         (:,:  ) ! Snow depth [m]\n     REAL(fp), POINTER :: SNOMAS        (:,:  ) ! Snow mass [kg/m2]\n     REAL(fp), POINTER :: SUNCOS        (:,:  ) ! COS(solar zenith angle) at\n                                                !   current time\n     REAL(fp), POINTER :: SUNCOSmid     (:,:  ) ! COS(solar zenith angle) at\n                                                !  midpoint of chem timestep\n     REAL(fp), POINTER :: SUNCOSsum     (:,:  ) ! Sum of COS(SZA) for HEMCO OH\n                                                !  diurnal variability\n     REAL(fp), POINTER :: SZAFACT       (:,:  ) ! Diurnal scale factor for HEMCO OH\n                                                !  diurnal variability (computed) [1]\n     REAL(fp), POINTER :: SWGDN         (:,:  ) ! Incident radiation @ ground\n                                                !  [W/m2]\n     REAL(fp), POINTER :: TO3           (:,:  ) ! Total overhead O3 column [DU]\n     REAL(fp), POINTER :: TROPP         (:,:  ) ! Tropopause pressure [hPa]\n     INTEGER,  POINTER :: TropLev       (:,:  ) ! Tropopause level [1]\n     REAL(fp), POINTER :: TropHt        (:,:  ) ! Tropopause height [km]\n     REAL(fp), POINTER :: TS            (:,:  ) ! Surface temperature [K]\n     REAL(fp), POINTER :: TSKIN         (:,:  ) ! Surface skin temperature [K]\n     REAL(fp), POINTER :: TSOIL1        (:,:  ) ! Soil temperature [K]\n     REAL(fp), POINTER :: U10M          (:,:  ) ! E/W wind speed @ 10m ht [m/s]\n     REAL(fp), POINTER :: USTAR         (:,:  ) ! Friction velocity [m/s]\n     REAL(fp), POINTER :: UVALBEDO      (:,:  ) ! UV surface albedo [1]\n     REAL(fp), POINTER :: V10M          (:,:  ) ! N/S wind speed @ 10m ht [m/s]\n     REAL(fp), POINTER :: Z0            (:,:  ) ! Surface roughness height [m]\n     REAL(fp), POINTER :: CNV_FRC       (:,:  ) ! Convective fraction [1]\n\n     !----------------------------------------------------------------------\n     ! 3-D Fields\n     !----------------------------------------------------------------------\n#ifdef LUO_WETDEP\n     REAL(fp), POINTER :: KINC          (:,:,:) ! Air refreshing rate [s-1]\n     REAL(fp), POINTER :: WUP           (:,:,:) ! TKE wind speed [m/s]\n     REAL(fp), POINTER :: TKICE         (:,:,:) ! Ice uptake rate [s-1]\n     REAL(fp), POINTER :: NUMCD         (:,:,:) ! Cloud Ice Number [cm-3]\n     REAL(fp), POINTER :: ICESF         (:,:,:) ! Cloud Ice Surface Area [cm2]\n     REAL(fp), POINTER :: RADCD         (:,:,:) ! Cloud Ice Radius [cm]\n#endif\n     REAL(fp), POINTER :: CLDF          (:,:,:) ! 3-D cloud fraction [1]\n     REAL(fp), POINTER :: CMFMC         (:,:,:) ! Cloud mass flux [kg/m2/s]\n     REAL(fp), POINTER :: DQRCU         (:,:,:) ! Conv precip production rate\n                                                !  [kg/kg/s] (assume per\n                                                !  dry air)\n     REAL(fp), POINTER :: DQRLSAN       (:,:,:) ! LS precip prod rate [kg/kg/s]\n                                                !  (assume per dry air)\n     REAL(fp), POINTER :: DTRAIN        (:,:,:) ! Detrainment flux [kg/m2/s]\n     REAL(fp), POINTER :: F_OF_PBL      (:,:,:) ! Fraction of box within PBL [1]\n     REAL(fp), POINTER :: F_UNDER_PBLTOP(:,:,:) ! Fraction of box under PBL top\n     REAL(fp), POINTER :: OMEGA         (:,:,:) ! Updraft velocity [Pa/s]\n     REAL(fp), POINTER :: OPTD          (:,:,:) ! Visible optical depth [1]\n     REAL(fp), POINTER :: PEDGE         (:,:,:) ! Wet air press @ level\n                                                !  edges [hPa]\n     REAL(fp), POINTER :: PFICU         (:,:,:) ! Dwn flux ice prec:conv\n                                                !  [kg/m2/s]\n     REAL(fp), POINTER :: PFILSAN       (:,:,:) ! Dwn flux ice prec:LS+anv\n                                                !  [kg/m2/s]\n     REAL(fp), POINTER :: PFLCU         (:,:,:) ! Dwn flux liq prec:conv\n                                                !  [kg/m2/s]\n     REAL(fp), POINTER :: PFLLSAN       (:,:,:) ! Dwn flux ice prec:LS+anv\n                                                !  [kg/m2/s]\n     REAL(fp), POINTER :: QI            (:,:,:) ! Mass fraction of cloud ice water\n                                                !  [kg/kg dry air]\n     REAL(fp), POINTER :: QL            (:,:,:) ! Mass fraction of cloud liquid water\n                                                !  [kg/kg dry air]\n     REAL(fp), POINTER :: REEVAPCN      (:,:,:) ! Evap of precip conv [kg/kg/s]\n                                                !  (assume per dry air)\n     REAL(fp), POINTER :: REEVAPLS      (:,:,:) ! Evap of precip LS+anvil\n                                                !  [kg/kg/s] (assume per\n                                                !  dry air)\n     REAL(fp), POINTER :: RH            (:,:,:) ! Relative humidity [%]\n     REAL(fp), POINTER :: SPHU          (:,:,:) ! Specific humidity\n                                                !  [g H2O/kg tot air]\n     REAL(fp), POINTER :: SPHU1         (:,:,:) ! Specific humidity at start\n                                                !  of timestep [g/kg]\n     REAL(fp), POINTER :: SPHU2         (:,:,:) ! Specific humidity at end\n                                                !  of timestep [g/kg]\n     REAL(fp), POINTER :: T             (:,:,:) ! Temperature [K]\n     REAL(fp), POINTER :: TAUCLI        (:,:,:) ! Opt depth of ice clouds [1]\n     REAL(fp), POINTER :: TAUCLW        (:,:,:) ! Opt depth of H2O clouds [1]\n     REAL(fp), POINTER :: TMPU1         (:,:,:) ! Temperature at start of\n                                                !  timestep [K]\n     REAL(fp), POINTER :: TMPU2         (:,:,:) ! Temperature at end of\n                                                !  timestep [K]\n     REAL(fp), POINTER :: U             (:,:,:) ! E/W component of wind [m s-1]\n     REAL(fp), POINTER :: UPDVVEL       (:,:,:) ! Updraft vertical velocity\n                                                !  [hPa/s]\n     REAL(fp), POINTER :: V             (:,:,:) ! N/S component of wind [m s-1]\n\n     !----------------------------------------------------------------------\n     ! Air quantities assigned in AIRQNT\n     !----------------------------------------------------------------------\n     ! Note on pressures: PMID is calculated from PEDGE,\n     ! and dry air pressures assume constant RH and T across grid box\n     REAL(fp), POINTER :: PEDGE_DRY     (:,:,:) ! Dry air partial pressure\n                                                !  @ level edges [hPa]\n     REAL(fp), POINTER :: PMID          (:,:,:) ! Average wet air pressure [hPa]\n                                                !  defined as arithmetic\n                                                !  average of edge pressures\n     REAL(fp), POINTER :: PMID_DRY      (:,:,:) ! Dry air partial pressure [hPa]\n                                                !  defined as arithmetic avg\n                                                !  of edge pressures\n     REAL(fp), POINTER :: THETA         (:,:,:) ! Potential temperature [K]\n     REAL(fp), POINTER :: TV            (:,:,:) ! Virtual temperature [K]\n     REAL(fp), POINTER :: MAIRDEN       (:,:,:) ! Moist air density [kg/m3]\n     REAL(fp), POINTER :: AIRDEN        (:,:,:) ! Dry air density [kg/m3]\n     REAL(fp), POINTER :: AIRNUMDEN     (:,:,:) ! Dry air density [molec/cm3]\n     REAL(fp), POINTER :: AVGW          (:,:,:) ! Water vapor volume mixing\n                                                !  ratio [vol H2O/vol dry air]\n     REAL(fp), POINTER :: BXHEIGHT      (:,:,:) ! Grid box height [m] (dry air)\n     REAL(fp), POINTER :: DELP          (:,:,:) ! Delta-P (wet) across box [hPa]\n     REAL(fp), POINTER :: DELP_DRY      (:,:,:) ! Delta-P (dry) across box [hPa]\n     REAL(fp), POINTER :: AD            (:,:,:) ! Dry air mass [kg] in grid box\n     REAL(fp), POINTER :: AIRVOL        (:,:,:) ! Grid box volume [m3] (dry air)\n     REAL(fp), POINTER :: DP_DRY_PREV   (:,:,:) ! Previous State_Met%DELP_DRY\n     REAL(fp), POINTER :: SPHU_PREV     (:,:,:) ! Previous State_Met%SPHU\n\n     !----------------------------------------------------------------------\n     ! Fields read in from a previous GC run\n     !----------------------------------------------------------------------\n     REAL(fp), POINTER :: DynHeating    (:,:,:) ! Dynamical heating (K/day)\n\n     !----------------------------------------------------------------------\n     ! Offline land type, leaf area index, and chlorophyll fields\n     !----------------------------------------------------------------------\n     INTEGER,  POINTER :: IREG          (:,:  ) ! # of landtypes in box (I,J)\n     INTEGER,  POINTER :: ILAND         (:,:,:) ! Land type at (I,J);\n                                                !  1..IREG(I,J)\n     INTEGER,  POINTER :: IUSE          (:,:,:) ! Fraction (per mil) of box\n                                                !  (I,J) occupied by each land\n                                                !  type\n     REAL(fp), POINTER :: MODISLAI      (:,:  ) ! Daily LAI computed from\n                                                !  monthly offline MODIS [m2/m2]\n     REAL(fp), POINTER :: XLAI          (:,:,:) ! MODIS LAI per land type,\n                                                !  for this month\n     REAL(fp), POINTER :: LandTypeFrac  (:,:,:) ! Olson frac per type (I,J,type)\n     REAL(fp), POINTER :: XLAI_NATIVE   (:,:,:) ! avg LAI per type (I,J,type)\n     REAL(fp), POINTER :: XLAI2         (:,:,:) ! MODIS LAI per land type,\n                                                !  for next month\n\n     !----------------------------------------------------------------------\n     ! Fields for querying in which vertical regime a grid box is in\n     ! or if a grid box is near local noon solar time\n     !----------------------------------------------------------------------\n     LOGICAL,  POINTER :: InChemGrid    (:,:,:) ! Are we in the chemistry grid?\n     LOGICAL,  POINTER :: InPbl         (:,:,:) ! Are we in the PBL?\n     LOGICAL,  POINTER :: InStratMeso   (:,:,:) ! Are we in the stratosphere\n                                                !            or mesosphere?\n     LOGICAL,  POINTER :: InStratosphere(:,:,:) ! Are we in the stratosphere?\n     LOGICAL,  POINTER :: InTroposphere (:,:,:) ! Are we in the troposphere?\n     REAL(fp), POINTER :: LocalSolarTime(:,:  ) ! Local solar time\n     LOGICAL,  POINTER :: IsLocalNoon   (:,:  ) ! Is it local noon (between 11\n                                                !  and 13 local solar time?\n     INTEGER           :: MaxStratLev           ! Maximum extent of the strat\n     INTEGER           :: MaxChemLev            ! Level at the top of the\n                                                !  chemistry grid (1 hPa)\n\n     !----------------------------------------------------------------------\n     ! Fields for wet scavenging module\n     !----------------------------------------------------------------------\n     REAL(fp), POINTER :: C_H2O         (:,:,:) ! Mix ratio of H2O [v/v]\n     REAL(fp), POINTER :: CLDICE        (:,:,:) ! Precipitable cloud ice mixing\n                                                ! ratio [cm3 ice/cm3 air]\n     REAL(fp), POINTER :: CLDLIQ        (:,:,:) ! Precipitable cloud liquid H2O\n                                                ! mixing ratio [cm3 H2O/cm3 air]\n     REAL(fp), POINTER :: PDOWN         (:,:,:) ! Precipitation thru the bottom\n                                                ! of the grid box\n                                                ! [cm3 H2O/cm2 area/s]\n     REAL(fp), POINTER :: QQ            (:,:,:) ! Rate of new precip formation\n                                                ! [cm3 H2O/cm3 air/s]\n     REAL(fp), POINTER :: REEVAP        (:,:,:) ! Rate of precip reevaporation\n\n     !----------------------------------------------------------------------\n     ! Fields for boundary layer mixing\n     !----------------------------------------------------------------------\n     INTEGER           :: PBL_MAX_L             ! Max level where PBL top occurs\n\n     !----------------------------------------------------------------------\n     ! Registry of variables contained within State_Met\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=3)             :: State     = 'MET'    ! Name of this state\n     TYPE(MetaRegItem), POINTER   :: Registry  => NULL()  ! Registry object\n     TYPE(dictionary_t)           :: RegDict              ! Reg. lookup table\n\n  END TYPE MetState\n!\n! !REMARKS:\n!  In MERRA2, PS and SLP are kept in Pa (not converted to hPa).\n!\n! !REVISION HISTORY:\n!  19 Oct 2012 - R. Yantosca - Initial version, split off from gc_type_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !MODULE INTERFACES:\n!\n  INTERFACE Init_and_Register\n     MODULE PROCEDURE Init_and_Register_R4_2D\n     MODULE PROCEDURE Init_and_Register_R4_3D\n     MODULE PROCEDURE Init_and_Register_R8_2D\n     MODULE PROCEDURE Init_and_Register_R8_3D\n     MODULE PROCEDURE Init_and_Register_Log_2D\n     MODULE PROCEDURE Init_and_Register_Log_3D\n     MODULE PROCEDURE Init_and_Register_Int_2D\n     MODULE PROCEDURE Init_and_Register_Int_3D\n  END INTERFACE Init_and_Register\n\n  INTERFACE Register_MetField\n     MODULE PROCEDURE Register_MetField_R4_2D\n     MODULE PROCEDURE Register_MetField_R4_3D\n     MODULE PROCEDURE Register_MetField_R8_2D\n     MODULE PROCEDURE Register_MetField_R8_3D\n     MODULE PROCEDURE Register_MetField_Int_2D\n     MODULE PROCEDURE Register_MetField_Int_3D\n  END INTERFACE Register_MetField\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Zero_State_Met\n!\n! !DESCRIPTION: Nullifies and/or zeroes all fields of State\\_Met.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Zero_State_Met( State_Met, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n    ! Initialize\n    RC = GC_SUCCESS\n\n    !=======================================================================\n    ! Nullify all fields for safety's sake before allocating them\n    ! This can prevent compilation errors caused by uninitialized values\n    !=======================================================================\n    State_Met%ALBD           => NULL()\n    State_Met%AREA_M2        => NULL()\n    State_Met%ChemGridLev    => NULL()\n    State_Met%CLDFRC         => NULL()\n    State_Met%CLDTOPS        => NULL()\n    State_Met%CONV_DEPTH     => NULL()\n    State_Met%EFLUX          => NULL()\n    State_Met%FLASH_DENS     => NULL()\n    State_Met%FRCLND         => NULL()\n    State_Met%FRLAKE         => NULL()\n    State_Met%FRLAND         => NULL()\n    State_Met%FRLANDICE      => NULL()\n    State_Met%FROCEAN        => NULL()\n    State_Met%FRSEAICE       => NULL()\n    State_Met%FRSNOW         => NULL()\n    State_Met%GWETROOT       => NULL()\n    State_Met%GWETTOP        => NULL()\n    State_Met%HFLUX          => NULL()\n    State_Met%IsLand         => NULL()\n    State_Met%IsWater        => NULL()\n    State_Met%IsIce          => NULL()\n    State_Met%IsSnow         => NULL()\n    State_Met%LAI            => NULL()\n    State_Met%PARDR          => NULL()\n    State_Met%PARDF          => NULL()\n    State_Met%PBLH           => NULL()\n    State_Met%PBL_TOP_hPa    => NULL()\n    State_Met%PBL_TOP_L      => NULL()\n    State_Met%PBL_TOP_m      => NULL()\n    State_Met%PBL_THICK      => NULL()\n    State_Met%PHIS           => NULL()\n    State_Met%PRECANV        => NULL()\n    State_Met%PRECCON        => NULL()\n    State_Met%PRECLSC        => NULL()\n    State_Met%PRECTOT        => NULL()\n    State_Met%PS1_WET        => NULL()\n    State_Met%PS2_WET        => NULL()\n    State_Met%PSC2_WET       => NULL()\n    State_Met%PS1_DRY        => NULL()\n    State_Met%PS2_DRY        => NULL()\n    State_Met%PSC2_DRY       => NULL()\n    State_Met%QV2M           => NULL()\n    State_Met%SEAICE00       => NULL()\n    State_Met%SEAICE10       => NULL()\n    State_Met%SEAICE20       => NULL()\n    State_Met%SEAICE30       => NULL()\n    State_Met%SEAICE40       => NULL()\n    State_Met%SEAICE50       => NULL()\n    State_Met%SEAICE60       => NULL()\n    State_Met%SEAICE70       => NULL()\n    State_Met%SEAICE80       => NULL()\n    State_Met%SEAICE90       => NULL()\n    State_Met%SLP            => NULL()\n    State_Met%SNODP          => NULL()\n    State_Met%SNOMAS         => NULL()\n    State_Met%SUNCOS         => NULL()\n    State_Met%SUNCOSmid      => NULL()\n    State_Met%SUNCOSsum      => NULL()\n    State_Met%SZAFACT        => NULL()\n    State_Met%SWGDN          => NULL()\n    State_Met%TO3            => NULL()\n    State_Met%TROPP          => NULL()\n    State_Met%TropLev        => NULL()\n    State_Met%TropHt         => NULL()\n    State_Met%TS             => NULL()\n    State_Met%TSKIN          => NULL()\n    State_Met%TSOIL1         => NULL()\n    State_Met%U10M           => NULL()\n    State_Met%USTAR          => NULL()\n    State_Met%UVALBEDO       => NULL()\n    State_Met%V10M           => NULL()\n    State_Met%Z0             => NULL()\n    State_Met%CNV_FRC        => NULL()\n    State_Met%CLDF           => NULL()\n    State_Met%CMFMC          => NULL()\n    State_Met%DQRCU          => NULL()\n    State_Met%DQRLSAN        => NULL()\n    State_Met%DTRAIN         => NULL()\n    State_Met%F_OF_PBL       => NULL()\n    State_Met%F_UNDER_PBLTOP => NULL()\n    State_Met%OMEGA          => NULL()\n    State_Met%OPTD           => NULL()\n    State_Met%PEDGE          => NULL()\n    State_Met%PFICU          => NULL()\n    State_Met%PFILSAN        => NULL()\n    State_Met%PFLCU          => NULL()\n    State_Met%PFLLSAN        => NULL()\n    State_Met%QI             => NULL()\n    State_Met%QL             => NULL()\n    State_Met%REEVAPCN       => NULL()\n    State_Met%REEVAPLS       => NULL()\n    State_Met%RH             => NULL()\n    State_Met%SPHU           => NULL()\n    State_Met%SPHU1          => NULL()\n    State_Met%SPHU2          => NULL()\n    State_Met%T              => NULL()\n    State_Met%TAUCLI         => NULL()\n    State_Met%TAUCLW         => NULL()\n    State_Met%TMPU1          => NULL()\n    State_Met%TMPU2          => NULL()\n    State_Met%U              => NULL()\n    State_Met%UPDVVEL        => NULL()\n    State_Met%V              => NULL()\n    State_Met%PEDGE_DRY      => NULL()\n    State_Met%PMID           => NULL()\n    State_Met%PMID_DRY       => NULL()\n    State_Met%THETA          => NULL()\n    State_Met%TV             => NULL()\n    State_Met%MAIRDEN        => NULL()\n    State_Met%AIRDEN         => NULL()\n    State_Met%AIRNUMDEN      => NULL()\n    State_Met%AVGW           => NULL()\n    State_Met%BXHEIGHT       => NULL()\n    State_Met%DELP           => NULL()\n    State_Met%DELP_DRY       => NULL()\n    State_Met%AD             => NULL()\n    State_Met%AIRVOL         => NULL()\n    State_Met%DP_DRY_PREV    => NULL()\n    State_Met%SPHU_PREV      => NULL()\n    State_Met%DynHeating     => NULL()\n    State_Met%IREG           => NULL()\n    State_Met%ILAND          => NULL()\n    State_Met%IUSE           => NULL()\n    State_Met%MODISLAI       => NULL()\n    State_Met%XLAI           => NULL()\n    State_Met%LandTypeFrac   => NULL()\n    State_Met%XLAI_NATIVE    => NULL()\n    State_Met%XLAI2          => NULL()\n    State_Met%InChemGrid     => NULL()\n    State_Met%InPbl          => NULL()\n    State_Met%InStratMeso    => NULL()\n    State_Met%InStratosphere => NULL()\n    State_Met%InTroposphere  => NULL()\n    State_Met%LocalSolarTime => NULL()\n    State_Met%IsLocalNoon    => NULL()\n    State_Met%C_H2O          => NULL()\n    State_Met%CLDICE         => NULL()\n    State_Met%CLDLIQ         => NULL()\n    State_Met%PDOWN          => NULL()\n    State_Met%QQ             => NULL()\n    State_Met%REEVAP         => NULL()\n    State_Met%REEVAP         => NULL()\n    State_Met%PBL_MAX_L      = 0\n#ifdef LUO_WETDEP\n    State_Met%KINC           => NULL()\n    State_Met%WUP            => NULL()\n    State_Met%TKICE          => NULL()\n    State_Met%NUMCD          => NULL()\n    State_Met%ICESF          => NULL()\n    State_Met%RADCD          => NULL()\n#endif\n    State_Met%MaxChemLev     = 0\n    State_Met%MaxStratLev    = 0\n\n  END SUBROUTINE Zero_State_Met\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_State_Met\n!\n! !DESCRIPTION: Subroutine INIT\\_STATE\\_MET allocates all fields of\n!  the meteorology state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_State_Met( Input_Opt, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Obj for meteorology state\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Return code\n!\n! !REMARKS:\n!  For consistency, maybe this should be moved to a different module.\n!\n! !REVISION HISTORY:\n!  19 Oct 2012 - R. Yantosca - Initial version, based on gc_environment_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg_ir, thisLoc, metId\n    CHARACTER(LEN=512) :: errMsg\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    errMsg     =  ''\n    errMsg_ir  =  'Error encountered in \"Init_and_Register\", metId = '\n    thisLoc    =  &\n         ' -> at Init_State_Met (in module Headers/state_met_mod.F90)'\n\n    ! Nullify or zero all State_Met variables\n    CALL Zero_State_Met( State_Met, RC )\n\n    !========================================================================\n    ! Exit if this is a dry-run simulation\n    !========================================================================\n    IF ( Input_Opt%DryRun ) THEN\n       RC = GC_SUCCESS\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Allocate 2-D Fields\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! ALBD [1]\n    !------------------------------------------------------------------------\n    metId = 'ALBD'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%ALBD,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! AREA_M2 [m2]\n    !------------------------------------------------------------------------\n    metId = 'AREAM2'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%AREA_M2,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! ChemGridLev [1]\n    !------------------------------------------------------------------------\n    metId = 'ChemGridLev'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%ChemGridLev,                                 &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! CLDFRC [1]\n    !------------------------------------------------------------------------\n    metId = 'CLDFRC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%CLDFRC,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! CLDTOPS [level]\n    !------------------------------------------------------------------------\n    metId = 'CLDTOPS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%CLDTOPS,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef MODEL_GEOS\n    !------------------------------------------------------------------------\n    ! CNV_FRC [1]\n    ! Convective fractions are not yet a standard GEOS-FP\n    ! field. Only available to online model (ckeller, 3/4/16)\n    !------------------------------------------------------------------------\n    metId = 'CNVFRC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%CNV_FRC,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !------------------------------------------------------------------------\n    ! Convective Depth [m]\n    !------------------------------------------------------------------------\n    metId = 'CONVDEPTH'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%CONV_DEPTH,                                  &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! EFLUX [W m-2]\n    !------------------------------------------------------------------------\n    metId = 'EFLUX'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%EFLUX,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !---------------------------------------------------------------------\n    ! Lightning density [#/km2/s]\n    !---------------------------------------------------------------------\n    metId = 'FLASHDENS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FLASH_DENS,                                  &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FRCLND [1]\n    !------------------------------------------------------------------------\n    metId = 'FRCLND'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FRCLND,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FRLAKE [1]\n    !------------------------------------------------------------------------\n    metId = 'FRLAKE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FRLAKE,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FRLAND [1]\n    !------------------------------------------------------------------------\n    metId = 'FRLAND'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FRLAND,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FRLANDICE [1]\n    !------------------------------------------------------------------------\n    metId = 'FRLANDICE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FRLANDICE,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FROCEAN [1]\n    !------------------------------------------------------------------------\n    metId = 'FROCEAN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FROCEAN,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FRESEAICE [1]\n    !------------------------------------------------------------------------\n    metId = 'FRSEAICE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FRSEAICE,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! FRSNOW [1]\n    !------------------------------------------------------------------------\n    metId = 'FRSNOW'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%FRSNOW,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! GWETROOT [1]\n    !------------------------------------------------------------------------\n    metId = 'GWETROOT'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%GWETROOT,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! GWETTOP [1]\n    !------------------------------------------------------------------------\n    metId = 'GWETTOP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%GWETTOP,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! HFLUX [W m-2]\n    !------------------------------------------------------------------------\n    metId = 'HFLUX'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%HFLUX,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IREG [1]\n    !------------------------------------------------------------------------\n    metId = 'IREG'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IREG,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IsWater (do not register for diagnostics)\n    !------------------------------------------------------------------------\n    metId = 'IsWater'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IsWater,                                     &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IsWater (do not register for diagnostics)\n    !------------------------------------------------------------------------\n    metId = 'IsLand'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IsLand,                                      &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IsIce (do not register for diagnostics)\n    !------------------------------------------------------------------------\n    metId = 'IsIce'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IsIce,                                       &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IsSnow (do not register for diagnostics)\n    !------------------------------------------------------------------------\n    metId = 'IsSnow'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IsSnow,                                      &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! LAI [1]\n    !------------------------------------------------------------------------\n    metId = 'LAI'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%LAI,                                         &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! MODISLAI [1]\n    !------------------------------------------------------------------------\n    metId = 'MODISLAI'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%MODISLAI,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PARDR [W m-2]\n    !------------------------------------------------------------------------\n    metId = 'PARDR'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PARDR,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PARDF [W m-2]\n    !------------------------------------------------------------------------\n    metId = 'PARDF'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PARDF,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PBLH [m]\n    !------------------------------------------------------------------------\n    metId = 'PBLH'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PBLH,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PBL top [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PBLTOPhPa'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PBL_TOP_hPa,                                 &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PBL top [level]\n    !------------------------------------------------------------------------\n    metId = 'PBLTOPL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PBL_TOP_L,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PBL top [m]\n    !------------------------------------------------------------------------\n    metId = 'PBLTOPM'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PBL_TOP_m,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PBL thickness [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PBLTHICK'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PBL_THICK,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PHIS [m2 s-2], converted to [m] after data read\n    !------------------------------------------------------------------------\n    metId = 'PHIS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PHIS,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PRECANV [kg m-2 s-1], converted to [mm day-1]\n    !------------------------------------------------------------------------\n    metId = 'PRECANV'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PRECANV,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PRECCON [kg m-2 s-1], converted to [mm day-1]\n    !------------------------------------------------------------------------\n    metId = 'PRECCON'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PRECCON,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PRECLSC [kg m-2 s-1], converted to [mm day-1]\n    !------------------------------------------------------------------------\n    metId = 'PRECLSC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PRECLSC,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PRECTOT [kg m-2 s-1], converted to [mm day-1]\n    !------------------------------------------------------------------------\n    metId = 'PRECTOT'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PRECTOT,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PS1_WET [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PS1WET'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PS1_WET,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PS2_WET [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PS2WET'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PS2_WET,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PSC2_WET [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PSC2WET'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PSC2_WET,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PS1_DRY [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PS1DRY'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PS1_DRY,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PS2_DRY [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PS2DRY'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PS2_DRY,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PSC2_DRY [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PSC2DRY'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PSC2_DRY,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !-------------------------\n    ! QV2M [kg/kg]\n    !-------------------------\n    metId = 'QV2M'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%QV2M,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE00 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE00'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE00,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE10 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE10'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE10,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE20 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE20'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE20,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE30 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE30'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE30,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE40 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE40'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE40,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE50 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE50'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE50,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE60 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE60'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE60,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE70 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE70'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE70,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE80 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE80'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE80,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SEAICE90 [1]\n    !------------------------------------------------------------------------\n    metId = 'SEAICE90'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SEAICE90,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SLP [hPa]\n    !------------------------------------------------------------------------\n    metId = 'SLP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SLP,                                         &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SNODP [m]\n    !------------------------------------------------------------------------\n    metId = 'SNODP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SNODP,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SNOMAS [kg m-2]\n    !------------------------------------------------------------------------\n    metId = 'SNOMAS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SNOMAS,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SUNCOS [1]\n    !------------------------------------------------------------------------\n    metId = 'SUNCOS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SUNCOS,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SUNCOSmid [1]\n    !------------------------------------------------------------------------\n    metId = 'SUNCOSmid'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SUNCOSmid,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SUNCOSsum [1] (for HEMCO)\n    !------------------------------------------------------------------------\n    metId = 'SUNCOSsum'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SUNCOSsum,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SZAFACT [1] (for HEMCO)\n    !------------------------------------------------------------------------\n    metId = 'SZAFACT'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SZAFACT,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SWGDN [W m-2]\n    !------------------------------------------------------------------------\n    metId = 'SWGDN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SWGDN,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TO3 [dobsons]\n    !------------------------------------------------------------------------\n    metId = 'TO3'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TO3,                                         &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TropLev [1]\n    !------------------------------------------------------------------------\n    metId = 'TropLev'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TropLev,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TropHt [m]\n    !------------------------------------------------------------------------\n    metId = 'TropHt'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TropHt,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TropP [hPa]\n    !------------------------------------------------------------------------\n    metId = 'TropP '\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TropP,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TS [K]\n    !------------------------------------------------------------------------\n    metId = 'TS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TS,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TSKIN [K]\n    !------------------------------------------------------------------------\n    metId = 'TSKIN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TSKIN,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TSOIL1 [K]\n    !------------------------------------------------------------------------\n    metId = 'TSOIL1'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TSOIL1,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! U10M [m s-1]\n    !------------------------------------------------------------------------\n    metId = 'U10M'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%U10M,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! USTAR [m -s]\n    !------------------------------------------------------------------------\n    metId = 'USTAR'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%USTAR,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! UVALBEDO [1]\n    !------------------------------------------------------------------------\n    metId = 'UVALBEDO'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%UVALBEDO,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! V10M [m s-1]\n    !------------------------------------------------------------------------\n    metId = 'V10M'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%V10M,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Z0 [m]\n    !------------------------------------------------------------------------\n    metId = 'Z0'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%Z0,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Allocate 3-D Arrays\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! AD [kg]\n    !------------------------------------------------------------------------\n    metId = 'AD'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%AD,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! AIRDEN [kg m-3]\n    !------------------------------------------------------------------------\n    metId = 'AIRDEN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%AIRDEN,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! AIRNUMDEN [1]\n    !------------------------------------------------------------------------\n    metId = 'AIRNUMDEN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%AIRNUMDEN,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! AIRVOL [m3]\n    !------------------------------------------------------------------------\n    metId = 'AIRVOL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%AIRVOL,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! AVGW [v/v]\n    !------------------------------------------------------------------------\n    metId = 'AVGW'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%AVGW,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! BXHEIGHT [m]\n    !------------------------------------------------------------------------\n    metId = 'BXHEIGHT'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%BXHEIGHT,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef LUO_WETDEP\n    !------------------------------------------------------------------------\n    ! KINC [s-1]: Air refreshing rate\n    !------------------------------------------------------------------------\n    metId = 'KINC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%KINC,                                        &\n         RC         = RC                                                    )\n    !------------------------------------------------------------------------\n    ! WUP [m/s]: TKE wind speed\n    !------------------------------------------------------------------------\n    metId = 'WUP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%WUP,                                         &\n         RC         = RC                                                    )\n    !------------------------------------------------------------------------\n    ! TKICE [s]: Ice uptake rate\n    !------------------------------------------------------------------------\n    metId = 'TKICE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TKICE,                                       &\n         RC         = RC                                                    )\n    !------------------------------------------------------------------------\n    ! NUMCD [cm-3]: Cloud Ice Number\n    !------------------------------------------------------------------------\n    metId = 'NUMCD'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%NUMCD,                                        &\n         RC         = RC                                                    )\n    !------------------------------------------------------------------------\n    ! ICESF [cm2]: Cloud Ice Surface Area\n    !------------------------------------------------------------------------\n    metId = 'ICESF'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%ICESF,                                        &\n         RC         = RC                                                    )\n    !------------------------------------------------------------------------\n    ! RADCD [cm]: Cloud Ice Radius\n    !------------------------------------------------------------------------\n    metId = 'RADCD'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%RADCD,                                        &\n         RC         = RC                                                    )\n#endif\n    !------------------------------------------------------------------------\n    ! CLDF [1]\n    !------------------------------------------------------------------------\n    metId = 'CLDF'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%CLDF,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! CMFMC [kg m-2 s-1]\n    !------------------------------------------------------------------------\n    metId = 'CMFMC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%CMFMC,                                       &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DELP [hPa]\n    !------------------------------------------------------------------------\n    metId = 'DELP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DELP,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DELP_DRY [hPa]\n    !------------------------------------------------------------------------\n    metId = 'DELPDRY'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DELP_DRY,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DP_DRY_PREV [hPa]\n    !------------------------------------------------------------------------\n    metId = 'DPDRYPREV'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DP_DRY_PREV,                                 &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Fraction of PBL\n    !------------------------------------------------------------------------\n    metId = 'FOFPBL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%F_OF_PBL,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Fraction of box under PBL top\n    !------------------------------------------------------------------------\n    metId = 'FUNDERPBLTOP'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%F_UNDER_PBLTOP,                              &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DQRCU [kg kg-1 s-1]\n    !------------------------------------------------------------------------\n    metId = 'DQRCU'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DQRCU,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DQRLSAN [kg kg-1 s-1]\n    !------------------------------------------------------------------------\n    metId = 'DQRLSAN '\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DQRLSAN,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DTRAIN [kg m-2 s-1]\n    !------------------------------------------------------------------------\n    metId = 'DTRAIN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DTRAIN,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! ILAND [1]\n    !------------------------------------------------------------------------\n    metId = 'ILAND'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%ILAND,                                       &\n         nSlots     = NSURFTYPE,                                             &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IUSE [1]\n    !------------------------------------------------------------------------\n    metId = 'IUSE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IUSE,                                        &\n         nSlots     = NSURFTYPE,                                             &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! LANDTYPEFRAC [1]\n    !------------------------------------------------------------------------\n    metId = 'LANDTYPEFRAC'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%LANDTYPEFRAC,                                &\n         nSlots     = NSURFTYPE,                                             &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! MAIRDEN [kg m-3]\n    !------------------------------------------------------------------------\n    metId = 'MAIRDEN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%MAIRDEN,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! OMEGA [Pa s-1]\n    !------------------------------------------------------------------------\n    metId = 'OMEGA'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%OMEGA,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! OPTD [1]\n    !------------------------------------------------------------------------\n    metId = 'OPTD'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%OPTD,                                         &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PEDGE [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PEDGE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PEDGE,                                       &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PEDGE_DRY [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PEDGEDRY'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PEDGE_DRY,                                   &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PFICU [kg m-2 s-1]\n    !------------------------------------------------------------------------\n    metId = 'PFICU'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PFICU,                                       &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PFILSAN [kg m-2 s-1]\n    !------------------------------------------------------------------------\n    metId = 'PFILSAN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PFILSAN,                                     &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PFLCU [kg m-2 s-1]\n    !------------------------------------------------------------------------\n    metId = 'PFLCU'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PFLCU,                                       &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PFLLSAN [kg m-2 s-1]\n    !------------------------------------------------------------------------\n    metId = 'PFLLSAN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PFLLSAN,                                     &\n         onEdges    = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PMID [1]\n    !------------------------------------------------------------------------\n    metId = 'PMID'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PMID,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! PMID_DRY [hPa]\n    !------------------------------------------------------------------------\n    metId = 'PMIDDRY'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%PMID_DRY,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! QI [kg kg-1]\n    !------------------------------------------------------------------------\n    metId = 'QI'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%QI,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! QL [kg kg-1]\n    !------------------------------------------------------------------------\n    metId = 'QL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%QL,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! REEVAPCN [kg kg-1 s-1]\n    !------------------------------------------------------------------------\n    metId = 'REEVAPCN'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%REEVAPCN,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! REEVAPLS [kg kg-1 s-1]\n    !------------------------------------------------------------------------\n    metId = 'REEVAPLS'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%REEVAPLS,                                    &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! RH [%]\n    !------------------------------------------------------------------------\n    metId = 'RH'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%RH,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SPHU [g kg-1]\n    !------------------------------------------------------------------------\n    metId = 'SPHU'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SPHU,                                        &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SPHU1 [g kg-1]\n    !------------------------------------------------------------------------\n    metId = 'SPHU1'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SPHU1,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SPHU2 [g kg-1]\n    !------------------------------------------------------------------------\n    metId = 'SPHU2'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SPHU2,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SPHU_PREV [g/kg]\n    !------------------------------------------------------------------------\n    metId = 'SPHUPREV'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%SPHU_PREV,                                   &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! DYNHEATING [K/day]\n    !------------------------------------------------------------------------\n    metId = 'DynHeating'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%DynHeating,                                  &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! T [K]\n    !------------------------------------------------------------------------\n    metId = 'T'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%T,                                           &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TAUCLI [1]\n    !------------------------------------------------------------------------\n    metId = 'TAUCLI'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TAUCLI,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TAUCLW [1]\n    !------------------------------------------------------------------------\n    metId = 'TAUCLW'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TAUCLW,                                      &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! THETA [K]\n    !------------------------------------------------------------------------\n    metId = 'THETA'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%THETA,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TMPU1 [K]\n    !------------------------------------------------------------------------\n    metId = 'TMPU1'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TMPU1,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TMPU2 [K]\n    !------------------------------------------------------------------------\n    metId = 'TMPU2'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TMPU2,                                       &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! TV [K]\n    !------------------------------------------------------------------------\n    metId = 'TV'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%TV,                                          &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! U [m s-1]\n    !------------------------------------------------------------------------\n    metId = 'U'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%U,                                           &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n#ifdef MODEL_GEOS\n    !------------------------------------------------------------------------\n    ! UPDVVEL [hPa s-1]\n    ! Updraft vertical velocity is not yet a standard GEOS-FP\n    ! field. Only available to online model (ckeller, 3/4/16)\n    !------------------------------------------------------------------------\n    metId = 'UPDVVEL'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%UPDVVEL,                                     &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n#endif\n\n    !------------------------------------------------------------------------\n    ! V [m s-1]\n    !------------------------------------------------------------------------\n    metId = 'V'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%V,                                           &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! XLAI [1]\n    !------------------------------------------------------------------------\n    metId = 'XLAI'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%XLAI,                                        &\n         nSlots     = NSURFTYPE,                                             &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! XLAI2 [1]\n    !------------------------------------------------------------------------\n    metId = 'XLAI2'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%XLAI2,                                       &\n         nSlots     = NSURFTYPE,                                             &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! XLAI_NATIVE [1]\n    !------------------------------------------------------------------------\n    metId = 'XLAINATIVE'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%XLAI_NATIVE,                                 &\n         nSlots     = NSURFTYPE,                                             &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Allocate fields used by wet scavenging and other GeosCore modules.\n    ! Note some are memory-order ZXY and some are regular XYZ.\n    ! Only allocate arrays if wetdep or convection is turned on\n    !========================================================================\n    IF ( Input_Opt%LWETD .or. Input_Opt%LCONV ) THEN\n\n       !---------------------------------------------------------------------\n       ! C_H2O\n       !---------------------------------------------------------------------\n       metId = 'C_H2O'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Met  = State_Met,                                          &\n            State_Grid = State_Grid,                                         &\n            metId      = metId,                                              &\n            Ptr2Data   = State_Met%C_H2O,                                    &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! CLDICE\n       !-----------------------------------------------------------------\n       metId = 'CLDICE'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Met  = State_Met,                                          &\n            State_Grid = State_Grid,                                         &\n            metId      = metId,                                              &\n            Ptr2Data   = State_Met%CLDICE,                                   &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !-----------------------------------------------------------------\n       ! CLDLIQ\n       !-----------------------------------------------------------------\n       metId = 'CLDLIQ'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Met  = State_Met,                                          &\n            State_Grid = State_Grid,                                         &\n            metId      = metId,                                              &\n            Ptr2Data   = State_Met%CLDLIQ,                                   &\n            noRegister = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! PDOWN (ZXY order)\n       !---------------------------------------------------------------------\n       metId = 'PDOWN'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Met  = State_Met,                                          &\n            State_Grid = State_Grid,                                         &\n            metId      = metId,                                              &\n            Ptr2Data   = State_Met%PDOWN,                                    &\n            noRegister = .TRUE.,                                             &\n            zxyOrder   = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! QQ (ZXY order)\n       !---------------------------------------------------------------------\n       metId = 'QQ'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Met  = State_Met,                                          &\n            State_Grid = State_Grid,                                         &\n            metId      = metId,                                              &\n            Ptr2Data   = State_Met%QQ,                                       &\n            noRegister = .TRUE.,                                             &\n            zxyOrder   = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! REEVAP (ZXY order)\n       !---------------------------------------------------------------------\n       metId = 'REEVAP'\n       CALL Init_and_Register(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Met  = State_Met,                                          &\n            State_Grid = State_Grid,                                         &\n            metId      = metId,                                              &\n            Ptr2Data   = State_Met%REEVAP,                                   &\n            noRegister = .TRUE.,                                             &\n            zxyOrder   = .TRUE.,                                             &\n            RC         = RC                                                 )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n\n\n    ENDIF\n\n    !=======================================================================\n    ! Allocate fields for querying which vertical regime a grid box is in\n    ! or if a grid box is near local solar noontime.\n    !\n    ! %%%%% NOTE: Most of these are logical fields and thus %%%%%\n    ! %%%%%   cannot be archived to HISTORY diagnostics.    %%%%%\n    !=======================================================================\n\n    !------------------------------------------------------------------------\n    ! InChemGrid\n    !------------------------------------------------------------------------\n    metId = 'InChemGrid'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%InChemGrid,                                  &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! InPBL\n    !------------------------------------------------------------------------\n    metId = 'InPbl'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%InPbl,                                       &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! InStratosphere\n    !------------------------------------------------------------------------\n    metId = 'InStratosphere'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%InStratosphere,                              &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! InStratMeso\n    !------------------------------------------------------------------------\n    metId = 'InStratMeso'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%InStratMeso,                                 &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! InTroposphere\n    !------------------------------------------------------------------------\n    metId = 'InTroposphere'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%InTroposphere,                               &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! IsLocalNoon\n    !------------------------------------------------------------------------\n    metId = 'IsLocalNoon'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%IsLocalNoon,                                 &\n         noRegister = .TRUE.,                                                &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! LocalSolarTime (register this for diagnostics)\n    !------------------------------------------------------------------------\n    metId = 'LocalSolarTime'\n    CALL Init_and_Register(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Met  = State_Met,                                             &\n         State_Grid = State_Grid,                                            &\n         metId      = metId,                                                 &\n         Ptr2Data   = State_Met%LocalSolarTime,                              &\n         RC         = RC                                                    )\n\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_ir ) // TRIM( metId )\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Once we are done registering all fields, we need to define the\n    ! registry lookup table.  This algorithm will avoid hash collisions.\n    !========================================================================\n    CALL Registry_Set_LookupTable( Registry  = State_Met%Registry,           &\n                                   RegDict   = State_Met%RegDict,            &\n                                   RC        = RC                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in routine \"Registry_Set_LookupTable\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Print information about the registered fields (short format)\n    ! Only written if debug printout is requested\n    !========================================================================\n    IF ( Input_Opt%amIRoot .and. Input_Opt%Verbose ) THEN\n       WRITE( 6, 10 )\n10     FORMAT(/, 'Registered variables contained within the State_Met object:')\n       WRITE( 6, '(a)' ) REPEAT( '=', 79 )\n\n       ! Print registered fields\n       CALL Registry_Print( Input_Opt   = Input_Opt,                         &\n                            Registry    = State_Met%Registry,                &\n                            ShortFormat = .TRUE.,                            &\n                            RC          = RC                                )\n\n       ! Trap error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Registry_Print\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n   END SUBROUTINE Init_State_Met\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_State_Met\n!\n! !DESCRIPTION: Subroutine CLEANUP\\_STATE\\_MET deallocates all fields\n!  of the meteorology state object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_State_Met( State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetState), INTENT(INOUT) :: State_Met   ! Obj for meteorology state\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Return code\n!\n! !REVISION HISTORY:\n!  19 Oct 2012 - R. Yantosca - Initial version, based on gc_environment_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> Cleanup_State_Met (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Deallocate 2-D fields\n    !========================================================================\n    IF ( ASSOCIATED( State_Met%ALBD ) ) THEN\n       DEALLOCATE( State_Met%ALBD, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%ALBD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%ALBD => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%AREA_M2 ) ) THEN\n       DEALLOCATE( State_Met%AREA_M2, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%AREA_M2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%AREA_M2 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%ChemGridLev ) ) THEN\n       DEALLOCATE( State_Met%ChemGridLev, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%ChemGridLev', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%ChemGridLev => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CLDFRC ) ) THEN\n       DEALLOCATE( State_Met%CLDFRC, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%CLDFRC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%CLDFRC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CLDTOPS ) ) THEN\n       DEALLOCATE( State_Met%CLDTOPS, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%CLDTOPS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%CLDTOPS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CONV_DEPTH ) ) THEN\n       DEALLOCATE( State_Met%CONV_DEPTH, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%CONV_DEPTH', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%CONV_DEPTH => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%EFLUX ) ) THEN\n       DEALLOCATE( State_Met%EFLUX, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%EFLUX', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%EFLUX => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FLASH_DENS ) ) THEN\n       DEALLOCATE( State_Met%FLASH_DENS, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%FLASH_DENS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FLASH_DENS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FRCLND ) ) THEN\n       DEALLOCATE( State_Met%FRCLND, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FRCLND', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FRCLND => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FRLAKE ) ) THEN\n       DEALLOCATE( State_Met%FRLAKE, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FRLAKE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FRLAKE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FRLAND ) ) THEN\n       DEALLOCATE( State_Met%FRLAND, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FRLAND', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FRLAND => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FRLANDICE ) ) THEN\n       DEALLOCATE( State_Met%FRLANDICE, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FRLANDICE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FRLANDICE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FROCEAN ) ) THEN\n       DEALLOCATE( State_Met%FROCEAN, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FROCEAN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FROCEAN => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FRSEAICE ) ) THEN\n       DEALLOCATE( State_Met%FRSEAICE, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FRSEAICE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FRSEAICE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%FRSNOW ) ) THEN\n       DEALLOCATE( State_Met%FRSNOW, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%FRSNOW', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%FRSNOW => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%GWETROOT ) ) THEN\n       DEALLOCATE( State_Met%GWETROOT, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%GWETROOT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%GWETROOT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%GWETTOP ) ) THEN\n       DEALLOCATE( State_Met%GWETTOP, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%GWETTOP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%GWETTOP => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%HFLUX ) ) THEN\n       DEALLOCATE( State_Met%HFLUX, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%HFLUX', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%HFLUX => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%IsWater ) ) THEN\n       DEALLOCATE( State_Met%IsWater, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%IsWater', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IsWater => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%IsLand ) ) THEN\n       DEALLOCATE( State_Met%IsLand, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%IsLand', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IsLand => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%IsIce ) ) THEN\n       DEALLOCATE( State_Met%IsIce, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%IsIce', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IsIce => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%IsSnow ) ) THEN\n       DEALLOCATE( State_Met%IsSnow, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%IsSnow', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IsSnow => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%LAI ) ) THEN\n       DEALLOCATE( State_Met%LAI, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%LAI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%LAI => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PARDR ) ) THEN\n       DEALLOCATE( State_Met%PARDR, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%PARDR', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PARDR => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PARDF ) ) THEN\n       DEALLOCATE( State_Met%PARDF, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%PARDF', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PARDF => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PBLH ) ) THEN\n       DEALLOCATE( State_Met%PBLH, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%PBLH', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PBLH => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PBL_TOP_hPa ) ) THEN\n       DEALLOCATE( State_Met%PBL_TOP_hPa, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PBL_TOP_hPa', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PBL_TOP_hPa => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PBL_TOP_L ) ) THEN\n       DEALLOCATE( State_Met%PBL_TOP_L, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PBL_TOP_L', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PBL_TOP_L => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PBL_TOP_m ) ) THEN\n       DEALLOCATE( State_Met%PBL_TOP_m, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PBL_TOP_m', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PBL_TOP_m => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PBL_THICK ) ) THEN\n       DEALLOCATE( State_Met%PBL_THICK, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PBL_THICK', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PBL_THICK => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PHIS ) ) THEN\n       DEALLOCATE( State_Met%PHIS, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PHIS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PHIS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PRECANV ) ) THEN\n       DEALLOCATE( State_Met%PRECANV, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PRECANV', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PRECANV => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PRECCON ) ) THEN\n       DEALLOCATE( State_Met%PRECCON, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PRECCON', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PRECCON => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PRECLSC ) ) THEN\n       DEALLOCATE( State_Met%PRECLSC, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PRECLSC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PRECLSC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PRECTOT ) ) THEN\n       DEALLOCATE( State_Met%PRECTOT, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PRECTOT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PRECTOT => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PS1_WET ) ) THEN\n       DEALLOCATE( State_Met%PS1_WET, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PS1_WET', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PS1_WET => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PS1_DRY ) ) THEN\n       DEALLOCATE( State_Met%PS1_DRY, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PS1_DRY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PS1_DRY => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PS2_WET ) ) THEN\n       DEALLOCATE( State_Met%PS2_WET, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PS2_WET', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PS2_WET => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PS2_DRY ) ) THEN\n       DEALLOCATE( State_Met%PS2_DRY, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PS2_DRY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PS2_DRY => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PSC2_WET ) ) THEN\n       DEALLOCATE( State_Met%PSC2_WET, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PSC2_WET', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PSC2_WET => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PSC2_DRY ) ) THEN\n       DEALLOCATE( State_Met%PSC2_DRY, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PSC2_DRY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PSC2_DRY => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%QV2M ) ) THEN\n       DEALLOCATE( State_Met%QV2M, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%QV2M', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%QV2M => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE00 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE00, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE00', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE00 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE10 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE10, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE10', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE10 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE20 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE20, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE20', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE20 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE30 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE30, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE30', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE30 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE40 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE40, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE40', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE40 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE50 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE50, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE50', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE50 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE60 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE60, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE60', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE60 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE70 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE70, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE70', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE70 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE80 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE80, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE80', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE80 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SEAICE90 ) ) THEN\n       DEALLOCATE( State_Met%SEAICE90, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SEAICE90', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SEAICE90 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SLP ) ) THEN\n       DEALLOCATE( State_Met%SLP, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SLP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SLP => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SNODP ) ) THEN\n       DEALLOCATE( State_Met%SNODP, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SNODP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SNODP => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SNOMAS ) ) THEN\n       DEALLOCATE( State_Met%SNOMAS, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SNOMAS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SNOMAS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SUNCOS ) ) THEN\n       DEALLOCATE( State_Met%SUNCOS, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SUNCOS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SUNCOS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SUNCOSmid ) ) THEN\n       DEALLOCATE( State_Met%SUNCOSmid, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SUNCOSmid', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SUNCOSmid => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SWGDN ) ) THEN\n       DEALLOCATE( State_Met%SWGDN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SWGDN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SWGDN => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TropLev ) ) THEN\n       DEALLOCATE( State_Met%TropLev, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TropLev', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TropLev => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TropHt ) ) THEN\n       DEALLOCATE( State_Met%TropHt, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TropHt', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TropHt => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TROPP ) ) THEN\n       DEALLOCATE( State_Met%TROPP, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TROPP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TROPP => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TS ) ) THEN\n       DEALLOCATE( State_Met%TS, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TS => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TSKIN ) ) THEN\n       DEALLOCATE( State_Met%TSKIN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TSKIN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TSKIN => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TSOIL1 ) ) THEN\n       DEALLOCATE( State_Met%TSOIL1, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TSOIL1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TSOIL1 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TO3 ) ) THEN\n       DEALLOCATE( State_Met%TO3, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TO3', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TO3 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%U10M ) ) THEN\n       DEALLOCATE( State_Met%U10M, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%U10M', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%U10M => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%USTAR ) ) THEN\n       DEALLOCATE( State_Met%USTAR, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%USTAR', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%USTAR => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%UVALBEDO ) ) THEN\n       DEALLOCATE( State_Met%UVALBEDO, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%UVALBEDO', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%UVALBEDO => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%V10M ) ) THEN\n       DEALLOCATE( State_Met%V10M, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%V10M', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%V10M => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%Z0 ) ) THEN\n       DEALLOCATE( State_Met%Z0, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%Z0', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%Z0 => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CNV_FRC ) ) THEN\n       DEALLOCATE( State_Met%CNV_FRC, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%CNV_FRC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%CNV_FRC => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%ILAND ) ) THEN\n       DEALLOCATE( State_Met%ILAND, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%ILAND', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%ILAND => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%IREG ) ) THEN\n       DEALLOCATE( State_Met%IREG, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%IREG', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IREG => NULL()\n    ENDIF\n\n    !========================================================================\n    ! Deallocate 3-D fields\n    !\n    ! NOTE: If using GEOS-Chem as GCHP, or coupled to GMAO/GEOS, then just\n    ! nullify the fields without deallocating.  This will prevent abnormal\n    ! exits in MAPL.  This is probably due to the fact that the State_Met\n    ! fields point to ESMF/MAPL Imports, and cannot be deallocated\n    ! before the Import itself is finalized.\n    !\n    ! ALSO NOTE: If using GEOS-Chem coupled to WRF, then do the same\n    ! as for GCHP or GEOS, as WRF does its own separate deallocation.\n    !\n    !  -- Lizzie Lundgren and Bob Yantosca, 05 Nov 2018\n    !========================================================================\n    IF ( ASSOCIATED( State_Met%IUSE ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%IUSE => NULL()\n#else\n       DEALLOCATE( State_Met%IUSE, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%IUSE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IUSE => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%LANDTYPEFRAC ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%LANDTYPEFRAC => NULL()\n#else\n       DEALLOCATE( State_Met%LANDTYPEFRAC, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%LANDTYPEFRAC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%LANDTYPEFRAC => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%MODISLAI ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%MODISLAI => NULL()\n#else\n       DEALLOCATE( State_Met%MODISLAI, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%MODISLAI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%MODISLAI => NULL()\n#endif\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! 3-D fields\n    !------------------------------------------------------------------------\n    IF ( ASSOCIATED( State_Met%AD ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%AD => NULL()\n#else\n       DEALLOCATE( State_Met%AD, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%AD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%AD => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%AIRDEN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%AIRDEN => NULL()\n#else\n       DEALLOCATE( State_Met%AIRDEN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%AIRDEN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%AIRDEN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%MAIRDEN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%MAIRDEN => NULL()\n#else\n       DEALLOCATE( State_Met%MAIRDEN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%MAIRDEN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%MAIRDEN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%AIRVOL ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%AIRVOL => NULL()\n#else\n       DEALLOCATE( State_Met%AIRVOL, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%AIRVOL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%AIRVOL => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%BXHEIGHT ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%BXHEIGHT => NULL()\n#else\n       DEALLOCATE( State_Met%BXHEIGHT, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%BXHEIGHT', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%BXHEIGHT => NULL()\n#endif\n    ENDIF\n\n#ifdef LUO_WETDEP\n    IF ( ASSOCIATED( State_Met%KINC ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%KINC => NULL()\n#else\n       DEALLOCATE( State_Met%KINC, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%KINC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%KINC => NULL()\n#endif\n    ENDIF\n    IF ( ASSOCIATED( State_Met%WUP ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%WUP => NULL()\n#else\n       DEALLOCATE( State_Met%WUP, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%WUP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%WUP => NULL()\n#endif\n    ENDIF\n    IF ( ASSOCIATED( State_Met%TKICE ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%TKICE => NULL()\n#else\n       DEALLOCATE( State_Met%TKICE, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TKICE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TKICE => NULL()\n#endif\n    ENDIF\n    IF ( ASSOCIATED( State_Met%NUMCD ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%NUMCD => NULL()\n#else\n       DEALLOCATE( State_Met%NUMCD, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%NUMCD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%NUMCD => NULL()\n#endif\n    ENDIF\n    IF ( ASSOCIATED( State_Met%ICESF ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%ICESF => NULL()\n#else\n       DEALLOCATE( State_Met%ICESF, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%ICESF', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%ICESF => NULL()\n#endif\n    ENDIF\n    IF ( ASSOCIATED( State_Met%RADCD ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%RADCD => NULL()\n#else\n       DEALLOCATE( State_Met%RADCD, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%RADCD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%RADCD => NULL()\n#endif\n    ENDIF\n#endif\n    IF ( ASSOCIATED( State_Met%CLDF ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%CLDF => NULL()\n#else\n       DEALLOCATE( State_Met%CLDF, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%CLDF', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%CLDF => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CMFMC ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%CMFMC => NULL()\n#else\n       DEALLOCATE( State_Met%CMFMC, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%CMFMC', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%CMFMC => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%DELP ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%DELP => NULL()\n#else\n       DEALLOCATE( State_Met%DELP, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%DELP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%DELP => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%DELP_DRY ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%DELP_DRY => NULL()\n#else\n       DEALLOCATE( State_Met%DELP_DRY, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%DELP_DRY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%DELP_DRY => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%DP_DRY_PREV ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%DP_DRY_PREV => NULL()\n#else\n       DEALLOCATE( State_Met%DP_DRY_PREV, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%DP_DRY_PREV', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%DP_DRY_PREV => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%DQRCU ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%DQRCU => NULL()\n#else\n       DEALLOCATE( State_Met%DQRCU, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%DQRCU', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%DQRCU => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%DQRLSAN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%DQRLSAN => NULL()\n#else\n       DEALLOCATE( State_Met%DQRLSAN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%DQRLSAN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%DQRLSAN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%DTRAIN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%DTRAIN => NULL()\n#else\n       DEALLOCATE( State_Met%DTRAIN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%DTRAIN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%DTRAIN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%F_OF_PBL ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%F_OF_PBL => NULL()\n#else\n       DEALLOCATE( State_Met%F_OF_PBL, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%F_OF_PBL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%F_OF_PBL => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%F_UNDER_PBLTOP ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%F_UNDER_PBLTOP => NULL()\n#else\n       DEALLOCATE( State_Met%F_UNDER_PBLTOP, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%F_UNDER_PBLTOP', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%F_UNDER_PBLTOP => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%OMEGA ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%OMEGA => NULL()\n#else\n       DEALLOCATE( State_Met%OMEGA, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%OMEGA', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%OMEGA => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%OPTD ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%OPTD => NULL()\n#else\n       DEALLOCATE( State_Met%OPTD, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%OPTD', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%OPTD => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PEDGE ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PEDGE => NULL()\n#else\n       DEALLOCATE( State_Met%PEDGE, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PEDGE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PEDGE => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PEDGE_DRY ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PEDGE_DRY => NULL()\n#else\n       DEALLOCATE( State_Met%PEDGE_DRY, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PEDGE_DRY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PEDGE_DRY => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PFICU ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PFICU => NULL()\n#else\n       DEALLOCATE( State_Met%PFICU, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PFICU', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PFICU => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PFILSAN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PFILSAN => NULL()\n#else\n       DEALLOCATE( State_Met%PFILSAN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PFILSAN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PFILSAN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PFLCU ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PFLCU => NULL()\n#else\n       DEALLOCATE( State_Met%PFLCU, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PFLCU', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PFLCU => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PFLLSAN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PFLLSAN => NULL()\n#else\n       DEALLOCATE( State_Met%PFLLSAN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PFLLSAN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PFLLSAN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PMID ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PMID => NULL()\n#else\n       DEALLOCATE( State_Met%PMID, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PMID', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PMID => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PMID_DRY ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%PMID_DRY => NULL()\n#else\n       DEALLOCATE( State_Met%PMID_DRY, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%PMID_DRY', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%PMID_DRY => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%QI ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%QI => NULL()\n#else\n       DEALLOCATE( State_Met%QI, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%QI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%QI => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%QL ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%QL => NULL()\n#else\n       DEALLOCATE( State_Met%QL, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%QL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%QL => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%REEVAPCN ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%REEVAPCN => NULL()\n#else\n       DEALLOCATE( State_Met%REEVAPCN, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%REEVAPCN', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%REEVAPCN => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%REEVAPLS ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%REEVAPLS => NULL()\n#else\n       DEALLOCATE( State_Met%REEVAPLS, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%REEVAPLS', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%REEVAPLS => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%RH ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%RH => NULL()\n#else\n       DEALLOCATE( State_Met%RH, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%RH', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%RH => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SPHU ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%SPHU => NULL()\n#else\n       DEALLOCATE( State_Met%SPHU, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SPHU', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SPHU => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SPHU1 ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%SPHU1 => NULL()\n#else\n       DEALLOCATE( State_Met%SPHU1, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SPHU1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SPHU1 => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%SPHU2 ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%SPHU2 => NULL()\n#else\n       DEALLOCATE( State_Met%SPHU2, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%SPHU2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%SPHU2 => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%T ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%T => NULL()\n#else\n       DEALLOCATE( State_Met%T, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%T', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%T => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TMPU1 ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%TMPU1 => NULL()\n#else\n       DEALLOCATE( State_Met%TMPU1, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TMPU1', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TMPU1 => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TMPU2 ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%TMPU2 => NULL()\n#else\n       DEALLOCATE( State_Met%TMPU2, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TMPU2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TMPU2 => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TV ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%TV => NULL()\n#else\n       DEALLOCATE( State_Met%TV, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TV', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TV => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TAUCLI ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%TAUCLI => NULL()\n#else\n       DEALLOCATE( State_Met%TAUCLI, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TAUCLI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TAUCLI => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%TAUCLW ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%TAUCLW => NULL()\n#else\n       DEALLOCATE( State_Met%TAUCLW, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%TAUCLW', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%TAUCLW => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%U ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%U => NULL()\n#else\n       DEALLOCATE( State_Met%U, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%U', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%U => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%UPDVVEL ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%UPDVVEL => NULL()\n#else\n       DEALLOCATE( State_Met%UPDVVEL, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%UPDVVEL', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%UPDVVEL => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%V ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%V => NULL()\n#else\n       DEALLOCATE( State_Met%V, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%V', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%V => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%XLAI ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%XLAI => NULL()\n#else\n       DEALLOCATE( State_Met%XLAI, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%XLAI', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%XLAI => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%XLAI2 ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%XLAI2 => NULL()\n#else\n       DEALLOCATE( State_Met%XLAI2, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%XLAI2', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%XLAI2 => NULL()\n#endif\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%XLAI_NATIVE ) ) THEN\n#if defined( ESMF_ ) || defined( MODEL_WRF )\n       State_Met%XLAI_NATIVE => NULL()\n#else\n       DEALLOCATE( State_Met%XLAI_NATIVE, STAT=RC  )\n       CALL GC_CheckVar( 'State_Met%XLAI_NATIVE', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%XLAI_NATIVE => NULL()\n#endif\n    ENDIF\n\n    !=======================================================================\n    ! Fields for querying which vertical regime a grid box is in\n    ! or if it is near local solar noon at a grid box\n    !=======================================================================\n    IF ( ASSOCIATED( State_Met%InChemGrid ) ) THEN\n       DEALLOCATE( State_Met%InChemGrid, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%InChemGrid', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%InChemGrid => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%InPbl ) ) THEN\n       DEALLOCATE( State_Met%InPbl, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%InPbl', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%InPbl => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%InStratMeso ) ) THEN\n       DEALLOCATE( State_Met%InStratMeso, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%InStratMeso', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%InStratMeso => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%InStratosphere ) ) THEN\n       DEALLOCATE( State_Met%InStratosphere, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%InStratosphere', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%InStratosphere => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%InTroposphere ) ) THEN\n       DEALLOCATE( State_Met%InTroposphere, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%InTroposphere', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%InTroposphere => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%IsLocalNoon ) ) THEN\n       DEALLOCATE( State_Met%IsLocalNoon, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%IsLocalNoon', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%IsLocalNoon => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%LocalSolarTime ) ) THEN\n       DEALLOCATE( State_Met%LocalSolarTime, STAT=RC )\n       CALL GC_CheckVar( 'State_Met%LocalSolarTime', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Met%LocalSolarTime => NULL()\n    ENDIF\n\n    !========================================================================\n    ! Fields temporaries used in other modules\n    !========================================================================\n    IF ( ASSOCIATED( State_Met%C_H2O ) ) THEN\n      DEALLOCATE( State_Met%C_H2O, STAT=RC )\n      CALL GC_CheckVar( 'State_Met%C_H2O', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Met%C_H2O => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CLDICE ) ) THEN\n      DEALLOCATE( State_Met%CLDICE, STAT=RC )\n      CALL GC_CheckVar( 'State_Met%CLDICE', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Met%CLDICE => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%CLDLIQ ) ) THEN\n      DEALLOCATE( State_Met%CLDLIQ, STAT=RC )\n      CALL GC_CheckVar( 'State_Met%CLDLIQ', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Met%CLDLIQ => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%PDOWN ) ) THEN\n      DEALLOCATE( State_Met%PDOWN, STAT=RC )\n      CALL GC_CheckVar( 'State_Met%PDOWN', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Met%PDOWN => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%QQ ) ) THEN\n      DEALLOCATE( State_Met%QQ, STAT=RC )\n      CALL GC_CheckVar( 'State_Met%QQ', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Met%QQ => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Met%REEVAP ) ) THEN\n      DEALLOCATE( State_Met%REEVAP, STAT=RC )\n      CALL GC_CheckVar( 'State_Met%REEVAP', 2, RC )\n      IF ( RC /= GC_SUCCESS ) RETURN\n      State_Met%REEVAP => NULL()\n    ENDIF\n\n    !-------------------------------------------------------------------------\n    ! Template for deallocating more arrays, replace xxx with field name\n    !-------------------------------------------------------------------------\n    !IF ( ASSOCIATED( State_Met%xxx ) ) THEN\n    !   DEALLOCATE( State_Met%xxx, STAT=RC )\n    !   CALL GC_CheckVar( 'State_Met%xxx', 2, RC )\n    !   IF ( RC /= GC_SUCCESS ) RETURN\n    !   State_Met%xxx => NULL()\n    !ENDIF\n\n    !========================================================================\n    ! Destroy the registry of fields for this module\n    !========================================================================\n    CALL Registry_Destroy( State_Met%Registry, State_Met%RegDict, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not destroy registry object State_Met%Registry!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Nullify the registry object\n    State_Met%Registry => NULL()\n\n  END SUBROUTINE Cleanup_State_Met\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Metadata_State_Met\n!\n! !DESCRIPTION: Subroutine GET\\_METDATA\\_STATE\\_MET retrieves basic\n!  information about each State\\_Met field.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Metadata_State_Met( am_I_Root, metadataID, Found,   RC,     &\n                                     Desc,      Units,      Rank,    Type,   &\n                                     VLoc,      perQnt                      )\n!\n! !USES:\n!\n    USE Charpak_Mod,         ONLY: To_UpperCase\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)  :: am_I_Root\n    CHARACTER(LEN=*),    INTENT(IN)  :: metadataID ! State_Met field ID\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(OUT) :: Found      ! Item found?\n    INTEGER,             INTENT(OUT) :: RC         ! Return code\n    CHARACTER(LEN=255),  OPTIONAL    :: Desc       ! Long name string\n    CHARACTER(LEN=255),  OPTIONAL    :: Units      ! Units string\n    INTEGER,             OPTIONAL    :: Rank       ! # of dimensions\n    INTEGER,             OPTIONAL    :: Type       ! Desc of data type\n    INTEGER,             OPTIONAL    :: VLoc       ! Vertical placement\n    CHARACTER(LEN=255),  OPTIONAL    :: perQnt     ! \"Quantity\" dimension?\n!\n! !REVISION HISTORY:\n!  28 Aug 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, Name_AllCaps\n    LOGICAL            :: isDesc, isUnits, isRank, isType, isVLoc, isQnt\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n\n    ! Assume success\n    RC    =  GC_SUCCESS\n    ThisLoc = ' -> at Get_Metadata_State_Met (in Headers/state_met_mod.F90)'\n    Found = .TRUE.\n\n    ! Optional arguments present?\n    isDesc  = PRESENT( Desc   )\n    isUnits = PRESENT( Units  )\n    isRank  = PRESENT( Rank   )\n    isType  = PRESENT( Type   )\n    isVLoc  = PRESENT( VLoc   )\n    isQnt   = PRESENT( perQnt )\n\n    ! Set defaults for optional arguments. Assume type and vertical\n    ! location are real (flexible precision) and center unless specified\n    ! otherwise\n    IF ( isUnits ) Units  = ''\n    IF ( isDesc  ) Desc   = ''\n    IF ( isRank  ) Rank   = -1              ! initialize as bad value\n    IF ( isType  ) Type   = KINDVAL_FP      ! Assume real with flex precision\n    IF ( isVLoc  ) VLoc   = VLocationNone   ! Assume no vertical location\n    IF ( isQnt   ) perQnt = ''              ! Assume no \"species\" dimension\n\n    ! Convert name to uppercase\n    Name_AllCaps = To_Uppercase( TRIM( metadataID ) )\n\n    !========================================================================\n    ! Values for Retrieval (string comparison slow but happens only once)\n    !========================================================================\n    SELECT CASE ( TRIM( Name_AllCaps) )\n\n       !---------------------------------------------------------------------\n       ! 2-D Fields\n       !---------------------------------------------------------------------\n       CASE ( 'ALBD' )\n          IF ( isDesc  ) Desc  = 'Visible surface albedo'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'AREAM2' )\n          IF ( isDesc  ) Desc  = 'Surface area of grid box'\n          IF ( isUnits ) Units = 'm2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'CHEMGRIDLEV' )\n          IF ( isDesc  ) Desc  = 'Highest level of the chemistry grid'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'CLDFRC' )\n          IF ( isDesc  ) Desc  = 'Column cloud fraction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'CLDTOPS' )\n          IF ( isDesc  ) Desc  = 'Maximum cloud top height'\n          IF ( isUnits ) Units = 'level'\n          IF ( isRank  ) Rank  = 2\n          IF ( isType  ) Type  = KINDVAL_I4\n\n#ifdef MODEL_GEOS\n       CASE ( 'CNVFRC' )\n          IF ( isDesc  ) Desc  = 'Convective fraction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n#endif\n\n       CASE ( 'CONVDEPTH' )\n          IF ( isDesc  ) Desc  = 'Convective cloud depth'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'EFLUX' )\n          IF ( isDesc  ) Desc  = 'Latent heat flux'\n          IF ( isUnits ) Units = 'W m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FLASHDENS' )\n          IF ( isDesc  ) Desc  = 'Lightning flash density'\n          IF ( isUnits ) Units = 'km-2 s-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FRCLND' )\n          IF ( isDesc  ) Desc  = 'Olson land fraction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FRLAKE' )\n          IF ( isDesc  ) Desc  = 'Fraction of lake in grid box'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FRLAND' )\n          IF ( isDesc  ) Desc  = 'Fraction of land in grid box, excluding lake and ice'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FRLANDICE' )\n          IF ( isDesc  ) Desc  = 'Fraction of land ice in grid box'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FROCEAN' )\n          IF ( isUnits ) Units = '1'\n          IF ( isDesc  ) Desc  = 'Fraction of ocean in grid box'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FRSEAICE' )\n          IF ( isDesc  ) Desc  = 'Fraction of sea ice in grid box'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'FRSNOW' )\n          IF ( isDesc  ) Desc  = 'Fraction of snow in grid box, excluding snow on ice'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'GWETROOT' )\n          IF ( isDesc  ) Desc  = 'Root soil wetness'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'GWETTOP' )\n          IF ( isDesc  ) Desc  = 'Top soil moisture'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'HFLUX' )\n          IF ( isDesc  ) Desc  = 'Sensible heat flux'\n          IF ( isUnits ) Units = 'W m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'LAI' )\n          IF ( isDesc  ) Desc  = 'Leaf area index from GMAO'\n          IF ( isUnits ) Units = 'm2 m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PARDR' )\n          IF ( isDesc  ) Desc  = 'Direct photosynthetically-active radiation'\n          IF ( isUnits ) Units = 'W m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PARDF' )\n          IF ( isDesc  ) Desc  = 'Diffuse photosynthetically-active radiation'\n          IF ( isUnits ) Units = 'W m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PBLH' )\n          IF ( isDesc  ) Desc  = 'Planetary boundary layer height'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PBLTOPHPA' )\n          IF ( isDesc  ) Desc  = 'Planetary boundary layer top'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PBLTOPL' )\n          IF ( isDesc  ) Desc  = 'Planetary boundary layer top'\n          IF ( isUnits ) Units = 'layer'\n          IF ( isRank  ) Rank  = 2\n          IF ( isType  ) Type  = KINDVAL_I4\n\n       CASE ( 'PBLTOPM' )\n          IF ( isDesc  ) Desc  = 'Planetary boundary layer top'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PBLTHICK' )\n          IF ( isDesc  ) Desc  = 'Planetary boundary layer thickness'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PHIS' )\n          IF ( isDesc  ) Desc  = 'Surface geopotential height'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PRECANV' )\n          IF ( isDesc  ) Desc  = 'Anvil precipitation at the ground'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PRECCON' )\n          IF ( isDesc  ) Desc  = 'Convective precipitation at the ground'\n          IF ( isUnits ) Units = 'mm day-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PRECLSC' )\n          IF ( isDesc  ) Desc  = 'Large-scale precipitation at the ground'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PRECTOT' )\n          IF ( isDesc  ) Desc  = 'Total precipitation at the ground'\n          IF ( isUnits ) Units = 'mm day-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PS1WET' )\n          IF ( isDesc  ) Desc  = 'Wet surface pressure at dt start'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PS2WET' )\n          IF ( isDesc  ) Desc  = 'Wet surface pressure at dt end'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PSC2WET' )\n          IF ( isDesc  ) Desc  = 'Wet interpolated surface pressure'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PS1DRY' )\n          IF ( isDesc  ) Desc  = 'Dry surface pressure at dt start'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PS2DRY' )\n          IF ( isDesc  ) Desc  = 'Dry surface pressure at dt end'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'PSC2DRY' )\n          IF ( isDesc  ) Desc  = 'Dry interpolated surface pressure'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE00' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 00-10%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'QV2M' )\n          IF ( isDesc  ) Desc  = 'Specific humidity at 2 m'\n          IF ( isUnits ) Units = 'kg kg-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE10' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 10-20%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE20' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 20-30%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE30' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 30-40%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE40' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 40-50%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE50' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 50-60%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE60' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 60-70%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE70' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 70-80%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE80' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 80-90%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SEAICE90' )\n          IF ( isDesc  ) Desc  = 'Sea ice coverage 90-100%'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SLP' )\n          IF ( isDesc  ) Desc  = 'Sea level pressure'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SNODP' )\n          IF ( isDesc  ) Desc  = 'Snow depth'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SNOMAS' )\n          IF ( isDesc  ) Desc  = 'Snow mass'\n          IF ( isUnits ) Units = 'kg m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SST' )\n          IF ( isDesc  ) Desc  = 'Sea surface temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SUNCOS' )\n          IF ( isDesc  ) Desc  = 'Cosine of solar zenith angle, current time'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SUNCOSMID' )\n          IF ( isDesc  ) Desc  = 'Cosine of solar zenith angle, at ' // &\n                                 'midpoint of chemistry timestep'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SUNCOSSUM' )\n          IF ( isDesc  ) Desc  = 'Sum of Cosine of solar zenith angle, current time (HEMCO)'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SZAFACT' )\n          IF ( isDesc  ) Desc  = 'Diurnal scale factor from dividing the sza by the sum of the total sza per day (HEMCO)'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'SWGDN' )\n          IF ( isDesc  ) Desc  = 'Incident shortwave radiation at ground'\n          IF ( isUnits ) Units = 'W m-2'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TO3' )\n          IF ( isDesc  ) Desc  = 'Total overhead ozone column'\n          IF ( isUnits ) Units = 'dobsons'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TROPLEV' )\n          IF ( isDesc  ) Desc  = 'GEOS-Chem level where the tropopause occurs'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TROPHT' )\n          IF ( isDesc  ) Desc  = 'Tropopause height'\n          IF ( isUnits ) Units = 'km'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TROPP' )\n          IF ( isDesc  ) Desc  = 'Tropopause pressure'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TS' )\n          IF ( isDesc  ) Desc  = 'Surface temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TSKIN' )\n          IF ( isDesc  ) Desc  = 'Surface skin temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'TSOIL1' )\n          IF ( isDesc  ) Desc  = 'Soil temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'U10M' )\n          IF ( isDesc  ) Desc  = 'East-west wind at 10 meter height'\n          IF ( isUnits ) Units = 'm s-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'USTAR' )\n          IF ( isDesc  ) Desc  = 'Friction velocity'\n          IF ( isUnits ) Units = 'm s-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'UVALBEDO' )\n          IF ( isDesc  ) Desc  = 'Ultraviolet surface albedo'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'V10M' )\n          IF ( isDesc  ) Desc  = 'North-south wind at 10 meter height'\n          IF ( isUnits ) Units = 'm s-1'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'Z0' )\n          IF ( isDesc  ) Desc  = 'Surface roughness height'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 2\n\n       CASE ( 'LOCALSOLARTIME' )\n          IF ( isDesc  ) Desc  = 'Local solar time'\n          IF ( isUnits ) Units = 'hours'\n          IF ( isRank  ) Rank  = 2\n\n       !---------------------------------------------------------------------\n       ! 3-D Fields\n       !---------------------------------------------------------------------\n       CASE ( 'AD' )\n          IF ( isDesc  ) Desc  = 'Dry air mass'\n          IF ( isUnits ) Units = 'kg'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'AIRDEN' )\n          IF ( isDesc  ) Desc  = 'Dry air density'\n          IF ( isUnits ) Units = 'kg m-3'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'MAIRDEN' )\n          IF ( isDesc  ) Desc  = 'Moist air density'\n          IF ( isUnits ) Units = 'kg m-3'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'AIRNUMDEN' )\n          IF ( isDesc  ) Desc  = 'Dry air density'\n          IF ( isUnits ) Units = 'molec cm-3'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'AIRVOL' )\n          IF ( isDesc  ) Desc  = 'Volume of grid box'\n          IF ( isUnits ) Units = 'm3'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'AVGW' )\n          IF ( isDesc  ) Desc  = 'Water vapor mixing ratio (w/r/t dry air)'\n          IF ( isUnits ) Units = 'vol vol-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'BXHEIGHT' )\n          IF ( isDesc  ) Desc  = 'Grid box height'\n          IF ( isUnits ) Units = 'm'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n#ifdef LUO_WETDEP\n       CASE ( 'KINC' )\n          IF ( isDesc  ) Desc  = 'air refreshing rate'\n          IF ( isUnits ) Units = 's-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n       CASE ( 'WUP' )\n          IF ( isDesc  ) Desc  = 'TKE wind speed'\n          IF ( isUnits ) Units = 'm s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n       CASE ( 'TKICE' )\n          IF ( isDesc  ) Desc  = 'ice uptake rate'\n          IF ( isUnits ) Units = 's-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n       CASE ( 'NUMCD' )\n          IF ( isDesc  ) Desc  = 'cloud ice number'\n          IF ( isUnits ) Units = 'cm-3'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n       CASE ( 'ICESF' )\n          IF ( isDesc  ) Desc  = 'cloud ice surface area'\n          IF ( isUnits ) Units = 'cm2'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n       CASE ( 'RADCD' )\n          IF ( isDesc  ) Desc  = 'cloud ice radius'\n          IF ( isUnits ) Units = 'cm'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n#endif\n\n       CASE ( 'CLDF' )\n          IF ( isDesc  ) Desc  = '3-D cloud fraction'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'CMFMC' )\n          IF ( isDesc  ) Desc  = 'Cloud mass flux'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'DELP' )\n          IF ( isDesc  ) Desc  = 'Delta-pressure across grid box(wet air)'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'DELPDRY' )\n          IF ( isDesc  ) Desc  = 'Delta-pressure across grid box (dry air)'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'DPDRYPREV' )\n          IF ( isDesc  ) Desc  = 'Previous State_Met%DELP_DRY'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'SPHUPREV' )\n          IF ( isDesc  ) Desc  = 'Previous State_Met%SPHU_PREV'\n          IF ( isUnits ) Units = 'g kg-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'DYNHEATING' )\n          IF ( isDesc  ) Desc  = 'Dynamical heating rate'\n          IF ( isUnits ) Units = 'K day-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'DQRCU' )\n          IF ( isDesc  ) Desc  = 'Production rate of convective ' // &\n                                 'precipitation (per dry air)'\n          IF ( isUnits ) Units = 'kg kg-1 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'DQRLSAN' )\n          IF ( isDesc  ) Desc  = 'Production rate of large-scale ' // &\n                                 'precipitation (per dry air)'\n          IF ( isUnits ) Units = 'kg kg-1 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'DTRAIN' )\n          IF ( isDesc  ) Desc  = 'Detrainment flux'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'FOFPBL' )\n          IF ( isDesc  ) Desc  = 'Fraction of PBL'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'FUNDERPBLTOP' )\n          IF ( isDesc  ) Desc  = 'Fraction of box under PBL top'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n\n       CASE ( 'OMEGA' )\n          IF ( isDesc  ) Desc  = 'Updraft velocity'\n          IF ( isUnits ) Units = 'Pa s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'OPTD' )\n          IF ( isDesc  ) Desc  = 'Visible optical depth'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'PEDGE' )\n          IF ( isDesc  ) Desc  = 'Pressure (w/r/t moist air) at level edges'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'PEDGEDRY' )\n          IF ( isDesc  ) Desc  = 'Pressure (w/r/t dry air) at level edges'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'PFICU' )\n          IF ( isDesc  ) Desc  = 'Downward flux of ice precipitation ' // &\n                                 '(convective)'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'PFILSAN' )\n          IF ( isDesc  ) Desc  = 'Downwared flux of ice precipitation ' // &\n                                 '(large-scale + anvil)'\n          IF ( isRank  ) Rank  = 3\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'PFLCU' )\n          IF ( isDesc  ) Desc  = 'Downward flux of liquid precipitation ' // &\n                                 '(convective)'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'PFLLSAN' )\n          IF ( isDesc  ) Desc  = 'Downward flux of liquid precipitation ' // &\n                                 '(large-scale + anvil)'\n          IF ( isUnits ) Units = 'kg m-2 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationEdge\n\n       CASE ( 'PMID' )\n          IF ( isDesc  ) Desc  = 'Pressure (w/r/t moist air) at level centers'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'PMIDDRY' )\n          IF ( isDesc  ) Desc  = 'Pressure (w/r/t dry air) at level centers'\n          IF ( isUnits ) Units = 'hPa'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'QI' )\n          IF ( isDesc  ) Desc  = 'Ice mixing ratio (w/r/t dry air)'\n          IF ( isUnits ) Units = 'kg kg-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'QL' )\n          IF ( isDesc  ) Desc  = 'Water mixing ratio (w/r/t dry air)'\n          IF ( isUnits ) Units = 'kg kg-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'REEVAPCN' )\n          IF ( isDesc  ) Desc  = 'Evaporation of convective ' // &\n                                 'precipitation (w/r/t dry air)'\n          IF ( isUnits ) Units = 'kg kg-1 s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'REEVAPLS' )\n          IF ( isDesc  ) Desc  = 'Evaporation of large-scale + anvil ' // &\n                                 'precipitation (w/r/t dry air)'\n          IF ( isUnits ) Units = 'kg '\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'RH' )\n          IF ( isDesc  ) Desc  = 'Relative humidity'\n          IF ( isUnits ) Units = '%'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'SPHU' )\n          IF ( isDesc  ) Desc  = 'Specific humidity (w/r/t moist air)'\n          IF ( isUnits ) Units = 'g kg-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'SPHU1' )\n          IF ( isDesc  ) Desc  = 'Instantaneous specific humidity at time=T'\n          IF ( isUnits ) Units = 'g kg-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'SPHU2' )\n          IF ( isDesc  ) Desc  = 'Instantaneous specific humidity at time=T+dt'\n          IF ( isUnits ) Units = 'g kg-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'T' )\n          IF ( isDesc  ) Desc  = 'Temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'THETA' )\n          IF ( isDesc  ) Desc  = 'Potential temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'TV' )\n          IF ( isDesc  ) Desc  = 'Virtual temperature'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'TAUCLI' )\n          IF ( isDesc  ) Desc  = 'Optical depth of ice clouds'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'TAUCLW' )\n          IF ( isDesc  ) Desc  = 'Optical depth of H2O clouds'\n          IF ( isUnits ) Units = '1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'TMPU1' )\n          IF ( isDesc  ) Desc  = 'Instantaneous temperature at time=T'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'TMPU2' )\n          IF ( isDesc  ) Desc  = 'Instantaneous temperature at time T+dt'\n          IF ( isUnits ) Units = 'K'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       CASE ( 'U' )\n          IF ( isDesc  ) Desc  = 'East-west component of wind'\n          IF ( isUnits ) Units = 'm s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n#ifdef MODEL_GEOS\n       CASE ( 'UPDVVEL' )\n          IF ( isDesc  ) Desc  = 'Updraft vertical velocity'\n          IF ( isUnits ) Units = 'hPa s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n#endif\n\n       CASE ( 'V' )\n          IF ( isDesc  ) Desc  = 'North-south component of wind'\n          IF ( isUnits ) Units = 'm s-1'\n          IF ( isRank  ) Rank  = 3\n          IF ( isVLoc  ) VLoc  = VLocationCenter\n\n       !---------------------------------------------------------------------\n       ! Offline land type, leaf area index, and chlorophyll fields\n       !---------------------------------------------------------------------\n       CASE ( 'IREG' )\n          IF ( isDesc  ) Desc   = 'Number of Olson land types in each grid box'\n          IF ( isUnits ) Units  = '1'\n          IF ( isRank  ) Rank   = 2\n          IF ( isType  ) Type   = KINDVAL_I4\n\n       CASE ( 'ILAND' )\n          IF ( isDesc  ) Desc   = 'Olson land type indices in each grid box'\n          IF ( isUnits ) Units  = '1'\n          IF ( isRank  ) Rank   = 2\n          IF ( isType  ) Type   = KINDVAL_I4\n          IF ( isQnt   ) perQnt = 'OLSON'\n\n       CASE ( 'IUSE' )\n          IF ( isDesc  ) Desc   = 'Fraction (per mil) occupied by each '  // &\n                                   'Olson land type in the grid box'\n          IF ( isUnits ) Units  = 'o/oo'\n          IF ( isRank  ) Rank   = 2\n          IF ( isType  ) Type   = KINDVAL_I4\n          IF ( isQnt   ) perQnt = 'OLSON'\n\n       CASE ( 'XLAI' )\n          IF ( isDesc  ) Desc   = 'MODIS LAI for each Olson land type, '  // &\n                                  'current month'\n          IF ( isUnits ) Units  = 'm2 m-2'\n          IF ( isRank  ) Rank   = 2\n          IF ( isQnt   ) perQnt = 'OLSON'\n\n       CASE ( 'XLAI2' )\n          IF ( isDesc  ) Desc   = 'MODIS LAI for each Olson land type, '  // &\n                                   'next month'\n          IF ( isUnits ) Units  = 'm2 m-2'\n          IF ( isRank  ) Rank   = 2\n          IF ( isQnt   ) perQnt = 'OLSON'\n\n       CASE ( 'MODISLAI' )\n          IF ( isDesc  ) Desc   = 'Daily LAI computed from monthly '      // &\n                                 'offline MODIS values'\n          IF ( isUnits ) Units  = 'm2 m-2'\n          IF ( isRank  ) Rank   = 2\n\n       CASE ( 'LANDTYPEFRAC' )\n          IF ( isDesc  ) Desc   = 'Olson fraction per land type'\n          IF ( isUnits ) Units  = '1'\n          IF ( isRank  ) Rank   = 2\n          IF ( isQnt   ) perQnt = 'OLSON'\n\n       CASE ( 'XLAINATIVE' )\n          IF ( isDesc  ) Desc   = 'Average LAI per Olson land type'\n          IF ( isUnits ) Units  = 'm2 m-2'\n          IF ( isRank  ) Rank   = 2\n          IF ( isQnt   ) perQnt = 'OLSON'\n\n!       CASE ( 'INCHEMGRID' )\n!          IF ( isDesc  ) Desc  = 'Is each grid box in the chemistry grid?'\n!          IF ( isUnits ) Units = 'boolean'\n!          IF ( isRank  ) Rank  = 3\n!\n!       CASE ( 'INTROPOSPHERE' )\n!          IF ( isDesc  ) Desc  = 'Is each grid box in the troposphere?'\n!          IF ( isUnits ) Units = 'boolean'\n!          IF ( isRank  ) Rank  = 3\n!\n!       CASE ( 'INPBL' )\n!          IF ( isDesc  ) Desc  = 'Is each grid box in the planetary boundary layer?'\n!          IF ( isUnits ) Units = 'boolean'\n!          IF ( isRank  ) Rank  = 3\n\n       CASE DEFAULT\n          Found = .False.\n          ErrMsg = 'Metadata not found for State_Met field ID: ' &\n                   // TRIM( metadataID )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n\n    END SELECT\n\n    ! Set VLoc to undefined if variable is 2d\n    IF ( isVLoc .AND. Rank == 2 ) THEN\n       VLoc = VLocationNone\n    ENDIF\n\n   END SUBROUTINE Get_Metadata_State_Met\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_2D\n!\n! !DESCRIPTION: Allocates the data array for a State_Met field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 2-dimensional array fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_2D( Input_Opt, State_Met, State_Grid,      &\n                                      Ptr2Data,  metId,     RC,              &\n                                      noRegister                            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),         POINTER     :: Ptr2Data(:,:)       ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doRegister\n\n    ! Arrays\n    INTEGER            :: dims(2)\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R4_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       dims(1) = State_Grid%NX\n       dims(2) = State_Grid%NY\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( dims(1), dims(2) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f4\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_MetField( Input_Opt, metId, Ptr2Data, State_Met, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R4_3D\n!\n! !DESCRIPTION: Allocates the data array for a State_Met field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 4-byte, 3-dimensional array fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R4_3D( Input_Opt,  State_Met, State_Grid,     &\n                                      Ptr2Data,   metId,     RC,             &\n                                      noRegister, onEdges,   zxyOrder,       &\n                                      nSlots                                )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n    LOGICAL,          OPTIONAL    :: onEdges             ! Data on vert edges?\n    LOGICAL,          OPTIONAL    :: zxyOrder            ! Data array (Z,X,Y)?\n    INTEGER,          OPTIONAL    :: nSlots              ! # slots for Z dim\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f4),         POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doEdges, doRegister, doSlots, doZxy\n\n    ! Arrays\n    INTEGER            :: dims(3)\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R4_3D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( onEdges ) ) THEN\n       doEdges = onEdges\n    ELSE\n       doEdges = .FALSE.\n    ENDIF\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    doSlots = PRESENT( nSlots )\n\n    IF ( PRESENT( zxyOrder ) ) THEN\n       doZxy = zxyOrder\n    ELSE\n       doZxy = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array ID and dimensions\n       IF ( doZxy ) THEN\n\n          ! ZXY order\n          dims(1) = State_Grid%NZ\n          dims(2) = State_Grid%NX\n          dims(3) = State_Grid%NY\n\n          ! If we have specified nSlots, use that for 1st dimension\n          ! Otherwise, if data is on vertical edges, increment 1st dimension\n          IF ( doSlots ) THEN\n             dims(1) = nSlots\n          ELSE\n             IF ( doEdges ) dims(1) = dims(1) + 1\n          ENDIF\n\n       ELSE\n\n          ! XYZ order\n          dims(1) = State_Grid%NX\n          dims(2) = State_Grid%NY\n          dims(3) = State_Grid%NZ\n\n          ! If we have specified nSlots, use that for 3rd dimension\n          ! Otherwise, if data is on vertical edges, increment 3rd dimension\n          IF ( doSlots ) THEN\n             dims(3) = nSlots\n          ELSE\n             IF ( doEdges ) dims(3) = dims(3) + 1\n          ENDIF\n\n       ENDIF\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( dims(1), dims(2), dims(3) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f4\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_MetField( Input_Opt, metId, Ptr2Data, State_Met, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_2D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 8-byte, 2-dimensional fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_2D( Input_Opt, State_Met, State_Grid,      &\n                                      Ptr2Data,  metId,     RC,              &\n                                      noRegister                            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),         POINTER     :: Ptr2Data(:,:)       ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doRegister\n\n    ! Arrays\n    INTEGER            :: dims(2)\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !=======================================================================\n    ! Init_and_Register_R8_2D begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !=======================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !=======================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       dims(1) = State_Grid%NX\n       dims(2) = State_Grid%NY\n\n       ! Allocate the data\n       ALLOCATE( Ptr2Data( dims(1), dims(2) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f8\n\n    ENDIF\n\n    !=======================================================================\n    ! Register the field\n    !=======================================================================\n    IF ( doRegister ) THEN\n       CALL Register_MetField( Input_Opt, metId, Ptr2Data, State_Met, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_R8_3D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for 8-byte, 2-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_R8_3D( Input_Opt,  State_Met, State_Grid,     &\n                                      Ptr2Data,   metId,     RC,             &\n                                      noRegister, onEdges,   zxyOrder,       &\n                                      nSlots                                )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n    LOGICAL,          OPTIONAL    :: onEdges             ! Data on vert edges?\n    LOGICAL,          OPTIONAL    :: zxyOrder            ! Data array (Z,X,Y)?\n    INTEGER,          OPTIONAL    :: nSlots              ! # slots, Z dim\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL(f8),         POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doEdges, doRegister, doSlots, doZxy\n\n    ! Arrays\n    INTEGER            :: dims(3)\n\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_R4_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( onEdges ) ) THEN\n       doEdges = onEdges\n    ELSE\n       doEdges = .FALSE.\n    ENDIF\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    doSlots = PRESENT( nSlots )\n\n    IF ( PRESENT( zxyOrder ) ) THEN\n       doZxy = zxyOrder\n    ELSE\n       doZxy = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array ID and dimensions\n       IF ( doZxy ) THEN\n\n          ! ZXY order\n          dims(1) = State_Grid%NZ\n          dims(2) = State_Grid%NX\n          dims(3) = State_Grid%NY\n\n          ! If we have specified nSlots, use that for 1st dimension\n          ! Otherwise, if data is on vertical edges, increment 1st dimension\n          IF ( doSlots ) THEN\n             dims(1) = nSlots\n          ELSE\n             IF ( doEdges ) dims(1) = dims(1) + 1\n          ENDIF\n\n       ELSE\n\n          ! XYZ order\n          dims(1) = State_Grid%NX\n          dims(2) = State_Grid%NY\n          dims(3) = State_Grid%NZ\n\n          ! If we have specified nSlots, use that for 3rd dimension\n          ! Otherwise, if data is on vertical edges, increment 3rd dimension\n          IF ( doSlots ) THEN\n             dims(3) = nSlots\n          ELSE\n             IF ( doEdges ) dims(3) = dims(3) + 1\n          ENDIF\n\n       ENDIF\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( dims(1), dims(2), dims(3) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0.0_f8\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_MetField( Input_Opt, metId, Ptr2Data, State_Met, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_Log_2D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field.\n!  This particular routine is for logical, 2-dimensional arrays.\n!  NOTE: At present, it is not possible to archive logical fields\n!  to HISTORY diagnostics, so we will skip registering logical fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_Log_2D( Input_Opt, State_Met, State_Grid,     &\n                                       Ptr2Data,  metId,     RC,             &\n                                       noRegister                           )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,          POINTER     :: Ptr2Data(:,:)       ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: NX, NY\n    LOGICAL            :: doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_Log_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    !========================================================================\n    ! Allocate the field array\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       NX = State_Grid%NX\n       NY = State_Grid%NY\n\n       ALLOCATE( Ptr2Data( NX, NY ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = .FALSE.\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_Log_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_Log_3D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field.\n!  This particular routine is for logical, 2-dimensional arrays.\n!  NOTE: At present, it is not possible to archive logical fields\n!  to HISTORY diagnostics, so we will skip registering logical fields.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_Log_3D( Input_Opt,  State_Met, State_Grid,    &\n                                       Ptr2Data,   metId,     RC,            &\n                                       noRegister, onEdges,   zxyOrder,      &\n                                       nSlots                               )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n    LOGICAL,          OPTIONAL    :: onEdges             ! Data on vert edges?\n    LOGICAL,          OPTIONAL    :: zxyOrder            ! Data array (Z,X,Y)?\n    INTEGER,          OPTIONAL    :: nSlots              ! # slots for Z dim\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,          POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success/failure!\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doEdges, doRegister, doSlots, doZxy\n\n    ! Arrays\n    INTEGER            :: dims(3)\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_Log_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( onEdges ) ) THEN\n       doEdges = onEdges\n    ELSE\n       doEdges = .FALSE.\n    ENDIF\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    doSlots = PRESENT( nSlots )\n\n    IF ( PRESENT( zxyOrder ) ) THEN\n       doZxy = zxyOrder\n    ELSE\n       doZxy = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array ID and dimensions\n       IF ( doZxy ) THEN\n\n          ! ZXY order\n          dims(1) = State_Grid%NZ\n          dims(2) = State_Grid%NX\n          dims(3) = State_Grid%NY\n\n          ! If we have specified nSlots, use that for 1st dimension\n          ! Otherwise, if data is on vertical edges, increment 1st dimension\n          IF ( doSlots ) THEN\n             dims(1) = nSlots\n          ELSE\n             IF ( doEdges ) dims(1) = dims(1) + 1\n          ENDIF\n\n       ELSE\n\n          ! XYZ order\n          dims(1) = State_Grid%NX\n          dims(2) = State_Grid%NY\n          dims(3) = State_Grid%NZ\n\n          ! If we have specified nSlots, use that for 3rd dimension\n          ! Otherwise, if data is on vertical edges, increment 3rd dimension\n          IF ( doSlots ) THEN\n             dims(3) = nSlots\n          ELSE\n             IF ( doEdges ) dims(3) = dims(3) + 1\n          ENDIF\n\n       ENDIF\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( dims(1), dims(2), dims(3) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = .FALSE.\n\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_Log_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_Int_2D\n!\n! !DESCRIPTION: Allocates the data array for a State_Chm field,\n!  and also adds the field into the State_Chm registry.\n!  This particular routine is for integer, 2-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_Int_2D( Input_Opt, State_Met, State_Grid,      &\n                                       Ptr2Data,  metId,     RC,              &\n                                       noRegister                            )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          POINTER     :: Ptr2Data(:,:)       ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doRegister\n\n    ! Arrays\n    INTEGER            :: dims(2)\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_Int_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array dimensions\n       dims(1) = State_Grid%NX\n       dims(2) = State_Grid%NY\n\n       ALLOCATE( Ptr2Data( dims(1), dims(2) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0\n    ENDIF\n\n    !========================================================================\n    ! Register the field\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_MetField( Input_Opt, metId, Ptr2Data, State_Met, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_Int_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_and_Register_Int_3D\n!\n! !DESCRIPTION: Allocates the data array for a State_Met field,\n!  and also adds the field into the State_Met registry.\n!  This particular routine is for integer, 3-dimensional arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_and_Register_Int_3D( Input_Opt,  State_Met, State_Grid,    &\n                                       Ptr2Data,   metId,     RC,            &\n                                       noRegister, onEdges,   zxyOrder,      &\n                                       nSlots                               )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid          ! Grid State\n    CHARACTER(LEN=*), INTENT(IN)  :: metId               ! Field name\n    LOGICAL,          OPTIONAL    :: noRegister          ! Exit after init\n    LOGICAL,          OPTIONAL    :: onEdges             ! Data on vert edges?\n    LOGICAL,          OPTIONAL    :: zxyOrder            ! Data array (Z,X,Y)?\n    INTEGER,          OPTIONAL    :: nSlots              ! # slots for Z dim\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success/failure!\n!\n! !REVISION HISTORY:\n!  21 Sep 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: doEdges, doRegister, doSlots, doZxy\n\n    ! Arrays\n    INTEGER            :: dims(3)\n\n    ! Strings\n    CHARACTER(LEN=255) :: arrayId\n\n    !========================================================================\n    ! Init_and_Register_Int_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    arrayId = 'State_Met%' // TRIM( metId )\n\n    IF ( PRESENT( onEdges ) ) THEN\n       doEdges = onEdges\n    ELSE\n       doEdges = .FALSE.\n    ENDIF\n\n    doSlots = PRESENT( nSlots )\n\n    IF ( PRESENT( noRegister ) ) THEN\n       doRegister = ( .not. noRegister )\n    ELSE\n       doRegister = .TRUE.\n    ENDIF\n\n    doSlots = PRESENT( nSlots )\n\n    IF ( PRESENT( zxyOrder ) ) THEN\n       doZxy = zxyOrder\n    ELSE\n       doZxy = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Allocate the field array (if it hasn't already been allocated)\n    !========================================================================\n    IF ( .not. ASSOCIATED( Ptr2Data ) ) THEN\n\n       ! Get array ID and dimensions\n       IF ( doZxy ) THEN\n\n          ! ZXY order\n          dims(1) = State_Grid%NZ\n          dims(2) = State_Grid%NX\n          dims(3) = State_Grid%NY\n\n          ! If we have specified nSlots, use that for 1st dimension\n          ! Otherwise, if data is on vertical edges, increment 1st dimension\n          IF ( doSlots ) THEN\n             dims(1) = nSlots\n          ELSE\n             IF ( doEdges ) dims(1) = dims(1) + 1\n          ENDIF\n\n       ELSE\n\n          ! XYZ order\n          dims(1) = State_Grid%NX\n          dims(2) = State_Grid%NY\n          dims(3) = State_Grid%NZ\n\n          ! If we have specified nSlots, use that for 3rd dimension\n          ! Otherwise, if data is on vertical edges, increment 3rd dimension\n          IF ( doSlots ) THEN\n             dims(3) = nSlots\n          ELSE\n             IF ( doEdges ) dims(3) = dims(3) + 1\n          ENDIF\n\n       ENDIF\n\n       ! Allocate the array\n       ALLOCATE( Ptr2Data( dims(1), dims(2), dims(3) ), STAT=RC )\n       CALL GC_CheckVar( arrayId, 0, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       Ptr2Data = 0\n\n    ENDIF\n\n    !========================================================================\n    ! Register the field (unless we explicitly say not to)\n    !========================================================================\n    IF ( doRegister ) THEN\n       CALL Register_MetField( Input_Opt, metId, Ptr2Data, State_Met, RC )\n       CALL GC_CheckVar( arrayId, 1, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE Init_and_Register_Int_3D\n!\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_MetField_R4_2D\n!\n! !DESCRIPTION: Registers a 2-D State\\_Met field (4-byte real).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_MetField_R4_2D( Input_Opt, metadataID, Ptr2Data,       &\n                                      State_Met, RC                         )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID          ! Field name\n    REAL(f4),         POINTER     :: Ptr2Data(:,:)       ! Pointer to array\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: rank,  type,       vloc\n    LOGICAL            :: found\n\n    ! Strings\n    CHARACTER(LEN=255) :: desc,  ErrMsg_reg, units, ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !========================================================================\n    ! Register_MetField_R4_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    ErrMsg     = ''\n    ErrMsg_reg = 'Error encountered while registering State_Met%'\n    ThisLoc    = &\n      ' -> at Register_MetField_R4_2D (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Met(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Check dimensions\n    !========================================================================\n    IF ( rank /= 2 ) THEN\n       ErrMsg = 'Data and metadata rank do not match for ' // TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Register the entire 2-D field\n    !========================================================================\n    CALL Registry_AddField(                                                  &\n         Input_Opt   = Input_Opt,                                            &\n         Registry    = State_Met%Registry,                                   &\n         State       = State_Met%State,                                      &\n         Variable    = TRIM( MetadataID ),                                   &\n         Units       = TRIM( Units      ),                                   &\n         Description = TRIM( Desc       ),                                   &\n         Data2d_4    = Ptr2Data,                                             &\n         Output_KindVal = type,                                              &\n         RC          = RC                                                   )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n          '; Abnormal exit from routine \"Registry_AddField\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Register_MetField_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_MetField_R4_3D\n!\n! !DESCRIPTION: Registers a 3-D State\\_Met field (4-byte real).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_MetField_R4_3D( Input_Opt, metadataID, Ptr2Data,       &\n                                      State_Met, RC                         )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID          ! Field name\n    REAL(f4),         POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success/failure\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: rank,     type,     vloc,       N\n    LOGICAL            :: found,    onEdges\n\n    ! Strings\n    CHARACTER(LEN=2  ) :: numStr\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: desc,     units,    errMsg_reg\n    CHARACTER(LEN=255) :: thisDesc, thisName, ThisLoc,    perQnt\n\n    !========================================================================\n    ! Register_MetField_R4_3D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    thisName   = ''\n    thisDesc   = ''\n    ErrMsg     = ''\n    ErrMsg_reg = 'Error encountered while registering State_Met%'\n    ThisLoc    = &\n         ' -> at Register_MetField_R4_3D (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Met(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perQnt     = perQnt,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( vLoc == vLocationEdge )\n\n    !========================================================================\n    ! If there is an Olson landtype dimension,\n    ! then register each land type as a 2-D field\n    !========================================================================\n    IF ( TRIM( perQnt ) == 'OLSON' ) THEN\n\n       ! Check dimensions\n       IF ( rank /= 2 ) THEN\n          ErrMsg = &\n             'Data and metadata rank do not match for ' // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Loop over # of Olson types\n       DO N = 1, NSURFTYPE\n\n          ! Append the Olson land type index (zero based)\n          ! to the name & description from the metadata\n          WRITE( numStr, '(I2.2)') N - 1\n          thisName = TRIM( metaDataId )        // numStr\n          thisDesc = TRIM( desc       ) // \" \" // numStr\n\n          ! Register each 2-D field per Olson landtype separately\n          CALL Registry_AddField(                                            &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Met%Registry,                            &\n               State        = State_Met%State,                               &\n               Variable     = TRIM( thisName   ),                            &\n               Description  = TRIM( thisDesc   ),                            &\n               Units        = TRIM( Units      ),                            &\n               Data2d_4     = Ptr2Data(:,:,N),                               &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n       ENDDO\n\n    !========================================================================\n    ! Otherwise, register as a single 3-D field\n    !========================================================================\n    ELSE\n\n       ! Check dimensions\n       IF ( rank /= 3 ) THEN\n          ErrMsg = &\n             'Data and metadata rank do not match for ' // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register the entire field\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Met%Registry,                               &\n            State        = State_Met%State,                                  &\n            Variable     = TRIM( MetadataID ),                               &\n            Description  = TRIM( Desc       ),                               &\n            Units        = TRIM( Units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data3d_4     = Ptr2Data,                                         &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n             '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Register_MetField_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_MetField_R8_2D\n!\n! !DESCRIPTION: Registers a 2-D State\\_Met field (8-byte real).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_MetField_R8_2D( Input_Opt, metadataID, Ptr2Data,      &\n                                      State_Met, RC                        )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID          ! Field name\n    REAL(f8),         POINTER     :: Ptr2Data(:,:)       ! Pointer to array\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: rank,  type,       vloc\n    LOGICAL            :: found\n\n    ! Strings\n    CHARACTER(LEN=255) :: desc,  ErrMsg_reg, units, ThisLoc\n    CHARACTER(LEN=512) :: ErrMsg\n\n    !========================================================================\n    ! Register_MetField_R8_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    ErrMsg     = ''\n    ErrMsg_reg = 'Error encountered while registering State_Met%'\n    ThisLoc    = &\n      ' -> at Register_MetField_R8_2D (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Met(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Check dimensions\n    !========================================================================\n    IF ( rank /= 2 ) THEN\n       ErrMsg = 'Data and metadata rank do not match for ' // TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Register the 2-D field\n    !========================================================================\n    CALL Registry_AddField(                                                  &\n         Input_Opt   = Input_Opt,                                            &\n         Registry    = State_Met%Registry,                                   &\n         State       = State_Met%State,                                      &\n         Variable    = TRIM( MetadataID ),                                   &\n         Description = TRIM( Desc       ),                                   &\n         Units       = TRIM( Units      ),                                   &\n         Data2d_8    = Ptr2Data,                                             &\n         Output_KindVal = type,                                              &\n         RC          = RC                                                   )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n            '; Abnormal exit from routine \"Registry_AddField\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Register_MetField_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_MetField_R8_3D\n!\n! !DESCRIPTION: Registers a 3-D State\\_Met field (8-byte real).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_MetField_R8_3D( Input_Opt, metadataID, Ptr2Data,        &\n                                      State_Met, RC                          )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID          ! Field name\n    REAL(f8),         POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success/failure\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: rank,     type,     vloc,       N\n    LOGICAL            :: found,    onEdges\n\n    ! Strings\n    CHARACTER(LEN=2  ) :: numStr\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: desc,     units,    errMsg_reg\n    CHARACTER(LEN=255) :: thisDesc, thisName, ThisLoc,    perQnt\n\n    !========================================================================\n    ! Register_MetField_R8_3D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    thisDesc   = ''\n    thisName   = ''\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Met%'\n    thisLoc    = &\n       ' -> at Register_MetField_R8_3D (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Met(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perQnt     = perQnt,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Is the data placed on vertical edges?\n    onEdges = ( vLoc == vLocationEdge )\n\n    !========================================================================\n    ! If there is an Olson landtype dimension,\n    ! then register each land type as a 2-D field\n    !========================================================================\n    IF ( TRIM( perQnt ) == 'OLSON' ) THEN\n\n       ! Check dimensions\n       IF ( rank /= 2 ) THEN\n          ErrMsg = &\n             'Data and metadata rank do not match for ' // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Loop over # of Olson types\n       DO N = 1, NSURFTYPE\n\n          ! Append the Olson land type index (zero-based)\n          ! to the name & description from the metadata\n          WRITE( numStr, '(I2.2)') N - 1\n          thisName = TRIM( metaDataId )        // numStr\n          thisDesc = TRIM( desc       ) // \" \" // numStr\n\n          ! Register each 2-D field per Olson landtype separately\n          CALL Registry_AddField(                                            &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Met%Registry,                            &\n               State        = State_Met%State,                               &\n               Variable     = TRIM( thisName   ),                            &\n               Description  = TRIM( thisDesc   ),                            &\n               Units        = TRIM( units      ),                            &\n               Data2d_8     = Ptr2Data(:,:,N),                               &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n\n       ENDDO\n\n    !========================================================================\n    ! Otherwise, register as a single 3-D field\n    !========================================================================\n    ELSE\n\n       ! Check dimensions\n       IF ( rank /= 3 ) THEN\n          ErrMsg = &\n             'Data and metadata rank do not match for ' // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register the entire 3-D field\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Met%Registry,                               &\n            State        = State_Met%State,                                  &\n            Variable     = TRIM( MetadataID ),                               &\n            Description  = TRIM( Desc       ),                               &\n            Units        = TRIM( Units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data3d_8     = Ptr2Data,                                         &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //               &\n             '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Register_MetField_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_MetField_Int_2D\n!\n! !DESCRIPTION: Registers a 2-D State\\_Met field (4-byte integer).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_MetField_Int_2D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Met, RC                        )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID          ! Field name\n    INTEGER,          POINTER     :: Ptr2Data(:,:)       ! Pointer to array\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success or failure?\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: rank,  type,       vloc\n    LOGICAL            :: found, doRegister\n\n    ! Strings\n    CHARACTER(LEN=255) :: desc,  errMsg_reg, units, thisLoc\n    CHARACTER(LEN=512) :: errMsg\n\n    !========================================================================\n    ! Register_MetField_Int_2D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Met%'\n    thisLoc    = &\n      ' -> at Register_MetField_Int_2D (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Met(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Check dimensions\n    !========================================================================\n    IF ( rank /= 2 ) THEN\n       ErrMsg = 'Data and metadata rank do not match for ' // TRIM(metadataID)\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Register the 2-D field\n    !========================================================================\n    CALL Registry_AddField(                                                  &\n         Input_Opt   = Input_Opt,                                            &\n         Registry    = State_Met%Registry,                                   &\n         State       = State_Met%State,                                      &\n         Variable    = TRIM( MetadataID ),                                   &\n         Description = TRIM( Desc       ),                                   &\n         Units       = TRIM( Units      ),                                   &\n         Data2d_I    = Ptr2Data,                                             &\n         Output_KindVal = type,                                              &\n         RC          = RC                                                   )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = TRIM( errMsg_reg ) // TRIM( metadataID ) //                  &\n          '; Abnormal exit from routine \"Registry_AddField\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Register_MetField_Int_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Register_MetField_Int_3D\n!\n! !DESCRIPTION: Registers a 3-D State\\_Met field (4-byte integer).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Register_MetField_Int_3D( Input_Opt, metadataID, Ptr2Data,      &\n                                       State_Met, RC                        )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt           ! Input Options\n    CHARACTER(LEN=*), INTENT(IN)  :: metadataID          ! Field name\n    INTEGER,          POINTER     :: Ptr2Data(:,:,:)     ! Pointer to data\n    TYPE(MetState),   INTENT(IN)  :: State_Met           ! Meteorology State\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC                  ! Success/failure\n!\n! !REVISION HISTORY:\n!  07 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: rank,     type,     vloc,       N\n    LOGICAL            :: found,    onEdges\n\n    ! Strings\n    CHARACTER(LEN=2  ) :: numStr\n    CHARACTER(LEN=512) :: errMsg\n    CHARACTER(LEN=255) :: desc,     units,    errMsg_reg\n    CHARACTER(LEN=255) :: thisDesc, thisName, thisLoc,    perQnt\n\n    !========================================================================\n    ! Register_MetField_Int_3D begins here!\n    !========================================================================\n\n    ! Initialize\n    RC         = GC_SUCCESS\n    thisDesc   = ''\n    thisName   = ''\n    errMsg     = ''\n    errMsg_reg = 'Error encountered while registering State_Met%'\n    thisLoc    = &\n         ' -> at Register_MetField_Int_3D (in Headers/state_met_mod.F90)'\n\n    !========================================================================\n    ! Get metadata\n    !========================================================================\n    CALL Get_MetaData_State_Met(                                             &\n         am_I_Root  = Input_Opt%amIRoot,                                     &\n         metadataId = metadataId,                                            &\n         found      = found,                                                 &\n         desc       = desc,                                                  &\n         units      = units,                                                 &\n         rank       = rank,                                                  &\n         type       = type,                                                  &\n         vloc       = vloc,                                                  &\n         perQnt     = perQnt,                                                &\n         RC         = RC                                                    )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = TRIM( ErrMsg_reg ) // TRIM( MetadataID ) //                  &\n                '; Abnormal exit from routine \"Get_Metadata_State_Met\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! If there is an Olson landtype dimension,\n    ! then register each land type as a 2-D field\n    !========================================================================\n    IF ( TRIM( perQnt ) == 'OLSON' ) THEN\n\n       ! Check dimensions\n       IF ( rank /= 2 ) THEN\n          ErrMsg = &\n             'Data and metadata rank do not match for ' // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Loop over # of Olson types\n       DO N = 1, NSURFTYPE\n\n          ! Append the Olson land type index to the name & description\n          WRITE( numStr, '(I2.2)') N - 1\n          thisName = TRIM( metaDataId )        // numStr\n          thisDesc = TRIM( desc       ) // \" \" // numStr\n\n          ! Register each 2-D array per Olson landtype individually\n          CALL Registry_AddField(                                            &\n               Input_Opt    = Input_Opt,                                     &\n               Registry     = State_Met%Registry,                            &\n               State        = State_Met%State,                               &\n               Variable     = TRIM( thisName   ),                            &\n               Description  = TRIM( thisDesc   ),                            &\n               Units        = TRIM( Units      ),                            &\n               Data2d_I     = Ptr2Data(:,:,N),                               &\n               Output_KindVal = type,                                        &\n               RC           = RC                                            )\n\n       ENDDO\n\n    !========================================================================\n    ! Otherwise, register as a single 3-D field\n    !========================================================================\n    ELSE\n\n       ! Check dimensions\n       IF ( rank /= 3 ) THEN\n          ErrMsg = &\n             'Data and metadata rank do not match for ' // TRIM(metadataID)\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Register the entire 3-D field\n       CALL Registry_AddField(                                               &\n            Input_Opt    = Input_Opt,                                        &\n            Registry     = State_Met%Registry,                               &\n            State        = State_Met%State,                                  &\n            Variable     = TRIM( MetadataID ),                               &\n            Description  = TRIM( Desc       ),                               &\n            Units        = TRIM( Units      ),                               &\n            OnLevelEdges = onEdges,                                          &\n            Data3d_I     = Ptr2Data,                                         &\n            Output_KindVal = type,                                           &\n            RC           = RC                                               )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = TRIM( errMsg_reg ) // TRIM( metadataID ) //               &\n             '; Abnormal exit from routine \"Registry_AddField\"!'\n          CALL GC_Error( errMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Register_MetField_Int_3D\n!EOC\nEND MODULE State_Met_Mod\n"
  },
  {
    "path": "Headers/taggeddiaglist_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: taggeddiaglist_mod.F90\n!\n! !DESCRIPTION: Module taggeddiaglist\\_mod contains type definitions and\n!  routines to define link list with detailed diagnostic information for each\n!  State_Diag diagnostic contained in the DiagList object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE TaggedDiagList_Mod\n!\n! !USES:\n!\n  USE DiagList_Mod\n  USE ErrCode_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: Cleanup_TaggedDiagList\n  PUBLIC  :: Init_TaggedDiagList\n  PUBLIC  :: Print_TaggedDiagItem\n  PUBLIC  :: Print_TaggedDiagList\n  PUBLIC  :: Print_TagList\n  PUBLIC  :: Query_Tag_in_TagList\n  PUBLIC  :: Query_TaggedDiagList\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Cleanup_TagList\n  PRIVATE :: Init_TagItem\n  PRIVATE :: Init_TaggedDiagItem\n  PRIVATE :: InsertBeginning_TagList\n  PRIVATE :: InsertBeginning_TaggedDiagList\n  PRIVATE :: Update_TaggedDiagList\n!\n! !PUBLIC DATA TYPES:\n!\n  !=========================================================================\n  ! Derived type for tag items (can be used for any linked list of strings)\n  !=========================================================================\n  TYPE, PUBLIC :: DgnTagItem\n     CHARACTER(LEN=63)             :: name         ! Tag or wildcard name\n     INTEGER                       :: index        ! Position in the list\n     TYPE(DgnTagItem), POINTER     :: next         ! Points to next tag/WC\n  END TYPE DgnTagItem\n\n  !=========================================================================\n  ! Derived type for tag list (can be used for any linked list of strings)\n  !=========================================================================\n  TYPE, PUBLIC :: DgnTagList\n     INTEGER                       :: count        ! # of tags/WCs in list\n     TYPE(DgnTagItem), POINTER     :: head         ! The start of the list\n  END TYPE DgnTagList\n\n  !=========================================================================\n  ! Derived type for tagged diagnostic items, e.g. DryDep\n  !=========================================================================\n  TYPE, PUBLIC :: TaggedDgnItem\n     CHARACTER(LEN=63)             :: metadataID   ! Diagnostic name\n     LOGICAL                       :: isWildcard   ! Is it a wildcard?\n     TYPE(DgnTagList)              :: tagList      ! Tags for this diagnostic\n     TYPE(DgnTagList)              :: wildcardList ! WCs for this diagnostic\n     TYPE(TaggedDgnItem), POINTER  :: next         ! Points to next diagnostic\n  END TYPE TaggedDgnItem\n\n  !=========================================================================\n  ! Derived type for tagged diagnostic list, e.g. DryDep, SpeciesConc, etc\n  !=========================================================================\n  TYPE, PUBLIC :: TaggedDgnList\n     TYPE(TaggedDgnItem), POINTER  :: head         ! Start of the list\n  END TYPE TaggedDgnList\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_TaggedDiagList\n!\n! !DESCRIPTION: Subroutine Init\\_TaggedDiagList initializes the TaggedDiagList\n!  corresponding to each diagnostic collection.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_TaggedDiagList( am_I_Root, DiagList, TaggedDiagList, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_UpperCase\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,              INTENT(IN)    :: am_I_Root       ! On root thread?\n    TYPE(DgnList),        INTENT(IN)    :: DiagList        ! Diagnostics List\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList),  INTENT(INOUT) :: TaggedDiagList  ! Tagged Diag List\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,              INTENT(OUT)   :: RC              ! Success/failure?\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: isWildCard\n    LOGICAL                      :: taggedDiagListExists\n    INTEGER                      :: listIndex\n    INTEGER                      :: numTags\n    INTEGER                      :: numWildCards\n\n    ! Strings\n    CHARACTER(LEN=63)            :: tagName\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=255)           :: thisLoc\n\n    ! Objects\n    TYPE(DgnItem),       POINTER :: diagnostic\n    TYPE(DgnTagItem),    POINTER :: current\n    TYPE(TaggedDgnItem), POINTER :: TaggedDiagItem\n    TYPE(TaggedDgnItem), POINTER :: NewTaggedDiagItem\n\n    !=======================================================================\n    ! Init_TaggedDiagList begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     '-> at Init_TaggedDiagList (in module Headers/taggeddiaglist_mod.F90)'\n\n    ! Initialize pointers\n    diagnostic          => DiagList%head\n    current             => NULL()\n    TaggedDiagList%head => NULL()\n\n    !=======================================================================\n    ! For each State_Diag diagnostic containd in DiagList,\n    ! initialize the corresponding TaggedDiagList.\n    !=======================================================================\n    DO WHILE ( ASSOCIATED( diagnostic ) )\n\n       ! Only proceed for State_Diag diagnostics\n       IF ( diagnostic%state == 'DIAG' .AND.                                 &\n            ( diagnostic%isTagged .OR. diagnostic%isWildcard ) ) THEN\n\n          !--------------------------------------------------------------\n          ! First check if the the TaggedDiagList corresponding\n          ! to this diagnostic exists or not\n          !--------------------------------------------------------------\n          CALL Query_TaggedDiagList(                                         &\n               TaggedDiagList = TaggedDiagList,                              &\n               diagName       = diagnostic%metadataID,                       &\n               Found          = taggedDiagListExists,                        &\n               RC             = RC                                          )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Query_TaggedDiagList\" (#1)!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n          ! Name of each tag or wildcard in the current State_Diag diagnostic\n          IF ( diagnostic%isTagged ) THEN\n             tagName = diagnostic%tag\n          ELSE\n             tagName = diagnostic%wildcard\n          ENDIF\n\n          ! Check if the list exists\n          IF ( taggedDiagListExists ) THEN\n\n             !--------------------------------------------------------------\n             ! If the TaggedDiagList (of wildcards or tags) already exists:\n             ! (1) Add a new TaggedDiagItem into it\n             ! (2) Set the index to a placeholder.\n             !     Indices will be updated in the following section.\n             !--------------------------------------------------------------\n             CALL Update_TaggedDiagList(                                     &\n                  metadataID        = diagnostic%metadataID,                 &\n                  isWildCard        = diagnostic%isWildCard,                 &\n                  tagName           = tagName,                               &\n                  index             = 0,                                     &\n                  TaggedDiagList    = TaggedDiagList,                        &\n                  RC                = RC                                    )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                errMsg = 'Error encountered in \"Update_TaggedDiagList\"!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n\n          ELSE\n\n             !--------------------------------------------------------------\n             ! If the TaggedDiagList does not exist:\n             ! (1) Create a new TaggedDiagItem\n             ! (2) Set the index to a placeholder.\n             !     Indices will be updated in the following section.\n             !--------------------------------------------------------------\n             CALL Init_TaggedDiagItem(                                       &\n                  NewTaggedDiagItem = NewTaggedDiagItem,                     &\n                  metadataID        = diagnostic%metadataID,                 &\n                  isWildcard        = diagnostic%isWildCard,                 &\n                  tagName           = tagName,                               &\n                  index             = 0,                                     &\n                  RC                = RC                                    )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                errMsg = 'Error encountered in \"Init_TaggedDiagItem\"!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n\n             !--------------------------------------------------------------\n             ! (3) Create the TaggedDiagList\n             ! (4) Add the TaggedDiagItem to the head of the TaggedDiagList\n             !--------------------------------------------------------------\n             CALL InsertBeginning_TaggedDiagList(                            &\n                  TaggedDiagItem    = NewTaggedDiagItem,                     &\n                  TaggedDiagList    = TaggedDiagList,                        &\n                  RC                = RC                                    )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                errMsg = &\n                   'Error encountered in \"InsertBeginning_TaggedDiagList\"!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! Advance to next item in DiagList\n       diagnostic => diagnostic%next\n    ENDDO\n\n    !=======================================================================\n    ! Now cycle through each diagnostic in DiagList again and reverse\n    ! the indices of the tags or wildcards into proper order.  We have to\n    ! do this as a second pass because in the first loop over diagnostics\n    ! above, we didn't yet know the total number of tags or wildcards.\n    !=======================================================================\n\n    ! Re-initialize pointers\n    diagnostic => DiagList%head\n\n    DO WHILE ( ASSOCIATED( diagnostic ) )\n\n       ! Initialize\n       TaggedDiagItem => NULL()\n       current        => NULL()\n       numTags        =  0\n       numWildCards   =  0\n\n       ! Only proceed for State_Diag diagnostics\n       IF ( diagnostic%state == 'DIAG' .AND.                                 &\n            ( diagnostic%isTagged .OR. diagnostic%isWildcard ) ) THEN\n\n          !-----------------------------------------------------------------\n          ! Get the number of tags and wildcards in the TaggedDiagList\n          ! that corresponds to this State_Diag diagnostic\n          !-----------------------------------------------------------------\n          CALL Query_TaggedDiagList(                                         &\n               TaggedDiagList = TaggedDiagList,                              &\n               diagName       = diagnostic%metadataID,                       &\n               Found          = taggedDiagListExists,                        &\n               isWildCard     = isWildCard,                                  &\n               numTags        = numTags,                                     &\n               numWildCards   = numWildCards,                                &\n               RC             = RC                                          )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Query_TaggedDiagList\" (#2)!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n          ! Skip if the TaggedDiagList for this diagnostic does not exist\n          ! (but this should never happen since we created a TaggedDiagList\n          ! for each diagnostic in the above section!)\n          IF ( .not. taggedDiagListExists ) CYCLE\n\n          !-----------------------------------------------------------------\n          ! Loop over all tags of wildcards belonging to this diagnostic\n          !-----------------------------------------------------------------\n          TaggedDiagItem => TaggedDiagList%head\n\n          DO WHILE ( ASSOCIATED( TaggedDiagItem ) )\n\n             ! Make sure we the diagnostic field name (metadataId) in the\n             ! TaggedDiagItem matches that of the current diagnostic\n             IF ( TRIM( TaggedDiagItem%metaDataId ) ==                      &\n                  TRIM( diagnostic%metaDataId     )     ) THEN\n\n                !-----------------------------------------------------------\n                ! Reset the indices of entries in WildCardList\n                !-----------------------------------------------------------\n                IF ( isWildCard ) THEN\n                   current   => TaggedDiagItem%wildCardList%head\n                   listIndex =  0\n                   DO WHILE ( ASSOCIATED( current ) )\n                      listIndex     =  listIndex + 1\n                      current%index =  listIndex\n                      current       => current%next\n                   ENDDO\n                   current => NULL()\n\n                !-----------------------------------------------------------\n                ! Reset the indices of entries in TagList\n                !-----------------------------------------------------------\n                ELSE\n                    current   => TaggedDiagItem%tagList%head\n                    listIndex =  0\n                    DO WHILE ( ASSOCIATED( current ) )\n                       listIndex     =  listIndex + 1\n                       current%index =  listIndex\n                       current       => current%next\n                    ENDDO\n                    current => NULL()\n\n                ENDIF\n             ENDIF\n\n             ! Advance to the next item in TaggedDiagList\n             TaggedDiagItem => TaggedDiagItem%next\n\n          ENDDO\n\n          ! Free pointers\n          TaggedDiagItem => NULL()\n       ENDIF\n\n       ! Advance to next diagnostic in DiagList\n       diagnostic => diagnostic%next\n    ENDDO\n\n    !-----------------------------------------------------------------------\n    ! Cleanup and quit\n    !-----------------------------------------------------------------------\n    diagnostic => NULL()\n    current    => NULL()\n\n  END SUBROUTINE Init_TaggedDiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_TaggedDiagItem\n!\n! !DESCRIPTION: Prints information contained in a single TaggedDiagItem object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_TaggedDiagItem( am_I_Root, TaggedDiagItem, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)  :: am_I_Root\n    TYPE(TaggedDgnItem), INTENT(IN)  :: TaggedDiagItem\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  24 Mar 2020 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Return success\n    RC = GC_SUCCESS\n\n    ! Proceed to print info if we are on the root CPU\n    IF ( am_I_Root ) THEN\n\n       ! Print name of diagnostic to which this TaggedDataItem belongs\n       WRITE( 6, 120 ) TRIM( TaggedDiagItem%metadataID )\n\n       IF ( TaggedDiagItem%isWildCard ) THEN\n\n          !---------------------------------\n          ! Print info about wildcards ...\n          !---------------------------------\n          WRITE( 6, 130 ) ADJUSTL( 'numWildCards:' ),                        &\n                          TaggedDiagItem%WildCardList%count\n          CALL Print_TagList( am_I_Root, TaggedDiagItem%WildCardList, RC )\n\n       ELSE\n\n          !----------------------------------\n          ! ... or print info about tags\n          !----------------------------------\n          WRITE( 6, 130 )  ADJUSTL( 'numTags:' ),                            &\n                           TaggedDiagItem%TagList%count\n          CALL Print_TagList( am_I_Root, TaggedDiagItem%TagList, RC )\n\n       ENDIF\n\n       ! Print spacer\n       WRITE( 6, 120 ) \"\"\n\n       ! FORMAT statemetns\n 120   FORMAT( A       )\n 130   FORMAT( A15, I5 )\n\n    ENDIF\n\n  END SUBROUTINE Print_TaggedDiagItem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_TaggedDiagList\n!\n! !DESCRIPTION: Prints information for all TaggedDiagItem members within\n!  a TaggedDiagList linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_TaggedDiagList( am_I_Root, TaggedDiagList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)  :: am_I_Root\n    TYPE(TaggedDgnList), INTENT(IN)  :: TaggedDiagList\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(TaggedDgnItem), POINTER :: current\n\n    ! ================================================================\n    ! Print_TaggedDiagList begins here\n    ! ================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    current => NULL()\n\n    ! Print tagged diagnostic list only if we are on the root core\n    IF ( am_I_Root ) THEN\n       WRITE( 6, 100 ) REPEAT( '=', 30 )\n       WRITE( 6, 110 ) 'Summary of tagged diagnostics'\n\n       ! Point to the first item in the TaggedDiagList\n       current => TaggedDiagList%head\n\n       ! Keep looping over all items in TaggedDiagList\n       DO WHILE ( ASSOCIATED( current ) )\n\n          ! Print wildcard or tag info\n          CALL Print_TaggedDiagItem( am_I_Root, current, RC )\n\n          ! Advance to next item in TaggedDiagList\n          current => current%next\n       ENDDO\n\n       ! Spacer\n       WRITE( 6, 120 ) \"\"\n\n       ! Free pointer\n       current => NULL()\n\n       ! FORMAT statements\n 100   FORMAT( /,   A  )\n 110   FORMAT( A,   /  )\n 120   FORMAT( A       )\n 130   FORMAT( A15, I5 )\n\n    ENDIF\n\n  END SUBROUTINE Print_TaggedDiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Query_TaggedDiagList\n!\n! !DESCRIPTION: Returns information about a TaggedDiagItem within a\n!  TaggedDiagList option linked list, given the name of the corresponding\n!  diagnostic.  The information that is returned can include if the\n!  diagnostic is a wildcard, a list of wildcards, number of wildcards, a\n!  list of non-wildcard tags, or number of non-wildcard tags.   The entire\n!  TaggedDiagItem itself may also be returned if so desired.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Query_TaggedDiagList( TaggedDiagList,                           &\n                                   diagName,      RC,                        &\n                                   found,         isWildcard,                &\n                                   numWildcards,  numTags,                   &\n                                   WildCardList,  TagList,                   &\n                                   TaggedDiagItem                           )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_UpperCase\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList), INTENT(IN)  :: TaggedDiagList  ! Tagged diag list\n    CHARACTER(LEN=*),    INTENT(IN)  :: diagName        ! Name of diagnostic\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(OUT) :: found           ! Was name in list?\n    INTEGER,             INTENT(OUT) :: RC              ! Success or failure?\n    LOGICAL,             OPTIONAL    :: isWildcard      ! Is diag a wildcard?\n    INTEGER,             OPTIONAL    :: numWildcards    ! # of wildcards (WCs)\n    TYPE(DgnTagList),    OPTIONAL    :: WildCardList    ! List of wildcards\n    INTEGER,             OPTIONAL    :: numTags         ! # of non-WC tags\n    TYPE(DgnTagList),    OPTIONAL    :: TagList         ! List of non-WC tags\n    TYPE(TaggedDgnItem), OPTIONAL    :: TaggedDiagItem  ! Item in linked list\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: P_isWildCard\n    LOGICAL                      :: P_numWildCards\n    LOGICAL                      :: P_numTags\n    LOGICAL                      :: P_WildCardList\n    LOGICAL                      :: P_TagList\n    LOGICAL                      :: P_TagDiagItem\n\n    ! Strings\n    CHARACTER(LEN=255)           :: thisDiagName\n\n    ! Objects\n    TYPE(TaggedDgnItem), POINTER :: current\n\n    !=======================================================================\n    ! Query_TaggedDiagList begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC    = GC_SUCCESS\n    found = .FALSE.\n\n    ! Test if each optional arguments is present outside of the loop\n    P_isWildCard   = PRESENT( isWildcard      )\n    P_numWildCards = PRESENT( numWildcards    )\n    P_numTags      = PRESENT( numTags         )\n    P_WildCardList = PRESENT( WildCardList    )\n    P_TagList      = PRESENT( TagList         )\n    P_TagDiagItem  = PRESENT( TaggedDiagItem  )\n\n    ! Search for name in list and return optional arguments\n    current => TaggedDiagList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       thisDiagName = To_Uppercase( current%metadataID )\n       IF ( TRIM( ThisDiagName ) == TRIM( To_Uppercase( diagName ) ) ) THEN\n          found = .TRUE.\n          IF ( P_isWildcard   ) isWildcard      = current%isWildcard\n          IF ( P_numWildcards ) numWildcards    = current%WildCardList%count\n          IF ( P_numTags      ) numTags         = current%TagList%count\n          IF ( P_WildCardList ) WildCardList    = current%WildCardList\n          IF ( P_TagList      ) TagList         = current%TagList\n          IF ( P_TagDiagItem  ) TaggedDiagItem  = current\n          EXIT\n       ENDIF\n       current => current%next\n    ENDDO\n    current => NULL()\n\n  END SUBROUTINE Query_TaggedDiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_TaggedDiagList\n!\n! !DESCRIPTION: Subroutine Cleanup\\_TaggedDiagList deallocates a TaggedDiagList\n!  object and all of its member objects including the linked list of\n!  TaggedDiagItem objects.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_TaggedDiagList( TaggedDiagList, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList), INTENT(INOUT) :: TaggedDiagList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=255)           :: thisLoc\n\n    ! Pointers\n    TYPE(TaggedDgnItem), POINTER :: current\n    TYPE(TaggedDgnItem), POINTER :: next\n\n    !=======================================================================\n    ! Cleanup_TaggedDiagList begins here\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n    ' -> at Cleanup_TaggedDiagList (in module Headers/taggeddiaglist_mod.F90)'\n\n    ! Deallocate each item in the linked list of DiagExport objects\n    current => TaggedDiagList%head\n    IF ( ASSOCIATED( current ) ) next => current%next\n\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! First, free the list of tags\n       CALL Cleanup_TagList( current%taglist, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Cleanup_TagList\" (for tags)!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Then free the list of wildcards\n       CALL Cleanup_TagList( current%wildcardlist, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"Cleanup_TagList\" (for wildcards)!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Next, free the current TaggedDgnItem\n       DEALLOCATE( current, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Could not deallocate the \"current\" TaggedDgnItem object!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n       ! Exit if we are at the end of the TaggedDiagList ...\n       IF ( .NOT. ASSOCIATED ( next ) ) EXIT\n\n       ! ...or if not, advance to next item in list\n       current => next\n       next => current%next\n    ENDDO\n\n    ! Free pointers\n    current => NULL()\n    next    => NULL()\n\n  END SUBROUTINE Cleanup_TaggedDiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_TaggedDiagItem\n!\n! !DESCRIPTION: Initializes a TaggedDiagItem object, which contains metadata\n!  as well as the lists of tags and wildcards for each State_Diag diagnostic.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_TaggedDiagItem( NewTaggedDiagItem, metadataID, isWildcard,  &\n                                  tagName,           index,      RC          )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),    INTENT(IN)  :: metadataID   ! Collection name\n    LOGICAL,             INTENT(IN)  :: isWildcard   ! Is it a wildcard?\n    CHARACTER(LEN=*),    INTENT(IN)  :: tagName      ! Name of each tag\n    INTEGER,             INTENT(IN)  :: index        ! Position of each tag\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnItem), POINTER     :: NewTaggedDiagItem  ! New TagItem\n    INTEGER,             INTENT(OUT) :: RC                 ! Success/failure?\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)        :: diagID\n    CHARACTER(LEN=255)        :: errMsg\n    CHARACTER(LEN=255)        :: thisLoc\n\n    ! Objects\n    TYPE(DgnTagItem), POINTER :: NewTagItem\n\n    !=======================================================================\n    ! Init_TaggedDiagItem begins here\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = &\n     ' -> at Init_TaggedDiagItem (in module Headers/taggeddiaglist_mod.F90)'\n\n    ! Create a new entry for TaggedDiagList\n    ALLOCATE( NewTaggedDiagItem, STAT=RC )\n    diagId = 'taggeddiaglist_mod.F90:NewTaggedDiagItem'\n    CALL GC_CheckVar( diagId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !-----------------------------------------------------------------------\n    ! Initialize fields of the TaggedDiagItem\n    !-----------------------------------------------------------------------\n    NewTaggedDiagItem%metadataID         =  TRIM(metadataID)\n    NewTaggedDiagItem%isWildcard         =  isWildcard\n    NewTaggedDiagItem%wildcardList%head  => NULL()\n    NewTaggedDiagItem%wildcardList%count =  0\n    NewTaggedDiagItem%tagList%head       => NULL()\n    NewTaggedDiagItem%tagList%count      =  0\n\n    !-----------------------------------------------------------------------\n    ! Create a new DgnTagItem object, which represents an individual\n    ! tag or wildcard for a given State_Diag diagnostic.\n    !-----------------------------------------------------------------------\n    CALL Init_TagItem(                                                       &\n         NewTagItem   = NewTagItem,                                          &\n         name         = tagName,                                             &\n         index        = index,                                               &\n         RC           = RC                                                  )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       errMsg = 'Error encountered in \"Init_TagItem\"!'\n       CALL GC_Error( errMsg, RC, thisLoc )\n       RETURN\n    ENDIF\n\n    IF ( isWildcard ) THEN\n\n       !--------------------------------------------------------------------\n       ! Add the DgnTagItem object to the list of wildcards\n       ! belonging to the NewTaggedDiagItem ...\n       !--------------------------------------------------------------------\n       CALL InsertBeginning_TagList(                                         &\n            TagItem   = NewTagItem,                                          &\n            TagList   = NewTaggedDiagItem%wildcardList,                      &\n            RC        = RC                                                  )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"InsertBeginning_TagList\" (wildcard)!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! ...or, if it is a tag and not a wildcard, add it to the list of\n       ! tags belonging to the NewTaggedDiagItem object.\n       !--------------------------------------------------------------------\n       CALL InsertBeginning_TagList(                                         &\n            TagItem   = NewTagItem,                                          &\n            TagList   = NewTaggedDiagItem%tagList,                           &\n            RC        = RC                                                  )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error encountered in \"InsertBeginning_TagList\" (wildcard)!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE Init_TaggedDiagItem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_TagItem\n!\n! !DESCRIPTION: Initializes a TagItem object, which represents a single tag\n!  or wildcard belonging to a State_Diag diagnostic.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_TagItem( NewTagItem, name, index, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(DgnTagItem), POINTER     :: NewTagItem    ! TagItem object\n    CHARACTER(LEN=*), INTENT(IN)  :: name          ! Name of quantity\n    INTEGER,          INTENT(IN)  :: index         ! Position of quantity\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strigns\n    CHARACTER(LEN=255) :: diagId\n\n    !=================================================================\n    ! Init_TagItem begins here\n    !=================================================================\n\n    ! Initialize\n    RC  = GC_SUCCESS\n\n    ! Allocate the NewTagItem Object\n    ALLOCATE( NewTagItem, STAT=RC )\n    diagId = 'taggeddiaglist_mod.F90:NewTagItem'\n    CALL GC_CheckVar( diagId, 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Define fields\n    NewTagItem%name  = TRIM(name)\n    NewTagItem%index = index\n\n  END SUBROUTINE Init_TagItem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: InsertBeginning_TaggedDiagList\n!\n! !DESCRIPTION: Inserts a new TaggedDiagItem (containing metadata and\n!  lists of tags or wildcards for a single State_Diag diagnostic) to the\n!  beginning of the TaggedDiagList linked list object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE InsertBeginning_TaggedDiagList( TaggedDiagItem,    &\n                                             TaggedDiagList, RC  )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(TaggedDgnItem), POINTER       :: TaggedDiagItem\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList), INTENT(INOUT) :: TaggedDiagList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(TaggedDgnItem), POINTER :: NewTaggedDiagItem\n\n    ! ================================================================\n    ! InsertBeginning_TaggedDiagList begins here\n    ! ================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Add new object to the beginning of the linked list\n    TaggedDiagItem%next => TaggedDiagList%head\n    TaggedDiagList%head => TaggedDiagItem\n\n  END SUBROUTINE InsertBeginning_TaggedDiagList\n!EOC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: InsertBeginning_TagList\n!\n! !DESCRIPTION: Inserts a new node at the beginning of the TagList linked\n!  list object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE InsertBeginning_TagList( TagItem, TagList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(DgnTagItem), POINTER       :: TagItem     ! Tag or wildcard\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnTagList), INTENT(INOUT) :: TagList     ! Tag list or wildcard list\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(DgnTagItem), POINTER :: NewTagItem\n\n    ! ================================================================\n    ! InsertBeginning_TagList begins here\n    ! ================================================================\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Add new object to the beginning of the linked list\n    TagItem%next => TagList%head\n    TagList%head => TagItem\n    TagList%count = TagList%count + 1\n\n  END SUBROUTINE InsertBeginning_TagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Query_Tag_in_TagList\n!\n! !DESCRIPTION: Searches for a given tag within a list of tags, or\n!  a wildcard within a list of wildcards.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Query_Tag_in_TagList( TagList, name, found, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_UpperCase\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(DgnTagList), INTENT(IN)  :: TagList     ! List of tags or wildcards\n    CHARACTER(LEN=*), INTENT(IN)  :: name        ! Search string\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(OUT) :: found       ! Is the tag/WC? in the list?\n    INTEGER,          INTENT(OUT) :: RC          ! Success or failure\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Pointers\n    TYPE(DgnTagItem), POINTER :: current\n\n    ! Strings\n    CHARACTER(LEN=255)        :: thisTagName\n\n    !=======================================================================\n    ! Query_Tag_in_Taglist begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    found    = .FALSE.\n\n    ! Search for name in list\n    current => TagList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       thisTagName = To_Uppercase(current%name)\n       IF ( TRIM(thisTagName) == TRIM(To_Uppercase(name)) ) THEN\n          found = .TRUE.\n          EXIT\n       ENDIF\n       current => current%next\n    ENDDO\n\n    ! Free pointer\n    current => NULL()\n\n  END SUBROUTINE Query_Tag_in_TagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_TagList\n!\n! !DESCRIPTION: Subroutine Print\\_TagList prints information for all\n!  TagItem members in a TagList linked list.  This represents a list of\n!  tags or wildcards for a single State_Diag diagnostic.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_TagList( am_I_Root, TagList, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)    :: am_I_Root\n    TYPE(DgnTagList), INTENT(IN)    :: TagList    ! List of tags or wildcards\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC         ! Success or failure?\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(DgnTagItem), POINTER :: current\n    CHARACTER(LEN=255)        :: thisLoc\n\n    ! ================================================================\n    ! Print_TagList begins here\n    ! ================================================================\n\n    ! Initialize\n    RC      =  GC_SUCCESS\n    current => TagList%head\n\n    ! Only print taglist if we are on the root core\n    IF ( am_I_Root ) THEN\n       DO WHILE ( ASSOCIATED( current ) )\n          WRITE( 6, 100 ) ADJUSTL( TRIM( current%name ) ), current%index\n 100      FORMAT( 21x, A, I5 )\n          current => current%next\n       ENDDO\n    ENDIF\n    current => NULL()\n\n  END SUBROUTINE Print_TagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Update_TaggedDiagList\n!\n! !DESCRIPTION: Updates a TaggedDiagList object with a new TaggedDiagItem.\n!  This represents adding a new tag or wildcard to an existing tag list or\n!  wildcard list for a State_Diag diagnostic quantity.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Update_TaggedDiagList( metadataID, isWildcard,     tagName, &\n                                    index,      TaggedDiagList, RC        )\n!\n! !USES:\n!\n    USE Charpak_Mod,   ONLY : To_UpperCase\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),    INTENT(IN)    :: metadataID     ! Diagnostic name\n    LOGICAL,             INTENT(IN)    :: isWildcard     ! Does this diagnostic\n                                                         !  use a wildcard?\n    CHARACTER(LEN=*),    INTENT(IN)    :: tagName        ! Tag or WC name\n    INTEGER,             INTENT(IN)    :: index          ! Position of the\n                                                         !  tag or WC in\n                                                         !  the taglist/WClist\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(TaggedDgnList), INTENT(INOUT) :: TaggedDiagList ! List containing\n                                                         !  metadata and\n                                                         !  list of tags and\n                                                         !  WCs per diagnostic\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC             ! Success or failure?\n!\n! !REVISION HISTORY:\n!  18 Nov 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(TaggedDgnItem), POINTER :: current\n    TYPE(DgnTagItem),    POINTER :: NewTagItem\n\n    ! Strings\n    CHARACTER(LEN=255)           :: errMsg\n    CHARACTER(LEN=255)           :: thisLoc\n    CHARACTER(LEN=255)           :: thisDiagName\n\n    !=======================================================================\n    ! Update_TaggedDiagList begins here\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    errMsg  = ''\n    thisLoc = ' -> at Update_TaggedDiagItem (in module taggeddiaglist_mod.F90)'\n\n    ! Search for item in list and update if found\n    current => TaggedDiagList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       thisDiagName = To_Uppercase(current%metadataID)\n\n       ! If the diagnostic (collection) name matches\n       IF ( TRIM(thisDiagName) == TRIM(To_Uppercase(metadataID)) ) THEN\n\n          !-----------------------------------------------------------------\n          ! Create a new DgnTagList item.  This represents a single\n          ! tag or wildcard belonging to a State_Diag diagnostic.\n          !-----------------------------------------------------------------\n          CALL Init_TagItem(                                                 &\n               NewTagItem   = NewTagItem,                                    &\n               name         = tagName,                                       &\n               index        = index,                                         &\n               RC           = RC                                            )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             errMsg = 'Error encountered in \"Init_TagItem!'\n             CALL GC_Error( errMsg, RC, thisLoc )\n             RETURN\n          ENDIF\n\n          IF ( isWildcard ) THEN\n\n             !--------------------------------------------------------------\n             ! Add the the DgnTagItem to the list of wildcards ...\n             !--------------------------------------------------------------\n             current%isWildcard = .TRUE.\n             CALL InsertBeginning_TagList(                                   &\n                  TagItem   = NewTagItem,                                    &\n                  TagList   = current%wildcardList,                          &\n                  RC        = RC                                            )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                errMsg = &\n                  'Error encountered in \"InsertBeginning_tagList\" (wildcard)!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n\n          ELSE\n\n             !--------------------------------------------------------------\n             ! ... or to the list of tags for the State_Diag diagnostic.\n             !--------------------------------------------------------------\n             current%isWildCard = .FALSE.\n             CALL InsertBeginning_TagList(                                   &\n                  TagItem   = NewTagItem,                                    &\n                  TagList   = current%tagList,                               &\n                  RC        = RC                                            )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                errMsg = &\n                  'Error encountered in \"InsertBeginning_tagList\" (tag)!'\n                CALL GC_Error( errMsg, RC, thisLoc )\n                RETURN\n             ENDIF\n\n          ENDIF\n       ENDIF\n\n       ! Go to the next item in DiagList\n       current => current%next\n    ENDDO\n\n    ! Free pointers\n    current => NULL()\n\n  END SUBROUTINE Update_TaggedDiagList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_TagList\n!\n! !DESCRIPTION: Subroutine Cleanup\\_TagList deallocates a TagList object\n!  and all of its member objects including the linked list of TagItem objects.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_TagList( TagList, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnTagList), INTENT(INOUT) :: TagList\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  18 Sep 2019 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(DgnTagItem), POINTER :: current\n    TYPE(DgnTagItem), POINTER :: next\n\n    ! Strings\n    CHARACTER(LEN=255)        :: diagId\n\n    ! ================================================================\n    ! Cleanup_TagList begins here\n    ! ================================================================\n\n    ! Initialize\n    RC     = GC_SUCCESS\n    diagId = 'taggeddiaglist_mod.F90:DgnTagItem'\n\n    ! Deallocate each DgnTagItem in the DgnTagList, which is\n    ! a list of tags or wildcards for each diagnostic\n    current => TagList%head\n    IF ( ASSOCIATED( current ) ) next => current%next\n\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! Free the DgnTagItem\n       DEALLOCATE( current, STAT=RC )\n       CALL GC_CheckVar( diagId, 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n\n       ! Exit if we are at the end of the DgnTagList ...\n       IF ( .NOT. ASSOCIATED ( next ) ) EXIT\n\n       ! ...or if not, advance to the next DgnTagItem in the DgnTagList\n       current => next\n       next => current%next\n\n    ENDDO\n\n    ! Free pointers\n    current => NULL()\n    next    => NULL()\n\n  END SUBROUTINE Cleanup_TagList\n!EOC\nEND MODULE TaggedDiagList_Mod\n"
  },
  {
    "path": "History/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "History/CMakeLists.txt",
    "content": "add_library(History STATIC EXCLUDE_FROM_ALL\n\thistcontainer_mod.F90\n\thistitem_mod.F90\n\thistory_mod.F90\n\thistory_netcdf_mod.F90\n\thistory_util_mod.F90\n\tmetahistcontainer_mod.F90\n\tmetahistitem_mod.F90\n)\ntarget_link_libraries(History\n\tPUBLIC GeosUtil\n)\n\n"
  },
  {
    "path": "History/histcontainer_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: histcontainer_mod.F90\n!\n! !DESCRIPTION: Contains methods to create a HISTORY CONTAINER object.\n!  A HISTORY CONTAINER represents a collection of HISTORY ITEMS that will\n!  be archived to a netCDF file at a specific temporal frequencly (e.g.\n!  instantaneous, hourly, daily, monthly, end-of-run, etc.)\n!\\\\\n!\\\\\n!  In other words, the HISTORY CONTAINER provides metadata for the\n!  netCDF file, and the HISTORY ITEMS belonging to the HISTORY CONTAINER\n!  contains the data and attributes for each variable that will be\n!  saved to the netCDF file.\n!\n! !INTERFACE:\n!\nMODULE HistContainer_Mod\n!\n! !USES:\n!\n  USE MetaHistItem_Mod,  ONLY: MetaHistItem\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: HistContainer_Create\n  PUBLIC  :: HistContainer_Print\n  PUBLIC  :: HistContainer_Destroy\n  PUBLIC  :: HistContainer_SetTime\n  PUBLIC  :: HistContainer_UpdateIvalSet\n  PUBLIC  :: HistContainer_FileCloseIvalSet\n  PUBLIC  :: HistContainer_FileWriteIvalSet\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: AlarmIncrementMonths\n  PRIVATE :: AlarmIncrementYears\n!\n! !PUBLIC TYPES:\n!\n  !=========================================================================\n  ! This is the derived type for a single HISTORY CONTAINER OBJECT, which\n  ! contains several HISTORY ITEMS that will be archived at a specified\n  ! frequency (e.g. instantaneous, hourly, daily, etc) to netCDF output.\n  !=========================================================================\n  TYPE, PUBLIC :: HistContainer\n\n     !----------------------------------------------------------------------\n     ! Identifying information\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=255)          :: Name                ! Container name\n     INTEGER                     :: Id                  !  and ID number\n     INTEGER                     :: nX                  ! X (or lon ) dim size\n     INTEGER                     :: nY                  ! Y (or lat ) dim size\n     INTEGER                     :: nZ                  ! Z (or lev ) dim size\n     INTEGER                     :: nB                  ! B (or bnds) dim size\n     INTEGER                     :: X0, X1              ! X (or lon ) indices\n     INTEGER                     :: Y0, Y1              ! Y (or lon ) indices\n     INTEGER                     :: Z0                  ! Z (or lev ) indices\n     LOGICAL                     :: OnLevelEdges        ! =T if data is defined\n                                                        !    on level edges;\n                                                        ! =F if on centers\n\n     !----------------------------------------------------------------------\n     ! List of history items in this collection\n     !----------------------------------------------------------------------\n     TYPE(MetaHistItem), POINTER :: HistItems => NULL() ! List and # of\n     INTEGER                     :: nHistItems          !  HISTORY ITEMS\n                                                        !  in this container\n\n     !----------------------------------------------------------------------\n     ! Time quantities measured since start of simulation\n     !----------------------------------------------------------------------\n     REAL(f8)                    :: EpochJd             ! Astronomical Julian\n                                                        !  date @ start of sim\n     REAL(f8)                    :: EpochJsec           ! Astronomical Julian\n                                                        !  secs @ start of sim\n     INTEGER                     :: CurrentYmd          ! Current YMD date\n     INTEGER                     :: CurrentHms          ! Current hms time\n     REAL(f8)                    :: CurrentJd           ! Astronomical Julian\n                                                        !  date @ current time\n     REAL(f8)                    :: CurrentJsec         ! Astronomical Julian\n                                                        !  secs @ current time\n     REAL(f8)                    :: ElapsedSec          ! Elapsed seconds\n                                                        !  since start of sim\n     REAL(f8)                    :: UpdateAlarm         ! Alarm (elapsed sec)\n                                                        !  for data updating\n     REAL(f8)                    :: FileCloseAlarm      ! Alarm (elapsed sec)\n                                                        !  for file close/open\n     REAL(f8)                    :: FileWriteAlarm      ! Alarm (elapsed sec)\n                                                        !  for file write\n\n     !----------------------------------------------------------------------\n     ! Time quantities measured since the time of netCDF file creation\n     !----------------------------------------------------------------------\n     INTEGER                     :: ReferenceYmd        ! Reference YMD & hms\n     INTEGER                     :: ReferenceHms        !  for the \"time\" dim\n     REAL(f8)                    :: ReferenceJd         ! Julian Date at the\n                                                        !  reference YMD & hms\n     REAL(f8)                    :: ReferenceJsec       ! Julian Seconds @ the\n                                                        !  reference YMD & hms\n     INTEGER                     :: CurrTimeSlice       ! Current time slice\n                                                        !  for the \"time\" dim\n     REAL(f8)                    :: TimeStamp           ! Elapsed minutes w/r/t\n                                                        !  reference YMD & hms\n\n     !----------------------------------------------------------------------\n     ! Quantities that govern the updating/time averaging of data\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=255)          :: UpdateMode          ! e.g. inst or time-avg\n     INTEGER                     :: UpdateYmd           ! Update frequency\n     INTEGER                     :: UpdateHms           !  in YMD and hms\n     REAL(f8)                    :: UpdateIvalSec       ! Update interval [sec]\n     INTEGER                     :: Operation           ! Operation code\n                                                        !  0=copy from source\n                                                        !  1=accum from source\n     REAL(f8)                    :: HeartBeatDtSec      ! The \"heartbeat\"\n                                                        !  timestep [sec]\n\n     !----------------------------------------------------------------------\n     ! Quantities for file creation, writing, and I/O status\n     !----------------------------------------------------------------------\n     INTEGER                     :: FileWriteYmd        ! File write frequency\n     INTEGER                     :: FileWriteHms        !  in YMD and hms\n     REAL(f8)                    :: FileWriteIvalSec    ! File write interval\n                                                        !  in seconds\n\n     INTEGER                     :: FileCloseYmd        ! File closing time\n     INTEGER                     :: FileCloseHms        !  in YMD and hms\n     REAL(f8)                    :: FileCloseIvalSec    ! File close interval\n                                                        !  in seconds\n\n     LOGICAL                     :: IsFileDefined       ! Have we done netCDF\n                                                        !  define mode yet?\n     LOGICAL                     :: IsFileOpen          ! Is the netCDF file\n                                                        !  currently open?\n\n     !----------------------------------------------------------------------\n     ! netCDF file identifiers and attributes\n     !----------------------------------------------------------------------\n     INTEGER                     :: FileId              ! netCDF file ID\n     INTEGER                     :: xDimId              ! X (or lon ) dim ID\n     INTEGER                     :: yDimId              ! Y (or lat ) dim ID\n     INTEGER                     :: zDimId              ! Z (or lev ) dim ID\n     INTEGER                     :: iDimId              ! I (or ilev) dim ID\n     INTEGER                     :: tDimId              ! T (or time) dim ID\n     INTEGER                     :: bDimId              ! B (or bnds) dim ID\n     CHARACTER(LEN=20)           :: StartTimeStamp      ! Timestamps at start\n     CHARACTER(LEN=20)           :: EndTimeStamp        !  and end of sim\n     CHARACTER(LEN=20)           :: Spc_Units           ! Units of SC%Species\n     CHARACTER(LEN=255)          :: FileExpId           ! Filename ExpId\n     CHARACTER(LEN=255)          :: FilePrefix          ! Filename prefix\n     CHARACTER(LEN=255)          :: FileTemplate        ! YMDhms template\n     CHARACTER(LEN=255)          :: FileName            ! Name of nc file\n     CHARACTER(LEN=255)          :: Conventions         ! e.g. \"COARDS\"\n     CHARACTER(LEN=255)          :: NcFormat            ! e.g. \"netCDF-4\"\n     CHARACTER(LEN=255)          :: History             ! History\n     CHARACTER(LEN=255)          :: ProdDateTime        ! When produced\n     CHARACTER(LEN=255)          :: Reference           ! Reference string\n     CHARACTER(LEN=255)          :: Contact             ! Contact string\n     CHARACTER(LEN=255)          :: Title               ! Title string\n\n  END TYPE HistContainer\n!\n! !REMARKS:\n!  Linked list routines taken from original code (linkedlist.f90)\n!  by Arjen Markus; http://flibs.sourceforge.net/linked_list.html\n!\n! !REVISION HISTORY:\n!  12 Jun 2017 - R. Yantosca - Initial version, based on history_list_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_Create\n!\n! !DESCRIPTION: Initializes a single HISTORY CONTAINER object, which\n!  will hold a METAHISTORY ITEM (which is a list of HISTORY ITEMS), to\n!  archive to netCDF output.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_Create( Input_Opt,      Container,                &\n                                   Id,             Name,                     &\n                                   RC,             EpochJd,                  &\n                                   CurrentYmd,     CurrentHms,               &\n                                   UpdateMode,     UpdateYmd,                &\n                                   UpdateHms,      UpdateAlarm,              &\n                                   Operation,      HeartBeatDtSec,           &\n                                   FileWriteYmd,   FileWriteHms,             &\n                                   FileWriteAlarm, FileCloseYmd,             &\n                                   FileCloseHms,   FileCloseAlarm,           &\n                                   FileId,         FileExpId,                &\n                                   FilePrefix,     FileName,                 &\n                                   FileTemplate,   Conventions,              &\n                                   NcFormat,       History,                  &\n                                   ProdDateTime,   Reference,                &\n                                   Title,          Contact,                  &\n                                   StartTimeStamp, EndTimeStamp             )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE MetaHistItem_Mod, ONLY : MetaHistItem\n!\n! !INPUT PARAMETERS:\n!\n    !-----------------------------------------------------------------------\n    ! REQUIRED INPUTS\n    !-----------------------------------------------------------------------\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt      ! Input Options object\n    INTEGER,             INTENT(IN)  :: Id             ! Container Id #\n    CHARACTER(LEN=*),    INTENT(IN)  :: Name           ! Container name\n\n    !-----------------------------------------------------------------------\n    ! OPTIONAL INPUTS: Time and date quantities\n    !-----------------------------------------------------------------------\n    REAL(f8),            OPTIONAL    :: EpochJd        ! Astronomical Julian\n                                                       !  date @ start of sim\n    INTEGER,             OPTIONAL    :: CurrentYmd     ! Current YMD date\n    INTEGER,             OPTIONAL    :: CurrentHms     ! Current hms time\n\n    !-----------------------------------------------------------------------\n    ! OPTIONAL INPUTS: quantities controlling data updates\n    !-----------------------------------------------------------------------\n    CHARACTER(LEN=*),    OPTIONAL    :: UpdateMode     ! e.g. inst or time-avg\n    INTEGER,             OPTIONAL    :: UpdateYmd      ! Update frequency\n    INTEGER,             OPTIONAL    :: UpdateHms      !  in both YMD and hms\n    REAL(f8),            OPTIONAL    :: UpdateAlarm    ! JD for data update\n    INTEGER,             OPTIONAL    :: Operation      ! Operation code:\n                                                       !  0=copy  from source\n                                                       !  1=accum from source\n    REAL(f8),            OPTIONAL    :: HeartBeatDtSec ! Model \"heartbeat\"\n                                                       !  timestep [sec]\n\n    !-----------------------------------------------------------------------\n    ! OPTIONAL INPUTS: quantities controlling file write and close/reopen\n    !-----------------------------------------------------------------------\n    INTEGER,             OPTIONAL    :: FileWriteYmd   ! File write frequency\n    INTEGER,             OPTIONAL    :: FileWriteHms   !  in both YMD and hms\n    REAL(f8),            OPTIONAL    :: FileWriteAlarm ! JD for file write\n\n    INTEGER,             OPTIONAL    :: FileCloseYmd   ! File close/open freq\n    INTEGER,             OPTIONAL    :: FileCloseHms   !  in both YMD and hm\n    REAL(f8),            OPTIONAL    :: FileCloseAlarm ! JD for file close\n\n    !-----------------------------------------------------------------------\n    ! OPTIONAL INPUTS: netCDF file identifiers and metadata\n    !-----------------------------------------------------------------------\n    INTEGER,             OPTIONAL    :: FileId         ! netCDF file ID\n    CHARACTER(LEN=*),    OPTIONAL    :: FileExpId      ! Dir name + file string\n    CHARACTER(LEN=*),    OPTIONAL    :: FilePrefix     ! Filename prefix\n    CHARACTER(LEN=*),    OPTIONAL    :: FileTemplate   ! YMDhms template\n    CHARACTER(LEN=*),    OPTIONAL    :: Conventions    ! e.g. \"COARDS\"\n    CHARACTER(LEN=*),    OPTIONAL    :: Filename       ! Name of nc file\n    CHARACTER(LEN=*),    OPTIONAL    :: NcFormat       ! e.g. \"netCDF-4\"\n    CHARACTER(LEN=*),    OPTIONAL    :: History        ! History\n    CHARACTER(LEN=*),    OPTIONAL    :: ProdDateTime   ! When produced\n    CHARACTER(LEN=*),    OPTIONAL    :: Reference      ! Reference string\n    CHARACTER(LEN=*),    OPTIONAL    :: Title          ! Title string\n    CHARACTER(LEN=*),    OPTIONAL    :: Contact        ! Contact string\n    CHARACTER(LEN=*),    OPTIONAL    :: StartTimeStamp ! Timestamps at start\n    CHARACTER(LEN=*),    OPTIONAL    :: EndTimeStamp   !  & end of simulation\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container      ! Collection object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC             ! Success or failure\n!\n! !REMARKS:\n!  (1) We need to copy string data to a temporary string of length 255\n!       characters, or else Gfortran will choke.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on history_list_mod.F90\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: ThisId, C\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, TempStr\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n\n    ! Set initial values\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HistContainer_Create (in History/histcontainer_mod.F90)'\n\n    ! Allocate the Container object\n    ALLOCATE( Container, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot allocate the \"Container\" object!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Local value for ID\n    ThisId = 0\n\n    !========================================================================\n    ! Required inputs, handle these first\n    !========================================================================\n\n    !---------------------------------\n    ! Container ID\n    !---------------------------------\n    IF ( Id >= 0 ) THEN\n       Container%Id = Id\n    ELSE\n       ErrMsg = 'History Container ID # cannot be negative!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------\n    ! Name\n    !-----------------------\n    IF ( LEN_TRIM( Name ) > 0 ) THEN\n       TempStr   = Name\n       Container%Name = TempStr\n    ELSE\n       ErrMsg = 'Must specify a name for this collection!!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Optional inputs, handle these next\n    !========================================================================\n\n    !----------------------------------\n    ! EpochJd (Julian date @ start)\n    !----------------------------------\n    IF ( PRESENT( EpochJd ) ) THEN\n       Container%EpochJd = EpochJd\n    ELSE\n       Container%EpochJd = UNDEFINED_DBL\n    ENDIF\n\n    !----------------------------------\n    ! Current date in YYYMMDD\n    !----------------------------------\n    IF ( PRESENT( CurrentYmd ) ) THEN\n       Container%CurrentYmd = CurrentYmd\n    ELSE\n       Container%CurrentYmd = 0\n    ENDIF\n\n    !----------------------------------\n    ! Current time in hh:mm:ss\n    !----------------------------------\n    IF ( PRESENT( CurrentHms ) ) THEN\n       Container%CurrentHms = CurrentHms\n    ELSE\n       Container%CurrentHms = 0\n    ENDIF\n\n    !----------------------------------\n    ! Update mode\n    !----------------------------------\n    IF ( PRESENT( UpdateMode ) ) THEN\n       Container%UpdateMode = UpdateMode\n    ELSE\n       Container%UpdateMode = ''\n    ENDIF\n\n    !----------------------------------\n    ! Update frequency in YYYYMMDD\n    !----------------------------------\n    IF ( PRESENT( UpdateYmd ) ) THEN\n       Container%UpdateYmd = UpdateYmd\n    ELSE\n       Container%UpdateYmd = 0\n    ENDIF\n\n    !----------------------------------\n    ! Update frequency in hhmmss\n    !----------------------------------\n    IF ( PRESENT( UpdateHms ) ) THEN\n       Container%UpdateHms = UpdateHms\n    ELSE\n       Container%UpdateHms = 0\n    ENDIF\n\n    !----------------------------------\n    ! Update alarm (Julian date)\n    !----------------------------------\n    IF ( PRESENT( UpdateAlarm ) ) THEN\n       Container%UpdateAlarm = UpdateAlarm\n    ELSE\n       Container%UpdateAlarm = UNDEFINED_DBL\n    ENDIF\n\n    !----------------------------------\n    ! Operation code\n    !----------------------------------\n    IF ( PRESENT( Operation ) ) THEN\n       Container%Operation = Operation\n    ELSE\n       Container%Operation = COPY_FROM_SOURCE\n    ENDIF\n\n    !----------------------------------\n    ! Heartbeat timestep [min]\n    !----------------------------------\n    IF ( PRESENT( HeartBeatDtSec ) ) THEN\n       Container%HeartBeatDtSec = HeartBeatDtSec\n    ELSE\n       Container%HeartBeatDtSec = UNDEFINED_DBL\n    ENDIF\n\n    !----------------------------------\n    ! File write frequency in YYYYMMDD\n    !----------------------------------\n    IF ( PRESENT( FileWriteYmd ) ) THEN\n       Container%FileWriteYmd = FileWriteYmd\n    ELSE\n       Container%FileWriteYmd = 0\n    ENDIF\n\n    !----------------------------------\n    ! File write frequency in hhmmss\n    !----------------------------------\n    IF ( PRESENT( FileWriteHms ) ) THEN\n       Container%FileWriteHms = FileWriteHms\n    ELSE\n       Container%FileWriteHms = 0\n    ENDIF\n\n    !----------------------------------\n    ! File write alarm (Julian date)\n    !----------------------------------\n    IF ( PRESENT( FileWriteAlarm ) ) THEN\n       Container%FileWriteAlarm = FileWriteAlarm\n    ELSE\n       Container%FileWriteAlarm = UNDEFINED_DBL\n    ENDIF\n\n    !----------------------------------\n    ! File close frequency in YYYYMMDD\n    !----------------------------------\n    IF ( PRESENT( FileCloseYmd ) ) THEN\n       Container%FileCloseYmd = FileCloseYmd\n    ELSE\n       Container%FileCloseYmd = 0\n    ENDIF\n\n    !----------------------------------\n    ! File close frequency in hhmmss\n    !----------------------------------\n    IF ( PRESENT( FileCloseHms ) ) THEN\n       Container%FileCloseHms = FileCloseHms\n    ELSE\n       Container%FileCloseHms = 0\n    ENDIF\n\n    !----------------------------------\n    ! File close alarm (Julian date)\n    !----------------------------------\n    IF ( PRESENT( FileCloseAlarm ) ) THEN\n       Container%FileCloseAlarm = FileCloseAlarm\n    ELSE\n       Container%FileCloseAlarm = UNDEFINED_DBL\n    ENDIF\n\n    !----------------------------------\n    ! File ExpId (the dir name plus\n    ! beginning of file name)\n    !----------------------------------\n    IF ( LEN_TRIM( FileExpId ) > 0 ) THEN\n       TempStr             = FileExpId\n       Container%FileExpId = TempStr\n    ELSE\n       Container%FileExpId = 'GEOSChem'\n    ENDIF\n\n    ! Add an error check.  The netCDF routines apparently cannot write\n    ! files with \"./\" in the file path.  Strip out such occurrences.\n    C = INDEX( Container%FileExpId, './' )\n    IF ( C > 0 ) THEN\n       Container%FileExpId = Container%FileExpId(C+2:)\n    ENDIF\n\n    !----------------------------------\n    ! File Prefix\n    !----------------------------------\n    IF ( LEN_TRIM( FilePrefix ) > 0 ) THEN\n       TempStr              = FilePrefix\n       Container%FilePrefix = TempStr\n    ELSE\n       Container%FilePrefix = TRIM( Container%FileExpId ) // '.' //         &\n                              TRIM( Name                ) // '.'\n    ENDIF\n\n    !----------------------------------\n    ! File Template\n    !----------------------------------\n    IF ( LEN_TRIM( FileTemplate ) > 0 ) THEN\n\n       ! If the FILETEMPLATE argument is passed (and not the undefined\n       ! string) then use it.  Otherwise, construct a default template.\n       IF ( TRIM( FileTemplate ) /= UNDEFINED_STR ) THEN\n          TempStr                = FileTemplate\n          Container%FileTemplate = TempStr\n       ELSE\n          Container%FileTemplate = '%y4%m2%d2_%h2%n2z.nc4'\n       ENDIF\n\n    ELSE\n\n       ! If the FILETEMPLATE argument isn't passed,\n       ! then construct a default template\n       Container%FileTemplate = '%y4%m2%d2_%h2%n2z.nc4'\n\n    ENDIF\n\n    !----------------------------------\n    ! File Name\n    !----------------------------------\n    IF ( LEN_TRIM( FileName ) > 0 ) THEN\n\n       ! If the FILENAME argument is passed, then use it,\n       ! otherwise, construct a default file name\n       IF ( TRIM( FileName ) /= UNDEFINED_STR ) THEN\n          TempStr                = FileName\n          Container%FileName     = TempStr\n          Container%FilePrefix   = UNDEFINED_STR\n          Container%FileTemplate = UNDEFINED_STR\n       ELSE\n          Container%FileName = TRIM( Container%FilePrefix   ) // &\n                               TRIM( Container%FileTemplate )\n       ENDIF\n\n    ELSE\n\n       ! If the FILENAME argument isn't passed,\n       ! construct a default file name\n       Container%FileName = TRIM( Container%FilePrefix   ) // &\n                            TRIM( Container%FileTemplate )\n    ENDIF\n\n    !----------------------------------\n    ! Conventions\n    !----------------------------------\n    IF ( PRESENT( Conventions ) ) THEN\n       TempStr               = Conventions\n       Container%Conventions = TempStr\n    ELSE\n       Container%Conventions = ''\n    ENDIF\n\n    !----------------------------------\n    ! NcFormat\n    !----------------------------------\n    IF ( PRESENT( NcFormat ) ) THEN\n       TempStr            = NcFormat\n       Container%NcFormat = TempStr\n    ELSE\n       Container%NcFormat = ''\n    ENDIF\n\n#if !defined( ESMF_ ) && !defined( NC_HAS_COMPRESSION )\n\n    ! For GEOS-Chem Classic simulations compiled with either DEBUG=y or\n    ! NC_NODEFLATE=y, set NcFormat to \"NetCDF-3 with large file support\",\n    ! in order to denote that compression and chunking are disabled.\n    Container%NcFormat = 'NetCDF-3 with large file support'\n\n#endif\n\n    !----------------------------------\n    ! History\n    !----------------------------------\n    IF ( PRESENT( History ) ) THEN\n       TempStr           = History\n       Container%History = TempStr\n    ELSE\n       Container%History = ''\n    ENDIF\n\n    !----------------------------------\n    ! ProdDateTime\n    !----------------------------------\n    IF ( PRESENT( ProdDateTime ) ) THEN\n       TempStr                = ProdDateTime\n       Container%ProdDateTime = TempStr\n    ELSE\n       Container%ProdDateTime = ''\n    ENDIF\n\n    !----------------------------------\n    ! Reference\n    !----------------------------------\n    IF ( PRESENT( Reference ) ) THEN\n       TempStr             = Reference\n       Container%Reference = TempStr\n    ELSE\n       Container%Reference = ''\n    ENDIF\n\n    !----------------------------------\n    ! Title\n    !----------------------------------\n    IF ( PRESENT( Title ) ) THEN\n       TempStr         = Title\n       Container%Title = TempStr\n    ELSE\n       Container%Title = ''\n    ENDIF\n\n    !----------------------------------\n    ! Contact\n    !----------------------------------\n    IF ( PRESENT( Contact ) ) THEN\n       TempStr           = Contact\n       Container%Contact = TempStr\n    ELSE\n       Container%Contact = ''\n    ENDIF\n\n    !----------------------------------\n    ! StartTimeStamp\n    !----------------------------------\n    IF ( PRESENT( StartTimeStamp ) ) THEN\n       TempStr                  = StartTimeStamp\n       Container%StartTimeStamp = TempStr\n    ELSE\n       Container%StartTimeStamp = ''\n    ENDIF\n\n    !----------------------------------\n    ! EndTimeStamp\n    !----------------------------------\n    IF ( PRESENT( EndTimeStamp ) ) THEN\n       TempStr                = EndTimeStamp\n       Container%EndTimeStamp = TempStr\n    ELSE\n       Container%EndTimeStamp = ''\n    ENDIF\n\n    !=======================================================================\n    ! Set other fields to initial or undefined values\n    !=======================================================================\n\n    ! These fields won't get defined until we open/write the netCDF file\n    Container%IsFileDefined   = .FALSE.\n    Container%IsFileOpen      = .FALSE.\n    Container%FileId          = UNDEFINED_INT\n    Container%xDimId          = UNDEFINED_INT\n    Container%yDimId          = UNDEFINED_INT\n    Container%zDimId          = UNDEFINED_INT\n    Container%iDimId          = UNDEFINED_INT\n    Container%tDimId          = UNDEFINED_INT\n    Container%bDimId          = UNDEFINED_INT\n    Container%Spc_Units       = ''\n\n    ! Set the other time/date fields from EpochJd, CurrentYmd, CurrentHms, etc.\n    Container%EpochJsec       = Container%EpochJd * SECONDS_PER_DAY\n    Container%CurrentJsec     = Container%EpochJSec\n    Container%CurrentJd       = Container%EpochJd\n    Container%ReferenceJsec   = Container%EpochJsec\n    Container%ReferenceJd     = Container%EpochJd\n    Container%ReferenceYmd    = Container%CurrentYmd\n    Container%ReferenceHms    = Container%CurrentHms\n\n    ! These other time fields will be defined later\n    Container%ElapsedSec      = 0.0_f8\n    Container%CurrTimeSlice   = UNDEFINED_INT\n    Container%TimeStamp       = 0.0_f8\n\n    ! Spatial information fields will be defined according to the\n    ! dimensions of the HISTORY ITEMS belonging to the collection\n    Container%NX              = UNDEFINED_INT\n    Container%NY              = UNDEFINED_INT\n    Container%NZ              = UNDEFINED_INT\n    Container%NB              = UNDEFINED_INT\n    Container%X0              = UNDEFINED_INT\n    Container%X1              = UNDEFINED_INT\n    Container%Y0              = UNDEFINED_INT\n    Container%Y1              = UNDEFINED_INT\n    Container%Z0              = UNDEFINED_INT\n    Container%OnLevelEdges    = .FALSE.\n\n    !=======================================================================\n    ! Initialize the alarms (elapsed seconds since start of run)\n    !=======================================================================\n\n    !----------------------------------\n    ! Initial UpdateAlarm interval\n    !----------------------------------\n    CALL HistContainer_UpdateIvalSet( Input_Opt, Container, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HistContainer_UpdateIvalSet\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !----------------------------------\n    ! Initial FileCloseAlarm interval\n    !----------------------------------\n    CALL HistContainer_FileCloseIvalSet( Input_Opt, Container, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HistContainer_FileCloseIvalSet\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !----------------------------------\n    ! Initial FileWriteAlarm interval\n    !----------------------------------\n    CALL HistContainer_FileWriteIvalSet( Input_Opt, Container, RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HistContainer_FileWriteIvalSet\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------\n    ! Initial \"UpdateAlarm\" setting\n    !--------------------------------------\n\n    !-------------------------------------------------------------------------\n    ! Prior to 3/5/19:\n    ! Subtract the \"heartbeat\" timestep in seconds from UpdateAlarm.\n    ! This will ensure that (1) Instantaneous file collections will be\n    ! updated just before the file write, (2) Time-averaged collections\n    ! will be averaged on the same timestep as the \"historical\" GEOS-Chem\n    ! diagnostics, thus allowing for a direct comparison.\n    !Container%UpdateAlarm = Container%UpdateIvalSec - Container%HeartBeatDtSec\n    !-------------------------------------------------------------------------\n\n    ! Set the initial UpdateAlarm value to the update interval in seconds\n    ! NOTE: We no longer have to subtract the heartbeat timestep, because\n    ! in the main program, we now call History_SetTime to advance the\n    ! clock before calling History_Update to update the diagnostics.\n    ! This will now allow us to recompute monthly or yearly intervals\n    ! that span leap year days properly. (bmy, 3/5/19)\n    Container%UpdateAlarm = Container%UpdateIvalSec\n\n    ! Trap error if negative\n    IF ( Container%UpdateAlarm < 0 ) THEN\n       ErrMsg = 'UpdateAlarm for collection ' //                            &\n                TRIM( Container%Name )        // ' is negative!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------\n    ! Initial \"FileWriteAlarm\" setting\n    !--------------------------------------\n\n    ! Set the file write alarm to its computed interval\n    Container%FileWriteAlarm = Container%FileWriteIvalSec\n\n    ! Trap error if negative\n    IF ( Container%FileWriteAlarm < 0 ) THEN\n       ErrMsg = 'FileWriteAlarm for collection ' //                         &\n            TRIM( Container%Name )               // ' is negative!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------\n    ! Initial \"FileCloseAlarm\" setting\n    !--------------------------------------\n\n    IF ( Container%Operation == COPY_FROM_SOURCE ) THEN\n\n       ! %%% INSTANTANEOUS %%%\n       ! Create a new file ASAP so that we can start writing data to it\n       Container%FileCloseAlarm = 0.0_f8\n\n    ELSE\n\n       ! %%% TIME-AVERAGED %%%\n       ! Set the initial file close/reopen time to the first write time.\n       ! (We will subtract this off later, when computing the reference\n       ! date and time for the netCDF file.)\n       Container%FileCloseAlarm = Container%FileWriteIvalSec\n\n    ENDIF\n\n    ! Trap error if negative\n    IF ( Container%FileCloseAlarm < 0 ) THEN\n       ErrMsg = 'FileCloseAlarm for collection ' //                         &\n            TRIM( Container%Name )               // ' is negative!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE HistContainer_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_Print\n!\n! !DESCRIPTION: Prints information stored in a single HISTORY CONTAINER object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_Print( Input_Opt, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(HistContainer), POINTER     :: Container  ! HISTORY CONTAINER object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOcAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)          :: DimStr\n\n    ! String arrays\n    CHARACTER(LEN=22)           :: OpCode(0:1) =                  &\n                                     (/ 'Copy from source      ',  &\n                                        'Accumulate from source' /)\n\n    ! Objects\n    TYPE(MetaHistItem), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Free pointers\n    Current => NULL()\n\n    !=======================================================================\n    ! Print information about this HISTORY CONTAINER\n    ! only if we are on the root CPU\n    !=======================================================================\n    IF ( ASSOCIATED( Container ) .and. Input_Opt%amIRoot ) THEN\n       WRITE( 6, 110 ) REPEAT( '-', 78 )\n       WRITE( 6, 110 ) REPEAT( '-', 78 )\n       WRITE( 6, 120 ) 'Container Name   : ', TRIM( Container%Name  )\n       WRITE( 6, 130 ) 'Container Id #   : ', Container%Id\n       WRITE( 6, 130 ) 'nX               : ', Container%nX\n       WRITE( 6, 130 ) 'nY               : ', Container%nY\n       WRITE( 6, 130 ) 'nZ               : ', Container%nZ\n       WRITE( 6, 130 ) 'nB               : ', Container%nB\n       WRITE( 6, 160 ) 'EpochJsec        : ', Container%EpochJsec\n       WRITE( 6, 160 ) 'EpochJd          : ', Container%EpochJd\n       WRITE( 6, 160 ) 'CurrentJSec      : ', Container%CurrentJSec\n       WRITE( 6, 160 ) 'CurrentJd        : ', Container%CurrentJd\n       WRITE( 6, 135 ) 'CurrentYmd       : ', Container%CurrentYmd\n       WRITE( 6, 145 ) 'CurrentHms       : ', Container%CurrentHms\n       WRITE( 6, 160 ) 'ElapsedSec       : ', Container%ElapsedSec\n       WRITE( 6, 120 ) 'UpdateMode       : ', TRIM( Container%UpdateMode )\n       WRITE( 6, 135 ) 'UpdateYmd        : ', Container%UpdateYmd\n       WRITE( 6, 145 ) 'UpdateHms        : ', Container%UpdateHms\n       WRITE( 6, 160 ) 'UpdateIvalSec    : ', Container%UpdateIvalSec\n       WRITE( 6, 160 ) 'UpdateAlarm      : ', Container%UpdateAlarm\n       WRITE( 6, 120 ) 'Operation        : ', OpCode( Container%Operation )\n       WRITE( 6, 160 ) 'HeartBeatDtSec   : ', Container%HeartBeatDtSec\n       WRITE( 6, 135 ) 'ReferenceYmd     : ', Container%ReferenceYmd\n       WRITE( 6, 145 ) 'ReferenceHms     : ', Container%ReferenceHms\n       WRITE( 6, 160 ) 'ReferenceJsec    : ', Container%ReferenceJd\n       WRITE( 6, 160 ) 'ReferenceJd      : ', Container%ReferenceJd\n       WRITE( 6, 135 ) 'FileWriteYmd     : ', Container%FileWriteYmd\n       WRITE( 6, 145 ) 'FileWriteHms     : ', Container%FileWriteHms\n       WRITE( 6, 160 ) 'FileWriteIvalSec : ', Container%FileWriteIvalSec\n       WRITE( 6, 160 ) 'FileWriteAlarm   : ', Container%FileWriteAlarm\n       WRITE( 6, 135 ) 'FileCloseYmd     : ', Container%FileCloseYmd\n       WRITE( 6, 145 ) 'FileCloseHms     : ', Container%FileCloseHms\n       WRITE( 6, 160 ) 'FileCloseIvalSec : ', Container%FileCloseIvalSec\n       WRITE( 6, 160 ) 'FileCloseAlarm   : ', Container%FileCloseAlarm\n       WRITE( 6, 130 ) 'CurrTimeSlice    : ', Container%CurrTimeSlice\n       WRITE( 6, 150 ) 'IsFileOpen       : ', Container%IsFileOpen\n       WRITE( 6, 150 ) 'IsFileDefined    : ', Container%IsFileDefined\n       WRITE( 6, 130 ) 'FileId           : ', Container%FileId\n       WRITE( 6, 130 ) 'xDimId           : ', Container%xDimId\n       WRITE( 6, 130 ) 'yDimId           : ', Container%yDimId\n       WRITE( 6, 130 ) 'zDimId           : ', Container%zDimId\n       WRITE( 6, 130 ) 'tDimId           : ', Container%tDimId\n       WRITE( 6, 130 ) 'bDimId           : ', Container%bDimId\n       WRITE( 6, 120 ) 'FileExpId        : ', TRIM( Container%FileExpId    )\n       WRITE( 6, 120 ) 'FilePrefix       : ', TRIM( Container%FilePrefix   )\n       WRITE( 6, 120 ) 'FileTemplate     : ', TRIM( Container%FileTemplate )\n       WRITE( 6, 120 ) 'Filename         : ', TRIM( Container%FileName     )\n       WRITE( 6, 120 ) 'Conventions      : ', TRIM( Container%Conventions  )\n       WRITE( 6, 120 ) 'NcFormat         : ', TRIM( Container%NcFormat     )\n       WRITE( 6, 120 ) 'History          : ', TRIM( Container%History      )\n       WRITE( 6, 120 ) 'ProdDateTime     : ', TRIM( Container%ProdDateTime )\n       WRITE( 6, 120 ) 'Reference        : ', TRIM( Container%Reference    )\n       WRITE( 6, 120 ) 'Title            : ', TRIM( Container%Title        )\n       WRITE( 6, 120 ) 'Contact          : ', TRIM( Container%Contact      )\n       WRITE( 6, 120 ) 'StartTimeStamp   : ', Container%StartTimeStamp\n       WRITE( 6, 120 ) 'EndTimeStamp     : ', Container%EndTimeStamp\n       WRITE( 6, 110 ) ''\n       WRITE( 6, 110 ) 'Items archived in this collection:'\n\n       ! FORMAT statements\n 110   FORMAT( 1x, a           )\n 120   FORMAT( 1x, a, a        )\n 130   FORMAT( 1x, a, 7x, i8   )\n 135   FORMAT( 1x, a, 7x, i8.8 )\n 140   FORMAT( 1x, a, i6       )\n 145   FORMAT( 1x, a, 9x, i6.6 )\n 150   FORMAT( 1x, a, L15      )\n 160   FORMAT( 1x, a, f17.1    )\n\n       ! If there are HISTORY ITEMS belonging to this container ...\n       IF ( ASSOCIATED( Container%HistItems ) ) THEN\n\n          ! Point to the start of the list of HISTORY ITEMS\n          Current => Container%HistItems\n\n          ! As long as this HISTORY ITEM is valid ...\n          DO WHILE ( ASSOCIATED( Current ) )\n\n             ! Print the name, long-name, and units of each HISTORY ITEM\n             ! that is stored in the METAHISTORY ITEM belonging to this\n             ! HISTORY CONTAINER.  In other words, these are the diagnostic\n             ! quantities that will get archived to the netCDF file.\n             WRITE( 6, 100 ) Current%Item%Name,        &\n                             Current%Item%LongName,    &\n                             Current%Item%DimNames,    &\n                             TRIM( Current%Item%Units )\n 100         FORMAT( 2x, a20, ' | ', a35, ' | ', a3, ' | ', a )\n\n             ! Skip to net item\n             Current => Current%Next\n          ENDDO\n\n          ! Free pointers\n          Current => NULL()\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE HistContainer_Print\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_Destroy\n!\n! !DESCRIPTION: This method will destroy the METAHISTORY ITEM belonging to\n!  a HISTORY CONTAINER.  It will then destroy the HISTORY CONTAINER itself.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_Destroy( Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE MetaHistItem_Mod, ONLY : MetaHistItem_Destroy\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container  ! HISTORY CONTAINER object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = ' -> at HistContainer_Destroy (in History/histcontainer_mod.F90)'\n\n    !=======================================================================\n    ! Destroy the METAHISTORY ITEM belonging to this HISTORY CONTAINER\n    !=======================================================================\n    IF ( ASSOCIATED( Container%HistItems ) ) THEN\n       CALL MetaHistItem_Destroy( Container%HistItems, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'MetaHistItem_Destroy returned with error!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Then destroy the HISTORY CONTAINER itself\n    !=======================================================================\n    IF ( ASSOCIATED( Container ) ) THEN\n       DEALLOCATE( Container, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not destroy the \"Container\" HISTORY CONTAINER!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE HistContainer_Destroy\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_UpdateIvalSet\n!\n! !DESCRIPTION: Defines the alarm interval for the UPDATE operation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_UpdateIvalSet( Input_Opt, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE Time_Mod,         ONLY : Its_A_Leapyear, Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container  ! HISTORY CONTAINER object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure\n!\n!\n! !REMARKS:\n!  Assume that we will always update data more frequently than 1 month.\n!  This means that we only have to compute this interval at initialization.\n!\n! !REVISION HISTORY:\n!  06 Sep 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    ! Scalars\n    INTEGER            :: IncYear,  IncMonth, IncDay, newYmd\n    INTEGER            :: Year,     Month,    Day\n    INTEGER            :: Hour,     Minute,   Second\n    REAL(f8)           :: extraIval\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC        = GC_SUCCESS\n    newYmd    = 0\n    extraIval = 0.0_f8\n    ErrMsg    = ''\n    ThisLoc   = &\n     ' -> at HistContainer_UpdateIvalSet (in History/histcontainer_mod.F90)'\n\n    ! Split the FileCloseYmd interval into constituent fields\n    CALL Ymd_Extract( Container%UpdateYmd, IncYear, IncMonth, IncDay )\n\n    !=======================================================================\n    ! Compute the interval for the \"UpdateAlarm\"\n    !=======================================================================\n    IF ( Container%UpdateYmd >= 010000 ) THEN\n\n       !--------------------------------------------------------------------\n       ! Update interval is one year or greater\n       !--------------------------------------------------------------------\n\n       ! Split the current date & time into its constituent values\n       CALL Ymd_Extract( Container%CurrentYmd, Year, Month, Day )\n\n       ! Update the alarm increment\n       CALL AlarmIncrementYears( IntervalYmd = Container%UpdateYmd,          &\n                                 Year        = Year,                         &\n                                 Month       = Month,                        &\n                                 Increment   = Container%UpdateIvalSec      )\n\n       ! Update the alarm increment for additional months & days\n       IF ( IncMonth > 0 .or. IncDay > 0 ) THEN\n          newYmd = ( IncMonth * 100 ) + IncDay\n          CALL AlarmIncrementMonths( IntervalYmd = newYmd,                   &\n                                     Year        = Year,                     &\n                                     Month       = Month,                    &\n                                     Increment   = extraIval                )\n\n          Container%UpdateIvalSec = Container%UpdateIvalSec + extraIval\n       ENDIF\n\n    ELSE IF ( Container%UpdateYmd <  001200  .and.                           &\n              Container%UpdateYmd >= 000100 ) THEN\n\n       !--------------------------------------------------------------------\n       ! Update interval is between 1 month and 1 year\n       !--------------------------------------------------------------------\n\n       ! Split the current date & time into its constituent values\n       CALL Ymd_Extract( Container%CurrentYmd, Year, Month, Day )\n\n       ! Update the alarm increment\n       CALL AlarmIncrementMonths( IntervalYmd = Container%UpdateYmd,         &\n                                  Year        = Year,                        &\n                                  Month       = Month,                       &\n                                  Increment   = Container%UpdateIvalSec     )\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Update interval is less than 1 month\n       !--------------------------------------------------------------------\n\n       ! Split the file close interval date/time into its constituent values\n       CALL Ymd_Extract( Container%UpdateYmd, Year, Month,  Day    )\n       CALL Ymd_Extract( Container%UpdateHms, Hour, Minute, Second )\n\n       ! \"Update\" interval in seconds\n       Container%UpdateIvalSec = ( DBLE( Day    ) * SECONDS_PER_DAY    ) +   &\n                                 ( DBLE( Hour   ) * SECONDS_PER_HOUR   ) +   &\n                                 ( DBLE( Minute ) * SECONDS_PER_MINUTE ) +   &\n                                 ( DBLE( Second )                      )\n    ENDIF\n\n  END SUBROUTINE HistContainer_UpdateIvalSet\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_FileCloseIvalSet\n!\n! !DESCRIPTION: Defines the alarm interval for the FILE CLOSE/REOPEN operation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_FileCloseIvalSet( Input_Opt, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE Time_Mod,         ONLY : Its_A_Leapyear, Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container  ! HISTORY CONTAINER object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure\n!\n!\n! !REMARKS:\n!  The algorithm may not be as robust when straddling leap-year months, so we\n!  would recommend selecting an interval of 1 month or 1 year at a time.\n!\n! !REVISION HISTORY:\n!  06 Sep 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: IncYear,  IncMonth, IncDay, newYmd\n    INTEGER            :: Year,     Month,    Day\n    INTEGER            :: Hour,     Minute,   Second\n    REAL(f8)           :: extraIval\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg,  ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC        = GC_SUCCESS\n    newYmd    = 0\n    extraIval = 0.0_f8\n    ErrMsg    = ''\n    ThisLoc   = &\n    ' -> at HistContainer_FileCloseIvalSet (in History/histcontainer_mod.F90)'\n\n    ! Split the FileCloseYmd interval into constituent fields\n    CALL Ymd_Extract( Container%FileCloseYmd, IncYear, IncMonth, IncDay )\n\n    !=======================================================================\n    ! Compute the interval for the \"FileCloseAlarm\"\n    !=======================================================================\n    IF ( Container%FileCloseYmd >= 010000 ) THEN\n\n       !--------------------------------------------------------------------\n       ! File close interval is 1 year or greater\n       !--------------------------------------------------------------------\n\n       ! Split the current date & time into its constituent values\n       CALL Ymd_Extract( Container%CurrentYmd, Year, Month, Day )\n\n       ! Update the alarm increment\n       CALL AlarmIncrementYears( IntervalYmd = Container%FileCloseYmd,       &\n                                 Year        = Year,                         &\n                                 Month       = Month,                        &\n                                 Increment   = Container%FileCloseIvalSec   )\n\n       ! Update the alarm increment for additional months & days\n       IF ( IncMonth > 0 .or. IncDay > 0 ) THEN\n          newYmd = ( IncMonth * 100 ) + IncDay\n          CALL AlarmIncrementMonths( IntervalYmd = newYmd,                   &\n                                     Year        = Year,                     &\n                                     Month       = Month,                    &\n                                     Increment   = extraIval                )\n\n          Container%FileCloseIvalSec = Container%FileCloseIvalSec + extraIval\n       ENDIF\n\n    ELSE IF ( Container%FileCloseYmd <  001200  .and.                        &\n              Container%FileCloseYmd >= 000100 ) THEN\n\n       !--------------------------------------------------------------------\n       ! File close interval is between 1 month and 1 year\n       !--------------------------------------------------------------------\n\n       ! Split the current date & time into its constituent values\n       CALL Ymd_Extract( Container%CurrentYmd, Year, Month, Day )\n\n       ! Update the alarm increment\n       CALL AlarmIncrementMonths( IntervalYmd = Container%FileCloseYmd,      &\n                                  Year        = Year,                        &\n                                  Month       = Month,                       &\n                                  Increment   = Container%FileCloseIvalSec  )\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! File close interval is less than 1 month\n       !--------------------------------------------------------------------\n\n       ! Split the file close interval date/time into its constituent values\n       CALL Ymd_Extract( Container%FileCloseYmd, Year, Month,  Day    )\n       CALL Ymd_Extract( Container%FileCloseHms, Hour, Minute, Second )\n\n       ! \"FileClose\" interval in seconds\n       Container%FileCloseIvalSec = ( DBLE(Day   ) * SECONDS_PER_DAY    ) +  &\n                                    ( DBLE(Hour  ) * SECONDS_PER_HOUR   ) +  &\n                                    ( DBLE(Minute) * SECONDS_PER_MINUTE ) +  &\n                                    ( DBLE(Second)                      )\n    ENDIF\n\n  END SUBROUTINE HistContainer_FileCloseIvalSet\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_FileWriteIvalSet\n!\n! !DESCRIPTION: Defines the alarm intervals for the FILE WRITE operation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_FileWriteIvalSet( Input_Opt, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE Time_Mod,         ONLY : Its_A_Leapyear, Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container  ! HISTORY CONTAINER object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC         ! Success or failure\n!\n!\n! !REMARKS:\n!  The algorithm may not be as robust when straddling leap-year months, so we\n!  would recommend selecting an interval of 1 month or 1 year at a time.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: IncYear,  IncMonth, IncDay, newYmd\n    INTEGER            :: Year,     Month,    Day\n    INTEGER            :: Hour,     Minute,   Second\n    REAL(f8)           :: extraIval\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC        = GC_SUCCESS\n    newYmd    = 0\n    extraIval = 0.0_f8\n    ErrMsg    = ''\n    ThisLoc   = &\n    ' -> at HistContainer_FileWriteIvalSet (in History/histcontainer_mod.F90)'\n\n    ! Split the FileCloseYmd interval into constituent fields\n    CALL Ymd_Extract( Container%FileWriteYmd, IncYear, IncMonth, IncDay )\n\n    !=======================================================================\n    ! Compute the interval for the \"FileWriteAlarm\"\n    !=======================================================================\n    IF ( Container%FileWriteYmd >= 010000 ) THEN\n\n       !--------------------------------------------------------------------\n       ! File write interval is one year or greater\n       !--------------------------------------------------------------------\n\n       ! Split the current date & time into its constituent values\n       CALL Ymd_Extract( Container%CurrentYmd, Year, Month, Day )\n\n       ! Update the alarm increment\n       CALL AlarmIncrementYears( IntervalYmd = Container%FileWriteYmd,       &\n                                 Year        = Year,                         &\n                                 Month       = Month,                        &\n                                 Increment   = Container%FileWriteIvalSec   )\n\n       ! Update the alarm increment for additional months & days\n       IF ( IncMonth > 0 .or. IncDay > 0 ) THEN\n          newYmd = ( IncMonth * 100 ) + IncDay\n          CALL AlarmIncrementMonths( IntervalYmd = newYmd,                   &\n                                     Year        = Year,                     &\n                                     Month       = Month,                    &\n                                     Increment   = extraIval                )\n\n          Container%FileWriteIvalSec = Container%FileWriteIvalSec + extraIval\n       ENDIF\n\n    ELSE IF ( Container%FileWriteYmd <  001200  .and.                        &\n              Container%FileWriteYmd >= 000100 ) THEN\n\n       !--------------------------------------------------------------------\n       ! File write interval is one or more months but less than a year\n       !\n       ! This will probably be the most common option.\n       ! Now accounts properly for leap year days. (bmy, 2/26/19)\n       !--------------------------------------------------------------------\n\n       ! Split the current date & time into its constituent values\n       CALL Ymd_Extract( Container%CurrentYmd, Year, Month, Day )\n\n       ! Update the alarm increment\n       CALL AlarmIncrementMonths( IntervalYmd = Container%FileWriteYmd,      &\n                                  Year        = Year,                        &\n                                  Month       = Month,                       &\n                                  Increment   = Container%FileWriteIvalSec  )\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! File write interval is less than a month\n       !--------------------------------------------------------------------\n\n       ! Split the file write interval date/time into its constituent values\n       CALL Ymd_Extract( Container%FileWriteYmd, Year, Month,  Day    )\n       CALL Ymd_Extract( Container%FileWriteHms, Hour, Minute, Second )\n\n       ! \"FileWrite\" interval in seconds\n       Container%FileWriteIvalSec = ( DBLE(Day   ) * SECONDS_PER_DAY    ) +  &\n                                    ( DBLE(Hour  ) * SECONDS_PER_HOUR   ) +  &\n                                    ( DBLE(Minute) * SECONDS_PER_MINUTE ) +  &\n                                    ( DBLE(Second)                      )\n    ENDIF\n\n  END SUBROUTINE HistContainer_FileWriteIvalSet\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistContainer_SetTime\n!\n! !DESCRIPTION: Increments the current astronomical Julian Date of a HISTORY\n!  CONTAINER object by the HeartBeat interval (in fractional days).  Then it\n!  recomputes the corresponding date/time and elapsed minutes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistContainer_SetTime( Input_Opt, Container, HeartBeatDt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE Julday_Mod,      ONLY :CALDATE\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(HistContainer), POINTER     :: Container   ! HISTORY CONTAINER object\n    REAL(f8),            OPTIONAL    :: HeartBeatDt ! Heartbeat increment for\n                                                    !  for timestepping [days]\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!  This routine is called after the initial creation of the HISTORY\n!  CONTAINER object.  It is also called from History_SetTime, which is\n!  placed after the call to History_Update but before History_Write.\n!\n! !REVISION HISTORY:\n!  21 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    ErrMsg  =  ''\n    ThisLoc =  &\n         ' -> at HistContainer_SetTime (in History/history_mod.F90)'\n\n    !========================================================================\n    ! Update the current time by the heartbeat time (in seconds)\n    !========================================================================\n\n    ! Update the Astronomical Julian seconds value by the heartbeat interval.\n    ! Increment in seconds instead of days to avoid roundoff errors.\n    IF ( PRESENT( HeartBeatDt ) ) THEN\n       Container%CurrentJsec = Container%CurrentJsec +                       &\n                               HeartBeatDt\n    ELSE\n       Container%CurrentJsec = Container%CurrentJsec +                       &\n                               Container%HeartBeatDtSec\n    ENDIF\n\n    ! Convert Astronomical Julian Seconds to Astronomical Julian Date,\n    ! for the conversion to calendar date and time. (bmy, 7/11/18)\n    Container%CurrentJd = Container%CurrentJsec / SECONDS_PER_DAY\n\n    ! Convert the Astronomical Julian Date to calendar date and time\n    CALL CalDate( JulianDay = Container%CurrentJd,                           &\n                  yyyymmdd  = Container%CurrentYmd,                          &\n                  hhmmss    = Container%CurrentHms                          )\n\n    !========================================================================\n    ! Compute elapsed time quantities\n    !========================================================================\n\n   ! Compute the elapsed time in seconds since the start of the run\n   CALL Compute_Elapsed_Time( CurrentJsec  = Container%CurrentJsec,          &\n                              TimeBaseJsec = Container%EpochJsec,            &\n                              ElapsedSec   = Container%ElapsedSec           )\n\n\n\n  END SUBROUTINE HistContainer_SetTime\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ComputeAlarmIncrementYears\n!\n! !DESCRIPTION: Given an interval, computes the number of seconds to add\n!  to an alarm, properly accounting for leap years.  This is for the case\n!  when the update frequency is 1 year or greater.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AlarmIncrementYears( IntervalYmd, Year, Month, Increment )\n!\n! !USES:\n!\n    USE History_Util_Mod, ONLY : SECONDS_PER_DAY\n    USE Time_Mod,         ONLY : Its_A_Leapyear, Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: IntervalYmd  ! Update frequency in YYYYMMDD format\n    INTEGER,  INTENT(IN)  :: Year         ! Current year\n    INTEGER,  INTENT(IN)  :: Month        ! Current Month\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: Increment    ! Number of seconds to add to alarm\n!\n! !REVISION HISTORY:\n!  26 Feb 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! SAVEd scalars\n    LOGICAL :: FirstLeap\n\n    ! Scalars\n    INTEGER :: ivalYears, ivalMonths, ivalDays, nYears, T, M, YYYY\n\n    !=======================================================================\n    ! AlarmIncrementYears begins here!\n    !=======================================================================\n\n    ! Initialize\n    FirstLeap = .TRUE.\n    Increment = 0.0_fp\n    nYears    = IntervalYmd / 10000\n\n    ! Break the interval YYYYMMDD into its constituent values\n    CALL Ymd_Extract( IntervalYmd, ivalYears, ivalMonths, ivalDays )\n\n    ! Loop over the requested # of years\n    DO T = 0, nYears-1\n\n       ! Increment the year from the starting year\n       YYYY = Year + T\n\n       ! Compute the increment, accounting for leap years\n       IF ( Its_A_LeapYear( YYYY ) ) THEN\n\n          ! It's the first leap year\n          IF ( FirstLeap ) THEN\n\n             ! If we start after March 1st, the interval is 365 days\n             ! Otherwise, the interval is 366 days.\n             IF ( Month > 2 ) THEN\n                Increment = Increment + ( 365.0_f8 * SECONDS_PER_DAY )\n             ELSE\n                Increment = Increment + ( 366.0_f8 * SECONDS_PER_DAY )\n             ENDIF\n\n             ! Reset first leap year flag\n             FirstLeap  = .FALSE.\n\n          ELSE\n\n             ! For each successive leap year, the interval is 366 days.\n             Increment = Increment + ( 366.0_f8 * SECONDS_PER_DAY )\n\n          ENDIF\n\n       ELSE\n          ! If it's not a leap year, the interval is 365 days.\n          Increment = Increment + ( 365.0_f8 * SECONDS_PER_DAY )\n\n       ENDIF\n\n    ENDDO\n\n  END SUBROUTINE AlarmIncrementYears\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: AlarmIncremenmtMonths\n!\n! !DESCRIPTION: Given an interval, computes the number of seconds to add\n!  to an alarm, properly accounting for leap years.  This is for the case\n!  when the update frequency is between 1 month and 1 year.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AlarmIncrementMonths( IntervalYmd, Year, Month, Increment )\n!\n! !USES:\n!\n    USE History_Util_Mod, ONLY : SECONDS_PER_DAY\n    USE Time_Mod,         ONLY : Its_A_Leapyear, Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: IntervalYmd  ! Update frequency in YYYYMMDD format\n    INTEGER,  INTENT(IN)  :: Year         ! Current year\n    INTEGER,  INTENT(IN)  :: Month        ! Current month\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: Increment    ! Number of seconds to add to alarm\n!\n! !REVISION HISTORY:\n!  26 Feb 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ivalYears, ivalMonths, ivalDays\n    INTEGER :: MM,        nDays,      nMonths\n    INTEGER :: T,         YYYY\n!\n! !DEFINED PARAMETERS:\n!\n    ! Days in non-leap-year months:     J  F  M  A  M  J  J  A  S  O  N  D\n    INTEGER, PARAMETER :: DpM(12) = (/ 31,28,31,30,31,30,31,31,30,31,30,31 /)\n\n    !=======================================================================\n    ! AlarmIncrememntMonths begins here!\n    !=======================================================================\n\n    ! Initialize\n    Increment = 0.0_fp\n    MM        = Month\n    nDays     = 0\n    nMonths   = IntervalYmd / 100\n    YYYY      = Year\n\n    ! Break the interval YYYMMDD into constituent values\n    CALL Ymd_Extract( IntervalYmd, ivalYears, ivalMonths, ivalDays )\n\n    ! Loop over the requested # of months\n    DO T = 0, nMonths-1\n\n       ! Keep a running total of the number of days in the interval\n       ! (i.e. days corresponding to whole months)\n       nDays = nDays + DpM(MM)\n\n       ! Add the leap year day if necessary\n       IF ( Its_A_LeapYear( YYYY ) .and. MM == 2 ) THEN\n          nDays = nDays + 1\n       ENDIF\n\n       ! Increment the month for next iteration\n       MM = MM + 1\n\n       ! Also increment the year if we straddle New Year's Day\n       IF ( MM > 12 ) THEN\n          MM   = 1\n          YYYY = YYYY + 1\n       ENDIF\n\n    ENDDO\n\n    ! Convert from days to seconds.  Also add the number of\n    ! days in the increment not corresponding to whole months\n    ! (e.g. for intervals of a month & a day, etc.)\n    Increment = DBLE( nDays + ivalDays ) * SECONDS_PER_DAY\n\n  END SUBROUTINE AlarmIncrementMonths\n!EOC\nEND MODULE HistContainer_Mod\n"
  },
  {
    "path": "History/histitem_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: histitem_mod.F90\n!\n! !DESCRIPTION: Contains types and methods to create a HISTORY ITEM object.\n!  A HISTORY ITEM represents a single GEOS-Chem diagnostic quantity that\n!  will be archived to netCDF file output.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE HistItem_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: HistItem_Create\n  PUBLIC :: HistItem_Print\n  PUBLIC :: HistItem_Destroy\n!\n! !PUBLIC TYPES:\n!\n  !=========================================================================\n  ! This is the derived type for a SINGLE HISTORY ITEM OBJECT, which will\n  ! hold a quantity from GEOS-Chem that we want to save to netCDF output.\n  !=========================================================================\n  TYPE, PUBLIC :: HistItem\n\n     !----------------------------------------------------------------------\n     ! Identifying information\n     !----------------------------------------------------------------------\n     CHARACTER(LEN=255) :: Name                  ! Item name\n     INTEGER            :: Id                    ! Item Id\n     INTEGER            :: ContainerId           ! Container Id\n\n     !----------------------------------------------------------------------\n     ! netCDF variable attributes (for COARDS-compliance)\n     !----------------------------------------------------------------------\n     INTEGER            :: NcXDimId              ! Id of netCDF X (lon   ) dim\n     INTEGER            :: NcYDimId              ! Id of netCDF Y (lat   ) dim\n     INTEGER            :: NcZDimId              ! Id of netCDF Z (lev C ) dim\n     INTEGER            :: NcIDimId              ! ID of netCDF I (lev E ) dim\n     INTEGER            :: NcTDimId              ! Id of netCDF T (time  ) dim\n     INTEGER            :: NcBdimId              ! Id of netCDF B (bounds) dim\n     INTEGER            :: NcVarId               ! netCDF variable ID\n     CHARACTER(LEN=255) :: LongName              ! Item description\n     CHARACTER(LEN=255) :: Units                 ! Units of data\n     REAL(f4)           :: AddOffset4            ! Offset and scale factor\n     REAL(f4)           :: ScaleFactor4          !  for packed data (4-byte)\n     REAL(f4)           :: MissingValue4         ! Missing value (4-byte)\n     REAL(f8)           :: AddOffset8            ! Offset and scale factor\n     REAL(f8)           :: ScaleFactor8          !  for packed data (8-byte)\n     REAL(f8)           :: MissingValue8         ! Missing value (8-byte)\n     CHARACTER(LEN=255) :: AvgMethod             ! Averaging method\n\n     !----------------------------------------------------------------------\n     ! Pointers to the data in State_Chm, State_Diag, or State_Met\n     !----------------------------------------------------------------------\n     INTEGER            :: Source_KindVal        ! Identifies the source type\n     INTEGER            :: Output_KindVal        ! Identifies the output type\n\n     REAL(f8), POINTER  :: Source_0d_8           ! Ptr to 0D 8-byte    data\n\n     REAL(f8), POINTER  :: Source_1d_8(:    )    ! Ptr to 1D 8-byte    data\n     REAL(f4), POINTER  :: Source_1d_4(:    )    ! Ptr to 1D 4-byte    data\n     INTEGER,  POINTER  :: Source_1d_I(:    )    ! Ptr to 1D integer   data\n\n     REAL(f8), POINTER  :: Source_2d_8(:,:  )    ! Ptr to 2D 8-byte    data\n     REAL(f4), POINTER  :: Source_2d_4(:,:  )    ! Ptr to 2D 4-byte    data\n     INTEGER,  POINTER  :: Source_2d_I(:,:  )    ! Ptr to 2D integer   data\n\n     REAL(f8), POINTER  :: Source_3d_8(:,:,:)    ! Ptr to 3D 8-byte    data\n     REAL(f4), POINTER  :: Source_3d_4(:,:,:)    ! Ptr to 3D 4-byte    data\n     INTEGER,  POINTER  :: Source_3d_I(:,:,:)    ! Ptr to 3D integer   data\n\n     !----------------------------------------------------------------------\n     ! Data arrays\n     !----------------------------------------------------------------------\n     INTEGER            :: SpaceDim              ! # of dims (0-3)\n     REAL(f8), POINTER  :: Data_0d               ! 0D scalar\n     REAL(f8), POINTER  :: Data_1d(:    )        ! 1D vector\n     REAL(f8), POINTER  :: Data_2d(:,:  )        ! 2D array\n     REAL(f8), POINTER  :: Data_3d(:,:,:)        ! 3D array\n     CHARACTER(LEN=3)   :: DimNames              ! Used to specify if data is\n                                                 !  \"xyz\", \"yz\", \"x\", \"y\" etc.\n     INTEGER, POINTER   :: NcChunkSizes(:)       ! Chunk sizes for netCDF\n     LOGICAL            :: OnLevelEdges          ! =T if data is defined on\n                                                 !    vertical level edges;\n                                                 ! =F if on level centers\n\n     !----------------------------------------------------------------------\n     ! Data archival\n     !----------------------------------------------------------------------\n     REAL(f8)           :: nUpdates              ! # of times updated\n     INTEGER            :: Operation             ! Operation code\n                                                 !  0=copy from source\n                                                 !  1=accumulate from source\n   END TYPE HistItem\n!\n! !REMARKS:\n!  Linked list routines taken from original code (linkedlist.f90)\n!  by Arjen Markus; http://flibs.sourceforge.net/linked_list.html\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistItem_Create\n!\n! !DESCRIPTION: Initializes a single history item that will be archived\n!  via History (and eventually sent to netCDF output).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistItem_Create( Input_Opt,     Item,           Id,             &\n                              ContainerId,   Name,           RC,             &\n                              LongName,      Units,          SpaceDim,       &\n                              OnLevelEdges,  AddOffset4,     MissingValue4,  &\n                              ScaleFactor4,  AddOffset8,     ScaleFactor8,   &\n                              MissingValue8, Source_KindVal, Output_KindVal, &\n                              Operation,     DimNames,       Dimensions,     &\n                              Subset_X,      Subset_Y,       Subset_Z,       &\n                              Source_0d_8,   Source_1d_8,    Source_1d_4,    &\n                              Source_1d_I,   Source_2d_8,    Source_2d_4,    &\n                              Source_2d_I,   Source_3d_8,    Source_3d_4,    &\n                              Source_3d_I                                   )\n!\n! !USES:\n!\n  USE CharPak_Mod,         ONLY : TranLc\n  USE ErrCode_Mod\n  USE History_Util_Mod\n  USE Input_Opt_Mod,       ONLY : OptInput\n  USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    ! Required arguments\n    TYPE(OptInput),    INTENT(IN)  :: Input_Opt          ! Input Options object\n    INTEGER,           INTENT(IN)  :: Id                 ! History item Id #\n    INTEGER,           INTENT(IN)  :: ContainerId        ! Container Id #\n    CHARACTER(LEN=*),  INTENT(IN)  :: Name               ! Item's short name\n    CHARACTER(LEN=*),  INTENT(IN)  :: LongName           ! Item's long name\n    CHARACTER(LEN=*),  INTENT(IN)  :: Units              ! Units of the data\n    INTEGER,           INTENT(IN)  :: SpaceDim           ! Dimension of data\n    INTEGER,           INTENT(IN)  :: Subset_X(2)        ! X0, X1 indices\n    INTEGER,           INTENT(IN)  :: Subset_Y(2)        ! Y0, Y1 indices\n    INTEGER,           INTENT(IN)  :: Subset_Z(2)        ! Z0, Z1 indices\n\n    ! Optional arguments\n    LOGICAL,           OPTIONAL    :: OnLevelEdges       ! =T if data defined\n                                                         !  on level edges;\n                                                         ! =F if on centers\n    REAL(f4),          OPTIONAL    :: AddOffset4         ! COARDS-compliant\n    REAL(f4),          OPTIONAL    :: MissingValue4      !  attributes for\n    REAL(f4),          OPTIONAL    :: ScaleFactor4       !  netCDF output\n    REAL(f4),          OPTIONAL    :: AddOffset8         ! COARDS-compliant\n    REAL(f4),          OPTIONAL    :: MissingValue8      !  attributes for\n    REAL(f4),          OPTIONAL    :: ScaleFactor8       !  netCDF output\n    INTEGER,           OPTIONAL    :: Operation          ! Operation code\n                                                         !  0=copy  from source\n                                                         !  1=accum from source\n    CHARACTER(LEN=*),  OPTIONAL    :: DimNames           ! Use this to specify\n                                                         !  dimensions of data\n                                                         !  (\"yz\", \"z\", etc.)\n\n    ! Optional pointers to data targets\n    INTEGER,           OPTIONAL    :: Source_KindVal     ! Kind of source data\n    INTEGER,           OPTIONAL    :: Output_KindVal     ! Type of output data\n    REAL(f8), POINTER, OPTIONAL    :: Source_0d_8        ! 0D 8-byte    data\n    REAL(f8), POINTER, OPTIONAL    :: Source_1d_8(:    ) ! 1D 8-byte    data\n    REAL(f4), POINTER, OPTIONAL    :: Source_1d_4(:    ) ! 1D 4-byte    data\n    INTEGER,  POINTER, OPTIONAL    :: Source_1d_I(:    ) ! 1D integer   data\n    REAL(f8), POINTER, OPTIONAL    :: Source_2d_8(:,:  ) ! 2D 8-byte    data\n    REAL(f4), POINTER, OPTIONAL    :: Source_2d_4(:,:  ) ! 2D 4-byte    data\n    INTEGER,  POINTER, OPTIONAL    :: Source_2d_I(:,:  ) ! 2D integer   data\n    REAL(f8), POINTER, OPTIONAL    :: Source_3d_8(:,:,:) ! 3D 8-byte    data\n    REAL(f4), POINTER, OPTIONAL    :: Source_3d_4(:,:,:) ! 3D 4-byte    data\n    INTEGER,  POINTER, OPTIONAL    :: Source_3d_I(:,:,:) ! 3D integer   data\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistItem),    POINTER     :: Item               ! HISTORY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,           OPTIONAL    :: Dimensions(3)      ! Spatial dims of data\n    INTEGER,           INTENT(OUT) :: RC                 ! Success or failure\n!\n! !REMARKS:\n!  (1) We need to copy string data to a temporary string of length 255\n!       characters, or else Gfortran will choke.\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: Is_DimNames\n    LOGICAL            :: Is_0d_8\n    LOGICAL            :: Is_1d_8,     Is_1d_4,  Is_1d_I\n    LOGICAL            :: Is_2d_8,     Is_2d_4,  Is_2d_I\n    LOGICAL            :: Is_3d_8,     Is_3d_4,  Is_3d_I\n    INTEGER            :: X0,          X1,       Y0,       Y1\n    INTEGER            :: Z0,          Z1,       N\n\n    ! Arrays\n    INTEGER            :: Dims(3)\n\n    ! Strings\n    CHARACTER(LEN=3  ) :: TmpDimNames\n    CHARACTER(LEN=255) :: ErrMsg,     ThisLoc,  TempStr\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC               =  GC_SUCCESS\n    Dims             =  UNDEFINED_INT\n    ErrMsg           =  ''\n    ThisLoc          =  ' -> at HistItem_Create (in History/histitem_mod.F90)'\n\n    ! Allocate the Item object\n    ALLOCATE( Item, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot allocate the \"Item\" object!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Zero the data fields\n    Item%Data_0d     => NULL()\n    Item%Data_1d     => NULL()\n    Item%Data_2d     => NULL()\n    Item%Data_3d     => NULL()\n\n    ! Determine if the optional source pointers are passed\n    Is_0d_8          =  PRESENT( Source_0d_8 )\n    Is_1d_8          =  PRESENT( Source_1d_8 )\n    Is_1d_4          =  PRESENT( Source_1d_4 )\n    Is_1d_I          =  PRESENT( Source_1d_I )\n    Is_2d_8          =  PRESENT( Source_2d_8 )\n    Is_2d_4          =  PRESENT( Source_2d_4 )\n    Is_2d_I          =  PRESENT( Source_2d_I )\n    Is_3d_8          =  PRESENT( Source_3d_8 )\n    Is_3d_4          =  PRESENT( Source_3d_4 )\n    Is_3d_I          =  PRESENT( Source_3d_I )\n\n    ! Zero optional source pointers\n    IF ( Is_0d_8 ) Item%Source_0d_8 => NULL()\n    IF ( Is_1d_8 ) Item%Source_1d_8 => NULL()\n    IF ( Is_1d_4 ) Item%Source_1d_4 => NULL()\n    IF ( Is_1d_I ) Item%Source_1d_I => NULL()\n    IF ( Is_2d_8 ) Item%Source_2d_8 => NULL()\n    IF ( Is_2d_4 ) Item%Source_2d_4 => NULL()\n    IF ( Is_2d_I ) Item%Source_2d_I => NULL()\n    IF ( Is_3d_8 ) Item%Source_3d_8 => NULL()\n    IF ( Is_3d_4 ) Item%Source_3d_4 => NULL()\n    IF ( Is_3d_I ) Item%Source_3d_I => NULL()\n\n    ! Initialize indices\n    X0 = UNDEFINED_INT\n    X1 = UNDEFINED_INT\n    X1 = UNDEFINED_INT\n    Y1 = UNDEFINED_INT\n    Z1 = UNDEFINED_INT\n    Z1 = UNDEFINED_INT\n\n    ! Zero the number of updates (won't get set until History_Update)\n    ! in order to prevent uninitialized values from causing side-effects.\n    Item%nUpdates = 0.0_f8\n\n    !========================================================================\n    ! Required inputs, handle these first\n    !========================================================================\n\n    !--------------------------------------------\n    ! ID of this Item\n    !--------------------------------------------\n    IF ( Id >= 0 ) THEN\n       Item%Id = Id\n    ELSE\n       ErrMsg = '\"Id\" cannot be negative!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------------\n    ! Id of the container this item belongs to\n    !--------------------------------------------\n    IF ( ContainerId >= 0 ) THEN\n       Item%ContainerId = ContainerId\n    ELSE\n       ErrMsg = '\"ContainerId\" cannot be negative!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------------\n    ! Name (aka \"short name\")\n    !--------------------------------------------\n    IF ( LEN_TRIM( Name ) > 0 ) THEN\n       TempStr   = Name\n       Item%Name = TempStr\n    ELSE\n       ErrMsg = 'You must specify a value for \"Name\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------------\n    ! LongName\n    !--------------------------------------------\n    IF ( LEN_TRIM( LongName ) > 0 ) THEN\n       TempStr       = LongName\n       Item%LongName = TempStr\n    ELSE\n       ErrMsg = 'You must specify a value for \"LongName\"'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------------\n    ! Units\n    !--------------------------------------------\n    IF ( LEN_TRIM( Units ) > 0 ) THEN\n       TempStr    = Units\n       Item%Units = TempStr\n    ELSE\n       ErrMsg = 'You must specify a value for \"Units\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !--------------------------------------------\n    ! These won't be defined until we enter\n    ! netCDF define mode, so set them undefined\n    !--------------------------------------------\n    Item%NcXDimId = UNDEFINED_INT\n    Item%NcYDimId = UNDEFINED_INT\n    Item%NcZDimId = UNDEFINED_INT\n    Item%NcIDimId = UNDEFINED_INT\n    Item%NcTDimId = UNDEFINED_INT\n    Item%NcBDimId = UNDEFINED_INT\n    Item%NcVarId  = UNDEFINED_INT\n\n    !========================================================================\n    ! Optional inputs, handle these next\n    !========================================================================\n\n    !--------------------------------------------\n    ! OnLevelEdges\n    !--------------------------------------------\n    IF ( PRESENT( OnLevelEdges ) ) THEN\n       Item%OnLevelEdges = OnLevelEdges\n    ELSE\n       Item%OnLevelEdges = .FALSE.\n    ENDIF\n\n    !--------------------------------------------\n    ! Add_Offset - 4 bytes\n    !--------------------------------------------\n    IF ( PRESENT( AddOffset4 ) ) THEN\n       Item%AddOffset4 = AddOffset4\n    ELSE\n       Item%AddOffset4 = 0.0_f4\n    ENDIF\n\n    !--------------------------------------------\n    ! Add_Offset - 8 bytes\n    !--------------------------------------------\n    IF ( PRESENT( AddOffset8 ) ) THEN\n       Item%AddOffset8 = AddOffset8\n    ELSE\n       Item%AddOffset8 = 0.0_f8\n    ENDIF\n\n    !--------------------------------------------\n    ! MissingValue - 4 bytes\n    !--------------------------------------------\n    IF ( PRESENT( MissingValue4 ) ) THEN\n       Item%MissingValue4 = MissingValue4\n    ELSE\n       Item%MissingValue4 = UNDEFINED\n    ENDIF\n\n    !--------------------------------------------\n    ! MissingValue - 8 bytes\n    !--------------------------------------------\n    IF ( PRESENT( MissingValue8 ) ) THEN\n       Item%MissingValue8 = MissingValue8\n    ELSE\n       Item%MissingValue8 = UNDEFINED_DBL\n    ENDIF\n\n    !--------------------------------------------\n    ! Scale_Factor - 4 bytes\n    !--------------------------------------------\n    IF ( PRESENT( ScaleFactor4 ) ) THEN\n       Item%ScaleFactor4 = ScaleFactor4\n    ELSE\n       Item%ScaleFactor4 = 1.0_f4\n    ENDIF\n\n    !--------------------------------------------\n    ! Scale_Factor - 8 bytes\n    !--------------------------------------------\n    IF ( PRESENT( ScaleFactor4 ) ) THEN\n       Item%ScaleFactor8 = ScaleFactor8\n    ELSE\n       Item%ScaleFactor8 = 1.0_f8\n    ENDIF\n\n    !--------------------------------------------\n    ! Source_KindVal\n    !--------------------------------------------\n    IF ( PRESENT( Source_KindVal ) ) THEN\n       Item%Source_KindVal = Source_KindVal\n    ELSE\n       Item%Source_KindVal = KINDVAL_FP\n    ENDIF\n\n    !--------------------------------------------\n    ! Output_KindVal (assume 4-byte output\n    ! if not otherwise explicitly stated)\n    !--------------------------------------------\n    IF ( PRESENT( Output_KindVal ) ) THEN\n       Item%Output_KindVal = Output_KindVal\n    ELSE\n       Item%Output_KindVal = KINDVAL_F4\n    ENDIF\n\n    !--------------------------------------------\n    ! Operation\n    !--------------------------------------------\n    IF ( PRESENT( Operation ) ) THEN\n       Item%Operation = Operation\n    ELSE\n       Item%Operation = COPY_FROM_SOURCE\n    ENDIF\n\n    !--------------------------------------------\n    ! DimNames\n    !--------------------------------------------\n    IF ( PRESENT( DimNames ) ) THEN\n       TmpDimNames = DimNames\n       CALL TranLc( TmpDimNames )\n    ELSE\n       TmpDimNames = '  '\n    ENDIF\n\n    !--------------------------------------------\n    ! Averaging method (define from Operation)\n    !--------------------------------------------\n    IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n       TempStr        = 'instantaneous'\n       Item%AvgMethod = TempStr\n    ELSE\n       TempStr        = 'time-averaged'\n       Item%AvgMethod = TempStr\n    ENDIF\n\n    !========================================================================\n    ! Make sure the spatial dimension is in the range 0-3\n    !========================================================================\n    IF ( SpaceDim < 0 .or. SpaceDim > 3 ) THEN\n       ErrMsg = 'SpaceDim must be in the range 0-3!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ELSE\n       Item%SpaceDim = SpaceDim\n    ENDIF\n\n    !=======================================================================\n    ! Set the DimNames field of the HISTORY ITEM\n    !=======================================================================\n    IF ( PRESENT( DimNames ) ) THEN\n\n       ! If the DimNames argument was passed, use it\n       Item%DimNames = DimNames\n\n    ELSE\n\n       ! Set default values if the DimNames argument isn't passed\n       ! Most of the time we deal with either xy or xyz spatial data\n       SELECT CASE( Item%SpaceDim )\n          CASE( 3 )\n             Item%DimNames = 'xyz'\n          CASE( 2 )\n             Item%DimNames = 'xy '\n          CASE( 1 )\n             Item%DimNames = 'x  '\n          CASE( 0 )\n             Item%DimNames = '-  '\n       END SELECT\n\n    ENDIF\n\n    !========================================================================\n    ! Attach pointers to the data source.  Also get the values of NX, NY,\n    ! and NZ from the relevant source pointer if they were not passed.\n    !========================================================================\n    SELECT CASE( Item%SpaceDim )\n\n       ! Attach pointer to 3D data source, depending on its type\n       CASE( 3 )\n\n          ! Subsets: assume all 3d are xyz\n          X0 = Subset_X(1); X1 = Subset_X(2)\n          Y0 = Subset_Y(1); Y1 = Subset_Y(2)\n          Z0 = Subset_Z(1); Z1 = Subset_Z(2)\n\n          IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n             IF ( Is_3d_8 ) THEN\n                Item%Source_3d_8 => Source_3d_8(X0:X1, Y0:Y1, Z0:Z1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_3d_8(X0:X1, Y0:Y1, Z0:Z1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ELSE IF ( Item%Source_KindVal == KINDVAL_F4 ) THEN\n             IF ( Is_3d_4 ) THEN\n                Item%Source_3d_4 => Source_3d_4(X0:X1, Y0:Y1, Z0:Z1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_3d_4(X0:X1, Y0:Y1, Z0:Z1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ELSE IF ( Item%Source_KindVal == KINDVAL_I4 ) THEN\n             IF ( Is_3d_I ) THEN\n                Item%Source_3d_I => Source_3d_I(X0:X1, Y0:Y1, Z0:Z1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_3d_I(X0:X1, Y0:Y1, Z0:Z1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ENDIF\n\n       ! Attach pointer to 2D data source, depending on its type\n       CASE( 2 )\n\n          ! Subsets: These will be xy, bx, or by\n          X0 = Subset_X(1); X1 = Subset_X(2)\n          Y0 = Subset_Y(1); Y1 = Subset_Y(2)\n\n          IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n             IF ( Is_2d_8 ) THEN\n                Item%Source_2d_8 => Source_2d_8(X0:X1, Y0:Y1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_2d_8(X0:X1, Y0:Y1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ELSE IF ( Item%Source_KindVal == KINDVAL_F4 ) THEN\n             IF ( Is_2d_4 ) THEN\n                Item%Source_2d_4 => Source_2d_4(X0:X1, Y0:Y1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_2d_4(X0:X1, Y0:Y1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ELSE IF ( Item%Source_KindVal == KINDVAL_I4 ) THEN\n             IF ( Is_2d_I ) THEN\n                Item%Source_2d_I => Source_2d_I(X0:X1, Y0:Y1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_2d_I(X0:X1, Y0:Y1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ENDIF\n\n       ! Attach pointer to 1D data source, depending on its type\n       CASE( 1 )\n\n          ! Subsets\n          SELECT CASE( TRIM( Item%DimNames ) )\n             CASE( 'x' )\n                X0 = Subset_X(1); X1 = Subset_X(2)\n             CASE( 'y' )\n                X0 = Subset_Y(1); X1 = Subset_Y(2)\n             CASE( 'z' )\n                X0 = Subset_Z(1); X1 = Subset_Z(2)\n             CASE DEFAULT\n                X0 = 1;           X1 = 1\n          END SELECT\n\n          IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n             IF ( Is_1d_8 ) THEN\n                Item%Source_1d_8 => Source_1d_8(X0:X1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_1d_8(X0:X1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ELSE IF ( Item%Source_KindVal == KINDVAL_F4 ) THEN\n             IF ( Is_1d_4 ) THEN\n                Item%Source_1d_4 => Source_1d_4(X0:X1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_1d_4(X0:X1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ELSE IF ( Item%Source_KindVal == KINDVAL_I4 ) THEN\n             IF ( Is_1d_I ) THEN\n                Item%Source_1d_I => Source_1d_I(X0:X1)\n                DO N = 1, Item%SpaceDim\n                   Dims(N) = SIZE( Source_1d_I(X0:X1), N )\n                ENDDO\n                GOTO 99\n             ENDIF\n          ENDIF\n\n       ! Attach pointer to 0D data source, depending on its type\n       CASE( 0 )\n          IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n             IF ( Is_0d_8 ) THEN\n                Item%Source_0d_8 => Source_0d_8\n                Dims             =  0\n             ENDIF\n          ENDIF\n\n    END SELECT\n\n    !=======================================================================\n    ! Data fields: Allocate data fields (0-3 dimensions)\n    !=======================================================================\n 99 CONTINUE\n\n    ! Allocate data field, based on SpaceDim\n    SELECT CASE( Item%SpaceDim )\n\n       !------------\n       ! 3-D data\n       !------------\n       CASE( 3 )\n\n          ! Allocate the data array\n          ALLOCATE( Item%Data_3d( Dims(1), Dims(2), Dims(3) ), STAT=RC )\n          IF ( RC == GC_SUCCESS ) THEN\n             Item%Data_3d = 0.0_f8\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%Data_3d\" array!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Allocate the NcChunkSizes array\n          ALLOCATE( Item%NcChunkSizes( 4 ), STAT=rC )\n          IF ( RC == GC_SUCCESS ) THEN\n             Item%NcChunkSizes = (/ Dims(1), Dims(2), 1, 1 /)\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%NcChunkSizes\" array (3d)!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       !------------\n       ! 2-D data\n       !------------\n       CASE( 2 )\n          ALLOCATE( Item%Data_2d( Dims(1), Dims(2) ), STAT=RC )\n          IF ( RC == GC_SUCCESS ) THEN\n             Item%Data_2d = 0.0_f8\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%Data_2d\" array!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Allocate the NcChunkSizes array\n          ALLOCATE( Item%NcChunkSizes( 3 ), STAT=rC )\n          IF ( RC == GC_SUCCESS ) THEN\n             SELECT CASE( TRIM( Item%DimNames ) )\n                CASE( 'xy' )\n                   Item%NcChunkSizes = (/ Dims(1), Dims(2), 1 /)   ! xy\n                CASE( 'bx', 'by' )\n                   Item%NcChunkSizes = (/ Dims(1), 1,       1 /)   ! bx, by\n                CASE DEFAULT\n                   Item%NcChunkSizes = (/ Dims(1), 1,       1 /)   ! xz or yz\n             END SELECT\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%NcChunkSizes\" array (2d)!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       !------------\n       ! 1-D data\n       !------------\n       CASE( 1 )\n          ALLOCATE( Item%Data_1d( Dims(1) ), STAT=RC )\n          IF ( RC == GC_SUCCESS ) THEN\n             Item%Data_1d  = 0.0_f8\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%Data_1d\" array!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Allocate the NcChunkSizes array\n          ALLOCATE( Item%NcChunkSizes( 2 ), STAT=rC )\n          IF ( RC == GC_SUCCESS ) THEN\n             IF ( TRIM( Item%DimNames ) == 'z' ) THEN\n                Item%NcChunkSizes = (/ 1,       1 /)   ! z\n             ELSE\n                Item%NcChunkSizes = (/ Dims(1), 1 /)   ! x or y\n             ENDIF\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%NcChunkSizes\" array (1d)!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n       !------------\n       ! 0-D data\n       !------------\n       CASE( 0 )\n          ALLOCATE( Item%Data_0d, STAT=RC )\n          IF ( RC == GC_SUCCESS ) THEN\n             Item%Data_0d = 0.0_f8\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%Data_0d\" variable!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Allocate the NcChunkSizes array\n          ALLOCATE( Item%NcChunkSizes( 1 ), STAT=RC )\n          IF ( RC == GC_SUCCESS ) THEN\n             Item%NcChunkSizes = (/ 1 /)\n          ELSE\n             ErrMsg = 'Could not allocate \"Item%NcChunkSizes\" array (0d)!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n    END SELECT\n\n    !=======================================================================\n    ! Return to the calling program the spatial dimensions of the data\n    ! if the optional DIMENSIONS argument has been passed\n    !=======================================================================\n    IF ( PRESENT( Dimensions ) ) Dimensions = Dims\n\n  END SUBROUTINE HistItem_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistItem_Print\n!\n! !DESCRIPTION: Prints information contained within a single history item.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistItem_Print( Input_Opt, Item, RC, ShortFormat )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,   ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt    ! Input Options object\n    TYPE(HistItem), POINTER     :: Item         ! History Item\n    LOGICAL,        OPTIONAL    :: ShortFormat  ! Print truncated format\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARAIBLES\n!\n    ! Scalars\n    LOGICAL          :: Use_ShortFormat\n\n    ! Strings\n    CHARACTER(LEN=1) :: CellPos\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n    CellPos = ''\n\n    ! Define\n    IF ( PRESENT( ShortFormat ) ) THEN\n       Use_ShortFormat = ShortFormat\n    ELSE\n       Use_ShortFormat = .FALSE.\n    ENDIF\n\n    !=======================================================================\n    ! Print information about this HISTORY ITEM (only on the root CPU)\n    !=======================================================================\n    IF ( ASSOCIATED( Item ) .and. Input_Opt%amIRoot ) THEN\n\n       IF ( Use_ShortFormat ) THEN\n\n          !-----------------------------------------------------------------\n          ! Use truncated output format\n          !-----------------------------------------------------------------\n\n          ! Denote if the data is defined on\n          ! level edges (E) or centers (C)\n          IF ( Item%SpaceDim == 3 ) THEN\n             IF ( Item%OnLevelEdges ) THEN\n                CellPos = 'E'\n             ELSE\n                CellPos = 'C'\n             ENDIF\n          ENDIF\n\n          ! Print information\n          WRITE( 6, 100 ) Item%Name,     Item%LongName,                      &\n                          Item%DimNames, CellPos,       TRIM( Item%Units )\n 100      FORMAT( 2x, a20, ' | ', a38, ' | ', a3, ' ', a1, ' | ', a )\n\n       ELSE\n\n          !-----------------------------------------------------------------\n          ! Use expanded output format\n          !-----------------------------------------------------------------\n          PRINT*, REPEAT( '-', 70 )\n          PRINT*, 'Name           : ', TRIM( Item%Name     )\n          PRINT*, 'Long_Name      : ', TRIM( Item%LongName )\n          PRINT*, 'Units          : ', TRIM( Item%Units    )\n          PRINT*, 'OnLevelEdges   : ', Item%OnLevelEdges\n          PRINT*, 'AddOffset4     : ', Item%AddOffset4\n          PRINT*, 'AddOffset8     : ', Item%AddOffset8\n          PRINT*, 'MissingValue4  : ', Item%MissingValue4\n          PRINT*, 'MissingValue8  : ', Item%MissingValue8\n          PRINT*, 'ScaleFactor4   : ', Item%ScaleFactor4\n          PRINT*, 'ScaleFactor8   : ', Item%ScaleFactor8\n          PRINT*, ''\n          PRINT*, 'Id             : ', Item%ID\n          PRINT*, 'CollectionId   : ', Item%ContainerId\n          PRINT*, 'NetCDF var ID  : ', Item%NcVarId\n          PRINT*, 'NetCDF xDim Id : ', Item%NcXDimId\n          PRINT*, 'NetCDF yDim Id : ', Item%NcYDimId\n          PRINT*, 'NetCDF zDim Id : ', Item%NcZDimId\n          PRINT*, 'NetCDF iDim Id : ', Item%NcIDimId\n          PRINT*, 'NetCDF tDim Id : ', Item%NcTDimId\n          PRINT*, ''\n          PRINT*, 'nUpdates       : ', Item%nUpdates\n          PRINT*, 'Operation      : ', Item%Operation\n          PRINT*, ''\n          PRINT*, 'SpaceDim       : ', Item%SpaceDim, ' (', Item%DimNames, ')'\n          PRINT*, 'NcChunkSizes   : ', Item%NcChunkSizes\n\n          IF ( ASSOCIATED( Item%Data_0d ) ) THEN\n             PRINT*, 'Value Data_0d  : ', Item%Data_0d\n          ENDIF\n\n          IF ( ASSOCIATED( Item%Data_1d ) ) THEN\n             PRINT*, 'Min   Data_1d  : ', MINVAL( Item%Data_1d    )\n             PRINT*, 'Max   Data_1d  : ', MAXVAL( Item%Data_1d    )\n             PRINT*, 'Total Data_1d  : ', SUM   ( Item%Data_1d    )\n             PRINT*, 'Size  Data_1d  : ', SIZE  ( Item%Data_1d    )\n          ENDIF\n\n          IF ( ASSOCIATED( Item%Data_2d ) ) THEN\n             PRINT*, 'Min   Data_2d  : ', MINVAL( Item%Data_2d    )\n             PRINT*, 'Max   Data_2d  : ', MAXVAL( Item%Data_2d    )\n             PRINT*, 'Total Data_2d  : ', SUM   ( Item%Data_2d    )\n             PRINT*, 'Size  Data_2d  : ', SIZE  ( Item%Data_2d, 1 ), &\n                                          SIZE  ( Item%Data_2d, 2 )\n          ENDIF\n\n          IF ( ASSOCIATED( Item%Data_3d ) ) THEN\n             PRINT*, 'Min   Data_3d  : ', MINVAL( Item%Data_3d    )\n             PRINT*, 'Max   Data_3d  : ', MAXVAL( Item%Data_3d    )\n             PRINT*, 'Total Data_3d  : ', SUM   ( Item%Data_3d    )\n             PRINT*, 'Size  Data_3d  : ', SIZE  ( Item%Data_3d, 1 ), &\n                                          SIZE  ( Item%Data_3d, 2 ), &\n                                          SIZE  ( Item%Data_3d, 3 )\n          ENDIF\n\n\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE HistItem_Print\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n\n! !IROUTINE: HistItem_Destroy( Item )\n!\n! !DESCRIPTION: Deallocates all pointer-based array fields of the history\n!  item, then destroys the history item itself.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistItem_Destroy( Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistItem), POINTER     :: Item        ! History item\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    ErrMsg = ''\n    ThisLoc = ' -> at HistItem_Destroy (in History/histitem_mod.F90)'\n\n    !=======================================================================\n    ! Nullify fields that are just pointing to other objects\n    !======================================================================\n    Item%Source_0d_8 => NULL()\n    Item%Source_1d_8 => NULL()\n    Item%Source_1d_4 => NULL()\n    Item%Source_1d_I => NULL()\n    Item%Source_2d_8 => NULL()\n    Item%Source_2d_4 => NULL()\n    Item%Source_2d_I => NULL()\n    Item%Source_3d_8 => NULL()\n    Item%Source_3d_4 => NULL()\n    Item%Source_3d_I => NULL()\n\n    !=======================================================================\n    ! Free allocated pointer-based fields\n    !=======================================================================\n    IF ( ASSOCIATED( Item%Data_3d ) ) THEN\n       DEALLOCATE( Item%Data_3d, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not deallocate \"Item%Data_3d\" array!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( ASSOCIATED( Item%Data_2d ) ) THEN\n       DEALLOCATE( Item%Data_2d, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not deallocate \"Item%Data_2d\" array!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( ASSOCIATED( Item%Data_1d ) ) THEN\n       DEALLOCATE( Item%Data_1d, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not deallocate \"Item%Data_1d\" array!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( ASSOCIATED( Item%Data_0d ) ) THEN\n       DEALLOCATE( Item%Data_0d, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not deallocate \"Item%Data_0d\" variable!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    IF ( ASSOCIATED( Item%NcChunkSizes ) ) THEN\n       DEALLOCATE( Item%NcChunkSizes, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not deallocate \"Item%NcChunkSizes\" array!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Free the History Item itself\n    !=======================================================================\n    IF ( ASSOCIATED( Item ) ) THEN\n       DEALLOCATE( Item, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not deallocate \"Item\"'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE HistItem_Destroy\n!EOC\nEND MODULE HistItem_Mod\n"
  },
  {
    "path": "History/history_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: history_mod.F90\n!\n! !DESCRIPTION: Driver module for GEOS-Chem's netCDF diagnostics package, aka\n!  the \"History Component\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE History_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n  USE HistContainer_Mod,     ONLY : HistContainer\n  USE MetaHistContainer_Mod, ONLY : MetaHistContainer\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: History_Init\n  PUBLIC  :: History_SetTime\n  PUBLIC  :: History_Update\n  PUBLIC  :: History_Write\n  PUBLIC  :: History_Cleanup\n!\n! PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: History_ReadCollectionNames\n  PRIVATE :: History_ReadCollectionData\n  PRIVATE :: History_AddItemToCollection\n  PRIVATE :: History_Close_AllFiles\n!\n! !REMARKS:\n!\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  ! Scalars\n  INTEGER                              :: CollectionCount\n\n  ! Strings\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionName       (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionFileName   (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionTemplate   (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionFrequency  (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionAccInterval(:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionDuration   (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionMode       (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionLonRange   (:  )\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionLatRange   (:  )\n  INTEGER,                 ALLOCATABLE :: CollectionSubsetInd  (:,:)\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionLevels     (:  )\n  INTEGER,                 ALLOCATABLE :: CollectionLevelInd   (:,:)\n  CHARACTER(LEN=255),      ALLOCATABLE :: CollectionHrRange    (:  )\n\n  ! Objects\n  TYPE(MetaHistContainer), POINTER     :: CollectionList\n!\n! !DEFINED PARAMETERS:\n!\n  ! Maximum number of collections (set to a ridiculously big number)\n  INTEGER,                 PARAMETER   :: MAX_COLLECTIONS = 500\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Init\n!\n! !DESCRIPTION: Reads the HISTORY.rc file and creates the linked list of\n!  collections (i.e. netCDF diagnostic files containing several data fields\n!  with a specified update frequency).  The list of fields belonging to\n!  each collection is also determined.\n!\\\\\n!\\\\\n!  Each collection is described by a HISTORY CONTAINER object, which also\n!  contains a linked list of diagnostic quantities (i.e. a METAHISTORY ITEM)\n!  that will be archived to netCDF format.  The list of diagnostic quantities\n!  is determined here by parsing the HISTORY.rc file.\n!\\\\\n!\\\\\n!  NOTE: The HISTORY.rc file is read twice.  The first (done by method\n!  History\\_ReadCollectionNames) reads the list of all collections.  Then,\n!  for each defined collection, the list of diagnostic quantities belonging\n!  to that collection is determined by routine History\\_ReadCollectionData.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Init( Input_Opt,  State_Met,  State_Chm,                &\n                           State_Diag, State_Grid, RC                       )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod ,     ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt    ! Input Option object\n    TYPE(ChmState),   INTENT(IN)    :: State_Chm    ! Chemistry State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met    ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState),   INTENT(INOUT) :: State_Grid   ! Grid State object\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag   ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC           ! Success or failure\n!\n! !REMARKS:\n!  Calls internal routines History_ReadCollectionNames,\n!  History_ReadCollectionData, and History_InitCoordVars\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n     ' -> at History_Init (in module History/history_mod.F90)'\n\n    !=======================================================================\n    ! First initialize the list of collections\n    ! (\"collection\" = a netCDF file with a specific update frequency)\n    !=======================================================================\n    IF ( .not. Input_Opt%DryRun ) THEN\n       CALL History_ReadCollectionNames( Input_Opt,  State_Chm,             &\n                                         State_Diag, State_Met, RC         )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"History_ReadCollectionNames\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Then determine the fields that will be saved to each collection\n    ! NOTE: For dry-run, enter to print out file name & status\n    !=======================================================================\n    CALL History_ReadCollectionData( Input_Opt,  State_Chm, State_Diag,      &\n                                     State_Grid, State_Met, RC              )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"History_ReadCollectionData\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Finally, initialize the netCDF coordinate variables,\n    ! which are stored as fields of the State_Grid object.\n    !=======================================================================\n    CALL History_InitCoordVars( State_Grid )\n\n  END SUBROUTINE History_Init\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_InitCoordVars\n!\n! !DESCRIPTION: Initializes coordinate variables that will be written to\n!  netCDF files.  These are contained as fields in the State_Grid object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_InitCoordVars( State_Grid )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Pressure_Mod,   ONLY : Get_Ap, Get_Bp\n    USE State_Grid_Mod, ONLY : GrdState\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(GrdState),  INTENT(INOUT) :: State_Grid   ! Grid State object\n!\n! !REMARKS:\n!  These fields are allocated, registered, and deallocated in\n!  Headers/state_grid_mod.F90, but need to be populated with values here.\n!  This is because these fields rely on the Ap and Bp hybrid grid\n!  parameters (from GeosUtil/pressure_mod.F90), which aren't allocated\n!  until after state_grid_mod.F90 is initialized.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J, L\n\n    ! Strings\n    CHARACTER(LEN=255) :: errMsg\n    CHARACTER(LEN=255) :: thisLoc\n\n    !======================================================================\n    ! Compute the coordinate arrays for GC-Classic History diagnostics\n    ! (These are also used for WRF-GC)\n    !======================================================================\n\n    ! Area, reference pressure, time\n    State_Grid%Area           = State_Grid%Area_M2  ! m2\n    State_Grid%P0             = 1000.0_f8           ! hPa\n    State_Grid%Time           = 0.0\n\n    ! Latitude coordinates\n    DO J = 1, State_Grid%NY+1\n       State_Grid%LatE(J)     = State_Grid%YEdge(1,J)\n    ENDDO\n    DO J = 1, State_Grid%NY\n       State_Grid%Lat(J)      = State_Grid%YMid(1,J)\n       State_Grid%LatBnd(1,J) = State_Grid%LatE(J)\n       State_Grid%LatBnd(2,J) = State_Grid%LatE(J+1)\n    ENDDO\n\n    ! Longitude coordinates\n    DO I = 1, State_Grid%NX+1\n       State_Grid%LonE(I)     = State_Grid%XEdge(I,1)\n    ENDDO\n    DO I = 1, State_Grid%NX\n       State_Grid%Lon(I)      = State_Grid%XMid(I,1)\n       State_Grid%LonBnd(1,I) = State_Grid%LonE(I)\n       State_Grid%LonBnd(2,I) = State_Grid%LonE(I+1)\n    ENDDO\n\n    ! Level coordinates\n    DO L = 1, State_Grid%NZ+1\n       State_Grid%HyAi(L)     = Get_Ap(L)\n       State_Grid%HyBi(L)     = Get_Bp(L)\n       State_Grid%ILev(L)     = ( State_Grid%HyAi(L) / State_Grid%P0 )       &\n                              + State_Grid%HyBi(L)\n    ENDDO\n    DO L = 1, State_Grid%NZ\n       State_Grid%HyAm(L)     = ( Get_Ap( L ) + Get_Ap( L+1 ) ) * 0.5_f8\n       State_Grid%HyBm(L)     = ( Get_Bp( L ) + Get_Bp( L+1 ) ) * 0.5_f8\n       State_Grid%Lev(L)      = ( State_Grid%HyAm(L) / State_Grid%P0 )       &\n                              + State_Grid%HyBm(L)\n    ENDDO\n\n  END SUBROUTINE History_InitCoordVars\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Read_Collection_Names\n!\n! !DESCRIPTION: Reads the History input file (e.g. HISTORY.rc) and determines\n!  the names of each individual diagnostic collection.  It stores this\n!  information in module variables for use in the next step.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_ReadCollectionNames( Input_Opt,  State_Chm,             &\n                                          State_Diag, State_Met, RC         )\n!\n! !USES:\n!\n    USE Charpak_Mod\n    USe DiagList_Mod,      ONLY : CollList, ColItem\n    USE ErrCode_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE InquireMod,        ONLY : FindFreeLun\n    USE State_Chm_Mod ,    ONLY : ChmState\n    USE State_Diag_Mod,    ONLY : DgnState\n    USE State_Met_Mod,     ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt    ! Input Options object\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm    ! Chemistry State object\n    TYPE(DgnState),   INTENT(IN)  :: State_Diag   ! Diagnostic State object\n    TYPE(MetState),   INTENT(IN)  :: State_Met    ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REMARKS:\n!  Private routine, called from routine History_Init.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: EOF\n    INTEGER                :: fId,    IOS\n    INTEGER                :: N,      nSubs1,  nSubs2\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg, ThisLoc, Line,  Line2\n\n    ! String arrays\n    CHARACTER(LEN=255)     :: Subs1(255)\n    CHARACTER(LEN=255)     :: Subs2(255)\n    CHARACTER(LEN=255)     :: TmpCollectionName(MAX_COLLECTIONS)\n\n    ! Objects\n    TYPE(ColItem), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Zero local variables\n    EOF     = .FALSE.\n    IOS     = 0\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n     ' -> at History_ReadCollectionNames (in module History/history_mod.F90)'\n\n    ! Zero global variables\n    CollectionCount   = 0\n    TmpCollectionName = ''\n\n    !=======================================================================\n    ! Get the number of collections and list of collection names by\n    ! querying the collection list object (CollList, from diaglist_mod.F90).\n    !\n    ! NOTE: We are importing CollList from diaglist_mod.F90 via a USE\n    ! association.  This might not be the best way to share data (it\n    ! violates data encapsulation).  But it works for now.  Maybe figure\n    ! out a more elegant method later. (bmy, 2/28/18)\n    !=======================================================================\n\n    ! Initialize\n    CollectionCount = 0\n\n    ! Point to head of collection list\n    Current => CollList%Head\n\n    ! While we are not at the end of the collection list\n    DO WHILE ( ASSOCIATED( Current ) )\n\n       ! Increment the collection count\n       CollectionCount = CollectionCount + 1\n\n       ! Save the collection name in a temporary arrayu\n       TmpCollectionName(CollectionCount) = TRIM( Current%CName )\n\n       ! Point to next collection\n       Current => Current%Next\n\n    ENDDO\n\n    ! Free pointer\n    Current => NULL()\n\n    !=======================================================================\n    ! Now that we now the number of diagnostic collections, we can\n    ! allocate the arrays that will hold various collection attributes\n    !=======================================================================\n\n    ! Allocate CollectionName\n    IF ( .not. ALLOCATED( CollectionName ) ) THEN\n       ALLOCATE( CollectionName( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionName\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Copy the collection names from the temporary array\n    ! NOTE: The linked-list stors in reverse order, so revert here\n    DO N = 1, CollectionCount\n       CollectionName(N) = TmpCollectionName(CollectionCount-N+1)\n    ENDDO\n\n    ! Allocate CollectionFileName\n    IF ( .not. ALLOCATED( CollectionFileName ) ) THEN\n       ALLOCATE( CollectionFileName( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionFileName\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionFileName = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionTemplate\n    IF ( .not. ALLOCATED( CollectionTemplate ) ) THEN\n       ALLOCATE( CollectionTemplate( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionTemplate\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionTemplate = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionFrequency\n    IF ( .not. ALLOCATED( CollectionFrequency ) ) THEN\n       ALLOCATE( CollectionFrequency( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionFrequency\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionFrequency = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionAccInterval\n    IF ( .not. ALLOCATED( CollectionAccInterval ) ) THEN\n       ALLOCATE( CollectionAccInterval( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionAccInterval\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionAccInterval = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionDuration\n    IF ( .not. ALLOCATED( CollectionDuration ) ) THEN\n       ALLOCATE( CollectionDuration( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionDuration\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionDuration = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionMode\n    IF ( .not. ALLOCATED( CollectionMode ) ) THEN\n       ALLOCATE( CollectionMode( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionMode\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionMode = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionLonRange\n    IF ( .not. ALLOCATED( CollectionLonRange ) ) THEN\n       ALLOCATE( CollectionLonRange( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionLonRange\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionLonRange = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionLatRange\n    IF ( .not. ALLOCATED( CollectionLatRange ) ) THEN\n       ALLOCATE( CollectionLatRange( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionLatRange\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionLatRange = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionSubsetInd\n    IF ( .not. ALLOCATED( CollectionSubsetInd ) ) THEN\n       ALLOCATE( CollectionSubsetInd( 4, CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionSubsetInd\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionSubsetInd = UNDEFINED_INT\n    ENDIF\n\n    ! Allocate CollectionLevels\n    IF ( .not. ALLOCATED( CollectionLevels ) ) THEN\n       ALLOCATE( CollectionLevels( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionLevels\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionLevels = UNDEFINED_STR\n    ENDIF\n\n    ! Allocate CollectionLevelInd\n    IF ( .not. ALLOCATED( CollectionLevelInd ) ) THEN\n       ALLOCATE( CollectionLevelInd( 2, CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionLevelInt\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionLevelInd = UNDEFINED_INT\n    ENDIF\n\n    ! Allocate CollectionHrRange\n    IF ( .not. ALLOCATED( CollectionHrRange ) ) THEN\n       ALLOCATE( CollectionHrRange( CollectionCount ), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"CollectionHrRange\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n       CollectionHrRange = UNDEFINED_STR\n    ENDIF\n\n  END SUBROUTINE History_ReadCollectionNames\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Read_Collection_Data\n!\n! !DESCRIPTION: Parses the History input file (e.g. HISTORY.rc) and compiles\n!  the list of diagnostic quantities belonging to each collection.  In other\n!  words, this is the list of individual fields that will be archived to a\n!  particular netCDF file with a given update frequency.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_ReadCollectionData( Input_Opt,  State_Chm, State_Diag,  &\n                                         State_Grid, State_Met, RC          )\n!\n! !USES:\n!\n    USE Charpak_Mod\n    USE DiagList_Mod,          ONLY : CollList, Search_CollList\n    USE ErrCode_Mod\n    USE HistContainer_Mod\n    USE HistItem_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE InquireMod,            ONLY : FindFreeLun\n    USE MetaHistContainer_Mod\n    USE MetaHistItem_Mod\n    USE Species_Mod,           ONLY : Species\n    USE State_Chm_Mod\n    USE State_Diag_Mod\n    USE State_Grid_Mod,        ONLY : GrdState, Lookup_Grid\n    USE State_Met_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt    ! Input Options object\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm    ! Chemistry State object\n    TYPE(DgnState),   INTENT(INOUT)  :: State_Diag   ! Diagnostic State object\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid   ! Grid State Object object\n    TYPE(MetState),   INTENT(IN)  :: State_Met    ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REMARKS:\n!  Private routine, called from History_Init.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n     ! Scalars\n    LOGICAL                      :: EOF,            Found\n    LOGICAL                      :: FileExists\n    INTEGER                      :: yyyymmdd,       hhmmss\n    INTEGER                      :: yyyymmdd_end,   hhmmss_end\n    INTEGER                      :: DeltaYMD,       DeltaHMS\n    INTEGER                      :: X,              Y\n    INTEGER                      :: C,              N,             W\n    INTEGER                      :: nX,             nY,            nZ\n    INTEGER                      :: fId,            IOS,           LineNum\n    INTEGER                      :: nSubs1,         nSubs2\n    INTEGER                      :: Ind1,           Ind2\n    INTEGER                      :: UpdateYmd,      UpdateHms\n    INTEGER                      :: FileCloseYmd,   FileCloseHms\n    INTEGER                      :: FileWriteYmd,   FileWriteHms\n    INTEGER                      :: ItemCount,      SpaceDim,      Operation\n    INTEGER                      :: Ind_All,        Ind_Adv,       Ind_Aer\n    INTEGER                      :: Ind_Dry,        Ind_Fix,       Ind_Gas\n    INTEGER                      :: Ind_Kpp,        Ind_Pho,       Ind_Rst\n    INTEGER                      :: Ind_Var,        Ind_Wet,       Ind\n    INTEGER                      :: HbHrs,          HbMin,         HbSec\n    INTEGER                      :: HeartBeatHms,   nTags\n    REAL(f8)                     :: UpdateAlarm,    HeartBeatDtSec\n    REAL(f8)                     :: FileWriteAlarm, FileCloseAlarm\n    REAL(f8)                     :: JulianDate,     JulianDateEnd\n    REAL(f8)                     :: UpdateCheck,    FileWriteCheck\n    REAL(f8)                     :: SimLengthSec\n\n    ! Strings\n    CHARACTER(LEN=6  )           :: TStr\n    CHARACTER(LEN=8  )           :: DStr\n    CHARACTER(LEN=20 )           :: StartTimeStamp, EndTimeStamp\n    CHARACTER(LEN=63 )           :: CName\n    CHARACTER(LEN=80 )           :: ErrorLine\n    CHARACTER(LEN=255)           :: FileExpId\n    CHARACTER(LEN=255)           :: Line,           FileName\n    CHARACTER(LEN=255)           :: OutputName,     ThisLoc\n    CHARACTER(LEN=255)           :: MetaData,       Reference\n    CHARACTER(LEN=255)           :: Title,          Units\n    CHARACTER(LEN=255)           :: ItemTemplate,   ItemTemplateUC\n    CHARACTER(LEN=255)           :: ItemName,       Description\n    CHARACTER(LEN=255)           :: TmpMode,        Contact\n    CHARACTER(LEN=255)           :: Pattern,        ItemPrefix\n    CHARACTER(LEN=255)           :: tagId,          tagName\n    CHARACTER(LEN=512)           :: ErrMsg,         FileMsg\n\n    ! Arrays\n    REAL(f8)                     :: Subset(2)\n    INTEGER                      :: Levels(200)\n    CHARACTER(LEN=255)           :: Subs1(255)\n    CHARACTER(LEN=255)           :: Subs2(255)\n    CHARACTER(LEN=255)           :: SubStrs(255)\n\n    ! Objects\n    TYPE(HistContainer), POINTER :: Container\n    TYPE(HistItem),      POINTER :: Item\n    TYPE(Species),       POINTER :: ThisSpc\n\n    ! Pointer arrays\n    REAL(f8),            POINTER :: Grid_Lat (:    )\n    REAL(f8),            POINTER :: Grid_LatE(:    )\n    REAL(f8),            POINTER :: Grid_Lon (:    )\n    REAL(f8),            POINTER :: Grid_LonE(:    )\n    REAL(fp),            POINTER :: Ptr3d    (:,:,:)\n    REAL(f4),            POINTER :: Ptr3d_4  (:,:,:)\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC             =  GC_SUCCESS\n\n    ! Skip for GEOS-Chem dry-run simulations\n    IF ( .not. Input_Opt%DryRun ) THEN\n\n       ! Initialize variables\n       EOF            =  .FALSE.\n       IOS            =  0\n       UpdateYmd      =  0\n       UpdateHms      =  0\n       FileCloseYmd   =  0\n       FileCloseHms   =  0\n       FileWriteYmd   =  0\n       FileWriteHms   =  0\n       LineNum        =  0\n       SpaceDim       =  0\n       HeartBeatDtSec =  DBLE( Input_Opt%TS_DYN )\n       yyyymmdd       =  Input_Opt%NymdB\n       hhmmss         =  Input_Opt%NhmsB\n       yyyymmdd_end   =  Input_Opt%NymdE\n       hhmmss_end     =  Input_Opt%NhmsE\n       Subset         =  UNDEFINED_DBL\n       Levels         =  UNDEFINED_INT\n\n       ! Compute the YMD and HMS intervals for collections specified with \"End\",\n       ! such as for restart files.  NOTE: This algorithm should work with most\n       ! common model simulation intervals, but there might be some edge cases\n       ! that will cause it to fail.  It is still an improvement. (bmy, 2/26/19)\n       CALL Compute_DeltaYmdHms_For_End( yyyymmdd,     hhmmss,               &\n                                         yyyymmdd_end, hhmmss_end,           &\n                                         deltaYMD,     deltaHMS             )\n\n       ! Convert the HeartBeatDtSec into hours:minutes:seconds\n       ! for defining the Update interval for time-averaged collections\n       HbMin          = HeartBeatDtSec / 60\n       HbHrs          = HbMin / 60\n       HbSec          = HeartBeatDtSec - ( HbMin * 60 ) - ( HbHrs * 3600 )\n       HeartBeatHms   = ( HbHrs * 10000 ) + ( HbMin * 100 ) + HbSec\n\n       ! Initialize objects and pointers\n       Container      => NULL()\n       Item           => NULL()\n       Ptr3d          => NULL()\n       Ptr3d_4        => NULL()\n       ThisSpc        => NULL()\n       Grid_Lat       => NULL()\n       Grid_LatE      => NULL()\n       Grid_Lon       => NULL()\n       Grid_LonE      => NULL()\n\n       ! Initialize Strings\n       Description    =  ''\n       ErrMsg         =  ''\n       Contact        =  &\n         'GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)'\n       Reference      =  'www.geos-chem.org; wiki.geos-chem.org'\n       ThisLoc        =  &\n         ' -> at History_ReadCollectionData (in module History/history_mod.F90)'\n       Units          =  ''\n       FileExpId      =  ''\n\n       ! Create the timestamp at the start of the simulation\n       WRITE( DStr,          '(i8.8)' ) yyyymmdd\n       WRITE( TStr,          '(i6.6)' ) hhmmss\n       WRITE( StartTimeStamp, 300     ) DStr(1:4), DStr(5:6), DStr(7:8),       &\n                                        TStr(1:2), TStr(3:4), TStr(5:6)\n\n       ! Create the timestamp at the end of the simulation\n       WRITE( DStr,        '(i8.8)' ) yyyymmdd_end\n       WRITE( TStr,        '(i6.6)' ) hhmmss_end\n       WRITE( EndTimeStamp, 300     ) DStr(1:4), DStr(5:6), DStr(7:8),         &\n                                      TStr(1:2), TStr(3:4), TStr(5:6)\n\n       ! Format string\n 300   FORMAT( a4, '-', a2, '-', a2, ' ', a2, ':', a2, ':', a2, 'z' )\n\n       ! Compute the Astronomical Julian Date corresponding to the yyyymmdd\n       ! and hhmmss values at the start and end of the simulation, which are\n       ! needed below.  This can be done outside of the DO loop below.\n       CALL Compute_Julian_Date( yyyymmdd,     hhmmss,     JulianDate    )\n       CALL Compute_Julian_Date( yyyymmdd_end, hhmmss_end, JulianDateEnd )\n\n       ! Compute the length of the simulation, in elapsed seconds\n       SimLengthSec   = NINT( ( JulianDateEnd - JulianDate ) * SECONDS_PER_DAY )\n\n       !====================================================================\n       ! Get pointers to the grid longitudes and latitudes\n       !====================================================================\n\n       ! Lookup latitude centers\n       CALL Lookup_Grid( Input_Opt  = Input_Opt,                             &\n                         State_Grid = State_Grid,                            &\n                         Variable   = 'GRID_LAT',                            &\n                         Ptr1d_8    = Grid_Lat,                              &\n                         RC         = RC                                    )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not get pointer to latitudes (aka GRID_LAT)!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Lookup latitude edges\n       CALL Lookup_Grid( Input_Opt  = Input_Opt,                             &\n                         State_Grid = State_Grid,                            &\n                         Variable   = 'GRID_LATE',                           &\n                         Ptr1d_8    = Grid_LatE,                             &\n                         RC         = RC                                    )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not get pointer to latitude edges (aka GRID_LATE)!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Lookup longitude centers\n       CALL Lookup_Grid( Input_Opt  = Input_Opt,                             &\n                         State_Grid = State_Grid,                            &\n                         Variable   = 'GRID_LON',                            &\n                         Ptr1d_8    = Grid_Lon,                              &\n                         RC         = RC                                    )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not get pointer to longitudes (aka GRID_LON)!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc)\n          RETURN\n       ENDIF\n\n       ! Lookup longitude edges\n       CALL Lookup_Grid( Input_Opt  = Input_Opt,                             &\n                         State_Grid = State_Grid,                            &\n                         Variable   = 'GRID_LONE',                           &\n                         Ptr1d_8    = Grid_LonE,                             &\n                         RC         = RC                                    )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not get pointer to longitude edges (aka GRID_LONE)!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc)\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Open the file containing the list of requested diagnostics\n    !=======================================================================\n\n    ! Test if the file exists\n    INQUIRE( FILE=TRIM( Input_Opt%HistoryInputFile ), EXIST=FileExists )\n\n    ! Test if the file exists and define an output string\n    IF ( FileExists ) THEN\n       FileMsg = 'HISTORY (INIT): Opening'\n    ELSE\n       FileMsg = 'HISTORY (INIT): REQUIRED FILE NOT FOUND'\n    ENDIF\n\n    ! Write message to stdout for both regular and dry-run simulations\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE( 6, 350 ) TRIM( FileMsg ), TRIM( Input_Opt%HistoryInputFile )\n 350   FORMAT( a, ' ', a )\n    ENDIF\n\n    ! For dry-run simulations, return to calling program.\n    ! For regular simulations, throw an error if we can't find the file.\n    IF ( Input_Opt%DryRun ) THEN\n       RETURN\n    ELSE\n       IF ( .not. FileExists ) THEN\n          WRITE( ErrMsg, 350 ) TRIM( FileMsg                    ),           &\n                               TRIM( Input_Opt%HistoryInputFile )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Find a free file unit\n    fId     = FindFreeLun()\n\n    ! Open the file\n    OPEN( fId, FILE=TRIM(Input_Opt%HistoryInputFile), STATUS='OLD', IOSTAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error opening \"' //TRIM(Input_Opt%HistoryInputFile) // '\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Read data from the file\n    !=======================================================================\n    DO\n\n       ! Read a single line, strip leading/trailing spaces,\n       ! and keep track of the line number for error output\n 500   CONTINUE\n       Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n       LineNum = LineNum + 1\n\n       ! Exit the loop if it's the end of the file\n       IF ( EOF ) GOTO 999\n\n       ! If it's a real I/O error, quit w/ error message\n       IF ( IOS > 0 ) THEN\n          ErrMsg = 'Unexpected end-of-file in \"'                          // &\n                    TRIM( Input_Opt%HistoryInputFile )\n          WRITE( ErrorLine, 250 ) LineNum\n 250      FORMAT( ' -> ERROR occurred at (or near) line ', i6,               &\n                      ' of the HISTORY.rc file' )\n          CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n          RETURN\n       ENDIF\n\n       ! Skip if the line is commented out\n       IF ( Line(1:1) == \"#\" ) CYCLE\n\n       ! Zero variables\n       FileCloseYmd   = 0\n       FileCloseHms   = 0\n       FileWriteYmd   = 0\n       FileWriteHms   = 0\n       FileWriteCheck = 0.0_f8\n       UpdateYmd      = 0\n       UpdateHms      = 0\n       UpdateCheck    = 0.0_f8\n\n       !====================================================================\n       ! Get the EXPID string.  This is the \"front part\" of the netCDF\n       ! file path for each collection.  In other words, if EXPID is\n       ! \"OutputDir/GEOSChem\", then the default SpeciesConc collection file\n       ! names will be \"OutputDir/GEOSChem.SpeciesConc_YYYYMMDD_hhmmz.nc4\"\n       !====================================================================\n       IF ( INDEX( Line, 'EXPID' ) > 0  ) THEN\n\n          ! Split the line on the colon\n          CALL StrSplit( Line, \":\", Subs1, nSubs1 )\n\n          ! Stop with error if there are more than 2 substrings\n          IF ( nSubs1 /= 2 ) THEN\n             ErrMsg = 'Error in extracting the EXPID value from the '     // &\n                      'HISTORY.rc file.  This forms the start of the '    // &\n                      'netCDF file name for each collection.  Please '    // &\n                      'check the HISTORY.rc file for typos.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n          ENDIF\n\n          ! Save the EXPID parameter\n          FileExpId = Subs1(2)\n          CALL CStrip( FileExpId )\n       ENDIF\n\n       !====================================================================\n       ! The HISTORY.rc file specifies collection metadata as:\n       !\n       !   SpeciesConc.filename:  './output/GEOSChem.inst.%y4%m2%d2.nc4'\n       !   SpeciesConc.template:  '%y4%m2%d2_%h2%n2.nc4',\n       !   SpeciesConc.format:    'CFIO',\n       !   SpeciesConc.frequency:  010000,\n       !   SpeciesConc.duration:   240000\n       !   etc.\n       !\n       ! where in this example, \"instantaneous\" is the collection name\n       ! and \"filename', \"template\", \"format\", \"frequency\", \"duration\"\n       ! are the metadata fields.\n       !\n       ! Get the metadata belonging to each collection and store them\n       ! in the proper arrays for later use.  NOTE: this method does not\n       ! assume that the collections are in the same order as they\n       ! are listed under the COLLECTIONS section.\n       !====================================================================\n\n       ! \"filename\": Specifies the full filename path\n       ! Can be omitted if \"template\" is specified\n       Pattern = 'filename'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n          CALL GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, C )\n          IF ( C > 0 ) CollectionFileName(C) = Metadata\n       ENDIF\n\n       ! \"template\": Specifies the year/month/day/hr/min/sec in filenames\n       ! Can be omitted if \"filename\" is specified\n       Pattern = 'template'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n          CALL GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, C )\n          IF ( C > 0 ) CollectionTemplate(C) = Metadata\n       ENDIF\n\n       ! \"frequency\": Specifies how often diagnostics are updated,\n       ! Must be either in \"YYYYMMDD hhmmss\" or \"hhmmss\" format.\n       Pattern = 'frequency'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n          CALL GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, C )\n          IF ( C > 0 ) THEN\n             IF ( LEN_TRIM( MetaData ) == 6     .or.                         &\n                  LEN_TRIM( MetaData ) == 14    .or.                         &\n                  TRIM(     MetaData ) == 'End' .or.                         &\n                  TRIM(     MetaData ) == 'end' ) THEN\n                CollectionFrequency(C) = Metadata\n             ELSE\n                ErrMsg = 'Error in defining \"frequency\" for collection \"' // &\n                         TRIM( CollectionName(C) ) // '\"!  This field '   // &\n                         'must either be of the format \"YYYYMMDD '        // &\n                         'hhmmss\", \"hhmmss\", or \"End\".  Please check the '// &\n                         '\"frequency\" setting in the HISTORY.rc file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! \"acc_interval\": Specifies how often time-averaged diagnostics\n       ! are updated.   ! Must be either in \"YYYYMMDD hhmmss\" or \"hhmmss\"\n       ! format.   If omitted, \"acc_interval\" will be set from \"frequency\"\n       !%%%%% NOTE: The \"acc_interval\" attribute is not really needed;\n       !%%%%% we only really need \"frequency\" and \"duration\".  We will\n       !%%%%% leave this as an \"undocumented feature\". (bmy, 3/26/18)\n       Pattern = 'acc_interval'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n          CALL GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, C )\n          IF ( C > 0 ) THEN\n             IF ( LEN_TRIM( MetaData ) == 6   .or.                           &\n                  LEN_TRIM( MetaData ) == 14 ) THEN\n                CollectionAccInterval(C) = Metadata\n             ELSE\n                ErrMsg = 'Error in defining \"acc_interval\" for '          // &\n                         'collection \"'// TRIM( CollectionName(C) )       // &\n                         '\"!  This field must either be of the format '   // &\n                         '\"YYYYMMDD hhmmss\" or \"hhmmss\".  Please check '  // &\n                         'the \"acc_interval\" setting in the HISTORY.rc '  // &\n                         'file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n              ENDIF\n          ENDIF\n       ENDIF\n\n       ! \"duration:: Specifies how often files will be written.\n       ! Must be either in \"YYYYMMDD hhmmss\" or \"hhmmss\" format.\n       ! If omitted, \"duration\" will be set from \"frequency\"\n       Pattern = 'duration'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n          CALL GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, C )\n          IF ( C > 0 ) THEN\n             IF ( LEN_TRIM( MetaData ) == 6     .or.                         &\n                  LEN_TRIM( MetaData ) == 14    .or.                         &\n                  TRIM(     MetaData ) == 'End' .or.                         &\n                  TRIM(     MetaData ) == 'end' ) THEN\n                CollectionDuration(C) = Metadata\n             ELSE\n                ErrMsg = 'Error in defining \"duration\" for collection \"'  // &\n                         TRIM( CollectionName(C) ) // '\"!  This field '   // &\n                         'must either be of the format \"YYYYMMDD '        // &\n                         'hhmmss\", \"hhmmss\", or \"End\".  Please check the '// &\n                         '\"duration\" setting in the HISTORY.rc file.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n\n       ! \"mode\": Specifies instantaneous or time-averaged archiving.\n       ! Throw an error if anything else is specified\n       Pattern = 'mode'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n          CALL GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, C )\n          IF ( C > 0 ) THEN\n             TmpMode = Metadata\n             CALL TranUc( TmpMode )\n             SELECT CASE( TmpMode )\n                CASE( 'INSTANTANEOUS', 'TIME-AVERAGED', 'TIMEAVERAGED' )\n                   CollectionMode(C) = Metadata\n                CASE DEFAULT\n                   ErrMsg = 'Error in defining \"mode\" for collection \"'   // &\n                             TRIM( CollectionName(C) ) // '\"!  The mode ' // &\n                            'value can either be \"instantaneous\" or '     // &\n                            '\"time-averaged\".  Please check the \"mode\" '  // &\n                            'setting in the HISTORY.rc file.'\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n             END SELECT\n          ENDIF\n       ENDIF\n\n       ! \"LON_RANGE\": Specifies a longitude range for subsetting\n       ! the data grid. The required order is: lonMin, lonMax\n       Pattern = 'LON_RANGE'\n       Subset  =  UNDEFINED_DBL\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n\n          ! First split the line by colon\n          CALL StrSplit( Line, \":\", Subs1, nSubs1 )\n          IF ( C > 0 ) THEN\n\n             ! Replace any commas with spaces\n             CALL StrRepl( Subs1(2), \",\", \" \" )\n             CollectionLonRange(C) = Subs1(2)\n\n             ! Then split by spaces and convert to INTEGER\n             CALL StrSplit( CollectionLonRange(C), \" \", Subs2, nSubs2 )\n             IF ( nSubs2 == 2 ) THEN\n                DO N = 1, nSubs2\n                   READ( Subs2(N), '(f13.6)' ) Subset(N)\n                ENDDO\n             ELSE\n                ErrMsg = 'Subsets must be specified as: lonmin, lonmax!'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n\n             ! Find the longitude indices for lonMin and lonMax values\n             DO X = 1, SIZE( Grid_LonE )-1\n                IF ( Grid_LonE(X  ) <= Subset(1)  .and.                      &\n                     Grid_LonE(X+1) >  Subset(1) ) THEN\n                   CollectionSubsetInd(1,C) = X\n                ENDIF\n                IF ( Grid_LonE(X  ) <= Subset(2)  .and.                      &\n                     Grid_LonE(X+1) >  Subset(2) ) THEN\n                   CollectionSubsetInd(2,C) = X\n                ENDIF\n             ENDDO\n\n             ! Error check longitudes\n             DO N = 1, 2\n                IF ( CollectionSubsetInd(N,C) < 1               .or.         &\n                     CollectionSubsetInd(N,C) > State_Grid%NX ) THEN\n                   ErrMsg = 'Invalid longitude subset values for '   //      &\n                            'collection \"'// TRIM(CollectionName(C)) // '\"!'\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n             ENDDO\n          ENDIF\n       ENDIF\n\n       ! \"LON_RANGE\": Specifies a latitude range for subsetting\n       ! the data grid. The required order is: latMin, latMax\n       Pattern = 'LAT_RANGE'\n       Subset  =  UNDEFINED_DBL\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n\n          ! First split the line by colon\n          CALL StrSplit( Line, \":\", Subs1, nSubs1 )\n          IF ( C > 0 ) THEN\n\n             ! Replace any commas with spaces\n             CALL StrRepl( Subs1(2), \",\", \" \" )\n             CollectionLatRange(C) = Subs1(2)\n\n             ! Then split by spaces and convert to INTEGER\n             CALL StrSplit( CollectionLatRange(C), \" \", Subs2, nSubs2 )\n             IF ( nSubs2 == 2 ) THEN\n                DO N = 1, nSubs2\n                   READ( Subs2(N), '(f13.6)' ) Subset(N)\n                ENDDO\n             ELSE\n                ErrMsg = 'Subsets must be specified as: latMin, latMax!'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n\n             ! Find the latitude indices for latMin and latMax values\n             DO Y = 1, SIZE( Grid_LatE )-1\n                IF ( Grid_LatE(Y  ) <= Subset(1)  .and.                      &\n                     Grid_LatE(Y+1) >  Subset(1) ) THEN\n                   CollectionSubsetInd(3,C) = Y\n                ENDIF\n                IF ( Grid_LatE(Y  ) <= Subset(2)  .and.                      &\n                     Grid_LatE(Y+1) >  Subset(2) ) THEN\n                   CollectionSubsetInd(4,C) = Y\n                ENDIF\n             ENDDO\n\n             ! Error check latitudes\n             DO N = 3, 4\n                IF ( CollectionSubsetInd(N,C) < 1               .or.         &\n                     CollectionSubsetInd(N,C) > State_Grid%NY ) THEN\n                   ErrMsg = 'Invalid latitude subset values for '     //     &\n                            'collection \" '// TRIM(CollectionName(C)) // '\"!'\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n             ENDDO\n          ENDIF\n       ENDIF\n\n       ! \"levels: Specifies a vertical subset of the data grid\n       Pattern  = 'levels'\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n\n          ! First split the line by colon\n          CALL StrSplit( Line, \":\", Subs1, nSubs1 )\n          IF ( C > 0 ) THEN\n\n             ! Replace any commas with spaces\n             CALL StrRepl( Subs1(2), \",\", \" \" )\n             CollectionLevels(C) = Subs1(2)\n\n             ! Then split by spaces and convert to INTEGER\n             ! Also compute the min and max level\n             CALL StrSplit( CollectionLevels(C), \" \", Subs2, nSubs2 )\n             IF ( nSubs2 <= SIZE( Levels ) ) THEN\n                DO N = 1, nSubs2\n                   READ( Subs2(N), '(i10)' ) Levels(N)\n                   IF ( Levels(N) < 0 ) THEN\n                      ErrMsg = TRIM( CollectionName(C) ) // '.levels '    // &\n                               'must not have any negative values!'\n                      WRITE( ErrorLine, 250 ) LineNum\n                      CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                      RETURN\n                   ENDIF\n                ENDDO\n             ELSE\n                ErrMsg = 'Too many levels specified for collection \"'     // &\n                          TRIM( CollectionName(C) ) // '\" Must be <= 200.'\n                WRITE( ErrorLine, 250 ) LineNum\n                CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                RETURN\n             ENDIF\n\n             ! Of all the levels that are specified, store the min and max\n             ! in the CollectionLevelInd array.  We will save out all of\n             ! the levels between the min and max.\n             ! NOTE: GCHP HISTORY can archive out individual levels, but\n             ! this is trickier to implement in GC \"Classic\".  It is easier\n             ! to point to a contiguous array subslice, so we will just\n             ! archive everything between the min and max level for the\n             ! time being. (bmy, 7/18/19)\n             CollectionLevelInd(1,C) = MINVAL( Levels(1:nSubs2) )\n             CollectionLevelInd(2,C) = MAXVAL( Levels(1:nSubs2) )\n          ENDIF\n       ENDIF\n\n       ! \"hrrange\": Specifies an hour range for the satellite\n       ! diagnostic. The required order is: hrMin, hrMax\n       Pattern = 'hrrange'\n       Subset  =  UNDEFINED_DBL\n       IF ( INDEX( TRIM( Line ), TRIM( Pattern ) ) > 0 ) THEN\n\n          ! First split the line by colon\n          CALL StrSplit( Line, \":\", Subs1, nSubs1 )\n\n          ! Split by spaces and convert to FLOAT:\n          CALL StrSplit( Subs1(2), \" \", Subs2, nSubs2 )\n          IF ( nSubs2 == 2 ) THEN\n             DO N = 1, nSubs2\n                READ( Subs2(N), '(f6.0)' ) Subset(N)\n             ENDDO\n          ELSE\n             ErrMsg = 'Subsets must be specified as: hrmin, hrmax!'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          ! Assign hour range to State_Diag:\n          State_Diag%SatDiagn_StartHr = Subset(1)\n          State_Diag%SatDiagn_EndHr   = Subset(2)\n             \n       ENDIF       \n\n       !====================================================================\n       ! NOTE: We assume FIELDS is the last metadata tag for the\n       ! collection.  We need to create the collection object and\n       ! an object for each history item stored in the collection.\n       !====================================================================\n       IF ( INDEX( TRIM( Line ), 'fields' ) > 0 ) THEN\n\n          !-----------------------------------------------------------------\n          ! If we can't find the metadata for the collection in HISTORY.rc,\n          ! then this might point to a mismatch between names under the\n          ! \"COLLECTIONS:\" list and the corresponding metadata section.\n          ! Do some further error checking.\n          !-----------------------------------------------------------------\n          IF ( C == UNDEFINED_INT ) THEN\n\n             !--------------------------------------------------------------\n             ! If the collection corresponding to this \".fields\" tag is\n             ! not active, then keep reading lines from HISTORY.rc\n             ! until we reach the next collection definition section.\n             ! then cycle back to the top of the loop.\n             !--------------------------------------------------------------\n\n             ! Get the collection name (its to the left of the first \".\")\n             N     = INDEX( TRIM( Line ), '.' )\n             CName = Line(1:N-1)\n\n             ! This means skipping over all of the fields listed under\n             ! this collection until we get to the :: separator\n             CALL Search_CollList( Input_Opt%amIRoot, CollList,              &\n                                   CName,             Found,    RC          )\n             IF ( .not. Found ) THEN\n                DO\n                   ! Read a single line, strip leading/trailing spaces,\n                   ! and keep track of the line number for error output\n                   Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n                   LineNum = LineNum + 1\n\n                   ! Exit the loop if it's the end of the file\n                   IF ( EOF ) GOTO 999\n\n                   ! If it's a real I/O error, quit w/ error message\n                   IF ( IOS > 0 ) THEN\n                      ErrMsg = 'Unexpected end-of-file in \"'              // &\n                           TRIM( Input_Opt%HistoryInputFile )\n                      WRITE( ErrorLine, 250 ) LineNum\n                      CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                      RETURN\n                   ENDIF\n\n                   ! If it's the end of the collection, cycle to next line\n                   IF ( TRIM( Line ) == '::' ) GOTO 500\n                ENDDO\n\n             ENDIF\n\n             !--------------------------------------------------------------\n             ! If we get to this point, then there is a true error\n             ! condition.  Print an error message asking the user to\n             ! check the HISTORY.rc file for inconsistencies.\n             !--------------------------------------------------------------\n\n             ! List the defined collections\n             WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n             WRITE( 6, 200   )\n 200         FORMAT( 'GEOS-Chem ERROR: One or more collection ',             &\n                     'attributes do not correspond', /                       &\n                     'to any of these defined collection names '             &\n                     'in the \"HISTORY.rc\" input file:', /                   )\n\n             DO N = 1, CollectionCount\n                WRITE( 6, 210 ) N, TRIM( CollectionName(N) )\n 210            FORMAT( i3, ') ', a )\n             ENDDO\n\n             WRITE( 6, 220 )\n 220         FORMAT( /, 'Please check the HISTORY.rc file for any ',         &\n                     'missing \":\" or \",\" characters', /,                     &\n                     'in the collection attributes.'                        )\n             WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n\n             ! Write error message and then return\n             ErrMsg = 'Inconsistency in collection names and attributes!' // &\n                      ' Please check \"HISTORY.rc\" for typos.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          !=================================================================\n          ! At this point We can assume that the collection is defined,\n          ! and that everything following are diagnostic fields.\n          !=================================================================\n\n          !-----------------------------------------------------------------\n          ! ERROR CHECK: Make sure that the length of the simulation is\n          ! not shorter than the requested \"File Write\" interval.  This\n          ! will prevent simulations without diagnostic output.\n          !-----------------------------------------------------------------\n          IF ( CollectionDuration(C) < CollectionFrequency(C) ) THEN\n\n             ! Construct error message\n             ErrMsg =                                                        &\n                'No diagnostic output will be created for collection: \"'  // &\n                 TRIM( CollectionName(C) ) // '\"!  Make sure that the '   // &\n                'collection duration setting is not shorter than the '    // &\n                'collection frequency setting in HISTORY.rc!  For '       // &\n                'example, if the frequency is \"00000001 000000\" (1 day) ' // &\n                'but the duration is \"00000000 010000\" (1 hour), then '   // &\n                'this error will occur.'\n\n             ! Return error\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! Continue populating the collection with fields\n          !-----------------------------------------------------------------\n\n          ! Zero the counter of items\n          ItemCount = 0\n\n          ! Create title string for collection\n          Title = 'GEOS-Chem diagnostic collection: ' //                     &\n                   TRIM( CollectionName(C) )\n\n          !-----------------------------------------------------------------\n          ! Determine the operation code (i.e. copy or accumulate from the\n          ! source pointer to Item's data array for further analysis),\n          ! based on the value of CollectionMode.\n          !-----------------------------------------------------------------\n          TmpMode = CollectionMode(C)\n          CALL TranUc( TmpMode )\n          SELECT CASE( TmpMode )\n             CASE( 'TIME-AVERAGED', 'TIMEAVERAGED' )\n                Operation = ACCUM_FROM_SOURCE\n             CASE DEFAULT\n                Operation = COPY_FROM_SOURCE\n\n                ! Throw an error if the \"acc_interval\" is defined,\n                ! but the collection is instantaneous.\n                IF ( .not. TRIM( CollectionAccInterval(C) ) ==               &\n                                 UNDEFINED_STR                 ) THEN\n                   ErrMsg = 'Acc_interval cannot be defined for '         // &\n                            'instantaneous collection: \"'                 // &\n                            TRIM( CollectionName(C) )                     // &\n                            '\"!'\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n\n          END SELECT\n\n          !-----------------------------------------------------------------\n          ! %%%%% INSTANTANEOUS AND TIME-AVERAGED COLLECTIONS %%%%%\n          !\n          ! Define the \"File Write\" interval\n          !\n          ! The \".frequency\" tag in HISTORY.rc specifies the interval at\n          ! which data will be written to the netCDF file.  Thus, we can\n          ! set FileWriteYmd and FileWriteHms from CollectionFrequency.\n          !\n          ! NOTE: If CollectionFrequency is 6 digits long, then assume\n          ! that to be FileWriteHms.  If longer, then assume that it is\n          ! both FileWriteYmd and FileWriteHms.  This is a hack that we\n          ! introduced for GEOS-Chem \"Classic\" only, as this feature is\n          ! not yet supported in MAPL.  (sde, bmy, 8/4/17, 10/26/17)\n          !\n          ! Add capability to set frequency to 'End'. In that case, the\n          ! data will be written to the netCDF file at the end of the\n          ! simulation. This is especially useful for the Restart collection\n          ! for saving fields needed for subsequent GEOS-Chem runs.\n          ! FileCloseYmd and FileCloseHms will be computed as the amount\n          ! of time between the start and end of the simulation.\n          ! (mps, 10/12/18)\n          !-----------------------------------------------------------------\n          IF ( LEN_TRIM( CollectionFrequency(C) ) == 6 ) THEN\n             READ( CollectionFrequency(C), '(i6.6)'  ) FileWriteHms\n          ELSE IF ( LEN_TRIM( CollectionFrequency(C) ) == 14 ) THEN\n             READ( CollectionFrequency(C), '(i8,i6)' ) FileWriteYmd,         &\n                                                       FileWriteHms\n          ELSE IF ( TRIM( CollectionFrequency(C) ) == 'End'   .or.         &\n                    TRIM( CollectionFrequency(C) ) == 'end' ) THEN\n             FileWriteYmd = DeltaYMD\n             FileWriteHms = DeltaHMS\n          ENDIF\n\n          ! SPECIAL CASE: If FileWriteHms is 240000, set\n          ! FileWriteYmd=000001 and FileWriteHms=000000\n          IF ( FileWriteHms == 240000 ) THEN\n             FileWriteYmd = 00000001\n             FileWriteHms = 000000\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! %%%%% INSTANTANEOUS AND TIME-AVERAGED COLLECTIONS %%%%%\n          !\n          ! Define the \"File Close\" interval\n          !\n          ! The \".duration\" tag in HISTORY.rc denotes the interval when\n          ! each new netCDF file will be produced.  Thus, we can set\n          ! FileCloseYmd and FileCloseHms from CollectionDuration.\n          !\n          ! If \".duration\" is not specified in HISTORY.rc, then both\n          ! FileCloseYmd and FileCloseHms will both be defined from\n          ! the \".frequency\" tag (stored in CollectionFrequency).\n          !\n          ! NOTE: If CollectionDuration is 6 digits long, then assume\n          ! that to be FileCloseHms.  If longer, then assume that it is\n          ! both FileCloseYmd and FileCloseHms.  This is a hack that we\n          ! introduced for GEOS-Chem \"Classic\" only, as this feature is\n          ! not yet supported in MAPL.  (sde, bmy, 8/4/17, 10/26/17)\n          !\n          ! Add capability to set duration to 'End'. In that case, the\n          ! netCDF file will be closed at the end of the simulation.\n          ! This is especially useful for the Restart collection\n          ! for saving fields needed for subsequent GEOS-Chem runs.\n          ! FileCloseYmd and FileCloseHms will be computed as the amount\n          ! of time between the start and end of the simulation.\n          ! (mps, 10/12/18)\n          !-----------------------------------------------------------------\n          IF ( TRIM( CollectionDuration(C) ) == UNDEFINED_STR ) THEN\n             FileCloseYmd = FileWriteYmd\n             FileCloseHms = FileWriteHms\n          ELSE IF ( LEN_TRIM( CollectionDuration(C) ) == 6 ) THEN\n             READ( CollectionDuration(C), '(i6.6)'  ) FileCloseHms\n          ELSE IF ( LEN_TRIM( CollectionDuration(C) ) == 14 ) THEN\n             READ( CollectionDuration(C), '(i8,i6)' ) FileCloseYmd,          &\n                                                      FileCloseHms\n          ELSE IF ( TRIM( CollectionDuration(C) ) == 'End'   .or.          &\n                    TRIM( CollectionDuration(C) ) == 'end' ) THEN\n             FileCloseYmd = DeltaYMD\n             FileCloseHms = DeltaHMS\n          ENDIF\n\n          ! SPECIAL CASE: If FileCloseHms is 240000, set\n          ! FileCloseYmd=000001 and FileCloseYmd=000000\n          IF ( FileCloseHms == 240000 ) THEN\n             FileCloseYmd = 00000001\n             FileCloseHms = 000000\n          ENDIF\n\n          IF ( Operation == COPY_FROM_SOURCE ) THEN\n\n             !--------------------------------------------------------------\n             ! %%%%% INSTANTANEOUS COLLECTION %%%%%\n             !\n             ! Define the \"Update\" interval\n             !\n             ! Because there is no time-averaging, each field is written to\n             ! the netCDF file as soon as it is updated.  Thus, we can set\n             ! UpdateYmd and UpdateHms from the \".frequency\" tag in\n             ! HISTORY.rc (stored in CollectionFrequency).\n             !--------------------------------------------------------------\n             UpdateYmd = FileWriteYmd\n             UpdateHms = FileWriteHms\n\n          ELSE\n\n             !--------------------------------------------------------------\n             ! %%%% TIME-AVERAGED COLLECTION %%%%\n             !\n             ! Define the \"Update\" interval\n             !\n             ! Normally, we will set UpdateYmd and UpdateHms directly from\n             ! the \"heartbeat\" timestep of the simulation in seconds.\n             !\n             ! If the \".acc_interval\" tag is specified in HISTORY.rc,\n             ! then we will set UpdateYmd and UpdateHms from\n             ! CollectionAccInterval.  But if using this option, note\n             ! that the \".acc_interval\" tag must not specify an interval\n             ! that is longer than the interval specified by \".frequency\".\n             !\n             ! NOTE: If CollectionAccInterval is 6 digits long, then assume\n             ! that to be UpdateHms.  If longer, then assume that it is\n             ! both UpdateYmd and UpdateHms.  This is a hack that we\n             ! introduced for GEOS-Chem \"Classic\" only, as this feature is\n             ! not supported in MAPL.  (sde, bmy, 8/4/17, 10/26/17)\n             !--------------------------------------------------------------\n             IF ( TRIM( CollectionAccInterval(C) ) == UNDEFINED_STR ) THEN\n\n                ! Set UpdateYmd and UpdateHms from the HeartBeat timestep\n                UpdateYmd = 00000000\n                UpdateHms = HeartBeatHms\n\n                ! SPECIAL CASE: If FileWriteYmd is 240000 then set\n                ! and set FileWriteYmd=000001 and FileWriteHms=000000\n                IF ( UpdateHms == 240000 ) THEN\n                   UpdateYmd = 00000001\n                   UpdateHms = 000000\n                ENDIF\n\n             ELSE\n\n                ! Set UpdateYmd and UpdateHms from the \".acc_interval\" tag\n                IF ( LEN_TRIM( CollectionAccInterval(C) ) == 6 ) THEN\n                   READ( CollectionAccInterval(C), '(i6.6)'  ) UpdateHms\n                ELSE IF ( LEN_TRIM( CollectionAccInterval(C) ) == 14 ) THEN\n                   READ( CollectionAccInterval(C), '(i8,i6)' ) UpdateYmd,    &\n                                                               UpdateHms\n                ENDIF\n\n                ! SPECIAL CASE: If FileWriteYmd is 240000 then set\n                ! and set FileWriteYmd=000001 and FileWriteHms=000000\n                IF ( UpdateHms == 240000 ) THEN\n                   UpdateYmd = 00000001\n                   UpdateHms = 000000\n                ENDIF\n\n                ! Combine UpdateYmd and UpdateHms\n                UpdateCheck    = ( DBLE( UpdateYmd    ) * 1.0e6_f8 )         &\n                               + ( DBLE( UpdateHms    )            )\n\n                ! Combine FileWriteYmd and FileWriteHms\n                FileWriteCheck = ( DBLE( FileWriteYmd ) * 1.0e6_f8 )         &\n                               + ( DBLE( FileWriteHMs )            )\n\n                ! Error check: If using acc_interval, then the Update interval\n                ! has to be smaller or equal to the File Write interval\n                IF ( UpdateCheck > FileWriteCheck ) THEN\n                   ErrMsg = 'Update interval is greater than File Write ' // &\n                            'interval for collection: '                   // &\n                            TRIM( CollectionName(C) )\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n\n             ENDIF\n\n          ENDIF\n\n          !=================================================================\n          ! Sanity check for the Restart collection\n          ! Make sure that frequency and duration are the same\n          !=================================================================\n          CName = To_UpperCase( CollectionName(C) )\n          IF ( TRIM( CName ) == 'RESTART' ) THEN\n             IF ( FileWriteYmd /= FileCloseYmd  .and.                        &\n                  FileWriteHms /= FileCloseHms ) THEN\n                WRITE( ErrMsg, 260 )                                         &\n                   'Incompatible Restart collection metadata!           ',   &\n                   'Restart.frequency = ',     FileWriteYmd, FileWriteHms,   &\n                   'but Restart.duration  = ', FileCloseYmd, FileCloseHms\n 260             FORMAT( a, a, i8.8, 1x, i6.6, 1x, a, i8.8, 1x, i6.6 )\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !=================================================================\n          ! Create a HISTORY CONTAINER object for this collection\n          !=================================================================\n\n          ! Create the HISTORY CONTAINER object itself.\n          ! This will also define the alarm intervals and initial alarm times\n          CALL HistContainer_Create( Input_Opt      = Input_Opt,             &\n                                     Container      = Container,             &\n                                     Id             = C,                     &\n                                     Name           = CollectionName(C),     &\n                                     EpochJd        = JulianDate,            &\n                                     CurrentYmd     = yyyymmdd,              &\n                                     CurrentHms     = hhmmss,                &\n                                     UpdateMode     = CollectionMode(C),     &\n                                     UpdateYmd      = UpdateYmd,             &\n                                     UpdateHms      = UpdateHms,             &\n                                     Operation      = Operation,             &\n                                     HeartBeatDtSec = HeartBeatDtSec,        &\n                                     FileExpId      = FileExpId,             &\n                                     FileWriteYmd   = FileWriteYmd,          &\n                                     FileWriteHms   = FileWriteHms,          &\n                                     FileCloseYmd   = FileCloseYmd,          &\n                                     FileCloseHms   = FileCloseHms,          &\n                                     Conventions    = 'COARDS',              &\n                                     FileName       = CollectionFileName(C), &\n                                     FileTemplate   = CollectionTemplate(C), &\n                                     NcFormat       = 'NetCDF-4',            &\n                                     Reference      = Reference,             &\n                                     Title          = Title,                 &\n                                     Contact        = Contact,               &\n                                     StartTimeStamp = StartTimeStamp,        &\n                                     EndTimeStamp   = EndTimeStamp,          &\n                                     RC             = RC                    )\n\n          ! Update CollectionFileName\n          CollectionFileName(C) = TRIM( Container%FileName )\n\n          ! Trap potential error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Could not create Collection: ' // &\n                      TRIM( CollectionName(C) )\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          ! Set elapsed time quantities in the HISTORY CONTAINER object\n          CALL HistContainer_SetTime( Input_Opt   = Input_Opt,               &\n                                      Container   = Container,               &\n                                      HeartBeatDt = 0.0_f8,                  &\n                                      RC          = RC                      )\n\n\n          ! Trap potential error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"HistContainer_SetTime\"'      // &\n                      ' for collection: ' // TRIM( CollectionName(C) )\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! ERROR CHECK: Make sure that the length of the simulation is\n          ! not shorter than the requested \"File Write\" interval.  This\n          ! will prevent simulations without diagnostic output.\n          !-----------------------------------------------------------------\n          IF ( SimLengthSec < Container%FileWriteAlarm ) THEN\n\n             ! Construct error message\n             ErrMsg =                                                        &\n                'No diagnostic output will be created for collection: \"'  // &\n                 TRIM( CollectionName(C) ) // '\"!  Make sure that the '   // &\n                'length of the simulation as specified in '               // &\n                'geoschem_config.yml (check the start and end dates) is ' // &\n                'not shorter than the frequency setting in HISTORY.rc! '  // &\n                'For example, if the frequency is \"00000000 010000\" '     // &\n                '(1 hour) but the simulation is set up to run for only '  // &\n                '20 minutes, then this error will occur.'\n\n             ! Return error\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n          !=================================================================\n          ! Create a list of HISTORY ITEMS that will be contained in this\n          ! collection, for each entry under the \"fields\" tag.\n          !=================================================================\n          DO\n\n             IF ( ItemCount == 0 ) THEN\n\n                !----------------------------------------------------------\n                ! If we are on the same line as the \"fields\" tag, then\n                ! the name of the HISTORY ITEM will be the first substring\n                ! of MetaData (split on spaces).\n                !----------------------------------------------------------\n                CALL GetCollectionMetaData( Input_Opt, Line, 'fields', &\n                                            MetaData, C )\n                CALL StrSplit( MetaData, \" \", Subs1, nSubs1 )\n                ItemName = Subs1(1)\n\n             ELSE\n\n                !----------------------------------------------------------\n                ! Otherwise, read the next line to get the name for\n                ! each subsequent HISTORY ITEM.  The name will be the\n                ! first substring of the line.\n                !----------------------------------------------------------\n\n                ! Read a single line, strip leading/trailing spaces,\n                ! and keep track of the line number for error output\n                Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n                LineNum = LineNum + 1\n\n                ! Exit the loop if it's the end of the file\n                iF ( EOF ) GOTO 999\n\n                ! If it's a real I/O error, quit w/ error message\n                IF ( IOS > 0 ) THEN\n                   ErrMsg = 'Unexpected end-of-file in '        // &\n                             TRIM( Input_Opt%HistoryInputFile ) //'!'\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n\n                ! Remove commas, spaces, and tabs\n                Line = CleanText( Line )\n\n                ! Skip if the line is commented out\n                IF ( Line(1:1) == \"#\"  ) CYCLE\n\n                ! 2 colons denotes the end of the \"fields\" list\n                IF ( Line(1:2) == '::' ) EXIT\n\n                ! The HISTORY ITEM name will be the 1st substring of Line\n                CALL StrSplit( Line, \" \", Subs1, nSubs1 )\n                ItemName = Subs1(1)\n\n             ENDIF\n\n             !--------------------------------------------------------------\n             ! Create the a HISTORY ITEM object for each diagnostic\n             ! entry read from HISTORY.rc and add to the given COLLECTION\n             !--------------------------------------------------------------\n\n             ! Save the item name in temporary variables\n             ! so that we can parse for wildcards\n             ItemTemplate   = ItemName\n             ItemTemplateUC = To_UpperCase( ItemTemplate )\n\n             ! Test if there are wildcards present, otherwise skip\n             IF ( INDEX( ItemTemplate, '?' ) >  0 ) THEN\n\n                ! Split the name to get wildcard and string prior to wildcard\n                CALL StrSplit( ItemTemplate, '?', SubStrs, N )\n                tagId = SubStrs(N-1)\n                ItemPrefix = SubStrs(1)\n\n                ! Get number of tags for this wildcard\n                CALL Get_TagInfo( Input_Opt, tagId, State_Chm, Found, RC, &\n                                  nTags=nTags )\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error retrieving # of tags for' //              &\n                            ' wildcard ' // TRIM(tagId)\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n\n                ! Add each tagged name as a separate item in the collection\n                DO N = 1, nTags\n                   ! Construct the item name\n\n                   ! Get tag, if any\n                   CALL Get_TagInfo( Input_Opt, tagId, State_Chm, Found, RC, &\n                                     N=N, tagName=tagName )\n                   IF ( RC /= GC_SUCCESS ) THEN\n                      ErrMsg = 'Error retrieving tag name for' //            &\n                               ' wildcard ' // TRIM(tagId)\n                      WRITE( ErrorLine, 250 ) LineNum\n                      CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                      RETURN\n                   ENDIF\n\n                   ! Append the tag name to the output name\n                   ItemName = TRIM( ItemPrefix ) // TRIM( tagName )\n\n                   ! Update the ItemName if dependent on input parameters\n                   CALL Get_NameInfo( Input_Opt, ItemName, OutputName, RC )\n\n                   ! Increment the item count\n                   ItemCount   = ItemCount + 1\n\n                   ! Create the a HISTORY ITEM object for this diagnostic\n                   ! and add it to the given DIAGNOSTIC COLLECTION\n                   CALL History_AddItemToCollection(                         &\n                            Input_Opt    = Input_Opt,                        &\n                            State_Chm    = State_Chm,                        &\n                            State_Diag   = State_Diag,                       &\n                            State_Grid   = State_Grid,                       &\n                            State_Met    = State_Met,                        &\n                            Collection   = Container,                        &\n                            CollectionId = C,                                &\n                            SubsetInd    = CollectionSubsetInd(:,C),         &\n                            LevelInd     = CollectionLevelInd(:,C),          &\n                            ItemName     = OutputName,                       &\n                            ItemCount    = ItemCount,                        &\n                            RC           = RC                               )\n\n                   ! Error checking\n                   IF ( RC /= GC_SUCCESS ) THEN\n                      ErrMsg = 'Could not add diagnostic \"'               // &\n                               TRIM( OutputName ) // '\" to collection: '  // &\n                               TRIM( CollectionName(C) )\n                      WRITE( ErrorLine, 250 ) LineNum\n                      CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                      RETURN\n                   ENDIF\n                ENDDO\n\n             ELSE\n\n                !-----------------------------------------------------------\n                ! Item name does not have wildcards; no special handling\n                !-----------------------------------------------------------\n\n                ! Update the ItemName if dependent on input parameters\n                CALL Get_NameInfo( Input_Opt, ItemName, OutputName, RC )\n\n                ! Increment the number of HISTORY items\n                ItemCount = ItemCount + 1\n\n                ! Create the a HISTORY ITEM object for this diagnostic\n                ! and add it to the given DIAGNOSTIC COLLECTION\n                CALL History_AddItemToCollection(                            &\n                         Input_Opt    = Input_Opt,                           &\n                         State_Chm    = State_Chm,                           &\n                         State_Grid   = State_Grid,                          &\n                         State_Diag   = State_Diag,                          &\n                         State_Met    = State_Met,                           &\n                         Collection   = Container,                           &\n                         CollectionId = C,                                   &\n                         SubsetInd    = CollectionSubsetInd(:,C),            &\n                         LevelInd     = CollectionLevelInd(:,C),             &\n                         ItemName     = OutputName,                          &\n                         ItemCount    = ItemCount,                           &\n                         RC           = RC                                  )\n\n                ! Trap potential error\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Could not add diagnostic \"' // TRIM(OutputName) &\n                            // '\" to collection: ' // TRIM( CollectionName(C) )\n                   WRITE( ErrorLine, 250 ) LineNum\n                   CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                   RETURN\n                ENDIF\n             ENDIF\n          ENDDO\n\n          !=================================================================\n          ! Add this HISTORY CONTAINER object (i.e. this collection) into\n          ! the METAHISTORY OBJECT (i.e. the main list of collections).\n          !=================================================================\n          CALL MetaHistContainer_AddNew( Input_Opt   = Input_Opt,            &\n                                         Node        = CollectionList,       &\n                                         Container   = Container,            &\n                                         RC          = RC                   )\n\n          ! Trap potential error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Could not add Container' //                           &\n                      TRIM( CollectionName(C) ) //                           &\n                      ' to the list of collections!'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n\n       ELSE\n\n          !=================================================================\n          ! If the we have gotten this far tthrough a collection definition\n          ! section, but still haven't found the \".fields\" tag, then we\n          ! need to do some further error checking.\n          !=================================================================\n          IF ( C == UNDEFINED_INT ) THEN\n\n             !--------------------------------------------------------------\n             ! First, check if the collection isn't activated.  If that\n             ! is the case, then skip over all of the lines in the\n             ! collection definition section until we hit the \"::\"\n             ! termination character.  Then cycle up to the top of the\n             ! loop to read the next collection definition section.\n             !--------------------------------------------------------------\n\n             ! Get the collection name (its to the left of the first \".\")\n             N     = INDEX( TRIM( Line ), '.' )\n             CName = Line(1:N-1)\n\n             ! Search for this collection in the list of active collections\n             ! and skip to the next collection if not found\n             CALL Search_CollList( Input_Opt%amIRoot, CollList,              &\n                                   CName,             Found,    RC          )\n             IF ( .not. Found ) THEN\n                DO\n                   ! Read a single line, strip leading/trailing spaces,\n                   ! and keep track of the line number for error output\n                   Line    = ReadOneLine( fId, EOF, IOS, Squeeze=.TRUE. )\n                   LineNum = LineNum + 1\n\n                   ! Exit the loop if it's the end of the file\n                   IF ( EOF ) GOTO 999\n\n                   ! If it's a real I/O error, quit w/ error message\n                   IF ( IOS > 0 ) THEN\n                      ErrMsg = 'Unexpected end-of-file in \"'              // &\n                           TRIM( Input_Opt%HistoryInputFile )\n                      WRITE( ErrorLine, 250 ) LineNum\n                      CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n                      RETURN\n                   ENDIF\n\n                   ! If it's the end of the collection, cycle to next line\n                   IF ( TRIM( Line ) == '::' ) GOTO 500\n                ENDDO\n             ENDIF\n\n             !--------------------------------------------------------------\n             ! If we have gotten down to this point, then a true error\n             ! condition exists.  Print an error message asking the user\n             ! to check the HISTORY.rc file for inconsistencies.\n             !--------------------------------------------------------------\n\n             ! List the defined collections\n             WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n             WRITE( 6, 200   )\n             DO N = 1, CollectionCount\n                WRITE( 6, 210 ) N, TRIM( CollectionName(N) )\n             ENDDO\n             WRITE( 6, 220 )\n             WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n\n             ! Write error message and then return\n             ErrMsg = 'Inconsistency in collection names and attributes!' // &\n                      ' Please check \"HISTORY.rc\" for typos.'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n       ENDIF\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n999 CONTINUE\n\n    ! Free pointers\n    Grid_Lat  => NULL()\n    Grid_LatE => NULL()\n    Grid_Lon  => NULL()\n    Grid_LonE => NULL()\n\n    ! Close the file\n    CLOSE( fId )\n\n    ! Write output\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n       WRITE( 6, '(a  )' ) 'DEFINED DIAGNOSTIC COLLECTIONS:'\n       WRITE( 6, '(a  )' ) REPEAT( '=', 79 )\n\n       DO C = 1, CollectionCount\n          print*, 'Collection        ', TRIM( CollectionName       (C) )\n          print*, '  -> FileName     ', TRIM( CollectionFileName   (C) )\n          print*, '  -> Frequency    ', TRIM( CollectionFrequency  (C) )\n          IF ( CollectionAccInterval(C) /= UNDEFINED_STR ) THEN\n             print*, '  -> Acc_Interval ', TRIM( CollectionAccInterval(C) )\n          ENDIF\n          IF ( CollectionDuration(C) /= UNDEFINED_STR ) THEN\n          print*, '  -> Duration     ', TRIM( CollectionDuration   (C) )\n          ENDIF\n          print*, '  -> Mode         ', TRIM( CollectionMode       (C) )\n          IF ( CollectionLonRange(C) /= UNDEFINED_STR ) THEN\n             print*, '  -> LON_RANGE    ',                                   &\n                  TRIM(ADJUSTL(ADJUSTR( CollectionLonRange(C) )))\n             print*, '     -> X0 X1  ', ((CollectionSubsetInd(N,C)), N=1,2)\n          ENDIF\n          IF ( CollectionLatRange(C) /= UNDEFINED_STR ) THEN\n             print*, '  -> LAT_RANGE    ',                                   &\n                  TRIM(ADJUSTL(ADJUSTR( CollectionLatRange(C) )))\n             print*, '     -> Y0 Y1  ', ((CollectionSubsetInd(N,C)), N=3,4)\n          ENDIF\n          IF ( CollectionLevels(C) /= UNDEFINED_STR ) THEN\n             print*, '  -> Levels    ' , TRIM( CollectionLevels(C) )\n             print*, '     -> Z0 Z1  ', ((CollectionLevelInd(N,C)), N=1,2)\n          ENDIF\n          IF ( CollectionHrRange(C) /= UNDEFINED_STR ) THEN\n             print*, '  -> hrrange  ' , TRIM( CollectionHrRange(C) )\n          ENDIF\n\n          ! Trap error if the collection frequency is undefined\n          ! This indicates an error in parsing the file\n          IF ( TRIM( CollectionFrequency(C) ) == UNDEFINED_STR ) THEN\n             ErrMsg = 'Collection: ' // TRIM( CollectionName(C) ) //         &\n                      ' is undefined!'\n             WRITE( ErrorLine, 250 ) LineNum\n             CALL GC_Error( ErrMsg, RC, ThisLoc, ErrorLine )\n             RETURN\n          ENDIF\n       ENDDO\n    ENDIF\n\n    IF ( Input_Opt%Verbose ) THEN\n       ! Print information about each diagnostic collection\n       CALL MetaHistContainer_Print( Input_Opt, CollectionList, RC )\n    ENDIF\n\n    ! Write spacer\n    WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n\n  END SUBROUTINE History_ReadCollectionData\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_AddItemToCollection\n!\n! !DESCRIPTION: Creates a HISTORY ITEM object for a given diagnostic quantity,\n!  and then attaches it to a given diagnostic collection.  Given the name\n!  of the diagnostic quantity, it will obtain metadata (and pointers to the\n!  data array) via the appropriate state registry.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_AddItemToCollection( Input_Opt,    State_Chm,           &\n                                          State_Diag,   State_Grid,          &\n                                          State_Met,    Collection,          &\n                                          CollectionId, ItemName,            &\n                                          ItemCount,    SubsetInd,           &\n                                          LevelInd,     RC                  )\n!\n! !USES:\n!\n    USE Charpak_Mod,           ONLY : To_UpperCase\n    USE ErrCode_Mod\n    USE HistContainer_Mod\n    USE HistItem_Mod\n    USE History_Util_Mod,      ONLY : UNDEFINED_INT\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE MetaHistContainer_Mod\n    USE MetaHistItem_Mod\n    USE Registry_Mod,          ONLY : Registry_Lookup\n    USE State_Chm_Mod\n    USE State_Diag_Mod\n    USE State_Grid_Mod\n    USE State_Met_Mod\n\n!\n! !INPUT PARAMETERS:\n!\n    ! Required arguments\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt      ! Input Options State\n    TYPE(ChmState),      INTENT(IN)  :: State_Chm      ! Chemistry State\n    TYPE(DgnState),      INTENT(IN)  :: State_Diag     ! Diagnostic State\n    TYPE(GrdState),      INTENT(IN)  :: State_Grid     ! Diagnostic State\n    TYPE(MetState),      INTENT(IN)  :: State_Met      ! Meteorology State\n    INTEGER,             INTENT(IN)  :: CollectionID   ! Collection ID number\n    CHARACTER(LEN=255),  INTENT(IN)  :: ItemName       ! Name of HISTORY ITEM\n    INTEGER,             INTENT(IN)  :: ItemCount      ! Index of HISTORY ITEM\n\n    ! Optional arguments\n    INTEGER,             OPTIONAL    :: SubsetInd(4)    ! X0,X1,Y0,Y1 indices\n    INTEGER,             OPTIONAL    :: LevelInd(2)     ! Z0,Z1 indices\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Collection     ! Diagnostic Collection\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC             ! Success or failure?\n!\n! !REMARKS:\n!  Private routine, called from History_Init.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                      :: OnLevelEdges\n    INTEGER                      :: Source_KindVal\n    INTEGER                      :: Output_KindVal\n    INTEGER                      :: Rank\n    INTEGER                      :: NX, X0, X1\n    INTEGER                      :: NY, Y0, Y1\n    INTEGER                      :: NZ, Z0, Z1\n\n    ! Arrays\n    INTEGER                      :: Dimensions(3)\n    INTEGER                      :: ItemDims(3)\n    INTEGER                      :: Subset_X(2)\n    INTEGER                      :: Subset_Y(2)\n    INTEGER                      :: Subset_Z(2)\n\n    ! Strings\n    CHARACTER(LEN=4  )           :: StateMetUC\n    CHARACTER(LEN=5  )           :: StateChmUC\n    CHARACTER(LEN=5  )           :: StateGrdUC\n    CHARACTER(LEN=255)           :: ItemNameUC\n    CHARACTER(LEN=255)           :: Description\n    CHARACTER(LEN=255)           :: ThisLoc\n    CHARACTER(LEN=255)           :: Units\n    CHARACTER(LEN=512)           :: ErrMsg\n\n    ! Objects\n    TYPE(HistItem),      POINTER :: Item\n\n    ! Pointer arrays\n    REAL(fp),            POINTER :: Ptr0d\n    REAL(f8),            POINTER :: Ptr0d_8\n    REAL(f4),            POINTER :: Ptr0d_4\n    INTEGER,             POINTER :: Ptr0d_I\n    REAL(fp),            POINTER :: Ptr1d  (:    )\n    REAL(f8),            POINTER :: Ptr1d_8(:    )\n    REAL(f4),            POINTER :: Ptr1d_4(:    )\n    INTEGER,             POINTER :: Ptr1d_I(:    )\n    REAL(fp),            POINTER :: Ptr2d  (:,:  )\n    REAL(f8),            POINTER :: Ptr2d_8(:,:  )\n    REAL(f4),            POINTER :: Ptr2d_4(:,:  )\n    INTEGER,             POINTER :: Ptr2d_I(:,:  )\n    REAL(fp),            POINTER :: Ptr3d  (:,:,:)\n    REAL(f8),            POINTER :: Ptr3d_8(:,:,:)\n    REAL(f4),            POINTER :: Ptr3d_4(:,:,:)\n    INTEGER,             POINTER :: Ptr3d_I(:,:,:)\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC             =  GC_SUCCESS\n    Description    =  ''\n    Dimensions     =  0\n    Source_KindVal =  0\n    Output_KindVal =  0\n    Rank           =  0\n    Units          =  ''\n    ErrMsg         =  ''\n    ThisLoc        =  &\n         ' -> History_AddItemToCollection (in History/history_mod.F90)'\n    ItemNameUC     = To_UpperCase( ItemName )\n    StateChmUC     = State_Chm%State  // '_'   ! State_Chm%State is uppercase\n    StateGrdUC     = State_Grid%State // '_'   ! State_Grd%State is uppercase\n    StateMetUC     = State_Met%State  // '_'   ! State_Met%State is uppercase\n\n    ! Free pointers\n    Ptr0d    => NULL()\n    Ptr0d_8  => NULL()\n    Ptr0d_4  => NULL()\n    Ptr0d_I  => NULL()\n    Ptr1d    => NULL()\n    Ptr1d_8  => NULL()\n    Ptr1d_4  => NULL()\n    Ptr1d_I  => NULL()\n    Ptr2d    => NULL()\n    Ptr2d_8  => NULL()\n    Ptr2d_4  => NULL()\n    Ptr2d_I  => NULL()\n    Ptr3d    => NULL()\n    Ptr3d_8  => NULL()\n    Ptr3d_4  => NULL()\n    Ptr3d_I  => NULL()\n\n    !=======================================================================\n    ! For each HISTORY ITEM, find the matching entry in the relevant\n    ! registry (in State_Chm, State_Diag, State_Met) and get a pointer\n    ! to the data source\n    !=======================================================================\n    IF ( ItemNameUC(1:5) == StateChmUC ) THEN\n\n       !--------------------------------------------------------------------\n       ! Chemistry State\n       !--------------------------------------------------------------------\n       CALL Registry_Lookup( am_I_Root      = Input_Opt%amIRoot,             &\n                             Registry       = State_Chm%Registry,            &\n                             RegDict        = State_Chm%RegDict,             &\n                             State          = State_Chm%State,               &\n                             Variable       = ItemName,                      &\n                             Description    = Description,                   &\n                             Dimensions     = Dimensions,                    &\n                             Source_KindVal = Source_KindVal,                &\n                             Output_KindVal = Output_KindVal,                &\n                             Rank           = Rank,                          &\n                             Units          = Units,                         &\n                             OnLevelEdges   = OnLevelEdges,                  &\n                             Ptr0d_8        = Ptr0d_8,                       &\n                             Ptr1d_8        = Ptr1d_8,                       &\n                             Ptr2d_8        = Ptr2d_8,                       &\n                             Ptr3d_8        = Ptr3d_8,                       &\n                             Ptr0d_4        = Ptr0d_4,                       &\n                             Ptr1d_4        = Ptr1d_4,                       &\n                             Ptr2d_4        = Ptr2d_4,                       &\n                             Ptr3d_4        = Ptr3d_4,                       &\n                             Ptr0d_I        = Ptr0d_I,                       &\n                             Ptr1d_I        = Ptr1d_I,                       &\n                             Ptr2d_I        = Ptr2d_I,                       &\n                             Ptr3d_I        = Ptr3d_I,                       &\n                             RC             = RC                            )\n\n       ! Trap potential not found error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not locate ' // TRIM( ItemName )  // &\n                   ' chemistry state registry.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE IF ( ItemNameUC(1:5) == StateGrdUC ) THEN\n\n       !--------------------------------------------------------------------\n       ! Grid State\n       !--------------------------------------------------------------------\n       CALL Registry_Lookup( am_I_Root      = Input_Opt%amIRoot,             &\n                             Registry       = State_Grid%Registry,           &\n                             RegDict        = State_Grid%RegDict,            &\n                             State          = State_Grid%State,              &\n                             Variable       = ItemName,                      &\n                             Description    = Description,                   &\n                             Dimensions     = Dimensions,                    &\n                             Source_KindVal = Source_KindVal,                &\n                             Output_KindVal = Output_KindVal,                &\n                             Rank           = Rank,                          &\n                             Units          = Units,                         &\n                             OnLevelEdges   = OnLevelEdges,                  &\n                             Ptr0d_8        = Ptr0d_8,                       &\n                             Ptr1d_8        = Ptr1d_8,                       &\n                             Ptr2d_8        = Ptr2d_8,                       &\n                             Ptr2d_4        = Ptr2d_4,                       &\n                             RC             = RC                            )\n\n       ! Trap potential not found error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not locate ' // TRIM( ItemName )  // &\n                   ' meteorology state registry.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE IF ( ItemNameUC(1:4) == StateMetUC ) THEN\n\n       !--------------------------------------------------------------------\n       ! Meteorology State\n       !--------------------------------------------------------------------\n       CALL Registry_Lookup( am_I_Root      = Input_Opt%amIRoot,             &\n                             Registry       = State_Met%Registry,            &\n                             RegDict        = State_Met%RegDict,             &\n                             State          = State_Met%State,               &\n                             Variable       = ItemName,                      &\n                             Description    = Description,                   &\n                             Dimensions     = Dimensions,                    &\n                             Source_KindVal = Source_KindVal,                &\n                             Output_KindVal = Output_KindVal,                &\n                             Rank           = Rank,                          &\n                             Units          = Units,                         &\n                             OnLevelEdges   = OnLevelEdges,                  &\n                             Ptr0d_8        = Ptr0d_8,                       &\n                             Ptr1d_8        = Ptr1d_8,                       &\n                             Ptr2d_8        = Ptr2d_8,                       &\n                             Ptr3d_8        = Ptr3d_8,                       &\n                             Ptr0d_4        = Ptr0d_4,                       &\n                             Ptr1d_4        = Ptr1d_4,                       &\n                             Ptr2d_4        = Ptr2d_4,                       &\n                             Ptr3d_4        = Ptr3d_4,                       &\n                             Ptr0d_I        = Ptr0d_I,                       &\n                             Ptr1d_I        = Ptr1d_I,                       &\n                             Ptr2d_I        = Ptr2d_I,                       &\n                             Ptr3d_I        = Ptr3d_I,                       &\n                             RC             = RC                            )\n\n       ! Trap potential not found error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not locate ' // TRIM( ItemName )  // &\n                   ' meteorology state registry.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Diagnostic State\n       !--------------------------------------------------------------------\n       CALL Registry_Lookup( am_I_Root      = Input_Opt%amIRoot,             &\n                             Registry       = State_Diag%Registry,           &\n                             RegDict        = State_Diag%RegDict,            &\n                             State          = State_Diag%State,              &\n                             Variable       = ItemName,                      &\n                             Description    = Description,                   &\n                             Dimensions     = Dimensions,                    &\n                             Source_KindVal = Source_KindVal,                &\n                             Output_KindVal = Output_KindVal,                &\n                             Rank           = Rank,                          &\n                             Units          = Units,                         &\n                             OnLevelEdges   = OnLevelEdges,                  &\n                             Ptr0d_8        = Ptr0d_8,                       &\n                             Ptr1d_8        = Ptr1d_8,                       &\n                             Ptr2d_8        = Ptr2d_8,                       &\n                             Ptr3d_8        = Ptr3d_8,                       &\n                             Ptr0d_4        = Ptr0d_4,                       &\n                             Ptr1d_4        = Ptr1d_4,                       &\n                             Ptr2d_4        = Ptr2d_4,                       &\n                             Ptr3d_4        = Ptr3d_4,                       &\n                             Ptr0d_I        = Ptr0d_I,                       &\n                             Ptr1d_I        = Ptr1d_I,                       &\n                             Ptr2d_I        = Ptr2d_I,                       &\n                             Ptr3d_I        = Ptr3d_I,                       &\n                             RC             = RC                            )\n\n       ! Trap potential not found error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not locate ' // TRIM( ItemName )  // &\n                   ' diagnostics state registry.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! If the optional SUBSETS and/or LEVELS arguments are passed, then use\n    ! these to size the data arrays.  Otherwise assume the data arrays will\n    ! be the same size as the pointer to the data source (as will be true\n    ! in most cases.)\n    !=======================================================================\n\n    !-------------------------\n    ! Default values\n    !-------------------------\n\n    ! By default, use the size of the data array to define the\n    ! X0, Y0, X1, Y1, Z0, and Z1 indices for the subset region.\n    X0 = 1\n    X1 = MAX( Dimensions(1), 1 )\n    Y0 = 1\n    Y1 = MAX( Dimensions(2), 1 )\n    Z0 = 1\n    Z1 = MAX( Dimensions(3), 1 )\n\n    !-------------------------\n    ! Horizontal subsetting\n    !-------------------------\n\n    ! If SubsetInd has valid values, use them to redefine X0, Y0, X1, and Y1.\n    IF ( PRESENT( SubsetInd ) ) THEN\n       IF ( SubsetInd(1) /= UNDEFINED_INT ) X0 = SubsetInd(1)\n       IF ( SubsetInd(2) /= UNDEFINED_INT ) X1 = SubsetInd(2)\n       IF ( SubsetInd(3) /= UNDEFINED_INT ) Y0 = SubsetInd(3)\n       IF ( SubsetInd(4) /= UNDEFINED_INT ) Y1 = SubsetInd(4)\n    ENDIF\n\n    !-------------------------\n    ! Vertical subsetting\n    !-------------------------\n\n    ! If LevelInd has valid values, use them to redefine Z0 and Z1.\n    IF ( PRESENT( LevelInd ) ) THEN\n       IF ( LevelInd(1) /= UNDEFINED_INT ) Z0 = LevelInd(1)\n       IF ( LevelInd(2) /= UNDEFINED_INT ) Z1 = LevelInd(2)\n    ENDIF\n\n    ! Error check X-dimension indices\n    IF ( X1 < X0 ) THEN\n       WRITE( ErrMsg, 100 ) X0, X1, TRIM( Collection%Name )\n 100   FORMAT(  'Invalid X-dimension indices: ', 2i6, ' for collection', a )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Error-check Y-dimension indices\n    IF ( Y1 < Y0 ) THEN\n       WRITE( ErrMsg, 110 ) Y0, Y1, TRIM( Collection%Name )\n 110   FORMAT(  'Invalid Y-dimension indices: ', 2i6, ' for collection', a )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Error-check Z-dimension indices\n    IF ( Z1 < Z0 ) THEN\n       WRITE( ErrMsg, 120 ) Z0, Z1, TRIM( Collection%Name )\n 120   FORMAT(  'Invalid Y-dimension indices: ', 2i6, ' for collection', a )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Compute dimension extent\n    NX = X1 - X0 + 1\n    NY = Y1 - Y0 + 1\n    NZ = Z1 - Z0 + 1\n\n    ! Indices for subsetting the data\n    Subset_X = (/ X0, X1 /)\n    Subset_Y = (/ Y0, Y1 /)\n    Subset_Z = (/ Z0, Z1 /)\n\n    ! Save the subsets to the collection\n    Collection%X0 = X0\n    Collection%X1 = X1\n    Collection%Y0 = Y0\n    Collection%Y1 = Y1\n    Collection%Z0 = Z0\n    !NOTE: Z1 is not needed, we compute that later!\n\n    !=======================================================================\n    ! Now that we have obtained information (and pointers to the data)\n    ! corresponding to the given diagnostic quantity, use that to create\n    ! a HISTORY ITEM object for that diagnostic quantity.\n    !=======================================================================\n    CALL HistItem_Create( Input_Opt      = Input_Opt,                        &\n                          Item           = Item,                             &\n                          Id             = ItemCount,                        &\n                          ContainerId    = CollectionId,                     &\n                          Name           = ItemName,                         &\n                          LongName       = Description,                      &\n                          Units          = Units,                            &\n                          OnLevelEdges   = OnLevelEdges,                     &\n                          SpaceDim       = Rank,                             &\n                          Operation      = Collection%Operation,             &\n                          Subset_X       = Subset_X,                         &\n                          Subset_Y       = Subset_Y,                         &\n                          Subset_Z       = Subset_Z,                         &\n                          Source_KindVal = Source_KindVal,                   &\n                          Output_KindVal = Output_KindVal,                   &\n                          Source_0d_8    = Ptr0d_8,                          &\n                          Source_1d_8    = Ptr1d_8,                          &\n                          Source_1d_4    = Ptr1d_4,                          &\n                          Source_1d_I    = Ptr1d_I,                          &\n                          Source_2d_8    = Ptr2d_8,                          &\n                          Source_2d_4    = Ptr2d_4,                          &\n                          Source_2d_I    = Ptr2d_I,                          &\n                          Source_3d_8    = Ptr3d_8,                          &\n                          Source_3d_4    = Ptr3d_4,                          &\n                          Source_3d_I    = Ptr3d_I,                          &\n                          Dimensions     = ItemDims,                         &\n                          RC             = RC                               )\n\n    ! Trap potential error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not create Item: \"' // TRIM( ItemName ) // '\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Attach this HISTORY ITEM to the METAHISTORY ITEM (aka list of HISTORY\n    ! ITEMS) belonging to the HISTORY CONTAINER object for the given\n    ! diagnostic collection.\n    !\n    ! In other words, we are adding this diagnostic quantity to the list\n    ! of diagnostic quantities that belong to this diagnostic collection.\n    ! These quantities will be written to the netCDF file described by\n    ! the collection, with the specified update frequency.\n    !=======================================================================\n    CALL MetaHistItem_AddNew( Input_Opt = Input_Opt,                         &\n                              Node      = Collection%HistItems,              &\n                              Item      = Item,                              &\n                              RC        = RC                                )\n\n    ! Trap potential error\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not add Item \"' //                                    &\n                TRIM( ItemName )       //  '\" to '   //                      &\n                TRIM( CollectionName(CollectionId) ) // '%HistItems!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Define the dimensions of the collection from the HISTORY ITEMS,\n    ! and also whether vertical data is on the level centers or edges\n    !=======================================================================\n\n    ! Define the X dimension of the collection from the\n    ! first HISTORY ITEM that has an X dimension\n    IF ( Collection%NX == UNDEFINED_INT ) THEN\n       SELECT CASE( Item%DimNames )\n          CASE( 'xyz', 'xz', 'xy', 'x' )\n             Collection%NX = ItemDims(1)\n          CASE DEFAULT\n             ! Nothing\n       END SELECT\n    ENDIF\n\n    ! Define the Y dimension of the collection from the\n    ! first HISTORY ITEM that has a Y dimension\n    IF ( Collection%NY == UNDEFINED_INT ) THEN\n       SELECT CASE( Item%DimNames )\n          CASE( 'xyz', 'xy' )\n             Collection%NY = ItemDims(2)\n          CASE( 'yz', 'y' )\n             Collection%NY = ItemDims(1)\n          CASE DEFAULT\n             ! Nothing\n       END SELECT\n    ENDIF\n\n    ! Define the Z dimension of the collection from the first HISTORY ITEM\n    ! that has a Z dimension. Also define whether the collection will\n    ! contain data that is centered or edged on vertical levels.\n    IF ( Collection%NZ == UNDEFINED_INT ) THEN\n       SELECT CASE( Item%DimNames )\n          CASE( 'xyz' )\n             Collection%NZ = ItemDims(3)\n          CASE( 'xz', 'yz' )\n             Collection%NZ = ItemDims(2)\n          CASE( 'z' )\n             Collection%NZ = ItemDims(1)\n          CASE DEFAULT\n             ! Nothing\n       END SELECT\n\n       Collection%OnLevelEdges = Item%OnLevelEdges\n    ENDIF\n\n    ! NB is always two (lon0, lon1) or (lat0, lat1)\n    IF ( Collection%NB == UNDEFINED_INT ) THEN\n       Collection%NB = 2\n    ENDIF\n\n    !=======================================================================\n    ! Make sure that all the HISTORY ITEMS in this collection are\n    ! placed on the level centers or edges, but not both.  The netCDF\n    ! COARDS/CF conventions do not allow for data on more than one\n    ! vertical dimension per file.\n    !=======================================================================\n    IF ( Item%SpaceDim == 3 ) THEN\n       IF ( Collection%OnLevelEdges .neqv. Item%OnLevelEdges ) THEN\n          ErrMsg = TRIM( Item%Name )                                      // &\n                   ' has the wrong vertical alignment for collection: \"'  // &\n                   TRIM( Collection%Name )  // '\".  Please check your '   // &\n                   'HISTORY.rc file to make sure that this collection '   // &\n                   'only contains 3-D diagnostics with the same vertical '// &\n                   'alignment.  You cannot add diagnostics that are '     // &\n                   'defined on level centers and diagnostics that are '   // &\n                   'defined on level edges in the same collection, as '   // &\n                   'per netCDF conventions.'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n\n    ! Increment number of HISTORY ITEMS in this collection\n    Collection%nHistItems = Collection%nHistItems + 1\n\n    ! Free Item (we have added it to the container and don't need it anymore)\n    DEALLOCATE( Item )\n    Item => NULL()\n\n    ! Free pointers\n    Ptr0d   => NULL()\n    Ptr0d_8 => NULL()\n    Ptr0d_4 => NULL()\n    Ptr0d_I => NULL()\n    Ptr1d   => NULL()\n    Ptr1d_8 => NULL()\n    Ptr1d_4 => NULL()\n    Ptr1d_I => NULL()\n    Ptr2d   => NULL()\n    Ptr2d_8 => NULL()\n    Ptr2d_4 => NULL()\n    Ptr2d_I => NULL()\n    Ptr3d   => NULL()\n    Ptr3d_8 => NULL()\n    Ptr3d_4 => NULL()\n    Ptr3d_I => NULL()\n\n  END SUBROUTINE History_AddItemToCollection\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_SetTime\n!\n! !DESCRIPTION: Sets the time values for each HISTORY CONTAINER object\n!  that specifies a diagnostic collection.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_SetTime( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod,     ONLY : HistContainer_SetTime\n    USE History_Util_Mod\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE MetaHistContainer_Mod, ONLY : MetaHistContainer\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt        ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC               ! Success or failure\n!\n! !REMARKS:\n!  This routine is meant to be called after History_Update() but before\n!  History_Write().\n!\n! !REVISION HISTORY:\n!  18 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)               :: ErrMsg\n    CHARACTER(LEN=255)               :: ThisLoc\n\n    ! Objects\n    TYPE(MetaHistContainer), POINTER :: Collection\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC         =  GC_SUCCESS\n    Collection => NULL()\n    ErrMsg     =  ''\n    ThisLoc    =  ' -> at History_SetTime (in History/history_mod.F90)'\n\n    !=======================================================================\n    ! Loop through each DIAGNOSTIC COLLECTION in the main list\n    !=======================================================================\n\n    ! Point to the first COLLECTION in the main collection list\n    Collection => CollectionList\n\n    ! As long as this current COLLECTION is valid ...\n    DO WHILE( ASSOCIATED( Collection ) )\n\n       ! Update the time settings for the next timestep\n       CALL HistContainer_SetTime( Input_Opt   = Input_Opt,                  &\n                                   Container   = Collection%Container,       &\n                                   RC          = RC                         )\n\n       ! Trap error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"HistContainer_SetTime\" ' //        &\n                   ' for container : ' // TRIM( Collection%Container%Name )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Go to next collection\n       Collection => Collection%Next\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n\n    ! Free pointers\n    Collection => NULL()\n\n  END SUBROUTINE History_SetTime\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Update\n!\n! !DESCRIPTION: For each HISTORY ITEM belonging to a diagnostic COLLECTION,\n!  the data from the target variable is copied or accumulated into the\n!  HISTORY ITEM's data field for further analysis.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Update( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistItem_Mod,          ONLY : HistItem\n    USE HistContainer_Mod,     ONLY : HistContainer\n    USE HistContainer_Mod,     ONLY : HistContainer_UpdateIvalSet\n    USE History_Util_Mod\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE State_Diag_Mod,        ONLY : DgnState\n    USE MetaHistContainer_Mod, ONLY : MetaHistContainer\n    USE MetaHistItem_Mod,      ONLY : MetaHistItem\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(DgnState), INTENT(IN)    :: State_Diag     ! Diagnostics state obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC         ! Success or failure\n!\n! !REMARKS:\n!  This routine is called from the main program at the end of each\n!  \"heartbeat\" timestep.\n!\n! !REVISION HISTORY:\n!  03 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                          :: DoUpdate\n\n    ! Strings\n    CHARACTER(LEN=255)               :: ErrMsg\n    CHARACTER(LEN=255)               :: ThisLoc\n\n    ! Objects\n    TYPE(MetaHistContainer), POINTER :: Collection\n    TYPE(HistContainer),     POINTER :: Container\n    TYPE(MetaHistItem),      POINTER :: Current\n    TYPE(HistItem),          POINTER :: Item\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC         =  GC_SUCCESS\n    DoUpdate   = .FALSE.\n    Collection => NULL()\n    Container  => NULL()\n    Current    => NULL()\n    Item       => NULL()\n    ErrMsg     =  ''\n    ThisLoc    =  ' -> at History_Update (in History/history_mod.F90)'\n\n    !=======================================================================\n    ! Loop through each DIAGNOSTIC COLLECTION in the main list, and\n    ! then loop through the HISTORY ITEMS belonnging to each COLLECTION.\n    ! Update each HISTORY ITEM if it is the proper time.\n    !=======================================================================\n\n    ! Point to the first COLLECTION in the main collection list\n    Collection => CollectionList\n\n    ! As long as this current COLLECTION is valid ...\n    DO WHILE( ASSOCIATED( Collection ) )\n\n       ! Point to the HISTORY CONTAINER object in this COLLECTION\n       Container => Collection%Container\n\n       !--------------------------------------------------------------------\n       ! Test if it is time to update this collection\n       !--------------------------------------------------------------------\n\n       ! Test if the \"UpdateAlarm\" is ringing\n       DoUpdate = ( ( Container%UpdateAlarm - Container%ElapsedSec ) < EPS )\n\n       IF ( TRIM(Container%Name) .eq. 'BoundaryConditions'   .and.   &\n            Container%ElapsedSec .eq. 0.0 ) THEN\n          Container%UpdateAlarm = 0.0\n          DoUpdate = .TRUE.\n       ENDIF\n\n       ! Skip to next collection if it isn't\n       IF ( .not. DoUpdate ) THEN\n          Container  => NULL()\n          Collection => Collection%Next\n          CYCLE\n       ENDIF\n\n       ! Debug output\n       IF ( Input_Opt%Verbose ) THEN\n          WRITE( 6, 100 ) Container%Name\n 100      FORMAT( '     - Updating collection: ', a20 )\n       ENDIF\n\n       !--------------------------------------------------------------------\n       ! If it is time to update the collection, then loop through all of\n       ! the associated HISTORY ITEMS and either copy or accumulate the\n       ! data from the source pointer into the HISTORY ITEM's data array.\n       !--------------------------------------------------------------------\n\n       ! Point to the first HISTORY ITEM belonging to the\n       ! HISTORY CONTAINER object for the current COLLECTION\n       Current => Container%HistItems\n\n       ! As long as this HISTORY ITEM is valid ...\n       DO WHILE ( ASSOCIATED( Current ) )\n\n          ! Get the HISTORY ITEM object contained in this node\n          ! of the linked list of HISTORY ITEMS for this COLLECTION\n          Item => Current%Item\n\n          ! Test the rank of the data\n          SELECT CASE( Item%SpaceDim )\n\n             !--------------------------------------------------------------\n             ! Update 3-D data field\n             !--------------------------------------------------------------\n             CASE( 3 )\n\n                ! 8-byte floating point\n                IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_3d = Item%Source_3d_8\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_3d  = Item%Data_3d  + Item%Source_3d_8\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ! 4-byte floating point\n                ELSE IF ( Item%Source_KindVal == KINDVAL_F4 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_3d  = Item%Source_3d_4\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_3d  = Item%Data_3d  + Item%Source_3d_4\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ! Integer\n                ELSE IF ( Item%Source_KindVal == KINDVAL_I4 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_3d  = Item%Source_3d_I\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_3d  = Item%Data_3d  + Item%Source_3d_I\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ENDIF\n\n             !--------------------------------------------------------------\n             ! Update 2-D data field\n             !--------------------------------------------------------------\n             CASE( 2 )\n\n                ! 8-byte floating point\n                IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_2d  = Item%Source_2d_8\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_2d  = Item%Data_2d + Item%Source_2d_8\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ! 4-byte floating point\n                ELSE IF ( Item%Source_KindVal == KINDVAL_F4 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_2d  = Item%Source_2d_4\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_2d  = Item%Data_2d + Item%Source_2d_4\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ! Integer\n                ELSE IF ( Item%Source_KindVal == KINDVAL_I4 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_2d  = Item%Source_2d_I\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_2d  = Item%Data_2d  + Item%Source_2d_I\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ENDIF\n\n             !--------------------------------------------------------------\n             ! Update 1-D data field\n             !--------------------------------------------------------------\n             CASE( 1 )\n\n                ! 8-byte floating point\n                IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_1d  = Item%Source_1d_8\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_1d  = Item%Data_1d  + Item%Source_1d_8\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ! 4-byte floating point\n                ELSE IF ( Item%Source_KindVal == KINDVAL_F4 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_1d  = Item%Source_1d_4\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_1d  = Item%Data_1d  + Item%Source_1d_4\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ! Integer\n                ELSE IF ( Item%Source_KindVal == KINDVAL_I4 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_1d  = Item%Source_1d_I\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_1d  = Item%Data_1d  + Item%Source_1d_I\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ENDIF\n\n             !--------------------------------------------------------------\n             ! Update 0D data field\n             !--------------------------------------------------------------\n             CASE( 0 )\n\n                ! Flex-precision floating point\n                IF ( Item%Source_KindVal == KINDVAL_F8 ) THEN\n\n                   IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n                      Item%Data_0d  = Item%Source_0d_8\n                      Item%nUpdates = 1.0_f8\n                   ELSE\n                      Item%Data_0d  = Item%Data_0d  + Item%Source_0d_8\n                      Item%nUpdates = Item%nUpdates + 1.0_f8\n                   ENDIF\n\n                ENDIF\n\n          END SELECT\n\n! Uncomment more detailed debug output if you need it!\n!          ! Debug output\n!          IF ( Input_Opt%Verbose ) THEN\n!             WRITE( 6, 110 ) TRIM(Container%Name),                        &\n!                             TRIM(Item%Name),       Item%nUpdates\n! 110         FORMAT( a20, 1x, a20, 1x, f7.1 )\n!          ENDIF\n!#endif\n\n          ! Free pointer\n          Item => NULL()\n\n          ! Go to the next HISTORY item\n          Current => Current%Next\n       ENDDO\n\n       !------------------------------------------------------------------\n       ! Prepare to go to the next collection\n       !------------------------------------------------------------------\n\n       ! Recompute the update alarm interval if it is 1 month or longer,\n       ! as we will have to take into account leap years, etc.\n       IF ( Container%UpdateYmd >= 000100 ) THEN\n          CALL HistContainer_UpdateIvalSet( Input_Opt, Container, RC )\n       ENDIF\n\n       ! Update the \"UpdateAlarm\" time for the next updating interval.\n       Container%UpdateAlarm = Container%UpdateAlarm +                    &\n                               Container%UpdateIvalSec\n\n       ! Free pointers\n       Current    => NULL()\n       Container  => NULL()\n\n       ! Go to the next entry in the list of collections\n       Collection => Collection%Next\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n\n    ! Free pointers\n    Collection => NULL()\n    Container  => NULL()\n    Current    => NULL()\n    Item       => NULL()\n\n  END SUBROUTINE History_Update\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Write\n!\n! !DESCRIPTION: For each HISTORY ITEM belonging to a diagnostic COLLECTION,\n!  the data from the target variable is copied or accumulated into the\n!  HISTORY ITEM's data field for further analysis.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Write( Input_Opt, State_Chm, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE Charpak_Mod,           ONLY : To_UpperCase\n    USE ErrCode_Mod\n    USE HistContainer_Mod\n    USE HistItem_Mod,          ONLY : HistItem\n    USE History_Netcdf_Mod\n    USE History_Util_Mod\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE State_Diag_Mod,        ONLY : DgnState\n    USE MetaHistContainer_Mod, ONLY : MetaHistContainer\n    USE MetaHistItem_Mod,      ONLY : MetaHistItem\n    USE PhysConstants,         ONLY : AIRMW\n    USE Registry_Params_Mod\n    USE State_Chm_Mod,         ONLY : ChmState\n    USE State_Diag_Mod,        ONLY : DgnMap, DgnState\n    USE State_Grid_Mod,        ONLY : GrdState\n    USE UnitConv_Mod,          ONLY : UNIT_STR, Check_Units\n    USE UnitConv_Mod,          ONLY : MOLES_SPECIES_PER_MOLES_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),   INTENT(IN)  :: Input_Opt   ! Input Options object\n    TYPE(ChmState),   INTENT(IN)  :: State_Chm   ! Chemistry State object\n    TYPE(DgnState),   INTENT(IN)  :: State_Diag  ! Diagnostics State object\n    TYPE(GrdState),   INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!  This routine is called from the main program at the end of each\n!  \"heartbeat\" timestep.\n!\n! !REVISION HISTORY:\n!  03 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                          :: DoClose\n    LOGICAL                          :: DoWrite\n    LOGICAL                          :: isBndCond\n    LOGICAL                          :: isRestart\n    LOGICAL                          :: isSatDiagn\n    LOGICAL                          :: isSatDiagnEdge\n    INTEGER                          :: S, N\n\n    ! Strings\n    CHARACTER(LEN=20 )               :: TmpUnits\n    CHARACTER(LEN=255)               :: ErrMsg\n    CHARACTER(LEN=255)               :: ThisLoc\n    CHARACTER(LEN=255)               :: cName\n\n    ! Objects\n    TYPE(MetaHistContainer), POINTER :: Collection\n    TYPE(HistContainer),     POINTER :: Container\n    TYPE(MetaHistItem),      POINTER :: Current\n    TYPE(DgnMap),            POINTER :: mapData\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC         =  GC_SUCCESS\n    DoClose    = .FALSE.\n    DoWrite    = .FALSE.\n    Collection => NULL()\n    Current    => NULL()\n    ErrMsg     =  ''\n    ThisLoc    =  ' -> at History_Write (in History/history_mod.F90)'\n\n    !=======================================================================\n    ! Loop through each DIAGNOSTIC COLLECTION in the main list, and\n    ! then loop through the HISTORY ITEMS belonnging to each COLLECTION.\n    !=======================================================================\n\n    ! Point to the first COLLECTION in the main collection list\n    Collection => CollectionList\n\n    ! As long as this current COLLECTION is valid ...\n    DO WHILE( ASSOCIATED( Collection ) )\n\n       ! Point to the HISTORY CONTAINER object in this COLLECTION\n       Container => Collection%Container\n\n       ! Identify the BoundaryConditions and Restart collectiond\n       cName     = To_UpperCase( TRIM( Container%Name ) )\n       isBndCond = ( TRIM( cName ) == 'BOUNDARYCONDITIONS' )\n       isRestart = ( TRIM( cName ) == 'RESTART'            )\n\n       ! Force define write alarm for creating and saving boundary\n       ! conditions to ensure first file of the simulation has the\n       ! correct file name and number of entries.\n       IF ( Container%ElapsedSec < EPS ) THEN\n          IF ( isBndCond ) THEN\n             Container%FileWriteAlarm = 0.0_fp\n          ELSE\n             RETURN\n          ENDIF\n       ENDIF             \n\n       !====================================================================\n       ! Test if it is time to close/repopen the file or to write data\n       !====================================================================\n\n       ! Test if the \"FileCloseAlarm\" is ringing\n       DoClose = ( ( Container%FileCloseAlarm - Container%ElapsedSec ) < EPS )\n\n       ! Test if the \"FileWriteAlarm\" is ringing\n       DoWrite = ( ( Container%FileWriteAlarm - Container%ElapsedSec ) < EPS )\n\n       ! If it's the first timestep of the simulation, map SpeciesConc\n       ! values to BC diagnostic values to output instantaneous values\n       ! at start of simulation [v/v dry].\n       IF ( Container%ElapsedSec .eq. 0.0 .and. &\n            TRIM(Container%Name) .eq. 'BoundaryConditions' ) THEN\n\n          ! Verify that incoming State_Chm%Species units are mol/mol dry air.\n          IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN\n             ErrMsg = 'Not all species are in \"mol/mol dry\" units!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Point to mapping obj specific to species boundary conditions\n          mapData => State_Diag%Map_SpeciesBC\n\n          !$OMP PARALLEL DO       &\n          !$OMP DEFAULT( SHARED ) &\n          !$OMP PRIVATE( N, S   )\n          DO S = 1, mapData%nSlots\n             N = mapData%slot2id(S)\n             State_Diag%SpeciesBC(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:)\n          ENDDO\n          !$OMP END PARALLEL DO\n\n          ! Free pointer\n          mapData => NULL()\n\n          ! Update each HISTORY ITEM from its data source\n          CALL History_Update( Input_Opt, State_Diag, RC )\n\n       ENDIF\n          \n       !====================================================================\n       ! %%% GEOS-Chem \"Classic\" %%%\n       !\n       ! It is time to create a new netCDF file (closing the old one)\n       !====================================================================\n       IF ( DoClose ) THEN\n\n          ! Save the units of State_Chm%Species(:)%Conc in the container,\n          ! so that we can redefine the unit string from \"TBD\".\n          ! Copy into a temp variable so that Gfortran won't choke.\n          TmpUnits            = UNIT_STR(State_Chm%Species(1)%Units)\n          Container%Spc_Units = TmpUnits\n\n          !-----------------------------------------------------------------\n          ! If the netCDF file specified by this collection is open,\n          ! then close it and undefine all relevant object fields.\n          !-----------------------------------------------------------------\n          CALL History_Netcdf_Close( Container = Container,                  &\n                                     RC        = RC                         )\n\n          ! Trap error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error returned from \"History_Netcdf_Close\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! Create the netCDF file for this HISTORY CONTAINER object,\n          ! Defines each variable, saves global attributes, and writes\n          ! the index variable data to the file.\n          !-----------------------------------------------------------------\n          CALL History_Netcdf_Define( Input_Opt  = Input_Opt,                &\n                                      State_Grid = State_Grid,               &\n                                      Container  = Container,                &\n                                      RC         = RC                       )\n\n          ! Trap error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error returend from \"History_Netcdf_Define\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! Update \"FileClose\" alarm for next interval\n          !-----------------------------------------------------------------\n\n          ! Recompute the file close alarm interval if it is 1 month or longer,\n          ! as we will have to take into account leap years, etc.\n          IF ( Container%FileCloseYmd >= 000100 ) THEN\n             CALL HistContainer_FileCloseIvalSet( Input_Opt, Container, RC )\n          ENDIF\n\n          ! Update the alarm\n          Container%FileCloseAlarm = Container%FileCloseAlarm                &\n                                   + Container%FileCloseIvalSec\n\n       ENDIF\n\n       !=================================================================\n       ! %%% GEOS-Chem \"Classic\" %%%\n       !\n       ! It is time to write data to the netCDF file\n       !=================================================================\n       IF ( DoWrite ) THEN\n\n          !-----------------------------------------------------------------\n          ! Write the HISTORY ITEMS for this collection to the netCDF file.\n          !-----------------------------------------------------------------\n          CALL History_Netcdf_Write( Input_Opt  = Input_Opt,                 &\n                                     State_Diag = State_Diag,                &\n                                     Container  = Container,                 &\n                                     RC         = RC                         )\n\n          ! Trap error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error returned from \"History_Netcdf_Write\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! Update \"FileWrite\" alarm for next interval\n          !-----------------------------------------------------------------\n\n          ! Recompute the file write alarm interval if it's 1 month or longer,\n          ! as we will have to take into account leap years, etc.\n          IF ( Container%FileWriteYmd >= 000100 ) THEN\n             CALL HistContainer_FileWriteIvalSet( Input_Opt, Container, RC )\n          ENDIF\n\n          ! Update the alarm\n          Container%FileWriteAlarm = Container%FileWriteAlarm                &\n                                   + Container%FileWriteIvalSec\n\n          !-----------------------------------------------------------------\n          ! SPECIAL HANDLING FOR RESTART COLLECTION\n          ! Make sure to close the restart file after writing, to avoid\n          ! incompletly-flushed files.  Need to implement a more general\n          ! way of doing this for other types of collections later.\n          !  -- Bob Yantosca (17 Nov 2022)\n          !-----------------------------------------------------------------\n          IF ( isRestart ) THEN\n             CALL History_Netcdf_Close( Container = Container,               &\n                                        RC        = RC                      )\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error returned from \"History_Netcdf_Close\"!'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n          ENDIF\n\n          !-----------------------------------------------------------------\n          ! SPECIAL HANDLING FOR SATELLITE DIAGNOSTIC COLLECTIONS\n          !\n          ! If we have called History_Netcdf_Write (i.e. DoWrite == T),\n          ! then reset the satellite diagnostics counters, as we have now\n          ! entered the next diagnostic interval.  We need to do this here\n          ! instead of in History_Netcdf_Write as there are multiple\n          ! satellite diagnostic collections (SatDiagn, SatDiagnEdge).\n          !-----------------------------------------------------------------\n\n          ! Test container name\n          CALL SatDiagn_or_SatDiagnEdge( cName, isSatDiagn, isSatDiagnEdge )\n\n          ! Zero SatDiagn counter\n          IF ( isSatDiagn .and. State_Diag%Archive_SatDiagnCount ) THEN\n             State_Diag%SatDiagnCount = 0.0_f8\n          ENDIF\n\n          ! Zero SatDiagnEdge counter\n          IF ( isSatDiagnEdge .and. State_Diag%Archive_SatDiagnEdgeCount ) THEN\n             State_Diag%SatDiagnEdgeCount = 0.0_f8\n          ENDIF\n       ENDIF\n\n       ! Skip to the next collection\n       Container  => NULL()\n       Collection => Collection%Next\n\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup & quit\n    !=======================================================================\n\n    ! Free pointers\n    Container  => NULL()\n    Collection => NULL()\n\n  END SUBROUTINE History_Write\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetCollectionMetaData\n!\n! !DESCRIPTION: Parses a line of the HISTORY.rc file and returns metadata\n!  for a given attribute (e.g. \"frequency\", \"template\", etc.)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetCollectionMetaData( Input_Opt, Line, Pattern, MetaData, &\n                                    nCollection )\n!\n! !USES:\n!\n    USE Charpak_Mod,      ONLY : CleanText, StrSplit\n    USE DiagList_Mod,     ONLY : CollList,  Search_CollList\n    USE History_Util_Mod\n    USE Input_Opt_Mod,    ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt     ! Input Options object\n    CHARACTER(LEN=*),   INTENT(IN)  :: Line          ! Line to be searched\n    CHARACTER(LEN=*),   INTENT(IN)  :: Pattern       ! Search pattern\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=255), INTENT(OUT) :: MetaData      ! Metadata value\n    INTEGER,            INTENT(OUT) :: nCollection   ! Collection Id\n!\n! !REVISION HISTORY:\n!  16 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                  :: Found\n    INTEGER                  :: C, Ind, nSubStr, N, P, RC\n\n    ! Strings\n    CHARACTER(LEN=255)       :: Name\n    CHARACTER(LEN=255)       :: SubStr(255)\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    nCollection = UNDEFINED_INT\n    MetaData    = UNDEFINED_STR\n\n    !=======================================================================\n    ! Find the metadata for the given collection\n    !=======================================================================\n\n    ! The collection name is between column 1 and the first \".\" character\n    Ind  = INDEX( TRIM( Line ), '.' )\n    Name = Line(1:Ind-1)\n\n    ! Exit if the collection name is not in the list of active collections\n    CALL Search_CollList( Input_Opt%amIRoot, CollList, Name, Found, RC )\n    IF ( .not. Found ) RETURN\n\n    ! Non-white-space lengths of the collection cname and search pattern\n    N = LEN_TRIM( Name    )\n    P = LEN_TRIM( Pattern )\n\n    ! Loop over all collection names\n    ! NOTE: This algorithm may not be the most efficient, as it will\n    ! not skip collections that we have already encountered.  But it\n    ! only gets done during the init phase, so it might not be a huge\n    ! expenditure of time anyway.  Worry about this later. (bmy, 1/18/18)\n    DO C = 1, CollectionCount\n\n       ! Check to see if the current line matches the collection name\n       ! Then check to see which collection this is in\n       IF ( Name(1:30) == CollectionName(C)(1:30) ) THEN\n          Ind = 1\n       ELSE\n          Ind = 0\n       ENDIF\n\n       ! If the we match the current collection, then ...\n       IF ( Ind > 0 ) THEN\n\n          ! Split the line on the the colon\n          CALL StrSplit( Line, ':', SubStr, nSubStr )\n\n          ! If there are 2 substrings ...\n          IF ( nSubStr == 2 ) THEN\n\n             ! Make sure the first substring matches the name\n             ! of the metadata field we would like to obtain.\n             ! if it does, then we have found a match, and so return\n             IF ( SubStr(1)(N+2:P+N+1) == Pattern(1:P) ) THEN\n                nCollection = C\n                MetaData    = CleanText( SubStr(2) )\n                EXIT\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE GetCollectionMetaData\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Close_AllFiles\n!\n! !DESCRIPTION: Closes the netCDF file described by each HISTORY CONTAINER\n!  object in the main list of diagnostic collections.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Close_AllFiles( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE History_Netcdf_Mod,    ONLY : History_Netcdf_Close\n    USE MetaHistContainer_Mod, ONLY : MetaHistContainer\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!  This is called from History_Cleanup, but may also be called in other\n!  locations (e.g. when processing abnormal exits)\n!\n! !REVISION HISTORY:\n!  16 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)               :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(MetaHistContainer), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    Current => NULL()\n    ErrMsg  =  ''\n    ThisLoc =  &\n       ' -> at History_Close_AllFiles (in module History/history_mod.F90)'\n\n    !=======================================================================\n    ! Close the netCDF file for each diagnostic collection\n    !=======================================================================\n\n    ! Set CURRENT to the first entry in the list of HISTORY CONTAINERS\n    Current => CollectionList\n\n    ! If this entry is not null ...\n    DO WHILE ( ASSOCIATED( Current ) )\n\n       ! Close the file (if it's open) and reset all relevant fields\n       ! in the HISTORY CONTAINER object\n       CALL History_Netcdf_Close( Container = Current%Container, &\n                                  RC        = RC                 )\n\n       ! Trap error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error returned from \"History_Netcdf_Close\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          Current => NULL()\n          RETURN\n       ENDIF\n\n       ! Go to the next entry in the list of HISTORY CONTAINERS\n       Current => Current%Next\n    ENDDO\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n\n    ! Free pointer\n    Current => NULL()\n\n  END SUBROUTINE History_Close_AllFiles\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Cleanup\n!\n! !DESCRIPTION: Deallocates all module variables and objects.  Also closes\n!  any remaining open netCDF files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Cleanup( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE MetaHistContainer_Mod, ONLY : MetaHistContainer_Destroy\n!\n! !OUTPUT PARAMETERS:\n!\n     INTEGER,       INTENT(OUT) :: RC\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n     ! Strings\n     CHARACTER(LEN=255)               :: ErrMsg, ThisLoc\n\n     ! Objects\n     TYPE(MetaHistContainer), POINTER :: Current\n\n     !======================================================================\n     ! Initialize\n     !======================================================================\n     RC      =  GC_SUCCESS\n     Current => NULL()\n     ErrMsg  =  ''\n     ThisLoc =  ' -> at History_Cleanup (in module History/history_mod.F90)'\n\n     !======================================================================\n     ! Close all remanining netCDF files\n     !======================================================================\n     CALL History_Close_AllFiles( RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error returned from \"History_Close_AllFiles\"!'\n        CALL GC_Error( ErrMsg, RC, ThisLoc )\n        RETURN\n     ENDIF\n\n     !======================================================================\n     ! And deallocate variables belonging to history_mod.F90\n     !======================================================================\n     IF ( ASSOCIATED( CollectionList ) ) THEN\n        CALL MetaHistContainer_Destroy( CollectionList, RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not destroy \"CollectionList\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionName ) ) THEN\n        DEALLOCATE( CollectionName, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionName\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionFileName ) ) THEN\n        DEALLOCATE( CollectionFileName, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionFileName\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionTemplate ) ) THEN\n        DEALLOCATE( CollectionTemplate, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionTemplate\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionFrequency ) ) THEN\n        DEALLOCATE( CollectionFrequency, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionFrequency\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionAccInterval ) ) THEN\n        DEALLOCATE( CollectionAccInterval, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionAccInterval\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionDuration ) ) THEN\n        DEALLOCATE( CollectionDuration, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionDuration\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionMode ) ) THEN\n        DEALLOCATE( CollectionMode, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionMode\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionLonRange ) ) THEN\n        DEALLOCATE( CollectionLonRange, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionLonRange\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionLatRange ) ) THEN\n        DEALLOCATE( CollectionLatRange, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionLatRange\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionSubsetInd ) ) THEN\n        DEALLOCATE( CollectionSubsetInd, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionSubsetInd\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionLevels ) ) THEN\n        DEALLOCATE( CollectionLevels, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionLevels\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionLevelInd ) ) THEN\n        DEALLOCATE( CollectionLevelInd, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionLevelInd\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n     IF ( ALLOCATED( CollectionHrRange ) ) THEN\n        DEALLOCATE( CollectionHrRange, STAT=RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Could not deallocate \"CollectionHrRange\"!'\n           CALL GC_Error( ErrMsg, RC, ThisLoc )\n           RETURN\n        ENDIF\n     ENDIF\n\n   END SUBROUTINE History_Cleanup\n!EOC\nEND MODULE History_Mod\n"
  },
  {
    "path": "History/history_netcdf_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: history_netcdf_mod.F90\n!\n! !DESCRIPTION: Contains routines to create a netCDF file for each GEOS-Chem\n!  diagnostic collection (as specified by each HISTORY CONTAINER in the\n!  main collection list located within in history_mod.F90).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE History_Netcdf_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n  USE MetaHistItem_Mod, ONLY : MetaHistItem\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS\n!\n  PUBLIC  :: History_Netcdf_Close\n  PUBLIC  :: History_Netcdf_Define\n  PUBLIC  :: History_Netcdf_Write\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: Expand_Date_Time\n  PRIVATE :: Get_Number_Of_Levels\n  PRIVATE :: Get_Var_DimIds\n  PRIVATE :: IndexVarList_Create\n  PRIVATE :: IndexVarList_Destroy\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  10 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Netcdf_Close\n!\n! !DESCRIPTION: Closes the netCDF file specified by the the given HISTORY\n!  CONTAINER object.  Also resets the relevant fields of the HISTORY CONTAINER\n!  object (as well as the fields in each HISTORY ITEM contained within the\n!  HISTORY CONTAINER) to undefined values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Netcdf_Close( Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod,     ONLY : HistContainer\n    USE History_Util_Mod\n    USE MetaHistContainer_Mod, ONLY : MetaHistContainer\n    USE Ncdf_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container   ! HISTORY CONTAINER obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This had been part of History_Netcdf_Define, but is now its own routine.\n!\n! !REVISION HISTORY:\n!  14 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(MetaHistItem), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    Current => NULL()\n\n    !=======================================================================\n    ! Close the previous file in this collection if it is still open\n    !=======================================================================\n    IF ( Container%IsFileOpen .or. Container%IsFileDefined ) THEN\n\n       !--------------------------------------------------------------------\n       ! Close file and undefine fields of the HISTORY CONTAINER object\n       !--------------------------------------------------------------------\n\n       ! Close the netCDF file\n       CALL Nc_Close( Container%FileId )\n\n       ! Undefine fields\n       Container%IsFileOpen    = .FALSE.\n       Container%IsFileDefined = .FALSE.\n       Container%ReferenceYmd  = UNDEFINED_INT\n       Container%ReferenceHms  = UNDEFINED_INT\n      !Container%ReferenceJd   = UNDEFINED_DBL\n       Container%ReferenceJsec = UNDEFINED_DBL\n       Container%CurrTimeSlice = UNDEFINED_INT\n\n       !--------------------------------------------------------------------\n       ! Undefine relevant fields of each HISTORY ITEM object\n       ! belonging to this HISTORY CONTAINER object\n       !--------------------------------------------------------------------\n\n       ! Set CURRENT to the first entry in the list of\n       ! HISTORY ITEMS belonging to this collection\n       Current => Container%HistItems\n\n       ! As long as this node of the list is valid ...\n       DO WHILE( ASSOCIATED( Current ) )\n\n          ! Undefine quantities for the file we just closed\n          Current%Item%NcXDimId  = UNDEFINED_INT\n          Current%Item%NcYDimId  = UNDEFINED_INT\n          Current%Item%NcZDimId  = UNDEFINED_INT\n          Current%Item%NcTDimId  = UNDEFINED_INT\n          Current%Item%NcBDimId  = UNDEFINED_INT\n          Current%Item%NcVarId   = UNDEFINED_INT\n\n          ! Go to the next entry in the list of HISTORY ITEMS\n          Current => Current%Next\n       ENDDO\n\n       ! Free pointer\n       Current => NULL()\n    ENDIF\n\n  END SUBROUTINE History_Netcdf_Close\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Netcdf_Define\n!\n! !DESCRIPTION: Creates the netCDF file specified by each HISTORY CONTAINER\n!  object, and defines the variables specified by the HISTORY ITEMS beloinging\n!  to the HISTORY CONTAINER.  Index variables lon, lat, lev, time, as well\n!  as the AREA variable, are written to the netCDF file with the proper\n!  metadata.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Netcdf_Define( Input_Opt, State_Grid, Container, RC )\n!\n! !USES:\n!\n    USE CharPak_Mod,            ONLY : To_UpperCase\n    USE ErrCode_Mod\n    USE HistContainer_Mod,      ONLY : HistContainer, HistContainer_Print\n    USE HistItem_Mod,           ONLY : HistItem,      HistItem_Print\n    USE History_Util_Mod\n    USE Input_Opt_Mod,          ONLY : OptInput\n    USE JulDay_Mod,             ONLY : CalDate\n    USE MetaHistItem_Mod,       ONLY : MetaHistItem\n    USE Ncdf_Mod\n    USE netCDF,                 ONLY : NF90_UNLIMITED\n    USE Registry_Params_Mod,    ONLY : KINDVAL_F4\n    USE State_Grid_Mod,         ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt   ! Input Options\n    TYPE(GrdState),      INTENT(IN)  :: State_Grid  ! Grid State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container   ! Diagnostic collection obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!  For instantaneous file collections, if a file already exists (e.g. at 0h\n!  on the day when a run ended), then we will append into that file instead\n!  of opening a new file. This will prevent clobbering of existing data.\n!\n! !REVISION HISTORY:\n!  03 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                     :: appendToFile, isRestart\n    INTEGER                     :: N,            VarCt\n    INTEGER                     :: VarXDimId,    VarYDimId\n    INTEGER                     :: VarZDimId,    VarTDimId\n    INTEGER                     :: yyyymmdd,     hhmmss\n    INTEGER                     :: nLev,         nILev\n    INTEGER                     :: DataType,     RC2\n    REAL(f8)                    :: offset\n\n    ! Strings\n    CHARACTER(LEN=5)            :: Z\n    CHARACTER(LEN=8)            :: D\n    CHARACTER(LEN=10)           :: T\n    CHARACTER(LEN=255)          :: FileName\n    CHARACTER(LEN=255)          :: ErrMsg,       ThisLoc,     VarUnits\n    CHARACTER(LEN=255)          :: VarAxis,      VarPositive, VarCalendar\n    CHARACTER(LEN=255)          :: VarStdName,   VarFormula,  VarBounds\n\n    ! Arrays\n    INTEGER                     :: V(8)\n\n    ! Pointers\n    REAL(fp),           POINTER :: Data1d(:)\n    REAL(fp),           POINTER :: Data2d(:)\n\n    ! Objects\n    TYPE(MetaHistItem), POINTER :: Current\n    TYPE(MetaHistItem), POINTER :: IndexVarList\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC           =  GC_SUCCESS\n    RC2          =  GC_SUCCESS\n    Current      => NULL()\n    IndexVarList => NULL()\n    ErrMsg       =  ''\n    ThisLoc      =  ' -> at History_Netcdf_Define (in History/history_mod.F90)'\n    FileName     =  ''\n    VarAxis      =  ''\n    VarCalendar  =  ''\n    VarPositive  =  ''\n    VarUnits     =  ''\n    appendToFile = .FALSE.\n    yyyymmdd     =  Container%CurrentYmd\n    hhmmss       =  Container%CurrentHms\n\n    ! Test if this collection is a restart file (for which we will always\n    ! want to create a new file instead of appending to an open file).\n    isRestart = ( INDEX( To_UpperCase(TRIM(Container%Name)), 'RESTART' ) > 0 )\n\n    !========================================================================\n    ! Create the netCDF file with global attributes (or append)\n    ! Do not exit netCDF define mode just yet\n    !========================================================================\n    IF ( .not. Container%IsFileOpen ) THEN\n\n       !---------------------------------------------------------------------\n       ! Compute reference date and time fields in the HISTORY CONTAINER\n       ! These are needed to compute the time stamps for each data field\n       ! that is written to the netCDF file.  Also resets the current\n       ! time slice index.\n       !---------------------------------------------------------------------\n\n       ! Reset the current time slice index\n       Container%CurrTimeSlice = 0\n\n       IF ( Container%Operation == ACCUM_FROM_SOURCE ) THEN\n\n          !------------------------------------------------------------------\n          ! %%% TIME-AVERAGED COLLECTIONS %%%\n          !------------------------------------------------------------------\n\n          ! REFERENCE TIMESTAMP:\n          ! Subtract the file write alarm interval that we added to\n          ! the current date/time (CurrentJd) field at initialization\n          Container%ReferenceJsec = Container%CurrentJsec                    &\n                                  - Container%FileWriteIvalSec\n\n       ELSE\n\n          !------------------------------------------------------------------\n          ! %%% INSTANTANEOUS COLLECTIONS %%%\n          !------------------------------------------------------------------\n\n          ! REFERENCE TIMESTAMP: Use the date/time when the file is created.\n          Container%ReferenceJsec = Container%CurrentJsec\n\n       ENDIF\n\n       ! Convert reference time from Astronomical Julian Seconds to date/time\n       Container%ReferenceJd = Container%ReferenceJsec / SECONDS_PER_DAY\n       CALL CalDate( JulianDay = Container%ReferenceJd,                      &\n                     yyyymmdd  = Container%ReferenceYmd,                     &\n                     hhmmss    = Container%ReferenceHms                     )\n\n       ! Replace time and date tokens in the netCDF file name\n       ! (Save the collection's file name in a temporary variable)\n       FileName = TRIM( Container%FileName )\n       CALL Expand_Date_Time( DateStr    = FileName,                         &\n                              yyyymmdd   = Container%ReferenceYmd,           &\n                              hhmmss     = Container%ReferenceHms,           &\n                              MAPL_Style = .TRUE.                           )\n\n!------------------------------------------------------------------------------\n! TEMPORARY FIX (bmy, 9/20/17)\n! NOTE: The different timestamps will cause the binary diff in the unit\n! tests and difference tests to fail, so comment these out for now.\n! We will look into a better way to check netCDF files soon.\n!       !--------------------------------------------------------------------\n!       ! Create the timestamp for the History and ProdDateTime attributes\n!       !--------------------------------------------------------------------\n!\n!       ! Call F90 intrinsic DATE_AND_TIME Function\n!       D = 'ccyymmdd'\n!       T = 'hhmmss.sss'\n!       CALL Date_And_Time( Date=D, Time=T, Zone=Z, Values=V )  ! GMT time\n!\n!       ! Create timestamp strings\n!       WRITE( Container%History,      10 ) V(1),V(2),V(3),V(5),V(6),V(7),Z\n!       WRITE( Container%ProdDateTime, 10 ) V(1),V(2),V(3),V(5),V(6),V(7),Z\n! 10    FORMAT( 'Produced on ', i4.4, '/', i2.2, '/', i2.2, 1x,               &\n!                               i2.2, ':', i2.2, ':', i2.2, ' UTC', a        )\n!\n       ! For now, just set History and ProdDateTime to blanks\n       ! to get binary file diffs to pass.\n       Container%History      = ''\n       Container%ProdDateTime = ''\n!------------------------------------------------------------------------------\n\n       ! Get the number of levels (nLev) and level interfaces (nIlev)\n       CALL Get_Number_Of_Levels( Container, nLev, nIlev )\n\n       !---------------------------------------------------------------------\n       ! Do not create netCDF file on first timestep if instantaneous\n       ! collection and frequency = duration. This will avoid creating\n       ! of a netCDF file containing all missing values.\n       !---------------------------------------------------------------------\n       IF ( Container%Operation      == COPY_FROM_SOURCE            .and.    &\n            Container%UpdateIvalSec  == Container%FileCloseIvalSec  .and.    &\n            Container%FileCloseAlarm == 0.0                         .and.    &\n            TRIM(Container%Name) .ne. 'BoundaryConditions' )  THEN\n          RETURN\n\n       ELSE\n\n          !------------------------------------------------------------------\n          ! Create the file and add global attributes\n          ! Remain in netCDF define mode upon exiting this routine\n          !\n          ! NOTE: Container%Reference is a global attribute lists the\n          ! GEOS-Chem web and wiki page.  It has nothing to do with the\n          ! reference data/time computed by History_Set_RefDateTime.\n          !------------------------------------------------------------------\n\n          ! Echo info about the file we are creating\n          IF ( Input_Opt%amIRoot ) THEN\n             WRITE( 6, 100 ) TRIM( Container%Name ),                         &\n                             Container%ReferenceYmd,                         &\n                             Container%ReferenceHms\n             WRITE( 6, 110 ) TRIM( FileName       )\n          ENDIF\n\n          ! Create the file\n          CALL Nc_Create( Create_Nc4     = .TRUE.,                           &\n                          NcFile         = fileName,                         &\n                          nLon           = Container%nX,                     &\n                          nLat           = Container%nY,                     &\n                          nLev           = nLev,                             &\n                          nIlev          = nILev,                            &\n                          nTime          = NF90_UNLIMITED,                   &\n                          nBounds        = 2,                                &\n                          NcFormat       = Container%NcFormat,               &\n                          Conventions    = Container%Conventions,            &\n                          History        = Container%History,                &\n                          ProdDateTime   = Container%ProdDateTime,           &\n                          Reference      = Container%Reference,              &\n                          Title          = Container%Title,                  &\n                          Contact        = Container%Contact,                &\n                          StartTimeStamp = Container%StartTimeStamp,         &\n                          EndTimeStamp   = Container%EndTimeStamp,           &\n                          fId            = Container%FileId,                 &\n                          TimeId         = Container%tDimId,                 &\n                          LevId          = Container%zDimId,                 &\n                          ILevId         = Container%iDimId,                 &\n                          LatId          = Container%yDimId,                 &\n                          LonId          = Container%xDimId,                 &\n                          boundsId       = Container%bDimId,                 &\n                          KeepDefMode    = .TRUE.,                           &\n                          Varct          = VarCt                            )\n\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Denote that the file has been created and is open\n       !---------------------------------------------------------------------\n       Container%IsFileOpen = .TRUE.\n\n    ENDIF\n\n    ! Format strings for use above\n100 FORMAT( '     - Creating file for ',  a, '; reference = ',i8.8,1x,i6.6 )\n110 FORMAT( '        with filename = ', a                                  )\n\n    !========================================================================\n    ! Define all of the Create the netCDF file with global attributes\n    ! Skip if we are appending to an existing file\n    !========================================================================\n    IF ( .not. Container%IsFileDefined ) THEN\n\n       !---------------------------------------------------------------------\n       ! Define the index variables\n       !---------------------------------------------------------------------\n\n       ! Define the linked list of index variables (IndexVarList) that\n       ! have the same dimension subsets as the current container\n       CALL IndexVarList_Create(                                             &\n            Input_Opt    = Input_Opt,                                        &\n            State_Grid   = State_Grid,                                       &\n            Container    = Container,                                        &\n            IndexVarList = IndexVarList,                                     &\n            RC           = RC                                               )\n\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"IndexVarList_Create\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Set CURRENT to the first node in the list of HISTORY ITEMS\n       Current => IndexVarList\n\n       ! As long as this node of the list is valid ...\n       DO WHILE( ASSOCIATED( Current ) )\n\n          ! Get the dimension ID's that are relevant to each HISTORY ITEM\n          ! Also get Axis, Calendar, and Positive attributes for index vars,\n          ! and replace time & date tokens in the units string for \"time\".\n          CALL Get_Var_DimIds( xDimId       = Container%xDimId,              &\n                               yDimId       = Container%yDimId,              &\n                               zDimId       = Container%zDimId,              &\n                               iDimId       = Container%iDimId,              &\n                               tDimId       = Container%tDimId,              &\n                               bDimId       = Container%bDimId,              &\n                               RefDate      = Container%ReferenceYmd,        &\n                               RefTime      = Container%ReferenceHms,        &\n                               OnLevelEdges = Container%OnLevelEdges,        &\n                               Item         = Current%Item,                  &\n                               VarAxis      = VarAxis,                       &\n                               VarPositive  = VarPositive,                   &\n                               VarCalendar  = VarCalendar,                   &\n                               VarUnits     = VarUnits,                      &\n                               VarStdName   = VarStdName,                    &\n                               VarFormula   = VarFormula,                    &\n                               VarBounds    = VarBounds                     )\n\n          ! Set a flag for the precision of the data\n          IF ( Current%Item%Output_KindVal == KINDVAL_F4 ) THEN\n             DataType = 4\n          ELSE\n             DataType = 8\n          ENDIF\n\n          ! Define each HISTORY ITEM in this collection to the netCDF file\n          CALL Nc_Var_Def( DefMode      = .TRUE.,                            &\n                           Compress     = .TRUE.,                            &\n                           fId          = Container%FileId,                  &\n                           DataType     = DataType,                          &\n                           VarName      = Current%Item%Name,                 &\n                           VarCt        = Current%Item%NcVarId,              &\n                           timeId       = Current%Item%NcTDimId,             &\n                           levId        = Current%Item%NcZDimId,             &\n                           iLevId       = Current%Item%NcIDimId,             &\n                           latId        = Current%Item%NcYDimId,             &\n                           lonId        = Current%Item%NcXDimId,             &\n                           boundsId     = Current%Item%NcBDimId,             &\n                           VarLongName  = Current%Item%LongName,             &\n                           VarUnit      = VarUnits,                          &\n                           Axis         = VarAxis,                           &\n                           Calendar     = VarCalendar,                       &\n                           Positive     = VarPositive,                       &\n                           StandardName = VarStdName,                        &\n                           FormulaTerms = VarFormula,                        &\n                           Bounds       = VarBounds                         )\n\n          ! Debug print\n          !CALL HistItem_Print( Current%Item, RC )\n\n          ! Go to next entry in the list of HISTORY ITEMS\n          Current => Current%Next\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n\n       !---------------------------------------------------------------------\n       ! Then define each HISTORY ITEM belonging to this collection\n       !---------------------------------------------------------------------\n\n       ! Set CURRENT to the first node in the list of HISTORY ITEMS\n       Current => Container%HistItems\n\n       ! As long as this node of the list is valid ...\n       DO WHILE( ASSOCIATED( Current ) )\n\n          ! Get the dimension ID's that are relevant to each HISTORY ITEM\n          ! and save them in fields of the HISTORY ITEM\n          CALL Get_Var_DimIds( xDimId   = Container%xDimId,                  &\n                               yDimId   = Container%yDimId,                  &\n                               zDimId   = Container%zDimId,                  &\n                               iDimId   = Container%iDimId,                  &\n                               tDimId   = Container%tDimId,                  &\n                               bDimId   = Container%bDimId,                  &\n                               Item     = Current%Item,                      &\n                               VarUnits = VarUnits                          )\n\n          ! Replace \"TBD\"  with the current units of State_Chm%Species(:)%Conc\n          IF ( TRIM( VarUnits ) == 'TBD' ) THEN\n             VarUnits = Container%Spc_Units\n          ENDIF\n\n          ! Set a flag for the precision of the data\n          IF ( Current%Item%Output_KindVal == KINDVAL_F4 ) THEN\n             DataType = 4\n          ELSE\n             DataType = 8\n          ENDIF\n\n          !---------------------------------------------------------------\n          ! Define a HISTORY ITEM in this collection as a 4-byte real\n          ! or 8-byte real data variable for the netCDF file output\n          !---------------------------------------------------------------\n          CALL Nc_Var_Def( DefMode      = .TRUE.,                         &\n                           Compress     = .TRUE.,                         &\n                           fId          = Container%FileId,               &\n                           DataType     = DataType,                       &\n                           VarName      = Current%Item%Name,              &\n                           VarCt        = Current%Item%NcVarId,           &\n                           timeId       = Current%Item%NcTDimId,          &\n                           levId        = Current%Item%NcZDimId,          &\n                           iLevId       = Current%Item%NcIDimId,          &\n                           latId        = Current%Item%NcYDimId,          &\n                           lonId        = Current%Item%NcXDimId,          &\n                           boundsId     = Current%Item%NcBDimId,          &\n                           varLongName  = Current%Item%LongName,          &\n                           varUnit      = VarUnits,                       &\n                          !missingValue = Current%Item%MissingValue,      &\n                           avgMethod    = Current%Item%AvgMethod,         &\n                           bounds       = VarBounds                      )\n\n#if defined( NC_HAS_COMPRESSION )\n          ! Turn on netCDF chunking for this HISTORY ITEM\n          ! NOTE: This will only work if the netCDF library supports netCDF-4\n          ! files with compression.  Also note: file compression is turned off\n          ! by default when using DEBUG=y, because otherwise the compression\n          ! makes it difficult to compare files generated by difference tests.\n          IF ( ASSOCIATED( Current%Item%NcChunkSizes ) ) THEN\n\n             ! Apply the chunk sizes to this variable\n             CALL Nc_Var_Chunk( fId        = Container%FileId,               &\n                                vId        = Current%Item%NcVarId,           &\n                                ChunkSizes = Current%Item%NcChunkSizes,      &\n                                RC         = RC                             )\n\n             ! Trap potential error\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Nc_Var_Chunk\"!'           // &\n                         ' Try DEBUG=n and/or check if your netCDF-4 '    // &\n                         ' library supports compression'\n                CALL GC_Error( ErrMsg, RC, ThisLoc )\n                RETURN\n             ENDIF\n\n          ENDIF\n#endif\n\n          ! Go to next entry in the list of HISTORY ITEMS\n          Current => Current%Next\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n\n       !---------------------------------------------------------------------\n       ! Write the index variable data\n       !---------------------------------------------------------------------\n\n       ! Close definition section\n       CALL Nc_Set_DefMode( Container%FileId, Off=.TRUE. )\n\n       ! Set CURRENT to the first node in the list of HISTORY ITEMS\n       Current => IndexVarList\n\n       ! As long as this node of the list is valid ...\n       DO WHILE( ASSOCIATED( Current ) )\n\n          ! Write data for index variables to the netCDF file\n          IF ( Current%Item%SpaceDim == 2 ) THEN\n\n             ! Check the dimension names\n             SELECT CASE( Current%Item%DimNames )\n\n                ! lon_bnds or lat_bnds\n                CASE( 'bx', 'by' )\n                   CALL Nc_Var_Write( fId     = Container%FileId,            &\n                                      VarName = Current%Item%Name,           &\n                                      Arr2d   = Current%Item%Source_2d_8    )\n\n                ! AREA\n                CASE DEFAULT\n                   CALL Nc_Var_Write( fId     = Container%FileId,            &\n                                      VarName = Current%Item%Name,           &\n                                      Arr2d   = Current%Item%Source_2d_4    )\n             END SELECT\n\n          ELSE IF ( Current%Item%SpaceDim == 1 ) THEN\n\n             ! All other index fields are 1-D (8-byte precision) ...\n             CALL Nc_Var_Write( fId     = Container%FileId,                  &\n                                VarName = Current%Item%Name,                 &\n                                Arr1d   = Current%Item%Source_1d_8          )\n\n\n          ELSE\n\n             ! ... except P0, which is a scalar (8-byte precision)\n             CALL Nc_Var_Write( fId     = Container%FileId,                  &\n                                VarName = Current%Item%Name,                 &\n                                Var     = Current%Item%Source_0d_8          )\n\n          ENDIF\n\n          ! Go to next entry in the list of HISTORY ITEMS\n          Current => Current%Next\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n\n       !---------------------------------------------------------------------\n       ! We can now consider this collection to have been \"defined\"\n       !---------------------------------------------------------------------\n       Container%IsFileDefined = .TRUE.\n\n       CALL IndexVarList_Destroy( IndexVarList, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error returned from \"History_Netcdf_Cleanup\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE History_Netcdf_Define\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: History_Netcdf_Write\n!\n! !DESCRIPTION: Writes the data contained in each HISTORY ITEM to the netCDF\n!  file specified by a given HISTORY CONTAINER object.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE History_Netcdf_Write( Input_Opt, State_Diag, Container, RC )\n!\n! !USES:\n!\n    USE CharPak_Mod,         ONLY : To_Uppercase\n    USE ErrCode_Mod\n    USE HistItem_Mod,        ONLY : HistItem\n    USE HistContainer_Mod,   ONLY : HistContainer\n    USE History_Util_Mod\n    USE Input_Opt_Mod,       ONLY : OptInput\n    USE State_Diag_Mod,      ONLY : DgnState\n    USE M_Netcdf_Io_Write,   ONLY : NcWr\n    USE MetaHistItem_Mod,    ONLY : MetaHistItem\n    USE Registry_Params_Mod, ONLY : KINDVAL_F4\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(DgnState),      INTENT(IN)  :: State_Diag ! Diagnostics state obj\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container ! Diagnostic collection obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!  Use routine NcWr from NcdfUtil/m_netcdf_io_write.F90 instead of the\n!  NC_VAR_WRITE routine from NcdfUtil/netcdf_mod.F90, because this gives us\n!  better control of the start and count values.\n!\n! !REVISION HISTORY:\n!  03 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                     :: output4Bytes\n    LOGICAL                     :: isSatDiagnEdge,   isSatDiagn\n    INTEGER                     :: NcFileId,         NcVarId\n    INTEGER                     :: Dim1,             Dim2,       Dim3\n\n    ! Strings\n    CHARACTER(LEN=255)          :: ErrMsg,           ThisLoc\n\n    ! Arrays\n    INTEGER                     :: St1d(1),          Ct1d(1)\n    INTEGER                     :: St2d(2),          Ct2d(2)\n    INTEGER                     :: St3d(3),          Ct3d(3)\n    INTEGER                     :: St4d(4),          Ct4d(4)\n    REAL(f4),       ALLOCATABLE :: NcData_2d4(:,:    )\n    REAL(f4),       ALLOCATABLE :: NcData_3d4(:,:,:  )\n    REAL(f4),       ALLOCATABLE :: NcData_4d4(:,:,:,:)\n    REAL(f8),       ALLOCATABLE :: NcData_2d8(:,:    )\n    REAL(f8),       ALLOCATABLE :: NcData_3d8(:,:,:  )\n    REAL(f8),       ALLOCATABLE :: NcData_4d8(:,:,:,:)\n    REAL(f8)                    :: NcTimeVal (1      )\n\n    ! Objects\n    TYPE(MetaHistItem), POINTER :: Current\n    TYPE(HistItem),     POINTER :: Item\n\n    !========================================================================\n    ! Make sure the netCDF file is open and defined\n    !========================================================================\n    IF ( ( .not. Container%IsFileOpen   )    .and.                           &\n         ( .not. Container%IsFileDefined ) ) THEN\n       RC     = GC_FAILURE\n       ErrMsg = 'NetCDF file is not open or defined for collection: '     // &\n                 TRIM( Container%Name )\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC        =  GC_SUCCESS\n    Dim1      =  UNDEFINED_INT\n    Dim2      =  UNDEFINED_INT\n    Dim3      =  UNDEFINED_INT\n    NcFileId  =  Container%FileId\n    Current   => NULL()\n    Item      => NULL()\n    ErrMsg    =  ''\n    ThisLoc   =  &\n         ' -> at History_Netcdf_Write (in History/history_netcdf_mod.F90)'\n\n    ! Test if this is the SatDiagn or SatDiagnEdge collection\n    CALL SatDiagn_or_SatDiagnEdge( Container%Name, isSatDiagn, isSatDiagnEdge )\n\n    !========================================================================\n    ! Compute time elapsed since the reference time\n    !========================================================================\n\n    ! Increment the time index for the netCDF file\n    Container%CurrTimeSlice = Container%CurrTimeSlice + 1\n\n    !========================================================================\n    ! Compute the time stamp value for the current time slice\n    !========================================================================\n\n    ! Compute the elapsed time in seconds since the file creation\n    CALL Compute_Elapsed_Time( CurrentJsec  = Container%CurrentJsec,         &\n                               TimeBaseJsec = Container%ReferenceJsec,       &\n                               ElapsedSec   = Container%TimeStamp           )\n\n    ! For time-averaged collections, we need to subtract the file write\n    ! interval from the current time.  This will make sure that time[0] = 0,\n    ! or in other words, that the first time slice matches up to the\n    ! reference datetime.  -- Bob Yantosca (13 Jan 2023)\n    IF ( Container%Operation == ACCUM_FROM_SOURCE ) THEN\n       Container%TimeStamp = Container%TimeStamp - Container%FileWriteIvalSec\n    ENDIF\n\n    ! Convert to minutes since the reference time\n    Container%TimeStamp = Container%TimeStamp / SECONDS_PER_MINUTE\n\n    ! Debug output\n    IF ( Input_Opt%Verbose ) THEN\n       WRITE( 6, 110 ) TRIM( Container%name ), Container%TimeStamp\n110    FORMAT( '     - Writing data to ', a, '; timestamp = ', f13.4 )\n    ENDIF\n\n    !========================================================================\n    ! Write the time stamp to the netCDF File\n    !========================================================================\n\n    ! netCDF start and count arrays\n    St1d      = (/ Container%CurrTimeSlice /)\n    Ct1d      = (/ 1                       /)\n\n    ! Time stamp value\n    NcTimeVal = (/ Container%TimeStamp     /)\n\n    ! Write the time stamp to the file\n    CALL NcWr( NcTimeVal, NcFileId, 'time', St1d, Ct1d )\n\n    !========================================================================\n    ! Loop over all of the HISTORY ITEMS belonging to this collection\n    !========================================================================\n\n    ! Set CURRENT to the first entry in the list of HISTORY ITEMS\n    Current => Container%HistItems\n\n    ! As long as this entry of the list is valid ...\n    DO WHILE( ASSOCIATED( Current ) )\n\n       ! Point to the HISTORY ITEM object in this entry\n       Item => Current%Item\n\n       ! Does this HISTORY ITEM request output as 4-byte reals?\n       ! If not, we will assume output will be 8-byte reals.\n       output4Bytes = ( Item%Output_KindVal == KINDVAL_F4 )\n\n       !---------------------------------------------------------------------\n       ! For instantaneous diagnostic quantities:\n       ! (1) Copy the Item's data array to the 4-byte or 8-byte local array\n       ! (2) Zero the Item's data array\n       ! (3) Zero the Item's update counter\n       !\n       ! For time-averaged diagnostic quantities:\n       ! (1) Divide the Item's data array by the number diagnostic updates\n       ! (2) Copy the Item's data array to the 4-byte or 8-byte local array\n       ! (3) Zero the Item's data array\n       ! (4) Zero the Item's update counter\n       !---------------------------------------------------------------------\n       SELECT CASE( Item%SpaceDim )\n\n          !------------------------------------------------------------------\n          ! 3-D data\n          !------------------------------------------------------------------\n          CASE( 3 )\n\n             ! Get dimensions of data\n             Dim1 = SIZE( Item%Data_3d, 1 )\n             Dim2 = SIZE( Item%Data_3d, 2 )\n             Dim3 = SIZE( Item%Data_3d, 3 )\n\n             ! Get average for satellite diagnostic (vertical centers)\n             IF ( isSatDiagn ) THEN\n                WHERE ( State_Diag%SatDiagnCount > 0.0_f8 )\n                   Item%Data_3d = Item%Data_3d / State_Diag%SatDiagnCount\n                ELSEWHERE\n                   Item%Data_3d = MISSING_DBLE\n                ENDWHERE\n                Item%nUpdates   = 1.0_f8\n             ENDIF\n\n             ! Get average for satellite diagnostic (vertical edges)\n             IF ( isSatDiagnEdge ) THEN\n                WHERE ( State_Diag%SatDiagnEdgeCount > 0.0_f8 )\n                   Item%Data_3d = Item%Data_3d / State_Diag%SatDiagnEdgeCount\n                ELSEWHERE\n                   Item%Data_3d = MISSING_DBLE\n                ENDWHERE\n                Item%nUpdates   = 1.0_f8\n             ENDIF\n\n             ! Allocate the 4-byte or 8-byte output array\n             ! Need a singleton 4th dimension for netCDF-F90\n             IF ( output4bytes ) THEN\n                ALLOCATE( NcData_4d4( Dim1, Dim2, Dim3, 1 ), STAT=RC )\n             ELSE\n                ALLOCATE( NcData_4d8( Dim1, Dim2, Dim3, 1 ), STAT=RC )\n             ENDIF\n\n             ! Copy or average the data and store in a 4-byte or 8-byte array\n             IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n\n                !%%% Instantaneous output %%%\n                IF ( output4Bytes ) THEN\n                   NcData_4d4(:,:,:,1) = Item%Data_3d\n                ELSE\n                   NcData_4d8(:,:,:,1) = Item%Data_3d\n                ENDIF\n                Item%Data_3d  = 0.0_f8\n                Item%nUpdates = 0.0_f8\n\n             ELSE\n\n                !%%% Time-averaged output %%%\n                Item%Data_3d  = Item%Data_3d / Item%nUpdates\n                IF ( output4Bytes ) THEN\n                   NcData_4d4(:,:,:,1) = Item%Data_3d\n                ELSE\n                   NcData_4d8(:,:,:,1) = Item%Data_3d\n                ENDIF\n                Item%Data_3d  = 0.0_f8\n                Item%nUpdates = 0.0_f8\n\n             ENDIF\n\n             ! Compute start and count fields\n             St4d = (/ 1,    1,    1,    Container%CurrTimeSlice /)\n             Ct4d = (/ Dim1, Dim2, Dim3, 1                       /)\n\n             ! Write data to disk and deallocate output array\n             IF ( output4bytes ) THEN\n                CALL NcWr( NcData_4d4, NcFileId, Item%Name, St4d, Ct4d )\n                DEALLOCATE( NcData_4d4, STAT=RC )\n             ELSE\n                CALL NcWr( NcData_4d8, NcFileId, Item%Name, St4d, Ct4d )\n                DEALLOCATE( NcData_4d8, STAT=RC )\n             ENDIF\n\n          !------------------------------------------------------------------\n          ! 2-D data\n          !------------------------------------------------------------------\n          CASE( 2 )\n\n             ! Get dimensions of data\n             Dim1 = SIZE( Item%Data_2d, 1 )\n             Dim2 = SIZE( Item%Data_2d, 2 )\n\n             ! Get average for satellite diagnostic:\n             IF ( isSatDiagn ) THEN\n                WHERE ( State_Diag%SatDiagnCount(:,:,1) > 0.0_f8 )\n                   Item%Data_2d = Item%Data_2d / State_Diag%SatDiagnCount(:,:,1)\n                ELSEWHERE\n                   Item%Data_2d = MISSING_DBLE\n                ENDWHERE\n                Item%nUpdates = 1.0_f8\n             ENDIF\n\n             ! Allocate the 4-byte or 8-byte output array\n             ! Need a singleton 3rd dimension for netCDF-F90\n             IF ( output4bytes ) THEN\n                ALLOCATE( NcData_3d4( Dim1, Dim2, 1 ), STAT=RC )\n             ELSE\n                ALLOCATE( NcData_3d8( Dim1, Dim2, 1 ), STAT=RC )\n             ENDIF\n\n             ! Copy or average the data and store in a 4-byte or 8-byte array\n             IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n\n                !%%% Instantaneous output %%%\n                IF ( output4bytes ) THEN\n                   NcData_3d4(:,:,1) = Item%Data_2d\n                ELSE\n                   NcData_3d8(:,:,1) = Item%Data_2d\n                ENDIF\n                Item%Data_2d  = 0.0_f8\n                Item%nUpdates = 0.0_f8\n\n             ELSE\n\n                !%%% Time-averaged output %%%\n                Item%Data_2d  = Item%Data_2d / Item%nUpdates\n                IF ( output4bytes ) THEN\n                   NcData_3d4(:,:,1) = Item%Data_2d\n                ELSE\n                   NcData_3d8(:,:,1) = Item%Data_2d\n                ENDIF\n                Item%Data_2d  = 0.0_f8\n                Item%nUpdates = 0.0_f8\n\n             ENDIF\n\n             ! Compute start and count fields\n             St3d = (/ 1,    1,    Container%CurrTimeSlice /)\n             Ct3d = (/ Dim1, Dim2, 1                       /)\n\n             ! Write data to disk\n             IF ( output4bytes ) THEN\n                CALL NcWr( NcData_3d4, NcFileId, Item%Name, St3d, Ct3d )\n                DEALLOCATE( NcData_3d4, STAT=RC )\n             ELSE\n                CALL NcWr( NcData_3d8, NcFileId, Item%Name, St3d, Ct3d )\n                DEALLOCATE( NcData_3d8, STAT=RC )\n             ENDIF\n\n          !------------------------------------------------------------------\n          ! 1-D data\n          !------------------------------------------------------------------\n          CASE( 1 )\n\n             ! Get dimensions of data\n             Dim1 = SIZE( Item%Data_1d, 1 )\n\n             ! Allocate the 4-byte or 8-byte output array\n             ! Need a singleton 2nd dimension for netCDF-F90\n             IF ( output4bytes ) THEN\n                ALLOCATE( NcData_2d4( Dim1, 1 ), STAT=RC )\n             ELSE\n                ALLOCATE( NcData_2d8( Dim1, 1 ), STAT=RC )\n             ENDIF\n\n             ! Copy or average the data and store in a 4-byte or 8-byte array\n             IF ( Item%Operation == COPY_FROM_SOURCE ) THEN\n\n                !%%% Instantaneous output %%%\n                IF ( output4bytes ) THEN\n                   NcData_2d4(:,1) = Item%Data_1d\n                ELSE\n                   NcData_2d8(:,1) = Item%Data_1d\n                ENDIF\n                Item%Data_1d  = 0.0_f8\n                Item%nUpdates = 0.0_f8\n\n             ELSE\n\n                ! %%% Time-averaged output %%%\n                Item%Data_1d  = Item%Data_1d / Item%nUpdates\n                IF ( output4bytes ) THEN\n                   NcData_2d4(:,1) = Item%Data_1d\n                ELSE\n                   NcData_2d8(:,1) = Item%Data_1d\n                ENDIF\n                Item%Data_1d  = 0.0_f8\n                Item%nUpdates = 0.0_f8\n\n             ENDIF\n\n             ! Compute start and count fields\n             St2d = (/ 1,    Container%CurrTimeSlice /)\n             Ct2d = (/ Dim1, 1                       /)\n\n             ! Write data to disk\n             IF ( output4bytes ) THEN\n                CALL NcWr( NcData_2d4, NcFileId, Item%Name, St2d, Ct2d )\n                DEALLOCATE( NcData_2d4, STAT=RC )\n             ELSE\n                CALL NcWr( NcData_2d8, NcFileId, Item%Name, St2d, Ct2d )\n                DEALLOCATE( NcData_2d8, STAT=RC )\n             ENDIF\n\n       END SELECT\n\n       !---------------------------------------------------------------------\n       ! Go to next entry in the list of HISTORY ITEMS\n       !---------------------------------------------------------------------\n       Current => Current%Next\n       Item    => NULL()\n    ENDDO\n\n    !========================================================================\n    ! Cleanup and quit\n    !========================================================================\n\n    ! Free pointers\n    Current => NULL()\n    Item    => NULL()\n\n  END SUBROUTINE History_NetCdf_Write\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Expand_Date_Time\n!\n! !DESCRIPTION: Replaces date and time tokens in a string with actual\n!  date and time values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Expand_Date_Time( DateStr, yyyymmdd, hhmmss, MAPL_Style )\n!\n! !USES:\n!\n    USE Charpak_Mod, ONLY : StrRepl\n    USE Time_Mod,    ONLY : Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)    :: yyyymmdd    ! Date in YYYYMMDD format\n    INTEGER,          INTENT(IN)    :: hhmmss      ! Time in hhmmss format\n    LOGICAL,          OPTIONAL      :: MAPL_Style  ! Use MAPL-style tokens\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: DateStr     ! String with date tokens\n!\n! !REMARKS:\n!  Based on EXPAND_DATE from GeosUtil/time_mod.F.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL          :: Is_Mapl_Style\n    INTEGER          :: Year,          Month,      Day\n    INTEGER          :: Hour,          Minute,     Second\n\n    ! Strings\n    CHARACTER(LEN=2) :: MonthStr,      DayStr\n    CHARACTER(LEN=2) :: HourStr,       MinuteStr,  SecondStr\n    CHARACTER(LEN=4) :: YearStr\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    IF ( PRESENT( MAPL_Style ) ) THEN\n       Is_Mapl_Style = MAPL_Style\n    ELSE\n       Is_Mapl_Style = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Split the date and time into individal variables\n    !========================================================================\n\n    ! Extract year/month/day and hour/minute/seconds from the time\n    CALL Ymd_Extract( yyyymmdd, Year, Month,  Day    )\n    CALL Ymd_Extract( hhmmss,   Hour, Minute, Second )\n\n    ! Convert to strings\n    WRITE( YearStr,   '(i4.4)' ) Year\n    WRITE( MonthStr,  '(i2.2)' ) Month\n    WRITE( DayStr,    '(i2.2)' ) Day\n    WRITE( HourStr,   '(i2.2)' ) Hour\n    WRITE( MinuteStr, '(i2.2)' ) Minute\n    WRITE( SecondStr, '(i2.2)' ) Second\n\n    !========================================================================\n    ! Replace the date and time tokens in the string\n    !========================================================================\n\n    IF ( Is_Mapl_Style ) THEN\n\n       ! Use MAPL-style tokens\n       CALL StrRepl( DateStr, '%y4',  YearStr   )\n       CALL StrRepl( DateStr, '%m2',  MonthStr  )\n       CALL StrRepl( DateStr, '%d2',  DayStr    )\n       CALL StrRepl( DateStr, '%h2',  HourStr   )\n       CALL StrRepl( DateStr, '%n2',  MinuteStr )\n       CALL StrRepl( DateStr, '%s2',  SecondStr )\n\n    ELSE\n\n       ! Use GEOS-Chem style tokens\n       CALL StrRepl( DateStr, 'YYYY', YearStr   )\n       CALL StrRepl( DateStr, 'MM',   MonthStr  )\n       CALL StrRepl( DateStr, 'DD',   DayStr    )\n       CALL StrRepl( DateStr, 'hh',   HourStr   )\n       CALL StrRepl( DateStr, 'mm',   MinuteStr )\n       CALL StrRepl( DateStr, 'ss',   SecondStr )\n\n    ENDIF\n\n  END SUBROUTINE Expand_Date_Time\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Var_DimIds\n!\n! !DESCRIPTION: For a given HISTORY ITEM, returns the name and the netCDF\n!  dimension ID's pertaining to the data array.  Dimension ID's that do not\n!  pertain to the data will be set to UNDEFINED_INT.  Certain metadata for\n!  netCDF index variables will also be returned.  In particular, the unit\n!  string for the \"time\" index variable will be updated with the reference\n!  date and time.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Var_DimIds( Item,         xDimId,   yDimId,                 &\n                             zDimId,       iDimId,   tDimID,                 &\n                             bDimId,       RefDate,  RefTime,                &\n                             OnLevelEdges, VarAxis,  VarCalendar,            &\n                             VarPositive,  VarUnits, VarStdName,             &\n                             VarFormula,   VarBounds                        )\n!\n! !USES:\n!\n    USE History_Util_Mod\n    USE HistItem_Mod,       ONLY : HistItem\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,            INTENT(IN)  :: xDimId       ! Id # of X (lon     ) dim\n    INTEGER,            INTENT(IN)  :: yDimId       ! Id # of Y (lat     ) dim\n    INTEGER,            INTENT(IN)  :: zDimId       ! Id # of Z (lev cntr) dim\n    INTEGER,            INTENT(IN)  :: iDimId       ! Id # of I (lev edge) dim\n    INTEGER,            INTENT(IN)  :: tDimId       ! Id # of T (time    ) dim\n    INTEGER,            INTENT(IN)  :: bDimId       ! Id # of B (bounds  ) dim\n    INTEGER,            OPTIONAL    :: RefDate      ! Ref YMD for \"time\" var\n    INTEGER,            OPTIONAL    :: RefTime      ! Ref hms for \"time\" var\n    LOGICAL,            OPTIONAL    :: OnLevelEdges ! Is 3D data on lvl edges?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistItem),     POINTER     :: Item         ! HISTORY ITEM object\n!\n! !OUTPUT PARAMETERS\n!\n    CHARACTER(LEN=255), OPTIONAL    :: VarAxis      ! Axis attr for index vars\n    CHARACTER(LEN=255), OPTIONAL    :: VarCalendar  ! Calendar attr for \"time\"\n    CHARACTER(LEN=255), OPTIONAL    :: VarPositive  ! Positive attr for \"lev\"\n    CHARACTER(LEN=255), OPTIONAL    :: VarUnits     ! Unit string\n    CHARACTER(LEN=255), OPTIONAL    :: VarStdName   ! Standard name\n    CHARACTER(LEN=255), OPTIONAL    :: VarFormula   ! Formula terms\n    CHARACTER(LEN=255), OPTIONAL    :: VarBounds    ! X or Y bounds var name\n!\n! !REMARKS:\n!  Call this routine before calling NC_VAR_DEF.\n!\n! !REVISION HISTORY:\n!  10 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: IsOnLevelEdges\n    INTEGER            :: ReferenceYmd,   ReferenceHms\n    INTEGER            :: Year,           Month,        Day\n    INTEGER            :: Hour,           Minute,       Second\n\n    ! Strings\n    CHARACTER(LEN=2)   :: MonthStr,       DayStr\n    CHARACTER(LEN=2)   :: HourStr,        MinuteStr,    SecondStr\n    CHARACTER(LEN=4)   :: YearStr\n    CHARACTER(LEN=255) :: TmpAxis,        TmpCalendar,  TmpStdName\n    CHARACTER(LEN=255) :: TmpPositive,    TmpUnits,     TmpFormula\n    CHARACTER(LEN=255) :: TmpBounds\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    TmpAxis         = ''\n    TmpCalendar     = ''\n    TmpPositive     = ''\n    TmpUnits        = Item%Units\n    TmpStdName      = ''\n    TmpFormula      = ''\n    TmpBounds       = ''\n    Item%NcXDimId   = UNDEFINED_INT\n    Item%NcYDimId   = UNDEFINED_INT\n    Item%NcZDimId   = UNDEFINED_INT\n    Item%NcIDimId   = UNDEFINED_INT\n    Item%NcTDimId   = UNDEFINED_INT\n    Item%NcBDimId   = UNDEFINED_INT\n\n    IF ( PRESENT( RefDate ) ) THEN\n       ReferenceYmd = RefDate\n    ELSE\n       ReferenceYmd = UNDEFINED_INT\n    ENDIF\n\n    IF ( PRESENT( RefTime ) ) THEN\n       ReferenceHms = RefTime\n    ELSE\n       ReferenceHms = UNDEFINED_INT\n    ENDIF\n\n    IF ( PRESENT( OnLevelEdges ) ) THEN\n       IsOnLevelEdges = OnLevelEdges\n    ELSE\n       IsOnLevelEdges = .FALSE.\n    ENDIF\n\n    !========================================================================\n    ! Return relevant dim ID's and metadata for the HISTORY ITEM\n    !========================================================================\n    SELECT CASE( TRIM( Item%Name ) )\n\n       ! lon\n       CASE( 'lon' )\n          Item%NcXDimId = xDimId\n          TmpAxis       = 'X'\n          TmpBounds     = 'lon_bnds'\n\n       ! lat\n       CASE( 'lat' )\n          Item%NcYDimId = yDimId\n          TmpAxis       = 'Y'\n          TmpBounds     = 'lat_bnds'\n\n       ! lev\n       CASE( 'lev' )\n          Item%NcZDimId = zDimId\n          TmpAxis       = ''\n          TmpPositive   = 'up'\n          TmpStdName    = 'atmosphere_hybrid_sigma_pressure_coordinate'\n          TmpFormula    = 'a: hyam b: hybm p0: P0 ps: PS'\n\n          ! If the collection contains is level-centered data\n          ! then \"lev\" (and not \"ilev\") is the \"Z\" axis\n          IF ( .not. IsOnLevelEdges ) THEN\n             TmpAxis    = 'Z'\n          ENDIF\n\n       ! ilev\n       CASE( 'ilev' )\n          Item%NcZDimId = iDimId\n          TmpAxis       = ''\n          TmpPositive   = 'up'\n          TmpStdName    = 'atmosphere_hybrid_sigma_pressure_coordinate'\n          TmpFormula    = 'a: hyai b: hybi p0: P0 ps: PS'\n\n          ! If the collection contains is level-centered data\n          ! then \"ilev\" (and not \"lev\") is the \"Z\" axis\n          IF ( IsOnLevelEdges ) THEN\n             TmpAxis    = 'Z'\n          ENDIF\n\n       ! hybrid coordinates, level centers\n       CASE( 'hyam', 'hybm' )\n          Item%NcZDimId = zDimId\n\n       ! hybrid coordinates, level edges\n       CASE( 'hyai', 'hybi' )\n          Item%NcZDimId = iDimId\n\n       ! time\n       CASE( 'time' )\n          Item%NcTDimId = tDimId\n          TmpAxis       = 'T'\n          TmpCalendar   = 'gregorian'\n\n          ! Replace date and time tokens in the unit string\n          ! with the netCDF file's reference date and time\n          IF ( ReferenceYmd > 0 ) THEN\n             CALL Expand_Date_Time( TmpUnits, ReferenceYmd, ReferenceHms )\n          ENDIF\n\n       ! area\n       CASE( 'AREA' )\n          Item%NcXDimId = xDimId\n          Item%NcYDimId = yDimId\n\n       ! All other variable names\n       CASE DEFAULT\n\n          ! Set the various netCDF dimension variables that will be passed\n          ! to NC_CREATE.  If the data is defined on vertical level edges\n          ! (aka \"interfaces), then use iDimId instead of zDimId.\n          SELECT CASE( TRIM( Item%DimNames ) )\n\n             CASE( 'xyz' )\n                Item%NcXDimId = xDimId\n                Item%NcYDimId = yDimId\n                Item%NcTDimId = tDimId\n\n                IF ( Item%OnLevelEdges ) THEN\n                   Item%NcIDimId = iDimId\n                ELSE\n                   Item%NcZDimId = zDimId\n                ENDIF\n\n             CASE( 'xy'  )\n                Item%NcXDimId = xDimId\n                Item%NcYDimId = yDimId\n                Item%NcTDimId = tDimId\n\n             CASE( 'yz'  )\n                Item%NcYDimId = yDimId\n                Item%NcTDimId = tDimId\n\n                IF ( Item%OnLevelEdges ) THEN\n                   Item%NcIDimId = iDimId\n                ELSE\n                   Item%NcZDimId = zDimId\n                ENDIF\n\n             CASE( 'xz'  )\n                Item%NcXDimId = xDimId\n                Item%NcTDimId = tDimId\n\n                IF ( Item%OnLevelEdges ) THEN\n                   Item%NcIDimId = iDimId\n                ELSE\n                   Item%NcZDimId = zDimId\n                ENDIF\n\n             CASE( 'x'   )\n                Item%NcXDimId = xDimId\n                Item%NcTDimId = tDimId\n\n             CASE( 'y'   )\n                Item%NcYDimId = yDimId\n                Item%NcTDimId = tDimId\n\n             CASE( 'z'   )\n                Item%NcTDimId = tDimId\n\n                IF ( Item%OnLevelEdges ) THEN\n                   Item%NcIDimId = iDimId\n                ELSE\n                   Item%NcZDimId = zDimId\n                ENDIF\n\n             ! For longitude bounds\n             CASE( 'bx' )\n                Item%NcBDimId = bDimId\n                Item%NcXDimId = xDimId\n\n             ! For latitude bounds\n             CASE( 'by' )\n                Item%NcBDimId = bDimId\n                Item%NcYDimId = yDimId\n\n             CASE DEFAULT\n                ! Nothing\n\n          END SELECT\n\n    END SELECT\n\n    ! Return optional attributes for index variables: axis and calendar\n    IF ( PRESENT( VarAxis     ) ) VarAxis     = TmpAxis\n    IF ( PRESENT( VarCalendar ) ) VarCalendar = TmpCalendar\n    IF ( PRESENT( VarPositive ) ) VarPositive = TmpPositive\n    IF ( PRESENT( VarUnits    ) ) VarUnits    = TmpUnits\n    IF ( PRESENT( VarStdName  ) ) VarStdName  = TmpStdName\n    IF ( PRESENT( VarFormula  ) ) VarFormula  = TmpFormula\n    IF ( PRESENT( VarBounds   ) ) VarBounds   = TmpBounds\n\n  END SUBROUTINE Get_Var_DimIds\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: IndexVarList_Create\n!\n! !DESCRIPTION: Creates a HISTORY ITEM for each netCDF index variable (e.g.\n!  lon, lat, lev, time, area) and adds it to the METAHISTORY ITEM IndexVarList.\n!  Subsets each index variable according to the subset indices from the\n!  given collection (passed via the Container argument).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE IndexVarList_Create( Input_Opt, State_Grid,                     &\n                                  Container, IndexVarList, RC               )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod, ONLY : HistContainer\n    USE HistItem_Mod\n    USE Input_Opt_Mod,     ONLY : OptInput\n    USE MetaHistItem_Mod\n    Use State_Grid_Mod,    ONLY : GrdState, Lookup_Grid\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)  :: Input_Opt    ! Input Options object\n    TYPE(GrdState),      INTENT(IN)  :: State_Grid   ! Grid state object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container    ! Collection object\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem),  POINTER     :: IndexVarList ! Linked list of index\n                                                     !  variables for netCDF\n    INTEGER,             INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  10 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                  :: OnLevelEdges\n    INTEGER                  :: N\n    INTEGER                  :: Output_KindVal\n    INTEGER                  :: Source_KindVal\n    INTEGER                  :: Rank\n    INTEGER                  :: nILev\n    INTEGER                  :: nLev\n\n    ! Arrays\n    INTEGER                  :: Dimensions(3)\n    INTEGER                  :: Subset_X(2), Subset_Xc(2)\n    INTEGER                  :: Subset_Y(2), Subset_Yc(2)\n    INTEGER                  :: Subset_Z(2), Subset_Zc(2), Subset_Ze(2)\n\n    ! Strings\n    CHARACTER(LEN=20)        :: ItemDimName(13)\n    CHARACTER(LEN=20)        :: ItemName(13)\n    CHARACTER(LEN=20)        :: RegistryName(13)\n    CHARACTER(LEN=255)       :: Description\n    CHARACTER(LEN=255)       :: ErrMsg\n    CHARACTER(LEN=255)       :: ThisLoc\n    CHARACTER(LEN=255)       :: Units\n\n    ! Pointer arrays\n    REAL(f8),        POINTER :: Ptr0d_8\n    REAL(f8),        POINTER :: Ptr1d_8(:  )\n    REAL(f8),        POINTER :: Ptr2d_8(:,:)\n    REAL(f4),        POINTER :: Ptr2d_4(:,:)\n\n    ! Objects\n    TYPE(HistItem),  POINTER :: Item\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC             =  GC_SUCCESS\n    Description    =  ''\n    Dimensions     =  0\n    Source_KindVal =  0\n    Output_KindVal =  0\n    Rank           =  0\n    Units          =  ''\n    ErrMsg         =  ''\n    ThisLoc        =  &\n         ' -> at History_Netcdf_Init (in History/history_mod.F90)'\n    Ptr0d_8      => NULL()\n    Ptr1d_8      => NULL()\n    Ptr2d_4      => NULL()\n\n    !========================================================================\n    ! Define the names that will be used to create the HISTORY ITEMS\n    ! for fields to be used as netCDF metadata\n    !========================================================================\n\n    ! Fields saved in the Registry object in GeosUtil/grid_registry_mod.F90\n    RegistryName(1 ) = 'GRID_AREA'\n    RegistryName(2 ) = 'GRID_P0'\n    RegistryName(3 ) = 'GRID_HYBI'\n    RegistryName(4 ) = 'GRID_HYAI'\n    RegistryName(5 ) = 'GRID_HYBM'\n    RegistryName(6 ) = 'GRID_HYAM'\n    RegistryName(7 ) = 'GRID_LON'\n    RegistryName(8 ) = 'GRID_LONBND'\n    RegistryName(9 ) = 'GRID_LAT'\n    RegistryName(10) = 'GRID_LATBND'\n    RegistryName(11) = 'GRID_ILEV'\n    RegistryName(12) = 'GRID_LEV'\n    RegistryName(13) = 'GRID_TIME'\n\n    ! Name for each HISTORY ITEM\n    ItemName(1 )     = 'AREA'\n    ItemName(2 )     = 'P0'\n    ItemName(3 )     = 'hybi'\n    ItemName(4 )     = 'hyai'\n    ItemName(5 )     = 'hybm'\n    ItemName(6 )     = 'hyam'\n    ItemName(7 )     = 'lon'\n    ItemName(8 )     = 'lon_bnds'\n    ItemName(9 )     = 'lat'\n    ItemName(10)     = 'lat_bnds'\n    ItemName(11)     = 'ilev'\n    ItemName(12)     = 'lev'\n    ItemName(13)     = 'time'\n\n    ! Dimensions for each HISTORY ITEM\n    ItemDimName(1 )  = 'xy'\n    ItemDimName(2 )  = '-'\n    ItemDimName(3 )  = 'z'\n    ItemDimName(4 )  = 'z'\n    ItemDimName(5 )  = 'z'\n    ItemDimName(6 )  = 'z'\n    ItemDimName(7 )  = 'x'\n    ItemDimName(8 )  = 'bx'\n    ItemDimName(9 )  = 'y'\n    ItemDimName(10)  = 'by'\n    ItemDimName(11)  = 'z'\n    ItemDimName(12)  = 'z'\n    ItemDimName(13)  = 't'\n\n    !========================================================================\n    ! Pick the dimensions of the lev and ilev variables properly\n    !========================================================================\n\n    ! Get the number of levels (nLev) and level interfaces (nIlev)\n    CALL Get_Number_Of_Levels( Container, nLev, nIlev )\n\n    ! Subset indices\n    Subset_Xc = (/ Container%X0, Container%X1 /)\n    Subset_Yc = (/ Container%Y0, Container%Y1 /)\n    Subset_Zc = (/ Container%Z0, nLev         /)\n    Subset_Ze = (/ Container%Z0, nILev        /)\n\n    !========================================================================\n    ! Create a HISTORY ITEM for each of the index fields (lon, lat, area)\n    ! of grid_registry_mod.F90 and add them to a METAHISTORY ITEM list\n    !========================================================================\n    DO N = 1, SIZE( RegistryName )\n\n       !---------------------------------------------------------------------\n       ! Look up one of the index fields from grid_registry_mod.F90\n       !---------------------------------------------------------------------\n       CALL Lookup_Grid( Input_Opt      = Input_Opt,                         &\n                         State_Grid     = State_Grid,                        &\n                         Variable       = RegistryName(N),                   &\n                         Description    = Description,                       &\n                         Dimensions     = Dimensions,                        &\n                         Source_KindVal = Source_KindVal,                    &\n                         Output_KindVal = Output_KindVal,                    &\n                         Rank           = Rank,                              &\n                         Units          = Units,                             &\n                         OnLevelEdges   = OnLevelEdges,                      &\n                         Ptr0d_8        = Ptr0d_8,                           &\n                         Ptr1d_8        = Ptr1d_8,                           &\n                         Ptr2d_8        = Ptr2d_8,                           &\n                         Ptr2d_4        = Ptr2d_4,                           &\n                         RC             = RC                                )\n\n       ! Trap potential error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error in \"Lookup_Grid\" for diagnostic ' //               &\n                   TRIM( RegistryName(N) )\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Pick proper subset indices for index variables placed on\n       ! edges  (hyai, hybi, ilev) or centers (everything else)\n       ! NOTE: special handling for lat_bnds (12) and lon_bnds (13)\n       SELECT CASE( N )\n          CASE( 2 )                   ! P0\n             Subset_X = (/ 0, 0 /)\n             Subset_Y = (/ 0, 0 /)\n             Subset_Z = (/ 0, 0 /)\n          CASE( 3, 4, 11 )            ! hybi, hyai, ilev\n             Subset_X = Subset_Xc\n             Subset_Y = Subset_Yc\n             Subset_Z = Subset_Ze\n          CASE( 8  )                  ! lon_bnds\n             Subset_X = (/ 1, 2 /)\n             Subset_Y = Subset_Xc\n             Subset_Z = (/ 0, 0 /)\n          CASE( 10 )                  ! lat_bnds\n             Subset_X = (/ 1, 2 /)\n             Subset_Y = Subset_Yc\n             Subset_Z = (/ 0, 0 /)\n          CASE DEFAULT                ! everything else\n             Subset_X = Subset_Xc\n             Subset_Y = Subset_Yc\n             Subset_Z = Subset_Zc\n       END SELECT\n\n       !---------------------------------------------------------------------\n       ! Create a HISTORY ITEM for this index field\n       !---------------------------------------------------------------------\n       CALL HistItem_Create( Input_Opt      = Input_Opt,                     &\n                             Item           = Item,                          &\n                             Id             = N,                             &\n                             ContainerId    = 0,                             &\n                             Name           = ItemName(N),                   &\n                             LongName       = Description,                   &\n                             Units          = Units,                         &\n                             SpaceDim       = Rank,                          &\n                             OnLevelEdges   = OnLevelEdges,                  &\n                             DimNames       = ItemDimName(N),                &\n                             Operation      = 0,                             &\n                             Subset_X       = Subset_X,                      &\n                             Subset_Y       = Subset_Y,                      &\n                             Subset_Z       = Subset_Z,                      &\n                             Source_KindVal = Source_KindVal,                &\n                             Output_KindVal = Output_KindVal,                &\n                             Source_0d_8    = Ptr0d_8,                       &\n                             Source_1d_8    = Ptr1d_8,                       &\n                             Source_2d_4    = Ptr2d_4,                       &\n                             Source_2d_8    = Ptr2d_8,                       &\n                             RC             = RC                            )\n\n       ! Trap potential error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not create Item: \"' // TRIM( ItemName(N) ) // '\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       !### Debug: Print full info about this HISTORY ITEM\n       !### You can leave this commented out unless you are debugging\n       !CALL HistItem_Print( Item, RC )\n\n       !---------------------------------------------------------------------\n       ! Add this item to the Dimension list\n       !---------------------------------------------------------------------\n       CALL MetaHistItem_AddNew( Input_Opt = Input_Opt,                      &\n                                 Node      = IndexVarList,                   &\n                                 Item      = Item,                           &\n                                 RC        = RC                             )\n\n       ! Trap potential error\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not add Item \"' // TRIM( ItemName(N) ) //          &\n                   '\" to Dimensionlist!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Free Item now that we have added it to IndexVarList\n       DEALLOCATE( Item )\n       Item => NULL()\n    ENDDO\n\n  END SUBROUTINE IndexVarList_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: IndexVarList_Destroy\n!\n! !DESCRIPTION: Finalizes the IndexVarList linked list of netCDF\n!  index variables.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE IndexVarList_Destroy( IndexVarList, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE MetaHistItem_Mod,  ONLY : MetaHistItem_Destroy\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem),  POINTER     :: IndexVarList ! Linked list of index\n                                                     !  variables for netCDF\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: RC           ! Success or failure\n!\n! !REVISION HISTORY:\n!  10 Aug 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! Initialize\n    !========================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at MetaHistItem_Destroy (in History/metahistitem_mod.F90)'\n\n    !========================================================================\n    ! Destroy the METAHISTORY ITEM list of index variables for netCDF\n    !========================================================================\n    CALL MetaHistItem_Destroy( IndexVarList, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Cannot deallocate the \"IndexVarList\" META HISTORY ITEM!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE IndexVarList_Destroy\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Number_Of_Levels\n!\n! !DESCRIPTION: Given the vertical dimension of the container, returns the\n!  values NLEV (number of levels) and NILEV (number of level interfaces).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Number_Of_Levels( Container, nLev, nILev )\n!\n! !USES:\n!\n    USE HistContainer_Mod, ONLY : HistContainer\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(HistContainer), POINTER     :: Container ! Diagnostic collection obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT) :: nLev      ! Number of levels\n    INTEGER,             INTENT(OUT) :: nIlev     ! Number of level interfaces\n!\n! !REVISION HISTORY:\n!  05 Jun 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !========================================================================\n    ! Pick the dimensions of the lev and ilev variables properly\n    ! so that we can use that for writing to then netCDF files.\n    !\n    ! If the vertical dimension (Container%NZ) is undefined, then\n    ! this indicates that there is only 2-D data in the collection.\n    ! Thus, there will be 1 level (the surface) and 2 level edges.\n    !========================================================================\n    IF ( Container%OnLevelEdges ) THEN\n       nILev = MAX( Container%NZ, 2 )\n       nLev  = nILev - 1\n    ELSE\n       nLev  = MAX( Container%NZ, 1 )\n       nILev = nLev  + 1\n    ENDIF\n\n  END SUBROUTINE Get_Number_Of_Levels\n!EOC\nEND MODULE History_Netcdf_Mod\n"
  },
  {
    "path": "History/history_util_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: history_util_mod.F90\n!\n! !DESCRIPTION: Contains defined parameters and utility routines for\n!  the GEOS-Chem History Component.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE History_Util_Mod\n!\n! !USES:\n!\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Compute_Julian_Date\n  PUBLIC :: Compute_Elapsed_Time\n  PUBLIC :: Compute_DeltaYmdHms_For_End\n  PUBLIC :: SatDiagn_or_SatDiagnEdge\n!\n! !DEFINED PARAMETERS:\n!\n  !-------------------------------------------------------------------------\n  ! MISSING DATA VALUES:\n  !\n  ! Specify missing data values for various numeric types.\n  !-------------------------------------------------------------------------\n  INTEGER,          PARAMETER, PUBLIC :: UNDEFINED_INT      = -999\n  REAL(f4),         PARAMETER, PUBLIC :: UNDEFINED          = -1.0e+31_f4\n  REAL(f8),         PARAMETER, PUBLIC :: UNDEFINED_DBL      = -1.0e+31_f8\n  CHARACTER(LEN=9), PARAMETER, PUBLIC :: UNDEFINED_STR      = 'not found'\n\n  !-------------------------------------------------------------------------\n  ! OPERATION CODES:\n  !\n  ! 0 = Copy       data from source pointer to the HISTORY ITEM data array\n  ! 1 = Accumulate data from source pointer to the HISTORY ITEM data array\n  !-------------------------------------------------------------------------\n  INTEGER,          PARAMETER, PUBLIC :: COPY_FROM_SOURCE   = 0\n  INTEGER,          PARAMETER, PUBLIC :: ACCUM_FROM_SOURCE  = 1\n\n  !-------------------------------------------------------------------------\n  ! ROUNDING AND NUMERICAL TESTING PARAMETRS\n  ! Specifies the number of decimal digits for rounding, as well as an\n  ! epsilon value that can be used for floating point equality testing.\n  !-------------------------------------------------------------------------\n  INTEGER,          PARAMETER, PUBLIC :: ROUNDOFF_DECIMALS  = 4\n  REAL(f8),         PARAMETER, PUBLIC :: EPS                = 1e-5_f8\n\n  !-------------------------------------------------------------------------\n  ! TIME CONVERSION PARAMETERS\n  ! Specifies the number of minutes and seconds per day, etc.\n  !-------------------------------------------------------------------------\n  REAL(f8),         PARAMETER, PUBLIC :: HOURS_PER_DAY      = 24.0_f8\n  REAL(f8),         PARAMETER, PUBLIC :: MINUTES_PER_DAY    = 1440.0_f8\n  REAL(f8),         PARAMETER, PUBLIC :: MINUTES_PER_HOUR   = 60.0_f8\n  REAL(f8),         PARAMETER, PUBLIC :: SECONDS_PER_DAY    = 86400.0_f8\n  REAL(f8),         PARAMETER, PUBLIC :: SECONDS_PER_HOUR   = 3600.0_f8\n  REAL(f8),         PARAMETER, PUBLIC :: SECONDS_PER_MINUTE = 60.0_f8\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version\n!  03 Aug 2017 - R. Yantosca - Add operation code parameters\n!  04 Aug 2017 - R. Yantosca - Rename operation code parameters\n!  09 Aug 2017 - R. Yantosca - Add UNDEFINED_INT\n!  15 Aug 2017 - R. Yantosca - Add UNDEFINED_STR\n!  16 Aug 2017 - R. Yantosca - Added ACTION_* parameters\n!  17 Aug 2017 - R. Yantosca - Renamed to history_util_mod.F90; added routine\n!                              Compute_Julian_Date\n!  21 Aug 2017 - R. Yantosca - Removed some parameters that weren't needed\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_Julian_Date\n!\n! !DESCRIPTION: Computes the Astronomical Julian Date corresponding to a\n!  given date and time.  This is useful for computing elapsed times.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Julian_Date( yyyymmdd, hhmmss, Jd )\n!\n! !USES:\n!\n    USE Julday_Mod, ONLY : Julday\n    USE Time_Mod,   ONLY : Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: yyyymmdd   ! Current Year/month/day\n    INTEGER,  INTENT(IN)  :: hhmmss     ! Current hour/minute/second\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: Jd         ! Astronomical Julian date\n!\n! !REMARKS:\n!  This is a convenience wrapper for the JULDAY routine, which is located\n!  in GeosUtil/julday_mod.F.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER  :: Year, Month, Day, Hour, Minute, Second\n    REAL(f8) :: FracDay\n\n    ! Extract year/month/day and hour/minute/seconds from the time\n    CALL Ymd_Extract( yyyymmdd, Year, Month,  Day    )\n    CALL Ymd_Extract( hhmmss,   Hour, Minute, Second )\n\n    ! Compute the fractional day\n    FracDay = DBLE( Day ) + ( DBLE( Hour   ) / HOURS_PER_DAY   )  +          &\n                            ( DBLE( Minute ) / MINUTES_PER_DAY )  +          &\n                            ( DBLE( Second ) / SECONDS_PER_DAY )\n\n    ! Return the Astronomical Julian Date\n    Jd = JulDay( Year, Month, FracDay )\n\n  END SUBROUTINE Compute_Julian_Date\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_Elapsed_Time\n!\n! !DESCRIPTION: Computes elapsed time in minutes, given the current\n!  Astronomical Julian Date value, plus a reference Julian Date.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_Elapsed_Time( CurrentJsec, TimeBaseJsec, ElapsedSec )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(f8), INTENT(IN)  :: CurrentJsec  ! Current astronomical Julian date\n    REAL(f8), INTENT(IN)  :: TimeBaseJsec ! Reference astronomical Julian date\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(f8), INTENT(OUT) :: ElapsedSec   ! Elapsed time [seconds]\n!\n! !REMARKS:\n!  The netCDF file reference date and time are given by the ReferenceYmd,\n!  ReferenceHms, and ReferenceJd fields of the Container object.  This\n!  denotes the simulation date & time when the netCDF file was created.\n!\n! !REVISION HISTORY:\n!  18 Aug 2017 - R. Yantosca - Initial version\n!  13 Sep 2017 - R. Yantosca - Avoid roundoff error; return integral minutes\n!  18 Sep 2017 - R. Yantosca - Now return elapsed seconds to avoid roundoff\n!  29 Sep 2017 - R. Yantosca - Use NINT instead of INT to avoid roundoff\n!  11 Jul 2018 - R. Yantosca - Now accept input arguments in seconds\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=======================================================================\n    ! Compute elapsed time in minutes\n    !=======================================================================\n\n    ! Compute elapsed minutes since start of simulation\n    ElapsedSec = ( CurrentJsec - TimeBaseJsec )\n\n    ! Just keep the integer part, since we are dealing in integral seconds\n    ! NINT ensures that we round up in case there is underflow\n    ElapsedSec = NINT( ElapsedSec )\n\n  END SUBROUTINE Compute_Elapsed_Time\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_DeltaYmdHms_For_End\n!\n! !DESCRIPTION: Returns the DeltaYMD and DeltaHMS parameters for collections\n!  that are specified with \"End\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_DeltaYmdHms_For_End( yyyymmdd,     hhmmss,              &\n                                          yyyymmdd_end, hhmmss_end,          &\n                                          deltaYmd,     deltaHms            )\n!\n! !USES:\n!\n    USE Time_Mod, ONLY : Ymd_Extract\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: yyyymmdd       ! Simulation start date\n    INTEGER, INTENT(IN)  :: hhmmss         ! Simulation start time\n    INTEGER, INTENT(IN)  :: yyyymmdd_end   ! Simulation end date\n    INTEGER, INTENT(IN)  :: hhmmss_end     ! Simulation end time\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: deltaYmd       ! YMD interval for the collection\n    INTEGER, INTENT(OUT) :: deltaHms       ! HMS interval for the collection\n!\n! !REMARKS:\n!  NOTE: This algorithm should work for most typical model start and end dates\n!  (which are usually integral intervals of months, days, hours, or minutes.\n!  There may be some edge cases that will cause this to fail.  But it is an\n!  improvement over the prior situation. (bmy, 2/26/19)\n!\n! !REVISION HISTORY:\n!  26 Feb 2019 - R. Yantosca - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: Year0, Month0, Day0, Hour0, Minute0, Second0\n    INTEGER :: Year1, Month1, Day1, Hour1, Minute1, Second1\n    INTEGER :: dYear, dMonth, dDay, dHour, dMinute, dSecond\n\n    !=======================================================================\n    ! GetRestartDeltaYmdHms begins here!\n    !=======================================================================\n\n    ! Split starting date\n    CALL Ymd_Extract( yyyymmdd,     Year0, Month0,  Day0    )\n    CALL Ymd_Extract( hhmmss,       Hour0, Minute0, Second0 )\n\n    ! Split ending date\n    CALL Ymd_Extract( yyyymmdd_end, Year1, Month1,  Day1    )\n    CALL Ymd_Extract( hhmmss_end,   Hour1, Minute1, Second1 )\n\n    ! Compute intervals\n    dYear    = Year1   - Year0\n    dMonth   = Month1  - Month0\n    dDay     = Day1    - Day0\n    dHour    = Hour1   - Hour0\n    dMinute  = Minute1 - Minute0\n    dSecond  = Second1 - Second0\n\n    ! Adjust intervals (NOTE: Might not be as robust, more testing needed)\n    IF ( dSecond < 0 ) THEN\n       dSecond = dSecond + 60\n       dMinute = MAX( dMinute - 1, 0 )\n    ENDIF\n\n    IF ( dMinute < 0 ) THEN\n       dMinute = dMinute + 60\n       dHour   = MAX( dHour - 1, 0 )\n    ENDIF\n\n    IF ( dHour < 0 ) THEN\n       dHour   = dHour + 24\n       dDay    = MAX( dDay - 1, 0 )\n    ENDIF\n\n    IF ( dDay < 0 ) THEN\n       dDay    = dDay + Day0\n       dMonth  = MAX( dMonth - 1, 0 )\n    ENDIF\n\n    IF ( dMonth < 0 ) THEN\n       dMonth  = dMonth + 12\n       dYear   = MAX( dYear - 1, 0 )\n    ENDIF\n\n    IF ( month1 < month0 ) THEN\n       dYear = MAX( dyear - 1, 0 )\n    ENDIF\n\n    ! Construct the YMD and HMS intervals\n    deltaYmd = ( dYear * 10000 ) + ( dMonth  * 100 ) + dDay\n    deltaHms = ( dHour * 10000 ) + ( dMinute * 100 ) + dSecond\n\n  END SUBROUTINE Compute_DeltaYmdHms_For_End\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Is_SatDiagn_or_SatDiagnEdge\n!\n! !DESCRIPTION: Tests a container name to determine if it is one of the\n!  satellite diagnostic collections (SatDiagn, SatDiagnEdge)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SatDiagn_or_SatDiagnEdge( cName, isSatDiagn, isSatDiagnEdge )\n!\n! !USES:\n!\n    USE CharPak_Mod, ONLY : To_Uppercase\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: cName   ! Container name\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(OUT) :: isSatDiagn\n    LOGICAL,          INTENT(OUT) :: isSatDiagnEdge\n!\n! !REVISION HISTORY:\n!  31 Oct 2024 - R. Yantosca - Initial version\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Test if this is the SatDiagnEdge container\n    isSatDiagnEdge = (                                                       &\n       INDEX( To_UpperCase( TRIM( cName) ), 'SATDIAGNEDGE' ) > 0            )\n\n    ! Test if this is the SatDiagn container\n    isSatDiagn = (                                                           &\n      .not. isSatDiagnEdge .and.                                             &\n       INDEX( To_UpperCase( TRIM( cName ) ), 'SATDIAGN'    ) > 0            )\n\n  END SUBROUTINE SatDiagn_or_SatDiagnEdge\n!EOC\nEND MODULE History_Util_Mod\n"
  },
  {
    "path": "History/metahistcontainer_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: metahistcontainer_mod.F90\n!\n! !DESCRIPTION: Contains types and methods to create a METAHISTORY CONTAINER\n!  object, which is a container for a HISTORY CONTAINER.  In other words,\n!  a METAHISTORY CONTAINER represents a single node of a linked list that is\n!  used to contain HISTORY CONTAINERS.\n!\\\\\n!\\\\\n!  In practice, we can think of a METAHISTORY CONTAINER as a list of\n!  diagnostic collections, each of which contains a list of HISTORY ITEMS\n!  to be archived to netCDF output at a specified frequency (e.g.\n!  instantaneous, daily, hourly, etc.)\n!!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE MetaHistContainer_Mod\n!\n! !USES:\n!\n  USE HistContainer_Mod, ONLY : HistContainer\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: MetaHistContainer_Create\n  PRIVATE :: MetaHistContainer_Insert\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: MetaHistContainer_AddNew\n  PUBLIC  :: MetaHistContainer_Count\n  PUBLIC  :: MetaHistContainer_Destroy\n  PUBLIC  :: MetaHistContainer_Print\n!\n! !PUBLIC TYPES:\n!\n  !=========================================================================\n  ! This is the derived type for a METAHISTORY CONTAINER object, which\n  ! represents a SINGLE NODE OF A LINKED LIST consisting of HISTORY\n  ! CONTAINERS.\n  !\n  ! As such, the METAHISTORY CONTAINER does not contain any data itself,\n  ! but is a wrapper for a single HISTORY CONTAINER object, plus a pointer\n  ! to another METAHISTORY CONTAINER (i.e. the next node in the list).\n  !=========================================================================\n  TYPE, PUBLIC ::  MetaHistContainer\n\n     ! Pointer to the next METAHISTORY CONTAINER object\n     ! (i.e. the next node in the linked list)\n     TYPE(MetaHistContainer), POINTER :: Next      => NULL()\n\n     ! The HISTORY CONTAINER object (which represents a diagnostic\n     ! quantity that will be archived to netCDF file format)\n     TYPE(HistContainer),     POINTER :: Container => NULL()\n\n  END TYPE MetaHistContainer\n!\n! !REMARKS:\n!  As described above, a METAHISTORY CONTAINER can be thought of as a SINGLE\n!  NODE OF A LINKED LIST INTENDED TO HOLD HISTORY CONTAINERS.  It looks like\n!  this:\n!\n!      +----------------------------+   +----------------------------+\n!      | METAHISTORY CONTAINER n    |   | METAHISTORY CONTAINER n+1  |\n!      | (aka NODE n of list)       |   | (aka NODE n+1 of list)     |\n!      |                            |   |                            |\n!      | Contains:                  |   | Contains:                  |\n!      |                            |   |                            |\n!      |   HISTORY CONTAINER n      |   |   HISTORY CONTAINER n+1    |\n!      |                            |   |                            |\n! =======> Pointer to next    ============> Pointer to next    =========> etc\n!      |    METAHISTORY CONTAINER   |   |    METAHISTORY CONTAINER   |\n!      +----------------------------+   +----------------------------+\n!\n!  Linked list routines taken from original code (linkedlist.f90)\n!  by Arjen Markus; http://flibs.sourceforge.net/linked_list.html\n\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistContainer_AddNew\n!\n! !DESCRIPTION: Wrapper for methods MetaHistContainer\\_Create and\n!  MetaHistContainer\\_Insert.  Will create a METAHISTORY CONTAINER (containing\n!  a HISTORY CONTAINER) and (1) set it as the head node of a new linked list,\n!  or (2) append it to an existing linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistContainer_AddNew( Input_Opt, Node, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod, ONLY : HistContainer\n    USE Input_Opt_Mod,     ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),          INTENT(IN)  :: Input_Opt ! Input Options object\n    TYPE(HistContainer),     POINTER     :: Container ! HISTORY CONTAINER\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistContainer), POINTER     :: Node      ! METAHISTORY CONTAINER\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                 INTENT(OUT) :: RC        ! Success or failure\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at MetaHistContainer_Add (in History/metahistcontainer_mod.F90)'\n\n    !=======================================================================\n    ! Test if the METAHISTORY CONTAINER (aka \"Node\") has been allocated\n    ! memory  and is therefore part of an existing linked list\n    !=======================================================================\n    IF ( .not. ASSOCIATED( Node ) ) THEN\n\n       !--------------------------------------------------------------------\n       ! If not, then create a new METAHISTORY CONTAINER (named \"Node\"),\n       ! and set it at the head of a new linked list\n       !--------------------------------------------------------------------\n       CALL MetaHistContainer_Create( Input_Opt, Node, Container, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not create \"Node\" as the head node of a list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Otherwise, create a new METAHISTORY CONTAINER (named \"Node\"),\n       ! and append it to the list, immediately following the head node\n       !--------------------------------------------------------------------\n       CALL MetaHistContainer_Insert( Input_Opt, Node, Container, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not insert \"Node\" into an existing linked list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE MetaHistContainer_AddNew\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistContainer_Create\n!\n! !DESCRIPTION: This method creates a new METAHISTORY CONTAINER (to contain the\n!  supplied HISTORY CONTAINER) and sets it as the head node of a linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistContainer_Create( Input_Opt, Node, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod, ONLY : HistContainer\n    USE Input_Opt_Mod,     ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),          INTENT(IN)  :: Input_Opt ! Input Options object\n    TYPE(HistContainer),     POINTER     :: Container ! HISTORY CONTAINER\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistContainer), POINTER     :: Node      ! METAHISTORY CONTAINER\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                 INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!  This method is not intended to be called directly, but is rather\n!  wrapped by the MetaHistContainer_AddNew method.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at MetaHistContainer_Create (in History/metahistcontainer_mod.F90)'\n\n    !=======================================================================\n    ! Initialize the METAHISTORY CONTAINER itself\n    !=======================================================================\n\n    ! Allocate memory\n    ALLOCATE( Node, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Node\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Nullify the pointer to the next node (it doesn't exist yet)\n    Node%Next => NULL()\n\n    !=======================================================================\n    ! Initialize the field that will store the HISTORY CONTAINER\n    !=======================================================================\n\n    ! Because this is the first METAHISTORY CONTAINER that is being created,\n    ! we can consider this to be the head node of a linked list.\n    IF ( .not. ASSOCIATED( Node%Container ) ) THEN\n       ALLOCATE( Node%Container, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"Node%Container\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Attach the given HISTORY CONTAINER to the METAHISTORY CONTAINER\n    ! (i.e. place it into the head node of a linked list)\n    Node%Container = Container\n\n  END SUBROUTINE MetaHistContainer_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistContainer_Insert\n!\n! !DESCRIPTION: Creates a new METAHISTORY CONTAINER (to contain the supplied\n!  HISTORY CONTAINER), and pops it into an existing linked list, immediately\n!  following the head node.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistContainer_Insert( Input_Opt, Node, Container, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod, ONLY : HistContainer\n    USE Input_Opt_Mod,     ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),          INTENT(IN)  :: Input_Opt ! Input Options object\n    TYPE(HistContainer),     POINTER     :: Container ! HISTORY CONTAINER\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistContainer), POINTER     :: Node      ! METAHISTORY CONTAINER\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                 INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!  This method is not intended to be called directly, but is rather\n!  wrapped by the MetaHistContainer_AddNew method.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)               :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(MetaHistContainer), POINTER :: Head\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      = GC_SUCCESS\n    ErrMsg  = ''\n    ThisLoc = &\n      ' -> at MetaHistContainer_Insert (in History/metahistcontainer_mod.F90)'\n\n    !=======================================================================\n    ! Initialize a METAHISTORY CONTAINER named \"Head\", which will\n    ! become  the head of the existing list.  \"Head\" will contain\n    ! a new HISTORY CONTAINER.\n    !=======================================================================\n\n    ! Allocate the \"Head\" object\n    ALLOCATE( Head, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Head\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Allocate the \"HeadContainer\" field,\n    ! which will hold the HISTORY CONTAINER\n    ALLOCATE( Head%Container, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Head%Container\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Insert \"Head\" at the start of the existing linked list\n    !=======================================================================\n\n    ! Save the HISTORY CONTAINER argument in the \"Container\" field of \"Head\"\n    Head%Container =  Container\n\n    ! The \"Next\" field of \"Head\" points to the current head of the list\n    Head%Next      => Node\n\n    ! Set \"Head\" as the new head of the linked list\n    Node           => Head\n\n  END SUBROUTINE MetaHistContainer_Insert\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistContainer_Count\n!\n! !DESCRIPTION: Counts the number of METAHISTORY CONTAINERS stored in a linked\n!  list.  By extension, this is also the number of HISTORY CONTAINERS stored in\n!  the list, because each METAHISTORY CONTAINER contains only one HISTORY !\n!  CONTAINER.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION MetaHistContainer_Count( List ) RESULT( nNodes )\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetaHistContainer), POINTER :: List   ! List of METAHISTORY CONTAINERS\n!\n! !RETURN VALUE:\n!\n    INTEGER                          :: nNodes ! # of METAHISTORY CONTAINERS\n                                               ! (aka nodes) in the list\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(MetaHistContainer), POINTER  :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    nNodes  =  0\n    Current => NULL()\n\n    !=======================================================================\n    ! Count the number of METAHISTORY CONTAINERS in the list\n    !=======================================================================\n\n    ! If the list does not point to NULL() ...\n    IF ( ASSOCIATED( List ) ) THEN\n\n       ! ... then there is at least 1 node (the head node)\n       nNodes  =  1\n\n       ! Set the CURRENT pointer to the head node\n       Current => List\n\n       ! As long as the following node doesn't point to NULL()\n       DO WHILE ( ASSOCIATED( Current%Next ) )\n\n          ! Set CURRENT to the following node\n          Current => Current%Next\n\n          ! Increment the node count\n          nNodes  =  nNodes + 1\n\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n\n    ENDIF\n\n  END FUNCTION MetaHistContainer_Count\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistContainer_Print\n!\n! !DESCRIPTION: This method will print information about the HISTORY CONTAINER\n!  belonging to each METAHISTORY CONTAINER (aka node) of a linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistContainer_Print( Input_Opt, List, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod, ONLY : HistContainer, HistContainer_Print\n    USE Input_Opt_Mod,     ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),          INTENT(IN)  :: Input_Opt ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistContainer), POINTER     :: List      ! List of METAHISTORY\n                                                      !  CONTAINERS\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                 INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)               :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(MetaHistcontainer), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    Current => NULL()\n    ErrMsg  =  ''\n    ThisLoc =  &\n      ' -> at MetaHistContainer_Print (in History/metahistcontainer_mod.F90)'\n\n    !=======================================================================\n    ! Print information about each METAHISTORY CONTAINER (aka node)\n    ! of the linked list, only if we are on the root CPU.\n    !=======================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n\n       ! Point CURRENT to the head node of the list\n       Current => List\n\n       ! As long as the current node is valid\n       DO WHILE( ASSOCIATED( Current ) )\n\n          ! Print info about the history container corresponding to this node\n          CALL HistContainer_Print( Input_Opt, Current%Container, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Could not print info for \"Current%Container\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Point to the next node for the next iteration\n          Current => Current%Next\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n    ENDIF\n\n  END SUBROUTINE MetaHistContainer_Print\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistContainer_Destroy\n!\n! !DESCRIPTION:  This method will destroy the HISTORY CONTAINER belonging to\n!  each METAHISTORY CONTAINER (aka node) of a linked list.  It will then\n!  destroy each METAHISTORY CONTAINER in the list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistContainer_Destroy( List, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistContainer_Mod, ONLY : HistContainer, HistContainer_Destroy\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistContainer), POINTER     :: List      ! List of METAHISTORY\n                                                      !  CONTAINERS\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,                 INTENT(OUT) :: RC        ! Success or failure?\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)                :: ErrMsg,  ThisLoc\n\n    ! Objects\n    TYPE(MetaHistContainer), POINTER  :: Current, Node\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n    RC      =  GC_SUCCESS\n    Current => NULL()\n    Node    => NULL()\n    ErrMsg  =  ''\n    ThisLoc =  &\n      ' -> at MetaHistContainer_Destroy (in History/metahistcontainer_mod.F90)'\n\n    !=======================================================================\n    ! Destroy each METAHISTORY CONTAINER in the linked list\n    !=======================================================================\n\n    ! Point to the first METAHISTORY CONTAINER (aka node) in the list\n    Node => List\n\n    ! As long as it doesn't point to NULL()\n    DO WHILE ( ASSOCIATED( Node ) )\n\n       ! Set the CURRENT pointer to the current METAHISTORY CONTAINER\n       Current => Node\n\n       ! Destroy the HISTORY CONTAINER contained within\n       ! this METAHISTORY CONTAINER\n       CALL HistContainer_Destroy( Current%Container, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = &\n            'Cannot deallocate the \"Current%Container\" HISTORY CONTAINER!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Point to the next METAHISTORY CONTAINER for the next iteration\n       Node => Current%Next\n\n       ! And destroy the current METAHISTORY CONTAINER in the list\n       DEALLOCATE( Current, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot deallocate the \"Current\" METAHISTORY CONTAINER!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n    ! Free pointers\n    Current => NULL()\n    Node    => NULL()\n\n  END SUBROUTINE MetaHistContainer_Destroy\n!EOC\nEND MODULE MetaHistContainer_Mod\n\n"
  },
  {
    "path": "History/metahistitem_mod.F90",
    "content": "!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: metahistitem_mod.F90\n!\n! !DESCRIPTION: Contains types and methods to create a METAHISTORY ITEM\n!  object, which is a container for a HISTORY ITEM.  In other words,\n!  a METAHISTORY ITEM represents a single node of a linked list that is\n!  used to contain HISTORY ITEMS.\n!\\\\\n!\\\\\n!  In practice, we can think of a METAHISTORY ITEM as a list of HISTORY ITEMS\n!  that will be archived to netCDF output at a specified frequency (e.g.\n!  instantaneous, daily, hourly, etc.)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE MetaHistItem_Mod\n!\n! !USES:\n!\n  USE HistItem_Mod, ONLY : HistItem\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: MetaHistItem_Create\n  PRIVATE :: MetaHistItem_Insert\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: MetaHistItem_AddNew\n  PUBLIC  :: MetaHistItem_Count\n  PUBLIC  :: MetaHistItem_Destroy\n  PUBLIC  :: MetaHistItem_Print\n!\n! !PUBLIC TYPES:\n!\n  !=========================================================================\n  ! This is the derived type for a METAHISTORY ITEM object, which represents\n  ! a SINGLE NODE OF A LINKED LIST consisting of HISTORY ITEMS.\n  !\n  ! As such, the METAHISTORY ITEM does not contain any data itself,\n  ! but is a wrapper for a single HISTORY ITEM object, plus a pointer\n  ! to another METAHISTORY ITEM (i.e. the next node in the list).\n  !=========================================================================\n  TYPE, PUBLIC ::  MetaHistItem\n\n     ! Pointer to the next METAHISTORY ITEM object\n     ! (i.e. the next node in the linked list)\n     TYPE(MetaHistItem), POINTER :: Next => NULL()\n\n     ! The HISTORY ITEM object (which represents a diagnostic\n     ! quantity that will be archived to netCDF file format)\n     TYPE(HistItem),     POINTER :: Item => NULL()\n\n  END TYPE MetaHistItem\n!\n! !REMARKS:\n!  As described above, a METAHISTORY ITEM can be thought of as a SINGLE NODE\n!  OF A LINKED LIST INTENDED TO HOLD HISTORY ITEMS.  It looks like this:\n!\n!      +-------------------------+   +-------------------------+\n!      | METAHISTORY ITEM n      |   | METAHISTORY ITEM n+1    |\n!      | (aka NODE n of list)    |   | (aka NODE n+1 of list)  |\n!      |                         |   |                         |\n!      | Contains:               |   | Contains:               |\n!      |                         |   |                         |\n!      |   HISTORY ITEM n        |   |   HISTORY ITEM n+1      |\n!      |                         |   |                         |\n! =======> Pointer to next    =========> Pointer to next    ========> etc ...\n!      |    METAHISTORY ITEM     |   |    METAHISTORY ITEM     |\n!      +-------------------------+   +-------------------------+\n!\n!  Linked list routines taken from original code (linkedlist.f90)\n!  by Arjen Markus; http://flibs.sourceforge.net/linked_list.html\n\n! !REVISION HISTORY:\n!  14 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistItem_AddNew\n!\n! !DESCRIPTION: Wrapper for methods MetaHistItem\\_Create and\n!  MetaHistItem\\_Insert.  Will create a METAHISTORY ITEM (containing a\n!  HISTORY ITEM) and (1) set it as the head node of a new linked list, or\n!  (2) append it to an existing linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistItem_AddNew( Input_Opt, Node, Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistItem_Mod,  ONLY : HistItem\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(HistItem),     POINTER     :: Item       ! HISTORY ITEM object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem), POINTER     :: Node       ! METAHISTORY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC         ! Success or failure\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC     = GC_SUCCESS\n\n    ! For error output\n    ErrMsg  = ''\n    ThisLoc = ' -> at MetaHistItem_Add (in History/metahistitem_mod.F90)'\n\n    !=======================================================================\n    ! Test if the METAHISTORY ITEM (aka \"Node\") has been allocated memory\n    ! and is therefore part of an existing linked list\n    !=======================================================================\n    IF ( .not. ASSOCIATED( Node ) ) THEN\n\n       !--------------------------------------------------------------------\n       ! If not, then create a new METAHISTORY ITEM (named \"Node\"),\n       ! and set it at the head of a new linked list\n       !--------------------------------------------------------------------\n       CALL MetaHistItem_Create( Input_Opt, Node, Item, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not create \"Node\" as the head node of a list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ELSE\n\n       !--------------------------------------------------------------------\n       ! Otherwise, create a new METAHISTORY ITEM (named \"Node\"),\n       ! and append it to the list, immediately following the head node\n       !--------------------------------------------------------------------\n       CALL MetaHistItem_Insert( Input_Opt, Node, Item, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not insert \"Node\" into an existing linked list!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDIF\n\n  END SUBROUTINE MetaHistItem_AddNew\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistItem_Create\n!\n! !DESCRIPTION: This method creates a new METAHISTORY ITEM (to contain the\n!  supplied HISTORY ITEM) and sets it as the head node of a linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistItem_Create( Input_Opt, Node, Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistItem_Mod,  ONLY : HistItem\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(HistItem),     POINTER     :: Item       ! HISTORY ITEM object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem), POINTER     :: Node       ! METAHISTORY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC         ! Success or failure\n!\n! !REMARKS:\n!  This method is not intended to be called directly, but is rather\n!  wrapped by the MetaHistItem_AddNew method.\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n\n    ! For error output\n    ErrMsg  = ''\n    ThisLoc = ' -> at MetaHistItem_Create (in History/metahistitem_mod.F90)'\n\n    !=======================================================================\n    ! Initialize the METAHISTORY ITEM itself\n    !=======================================================================\n\n    ! Allocate memory\n    ALLOCATE( Node, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Node\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Nullify the pointer to the next node (it doesn't exist yet)\n    Node%Next => NULL()\n\n    !=======================================================================\n    ! Initialize the field that will store the HISTORY ITEM\n    !=======================================================================\n\n    ! Because this is the first METAHISTORY ITEM that is being created,\n    ! we can consider this to be the head node of a linked list.\n    IF ( .not. ASSOCIATED( Node%Item ) ) THEN\n       ALLOCATE( Node%Item, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Could not allocate \"Node%Item\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Attach the given HISTORY ITEM to the METAHISTORY ITEM\n    ! (i.e. place it into the head node of a linked list)\n    Node%Item = Item\n\n  END SUBROUTINE MetaHistItem_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistItem_Insert\n!\n! !DESCRIPTION: Creates a new METAHISTORY ITEM (to contain the supplied\n!  HISTORY ITEM), and pops it into an existing linked list, immediately\n!  following the head node.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistItem_Insert( Input_Opt, Node, Item, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistItem_Mod,  ONLY : HistItem\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt  ! Input Options object\n    TYPE(HistItem),     POINTER     :: Item      ! HISTORY ITEM object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem), POINTER     :: Node      ! METAHISTORY ITEM object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC        ! Success or failure\n!\n! !REMARKS:\n!  This method is not intended to be called directly, but is rather\n!  wrapped by the MetaHistItem_AddNew method.\n!\n! !REVISION HISTORY:\n!  13 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)          :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(MetaHistItem), POINTER :: Head\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n\n    ! For error output\n    ErrMsg  = ''\n    ThisLoc = ' -> at MetaHistItem_Insert (in History/metahistitem_mod.F90)'\n\n    !=======================================================================\n    ! Initialize a METAHISTORY ITEM named \"Head\", which will become the\n    ! head of the existing list.  \"Head\" will contain a new HISTORY ITEM.\n    !=======================================================================\n\n    ! Allocate the \"Head\" object\n    ALLOCATE( Head, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Head\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Allocate the \"Head%Item\" field, which will hold the HISTORY ITEM\n    ALLOCATE( Head%Item, STAT=RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Could not allocate \"Head%Item\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !=======================================================================\n    ! Insert \"Head\" at the start of the existing linked list\n    !=======================================================================\n\n    ! Save the HISTORY ITEM argument in the \"Item\" field of \"Head\"\n    Head%Item  =  Item\n\n    ! The \"Next\" field of \"Head\" points to the current head of the list\n    Head%Next  => Node\n\n    ! Set \"Head\" as the new head of the linked list\n    Node       => Head\n\n  END SUBROUTINE MetaHistItem_Insert\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistItem_Count\n!\n! !DESCRIPTION: Counts the number of METAHISTORY ITEMS stored in a linked\n!  list.  By extension, this is also the number of HISTORY ITEMS stored in\n!  the list, because each METAHISTORY ITEM contains only one HISTORY ITEM.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION MetaHistItem_Count( List ) RESULT( nNodes )\n\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(MetaHistItem), POINTER :: List    ! Linked list of METAHISTORY ITEMS\n!\n! !RETURN VALUE:\n!\n    INTEGER                     :: nNodes  ! Number of METAHISTORY ITEMS\n!\n! !REVISION HISTORY:\n!  14 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(MetaHistItem), POINTER  :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Initialize\n    nNodes  =  0\n    Current => NULL()\n\n    !=======================================================================\n    ! Count the number of METAHISTORY ITEMS in the list\n    !=======================================================================\n\n    ! If the list does not point to NULL() ...\n    IF ( ASSOCIATED( List ) ) THEN\n\n       ! ... then there is at least 1 node (the head node)\n       nNodes  =  1\n\n       ! Set the CURRENT pointer to the head node\n       Current => List\n\n       ! As long as the following node doesn't point to NULL()\n       DO WHILE ( ASSOCIATED( Current%Next ) )\n\n          ! Set CURRENT to the following node\n          Current => Current%Next\n\n          ! Increment the node count\n          nNodes  =  nNodes + 1\n\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n\n    ENDIF\n\n  END FUNCTION MetaHistItem_Count\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistItem_Print\n!\n! !DESCRIPTION: This method will print information about the HISTORY ITEM\n!  belonging to each METAHISTORY ITEM (aka node) of a linked list.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistItem_Print( Input_Opt, List, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistItem_Mod,  ONLY : HistItem, HistItem_Print\n    USE Input_Opt_Mod, ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput),     INTENT(IN)  :: Input_Opt  ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem), POINTER     :: List        ! List of history items\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC          ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  14 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)          :: ErrMsg, ThisLoc\n\n    ! Objects\n    TYPE(MetaHistitem), POINTER :: Current\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC      =  GC_SUCCESS\n\n    ! Free pointers\n    Current => NULL()\n\n    ! For error output\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at MetaHistItem_Print (in History/metahistitem_mod.F90)'\n\n    !=======================================================================\n    ! Print information about each METAHISTORY ITEM (aka node)\n    ! of the linked list, only if we are on the root CPU\n    !=======================================================================\n    IF ( Input_Opt%amIRoot ) THEN\n\n       ! Point CURRENT to the head node of the list\n       Current => List\n\n       ! As long as the current node is valid\n       DO WHILE( ASSOCIATED( Current ) )\n\n          ! Print info about the history item corresponding to this node\n          CALL HistItem_Print( Input_Opt, Current%Item, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Could not print info for \"Current%Item\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Point to the next node for the next iteration\n          Current => Current%Next\n       ENDDO\n\n       ! Free pointers\n       Current => NULL()\n    ENDIF\n\n  END SUBROUTINE MetaHistItem_Print\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetaHistItem_Destroy\n!\n! !DESCRIPTION:  This method will destroy the HISTORY ITEM belonging to\n!  each METAHISTORY ITEM (aka node) of a linked list.  It will then destroy\n!  each METAHISTORY ITEM itself.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetaHistItem_Destroy( List, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HistItem_Mod,  ONLY : HistItem, HistItem_Destroy\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(MetaHistItem), POINTER     :: List       ! List of METAHISTORY ITEMS\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  14 Jun 2017 - R. Yantosca - Initial version, based on code by Arjen Markus\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Strings\n    CHARACTER(LEN=255)           :: ErrMsg,  ThisLoc\n\n    ! Objects\n    TYPE(MetaHistItem), POINTER  :: Current, Node\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume success\n    RC      = GC_SUCCESS\n\n    ! Free pointers\n    Current => NULL()\n    Node    => NULL()\n\n    ! For error output\n    ErrMsg  =  ''\n    ThisLoc =  ' -> at MetaHistItem_Destroy (in History/metahistitem_mod.F90)'\n\n    !=======================================================================\n    ! Destroy each METAHISTORY ITEM in the linked list\n    !=======================================================================\n\n    ! Point to the first METAHISTORY ITEM (aka node) in the list\n    Node => List\n\n    ! As long as it doesn't point to NULL()\n    DO WHILE ( ASSOCIATED( Node ) )\n\n       ! Set the CURRENT pointer to the current METAHISTORY ITEM\n       Current => Node\n\n       ! Destroy the HISTORY ITEM contained within this METAHISTORY ITEM\n       CALL HistItem_Destroy( Current%Item, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot deallocate the \"Current%Item\" HISTORY ITEM!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n       ! Point to the next METAHISTORY ITEM for the next iteration\n       Node => Current%Next\n\n       ! And destroy the current METAHISTORY ITEM in the list\n       DEALLOCATE( Current, STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Cannot deallocate the \"Current\" META HISTORY ITEM!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n\n    ENDDO\n\n    ! Free pointers\n    Current => NULL()\n    Node    => NULL()\n\n  END SUBROUTINE MetaHistItem_Destroy\n!EOC\nEND MODULE MetaHistItem_Mod\n\n"
  },
  {
    "path": "Interfaces/GCClassic/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\ngc_classic_version.H"
  },
  {
    "path": "Interfaces/GCClassic/CMakeLists.txt",
    "content": "# Interfaces/GCClassic/CMakeLists.txt\n\n#-----------------------------------------------------------------------------\n# Copy the CMake project version to the gc_classic_version.H file\n#-----------------------------------------------------------------------------\nmessage(\"Creating ${CMAKE_CURRENT_SOURCE_DIR}/gc_classic_version.H\")\nconfigure_file(${CMAKE_CURRENT_SOURCE_DIR}/gc_classic_version.H.in\n  ${CMAKE_CURRENT_SOURCE_DIR}/gc_classic_version.H @ONLY)\n\n#-----------------------------------------------------------------------------\n# Define libGCClassic.a and specify its dependencies\n#-----------------------------------------------------------------------------\nadd_library(GCClassic\n  STATIC EXCLUDE_FROM_ALL\n  main.F90\n)\ntarget_link_libraries(GCClassic\n  PUBLIC\n  GeosCore\n)\n"
  },
  {
    "path": "Interfaces/GCClassic/gc_classic_version.H.in",
    "content": "  ! Get the GEOS-Chem Classic version number from CMake\n  CHARACTER(LEN=30) :: GC_CLASSIC_VERSION\n  GC_CLASSIC_VERSION = '@PROJECT_VERSION@'\n"
  },
  {
    "path": "Interfaces/GCClassic/main.F90",
    "content": "!BOC\n#if defined( ESMF_ ) || defined( EXTERNAL_GRID ) || defined( MODEL_ )\n!----------------------------------------------------------------------------\n!         %%%%%%% GEOS-Chem HP (with ESMF & MPI) %%%%%%%\n!        %%%% GEOS-Chem Coupled with External Models %%%%\n!\n! When GEOS-Chem is connected to an external model or in GCHP,\n! the GEOS-Chem classic main.F90 should not be built.\n!----------------------------------------------------------------------------\n#else\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: main.F90\n!\n! !DESCRIPTION: Program GEOS\\_CHEM is the main level driver program for the\n!  GEOS-Chem model of atmospheric chemistry and composition.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nPROGRAM GEOS_Chem\n!\n! !USES:\n!\n  !--------------------------------------------------------------------------\n  ! Parameters to define floating-point variables\n  !--------------------------------------------------------------------------\n  USE PRECISION_MOD,   ONLY : fpp => fp  ! Flexible precision\n  USE PRECISION_MOD,   ONLY : f4         ! 4-byte floating point\n  USE PRECISION_MOD,   ONLY : f8         ! 8-byte floating point\n\n  !--------------------------------------------------------------------------\n  ! Basic GEOS-Chem modules\n  !--------------------------------------------------------------------------\n  USE DiagList_Mod          ! Derived type for diagnostics list\n  USE TaggedDiagList_Mod    ! Derived type for tagged diagnostics list\n  USE Diagnostics_Mod       ! Set select netcdf diagnostics\n  USE ErrCode_Mod           ! Error codes for success or failure\n  USE ERROR_MOD             ! For error checking\n  USE FILE_MOD              ! For file I/O\n  USE GC_Environment_Mod    ! For allocating derived type objects\n  USE GC_GRID_MOD           ! For defining the lons/lats/areas of the grid\n  USE Input_Opt_Mod         ! Derived type for Input Options\n  USE INPUT_MOD             ! For reading settings from geoschem_config.yml\n  USE OLSON_LANDMAP_MOD     ! Computes IREG, ILAND, IUSE from Olson map\n  USE PhysConstants         ! Physical constants\n  USE PRESSURE_MOD          ! For computing pressure at grid boxes\n  USE Print_Mod             ! For verbose printing\n  USE State_Chm_Mod         ! Derived type for Chemistry State object\n  USE State_Diag_Mod        ! Derived type for Diagnostics State object\n  USE State_Grid_Mod        ! Derived type for Grid State object\n  USE State_Met_Mod         ! Derived type for Meteorology State object\n  USE TIME_MOD              ! For computing date & time\n  USE TIMERS_MOD            ! For GEOS-Chem timers (optional)\n  USE UnitConv_Mod          ! For species conc unit conversions\n\n  !--------------------------------------------------------------------------\n  ! GEOS-Chem chemistry modules\n  !--------------------------------------------------------------------------\n  USE CARBON_MOD            ! For SOA simulation\n  USE CHEMISTRY_MOD         ! Driver routines for chemistry\n  USE LINEAR_CHEM_MOD       ! For linearized chemistry above chem grid\n  USE MERCURY_MOD           ! For offline Hg simulation (driver)\n  USE OCEAN_MERCURY_MOD     ! For offline Hg simulation (ocean model)\n  USE Photolysis_Mod,  ONLY : Init_Photolysis\n  USE TOMS_MOD              ! For overhead O3 columns (for FAST-J)\n  USE UCX_MOD               ! For unified trop-strat chemistry\n  USE UVALBEDO_MOD          ! For reading UV albedoes (for FAST-J)\n  USE SET_GLOBAL_CH4_MOD    ! For setting global CH4 concentrations\n\n  !--------------------------------------------------------------------------\n  ! GEOS-Chem deposition modules\n  !--------------------------------------------------------------------------\n  USE DEPO_MERCURY_MOD      ! Deposition for offline Hg simulation\n  USE DRYDEP_MOD            ! For dry deposition\n  USE WETSCAV_MOD           ! For wet deposition (rainout & washout)\n\n  !--------------------------------------------------------------------------\n  ! GEOS-Chem diagnostics modules\n  !--------------------------------------------------------------------------\n  USE PLANEFLIGHT_MOD       ! For planeflight track diag\n  USE HISTORY_MOD           ! Updated netCDF diagnostics\n  USE OBSPACK_MOD           ! For ObsPack diagnostics\n  USE GOSAT_CH4_MOD         ! For GOSAT observation operator\n  USE AIRS_CH4_MOD          ! For AIRS observation operator\n  USE TCCON_CH4_MOD         ! For TCCON observation operator\n  USE HCO_Interface_GC_Mod  ! Writes out HEMCO diagnostics (C. Keller)\n  USE HCO_Utilities_GC_Mod  ! Utility routines for GC-HEMCO interface\n\n  !--------------------------------------------------------------------------\n  ! GEOS-Chem convection modules\n  !--------------------------------------------------------------------------\n  USE CONVECTION_MOD        ! For deep cloud convection\n  USE LINOZ_MOD             ! For LINOX linear strat chemistry\n  USE PBL_MIX_MOD           ! To compute PBL height\n  USE TRANSPORT_MOD         ! Driver routines for advection\n  USE VDIFF_MOD             ! For non-local PBL mixing (J. Lin)\n\n  !--------------------------------------------------------------------------\n  ! GEOS-Chem emissions modules\n  !--------------------------------------------------------------------------\n  USE EMISSIONS_MOD         ! For interfacing with HEMCO emissions\n  USE MIXING_MOD            ! performs tracer mixing\n  USE MODIS_LAI_MOD         ! For MODIS leaf area indices (replacement)\n\n  !--------------------------------------------------------------------------\n  ! GEOS-Chem meteorology field modules\n  !--------------------------------------------------------------------------\n  USE Calc_Met_Mod          ! Met field calculations\n  USE FLEXGRID_READ_MOD     ! For reading FLEXGRID data\n  USE Set_Boundary_Conditions_Mod ! For setting nested-grid boundary conditions\n#ifdef EXCHANGE\n  USE EXCHANGE_MOD          ! For two-way coupled simulations\n#endif\n\n#ifdef RRTMG\n  !--------------------------------------------------------------------------\n  ! Radiation modules (RRTMG)\n  !--------------------------------------------------------------------------\n  USE RRTMG_RAD_TRANSFER_MOD, ONLY : Do_RRTMG_Rad_Transfer\n  USE RRTMG_RAD_TRANSFER_MOD, ONLY : Init_RRTMG_Rad_Transfer\n  USE RRTMG_RAD_TRANSFER_MOD, ONLY : Set_SpecMask\n  USE RRTMG_LW_Init,          ONLY : RRTMG_LW_Ini\n  USE RRTMG_SW_Init,          ONLY : RRTMG_SW_Ini\n#endif\n\n#ifdef APM\n  !--------------------------------------------------------------------------\n  ! For APM aerosol microphysics simulation,\n  ! see apm_driv_mod.f for more information\n  !--------------------------------------------------------------------------\n  USE APM_INIT_MOD,      ONLY : APM_NTRACERS\n  USE APM_INIT_MOD,      ONLY : APM_INIT\n  USE APM_INIT_MOD,      ONLY : CLEANUP_APMARRAYS\n  USE APM_DRIV_MOD,      ONLY : INIT_APM3D\n  USE APM_DRIV_MOD,      ONLY : CLEANUP_APM3D\n#endif\n\n  IMPLICIT NONE\n!\n! !REMARKS:\n!                                                                             .\n!     GGGGGG  EEEEEEE  OOOOO  SSSSSSS       CCCCCC H     H EEEEEEE M     M\n!    G        E       O     O S            C       H     H E       M M M M\n!    G   GGG  EEEEEE  O     O SSSSSSS      C       HHHHHHH EEEEEE  M  M  M\n!    G     G  E       O     O       S      C       H     H E       M     M\n!     GGGGGG  EEEEEEE  OOOOO  SSSSSSS       CCCCCC H     H EEEEEEE M     M\n!                                                                             .\n!                                                                             .\n!                 (formerly known as the Harvard-GEOS model)\n!           for 4 x 5, 2 x 2.5 global grids and hi-res nested grids\n!                                                                             .\n!       Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)\n!\n!                                                                             .\n!  See the GEOS-Chem Web Site:\n!                                                                             .\n!     http://acmg.seas.harvard.edu/geos/\n!                                                                             .\n!  and the GEOS-Chem User's Guide:\n!                                                                             .\n!     http://acmg.seas.harvard.edu/geos/doc/man/\n!                                                                             .\n!  and the GEOS-Chem wiki:\n!                                                                             .\n!     http://wiki.seas.harvard.edu/geos-chem/\n!                                                                             .\n!  for the most up-to-date GEOS-Chem documentation on the following topics:\n!                                                                             .\n!     - installation, compilation, and execution\n!     - coding practice and style\n!     - input files and met field data files\n!     - horizontal and vertical resolution\n!     - modification history\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  !-----------------------------\n  ! Scalars\n  !-----------------------------\n\n  ! Logicals\n  LOGICAL                  :: TimeForEmis\n  LOGICAL                  :: notDryRun\n  LOGICAL                  :: VerboseAndRoot\n\n  ! Integers\n  INTEGER                  :: I,             IOS,         J\n  INTEGER                  :: K,             L,           N\n  INTEGER                  :: JDAY,          N_DYN\n  INTEGER                  :: NNN,           N_DYN_STEPS, NSECb\n  INTEGER                  :: N_STEP,        YEAR,        MONTH\n  INTEGER                  :: DAY,           DAY_OF_YEAR\n  INTEGER                  :: NYMD,          NYMDb,       NHMS\n  INTEGER                  :: ELAPSED_SEC,   NHMSb,       RC\n  INTEGER                  :: ELAPSED_TODAY, HOUR,        MINUTE,  SECOND\n  INTEGER                  :: id_H2O,        id_CH4,      id_CLOCK\n  INTEGER                  :: previous_units\n\n  ! Reals\n  REAL(f8)                 :: TAU,           TAUb\n\n  ! Strings\n  CHARACTER(LEN=255)       :: ThisLoc,       ZTYPE\n  CHARACTER(LEN=255)       :: historyConfigFile\n  CHARACTER(LEN=512)       :: ErrMsg\n  CHARACTER(LEN=512)       :: Instr\n  CHARACTER(LEN=255)       :: Argv\n\n#ifdef RRTMG\n  LOGICAL, SAVE            :: FIRST_RT = .TRUE.\n#endif\n\n  !-----------------------------\n  ! Derived type objects\n  !-----------------------------\n  TYPE(OptInput)           :: Input_Opt       ! Input Options object\n  TYPE(ChmState)           :: State_Chm       ! Chemistry State object\n  TYPE(DgnState)           :: State_Diag      ! Diagnostics State object\n  TYPE(GrdState)           :: State_Grid      ! Grid State object\n  TYPE(MetState)           :: State_Met       ! Meteorology State object\n  TYPE(DgnList )           :: Diag_List       ! Diagnostics list object\n  TYPE(TaggedDgnList )     :: TaggedDiag_List ! Tagged diagnostics list object\n!\n! !DEFINED PARAMETERS:\n!\n  ! When connecting G-C to an external GCM, we need to only write\n  ! to stdout if we are on the root CPU.  Otherwise this will slow\n  ! down the code.  This is why we introduced the am_I_Root logical\n  ! variable.\n  !\n  ! However, if we are using the \"traditional\" G-C, then we don't\n  ! need to restrict I/O to the root CPU.  (This is because each\n  ! GEOS-Chem simulation starts out on a single CPU, with other\n  ! CPUs joining only within parallel DO loops).  Therefore, we\n  ! can just set am_I_Root = .true. here and then have it propagate\n  ! down to all of the lower-level routines.  The main.F routine\n  ! is not called when connecting G-C to an external GCM.\n  ! (mlong, bmy, 7/30/12)\n  LOGICAL, PARAMETER       :: am_I_Root = .TRUE.\n\n#ifdef RRTMG\n  ! For stratospheric adjustment\n  REAL(f8), ALLOCATABLE          :: DT_3D(:,:,:)\n  REAL(f8), ALLOCATABLE          :: HR_3D(:,:,:)\n#endif\n\n  !==========================================================================\n  ! GEOS-CHEM starts here!\n  !==========================================================================\n\n#ifdef TOMAS\n  !(sfarina, 6/19/2013) It may seem strange, but this welcome message\n  !                     fixes an issue where geoschem crashes with a\n  !                     sigsegv immediately after starting.\n  !                     This happens on ace-net's glooscap cluster with\n  !                     ifort (IFORT) 11.1 20101201\n  !                     this issue does not appear when running inside\n  !                     a debugger, and is probably related to\n  !                     some initialization garbage in memory\n  !                     when using -O2 optimization\n  !(bmy, 1/27/2014)   - Need to \"CALL FLUSH(6).  FLUSH needs\n  !                     an argument.  Unit 6 is Unix stdout.\n  PRINT*, '%%%%% USING TOMAS MICROPHYSICS PACKAGE %%%%%'\n  CALL FLUSH(6)\n#endif\n\n  ! Assume a successful return until otherwise\n  RC      = GC_SUCCESS\n\n  ! For error trapping\n  ErrMsg  = ''\n  ThisLoc = ' -> at GEOS-Chem (in GeosCore/main.F90)'\n\n  ! Display model information\n  CALL Display_Model_Info()\n\n  !==========================================================================\n  !                ***** I N I T I A L I Z A T I O N *****\n  !==========================================================================\n\n  !--------------------------------------------------------------------------\n  ! Read the user-defined options for the simulation, etc.\n  !--------------------------------------------------------------------------\n\n  ! Initialize fields of the Input Options object (including amIRoot)\n  CALL Set_Input_Opt( am_I_Root, Input_Opt, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered within call to \"Set_Input_Opt\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Initialize fields of the Grid State object\n  CALL Init_State_Grid( Input_Opt, State_Grid, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered within call to \"Set_Grid_State\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Read GEOS-Chem input file at very beginning of simulation\n  CALL Read_Input_File( Input_Opt, State_Grid, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Read_Input_File\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! Initialize GEOS-Chem timers\n  !--------------------------------------------------------------------------\n  IF ( Input_Opt%useTimers ) THEN\n\n     ! Call timer initilization\n     CALL Timer_Setup( 1 )\n\n     ! Add timers for various operations\n     CALL Timer_Add( \"GEOS-Chem\",                    RC )\n     CALL Timer_Add( \"HEMCO\",                        RC )\n     CALL Timer_Add( \"All chemistry\",                RC )\n     CALL Timer_Add( \"=> Gas-phase chem\",            RC )\n     CALL Timer_Add( \"=> Photolysis\",                RC )\n     CALL Timer_Add( \"=> Aerosol chem\",              RC )\n     CALL Timer_Add( \"=> Linearized chem\",           RC )\n     CALL Timer_Add( \"Transport\",                    RC )\n     CALL Timer_Add( \"Convection\",                   RC )\n     CALL Timer_Add( \"Boundary layer mixing\",        RC )\n     CALL Timer_Add( \"Dry deposition\",               RC )\n     CALL Timer_Add( \"Wet deposition\",               RC )\n#ifdef RRTMG\n     CALL Timer_Add( \"RRTMG\",                        RC )\n#endif\n     CALL Timer_Add( \"Diagnostics\",                  RC )\n     CALL Timer_Add( \"Unit conversions\",             RC )\n\n     ! Start running the main and initialization timer\n     CALL Timer_Start( \"GEOS-Chem\",                  RC )\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! Prepare the GEOS-Chem \"dry run\" option\n  ! If in a \"dry-run\" mode, GEOS-Chem will simply check whether files\n  ! are present (and possibly in the correct format) and go through\n  ! time-steps to check met fields and other IO issues.\n  ! No actual \"compute\" is performed.\n  !\n  ! The \"dry-run\" option is initialized using the command line extra\n  ! argument ./gcclassic --dry-run\n  !\n  ! A log file can be specified with --log FILENAME.\n  ! If no log file is specified, the default logfile will be\n  ! \"GEOSChem.DryRun.log\".\n  !\n  ! This option is currently only supported in GEOS-Chem Classic.\n  !\n  ! Additionally, this flag must be set after reading input file, or\n  ! its value will be overwritten by READ_INPUT_FILE.\n  ! (hplin, 11/1/19)\n  !--------------------------------------------------------------------------\n  CALL Init_Dry_Run( Input_Opt, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Init_Dry_Run\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Define a local convenience variable for negating Input_Opt%DryRun\n  notDryRun = ( .not. Input_Opt%DryRun )\n\n  !--------------------------------------------------------------------------\n  ! Continue initializzation\n  !--------------------------------------------------------------------------\n\n  ! Make sure all directories are valid\n  CALL Validate_Directories( Input_Opt, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in  \"Validate_Directories\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Initialize GEOS-Chem horizontal grid structure\n  CALL GC_Init_Grid( Input_Opt, State_Grid, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error in \"GC_Init_Grid\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Call the routine GC_Allocate_All (located in module file\n  ! GeosCore/gc_environment_mod.F90) to allocate all lat/lon\n  ! allocatable arrays used by GEOS-Chem.\n  CALL GC_Allocate_All( Input_Opt, State_Grid, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"GC_Allocate_All\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Store shadow copies of am_I_Root, Input_Opt in error_mod.F\n  CALL Init_Error(Input_Opt, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Init_Error\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Turn off verbose output for the dry-run simulation\n  VerboseAndRoot = ( Input_Opt%Verbose .and. notDryRun )\n\n  ! Debug output\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a READ_INPUT_FILE' )\n\n  !--------------------------------------------------------------------------\n  ! %%%% REPLICATING GCHP FUNCTIONALITY IN EXISTING GEOS-CHEM %%%%\n  !\n  ! Initialize the diagnostic list object which contains the\n  ! unique entires in the history config file. Note that this is\n  ! done in GCHP Set_Services and therefore must be done prior to\n  ! initialization of the state objects. Also note that the diag_list\n  ! obj may be stored in the HistoryConfig object in GCHP and we may\n  ! want to replicate that behavior in GCC in the future.\n  ! (ewl, 9/26/17)\n  !--------------------------------------------------------------------------\n  IF ( notDryRun ) THEN\n     IF ( Input_Opt%useTimers ) THEN\n        CALL Timer_Start( \"Diagnostics\", RC )\n     ENDIF\n\n     ! Initialize the Diag_List (list of all diagnostics)\n     historyConfigFile = 'HISTORY.rc'\n     CALL Init_DiagList( Input_Opt%amIroot, historyConfigFile, Diag_List, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Init_DiagList\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n\n     ! Initialize the TaggedDiag_List (list of wildcards/tags per diagnostic)\n     CALL Init_TaggedDiagList( Input_Opt%amIroot, Diag_List,  &\n                               TaggedDiag_List,   RC         )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Init_TaggedDiagList\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n\n     IF ( VerboseAndRoot ) THEN\n        CALL Print_DiagList( Input_Opt%amIRoot, Diag_List, RC )\n        CALL Print_TaggedDiagList( Input_Opt%amIRoot, TaggedDiag_List, RC )\n     ENDIF\n\n     IF ( Input_Opt%useTimers ) THEN\n        CALL Timer_End( \"Diagnostics\", RC )\n     ENDIF\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! %%%% REPLICATING GCHP FUNCTIONALITY IN EXISTING GEOS-CHEM %%%%\n  !\n  ! To replicate the functionality of the ESMF interface, we must\n  ! initialize the Meteorology State (i.e. State_Met) and the\n  ! Chemistry State (i.e. State_Chm) objects.  These objects hold\n  ! several individual data fields that need to be passed as\n  ! inputs to the chemistry routines.\n  !\n  ! The Meteorology State has replaced all of the individual\n  ! met field arrays contained in module dao_mod.F. Likewise,\n  ! the Chemistry State has replaced the STT tracer array\n  ! and CSPEC chemical species array.\n  !\n  ! The Chemistry and Meteorology State objects facilitate using\n  ! GEOS-Chem directly from the ESMF interface.  This is the main\n  ! reason we are migrating towards used of these objects instead\n  ! of the existing ALLOCATABLE module arrays. (bmy, 10/25/12)\n  !--------------------------------------------------------------------------\n\n  ! Initialize State_Met, State_Chm, and State_Diag objects\n  CALL GC_Init_StateObj( Diag_List       = Diag_List,                       &\n                         TaggedDiag_List = TaggedDiag_List,                 &\n                         Input_Opt       = Input_Opt,                       &\n                         State_Chm       = State_Chm,                       &\n                         State_Diag      = State_Diag,                      &\n                         State_Grid      = State_Grid,                      &\n                         State_Met       = State_Met,                       &\n                         RC              = RC                              )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"GC_Init_StateObj!\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! Skip these operations when in dry-run mode\n  !--------------------------------------------------------------------------\n  IF ( notDryRun ) THEN\n     ! Copy to State_Met%AREA_M2 to avoid breaking GCHP benchmarks,\n     ! which require the AREA_M2 field saved out to the StateMet\n     ! diagnostic collection for computing emission totals.\n     State_Met%Area_M2 = State_Grid%Area_M2\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! For dry-run simulations, call GC_Init_Extra, which will print\n  ! out the Olson_drydep_inputs file name and exit.\n  !\n  ! For regular simulations, initialize various module arrays etc.\n  ! This removes the init calls from the run-stage, which cannot\n  ! happen when connecting GEOS-Chem to external ESMs.\n  !--------------------------------------------------------------------------\n  CALL GC_Init_Extra( Diag_List,  Input_Opt,  State_Chm,                     &\n                      State_Diag, State_Grid, State_Met, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"GC_Init_Extra\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! Skip these operations when in dry-run mode\n  !--------------------------------------------------------------------------\n  IF ( notDryRun ) THEN\n     ! Define advected species ID flags for use below\n     id_H2O   = Ind_('H2O',   'A')\n     id_CH4   = Ind_('CH4',   'A')\n     id_CLOCK = Ind_('CLOCK', 'A')\n\n     !-----------------------------------------------------------------------\n     ! OBSPACK Diagnostics: Get information from the species\n     ! database for all requested ObsPack output species\n     !-----------------------------------------------------------------------\n     IF ( Input_Opt%Do_ObsPack ) THEN\n        CALL ObsPack_SpeciesMap_Init( Input_Opt, State_Chm, State_Diag, RC )\n        IF ( RC /= GC_SUCCESS ) THEN\n           ErrMsg = 'Error encountered in \"ObsPack_SpeciesMap_Init\"!'\n           CALL Error_Stop( ErrMsg, ThisLoc )\n        ENDIF\n     ENDIF\n  ENDIF\n\n#ifdef RRTMG\n  !--------------------------------------------------------------------------\n  ! Initializations for the RRTMG radiative transfer model\n  !--------------------------------------------------------------------------\n  IF ( notDryRun ) THEN\n\n     ! Initialize module variables\n     CALL Init_RRTMG_Rad_Transfer( Input_Opt, State_Diag, State_Grid, RC )\n\n     ! Trap potential errors\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Init_RRTMG_Rad_Transfer\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n\n     ! Initialize RRTMG code in the GeosRad folder\n     CALL Rrtmg_Lw_Ini()\n     CALL Rrtmg_Sw_Ini()\n\n     ! Settings\n     State_Chm%RRTMG_iCld  = 0\n     State_Chm%RRTMG_iSeed = 10\n  ENDIF\n#endif\n\n#ifdef APM\n  !--------------------------------------------------------------------------\n  ! Initializations for the APM aerosol microphysics package\n  !--------------------------------------------------------------------------\n  IF ( notDryRun ) THEN\n     ! Initialize APM related variables, arrays\n     CALL APM_NTRACERS( State_Chm )\n\n     CALL APM_INIT(Input_Opt%CHEM_INPUTS_DIR)\n\n     CALL Init_APM3D( Input_Opt, State_Grid, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in routine \"Init_APM3D\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n  ENDIF\n#endif\n\n  !--------------------------------------------------------------------------\n  ! Added to read input file for Linoz O3\n  !--------------------------------------------------------------------------\n  IF ( Input_Opt%LLINOZ ) THEN\n     CALL Linoz_Read( Input_Opt, RC )\n\n     ! Trap potential errors\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Linoz_Read\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n  ENDIF\n\n  ! Define time variables for use below\n  NHMS  = GET_NHMS()\n  NHMSb = GET_NHMSb()\n  NYMD  = GET_NYMD()\n  NYMDb = GET_NYMDb()\n  TAU   = GET_TAU()\n  TAUb  = GET_TAUb()\n\n  !--------------------------------------------------------------------------\n  !         ***** H I S T O R Y   I N I T I A L I Z A T I O N *****\n  !--------------------------------------------------------------------------\n  IF ( Input_Opt%useTimers .and. notDryRun ) THEN\n     CALL Timer_Start( \"Diagnostics\", RC )\n  ENDIF\n\n  ! For now, just hardwire the input file for the History component\n  Input_Opt%HistoryInputFile = './HISTORY.rc'\n\n  ! Initialize the GEOS-Chem history component\n  ! (for dry-run, enter routine to print out HISTORY.rc status)\n  CALL History_Init( Input_Opt,  State_Met,  State_Chm,                      &\n                     State_Diag, State_Grid, RC                             )\n\n  ! Trap error\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"History_Init\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  IF ( Input_Opt%useTimers .and. notDryRun ) THEN\n     CALL Timer_End( \"Diagnostics\", RC )\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  !            ***** I N I T I A L I Z A T I O N  continued *****\n  !--------------------------------------------------------------------------\n\n  ! To enable FlexGrid, need to initialize HEMCO and run phase 1\n  ! before reading initial metfields.\n  ! (Jiawei Zhuang 2017/6)\n\n  ! Initialize HEMCO. This reads the HEMCO configuration file\n  ! and creates entries for all data files needed for emission\n  ! calculation.\n  IF ( Input_Opt%useTimers ) THEN\n     CALL Timer_Start( \"HEMCO\", RC )\n  ENDIF\n\n  CALL Emissions_Init( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n\n  ! Trap potential errors\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Emissions_Init\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n\n  ! Run HEMCO phase 0 as simplfied phase 1 to get initial met fields\n  ! and restart file fields. State_Chm%Species fields are populated in\n  ! this step and set to either values from file or background values\n  ! in mol/mol dry air.\n  TimeForEmis = .FALSE.\n  CALL Emissions_Run( Input_Opt, State_Chm,   State_Diag, State_Grid,  &\n                      State_Met, TimeForEmis, 0,          RC )\n\n  ! Trap potential errors\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Emissions_Run\", Phase 0'\n     Instr  = 'This error can indicate a missing file. Please check '// &\n              'the HEMCO log file for additional error messages! '\n     CALL Error_Stop( ErrMsg, ThisLoc, Instr )\n  ENDIF\n\n  IF ( Input_Opt%useTimers ) THEN\n     CALL Timer_End ( \"HEMCO\", RC )\n  ENDIF\n\n  ! Skip certain initializations\n  IF ( notDryRun ) THEN\n\n     ! Populate the State_Met%LandTypeFrac field with data from HEMCO\n     CALL Init_LandTypeFrac( Input_Opt, State_Grid, State_Met, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Init_LandTypeFrac\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n\n     ! Compute the Olson landmap fields of State_Met\n     ! (e.g. State_Met%IREG, State_Met%ILAND, etc.)\n     CALL Compute_Olson_Landmap( Input_Opt, State_Grid, State_Met, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Compute_Olson_Landmap\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n\n     ! Initialize PBL quantities from the initial met fields\n     CALL Compute_Pbl_Height( Input_Opt, State_Grid, State_Met, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"COMPUTE_PBL_HEIGHT\" at initialization!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n\n     ! Once the initial met fields have been read in, we need to find\n     ! the maximum PBL level for the non-local mixing algorithm.\n     CALL Max_PblHt_For_Vdiff( Input_Opt, State_Grid, State_Met, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Max_PblHt_for_Vdiff\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n  ENDIF\n\n  ! Initialize photolysis, including reading files for optical properties\n  IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &\n       Input_Opt%ITS_AN_AEROSOL_SIM .or. &\n       Input_Opt%ITS_A_MERCURY_SIM  ) THEN\n     CALL Init_Photolysis( Input_Opt,  State_Grid, State_Chm,                &\n                           State_Diag, State_Met,  RC                       )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Init_Photolysis\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n  ENDIF\n\n  !==========================================================================\n  !            *****  I N I T I A L   C O N D I T I O N S *****\n  !==========================================================================\n\n  ! Initialize the UCX routines\n  CALL INIT_UCX( Input_Opt, State_Chm, State_Diag, State_Grid )\n  IF ( VerboseAndRoot ) CALL DEBUG_MSG( '### MAIN: a INIT_UCX' )\n\n  ! Capture initial state of atmosphere for STE flux calc (ltm, 06/10/12)\n  IF ( Input_Opt%LINEAR_CHEM .and. notDryRun ) THEN\n     CALL Init_Linear_Chem( Input_Opt,  State_Chm, State_Met, State_Grid, RC )\n\n     ! Trap potential errors\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Init_Linear_Chem\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n  ENDIF\n\n  !-----------------------------------------------------------------------------\n  ! TWO-WAY NESTING OPTION\n  ! This is only invoked when compiling GEOS-Chem with COUPLE=y\n  !\n  ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! %%%%% NOTE: THIS OPTION WAS PROBABLY BROKEN WITH THE ADDITION OF HEMCO %%%%%\n  ! %%%%% (v10-01), FLEXCHEM (v11-01), AND FLEXGRID (12.5.0). BUYER BEWARE.%%%%%\n  ! %%%%%  --  Bob Yantosca (22 Jan 2018)                                  %%%%%\n  ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  !\n#if defined( EXCHANGE )\n  ! Initialize the two-way nesting.  This will only get done if you\n  ! compile GEOS-Chem with EXCHANGE=yes. (yanyy, 03/28/14)\n  CALL INIT_EXCHANGE( State_Grid )\n\n  IF ( State_Grid%NestedGrid ) THEN\n\n     ! Initialize exchange of nested boundary conditions\n     CALL EXCHANGE_NESTED_INIT()\n\n  ELSE\n\n     ! Initialize exchange of global boundary conditions\n     CALL EXCHANGE_GLOBAL_INIT()\n\n  ENDIF\n#endif\n!-----------------------------------------------------------------------------\n\n  !===========================================================================\n  !             ***** O U T E R   T I M E S T E P   L O O P  *****\n  !===========================================================================\n\n  ! Echo message before first timestep\n  IF ( notDryRun ) THEN\n     WRITE( 6, '(a)' )\n     WRITE( 6, '(a)' ) REPEAT( '*', 44 )\n     WRITE( 6, '(a)' ) '* B e g i n   T i m e   S t e p p i n g !! *'\n     WRITE( 6, '(a)' ) REPEAT( '*', 44 )\n     WRITE( 6, '(a)' )\n  ENDIF\n\n  ! NSTEP is the number of dynamic timesteps w/in the outer loop\n  ! Timesteps are now retrieved in seconds (ewl, 2/6/2018)\n  N_DYN_STEPS = 10800 / GET_TS_DYN()     ! 3hr interval\n\n  ! Start a new outer loop\n  DO\n\n    ! Compute time parameters at start of 6-h loop\n    CALL Set_Current_Time()\n\n    ! NSECb is # of seconds (measured from 00 GMT today)\n    ! at the start of this 6-hr timestepping loop.\n    ! NOTE: Assume we start at the head of each minute (i.e. SECONDS=0)\n    HOUR   = GET_HOUR()\n    HOUR   = ( HOUR / 6 ) * 6\n    MINUTE = GET_MINUTE()\n    SECOND = GET_SECOND()\n    NSECb  = ( HOUR * 3600 ) + ( MINUTE * 60 ) + SECOND\n\n    ! Get dynamic timestep in seconds\n    N_DYN  = GET_TS_DYN()\n\n    !---------------------------------------------------------------------\n    ! %%%%% HISTORY (netCDF diagnostics) %%%%%\n    !\n    ! Write HISTORY ITEMS in each diagnostic collection to disk\n    ! Appears at start of run to output instantaneous boundary conditions\n    ! at the start of the simulation with the correct time:\n    !---------------------------------------------------------------------\n    IF ( notDryRun ) THEN\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"Diagnostics\", RC )\n       ENDIF\n\n       ! Write collections (such as BoundaryConditions) that need\n       ! to be defined at the start of the run\n       CALL History_Write(                                                   &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Diag = State_Diag,                                         &\n            State_Grid = State_Grid,                                         &\n            RC         = RC                                                 )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered before timestepping in \"History_Write\"!'\n          CALL Error_Stop( ErrMsg, ThisLoc )\n       ENDIF\n\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"Diagnostics\", RC )\n       ENDIF\n    ENDIF\n\n    !========================================================================\n    !         ***** D Y N A M I C   T I M E S T E P   L O O P *****\n    !         *****    a k a   H E A R T B E A T   L O O P    *****\n    !========================================================================\n    DO N_STEP = 1, N_DYN_STEPS\n\n       ! Compute & print time quantities at start of dyn step\n       CALL Set_Current_Time()\n       IF ( notDryRun ) CALL Print_Current_Time()\n\n       ! Set time variables for dynamic loop\n       DAY_OF_YEAR   = GET_DAY_OF_YEAR()\n       DAY           = GET_DAY()\n       ELAPSED_SEC   = GET_ELAPSED_SEC()\n       MONTH         = GET_MONTH()\n       NHMS          = GET_NHMS()\n       NYMD          = GET_NYMD()\n       HOUR          = GET_HOUR()\n       MINUTE        = GET_MINUTE()\n       SECOND        = GET_SECOND()\n       TAU           = GET_TAU()\n       YEAR          = GET_YEAR()\n       ELAPSED_TODAY = ( HOUR * 3600 ) + ( MINUTE * 60 ) + SECOND\n\n       IF ( VerboseAndRoot ) THEN\n          CALL Debug_Msg( '### MAIN: a SET_CURRENT_TIME' )\n       ENDIF\n\n       ! Skip diagnostics & unit conversions for dry-run simulations\n       IF ( notDryRun ) THEN\n\n          ! If verbose, print global mass per species at start of timestep\n          IF ( VerboseAndRoot ) THEN\n             CALL Print_Species_Global_Mass_from_VVDry(                      &\n                  '',        Input_Opt,  State_Chm,                          &\n                  State_Met, State_Grid, RC                                 )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! %%%%% HISTORY (netCDF diagnostics) %%%%%\n          !\n          ! Certain diagnostics need to be zeroed out at the start\n          ! each timestep, before operations like drydep, wetdep, and\n          ! convection are executed.\n          !------------------------------------------------------------------\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          CALL Zero_Diagnostics_StartOfTimestep( Input_Opt, State_Diag, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Zero_Diagnostics_StartOfTimestep!\"'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Convert species concentrations from v/v dry to kg/kg dry so that\n          ! the State_Chm%Species(:)%Conc unit is the same for most of the\n          ! dynamic timestep as the unit used in GCHP/GEOS GEOS-Chem Run\n          ! method.  Skip this for dry-run simulations.\n          !------------------------------------------------------------------\n          CALL Convert_Spc_Units(                                            &\n               Input_Opt      = Input_Opt,                                   &\n               State_Chm      = State_Chm,                                   &\n               State_Grid     = State_Grid,                                  &\n               State_Met      = State_Met,                                   &\n               new_units      = KG_SPECIES_PER_KG_DRY_AIR,                   &\n               previous_units = previous_units,                              &\n               RC             = RC                                          )\n\n       ENDIF\n\n       !=====================================================================\n       !       ***** R U N   H E M C O   P H A S E   1 *****\n       !\n       !    Phase 1 updates the HEMCO clock and the content of the\n       !    HEMCO data list. This should be done before writing the\n       !    diagnostics organized in the HEMCO diagnostics structure,\n       !    and before using any of the HEMCO data list fields.\n       !    (ckeller, 4/1/15)\n       !=====================================================================\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"HEMCO\", RC )\n       ENDIF\n\n       ! Is it time for emissions?\n       TimeForEmis = ITS_TIME_FOR_EMIS()\n\n       ! Run HEMCO Phase 1\n       CALL Emissions_Run( Input_Opt, State_Chm,   State_Diag, State_Grid, &\n                           State_Met, TimeForEmis, 1,          RC )\n\n       ! Trap potential errors\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"Emissions_Run\"!'\n          CALL Error_Stop( ErrMsg, ThisLoc )\n       ENDIF\n\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"HEMCO\", RC )\n       ENDIF\n\n       IF ( VerboseAndRoot ) THEN\n          CALL Debug_Msg( '### MAIN: a HEMCO PHASE 1' )\n       ENDIf\n\n       !=====================================================================\n       !      ***** W R I T E   H E M C O   D I A G N O S T I C S *****\n       !=====================================================================\n       IF ( notDryRun ) THEN\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          ! Do not do actual output for dry-run\n          ! Write HEMCO diagnostics (ckeller, 4/1/15)\n          CALL HCOI_GC_WriteDiagn( Input_Opt, .FALSE., RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"HCOI_GC_WriteDiagn\" ' // &\n                      '(writing HEMCO diagnostics)!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !          ***** O B S P A C K   D I A G N O S T I C S *****\n       !=====================================================================\n       IF ( Input_Opt%Do_ObsPack .and. &\n          ( ELAPSED_TODAY == 0 ) .and. notDryRun ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          ! Initialize Obspack for the new day\n          CALL ObsPack_Init( NYMD,  NHMS, Input_Opt, State_Diag, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"ObsPack_Init\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !          ***** T E S T   F O R   E N D   O F   R U N *****\n       !=====================================================================\n       IF ( ITS_TIME_FOR_EXIT() ) GOTO 9999\n\n       !=====================================================================\n       !           ***** L E A F   A R E A   I N D I C E S *****\n       !=====================================================================\n       IF ( ITS_A_NEW_DAY() .and. notDryRun ) THEN\n\n          ! Initialize the State_Met%XLAI_NATIVE field from HEMCO\n          CALL Get_XlaiNative_from_HEMCO( Input_Opt, State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Get_XlaiNative_from_HEMCO\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! Compute State_Met%XLAI (for drydep) and State_Met%MODISLAI,\n          ! which is the average LAI per grid box (for soil NOx emissions)\n          CALL Compute_Xlai( Input_Opt, State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Compute_Xlai\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !      ***** I N T E R P O L A T E   Q U A N T I T I E S *****\n       !=====================================================================\n\n       ! Do not compute any data in dry-run mode\n       IF ( notDryRun ) THEN\n\n          ! Interpolate I-3 fields to current dynamic timestep,\n          ! based on their values at NSEC and NSEC+N_DYN\n          CALL Interp( NSECb,     ELAPSED_TODAY, N_DYN, &\n                       Input_Opt, State_Grid,    State_Met )\n\n          ! Compute updated airmass quantities at each grid box.\n          IF ( Input_Opt%LTRAN ) THEN\n             ! No need to update mixing ratios if advection is on\n             ! since floating pressure will not change until advection\n             CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n          ELSE\n             ! If advection is off then (1) update the floating pressures now\n             ! (PFLT_DRY/WET) to the time-interpolated met pressures computed\n             ! in INTERP (PSC2_DRY/WET), and (2) update species mixing ratios\n             ! for new floating pressures to conserve species mass.\n             CALL Set_Floating_Pressures( State_Grid, State_Met, RC )\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Set_Floating_Pressures\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, &\n                  RC, Update_Mixing_Ratio=.TRUE. )\n          ENDIF\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"AirQnt\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! SDE 05/28/13: Set H2O to State_Chm tracer if relevant and,\n          ! if LSETH2O=F and LACTIVEH2O=T, update specific humidity\n          ! in the stratosphere\n          !\n          ! NOTE: Specific humidity may change in SET_H2O_TRAC and\n          ! therefore this routine may call AIRQNT again to update\n          ! air quantities and tracer concentrations (ewl, 10/28/15)\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM .and. id_H2O > 0 ) THEN\n             CALL Set_H2O_Trac( Input_Opt%LSETH2O,                           &\n                                Input_Opt, State_Chm, State_Grid,            &\n                                State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Set_H2O_Trac\" #1!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             ! Only force strat once\n             IF ( Input_Opt%LSETH2O ) Input_Opt%LSETH2O = .FALSE.\n          ENDIF\n\n          ! Compute the cosine of the solar zenith angle array\n          ! State_Met%SUNCOS     = at the current time\n          ! State_Met%SUNCOSmid  = at the midpt of the chem timestep\n          CALL Get_Cosine_SZA( Input_Opt, State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Get_Cosine_SZA\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n       ENDIF\n\n       IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a INTERP, etc' )\n\n       !---------------------------------------------------------------------\n       ! %%% GET SOME NON-EMISSIONS DATA FIELDS VIA HEMCO %%%\n       !\n       ! HEMCO can track non-emission data fields for chemistry\n       ! simulations.  Put these subroutine calls after the\n       ! call to EMISSIONS_RUN, so that the HEMCO data structure\n       ! will be initialized. (bmy, 3/20/15)\n       !\n       ! HEMCO data list is now updated further above, so can\n       ! take these calls out of the emissions sequence.\n       ! (ckeller, 4/01/15)\n       !---------------------------------------------------------------------\n       IF ( Input_Opt%LCHEM .and. ITS_A_NEW_MONTH() .and. notDryRun ) THEN\n\n          ! The following only apply when photolysis is used,\n          ! that is for fullchem or aerosol simulations.\n          IF ( Input_Opt%ITS_A_FULLCHEM_SIM   .or.                           &\n               Input_Opt%ITS_AN_AEROSOL_SIM ) THEN\n\n             ! Copy UV Albedo data (for photolysis) into the\n             ! State_Met%UVALBEDO field. (bmy, 3/20/15)\n             CALL Get_UvAlbedo( Input_Opt, State_Grid, State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Get_UvAlbedo\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !                  ***** T R A N S P O R T *****\n       !=====================================================================\n       IF ( ITS_TIME_FOR_DYN() .and. notDryRun ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Transport\", RC )\n          ENDIF\n\n          !--------------------------------------------------------------------\n          ! TWO-WAY NESTING OPTION\n          ! This is only invoked when compiling GEOS-Chem with COUPLE=y\n          !\n          ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n          ! %%%%% NOTE: THIS OPTION WAS PROBABLY BROKEN WITH THE ADDITION OF\n          ! %%%%% HEMCO (v10-01), FLEXCHEM (v11-01), and FLEXGRID (12.5.0).\n          ! %%%%% BUYER BEWARE. --  Bob Yantosca (22 Jan 2018)\n          ! %%%%%\n          ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#if defined( EXCHANGE )\n          IF ( State_Grid%NestedGrid ) THEN\n\n             ! Exchange the position of POST (nested-grid simulations)\n             IF ( ITS_TIME_FOR_EXCHANGE() ) THEN\n                CALL EXCHANGE_NESTED_POST( Input_Opt, State_Chm, State_Grid, &\n                                           State_Met, RC )\n             ENDIF\n\n          ELSE\n\n             ! Exchange the position of POST (global simulations)\n             IF ( ITS_TIME_FOR_EXCHANGE() ) THEN\n                CALL EXCHANGE_GLOBAL_POST( Input_Opt, State_Chm, State_Grid, &\n                                           State_Met, RC )\n             ENDIF\n\n          ENDIF\n#endif\n          !--------------------------------------------------------------------\n\n          ! Call the appropriate version of TPCORE\n          IF ( Input_Opt%LTRAN ) THEN\n             CALL Do_Transport( Input_Opt,  State_Chm, State_Diag, &\n                                State_Grid, State_Met, RC )\n\n             ! Trap potential error\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_Transport\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: a DO_TRANSPORT' )\n             ENDIF\n          ENDIF\n\n          ! Initialize wet scavenging and wetdep fields after\n          ! the airmass quantities are reset after transport\n#ifdef TOMAS\n          ! ... TOMAS microphysics: Always call SETUP_WETSCAV ...\n          CALL Setup_WetScav( Input_Opt, State_Chm, State_Grid, &\n                              State_Met, RC )\n\n          ! Trap potential error\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Setup_WetScav\" (TOMAS)!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n#else\n          ! ... Standard GEOS-Chem: Call INIT_WETSCAV if   ...\n          ! ... convection or wet scavenging or chemistry are turned on ...\n          IF ( Input_Opt%LCONV   .or.                                        & \n               Input_Opt%LWETD   .or.                                        & \n               Input_Opt%LCHEM ) THEN\n             CALL Setup_WetScav( Input_Opt, State_Chm, State_Grid, &\n                                 State_Met, RC )\n\n             ! Trap potential error\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Setup_WetScav\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: a SETUP_WETSCAV' )\n             ENDIF\n          ENDIF\n#endif\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Transport\", RC )\n          ENDIF\n\n       ENDIF\n\n       ! Update clock tracer (skip if running in dry-run mode)\n       IF ( notDryRun .and. id_CLOCK > 0 ) THEN\n          CALL Set_Clock_Tracer( State_Chm, State_Grid )\n       ENDIF\n\n       !=====================================================================\n       !         *****  B O U N D A R Y  C O N D I T I O N S  *****\n       !=====================================================================\n       ! Applied in nested-grid simulations only.\n       !\n       ! Even if boundary conditions are only READ via HEMCO at every 3-hours,\n       ! it has to be imposed on the simulation grid at every time step start\n       ! to prevent transport in the buffer region from distorting the boundary\n       ! conditions.\n       !\n       ! Has to be after all HEMCO operations as State_Chm%BoundaryCond needs\n       ! to be populated.\n       !\n       ! Whether or not this is done after transport is the\n       ! same since other operations do not change the species concentrations\n       ! in the buffer zone, but putting it after transport allows for outputs\n       ! to better reflect the buffer zone's underlying BCs. (hplin, 7/28/23)\n       IF ( State_Grid%NestedGrid .and. notDryRun ) THEN\n          CALL Set_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, RC )\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in call to \"Set_Boundary_Conditions\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !        ***** C O M P U T E   P B L   H E I G H T  etc. *****\n       !=====================================================================\n       IF ( notDryRun ) THEN\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Boundary layer mixing\", RC )\n          ENDIF\n\n          ! Move this call from the PBL mixing routines because the PBL\n          ! height is used by drydep and some of the emissions routines.\n          ! (ckeller, 3/5/15)\n          CALL Compute_PBL_Height( Input_Opt, State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Compute_PBL_Height\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Boundary layer mixing\", RC )\n          ENDIF\n\n          IF ( VerboseAndRoot ) THEN\n             CALL Debug_Msg( '### MAIN: a COMPUTE_PBL_HEIGHT' )\n          ENDIF\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Test for emission timestep\n       ! Now always do emissions here, even for full-mixing\n       ! (ckeller, 3/5/15)\n       !\n       ! Emissions are ALWAYS done, even in dry-run mode. This is\n       ! raison d'etre for --dry-run (hplin, 11/1/19)\n       !---------------------------------------------------------------------\n       IF ( ITS_TIME_FOR_EMIS() ) THEN\n\n          !==================================================================\n          !            ***** D R Y   D E P O S I T I O N *****\n          !==================================================================\n          IF ( Input_Opt%LDRYD .and. notDryRun ) THEN\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_Start( \"Dry deposition\", RC )\n             ENDIF\n\n             ! Compute drydep velocities\n             CALL Do_Drydep( Input_Opt,  State_Chm, State_Diag, &\n                             State_Grid, State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_Drydep!\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_End ( \"Dry deposition\", RC )\n             ENDIF\n\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: a DO_DRYDEP' )\n             ENDIF\n          ENDIF\n\n          !==================================================================\n          !                ***** E M I S S I O N S *****\n          !\n          ! NOTE: For a complete description of how emissions from\n          ! HEMCO are added into GEOS-Chem (and how they are mixed\n          ! into the boundary layer), please see the wiki page:\n          !\n          ! http://wiki-geos-chem.org/Distributing_emissions_in_the_PBL\n          !==================================================================\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"HEMCO\", RC )\n          ENDIF\n\n          ! Is it time for emissions?\n          TimeForEmis = ITS_TIME_FOR_EMIS()\n\n          ! EMISSIONS_RUN will call HEMCO run phase 2. HEMCO run phase\n          ! only calculates emissions. All data has been read to disk\n          ! in phase 1 at the beginning of the time step.\n          ! (ckeller, 4/1/15)\n          CALL Emissions_Run( Input_Opt, State_Chm,   State_Diag, State_Grid, &\n                              State_Met, TimeForEmis, 2,          RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Emissions_Run\"! after drydep!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( VerboseAndRoot ) THEN\n             CALL Debug_Msg( '### MAIN: a HEMCO PHASE 2' )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"HEMCO\", RC )\n          ENDIF\n       ENDIF\n\n       ! Also prescribe methane surface concentrations throughout PBL\n       ! (currently done outside emissions)\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM   .and.                             &\n            id_CH4 > 0                     .and.                             &\n            notDryRun                     ) THEN\n\n          IF ( VerboseAndRoot ) THEN\n             CALL DEBUG_MSG( '### MAIN: Setting PBL CH4 conc')\n          ENDIF\n\n          ! Set CH4 concentrations\n          CALL SET_CH4( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                        State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in call to \"SET_CH4\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! Test for convection timestep\n       !---------------------------------------------------------------------\n       IF ( ITS_TIME_FOR_CONV() .and. notDryRun ) THEN\n\n          !==================================================================\n          !         ***** M I X E D   L A Y E R   M I X I N G *****\n          !==================================================================\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Boundary layer mixing\", RC )\n          ENDIF\n\n          IF ( Input_Opt%LTURB ) THEN\n\n             IF ( Input_Opt%LNLPBL ) THEN\n\n                !------------------------------------------------------------\n                ! %%%%% VDIFF (non-local PBL mixing) %%%%%\n                ! Compute the surface flux for the non-local mixing,\n                ! (which means getting emissions & drydep from HEMCO)\n                ! and store it in State_Chm%Surface_Flux\n                !------------------------------------------------------------\n                CALL Compute_Sflx_For_Vdiff( Input_Opt,  State_Chm,          &\n                                             State_Diag, State_Grid,         &\n                                             State_Met,  RC                 )\n\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error encountered in \"Compute_Sflx_for_Vdiff\"!'\n                   CALL Error_Stop( errMsg, thisLoc )\n                ENDIF\n\n                IF ( VerboseAndRoot ) THEN\n                   CALL Debug_Msg( '### MAIN: a Compute_Sflx_For_Vdiff' )\n                ENDIF\n\n             ENDIF\n\n             !------------------------------------------------------------\n             ! Update drydep velocities by adding the sea-air deposition\n             ! velocity computed by the HEMCO SeaFlux extension\n             !------------------------------------------------------------\n             CALL Set_DryDepVel_Diagnostics( Input_Opt,  State_Chm,       &\n                                             State_Diag, State_Grid,      &\n                                             State_Met,  RC              )\n\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = &\n                     'Error encountered in \"Update_DryDepVel_for_Turbday\"!'\n                CALL Error_Stop( errMsg, thisLoc )\n             ENDIF\n\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: a Set_DryDepVel_Diagnostics' )\n             ENDIF\n\n          ENDIF\n\n          ! Note: mixing routine expects tracers in v/v\n          ! DO_MIXING applies the tracer tendencies (dry deposition,\n          ! emission rates) to the tracer arrays and performs PBL\n          ! mixing.\n          ! In the non-local PBL scheme, dry deposition and emission\n          ! fluxes below the PBL are handled within the PBL mixing\n          ! routine. Otherwise, tracer concentrations are first updated\n          ! and the full-mixing is then applied.\n          ! (ckeller, 3/5/15)\n          CALL Do_Mixing( Input_Opt,  State_Chm, State_Diag, &\n                          State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Do_Mixing\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Boundary layer mixing\", RC )\n          ENDIF\n\n          IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a TURBDAY:2' )\n\n          !==================================================================\n          !           ***** C L O U D   C O N V E C T I O N *****\n          !==================================================================\n          IF ( Input_Opt%LCONV ) THEN\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_Start( \"Convection\", RC )\n             ENDIF\n\n             ! Call the appropriate convection routine\n             CALL Do_Convection( Input_Opt,  State_Chm, State_Diag, &\n                                 State_Grid, State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_Convection\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: a CONVECTION' )\n             ENDIF\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_End( \"Convection\", RC )\n             ENDIF\n          ENDIF\n\n       ENDIF\n\n       !=====================================================================\n       !                  ***** C H E M I S T R Y *****\n       !=====================================================================\n       IF ( notDryRun ) THEN\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"All chemistry\", RC )\n          ENDIF\n\n          ! Get the overhead column O3 for use with FAST-J\n          ! NOTE: Move to CHEMISTRY section.  This now has to come after\n          ! the call to HEMCO emissions driver EMISSIONS_RUN. (bmy, 3/20/15)\n          CALL Get_Overhead_O3_For_FastJ( Input_Opt,  State_Chm,             &\n                                          State_Grid, State_Met, RC         )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Get_Overhead_O3_for_FastJ\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! Every chemistry timestep...\n          IF ( ITS_TIME_FOR_CHEM() ) THEN\n\n             ! SDE 05/28/13: Set H2O to State_Chm tracer if relevant\n             IF ( Input_Opt%ITS_A_FULLCHEM_SIM .and. id_H2O > 0 ) THEN\n                CALL Set_H2O_Trac( .FALSE., &\n                                   Input_Opt , State_Chm,    &\n                                   State_Grid, State_Met, RC )\n\n                ! Trap potential errors\n                IF ( RC /= GC_SUCCESS ) THEN\n                   ErrMsg = 'Error encountered in \"Set_H2O_Trac\" #2!'\n                   CALL Error_Stop( ErrMsg, ThisLoc )\n                ENDIF\n             ENDIF\n\n             ! Do GEOS-Chem chemistry\n             CALL Do_Chemistry( Input_Opt,  State_Chm, State_Diag, &\n                                State_Grid, State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_Chemistry\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"All chemistry\", RC )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !    ***** W E T   D E P O S I T I O N  (rainout + washout) *****\n       !=====================================================================\n       IF ( Input_Opt%LWETD .and. ITS_TIME_FOR_DYN() .and. notDryRun ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Wet deposition\", RC )\n          ENDIF\n\n          ! Do wet deposition\n          CALL Do_WetDep( Input_Opt, State_Chm, State_Diag, State_Grid, &\n                          State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Do_WetDep\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Wet deposition\", RC )\n          ENDIF\n\n       ENDIF\n\n       !=====================================================================\n       !         ***** U P D A T E   O P T I C A L   D E P T H *****\n       !=====================================================================\n       IF ( ITS_TIME_FOR_CHEM() .and. notDryRun ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"All chemistry\",       RC )\n             CALL Timer_Start( \"=> Aerosol chem\", RC )\n          ENDIF\n\n          ! Recalculate the optical depth at the wavelength(s) specified\n          ! in the Radiation Menu. This must be done before the call to any\n          ! diagnostic and only on a chemistry timestep.\n          ! (skim, 02/05/11)\n          CALL Recompute_OD( Input_Opt,  State_Chm, State_Diag, &\n                             State_Grid, State_Met, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Recompute_OD\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"All chemistry\",       RC )\n             CALL Timer_End( \"=> Aerosol chem\", RC )\n          ENDIF\n       ENDIF\n\n#ifdef RRTMG\n       !=====================================================================\n       !    ***** R R T M G   R A D I A T I V E   T R A N S F E R *****\n       !=====================================================================\n       IF ( Input_opt%LRAD  .and. ITS_TIME_FOR_RT() .and. notDryRun ) THEN\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"RRTMG\", RC )\n          ENDIF\n\n          ! Splash page\n          IF ( am_I_Root .and. FIRST_RT ) THEN\n             WRITE( 6, '(a)' ) REPEAT( '#', 79 )\n             WRITE( 6, 500 ) 'R R T M G : Radiative Transfer Model (by AER)'\n500          FORMAT( '#####', 12x, a, 12x, '#####' )\n             WRITE( 6, '(a)' ) REPEAT( '#', 79 )\n          ENDIF\n\n          State_Chm%RRTMG_iSeed = State_Chm%RRTMG_iSeed + 15\n\n          !------------------------------------------------------------------\n          ! Determine if we are doing clear-sky or all-sky.\n          ! Clear-sky is output with all-sky, so we just need\n          ! to run once regardless of whether both are required\n          ! or just one.\n          !------------------------------------------------------------------\n          IF ( Input_Opt%LSKYRAD(2) ) THEN\n             State_Chm%RRTMG_iCld = 1\n          ELSE\n             State_Chm%RRTMG_iCld = 0         !clouds are on\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Calculation for each of the potential output types\n          ! See: wiki.geos-chem.org/Coupling_GEOS-Chem_with_RRTMG\n          !\n          ! RRTMG outputs (scheduled in HISTORY.rc):\n          !  0-BA  1=O3  2=ME  3=SU   4=NI  5=AM\n          !  6=BC  7=OA  8=SS  9=DU  10=PM  11=ST\n          !\n          ! State_Diag%RadOutInd(1) will ALWAYS correspond to BASE due\n          ! to how it is populated from HISTORY.rc diaglist_mod.F90.\n          ! BASE is always calculated first since its flux is used to\n          ! calculate other RRTMG flux diagnostics.\n          !------------------------------------------------------------------\n\n          ! Calculate BASE first\n          N = 1\n\n          ! Echo info\n          WRITE( 6, 520 ) State_Diag%RadOutName(N), State_Diag%RadOutInd(N)\n\n          ! Generate mask for species in RT\n          CALL Set_SpecMask( State_Diag%RadOutInd(N), State_Chm )\n\n          ! Dummy values (FDH not available in GC-Classic)\n          Allocate(DT_3D(0,0,0),Stat=RC)\n          IF ( RC /= 0 ) Call Error_Stop( 'Error allocating DT_3D', ThisLoc )\n          Allocate(HR_3D(0,0,0),Stat=RC)\n          IF ( RC /= 0 ) Call Error_Stop( 'Error allocating HR_3D', ThisLoc )\n\n          ! Compute radiative transfer for the given output\n          CALL Do_RRTMG_Rad_Transfer( ThisDay    = Day,                    &\n                                      ThisMonth  = Month,                  &\n                                      iCld       = State_Chm%RRTMG_iCld,   &\n                                      iSpecMenu  = State_Diag%RadOutInd(N),&\n                                      iNcDiag    = N,                      &\n                                      iSeed      = State_Chm%RRTMG_iSeed,  &\n                                      Input_Opt  = Input_Opt,              &\n                                      State_Chm  = State_Chm,              &\n                                      State_Diag = State_Diag,             &\n                                      State_Grid = State_Grid,             &\n                                      State_Met  = State_Met,              &\n                                      DT_3D      = DT_3D,                  &\n                                      HR_3D      = HR_3D,                  &\n                                      RC         = RC                     )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Do_RRTMG_Rad_Transfer\", ' // &\n                      'for RRTMG output = ' // &\n                      TRIM( State_Diag%RadOutName(N) )\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! Calculate for rest of outputs, if any\n          DO N = 2, State_Diag%nRadOut\n             WRITE( 6, 520 ) State_Diag%RadOutName(N), State_Diag%RadOutInd(N)\n             CALL Set_SpecMask( State_Diag%RadOutInd(N), State_Chm )\n             CALL Do_RRTMG_Rad_Transfer( ThisDay    = Day,                    &\n                                         ThisMonth  = Month,                  &\n                                         iCld       = State_Chm%RRTMG_iCld,   &\n                                         iSpecMenu  = State_Diag%RadOutInd(N),&\n                                         iNcDiag    = N,                      &\n                                         iSeed      = State_Chm%RRTMG_iSeed,  &\n                                         Input_Opt  = Input_Opt,              &\n                                         State_Chm  = State_Chm,              &\n                                         State_Diag = State_Diag,             &\n                                         State_Grid = State_Grid,             &\n                                         State_Met  = State_Met,              &\n                                         DT_3D      = DT_3D,                  &\n                                         HR_3D      = HR_3D,                  &\n                                         RC         = RC          )\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Do_RRTMG_Rad_Transfer\", ' // &\n                         'for RRTMG output = ' // &\n                         TRIM( State_Diag%RadOutName(N) )\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n          ENDDO\n\n520       FORMAT( 5x, '- Calling RRTMG to compute fluxes and optics: ', &\n                  a4, ' (Index = ', i4.4, ')' )\n\n          IF ( VerboseAndRoot ) THEN\n             CALL Debug_Msg( '### MAIN: a DO_RRTMG_RAD_TRANSFER' )\n          ENDIF\n\n          If (Allocated(DT_3D)) Deallocate(DT_3D)\n          If (Allocated(HR_3D)) Deallocate(HR_3D)\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"RRTMG\", RC )\n          ENDIF\n\n          IF ( FIRST_RT ) THEN\n             FIRST_RT = .FALSE.\n          ENDIF\n\n       ENDIF\n#endif\n\n       !=====================================================================\n       !         ***** D I A G N O S T I C S   A R C H I V A L *****\n       !=====================================================================\n       IF ( notDryRun ) THEN\n\n          !------------------------------------------------------------------\n          !            ***** H I S T O R Y   U P D A T E  *****\n          !------------------------------------------------------------------\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          ! Set State_Diag arrays that rely on state at end of timestep\n          CALL Set_Diagnostics_EndofTimestep( Input_Opt,  State_Chm,  &\n                                              State_Diag, State_Grid, &\n                                              State_Met,  RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Set_Diagnostics_EndOfTimestep\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! Archive aerosol mass and PM2.5 diagnostics\n          IF ( State_Diag%Archive_AerMass ) THEN\n             CALL Set_AerMass_Diagnostic( Input_Opt,  State_Chm, State_Diag, &\n                                          State_Grid, State_Met, RC )\n          ENDIF\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"Set_AerMass_Diagnostic\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! Turn off diagnostics timer\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          ! Set species concentration back to v/v dry air (mol/mol dry air)\n          ! prior to setting restart file arrays. Doing this conversion\n          ! every timestep is required for bit-for-bit reproducibility when\n          ! breaking up runs in time.\n          !------------------------------------------------------------------\n          CALL Convert_Spc_Units(                                            &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Grid = State_Grid,                                      &\n               State_Met  = State_Met,                                       &\n               new_units  = previous_units,                                  &\n               RC         = RC                                              )\n\n          ! Turn diagnostics timer back on\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          ! Set diagnostics arrays in State_Diag that are in mol/mol\n          CALL Set_SpcConc_Diags_VVDry( Input_Opt,  State_Chm, State_Diag,   &\n                                        State_Grid, State_Met, RC           )\n\n          ! Increment the timestep values by the heartbeat time\n          ! This is because we need to write out data with the timestamp\n          ! at the end of the heartbeat timestep (i.e. at end of run)\n          !\n          ! NOTE: This should now go before HISTORY_UPDATE, so that we\n          ! can recompute the update alarm interval properly for monthly\n          ! or yearly intervals spanning leap years. (bmy, 3/5/19)\n          CALL History_SetTime( Input_Opt, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"History_SetTime\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          ! Update each HISTORY ITEM from its data source\n          CALL History_Update( Input_Opt, State_Diag, RC )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"History_Update\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          !         ***** O B S P A C K   D I A G N O S T I C S *****\n          !------------------------------------------------------------------\n          IF ( Input_Opt%Do_ObsPack ) THEN\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_Start( \"Diagnostics\", RC )\n             ENDIF\n\n             ! Sample the observations in today's ObsPack file\n             CALL ObsPack_Sample( NYMD,      NHMS,       Input_Opt,          &\n                                  State_Chm, State_Diag, State_Grid,         &\n                                  State_Met, RC                             )\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_End( \"Diagnostics\", RC )\n             ENDIF\n\n          ENDIF\n\n          !------------------------------------------------------------------\n          !    ***** P L A N E F L I G H T   D I A G   S E T U P  *****\n          !------------------------------------------------------------------\n          IF ( Input_Opt%Do_Planeflight .and. ITS_A_NEW_DAY() ) THEN\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_Start( \"Diagnostics\", RC)\n             ENDIF\n\n             ! Initialize planeflight diagnostic\n             CALL Setup_PlaneFlight( Input_Opt, State_Chm, State_Grid, &\n                                     State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Setup_Planeflight\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n\n             IF ( Input_Opt%useTimers ) THEN\n                CALL Timer_End( \"Diagnostics\", RC )\n             ENDIF\n\n          ENDIF\n\n          !------------------------------------------------------------------\n          !  ***** C H 4   S I M U L A T I O N   D I A G N O S I C S *****\n          !\n          ! Get CH4 columns by applying satellite observational operators\n          !------------------------------------------------------------------\n          IF ( Input_Opt%Satellite_CH4_Columns ) THEN\n             IF ( ITS_A_NEW_HOUR() ) THEN\n                IF ( Input_Opt%useTimers ) THEN\n                   CALL Timer_Start( \"Diagnostics\", RC)\n                ENDIF\n\n                ! CH4 columns from the GOSAT instrument\n                IF ( Input_Opt%GOSAT_CH4_OBS ) THEN\n                   CALL CALC_GOSAT_CH4_FORCE( Input_Opt,  State_Chm,         &\n                                              State_Grid, State_Met         )\n                ENDIF\n\n                ! CH4 columns from the AIRS instrument\n                IF ( Input_Opt%AIRS_CH4_OBS ) THEN\n                   CALL CALC_AIRS_CH4_FORCE( Input_Opt,  State_Chm,          &\n                                             State_Grid, State_Met          )\n                ENDIF\n\n                ! CH4 columns from the TCCON instrument\n                IF ( Input_Opt%TCCON_CH4_OBS ) THEN\n                   CALL CALC_TCCON_CH4_FORCE( Input_Opt,  State_Chm,         &\n                                              State_Grid, State_Met         )\n                ENDIF\n\n                IF ( Input_Opt%useTimers ) THEN\n                   CALL Timer_End( \"Diagnostics\", RC )\n                ENDIF\n             ENDIF\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !       ***** I N C R E M E N T   E L A P S E D   T I M E *****\n       !\n       ! Moved before diagnostics to count the last timestep as done.\n       ! Need to save timestamps for filenames. (ccc, 5/13/09)\n       !=====================================================================\n       CALL Timestamp_Diag()\n       CALL Set_Elapsed_Sec()\n       CALL Set_Current_Time()\n       IF ( VerboseAndRoot ) THEN\n          CALL Debug_Msg( '### MAIN: after SET_ELAPSED_SEC' )\n       ENDIF\n\n       IF ( notDryRun ) THEN\n          !==================================================================\n          !       ***** D I A G N O S T I C S   A R C H I V A L *****\n          !\n          !                 ***** C O N T I N U E D *****\n          !==================================================================\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          !------------------------------------------------------------------\n          !    ***** P L A N E F L I G H T   D I A G N O S T I C  *****\n          !------------------------------------------------------------------\n          IF ( Input_Opt%Do_Planeflight ) THEN\n             ! Archive data along the flight track\n             CALL PLANEFLIGHT( Input_Opt,  State_Chm, State_Diag, &\n                               State_Grid, State_Met, RC )\n\n             ! Trap potential errors\n             IF ( RC /= GC_SUCCESS ) THEN\n                ErrMsg = 'Error encountered in \"Planeflight\"!'\n                CALL Error_Stop( ErrMsg, ThisLoc )\n             ENDIF\n          ENDIF\n          IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: after Planeflight' )\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !            ***** C O P Y   I - 3   F I E L D S *****\n       !\n       ! The I-3 fields at the end of an outer timestep (every 3 hours)\n       ! become the fields at the beginning of the next timestep.\n       ! This update must occur before writing History. (wbd1 12/03/19)\n       !=====================================================================\n       IF ( notDryRun ) THEN\n          IF ((mod(get_hour(), 3) .eq. 0) .AND. (get_minute() .eq. 0)) THEN\n             CALL Copy_I3_Fields( State_Met, State_Grid )\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: after COPY_I3_FIELDS' )\n             ENDIF\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !            ***** C O P Y   I - 1 d y n   F I E L D S *****\n       !\n       ! The I-1 fields at the end of an outer timestep (every 1 hours)\n       ! become the fields at the beginning of the next timestep.\n       ! This update must occur before writing History.\n       !=====================================================================\n       IF ( notDryRun .and. TRIM(State_Grid%GridRes) == '0.125x0.15625' ) THEN\n          IF ((mod(get_hour(), 1) .eq. 0) .AND. (get_minute() .eq. 0)) THEN\n             CALL Copy_I1dyn_Fields( State_Met )\n             IF ( VerboseAndRoot ) THEN\n                CALL Debug_Msg( '### MAIN: after COPY_I1dyn_FIELDS' )\n             ENDIF\n          ENDIF\n       ENDIF\n\n       !---------------------------------------------------------------------\n       !               ***** H I S T O R Y   W R I T E *****\n       !---------------------------------------------------------------------\n       IF ( notDryRun ) THEN\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_Start( \"Diagnostics\", RC )\n          ENDIF\n\n          ! Write HISTORY ITEMS in each diagnostic collection to disk\n          ! (or skip writing if it is not the proper output time.\n          CALL History_Write(                                                &\n               Input_Opt  = Input_Opt,                                       &\n               State_Chm  = State_Chm,                                       &\n               State_Diag = State_Diag,                                      &\n               State_Grid = State_Grid,                                      &\n               RC         = RC                                              )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"History_Write\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n\n          IF ( Input_Opt%useTimers ) THEN\n             CALL Timer_End( \"Diagnostics\", RC )\n          ENDIF\n       ENDIF\n\n       !=====================================================================\n       !     ***** E N D   O F   D Y N A M I C   T I M E S T E P *****\n       !=====================================================================\n    ENDDO\n  ENDDO\n\n  !==========================================================================\n  !              ***** C L E A N U P   A N D   Q U I T *****\n  !==========================================================================\n9999 CONTINUE\n\n  ! Skip operations when running in dry-run mode\n  IF ( notDryRun ) THEN\n\n    !------------------------------------------------------------------------\n    !        ***** W R I T E   H E M C O   R E S T A R T S *****\n    !------------------------------------------------------------------------\n     IF ( Input_Opt%useTimers ) THEN\n        CALL Timer_Start( \"HEMCO\",  RC )\n     ENDIF\n\n    ! Force the output of a HEMCO restart file (ckeller, 4/1/15)\n    CALL HCOI_GC_WriteDiagn( Input_Opt, .TRUE., RC )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"HCOI_GC_WriteDiagn\"!'\n       CALL Error_Stop( ErrMsg, ThisLoc )\n    ENDIF\n\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"HEMCO\",  RC )\n    ENDIF\n\n    !------------------------------------------------------------------------\n    !         ***** O B S P A C K   D I A G N O S T I C S *****\n    !\n    ! Flush any unwritten ObsPack data to disk and finalize\n    !------------------------------------------------------------------------\n    IF ( Input_Opt%Do_ObsPack ) THEN\n\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_Start( \"Diagnostics\", RC )\n       ENDIF\n\n       ! Write any remaining ObsPack data to disk, and immediately\n       ! thereafter free the ObsPack pointer fields of State_Diag\n       IF ( ASSOCIATED( State_Diag%ObsPack_id ) ) THEN\n          CALL ObsPack_Write_Output( Input_Opt, State_Diag, RC )\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"ObsPack_Write_Output\"!'\n             CALL Error_Stop( ErrMsg, ThisLoc )\n          ENDIF\n       ENDIF\n\n       ! Free the ObsPack species mapping fields of State_Diag\n       CALL ObsPack_SpeciesMap_Cleanup( Input_Opt, State_Diag, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"ObsPack_SpeciesMap_Cleanup\"!'\n          CALL Error_Stop( ErrMsg, ThisLoc )\n       ENDIF\n\n       IF ( Input_Opt%useTimers ) THEN\n          CALL Timer_End( \"Diagnostics\", RC )\n       ENDIF\n    ENDIF\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! Finalize GEOS-Chem\n  !--------------------------------------------------------------------------\n\n  ! Cleanup the dry-run simulation (if necessary)\n  CALL Cleanup_Dry_Run( Input_Opt, RC )\n\n  ! Close all files\n  CALL CLOSE_FILES()\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a CLOSE_FILES' )\n\n  !%%% NOTE: Call HISTORY_CLEANUP from cleanup.F.  This will\n  !%%% close all netCDF files upon both normal or abnormal exits.\n\n  ! Deallocate fields of the Chemistry State object\n  CALL Cleanup_State_Chm( State_Chm, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_State_Chm\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a cleanup State_Chm' )\n\n  ! Deallocate fields of the Diagnostics State object\n  CALL Cleanup_State_Diag( State_Diag, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_State_Diag\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a cleanup State_Diag' )\n\n  ! Deallocate fields of the Meteorology State object\n  CALL Cleanup_State_Met( State_Met, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_State_Met\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a cleanup State_Met' )\n\n  ! Deallocate dynamic module arrays\n  CALL CleanUp( Input_Opt, State_Grid, .FALSE., RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a cleanup modules' )\n\n  ! Deallocate fields of the Input Options object\n  CALL Cleanup_Input_Opt( Input_Opt, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_Input_Opt\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a cleanup Input_Opt' )\n\n  ! Deallocate fields of the Grid State object\n  CALL Cleanup_State_Grid( State_Grid, RC )\n  IF ( RC /= GC_SUCCESS ) THEN\n     ErrMsg = 'Error encountered in \"Cleanup_State_grid\"!'\n     CALL Error_Stop( ErrMsg, ThisLoc )\n  ENDIF\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a cleanup State_Grid' )\n\n  ! Deallocate fields of the diagnostics list object\n  IF ( notDryRun ) THEN\n     CALL Cleanup_DiagList( Diag_List, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Cleanup_DiagList\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n     CALL Cleanup_TaggedDiagList( TaggedDiag_List, RC )\n     IF ( RC /= GC_SUCCESS ) THEN\n        ErrMsg = 'Error encountered in \"Cleanup_TaggedDiagList\"!'\n        CALL Error_Stop( ErrMsg, ThisLoc )\n     ENDIF\n     IF ( VerboseAndRoot ) THEN\n        CALL Debug_Msg( '### MAIN: a cleanup diag lists' )\n     ENDIF\n  ENDIF\n\n#ifdef APM\n  ! Clean up arrays for APM microphysics, etc.\n  CALL CLEANUP_APMARRAYS()\n  CALL CLEANUP_APM3D( Input_Opt, RC )\n#endif\n\n  !-----------------------------------------------------------------------------\n  ! TWO-WAY NESTING OPTION\n  ! This is only invoked when compiling GEOS-Chem with COUPLE=y\n  !\n  ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n  ! %%%%% NOTE: THIS OPTION WAS PROBABLY BROKEN WITH THE ADDITION OF HEMCO %%%%%\n  ! %%%%% AND FLEXCHEM INTO GEOS-CHEM V10-01 AND v11-01.  BUYER BEWARE.    %%%%%\n  ! %%%%%  --  Bob Yantosca (22 Jan 2018)                                  %%%%%\n  ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#ifdef EXCHANGE\n  ! Finalize the two-way nesting\n  CALL Cleanup_Exchange( Input_Opt )\n#endif\n!-----------------------------------------------------------------------------\n\n  ! Free the shadow variables in error_mod.F\n  CALL Cleanup_Error()\n\n#ifdef GTMM_Hg\n  ! Deallocate arrays from GTMM model for mercury simulation\n  IF ( Input_Opt%LGTMM ) CALL CleanupCASAarrays()\n#endif\n\n  IF ( VerboseAndRoot ) CALL Debug_Msg( '### MAIN: a CLEANUP' )\n\n  IF ( Input_Opt%useTimers ) THEN\n     ! Stop remaining timers\n     CALL Timer_End( \"GEOS-Chem\",    RC )\n\n     ! Print timer output (skip if a dry-run)\n     IF ( notDryRun ) THEN\n        CALL Timer_PrintAll( Input_Opt, RC )\n     ENDIF\n  ENDIF\n\n  !--------------------------------------------------------------------------\n  ! Remind users to run the ./metrics.py script to obtain OH metrics\n  !--------------------------------------------------------------------------\n  IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n     WRITE( 6, '(/,a)' ) REPEAT( '%', 65 )\n     WRITE( 6, 300     ) 'To compute the OH metrics, execute the Python'\n     WRITE( 6, 300     ) '  script \"metrics.py\" in this run directory. '\n     WRITE( 6, '(a)'   ) REPEAT( '%', 65 )\n 300 FORMAT( '%%%%%', 5x, a, 5x, '%%%%%' )\n    ENDIF\n\n  ! Print ending time of simulation\n  CALL Display_End_Time()\n\n  ! Flush the buffer to get output\n  CALL Flush( 6 )\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: display_model_info\n!\n! !DESCRIPTION: Internal Subroutine DISPLAY\\_MODEL\\_INFO displays the\n!  appropriate messages for the given model and machine type.  It also\n!  prints the starting time and date (local time) of the GEOS-Chem simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Display_Model_Info()\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! For system time stamp\n    CHARACTER(LEN=16) :: STAMP\n\n    ! Version number from CMake\n#include \"gc_classic_version.H\"\n\n    !-----------------------------------------------------------------\n    ! Write header\n    !-----------------------------------------------------------------\n    WRITE(  6, '(a)' ) &\n         REPEAT( '*', 13 )                                          // &\n         '   S T A R T I N G   G E O S - C H E M   '                // &\n         REPEAT( '*', 13 )\n\n    !-----------------------------------------------------------------\n    ! Mode of simulation\n    !-----------------------------------------------------------------\n    WRITE( 6, 100 ) 'GEOS-Chem \"Classic\"'\n\n    !-----------------------------------------------------------------\n    ! Print model version\n    !-----------------------------------------------------------------\n    WRITE( 6, 110 ) TRIM( GC_CLASSIC_VERSION )\n\n    !-----------------------------------------------------------------\n    ! Print compiler\n    !-----------------------------------------------------------------\n#if defined( LINUX_IFORT )\n    WRITE( 6, 120  ) 'Intel Fortran Compiler (aka ifort)'\n#elif defined( LINUX_GFORTRAN )\n    WRITE( 6, 120 ) 'GNU Fortran compiler (aka gfortran)'\n#endif\n\n    !-----------------------------------------------------------------\n    ! Print default floating-point precision\n    !-----------------------------------------------------------------\n#ifdef USE_REAL8\n    WRITE( 6, 130 ) '8-byte real (aka REAL*8)'\n#else\n    WRITE( 6, 130 ) '4-byte real (aka REAL*4)'\n#endif\n\n    !-----------------------------------------------------------------\n    ! Print status of OpenMP\n    !-----------------------------------------------------------------\n#ifdef NO_OMP\n    WRITE( 6, 150 ) 'OFF'\n#else\n    WRITE( 6, 150 ) 'ON'\n#endif\n\n    !-----------------------------------------------------------------\n    ! Print status of netCDF diagnostics (aka History) - always on\n    !-----------------------------------------------------------------\n    WRITE( 6, 170 ) 'ON'\n\n    !-----------------------------------------------------------------\n    ! Print msg if netCDF compression is supported\n    !-----------------------------------------------------------------\n#ifdef NC_HAS_COMPRESSION\n    WRITE( 6, 180 ) 'SUPPORTED'\n#else\n    WRITE( 6, 180 ) 'NOT SUPPORTED (or shut off w/ NC_NODEFLATE=y)'\n#endif\n\n    !-----------------------------------------------------------------\n    ! Print msg if Luo et al wetdep scheme is supported\n    !-----------------------------------------------------------------\n#ifdef LUO_WETDEP\n    WRITE( 6, 185 ) 'ON'\n#else\n    WRITE( 6, 185 ) 'OFF'\n#endif\n\n    !-----------------------------------------------------------------\n    ! System time stamp\n    !-----------------------------------------------------------------\n    STAMP = SYSTEM_TIMESTAMP()\n    WRITE( 6, 190 ) STAMP\n\n    !-----------------------------------------------------------------\n    ! Format strings\n    !-----------------------------------------------------------------\n100 FORMAT( /, '===> Mode of operation         : ', a             )\n110 FORMAT(    '===> GEOS-Chem version         : ', a             )\n120 FORMAT(    '===> Compiler                  : ', a             )\n130 FORMAT(    '===> Flexible precision set to : ', a             )\n150 FORMAT(    '===> Parallelization w/ OpenMP : ', a             )\n160 FORMAT(    '===> Binary punch diagnostics  : ', a             )\n170 FORMAT(    '===> netCDF diagnostics        : ', a             )\n180 FORMAT(    '===> netCDF file compression   : ', a             )\n185 FORMAT(    '===> Luo et al (2019) wetdep?  : ', a             )\n190 FORMAT( /, '===> SIMULATION START TIME: ',      a, ' <===', / )\n\n  END SUBROUTINE Display_Model_Info\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: display_end_time\n!\n! !DESCRIPTION: Internal subroutine DISPLAY\\_END\\_TIME prints the ending\n!  time of the GEOS-Chem simulation.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Display_End_Time()\n!\n! !REVISION HISTORY:\n!  03 May 2005 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=16) :: STAMP\n\n    ! Print system time stamp\n    STAMP = SYSTEM_TIMESTAMP()\n    WRITE( 6, 100 ) STAMP\n100 FORMAT( /, '===> SIMULATION END TIME: ', a, ' <===', / )\n\n    ! Echo info\n    WRITE ( 6, 3000 )\n3000 FORMAT( /, '**************   E N D   O F   G E O S -- C H E M   ', &\n                '**************' )\n\n  END SUBROUTINE Display_End_Time\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_overhead_o3_for_fastj\n!\n! !DESCRIPTION: Internal subroutine GET\\_OVERHEAD\\_O3\\_FOR\\_FASTJ\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Overhead_O3_For_FastJ( Input_Opt,  State_Chm,               &\n                                        State_Grid, State_Met, RC           )\n!\n! !USES:\n!\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(GrdState), INTENT(IN)    :: State_Grid\n    TYPE(MetState), INTENT(IN)    :: State_Met\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n!\n! OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC\n!\n! !REMARKS:\n!  This routine makes use of variables declared in above in the main program\n!  (which are visible in all sub-programs below the CONTAINS statement).\n!                                                                             .\n!  The original code was done in FAST-J routine \"set_prof.F\", but has been\n!  split off to facilitate development of the grid-independent model.\n!\n! !REVISION HISTORY:\n!  07 Mar 2012 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! FAST-J is only used for fullchem and offline aerosol, skip otherwise\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM   .or.                                 &\n         Input_Opt%ITS_AN_AEROSOL_SIM   .or.                                 & \n         Input_Opt%ITS_A_MERCURY_SIM  ) THEN\n\n       ! Only execute this if we are doing chemistry\n       ! and if it we are at a chemistry timestep\n       IF ( Input_Opt%LCHEM .and. ITS_TIME_FOR_CHEM() ) THEN\n\n          ! Get the overhead O3 column for FAST-J.  Take either the\n          ! TOMS O3 data or the column O3 directly from the met fields\n          CALL Compute_Overhead_O3( Input_Opt, State_Grid, State_Chm, DAY, &\n                                    Input_Opt%USE_O3_FROM_MET,  &\n                                    State_Met%TO3, RC )\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Get_Overhead_O3_For_FastJ\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_Dry_Run\n!\n! !DESCRIPTION: Looks at the input arguments to determine if the user\n!  has selected to do a GEOS-Chem dry-run.  If so, then the proper\n!  fields of Input\\_Opt will be populated accordingly, and the dry-run\n!  log file will be opened.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_Dry_Run( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,     ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(INOUT) :: Input_Opt   ! Input Options Object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  If in a \"dry-run\" mode, GEOS-Chem will simply check whether files\n!  are present (and possibly in the correct format) and go through\n!  time-steps to check met fields and other IO issues.\n!  No actual \"compute\" is performed.\n!\n! !REVISION HISTORY:\n!  13 Nov 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: nArg,   ArgLen\n\n    ! Strings\n    CHARACTER(LEN=255) :: ArgVal, ErrMsg, ThisLoc\n\n    !=================================================================\n    ! Init_Dry_Run begins here!\n    !=================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    nArg    = 0\n    ErrMsg  = ''\n    ThisLoc = ' -> at Init_Dry_Run (in GeosCore/main.F90)'\n\n    !=================================================================\n    ! Parse arguments to determine if the dry-run has been selected\n    !=================================================================\n    DO\n\n       ! Initialize for next argument\n       ArgLen  = 0\n       ArgVal  = ''\n\n       ! Get the next argument\n       CALL Get_Command_Argument( nArg, ArgVal, ArgLen )\n       IF ( ArgLen == 0 ) EXIT\n\n       ! Parse the arguments\n       SELECT CASE( TRIM( ArgVal ) )\n\n       ! Test for the dry-run switch\n       CASE( '--dryrun' )\n          Input_Opt%DryRun  = .TRUE.\n\n       ! Otherwise pass through\n       CASE DEFAULT\n          ! pass\n\n       END SELECT\n\n       ! Increment the argument counter\n       nArg = nArg + 1\n    ENDDO\n\n    !=================================================================\n    ! If GEOS-Chem is running in dry-run mode\n    ! then print a warning to both to stdout and the HEMCO log\n    !=================================================================\n    IF ( Input_Opt%DryRun ) THEN\n       CALL Print_Dry_Run_Warning( 6 )\n    ENDIF\n\n  END SUBROUTINE Init_Dry_Run\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cleanup_Dry_Run\n!\n! !DESCRIPTION: Looks at the input arguments to determine if the user\n!  has selected to do a GEOS-Chem dry-run.  If so, then the proper\n!  fields of Input\\_Opt will be populated accordingly.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Cleanup_Dry_Run( Input_Opt, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE HCO_State_GC_Mod,  ONLY : HcoState\n    USE Input_Opt_Mod,     ONLY : OptInput\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)  :: Input_Opt   ! Input Options Object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Uses the intrinsic F2003 function Get_Command_Argument.\n!\n! !REVISION HISTORY:\n!  13 Nov 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    RC = GC_SUCCESS\n\n    ! Skip if not a dry-run simulation\n    IF ( Input_Opt%DryRun ) THEN\n\n       ! Print dry-run header to stdout\n       ! (which is usually redirected to the dryrun log file)\n       CALL Print_Dry_Run_Warning( 6 )\n\n       ! Print dry-run header to HEMCO.log file\n       ! (if HEMCO output is not already being sent to stdout)\n       IF ( HcoState%Config%Err%LUN > 0 ) THEN\n          CALL Print_Dry_Run_Warning( HcoState%Config%Err%LUN )\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE Cleanup_Dry_Run\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_Dry_Run_Warning\n!\n! !DESCRIPTION: Prints the warning for the GEOS-Chem dry run to either\n!  stdout (aka the GC log file) and the dry-run log file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_Dry_Run_Warning( U )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: U   ! Logical unit number\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! Print warning info to the desired file\n    !=================================================================\n    WRITE( U, 100 )\n    WRITE( U, 100 ) REPEAT( '!', 79 )\n    WRITE( U, 100 ) '!!! GEOS-CHEM IS IN DRY-RUN MODE!'\n    WRITE( U, 100 ) '!!!'\n    WRITE( U, 100 ) '!!! You will NOT get output for this run!'\n    WRITE( U, 100 ) '!!! Use this command to validate a '         // &\n                    'GEOS-Chem run configuration:'\n    WRITE( U, 100 ) '!!!   ./gcclassic --dryrun > log'\n    WRITE( U, 100 ) '!!!'\n    WRITE( U, 100 ) '!!! REMOVE THE --dryrun ARGUMENT FROM THE '   // &\n                    'COMMAND LINE'\n    WRITE( U, 100 ) '!!! BEFORE RUNNING A GEOS-Chem PRODUCTION '   // &\n                    'SIMULATION!'\n    WRITE( U, 100 ) REPEAT( '!', 79 )\n    WRITE( U, 120 ) '!!! Start Date       : ', &\n                    Input_Opt%NYMDb, Input_Opt%NHMSb\n    WRITE( U, 120 ) '!!! End Date         : ', &\n                    Input_Opt%NYMDe, Input_Opt%NHMSe\n    WRITE( U, 110 ) '!!! Simulation       : ', &\n                     TRIM(Input_Opt%SimulationName)\n    WRITE( U, 110 ) '!!! Meteorology      : ', &\n                     TRIM(Input_Opt%MetField )\n    WRITE( U, 110 ) '!!! Grid Resolution  : ', &\n                    TRIM(State_Grid%GridRes )\n    WRITE( U, 100 ) REPEAT( '!', 79 )\n    WRITE( U, 100 )\n\n    ! Format statements\n100 FORMAT( a                 )\n110 FORMAT( a, a              )\n120 FORMAT( a, i8.8, 1x, i6.6 )\n\n  END SUBROUTINE Print_Dry_Run_Warning\n!EOC\nEND PROGRAM GEOS_Chem\n#endif\n"
  },
  {
    "path": "Interfaces/GCHP/CMakeLists.txt",
    "content": "add_subdirectory(Registry)\nadd_library(GCHP STATIC\n    Chem_GridCompMod.F90\n    gchp_chunk_mod.F90\n    gchp_historyexports_mod.F90\n)\ntarget_link_libraries(GCHP\n\tPUBLIC GeosCore\n)\nadd_dependencies(GCHP registry)\ntarget_include_directories(GCHP PUBLIC ${CMAKE_CURRENT_BINARY_DIR}/Registry)\n"
  },
  {
    "path": "Interfaces/GCHP/Chem_GridCompMod.F90",
    "content": "#include \"MAPL_Generic.h\"\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: GEOSCHEMchem_GridCompMod\n!\n! !DESCRIPTION: GEOSCHEMchem_GridComp is an ESMF5 gridded component\n! implementing the GEOS-Chem chemistry and related processes, including\n! dry deposition, emissions, and wet deposition. In addition, the\n! parameterizations for PBL mixing and convection as used in GEOS-Chem\n! can be invoked by enabling the corresponding option in the GEOS-Chem\n! input file (geoschem_config.yml). In this case, the corresponding GEOS-5\n! process must NOT be applied to the GC tracers, i.e. the tracers must\n! not be friendly to turbulence (if PBL mixing is used) and/or moist\n! (for convection).\n!\\\\\n!\\\\\n! This gridded component contains three run phases:\n!\n!  -1: Phase -1 is the standard setting in GCHP. It executes all components.\n!      Phase is -1 if number of phases is set to 1 in config file GCHP.rc.\n!\n!   1: Phase 1 is used in GEOS-5. It executes convection, dry deposition,\n!      and emissions and should be called before surface processes/turbulence.\n!\n!   2: Phase 2 is used in GEOS-5. It performs chemistry, and wet deposition,\n!      and should be called after turbulence.\n!\n! GEOS-5 only:\n! All GEOS-Chem species are stored in the GEOSCHEMchem internal state object\n! in units of kg/kg total.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n#ifdef MODEL_GEOS\nMODULE GEOSCHEMchem_GridCompMod\n#else\nMODULE Chem_GridCompMod\n#endif\n!\n! !USES:\n!\n  USE CMN_Size_Mod\n  USE ESMF                                           ! ESMF library\n  USE MAPL_Mod                                       ! MAPL library\n  USE MAPL_IOMod\n  use pFlogger, only: logging, Logger\n  USE Charpak_Mod                                    ! String functions\n  USE DiagList_Mod                                   ! Internal state prefixes\n  USE Hco_Types_Mod, ONLY : ConfigObj\n  USE Input_Opt_Mod                                  ! Input Options obj\n  USE GCHP_Chunk_Mod                                 ! GCHP IRF methods\n  USE GCHP_HistoryExports_Mod\n  USE ErrCode_Mod                                    ! Error numbers\n  USE State_Chm_Mod                                  ! Chemistry State obj\n  USE State_Diag_Mod                                 ! Diagnostics State obj\n  USE State_Grid_Mod                                 ! Grid State obj\n  USE State_Met_Mod                                  ! Meteorology State obj\n  USE Species_Mod,   ONLY : Species\n\n#if defined( MODEL_GEOS )\n  USE Chem_Mod                            ! Chemistry Base Class (chem_mie?)\n  USE Chem_GroupMod                       ! For family transport\n  USE PHYSCONSTANTS\n#endif\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: SetServices    ! Sets ESMF entry points\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE  :: Initialize_    ! Init method\n  PRIVATE  :: Run1           ! Run wrapper phase 1\n  PRIVATE  :: Run2           ! Run wrapper phase 2\n  PRIVATE  :: Run_           ! Run method\n  PRIVATE  :: Finalize_      ! Finalize method\n  PRIVATE  :: Extract_       ! Get values from ESMF\n!\n! !PRIVATE TYPES:\n!\n  ! Legacy state\n  TYPE GEOSCHEM_State\n     PRIVATE\n     TYPE(ESMF_Config)             :: myCF           ! Private ESMF Config obj\n  END TYPE GEOSCHEM_State\n\n  ! Hook for the ESMF\n  TYPE GEOSCHEM_Wrap\n     TYPE(GEOSCHEM_State), POINTER :: PTR => null()  ! Ptr to GEOSCHEM_State\n  END TYPE GEOSCHEM_Wrap\n\n  ! For passing from internal state to Chm_State and vice versa\n  TYPE Int2SpcMap\n     CHARACTER(LEN=255)            :: Name\n     INTEGER                       :: ID\n#if defined( MODEL_GEOS )\n     REAL, POINTER                 :: Internal(:,:,:) => NULL()\n#else\n     REAL(ESMF_KIND_R8), POINTER   :: Internal(:,:,:) => NULL()\n#endif\n  END TYPE Int2SpcMap\n\n  ! Internal run alarms\n  TYPE GC_run_alarms\n     private\n     ! Add alarms here\n     type(ESMF_Alarm) :: RRTMG_Alarm\n  END TYPE GC_run_alarms\n\n  TYPE GCRA_wrap\n     type(GC_run_alarms), pointer  :: ptr\n  END TYPE GCRA_wrap\n\n  ! For mapping State_Chm%Tracers/Species arrays onto the internal state.\n  TYPE(Int2SpcMap), POINTER        :: Int2Spc(:) => NULL()\n#ifdef ADJOINT\n  ! For mapping State_Chm%Tracers/Species arrays onto the internal state.\n  TYPE(Int2SpcMap), POINTER        :: Int2Adj(:) => NULL()\n#endif\n\n  ! Objects for GEOS-Chem\n  TYPE(OptInput)                   :: Input_Opt      ! Input Options\n  TYPE(ChmState)                   :: State_Chm      ! Chemistry state\n  TYPE(DgnState)                   :: State_Diag     ! Diagnostics state\n  TYPE(GrdState)                   :: State_Grid     ! Grid state\n  TYPE(MetState)                   :: State_Met      ! Meteorology state\n  TYPE(Species),          POINTER  :: ThisSpc => NULL()\n  TYPE(HistoryConfigObj), POINTER  :: HistoryConfig\n  TYPE(ConfigObj),        POINTER  :: HcoConfig\n  CLASS(Logger),          POINTER  :: lgr => null()\n  LOGICAL                          :: met_wind_is_top_down\n  LOGICAL                          :: met_humidity_is_top_down\n  LOGICAL                          :: met_nonadv_is_top_down\n  LOGICAL                          :: use_extdata2g\n\n#if defined( MODEL_GEOS )\n  ! Is GEOS-Chem the provider for AERO, RATS, and/or Analysis OX?\n  LOGICAL                          :: DoAERO\n\n  ! When to do the analysis\n  INTEGER                          :: ANAPHASE\n  INTEGER, PARAMETER               :: CHEMPHASE = 2\n  INTEGER, PARAMETER               :: RATSPHASE = 2\n#endif\n\n  ! Number of run phases, 1 or 2. Set in the rc file; else default is 2.\n  INTEGER                          :: NPHASE\n\n  ! Is this being run as a CTM?\n  INTEGER                          :: IsCTM\n\n  ! Are we reading in dynamical heating?\n  LOGICAL                          :: Read_Dyn_Heating\n\n  ! Memory debug level\n  INTEGER                          :: MemDebugLevel\n\n#if defined( MODEL_GEOS )\n  ! GEOS-5 only\n  ! Flag to initialize species concentrations from external fields. Read\n  ! through GEOSCHEMchem_GridComp.rc. If true, initial species concentrations\n  ! are read from an external file instead of taken from the internal state.\n  ! The field names in the external file are expected to be 'SPC_<XXX>'.\n  ! This option can be used to initialize a simulation using a restart file\n  ! from a 'GEOS-Chem classic' CTM simulation.\n  LOGICAL                          :: InitFromFile\n  LOGICAL                          :: SkipReplayGCC\n#endif\n\n  ! Pointers to import, export and internal state data. Declare them as\n  ! module variables so that we have to assign them only on first call.\n\n#if defined( MODEL_GEOS )\n# include \"GEOSCHEMCHEM_DeclarePointer___.h\"\n#else\n# include \"GCHPchem_DeclarePointer___.h\"\n#endif\n\n#if defined( MODEL_GEOS )\n\n  ! Mie table\n!  TYPE(Chem_Mie)     :: geoschemMieTable(2)\n!  INTEGER, PARAMETER :: instanceComputational = 1\n!  INTEGER, PARAMETER :: instanceData          = 2\n#endif\n!\n! !REMARKS:\n!  Developed for GEOS-5 release Fortuna 2.0 and later.\n!                                                                             .\n!  NOTES:\n!  - The abbreviation \"PET\" stands for \"Persistent Execution Thread\".\n!    It is a synomym for CPU.\n!\n! !REVISION HISTORY:\n!  06 Dec 2009 - A. da Silva - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: SetServices\n!\n! !DESCRIPTION: The SetServices routine does the following:\n!\n! \\begin{itemize}\n! \\item Defines the Initialize method for the GEOSCHEMchem gridded component\n! \\item Defines the Run methods for the GEOSCHEMchem gridded component\n!       (phase 1 and phase 2).\n! \\item Defines the Finalize method for the GEOSCHEMchem gridded component\n! \\item Attaches an internal state (which holds a private ESMF Config object)\n!       to the GEOSCHEMchem gridded component.\n! \\end{itemize}\n!\n! !INTERFACE:\n!\n  SUBROUTINE SetServices( GC, RC )\n!\n! !USES:\n!\n    USE HCOI_ESMF_MOD,        ONLY : HCO_SetServices\n    USE GCKPP_Model\n    USE CHARPAK_MOD,          ONLY : STRSPLIT, CSTRIP\n    USE inquireMod,           ONLY : findFreeLUN\n    USE FILE_MOD,             ONLY : IOERROR\n#if defined( MODEL_GEOS )\n    USE GCKPP_Monitor\n    USE GCKPP_Parameters\n    USE Precision_Mod\n    USE GEOS_Analysis,        ONLY : GEOS_AnaInit\n    USE GEOS_Interface,       ONLY : MetVars_For_Lightning_Init, &\n                                     GEOS_CheckRATSandOx \n    USE GEOS_AeroCoupler,     ONLY : GEOS_AeroSetServices\n    USE GEOS_CarbonInterface, ONLY : GEOS_CarbonSetServices\n#endif\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT) :: GC       ! Ref to this GridComp\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC       ! Success or failure\n!\n! !REMARKS:\n!  ESMF can only attach one Config object per Gridded Component.  The\n!  Config object that is defined from the \"MAPL.rc\" resource file is\n!  directly attached to the GEOSCHEMchem gridded component.\n!                                                                             .\n!  To attach the Config object defined from the \"GEOSCHEMchem_GridComp.rc\"\n!  resource file, we must first create a derived type with a pointer to\n!  the Config object, then attach that to the gridded component as an\n!  \"internal state\" (also called \"legacy state\").\n!\n! !REVISION HISTORY:\n!  06 Dec 2009 - A. da Silva - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(GEOSCHEM_State), POINTER :: myState       ! Legacy state\n    TYPE(GEOSCHEM_Wrap)           :: wrap          ! Wrapper for myState\n    CHARACTER(LEN=ESMF_MAXSTR)    :: compName      ! Gridded Component name\n    CHARACTER(LEN=ESMF_MAXSTR)    :: COMP_NAME     ! This syntax for mapl_acg.pl\n    CHARACTER(LEN=ESMF_MAXSTR)    :: HcoConfigFile ! HEMCO configuration file\n    CHARACTER(LEN=ESMF_MAXSTR)    :: SpcName       ! Registered species name\n    CHARACTER(LEN=40)             :: AdvSpc(500)\n    CHARACTER(LEN=255)            :: LINE, MSG, SUBSTRS(500)\n    INTEGER                       :: N, I, J, IU_GEOS, IOS\n    INTEGER                       :: Nadv, landTypeInt\n    LOGICAL                       :: FOUND\n    LOGICAL                       :: EOF\n    CHARACTER(LEN=60)             :: landTypeStr, importName, simType\n    CHARACTER(LEN=ESMF_MAXPATHLEN):: rstFile\n    INTEGER                       :: SpcRestartAttr\n    CHARACTER(LEN=ESMF_MAXSTR)    :: HistoryConfigFile ! HISTORY config file\n    INTEGER                       :: T\n\n#if !defined( MODEL_GEOS )\n    TYPE(MAPL_MetaComp),  POINTER :: STATE => NULL()\n#endif\n\n    INTEGER                       :: DoIt\n\n#if defined( MODEL_GEOS )\n    CHARACTER(LEN=ESMF_MAXSTR)    :: LongName      ! Long name for diagnostics\n    CHARACTER(LEN=ESMF_MAXSTR)    :: ShortName\n    CHARACTER(LEN=255)            :: MYFRIENDLIES\n    CHARACTER(LEN=127)            :: FullName\n    LOGICAL                       :: FriendMoist, FriendGAAS\n    LOGICAL                       :: SpcInRestart, ReduceSpc\n    CHARACTER(LEN=40)             :: SpcsBlacklist(255)\n    INTEGER                       :: nBlacklist\n    CHARACTER(LEN=ESMF_MAXSTR)    :: Blacklist\n#endif\n#ifdef ADJOINT\n    LOGICAL                       :: useCFMaskFile\n#endif\n#ifdef RRTMG\n    INTEGER                          :: Read_Dyn_Heating_Int\n#endif\n\n    ! Manual internal state entries\n    LOGICAL                       :: am_I_Root\n    INTEGER                       :: II\n    CHARACTER(LEN=2)              :: intStr\n    CHARACTER(LEN=ESMF_MAXSTR)    :: myName\n\n    __Iam__('SetServices')\n\n\n    lgr => logging%get_logger('GCHPchem')\n\n    !=======================================================================\n    ! Set services begins here\n    !=======================================================================\n\n    ! Set up traceback info\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! NOTE: We need to use COMP_NAME for mapl_acg.pl script\n    COMP_NAME = TRIM( compName )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::SetServices'\n\n    ! Root CPU? \n    am_I_Root = MAPL_am_I_Root()    \n\n    !=======================================================================\n    ! Wrap internal state for storing in this gridded component\n    ! Rename this to a \"legacy state\"\n    !=======================================================================\n    ALLOCATE( myState, stat=STATUS )\n    _VERIFY(STATUS)\n    wrap%ptr => myState\n\n    !=======================================================================\n    ! Define an ESMF Config object from the Resource file and set it\n    ! as an \"internal state\" of the GEOSCHEMchem gridded component\n    !=======================================================================\n    myState%myCF = ESMF_ConfigCreate(__RC__)\n\n#if defined( MODEL_GEOS )\n    call ESMF_ConfigLoadFile( myState%myCF, 'GEOSCHEMchem_GridComp.rc', __RC__)\n#else\n    call ESMF_ConfigLoadFile( myState%myCF, 'GCHP.rc', __RC__)\n#endif\n\n#if !defined( MODEL_GEOS )\n    ! Get generic state object\n    CALL MAPL_GetObjectFromGC( GC, STATE, __RC__ )\n    call MAPL_GetResource( STATE, IsCTM, label='GEOSChem_CTM:', &\n                           default=1, rc=status )\n    _VERIFY(STATUS)\n#ifdef RRTMG\n    call MAPL_GetResource( STATE, Read_Dyn_Heating_Int, label='IMPORT_DYN_HEATING:', & \n                           default=0, rc=status )\n    _VERIFY(STATUS)\n    Read_Dyn_Heating = (Read_Dyn_Heating_Int .gt. 0)\n#else\n    Read_Dyn_Heating = .False.\n#endif\n#endif\n\n    !=======================================================================\n    !                 %%% ESMF Functional Services %%%\n    !=======================================================================\n\n    ! Set the Initialize, Run, Finalize entry points\n    CALL MAPL_GridCompSetEntryPoint( GC, ESMF_METHOD_INITIALIZE,  &\n                                     Initialize_, __RC__ )\n#if defined( MODEL_GEOS )\n    CALL MAPL_GridCompSetEntryPoint( GC, ESMF_METHOD_RUN, Run1, __RC__ )\n#endif\n    CALL MAPL_GridCompSetEntryPoint( GC, ESMF_METHOD_RUN, Run2, __RC__ )\n    CALL MAPL_GridCompSetEntryPoint( GC, ESMF_METHOD_FINALIZE,  &\n                                     Finalize_, __RC__ )\n\n    ! Store internal state with Config object in the gridded component\n    CALL ESMF_UserCompSetInternalState( GC, 'GEOSCHEM_State', wrap, STATUS )\n    _VERIFY(STATUS)\n\n#if defined(MODEL_GEOS)\n    CALL GEOS_AeroSetServices  ( GC, DoAERO, __RC__ )\n    CALL GEOS_CarbonSetServices( GC, myState%myCF, __RC__ )\n#endif\n\n    !=======================================================================\n    !                    %%% MAPL Data Services %%%\n    !=======================================================================\n!EOC\n!BOP\n!\n! !IMPORT STATE:\n!\n#if defined( MODEL_GEOS )\n#   include \"GEOSCHEMCHEM_ImportSpec___.h\"\n#else\n#   include \"GCHPchem_ImportSpec___.h\"\n#endif\n\n#if !defined( MODEL_GEOS )\n    call MAPL_AddImportSpec(GC, &\n       SHORT_NAME         = 'PLE',  &\n       LONG_NAME          = 'pressure_level_edges',  &\n       UNITS              = 'Pa', &\n       PRECISION          = ESMF_KIND_R8, &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationEdge,    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddImportSpec(GC, &\n       SHORT_NAME         = 'DryPLE',  &\n       LONG_NAME          = 'dry_pressure_level_edges',  &\n       UNITS              = 'Pa', &\n       PRECISION          = ESMF_KIND_R8, &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationEdge,    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddImportSpec(GC, &\n       SHORT_NAME         = 'AREA',  &\n       LONG_NAME          = 'Grid horizontal area',  &\n       UNITS              = 'm2', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       PRECISION          = ESMF_KIND_R8, &\n       RC=STATUS  )\n    _VERIFY(STATUS)\n\n#ifdef RRTMG\n    If (Read_Dyn_Heating) Then\n       call MAPL_AddImportSpec(GC, &\n          SHORT_NAME         = 'DynHeating', &\n          LONG_NAME          = 'dynamical_heating',  &\n          UNITS              = 'K_day-1', &\n          DIMS               = MAPL_DimsHorzVert,    &\n          VLOCATION          = MAPL_VLocationCenter,  &\n                                                         RC=STATUS  )\n       _VERIFY(STATUS)\n    End If\n#endif\n#endif\n\n    !=======================================================================\n    ! Get meteorology vertical index orientation and ExtData version.\n    ! Whether met will be flipped to be bottom-up is dependent on ExtData\n    ! version (1G requires flipping here, while 2G already flipped by MAPL)\n    !=======================================================================\n    call ESMF_ConfigGetAttribute(myState%myCF,value=use_extdata2g, &\n         label='USE_EXTDATA2G:', Default=.false., __RC__ )\n\n    call ESMF_ConfigGetAttribute(myState%myCF,value=met_wind_is_top_down, &\n         label='MET_WIND_IS_TOP_DOWN:', Default=.false., __RC__ )\n\n    call ESMF_ConfigGetAttribute(myState%myCF,value=met_humidity_is_top_down, &\n         label='MET_HUMIDITY_IS_TOP_DOWN:', Default=.false., __RC__ )\n\n    call ESMF_ConfigGetAttribute(myState%myCF,value=met_nonadv_is_top_down, &\n         label='MET_NONADVECTION_IS_TOP_DOWN:', Default=.false., __RC__ )\n\n    ! Print information to log about expectation of vertical direction of met-fields\n    if ( use_extdata2g ) then\n       call lgr%info('Using MAPL ExtData2G; all ''top-down'' meteorological data is automatically flipped to ''bottom-up'' within MAPL')\n    else\n       if (met_wind_is_top_down) then\n          call lgr%info('Configured to expect ''top-down'' wind met-field imports in Chem_GridCompMod')\n       else\n          call lgr%info('Configured to expect ''bottom-up'' wind met-field imports in Chem_GridCompMod')\n       end if\n       if (met_humidity_is_top_down) then\n          call lgr%info('Configured to expect ''top-down'' for humidity met-field imports in Chem_GridCompMod')\n       else\n          call lgr%info('Configured to expect ''bottom-up'' for humidity met-field imports in Chem_GridCompMod')\n       end if\n       if (met_nonadv_is_top_down) then\n          call lgr%info('Configured to expect ''top-down'' for non-advection met-field imports in Chem_GridCompMod')\n       else\n          call lgr%info('Configured to expect ''bottom-up'' for non-advection met-field imports in Chem_GridCompMod')\n       end if\n    endif\n\n#if defined( MODEL_GEOS )\n    ! Define imports to fill met fields needed for lightning\n    CALL MetVars_For_Lightning_Init( GC, MyState%myCF, __RC__ )\n#endif\n\n#ifdef ADJOINT\n    CALL ESMF_ConfigGetAttribute( myState%myCF, useCFMaskFile, &\n         Label=\"USE_CF_MASK_FILE:\", Default=.false., __RC__ )\n\n    IF (useCFMaskFile) THEN\n       call MAPL_AddImportSpec(GC,                    &\n            SHORT_NAME         = 'CFN_MASK',            &\n            LONG_NAME          = 'cost_function_Mask',  &\n            UNITS              = '1',                   &\n            DIMS               = MAPL_DimsHorzVert,     &\n            VLOCATION          = MAPL_VLocationCenter,  &\n            RC=STATUS  )\n       _VERIFY(STATUS)\n    Endif\n#endif\n\n!\n! !EXPORT STATE:\n!\n    ! Export delta pressure from internal state for first timestep\n    ! pressure scaling before advection, to conserve mass in\n    ! restart file. Use name DELPDRY to not conflict with name\n    ! DELP_DRY used in restart file and internal state.\n    call MAPL_AddExportSpec(GC, &\n       SHORT_NAME         = 'DELPDRY',                       &\n       LONG_NAME          = 'Delta dry pressure across box', &\n       UNITS              = 'hPa',                &\n       PRECISION          = ESMF_KIND_R8,         &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter, &\n       RC=STATUS  )\n    _VERIFY(STATUS)\n!\n! !INTERNAL STATE:\n!\n#if defined( MODEL_GEOS )\n#   include \"GEOSCHEMCHEM_InternalSpec___.h\"\n#else\n#   include \"GCHPchem_InternalSpec___.h\"\n#endif\n\n!------ Species in restart file ------\n\n#if defined( MODEL_GEOS )\n    ! Determine if non-advected species shall be included in restart file\n    CALL ESMF_ConfigGetAttribute( myState%myCF, DoIt, &\n                                  Label = \"Shortlived_species_in_restart:\", &\n                                  Default = 1, __RC__ )\n    IF ( DoIt==1 ) THEN\n       SpcRestartAttr  = MAPL_RestartOptional\n       SpcInRestart = .TRUE.\n    ELSE\n       SpcRestartAttr  = MAPL_RestartSkip\n       SpcInRestart = .FALSE.\n    ENDIF\n#else\n    ! Determine if all species (SPC_*) are required in initial restart file\n    CALL ESMF_ConfigGetAttribute( myState%myCF, DoIt, &\n                                  Label = \"INITIAL_RESTART_SPECIES_REQUIRED:\", &\n                                  Default = 1, __RC__ )\n    IF ( DoIt == 1 ) THEN\n       SpcRestartAttr  = MAPL_RestartRequired\n    ELSE\n       SpcRestartAttr  = MAPL_RestartOptional\n    ENDIF\n#endif\n\n!-- Read in species from geoschem_config.yml and set FRIENDLYTO\n#if defined( MODEL_GEOS )\n    ! Check if species are friendly to moist\n    CALL ESMF_ConfigGetAttribute( myState%myCF, DoIt, &\n                                  Label = \"Species_friendly_to_moist:\",&\n                                  Default = 0, &\n                                  __RC__ )\n    FriendMoist = (DoIt==1)\n    IF ( MAPL_am_I_Root() ) THEN\n       WRITE(*,*) 'GCC species friendly to MOIST: ',FriendMoist\n    ENDIF\n    ! Check if species are friendly to GAAS\n    CALL ESMF_ConfigGetAttribute( myState%myCF, DoIt, &\n                                  Label = \"Species_friendly_to_GAAS:\",&\n                                  Default = 0, &\n                                  __RC__ )\n    FriendGAAS = (DoIt==1)\n    IF ( MAPL_am_I_Root() ) THEN\n       WRITE(*,*) 'GCC species friendly to GAAS: ',FriendGAAS\n    ENDIF\n\n    ! Determine if non-advected species shall be included in restart file\n    CALL ESMF_ConfigGetAttribute( myState%myCF, DoIt, &\n                                  Label = \"Shortlived_species_in_restart:\", &\n                                  Default = 1, __RC__ )\n    IF ( DoIt==1 ) THEN\n       SpcRestartAttr  = MAPL_RestartOptional\n       SpcInRestart = .TRUE.\n    ELSE\n       SpcRestartAttr  = MAPL_RestartSkip\n       SpcInRestart = .FALSE.\n    ENDIF\n    ! Check if we want to use a reduced set of species for transport\n    SpcsBlacklist(:) = ''\n    nBlacklist = 0\n    CALL ESMF_ConfigGetAttribute( myState%myCF, DoIt, &\n                                  Label = \"Reduce_transport_species:\", &\n                                  Default = 0, __RC__ )\n    ReduceSpc = ( DoIt==1 )\n    ! Get list of blacklisted species\n    IF ( ReduceSpc ) THEN\n       CALL ESMF_ConfigGetAttribute( myState%myCF, Blacklist, &\n                                     Label = \"Transport_blacklist:\", &\n                                     Default = 'CFC11,CFC12', __RC__ )\n       IF ( TRIM(ADJUSTL(Blacklist)) /= '' ) THEN\n          CALL STRSPLIT( Blacklist, ',', SpcsBlacklist, nBlacklist )\n       ENDIF\n    ENDIF\n\n    ! Sulfur-nitrogen-ammonia water content computed in Isorropia/HETP\n    ! after needed in RDAER\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'AeroH2O_SNA',  &\n       LONG_NAME          = 'Sulfur-nitrogen-ammonia water content',  &\n       UNITS              = 'g/m3', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n!       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = 'GEOSCHEMCHEM',    __RC__ )\n\n#endif\n\n    ! Open geoschem_config.yml to find the sim name and transported species\n    IU_GEOS = findFreeLun()\n    OPEN( IU_GEOS, FILE='geoschem_config.yml', STATUS='OLD', IOSTAT=IOS )\n    IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_GEOS, 'READ_SPECIES_FROM_FILE:1' )\n    DO\n       READ( IU_GEOS, '(a)', IOSTAT=IOS ) LINE\n       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_GEOS, 'READ_SPECIES_FROM_FILE:2' )\n       LINE = ADJUSTL( ADJUSTR( LINE ) )\n       IF ( INDEX( LINE, 'name' ) > 0 ) THEN\n          CALL STRSPLIT( line, ':', SUBSTRS, N )\n          SimType = ADJUSTL( ADJUSTR( SUBSTRS(2) ) )\n       ENDIF\n       IF ( INDEX( LINE, 'transported_species' ) > 0 ) EXIT\n    ENDDO\n\n    ! Read in all advected species names and add them to internal state\n    NADV = 0\n    DO WHILE ( LEN_TRIM( line ) > 0 )\n       READ( IU_GEOS, '(a)', IOSTAT=IOS ) LINE\n       EOF = IOS < 0\n       IF ( EOF ) EXIT !Simply exit when the file ends (bmy, 12 Jan 2023)\n       IF ( IOS > 0 ) CALL IOERROR( IOS, IU_GEOS, 'READ_SPECIES_FROM_FILE:3' )\n       LINE = ADJUSTL( ADJUSTR( LINE ) )\n       IF ( INDEX( LINE, 'passive_species' ) > 0 ) EXIT\n       CALL STRSPLIT( LINE, '-', SUBSTRS, N )\n       IF ( INDEX( LINE, '-' ) > 0 ) THEN\n          substrs(1) = ADJUSTL( ADJUSTR( substrs(1) ) )\n\n          ! Remove quotes (i.e. 'NO' -> NO)\n          J = INDEX( substrs(1), \"'\" )\n          IF ( J > 0 ) THEN\n             substrs(1) = substrs(1)(J+1:)\n             J = INDEX( substrs(1), \"'\" )\n             IF ( J > 0 ) substrs(1) = substrs(1)(1:J-1)\n          ENDIF\n\n#if defined( MODEL_GEOS )\n          ! %%% GEOS-Chem in GEOS %%%\n          ! Define friendliness to dynamics / turbulence\n          MYFRIENDLIES = 'DYNAMICS:TURBULENCE'\n          IF ( FriendMoist ) THEN\n             MYFRIENDLIES = TRIM(MYFRIENDLIES)//':MOIST'\n          ENDIF\n          FullName = TRIM(SUBSTRS(1))\n          ! Check if this species is blacklisted\n          IF ( nBlacklist > 0 ) THEN\n             DO I=1,nBlacklist\n                IF ( TRIM(SpcsBlacklist(I))==TRIM(FullName) ) THEN\n                   MYFRIENDLIES = TRIM(COMP_NAME)\n                   EXIT\n                ENDIF\n             ENDDO\n          ENDIF\n          ! Make some species also friendly to GAAS\n          IF ( FriendGAAS ) THEN\n             IF ( TRIM(FullName)== 'DST1' .OR. &\n                  TRIM(FullName)== 'DST2' .OR. &\n                  TRIM(FullName)== 'DST3' .OR. &\n                  TRIM(FullName)== 'DST4' .OR. &\n                  TRIM(FullName)== 'SALA' .OR. &\n                  TRIM(FullName)== 'SALC' .OR. &\n                  TRIM(FullName)== 'OCPI' .OR. &\n                  TRIM(FullName)== 'SOAS' .OR. &\n                  TRIM(FullName)== 'OCPO' .OR. &\n                  TRIM(FullName)== 'BCPI' .OR. &\n                  TRIM(FullName)== 'BCPO' .OR. &\n                  TRIM(FullName)== 'NH4'  .OR. &\n                  TRIM(FullName)== 'NIT'  .OR. &\n                  TRIM(FullName)== 'NITs' .OR. &\n                  TRIM(FullName)== 'HMS'  .OR. &\n                  TRIM(FullName)== 'SO4'  ) THEN\n                MYFRIENDLIES = TRIM(MYFRIENDLIES)//':GAAS'\n             ENDIF \n          ENDIF \n\n          ! Now add to internal state\n          CALL MAPL_AddInternalSpec(GC,                                     &\n               SHORT_NAME      = TRIM(SPFX)//TRIM(SUBSTRS(1)),              &\n               LONG_NAME       = TRIM(FullName)//                           &\n                                 ' mass mixing ratio total air',            &\n               UNITS           = 'kg kg-1',                                 &\n               DIMS            = MAPL_DimsHorzVert,                         &\n               VLOCATION       = MAPL_VLocationCenter,                      &\n            !!!PRECISION       = ESMF_KIND_R8,                              &\n               FRIENDLYTO      = TRIM(MYFRIENDLIES),                        &\n               RC              = RC                                        )\n\n          ! Update count of advected species\n          Nadv = Nadv + 1\n          AdvSpc(Nadv) = TRIM(SUBSTRS(1))\n\n          ! verbose\n          if(MAPL_am_I_Root()) write(*,*)                                   &\n               'GCC added to internal: '//TRIM(SPFX)//TRIM(SUBSTRS(1)),     &\n               '; Friends: ', TRIM(MYFRIENDLIES)\n#else\n          !%%% GEOS-Chem in GCHP ###\n          CALL MAPL_AddInternalSpec(GC, &\n               SHORT_NAME      = TRIM(SPFX) // TRIM(SUBSTRS(1)),            &\n               LONG_NAME       = TRIM(SUBSTRS(1)),                          &\n               UNITS           = 'mol mol-1',                               &\n               DIMS            = MAPL_DimsHorzVert,                         &\n               VLOCATION       = MAPL_VLocationCenter,                      &\n               PRECISION       = ESMF_KIND_R8,                              &\n               FRIENDLYTO      = 'DYNAMICS:TURBULENCE:MOIST',               &\n               RESTART         = SpcRestartAttr,                               &\n               RC              = RC                                       )\n\n          ! Add to list of transported speces\n          NADV = NADV + 1\n          AdvSpc(NADV) = TRIM(SUBSTRS(1))\n#endif\n#ifdef ADJOINT\n          !%%%% GEOS-Chem in GCHP Adjoint %%%%\n          if (MAPL_am_I_Root())                                             &\n               WRITE(*,*) '  Adding internal spec for '''//TRIM(SPFX) //    &\n               TRIM(SUBSTRS(1)) // '_ADJ'''\n          call MAPL_AddInternalSpec(GC, &\n               SHORT_NAME      = TRIM(SPFX) // TRIM(SUBSTRS(1)) // '_ADJ',  &\n               LONG_NAME       = TRIM(SUBSTRS(1)) // ' adjoint variable',   &\n               UNITS           = 'mol mol-1',                               &\n               DIMS            = MAPL_DimsHorzVert,                         &\n               VLOCATION       = MAPL_VLocationCenter,                      &\n               PRECISION       = ESMF_KIND_R8,                              &\n               FRIENDLYTO      = 'DYNAMICS:TURBULENCE:MOIST',               &\n               RESTART         = MAPL_RestartSkip,                          &\n               RC              = RC                                        )\n#endif\n       ENDIF\n    ENDDO\n    CLOSE( IU_GEOS )\n\n!-- Add all non-advected species from KPP-based simulations\n!-- (but don't add dummy species).  KPP-based simulations now\n!-- include fullchem, Hg, and carbon.\n    IF ( TRIM( simType ) == 'fullchem'      .or.                            &\n         TRIM( simType ) == 'Hg'            .or.                            &\n         TRIM( simType ) == 'carbon' ) THEN\n       DO I=1,NSPEC\n          FOUND = .false.\n\n#if defined( MODEL_GEOS )\n          ! Don't need to do anything if short-lived species are not in\n          ! restart file\n          IF ( .NOT. SpcInRestart ) CYCLE\n#endif\n\n          ! Skip dummy RR species for prod/loss diagnostic (mps, 8/23/16)\n          SpcName = ADJUSTL( Spc_Names(I) )\n          IF ( SpcName(1:2) == 'RR' ) CYCLE\n\n          DO J=1,Nadv !Size of AdvSpc\n             IF (trim(AdvSpc(J)) .eq. trim(SpcName)) THEN\n                FOUND = .true.\n                EXIT\n             ENDIF\n          END DO\n\n          ! Add non-advected species to internal state\n          IF ( .NOT. Found ) THEN\n#if defined( MODEL_GEOS )\n             !%%%% GEOS-Chem in GEOS %%%%\n             FullName = TRIM(SpcName)\n\n             ! Error trap for POx and LOx. Their species names in the internal\n             ! state must be all caps\n             ! (ckeller, 3/11/19)\n             !IF ( TRIM(SpcName) == 'POx' ) SpcName = 'POX'\n             !IF ( TRIM(SpcName) == 'LOx' ) SpcName = 'LOX'\n\n             ! Set some long names manually ...\n             SELECT CASE ( TRIM(SpcName) )\n                CASE ('OH')\n                   FullName = 'Hydroxyl radical (OH, MW = 17.01 g mol-1)'\n                CASE ('HO2')\n                   FullName = 'Hydroperoxyl radical (HO2, MW = 33.01 g mol-1)'\n                CASE ('O')\n                   FullName = 'Molecular oxygen (O, MW = 16.01 g mol-1)'\n             END SELECT\n\n             CALL MAPL_AddInternalSpec(GC,                                   &\n                  SHORT_NAME      = TRIM(SPFX)//TRIM(SpcName),               &\n                  LONG_NAME       = TRIM(FullName)//                         &\n                                    ' mass mixing ratio total air',          &\n                  UNITS           = 'kg kg-1',                               &\n               !!!PRECISION       = ESMF_KIND_R8,                            &\n                  DIMS            = MAPL_DimsHorzVert,                       &\n                  FRIENDLYTO      = COMP_NAME,                               &\n                  RESTART         = SpcRestartAttr,                          &\n                  VLOCATION       = MAPL_VLocationCenter,                    &\n                                   __RC__                                   )\n             ! verbose\n             if(MAPL_am_I_Root()) write(*,*)  &\n                  'GCC added to internal: '//TRIM(SPFX)//TRIM(SpcName)\n#else\n             !%%%% GEOS-Chem in GCHP %%%%\n             call MAPL_AddInternalSpec(GC, &\n                  SHORT_NAME      = TRIM(SPFX) // SpcName,                   &\n                  LONG_NAME       = SpcName,                                 &\n                  UNITS           = 'mol mol-1',                             &\n                  PRECISION       = ESMF_KIND_R8,                            &\n                  DIMS            = MAPL_DimsHorzVert,                       &\n                  VLOCATION       = MAPL_VLocationCenter,                    &\n                  RESTART         = SpcRestartAttr,                          &\n                  RC              = STATUS                                  )\n#ifdef ADJOINT\n             !%%%% GEOS-Chem in GCHP ADJOINT %%%%\n             if (MAPL_am_I_Root()) &\n                  WRITE(*,*) '  Adding internal spec for '''//TRIM(SPFX) //  &\n                             TRIM(SpcName) // '_ADJ'''\n             call MAPL_AddInternalSpec(GC,                                   &\n                  SHORT_NAME      = TRIM(SPFX) // TRIM(SpcName) // '_ADJ',   &\n                  LONG_NAME       = SpcName // ' adjoint variable',          &\n                  UNITS           = 'mol mol-1',                             &\n                  PRECISION       = ESMF_KIND_R8,                            &\n                  DIMS            = MAPL_DimsHorzVert,                       &\n                  VLOCATION       = MAPL_VLocationCenter,                    &\n                  RESTART         = MAPL_RestartSkip,                        &\n                  RC              = STATUS                                  )\n#endif\n#endif\n          ENDIF\n       ENDDO\n    ENDIF\n\n#if !defined( MODEL_GEOS )\n    ! Add other internal state variables as real8 for GCHP\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'DryDepNitrogen',  &\n       LONG_NAME          = 'Dry deposited nitrogen',  &\n       UNITS              = 'cm-2s-1', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'WetDepNitrogen',  &\n       LONG_NAME          = 'Wet deposited nitrogen',  &\n       UNITS              = 'cm-2s-1', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'H2O2AfterChem',  &\n       LONG_NAME          = 'Soluble fraction H2O2',  &\n       UNITS              = 'vv-1', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'SO2AfterChem',  &\n       LONG_NAME          = 'Soluble fraction SO2',  &\n       UNITS              = 'vv-1', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'KPPHvalue',  &\n       LONG_NAME          = 'HSAVE for KPP',  &\n       UNITS              = '1', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    ! Sulfur-nitrogen-ammonia water content computed in Isorropia/HETP\n    ! after needed in RDAER\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'AeroH2O_SNA',  &\n       LONG_NAME          = 'Sulfur-nitrogen-ammonia water content',  &\n       UNITS              = 'g/m3', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    ! Sesquiterpene mass per grid box\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'ORVCSESQ',  &\n       LONG_NAME          = 'Sesquiterpenes mass',  &\n       UNITS              = 'kg', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    ! Surface J-values for HEMCO\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'JOH',  &\n       LONG_NAME          = 'Surface J-values for reaction O3 + hv --> O2 + O',  &\n       UNITS              = '1', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'JNO2',  &\n       LONG_NAME          = 'Surface J-values for reaction NO2 + hv --> NO + O',  &\n       UNITS              = '1', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    ! delta dry pressure used to conserve mass across consecutive runs\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'DELP_DRY',  &\n       LONG_NAME          = 'Delta dry pressure across box',  &\n       UNITS              = 'hPa', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n#if defined( RRTMG )\n    ! Stratospheric temperature adjustment accumulated when using RRTMG\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'TSTRAT_ADJ',&\n       LONG_NAME          = 'Stratospheric T adjustment',  &\n       UNITS              = 'K', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n#endif\n    ! Additional outputs useful for unit conversions and post-processing analysis\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'AREA',  &\n       LONG_NAME          = 'Grid horizontal area',  &\n       UNITS              = 'm2', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'BXHEIGHT',  &\n       LONG_NAME          = 'Grid box height (w/r/t dry air)',  &\n       UNITS              = 'm', &\n       DIMS               = MAPL_DimsHorzVert,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n\n    call MAPL_AddInternalSpec(GC, &\n       SHORT_NAME         = 'TropLev',  &\n       LONG_NAME          = 'GEOS-Chem level where the tropopause occurs',  &\n       UNITS              = '1', &\n       DIMS               = MAPL_DimsHorzOnly,    &\n       VLOCATION          = MAPL_VLocationCenter,    &\n       PRECISION          = ESMF_KIND_R8, &\n       FRIENDLYTO         = trim(COMP_NAME),    &\n                                                      RC=STATUS  )\n    _VERIFY(STATUS)\n#endif\n\n#if defined( MODEL_GEOS )\n    IF ( SimType == 'fullchem' ) THEN\n       !-- Add two exra advected species for use in family transport  (Manyin)\n       CALL MAPL_AddInternalSpec(GC,                                    &\n            SHORT_NAME         = 'SPC_Bry',                               &\n            LONG_NAME          = 'Bromine group for use in transport',    &\n            UNITS              = 'kg kg-1',                               &\n!!!          PRECISION          = ESMF_KIND_R8,                            &\n            DIMS               = MAPL_DimsHorzVert,                       &\n            FRIENDLYTO         = 'DYNAMICS',                              &\n            RESTART            = MAPL_RestartSkip,                        &\n            VLOCATION          = MAPL_VLocationCenter,                    &\n            __RC__ )\n       if(MAPL_am_I_Root()) write(*,*) 'GCC added to internal: SPC_Bry; Friendly to: DYNAMICS'\n       \n       CALL MAPL_AddInternalSpec(GC,                                    &\n            SHORT_NAME         = 'SPC_Cly',                               &\n            LONG_NAME          = 'Chlorine group for use in transport',   &\n            UNITS              = 'kg kg-1',                               &\n!!!          PRECISION          = ESMF_KIND_R8,                            &\n            DIMS               = MAPL_DimsHorzVert,                       &\n            FRIENDLYTO         = 'DYNAMICS',                              &\n            RESTART            = MAPL_RestartSkip,                        &\n            VLOCATION          = MAPL_VLocationCenter,                    &\n            __RC__ )\n       if(MAPL_am_I_Root()) write(*,*) 'GCC added to internal: SPC_Cly; Friendly to: DYNAMICS'\n    ENDIF\n    \n    ! Include specific humidity in transport tracers simulation checkpoints for\n    ! post-processing unit conversions\n    IF ( SimType == 'TransportTracers' ) THEN\n       CALL MAPL_AddInternalSpec(GC,                                    &\n            SHORT_NAME         = 'SpecificHumidity',                      &\n            LONG_NAME          = 'specific_humidity',                     &\n            UNITS              = 'kg kg-1',                               &\n            DIMS               = MAPL_DimsHorzVert,                       &\n            VLOCATION          = MAPL_VLocationCenter,                    &\n            __RC__ )\n    ENDIF\n#endif\n\n!\n! !EXTERNAL STATE:\n!\n#if defined( MODEL_GEOS )\n#   include \"GEOSCHEMCHEM_ExportSpec___.h\"\n#else\n#   include \"GCHPchem_ExportSpec___.h\"\n#endif\n\n    ! Read HISTORY config file and add exports for unique items\n    CALL ESMF_ConfigGetAttribute( myState%myCF, HistoryConfigFile, &\n                                  Label=\"HISTORY_CONFIG:\",         &\n                                  Default=\"HISTORY.rc\", __RC__ )\n    CALL HistoryExports_SetServices( MAPL_am_I_Root(), HistoryConfigFile, &\n                                     GC, HistoryConfig, __RC__ )\n\n!EOP\n!BOC\n\n#if defined( MODEL_GEOS )\n    ! Add provider services, if any (AERO, RATS, Analysis Ox)\n    CALL GEOS_CheckRATSandOx( am_I_Root, GC, __RC__ )\n\n    ! Analysis options\n    CALL GEOS_AnaInit( am_I_Root, GC, myState%myCF, ANAPHASE, __RC__ )\n\n#endif\n\n    ! OLSON\n    DO T = 1, NSURFTYPE\n       landTypeInt = T-1\n       WRITE ( landTypeStr, '(I2.2)' ) landTypeInt\n       importName = 'OLSON' // TRIM(landTypeStr)\n       CALL MAPL_AddImportSpec(GC,                                  &\n          SHORT_NAME         = importName,                          &\n          LONG_NAME          = 'OLSON_land_by_type',                &\n          UNITS              = 'unitless',                          &\n          DIMS               = MAPL_DimsHorzOnly,                   &\n          RESTART            = MAPL_RestartSkip,                    &\n                                                            __RC__ )\n    ENDDO\n\n    ! Set HEMCO services\n    ! --------------------\n    CALL ESMF_ConfigGetAttribute( myState%myCF, HcoConfigFile, &\n                                  Label=\"HEMCO_CONFIG:\", &\n                                  Default=\"HEMCO_Config.rc\", __RC__ )\n    CALL HCO_SetServices( MAPL_am_I_Root(), GC, HcoConfig,  &\n                          TRIM(HcoConfigFile), __RC__ )\n\n    ! Set the Profiling timers\n    ! ------------------------\n    CALL MAPL_TimerAdd(GC, NAME=\"INITIALIZE\", RC=status)\n    _VERIFY(status)\n    CALL MAPL_TimerAdd(GC, NAME=\"RUN\", RC=status)\n    _VERIFY(status)\n    CALL MAPL_TimerAdd(GC, NAME=\"FINALIZE\", RC=status)\n    _VERIFY(status)\n\n    CALL MAPL_TimerAdd(GC, NAME=\"DO_CHEM\", RC=status)\n    _VERIFY(status)\n    CALL MAPL_TimerAdd(GC, NAME=\"CP_BFRE\", RC=status)\n    _VERIFY(status)\n    CALL MAPL_TimerAdd(GC, NAME=\"CP_AFTR\", RC=status)\n    _VERIFY(status)\n\n    ! More timers to be called in gchp_chunk_run\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_CONV\"  , __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_EMIS\"  , __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_DRYDEP\", __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_FLUXES\", __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_TURB\"  , __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_CHEM\"  , __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_WETDEP\", __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_DIAGN\" , __RC__)\n    CALL MAPL_TimerAdd(GC, NAME=\"GC_RAD\"   , __RC__)\n\n#if defined( MODEL_GEOS )\n    IF (Input_Opt%GC_VMBarrier_Run2) THEN\n       CALL MAPL_TimerAdd(GC, NAME=\"GC_VMBarrier_Run2\"  , __RC__)\n    ENDIF\n#endif\n\n    ! Generic Set Services\n    ! --------------------\n    CALL MAPL_GenericSetServices( GC, RC=status )\n    _VERIFY(status)\n\n    !=======================================================================\n    ! All done\n    !=======================================================================\n    _RETURN(ESMF_SUCCESS)\n\n  END SUBROUTINE SetServices\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Initialize_\n!\n! !DESCRIPTION: Initialize_ is the initialize method of the GEOSCHEMchem\n!  gridded component.  This is a simple ESMF/MAPL wrapper which calls down\n!  to the Initialize method of the GEOS-Chem column chemistry code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Initialize_( GC, Import, Export, Clock, RC )\n!\n! !USES:\n!\n    USE TIME_MOD,  ONLY : GET_TS_CHEM, GET_TS_EMIS\n    USE TIME_MOD,  ONLY : GET_TS_DYN,  GET_TS_CONV\n    USE TIME_MOD,  ONLY : GET_TS_RAD\n    Use pfLogger,  ONLY : Logger\n#if defined( MODEL_GEOS )\n    USE GEOS_INTERFACE,       ONLY : GEOS_AddSpecInfoForMoist\n    USE GEOS_AeroCoupler,     ONLY : GEOS_AeroInit\n    USE GEOS_CarbonInterface, ONLY : GEOS_CarbonInit\n!    USE TENDENCIES_MOD, ONLY : Tend_CreateClass\n!    USE TENDENCIES_MOD, ONLY : Tend_Add\n#endif\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC       ! Ref to GridComp\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: Import   ! Import State object\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: Export   ! Export State object\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock    ! ESMF clock object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!  We call routine Extract_ to return various values (i.e. grid parameters,\n!  start & end dates, PET information, etc.) from the ESMF/MAPL environment.\n!  We then pass those to GEOS-Chem via routine GCHP_CHUNK_INIT, which is\n!  located in GEOS-Chem module ./GEOS-Chem/ESMF/gchp_chunk_mod.F90.\n!\n! !REVISION HISTORY:\n!  06 Dec 2009 - A. da Silva - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(ESMF_Grid)             :: Grid        ! ESMF Grid object\n    TYPE(ESMF_Config)           :: MaplCF      ! ESMF Config obj (MAPL.rc)\n    TYPE(ESMF_Config)           :: GeosCF      ! ESMF Config obj (GEOSCHEM*.rc)\n\n    ! Scalars\n    LOGICAL                     :: am_I_Root   ! Are we on the root PET?\n    INTEGER                     :: myPet       ! # of the PET we are on\n    INTEGER                     :: NPES        ! # of total PETs in MPI world\n    INTEGER                     :: nymdB       ! GMT date @ start of simulation\n    INTEGER                     :: nymdE       ! GMT date @ end of simulation\n    INTEGER                     :: nymd        ! GMT date @ current time\n    INTEGER                     :: nhmsB       ! GMT time @ start of simulation\n    INTEGER                     :: nhmsE       ! GMT time @ end of simulation\n    INTEGER                     :: nhms        ! GMT time @ current time\n    INTEGER                     :: IM          ! # of longitudes on this PET\n    INTEGER                     :: JM          ! # of latitudes  on this PET\n    INTEGER                     :: LM          ! # of levels     on this PET\n    INTEGER                     :: value_LLSTRAT ! # of strat. levels\n    INTEGER                     :: IM_WORLD    ! # of longitudes in global grid\n    INTEGER                     :: JM_WORLD    ! # of latitudes  in global grid\n    INTEGER                     :: LM_WORLD    ! # of levels     in global grid\n    REAL                        :: tsChem      ! Chemistry timestep [s]\n    REAL                        :: tsDyn       ! Dynamic timestep [s]\n    REAL                        :: tsRad       ! RRTMG timestep [s]\n    CHARACTER(LEN=5)            :: petStr      ! String for PET #\n    CHARACTER(LEN=ESMF_MAXSTR)  :: compName    ! Name of gridded component\n\n    ! time step error checks\n    REAL                         :: ChemTS, EmisTS, RadTS\n\n    ! Pointer arrays\n    REAL(ESMF_KIND_R4),  POINTER :: lonCtr(:,:) ! Lon centers on this PET [rad]\n    REAL(ESMF_KIND_R4),  POINTER :: latCtr(:,:) ! Lat centers on this PET [rad]\n\n    INTEGER                      :: I, J, nFlds, mpiComm\n    TYPE(ESMF_STATE)             :: INTSTATE\n    TYPE(ESMF_Field)             :: GcFld\n\n    ! Species information\n    TYPE(Species), POINTER       :: SpcInfo\n\n    CHARACTER(LEN=ESMF_MAXSTR)   :: fieldName\n\n#if defined( MODEL_GEOS )\n    ! Does GEOS-Chem restart file exist?\n    ! Before broadcasting, we check if there is an import restart file for\n    ! GEOS-Chem. This variable is then passed to Input_Opt after\n    ! initialization (and CPU broadcasting) of all GEOS-Chem variables.\n    LOGICAL                      :: haveImpRst\n\n    TYPE(MAPL_MetaComp), POINTER :: STATE\n\n    ! To read various options\n    INTEGER                      :: DoIt\n    REAL                         :: Val, OzPause\n\n    LOGICAL                      :: DynFriend, IsPresent, FRIENDLY\n    REAL, POINTER                :: Ptr3D(:,:,:) => NULL()\n\n#else\n    INTEGER                      :: N, trcID\n    TYPE(MAPL_MetaComp), POINTER :: STATE => NULL()\n    REAL(ESMF_KIND_R8), POINTER  :: Ptr3D(:,:,:) => NULL()\n    REAL(ESMF_KIND_R8), POINTER  :: Ptr3D_int(:,:,:) => NULL()\n    REAL(ESMF_KIND_R8), POINTER  :: Ptr3D_exp(:,:,:) => NULL()\n#endif\n\n    ! Internal run alarms\n    type(GC_run_alarms), pointer :: GC_alarms\n    type(GCRA_wrap)              :: GC_alarm_wrapper\n    TYPE(ESMF_Time)              :: currTime       ! Current (start) time\n    TYPE(ESMF_Time)              :: ringTime\n    type(ESMF_TimeInterval)      :: tsRad_TI\n    type(ESMF_TimeInterval)      :: tsChem_TI\n    type (ESMF_Calendar)         :: CAL\n    INTEGER                      :: yyyy, mm, dd   ! Year, month, day\n    INTEGER                      :: h,    m,  s    ! Hour, minute, seconds\n    INTEGER                      :: doy\n\n    INTEGER                     :: IL_WORLD, JL_WORLD    ! # lower indices in global grid\n    INTEGER                     :: IU_WORLD, JU_WORLD    ! # upper indices in global grid\n\n    __Iam__('Initialize_')\n\n    !=======================================================================\n    ! Initialization\n    !=======================================================================\n\n    ! Get my name and set-up traceback handle\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::Initialize_'\n\n    ! Get my MAPL_Generic state\n    ! -------------------------\n    CALL MAPL_GetObjectFromGC(GC, STATE, RC=STATUS)\n    _VERIFY(STATUS)\n\n    !  Start timers\n    !  ------------\n    CALL MAPL_TimerOn( STATE, \"TOTAL\")\n    CALL MAPL_TimerOn( STATE, \"INITIALIZE\")\n\n    ! Initialize MAPL Generic\n    CALL MAPL_GenericInitialize( GC, Import, Export, Clock, __RC__ )\n\n    ! AdjointChekpoint is not defined\n!#ifdef ADJOINT\n!    CALL MAPL_GenericStateClockAdd( GC, name='--AdjointCheckpoint', __RC__ )\n!#endif\n\n    ! Get Internal state.\n    CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=INTSTATE, __RC__ )\n\n    ! Initialize GEOS-Chem Input_Opt fields to zeros or equivalent\n    CALL Set_Input_Opt( MAPL_am_I_Root(), Input_Opt, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling Set_Input_Opt')\n\n    ! Grab the logger for this component\n    call MAPL_GetLogger(GC, Input_Opt%lgr, __RC__)\n    Input_Opt%compname = Trim(compname)\n\n    ! Root CPU?\n    am_I_Root = MAPL_am_I_Root()\n\n    ! Get various parameters from the ESMF/MAPL framework\n#if defined( MODEL_GEOS )\n    ! Note: variable haveImpRst must not yet be written into Input_Opt yet\n    ! since the variables of Input_Opt may be 'erased' during initialization\n    ! of GEOS-Chem.\n#endif\n    CALL Extract_( GC,                        &  ! Ref to this Gridded Comp\n                   Clock,                     &  ! ESMF Clock object\n                   Grid        = Grid,        &  ! ESMF Grid object\n                   MaplCF      = MaplCF,      &  ! AGCM.rc/GCHP.rc config object\n                   GeosCF      = GeosCF,      &  ! GEOSCHEM*.rc Config object\n                   IM          = IM,          &  ! # of longitudes on this PET\n                   JM          = JM,          &  ! # of latitudes  on this PET\n                   LM          = LM,          &  ! # of levels     on this PET\n                   IM_WORLD    = IM_WORLD,    &  ! # of lons in global grid\n                   JM_WORLD    = JM_WORLD,    &  ! # of lats  in global grid\n                   LM_WORLD    = LM_WORLD,    &  ! # of levels in global grid\n                   IL_WORLD    = IL_WORLD,    &  ! start index of lons in global grid on this PET\n                   IU_WORLD    = IU_WORLD,    &  ! end   index of lons in global grid on this PET\n                   JL_WORLD    = JL_WORLD,    &  ! start index of lats in global grid on this PET\n                   JU_WORLD    = JU_WORLD,    &  ! end   index of lats in global grid on this PET\n                   nymdB       = nymdB,       &  ! YYYYMMDD @ start of sim\n                   nhmsB       = nhmsB,       &  ! hhmmss   @ end   of sim\n                   nymdE       = nymdE,       &  ! YYYMMDD  @ start of sim\n                   nhmsE       = nhmsE,       &  ! hhmmss   @ end   of sim\n                   tsChem      = tsChem,      &  ! Chemistry timestep [seconds]\n                   tsRad       = tsRad,       &  ! RRTMG timestep [seconds]\n                   tsDyn       = tsDyn,       &  ! Dynamics timestep  [seconds]\n                   localPet    = myPet,       &  ! PET # that we are on now\n                   petCount    = NPES,        &  ! Number of PETs in MPI World\n                   mpiComm     = mpiComm,     &  ! MPI Communicator Handle\n                   lonCtr      = lonCtr,      &  ! This PET's lon ctrs [radians]\n                   latCtr      = latCtr,      &  ! This PET's lat ctrs [radians]\n#if defined( MODEL_GEOS )\n\t\t   haveImpRst  = haveImpRst,  &  ! Does import restart exist?\n#endif\n                   __RC__                      )\n\n    ! Set MPI values in Input_Opt\n    Input_Opt%thisCPU = myPet\n    Input_Opt%MPIComm = mpiComm\n    Input_Opt%numCPUs = NPES\n    Input_Opt%isMPI   = .true.\n    if ( MAPL_am_I_Root() ) Input_Opt%amIRoot = .true.\n\n#if defined( MODEL_GEOS )\n    Input_Opt%haveImpRst = haveImpRst\n#endif\n\n    ! MSL - shift from 0 - 360 to -180 - 180 degree grid\n    where (lonCtr .gt. MAPL_PI ) lonCtr = lonCtr - 2*MAPL_PI\n\n#if !defined( MODEL_GEOS )\n    ! Get the memory debug level\n    call ESMF_ConfigGetAttribute(GeosCF, MemDebugLevel, &\n                                 Label=\"MEMORY_DEBUG_LEVEL:\" , RC=STATUS)\n    _VERIFY(STATUS)\n#endif\n\n    !=======================================================================\n    ! Save values from the resource file (GCHP.rc for GCHP)\n    !=======================================================================\n\n    ! # of run phases\n    CALL ESMF_ConfigGetAttribute( GeosCF, NPHASE,                   &\n                                  Default = 2,                      &\n                                  Label   = \"RUN_PHASES:\",          &\n                                  __RC__                           )\n    _ASSERT(NPHASE==1.OR.NPHASE==2,'Error calling ESMF_ConfigGetAttribute on RUN_PHASES')\n\n#if defined( MODEL_GEOS )\n    ! Top stratospheric level\n    CALL ESMF_ConfigGetAttribute( GeosCF, value_LLSTRAT,            &\n                                  Default = LM,                     &\n                                  Label   = \"LLSTRAT:\",             &\n                                  __RC__                           )\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'GCC: top strat. level (LLSTRAT) is set to ',     &\n                  value_LLSTRAT\n    ENDIF\n\n    ! FAST-JX settings: number of levels, number of EXTRAL iterations,\n    ! print error if EXTRAL fails?\n    ! LLFASTJX: default is 1201 for LM=132, 601 otherwise\n    IF ( LM == 132 ) THEN\n       I = 1201\n    ELSE\n       I = 601\n    ENDIF\n    CALL ESMF_ConfigGetAttribute( GeosCF, Input_Opt%LLFASTJX,     &\n                                  Default = I,                    &\n                                  Label   = \"LLFASTJX:\",          &\n                                  __RC__                          )\n\n    ! FJX_EXTRAL_ITERMAX: default is 5 for LM=132, 1 otherwise\n    IF ( LM == 132 ) THEN\n       I = 5\n    ELSE\n       I = 1\n    ENDIF\n    CALL ESMF_ConfigGetAttribute( GeosCF, Input_Opt%FJX_EXTRAL_ITERMAX, &\n                                  Default = I,                          &\n                                  Label   = \"FJX_EXTRAL_ITERMAX:\",      &\n                                  __RC__                                )\n\n    ! FJX_EXTRAL_ERR: default is 1\n    I = 1\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt,   &\n                                  Default = I,                        &\n                                  Label   = \"FJX_EXTRAL_ERR:\",        &\n                                  __RC__                              )\n    Input_Opt%FJX_EXTRAL_ERR = ( DoIt == 1 )\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'GCC: Fast-JX settings:'\n       WRITE(*,*) 'Number of FAST-JX levels      : ',Input_Opt%LLFASTJX\n       WRITE(*,*) 'Max. no. of EXTRAL iterations : ',Input_Opt%FJX_EXTRAL_ITERMAX\n       WRITE(*,*) 'Show EXTRAL overflow error    : ',Input_Opt%FJX_EXTRAL_ERR\n    ENDIF\n\n    ! Stop KPP if integration fails twice\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt,   &\n                                  Default = 1,                       &\n                                  Label   = \"KPP_STOP_IF_FAIL:\",     &\n                                  __RC__                              )\n    Input_Opt%KppStop = ( DoIt == 1 )\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'Stop KPP if integration fails: ',Input_Opt%KppStop\n    ENDIF\n\n    ! Turn off three heterogenous reactions in stratosphere\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Default = 1, &\n                                  Label = \"TurnOffHetRates:\", __RC__ )\n    Input_Opt%TurnOffHetRates = ( DoIt == 1 )\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'Disable selected het. reactions in stratosphere: ', &\n                  Input_Opt%TurnOffHetRates\n    ENDIF\n\n    ! Check for negatives after KPP integration\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Default = -1, &\n                                  Label = \"KppCheckNegatives:\", __RC__ )\n    Input_Opt%KppCheckNegatives = DoIt \n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'Check for negative concentrations after KPP integration: ', &\n                  Input_Opt%KppCheckNegatives\n    ENDIF\n\n    ! KPP tolerance inflation factor for second attempt\n    CALL ESMF_ConfigGetAttribute( GeosCF, Val, Default = 1.0, &\n                                  Label = \"KppTolScale:\", __RC__ )\n    Input_Opt%KppTolScale = Val \n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'Scale KPP tolerances in second integration attempt: ', &\n                  Input_Opt%KppTolScale\n    ENDIF\n\n    ! Parallelization barrier for chemistry in GEOS (VMBarrier after Run2)\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Default = -1,        &\n                                  Label   = \"GC_VMBarrier_Run2:\",    &\n                                  __RC__                              )\n    Input_Opt%GC_VMBarrier_Run2 = ( DoIt == 1 )\n    IF ( Input_Opt%AmIRoot ) THEN\n       WRITE(*,*) 'VMBarrier and timing after Run2: ',           &\n                  Input_Opt%GC_VMBarrier_Run2\n    ENDIF\n#endif\n\n    !=======================================================================\n    ! Initialize GEOS-Chem (will also initialize HEMCO)\n    !=======================================================================\n\n    ! Initialize fields of the Grid State object\n    CALL Init_State_Grid( Input_Opt, State_Grid, RC )\n    _ASSERT(RC==GC_SUCCESS,'Error calling Init_State_Grid')\n\n    ! Pass grid information obtained from Extract_ to State_Grid\n    State_Grid%NX          = IM            ! # lons   on this PET\n    State_Grid%NY          = JM            ! # lats   on this PET\n    State_Grid%NZ          = LM            ! # levels on this PET\n    State_Grid%GlobalNX    = IM_WORLD      ! # lons   in global grid\n    State_Grid%GlobalNY    = JM_WORLD      ! # lats   in global grid\n    State_Grid%NativeNZ    = LM_WORLD      ! # levels in global grid\n    State_Grid%XMinOffset  = 1             ! X offset from global grid\n    State_Grid%XMaxOffset  = State_Grid%NX ! X offset from global grid\n    State_Grid%YMinOffset  = 1             ! Y offset from global grid\n    State_Grid%YMaxOffset  = State_Grid%NY ! Y offset from global grid\n\n    ! Call the GCHP initialize routine\n    CALL GCHP_Chunk_Init( nymdB     = nymdB,      & ! YYYYMMDD @ start of run\n                          nhmsB     = nhmsB,      & ! hhmmss   @ start of run\n                          nymdE     = nymdE,      & ! YYYYMMDD @ end of run\n                          nhmsE     = nhmsE,      & ! hhmmss   @ end of run\n                          tsChem    = tsChem,     & ! Chemical timestep [s]\n                          tsDyn     = tsDyn,      & ! Dynamic  timestep [s]\n                          tsRad     = tsRad,      & ! RRTMG    timestep [s]\n                          lonCtr    = lonCtr,     & ! Lon centers [radians]\n                          latCtr    = latCtr,     & ! Lat centers [radians]\n#if !defined( MODEL_GEOS )\n                          GC        = GC,         & ! Ref to this gridded comp\n                          EXPORT    = EXPORT,     & ! Export state object\n#endif\n                          Input_Opt = Input_Opt,  & ! Input Options obj\n                          State_Chm = State_Chm,  & ! Chemistry State obj\n                          State_Diag= State_Diag, & ! Diagnostics State obj\n                          State_Grid= State_Grid, & ! Grid State obj\n                          State_Met = State_Met,  & ! Meteorology State obj\n                          HcoConfig = HcoConfig,  & ! HEMCO config obj\n                          HistoryConfig = HistoryConfig, & ! History Config Obj\n                          __RC__                 )\n\n#if defined( MODEL_GEOS )\n    !=======================================================================\n    ! If GEOS-Chem is the AERO provider, initialize the AERO bundle here.\n    ! All GEOS-Chem tracers possibly being added to the AERO bundle are\n    ! listed at the beginning of the module. Here, we see which ones of\n    ! those are effectively defined and create a field in the bundle for\n    ! them. The AERO names are given the names listed at the beginning of\n    ! the module.\n    ! GEOS-Chem tracers are in mol/mol, whereas the AERO bundle holds\n    ! data in kg/kg. We therefore need to copy the data so that we can\n    ! change units independently.\n    !=======================================================================\n    IF ( DoAERO ) THEN\n       CALL GEOS_AeroInit( GC, MaplCF, INTSTATE, EXPORT, Grid, __RC__ )\n    ENDIF\n\n#endif\n\n    !=======================================================================\n    ! Initialize the Int2Spc object. This is used to copy the tracer arrays\n    ! from the internal state to State_Chm%Tracers, and vice versa.\n    ! In this step, we also check for the friendlieness of the tracers. If\n    ! the GEOS-Chem internal convection/turbulence schemes shall be used\n    ! (as specified in geoschem_config.yml), the tracers must not be friendly\n    ! to the GEOS-5 moist / turbulence components!\n    !=======================================================================\n    nFlds = State_Chm%nSpecies\n    ALLOCATE( Int2Spc(nFlds), STAT=STATUS )\n    _ASSERT(STATUS==0,'Int2Spc could not be allocated')\n\n    ! Do for every tracer in State_Chm\n    DO I = 1, nFlds\n\n       SpcInfo => State_Chm%SpcData(I)%Info\n\n       ! Pass tracer name\n       Int2Spc(I)%Name = TRIM(SpcInfo%Name)\n#if defined( MODEL_GEOS )\n       IF ( TRIM(Int2Spc(I)%Name) == 'POX' ) Int2Spc(I)%Name = 'POx'\n       IF ( TRIM(Int2Spc(I)%Name) == 'LOX' ) Int2Spc(I)%Name = 'LOx'\n#endif\n\n       ! Get tracer ID\n       Int2Spc(I)%ID = IND_( TRIM(Int2Spc(I)%Name) )\n\n       ! If tracer ID is not valid, make sure all vars are at least defined.\n       IF ( Int2Spc(I)%ID <= 0 ) THEN\n          Int2Spc(I)%Internal => NULL()\n          CYCLE\n       ENDIF\n\n       ! Get internal state field\n       fieldName = TRIM(SPFX)//TRIM(Int2Spc(I)%Name)\n       CALL ESMF_StateGet( INTSTATE, TRIM(fieldName), GcFld, RC=STATUS )\n\n       ! This is mostly for testing\n       IF ( STATUS /= ESMF_SUCCESS ) THEN\n          IF( am_I_Root ) THEN\n             WRITE(*,*) 'Cannot find in internal state: ', TRIM(SPFX) &\n                        //TRIM(Int2Spc(I)%Name),I\n          ENDIF\n          Int2Spc(I)%Internal => NULL()\n#if defined( MODEL_GEOS )\n          CYCLE\n          _ASSERT(.FALSE.,'Error finding internal state variable')\n#endif\n       ENDIF\n\n#if defined( MODEL_GEOS )\n       ! Check friendliness of field: the field must not be friendly to\n       ! moist and/or turbulence if the corresponding GEOS-Chem switches\n       ! are turned on!\n       DynFriend=.FALSE.\n       CALL ESMF_AttributeGet( GcFld, NAME=\"FriendlyToDYNAMICS\", &\n                               isPresent=isPresent, RC=STATUS )\n       IF ( isPresent ) THEN\n          CALL ESMF_AttributeGet( GcFld, NAME=\"FriendlyToDYNAMICS\", &\n                               VALUE=DynFriend, RC=STATUS )\n       ENDIF\n       IF ( DynFriend ) THEN\n          ! Check for friendliness to convection: only if GEOS-Chem convection\n          ! is enabled\n          FRIENDLY=.FALSE.\n          CALL ESMF_AttributeGet( GcFld, NAME=\"FriendlyToMOIST\", &\n                                  isPresent=isPresent, RC=STATUS )\n          IF ( isPresent ) THEN\n             CALL ESMF_AttributeGet( GcFld, NAME=\"FriendlyToMOIST\", &\n                                     VALUE=FRIENDLY, RC=STATUS )\n          ENDIF\n          IF ( FRIENDLY .eqv. Input_Opt%LCONV ) THEN\n             WRITE(*,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'\n             WRITE(*,*) 'GEOS-Chem convection and MOIST friendly on/off ', &\n                        'at the same time', FRIENDLY, Input_Opt%LCONV,     &\n                        TRIM(Int2Spc(I)%Name)\n             WRITE(*,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'\n             _ASSERT(.FALSE.,'MOIST friendly error')\n          ENDIF\n\n          ! Check for friendliness to turbulence: only if GEOS-Chem turbulence\n          ! is enabled\n          IF ( Input_Opt%LTURB ) THEN\n             FRIENDLY=.FALSE.\n             CALL ESMF_AttributeGet( GcFld, NAME=\"FriendlyToTURBULENCE\", &\n                                     isPresent=isPresent, RC=STATUS )\n             IF ( isPresent ) THEN\n                CALL ESMF_AttributeGet( GcFld, NAME=\"FriendlyToTURBULENCE\", &\n                                        VALUE=FRIENDLY, RC=STATUS )\n             ENDIF\n             IF ( FRIENDLY ) THEN\n                WRITE(*,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'\n                WRITE(*,*) 'GEOS-Chem turbulence is turned on, but tracer is ',&\n                           'also friendly to TURBULENCE. Cannot do both: ',    &\n                            TRIM(Int2Spc(I)%Name)\n                WRITE(*,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'\n                _ASSERT(.FALSE.,'Error in Friendly settings')\n             ENDIF\n          ENDIF\n       ENDIF\n#endif\n\n       ! Get pointer to field\n       CALL ESMF_FieldGet( GcFld, 0, Ptr3D, __RC__ )\n       Int2Spc(I)%Internal => Ptr3D\n       Ptr3D => NULL()\n       SpcInfo => NULL()\n\n    ENDDO\n\n#ifdef ADJOINT\n    if (Input_Opt%is_Adjoint) THEN\n       ! Now do the same for adjoint variables\n       ALLOCATE( Int2Adj(nFlds), STAT=STATUS )\n       _ASSERT(STATUS==0,'informative message here')\n\n       ! Do for every tracer in State_Chm\n       DO I = 1, nFlds\n\n          ! Get info about this species from the species database\n          N = State_Chm%Map_Advect(I)\n          ThisSpc => State_Chm%SpcData(N)%Info\n\n          ! Pass tracer name\n          Int2Adj(I)%Name = TRIM(ThisSpc%Name)\n\n          ! Get tracer ID\n          Int2Adj(I)%ID = IND_( TRIM(Int2Spc(I)%Name) )\n\n          ! If tracer ID is not valid, make sure all vars are at least defined.\n          IF ( Int2Spc(I)%ID <= 0 ) THEN\n             Int2Spc(I)%Internal => NULL()\n             CYCLE\n          ENDIF\n\n          ! Get internal state field\n          CALL ESMF_StateGet( INTSTATE, TRIM(SPFX) // TRIM(Int2Spc(I)%Name) // '_ADJ', &\n               GcFld, RC=STATUS )\n\n          ! This is mostly for testing\n          IF ( STATUS /= ESMF_SUCCESS ) THEN\n             IF( am_I_Root ) THEN\n                WRITE(*,*) 'Cannot find in internal state: ', TRIM(SPFX) &\n                     //TRIM(Int2Spc(I)%Name)//'_ADJ',I\n             ENDIF\n             _ASSERT(.FALSE.,'informative message here')\n          ENDIF\n\n          ! Get pointer to field\n          CALL ESMF_FieldGet( GcFld, 0, Ptr3D, __RC__ )\n          Int2Adj(I)%Internal => Ptr3D\n\n          ! Free pointers\n          Ptr3D => NULL()\n          ThisSpc  => NULL()\n\n       ENDDO\n    ENDIF\n#endif\n\n#ifdef MODEL_GCHPCTM\n    ! Set delta pressure export to interal state variable DELP_DRY.\n    ! This is used in the first timestep in FV3, before advection, to\n    ! adjust species v/v for conservation of restart file mass, if\n    ! delta pressure present in the restart file.\n    call MAPL_GetPointer ( Export, Ptr3d_exp, 'DELPDRY', ALLOC=.TRUE., __RC__ )\n    CALL ESMF_StateGet( INTSTATE, 'DELP_DRY', GcFld, RC=STATUS )\n    CALL ESMF_FieldGet( GcFld, 0, Ptr3D, __RC__ )\n       Ptr3d_exp = Ptr3d * 100.d0\n       Ptr3d => NULL()\n#endif\n\n    !=======================================================================\n    ! Error trap: make sure that chemistry / emission time step are same and\n    ! correspond to the chemistry step set in GEOSCHEMchem_GridComp.rc.\n    !=======================================================================\n    ChemTS = GET_TS_CHEM()\n    EmisTS = GET_TS_EMIS()\n    IF ( ChemTS /= tsChem .OR. EmisTS /= tsChem ) THEN\n       WRITE(*,*) 'GEOS-Chem chemistry and/or emission time step do not'\n       WRITE(*,*) 'agree with time step set in GEOSCHEMchem_GridComp.rc'\n       WRITE(*,*) 'GEOS-Chem chemistry time step                 : ', ChemTS\n       WRITE(*,*) 'GEOS-Chem emission  time step                 : ', EmisTS\n       WRITE(*,*) 'CHEMISTRY_TIMESTEP in GCHP.rc                 : ', tsChem\n       _ASSERT(.FALSE.,'Error in timesteps')\n    ENDIF\n\n    ! Also check for convection and dynamics time step.\n    ChemTS = GET_TS_CONV()\n    EmisTS = GET_TS_DYN()\n    IF ( ChemTS /= tsDyn .OR. EmisTS /= tsDyn ) THEN\n       WRITE(*,*) 'GEOS-Chem transport and/or convection time step do not'\n       WRITE(*,*) 'agree with time step set in GEOSCHEMchem_GridComp.rc'\n       WRITE(*,*) 'GEOS-Chem convection time step                : ', ChemTS\n       WRITE(*,*) 'GEOS-Chem dynamics   time step                : ', EmisTS\n       WRITE(*,*) 'RUN_DT in CAP.rc                              : ', tsDyn\n       _ASSERT(.FALSE.,'Error in timesteps')\n    ENDIF\n\n    If (Input_Opt%LRAD) Then\n       RadTS  = GET_TS_RAD()\n       IF ( RadTS /= tsRad ) THEN\n          WRITE(*,*) 'GEOS-Chem radiation time step (for RRTMG) does not'\n          WRITE(*,*) 'agree with time step set in GCHP.rc'\n          WRITE(*,*) 'GEOS-Chem RRTMG time step                     : ', RadTS\n          WRITE(*,*) 'RRTMG_DT in GCHP.rc                           : ', tsRad\n          _ASSERT(.FALSE.,'Error in timesteps')\n       ENDIF\n\n       ! Redundantly, check that tsRad is a multiple of tsChem\n       _ASSERT(MOD(tsRad,tsChem)==0,'Radiation time step must be a multiple of chemistry time step')\n    Else\n       ! Use chemistry step; this alarm will be ignored, but must be present\n       RadTS = ChemTS\n    End If\n\n    !=======================================================================\n    ! Establish the internal alarms for GEOS-Chem\n    !=======================================================================\n    allocate(GC_alarms,stat=status)\n    _ASSERT(rc==0,'Could not allocate GC alarms')\n    GC_alarm_wrapper%ptr => GC_alarms\n\n    call ESMF_UserCompSetInternalState(GC,'gcchem_internal_alarms',GC_alarm_wrapper,status)\n    _ASSERT(status==0,'Could not get GEOS-Chem internal alarms')\n\n    ! Get information about/from the clock\n    CALL ESMF_ClockGet( Clock,                    &\n                        currTime     = currTime,  &\n                        calendar     = cal,       &\n                        __RC__ )\n\n\n    ! Set up the radiation alarm\n    ! Must ring once per tsRad\n    call ESMF_TimeIntervalSet(tsRad_TI, S=nint(tsRad), calendar=cal, RC=STATUS)\n    _ASSERT(STATUS==0,'Could not set radiation alarm time interval')\n\n    ! Initialize the ring time to midnight on the starting (current) day\n    call ESMF_TimeGet( currTime, YY=yyyy, MM=mm, DD=dd, H=h, M=m, S=s, rc=STATUS )\n    _ASSERT(STATUS==0,'Could not extract ESMF clock current time information')\n    call ESMF_TimeSet( ringTime, YY=yyyy, MM=mm, DD=dd, H=0, M=0, S=0, rc=STATUS )\n    _ASSERT(STATUS==0,'Could not set initial radiation alarm ring time')\n\n    ! Adjust the alarm to go off on the chemistry timestep immediately before the\n    ! target output time. This is because RRTMG is run after chemistry.\n    call ESMF_TimeIntervalSet(tsChem_TI, S=nint(tsChem), calendar=cal, RC=STATUS)\n    _ASSERT(STATUS==0,'Could not set chemistry alarm time interval')\n    ringTime = ringTime - tsChem_TI\n\n    ! Advance ring time until it is at or after current time\n    do while (ringTime < currTime)\n       ringTime = ringTime + tsRad_TI\n    end do\n\n    ! Make the alarm 'sticky'. This means it will ring until\n    ! the ringer is turned off.\n    GC_alarms%RRTMG_alarm = ESMF_AlarmCreate(CLOCK = Clock, &\n                            name = \"GC_RRTMG_alarm\" ,       &\n                            RingInterval = tsRad_TI,        &\n                            RingTime     = ringTime,        &\n!                            Enabled      = .true.   ,       &\n                            sticky       = .true.,          &\n                            RC           = STATUS      )\n    _VERIFY(STATUS)\n\n    ! Start alarm ringing if already reached first alarm time\n    if(ringTime == currTime) then\n       call ESMF_AlarmRingerOn(GC_alarms%RRTMG_alarm, rc=status)\n       _VERIFY(STATUS)\n    end if\n\n#ifdef RRTMG\n    ! Verify that the GCHP.rc and input.geos settings match\n    _ASSERT(Read_Dyn_Heating.eqv.Input_Opt%Read_Dyn_Heating,'Mismatch between input.geos and GCHP.rc options for RRTMG dynamical heating')\n#endif\n\n#if defined( MODEL_GEOS )\n    !=======================================================================\n    ! Read GEOSCHEMchem settings\n    !=======================================================================\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) TRIM(Iam), ': options from GEOSCHEMchem_GridComp.rc:'\n    ENDIF\n\n    ! Apply correction term to large-scale precipitation that should be\n    ! convective?\n    CALL ESMF_ConfigGetAttribute( GeosCF, Input_Opt%WETD_CONV_SCAL,          &\n                                  Label   = \"Convective_precip_correction:\", &\n                                  Default = 1.0d0,                           &\n                                  __RC__                                      )\n    IF ( Input_Opt%WETD_CONV_SCAL < 0d0 ) Input_Opt%WETD_CONV_SCAL = 1.0d0\n    Input_Opt%WETD_CONV_SCAL = MAX(MIN(1.0d0,Input_Opt%WETD_CONV_SCAL),0.0d0)\n    IF ( am_I_Root ) THEN\n       WRITE(*,*)   &\n       '- Convective precip correction (0=no washout, 1=no correction): ', &\n       Input_Opt%WETD_CONV_SCAL\n    ENDIF\n\n    ! Use GMI O3 P/L\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = \"Use_GMI_O3_PL:\", &\n                                  Default = 0, __RC__ )\n    Input_Opt%LSYNOZ = .FALSE.\n    IF ( DoIt == 1 ) THEN\n       Input_Opt%LGMIOZ = .TRUE.\n       Input_Opt%LLINOZ = .FALSE.\n    ELSE\n       Input_Opt%LGMIOZ = .FALSE.\n       !!!Input_Opt%LSYNOZ = .NOT. Input_Opt%LLINOZ\n    ENDIF\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) '- Use GMIOZ: ', Input_Opt%LGMIOZ\n       WRITE(*,*) '- Use LINOZ: ', Input_Opt%LLINOZ\n       WRITE(*,*) '- Use SYNOZ: ', Input_Opt%LSYNOZ\n    ENDIF\n\n    ! Tropopause options\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt,                    &\n                                  Label = \"Cap_polar_tropopause:\", &\n                                  Default = 1, __RC__ )\n    Input_Opt%LCAPTROP = ( DoIt == 1 )\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) '- Cap polar tropopause: ', Input_Opt%LCAPTROP\n    ENDIF\n\n    !CALL ESMF_ConfigGetAttribute( GeosCF, Input_Opt%NOx_sensitivity,   &\n    !                              Label   = \"NOx_sensitivity_factor:\", &\n    !                              Default = -999.0d0,                  &\n    !                              __RC__                                )\n    !IF ( am_I_Root ) THEN\n    !   WRITE(*,*) '- Use NOx sensitivity factor: ', Input_Opt%NOx_sensitivity\n    !ENDIF\n\n    ! Get internal state from external data\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = \"INIT_SPC_FROM_FILE:\", &\n                                  Default = 0, __RC__ )\n    InitFromFile = ( DoIt == 1 )\n\n    ! Skip GCC during replay predictor step\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = \"SkipReplayGCC:\", &\n                                  Default = 0, __RC__ )\n    SkipReplayGCC = ( DoIt == 1 )\n\n    ! Always set stratospheric H2O\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, &\n          Label=\"Prescribe_strat_H2O:\", Default=0, __RC__ )\n    Input_Opt%AlwaysSetH2O = ( DoIt == 1 )\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) '- Prescribe H2O in stratosphere: ', Input_Opt%AlwaysSetH2O\n    ENDIF\n\n    ! Compute vertical updraft velocity from online values\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, &\n          Label=\"Online_VUD:\", Default=0, __RC__ )\n    Input_Opt%UseOnlineVUD = ( DoIt == 1 )\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) '- Compute VUD online: ', Input_Opt%UseOnlineVUD\n    ENDIF\n\n    ! Turn on Family Transport\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, &\n          Label=\"Bry_Cly_Family_Transport:\", Default=1, __RC__ )\n    SELECT CASE ( DoIt )\n       CASE ( 1 )\n          CALL Init_GCC_Chem_Groups()\n          IF ( am_I_Root ) WRITE(*,*) 'GCC: Bry and Cly family transport enabled'\n       CASE DEFAULT\n          IF ( am_I_Root ) WRITE(*,*) 'GCC: Bry and Cly family transport disabled'\n    END SELECT\n\n    ! Apply H2O tendency to Q?\n    ! Options: -1=never do it; 0=only if GCC is RATS provider; 1=always do it\n    Input_Opt%applyQtend = .FALSE.\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label=\"ApplyQtend:\", Default=0, __RC__ )\n    IF ( DoIt == 1 ) THEN\n       Input_Opt%applyQtend = .TRUE. \n    ELSEIF ( DoIt == 0 ) THEN\n       CALL ESMF_ConfigGetAttribute( MaplCF, FieldName, Label=\"RATS_PROVIDER:\", Default=\"PCHEM\", __RC__ ) \n       IF ( TRIM(FieldName) == \"GEOSCHEMCHEM\" ) Input_Opt%applyQtend = .TRUE.\n    ENDIF\n    IF ( am_I_Root ) WRITE(*,*) '- Apply H2O tendency to Q (SPHU): ', Input_Opt%applyQtend\n\n    ! Add Henry law constants and scavenging coefficients to internal state.\n    ! These are needed by MOIST for wet scavenging (if this is enabled).\n    CALL GEOS_AddSpecInfoForMoist ( am_I_Root, GC, GeosCF, Input_Opt, State_Chm, __RC__ )\n\n    ! Initialize carbon coupling / CO production from CO2 photolysis (if used) \n    CALL GEOS_CarbonInit( GC, GeosCF, State_Chm, State_Grid, __RC__ ) \n\n    ! All done\n    !=======================================================================\n#endif\n\n    ! Stop timers\n    ! -----------\n    CALL MAPL_TimerOff( STATE, \"INITIALIZE\")\n\n    CALL MAPL_TimerOff( STATE, \"TOTAL\")\n\n    ! Successful return\n    _RETURN(ESMF_SUCCESS)\n\n    ! Formats\n100 FORMAT( '### ',                                           / &\n            '### ', a ,                                       / &\n            '### ', a, '  |  Initialization on PET # ', i5.5, / &\n            '### ' )\n200 FORMAT( '### ',                                           / &\n            '### ', a, '  |  Execution on PET # ',      i5.5, / &\n            '###' )\n\n  END SUBROUTINE Initialize_\n\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Run1\n!\n! !DESCRIPTION: Run1 is a wrapper method for the phase 1 run phase of the\n!  GEOSCHEMchem gridded component. It calls down to the Run method of the\n!  GEOS-Chem column chemistry code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Run1 ( GC, Import, Export, Clock, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT) :: GC       ! Ref to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT) :: Import   ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT) :: Export   ! Export State\n    TYPE(ESMF_Clock),    INTENT(INOUT) :: Clock    ! ESMF Clock object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC       ! Error return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  22 Sep 2014 - C. Keller   - Initial version.\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=ESMF_MAXSTR)  :: compName    ! Name of gridded component\n    CHARACTER(LEN=ESMF_MAXSTR)  :: Iam\n    INTEGER                     :: STATUS\n    INTEGER                     :: PHASE\n\n    !=======================================================================\n    ! Run1 starts here\n    !=======================================================================\n\n    ! Set up traceback info\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::Run1'\n\n    ! Call run routine stage 1 if more than one phase. If not 2 phases,\n    ! such as in GCHP, then we do all chemistry related processes from\n    ! Run2 instead.\n    IF ( NPHASE == 2 ) THEN\n       PHASE = 1\n       CALL Run_ ( GC, IMPORT, EXPORT, CLOCK, PHASE, __RC__ )\n    ENDIF\n\n    ! Return w/ success\n    _RETURN(ESMF_SUCCESS)\n\n  END SUBROUTINE Run1\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Run2\n!\n! !DESCRIPTION: Run2 is a wrapper method for the phase 2 run phase of the\n!  GEOSCHEMchem gridded component. It calls down to the Run method of the\n!  GEOS-Chem column chemistry code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Run2 ( GC, Import, Export, Clock, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT) :: GC       ! Ref to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT) :: Import   ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT) :: Export   ! Export State\n    TYPE(ESMF_Clock),    INTENT(INOUT) :: Clock    ! ESMF Clock object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC       ! Error return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  22 Sep 2014 - C. Keller   - Initial version.\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=ESMF_MAXSTR)  :: compName    ! Name of gridded component\n    CHARACTER(LEN=ESMF_MAXSTR)  :: Iam\n    INTEGER                     :: PHASE\n    INTEGER                     :: STATUS\n#if defined( MODEL_GEOS )\n    ! Optional VM Barrier for improved timing estimates\n    ! This can be set from RC (psturm, April 2024)\n    TYPE(ESMF_VM)                :: VM            ! ESMF VM object\n    TYPE(MAPL_MetaComp), POINTER :: STATE\n#endif\n\n    !=======================================================================\n    ! Run2 starts here\n    !=======================================================================\n\n    ! Set up traceback info\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::Run2'\n\n    ! Set phase number: this is 2 for multi-phase runs (e.g. GEOS-5), and\n    ! is -1 for single-phase runs (e.g. GCHP). If set to -1, all processes\n    ! are called (drydep, emissions, chemistry, etc.)\n    IF ( NPHASE == 1 ) THEN\n       PHASE = -1\n    ELSE\n       PHASE = 2\n    ENDIF\n\n    ! Call run routine stage 2\n    CALL Run_ ( GC, IMPORT, EXPORT, CLOCK, PHASE, __RC__ )\n\n    ! Optional timer for run 2 (psturm, April 2024)\n    ! More realistic timing estimates can detect load imbalances in chemistry\n    ! Rather than attributing this to transport operations\n    ! This can be set from GEOSCHEMchem_GridComp.rc\n#if defined( MODEL_GEOS )\n    IF (Input_Opt%GC_VMBarrier_Run2) THEN\n       call MAPL_GetObjectFromGC(GC, STATE, __RC__)\n       call ESMF_VmGetCurrent(VM, RC=STATUS)\n       _VERIFY(STATUS)\n       call MAPL_TimerOn(STATE,\"GC_VMBarrier_Run2\")\n       call ESMF_VMBarrier(vm, RC=STATUS)\n       call MAPL_TimerOff(STATE,\"GC_VMBarrier_Run2\")\n    ENDIF\n#endif\n\n    ! Return w/ success\n    _RETURN(ESMF_SUCCESS)\n\n  END SUBROUTINE Run2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Run_\n!\n! !DESCRIPTION: Run_ is the run method of the GEOSCHEMchem gridded component.\n!  GC is a simple ESMF/MAPL wrapper which calls down to the Run method of\n!  the GEOS-Chem column chemistry code.\n!  Note: this routine currently skips the call down to GEOS-Chem on the very\n!  first time it is invoked. The reason is that a number of met-variables seem\n!  to be undefined still (e.g. BXHEIGHT, T, etc), yielding to seg-faults and/or\n!  crazy results.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Run_( GC, Import, Export, Clock, Phase, RC )\n!\n! !USES:\n!\n    USE CMN_Size_Mod,            ONLY : NDUST\n    USE HCO_State_GC_Mod,        ONLY : HcoState\n    USE MAPL_MemUtilsMod\n    USE Olson_Landmap_Mod,       ONLY : Compute_Olson_Landmap\n    USE Precision_Mod\n#if defined( MODEL_GEOS )\n    USE GEOS_Analysis,           ONLY : GEOS_AnaRun\n    USE GEOS_Interface,          ONLY : MetVars_For_Lightning_Run, &\n                                        GEOS_Diagnostics,          &\n                                        GEOS_CalcTotOzone,         &\n                                        GEOS_InitFromFile,         &\n                                        GEOS_RATSandOxDiags,       &\n                                        GEOS_PreRunChecks,         &\n                                        GEOS_SetH2O\n    USE GEOS_AeroCoupler,        ONLY : GEOS_FillAeroBundle\n    USE GEOS_CarbonInterface,    ONLY : GEOS_CarbonSetConc,        &\n                                        GEOS_CarbonRunPhoto\n    USE UnitConv_Mod,            ONLY : KG_SPECIES_PER_KG_TOTAL_AIR\n#endif\n\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC     ! Ref to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: Import ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: Export ! Export State\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock  ! ESMF Clock object\n    INTEGER,             INTENT(IN   )         :: Phase  ! Run phase (-1/1/2)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(  OUT)         :: RC     ! Error return code\n!\n! !REMARKS:\n!  We call routine Extract_ to return various values (i.e. grid parameters,\n!  start & end dates, PET information, etc.) from the ESMF/MAPL environment.\n!  We then pass those to GEOS-Chem via routine GCHP_CHUNK_RUN, which is\n!  located in GEOS-Chem module ./GEOS-Chem/ESMF/gchp_chunk_mod.F90.\n\n! !REVISION HISTORY:\n!  06 Dec 2009 - A. da Silva - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n!\n! LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(ESMF_Grid)              :: Grid          ! ESMF Grid object\n    TYPE(ESMF_Config)            :: MaplCF        ! Config (MAPL.rc)\n    TYPE(ESMF_Config)            :: GeosCF        ! Config (GEOSCHEM*.rc)\n    TYPE(ESMF_Alarm)             :: ALARM\n    TYPE(ESMF_VM)                :: VM            ! ESMF VM object\n    TYPE(ESMF_STATE)             :: INTSTATE\n\n    ! Scalars\n    LOGICAL                      :: am_I_Root     ! Are we on the root PET?\n    LOGICAL                      :: IsChemTime    ! Chemistry alarm proxy\n    LOGICAL                      :: IsRadTime     ! Radiation alarm proxy\n    LOGICAL                      :: IsRunTime     ! Time to call GEOS-Chem\n    LOGICAL                      :: IsTendTime    ! Time to calculate tendencies\n    INTEGER                      :: IND           ! Species or tracer index\n    INTEGER                      :: error         ! G-C error return code\n    INTEGER(ESMF_KIND_I8)        :: advCount      ! # of clock advances\n    INTEGER                      :: nymd          ! YYYY/MM/DD date\n    INTEGER                      :: nhms          ! hh:mm:ss time\n    INTEGER                      :: myPet         ! PET # we are on now\n    INTEGER                      :: nPets         ! Total # of PETs\n    INTEGER                      :: I, J, L       ! Loop indices\n    INTEGER                      :: IM,JM,LM      ! Grid dimensions\n    INTEGER                      :: LR, N         ! Loop indices\n    INTEGER                      :: N_TRC         ! Shadow var: # of tracers\n    INTEGER                      :: year          ! Current year\n    INTEGER                      :: month         ! Current month\n    INTEGER                      :: day           ! Current day\n    INTEGER                      :: dayOfYr       ! Current day of year\n    INTEGER                      :: hour          ! Current hour\n    INTEGER                      :: minute        ! Current minute\n    INTEGER                      :: second        ! Current second\n    REAL                         :: UTC           ! Universal time\n    REAL                         :: tsChem        ! Chem timestep [sec]\n    REAL                         :: tsRad         ! RRTMG timestep [sec]\n    REAL                         :: tsDyn         ! Dynamic timestep [sec]\n    REAL                         :: hElapsed      ! Elapsed time [hours]\n    REAL*8                       :: lonDeg        ! Longitude [degrees]\n    REAL*8                       :: latDeg        ! Latitude [degrees]\n    REAL*8                       :: P1, P2        ! Pressure variables\n    CHARACTER(LEN=4)             :: petStr        ! String for PET #\n    CHARACTER(LEN=ESMF_MAXSTR)   :: compName      ! Gridded Component name\n\n    ! Allocatable local arrays\n    REAL,  ALLOCATABLE, TARGET   :: zenith(:,:)   ! Solar zenith angle\n    REAL,  ALLOCATABLE, TARGET   :: solar(:,:)    ! Solar insolation\n\n    ! Pointer arrays needed to initialize from imports\n    CHARACTER(LEN=2)             :: intStr\n    REAL, POINTER                :: Ptr2d   (:,:)   => NULL()\n    REAL, POINTER                :: Ptr3d   (:,:,:) => NULL()\n    REAL(ESMF_KIND_R8), POINTER  :: Ptr2d_R8(:,:)   => NULL()\n    REAL(ESMF_KIND_R8), POINTER  :: Ptr3d_R8(:,:,:) => NULL()\n\n    ! Other pointer arrays\n    REAL(ESMF_KIND_R4),  POINTER :: lonCtr  (:,:) ! Lon centers, this PET [rad]\n    REAL(ESMF_KIND_R4),  POINTER :: latCtr  (:,:) ! Lat centers, this PET [rad\n    TYPE(MAPL_MetaComp), POINTER :: STATE\n\n    ! For CTM Mode\n    ! ckeller, 8/22/19: In GEOS, PLE and AIRDENS are from the IMPORT state\n#if !defined( MODEL_GEOS )\n    REAL(ESMF_KIND_R8),  POINTER :: PLE(:,:,:)     => NULL() ! INTERNAL: PEDGE\n#endif\n\n    ! RRTMG FDH needs to be able to read in dynamical heating\n#ifdef RRTMG\n    REAL,                POINTER :: DynHeating(:,:,:) => NULL()\n#endif\n\n    ! Initialize variables used for reading Olson and MODIS LAI imports\n    INTEGER            :: TT, VV, landTypeInt\n    CHARACTER(len=64)  :: landTypeStr, varName, importName\n\n#if defined( MODEL_GEOS )\n    ! GEOS-5 only local variables\n    INTEGER                      :: LB            ! Loop indices\n\n    ! Some checks for replay runs\n    LOGICAL                      :: FIRSTREWIND\n    LOGICAL                      :: AFTERREWIND\n    LOGICAL                      :: IsFirst\n    INTEGER, SAVE                :: pymd = 0         ! previous date\n    INTEGER, SAVE                :: phms = 0         ! previous time\n    INTEGER, SAVE                :: nnRewind = 0\n\n    ! For skipping GCC during predictor step                                                  \n    TYPE(ESMF_Alarm)             :: PredictorAlarm  ! skip GCC during replay\n    LOGICAL                      :: PredictorActive ! skip GCC during replay\n\n#else\n    ! GCHP only local variables\n    INTEGER                      :: trcID, RST\n    REAL                         :: COEFF\n    CHARACTER(LEN=ESMF_MAXSTR)   :: trcNAME,hcoNAME\n    TYPE(ESMF_Field      )       :: trcFIELD\n    TYPE(ESMF_FieldBundle)       :: trcBUNDLE\n    REAL              , POINTER  :: fPtrArray(:,:,:)\n    REAL(ESMF_KIND_R8), POINTER  :: fPtrVal, fPtr1D(:)\n    INTEGER                      :: z_lb, z_ub\n\n#endif\n\n    ! Alarms\n    type(GC_run_alarms), pointer :: GC_alarms\n    type(GCRA_wrap)               :: GC_alarm_wrapper\n\n    ! First call?\n    LOGICAL, SAVE                :: FIRST = .TRUE.\n    INTEGER                      :: NFD, K\n    LOGICAL                      :: LAST\n    TYPE(ESMF_Time        )      :: currTime, stopTime\n    TYPE(ESMF_TimeInterval)      :: tsChemInt\n    CHARACTER(len=ESMF_MAXSTR)   :: timestring1, timestring2\n#ifdef ADJOINT\n    LOGICAL                      :: isStartTime\n    REAL(ESMF_KIND_r8), POINTER  :: CostFuncMask(:,:,:) => NULL()\n#endif\n#ifdef JACOBIAN\n    INTEGER                      :: primarySpcId\n    CHARACTER(len=ESMF_MAXSTR)   :: primarySpcName\n#endif\n\n    __Iam__('Run_')\n\n    !=======================================================================\n    ! Run starts here\n    !=======================================================================\n\n    ! Are we on the root PET?\n    am_I_Root = MAPL_Am_I_Root()\n\n    ! Set up traceback info\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::Run_'\n\n#if !defined( MODEL_GEOS )\n    ! Get the VM for optional memory prints (level >= 2)\n    !-----------------------------------\n    if ( MemDebugLevel > 0 ) THEN\n       call ESMF_VmGetCurrent(VM, RC=STATUS)\n       _VERIFY(STATUS)\n    endif\n#endif\n\n    ! Get my MAPL_Generic state\n    ! -------------------------\n    CALL MAPL_GetObjectFromGC(GC, STATE, __RC__)\n\n    ! Query the chemistry alarm.\n    ! This checks if it's time to do chemistry, based on the time step\n    ! set in AGCM.rc (GEOSCHEMCHEM_DT:). If the GEOS-Chem time step is not\n    ! specified in AGCM.rc, the heartbeat will be taken (set in MAPL.rc).\n    ! ----------------------------------------------------------------------\n    CALL MAPL_Get(STATE, RUNALARM=ALARM, __RC__)\n    IsChemTime = ESMF_AlarmIsRinging(ALARM, __RC__)\n\n    ! if (am_I_Root) WRITE(*,*) ' Chem clock is reverse? ', ESMF_ClockIsReverse(CLOCK)\n    ! Turn off alarm: only if it was on and this is phase 2 (don't turn off\n    ! after phase 1 since this would prevent phase 2 from being executed).\n    IF ( IsChemTime .AND. PHASE /= 1 .and. .not. ESMF_ClockIsReverse(CLOCK)) THEN\n       CALL ESMF_AlarmRingerOff(ALARM, __RC__ )\n    ENDIF\n\n    ! Retrieve GEOS-Chem's internal alarms\n    call ESMF_UserCompGetInternalState(GC,'gcchem_internal_alarms',GC_alarm_wrapper,status)\n    _ASSERT(rc==0,'Could not retrieve radiation alarm')\n    GC_alarms => GC_alarm_wrapper%ptr\n    ! Query the radiation alarm\n    IsRadTime = ESMF_AlarmIsRinging(GC_alarms%RRTMG_alarm,__RC__)\n\n    ! Turn off alarm: only if it was on, chemistry will run, and this is phase 2\n    If ( IsRadTime .and. IsChemTime .and. PHASE /= 1 ) Then\n       CALL ESMF_AlarmRingerOff(GC_alarms%RRTMG_alarm, __RC__ )\n    End If\n\n    ! Get Internal state\n    CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=INTSTATE, __RC__ )\n\n    ! ----------------------------------------------------------------------\n    ! Check if we need to call the GEOS-Chem driver. The GEOS-Chem driver\n    ! contains routines for the following processes:\n    !\n    ! Phase 1:\n    ! (1) Convection:     --> Dynamics time step  (optional)\n    ! (2) Dry deposition  --> Chemistry time step\n    ! (3) Emissions       --> Chemistry time step\n    !\n    ! Phase 2:\n    ! (4) Turbulence      --> Dynamics time step  (optional)\n    ! (5) Chemistry       --> Chemistry time step\n    ! (6) Wet deposition  --> Dynamics time step\n    !\n    ! Phase -1:\n    ! Includes all of the above\n    !\n    ! Convection and turbulence are only called if the corresponding\n    ! switches are turned on in the GEOS-Chem input file (geoschem_config.yml).\n    !\n    ! To avoid unnecessary calls to the GEOS-Chem driver routine, we\n    ! check here if it's time for any of the processes listed above.\n    ! The IsChemTime variable will be passed down to the GEOS-Chem driver\n    ! to ensure that chemistry is only executed if it's time to do so.\n    !\n    ! The O3 and H2O tendencies will only be calculated when doing chemistry\n    ! (set to zero otherwise). All other export variables are updated every\n    ! time GEOS-Chem is called.\n    ! ----------------------------------------------------------------------\n    IsRunTime = IsChemTime\n    IF ( Input_Opt%LCONV .AND. Phase /= 2 ) IsRunTime = .TRUE.\n    IF ( Input_Opt%LTURB .AND. Phase /= 1 ) IsRunTime = .TRUE.\n    IF ( Input_Opt%LWETD .AND. Phase /= 1 ) IsRunTime = .TRUE.\n\n    !=======================================================================\n    ! Skip GCC during replay, predictor step (posturm and cakelle2)\n    !=======================================================================\n#if defined( MODEL_GEOS )\n    IF ( SkipReplayGCC ) THEN\n       CALL ESMF_ClockGetAlarm(CLOCK, \"PredictorActive\", PredictorAlarm, RC=STATUS)\n       VERIFY_(STATUS)\n\n       PredictorActive = ESMF_AlarmIsRinging( PredictorAlarm, RC=STATUS )\n       VERIFY_(STATUS)\n\n       IF ( PredictorActive ) THEN\n          IsRunTime = .FALSE.\n          IF ( am_I_root ) write(*,*) '  --- Skipping GCC during Predictor Step '\n       END IF\n    END IF\n#endif\n\n#ifdef ADJOINT\n    if (Input_Opt%is_adjoint .and. first) THEN\n       ! the forward model doesn't actually trigger on the final\n       ! timestep, so we should skip the first one\n       IsRunTime = .false.\n    end if\n#endif\n    ! Is it time to update tendencies?\n    ! Tendencies shall only be updated when chemistry is done, which is\n    ! Phase -1 or 2.\n    IsTendTime = ( IsChemTime .AND. Phase /= 1 )\n\n    ! Start timers\n    ! ------------\n    CALL MAPL_TimerOn(STATE, \"TOTAL\")\n\n    ! Get pointers to fields in import, internal, and export states defined\n    ! in the registry file. This has to be done on the first call only.\n    IF ( FIRST ) THEN\n#if defined( MODEL_GEOS )\n#      include \"GEOSCHEMCHEM_GetPointer___.h\"\n#else\n#      include \"GCHPchem_GetPointer___.h\"\n\n       !IF ( IsCTM ) THEN\n       call MAPL_GetPointer ( IMPORT, PLE,      'PLE',     __RC__ )\n#ifdef RRTMG\n       ! Read in dynamical heating rates\n       If ( Read_Dyn_Heating ) Then\n          call MAPL_GetPointer ( IMPORT, DynHeating, 'DynHeating',     __RC__ )\n       End If\n#endif\n       !ENDIF\n\n       ! Pass IMPORT/EXPORT object to HEMCO state object\n       !CALL GetHcoState( HcoState )\n       _ASSERT(ASSOCIATED(HcoState),'HcoState is not associated')\n       HcoState%GRIDCOMP => GC\n       HcoState%IMPORT   => IMPORT\n       HcoState%EXPORT   => EXPORT\n       !HcoState => NULL()\n\n#endif\n    ENDIF\n\n#if defined( MODEL_GEOS )\n! GCHP ends the (if FIRST) block and then links HEMCO state to GC objects:\n!    ENDIF\n\n   ! Link HEMCO state to gridcomp objects\n   ASSERT_(ASSOCIATED(HcoState))\n   HcoState%GRIDCOMP => GC\n   HcoState%IMPORT   => IMPORT\n   HcoState%EXPORT   => EXPORT\n#endif\n#ifdef ADJOINT\n       call MAPL_GetPointer( IMPORT, CostFuncMask, &\n            'CFN_MASK', notFoundOK=.TRUE.,         &\n            __RC__ )\n       if (MAPL_Am_I_Root() .and. .not. ASSOCIATED(CostFuncMask)) &\n            WRITE(*,*) ' No CFN_MASK import variable found'\n#endif\n\n    ! Run when it's time to do so\n    ! Always run on first call to make sure that all variables become\n    ! properly specified and initialized.\n    ! ------------------------------------------------------------------\n    RunningGEOSChem: IF(IsRunTime .OR. FIRST) THEN\n\n       CALL MAPL_TimerOn(STATE, \"RUN\"  )\n\n       ! Get various parameters from the ESMF/MAPL framework\n       CALL Extract_( GC,                   &  ! Ref to this Gridded Component\n                      Clock,                &  ! ESMF Clock object\n                      Grid      = Grid,     &  ! ESMF Grid object\n                      MaplCf    = MaplCF,   &  ! ESMF Config obj (MAPL*.rc)\n                      GeosCf    = GeosCF,   &  ! ESMF Config obj (GEOSCHEM*.rc)\n                      tsChem    = tsChem,   &  ! Chemistry timestep [sec]\n                      tsRad     = tsRad,    &  ! Radiation timestep [sec]\n                      tsDyn     = tsDyn,    &  ! Dynamic timestep [sec]\n                      nymd      = nymd,     &  ! Current YYYY/MM/DD date\n                      nhms      = nhms,     &  ! Current hh:mm:ss time\n                      year      = year,     &  ! Current year\n                      month     = month,    &  ! Current month\n                      day       = day,      &  ! Current day\n                      dayOfYr   = dayOfYr,  &  ! Current day of year\n                      hour      = hour,     &  ! Current hour\n                      minute    = minute,   &  ! Current minute\n                      helapsed  = hElapsed, &  ! Elapsed hours\n                      advCount  = advCount, &  ! # of times clock has advanced\n                      utc       = utc,      &  ! Universal time [hours]\n                      localpet  = myPet,    &  ! # of the PET we are on now\n                      petCount  = nPets,    &  ! Total # of PETs\n                      __RC__ )\n\n       ! For convenience, set grid dimension variables. These are being\n       ! used in Includes_Before_Run.H (ckeller, 8/22/19)\n       IM = State_Grid%NX\n       JM = State_Grid%NY\n       LM = State_Grid%NZ\n\n       ! Allocate GMAO_ZTH (declared at top of module)\n       IF ( .not. ALLOCATED( zenith ) ) THEN\n          ALLOCATE( zenith(State_Grid%NX,State_Grid%NY), STAT=STATUS)\n          _VERIFY(STATUS)\n       ENDIF\n\n       ! Allocate GMAO_SLR (declared @ top of module)\n       IF ( .not. ALLOCATED( solar ) ) THEN\n          ALLOCATE( solar(State_Grid%NX,State_Grid%NY), STAT=STATUS)\n          _VERIFY(STATUS)\n       ENDIF\n\n       ! Call EXTRACT a second time to get the solar zenith\n       ! angle and solar insolation fields\n       CALL Extract_( GC,                   &  ! Ref to this Gridded Component\n                      Clock,                &  ! ESMF Clock object\n                      Grid      = Grid,     &  ! ESMF Grid object\n                      MaplCf    = MaplCF,   &  ! ESMF Config obj (MAPL*.rc)\n                      GeosCf    = GeosCF,   &  ! ESMF Config obj (GEOSCHEM*.rc)\n                      lonCtr    = lonCtr,   &  ! Lon centers on this PET [rad]\n                      latCtr    = latCtr,   &  ! Lat centers on this PET [rad]\n                      ZTH       = zenith,   &  ! Solar zenith angle\n                      SLR       = solar,    &  ! Solar insolation\n                      __RC__ )\n\n#if !defined( MODEL_GEOS )\n       ! MSL - shift from 0 - 360 to -180 - 180 degree grid\n       where (lonCtr .gt. MAPL_PI ) lonCtr = lonCtr - 2*MAPL_PI\n#endif\n\n#if defined( MODEL_GEOS )\n       ! Check if this time is before the datetime of the prev timestep, e.g.\n       ! if this is after a clock rewind\n       AFTERREWIND = .FALSE.\n       FIRSTREWIND = .FALSE.\n       IF ( nymd < pymd ) THEN\n          AFTERREWIND = .TRUE.\n       ELSEIF ( (nymd == pymd) .AND. (nhms < phms) ) THEN\n          AFTERREWIND = .TRUE.\n       ENDIF\n\n       ! If this is after a rewind, check if it's the first rewind. In this\n       ! case, we need to re-do some first-time assignments to make sure that\n       ! we reset all variables to the initial state!\n       IF ( AFTERREWIND ) THEN\n          nnRewind = nnRewind + 1\n          IF ( nnRewind == 1 ) FIRSTREWIND = .TRUE.\n       ENDIF\n#endif\n\n       ! Pass grid area [m2] obtained from dynamics component to State_Grid\n       CALL MAPL_GetPointer( IMPORT, Ptr2d_R8, 'AREA', __RC__ )\n       State_Grid%Area_M2 = Ptr2d_R8\n       Ptr2d_R8 => NULL()\n\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n       ! KLUDGE (mps, 5/23/19):\n       ! Copy to State_Met%AREA_M2 to avoid breaking GCHP benchmarks, which\n       ! require the AREA_M2 field saved out to the StateMet diagnostic\n       ! collection for things like computing emission totals.\n       !\n       State_Met%Area_M2 = State_Grid%Area_M2\n       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n       !=======================================================================\n       ! Prevent use of (occasional) MAPL_UNDEF tropopause pressures\n       !=======================================================================\n\n       ! GCCTROPP contains the last valid tropopause pressure\n       WHERE ( TROPP /= MAPL_UNDEF ) GCCTROPP = TROPP\n\n       ! If any values in GCCTROPP are undefined, stop the run\n       IF ( ANY( GCCTROPP == MAPL_UNDEF ) ) THEN\n          PRINT *,TRIM(Iam)//\": At least one invalid tropopause pressure.\"\n          STATUS = GC_FAILURE\n          _VERIFY(STATUS)\n       ENDIF\n\n#ifdef ADJOINT\n          IF (IsRunTime) THEN\n             IF (Input_opt%IS_ADJOINT) THEN\n                call WRITE_PARALLEL('  Resetting state from checkpoint file')\n                ! call MAPL_GenericRefresh(GC, Import, Export, Clock, RC)\n                call Adjoint_StateRefresh( GC, IMPORT, EXPORT, CLOCK, RC )\n                ! Loop over all species and get info from spc db\n                DO N = 1, State_Chm%nSpecies\n                   ThisSpc => State_Chm%SpcData(N)%Info\n                   !IF (ThisSpc%Is_Advected) CYCLE\n                   IF ( TRIM(ThisSpc%Name) == '' ) CYCLE\n                   IND = IND_( TRIM(ThisSpc%Name ) )\n                   IF ( IND < 0 ) CYCLE\n                   ! Get data from internal state and copy to species array\n                   CALL MAPL_GetPointer( INTERNAL, Ptr3D_R8, TRIM(SPFX) //          &\n                        TRIM(ThisSpc%Name), notFoundOK=.TRUE.,     &\n                        __RC__ )\n                   State_Chm%Species(IND)%Conc(:,:,:) = &\n                                 Ptr3D_R8(:,:,State_Grid%NZ:1:-1)\n                   if ( MAPL_am_I_Root()) WRITE(*,*)                                &\n                        'Initialized species from INTERNAL state: ', TRIM(ThisSpc%Name)\n\n                enddo\n             ELSE\n                call WRITE_PARALLEL('  Recording state to checkpoint file')\n                call Adjoint_StateRecord( GC, IMPORT, EXPORT, CLOCK, RC )\n                ! call WRITE_PARALLEL('  Done recording state to checkpoint files')\n             ENDIF\n          ENDIF\n#endif\n\n!       !=======================================================================\n!       ! pre-Run method array assignments. This passes the tracer arrays from\n!       ! the internal state to State_Chm. On the first call, it also fills the\n!       ! internal species arrays in State_Chm with the values read from the\n!       ! restart file (and stored in the internal state).\n!       !=======================================================================\n       CALL MAPL_TimerOn(STATE, \"CP_BFRE\")\n#include \"Includes_Before_Run.H\"\n       CALL MAPL_TimerOff(STATE, \"CP_BFRE\")\n\n#if defined( MODEL_GCHPCTM )\n       !=======================================================================\n       ! Point GEOS-Chem species concentration arrays to internal state\n       !=======================================================================\n       DO I = 1, SIZE(Int2Spc,1)\n          IF ( Int2Spc(I)%ID <= 0 ) CYCLE\n          State_Chm%Species(Int2Spc(I)%ID)%Conc => Int2Spc(I)%Internal(:,:,State_Grid%NZ:1:-1)\n       ENDDO\n\n#ifdef ADJOINT\n      IF (Input_Opt%Is_Adjoint) THEN\n         DO I = 1, SIZE(Int2Adj,1)\n            IF ( Int2Adj(I)%ID <= 0 ) CYCLE\n            State_Chm%SpeciesAdj(:,:,:,Int2Adj(I)%ID) = Int2Adj(I)%Internal\n         ENDDO\n\n         ! Flip in the vertical\n         State_Chm%SpeciesAdj = State_Chm%SpeciesAdj( :, :, State_Grid%NZ:1:-1, : )\n      ENDIF\n#endif\n\n      !=======================================================================\n      ! On first call, populate State_Chm%Species(N)%Conc with background\n      ! values if the species is missing from the restart file and missing\n      ! species are allowed.\n      !=======================================================================\n#ifdef ADJOINT\n       IF ( FIRST .or. Input_Opt%IS_ADJOINT) THEN\n#else\n       IF ( FIRST ) THEN\n#endif\n\n          ! Get Generic State\n          call MAPL_GetObjectFromGC ( GC, STATE, RC=STATUS)\n          _VERIFY(STATUS)\n          ! Get Internal state\n          CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=INTERNAL, __RC__ )\n\n          ! Loop over all species and get info from spc db\n          DO N = 1, State_Chm%nSpecies\n             ThisSpc => State_Chm%SpcData(N)%Info\n             IF ( TRIM(ThisSpc%Name) == '' ) CYCLE\n             IND = IND_( TRIM(ThisSpc%Name ) )\n             IF ( IND < 0 ) CYCLE\n\n             ! Determine if species in restart file\n             CALL ESMF_StateGet( INTERNAL, TRIM(SPFX) // TRIM(ThisSpc%Name),  &\n                  trcFIELD, RC=RC )\n             CALL ESMF_AttributeGet( trcFIELD, NAME=\"RESTART\",                &\n                  VALUE=RST, RC=STATUS )\n\n             ! Set spc conc to background value if rst skipped or var not there\n             IF ( ( RC  /= ESMF_SUCCESS           .OR.     &\n                    RST == MAPL_RestartBootstrap  .OR.     &\n                    RST == MAPL_RestartSkipInitial  )      &\n#ifdef JACOBIAN\n                    .AND. .NOT. ThisSpc%Is_JacobianTracer  &\n#endif\n                    ) THEN\n                DO L = 1, State_Grid%NZ\n                DO J = 1, State_Grid%NY\n                DO I = 1, State_Grid%NX\n                   IF ( L > State_Met%MaxChemLev .AND. &\n                            ( .NOT. ThisSpc%Is_Advected ) ) THEN\n                      ! For non-advected spc at L > MaxChemLev, use small number\n                      State_Chm%Species(IND)%Conc(I,J,L) = 1.0E-30_FP\n                   ELSE\n                      ! For all other cases, use the background value in spc db\n                      State_Chm%Species(IND)%Conc(I,J,L) = ThisSpc%BackgroundVV\n                   ENDIF\n                ENDDO\n                ENDDO\n                ENDDO\n                IF ( MAPL_am_I_Root()) THEN\n                   WRITE(*,*)  &\n                        '   WARNING: using background values from species database'&\n                        //' for species '//trim(ThisSpc%Name) \n                ENDIF\n             ENDIF\n\n#ifdef JACOBIAN\n             ! Do special handling if this is a Jacobian tracer             \n             IF ( ThisSpc%Is_JacobianTracer ) THEN\n                primarySpcName = ThisSpc%Name(1:LEN(trim(ThisSpc%Name))-8)\n                primarySpcId = IND_(trim(primarySpcName))\n                State_Chm%Species(IND)%Conc = State_Chm%Species(primarySpcId)%Conc\n                IF ( MAPL_am_I_Root()) THEN\n                   WRITE(*,*) '   INFO: using the initial concentration of ' &\n                        // trim(primarySpcName) //' for the Jacobian tracer ' &\n                        // trim(ThisSpc%Name)\n                ENDIF\n             ENDIF\n#endif\n\n             ThisSpc => NULL()\n          ENDDO\n       ENDIF\n\n       !=======================================================================\n       ! On first call, initialize certain State_Chm arrays from\n       ! internal state (restart file) if they are found. Do not initialize\n       ! from met-fields in restart file that were added for post-processing.\n       ! Do not add delta pressure since used for mass conservation scaling\n       ! in FV3 prior advection which comes before GEOS-Chem.\n       !=======================================================================\n       IF ( FIRST ) THEN\n          CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'H2O2AfterChem', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%H2O2AfterChem) ) THEN\n             State_Chm%H2O2AfterChem = Ptr3d_R8(:,:,State_Grid%NZ:1:-1)\n          ENDIF\n          Ptr3d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'SO2AfterChem', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%SO2AfterChem) ) THEN\n             State_Chm%SO2AfterChem = Ptr3d_R8(:,:,State_Grid%NZ:1:-1)\n          ENDIF\n          Ptr3d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr2d_R8, 'DryDepNitrogen', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr2d_R8) .AND. ASSOCIATED(State_Chm%DryDepNitrogen) ) THEN\n             State_Chm%DryDepNitrogen = Ptr2d_R8\n          ENDIF\n          Ptr2d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr2d_R8, 'WetDepNitrogen', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr2d_R8) .AND. ASSOCIATED(State_Chm%WetDepNitrogen) ) THEN\n             State_Chm%WetDepNitrogen = Ptr2d_R8\n          ENDIF\n          Ptr2d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'KPPHvalue', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%KPPHvalue) ) THEN\n             State_Chm%KPPHvalue(:,:,1:State_Met%MaxChemLev) =       &\n            Ptr3d_R8(:,:,State_Grid%NZ:State_Grid%NZ-State_Met%MaxChemLev+1:-1)\n          ENDIF\n          Ptr3d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'STATE_PSC', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%State_PSC) ) THEN\n             State_Chm%State_PSC(:,:,:) = Ptr3D(:,:,LM:1:-1)\n          ENDIF\n          Ptr3D => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'AeroH2O_SNA', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%AeroH2O) ) THEN\n             State_Chm%AeroH2O(:,:,1:State_Grid%NZ,NDUST+1) =       &\n                                  Ptr3d_R8(:,:,State_Grid%NZ:1:-1)\n          ENDIF\n          Ptr3d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'ORVCSESQ', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%ORVCsesq) ) THEN\n             State_Chm%ORVCsesq(:,:,1:State_Grid%NZ) =       &\n                                  Ptr3d_R8(:,:,State_Grid%NZ:1:-1)\n          ENDIF\n          Ptr3d_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr2D_R8, 'JOH', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr2D_R8) .AND. ASSOCIATED(State_Chm%JOH) ) THEN\n             State_Chm%JOH(:,:) = Ptr2D_R8(:,:)\n          ENDIF\n          Ptr2D_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr2D_R8, 'JNO2', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr2D_R8) .AND. ASSOCIATED(State_Chm%JNO2) ) THEN\n             State_Chm%JNO2(:,:) = Ptr2D_R8(:,:)\n          ENDIF\n          Ptr2D_R8 => NULL()\n\n          CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'TSTRAT_ADJ', notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%TStrat_Adj) ) THEN\n             State_Chm%TStrat_Adj(:,:,1:State_Grid%NZ) =       &\n                                  Ptr3d_R8(:,:,State_Grid%NZ:1:-1)\n          ENDIF\n          Ptr3d_R8 => NULL()\n       ENDIF\n#endif\n\n#if defined( MODEL_GEOS )\n       ! Set H2O from Q (=SPHU)\n       CALL GEOS_SetH2O( GC, Input_Opt, State_Met, State_Chm, State_Grid, Q, 1, __RC__ ) \n\n       ! Set appropriate met fields for lightning\n       CALL MetVars_For_Lightning_Run( GC, Import=IMPORT, Export=EXPORT, &\n             State_Met=State_Met, State_Grid=State_Grid, __RC__ )\n\n       ! Set CO2 / mesosphere CO concentrations from external field (e.g., GOCART)\n       ! Note: comment out for now and call this below immediately before doing\n       ! CO2 photolysis. Reason for this is that CO2 is currently hardcoded to \n       ! 0.0 in fullchem to match the old SMVGEAR code (??)\n!       CALL GEOS_CarbonSetConc( Import,    Input_Opt,  State_Chm,        &\n!                                State_Met, State_Diag, State_Grid, __RC__ )\n\n       ! Eventually initialize species concentrations from external field.\n       IsFirst = ( FIRST .OR. FIRSTREWIND )\n       IF ( InitFromFile ) THEN\n          CALL GEOS_InitFromFile( GC, Import, INTSTATE, Export, GeosCF, &\n                                  Input_Opt, State_Met, State_Chm, Q,  &\n                                  PLE, GCCTROPP, IsFirst, __RC__ )\n       ENDIF\n\n       ! Initialize RATS and OX tendency diagnostics\n       IF ( PHASE == RATSPHASE ) THEN\n          CALL GEOS_RATSandOxDiags( GC, INTSTATE, Export, Input_Opt, State_Met, &\n                                    State_Chm, State_Grid, Q, 1, tsChem, __RC__ ) \n       ENDIF\n\n       ! Perform GEOS pre-run checks\n       CALL GEOS_PreRunChecks( am_I_Root, Input_Opt, State_Met, State_Chm, &\n                               GeosCF, IsFirst, __RC__ )\n#endif\n\n       !=======================================================================\n       ! Set Olson land map types from import of Olson file.\n       !=======================================================================\n       ! We are currently using land type fractions derived from the 2001\n       ! Olson land map instead of GEOS5 vegetation type fractions. Fractions\n       ! are calculated by ExtData using conservate fractional regridding of\n       ! the native 0.25x0.25 resolution file. (ewl, 11/29/16)\n       !\n       ! Previous:\n       ! Set land types in State_Met from GEOS5 vegetation type fractions or\n       ! OLSON land type fractions. For now, the land types are treated as\n       ! static and obtained from offline fields. The routine below thus needs\n       ! to be called only once.\n       ! Once the GEOS-5 land types are dynamic, we should import those from\n       ! the surface component (field ITY, or better: vegetation type fractions\n       ! per grid box).                                   (ckeller, 01/06/2015)\n       !\n       !=======================================================================\n#if defined( MODEL_GEOS )\n       IF ( FIRST .OR. FIRSTREWIND ) THEN\n#else\n       IF ( FIRST ) THEN\n#endif\n\n          ! Set Olson fractional land type from import (ewl)\n          If (am_I_Root) Write(*,'(a)') 'Initializing land type ' // &\n                           'fractions from Olson imports'\n          Ptr2d => NULL()\n          DO TT = 1, NSURFTYPE\n\n             ! Create two-char string for land type\n             landTypeInt = TT-1\n             WRITE ( landTypeStr, '(I2.2)' ) landTypeInt\n             importName = 'OLSON' // TRIM(landTypeStr)\n\n             ! Get pointer and populate State_Met variable\n             CALL MAPL_GetPointer ( IMPORT, Ptr2D, TRIM(importName),  &\n                                    notFoundOK=.TRUE., __RC__ )\n             If ( Associated(Ptr2D) ) Then\n                State_Met%LandTypeFrac(:,:,TT) = Ptr2D(:,:)\n             ELSE\n                WRITE(6,*) TRIM(importName) // ' pointer is not associated'\n             ENDIF\n             Ptr2D => NULL()\n          ENDDO\n\n          ! Compute State_Met variables IREG, ILAND, IUSE, and FRCLND\n          CALL Compute_Olson_Landmap( Input_Opt, State_Grid, State_Met, RC )\n          _ASSERT(RC==GC_SUCCESS,'Error calling Compute_Olson_Landmap')\n       ENDIF\n\n#if defined( MODEL_GEOS )\n       !=======================================================================\n       ! Get total ozone column from GEOS-Chem export variable.\n       ! Need to calculate from restart variables on first call!\n       !=======================================================================\n       IF ( PHASE /= 1 ) THEN\n          CALL GEOS_CalcTotOzone( am_I_Root, State_Met, State_Chm, State_Diag, PLE, TROPP, __RC__ )\n       ENDIF\n#endif\n\n       !=======================================================================\n       ! Execute GEOS-Chem on multiple PETs\n       !=======================================================================\n\n       ! Fix negatives!\n       ! These can be brought in as an artifact of convection.\n#ifndef ADJOINT\n       DO N = 1, State_Chm%nSpecies\n          WHERE ( State_Chm%Species(N)%Conc < 0.0e0 )\n             State_Chm%Species(N)%Conc = 1.0e-36\n          END WHERE \n       ENDDO\n#endif\n\n       ! Execute GEOS-Chem if it's time to run it\n       IF ( IsRunTime ) THEN\n\n          ! This is mostly for testing\n#if defined( MODEL_GEOS )\n          IF ( FIRST .AND. Input_Opt%haveImpRst ) THEN\n#else\n          IF ( FIRST ) THEN\n#endif\n             IF ( am_I_Root ) THEN\n                WRITE(*,*) ''\n                WRITE(*,*) 'Doing warm GEOS-Chem restart'\n                WRITE(*,*) ''\n             ENDIF\n          ENDIF\n\n#if defined( MODEL_GEOS )\n          ! Only if restart file exists...\n          IF ( Input_Opt%haveImpRst ) THEN\n#endif\n\n#if !defined( MODEL_GEOS )\n             ! Optional memory prints (level >= 2)\n             if ( MemDebugLevel > 0 ) THEN\n                call ESMF_VMBarrier(vm, RC=STATUS)\n                _VERIFY(STATUS)\n                call MAPL_MemUtilsWrite(VM, &\n                  'Chem_GridCompMod, before chunk_run', RC=STATUS )\n                _VERIFY(STATUS)\n             endif\n#endif\n\n             CALL MAPL_TimerOn(STATE, \"DO_CHEM\")\n\n#if !defined( MODEL_GEOS )\n             ! NOTE: Second was not extracted previously; set to 0 for now\n             second = 0\n#endif\n\n#ifdef ADJOINT\n             !=======================================================================\n             ! If this is an adjoint run, we need to check for the final (first)\n             ! timestep and multiply the scaling factor adjoint by the initial concs\n             !=======================================================================\n             isStartTime = .false.\n             IF (Input_Opt%IS_ADJOINT) THEN\n                call ESMF_ClockGet(clock, currTime=currTime, startTime=stopTime,  __RC__ )\n             else\n                call ESMF_ClockGet(clock, currTime=currTime, stopTime=stopTime, __RC__ )\n             Endif\n\n                ! call ESMF_TimeIntervalSet(tsChemInt, s_r8=real(-tsChem, 8), __RC__ )\n             ! this variable is set to zero but I'm leaving it in case I need this code later\n                call ESMF_TimeIntervalSet(tsChemInt, s_r8=real(0, 8), __RC__ )\n\n                call ESMF_TimeGet(currTime + tsChemInt, timeString=timestring1, __RC__ )\n                call ESMF_TimeGet(stopTime, timeString=timestring2, __RC__ )\n\n                if (memdebuglevel > 0 .and. am_I_Root) &\n                     WRITE(*,*) '   Adjoint checking if ' // trim(timestring1) // ' == ' // trim(timestring2)\n\n                if (currTime + tsChemInt == stopTime) THEN\n                   isStartTime = .TRUE.\n                ENDIF\n#endif\n\n             ! Run the GEOS-Chem column chemistry code for the given phase\n             CALL GCHP_Chunk_Run( GC         = GC,         & ! Grid comp ref.\n                                  nymd       = nymd,       & ! Current YYYYMMDD\n                                  nhms       = nhms,       & ! Current hhmmss\n                                  year       = year,       & ! Current year\n                                  month      = month,      & ! Current month\n                                  day        = day,        & ! Current day\n                                  dayOfYr    = dayOfYr,    & ! Current doy\n                                  hour       = hour,       & ! Current hour\n                                  minute     = minute,     & ! Current minute\n                                  second     = second,     & ! Current second\n                                  utc        = utc,        & ! Current UTC [hrs]\n                                  hElapsed   = hElapsed,   & ! Elapsed hours\n                                  Input_Opt  = Input_Opt,  & ! Input Options\n                                  State_Chm  = State_Chm,  & ! Chemistry State\n                                  State_Diag = State_Diag, & ! Diagnostics State\n                                  State_Grid = State_Grid, & ! Grid State\n                                  State_Met  = State_Met,  & ! Meteorology State\n                                  Phase      = Phase,      & ! Run phase\n                                  IsChemTime = IsChemTime, & ! Time for chem?\n                                  IsRadTime  = IsRadTime,  & ! Time for RRTMG?\n#if defined( MODEL_GEOS )\n                                  FrstRewind = FirstRewind,& ! First rewind?\n#endif\n#ifdef ADJOINT\n                                  isStartTime = isStartTime, & !back to the first timestep in the reverse run?\n#endif\n                                  __RC__                  )  ! Success or fail?\n\n             CALL MAPL_TimerOff(STATE, \"DO_CHEM\")\n\n#if !defined( MODEL_GEOS )\n             ! Optional memory prints (level >= 2)\n             if ( MemDebugLevel > 0 ) THEN\n                call ESMF_VMBarrier(vm, RC=STATUS)\n                _VERIFY(STATUS)\n                call MAPL_MemUtilsWrite(VM, &\n                  'Chem_GridCompMod, after  chunk_run', RC=STATUS )\n                _VERIFY(STATUS)\n             endif\n#endif\n\n#if !defined( MODEL_GEOS )\n             where( State_Met%HFLUX .eq. 0.) State_Met%HFLUX = 1e-5\n#endif\n\n#if defined( MODEL_GEOS )\n          ! Restart file does not exist:\n          ELSE\n             IF ( am_I_Root ) THEN\n                WRITE(*,*) ''\n                WRITE(*,*) ' SKIP GEOS-CHEM PHASE ', Phase, &\n                           ' BECAUSE IMPORT RESTART FILE IS MISSING'\n                WRITE(*,*) ''\n             ENDIF\n          ENDIF\n#endif\n\n       ENDIF !IsRunTime\n\n       !=======================================================================\n       ! post-Run method array assignments. This copies the values back from\n       ! the State_Chm tracer arrays to the internal state, so that they can\n       ! be seen by other components (moist, turbulence, ...)\n       !=======================================================================\n\n#if defined( MODEL_GCHPCTM )\n       CALL MAPL_TimerOn(STATE, \"CP_AFTR\")\n#endif\n\n#if defined( MODEL_GEOS )\n       !=======================================================================\n       ! GEOS post-run procedures\n       !=======================================================================\n\n       ! Import CO2 concentrations from external field (e.g., GOCART)\n       ! Note: this call should be moved to the beginning of the routine once\n       ! CO2 is not hardcoded to 0.0 anymore (in fullchem)\n       CALL GEOS_CarbonSetConc( Import,    Input_Opt,  State_Chm,        &\n                                State_Met, State_Diag, State_Grid, __RC__ )\n\n       IF ( PHASE == CHEMPHASE ) THEN\n          ! CO production from CO2 photolysis, using StratChem code\n          CALL GEOS_CarbonRunPhoto( Input_Opt,  State_Chm,  State_Met, &\n                                    State_Diag, State_Grid, __RC__      )\n       ENDIF\n\n       IF ( PHASE == ANAPHASE ) THEN\n          ! Call GEOS analysis routine\n          CALL GEOS_AnaRun( GC, Import, INTSTATE, Export, Clock, &\n                            Input_Opt, State_Met, State_Chm, Q, PLE, TROPP, __RC__ )\n\n          ! GEOS Diagnostics. This includes the 'default' GEOS-Chem diagnostics.\n          CALL GEOS_Diagnostics( GC, IMPORT, EXPORT, Clock, Phase, Input_Opt, &\n                                 State_Met, State_Chm, State_Diag, State_Grid, __RC__ )\n       ENDIF\n\n       ! Fill RATS and OX diagnostics\n       IF ( PHASE == RATSPHASE ) THEN\n          CALL GEOS_RATSandOxDiags( GC, INTSTATE, Export, Input_Opt, State_Met, &\n                                    State_Chm, State_Grid, Q, 2, tsChem, __RC__ ) \n       ENDIF\n\n       ! Set H2O from Q (=SPHU)\n       IF ( Input_Opt%applyQtend ) THEN\n          CALL GEOS_SetH2O( GC, Input_Opt, State_Met, State_Chm, State_Grid, Q, -1, __RC__ ) \n       ENDIF\n\n       ! Update internal state fields \n       CALL MAPL_TimerOn(STATE, \"CP_AFTR\")\n#      include \"Includes_After_Run.H\"\n       CALL MAPL_TimerOff(STATE, \"CP_AFTR\")\n\n       ! Connect to aerosols - experimental\n       IF ( DoAERO ) THEN\n          CALL GEOS_FillAeroBundle ( GC, EXPORT, State_Chm, State_Grid, Input_Opt, __RC__ )\n       ENDIF\n\n       ! Archive last active time steps\n       pymd = nymd\n       phms = nhms\n#endif\n\n#if defined( MODEL_GCHPCTM )\n#ifdef ADJOINT\n       IF (Input_Opt%Is_Adjoint) THEN\n          State_Chm%SpeciesAdj = State_Chm%SpeciesAdj(:,:,State_Grid%NZ:1:-1,:)\n\n          DO I = 1, SIZE(Int2Adj,1)\n             WRITE(*,*) 'Copying adjoint ', Int2Adj(I)%ID, ' to ', I\n             IF ( Int2Adj(I)%ID <= 0 ) CYCLE\n             Int2Adj(I)%Internal = State_Chm%SpeciesAdj(:,:,:,Int2Adj(I)%ID)\n          ENDDO\n       ENDIF\n#endif\n       CALL MAPL_TimerOff(STATE, \"CP_AFTR\")\n\n       ! Update non-species dynamic internal state arrays post-run\n       ! every timestep, except for area which can be set first run only.\n       ! Some of the fields are for post-processing but need to be updated\n       ! mid-run for inclusion in mid-run checkpoint files.\n       CALL MAPL_GetPointer( INTSTATE, Ptr2d_R8, 'DryDepNitrogen', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr2d_R8) .AND. ASSOCIATED(State_Chm%DryDepNitrogen)) THEN\n          Ptr2d_R8 = State_Chm%DryDepNitrogen\n       ENDIF\n       Ptr2d_R8 => NULL()\n       CALL MAPL_GetPointer( INTSTATE, Ptr2d_R8, 'WetDepNitrogen', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr2d_R8) .AND. ASSOCIATED(State_Chm%WetDepNitrogen)) THEN\n          Ptr2d_R8 = State_Chm%WetDepNitrogen\n       ENDIF\n       Ptr2d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'H2O2AfterChem', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%H2O2AfterChem)) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) = State_Chm%H2O2AfterChem\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'SO2AfterChem', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%SO2AfterChem)) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) = State_Chm%SO2AfterChem\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'KPPHvalue', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%KPPHvalue)) THEN\n          Ptr3d_R8(:,:,1:State_Grid%NZ-State_Met%MaxChemLev) = 0.0\n          Ptr3d_R8(:,:,State_Grid%NZ:State_Grid%NZ-State_Met%MaxChemLev+1:-1)=&\n             State_Chm%KPPHvalue(:,:,1:State_Met%MaxChemLev)\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'AeroH2O_SNA', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%AeroH2O)) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) =  &\n                    State_Chm%AeroH2O(:,:,1:State_Grid%NZ,NDUST+1)\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'ORVCSESQ', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Chm%ORVCsesq)) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) =  &\n                    State_Chm%ORVCsesq(:,:,1:State_Grid%NZ)\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr2D_R8, 'JOH', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr2D_R8) .AND. ASSOCIATED(State_Chm%JOH)) THEN\n          Ptr2d_R8(:,:) = State_Chm%JOH(:,:)\n       ENDIF\n       Ptr2D_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr2D_R8, 'JNO2', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr2D_R8) .AND. ASSOCIATED(State_Chm%JNO2)) THEN\n          Ptr2d_R8(:,:) = State_Chm%JNO2(:,:)\n       ENDIF\n       Ptr2D_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'STATE_PSC', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%State_PSC)) THEN\n          Ptr3d(:,:,LM:1:-1) = State_Chm%State_PSC(:,:,:)\n       ENDIF\n       Ptr3D => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'DELP_DRY', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Met%DELP_DRY)) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) =  &\n                    State_Met%DELP_DRY(:,:,1:State_Grid%NZ)\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'TSTRAT_ADJ', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Met%DELP_DRY) &\n           .AND. ASSOCIATED(State_Chm%TStrat_Adj) ) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) =  &\n                    State_Chm%TStrat_Adj(:,:,1:State_Grid%NZ)\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d_R8, 'BXHEIGHT' ,&\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr3d_R8) .AND. ASSOCIATED(State_Met%BXHEIGHT)) THEN\n          Ptr3d_R8(:,:,State_Grid%NZ:1:-1) =  &\n                    State_Met%BXHEIGHT(:,:,1:State_Grid%NZ)\n       ENDIF\n       Ptr3d_R8 => NULL()\n\n       CALL MAPL_GetPointer( INTSTATE, Ptr2d_R8, 'TropLev', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF (ASSOCIATED(Ptr2d_R8) .AND. ASSOCIATED(State_Met%TropLev)) THEN\n          Ptr2d_R8 = State_Met%TropLev\n       ENDIF\n       Ptr2d_R8 => NULL()\n\n       ! Only update area the first timestep\n       IF ( FIRST ) THEN\n          CALL MAPL_GetPointer( INTSTATE, Ptr2d_R8, 'AREA', &\n                                notFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr2d_R8) .AND. ASSOCIATED(State_Met%AREA_M2) ) THEN\n             Ptr2d_R8 = State_Met%AREA_M2\n          ENDIF\n          Ptr2d_R8 => NULL()\n       ENDIF\n#else\n       ! For GEOS, update specific humidity internal state variable if using.\n       CALL MAPL_GetPointer( INTSTATE, Ptr3d, 'SpecificHumidity', &\n                             notFoundOK=.TRUE., __RC__ )\n       IF ( ASSOCIATED(Ptr3d) ) THEN\n          Ptr3d(:,:,State_Grid%NZ:1:-1) =  &\n                    State_Met%SPHU(:,:,1:State_Grid%NZ) * 1e-3_fp\n       ENDIF\n       Ptr3d => NULL()\n#endif\n       \n       ! Stop timer\n       ! ----------\n       CALL MAPL_TimerOff(STATE, \"RUN\"  )\n\n    ENDIF RunningGEOSChem\n\n    !=======================================================================\n    ! Copy HISTORY.rc diagnostic data to exports. Includes HEMCO emissions\n    ! diagnostics but excludes internal state and exports created explicitly\n    ! in Chem_GridCompMod. NOTE: Exports created explicitly in Chem_GridCompMod\n    ! will eventually be moved elsewhere as diagnostics for use with GEOS-5.\n    ! (ewl, 11/2/17)\n    !=======================================================================\n    IF ( FIRST ) THEN\n       CALL HistoryExports_SetDataPointers( am_I_Root,     EXPORT,    &\n                                            HistoryConfig, State_Chm, &\n                                            State_Diag,    State_Met, &\n                                            STATUS )\n       _VERIFY(STATUS)\n    ENDIF\n    CALL CopyGCStates2Exports( am_I_Root, Input_Opt, HistoryConfig, STATUS )\n    _VERIFY(STATUS)\n\n#if defined( MODEL_GCHPCTM )\n    !=======================================================================\n    ! Nullify GEOS-Chem species concentration pointers\n    !=======================================================================\n    DO I = 1, SIZE(Int2Spc,1)\n       IF ( Int2Spc(I)%ID <= 0 ) CYCLE\n       IF ( ASSOCIATED( State_Chm%Species(Int2Spc(I)%ID)%Conc ) ) THEN\n          State_Chm%Species(Int2Spc(I)%ID)%Conc => NULL()\n       ENDIF\n    ENDDO\n#endif\n\n    !=======================================================================\n    ! All done\n    !=======================================================================\n\n    IF ( ALLOCATED( zenith     ) ) DEALLOCATE( zenith     )\n    IF ( ALLOCATED( solar      ) ) DEALLOCATE( solar      )\n\n    ! Stop timer\n    ! ----------\n    CALL MAPL_TimerOff(STATE, \"TOTAL\")\n\n#if defined( MODEL_GEOS )\n    ! The restart file should exist at least after the first full cycle,\n    ! e.g. after phase 1 and phase 2 has been called once.\n    IF ( FIRST .AND. Phase == 1 ) THEN\n       Input_Opt%haveImpRst = Input_Opt%haveImpRst\n    ELSE\n       Input_Opt%haveImpRst = .TRUE.\n    ENDIF\n#endif\n\n    ! Update first flags\n    FIRST = .FALSE.\n\n#if defined( MODEL_GEOS )\n    ! Unlink HEMCO state from gridcomp objects\n    HcoState%GRIDCOMP => NULL()\n    HcoState%IMPORT   => NULL()\n    HcoState%EXPORT   => NULL()\n#endif\n\n    ! Successful return\n    _RETURN(ESMF_SUCCESS)\n\n    ! Formats\n100 FORMAT( '---> DATE: ', i4.4, '/', i2.2, '/', i2.2,      &\n            '  GMT: ', i2.2, ':', i2.2, '  X-HRS: ', f11.3 )\n110 FORMAT( 'Box (',i3,',',i3,') on PET ', i3, ' has coords: ', 2f7.2, &\n               ' LocT = ', f9.4 )\n200 FORMAT( '### ',                                           / &\n            '### ', a, '  |  Execution on PET # ',      i5.5, / &\n            '###' )\n\n  END SUBROUTINE Run_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_\n!\n! !DESCRIPTION: Finalize_ is the finalize method of the GEOSCHEMchem gridded\n!  component.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_( GC, Import, Export, Clock, RC )\n!\n! !USES:\n!\n    USE CMN_Size_Mod,          ONLY : NDUST\n    USE Input_Opt_Mod,         ONLY : OptInput\n#if !defined( MODEL_GEOS )\n    USE Input_Opt_Mod,         ONLY : Cleanup_Input_Opt\n#endif\n    USE State_Chm_Mod,         ONLY : ChmState, Cleanup_State_Chm\n    USE State_Diag_Mod,        ONLY : DgnState, Cleanup_State_Diag\n    USE State_Grid_Mod,        ONLY : GrdState, Cleanup_State_Grid\n    USE State_Met_Mod,         ONLY : MetState, Cleanup_State_Met\n    USE HCO_Interface_GC_Mod,  ONLY : HCOI_GC_FINAL\n#if defined( MODEL_GEOS )\n    USE HCO_State_GC_Mod,      ONLY : HcoState\n    USE GEOS_Analysis,         ONLY : GEOS_AnaFinal\n#endif\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n#if defined( MODEL_GEOS )\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC       ! Ref. to this GC\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: Import   ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: Export   ! Export State\n#else\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC       ! Ref. to this GC\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import   ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export   ! Export State\n#endif\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock    ! ESMF Clock object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!  We call routine Extract_ to return various values (i.e. grid parameters,\n!  start & end dates, PET information, etc.) from the ESMF/MAPL environment.\n!  We then pass those to GEOS-Chem via routine GCHP_CHUNK_FINAL, which is\n!  located in GEOS-Chem module ./GEOS-Chem/ESMF/gchp_chunk_mod.F90.\n!\n! !REVISION HISTORY:\n!  01 Dec 2009 - A. Da Silva - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(ESMF_Grid)            :: Grid        ! ESMF Grid object\n    TYPE(ESMF_Config)          :: MaplCF      ! Config (MAPL.rc)\n    TYPE(ESMF_Config)          :: GeosCF      ! Config (GEOSCHEM*.rc)\n\n    type(GC_run_alarms), pointer :: GC_alarms\n    type(GCRA_wrap)              :: GC_alarm_wrapper\n\n    ! Scalars\n    LOGICAL                    :: am_I_Root   ! Are we on the root PET?\n    CHARACTER(LEN=ESMF_MAXSTR) :: compName    ! Gridded component name\n    INTEGER                    :: error       ! GEOS-Chem error code\n    INTEGER                    :: myPet       ! # of PET we are on now\n    INTEGER                    :: I,  J,  L   ! Loop indices\n    REAL                       :: UTC         ! UTC time [hours]\n    \n    ! ewl: added for new internal state vars\n    CHARACTER(LEN=ESMF_MAXSTR) :: importName, intStr\n    INTEGER                    :: LM\n\n    ! Pointers\n    TYPE(MAPL_MetaComp), POINTER :: STATE\n#if !defined( MODEL_GEOS )\n    TYPE(Species),       POINTER :: ThisSpc\n\n    ! For species copying\n    INTEGER                     :: IND\n    TYPE(ESMF_STATE)            :: INTSTATE\n    REAL, POINTER               :: Ptr2D(:,:)      => NULL()\n    REAL, POINTER               :: Ptr3D(:,:,:)    => NULL()\n    REAL(ESMF_KIND_R8), POINTER :: Ptr2D_R8(:,:)   => NULL()\n    REAL(ESMF_KIND_R8), POINTER :: Ptr3D_R8(:,:,:) => NULL()\n\n    INTEGER                     :: N, K, NFD\n    CHARACTER(LEN=ESMF_MAXSTR)  :: TrcName\n#endif\n#ifdef ADJOINT\n    ! Finite difference test variables\n    INTEGER                        :: IFD, JFD, LFD\n    REAL*8                         :: CFN\n    CHARACTER(len=ESMF_MAXSTR)     :: FD_SPEC\n#endif\n\n\n    __Iam__('Finalize_')\n\n    !=======================================================================\n    ! Initialization\n    !=======================================================================\n\n    ! Are we on the root PET\n    am_I_Root = MAPL_Am_I_Root()\n\n    ! Set number of levels\n    LM = State_Grid%NZ\n\n    ! Set up traceback info\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::Finalize_'\n\n    ! Get my MAPL_Generic state\n    ! -------------------------\n    CALL MAPL_GetObjectFromGC(GC, STATE, RC=STATUS)\n    _VERIFY(STATUS)\n\n    ! Start timers\n    ! ------------\n!    CALL MAPL_TimerOn(STATE, \"TOTAL\")\n!    CALL MAPL_TimerOn(STATE, \"FINALIZE\")\n\n    ! Get various parameters from the ESMF/MAPL framework\n    CALL Extract_( GC,                 &    ! Ref to this Gridded Component\n                   Clock,              &    ! ESMF Clock object\n                   Grid     = Grid,    &    ! ESMF Grid object\n                   MaplCF   = MaplCF,  &    ! ESMF Config obj (MAPL.rc)\n                   GeosCF   = GeosCF,  &    ! ESMF Config obj (GEOSCHEM*.rc)\n                   utc      = utc,     &    ! Universal time [hours]\n                   localPET = myPet,   &    ! PET # we are on now\n                   __RC__ )\n\n    ! Destroy the internal alarms\n    call ESMF_UserCompGetInternalState(GC,'gcchem_internal_alarms',GC_alarm_wrapper,status)\n    _ASSERT(status==0,'Could not find GC alarms for destruction')\n\n    GC_alarms => GC_alarm_wrapper%ptr\n    call ESMF_AlarmDestroy(GC_alarms%RRTMG_alarm,rc=status)\n    _ASSERT(status==0,'Could not destroy radiation alarm')\n    deallocate(GC_alarms,stat=status)\n    _ASSERT(status==0,'Could not deallocate GC alarms')\n\n    !=======================================================================\n    ! Finalize the Gridded Component\n    !=======================================================================\n\n#if defined( MODEL_GEOS )\n    ! Link HEMCO state to gridcomp objects\n    _ASSERT(ASSOCIATED(HcoState),'HcoState is not associated')\n    HcoState%GRIDCOMP => GC\n    HcoState%IMPORT   => IMPORT\n    HcoState%EXPORT   => EXPORT\n#endif\n\n#ifdef ADJOINT\n    IF (Input_Opt%IS_FD_SPOT_THIS_PET .and. .not. Input_Opt%IS_FD_GLOBAL) THEN\n       FD_SPEC = transfer(state_chm%SpcData(Input_Opt%NFD)%Info%Name, FD_SPEC)\n       IFD = Input_Opt%IFD\n       JFD = Input_Opt%JFD\n       LFD = Input_Opt%LFD\n       NFD = Input_Opt%NFD\n       ! print out the cost function\n       WRITE(*,*) ' Computing final cost function'\n       CFN = 0d0\n       DO L = 1, State_Grid%NZ\n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n          if (State_Chm%CostFuncMask(I,J,L) > 0d0) THEN\n             WRITE (*, 1047) I, J, L, State_Chm%Species(NFD)%conc(I,J,L)\n             CFN = CFN + State_Chm%Species(NFD)%Conc(I,J,L)\n          endif\n       ENDDO\n        ENDDO\n       ENDDO\n       WRITE(*,'(a7, e22.10)') ' CFN = ', CFN\n1047   FORMAT('  SPC(', i2, ', ', i2, ', ', i2, ') = ', e22.10)\n    ENDIF\n#endif\n\n    ! Finalize HEMCO\n    CALL HCOI_GC_FINAL( .FALSE., RC )\n    IF ( Input_Opt%AmIRoot ) THEN\n       IF ( RC == GC_SUCCESS ) THEN\n          write(*,'(a)') 'HEMCO::Finalize... OK.'\n       ELSE\n          write(*,'(a)') 'HEMCO::Finalize... FAILURE.'\n       ENDIF\n    ENDIF\n\n    ! Deallocate fields of the Chemistry State object\n    CALL Cleanup_State_Chm( State_Chm, RC )\n    IF ( Input_Opt%AmIRoot ) THEN\n       IF ( RC == GC_SUCCESS ) THEN\n          write(*,'(a)') 'Chem::State_Chm Finalize... OK.'\n       ELSE\n          write(*,'(a)') 'Chem::State_Chm Finalize... FAILURE.'\n       ENDIF\n    ENDIF\n\n    ! Deallocate fields of the Diagnostics State object\n    CALL Cleanup_State_Diag( State_Diag, RC )\n    IF ( Input_Opt%AmIRoot ) THEN\n       IF ( RC == GC_SUCCESS ) THEN\n          write(*,'(a)') 'Chem::State_Diag Finalize... OK.'\n       ELSE\n          write(*,'(a)') 'Chem::State_Diag Finalize... FAILURE.'\n       ENDIF\n    ENDIF\n\n    ! Deallocate fields of the Grid State object\n    CALL Cleanup_State_Grid( State_Grid, RC )\n    IF ( Input_Opt%AmIRoot ) THEN\n       IF ( RC == GC_SUCCESS ) THEN\n          write(*,'(a)') 'Chem::State_Grid Finalize... OK.'\n       ELSE\n          write(*,'(a)') 'Chem::State_Grid Finalize... FAILURE.'\n       ENDIF\n    ENDIF\n\n    ! Deallocate fields of the Meteorology State object\n    CALL Cleanup_State_Met( State_Met, RC )\n    IF ( Input_Opt%AmIRoot ) THEN\n       IF ( RC == GC_SUCCESS ) THEN\n          write(*,'(a)') 'Chem::State_Met Finalize... OK.'\n       ELSE\n          write(*,'(a)') 'Chem::State_Met Finalize... FAILURE.'\n       ENDIF\n    ENDIF\n\n#if !defined( MODEL_GEOS )\n    ! Deallocate fields of the Input Options object\n    ! The call to Cleanup_Input_Opt causes a memory leak error. Comment\n    ! for now (ckeller, 11/29/16).\n    ! Does this still cause a memory leak? (ewl, 12/14/18)\n     CALL Cleanup_Input_Opt( Input_Opt, RC )\n    IF ( Input_Opt%AmIRoot ) THEN\n       IF ( RC == GC_SUCCESS ) THEN\n          write(*,'(a)') 'Chem::Input_Opt Finalize... OK.'\n       ELSE\n          write(*,'(a)') 'Chem::Input_Opt Finalize... FAILURE.'\n       ENDIF\n    ENDIF\n#endif\n\n    ! Free Int2Spc pointer\n    IF ( ASSOCIATED(Int2Spc) ) THEN\n       DO I=1,SIZE(Int2Spc,1)\n          Int2Spc(I)%Internal => NULL()\n       ENDDO\n       DEALLOCATE(Int2Spc)\n    ENDIF\n\n#ifdef ADJOINT\n    ! Free Int2Adj pointer\n    IF ( ASSOCIATED(Int2Adj) ) THEN\n       DO I=1,SIZE(Int2Adj,1)\n          Int2Adj(I)%Internal => NULL()\n       ENDDO\n       DEALLOCATE(Int2Adj)\n    ENDIF\n#endif\n\n    ! Deallocate the history interface between GC States and ESMF Exports\n    CALL Destroy_HistoryConfig( am_I_Root, HistoryConfig, RC )\n\n#if defined( MODEL_GEOS )\n    ! Cleanup GEOS analysis module\n    CALL GEOS_AnaFinal( __RC__ )\n#endif\n\n    ! Finalize MAPL Generic\n    CALL MAPL_GenericFinalize( GC, Import, Export, Clock, __RC__ )\n\n    !=======================================================================\n    ! All done\n    !=======================================================================\n\n    ! Stop timers\n    ! -----------\n!    CALL MAPL_TimerOff(STATE, \"FINALIZE\")\n!    CALL MAPL_TimerOff(STATE, \"TOTAL\")\n\n    ! Successful return\n    _RETURN(ESMF_SUCCESS)\n\n  END SUBROUTINE Finalize_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Extract_\n!\n! !DESCRIPTION: GC routine extracts several common quantities from the\n!  ESMF/MAPL environment so that they can be later passed down to the\n!  grid-independent GEOS-Chem code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Extract_( GC,         Clock,    Grid,    MaplCF, GeosCF,    &\n                       localPet,   petCount,                             &\n                       IM,         JM,       LM,                         &\n                       IM_WORLD,   JM_WORLD, LM_WORLD,                   &\n                       IL_WORLD,   IU_WORLD, JL_WORLD, JU_WORLD,         &\n                       lonCtr,     latCtr,   advCount,                   &\n                       nymdB,      nymdE,    nymd,    nhmsB,  nhmsE,     &\n                       nhms,       year,     month,   day,    dayOfYr,   &\n                       hour,       minute,   second,  utc,    hElapsed,  &\n                       tsChem,     tsDyn,    mpiComm, ZTH,   SLR,        &\n                       tsRad,                                            &\n#if defined( MODEL_GEOS )\n                       haveImpRst,                                       &\n#endif\n                       RC )\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(ESMF_Clock),    INTENT(IN)            :: Clock       ! ESMF clock obj\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC          ! GC grid comp\n!\n! !OUTPUT PARAMETERS:\n!\n    !----------------------------------\n    ! ESMF and/or MAPL quantities\n    !----------------------------------\n    TYPE(ESMF_Grid),     INTENT(OUT), OPTIONAL :: Grid        ! ESMF Grid obj\n    TYPE(ESMF_Config),   INTENT(OUT), OPTIONAL :: MaplCF      ! AGCM.rc\n    TYPE(ESMF_Config),   INTENT(OUT), OPTIONAL :: GeosCF      ! GEOSCHEM*.rc\n    INTEGER,             INTENT(OUT), OPTIONAL :: localPet    ! This PET\n    INTEGER,             INTENT(OUT), OPTIONAL :: petCount    ! Total # of PETs\n    INTEGER,             INTENT(OUT), OPTIONAL :: mpiComm     ! MPI Comm Handle\n\n    !----------------------------------\n    ! Local grid coordinates\n    ! (defined on the current CPU)\n    !----------------------------------\n    INTEGER,             INTENT(OUT), OPTIONAL :: IM          ! Total # lons\n    INTEGER,             INTENT(OUT), OPTIONAL :: JM          ! Total # lats\n    INTEGER,             INTENT(OUT), OPTIONAL :: LM          ! Total # levs\n    REAL(ESMF_KIND_R4),  POINTER,     OPTIONAL :: lonCtr(:,:) ! Lon ctrs [rad]\n    REAL(ESMF_KIND_R4),  POINTER,     OPTIONAL :: latCtr(:,:) ! Lat ctrs [rad]\n\n    !----------------------------------\n    ! Global grid coordinates\n    !----------------------------------\n    INTEGER,             INTENT(OUT), OPTIONAL :: IM_WORLD    ! Global # lons\n    INTEGER,             INTENT(OUT), OPTIONAL :: JM_WORLD    ! Global # lats\n    INTEGER,             INTENT(OUT), OPTIONAL :: LM_WORLD    ! Global # levs\n    INTEGER,             INTENT(OUT), OPTIONAL :: IL_WORLD    ! Global start lon index on this PET\n    INTEGER,             INTENT(OUT), OPTIONAL :: IU_WORLD    ! Global end   lon index on this PET\n    INTEGER,             INTENT(OUT), OPTIONAL :: JL_WORLD    ! Global start lat index on this PET\n    INTEGER,             INTENT(OUT), OPTIONAL :: JU_WORLD    ! Global end   lat index on this PET\n\n    !----------------------------------\n    ! Date and time variables\n    !----------------------------------\n   INTEGER(ESMF_KIND_I8),INTENT(OUT), OPTIONAL :: advCount    ! # of clock advs\n    INTEGER,             INTENT(OUT), OPTIONAL :: nymdB       ! YYYYMMDD @ start\n    INTEGER,             INTENT(OUT), OPTIONAL :: nymdE       ! YYYYMMDD @ end\n    INTEGER,             INTENT(OUT), OPTIONAL :: nymd        ! YYYYMMDD now\n    INTEGER,             INTENT(OUT), OPTIONAL :: nhmsB       ! hhmmss @ start\n    INTEGER,             INTENT(OUT), OPTIONAL :: nhmsE       ! hhmmss @ end\n    INTEGER,             INTENT(OUT), OPTIONAL :: nhms        ! hhmmss now\n    INTEGER,             INTENT(OUT), OPTIONAL :: year        ! UTC year\n    INTEGER,             INTENT(OUT), OPTIONAL :: month       ! UTC month\n    INTEGER,             INTENT(OUT), OPTIONAL :: day         ! UTC day\n    INTEGER,             INTENT(OUT), OPTIONAL :: dayOfYr     ! UTC day of year\n    INTEGER,             INTENT(OUT), OPTIONAL :: hour        ! UTC hour\n    INTEGER,             INTENT(OUT), OPTIONAL :: minute      ! UTC minute\n    INTEGER,             INTENT(OUT), OPTIONAL :: second      ! UTC second\n    REAL,                INTENT(OUT), OPTIONAL :: utc         ! UTC time [hrs]\n    REAL,                INTENT(OUT), OPTIONAL :: hElapsed    ! Elapsed hours\n\n    !-----------------------------------\n    ! Timestep variables [seconds]\n    !-----------------------------------\n    REAL,                INTENT(OUT), OPTIONAL :: tsChem      ! Chemistry\n    REAL,                INTENT(OUT), OPTIONAL :: tsRad       ! RRTMG\n    REAL,                INTENT(OUT), OPTIONAL :: tsDyn       ! Dynamics\n\n    !-----------------------------------\n    ! Solar parameters\n    !-----------------------------------\n    REAL,                INTENT(OUT), OPTIONAL :: ZTH(:,:)    ! Solar zth angle\n    REAL,                INTENT(OUT), OPTIONAL :: SLR(:,:)    ! Insolation\n\n#if defined( MODEL_GEOS )\n    !-----------------------------------------------\n    ! Optional import restart file existence inquiry\n    !-----------------------------------------------\n    LOGICAL,             INTENT(OUT), OPTIONAL :: haveImpRst ! Import rst exist?\n#endif\n\n    !-----------------------------------\n    ! Return code\n    !-----------------------------------\n    INTEGER,             INTENT(OUT), OPTIONAL :: RC          ! 0 = all is well\n!\n! !REMARKS:\n!  If you need to obtain a quantity not returned by this routine, you can\n!  manually extract it from the MaplCF or GeosCF configuration objects.\n!\n! !REVISION HISTORY:\n!  01 Dec 2009 - A. Da Silva - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Objects\n    TYPE(ESMF_Time)               :: stopTime       ! ESMF stop time obj\n    TYPE(ESMF_Time)               :: currTime       ! ESMF current time obj\n    TYPE(ESMF_TimeInterval)       :: elapsedTime    ! ESMF elapsed time obj\n    TYPE(ESMF_TimeInterval)       :: chemInterval   ! chemistry interval\n    TYPE(ESMF_ALARM)              :: ALARM          ! Run alarm\n    TYPE(ESMF_VM)                 :: VM             ! ESMF VM object\n    TYPE(GEOSCHEM_State), POINTER :: myState        ! Legacy state\n    TYPE(GEOSCHEM_Wrap)           :: wrap           ! Wrapper for myState\n    TYPE(MAPL_MetaComp),  POINTER :: STATE          ! MAPL MetaComp object\n    TYPE(MAPL_SunOrbit)           :: sunOrbit\n\n    ! Scalars\n    CHARACTER(len=ESMF_MAXSTR)    :: compName       ! Gridded component name\n    CHARACTER(len=ESMF_MAXSTR)    :: importRstFN    ! Import restart file name\n    INTEGER(ESMF_KIND_I8)         :: count          ! # of clock advances\n    INTEGER                       :: locDims(3)     ! Array for local dims\n    INTEGER                       :: globDims(3)    ! Array for global dims\n    INTEGER                       :: doy            ! Day of year (0-365/366)\n    INTEGER                       :: yyyy, mm, dd   ! Year, month, day\n    INTEGER                       :: h,    m,  s    ! Hour, minute, seconds\n    INTEGER                       :: IL,   IU       ! Min/max local lon indices\n    INTEGER                       :: JL,   JU       ! Min/max local lat indices\n    REAL                          :: elapsedHours   ! Elapsed hours of run\n    REAL(ESMF_KIND_R8)            :: dt_r8          ! chemistry timestep\n\n    CHARACTER(len=ESMF_MAXSTR)    :: OUTSTR         ! Parallel write nonsense\n\n    ! Saved variables\n    LOGICAL, SAVE                 :: FIRST = .TRUE.\n    TYPE(ESMF_Time), SAVE         :: startTime\n\n    __Iam__('Extract_')\n\n    !=======================================================================\n    ! Initialization\n    !=======================================================================\n\n    ! Get my name and set-up traceback handle\n    CALL ESMF_GridCompGet( GC, name=compName, vm=VM, __RC__ )\n    Iam = TRIM(compName)//'::Extract_'\n\n    ! Get the internal state which holds the private Config object\n    CALL ESMF_UserCompGetInternalState( GC, 'GEOSCHEM_State', wrap, STATUS )\n    _VERIFY(STATUS)\n    myState => wrap%ptr\n\n    ! Get generic state object\n    CALL MAPL_GetObjectFromGC( GC, STATE, __RC__ )\n\n    ! Assume successful return\n    IF ( PRESENT( RC ) ) RC = ESMF_SUCCESS\n\n    ! Zero variables\n    locDims  = 0\n    globDims = 0\n    IL       = 0\n    JL       = 0\n    IU       = 0\n    JU       = 0\n\n    !=======================================================================\n    ! Extract information from ESMF VM object\n    !=======================================================================\n\n\n    ! Index of the PET we are on now\n    IF ( PRESENT( localPet ) ) THEN\n       CALL ESMF_VmGet( VM, localPet=localPet, __RC__ )\n    ENDIF\n\n    ! Total # of PETs used by this gridded component\n    IF ( PRESENT( petCount ) ) THEN\n       CALL ESMF_VmGet( VM, petCount=petCount, __RC__ )\n    ENDIF\n\n    ! Global MPI Communicator Handle\n    IF ( PRESENT( mpiComm ) ) THEN\n       CALL ESMF_VmGet( VM, mpicommunicator=mpiComm, __RC__ )\n    ENDIF\n\n    !=======================================================================\n    ! Extract information from ESMF Config objects\n    !=======================================================================\n\n    ! Get the Config object\n    CALL ESMF_GridCompGet( GC, Config=MaplCF, __RC__ )\n\n    ! Get the Config object based on \"GEOSCHEMchem_GridComp.rc\"\n    GeosCF = myState%myCF\n\n    ! Dynamic timestep (in seconds)\n    IF ( PRESENT( tsDyn ) ) THEN\n       CALL ESMF_ConfigGetAttribute( MaplCF, tsDyn, Default=1800.,        &\n                                     Label=\"RUN_DT:\",             __RC__ )\n    ENDIF\n\n    ! Radiation timestep (in seconds)\n    IF ( PRESENT( tsRad ) ) THEN\n       CALL ESMF_ConfigGetAttribute( MaplCF, tsRad, Default=10800.,        &\n                                     Label=\"RRTMG_DT:\",             __RC__ )\n    ENDIF\n\n    ! Chemistry timestep (in seconds)\n    IF ( PRESENT( tsChem ) ) THEN\n        CALL MAPL_Get( STATE, RUNALARM=ALARM, __RC__ )\n        CALL ESMF_AlarmGet( ALARM, RingInterval=chemInterval, __RC__ )\n        CALL ESMF_TimeIntervalGet( chemInterval, s_r8=dt_r8, __RC__ )\n        tsChem = real(dt_r8)\n\n        IF(abs(tsChem) < abs(tsDyn)) THEN\n           IF( MAPL_AM_I_ROOT() ) THEN\n#if defined( MODEL_GEOS )\n              WRITE(6,*) 'GEOSCHEMCHEM_DT cannot be less than RUN_DT'\n#else\n              WRITE(6,*) 'Chem_DT cannot be less than RUN_DT'\n#endif\n           ENDIF\n           STATUS = 1\n           _VERIFY(STATUS)\n        ENDIF\n    ENDIF\n\n    If ( PRESENT( tsRad ) .and. PRESENT( tsChem ) ) Then\n        _ASSERT(MOD(nint(tsRad),nint(tsChem)) == 0,'RRTMG_DT is not a multiple of GCHPCHEM_DT')\n    End If\n\n#if defined( MODEL_GEOS )\n    ! Simulation dates. Legacy stuff, not used.\n    ! Set to dummy values (ckeller, 1/18/18)\n    !IF ( PRESENT( nymdB ) ) nymdB = 20130701\n    !IF ( PRESENT( nhmsB ) ) nhmsB = 000000\n    !IF ( PRESENT( nymdE ) ) nymdE = 20130701\n    !IF ( PRESENT( nhmsE ) ) nhmsE = 000000\n\n    !=======================================================================\n    ! Does the import restart file exist?\n    !=======================================================================\n\n    ! Import restart file name\n    IF ( PRESENT ( haveImpRst ) ) THEN\n       CALL ESMF_ConfigGetAttribute( MaplCF, importRstFN,                      &\n                                  DEFAULT = \"geoschemchem_import_rst.nc4\",     &\n                                  LABEL = \"GEOSCHEMCHEM_IMPORT_RESTART_FILE:\", &\n                                  __RC__ )\n\n       ! remove bootstrap parameter\n       IF( importRstFN(1:1) == '-' .OR. &\n           importRstFN(1:1) == '+'       ) THEN\n          importRstFN = importRstFN(2:LEN(TRIM(importRstFN)))\n       ENDIF\n       INQUIRE( FILE=TRIM( importRstFN ), EXIST=haveImpRst )\n       IF( MAPL_AM_I_ROOT() ) THEN\n          PRINT *,\" \",TRIM( importRstFN ),\" exists: \", haveImpRst\n          PRINT *,\" \"\n       END IF\n    ENDIF\n#endif\n\n    !=======================================================================\n    ! Extract time/date information\n    !=======================================================================\n\n    ! Get the ESMF time object\n    CALL ESMF_ClockGet( Clock,                    &\n                        stopTime     = stopTime,  &\n                        currTime     = currTime,  &\n                        advanceCount = count,     &\n                         __RC__ )\n\n    !=======================================================================\n    ! Current, start, and end times\n    !=======================================================================\n\n    ! Get current-time fields from the time object. Set start/end if first.\n    CALL ESMF_TimeGet( currTime, yy=yyyy, mm=mm, dd=dd, dayOfYear=doy, &\n                                 h=h,     m=m,   s=s,   __RC__ )\n    IF ( PRESENT( nymd     ) ) CALL MAPL_PackTime( nymd, yyyy, mm, dd )\n    IF ( PRESENT( nhms     ) ) CALL MAPL_PackTime( nhms, h,    m,  s  )\n    IF ( PRESENT( year     ) ) year     = yyyy\n    IF ( PRESENT( month    ) ) month    = mm\n    IF ( PRESENT( day      ) ) day      = dd\n    IF ( PRESENT( dayOfYr  ) ) dayOfYr  = doy\n    IF ( PRESENT( hour     ) ) hour     = h\n    IF ( PRESENT( minute   ) ) minute   = m\n    IF ( PRESENT( second   ) ) second   = s\n    IF ( PRESENT( utc      ) ) utc      = ( DBLE( h )        ) + &\n                                          ( DBLE( m )/60d0   ) + &\n                                          ( DBLE( s )/3600d0 )\n\n    ! Simulation start\n    IF ( FIRST ) THEN\n       startTime = currTime\n    ENDIF\n    CALL ESMF_TimeGet( startTime, yy=yyyy, mm=mm, dd=dd, dayOfYear=doy, &\n                                  h=h,     m=m,   s=s,   __RC__ )\n    IF ( PRESENT ( nymdB ) ) CALL MAPL_PackTime( nymdB, yyyy, mm, dd )\n    IF ( PRESENT ( nhmsB ) ) CALL MAPL_PackTime( nhmsB, h,    m,  s  )\n\n    ! Simulation end\n    CALL ESMF_TimeGet( stopTime, yy=yyyy, mm=mm, dd=dd, dayOfYear=doy, &\n                                 h=h,     m=m,   s=s,   __RC__ )\n    IF ( PRESENT( nymdE ) ) CALL MAPL_PackTime( nymdE, yyyy, mm, dd )\n    IF ( PRESENT( nhmsE ) ) CALL MAPL_PackTime( nhmsE, h,    m,  s  )\n\n    ! # clock steps\n    IF ( PRESENT( advCount ) ) advCount = count\n\n    ! Compute elapsed time since start of simulation\n    elapsedTime = currTime - startTime\n\n    ! Get time fields from the elapsedTime object\n    CALL ESMF_TimeIntervalGet( elapsedTime, h=h, m=m, s=s, __RC__ )\n\n    ! Convert to decimal hours\n    elapsedHours = DBLE( h ) + ( DBLE( m )/60d0 ) + ( DBLE( s )/3600d0 )\n\n    ! Save fields for return\n    IF ( PRESENT( hElapsed ) ) hElapsed = elapsedHours\n\n    !=======================================================================\n    ! Extract grid information\n    !=======================================================================\n    IF ( PRESENT( Grid ) ) THEN\n\n       ! Get the ESMF grid attached to this gridded component\n       CALL ESMF_GridCompGet( GC, grid=Grid, __RC__ )\n\n       ! Get # of dimensions on this pet, and globally\n       CALL MAPL_GridGet( Grid,                                        &\n                          localCellCountPerDim  = locDims,             &\n                          globalCellCountPerDim = globDims,            &\n                          __RC__ )\n\n       ! Get the upper and lower bounds of on each PET using MAPL\n       CALL MAPL_GridGetInterior( Grid, IL, IU, JL, JU )\n       ! if (PRESENT(localPet)) THEN\n       !    WRITE (*,1141) localPet, IL, IU, JL, JU\n       ! endif\n\n1141   FORMAT(' Process ', i5, ' goes from I = ', i3, ':', i3, '   J = ', i3, ':', i3)\n\n    ENDIF\n\n    ! Save fields for return\n    IF ( PRESENT( IM       ) ) IM       = locDims(1)\n    IF ( PRESENT( JM       ) ) JM       = locDims(2)\n    IF ( PRESENT( LM       ) ) LM       = locDims(3)\n    IF ( PRESENT( IM_WORLD ) ) IM_WORLD = globDims(1)\n    IF ( PRESENT( JM_WORLD ) ) JM_WORLD = globDims(2)\n    IF ( PRESENT( LM_WORLD ) ) LM_WORLD = globDims(3)\n\n    IF ( PRESENT( IL_WORLD ) ) IL_WORLD = IL\n    IF ( PRESENT( IU_WORLD ) ) IU_WORLD = IU\n    IF ( PRESENT( JL_WORLD ) ) JL_WORLD = JL\n    IF ( PRESENT( JU_WORLD ) ) JU_WORLD = JU\n\n    ! Longitude values on this PET\n    IF ( PRESENT( lonCtr ) ) THEN\n       CALL MAPL_Get( STATE, lons=lonCtr, __RC__ )\n    ENDIF\n\n    ! Latitude values on this PET\n    IF ( PRESENT( latCtr ) ) THEN\n       CALL MAPL_Get( STATE, lats=latCtr, __RC__ )\n    ENDIF\n\n    !=======================================================================\n    ! Get solar zenith angle enformation\n    !=======================================================================\n    IF ( PRESENT( ZTH    ) .and. PRESENT( SLR    )  .and. &\n         PRESENT( lonCtr ) .and. PRESENT( latCtr ) ) THEN\n\n       ! Get the Orbit object (of type MAPL_SunOrbit),\n       ! which is used in the call to MAPL_SunGetInsolation\n       CALL MAPL_Get( STATE,                       &\n                      LONS      = lonCtr,             &\n                      LATS      = latCtr,             &\n                      ORBIT     = sunOrbit,           &\n                      __RC__                         )\n\n       ! Get the solar zenith angle and solar insolation\n       ! NOTE: ZTH, SLR are allocated outside of this routine\n       CALL MAPL_SunGetInsolation( LONS  = lonCtr,    &\n                                   LATS  = latCtr,    &\n                                   ORBIT = sunOrbit,  &\n                                   ZTH   = ZTH,       &\n                                   SLR   = SLR,       &\n                                   CLOCK = Clock,     &\n                                   __RC__            )\n\n    ENDIF\n\n    !=======================================================================\n    ! All done\n    !=======================================================================\n    FIRST = .FALSE.\n    _RETURN(ESMF_SUCCESS)\n\n  END SUBROUTINE Extract_\n!EOC\n#ifdef ADJOINT\n   subroutine Adjoint_StateRecord( GC, IMPORT, EXPORT, CLOCK, RC )\n\n     ! !ARGUMENTS:\n\n     type(ESMF_GridComp), intent(inout) :: GC     ! composite gridded component\n     type(ESMF_State),    intent(inout) :: IMPORT ! import state\n     type(ESMF_State),    intent(inout) :: EXPORT ! export state\n     type(ESMF_Clock),    intent(inout) :: CLOCK  ! the clock\n     integer, optional,   intent(  out) :: RC     ! Error code:\n     ! = 0 all is well\n     ! otherwise, error\n     !EOPI\n\n     ! LOCAL VARIABLES\n\n     character(len=ESMF_MAXSTR)                  :: IAm\n     character(len=ESMF_MAXSTR)                  :: COMP_NAME\n     integer                                     :: STATUS\n\n     type (MAPL_MetaComp), pointer               :: STATE\n     type (ESMF_State)                           :: INTERNAL\n     integer                                     :: hdr\n     character(len=ESMF_MAXSTR)                  :: FILETYPE\n     character(len=ESMF_MAXSTR)                  :: FNAME, DATESTAMP\n\n     !=============================================================================\n\n     !  Begin...\n\n     _UNUSED_DUMMY(EXPORT)\n\n     Iam = \"Adjoint_StateRecord\"\n     call ESMF_GridCompGet(GC, name=COMP_NAME, RC=STATUS )\n     _VERIFY(STATUS)\n     Iam = trim(COMP_NAME) // Iam\n\n     ! Get my MAPL_Generic state\n     ! -------------------------\n     CALL MAPL_GetObjectFromGC(GC, STATE, RC=STATUS)\n     _VERIFY(STATUS)\n\n     ! Get Internal State\n     call MAPL_Get( STATE, INTERNAL_ESMF_STATE=INTERNAL, __RC__ )\n\n     hdr = 0\n     ! call MAPL_GetResource( STATE   , hdr,         &\n     !      default=0, &\n     !      LABEL=\"INTERNAL_HEADER:\", &\n     !      RC=STATUS)\n     ! _VERIFY(STATUS)\n\n     call MAPL_DateStampGet(clock, datestamp, __RC__ )\n\n     FILETYPE = 'pnc4'\n     FNAME = 'gcadj_import_checkpoint.' // trim(datestamp) // '.nc4'\n\n     call MAPL_CheckpointState(IMPORT, CLOCK, &\n          FNAME, &\n          FILETYPE, STATE, hdr/=0, &\n          RC=STATUS)\n     _VERIFY(STATUS)\n\n     FNAME = 'gcadj_internal_checkpoint.' // trim(datestamp) // '.nc4'\n\n     call MAPL_CheckpointState(INTERNAL, CLOCK, &\n          FNAME, &\n          FILETYPE, STATE, hdr/=0, &\n          RC=STATUS)\n     _VERIFY(STATUS)\n\n\n     _RETURN(ESMF_SUCCESS)\n   end subroutine Adjoint_StateRecord\n\n   subroutine Adjoint_StateRefresh( GC, IMPORT, EXPORT, CLOCK, RC )\n\n     ! !ARGUMENTS:\n\n     type(ESMF_GridComp), intent(inout) :: GC     ! composite gridded component\n     type(ESMF_State),    intent(inout) :: IMPORT ! import state\n     type(ESMF_State),    intent(inout) :: EXPORT ! export state\n     type(ESMF_Clock),    intent(inout) :: CLOCK  ! the clock\n     integer, optional,   intent(  out) :: RC     ! Error code:\n     ! = 0 all is well\n     ! otherwise, error\n     !EOPI\n\n     ! LOCAL VARIABLES\n\n     character(len=ESMF_MAXSTR)                  :: IAm\n     character(len=ESMF_MAXSTR)                  :: COMP_NAME\n     integer                                     :: STATUS\n\n     type (MAPL_MetaComp), pointer               :: STATE\n     type (ESMF_State)                           :: INTERNAL\n     integer                                     :: hdr\n     integer                                     :: unit\n\n     character(len=ESMF_MAXSTR)                  :: FNAME, datestamp\n\n     !=============================================================================\n\n     _UNUSED_DUMMY(EXPORT)\n\n     !  Begin...\n\n     Iam = \"Adjoint_StateRefresh\"\n     call ESMF_GridCompGet(GC, name=COMP_NAME, RC=STATUS )\n     _VERIFY(STATUS)\n     Iam = trim(COMP_NAME) // Iam\n\n     ! Get my MAPL_Generic state\n     ! -------------------------\n     CALL MAPL_GetObjectFromGC(GC, STATE, RC=STATUS)\n     _VERIFY(STATUS)\n\n     ! Get Internal state\n     CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=INTERNAL, __RC__ )\n\n     call MAPL_DateStampGet(clock, datestamp, rc=status)\n     _VERIFY(STATUS)\n\n     HDR = 0\n\n     FNAME = 'gcadj_import_checkpoint.' // trim(datestamp) // '.nc4'\n\n     call MAPL_ESMFStateReadFromFile(IMPORT, CLOCK, &\n          FNAME, &\n          STATE, .FALSE., RC=STATUS)\n     _VERIFY(STATUS)\n     UNIT = GETFILE(FNAME, RC=STATUS)\n     _VERIFY(STATUS)\n     call MAPL_DestroyFile(unit = UNIT, rc=STATUS)\n     _VERIFY(STATUS)\n     CALL FREE_FILE(UNIT, RC=STATUS)\n     _VERIFY(STATUS)\n\n     FNAME = 'gcadj_internal_checkpoint.' // trim(datestamp) // '.nc4'\n\n     call MAPL_ESMFStateReadFromFile(INTERNAL, CLOCK, &\n          FNAME, &\n          STATE, hdr/=0, RC=STATUS)\n     _VERIFY(STATUS)\n     IF (FNAME(1:1) .eq. '-' .or. &\n          FNAME(1:1) .eq. '+') THEN\n        UNIT = GETFILE(FNAME(2:), RC=STATUS)\n     else\n        UNIT = GETFILE(FNAME, RC=STATUS)\n     endif\n     _VERIFY(STATUS)\n     call MAPL_DestroyFile(unit = UNIT, rc=STATUS)\n     _VERIFY(STATUS)\n     CALL FREE_FILE(UNIT, RC=STATUS)\n     _VERIFY(STATUS)\n\n     _RETURN(ESMF_SUCCESS)\n   end subroutine Adjoint_StateRefresh\n\n#endif\n\n#ifdef MODEL_GEOS\nEND MODULE GEOSCHEMchem_GridCompMod\n#else\nEND MODULE Chem_GridCompMod\n#endif\n"
  },
  {
    "path": "Interfaces/GCHP/Includes_Before_Run.H",
    "content": "!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !INCLUDE: Includes_Before_Run.H\n!\n! !DESCRIPTION: This include file contains the array assignments that need\n!  to be made BEFORE the call to the Run method of the \n!  GEOSCHEMchem\\_GridCompMod.F90 code.  These array assignments take data out \n!  of the import and internal states and saves them into derived-type objects\n!  that are used to pass information between GEOS-Chem and the ESMF interface.\n!\\\\\n!\\\\\n!  These assignments were placed into this separate include file to avoid \n!  bogging down the GEOSCHEMchem\\_GridCompMod.F90 module.\n!\\\\\n!\\\\\n! !REVISION HISTORY: \n!  10 Oct 2012 - M. Long     - Initial version, for grid-independent model\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  !=========================================================================\n  ! Two-dimensional fields\n  !=========================================================================\n\n  State_Met%ALBD                = ALBD                       ! 1\n  State_Met%CLDFRC              = CLDFRC                     ! 1\n  State_Met%EFLUX               = EFLUX                      ! W m-2\n  State_Met%HFLUX               = HFLUX                      ! W/m2\n  State_Met%FRLAND              = FRLAND                     ! 1, excludes lake and ice\n  State_Met%FROCEAN             = FROCEAN                    ! 1\n  State_Met%FRLAKE              = FRLAKE                     ! 1\n  State_Met%FRLANDICE           = FRLANDIC                   ! 1\n  State_Met%FRSEAICE            = FRSEAICE                   ! 1\n  State_Met%QV2M                = QV2M                       ! 1\n  State_Met%PHIS                = PHIS / 9.80665d0           ! m\n  State_Met%GWETROOT            = GWETROOT                   ! 1\n  State_Met%GWETTOP             = GWETTOP                    ! 1\n  State_Met%LAI                 = LAI                        ! 1\n  State_Met%PARDR               = PARDR                      ! W/m2\n  State_Met%PARDF               = PARDF                      ! W/m2\n  State_Met%PBLH                = PBLH                       ! m\n  State_Met%TROPP               = TROPP                      ! hPa\n  State_Met%PS1_WET             = PS1                        ! hPa\n  State_Met%PS2_WET             = PS2                        ! hPa\n  State_Met%SLP                 = SLP                        ! hPa\n  State_Met%TS                  = TS                         ! K\n  State_Met%TSKIN               = TSKIN                      ! K\n  State_Met%SWGDN               = RADSWG                     ! W/m2\n  State_Met%TO3                 = TO3                        ! dobson\n  State_Met%SNODP               = SNODP                      ! m\n  State_Met%SNOMAS              = SNOMAS                     ! kg/m2\n  State_Met%SUNCOS              = zenith                     ! unitless\n  State_Met%SUNCOSmid           = zenith                     ! 1\n  State_Met%U10M                = U10M                       ! m/s\n  State_Met%USTAR               = USTAR                      ! m/s\n  State_Met%V10M                = V10M                       ! m/s\n  State_Met%Z0                  = Z0                         ! m\n\n  ! The import FRSNO is fraction of land with snow cover. Convert to\n  ! fraction of grid box with snow cover for storage in State_Met\n  DO J = 1, State_Grid%NY\n  DO I = 1, State_Grid%NX\n     State_Met%FRSNOW(I,J) = FRSNO(I,J) * State_Met%FRLAND(I,J)\n  ENDDO\n  ENDDO\n\n  ! Get UV albedo for photolysis\n  Ptr2d => NULL()\n  CALL MAPL_GetPointer ( IMPORT, Ptr2D, 'UV_ALBEDO', &\n                         notFoundOK=.TRUE., __RC__ )\n  If ( ASSOCIATED(Ptr2D) ) Then\n     State_Met%UVALBEDO(:,:) = Ptr2D(:,:)\n     Ptr2D => NULL()\n  ENDIF\n\n  !=========================================================================\n  ! Three-dimensional fields on level edges\n  !=========================================================================\n\n  ! kg/m2/s\n  State_Met%CMFMC  (:,:,1:State_Grid%NZ+1) = CMFMC  (:,:,0:State_Grid%NZ)\n  State_Met%PFICU  (:,:,1:State_Grid%NZ+1) = PFICU  (:,:,0:State_Grid%NZ)\n  State_Met%PFILSAN(:,:,1:State_Grid%NZ+1) = PFILSAN(:,:,0:State_Grid%NZ)\n  State_Met%PFLCU  (:,:,1:State_Grid%NZ+1) = PFLCU  (:,:,0:State_Grid%NZ)\n  State_Met%PFLLSAN(:,:,1:State_Grid%NZ+1) = PFLLSAN(:,:,0:State_Grid%NZ)\n\n  if (met_nonadv_is_top_down) then\n    z_lb = lbound(State_Met%CMFMC,3)\n    z_ub = ubound(State_Met%CMFMC,3)\n    State_Met%CMFMC(:,:,:)     = State_Met%CMFMC(:,:,z_ub:z_lb:-1)\n    State_Met%PFICU(:,:,:)     = State_Met%PFICU(:,:,z_ub:z_lb:-1)\n    State_Met%PFILSAN(:,:,:)   = State_Met%PFILSAN(:,:,z_ub:z_lb:-1)\n    State_Met%PFLCU(:,:,:)     = State_Met%PFLCU(:,:,z_ub:z_lb:-1)\n    State_Met%PFLLSAN(:,:,:)   = State_Met%PFLLSAN(:,:,z_ub:z_lb:-1)\n  end if\n\n  ! NOTE: PLE (imported from advection) is reversed in the vertical!\n  ! Note that this will end up affecting DELP and therefore\n  ! State_Met%PEDGE_DRY, but that the major dry pressure variables are\n  ! derived from PS1_DRY and PS2_DRY.\n  ! These will, in turn, be determined from PS1_WET and PS2_WET, which\n  ! are set in the block above.\n\n  ! Convert Pa -> hPa\n  State_Met%PEDGE  (:,:,1:State_Grid%NZ+1) = PLE(:,:,State_Grid%NZ:0:-1) / 1d2\n\n  ! These will be set based on PS1_WET and PS2_WET in gchp_chunk_mod.F90\n  State_Met%PS1_DRY(:,:) = 0.0d0 \n  State_Met%PS2_DRY(:,:) = 0.0d0\n\n  ! Calculate CLDTOPS (highest location of CMFMC in the column)\n  Do J=1,State_Grid%NY\n  Do I=1,State_Grid%NX\n     State_Met%CldTops(I,J) = 1\n     Do L = State_Grid%NZ, 1, -1\n        If ( State_Met%CMFMC(I,J,L) > 0d0 ) Then\n           State_Met%CldTops(I,J) = L + 1\n           Exit\n        End If\n     End Do\n  End Do\n  End Do\n\n  ! Read MODIS leaf area index (LAI) from imports of post-processed MODIS files.\n  ! The third dimension is land type and not level, possible to do with MAPL\n  ! only because the # of land types is the same as # of level edges.\n  State_Met%XLAI_NATIVE(:,:,:) = XLAIMULTI\n\n  !=========================================================================\n  ! Three-dimensional fields on level centers\n  !=========================================================================\n  State_Met%CLDF                = CLDF                       ! 1\n  State_Met%DTRAIN              = DTRAIN                     ! kg/m2/s\n  State_Met%DQRCU               = DQRCU                      ! kg/kg/s\n  State_Met%DQRLSAN             = DQRLSAN                    ! kg/kg/s\n  State_Met%QI                  = QI                         ! kg/kg\n  State_Met%QL                  = QL                         ! kg/kg\n  State_Met%RH                  = RH      * 1d2              ! 1 -> %\n  State_Met%TAUCLI              = TAUCLI                     ! 1\n  State_Met%TAUCLW              = TAUCLW                     ! 1\n  State_Met%REEVAPCN            = REEVAPCN                   ! kg/kg/s\n  State_Met%REEVAPLS            = REEVAPLS                   ! kg/kg/s\n  State_Met%TMPU1               = TMPU1                      ! K\n  State_Met%TMPU2               = TMPU2                      ! K\n  State_Met%OMEGA               = OMEGA                      ! Pa s-1\n  State_Met%U                   = UA                         ! m/s\n  State_Met%V                   = VA                         ! m/s\n  ! These fields are set to match the GCC conventions and to ensure that \n  ! transport is correctly implemented.\n  State_Met%SPHU1               = SPHU1       *1.0d3         ! kg/kg -> g/kg\n  State_Met%SPHU2               = SPHU2       *1.0d3         ! kg/kg -> g/kg\n  State_Met%PRECCON             = PRECCON * 86400d0          ! kg/m2/s to mm/day\n  State_Met%PRECLSC             = PRECLSC * 86400d0          ! kg/m2/s to mm/day\n  State_Met%PRECANV             = PRECANV * 86400d0          ! kg/m2/s to mm/day\n  State_Met%PRECTOT             = PRECTOT * 86400d0          ! kg/m2/s to mm/day\n\n  ! If meteorology vertical direction is down then flip the StateMet array\n  if (met_nonadv_is_top_down .or. &\n      met_wind_is_top_down .or. &\n      met_humidity_is_top_down ) then\n\n    z_lb = lbound(State_Met%CLDF,3)\n    z_ub = ubound(State_Met%CLDF,3)\n    if (met_wind_is_top_down) then\n      State_Met%U(:,:,:)        = State_Met%U(:,:,z_ub:z_lb:-1)\n      State_Met%V(:,:,:)        = State_Met%V(:,:,z_ub:z_lb:-1)\n    endif\n    if (met_humidity_is_top_down) then\n      State_Met%SPHU1(:,:,:)    = State_Met%SPHU1(:,:,z_ub:z_lb:-1)\n      State_Met%SPHU2(:,:,:)    = State_Met%SPHU2(:,:,z_ub:z_lb:-1)\n    endif\n    if (met_nonadv_is_top_down) then\n      State_Met%CLDF(:,:,:)     = State_Met%CLDF(:,:,z_ub:z_lb:-1)\n      State_Met%DTRAIN(:,:,:)   = State_Met%DTRAIN(:,:,z_ub:z_lb:-1)\n      State_Met%DQRCU(:,:,:)    = State_Met%DQRCU(:,:,z_ub:z_lb:-1)\n      State_Met%DQRLSAN(:,:,:)  = State_Met%DQRLSAN(:,:,z_ub:z_lb:-1)\n      State_Met%QI(:,:,:)       = State_Met%QI(:,:,z_ub:z_lb:-1)\n      State_Met%QL(:,:,:)       = State_Met%QL(:,:,z_ub:z_lb:-1)\n      State_Met%RH(:,:,:)       = State_Met%RH(:,:,z_ub:z_lb:-1)\n      State_Met%TAUCLI(:,:,:)   = State_Met%TAUCLI(:,:,z_ub:z_lb:-1)\n      State_Met%TAUCLW(:,:,:)   = State_Met%TAUCLW(:,:,z_ub:z_lb:-1)\n      State_Met%REEVAPCN(:,:,:) = State_Met%REEVAPCN(:,:,z_ub:z_lb:-1)\n      State_Met%REEVAPLS(:,:,:) = State_Met%REEVAPLS(:,:,z_ub:z_lb:-1)\n      State_Met%TMPU1(:,:,:)    = State_Met%TMPU1(:,:,z_ub:z_lb:-1)\n      State_Met%TMPU2(:,:,:)    = State_Met%TMPU2(:,:,z_ub:z_lb:-1)\n      State_Met%OMEGA(:,:,:)    = State_Met%OMEGA(:,:,z_ub:z_lb:-1)\n    endif\n  endif\n\n  State_Met%SPHU                =(State_Met%SPHU1+State_Met%SPHU2)*0.5d0\n  State_Met%T                   =(State_Met%TMPU1+State_Met%TMPU2)*0.5d0\n\n  ! Create total optical depth field                         ! 1\n  State_Met%OPTD                = State_Met%TAUCLI + State_Met%TAUCLW\n\n  !=========================================================================\n  ! Offline lightning fields\n  !=========================================================================\n  State_Met%FLASH_DENS         = FLASH_DENS                  ! #/km2/s\n  State_Met%CONV_DEPTH         = CONV_DEPTH                  ! m\n\n#ifdef RRTMG\n  If (Input_Opt%Read_Dyn_Heating.and.Associated(DynHeating)) Then\n     ! No longer need to flip the data\n     !State_Met%DynHeating(:,:,1:State_Grid%NZ) = DynHeating(:,:,State_Grid%NZ:1:-1) ! K/day\n     State_Met%DynHeating = DynHeating ! K/day\n  End If\n#endif\n\n#ifdef ADJOINT\n  IF (ASSOCIATED(CostFuncMask)) THEN\n      if (MAPL_Am_I_Root()) &\n          WRITE(*,*) ' Loading adjoint cost function mask'\n      ! cost function mask\n      State_Chm%CostFuncMask = CostFuncMask\n  ELSEIF (Input_Opt%CF_IMIN > 0 .and. Input_Opt%CF_JMIN > 0) THEN\n      IF (FIRST) THEN\n         if (MAPL_Am_I_Root()) &\n             WRITE(*,*) ' Cost function range supplied.'\n       WRITE(*,1027) Input_Opt%thisCPU,   &\n            Input_Opt%CF_IMIN, Input_Opt%CF_IMAX, &\n            Input_Opt%CF_JMIN, Input_Opt%CF_JMAX, &\n            Input_Opt%CF_LMIN, Input_Opt%CF_LMAX\n1027   FORMAT('CF on Pet ', i3, ' I = (', i3, ', ', i3, ') &\n             J = ( ', i3, ', ', i3, ') &\n             L = (', i3, ', ', i3, ')')\n\n\n         State_Chm%CostFuncMask = 0d0\n         DO L=Input_Opt%CF_LMIN,Input_Opt%CF_LMAX\n         DO J=Input_Opt%CF_JMIN,Input_opt%CF_JMAX\n            DO I=Input_opt%CF_IMIN, Input_Opt%CF_IMAX\n               State_Chm%CostFuncMask(I,J,L) = 1d0\n            ENDDO\n         ENDDO\n         ENDDO\n      ENDIF\n  ENDIF\n\n#endif\n"
  },
  {
    "path": "Interfaces/GCHP/Registry/CMakeLists.txt",
    "content": "# Build registry\nadd_custom_command(OUTPUT \n\t\t${CMAKE_CURRENT_BINARY_DIR}/HEMCO_DeclarePointer___.h  \n\t\t${CMAKE_CURRENT_BINARY_DIR}/HEMCO_GetPointer___.h  \n\t\t${CMAKE_CURRENT_BINARY_DIR}/HEMCO_ImportSpec___.h\n\t\themco_registry.stamp\n\tCOMMAND ${MAPL_ACG} -v ${CMAKE_CURRENT_SOURCE_DIR}/HEMCO_Registry.rc\n\tCOMMAND cmake -E touch hemco_registry.stamp\n\tCOMMENT \"Building HEMCO registry...\"\n\tMAIN_DEPENDENCY ${CMAKE_CURRENT_SOURCE_DIR}/HEMCO_Registry.rc\n\tWORKING_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}\t\n)\nadd_custom_command(OUTPUT \n\t\t${CMAKE_CURRENT_BINARY_DIR}/GCHPchem_ExportSpec___.h  \n\t\t${CMAKE_CURRENT_BINARY_DIR}/GCHPchem_History___.rc    \n\t\t${CMAKE_CURRENT_BINARY_DIR}/GCHPchem_InternalSpec___.h\n\t    ${CMAKE_CURRENT_BINARY_DIR}/GCHPchem_DeclarePointer___.h  \n\t\t${CMAKE_CURRENT_BINARY_DIR}/GCHPchem_GetPointer___.h  \n\t\t${CMAKE_CURRENT_BINARY_DIR}/GCHPchem_ImportSpec___.h\n\t\tchem_registry.stamp\n    COMMAND ${MAPL_ACG} -v ${CMAKE_CURRENT_SOURCE_DIR}/Chem_Registry.rc\n\tCOMMAND cmake -E touch chem_registry.stamp\n\tCOMMENT \"Building Chem registry...\"\n\tMAIN_DEPENDENCY ${CMAKE_CURRENT_SOURCE_DIR}/Chem_Registry.rc\n\tWORKING_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}\t\n)\nadd_custom_target(registry DEPENDS hemco_registry.stamp chem_registry.stamp)\n"
  },
  {
    "path": "Interfaces/GCHP/Registry/Chem_Registry.rc",
    "content": "#\n# This the GEOS-CHEM Grid Component Registry. It defines Import,\n# Internal and Export states for this component as well as\n# any\n#\n# !REVISION HISTORY:\n#  16Aug2006  da Silva   First Version\n#  See https://github.com/geoschem/geos-chem for complete history\n# -----------------------------------------------------------------\n\n  COMP_NAME: GCHPchem\n\n# Only change the Registry version when major structural changes\n# occurs, not changes in content\n# --------------------------------------------------------------\n  MAPL_REGISTRY_VERSION: 1.00\n\n#\t\t\t\t------------\n#\t\t\t\tImport State\n#\t\t\t\t------------\n\n<ImportSpec name=\"GEOSCHEMCHEM\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,default,long_name\">\n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n#  Short\t     |  \t   |\t | V |Item|Intervl| Sub | Def  |\tLong\n#  Name \t     |   Units     | Dim |Loc|Type| R | A |Tiles| ault |\tName\n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n  FRLAKE             |     1\t   | xy  |   |    |   |   |\t|      | \n  FRLAND             |     1\t   | xy  |   |    |   |   |\t|      | \n  FRLANDIC           |     1\t   | xy  |   |    |   |   |\t|      | \n  FROCEAN            |     1\t   | xy  |   |    |   |   |\t|      | \n  PHIS               |     1\t   | xy  |   |    |   |   |\t|      | \n  ALBD               |     1\t   | xy  |   |    |   |   |\t|      | surface_albedo_for_visible_diffuse\n  CLDFRC             |     1\t   | xy  |   |    |   |   |\t|      | \n  EFLUX              |     1\t   | xy  |   |    |   |   |\t|      | \n  EVAP               |     1\t   | xy  |   |    |   |   |\t|      | \n  FRSEAICE           |     1\t   | xy  |   |    |   |   |\t|      | \n  FRSNO              |     1\t   | xy  |   |    |   |   |\t|      | \n  GRN                |     1\t   | xy  |   |    |   |   |\t|      | \n  GWETROOT           |     1\t   | xy  |   |    |   |   |\t|      | \n  GWETTOP            |     1\t   | xy  |   |    |   |   |\t|      | \n  HFLUX              |     1\t   | xy  |   |    |   |   |\t|      | \n  LAI                |     1\t   | xy  |   |    |   |   |\t|      | \n  QV2M               |     1\t   | xy  |   |    |   |   |\t|      | \n  PARDF              |     1\t   | xy  |   |    |   |   |\t|      | \n  PARDR              |     1\t   | xy  |   |    |   |   |\t|      | \n  PBLH               |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE00           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE10           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE20           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE30           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE40           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE50           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE60           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE70           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE80           |     1\t   | xy  |   |    |   |   |\t|      | \n  SEAICE90           |     1\t   | xy  |   |    |   |   |\t|      | \n  SLP                |     1\t   | xy  |   |    |   |   |\t|      | \n  SNODP              |     1\t   | xy  |   |    |   |   |\t|      | \n  SNOMAS             |     1\t   | xy  |   |    |   |   |\t|      | \n  RADSWG             |     1\t   | xy  |   |    |   |   |\t|      | \n  TO3                |     1\t   | xy  |   |    |   |   |\t|      | \n  TROPP              |     1\t   | xy  |   |    |   |   |\t|      | \n  TSKIN              |     1\t   | xy  |   |    |   |   |\t|      | \n  TS                 |     1\t   | xy  |   |    |   |   |\t|      | \n  U10M               |     1\t   | xy  |   |    |   |   |\t|      | \n  USTAR              |     1\t   | xy  |   |    |   |   |\t|      | \n  V10M               |     1\t   | xy  |   |    |   |   |\t|      | \n  Z0                 |     1\t   | xy  |   |    |   |   |\t|      | \n  PS1                |     1\t   | xy  | E |    |   |   |\t|      | \n  PS2                |     1\t   | xy  | E |    |   |   |\t|      | \n  OPTDEP             |     1\t   | xyz | C |    |   |   |\t|      | \n  CLDF               |     1\t   | xyz | C |    |   |   |\t|      | \n  QI                 |     1\t   | xyz | C |    |   |   |\t|      | \n  QL                 |     1\t   | xyz | C |    |   |   |\t|      | \n  TAUCLI             |     1\t   | xyz | C |    |   |   |\t|      | \n  TAUCLW             |     1\t   | xyz | C |    |   |   |\t|      | \n  CMFMC              |     1\t   | xyz | E |    |   |   |\t|      | \n  DTRAIN             |     1\t   | xyz | C |    |   |   |\t|      | \n  OMEGA              |     1\t   | xyz | C |    |   |   |\t|      | \n  RH                 |     1\t   | xyz | C |    |   |   |\t|      | \n  UA                 |     1\t   | xyz | C |    |   |   |\t|      | \n  VA                 |     1\t   | xyz | C |    |   |   |\t|      | \n  DQRCU              |     1\t   | xyz | C |    |   |   |\t|      | \n  DQRLSAN            |     1\t   | xyz | C |    |   |   |\t|      | \n  REEVAPCN           |     1\t   | xyz | C |    |   |   |\t|      | \n  REEVAPLS           |     1\t   | xyz | C |    |   |   |\t|      | \n  PFICU              |     1\t   | xyz | E |    |   |   |\t|      | \n  PFILSAN            |     1\t   | xyz | E |    |   |   |\t|      | \n  PFLCU              |     1\t   | xyz | E |    |   |   |\t|      | \n  PFLLSAN            |     1\t   | xyz | E |    |   |   |\t|      | \n  SPHU1              |     1\t   | xyz | C |    |   |   |\t|      | \n  TMPU1              |     1\t   | xyz | C |    |   |   |\t|      | \n  SPHU2              |     1\t   | xyz | C |    |   |   |\t|      | \n  TMPU2              |     1\t   | xyz | C |    |   |   |\t|      | \n  FLASH_DENS         |     1     | xy  |   |    |   |   | |      | lightning_flash_density\n  CONV_DEPTH         |     1     | xy  |   |    |   |   | |      | convective_cloud_depth\n  XLAIMULTI          | cm2_cm-2  | xyz | E |    |   |   |\t|      | LAI_by_type \n  PRECCON            |     1\t   | xy  |   |    |   |   |\t|      | surface convective precipitation flux\n  PRECLSC            |     1\t   | xy  |   |    |   |   |\t|      | surface large-scale precipitation flux\n  PRECANV            |     1\t   | xy  |   |    |   |   |\t|      | surface anvil precipitation flux\n  PRECTOT            |     1\t   | xy  |   |    |   |   |\t|      | surface total precipitation flux\n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n</ImportSpec>\n\n#\t\t\t\t------------\n#\t\t\t\tExport State\n#\t\t\t\t------------\n\n<ExportSpec name=\"GEOSCHEMCHEM\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,long_name\">\n# ------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n#  Short\t    |\t\t     |     | V |Item|Intervl| Sub |\t     Long\n#  Name \t    |   Units\t     | Dim |Loc|Type| R | A |Tiles|\t     Name\n# ------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n#  OX                | mol mol-1      | xyz | C |    |   |   |     | ozone_volume_mixing_ratio\n  O3_EXP            | kg kg-1        | xyz | C |    |   |   |     | ozone_mass_mixing_ratio\n  O3PPMV    \t    | ppmv           | xyz | C |    |\t|   |\t  | ozone_volume_mixing_ratio_in_ppm\n  OX_TEND    \t    | kg kg-1 s-1    | xyz | C |    |\t|   |\t  | tendency_of_odd_oxygen_mixing_ratio_due_to_chemistry\n  H2O_TEND    \t    | kg kg-1 s-1    | xyz | C |    |\t|   |\t  | tendency_of_water_vapor_mixing_ratio_due_to_chemistry\n  GCCTO3    \t    | dobsons        | xy  |   |    |\t|   |\t  | total_ozone \n  GCCTTO3           | dobsons        | xy  |   |    |\t|   |\t  | total_tropospheric_ozone \n  DEPVEL_O3         |                | xy  |   |    |   |   |     |\n  DEPFLUX_O3        |                | xy  |   |    |   |   |     |\n  WETDEP_LOSS_H2O2  |                | xy  |   |    |   |   |     |\n# ------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n</ExportSpec>\n#                               --------------\n#                               Internal State\n#                               --------------\n#\n# Note: 1) For friendlies, use \"D\" for dynamics, \"T\" for turbulence, \"C\" for convection, S=self (adds to export); leave blank otherwise\n#       2) If quantity requires no restart, put an 'x' in the No Rst column\n#       3) RO = Alkoxy radical, RO2 = Organic peroxy radical\n<InternalSpec name=\"GEOSCHEMCHEM\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,default,norestart,halowidth,friendlyto,long_name\">\n# ----------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n#  Short          |            |     | V |Item|Intervl| Sub | Def  | No | Ha | Friends |            Long\n#  Name           |   Units    | Dim |Loc|Type| R | A |Tiles| ault | Rst| lo |         |            Name\n# ----------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n   GCCTROPP       |    Pa      | xy  |   |    |   |   |     |      |    |    | S       | tropopause_pressure_used_in_GEOS-Chem\n   STATE_PSC      |   1        | xyz | C |    |   |   |     |0.0   |    |    | S       | polar_stratospheric_clouds\n   ARCHV_DRY_TOTN | cm-2s-1    | xy  |   |    |   |   |     |0.0   |    |    | S       | dry_deposited_nitrogen\n   ARCHV_WET_TOTN | cm-2s-1    | xy  |   |    |   |   |     |0.0   |    |    | S       | wet_deposited_nitrogen\n   PFACTOR        | 1          | xy  |   |    |   |   |     |1.0   |    |    | S       | soilnox_pfactor_restart\n   DRYPERIOD      | 1          | xy  |   |    |   |   |     |0.0   |    |    | S       | soilnox_dryperiod_restart\n   GWET_PREV      | 1          | xy  |   |    |   |   |     |0.0   |    |    | S       | soilnox_gwet_prev_restart\n   DEP_RESERVOIR  | kg m-3     | xy  |   |    |   |   |     |1e-4  |    |    | S       | soilnox_dep_reservoir_restart\n   T_DAVG         |   1        | xy  |   |    |   |   |     |273.1 |    |    | S       | megan_t_davg_restart\n   T_PREVDAY      |   1        | xy  |   |    |   |   |     |273.1 |    |    | S       | megan_t_prevday_restart\n   LAI_PREVDAY    |   1        | xy  |   |    |   |   |     |0.0   |    |    | S       | megan_lai_prevday_restart\n   PARDR_DAVG     |   W/m2     | xy  |   |    |   |   |     |0.0   |    |    | S       | megan_pardr_davg_restart\n   PARDF_DAVG     |   W/m2     | xy  |   |    |   |   |     |0.0   |    |    | S       | megan_pardf_davg_restart\n# --------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n</InternalSpec>\n"
  },
  {
    "path": "Interfaces/GCHP/Registry/HEMCO_Registry.rc",
    "content": "#\n# This the HEMCO Grid Component Registry. It defines Import,\n# Internal and Export states for this component.\n#\n# !REVISION HISTORY:\n#  16Aug2006  da Silva   First Version\n#  30Jun2012  Nielsen    For Ganymed\n#  03Jan2013  Keller     For HEMCO\n#\n# -----------------------------------------------------------------\n\n  COMP_NAME: HEMCO \n\n# Only change the Registry version when major structural changes\n# occurs, not changes in content\n# --------------------------------------------------------------\n  MAPL_REGISTRY_VERSION: 1.00\n\n#\t\t\t\t------------\n#\t\t\t\tImport State\n#\t\t\t\t------------\n\n<ImportSpec name=\"HEMCO\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,default,long_name\">\n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n#  Short\t     |  \t   |\t | V |Item|Intervl| Sub | Def  |\tLong\n#  Name \t     |   Units     | Dim |Loc|Type| R | A |Tiles| ault |\tName\n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n  ALBD               |     1\t   | xy  |   |    |   |   |\t|      | surface_albedo_for_visible_diffuse\n  TSKIN              |     1\t   | xy  |   |    |   |   |\t|      | \n  U10M               |     1\t   | xy  |   |    |   |   |\t|      | \n  V10M               |     1\t   | xy  |   |    |   |   |\t|      | \n  AREA               |     m2      | xy  |   |    |   |   |\t|      | \n  PEDGE              |    hPa      | xyz | E |    |   |   |\t|      |\n  PCENTER            |    hPa      | xyz | C |    |   |   |\t|      |\n  BOXHEIGHT          |     m       | xyz | C |    |   |   |\t|      |\n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n</ImportSpec>\n\n#\t\t\t\t------------\n#\t\t\t\tExport State\n#\t\t\t\t------------\n\n<ExportSpec name=\"HEMCO\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,long_name\">\n# ------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n#  Short\t    |\t\t     |     | V |Item|Intervl| Sub |\t     Long\n#  Name \t    |   Units\t     | Dim |Loc|Type| R | A |Tiles|\t     Name\n# ------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n# ------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n</ExportSpec>\n\n#                               --------------\n#                               Internal State\n#                               --------------\n\n#\n# Note: 1) For friendlies, use \"D\" for dynamics, \"T\" for turbulence and \"C\" for convection; leave blank otherwise\n#       2) If quantity requires no restart, put an 'x' in the No Rst column\n#       3) RO = Alkoxy radical, RO2 = Organic peroxy radical\n\n<InternalSpec name=\"HEMCO\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,default,norestart,halowidth,friendlyto,long_name\">\n# --------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n#  Short        |            |     | V |Item|Intervl| Sub | Def  | No | Ha | Friends |            Long\n#  Name         |   Units    | Dim |Loc|Type| R | A |Tiles| ault | Rst| lo |         |            Name\n# --------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n# --------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n</InternalSpec>\n"
  },
  {
    "path": "Interfaces/GCHP/gchp_chunk_mod.F90",
    "content": "#include \"MAPL_Generic.h\"\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: gchp_chunk_mod\n!\n! !DESCRIPTION: Module GC\\_CHUNK\\_MOD is the module that contains the init,\n!  and run methods for the ESMF interface to GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GCHP_Chunk_Mod\n!\n! !USES:\n!\n  USE MAPL_MOD\n  USE ESMF\n  USE ErrCode_Mod\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: GCHP_Chunk_Init\n  PUBLIC :: GCHP_Chunk_Run\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  INTEGER  ::  MemDebugLevel\n!\n! !REVISION HISTORY:\n!  22 Jun 2009 - R. Yantosca & P. Le Sager - Chunkized & cleaned up.\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gchp_chunk_init\n!\n! !DESCRIPTION: Subroutine GCHP\\_CHUNK\\_INIT is the ESMF init method for\n!  GEOS-Chem.  This routine calls routines within core GEOS-Chem to allocate\n!  arrays and read input files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GCHP_Chunk_Init( nymdB,         nhmsB,      nymdE,           &\n                              nhmsE,         tsChem,     tsDyn,           &\n                              tsRad,         lonCtr,     latCtr,          &\n#if !defined( MODEL_GEOS )\n                              GC,            EXPORT,                      &\n#endif\n                              Input_Opt,     State_Chm,  State_Diag,      &\n                              State_Grid,    State_Met,  HcoConfig,       &\n                              HistoryConfig, RC )\n!\n! !USES:\n!\n    USE Emissions_Mod,           ONLY : Emissions_Init\n    USE GC_Environment_Mod\n    USE GC_Grid_Mod,             ONLY : SetGridFromCtr\n    USE GCHP_HistoryExports_Mod, ONLY : HistoryConfigObj\n    USE HCO_Types_Mod,           ONLY : ConfigObj\n    USE Input_Mod,               ONLY : Read_Input_File\n    USE Input_Opt_Mod,           ONLY : OptInput, Set_Input_Opt\n    USE Linear_Chem_Mod,         ONLY : Init_Linear_Chem\n    USE Linoz_Mod,               ONLY : Linoz_Read\n    USE Photolysis_Mod,          ONLY : Init_Photolysis\n    USE PhysConstants,           ONLY : PI_180\n    USE Pressure_Mod,            ONLY : Init_Pressure\n    USE Roundoff_Mod,            ONLY : RoundOff\n    USE State_Chm_Mod,           ONLY : ChmState, Ind_\n    USE State_Diag_Mod,          ONLY : DgnState\n    USE State_Grid_Mod,          ONLY : GrdState, Init_State_Grid\n    USE State_Met_Mod,           ONLY : MetState\n!#if defined( MODEL_GEOS )\n!    USE Tendencies_Mod,          ONLY : TEND_INIT\n!#endif\n    USE Time_Mod,                ONLY : Set_Timesteps\n    USE UCX_MOD,                 ONLY : INIT_UCX\n\n    USE UnitConv_Mod\n    Use Error_Mod,               ONLY : Init_Error\n\n#ifdef ADJOINT\n    USE Charpak_Mod,             ONLY : To_UpperCase\n#endif\n#if defined( RRTMG )\n    USE RRTMG_RAD_TRANSFER_MOD,  ONLY : Init_RRTMG_Rad_Transfer\n    USE RRTMG_LW_Init,           ONLY : RRTMG_LW_Ini\n    USE RRTMG_SW_Init,           ONLY : RRTMG_SW_Ini\n#endif\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,            INTENT(IN)    :: nymdB       ! YYYYMMDD @ start of run\n    INTEGER,            INTENT(IN)    :: nhmsB       ! hhmmss   @ start of run\n    INTEGER,            INTENT(IN)    :: nymdE       ! YYYYMMDD @ end of run\n    INTEGER,            INTENT(IN)    :: nhmsE       ! hhmmss   @ end of run\n    REAL,               INTENT(IN)    :: tsChem      ! Chemistry timestep [s]\n    REAL,               INTENT(IN)    :: tsDyn       ! Chemistry timestep [s]\n    REAL,               INTENT(IN)    :: tsRad       ! Chemistry timestep [s]\n    REAL(ESMF_KIND_R4), INTENT(IN)    :: lonCtr(:,:) ! Lon centers [radians]\n    REAL(ESMF_KIND_R4), INTENT(IN)    :: latCtr(:,:) ! Lat centers [radians]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n#if !defined( MODEL_GEOS )\n    TYPE(ESMF_State),    INTENT(INOUT), TARGET :: EXPORT ! Export state object\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC     ! Ref to this GridComp\n#endif\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt      ! Input Options object\n    TYPE(ChmState),      INTENT(INOUT) :: State_Chm      ! Chem State object\n    TYPE(DgnState),      INTENT(INOUT) :: State_Diag     ! Diag State object\n    TYPE(GrdState),      INTENT(INOUT) :: State_Grid     ! Grid State object\n    TYPE(MetState),      INTENT(INOUT) :: State_Met      ! Met State object\n    TYPE(ConfigObj),     POINTER       :: HcoConfig      ! HEMCO config obj\n    TYPE(HistoryConfigObj), POINTER    :: HistoryConfig  ! History config obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC             ! Success or failure?\n!\n! !REMARKS:\n!  Need to add better error checking\n!\n! !REVISION HISTORY:\n!  18 Jul 2011 - M. Long     - Initial Version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                        :: I, J, L, N, STATUS\n    CHARACTER(LEN=ESMF_MAXSTR)     :: Iam\n    TYPE(ESMF_Config)              :: CF            ! Grid comp config object\n\n#ifdef ADJOINT\n    ! Adoint variables\n    ! Local Finite Difference variables\n    REAL(fp)                       :: FD_LAT, FD_LON\n    INTEGER                        :: FD_STEP\n    CHARACTER(LEN=ESMF_MAXSTR)     :: FD_SPEC\n    REAL(fp)                       :: d, dmin\n    INTEGER                        :: imin, jmin, NFD, LFD\n    INTEGER                        :: IFD, JFD\n    CHARACTER(LEN=ESMF_MAXSTR)     :: FD_TYPE\n\n    ! At present, we are unable to load cube-sphere files through ExtData\n    ! so we will define the cost function region thusly in GCHP.rc\n    INTEGER                        :: CF_IMIN, CF_IMAX\n    INTEGER                        :: CF_JMIN, CF_JMAX\n    INTEGER                        :: CF_LMIN, CF_LMAX\n\n    ! Need to get gloabl grid information for some FD spot tests\n    TYPE(ESMF_Grid)                :: grid           ! ESMF Grid object\n    INTEGER                        :: IL_PET, IU_PET ! Global lon bounds on this PET\n    INTEGER                        :: JL_PET, JU_PET ! Global lat bounds on this PET\n\n    ! Model phase: fwd, TLM, ADJOINT\n    CHARACTER(LEN=ESMF_MAXSTR)     :: ModelPhase\n#endif\n\n    !=======================================================================\n    ! GCHP_CHUNK_INIT begins here\n    !=======================================================================\n\n    ! Error trap\n    Iam = 'GCHP_CHUNK_INIT (gchp_chunk_mod.F90)'\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n#if !defined( MODEL_GEOS )\n    ! Get memory debug level\n    call ESMF_GridCompGet ( GC, config=CF, RC=STATUS )\n    _VERIFY(STATUS)\n    call ESMF_ConfigGetAttribute(CF, MemDebugLevel, &\n                                 Label=\"MEMORY_DEBUG_LEVEL:\" , RC=STATUS)\n    _VERIFY(STATUS)\n#endif\n\n    ! Update Input_Opt with timing fields\n    ! We will skip defining these in READ_INPUT_FILE\n    Input_Opt%NYMDb   = nymdB           ! YYYYMMDD @ start of simulation\n    Input_Opt%NHMSb   = nhmsB           ! hhmmss   @ end   of simulation\n    Input_Opt%NYMDe   = nymdE           ! YYYYMMDD @ start of simulation\n    Input_Opt%NHMSe   = nhmsE           ! hhmmss   @ end   of simulation\n    Input_Opt%TS_CHEM = INT( tsChem )   ! Chemistry timestep [sec]\n    Input_Opt%TS_EMIS = INT( tsChem )   ! Chemistry timestep [sec]\n    Input_Opt%TS_DYN  = INT( tsDyn  )   ! Dynamic   timestep [sec]\n    Input_Opt%TS_CONV = INT( tsDyn  )   ! Dynamic   timestep [sec]\n    Input_Opt%TS_RAD  = INT( tsRad  )   ! RRTMG     timestep [sec]\n\n    ! Read geoschem_config.yml at very beginning of simulation on every CPU\n    CALL Read_Input_File( Input_Opt, State_Grid, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling Read_Input_File')\n\n    ! Initialize GEOS-Chem horizontal grid structure\n    CALL GC_Init_Grid( Input_Opt, State_Grid, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling GC_Init_Grid')\n\n    ! In the ESMF/MPI environment, we can get the total overhead ozone\n    ! either from the met fields (GCHPsa) or from the Import State (GEOS-5)\n    Input_Opt%USE_O3_FROM_MET = .TRUE.\n\n    ! Read LINOZ climatology\n    IF ( Input_Opt%LLINOZ ) THEN\n       CALL Linoz_Read( Input_Opt, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling Linoz_Read')\n    ENDIF\n\n    ! Allocate all lat/lon arrays\n    CALL GC_Allocate_All( Input_Opt, State_Grid, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling GC_Allocate_All')\n\n    ! Set grid based on passed mid-points\n    CALL SetGridFromCtr( Input_Opt, State_Grid, lonCtr, latCtr, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling \"SetGridFromCtr\"')\n\n    ! Set GEOS-Chem timesteps on all CPUs\n    ! NOTE: Diagnos is only used for GCClassic, so set to TS_CHEM here\n    ! for the sake of completeness (Bob Yantosca, 28 Feb 2024)\n    CALL Set_Timesteps( Input_Opt  = Input_Opt,                              &\n                        Chemistry  = Input_Opt%TS_CHEM,                      &\n                        Convection = Input_Opt%TS_CONV,                      &\n                        Dynamics   = Input_Opt%TS_DYN,                       &\n                        Emission   = Input_Opt%TS_EMIS,                      &\n                        Radiation  = Input_Opt%TS_RAD,                       &\n                        Unit_Conv  = MAX( Input_Opt%TS_DYN,                  &\n                                          Input_Opt%TS_CONV ),               &\n                        Diagnos    = Input_Opt%TS_CHEM                      )\n\n    ! Initialize derived-type objects for met, chem, and diag\n    CALL GC_Init_StateObj( HistoryConfig%DiagList,                           &\n                           HistoryConfig%TaggedDiagList, Input_Opt,          &\n                           State_Chm, State_Diag, State_Grid, State_Met, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling GC_Init_StateObj')\n\n\n#ifdef ADJOINT\n    ! Are we running the adjoint?\n    call ESMF_ConfigGetAttribute(CF, ModelPhase,            &\n                                 Label=\"MODEL_PHASE:\" ,         &\n                                 Default=\"FORWARD\",  RC=STATUS)\n    _VERIFY(STATUS)\n    call WRITE_PARALLEL('Checking if this is adjoint. Model phase = \"' // trim(ModelPhase) // '\"')\n    input_opt%IS_ADJOINT = .FALSE.\n    if (TRIM(ModelPhase) .eq. 'ADJOINT') THEN\n       call WRITE_PARALLEL('Yes! Setting IS_ADJOINT to true.')\n       input_opt%IS_ADJOINT = .TRUE.\n    endif\n\n    call ESMF_ConfigGetAttribute(CF, FD_TYPE, &\n         Label=\"FD_TYPE:\" , Default='NONE', RC=STATUS)\n    _VERIFY(STATUS)\n\n    Input_Opt%IS_FD_GLOBAL = TRIM(To_UpperCase(FD_TYPE(1:4))) == 'GLOB'\n    Input_Opt%IS_FD_SPOT   = TRIM(To_UpperCase(FD_TYPE(1:4))) == 'SPOT'\n    IF (MAPL_Am_I_Root()) THEN\n       WRITE(*,1091) TRIM(FD_TYPE), Input_Opt%IS_FD_GLOBAL, Input_Opt%IS_FD_SPOT\n    ENDIF\n1091   FORMAT('FD_TYPE = ', a6, ', FD_GLOB = ', L1, ', FD_SPOT = ', L1)\n\n\n\n    call ESMF_ConfigGetAttribute(CF, FD_STEP, &\n         Label=\"FD_STEP:\" , Default=-1, RC=STATUS)\n    _VERIFY(STATUS)\n\n    IF (Input_Opt%IS_FD_GLOBAL .or. Input_Opt%IS_FD_SPOT)  THEN\n       _ASSERT(FD_STEP /= -1, 'FD_GLOB or FD_SPOT require FD_STEP')\n    ENDIF\n\n\n    if (.not. FD_STEP == -1 .or. input_opt%IS_ADJOINT) THEN\n       Input_Opt%FD_STEP = FD_STEP\n\n       call ESMF_ConfigGetAttribute(CF, FD_SPEC, &\n            Label=\"FD_SPEC:\", default=\"\", RC=STATUS)\n       _VERIFY(STATUS)\n       IF (TRIM(FD_SPEC ) == \"\") THEN\n          NFD = -1\n       ELSE\n          NFD = Ind_(FD_SPEC)\n       ENDIF\n\n       call ESMF_ConfigGetAttribute(CF, IFD, &\n            Label=\"IFD:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       call ESMF_ConfigGetAttribute(CF, JFD, &\n            Label=\"JFD:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       ! Get the ESMF grid attached to this gridded component\n       CALL ESMF_GridCompGet( GC, grid=Grid, __RC__ )\n\n       ! Get the upper and lower bounds of on each PET using MAPL\n       CALL MAPL_GridGetInterior( Grid, IL_PET, IU_PET, JL_PET, JU_PET )\n\n       ! See if we specified IFD and JFD in GCHP.rc\n       IF ( IFD > 0 .and. JFD > 0 ) THEN\n\n          if (IL_PET .le. IFD .and. IFD .le. IU_PET .and. &\n               JL_PET .le. JFD .and. JFD .le. JU_PET) THEN\n             Input_Opt%IS_FD_SPOT_THIS_PET = .true.\n             Input_opt%IFD = IFD - IL_PET + 1\n             Input_Opt%JFD = JFD - JL_PET + 1\n\n             ! set these for debug printing\n             DMIN = 0.0\n             IMIN = Input_Opt%IFD\n             JMIN = Input_Opt%JFD\n          ENDIF\n\n       ELSE\n\n          call ESMF_ConfigGetAttribute(CF, FD_LAT, &\n               Label=\"FD_LAT:\", default=-999.0d0, RC=STATUS)\n          _VERIFY(STATUS)\n\n          call ESMF_ConfigGetAttribute(CF, FD_LON, &\n               Label=\"FD_LON:\", default=-999.0d0, RC=STATUS)\n          _VERIFY(STATUS)\n\n          _ASSERT( FD_LAT .ne. -999.0d0 .and. FD_LON .ne. -999.0d0, 'FD_SPOT requires either IFD and JFD or FD_LAT and FD_LON be set in GCHP.rc')\n\n\n          dmin = 99999.9\n          imin = -1\n          jmin = -1\n          ! try to find lat lon grid cell closest to 44.65, -63.58 (Halifax, NS)\n          DO I = 1, state_grid%nx\n             DO J = 1, state_grid%ny\n                d = sqrt((state_grid%XMID(I,J) - FD_LON)**2 + &\n                     (state_grid%YMID(I,J) - FD_LAT)**2)\n                if (d < dmin) then\n                   dmin = d\n                   imin = i\n                   jmin = j\n                endif\n             enddo\n          enddo\n          ! this is terrible. We need a better way to figure out if we're really in\n          ! a grid cell, bbut I don't know how to do that. For now we're just hardcoding\n          ! to the value for C24 and hoping for no points near cubed-sphere face\n          ! boundaries\n          if (dmin < 3.2) then\n             ! getting the global grid offset is possible, see Chem_GridCompMod.F90:Extract_\n             Input_Opt%IS_FD_SPOT_THIS_PET = .true.\n             Input_Opt%IFD = IMIN\n             Input_Opt%JFD = JMIN\n\n          end if\n       ENDIF\n\n       Input_Opt%NFD = NFD\n\n       call ESMF_ConfigGetAttribute(CF, LFD, &\n            Label=\"LFD:\", RC=STATUS)\n       _VERIFY(STATUS)\n\n       Input_Opt%LFD = LFD\n\n       ! Read in cost function region\n\n       call ESMF_ConfigGetAttribute(CF, CF_IMIN, &\n            Label=\"CF_IMIN:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       CF_IMIN = CF_IMIN - IL_PET + 1\n\n       call ESMF_ConfigGetAttribute(CF, CF_IMAX, &\n            Label=\"CF_IMAX:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       CF_IMAX = CF_IMAX - IL_PET + 1\n\n       call ESMF_ConfigGetAttribute(CF, CF_JMIN, &\n            Label=\"CF_JMIN:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       CF_JMIN = CF_JMIN - JL_PET + 1\n\n       call ESMF_ConfigGetAttribute(CF, CF_JMAX, &\n            Label=\"CF_JMAX:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       CF_JMAX = CF_JMAX - JL_PET + 1\n\n       call ESMF_ConfigGetAttribute(CF, CF_LMIN, &\n            Label=\"CF_LMIN:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       call ESMF_ConfigGetAttribute(CF, CF_LMAX, &\n            Label=\"CF_LMAX:\", default=-1, RC=STATUS)\n       _VERIFY(STATUS)\n\n       IF (CF_IMIN < 1 .OR. CF_IMIN > State_Grid%NX .OR. &\n            CF_IMAX < 1 .OR. CF_IMAX > State_Grid%NX .OR. &\n            CF_JMIN < 1 .OR. CF_JMIN > State_Grid%NY .OR. &\n            CF_JMAX < 1 .OR. CF_JMAX > State_Grid%NY) THEN\n       WRITE(*,1028) Input_Opt%thisCPU,   &\n            Input_Opt%CF_IMIN, Input_Opt%CF_IMAX, &\n            Input_Opt%CF_JMIN, Input_Opt%CF_JMAX, &\n            Input_Opt%CF_LMIN, Input_Opt%CF_LMAX\n1028   FORMAT('Pre-CF on Pet ', i3, ' I = (', i3, ', ', i3, ') &\n             J = ( ', i3, ', ', i3, ') &\n             L = (', i3, ', ', i3, ')')\n\n          CF_IMIN = -1\n          CF_IMAX = -1\n          CF_JMIN = -1\n          CF_JMAX = -1\n          CF_LMIN = -1\n          CF_LMAX = -1\n       ENDIF\n\n       _ASSERT(CF_IMIN * CF_IMAX > 0, 'Please define both max and min for CF_I')\n       _ASSERT(CF_JMIN * CF_JMAX > 0, 'Please define both max and min for CF_J')\n       _ASSERT(CF_LMIN * CF_LMAX > 0, 'Please define both max and min for CF_L')\n\n       _ASSERT(CF_LMIN * CF_IMIN > 0, 'If CF_I: is defined, please define CF_L')\n       _ASSERT(CF_JMIN * CF_IMIN > 0, 'If CF_I: is defined, please define CF_J')\n\n       ! At this point, they should all be set or all be negative (probably -1)\n       IF (CF_IMIN > 0) THEN\n          Input_Opt%CF_IMIN = CF_IMIN\n          Input_Opt%CF_IMAX = CF_IMAX\n          Input_Opt%CF_JMIN = CF_JMIN\n          Input_Opt%CF_JMAX = CF_JMAX\n          Input_Opt%CF_LMIN = CF_LMIN\n          Input_Opt%CF_LMAX = CF_LMAX\n       ELSEIF (Input_Opt%IS_FD_SPOT_THIS_PET) THEN\n          Input_Opt%CF_IMIN = Input_Opt%IFD\n          Input_Opt%CF_IMAX = Input_Opt%IFD\n          Input_Opt%CF_JMIN = Input_Opt%JFD\n          Input_Opt%CF_JMAX = Input_Opt%JFD\n          Input_Opt%CF_LMIN = Input_Opt%LFD\n          Input_Opt%CF_LMAX = Input_Opt%LFD\n       WRITE(*,1027) Input_Opt%thisCPU,   &\n            Input_Opt%CF_IMIN, Input_Opt%CF_IMAX, &\n            Input_Opt%CF_JMIN, Input_Opt%CF_JMAX, &\n            Input_Opt%CF_LMIN, Input_Opt%CF_LMAX\n1027   FORMAT('CF on Pet ', i3, ' I = (', i3, ', ', i3, ') &\n             J = ( ', i3, ', ', i3, ') &\n             L = (', i3, ', ', i3, ')')\n\n       ELSE\n          Input_Opt%CF_IMIN = -1\n          Input_Opt%CF_IMAX = -1\n          Input_Opt%CF_JMIN = -1\n          Input_Opt%CF_JMAX = -1\n          Input_Opt%CF_LMIN = -1\n          Input_Opt%CF_LMAX = -1\n       ENDIF\n\n       IF ( Input_Opt%IS_FD_SPOT_THIS_PET ) THEN\n          write (*,1011) Input_Opt%thisCPU, dmin, imin, jmin, &\n               state_grid%YMID(IMIN,JMIN), state_grid%XMID(IMIN,JMIN)\n\n#ifdef DEBUG\n          ! Get the ESMF grid attached to this gridded component\n          CALL ESMF_GridCompGet( GC, grid=Grid, __RC__ )\n\n          ! Get the upper and lower bounds of on each PET using MAPL\n          CALL MAPL_GridGetInterior( Grid, IL_PET, IU_PET, JL_PET, JU_PET )\n          WRITE(*,1013) IL_PET, IU_PET\n          WRITE(*,1014) JL_PET, JU_PET\n#endif\n\n         ENDIF\n\n1011   FORMAT('Found FD_SPOT on PET ', i5, ' ', f7.2, &\n            ' degrees from cell ', i3, ', ', i3, ' (', f7.2, ', ', f7.2, ')')\n1012   FORMAT('Did not find FD_SPOT on PET ', i5, ' ', f7.2,&\n            ' degrees from cell ', i3, ', ', i3, ' (', f7.2, ', ', f7.2, ')')\n1013   FORMAT('   XminOffset = ', i3, '     XmaxOffset = ', i3)\n1014   FORMAT('   YminOffset = ', i3, '     YmaxOffset = ', i3)\n1015   FORMAT('   GlobalXMid(', i3, ', ', i3, ') = (', f7.2, ', ' f7.2, ')')\n1016   FORMAT('       SPC(', a10, ', FD_SPOT) = ', e22.10)\n1019   FORMAT('   SPC_ADJ(', a10, ', FD_SPOT) = ', e22.10)\n    ENDIF\n#endif\n\n    ! Initialize other GEOS-Chem modules\n    CALL GC_Init_Extra( HistoryConfig%DiagList, Input_Opt,  State_Chm,       &\n                        State_Diag,             State_Grid, State_Met, RC   )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling GC_Init_Extra')\n\n\n    ! Set initial species units to internal state units, the same\n    ! units as the restart file values. Note that species concentrations\n    ! are all still zero at this point since internal state values are not\n    ! copied to State_Chm%Species%Conc until Run (post-initialization).\n    DO N = 1, State_Chm%nSpecies\n#if defined( MODEL_GEOS )\n       State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_TOTAL_AIR\n#else\n       State_Chm%Species(N)%Units = MOLES_SPECIES_PER_MOLES_DRY_AIR\n#endif\n    ENDDO\n\n    ! Initialize photolysis, including reading files for optical properties\n    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &\n         Input_Opt%ITS_AN_AEROSOL_SIM .or. &\n         Input_Opt%ITS_A_MERCURY_SIM  ) THEN\n       CALL Init_Photolysis( Input_Opt,  State_Grid, State_Chm,              &\n                             State_Diag, State_Met,  RC                     )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling Init_Photolysis')\n    ENDIF\n\n#if defined( RRTMG )\n       ! RRTMG initialization\n    IF ( Input_Opt%LRAD ) THEN\n       CALL Init_RRTMG_Rad_Transfer( Input_Opt, State_Diag, State_Grid, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling \"Init_RRTMG_Rad_Transfer\"!')\n       CALL Rrtmg_Lw_Ini()\n       CALL Rrtmg_Sw_Ini()\n       State_Chm%RRTMG_iCld  = 0\n       State_Chm%RRTMG_iSeed = 10\n    ENDIF\n#endif\n\n    ! Initialize HEMCO\n    CALL EMISSIONS_INIT( Input_Opt, State_Chm, State_Grid, State_Met, RC, &\n                         HcoConfig=HcoConfig )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling EMISSIONS_INIT')\n\n    ! Initialize UCX routines\n    CALL INIT_UCX( Input_Opt, State_Chm, State_Diag, State_Grid )\n\n#if defined( MODEL_GEOS )\n    ! Keep commented out line as a GEOS-5 option reminder\n    !IF ( Input_Opt%LINEAR_CHEM .AND. Input_Opt%LLSTRAT < value_LM ) THEN\n#endif\n     IF ( Input_Opt%LINEAR_CHEM ) THEN\n       CALL INIT_LINEAR_CHEM( Input_Opt, State_Chm, State_Met, State_Grid, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling INIT_LINEAR_CHEM')\n    ENDIF\n\n    ! Error handling and logging\n    CALL Init_Error(Input_Opt, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling INIT_ERROR')\n\n    !-------------------------------------------------------------------------\n    ! Diagnostics and tendencies\n    !-------------------------------------------------------------------------\n\n!#if defined( MODEL_GEOS )\n!    ! The GEOS-Chem diagnostics list, stored in HistoryConfig, is initialized\n!    ! during GCHP_INIT_SIMULATION, and corresponding arrays in State_Diag are\n!    ! allocated accordingly when initializing State_Diag. Here, we thus\n!    ! only need to initialize the tendencies, which have not been initialized\n!    ! yet (ckeller, 11/29/17).\n!    CALL Tend_Init ( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n!    _ASSERT(RC==GC_SUCCESS, 'Error calling Tend_Init')\n!#endif\n\n    ! Return success\n    RC = GC_Success\n\n  END SUBROUTINE GCHP_Chunk_Init\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: gchp_chunk_run\n!\n! !DESCRIPTION: Subroutine GCHP\\_CHUNK\\_RUN is the ESMF run method for\n!  GEOS-Chem.\n!\n! !INTERFACE:\n!\n  SUBROUTINE GCHP_Chunk_Run( GC,                                             &\n                             nymd,       nhms,       year,       month,      &\n                             day,        dayOfYr,    hour,       minute,     &\n                             second,     utc,        hElapsed,   Input_Opt,  &\n                             State_Chm,  State_Diag, State_Grid, State_Met,  &\n                             Phase,      IsChemTime, IsRadTime,              &\n#if defined( MODEL_GEOS )\n                             FrstRewind, &\n#endif\n#if defined( ADJOINT )\n                             IsStarttime, &\n#endif\n                             RC )\n!\n! !USES:\n!\n    ! GEOS-Chem state objects\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n\n    ! GEOS-Chem components\n    USE Chemistry_Mod,      ONLY : Do_Chemistry, Recompute_OD\n    USE Convection_Mod,     ONLY : Do_Convection\n    USE DryDep_Mod,         ONLY : Do_DryDep\n    USE Emissions_Mod,      ONLY : Emissions_Run\n    USE Mixing_Mod,         ONLY : Do_Tend, Do_Mixing\n    USE WetScav_Mod,        ONLY : Setup_WetScav, Do_WetDep\n\n    ! HEMCO components (eventually moved to a separate GridComp?)\n    USE HCO_State_GC_Mod,   ONLY : HcoState, ExtState\n    USE HCO_Interface_Common, ONLY : SetHcoTime\n    USE HCO_Interface_GC_Mod, ONLY : Compute_Sflx_For_Vdiff\n    USE HCO_Interface_GC_Mod, ONLY : Set_DryDepVel_Diagnostics\n\n    ! Specialized subroutines\n    USE Calc_Met_Mod,       ONLY : AirQnt\n    USE Calc_Met_Mod,       ONLY : Set_Dry_Surface_Pressure\n    USE Calc_Met_Mod,       ONLY : Set_Clock_Tracer\n    USE Calc_Met_Mod,       ONLY : GCHP_Cap_Tropopause_Prs\n    USE Set_Global_CH4_Mod, ONLY : Set_CH4\n    USE MODIS_LAI_Mod,      ONLY : Compute_XLAI\n    USE PBL_Mix_Mod,        ONLY : Compute_PBL_Height\n    USE Pressure_Mod,       ONLY : Set_Floating_Pressures\n    USE TOMS_Mod,           ONLY : Compute_Overhead_O3\n    USE UCX_Mod,            ONLY : Set_H2O_Trac\n    USE Vdiff_Mod,          ONLY : Max_PblHt_for_Vdiff\n\n    ! Utilities\n    USE ErrCode_Mod\n    USE Error_Mod\n    USE HCO_Error_Mod\n    USE MAPL_MemUtilsMod\n    USE Pressure_Mod,       ONLY : Accept_External_Pedge\n    USE State_Chm_Mod,      ONLY : IND_\n    USE Time_Mod,           ONLY : Accept_External_Date_Time\n    USE UnitConv_Mod\n\n    ! Diagnostics\n    USE Diagnostics_Mod,    ONLY : Zero_Diagnostics_StartofTimestep\n    USE Diagnostics_Mod,    ONLY : Set_Diagnostics_EndofTimestep\n    USE Diagnostics_Mod,    ONLY : Set_AerMass_Diagnostic\n    USE Diagnostics_Mod,    ONLY : Set_SpcConc_Diags_VVDry\n#ifdef ADJOINT\n    USE PhysConstants,      ONLY : AIRMW\n    USE Diagnostics_Mod,    ONLY :  Set_SpcAdj_Diagnostic\n#endif\n\n#if defined( RRTMG )\n    USE RRTMG_RAD_TRANSFER_MOD,  ONLY : Do_RRTMG_Rad_Transfer\n    USE RRTMG_RAD_TRANSFER_MOD,  ONLY : Set_SpecMask\n#endif\n\n    USE Calc_Met_Mod,           ONLY : GET_COSINE_SZA\n#if defined( MODEL_GEOS )\n    USE HCO_Interface_GC_Mod,   ONLY : HCOI_GC_WriteDiagn\n#endif\n    USE Species_Mod,   ONLY : Species\n\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: nymd        ! YYYY/MM/DD @ current time\n    INTEGER,        INTENT(IN)    :: nhms        ! hh:mm:ss   @ current time\n    INTEGER,        INTENT(IN)    :: year        ! UTC year\n    INTEGER,        INTENT(IN)    :: month       ! UTC month\n    INTEGER,        INTENT(IN)    :: day         ! UTC day\n    INTEGER,        INTENT(IN)    :: dayOfYr     ! UTC day of year\n    INTEGER,        INTENT(IN)    :: hour        ! UTC hour\n    INTEGER,        INTENT(IN)    :: minute      ! UTC minute\n    INTEGER,        INTENT(IN)    :: second      ! UTC second\n    REAL*4,         INTENT(IN)    :: utc         ! UTC time [hrs]\n    REAL*4,         INTENT(IN)    :: hElapsed    ! Elapsed hours\n    INTEGER,        INTENT(IN)    :: Phase       ! Run phase (-1, 1 or 2)\n    LOGICAL,        INTENT(IN)    :: IsChemTime  ! Time for chemistry?\n    LOGICAL,        INTENT(IN)    :: IsRadTime   ! Time for RRTMG?\n#if defined( MODEL_GEOS )\n    LOGICAL,        INTENT(IN)    :: FrstRewind  ! Is it the first rewind?\n#endif\n#if defined ( ADJOINT )\n    LOGICAL,        INTENT(IN)    :: IsStarttime ! Have we reached the start time\n                                                 ! in an adjoint run\n#endif\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT) :: GC          ! Ref to this GridComp\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt   ! Input Options obj\n    TYPE(ChmState),      INTENT(INOUT) :: State_Chm   ! Chemistry State obj\n    TYPE(DgnState),      INTENT(INOUT) :: State_Diag  ! Diagnostics State obj\n    TYPE(GrdState),      INTENT(INOUT) :: State_Grid  ! Grid State obj\n    TYPE(MetState),      INTENT(INOUT) :: State_Met   ! Meteorology State obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC          ! Return code\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  18 Jul 2011 - M. Long     - Initial Version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    TYPE(ESMF_STATE)               :: INTSTATE\n    TYPE(MAPL_MetaComp), POINTER   :: STATE\n    TYPE(ESMF_VM)                  :: VM            ! ESMF VM object\n    TYPE(ESMF_Field)               :: IntField\n    REAL*8                         :: DT\n    CHARACTER(LEN=ESMF_MAXSTR)     :: Iam\n    INTEGER                        :: STATUS, HCO_PHASE, RST\n    INTEGER                        :: previous_units\n#if defined( MODEL_GEOS )\n    INTEGER                        :: I, J, L\n#endif\n\n    ! Local logicals to turn on/off individual components\n    ! The parts to be executed are based on the input options,\n    ! the time step and the phase.\n    LOGICAL                        :: DoConv\n    LOGICAL                        :: DoDryDep\n    LOGICAL                        :: DoEmis\n    LOGICAL                        :: DoTend\n    LOGICAL                        :: DoTurb\n    LOGICAL                        :: DoChem\n    LOGICAL                        :: DoWetDep\n    LOGICAL                        :: DoRad\n\n    ! First call?\n    LOGICAL, SAVE                  :: FIRST    = .TRUE.\n    LOGICAL, SAVE                  :: FIRST_RT = .TRUE. ! RRTMG\n\n    ! # of times this routine has been called. Only temporary for printing\n    ! processes on the first 10 calls.\n    INTEGER, SAVE                  :: NCALLS = 0\n\n    ! Strat. H2O settings\n    LOGICAL                        :: SetStratH2O\n#if defined( MODEL_GEOS )\n    LOGICAL, SAVE                  :: LSETH2O_orig\n#endif\n\n    ! For RRTMG\n    INTEGER                        :: N\n\n    ! Whether to scale mixing ratio with meteorology update in AirQnt\n    LOGICAL, SAVE                  :: scaleMR = .FALSE.\n\n    ! Debug variables\n    INTEGER, parameter             :: I_DBG = 6, J_DBG = 5, L_DBG=1\n#ifdef ADJOINT\n    ! Adjoint Finitie Difference Variables\n    INTEGER                        :: IFD, JFD, LFD, NFD\n    INTEGER                        :: I, J, L\n    REAL*8                         :: CFN\n    CHARACTER(len=ESMF_MAXSTR)     :: FD_SPEC, TRACNAME\n    TYPE(Species),       POINTER   :: ThisSpc\n#endif\n\n    ! For stratospheric adjustment\n    REAL(f8), ALLOCATABLE          :: DT_3D(:,:,:)\n    REAL(f8), ALLOCATABLE          :: DT_3D_UPDATE(:,:,:)\n    REAL(f8), ALLOCATABLE          :: HR_3D(:,:,:)\n\n    ! For logging\n    CHARACTER(len=ESMF_MAXSTR)     :: MSG\n\n    !=======================================================================\n    ! GCHP_CHUNK_RUN begins here\n    !=======================================================================\n\n    ! Error trap\n    Iam = 'GCHP_CHUNK_RUN (gchp_chunk_mod.F90)'\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Get state object (needed for timers)\n    CALL MAPL_GetObjectFromGC(GC, STATE, __RC__)\n\n    ! Get the VM for optional memory prints (level >= 2)\n    !-----------------------------------\n    if ( MemDebugLevel > 0 ) THEN\n       call ESMF_VmGetCurrent(VM, RC=STATUS)\n       _VERIFY(STATUS)\n    endif\n\n    !=======================================================================\n    ! Define processes to be covered in this phase\n    !\n    ! In the standard GEOS-Chem, the following operator sequence is used:\n    ! 1. DryDep (kg)\n    ! 2. Emissions (kg)\n    ! 3. Turbulence (v/v)\n    ! 4. Convection (v/v)\n    ! 5. Chemistry (kg)\n    ! 6. Wetdep (kg)\n    !\n    ! The GEOS-5 operator sequence is:\n    ! 1. Gravity wave drag\n    ! 2. Moist (convection)\n    ! 3. Chemistry 1 (drydep and emissions)\n    ! 4. Surface 1\n    ! 5. Turbulence 1\n    ! 6. Surface 2\n    ! 7. Turbulence 2\n    ! 8. Chemistry 2 (chemistry and wet deposition)\n    ! 9. Radiation\n    !\n    ! Here, we use the following operator sequence:\n    !\n    ! 1.  Convection (v/v) --> Phase 1\n    ! 2.  DryDep (kg)      --> Phase 1\n    ! 3.  Emissions (kg)   --> Phase 1\n    ! 4a. Tendencies (v/v) --> Phase 1\n    ! -------------------------------\n    ! 4b. Turbulence (v/v) --> Phase 2\n    ! 5.  Chemistry (kg)   --> Phase 2\n    ! 6.  WetDep (kg)      --> Phase 2\n    !\n    ! Any of the listed processes is only executed if the corresponding switch\n    ! in the geoschem_config.yml file is enabled. If the physics component\n    ! already covers convection or turbulence, they should not be applied here!\n    ! The tendencies are only applied if turbulence is not done within\n    ! GEOS-Chem (ckeller, 10/14/14).\n    !\n    ! The standard number of phases in GCHP is 1, set in GCHP.rc, which\n    ! results in Phase -1 in gchp_chunk_run. This results in executing\n    ! all GEOS-Chem components in a single run rather than splitting up\n    ! across two runs as is done in GEOS-5. (ewl, 10/26/18)\n    !=======================================================================\n\n    ! By default, do processes as defined in geoschem_config.yml. DoTend\n    ! defined below.\n    DoConv   = Input_Opt%LCONV                    ! dynamic time step\n    DoDryDep = Input_Opt%LDRYD .AND. IsChemTime   ! chemistry time step\n    DoEmis   = IsChemTime                         ! chemistry time step\n#if defined( MODEL_GEOS )\n    DoTurb   = Input_Opt%LTURB .AND. IsChemTime   ! dynamic time step\n#else\n    DoTurb   = Input_Opt%LTURB                    ! dynamic time step\n#endif\n    DoChem   = Input_Opt%LCHEM .AND. IsChemTime   ! chemistry time step\n    DoWetDep = Input_Opt%LWETD                    ! dynamic time step\n    DoRad    = Input_Opt%LRAD  .AND. IsRadTime    ! radiation time step\n\n    ! If Phase is not -1, only do selected processes for given phases:\n    ! Phase 1: disable turbulence, chemistry and wet deposition.\n    IF ( Phase == 1 ) THEN\n       DoTurb   = .FALSE.\n       DoChem   = .FALSE.\n       DoWetDep = .FALSE.\n\n    ! Phase 2: disable convection, drydep and emissions.\n    ELSEIF ( Phase == 2 ) THEN\n       DoConv   = .FALSE.\n       DoDryDep = .FALSE.\n       DoEmis   = .FALSE.\n    ENDIF\n\n    ! Check if tendencies need be applied. The drydep and emission calls\n    ! only calculates the emission / drydep rates, but do not apply the\n    ! tendencies to the tracer array yet. If turbulence is done as part of\n    ! GEOS-5, we need to make sure that these tendencies are applied to the\n    ! tracer array. If turbulence is explicitly covered by GEOS-Chem,\n    ! however, the tendencies become automatically applied within the PBL\n    ! mixing routines (DO_MIXING), so we should never apply the tendencies\n    ! in this case.\n    DoTend = ( DoEmis .OR. DoDryDep ) .AND. .NOT. Input_Opt%LTURB\n\n    ! testing only\n    IF ( NCALLS < 10 ) THEN\n       ! Use pfLogger\n       Call Input_Opt%lgr%info('GEOS-Chem phase %i2~:', Phase)\n       Call Input_Opt%lgr%info('DoConv   : %l1', DoConv)\n       Call Input_Opt%lgr%info('DoDryDep : %l1', DoDryDep)\n       Call Input_Opt%lgr%info('DoEmis   : %l1', DoEmis)\n       Call Input_Opt%lgr%info('DoTend   : %l1', DoTend)\n       Call Input_Opt%lgr%info('DoTurb   : %l1', DoTurb)\n       Call Input_Opt%lgr%info('DoChem   : %l1', DoChem)\n       Call Input_Opt%lgr%info('DoWetDep : %l1', DoWetDep)\n    ENDIF\n\n    !-------------------------------------------------------------------------\n    ! Pre-Run assignments\n    !-------------------------------------------------------------------------\n\n    ! Zero out certain State_Diag arrays. This should not be done in a phase 2\n    ! call since this can erase diagnostics filled during phase 1 (e.g., drydep)\n    ! (ckeller, 1/21/2022).\n    IF ( Phase /= 2 ) THEN\n       CALL Zero_Diagnostics_StartOfTimestep( Input_Opt, State_Diag, RC )\n    ENDIF\n\n    ! Pass time values obtained from the ESMF environment to GEOS-Chem\n    CALL Accept_External_Date_Time( value_NYMD     = nymd,       &\n                                    value_NHMS     = nhms,       &\n                                    value_YEAR     = year,       &\n                                    value_MONTH    = month,      &\n                                    value_DAY      = day,        &\n                                    value_DAYOFYR  = dayOfYr,    &\n                                    value_HOUR     = hour,       &\n                                    value_MINUTE   = minute,     &\n                                    value_SECOND   = second,     &\n                                    value_HELAPSED = hElapsed,   &\n                                    value_UTC      = utc,        &\n                                    RC             = RC         )\n\n    ! Pass time values obtained from the ESMF environment to HEMCO\n#if !defined( MODEL_GEOS )\n    CALL SetHcoTime ( HcoState,   ExtState,   year,    month,   day,   &\n                      dayOfYr,    hour,       minute,  second,  DoEmis,  RC )\n#endif\n\n    ! Calculate MODIS leaf area indexes needed for dry deposition\n    CALL Compute_XLAI( Input_Opt, State_Grid, State_Met, RC )\n\n    ! Set the pressure at level edges [hPa] from the ESMF environment\n    CALL Accept_External_Pedge( State_Met  = State_Met,   &\n                                State_Grid = State_Grid,  &\n                                RC         = RC          )\n\n    ! Set dry surface pressure (PS1_DRY) from State_Met%PS1_WET\n    CALL SET_DRY_SURFACE_PRESSURE( State_Grid, State_Met, 1 )\n\n    ! Set dry surface pressure (PS2_DRY) from State_Met%PS2_WET\n    CALL SET_DRY_SURFACE_PRESSURE( State_Grid, State_Met, 2 )\n\n    ! Initialize surface pressures to match the post-advection pressures\n    State_Met%PSC2_WET = State_Met%PS1_WET\n    State_Met%PSC2_DRY = State_Met%PS1_DRY\n    CALL SET_FLOATING_PRESSURES( State_Grid, State_Met, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ! Define airmass and related quantities\n#if defined( MODEL_GEOS )\n    CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, RC, .FALSE. )\n#else\n    ! Scale mixing ratio with changing met only if FV advection is off.\n    ! Only do this the first timestep if DELP_DRY found in restart.\n    IF ( FIRST .and. .not. Input_Opt%LTRAN ) THEN\n       CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=INTSTATE, __RC__ )\n       CALL ESMF_StateGet( INTSTATE, 'DELP_DRY', IntField, RC=STATUS )\n       _VERIFY(STATUS)\n       CALL ESMF_AttributeGet( IntField, NAME=\"RESTART\", VALUE=RST, RC=STATUS )\n       _VERIFY(STATUS)\n       IF ( .not. ( RST == MAPL_RestartBootstrap .OR. &\n                    RST == MAPL_RestartSkipInitial ) ) scaleMR = .TRUE.\n       CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, RC, scaleMR )\n       scaleMR = .TRUE.\n    ELSE\n       CALL AirQnt( Input_Opt, State_Chm, State_Grid, State_Met, RC, scaleMR )\n    ENDIF\n#endif\n\n    ! Initialize/reset wetdep after air quantities computed\n    IF ( DoConv .OR. DoChem .OR. DoWetDep ) THEN\n       CALL SETUP_WETSCAV( Input_Opt, State_Chm, State_Grid, State_Met, RC )\n    ENDIF\n\n    ! Cap the polar tropopause pressures at 200 hPa, in order to avoid\n    ! tropospheric chemistry from happening too high up (cf. J. Logan)\n    CALL GCHP_Cap_Tropopause_Prs( Input_Opt      = Input_Opt,  &\n                                  State_Grid     = State_Grid, &\n                                  State_Met      = State_Met,  &\n                                  RC             = RC         )\n\n    ! Update clock tracer if relevant\n    IF (  IND_('CLOCK','A') > 0 ) THEN\n       CALL Set_Clock_Tracer( State_Chm, State_Grid )\n    ENDIF\n\n    ! Call PBL quantities. Those are always needed\n    CALL Compute_Pbl_Height( Input_Opt, State_Grid, State_Met, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling COMPUTE_PBL_HEIGHT')\n\n    ! Convert to dry mixing ratio\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES_PER_KG_DRY_AIR,                         &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling CONVERT_SPC_UNITS')\n\n    !=======================================================================\n    ! Always prescribe H2O in both the stratosphere and troposhere in GEOS.\n    ! This is now done right after passing the species from the internal\n    ! state to State_Chm (in Chem_GridCompMod.F90). It is important to do it \n    ! there to make sure that any H2O tendencies are properly calculated\n    ! cakelle2, 2023/10/14 \n    !=======================================================================\n#if !defined( MODEL_GEOS )\n    ! SDE 05/28/13: Set H2O to STT if relevant\n    IF ( IND_('H2O','A') > 0 ) THEN\n       SetStratH2O = .FALSE.\n       IF ( Input_Opt%LSETH2O ) THEN\n          SetStratH2O = .TRUE.\n       ENDIF\n       CALL SET_H2O_TRAC( SetStratH2O, Input_Opt, State_Chm, &\n                          State_Grid,  State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling SET_H2O_TRAC')\n\n      ! Only force strat once\n       IF ( Input_Opt%LSETH2O ) Input_Opt%LSETH2O = .FALSE.\n    ENDIF\n#endif\n\n    ! Compute the cosine of the solar zenith angle array:\n    !    State_Met%SUNCOS     => COS(SZA) at the current time\n    !    State_Met%SUNCOSmid  => COS(SZA) at the midpt of the chem timestep\n    !    COS(SZA) at the midpt of the chem timestep 5hrs ago is now\n    !    calculated elsewhere, in the HEMCO PARANOx extension\n    CALL GET_COSINE_SZA( Input_Opt, State_Grid, State_Met, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling GET_COSINE_SZA')\n\n#ifdef ADJOINT\n    if (.not. first) &\n         CALL Print_Global_Species_Kg( I_DBG, J_DBG, L_DBG,           &\n                                       'CO2', Input_Opt, State_Chm,   &\n                                       State_Grid, State_Met, trim(Iam) // &\n                                       ' before first unit conversion', RC)\n    CALL GCHP_PRINT_MET( I_DBG, J_DBG, L_DBG, Input_Opt,&\n         State_Grid, State_Met, trim(Iam) // ' before first unit conversion.', RC)\n\n    IF (first .and. Input_Opt%IS_FD_SPOT_THIS_PET .and.  Input_Opt%IS_FD_SPOT) THEN\n       FD_SPEC = transfer(state_chm%SpcData(Input_Opt%NFD)%Info%Name, FD_SPEC)\n       IFD = Input_Opt%IFD\n       JFD = Input_Opt%JFD\n       LFD = Input_Opt%LFD\n       NFD = Input_Opt%NFD\n       WRITE (*, 1017) TRIM(FD_SPEC), state_chm%Species(NFD)%Conc(IFD,JFD,LFD)\n       IF (Input_Opt%IS_ADJOINT) THEN\n          WRITE(*,*) ' Computing final cost function'\n          CFN = 0d0\n          state_chm%SpeciesAdj(:,:,:,NFD) = 0d0\n          DO L = 1,State_Grid%NZ\n          DO J = 1,State_Grid%NY\n          DO I = 1,State_Grid%NX\n             if (State_chm%CostFuncMask(I,J,L) > 0d0) THEN\n                WRITE (*, 1047) I, J, L, State_Chm%Species(NFD)%Conc(I,J,L)\n                state_chm%SpeciesAdj(I,J,L, NFD) = 1.0d0\n                CFN = CFN + State_Chm%Species(NFD)%Conc(I,J,L)\n             endif\n          ENDDO\n          ENDDO\n          ENDDO\n          WRITE(*,'(a7, e22.10)') ' CFN = ', CFN\n1047      FORMAT('  SPC(', i2, ', ', i2, ', ', i2, ') = ', e22.10)\n       ELSE\n          IF (Input_Opt%FD_STEP .eq. 0) THEN\n             WRITE(*, *) '    Not perturbing'\n          ELSEIF (Input_Opt%FD_STEP .eq. 1) THEN\n             WRITE(*, *) '    Perturbing +0.1'\n             State_Chm%Species(NFD)%Conc(IFD,JFD,LFD) = State_Chm%Species(NFD)%Conc(IFD,JFD,LFD) * 1.1d0\n          ELSEIF (Input_Opt%FD_STEP .eq. 2) THEN\n             WRITE(*, *) '    Perturbing -0.1'\n             State_Chm%Species(NFD)%Conc(IFD,JFD,LFD) = State_Chm%Species(NFD)%Conc(IFD,JFD,LFD) * 0.9d0\n          ELSE\n             WRITE(*, *) '    FD_STEP = ', Input_Opt%FD_STEP, ' NOT SUPPORTED!'\n          ENDIF\n          WRITE (*, 1017) TRIM(FD_SPEC), State_Chm%Species(NFD)%Conc(IFD,JFD,LFD)\n       ENDIF\n    ENDIF\n\n    IF (first .and. Input_Opt%IS_FD_GLOBAL) THEN\n       FD_SPEC = transfer(state_chm%SpcData(Input_Opt%NFD)%Info%Name, FD_SPEC)\n       NFD = Input_Opt%NFD\n       LFD = Input_Opt%LFD\n       IF (Input_Opt%IS_FD_SPOT_THIS_PET) THEN\n          IFD = Input_Opt%IFD\n          JFD = Input_Opt%JFD\n          WRITE (*, 1017) TRIM(FD_SPEC), State_Chm%Species(NFD)%Conc(IFD,JFD,LFD)\n          IF (Input_Opt%Is_Adjoint) &\n               WRITE (*, 1018) TRIM(FD_SPEC), state_chm%SpeciesAdj(IFD, JFD, LFD, NFD)\n       ENDIF\n       IF (.not. Input_Opt%IS_ADJOINT) THEN\n          IF (Input_Opt%FD_STEP .eq. 0) THEN\n             WRITE(*, *) '    Not perturbing'\n          ELSEIF (Input_Opt%FD_STEP .eq. 1) THEN\n             WRITE(*, *) '    Perturbing +0.1'\n             State_Chm%Species(NFD)%Conc = State_Chm%Species(NFD)%Conc(:,:,:) * 1.1d0\n          ELSEIF (Input_Opt%FD_STEP .eq. 2) THEN\n             WRITE(*, *) '    Perturbing -0.1'\n             State_Chm%Species(NFD)%Conc = State_Chm%Species(NFD)%Conc(:,:,:) * 0.9d0\n          ELSE\n             WRITE(*, *) '    FD_STEP = ', Input_Opt%FD_STEP, ' NOT SUPPORTED!'\n          ENDIF\n          IF (Input_Opt%IS_FD_SPOT_THIS_PET) &\n               WRITE (*, 1017) TRIM(FD_SPEC), State_Chm%Species(NFD)%Conc(IFD,JFD,LFD)\n       ELSE\n          state_chm%SpeciesAdj(:,:,:,:) = 0d0\n          IF (NFD > 0) THEN\n             IF (LFD > 0) THEN\n                IF (Input_opt%amIRoot) THEN\n                   WRITE(*,*) ' Setting Level ', LFD, ' forcing to 1'\n                ENDIF\n                state_chm%SpeciesAdj(:,:,LFD,NFD) = 1d0\n             ELSE\n                IF (Input_opt%amIRoot) THEN\n                   WRITE(*,*) ' Setting all forcing to 1'\n                ENDIF\n                state_chm%SpeciesAdj(:,:,:,NFD) = 1d0\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDIF\n\n1017 FORMAT('       SPC(', a10, ', FD_SPOT) = ', e22.10)\n1018   FORMAT('   SPC_ADJ(', a10, ', FD_SPOT) = ', e22.10)\n    IF (Input_Opt%IS_FD_SPOT_THIS_PET ) THEN\n       FD_SPEC = transfer(state_chm%SpcData(Input_Opt%NFD)%Info%Name, FD_SPEC)\n       NFD = Input_Opt%NFD\n       IFD = Input_Opt%IFD\n       JFD = Input_Opt%JFD\n       LFD = Input_Opt%LFD\n       WRITE(*,1017) TRIM(FD_SPEC), State_Chm%Species(NFD)%Conc(IFD,JFD,LFD)\n       IF (Input_Opt%Is_Adjoint) &\n            WRITE (*, 1018) TRIM(FD_SPEC), state_chm%SpeciesAdj(IFD, JFD, LFD, NFD)\n    ENDIF\n#endif\n\n    !=======================================================================\n    ! EMISSIONS. Pass HEMCO Phase 1 which only updates the HEMCO clock\n    ! and the HEMCO data list. Should be called every time to make sure\n    ! that the HEMCO clock and the HEMCO data list are up to date.\n    !=======================================================================\n    HCO_PHASE = 1\n    CALL EMISSIONS_RUN( Input_Opt, State_Chm, State_Diag, &\n                        State_Grid, State_Met, DoEmis, HCO_PHASE, RC  )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling EMISSIONS_RUN')\n\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!!!                                PHASE 1 or -1                           !!!\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    !=======================================================================\n    ! 1. Convection\n    !\n    ! Call GEOS-Chem internal convection routines if convection is enabled\n    ! in geoschem_config.yml. This should only be done if convection is not\n    ! covered by another gridded component and/or the GC species are not made\n    ! friendly to this component!!\n    !=======================================================================\n    IF ( DoConv ) THEN\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Do convection now'\n       CALL MAPL_TimerOn( STATE, 'GC_CONV' )\n\n       CALL DO_CONVECTION ( Input_Opt, State_Chm, State_Diag, &\n                            State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling DO_CONVECTION')\n\n       CALL MAPL_TimerOff( STATE, 'GC_CONV' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Convection done!'\n    ENDIF\n\n    !=======================================================================\n    ! 2. Dry deposition\n    !\n    ! Calculates the deposition rates in [s-1].\n    !=======================================================================\n    IF ( DoDryDep ) THEN\n       if(Input_Opt%AmIRoot.and.NCALLS<10) THEN\n          write(*,*) ' --- Do drydep now'\n          write(*,*) '     Use FULL PBL: ', Input_Opt%PBL_DRYDEP\n       endif\n       CALL MAPL_TimerOn( STATE, 'GC_DRYDEP' )\n\n       ! Do dry deposition\n       CALL Do_DryDep ( Input_Opt, State_Chm, State_Diag, &\n                        State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling Do_DryDep')\n\n       CALL MAPL_TimerOff( STATE, 'GC_DRYDEP' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Drydep done!'\n    ENDIF\n\n    !=======================================================================\n    ! 3. Emissions (HEMCO)\n    !\n    ! HEMCO must be called on first time step to make sure that the HEMCO\n    ! data lists are all properly set up.\n    !=======================================================================\n    IF ( DoEmis ) THEN\n#if !defined( MODEL_GEOS )\n       ! Optional memory prints (level >= 3)\n       if ( MemDebugLevel > 0 ) THEN\n          call ESMF_VMBarrier(VM, RC=STATUS)\n          _VERIFY(STATUS)\n          call MAPL_MemUtilsWrite(VM, &\n                  'gchp_chunk_run, before Emissions_Run', RC=STATUS )\n          _VERIFY(STATUS)\n       endif\n#endif\n\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Do emissions now'\n       CALL MAPL_TimerOn( STATE, 'GC_EMIS' )\n\n       ! Do emissions. Pass HEMCO Phase 2 which performs the emissions\n       ! calculations.\n       HCO_PHASE = 2\n       CALL EMISSIONS_RUN( Input_Opt, State_Chm, State_Diag, &\n                           State_Grid, State_Met, DoEmis, HCO_PHASE, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling EMISSIONS_RUN')\n\n       CALL MAPL_TimerOff( STATE, 'GC_EMIS' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Emissions done!'\n\n       ! Optional memory prints (level >= 3)\n       if ( MemDebugLevel > 0 ) THEN\n          call ESMF_VMBarrier(VM, RC=STATUS)\n          _VERIFY(STATUS)\n          call MAPL_MemUtilsWrite(VM,&\n                  'gchp_chunk_run, after  Emissions_Run', RC=STATUS )\n          _VERIFY(STATUS)\n       endif\n\n    ENDIF\n\n    !=======================================================================\n    ! If physics covers turbulence, simply add the emission and dry\n    ! deposition fluxes calculated above to the tracer array, without caring\n    ! about the vertical distribution. The tracer tendencies are only added\n    ! to the tracers array after emissions, drydep. So we need to use the\n    ! emissions time step here.\n    !=======================================================================\n    IF ( DoTend ) THEN\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*)   &\n                           ' --- Add emissions and drydep to tracers'\n       CALL MAPL_TimerOn( STATE, 'GC_FLUXES' )\n\n       ! Get emission time step [s].\n       _ASSERT(ASSOCIATED(HcoState), 'Error: HcoState not associated')\n       DT = HcoState%TS_EMIS\n\n       ! Apply tendencies over entire PBL. Use emission time step.\n       CALL DO_TEND( Input_Opt, State_Chm, State_Diag, &\n                     State_Grid, State_Met, .FALSE., RC, DT=DT )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling DO_TEND')\n\n       ! testing only\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*)   &\n                                 '     Tendency time step [s]: ', DT\n\n       CALL MAPL_TimerOff( STATE, 'GC_FLUXES' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*)   &\n                                 ' --- Fluxes applied to tracers!'\n    ENDIF ! Tendencies\n\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n!!!                              PHASE 2 or -1                             !!!\n!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n    !=======================================================================\n    ! 4. Turbulence\n    !\n    ! Call GEOS-Chem internal turbulence routines if turbulence is enabled\n    ! in geoschem_config.yml. This should only be done if turbulence is not\n    ! covered by another gridded component and/or the GC species are not made\n    ! friendly to this component!!\n    !=======================================================================\n    IF ( DoTurb ) THEN\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Do turbulence now'\n       CALL MAPL_TimerOn( STATE, 'GC_TURB' )\n\n       ! Only do the following for the non-local PBL mixing (VDIFF)\n       IF ( Input_Opt%LNLPBL ) THEN\n\n          ! Once the initial met fields have been read in, we need to find\n          ! the maximum PBL level for the non-local mixing algorithm.\n          ! This only has to be done once. (bmy, 5/28/20)\n          IF ( FIRST ) THEN\n             CALL Max_PblHt_For_Vdiff( Input_Opt, State_Grid, State_Met, RC )\n             _ASSERT(RC==GC_SUCCESS, 'Error calling MAX_PBLHT_FOR_VDIFF')\n          ENDIF\n\n          ! Compute the surface flux for the non-local mixing,\n          ! (which means getting emissions & drydep from HEMCO)\n          ! and store it in State_Chm%Surface_Flux\n          CALL Compute_Sflx_For_Vdiff( Input_Opt,  State_Chm, State_Diag,    &\n                                       State_Grid, State_Met, RC            )\n          _ASSERT(RC==GC_SUCCESS, 'Error calling COMPUTE_SFLX_FOR_VDIFF')\n\n       ENDIF\n\n       ! Update dry-deposition velocities for full PBL mixing\n       ! by adding the sea-air deposition velocity from HEMCO\n       CALL Set_DryDepVel_Diagnostics( Input_Opt,  State_Chm,  State_Diag,   &\n                                       State_Grid, State_Met,  RC           )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling SET_DRYDEPVEL_DIAGNOSTICS')\n\n       ! Do mixing and apply tendencies. This will use the dynamic time step,\n       ! which is fine since this call will be executed on every time step.\n       CALL DO_MIXING ( Input_Opt, State_Chm, State_Diag,                    &\n                        State_Grid, State_Met, RC                           )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling DO_MIXING')\n\n       CALL MAPL_TimerOff( STATE, 'GC_TURB' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Turbulence done!'\n    ENDIF\n\n    ! Set tropospheric CH4 concentrations and fill species array with\n    ! current values.\n#if defined( MODEL_GEOS )\n    IF ( DoTurb .OR. DoTend ) THEN\n#else\n    IF ( Phase /= 2 .AND. Input_Opt%ITS_A_FULLCHEM_SIM  &\n         .AND. IND_('CH4','A') > 0 ) THEN\n#endif\n       CALL SET_CH4 ( Input_Opt, State_Chm, State_Diag, &\n                      State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling SET_CH4')\n    ENDIF\n\n    !=======================================================================\n    ! 5. Chemistry\n    !=======================================================================\n    IF ( DoChem ) THEN\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Do chemistry now'\n       CALL MAPL_TimerOn( STATE, 'GC_CHEM' )\n\n       IF ( Input_Opt%ITS_A_FULLCHEM_SIM ) THEN\n          ! Calculate TOMS O3 overhead. For now, always use it from the\n          ! Met field. State_Met%TO3 is imported from PCHEM (ckeller, 10/21/2014).\n          CALL COMPUTE_OVERHEAD_O3( Input_Opt, State_Grid, State_Chm, DAY, &\n                                    .TRUE., State_Met%TO3, RC )\n       ENDIF\n\n#if !defined( MODEL_GEOS )\n       ! Set H2O to species value if H2O is advected\n       IF ( IND_('H2O','A') > 0 ) THEN\n          CALL SET_H2O_TRAC( .FALSE., Input_Opt, &\n                             State_Chm, State_Grid, State_Met, RC )\n       ENDIF\n#endif\n\n       ! Optional memory prints (level >= 3)\n       if ( MemDebugLevel > 0 ) THEN\n          call ESMF_VMBarrier(VM, RC=STATUS)\n          _VERIFY(STATUS)\n          call MAPL_MemUtilsWrite(VM, &\n                  'gchp_chunk_run:, before Do_Chemistry', RC=STATUS )\n          _VERIFY(STATUS)\n       endif\n\n       ! Do chemistry\n       CALL Do_Chemistry( Input_Opt, State_Chm, State_Diag, &\n                          State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling Do_Chemistr')\n\n       CALL MAPL_TimerOff( STATE, 'GC_CHEM' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Chemistry done!'\n\n       ! Optional memory prints (level >= 3)\n       if ( MemDebugLevel > 0 ) THEN\n          call ESMF_VMBarrier(VM, RC=STATUS)\n          _VERIFY(STATUS)\n          call MAPL_MemUtilsWrite(VM, &\n                  'gchp_chunk_run, after  Do_Chemistry', RC=STATUS )\n          _VERIFY(STATUS)\n       endif\n\n    ENDIF\n\n    !=======================================================================\n    ! 6. Wet deposition\n    !=======================================================================\n    IF ( DoWetDep ) THEN\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Do wetdep now'\n       CALL MAPL_TimerOn( STATE, 'GC_WETDEP' )\n\n       ! Do wet deposition\n       CALL DO_WETDEP( Input_Opt, State_Chm, State_Diag, &\n                       State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling DO_WETDEP')\n\n       CALL MAPL_TimerOff( STATE, 'GC_WETDEP' )\n       if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Wetdep done!'\n    ENDIF\n\n    !=======================================================================\n    ! Diagnostics\n    !=======================================================================\n\n    !==============================================================\n    !      ***** U P D A T E  O P T I C A L  D E P T H *****\n    !==============================================================\n    ! Recalculate the optical depth at the wavelength(s) specified\n    ! in the Radiation Menu. This must be done before the call to any\n    ! diagnostic and only on a chemistry timestep.\n    ! (skim, 02/05/11)\n    IF ( DoChem ) THEN\n       CALL RECOMPUTE_OD ( Input_Opt, State_Chm, State_Diag, &\n                           State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling RECOMPUTE_OD')\n    ENDIF\n\n#if defined( RRTMG )\n    ! RRTMG diagnostics\n    IF ( DoRad ) THEN\n\n       CALL MAPL_TimerOn( STATE, 'GC_RAD' )\n\n       If (First_RT) Call Log_Msg('First RRTMG run starting','Info','GCHP_Chunk')\n!       IF ( Input_Opt%amIRoot .AND. FIRST_RT ) THEN\n!             WRITE( 6, '(a)' ) REPEAT( '#', 79 )\n!             WRITE( 6, 500 ) 'R R T M G : Radiative Transfer Model (by AER)'\n!500          FORMAT( '#####', 12x, a, 12x, '#####' )\n!             WRITE( 6, '(a)' ) REPEAT( '#', 79 )\n!       ENDIF\n\n       ! Allocate temperature difference arrays\n       If ( Input_Opt%RRTMG_FDH ) Then\n          Allocate(DT_3D(State_Grid%NX,State_Grid%NY,State_Grid%NZ),Stat=RC)\n          _ASSERT(RC==0, 'Error allocating DT_3D')\n\n          ! If using seasonally evolving FDH, need to grab the internal\n          ! state temperature adjustment array\n          If (Input_Opt%RRTMG_SEFDH) Then\n             ! DT_3D will be updated by the first call to RRTMG; also need to\n             ! store the \"current\" value\n             Allocate(DT_3D_UPDATE(State_Grid%NX,State_Grid%NY,State_Grid%NZ),Stat=RC)\n             _ASSERT(RC==0, 'Error allocating DT_3D_UPDATE')\n             ! Store the adjustment as previously projected to this time point\n             DT_3D(:,:,:) = State_Chm%TStrat_Adj(:,:,:)\n             ! This will just hold the end-of-step value\n             DT_3D_UPDATE(:,:,:) = 0.0e+0_fp\n          Else\n             DT_3D(:,:,:) = 0.0e+0_fp\n          End If\n          Allocate(HR_3D(State_Grid%NX,State_Grid%NY,State_Grid%NZ),Stat=RC)\n          _ASSERT(RC==0, 'Error allocating HR_3D')\n          HR_3D(:,:,:) = 0.0e+0_fp\n          ! Read in dynamical heating rates if necessary\n          If (Input_Opt%Read_Dyn_Heating) Then\n             HR_3D(:,:,:) = State_Met%DynHeating(:,:,:)\n          End If\n       Else\n          ! Safer\n          Allocate(DT_3D(0,0,0),Stat=RC)\n          _ASSERT(RC==0, 'Error deallocating DT_3D')\n          Allocate(HR_3D(0,0,0),Stat=RC)\n          _ASSERT(RC==0, 'Error deallocating HR_3D')\n       End If\n\n       State_Chm%RRTMG_iSeed = State_Chm%RRTMG_iSeed + 15\n\n       !-----------------------------------------------------------\n       ! Determine if we are doing clear-sky or all-sky.\n       ! Clear-sky is output with all-sky, so we just need\n       ! to run once regardless of whether both are required\n       ! or just one.\n       !-----------------------------------------------------------\n       IF (Input_Opt%LSKYRAD(2) ) Then\n          State_Chm%RRTMG_iCld = 1\n       ELSE\n          State_Chm%RRTMG_iCld = 0      !clouds are on\n       ENDIF\n\n       !-----------------------------------------------------------\n       ! Calculation for each of the potential output types\n       ! See: wiki.geos-chem.org/Coupling_GEOS-Chem_with_RRTMG\n       !\n       ! RRTMG outputs (scheduled in HISTORY.rc):\n       !   0=BASE and then...\n       !   1=O3  2=O3T 3=ME  4=H2O  5=CO2  6=CFC  7=N2O\n       !   8=SU  9=NI 10=AM  11=BC  12=OA  13=SS 14=DU\n       !  15=PM  16=ST\n       !\n       ! State_Diag%RadOutInd(1) will ALWAYS correspond to BASE due\n       ! to how it is populated from HISTORY.rc diaglist_mod.F90.\n       ! BASE is always calculated first since its flux is used to calculate\n       ! other RRTMG flux diagnostics.\n       !-----------------------------------------------------------\n\n       ! Calculate BASE first\n       N = 1\n\n       ! Echo info\n       If (First_RT) Then\n          Write(Msg,520) State_Diag%RadOutName(N), State_Diag%RadOutInd(N)\n          Call Log_Msg(Trim(Msg),'Info','GCHP_Chunk')\n       End If\n\n       ! Generate mask for species in RT\n       CALL Set_SpecMask( State_Diag%RadOutInd(N), State_Chm )\n\n       ! Compute radiative fluxes for the given output\n       ! If FDH is used, this step will be used to calculate DT and\n       ! fill out DT_3D. The same will be true for HR_3D\n       CALL Do_RRTMG_Rad_Transfer( ThisDay    = Day,                     &\n                                   ThisMonth  = Month,                   &\n                                   iCld       = State_Chm%RRTMG_iCld,    &\n                                   iSpecMenu  = State_Diag%RadOutInd(N), &\n                                   iNcDiag    = N,                       &\n                                   iSeed      = State_Chm%RRTMG_iSeed,   &\n                                   Input_Opt  = Input_Opt,               &\n                                   State_Chm  = State_Chm,               &\n                                   State_Diag = State_Diag,              &\n                                   State_Grid = State_Grid,              &\n                                   State_Met  = State_Met,               &\n                                   DT_3D      = DT_3D,                   &\n                                   HR_3D      = HR_3D,                   &\n                                   RC         = RC                     )\n\n       ! Trap potential errors\n       _ASSERT(RC==GC_SUCCESS, 'Error encounted in Do_RRTMG_Rad_Transfer' )\n\n       If (Input_Opt%RRTMG_SEFDH) Then\n          ! Store the calculated update to DT\n          DT_3D_UPDATE(:,:,:) = DT_3D(:,:,:)\n          ! Reset the adjustment to the start of the time step\n          DT_3D(:,:,:) = State_Chm%TStrat_Adj(:,:,:)\n       End If\n\n       ! Calculate for rest of outputs, if any\n       DO N = 2, State_Diag%nRadOut\n          ! This time around, DT_3D is read in but not overwritten\n          If (First_RT) Then\n             Write(Msg,520) State_Diag%RadOutName(N), State_Diag%RadOutInd(N)\n             Call Log_Msg(Trim(Msg),'Info','GCHP_Chunk')\n          End If\n          CALL Set_SpecMask( State_Diag%RadOutInd(N), State_Chm )\n          ! This call will NOT update DT_3D, so we can just reuse the array\n          CALL Do_RRTMG_Rad_Transfer( ThisDay    = Day,                    &\n                                      ThisMonth  = Month,                  &\n                                      iCld       = State_Chm%RRTMG_iCld,   &\n                                      iSpecMenu  = State_Diag%RadOutInd(N),&\n                                      iNcDiag    = N,                      &\n                                      iSeed      = State_Chm%RRTMG_iSeed,  &\n                                      Input_Opt  = Input_Opt,              &\n                                      State_Chm  = State_Chm,              &\n                                      State_Diag = State_Diag,             &\n                                      State_Grid = State_Grid,             &\n                                      State_Met  = State_Met,              &\n                                      DT_3D      = DT_3D,                  &\n                                      HR_3D      = HR_3D,                  &\n                                      RC         = RC          )\n          _ASSERT(RC==GC_SUCCESS, 'Error encounted in Do_RRTMG_Rad_Transfer')\n       ENDDO\n\n520    FORMAT( 5x, '- ', &\n                  a4, ' (Index = ', i2.2, ')' )\n\n       ! Copy the adjustment back to DT_3D as calculated in the baseline calculation\n       If (Input_Opt%RRTMG_SEFDH) Then\n           DT_3D(:,:,:) = DT_3D_UPDATE(:,:,:)\n       End If\n\n       ! Store temperature change and heating rate from RRTMG in diagnostics\n       If (Input_Opt%RRTMG_FDH) Then\n           If (State_Diag%Archive_DynHeating) State_Diag%DynHeating(:,:,:) = HR_3D(:,:,:)\n           ! NB: DT_3D is the temperature adjustment either after equilibration (pure FDH)\n           ! or at the start of the NEXT radiation time step (SEFDH)\n           If (State_Diag%Archive_DTRad     ) State_Diag%DTRad(:,:,:)      = DT_3D(:,:,:)\n           If (Input_Opt%RRTMG_SEFDH) Then\n              State_Chm%TStrat_Adj(:,:,:) = DT_3D(:,:,:)\n           End If\n           RC = 0\n           If (Allocated(DT_3D)) Deallocate(DT_3D, STAT=RC)\n           _ASSERT(RC==0, 'Error deallocating DT_3D')\n           If (Allocated(HR_3D)) Deallocate(HR_3D, STAT=RC)\n           _ASSERT(RC==0, 'Error deallocating HR_3D')\n           If (Allocated(DT_3D_UPDATE)) Deallocate(DT_3D_UPDATE, STAT=RC)\n           _ASSERT(RC==0, 'Error deallocating DT_3D_UPDATE')\n       End If\n\n       IF ( FIRST_RT ) THEN\n          FIRST_RT = .FALSE.\n       ENDIF\n\n       CALL MAPL_TimerOff( STATE, 'GC_RAD' )\n    ELSE\n       ! Set diagnostics to be undefined\n       If (State_Diag%Archive_DTRad            ) State_Diag%DTRad(:,:,:)           = MAPL_UNDEF \n       If (State_Diag%Archive_DynHeating       ) State_Diag%DynHeating(:,:,:)      = MAPL_UNDEF \n       If (State_Diag%Archive_RadAllSkySWTOA   ) State_Diag%RadAllSkySWTOA(:,:,:)  = MAPL_UNDEF \n       If (State_Diag%Archive_RadAllSkySWSurf  ) State_Diag%RadAllSkySWSurf(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadAllSkySWTrop  ) State_Diag%RadAllSkySWTrop(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadAllSkyLWTOA   ) State_Diag%RadAllSkyLWTOA(:,:,:)  = MAPL_UNDEF \n       If (State_Diag%Archive_RadAllSkyLWSurf  ) State_Diag%RadAllSkyLWSurf(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadAllSkyLWTrop  ) State_Diag%RadAllSkyLWTrop(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadClrSkySWTOA   ) State_Diag%RadClrSkySWTOA(:,:,:)  = MAPL_UNDEF \n       If (State_Diag%Archive_RadClrSkySWSurf  ) State_Diag%RadClrSkySWSurf(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadClrSkySWTrop  ) State_Diag%RadClrSkySWTrop(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadClrSkyLWTOA   ) State_Diag%RadClrSkyLWTOA(:,:,:)  = MAPL_UNDEF \n       If (State_Diag%Archive_RadClrSkyLWSurf  ) State_Diag%RadClrSkyLWSurf(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadClrSkyLWTrop  ) State_Diag%RadClrSkyLWTrop(:,:,:) = MAPL_UNDEF \n       If (State_Diag%Archive_RadAODWL1        ) State_Diag%RadAODWL1(:,:,:)       = MAPL_UNDEF \n       If (State_Diag%Archive_RadSSAWL1        ) State_Diag%RadSSAWL1(:,:,:)       = MAPL_UNDEF \n       If (State_Diag%Archive_RadAsymWL1       ) State_Diag%RadAsymWL1(:,:,:)      = MAPL_UNDEF \n       If (State_Diag%Archive_RadAODWL2        ) State_Diag%RadAODWL2(:,:,:)       = MAPL_UNDEF \n       If (State_Diag%Archive_RadSSAWL2        ) State_Diag%RadSSAWL2(:,:,:)       = MAPL_UNDEF \n       If (State_Diag%Archive_RadAsymWL2       ) State_Diag%RadAsymWL2(:,:,:)      = MAPL_UNDEF \n       If (State_Diag%Archive_RadAODWL3        ) State_Diag%RadAODWL3(:,:,:)       = MAPL_UNDEF \n       If (State_Diag%Archive_RadSSAWL3        ) State_Diag%RadSSAWL3(:,:,:)       = MAPL_UNDEF \n       If (State_Diag%Archive_RadAsymWL3       ) State_Diag%RadAsymWL3(:,:,:)      = MAPL_UNDEF \n    ENDIF\n#endif\n\n    if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Do diagnostics now'\n    CALL MAPL_TimerOn( STATE, 'GC_DIAGN' )\n\n    ! Set certain diagnostics dependent on state at end of step. This\n    ! includes species concentration and dry deposition flux.\n    ! For GEOS, this is now done in Chem_GridCompMod.F90. This makes sure\n    ! that the diagnostics include any post-run updates (e.g., if assimilation\n    ! increments are being applied (ckeller, 2/7/22).\n#if !defined( MODEL_GEOS )\n    CALL Set_Diagnostics_EndofTimestep( Input_Opt,  State_Chm, State_Diag, &\n                                        State_Grid, State_Met, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling Set_Diagnostics_EndofTimestep')\n#endif\n\n    ! Archive aerosol mass and PM2.5 diagnostics\n    IF ( State_Diag%Archive_AerMass ) THEN\n       CALL Set_AerMass_Diagnostic( Input_Opt,  State_Chm, State_Diag, &\n                                    State_Grid, State_Met, RC )\n       _ASSERT(RC==GC_SUCCESS, 'Error calling Set_AerMass_Diagnostic')\n    ENDIF\n\n#if defined( MODEL_GEOS )\n    ! Save specific humidity and dry air mass for total mixing ratio\n    ! adjustment in next timestep, if needed (ewl, 11/8/18)\n    State_Met%SPHU_PREV = State_Met%SPHU\n#endif\n\n#ifdef ADJOINT\n       if (Input_Opt%IS_FD_SPOT_THIS_PET .and. Input_opt%IFD > 0) THEN\n       DO N = 1, State_Chm%nSpecies\n          ThisSpc => State_Chm%SpcData(N)%Info\n          write(*,*) 'SpcAdj(', TRIM(thisSpc%Name), ') = ',  &\n               State_Chm%SpeciesAdj(Input_Opt%IFD,Input_Opt%JFD,Input_Opt%LFD,N)\n       ENDDO\n       ENDIF\n    !=======================================================================\n    ! If this is an adjoint run, we need to check for the final (first)\n    ! timestep and multiply the scaling factor adjoint by the initial concs\n    !=======================================================================\n    IF (Input_Opt%IS_ADJOINT .and. IsStarttime) THEN\n       if (Input_opt%amIRoot) WRITE(*,*) '   Adjoint multiplying SF_ADJ by ICS'\n       DO N = 1, State_Chm%nSpecies\n          ThisSpc => State_Chm%SpcData(N)%Info\n\n          ! Find the non-adjoint variable or this\n          TRACNAME = ThisSpc%Name\n\n          State_Chm%SpeciesAdj(:,:,:,N) = State_Chm%SpeciesAdj(:,:,:,N) * State_Chm%Species(N)%Conc(:,:,:) * &\n               ( AIRMW / State_Chm%SpcData(N)%Info%MW_g )\n\n          if (Input_Opt%IS_FD_SPOT_THIS_PET .and. Input_Opt%IFD > 0) THEN\n             write(*,*) 'After conversion ',  &\n                  State_Chm%SpeciesAdj(Input_Opt%IFD,Input_Opt%JFD,Input_Opt%LFD,N)\n          ENDIF\n       ENDDO\n\n       CALL Set_SpcAdj_Diagnostic( Input_Opt,  State_Chm, State_Diag,        &\n                                   State_Grid, State_Met, RC                )\n    ENDIF\n#endif\n\n    CALL MAPL_TimerOff( STATE, 'GC_DIAGN' )\n    if(Input_Opt%AmIRoot.and.NCALLS<10) write(*,*) ' --- Diagnostics done!'\n\n    !=======================================================================\n    ! Convert State_Chm%Species units back to original units\n    !=======================================================================\n    CALL Convert_Spc_Units(                                                  &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling CONVERT_SPC_UNITS')\n\n#ifndef MODEL_GEOS\n    ! Set diagnostics arrays in State_Diag that are in mol/mol\n    CALL Set_SpcConc_Diags_VVDry( Input_Opt,  State_Chm, State_Diag,         &\n         State_Grid, State_Met, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling Set_SpcConc_Diags_VVDry')\n#endif\n\n    !=======================================================================\n    ! Clean up\n    !=======================================================================\n\n    ! testing only\n    IF ( PHASE /= 1 .AND. NCALLS < 10 ) NCALLS = NCALLS + 1\n\n    ! First call is done\n    FIRST = .FALSE.\n\n    ! Return success\n    RC = GC_SUCCESS\n\n  END SUBROUTINE GCHP_Chunk_Run\n!EOC\n\n!BOP\n  SUBROUTINE GCHP_PRINT_MET(I, J, L,         &\n       Input_Opt, State_Grid, State_Met, LOC, RC )\n\n    !\n    ! !USES:\n    !\n    USE State_Met_Mod,        ONLY : MetState\n    USE Input_Opt_Mod,        ONLY : OptInput\n    USE State_Grid_Mod,       ONLY : GrdState\n\n    !\n    ! !INPUT PARAMETERS:\n    !\n    INTEGER,          INTENT(IN)    :: I         ! Grid cell lat index\n    INTEGER,          INTENT(IN)    :: J         ! Grid cell lon index\n    INTEGER,          INTENT(IN)    :: L         ! Grid cell lev index\n    CHARACTER(LEN=*), INTENT(IN)    :: LOC       ! Call location string\n    TYPE(OptInput),   INTENT(IN)    :: Input_Opt ! Input Options object\n    TYPE(GrdState),   INTENT(IN)    :: State_Grid! Grid State object\n    TYPE(MetState),   INTENT(IN)    :: State_Met ! Meteorology State object\n    !\n    ! !INPUT/OUTPUT PARAMETERS:\n    !\n\n    !\n    ! !OUTPUT PARAMETERS:\n    !\n    INTEGER,          INTENT(OUT)   :: RC        ! Success or failure?!\n    ! !REMARKS:\n    !\n    ! !REVISION HISTORY:\n    !EOP\n    !------------------------------------------------------------------------------\n    !BOC\n    !\n    ! !LOCAL VARIABLES:\n    !\n    CHARACTER(LEN=255) :: ErrorMsg, ThisLoc\n\n\n    !=========================================================================\n    ! GCHP_PRINT_MET begins here!\n    !=========================================================================\n\n    ErrorMsg  = ''\n    ThisLoc   = ' -> at GCHP_Print_Met (in module ' // &\n         'Interfaces/GCHP/gchp_chunk_mod.F)'\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Echo info\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) TRIM( LOC )\n       WRITE( 6, 113 ) State_Grid%YMid(I,J), State_Grid%XMid(I,J)\n    ENDIF\n100 FORMAT( /, '%%%%% GCHP_PRINT_MET at ', a )\n113 FORMAT( 'Lat: ', f5.1, '   Lon: ', f5.1 )\n\n    ! Write formatted output\n    IF ( Input_Opt%amIRoot ) THEN\n       ! 2-D Fields\n       WRITE( 6, 114 ) 'PBLH',     State_Met%PBLH(I,J),     I, J\n       WRITE( 6, 114 ) 'PSC2_WET', State_Met%PSC2_WET(I,J), I, J\n       WRITE( 6, 114 ) 'PSC2_DRY', State_Met%PSC2_DRY(I,J), I, J\n       WRITE( 6, 114 ) 'PS1_WET',  State_Met%PS1_WET(I,J), I, J\n       WRITE( 6, 114 ) 'PS1_DRY',  State_Met%PS1_DRY(I,J), I, J\n       WRITE( 6, 114 ) 'PS2_WET',  State_Met%PS2_WET(I,J), I, J\n       WRITE( 6, 114 ) 'PS2_DRY',  State_Met%PS2_DRY(I,J), I, J\n       WRITE( 6, 114 ) 'TS',       State_Met%TS(I,J),       I, J\n       WRITE( 6, 114 ) 'U10M',     State_Met%U10M(I,J),     I, J\n       ! 3-D Fields\n       WRITE( 6, 115 ) 'CLDF',     State_Met%CLDF(I,J,L),      I, J, L\n       WRITE( 6, 115 ) 'OMEGA',    State_Met%OMEGA(I,J,L),     I, J, L\n       WRITE( 6, 115 ) 'PEDGE',    State_Met%PEDGE(I,J,L),     I, J, L\n       WRITE( 6, 115 ) 'T',        State_Met%T(I,J,L),         I, J, L\n       WRITE( 6, 115 ) 'U',        State_Met%U(I,J,L),         I, J, L\n       WRITE( 6, 115 ) 'V',        State_Met%V(I,J,L),         I, J, L\n       WRITE( 6, 115 ) 'AD',       State_Met%AD(I,J,L),        I, J, L\n       WRITE( 6, 115 ) 'PREVSPHU', State_Met%SPHU_PREV(I,J,L), I, J, L\n       WRITE( 6, 115 ) 'SPHU',     State_Met%SPHU(I,J,L),      I, J, L\n       ! terminator\n       WRITE( 6, 120 )\n    ENDIF\n114 FORMAT( 'Grid cell  for ', a8, ' = ', es24.16, ', I,J  = ',2I4 )\n115 FORMAT( 'Grid cell  for ', a8, ' = ', es24.16, ', I,J,L= ',3I4 )\n120 FORMAT( / )\n\n\n  END SUBROUTINE GCHP_PRINT_MET\n!EOC\nEND MODULE GCHP_Chunk_Mod\n"
  },
  {
    "path": "Interfaces/GCHP/gchp_historyexports_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: gchp_historyexports_mod.F90\n!\n! !DESCRIPTION: Module GCHP\\_HistoryExports\\_Mod serves as the interface\n! between the HISTORY configuration file, the GEOS-Chem State registry,\n! and the ESMF Export State.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GCHP_HistoryExports_Mod\n!\n! !USES:\n!\n#include \"MAPL_Generic.h\"\n  USE DiagList_Mod\n  USE TaggedDiagList_Mod\n  USE ErrCode_Mod\n  USE Precision_Mod\n  USE MAPL_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: HistoryExports_SetServices\n  PUBLIC :: HistoryExports_SetDataPointers\n  PUBLIC :: CopyGCStates2Exports\n  PUBLIC :: Destroy_HistoryConfig\n!\n! !PRIVATE:\n!\n  PRIVATE :: Init_HistoryConfig\n  PRIVATE :: Init_HistoryExport\n  PRIVATE :: Init_HistoryExportsList\n  PRIVATE :: Append_HistoryExportsList\n  PRIVATE :: Check_HistoryExportsList\n  PRIVATE :: Print_HistoryExportsList\n!\n! !PUBLIC TYPES\n!\n  ! History Configuration Object\n  TYPE, PUBLIC :: HistoryConfigObj\n\n     CHARACTER(LEN=255)                   :: ROOT ! TODO: needed?\n     CHARACTER(LEN=255)                   :: ConfigFileName\n     LOGICAL                              :: ConfigFileRead\n     TYPE(HistoryExportsListObj), POINTER :: HistoryExportsList\n     TYPE(DgnList)                        :: DiagList\n     TYPE(TaggedDgnList)                  :: TaggedDiagList\n\n END TYPE HistoryConfigObj\n!\n! !PRIVATE TYPES\n!\n  ! History Exports Linked List\n  TYPE :: HistoryExportsListObj\n\n     TYPE(HistoryExportObj), POINTER :: head\n     INTEGER                         :: numExports\n\n  END TYPE HistoryExportsListObj\n\n  ! History Export Object\n  TYPE :: HistoryExportObj\n\n     CHARACTER(LEN=255)              :: name\n     CHARACTER(LEN=255)              :: metadataID\n     CHARACTER(LEN=255)              :: registryID\n     CHARACTER(LEN=255)              :: long_name\n     CHARACTER(LEN=255)              :: units\n     INTEGER                         :: vloc\n     INTEGER                         :: rank\n     INTEGER                         :: type\n     LOGICAL                         :: isMet\n     LOGICAL                         :: isChem\n     LOGICAL                         :: isDiag\n     TYPE(HistoryExportObj), POINTER :: next\n\n     ! Pointers to ESMF Export and GEOS-Chem State\n     ! TODO: for now, include all possible data types in the registry.\n     REAL,     POINTER :: ExportData2d(:,:)\n     REAL,     POINTER :: ExportData3d(:,:,:)\n     REAL(fp), POINTER :: GCStateData0d\n     REAL(fp), POINTER :: GCStateData1d(:)\n     REAL(fp), POINTER :: GCStateData2d(:,:)\n     REAL(fp), POINTER :: GCStateData3d(:,:,:)\n     REAL(f4), POINTER :: GCStateData0d_4\n     REAL(f4), POINTER :: GCStateData1d_4(:)\n     REAL(f4), POINTER :: GCStateData2d_4(:,:)\n     REAL(f4), POINTER :: GCStateData3d_4(:,:,:)\n     REAL(f8), POINTER :: GCStateData0d_8\n     REAL(f8), POINTER :: GCStateData1d_8(:)\n     REAL(f8), POINTER :: GCStateData2d_8(:,:)\n     REAL(f8), POINTER :: GCStateData3d_8(:,:,:)\n     INTEGER,  POINTER :: GCStateData0d_I\n     INTEGER,  POINTER :: GCStateData1d_I(:)\n     INTEGER,  POINTER :: GCStateData2d_I(:,:)\n     INTEGER,  POINTER :: GCStateData3d_I(:,:,:)\n\n  END TYPE HistoryExportObj\n!\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\nCONTAINS\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_HistoryConfig\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_HistoryConfig ( am_I_Root, HistoryConfig, configFile, RC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN) :: am_I_Root\n    CHARACTER(LEN=*),    INTENT(IN) :: configFile\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(HistoryConfigObj), POINTER :: HistoryConfig\n    INTEGER, INTENT(OUT)            :: RC\n!\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    __Iam__('Init_HistoryConfig (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n    ALLOCATE(HistoryConfig)\n    HistoryConfig%ROOT               =  ''\n    HistoryConfig%ConfigFileName     =  TRIM(configFile)\n    HistoryConfig%ConfigFileRead     =  .FALSE.\n\n    CALL Init_DiagList( am_I_Root, configFile, HistoryConfig%DiagList, RC )\n    IF ( RC == GC_FAILURE ) THEN\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n    ! Optional debugging\n    ! CALL Print_DiagList( am_I_Root, HistoryConfig%DiagList, RC )\n\n    CALL Init_TaggedDiagList( am_I_Root, HistoryConfig%DiagList,  &\n                              HistoryConfig%TaggedDiagList, RC   )\n    IF ( RC == GC_FAILURE ) THEN\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n    ! Optional debugging\n    !CALL Print_TaggedDiagList( am_I_Root, HistoryConfig%TaggedDiagList, RC )\n\n\n    CALL Init_HistoryExportsList( am_I_Root, HistoryConfig, RC )\n    IF ( RC == GC_FAILURE ) THEN\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n    ! Optional debugging\n    !CALL Print_HistoryExportsList( am_I_Root, HistoryConfig, RC )\n\n  END SUBROUTINE Init_HistoryConfig\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_HistoryExportsList\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_HistoryExportsList ( am_I_Root, HistoryConfig, RC )\n!\n! !USES:\n!\n    USE State_Chm_Mod,    ONLY: Get_Metadata_State_Chm\n    USE State_Diag_Mod,   ONLY: Get_Metadata_State_Diag\n    USE State_Met_Mod,    ONLY: Get_Metadata_State_Met\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)    :: am_I_Root\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistoryConfigObj), POINTER :: HistoryConfig\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER               :: N, rank, vloc, type\n    CHARACTER(LEN=255)    :: ErrMsg, desc, units, tag\n    LOGICAL               :: isMet, isChem, isDiag, found\n    TYPE(HistoryExportObj),  POINTER :: NewHistExp\n    TYPE(DgnItem),           POINTER :: current\n\n    ! ================================================================\n    ! Init_HistoryExportsList begins here\n    ! ================================================================\n    __Iam__('Init_HistoryExportsList (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n\n    ! Init\n    NewHistExp => NULL()\n\n    ! Create HistoryExportsList object\n    ALLOCATE(HistoryConfig%HistoryExportsList)\n    HistoryConfig%HistoryExportsList%numExports = 0\n    HistoryConfig%HistoryExportsList%head => NULL()\n\n    ! Loop over entries in DiagList\n    current => HistoryConfig%DiagList%head\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! Skip diagnostics handled by HEMCO, non-standard for GEOS,\n       ! or species in the GCHP/GEOS internal state.\n       ! See diaglist_mod.F90 for criteria for assigning diagnostic state.\n       IF ( INDEX( current%state,  'HEMCO'    ) == 1 .OR. &\n            INDEX( current%state,  'GEOS'     ) == 1 .OR. &\n            INDEX( current%state,  'INTERNAL' ) == 1 ) THEN\n          current => current%next\n          CYCLE\n       ENDIF\n\n       ! Check history exports list to see if already added (unless wildcard)\n       IF ( .NOT. current%isWildcard ) THEN\n          CALL Check_HistoryExportsList( am_I_Root, current%name,           &\n                                         HistoryConfig%HistoryExportsList,  &\n                                         found, RC                         )\n          IF ( found ) THEN\n             current => current%next\n             CYCLE\n          ENDIF\n       ENDIF\n\n       ! Get metadata using metadataID and state\n       ! If isTagged, then append to description\n       ! If isWildcard, shouldn't get here\n       ! The name of the export is simply name\n       Found = .TRUE.\n       isMet  = .FALSE.\n       isChem = .FALSE.\n       isDiag = .FALSE.\n       IF ( TRIM(current%state) == 'MET' ) THEN\n          isMet = .TRUE.\n          CALL Get_Metadata_State_Met( am_I_Root, current%metadataID,     &\n                                       Found, RC, desc=desc, units=units, &\n                                       rank=rank, type=type, vloc=vloc )\n          ! TODO: need to add found to outputs of get_metadata_state_met\n       ELSEIF ( TRIM(current%state) == 'CHEM' ) THEN\n          isCHEM = .TRUE.\n          CALL Get_Metadata_State_Chm( am_I_Root, current%metadataID,     &\n                                       Found, RC, desc=desc, units=units, &\n                                       rank=rank, type=type, vloc=vloc )\n       ELSEIF ( TRIM(current%state) == 'DIAG' ) THEN\n          isDIAG = .TRUE.\n          CALL Get_Metadata_State_Diag( am_I_Root, current%metadataID,     &\n                                        Found, RC, desc=desc, units=units, &\n                                        rank=rank, srcType=type, vloc=vloc )\n       ELSE\n          RC = GC_FAILURE\n          ErrMsg = \"Unknown state of item \" // TRIM(current%name) // &\n                   \" in DiagList: \" // TRIM(current%state)\n          EXIT\n       ENDIF\n\n       IF ( .NOT. Found ) THEN\n          RC = GC_FAILURE\n          ErrMsg = \"Metadata not found for \" // TRIM(current%name) // &\n                   \" in state \" // TRIM(current%state)\n          EXIT\n       ENDIF\n\n       ! If wildcard is present\n       IF ( current%isWildcard ) THEN\n          ! Do nothing. This should never happen at this point since\n          ! Init_DiagList will exit with an error if wildcard is\n          ! encountered in HISTORY.rc while compiling with ESMF_.\n\n          ! When it comes time to implement, create exports in a loop,\n          ! either for all species or for advected species only. Include\n          ! a check that the export was not already created. Loop over\n          ! AdvNames if wildcard is ADV. Loop over SpecNames for all other\n          ! cases, passing not found = OK so that not all are necessarily\n          ! output. Later on, after species database is initialized, exports\n          ! for only species in the specific wildcard will be associated\n          ! with data and thus included in the output file.\n\n          ! If the meantime, skip wildcards if it gets here.\n          current => current%next\n          CYCLE\n       ENDIF\n\n       ! If this item is for a specific tag, append description.\n       ! This will need revisiting since there may be tag-dependent\n       ! strings to append to long names\n       IF ( current%isTagged ) THEN\n          desc = TRIM(desc) // \" for \" // TRIM(current%tag)\n       ENDIF\n\n       ! Create a new HistoryExportObj object\n       CALL Init_HistoryExport( am_I_Root, NewHistExp,         &\n                                name=current%name,             &\n                                metadataID=current%metadataID, &\n                                registryID=current%registryID, &\n                                long_name=desc,                &\n                                units=units,                   &\n                                vloc=vloc,                     &\n                                rank=rank,                     &\n                                type=type,                     &\n                                isMet=isMet,                   &\n                                isChem=isChem,                 &\n                                isDiag=isDiag,                 &\n                                RC=RC )\n       IF ( RC == GC_FAILURE ) THEN\n          RC = GC_FAILURE\n          ErrMsg = \"History export init fail for \" // TRIM(current%name)\n          EXIT\n       ENDIF\n\n       ! Add new HistoryExportObj to linked list\n       CALL Append_HistoryExportsList( am_I_Root,     NewHistExp, &\n                                       HistoryConfig, RC       )\n       IF ( RC == GC_FAILURE ) THEN\n          RC = GC_FAILURE\n          ErrMsg = \"History export append fail for \" // TRIM(current%name)\n          EXIT\n       ENDIF\n\n       ! Set up for next item in DiagList\n       current => current%next\n\n    ENDDO\n    current => NULL()\n\n    IF ( RC == GC_SUCCESS ) THEN\n       HistoryConfig%ConfigFileRead = .TRUE.\n    ELSE\n       CALL GC_ERROR( ErrMsg, RC, Iam )\n       _ASSERT(.FALSE., 'Error in routine Init_HistoryExport!  This could indicate an error or typo in HISTORY.rc.')\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Init_HistoryExportsList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_HistoryExport\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_HistoryExport ( am_I_Root,  NewHistExp, name,         &\n                                  metadataID, registryID, long_name,    &\n                                  units,      vloc,       rank,         &\n                                  type,       isMet,      isChem,       &\n                                  isDiag,     RC  )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,                INTENT(IN) :: am_I_Root\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(HistoryExportObj), POINTER    :: NewHistExp\n    CHARACTER(LEN=*),       OPTIONAL   :: name\n    CHARACTER(LEN=*),       OPTIONAL   :: metadataID\n    CHARACTER(LEN=*),       OPTIONAL   :: registryID\n    CHARACTER(LEN=*),       OPTIONAL   :: long_name\n    CHARACTER(LEN=*),       OPTIONAL   :: units\n    INTEGER,                OPTIONAL   :: vloc\n    INTEGER,                OPTIONAL   :: rank\n    INTEGER,                OPTIONAL   :: type\n    LOGICAL,                OPTIONAL   :: isMet\n    LOGICAL,                OPTIONAL   :: isChem\n    LOGICAL,                OPTIONAL   :: isDiag\n    INTEGER,                OPTIONAL   :: RC\n!\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    __Iam__('Init_HistoryExport (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n    ALLOCATE(NewHistExp)\n\n    IF ( PRESENT( name ) ) THEN\n       NewHistExp%name = TRIM(name)\n    ELSE\n       NewHistExp%name = ''\n    ENDIF\n\n    IF ( PRESENT( metaDataId ) ) THEN\n       NewHistExp%metadataID  = TRIM(metadataID)\n    ELSE\n       NewHistExp%metadataID  = ''\n    ENDIF\n\n    IF ( PRESENT( registryId ) ) THEN\n       NewHistExp%registryID = TRIM(registryID)\n    ELSE\n       NewHistExp%registryId = ''\n    ENDIF\n\n    IF ( PRESENT( long_name ) ) THEN\n       NewHistExp%long_name = TRIM(long_name)\n    ELSE\n       NewHistExp%long_name = ''\n    ENDIF\n\n    IF ( PRESENT( units ) ) THEN\n       NewHistExp%units = TRIM(units)\n    ELSE\n       NewHistExp%units = ''\n    ENDIF\n\n    IF ( PRESENT( vloc ) ) THEN\n       NewHistExp%vloc = vloc\n    ELSE\n       NewHistExp%vloc = -1\n    ENDIF\n\n    IF ( PRESENT( rank ) ) THEN\n       NewHistExp%rank = rank\n    ELSE\n       NewHistExp%rank = -1\n    ENDIF\n\n    IF ( PRESENT( type ) ) THEN\n       NewHistExp%type = type\n    ELSE\n       NewHistExp%type = -1\n    ENDIF\n\n    IF ( PRESENT( isMet ) ) THEN\n       NewHistExp%isMet = isMet\n    ELSE\n       NewHistExp%isMet = .FALSE.\n    ENDIF\n\n    IF ( PRESENT( isChem ) ) THEN\n       NewHistExp%isChem = isChem\n    ELSE\n       NewHistExp%isChem = .FALSE.\n    ENDIF\n\n    IF ( PRESENT( isDiag ) ) THEN\n       NewHistExp%isDiag = isDiag\n    ELSE\n       NewHistExp%isDiag = .FALSE.\n    ENDIF\n\n    NewHistExp%next            => NULL()\n    NewHistExp%ExportData2d    => NULL()\n    NewHistExp%ExportData3d    => NULL()\n    NewHistExp%GCStateData0d   => NULL()\n    NewHistExp%GCStateData1d   => NULL()\n    NewHistExp%GCStateData2d   => NULL()\n    NewHistExp%GCStateData3d   => NULL()\n    NewHistExp%GCStateData0d_4 => NULL()\n    NewHistExp%GCStateData1d_4 => NULL()\n    NewHistExp%GCStateData2d_4 => NULL()\n    NewHistExp%GCStateData3d_4 => NULL()\n    NewHistExp%GCStateData0d_8 => NULL()\n    NewHistExp%GCStateData1d_8 => NULL()\n    NewHistExp%GCStateData2d_8 => NULL()\n    NewHistExp%GCStateData3d_8 => NULL()\n    NewHistExp%GCStateData0d_I => NULL()\n    NewHistExp%GCStateData1d_I => NULL()\n    NewHistExp%GCStateData2d_I => NULL()\n    NewHistExp%GCStateData3d_I => NULL()\n\n  END SUBROUTINE Init_HistoryExport\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Append_HistoryExportsList\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Append_HistoryExportsList ( am_I_Root,     HistoryExport, &\n                                         HistoryConfig, RC        )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)    :: am_I_Root\n    TYPE(HistoryExportObj), POINTER :: HistoryExport\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HistoryConfigObj), POINTER :: HistoryConfig\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)   :: RC\n!\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(HistoryExportObj),  POINTER :: NewHistExp\n\n    ! ================================================================\n    ! Append_HistoryExportsList begins here\n    ! ================================================================\n    __Iam__('Append_HistoryExportsList (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n\n    ! Add new object to the beginning of the linked list\n    HistoryExport%next => HistoryConfig%HistoryExportsList%head\n    HistoryConfig%HistoryExportsList%head => HistoryExport\n\n    ! Update # of list items\n    HistoryConfig%HistoryExportsList%numExports = &\n         HistoryConfig%HistoryExportsList%numExports + 1\n\n  END SUBROUTINE Append_HistoryExportsList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check_HistoryExportsList\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Check_HistoryExportsList ( am_I_Root, name,  &\n                                        ExportsList, found, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,           INTENT(IN)        :: am_I_Root\n    CHARACTER(LEN=*),  INTENT(IN)        :: name\n    TYPE(HistoryExportsListObj), POINTER :: ExportsList\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL, INTENT(OUT)               :: found\n    INTEGER, INTENT(OUT)               :: RC\n!\n! !REVISION HISTORY:\n!  12 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(HistoryExportObj), POINTER :: current\n\n    __Iam__('Check_HistoryExportsList (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n\n    ! Assume not found\n    found = .False.\n\n    current => ExportsList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       IF ( current%name == name ) THEN\n          found = .TRUE.\n          RETURN\n       ENDIF\n       current => current%next\n    ENDDO\n    current => NULL()\n\n  END SUBROUTINE Check_HistoryExportsList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !!\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistoryExports_SetServices\n!\n  ! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistoryExports_SetServices( am_I_Root, config_file, GC,  &\n                                         HistoryConfig,  RC )\n!\n! !USES:\n!\n    USE ESMF, ONLY : ESMF_GridComp\n    USE Registry_Params_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)    :: am_I_Root\n    CHARACTER(LEN=*),    INTENT(IN)    :: config_file\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT) :: GC             ! Gridded Component\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(HistoryConfigObj), POINTER    :: HistoryConfig  ! History config object\n    INTEGER,             INTENT(OUT)   :: RC\n!\n! !REMARKS:\n!  !\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)                   :: ErrMsg\n    TYPE(HistoryExportObj),      POINTER :: current\n\n    ! ================================================================\n    ! HistoryExports_SetServices begins here\n    ! ================================================================\n\n    ! For MAPL/ESMF error handling (defines Iam and STATUS)\n    __Iam__('HistoryExports_SetServices (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n\n    ! Create a config object if it does not already exist\n    IF ( .NOT. ASSOCIATED(HistoryConfig) ) THEN\n       CALL Init_HistoryConfig( am_I_Root, HistoryConfig, config_file, RC )\n       IF ( RC == GC_FAILURE ) THEN\n          _ASSERT(.FALSE., 'informative message here')\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Loop over the History Exports list to add one export per item\n    IF ( am_I_Root ) THEN\n       WRITE(6,*) \" \"\n       WRITE(6,*) \"Adding history variables to GCHP Export State:\"\n    ENDIF\n    current => HistoryConfig%HistoryExportsList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       IF ( am_I_Root ) PRINT *, \"adding export: \", TRIM(current%name)\n       ! Create an export for this item\n       IF ( current%rank == 3 ) THEN\n          IF ( current%vloc == VLocationCenter ) THEN\n             CALL MAPL_AddExportSpec(GC,                                     &\n                                     SHORT_NAME = TRIM(current%name),        &\n                                     LONG_NAME  = TRIM(current%long_name),   &\n                                     UNITS      = TRIM(current%units),       &\n                                     DIMS       = MAPL_DimsHorzVert,         &\n                                     VLOCATION  = MAPL_VLocationCenter,      &\n                                     RC         = RC                         )\n          IF ( RC == GC_FAILURE ) THEN\n             ErrMsg =  \"Problem adding 3D export for \" // TRIM(current%name)\n             EXIT\n          ENDIF\n         ELSEIF ( current%vloc == VLocationEdge ) THEN\n            CALL MAPL_AddExportSpec(GC,                                     &\n                                    SHORT_NAME = TRIM(current%name), &\n                                    LONG_NAME  = TRIM(current%long_name),   &\n                                    UNITS      = TRIM(current%units),       &\n                                    DIMS       = MAPL_DimsHorzVert,         &\n                                    VLOCATION  = MAPL_VLocationEdge,        &\n                                    RC         = STATUS                    )\n         ELSE\n            IF ( am_I_Root ) THEN\n               PRINT *, \"Unknown vertical location for \", &\n                        TRIM(current%name)\n            ENDIF\n         ENDIF\n       ELSEIF ( current%rank == 2 ) THEN\n          CALL MAPL_AddExportSpec(GC,                                     &\n                                  SHORT_NAME = TRIM(current%name), &\n                                  LONG_NAME  = TRIM(current%long_name),   &\n                                  UNITS      = TRIM(current%units),       &\n                                  DIMS       = MAPL_DimsHorzOnly,         &\n                                  RC         = RC                        )\n          IF ( RC == GC_FAILURE ) THEN\n             ErrMsg =  \"Problem adding 2D export for \" // TRIM(current%name)\n             EXIT\n          ENDIF\n       ELSE\n          RC = GC_FAILURE\n          ErrMsg = \"Problem adding export for \" // TRIM(current%name) // &\n                   \". Rank is only implemented for 2 or 3!\"\n          EXIT\n       ENDIF\n\n       current => current%next\n    ENDDO\n    current => NULL()\n\n    IF ( RC == GC_FAILURE ) THEN\n       CALL GC_ERROR( ErrMsg, RC, Iam )\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n\n  END SUBROUTINE HistoryExports_SetServices\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CopyGCStates2Exports\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CopyGCStates2Exports( am_I_Root, Input_Opt, HistoryConfig, RC )\n!\n! !USES:\n!\n  USE HCO_Interface_GC_Mod, ONLY : HCOI_GC_WriteDiagn\n  USE Input_Opt_Mod,    ONLY : OptInput\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(IN)    :: am_I_Root\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(HistoryConfigObj), POINTER :: HistoryConfig  ! History config object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC\n!\n! !REMARKS:\n!  !\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                         :: LMAX\n    CHARACTER(LEN=255)              :: ErrMsg\n    TYPE(HistoryExportObj), POINTER :: current\n\n    ! ================================================================\n    ! CopyGCStates2Exports begins here\n    ! ================================================================\n    __Iam__('CopyGCStates2Exports (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n\n    ! Loop over the History Exports list\n    current => HistoryConfig%HistoryExportsList%head\n    DO WHILE ( ASSOCIATED( current ) )\n       \n       ! if (MAPL_Am_I_Root()) THEN\n       !    print *, '  Copying ' // TRIM(current%name)\n       ! endif\n       IF ( current%rank == 2 ) THEN\n          IF ( ASSOCIATED( current%GCStateData2d ) ) THEN\n             current%ExportData2d = current%GCStateData2d\n          ELSE IF ( ASSOCIATED( current%GCStateData2d_4 ) ) THEN\n             current%ExportData2d = current%GCStateData2d_4\n          ELSE IF ( ASSOCIATED( current%GCStateData2d_8 ) ) THEN\n             current%ExportData2d = current%GCStateData2d_8\n          ELSE IF ( ASSOCIATED( current%GCStateData2d_I ) ) THEN\n             ! Convert integer to float (integers not allowed in MAPL exports)\n             current%ExportData2d = FLOAT(current%GCStateData2d_I)\n          ELSE\n             RC = GC_FAILURE\n             ErrMsg = \"No GC 2D pointer found for \" // TRIM(current%name)\n             EXIT\n          ENDIF\n       ELSEIF ( current%rank == 3 ) THEN\n          IF ( ASSOCIATED( current%GCStateData3d ) ) THEN\n             current%ExportData3d = current%GCStateData3d\n          ELSE IF ( ASSOCIATED( current%GCStateData3d_4 ) ) THEN\n             current%ExportData3d = current%GCStateData3d_4\n          ELSE IF ( ASSOCIATED( current%GCStateData3d_8 ) ) THEN\n             current%ExportData3d = current%GCStateData3d_8\n          ELSE IF ( ASSOCIATED( current%GCStateData3d_I ) ) THEN\n             current%ExportData3d = FLOAT(current%GCStateData3d_I)\n          ELSE\n             RC = GC_FAILURE\n             ErrMsg = \"No GC 3D pointer found for \" // TRIM(current%name)\n             EXIT\n          ENDIF\n#if defined( MODEL_GEOS )\n          ! Flip the data vertically to match model convention\n          LMAX = SIZE(current%ExportData3d, 3)\n          current%ExportData3d(:,:,1:LMAX) =  &\n                                 current%ExportData3d(:,:,LMAX:1:-1)\n#endif\n       ENDIF\n\n       current => current%next\n    ENDDO\n    current => NULL()\n\n    ! Error handling\n    IF ( RC == GC_FAILURE ) THEN\n       CALL GC_ERROR( ErrMsg, RC, Iam )\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n\n    ! Copy emissions data to MAPL exports via HEMCO\n    CALL HCOI_GC_WriteDiagn( Input_Opt, .FALSE., RC )\n    ! IF ( MAPL_Am_I_Root() ) WRITE(*,*) \"Back from HCOI_GC_WriteDiagn, RC = \", RC\n    IF ( RC == GC_FAILURE ) THEN\n       ErrMsg = \"Error copying emissions data to MAPL via HEMCO\"\n       CALL GC_ERROR( ErrMsg, RC, Iam )\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n\n  END SUBROUTINE CopyGCStates2Exports\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Print_HistoryExportsList\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Print_HistoryExportsList( am_I_Root, HistoryConfig, RC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN) :: am_I_Root\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(HistoryConfigObj), POINTER :: HistoryConfig  ! History config object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(OUT) :: RC\n!\n! !REMARKS:\n!  !\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(HistoryExportObj), POINTER :: current\n\n    ! ================================================================\n    ! Print_HistoryExportsList begins here\n    ! ================================================================\n    __Iam__('Print_HistoryExportsList (gchp_historyexports_mod.F90)')\n    RC = GC_SUCCESS\n\n    ! Loop over the History Exports list\n    current => HistoryConfig%HistoryExportsList%head\n    IF ( am_I_Root ) PRINT *, '==========================='\n    IF ( am_I_Root ) PRINT *, 'History Exports List:'\n    IF ( am_I_Root ) PRINT *, ' '\n    DO WHILE ( ASSOCIATED( current ) )\n       IF ( am_I_Root ) THEN\n          PRINT *, \"Name:        \",   TRIM(current%name)\n          PRINT *, \" MetadataID: \",   TRIM(current%metadataID)\n          PRINT *, \" RegistryID: \",   TRIM(current%registryID)\n          PRINT *, \" Long name:  \",   TRIM(current%long_name)\n          PRINT *, \" Units:      \",   TRIM(current%units)\n          PRINT *, \" Vert loc:   \",   current%vloc\n          PRINT *, \" Rank:       \",   current%rank\n          PRINT *, \" Type:       \",   current%type\n          PRINT *, \" isMet:      \",   current%isMet\n          PRINT *, \" isChem:     \",   current%isChem\n          PRINT *, \" isDiag:     \",   current%isDiag\n          PRINT *, \" \"\n       ENDIF\n       current => current%next\n    ENDDO\n    IF ( am_I_Root ) PRINT *, '==========================='\n    current => NULL()\n\n  END SUBROUTINE Print_HistoryExportsList\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: HistoryExports_SetDataPointers\n!\n! !DESCRIPTION:\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE HistoryExports_SetDataPointers( am_I_Root,     EXPORT,    &\n                                             HistoryConfig, State_Chm, &\n                                             State_Diag,    State_Met, &\n                                             RC                       )\n!\n! !USES:\n!\n    USE ESMF,           ONLY : ESMF_State\n    USE Registry_Mod,   ONLY : Registry_Lookup\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,         INTENT(IN)     :: am_I_Root\n!\n! !INPUT AND OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_State), INTENT(INOUT), TARGET :: EXPORT ! Export state obj\n    TYPE(HistoryConfigObj), POINTER :: HistoryConfig  ! History config obj\n    TYPE(ChmState),   INTENT(INOUT) :: State_Chm      ! Chemistry State obj\n    TYPE(MetState),   INTENT(INOUT) :: State_Met      ! Meteorology State obj\n    TYPE(DgnState),   INTENT(INOUT) :: State_Diag     ! Diagnostics State obj\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)   :: RC\n!\n! !REMARKS:\n!  !\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)              :: ErrMsg\n    TYPE(HistoryExportObj), POINTER :: current\n\n    ! ================================================================\n    ! HistoryExports_SetDataPointers begins here\n    ! ================================================================\n    __Iam__('HistoryExports_SetDataPointers')\n    RC = GC_SUCCESS\n\n    IF ( am_I_Root ) THEN\n       WRITE(6,*) \" \"\n       WRITE(6,*) \"Setting history variable pointers to GC and Export States\"\n    ENDIF\n\n    ! Loop over the History Exports list\n    current => HistoryConfig%HistoryExportsList%head\n    DO WHILE ( ASSOCIATED( current ) )\n\n       ! Get pointer to GC state data\n       !IF ( am_I_Root ) WRITE(6,*) current%name\n       IF ( current%isMET ) THEN\n          CALL Registry_Lookup( am_I_Root = am_I_Root,               &\n                                Registry  = State_Met%Registry,      &\n                                RegDict   = State_Met%RegDict,       &\n                                State     = State_Met%State,         &\n                                Variable  = current%registryID,      &\n                                Ptr2d_4   = current%GCStateData2d_4, &\n                                Ptr2d_8   = current%GCStateData2d_8, &\n                                Ptr2d_I   = current%GCStateData2d_I, &\n                                Ptr3d_4   = current%GCStateData3d_4, &\n                                Ptr3d_8   = current%GCStateData3d_8, &\n                                Ptr3d_I   = current%GCStateData3d_I, &\n                                RC        = RC                      )\n       ELSEIF ( current%isChem ) THEN\n          CALL Registry_Lookup( am_I_Root = am_I_Root,               &\n                                Registry  = State_Chm%Registry,      &\n                                RegDict   = State_Chm%RegDict,       &\n                                State     = State_Chm%State,         &\n                                Variable  = current%registryID,      &\n                                Ptr2d_4   = current%GCStateData2d_4, &\n                                Ptr2d_8   = current%GCStateData2d_8, &\n                                Ptr2d_I   = current%GCStateData2d_I, &\n                                Ptr3d_4   = current%GCStateData3d_4, &\n                                Ptr3d_8   = current%GCStateData3d_8, &\n                                Ptr3d_I   = current%GCStateData3d_I, &\n                                RC        = RC                      )\n       ELSEIF ( current%isDiag ) THEN\n          CALL Registry_Lookup( am_I_Root = am_I_Root,               &\n                                Registry  = State_Diag%Registry,     &\n                                RegDict   = State_Diag%RegDict,      &\n                                State     = State_Diag%State,        &\n                                Variable  = current%registryID,      &\n                                Ptr2d_4   = current%GCStateData2d_4, &\n                                Ptr2d_8   = current%GCStateData2d_8, &\n                                Ptr2d_I   = current%GCStateData2d_I, &\n                                Ptr3d_4   = current%GCStateData3d_4, &\n                                Ptr3d_8   = current%GCStateData3d_8, &\n                                Ptr3d_I   = current%GCStateData3d_I, &\n                                RC        = RC                      )\n       ENDIF\n       IF ( RC == GC_FAILURE ) THEN\n          ErrMsg = \"Registry pointer not found for \" // TRIM(current%name) // &\n                   \". Check that the tag (e.g. species) is valid \"         // &\n                   \"for this diagnostic.\"\n          EXIT\n       ENDIF\n\n       ! For MAPL export, need to pass a pointer of the right dimension\n       IF ( current%rank == 2 ) THEN\n          CALL MAPL_GetPointer ( EXPORT, current%ExportData2d, &\n                                 current%name, __RC__ )\n       ELSEIF ( current%rank == 3 ) THEN\n          CALL MAPL_GetPointer ( EXPORT, current%ExportData3d, &\n                                 current%name, __RC__ )\n       ENDIF\n\n       !! debugging\n       !IF ( Am_I_Root) THEN\n       !   WRITE(6,*) TRIM(current%name)\n       !ENDIF\n\n       current => current%next\n    ENDDO\n    current => NULL()\n\n    IF ( RC == GC_FAILURE ) THEN\n       CALL GC_ERROR( ErrMsg, RC, Iam )\n       _ASSERT(.FALSE., 'informative message here')\n       RETURN\n    ENDIF\n\n  END SUBROUTINE HistoryExports_SetDataPointers\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Destroy_HistoryConfig\n!\n! !DESCRIPTION: Subroutine Destroy_HistoryConfig deallocates a HistoryConfig\n!  object and all of its member objects including the linked list of\n!  HistoryExport objects.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Destroy_HistoryConfig ( am_I_Root, HistoryConfig, RC )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,            INTENT(IN)    :: am_I_Root     ! root CPU?\n    TYPE(HistoryConfigObj), POINTER   :: HistoryConfig\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(INOUT) :: RC            ! Success?\n!\n! !REVISION HISTORY:\n!  01 Sep 2017 - E. Lundgren - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    TYPE(HistoryExportObj), POINTER :: current\n    TYPE(HistoryExportObj), POINTER :: next\n\n    ! ================================================================\n    ! Destroy_HistoryConfig begins here\n    ! ================================================================\n    __Iam__('Destroy_HistoryConfig (gchp_historyexports_mod.F90)')\n\n    current => NULL()\n    next => NULL()\n\n    ! Destroy each item in the linked list of HistoryExport objects\n    current => HistoryConfig%HistoryExportsList%head\n    IF ( ASSOCIATED( current ) ) next => current%next\n    DO WHILE ( ASSOCIATED( current ) )\n       DEALLOCATE( current, STAT=RC )\n       _ASSERT( RC == GC_SUCCESS, 'informative message here' )\n       IF ( .NOT. ASSOCIATED ( next ) ) EXIT\n       current => next\n       next => current%next\n    ENDDO\n\n    ! Deallocate the HistoryExportsList object\n    DEALLOCATE( HistoryConfig%HistoryExportsList, STAT=RC )\n    _ASSERT( RC == GC_SUCCESS, 'informative message here' )\n\n    ! Deallocate the HistoryConfig object\n    DEALLOCATE( HistoryConfig, STAT=RC )\n    _ASSERT( RC == GC_SUCCESS, 'informative message here' )\n\n    ! Final cleanup\n    current => NULL()\n    next    => NULL()\n\n  END SUBROUTINE Destroy_HistoryConfig\n!EOC\nEND MODULE GCHP_HistoryExports_Mod\n"
  },
  {
    "path": "Interfaces/GEOS/GEOSCHEMchem_Registry.rc",
    "content": "#\n# This the GEOS-CHEM Grid Component Registry. It defines Import,\n# Internal and Export states for this component as well as\n# any\n#\n# !REVISION HISTORY:\n#  16Aug2006  da Silva   First Version\n#  30Jun2012  Nielsen    For Ganymed\n#  10Oct2012  Yantosca   Updated for GEOS-Chem v9-01-03, which has new\n#                        Bromine compounds as advected tracers & species\n#  25Sep2013  Keller     Updated for GEOS-Chem v9-02l (NOx and Ox not lumped anymore, Isoprene                         update) \n# See git history for rest of revision history\n#\n# -----------------------------------------------------------------\n\n# GCHP only:\n#  COMP_NAME: GCHPchem\n# GEOS-5 has different grid comp name:\n  COMP_NAME: GEOSCHEMCHEM\n#---\n\n# Only change the Registry version when major structural changes\n# occurs, not changes in content\n# --------------------------------------------------------------\n  MAPL_REGISTRY_VERSION: 1.00\n\n#\t\t\t\t------------\n#\t\t\t\tImport State\n#\t\t\t\t------------\n\n<ImportSpec name=\"GEOSCHEMCHEM\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,default,long_name\">\n# -------------------|-------------|-----|---|----|---|---|-----|------|----| --------------------------\n#  Short\t     |  \t   |\t | V |Item|Intervl| Sub | Def  | No | \tLong\n#  Name \t     |   Units     | Dim |Loc|Type| R | A |Tiles| ault | Rst| \tName\n# -------------------|-------------|-----|---|----|---|---|-----|------|----| --------------------------\n# NOTE: GCHP does not have column No Rst\n#======================\n# Both GCHP and GEOS-5 (but needed to add No Rst column to GCHP entries)\n#======================\n  AIRDENS            |   kg/m3     | xyz | C |    |   |   |\t|      |    | air_density\n  AREA               |     m2\t   | xy  |   |    |   |   |\t|      |    | agrid_cell_area\n  FRLAKE             |     1\t   | xy  |   |    |   |   |\t|      |    | fraction_of_lake\n  FRLAND             |     1\t   | xy  |   |    |   |   |\t|      |    | fraction_of_land\n  FRLANDICE          |     1\t   | xy  |   |    |   |   |\t|      |    | fraction_of_land_ice\n  FROCEAN            |     1\t   | xy  |   |    |   |   |\t|      |    | fraction_of_ocean\n  LAI                |     1\t   | xy  |   |    |   |   |\t|      |    | leaf area index\n  SNOMAS             |   kg/m2     | xy  |   |    |   |   |\t|      |    | snow_mass\n  TAUCLI             |     1\t   | xyz | C |    |   |   |\t|      |    | optical_thickness_for_ice_clouds\n  TAUCLW             |     1\t   | xyz | C |    |   |   |\t|      |    | optical_thickness_for_liquid_clouds \n  TROPP              |    hPa\t   | xy  |   |    |   |   |\t|      |    | tropopause_pressure_based_on_blended_estimate\n  TS                 |     K\t   | xy  |   |    |   |   |\t|      |    | surface_skin_temperature\n  U10M               |    m/s\t   | xy  |   |    |   |   |\t|      |    | 10-meter_eastward_wind\n  USTAR              |    m/s\t   | xy  |   |    |   |   |\t|      |    | surface_velocity_scale\n  V10M               |    m/s\t   | xy  |   |    |   |   |\t|      |    | 10-meter_northward_wind\n  OMEGA              |  Pas-1      | xyz | C |    |   |   |     |      |    | vertical_pressure_velocity\n#==============\n# GEOS-5 only:\n#==============\n  ALBVF              |     1\t   | xy  |   |    |   |   |\t|      |    | surface_albedo_for_visible_diffuse\n  CLDTT              |     1\t   | xy  |   |    |   |   |\t|      |    | total_cloud_area_fraction\n  ASNOW              |     1\t   | xy  |   |    |   |   |\t|      |    | fractional_area_of_land_snowcover\n  WET1               |     1\t   | xy  |   |    |   |   |\t|      |    | surface_soil_wetness\n  WET2               |     1\t   | xy  |   |    |   |   |\t|      |    | root_soil_wetness\n  SH                 |    W/m2     | xy  |   |    |   |   |\t|      |    | sensible_heat_flux_from_turbulence\n  LHFX               |    W/m2     | xy  |   |    |   |   |\t|      |    | latent_heat_flux_from_turbulence \n  ITY                |     1\t   | xy  |   |    |   |   |\t|      |    | land type index\n  DRPAR              |    W/m2     | xy  |   |    |   |   |\t|      |    | surface_downwelling_par_beam_flux\n  DFPAR              |    W/m2     | xy  |   |    |   |   |\t|      |    | surface_downwelling_par_diffuse_flux\n  ZPBL               |     m\t   | xy  |   |    |   |   |\t|      |    | planetary_boundary_layer_height\n  PPBL               |     Pa      | xy  |   |    |   |   |\t|      |    | pbltop_pressure\n  PS                 |     Pa\t   | xy  |   |    |   |   |\t|      |    | surface_ressure\n  SWNDSRF            |    W/m2     | xy  |   |    |   |   |\t|      |    | surface_net_downward_shortwave_flux\n  SNOWDP             |    m        | xy  |   |    |   |   |\t|      |    | snow_depth\n  T2M                |     K\t   | xy  |   |    |   |   |\t|      |    | 2-meter-air_temperature\n  T10M               |     K\t   | xy  |   |    |   |   |\t|      |    | 10-meter-air_temperature\n  Z0H                |     m\t   | xy  |   |    |   |   |\t|      |    | surface_roughness_for_heat\n  ZLE                |     m\t   | xyz | E |    |   |   |\t|      |    | geopotential_height\n  FCLD               |     1\t   | xyz | C |    |   |   |\t|      |    | cloud_fraction_for_radiation\n  CNV_MFC            |  kg/m2/s    | xyz | E |    |   |   |\t|      |    | cumulative_mass_flux\n  CNV_CVW            |   hPa/s     | xyz | C |    |   |   |\t|      |    | updraft_vertical_velocity\n  DQIDT              |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | total_ice_water_tendency_due_to_moist\n  DQLDT              |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | total_liq_water_tendency_due_to_moist\n  DQDT               |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | specific_humidity_tendency_due_to_moist\n  DQRL               |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | large_scale_rainwater_source \n  PFL_LSAN           |  kg/m2/s    | xyz | E |    |   |   |\t|      |    | 3D_flux_of_liquid_nonconvective_precipitation \n  PFI_LSAN           |  kg/m2/s    | xyz | E |    |   |   |\t|      |    | 3D_flux_of_ice_nonconvective_precipitation \n  CNV_MFD            |  kg/m2/s    | xyz | C |    |   |   |\t|      |    | detraining_mass_flux\n  PLE                |     Pa\t   | xyz | E |    |   |   |\t|      |    | air_pressure_layer_interfaces\n  DELP               |     Pa\t   | xyz | C |    |   |   |\t|      |    | pressure_thickness \n  RH2                |     1\t   | xyz | C |    |   |   |\t|      |    | Rel_Hum_after_moist\n  Q                  |   kg/kg     | xyz | C |    |   |   |\t|      |    | specific_humidity\n  QITOT              |   kg/kg     | xyz | C |    |   |   |\t|      |    | ice mixing ratio\n  QLTOT              |   kg/kg     | xyz | C |    |   |   |\t|      |    | water mixing ratio\n  T                  |     K\t   | xyz | C |    |   |   |\t|      |    | air_temperature\n  REV_CN             |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | evaporation_of_convective_precipitation\n  REV_LS             |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | evaporation_of_nonanvil_large_scale_precipitation\n  REV_AN             |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | evaporation_of_anvil_precipitation\n  DQRC               |  kg/kg/s    | xyz | C |    |   |   |\t|      |    | convective_rainwater_source \n  PFI_CN             |  kg/m2/s    | xyz | E |    |   |   |\t|      |    | 3D_flux_of_ice_convective_precipitation\n  PFL_CN             |  kg/m2/s    | xyz | E |    |   |   |\t|      |    | 3D_flux_of_liquid_convective_precipitation\n  U                  |  ms-1       | xyz | C |    |   |   |     |      |    | eastward_wind \n  V                  |  ms-1       | xyz | C |    |   |   |     |      |    | northward_wind\n  CNV_FRC            |      1      | xy  |   |    |   |   |     |      | x  | convective_fraction \n  Q10M               |   kg/kg     | xy  |   |    |   |   |\t|      |    | 10m_specific_humidity\n  Q2M                |   kg/kg     | xy  |   |    |   |   |\t|      |    | 2m_specific_humidity\n  XLAIMULTI          | cm2_cm-2    | xyz | E |    |   |   |\t|      | x  ! LAI_by_\n#===========\n# GCHP only:\n#===========\n#  ALBD               |     1\t   | xy  |   |    |   |   |\t|      | surface_albedo_for_visible_diffuse\n#  CLDF               |     1\t   | xyz | C |    |   |   |\t|      | \n#  CLDFRC             |     1\t   | xy  |   |    |   |   |\t|      | \n#  CMFMC              |     1\t   | xyz | E |    |   |   |\t|      | \n#  DQRCU              |     1\t   | xyz | C |    |   |   |\t|      | \n#  DQRLSAN            |     1\t   | xyz | C |    |   |   |\t|      | \n## DryPLE             |     1      | xyz | E |    |   |   |     |      |\n#  DTRAIN             |     1\t   | xyz | C |    |   |   |\t|      | \n#  EFLUX              |     1\t   | xy  |   |    |   |   |\t|      | \n#  EVAP               |     1\t   | xy  |   |    |   |   |\t|      | \n#  FRSEAICE           |     1\t   | xy  |   |    |   |   |\t|      | \n#  FRSNO              |     1\t   | xy  |   |    |   |   |\t|      | \n#  GRN                |     1\t   | xy  |   |    |   |   |\t|      | \n#  GWETROOT           |     1\t   | xy  |   |    |   |   |\t|      | \n#  GWETTOP            |     1\t   | xy  |   |    |   |   |\t|      | \n#  HFLUX              |     1\t   | xy  |   |    |   |   |\t|      | \n#  OPTDEP             |     1\t   | xyz | C |    |   |   |\t|      | \n#  PARDF              |     1\t   | xy  |   |    |   |   |\t|      | \n#  PARDR              |     1\t   | xy  |   |    |   |   |\t|      | \n#  PBLH               |     1\t   | xy  |   |    |   |   |\t|      | \n#  PFICU              |     1\t   | xyz | E |    |   |   |\t|      | \n#  PFILSAN            |     1\t   | xyz | E |    |   |   |\t|      | \n#  PFLCU              |     1\t   | xyz | E |    |   |   |\t|      | \n#  PFLLSAN            |     1\t   | xyz | E |    |   |   |\t|      | \n#  PHIS               |     1\t   | xy  |   |    |   |   |\t|      | \n## PLE                |     1      | xyz | E |    |   |   |     |      |\n#  PS1                |     1\t   | xy  | E |    |   |   |\t|      | \n#  PS2                |     1\t   | xy  | E |    |   |   |\t|      | \n#  QI                 |     1\t   | xyz | C |    |   |   |\t|      | \n#  QL                 |     1\t   | xyz | C |    |   |   |\t|      | \n#  RADSWG             |     1\t   | xy  |   |    |   |   |\t|      | \n#  REEVAPCN           |     1\t   | xyz | C |    |   |   |\t|      | \n#  REEVAPLS           |     1\t   | xyz | C |    |   |   |\t|      | \n#  RH                 |     1\t   | xyz | C |    |   |   |\t|      | \n#  SEAICE00           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE10           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE20           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE30           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE40           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE50           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE60           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE70           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE80           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SEAICE90           |     1\t   | xy  |   |    |   |   |\t|      | \n#  SLP                |     1\t   | xy  |   |    |   |   |\t|      | \n#  SNODP              |     1\t   | xy  |   |    |   |   |\t|      | \n#  SPHU1              |     1\t   | xyz | C |    |   |   |\t|      | \n#  SPHU2              |     1\t   | xyz | C |    |   |   |\t|      | \n#  TMPU1              |     1\t   | xyz | C |    |   |   |\t|      | \n#  TMPU2              |     1\t   | xyz | C |    |   |   |\t|      | \n#  TO3                |     1\t   | xy  |   |    |   |   |\t|      | \n#  TSKIN              |     1\t   | xy  |   |    |   |   |\t|      | \n#  ULL                |     1\t   | xyz | C |    |   |   |\t|      | \n#  VLL                |     1\t   | xyz | C |    |   |   |\t|      | \n#  Z0                 |     1\t   | xy  |   |    |   |   |\t|      | \n# -------------------|-------------|-----|---|----|---|---|-----|------|--------------------------\n</ImportSpec>\n\n#\t\t\t\t------------\n#\t\t\t\tExport State\n#\t\t\t\t------------\n\n<ExportSpec name=\"GEOSCHEMCHEM\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,long_name\">\n# --------------------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n#  Short\t                  |\t\t   |     | V |Item|Intervl| Sub |\t     Long\n#  Name \t                  |   Units\t   | Dim |Loc|Type| R | A |Tiles|\t     Name\n# --------------------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n#======================\n# Both GCHP and GEOS-5:\n#======================\n#  O3PPMV\t                  | ppmv\t   | xyz | C |    |   |   |\t| ozone_volume_mixing_ratio_in_ppm\n#  OX_TEND\t                  | kg kg-1 s-1    | xyz | C |    |   |   |\t| tendency_of_odd_oxygen_mixing_ratio_due_to_chemistry\n#  H2O_TEND                       | kg kg-1 s-1    | xyz | C |    |   |   |     | Tendency_of_water_vapor_mixing_ratio_due_to_chemistry\n#===========\t                  \n# GCHP only:\t                  \n#===========\t                  \n## OX                             | mol mol-1      | xyz | C |    |   |   |     | ozone_volume_mixing_ratio\n#  O3_EXP                         | kg kg-1        | xyz | C |    |   |   |     | ozone_mass_mixing_ratio\n#  DEPVEL_O3                      |                | xy  |   |    |   |   |     |\n#  DEPFLUX_O3                     |                | xy  |   |    |   |   |     |\n#  WETDEP_LOSS_H2O2               |                | xy  |   |    |   |   |     |\n#=============\n# GEOS-5 only:\n#=============\n  SOILNO_PULSE                    | 1              | xy  |   |    |   |   |     | Soilnox_pulse \n  LIGHTNING_TOTAL_FLASHRATE       | 1 min-1 km-2   | xy  |   |    |   |   |     | Lightning_flashrate\n  LIGHTNING_INTRACLOUD_FLASHRATE  | 1 min-1 km-2   | xy  |   |    |   |   |     | Lightning_intracloud_flashrate\n  LIGHTNING_CLOUDGROUND_FLASHRATE | 1 min-1 km-2   | xy  |   |    |   |   |     | Lightning_cloudground_flashrate\n  LIGHTNING_CLOUD_TOP             | 1              | xy  |   |    |   |   |     | Lightning_convective_cloud_top_level\n  CH4_EMIS_RICE                   | kg m-2 s-1     | xy  |   |    |   |   |     | CH4_emis_rice\n  CH4_EMIS_WETLAND                | kg m-2 s-1     | xy  |   |    |   |   |     | CH4_emis_wetland\n# --------------------------------|----------------|-----|---|----|---|---|-----|---------------------------------\n</ExportSpec>\n#                               --------------\n#                               Internal State\n#                               --------------\n#\n# Note: 1) For friendlies, use \"D\" for dynamics, \"T\" for turbulence, \"C\" for convection, S=self (adds to export); leave blank otherwise\n#       2) If quantity requires no restart, put an 'x' in the No Rst column\n#       3) RO = Alkoxy radical, RO2 = Organic peroxy radical\n<InternalSpec name=\"GEOSCHEMCHEM\", cols=\"short_name,units,dims,vlocation,stat,refresh_interval,averaging_interval,num_subtiles,default,norestart,halowidth,friendlyto,long_name\">\n# ----------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n#  Short          |            |     | V |Item|Intervl| Sub | Def  | No | Ha | Friends |            Long\n#  Name           |   Units    | Dim |Loc|Type| R | A |Tiles| ault | Rst| lo |         |            Name\n# ----------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n#======================\n# Both GCHP and GEOS-5:\n#======================\n GCCTROPP         |    Pa      | xy  |   |    |   |   |     |      |    |    | S       | tropopause_pressure_used_in_GEOS-Chem\n#================================================================================================\n# Both GCHP and GEOS-5, but GEOS-5 does not have default values specified so commenting out GCHP:\n#================================================================================================\n#STATE_PSC        | 1          | xyz | C |    |   |   |     |0.0   |    |    | S       | polar_stratospheric_clouds\n STATE_PSC        | 1          | xyz | C |    |   |   |     |      |    |    | S       | polar_stratospheric_clouds\n DryDepNitrogen   | cm-2s-1    | xy  |   |    |   |   |     |      |    |    | S       | dry_deposited_nitrogen\n WetDepNitrogen   | cm-2s-1    | xy  |   |    |   |   |     |      |    |    | S       | wet_deposited_nitrogen\n#PFACTOR          | 1          | xy  |   |    |   |   |     |1.0   |    |    | S       | soilnox_pfactor_restart\n PFACTOR          | 1          | xy  |   |    |   |   |     |      |    |    | S       | soilnox_pfactor_restart \n#DRYPERIOD        | 1          | xy  |   |    |   |   |     |0.0   |    |    | S       | soilnox_dryperiod_restart\n DRYPERIOD        | 1          | xy  |   |    |   |   |     |      |    |    | S       | soilnox_dryperiod_restart\n#GWET_PREV        | 1          | xy  |   |    |   |   |     |0.0   |    |    | S       | soilnox_gwet_prev_restart\n GWET_PREV        | 1          | xy  |   |    |   |   |     |      |    |    | S       | soilnox_gwet_prev_restart\n#DEP_RESERVOIR    | kg m-3     | xy  |   |    |   |   |     |1e-4  |    |    | S       | soilnox_dep_reservoir_restart\n DEP_RESERVOIR    | kg m-3     | xy  |   |    |   |   |     |      |    |    | S       | soilnox_dep_reservoir_restart\n#T_DAVG           | 1          | xy  |   |    |   |   |     |273.1 |    |    | S       | megan_t_davg_restart\n T_DAVG           | K          | xy  |   |    |   |   |     |      |    |    | S       | megan_t_davg_restart\n#T_PREVDAY        | 1          | xy  |   |    |   |   |     |273.1 |    |    | S       | megan_t_prevday_restart\n T_PREVDAY        | K          | xy  |   |    |   |   |     |      |    |    | S       | megan_t_prevday_restart\n#LAI_PREVDAY      | 1          | xy  |   |    |   |   |     |      |    |    | S       | megan_lai_prevday_restart\n LAI_PREVDAY      | 1          | xy  |   |    |   |   |     |0.0   |    |    | S       | megan_lai_prevday_restart\n#PARDR_DAVG       | Wm-2       | xy  |   |    |   |   |     |      |    |    | S       | megan_pardr_davg_restart\n PARDR_DAVG       | W/m2       | xy  |   |    |   |   |     |0.0   |    |    | S       | megan_pardr_davg_restart\n#PARDF_DAVG       | Wm-2       | xy  |   |    |   |   |     |      |    |    | S       | megan_pardf_davg_restart\n PARDF_DAVG       | W/m2       | xy  |   |    |   |   |     |0.0   |    |    | S       | megan_pardf_davg_restart\n#================\n# GEOS-5 only:\n#================\n H2O2AfterChem    |   vv-1     | xyz | C |    |   |   |     |      |    |    | S       | soluble_fraction_H2O2\n SO2AfterChem     |   vv-1     | xyz | C |    |   |   |     |      |    |    | S       | soluble_fraction_SO2\n KPPHvalue        |   1        | xyz | C |    |   |   |     |      |    |    | S       | HSAVE_for_KPP \n SESQ_CARBDENS    | kgCm-3     | xyz | C |    |   |   |     |      |    |    | S       | sesquiterpene_conc_restart\n# Iso_Hplus_coarse | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_H+_concentration_coarse\n# Iso_Hplus_fine   | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_H+_concentration_fine\n# Iso_sulfate      | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_sulfate_concentratio\n# Iso_nitrate_coarse | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_Na+_concentration_coarse\n# Iso_nitrate_fine | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_Na+_concentration_fine\n# Iso_bisulfate    | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_bisulfate_concentration\n### the following are not needed\n# Iso_acidpur      | molL-1     | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_acid\n# Iso_pH           |   1        | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_aerosol_pH\n# Iso_water        | ugm-3      | xyz | C |    |   |   |     |0.0   |    |    | S       | Isorropia_aerosol_water_concentration\n# ----------------|------------|-----|---|----|---|---|-----|------|----|----|---------|---------------------------------\n</InternalSpec>\n"
  },
  {
    "path": "Interfaces/GEOS/Includes_After_Run.H",
    "content": "!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !INCLUDE: Includes_After_Run.H\n!\n! !DESCRIPTION: This include file contains the array assignments that need\n!  to be made BEFORE the call to the Run method of the \n!  GEOSCHEMchem\\_GridCompMod.F90 code.  These array assignments take data out \n!  of the import and internal states and saves them into derived-type objects\n!  that are used to pass information between GEOS-Chem and the ESMF interface.\n!\\\\\n!\\\\\n!  These assignments were placed into this separate include file to avoid \n!  bogging down the GEOSCHEMchem\\_GridCompMod.F90 module.\n!\\\\\n!\\\\\n! !REVISION HISTORY: \n!  10 Oct 2012 - M. Long     - Initial version, for grid-independent model\n!  10 Oct 2012 - R. Yantosca - Added ProTeX headers, updated comments\n!  10 Oct 2012 - R. Yantosca - Converted to F90 free-format\n!  10 Oct 2012 - R. Yantosca - Added Bromine species for v9-01-03\n!  16 Oct 2012 - R. Yantosca - Changed GC_MET to State_Met\n!  16 Oct 2012 - R. Yantosca - Changed GC_STATE to State_Chm\n!  16 Oct 2012 - R. Yantosca - Changed GC_STATE%CSPEC to State_Chm%Species\n!  16 Oct 2012 - R. Yantosca - Renamed to Includes_After_Run.H (freeform)\n!  07 Mar 2013 - R. Yantosca - Now add error checks to prevent OOB errors\n!  27 Oct 2014 - C. Keller   - Removed species copying into internal state.\n!                              This is only required upon finalization.\n!  08 May 2015 - C. Keller   - Now fill species on every (chemistry) time \n!                              step. This is critical for checkpointing.\n!  11 Dec 2018 - E. Lundgren - Change names now that stored in State_Chm\n!                              (old -> new)\n!                              ARCHV_H2O2s/SO2s -> H2O2/SO2AfterChem, \n!                              ARCHV_DRY/WET_TOTN -> DryDep/WetNitrogent, \n!                              HSAVE_FOR_KPP -> KPPHvalue\n! See git history for additional changes.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  !=========================================================================\n  ! Pass tracers from GEOS-Chem tracers array to internal state\n  !=========================================================================\n  DO I = 1, SIZE(Int2Spc,1)\n     IF ( Int2Spc(I)%ID <= 0 ) CYCLE\n     IF ( .NOT. ASSOCIATED(Int2Spc(I)%Internal) ) THEN\n        CYCLE\n     ELSE\n       Int2Spc(I)%Internal(:,:,:) = &\n                         State_Chm%Species(Int2Spc(I)%ID)%Conc(:,:,LM:1:-1) \n     ENDIF\n     ! testing only\n  !if(MAPL_am_I_Root()) write(*,*) 'Copied to internal: ',I,Int2Spc(I)%ID,trim(Int2Spc(I)%Name),MINVAL(State_Chm%Species(Int2Spc(I)%ID)%Conc(:,:,LM:1:-1)),MAXVAL(State_Chm%Species(Int2Spc(I)%ID)%Conc(:,:,LM:1:-1)),SUM(State_Chm%Species(Int2Spc(I)%ID)%Conc(:,:,LM:1:-1))/IM/JM/LM\n     State_Chm%Species(I)%Units = KG_SPECIES_PER_KG_TOTAL_AIR\n  ENDDO\n\n\n  !=========================================================================\n  ! Various other archived variables needed in internal state. \n  !=========================================================================\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'H2O2AfterChem', notFoundOK=.TRUE., __RC__ ) \n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%H2O2AfterChem) ) THEN\n     Ptr3D(:,:,LM:1:-1) = State_Chm%H2O2AfterChem\n  ENDIF\n  Ptr3D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'SO2AfterChem', notFoundOK=.TRUE., __RC__ ) \n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%SO2AfterChem) ) THEN\n     Ptr3D(:,:,LM:1:-1) = State_Chm%SO2AfterChem\n  ENDIF\n  Ptr3D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr2D, 'DryDepNitrogen', notFoundOK=.TRUE., __RC__ ) \n  IF ( ASSOCIATED(Ptr2D) .AND. ASSOCIATED(State_Chm%DryDepNitrogen) ) THEN\n     Ptr2D = State_Chm%DryDepNitrogen\n  ENDIF\n  Ptr2D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr2D, 'WetDepNitrogen', notFoundOK=.TRUE., __RC__ ) \n  IF ( ASSOCIATED(Ptr2D) .AND. ASSOCIATED(State_Chm%WetDepNitrogen) ) THEN\n     Ptr2D = State_Chm%WetDepNitrogen\n  ENDIF\n  Ptr2D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'KPPHvalue' , notFoundOK=.TRUE., __RC__ ) \n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%KPPHvalue) ) THEN\n     Ptr3D(:,:,:) = 0.0\n     Ptr3D(:,:,LM:1:-1) = REAL(State_Chm%KPPHvalue(:,:,1:LM),KIND=ESMF_KIND_R4)\n  ENDIF\n  Ptr3D => NULL()\n\n  ! Sesquiterpene concentrations. Archive internally in kgC/m3 (convert from kgC/box).\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'SESQ_CARBDENS', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%ORVCsesq) ) THEN\n     Ptr3D(:,:,LM:1:-1) = State_Chm%ORVCsesq(:,:,1:LM) / State_Met%AIRVOL(:,:,1:LM)\n  ENDIF\n  Ptr3D => NULL()\n\n  ! Saved field from ISORROPIA needed for computing optical properties\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'AeroH2O_SNA', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%AeroH2O) ) THEN\n  Ptr3D(:,:,LM:1:-1) = State_Chm%AeroH2O(:,:,:,NDUST+1)\n  ENDIF\n  Ptr3D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'STATE_PSC', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%STATE_PSC) ) THEN\n     Ptr3d(:,:,LM:1:-1) = State_Chm%STATE_PSC(:,:,:)\n  ENDIF\n  Ptr3D => NULL()\n\n!EOF\n"
  },
  {
    "path": "Interfaces/GEOS/Includes_Before_Run.H",
    "content": "!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !INCLUDE: Includes_After_Run.H\n!\n! !DESCRIPTION: This include file contains the array assignments that need\n!  to be made BEFORE the call to the Run method of the \n!  GEOSCHEMchem\\_GridCompMod.F90 code.  These array assignments take data out \n!  of the import and internal states and saves them into derived-type objects\n!  that are used to pass information between GEOS-Chem and the ESMF interface.\n!\\\\\n!\\\\\n!  These assignments were placed into this separate include file to avoid \n!  bogging down the GEOSCHEMchem\\_GridCompMod.F90 module.\n!\\\\\n!\\\\\n! !REVISION HISTORY: \n!  10 Oct 2012 - M. Long     - Initial version, for grid-independent model\n!  10 Oct 2012 - R. Yantosca - Added ProTeX headers, updated comments\n!  10 Oct 2012 - R. Yantosca - Converted to F90 free-format\n!  10 Oct 2012 - R. Yantosca - Added Bromine species for v9-01-03\n!  16 Oct 2012 - R. Yantosca - Changed GC_MET to State_Met\n!  16 Oct 2012 - R. Yantosca - Changed GC_STATE to State_Chm\n!  16 Oct 2012 - R. Yantosca - Changed GC_STATE%CSPEC to State_Chm%Species\n!  16 Oct 2012 - R. Yantosca - Renamed to Includes_After_Run.H (freeform)\n!  07 Mar 2013 - R. Yantosca - Now add error checks to prevent OOB errors\n!  27 Oct 2014 - C. Keller   - Removed species copying into internal state.\n!                              This is only required upon finalization.\n!  08 May 2015 - C. Keller   - Now fill species on every (chemistry) time \n!                              step. This is critical for checkpointing.\n!  11 Dec 2018 - E. Lundgren - Change names now that stored in State_Chm\n!                              (old -> new)\n!                              ARCHV_H2O2s/SO2s -> H2O2/SO2AfterChem, \n!                              ARCHV_DRY/WET_TOTN -> DryDep/WetNitrogent, \n!                              HSAVE_FOR_KPP -> KPPHvalue\n!  See git history for additional changes.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  !=========================================================================\n  State_Met%ALBD       = ALBVF                               ! unitless\n  State_Met%CLDFRC     = CLDTT                               ! unitless\n  State_Met%HFLUX      = SH                                  ! W/m2\n  State_Met%EFLUX      = LHFX                                ! W/m2\n  State_Met%FRCLND     = FRLAND                              ! unitless\n  State_Met%FRLAND     = FRLAND                              ! unitless\n  State_Met%FRLANDICE  = FRLANDICE                           ! unitless\n  State_Met%FROCEAN    = FROCEAN                             ! unitless\n  State_Met%FRLAKE     = FRLAKE                              ! unitless\n!  State_Met%FRSEAICE  = not used \n  State_Met%FRSNOW     = ASNOW                               ! unitless\n  State_Met%GWETTOP    = WET1                                ! unitless\n  State_Met%GWETROOT   = WET2                                ! unitless\n!  State_Met%ITY        = ITY                                 ! unitless\n!  WHERE ( LAI /= MAPL_UNDEF ) \n!     State_Met%LAI     = LAI                                 ! unitless\n!  ELSEWHERE\n!     State_Met%LAI     = 0.0e0                               ! unitless\n!  ENDWHERE\n  State_Met%PARDR      = DRPAR                               ! W/m2\n  State_Met%PARDF      = DFPAR                               ! W/m2\n  State_Met%PBLH       = ZPBL                                ! m\n  State_Met%TROPP      = GCCTROPP / 100d0                    ! Pa      -> hPa\n!  State_Met%TO3        = TO3                                 ! DU\n!  State_Met%TO3        = GCCTO3                              ! DU\n  State_Met%TS         = T2M                                 ! K\n  State_Met%TSKIN      = TS                                  ! K\n!  State_Met%SST        = TS                                  ! K\n!  State_Met%RADSWG     = SWNDSRF                             ! W/m2\n  State_Met%SWGDN      = SWNDSRF                             ! W/m2\n  State_Met%SNOMAS     = SNOMAS                              ! kg/m2\n  State_Met%SNODP      = SNOWDP                              ! m\n  State_Met%SUNCOS     = zenith                              ! unitless\n  State_Met%SUNCOSmid  = zenith                              ! unitless\n!  State_Met%SUNCOSmid5 = zenith                              ! unitless\n  State_Met%U10M       = U10M                                ! m/s\n  State_Met%USTAR      = USTAR                               ! m/s\n  State_Met%UVALBEDO   = ALBVF                               ! - \n  State_Met%V10M       = V10M                                ! m/s\n  State_Met%Z0         = Z0H                                 ! m\n  State_Met%CNV_FRC    = CNV_FRC                             ! 1 \n\n  ! Calculate the Monin-Obukhov Length\n!  WHERE(ABS(SH) > 1.00E-32)\n!    State_Met%MOLENGTH(:,:) = -AIRDENS(:,:,LM) * MAPL_CP * TS * ustar**3. / (MAPL_KARMAN * MAPL_GRAV * SH)\n!  ELSEWHERE\n!    State_Met%MOLENGTH(:,:) = 1.00E+05\n!  END WHERE\n\n  ! Same LAI for all 50 biomes?!??\n!  DO I = 1, 50\n!     State_Met%XLAI (:,:,I)  = State_Met%LAI                                 ! unitless\n!     State_Met%XLAI2(:,:,I)  = State_Met%LAI                                 ! unitless\n!  ENDDO\n\n  ! Treat area as 1D\n  !State_Met%AREA_M2(:,:) = AREA\n\n  ! Surface geopotential height [m]\n  State_Met%PHIS(:,:) = ZLE(:,:,LM)\n\n  ! Surface pressure\n  State_Met%PS1_WET(:,:) = PS(:,:) * 1.0e-2  ! Pa -> hPa\n  State_Met%PS2_WET(:,:) = PS(:,:) * 1.0e-2  ! Pa -> hPa\n\n!  ! MODIS LAI (GEOS-only. GCHP uses 3D XLAIMULTI rather than 2D input fields)\n!  Ptr2d => NULL()\n!  DO TT = 1, NSURFTYPE\n!     landTypeInt = TT-1\n!     WRITE ( landTypeStr, '(I2.2)' ) landTypeInt\n!     importName = 'XLAI' // TRIM(landTypeStr)\n!     CALL MAPL_GetPointer ( IMPORT, Ptr2D, TRIM(importName), __RC__ )\n!     State_Met%XLAI_NATIVE(:,:,TT) = Ptr2D(:,:)\n!     Ptr2D => NULL()\n!  END DO\n  ! GCHP uses 3D field on level edges (one level per land type):\n  ! Read MODIS leaf area index (LAI) from imports of post-processed MODIS files.\n  ! The third dimension is land type and not level, possible to do with MAPL\n  ! only because the # of land types is the same as # of level edges.\n  State_Met%XLAI_NATIVE(:,:,:) = XLAIMULTI\n\n  ! Get UV albedo for photolysis\n  CALL MAPL_GetPointer ( IMPORT, Ptr2D, 'UV_ALBEDO', &\n                         notFoundOK=.TRUE., __RC__ )\n  If ( ASSOCIATED(Ptr2D) ) Then\n     State_Met%UVALBEDO(:,:) = Ptr2D(:,:)\n     Ptr2D => NULL()\n  ENDIF\n\n  !=========================================================================\n  ! Three-dimensional fields on level edges\n  !=========================================================================\n  DO L = 1, LM+1\n     \n     ! Reversed level index\n     LR = LM - L + 1\n\n     DO J = 1, JM\n     DO I = 1, IM\n        State_Met%PEDGE(I,J,L)   = PLE(I,J,LR) / 1d2  ! Pa -> hPa\n        State_Met%PFLLSAN(I,J,L) = PFL_LSAN(I,J,LR)   ! kg/m2/s\n        State_Met%PFILSAN(I,J,L) = PFI_LSAN(I,J,LR)   ! kg/m2/s\n\n        State_Met%CMFMC(I,J,L) = CNV_MFC(I,J,LR)    ! kg/m2/s\n        State_Met%PFICU(I,J,L) = PFI_CN (I,J,LR)    ! kg/m2/s\n        State_Met%PFLCU(I,J,L) = PFL_CN (I,J,LR)    ! kg/m2/s\n     ENDDO\n     ENDDO\n  ENDDO\n\n  !=========================================================================\n  ! Three-dimensional fields on level centers\n  !=========================================================================\n  DO L = 1, LM    \n\n     ! Reversed level index\n     LR = LM - L + 1\n\n     DO J = 1, JM\n     DO I = 1, IM\n     \n        !-------------------------------------------------------------------\n        ! \"True\" met fields (i.e. passed from GCM)\n        !-------------------------------------------------------------------\n        State_Met%AIRDEN  (I,J,L)  = AIRDENS(I,J,LR)        ! kg/m3\n        State_Met%CLDF    (I,J,L)  = FCLD   (I,J,LR)        ! unitless\n!        State_Met%DQIDTMST(I,J,L)  = DQIDT  (I,J,LR)        ! kg/kg/s\n!        State_Met%DQLDTMST(I,J,L)  = DQLDT  (I,J,LR)        ! kg/kg/s\n        State_Met%DQRLSAN (I,J,L)  = DQRL   (I,J,LR)        ! kg/kg/s\n        State_Met%DTRAIN  (I,J,L)  = CNV_MFD(I,J,LR)               ! kg/m2/s\n        State_Met%DQRCU   (I,J,L)  = DQRC   (I,J,LR)        ! kg/kg/s \n        State_Met%REEVAPCN(I,J,L)  = REV_CN (I,J,LR)        ! kg/kg/s\n        State_Met%REEVAPLS(I,J,L)  = REV_LS (I,J,LR) &      \n                                   + REV_AN (I,J,LR)        ! kg/kg/s\n        State_Met%T       (I,J,L)  = T      (I,J,LR)        ! K\n        State_Met%TMPU1   (I,J,L)  = T      (I,J,LR)        ! K\n        State_Met%TMPU2   (I,J,L)  = T      (I,J,LR)        ! K\n        IF ( ASSOCIATED( State_Met%UPDVVEL ) ) THEN\n           IF ( ASSOCIATED(CNV_CVW) ) THEN\n              State_Met%UPDVVEL (I,J,L)  = CNV_CVW(I,J,LR)        ! hPa/s\n           ELSE\n              State_Met%UPDVVEL (I,J,L)  = -999.0d0\n           ENDIF \n        ENDIF\n\n!        State_Met%MOISTQ  (I,J,L)  = DQDT   (I,J,LR)        ! \n        State_Met%QI      (I,J,L)  = QITOT  (I,J,LR)        ! kg/kg\n        State_Met%QL      (I,J,L)  = QLTOT  (I,J,LR)        ! kg/kg\n        State_Met%RH      (I,J,L)  = RH2    (I,J,LR) * 1d2  ! unitless->[%]\n        State_Met%SPHU    (I,J,L)  = Q      (I,J,LR) * 1d3  ! kg/kg -> g/kg\n        State_Met%SPHU1   (I,J,L)  = Q      (I,J,LR) * 1d3  ! kg/kg -> g/kg\n        State_Met%SPHU2   (I,J,L)  = Q      (I,J,LR) * 1d3  ! kg/kg -> g/kg\n        State_Met%TAUCLI  (I,J,L)  = TAUCLI (I,J,LR)        ! unitless\n        State_Met%TAUCLW  (I,J,L)  = TAUCLW (I,J,LR)        ! unitless\n\n        State_Met%U       (I,J,L)  = U      (I,J,LR)        ! m s-1 \n        State_Met%V       (I,J,L)  = V      (I,J,LR)        ! m s-1\n        State_Met%OMEGA   (I,J,L)  = OMEGA  (I,J,LR)        ! Pa s-1\n\n        !-------------------------------------------------------------------\n        ! Quantities derived from met fields\n        ! NOTE: Need to populate MOISTQ eventually\n        !-------------------------------------------------------------------\n\n        ! Grid box height [m]\n        State_Met%BXHEIGHT(I,J,L)  =   ZLE               (I,J,LR-1)   &\n                                   -   ZLE               (I,J,LR  )\n\n        ! Pressure thickness [hPa]\n        State_Met%DELP    (I,J,L)  =   State_Met%PEDGE   (I,J,L   )   & \n                                   -   State_Met%PEDGE   (I,J,L+1 )\n\n        ! Total optical depth [unitless]\n        State_Met%OPTD    (I,J,L)  = ( State_Met%TAUCLI  (I,J,L   )   &\n                                   +   State_Met%TAUCLW  (I,J,L   ) )\n!!!                                   *   State_Met%CLDF    (I,J,L   )\n\n        ! Air mass in grid box [kg]\n        State_Met%AD      (I,J,L)  =   State_Met%AIRDEN  (I,J,L   )   &\n                                   *   State_Met%AREA_M2 (I,J     )   &\n                                   *   State_Met%BXHEIGHT(I,J,L   )\n\n        ! Grid box volume [m3]\n        State_Met%AIRVOL  (I,J,L)  =   State_Met%AREA_M2 (I,J     )   &\n                                   *   State_Met%BXHEIGHT(I,J,L   )\n\n  ENDDO\n  ENDDO\n  ENDDO\n\n  !=========================================================================\n  ! Pass all tracers from internal state to GEOS-Chem tracers array\n  ! Species in internal state are in kg/kg total. GEOS-Chem will convert\n  ! them to kg/kg dry internally.\n  !=========================================================================\n  DO I = 1, SIZE(Int2Spc,1)\n     !if(MAPL_am_I_Root()) write(*,*) 'Copying from internal: ',I,Int2Spc(I)%ID,trim(Int2Spc(I)%Name)\n     IF ( Int2Spc(I)%ID <= 0 ) CYCLE\n     IF ( .NOT. ASSOCIATED(Int2Spc(I)%Internal) ) THEN\n        CYCLE\n     ELSE\n  State_Chm%Species(Int2Spc(I)%ID)%Conc(:,:,LM:1:-1) = Int2Spc(I)%Internal(:,:,:)\n     ENDIF\n     !IF ( MAPL_am_I_Root() ) WRITE(*,*) 'Copying from internal: ',I,Int2Spc(I)%ID,MINVAL(Int2Spc(I)%Internal(:,:,:)),MAXVAL(Int2Spc(I)%Internal(:,:,:)),SUM(Int2Spc(I)%Internal(:,:,:))/IM/JM/LM\n     State_Chm%Species(I)%Units = KG_SPECIES_PER_KG_TOTAL_AIR\n  ENDDO\n\n  !=========================================================================\n  ! Various other archived variables needed in internal state. Eventually,\n  ! we may copy those only on the first time step but for now do it every\n  ! time. (ckeller, 9/16/15)\n  !=========================================================================\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'H2O2AfterChem', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%H2O2AfterChem) ) THEN\n     State_Chm%H2O2AfterChem = Ptr3D(:,:,LM:1:-1)\n  ENDIF\n  Ptr3D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'SO2AfterChem', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%SO2AfterChem) ) THEN\n     State_Chm%SO2AfterChem = Ptr3D(:,:,LM:1:-1)\n  ENDIF\n  Ptr3D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr2D, 'DryDepNitrogen', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr2D) .AND. ASSOCIATED(State_Chm%DryDepNitrogen) ) THEN\n     State_Chm%DryDepNitrogen = Ptr2D\n  ENDIF\n  Ptr2D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr2D, 'WetDepNitrogen', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr2D) .AND. ASSOCIATED(State_Chm%WetDepNitrogen) ) THEN\n     State_Chm%WetDepNitrogen = Ptr2D\n  ENDIF\n  Ptr2D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'KPPHvalue' , notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) .AND. ASSOCIATED(State_Chm%KPPHvalue) ) THEN\n     State_Chm%KPPHvalue(:,:,1:LM) = REAL(Ptr3D(:,:,LM:1:-1),KIND=ESMF_KIND_R8)\n  ENDIF\n  Ptr3D => NULL()\n\n  ! Sesquiterpene concentrations. Convert from kgC/m3 to kgC/box.\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'SESQ_CARBDENS', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) ) THEN\n     State_Chm%ORVCsesq(:,:,1:LM) = Ptr3D(:,:,LM:1:-1) * State_Met%AIRVOL(:,:,1:LM)\n  ENDIF\n  Ptr3D => NULL()\n\n  ! Saved field from ISORROPIA used for computing optical properties\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'AeroH2O_SNA', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) ) THEN\n     State_Chm%AeroH2O(:,:,:,NDUST+1) = Ptr3D(:,:,LM:1:-1)\n  ENDIF\n  Ptr3D => NULL()\n\n  CALL MAPL_GetPointer( INTSTATE, Ptr3D, 'STATE_PSC', notFoundOK=.TRUE., __RC__ )\n  IF ( ASSOCIATED(Ptr3D) ) THEN\n     State_Chm%STATE_PSC(:,:,:) = Ptr3D(:,:,LM:1:-1)\n  ENDIF\n  Ptr3D => NULL()\n\n!EOF\n"
  },
  {
    "path": "Interfaces/GEOS/geos_CarbonInterface.F90",
    "content": "#include \"MAPL_Generic.h\"\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: geos_CarbonInterface\n!\n! !DESCRIPTION: Module to handle carbon procedures specific to GEOS, such as\n!  importing CO2 from GOCART or producing CO from CO2 photolysis. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GEOS_CarbonInterface\n!\n! !USES:\n!\n  ! MAPL/ESMF\n  USE ESMF     \n  USE MAPL_Mod \n  USE PHYSCONSTANTS\n  USE ESMF_CFIOFileMOD\n  USE MAPL_CFIOMOD\n\n  ! GEOS-Chem\n  USE Precision_Mod\n  USE ErrCode_Mod                                    ! Error numbers\n  USE Input_Opt_Mod,         ONLY : OptInput\n  USE State_Chm_Mod,         ONLY : ChmState         ! Chemistry State obj\n  USE State_Met_Mod,         ONLY : MetState         ! Meteorology State obj\n  USE State_Diag_Mod,        ONLY : DgnState         ! Diagnostics State obj\n  USE State_Grid_Mod,        ONLY : GrdState         ! Grid State obj\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: GEOS_CarbonSetServices\n  PUBLIC   :: GEOS_CarbonInit\n  PUBLIC   :: GEOS_CarbonRunPhoto\n  PUBLIC   :: GEOS_CarbonSetConc \n\n! !REVISION HISTORY:\n!  12 Jan 2023 - C. Keller - initial version (from StratChem/Carbon_GridComp)\n!  See https://github.com/geoschem/geos-chem for full history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_CarbonSetServices\n!\n! !DESCRIPTION: Set the necessary services \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CarbonSetServices( GC, CF, RC ) \n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC     ! Ref to this GridComp\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: CF        ! GEOSCHEM*.rc\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  12 Jan 2023 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=*), PARAMETER  :: myname = 'GEOS_CarbonSetServices'\n    CHARACTER(LEN=*), PARAMETER  :: Iam = myname    \n    CHARACTER(LEN=ESMF_MAXSTR)   :: ImpCO2name\n    INTEGER                      :: DoIt\n    INTEGER                      :: STATUS\n\n    ! Methane field from GEOS.\n    ! This is not yet fully implemented. Need corresponding connectivity in Chem_GridComp.\n!    CALL ESMF_ConfigGetAttribute( CF, DoIt, Label=\"CH4_from_GEOS:\", Default=0, __RC__ )\n!    IF ( DoIt == 1 ) THEN\n!       call MAPL_AddImportSpec(GC,                               &\n!               SHORT_NAME         = 'GEOS_CH4',                  &\n!               LONG_NAME          = 'GEOS_CH4_dry_mixing_ratio', &\n!               UNITS              = 'v/v',                       &\n!               DIMS               = MAPL_DimsHorzVert,           &\n!               VLOCATION          = MAPL_VLocationCenter,        &\n!               RC=STATUS  )\n!       _VERIFY(STATUS)\n!    ENDIF\n\n    ! If enabled, create import field \n    CALL ESMF_ConfigGetAttribute( CF, DoIt, Label=\"Import_CO2_from_GOCART:\", Default=0, __RC__ )\n    IF ( DoIt == 1 ) THEN\n       CALL ESMF_ConfigGetAttribute( CF, ImpCO2name, Label=\"GOCART_CO2_FieldName:\", Default=\"GOCART_CO2\", __RC__ )\n       call MAPL_AddImportSpec(GC,                      &\n            SHORT_NAME         = TRIM(ImpCO2name),      &\n            LONG_NAME          = 'CO2_mixing_ratio',    &\n            UNITS              = 'v/v_total_air',       &\n            DIMS               = MAPL_DimsHorzVert,     &\n            VLOCATION          = MAPL_VLocationCenter,  &\n            RC=STATUS  )\n       _VERIFY(STATUS)\n    ENDIF\n\n    ! Set CO upper boundary condition?\n    CALL ESMF_ConfigGetAttribute( CF, DoIt, Label=\"Set_CO_Mesosphere:\", Default=0, __RC__ )\n    IF ( DoIt == 1 ) THEN\n       CALL ESMF_ConfigGetAttribute( CF, ImpCO2name, Label=\"CO_Mesosphere_FieldName:\", Default=\"CO_CMAM\", __RC__ )\n       call MAPL_AddImportSpec(GC,                      &\n            SHORT_NAME         = TRIM(ImpCO2name),      &\n            LONG_NAME          = 'CO',                  &\n            UNITS              = 'volume_mixing_ratio', &\n            DIMS               = MAPL_DimsHorzOnly,     &\n            RC=STATUS  )\n       _VERIFY(STATUS)\n    ENDIF\n    \n    _RETURN(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_CarbonSetServices\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_CarbonInit\n!\n! !DESCRIPTION: Initialization routine \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CarbonInit( GC, CF, State_Chm, State_Grid, RC ) \n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC     ! Ref to this GridComp\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: CF        ! GEOSCHEM*.rc\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm\n    TYPE(GrdState),      INTENT(INOUT)         :: State_Grid\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  12 Jan 2023 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=*), PARAMETER  :: myname = 'GEOS_CarbonInit'\n    CHARACTER(LEN=*), PARAMETER  :: Iam = myname    \n    INTEGER                      :: DoIt, km\n    INTEGER                      :: STATUS\n    CHARACTER(LEN=ESMF_MAXSTR)   :: fnphoto\n    CHARACTER(LEN=ESMF_MAXSTR)   :: ImpCO2name, ImpCOmeso\n\n    !=======================================================================\n    ! GEOS_CarbonInit starts here\n    !=======================================================================\n\n    ! Set CO upper boundary \n    ! ----------------------\n    CALL ESMF_ConfigGetAttribute( CF, DoIt, Label=\"Set_CO_Mesosphere:\", Default=0, __RC__ )\n    State_Chm%COmesosphere = ( DoIt == 1 )\n    IF ( State_Chm%COmesosphere ) THEN\n       CALL ESMF_ConfigGetAttribute( CF, ImpCOmeso, Label=\"CO_Mesosphere_FieldName:\", Default=\"CO_CMAM\", __RC__ )\n       State_Chm%ImpCOmeso = TRIM(ImpCOmeso)\n       IF ( MAPL_am_I_Root() ) WRITE(*,*) 'Will get CO mesospheric upper boundary from import field '//TRIM(ImpCOmeso)\n    ENDIF\n\n    ! Import CO2 from GOCART \n    ! ----------------------\n    CALL ESMF_ConfigGetAttribute( CF, DoIt, Label=\"Import_CO2_from_GOCART:\", Default=0, __RC__ )\n    State_Chm%CO2fromGOCART = ( DoIt == 1 )\n    IF ( State_Chm%CO2fromGOCART ) THEN\n       CALL ESMF_ConfigGetAttribute( CF, ImpCO2name, Label=\"GOCART_CO2_FieldName:\", Default=\"GOCART_CO2\", __RC__ )\n       State_Chm%ImpCO2name = TRIM(ImpCO2name)\n       IF ( MAPL_am_I_Root() ) WRITE(*,*) 'Will get CO2 from import field '//TRIM(ImpCO2name)\n    ENDIF\n\n    ! CO2 photolysis\n    ! --------------\n\n    ! Initialize\n    State_Chm%numphoto = 0\n    km = State_Grid%NZ\n\n    ! Check if we want to do this\n    CALL ESMF_ConfigGetAttribute( CF, DoIt, Label=\"CO_production_from_CO2_photolysis:\", Default=0, __RC__ )\n    IF ( DoIt == 1 ) THEN\n       CALL ESMF_ConfigGetAttribute( CF, fnphoto, Label=\"CO2photolysisFile:\", Default=\"please/provide//file.nc\", __RC__ )\n       IF ( MAPL_am_I_Root() ) WRITE(*,*) 'CO2 photolysis enabled, read photolysis tables: '//TRIM(fnphoto)\n       CALL readPhotTables(trim(fnphoto), RC)\n       VERIFY_(RC)\n       State_Chm%numphoto = 55\n    ENDIF\n\n    _RETURN(ESMF_SUCCESS)\n\nCONTAINS\n\n   SUBROUTINE readPhotTables(fileName, rc)\n\n   IMPLICIT NONE\n\n!  Read tables for photolysis in GOCART ... from a NetCDF file\n!\n!  Input parameters:\n!\n   CHARACTER(LEN=*), INTENT(IN) :: fileName\n!\n!  Output parameters:\n!\n   INTEGER, INTENT(OUT) :: rc\n!\n!  Restrictions:\n!  ASSERT that the number of pressure layers in the dataset equals km.\n!\n!  REVISION HISTORY:\n!  Nielsen     11 May 2012: First crack.\n!  Weir        29 Jan 2021: Pilferd from StratChem\n!  Keller      12 Jan 2023: Making it worse by also putting it into GCC \n!-----------------------------------------------------------------------\n\n  CHARACTER(LEN=ESMF_MAXSTR) :: Iam = \"GCC::readPhotTables\"\n\n  TYPE(ESMF_VM) :: vm\n\n  INTEGER :: comm, info, unit, status\n  INTEGER :: dimid, i, n\n\n  INTEGER :: length\n\n  INTEGER, PARAMETER :: nD = 7\n  CHARACTER(LEN=ESMF_MAXSTR) :: dimName(nD)= (/\"nsza  \", \"numO3 \", \"layers\", &\n                                               \"nlam  \", \"nts   \", \"nxdo  \", \"aqsize\" /)\n\n  INTEGER, PARAMETER :: nV = 7\n  CHARACTER(LEN=ESMF_MAXSTR) :: varName(nV)= (/\"sza    \", &\n                        \"lambda \", \"O3TAB  \",  \"SDAT   \", &\n                        \"O2JDAT \", \"XTAB   \",  \"CH2O_AQ\" /)\n  rc = 0\n\n! Grab the virtual machine\n! ------------------------\n  CALL ESMF_VMGetCurrent(vm, RC=status)\n  VERIFY_(status)\n\n  CALL ESMF_VMGet(vm, MPICOMMUNICATOR=comm, rc=status)\n  VERIFY_(status)\n\n#ifdef H5_HAVE_PARALLEL\n\n  CALL MPI_Info_create(info, status)\n  VERIFY_(status)\n  CALL MPI_Info_set(info, \"romio_cb_read\", \"automatic\", status)\n  VERIFY_(status)\n\n#ifdef NETCDF_NEED_NF_MPIIO\n  status = NF_OPEN_PAR(TRIM(fileName), IOR(NF_NOWRITE,NF_MPIIO), comm, info, unit)\n#else\n  status = NF_OPEN_PAR(TRIM(fileName), NF_NOWRITE, comm, info, unit)\n#endif\n\n#else\n\n  IF(MAPL_AM_I_ROOT(vm)) THEN\n   status = NF_OPEN(TRIM(fileName), NF_NOWRITE, unit)\n\n#endif\n\n   IF(status /= NF_NOERR) THEN\n    PRINT *,'Error opening file ',TRIM(fileName), status\n    PRINT *, NF_STRERROR(status)\n    VERIFY_(status)\n   END IF\n\n   DO i = 1,nD\n\n    status = NF_INQ_DIMID(unit, TRIM(dimName(i)), dimid)\n    IF(status /= NF_NOERR) THEN\n     PRINT *,\"Error inquiring dimension ID for \", TRIM(dimName(i)), status\n     PRINT *, NF_STRERROR(status)\n     VERIFY_(status)\n    END IF\n\n    status = NF_INQ_DIMLEN(unit, dimid, n)\n    IF(status /= NF_NOERR) THEN\n     PRINT *,\"Error inquiring  dimension length for \", TRIM(dimName(i)), status\n     PRINT *, NF_STRERROR(status)\n    END IF\n\n    SELECT CASE (i)\n     CASE (1)\n      State_Chm%nsza = n\n     CASE (2)\n      State_Chm%numO3 = n\n     CASE (3)\n      ASSERT_(n == km)\n     CASE (4)\n      State_Chm%nlam = n\n     CASE (5)\n      State_Chm%nts = n\n     CASE (6)\n      State_Chm%nxdo = n\n     CASE (7)\n      State_Chm%aqsize = n\n     CASE DEFAULT\n    END SELECT\n\n   END DO\n\n#ifndef H5_HAVE_PARALLEL\n\n  END IF ! MAPL_AM_I_ROOT\n\n  CALL MAPL_CommsBcast(vm, State_Chm%nsza, 1, 0, RC=status)\n  VERIFY_(status)\n  CALL MAPL_CommsBcast(vm, State_Chm%numO3, 1, 0, RC=status)\n  VERIFY_(status)\n  CALL MAPL_CommsBcast(vm, State_Chm%nlam, 1, 0, RC=status)\n  VERIFY_(status)\n  CALL MAPL_CommsBcast(vm, State_Chm%nts, 1, 0, RC=status)\n  VERIFY_(status)\n  CALL MAPL_CommsBcast(vm, State_Chm%nxdo, 1, 0, RC=status)\n  VERIFY_(status)\n  CALL MAPL_CommsBcast(vm, State_Chm%aqSize, 1, 0, RC=status)\n  VERIFY_(status)\n\n#endif\n\n  ALLOCATE(State_Chm%sdat(State_Chm%nsza,State_Chm%numo3,km,State_Chm%nlam), STAT=status)\n  VERIFY_(status)\n  ALLOCATE(State_Chm%o2jdat(State_Chm%nsza,State_Chm%numo3,km), STAT=status)\n  VERIFY_(status)\n  ALLOCATE(State_Chm%o3_tab(State_Chm%numo3,km), STAT=status)\n  VERIFY_(status)\n  ALLOCATE(State_Chm%xtab(State_Chm%nlam,State_Chm%nxdo,State_Chm%nts), STAT=status)\n  VERIFY_(status)\n  ALLOCATE(State_Chm%sza_tab(State_Chm%nsza), STAT=status)\n  VERIFY_(status)\n  ALLOCATE(State_Chm%CH2O_aq(State_Chm%aqSize), STAT=status)\n  VERIFY_(status)\n  ALLOCATE(State_Chm%rlam(State_Chm%nlam), STAT=status)\n  VERIFY_(status)\n\n#ifndef H5_HAVE_PARALLEL\n\n  IF(MAPL_AM_I_ROOT()) THEN\n\n#endif\n\n   DO i = 1,nV\n\n    status = NF_INQ_VARID(unit, TRIM(varName(i)), n)\n    IF(status /= NF_NOERR) THEN\n     PRINT *,\"Error getting varid for \", TRIM(varName(i)), status\n     PRINT *, NF_STRERROR(status)\n     VERIFY_(status)\n    END IF\n\n    SELECT CASE (i)\n     CASE (1)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%sza_tab)\n     CASE (2)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%rlam)\n     CASE (3)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%o3_tab)\n     CASE (4)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%sdat)\n     CASE (5)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%o2jdat)\n     CASE (6)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%xtab)\n     CASE (7)\n      status = NF_GET_VAR_REAL(unit, n, State_Chm%CH2O_aq)\n     CASE DEFAULT\n    END SELECT\n\n    IF(status /= NF_NOERR) THEN\n     PRINT *,\"Error getting values for \", TRIM(varName(i)), status\n     PRINT *, NF_STRERROR(status)\n     VERIFY_(status)\n    END IF\n\n   END DO\n\n#ifdef H5_HAVE_PARALLEL\n\n   CALL MPI_Info_free(info, status)\n   VERIFY_(status)\n\n#else\n\n  END IF ! MAPL_AM_I_ROOT\n\n  length = SIZE(State_Chm%sza_tab)\n  CALL MPI_Bcast(State_Chm%sza_tab, length, MPI_REAL, 0, comm, status)\n  VERIFY_(status)\n\n  length = SIZE(State_Chm%rlam)\n  CALL MPI_Bcast(State_Chm%rlam, length, MPI_REAL, 0, comm, status)\n  VERIFY_(status)\n\n  length = SIZE(State_Chm%o3_tab)\n  CALL MPI_Bcast(State_Chm%o3_tab, length, MPI_REAL, 0, comm, status)\n  VERIFY_(status)\n\n  length = SIZE(State_Chm%sdat)\n  CALL MPI_Bcast(State_Chm%sdat, length, MPI_REAL, 0, comm, status)\n  VERIFY_(status)\n\n  length = SIZE(State_Chm%o2jdat)\n  CALL MPI_Bcast(State_Chm%o2jdat, length, MPI_REAL, 0, comm, status)\n  VERIFY_(status)\n\n  length = SIZE(State_Chm%xtab)\n  CALL MPI_Bcast(State_Chm%xtab, length, MPI_REAL, 0, comm, status)\n  VERIFY_(status)\n\n  CALL MAPL_CommsBcast(vm, State_Chm%CH2O_aq, State_Chm%aqsize, 0, RC=status)\n  VERIFY_(status)\n\n#endif\n\n  status = NF_CLOSE(unit)\n  VERIFY_(status)\n\n  RETURN\n  END SUBROUTINE readPhotTables\n\n  END SUBROUTINE GEOS_CarbonInit\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_CarbonSetConc\n!\n! !DESCRIPTION: Sets the concentrations of CO2 and/or top-level CO based on \n!  values obtained via the import state\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CarbonSetConc( Import,    Input_Opt,  State_Chm,  &\n                                 State_Met, State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n  USE UnitConv_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import     ! Import State\n    TYPE(OptInput),      INTENT(IN)            :: Input_Opt  ! Input Options object\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm  ! Chemistry object \n    TYPE(MetState),      INTENT(INOUT)         :: State_Met  ! Met object\n    TYPE(DgnState),      INTENT(INOUT)         :: State_Diag ! Diagnostics object \n    TYPE(GrdState),      INTENT(INOUT)         :: State_Grid ! Grid object \n    INTEGER,             INTENT(INOUT)         :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  12 Jan 2023 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=*), PARAMETER  :: myname = 'GEOS_CarbonSetConc'\n    CHARACTER(LEN=*), PARAMETER  :: Iam = myname    \n    INTEGER                      :: previous_units\n    INTEGER                      :: I, LM, indCO2, indCO, STATUS\n    REAL, POINTER                :: CO2(:,:,:)  => null()\n    REAL, POINTER                :: COmeso(:,:) => null()\n    REAL, PARAMETER              :: MWCO2 = 44.01 ! everybody knows this\n    REAL, PARAMETER              :: MWCO  = 28.01 ! CO2 - 16 \n\n    !=======================================================================\n    ! GEOS_CarbonSetConc starts here\n    !=======================================================================\n\n    IF ( State_Chm%CO2fromGOCART .OR. State_Chm%COmesosphere ) THEN\n\n       ! Make sure concentrations are in kg/kg total\n       ! (this should already be the case) \n       CALL Convert_Spc_Units(                                               &\n            Input_Opt      = Input_Opt,                                      &\n            State_Chm      = State_Chm,                                      &\n            State_Grid     = State_Grid,                                     &\n            State_Met      = State_Met,                                      &\n            new_units      = KG_SPECIES_PER_KG_TOTAL_AIR,                    &\n            previous_units = previous_units,                                 &\n            RC             = RC                                             )\n       ASSERT_(RC==GC_SUCCESS)\n\n       ! Get index\n       indCO2  = -1\n       indCO   = -1\n       DO I = 1, State_Chm%nSpecies\n          IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == \"CO2\"  ) THEN\n             indCO2 = I \n          ENDIF\n          IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == \"CO\"  ) THEN\n             indCO = I \n          ENDIF\n       ENDDO\n\n       ! # of vertical levels\n       LM = State_Grid%NZ\n\n       ! Set CO2 concentrations\n       IF ( State_Chm%CO2fromGOCART ) THEN\n          ASSERT_(indCO2 > 0  )\n\n          ! Get CO2 field via import. This is expected in v/v total!! \n          CALL MAPL_GetPointer ( Import, CO2, TRIM(State_Chm%ImpCO2name), __RC__ )\n\n          ! Pass to GEOS-Chem. Flip in vertical and convert v/v to kg/kg\n          State_Chm%Species(indCO2)%Conc(:,:,:) = CO2(:,:,LM:1:-1) * ( MWCO2 / MAPL_AIRMW )\n       ENDIF\n\n       IF ( State_Chm%COmesosphere  ) THEN\n          ASSERT_(indCO  > 0  )\n\n          ! Get CO field via import. This is expected in v/v total\n          CALL MAPL_GetPointer ( Import, COmeso, TRIM(State_Chm%ImpCOmeso), __RC__ )\n\n          ! Pass to GEOS-Chem. Convert v/v to kg/kg\n          State_Chm%Species(indCO)%Conc(:,:,LM) = COmeso(:,:) * ( MWCO / MAPL_AIRMW )\n       ENDIF\n\n       ! Convert species back to original units\n       CALL Convert_Spc_Units(                                               &\n          Input_Opt  = Input_Opt,                                            &\n          State_Chm  = State_Chm,                                            &\n          State_Grid = State_Grid,                                           &\n          State_Met  = State_Met,                                            &\n          new_units  = previous_units,                                       &\n          RC         = RC                                                   )\n       ASSERT_( RC == GC_SUCCESS )\n\n    ENDIF\n\n    _RETURN(ESMF_SUCCESS)\n    END SUBROUTINE GEOS_CarbonSetConc\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_CarbonRunPhoto\n!\n! !DESCRIPTION: Calculates the photolysis rates (following StratChem) \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CarbonRunPhoto( Input_Opt,  State_Chm,  State_Met,  &\n                                  State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n  USE TIME_MOD,              ONLY : GET_TS_CHEM\n  USE UnitConv_Mod\n  USE ERROR_MOD,             ONLY : SAFE_DIV\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput),      INTENT(IN)            :: Input_Opt  ! Input Options object\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm  ! Chemistry object \n    TYPE(MetState),      INTENT(INOUT)         :: State_Met  ! Met object\n    TYPE(DgnState),      INTENT(INOUT)         :: State_Diag ! Diagnostics object \n    TYPE(GrdState),      INTENT(INOUT)         :: State_Grid ! Grid object \n    INTEGER,             INTENT(INOUT)         :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  12 Jan 2023 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=*), PARAMETER  :: myname = 'GEOS_CarbonRunPhoto'\n    CHARACTER(LEN=*), PARAMETER  :: Iam = myname    \n\n    INTEGER                      :: previous_units\n    REAL, ALLOCATABLE            :: aj(:)\n    INTEGER                      :: I, J, L, LM, STATUS\n    INTEGER                      :: indCO, indCO2, indO3\n    REAL                         :: sza, o3col, press, temp\n    REAL                         :: photj, dCOphot, tsChem \n    REAL(fp)                     :: COinit, COpost, CO2conc \n\n    !=======================================================================\n    ! GEOS_CarbonRunPhoto starts here\n    !=======================================================================\n\n    ! Only do this if active\n    IF ( State_Chm%numphoto > 0) THEN\n\n       ! Convert to molec/cm3 units are molec/cm3 \n       CALL Convert_Spc_Units(                                               &\n            Input_Opt       = Input_Opt,                                     &\n            State_Chm       = State_Chm,                                     &\n            State_Grid      = State_Grid,                                    &\n            State_Met       = State_Met,                                     &\n            new_units       = MOLECULES_SPECIES_PER_CM3,                     &\n            previous_units  = previous_units,                                &\n            RC              = RC                                            )\n       ASSERT_(RC==GC_SUCCESS)\n\n       ! Chemistry time step in secods\n       tsChem  = GET_TS_CHEM()\n\n       ! Get index for species: need CO, O3, and CO2 \n       indCO  = -1\n       indO3  = -1\n       indCO2 = -1\n       DO I = 1, State_Chm%nSpecies\n          IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == \"CO\"  ) indCO  = I \n          IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == \"O3\"  ) indO3  = I \n          IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == \"CO2\" ) indCO2 = I \n       ENDDO\n       ASSERT_(indCO  > 0  )\n       ASSERT_(indO3  > 0  )\n       ASSERT_(indCO2 > 0  )\n\n       ! Allocate local arrays\n       allocate(aj(State_Chm%numphoto), STAT=RC)\n       VERIFY_(RC)\n\n       ! Loop over entire atmosphere\n       LM = State_Grid%NZ\n       DO L = 1, LM \n       DO J = 1, State_Grid%NY\n       DO I = 1, State_Grid%NX\n\n          ! Solar Zenith Angle (radians)\n          SZA = 0.\n          IF ( State_Met%SUNCOSmid(I,J)<=1.0 ) SZA = ACOS(State_Met%SUNCOSmid(I,J))\n\n          ! Overhead ozone (molec cm-2)\n          O3col = SUM(   State_Chm%Species(indO3)%Conc(I,J,L:LM) &\n                       * State_Met%BXHEIGHT(I,J,L:LM)*100.0       )\n\n          ! Pressure (hPa) and Temperature (K) \n          Press = State_Met%PMID_DRY(I,J,L)\n          Temp  = State_Met%T(I,J,L)\n\n          ! Calculate photolysis rates (s-1) a la StratChem \n          call jcalc4(L, SZA, O3col, Press, Temp, aj, State_Chm)\n          photJ = aj(12)\n\n          ! Get CO species concentration (molec cm-3)\n          COinit  = State_Chm%Species(indCO)%Conc(I,J,L)\n\n          ! Get CO2 (molec cm-3)\n          CO2conc = State_Chm%Species(indCO2)%Conc(I,J,L)\n\n          ! production rate\n          dCOphot = photJ*CO2conc\n\n          ! Update CO concentration \n          COpost = COinit + tsChem*dCOphot\n\n          ! Add back to concentration array \n          State_Chm%Species(indCO)%Conc(I,J,L) = COpost\n\n          ! Add to diagnostics if requested \n          IF ( State_Diag%Archive_CO2photrate ) THEN\n             State_Diag%CO2photrate(I,J,L) = photJ \n          ENDIF\n\n          IF ( State_Diag%Archive_COincCO2phot ) THEN\n             State_Diag%COincCO2phot(I,J,L) = SAFE_DIV( COpost, COinit, 1.0_fp, 1.0_fp ) - 1.0_fp\n          ENDIF\n       ENDDO\n       ENDDO\n       ENDDO\n\n       ! Convert species back to original units\n       CALL Convert_Spc_Units(                                               &\n            Input_Opt  = Input_Opt,                                          &\n            State_Chm  = State_Chm,                                          &\n            State_Grid = State_Grid,                                         &\n            State_Met  = State_Met,                                          &\n            new_units  = previous_units,                                     &\n            RC         = RC                                                 )\n       ASSERT_( RC == GC_SUCCESS )\n\n       ! Cleanup\n       IF ( ALLOCATED(aj) ) DEALLOCATE(aj)\n    ENDIF\n\n    _RETURN(ESMF_SUCCESS)\n\nCONTAINS\n\n   SUBROUTINE interp_s(k,sza,o3column,s,jo2,State_Chm)\n! ----------------------------------------------------------------------------\n! NAME:\n!   interp_s\n!\n! PURPOSE:\n!   Interpolate S values for each wavelength in table to specified O3\n!   column and zenith angle\n!\n! INPUTS:\n!   k         Current layer number\n!   szaRad    Solar zenith angle [radians]\n!   o3column  Overhead o3 column value [cm^{-2}]\n!   State_Chm      The GOCART::CO grid component, which contains\n!     sza_tab Solar zenith angle table\n!     o3_tab  Overhead O3 values table\n!     sdat    Radiative source function \n!     o2jdat  Table of J(O2) values\n!\n! OUTPUTS:\n!   s         S value for each wavelength at current k, interpolated to\n!               the given o3column and sza\n!   jo2       J(O2) values interpolated as above\n!\n! \n! PROCEDURE:\n!   Bi-linear interpolation, for sza > 94 s=0, for O3 out of range use min/max\n!\n! MODIFICATION HISTORY: \n!   25 Aug 1993  Kawa\n!   10 Jul 1996  Kawa    For 28 levels and to handle J(O2) separately\n!   11 May 2012  Nielsen Accomodation for GEOS-5 FV cubed release\n!   30 Jan 2021  Weir    Copied from StratChem\n! ----------------------------------------------------------------------------\n\n   IMPLICIT NONE\n\n   TYPE(ChmState), INTENT(IN) :: State_Chm   ! Grid Component\n\n   INTEGER, INTENT(IN) :: k\n   REAL, INTENT(IN) :: sza, o3column\n   REAL, INTENT(OUT) :: s(State_Chm%nlam), jo2\n\n   INTEGER :: ijj, ik, ikk, ikkm, il, is\n   REAL :: omt, omu, t, u\n   REAL, PARAMETER :: PI = 3.14159265\n\n! For each input solar zenith angle, find the first element of State_Chm%sza_tab that \n! is greater.  Use this element and previous one to determine the interpolated value.\n! -----------------------------------------------------------------------------------\n   DO is = 1,State_Chm%nsza\n      ijj = is\n      IF(State_Chm%sza_tab(is) > sza) EXIT\n   ENDDO\n\n! Zenith angle test       \n! -----------------\n   IF(sza > State_Chm%sza_tab(State_Chm%nsza)) THEN\n!     Cell is dark, set s and jo2=0        \n!     -----------------------------\n      s(1:State_Chm%nlam) = 0.\n      jo2 = 0.\n   ELSE\n!     Cell is illuminated     \n!     -------------------\n      t = (sza-State_Chm%sza_tab(ijj-1))/(State_Chm%sza_tab(ijj)-State_Chm%sza_tab(ijj-1))\n      omt = 1.-t\n\n! For each overhead O3 column, find the first element in State_Chm%o3_tab that is\n! greater. Use this element and previous one to determine the interpolated value.\n! -------------------------------------------------------------------------------\n      DO is = 1,State_Chm%numo3\n         ikk = is\n         IF(State_Chm%o3_tab(is,k) > o3column) EXIT\n      ENDDO\n\n      ikkm = ikk-1\n      IF(ikk > 1 .AND. o3column <= State_Chm%o3_tab(State_Chm%numo3,k)) THEN\n         u = (o3column-State_Chm%o3_tab(ikkm,k))/(State_Chm%o3_tab(ikk,k)-State_Chm%o3_tab(ikkm,k))\n         omu = 1.-u\n\n! Do bilinear interpolation for each wavelength.\n! ----------------------------------------------\n         DO il = 1,State_Chm%nlam\n            s(il) = omt*omu*State_Chm%sdat(ijj-1,ikkm,k,il)+t*omu*State_Chm%sdat(ijj,ikkm,k,il)+ &\n                    t*u*State_Chm%sdat(ijj,ikk,k,il)+omt*u*State_Chm%sdat(ijj-1,ikk,k,il)\n         ENDDO\n         jo2 = omt*omu*State_Chm%o2jdat(ijj-1,ikkm,k)+t*omu*State_Chm%o2jdat(ijj,ikkm,k)+ &\n               t*u*State_Chm%o2jdat(ijj,ikk,k)+omt*u*State_Chm%o2jdat(ijj-1,ikk,k)\n\n! Extrapolate ahead of table\n! --------------------------\n      ELSE IF (ikk == 1) THEN\n         DO il = 1,State_Chm%nlam\n            s(il) = omt*State_Chm%sdat(ijj-1,1,k,il)+t*State_Chm%sdat(ijj,1,k,il)\n         ENDDO\n         jo2 = omt*State_Chm%o2jdat(ijj-1,1,k)+t*State_Chm%o2jdat(ijj,1,k)\n\n! Extrapolate beyond table\n! ------------------------\n      ELSE\n         DO il = 1,State_Chm%nlam\n            s(il) = omt*State_Chm%sdat(ijj-1,State_Chm%numo3,k,il)+t*State_Chm%sdat(ijj,State_Chm%numo3,k,il)\n         END DO\n         jo2 = omt*State_Chm%o2jdat(ijj-1,State_Chm%numo3,k)+t*State_Chm%o2jdat(ijj,State_Chm%numo3,k)\n      ENDIF\n   ENDIF\n\n   RETURN\n   END SUBROUTINE interp_s\n\n   SUBROUTINE jcalc4(k,szan,o3column,press,kel,aj,State_Chm)\n! ---------------------------------------------------------------------------------\n! NAME: jcalc4\n! PURPOSE:\n!   Calculate photolysis rates\n! INPUT:\n!   k         Current layer number\n!   levels    Number of layers\n!   szan      Solar zenith angle (radians)\n!   o3column  Overhead O3 values\n!   press     Mid-layer pressure (hPa)\n!   kel       Mid-layer temperature (K)\n! OUTPUT:\n!   aj        Array of photolysis rates\n! RESTRICTIONS:\n!   Currently set up for 23-J set (see var State_Chm%nxdo)\n! REQUIRED ROUTINES:\n!   interp_s\n! MODIFICATION HISTORY: \n!   26 Aug 1993 Kawa    Created\n!   23 Nov 1993 Kawa    Remade xtab to do multiplication by solar flux beforehand \n!                        and removed inputs.\n!   25 Feb 1994         Add 3 additional Js, incl N2O\n!   18 Sep 1995         Add 2 additional Js, up to 22, and do CH2O special\n!   13 May 1996 Crum    Removed fossils, move toward Fortran 90\n!   10 Jul 1996         Modified to handle J(O2) separately and use 28 levels\n!    1 Apr 2009 Nielsen GEOS-5 form with standardized SC_GridComp interface.\n!    1 Jun 2009 Nielsen Updated to JPL 2006\n!   12 Dec 2010 Nielsen Updated to JPL 2010 following Luke Oman's testing.\n!   11 May 2012 Nielsen Accomodation for GEOS-5 FV cubed release\n!    3 Jun 2015 Liang   Updated to the new 50-slot table with addition of halons,\n!                       HCFCs, and 5 VSLSs\n!                       numphoto is now updated to 52\n!   30 Jan 2021 Weir    Copied from StratChem\n!\n! WARNING: Photolysis reaction rate numbers 38-42 are calculated in MESO_PHOT.\n! ---------------------------------------------------------------------------------\n   IMPLICIT NONE\n   INTEGER, PARAMETER :: DBL = KIND(0.00D+00)\n\n   TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Grid Component\n\n   INTEGER, INTENT(IN) :: k\n   REAL, INTENT(IN) :: szan, o3column, press, kel\n!  REAL(KIND=DBL), INTENT(OUT) :: aj(State_Chm%numphoto)\n!  bweir: demoted to single\n   REAL, INTENT(OUT) :: aj(State_Chm%numphoto)\n\n   INTEGER :: ilam,indt,ix\n\n   REAL :: alpha300, alphat, jo2, rjs(State_Chm%nxdo), q1, q2, r1mq1\n   REAL :: s(State_Chm%nlam), sx(2,State_Chm%nlam), tfac, wvl\n\n! Start with a clean slate\n! ------------------------\n   aj(1:State_Chm%numphoto) = 0.\n\n! Interpolate radiative flux function values to model conditions\n! --------------------------------------------------------------\n   CALL interp_s(k,szan,o3column,s,jo2,State_Chm)\n   indt = kel-148.5\n   indt = MAX(1,indt)\n   indt = MIN(indt,200)\n\n! cakelle2: comment stuff not needed for CO2 photolysis...\n\n!!!! Preliminaries for CH2O quantum yield dependence on m, T, wavelength\n!!!! -------------------------------------------------------------------\n!!!   tfac = (kel-80.0)/80.0\n!!!\n!!!   DO ilam=1,State_Chm%nlam\n!!!      ZeroS: IF(s(ilam) == 0.) THEN\n!!!         sx(1,ilam) = 0.00\n!!!         sx(2,ilam) = 0.00\n!!!      ELSE\n!!!\n!!!         wvl = State_Chm%rlam(ilam)*0.10\n!!!\n!!!         IF(wvl < 250.00) THEN\n!!!            q1 = 0.24\n!!!         ELSE IF(wvl >= 339.00) THEN\n!!!            q1 = 0.00\n!!!         ELSE\n!!!            q1 = State_Chm%CH2O_aq(1) + State_Chm%CH2O_aq(2)*wvl         + &\n!!!                                   State_Chm%CH2O_aq(3)*wvl*wvl     + &\n!!!                                   State_Chm%CH2O_aq(4)*wvl*wvl*wvl + &\n!!!                                   State_Chm%CH2O_aq(5)*wvl*wvl*wvl*wvl\n!!!         ENDIF\n!!!\n!!!         r1mq1 = 1./(1.-q1)\n!!!\n!!!         IF(wvl < 330.00) THEN\n!!!            q2 = State_Chm%xtab(ilam,22,indt)\n!!!         ELSE IF(wvl > 360.00) THEN\n!!!            q2 = 0.00\n!!!         ELSE\n!!!            alpha300 = 1.00E-03*(1./State_Chm%xtab(ilam,22,1)-r1mq1)\n!!!            alphat = alpha300*(1.+0.05*(wvl-329.)*((300.-kel)/80.))\n!!!            q2 = 1.00/(r1mq1+alphat*press)\n!!!         ENDIF\n!!!\n!!!         IF(wvl .LT. 250.00) q2=0.5\n!!!\n!!!         sx(2,ilam) = s(ilam)*State_Chm%xtab(ilam,21,indt)*q2\n!!!         sx(1,ilam) = s(ilam)*State_Chm%xtab(ilam,21,indt)*q1\n!!!      ENDIF ZeroS\n!!!   ENDDO\n!!!\n!!!! J(BrONO2) through J(OCLO)\n!!!! -------------------------\n!!!   DO ix=1,14\n!!!      rjs(ix) = 0.\n!!!\n!!!      DO ilam=1,State_Chm%nlam\n!!!         rjs(ix) = rjs(ix)+s(ilam)*State_Chm%xtab(ilam,ix,indt)\n!!!      ENDDO\n!!!   ENDDO\n!!!\n!!!! J(O2)\n!!!! -----\n!!!   rjs(15) = jo2\n!!!\n!!!! J(O3_O1D) through J(N2O)\n!!!! ------------------------\n!!!   DO ix=16,20\n!!!      rjs(ix) = 0.\n!!!\n!!!      DO ilam=1,State_Chm%nlam\n!!!         rjs(ix) = rjs(ix)+s(ilam)*State_Chm%xtab(ilam,ix,indt)\n!!!      ENDDO\n!!!   ENDDO\n!!!\n!!!! J(CH2O)\n!!!! -------\n!!!   rjs(21) = 0.\n!!!   rjs(22) = 0.\n!!!   DO ilam=1,State_Chm%nlam\n!!!      rjs(21) = rjs(21)+sx(1,ilam)\n!!!      rjs(22) = rjs(22)+sx(2,ilam)\n!!!   ENDDO\n\n! J(CO2 -> CO + O) through xH1211\n! -------------------------------\n!!!   DO ix=23,State_Chm%nxdo\n      ix=23\n      rjs(ix) = 0.\n\n      DO ilam=1,State_Chm%nlam\n         rjs(ix) = rjs(ix)+s(ilam)*State_Chm%xtab(ilam,ix,indt)\n      ENDDO\n!!!   ENDDO\n\n! ---------------------------------------------------------------\n! Order photolysis rates to match order in full chemistry model.  \n! Sort rjs into CTM photolysis rate array, aj.  Order of rjs:\n!\n!  1-J(BrONO2)\n!  2-J(BrO)\n!  3-J(Cl2O2)\n!  4-J(ClONO2)\n!  5-J(H2O2)\n!  6-J(HCl)\n!  7-J(HNO3)\n!  8-J(HO2NO2)\n!  9-J(HOCl)\n! 10-J(N2O5)\n! 11-J(NO2)\n! 12-J(NO3_NO)\n! 13-J(NO3_NO2)\n! 14-J(OClO)\n! 15-J(O2)\n! 16-J(O3_O1D)\n! 17-J(O3_3P)\n! 18-J(HOBr)\n! 19-J(CH3OOH)\n! 20-J(N2O)\n! 21-J(CH2O_HCO)\n! 22-J(CH2O_CO)\n! 23-J(CO2 -> CO + O)\n! 24-xCFC-11\n! 25-xCFC-12\n! 26-xCCl4\n! 27-xCH3CCl3\n! 28-xHCFC-22\n! 29-xCFC-113\n! 30-xCH3Cl\n! 31-xCH3Br\n! 32-xH1301\n! 33-xH1211 \n! 34-xH1202\n! 35-xH2402\n! 36-xCHBr3\n! 37-xCH2Br2\n! 38-xCH2ClBr\n! 39-xCHClBr2\n! 40-xCHCl2Br\n! 41-xHCFC-141b\n! 42-xHCFC-142b\n! 43-xCFC-114 \n! 44-xCFC-115\n! 45-xOCS\n! 46-\n! 47-\n! 48-\n! 49-\n! 50-\n! ---------------------------------------------------------------\n! ---------------------------------------------------------------\n! Solar cycle goes here when ready  \n!     aj( 1) = rjs(15)*State_Chm%s_cycle(3,State_Chm%iscyr)\n! ----------------------------------------------------------------\n!!!   aj( 1) = rjs(15)\n!!!   aj( 2) = rjs(16)\n!!!   aj( 3) = rjs(17)\n!!!! H2O\n!!!! ---\n!!!   aj( 4) = 0.\n!!!   aj( 5) = rjs(13)\n!!!   aj( 6) = rjs(7)\n!!!   aj( 7) = rjs(11)\n!!!   aj( 8) = rjs(5)\n!!!   aj( 9) = rjs(10)\n!!!   aj(10) = rjs(21)\n!!!   aj(11) = rjs(22)\n   aj(12) = rjs(23)\n!!!   aj(13) = rjs(19)\n!!!   aj(14) = rjs(20)\n!!!   aj(15) = rjs(4)\n!!!   aj(16) = 0.\n!!!   aj(17) = rjs(12)\n!!!   aj(18) = rjs(6)\n!!!   aj(19) = 0.\n!!!\n!!!! CH3Br(20) H1301(21) H12_24(22)\n!!!! ------------------------------\n!!!   aj(20) = rjs(31)\n!!!   aj(21) = rjs(32)\n!!!   aj(22) = rjs(33)\n!!!   aj(23) = rjs(9)\n!!!   aj(24) = rjs(8)\n!!!   aj(25) = rjs(18)\n!!!   aj(26) = 0.\n!!!   aj(27) = rjs(2)\n!!!   aj(28) = rjs(1)\n!!!\n!!!! F11(29) F12(30) CCl4(31) CHCCl3(32) HCFC(33) F113(34) CH3Cl(35)\n!!!! ---------------------------------------------------------------\n!!!   aj(29) = rjs(24)\n!!!   aj(30) = rjs(25)\n!!!   aj(31) = rjs(26)\n!!!   aj(32) = rjs(27)\n!!!   aj(33) = rjs(28)\n!!!   aj(34) = rjs(29)\n!!!   aj(35) = rjs(30)\n!!!   aj(36) = rjs(3)\n!!!   aj(37) = rjs(14)\n!!!\n!!!! ------------------------------------------\n!!!! WARNING: Photolysis reaction rate\n!!!! numbers 38-42 are calculated in MESO_PHOT.\n!!!! ------------------------------------------\n!!!! Add aj(43) which is J(Cl2O2) for partitioning but not Ox loss \n!!!! which is aj(36). In lookup table J(Cl2O2) is J*qy where qy is 0.8 \n!!!! so multiply by 1.25 to equal J and used in part.F and partest.F\n!!!\n!!!   aj(43) = rjs(3)*1.25\n!!!\n!!!! QingLiang -- 06/03/2015\n!!!! CHBr3(44) CH2Br2(45) CH2BrCl(46) CHBrCl2(47) CHBr2Cl(48)\n!!!   aj(44) = rjs(36)\n!!!   aj(45) = rjs(37)\n!!!   aj(46) = rjs(38)\n!!!   aj(47) = rjs(39)\n!!!   aj(48) = rjs(40)\n!!!\n!!!! QingLiang -- 06/03/2015\n!!!! Add two new halons: H-1202 (49) H2402 (50) \n!!!! and two new HCFCs: HCFC-141b (51) HCFC-142b (52) \n!!!   aj(49) = rjs(34)\n!!!   aj(50) = rjs(35)\n!!!   aj(51) = rjs(41)\n!!!   aj(52) = rjs(42)\n!!!\n!!!! QingLiang -- 02/05/2016\n!!!! Add CFC-114 and CFC-115\n!!!! Add OCS for GOCART module\n!!!   aj(53) = rjs(43)\n!!!   aj(54) = rjs(44)\n!!!   aj(55) = rjs(45)\n!!!!  aj(53) = rjs(34)\n!!!!  aj(54) = rjs(34)\n!!!!  aj(55) = rjs(34)\n\n   RETURN\n   END SUBROUTINE jcalc4\n\n  END SUBROUTINE GEOS_CarbonRunPhoto\n!EOC\nEND MODULE GEOS_CarbonInterface\n"
  },
  {
    "path": "Interfaces/GEOS/geos_TaggedSpecies.F90",
    "content": "#include \"MAPL_Generic.h\"\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: geos_TaggedSpecies\n!\n! !DESCRIPTION: Module with routines and variables to handle tagged species. \n! For now, this module only covers tagged NO(x). It can handle up to 100 \n! individual tagged NO species. The number of tagged species is specified\n! in the input file 'GEOSChem_TaggedNOx.rc'. If partner_tag is enabled, a\n! tagged NO2 species is also used and tagging will be done as NOx (NO+NO2).\n\n! The tagged species names are hardcoded to 'NOTAG<XX>' and NO2TAG<XX>',\n! respectively. To run with the tagged species, they need to be added to \n! the list of advected species in geoschem_config.yaml. Also, for each \n! tagged species, there needs to be corresponding entry in the species \n! database file (species_database.yml), e.g.:\n!\n!NOTAG1:\n!  Background_VV: 1.0e-30\n!  Formula: 'NO'\n!  FullName: Nitrogen oxide tag 1\n!  Is_Advected: true\n!  Is_Gas: true\n!  Is_Photolysis: false\n!  MW_g: 30.01\n!\n!NO2TAG1:\n!  Background_VV: 1.0e-30\n!  DD_F0: 0.1\n!  DD_Hstar: 1.0e-2\n!  Formula: NO2\n!  FullName: Nitrogen dioxide tag 1\n!  Is_Advected: true\n!  Is_DryDep: true\n!  Is_Gas: true\n!  Is_Photolysis: false\n!  MW_g: 46.01\n!\n! Chemistry prod/loss rates are inherited from the parent species (NO/NO2),\n! all other processes are performed at the tagged species level. Emissions \n! for each tagged species need to be assigned in the HEMCO configuration \n! file. For example, to assign NO biomass burning emissions to tagged species\n! #1 (NOTAG1): \n!0 QFED_NO_TF_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4 biomass_tf 2000-2018/1-12/1-31/0 C xyL=1:PBL kg/m2/s NO     75/311/545/592 8 1\n!0 QFED_NOT1_TF_SFC -                                                               -          -                     - -         -       NOTAG1 75/311/545/592 8 1 \n! \n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GEOS_TaggedSpecies\n!\n! !USES:\n!\n  ! MAPL/ESMF\n  USE ESMF     \n  USE MAPL_Mod \n  ! GEOS-Chem stuff\n  USE Precision_Mod\n  USE ErrCode_Mod                                    ! Error numbers\n  USE PHYSCONSTANTS\n  USE Input_Opt_Mod,         ONLY : OptInput\n  USE State_Chm_Mod,         ONLY : ChmState, Ind_   ! Chemistry State obj\n  USE State_Diag_Mod,        ONLY : DgnState         ! Diagnostics State obj\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: Init_TaggedSpecies\n  PUBLIC   :: Run_TaggedSpecies\n  PUBLIC   :: Finalize_TaggedSpecies\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n!\n! !PRIVATE TYPES:\n!\n  ! Tagged tracers:\n  CHARACTER(LEN=128), PARAMETER  :: TaggedConfigFile = 'GEOSChem_TaggedNOx.rc'\n\n  INTEGER, PARAMETER    :: MaxTag = 100\n  INTEGER               :: nTagged\n  INTEGER, ALLOCATABLE  :: TagID(:)                      ! For Tagged NO\n  INTEGER, ALLOCATABLE  :: ParentID_GCC(:)\n  INTEGER, ALLOCATABLE  :: ParentID_KPP(:)\n  INTEGER, ALLOCATABLE  :: TagIDb(:)                     ! For Tagged NO2\n  INTEGER, ALLOCATABLE  :: ParentIDb_GCC(:)\n  INTEGER, ALLOCATABLE  :: ParentIDb_KPP(:)\n!\n! !REVISION HISTORY:\n!  19 Mar 2024 - C. Keller / P. Wales - brought into GCv14 from v12 \n!  See https://github.com/geoschem/geos-chem for full history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init_TaggedSpecies \n!\n! !DESCRIPTION: Initialize tagged species chemistry by reading the information\n! from GEOSChem_TaggedNOx.rc \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init_TaggedSpecies( Input_Opt, State_Chm, State_Diag, RC )\n!\n! !USE:\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(ChmState)                             :: State_Chm\n    TYPE(DgnState)                             :: State_Diag\n    INTEGER,             INTENT(INOUT)         :: RC        ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  19 Mar 2024 - C. Keller / P. Wales - brought into GCv14 from v12 \n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    TYPE(ESMF_Config)                     :: tagCF     ! ESMF Config obj\n    LOGICAL                               :: FileExists\n    CHARACTER(LEN=255)                    :: ParentName, ParentNameb\n    CHARACTER(LEN=64)                     :: TagName, TagNameb\n    INTEGER                               :: KppId, TagInd, N, PartnerTag\n\n    __Iam__('Init_TaggedSpecies')\n\n    !--------------------------------------------------------------------\n    ! Initialize tagged tracer chemistry\n    !--------------------------------------------------------------------\n\n    ! Initialize \n    nTagged          = 0\n                                                   \n    TagName = 'NaN'\n    ParentName = 'NO'          ! eventually allow this to be read in as a list\n    TagNameb = 'NaN'\n    ParentNameb = 'NO2'        ! chem that cycles with ParentName\n   \n    ! Check if file exists \n    INQUIRE( FILE=TRIM(TaggedConfigFile), EXIST=FileExists )\n\n    ! Do the following only if file exits\n    IF ( FileExists ) THEN       \n\n       ! Verbose\n       IF ( Input_Opt%amIRoot ) THEN\n          WRITE(*,*) 'Reading tagged NOx tracer information from '//TRIM(TaggedConfigFile)\n       ENDIF \n\n       tagCF = ESMF_ConfigCreate( __RC__ )\n       Call ESMF_ConfigLoadFile(tagCF, TRIM(TaggedConfigFile), __RC__ )\n\n       Call ESMF_ConfigGetAttribute(tagCF, PartnerTag, Label = 'partner_tag:', &\n                                    Default = 0, __RC__ )\n       Call ESMF_ConfigGetAttribute(tagCF, nTagged, Label  ='nchem_tag:', &\n                                    Default = 0, __RC__ )          \n       ASSERT_( nTagged <= MaxTag )\n\n       IF ( nTagged > 0) THEN\n\n          ! Now that we know ntagged, can allocate vector arrays \n          ALLOCATE(TagID(nTagged), ParentID_GCC(nTagged), ParentID_KPP(nTagged), &\n                   TagIDb(nTagged), ParentIDb_GCC(nTagged), ParentIDb_KPP(nTagged))\n\n          ! Get GEOS-Chem and KPP index of the parent species. This is currently hardcoded\n          ! to be NO everywhere, so can do it outside of the nTagged loop below\n          ParentID_GCC(:)  = Ind_(TRIM(ParentName))\n          ASSERT_(ParentID_GCC(1)>0)\n\n          DO KppID = 1, State_Chm%nKppSpc\n             IF ( State_Chm%Map_KppSpc(KppId) == ParentID_GCC(1) ) THEN\n                ParentID_KPP(:) = KppID\n                EXIT\n             ENDIF\n          ENDDO\n          ! Make sure that KPP parent ID is valid\n          ASSERT_(ParentID_KPP(1)>0)\n\n          ! Get GEOS-Chem and KPP index of the parent species for the partner tag. \n          ! This is currently hardcoded to be NO2 everywhere, so can do it outside \n          ! of the nTagged loop below\n          IF ( PartnerTag > 0) THEN\n             ParentIDb_GCC(:) = Ind_(TRIM(ParentNameb))\n             ASSERT_(ParentIDb_GCC(1)>0)\n\n             DO KppID = 1, State_Chm%nKppSpc\n                IF ( State_Chm%Map_KppSpc(KppId) == ParentIDb_GCC(1) ) THEN\n                   ParentIDb_KPP(:) = KppID\n                   EXIT\n                ENDIF\n             ENDDO\n             ASSERT_(ParentIDb_KPP(1)>0)\n          ENDIF\n\n          ! Loop over all tagged species and assign species IDs\n          DO TagInd = 1, nTagged\n     \n             ! Species names are currently hardcoded to NO_TAG1, NO_TAG2, etc. \n             WRITE(TagName,\"(A5,I0)\") \"NOTAG\", TagInd\n             N = Ind_(TRIM(TagName))\n             IF ( N > 0 ) THEN\n                TagID(TagInd) = N\n                IF ( Input_Opt%amIRoot ) THEN\n                   WRITE(*,*) 'Tagged species: will apply chem P/L rates of '//TRIM(ParentName)//' to '//TRIM(TagName)\n                ENDIF\n\n                ! Check for partner tag, hardcoded to NO2_TAG1, NO2_TAG2, etc.\n                IF (PartnerTag > 0) THEN\n                   WRITE(TagNameb,\"(A6,I0)\") \"NO2TAG\", TagInd\n                   TagIDb(TagInd) = Ind_(TRIM(TagNameb))\n                   IF ( Input_Opt%amIRoot ) THEN\n                      WRITE(*,*) 'Tagged species: will use partner species '//TRIM(TagNameb)//' for '//TRIM(TagName)\n                   ENDIF\n                ENDIF\n             ENDIF\n          ENDDO\n       ENDIF ! nTagged>0\n    ENDIF ! FileExists\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE Init_TaggedSpecies \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Run_TaggedSpecies \n!\n! !DESCRIPTION: Run tagged species chemistry. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Run_TaggedSpecies( I, J, L, C, PRESS, TEMP, State_Chm, RC ) \n!\n! !USE:\n!\n    USE GcKpp_Parameters\n    USE ERROR_MOD\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(IN)            :: I,J,L\n    REAL(dp),            INTENT(IN)            :: C(NSPEC)\n    REAL(dp),            INTENT(IN)            :: PRESS \n    REAL(dp),            INTENT(IN)            :: TEMP \n    TYPE(ChmState)                             :: State_Chm\n    INTEGER,             INTENT(INOUT)         :: RC        ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  19 Mar 2024 - C. Keller / P. Wales - brought into GCv14 from v12 \n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER  :: N, itagID, SpcID, KppID, iTagIDb, SpcIDb, KppIDb\n    REAL(fp) :: Tag0, Tag1, Parent0, Parent1, Prat, TagThres, NOxrat\n\n    __Iam__('Run_TaggedSpecies')\n\n    !--------------------------------------------------------------------\n    ! Run tagged tracer chemistry\n    !--------------------------------------------------------------------\n\n    !=====================================================================\n    ! Check for tagged tracers and adjust those before updating the\n    ! Species arrays\n    !=====================================================================\n    IF ( nTagged > 0 ) THEN\n\n      ! Threshold is 1.E-14 mol/mol, convert to molecular density\n      ! density at STP * 298 K / 1013 hPa = 7.24E4\n      TagThres = 7.24e4_fp * PRESS / TEMP\n\n      DO N = 1, nTagged\n        iTagID  = TagID(N)\n        SpcID   = ParentID_GCC(N)\n        KppID   = ParentID_KPP(N)\n        iTagIDb = TagIDb(N)\n        SpcIDb  = ParentIDb_GCC(N)\n        KppIDb  = ParentIDb_KPP(N)\n\n        !!! If there is a partner compound for iTagID\n        IF ( iTagIDb > 0) THEN\n          Tag0    = State_Chm%Species(iTagID)%Conc(I,J,L) + &\n                    State_Chm%Species(iTagIDb)%Conc(I,J,L)\n          Parent0 = State_Chm%Species(SpcID)%Conc(I,J,L) + &\n                    State_Chm%Species(SpcIDb)%Conc(I,J,L)\n\n          IF ( Tag0 > TagThres .and. Parent0 > TagThres) THEN\n            Prat    = SAFE_DIV( Tag0, Parent0, 1.0_fp, 1.0_fp, 0.0_fp )\n            Prat    = MAX(MIN(Prat,1.0),0.0)\n\n            Parent1 = REAL(MAX(C(KppID),0.0_dp) + MAX(C(KppIDb),0.0_dp),kind=fp)\n            NOxrat  = SAFE_DIV(MAX(C(KppID),0.0_dp), Parent1, 1.0_fp, &\n                      1.0_fp, 0.0_fp )\n            NOxrat  = MAX(MIN(NOxrat,1.0),0.0)\n\n            Tag1 = REAL(Tag0 + ( Parent1 - Parent0 ) * Prat, kind=fp)\n            State_Chm%Species(iTagID)%Conc(I,J,L)  = MAX(Tag1 * NOxrat, 0.0_fp)\n            State_Chm%Species(iTagIDb)%Conc(I,J,L) = MAX(Tag1 * (1.0_fp - NOxrat), &\n                                                     0.0_fp)\n          ELSE\n            State_Chm%Species(iTagID)%Conc(I,J,L) = 0.0_fp\n            State_Chm%Species(iTagIDb)%Conc(I,J,L) = 0.0_fp\n          ENDIF\n\n        ! only scale iTagID\n        ELSE\n          Tag0    = State_Chm%Species(iTagID)%Conc(I,J,L)\n          Parent0 = State_Chm%Species(SpcID)%Conc(I,J,L)\n\n          IF ( Tag0 > TagThres .and. Parent0 > TagThres) THEN\n            Prat    = SAFE_DIV( Tag0, Parent0, 1.0_fp, 1.0_fp, 0.0_fp )\n            Prat    = MAX(MIN(Prat,1.0),0.0)\n            Parent1 = REAL(MAX(C(KppID),0.0_dp),kind=fp)\n\n            State_Chm%Species(iTagID)%Conc(I,J,L) = Tag0 + ( Parent1 - Parent0 ) * Prat\n            State_Chm%Species(iTagID)%Conc(I,J,L) = MAX(State_Chm%Species(iTagID)%Conc(I,J,L), &\n                                                0.0_fp)\n          ELSE\n            State_Chm%Species(iTagID)%Conc(I,J,L) = 0.0_fp\n          ENDIF\n        ENDIF\n      ENDDO\n    ENDIF                                                   \n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE Run_TaggedSpecies \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Finalize_TaggedSpecies \n!\n! !DESCRIPTION: Finalize tagged species arrays. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Finalize_TaggedSpecies( RC ) \n!\n! !USE:\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC        ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  19 Mar 2024 - C. Keller / P. Wales - brought into GCv14 from v12 \n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    __Iam__('Finalize_TaggedSpecies')\n\n    IF ( ALLOCATED(TagID        ) ) DEALLOCATE(TagID)\n    IF ( ALLOCATED(ParentID_GCC ) ) DEALLOCATE(ParentID_GCC)\n    IF ( ALLOCATED(ParentID_KPP ) ) DEALLOCATE(ParentID_KPP)\n    IF ( ALLOCATED(TagIDb       ) ) DEALLOCATE(TagIDb)\n    IF ( ALLOCATED(ParentIDb_GCC) ) DEALLOCATE(ParentIDb_GCC)\n    IF ( ALLOCATED(ParentIDb_KPP) ) DEALLOCATE(ParentIDb_KPP)\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE Finalize_TaggedSpecies \n!EOC\nEND MODULE GEOS_TaggedSpecies\n"
  },
  {
    "path": "Interfaces/GEOS/geos_aerocoupler.F90",
    "content": "#include \"MAPL_Generic.h\"\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: geos_aerocupler\n!\n! !DESCRIPTION: Module with routines and variables to couple GEOS-Chem aerosols \n!  with GEOS \n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GEOS_AeroCoupler\n!\n! !USES:\n!\n  ! MAPL/ESMF\n  USE ESMF     \n  USE MAPL_Mod \n  USE Chem_Mod\n  ! GEOS-Chem\n  USE Precision_Mod\n  USE ErrCode_Mod                                    ! Error numbers\n  USE Input_Opt_Mod,         ONLY : OptInput\n  USE State_Chm_Mod,         ONLY : ChmState, Ind_   ! Chemistry State obj\n  USE State_Met_Mod,         ONLY : MetState         ! Meteorology State obj\n  USE State_Diag_Mod,        ONLY : DgnState         ! Diagnostics State obj\n  USE State_Grid_Mod,        ONLY : GrdState         ! Grid State obj\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: GEOS_FillAeroBundle \n  PUBLIC   :: GEOS_AeroSetServices\n  PUBLIC   :: GEOS_AeroInit\n  PUBLIC   :: GEOS_AerosolOptics\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE  :: FillAeroDP_\n!\n! !PUBLIC TYPES\n!\n!\n! !PRIVATE TYPES:\n!\n  ! Mie table\n  TYPE(Chem_Mie)             :: geoschemMieTable(2)\n  INTEGER, PARAMETER         :: instanceComputational = 1\n\n  ! GEOS-5 only (also in gchp_providerservices_mod but don't use that yet):\n  ! List here GEOS-Chem tracer names and corresponding names to be assigned\n  ! to the AERO bundle (if GC is the AERO provider). The names in the AERO\n  ! bundle must be the names that are expected by the irradiation component:\n  ! - OCphobic, OCphilic, BCphobic, and BCphilic for hydrophobic and hydrophilic\n  !   organic and black carbon, respectively\n  ! - SO4 for SO4\n  ! - du001 - du005 for the following five dust bins (see DU_GridComp.rc in\n  !   GOCART):\n  !   radius_lower: 0.1 1.0 1.8 3.0 6.0\n  !   radius_upper: 1.0 1.8 3.0 6.0 10.0\n  !\n  !   The GEOS-Chem dust bins are:\n  !   Reff: 0.7 1.4 2.4 4.5\n  !   Those become simply mapped onto the GOCART dust bins 1-4\n  !   (du001 ... du004).\n  !\n  ! - ss001-ss005 for the following five sea salt aerosol bins\n  !   (see SS_GridComp.rc\n  !   in GOCART):\n  !   radius_lower: 0.03 0.1 0.5 1.5 5.0\n  !   radius_upper: 0.1  0.5 1.5 5.0 10.0\n  !\n  !   The GEOS-Chem sea salt aerosols are (SALA and SALC):\n  !   radius_lower: 0.01 0.5\n  !   radius_upper: 0.5  8.0\n  !   SALA becomes mapped onto ss001 and ss002, and SALC onto ss003, ss004,\n  !   ss005. For now, we assume uniform size distribution within the\n  !   GEOS-Chem bins, i.e. the GEOS-Chem size bins are evenly split into the\n  !   GOCART bins. The fractions can be specified below.\n  !   At some point, we may revisit these fractions (at least take into\n  !   account the log-normal behavior of the aerosol distribution)\n  INTEGER, PARAMETER           :: NumAERO = 11\n\n  CHARACTER(LEN=ESMF_MAXSTR)   :: GcNames(NumAero) = &\n                                  (/ 'DST1',  'DST2',  'DST3',  'DST4',     &\n                                     'SALA',  'SALC',  'BCPO',  'BCPI',     &\n                                     'OCPO',  'OCPI',  'SO4 '                /)\n\n  CHARACTER(LEN=ESMF_MAXSTR)   :: AeroNames(NumAero) = &\n                         (/ 'du001   ', 'du002   ', 'du003   ', 'du004   ', &\n                            'ss001   ', 'ss003   ', 'BCphobic', 'BCphilic', &\n                            'OCphobic', 'OCphilic', 'SO4     '               /)\n\n  ! Fraction of SALA in ss001 and ss002, respectively\n  CHARACTER(LEN=ESMF_MAXSTR)   :: SALAnames(2) = (/ 'ss001', 'ss002' /)\n  REAL, PARAMETER              :: SALAsplit(2) = (/  0.2,     0.8    /)\n\n  ! Fraction of SALC in ss003, ss004, and ss005.\n  CHARACTER(LEN=ESMF_MAXSTR) :: SALCnames(3) = (/ 'ss003', 'ss004' , 'ss005' /)\n  REAL, PARAMETER            :: SALCsplit(3) = (/  0.13,    0.47,     0.4    /)\n\n  CHARACTER(LEN=ESMF_MAXSTR)   :: DST4names(2) = (/ 'du004', 'du005' /)\n  REAL, PARAMETER              :: DST4split(2) = (/  1.00,    0.0    /)\n\n  ! Molecular weights (g/mol) used by GOCART\n  REAL                         :: GocartMW(NumAero) = &\n                                  (/ 100.0,  100.0,  100.0,  100.0 ,     &\n                                      58.0,   58.0,  180.0,  180.0 ,     &\n                                     180.0,  180.0,  132.0                /)\n\n! !REVISION HISTORY:\n!  05 Jul 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for full history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AeroSetServices\n!\n! !DESCRIPTION: Set services for aerosol coupling (if requested) \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_AeroSetServices( GC, DoAERO, RC ) \n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC       ! Ref to this GridComp\n    LOGICAL,             INTENT(INOUT)         :: DoAERO   ! Is GCC the aerosol provider?\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  12 Jul 2022 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    TYPE(ESMF_CONFIG)            :: CF\n    CHARACTER(LEN=ESMF_MAXSTR)   :: ProviderName \n\n    __Iam__('GEOS_AeroSetServices')\n\n    !=======================================================================\n    ! GEOS_AeroSetServices starts here\n    !=======================================================================\n\n    ! Get configuration\n    CALL ESMF_GridCompGet( GC, CONFIG = CF, __RC__ )\n\n    ! See if GC is the AERO provider\n    DoAERO = .FALSE.\n    CALL ESMF_ConfigGetAttribute( CF, ProviderName,       &\n                                  Label=\"AERO_PROVIDER:\", &\n                                  Default=\"PCHEM\",        &\n                                  __RC__                   )\n    IF ( ProviderName == \"GEOSCHEMCHEM\" ) DoAERO = .TRUE.\n\n    ! Add AERO and AERO_DP bundles to export state if GEOS-Chem is the\n    ! AERO provider\n    ! ----------------------------------------------------------------\n    IF ( DoAERO ) THEN\n\n       ! The AERO bundle contains DUST, SALT, SO4, BC, and OC.\n       ! These quantities will be obtained from the respective\n       ! GEOS-Chem internal state quantities.\n       ! Fields are added to bundle in the initialize routine.\n       call MAPL_AddExportSpec(GC,                                  &\n          SHORT_NAME         = 'AERO',                              &\n          LONG_NAME          = 'aerosol_mass_mixing_ratios',        &\n          UNITS              = 'kg kg-1',                           &\n          DIMS               = MAPL_DimsHorzVert,                   &\n          VLOCATION          = MAPL_VLocationCenter,                &\n          DATATYPE           = MAPL_StateItem,                      &\n                                                            __RC__ )\n       ! This bundle is needed by surface for snow albedo modification.\n       ! At the moment, it is not filled by GEOS-Chem.\n       call MAPL_AddExportSpec(GC,                                  &\n          SHORT_NAME         = 'AERO_DP',                           &\n          LONG_NAME          = 'aerosol_deposition',                &\n          UNITS              = 'kg m-2 s-1',                        &\n          DIMS               = MAPL_DimsHorzOnly,                   &\n          DATATYPE           = MAPL_BundleItem,                     &\n                                                            __RC__ )\n\n       ! Fields of AERO_DP bundle:\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUDP_DST1',                &\n          LONG_NAME          = 'dust1_dry_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUDP_DST2',                &\n          LONG_NAME          = 'dust2_dry_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUDP_DST3',                &\n          LONG_NAME          = 'dust3_dry_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n    \n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUDP_DST4',                &\n          LONG_NAME          = 'dust4_dry_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUWT_DST1',                &\n          LONG_NAME          = 'dust1_wet_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUWT_DST2',                &\n          LONG_NAME          = 'dust2_wet_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUWT_DST3',                &\n          LONG_NAME          = 'dust3_wet_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'DUWT_DST4',                &\n          LONG_NAME          = 'dust4_wet_depostion',      &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'BCDP_BCPI',                &\n          LONG_NAME          = 'BCPI_dry_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'BCDP_BCPO',                &\n          LONG_NAME          = 'BCPO_dry_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'BCWT_BCPI',                &\n          LONG_NAME          = 'BCPI_wet_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'BCWT_BCPO',                &\n          LONG_NAME          = 'BCPO_wet_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'OCDP_OCPI',                &\n          LONG_NAME          = 'OCPI_dry_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'OCDP_OCPO',                &\n          LONG_NAME          = 'OCPO_dry_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'OCWT_OCPI',                &\n          LONG_NAME          = 'OCPI_wet_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'OCWT_OCPO',                &\n          LONG_NAME          = 'OCPO_wet_depostion',       &\n          UNITS              = 'kg m-2 s-1',               &\n          DIMS               = MAPL_DimsHorzOnly,          &\n          VLOCATION          = MAPL_VLocationNone,         &\n                                                   __RC__ )\n\n       !!! to diagnose fields in AERO bundle\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_OCphobic',            &\n          LONG_NAME          = 'AERO_OCphobic',            &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_OCphilic',            &\n          LONG_NAME          = 'AERO_OCphilic',            &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_BCphobic',            &\n          LONG_NAME          = 'AERO_BCphobic',            &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_BCphilic',            &\n          LONG_NAME          = 'AERO_BCphilic',            &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_SO4',                 &\n          LONG_NAME          = 'AERO_SO4',                 &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_du001',               &\n          LONG_NAME          = 'AERO_du001',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_du002',               &\n          LONG_NAME          = 'AERO_du002',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_du003',               &\n          LONG_NAME          = 'AERO_du003',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_du004',               &\n          LONG_NAME          = 'AERO_du004',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_du005',               &\n          LONG_NAME          = 'AERO_du005',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_ss001',               &\n          LONG_NAME          = 'AERO_ss001',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_ss002',               &\n          LONG_NAME          = 'AERO_ss002',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_ss003',               &\n          LONG_NAME          = 'AERO_ss003',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_ss004',               &\n          LONG_NAME          = 'AERO_ss004',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n\n       call MAPL_AddExportSpec(GC,                         &\n          SHORT_NAME         = 'AERO_ss005',               &\n          LONG_NAME          = 'AERO_ss005',               &\n          UNITS              = 'kg kg-1',                  &\n          DIMS               = MAPL_DimsHorzVert,          &\n          VLOCATION          = MAPL_VLocationCenter,       &\n                                                   __RC__ )\n    ENDIF ! DoAERO\n\n    _RETURN(ESMF_SUCCESS)\n\n    END SUBROUTINE GEOS_AeroSetServices\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AeroInit\n!\n! !DESCRIPTION: Routine to initialize the aerosol bundle. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_AeroInit( GC, MaplCF, INTERNAL, EXPORT, Grid, RC ) \n!\n! !USES:\n!\n    USE DiagList_Mod,       ONLY : SPFX\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC       ! Ref to this GridComp\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: MaplCF   ! MAPL.rc\n    TYPE(ESMF_State),    INTENT(INOUT)         :: INTERNAL ! Internal State \n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export   ! Export State\n    TYPE(ESMF_Grid),     INTENT(INOUT)         :: Grid     ! Grid object\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  12 Jul 2022 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Aerosol bundle\n    REAL                         :: GCMW, FRAC\n    INTEGER                      :: instance\n    INTEGER                      :: I, J, NFLDS\n    INTEGER                      :: GCID\n    TYPE(ESMF_STATE)             :: Aero\n    TYPE(ESMF_FieldBundle)       :: AeroBdl\n    TYPE(ESMF_Field)             :: AeroFld, GcFld\n    LOGICAL                      :: DynFriend, FRIENDLY\n    LOGICAL                      :: IsPresent\n    CHARACTER(LEN=ESMF_MAXSTR)   :: GCName, AeroName, fieldName\n    REAL, POINTER                :: Ptr3D(:,:,:) => NULL()\n\n    __Iam__('GEOS_AeroInit')\n\n    !=======================================================================\n    ! GEOS_AeroInit starts here\n    !=======================================================================\n\n       ! Get AERO bundle\n       CALL ESMF_StateGet( EXPORT, 'AERO', Aero, __RC__ )\n\n       ! This attribute indicates if the aerosol optics method is implemented\n       ! or not. Radiation will not call the aerosol optics method unless this\n       ! attribute is explicitly set to true.\n       call ESMF_AttributeSet(Aero, name='implements_aerosol_optics_method', &\n                              value=.true., __RC__)\n       AeroBdl = ESMF_FieldBundleCreate(name='AEROSOLS', __RC__)\n       call MAPL_StateAdd(Aero, AeroBdl, __RC__)\n\n       ! Loop over all GC tracers that we may want to add to the AERO\n       ! bundle\n       DO I = 1, NumAERO\n\n          ! Get GEOS-Chem tracer ID\n          GCID = Ind_( TRIM(GcNames(I)) )\n\n          ! If species is defined, copy field and add to AERO bundle\n          IF ( GCID > 0 ) THEN\n\n             ! This is the name in the internal state\n             GCName = TRIM(SPFX) // TRIM(GcNames(I))\n\n             ! Get field from internal state\n             CALL ESMF_StateGet( INTERNAL, TRIM(GCName), GcFld, RC=RC )\n\n             ! Try TRC_<NAME> if SPC_<NAME> not found\n             IF ( RC /= ESMF_SUCCESS ) THEN\n                GCName = 'TRC_'//TRIM(GcNames(I))\n                CALL ESMF_StateGet( INTERNAL, TRIM(GCName), GcFld, RC=RC )\n             ENDIF\n\n             ! Error if none of the above found\n             IF ( RC /= ESMF_SUCCESS ) THEN\n                WRITE(*,*) 'Cannot fill AERO bundle - field not found in ' // &\n                           'internal state: ' // TRIM(GCName)\n                _ASSERT(.FALSE.,'Error filling AERO bundle')\n             ENDIF\n\n             ! Set number of fields to be created. This is only different from\n             ! 1 for sea salt aerosols, which are mapped onto multiple AERO\n             ! fields.\n             NFLDS = 1\n             IF ( TRIM(GcNames(I)) == 'SALA' ) NFLDS = 2\n             IF ( TRIM(GcNames(I)) == 'SALC' ) NFLDS = 3\n             IF ( TRIM(GcNames(I)) == 'DST4' ) NFLDS = 2\n\n             ! Now create all fields\n             DO J = 1, NFLDS\n\n                ! AERO field name\n                AeroName = TRIM(AeroNames(I))\n                IF ( TRIM(GcNames(I)) == 'SALA' ) AeroName = SALAnames(J)\n                IF ( TRIM(GcNames(I)) == 'SALC' ) AeroName = SALCnames(J)\n                IF ( TRIM(GcNames(I)) == 'DST4' ) AeroName = DST4names(J)\n\n                ! Create new field\n                AeroFld = MAPL_FieldCreate( GcFld, name=AeroName, &\n                                            DoCopy=.TRUE., __RC__  )\n\n                ! Get molecular weight (g/mol)\n                GCMW = GocartMW(I)\n\n                ! Fraction of the GC field to be used in the AERO field\n                FRAC = 1.0\n                IF ( TRIM(GcNames(I)) == 'SALA' ) FRAC = SALAsplit(J)\n                IF ( TRIM(GcNames(I)) == 'SALC' ) FRAC = SALCsplit(J)\n                IF ( TRIM(GcNames(I)) == 'DST4' ) FRAC = DST4split(J)\n\n                ! Pass GEOS-Chem field name, molecular weight and fraction\n                ! to be used to bundle for easier handling lateron\n                CALL ESMF_AttributeSet ( AeroFld, NAME='GCNAME', &\n                                         VALUE=GCName, __RC__ )\n                CALL ESMF_AttributeSet ( AeroFld, NAME='GCMW',   &\n                                         VALUE=GCMW,   __RC__ )\n                CALL ESMF_AttributeSet ( AeroFld, NAME='FRAC',   &\n                                         VALUE=FRAC,   __RC__ )\n\n                ! Before adding to the bundle, convert data from mol/mol to\n                ! kg/kg. Data is now stored in kg/kg total. (ckeller, 3/7/17)\n                CALL ESMF_FieldGet( AeroFld, farrayPtr=Ptr3D, __RC__ )\n                !Ptr3D = Ptr3D * GCMW / MAPL_AIRMW * FRAC\n                Ptr3D = Ptr3D * FRAC\n                Ptr3D => NULL()\n\n                ! Add to bundle\n                CALL MAPL_FieldBundleAdd ( AeroBdl, AeroFld, __RC__ )\n             ENDDO !J\n          ENDIF\n       ENDDO\n\n       ! Mie table\n       instance = instanceComputational\n       geoschemMieTable(instance) = Chem_MieCreate(MaplCF, __RC__)\n       call ESMF_AttributeSet(aero, name='mie_table_instance', &\n                              value=instance, __RC__)\n\n       ! state of the atmosphere\n       call ESMF_AttributeSet(aero, name='air_pressure_for_aerosol_optics',             value='PLE', __RC__)\n       call ESMF_AttributeSet(aero,   &\n                              name='relative_humidity_for_aerosol_optics',  &\n                              value='RH',  __RC__)\n       ! 'cloud_area_fraction_in_atmosphere_layer_for_aerosol_optics'\n       call ESMF_AttributeSet(aero,   &\n                              name='cloud_area_fraction_for_aerosol_optics', &\n                              value='',    __RC__)\n\n       ! aerosol optics\n       call ESMF_AttributeSet(aero, name='band_for_aerosol_optics',                     value=0,     __RC__)\n       call ESMF_AttributeSet(aero,  &\n                     name='extinction_in_air_due_to_ambient_aerosol', &\n                     value='EXT', __RC__)\n       call ESMF_AttributeSet(aero,  &\n                     name='single_scattering_albedo_of_ambient_aerosol', &\n                     value='SSA', __RC__)\n       call ESMF_AttributeSet(aero,  &\n                     name='asymmetry_parameter_of_ambient_aerosol', &\n                     value='ASY', __RC__)\n\n       ! add PLE to Aero state\n       call ESMF_AttributeGet(aero,  &\n                     name='air_pressure_for_aerosol_optics',  &\n                     value=fieldName, __RC__)\n       if (fieldName /= '') then\n          aeroFld = MAPL_FieldCreateEmpty(trim(fieldName), grid, __RC__)\n\n          call MAPL_FieldAllocCommit(aeroFld, dims=MAPL_DimsHorzVert, &\n                                     location=MAPL_VLocationEdge,     &\n                                     typekind=MAPL_R4, hw=0, __RC__)\n          call MAPL_StateAdd(aero, aeroFld, __RC__)\n       end if\n\n       ! add RH to Aero state\n       call ESMF_AttributeGet(aero,  &\n                      name='relative_humidity_for_aerosol_optics', &\n                      value=fieldName, __RC__)\n       if (fieldName /= '') then\n          aeroFld = MAPL_FieldCreateEmpty(trim(fieldName), grid, __RC__)\n\n          call MAPL_FieldAllocCommit(aeroFld, dims=MAPL_DimsHorzVert, &\n                                     location=MAPL_VLocationCenter,   &\n                                     typekind=MAPL_R4, hw=0, __RC__)\n          call MAPL_StateAdd(aero, aeroFld, __RC__)\n       end if\n\n       ! add EXT to Aero state\n       call ESMF_AttributeGet(aero,  &\n                            name='extinction_in_air_due_to_ambient_aerosol', &\n                            value=fieldName, __RC__)\n       if (fieldName /= '') then\n          aeroFld = MAPL_FieldCreateEmpty(trim(fieldName), grid, __RC__)\n\n          call MAPL_FieldAllocCommit(aeroFld, dims=MAPL_DimsHorzVert, &\n                                     location=MAPL_VLocationCenter,   &\n                                     typekind=MAPL_R4, hw=0, __RC__)\n          call MAPL_StateAdd(aero, aeroFld, __RC__)\n       end if\n\n       ! add SSA to aero state\n       call ESMF_AttributeGet(aero,  &\n                         name='single_scattering_albedo_of_ambient_aerosol',  &\n                         value=fieldName, __RC__)\n       if (fieldName /= '') then\n          aeroFld = MAPL_FieldCreateEmpty(trim(fieldName), grid, __RC__)\n\n          call MAPL_FieldAllocCommit(aeroFld, dims=MAPL_DimsHorzVert, &\n                                     location=MAPL_VLocationCenter,   &\n                                     typekind=MAPL_R4, hw=0, __RC__)\n          call MAPL_StateAdd(aero, aeroFld, __RC__)\n       end if\n\n       ! add ASY to aero state\n       call ESMF_AttributeGet(aero,   &\n                              name='asymmetry_parameter_of_ambient_aerosol', &\n                              value=fieldName, __RC__)\n       if (fieldName /= '') then\n          aeroFld = MAPL_FieldCreateEmpty(trim(fieldName), grid, __RC__)\n\n          call MAPL_FieldAllocCommit(aeroFld, dims=MAPL_DimsHorzVert, &\n                                     location=MAPL_VLocationCenter,   &\n                                     typekind=MAPL_R4, hw=0, __RC__)\n          call MAPL_StateAdd(aero, aeroFld, __RC__)\n       end if\n\n       ! attach the aerosol optics method\n       call ESMF_MethodAdd(aero, label='aerosol_optics', &\n                           userRoutine=GEOS_AerosolOptics, __RC__)\n\n       ! ---------------------------------------------------------------------\n       ! Initialize the AERO_DP bundle\n       ! ---------------------------------------------------------------------\n       CALL ESMF_StateGet( EXPORT, 'AERO_DP', AeroBdl, __RC__ )\n\n       ! Dust dry and wet deposition\n       CALL ESMF_StateGet( EXPORT, 'DUDP_DST1', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUDP_DST2', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUDP_DST3', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUDP_DST4', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUWT_DST1', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUWT_DST2', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUWT_DST3', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'DUWT_DST4', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       ! Black carbon dry and wet depostion\n       CALL ESMF_StateGet( EXPORT, 'BCDP_BCPI', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'BCDP_BCPO', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'BCWT_BCPI', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'BCWT_BCPO', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       ! Organic carbon dry and wet depostion\n       CALL ESMF_StateGet( EXPORT, 'OCDP_OCPI', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'OCDP_OCPO', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'OCWT_OCPI', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n       CALL ESMF_StateGet( EXPORT, 'OCWT_OCPO', AeroFld, __RC__ )\n       CALL MAPL_FieldBundleAdd( AeroBdl, AeroFld, __RC__ )\n\n    ! Return\n    _RETURN(ESMF_SUCCESS)\n\n    END SUBROUTINE GEOS_AeroInit\n!EOC\n!------------------------------------------------------------------------------\n\n\n\n\n\n\n\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_FillAeroBundle\n!\n! !DESCRIPTION: Routine to fill the aerosol bundle. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_FillAeroBundle( GC, EXPORT, State_Chm, State_Grid, Input_Opt, RC ) \n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC     ! Ref to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export   ! Export State\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm\n    TYPE(GrdState),      INTENT(INOUT)         :: State_Grid\n    TYPE(OptInput),      INTENT(INOUT)         :: Input_Opt\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  05 Jul 2022 - C. Keller   - Initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    LOGICAL                      :: am_I_Root\n    REAL                         :: GCMW, FRAC\n    INTEGER                      :: N, IndSpc\n    INTEGER                      :: nAero, nLen, GCID\n    TYPE(ESMF_STATE)             :: Aero\n    TYPE(ESMF_FieldBundle)       :: AeroBdl\n    TYPE(ESMF_Field)             :: AeroFld\n    CHARACTER(LEN=ESMF_MAXSTR)   :: GCName, AeroName\n    REAL(fp), POINTER            :: GcPtr3d  (:,:,:) => NULL()\n    REAL, POINTER                :: AeroPtr3d(:,:,:) => NULL()\n\n    INTEGER, PARAMETER           :: NRATS = 5\n    CHARACTER(LEN=15), PARAMETER :: RatsNames(NRATS) = (/ 'CH4', 'N2O', 'CFC11', 'CFC12', 'HCFC22' /)\n\n    __Iam__('GEOS_FillAeroBundle')\n\n    !=======================================================================\n    ! GEOS_FillAeroBundle starts here\n    !=======================================================================\n\n    ! Are we on the root PET?\n    am_I_Root = MAPL_Am_I_Root()\n\n    ! For every field of the AERO bundle, we will copy the corresponding\n    ! GEOS-Chem tracer field, converting units from mol mol-1 to kg kg-1.\n\n    ! Get AERO bundle\n    CALL ESMF_StateGet( EXPORT, 'AERO',     Aero,    __RC__ )\n    CALL ESMF_StateGet( Aero,   'AEROSOLS', AeroBdl, __RC__ )\n\n    ! Number of fields in the AERO Bundle\n    CALL ESMF_FieldBundleGet ( AeroBdl, FieldCount=nAero, __RC__ )\n\n    ! Update every field\n    DO N = 1, nAero\n\n       ! Get field\n       CALL ESMF_FieldBundleGet( AeroBdl, N, AeroFld, __RC__ )\n\n       ! Extract GC tracer name, molecular weight and fraction to be used\n       CALL ESMF_AttributeGet( AeroFld, NAME='GCNAME', VALUE=GcName, __RC__ )\n       CALL ESMF_AttributeGet( AeroFld, NAME='GCMW'  , VALUE=GCMW,   __RC__ )\n       CALL ESMF_AttributeGet( AeroFld, NAME='FRAC',   VALUE=FRAC,  __RC__ )\n\n       ! Get pointer to Aero data\n       CALL ESMF_FieldGet( AeroFld, farrayPtr=AeroPtr3D, __RC__ )\n\n       ! Get pointer to GC data\n       nlen = LEN(TRIM(GcName))\n       IndSpc = Ind_(TRIM(GcName(5:nlen)))\n       ASSERT_(IndSpc>0)\n       GcPtr3D => State_Chm%Species(IndSpc)%Conc(:,:,State_Grid%NZ:1:-1)\n       !CALL MAPL_GetPointer ( INTSTATE, GcPtr3D, TRIM(GcName), __RC__ )\n\n       ! Pass GC to AERO. Convert from mol/mol to kg/kg. Only use the\n       ! fraction specified during initialization (different from 1 for\n       ! sea salt aerosols only)\n       !AeroPtr3D = GcPtr3D * FRAC * GCMW / MAPL_AIRMW\n       AeroPtr3D = GcPtr3D * FRAC\n\n       !!! writing to diagnostics\n       GcPtr3D   => NULL()\n       CALL ESMF_FieldGet( AeroFld, NAME=GcName, __RC__ )\n       CALL MAPL_GetPointer ( EXPORT, GcPtr3D, 'AERO_'//TRIM(GcName), &\n                              NotFoundOk=.TRUE., __RC__ )\n       IF ( ASSOCIATED(GcPtr3D) ) GcPtr3D = AeroPtr3D\n\n       ! Free pointers\n       GcPtr3D   => NULL()\n       AeroPtr3D => NULL()\n    ENDDO\n\n    ! Fill AERO_DP bundle\n    CALL FillAeroDP_ ( am_I_Root, GC, EXPORT, Input_Opt, __RC__ )\n\n    _RETURN(ESMF_SUCCESS)\n\n    END SUBROUTINE GEOS_FillAeroBundle\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AerosolOptics \n!\n! !DESCRIPTION: Aerosol optics routine, adapted from GOCART \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  ! Adapted from the GOCART interface\n  subroutine GEOS_AerosolOptics(state, rc)\n!\n! !USES:\n!\n!\n! !PARAMETERS:\n!\n    type(ESMF_State)     :: state\n    integer, intent(out) :: rc\n!\n! !REVISION HISTORY:\n!  06 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    integer                                 :: n_aerosols\n    character(len=ESMF_MAXSTR), allocatable :: aerosol_names(:)\n    type(ESMF_FieldBundle)                  :: aerosols\n\n    real, dimension(:,:,:), pointer         :: ple\n    real, dimension(:,:,:), pointer         :: rh\n    real, dimension(:,:,:), pointer         :: var\n    real, dimension(:,:,:), pointer         :: q\n    real, dimension(:,:,:,:), pointer       :: q_4d\n\n    real, dimension(:,:,:), allocatable     :: dp, f_p\n\n    character(len=ESMF_MAXSTR)              :: fld_name\n    type(ESMF_Field)                        :: fld\n\n    real, dimension(:,:,:,:), allocatable   :: ext, ssa, asy ! (lon:,lat:,lev:,band:)\n\n    integer                                 :: n\n    integer                                 :: i1, j1, i2, j2, km\n\n    integer                                 :: band, offset\n\n    integer                                 :: instance\n\n    integer                                 :: STATUS\n    character(len=ESMF_MAXSTR)              :: Iam\n\n    integer, parameter                      :: n_bands = 1\n\n    real    :: x\n    integer :: i, j, k\n\n    Iam = 'GEOSCHEMCHEM::GEOS_AerosolOptics()'\n\n    ! Mie Table instance/index\n    ! ------------------------\n    call ESMF_AttributeGet(state, name='mie_table_instance',  &\n                           value=instance, __RC__)\n\n    ! Radiation band\n    ! --------------\n    band = 0\n    call ESMF_AttributeGet(state, name='band_for_aerosol_optics',  &\n                           value=band, __RC__)\n    offset = band - n_bands\n\n    ! Pressure at layer edges\n    ! ------------------------\n    call ESMF_AttributeGet(state, name='air_pressure_for_aerosol_optics', &\n                           value=fld_name, __RC__)\n    call MAPL_GetPointer(state, ple, trim(fld_name), __RC__)\n\n    i1 = lbound(ple, 1); i2 = ubound(ple, 1)\n    j1 = lbound(ple, 2); j2 = ubound(ple, 2)\n    km = ubound(ple, 3)\n\n    ! Relative humidity\n    ! -----------------\n    call ESMF_AttributeGet(state, name='relative_humidity_for_aerosol_optics', &\n                           value=fld_name, __RC__)\n    call MAPL_GetPointer(state, rh, trim(fld_name), __RC__)\n\n    i1 = lbound(rh, 1); i2 = ubound(rh, 1)\n    j1 = lbound(rh, 2); j2 = ubound(rh, 2)\n    km = ubound(rh, 3)\n\n    call ESMF_StateGet(state, 'AEROSOLS', aerosols, __RC__)\n    call ESMF_FieldBundleGet(aerosols, fieldCount=n_aerosols, __RC__)\n\n    allocate(aerosol_names(n_aerosols), __STAT__)\n\n    call ESMF_FieldBundleGet(aerosols, FieldNameList=aerosol_names, __RC__)\n\n    allocate(ext(i1:i2,j1:j2,km,n_bands), &\n         ssa(i1:i2,j1:j2,km,n_bands), &\n         asy(i1:i2,j1:j2,km,n_bands), __STAT__)\n\n    allocate(q_4d(i1:i2,j1:j2,km,n_aerosols), __STAT__)\n\n#if (0)\n    allocate(dp(i1:i2,j1:j2,km), f_p(i1:i2,j1:j2,km), __STAT__)\n\n    dp  = ple(:,:,1:km) - ple(:,:,0:km-1)\n    f_p = dp / MAPL_GRAV\n\n    do n = 1, n_aerosols\n       call ESMF_FieldBundleGet(aerosols, trim(aerosol_names(n)),  &\n                                field=fld, __RC__)\n       call ESMF_FieldGet(fld, farrayPtr=q, __RC__)\n\n       q_4d(:,:,:,n) = f_p * q\n    end do\n\n    call ESMF_AttributeGet(state, name='mie_table_instance',  &\n                           value=instance, __RC__)\n    call mie_(geoschemMieTable(instance), aerosol_names, n_bands, &\n              offset, q_4d, rh, ext, ssa, asy, __RC__)\n\n    deallocate(dp, f_p, __STAT__)\n#else\n    do n = 1, n_aerosols\n       call ESMF_FieldBundleGet(aerosols, trim(aerosol_names(n)), &\n                                field=fld, __RC__)\n       call ESMF_FieldGet(fld, farrayPtr=q, __RC__)\n\n       do k = 1, km\n          do j = j1, j2\n             do i = i1, i2\n                x = ((PLE(i,j,k) - PLE(i,j,k-1))*0.01)*(100./MAPL_GRAV)\n                q_4d(i,j,k,n) = x * q(i,j,k)\n             end do\n          end do\n       end do\n    end do\n\n    call mie_(geoschemMieTable(instance), aerosol_names, n_bands,  &\n              offset, q_4d, rh, ext, ssa, asy, __RC__)\n#endif\n\n    call ESMF_AttributeGet(state,                                            &\n                           name='extinction_in_air_due_to_ambient_aerosol',  &\n                           value=fld_name, __RC__)\n    if (fld_name /= '') then\n       call MAPL_GetPointer(state, var, trim(fld_name), __RC__)\n       var = ext(:,:,:,1)\n    end if\n\n    call ESMF_AttributeGet(state,                                             &\n                           name='single_scattering_albedo_of_ambient_aerosol',&\n                           value=fld_name, __RC__)\n    if (fld_name /= '') then\n       call MAPL_GetPointer(state, var, trim(fld_name), __RC__)\n       var = ssa(:,:,:,1)\n    end if\n\n    call ESMF_AttributeGet(state,                                         &\n                           name='asymmetry_parameter_of_ambient_aerosol', &\n                           value=fld_name, __RC__)\n    if (fld_name /= '') then\n       call MAPL_GetPointer(state, var, trim(fld_name), __RC__)\n       var = asy(:,:,:,1)\n    end if\n\n    deallocate(aerosol_names, ext, ssa, asy, q_4d, __STAT__)\n\n    _RETURN(ESMF_SUCCESS)\n\n  contains\n\n    subroutine mie_(mie_table, aerosol, nb, offset, q, rh, ext, ssa, asy, rc)\n\n      implicit none\n\n      type(Chem_Mie),    intent(inout):: mie_table    ! mie table\n      character(len=*),  intent(in )  :: aerosol(:)   ! list of aerosols\n      integer,           intent(in )  :: nb           ! number of bands\n      integer,           intent(in )  :: offset       ! bands offset\n      real,              intent(in )  :: q(:,:,:,:)   ! aerosol mass mixing\n                                                      ! ratio, kg kg-1\n      real,              intent(in )  :: rh(:,:,:)    ! relative humidity\n\n      real,              intent(out)  :: ext(:,:,:,:) ! extinction\n      real,              intent(out)  :: ssa(:,:,:,:) ! SSA\n      real,              intent(out)  :: asy(:,:,:,:) ! asymmetry parameter\n\n      integer,           intent(out)  :: rc\n\n      ! local\n      integer :: STATUS\n      character(len=ESMF_MAXSTR) :: Iam='aerosol_optics::mie_'\n\n      integer :: l, idx, na\n\n      real(kind=8) :: ext_(size(ext,1),size(ext,2),size(ext,3),size(ext,4))\n      real(kind=8) :: ssa_(size(ext,1),size(ext,2),size(ext,3),size(ext,4))\n      real(kind=8) :: asy_(size(ext,1),size(ext,2),size(ext,3),size(ext,4))\n\n      na = size(aerosol)\n\n      _ASSERT (na == size(q,4),'Error in number of aerosols')\n\n      ext_ = 0.0d0\n      ssa_ = 0.0d0\n      asy_ = 0.0d0\n\n      do l = 1, na\n         idx = Chem_MieQueryIdx(mie_table, trim(aerosol(l)), __RC__)\n\n         call Chem_MieQueryAllBand4D(mie_table, idx, nb, offset, &\n                                     q(:,:,:,l), rh, ext, ssa, asy, __RC__)\n\n         ext_ = ext_ +          ext     ! total extinction\n         ssa_ = ssa_ +     (ssa*ext)    ! total scattering\n         asy_ = asy_ + asy*(ssa*ext)    ! sum of (asy * sca)\n      end do\n\n      ext = ext_\n      ssa = ssa_\n      asy = asy_\n\n      _RETURN(ESMF_SUCCESS)\n\n    end subroutine mie_\n\n  end subroutine GEOS_AerosolOptics \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FillAeroDP_\n!\n! !DESCRIPTION: FillAeroDP_ fills the AERO_DP bundle\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE FillAeroDP_ ( am_I_Root, GC, EXPORT, Input_Opt, RC )\n!\n! !USES:\n!\n    USE HCO_ERROR_MOD\n    USE HCO_TYPES_MOD,     ONLY : DiagnCont\n    USE HCO_DIAGN_MOD,     ONLY : Diagn_Get\n    USE HCO_State_GC_Mod,  ONLY : HcoState\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL                            :: am_I_Root\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT) :: GC       ! Ref to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT) :: Export   ! Export State\n    TYPE(OptInput),      INTENT(INOUT) :: Input_Opt\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT), OPTIONAL     :: RC\n!\n! !REVISION HISTORY:\n!  30 Mar 2015 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n\n    REAL, POINTER                :: Ptr2d(:,:) => NULL()\n    INTEGER                      :: I, J, N, TrcID\n    CHARACTER(LEN= 2)            :: Prfx\n    CHARACTER(LEN=15)            :: TrcName\n    CHARACTER(LEN=ESMF_MAXSTR)   :: ExpName\n\n    ! Hemco diagnostics\n    INTEGER                      :: DgnID\n    INTEGER                      :: FLAG, ERR\n    TYPE(DiagnCont), POINTER     :: DgnCont => NULL()\n\n    ! Error handling\n    INTEGER                      :: STATUS\n    CHARACTER(LEN=ESMF_MAXSTR)   :: Iam\n\n    !=======================================================================\n    ! FillAeroDP_ begins here\n    !=======================================================================\n\n    ! Traceback handle\n    Iam = 'FillAeroDP_'\n\n    ! There are 8 species in total\n    DO N = 1, 8\n\n       ! Get species ID\n       SELECT CASE ( N )\n          CASE ( 1 )\n             TrcName = 'DST1'\n             Prfx    = 'DU'\n          CASE ( 2 )\n             TrcName = 'DST2'\n             Prfx    = 'DU'\n          CASE ( 3 )\n             TrcName = 'DST3'\n             Prfx    = 'DU'\n          CASE ( 4 )\n             TrcName = 'DST4'\n             Prfx    = 'DU'\n          CASE ( 5 )\n             TrcName = 'BCPI'\n             Prfx    = 'BC'\n          CASE ( 6 )\n             TrcName = 'BCPO'\n             Prfx    = 'BC'\n          CASE ( 7 )\n             TrcName = 'OCPI'\n             Prfx    = 'OC'\n          CASE ( 8 )\n             TrcName = 'OCPO'\n             Prfx    = 'OC'\n          CASE DEFAULT\n             TrcName = 'YeahYeahYeah'\n       END SELECT\n\n       ! Get GEOS-Chem tracer ID\n       TrcID = Ind_( TRIM(TrcName) )\n\n       ! Only if tracer is defined...\n       IF ( TrcID <= 0 ) CYCLE\n\n       ! Dry dep and wet dep\n       DO I = 1, 2\n\n          IF ( I == 1 ) THEN\n             ExpName = TRIM(Prfx)//'DP_'//TRIM(TrcName)\n          ELSEIF ( I == 2 ) THEN\n             ExpName = TRIM(Prfx)//'WT_'//TRIM(TrcName)\n          ENDIF\n\n          ! Get pointer\n          CALL MAPL_GetPointer( EXPORT, Ptr2D, TRIM(ExpName),   &\n                                notFoundOk=.TRUE., __RC__ )\n\n          ! Skip if not defined\n          IF ( .NOT. ASSOCIATED(Ptr2D) ) CYCLE\n\n          ! Reset\n          Ptr2D = 0.0\n\n          ! ------------------\n          ! Dry deposition\n          ! ------------------\n          IF ( I == 1 ) THEN\n\n             ! Get diagnostics\n             DgnID = 44500 + TrcID\n             CALL Diagn_Get( HcoState, .FALSE., DgnCont,  &\n                             FLAG, ERR, cID=DgnID, AutoFill=-1,      &\n                             COL=Input_Opt%DIAG_COLLECTION )\n\n             ! Error check\n             _ASSERT( ERR == HCO_SUCCESS,'Error calling Diagn_Get' )\n\n             ! Add to array if diagnostics is defined\n             ! GEOS-Chem diagnostics is in kg m-2 s-1.\n             IF ( FLAG == HCO_SUCCESS ) THEN\n                IF ( ASSOCIATED(DgnCont%Arr2D%Val) ) THEN\n                   Ptr2D = Ptr2D + DgnCont%Arr2D%Val\n                ENDIF\n             ENDIF\n\n          ! ------------------\n          ! Wet depostion\n          ! ------------------\n          ELSEIF ( I == 2 ) THEN\n\n             ! Convective and wet scavenging\n             DO J = 1, 2\n\n                SELECT CASE ( J )\n                   ! Convection:\n                   CASE ( 1 )\n                      DgnID = 38000 + TrcID\n                   ! Wet deposition\n                   CASE ( 2 )\n                      DgnID = 39000 + TrcID\n                   CASE DEFAULT\n                      DgnID = -1\n                END SELECT\n\n                ! Get diagnostics\n                CALL Diagn_Get( HcoState, .FALSE., DgnCont,  &\n                                FLAG, ERR, cID=DgnID, AutoFill=-1,      &\n                                COL=Input_Opt%DIAG_COLLECTION )\n\n                ! Error check\n                _ASSERT( ERR == HCO_SUCCESS,'Error calling Diagn_Get' )\n\n                ! Add to array if diagnostics is defined. GEOS-Chem\n                ! diagnostics is already in kg m-2 s-1.\n                IF ( FLAG == HCO_SUCCESS ) THEN\n                   IF ( ASSOCIATED(DgnCont%Arr2D%Val) ) THEN\n                      Ptr2D = Ptr2D + DgnCont%Arr2D%Val\n                   ELSEIF ( ASSOCIATED(DgnCont%Arr3D%Val) ) THEN\n                      Ptr2D = Ptr2D + SUM(DgnCont%Arr3D%Val,DIM=3)\n                   ENDIF\n                ENDIF\n             ENDDO !J\n          ENDIF\n\n       ENDDO !I\n    ENDDO !N\n\n    ! Successful return\n    RC = ESMF_SUCCESS\n\n  END SUBROUTINE FillAeroDP_\n!EOC\nEND MODULE GEOS_AeroCoupler\n"
  },
  {
    "path": "Interfaces/GEOS/geos_analysis.F90",
    "content": "#include \"MAPL_Generic.h\"\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: GEOS_Analysis \n!\n! !DESCRIPTION: Module to apply analysis fields to GEOS-Chem tracers. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GEOS_Analysis \n!\n! !USES:\n!\n  USE ESMF     \n  USE MAPL_Mod \n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: GEOS_AnaInit \n  PUBLIC   :: GEOS_AnaRun\n  PUBLIC   :: GEOS_AnaFinal\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE  :: ReadSettings_\n  PRIVATE  :: DoAnalysis_\n  PRIVATE  :: GetAnaTime_\n  PRIVATE  :: GetAnaBundle_\n  PRIVATE  :: ReplaceChar_ \n!\n! !PRIVATE TYPES:\n!\n  ! Number of species with analysis on\n  INTEGER                         :: nAnaSpec \n\n  ! Options for dependent species \n  TYPE Spec2Opt\n     CHARACTER(LEN=ESMF_MAXSTR)   :: Spec2Name\n     LOGICAL                      :: Spec2Strat \n     LOGICAL                      :: Spec2Trop \n     REAL                         :: Spec2MinRatio\n     REAL                         :: Spec2MaxRatio\n  END TYPE\n\n  ! Analysis options object. A separate object will be created for each analysed species/family\n  TYPE AnaOptions\n     CHARACTER(LEN=ESMF_MAXSTR)   :: SpecName\n     LOGICAL                      :: Active\n     INTEGER                      :: AnalysisFreq\n     INTEGER                      :: AnalysisHour\n     INTEGER                      :: AnalysisMinute\n     LOGICAL                      :: ForwardLooking\n     LOGICAL                      :: ReadAnaTime \n     LOGICAL                      :: SkipPredictor\n     CHARACTER(LEN=ESMF_MAXSTR)   :: FileTemplate \n     CHARACTER(LEN=ESMF_MAXSTR)   :: FileVarName\n     CHARACTER(LEN=ESMF_MAXSTR)   :: FileVarUnit\n     INTEGER                      :: FileVarDry\n     LOGICAL                      :: ApplyIncrement\n     INTEGER                      :: IAU\n     INTEGER                      :: AnalysisWindow\n     LOGICAL                      :: NonZeroIncOnly\n     CHARACTER(LEN=ESMF_MAXSTR)   :: FileVarNameInc\n     LOGICAL                      :: InStrat\n     LOGICAL                      :: InTrop\n     INTEGER                      :: AnaL1 \n     INTEGER                      :: AnaL2 \n     INTEGER                      :: AnaL3 \n     INTEGER                      :: AnaL4\n     REAL                         :: AnaFraction\n     INTEGER                      :: StratSponge \n     REAL                         :: MaxChangeStrat\n     REAL                         :: MaxChangeTrop\n     REAL                         :: MaxRatioStrat\n     REAL                         :: MaxRatioTrop\n     REAL                         :: MinRatioStrat\n     REAL                         :: MinRatioTrop\n     REAL                         :: MinConc\n     LOGICAL                      :: UseObsHour\n     CHARACTER(LEN=ESMF_MAXSTR)   :: ObsHourName \n     INTEGER                      :: nSpec2\n     TYPE(Spec2Opt), POINTER      :: Spec2(:) => NULL()\n     INTEGER                      :: ErrorMode\n     INTEGER                      :: PrintNeg \n  END TYPE AnaOptions\n\n  ! List holding all analysis information\n  TYPE(AnaOptions), POINTER  :: AnaConfig(:) => NULL()\n!\n! !REVISION HISTORY:\n!  25 May 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AnaInit \n!\n! !DESCRIPTION: Initialize the GEOS analysis module by reading all analysis \n!  settings from configuration files.\n!\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_AnaInit( am_I_Root, GC, GEOSCF, AnaPhase, RC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,              INTENT(IN)    :: am_I_Root ! Root PET?\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp),  INTENT(INOUT) :: GC        ! GridComp \n    TYPE(ESMF_Config),    INTENT(INOUT) :: GEOSCF    ! GEOSCHEMchem_GridComp.rc\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)                :: AnaPhase  ! Do analysis after run phase 1 or 2?\n    INTEGER, INTENT(OUT)                :: RC        ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  25 May 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n    TYPE(ESMF_Config)             :: AnaSpecCF\n    CHARACTER(LEN=ESMF_MAXSTR)    :: compName\n    CHARACTER(LEN=ESMF_MAXSTR)    :: Iam\n    CHARACTER(LEN=ESMF_MAXSTR)    :: ConfigName\n    CHARACTER(LEN=ESMF_MAXSTR)    :: SpecName\n    INTEGER                       :: I, N, NDIAG, ThisInt\n    INTEGER                       :: STATUS \n\n    !=======================================================================\n    ! GEOS_AnaInit begins here \n    !=======================================================================\n\n    ! Get configuration\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! callback name\n    Iam = TRIM(compName)//'::GEOS_AnaInit'\n\n    ! Run phase after which to apply analysis\n    CALL ESMF_ConfigGetAttribute( GEOSCF, ThisInt, Label=\"ANAPHASE:\", Default=2, __RC__ )\n    ANAPHASE = ThisInt\n\n    ! Get number of analysis species\n    CALL ESMF_ConfigGetAttribute( GEOSCF, nAnaSpec, Label=\"Analysis_nSpecies:\", Default=0, __RC__ )\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) 'Number of analysis species: ',nAnaSpec\n       WRITE(*,*) 'Analysis phase set to ',ANAPHASE\n    ENDIF\n\n    ! Read settings for all species from config file\n    IF ( nAnaSpec > 0 ) THEN\n       ALLOCATE( AnaConfig(nAnaSpec), STAT=STATUS )\n       _ASSERT( STATUS==0, 'AnaConfig could not be allocated' )\n\n       DO N=1,nAnaSpec\n          CALL ReadSettings_( am_I_Root, GEOSCF, N, __RC__ )\n       ENDDO\n    ENDIF\n\n    ! Initialize diagnostics\n    IF ( nAnaSpec > 0 ) THEN\n       DO N=1,nAnaSpec\n          NDIAG = 1 + AnaConfig(N)%nSpec2\n          DO I=1,NDIAG\n             IF ( I==1 ) THEN\n                SpecName = AnaConfig(N)%SpecName\n             ELSE\n                SpecName = AnaConfig(N)%Spec2(I-1)%Spec2Name\n             ENDIF\n             CALL MAPL_AddExportSpec(GC,                                                                   &\n                   SHORT_NAME         = 'GCC_ANA_INC_'//TRIM(SpecName),                                    &\n                   LONG_NAME          = TRIM(SpecName)//'_analysis_increment_volume_mixing_ratio_dry_air', &\n                   UNITS              = 'mol mol-1',                                                       &\n                   DIMS               = MAPL_DimsHorzVert,                                                 &\n                   VLOCATION          = MAPL_VLocationCenter,                                              &\n                                                             __RC__ )\n             CALL MAPL_AddExportSpec(GC,                                                                   &\n                   SHORT_NAME         = 'GCC_ANA_INC_FRAC_'//TRIM(SpecName),                               &\n                   LONG_NAME          = TRIM(SpecName)//'_analysis_increment_ratio_volume_mixing_ratio_dry_air', &\n                   UNITS              = '1',                                                               &\n                   DIMS               = MAPL_DimsHorzVert,                                                 &\n                   VLOCATION          = MAPL_VLocationCenter,                                              &\n                                                             __RC__ )\n             IF ( I==1 ) THEN \n                CALL MAPL_AddExportSpec(GC,                                        &\n                      SHORT_NAME         = 'GCC_ANA_MASK_VSUM_'//TRIM(SpecName),   &\n                      LONG_NAME          = TRIM(SpecName)//'_analysis_counts',     &\n                      UNITS              = '1',                                    &\n                      DIMS               = MAPL_DimsHorzOnly,                      &\n                      VLOCATION          = MAPL_VLocationNone,                     &\n                                                                __RC__ )\n                CALL MAPL_AddExportSpec(GC,                                   &\n                      SHORT_NAME         = 'GCC_ANA_MASK_'//TRIM(SpecName),   &\n                      LONG_NAME          = TRIM(SpecName)//'_analysis_mask',  &\n                      UNITS              = '1',                               &\n                      DIMS               = MAPL_DimsHorzVert,                 &\n                      VLOCATION          = MAPL_VLocationCenter,              &\n                                                                __RC__ )\n             ENDIF\n             IF ( I>1 ) THEN\n                CALL MAPL_AddExportSpec(GC,                                   &\n                      SHORT_NAME         = 'GCC_ANA_RATIO_'//TRIM(SpecName)//'_TO_'//TRIM(AnaConfig(N)%SpecName),   &\n                      LONG_NAME          = TRIM(SpecName)//'_to_'//TRIM(AnaConfig(N)%SpecName)//'_species_ratio_after_analysis',  &\n                      UNITS              = '1',                               &\n                      DIMS               = MAPL_DimsHorzVert,                 &\n                      VLOCATION          = MAPL_VLocationCenter,              &\n                                                                __RC__ )\n             ENDIF\n          ENDDO\n       ENDDO\n    ENDIF\n\n    ! Successful return\n    RETURN_(ESMF_SUCCESS) \n\n  END SUBROUTINE GEOS_AnaInit \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AnaRun  \n!\n! !DESCRIPTION: Driver routine to run the GEOS analysis module. \n!\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_AnaRun( GC, Import, Internal, Export, Clock, &\n                          Input_Opt,  State_Met, State_Chm, Q, PLE, TROPP, RC )\n!\n! !USES:\n!\n  USE Input_Opt_Mod,         ONLY : OptInput\n  USE State_Chm_Mod,         ONLY : ChmState         ! Chemistry State obj\n  USE State_Met_Mod,         ONLY : MetState         ! Meteorology State obj\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC       ! Ref. to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import   ! Import State\n    TYPE(ESMF_STATE),    INTENT(INOUT)         :: Internal ! Internal state\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export   ! Export State\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock    ! ESMF Clock object\n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(MetState)                             :: State_Met\n    TYPE(ChmState)                             :: State_Chm\n    REAL,                INTENT(INOUT)         :: Q(:,:,:)\n    REAL,                POINTER               :: PLE(:,:,:)\n    REAL,                POINTER               :: TROPP(:,:)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)                :: RC        ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  25 May 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n    INTEGER                       :: ispec\n    CHARACTER(LEN=ESMF_MAXSTR)    :: compName\n    CHARACTER(LEN=ESMF_MAXSTR)    :: Iam\n    INTEGER                       :: STATUS \n\n    !=======================================================================\n    ! GEOS_AnaRun begins here \n    !=======================================================================\n\n    ! Do nothing if\n\n    ! Get configuration\n    CALL ESMF_GridCompGet( GC, name=compName, __RC__ )\n\n    ! callback name\n    Iam = TRIM(compName)//'::GEOS_AnaRun'\n\n    ! Do analysis for all analysis species\n    IF ( nAnaSpec > 0 .AND. ASSOCIATED(AnaConfig) ) THEN \n       DO ispec=1,nAnaSpec\n          IF ( AnaConfig(ispec)%Active ) THEN\n             CALL DoAnalysis_( GC, Import, Internal, Export, Clock, ispec, &\n                               Input_Opt,  State_Met, State_Chm, Q, PLE, TROPP, __RC__ )\n          ENDIF\n       ENDDO\n    ENDIF\n\n    ! Successful return\n    RETURN_(ESMF_SUCCESS) \n\n  END SUBROUTINE GEOS_AnaRun  \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AnaFinal\n!\n! !DESCRIPTION: Finalize the GEOS analysis module\n!\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_AnaFinal( RC )\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)                :: RC        ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  25 May 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    CHARACTER(LEN=ESMF_MAXSTR)    :: Iam\n    INTEGER                       :: N, STATUS \n\n    !=======================================================================\n    ! GEOS_AnaInit begins here \n    !=======================================================================\n\n    ! callback name\n    Iam = 'GEOS_AnaFinal'\n\n    ! Clean up \n    IF ( ASSOCIATED(AnaConfig) ) THEN\n       DO N=1,nAnaSpec\n          IF ( ASSOCIATED(AnaConfig(N)%Spec2) ) DEALLOCATE(AnaConfig(N)%Spec2)\n       ENDDO\n       DEALLOCATE( AnaConfig )\n    ENDIF\n    AnaConfig => NULL()\n    nAnaSpec = 0\n\n    ! Successful return\n    RETURN_(ESMF_SUCCESS) \n\n  END SUBROUTINE GEOS_AnaFinal\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: DoAnalysis_ \n!\n! !DESCRIPTION: Routine to perform the analysis for a given species. \n!\n! !INTERFACE:\n!\n  SUBROUTINE DoAnalysis_( GC, Import, Internal, Export, Clock, ispec, &\n                         Input_Opt,  State_Met, State_Chm, Q, PLE, TROPP, RC )\n!\n! !USES:\n!\n  USE Input_Opt_Mod,         ONLY : OptInput\n  USE State_Chm_Mod,         ONLY : ChmState         ! Chemistry State obj\n  USE State_Met_Mod,         ONLY : MetState         ! Meteorology State obj\n  USE TIME_MOD,              ONLY : GET_TS_CHEM\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import    ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Internal  ! Internal state\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export    ! Export State\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock     ! ESMF Clock object\n    INTEGER,             INTENT(IN)            :: ispec     ! analysis species index\n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(MetState)                             :: State_Met\n    TYPE(ChmState)                             :: State_Chm\n    REAL,                INTENT(INOUT)         :: Q(:,:,:)\n    REAL,                POINTER               :: PLE(:,:,:)\n    REAL,                POINTER               :: TROPP(:,:)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)                       :: RC        ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  25 May 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=ESMF_MAXSTR) :: compName\n    TYPE(ESMF_Grid)            :: grid\n    LOGICAL                    :: am_I_Root\n    TYPE(AnaOptions), POINTER  :: iopt => NULL() \n    LOGICAL                    :: TimeForAna, HasBundle\n    INTEGER                    :: yy, mm, dd, h, m, s\n    INTEGER                    :: VarID\n    INTEGER                    :: StratCount\n    REAL                       :: ThisHour\n    CHARACTER(LEN=ESMF_MAXSTR) :: SpecName, Spec2Name, FldName\n    REAL, POINTER              :: DiagInc(:,:,:),  DiagIncFrac(:,:,:)\n    REAL, ALLOCATABLE          :: DiagInc2(:,:,:,:), DiagIncFrac2(:,:,:,:), DiagSpcRatio(:,:,:,:)\n    REAL, POINTER              :: DiagMsk2d(:,:),  DiagMsk3d(:,:,:)\n    REAL, POINTER              :: AnaPtr(:,:,:), IncPtr(:,:,:), ObsHour(:,:)\n    REAL, POINTER              :: Ptr2D(:,:), Ptr3D(:,:,:)\n    REAL, ALLOCATABLE          :: SpcBkg(:,:,:), SpcAsm(:,:,:)\n    REAL, ALLOCATABLE          :: Spc2Bkg(:,:,:,:), Spc2Asm(:,:,:,:)\n    TYPE(MAPL_SimpleBundle)    :: VarBundle, VarBundleH\n    CHARACTER(LEN=ESMF_MAXSTR) :: ifile, only_vars\n    TYPE(ESMF_TIME)            :: fileTime\n    INTEGER                    :: I, J, L, N, IM, JM, LM, LB, indSpc\n    INTEGER, ALLOCATABLE       :: indSpc2(:)\n    INTEGER                    :: UnitFlag, DryFlag, NNEG\n    REAL                       :: OldRatio, NewRatio \n    REAL                       :: wgt, tropwgt, stratwgt\n    REAL                       :: DilFact, tsChem\n    REAL                       :: frac, diff, maxChange, maxRatio, minRatio\n    REAL                       :: mwSpc\n    REAL, ALLOCATABLE          :: mwSpc2(:)\n    REAL                       :: SpcAna, SpcNew\n    REAL                       :: MinConc\n    LOGICAL                    :: UpdateSpec2\n    TYPE(ESMF_Alarm)           :: PredictorAlarm\n    LOGICAL                    :: PredictorActive\n    CHARACTER(LEN=ESMF_MAXSTR) :: Iam\n    INTEGER                    :: STATUS \n\n    !=======================================================================\n    ! DoAnalysis_ begins here \n    !=======================================================================\n\n    Iam = 'GEOS_Analysis::DoAnalysis_'\n\n    ! Get configuration\n    CALL ESMF_GridCompGet( GC, name=compName, grid=grid, __RC__ )\n\n    ! Root CPU?\n    am_I_Root = MAPL_am_I_Root()\n\n    ! Get settings\n    iopt => AnaConfig(ispec)\n    SpecName = iopt%SpecName\n    MinConc  = iopt%MinConc\n\n    ! Check if it's time to do the analysis\n    TimeForAna = .FALSE. \n    CALL GetAnaTime_( Clock, iopt%ForwardLooking, yy, mm, dd, h, m, s, __RC__ )\n    ThisHour = real(h)\n    DilFact  = 1.0\n\n    ! Always do analysis if spreading increment evenly\n    IF ( iopt%IAU ) THEN\n       TimeForAna = .TRUE.\n       ! Calculate dilution factor, to be applied to analysis/increment weight\n       tsChem  = GET_TS_CHEM()\n       DilFact = real(iopt%AnalysisWindow)*(3600./tsChem)\n    ! If using observation hours, apply analysis every (full) hour\n    ELSEIF ( iopt%UseObsHour .AND. m==0 ) THEN\n       TimeForAna = .TRUE.\n    ! Otherwise, use specified analysis frequency and hour/minute offsets\n    ELSE \n       IF ( m==iopt%AnalysisMinute .AND. MOD(h,iopt%AnalysisFreq)==iopt%AnalysisHour ) TimeForAna = .TRUE. \n    ENDIF\n\n    ! Eventually skip during predictor step\n    IF ( iopt%SkipPredictor ) THEN\n       CALL ESMF_ClockGetAlarm(Clock, \"PredictorActive\", PredictorAlarm, __RC__)\n       PredictorActive = ESMF_AlarmIsRinging( PredictorAlarm, __RC__ )\n       IF ( PredictorActive ) TimeForAna = .FALSE.\n    ENDIF\n\n    ! Initialize/reset diagnostics\n    ! ----------------------\n    FldName = 'GCC_ANA_INC_'//TRIM(SpecName)\n    CALL MAPL_GetPointer ( Export, DiagInc, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n    IF ( ASSOCIATED(DiagInc) ) DiagInc = 0.0 \n    FldName = 'GCC_ANA_INC_FRAC_'//TRIM(SpecName)\n    CALL MAPL_GetPointer ( Export, DiagIncFrac, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n    IF ( ASSOCIATED(DiagIncFrac) ) DiagIncFrac = 1.0 \n    FldName = 'GCC_ANA_MASK_VSUM_'//TRIM(SpecName)\n    CALL MAPL_GetPointer ( Export, DiagMsk2d, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n    IF ( ASSOCIATED(DiagMsk2d) ) DiagMsk2d = 0.0 \n    FldName = 'GCC_ANA_MASK_'//TRIM(SpecName)\n    CALL MAPL_GetPointer ( Export, DiagMsk3d, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n    IF ( ASSOCIATED(DiagMsk3d) ) DiagMsk3d = 0.0 \n\n    ! Fill species 2 diagnostics\n    IF ( iopt%nSpec2 > 0 ) THEN\n       DO N=1,iopt%nSpec2\n          Spec2Name = TRIM(iopt%Spec2(N)%Spec2Name)\n          FldName = 'GCC_ANA_INC_'//TRIM(Spec2Name)\n          CALL MAPL_GetPointer ( Export, Ptr3D, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) .AND. .NOT. ALLOCATED(DiagInc2) ) THEN\n             ALLOCATE(DiagInc2(SIZE(Ptr3D,1),SIZE(Ptr3D,2),SIZE(Ptr3D,3),iopt%nSpec2))\n             DiagInc2 = 0.0\n          ENDIF \n          FldName = 'GCC_ANA_INC_FRAC_'//TRIM(Spec2Name)\n          CALL MAPL_GetPointer ( Export, Ptr3D, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) .AND. .NOT. ALLOCATED(DiagIncFrac2) ) THEN\n             ALLOCATE(DiagIncFrac2(SIZE(Ptr3D,1),SIZE(Ptr3D,2),SIZE(Ptr3D,3),iopt%nSpec2))\n             DiagIncFrac2 = 1.0\n          ENDIF \n          FldName = 'GCC_ANA_RATIO_'//TRIM(Spec2Name)//'_TO_'//TRIM(SpecName)\n          CALL MAPL_GetPointer ( Export, Ptr3D, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) .AND. .NOT. ALLOCATED(DiagSpcRatio) ) THEN\n             ALLOCATE(DiagSpcRatio(SIZE(Ptr3D,1),SIZE(Ptr3D,2),SIZE(Ptr3D,3),iopt%nSpec2))\n             DiagSpcRatio = -999.0 \n          ENDIF \n       ENDDO \n    ENDIF\n\n    ! Check if file exists (only if it's time to do the analysis\n    HasBundle = .FALSE.\n    IF ( TimeForAna ) THEN\n       only_vars = TRIM(iopt%FileVarName)\n       IF ( iopt%NonZeroIncOnly ) only_vars = TRIM(only_vars)//','//TRIM(iopt%FileVarNameInc)\n       CALL GetAnaBundle_( am_I_Root, iopt%FileTemplate, 'AnaFld', yy, mm, dd, h, m, grid, &\n                           VarBundle, HasBundle, ifile=ifile, fileTime=fileTime,    &\n                           only_vars=only_vars, err_mode=iopt%ErrorMode, anatime=iopt%ReadAnaTime, __RC__ )\n\n       ! Read obs time using voting regridding method \n       IF ( HasBundle .AND. iopt%UseObsHour ) THEN\n          VarBundleH =  MAPL_SimpleBundleRead ( TRIM(ifile), 'AnaHour', grid, fileTime, &\n                                                ONLY_VARS=TRIM(iopt%ObsHourName), voting=.TRUE., __RC__ )\n!                                               ONLY_VARS=TRIM(iopt%ObsHourName), regrid_method=REGRID_METHOD_VOTE, __RC__ )\n       ENDIF\n    ENDIF\n\n    ! Apply increments if it's time to do so and if file exists\n    ! ---------------------------------------------------------\n    IF ( HasBundle ) THEN \n\n       ! Verbose\n       IF ( am_I_Root ) THEN\n          WRITE(*,100) SpecName,yy,mm,dd,h,m\n100       FORMAT( \"GEOS-Chem: apply analysis for species \",A5,\" for \",I4.4,\"-\",I2.2,\"-\",I2.2,\" \",I2.2,\":\",I2.2)\n       ENDIF\n\n       ! Get analysis field \n       VarID   = MAPL_SimpleBundleGetIndex ( VarBundle, TRIM(iopt%FileVarName), 3, RC=STATUS, QUIET=.TRUE. )\n       ASSERT_(RC==ESMF_SUCCESS .AND. VarID > 0)\n       AnaPtr => VarBundle%r3(VarID)%q\n       IF ( iopt%nonZeroIncOnly ) THEN\n          VarID   = MAPL_SimpleBundleGetIndex ( VarBundle, TRIM(iopt%FileVarNameInc), 3, RC=STATUS, QUIET=.TRUE. )\n          ASSERT_(RC==ESMF_SUCCESS .AND. VarID > 0)\n          IncPtr => VarBundle%r3(VarID)%q\n       ENDIF\n       ! Observation hour\n       ObsHour => NULL()\n       IF ( iopt%UseObsHour ) THEN\n          VarID   =  MAPL_SimpleBundleGetIndex ( VarBundleH, TRIM(iopt%ObsHourName), 2, RC=STATUS, QUIET=.TRUE. )\n          ASSERT_(RC==ESMF_SUCCESS .AND. VarID > 0)\n          ObsHour => VarBundleH%r2(VarID)%q\n       ENDIF\n\n       ! Select GEOS-Chem index and molecular weight for analysis species. Also get the same for 2nd species (if used) \n       indSpc   = -1\n       IF ( iopt%nSpec2 > 0 ) THEN\n          ALLOCATE(indSpc2(iopt%nSpec2))\n          ALLOCATE(mwSpc2(iopt%nSpec2))\n       ENDIF \n       DO I = 1, State_Chm%nSpecies\n          IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == TRIM(SpecName) ) THEN\n             indSpc = I\n             mwSpc  = State_Chm%SpcData(I)%Info%MW_g\n          ENDIF\n          IF ( iopt%nSpec2 > 0 ) THEN\n             DO N=1,iopt%nSpec2\n                IF ( TRIM(State_Chm%SpcData(I)%Info%Name) == TRIM(iopt%Spec2(N)%Spec2Name) ) THEN\n                   indSpc2(N) = I\n                   mwSpc2(N)  = State_Chm%SpcData(I)%Info%MW_g\n                ENDIF\n             ENDDO\n          ENDIF\n       ENDDO\n       ASSERT_(indSpc > 0  )\n       ASSERT_( mwSpc > 0.0)\n       IF ( iopt%nSpec2 > 0 ) THEN\n          DO N=1,iopt%nSpec2\n             ASSERT_(indSpc2(N) > 0  )\n             ASSERT_( mwSpc2(N) > 0.0)\n          ENDDO\n       ENDIF\n\n       ! array dimensions \n       IM = SIZE(AnaPtr,1)\n       JM = SIZE(AnaPtr,2)\n       LM = SIZE(AnaPtr,3)\n\n       ! Get lower bound of PLE array\n       LB = LBOUND(PLE,3)\n\n       ! Set dry flag\n       DryFlag = iopt%FileVarDry\n\n       ! Set unit flag. This is to prevent parsing the unit string within the loop below\n       SELECT CASE ( TRIM(iopt%FileVarUnit) )\n          CASE ( 'kg/kg' )\n             UnitFlag = 1\n             IF ( DryFlag < 0 ) DryFlag = 0 ! assume kg/kg is total, not dry\n          CASE ( 'mol/mol', 'v/v' )\n             UnitFlag = 2\n             IF ( DryFlag < 0 ) DryFlag = 1 ! assume is dry \n          CASE ( 'ppmv', 'ppm', 'PPMV', 'PPM' )\n             UnitFlag = 3\n             IF ( DryFlag < 0 ) DryFlag = 1 ! assume dry \n          CASE ( 'ppbv', 'ppb', 'PPBV', 'PPB' )\n             UnitFlag = 4\n             IF ( DryFlag < 0 ) DryFlag = 1 ! assume dry \n          CASE DEFAULT\n             UnitFlag = 1\n             IF ( DryFlag < 0 ) DryFlag = 0 ! assume kg/kg is total, not dry\n       END SELECT\n\n       ! State_Chm%Species are in kg/kg total. Make local copy in v/v dry before applying increments.\n       ! Also flip vertical axis to be consistent with GEOS\n       ALLOCATE(SpcBkg(IM,JM,LM),SpcAsm(IM,JM,LM))\n       SpcBkg(:,:,:) = State_Chm%Species(indSpc)%Conc(:,:,LM:1:-1) / (1.-Q) * MAPL_AIRMW / mwSpc\n       SpcAsm(:,:,:) = SpcBkg(:,:,:)\n       IF ( iopt%nSpec2 > 0 ) THEN\n          ALLOCATE(Spc2Bkg(IM,JM,LM,iopt%nSpec2),Spc2Asm(IM,JM,LM,iopt%nSpec2))\n          DO N=1,iopt%nSpec2\n             Spc2Bkg(:,:,:,N) = State_Chm%Species(indSpc2(N))%Conc(:,:,LM:1:-1) / (1.-Q) * MAPL_AIRMW / mwSpc2(N)\n             Spc2Asm(:,:,:,N) = Spc2Bkg(:,:,:,N)\n             IF ( ALLOCATED(DiagSpcRatio) ) THEN\n                WHERE ( SpcBkg > MinConc ) \n                   DiagSpcRatio(:,:,:,N) = Spc2Bkg(:,:,:,N) / SpcBkg(:,:,:)\n                ELSEWHERE\n                   DiagSpcRatio(:,:,:,N) = Spc2Bkg(:,:,:,N) / MinConc\n                ENDWHERE\n             ENDIF\n          ENDDO\n       ENDIF\n \n       ! Number of negative cells\n       NNEG = 0\n\n       DO J=1,JM\n       DO I=1,IM\n          ! Move to next grid box if there was no observation in this cell for the given hour and the obshour flag is on \n          IF ( iopt%UseObsHour ) THEN\n             IF ( ObsHour(I,J) /= ThisHour ) CYCLE\n          ENDIF\n\n          ! Loop over vertical\n          StratCount = 0\n          DO L=LM,1,-1\n\n             ! Fraction of cell in troposphere / stratosphere \n             tropwgt  = MAX(0.0,MIN(1.0,(PLE(I,J,L+LB)-TROPP(I,J))/(PLE(I,J,L+LB)-PLE(I,J,L+LB-1))))\n             stratwgt = 1.0 - tropwgt    \n\n             ! Count number of cells since vertical loop start that have been (at least partly) in stratosphere\n             IF ( stratwgt > 0.1 ) StratCount = StratCount + 1 \n\n             ! Skip cell if concentration change is too small\n             IF ( iopt%ApplyIncrement .AND. ABS(AnaPtr(I,J,L)) < MinConc ) CYCLE \n             IF ( iopt%NonZeroIncOnly ) THEN\n                IF ( ABS(IncPtr(I,J,L)) < MinConc ) CYCLE\n             ENDIF\n\n             ! Default weight to be given to analysis.\n             wgt = iopt%AnaFraction\n\n             ! Adjust weight based on stratosphere / troposphere flag \n             IF ( .NOT. iopt%InStrat ) wgt = wgt * tropwgt\n             IF ( .NOT. iopt%InTrop  ) wgt = wgt * stratwgt\n            \n             ! Adjust weight based on the specified analysis levels, with gradual transition from L1 to L2 and L3 to L4\n             IF ( L < iopt%AnaL2 ) wgt = wgt * ( (L-iopt%AnaL1) / (iopt%AnaL2-iopt%AnaL1) )\n             IF ( L > iopt%AnaL3 ) wgt = wgt * ( (iopt%AnaL4-L) / (iopt%AnaL4-iopt%AnaL4) )\n\n             ! Check for tropopause sponge layer when applying increments in strat\n             IF ( iopt%InStrat .AND. .NOT. iopt%InTrop .AND. iopt%StratSponge > 0 ) THEN\n                IF ( stratwgt > 0.0 .AND. StratCount <= iopt%StratSponge ) wgt = 0.0 \n             ENDIF\n\n             ! Adjust weight by # of time steps if spreading evenly using IAU.\n             IF ( iopt%IAU ) wgt = wgt / DilFact\n\n             ! Fraction must be between 0 and 1\n             wgt = max(0.0,min(1.0,wgt))\n             IF ( wgt == 0.0 ) CYCLE\n\n             ! Get target concentration in v/v dry\n             SpcAna = AnaPtr(I,J,L)\n             IF ( UnitFlag == 1 ) SpcAna = SpcAna * ( MAPL_AIRMW / mwSpc )\n             IF ( UnitFlag == 3 ) SpcAna = SpcAna * 1.0e-6\n             IF ( UnitFlag == 4 ) SpcAna = SpcAna * 1.0e-9\n             IF ( DryFlag  == 0 ) SpcAna = SpcAna / ( 1. - Q(I,J,L) )\n\n             ! Update field\n             SpcNew = SpcBkg(I,J,L)\n             IF ( iopt%ApplyIncrement ) THEN\n                SpcNew = SpcBkg(I,J,L) + wgt*SpcAna\n                IF ( SpcNew <= MinConc ) THEN\n                   SpcNew = MinConc\n                   NNEG   = NNEG + 1\n                ENDIF\n             ELSE\n                IF ( SpcAna >= MinConc ) THEN\n                   SpcNew = wgt*SpcAna + (1.0-wgt)*SpcBkg(I,J,L)\n                ELSE\n                   SpcNew = MinConc\n                   NNEG   = NNEG + 1\n                ENDIF \n             ENDIF \n\n             ! Check for absolute change limit \n             IF ( stratwgt >= 0.5 ) THEN\n                maxChange = iopt%MaxChangeStrat\n                maxRatio  = iopt%MaxRatioStrat\n                minRatio  = iopt%MinRatioStrat\n             ELSE \n                maxChange = iopt%MaxChangeTrop\n                maxRatio  = iopt%MaxRatioTrop \n                minRatio  = iopt%MinRatioTrop \n             ENDIF\n             IF ( maxChange >= 0.0 ) THEN\n                diff = SpcNew - SpcBkg(I,J,L)\n                IF ( ABS(diff) > maxChange ) THEN\n                   IF ( diff > 0.0 ) SpcNew = SpcBkg(I,J,L) + maxChange\n                   IF ( diff < 0.0 ) SpcNew = SpcBkg(I,J,L) - maxChange\n                ENDIF\n             ENDIF\n\n             ! Check for relative change limit\n             IF ( maxRatio > 0.0 .AND. minRatio > 0.0 ) THEN \n                frac = SpcNew / MAX(SpcBkg(I,J,L),MinConc)\n                ! If change is greater than maximum allowed fraction, restrict to max. fraction\n                IF ( frac > maxRatio ) THEN \n                   SpcNew = MAX(SpcBkg(I,J,L),MinConc) * maxRatio\n                ! If change is smaller than maximum allowed fraction, restrict to min. fraction\n                ELSEIF ( frac < minRatio ) THEN\n                   SpcNew = MAX(SpcBkg(I,J,L),MinConc) * minRatio \n                ENDIF\n             ENDIF\n\n             ! Update assimilated field\n             SpcAsm(I,J,L) = MAX(SpcNew,MinConc)\n\n             ! Update diagnostics\n             IF ( ASSOCIATED(DiagInc        ) ) DiagInc(I,J,L)      = SpcAsm(I,J,L) - SpcBkg(I,J,L)\n             IF ( ASSOCIATED(DiagIncFrac    ) ) DiagIncFrac(I,J,L)  = SpcAsm(I,J,L) / MAX(SpcBkg(I,J,L),MinConc)\n             IF ( ASSOCIATED(DiagMsk2d      ) ) DiagMsk2d(I,J)      = DiagMsk2d(I,J) + 1.0\n             IF ( ASSOCIATED(DiagMsk3d      ) ) DiagMsk3d(I,J,L)    = 1.0 \n\n             ! Eventually update dependent species to maintain concentration ratio of species 2 / species 1\n             IF ( iopt%nSpec2>0 ) THEN\n                DO N=1,iopt%nSpec2\n                   UpdateSpec2 = .FALSE.\n                   ! Default is to use background field\n                   Spc2Asm(I,J,L,N) = Spc2Bkg(I,J,L,N)\n                   ! Use background field if in stratosphere and no adjustment to be done in stratosphere\n                   IF     ( stratwgt >= 0.5 .AND. .NOT. iopt%Spec2(N)%Spec2Strat ) THEN\n                      CYCLE \n                   ! Use background field if in troposphere and no adjustment to be done in troposphere\n                   ELSEIF ( tropwgt  >= 0.5 .AND. .NOT. iopt%Spec2(N)%Spec2Trop  ) THEN\n                      CYCLE\n                   ! Calculate Spc2/Spc1 ratio before update and maintain that ratio in assimilation field\n                   ELSE    \n                      OldRatio = Spc2Bkg(I,J,L,N) / MAX(SpcBkg(I,J,L),MinConc)\n                      NewRatio = Spc2Bkg(I,J,L,N) / SpcAsm(I,J,L)\n                      ! Update species only if the ratio is within the specified limits. Otherwise, we assume\n                      ! that species 2 is so abundant or missing that updating it is not meaningful.\n                      IF ( ( OldRatio<iopt%Spec2(N)%Spec2MaxRatio .AND. OldRatio>iopt%Spec2(N)%Spec2MinRatio ) .OR. &\n                           ( NewRatio<iopt%Spec2(N)%Spec2MaxRatio .AND. NewRatio>iopt%Spec2(N)%Spec2MinRatio )       ) THEN\n                         Spc2Asm(I,J,L,N) = SpcAsm(I,J,L) * OldRatio \n                         UpdateSpec2 = .TRUE.\n                      ENDIF\n                   ENDIF\n                   ! Diagnostics\n                   IF( UpdateSpec2 ) THEN \n                      IF ( ALLOCATED(DiagInc2    ) ) DiagInc2(I,J,L,N)     = Spc2Asm(I,J,L,N) - Spc2Bkg(I,J,L,N)\n                      IF ( ALLOCATED(DiagIncFrac2) ) DiagIncFrac2(I,J,L,N) = Spc2Asm(I,J,L,N) / MAX(Spc2Bkg(I,J,L,N),MinConc)\n                      IF ( ALLOCATED(DiagSpcRatio) ) DiagSpcRatio(I,J,L,N) = Spc2Asm(I,J,L,N) / SpcAsm(I,J,L)\n                   ENDIF\n                ENDDO\n             ENDIF\n          ENDDO\n       ENDDO\n       ENDDO\n\n       ! Print warning if at least one negative cell\n       IF ( NNEG > 0 .and. iopt%PrintNeg==1 ) THEN\n          WRITE(*,*) '*** DoAnalysis_ warning: encountered concentration below threshold, set to minimum: ',TRIM(SpecName),NNEG,MinConc,' ***'\n       ENDIF\n\n       ! Pass back to State_Chm%Species array: flip vertical axis and convert v/v dry to kg/kg total\n       ! -------------------------------------------------------------------------------------------\n       State_Chm%Species(indSpc)%Conc(:,:,LM:1:-1)     = SpcAsm(:,:,:)  * (1.-Q) / MAPL_AIRMW * mwSpc\n       IF ( iopt%nSpec2 > 0 ) THEN\n          DO N=1,iopt%nSpec2 \n             State_Chm%Species(indSpc2(N))%Conc(:,:,LM:1:-1) = Spc2Asm(:,:,:,N) * (1.-Q) / MAPL_AIRMW * mwSpc2(N)\n          ENDDO\n       ENDIF\n\n    ENDIF ! HasBundle\n\n    ! Fill species 2 diagnostics\n    IF ( iopt%nSpec2 > 0 ) THEN\n       DO N=1,iopt%nSpec2\n          Spec2Name = TRIM(iopt%Spec2(N)%Spec2Name)\n          FldName = 'GCC_ANA_INC_'//TRIM(Spec2Name)\n          CALL MAPL_GetPointer ( Export, Ptr3D, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) ) Ptr3D(:,:,:) = DiagInc2(:,:,:,N)\n          FldName = 'GCC_ANA_INC_FRAC_'//TRIM(Spec2Name)\n          CALL MAPL_GetPointer ( Export, Ptr3D, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) ) Ptr3D(:,:,:) = DiagIncFrac2(:,:,:,N)\n          FldName = 'GCC_ANA_RATIO_'//TRIM(Spec2Name)//'_TO_'//TRIM(SpecName)\n          CALL MAPL_GetPointer ( Export, Ptr3D, TRIM(FldName), NotFoundOk=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) ) Ptr3D(:,:,:) = DiagSpcRatio(:,:,:,N)\n       ENDDO \n    ENDIF\n\n    ! Cleanup\n    ! -------\n    IF ( ALLOCATED(SpcBkg      ) ) DEALLOCATE(SpcBkg)\n    IF ( ALLOCATED(SpcAsm      ) ) DEALLOCATE(SpcAsm)\n    IF ( ALLOCATED(Spc2Bkg     ) ) DEALLOCATE(Spc2Bkg)\n    IF ( ALLOCATED(Spc2Asm     ) ) DEALLOCATE(Spc2Asm)\n    IF ( ALLOCATED(DiagInc2    ) ) DEALLOCATE(DiagInc2)\n    IF ( ALLOCATED(DiagIncFrac2) ) DEALLOCATE(DiagIncFrac2)\n    IF ( ALLOCATED(DiagSpcRatio) ) DEALLOCATE(DiagSpcRatio)\n    IF ( ALLOCATED(indSpc2     ) ) DEALLOCATE(indSpc2)\n    IF ( ALLOCATED(mwSpc2      ) ) DEALLOCATE(mwSpc2)\n\n    IF ( ASSOCIATED(DiagInc     ) ) DiagInc      => NULL()\n    IF ( ASSOCIATED(DiagIncFrac ) ) DiagIncFrac  => NULL()\n    IF ( ASSOCIATED(DiagMsk2d   ) ) DiagMsk2d    => NULL()\n    IF ( ASSOCIATED(DiagMsk3d   ) ) DiagMsk3d    => NULL()\n\n    IF ( HasBundle ) THEN\n       CALL MAPL_SimpleBundleDestroy ( VarBundle, __RC__ )\n       IF ( iopt%UseObsHour ) CALL MAPL_SimpleBundleDestroy ( VarBundleH, __RC__ )\n    ENDIF\n    iopt => NULL()\n\n    ! Successful return\n    RETURN_(ESMF_SUCCESS) \n\n  END SUBROUTINE DoAnalysis_ \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetAnaTime_ \n!\n! !DESCRIPTION: Get analysis time. This is either the current date/time or one\n! GEOS-Chem time step ahead, depending on the Fwd input argument.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetAnaTime_( Clock, Fwd, yy, mm, dd, h, m, s, RC )\n!\n! !USES:\n!\n    USE TIME_MOD,  ONLY : GET_TS_CHEM\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock      ! ESMF Clock object\n    LOGICAL,             INTENT(IN)            :: Fwd        ! Adjust time one time step forward?\n    INTEGER,             INTENT(OUT)           :: yy, mm, dd ! year, month, day\n    INTEGER,             INTENT(OUT)           :: h,  m,  s  ! hour, minute, second\n    INTEGER,             INTENT(OUT)           :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  01 Mar 2022 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    TYPE(ESMF_TIME)            :: currTime\n    TYPE(ESMF_TimeInterval)    :: tsChemInt\n    REAL                       :: tsChem\n\n    ! Begins here\n    __Iam__('GetAnaTime_')\n\n    ! Get current time \n    CALL ESMF_ClockGet( Clock, currTime = currTime, __RC__ )\n\n    ! Eventually adjust time\n    IF ( Fwd ) THEN\n       tsChem = GET_TS_CHEM()\n    ELSE\n       tsChem = 0.0\n    ENDIF\n    CALL ESMF_TimeIntervalSet(tsChemInt, s_r8=real(tsChem,8), __RC__ )\n    CALL ESMF_TimeGet( currTime+tsChemInt, yy=yy, mm=mm, dd=dd, h=h, m=m, s=s, __RC__ )\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n    END SUBROUTINE GetAnaTime_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetAnaBundle_ \n!\n! !DESCRIPTION: Get analysis data bundle. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetAnaBundle_( am_I_Root, FileTmpl,  bName, yy, mm, dd, h, m, grid, &\n                            VarBundle, HasBundle, ifile, fileTime, only_vars,   &\n                            err_mode,  anatime,   RC )\n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)            :: am_I_Root  ! Root CPU?\n    CHARACTER(LEN=*),    INTENT(IN)            :: FileTmpl   ! file template\n    CHARACTER(LEN=*),    INTENT(IN)            :: bName      ! bundle name \n    INTEGER,             INTENT(IN)            :: yy, mm, dd ! year, month, day\n    INTEGER,             INTENT(IN)            :: h,  m      ! hour, minute, second\n    TYPE(ESMF_Grid),     INTENT(INOUT)         :: grid       ! output grid\n    TYPE(MAPL_SimpleBundle)                    :: VarBundle  ! Bundle\n    LOGICAL,             INTENT(INOUT)         :: HasBundle  ! Was bundle found?\n    CHARACTER(LEN=*),    INTENT(OUT), OPTIONAL :: ifile      ! file name \n    TYPE(ESMF_TIME),     INTENT(OUT), OPTIONAL :: fileTime   ! file time\n    CHARACTER(LEN=*),    INTENT(IN),  OPTIONAL :: only_vars  ! variables to read\n    INTEGER,             INTENT(IN),  OPTIONAL :: err_mode   ! error mode\n    LOGICAL,             INTENT(IN),  OPTIONAL :: anatime    ! round time to analysis time? \n    INTEGER,             INTENT(OUT), OPTIONAL :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  01 Mar 2022 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=ESMF_MAXSTR) :: ifile_\n    CHARACTER(LEN=4)           :: syy\n    CHARACTER(LEN=2)           :: smm, sdd, sh, sm\n    INTEGER                    :: nymd, nhms, incSecs\n    INTEGER                    :: yy_, mm_, dd_, h_, m_, s_, fid\n    TYPE(ESMF_TIME)            :: currTime, fileTime_\n    TYPE(ESMF_TimeInterval)    :: tsInt\n    LOGICAL                    :: HasFile,  anatime_\n    INTEGER                    :: errmode_\n\n    ! Begins here\n    __Iam__('GetAnaBundle_')\n\n    ! Initialize\n    HasBundle = .FALSE.\n    errmode_ = 2\n    anatime_ = .FALSE.\n    if ( present(err_mode) ) errmode_ = err_mode\n    if ( present(anatime ) ) anatime_ = anatime\n\n    ! Get date & time of file. These are the passed values by default \n    yy_ = yy\n    mm_ = mm\n    dd_ = dd\n    h_  = h\n    m_  = m\n    ! If anatime is true, set time to closest analysis hour (0z, 6z, 12z, 18z)\n    IF ( anatime_ ) THEN\n       m_ = 0\n       IF (     h < 3  ) THEN\n          h_ = 0\n       ELSEIF ( h < 9  ) THEN\n          h_ = 6\n       ELSEIF ( h < 15 ) THEN\n          h_ = 12\n       ELSEIF ( h < 21 ) THEN\n          h_ = 18\n       ! If 21z, get next day (but keep minutes)\n       ELSE\n          call ESMF_TimeSet(currTime, yy=yy_, mm=mm_, dd=dd_, h=23, m=m_, s=0)\n          call ESMF_TimeIntervalSet(tsInt, s_r8=real(7200.0,8), __RC__ )\n          call ESMF_TimeGet( currTime+tsInt, yy=yy_, mm=mm_, dd=dd_)\n          h_ = 0\n       ENDIF\n    ENDIF\n\n    ! Parse file name\n    ifile_ = FileTmpl\n    write(syy,'(I4.4)') yy_\n    CALL ReplaceChar_ ( ifile_, '%y4', syy )\n    write(smm,'(I2.2)') mm_\n    CALL ReplaceChar_ ( ifile_, '%m2', smm )\n    write(sdd,'(I2.2)') dd_\n    CALL ReplaceChar_ ( ifile_, '%d2', sdd )\n    write(sh,'(I2.2)') h_\n    CALL ReplaceChar_ ( ifile_, '%h2', sh  )\n    write(sm,'(I2.2)') m_\n    CALL ReplaceChar_ ( ifile_, '%n2', sm  )\n\n    ! set default file time \n    s_ = 0\n    call ESMF_TimeSet(fileTime_, yy=yy_, mm=mm_, dd=dd_, h=h_, m=m_, s=s_)\n\n    ! Check if file exists\n    INQUIRE( FILE=TRIM(ifile_), EXIST=HasFile )\n    IF ( HasFile ) THEN\n       IF ( am_I_Root ) WRITE(*,*) 'GCC GetAnaBundle_: Reading '//TRIM(ifile_)\n       ! Try reading current time stamp on file \n       VarBundle =  MAPL_SimpleBundleRead ( TRIM(ifile_), TRIM(bname), grid, fileTime_, ONLY_VARS=only_vars, RC=STATUS )\n       IF ( STATUS == ESMF_SUCCESS ) HasBundle = .TRUE.\n       ! If current time stamp not found in file, just read the first entry (dangerous!)\n       IF ( .NOT. HasBundle ) THEN\n          ! If error mode is 0 or 1, stop with error\n          IF ( errmode_ <= 1 ) THEN\n             IF ( am_I_Root ) THEN\n                WRITE(*,*) 'Error: current time not found in file: ',TRIM(ifile_),yy_,mm_,dd_,h_,m_\n                WRITE(*,*) 'You can get past this error by setting the error mode to > 1'\n             ENDIF\n             ASSERT_(.FALSE.)\n          ELSE\n             IF ( am_I_Root ) THEN\n                WRITE(*,*) 'Warning: current time not found in file - will read first time slice on file!! ',yy_,mm_,dd_,h_,m_\n             ENDIF\n             ! Get time stamp on file\n             call GFIO_Open( ifile_, 1, fid, STATUS )\n             ASSERT_(STATUS==0)\n             call GetBegDateTime ( fid, nymd, nhms, incSecs, STATUS )\n             ASSERT_(STATUS==0)\n             caLL GFIO_Close( fid, STATUS )\n             ASSERT_(STATUS==0)\n             yy_ = nymd/10000\n             mm_ = (nymd-yy_*10000) / 100\n             dd_ = nymd - (10000*yy_ + mm_*100)\n             h_  = nhms/10000\n             m_  = (nhms- h_*10000) / 100\n             s_  = nhms - (10000*h_  + m_*100)\n             call ESMF_TimeSet(fileTime_, yy=yy_, mm=mm_, dd=dd_, h=h_, m=m_, s=s_)\n             VarBundle =  MAPL_SimpleBundleRead ( TRIM(ifile_), TRIM(bname), grid, fileTime_, ONLY_VARS=only_vars, RC=STATUS )\n             IF ( STATUS==ESMF_SUCCESS ) HasBundle = .TRUE.\n          ENDIF\n       ENDIF\n    ! error handling if file not found \n    ELSE\n       ! If file not found and error mode is zero, stop with error\n       IF ( errmode_ == 0 ) THEN\n          IF ( am_I_Root ) THEN\n             WRITE(*,*) 'ERROR: file not found: '//TRIM(ifile_)\n             WRITE(*,*) 'You can get past this error setting the error mode to > 0'\n          ENDIF\n          ASSERT_(.FALSE.)\n       ! If file not found and error mode is not zero, just skip nudging \n       ELSE\n          IF ( am_I_Root ) WRITE(*,*) '*** GCC warning in GetAnaBundle_, file not found: '//TRIM(ifile_)\n       ENDIF\n    ENDIF\n\n    ! Return\n    IF ( present(ifile   ) ) ifile    = ifile_\n    IF ( present(fileTime) ) fileTime = fileTime_\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GetAnaBundle_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ReadSettings_ \n!\n! !DESCRIPTION: Reads the analysis settings from a given configuration file\n!\n!\n! !INTERFACE:\n!\n  SUBROUTINE ReadSettings_( am_I_Root, GEOSCF, ispec, RC )\n!\n! !USES:\n!\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,              INTENT(IN)    :: am_I_Root  ! Root PET?\n    INTEGER,              INTENT(IN)    :: ispec      ! species number \n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_CONFIG),    INTENT(INOUT) :: GEOSCF     ! GCC RC file \n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT)                :: RC         ! Success or failure\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  25 May 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! \n! !LOCAL VARIABLES:\n!\n    TYPE(ESMF_Config)             :: CF\n    CHARACTER(LEN=ESMF_MAXSTR)    :: ConfigNameLabel, ConfigName, ThisStr\n    CHARACTER(LEN=ESMF_MAXSTR)    :: Spec2Name, Spec2Strat, Spec2Trop \n    CHARACTER(LEN=ESMF_MAXSTR)    :: Spec2MinRatio, Spec2MaxRatio\n    CHARACTER(LEN=3)              :: intStr\n    INTEGER                       :: N, IDX, nSpec2, ThisInt \n    CHARACTER(LEN=ESMF_MAXSTR)    :: Iam\n    INTEGER                       :: STATUS \n\n    !=======================================================================\n    ! ReadSettings_ begins here \n    !=======================================================================\n    Iam = 'ReadSettings_'\n\n    ! Get name of configuration file with settings\n    WRITE( intStr, '(I3.3)' ) ispec\n    ConfigNameLabel = 'Analysis_Settings_Spec'//TRIM(intStr)//':'\n    CALL ESMF_ConfigGetAttribute( GEOSCF, ConfigName, Label=TRIM(ConfigNameLabel), __RC__ )\n\n    ! Load configuration file\n    CF = ESMF_ConfigCreate (__RC__)\n    IF ( am_I_Root ) write(*,*) 'Reading analysis settings from file '//TRIM(ConfigName)\n    call ESMF_ConfigLoadFile (CF, TRIM(ConfigName), __RC__ ) \n\n    ! Read settings and write to configuration list\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%SpecName,       Label='SpeciesName:'   ,                __RC__ ) \n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='Active:'        , Default=1,     __RC__ )\n    AnaConfig(ispec)%Active = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnalysisFreq,   Label='AnalysisFreq:'  , Default=6,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnalysisHour,   Label='AnalysisHour:'  , Default=0,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnalysisMinute, Label='AnalysisMinute:', Default=0,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='ForwardLooking:', Default=1,     __RC__ )\n    AnaConfig(ispec)%ForwardLooking = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='ReadAnaTime:'   , Default=0,     __RC__ )\n    AnaConfig(ispec)%ReadAnaTime = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='SkipPredictor:' , Default=0,     __RC__ )\n    AnaConfig(ispec)%SkipPredictor = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%FileTemplate,   Label='FileTemplate:'  ,                __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%FileVarName,    Label='FileVarName:'   ,                __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%FileVarUnit,    Label='FileVarUnit:'   , Default='v/v', __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%FileVarDry,     Label='FileVarDry:'    , Default=-1,    __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='ApplyIncrement:', Default=0,     __RC__ )\n    AnaConfig(ispec)%ApplyIncrement = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='IAU:'           , Default=0,     __RC__ )\n    AnaConfig(ispec)%IAU = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnalysisWindow, Label='AnalysisWindow:', Default=6,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='InStrat:'       , Default=1,     __RC__ )\n    AnaConfig(ispec)%InStrat = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='InTrop:'        , Default=1,     __RC__ )\n    AnaConfig(ispec)%InTrop = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='NonZeroIncOnly:', Default=1,     __RC__ )\n    AnaConfig(ispec)%NonZeroIncOnly = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%FileVarNameInc, Label='FileVarNameInc:', Default='N/A', __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnaL1,          Label='AnaL1:'         , Default=1,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnaL2,          Label='AnaL2:'         , Default=1,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnaL3,          Label='AnaL3:'         , Default=72,    __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnaL4,          Label='AnaL4:'         , Default=72,    __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%AnaFraction,    Label='AnaFraction:'   , Default=1.0,   __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%StratSponge,    Label='StratSponge:'   , Default=0,     __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MaxChangeStrat, Label='MaxChangeStrat:', Default=-1.0,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MaxChangeTrop , Label='MaxChangeTrop:' , Default=-1.0,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MaxRatioStrat , Label='MaxRatioStrat:' , Default=-1.0,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MaxRatioTrop  , Label='MaxRatioTrop:'  , Default=-1.0,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MinRatioStrat , Label='MinRatioStrat:' , Default=-1.0,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MinRatioTrop  , Label='MinRatioTrop:'  , Default=-1.0,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, ThisInt,                         Label='UseObsHour:'    , Default=0,     __RC__ )\n    AnaConfig(ispec)%UseObsHour = ( ThisInt == 1 )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%ObsHourName,    Label='ObsHourName:'   , Default='ana_hour', __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%MinConc,        Label='MinConc:'       , Default=1.0e-20, __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%ErrorMode,      Label='ErrorMode:'     , Default=1   ,  __RC__ )\n    CALL ESMF_ConfigGetAttribute( CF, AnaConfig(ispec)%PrintNeg,       Label='PrintNeg:'      , Default=1   ,  __RC__ )\n\n    ! Check for \"dependent\" species\n    CALL ESMF_ConfigGetAttribute( CF, nSpec2,                          Label='HasSpec2:'      , Default=0,     __RC__ )\n    AnaConfig(ispec)%nSpec2 = nSpec2\n    IF ( nSpec2 > 0 ) THEN\n       ALLOCATE(AnaConfig(ispec)%Spec2(nSpec2)) \n       ! Read parameter as string (can be different for multiple dependent species, separated by comma')\n       CALL ESMF_ConfigGetAttribute( CF, Spec2Name,       Label='Spec2Name:'     , Default='N/A',   __RC__ )\n       CALL ESMF_ConfigGetAttribute( CF, Spec2Strat,      Label='Spec2Strat:'    , Default='1',     __RC__ )\n       CALL ESMF_ConfigGetAttribute( CF, Spec2Trop,       Label='Spec2Trop:'     , Default='1',     __RC__ )\n       CALL ESMF_ConfigGetAttribute( CF, Spec2MinRatio,   Label='Spec2MinRatio:' , Default='-1.0',  __RC__ )\n       CALL ESMF_ConfigGetAttribute( CF, Spec2MaxRatio,   Label='Spec2MaxRatio:' , Default='-1.0',  __RC__ )\n       ! Assign parameter to various slots\n       DO N = 1, nSpec2\n          ! Species name\n          CALL Spec2Parse_( Spec2Name, N, ThisStr )\n          AnaConfig(ispec)%Spec2(N)%Spec2Name = ThisStr \n          ! Use in troposphere/stratosphere?\n          CALL Spec2Parse_( Spec2Strat, N, ThisStr )\n          AnaConfig(ispec)%Spec2(N)%Spec2Strat = ( TRIM(ThisStr)=='1' )\n          CALL Spec2Parse_( Spec2Trop, N, ThisStr )\n          AnaConfig(ispec)%Spec2(N)%Spec2Trop  = ( TRIM(ThisStr)=='1' )\n          ! Minimum / maximum ratios \n          CALL Spec2Parse_( Spec2MinRatio, N, ThisStr )\n          READ(ThisStr,*) AnaConfig(ispec)%Spec2(N)%Spec2MinRatio\n          CALL Spec2Parse_( Spec2MaxRatio, N, ThisStr )\n          READ(ThisStr,*) AnaConfig(ispec)%Spec2(N)%Spec2MaxRatio\n       ENDDO\n    ELSE\n       AnaConfig(ispec)%Spec2 => NULL()\n    ENDIF\n\n    ! Some logical checks\n    IF ( AnaConfig(ispec)%ApplyIncrement ) AnaConfig(ispec)%NonZeroIncOnly = .FALSE.\n\n    ! Force some flags if spreading increments across observation window\n    IF ( AnaConfig(ispec)%IAU ) THEN\n        AnaConfig(ispec)%UseObsHour  = .FALSE.\n        AnaConfig(ispec)%ReadAnaTime = .TRUE.\n        !AnaConfig(ispec)%AnaFraction = AnaConfig(ispec)%AnaFraction\n    ENDIF\n\n    ! Verbose\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) '----------------------------------------'\n       WRITE(*,*) 'Analysis settings for GEOS-Chem species ',TRIM(AnaConfig(ispec)%SpecName),':'\n       WRITE(*,*) 'Active: ',AnaConfig(ispec)%Active\n       IF ( AnaConfig(ispec)%Active ) THEN\n          WRITE(*,*) '- Analysis frequency            : ',AnaConfig(ispec)%AnalysisFreq\n          WRITE(*,*) '- Analysis hour                 : ',AnaConfig(ispec)%AnalysisHour\n          WRITE(*,*) '- Analysis minute               : ',AnaConfig(ispec)%AnalysisMinute\n          WRITE(*,*) '- Forward looking file read     : ', AnaConfig(ispec)%ForwardLooking\n          WRITE(*,*) '- Read file analysis time stamp : ', AnaConfig(ispec)%ReadAnaTime\n          WRITE(*,*) '- Ignore during predictor step  : ', AnaConfig(ispec)%SkipPredictor\n          WRITE(*,*) '- Use observation hour          : ', AnaConfig(ispec)%UseObsHour\n          WRITE(*,*) '- File template                 : ', TRIM(AnaConfig(ispec)%FileTemplate)\n          WRITE(*,*) '- Variable name on file         : ', TRIM(AnaConfig(ispec)%FileVarName)\n          WRITE(*,*) '- Variable unit on file         : ', TRIM(AnaConfig(ispec)%FileVarUnit)\n          WRITE(*,*) '- Dry air flag (0=dry, 1=total) : ', AnaConfig(ispec)%FileVarDry \n          IF ( AnaConfig(ispec)%UseObsHour ) THEN\n             WRITE(*,*) '- Observation hour name on file : ', TRIM(AnaConfig(ispec)%ObsHourName)\n          ENDIF\n          WRITE(*,*) '- Apply increments              : ', AnaConfig(ispec)%ApplyIncrement\n          WRITE(*,*) '- Spread increments (IAU)       : ', AnaConfig(ispec)%IAU\n          WRITE(*,*) '- Analysis window length [h]    : ', AnaConfig(ispec)%AnalysisWindow\n          WRITE(*,*) '- Analysis where inc is not zero: ', AnaConfig(ispec)%NonZeroIncOnly\n          IF ( AnaConfig(ispec)%NonZeroIncOnly ) THEN\n             WRITE(*,*) '- Analysis inc variable name    : ', TRIM(AnaConfig(ispec)%FileVarNameInc)\n          ENDIF\n          WRITE(*,*) '- Apply analysis in stratosphere: ', AnaConfig(ispec)%InStrat\n          WRITE(*,*) '- Apply analysis in troposphere : ', AnaConfig(ispec)%InTrop\n          WRITE(*,*) '- Tropopause sponge layer       : ', AnaConfig(ispec)%StratSponge\n          WRITE(*,*) '- Analysis level 1              : ', AnaConfig(ispec)%AnaL1  \n          WRITE(*,*) '- Analysis level 2              : ', AnaConfig(ispec)%AnaL2\n          WRITE(*,*) '- Analysis level 3              : ', AnaConfig(ispec)%AnaL3\n          WRITE(*,*) '- Analysis level 4              : ', AnaConfig(ispec)%AnaL4\n          WRITE(*,*) '- Analysis fraction             : ', AnaConfig(ispec)%AnaFraction\n          WRITE(*,*) '- Max. absolute change in strat : ', AnaConfig(ispec)%MaxChangeStrat\n          WRITE(*,*) '- Max. absolute change in trop  : ', AnaConfig(ispec)%MaxChangeTrop  \n          WRITE(*,*) '- Max. relative change in strat : ', AnaConfig(ispec)%MaxRatioStrat\n          WRITE(*,*) '- Max. relative change in trop  : ', AnaConfig(ispec)%MaxRatioTrop  \n          WRITE(*,*) '- Min. relative change in strat : ', AnaConfig(ispec)%MinRatioStrat\n          WRITE(*,*) '- Min. relative change in trop  : ', AnaConfig(ispec)%MinRatioTrop  \n          WRITE(*,*) '- Min. concentration (for ratio): ', AnaConfig(ispec)%MinConc\n          WRITE(*,*) '- # of dependent species        : ', AnaConfig(ispec)%nSpec2\n          IF ( AnaConfig(ispec)%nSpec2 > 0 ) THEN\n             DO N = 1, AnaConfig(ispec)%nSpec2\n                WRITE(*,*) '- Name of dependent species     : ', TRIM(AnaConfig(ispec)%Spec2(N)%Spec2Name)\n                WRITE(*,*) '- Update in stratosphere        : ', AnaConfig(ispec)%Spec2(N)%Spec2Strat\n                WRITE(*,*) '- Update in troposphere         : ', AnaConfig(ispec)%Spec2(N)%Spec2Trop \n                WRITE(*,*) '- Minimum ratio (x/parent)      : ', AnaConfig(ispec)%Spec2(N)%Spec2MinRatio\n                WRITE(*,*) '- Maximum ratio (x/parent)      : ', AnaConfig(ispec)%Spec2(N)%Spec2MaxRatio\n             ENDDO\n          ENDIF\n          WRITE(*,*) '- Error mode                    : ', AnaConfig(ispec)%ErrorMode\n          WRITE(*,*) '- Print # negative cocentrations: ', AnaConfig(ispec)%PrintNeg\n       ENDIF ! Active \n    ENDIF\n\n    ! Successful return\n    RETURN_(ESMF_SUCCESS) \n\n  END SUBROUTINE ReadSettings_ \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Spec2Parse_ \n!\n! !DESCRIPTION: Helper routine to get the Nth index of a string (separated\n!  by comma).  \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Spec2Parse_( instr, N, outstr )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: instr \n    INTEGER,          INTENT(IN)    :: N \n!                                                             \n! !INPUT/OUTPUT PARAMETERS:                                         \n!              \n    CHARACTER(LEN=*), INTENT(INOUT) :: outstr \n!\n! !REVISION HISTORY:\n!  07 Jul 2022 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER                    :: lenstr\n    INTEGER                    :: I, LPOS, RPOS\n    CHARACTER(LEN=ESMF_MAXSTR) :: tmpstr\n\n    ! Local copy of original string\n    tmpstr = TRIM(instr)\n    lenstr = LEN(instr)\n\n    ! Check for first separator in string\n    LPOS = 0\n    RPOS = INDEX(TRIM(tmpstr),',')\n\n    ! Use full string if no separator in string \n    IF ( RPOS>0 .AND. N>1 ) THEN\n       DO I = 2, N\n          IF(RPOS<=0) CYCLE\n          LPOS = RPOS\n          tmpstr(LPOS:LPOS) = '.'\n          RPOS = INDEX(TRIM(tmpstr),',')\n       ENDDO\n    ENDIF\n    IF ( RPOS <= 0 ) RPOS = lenstr+1 \n    outstr = TRIM(instr(LPOS+1:RPOS-1))\n\n  END SUBROUTINE Spec2Parse_ \n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ReplaceChar_ \n!\n! !DESCRIPTION: Replaces all characters in a string. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ReplaceChar_ ( str, pattern, replace )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: pattern \n    CHARACTER(LEN=*), INTENT(IN)    :: replace\n!                                                             \n! !INPUT/OUTPUT PARAMETERS:                                         \n!              \n    CHARACTER(LEN=*), INTENT(INOUT) :: str \n!\n! !REVISION HISTORY:\n!  20 Dec 2018 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER  :: I, LP, LS\n\n    LP = LEN(TRIM(pattern))\n    LS = LEN(TRIM(str))+1\n    I  = INDEX(TRIM(str),TRIM(pattern))\n    DO WHILE ( I > 0 ) \n       str = TRIM(str(1:I-1))//TRIM(replace)//TRIM(str(I+LP:LS))\n       I = INDEX(TRIM(str),TRIM(pattern))\n    ENDDO\n\n  END SUBROUTINE ReplaceChar_\n!EOC\nEND MODULE GEOS_Analysis \n"
  },
  {
    "path": "Interfaces/GEOS/geos_interface.F90",
    "content": "#include \"MAPL_Generic.h\"\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: geos_interface\n!\n! !DESCRIPTION: Module with routines and variables to interface GEOS-Chem with\n!  GEOS \n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE GEOS_Interface\n!\n! !USES:\n!\n  ! MAPL/ESMF\n  USE ESMF     \n  USE MAPL_Mod \n  ! GEOS-Chem stuff\n  USE Precision_Mod\n  USE ErrCode_Mod                                    ! Error numbers\n  USE PHYSCONSTANTS\n  USE Input_Opt_Mod,         ONLY : OptInput\n  USE State_Chm_Mod,         ONLY : ChmState, Ind_   ! Chemistry State obj\n  USE State_Met_Mod,         ONLY : MetState         ! Meteorology State obj\n  USE State_Diag_Mod,        ONLY : DgnState         ! Diagnostics State obj\n  USE State_Grid_Mod,        ONLY : GrdState         ! Grid State obj\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC   :: MetVars_For_Lightning_Init \n  PUBLIC   :: MetVars_For_Lightning_Run  \n  PUBLIC   :: GEOS_CheckRATSandOx\n  PUBLIC   :: GEOS_RATSandOxDiags\n  PUBLIC   :: GEOS_SetH2O\n  PUBLIC   :: GEOS_Diagnostics \n  PUBLIC   :: GEOS_CalcTotOzone\n  PUBLIC   :: GEOS_InitFromFile\n  PUBLIC   :: GEOS_AddSpecInfoForMoist\n  PUBLIC   :: GEOS_PreRunChecks\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE  :: CalcColumns_\n  PRIVATE  :: CalcSpeciesDiagnostics_\n  PRIVATE  :: Init3D_\n  PRIVATE  :: Init2D_\n!\n! !PRIVATE TYPES:\n!\n! !REVISION HISTORY:\n!  01 Jul 2022 - C. Keller - initial version (refactored Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for full history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_CheckRATSandOx\n!\n! !DESCRIPTION: Check if GEOS-Chem is the RATS/Ox provider and set services\n!  accordingly. \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CheckRATSandOx( am_I_Root, GC, RC )\n!\n! !USE:\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)            :: am_I_Root ! Root CPU?\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    INTEGER,             INTENT(INOUT)         :: RC        ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  13 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    TYPE(ESMF_CONFIG)                :: CF\n    CHARACTER(LEN=ESMF_MAXSTR)       :: ProviderName \n\n    __Iam__('GEOS_CheckRATSandOx')\n\n    ! Get configuration \n    CALL ESMF_GridCompGet( GC, CONFIG = CF, __RC__ )\n\n    ! If GEOS-Chem is the RATS provider, we need to make sure that all\n    ! RATS quantities are available to irradiation. We will get these\n    ! quantities directly from the GEOS-Chem internal state, except for\n    ! H2O_TEND that is calculated explicitly.\n    ! Since those fields are just copies of the GEOS-Chem internal\n    ! species, we add them as export specs, i.e. no physics is applied\n    ! to those fields.\n    ! ----------------------------------------------------------------\n    ! See if GC is the RATS provider\n    CALL ESMF_ConfigGetAttribute( CF, ProviderName,       &\n                                  Label=\"RATS_PROVIDER:\", &\n                                  Default=\"PCHEM\",        &\n                                  __RC__                   )\n\n    IF ( ProviderName == \"GEOSCHEMCHEM\" ) THEN \n\n       ! verbose\n       IF ( am_I_Root ) WRITE(*,*) 'GEOS-Chem is RATS provider, set exports...'\n\n       call MAPL_AddExportSpec(GC,                                &\n          SHORT_NAME         = 'N2O',                               &\n          LONG_NAME          = 'nitrous_oxide_volume_mixing_ratio', &\n          UNITS              = 'mol mol-1',                         &\n          DIMS               = MAPL_DimsHorzVert,                   &\n          VLOCATION          = MAPL_VLocationCenter,                &\n                                                            __RC__ )\n\n       call MAPL_AddExportSpec(GC,                                &\n          SHORT_NAME         = 'CFC11',                             &\n          LONG_NAME          = 'CFC11_(CCl3F)_volume_mixing_ratio', &\n          UNITS              = 'mol mol-1',                         &\n          DIMS               = MAPL_DimsHorzVert,                   &\n          VLOCATION          = MAPL_VLocationCenter,                &\n                                                            __RC__ )\n\n       call MAPL_AddExportSpec(GC,                                &\n          SHORT_NAME         = 'CFC12',                             &\n          LONG_NAME          = 'CFC12_(CCl2F2)_volume_mixing_ratio',&\n          UNITS              = 'mol mol-1',                         &\n          DIMS               = MAPL_DimsHorzVert,                   &\n          VLOCATION          = MAPL_VLocationCenter,                &\n                                                            __RC__ )\n\n       call MAPL_AddExportSpec(GC,                                &\n          SHORT_NAME         = 'HCFC22',                            &\n          LONG_NAME          = 'HCFC22_(CHClF2)_volume_mixing_ratio', &\n          UNITS              = 'mol mol-1',                         &\n          DIMS               = MAPL_DimsHorzVert,                   &\n          VLOCATION          = MAPL_VLocationCenter,                &\n                                                            __RC__ )\n\n       call MAPL_AddExportSpec(GC,                                &\n          SHORT_NAME         = 'CH4',                               &\n          LONG_NAME          = 'methane_volume_mixing_ratio',       &\n          UNITS              = 'mol mol-1',                         &\n          DIMS               = MAPL_DimsHorzVert,                   &\n          VLOCATION          = MAPL_VLocationCenter,                &\n                                                            __RC__ )\n\n       call MAPL_AddExportSpec(GC,                                  &\n          SHORT_NAME = 'H2O_TEND',                                  &\n          LONG_NAME  = 'tendency_of_water_vapor_mixing_ratio_due_to_chemistry',&\n          UNITS      = 'kg kg-1 s-1',                               &\n          DIMS       = MAPL_DimsHorzVert,                           &\n          VLOCATION  = MAPL_VLocationCenter,                        &\n                                                            __RC__ )\n    ENDIF ! DoRATS\n\n    !================================\n    ! If Analysis OX provider\n    !================================\n    CALL ESMF_ConfigGetAttribute( CF, ProviderName,              &\n                                  Label=\"ANALYSIS_OX_PROVIDER:\", &\n                                  Default=\"PCHEM\",               &\n                                  __RC__                          )\n\n    IF ( ProviderName == \"GEOSCHEMCHEM\" ) THEN \n       ! verbose\n       IF ( am_I_Root ) WRITE(*,*) 'GEOS-Chem is OX provider!' \n\n!-- Add OX to the internal state if GEOS-Chem is the analysis OX provider\n        CALL MAPL_AddInternalSpec(GC,                                       &\n           SHORT_NAME         = 'OX',                                       &\n           LONG_NAME          = 'odd_oxygen_volume_mixing_ratio_total_air', &\n           UNITS              = 'mol mol-1',                                &\n           DIMS               = MAPL_DimsHorzVert,                          &\n           FRIENDLYTO         = 'ANALYSIS:DYNAMICS:TURBULENCE:MOIST',       &\n           RESTART            = MAPL_RestartSkip,                           &\n           VLOCATION          = MAPL_VLocationCenter,                       &\n                                                  __RC__ )\n        if(am_I_Root) write(*,*) 'OX added to internal: Friendly to: ANALYSIS, DYNAMICS, TURBULENCE, MOIST'\n\n       call MAPL_AddExportSpec(GC,                 &\n          SHORT_NAME = 'O3',                       &\n          LONG_NAME  = 'ozone_mass_mixing_ratio',  &\n          UNITS      = 'kg kg-1',                  &\n          DIMS       = MAPL_DimsHorzVert,          &\n          VLOCATION  = MAPL_VLocationCenter,       &\n                                           __RC__ )\n\n       call MAPL_AddExportSpec(GC,                 &\n          SHORT_NAME = 'O3PPMV',                   &\n          LONG_NAME  = 'ozone_volume_mixing_ratio_in_ppm',  &\n          UNITS      = 'ppmv',                     &\n          DIMS       = MAPL_DimsHorzVert,          &\n          VLOCATION  = MAPL_VLocationCenter,       &\n                                           __RC__ )\n\n       call MAPL_AddExportSpec(GC,                 &\n          SHORT_NAME = 'OX_TEND',                  &\n          LONG_NAME  = 'tendency_of_odd_oxygen_mixing_ratio_due_to_chemistry',&\n          UNITS      = 'mol mol-1 s-1',            &\n          DIMS       = MAPL_DimsHorzVert,          &\n          VLOCATION  = MAPL_VLocationCenter,       &\n                                           __RC__ )\n    ENDIF !DoANOX\n\n    !============================================\n    ! General diagnostics that can always be used\n    !============================================\n    call MAPL_AddExportSpec(GC,                                  &\n        SHORT_NAME = 'GCC_H2O_TEND',                             &\n        LONG_NAME  = 'GEOSCHEMCHEM_tendency_of_water_vapor_mixing_ratio',&\n        UNITS      = 'kg kg-1 s-1',                               &\n        DIMS       = MAPL_DimsHorzVert,                           &\n        VLOCATION  = MAPL_VLocationCenter,                        &\n                                            __RC__ )\n\n    call MAPL_AddExportSpec(GC,                                     &\n        SHORT_NAME         = 'GCC_O3',                            &\n        LONG_NAME          = 'GEOSCHEMCHEM_ozone_mass_mixing_ratio_total_air', &\n        UNITS              = 'kg kg-1',                           &\n        DIMS               = MAPL_DimsHorzVert,                   &\n        VLOCATION          = MAPL_VLocationCenter,                &\n                                            __RC__ )\n\n    call MAPL_AddExportSpec(GC,                                       &\n        SHORT_NAME         = 'GCC_O3PPMV',                          &\n        LONG_NAME          = 'GEOSCHEMCHEM_ozone_volume_mixing_ratio_total_air', &\n        UNITS              = 'ppmv',                                &\n        DIMS               = MAPL_DimsHorzVert,                     &\n        VLOCATION          = MAPL_VLocationCenter,                  &\n                                            __RC__  )\n\n    call MAPL_AddExportSpec(GC,                 &\n        SHORT_NAME = 'GCC_OX_TEND',                  &\n        LONG_NAME  = 'GEOSCHEMCHEM_tendency_of_odd_oxygen_mixing_ratio',&\n        UNITS      = 'mol mol-1 s-1',            &\n        DIMS       = MAPL_DimsHorzVert,          &\n        VLOCATION  = MAPL_VLocationCenter,       &\n                                            __RC__ )\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_CheckRATSandOx\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_RATSandOxDiags\n!\n! !DESCRIPTION: GEOS_RATSandOxDiags manages the diagnostics for RATS and Ox.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_RATSandOxDiags( GC, Internal, Export, Input_Opt, State_Met, &\n                                  State_Chm, State_Grid, Q, Stage, tsChem, RC ) \n!\n! !USES:\n!\n    USE UnitConv_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    TYPE(ESMF_STATE),    INTENT(INOUT)         :: Internal  ! Internal state\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export    ! Export State\n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(MetState)                             :: State_Met\n    TYPE(ChmState)                             :: State_Chm\n    TYPE(GrdState)                             :: State_Grid\n    REAL,                INTENT(IN)            :: Q(:,:,:)\n    INTEGER,             INTENT(IN)            :: Stage \n    REAL,                INTENT(IN)            :: tsChem \n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  13 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER, PARAMETER           :: NRATS = 5\n    CHARACTER(LEN=15), PARAMETER :: RatsNames(NRATS) = (/ 'CH4', 'N2O', 'CFC11', 'CFC12', 'HCFC22' /)\n    REAL, PARAMETER              :: OMW = 16.0\n    ! \n    INTEGER                      :: I, LM, IndSpc, IndO3\n    REAL, POINTER                :: Ptr3D(:,:,:)       => NULL()\n    REAL(fp), POINTER            :: PTR_O3(:,:,:)      => NULL()\n    REAL, POINTER                :: OX_TEND(:,:,:)     => NULL()\n    REAL, POINTER                :: GCC_OX_TEND(:,:,:) => NULL()\n    REAL, POINTER                :: OX(:,:,:)          => NULL()\n    REAL, POINTER                :: O3(:,:,:)          => NULL()\n    REAL, POINTER                :: O3PPMV(:,:,:)      => NULL()\n    REAL, POINTER                :: GCO3(:,:,:)        => NULL()\n    REAL, POINTER                :: GCO3PPMV(:,:,:)    => NULL()\n    REAL, POINTER                :: PTR_O3P(:,:,:)     => NULL()\n    REAL, POINTER                :: PTR_O1D(:,:,:)     => NULL()\n    REAL, ALLOCATABLE            :: OXLOCAL(:,:,:)\n    LOGICAL                      :: NeedO3\n    INTEGER                      :: previous_units\n\n    __Iam__('GEOS_RATSandOxDiags')\n\n    ! Start here\n    LM = State_Grid%NZ\n\n    ! Make sure that species are in kg/kg total. This should be the case already,\n    ! but better be safe!\n    CALL Convert_Spc_Units ( Input_Opt, State_Chm, State_Grid, State_Met, &\n                             new_units=KG_SPECIES_PER_KG_TOTAL_AIR,       &\n                             previous_units=previous_units, RC=RC )\n\n    !=======================================================================\n    ! Fill RATS export states if GC is the RATS provider\n    ! The tracer concentrations of the RATS export states are in mol mol-1.\n    ! These fields are required for coupling with other components. Don't\n    ! do this via the State_Diag object but use the EXPORT state directly.\n    !=======================================================================\n    ! Get pointers to RATS exports\n    IF ( Stage == 2 ) THEN\n       DO I=1,NRATS\n          CALL MAPL_GetPointer ( EXPORT, Ptr3D, TRIM(RatsNames(I)), NotFoundOK=.TRUE., __RC__ )\n          IF ( ASSOCIATED(Ptr3D) ) THEN\n             IndSpc = Ind_(TRIM(RatsNames(I)))\n             ASSERT_(IndSpc>0)\n             Ptr3D = State_Chm%Species(IndSpc)%Conc(:,:,LM:1:-1) &\n                   * ( MAPL_AIRMW / State_Chm%SpcData(IndSpc)%Info%MW_g )\n          ENDIF\n       ENDDO\n    ENDIF\n\n    ! Check for H2O tendency\n    CALL MAPL_GetPointer ( EXPORT, Ptr3D, 'H2O_TEND', NotFoundOK=.TRUE., __RC__ )\n    IF ( ASSOCIATED(Ptr3D) ) THEN\n       IndSpc = Ind_('H2O')\n       ASSERT_(IndSpc>0)\n       IF ( Stage == 1 ) Ptr3D = State_Chm%Species(IndSpc)%Conc(:,:,LM:1:-1) \n       IF ( Stage == 2 ) Ptr3D = ( State_Chm%Species(IndSpc)%Conc(:,:,LM:1:-1)-Ptr3D ) / tsChem \n    ENDIF \n\n    ! Check for H2O tendency\n    CALL MAPL_GetPointer ( EXPORT, Ptr3D, 'GCC_H2O_TEND', NotFoundOK=.TRUE., __RC__ )\n    IF ( ASSOCIATED(Ptr3D) ) THEN\n       IndSpc = Ind_('H2O')\n       ASSERT_(IndSpc>0)\n       IF ( Stage == 1 ) Ptr3D = State_Chm%Species(IndSpc)%Conc(:,:,LM:1:-1) \n       IF ( Stage == 2 ) Ptr3D = ( State_Chm%Species(IndSpc)%Conc(:,:,LM:1:-1)-Ptr3D ) / tsChem \n    ENDIF \n\n    !=======================================================================\n    ! Ozone diagnostics for GEOS coupling with other components. Do these\n    ! via the export state directly, rather than using the State_Diag obj.\n    !=======================================================================\n\n    ! PTR_O3: kg kg-1 total air\n    !CALL MAPL_GetPointer( INTSTATE, PTR_O3, 'SPC_O3', NotFoundOk=.TRUE., __RC__ )\n\n    ! Fill ozone export states if GC is the analysis OX provider:\n    !      OX: volume mixing ratio\n    !      O3: mass mixing ratio\n    !  O3PPMV: volume mixing ratio in ppm\n    ! Get pointers to analysis OX exports\n    CALL MAPL_GetPointer ( EXPORT,      OX_TEND, 'OX_TEND'     , NotFoundOK=.TRUE., __RC__ )\n    CALL MAPL_GetPointer ( EXPORT,  GCC_OX_TEND, 'GCC_OX_TEND' , NotFoundOK=.TRUE., __RC__ )\n    IF ( Stage == 2 ) THEN\n       CALL MAPL_GetPointer ( INTERNAL,     OX, 'OX'         , NotFoundOK=.TRUE., __RC__ )\n       CALL MAPL_GetPointer ( EXPORT,       O3, 'O3'         , NotFoundOK=.TRUE., __RC__ )\n       CALL MAPL_GetPointer ( EXPORT,   O3PPMV, 'O3PPMV'     , NotFoundOK=.TRUE., __RC__ )\n       CALL MAPL_GetPointer ( EXPORT,     GCO3, 'GCC_O3'     , NotFoundOK=.TRUE., __RC__ )\n       CALL MAPL_GetPointer ( EXPORT, GCO3PPMV, 'GCC_O3PPMV' , NotFoundOK=.TRUE., __RC__ )\n    ENDIF\n    NeedO3 = .FALSE.\n    IF ( ASSOCIATED(OX          )) NeedO3 = .TRUE.\n    IF ( ASSOCIATED(OX_TEND     )) NeedO3 = .TRUE.\n    IF ( ASSOCIATED(GCC_OX_TEND )) NeedO3 = .TRUE.\n    IF ( ASSOCIATED(O3          )) NeedO3 = .TRUE.\n    IF ( ASSOCIATED(O3PPMV      )) NeedO3 = .TRUE.\n    IF ( ASSOCIATED(GCO3        )) NeedO3 = .TRUE.\n    IF ( ASSOCIATED(GCO3PPMV    )) NeedO3 = .TRUE.\n    IF ( NeedO3 ) THEN\n       IndO3 = Ind_('O3')\n       ASSERT_(IndO3>0)\n       PTR_O3 => State_Chm%Species(IndO3)%Conc(:,:,LM:1:-1)\n    ENDIF\n    IF ( ASSOCIATED(O3)       ) O3       = PTR_O3\n    IF ( ASSOCIATED(GCO3)     ) GCO3     = PTR_O3\n    IF ( ASSOCIATED(O3PPMV  ) ) O3PPMV   = PTR_O3 * MAPL_AIRMW / MAPL_O3MW * 1.00E+06\n    IF ( ASSOCIATED(GCO3PPMV) ) GCO3PPMV = PTR_O3 * MAPL_AIRMW / MAPL_O3MW * 1.00E+06\n    IF ( ASSOCIATED(OX) .OR. ASSOCIATED(OX_TEND) .OR. ASSOCIATED(GCC_OX_TEND) ) THEN\n       ALLOCATE(OXLOCAL(State_Grid%NX,State_Grid%NY,State_Grid%NZ))\n       OXLOCAL = PTR_O3 * MAPL_AIRMW / MAPL_O3MW\n       IndSpc = Ind_('O')\n       ASSERT_(IndSpc>0)\n       OXLOCAL = OXLOCAL + ( State_Chm%Species(indSpc)%Conc(:,:,LM:1:-1)*MAPL_AIRMW/State_Chm%SpcData(IndSpc)%Info%MW_g )\n       IndSpc = Ind_('O1D')\n       ASSERT_(IndSpc>0)\n       OXLOCAL = OXLOCAL + ( State_Chm%Species(indSpc)%Conc(:,:,LM:1:-1)*MAPL_AIRMW/State_Chm%SpcData(IndSpc)%Info%MW_g )\n       IF ( ASSOCIATED(OX) ) OX = OXLOCAL \n       IF ( ASSOCIATED(OX_TEND) ) THEN\n          IF ( Stage==1 ) OX_TEND = OXLOCAL\n          IF ( Stage==2 ) OX_TEND = ( OXLOCAL - OX_TEND ) / tsChem \n       ENDIF\n       IF ( ASSOCIATED(GCC_OX_TEND) ) THEN\n          IF ( Stage==1 ) GCC_OX_TEND = OXLOCAL\n          IF ( Stage==2 ) GCC_OX_TEND = ( OXLOCAL - GCC_OX_TEND ) / tsChem \n       ENDIF\n       DEALLOCATE(OXLOCAL)\n    ENDIF\n\n    ! Convert back to original unit\n    CALL Convert_Spc_Units ( Input_Opt, State_Chm, State_Grid, State_Met, &\n                             new_units=previous_units, RC=RC )\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_RATSandOxDiags\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_SetH2O\n!\n! !DESCRIPTION: GEOS_SetH2O sets the GEOS-Chem H2O species to Q or vice versa.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_SetH2O( GC, Input_Opt, State_Met, &\n                          State_Chm, State_Grid, Q, Direction, RC ) \n!\n! !USES:\n!\n    USE UnitConv_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(MetState)                             :: State_Met\n    TYPE(ChmState)                             :: State_Chm\n    TYPE(GrdState)                             :: State_Grid\n    REAL,                INTENT(INOUT)         :: Q(:,:,:)\n    INTEGER,             INTENT(IN)            :: Direction ! 1:Q-->H2O; -1:H2O-->Q \n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  13 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER   :: IndH2O, LM \n    INTEGER   :: previous_units\n\n    __Iam__('GEOS_SetH2O')\n\n    ! Only do if H2O is a species \n    IndH2O = Ind_('H2O')\n    IF ( IndH2O > 0 ) THEN\n       ! Make sure that species are in kg/kg total. This should be the case already,\n       ! but better be safe!\n       CALL Convert_Spc_Units ( Input_Opt, State_Chm, State_Grid, State_Met, &\n                                new_units=KG_SPECIES_PER_KG_TOTAL_AIR,       &\n                                previous_units=previous_units, RC=RC )\n  \n       ! Sync Q and H2O concentration array. Q is in kg/kg total, so is H2O. \n       LM = State_Grid%NZ\n       ! Set GEOS-Chem H2O from Q\n       IF ( Direction == 1 ) THEN\n          State_Chm%Species(IndH2O)%Conc(:,:,LM:1:-1) = Q(:,:,1:LM)\n       ! Set Q to GEOS-Chem H2O. This is possible because Q is friendly to\n       ! CHEMISTRY\n       ELSEIF ( Direction == -1 ) THEN\n          Q(:,:,1:LM) = State_Chm%Species(IndH2O)%Conc(:,:,LM:1:-1)\n       ENDIF   \n\n       ! Convert back to original unit\n       CALL Convert_Spc_Units ( Input_Opt, State_Chm, State_Grid, State_Met, &\n                                new_units=previous_units, RC=RC )\n    ENDIF\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_SetH2O\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_AddSpecInfoForMoist\n!\n! !DESCRIPTION: Add species info to internal state for moist\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_AddSpecInfoForMoist ( am_I_Root, GC, CF, Input_Opt, State_Chm, RC )\n!\n! !USE:\n!\n   USE Precision_Mod,      ONLY : MISSING, MISSING_DBLE\n   USE Species_Mod,        ONLY : Species\n   USE DiagList_Mod,       ONLY : SPFX                ! Internal state prefixes\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN   )         :: am_I_Root ! Root CPU?\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: CF        ! GEOSCHEM*.rc\n    TYPE(OptInput),      INTENT(INOUT)         :: Input_Opt ! Input Options\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm ! Chemistry state\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC        ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  21 Oct 2020 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n!\n! LOCAL VARIABLES:\n!\n    TYPE(MAPL_MetaComp), POINTER     :: STATE => NULL()\n    TYPE(ESMF_STATE)                 :: Internal\n    TYPE(ESMF_Field)                 :: Field\n    CHARACTER(LEN=ESMF_MAXSTR)       :: FieldName\n    real(ESMF_KIND_R4), dimension(4) :: HenryCoeffs\n    real(ESMF_KIND_R4), dimension(3) :: kcs\n    REAL                             :: fscav\n    REAL(ESMF_KIND_R4)               :: hstar,dhr,ak0,dak\n    REAL                             :: liq_and_gas, retfactor, convfaci2g\n    INTEGER                          :: N\n    INTEGER                          :: TurnOffSO2\n    INTEGER                          :: online_cldliq, online_vud\n    TYPE(Species), POINTER           :: SpcInfo\n\n    __Iam__('AddSpecInfoForMoist')\n\n    ! Starts here\n    CALL MAPL_GetObjectFromGC(GC, STATE, __RC__ )\n    CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=Internal, __RC__ )\n\n    ! Turn off SO2 washout? Defaults to yes.\n    ! SO2  washout occurs via reaction with H2O2. This reaction\n    ! seems to be explicitly capture in the sulfur chemistry code so make sure that\n    ! SO2 is not being washed out.\n    CALL ESMF_ConfigGetAttribute( CF, TurnOffSO2, Label=\"TurnOff_SO2_washout:\", Default=1, __RC__ )\n\n    ! Use online or offline calculation of cloud liquid water?\n    CALL ESMF_ConfigGetAttribute( CF, online_cldliq, Label=\"Online_CLDLIQ:\", Default=1, __RC__ )\n\n    ! Use online or offline calculation of vertical updraft velocity?\n    CALL ESMF_ConfigGetAttribute( CF, online_vud, Label=\"Online_VUD:\", Default=1, __RC__ )\n\n    ! Verbose\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) 'Update wet scavenging parameter for MOIST:'\n       WRITE(*,*) 'Turn off SO2 washout: ',TurnOffSO2\n       WRITE(*,*) 'Calculate CLDLIQ online: ',online_cldliq\n       WRITE(*,*) 'Calculate VUD online: ',online_vud\n       WRITE(*,*) 'ID,          Name:  Hstar, dHstar, Ka, dKa, AerScavEff, KcScal1, KcScal2, KcScal3, liq/gas, i2g, retention'\n    ENDIF\n\n    ! Loop over all species\n    !DO N_WD = 1, State_Chm%nWetDep\n    DO N = 1, State_Chm%nSpecies\n\n       !N = State_Chm%Map_WetDep(N_WD)\n       SpcInfo => State_Chm%SpcData(N)%Info\n\n       ! Get field\n       FieldName = TRIM(SPFX)//TRIM(SpcInfo%name)\n       CALL ESMF_StateGet(Internal, TRIM(FieldName), Field, RC=RC )\n       ! Skip to next species if not found. This can happen if not all species are in the internal state\n       IF ( RC /= ESMF_SUCCESS ) CYCLE\n\n       ! Scavenging efficiency\n       fscav = MIN(MAX(SpcInfo%WD_AerScavEff,0.0),1.0)\n       ! Don't washout SO2 if specified so\n       IF ( (TRIM(FieldName)==TRIM(SPFX)//'SO2') .AND. (TurnOffSO2==1) ) fscav = 0.0\n       CALL ESMF_AttributeSet(Field, NAME='ScavengingFractionPerKm', VALUE=fscav, __RC__ )\n\n       ! Henry coefficients. All values default to -1.0\n       hstar = -99.0\n       dhr   = 0.0 !mkelp 20210114\n       ak0   = 0.0 !mkelp\n       ! Henry law coefficient [mol/atm]\n       IF ( SpcInfo%Henry_K0  /= MISSING_DBLE ) hstar = SpcInfo%Henry_K0\n       ! Temperature correction factor [K]\n       IF ( SpcInfo%Henry_CR  /= MISSING_DBLE ) dhr = SpcInfo%Henry_CR\n       ! Acid dissociation constant Ka, compute from pKa\n       IF ( SpcInfo%Henry_pKa /= MISSING_DBLE ) ak0 = SpcInfo%Henry_pKa\n       ! Temperature correction for Ka, currently ignored by GEOS-Chem\n       dak   = 0.0 !mkelp\n       ! Don't washout SO2 if specified so\n       IF ( (TRIM(FieldName)==TRIM(SPFX)//'SO2') .AND. (TurnOffSO2==1) ) THEN\n          hstar = -99.0\n          dhr   = 0.0 !mkelp\n          ak0   = 0.0 !mkelp\n       ENDIF\n       ! Pass to array\n       HenryCoeffs(1) = hstar\n       HenryCoeffs(2) = dhr\n       HenryCoeffs(3) = ak0\n       HenryCoeffs(4) = dak\n       CALL ESMF_AttributeSet(Field, 'SetofHenryLawCts', HenryCoeffs, __RC__ )\n       ! KC scale factors\n       kcs(:) = 1.0\n       IF ( SpcInfo%WD_KcScaleFac(1) /= MISSING ) kcs(1) = SpcInfo%WD_KcScaleFac(1)\n       IF ( SpcInfo%WD_KcScaleFac(2) /= MISSING ) kcs(2) = SpcInfo%WD_KcScaleFac(2)\n       IF ( SpcInfo%WD_KcScaleFac(3) /= MISSING ) kcs(3) = SpcInfo%WD_KcScaleFac(3)\n       CALL ESMF_AttributeSet(Field, 'SetofKcScalFactors', kcs, __RC__ )\n       ! Gas-phase washout parameter\n       ! Liquid and gas washout?\n       liq_and_gas = 0.0\n       IF ( SpcInfo%WD_LiqAndGas ) liq_and_gas = 1.0\n       CALL ESMF_AttributeSet(Field, 'LiqAndGas', liq_and_gas, __RC__ )\n       ! ice to gas ratio\n       IF ( SpcInfo%WD_ConvFacI2G == MISSING ) THEN\n          convfaci2g = 0.0\n       ELSE\n          convfaci2g = SpcInfo%WD_ConvFacI2G\n       ENDIF\n       CALL ESMF_AttributeSet(Field, 'ConvFacI2G', convfaci2g, __RC__ )\n       ! Retention factor\n       IF ( SpcInfo%WD_RetFactor == MISSING ) THEN\n          retfactor = 1.0\n       ELSE\n          retfactor = SpcInfo%WD_RetFactor\n       ENDIF\n       CALL ESMF_AttributeSet(Field, 'RetentionFactor', retfactor, __RC__ )\n       ! Use online or offline CLDLIQ? This is the same for all species\n       CALL ESMF_AttributeSet(Field, 'OnlineCLDLIQ', real(online_cldliq), __RC__ )\n       ! Use online or offline VUD? This is the same for all species\n       CALL ESMF_AttributeSet(Field, 'OnlineVUD', real(online_vud), __RC__ )\n       ! Verbose\n       IF ( am_I_Root ) THEN\n          WRITE(*,100) N, TRIM(SpcInfo%Name), hstar, dhr, ak0, dak, fscav, kcs(1), kcs(2), kcs(3), liq_and_gas, convfaci2g, retfactor\n100       FORMAT( i3,1x,a14,': ',4(1x,es9.2),7(1x,f3.1) )\n       ENDIF\n    ENDDO\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_AddSpecInfoForMoist\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_PreRunChecks\n!\n! !DESCRIPTION: GEOS_PreRunChecks makes some pre-run checks specific for GEOS simulations \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_PreRunChecks( am_I_Root, Input_Opt, State_Met, State_Chm, &\n                                GeosCF, First, RC )\n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)            :: am_I_Root \n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(MetState)                             :: State_Met\n    TYPE(ChmState)                             :: State_Chm\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: GeosCF    ! ESMF Config obj (GEOSCHEM*.rc)\n    LOGICAL,             INTENT(IN)            :: First\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  13 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    INTEGER                    :: N, InitZero, InitSpecs \n\n    __Iam__('GEOS_PreRunChecks')\n\n    !=======================================================================\n    ! Error trap: make sure that PBL height is defined.\n    ! Some fields needed by GEOS-Chem are only filled after the first\n    ! GEOS-Chem run. We need to avoid that GEOS-Chem is called in these\n    ! cases, since those fields are still zero and would cause seg-faults.\n    ! The PBL height is a good proxy variable, and if those values are ok\n    ! all others seem to be fine as well.\n    ! We do this error check on every time step (not only on the first\n    ! one) to also catch the case where the time is reset to the initial\n    ! conditions (replay mode).\n    ! (ckeller, 4/24/2015).\n    !=======================================================================\n    IF ( ANY(State_Met%PBLH <= 0.0_fp) ) THEN\n       Input_Opt%haveImpRst = .FALSE.\n\n       ! Warning message\n       IF ( am_I_Root ) THEN\n          write(*,*) ' '\n          write(*,*)      &\n             'At least one PBLH value in GEOS-Chem is zero - skip time step'\n          write(*,*) ' '\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Handling of species/tracer initialization. Default practice is to take\n    ! whatever values are in the restarts. However, it is possible to\n    ! initialize everything to zero and/or to set species' concentration to\n    ! the values set in globchem.dat.rc. These options can be set in the\n    ! GEOSCHEMchem GridComp registry. (ckeller, 2/4/16)\n    !=======================================================================\n    IF ( First ) THEN \n       ! Check if zero initialization option is selected. If so, make sure\n       ! all concentrations are initialized to zero!\n       CALL ESMF_ConfigGetAttribute( GeosCF, InitZero, Default=0, &\n                                     Label = \"INIT_ZERO:\", __RC__ )\n       IF ( InitZero == 1 ) THEN\n          DO N = 1, State_Chm%nSpecies\n             State_Chm%Species(N)%Conc = 0.0d0\n          ENDDO\n          IF ( am_I_Root ) THEN\n             write(*,*) ' '\n             write(*,*) ' '\n             write(*,*)     &\n              '### ALL GEOS-CHEM CONCENTRATIONS INITIALIZED TO ZERO !!! ###'\n             write(*,*) ' '\n             write(*,*) ' '\n          ENDIF\n       ENDIF\n\n       ! Check if species shall be initialized to values set in globchem.dat\n       CALL ESMF_ConfigGetAttribute( GeosCF, InitSpecs, Default=0, &\n                                     Label = \"INIT_SPECS:\", __RC__ )\n       IF ( InitSpecs == 1 ) Input_Opt%LINITSPEC = .TRUE.\n    ENDIF\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_PreRunChecks\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_InitFromFile\n!\n! !DESCRIPTION: GEOS_InitFromFile initializes the GEOS-Chem species values from\n!  external data.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_InitFromFile( GC, Import, Internal, Export, GeosCF, Input_Opt, &\n                                State_Met, State_Chm, Q, PLE, TROPP, First, RC )\n!\n! !USES:\n!\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import    ! Import State\n    TYPE(ESMF_STATE),    INTENT(INOUT)         :: Internal  ! Internal state\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export    ! Export State\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: GeosCF    ! ESMF Config obj (GEOSCHEM*.rc)\n    TYPE(OptInput)                             :: Input_Opt\n    TYPE(MetState)                             :: State_Met\n    TYPE(ChmState)                             :: State_Chm\n    TYPE(ESMF_Time)                            :: currTime\n    REAL,                INTENT(IN)            :: Q(:,:,:)\n    REAL,                POINTER               :: PLE(:,:,:)\n    REAL,                POINTER               :: TROPP(:,:)\n    LOGICAL,             INTENT(IN)            :: First\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  18 Mar 2017 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Objects\n\n    ! Scalars\n    LOGICAL                    :: am_I_Root     ! Are we on the root PET?\n    CHARACTER(LEN=ESMF_MAXSTR) :: Iam, compName ! Gridded component name\n    CHARACTER(LEN=ESMF_MAXSTR) :: FldName\n    CHARACTER(LEN=ESMF_MAXSTR) :: SpcName\n    CHARACTER(LEN=255)         :: ifile\n    CHARACTER(LEN=255)         :: VarPrefix\n    TYPE(MAPL_SimpleBundle)    :: VarBundle\n    TYPE(ESMF_Grid)            :: grid\n    TYPE(ESMF_TIME)            :: time\n    TYPE(ESMF_Field)           :: iFld\n    REAL, POINTER              :: Ptr3D(:,:,:) => NULL()\n    REAL, ALLOCATABLE          :: Scal(:,:), Temp(:,:), wgt1(:,:), wgt2(:,:)\n    INTEGER                    :: varID, fid, N, L, LM2\n    INTEGER                    :: L1, L2, INC\n    INTEGER                    :: IM, JM, LM, LB\n    INTEGER                    :: STATUS\n    INTEGER                    :: nymd, nhms, yy, mm, dd, h, m, s, incSecs\n    REAL                       :: MW\n    REAL                       :: UniformIfMissing\n    LOGICAL                    :: ShortlivedOnly\n    LOGICAL                    :: FileExists\n    INTEGER                    :: DoIt, idx, x1, x2\n    LOGICAL                    :: ReadGMI\n    LOGICAL                    :: OnGeosLev\n    LOGICAL                    :: AboveTroppOnly\n    LOGICAL                    :: IsInPPBV\n    LOGICAL                    :: DoUpdate\n    INTEGER                    :: TopLev\n    CHARACTER(LEN=ESMF_MAXSTR) :: GmiTmpl\n    REAL(fp), POINTER          :: EmptyPtr2D(:,:) => NULL()\n    REAL(fp), POINTER          :: Tmp3D(:,:,:) => NULL()\n\n    ! Read GMI file\n    CHARACTER(LEN=ESMF_MAXSTR) :: GmiFldName\n    CHARACTER(LEN=255)         :: Gmiifile\n    TYPE(MAPL_SimpleBundle)    :: GmiVarBundle\n    TYPE(ESMF_TIME)            :: Gmitime\n    LOGICAL                    :: GmiFileExists\n    INTEGER, SAVE              :: OnlyOnFirst = -999\n\n    ! Parameter\n    REAL, PARAMETER            :: MISSVAL = 1.0e-15\n\n    !=======================================================================\n    ! GEOS_InitFromFile starts here \n    !=======================================================================\n\n    ! Are we on the root PET\n    am_I_Root = MAPL_Am_I_Root()\n\n    ! Set up traceback info\n    CALL ESMF_GridCompGet( GC, name=compName, grid=grid, __RC__ )\n\n    ! Identify this routine to MAPL\n    Iam = TRIM(compName)//'::GEOS_InitFromFile'\n\n    ! Check if we need to do update\n    IF ( OnlyOnFirst < 0 ) THEN\n        CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = 'ONLY_ON_FIRST_STEP:', Default=1, __RC__ )\n        IF ( DoIt == 1 ) THEN\n           OnlyOnFirst = 1\n        ELSE\n           OnlyOnFirst = 0\n        ENDIF\n    ENDIF\n    DoUpdate = .FALSE.\n    IF ( OnlyOnFirst == 0             ) DoUpdate = .TRUE.\n    IF ( OnlyOnFirst == 1 .AND. First ) DoUpdate = .TRUE.\n\n    ! Do the following only if we need to...\n    IF ( DoUpdate ) THEN\n\n    ! Array size\n    IM = SIZE(Q,1)\n    JM = SIZE(Q,2)\n    LM = SIZE(Q,3)\n\n    ! Lower bound of PLE 3rd dim\n    LB = LBOUND(PLE,3)\n\n    ! Name of file to read internal state fields from\n    CALL ESMF_ConfigGetAttribute( GeosCF, ifile, Label = \"INIT_SPC_FILE:\", __RC__ )\n    IF ( am_I_Root ) WRITE(*,*) TRIM(Iam)//': reading species from '//TRIM(ifile)\n\n    ! Check if file exists\n    INQUIRE( FILE=TRIM(ifile), EXIST=FileExists )\n    IF ( .NOT. FileExists ) THEN\n       IF ( am_I_Root ) WRITE(*,*) 'File does not exist: ',TRIM(ifile)\n       ASSERT_(.FALSE.)\n    ENDIF\n\n    ! Check for other flags\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = 'ONLY_SHORTLIVED_SPECIES:', Default=0, __RC__ )\n    ShortlivedOnly = ( DoIt == 1 )\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = 'DATA_ON_GEOS_LEVELS:', Default=0, __RC__ )\n    OnGeosLev = ( DoIt == 1 )\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = 'ONLY_ABOVE_TROPOPAUSE:', Default=0, __RC__ )\n    AboveTroppOnly = ( DoIt == 1 )\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = 'DATA_IS_IN_PPBV:', Default=1, __RC__ )\n    IsInPPBV = ( DoIt == 1 )\n    CALL ESMF_ConfigGetAttribute( GeosCF, TopLev, Label = 'DO_NOT_OVERWRITE_ABOVE_LEVEL:', Default=LM, __RC__ )\n    IF ( TopLev < 0 ) TopLev = LM\n    CALL ESMF_ConfigGetAttribute( GeosCF, VarPrefix, Label = 'VAR_PREFIX:', Default='SpeciesRst_', __RC__ )\n    CALL ESMF_ConfigGetAttribute( GeosCF, UniformIfMissing, Label = 'UNIFORM_IF_MISSING:', Default=-999.0, __RC__ )\n\n    ! Verbose\n    IF ( am_I_Root ) THEN\n       WRITE(*,*) 'Will use the following settings to overwrite restart variables:'\n       WRITE(*,*) 'Only overwrite short-lived species: ',ShortlivedOnly\n       WRITE(*,*) 'Variable prefix: ',TRIM(VarPrefix)\n       WRITE(*,*) 'External data is in ppbv: ',IsInPPBV\n       WRITE(*,*) 'External data is on GEOS levels: ',OnGeosLev\n       WRITE(*,*) 'Only overwrite above tropopause: ',AboveTroppOnly\n       WRITE(*,*) 'Maximum valid level (will be used above that level): ',TopLev\n       WRITE(*,*) 'Maximum valid level (will be used above that level): ',TopLev\n    ENDIF\n\n    ! Initialize array to missing values\n    IF ( UniformIfMissing >= 0.0 ) THEN\n        DO N = 1, State_Chm%nSpecies\n           State_Chm%Species(N)%Conc(:,:,:) = UniformIfMissing\n        ENDDO\n        IF ( am_I_Root ) WRITE(*,*) 'All species initialized to ',UniformIfMissing\n    ENDIF\n\n    ! Initialize array to missing values\n    IF ( UniformIfMissing >= 0.0 ) THEN\n        DO N = 1, State_Chm%nSpecies\n           State_Chm%Species(N)%Conc(:,:,:) = UniformIfMissing\n        ENDDO\n        IF ( am_I_Root ) WRITE(*,*) 'All species initialized to ',UniformIfMissing\n    ENDIF\n\n    ! Check for GMI flags\n    CALL ESMF_ConfigGetAttribute( GeosCF, DoIt, Label = \"USE_GMI_MESO:\", Default = 0, __RC__ )\n    ReadGMI = ( DoIt == 1 )\n    IF ( ReadGMI ) THEN\n       CALL ESMF_ConfigGetAttribute( GeosCF, GmiTmpl, Label = \"GMI_TEMPLATE:\", __RC__ )\n    ENDIF\n\n    ! Get time stamp on file\n    call GFIO_Open( TRIM(ifile), 1, fid, STATUS )\n    ASSERT_(STATUS==0)\n    call GetBegDateTime ( fid, nymd, nhms, incSecs, STATUS )\n    ASSERT_(STATUS==0)\n    caLL GFIO_Close( fid, STATUS )\n    ASSERT_(STATUS==0)\n    yy = nymd/10000\n    mm = (nymd-yy*10000) / 100\n    dd = nymd - (10000*yy + mm*100)\n    h  = nhms/10000\n    m  = (nhms- h*10000) / 100\n    s  = nhms - (10000*h  +  m*100)\n    call ESMF_TimeSet(time, yy=yy, mm=mm, dd=dd, h=h, m=m, s=s)\n\n    ! Read file\n    VarBundle = MAPL_SimpleBundleRead ( TRIM(iFile), 'GCCinit', grid, time, __RC__ )\n\n    ! Scal is the array with scale factors\n    ALLOCATE(Scal(IM,JM),Temp(IM,JM),wgt1(IM,JM),wgt2(IM,JM))\n    Scal(:,:) = 1.0\n    Temp(:,:) = 0.0\n    wgt1(:,:) = 0.0\n    wgt2(:,:) = 1.0\n\n    ! Loop over all species\n    DO N = 1, State_Chm%nSpecies\n\n       ! Get species name\n       SpcName = TRIM(State_Chm%SpcData(N)%Info%Name)\n\n       ! Check for short-lived species only\n       IF ( ShortlivedOnly ) THEN\n          IF ( State_Chm%SpcData(N)%Info%Is_Advected ) THEN\n             IF ( am_I_Root ) WRITE(*,*) 'Do not initialize species from external field because it is not short-lived: ',TRIM(SpcName)\n             CYCLE\n          ENDIF\n       ENDIF\n\n       ! Molecular weight\n       MW = State_Chm%SpcData(N)%Info%MW_g\n       IF ( MW < 0.0 ) MW = 1.0\n\n       ! Check if variable is in file\n       FldName = TRIM(VarPrefix)//TRIM(SpcName)\n       !FldName = 'SPC_'//TRIM(SpcName)\n       VarID = MAPL_SimpleBundleGetIndex ( VarBundle, trim(FldName), 3, RC=STATUS, QUIET=.TRUE. )\n\n       ! Check other fieldname if default one is not found\n       !IF ( VarID <= 0 ) THEN\n       !   FldName = 'TRC_'//TRIM(SpcName)\n       !   VarID = MAPL_SimpleBundleGetIndex ( VarBundle, trim(FldName), 3, RC=STATUS, QUIET=.TRUE. )\n       !ENDIF\n       IF ( VarID <= 0 ) THEN\n          FldName = TRIM(SpcName)\n          VarID = MAPL_SimpleBundleGetIndex ( VarBundle, trim(FldName), 3, RC=STATUS, QUIET=.TRUE. )\n       ENDIF\n       IF ( VarID > 0 ) THEN\n          ! Make sure vertical dimensions match\n          LM2 = SIZE(VarBundle%r3(VarID)%q,3)\n\n          ! Error if vertical dimensions do not agree\n          IF ( LM2 /= LM ) THEN\n             IF ( am_I_Root ) THEN\n                WRITE(*,*) 'Wrong # of vert. levels for variable ',TRIM(FldName), ' ',LM2,' vs. ',LM\n             ENDIF\n             ASSERT_( LM==LM2 )\n          ENDIF\n\n          ! Loop over all vertical levels\n          DO L = 1, LM\n             ! Scale factor for unit conversion\n             IF ( IsInPPBV ) THEN\n                Scal(:,:) =  MW / MAPL_AIRMW * ( 1 - Q(:,:,L) )\n                IF(L==1 .and. am_I_Root ) WRITE(*,*) 'Convert units from ppbv to kg/kg: ',TRIM(FldName), MW\n             ENDIF\n\n             ! Pass to temporary array\n             IF ( OnGeosLev ) THEN\n                Temp(:,:) = VarBundle%r3(VarID)%q(:,:,L) * Scal\n             ELSE\n                Temp(:,:) = VarBundle%r3(VarID)%q(:,:,LM-L+1) * Scal\n             ENDIF\n\n             ! Flag for stratosphere only\n             IF ( AboveTroppOnly ) THEN\n                wgt1 = MAX(0.0,MIN(1.0,(PLE(:,:,L+LB)-TROPP(:,:))/(PLE(:,:,L+LB)-PLE(:,:,L+LB-1))))\n                wgt2 = 1.0 - wgt1\n             ENDIF\n\n             ! Pass to State_Chm\n             State_Chm%Species(N)%Conc(:,:,LM-L+1) = &\n                State_Chm%Species(N)%Conc(:,:,LM-L+1)*wgt1 + Temp(:,:)*wgt2\n          ENDDO\n\n          ! Check for cap at given level\n          IF ( TopLev < LM ) THEN\n             DO L = TopLev+1,LM\n                State_Chm%Species(N)%Conc(:,:,L) = &\n                   State_Chm%Species(N)%Conc(:,:,TopLev)\n             ENDDO\n             IF ( am_I_Root ) WRITE(*,*) 'Extend values from level ',TopLev,' to top of atmosphere: ',TRIM(FldName)\n          ENDIF\n\n          ! Verbose\n          IF ( am_I_Root ) WRITE(*,*) 'Species initialized from external field: ',TRIM(FldName),N,MINVAL(State_Chm%Species(N)%Conc(:,:,:)),MAXVAL(State_Chm%Species(N)%Conc(:,:,:)),SUM(State_Chm%Species(N)%Conc(:,:,:))/IM/JM/LM\n\n       ELSE\n          IF ( UniformIfMissing >= 0.0 ) THEN\n             State_Chm%Species(N)%Conc(:,:,:) = UniformIfMissing\n             IF ( am_I_Root ) WRITE(*,*) 'Field not found for species ',TRIM(SpcName),', set to uniform value of ',UniformIfMissing\n          ELSE\n             IF ( am_I_Root ) WRITE(*,*) 'Species unchanged, field not found for species ',TRIM(SpcName)\n          ENDIF\n       ENDIF\n\n       ! ---------------------------\n       ! Try to read GMI data\n       ! ---------------------------\n       IF ( ReadGMI ) THEN\n          ! Get file name\n          Gmiifile = GmiTmpl\n          idx = INDEX(Gmiifile,'%spc')\n          IF ( idx > 0 ) THEN\n             x1 = idx + 4\n             x2 = LEN(TRIM(Gmiifile))\n             Gmiifile = TRIM(Gmiifile(1:idx-1))//TRIM(SpcName)//TRIM(Gmiifile(x1:x2))\n          ENDIF\n          INQUIRE( FILE=TRIM(Gmiifile), EXIST=GmiFileExists )\n\n          IF ( GmiFileExists ) THEN\n\n             ! Get time stamp on file\n             call GFIO_Open( Gmiifile, 1, fid, STATUS )\n             ASSERT_(STATUS==0)\n             call GetBegDateTime ( fid, nymd, nhms, incSecs, STATUS )\n             ASSERT_(STATUS==0)\n             caLL GFIO_Close( fid, STATUS )\n             ASSERT_(STATUS==0)\n             yy = nymd/10000\n             mm = (nymd-yy*10000) / 100\n             dd = nymd - (10000*yy + mm*100)\n             h  = nhms/10000\n             m  = (nhms- h*10000) / 100\n             s  = nhms - (10000*h  +  m*100)\n             call ESMF_TimeSet(Gmitime, yy=yy, mm=7, dd=6, h=h, m=m, s=s)\n\n             ! Read data\n             GmiVarBundle = MAPL_SimpleBundleRead ( TRIM(GmiiFile), 'GCCinitGMI', grid, Gmitime, __RC__ )\n\n             ! Check if variable is in file\n             VarID = MAPL_SimpleBundleGetIndex ( GmiVarBundle, 'species', 3, RC=STATUS, QUIET=.TRUE. )\n             IF ( VarID > 0 ) THEN\n                ! Pass to State_Chm, convert v/v to kg/kg.\n                State_Chm%Species(N)%Conc(:,:,60:72) = VarBundle%r3(VarID)%q(:,:,13:1:-1) * MW / MAPL_AIRMW * ( 1 - Q(:,:,13:1:-1) )\n                IF ( am_I_Root ) WRITE(*,*) 'Use GMI concentrations in mesosphere: ',TRIM(SpcName)\n             ENDIF\n\n          ELSE\n             IF ( am_I_Root ) WRITE(*,*) 'No GMI file found: ',TRIM(Gmiifile)\n          ENDIF\n       ENDIF\n    ENDDO\n\n    ! Additional 3D restart variables related to chemistry/emissions\n    CALL Init3D_ ( am_I_Root, IM, JM, LM, OnGeosLev, Internal, VarBundle, 'Chem_H2O2AfterChem', 'H2O2AfterChem', State_Chm%H2O2AfterChem, __RC__ )\n    CALL Init3D_ ( am_I_Root, IM, JM, LM, OnGeosLev, Internal, VarBundle, 'Chem_SO2AfterChem', 'SO2AfterChem', State_Chm%SO2AfterChem, __RC__ )\n    CALL Init3D_ ( am_I_Root, IM, JM, LM, OnGeosLev, Internal, VarBundle, 'Chem_KPPHvalue', 'KPPHvalue', State_Chm%KPPHvalue, __RC__ )\n    ALLOCATE(Tmp3D(IM,JM,LM))\n    Tmp3D = 0.0\n    CALL Init3D_ ( am_I_Root, IM, JM, LM, OnGeosLev, Internal, VarBundle, 'Chem_StatePSC', 'StatePSC', Tmp3D, __RC__ )\n    State_Chm%State_PSC = Tmp3D\n    DEALLOCATE(Tmp3d)\n\n    ! Look for additional 2D restart variables related to chemistry / emissions. Add to State_Chm and internal state\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'Chem_DryDepNitrogen', 'DryDepNitrogen', State_Chm%DryDepNitrogen, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'Chem_WetDepNitrogen', 'WetDepNitrogen', State_Chm%WetDepNitrogen, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'PARDF_DAVG', 'PARDF_DAVG', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'PARDR_DAVG', 'PARDR_DAVG', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'T_DAVG', 'T_DAVG', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'T_PREVDAY', 'T_PREVDAY', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'LAI_PREVDAY', 'LAI_PREVDAY', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'DEP_RESERVOIR', 'DEP_RESERVOIR', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'DRYPERIOD', 'DRYPERIOD', EmptyPtr2D, __RC__ )\n    CALL Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, 'PFACTOR', 'PFACTOR', EmptyPtr2D, __RC__ )\n\n    ! Deallocate helper array\n    IF ( ALLOCATED(Scal) ) DEALLOCATE(Scal)\n    IF ( ALLOCATED(Temp) ) DEALLOCATE(Temp)\n    IF ( ALLOCATED(wgt1) ) DEALLOCATE(wgt1)\n    IF ( ALLOCATED(wgt2) ) DEALLOCATE(wgt2)\n\n    ! All done\n    CALL MAPL_SimpleBundleDestroy ( VarBundle, __RC__ )\n\n    ! Make sure that values are not zero\n    DO N = 1, State_Chm%nSpecies\n       WHERE ( State_Chm%Species(N)%Conc <= 0.0 ) &\n          State_Chm%Species(N)%Conc = MISSVAL\n    ENDDO\n\n    ENDIF ! DoUpdate\n\n    ! Return\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE GEOS_InitFromFile\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_Diagnostics \n!\n! !DESCRIPTION: Wrapper routine to handle all GEOS-specific diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_Diagnostics( GC, IMPORT,  EXPORT, Clock, Phase, &\n                                Input_Opt,  State_Met, State_Chm, &\n                                State_Diag, State_Grid, RC )\n!\n! !USES:\n!\n    USE Diagnostics_Mod,    ONLY : Set_Diagnostics_EndofTimestep\n    USE UnitConv_Mod\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT), TARGET :: GC     ! Ref to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import   ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export   ! Export State\n    TYPE(ESMF_Clock),    INTENT(INOUT)         :: Clock  ! ESMF Clock object\n    INTEGER,             INTENT(IN   )         :: Phase  ! Run phase (-1/1/2)\n    TYPE(OptInput),      INTENT(INOUT)         :: Input_Opt\n    TYPE(MetState),      INTENT(INOUT)         :: State_Met\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm\n    TYPE(DgnState),      INTENT(INOUT)         :: State_Diag\n    TYPE(GrdState),      INTENT(INOUT)         :: State_Grid\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  08 Oct 2020 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    TYPE(MAPL_MetaComp), POINTER :: STATE => NULL()\n    TYPE(ESMF_Alarm)             :: ALARM\n    TYPE(ESMF_STATE)             :: IntState\n\n    LOGICAL                      :: am_I_Root\n    LOGICAL                      :: IsChemTime    ! Chemistry alarm proxy\n    LOGICAL                      :: IsTendTime    ! Time to calculate tendencies\n\n    INTEGER                      :: indSpc\n    INTEGER                      :: I,  J,  L, N, LB\n    INTEGER                      :: IM, JM, LM\n    INTEGER                      :: SfcTypeIndex\n\n    REAL, POINTER                :: Q(:,:,:)     => NULL()\n    REAL, POINTER                :: PLE(:,:,:)   => NULL()\n    REAL, POINTER                :: TROPP(:,:)   => NULL()\n\n    REAL, POINTER                :: Ptr2D(:,:)     => NULL()\n    REAL, POINTER                :: Ptr3D(:,:,:)   => NULL()\n    REAL(fp), POINTER            :: PTR_O3(:,:,:)  => NULL()\n    REAL(f4), POINTER            :: O3_MASS(:,:,:) => NULL()\n\n    ! LFR diag\n    REAL                         :: lp1, lp2      ! lightning potentials\n    REAL, POINTER                :: PtrEmis(:,:)  => NULL()\n    REAL, POINTER                :: LFR(:,:)      => NULL()\n    REAL, POINTER                :: CNV_FRC(:,:)  => NULL()\n\n    INTEGER                      :: previous_units\n\n    __Iam__('GEOS_Diagnostics')\n\n    !=======================================================================\n    ! GEOS_Diagnostics starts here\n    !=======================================================================\n\n    ! Are we on the root PET?\n    am_I_Root = MAPL_Am_I_Root()\n\n    ! Get MAPL Generic State\n    CALL MAPL_GetObjectFromGC(GC, STATE, __RC__)\n\n    ! Start timers\n    CALL MAPL_TimerOn(STATE, \"GC_DIAGN\")\n\n    ! Get Internal state\n    CALL MAPL_Get ( STATE, INTERNAL_ESMF_STATE=IntState, __RC__ )\n\n    ! Timers\n    CALL MAPL_Get(STATE, RUNALARM=ALARM, __RC__)\n    IsChemTime = ESMF_AlarmIsRinging(ALARM, __RC__)\n    IsTendTime = ( IsChemTime .AND. Phase /= 1 )\n\n    CALL MAPL_GetPointer( IMPORT,     Q,     'Q', __RC__ )\n    CALL MAPL_GetPointer( IMPORT,   PLE,   'PLE', __RC__ )\n    CALL MAPL_GetPointer( IMPORT, TROPP, 'TROPP', __RC__ )\n\n    ! Grid size\n    IM = SIZE(Q,1); JM = SIZE(Q,2); LM = SIZE(Q,3)\n\n    ! Move 'regular' GEOS-Chem diagnostics from gchp_chunk_mod.F90 to here to\n    ! make sure that these diagnostics see any post-run updates.\n    ! Diagnostics routine expects units of kg/kg dry. \n    CALL Convert_Spc_Units( &\n         Input_Opt      = Input_Opt,                                         &\n         State_Chm      = State_Chm,                                         &\n         State_Grid     = State_Grid,                                        &\n         State_Met      = State_Met,                                         &\n         new_units      = KG_SPECIES_PER_KG_DRY_AIR,                         &\n         previous_units = previous_units,                                    &\n         RC             = RC                                                )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling CONVERT_SPC_UNITS')\n    CALL Set_Diagnostics_EndofTimestep( Input_Opt,  State_Chm, State_Diag, &\n                                        State_Grid, State_Met, RC )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling Set_Diagnostics_EndofTimestep')\n    CALL Convert_Spc_Units( &\n         Input_Opt  = Input_Opt,                                             &\n         State_Chm  = State_Chm,                                             &\n         State_Grid = State_Grid,                                            &\n         State_Met  = State_Met,                                             &\n         new_units  = previous_units,                                        &\n         RC         = RC                                                    )\n    _ASSERT(RC==GC_SUCCESS, 'Error calling CONVERT_SPC_UNITS')\n\n    !=======================================================================\n    ! Dry volume mixing ratios and PM2.5 diagnostics\n    !=======================================================================\n    CALL CalcSpeciesDiagnostics_ ( am_I_Root, Input_Opt, State_Met, State_Chm, &\n                                   State_Diag, IMPORT, EXPORT, Q, __RC__ )\n\n    !=======================================================================\n    ! Ozone diagnostics handled through State_Diag object\n    !=======================================================================\n\n    ! Total ozone and total tropospheric ozone for export [dobsons]. 2.69E+20 per dobson.\n    CALL GEOS_CalcTotOzone( am_I_Root, State_Met, State_Chm, State_Diag, &\n                            PLE, TROPP, __RC__ )\n\n    ! O3 mass in kg/m2\n    IF ( State_Diag%Archive_O3_MASS .AND. ASSOCIATED(State_Diag%O3_MASS) ) THEN\n       O3_MASS => State_Diag%O3_MASS(:,:,LM:1:-1)\n       LB = LBOUND(PLE,3)\n       IndSpc = Ind_('O3')\n       ASSERT_(IndSpc>0)\n       PTR_O3 => State_Chm%Species(IndSpc)%Conc(:,:,LM:1:-1)\n       DO L=1,LM\n          O3_MASS(:,:,L)=PTR_O3(:,:,L)*(g0_100*(PLE(:,:,L+LB)-PLE(:,:,L+LB-1)))\n       ENDDO\n       PTR_O3 => NULL()\n    ENDIF\n    O3_MASS => NULL()\n\n    !=======================================================================\n    ! Total and tropospheric columns\n    !=======================================================================\n    CALL CalcColumns_( am_I_Root, Input_Opt, State_Met, State_Chm, State_Diag, PLE, TROPP, __RC__ )\n\n    !=======================================================================\n    ! Derived met. diagnostics relevant to chemistry processes\n    !=======================================================================\n    IF ( Phase /= 1 ) THEN\n       ! chemistry top level\n       IF ( State_Diag%Archive_CHEMTOP .AND. &\n            ASSOCIATED(State_Diag%CHEMTOP) ) THEN\n          DO J = 1, JM\n          DO I = 1, IM\n             State_Diag%CHEMTOP(I,J) = LM - State_Met%ChemGridLev(I,J) + 1\n          ENDDO\n          ENDDO\n       ENDIF\n\n       ! chemistry tropopause\n       IF ( State_Diag%Archive_CHEMTROPP .AND. &\n            ASSOCIATED(State_Diag%CHEMTOP) ) THEN\n          State_Diag%CHEMTOP(:,:) = State_Met%TROPP(:,:) * 100.0 ! hPa -> Pa\n       ENDIF\n    ENDIF\n\n    ! convective cloud top height\n    IF ( Phase /= 2 ) THEN\n       IF ( State_Diag%Archive_CONVCLDTOP .AND. &\n            ASSOCIATED(State_Diag%CONVCLDTOP) ) THEN\n          State_Diag%CONVCLDTOP(:,:) = 0.0\n          DO J = 1, JM\n          DO I = 1, IM\n             DO L = 1, LM\n                IF ( State_Met%CMFMC(I,J,L) > 0.0d0 ) THEN\n                   State_Diag%CONVCLDTOP(I,J) = REAL(LM-L+1,f4)\n                   EXIT\n                ENDIF\n             ENDDO\n          ENDDO\n          ENDDO\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Lightning potential (from GEOS lightning flash rates and convective\n    ! fraction)\n    !=======================================================================\n    IF ( Phase /= 2 ) THEN\n       ! convective cloud top height\n       CALL MAPL_GetPointer( EXPORT, Ptr2D, 'LightningPotential', &\n                             NotFoundOk=.TRUE., __RC__ )\n       IF ( State_Diag%Archive_LGHTPOTENTIAL .AND. &\n            ASSOCIATED(State_Diag%LightningPotential) ) THEN\n          CALL MAPL_GetPointer( IMPORT, LFR,     'LFR_GCC', __RC__ )\n          CALL MAPL_GetPointer( IMPORT, CNV_FRC, 'CNV_FRC', __RC__ )\n          CALL MAPL_GetPointer( EXPORT, PtrEmis, 'EMIS_NO_LGHT', NotFoundOk=.TRUE., __RC__ )\n          State_Diag%LightningPotential(:,:) = 0.0\n          DO J = 1, JM\n          DO I = 1, IM\n             lp1 = 0.0\n             lp2 = 0.0\n\n             ! Locally compute if over continuous land (formerly used LWI)\n             SfcTypeIndex = MAXLOC( (/                            &\n                State_Met%FRLAND(I,J) + State_Met%FRLANDICE(I,J)  &\n                + State_Met%FRLAKE(I,J),                          &\n                State_Met%FRSEAICE(I,J),                          &\n                State_Met%FROCEAN(I,J) - State_Met%FRSEAICE(I,J)  &\n             /), 1 )\n\n             ! If there are HEMCO lightning emissions in current grid box set\n             ! lightning potential accordingly\n             IF ( ASSOCIATED(PtrEmis) ) THEN\n                IF ( SfcTypeIndex == 1 ) THEN\n                   lp1 = PtrEmis(I,J) / 1.0e-11 ! Land\n                ELSE\n                   lp1 = PtrEmis(I,J) / 1.0e-13 ! Water/Ice\n                ENDIF\n                lp1 = MIN(MAX(0.25,lp1),1.00)\n             ENDIF\n\n             ! Lightning flash rate\n             IF ( LFR(I,J) > 0.0 ) THEN\n                IF ( SfcTypeIndex == 1 ) THEN\n                   lp2 = LFR(I,J) / 5.0e-07 ! Land\n                ELSE\n                   lp2 = LFR(I,J) / 1.0e-08 ! Water/Ice\n                ENDIF\n                lp2 = MIN(MAX(0.25,lp2),1.00)\n\n             ! Convective fraction\n             ELSE\n                lp2 = CNV_FRC(I,J)\n             ENDIF\n\n             ! Take highest value\n             State_Diag%LightningPotential(I,J) = MAX(lp1,lp2)\n          ENDDO\n          ENDDO\n       ENDIF\n       PtrEmis => NULL()\n    ENDIF\n\n    ! Start timers\n    CALL MAPL_TimerOff(STATE, \"GC_DIAGN\")\n\n    _RETURN(ESMF_SUCCESS)\n\n    END SUBROUTINE GEOS_Diagnostics\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GEOS_CalcTotOzone\n!\n! !DESCRIPTION: GEOS_CalcTotOzone calculates total ozone for the entire\n!  atmosphere and troposphere only (in dobsons) and writes them into\n!  the export variables GCCTO3 and GCCTTO3, respectively. Expects O3 in the\n!  internal state in kg/kg total.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GEOS_CalcTotOzone ( am_I_Root, State_Met, State_Chm, State_Diag, PLE, TROPP, RC )\n!\n! !USES:\n!\n    USE Precision_Mod\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)     :: am_I_Root\n    TYPE(MetState),   INTENT(INOUT)  :: State_Met\n    TYPE(ChmState),   INTENT(INOUT)  :: State_Chm\n    TYPE(DgnState),   INTENT(INOUT)  :: State_Diag\n    REAL,             POINTER        :: PLE  (:,:,:)\n    REAL,             POINTER        :: TROPP(:,:)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT), OPTIONAL   :: RC\n!\n! !REVISION HISTORY:\n!  25 Oct 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n! \n    REAL(fp), POINTER            :: O3 (:,:,:) => NULL()\n    REAL(fp), POINTER            :: TO3fp(:,:) => NULL()\n    REAL(f4), POINTER            :: TO3 (:,:)  => NULL()\n    REAL(f4), POINTER            :: TTO3(:,:)  => NULL()\n\n    REAL,  ALLOCATABLE           :: DUsLayerL(:,:)! Dobsons in a layer,\n                                                  !  for total ozone\n    REAL,  ALLOCATABLE           :: wgt(:,:)      ! Layer thickness weighting\n                                                  !  for total ozone\n    REAL                         :: const\n    INTEGER                      :: indO3\n    INTEGER                      :: IM, JM, LM, LB, L, STATUS\n    CHARACTER(LEN=ESMF_MAXSTR)   :: Iam\n\n    !=======================================================================\n    ! GEOS_CalcTotOzone begins here\n    !=======================================================================\n\n    ! Traceback handle\n    Iam = 'GEOS_CalcTotOzone'\n\n    ! Check if we need to compute this\n    IF ( ASSOCIATED( State_Met%TO3 )    ) TO3fp => State_Met%TO3\n    IF ( State_Diag%Archive_GCCTO3 .AND. &\n         ASSOCIATED(State_Diag%GCCTO3)  ) TO3   => State_Diag%GCCTO3\n    IF ( State_Diag%Archive_GCCTTO3 .AND. &\n         ASSOCIATED(State_Diag%GCCTTO3) ) TTO3  => State_Diag%GCCTTO3\n\n    ! Nothing to do if none of the arrays are associated\n    IF ( .NOT. ASSOCIATED(TO3) .AND. .NOT. ASSOCIATED(TTO3) .AND. .NOT. ASSOCIATED(TO3fp) ) THEN\n       RC = ESMF_SUCCESS\n       RETURN\n    ENDIF\n\n    ! Get O3 from species array (kg/kg total). Do nothing if ozone is not a species.\n    indO3 = Ind_('O3')\n    IF ( indO3 < 0 ) THEN\n       RC = ESMF_SUCCESS\n       RETURN\n    ENDIF\n    O3 => State_Chm%Species(indO3)%Conc(:,:,:)\n\n    ! Grid size\n    IM = SIZE(O3,1)\n    JM = SIZE(O3,2)\n    LM = SIZE(O3,3)\n\n    ! Pressure edges\n    LB = LBOUND(PLE,3)\n\n    ! Reset values\n    IF ( ASSOCIATED(TO3fp ) ) TO3fp  = 0.0\n    IF ( ASSOCIATED(TO3   ) ) TO3  = 0.0\n    IF ( ASSOCIATED(TTO3  ) ) TTO3 = 0.0\n\n    ! Allocate local variables\n    ALLOCATE(DUsLayerL(IM,JM), STAT=STATUS)\n    _VERIFY(STATUS)\n    ALLOCATE(wgt(IM,JM), STAT=STATUS)\n    _VERIFY(STATUS)\n\n    ! constant\n    const = 0.01 * MAPL_AVOGAD / ( MAPL_GRAV * (MAPL_AIRMW/1000.0) )\n    const = const * MAPL_AIRMW / MAPL_O3MW ! convert kg/kg total to v/v total\n\n    ! Calculate total ozone\n    DO L = 1,LM\n       DUsLayerL(:,:) = O3(:,:,LM-L+1) * ((PLE(:,:,L+LB)-PLE(:,:,L+LB-1))/100.0) &\n                        * const / 2.69e16 / 1000.0\n       IF ( ASSOCIATED(TO3fp) ) TO3fp = TO3fp+DUsLayerL\n       IF ( ASSOCIATED(TO3  ) ) TO3   = TO3  +DUsLayerL\n       IF ( ASSOCIATED(TTO3) ) THEN\n          wgt  = MAX(0.0,MIN(1.0,(PLE(:,:,L+LB)-TROPP(:,:)) &\n                 /(PLE(:,:,L+LB)-PLE(:,:,L+LB-1))))\n          TTO3 = TTO3+DUsLayerL*wgt\n       END IF\n    END DO\n\n    ! Cleanup\n    IF ( ASSOCIATED(TO3fp) ) TO3fp => NULL()\n    IF ( ASSOCIATED(TO3  ) ) TO3   => NULL()\n    IF ( ASSOCIATED(TTO3 ) ) TTO3  => NULL()\n    DEALLOCATE(DUsLayerL, STAT=STATUS)\n    _VERIFY(STATUS)\n    DEALLOCATE(wgt, STAT=STATUS)\n    _VERIFY(STATUS)\n\n    ! Successful return\n    RC = ESMF_SUCCESS\n\n  END SUBROUTINE GEOS_CalcTotOzone\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetVars_For_Lightning_Init\n!\n! !DESCRIPTION: Initialize the imports to fill the met variables needed for\n!               lightning NOx computation\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetVars_For_Lightning_Init( GC, CF, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)         :: GC        ! Ref. to this GridComp\n    TYPE(ESMF_Config),   INTENT(INOUT)         :: CF        ! GEOSCHEM*.rc\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(OUT)           :: RC        ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  20 Jan 2020 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=31)  :: LfrSrc, CnvSrc\n\n    __Iam__('MetVars_For_Lightning_Init')\n\n    ! Get source for lightning fields\n    CALL MetVars_For_Lightning_Run( GC, DryRun=.TRUE., CF=CF, &\n                                    LfrSrc=LfrSrc, CnvSrc=CnvSrc, __RC__ )\n\n    ! LFR import - always pass LFR and LFR_GCC. Depending on specification,\n    ! also provide import from external file\n    call MAPL_AddImportSpec(GC,                     &\n               SHORT_NAME='LFR',                    &\n               LONG_NAME ='lightning_flash_rate',   &\n               UNITS     ='km-2 s-1',               &\n               DIMS      = MAPL_DimsHorzOnly,       &\n               VLOCATION = MAPL_VLocationNone,      &\n                                              __RC__ )\n\n    call MAPL_AddImportSpec(GC,                     &\n               SHORT_NAME='LFR_GCC',                &\n               LONG_NAME ='lightning_flash_rate',   &\n               UNITS     ='km-2 s-1',               &\n               DIMS      = MAPL_DimsHorzOnly,       &\n               VLOCATION = MAPL_VLocationNone,      &\n                                              __RC__ )\n\n    IF ( (TRIM(LfrSrc)/='LFR') .AND. &\n         (TRIM(LfrSrc)/='LFR_GCC')    ) THEN\n       call MAPL_AddImportSpec(GC,                     &\n                  SHORT_NAME=TRIM(LfrSrc),             &\n                  LONG_NAME ='lightning_flash_rate',   &\n                  UNITS     ='km-2 s-1',               &\n                  DIMS      = MAPL_DimsHorzOnly,       &\n                  VLOCATION = MAPL_VLocationNone,      &\n                                                 __RC__ )\n    ENDIF\n\n    ! Import fields needed to compute convective height, depending on specification\n    SELECT CASE ( TRIM(CnvSrc) )\n       CASE ( 'CNV_MFC' )\n          ! CNV_MFC is always imported, nothing to do here\n          !CONTINUE\n\n       CASE ( 'BYNCY' )\n          call MAPL_AddImportSpec(GC,                   &\n             SHORT_NAME = 'BYNCY',                      &\n             LONG_NAME  ='buoyancy_of surface_parcel',  &\n             UNITS      ='m s-2',                       &\n             DIMS       = MAPL_DimsHorzVert,            &\n             VLOCATION  = MAPL_VLocationCenter,         &\n                                                  __RC__ )\n\n       CASE DEFAULT\n          call MAPL_AddImportSpec(GC,                       &\n               SHORT_NAME=TRIM(CnvSrc),                     &\n               LONG_NAME ='convective_cloud_top_from_file', &\n               UNITS     ='m',                              &\n               DIMS      = MAPL_DimsHorzOnly,               &\n               VLOCATION = MAPL_VLocationNone,              &\n                                                      __RC__ )\n\n    END SELECT\n\n    ! Also add export for CONV_DEPTH_GCC & LFR diagnostics\n    call MAPL_AddExportSpec(GC,                                    &\n               SHORT_NAME='GCC_CONV_DEPTH',                        &\n               LONG_NAME ='Convective_depth_seen_by_GEOSCHEMchem', &\n               UNITS     ='m',                                     &\n               DIMS      = MAPL_DimsHorzOnly,                      &\n               VLOCATION = MAPL_VLocationNone,                     &\n                                                             __RC__ )\n\n    call MAPL_AddExportSpec(GC,                                     &\n               SHORT_NAME='GCC_LFR',                                &\n               LONG_NAME ='Lightning_flash_rate_seen_GEOSCHEMchem', &\n               UNITS     ='km-2 s-1',                               &\n               DIMS      = MAPL_DimsHorzOnly,                       &\n               VLOCATION = MAPL_VLocationNone,                      &\n                                                              __RC__ )\n\n    ! All done\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE MetVars_For_Lightning_Init\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: MetVars_For_Lightning_Run\n!\n! !DESCRIPTION: Fill the State_Met variables needed for lightning NOx calculation\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE MetVars_For_Lightning_Run( GC, Import, Export, State_Met, State_Grid, &\n                                        DryRun, CF, LfrSrc, CnvSrc, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ESMF_GridComp), INTENT(INOUT)           :: GC         ! Ref. to this GridComp\n    TYPE(ESMF_State),    INTENT(INOUT), OPTIONAL :: Import     ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT), OPTIONAL :: Export     ! Export State\n    TYPE(MetState),      INTENT(INOUT), OPTIONAL :: State_Met  ! Met. state object\n    TYPE(GrdState),      INTENT(IN),    OPTIONAL :: State_Grid ! Grid state\n    LOGICAL,             INTENT(IN),    OPTIONAL :: DryRun     ! Don't fill fields\n    TYPE(ESMF_Config),   INTENT(INOUT), OPTIONAL :: CF         ! GEOSCHEM*.rc\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),    INTENT(OUT), OPTIONAL   :: LfrSrc     ! Lightning flash rate source ID\n    CHARACTER(LEN=*),    INTENT(OUT), OPTIONAL   :: CnvSrc     ! Convective height source ID\n    INTEGER,             INTENT(OUT)             :: RC         ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  20 Jan 2020 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n  INTEGER                       :: I,J,L\n  INTEGER                       :: LTOP\n  LOGICAL                       :: am_I_Root\n  LOGICAL                       :: Skip\n  CHARACTER(LEN=31), SAVE       :: LFR_SOURCE = \"\"\n  CHARACTER(LEN=31), SAVE       :: CNV_SOURCE = \"\"\n  INTEGER, SAVE                 :: CNV_ID = -1\n  REAL, SAVE                    :: SCAL_STRP = 1.0\n  REAL, SAVE                    :: SCAL_TROP = 1.0\n  REAL, SAVE                    :: SCAL_NTRP = 1.0\n  REAL, SAVE                    :: SCAL_LFR  = 1.0\n  REAL, POINTER                 :: Ptr2d(:,:)\n  REAL, POINTER                 :: BYNCY(:,:,:)\n  REAL, POINTER                 :: CNV_FRC(:,:)\n\n  __Iam__('MetVars_For_Lightning_Run')\n  am_I_Root = MAPL_Am_I_Root()\n\n!-LFR source\n  IF ( TRIM(LFR_SOURCE)==\"\" .OR. CNV_ID<0 ) THEN\n     ASSERT_(PRESENT(CF))\n     CALL ESMF_ConfigGetAttribute( CF, LFR_SOURCE,                     &\n                                 Label=\"LIGHTNING_FLASH_RATE_SOURCE:\", &\n                                 Default=\"LFR_GCC\",                    &\n                                 __RC__                                 )\n     CALL ESMF_ConfigGetAttribute( CF, SCAL_STRP,                      &\n                                 Label=\"LFR_SCALING_SOUTHERN_TROP:\",   &\n                                 Default=1.0,                          &\n                                 __RC__                                 )\n     CALL ESMF_ConfigGetAttribute( CF, SCAL_TROP,                      &\n                                 Label=\"LFR_SCALING_TROPICS:\",         &\n                                 Default=1.0,                          &\n                                 __RC__                                 )\n     CALL ESMF_ConfigGetAttribute( CF, SCAL_NTRP,                      &\n                                 Label=\"LFR_SCALING_NORTHERN_TROP:\",   &\n                                 Default=1.0,                          &\n                                 __RC__                                 )\n     CALL ESMF_ConfigGetAttribute( CF, SCAL_LFR,                       &\n                                 Label=\"LFR_SCALING_GLOBAL:\",          &\n                                 Default=1.0,                          &\n                                 __RC__                                 )\n     ! Verbose\n     IF (am_I_Root) THEN\n        WRITE(*,*) 'GEOSCHEMchem lightning flash rate source: ',TRIM(LFR_SOURCE)\n        WRITE(*,*) '--> LFR scaling southern trop (<23S)    : ',SCAL_STRP\n        WRITE(*,*) '--> LFR scaling tropics (23S-23N)       : ',SCAL_TROP\n        WRITE(*,*) '--> LFR scaling northern trop (>23N)    : ',SCAL_NTRP\n        WRITE(*,*) '--> LFR scaling global                  : ',SCAL_LFR\n     ENDIF\n\n!----Convective height source\n     CALL ESMF_ConfigGetAttribute( CF, CNV_SOURCE,                         &\n                                 Label=\"LIGHTNING_CONVECTIVE_TOP_SOURCE:\", &\n                                 Default=\"CNV_MFC\",                        &\n                                 __RC__                                     )\n     SELECT CASE ( TRIM(CNV_SOURCE) )\n        CASE ( \"CNV_MFC\" )\n           CNV_ID = 0\n        CASE ( \"BYNCY\" )\n           CNV_ID = 1\n        CASE DEFAULT\n           CNV_ID = 2\n     END SELECT\n\n     ! Verbose\n     IF (am_I_Root) THEN\n        WRITE(*,*) 'GEOSCHEMchem lightning convective height source: ',TRIM(CNV_SOURCE)\n     ENDIF\n\n  ENDIF\n\n!-Fill state met\n  IF ( PRESENT(DryRun) ) THEN\n     Skip = DryRun\n  ELSE\n     Skip = .FALSE.\n  ENDIF\n  IF ( .NOT. Skip ) THEN\n\n!----Lightning flash rate density [km-2 s-1]\n     call MAPL_GetPointer ( IMPORT, Ptr2D, TRIM(LFR_SOURCE), __RC__ )\n     State_Met%FLASH_DENS = Ptr2D\n\n     ! Rescale flash rates as specified in GEOSCHEMchem_GridComp.rc\n     ! southern extratropics\n     IF ( SCAL_STRP /= 1.0 ) THEN\n         WHERE ( State_Grid%YMID < -23.0 )\n             State_Met%FLASH_DENS = State_Met%FLASH_DENS * SCAL_STRP\n         END WHERE\n     ENDIF\n     ! tropics\n     IF ( SCAL_TROP /= 1.0 ) THEN\n         WHERE ( State_Grid%YMID >= -23.0 .AND. State_Grid%YMID <= 23.0 )\n             State_Met%FLASH_DENS = State_Met%FLASH_DENS * SCAL_TROP\n         END WHERE\n     ENDIF\n     ! northern extratropics\n     IF ( SCAL_NTRP /= 1.0 ) THEN\n         WHERE ( State_Grid%YMID > 23.0 )\n             State_Met%FLASH_DENS = State_Met%FLASH_DENS * SCAL_NTRP\n         END WHERE\n     ENDIF\n     ! overall LFR scaling\n     IF ( SCAL_LFR /= 1.0 ) THEN\n        State_Met%FLASH_DENS = State_Met%FLASH_DENS * SCAL_LFR\n     ENDIF\n\n     ! Eventually add to Export\n     Ptr2D => NULL()\n     call MAPL_GetPointer ( EXPORT, Ptr2D, 'GCC_LFR', NotFoundOk=.TRUE., __RC__ )\n     IF ( ASSOCIATED(Ptr2D) ) Ptr2D = State_Met%FLASH_DENS\n\n!----Convective depth [m]\n     SELECT CASE ( CNV_ID )\n        ! Convective mass flux\n        ! Get highest level with positive convective mass flux. CMFMC is  \n        ! on level edges.\n        CASE ( 0 )\n           DO J=1,State_Grid%NY\n           DO I=1,State_Grid%NX\n              LTOP = 0\n              DO L = State_Grid%NZ+1,2,-1\n                 IF ( State_Met%CMFMC(I,J,L) > 0.0 ) THEN\n                    LTOP = L-1\n                    EXIT\n                 ENDIF\n              ENDDO\n              IF ( LTOP > 0 ) THEN\n                 State_Met%CONV_DEPTH(I,J) = SUM(State_Met%BXHEIGHT(I,J,1:LTOP))\n              ELSE\n                 State_Met%CONV_DEPTH(I,J) = 0.0\n              ENDIF\n           ENDDO\n           ENDDO\n\n        ! Buoyancy and convective fraction\n        ! Get highest level with positive buoyancy and where convective fraction\n        ! is non-zero. BYNCY is on GEOS coordinates (--> 1=top of atmosphere) and\n        ! on level mid-points. LM captures the dimension of CNV_MFC, which is on\n        ! level edges.\n        CASE ( 1 )\n           call MAPL_GetPointer ( IMPORT, BYNCY,   'BYNCY'  , __RC__ )\n           call MAPL_GetPointer ( IMPORT, CNV_FRC, 'CNV_FRC', __RC__ )\n           DO J=1,State_Grid%NY\n           DO I=1,State_Grid%NX\n              LTOP = 0\n              IF ( CNV_FRC(I,J) > 0.0 ) THEN\n                 DO L = 1,State_Grid%NZ\n                    IF ( BYNCY(I,J,L) > 0.0 ) THEN\n                       LTOP = State_Grid%NZ - L + 1\n                       EXIT\n                    ENDIF\n                 ENDDO\n              ENDIF\n              IF ( LTOP > 0 ) THEN\n                 State_Met%CONV_DEPTH(I,J) = SUM(State_Met%BXHEIGHT(I,J,1:LTOP))\n              ELSE\n                 State_Met%CONV_DEPTH(I,J) = 0.0\n              ENDIF\n           ENDDO\n           ENDDO\n           BYNCY   => NULL()\n           CNV_FRC => NULL()\n\n        ! Offline file\n        CASE ( 2 )\n           call MAPL_GetPointer ( IMPORT, Ptr2D, TRIM(CNV_SOURCE), __RC__ )\n           State_Met%CONV_DEPTH = Ptr2D\n     END SELECT\n\n     ! Eventually add to Export\n     Ptr2D => NULL()\n     call MAPL_GetPointer ( EXPORT, Ptr2D, 'GCC_CONV_DEPTH', NotFoundOk=.TRUE., __RC__ )\n     IF ( ASSOCIATED(Ptr2D) ) Ptr2D = State_Met%CONV_DEPTH\n\n  ENDIF ! Skip\n\n!-Cleanup\n  IF ( PRESENT(LfrSrc) ) LfrSrc = LFR_SOURCE\n  IF ( PRESENT(CnvSrc) ) CnvSrc = CNV_SOURCE\n  RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE MetVars_For_Lightning_Run\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CalcColumns_\n!\n! !DESCRIPTION: CalcColumns_ calculates total and tropospheric columns for a\n!  number of species.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CalcColumns_ ( am_I_Root, Input_Opt, State_Met, State_Chm, State_Diag, PLE, TROPP, RC )\n!\n! !USES:\n!\n    USE State_Diag_Mod, ONLY : DgnMap\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          INTENT(IN)            :: am_I_Root\n    TYPE(OptInput),   INTENT(INOUT)         :: Input_Opt\n    TYPE(MetState),   INTENT(INOUT)         :: State_Met \n    TYPE(ChmState),   INTENT(INOUT)         :: State_Chm\n    TYPE(DgnState),   INTENT(INOUT)         :: State_Diag\n    REAL,             POINTER               :: PLE  (:,:,:)\n    REAL,             POINTER               :: TROPP(:,:  )\n    INTEGER,          INTENT(OUT)           :: RC\n!\n! !REVISION HISTORY:\n!  25 Oct 2014 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    REAL,  POINTER               :: ExpTOTCOL(:,:)\n    REAL,  POINTER               :: ExpTRPCOL(:,:)\n    REAL,  POINTER               :: ExpPBLCOL(:,:)\n    REAL(fp), POINTER            :: Spc3D    (:,:,:)\n    REAL,  ALLOCATABLE           :: DUsLayerL(:,:)! Dobsons in a layer, \n                                                  !  for total ozone\n    REAL,  ALLOCATABLE           :: wgt(:,:)      ! Layer thickness weighting\n                                                  !  for total ozone\n    REAL                         :: MW, const\n    INTEGER                      :: I, J, IM, JM, LM, LB, L, STATUS\n    INTEGER                      :: ID, TotID, TropID, PblID\n    CHARACTER(LEN=ESMF_MAXSTR)   :: Iam\n    CHARACTER(LEN=15)            :: ISPEC\n\n    ! Objects\n    TYPE(DgnMap), POINTER :: mapTotCol  => NULL()\n    TYPE(DgnMap), POINTER :: mapTropCol => NULL()\n    TYPE(DgnMap), POINTER :: mapPblCol  => NULL()\n\n    !=======================================================================\n    ! CalcColumns_ begins here\n    !=======================================================================\n\n    ! Traceback handle\n    Iam = 'CalcColumns_'\n\n    ! Nothing to do if not active\n    IF ( .NOT. State_Diag%Archive_TotCol  .AND. &\n         .NOT. State_Diag%Archive_TropCol .AND. &\n         .NOT. State_Diag%Archive_PblCol         ) THEN\n       RC = ESMF_SUCCESS\n       RETURN\n    ENDIF\n\n    ! Grid size\n    IM = SIZE(PLE,1)\n    JM = SIZE(PLE,2)\n    LM = SIZE(PLE,3)-1\n    LB = LBOUND(PLE,3)\n\n    ! mapping objects\n    IF ( State_Diag%Archive_TotCol  ) THEN\n       mapTotCol  => State_Diag%Map_TotCol\n       State_Diag%TotCol(:,:,:) = 0.0\n    ENDIF\n    IF ( State_Diag%Archive_TropCol ) THEN\n       mapTropCol => State_Diag%Map_TropCol\n       State_Diag%TropCol(:,:,:) = 0.0\n    ENDIF\n    IF ( State_Diag%Archive_PblCol ) THEN\n       mapPblCol => State_Diag%Map_PblCol\n       State_Diag%PblCol(:,:,:) = 0.0\n    ENDIF\n\n    ! Allocate local variables\n    ALLOCATE(DUsLayerL(IM,JM), STAT=STATUS)\n    _VERIFY(STATUS)\n    ALLOCATE(wgt(IM,JM), STAT=STATUS)\n    _VERIFY(STATUS)\n\n    ! Check all species\n    DO I = 1, State_Chm%nSpecies\n\n       ! Check if total column and/or trop. column requested for this species\n       TotID = -1\n       IF ( State_Diag%Archive_TotCol ) THEN \n          DO J = 1,mapTotCol%nSlots\n             IF ( mapTotCol%slot2id(J)==I ) THEN\n                TotID = J\n                EXIT\n             ENDIF\n          ENDDO\n       ENDIF\n       TropID = -1\n       IF ( State_Diag%Archive_TropCol ) THEN\n          DO J = 1,mapTropCol%nSlots\n             IF ( mapTropCol%slot2id(J)==I ) THEN\n                TropID = J\n                EXIT\n             ENDIF\n          ENDDO\n       ENDIF\n       PblID = -1\n       IF ( State_Diag%Archive_PblCol ) THEN\n          DO J = 1,mapPblCol%nSlots\n             IF ( mapPblCol%slot2id(J)==I ) THEN\n                PblID = J\n                EXIT\n             ENDIF\n          ENDDO\n       ENDIF\n       IF ( (TotID<0) .AND. (TropID<0) .AND. (PblID<0)  ) CYCLE\n\n       ! Species info\n       ISPEC = State_Chm%SpcData(I)%Info%Name\n       ID    = IND_(TRIM(ISPEC))\n       MW    = State_Chm%SpcData(ID)%Info%MW_g\n\n       ! Get species from internal state\n       Spc3D => State_Chm%Species(ID)%Conc(:,:,LM:1:-1)\n\n       ! constant \n       const = MAPL_AVOGAD / ( MAPL_GRAV * MW )\n\n       ! Calculate total and trop. column\n       DO L = 1,LM\n          DUsLayerL(:,:) = Spc3D(:,:,L) * ( PLE(:,:,L+LB) &\n                           - PLE(:,:,L+LB-1) ) * const\n          ! rescale: molec/m2 --> molec/cm2\n          ! rescale: molec/cm2 ==> 1.0e15 molec/cm2\n          DUsLayerL(:,:) = DUsLayerL(:,:) / 1.0e4 / 1.0e15\n          ! Add to total column\n          IF ( TotID > 0 ) THEN\n             State_Diag%TotCol(:,:,TotID) = State_Diag%TotCol(:,:,TotID) &\n                                          + DUsLayerL(:,:)\n          ENDIF\n          ! Add to tropospheric column\n          IF ( TropID > 0 ) THEN\n             wgt = MAX(0.0,MIN(1.0,(PLE(:,:,L+LB)-TROPP(:,:)) &\n                 / (PLE(:,:,L+LB)-PLE(:,:,L+LB-1))))\n             State_Diag%TropCol(:,:,TropID) = State_Diag%TropCol(:,:,TropID) &\n                                            + DUsLayerL(:,:)*wgt(:,:)\n          END IF\n          ! Add to PBL column\n          IF ( PblID > 0 ) THEN\n             wgt = MAX(0.0,MIN(1.0,(PLE(:,:,L+LB)-(State_Met%PBL_TOP_hPa(:,:)*100.0)) &\n                 / (PLE(:,:,L+LB)-PLE(:,:,L+LB-1))))\n             State_Diag%PblCol(:,:,PblID) = State_Diag%PblCol(:,:,PblID) &\n                                            + DUsLayerL(:,:)*wgt(:,:)\n          END IF\n       END DO\n    ENDDO\n\n    ! Cleanup\n    DEALLOCATE(DUsLayerL, STAT=STATUS)\n    _VERIFY(STATUS)\n    DEALLOCATE(wgt, STAT=STATUS)\n    _VERIFY(STATUS)\n\n    ! Successful return\n    RC = ESMF_SUCCESS\n\n  END SUBROUTINE CalcColumns_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CalcSpeciesDiagnostics_\n!\n! !DESCRIPTION: CalcSpeciesDiagnostics_ computes species' diagnostics\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CalcSpeciesDiagnostics_( am_I_Root, Input_Opt, State_Met, &\n                                      State_Chm, State_Diag, IMPORT, EXPORT, &\n                                      Q, RC )\n!\n! !USES:\n!\n!    USE TENDENCIES_MOD,          ONLY : Tend_Get\n    USE Species_Mod,   ONLY : Species\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,             INTENT(IN)            :: am_I_Root\n    TYPE(OptInput),      INTENT(INOUT)         :: Input_Opt\n    TYPE(MetState),      INTENT(INOUT)         :: State_Met\n    TYPE(ChmState),      INTENT(INOUT)         :: State_Chm\n    TYPE(DgnState),      INTENT(INOUT)         :: State_Diag\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Import   ! Import State\n    TYPE(ESMF_State),    INTENT(INOUT)         :: Export   ! Export State\n    REAL,                POINTER               :: Q(:,:,:)\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,             INTENT(INOUT)         :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  05 Dec 2017 - C. Keller   - Initial version\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    ! Objects\n\n    ! Scalars\n    INTEGER                    :: STATUS\n    INTEGER                    :: I, J, N, IM, JM, LM, DryID\n    INTEGER                    :: IndSpc\n    LOGICAL                    :: IsBry, IsNOy,  IsCly, IsOrgCl\n    LOGICAL                    :: RunMe\n    CHARACTER(LEN=ESMF_MAXSTR) :: Iam           ! Gridded component name\n    CHARACTER(LEN=ESMF_MAXSTR) :: FieldName, SpcName\n    REAL                       :: MW\n    REAL                       :: BrCoeff, ClCoeff, OrgClCoeff\n    REAL(fp), POINTER          :: PtrTmp(:,:,:)\n    TYPE(Species), POINTER     :: SpcInfo\n    REAL(f4), POINTER          :: NOy(:,:,:) => NULL()\n    REAL(f4), POINTER          :: Bry(:,:,:) => NULL()\n    REAL(f4), POINTER          :: Cly(:,:,:) => NULL()\n    REAL(f4), POINTER          :: OrgCl(:,:,:) => NULL()\n\n    LOGICAL, SAVE              :: FIRST = .TRUE.\n\n    !=======================================================================\n    ! Routine starts here\n    !=======================================================================\n\n    ! Identify this routine to MAPL\n    Iam = 'GCC::CalcSpeciesDiagnostics_'\n\n    ! Grid size\n    IM = SIZE(Q,1)\n    JM = SIZE(Q,2)\n    LM = SIZE(Q,3)\n\n    !=======================================================================\n    ! Exports in dry vol mixing ratio (v/v dry). Includes NOy. Convert from\n    ! kg/kg total.\n    !=======================================================================\n    IF ( State_Diag%Archive_NOy .AND.       &\n         ASSOCIATED(State_Diag%NOy)          ) NOy => State_Diag%NOy(:,:,LM:1:-1)\n    IF ( State_Diag%Archive_Bry .AND.       &\n         ASSOCIATED(State_Diag%Bry)          ) Bry => State_Diag%Bry(:,:,LM:1:-1)\n    IF ( State_Diag%Archive_Cly .AND.       &\n         ASSOCIATED(State_Diag%Cly)          ) Cly => State_Diag%Cly(:,:,LM:1:-1)\n    IF ( State_Diag%Archive_OrganicCl .AND. &\n         ASSOCIATED(State_Diag%OrganicCl)    ) OrgCl => State_Diag%OrganicCl(:,:,LM:1:-1)\n    IF ( ASSOCIATED(NOy)   ) NOy(:,:,:)   = 0.0\n    IF ( ASSOCIATED(Bry)   ) Bry(:,:,:)   = 0.0\n    IF ( ASSOCIATED(Cly)   ) Cly(:,:,:)   = 0.0\n    IF ( ASSOCIATED(OrgCl) ) OrgCl(:,:,:) = 0.0\n\n    DO N=1,State_Chm%nSpecies\n       SpcInfo   => State_Chm%SpcData(N)%Info ! Species database\n       SpcName   =  TRIM(SpcInfo%Name)\n\n       ! Need to fill at least one export?\n       RunMe = .FALSE.\n\n       ! Is this a NOy species?\n       IF ( ASSOCIATED(NOy) ) THEN\n          SELECT CASE ( TRIM(SpcName) )\n             CASE ( 'BrNO3', 'ClNO3', 'DHDN', 'ETHLN', 'HNO2', &\n                    'HNO3',  'HNO4',  'HONIT'  )\n                IsNOy = .TRUE.\n             CASE ( 'IONITA', 'IPMN', 'ISN1', 'ISNIOA', 'ISNIOG' )\n                IsNOy = .TRUE.\n             CASE ( 'ISOPNB', 'ISOPND', 'MACRN', 'MPN', 'MVKN', &\n                    'N2O5',   'NIT',    'NO',    'NO2', 'NO3' )\n                IsNOy = .TRUE.\n             CASE ( 'NPMN', 'ONIT', 'PAN', 'PROPNN', 'R4N2' )\n                IsNOy = .TRUE.\n             CASE DEFAULT\n                IsNOy = .FALSE.\n          END SELECT\n       ELSE\n          IsNOy = .FALSE.\n       ENDIF\n       IF ( IsNOy ) RunMe = .TRUE.\n\n       ! Is this a Bry species?\n       BrCoeff = 0.0\n       IF ( ASSOCIATED(Bry) ) THEN\n          SELECT CASE ( TRIM(SpcName) )\n             CASE ( 'Br', 'BrO', 'HOBr', 'HBr', 'BrNO2', 'BrNO3', 'BrCl', 'IBr' )\n                BrCoeff = 1.0\n                IsBry   = .TRUE.\n             CASE ( 'Br2' )\n                BrCoeff = 2.0\n                IsBry   = .TRUE.\n             CASE DEFAULT\n                IsBry = .FALSE.\n          END SELECT\n       ELSE\n          IsBry = .FALSE.\n       ENDIF\n       IF ( IsBry ) RunMe = .TRUE.\n\n       ! Is this a Cly species?\n       ClCoeff = 0.0\n       IF ( ASSOCIATED(Cly) ) THEN\n          SELECT CASE ( TRIM(SpcName) )\n             CASE ( 'Cl', 'ClO', 'OClO', 'ClOO', 'HOCl', 'HCl', 'ClNO2', 'ClNO3', 'BrCl', 'ICl' )\n                ClCoeff = 1.0\n                IsCly   = .TRUE.\n             CASE ( 'Cl2', 'Cl2O2' )\n                ClCoeff = 2.0\n                IsCly   = .TRUE.\n             CASE DEFAULT\n                IsCly = .FALSE.\n          END SELECT\n       ELSE\n          IsCly = .FALSE.\n       ENDIF\n       IF ( IsCly ) RunMe = .TRUE.\n\n       ! Is this an OrgCl species?\n       OrgClCoeff = 0.0\n       IF ( ASSOCIATED(Cly) ) THEN\n          SELECT CASE ( TRIM(SpcName) )\n             CASE ( 'H1211', 'CFC115', 'CH3Cl', 'HCFC142b', 'HCFC22', 'CH2ICl' )\n                OrgClCoeff = 1.0\n                IsOrgCl    = .TRUE.\n             CASE ( 'CFC114', 'CFC12', 'HCFC141b', 'HCFC123', 'CH2Cl2' )\n                OrgClCoeff = 2.0\n                IsOrgCl    = .TRUE.\n             CASE ( 'CFC11', 'CFC113', 'CH3CCl3', 'CHCl3' )\n                OrgClCoeff = 3.0\n                IsOrgCl    = .TRUE.\n             CASE ( 'CCl4' )\n                OrgClCoeff = 4.0\n                IsOrgCl    = .TRUE.\n             CASE DEFAULT\n                IsOrgCl = .FALSE.\n          END SELECT\n       ELSE\n          IsOrgCl = .FALSE.\n       ENDIF\n       IF ( IsOrgCl ) RunMe = .TRUE.\n\n       ! Fill exports\n       IF ( RunMe ) THEN\n          !FieldName = 'SPC_'//TRIM(SpcName)\n          MW = SpcInfo%MW_g\n          IF ( MW < 0.0 ) THEN\n             ! Get species and set MW to 1.0. This is ok because the internal\n             ! state uses a MW of 1.0 for all species\n             MW = 1.0\n             ! Cannot add to NOy if MW is unknown because it would screw up\n             ! unit conversion\n             IF ( IsNOy ) THEN\n                IsNOy = .FALSE.\n                IF ( am_I_Root .AND. FIRST ) THEN\n                   write(*,*) 'WARNING: Ignore species for NOy computation' //&\n                              '  because MW is unknown: ', TRIM(SpcName)\n                ENDIF\n             ENDIF\n          ENDIF\n          PtrTmp => State_Chm%Species(N)%Conc(:,:,LM:1:-1)\n\n          ! uncomment below to output more family species information \n!          IF ( am_I_Root .AND. FIRST ) THEN\n!             write(*,*) 'First GCC species diagnostics: ', TRIM(SpcName), MW\n!             IF ( IsNOy   ) write(*,*) '--> Is part of NOy'\n!             IF ( IsBry   ) write(*,*) '--> Is part of Bry: ', BrCoeff\n!             IF ( IsCly   ) write(*,*) '--> Is part of Cly: ', ClCoeff\n!             IF ( IsOrgCl ) write(*,*) '--> Is part of OrgCl: ', OrgClCoeff\n!          ENDIF\n\n          ! NOy concentration\n          IF ( IsNOy ) NOy = NOy + PtrTmp * ( MAPL_AIRMW / MW ) / ( 1.0 - Q )\n\n          ! Bry concentration\n          IF ( IsBry ) Bry = Bry + BrCoeff * PtrTmp * ( MAPL_AIRMW / MW ) / ( 1.0 - Q )\n\n          ! Cly concentration\n          IF ( IsCly ) Cly = Cly + ClCoeff * PtrTmp * ( MAPL_AIRMW / MW ) / ( 1.0 - Q )\n\n          ! OrgCl concentration\n          IF ( IsOrgCl ) OrgCl = OrgCl + OrgClCoeff * PtrTmp * ( MAPL_AIRMW / MW ) / ( 1.0 - Q )\n       ENDIF\n\n       \n\n\n    ENDDO\n\n    !=======================================================================\n    ! All done\n    !=======================================================================\n\n    ! Cleanup\n    IF ( ASSOCIATED(NOy)   ) NOy   => NULL()\n    IF ( ASSOCIATED(Bry)   ) Bry   => NULL()\n    IF ( ASSOCIATED(Cly)   ) Cly   => NULL()\n    IF ( ASSOCIATED(OrgCl) ) OrgCl => NULL()\n\n    ! Successful return\n    FIRST = .FALSE.\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE CalcSpeciesDiagnostics_\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init3D_ \n!\n! !DESCRIPTION: Helper routine to initialize 3D fields \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init3D_ ( am_I_Root, IM, JM, LM, OnGeosLev, Internal, VarBundle, VarName, IntName, State3D, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,                 INTENT(IN)            :: am_I_Root\n    INTEGER,                 INTENT(IN)            :: IM, JM, LM\n    LOGICAL,                 INTENT(IN)            :: OnGeosLev\n    TYPE(ESMF_STATE),        INTENT(INOUT)         :: Internal ! Internal state\n    TYPE(MAPL_SimpleBundle), INTENT(INOUT)         :: VarBundle\n    CHARACTER(LEN=*),        INTENT(IN)            :: VarName\n    CHARACTER(LEN=*),        INTENT(IN)            :: IntName\n    REAL(fp),                POINTER               :: State3D(:,:,:)\n    INTEGER,                 INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n!\n    CHARACTER(LEN=ESMF_MAXSTR)    :: Iam\n    INTEGER                       :: VarID\n    INTEGER                       :: LM2\n    INTEGER                       :: STATUS\n    REAL, POINTER                 :: Ptr3D(:,:,:) => NULL()\n\n    ! Begin here\n    Iam = 'Init3D_'\n\n    ! Get variable on internal array\n    VarID = MAPL_SimpleBundleGetIndex ( VarBundle, trim(VarName), 3, RC=STATUS, QUIET=.TRUE. )\n    IF ( VarID > 0 ) THEN\n       LM2 = SIZE(VarBundle%r3(VarID)%q,3)\n       ASSERT_( LM==LM2 )\n       IF ( am_I_Root ) WRITE(*,*) 'Field initialized from external field: ',TRIM(VarName),TRIM(IntName)\n    ELSE\n       IF ( am_I_Root ) WRITE(*,*) 'Field not found in external file - no updates: ',TRIM(VarName)\n    ENDIF\n\n    ! Pass field to internal state\n    CALL MAPL_GetPointer( Internal, Ptr3D, TRIM(IntName) , notFoundOK=.TRUE., __RC__ )\n    IF ( ASSOCIATED(Ptr3D) ) THEN\n       IF ( OnGeosLev ) THEN\n          Ptr3D(:,:,:) = VarBundle%r3(VarID)%q(:,:,:)\n       ELSE\n          Ptr3D(:,:,:) = VarBundle%r3(VarID)%q(:,:,LM:1:-1)\n       ENDIF\n    ELSE\n       IF ( am_I_Root ) WRITE(*,*) 'Field not found in internal state - no update: ',TRIM(IntName)\n    ENDIF\n\n    ! Pass field to state object (if provided)\n    IF ( ASSOCIATED(State3D) ) THEN\n       IF ( OnGeosLev ) THEN\n          State3D(:,:,:) = VarBundle%r3(VarID)%q(:,:,LM:1:-1)\n       ELSE\n          State3D(:,:,:) = VarBundle%r3(VarID)%q(:,:,:)\n       ENDIF\n    ELSE\n       IF ( am_I_Root ) WRITE(*,*) 'No state obj field provided - no update: ',TRIM(VarName)\n    ENDIF\n\n    RETURN_(ESMF_SUCCESS)\n  END SUBROUTINE Init3D_\n!\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Model                            !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Init3D_ \n!\n! !DESCRIPTION: Helper routine to initialize 3D fields \n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Init2D_ ( am_I_Root, IM, JM, Internal, VarBundle, VarName, IntName, State2D, RC )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    LOGICAL,                 INTENT(IN)            :: am_I_Root\n    INTEGER,                 INTENT(IN)            :: IM, JM\n    TYPE(ESMF_STATE),        INTENT(INOUT)         :: Internal ! Internal state\n    TYPE(MAPL_SimpleBundle), INTENT(INOUT)         :: VarBundle\n    CHARACTER(LEN=*),        INTENT(IN)            :: VarName\n    CHARACTER(LEN=*),        INTENT(IN)            :: IntName\n    REAL(fp),                POINTER               :: State2D(:,:)\n    INTEGER,                 INTENT(OUT)           :: RC       ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Jul 2022 - C. Keller   - Initial version (from Chem_GridCompMod)\n!  See https://github.com/geoschem/geos-chem for history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! LOCAL VARIABLES:\n! \n    CHARACTER(LEN=ESMF_MAXSTR)    :: Iam\n    INTEGER                       :: VarID\n    INTEGER                       :: STATUS\n    REAL, POINTER                 :: Ptr2D(:,:) => NULL()\n\n    ! Begin here\n    Iam = 'Init2D_'\n\n    ! Get variable on internal array\n    VarID = MAPL_SimpleBundleGetIndex ( VarBundle, trim(VarName), 2, RC=STATUS, QUIET=.TRUE. )\n    IF ( VarID > 0 ) THEN\n       IF ( am_I_Root ) WRITE(*,*) 'Field initialized from external field: ',TRIM(VarName),' ',TRIM(IntName)\n    ELSE\n       IF ( am_I_Root ) WRITE(*,*) 'Field not found in external file - no updates: ',TRIM(VarName)\n    ENDIF\n\n    ! Pass field to internal state\n    CALL MAPL_GetPointer( Internal, Ptr2D, TRIM(IntName) , notFoundOK=.TRUE., __RC__ )\n    IF ( ASSOCIATED(Ptr2D) ) THEN\n       Ptr2D(:,:) = VarBundle%r2(VarID)%q(:,:)\n    ELSE\n       IF ( am_I_Root ) WRITE(*,*) 'Field not found in internal state - no update: ',TRIM(IntName)\n    ENDIF\n\n    ! Pass field to state object (if provided)\n    IF ( ASSOCIATED(State2D) ) THEN\n       State2D(:,:) = VarBundle%r2(VarID)%q(:,:)\n    ELSE\n       IF ( am_I_Root ) WRITE(*,*) 'No state obj field provided - no update: ',TRIM(VarName)\n    ENDIF\n\n    RETURN_(ESMF_SUCCESS)\n\n  END SUBROUTINE Init2D_\n!EOC\nEND MODULE GEOS_Interface\n"
  },
  {
    "path": "KPP/.cvsignore",
    "content": "*.mod\n*.o\n*.a\n*.pdf\n*.ps\n*.tex\ngeos\n"
  },
  {
    "path": "KPP/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "KPP/CMakeLists.txt",
    "content": "# KPP/CMakeLists.txt\n\n#-----------------------------------------------------------------------------\n# Build the fullchem mechanism if configured with -DMECH=fullchem\n# Also build the KPP-Standalone if configured with -DKPPSA=y\n#-----------------------------------------------------------------------------\nif(\"${MECH}\" STREQUAL fullchem)\n  add_subdirectory(fullchem)\n  if(KPPSA)\n    add_subdirectory(standalone)\n  endif()\nendif()\n\n#-----------------------------------------------------------------------------\n# Build the carbon mechanism if configured with -DMECH=carbon\n#-----------------------------------------------------------------------------\nif(\"${MECH}\" STREQUAL carbon)\n  add_subdirectory(carbon)\nendif()\n\n#-----------------------------------------------------------------------------\n# Build the custom mechanism if configured with -DMECH=custom\n# Also build the KPP-Standalone if configured with -DKPPSA=y\n#-----------------------------------------------------------------------------\nif(\"${MECH}\" STREQUAL custom)\n  add_subdirectory(custom)\n  if(KPPSA)\n    add_subdirectory(standalone)\n  endif()\nendif()\n\n#-----------------------------------------------------------------------------\n# Build the Hg mechanism if configured with -DMECH=Hg\n#-----------------------------------------------------------------------------\nif(\"${MECH}\" STREQUAL Hg)\n  add_subdirectory(Hg)\nendif()\n\n# Comment out this option for now (bmy, 9/16/21)\n## Build the aciduptake mechanism if configured with -DMECH=aciduptake\n#if(\"${MECH}\" STREQUAL aciduptake)\n#  add_subdirectory(aciduptake)\n#endif()\n"
  },
  {
    "path": "KPP/Hg/CMakeLists.txt",
    "content": "# KPP/Hg/CMakeLists.txt\n\n#----------------------------------------------------------------------------\n# Determine the KPP integrator name and set corresponding variables.\n# This is for informational purposes only.\n#----------------------------------------------------------------------------\n\n# Get integrator name\nEXECUTE_PROCESS(\n  COMMAND grep \\#INTEGRATOR ${CMAKE_CURRENT_SOURCE_DIR}/Hg.kpp\n  OUTPUT_VARIABLE RESULT\n)\nseparate_arguments(SUBSTRINGS UNIX_COMMAND \"${RESULT}\")\nlist(GET SUBSTRINGS 1 KPP_INTEGRATOR_NAME)\nstring(TOLOWER \"${KPP_INTEGRATOR_NAME}\" KPP_INTEGRATOR_NAME)\n\n# Print result\ngc_pretty_print(SECTION \"KPP integrator (read from Hg.kpp)\")\ngc_pretty_print(VARIABLE KPP_INTEGRATOR_NAME)\n\n#-----------------------------------------------------------------------------\n# Add libKPP_FirstPass.a\n#-----------------------------------------------------------------------------\nadd_library(KPP_FirstPass STATIC EXCLUDE_FROM_ALL\n  gckpp_Precision.F90\n  gckpp_Parameters.F90\n  gckpp_Monitor.F90\n)\n\n# Dependencies\ntarget_link_libraries(KPP_FirstPass\n  PUBLIC\n  GEOSChemBuildProperties\n)\n\n#-----------------------------------------------------------------------------\n# Add libKPP.a\n#-----------------------------------------------------------------------------\nadd_library(KPP STATIC EXCLUDE_FROM_ALL\n  commonIncludeVars.H\n  gckpp_Function.F90\n  gckpp_Global.F90\n  gckpp_Initialize.F90\n  gckpp_Integrator.F90\n  gckpp_Jacobian.F90\n  gckpp_JacobianSP.F90\n  gckpp_LinearAlgebra.F90\n  gckpp_Model.F90\n  gckpp_Monitor.F90\n  gckpp_Parameters.F90\n  gckpp_Precision.F90\n  gckpp_Rates.F90\n  gckpp_Util.F90\n  Hg_RateLawFuncs.F90\n  Hg_HetStateFuncs.F90\n  rateLawUtilFuncs.F90\n  #\n  # Build these stub modules to avoid compilation errors.\n  # These are symbolic links to files in the ../stubs folder.\n  #\n  stub_aciduptake_DustChemFuncs.F90\n  stub_carbon_Funcs.F90\n  stub_fullchem_AutoReduceFuncs.F90\n  stub_fullchem_HetStateFuncs.F90\n  stub_fullchem_SulfurChemFuncs.F90\n)\n\n# Dependencies\ntarget_link_libraries(KPP\n  PUBLIC\n  GeosUtil\n)\n\n# Treat REAL as if it were REAL*8\ntarget_compile_options(KPP\n  PRIVATE\n  \"\"\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"Intel\">:-r8>\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"GNU\">:-fdefault-real-8 -fdefault-double-8>\n)\n"
  },
  {
    "path": "KPP/Hg/Hg.eqn",
    "content": "{ Hg.eqn\n\n-------------------------------------------------------------------------------\nDESCRIPTION\n-------------------------------------------------------------------------------\n\nGEOS-Chem KPP Hg chemistry file containing species and equations.\n\n===============================================================================\nNOTES\n===============================================================================\n\nComment format is\n Species   - Molecular formula; full name\n Equations - Date modified; Reference; Developer initials\n}\n\n#include atoms.kpp\n\n#DEFVAR\nHg0        = IGNORE;\nHgBr       = IGNORE;\nHgBrNO2    = IGNORE;\nHgBrHO2    = IGNORE;\nHgBrClO    = IGNORE;\nHgBrBrO    = IGNORE;\nHgBr2      = IGNORE;\nHgBrOH     = IGNORE;\nHgBrO      = IGNORE;\nHgClNO2    = IGNORE;\nHgClHO2    = IGNORE;\nHgClClO    = IGNORE;\nHgClBrO    = IGNORE;\nHgClBr     = IGNORE;\nHgClOH     = IGNORE;\nHgCl       = IGNORE;\nHgClO      = IGNORE;\nHgOHNO2    = IGNORE;\nHgOHHO2    = IGNORE;\nHgOHClO    = IGNORE;\nHgOHBrO    = IGNORE;\nHgOHOH     = IGNORE;\nHgOH       = IGNORE;\nHgOHO      = IGNORE;\nHgCl2      = IGNORE;\nHg2ClP     = IGNORE;\nHg2ORGP    = IGNORE;\n\n#DEFFIX\n{PRESCRIBED CONCS FROM HEMCO}\nBr         = IGNORE;\nCl         = IGNORE;\nOH         = IGNORE;\nNO2        = IGNORE;\nNO         = IGNORE;\nO3         = IGNORE;\nHO2        = IGNORE;\nBrO        = IGNORE;\nClO        = IGNORE;\nCO         = IGNORE;\nCH4        = IGNORE;\n\n\n#EQUATIONS\n//\n// Gas-phase reactions\n//\n{OXIDATION BY Br}\nHg0     + Br     = HgBr :     GCARR_ab(1.46d-32, 1.86d0) * NUMDEN;\nHgBr             = Hg0 :      GCARR_abc(1.6d-9, 1.86d0, -7801.0d0) * NUMDEN;\nHgBr    + Br     = Hg0 :      3.9d-11;\nHgBr    + NO2    = Hg0 :      3.0d-12;\nHgBr    + NO2    = HgBrNO2 :  GCJPLPR_abab(4.3d-30, 5.9d0, 1.2d-10, 1.90d0, 0.6d0);\nHgBr    + HO2    = HgBrHO2 :  GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgBr    + ClO    = HgBrClO :  GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgBr    + BrO    = HgBrBrO :  GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgBr    + OH     = HgBrOH :   GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgBr    + Br     = HgBr2 :    3.0d-11;\nHgBrO   + CH4    = HgBrOH :   GCARR_ac(4.1d-12, -856.0d0);\nHgBrO   + CO     = HgBr :     GCARR_ac(6.0d-11, -550.0d0);\nHgBr    + O3     = HgBrO :    3.0d-11;\n\n{OXIDATION BY Cl}\nHg0     + Cl     = HgCl :     GCARR_ac(2.25d-33, 680.0d0) * NUMDEN;\nHgCl    + Cl     = Hg0 :      3.9d-11;\nHgCl    + NO2    = Hg0 :      3.0d-12;\nHgCl    + NO2    = HgClNO2 :  GCJPLPR_abab(4.3d-30, 5.9d0, 1.2d-10, 1.90d0, 0.6d0);\nHgCl    + HO2    = HgClHO2 :  GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgCl    + ClO    = HgClClO :  GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgCl    + BrO    = HgClBrO :  GCJPLPR_abab(4.3d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgCl    + Br     = HgClBr :   3.0d-11;\nHgCl    + OH     = HgClOH :   3.0d-11;\nHgCl    + O3     = HgClO  :   3.0d-11;\nHgClO   + CH4    = HgClOH :   GCARR_ac(4.1d-12, -856.0d0);\nHgClO   + CO     = HgCl :     GCARR_ac(6.0d-11, -550.0d0);\n\n{OXIDATION BY OH}\nHg0     + OH     = HgOH :     GCARR_ac(3.34d-33, 43.0d0) * NUMDEN;\nHgOH             = Hg0 :      GCARR_ac(1.22d-9, -5720.0d0) * NUMDEN;\nHgOH    + NO2    = HgOHNO2 :  GCJPLPR_abab(4.1d-30, 5.9d0, 1.2E-10, 1.90d0, 0.6d0);\nHgOH    + HO2    = HgOHHO2 :  GCJPLPR_abab(4.1d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgOH    + ClO    = HgOHClO :  GCJPLPR_abab(4.1d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgOH    + BrO    = HgOHBrO :  GCJPLPR_abab(4.1d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgOH    + Br     = HgBrOH :   GCJPLPR_abab(4.1d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgOH    + OH     = HgOHOH :   GCJPLPR_abab(4.1d-30, 5.9d0, 6.9d-11, 2.40d0, 0.6d0);\nHgOH    + O3     = HgOHO :    3.0d-11;\nHgOHO   + CH4    = HgOHOH :   GCARR_ac(4.1d-12, -856.0d0);\nHgOHO   + CO     = HgOH :     GCARR_ac(6.0d-11, -550.0d0);\n\n//\n// Heterogeneous reactions\n//\n{In liquid clouds}\nHgBrNO2 = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgBrNO2) );\nHgBrHO2 = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgBrHO2) );\nHgBrOH  = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgBrOH ) );\nHgBrBrO = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgBrBrO) );\nHgBrClO = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgBrClO) );\nHgBr2   = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgBr2  ) );\nHgClNO2 = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgClNO2) );\nHgClHO2 = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgClHO2) );\nHgClOH  = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgClOH ) );\nHgClBrO = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgClBrO) );\nHgClClO = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgClClO) );\nHgClBr  = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgClBr ) );\nHgCl2   = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgCl2  ) );\nHgOHNO2 = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgOHNO2) );\nHgOHHO2 = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgOHHO2) );\nHgOHOH  = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgOHOH ) );\nHgOHBrO = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgOHBrO) );\nHgOHClO = Hg2ORGP :  Het_HgIIP_Org( State_Het, 0.1d0, SR_MW(ind_HgOHClO) );\n\nHgBrNO2 = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgBrNO2) );\nHgBrHO2 = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgBrHO2) );\nHgBrOH  = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgBrOH ) );\nHgBrBrO = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgBrBrO) );\nHgBrClO = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgBrClO) );\nHgBr2   = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgBr2  ) );\nHgClNO2 = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgClNO2) );\nHgClHO2 = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgClHO2) );\nHgClOH  = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgClOH ) );\nHgClBrO = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgClBrO) );\nHgClClO = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgClClO) );\nHgClBr  = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgClBr ) );\nHgOHNO2 = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgOHNO2) );\nHgOHHO2 = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgOHHO2) );\nHgOHOH  = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgOHOH ) );\nHgOHBrO = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgOHBrO) );\nHgOHClO = Hg2ClP  :  Het_HgIIP_Inorg( State_Het, 0.1d0, SR_MW(ind_HgOHClO) );\n\n//\n// Photolysis reactions\n//\nNO2     + hv = NO + O3 :                 PHOTOL(25);\nBrO     + hv = Br + O3 :                 PHOTOL(26);\nClO     + hv = Cl + O3 :                 PHOTOL(27);\n\n{Br}\nHgBr    + hv = Hg0 + Br :                PHOTOL(4);\nHgBrNO2 + hv = 0.9HgBrO + 0.1HgBr +\n 0.9NO + 0.1NO2 :                        PHOTOL(7);\nHgBrHO2 + hv = 0.25HgBrO + 0.67Hg0 +\n 0.07HgBr + 0.01HgBrOH + 0.67Br +\n  0.74HO2 + 0.26OH :                     PHOTOL(8);\nHgBrOH  + hv = 0.49Hg0 + 0.35HgOH +\n 0.15HgBr + 0.01HgBrOH + 0.85Br +\n  0.65OH :                               PHOTOL(9);\nHgBr2   + hv = 0.4Hg0 + 0.6HgBr +\n 1.4Br :                                 PHOTOL(10);\nHgBrBrO + hv = Hg0 + BrO :               PHOTOL(11);\nHgBrClO + hv = Hg0 + Cl + Br :           PHOTOL(12);\n\n{Cl}\n{HgCl2   + hv = Hg0 + 2Cl :               PHOTOL(5);}\nHgClNO2 + hv = 0.9HgClO + 0.1HgCl +\n 0.9NO + 0.1NO2 :                        PHOTOL(14);\nHgClHO2 + hv = 0.25HgClO + 0.67Hg0 +\n 0.07HgCl + 0.01HgClOH + 0.67Cl +\n  0.74HO2 + 0.26OH :                     PHOTOL(15);\nHgClOH  + hv = 0.49Hg0 + 0.35HgOH +\n 0.15HgCl + 0.01HgClOH + 0.85Cl +\n  0.65OH :                               PHOTOL(16);\nHgClBr  + hv = HgCl + Br :               PHOTOL(17);\nHgClBrO + hv = HgCl + BrO :              PHOTOL(18);\nHgClClO + hv = HgCl + ClO :              PHOTOL(19);\n\n{OH}\nHgOH    + hv = Hg0 + OH :                PHOTOL(6);\nHgOHNO2 + hv = 0.9HgOHO + 0.1HgOH +\n 0.9NO + 0.1NO2 :                        PHOTOL(20);\nHgOHHO2 + hv = 0.25HgOHO + 0.67Hg0 +\n 0.07HgOH + 0.01HgOHOH + 0.67Cl +\n  0.74HO2 + 0.26OH :                     PHOTOL(21);\nHgOHOH  + hv = Hg0 + 2OH :               PHOTOL(5);\nHgOHBrO + hv = HgOH + BrO :              PHOTOL(23);\nHgOHClO + hv = HgOH + ClO :              PHOTOL(24);\n\n{ORG}\nHg2ORGP + hv = Hg0 :                     PHOTOL(13);\n"
  },
  {
    "path": "KPP/Hg/Hg.kpp",
    "content": "#MINVERSION   3.2.0       { Need this version of KPP or later          }\n#INTEGRATOR   rosenbrock  { Use Rosenbrock integration method          }\n#LANGUAGE     Fortran90   { Generate solver code in Fortran90 ...      }\n#UPPERCASEF90 on          { ... with .F90 suffix (instead of .f90)     }\n#DRIVER       none        { Do not create gckpp_Main.F90               }\n#HESSIAN      off         { Do not create the Hessian matrix           }\n#MEX          off         { MEX is for Matlab, so skip it              }\n#STOICMAT     off         { Do not create stoichiometric matrix        }\n\n#INCLUDE Hg.eqn           { Chemical reactions for Hg mechanism        }\n\n#FAMILIES                 { Chemical families for prod/loss diagnostic }\nPHg2 : HgBrNO2 + HgBrHO2 + HgBrClO + HgBrBrO + HgBr2 + HgBrOH + HgBrO + HgOHNO2 + HgOHHO2 + HgOHClO + HgOHBrO + HgOHOH + HgOHO + HgClNO2 + HgClHO2 + HgClClO + HgClBrO + HgClBr + HgClOH + HgClO + HgCl2 + Hg2ClP + Hg2ORGP + HgBr + HgOH + HgCl; {gross GOM production}\nPHg0 : Hg0; {gross Hg0 production}\nPHg2Br : HgBrNO2 + HgBrHO2 + HgBrClO + HgBrBrO + HgBr2 + HgBrOH + HgBrO + HgBr; {GOM production from Br}\nPHg2OH : HgOHNO2 + HgOHHO2 + HgOHClO + HgOHBrO + HgOHOH + HgOHO + HgOH; {GOM production from OH}\nPHg2Cl : HgClNO2 + HgClHO2 + HgClClO + HgClBrO + HgClBr + HgClOH + HgClO + HgCl2 + HgCl; {GOM production from Cl}\n\n#INLINE F90_RATES\n  ! All rates are included in Hg_RateLawFuncs.F90, which\n  ! gets referenced directly from subroutine Update_Rconst.\n#ENDINLINE\n\n#INLINE F90_RCONST_USE\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (09 Dec 2021)\n  USE Hg_RateLawFuncs\n#ENDINLINE\n\n#INLINE F90_GLOBAL\n! Inline common variables into gckpp_Global.F90\n#include \"commonIncludeVars.H\"\n#ENDINLINE\n"
  },
  {
    "path": "KPP/Hg/Hg_HetStateFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: Hg_HetStateFuncs.F90\n!\n! !DESCRIPTION: Module for initializing the HetState object, which passes\n!  arguments from GEOS-Chem to the heterogeneous chemistry routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n\nMODULE Hg_HetStateFuncs\n!\n! !USES:\n!\n  USE GcKpp_Precision\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Hg_SetStateHet\n\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Hg_SetStateHet\n!\n! !DESCRIPTION: Initializes the State_Het object with gridbox values passed\n!  from Hg_mod.  These values are used in the heterogenous chemistry\n!  reaction rate computations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Hg_SetStateHet( I,          J,         L,                       &\n                             Input_Opt,  State_Chm, State_Met,               &\n                             fracOrgAer, H,         RC                      )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GcKpp_Global\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE rateLawUtilFuncs, ONLY : Cld_Params\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Met_Mod,    ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I           ! Lon index\n    INTEGER,        INTENT(IN)    :: J           ! Lat index\n    INTEGER,        INTENT(IN)    :: L           ! Level index\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm   ! Chemistry State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    REAL(sp),       INTENT(IN)    :: fracOrgAer  ! Frac forming organic HgIIP\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HetState), INTENT(INOUT) :: H           ! Hetchem State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialization\n    RC = GC_SUCCESS\n\n    !========================================================================\n    ! Populate fields of the HetState object in gckpp_Global\n    !========================================================================\n\n    ! Identify a box for debug printout within rate-law functions\n    debugBox       = .FALSE.\n\n    ! Identify if this grid box is cloudy\n    H%cloudBox     = ( ( State_Met%InTroposphere(I,J,L)              )  .or. &\n                       ( State_Met%T(I,J,L)             >= 258.0_dp  )  .or. &\n                       ( State_Met%CLDF(I,J,L)          >= 1.0e-3_dp )      )\n\n    ! Meteorology-related quantities\n    H%CldFr        = MIN( MAX( State_Met%CLDF(I,J,L), 0.0_dp ), 1.0_dp )\n    H%ClearFr      = 1.0_dp - State_Het%CldFr\n    H%QICE         = State_Met%QI(I,J,L)\n    H%QLIQ         = State_Met%QL(I,J,L)\n    H%vAir         = State_Met%AIRVOL(I,J,L) * 1.0e6_dp\n\n    ! Fraction of species forming organic or inorganic HgII aerosol\n    H%fracOrgAer   = fracOrgAer\n    H%fracInorgAer = 1.0_dp - fracOrgAer\n\n    ! Cloud fields\n    CALL Cld_Params(                                                         &\n         AD        = State_Met%AD(I,J,L),                                    &\n         CLDF      = State_Met%CLDF(I,J,L),                                  &\n         FRLAND    = State_Met%FRLAND(I,J),                                  &\n         FROCEAN   = State_Met%FROCEAN(I,J),                                 &\n         QI        = State_Met%QI(I,J,L),                                    &\n         QL        = State_Met%QL(I,J,L),                                    &\n         T         = State_Met%T(I,J,L),                                     &\n         H         = H                                                      )\n\n  END SUBROUTINE Hg_SetStateHet\n!EOC\nEND MODULE Hg_HetStateFuncs\n"
  },
  {
    "path": "KPP/Hg/Hg_RateLawFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_RateLawFuncs\n!\n! !DESCRIPTION: Provides rate-law functions used by the \"fullchem\" chemical\n!  mechanism.  This will be referenced from within subroutine Update_RCONST.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Hg_RateLawFuncs\n!\n! !USES:\n!\n  USE gckpp_Global\n  USE gckpp_Parameters\n  USE gckpp_Precision\n  USE rateLawUtilFuncs\n\n  IMPLICIT NONE\n  PUBLIC\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n\n  !#########################################################################\n  !#####          RATE-LAW FUNCTIONS FOR GAS-PHASE REACTIONS           #####\n  !#####   Some common functions are defined in rateLawUtilFuncs.F90   #####\n  !#########################################################################\n\n  FUNCTION GCJPLPR_abab( a1, b1, a2, b2, fv ) RESULT( k )\n    !\n    ! Third body effect for pressure dependence of rate coefficients.\n    ! a1, b1 are the Arrhenius parameters for the lower-limit rate.\n    ! a2, b2 are the Arrhenius parameters for the upper-limit rate.\n    ! fv     is the falloff curve paramter, (see ATKINSON ET. AL (1992)\n    !        J. Phys. Chem. Ref. Data 21, P. 1145). Usually fv = 0.6.\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    EXP(c1/T)\n    !    EXP(c2/T)\n    ! because c1 = c2 = 0.  Therefore we can skip computing these\n    ! terms.  Also, fct1 = fct2 = 0, so we will skip computing these\n    ! terms as well.  This is more computationally efficient.\n    ! (bmy, 06 Jan 2022)\n    !\n    REAL(dp), INTENT(IN) :: a1,   b1,    a2,    b2,   fv\n    REAL(dp)             :: rlow, rhigh, xyrat, blog, fexp, k\n    !\n    rlow  = a1 * ( K300_OVER_TEMP**b1 ) * NUMDEN\n    rhigh = a2 * ( K300_OVER_TEMP**b2 )\n    xyrat = rlow / rhigh\n    blog  = LOG10( xyrat )\n    fexp  = 1.0_dp / ( 1.0_dp + ( blog * blog ) )\n    k     = rlow * ( fv**fexp ) / ( 1.0_dp + xyrat )\n  END FUNCTION GCJPLPR_abab\n\n  !#########################################################################\n  !#####        RATE-LAW FUNCTIONS FOR HETEROGENEOUS REACTIONS         #####\n  !#####   Some common functions are defined in rateLawUtilFuncs.F90   #####\n  !#########################################################################\n\n  FUNCTION CloudHet_Hg( H, srMw, gamma ) RESULT( k )\n    !\n    ! Calculates the loss frequency (1/s) of gas species due to\n    ! heterogeneous chemistry on liquid clouds in a partially cloudy\n    ! grid cell. The function uses the \"entrainment limited uptake\"\n    ! equations of Holmes et al. (2019).  Modified from C.Holmes's\n    ! CloudHet routine by Viral Shah (Oct 2020).\n    !\n    ! Reference:\n    ! Holmes, C.D., Bertram, T. H., Confer, K. L., Ronan, A. C., Wirks,\n    !   C. K., Graham, K. A., Shah, V. (2019) The role of clouds in the\n    !   tropospheric NOx cycle: a new modeling approach for cloud chemistry\n    !   and its global implications, Geophys. Res. Lett. 46, 4980-4990,\n    !   https://doi.org/10.1029/2019GL081990\n    !\n    TYPE(HetState), INTENT(IN) :: H       ! Hetchem State object\n    REAL(dp),       INTENT(IN) :: gamma   ! Reaction probability [1]\n    REAL(dp),       INTENT(IN) :: srMw    ! SQRT( mol wt in g/mol )\n    REAL(dp)                   :: K       ! Reaction rate [1/s]\n    !\n    REAL(dp)                   :: kic, kIinv, kEinv\n    !\n    ! If cloud fraction < 0.0001 (0.01%) or there is zero cloud surface\n    ! area, then return zero uptake\n    IF ( ( H%CldFr < 0.0001_dp ) .or. ( H%aLiq + H%aIce <= 0.0_dp ) ) THEN\n       k = 0.0_dp\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! In-cloud loss frequency, 1/s\n    !-----------------------------------------------------------------------\n    kic = Ars_L1K( H%aLiq, H%rLiq, gamma, srMw )\n\n    !------------------------------------------------------------------------\n    ! Grid-average loss frequency;\n    ! Add in-cloud and entrainment rates in series\n    !\n    ! APPROXIMATE expression for entrainment-limited uptake\n    ! Approximation error in loss frequency is typically <2% and always <50%.\n    !------------------------------------------------------------------------\n\n    ! Entrainment rate, inverse [s]\n    ! (Residence time of air in clouds, = 3600 s)\n    kEinv = SafeDiv( ( 3600.0_dp * H%ClearFr ) , H%CldFr, 1e+30_dp )\n\n    ! In-cloud loss rate, inverse [s]\n    kIinv = SafeDiv( 1.0_dp, ( H%CldFr * kic ), 1e+30_dp )\n\n    ! Overall heterogeneous loss rate, grid average, 1/s\n    k     = SafeDiv( 1.0_dp, ( kEinv + kIinv ), 0.0_dp )\n\n  END FUNCTION CloudHet_Hg\n\n  FUNCTION Het_HgIIP_Org( H, gamma, srMw ) RESULT( k )\n    !\n    ! Computes the heterogeneous chemistry reaction rate [1/s]\n    ! for species forming organic HgIIP aerosol in liquid clouds.\n    !\n    TYPE(HetState), INTENT(IN) :: H       ! Hetchem State object\n    REAL(dp),       INTENT(IN) :: gamma   ! Reaction probability [1]\n    REAL(dp),       INTENT(IN) :: srMw    ! SQRT( mol wt in g/mol )\n    REAL(dp)                   :: K       ! Reaction rate [1/s]\n    !\n    k = 0.0_dp\n    !\n    ! Reaction only takes place in cloudy grid boxes\n    IF ( H%cloudBox ) THEN\n       k = CloudHet_Hg( H, gamma, srMw ) * H%fracOrgAer\n    ENDIF\n  END FUNCTION Het_HgIIP_Org\n\n  FUNCTION Het_HgIIP_Inorg( H, gamma, srMw ) RESULT( k )\n    !\n    ! Computes the heterogeneous chemistry reaction rate [1/s]\n    ! for species forming inorganic HgIIP aerosol in liquid clouds\n    !\n    TYPE(HetState), INTENT(IN) :: H       ! Hetchem State object\n    REAL(dp),       INTENT(IN) :: gamma   ! Reaction probability [1]\n    REAL(dp),       INTENT(IN) :: srMw    ! SQRT( mol wt in g/mol )\n    REAL(dp)                   :: K       ! Reaction rate [1/s]\n    !\n    k = 0.0_dp\n    !\n    ! Reaction only takes place in cloudy grid boxes\n    IF ( H%cloudBox ) THEN\n       k = CloudHet_Hg( H, gamma, srMw ) * H%fracInorgAer\n    ENDIF\n  END FUNCTION Het_HgIIP_Inorg\n\nEND MODULE Hg_RateLawFuncs\n!EOC\n"
  },
  {
    "path": "KPP/Hg/Makefile",
    "content": "# CMAKE generated file: DO NOT EDIT!\n# Generated by \"Unix Makefiles\" Generator, CMake Version 3.18\n\n# Default target executed when no arguments are given to make.\ndefault_target: all\n\n.PHONY : default_target\n\n# Allow only one \"make -f Makefile2\" at a time, but pass parallelism.\n.NOTPARALLEL:\n\n\n#=============================================================================\n# Special targets provided by cmake.\n\n# Disable implicit rules so canonical targets will work.\n.SUFFIXES:\n\n\n# Disable VCS-based implicit rules.\n% : %,v\n\n\n# Disable VCS-based implicit rules.\n% : RCS/%\n\n\n# Disable VCS-based implicit rules.\n% : RCS/%,v\n\n\n# Disable VCS-based implicit rules.\n% : SCCS/s.%\n\n\n# Disable VCS-based implicit rules.\n% : s.%\n\n\n.SUFFIXES: .hpux_make_needs_suffix_list\n\n\n# Command-line flag to silence nested $(MAKE).\n$(VERBOSE)MAKESILENT = -s\n\n#Suppress display of executed commands.\n$(VERBOSE).SILENT:\n\n# A target that is always out of date.\ncmake_force:\n\n.PHONY : cmake_force\n\n#=============================================================================\n# Set environment variables for the build.\n\n# The shell in which to execute make rules.\nSHELL = /bin/sh\n\n# The CMake executable.\nCMAKE_COMMAND = /usr/bin/cmake\n\n# The command to remove a file.\nRM = /usr/bin/cmake -E rm -f\n\n# Escaping for special characters.\nEQUALS = =\n\n# The top-level source directory on which CMake was run.\nCMAKE_SOURCE_DIR = /home/ilcentro/Work/Harvard/GC/v13\n\n# The top-level build directory on which CMake was run.\nCMAKE_BINARY_DIR = /home/ilcentro/Work/Harvard/GC/v13\n\n#=============================================================================\n# Targets provided globally by CMake.\n\n# Special rule for the target rebuild_cache\nrebuild_cache:\n\t@$(CMAKE_COMMAND) -E cmake_echo_color --switch=$(COLOR) --cyan \"Running CMake to regenerate build system...\"\n\t/usr/bin/cmake --regenerate-during-build -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR)\n.PHONY : rebuild_cache\n\n# Special rule for the target rebuild_cache\nrebuild_cache/fast: rebuild_cache\n\n.PHONY : rebuild_cache/fast\n\n# Special rule for the target edit_cache\nedit_cache:\n\t@$(CMAKE_COMMAND) -E cmake_echo_color --switch=$(COLOR) --cyan \"Running CMake cache editor...\"\n\t/usr/bin/ccmake -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR)\n.PHONY : edit_cache\n\n# Special rule for the target edit_cache\nedit_cache/fast: edit_cache\n\n.PHONY : edit_cache/fast\n\n# The main all target\nall: cmake_check_build_system\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(CMAKE_COMMAND) -E cmake_progress_start /home/ilcentro/Work/Harvard/GC/v13/CMakeFiles /home/ilcentro/Work/Harvard/GC/v13/KPP/fullchem//CMakeFiles/progress.marks\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 KPP/fullchem/all\n\t$(CMAKE_COMMAND) -E cmake_progress_start /home/ilcentro/Work/Harvard/GC/v13/CMakeFiles 0\n.PHONY : all\n\n# The main clean target\nclean:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 KPP/fullchem/clean\n.PHONY : clean\n\n# The main clean target\nclean/fast: clean\n\n.PHONY : clean/fast\n\n# Prepare targets for installation.\npreinstall: all\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 KPP/fullchem/preinstall\n.PHONY : preinstall\n\n# Prepare targets for installation.\npreinstall/fast:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 KPP/fullchem/preinstall\n.PHONY : preinstall/fast\n\n# clear depends\ndepend:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(CMAKE_COMMAND) -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR) --check-build-system CMakeFiles/Makefile.cmake 1\n.PHONY : depend\n\n# Convenience name for target.\nKPP/fullchem/CMakeFiles/KPP_fullchem.dir/rule:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 KPP/fullchem/CMakeFiles/KPP_fullchem.dir/rule\n.PHONY : KPP/fullchem/CMakeFiles/KPP_fullchem.dir/rule\n\n# Convenience name for target.\nKPP_fullchem: KPP/fullchem/CMakeFiles/KPP_fullchem.dir/rule\n\n.PHONY : KPP_fullchem\n\n# fast build rule for target.\nKPP_fullchem/fast:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build\n.PHONY : KPP_fullchem/fast\n\n# Convenience name for target.\nKPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/rule:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/rule\n.PHONY : KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/rule\n\n# Convenience name for target.\nKPPFirstPass_fullchem: KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/rule\n\n.PHONY : KPPFirstPass_fullchem\n\n# fast build rule for target.\nKPPFirstPass_fullchem/fast:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build\n.PHONY : KPPFirstPass_fullchem/fast\n\ngckpp_Function.o: gckpp_Function.F90.o\n\n.PHONY : gckpp_Function.o\n\n# target to build an object file\ngckpp_Function.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Function.F90.o\n.PHONY : gckpp_Function.F90.o\n\ngckpp_Function.i: gckpp_Function.F90.i\n\n.PHONY : gckpp_Function.i\n\n# target to preprocess a source file\ngckpp_Function.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Function.F90.i\n.PHONY : gckpp_Function.F90.i\n\ngckpp_Function.s: gckpp_Function.F90.s\n\n.PHONY : gckpp_Function.s\n\n# target to generate assembly for a file\ngckpp_Function.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Function.F90.s\n.PHONY : gckpp_Function.F90.s\n\ngckpp_Global.o: gckpp_Global.F90.o\n\n.PHONY : gckpp_Global.o\n\n# target to build an object file\ngckpp_Global.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Global.F90.o\n.PHONY : gckpp_Global.F90.o\n\ngckpp_Global.i: gckpp_Global.F90.i\n\n.PHONY : gckpp_Global.i\n\n# target to preprocess a source file\ngckpp_Global.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Global.F90.i\n.PHONY : gckpp_Global.F90.i\n\ngckpp_Global.s: gckpp_Global.F90.s\n\n.PHONY : gckpp_Global.s\n\n# target to generate assembly for a file\ngckpp_Global.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Global.F90.s\n.PHONY : gckpp_Global.F90.s\n\ngckpp_HetRates.o: gckpp_HetRates.F90.o\n\n.PHONY : gckpp_HetRates.o\n\n# target to build an object file\ngckpp_HetRates.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_HetRates.F90.o\n.PHONY : gckpp_HetRates.F90.o\n\ngckpp_HetRates.i: gckpp_HetRates.F90.i\n\n.PHONY : gckpp_HetRates.i\n\n# target to preprocess a source file\ngckpp_HetRates.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_HetRates.F90.i\n.PHONY : gckpp_HetRates.F90.i\n\ngckpp_HetRates.s: gckpp_HetRates.F90.s\n\n.PHONY : gckpp_HetRates.s\n\n# target to generate assembly for a file\ngckpp_HetRates.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_HetRates.F90.s\n.PHONY : gckpp_HetRates.F90.s\n\ngckpp_Initialize.o: gckpp_Initialize.F90.o\n\n.PHONY : gckpp_Initialize.o\n\n# target to build an object file\ngckpp_Initialize.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Initialize.F90.o\n.PHONY : gckpp_Initialize.F90.o\n\ngckpp_Initialize.i: gckpp_Initialize.F90.i\n\n.PHONY : gckpp_Initialize.i\n\n# target to preprocess a source file\ngckpp_Initialize.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Initialize.F90.i\n.PHONY : gckpp_Initialize.F90.i\n\ngckpp_Initialize.s: gckpp_Initialize.F90.s\n\n.PHONY : gckpp_Initialize.s\n\n# target to generate assembly for a file\ngckpp_Initialize.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Initialize.F90.s\n.PHONY : gckpp_Initialize.F90.s\n\ngckpp_Integrator.o: gckpp_Integrator.F90.o\n\n.PHONY : gckpp_Integrator.o\n\n# target to build an object file\ngckpp_Integrator.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Integrator.F90.o\n.PHONY : gckpp_Integrator.F90.o\n\ngckpp_Integrator.i: gckpp_Integrator.F90.i\n\n.PHONY : gckpp_Integrator.i\n\n# target to preprocess a source file\ngckpp_Integrator.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Integrator.F90.i\n.PHONY : gckpp_Integrator.F90.i\n\ngckpp_Integrator.s: gckpp_Integrator.F90.s\n\n.PHONY : gckpp_Integrator.s\n\n# target to generate assembly for a file\ngckpp_Integrator.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Integrator.F90.s\n.PHONY : gckpp_Integrator.F90.s\n\ngckpp_Jacobian.o: gckpp_Jacobian.F90.o\n\n.PHONY : gckpp_Jacobian.o\n\n# target to build an object file\ngckpp_Jacobian.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Jacobian.F90.o\n.PHONY : gckpp_Jacobian.F90.o\n\ngckpp_Jacobian.i: gckpp_Jacobian.F90.i\n\n.PHONY : gckpp_Jacobian.i\n\n# target to preprocess a source file\ngckpp_Jacobian.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Jacobian.F90.i\n.PHONY : gckpp_Jacobian.F90.i\n\ngckpp_Jacobian.s: gckpp_Jacobian.F90.s\n\n.PHONY : gckpp_Jacobian.s\n\n# target to generate assembly for a file\ngckpp_Jacobian.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Jacobian.F90.s\n.PHONY : gckpp_Jacobian.F90.s\n\ngckpp_JacobianSP.o: gckpp_JacobianSP.F90.o\n\n.PHONY : gckpp_JacobianSP.o\n\n# target to build an object file\ngckpp_JacobianSP.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_JacobianSP.F90.o\n.PHONY : gckpp_JacobianSP.F90.o\n\ngckpp_JacobianSP.i: gckpp_JacobianSP.F90.i\n\n.PHONY : gckpp_JacobianSP.i\n\n# target to preprocess a source file\ngckpp_JacobianSP.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_JacobianSP.F90.i\n.PHONY : gckpp_JacobianSP.F90.i\n\ngckpp_JacobianSP.s: gckpp_JacobianSP.F90.s\n\n.PHONY : gckpp_JacobianSP.s\n\n# target to generate assembly for a file\ngckpp_JacobianSP.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_JacobianSP.F90.s\n.PHONY : gckpp_JacobianSP.F90.s\n\ngckpp_LinearAlgebra.o: gckpp_LinearAlgebra.F90.o\n\n.PHONY : gckpp_LinearAlgebra.o\n\n# target to build an object file\ngckpp_LinearAlgebra.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_LinearAlgebra.F90.o\n.PHONY : gckpp_LinearAlgebra.F90.o\n\ngckpp_LinearAlgebra.i: gckpp_LinearAlgebra.F90.i\n\n.PHONY : gckpp_LinearAlgebra.i\n\n# target to preprocess a source file\ngckpp_LinearAlgebra.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_LinearAlgebra.F90.i\n.PHONY : gckpp_LinearAlgebra.F90.i\n\ngckpp_LinearAlgebra.s: gckpp_LinearAlgebra.F90.s\n\n.PHONY : gckpp_LinearAlgebra.s\n\n# target to generate assembly for a file\ngckpp_LinearAlgebra.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_LinearAlgebra.F90.s\n.PHONY : gckpp_LinearAlgebra.F90.s\n\ngckpp_Model.o: gckpp_Model.F90.o\n\n.PHONY : gckpp_Model.o\n\n# target to build an object file\ngckpp_Model.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Model.F90.o\n.PHONY : gckpp_Model.F90.o\n\ngckpp_Model.i: gckpp_Model.F90.i\n\n.PHONY : gckpp_Model.i\n\n# target to preprocess a source file\ngckpp_Model.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Model.F90.i\n.PHONY : gckpp_Model.F90.i\n\ngckpp_Model.s: gckpp_Model.F90.s\n\n.PHONY : gckpp_Model.s\n\n# target to generate assembly for a file\ngckpp_Model.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Model.F90.s\n.PHONY : gckpp_Model.F90.s\n\ngckpp_Monitor.o: gckpp_Monitor.F90.o\n\n.PHONY : gckpp_Monitor.o\n\n# target to build an object file\ngckpp_Monitor.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Monitor.F90.o\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Monitor.F90.o\n.PHONY : gckpp_Monitor.F90.o\n\ngckpp_Monitor.i: gckpp_Monitor.F90.i\n\n.PHONY : gckpp_Monitor.i\n\n# target to preprocess a source file\ngckpp_Monitor.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Monitor.F90.i\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Monitor.F90.i\n.PHONY : gckpp_Monitor.F90.i\n\ngckpp_Monitor.s: gckpp_Monitor.F90.s\n\n.PHONY : gckpp_Monitor.s\n\n# target to generate assembly for a file\ngckpp_Monitor.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Monitor.F90.s\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Monitor.F90.s\n.PHONY : gckpp_Monitor.F90.s\n\ngckpp_Parameters.o: gckpp_Parameters.F90.o\n\n.PHONY : gckpp_Parameters.o\n\n# target to build an object file\ngckpp_Parameters.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Parameters.F90.o\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Parameters.F90.o\n.PHONY : gckpp_Parameters.F90.o\n\ngckpp_Parameters.i: gckpp_Parameters.F90.i\n\n.PHONY : gckpp_Parameters.i\n\n# target to preprocess a source file\ngckpp_Parameters.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Parameters.F90.i\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Parameters.F90.i\n.PHONY : gckpp_Parameters.F90.i\n\ngckpp_Parameters.s: gckpp_Parameters.F90.s\n\n.PHONY : gckpp_Parameters.s\n\n# target to generate assembly for a file\ngckpp_Parameters.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Parameters.F90.s\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Parameters.F90.s\n.PHONY : gckpp_Parameters.F90.s\n\ngckpp_Precision.o: gckpp_Precision.F90.o\n\n.PHONY : gckpp_Precision.o\n\n# target to build an object file\ngckpp_Precision.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Precision.F90.o\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Precision.F90.o\n.PHONY : gckpp_Precision.F90.o\n\ngckpp_Precision.i: gckpp_Precision.F90.i\n\n.PHONY : gckpp_Precision.i\n\n# target to preprocess a source file\ngckpp_Precision.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Precision.F90.i\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Precision.F90.i\n.PHONY : gckpp_Precision.F90.i\n\ngckpp_Precision.s: gckpp_Precision.F90.s\n\n.PHONY : gckpp_Precision.s\n\n# target to generate assembly for a file\ngckpp_Precision.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Precision.F90.s\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPPFirstPass_fullchem.dir/gckpp_Precision.F90.s\n.PHONY : gckpp_Precision.F90.s\n\ngckpp_Rates.o: gckpp_Rates.F90.o\n\n.PHONY : gckpp_Rates.o\n\n# target to build an object file\ngckpp_Rates.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Rates.F90.o\n.PHONY : gckpp_Rates.F90.o\n\ngckpp_Rates.i: gckpp_Rates.F90.i\n\n.PHONY : gckpp_Rates.i\n\n# target to preprocess a source file\ngckpp_Rates.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Rates.F90.i\n.PHONY : gckpp_Rates.F90.i\n\ngckpp_Rates.s: gckpp_Rates.F90.s\n\n.PHONY : gckpp_Rates.s\n\n# target to generate assembly for a file\ngckpp_Rates.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Rates.F90.s\n.PHONY : gckpp_Rates.F90.s\n\ngckpp_Util.o: gckpp_Util.F90.o\n\n.PHONY : gckpp_Util.o\n\n# target to build an object file\ngckpp_Util.F90.o:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Util.F90.o\n.PHONY : gckpp_Util.F90.o\n\ngckpp_Util.i: gckpp_Util.F90.i\n\n.PHONY : gckpp_Util.i\n\n# target to preprocess a source file\ngckpp_Util.F90.i:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Util.F90.i\n.PHONY : gckpp_Util.F90.i\n\ngckpp_Util.s: gckpp_Util.F90.s\n\n.PHONY : gckpp_Util.s\n\n# target to generate assembly for a file\ngckpp_Util.F90.s:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(MAKE) $(MAKESILENT) -f KPP/fullchem/CMakeFiles/KPP_fullchem.dir/build.make KPP/fullchem/CMakeFiles/KPP_fullchem.dir/gckpp_Util.F90.s\n.PHONY : gckpp_Util.F90.s\n\n# Help Target\nhelp:\n\t@echo \"The following are some of the valid targets for this Makefile:\"\n\t@echo \"... all (the default if no target is provided)\"\n\t@echo \"... clean\"\n\t@echo \"... depend\"\n\t@echo \"... edit_cache\"\n\t@echo \"... rebuild_cache\"\n\t@echo \"... KPPFirstPass_fullchem\"\n\t@echo \"... KPP_fullchem\"\n\t@echo \"... gckpp_Function.o\"\n\t@echo \"... gckpp_Function.i\"\n\t@echo \"... gckpp_Function.s\"\n\t@echo \"... gckpp_Global.o\"\n\t@echo \"... gckpp_Global.i\"\n\t@echo \"... gckpp_Global.s\"\n\t@echo \"... gckpp_HetRates.o\"\n\t@echo \"... gckpp_HetRates.i\"\n\t@echo \"... gckpp_HetRates.s\"\n\t@echo \"... gckpp_Initialize.o\"\n\t@echo \"... gckpp_Initialize.i\"\n\t@echo \"... gckpp_Initialize.s\"\n\t@echo \"... gckpp_Integrator.o\"\n\t@echo \"... gckpp_Integrator.i\"\n\t@echo \"... gckpp_Integrator.s\"\n\t@echo \"... gckpp_Jacobian.o\"\n\t@echo \"... gckpp_Jacobian.i\"\n\t@echo \"... gckpp_Jacobian.s\"\n\t@echo \"... gckpp_JacobianSP.o\"\n\t@echo \"... gckpp_JacobianSP.i\"\n\t@echo \"... gckpp_JacobianSP.s\"\n\t@echo \"... gckpp_LinearAlgebra.o\"\n\t@echo \"... gckpp_LinearAlgebra.i\"\n\t@echo \"... gckpp_LinearAlgebra.s\"\n\t@echo \"... gckpp_Model.o\"\n\t@echo \"... gckpp_Model.i\"\n\t@echo \"... gckpp_Model.s\"\n\t@echo \"... gckpp_Monitor.o\"\n\t@echo \"... gckpp_Monitor.i\"\n\t@echo \"... gckpp_Monitor.s\"\n\t@echo \"... gckpp_Parameters.o\"\n\t@echo \"... gckpp_Parameters.i\"\n\t@echo \"... gckpp_Parameters.s\"\n\t@echo \"... gckpp_Precision.o\"\n\t@echo \"... gckpp_Precision.i\"\n\t@echo \"... gckpp_Precision.s\"\n\t@echo \"... gckpp_Rates.o\"\n\t@echo \"... gckpp_Rates.i\"\n\t@echo \"... gckpp_Rates.s\"\n\t@echo \"... gckpp_Util.o\"\n\t@echo \"... gckpp_Util.i\"\n\t@echo \"... gckpp_Util.s\"\n.PHONY : help\n\n\n\n#=============================================================================\n# Special targets to cleanup operation of make.\n\n# Special rule to run CMake to check the build system integrity.\n# No rule that depends on this can have commands that come from listfiles\n# because they might be regenerated.\ncmake_check_build_system:\n\tcd /home/ilcentro/Work/Harvard/GC/v13 && $(CMAKE_COMMAND) -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR) --check-build-system CMakeFiles/Makefile.cmake 0\n.PHONY : cmake_check_build_system\n\n"
  },
  {
    "path": "KPP/Hg/README.md",
    "content": "# KPP/Hg -- folder for the GEOS-Chem mercury chemistry mechanism\n\nThis folder contains the files that define the mercury chemistry\nmechanism for GEOS-Chem.\n\n## User-modifiable configuration files\n\n  1. **Hg.kpp**: Master KPP specification file.\n\n  2. **Hg.eqn**: KPP equation file, contains reaction definitoins.\n\n  3. **Hg_HetStateFuncs.F90**: This module contains functions\n     that initialize the HetChem state object.\n\n  5. **Hg_RateLawFuncs.F90**: This module contains functions\n\t that compute rates for heterogenous chemistry reactions.  This is\n\t the so-called \"rate law library\" for the fullchem mechanism.\n\n  6. **rateLawUtilFuncs.F90**: This module contains several utility\n     functions for heterogeneous chemistry reactions.  (Symbolic link\n     to ../fullchem/rateLawUtilfuncs.\n\n   7, **commonIncludeVars.H**: Global variables that are used for all\n      KPP mechanisms.  These will be inlined into the KPP-generated\n      **gckpp_Global.F90** file.\n\nThe following files link to the KPP/stubs folder.  These include stub\nsubroutines that are used by other chemical mechanisms.  The stubs are\nneeded in order to avoid compilation errors.\n\n  1. **stub_aciduptake_DustChemFuncs.F90** Stub routines corresponding\n     to the KPP/aciduptake/aciduptake_DustChemFuncs.F90 module,\n\n  2. **stub_fullchem_HetStateFuncs.F90**: Stub routines corresponding\n     to the KPP/fullchem/Hg_HetStateFuncs.F90 module.\n\n  3. **stub_fullchem_SulfurChemFuncs.F90**: Stub routines corresponding\n\t to the KPP/fullchem/fullchem_SulfurChemFuncs.F90 module.\n\n### Files generated by KPP\n\nWith the exception of the symbolic link **gckpp.kpp**, and the map\nfile **gckpp.map**, all files starting with the prefix **gckpp_** are\ngenerated by KPP.  These contain the specifications of the chemical\nmechanism in efficient source code.\n\nFFor more information, please see:\n\n  1. KPP documentation at: https://kpp.readthedocs.io\n\n  2. [Guide to Using KPP with GEOS-Chem](https://geos-chem.readthedocs.io/en/latest/geos-chem-shared-docs/supplemental-guides/using-kpp-with-gc.html)\n"
  },
  {
    "path": "KPP/Hg/gckpp_Function.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The ODE Function of Chemical Model File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Function.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Function\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\n! A - Rate for each equation\n  REAL(kind=dp) :: A(NREACT)\n  !$OMP THREADPRIVATE(  A )\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Fun - time derivatives of variables - Aggregate form\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      Vdot      - Time derivative of variable species concentrations\n!      Aout      - Optional argument to return equation rate constants\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun ( V, F, RCT, Vdot, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! Vdot - Time derivative of variable species concentrations\n  REAL(kind=dp) :: Vdot(NVAR)\n! Aout - Optional argument to return equation rate constants\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(30)*F(1)\n  A(2) = RCT(2)*V(32)\n  A(3) = RCT(3)*V(32)*F(1)\n  A(4) = RCT(4)*V(32)*F(4)\n  A(5) = RCT(5)*V(32)*F(4)\n  A(6) = RCT(6)*V(32)*F(7)\n  A(7) = RCT(7)*V(32)*F(9)\n  A(8) = RCT(8)*V(32)*F(8)\n  A(9) = RCT(9)*V(32)*F(3)\n  A(10) = RCT(10)*V(32)*F(1)\n  A(11) = RCT(11)*V(22)*F(11)\n  A(12) = RCT(12)*V(22)*F(10)\n  A(13) = RCT(13)*V(32)*F(6)\n  A(14) = RCT(14)*V(30)*F(2)\n  A(15) = RCT(15)*V(27)*F(2)\n  A(16) = RCT(16)*V(27)*F(4)\n  A(17) = RCT(17)*V(27)*F(4)\n  A(18) = RCT(18)*V(27)*F(7)\n  A(19) = RCT(19)*V(27)*F(9)\n  A(20) = RCT(20)*V(27)*F(8)\n  A(21) = RCT(21)*V(27)*F(1)\n  A(22) = RCT(22)*V(27)*F(3)\n  A(23) = RCT(23)*V(27)*F(6)\n  A(24) = RCT(24)*V(24)*F(11)\n  A(25) = RCT(25)*V(24)*F(10)\n  A(26) = RCT(26)*V(30)*F(3)\n  A(27) = RCT(27)*V(29)\n  A(28) = RCT(28)*V(29)*F(4)\n  A(29) = RCT(29)*V(29)*F(7)\n  A(30) = RCT(30)*V(29)*F(9)\n  A(31) = RCT(31)*V(29)*F(8)\n  A(32) = RCT(32)*V(29)*F(1)\n  A(33) = RCT(33)*V(29)*F(3)\n  A(34) = RCT(34)*V(29)*F(6)\n  A(35) = RCT(35)*V(19)*F(11)\n  A(36) = RCT(36)*V(19)*F(10)\n  A(37) = RCT(37)*V(16)\n  A(38) = RCT(38)*V(23)\n  A(39) = RCT(39)*V(31)\n  A(40) = RCT(40)*V(14)\n  A(41) = RCT(41)*V(13)\n  A(42) = RCT(42)*V(18)\n  A(43) = RCT(43)*V(17)\n  A(44) = RCT(44)*V(25)\n  A(45) = RCT(45)*V(26)\n  A(46) = RCT(46)*V(9)\n  A(47) = RCT(47)*V(8)\n  A(48) = RCT(48)*V(10)\n  A(49) = RCT(49)*V(1)\n  A(50) = RCT(50)*V(15)\n  A(51) = RCT(51)*V(21)\n  A(52) = RCT(52)*V(20)\n  A(53) = RCT(53)*V(12)\n  A(54) = RCT(54)*V(11)\n  A(55) = RCT(55)*V(16)\n  A(56) = RCT(56)*V(23)\n  A(57) = RCT(57)*V(31)\n  A(58) = RCT(58)*V(14)\n  A(59) = RCT(59)*V(13)\n  A(60) = RCT(60)*V(18)\n  A(61) = RCT(61)*V(17)\n  A(62) = RCT(62)*V(25)\n  A(63) = RCT(63)*V(26)\n  A(64) = RCT(64)*V(9)\n  A(65) = RCT(65)*V(8)\n  A(66) = RCT(66)*V(10)\n  A(67) = RCT(67)*V(15)\n  A(68) = RCT(68)*V(21)\n  A(69) = RCT(69)*V(20)\n  A(70) = RCT(70)*V(12)\n  A(71) = RCT(71)*V(11)\n  A(75) = RCT(75)*V(32)\n  A(76) = RCT(76)*V(16)\n  A(77) = RCT(77)*V(23)\n  A(78) = RCT(78)*V(31)\n  A(79) = RCT(79)*V(18)\n  A(80) = RCT(80)*V(14)\n  A(81) = RCT(81)*V(13)\n  A(82) = RCT(82)*V(17)\n  A(83) = RCT(83)*V(25)\n  A(84) = RCT(84)*V(26)\n  A(85) = RCT(85)*V(10)\n  A(86) = RCT(86)*V(9)\n  A(87) = RCT(87)*V(8)\n  A(88) = RCT(88)*V(29)\n  A(89) = RCT(89)*V(15)\n  A(90) = RCT(90)*V(21)\n  A(91) = RCT(91)*V(20)\n  A(92) = RCT(92)*V(12)\n  A(93) = RCT(93)*V(11)\n  A(94) = RCT(94)*V(28)\n\n  !### Use Aout to return equation rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n! Aggregate function\n  Vdot(1) = -A(49)\n  Vdot(2) = A(55)+A(56)+A(57)+A(58)+A(59)+A(60)+A(61)+A(62)+A(63)+A(64)+A(65)+A(66)+A(67)+A(68)+A(69)+A(70)+A(71)\n  Vdot(3) = A(1)+A(14)+A(26)\n  Vdot(4) = A(2)+A(3)+A(4)+A(15)+A(16)+A(27)+A(75)+0.67*A(77)+0.49*A(78)+0.4*A(79)+A(80)+A(81)+0.67*A(83)+0.49*A(84)&\n              &+A(88)+0.67*A(90)+A(91)+A(94)\n  Vdot(5) = A(1)+A(32)\n  Vdot(6) = A(26)+0.35*A(78)+0.35*A(84)\n  Vdot(7) = A(14)\n  Vdot(8) = A(19)-A(47)-A(65)-A(87)\n  Vdot(9) = A(20)-A(46)-A(64)-A(86)\n  Vdot(10) = A(21)-A(48)-A(66)-A(85)\n  Vdot(11) = A(30)-A(54)-A(71)-A(93)\n  Vdot(12) = A(31)-A(53)-A(70)-A(92)\n  Vdot(13) = A(7)-A(41)-A(59)-A(81)\n  Vdot(14) = A(8)-A(40)-A(58)-A(80)\n  Vdot(15) = A(28)-A(50)-A(67)-A(89)\n  Vdot(16) = A(5)-A(37)-A(55)-A(76)\n  Vdot(17) = A(17)-A(43)-A(61)-A(82)\n  Vdot(18) = A(10)-A(42)-A(60)-A(79)\n  Vdot(19) = A(34)-A(35)-A(36)+0.9*A(89)+0.25*A(90)\n  Vdot(20) = A(33)+A(35)-A(52)-A(69)+0.01*A(90)-A(91)\n  Vdot(21) = A(29)-A(51)-A(68)-A(90)\n  Vdot(22) = -A(11)-A(12)+A(13)+0.9*A(76)+0.25*A(77)\n  Vdot(23) = A(6)-A(38)-A(56)-A(77)\n  Vdot(24) = A(23)-A(24)-A(25)+0.9*A(82)+0.25*A(83)\n  Vdot(25) = A(18)-A(44)-A(62)-A(83)\n  Vdot(26) = A(22)+A(24)-A(45)-A(63)+0.01*A(83)-0.99*A(84)\n  Vdot(27) = A(14)-A(15)-A(16)-A(17)-A(18)-A(19)-A(20)-A(21)-A(22)-A(23)+A(25)+0.1*A(82)+0.07*A(83)+0.15*A(84)+A(85)&\n               &+A(86)+A(87)\n  Vdot(28) = A(37)+A(38)+A(39)+A(40)+A(41)+A(42)+A(43)+A(44)+A(45)+A(46)+A(47)+A(48)+A(49)+A(50)+A(51)+A(52)+A(53)+A(54)&\n               &-A(94)\n  Vdot(29) = A(26)-A(27)-A(28)-A(29)-A(30)-A(31)-A(32)-A(33)-A(34)+A(36)+0.35*A(78)+0.35*A(84)-A(88)+0.1*A(89)+0.07&\n               &*A(90)+A(92)+A(93)\n  Vdot(30) = -A(1)+A(2)+A(3)+A(4)-A(14)+A(15)+A(16)-A(26)+A(27)+A(75)+0.67*A(77)+0.49*A(78)+0.4*A(79)+A(80)+A(81)+0.67&\n               &*A(83)+0.49*A(84)+A(88)+0.67*A(90)+A(91)+A(94)\n  Vdot(31) = A(9)+A(11)+A(32)-A(39)-A(57)+0.01*A(77)-0.99*A(78)\n  Vdot(32) = A(1)-A(2)-A(3)-A(4)-A(5)-A(6)-A(7)-A(8)-A(9)-A(10)+A(12)-A(13)-A(75)+0.1*A(76)+0.07*A(77)+0.15*A(78)+0.6&\n               &*A(79)\n      \nEND SUBROUTINE Fun\n\n! End of Fun function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Fun_SPLIT - time derivatives of variables - Split form\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      Vdot      - Time derivative of variable species concentrations\n!      P_VAR     - Production term\n!      D_VAR     - Destruction term\n!      Aout      - Optional argument to return equation rate constants\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! Vdot - Time derivative of variable species concentrations\n  REAL(kind=dp) :: Vdot(NVAR)\n! P_VAR - Production term\n  REAL(kind=dp) :: P_VAR(NVAR)\n! D_VAR - Destruction term\n  REAL(kind=dp) :: D_VAR(NVAR)\n! Aout - Optional argument to return equation rate constants\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(30)*F(1)\n  A(2) = RCT(2)*V(32)\n  A(3) = RCT(3)*V(32)*F(1)\n  A(4) = RCT(4)*V(32)*F(4)\n  A(5) = RCT(5)*V(32)*F(4)\n  A(6) = RCT(6)*V(32)*F(7)\n  A(7) = RCT(7)*V(32)*F(9)\n  A(8) = RCT(8)*V(32)*F(8)\n  A(9) = RCT(9)*V(32)*F(3)\n  A(10) = RCT(10)*V(32)*F(1)\n  A(11) = RCT(11)*V(22)*F(11)\n  A(12) = RCT(12)*V(22)*F(10)\n  A(13) = RCT(13)*V(32)*F(6)\n  A(14) = RCT(14)*V(30)*F(2)\n  A(15) = RCT(15)*V(27)*F(2)\n  A(16) = RCT(16)*V(27)*F(4)\n  A(17) = RCT(17)*V(27)*F(4)\n  A(18) = RCT(18)*V(27)*F(7)\n  A(19) = RCT(19)*V(27)*F(9)\n  A(20) = RCT(20)*V(27)*F(8)\n  A(21) = RCT(21)*V(27)*F(1)\n  A(22) = RCT(22)*V(27)*F(3)\n  A(23) = RCT(23)*V(27)*F(6)\n  A(24) = RCT(24)*V(24)*F(11)\n  A(25) = RCT(25)*V(24)*F(10)\n  A(26) = RCT(26)*V(30)*F(3)\n  A(27) = RCT(27)*V(29)\n  A(28) = RCT(28)*V(29)*F(4)\n  A(29) = RCT(29)*V(29)*F(7)\n  A(30) = RCT(30)*V(29)*F(9)\n  A(31) = RCT(31)*V(29)*F(8)\n  A(32) = RCT(32)*V(29)*F(1)\n  A(33) = RCT(33)*V(29)*F(3)\n  A(34) = RCT(34)*V(29)*F(6)\n  A(35) = RCT(35)*V(19)*F(11)\n  A(36) = RCT(36)*V(19)*F(10)\n  A(37) = RCT(37)*V(16)\n  A(38) = RCT(38)*V(23)\n  A(39) = RCT(39)*V(31)\n  A(40) = RCT(40)*V(14)\n  A(41) = RCT(41)*V(13)\n  A(42) = RCT(42)*V(18)\n  A(43) = RCT(43)*V(17)\n  A(44) = RCT(44)*V(25)\n  A(45) = RCT(45)*V(26)\n  A(46) = RCT(46)*V(9)\n  A(47) = RCT(47)*V(8)\n  A(48) = RCT(48)*V(10)\n  A(49) = RCT(49)*V(1)\n  A(50) = RCT(50)*V(15)\n  A(51) = RCT(51)*V(21)\n  A(52) = RCT(52)*V(20)\n  A(53) = RCT(53)*V(12)\n  A(54) = RCT(54)*V(11)\n  A(55) = RCT(55)*V(16)\n  A(56) = RCT(56)*V(23)\n  A(57) = RCT(57)*V(31)\n  A(58) = RCT(58)*V(14)\n  A(59) = RCT(59)*V(13)\n  A(60) = RCT(60)*V(18)\n  A(61) = RCT(61)*V(17)\n  A(62) = RCT(62)*V(25)\n  A(63) = RCT(63)*V(26)\n  A(64) = RCT(64)*V(9)\n  A(65) = RCT(65)*V(8)\n  A(66) = RCT(66)*V(10)\n  A(67) = RCT(67)*V(15)\n  A(68) = RCT(68)*V(21)\n  A(69) = RCT(69)*V(20)\n  A(70) = RCT(70)*V(12)\n  A(71) = RCT(71)*V(11)\n  A(75) = RCT(75)*V(32)\n  A(76) = RCT(76)*V(16)\n  A(77) = RCT(77)*V(23)\n  A(78) = RCT(78)*V(31)\n  A(79) = RCT(79)*V(18)\n  A(80) = RCT(80)*V(14)\n  A(81) = RCT(81)*V(13)\n  A(82) = RCT(82)*V(17)\n  A(83) = RCT(83)*V(25)\n  A(84) = RCT(84)*V(26)\n  A(85) = RCT(85)*V(10)\n  A(86) = RCT(86)*V(9)\n  A(87) = RCT(87)*V(8)\n  A(88) = RCT(88)*V(29)\n  A(89) = RCT(89)*V(15)\n  A(90) = RCT(90)*V(21)\n  A(91) = RCT(91)*V(20)\n  A(92) = RCT(92)*V(12)\n  A(93) = RCT(93)*V(11)\n  A(94) = RCT(94)*V(28)\n\n  !### Use Aout to return equation rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n! Production function\n  P_VAR(1) = 0\n  P_VAR(2) = A(55)+A(56)+A(57)+A(58)+A(59)+A(60)+A(61)+A(62)+A(63)+A(64)+A(65)+A(66)+A(67)+A(68)+A(69)+A(70)+A(71)\n  P_VAR(3) = A(1)+A(14)+A(26)\n  P_VAR(4) = A(2)+A(3)+A(4)+A(15)+A(16)+A(27)+A(75)+0.67*A(77)+0.49*A(78)+0.4*A(79)+A(80)+A(81)+0.67*A(83)+0.49*A(84)&\n               &+A(88)+0.67*A(90)+A(91)+A(94)\n  P_VAR(5) = A(1)+A(32)\n  P_VAR(6) = A(26)+0.35*A(78)+0.35*A(84)\n  P_VAR(7) = A(14)\n  P_VAR(8) = A(19)\n  P_VAR(9) = A(20)\n  P_VAR(10) = A(21)\n  P_VAR(11) = A(30)\n  P_VAR(12) = A(31)\n  P_VAR(13) = A(7)\n  P_VAR(14) = A(8)\n  P_VAR(15) = A(28)\n  P_VAR(16) = A(5)\n  P_VAR(17) = A(17)\n  P_VAR(18) = A(10)\n  P_VAR(19) = A(34)+0.9*A(89)+0.25*A(90)\n  P_VAR(20) = A(33)+A(35)+0.01*A(90)\n  P_VAR(21) = A(29)\n  P_VAR(22) = A(13)+0.9*A(76)+0.25*A(77)\n  P_VAR(23) = A(6)\n  P_VAR(24) = A(23)+0.9*A(82)+0.25*A(83)\n  P_VAR(25) = A(18)\n  P_VAR(26) = A(22)+A(24)+0.01*A(83)+0.01*A(84)\n  P_VAR(27) = A(14)+A(25)+0.1*A(82)+0.07*A(83)+0.15*A(84)+A(85)+A(86)+A(87)\n  P_VAR(28) = A(37)+A(38)+A(39)+A(40)+A(41)+A(42)+A(43)+A(44)+A(45)+A(46)+A(47)+A(48)+A(49)+A(50)+A(51)+A(52)+A(53)&\n                &+A(54)\n  P_VAR(29) = A(26)+A(36)+0.35*A(78)+0.35*A(84)+0.1*A(89)+0.07*A(90)+A(92)+A(93)\n  P_VAR(30) = A(2)+A(3)+A(4)+A(15)+A(16)+A(27)+A(75)+0.67*A(77)+0.49*A(78)+0.4*A(79)+A(80)+A(81)+0.67*A(83)+0.49*A(84)&\n                &+A(88)+0.67*A(90)+A(91)+A(94)\n  P_VAR(31) = A(9)+A(11)+A(32)+0.01*A(77)+0.01*A(78)\n  P_VAR(32) = A(1)+A(12)+0.1*A(76)+0.07*A(77)+0.15*A(78)+0.6*A(79)\n\n! Destruction function\n  D_VAR(1) = RCT(49)\n  D_VAR(2) = 0\n  D_VAR(3) = 0\n  D_VAR(4) = 0\n  D_VAR(5) = 0\n  D_VAR(6) = 0\n  D_VAR(7) = 0\n  D_VAR(8) = RCT(47)+RCT(65)+RCT(87)\n  D_VAR(9) = RCT(46)+RCT(64)+RCT(86)\n  D_VAR(10) = RCT(48)+RCT(66)+RCT(85)\n  D_VAR(11) = RCT(54)+RCT(71)+RCT(93)\n  D_VAR(12) = RCT(53)+RCT(70)+RCT(92)\n  D_VAR(13) = RCT(41)+RCT(59)+RCT(81)\n  D_VAR(14) = RCT(40)+RCT(58)+RCT(80)\n  D_VAR(15) = RCT(50)+RCT(67)+RCT(89)\n  D_VAR(16) = RCT(37)+RCT(55)+RCT(76)\n  D_VAR(17) = RCT(43)+RCT(61)+RCT(82)\n  D_VAR(18) = RCT(42)+RCT(60)+RCT(79)\n  D_VAR(19) = RCT(35)*F(11)+RCT(36)*F(10)\n  D_VAR(20) = RCT(52)+RCT(69)+RCT(91)\n  D_VAR(21) = RCT(51)+RCT(68)+RCT(90)\n  D_VAR(22) = RCT(11)*F(11)+RCT(12)*F(10)\n  D_VAR(23) = RCT(38)+RCT(56)+RCT(77)\n  D_VAR(24) = RCT(24)*F(11)+RCT(25)*F(10)\n  D_VAR(25) = RCT(44)+RCT(62)+RCT(83)\n  D_VAR(26) = RCT(45)+RCT(63)+RCT(84)\n  D_VAR(27) = RCT(15)*F(2)+RCT(16)*F(4)+RCT(17)*F(4)+RCT(18)*F(7)+RCT(19)*F(9)+RCT(20)*F(8)+RCT(21)*F(1)+RCT(22)*F(3)&\n                &+RCT(23)*F(6)\n  D_VAR(28) = RCT(94)\n  D_VAR(29) = RCT(27)+RCT(28)*F(4)+RCT(29)*F(7)+RCT(30)*F(9)+RCT(31)*F(8)+RCT(32)*F(1)+RCT(33)*F(3)+RCT(34)*F(6)+RCT(88)\n  D_VAR(30) = RCT(1)*F(1)+RCT(14)*F(2)+RCT(26)*F(3)\n  D_VAR(31) = RCT(39)+RCT(57)+RCT(78)\n  D_VAR(32) = RCT(2)+RCT(3)*F(1)+RCT(4)*F(4)+RCT(5)*F(4)+RCT(6)*F(7)+RCT(7)*F(9)+RCT(8)*F(8)+RCT(9)*F(3)+RCT(10)*F(1)&\n                &+RCT(13)*F(6)+RCT(75)\n\n  Vdot = P_VAR - D_VAR*V\n      \nEND SUBROUTINE Fun_SPLIT\n\n! End of Fun_SPLIT function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! CalcStoichNum - calculate stoichiometric numbers\n!   Arguments :\n!      StoichNum - Stoichiometric numbers\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE CalcStoichNum ( StoichNum )\n\n! StoichNum - Stoichiometric numbers\n  REAL(kind=dp) :: StoichNum(NVAR,NREACT)\n\n  StoichNum(:,:) = 0.\n  StoichNum(1,49) = -1\n  StoichNum(2,55) = 1\n  StoichNum(2,56) = 1\n  StoichNum(2,57) = 1\n  StoichNum(2,58) = 1\n  StoichNum(2,59) = 1\n  StoichNum(2,60) = 1\n  StoichNum(2,61) = 1\n  StoichNum(2,62) = 1\n  StoichNum(2,63) = 1\n  StoichNum(2,64) = 1\n  StoichNum(2,65) = 1\n  StoichNum(2,66) = 1\n  StoichNum(2,67) = 1\n  StoichNum(2,68) = 1\n  StoichNum(2,69) = 1\n  StoichNum(2,70) = 1\n  StoichNum(2,71) = 1\n  StoichNum(3,1) = 1\n  StoichNum(3,14) = 1\n  StoichNum(3,26) = 1\n  StoichNum(4,2) = 1\n  StoichNum(4,3) = 1\n  StoichNum(4,4) = 1\n  StoichNum(4,15) = 1\n  StoichNum(4,16) = 1\n  StoichNum(4,27) = 1\n  StoichNum(4,75) = 1\n  StoichNum(4,77) = 0.67\n  StoichNum(4,78) = 0.49\n  StoichNum(4,79) = 0.4\n  StoichNum(4,80) = 1\n  StoichNum(4,81) = 1\n  StoichNum(4,83) = 0.67\n  StoichNum(4,84) = 0.49\n  StoichNum(4,88) = 1\n  StoichNum(4,90) = 0.67\n  StoichNum(4,91) = 1\n  StoichNum(4,94) = 1\n  StoichNum(5,1) = 1\n  StoichNum(5,32) = 1\n  StoichNum(6,26) = 1\n  StoichNum(6,78) = 0.35\n  StoichNum(6,84) = 0.35\n  StoichNum(7,14) = 1\n  StoichNum(8,19) = 1\n  StoichNum(8,47) = -1\n  StoichNum(8,65) = -1\n  StoichNum(8,87) = -1\n  StoichNum(9,20) = 1\n  StoichNum(9,46) = -1\n  StoichNum(9,64) = -1\n  StoichNum(9,86) = -1\n  StoichNum(10,21) = 1\n  StoichNum(10,48) = -1\n  StoichNum(10,66) = -1\n  StoichNum(10,85) = -1\n  StoichNum(11,30) = 1\n  StoichNum(11,54) = -1\n  StoichNum(11,71) = -1\n  StoichNum(11,93) = -1\n  StoichNum(12,31) = 1\n  StoichNum(12,53) = -1\n  StoichNum(12,70) = -1\n  StoichNum(12,92) = -1\n  StoichNum(13,7) = 1\n  StoichNum(13,41) = -1\n  StoichNum(13,59) = -1\n  StoichNum(13,81) = -1\n  StoichNum(14,8) = 1\n  StoichNum(14,40) = -1\n  StoichNum(14,58) = -1\n  StoichNum(14,80) = -1\n  StoichNum(15,28) = 1\n  StoichNum(15,50) = -1\n  StoichNum(15,67) = -1\n  StoichNum(15,89) = -1\n  StoichNum(16,5) = 1\n  StoichNum(16,37) = -1\n  StoichNum(16,55) = -1\n  StoichNum(16,76) = -1\n  StoichNum(17,17) = 1\n  StoichNum(17,43) = -1\n  StoichNum(17,61) = -1\n  StoichNum(17,82) = -1\n  StoichNum(18,10) = 1\n  StoichNum(18,42) = -1\n  StoichNum(18,60) = -1\n  StoichNum(18,79) = -1\n  StoichNum(19,34) = 1\n  StoichNum(19,35) = -1\n  StoichNum(19,36) = -1\n  StoichNum(19,89) = 0.9\n  StoichNum(19,90) = 0.25\n  StoichNum(20,33) = 1\n  StoichNum(20,35) = 1\n  StoichNum(20,52) = -1\n  StoichNum(20,69) = -1\n  StoichNum(20,90) = 0.01\n  StoichNum(20,91) = -1\n  StoichNum(21,29) = 1\n  StoichNum(21,51) = -1\n  StoichNum(21,68) = -1\n  StoichNum(21,90) = -1\n  StoichNum(22,11) = -1\n  StoichNum(22,12) = -1\n  StoichNum(22,13) = 1\n  StoichNum(22,76) = 0.9\n  StoichNum(22,77) = 0.25\n  StoichNum(23,6) = 1\n  StoichNum(23,38) = -1\n  StoichNum(23,56) = -1\n  StoichNum(23,77) = -1\n  StoichNum(24,23) = 1\n  StoichNum(24,24) = -1\n  StoichNum(24,25) = -1\n  StoichNum(24,82) = 0.9\n  StoichNum(24,83) = 0.25\n  StoichNum(25,18) = 1\n  StoichNum(25,44) = -1\n  StoichNum(25,62) = -1\n  StoichNum(25,83) = -1\n  StoichNum(26,22) = 1\n  StoichNum(26,24) = 1\n  StoichNum(26,45) = -1\n  StoichNum(26,63) = -1\n  StoichNum(26,83) = 0.01\n  StoichNum(26,84) = -0.99\n  StoichNum(27,14) = 1\n  StoichNum(27,15) = -1\n  StoichNum(27,16) = -1\n  StoichNum(27,17) = -1\n  StoichNum(27,18) = -1\n  StoichNum(27,19) = -1\n  StoichNum(27,20) = -1\n  StoichNum(27,21) = -1\n  StoichNum(27,22) = -1\n  StoichNum(27,23) = -1\n  StoichNum(27,25) = 1\n  StoichNum(27,82) = 0.1\n  StoichNum(27,83) = 0.07\n  StoichNum(27,84) = 0.15\n  StoichNum(27,85) = 1\n  StoichNum(27,86) = 1\n  StoichNum(27,87) = 1\n  StoichNum(28,37) = 1\n  StoichNum(28,38) = 1\n  StoichNum(28,39) = 1\n  StoichNum(28,40) = 1\n  StoichNum(28,41) = 1\n  StoichNum(28,42) = 1\n  StoichNum(28,43) = 1\n  StoichNum(28,44) = 1\n  StoichNum(28,45) = 1\n  StoichNum(28,46) = 1\n  StoichNum(28,47) = 1\n  StoichNum(28,48) = 1\n  StoichNum(28,49) = 1\n  StoichNum(28,50) = 1\n  StoichNum(28,51) = 1\n  StoichNum(28,52) = 1\n  StoichNum(28,53) = 1\n  StoichNum(28,54) = 1\n  StoichNum(28,94) = -1\n  StoichNum(29,26) = 1\n  StoichNum(29,27) = -1\n  StoichNum(29,28) = -1\n  StoichNum(29,29) = -1\n  StoichNum(29,30) = -1\n  StoichNum(29,31) = -1\n  StoichNum(29,32) = -1\n  StoichNum(29,33) = -1\n  StoichNum(29,34) = -1\n  StoichNum(29,36) = 1\n  StoichNum(29,78) = 0.35\n  StoichNum(29,84) = 0.35\n  StoichNum(29,88) = -1\n  StoichNum(29,89) = 0.1\n  StoichNum(29,90) = 0.07\n  StoichNum(29,92) = 1\n  StoichNum(29,93) = 1\n  StoichNum(30,1) = -1\n  StoichNum(30,2) = 1\n  StoichNum(30,3) = 1\n  StoichNum(30,4) = 1\n  StoichNum(30,14) = -1\n  StoichNum(30,15) = 1\n  StoichNum(30,16) = 1\n  StoichNum(30,26) = -1\n  StoichNum(30,27) = 1\n  StoichNum(30,75) = 1\n  StoichNum(30,77) = 0.67\n  StoichNum(30,78) = 0.49\n  StoichNum(30,79) = 0.4\n  StoichNum(30,80) = 1\n  StoichNum(30,81) = 1\n  StoichNum(30,83) = 0.67\n  StoichNum(30,84) = 0.49\n  StoichNum(30,88) = 1\n  StoichNum(30,90) = 0.67\n  StoichNum(30,91) = 1\n  StoichNum(30,94) = 1\n  StoichNum(31,9) = 1\n  StoichNum(31,11) = 1\n  StoichNum(31,32) = 1\n  StoichNum(31,39) = -1\n  StoichNum(31,57) = -1\n  StoichNum(31,77) = 0.01\n  StoichNum(31,78) = -0.99\n  StoichNum(32,1) = 1\n  StoichNum(32,2) = -1\n  StoichNum(32,3) = -1\n  StoichNum(32,4) = -1\n  StoichNum(32,5) = -1\n  StoichNum(32,6) = -1\n  StoichNum(32,7) = -1\n  StoichNum(32,8) = -1\n  StoichNum(32,9) = -1\n  StoichNum(32,10) = -1\n  StoichNum(32,12) = 1\n  StoichNum(32,13) = -1\n  StoichNum(32,75) = -1\n  StoichNum(32,76) = 0.1\n  StoichNum(32,77) = 0.07\n  StoichNum(32,78) = 0.15\n  StoichNum(32,79) = 0.6\n      \nEND SUBROUTINE CalcStoichNum\n\n! End of CalcStoichNum function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Function\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Global.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Global Data Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Global.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Global\n\n  USE gckpp_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO\n  PUBLIC\n  SAVE\n\n\n! Declaration of global variables\n\n! ~~~ If you are using KPP within an OpenMP parallel environment,\n! ~~~ then these variables must be declared THREADPRIVATE.  This means\n! ~~~ that the compiler will make a private copy of these variables\n! ~~~ (in stack memory) for each execution thread.  At the end of\n! ~~~ the OpenMP parallel loop, these variables will be finalized,\n! ~~~ and their memory deallocated.\n! ~~~\n! ~~~ NOTE: Because the OpenMP commands all begin with a comment\n! ~~~ character, they will be ignored unless the code is compiled\n! ~~~ with OpenMP parallelization turned on.\n\n! C - Concentration of all species\n  REAL(kind=dp), TARGET :: C(NSPEC)\n  !$OMP THREADPRIVATE( C )\n! VAR - Concentrations of variable species (global)\n  REAL(kind=dp), POINTER :: VAR(:)\n  !$OMP THREADPRIVATE( VAR )\n! FIX - Concentrations of fixed species (global)\n  REAL(kind=dp), POINTER :: FIX(:)\n  !$OMP THREADPRIVATE( FIX )\n! RCONST - Rate constants (global)\n  REAL(kind=dp) :: RCONST(NREACT)\n  !$OMP THREADPRIVATE( RCONST )\n! TIME - Current integration time\n  REAL(kind=dp) :: TIME\n  !$OMP THREADPRIVATE( TIME )\n! SUN - Sunlight intensity between [0,1]\n  REAL(kind=dp) :: SUN\n  !$OMP THREADPRIVATE( SUN )\n! TEMP - Temperature\n  REAL(kind=dp) :: TEMP\n  !$OMP THREADPRIVATE( TEMP )\n\n! ~~~ If you are using KPP within an OpenMP parallel environment,\n! ~~~ these variables DO NOT need to be declared THREADPRIVATE.\n\n! TSTART - Integration start time\n  REAL(kind=dp) :: TSTART\n! TEND - Integration end time\n  REAL(kind=dp) :: TEND\n! DT - Integration step\n  REAL(kind=dp) :: DT\n! ATOL - Absolute tolerance\n  REAL(kind=dp) :: ATOL(NVAR)\n! RTOL - Relative tolerance\n  REAL(kind=dp) :: RTOL(NVAR)\n! STEPMIN - Lower bound for integration step\n  REAL(kind=dp) :: STEPMIN\n! STEPMAX - Upper bound for integration step\n  REAL(kind=dp) :: STEPMAX\n! CFACTOR - Conversion factor for concentration units\n  REAL(kind=dp) :: CFACTOR\n\n! Begin inlined code from F90_GLOBAL\n\n! Inline common variables into gckpp_Global.F90\n#include \"commonIncludeVars.H\"\n\n! End inlined code from F90_GLOBAL\n\n\nEND MODULE gckpp_Global\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Initialize.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Initialization File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Initialize.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Initialize\n\n  USE gckpp_Parameters, ONLY: dp, NVAR, NFIX\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Initialize - function to initialize concentrations\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Initialize ( )\n\n\n  USE gckpp_Global\n\n  USE gckpp_Parameters\n\n  INTEGER :: i\n  REAL(kind=dp) :: x\n\n! ~~~ Define scale factor for units\n  CFACTOR = 1.000000e+00_dp\n\n! ~~~ Zero C array\n  C = 0.0_dp\n\n! ~~~ Set initial species concentrations\n\n! Begin constant rate coefficients\n! End constant rate coefficients\n\n! Begin inlined code from F90_INIT\n\n! End inlined code from F90_INIT\n\n      \nEND SUBROUTINE Initialize\n\n! End of Initialize function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Initialize\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Integrator.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Numerical Integrator (Time-Stepping) File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Integrator.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! INTEGRATE - Integrator routine\n!   Arguments :\n!      TIN       - Start Time for Integration\n!      TOUT      - End Time for Integration\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!\n!  Rosenbrock - Implementation of several Rosenbrock methods:             !\n!               * Ros2                                                    !\n!               * Ros3                                                    !\n!               * Ros4                                                    !\n!               * Rodas3                                                  !\n!               * Rodas4                                                  !\n!  By default the code employs the KPP sparse linear algebra routines     !\n!  Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK)        !\n!                                                                         !\n!    (C)  Adrian Sandu, August 2004                                       !\n!    Virginia Polytechnic Institute and State University                  !\n!    Contact: sandu@cs.vt.edu                                             !\n!    Revised by Philipp Miehe and Adrian Sandu, May 2006                  !\n!                                                                         !\n!    This implementation is part of KPP - the Kinetic PreProcessor        !\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!\n\nMODULE gckpp_Integrator\n\n  USE gckpp_Parameters\n  USE gckpp_Global\n  IMPLICIT NONE\n  PUBLIC\n  SAVE\n\n!~~~> Flags to determine if we should call the UPDATE_* routines from within\n!~~~> the integrator.  If using KPP in an external model, you might want to\n!~~~> disable these calls (via ICNTRL(15)) to avoid excess computations.\n  LOGICAL, PRIVATE :: Do_Update_RCONST\n  LOGICAL, PRIVATE :: Do_Update_PHOTO\n  LOGICAL, PRIVATE :: Do_Update_SUN\n\n!~~~>  Statistics on the work performed by the Rosenbrock method\n  INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, &\n                        Nrej=5, Ndec=6, Nsol=7, Nsng=8, &\n                        Ntexit=1, Nhexit=2, Nhnew = 3\n\nCONTAINS\n\nSUBROUTINE INTEGRATE( TIN,       TOUT,      ICNTRL_U, RCNTRL_U,  &\n                      ISTATUS_U, RSTATUS_U, IERR_U              )\n\n   USE gckpp_Util, ONLY : Integrator_Update_Options\n\n   IMPLICIT NONE\n\n   REAL(kind=dp), INTENT(IN) :: TIN  ! Start Time\n   REAL(kind=dp), INTENT(IN) :: TOUT ! End Time\n   !~~~> Optional input parameters and statistics\n   INTEGER,  INTENT(IN),  OPTIONAL :: ICNTRL_U(20)\n   REAL(kind=dp), INTENT(IN),  OPTIONAL :: RCNTRL_U(20)\n   INTEGER,  INTENT(OUT), OPTIONAL :: ISTATUS_U(20)\n   REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20)\n   INTEGER,  INTENT(OUT), OPTIONAL :: IERR_U\n\n   REAL(kind=dp) :: RCNTRL(20), RSTATUS(20)\n   INTEGER       :: ICNTRL(20), ISTATUS(20), IERR\n\n   INTEGER, SAVE :: Ntotal = 0\n\n   !~~~> Zero input and output arrays for safety's sake\n   ICNTRL     = 0\n   RCNTRL     = 0.0_dp\n   ISTATUS    = 0\n   RSTATUS    = 0.0_dp\n\n   !~~~> fine-tune the integrator:\n   ICNTRL(15) = 5       ! Call Update_SUN and Update_RCONST from w/in the int.\n\n   !~~~> if optional parameters are given, and if they are /= 0,\n   !     then use them to overwrite default settings\n   IF ( PRESENT( ICNTRL_U ) ) THEN\n      WHERE( ICNTRL_U /= 0 ) ICNTRL = ICNTRL_U\n   ENDIF\n   IF ( PRESENT( RCNTRL_U ) ) THEN\n      WHERE( RCNTRL_U > 0 ) RCNTRL = RCNTRL_U\n   ENDIF\n\n   !~~~> Determine the settings of the Do_Update_* flags, which determine\n   !~~~> whether or not we need to call Update_* routines in the integrator\n   !~~~> (or not, if we are calling them from a higher-level)\n   ! ICNTRL(15) = -1 ! Do not call Update_* functions within the integrator\n   !            =  0 ! Status quo\n   !            =  1 ! Call Update_RCONST from within the integrator\n   !            =  2 ! Call Update_PHOTO from within the integrator\n   !            =  3 ! Call Update_RCONST and Update_PHOTO from w/in the int.\n   !            =  4 ! Call Update_SUN from within the integrator\n   !            =  5 ! Call Update_SUN and Update_RCONST from within the int.\n   !            =  6 ! Call Update_SUN and Update_PHOTO from within the int.\n   !            =  7 ! Call Update_SUN, Update_PHOTO, Update_RCONST w/in int.\n   CALL Integrator_Update_Options( ICNTRL(15),          &\n                                   Do_Update_RCONST,    &\n                                   Do_Update_PHOTO,     &\n                                   Do_Update_Sun       )\n\n   !~~~> In order to remove the prior EQUIVALENCE statements (which\n   !~~~> are not thread-safe), we now have declared VAR and FIX as\n   !~~~> threadprivate pointer variables that can point to C.\n   VAR => C(1:NVAR )\n   FIX => C(NVAR+1:NSPEC)\n\n   !~~~> Call the integrator\n   CALL Rosenbrock( NVAR,   VAR,    TIN,     TOUT,    ATOL, RTOL,  &\n                    RCNTRL, ICNTRL, RSTATUS, ISTATUS, IERR        )\n\n   !~~~> Free pointers\n   VAR => NULL()\n   FIX => NULL()\n\n   !~~~> Debug option: show number of steps\n   !Ntotal = Ntotal + ISTATUS(Nstp)\n   !PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')','  O3=', VAR(ind_O3)\n\n   STEPMIN = RSTATUS(Nhexit)\n\n   !~~~> if optional parameters are given for output\n   !~~~> use them to store information in them\n   IF ( PRESENT( ISTATUS_U ) ) ISTATUS_U = ISTATUS\n   IF ( PRESENT( RSTATUS_U ) ) RSTATUS_U = RSTATUS\n   IF ( PRESENT( IERR_U    ) ) IERR_U    = IERR\n\nEND SUBROUTINE INTEGRATE\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE Rosenbrock(N,Y,Tstart,Tend, &\n           AbsTol,RelTol,              &\n           RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!    Solves the system y'=F(t,y) using a Rosenbrock method defined by:\n!\n!     G = 1/(H*gamma(1)) - Jac(t0,Y0)\n!     T_i = t0 + Alpha(i)*H\n!     Y_i = Y0 + \\sum_{j=1}^{i-1} A(i,j)*K_j\n!     G * K_i = Fun( T_i, Y_i ) + \\sum_{j=1}^S C(i,j)/H * K_j +\n!         gamma(i)*dF/dT(t0, Y0)\n!     Y1 = Y0 + \\sum_{j=1}^S M(j)*K_j\n!\n!    For details on Rosenbrock methods and their implementation consult:\n!      E. Hairer and G. Wanner\n!      \"Solving ODEs II. Stiff and differential-algebraic problems\".\n!      Springer series in computational mathematics, Springer-Verlag, 1996.\n!    The codes contained in the book inspired this implementation.\n!\n!    (C)  Adrian Sandu, August 2004\n!    Virginia Polytechnic Institute and State University\n!    Contact: sandu@cs.vt.edu\n!    Revised by Philipp Miehe and Adrian Sandu, May 2006\n!    This implementation is part of KPP - the Kinetic PreProcessor\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!~~~>   INPUT ARGUMENTS:\n!\n!-     Y(N)    = vector of initial conditions (at T=Tstart)\n!-    [Tstart,Tend]  = time range of integration\n!     (if Tstart>Tend the integration is performed backwards in time)\n!-    RelTol, AbsTol = user precribed accuracy\n!- SUBROUTINE  Fun( T, Y, Ydot ) = ODE function,\n!                       returns Ydot = Y' = F(T,Y)\n!- SUBROUTINE  Jac( T, Y, Jcb ) = Jacobian of the ODE function,\n!                       returns Jcb = dFun/dY\n!-    ICNTRL(1:20)    = integer inputs parameters\n!-    RCNTRL(1:20)    = real inputs parameters\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!~~~>     OUTPUT ARGUMENTS:\n!\n!-    Y(N)    -> vector of final states (at T->Tend)\n!-    ISTATUS(1:20)   -> integer output parameters\n!-    RSTATUS(1:20)   -> real output parameters\n!-    IERR            -> job status upon return\n!                        success (positive value) or\n!                        failure (negative value)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!~~~>     INPUT PARAMETERS:\n!\n!    Note: For input parameters equal to zero the default values of the\n!       corresponding variables are used.\n!\n!    ICNTRL(1) = 1: F = F(y)   Independent of T (AUTONOMOUS)\n!              = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS)\n!\n!    ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors\n!              = 1: AbsTol, RelTol are scalars\n!\n!    ICNTRL(3)  -> selection of a particular Rosenbrock method\n!        = 0 :    Rodas3 (default)\n!        = 1 :    Ros2\n!        = 2 :    Ros3\n!        = 3 :    Ros4\n!        = 4 :    Rodas3\n!        = 5 :    Rodas4\n!\n!    ICNTRL(4)  -> maximum number of integration steps\n!        For ICNTRL(4)=0) the default value of 200000 is used\n!\n!    ICNTRL(15) -> Toggles calling of Update_* functions w/in the integrator\n!        = -1 :  Do not call Update_* functions within the integrator\n!        =  0 :  Status quo\n!        =  1 :  Call Update_RCONST from within the integrator\n!        =  2 :  Call Update_PHOTO from within the integrator\n!        =  3 :  Call Update_RCONST and Update_PHOTO from w/in the int.\n!        =  4 :  Call Update_SUN from within the integrator\n!        =  5 :  Call Update_SUN and Update_RCONST from within the int.\n!        =  6 :  Call Update_SUN and Update_PHOTO from within the int.\n!        =  7 :  Call Update_SUN, Update_PHOTO, Update_RCONST w/in the int.\n!\n!    ICNTRL(16) -> \n!        = 0 : allow negative concentrations (default)\n!        = 1 : set negative concentrations to zero\n!\n!    RCNTRL(1)  -> Hmin, lower bound for the integration step size\n!          It is strongly recommended to keep Hmin = ZERO\n!    RCNTRL(2)  -> Hmax, upper bound for the integration step size\n!    RCNTRL(3)  -> Hstart, starting value for the integration step size\n!\n!    RCNTRL(4)  -> FacMin, lower bound on step decrease factor (default=0.2)\n!    RCNTRL(5)  -> FacMax, upper bound on step increase factor (default=6)\n!    RCNTRL(6)  -> FacRej, step decrease factor after multiple rejections\n!                          (default=0.1)\n!    RCNTRL(7)  -> FacSafe, by which the new step is slightly smaller\n!         than the predicted value  (default=0.9)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!\n!    OUTPUT ARGUMENTS:\n!    -----------------\n!\n!    T           -> T value for which the solution has been computed\n!                     (after successful return T=Tend).\n!\n!    Y(N)        -> Numerical solution at T\n!\n!    IDID        -> Reports on successfulness upon return:\n!                    = 1 for success\n!                    < 0 for error (value equals error code)\n!\n!    ISTATUS(1)  -> No. of function calls\n!    ISTATUS(2)  -> No. of jacobian calls\n!    ISTATUS(3)  -> No. of steps\n!    ISTATUS(4)  -> No. of accepted steps\n!    ISTATUS(5)  -> No. of rejected steps (except at very beginning)\n!    ISTATUS(6)  -> No. of LU decompositions\n!    ISTATUS(7)  -> No. of forward/backward substitutions\n!    ISTATUS(8)  -> No. of singular matrix decompositions\n!\n!    RSTATUS(1)  -> Texit, the time corresponding to the\n!                     computed Y upon return\n!    RSTATUS(2)  -> Hexit, last accepted step before exit\n!    RSTATUS(3)  -> Hnew, last predicted step (not yet taken)\n!                   For multiple restarts, use Hnew as Hstart\n!                     in the subsequent run\n!\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_LinearAlgebra\n  IMPLICIT NONE\n\n!~~~>  Arguments\n   INTEGER,       INTENT(IN)    :: N\n   REAL(kind=dp), INTENT(INOUT) :: Y(N)\n   REAL(kind=dp), INTENT(IN)    :: Tstart,Tend\n   REAL(kind=dp), INTENT(IN)    :: AbsTol(N),RelTol(N)\n   INTEGER,       INTENT(IN)    :: ICNTRL(20)\n   REAL(kind=dp), INTENT(IN)    :: RCNTRL(20)\n   INTEGER,       INTENT(INOUT) :: ISTATUS(20)\n   REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20)\n   INTEGER, INTENT(OUT)   :: IERR\n!~~~>  Parameters of the Rosenbrock method, up to 6 stages\n   INTEGER ::  ros_S, rosMethod\n   INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6\n   REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), &\n                    ros_Alpha(6), ros_Gamma(6), ros_ELO\n   LOGICAL :: ros_NewF(6)\n   CHARACTER(LEN=12) :: ros_Name\n!~~~>  Local variables\n   REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe\n   REAL(kind=dp) :: Hmin, Hmax, Hstart\n   REAL(kind=dp) :: Texit\n   INTEGER       :: i, UplimTol, Max_no_steps\n   LOGICAL       :: Autonomous, VectorTol\n!~~~>   Parameters\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp\n   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp\n\n!~~~>  Initialize statistics\n   ISTATUS(1:8) = 0\n   RSTATUS(1:3) = ZERO\n\n!~~~>  Autonomous or time dependent ODE. Default is time dependent.\n   Autonomous = .NOT.(ICNTRL(1) == 0)\n\n!~~~>  For Scalar tolerances (ICNTRL(2).NE.0)  the code uses AbsTol(1) and RelTol(1)\n!   For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N)\n   IF (ICNTRL(2) == 0) THEN\n      VectorTol = .TRUE.\n      UplimTol  = N\n   ELSE\n      VectorTol = .FALSE.\n      UplimTol  = 1\n   END IF\n\n!~~~>   Initialize the particular Rosenbrock method selected\n   SELECT CASE (ICNTRL(3))\n     CASE (1)\n       CALL Ros2\n     CASE (2)\n       CALL Ros3\n     CASE (3)\n       CALL Ros4\n     CASE (0,4)\n       CALL Rodas3\n     CASE (5)\n       CALL Rodas4\n     CASE (6)\n       CALL Rang3\n     CASE DEFAULT\n       PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3)\n       CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR)\n       RETURN\n   END SELECT\n\n!~~~>   The maximum number of steps admitted\n   IF (ICNTRL(4) == 0) THEN\n      Max_no_steps = 200000\n   ELSEIF (ICNTRL(4) > 0) THEN\n      Max_no_steps=ICNTRL(4)\n   ELSE\n      PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4)\n      CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n\n!~~~>  Unit roundoff (1+Roundoff>1)\n   Roundoff = WLAMCH('E')\n\n!~~~>  Lower bound on the step size: (positive value)\n   IF (RCNTRL(1) == ZERO) THEN\n      Hmin = ZERO\n   ELSEIF (RCNTRL(1) > ZERO) THEN\n      Hmin = RCNTRL(1)\n   ELSE\n      PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1)\n      CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Upper bound on the step size: (positive value)\n   IF (RCNTRL(2) == ZERO) THEN\n      Hmax = ABS(Tend-Tstart)\n   ELSEIF (RCNTRL(2) > ZERO) THEN\n      Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart))\n   ELSE\n      PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2)\n      CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Starting step size: (positive value)\n   IF (RCNTRL(3) == ZERO) THEN\n      Hstart = MAX(Hmin,DeltaMin)\n   ELSEIF (RCNTRL(3) > ZERO) THEN\n      Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart))\n   ELSE\n      PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3)\n      CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Step size can be changed s.t.  FacMin < Hnew/Hold < FacMax\n   IF (RCNTRL(4) == ZERO) THEN\n      FacMin = 0.2_dp\n   ELSEIF (RCNTRL(4) > ZERO) THEN\n      FacMin = RCNTRL(4)\n   ELSE\n      PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n   IF (RCNTRL(5) == ZERO) THEN\n      FacMax = 6.0_dp\n   ELSEIF (RCNTRL(5) > ZERO) THEN\n      FacMax = RCNTRL(5)\n   ELSE\n      PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>   FacRej: Factor to decrease step after 2 succesive rejections\n   IF (RCNTRL(6) == ZERO) THEN\n      FacRej = 0.1_dp\n   ELSEIF (RCNTRL(6) > ZERO) THEN\n      FacRej = RCNTRL(6)\n   ELSE\n      PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>   FacSafe: Safety Factor in the computation of new step size\n   IF (RCNTRL(7) == ZERO) THEN\n      FacSafe = 0.9_dp\n   ELSEIF (RCNTRL(7) > ZERO) THEN\n      FacSafe = RCNTRL(7)\n   ELSE\n      PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Check if tolerances are reasonable\n    DO i=1,UplimTol\n      IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) &\n         .OR. (RelTol(i) >= 1.0_dp) ) THEN\n        PRINT * , ' AbsTol(',i,') = ',AbsTol(i)\n        PRINT * , ' RelTol(',i,') = ',RelTol(i)\n        CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR)\n        RETURN\n      END IF\n    END DO\n\n\n!~~~>  CALL Rosenbrock method\n   CALL ros_Integrator(Y, Tstart, Tend, Texit,   &\n        AbsTol, RelTol,                          &\n!  Integration parameters\n        Autonomous, VectorTol, Max_no_steps,     &\n        Roundoff, Hmin, Hmax, Hstart,            &\n        FacMin, FacMax, FacRej, FacSafe,         &\n!  Error indicator\n        IERR)\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nCONTAINS !  SUBROUTINES internal to Rosenbrock\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n SUBROUTINE ros_ErrorMsg(Code,T,H,IERR)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!    Handles all error messages\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   REAL(kind=dp), INTENT(IN) :: T, H\n   INTEGER, INTENT(IN)  :: Code\n   INTEGER, INTENT(OUT) :: IERR\n\n   IERR = Code\n   PRINT * , &\n     'Forced exit from Rosenbrock due to the following error:'\n\n   SELECT CASE (Code)\n    CASE (-1)\n      PRINT * , '--> Improper value for maximal no of steps'\n    CASE (-2)\n      PRINT * , '--> Selected Rosenbrock method not implemented'\n    CASE (-3)\n      PRINT * , '--> Hmin/Hmax/Hstart must be positive'\n    CASE (-4)\n      PRINT * , '--> FacMin/FacMax/FacRej must be positive'\n    CASE (-5)\n      PRINT * , '--> Improper tolerance values'\n    CASE (-6)\n      PRINT * , '--> No of steps exceeds maximum bound'\n    CASE (-7)\n      PRINT * , '--> Step size too small: T + 0.1*H = T', &\n            ' or H < Roundoff'\n    CASE (-8)\n      PRINT * , '--> Matrix is repeatedly singular'\n    CASE DEFAULT\n      PRINT *, 'Unknown Error code: ', Code\n   END SELECT\n\n   PRINT *, \"T=\", T, \"and H=\", H\n\n END SUBROUTINE ros_ErrorMsg\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n SUBROUTINE ros_Integrator (Y, Tstart, Tend, T,  &\n        AbsTol, RelTol,                          &\n!~~~> Integration parameters\n        Autonomous, VectorTol, Max_no_steps,     &\n        Roundoff, Hmin, Hmax, Hstart,            &\n        FacMin, FacMax, FacRej, FacSafe,         &\n!~~~> Error indicator\n        IERR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Template for the implementation of a generic Rosenbrock method\n!      defined by ros_S (no of stages)\n!      and its coefficients ros_{A,C,M,E,Alpha,Gamma}\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  IMPLICIT NONE\n\n!~~~> Input: the initial condition at Tstart; Output: the solution at T\n   REAL(kind=dp), INTENT(INOUT) :: Y(N)\n!~~~> Input: integration interval\n   REAL(kind=dp), INTENT(IN) :: Tstart,Tend\n!~~~> Output: time at which the solution is returned (T=Tend if success)\n   REAL(kind=dp), INTENT(OUT) ::  T\n!~~~> Input: tolerances\n   REAL(kind=dp), INTENT(IN) ::  AbsTol(N), RelTol(N)\n!~~~> Input: integration parameters\n   LOGICAL, INTENT(IN) :: Autonomous, VectorTol\n   REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax\n   INTEGER, INTENT(IN) :: Max_no_steps\n   REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe\n!~~~> Output: Error indicator\n   INTEGER, INTENT(OUT) :: IERR\n! ~~~~ Local variables\n   REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N)\n   REAL(kind=dp) :: K(N*ros_S), dFdT(N)\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N)\n#else\n   REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO)\n#endif\n   REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau\n   REAL(kind=dp) :: Err, Yerr(N)\n   INTEGER :: Pivot(N), Direction, ioffset, j, istage\n   LOGICAL :: RejectLastH, RejectMoreH, Singular\n!~~~>  Local parameters\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp\n   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp\n!~~~>  Locally called functions\n!    REAL(kind=dp) WLAMCH\n!    EXTERNAL WLAMCH\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n!~~~>  Initial preparations\n   T = Tstart\n   RSTATUS(Nhexit) = ZERO\n   H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) )\n   IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin\n\n   IF (Tend  >=  Tstart) THEN\n     Direction = +1\n   ELSE\n     Direction = -1\n   END IF\n   H = Direction*H\n\n   RejectLastH=.FALSE.\n   RejectMoreH=.FALSE.\n\n!~~~> Time loop begins below\n\nTimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) &\n       .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) )\n\n   IF ( ISTATUS(Nstp) > Max_no_steps ) THEN  ! Too many steps\n      CALL ros_ErrorMsg(-6,T,H,IERR)\n      RETURN\n   END IF\n   IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN  ! Step size too small\n      CALL ros_ErrorMsg(-7,T,H,IERR)\n      RETURN\n   END IF\n\n!~~~>  Limit H if necessary to avoid going beyond Tend\n   H = MIN(H,ABS(Tend-T))\n\n!~~~>   Compute the function at current time\n   CALL FunTemplate( T, Y, Fcn0 )\n   ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n\n!~~~>  Compute the function derivative with respect to T\n   IF (.NOT.Autonomous) THEN\n      CALL ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT )\n   END IF\n\n!~~~>   Compute the Jacobian at current time\n   CALL JacTemplate( T, Y, Jac0 )\n   ISTATUS(Njac) = ISTATUS(Njac) + 1\n\n!~~~>  Repeat step calculation until current step accepted\nUntilAccepted: DO\n\n   CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), &\n          Jac0,Ghimj,Pivot,Singular)\n   IF (Singular) THEN ! More than 5 consecutive failed decompositions\n       CALL ros_ErrorMsg(-8,T,H,IERR)\n       RETURN\n   END IF\n\n!~~~>   Compute the stages\nStage: DO istage = 1, ros_S\n\n      ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N)\n       ioffset = N*(istage-1)\n\n      ! For the 1st istage the function has been computed previously\n       IF ( istage == 1 ) THEN\n         !slim: CALL WCOPY(N,Fcn0,1,Fcn,1)\n         Fcn(1:N) = Fcn0(1:N)\n      ! istage>1 and a new function evaluation is needed at the current istage\n       ELSEIF ( ros_NewF(istage) ) THEN\n         !slim: CALL WCOPY(N,Y,1,Ynew,1)\n         Ynew(1:N) = Y(1:N)\n         DO j = 1, istage-1\n           CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), &\n            K(N*(j-1)+1),1,Ynew,1)\n         END DO\n         Tau = T + ros_Alpha(istage)*Direction*H\n         CALL FunTemplate( Tau, Ynew, Fcn )\n         ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n       END IF ! if istage == 1 elseif ros_NewF(istage)\n       !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1)\n       K(ioffset+1:ioffset+N) = Fcn(1:N)\n       DO j = 1, istage-1\n         HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H)\n         CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1)\n       END DO\n       IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN\n         HG = Direction*H*ros_Gamma(istage)\n         CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1)\n       END IF\n       CALL ros_Solve(Ghimj, Pivot, K(ioffset+1))\n\n   END DO Stage\n\n\n!~~~>  Compute the new solution\n   !slim: CALL WCOPY(N,Y,1,Ynew,1)\n   Ynew(1:N) = Y(1:N)\n   DO j=1,ros_S\n         CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1)\n   END DO\n\n!~~~>  Compute the error estimation\n   !slim: CALL WSCAL(N,ZERO,Yerr,1)\n   Yerr(1:N) = ZERO\n   DO j=1,ros_S\n        CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1)\n   END DO\n   Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol )\n\n!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax\n   Fac  = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO)))\n   Hnew = H*Fac\n\n!~~~>  Check the error magnitude and adjust step size\n   ISTATUS(Nstp) = ISTATUS(Nstp) + 1\n   IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN  !~~~> Accept step\n      ISTATUS(Nacc) = ISTATUS(Nacc) + 1\n      IF (ICNTRL(16) == 1) THEN\n        ! new value is non-negative:\n        Y = MAX(Ynew,ZERO)\n      ELSE\n        !slim: CALL WCOPY(N,Ynew,1,Y,1)\n        Y(1:N) = Ynew(1:N)\n      ENDIF      \n      T = T + Direction*H\n      Hnew = MAX(Hmin,MIN(Hnew,Hmax))\n      IF (RejectLastH) THEN  ! No step size increase after a rejected step\n         Hnew = MIN(Hnew,H)\n      END IF\n      RSTATUS(Nhexit) = H\n      RSTATUS(Nhnew)  = Hnew\n      RSTATUS(Ntexit) = T\n      RejectLastH = .FALSE.\n      RejectMoreH = .FALSE.\n      H = Hnew\n      EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED\n   ELSE           !~~~> Reject step\n      IF (RejectMoreH) THEN\n         Hnew = H*FacRej\n      END IF\n      RejectMoreH = RejectLastH\n      RejectLastH = .TRUE.\n      H = Hnew\n      IF (ISTATUS(Nacc) >= 1)  ISTATUS(Nrej) = ISTATUS(Nrej) + 1\n   END IF ! Err <= 1\n\n   END DO UntilAccepted\n\n   END DO TimeLoop\n\n!~~~> Succesful exit\n   IERR = 1  !~~~> The integration was successful\n\n  END SUBROUTINE ros_Integrator\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, &\n                               AbsTol, RelTol, VectorTol )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!~~~> Computes the \"scaled norm\" of the error vector Yerr\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n\n! Input arguments\n   REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), &\n          Yerr(N), AbsTol(N), RelTol(N)\n   LOGICAL, INTENT(IN) ::  VectorTol\n! Local variables\n   REAL(kind=dp) :: Err, Scale, Ymax\n   INTEGER  :: i\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp\n\n   Err = ZERO\n   DO i=1,N\n     Ymax = MAX(ABS(Y(i)),ABS(Ynew(i)))\n     IF (VectorTol) THEN\n       Scale = AbsTol(i)+RelTol(i)*Ymax\n     ELSE\n       Scale = AbsTol(1)+RelTol(1)*Ymax\n     END IF\n     Err = Err+(Yerr(i)/Scale)**2\n   END DO\n   Err  = SQRT(Err/N)\n\n   ros_ErrorNorm = MAX(Err,1.0d-10)\n\n  END FUNCTION ros_ErrorNorm\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!~~~> The time partial derivative of the function by finite differences\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n\n!~~~> Input arguments\n   REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N)\n!~~~> Output arguments\n   REAL(kind=dp), INTENT(OUT) :: dFdT(N)\n!~~~> Local variables\n   REAL(kind=dp) :: Delta\n   REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp\n\n   Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T))\n   CALL FunTemplate( T+Delta, Y, dFdT )\n   ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n   CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1)\n   CALL WSCAL(N,(ONE/Delta),dFdT,1)\n\n  END SUBROUTINE ros_FunTimeDerivative\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, &\n             Jac0, Ghimj, Pivot, Singular )\n! --- --- --- --- --- --- --- --- --- --- --- --- ---\n!  Prepares the LHS matrix for stage calculations\n!  1.  Construct Ghimj = 1/(H*ham) - Jac0\n!      \"(Gamma H) Inverse Minus Jacobian\"\n!  2.  Repeat LU decomposition of Ghimj until successful.\n!       -half the step size if LU decomposition fails and retry\n!       -exit after 5 consecutive fails\n! --- --- --- --- --- --- --- --- --- --- --- --- ---\n   IMPLICIT NONE\n\n!~~~> Input arguments\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(IN) ::  Jac0(N,N)\n#else\n   REAL(kind=dp), INTENT(IN) ::  Jac0(LU_NONZERO)\n#endif\n   REAL(kind=dp), INTENT(IN) ::  gam\n   INTEGER, INTENT(IN) ::  Direction\n!~~~> Output arguments\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N)\n#else\n   REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO)\n#endif\n   LOGICAL, INTENT(OUT) ::  Singular\n   INTEGER, INTENT(OUT) ::  Pivot(N)\n!~~~> Inout arguments\n   REAL(kind=dp), INTENT(INOUT) :: H   ! step size is decreased when LU fails\n!~~~> Local variables\n   INTEGER  :: i, ising, Nconsecutive\n   REAL(kind=dp) :: ghinv\n   REAL(kind=dp), PARAMETER :: ONE  = 1.0_dp, HALF = 0.5_dp\n\n   Nconsecutive = 0\n   Singular = .TRUE.\n\n   DO WHILE (Singular)\n\n!~~~>    Construct Ghimj = 1/(H*gam) - Jac0\n#ifdef FULL_ALGEBRA\n     !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1)\n     !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1)\n     Ghimj = -Jac0\n     ghinv = ONE/(Direction*H*gam)\n     DO i=1,N\n       Ghimj(i,i) = Ghimj(i,i)+ghinv\n     END DO\n#else\n     !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1)\n     !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1)\n     Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO)\n     ghinv = ONE/(Direction*H*gam)\n     DO i=1,N\n       Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv\n     END DO\n#endif\n!~~~>    Compute LU decomposition\n     CALL ros_Decomp( Ghimj, Pivot, ising )\n     IF (ising == 0) THEN\n!~~~>    If successful done\n        Singular = .FALSE.\n     ELSE ! ising .ne. 0\n!~~~>    If unsuccessful half the step size; if 5 consecutive fails then return\n        ISTATUS(Nsng) = ISTATUS(Nsng) + 1\n        Nconsecutive = Nconsecutive+1\n        Singular = .TRUE.\n        PRINT*,'Warning: LU Decomposition returned ising = ',ising\n        IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions\n           H = H*HALF\n        ELSE  ! More than 5 consecutive failed decompositions\n           RETURN\n        END IF  ! Nconsecutive\n      END IF    ! ising\n\n   END DO ! WHILE Singular\n\n  END SUBROUTINE ros_PrepareMatrix\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_Decomp( A, Pivot, ising )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the LU decomposition\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n!~~~> Inout variables\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(INOUT) :: A(N,N)\n#else\n   REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO)\n#endif\n!~~~> Output variables\n   INTEGER, INTENT(OUT) :: Pivot(N), ising\n\n#ifdef FULL_ALGEBRA\n   CALL  DGETRF( N, N, A, N, Pivot, ising )\n#else\n   CALL KppDecomp ( A, ising )\n   Pivot(1) = 1\n#endif\n   ISTATUS(Ndec) = ISTATUS(Ndec) + 1\n\n  END SUBROUTINE ros_Decomp\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_Solve( A, Pivot, b )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the forward/backward substitution\n!  (using pre-computed LU decomposition)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n!~~~> Input variables\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(IN) :: A(N,N)\n   INTEGER :: ising\n#else\n   REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO)\n#endif\n   INTEGER, INTENT(IN) :: Pivot(N)\n!~~~> InOut variables\n   REAL(kind=dp), INTENT(INOUT) :: b(N)\n\n#ifdef FULL_ALGEBRA\n   CALL  DGETRS( 'N', N , 1, A, N, Pivot, b, N, ising )\n   IF ( Info < 0 ) THEN\n      PRINT*,\"Error in DGETRS. ising=\",ising\n   END IF\n#else\n   CALL KppSolve( A, b )\n#endif\n\n   ISTATUS(Nsol) = ISTATUS(Nsol) + 1\n\n  END SUBROUTINE ros_Solve\n\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Ros2\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! --- AN L-STABLE METHOD, 2 stages, order 2\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n   DOUBLE PRECISION g\n\n    g = 1.0_dp + 1.0_dp/SQRT(2.0_dp)\n    rosMethod = RS2\n!~~~> Name of the method\n    ros_Name = 'ROS-2'\n!~~~> Number of stages\n    ros_S = 2\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n    ros_A(1) = (1.0_dp)/g\n    ros_C(1) = (-2.0_dp)/g\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n    ros_NewF(1) = .TRUE.\n    ros_NewF(2) = .TRUE.\n!~~~> M_i = Coefficients for new step solution\n    ros_M(1)= (3.0_dp)/(2.0_dp*g)\n    ros_M(2)= (1.0_dp)/(2.0_dp*g)\n! E_i = Coefficients for error estimator\n    ros_E(1) = 1.0_dp/(2.0_dp*g)\n    ros_E(2) = 1.0_dp/(2.0_dp*g)\n!~~~> ros_ELO = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus one\n    ros_ELO = 2.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n    ros_Alpha(1) = 0.0_dp\n    ros_Alpha(2) = 1.0_dp\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n    ros_Gamma(1) = g\n    ros_Gamma(2) =-g\n\n END SUBROUTINE Ros2\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Ros3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n   rosMethod = RS3\n!~~~> Name of the method\n   ros_Name = 'ROS-3'\n!~~~> Number of stages\n   ros_S = 3\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n   ros_A(1)= 1.0_dp\n   ros_A(2)= 1.0_dp\n   ros_A(3)= 0.0_dp\n\n   ros_C(1) = -0.10156171083877702091975600115545E+01_dp\n   ros_C(2) =  0.40759956452537699824805835358067E+01_dp\n   ros_C(3) =  0.92076794298330791242156818474003E+01_dp\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n   ros_NewF(1) = .TRUE.\n   ros_NewF(2) = .TRUE.\n   ros_NewF(3) = .FALSE.\n!~~~> M_i = Coefficients for new step solution\n   ros_M(1) =  0.1E+01_dp\n   ros_M(2) =  0.61697947043828245592553615689730E+01_dp\n   ros_M(3) = -0.42772256543218573326238373806514_dp\n! E_i = Coefficients for error estimator\n   ros_E(1) =  0.5_dp\n   ros_E(2) = -0.29079558716805469821718236208017E+01_dp\n   ros_E(3) =  0.22354069897811569627360909276199_dp\n!~~~> ros_ELO = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus 1\n   ros_ELO = 3.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n   ros_Alpha(1)= 0.0_dp\n   ros_Alpha(2)= 0.43586652150845899941601945119356_dp\n   ros_Alpha(3)= 0.43586652150845899941601945119356_dp\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n   ros_Gamma(1)= 0.43586652150845899941601945119356_dp\n   ros_Gamma(2)= 0.24291996454816804366592249683314_dp\n   ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp\n\n  END SUBROUTINE Ros3\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Ros4\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!     L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES\n!     L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3\n!\n!      E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL\n!      EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS.\n!      SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS,\n!      SPRINGER-VERLAG (1990)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n   rosMethod = RS4\n!~~~> Name of the method\n   ros_Name = 'ROS-4'\n!~~~> Number of stages\n   ros_S = 4\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n   ros_A(1) = 0.2000000000000000E+01_dp\n   ros_A(2) = 0.1867943637803922E+01_dp\n   ros_A(3) = 0.2344449711399156_dp\n   ros_A(4) = ros_A(2)\n   ros_A(5) = ros_A(3)\n   ros_A(6) = 0.0_dp\n\n   ros_C(1) =-0.7137615036412310E+01_dp\n   ros_C(2) = 0.2580708087951457E+01_dp\n   ros_C(3) = 0.6515950076447975_dp\n   ros_C(4) =-0.2137148994382534E+01_dp\n   ros_C(5) =-0.3214669691237626_dp\n   ros_C(6) =-0.6949742501781779_dp\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n   ros_NewF(1)  = .TRUE.\n   ros_NewF(2)  = .TRUE.\n   ros_NewF(3)  = .TRUE.\n   ros_NewF(4)  = .FALSE.\n!~~~> M_i = Coefficients for new step solution\n   ros_M(1) = 0.2255570073418735E+01_dp\n   ros_M(2) = 0.2870493262186792_dp\n   ros_M(3) = 0.4353179431840180_dp\n   ros_M(4) = 0.1093502252409163E+01_dp\n!~~~> E_i  = Coefficients for error estimator\n   ros_E(1) =-0.2815431932141155_dp\n   ros_E(2) =-0.7276199124938920E-01_dp\n   ros_E(3) =-0.1082196201495311_dp\n   ros_E(4) =-0.1093502252409163E+01_dp\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus 1\n   ros_ELO  = 4.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n   ros_Alpha(1) = 0.0_dp\n   ros_Alpha(2) = 0.1145640000000000E+01_dp\n   ros_Alpha(3) = 0.6552168638155900_dp\n   ros_Alpha(4) = ros_Alpha(3)\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n   ros_Gamma(1) = 0.5728200000000000_dp\n   ros_Gamma(2) =-0.1769193891319233E+01_dp\n   ros_Gamma(3) = 0.7592633437920482_dp\n   ros_Gamma(4) =-0.1049021087100450_dp\n\n  END SUBROUTINE Ros4\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Rodas3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! --- A STIFFLY-STABLE METHOD, 4 stages, order 3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n   rosMethod = RD3\n!~~~> Name of the method\n   ros_Name = 'RODAS-3'\n!~~~> Number of stages\n   ros_S = 4\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n   ros_A(1) = 0.0_dp\n   ros_A(2) = 2.0_dp\n   ros_A(3) = 0.0_dp\n   ros_A(4) = 2.0_dp\n   ros_A(5) = 0.0_dp\n   ros_A(6) = 1.0_dp\n\n   ros_C(1) = 4.0_dp\n   ros_C(2) = 1.0_dp\n   ros_C(3) =-1.0_dp\n   ros_C(4) = 1.0_dp\n   ros_C(5) =-1.0_dp\n   ros_C(6) =-(8.0_dp/3.0_dp)\n\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n   ros_NewF(1)  = .TRUE.\n   ros_NewF(2)  = .FALSE.\n   ros_NewF(3)  = .TRUE.\n   ros_NewF(4)  = .TRUE.\n!~~~> M_i = Coefficients for new step solution\n   ros_M(1) = 2.0_dp\n   ros_M(2) = 0.0_dp\n   ros_M(3) = 1.0_dp\n   ros_M(4) = 1.0_dp\n!~~~> E_i  = Coefficients for error estimator\n   ros_E(1) = 0.0_dp\n   ros_E(2) = 0.0_dp\n   ros_E(3) = 0.0_dp\n   ros_E(4) = 1.0_dp\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus 1\n   ros_ELO  = 3.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n   ros_Alpha(1) = 0.0_dp\n   ros_Alpha(2) = 0.0_dp\n   ros_Alpha(3) = 1.0_dp\n   ros_Alpha(4) = 1.0_dp\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n   ros_Gamma(1) = 0.5_dp\n   ros_Gamma(2) = 1.5_dp\n   ros_Gamma(3) = 0.0_dp\n   ros_Gamma(4) = 0.0_dp\n\n  END SUBROUTINE Rodas3\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Rodas4\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!     STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES\n!\n!      E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL\n!      EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS.\n!      SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS,\n!      SPRINGER-VERLAG (1996)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n    rosMethod = RD4\n!~~~> Name of the method\n    ros_Name = 'RODAS-4'\n!~~~> Number of stages\n    ros_S = 6\n\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n    ros_Alpha(1) = 0.000_dp\n    ros_Alpha(2) = 0.386_dp\n    ros_Alpha(3) = 0.210_dp\n    ros_Alpha(4) = 0.630_dp\n    ros_Alpha(5) = 1.000_dp\n    ros_Alpha(6) = 1.000_dp\n\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n    ros_Gamma(1) = 0.2500000000000000_dp\n    ros_Gamma(2) =-0.1043000000000000_dp\n    ros_Gamma(3) = 0.1035000000000000_dp\n    ros_Gamma(4) =-0.3620000000000023E-01_dp\n    ros_Gamma(5) = 0.0_dp\n    ros_Gamma(6) = 0.0_dp\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:  A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!                  C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n    ros_A(1) = 0.1544000000000000E+01_dp\n    ros_A(2) = 0.9466785280815826_dp\n    ros_A(3) = 0.2557011698983284_dp\n    ros_A(4) = 0.3314825187068521E+01_dp\n    ros_A(5) = 0.2896124015972201E+01_dp\n    ros_A(6) = 0.9986419139977817_dp\n    ros_A(7) = 0.1221224509226641E+01_dp\n    ros_A(8) = 0.6019134481288629E+01_dp\n    ros_A(9) = 0.1253708332932087E+02_dp\n    ros_A(10) =-0.6878860361058950_dp\n    ros_A(11) = ros_A(7)\n    ros_A(12) = ros_A(8)\n    ros_A(13) = ros_A(9)\n    ros_A(14) = ros_A(10)\n    ros_A(15) = 1.0_dp\n\n    ros_C(1) =-0.5668800000000000E+01_dp\n    ros_C(2) =-0.2430093356833875E+01_dp\n    ros_C(3) =-0.2063599157091915_dp\n    ros_C(4) =-0.1073529058151375_dp\n    ros_C(5) =-0.9594562251023355E+01_dp\n    ros_C(6) =-0.2047028614809616E+02_dp\n    ros_C(7) = 0.7496443313967647E+01_dp\n    ros_C(8) =-0.1024680431464352E+02_dp\n    ros_C(9) =-0.3399990352819905E+02_dp\n    ros_C(10) = 0.1170890893206160E+02_dp\n    ros_C(11) = 0.8083246795921522E+01_dp\n    ros_C(12) =-0.7981132988064893E+01_dp\n    ros_C(13) =-0.3152159432874371E+02_dp\n    ros_C(14) = 0.1631930543123136E+02_dp\n    ros_C(15) =-0.6058818238834054E+01_dp\n\n!~~~> M_i = Coefficients for new step solution\n    ros_M(1) = ros_A(7)\n    ros_M(2) = ros_A(8)\n    ros_M(3) = ros_A(9)\n    ros_M(4) = ros_A(10)\n    ros_M(5) = 1.0_dp\n    ros_M(6) = 1.0_dp\n\n!~~~> E_i  = Coefficients for error estimator\n    ros_E(1) = 0.0_dp\n    ros_E(2) = 0.0_dp\n    ros_E(3) = 0.0_dp\n    ros_E(4) = 0.0_dp\n    ros_E(5) = 0.0_dp\n    ros_E(6) = 1.0_dp\n\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n    ros_NewF(1) = .TRUE.\n    ros_NewF(2) = .TRUE.\n    ros_NewF(3) = .TRUE.\n    ros_NewF(4) = .TRUE.\n    ros_NewF(5) = .TRUE.\n    ros_NewF(6) = .TRUE.\n\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!        main and the embedded scheme orders plus 1\n    ros_ELO = 4.0_dp\n\n  END SUBROUTINE Rodas4\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Rang3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES\n!\n! J. RANG and L. ANGERMANN\n! NEW ROSENBROCK W-METHODS OF ORDER 3\n! FOR PARTIAL DIFFERENTIAL ALGEBRAIC\n!        EQUATIONS OF INDEX 1\n! BIT Numerical Mathematics (2005) 45: 761-787\n!  DOI: 10.1007/s10543-005-0035-y\n! Table 4.1-4.2\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n    rosMethod = RG3\n!~~~> Name of the method\n    ros_Name = 'RANG-3'\n!~~~> Number of stages\n    ros_S = 4\n\n    ros_A(1) = 5.09052051067020d+00;\n    ros_A(2) = 5.09052051067020d+00;\n    ros_A(3) = 0.0d0;\n    ros_A(4) = 4.97628111010787d+00;\n    ros_A(5) = 2.77268164715849d-02;\n    ros_A(6) = 2.29428036027904d-01;\n\n    ros_C(1) = -1.16790812312283d+01;\n    ros_C(2) = -1.64057326467367d+01;\n    ros_C(3) = -2.77268164715850d-01;\n    ros_C(4) = -8.38103960500476d+00;\n    ros_C(5) = -8.48328409199343d-01;\n    ros_C(6) =  2.87009860433106d-01;\n\n    ros_M(1) =  5.22582761233094d+00;\n    ros_M(2) = -5.56971148154165d-01;\n    ros_M(3) =  3.57979469353645d-01;\n    ros_M(4) =  1.72337398521064d+00;\n\n    ros_E(1) = -5.16845212784040d+00;\n    ros_E(2) = -1.26351942603842d+00;\n    ros_E(3) = -1.11022302462516d-16;\n    ros_E(4) =  2.22044604925031d-16;\n\n    ros_Alpha(1) = 0.0d00;\n    ros_Alpha(2) = 2.21878746765329d+00;\n    ros_Alpha(3) = 2.21878746765329d+00;\n    ros_Alpha(4) = 1.55392337535788d+00;\n\n    ros_Gamma(1) =  4.35866521508459d-01;\n    ros_Gamma(2) = -1.78292094614483d+00;\n    ros_Gamma(3) = -2.46541900496934d+00;\n    ros_Gamma(4) = -8.05529997906370d-01;\n\n\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n    ros_NewF(1) = .TRUE.\n    ros_NewF(2) = .TRUE.\n    ros_NewF(3) = .TRUE.\n    ros_NewF(4) = .TRUE.\n\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!        main and the embedded scheme orders plus 1\n    ros_ELO = 3.0_dp\n\n  END SUBROUTINE Rang3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   End of the set of internal Rosenbrock subroutines\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nEND SUBROUTINE Rosenbrock\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE FunTemplate( T, Y, Ydot, P_VAR, D_VAR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the ODE function call.\n!  Updates the rate coefficients (and possibly the fixed species) at each call\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n USE gckpp_Parameters, ONLY : NVAR, LU_NONZERO\n USE gckpp_Global,     ONLY : FIX, RCONST, TIME\n USE gckpp_Function,   ONLY : Fun, Fun_SPLIT\n USE gckpp_Rates,      ONLY : Update_SUN, Update_RCONST\n\n!~~~> Input variables\n   REAL(kind=dp) :: T, Y(NVAR)\n!~~~> Output variables\n   REAL(kind=dp) :: Ydot(NVAR)\n   REAL(kind=dp), OPTIONAL :: P_VAR(NVAR), D_VAR(NVAR)\n!~~~> Local variables\n   REAL(kind=dp) :: Told, P(NVAR), D(NVAR)\n\n   Told = TIME\n   TIME = T\n   IF ( Do_Update_SUN    ) CALL Update_SUN()\n   IF ( Do_Update_RCONST ) CALL Update_RCONST(Y)\n   CALL FUN( Y, FIX, RCONST, Ydot )\n   TIME = Told\n\n   IF (Present(P_VAR)) P_VAR=P\n   IF (Present(D_VAR)) D_VAR=D\n\nEND SUBROUTINE FunTemplate\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE JacTemplate( T, Y, Jcb )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the ODE Jacobian call.\n!  Updates the rate coefficients (and possibly the fixed species) at each call\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n USE gckpp_Parameters,    ONLY : NVAR, LU_NONZERO\n USE gckpp_Global,        ONLY : FIX, RCONST, TIME\n USE gckpp_Jacobian,      ONLY : Jac_SP, LU_IROW, LU_ICOL\n USE gckpp_LinearAlgebra\n USE gckpp_Rates,         ONLY : Update_SUN, Update_RCONST\n!~~~> Input variables\n    REAL(kind=dp) :: T, Y(NVAR)\n!~~~> Output variables\n#ifdef FULL_ALGEBRA\n    REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR)\n#else\n    REAL(kind=dp) :: Jcb(LU_NONZERO)\n#endif\n!~~~> Local variables\n    REAL(kind=dp) :: Told\n#ifdef FULL_ALGEBRA\n    INTEGER :: i, j\n#endif\n\n    Told = TIME\n    TIME = T\n    IF ( Do_Update_SUN    ) CALL Update_SUN()\n    IF ( Do_Update_RCONST ) CALL Update_RCONST(Y)\n#ifdef FULL_ALGEBRA\n    CALL Jac_SP(Y, FIX, RCONST, JV)\n    DO j=1,NVAR\n      DO i=1,NVAR\n         Jcb(i,j) = 0.0_dp\n      END DO\n    END DO\n    DO i=1,LU_NONZERO\n       Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i)\n    END DO\n#else\n    CALL Jac_SP( Y, FIX, RCONST, Jcb )\n#endif\n    TIME = Told\n\nEND SUBROUTINE JacTemplate\n\nEND MODULE gckpp_Integrator\n! End of INTEGRATE function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Jacobian.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The ODE Jacobian of Chemical Model File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Jacobian.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Jacobian\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Jac_SP - the Jacobian of Variables in sparse matrix representation\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      JVS       - sparse Jacobian of variables\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Jac_SP ( V, F, RCT, JVS )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n\n\n! Local variables\n! B - Temporary array\n  REAL(kind=dp) :: B(128)\n\n! B(1) = dA(1)/dV(30)\n  B(1) = RCT(1)*F(1)\n! B(3) = dA(2)/dV(32)\n  B(3) = RCT(2)\n! B(4) = dA(3)/dV(32)\n  B(4) = RCT(3)*F(1)\n! B(6) = dA(4)/dV(32)\n  B(6) = RCT(4)*F(4)\n! B(8) = dA(5)/dV(32)\n  B(8) = RCT(5)*F(4)\n! B(10) = dA(6)/dV(32)\n  B(10) = RCT(6)*F(7)\n! B(12) = dA(7)/dV(32)\n  B(12) = RCT(7)*F(9)\n! B(14) = dA(8)/dV(32)\n  B(14) = RCT(8)*F(8)\n! B(16) = dA(9)/dV(32)\n  B(16) = RCT(9)*F(3)\n! B(18) = dA(10)/dV(32)\n  B(18) = RCT(10)*F(1)\n! B(20) = dA(11)/dV(22)\n  B(20) = RCT(11)*F(11)\n! B(22) = dA(12)/dV(22)\n  B(22) = RCT(12)*F(10)\n! B(24) = dA(13)/dV(32)\n  B(24) = RCT(13)*F(6)\n! B(26) = dA(14)/dV(30)\n  B(26) = RCT(14)*F(2)\n! B(28) = dA(15)/dV(27)\n  B(28) = RCT(15)*F(2)\n! B(30) = dA(16)/dV(27)\n  B(30) = RCT(16)*F(4)\n! B(32) = dA(17)/dV(27)\n  B(32) = RCT(17)*F(4)\n! B(34) = dA(18)/dV(27)\n  B(34) = RCT(18)*F(7)\n! B(36) = dA(19)/dV(27)\n  B(36) = RCT(19)*F(9)\n! B(38) = dA(20)/dV(27)\n  B(38) = RCT(20)*F(8)\n! B(40) = dA(21)/dV(27)\n  B(40) = RCT(21)*F(1)\n! B(42) = dA(22)/dV(27)\n  B(42) = RCT(22)*F(3)\n! B(44) = dA(23)/dV(27)\n  B(44) = RCT(23)*F(6)\n! B(46) = dA(24)/dV(24)\n  B(46) = RCT(24)*F(11)\n! B(48) = dA(25)/dV(24)\n  B(48) = RCT(25)*F(10)\n! B(50) = dA(26)/dV(30)\n  B(50) = RCT(26)*F(3)\n! B(52) = dA(27)/dV(29)\n  B(52) = RCT(27)\n! B(53) = dA(28)/dV(29)\n  B(53) = RCT(28)*F(4)\n! B(55) = dA(29)/dV(29)\n  B(55) = RCT(29)*F(7)\n! B(57) = dA(30)/dV(29)\n  B(57) = RCT(30)*F(9)\n! B(59) = dA(31)/dV(29)\n  B(59) = RCT(31)*F(8)\n! B(61) = dA(32)/dV(29)\n  B(61) = RCT(32)*F(1)\n! B(63) = dA(33)/dV(29)\n  B(63) = RCT(33)*F(3)\n! B(65) = dA(34)/dV(29)\n  B(65) = RCT(34)*F(6)\n! B(67) = dA(35)/dV(19)\n  B(67) = RCT(35)*F(11)\n! B(69) = dA(36)/dV(19)\n  B(69) = RCT(36)*F(10)\n! B(71) = dA(37)/dV(16)\n  B(71) = RCT(37)\n! B(72) = dA(38)/dV(23)\n  B(72) = RCT(38)\n! B(73) = dA(39)/dV(31)\n  B(73) = RCT(39)\n! B(74) = dA(40)/dV(14)\n  B(74) = RCT(40)\n! B(75) = dA(41)/dV(13)\n  B(75) = RCT(41)\n! B(76) = dA(42)/dV(18)\n  B(76) = RCT(42)\n! B(77) = dA(43)/dV(17)\n  B(77) = RCT(43)\n! B(78) = dA(44)/dV(25)\n  B(78) = RCT(44)\n! B(79) = dA(45)/dV(26)\n  B(79) = RCT(45)\n! B(80) = dA(46)/dV(9)\n  B(80) = RCT(46)\n! B(81) = dA(47)/dV(8)\n  B(81) = RCT(47)\n! B(82) = dA(48)/dV(10)\n  B(82) = RCT(48)\n! B(83) = dA(49)/dV(1)\n  B(83) = RCT(49)\n! B(84) = dA(50)/dV(15)\n  B(84) = RCT(50)\n! B(85) = dA(51)/dV(21)\n  B(85) = RCT(51)\n! B(86) = dA(52)/dV(20)\n  B(86) = RCT(52)\n! B(87) = dA(53)/dV(12)\n  B(87) = RCT(53)\n! B(88) = dA(54)/dV(11)\n  B(88) = RCT(54)\n! B(89) = dA(55)/dV(16)\n  B(89) = RCT(55)\n! B(90) = dA(56)/dV(23)\n  B(90) = RCT(56)\n! B(91) = dA(57)/dV(31)\n  B(91) = RCT(57)\n! B(92) = dA(58)/dV(14)\n  B(92) = RCT(58)\n! B(93) = dA(59)/dV(13)\n  B(93) = RCT(59)\n! B(94) = dA(60)/dV(18)\n  B(94) = RCT(60)\n! B(95) = dA(61)/dV(17)\n  B(95) = RCT(61)\n! B(96) = dA(62)/dV(25)\n  B(96) = RCT(62)\n! B(97) = dA(63)/dV(26)\n  B(97) = RCT(63)\n! B(98) = dA(64)/dV(9)\n  B(98) = RCT(64)\n! B(99) = dA(65)/dV(8)\n  B(99) = RCT(65)\n! B(100) = dA(66)/dV(10)\n  B(100) = RCT(66)\n! B(101) = dA(67)/dV(15)\n  B(101) = RCT(67)\n! B(102) = dA(68)/dV(21)\n  B(102) = RCT(68)\n! B(103) = dA(69)/dV(20)\n  B(103) = RCT(69)\n! B(104) = dA(70)/dV(12)\n  B(104) = RCT(70)\n! B(105) = dA(71)/dV(11)\n  B(105) = RCT(71)\n! B(109) = dA(75)/dV(32)\n  B(109) = RCT(75)\n! B(110) = dA(76)/dV(16)\n  B(110) = RCT(76)\n! B(111) = dA(77)/dV(23)\n  B(111) = RCT(77)\n! B(112) = dA(78)/dV(31)\n  B(112) = RCT(78)\n! B(113) = dA(79)/dV(18)\n  B(113) = RCT(79)\n! B(114) = dA(80)/dV(14)\n  B(114) = RCT(80)\n! B(115) = dA(81)/dV(13)\n  B(115) = RCT(81)\n! B(116) = dA(82)/dV(17)\n  B(116) = RCT(82)\n! B(117) = dA(83)/dV(25)\n  B(117) = RCT(83)\n! B(118) = dA(84)/dV(26)\n  B(118) = RCT(84)\n! B(119) = dA(85)/dV(10)\n  B(119) = RCT(85)\n! B(120) = dA(86)/dV(9)\n  B(120) = RCT(86)\n! B(121) = dA(87)/dV(8)\n  B(121) = RCT(87)\n! B(122) = dA(88)/dV(29)\n  B(122) = RCT(88)\n! B(123) = dA(89)/dV(15)\n  B(123) = RCT(89)\n! B(124) = dA(90)/dV(21)\n  B(124) = RCT(90)\n! B(125) = dA(91)/dV(20)\n  B(125) = RCT(91)\n! B(126) = dA(92)/dV(12)\n  B(126) = RCT(92)\n! B(127) = dA(93)/dV(11)\n  B(127) = RCT(93)\n! B(128) = dA(94)/dV(28)\n  B(128) = RCT(94)\n\n! Construct the Jacobian terms from B's\n! JVS(1) = Jac_FULL(1,1)\n  JVS(1) = -B(83)\n! JVS(2) = Jac_FULL(2,2)\n  JVS(2) = 0\n! JVS(3) = Jac_FULL(2,8)\n  JVS(3) = B(99)\n! JVS(4) = Jac_FULL(2,9)\n  JVS(4) = B(98)\n! JVS(5) = Jac_FULL(2,10)\n  JVS(5) = B(100)\n! JVS(6) = Jac_FULL(2,11)\n  JVS(6) = B(105)\n! JVS(7) = Jac_FULL(2,12)\n  JVS(7) = B(104)\n! JVS(8) = Jac_FULL(2,13)\n  JVS(8) = B(93)\n! JVS(9) = Jac_FULL(2,14)\n  JVS(9) = B(92)\n! JVS(10) = Jac_FULL(2,15)\n  JVS(10) = B(101)\n! JVS(11) = Jac_FULL(2,16)\n  JVS(11) = B(89)\n! JVS(12) = Jac_FULL(2,17)\n  JVS(12) = B(95)\n! JVS(13) = Jac_FULL(2,18)\n  JVS(13) = B(94)\n! JVS(14) = Jac_FULL(2,20)\n  JVS(14) = B(103)\n! JVS(15) = Jac_FULL(2,21)\n  JVS(15) = B(102)\n! JVS(16) = Jac_FULL(2,23)\n  JVS(16) = B(90)\n! JVS(17) = Jac_FULL(2,25)\n  JVS(17) = B(96)\n! JVS(18) = Jac_FULL(2,26)\n  JVS(18) = B(97)\n! JVS(19) = Jac_FULL(2,31)\n  JVS(19) = B(91)\n! JVS(20) = Jac_FULL(3,3)\n  JVS(20) = 0\n! JVS(21) = Jac_FULL(3,30)\n  JVS(21) = B(1)+B(26)+B(50)\n! JVS(22) = Jac_FULL(4,4)\n  JVS(22) = 0\n! JVS(23) = Jac_FULL(4,13)\n  JVS(23) = B(115)\n! JVS(24) = Jac_FULL(4,14)\n  JVS(24) = B(114)\n! JVS(25) = Jac_FULL(4,18)\n  JVS(25) = 0.4*B(113)\n! JVS(26) = Jac_FULL(4,20)\n  JVS(26) = B(125)\n! JVS(27) = Jac_FULL(4,21)\n  JVS(27) = 0.67*B(124)\n! JVS(28) = Jac_FULL(4,23)\n  JVS(28) = 0.67*B(111)\n! JVS(29) = Jac_FULL(4,25)\n  JVS(29) = 0.67*B(117)\n! JVS(30) = Jac_FULL(4,26)\n  JVS(30) = 0.49*B(118)\n! JVS(31) = Jac_FULL(4,27)\n  JVS(31) = B(28)+B(30)\n! JVS(32) = Jac_FULL(4,28)\n  JVS(32) = B(128)\n! JVS(33) = Jac_FULL(4,29)\n  JVS(33) = B(52)+B(122)\n! JVS(34) = Jac_FULL(4,31)\n  JVS(34) = 0.49*B(112)\n! JVS(35) = Jac_FULL(4,32)\n  JVS(35) = B(3)+B(4)+B(6)+B(109)\n! JVS(36) = Jac_FULL(5,5)\n  JVS(36) = 0\n! JVS(37) = Jac_FULL(5,29)\n  JVS(37) = B(61)\n! JVS(38) = Jac_FULL(5,30)\n  JVS(38) = B(1)\n! JVS(39) = Jac_FULL(6,6)\n  JVS(39) = 0\n! JVS(40) = Jac_FULL(6,26)\n  JVS(40) = 0.35*B(118)\n! JVS(41) = Jac_FULL(6,30)\n  JVS(41) = B(50)\n! JVS(42) = Jac_FULL(6,31)\n  JVS(42) = 0.35*B(112)\n! JVS(43) = Jac_FULL(7,7)\n  JVS(43) = 0\n! JVS(44) = Jac_FULL(7,30)\n  JVS(44) = B(26)\n! JVS(45) = Jac_FULL(8,8)\n  JVS(45) = -B(81)-B(99)-B(121)\n! JVS(46) = Jac_FULL(8,27)\n  JVS(46) = B(36)\n! JVS(47) = Jac_FULL(9,9)\n  JVS(47) = -B(80)-B(98)-B(120)\n! JVS(48) = Jac_FULL(9,27)\n  JVS(48) = B(38)\n! JVS(49) = Jac_FULL(10,10)\n  JVS(49) = -B(82)-B(100)-B(119)\n! JVS(50) = Jac_FULL(10,27)\n  JVS(50) = B(40)\n! JVS(51) = Jac_FULL(11,11)\n  JVS(51) = -B(88)-B(105)-B(127)\n! JVS(52) = Jac_FULL(11,29)\n  JVS(52) = B(57)\n! JVS(53) = Jac_FULL(12,12)\n  JVS(53) = -B(87)-B(104)-B(126)\n! JVS(54) = Jac_FULL(12,29)\n  JVS(54) = B(59)\n! JVS(55) = Jac_FULL(13,13)\n  JVS(55) = -B(75)-B(93)-B(115)\n! JVS(56) = Jac_FULL(13,32)\n  JVS(56) = B(12)\n! JVS(57) = Jac_FULL(14,14)\n  JVS(57) = -B(74)-B(92)-B(114)\n! JVS(58) = Jac_FULL(14,32)\n  JVS(58) = B(14)\n! JVS(59) = Jac_FULL(15,15)\n  JVS(59) = -B(84)-B(101)-B(123)\n! JVS(60) = Jac_FULL(15,29)\n  JVS(60) = B(53)\n! JVS(61) = Jac_FULL(16,16)\n  JVS(61) = -B(71)-B(89)-B(110)\n! JVS(62) = Jac_FULL(16,32)\n  JVS(62) = B(8)\n! JVS(63) = Jac_FULL(17,17)\n  JVS(63) = -B(77)-B(95)-B(116)\n! JVS(64) = Jac_FULL(17,27)\n  JVS(64) = B(32)\n! JVS(65) = Jac_FULL(18,18)\n  JVS(65) = -B(76)-B(94)-B(113)\n! JVS(66) = Jac_FULL(18,32)\n  JVS(66) = B(18)\n! JVS(67) = Jac_FULL(19,15)\n  JVS(67) = 0.9*B(123)\n! JVS(68) = Jac_FULL(19,19)\n  JVS(68) = -B(67)-B(69)\n! JVS(69) = Jac_FULL(19,21)\n  JVS(69) = 0.25*B(124)\n! JVS(70) = Jac_FULL(19,29)\n  JVS(70) = B(65)\n! JVS(71) = Jac_FULL(20,19)\n  JVS(71) = B(67)\n! JVS(72) = Jac_FULL(20,20)\n  JVS(72) = -B(86)-B(103)-B(125)\n! JVS(73) = Jac_FULL(20,21)\n  JVS(73) = 0.01*B(124)\n! JVS(74) = Jac_FULL(20,29)\n  JVS(74) = B(63)\n! JVS(75) = Jac_FULL(21,21)\n  JVS(75) = -B(85)-B(102)-B(124)\n! JVS(76) = Jac_FULL(21,29)\n  JVS(76) = B(55)\n! JVS(77) = Jac_FULL(22,16)\n  JVS(77) = 0.9*B(110)\n! JVS(78) = Jac_FULL(22,22)\n  JVS(78) = -B(20)-B(22)\n! JVS(79) = Jac_FULL(22,23)\n  JVS(79) = 0.25*B(111)\n! JVS(80) = Jac_FULL(22,32)\n  JVS(80) = B(24)\n! JVS(81) = Jac_FULL(23,23)\n  JVS(81) = -B(72)-B(90)-B(111)\n! JVS(82) = Jac_FULL(23,32)\n  JVS(82) = B(10)\n! JVS(83) = Jac_FULL(24,17)\n  JVS(83) = 0.9*B(116)\n! JVS(84) = Jac_FULL(24,24)\n  JVS(84) = -B(46)-B(48)\n! JVS(85) = Jac_FULL(24,25)\n  JVS(85) = 0.25*B(117)\n! JVS(86) = Jac_FULL(24,27)\n  JVS(86) = B(44)\n! JVS(87) = Jac_FULL(25,25)\n  JVS(87) = -B(78)-B(96)-B(117)\n! JVS(88) = Jac_FULL(25,27)\n  JVS(88) = B(34)\n! JVS(89) = Jac_FULL(26,24)\n  JVS(89) = B(46)\n! JVS(90) = Jac_FULL(26,25)\n  JVS(90) = 0.01*B(117)\n! JVS(91) = Jac_FULL(26,26)\n  JVS(91) = -B(79)-B(97)-0.99*B(118)\n! JVS(92) = Jac_FULL(26,27)\n  JVS(92) = B(42)\n! JVS(93) = Jac_FULL(27,8)\n  JVS(93) = B(121)\n! JVS(94) = Jac_FULL(27,9)\n  JVS(94) = B(120)\n! JVS(95) = Jac_FULL(27,10)\n  JVS(95) = B(119)\n! JVS(96) = Jac_FULL(27,17)\n  JVS(96) = 0.1*B(116)\n! JVS(97) = Jac_FULL(27,24)\n  JVS(97) = B(48)\n! JVS(98) = Jac_FULL(27,25)\n  JVS(98) = 0.07*B(117)\n! JVS(99) = Jac_FULL(27,26)\n  JVS(99) = 0.15*B(118)\n! JVS(100) = Jac_FULL(27,27)\n  JVS(100) = -B(28)-B(30)-B(32)-B(34)-B(36)-B(38)-B(40)-B(42)-B(44)\n! JVS(101) = Jac_FULL(27,30)\n  JVS(101) = B(26)\n! JVS(102) = Jac_FULL(28,1)\n  JVS(102) = B(83)\n! JVS(103) = Jac_FULL(28,8)\n  JVS(103) = B(81)\n! JVS(104) = Jac_FULL(28,9)\n  JVS(104) = B(80)\n! JVS(105) = Jac_FULL(28,10)\n  JVS(105) = B(82)\n! JVS(106) = Jac_FULL(28,11)\n  JVS(106) = B(88)\n! JVS(107) = Jac_FULL(28,12)\n  JVS(107) = B(87)\n! JVS(108) = Jac_FULL(28,13)\n  JVS(108) = B(75)\n! JVS(109) = Jac_FULL(28,14)\n  JVS(109) = B(74)\n! JVS(110) = Jac_FULL(28,15)\n  JVS(110) = B(84)\n! JVS(111) = Jac_FULL(28,16)\n  JVS(111) = B(71)\n! JVS(112) = Jac_FULL(28,17)\n  JVS(112) = B(77)\n! JVS(113) = Jac_FULL(28,18)\n  JVS(113) = B(76)\n! JVS(114) = Jac_FULL(28,20)\n  JVS(114) = B(86)\n! JVS(115) = Jac_FULL(28,21)\n  JVS(115) = B(85)\n! JVS(116) = Jac_FULL(28,23)\n  JVS(116) = B(72)\n! JVS(117) = Jac_FULL(28,25)\n  JVS(117) = B(78)\n! JVS(118) = Jac_FULL(28,26)\n  JVS(118) = B(79)\n! JVS(119) = Jac_FULL(28,27)\n  JVS(119) = 0\n! JVS(120) = Jac_FULL(28,28)\n  JVS(120) = -B(128)\n! JVS(121) = Jac_FULL(28,29)\n  JVS(121) = 0\n! JVS(122) = Jac_FULL(28,30)\n  JVS(122) = 0\n! JVS(123) = Jac_FULL(28,31)\n  JVS(123) = B(73)\n! JVS(124) = Jac_FULL(28,32)\n  JVS(124) = 0\n! JVS(125) = Jac_FULL(29,11)\n  JVS(125) = B(127)\n! JVS(126) = Jac_FULL(29,12)\n  JVS(126) = B(126)\n! JVS(127) = Jac_FULL(29,15)\n  JVS(127) = 0.1*B(123)\n! JVS(128) = Jac_FULL(29,19)\n  JVS(128) = B(69)\n! JVS(129) = Jac_FULL(29,21)\n  JVS(129) = 0.07*B(124)\n! JVS(130) = Jac_FULL(29,26)\n  JVS(130) = 0.35*B(118)\n! JVS(131) = Jac_FULL(29,27)\n  JVS(131) = 0\n! JVS(132) = Jac_FULL(29,29)\n  JVS(132) = -B(52)-B(53)-B(55)-B(57)-B(59)-B(61)-B(63)-B(65)-B(122)\n! JVS(133) = Jac_FULL(29,30)\n  JVS(133) = B(50)\n! JVS(134) = Jac_FULL(29,31)\n  JVS(134) = 0.35*B(112)\n! JVS(135) = Jac_FULL(30,13)\n  JVS(135) = B(115)\n! JVS(136) = Jac_FULL(30,14)\n  JVS(136) = B(114)\n! JVS(137) = Jac_FULL(30,18)\n  JVS(137) = 0.4*B(113)\n! JVS(138) = Jac_FULL(30,20)\n  JVS(138) = B(125)\n! JVS(139) = Jac_FULL(30,21)\n  JVS(139) = 0.67*B(124)\n! JVS(140) = Jac_FULL(30,23)\n  JVS(140) = 0.67*B(111)\n! JVS(141) = Jac_FULL(30,25)\n  JVS(141) = 0.67*B(117)\n! JVS(142) = Jac_FULL(30,26)\n  JVS(142) = 0.49*B(118)\n! JVS(143) = Jac_FULL(30,27)\n  JVS(143) = B(28)+B(30)\n! JVS(144) = Jac_FULL(30,28)\n  JVS(144) = B(128)\n! JVS(145) = Jac_FULL(30,29)\n  JVS(145) = B(52)+B(122)\n! JVS(146) = Jac_FULL(30,30)\n  JVS(146) = -B(1)-B(26)-B(50)\n! JVS(147) = Jac_FULL(30,31)\n  JVS(147) = 0.49*B(112)\n! JVS(148) = Jac_FULL(30,32)\n  JVS(148) = B(3)+B(4)+B(6)+B(109)\n! JVS(149) = Jac_FULL(31,22)\n  JVS(149) = B(20)\n! JVS(150) = Jac_FULL(31,23)\n  JVS(150) = 0.01*B(111)\n! JVS(151) = Jac_FULL(31,29)\n  JVS(151) = B(61)\n! JVS(152) = Jac_FULL(31,30)\n  JVS(152) = 0\n! JVS(153) = Jac_FULL(31,31)\n  JVS(153) = -B(73)-B(91)-0.99*B(112)\n! JVS(154) = Jac_FULL(31,32)\n  JVS(154) = B(16)\n! JVS(155) = Jac_FULL(32,16)\n  JVS(155) = 0.1*B(110)\n! JVS(156) = Jac_FULL(32,18)\n  JVS(156) = 0.6*B(113)\n! JVS(157) = Jac_FULL(32,22)\n  JVS(157) = B(22)\n! JVS(158) = Jac_FULL(32,23)\n  JVS(158) = 0.07*B(111)\n! JVS(159) = Jac_FULL(32,30)\n  JVS(159) = B(1)\n! JVS(160) = Jac_FULL(32,31)\n  JVS(160) = 0.15*B(112)\n! JVS(161) = Jac_FULL(32,32)\n  JVS(161) = -B(3)-B(4)-B(6)-B(8)-B(10)-B(12)-B(14)-B(16)-B(18)-B(24)-B(109)\n      \nEND SUBROUTINE Jac_SP\n\n! End of Jac_SP function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Jac_SP_Vec - function for sparse multiplication: sparse Jacobian times vector\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      UV        - User vector for variables\n!      JUV       - Jacobian times user vector\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Jac_SP_Vec ( JVS, UV, JUV )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! UV - User vector for variables\n  REAL(kind=dp) :: UV(NVAR)\n! JUV - Jacobian times user vector\n  REAL(kind=dp) :: JUV(NVAR)\n\n  JUV(1) = JVS(1)*UV(1)\n  JUV(2) = JVS(2)*UV(2)+JVS(3)*UV(8)+JVS(4)*UV(9)+JVS(5)*UV(10)+JVS(6)*UV(11)+JVS(7)*UV(12)+JVS(8)*UV(13)+JVS(9)*UV(14)&\n             &+JVS(10)*UV(15)+JVS(11)*UV(16)+JVS(12)*UV(17)+JVS(13)*UV(18)+JVS(14)*UV(20)+JVS(15)*UV(21)+JVS(16)*UV(23)&\n             &+JVS(17)*UV(25)+JVS(18)*UV(26)+JVS(19)*UV(31)\n  JUV(3) = JVS(20)*UV(3)+JVS(21)*UV(30)\n  JUV(4) = JVS(22)*UV(4)+JVS(23)*UV(13)+JVS(24)*UV(14)+JVS(25)*UV(18)+JVS(26)*UV(20)+JVS(27)*UV(21)+JVS(28)*UV(23)&\n             &+JVS(29)*UV(25)+JVS(30)*UV(26)+JVS(31)*UV(27)+JVS(32)*UV(28)+JVS(33)*UV(29)+JVS(34)*UV(31)+JVS(35)*UV(32)\n  JUV(5) = JVS(36)*UV(5)+JVS(37)*UV(29)+JVS(38)*UV(30)\n  JUV(6) = JVS(39)*UV(6)+JVS(40)*UV(26)+JVS(41)*UV(30)+JVS(42)*UV(31)\n  JUV(7) = JVS(43)*UV(7)+JVS(44)*UV(30)\n  JUV(8) = JVS(45)*UV(8)+JVS(46)*UV(27)\n  JUV(9) = JVS(47)*UV(9)+JVS(48)*UV(27)\n  JUV(10) = JVS(49)*UV(10)+JVS(50)*UV(27)\n  JUV(11) = JVS(51)*UV(11)+JVS(52)*UV(29)\n  JUV(12) = JVS(53)*UV(12)+JVS(54)*UV(29)\n  JUV(13) = JVS(55)*UV(13)+JVS(56)*UV(32)\n  JUV(14) = JVS(57)*UV(14)+JVS(58)*UV(32)\n  JUV(15) = JVS(59)*UV(15)+JVS(60)*UV(29)\n  JUV(16) = JVS(61)*UV(16)+JVS(62)*UV(32)\n  JUV(17) = JVS(63)*UV(17)+JVS(64)*UV(27)\n  JUV(18) = JVS(65)*UV(18)+JVS(66)*UV(32)\n  JUV(19) = JVS(67)*UV(15)+JVS(68)*UV(19)+JVS(69)*UV(21)+JVS(70)*UV(29)\n  JUV(20) = JVS(71)*UV(19)+JVS(72)*UV(20)+JVS(73)*UV(21)+JVS(74)*UV(29)\n  JUV(21) = JVS(75)*UV(21)+JVS(76)*UV(29)\n  JUV(22) = JVS(77)*UV(16)+JVS(78)*UV(22)+JVS(79)*UV(23)+JVS(80)*UV(32)\n  JUV(23) = JVS(81)*UV(23)+JVS(82)*UV(32)\n  JUV(24) = JVS(83)*UV(17)+JVS(84)*UV(24)+JVS(85)*UV(25)+JVS(86)*UV(27)\n  JUV(25) = JVS(87)*UV(25)+JVS(88)*UV(27)\n  JUV(26) = JVS(89)*UV(24)+JVS(90)*UV(25)+JVS(91)*UV(26)+JVS(92)*UV(27)\n  JUV(27) = JVS(93)*UV(8)+JVS(94)*UV(9)+JVS(95)*UV(10)+JVS(96)*UV(17)+JVS(97)*UV(24)+JVS(98)*UV(25)+JVS(99)*UV(26)&\n              &+JVS(100)*UV(27)+JVS(101)*UV(30)\n  JUV(28) = JVS(102)*UV(1)+JVS(103)*UV(8)+JVS(104)*UV(9)+JVS(105)*UV(10)+JVS(106)*UV(11)+JVS(107)*UV(12)+JVS(108)*UV(13)&\n              &+JVS(109)*UV(14)+JVS(110)*UV(15)+JVS(111)*UV(16)+JVS(112)*UV(17)+JVS(113)*UV(18)+JVS(114)*UV(20)+JVS(115)&\n              &*UV(21)+JVS(116)*UV(23)+JVS(117)*UV(25)+JVS(118)*UV(26)+JVS(120)*UV(28)+JVS(123)*UV(31)\n  JUV(29) = JVS(125)*UV(11)+JVS(126)*UV(12)+JVS(127)*UV(15)+JVS(128)*UV(19)+JVS(129)*UV(21)+JVS(130)*UV(26)+JVS(132)&\n              &*UV(29)+JVS(133)*UV(30)+JVS(134)*UV(31)\n  JUV(30) = JVS(135)*UV(13)+JVS(136)*UV(14)+JVS(137)*UV(18)+JVS(138)*UV(20)+JVS(139)*UV(21)+JVS(140)*UV(23)+JVS(141)&\n              &*UV(25)+JVS(142)*UV(26)+JVS(143)*UV(27)+JVS(144)*UV(28)+JVS(145)*UV(29)+JVS(146)*UV(30)+JVS(147)*UV(31)&\n              &+JVS(148)*UV(32)\n  JUV(31) = JVS(149)*UV(22)+JVS(150)*UV(23)+JVS(151)*UV(29)+JVS(153)*UV(31)+JVS(154)*UV(32)\n  JUV(32) = JVS(155)*UV(16)+JVS(156)*UV(18)+JVS(157)*UV(22)+JVS(158)*UV(23)+JVS(159)*UV(30)+JVS(160)*UV(31)+JVS(161)&\n              &*UV(32)\n      \nEND SUBROUTINE Jac_SP_Vec\n\n! End of Jac_SP_Vec function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! JacTR_SP_Vec - sparse multiplication: sparse Jacobian transposed times vector\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      UV        - User vector for variables\n!      JTUV      - Jacobian transposed times user vector\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! UV - User vector for variables\n  REAL(kind=dp) :: UV(NVAR)\n! JTUV - Jacobian transposed times user vector\n  REAL(kind=dp) :: JTUV(NVAR)\n\n  JTUV(1) = JVS(1)*UV(1)+JVS(102)*UV(28)\n  JTUV(2) = JVS(2)*UV(2)\n  JTUV(3) = JVS(20)*UV(3)\n  JTUV(4) = JVS(22)*UV(4)\n  JTUV(5) = JVS(36)*UV(5)\n  JTUV(6) = JVS(39)*UV(6)\n  JTUV(7) = JVS(43)*UV(7)\n  JTUV(8) = JVS(3)*UV(2)+JVS(45)*UV(8)+JVS(93)*UV(27)+JVS(103)*UV(28)\n  JTUV(9) = JVS(4)*UV(2)+JVS(47)*UV(9)+JVS(94)*UV(27)+JVS(104)*UV(28)\n  JTUV(10) = JVS(5)*UV(2)+JVS(49)*UV(10)+JVS(95)*UV(27)+JVS(105)*UV(28)\n  JTUV(11) = JVS(6)*UV(2)+JVS(51)*UV(11)+JVS(106)*UV(28)+JVS(125)*UV(29)\n  JTUV(12) = JVS(7)*UV(2)+JVS(53)*UV(12)+JVS(107)*UV(28)+JVS(126)*UV(29)\n  JTUV(13) = JVS(8)*UV(2)+JVS(23)*UV(4)+JVS(55)*UV(13)+JVS(108)*UV(28)+JVS(135)*UV(30)\n  JTUV(14) = JVS(9)*UV(2)+JVS(24)*UV(4)+JVS(57)*UV(14)+JVS(109)*UV(28)+JVS(136)*UV(30)\n  JTUV(15) = JVS(10)*UV(2)+JVS(59)*UV(15)+JVS(67)*UV(19)+JVS(110)*UV(28)+JVS(127)*UV(29)\n  JTUV(16) = JVS(11)*UV(2)+JVS(61)*UV(16)+JVS(77)*UV(22)+JVS(111)*UV(28)+JVS(155)*UV(32)\n  JTUV(17) = JVS(12)*UV(2)+JVS(63)*UV(17)+JVS(83)*UV(24)+JVS(96)*UV(27)+JVS(112)*UV(28)\n  JTUV(18) = JVS(13)*UV(2)+JVS(25)*UV(4)+JVS(65)*UV(18)+JVS(113)*UV(28)+JVS(137)*UV(30)+JVS(156)*UV(32)\n  JTUV(19) = JVS(68)*UV(19)+JVS(71)*UV(20)+JVS(128)*UV(29)\n  JTUV(20) = JVS(14)*UV(2)+JVS(26)*UV(4)+JVS(72)*UV(20)+JVS(114)*UV(28)+JVS(138)*UV(30)\n  JTUV(21) = JVS(15)*UV(2)+JVS(27)*UV(4)+JVS(69)*UV(19)+JVS(73)*UV(20)+JVS(75)*UV(21)+JVS(115)*UV(28)+JVS(129)*UV(29)&\n               &+JVS(139)*UV(30)\n  JTUV(22) = JVS(78)*UV(22)+JVS(149)*UV(31)+JVS(157)*UV(32)\n  JTUV(23) = JVS(16)*UV(2)+JVS(28)*UV(4)+JVS(79)*UV(22)+JVS(81)*UV(23)+JVS(116)*UV(28)+JVS(140)*UV(30)+JVS(150)*UV(31)&\n               &+JVS(158)*UV(32)\n  JTUV(24) = JVS(84)*UV(24)+JVS(89)*UV(26)+JVS(97)*UV(27)\n  JTUV(25) = JVS(17)*UV(2)+JVS(29)*UV(4)+JVS(85)*UV(24)+JVS(87)*UV(25)+JVS(90)*UV(26)+JVS(98)*UV(27)+JVS(117)*UV(28)&\n               &+JVS(141)*UV(30)\n  JTUV(26) = JVS(18)*UV(2)+JVS(30)*UV(4)+JVS(40)*UV(6)+JVS(91)*UV(26)+JVS(99)*UV(27)+JVS(118)*UV(28)+JVS(130)*UV(29)&\n               &+JVS(142)*UV(30)\n  JTUV(27) = JVS(31)*UV(4)+JVS(46)*UV(8)+JVS(48)*UV(9)+JVS(50)*UV(10)+JVS(64)*UV(17)+JVS(86)*UV(24)+JVS(88)*UV(25)&\n               &+JVS(92)*UV(26)+JVS(100)*UV(27)+JVS(143)*UV(30)\n  JTUV(28) = JVS(32)*UV(4)+JVS(120)*UV(28)+JVS(144)*UV(30)\n  JTUV(29) = JVS(33)*UV(4)+JVS(37)*UV(5)+JVS(52)*UV(11)+JVS(54)*UV(12)+JVS(60)*UV(15)+JVS(70)*UV(19)+JVS(74)*UV(20)&\n               &+JVS(76)*UV(21)+JVS(132)*UV(29)+JVS(145)*UV(30)+JVS(151)*UV(31)\n  JTUV(30) = JVS(21)*UV(3)+JVS(38)*UV(5)+JVS(41)*UV(6)+JVS(44)*UV(7)+JVS(101)*UV(27)+JVS(133)*UV(29)+JVS(146)*UV(30)&\n               &+JVS(159)*UV(32)\n  JTUV(31) = JVS(19)*UV(2)+JVS(34)*UV(4)+JVS(42)*UV(6)+JVS(123)*UV(28)+JVS(134)*UV(29)+JVS(147)*UV(30)+JVS(153)*UV(31)&\n               &+JVS(160)*UV(32)\n  JTUV(32) = JVS(35)*UV(4)+JVS(56)*UV(13)+JVS(58)*UV(14)+JVS(62)*UV(16)+JVS(66)*UV(18)+JVS(80)*UV(22)+JVS(82)*UV(23)&\n               &+JVS(148)*UV(30)+JVS(154)*UV(31)+JVS(161)*UV(32)\n      \nEND SUBROUTINE JacTR_SP_Vec\n\n! End of JacTR_SP_Vec function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Jacobian\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_JacobianSP.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Sparse Jacobian Data Structures File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_JacobianSP.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_JacobianSP\n\n  PUBLIC\n  SAVE\n\n\n! Sparse Jacobian Data\n\n\n  INTEGER, PARAMETER, DIMENSION(161) :: LU_IROW = (/ &\n       1,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2, & ! index 1 - 12\n       2,  2,  2,  2,  2,  2,  2,  3,  3,  4,  4,  4, & ! index 13 - 24\n       4,  4,  4,  4,  4,  4,  4,  4,  4,  4,  4,  5, & ! index 25 - 36\n       5,  5,  6,  6,  6,  6,  7,  7,  8,  8,  9,  9, & ! index 37 - 48\n      10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, & ! index 49 - 60\n      16, 16, 17, 17, 18, 18, 19, 19, 19, 19, 20, 20, & ! index 61 - 72\n      20, 20, 21, 21, 22, 22, 22, 22, 23, 23, 24, 24, & ! index 73 - 84\n      24, 24, 25, 25, 26, 26, 26, 26, 27, 27, 27, 27, & ! index 85 - 96\n      27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, & ! index 97 - 108\n      28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, & ! index 109 - 120\n      28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, & ! index 121 - 132\n      29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, & ! index 133 - 144\n      30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 32, 32, & ! index 145 - 156\n      32, 32, 32, 32, 32 /) ! index up to 161\n\n  INTEGER, PARAMETER, DIMENSION(161) :: LU_ICOL = (/ &\n       1,  2,  8,  9, 10, 11, 12, 13, 14, 15, 16, 17, & ! index 1 - 12\n      18, 20, 21, 23, 25, 26, 31,  3, 30,  4, 13, 14, & ! index 13 - 24\n      18, 20, 21, 23, 25, 26, 27, 28, 29, 31, 32,  5, & ! index 25 - 36\n      29, 30,  6, 26, 30, 31,  7, 30,  8, 27,  9, 27, & ! index 37 - 48\n      10, 27, 11, 29, 12, 29, 13, 32, 14, 32, 15, 29, & ! index 49 - 60\n      16, 32, 17, 27, 18, 32, 15, 19, 21, 29, 19, 20, & ! index 61 - 72\n      21, 29, 21, 29, 16, 22, 23, 32, 23, 32, 17, 24, & ! index 73 - 84\n      25, 27, 25, 27, 24, 25, 26, 27,  8,  9, 10, 17, & ! index 85 - 96\n      24, 25, 26, 27, 30,  1,  8,  9, 10, 11, 12, 13, & ! index 97 - 108\n      14, 15, 16, 17, 18, 20, 21, 23, 25, 26, 27, 28, & ! index 109 - 120\n      29, 30, 31, 32, 11, 12, 15, 19, 21, 26, 27, 29, & ! index 121 - 132\n      30, 31, 13, 14, 18, 20, 21, 23, 25, 26, 27, 28, & ! index 133 - 144\n      29, 30, 31, 32, 22, 23, 29, 30, 31, 32, 16, 18, & ! index 145 - 156\n      22, 23, 30, 31, 32 /) ! index up to 161\n\n  INTEGER, PARAMETER, DIMENSION(33) :: LU_CROW = (/ &\n       1,  2, 20, 22, 36, 39, 43, 45, 47, 49, 51, 53, & ! index 1 - 12\n      55, 57, 59, 61, 63, 65, 67, 71, 75, 77, 81, 83, & ! index 13 - 24\n      87, 89, 93,102,125,135,149,155,162 /) ! index up to 33\n\n  INTEGER, PARAMETER, DIMENSION(33) :: LU_DIAG = (/ &\n       1,  2, 20, 22, 36, 39, 43, 45, 47, 49, 51, 53, & ! index 1 - 12\n      55, 57, 59, 61, 63, 65, 68, 72, 75, 78, 81, 84, & ! index 13 - 24\n      87, 91,100,120,132,146,153,161,162 /) ! index up to 33\n\n\nEND MODULE gckpp_JacobianSP\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_LinearAlgebra.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Linear Algebra Data and Routines File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_LinearAlgebra.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_LinearAlgebra\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! SPARSE_UTIL - SPARSE utility functions\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppDecomp( JVS, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse LU factorization\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER  :: IER\n      REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a\n      INTEGER  :: k, kk, j, jj\n\n      a = 0. ! mz_rs_20050606\n      IER = 0\n      DO k=1,NVAR\n        ! mz_rs_20050606: don't check if real value == 0\n        ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN\n        IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n              W( LU_ICOL(kk) ) = JVS(kk)\n        END DO\n        DO kk = LU_CROW(k), LU_DIAG(k)-1\n            j = LU_ICOL(kk)\n            a = -W(j) / JVS( LU_DIAG(j) )\n            W(j) = -a\n            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n               W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj)\n            END DO\n         END DO\n         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n            JVS(kk) = W( LU_ICOL(kk) )\n         END DO\n      END DO\n      \nEND SUBROUTINE KppDecomp\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppDecompCmplx( JVS, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse LU factorization, complex\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER        :: IER\n      COMPLEX(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a\n      REAL(kind=dp)  :: b = 0.0\n      INTEGER        :: k, kk, j, jj\n\n      IER = 0\n      DO k=1,NVAR\n        IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n              W( LU_ICOL(kk) ) = JVS(kk)\n        END DO\n        DO kk = LU_CROW(k), LU_DIAG(k)-1\n            j = LU_ICOL(kk)\n            a = -W(j) / JVS( LU_DIAG(j) )\n            W(j) = -a\n            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n               W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj)\n            END DO\n         END DO\n         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n            JVS(kk) = W( LU_ICOL(kk) )\n         END DO\n      END DO\n      \nEND SUBROUTINE KppDecompCmplx\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!    Sparse LU factorization, complex\n!   (Real and Imaginary parts are used instead of complex data type)     \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       :: IER\n      REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) \n      REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den\n      INTEGER       :: k, kk, j, jj\n\n      IER = 0\n      ar  = 0.0\n      DO k=1,NVAR\n        IF (  ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. &\n              ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) )  THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n              WR( LU_ICOL(kk) ) = JVSR(kk)\n              WI( LU_ICOL(kk) ) = JVSI(kk)\n        END DO\n        DO kk = LU_CROW(k), LU_DIAG(k)-1\n            j = LU_ICOL(kk)\n            den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2\n            ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den\n            ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den\n            WR(j) = -ar\n            WI(j) = -ai\n            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n               WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj)\n               WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj)\n            END DO\n         END DO\n         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n            JVSR(kk) = WR( LU_ICOL(kk) )\n            JVSI(kk) = WI( LU_ICOL(kk) )\n         END DO\n      END DO\n\nEND SUBROUTINE KppDecompCmplxR\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveIndirect( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse solve subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER  :: i, j\n      REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum\n\n      DO i=1,NVAR\n         DO j = LU_CROW(i), LU_DIAG(i)-1 \n             X(i) = X(i) - JVS(j)*X(LU_ICOL(j));\n         END DO  \n      END DO\n\n      DO i=NVAR,1,-1\n        sum = X(i);\n        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n          sum = sum - JVS(j)*X(LU_ICOL(j));\n        END DO\n        X(i) = sum/JVS(LU_DIAG(i));\n      END DO\n      \nEND SUBROUTINE KppSolveIndirect\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveTRIndirect( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Complex sparse solve transpose subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       :: i, j\n      REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR)\n\n      DO i=1,NVAR\n        X(i) = X(i)/JVS(LU_DIAG(i))\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n\n      DO i=NVAR, 1, -1\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_CROW(i),LU_DIAG(i)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n      \nEND SUBROUTINE KppSolveTRIndirect\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveCmplx( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Complex sparse solve subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER        :: i, j\n      COMPLEX(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum\n\n      DO i=1,NVAR\n         DO j = LU_CROW(i), LU_DIAG(i)-1 \n             X(i) = X(i) - JVS(j)*X(LU_ICOL(j));\n         END DO  \n      END DO\n\n      DO i=NVAR,1,-1\n        sum = X(i);\n        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n          sum = sum - JVS(j)*X(LU_ICOL(j));\n        END DO\n        X(i) = sum/JVS(LU_DIAG(i));\n      END DO\n      \nEND SUBROUTINE KppSolveCmplx\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Complex sparse solve subroutine using indirect addressing\n!   (Real and Imaginary parts are used instead of complex data type)     \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       ::  i, j\n      REAL(kind=dp) ::  JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den\n\n      DO i=1,NVAR\n         DO j = LU_CROW(i), LU_DIAG(i)-1 \n             XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j)))\n             XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j)))\n         END DO  \n      END DO\n\n      DO i=NVAR,1,-1\n        sumr = XR(i); sumi = XI(i)\n        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n            sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j)))\n            sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j)))\n        END DO\n        den   = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2\n        XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den\n        XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den\n      END DO\n      \nEND SUBROUTINE KppSolveCmplxR\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveTRCmplx( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Complex sparse solve transpose subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER        :: i, j\n      COMPLEX(kind=dp) :: JVS(LU_NONZERO), X(NVAR)\n\n      DO i=1,NVAR\n        X(i) = X(i)/JVS(LU_DIAG(i))\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n\n      DO i=NVAR, 1, -1\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_CROW(i),LU_DIAG(i)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n      \nEND SUBROUTINE KppSolveTRCmplx\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Complex sparse solve transpose subroutine using indirect addressing\n!   (Real and Imaginary parts are used instead of complex data type)     \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       ::  i, j\n      REAL(kind=dp) ::  JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den\n\n      DO i=1,NVAR\n        den   = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2\n        XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den\n        XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n          XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i))\n          XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i))\n        END DO\n      END DO\n\n      DO i=NVAR, 1, -1\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_CROW(i),LU_DIAG(i)-1\n          XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i))\n          XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i))\n        END DO\n      END DO\n      \nEND SUBROUTINE KppSolveTRCmplxR\n\n\n!\n! Next few commented subroutines perform sparse big linear algebra\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE KppDecompBig( JVS, IP, IER )\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!        Sparse LU factorization\n!!        for the Runge Kutta (3n)x(3n) linear system\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!  USE gckpp_Parameters\n!  USE gckpp_JacobianSP\n!\n!      INTEGER  :: IP3(3), IER, IP(3,NVAR)\n!      REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3)\n!      INTEGER  :: k, kk, j, jj\n!\n!      a = 0.0d0\n!      IER = 0\n!      DO k=1,NVAR\n!        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n!              W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk)\n!        END DO\n!        DO kk = LU_CROW(k), LU_DIAG(k)-1\n!            j = LU_ICOL(kk)\n!            E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) )\n!            ! CALL DGETRF(3,3,E,3,IP3,IER) \n!            CALL FAC3(E,IP3,IER)\n!            IF ( IER /= 0 )  RETURN\n!            ! a = W(j) / JVS( LU_DIAG(j) )\n!            a(1:3,1:3) = W( 1:3,1:3,j )\n!            ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) \n!            CALL SOL3('N',E,IP3,a(1,1))\n!            CALL SOL3('N',E,IP3,a(1,2))\n!            CALL SOL3('N',E,IP3,a(1,3))\n!            W(1:3,1:3,j) = a(1:3,1:3)\n!            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n!               W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) &\n!                        - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) )\n!            END DO\n!         END DO\n!         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n!            JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) )\n!         END DO\n!      END DO\n!\n!      DO k=1,NVAR\n!         ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER)\n!         ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER)\n!         CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER)\n!         IF ( IER /= 0 )  RETURN\n!      END DO \n!      \n!END SUBROUTINE KppDecompBig\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE KppSolveBig( JVS, IP, X )\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!        Sparse solve subroutine using indirect addressing\n!!        for the Runge Kutta (3n)x(3n) linear system\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!  USE gckpp_Parameters\n!  USE gckpp_JacobianSP\n!\n!      INTEGER  :: i, j, k, m, IP3(3), IP(3,NVAR), IER\n!      REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3)\n!\n!      DO i=1,NVAR\n!        DO j = LU_CROW(i), LU_DIAG(i)-1 \n!          !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j)));\n!          DO k=1,3\n!            DO m=1,3\n!              X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j))\n!            END DO\n!          END DO\n!        END DO  \n!      END DO\n!\n!      DO i=NVAR,1,-1\n!        sum(1:3) = X(1:3,i);\n!        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n!          !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j)));\n!          DO k=1,3\n!            DO m=1,3\n!              sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j))\n!            END DO\n!          END DO\n!        END DO\n!        ! X(i) = sum/JVS(LU_DIAG(i));\n!        ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) \n!        ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum)\n!        CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum)\n!        X(1:3,i) = sum(1:3)\n!      END DO\n!      \n!END SUBROUTINE KppSolveBig\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE KppSolveBigTR( JVS, IP, X )\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!        Big sparse transpose solve using indirect addressing\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!  USE gckpp_Parameters\n!  USE gckpp_JacobianSP\n!\n!      INTEGER       :: i, j, k, m, IP(3,NVAR)\n!      REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR)\n!\n!      DO i=1,NVAR\n!        ! X(i) = X(i)/JVS(LU_DIAG(i))\n!        CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i))\n!        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n!         !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) &\n!          !    - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) )\n!          DO k=1,3\n!            DO m=1,3\n!              X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i)\n!            END DO\n!          END DO\n!       END DO\n!      END DO\n!\n!      DO i=NVAR, 1, -1\n!        DO j=LU_CROW(i),LU_DIAG(i)-1\n!         !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) &\n!          !   - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) )\n!          DO k=1,3\n!            DO m=1,3\n!              X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i)\n!            END DO\n!          END DO\n!       END DO\n!      END DO\n!      \n!END SUBROUTINE KppSolveBigTR\n!\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE FAC3(A,IPVT,INFO)\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!     FAC3 FACTORS THE MATRIX A (3,3) BY\n!!           GAUSS ELIMINATION WITH PARTIAL PIVOTING\n!!     LINPACK - LIKE \n!!\n!!     Remove comments to perform pivoting\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!\n!      REAL(kind=dp) :: A(3,3)\n!      INTEGER       :: IPVT(3),INFO\n!!      INTEGER       :: L\n!!      REAL(kind=dp) :: t, dmax, da, TMP(3)\n!      REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0\n!\n!      info = 0\n!!      t = TINY(da)\n!!      \n!!      da = ABS(A(1,1)); L = 1\n!!      IF ( ABS(A(2,1))>da ) THEN\n!!        da = ABS(A(2,1)); L = 2\n!!        IF ( ABS(A(3,1))>da ) THEN\n!!          L = 3\n!!        END IF  \n!!      END IF  \n!!      IPVT(1)  = L\n!!      IF (L /=1 ) THEN\n!!         TMP(1:3) = A(L,1:3)\n!!         A(L,1:3) = A(1,1:3)\n!!         A(1,1:3) = TMP(1:3)\n!!      END IF\n!!      IF (ABS(A(1,1)) < t) THEN\n!!         info = 1\n!!         return\n!!      END IF   \n!!\n!      A(2,1) = A(2,1)/A(1,1)\n!      A(2,2) = A(2,2) - A(2,1)*A(1,2)\n!      A(2,3) = A(2,3) - A(2,1)*A(1,3)\n!      A(3,1) = A(3,1)/A(1,1)\n!      A(3,2) = A(3,2) - A(3,1)*A(1,2)\n!      A(3,3) = A(3,3) - A(3,1)*A(1,3)\n!      \n!!      IPVT(2)  = 2\n!!      IF (ABS(A(3,2))>ABS(A(2,2))) THEN\n!!         IPVT(2)  = 3\n!!         TMP(2:3) = A(3,2:3)\n!!         A(3,2:3) = A(2,2:3)\n!!         A(2,2:3) = TMP(2:3)\n!!      END IF\n!!      IF (ABS(A(2,2)) < t) THEN\n!!         info = 1\n!!         return\n!!      END IF   \n!!      \n!      A(3,2)   = A(3,2)/A(2,2)\n!      A(3,3)   = A(3,3) - A(3,2)*A(2,3)\n!      IPVT(3)  = 3\n!      \n!END SUBROUTINE FAC3\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE SOL3(Trans,A,IPVT,b)\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!     SOL3 solves the system 3x3\n!!     A * x = b  or  trans(a) * x = b\n!!     using the factors computed by WGEFA.\n!!\n!!     Trans      = 'N'   to solve  A*x = b ,\n!!                = 'T'   to solve  transpose(A)*x = b\n!!     LINPACK - LIKE \n!!\n!!     Remove comments to use pivoting\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!      CHARACTER     :: Trans\n!      REAL(kind=dp) :: a(3,3),b(3)\n!      INTEGER       :: IPVT(3)\n!!      INTEGER       :: L\n!!      REAL(kind=dp) :: TMP\n!      \n!      SELECT CASE (Trans)\n!\n!      CASE ('n','N')  !  Solve  A * x = b\n!\n!!     Solve  L*y = b\n!!         L = IPVT(1)\n!!         IF (L /= 1) THEN\n!!            TMP = B(1); B(1) = B(L); B(L) = TMP\n!!         END IF\n!         b(2) = b(2)-A(2,1)*b(1)\n!         b(3) = b(3)-A(3,1)*b(1)\n!         \n!!         L = IPVT(2)\n!!         IF (L /= 2) THEN\n!!            TMP = B(2); B(2) = B(L); B(L) = TMP\n!!         END IF\n!         b(3) = b(3)-A(3,2)*b(2)\n!\n!!     Solve  U*x = y\n!         b(3) = b(3)/A(3,3)\n!         b(2) = (b(2)-A(2,3)*b(3))/A(2,2)\n!         b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1)\n!      \n!      \n!      CASE ('t','T')  !  Solve transpose(A) * x = b\n!\n!!      Solve transpose(U)*y = b\n!         b(1) = b(1)/A(1,1)\n!         b(2) = (b(2)-A(1,2)*b(1))/A(2,2)\n!         b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3)\n!\n!!      Solve transpose(L)*x = y\n!         b(2) = b(2)-A(3,2)*b(3)\n!!         L = ipvt(2)\n!!         IF (L /= 2) THEN\n!!            TMP = B(2); B(2) = B(L); B(L) = TMP\n!!         END IF\n!         b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2)\n!!         L = ipvt(1)\n!!         IF (L /= 1) THEN\n!!            TMP = B(1); B(1) = B(L); B(L) = TMP\n!!         END IF\n!   \n!      END SELECT\n!\n!END SUBROUTINE SOL3\n\n! End of SPARSE_UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! KppSolve - sparse back substitution\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      X         - Vector for variables\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE KppSolve ( JVS, X )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! X - Vector for variables\n  REAL(kind=dp) :: X(NVAR)\n\n  X(19) = X(19)-JVS(67)*X(15)\n  X(20) = X(20)-JVS(71)*X(19)\n  X(22) = X(22)-JVS(77)*X(16)\n  X(24) = X(24)-JVS(83)*X(17)\n  X(26) = X(26)-JVS(89)*X(24)-JVS(90)*X(25)\n  X(27) = X(27)-JVS(93)*X(8)-JVS(94)*X(9)-JVS(95)*X(10)-JVS(96)*X(17)-JVS(97)*X(24)-JVS(98)*X(25)-JVS(99)*X(26)\n  X(28) = X(28)-JVS(102)*X(1)-JVS(103)*X(8)-JVS(104)*X(9)-JVS(105)*X(10)-JVS(106)*X(11)-JVS(107)*X(12)-JVS(108)*X(13)&\n            &-JVS(109)*X(14)-JVS(110)*X(15)-JVS(111)*X(16)-JVS(112)*X(17)-JVS(113)*X(18)-JVS(114)*X(20)-JVS(115)*X(21)&\n            &-JVS(116)*X(23)-JVS(117)*X(25)-JVS(118)*X(26)-JVS(119)*X(27)\n  X(29) = X(29)-JVS(125)*X(11)-JVS(126)*X(12)-JVS(127)*X(15)-JVS(128)*X(19)-JVS(129)*X(21)-JVS(130)*X(26)-JVS(131)*X(27)\n  X(30) = X(30)-JVS(135)*X(13)-JVS(136)*X(14)-JVS(137)*X(18)-JVS(138)*X(20)-JVS(139)*X(21)-JVS(140)*X(23)-JVS(141)*X(25)&\n            &-JVS(142)*X(26)-JVS(143)*X(27)-JVS(144)*X(28)-JVS(145)*X(29)\n  X(31) = X(31)-JVS(149)*X(22)-JVS(150)*X(23)-JVS(151)*X(29)-JVS(152)*X(30)\n  X(32) = X(32)-JVS(155)*X(16)-JVS(156)*X(18)-JVS(157)*X(22)-JVS(158)*X(23)-JVS(159)*X(30)-JVS(160)*X(31)\n  X(32) = X(32)/JVS(161)\n  X(31) = (X(31)-JVS(154)*X(32))/(JVS(153))\n  X(30) = (X(30)-JVS(147)*X(31)-JVS(148)*X(32))/(JVS(146))\n  X(29) = (X(29)-JVS(133)*X(30)-JVS(134)*X(31))/(JVS(132))\n  X(28) = (X(28)-JVS(121)*X(29)-JVS(122)*X(30)-JVS(123)*X(31)-JVS(124)*X(32))/(JVS(120))\n  X(27) = (X(27)-JVS(101)*X(30))/(JVS(100))\n  X(26) = (X(26)-JVS(92)*X(27))/(JVS(91))\n  X(25) = (X(25)-JVS(88)*X(27))/(JVS(87))\n  X(24) = (X(24)-JVS(85)*X(25)-JVS(86)*X(27))/(JVS(84))\n  X(23) = (X(23)-JVS(82)*X(32))/(JVS(81))\n  X(22) = (X(22)-JVS(79)*X(23)-JVS(80)*X(32))/(JVS(78))\n  X(21) = (X(21)-JVS(76)*X(29))/(JVS(75))\n  X(20) = (X(20)-JVS(73)*X(21)-JVS(74)*X(29))/(JVS(72))\n  X(19) = (X(19)-JVS(69)*X(21)-JVS(70)*X(29))/(JVS(68))\n  X(18) = (X(18)-JVS(66)*X(32))/(JVS(65))\n  X(17) = (X(17)-JVS(64)*X(27))/(JVS(63))\n  X(16) = (X(16)-JVS(62)*X(32))/(JVS(61))\n  X(15) = (X(15)-JVS(60)*X(29))/(JVS(59))\n  X(14) = (X(14)-JVS(58)*X(32))/(JVS(57))\n  X(13) = (X(13)-JVS(56)*X(32))/(JVS(55))\n  X(12) = (X(12)-JVS(54)*X(29))/(JVS(53))\n  X(11) = (X(11)-JVS(52)*X(29))/(JVS(51))\n  X(10) = (X(10)-JVS(50)*X(27))/(JVS(49))\n  X(9) = (X(9)-JVS(48)*X(27))/(JVS(47))\n  X(8) = (X(8)-JVS(46)*X(27))/(JVS(45))\n  X(7) = (X(7)-JVS(44)*X(30))/(JVS(43))\n  X(6) = (X(6)-JVS(40)*X(26)-JVS(41)*X(30)-JVS(42)*X(31))/(JVS(39))\n  X(5) = (X(5)-JVS(37)*X(29)-JVS(38)*X(30))/(JVS(36))\n  X(4) = (X(4)-JVS(23)*X(13)-JVS(24)*X(14)-JVS(25)*X(18)-JVS(26)*X(20)-JVS(27)*X(21)-JVS(28)*X(23)-JVS(29)*X(25)-JVS(30)&\n           &*X(26)-JVS(31)*X(27)-JVS(32)*X(28)-JVS(33)*X(29)-JVS(34)*X(31)-JVS(35)*X(32))/(JVS(22))\n  X(3) = (X(3)-JVS(21)*X(30))/(JVS(20))\n  X(2) = (X(2)-JVS(3)*X(8)-JVS(4)*X(9)-JVS(5)*X(10)-JVS(6)*X(11)-JVS(7)*X(12)-JVS(8)*X(13)-JVS(9)*X(14)-JVS(10)*X(15)&\n           &-JVS(11)*X(16)-JVS(12)*X(17)-JVS(13)*X(18)-JVS(14)*X(20)-JVS(15)*X(21)-JVS(16)*X(23)-JVS(17)*X(25)-JVS(18)*X(26)&\n           &-JVS(19)*X(31))/(JVS(2))\n  X(1) = X(1)/JVS(1)\n      \nEND SUBROUTINE KppSolve\n\n! End of KppSolve function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! KppSolveTR - sparse, transposed back substitution\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      X         - Vector for variables\n!      XX        - Vector for output variables\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE KppSolveTR ( JVS, X, XX )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! X - Vector for variables\n  REAL(kind=dp) :: X(NVAR)\n! XX - Vector for output variables\n  REAL(kind=dp) :: XX(NVAR)\n\n  XX(1) = X(1)/JVS(1)\n  XX(2) = X(2)/JVS(2)\n  XX(3) = X(3)/JVS(20)\n  XX(4) = X(4)/JVS(22)\n  XX(5) = X(5)/JVS(36)\n  XX(6) = X(6)/JVS(39)\n  XX(7) = X(7)/JVS(43)\n  XX(8) = (X(8)-JVS(3)*XX(2))/(JVS(45))\n  XX(9) = (X(9)-JVS(4)*XX(2))/(JVS(47))\n  XX(10) = (X(10)-JVS(5)*XX(2))/(JVS(49))\n  XX(11) = (X(11)-JVS(6)*XX(2))/(JVS(51))\n  XX(12) = (X(12)-JVS(7)*XX(2))/(JVS(53))\n  XX(13) = (X(13)-JVS(8)*XX(2)-JVS(23)*XX(4))/(JVS(55))\n  XX(14) = (X(14)-JVS(9)*XX(2)-JVS(24)*XX(4))/(JVS(57))\n  XX(15) = (X(15)-JVS(10)*XX(2))/(JVS(59))\n  XX(16) = (X(16)-JVS(11)*XX(2))/(JVS(61))\n  XX(17) = (X(17)-JVS(12)*XX(2))/(JVS(63))\n  XX(18) = (X(18)-JVS(13)*XX(2)-JVS(25)*XX(4))/(JVS(65))\n  XX(19) = X(19)/JVS(68)\n  XX(20) = (X(20)-JVS(14)*XX(2)-JVS(26)*XX(4))/(JVS(72))\n  XX(21) = (X(21)-JVS(15)*XX(2)-JVS(27)*XX(4)-JVS(69)*XX(19)-JVS(73)*XX(20))/(JVS(75))\n  XX(22) = X(22)/JVS(78)\n  XX(23) = (X(23)-JVS(16)*XX(2)-JVS(28)*XX(4)-JVS(79)*XX(22))/(JVS(81))\n  XX(24) = X(24)/JVS(84)\n  XX(25) = (X(25)-JVS(17)*XX(2)-JVS(29)*XX(4)-JVS(85)*XX(24))/(JVS(87))\n  XX(26) = (X(26)-JVS(18)*XX(2)-JVS(30)*XX(4)-JVS(40)*XX(6))/(JVS(91))\n  XX(27) = (X(27)-JVS(31)*XX(4)-JVS(46)*XX(8)-JVS(48)*XX(9)-JVS(50)*XX(10)-JVS(64)*XX(17)-JVS(86)*XX(24)-JVS(88)*XX(25)&\n             &-JVS(92)*XX(26))/(JVS(100))\n  XX(28) = (X(28)-JVS(32)*XX(4))/(JVS(120))\n  XX(29) = (X(29)-JVS(33)*XX(4)-JVS(37)*XX(5)-JVS(52)*XX(11)-JVS(54)*XX(12)-JVS(60)*XX(15)-JVS(70)*XX(19)-JVS(74)*XX(20)&\n             &-JVS(76)*XX(21)-JVS(121)*XX(28))/(JVS(132))\n  XX(30) = (X(30)-JVS(21)*XX(3)-JVS(38)*XX(5)-JVS(41)*XX(6)-JVS(44)*XX(7)-JVS(101)*XX(27)-JVS(122)*XX(28)-JVS(133)&\n             &*XX(29))/(JVS(146))\n  XX(31) = (X(31)-JVS(19)*XX(2)-JVS(34)*XX(4)-JVS(42)*XX(6)-JVS(123)*XX(28)-JVS(134)*XX(29)-JVS(147)*XX(30))/(JVS(153))\n  XX(32) = (X(32)-JVS(35)*XX(4)-JVS(56)*XX(13)-JVS(58)*XX(14)-JVS(62)*XX(16)-JVS(66)*XX(18)-JVS(80)*XX(22)-JVS(82)&\n             &*XX(23)-JVS(124)*XX(28)-JVS(148)*XX(30)-JVS(154)*XX(31))/(JVS(161))\n  XX(32) = XX(32)\n  XX(31) = XX(31)-JVS(160)*XX(32)\n  XX(30) = XX(30)-JVS(152)*XX(31)-JVS(159)*XX(32)\n  XX(29) = XX(29)-JVS(145)*XX(30)-JVS(151)*XX(31)\n  XX(28) = XX(28)-JVS(144)*XX(30)\n  XX(27) = XX(27)-JVS(119)*XX(28)-JVS(131)*XX(29)-JVS(143)*XX(30)\n  XX(26) = XX(26)-JVS(99)*XX(27)-JVS(118)*XX(28)-JVS(130)*XX(29)-JVS(142)*XX(30)\n  XX(25) = XX(25)-JVS(90)*XX(26)-JVS(98)*XX(27)-JVS(117)*XX(28)-JVS(141)*XX(30)\n  XX(24) = XX(24)-JVS(89)*XX(26)-JVS(97)*XX(27)\n  XX(23) = XX(23)-JVS(116)*XX(28)-JVS(140)*XX(30)-JVS(150)*XX(31)-JVS(158)*XX(32)\n  XX(22) = XX(22)-JVS(149)*XX(31)-JVS(157)*XX(32)\n  XX(21) = XX(21)-JVS(115)*XX(28)-JVS(129)*XX(29)-JVS(139)*XX(30)\n  XX(20) = XX(20)-JVS(114)*XX(28)-JVS(138)*XX(30)\n  XX(19) = XX(19)-JVS(71)*XX(20)-JVS(128)*XX(29)\n  XX(18) = XX(18)-JVS(113)*XX(28)-JVS(137)*XX(30)-JVS(156)*XX(32)\n  XX(17) = XX(17)-JVS(83)*XX(24)-JVS(96)*XX(27)-JVS(112)*XX(28)\n  XX(16) = XX(16)-JVS(77)*XX(22)-JVS(111)*XX(28)-JVS(155)*XX(32)\n  XX(15) = XX(15)-JVS(67)*XX(19)-JVS(110)*XX(28)-JVS(127)*XX(29)\n  XX(14) = XX(14)-JVS(109)*XX(28)-JVS(136)*XX(30)\n  XX(13) = XX(13)-JVS(108)*XX(28)-JVS(135)*XX(30)\n  XX(12) = XX(12)-JVS(107)*XX(28)-JVS(126)*XX(29)\n  XX(11) = XX(11)-JVS(106)*XX(28)-JVS(125)*XX(29)\n  XX(10) = XX(10)-JVS(95)*XX(27)-JVS(105)*XX(28)\n  XX(9) = XX(9)-JVS(94)*XX(27)-JVS(104)*XX(28)\n  XX(8) = XX(8)-JVS(93)*XX(27)-JVS(103)*XX(28)\n  XX(7) = XX(7)\n  XX(6) = XX(6)\n  XX(5) = XX(5)\n  XX(4) = XX(4)\n  XX(3) = XX(3)\n  XX(2) = XX(2)\n  XX(1) = XX(1)-JVS(102)*XX(28)\n      \nEND SUBROUTINE KppSolveTR\n\n! End of KppSolveTR function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! BLAS_UTIL - BLAS-LIKE utility functions\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!--------------------------------------------------------------\n!\n! BLAS/LAPACK-like subroutines used by the integration algorithms\n! It is recommended to replace them by calls to the optimized\n!      BLAS/LAPACK library for your machine\n!\n!  (C) Adrian Sandu, Aug. 2004\n!      Virginia Polytechnic Institute and State University\n!--------------------------------------------------------------\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WCOPY(N,X,incX,Y,incY)\n!--------------------------------------------------------------\n!     copies a vector, x, to a vector, y:  y <- x\n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL  SCOPY(N,X,1,Y,1)   or   CALL  DCOPY(N,X,1,Y,1)\n!--------------------------------------------------------------\n!     USE gckpp_Precision\n      \n      INTEGER  :: i,incX,incY,M,MP1,N\n      REAL(kind=dp) :: X(N),Y(N)\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,8)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = X(i)\n        END DO\n        IF( N .LT. 8 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,8\n        Y(i) = X(i)\n        Y(i + 1) = X(i + 1)\n        Y(i + 2) = X(i + 2)\n        Y(i + 3) = X(i + 3)\n        Y(i + 4) = X(i + 4)\n        Y(i + 5) = X(i + 5)\n        Y(i + 6) = X(i + 6)\n        Y(i + 7) = X(i + 7)\n      END DO\n\n      END SUBROUTINE WCOPY\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY)\n!--------------------------------------------------------------\n!     constant times a vector plus a vector: y <- y + Alpha*x\n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SAXPY(N,Alpha,X,1,Y,1) or  CALL DAXPY(N,Alpha,X,1,Y,1)\n!--------------------------------------------------------------\n\n      INTEGER  :: i,incX,incY,M,MP1,N\n      REAL(kind=dp) :: X(N),Y(N),Alpha\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp\n\n      IF (Alpha .EQ. ZERO) RETURN\n      IF (N .LE. 0) RETURN\n\n      M = MOD(N,4)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = Y(i) + Alpha*X(i)\n        END DO\n        IF( N .LT. 4 ) RETURN\n      END IF\n      MP1 = M + 1\n      DO i = MP1,N,4\n        Y(i) = Y(i) + Alpha*X(i)\n        Y(i + 1) = Y(i + 1) + Alpha*X(i + 1)\n        Y(i + 2) = Y(i + 2) + Alpha*X(i + 2)\n        Y(i + 3) = Y(i + 3) + Alpha*X(i + 3)\n      END DO\n      \n      END SUBROUTINE WAXPY\n\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WSCAL(N,Alpha,X,incX)\n!--------------------------------------------------------------\n!     constant times a vector: x(1:N) <- Alpha*x(1:N) \n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SSCAL(N,Alpha,X,1) or  CALL DSCAL(N,Alpha,X,1)\n!--------------------------------------------------------------\n\n      INTEGER  :: i,incX,M,MP1,N\n      REAL(kind=dp)  :: X(N),Alpha\n      REAL(kind=dp), PARAMETER  :: ZERO=0.0_dp, ONE=1.0_dp\n\n      IF (Alpha .EQ. ONE) RETURN\n      IF (N .LE. 0) RETURN\n\n      M = MOD(N,5)\n      IF( M .NE. 0 ) THEN\n        IF (Alpha .EQ. (-ONE)) THEN\n          DO i = 1,M\n            X(i) = -X(i)\n          END DO\n        ELSEIF (Alpha .EQ. ZERO) THEN\n          DO i = 1,M\n            X(i) = ZERO\n          END DO\n        ELSE\n          DO i = 1,M\n            X(i) = Alpha*X(i)\n          END DO\n        END IF\n        IF( N .LT. 5 ) RETURN\n      END IF\n      MP1 = M + 1\n      IF (Alpha .EQ. (-ONE)) THEN\n        DO i = MP1,N,5\n          X(i)     = -X(i)\n          X(i + 1) = -X(i + 1)\n          X(i + 2) = -X(i + 2)\n          X(i + 3) = -X(i + 3)\n          X(i + 4) = -X(i + 4)\n        END DO\n      ELSEIF (Alpha .EQ. ZERO) THEN\n        DO i = MP1,N,5\n          X(i)     = ZERO\n          X(i + 1) = ZERO\n          X(i + 2) = ZERO\n          X(i + 3) = ZERO\n          X(i + 4) = ZERO\n        END DO\n      ELSE\n        DO i = MP1,N,5\n          X(i)     = Alpha*X(i)\n          X(i + 1) = Alpha*X(i + 1)\n          X(i + 2) = Alpha*X(i + 2)\n          X(i + 3) = Alpha*X(i + 3)\n          X(i + 4) = Alpha*X(i + 4)\n        END DO\n      END IF\n\n      END SUBROUTINE WSCAL\n\n!--------------------------------------------------------------\n      REAL(kind=dp) FUNCTION WLAMCH( C )\n!--------------------------------------------------------------\n!     returns epsilon machine\n!     after LAPACK\n!     replace this by the function from the optimized LAPACK implementation:\n!          CALL SLAMCH('E') or CALL DLAMCH('E')\n!--------------------------------------------------------------\n!      USE gckpp_Precision\n\n      CHARACTER ::  C\n      INTEGER    :: i\n      REAL(kind=dp), SAVE  ::  Eps\n      REAL(kind=dp)  ::  Suma\n      REAL(kind=dp), PARAMETER  ::  ONE=1.0_dp, HALF=0.5_dp\n      LOGICAL, SAVE   ::  First=.TRUE.\n\n!$OMP THREADPRIVATE( Eps, First )      \n\n      IF (First) THEN\n        First = .FALSE.\n        Eps = HALF**(16)\n        DO i = 17, 80\n          Eps = Eps*HALF\n          CALL WLAMCH_ADD(ONE,Eps,Suma)\n          IF (Suma.LE.ONE) GOTO 10\n        END DO\n        PRINT*,'ERROR IN WLAMCH. EPS < ',Eps\n        RETURN\n10      Eps = Eps*2\n        i = i-1      \n      END IF\n\n      WLAMCH = Eps\n\n      END FUNCTION WLAMCH\n     \n      SUBROUTINE WLAMCH_ADD( A, B, Suma )\n!      USE gckpp_Precision\n      \n      REAL(kind=dp) A, B, Suma\n      Suma = A + B\n\n      END SUBROUTINE WLAMCH_ADD\n!--------------------------------------------------------------\n\n\n!--------------------------------------------------------------\n      SUBROUTINE SET2ZERO(N,Y)\n!--------------------------------------------------------------\n!     copies zeros into the vector y:  y <- 0\n!     after BLAS\n!--------------------------------------------------------------\n      \n      INTEGER ::  i,M,MP1,N\n      REAL(kind=dp) ::  Y(N)\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0d0\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,8)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = ZERO\n        END DO\n        IF( N .LT. 8 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,8\n        Y(i)     = ZERO\n        Y(i + 1) = ZERO\n        Y(i + 2) = ZERO\n        Y(i + 3) = ZERO\n        Y(i + 4) = ZERO\n        Y(i + 5) = ZERO\n        Y(i + 6) = ZERO\n        Y(i + 7) = ZERO\n      END DO\n\n      END SUBROUTINE SET2ZERO\n\n\n!--------------------------------------------------------------\n      REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) \n!--------------------------------------------------------------\n!     dot produce: wdot = x(1:N)*y(1:N) \n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SDOT(N,X,1,Y,1) or  CALL DDOT(N,X,1,Y,1)\n!--------------------------------------------------------------\n!      USE messy_mecca_kpp_Precision\n!--------------------------------------------------------------\n      IMPLICIT NONE\n      INTEGER :: N, incX, incY\n      REAL(kind=dp) :: DX(N), DY(N) \n\n      INTEGER :: i, IX, IY, M, MP1, NS\n                                 \n      WDOT = 0.0D0 \n      IF (N .LE. 0) RETURN \n      IF (incX .EQ. incY) IF (incX-1) 5,20,60 \n!                                                                       \n!     Code for unequal or nonpositive increments.                       \n!                                                                       \n    5 IX = 1 \n      IY = 1 \n      IF (incX .LT. 0) IX = (-N+1)*incX + 1 \n      IF (incY .LT. 0) IY = (-N+1)*incY + 1 \n      DO i = 1,N \n        WDOT = WDOT + DX(IX)*DY(IY) \n        IX = IX + incX \n        IY = IY + incY \n      END DO \n      RETURN \n!                                                                       \n!     Code for both increments equal to 1.                              \n!                                                                       \n!     Clean-up loop so remaining vector length is a multiple of 5.      \n!                                                                       \n   20 M = MOD(N,5) \n      IF (M .EQ. 0) GO TO 40 \n      DO i = 1,M \n         WDOT = WDOT + DX(i)*DY(i) \n      END DO \n      IF (N .LT. 5) RETURN \n   40 MP1 = M + 1 \n      DO i = MP1,N,5 \n          WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) +  &\n                   DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4)                   \n      END DO \n      RETURN \n!                                                                       \n!     Code for equal, positive, non-unit increments.                    \n!                                                                       \n   60 NS = N*incX \n      DO i = 1,NS,incX \n        WDOT = WDOT + DX(i)*DY(i) \n      END DO \n\n      END FUNCTION WDOT                                          \n\n\n!--------------------------------------------------------------\n      SUBROUTINE WADD(N,X,Y,Z)\n!--------------------------------------------------------------\n!     adds two vectors: z <- x + y\n!     BLAS - like\n!--------------------------------------------------------------\n!     USE gckpp_Precision\n      \n      INTEGER :: i, M, MP1, N\n      REAL(kind=dp) :: X(N),Y(N),Z(N)\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,5)\n      IF( M /= 0 ) THEN\n         DO i = 1,M\n            Z(i) = X(i) + Y(i)\n         END DO\n         IF( N < 5 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,5\n         Z(i)     = X(i)     + Y(i)\n         Z(i + 1) = X(i + 1) + Y(i + 1)\n         Z(i + 2) = X(i + 2) + Y(i + 2)\n         Z(i + 3) = X(i + 3) + Y(i + 3)\n         Z(i + 4) = X(i + 4) + Y(i + 4)\n      END DO\n\n      END SUBROUTINE WADD\n      \n      \n      \n!--------------------------------------------------------------\n      SUBROUTINE WGEFA(N,A,Ipvt,info)\n!--------------------------------------------------------------\n!     WGEFA FACTORS THE MATRIX A (N,N) BY\n!           GAUSS ELIMINATION WITH PARTIAL PIVOTING\n!     LINPACK - LIKE \n!--------------------------------------------------------------\n!\n      INTEGER       :: N,Ipvt(N),info\n      REAL(kind=dp) :: A(N,N)\n      REAL(kind=dp) :: t, dmax, da\n      INTEGER       :: j,k,l\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0\n\n      info = 0\n\nsize: IF (n > 1) THEN\n      \ncol:  DO k = 1, n-1\n\n!        find l = pivot index\n!        l = idamax(n-k+1,A(k,k),1) + k - 1\n         l = k; dmax = abs(A(k,k))\n         DO j = k+1,n\n            da = ABS(A(j,k))\n            IF (da > dmax) THEN\n              l = j; dmax = da\n            END IF\n         END DO\n         Ipvt(k) = l\n\n!        zero pivot implies this column already triangularized\n         IF (ABS(A(l,k)) < TINY(ZERO)) THEN\n            info = k\n            return\n         ELSE   \n            IF (l /= k) THEN\n               t = A(l,k); A(l,k) = A(k,k); A(k,k) = t\n            END IF\n            t = -ONE/A(k,k)\n            CALL WSCAL(n-k,t,A(k+1,k),1)\n            DO j = k+1, n\n               t = A(l,j)\n               IF (l /= k) THEN\n                  A(l,j) = A(k,j); A(k,j) = t\n               END IF\n               CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1)\n            END DO         \n         END IF\n         \n       END DO col\n       \n      END IF size\n      \n      Ipvt(N) = N\n      IF (ABS(A(N,N)) == ZERO) info = N\n      \n      END SUBROUTINE WGEFA\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WGESL(Trans,N,A,Ipvt,b)\n!--------------------------------------------------------------\n!     WGESL solves the system\n!     a * x = b  or  trans(a) * x = b\n!     using the factors computed by WGEFA.\n!\n!     Trans      = 'N'   to solve  A*x = b ,\n!                = 'T'   to solve  transpose(A)*x = b\n!     LINPACK - LIKE \n!--------------------------------------------------------------\n\n      INTEGER       :: N,Ipvt(N)\n      CHARACTER     :: trans\n      REAL(kind=dp) :: A(N,N),b(N)\n      REAL(kind=dp) :: t\n      INTEGER       :: k,kb,l\n\n      \n      SELECT CASE (Trans)\n\n      CASE ('n','N')  !  Solve  A * x = b\n\n!        first solve  L*y = b\n         IF (n >= 2) THEN\n          DO k = 1, n-1\n            l = Ipvt(k)\n            t = b(l)\n            IF (l /= k) THEN\n               b(l) = b(k)\n               b(k) = t\n            END IF\n            CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1)\n          END DO\n         END IF\n!        now solve  U*x = y\n         DO kb = 1, n\n            k = n + 1 - kb\n            b(k) = b(k)/a(k,k)\n            t = -b(k)\n            CALL WAXPY(k-1,t,a(1,k),1,b(1),1)\n         END DO\n      \n      CASE ('t','T')  !  Solve transpose(A) * x = b\n\n!        first solve  trans(U)*y = b\n         DO k = 1, n\n            t = WDOT(k-1,a(1,k),1,b(1),1)\n            b(k) = (b(k) - t)/a(k,k)\n         END DO\n!        now solve trans(L)*x = y\n         IF (n >= 2) THEN\n         DO kb = 1, n-1\n            k = n - kb\n            b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1)\n            l = Ipvt(k)\n            IF (l /= k) THEN\n               t = b(l); b(l) = b(k); b(k) = t\n            END IF\n         END DO\n         END IF\n   \n      END SELECT\n\n      END SUBROUTINE WGESL\n! End of BLAS_UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_LinearAlgebra\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Model.F90",
    "content": "MODULE gckpp_Model\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Completely defines the model gckpp\n!    by using all the associated modules\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Precision\n  USE gckpp_Parameters\n  USE gckpp_Global\n  USE gckpp_Function\n  USE gckpp_Integrator\n  USE gckpp_Rates\n  USE gckpp_Jacobian\n  USE gckpp_LinearAlgebra\n  USE gckpp_Monitor\n  USE gckpp_Util\n\nEND MODULE gckpp_Model\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Monitor.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Utility Data Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Monitor.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Monitor\n\n\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(43) :: SPC_NAMES = (/ &\n     'HgCl2                           ','Hg2ClP                          ','PHg2                            ', & ! index 1 - 3\n     'PHg0                            ','PHg2Br                          ','PHg2OH                          ', & ! index 4 - 6\n     'PHg2Cl                          ','HgClClO                         ','HgClBrO                         ', & ! index 7 - 9\n     'HgClBr                          ','HgOHClO                         ','HgOHBrO                         ', & ! index 10 - 12\n     'HgBrClO                         ','HgBrBrO                         ','HgOHNO2                         ', & ! index 13 - 15\n     'HgBrNO2                         ','HgClNO2                         ','HgBr2                           ', & ! index 16 - 18\n     'HgOHO                           ','HgOHOH                          ','HgOHHO2                         ', & ! index 19 - 21\n     'HgBrO                           ','HgBrHO2                         ','HgClO                           ', & ! index 22 - 24\n     'HgClHO2                         ','HgClOH                          ','HgCl                            ', & ! index 25 - 27\n     'Hg2ORGP                         ','HgOH                            ','Hg0                             ', & ! index 28 - 30\n     'HgBrOH                          ','HgBr                            ','Br                              ', & ! index 31 - 33\n     'Cl                              ','OH                              ','NO2                             ', & ! index 34 - 36\n     'NO                              ','O3                              ','HO2                             ', & ! index 37 - 39\n     'BrO                             ','ClO                             ','CO                              ', & ! index 40 - 42\n     'CH4                             ' /) ! index up to 43\n\n  INTEGER, DIMENSION(1) :: LOOKAT\n  INTEGER, DIMENSION(1) :: MONITOR\n  CHARACTER(LEN=32), DIMENSION(1) :: SMASS\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &\n     '   Hg0 + Br --> PHg2 + PHg2Br + HgBr                                                                ', & ! index 1\n     '       HgBr --> PHg0 + Hg0                                                                          ', & ! index 2\n     '  HgBr + Br --> PHg0 + Hg0                                                                          ', & ! index 3\n     ' HgBr + NO2 --> PHg0 + Hg0                                                                          ', & ! index 4\n     ' HgBr + NO2 --> HgBrNO2                                                                             ', & ! index 5\n     ' HgBr + HO2 --> HgBrHO2                                                                             ', & ! index 6\n     ' HgBr + ClO --> HgBrClO                                                                             ', & ! index 7\n     ' HgBr + BrO --> HgBrBrO                                                                             ', & ! index 8\n     '  HgBr + OH --> HgBrOH                                                                              ', & ! index 9\n     '  HgBr + Br --> HgBr2                                                                               ', & ! index 10\n     'HgBrO + CH4 --> HgBrOH                                                                              ', & ! index 11\n     ' HgBrO + CO --> HgBr                                                                                ', & ! index 12\n     '  HgBr + O3 --> HgBrO                                                                               ', & ! index 13\n     '   Hg0 + Cl --> PHg2 + PHg2Cl + HgCl                                                                ', & ! index 14\n     '  HgCl + Cl --> PHg0 + Hg0                                                                          ', & ! index 15\n     ' HgCl + NO2 --> PHg0 + Hg0                                                                          ', & ! index 16\n     ' HgCl + NO2 --> HgClNO2                                                                             ', & ! index 17\n     ' HgCl + HO2 --> HgClHO2                                                                             ', & ! index 18\n     ' HgCl + ClO --> HgClClO                                                                             ', & ! index 19\n     ' HgCl + BrO --> HgClBrO                                                                             ', & ! index 20\n     '  HgCl + Br --> HgClBr                                                                              ', & ! index 21\n     '  HgCl + OH --> HgClOH                                                                              ', & ! index 22\n     '  HgCl + O3 --> HgClO                                                                               ', & ! index 23\n     'HgClO + CH4 --> HgClOH                                                                              ', & ! index 24\n     ' HgClO + CO --> HgCl                                                                                ', & ! index 25\n     '   Hg0 + OH --> PHg2 + PHg2OH + HgOH                                                                ', & ! index 26\n     '       HgOH --> PHg0 + Hg0                                                                          ', & ! index 27\n     ' HgOH + NO2 --> HgOHNO2                                                                             ', & ! index 28\n     ' HgOH + HO2 --> HgOHHO2                                                                             ', & ! index 29\n     ' HgOH + ClO --> HgOHClO                                                                             ' /) ! index up to 30\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &\n     ' HgOH + BrO --> HgOHBrO                                                                             ', & ! index 31\n     '  HgOH + Br --> PHg2Br + HgBrOH                                                                     ', & ! index 32\n     '  HgOH + OH --> HgOHOH                                                                              ', & ! index 33\n     '  HgOH + O3 --> HgOHO                                                                               ', & ! index 34\n     'HgOHO + CH4 --> HgOHOH                                                                              ', & ! index 35\n     ' HgOHO + CO --> HgOH                                                                                ', & ! index 36\n     '    HgBrNO2 --> Hg2ORGP                                                                             ', & ! index 37\n     '    HgBrHO2 --> Hg2ORGP                                                                             ', & ! index 38\n     '     HgBrOH --> Hg2ORGP                                                                             ', & ! index 39\n     '    HgBrBrO --> Hg2ORGP                                                                             ', & ! index 40\n     '    HgBrClO --> Hg2ORGP                                                                             ', & ! index 41\n     '      HgBr2 --> Hg2ORGP                                                                             ', & ! index 42\n     '    HgClNO2 --> Hg2ORGP                                                                             ', & ! index 43\n     '    HgClHO2 --> Hg2ORGP                                                                             ', & ! index 44\n     '     HgClOH --> Hg2ORGP                                                                             ', & ! index 45\n     '    HgClBrO --> Hg2ORGP                                                                             ', & ! index 46\n     '    HgClClO --> Hg2ORGP                                                                             ', & ! index 47\n     '     HgClBr --> Hg2ORGP                                                                             ', & ! index 48\n     '      HgCl2 --> Hg2ORGP                                                                             ', & ! index 49\n     '    HgOHNO2 --> Hg2ORGP                                                                             ', & ! index 50\n     '    HgOHHO2 --> Hg2ORGP                                                                             ', & ! index 51\n     '     HgOHOH --> Hg2ORGP                                                                             ', & ! index 52\n     '    HgOHBrO --> Hg2ORGP                                                                             ', & ! index 53\n     '    HgOHClO --> Hg2ORGP                                                                             ', & ! index 54\n     '    HgBrNO2 --> Hg2ClP                                                                              ', & ! index 55\n     '    HgBrHO2 --> Hg2ClP                                                                              ', & ! index 56\n     '     HgBrOH --> Hg2ClP                                                                              ', & ! index 57\n     '    HgBrBrO --> Hg2ClP                                                                              ', & ! index 58\n     '    HgBrClO --> Hg2ClP                                                                              ', & ! index 59\n     '      HgBr2 --> Hg2ClP                                                                              ' /) ! index up to 60\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &\n     '    HgClNO2 --> Hg2ClP                                                                              ', & ! index 61\n     '    HgClHO2 --> Hg2ClP                                                                              ', & ! index 62\n     '     HgClOH --> Hg2ClP                                                                              ', & ! index 63\n     '    HgClBrO --> Hg2ClP                                                                              ', & ! index 64\n     '    HgClClO --> Hg2ClP                                                                              ', & ! index 65\n     '     HgClBr --> Hg2ClP                                                                              ', & ! index 66\n     '    HgOHNO2 --> Hg2ClP                                                                              ', & ! index 67\n     '    HgOHHO2 --> Hg2ClP                                                                              ', & ! index 68\n     '     HgOHOH --> Hg2ClP                                                                              ', & ! index 69\n     '    HgOHBrO --> Hg2ClP                                                                              ', & ! index 70\n     '    HgOHClO --> Hg2ClP                                                                              ', & ! index 71\n     '        NO2 --> NO + O3                                                                             ', & ! index 72\n     '        BrO --> Br + O3                                                                             ', & ! index 73\n     '        ClO --> Cl + O3                                                                             ', & ! index 74\n     '       HgBr --> PHg0 + Hg0 + Br                                                                     ', & ! index 75\n     '    HgBrNO2 --> 0.9 HgBrO + 0.1 HgBr + 0.1 NO2 + 0.9 NO                                             ', & ! index 76\n     '    HgBrHO2 --> 0.67 PHg0 + 0.25 HgBrO + 0.67 Hg0 + 0.01 HgBrOH + 0.07 HgBr + 0.67 Br + 0.26... etc.', & ! index 77\n     '     HgBrOH --> 0.49 PHg0 + 0.35 PHg2OH + 0.35 HgOH + 0.49 Hg0 + 0.01 HgBrOH + 0.15 HgBr + 0... etc.', & ! index 78\n     '      HgBr2 --> 0.4 PHg0 + 0.4 Hg0 + 0.6 HgBr + 1.4 Br                                              ', & ! index 79\n     '    HgBrBrO --> PHg0 + Hg0 + BrO                                                                    ', & ! index 80\n     '    HgBrClO --> PHg0 + Hg0 + Br + Cl                                                                ', & ! index 81\n     '    HgClNO2 --> 0.9 HgClO + 0.1 HgCl + 0.1 NO2 + 0.9 NO                                             ', & ! index 82\n     '    HgClHO2 --> 0.67 PHg0 + 0.25 HgClO + 0.01 HgClOH + 0.07 HgCl + 0.67 Hg0 + 0.67 Cl + 0.26... etc.', & ! index 83\n     '     HgClOH --> 0.49 PHg0 + 0.35 PHg2OH + 0.01 HgClOH + 0.15 HgCl + 0.35 HgOH + 0.49 Hg0 + 0... etc.', & ! index 84\n     '     HgClBr --> HgCl + Br                                                                           ', & ! index 85\n     '    HgClBrO --> HgCl + BrO                                                                          ', & ! index 86\n     '    HgClClO --> HgCl + ClO                                                                          ', & ! index 87\n     '       HgOH --> PHg0 + Hg0 + OH                                                                     ', & ! index 88\n     '    HgOHNO2 --> 0.9 HgOHO + 0.1 HgOH + 0.1 NO2 + 0.9 NO                                             ', & ! index 89\n     '    HgOHHO2 --> 0.67 PHg0 + 0.25 HgOHO + 0.01 HgOHOH + 0.07 HgOH + 0.67 Hg0 + 0.67 Cl + 0.26... etc.' /) ! index up to 90\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(4) :: EQN_NAMES_3 = (/ &\n     '     HgOHOH --> PHg0 + Hg0 + 2 OH                                                                   ', & ! index 91\n     '    HgOHBrO --> HgOH + BrO                                                                          ', & ! index 92\n     '    HgOHClO --> HgOH + ClO                                                                          ', & ! index 93\n     '    Hg2ORGP --> PHg0 + Hg0                                                                          ' /) ! index up to 94\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(94) :: EQN_NAMES = (/&\n    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3 /)\n\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(5) :: FAM_NAMES = (/ &\n     'PHg2                            ','PHg0                            ','PHg2Br                          ', & ! index 1 - 3\n     'PHg2OH                          ','PHg2Cl                          ' /) ! index up to 5\n\n! Begin inlined code from F90_DATA\n\n! End inlined code from F90_DATA\n\n\nEND MODULE gckpp_Monitor\n"
  },
  {
    "path": "KPP/Hg/gckpp_Parameters.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Parameter Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Parameters.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Parameters\n\n  USE gckpp_Precision\n  PUBLIC\n  SAVE\n\n\n! NSPEC - Number of chemical species\n  INTEGER, PARAMETER :: NSPEC = 43 \n! NVAR - Number of Variable species\n  INTEGER, PARAMETER :: NVAR = 32 \n! NFAM - Number of Prod/Loss Families\n  INTEGER, PARAMETER :: NFAM = 5 \n! NVARACT - Number of Active species\n  INTEGER, PARAMETER :: NVARACT = 26 \n! NFIX - Number of Fixed species\n  INTEGER, PARAMETER :: NFIX = 11 \n! NREACT - Number of reactions\n  INTEGER, PARAMETER :: NREACT = 94 \n! NVARST - Starting of variables in conc. vect.\n  INTEGER, PARAMETER :: NVARST = 1 \n! NFIXST - Starting of fixed in conc. vect.\n  INTEGER, PARAMETER :: NFIXST = 33 \n! NONZERO - Number of nonzero entries in Jacobian\n  INTEGER, PARAMETER :: NONZERO = 155 \n! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian\n  INTEGER, PARAMETER :: LU_NONZERO = 161 \n! CNVAR - (NVAR+1) Number of elements in compressed row format\n  INTEGER, PARAMETER :: CNVAR = 33 \n! NLOOKAT - Number of species to look at\n  INTEGER, PARAMETER :: NLOOKAT = 0 \n! NMONITOR - Number of species to monitor\n  INTEGER, PARAMETER :: NMONITOR = 0 \n! NMASS - Number of atoms to check mass balance\n  INTEGER, PARAMETER :: NMASS = 1 \n\n! Index declaration for variable species in C and VAR\n!   VAR(ind_spc) = C(ind_spc)\n\n  INTEGER, PARAMETER :: ind_HgCl2 = 1 \n  INTEGER, PARAMETER :: ind_Hg2ClP = 2 \n  INTEGER, PARAMETER :: ind_PHg2 = 3 \n  INTEGER, PARAMETER :: ind_PHg0 = 4 \n  INTEGER, PARAMETER :: ind_PHg2Br = 5 \n  INTEGER, PARAMETER :: ind_PHg2OH = 6 \n  INTEGER, PARAMETER :: ind_PHg2Cl = 7 \n  INTEGER, PARAMETER :: ind_HgClClO = 8 \n  INTEGER, PARAMETER :: ind_HgClBrO = 9 \n  INTEGER, PARAMETER :: ind_HgClBr = 10 \n  INTEGER, PARAMETER :: ind_HgOHClO = 11 \n  INTEGER, PARAMETER :: ind_HgOHBrO = 12 \n  INTEGER, PARAMETER :: ind_HgBrClO = 13 \n  INTEGER, PARAMETER :: ind_HgBrBrO = 14 \n  INTEGER, PARAMETER :: ind_HgOHNO2 = 15 \n  INTEGER, PARAMETER :: ind_HgBrNO2 = 16 \n  INTEGER, PARAMETER :: ind_HgClNO2 = 17 \n  INTEGER, PARAMETER :: ind_HgBr2 = 18 \n  INTEGER, PARAMETER :: ind_HgOHO = 19 \n  INTEGER, PARAMETER :: ind_HgOHOH = 20 \n  INTEGER, PARAMETER :: ind_HgOHHO2 = 21 \n  INTEGER, PARAMETER :: ind_HgBrO = 22 \n  INTEGER, PARAMETER :: ind_HgBrHO2 = 23 \n  INTEGER, PARAMETER :: ind_HgClO = 24 \n  INTEGER, PARAMETER :: ind_HgClHO2 = 25 \n  INTEGER, PARAMETER :: ind_HgClOH = 26 \n  INTEGER, PARAMETER :: ind_HgCl = 27 \n  INTEGER, PARAMETER :: ind_Hg2ORGP = 28 \n  INTEGER, PARAMETER :: ind_HgOH = 29 \n  INTEGER, PARAMETER :: ind_Hg0 = 30 \n  INTEGER, PARAMETER :: ind_HgBrOH = 31 \n  INTEGER, PARAMETER :: ind_HgBr = 32 \n\n! Index declaration for fixed species in C\n!   C(ind_spc)\n\n  INTEGER, PARAMETER :: ind_Br = 33 \n  INTEGER, PARAMETER :: ind_Cl = 34 \n  INTEGER, PARAMETER :: ind_OH = 35 \n  INTEGER, PARAMETER :: ind_NO2 = 36 \n  INTEGER, PARAMETER :: ind_NO = 37 \n  INTEGER, PARAMETER :: ind_O3 = 38 \n  INTEGER, PARAMETER :: ind_HO2 = 39 \n  INTEGER, PARAMETER :: ind_BrO = 40 \n  INTEGER, PARAMETER :: ind_ClO = 41 \n  INTEGER, PARAMETER :: ind_CO = 42 \n  INTEGER, PARAMETER :: ind_CH4 = 43 \n\n! Index declaration for fixed species in FIX\n!    FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc)\n\n  INTEGER, PARAMETER :: indf_Br = 1 \n  INTEGER, PARAMETER :: indf_Cl = 2 \n  INTEGER, PARAMETER :: indf_OH = 3 \n  INTEGER, PARAMETER :: indf_NO2 = 4 \n  INTEGER, PARAMETER :: indf_NO = 5 \n  INTEGER, PARAMETER :: indf_O3 = 6 \n  INTEGER, PARAMETER :: indf_HO2 = 7 \n  INTEGER, PARAMETER :: indf_BrO = 8 \n  INTEGER, PARAMETER :: indf_ClO = 9 \n  INTEGER, PARAMETER :: indf_CO = 10 \n  INTEGER, PARAMETER :: indf_CH4 = 11 \n\nEND MODULE gckpp_Parameters\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Precision.F90",
    "content": "\nMODULE gckpp_Precision\n\n!\n! Definition of different levels of accuracy\n! for REAL variables using KIND parameterization\n!\n! KPP SP - Single precision kind\n  INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30)\n! KPP DP - Double precision kind\n  INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300)\n! KPP QP - Quadruple precision kind\n  INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400)\n\nEND MODULE gckpp_Precision\n\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Rates.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The Reaction Rates File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Rates.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Rates\n\n  USE gckpp_Parameters\n  USE gckpp_Global\n  IMPLICIT NONE\n  INTEGER, PARAMETER :: ASSOC = 1, DISSOC = 2\n\n  PRIVATE :: ARR_abc_dp, ARR_abc_sp\n  INTERFACE ARR_abc\n     MODULE PROCEDURE ARR_abc_dp\n     MODULE PROCEDURE ARR_abc_sp\n  END INTERFACE ARR_abc\n\n  PRIVATE :: ARR_ab_dp, ARR_ab_sp\n  INTERFACE ARR_ab\n     MODULE PROCEDURE ARR_ab_dp\n     MODULE PROCEDURE ARR_ab_sp\n  END INTERFACE ARR_ab\n\n  PRIVATE :: ARR_ac_dp, ARR_ac_sp\n  INTERFACE ARR_ac\n     MODULE PROCEDURE ARR_ac_dp\n     MODULE PROCEDURE ARR_ac_sp\n  END INTERFACE ARR_ac\n\n  PRIVATE :: EP2_dp, EP2_sp\n  INTERFACE EP2\n     MODULE PROCEDURE EP2_dp\n     MODULE PROCEDURE EP2_sp\n  END INTERFACE EP2\n\n  PRIVATE :: EP3_dp, EP3_sp\n  INTERFACE EP3\n     MODULE PROCEDURE EP3_dp\n     MODULE PROCEDURE EP3_sp\n  END INTERFACE EP3\n\n  PRIVATE :: FALL_dp, FALL_sp\n  INTERFACE FALL\n     MODULE PROCEDURE FALL_dp\n     MODULE PROCEDURE FALL_sp\n  END INTERFACE FALL\n\n  PRIVATE :: k3rd_jpl_dp, k3rd_jpl_sp\n  INTERFACE k3rd_jpl\n     MODULE PROCEDURE k3rd_jpl_dp\n     MODULE PROCEDURE k3rd_jpl_sp\n  END INTERFACE k3rd_jpl\n\n  PRIVATE :: k3rd_jpl_activation_dp, k3rd_jpl_activation_sp\n  INTERFACE  k3rd_jpl_activation\n     MODULE PROCEDURE  k3rd_jpl_activation_dp\n     MODULE PROCEDURE  k3rd_jpl_activation_sp\n  END INTERFACE  k3rd_jpl_activation\n\n  PRIVATE :: k3rd_iupac_dp, k3rd_iupac_sp\n  INTERFACE k3rd_iupac\n     MODULE PROCEDURE k3rd_iupac_dp\n     MODULE PROCEDURE k3rd_iupac_sp\n  END INTERFACE k3rd_iupac\n\nCONTAINS\n\n\n\n! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  User-defined Rate Law functions\n!\n!  NOTE: For computational efficiency, we have created duplicate rate law\n!  routines here that take either all single precision or all double precision\n!  arguments.  Explicit casts to DBLE are skipped in the functions that take\n!  all double precision arguments (as this removes unneeded computations).\n!\n!  These functions are overloaded by INTERFACE statements, which are located\n!  in file UserRateLawsInterfaces.f90.  The UserRateLawsInterfaces.f90 file\n!  will be in-lined into the top of the gckpp_Rates module.\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  FUNCTION ARR_abc_dp( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0, c0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0, c0\n    REAL(kind=dp) :: k\n    k = a0 * EXP(-b0/TEMP) * (TEMP/300.0_dp)**C0\n  END FUNCTION ARR_abc_dp\n\n  FUNCTION ARR_abc_sp( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0, c0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0, c0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * EXP(-DBLE(b0)/TEMP) * (TEMP/300.0_dp)**DBLE(c0)\n  END FUNCTION ARR_abc_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION ARR_ab_dp( a0, b0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0\n    REAL(kind=dp) :: k\n    k = a0 * EXP(-b0/TEMP)\n  END FUNCTION ARR_ab_dp\n\n  FUNCTION ARR_ab_sp( a0, b0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * EXP(-DBLE(b0)/TEMP)\n  END FUNCTION ARR_ab_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION ARR_ac_dp( a0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, c0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(kind=dp) :: k\n    k = a0 * (TEMP/300.0_dp)**C0\n  END FUNCTION ARR_ac_dp\n\n  FUNCTION ARR_ac_sp( a0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, c0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, c0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * (TEMP/300.0_dp)**DBLE(c0)\n  END FUNCTION ARR_ac_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION EP2_dp( a0, c0, a2, c2, a3, c3 ) RESULT( k )\n    ! EP2 function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a0, c0, a2, c2, a3, c3\n    REAL(dp) :: k0, k2, k3\n    REAL(kind=dp) :: k\n    k0 = a0 * EXP(-c0/temp)\n    k2 = a2 * EXP(-c2/temp)\n    k3 = a3 * EXP(-c3/temp)\n    k3 = k3 * CFACTOR * 1.0E6_dp\n    k  = k0 + k3/(1.0_dp + k3/k2)\n  END FUNCTION EP2_dp\n\n  FUNCTION EP2_sp( a0, c0, a2, c2, a3, c3 ) RESULT( k )\n    ! EP2 function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a0, c0, a2, c2, a3, c3\n    REAL(dp) :: k0, k2, k3\n    REAL(kind=dp) :: k\n    k0 = DBLE(a0) * EXP(-DBLE(c0)/TEMP)\n    k2 = DBLE(a2) * EXP(-DBLE(c2)/TEMP)\n    k3 = DBLE(a3) * EXP(-DBLE(c3)/TEMP)\n    k3 = k3 * CFACTOR * 1.0E6_dp\n    k  = k0 + K3/(1.0_dp + k3/k2)\n  END FUNCTION EP2_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION EP3_dp( a1, c1, a2, c2) RESULT( k )\n    ! EP3 function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a1, c1, a2, c2\n    REAL(dp) :: k1, k2\n    REAL(kind=dp) :: k\n    k1 = a1 * EXP(-c1/TEMP)\n    k2 = a2 * EXP(-c2/TEMP)\n    k  = k1 + k2*(1.0E6_dp * CFACTOR)\n  END FUNCTION EP3_dp\n\n  FUNCTION EP3_sp( a1, c1, a2, c2 ) RESULT( k )\n    ! EP3 function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a1, c1, a2, c2\n    REAL(dp) :: k1, k2\n    REAL(kind=dp) :: k\n    k1 = DBLE(a1) * EXP(-DBLE(c1)/TEMP)\n    k2 = DBLE(a2) * EXP(-DBLE(c2)/TEMP)\n    k  = k1 + k2*(1.0E6_dp * CFACTOR)\n  END FUNCTION EP3_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION FALL_dp( a0, b0, c0, a1, b1, c1, cf ) RESULT( k )\n    ! FALL function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0, c0, a1, b1, c1, cf\n    REAL(dp) :: k0, k1\n    REAL(kind=dp) :: k\n    k0 = a0 * EXP(-b0/TEMP) * (TEMP/300.0_dp)**c0\n    k1 = a1 * EXP(-b1/TEMP) * (TEMP/300.0_dp)**c1\n    k0 = k0 * CFACTOR * 1.0E6_dp\n    k1 = k0 / k1\n    k  = (k0/(1.0_dp+k1)) * cf**(1.0_dp/(1.0_dp+(LOG10(k1))**2))\n  END FUNCTION FALL_dp\n\n  FUNCTION FALL_sp( a0, b0, c0, a1, b1, c1, cf ) RESULT( k )\n    ! FALL function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0, c0, a1, b1, c1, cf\n    REAL(dp) :: k0, k1\n    REAL(kind=dp) :: k\n    k0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0)\n    k1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1)\n    k0 = k0 * CFACTOR * 1.0E6_dp\n    k1 = k0 / k1\n    k  = (k0/(1.0_dp+k1)) * DBLE(cf)**(1.0_dp/(1.0_dp+(LOG10(k1))**2))\n  END FUNCTION FALL_sp\n\n  !---------------------------------------------------------------------------\n\n  ! JPL (jpldataeval.jpl.nasa.gov) three-body reaction formula:\n  \n  REAL(dp) FUNCTION k3rd_jpl_dp(cair,k0_300K,n,kinf_300K,m,fc) ! dp args\n    INTRINSIC LOG10\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)\n    REAL(dp) :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help  = 300._dp/temp\n    k0_T     = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T   = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio  = k0_T/kinf_T\n    k3rd_jpl_dp = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))\n  END FUNCTION k3rd_jpl_dp\n\n  REAL(kind=dp) FUNCTION k3rd_jpl_sp(cair,k0_300K,n,kinf_300K,m,fc) ! sp args\n    INTRINSIC LOG10\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)\n    REAL(sp) :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help  = 300._dp/temp\n    k0_T     = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T   = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio  = k0_T/kinf_T\n    k3rd_jpl_sp = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))\n  END FUNCTION k3rd_jpl_sp\n\n  ! --------------------------------------------------------------------------\n\n  ! JPL (jpldataeval.jpl.nasa.gov) termolecular chemical activation reaction:\n\n  FUNCTION k3rd_jpl_activation_dp(cair,k0_298K,n,kinf_298K,m,A,B) ! dp args\n    INTRINSIC :: LOG10\n    REAL(dp), DIMENSION(2) :: k3rd_jpl_activation_dp\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_298K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_298K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: A         ! for k_int\n    REAL(dp), INTENT(IN) :: B         ! for k_int\n    REAL(dp)             :: zt_help, k0_TM, kinf_T, k_ratio, k_f, k_int, k_fCA\n    zt_help = 298./temp\n    k0_TM   = k0_298K   * zt_help**n * cair ! k_0   at current T * M\n    kinf_T  = kinf_298K * zt_help**m        ! k_inf at current T\n    k_ratio = k0_TM/kinf_T\n    k_f     = k0_TM/(1.+k_ratio)*0.6**(1./(1.+LOG10(k_ratio)**2))\n    k_int   = A * exp(-B/temp)\n    k_fCA   = k_int * (1. - k_f/kinf_T)\n    k3rd_jpl_activation_dp(ASSOC)  = k_f\n    k3rd_jpl_activation_dp(DISSOC) = k_fCA\n  END FUNCTION k3rd_jpl_activation_dp\n\n  FUNCTION k3rd_jpl_activation_sp(cair,k0_298K,n,kinf_298K,m,A,B) ! sp args\n    INTRINSIC :: LOG10\n    REAL(kind=dp), DIMENSION(2) :: k3rd_jpl_activation_sp\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_298K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_298K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: A         ! for k_int\n    REAL(sp), INTENT(IN) :: B         ! for k_int\n    REAL(sp)             :: zt_help, k0_TM, kinf_T, k_ratio, k_f, k_int, k_fCA\n    zt_help = 298./temp\n    k0_TM   = k0_298K   * zt_help**n * cair ! k_0   at current T * M\n    kinf_T  = kinf_298K * zt_help**m        ! k_inf at current T\n    k_ratio = k0_TM/kinf_T\n    k_f     = k0_TM/(1.+k_ratio)*0.6**(1./(1.+LOG10(k_ratio)**2))\n    k_int   = A * exp(-B/temp)\n    k_fCA   = k_int * (1. - k_f/kinf_T)\n    k3rd_jpl_activation_sp(ASSOC)  = k_f\n    k3rd_jpl_activation_sp(DISSOC) = k_fCA\n  END FUNCTION k3rd_jpl_activation_sp\n\n  ! --------------------------------------------------------------------------\n\n  ! IUPAC (iupac.pole-ether.fr) three-body reaction formula:\n\n  REAL(dp) FUNCTION k3rd_iupac_dp(cair,k0_300K,n,kinf_300K,m,fc) ! dp args\n    INTRINSIC :: LOG10\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: fc        ! broadening factor (e.g. 0.45 or 0.6...)\n    REAL(dp)             :: nu        ! N\n    REAL(dp)             :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help = 300._dp/temp\n    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio = k0_T/kinf_T\n    nu      = 0.75-1.27*LOG10(fc)\n    k3rd_iupac_dp = k0_T/(1._dp+k_ratio)* &\n      fc**(1._dp/(1._dp+(LOG10(k_ratio)/nu)**2))\n  END FUNCTION k3rd_iupac_dp\n\n  REAL(kind=dp) FUNCTION k3rd_iupac_sp(cair,k0_300K,n,kinf_300K,m,fc) ! sp args\n    INTRINSIC :: LOG10\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: fc        ! broadening factor (e.g. 0.45 or 0.6...)\n    REAL(sp)             :: nu        ! N\n    REAL(sp)             :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help = 300._dp/temp\n    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio = k0_T/kinf_T\n    nu      = 0.75-1.27*LOG10(fc)\n    k3rd_iupac_sp = k0_T/(1._dp+k_ratio)* &\n      fc**(1._dp/(1._dp+(LOG10(k_ratio)/nu)**2))\n  END FUNCTION k3rd_iupac_sp\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  End of User-defined Rate Law functions\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! End Rate Law Functions from KPP_HOME/util/UserRateLaws\n\n\n! Begin inlined code from F90_RATES\n\n\n  ! All rates are included in Hg_RateLawFuncs.F90, which\n  ! gets referenced directly from subroutine Update_Rconst.\n\n! End inlined code from F90_RATES\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Update_SUN - update SUN light using TIME\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  SUBROUTINE Update_SUN()\n    USE gckpp_Parameters\n    USE gckpp_Global\n\n    IMPLICIT NONE\n\n    REAL(kind=dp) :: SunRise, SunSet\n    REAL(kind=dp) :: Thour, Tlocal, Ttmp \n    ! PI - Value of pi\n    REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0\n    \n    SunRise = 4.5_dp \n    SunSet  = 19.5_dp \n    Thour = TIME/3600.0_dp \n    Tlocal = Thour - (INT(Thour)/24)*24\n\n    IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN\n       Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise)\n       IF (Ttmp.GT.0) THEN\n          Ttmp =  Ttmp*Ttmp\n       ELSE\n          Ttmp = -Ttmp*Ttmp\n       END IF\n       SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp \n    ELSE\n       SUN = 0.0_dp \n    END IF\n\n END SUBROUTINE Update_SUN\n\n! End of Update_SUN function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\nSUBROUTINE Update_RCONST ( YIN )\n\n! Begin inlined code from F90_RCONST_USE\n\n\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (09 Dec 2021)\n  USE Hg_RateLawFuncs\n\n! End inlined code from F90_RCONST_USE\n\n! YIN - Optional input concentrations of variable species\n  REAL(kind=dp), OPTIONAL :: YIN(NVAR)\n\n! Y - Concentrations of species (local)\n  REAL(kind=dp) :: Y(NSPEC)\n\n! Ensure local Y array is filled with variable and constant concentrations\n  Y(1:NSPEC) = C(1:NSPEC)\n\n! Update local Y array if variable concentrations are provided\n  if (present(YIN)) Y(1:NVAR) = YIN(1:NVAR)\n\n\n\n! Begin inlined code from F90_RCONST\n\n\n! End inlined code from F90_RCONST\n\n  RCONST(1) = (GCARR_ab(1.46d-32,1.86d0)*NUMDEN)\n  RCONST(2) = (GCARR_abc(1.6d-9,1.86d0,-7801.0d0)*NUMDEN)\n  RCONST(3) = (3.9d-11)\n  RCONST(4) = (3.0d-12)\n  RCONST(5) = (GCJPLPR_abab(4.3d-30,5.9d0,1.2d-10,1.90d0,0.6d0))\n  RCONST(6) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(7) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(8) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(9) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(10) = (3.0d-11)\n  RCONST(11) = (GCARR_ac(4.1d-12,-856.0d0))\n  RCONST(12) = (GCARR_ac(6.0d-11,-550.0d0))\n  RCONST(13) = (3.0d-11)\n  RCONST(14) = (GCARR_ac(2.25d-33,680.0d0)*NUMDEN)\n  RCONST(15) = (3.9d-11)\n  RCONST(16) = (3.0d-12)\n  RCONST(17) = (GCJPLPR_abab(4.3d-30,5.9d0,1.2d-10,1.90d0,0.6d0))\n  RCONST(18) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(19) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(20) = (GCJPLPR_abab(4.3d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(21) = (3.0d-11)\n  RCONST(22) = (3.0d-11)\n  RCONST(23) = (3.0d-11)\n  RCONST(24) = (GCARR_ac(4.1d-12,-856.0d0))\n  RCONST(25) = (GCARR_ac(6.0d-11,-550.0d0))\n  RCONST(26) = (GCARR_ac(3.34d-33,43.0d0)*NUMDEN)\n  RCONST(27) = (GCARR_ac(1.22d-9,-5720.0d0)*NUMDEN)\n  RCONST(28) = (GCJPLPR_abab(4.1d-30,5.9d0,1.2E-10,1.90d0,0.6d0))\n  RCONST(29) = (GCJPLPR_abab(4.1d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(30) = (GCJPLPR_abab(4.1d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(31) = (GCJPLPR_abab(4.1d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(32) = (GCJPLPR_abab(4.1d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(33) = (GCJPLPR_abab(4.1d-30,5.9d0,6.9d-11,2.40d0,0.6d0))\n  RCONST(34) = (3.0d-11)\n  RCONST(35) = (GCARR_ac(4.1d-12,-856.0d0))\n  RCONST(36) = (GCARR_ac(6.0d-11,-550.0d0))\n  RCONST(37) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgBrNO2)))\n  RCONST(38) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgBrHO2)))\n  RCONST(39) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgBrOH)))\n  RCONST(40) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgBrBrO)))\n  RCONST(41) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgBrClO)))\n  RCONST(42) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgBr2)))\n  RCONST(43) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgClNO2)))\n  RCONST(44) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgClHO2)))\n  RCONST(45) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgClOH)))\n  RCONST(46) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgClBrO)))\n  RCONST(47) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgClClO)))\n  RCONST(48) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgClBr)))\n  RCONST(49) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgCl2)))\n  RCONST(50) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgOHNO2)))\n  RCONST(51) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgOHHO2)))\n  RCONST(52) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgOHOH)))\n  RCONST(53) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgOHBrO)))\n  RCONST(54) = (Het_HgIIP_Org(State_Het,0.1d0,SR_MW(ind_HgOHClO)))\n  RCONST(55) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgBrNO2)))\n  RCONST(56) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgBrHO2)))\n  RCONST(57) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgBrOH)))\n  RCONST(58) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgBrBrO)))\n  RCONST(59) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgBrClO)))\n  RCONST(60) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgBr2)))\n  RCONST(61) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgClNO2)))\n  RCONST(62) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgClHO2)))\n  RCONST(63) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgClOH)))\n  RCONST(64) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgClBrO)))\n  RCONST(65) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgClClO)))\n  RCONST(66) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgClBr)))\n  RCONST(67) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgOHNO2)))\n  RCONST(68) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgOHHO2)))\n  RCONST(69) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgOHOH)))\n  RCONST(70) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgOHBrO)))\n  RCONST(71) = (Het_HgIIP_Inorg(State_Het,0.1d0,SR_MW(ind_HgOHClO)))\n  RCONST(72) = (PHOTOL(25))\n  RCONST(73) = (PHOTOL(26))\n  RCONST(74) = (PHOTOL(27))\n  RCONST(75) = (PHOTOL(4))\n  RCONST(76) = (PHOTOL(7))\n  RCONST(77) = (PHOTOL(8))\n  RCONST(78) = (PHOTOL(9))\n  RCONST(79) = (PHOTOL(10))\n  RCONST(80) = (PHOTOL(11))\n  RCONST(81) = (PHOTOL(12))\n  RCONST(82) = (PHOTOL(14))\n  RCONST(83) = (PHOTOL(15))\n  RCONST(84) = (PHOTOL(16))\n  RCONST(85) = (PHOTOL(17))\n  RCONST(86) = (PHOTOL(18))\n  RCONST(87) = (PHOTOL(19))\n  RCONST(88) = (PHOTOL(6))\n  RCONST(89) = (PHOTOL(20))\n  RCONST(90) = (PHOTOL(21))\n  RCONST(91) = (PHOTOL(5))\n  RCONST(92) = (PHOTOL(23))\n  RCONST(93) = (PHOTOL(24))\n  RCONST(94) = (PHOTOL(13))\n\nEND SUBROUTINE UPDATE_RCONST\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Update_PHOTO - function to update photolytical rate constants\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Update_PHOTO ( )\n\n\n! Begin inlined code from F90_RCONST_USE\n\n\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (09 Dec 2021)\n  USE Hg_RateLawFuncs\n\n! End inlined code from F90_RCONST_USE\n\n\n! Begin inlined code from F90_RCONST\n\n\n! End inlined code from F90_RCONST\n\n  RCONST(72) = (PHOTOL(25))\n  RCONST(73) = (PHOTOL(26))\n  RCONST(74) = (PHOTOL(27))\n  RCONST(75) = (PHOTOL(4))\n  RCONST(76) = (PHOTOL(7))\n  RCONST(77) = (PHOTOL(8))\n  RCONST(78) = (PHOTOL(9))\n  RCONST(79) = (PHOTOL(10))\n  RCONST(80) = (PHOTOL(11))\n  RCONST(81) = (PHOTOL(12))\n  RCONST(82) = (PHOTOL(14))\n  RCONST(83) = (PHOTOL(15))\n  RCONST(84) = (PHOTOL(16))\n  RCONST(85) = (PHOTOL(17))\n  RCONST(86) = (PHOTOL(18))\n  RCONST(87) = (PHOTOL(19))\n  RCONST(88) = (PHOTOL(6))\n  RCONST(89) = (PHOTOL(20))\n  RCONST(90) = (PHOTOL(21))\n  RCONST(91) = (PHOTOL(5))\n  RCONST(92) = (PHOTOL(23))\n  RCONST(93) = (PHOTOL(24))\n  RCONST(94) = (PHOTOL(13))\n      \nEND SUBROUTINE Update_PHOTO\n\n! End of Update_PHOTO function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Rates\n\n"
  },
  {
    "path": "KPP/Hg/gckpp_Util.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Auxiliary Routines File\n!\n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n!\n! File                 : gckpp_Util.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Util\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\nCONTAINS\n\n\n\n! Begin inlined code from F90_UTIL\n\n! End inlined code from F90_UTIL\n\n! Begin Utility Functions from KPP_HOME/util/util\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! UTIL - Utility functions\n!   Arguments :\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! ****************************************************************\n!\n! InitSaveData - Opens the data file for writing\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE InitSaveData ()\n\n      USE gckpp_Parameters\n\n      open(10, file='gckpp.dat')\n\n      END SUBROUTINE InitSaveData\n\n! End of InitSaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! SaveData - Write LOOKAT species in the data file\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE SaveData ()\n\n      USE gckpp_Global\n      USE gckpp_Monitor\n\n      INTEGER i\n\n      WRITE(10,999) (TIME-TSTART)/3600.D0,  &\n      (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT)\n 999  FORMAT(E24.16,100(1X,E24.16))\n\n      END SUBROUTINE SaveData\n\n! End of SaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! CloseSaveData - Close the data file\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE CloseSaveData ()\n\n      USE gckpp_Parameters\n\n      CLOSE(10)\n\n      END SUBROUTINE CloseSaveData\n\n! End of CloseSaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! GenerateMatlab - Generates MATLAB file to load the data file\n!   Parameters :\n!                It will have a character string to prefix each\n!                species name with.\n!\n! ****************************************************************\n\n      SUBROUTINE GenerateMatlab ( PREFIX )\n\n      USE gckpp_Parameters\n      USE gckpp_Global\n      USE gckpp_Monitor\n\n\n      CHARACTER(LEN=8) PREFIX\n      INTEGER i\n\n      open(20, file='gckpp.m')\n      write(20,*) 'load gckpp.dat;'\n      write(20,990) PREFIX\n990   FORMAT(A1,'c = gckpp;')\n      write(20,*) 'clear gckpp;'\n      write(20,991) PREFIX, PREFIX\n991   FORMAT(A1,'t=',A1,'c(:,1);')\n      write(20,992) PREFIX\n992   FORMAT(A1,'c(:,1)=[];')\n\n      do i=1,NLOOKAT\n        write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i\n993     FORMAT(A1,A6,' = ',A1,'c(:,',I2,');')\n      end do\n\n      CLOSE(20)\n\n      END SUBROUTINE GenerateMatlab\n\n! End of GenerateMatlab function\n! ****************************************************************\n\n\n! ****************************************************************\n!\n! Integrator_Update_Options - determine whether to call Update_RCONST,\n!    Update_PHOTO, and Update_SUN from within the integrator\n!\n!   Parameters:\n!    option (input)\n!        = -1 :  Do not call Update_* functions within the integrator\n!        =  0 :  Status quo: Call whichever functions are normally called\n!        =  1 :  Call Update_RCONST from within the integrator\n!        =  2 :  Call Update_PHOTO from within the integrator\n!        =  3 :  Call Update_RCONST and Update_PHOTO from within the int.\n!        =  4 :  Call Update_SUN from within the integrator\n!        =  5 :  Call Update_SUN and Update_RCONST from within the int.\n!        =  6 :  not implemented\n!        =  7 :  not implemented\n!\n!    Do_Update_RCONST (output):\n!        =T : Calls Update_RCONST from within the integrator\n!        =F : Does not call UPDATE_RCONST from w/in the int.\n!\n!    Do_Update_PHOTO (output):\n!        =T : Calls Update_PHOTO from within the integrator\n!        =F : Does not call UPDATE_PHOTO from w/in the int.\n!\n!    Do_Update_SUN (output):\n!        =T : Calls Update_SUN from within the integrator\n!        =F : Does not call UPDATE_SUN from w/in the int.\n!\n! ****************************************************************\n\n      SUBROUTINE Integrator_Update_Options( option,            &\n                                            Do_Update_RConst,  &\n                                            Do_Update_Photo,   &\n                                            Do_Update_Sun     )\n\n      !~~~> Input variables\n      INTEGER, INTENT(IN)  :: option\n\n      !~~~> Output variables\n      LOGICAL, INTENT(OUT) :: Do_Update_RCONST\n      LOGICAL, INTENT(OUT) :: Do_Update_PHOTO\n      LOGICAL, INTENT(OUT) :: Do_Update_SUN\n\n      ! Option -1: turn off all Update_* calls within the integrator\n      IF ( option == -1 ) THEN\n         Do_Update_RCONST = .FALSE.\n         Do_Update_PHOTO  = .FALSE.\n         Do_Update_SUN    = .FALSE.\n         RETURN\n      ENDIF\n\n      ! Otherwise determine from the value passed\n      Do_Update_RCONST = ( IAND( option, 1 ) > 0 )\n      Do_Update_PHOTO  = ( IAND( option, 2 ) > 0 )\n      Do_Update_SUN    = ( IAND( option, 4 ) > 0 )\n\n      END SUBROUTINE Integrator_Update_Options\n\n! End of Integrator_Update_Options function\n! ****************************************************************\n! End Utility Functions from KPP_HOME/util/util\n! End of UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Shuffle_user2kpp - function to copy concentrations from USER to KPP\n!   Arguments :\n!      V_USER    - Concentration of variable species in USER's order\n!      V         - Concentrations of variable species (local)\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Shuffle_user2kpp ( V_USER, V )\n\n! V_USER - Concentration of variable species in USER's order\n  REAL(kind=dp) :: V_USER(NVAR)\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n\n  V(30) = V_USER(1)\n  V(32) = V_USER(2)\n  V(16) = V_USER(3)\n  V(23) = V_USER(4)\n  V(13) = V_USER(5)\n  V(14) = V_USER(6)\n  V(18) = V_USER(7)\n  V(31) = V_USER(8)\n  V(22) = V_USER(9)\n  V(17) = V_USER(10)\n  V(25) = V_USER(11)\n  V(8) = V_USER(12)\n  V(9) = V_USER(13)\n  V(10) = V_USER(14)\n  V(26) = V_USER(15)\n  V(27) = V_USER(16)\n  V(24) = V_USER(17)\n  V(15) = V_USER(18)\n  V(21) = V_USER(19)\n  V(11) = V_USER(20)\n  V(12) = V_USER(21)\n  V(20) = V_USER(22)\n  V(29) = V_USER(23)\n  V(19) = V_USER(24)\n  V(1) = V_USER(25)\n  V(2) = V_USER(26)\n  V(28) = V_USER(27)\n  V(3) = V_USER(28)\n  V(4) = V_USER(29)\n  V(5) = V_USER(30)\n  V(6) = V_USER(31)\n\nEND SUBROUTINE Shuffle_user2kpp\n\n! End of Shuffle_user2kpp function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Shuffle_kpp2user - function to restore concentrations from KPP to USER\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      V_USER    - Concentration of variable species in USER's order\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Shuffle_kpp2user ( V, V_USER )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! V_USER - Concentration of variable species in USER's order\n  REAL(kind=dp) :: V_USER(NVAR)\n\n  V_USER(1) = V(30)\n  V_USER(2) = V(32)\n  V_USER(3) = V(16)\n  V_USER(4) = V(23)\n  V_USER(5) = V(13)\n  V_USER(6) = V(14)\n  V_USER(7) = V(18)\n  V_USER(8) = V(31)\n  V_USER(9) = V(22)\n  V_USER(10) = V(17)\n  V_USER(11) = V(25)\n  V_USER(12) = V(8)\n  V_USER(13) = V(9)\n  V_USER(14) = V(10)\n  V_USER(15) = V(26)\n  V_USER(16) = V(27)\n  V_USER(17) = V(24)\n  V_USER(18) = V(15)\n  V_USER(19) = V(21)\n  V_USER(20) = V(11)\n  V_USER(21) = V(12)\n  V_USER(22) = V(20)\n  V_USER(23) = V(29)\n  V_USER(24) = V(19)\n  V_USER(25) = V(1)\n  V_USER(26) = V(2)\n  V_USER(27) = V(28)\n  V_USER(28) = V(3)\n  V_USER(29) = V(4)\n  V_USER(30) = V(5)\n  V_USER(31) = V(6)\n\nEND SUBROUTINE Shuffle_kpp2user\n\n! End of Shuffle_kpp2user function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! GetMass - compute total mass of selected atoms\n!   Arguments :\n!      CL        - Concentration of all species (local)\n!      Mass      - value of mass balance\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE GetMass ( CL, Mass )\n\n! CL - Concentration of all species (local)\n  REAL(kind=dp) :: CL(NSPEC)\n! Mass - value of mass balance\n  REAL(kind=dp) :: Mass(1)\n\n\nEND SUBROUTINE GetMass\n\n! End of GetMass function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! Get_OHreactivity - returns the OH reactivity\n! The OH reactivity is defined as the inverse of its lifetime.\n! This routine was auto-generated using script OHreact_parser.py.\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Get_OHreactivity ( CC, RR, OHreact )\n\n! CC - Concentrations of species (local)\n  REAL(kind=dp) :: CC(NSPEC)\n! RR - reaction rates (local)\n  REAL(kind=dp) :: RR(NREACT)\n! OHreact - OH reactivity [s-1]\n  REAL(kind=dp) :: OHreact\n\n  OHreact = RR(9)*CC(32) + RR(22)*CC(27) + RR(26)*CC(30) + RR(33)*CC(29)\n\nEND SUBROUTINE Get_OHreactivity\n! End of Get_OHreactivity subroutine\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nEND MODULE gckpp_Util\n"
  },
  {
    "path": "KPP/OHreact_parser.py",
    "content": "#!/usr/bin/env python\n\"\"\"\nHelper routine to generate a Fortran code snipped that computes the OH\nreactivity based on the reactions listed in gckpp_Monitor.F90.\nThe OH reactivity is defined as the inverse of its lifetime and is\ndetermined using the reaction rates of all reactions that consume OH.\nThe generated code snipped can then be inserted into one of the Fortran\nmodules, e.g. gckpp_Util.F90.\n\nUsage:\npython OHreact_parser.py\n\nRevision History:\n2018-06-18 - christoph.a.keller@nasa.gov - initial version\nSee git history for subsequent updates\n\"\"\"\n\nimport sys\nimport datetime\n\n\ndef writeHeader(fo, mechName):\n    \"\"\"\n    Writes the header of the Get_OHreactivity subroutine.\n    \n    Args:\n    -----\n    fo (_io.TextIOWrapper) : File handle for write command\n    \"\"\"\n    fo.write('! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\n')\n    fo.write('\\n')\n    fo.write('! Get_OHreactivity - returns the OH reactivity\\n')\n    fo.write('! The OH reactivity is defined as the inverse of its lifetime.\\n')\n    fo.write('! This routine was auto-generated using script OHreact_parser.py.\\n')\n    fo.write('! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\n')\n    fo.write('\\n')\n    fo.write('SUBROUTINE Get_OHreactivity ( CC, RR, OHreact )\\n')\n    fo.write('\\n')\n    fo.write('! CC - Concentrations of species (local)\\n')\n    fo.write('  REAL(kind=dp) :: CC(NSPEC)\\n')\n    fo.write('! RR - reaction rates (local)\\n')\n    fo.write('  REAL(kind=dp) :: RR(NREACT)\\n')\n    fo.write('! OHreact - OH reactivity [s-1]\\n')\n    fo.write('  REAL(kind=dp) :: OHreact\\n')\n    fo.write('\\n')\n    if \"carbon\" in mechName:\n        fo.write('  OHreact = 0.0_dp') # carbon mech has no OH reactivity\n    else:\n        fo.write('  OHreact = ')\n\n\ndef writeFooter(fo):\n    \"\"\"\n    Writes the footer of the Get_OHreactivity subroutine.\n    \n    Args:\n    -----\n    fo       (_io.TextIOWrapper) : File handle for write command\n    \"\"\"\n    fo.write('\\n\\nEND SUBROUTINE Get_OHreactivity\\n')\n    fo.write('! End of Get_OHreactivity subroutine\\n')\n    fo.write('! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\n\\n')\n\n\ndef writeReactivity(mechName):\n    \"\"\"\n    Writes the Get_OHreactivity routine in the gckpp_Util.F90 module.\n    \n    Args:\n    -----\n    mechName (str) : Name of the chemical mechanism\n    \"\"\"\n\n    # Filenames\n    file_reactions = 'gckpp_Monitor.F90'\n    file_species   = 'gckpp_Parameters.F90'\n    file_updated   = 'gckpp_Util.F90'\n\n    # Rread file with reactions\n    with open(file_reactions, 'r') as f:\n        lines = f.readlines()\n\n    # Read files with species\n    with open(file_species, 'r') as f:\n        params = f.readlines()\n\n    # Read gckpp_Util.F90 and write back out, minus END MODULE line. \n    # Save # that line to write out later.\n    EndModuleStr = ''\n    with open(file_updated, 'r') as f:\n        utillines = f.readlines()\n    with open(file_updated, 'w') as f:\n        for line in utillines:\n            if 'END MODULE' in line:\n                EndModuleStr = line\n                break\n            else:\n                f.write(line.rstrip()+'\\n')\n\n    # Open gckpp_Util.F90\n    fo = open(file_updated,\"a\")\n\n    # Write header to the Get_OHreactivity routine\n    writeHeader(fo, mechName)\n    \n    nn   = 0\n    ntot = 0\n\n    # get all lines with a reaction\n    rxt = [i for i in lines if '-->' in i]\n\n    # walk through all reactions\n    irct = 0\n    for irxt in rxt:\n        irct += 1\n        irxt = irxt.replace(\"\\n\", \"\")\n        irxt = irxt.replace(\"'\", \"\")\n        #---------------------------------------------------\n        # Also remove extra text for safety's sake\n        #  -- Bob Yantosca (03 May 2022)\n        irxt = irxt.replace(\"/)\", \"\")\n        irxt = irxt.replace(\",\", \"\")\n        irxt = irxt.replace(\"&\", \"\")\n        irxt = irxt.replace(\"!\", \"\")\n        irxt = irxt.replace(\"up to \", \"\")\n        #---------------------------------------------------\n        spl = irxt.split('-->')\n\n        # get reaction number and reactant if OH is on left-hand side of reaction\n        if ' OH ' in spl[0]:\n            # Go to next line after writing 5 reaction terms\n            if nn == 5:\n                fo.write(' &\\n')\n                nn = 0\n            # reaction number\n            if 'index ' in spl[1]:\n                rn = int(spl[1].split('index ')[1])\n                if irct != rn:\n                    print('Warning: reaction number mismatch')\n            else:\n                rn = irct\n            # species name\n            if ' + ' in spl[0]:\n                # there is one OH\n                nOH = 1\n                newspl = spl[0].split('+')\n                if ' OH ' in newspl[0]:\n                    spc = newspl[1]\n                else:\n                    spc = newspl[0]\n            else:\n                if '2 OH' in spl[0]:\n                    nOH = 2\n                    spc = 'NotAvail'\n                else:\n                    print('unexpected entry: '+spl)\n                    continue\n            spc = spc.replace(\"'\",\"\")\n            spc = spc.strip()\n            # get species index\n            if nOH == 1:\n                istr = 'ind_'+spc+' ='\n                iln = [i for i in params if istr in i]\n                if len(iln) != 1:\n                    print('cannot match species '+istr)\n                    continue\n                else:\n                    iln = iln[0].replace(\"\\n\",\"\")\n                    id = int(iln.split('=')[1])\n\n            # now we have the reaction number, species id and number of OH.\n            # Can construct string entry\n            if nOH == 2:\n                istr = '2*RR('+str(rn)+')'\n            else:\n                istr = 'RR('+str(rn)+')*CC('+str(id)+')'\n            if ntot > 0:\n                istr = ' + '+istr\n                if nn == 0 :\n                    istr = '         '+istr\n\n            # write to file\n            nn   += 1\n            ntot += 1\n            fo.write(istr)\n\n    # Close the subroutine and the module\n    writeFooter(fo)\n    fo.write(EndModuleStr)\n\n    # all done\n    print('Reactivity consists of '+str(ntot)+' reactions')\n    print('Written to '+file_updated)\n    fo.close()\n\n\ndef main():\n    \"\"\"\n    Main program.  Gets number of arguments and calls writeReactivity\n    \"\"\"\n\n    # Get the name of the mechansim\n    nArgs = len( sys.argv )\n    mechName = \"\"\n    if ( nArgs == 2 ): \n        mechName = sys.argv[1]\n\n    # Write the OH reactivity routine in gckpp_Util.F90\n    writeReactivity(mechName)\n    \n\nif __name__ == '__main__':\n    main()\n"
  },
  {
    "path": "KPP/aciduptake/CMakeLists.txt",
    "content": "# KPP/aciduptake/CMakeLists.txt\n\n#----------------------------------------------------------------------------\n# Add libKPPFirstPass.a -- aciduptake mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP_FirstPass\n  STATIC EXCLUDE_FROM_ALL\n  gckpp_Precision.F90\n  gckpp_Parameters.F90\n  gckpp_Monitor.F90\n)\n\n# Define dependencies for libKPP_FirstPass.a\ntarget_link_libraries(KPP_FirstPass PUBLIC GEOSChemBuildProperties)\n\n#----------------------------------------------------------------------------\n# Add libKPP.a -- aciduptake mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP\n  STATIC EXCLUDE_FROM_ALL\n  aciduptake_DustChemFuncs.F90\n  fullchem_HetStateFuncs.F90\n  fullchem_RateLawFuncs.F90\n  fullchem_SulfurChemFuncs.F90\n  gckpp_Function.F90\n  gckpp_Global.F90\n  gckpp_Initialize.F90\n  gckpp_Integrator.F90\n  gckpp_Jacobian.F90\n  gckpp_JacobianSP.F90\n  gckpp_LinearAlgebra.F90\n  gckpp_Model.F90\n  gckpp_Monitor.F90\n  gckpp_Parameters.F90\n  gckpp_Precision.F90\n  gckpp_Rates.F90\n  gckpp_Util.F90\n  rateLawUtilFuncs.F90\n)\n\n# Define dependencies for libKPP.a\ntarget_link_libraries(KPP PUBLIC GeosUtil)\n\n# When building libKPP.a, treat REAL as if it were REAL*8\ntarget_compile_options(KPP\n  PRIVATE \"\"\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"Intel\">:-r8>\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"GNU\">:-fdefault-real-8 -fdefault-double-8>\n)\n"
  },
  {
    "path": "KPP/aciduptake/README.md",
    "content": "# README -- KPP/aciduptake folder\n\nNOTE: This folder contains files that will be used in future GEOS-Chem\ndevelopment.  These will be ignored for now.\n\n-- Bob Yantosca (20 Sep 2021)\n"
  },
  {
    "path": "KPP/aciduptake/aciduptake.eqn",
    "content": "{ aciduptake.eqn\n\n-------------------------------------------------------------------------------\nDESCRIPTION\n-------------------------------------------------------------------------------\n\nGEOS-Chem KPP file containing species and equations for the full chemistry\n(NOx-Ox-HC-Aer-Br-Cl-I) mechanism with acid uptake on dust.\n\n===============================================================================\nFILE HISTORY\n===============================================================================\n\nVersion: 14.2.0\n\nPlease see \"CHANGELOG_fullchem.md\" in this folder for the revision history\nof the fullchem mechanism, which the \"aciduptake\" mechanism is based on.\n\nYou may list updates specific to the \"aciduptake\" mechanism below:\n\n===============================================================================\nDEVELOPERS (initials and email/GitHub)\n===============================================================================\n\n* BA   :  Becky Alexander          : @beckyalexander\n* BHH  :  Barron Henderson         : @barronh\n* BMY  :  Bob Yantosca             : @yantosca\n* CCM  :  Christopher Chan Miller  : cmiller@fas.harvard.edu\n* CDH  :  Christopher Holmes       : @cdholmes\n* DBM  :  Dylan Millet             : @dylanbm\n* EAM  :  Eloise Marais            : @eamarais\n* ECB  :  Ellie Browne             : eleanor.browne@colorado.edu\n* EVF  :  Emily Fischer            : evf@rams.colostate.edu\n* EWL  :  Lizzie Lundgren          : @lizziel\n* FP   :  Fabien Paulot            : fabien.paulot@noaa.gov\n* HOTP :  Havala Pye               : pye.havala@epa.gov\n* JAF  :  Jenny Fisher             : @jennyfisher\n* JAS  :  Johan Schmidt            : johanalbrechtschmidt@gmail.com\n* JMAO :  Jingqiu Mao              : @jingqiumao\n* JMM  :  Jonathan Moch            : jmoch@g.harvard.edu\n* JPP  :  Justin Parrella          : justin.parrella@gmail.com\n* KHB  :  Kelvin Bates             : @kelvinhb\n* KRT  :  Katie Travis             : @ktravis213\n* LZHU :  Lei Zhu                  : leizhu@fas.harvard.edu\n* MJE  :  Mat Evans                : @msl3v\n* MPS  :  Melissa Sulprizio        : @msulprizio\n* MSL  :  Michael Long             : @msl3v\n* PK   :  Prasad Kasibhatla        : @pkasibhatla\n* QJC  :  Qianjie Chen             : chenqjie@uw.edu\n* RHS  :  Rebecca Schwantes        : rschwant@caltech.edu\n* SAS  :  Sarah Safieddine         : sarahsaf@mit.edu\n* SDE  :  Sebastian Eastham        : @sdeastham\n* TMS  :  Tomas Sherwen            : @tsherwen\n* TSC  :  Therese Carter           : @tscarter\n* XC   :  Xin Chen                 : @xin-chen-github\n* XW   :  Xuan Wang                : @xuanw0316\n\n===============================================================================\nREFERENCES (alphabetical order)\n===============================================================================\n* Atkinson2003   : https://doi.org/10.1021/cr0206420\n* Atkinson2006   : https://doi.org/10.5194/acp-6-3625-2006\n* Bates2014      : https://doi.org/10.1021/jp4107958\n* Bates2019      : https://doi.org/10.5194/acp-19-9613-2019\n* Bates2021a     : https://doi.org/10.1029/2020JD033439\n* Bates2021b     : https://doi.org/10.5194/acp-2021-605\n* Browne2011     : https://doi.org/10.5194/acp-11-4209-2011\n* Browne2014     : https://doi.org/10.5194/acp-14-1225-2014\n* Carter2022     : https://doi.org/10.5194/acp-22-12093-2022\n* Chen2017       : https://doi.org/10.1002/2017GL073812\n* Crounse2012    : https://doi.org/10.1021/jp211560u\n* Eastham2014    : https://doi.org/10.1016/j.atmosenv.2014.02.001\n* Fischer2014    : https://doi.org/10.5194/acp-14-2679-2014\n* Fisher2016     : https://doi.org/10.5194/acp-16-5969-2016\n* Fisher2018     : https://doi.org/10.1029/2018JD029046\n* Fry2014        : https://doi.org/10.1021/es502204x\n* Gill2002       : https://doi.org/10.1021/jp013532, 2002.\n* Goliff2013     : https://doi.org/10.1016/j.atmosenv.2012.11.038\n* Jacobs2014     : https://doi.org/10.5194/acp-14-8933-2014\n* Jenkin2015     : https://doi.org/10.5194/acp-15-11433-2015\n* Kasibhatla2018 : https://doi.org/10.5194/acp-18-11185-2018\n* IUPAC ROO_19   : https://iupac-aeris.ipsl.fr/htdocs/datasheets/pdf/ROO_19_CH3O2_NO3.pdf\n* JPL 10-6       : https://jpldataeval.jpl.nasa.gov/previous_evaluations.html\n* JPL 15-10      : https://jpldataeval.jpl.nasa.gov/previous_evaluations.html\n* JPL 19-5       : https://jpldataeval.jpl.nasa.gov\n* Kwon2020       : https://doi.org/10.1525/elementa.2021.00109\n* Lee2014        : https://doi.org/10.1021/jp4107603\n* Marais2016     : https://doi.org/10.5194/acp-16-1603-2016\n* Miller2017     : https://doi.org/10.5194/acp-2016-1042\n* Millet2015     : https://doi.org/10.5194/acp-15-6283-2015\n* Moch2020       : https;//doi.org/10.1029/2020JD032706, 2020.\n* Muller2014     : https://doi.org/10.5194/acp-14-2497-2014\n* Parrella2012   : https://doi.org/10.5194/acp-12-6723-2012\n* Paulot2009     : https://doi.org/10.5194/acp-9-1479-2009 and \n                   https://doi.org/10.1126/science.1172910\n* Peeters2010    : https://doi.org/10.1039/C0CP00811G\n* Peeters2014    : https://doi.org/10.1021/jp5033146.\n* Pye2010        : https://doi.org/10.5194/acp-10-11261-2010\n* Roberts1992    : https://doi.org/10.1002/kin.550240307\n* Sherwen2016b   : https://doi.org/10.5194/acp-16-12239-2016\n* Sherwen2017    : https://doi.org/10.1039/C7FD00026J\n* StClair2016    : https://doi.org/10.1021/acs.jpca.5b065322016\n* Travis2016     : https://doi.org/10.5194/acp-16-13561-2016\n* Wolfe2012      : https://doi.org/ 10.1039/C2CP40388A, 2012\n* Xie2013        : https://doi.org/10.5194/acp-13-8439-2013\n\n===============================================================================\nNOTES\n===============================================================================\n\nComment format is\n Species   - Molecular formula; full name\n Equations - Date modified; Reference; Developer initials\n}\n\n#include atoms.kpp\n\n#DEFVAR\n\nA3O2       = IGNORE; {CH3CH2CH2OO; Primary RO2 from C3H8}\nACET       = IGNORE; {CH3C(O)CH3; Acetone}\nACTA       = IGNORE; {CH3C(O)OH; Acetic acid}\nAERI       = IGNORE; {I; Dissolved iodine}\nALD2       = IGNORE; {CH3CHO; Acetaldehyde}\nALK4       = IGNORE; {>= C4 alkanes}\nAONITA     = IGNORE; {Aerosol-phase organic nitrate from aromatic precursors}\nAROMRO2    = IGNORE; {generic peroxy radical from aromatic oxidation}\nAROMP4     = IGNORE; {Generic C4 product from aromatic oxidation}\nAROMP5     = IGNORE; {Generic C5 product from aromatic oxidation}\nATO2       = IGNORE; {CH3C(O)CH2O2; RO2 from acetone}\nATOOH      = IGNORE; {CH3C(O)CH2OOH; ATO2 peroxide}\nB3O2       = IGNORE; {CH3CH(OO)CH3; Secondary RO2 from C3H8}\nBALD       = IGNORE; {benzaldehyde and tolualdehyde}\nBENZ       = IGNORE; {C6H6; Benzene}\nBENZO      = IGNORE; {C6H5O radical}\nBENZO2     = IGNORE; {C6H5O2 radical}\nBENZP      = IGNORE; {hydroperoxide from BENZO2}\nBr         = IGNORE; {Br; Atomic bromine}\nBr2        = IGNORE; {Br2; Molecular bromine}\nBrCl       = IGNORE; {BrCl; Bromine chloride}\nBrNO2      = IGNORE; {BrNO2; Nitryl bromide}\nBrNO3      = IGNORE; {BrNO3; Bromine nitrate}\nBrO        = IGNORE; {BrO; Bromine monoxide}\nBRO2       = IGNORE; {C6H5O2 ; Peroxy radical from BENZ oxidation}\nBrSALA     = IGNORE; {Br; Fine sea salt bromine}\nBrSALC     = IGNORE; {Br; Course sea salt bromine}\nBUTDI      = IGNORE; {Butenedial}\nBZCO3      = IGNORE; {benzoylperoxy radical}\nBZCO3H     = IGNORE; {perbenzoic acid}\nBZPAN      = IGNORE; {peroxybenzoyl nitrate}\nC2H2       = IGNORE; {C2H2; Ethyne}\nC2H4       = IGNORE; {Ethylene}\nC2H6       = IGNORE; {C2H6; Ethane}\nC3H8       = IGNORE; {C3H8; Propane}\nC4HVP1     = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs}\nC4HVP2     = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs}\nCCl4       = IGNORE; {CCl4; Carbon tetrachloride}\nCFC11      = IGNORE; {CCl3F ; CFC-11, R-11, Freon 11}\nCFC12      = IGNORE; {CCl2F2; CFC-12, R-12, Freon 12}\nCFC113     = IGNORE; {C2Cl3F3; CFC-113, Freon 113}\nCFC114     = IGNORE; {C2Cl2F4; CFC-114, Freon 114}\nCFC115     = IGNORE; {C2ClF5; CFC-115, Freon 115}\nCH2Br2     = IGNORE; {CH3Br2; Dibromomethane}\nCH2Cl2     = IGNORE; {CH2Cl2; Dichloromethane}\nCH2I2      = IGNORE; {CH2I2; Diiodomethane}\nCH2IBr     = IGNORE; {CH2IBr; Bromoiodomethane}\nCH2ICl     = IGNORE; {CH2ICl; Chloroiodomethane}\nCH2O       = IGNORE; {CH2O; Formaldehyde}\nCH2OO      = IGNORE; {CH2OO; Criegee intermediate}\nCH3Br      = IGNORE; {CH3Br; Methyl bromide}\nCH3CCl3    = IGNORE; {CH3CCl3; Methyl chloroform}\nCH3CHOO    = IGNORE; {CH3CHOO; Criegee intermediate}\nCH3Cl      = IGNORE; {CH3Cl; Chloromethane}\nCH3I       = IGNORE; {CH3I; Methyl iodide}\nCH4        = IGNORE; {CH4; Methane}\nCHBr3      = IGNORE; {CHBr3; Tribromethane}\nCHCl3      = IGNORE; {CHCl3; Chloroform}\nCl         = IGNORE; {Cl; Atomic chlorine}\nCl2        = IGNORE; {Cl2; Molecular chlorine}\nCl2O2      = IGNORE; {Cl2O2; Dichlorine dioxide}\nClNO2      = IGNORE; {ClNO2; Nitryl chloride}\nClNO3      = IGNORE; {ClONO2; Chlorine nitrate}\nClO        = IGNORE; {ClO; Chlorine monoxide}\nClOO       = IGNORE; {ClOO; Chlorine dioxide}\nCO         = IGNORE; {CO; Carbon monoxide}\nCO2        = IGNORE; {CO2; Carbon dioxide}\nCSL        = IGNORE; {cresols and xylols}\nDMS        = IGNORE; {(CH3)2S; Dimethylsulfide}\nDSTAL1     = IGNORE; {Alkalinity of mineral dust bin 1}\nDSTAL2     = IGNORE; {Alkalinity of mineral dust bin 2}\nDSTAL3     = IGNORE; {Alkalinity of mineral dust bin 3}\nDSTAL4     = IGNORE; {Alkalinity of mineral dust bin 4}\nEOH        = IGNORE; {C2H5OH; Ethanol}\nETHLN      = IGNORE; {CHOCH2ONO2; Ethanal nitrate}\nETHN       = IGNORE; {stable hydroxy-nitrooxy-ethane}\nETHP       = IGNORE; {stable hydroxy-hydroperoxy-ethane}\nETNO3      = IGNORE; {C2H5ONO2; Ethyl nitrate}\nETO        = IGNORE; {hydroxy-alkoxy-ethane radical}\nETOO       = IGNORE; {hydroxy-peroxy-ethane radical, formed from ethene + OH}\nETO2       = IGNORE; {CH3CH2OO; Ethylperoxy radical}\nETP        = IGNORE; {CH3CH2OOH; Ethylhydroperoxide}\nFURA       = IGNORE; {FURAN conglomerate}\nGLYC       = IGNORE; {HOCH2CHO; Glycoaldehyde}\nGLYX       = IGNORE; {CHOCHO; Glyoxal}\nH          = IGNORE; {H; Atomic hydrogen}\nH1211      = IGNORE; {CBrClF2; H-1211}\nH1301      = IGNORE; {CBrF3; H-1301}\nH2402      = IGNORE; {C2Br2F4; H-2402}\nH2SO4      = IGNORE; {H2SO4: Sulfuric acid}\nH2O        = IGNORE; {H2O; Water vapor}\nH2O2       = IGNORE; {H2O2; Hydrogen peroxide}\nHAC        = IGNORE; {HOCH2C(O)CH3; Hydroxyacetone}\nHBr        = IGNORE; {HBr; Hypobromic acid}\nHC5A       = IGNORE; {C5H8O2; Isoprene-4,1-hydroxyaldehyde}\nHCFC123    = IGNORE; {C2HCl2F3; HCFC-123, R-123, Freon 123}\nHCFC141b   = IGNORE; {C(CH3)Cl2F; HCFC-141b, R-141b, Freon 141b}\nHCFC142b   = IGNORE; {C(CH3)ClF2; HCFC-142b, R-142b, Freon 142b}\nHCFC22     = IGNORE; {CHClF2 ; HCFC-22, R-22, Freon 22}\nHCl        = IGNORE; {HCl; Hydrochloric acid}\nHCOOH      = IGNORE; {HCOOH; Formic acid}\nHI         = IGNORE; {HI; Hydrogen iodide}\nHMHP       = IGNORE; {HOCH2OOH; Hydroxymethyl hydroperoxide}\nHMML       = IGNORE; {C4H6O3; Hydroxymethyl-methyl-a-lactone}\nHMS        = IGNORE; {HOCH2SO3-; hydroxymethanesulfonate}\nHNO2       = IGNORE; {HONO; Nitrous acid}\nHNO3       = IGNORE; {HNO3; Nitric acid}\nHNO4       = IGNORE; {HNO4; Pernitric acid}\nHO2        = IGNORE; {HO2; Hydroperoxyl radical}\nHOBr       = IGNORE; {HOBr; Hypobromous acid}\nHOCl       = IGNORE; {HOCl; Hypochlorous acid}\nHOI        = IGNORE; {HOI; Hypoiodous acid}\nHONIT      = IGNORE; {2nd gen monoterpene organic nitrate}\nHPALD1     = IGNORE; {O=CHC(CH3)=CHCH2OOH; d-4,1-C5-hydroperoxyaldehyde}\nHPALD1OO   = IGNORE; {peroxy radicals from HPALD1}\nHPALD2     = IGNORE; {HOOCH2C(CH3)=CHCH=O; d-1,4-C5-hydroperoxyaldehyde}\nHPALD2OO   = IGNORE; {peroxy radicals from HPALD2}\nHPALD3     = IGNORE; {O=CHC(CH3)OOHCH=CH2; b-2,1-C5-hydroperoxyaldehyde}\nHPALD4     = IGNORE; {CH2=C(CH3)CHOOHCH=O; b-3,4-C5-hydroperoxyaldehyde}\nHPETHNL    = IGNORE; {CHOCH2OOH; hydroperoxyethanal}\nI          = IGNORE; {I; Atmoic iodine}\nI2         = IGNORE; {I2; Molecular iodine}\nI2O2       = IGNORE; {I2O2; Diiodine dioxide}\nI2O3       = IGNORE; {I2O3; Diiodine trioxide}\nI2O4       = IGNORE; {I2O4; Diiodine tetraoxide}\nIBr        = IGNORE; {IBr; Iodine monobromide}\nICHE       = IGNORE; {C5H8O3; Isoprene hydroxy-carbonyl-epoxides}\nICHOO      = IGNORE; {peroxy radical from IEPOXD}\nICl        = IGNORE; {ICl; Iodine monochloride}\nICN        = IGNORE; {C5H7NO4; Lumped isoprene carbonyl nitrates}\nICNOO      = IGNORE; {peroxy radicals from ICN}\nICPDH      = IGNORE; {C5H10O5; Isoprene dihydroxy hydroperoxycarbonyl}\nIDC        = IGNORE; {C5H6O2; Lumped isoprene dicarbonyls}\nIDCHP      = IGNORE; {C5H8O5; Isoprene dicarbonyl hydroxy dihydroperoxide}\nIDHDP      = IGNORE; {C5H12O6; Isoprene dihydroxy dihydroperoxide}\nIDHNBOO    = IGNORE; {peroxy radicals from INPB}\nIDHNDOO1   = IGNORE; {peroxy radicals from INPD}\nIDHNDOO2   = IGNORE; {peroxy radicals from INPD}\nIDHPE      = IGNORE; {C5H10O5; Isoprene dihydroxy hydroperoxy epoxide}\nIDN        = IGNORE; {C5H8N2O6; Lumped isoprene dinitrates}\nIDNOO      = IGNORE; {peroxy radicals from IDN}\nIEPOXA     = IGNORE; {C5H10O3; trans-Beta isoprene epoxydiol}\nIEPOXAOO   = IGNORE; {peroxy radical from trans-Beta isoprene epoxydiol}\nIEPOXB     = IGNORE; {C5H10O3; cis-Beta isoprene epoxydiol}\nIEPOXBOO   = IGNORE; {peroxy radical from cis-Beta isoprene epoxydiol}\nIEPOXD     = IGNORE; {C5H10O3; Delta isoprene epoxydiol}\nIHN1       = IGNORE; {C5H9NO4; Isoprene-d-4-hydroxy-1-nitrate}\nIHN2       = IGNORE; {C5H9NO4; Isoprene-b-1-hydroxy-2-nitrate}\nIHN3       = IGNORE; {C5H9NO4; Isoprene-b-4-hydroxy-3-nitrate}\nIHN4       = IGNORE; {C5H9NO4; Isoprene-d-1-hydroxy-4-nitrate}\nIHOO1      = IGNORE; {peroxy radical from OH addition to isoprene at C1}\nIHOO4      = IGNORE; {peroxy radical from OH addition to isoprene at C4}\nIHPNBOO    = IGNORE; {peroxy radicals from INPB}\nIHPNDOO    = IGNORE; {peroxy radicals from INPD}\nIHPOO1     = IGNORE; {peroxy radical from ISOPOOH}\nIHPOO2     = IGNORE; {peroxy radical from ISOPOOH}\nIHPOO3     = IGNORE; {peroxy radical from ISOPOOH}\nINA        = IGNORE; {alkoxy radical from INO2D}\nINDIOL     = IGNORE; {Generic aerosol phase organonitrate hydrolysis product}\nINO        = IGNORE; {INO; Nitrosyl iodide}\nINO2B      = IGNORE; {beta-peroxy radicals from isoprene + NO3}\nINO2D      = IGNORE; {delta-peroxy radicals from isoprene + NO3}\nINPB       = IGNORE; {C5H9NO5; Lumped isoprene beta-hydroperoxy nitrates}\nINPD       = IGNORE; {C5H9NO5; Lumped isoprene delta-hydroperoxy nitrates}\nIO         = IGNORE; {IO; Iodine monoxide}\nIONITA     = IGNORE; {Aerosol-phase organic nitrate from isoprene precursors}\nIONO       = IGNORE; {IONO; Nitryl iodide}\nIONO2      = IGNORE; {IONO2; Iodine nitrate}\nIPRNO3     = IGNORE; {C3H8ONO2; Isopropyl nitrate}\nISALA      = IGNORE; {I; Fine sea salt iodine}\nISALC      = IGNORE; {I; Coarse sea salt iodine}\nISOP       = IGNORE; {CH2=C(CH3)CH=CH2; Isoprene}\nISOPNOO1   = IGNORE; {peroxy radicals from IHN2}\nISOPNOO2   = IGNORE; {peroxy radicals from IHN3}\nITCN       = IGNORE; {C5H9NO7; Lumped tetrafunctional isoprene carbonyl-nitrates}\nITHN       = IGNORE; {C5H11NO7; Lumped tetrafunctional isoprene hydroxynitrates}\nKO2        = IGNORE; {RO2 from >3 ketones}\nLBRO2H     = IGNORE; {Dummy spc to track oxidation of BRO2 by HO2}\nLBRO2N     = IGNORE; {Dummy spc to track oxidation of BRO2 by NO}\nLIMO       = IGNORE; {C10H16; Limonene}\nLIMO2      = IGNORE; {RO2 from LIMO}\nLISOPOH    = IGNORE; {Dummy spc to track oxidation of ISOP by OH}\nLISOPNO3   = IGNORE; {Dummy spc to track oxidation of ISOP by NO3}\nLNRO2H     = IGNORE; {Dummy spc to track oxidation of NRO2 by HO2}\nLNRO2N     = IGNORE; {Dummy spc to track oxidation of NRO2 by NO}\nLTRO2H     = IGNORE; {Dummy spc to track oxidation of TRO2 by HO2}\nLTRO2N     = IGNORE; {Dummy spc to track oxidation of TRO2 by NO}\nLVOC       = IGNORE; {C5H14O5; Gas-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation}\nLVOCOA     = IGNORE; {C5H14O5; Aerosol-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation}\nLXRO2H     = IGNORE; {Dummy spc to track oxidation of XRO2 by HO2}\nLXRO2N     = IGNORE; {Dummy spc to track oxidation of XRO2 by NO}\nMACR       = IGNORE; {CH2=C(CH3)CHO; Methacrolein}\nMACR1OO    = IGNORE; {peroxyacyl radical from MACR + OH}\nMACR1OOH   = IGNORE; {CH2=C(CH3)C(O)OOH; Peracid from MACR}\nMACRNO2    = IGNORE; {Product of MCRHN + OH}\nMAP        = IGNORE; {CH3C(O)OOH; Peroxyacetic acid}\nMCO3       = IGNORE; {CH3C(O)OO; Peroxyacetyl radical}\nMCRDH      = IGNORE; {C4H8O3; Dihydroxy-MACR}\nMCRENOL    = IGNORE; {C4H6O2; Lumped enols from MVK/MACR}\nMCRHN      = IGNORE; {HOCH2C(ONO2)(CH3)CHO; Hydroxynitrate from MACR}\nMCRHNB     = IGNORE; {O2NOCH2C(OH)(CH3)CHO; Hydroxynitrate from MACR}\nMCRHP      = IGNORE; {HOCH2C(OOH)(CH3)CHO; Hydroxy-hydroperoxy-MACR}\nMCROHOO    = IGNORE; {peroxy radical from MACR + OH}\nMCT        = IGNORE; {methylcatechols}\nMEK        = IGNORE; {RC(O)R; Methyl ethyl ketone}\nMENO3      = IGNORE; {CH3ONO2; methyl nitrate}\nMGLY       = IGNORE; {CH3COCHO; Methylglyoxal}\nMO2        = IGNORE; {CH3O2; Methylperoxy radical}\nMOH        = IGNORE; {CH3OH; Methanol}\nMONITA     = IGNORE; {Aerosol-phase organic nitrate from monoterpene precursors}\nMONITS     = IGNORE; {Saturated 1st gen monoterpene organic nitrate}\nMONITU     = IGNORE; {Unsaturated 1st gen monoterpene organic nitrate}\nMP         = IGNORE; {CH3OOH; Methylhydroperoxide}\nMPAN       = IGNORE; {CH2=C(CH3)C(O)OONO2; Peroxymethacroyl nitrate (PMN)}\nMPN        = IGNORE; {CH3O2NO2; Methyl peroxy nitrate}\nMSA        = IGNORE; {CH4SO3; Methanesulfonic acid}\nMTPA       = IGNORE; {Lumped monoterpenes: a-pinene, b-pinene, sabinene, carene}\nMTPO       = IGNORE; {Other monoterpenes: Terpinene, terpinolene, myrcene, ocimene, other monoterpenes}\nMVK        = IGNORE; {CH2=CHC(=O)CH3; Methyl vinyl ketone}\nMVKDH      = IGNORE; {HOCH2CH2OHC(O)CH3; Dihydroxy-MVK}\nMVKHC      = IGNORE; {C4H6O3; MVK hydroxy-carbonyl}\nMVKHCB     = IGNORE; {C4H6O3; MVK hydroxy-carbonyl}\nMVKHP      = IGNORE; {C4H8O4; MVK hydroxy-hydroperoxide}\nMVKN       = IGNORE; {HOCH2CH(ONO2)C(=O)CH3; Hydroxynitrate from MVK}\nMVKOHOO    = IGNORE; {peroxy radical from MVK + OH}\nMVKPC      = IGNORE; {OCHCH(OOH)C(O)CH3; MVK hydroperoxy-carbonyl}\nN          = IGNORE; {N; Atomic nitrogen}\nN2O        = IGNORE; {N2O; Nitrous oxide}\nN2O5       = IGNORE; {N2O5; Dinitrogen pentoxide}\nNAP        = IGNORE; {C10H8; Naphthalene; IVOC surrogate}\nNIT        = IGNORE; {NIT; Fine mode inorganic nitrate}\nNITD1      = IGNORE; {NIT taken up on DST1}\nNITD2      = IGNORE; {NIT taken up on DST2}\nNITD3      = IGNORE; {NIT taken up on DST3}\nNITD4      = IGNORE; {NIT taken up on DST4}\nNITs       = IGNORE; {NITs; Coarse mode inorganic nitrate}\nNO         = IGNORE; {NO; Nitric oxide}\nNO2        = IGNORE; {NO2; Nitrogen dioxide}\nNO3        = IGNORE; {NO3; Nitrate radical}\nNPHEN      = IGNORE; {nitrophenols}\nNPRNO3     = IGNORE; {C3H8ONO2; n-propyl nitrate}\nNRO2       = IGNORE; {Peroxy radical from NAP oxidation}\nO          = IGNORE; {O(3P); Ground state atomic oxygen}\nO1D        = IGNORE; {O(1D); Excited atomic oxygen}\nO3         = IGNORE; {O3; Ozone}\nO3A        = IGNORE; {O3; Ozone in accum seasalt}\nO3C        = IGNORE; {O3; Ozone in coarse seasalt}\nOClO       = IGNORE; {OClO; Chlorine dioxide}\nOCS        = IGNORE; {COS; Carbonyl sulfide}\nOH         = IGNORE; {OH; Hydroxyl radical}\nOIO        = IGNORE; {OIO; Iodine dioxide}\nOLND       = IGNORE; {Monoterpene-derived NO3-alkene adduct}\nOLNN       = IGNORE; {Monoterpene-derived NO3 adduct}\nOTHRO2     = IGNORE; {Other C2 RO2 not from C2H6 oxidation}\nPAN        = IGNORE; {CH3C(O)OONO2; Peroxyacetylnitrate}\nPHEN       = IGNORE; {phenol}\nPIO2       = IGNORE; {RO2 from MTPA}\nPIP        = IGNORE; {Peroxides from MTPA}\nPO2        = IGNORE; {HOCH2CH(OO)CH3; RO2 from propene}\nPP         = IGNORE; {HOCH2CH(OOH)CH3; Peroxide from PO2}\nPPN        = IGNORE; {CH3CH2C(O)OONO2; Peroxypropionylnitrate}\nPRN1       = IGNORE; {O2NOCH2CH(OO)CH3; RO2 from propene + NO3}\nPROPNN     = IGNORE; {CH3C(=O)CH2ONO2; Propanone nitrate}\nPRPE       = IGNORE; {C3H6; >= C3 alkenes}\nPRPN       = IGNORE; {O2NOCH2CH(OOH)CH3; Peroxide from PRN1}\nPYAC       = IGNORE; {CH3COCOOH; Pyruvic acid}\nR4N1       = IGNORE; {RO2 from R4N2}\nR4N2       = IGNORE; {RO2NO; >= C4 alkylnitrates}\nR4O2       = IGNORE; {RO2 from ALK4}\nR4P        = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from R4O2}\nRA3P       = IGNORE; {CH3CH2CH2OOH; Peroxide from A3O2}\nRB3P       = IGNORE; {CH3CH(OOH)CH3; Peroxide from B3O2}\nRCHO       = IGNORE; {CH3CH2CHO; >= C3 aldehydes}\nRCO3       = IGNORE; {CH3CH2C(O)OO; Peroxypropionyl radical}\nRIPA       = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 1,2-ISOPOOH}\nRIPB       = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 4,3-ISOPOOH}\nRIPC       = IGNORE; {C5H10O3; d(1,4)-ISOPOOH}\nRIPD       = IGNORE; {C5H10O3; d(4,1)-ISOPOOH}\nROH        = IGNORE; {C3H7OH; > C2 alcohols}\nRP         = IGNORE; {CH3CH2C(O)OOH; Peroxide from RCO3}\nSALAAL     = IGNORE; {Accumulation mode seasalt aerosol alkalinity}\nSALCAL     = IGNORE; {Coarse mode seasalt aerosol alkalinity}\nSALACL     = IGNORE; {Cl; Fine chloride}\nSALCCL     = IGNORE; {Cl; Coarse chloride}\nSALASO2    = IGNORE; {SO2; Fine seasalt}\nSALCSO2    = IGNORE; {SO2; Coarse seasalt}\nSALASO3    = IGNORE; {SO3--; Fine seasalt}\nSALCSO3    = IGNORE; {SO3--; Coarse chloride}\nSO2        = IGNORE; {SO2; Sulfur dioxide}\nSO4        = IGNORE; {SO4; Sulfate}\nSO4D1      = IGNORE; {SO4 taken up on DST1}\nSO4D2      = IGNORE; {SO4 taken up on DST2}\nSO4D3      = IGNORE; {SO4 taken up on DST3}\nSO4D4      = IGNORE; {SO4 taken up on DST4}\nSO4s       = IGNORE; {SO4 on sea-salt; Sulfate}\nSOAGX      = IGNORE; {CHOCHO; Aerosol-phase glyoxal}\nSOAIE      = IGNORE; {C5H10O3; Aerosol-phase IEPOX}\nTOLU       = IGNORE; {C7H8; Toluene}\nTRO2       = IGNORE; {Peroxy radical from TOLU oxidation}\nXYLE       = IGNORE; {C8H10; Xylene}\nXRO2       = IGNORE; {Peroxy radical from XYLE oxidation}\n\n#DEFFIX\n\nH2         = IGNORE; {H2; Molecular hydrogen}\nN2         = IGNORE; {N2; Molecular nitrogen}\nO2         = IGNORE; {O2; Molecular oxygen}\nRCOOH      = IGNORE; {C2H5C(O)OH; > C2 organic acids}\n\n#EQUATIONS\n//------------------------------------------------------------------------------\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Reactions for acid uptake on dust (MSL, BMY)                    %%%%%\n// %%%%% Activate these later, comment out for now (bmy, 9/22/21)        %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\nSO2   + 2DSTAL1    = SO4D1          : K_DST(1);\nSO2   + 2DSTAL2    = SO4D2          : K_DST(2);\nSO2   + 2DSTAL3    = SO4D3          : K_DST(3);\nSO2   + 2DSTAL4    = SO4D4          : K_DST(4);\nHNO3  + DSTAL1     = NITD1          : K_DST(5);\nHNO3  + DSTAL2     = NITD2          : K_DST(6);\nHNO3  + DSTAL3     = NITD3          : K_DST(7);\nHNO3  + DSTAL4     = NITD4          : K_DST(8);\nH2SO4 + 2DSTAL1    = SO4D1          : K_DST(9);\nH2SO4 + 2DSTAL2    = SO4D2          : K_DST(10);\nH2SO4 + 2DSTAL3    = SO4D3          : K_DST(11);\nH2SO4 + 2DSTAL4    = SO4D4          : K_DST(12);\nSO2   + 2OH        = H2SO4          : K_DST(13);\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Reactions extracted from sulfate_mod.F90 (MSL, BMY)             %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Seasalt\nSO2  + SALAAL + O3  = SO4 - SALAAL       : K_MT(1);\nHCl  + SALAAL       = SALACL             : K_MT(2);\nHNO3 + SALAAL       = NIT                : K_MT(3);\nSO2  + SALCAL + O3  = SO4s - SALCAL      : K_MT(4);\nHCl  + SALCAL       = SALCCL             : K_MT(5);\nHNO3 + SALCAL       = NITs               : K_MT(6);\n//\n// Cloud\n// S(IV) --> S(VI)\nSO2 + H2O2          = SO4                : K_CLD(1);\nSO2 + O3            = SO4                : K_CLD(2) + SRO3; {Jan 2023; Added SRO3 here; BA}\nSO2 {+O2}           = SO4                : K_CLD(3);        {Mn & Fe catalysis + HET_DROP_CHEM()}\n//\n// HMS\nCH2O + SO2          = HMS                : K_CLD(4);        {Sep 2021; Moch2020; MSL}\nHMS                 = SO2 + CH2O         : K_CLD(5);        {Sep 2021; Moch2020; MSL}\nHMS + OH            = 2SO4 + CH2O - SO2  : K_CLD(6);        {Sep 2021; Moch2020; MSL}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Gas-phase chemistry reactions                                   %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\n// NOTES:\n// ------\n// (1) Be sure to use \"D\" exponents to force double precision values!\n//     (i.e. write 1.70d-12 instead of 1.70e-12, etc.).\n//        -- Bob Yantosca (16 Dec 2020)\n//\n// (2) This file might not render properly if the right hand side of the\n//     equation is longer than ~100 characters.  This seems to be an issue\n//     with the KPP code itself.  See this Github issue at geoschem/KPP:\n//     https://github.com/geoschem/KPP/issues/1\n//        -- Bob Yantosca (16 Dec 2020)\n//\n// (3) To avoid useless CPU cycles, we have introduced new rate law functions\n//     that skip computing Arrhenius terms (and other terms) that would\n//     evaluate to 1.  The Arrhenius terms that are passed to the function\n//     are in most cases now noted in the function name (e.g. GCARR_abc takes\n//     Arrhenius A, B, C parameters but GCARR_ac only passes A and C\n//     parameters because B=0 and the (300/T)*B would evaluate to 1).\n//     This should be much more computationally efficient, as these functions\n//     are called (sometimes multiple times) for each grid box where we\n//     perform chemistry.\n//        -- Bob Yantosca (25 Jan 2020)\n//\nO3 + NO = NO2 + O2 :                         GCARR_ac(3.00d-12, -1500.0d0);\nO3 + OH = HO2 + O2 :                         GCARR_ac(1.70d-12, -940.0d0);\nO3 + HO2 = OH + O2 + O2 :                    GCARR_ac(1.00d-14, -490.0d0);\nO3 + NO2 = O2 + NO3 :                        GCARR_ac(1.20d-13, -2450.0d0);\nO3 + MO2 = CH2O + HO2 + O2 :                 GCARR_ac(2.90d-16, -1000.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + OH = H2O + O :                          1.80d-12;                                                                         {2014/02/03; Eastham2014; SDE}\nOH + OH {+M} = H2O2 :                        GCJPLPR_aba(6.90d-31, 1.0d+00, 2.6d-11, 0.6d0);\nOH + HO2 = H2O + O2 :                        GCARR_ac(4.80d-11, 250.0d0);\nOH + H2O2 = H2O + HO2 :                      1.80d-12;\nHO2 + NO = OH + NO2 :                        GCARR_ac(3.44d-12, 260.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + HO2 = H2O2 + O2 :                      GC_HO2HO2_acac(3.00d-13, 460.0d0, 2.1d-33, 920.0d0);                              {2014/02/03; Eastham2014; SDE}\nOH + CO = HO2 + CO2 :                        GCJPLPR_abab(6.9d-33,2.1d0,1.1d-12,-1.3d0,0.6d0) + GCJPLAC_ababac(6.9d-33,2.1d0,1.1d-12,-1.3d0,1.85d-13,-6.5d1,0.6d0); {2023/04/18; JPL 19-5; KHB}\nOH + CH4 = MO2 + H2O :                       GCARR_ac(2.45d-12, -1775.0d0);\nMO2 + NO = CH2O + HO2 + NO2 :                GC_RO2NO_B1_ac(2.80d-12, 300.0d0);                                                {2019/05/10; Fisher2018; JAF}\nMO2 + NO = MENO3 :                           GC_RO2NO_A1_ac(2.80d-12, 300.0d0);                                                {2019/05/10; Fisher2018; JAF}\nMO2 + HO2 = MP + O2 :                        GCARR_abc(4.10d-13, 0.0d0, 750.0d0);\nMO2 + MO2 = MOH + CH2O + O2 :                GC_TBRANCH_1_acac(9.50d-14, 390.0d0, 2.62d1, -1130.0d0);\nMO2 + MO2 = 2.000CH2O + 2.000HO2 :           GC_TBRANCH_1_acac(9.50d-14, 390.0d0, 4.0d-2, 1130.0d0);\nMO2 + OH = 0.13MOH + 0.87CH2O + 1.74HO2 :    1.60d-10 ;                                                                        {2021/09/22; Bates2021a; KHB,MSL}\nMP + OH = 0.700MO2 + 0.300OH +\n 0.300CH2O + H2O :                           GCARR_ac(3.80d-12, 200.0d0);\nATOOH + OH = 0.700ATO2 + 0.300MGLY +\n 0.300OH + H2O :                             GCARR_ac(3.80d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nCH2O + OH = CO + HO2 + H2O :                 GCARR_ac(5.50d-12, 125.0d0);\nNO2 + OH {+M} = HNO3 {+M} :                  GCJPLPR_aba(1.80d-30, 3.0d+00, 2.8d-11, 0.6d0);\nHNO3 + OH = H2O + NO3 :                      GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0) + GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,0.6d0); {2023/04/18; JPL 19-5; KHB}\nNO + OH {+M} = HNO2 {+M} :                   GCJPLPR_abab(7.00d-31, 2.6d+00, 3.60d-11, 0.1d0, 0.6d0);\nHNO2 + OH = H2O + NO2 :                      GCARR_ac(3.00d-12, 250.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + NO2 {+M} = HNO4 {+M} :                 GCJPLPR_abab(1.90d-31, 3.4d+00, 4.0d-12, 0.3d0, 0.6d0);                           {2017/02/22; JPL 15-10; BHH,MJE}\nHNO4 {+M} = HO2 + NO2 :                      GCJPLPR_abcabc(9.05d-05, 3.4d0, -10900.0d0, 1.90d15, 0.3d0, -10900.0d0, 0.6d0);   {2017/02/22; JPL 15-10; BHH,MJE}\nHNO4 + OH = H2O + NO2 + O2 :                 GCARR_ac(4.50d-13, 610.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + NO3 = OH + NO2 + O2 :                  3.50d-12;\nNO + NO3 = 2.000NO2 :                        GCARR_ac(1.70d-11, 125.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nOH + NO3 = HO2 + NO2 :                       2.00d-11;                                                                         {2023/04/18; JPL 19-5; KHB}\nNO2 + NO3 {+M} = N2O5 {+M} :                 GCJPLPR_abab(2.40d-30, 3.0d+00, 1.6d-12, -0.1d0, 0.6d0);                          {2017/02/22; JPL 15-10; BHH,MJE}\nN2O5 {+M} = NO2 + NO3 :                      GCJPLPR_abcabc(4.14d-04, 3.0d0, -10840.0d0, 2.76d14, -0.1d0, -10840.0d0, 0.6d0);  {2017/02/22; JPL 15-10; BHH,MJE}\nHCOOH + OH = H2O + CO2 + HO2 :               4.00d-13;                                                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMOH + OH = HO2 + CH2O :                      GCARR_ac(2.90d-12, -345.0d0);\nNO2 + NO3 = NO + NO2 + O2 :                  GCARR_ac(4.35d-14, -1335.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nNO3 + CH2O = HNO3 + HO2 + CO :               5.80d-16;\nALD2 + OH = 0.950MCO3 + 0.050CH2O +\n 0.050CO + 0.050HO2 + H2O :                  GCARR_ac(4.63d-12, 350.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nALD2 + NO3 = HNO3 + MCO3 :                   GCARR_ac(1.40d-12, -1900.0d0);\nMCO3 + NO2 {+M} = PAN :                      GCJPLPR_abab(7.30d-29, 4.1d+00, 9.5d-12, 1.6d0, 0.6d0);                           {2023/04/18; JPL 19-5; KHB}\nPAN = MCO3 + NO2 :                           GCJPLEQ_acabab(9.00d-29, 14000.0d0, 7.3d-29, 4.1d0, 9.5d-12, 1.6d0, 0.6d0);       {2023/04/18; JPL 19-5; KHB}\nMCO3 + NO = MO2 + NO2 + CO2 :                GCARR_ac(8.10d-12, 270.0d0);\nC2H6 + OH = ETO2 + H2O :                     GCARR_ac(7.66d-12, -1020.0d0);                                                    {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nETO2 + NO = ALD2 + NO2 + HO2 :               GC_RO2NO_B2_aca(2.60d-12, 365.0d0, 2.0d0);                                        {2019/05/10; Fisher2018; JAF}\nETO2 + NO = ETNO3 :                          GC_RO2NO_A2_aca(2.60d-12, 365.0d0, 2.0d0);                                        {2019/05/10; Fisher2018; JAF}\nOTHRO2 + NO = ALD2 + NO2 + HO2 :             GCARR_ac(2.60d-12, 365.0d0);                                                      {2019/05/10; Fisher2018; JAF}\nC3H8 + OH = B3O2 :                           GCARR_abc(8.54d-13,1.54d0,-19.0d0);                                               {2023/04/18; JPL 19-5; KHB}\nC3H8 + OH = A3O2 :                           GCARR_abc(1.97d-12,1.23d0,-675.0d0);                                              {2023/04/18; JPL 19-5; KHB}\nA3O2 + NO = NO2 + HO2 + RCHO :               GC_RO2NO_B2_aca(2.90d-12, 350.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nA3O2 + NO = NPRNO3 :                         GC_RO2NO_A2_aca(2.90d-12, 350.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nPO2 + NO = NO2 + HO2 + CH2O + ALD2 :         GCARR_ac(2.70d-12, 350.0d0);\nALK4 + OH = R4O2 :                           GCARR_ac(9.10d-12, -405.0d0);\nR4O2 + NO = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/04/18; Bates2023; KHB}\nR4O2 + NO = R4N2 :                           GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0);\nR4N1 + NO = 2.000NO2 + 0.640RCHO +\n 0.970ALD2 + 0.640CH2O :                     GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/04/18; Bates2023; KHB}\nATO2 + NO = NO2 + CH2O + MCO3 :              GCARR_ac(2.90d-12, 300.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nKO2 + NO = 0.928NO2 + 0.919ALD2 +\n 0.919MCO3 + 0.072R4N2 :                     GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/04/18; Bates2023; KHB}\nB3O2 + NO = NO2 + HO2 + ACET :               GC_RO2NO_B2_aca(2.70d-12, 360.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nB3O2 + NO = IPRNO3 :                         GC_RO2NO_A2_aca(2.70d-12, 360.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nPRN1 + NO = 2.000NO2 + CH2O + ALD2 :         GCARR_ac(2.70d-12, 350.0d0);\nALK4 + NO3 = HNO3 + R4O2 :                   GCARR_ac(2.80d-12, -3280.0d0);\nR4N2 + OH = R4N1 + H2O :                     1.60d-12;\nACTA + OH = MO2 + CO2 + H2O :                GCARR_ac(3.15d-14, 920.0d0);                                                      {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nOH + RCHO = RCO3 + H2O :                     GCARR_ac(6.00d-12, 410.0d0);\nRCO3 + NO2 {+M} = PPN :                      GCJPLPR_abab(9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0);                             {JPL Eval 17}\nPPN = RCO3 + NO2 :                           GCJPLEQ_acabab(9.00d-29, 14000.0d0, 9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0);\nRCO3 + NO = NO2 + 0.490OTHRO2 +\n 0.070A3O2 + 0.270B3O2 + CO2 :               GCARR_ac(6.70d-12, 340.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nRCHO + NO3 = HNO3 + RCO3 :                   6.50d-15;\nACET + OH = ATO2 + H2O :                     1.33d-13 + 3.82d-11*exp(-2000.0d0/TEMP);                                          {JPL Eval 17, p1-62-D31; EVF}\nA3O2 + MO2 = HO2 + 0.750CH2O + 0.750RCHO +\n 0.250MOH + 0.250ROH :                       5.92d-13;\nPO2 + MO2 = HO2 + 0.500ALD2 + 1.250CH2O +\n 0.160HAC + 0.090RCHO + 0.250MOH +\n 0.250ROH :                                  5.92d-13;\nR4O2 + HO2 = R4P :                           GCARR_ac(7.40d-13, 700.0d0);\nR4N1 + HO2 = R4N2 :                          GCARR_ac(7.40d-13, 700.0d0);\nATO2 + HO2 = 0.150MCO3 + 0.150OH +\n 0.150CH2O + 0.850ATOOH :                    GCARR_ac(8.60d-13, 700.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nKO2 + HO2 = 0.150OH + 0.150ALD2 +\n 0.150MCO3 + 0.850ATOOH + 0.850MO2 :         GC_RO2HO2_aca(2.91d-13, 1300.0d0, 4.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB}\nB3O2 + HO2 = RB3P :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPRN1 + HO2 = PRPN :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMEK + OH = KO2 + H2O :                       GCARR_ac(1.50d-12, -90.0d0);                                                      {2023/04/18; Atkinson2006; KHB}\nMO2 + ETO2 = 0.750CH2O + 0.750ALD2 + HO2 +\n 0.250MOH + 0.250EOH :                       3.00d-13;\nMO2 + OTHRO2 = 0.750CH2O + 0.750ALD2 +\n HO2 + 0.250MOH + 0.250EOH :                 3.00d-13;                                                                         {2019/05/10; Fisher2018; JAF}\nMEK + NO3 = HNO3 + KO2 :                     8.00d-16;\nR4O2 + MO2 = 0.160ACET + 0.100MEK +\n 0.090MO2 + 0.140HO2 + 0.160ALD2 +\n 0.130RCHO + 0.030A3O2 + 0.090B3O2 +\n 0.160OTHRO2 + 0.250MEK + 0.750CH2O +\n 0.250MOH + 0.380ROH + 0.500HO2 :            8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nR4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 +\n 0.580RCHO + 0.150R4O2 + 0.500HO2 +\n 0.250MOH + 0.375ROH :                       8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nATO2 + MO2 = 0.300HO2 + 0.500CH2O +\n 0.300MCO3 + 0.200HAC + 0.500MGLY +\n 0.500MOH + 0.300CO2 :                       GCARR_ac(7.50d-13, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nKO2 + MO2 = 0.500ALD2 + 0.500MCO3 +\n 0.250MEK + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 + 0.250MO2 :            8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nB3O2 + MO2 = 0.500HO2 + 0.500ACET +\n 0.250ACET + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 :                       8.37d-14;\nPRN1 + MO2 = NO2 + 0.500CH2O + 0.500ALD2 +\n 0.250RCHO + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 :                       8.37d-14;\nEOH + OH = HO2 + ALD2 :                      3.35d-12;                                                                         {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nROH + OH = HO2 + RCHO :                      GCARR_ac(4.40d-12, 70.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nETO2 + ETO2 = 1.600ALD2 +\n 0.400EOH + 1.200HO2 :                       6.80d-14;\nOTHRO2 + OTHRO2 = 1.600ALD2 +\n 0.400EOH + 1.200HO2 :                       6.80d-14;                                                                         {2019/05/10; Fisher2018; JAF}\nHO2 + ETO2 = ETP :                           GCARR_ac(7.50d-13, 700.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + OTHRO2 = ETP :                         GCARR_ac(7.50d-13, 700.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; JPL 19-5; KHB}\nA3O2 + HO2 = RA3P :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPO2 + HO2 = PP :                             GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRCO3 + HO2 = 0.410RP + 0.150RCOOH +\n 0.150O3 + 0.440OH + 0.220OTHRO2 +\n 0.030A3O2 + 0.120B3O2 + 0.430CO2 :          GCARR_ac(4.30d-13, 1040.0d0);                                                     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nPRPE + OH {+M} = PO2 :                       GCJPLPR_abab(4.60d-27, 4.0d0, 2.6d-11, 1.3d0, 0.5d0);                             {2017/02/22; JPL 15-10; BHH,MJE}\nPRPE + O3 = 0.100CH4 + 0.280MO2 + 0.100CO2 +\n 0.120CH3CHOO + 0.500ALD2 + 0.220CH2OO +\n 0.500CH2O + 0.560CO + 0.280HO2 + 0.360OH :  GCARR_ac(6.50d-15, -1900.0d0);                                                    {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nGLYC + OH = 0.732CH2O + 0.361CO2 +\n 0.505CO + 0.227OH + 0.773HO2 +\n 0.134GLYX + 0.134HCOOH :                    GC_GLYCOH_A_a(8.00d-12);                                                          {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nGLYC + OH = HCOOH + OH + CO :                GC_GLYCOH_B_a(8.00d-12);                                                          {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPRPE + NO3 = PRN1 :                          GCARR_ac(4.59d-13, -1156.0d0);\nGLYX + OH = HO2 + 2.000CO :                  GCARR_ac(3.10d-12, 340.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMGLY + OH = MCO3 + CO :                      GCARR_ac(1.90d-12, 575.0d0);                                                      {2023/04/18; Atkinson2006; KHB}\nGLYX + NO3 = HNO3 + HO2 + 2.000CO :          GC_GLYXNO3_ac(1.40d-12, -1860.0d0);\nMGLY + NO3 = HNO3 + CO + MCO3 :              GCARR_ac(3.36d-12, -1860.0d0);                                                    {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nHAC + OH = MGLY + HO2 :                      GC_HACOH_A_ac(2.00d-12, 320.0d0);                                                 {2023/04/18; Atkinson2006; KHB}\nHAC + OH = 0.500HCOOH + OH + 0.500ACTA +\n 0.500CO2 + 0.500CO + 0.500MO2 :             GC_HACOH_B_ac(2.00d-12, 320.0d0);                                                 {2023/04/18; Atkinson2006; KHB}\nPRPN + OH = 0.209PRN1 + 0.791OH +\n 0.791PROPNN :                               GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nETP + OH = 0.640OH + 0.360OTHRO2 +\n 0.640ALD2 :                                 GCARR_ac(5.18d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRA3P + OH = 0.640OH + 0.360A3O2 +\n 0.640RCHO :                                 GCARR_ac(5.18d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRB3P + OH = 0.791OH + 0.209B3O2 +\n 0.791ACET :                                 GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nR4P + OH = 0.790OH + 0.210R4O2 + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB}\nRP + OH = RCO3 :                             GCARR_ac(6.13d-13, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPP + OH = 0.791OH + 0.209PO2 + 0.791HAC :    GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nLVOC + OH = OH :                             GCARR_ac(4.82d-11, -400.0d0);                                                     {2017/06/14; Marais2016; EAM}\nOH + MAP = 0.780MCO3 + 0.220OH +\n 0.220CO2 + 0.220CH2O :                      3.00d-14;                                                                         {2023/04/18; Atkinson2006; KHB}\nC2H6 + NO3 = ETO2 + HNO3 :                   1.40d-18;                                                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMCO3 + MCO3 = 2.000MO2 + 2.000CO2 :          GCARR_ac(2.90d-12, 500.0d0);                                                      {2023/04/18; JPL 19-5, Bates2023; KHB}\nMCO3 + MO2 = 0.1ACTA + CH2O +\n 0.9MO2 + 0.9HO2 + 0.9CO2:                   GCARR_ac(2.00d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nR4O2 + MCO3 = 0.271MEK + 0.100ACTA +\n 0.900MO2 + 0.290ACET + 0.243HO2 +\n 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO\n + 0.045A3O2 + 0.162B3O2 + 0.900CO2:         GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nATO2 + MCO3 = 0.900MO2 + 0.900MCO3 +\n 0.900CH2O + 0.100MGLY + 0.100ACTA +\n 0.900CO2 :                                  GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nKO2 + MCO3 = 0.900MO2 + 0.900MCO3 +\n 0.900ALD2 + 0.100MEK + 0.100ACTA +\n 0.900CO2 :                                  GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nB3O2 + MCO3 = 0.900MO2 + 0.900HO2 +\n ACET + 0.100ACTA + 0.900CO2 :               GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nR4N1 + MCO3 = 0.900MO2 + 0.100ACTA +\n 0.613RCHO + 0.351CH2O + 0.675ALD2 +\n 0.270R4O2 + 0.645CO2 + NO2 :                GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nPRN1 + MCO3 = 0.900MO2 + 0.900CH2O +\n 0.900CO2 + 0.900ALD2 + 0.100RCHO +\n 0.100ACTA + NO2 :                           GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nETO2 + MCO3 = 0.900MO2 + ALD2 +\n 0.900HO2 + 0.100ACTA + 0.900CO2 :           GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nOTHRO2 + MCO3 = 0.900MO2 + ALD2 +\n 0.900HO2 + 0.100ACTA + 0.900CO2 :           GCARR_ac(1.87d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nPO2 + MCO3 = 0.900MO2 + 0.900HO2 +\n 0.900ALD2 + 0.900CH2O + 0.065HAC +\n 0.035RCHO + 0.100ACTA + 0.900CO2 :          GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nA3O2 + MCO3 = 0.900MO2 + 0.900HO2 +\n RCHO + 0.100ACTA + 0.900CO2 :               GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nRCO3 + MCO3 = MO2 + 0.490OTHRO2 +\n 0.070A3O2 + 0.270B3O2 + 2.000CO2 :          GCARR_ac(2.50d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nRCO3 + MO2 = CH2O + CO2 + HO2 +\n 0.490OTHRO2 + 0.070A3O2 + 0.270B3O2 :       GCARR_ac(1.87d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nNO3 + NO3 = 2.000NO2 + O2 :                  GCARR_ac(8.50d-13, -2450.0d0);\nMO2 + NO2 {+M} = MPN {+M} :                  GCJPLPR_abab(1.00d-30, 4.8d+00, 7.2d-12, 2.1d0, 0.6d0);                           {2012/02/12; Browne2011; ECB}\nMPN {+M} = MO2 + NO2 :                       GCJPLPR_abcabc(1.05d-02, 4.8d+00, -11234.0d0, 7.58d16, 2.1d0, -11234.0d0, 0.6d0); {2012/02/12; Browne2011; ECB}\nDMS + OH = SO2 + MO2 + CH2O :                GCARR_ac(1.20d-11, -280.0d0);\nDMS + OH = 0.750SO2 + 0.250MSA + MO2 :       GC_DMSOH_acac(8.20d-39, 5376.0d0, 1.05d-5, 3644.0d0);\nDMS + NO3 = SO2 + HNO3 + MO2 + CH2O :        GCARR_ac(1.90d-13, 530.0d0);\nSO2 + OH {+M} = SO4 + HO2 :                  GCJPLPR_abab(2.90d-31, 4.1d+00, 1.7d-12, -0.2d0, 0.6d0);                          {2023/04/18; JPL 19-5; KHB}\nBr + O3 = BrO + O2 :                         GCARR_ac(1.60d-11, -780.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nBrO + HO2 = HOBr + O2 :                      GCARR_ac(4.50d-12, 460.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + HO2 = HBr + O2 :                        GCARR_ac(4.80d-12, -310.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nHBr + OH = Br + H2O :                        GCARR_ac(5.50d-12, 200.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + BrO = 2.000Br + O2 :                   GCARR_ac(2.40d-12,  40.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + BrO = Br2 + O2 :                       GCARR_ac(2.80d-14, 860.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + NO = Br + NO2 :                        GCARR_ac(8.80d-12, 260.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + BrNO3 = Br2 + NO3 :                     4.90d-11;                                                                         {2012/06/07; Parrella2012; JPP}\nBr2 + OH = HOBr + Br :                       GCARR_ac(2.10d-11, 240.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nHOBr + O = OH + BrO :                        GCARR_ac(1.20d-10, -430.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nHBr + O = OH + Br :                          GCARR_ac(5.80d-12, -1500.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nBrO + OH = Br + HO2 :                        GCARR_ac(1.70d-11, 250.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + NO3 = BrO + NO2 :                       1.60d-11;                                                                         {2012/06/07; Parrella2012; JPP}\nBr + CH2O = HBr + HO2 + CO :                 GCARR_ac(1.70d-11, -800.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nBr + ALD2 = HBr + MCO3 :                     GCARR_ac(1.80d-11, -460.0d0);                                                     {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + ACET = HBr + ATO2 :                     GCARR_ac(1.66d-10, -7000.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + C2H6 = HBr + ETO2 :                     GCARR_ac(2.36d-10, -6411.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + C3H8 = HBr + A3O2 :                     GCARR_ac(8.77d-11, -4330.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + NO2 {+M} = BrNO2 {+M} :                 GCJPLPR_aba(4.20d-31, 2.4d0, 2.7d-11, 0.6d0);                                     {2012/06/07; Parrella2012; JPP}\nBrO + NO2 {+M} = BrNO3 {+M} :                GCJPLPR_abab(5.40d-31, 3.1d0, 6.5d-12, 2.9d0, 0.6d0);                             {2017/02/22; JPL 15-10; BHH,MJE}\nCHBr3 + OH = 3.000Br :                       GCARR_ac(9.00d-13, -360.0d0);                                                     {2017/02/22; JPL 15-10; BHH,MJE}\nCH2Br2 + OH = 2.000Br :                      GCARR_ac(2.00d-12, -840.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nCH3Br + OH = Br + H2O + HO2 :                GCARR_ac(1.42d-12, -1150.0d0);                                                    {2017/03/08; JPL 15-10; TS,BHH,MJE}\nO1D + H2O = 2.000OH :                        GCARR_ac(1.63d-10, 60.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + N2 = O + N2 :                          GCARR_ac(2.15d-11, 110.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nO1D + O2 = O + O2 :                          GCARR_ac(3.30d-11, 55.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + H2 = H + OH :                          1.20d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + N2O = 0.390N2 + 0.390O2 + 1.220NO :    GCARR_ac(1.19d-10, 20.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + CH4 = 0.750MO2 + 0.750OH +\n 0.200H + 0.200HO2 + 0.050H2 + 0.250CH2O :   1.75d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO + O2 {+M} = O3 {+M} :                      GCARR_ab(6.00d-34, 2.4d0)*NUMDEN;                                                 {2014/02/03; Eastham2014; SDE}\nO + O3 = 2.000O2 :                           GCARR_ac(8.00d-12, -2060.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + H2 = H2O + H :                          GCARR_ac(2.80d-12, -1800.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nO + OH = O2 + H :                            GCARR_ac(1.80d-11, 180.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nHO2 + O = OH + O2 :                          GCARR_ac(3.00d-11, 200.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nO1D + O3 = O + 1.500O2 :                     2.40d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nOCS + O = CO + SO2 :                         GCARR_ac(2.10d-11, -2200.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOCS + OH = CO2 + SO2 :                       GCARR_ac(7.20d-14, -1070.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nNO2 + O = NO + O2 :                          GCJPLAC_ababac(3.4e-31, 1.6d0, 2.3d-11, 0.2d0, 5.3d-12, 2.0d2, 0.6d0);            {2023/04/18; JPL 19-5; KHB}\nNO3 + O = NO2 + O2 :                         1.30d-11;                                                                         {2023/04/18; JPL 19-5; KHB}\nNO + O {+M} = NO2 {+M} :                     GCJPLPR_aba(9.00d-32, 1.5d+00, 3.0d-11, 0.6d0);                                   {2014/02/03; Eastham2014; SDE}\nNO2 + O {+M} = NO3 {+M} :                    GCJPLPR_abab(3.4d-31, 1.6d0, 2.3d-11, 0.2d0, 0.6d0);                              {2023/04/18; JPL 19-5; KHB}\nH2O2 + O = OH + HO2 :                        GCARR_ac(1.40d-12, -2000.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nH + O2 {+M} = HO2 {+M} :                     GCJPLPR_abab(5.30d-32, 1.8d+00, 9.5d-11, -0.4d0, 0.6d0);                          {2023/04/18; JPL 19-5; KHB}\nH + O3 = OH + O2 :                           GCARR_ac(1.40d-10, -470.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nH + HO2 = 1.788OH + 0.020O +\n 0.020H2O + 0.086H2 + 0.086O2 :              8.05d-11;                                                                         {2014/02/03; Eastham2014; SDE}\nN + O2 = NO + O :                            GCARR_ac(3.30d-12, -3150.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nN + NO = N2 + O :                            GCARR_ac(2.10d-11, 100.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nN + NO2 = N2O + O :                          GCARR_ac(5.80d-12, 220.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nBrO + O = Br + O2 :                          GCARR_ac(1.90d-11, 230.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCH2O + O = CO + HO2 + OH :                   GCARR_ac(3.40d-11, -1600.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nO1D + HCl = 0.120O + 0.120HCl + 0.220H +\n 0.660Cl + 0.220ClO + 0.660OH :              1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HBr = 0.200O + 0.200HBr + 0.200BrO +\n 0.600OH + 0.200H + 0.600Br :                1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + Cl2 = 0.250O + 0.250Cl2 + 0.750Cl +\n 0.750ClO :                                  2.70d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CCl4 = 0.210O + 0.210CCl4 +\n 0.790ClO + 2.370Cl :                        3.30d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CH3Cl = 0.100O + 0.100CH3Cl +\n 0.460ClO + 0.350Cl + 0.090H + 0.900MO2 :    2.60d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CH3Br = 0.440BrO + MO2 + 0.560Br :     1.80d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CH2Br2 = 0.050O + 0.050CH2Br2 +\n 0.950BrO + 0.950Br :                        2.70d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CHBr3 = 0.300O + 0.300CHBr3 +\n 0.700BrO + 1.400Br :                        6.60d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC22 = 0.250O + 0.250HCFC22 +\n 0.560ClO + 0.190Cl + 0.050OH :              1.02d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC11 = 0.100O + 0.100CFC11 +\n 0.900ClO + 1.800Cl :                        2.30d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC12 = 0.140O + 0.140CFC12 +\n 0.860ClO + 0.860Cl :                        1.40d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + H1211 = 0.350O + 0.350H1211 +\n 0.310BrO + 0.310Cl + 0.340Br + 0.340ClO :   1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + H1301 = 0.550O + 0.550H1301 +\n 0.450BrO :                                  1.00d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC141b = 0.310O + 0.310HCFC141b +\n 0.690ClO + 0.690Cl :                        2.60d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + HCFC142b = 0.350O + 0.350HCFC142b +\n 0.650ClO :                                  2.00d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC123 = 0.210O + 0.210HCFC123 +\n 0.790Cl + 0.790ClO :                        2.00d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CFC113 = 0.100O + 0.100CFC113 +\n 1.900Cl + 0.800ClO :                        2.32d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC114 = 0.100O + 0.100CFC114 +\n 0.950Cl + 0.850ClO :                        GCARR_ac(1.30d-10, 25.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nO1D + CFC115 = 0.140O + 0.140CFC115 +\n 0.860ClO :                                  GCARR_ac(5.40d-11, 30.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nO1D + H2402 = 0.250O + 0.250H2402 +\n 0.750Br + 0.750BrO :                        GCARR_ac(1.60d-10, 0.0d0);                                                        {2014/02/03; Eastham2014; SDE}\nOH + Cl2 = HOCl + Cl :                       GCARR_ac(2.60d-12, -1100.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nMO2 + ClO = ClOO + HO2 + CH2O :              GCARR_ac(1.80d-11, -600.0d0);                                                     {2017/03/20; JPL 15-10; TS,BHH,MJE}\nOH + ClO = HO2 + Cl :                        GCARR_ac(7.40d-12, 270.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + ClO = HCl + O2 :                        GCARR_ac(6.00d-13, 230.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + OClO = HOCl + O2 :                      GCARR_ac(1.40d-12, 600.0d0);                                                      {2017/02/22; JPL 15-10; BHH,MJE}\nOH + Cl2O2 = HOCl + ClOO :                   GCARR_ac(6.00d-13, 670.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + HCl = H2O + Cl :                        GCARR_ac(1.80d-12, -250.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + HOCl = H2O + ClO :                      GCARR_ac(3.00d-12, -500.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + ClNO2 = HOCl + NO2 :                    GCARR_ac(2.40d-12, -1250.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + ClNO3 = HOCl + NO3 :                    GCARR_ac(1.20d-12, -330.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + CH3Cl = Cl + HO2 + H2O :                GCARR_ac(1.96d-12, -1200.0d0);                                                    {2017/02/22; JPL 15-10; BHH,MJE}\nOH + CH2Cl2 = 2.000Cl + HO2 :                GCARR_ac(1.92d-12, -880.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nOH + CHCl3 = 3.000Cl + HO2 :                 GCARR_ac(2.20d-12, -920.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nOH + CH3CCl3 = 3.000Cl + H2O :               GCARR_ac(1.64d-12, -1520.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC22 = Cl + H2O :                     GCARR_ac(9.20d-13, -1560.0d0);                                                    {2017/02/22; JPL 15-10; BHH,MJE}\nOH + HCFC141b = 2.000Cl + H2O :              GCARR_ac(1.25d-12, -1600.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC142b = Cl + H2O :                   GCARR_ac(1.30d-12, -1770.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC123 = 2.000Cl + H2O :               GCARR_ac(7.40d-13, -900.0d0);                                                     {2017/02/22; JPL 15-10; BHH,MJE}\nCH4 + Cl = HCl + MO2 :                       GCARR_ac(7.10d-12, -1270.0d0);                                                    {2017/03/08; JPL 15-10; TS,BHH,MJE}\nCH2O + Cl = CO + HCl + HO2 :                 GCARR_ac(8.10d-11, -30.0d0);                                                      {2017/09/22; Sherwen2016b; TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + O3 = ClO + O2 :                         GCARR_ac(2.30d-11, -200.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nCl + H2 = H + HCl :                          GCARR_ac(3.05d-11, -2270.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nCl + H2O2 = HO2 + HCl :                      GCARR_ac(1.10d-11, -980.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nCl + HO2 = O2 + HCl :                        GCARR_ac(1.40d-11, 270.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCl + HO2 = OH + ClO :                        GCARR_ac(3.60d-11, -375.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nClO + O = Cl + O2 :                          GCARR_ac(2.80d-11, 85.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nClO + HO2 = O2 + HOCl :                      GCARR_ac(2.60d-12, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + NO = Cl + NO2 :                        GCARR_ac(6.40d-12, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + NO2 {+M} = ClNO3 {+M} :                GCJPLPR_abab(1.80d-31, 3.4d+00, 1.50d-11, 1.9d0, 0.6d0);                          {2014/02/03; Eastham2014; SDE}\nClO + ClO = Cl2 + O2 :                       GCARR_ac(1.00d-12, -1590.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nClO + ClO = Cl + ClOO :                      GCARR_ac(3.00d-11, -2450.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nClO + ClO = OClO + Cl :                      GCARR_ac(3.50d-13, -1370.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nCl + O2 {+M} = ClOO {+M} :                   GCJPLPR_aba(2.20d-33, 3.1d+00, 1.8d-10, 0.6d0);                                   {2014/02/03; Eastham2014; SDE}\nClOO {+M} = Cl + O2 {+M} :                   GCJPLEQ_acabab(6.60d-25, 2502.0d0, 2.20d-33, 3.1d+00, 1.8d-10, 0.0d0, 0.6d0);     {JPL 15-10; XW}\nClO + ClO {+M} = Cl2O2 {+M} :                GCJPLPR_abab(1.90d-32, 3.6d+00, 3.7d-12, 1.6d0, 0.6d0);                           {2017/02/22; JPL 15-10; BHH,MJE}\nCl2O2 {+M} = 2.000ClO {+M} :                 GCJPLEQ_acabab(2.16d-27, 8537.0d0, 1.90d-32, 3.6d+00, 3.7d-12, 1.6d0, 0.6d0);     {JPL 15-10; XW}\nClOO + Cl = 0.950Cl2 + 0.950O2 + 0.100ClO :  2.42d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nClO + BrO = Br + OClO :                      GCARR_ac(9.50d-13, 550.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + BrO = Br + ClOO :                      GCARR_ac(2.30d-12, 260.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + BrO = BrCl + O2 :                      GCARR_ac(4.10d-13, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClNO3 + O = ClO + NO3 :                      GCARR_ac(3.60d-12, -840.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nClNO3 + Cl = Cl2 + NO3 :                     GCARR_ac(6.50d-12, 135.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCH3Cl + Cl = CO + 2.000HCl + HO2 :           GCARR_ac(2.03d-11, -1110.0d0);                                                    {2014/02/03; Eastham2014; SDE; 2023/04/18; JPL 19-5; KHB}\nCH2Cl2 + Cl = CO + HCl + 2.000Cl + HO2 :     GCARR_ac(7.40d-12, -910.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCHCl3 + Cl = CO + HCl + 3.000Cl + HO2 :      GCARR_ac(3.30d-12, -990.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + HCOOH = HCl + CO2 + H2O :               2.00d-13;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + MO2 = ClO + CH2O + HO2 :                1.60d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + MP = HCl + MO2 :                        5.7d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C2H6 = HCl + ETO2 :                     GCARR_ac(7.2d-11, -70.0d0);                                                       {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ETO2 = ClO + HO2 + ALD2 :               7.4d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + OTHRO2 = ClO + HO2 + ALD2 :             7.4d-11;                                                                          {2019/05/10; Fisher2018; JAF}\nCl + MOH = HCl + CH2O + HO2 :                5.5d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + EOH = HCl + ALD2 :                      9.6d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ACTA = HCl + MO2 + CO2 :                2.8d-14;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C3H8 = HCl + B3O2 :                     GCARR_ac(6.54d-11, 60.0d0);                                                       {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C3H8 = HCl + A3O2 :                     GCARR_ac(8.12d-11, -90.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ACET = HCl + ATO2 :                     GCARR_ac(1.63d-11, -610.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + ISOP = HCl + 0.5IHOO1 + 0.5IHOO4 :      GCARR_ac(7.60d-11, 500.0d0);                                                      {2019/11/06; Sherwen2016b;KHB,TS,JAS,SDE}\nCl + ALK4 = HCl + R4O2 :                     2.05d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + PRPE {+M} = HCl + PO2 {+M} :            GCJPLPR_aa(4.00d-28, 2.8d-10, 0.6d0);                                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nBr + PRPE = HBr + PO2 :                      3.60d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + NO {+M} = INO {+M} :                     GCJPLPR_aba(1.80d-32, 1.0d0, 1.70d-11, 0.6d0);                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nINO + INO = I2 + 2.000NO :                   GCARR_ac(8.40d-11, -2620.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + NO2 {+M} = IONO {+M} :                   GCJPLPR_aba(3.00d-31, 1.0d0, 6.6d-11, 0.6d0);                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIONO {+M} = I + NO2 {+M} :                   GCARR_ac(9.94d+17, -11859.0d0);                                                   {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO + IONO = I2 + 2.000NO2 :                GCARR_ac(2.90d-11, -2600.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2 + NO3 = I + IONO2 :                       1.50d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + NO2 {+M} = IONO2 {+M} :                 GCJPLPR_abab(7.50d-31, 3.5d0, 7.6d-12, 1.5d0, 0.6d0);                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 {+M} = IO + NO2 {+M} :                 GCARR_ac(2.10d+15, -13670.0d0);                                                   {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 + I = I2 + NO3 :                       GCARR_ac(9.10d-11, -146.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + BrO = IO + Br :                          1.20d-11;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + BrO = 0.8OIO + Br + 0.2I + 0.2O2 :      GCARR_ac(5.50d-12, 760.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIO + OIO {+M} = I2O3 {+M} :                  1.00d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + OIO = I2O4 :                           1.50d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 {+M} = 2.000OIO {+M} :                  3.80d-02;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + NO = IO + NO2 :                        GCARR_ac(1.10d-12, 542.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + ClO = 0.809I + 0.560OClO +\n 0.249Cl + 0.191ICl + 0.440O2 :              GCARR_ac(4.82d-12, 280.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI + O3 = IO + O2 :                           GCARR_ac(2.00d-11, -830.0d0);                                                     {2017/09/22; Sherwen2017;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI + HO2 = HI + O2 :                          GCARR_ac(1.50d-11, -1090.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2 + OH = HOI + I :                          1.80d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI + OH = I + H2O :                          3.00d-11;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI + OH = IO + H2O :                        5.00d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + HO2 = HOI + O2 :                        GCARR_ac(1.30d-11, 570.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + NO = I + NO2 :                          GCARR_ac(8.60d-12, 230.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIO + IO = 0.400I + 0.400OIO + 0.600I2O2:     GCARR_ac(1.50d-11, 500.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI2O2 {+M} = 0.008IO + 0.996I +\n 0.996OIO {+M} :                             GCARR_ac(2.51d+14, -9770.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; Bates2023; KHB}\nCH3I + OH = H2O + I + MO2 :                  GCARR_ac(2.90d-12, -1100.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nETHLN + OH = CH2O + CO2 + NO2 :              2.40d-12;                                                                         {2017/06/15, Marais2016, EAM}\nPROPNN + OH = NO2 + MGLY :                   6.70d-13;                                                                         {2017/07/14; MCMv3.3; KRT,JAF,CCM,EAM,KHB,RHS}\nCH2OO + CO = CH2O + CO2 :                    1.20d-15;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; Bates2023; KHB}\nCH2OO + NO = CH2O + NO2 :                    1.00d-14;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH2OO + NO2 = CH2O + NO3 :                   4.25d-12;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH2OO + H2O = 0.730HMHP + 0.210HCOOH +\n 0.060CH2O + 0.060H2O2 :                     2.80d-16;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nCH2OO + H2O + H2O = 0.400HMHP +\n 0.540HCOOH + 0.060CH2O + 0.060H2O2 :        GCARR_ac(2.88d-35, 1391.0d0);                                                     {2019/11/06; Bates2019; KHB}\nCH2OO + O3 = CH2O :                          1.40d-12;                                                                         {2019/11/06; Bates2019; KHB}\nCH2OO + SO2 = CH2O + SO4 :                   3.80d-11;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + CO = ALD2 + CO2 :                  1.20d-15;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; Bates2023; KHB}\nCH3CHOO + NO = ALD2 + NO2 :                  1.00d-14;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH3CHOO + NO2 = ALD2 + NO3 :                 4.25d-12;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + SO2 = ALD2 + SO4 :                 2.65d-11;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + H2O = ALD2 + H2O2 :                6.00d-18;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH3CHOO + H2O = ACTA :                       1.00d-17;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nMTPA + OH = PIO2 :                           GCARR_ac(1.21d-11, 440.0d0);                                                      {2017/03/23; IUPAC2010; EVF}\nMTPO + OH = PIO2 :                           GCARR_ac(1.21d-11, 440.0d0);                                                      {2017/03/23; IUPAC2010; EVF}\nPIO2 + NO = 0.820HO2 + 0.820NO2 +\n 0.230CH2O + 0.430RCHO + 0.110ACET +\n 0.440MEK + 0.070HCOOH + 0.120MONITS +\n 0.060MONITU :                               4.00d-12;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nPIO2 + HO2 = PIP :                           1.50d-11;                                                                         {2017/03/23; Roberts1992; EVF}\nPIO2 + MO2 = HO2 + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.750RCHO + 0.750MEK :           GCARR_ac(3.56d-14, 708.0d0);                                                      {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nPIO2 + MCO3 = 0.500HO2 + 0.500MO2 + CO2 +\n RCHO + 1.125MEK + RCOOH :                   GCARR_ac(7.40d-13, 765.0d0);                                                      {2017/03/23; Roberts1992; EVF; 2022/07/01; 2023/04/18; Bates2023; KHB}\nPIO2 + NO3 = HO2 + NO2 + RCHO + MEK :        1.20d-12;                                                                         {2017/03/23; Roberts1992; EVF}\nMTPA + O3 = 0.850OH + 0.100HO2 +\n 0.620KO2 + 0.140CO + 0.020H2O2 +\n 0.650RCHO + 0.530MEK :                      GCARR_ac(5.00d-16, -530.0d0);                                                     {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS}\nMTPO + O3 = 0.850OH + 0.100HO2 +\n 0.620KO2 + 0.140CO + 0.020H2O2 +\n 0.650RCHO + 0.530MEK :                      GCARR_ac(5.00d-16, -530.0d0);                                                     {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS}\nMTPA + NO3 = 0.100OLNN + 0.900OLND :         GCARR_ac(8.33d-13, 490.0d0);                                                      {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMTPO + NO3 = 0.100OLNN + 0.900OLND :         GCARR_ac(8.33d-13, 490.0d0);                                                      {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + OH = LIMO2 :                          GCARR_ac(4.20d-11, 401.0d0);                                                      {2017/07/14; Gill2002; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + O3 = 0.850OH + 0.100HO2 +\n 0.160OTHRO2 + 0.420KO2 + 0.020H2O2 +\n 0.140CO + 0.460PRPE + 0.040CH2O +\n 0.790MACR + 0.010HCOOH + 0.070RCOOH :       GCARR_ac(2.95d-15, -783.0d0);                                                     {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + NO3 = 0.500OLNN + 0.500OLND :         1.22d-11;                                                                         {2017/07/14; Fry2014,Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO2 + NO = 0.686HO2 + 0.780NO2 +\n 0.220MONITU + 0.289PRPE + 0.231CH2O +\n 0.491RCHO + 0.058HAC + 0.289MEK :           4.00d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO2 + HO2 = PIP :                          1.50d-11;                                                                         {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO2 + MO2 = HO2 + 0.192PRPE +\n 1.040CH2O + 0.308MACR + 0.250MOH +\n 0.250ROH :                                  GCARR_ac(3.56d-14, 708.0d0);                                                      {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO2 + MCO3 = 0.500HO2 + 0.500MO2 +\n 0.192PRPE + 0.385CH2O + 0.308MACR +\n 0.500RCOOH :                                GCARR_ac(7.40d-13, 765.0d0);                                                      {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO2 + NO3 = HO2 + NO2 + 0.385PRPE +\n 0.385CH2O + 0.615MACR :                     1.20d-12;                                                                         {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nPIP + OH = 0.490OH + 0.440R4O2 +\n 0.080RCHO + 0.410MEK :                      GCARR_ac(3.40d-12, 190.0d0);                                                      {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + NO = HO2 + NO2 + MONITS :             4.00d-12;                                                                         {2017/07/14; Browne2014,Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + NO = 2.000NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK :                      4.00d-12;                                                                         {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + HO2 = 0.700MONITS + 0.300MONITU :     GCARR_ac(1.66d-13, 1300.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + HO2 = 0.700MONITS + 0.300MONITU :     GCARR_ac(1.66d-13, 1300.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + MO2 = 2.000HO2 + CH2O +\n 0.700MONITS + 0.300MONITU :                 GCARR_ac(1.60d-13, 708.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + MO2 = 0.500HO2 + 0.500NO2 +\n 0.850CH2O + 0.930RCHO + 0.340MEK +\n 0.250MOH + 0.250ROH + 0.350MONITS +\n 0.150MONITU :                               GCARR_ac(9.68d-14, 708.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS; 2023/04/18; Bates2023; KHB}\nOLNN + MCO3 = HO2 + MO2 + 0.700MONITS +\n 0.300MONITU + CO2 :                         GCARR_ac(8.85d-13, 765.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS; 2023/04/18; Bates2023; KHB}\nOLND + MCO3 = 0.500MO2 + NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK + 0.500RCOOH :         GCARR_ac(5.37d-13, 765.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + NO3 = HO2 + NO2 + 0.700MONITS +\n 0.300MONITU :                               1.20d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + NO3 = 2.000NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK :                      1.20d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + OLNN = HO2 + 1.400MONITS +\n 0.600MONITU :                               GCARR_ac(7.00d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + OLND = 0.500HO2 + 0.500NO2 +\n 0.202CH2O + 0.640RCHO + 0.149MEK +\n 1.050MONITS + 0.450MONITU :                 GCARR_ac(4.25d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + OLND = NO2 + 0.504CH2O +\n 1.210RCHO + 0.285MEK + 0.700MONITS +\n 0.300MONITU :                               GCARR_ac(2.96d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITS + OH = HONIT :                        4.80d-12;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + OH = HONIT :                        7.29d-11;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + O3 = HONIT :                        1.67d-16;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + NO3 = HONIT :                       GCARR_ac(3.15d-13, -448.0d0);                                                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITS + NO3 = HONIT :                       GCARR_ac(3.15d-13, -448.0d0);                                                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nIONITA = INDIOL + HNO3 :                     2.78d-04;                                                                         {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITA = INDIOL + HNO3 :                     2.78d-04;                                                                         {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT + OH = NO3 + HAC :                     GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0) + GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,0.6d0); {2023/04/18; JPL 19-5; KHB}\nMENO3 + OH = CH2O + NO2 :                    GCARR_ac(8.00d-13, -1000.0d0);                                                    {2019/05/16; JPL 15-10,Fisher2018; JAF}\nETNO3 + OH = ALD2 + NO2 :                    GCARR_ac(1.00d-12, -490.0d0);                                                     {2019/05/16; JPL 15-10,Fisher2018; JAF}\nIPRNO3 + OH = ACET + NO2 :                   GCARR_ac(1.20d-12, -320.0d0);                                                     {2019/05/16; JPL 15-10,Fisher2018; JAF}\nNPRNO3 + OH = RCHO + NO2 :                   7.10d-13;                                                                         {2019/05/16; JPL 15-10,Fisher2018; JAF}\nISOP + O3 = 0.416MACR + 0.177MVK +\n 0.28OH + 0.407CO2 + 0.407CO + 0.407MO2 +\n 0.16HO2 + 0.58CH2OO + 0.827CH2O +\n 0.013H2O2 :                                 GCARR_ac(1.10d-14, -2000.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nISOP + OH = LISOPOH + IHOO1 :                GC_ISO1(1.7d-11, 3.90d2, 9.33d-2, 5.05d15, -1.22d4, 1.79d14, -8.830d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = LISOPOH + IHOO4 :                GC_ISO1(1.0d-11, 3.90d2, 2.26d-1, 2.22d9, -7.160d3, 1.75d14, -9.054d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = 0.3MCO3 + 0.3MGLY + 0.3CH2O +\n 0.15HPALD3 + 0.25HPALD1 + 0.4HO2 +\n 0.6CO + 1.5OH + 0.3HPETHNL + LISOPOH :      GC_ISO2(1.7d-11, 3.90d2, 9.33d-2, 5.05d15, -1.22d4, 1.79d14, -8.830d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = 0.3CH2O + 0.15HPALD4 +\n 0.25HPALD2 + 1.5OH + 0.9CO + 0.7HO2 +\n 0.3MGLY + 0.3ATOOH + LISOPOH :              GC_ISO2(1.0d-11, 3.90d2, 2.26d-1, 2.22d9, -7.160d3, 1.75d14, -9.054d3);           {2019/11/06; Bates2019; KHB}\nIHOO1 + HO2 = 0.063MVK + 0.063OH +\n 0.063HO2 + 0.063CH2O + 0.937RIPA :          ARRPLUS_abde(2.12d-13, -1300d0,  1.1644d0, -7.0485d-4);                           {2019/11/06; Bates2019; KHB}\nIHOO1 + HO2 = RIPC :                         ARRPLUS_abde(2.12d-13, -1300d0, -0.1644d0, 7.0485d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO4 + HO2 = 0.063MACR + 0.063OH +\n 0.063HO2 + 0.063CH2O + 0.937RIPB :          ARRPLUS_abde(2.12d-13, -1300d0, 1.2038d0, -9.0435d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO4 + HO2 = RIPD :                         ARRPLUS_abde(2.12d-13, -1300d0, -0.2038d0, 9.0435d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO1 = CH2O + OH + MVK :                    ARRPLUS_abde(1.04d11, 9.746d3,  1.1644d0, -7.0485d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO1 = 0.15HPALD3 + 0.25HPALD1 + 0.4HO2 +\n 0.6CO + 1.5OH + 0.3CH2O + 0.3MGLY +\n 0.3HPETHNL + 0.3MCO3 :                      TUNPLUS_abcde(5.05d15, -1.22d4, 1.0d8, -0.0128d0, 5.1242d-5);                     {2019/11/06; Bates2019; KHB}\nIHOO4 = MACR + OH + CH2O :                   ARRPLUS_abde(1.88d11, 9.752d3, 1.2038d0, -9.0435d-4);                             {2019/11/06; Bates2019; KHB}\nIHOO4 = 0.15HPALD4 + 0.25HPALD2 + 1.5OH +\n 0.3CH2O + 0.9CO + 0.7HO2 + 0.3MGLY +\n 0.3ATOOH :                                  TUNPLUS_abcde(2.22d9, -7.160d3, 1.0d8, -0.0306d0, 1.1346d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO1 = 2MVK + 2HO2 + 2CH2O :        ARRPLUS_ade(6.92d-14, 1.1644d0, -7.0485d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO4 + IHOO4 = 2MACR + 2HO2 + 2CH2O :       ARRPLUS_ade(5.74d-12, 1.2038d0, -9.0435d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO4 = MACR + MVK + 2HO2 + 2CH2O :  ARRPLUS_ade(1.54d-12, 2.3682d0, -1.6092d-3);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO1 = HO2 + HC5A + CO + OH +\n MVKHP :                                     ARRPLUS_ade(2.49d-12, -0.1644d0, 7.0485d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO4 + IHOO4 = HO2 + HC5A + CO + OH +\n MCRHP :                                     ARRPLUS_ade(3.94d-12, -0.2038d0, 9.0435d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO4 = HO2 + HC5A + CO + OH +\n 0.5MVKHP + 0.5MCRHP :                       ARRPLUS_ade(1.54d-12, -0.3682d0, 1.6092d-3);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + MO2 = MVK + 2HO2 + 2CH2O :           ARRPLUS_ade(2.0d-12, 1.1644d0, -7.0485d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO1 + MO2 = CH2O + 0.5HC5A + 1.5HO2 +\n 0.5MVKHP + 0.5CO + 0.5OH :                  ARRPLUS_ade(2.0d-12, -0.1644d0, 7.0485d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO4 + MO2 = MACR + 2HO2 + 2CH2O :          ARRPLUS_ade(2.0d-12, 1.2038d0, -9.0435d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO4 + MO2 = CH2O + 0.5HC5A + 1.5HO2 +\n 0.5MCRHP + 0.5CO + 0.5OH :                  ARRPLUS_ade(2.0d-12, -0.2038d0, 9.0435d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = IHN2 :                          GC_NIT(2.7d-12, 3.50d2, 1.19d0,  6.0d0, 1.1644d0, 7.05d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = NO2 + MVK + HO2 + CH2O :        GC_ALK(2.7d-12, 3.50d2, 1.19d0,  6.0d0, 1.1644d0, 7.05d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = IHN4 :                          GC_NIT(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.1644d0, -7.05d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MVKHP + 0.55CO + 0.55OH :               GC_ALK(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.1644d0, -7.05d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = IHN3 :                          GC_NIT(2.7d-12, 3.50d2, 1.297d0, 6.0d0, 1.2038d0, 9.04d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = NO2 + MACR + HO2 + CH2O :       GC_ALK(2.7d-12, 3.50d2, 1.297d0, 6.0d0, 1.2038d0, 9.04d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = IHN1 :                          GC_NIT(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.2038d0, -9.04d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = NO2 + 0.45HO2 + 0.45HC5A +\n 0.55MCRHP + 0.55CO + 0.55OH :               GC_ALK(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.2038d0, -9.04d-4);                     {2019/11/06; Bates2019; KHB}\nHPALD1 + OH = 0.035MVK + 0.315HPALD1OO +\n 0.15IDC + 0.33MVKHP + 0.085HO2 +\n 0.085CH2O + 0.085MGLY + 0.085ICHE +\n 1.085OH + 0.45CO :                          GCARR_ac(1.17d-11, 450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD2 + OH = 0.035MACR + 0.315HPALD2OO +\n 0.15IDC + 0.17MCRHP + 0.165HO2 +\n 0.165CH2O + 0.165MGLY + 0.165ICHE +\n 1.165OH + 0.37CO :                          GCARR_ac(1.17d-11, 450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD3 + OH = OH + 0.230MVK + 0.420CO +\n 0.190MVKHP + 0.580ICHE :                    GCARR_ac(2.20d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD4 + OH = OH + 0.770ICHE + 0.230CO +\n 0.090MCRHP + 0.140MACR :                    GCARR_ac(3.50d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHC5A + OH = 1.065OH + 0.355CO2 + 0.638CO +\n 0.355MGLY + 0.283HO2 + 0.294IEPOXAOO +\n 0.125MVKHP + 0.158MCRHP + 0.068IEPOXBOO :   GCARR_ac(4.64d-12, 650.0d0);                                                      {2019/11/06; Bates2019; KHB}\nICHE + OH = OH + 1.5CO + 0.5CH2O +\n 0.5MGLY + 0.5HAC :                          GCARR_ac(9.85d-12, 410.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIDC + OH = CO + HO2 + MVKPC :                GCARR_ac(3.00d-12, 650.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.655IHPOO3 + 0.345IHPOO1 +\n 0.005LVOC :                                 GCARR_ac(2.47d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.67IEPOXA + 0.33IEPOXB + OH +\n 0.005LVOC :                                 GC_EPO_a(1.62d-11, 3.90d2, 4.77d-21);                                             {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.655IHPOO3 + 0.345IHPOO2 +\n 0.005LVOC :                                 GCARR_ac(4.35d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.68IEPOXA + 0.32IEPOXB + OH +\n 0.005LVOC :                                 GC_EPO_a(2.85d-11, 390.0d0, 4.77d-21);                                            {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.75IHOO1 + 0.125MVK +\n 0.25CO + 0.125MVKHP + 0.25HO2 + 0.005LVOC : GCARR_ac(6.10d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.51IHOO4 + 0.16ICHOO +\n 0.33CO + 0.33HO2 + 0.165MACR +\n 0.165MCRHP + 0.005LVOC :                    GCARR_ac(4.10d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPC + OH = 0.595IHPOO1 + 0.03IHOO1 +\n 0.06HC5A + 0.024HO2 + 0.009HPALD3 +\n 0.015HPALD1 + 0.405OH + 0.036CO +\n 0.018CH2O + 0.018MGLY + 0.018HPETHNL +\n 0.018MCO3 + 0.255IEPOXD + 0.005LVOC :       GCARR_ac(3.53d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPD + OH = 0.255IHPOO2 + 0.03IHOO4 +\n 0.745OH + 0.06HC5A + 0.009HPALD4 +\n 0.015HPALD2 + 0.042HO2 + 0.018CH2O +\n 0.054CO + 0.018MGLY + 0.018ATOOH +\n 0.595IEPOXD + 0.005LVOC :                   GCARR_ac(3.53d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHPOO1 = 0.176ICPDH + 0.824IDHPE + OH :      GCARR_ac(1.59d+13, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPOO1 + NO = 0.716MCRHP + 0.716CH2O +\n 0.284HPETHNL + 0.284HAC + NO2 + HO2 :       GC_ALK(2.7d-12, 3.50d2, 2.1d0, 9.0d0, 1.0d0, 0.0d0);                              {2019/11/06; Bates2019; KHB}\nIHPOO1 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 2.1d0, 9.0d0, 1.0d0, 0.0d0);                              {2019/11/06; Bates2019; KHB}\nIHPOO1 + HO2 = 0.725IDHDP + 0.14MCRHP +\n 0.14CH2O + 0.135HPETHNL + 0.135HAC +\n 0.275OH + 0.275HO2 :                        GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPOO2 = 0.548ICPDH + 0.452IDHPE + OH :      GCARR_ac(2.91d+13, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPOO2 + NO = 0.706MVKHP + 0.706CH2O +\n 0.294GLYC + 0.294ATOOH + NO2 + HO2 :        GC_ALK(2.7d-12, 3.50d2, 2.315d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO2 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 2.315d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO2 + HO2 = 0.725IDHDP + 0.14MVKHP +\n 0.14CH2O + 0.135GLYC + 0.135ATOOH +\n 0.275OH + 0.275HO2 :                        GCARR_ac(2.47d-13,  1300.0d0);                                                    {2019/11/06; Bates2019; KHB}\nIHPOO3 = IDHPE :                             GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIHPOO3 + NO = GLYC + HAC + NO2 + OH :        GC_ALK(2.7d-12, 3.50d2, 3.079d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO3 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 3.079d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO3 + HO2 = 0.35IDHDP + 0.65GLYC +\n 0.65HAC + 1.3OH :                           GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXD + OH = 0.75ICHE + 0.75HO2 +\n 0.25ICHOO :                                 GCARR_ac(3.22d-11, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXA + OH = ICHE + HO2 :                   GCARR_ac(1.05d-11, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXA + OH = 0.67IEPOXAOO + 0.33IEPOXBOO :  GC_EPO_a(5.82d-11, -4.00d2, 1.14d-20);                                            {2019/11/06; Bates2019; KHB}\nIEPOXB + OH = ICHE + HO2 :                   GCARR_ac(8.25d-12, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXB + OH = 0.81IEPOXAOO + 0.19IEPOXBOO :  GC_EPO_a(3.75d-11, -4.00d2, 8.91d-21);                                            {2019/11/06; Bates2019; KHB}\nIEPOXAOO = IDCHP + HO2 :                     GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIEPOXAOO = OH + CO + MVKDH :                 GCARR_ac(1.0d+7, -5000.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIEPOXAOO + HO2 = 0.13CO + 0.65OH +\n 0.65HO2 + 0.13MVKDH + 0.52GLYC +\n 0.52MGLY + 0.35ICPDH :                      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXAOO + NO = 0.2MVKDH + HO2 + NO2 +\n 0.2CO + 0.8GLYC + 0.8MGLY :                 GC_ALK(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXAOO + NO = ITCN :                       GC_NIT(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO = IDCHP + HO2 :                     GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIEPOXBOO = CO + OH + MCRDH :                 GCARR_ac(1.0d+7, -5000.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIEPOXBOO + NO = NO2 + HO2 + 0.8GLYX +\n 0.8HAC + 0.2CO + 0.2MCRDH :                 GC_ALK(2.7d-12, 3.50d2, 16.463d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO + NO = ITCN :                       GC_NIT(2.7d-12, 3.50d2, 16.463d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO + HO2 = 0.13CO + 0.65OH +\n 0.65HO2 + 0.13MCRDH + 0.52HAC +\n 0.52GLYX + 0.35ICPDH :                      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nICHOO + HO2 = 0.35ICPDH + 0.65OH +\n 0.52CO + 0.13MVKHC + 0.65CH2O + 0.65HO2 +\n 0.52HAC :                                   GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nICHOO + NO = ITCN :                          GC_NIT(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nICHOO + NO = NO2 + 0.8HAC + 0.8CO + CH2O +\n HO2 + 0.2MVKHC :                            GC_ALK(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nICHOO = HO2 + 2.000CO + HAC + OH :           GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nHPALD1OO + NO = NO2 + OH + CO2 + MVK :       GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD1OO + HO2 = OH + OH + CO2 + MVK :       GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nHPALD2OO + NO = NO2 + OH + CO2 + MACR :      GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD2OO + HO2 = OH + OH + CO2 + MACR :      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHN2 + OH = ISOPNOO1 :                       GCARR_ac(7.14d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN2 + OH = 0.67IEPOXA + 0.33IEPOXB + NO2 :  GC_EPO_a(6.30d-12, 390.0d0, 1.62d-19);                                            {2019/11/06; Bates2019; KHB}\nIHN3 + OH = ISOPNOO2 :                       GCARR_ac(1.02d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN3 + OH = 0.67IEPOXA + 0.33IEPOXB + NO2 :  GC_EPO_a(1.05d-11, 390.0d0, 2.49d-19);                                            {2019/11/06; Bates2019; KHB}\nIHN1 + OH = IEPOXD + NO2 :                   GC_EPO_a(1.55d-11, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nIHN1 + OH = IDHNDOO1 :                       GCARR_ac(2.04d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN4 + OH = IEPOXD + NO2 :                   GC_EPO_a(9.52d-12, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nIHN4 + OH = IDHNDOO2 :                       GCARR_ac(2.95d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN1 + OH = 0.6OH + 0.6CO + 0.6MCRHNB +\n 0.4HO2 + 0.4ICN :                           GCARR_ac(7.5d-12, 20.0d0);                                                        {2019/11/06; Bates2019; KHB}\nIHN4 + OH = 0.6OH + 0.6CO + 0.6MVKN +\n 0.4HO2 + 0.4ICN :                           GCARR_ac(7.5d-12, 20.0d0);                                                        {2019/11/06; Bates2019; KHB}\nISOPNOO1 = ITCN + HO2 :                      GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nISOPNOO1 + HO2 = 0.482ITHN + 0.059MCRHN +\n 0.059CH2O + 0.459GLYC + 0.459HAC +\n 0.059HO2 + 0.459NO2 + 0.518OH :             GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nISOPNOO1 + NO = 0.272MCRHN + 0.272CH2O +\n 0.728GLYC + 0.728HAC + 0.272HO2 +\n 1.728NO2 :                                  GC_ALK(2.7d-12, 350.0d0, 6.32d0, 11.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nISOPNOO1 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 6.32d0, 11.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nISOPNOO2 = ITCN + HO2 :                      GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nISOPNOO2 + HO2 = 0.401ITHN + 0.599MVKN +\n 0.599CH2O + 0.599HO2 + 0.599OH :            GCARR_ac(2.60d-13,  1300.0d0);                                                    {2019/11/06; Bates2019; KHB}\nISOPNOO2 + NO = MVKN + CH2O + HO2 + NO2 :    GC_ALK(2.7d-12, 350.0d0, 7.941d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nISOPNOO2 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 7.941d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO1 = ITCN + HO2 :                      GCARR_ac(1.256d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIDHNDOO2 = ITCN + HO2 :                      GCARR_ac(5.092d+12, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + HO2 = 0.418ITHN + 0.551PROPNN +\n 0.551GLYC + 0.031MCRHNB + 0.031CH2O +\n 0.582HO2 + 0.582OH :                        GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + NO = 0.935PROPNN + 0.935GLYC +\n 0.065MCRHNB + 0.065CH2O + HO2 + NO2 :       GC_ALK(2.7d-12, 350.0d0, 4.712d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 4.712d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + HO2 = 0.494ITHN + 0.441HAC +\n 0.441ETHLN + 0.065MVKN + 0.065CH2O +\n 0.506OH + 0.506HO2 :                        GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + NO = 0.858HAC + 0.858ETHLN +\n 0.142MVKN + 0.142CH2O + HO2 + NO2 :         GC_ALK(2.7d-12, 350.0d0, 2.258d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 2.258d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNBOO + HO2 = 0.379HO2 + 0.379OH +\n 0.621ITHN + 0.094MCRHNB + 0.242GLYC +\n 0.242PROPNN + 0.010MVKN + 0.033HAC +\n 0.033ETHLN + 0.104CH2O :                    GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNBOO + NO = 0.355MCRHNB + 0.546PROPNN +\n 0.546GLYC + 0.028MVKN + 0.071ETHLN +\n 0.071HAC + HO2 + NO2 + 0.383CH2O :          GC_ALK(2.7d-12, 350.0d0, 1.851d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNBOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 1.851d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nISOP + NO3 = 0.465INO2B + 0.535INO2D +\n LISOPNO3 :                                  GCARR_ac(2.95d-12, -450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINO2B + HO2 = 0.473INPB + 0.048MACR +\n 0.479MVK + 0.527OH + 0.527CH2O + 0.527NO2 : GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2D + HO2 = INPD :                         GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2B + INO2B = 1.737MVK + 0.123MACR +\n 1.860CH2O + 1.860NO2 + 0.070INPB +\n 0.070ICN :                                  1.61d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + INO2D = 0.399INPB + 0.544MVK +\n 0.532ICN + 0.563NO2 + 0.474INA +\n 0.089HO2 + 0.019MACR + 0.563CH2O +\n 0.032IHN1 :                                 2.56d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2D + INO2D = 0.064HO2 + 0.340INA +\n 0.862ICN + 0.671IHN1 + 0.127IHN4 :          3.71d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2D + MO2 = 0.298IHN1 + 0.057IHN4 +\n 0.244INA + 0.401ICN + 0.355MOH +\n 0.336HO2 + 0.645CH2O :                      1.18d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + MO2 = 0.355INPB + 0.583MVK +\n 0.028MACR + 0.034ICN + 0.611HO2 +\n 1.577CH2O + 0.611NO2 + 0.034MOH :           2.80d-13;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + MCO3 = CH2O + NO2 + MO2 +\n 0.903MVK + 0.097MACR + CO2 :                1.92d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2D + MCO3 = MO2 + 0.841INA + 0.159HO2 +\n 0.159ICN + CO2 :                            7.71d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2B + NO3 = CH2O + 2NO2 + 0.903MVK +\n 0.097MACR :                                 2.3d-12;                                                                          {2019/11/06; Bates2019; KHB}\nINO2D + NO3 = NO2 + 0.841INA + 0.159HO2 +\n 0.159ICN :                                  2.3d-12;                                                                          {2019/11/06; Bates2019; KHB}\nINO2B + NO = 2NO2 + CH2O + 0.096MACR +\n 0.904MVK :                                  GC_ALK(2.7d-12, 350.0d0, 12.915d0, 9.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nINO2B + NO = IDN :                           GC_NIT(2.7d-12, 350.0d0, 12.915d0, 9.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nINO2D + NO = NO2 + 0.159HO2 + 0.159ICN +\n 0.841INA :                                  GC_ALK(2.7d-12, 350.0d0, 1.412d0, 9.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nINO2D + NO = IDN :                           GC_NIT(2.7d-12, 350.0d0, 1.412d0, 9.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nINA + O2 = ICN + HO2 :                       GCARR_ac(2.50d-14, -300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINA = IDHNBOO :                              GCARR_ac(1.00d+20, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nINPB + OH = 0.670IHPNBOO + 0.33IDHNBOO :     GCARR_ac(5.88d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPD + OH = IHPNDOO :                        GCARR_ac(1.61d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPB + OH = OH + ITHN :                      GC_EPO_a(4.471d-12, 390.0d0, 2.28d-20);                                           {2019/11/06; Bates2019; KHB}\nINPD + OH = OH + ITHN :                      GC_EPO_a(8.77d-12,  390.0d0, 2.185d-20);                                          {2019/11/06; Bates2019; KHB}\nINPD + OH = NO2 + ICHE :                     GC_EPO_a(1.493d-11, 390.0d0, 2.715d-19);                                          {2019/11/06; Bates2019; KHB}\nINPB + OH = INO2B :                          GCARR_ac(2.278d-12, 200.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINPD + OH = INO2D :                          GCARR_ac(3.40d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPD + OH = ICN + OH :                       GCARR_ac(7.50d-12, 20.0d0);                                                       {2019/11/06; Bates2019; KHB}\nIHPNDOO = OH + ITCN :                        GCARR_ac(6.55d+12, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPNBOO = OH + 0.5ITCN + 0.5ITHN :           GCARR_ac(8.72d+12, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPNBOO + HO2 = 0.234ITHN + 0.060MCRHNB +\n 0.340GLYC + 0.249HPETHNL + 0.004MCRHP +\n 0.008MVKN + 0.009ATOOH + 0.054MVKHP +\n 0.042HAC + 1.147OH + 0.326HO2 +\n 0.058NO2 + 0.126CH2O + 0.589PROPNN +\n 0.051ETHLN :                                GCARR_ac(2.64d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPNDOO + HO2 = 0.387ITHN + 0.073MCRHNB +\n 0.471HPETHNL + 0.015MVKN + 0.054ATOOH +\n 0.646OH + 0.580HO2 + 0.088CH2O +\n 0.471PROPNN + 0.054ETHLN :                  GCARR_ac(2.64d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPNBOO + NO = 0.384GLYC + 0.170MCRHNB +\n 0.303HPETHNL + 0.014MVKN + 0.051HAC +\n 0.013ATOOH + 0.059MVKHP + 0.006MCRHP +\n 0.687PROPNN + 0.064ETHLN + 0.249CH2O +\n 1.065NO2 + 0.500HO2 + 0.435OH :             GC_ALK(2.7d-12, 350.0d0, 6.092d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNBOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 6.092d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNDOO + NO = 0.291MCRHNB +\n 0.590HPETHNL + 0.070ATOOH + 0.049MVKN +\n 0.590PROPNN + 0.070ETHLN + 0.340CH2O +\n 1.000NO2 + 0.904HO2 + 0.096OH :             GC_ALK(2.7d-12, 350.0d0, 4.383d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNDOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 4.383d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nICN + OH = NO2 + ICHE :                      GC_EPO_a(2.97d-12, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nICN + OH = 0.244OH + 0.539CO + 0.295HO2 +\n 0.378MCRHNB + 0.461ICNOO + 0.161MVKN :      GCARR_ac(9.35d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nICNOO + NO = 0.67ICNOO + 0.429CO2 +\n 0.33CO + 0.33HO2 + 0.231PROPNN + NO2 +\n 0.099ETHLN :                                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICNOO + HO2 = 0.67ICNOO + 0.429CO2 +\n 0.33CO + 0.33HO2 + 0.231PROPNN + OH +\n 0.099ETHLN :                                GCARR_ac(2.54d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIDN + OH = 0.565NO2 + 0.565ITHN +\n 0.435IDNOO :                                GCARR_ac(1.00d-11, 0.0d0);                                                        {2019/11/06; Bates2019; KHB}\nIDNOO + NO = PROPNN + 1.11NO2 + 0.11GLYC +\n 0.89ETHLN + 0.89HO2 :                       GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIDNOO + HO2 = 0.18IDN + 0.09NO2 +\n 0.09GLYC + 0.82OH + 0.73HO2 +\n 0.82PROPNN + 0.73ETHLN :                    GCARR_ac(2.71d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMVK + OH = MVKOHOO :                         GCARR_ac(2.60d-12, 610.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVK + O3 = 0.545MGLY + 0.500CH2OO +\n 0.600CH2O + 0.380MCO3 + 0.100HO2 +\n 0.080OH + 0.280CO + 0.075PYAC + 0.045H2O2 : GCARR_ac(8.50d-16, -1520.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMACR + OH = 0.036ATOOH + 0.036CO +\n 0.036HO2 + 0.964MCROHOO :                   GCARR_ac(4.40d-12, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR + OH = MACR1OO :                        GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR + O3 = 0.880MGLY + 0.880CH2OO +\n 0.120CH2O + 0.120OH + 0.120CO + 0.120MCO3 : GCARR_ac(1.50d-15, -2110.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nMACR + NO3 = 0.320HNO3 + 0.320MACR1OO +\n 0.680OH + 0.680CO + 0.680PROPNN :           GCARR_ac(1.80d-13, -1190.0d0);                                                    {2019/11/06; Bates2019; KHB}\nMVKN + OH = 0.241CH2O + 0.690NO3 +\n 0.020OH + 0.449MGLY + 0.449HCOOH +\n 0.241PYAC + 0.290MVKHCB + 0.310NO2 +\n 0.040MCO3 :                                 GCARR_ac(1.24d-12, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKHP + OH = 0.53MVKHC + 0.47MVKHCB + OH :   5.77d-11;                                                                         {2019/11/06; Bates2019; KHB}\nMCRHP + OH = 0.77CO + OH + 0.77HAC +\n 0.23ATOOH + 0.23CO2 :                       GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCRHN + OH = MACRNO2 :                       GCARR_ac(1.39d-11, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCRHNB + OH = 0.250CO + OH + PROPNN +\n 0.750CO2 :                                  GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP1 + NO = NO2 + MVKOHOO :                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP1 + HO2 = OH + MVKOHOO :                GCARR_ac(1.93d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nC4HVP1 + NO2 = MVKN :                        9.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nC4HVP2 + NO = NO2 + MCROHOO :                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP2 + HO2 = OH + MCROHOO :                GCARR_ac(1.93d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nC4HVP2 + NO2 = MCRHN :                       9.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nMCRENOL + OH = 0.75CO + 0.285OH +\n 0.715HO2 + 0.653PYAC  + 0.097CO2 +\n 0.097MCO3 + 0.063MVKHCB + 0.187MGLY +\n 0.187HCOOH :                                GCARR_ac(3.71d-12, 983.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKPC + OH = OH + CO + MGLY :                GCARR_ac(5.00d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKDH + OH = 0.4MVKHCB + 0.6MVKHC + HO2 :    GCARR_ac(8.70d-12, 70.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMVKHCB + OH = OH + MGLY + CO :               GCARR_ac(5.00d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMVKHC + OH = 2CO + HO2 + MCO3 :              GCARR_ac(2.00d-12, 70.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMCRDH + OH = 0.16MVKHCB + HO2 + 0.84HAC +\n 0.84CO :                                    GCARR_ac(2.4d-11, 70.0d0);                                                        {2019/11/06; Bates2019; KHB}\nMVKOHOO + HO2 = 0.360MCO3 + 0.360GLYC +\n 0.665OH + 0.305HO2 + 0.255MVKHC +\n 0.335MVKHP + 0.050MGLY + 0.050CH2O :        GCARR_ac(2.12d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMVKOHOO + NO = 0.758MCO3 + 0.758GLYC +\n 0.242MGLY + 0.242CH2O + 0.242HO2 + NO2 :    GC_ALK(2.7d-12, 350.0d0, 4.573d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMVKOHOO + NO = MVKN :                        GC_NIT(2.7d-12, 350.0d0, 4.573d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMCROHOO + HO2 = 0.41MCRHP + 0.507HAC +\n 0.507CO + 0.507HO2 + 0.59OH + 0.59O2 +\n 0.083MGLY + 0.083CH2O :                     GCARR_ac(2.12d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMACR1OO + HO2 = 0.5MACR1OOH + 0.5CH2O +\n 0.325CO + 0.325MO2 + 0.175MCO3 + 0.5CO2 +\n 0.5OH + 0.13O3 :                            GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR1OOH + OH = 0.165MACR1OO + 0.585OH +\n 0.488HAC + 0.488CO + 0.098HMML +\n 0.410CO2 + 0.25CH2O + 0.087MCO3 +\n 0.162MO2 :                                  1.66d-11;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMCROHOO = HAC + CO + OH :                    GCARR_ac(2.90d+7, -5297.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMCROHOO + NO = 0.86HAC + 0.86CO +\n 0.86HO2 + NO2 + 0.14MGLY + 0.14CH2O :       GC_ALK(2.7d-12, 350.0d0, 2.985d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMCROHOO + NO = MCRHN :                       GC_NIT(2.7d-12, 350.0d0, 2.985d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMACR1OO + NO = 0.35MCO3 + 0.65MO2 +\n 0.65CO + CH2O + CO2 + NO2 :                 GCARR_ac(8.7d-12, 290.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMACR1OO + NO2 = MPAN :                       GC_PAN_acac(2.591d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + HO2 = 0.5HAC + 0.5OH + 0.5CO2 +\n 0.5NO2 + 0.13O3 + 0.37MCRHN + 0.13MCRHNB :  GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO = HAC + 2NO2 + CO2 :            GCARR_ac(7.50d-12, 290.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO2 = MPAN + NO2 :                 GC_PAN_acac(2.591d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO3 = HAC + 2NO2 + CO2 :           4.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nMACRNO2 + MO2 = 0.7HAC + 0.7CO2 + 0.7NO2 +\n 0.7HO2 + CH2O + 0.3MCRHNB :                 GCARR_ac(2.9d-12, 500.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMPAN = MACR1OO + NO2 :                       GCARR_ac(1.58d+16, -13500.0d0);                                                   {2019/11/06; Bates2019; KHB}\nMPAN + OH = 0.75HMML + NO3 + 0.25HAC +\n 0.25CO :                                    2.90d-11;                                                                         {2019/11/06; Bates2019; KHB}\nHMML + OH = 0.700MGLY + 0.700OH +\n 0.300MCO3 + 0.300HCOOH + CO :               4.33d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICPDH + OH = CO + 0.5HO2 + 0.5OH +\n 0.5MCRHP + 0.35MVKDH + 0.15MCRDH :          1.00d-11;                                                                         {2019/11/06; Bates2019; KHB}\nIDCHP + OH = 0.888CO + 0.444OH +\n 0.444HO2 + 0.318MVKHC + 0.08IEPOXAOO +\n 0.126MVKHCB + 0.444MVKPC + 0.032IEPOXBOO :  2.25d-11;                                                                         {2019/11/06; Bates2019; KHB}\nIDHDP + OH = OH + 0.333ICPDH + 0.667IDHPE :  3.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nIDHPE + OH = OH + CO2 + 0.571MCRHP +\n 0.429MVKHP :                                3.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nITCN + OH = CO + NO2 + 0.75MVKHP +\n 0.25MCRHP :                                 1.00d-11;                                                                         {2019/11/06; Bates2019; KHB}\nITHN + OH = 0.300OH + 0.620HO2 +\n 0.900ITCN + 0.037IDHNBOO + 0.041ICNOO +\n 0.022MCRENOL + 0.022NO2 + 0.022CH2O :       3.00d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nETHLN + NO3 = HNO3 + NO2 + MCO3 :            GCARR_ac(1.40d-12, -1860.0d0);                                                    {2019/11/06; Bates2019; KHB}\nPYAC + OH = MCO3 + CO2 :                     8.00d-13;                                                                         {2019/11/06; Bates2019; KHB}\nHMHP + OH = 0.5CH2O + 0.5HO2 + 0.5HCOOH +\n 0.5OH :                                     GCARR_ac(1.30d-12, 500.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCO3 + HO2 = 0.13O3 + 0.13ACTA + 0.37MAP +\n 0.5MO2 + 0.5CO2 + 0.5OH :                   GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPETHNL + OH = CO + OH + CH2O :              GCARR_ac(1.55d-12, 340.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPETHNL + OH = GLYX + OH :                   2.91d-11;                                                                         {2019/11/06; Bates2019; KHB}\nNAP + OH = NRO2 + OH :                       GCARR_ac(1.56d-11, 117.0d0);                                                      {2013/08/12; Pye2010; HOTP}\nNRO2 + HO2 = LNRO2H + HO2 :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2013/08/12; Pye2010; HOTP}\nNRO2 + NO = LNRO2N + NO :                    GCARR_ac(2.60d-12, 350.0d0);                                                      {2013/08/12; Pye2010; HOTP}\n//\n// --- C2H2 & C2H4 chemistry (per KHB)\nC2H4 + O3 = CH2O + CH2OO :                   GCARR_abc(1.20d-14, 0.0d0, -2630.0d0);                                            {2021/09/22; Kwon2020; KHB,MSL; 2023/04/18; JPL 19-5; KHB}\nC2H4 + OH = ETOO :                           GCJPLPR_abab(1.10d-28, 3.5d+00, 8.4d-12, 1.75d0, 0.5d0);                          {2021/09/22; Kwon2020; KHB,MSL}\nC2H2 + OH = 0.636GLYX + 0.636OH +\n 0.364CO + 0.364HO2 + 0.364HCOOH :           GCJPLPR_abab(5.50d-30, 0.0d0, 8.3d-13, -2.0d0, 0.5d0);                            {2021/09/22; Kwon2020; KHB,MSL}\nETOO + HO2 = ETHP :                          GCARR_abc(1.53d-13, 0.0d0, 1300.0d0);                                             {2021/09/22; Kwon2020; KHB,MSL}\nETOO + NO = 0.995ETO +\n 0.995NO2 + 0.005ETHN :                      GCARR_abc(2.7d-12, 0.0d+00, 360.0d0);                                             {2021/09/22; Kwon2020; KHB,MSL}\nETOO + NO3 = ETO + NO2 :                     2.3d-12;                                                                          {2021/09/22; Kwon2020; KHB,MSL}\nETOO + MO2 = 0.6ETO + 0.6HO2 + 0.8CH2O +\n 0.2MOH + 0.2ETHP + 0.2GLYC :                6.00d-13;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\nETO = HO2 + 2.000CH2O :                      GCARR_abc(9.5d+13, 0.0d0, -5988.0d0);                                             {2021/09/22; Kwon2020; KHB,MSL}\nETO + O2 = GLYC + HO2 :                      GCARR_abc(2.5d-14, 0.0d0, -300.0d0);                                              {2021/09/22; Kwon2020; KHB,MSL}\nETHN + OH = GLYC + NO2 :                     8.40d-13;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\nETHP + OH = ETOO :                           GCARR_abc(1.90d-12, 0.0d+00, 190.0d0);                                            {2021/09/22; Kwon2020; KHB,MSL}\nETHP + OH = OH + GLYC :                      1.38d-11;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\n//\n// --- Aromatic Chemistry (per KHB)\nBENZ + OH = BRO2 + 0.54PHEN + 0.54HO2 +\n 0.46AROMRO2 + 0.18GLYX +\n 0.2CO +0.55AROMP4 :                         GCARR_abc(2.3d-12, 0.0d0, -193.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB}\nTOLU + OH = TRO2 + 0.19CSL + 0.19HO2 +\n 0.81AROMRO2 + 0.06BALD + 0.12GLYX +\n 0.12MGLY + 0.27CO + 0.04MVK + 0.3AROMP5 +\n 0.68AROMP4 :                                GCARR_abc(1.8d-12, 0.0d0, 340.0d0);                                               {2021/09/29; Bates2021b; KHB,MSL}\nXYLE + OH = XRO2 + 0.15CSL + 0.15HO2 +\n 0.85AROMRO2 + 0.06BALD + 0.1GLYX +\n 0.2MGLY + 0.3CO + 0.04MVK + 0.56AROMP5 +\n 0.28AROMP4 + 0.45RCOOH :                    1.7d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + HO2 = OH + HO2 :                   2.91d-13 * EXP( 1300.0d0 / TEMP ) * 0.82d0;                                       {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + NO = NO2 + HO2 :                   GCARR_abc(2.60d-12, 0.0d+00, 365.0d0);                                            {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + NO3 = NO2 + HO2 :                  2.30d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + MO2 = CH2O + HO2 + HO2 :           GCARR_abc(1.70d-14, 0.0d0, 220.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + MCO3 = MO2 + HO2 + CO2 :           GCARR_abc(4.20d-14, 0.0d0, 220.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB}\nPHEN + OH = 0.06BENZO + 0.06GLYX +\n 0.18AROMP4 + 0.14AROMRO2 +\n 0.8MCT + 0.8HO2 :                           GCARR_abc(4.70d-13, 0.0d0, 1220.0d0);                                             {2021/09/29; Bates2021b; KHB,MSL}\nPHEN + NO3 = 0.258NPHEN + 0.742HNO3 +\n 0.742BENZO :                                3.8d-12;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nCSL + OH = 0.727MCT + 0.727HO2 +\n 0.2AROMRO2 + 0.073BENZO + 0.44AROMP5 :      4.7d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nCSL + NO3 = 0.5NPHEN + 0.2AROMRO2 +\n 0.5HNO3 + 0.3BENZO + 0.44AROMP5 :           1.4d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + OH = 0.3BENZO + 0.7AROMRO2 +\n 1.05AROMP4 :                                2.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + O3 = GLYC + HO2 + OH + AROMP4 :        9.2d-18;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + NO3 = 0.5NPHEN + 0.5HNO3 +\n 0.3BENZO + 0.2AROMRO2 + 0.3AROMP4 :         9.9d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nBALD + OH = BZCO3 :                          GCARR_abc(5.90d-12, 0.0d0, 225.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nBALD + NO3 = BZCO3 + HNO3 :                  2.4d-15;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + HO2 = 0.35CO2 + 0.2BENZO2 +\n 0.15O3 + 0.2OH + 0.15BENZP + 0.65BZCO3H :   GCARR_abc(1.10d-11, 0.0d0, 340.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + NO = NO2 + CO2 + BENZO2 :            GCARR_abc(7.50d-12, 0.0d0, 290.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + NO2 = BZPAN :                        GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                       {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3H + OH = BZCO3 :                        4.66d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBZPAN = BZCO3 + NO2 :                        GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0;             {2021/09/29; Bates2021b; KHB,MSL}\nBZPAN + OH = BENZP + CO2 + NO2 :             1.06d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO2 = BENZO + NO3 :                 7.00d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO = BENZO + NO2 :                  GCARR_abc(2.670d-12, 0.0d0, 365.0d0);                                             {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO3 = BENZO + NO2 :                 2.30d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + HO2 = BENZP :                       GCARR_abc(2.24d-13, 0.0d0, 1300.0d0);                                             {2021/09/29; Bates2021b; KHB,MSL}\nBENZP + OH = BENZO2 :                        3.60d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO + O3 = BENZO2 :                        2.86d-13;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO + NO2 = NPHEN :                        2.08d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nNPHEN + OH = 0.5R4N1 + 0.9AROMP4 +\n 0.5NO2 +0.15CO :                            3.47d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nNPHEN + NO3 = 0.5HNO3 + NO2 +\n 0.5R4N1 + 0.9AROMP4 + 0.15CO :              2.60d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nBENZO2 + MO2 = BENZO + HO2 + CH2O :          GCARR_abc(2.670d-13, 0.0d0, 365.0d0);                                             {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + MO2 = BENZO2 + CO2 + HO2 + CH2O :    GCARR_abc(2.670d-12, 0.0d0, 365.0d0);                                             {2021/09/29; Bates2021b; KHB,MSL}\nAROMP4 + OH = 0.6GLYX + 0.26CO + 0.26HCOOH +\n 0.25OH + 0.33HO2 + 0.33RCO3 + 0.43RCOOH :   5.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nAROMP4 + O3 = 0.5HCOOH + 0.5CO + 0.6GLYX +\n 0.9GLYC + 0.1HO2 + 0.1OH :                  8.0d-16;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP4 = 0.2HO2 + 0.2GLYX + 1.2RCHO :        1.5d-3;                                                                           {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 + OH = 0.6MGLY + 0.15ACTA +\n 0.1HCOOH + 0.25OH + 0.33HO2 +\n 0.33RCO3 + 0.25CO + 0.52RCOOH :             5.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 + O3 = 0.6MGLY + 0.3ACTA + 0.2HCOOH +\n 0.5CO + 0.95GLYC + 0.1HO2 + 0.1OH :         8.0d-16;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 = 0.2HO2 + 0.2R4O2 +\n 0.2MGLY + 1.15RCHO + 0.05CO :               1.5d-3;                                                                           {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\n//\n// KHB -- \"we still need to include the dummy species for aromatic oxidation\n//         to make the complex SOA code work. Hopefully this will be changed\n//         very soon when Jared Brewer updates the aromatic SOA, but I think it's\n//         still necessary, in which case, we need to add the following reactions too.\n//         (If I'm wrong, we can delete XRO2, TRO2, BRO2, LXRO2N, LXRO2H,\n//         LTRO2N, LTRO2H, LBRO2N, and LBRO2H from the species list, delete\n//         XRO2, TRO2, and BRO2 as products from the BENZ + OH, TOLU + OH,\n//         and XYLE + OH reactions above, and not include the following reactions)\"\n//\nBRO2 + HO2 = HO2 + LBRO2H :                  GCARR_abc(1.40d-12, 0.0d0, 700.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nBRO2 + NO  = NO + LBRO2N  :                  GCARR_abc(2.60d-12, 0.0d0, 350.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nTRO2 + HO2 = HO2 + LTRO2H :                  GCARR_abc(1.40d-12, 0.0d0, 700.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nTRO2 + NO  = NO + LTRO2N  :                  GCARR_abc(2.60d-12, 0.0d0, 350.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nXRO2 + HO2 = HO2 + LXRO2H :                  GCARR_abc(1.40d-12, 0.0d0, 700.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nXRO2 + NO  = NO + LXRO2N  :                  GCARR_abc(2.60d-12, 0.0d0, 350.0d0);                                              {2021/09/29; Bates2021b; KHB,MSL}\nMO2  + NO3 = NO2 + CH2O + HO2 :              1.20d-12;                                                                         {2022/10/18: IUPAC ROO_19; KHB,BMY}\nFURA + OH = BUTDI :                          GCARR_ac(1.32d-11,334.0d0);                                                       {2023/02/07; Carter2022; TSC}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Heterogeneous chemistry reactions                               %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\nHO2 = H2O :                    HO2uptk1stOrd( State_Het );                                                  {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nNO2 = 0.500HNO3 + 0.500HNO2 :  NO2uptk1stOrdAndCloud( State_Het );\nNO3 = HNO3 :                   NO3uptk1stOrdAndCloud( State_Het );\nNO3 = NIT :                    NO3hypsisClonSALA( State_Het );                                              {2018/03/16; XW}\nNO3 = NITs :                   NO3hypsisClonSALC( State_Het );                                              {2018/03/16; XW}\nN2O5 + H2O = 2.000HNO3 :       N2O5uptkByH2O( State_Het );\nN2O5 + HCl = ClNO2 + HNO3 :    N2O5uptkByStratHCl( State_Het );                                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nN2O5 = 2.000HNO3 :             N2O5uptkByCloud( State_Het );                                                {2018/10/17; Cloud uptake, CDH}\nN2O5 + SALACL = ClNO2 + HNO3 : N2O5uptkBySALACl( State_Het );                                               {2018/01/19; Sherwen2017;TS,JAS,SDE,XW}\nN2O5 + SALCCL = ClNO2 + HNO3 : N2O5uptkBySALCCl( State_Het );                                               {2018/01/19; Sherwen2017;TS,JAS,SDE,XW}\nOH + SALACL = 0.500Cl2 :       OHuptkBySALACl( State_Het );                                                 {2018/03/12; XW}\nOH + SALCCL = 0.500Cl2 :       OHuptkBySALCCl( State_Het );                                                 {2018/03/12; XW}\nBrNO3 + H2O = HOBr + HNO3 :    BrNO3uptkByH2O( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nBrNO3 + HCl = BrCl + HNO3 :    BrNO3uptkByHCl( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + H2O = HOCl + HNO3 :    ClNO3uptkByH2O( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + HCl = Cl2 + HNO3 :     ClNO3uptkByHCl( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + HBr = BrCl + HNO3 :    ClNO3uptkByHBr( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + BrSALA = BrCl + HNO3 : ClNO3uptkByBrSALA( State_Het );                                              {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nClNO3 + BrSALC = BrCl + HNO3 : ClNO3uptkByBrSALC( State_Het );                                              {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nClNO3 + SALACL = Cl2 + HNO3 :  ClNO3uptkBySALACL( State_Het );                                              {2018/01/22; XW}\nClNO3 + SALCCL = Cl2 + HNO3 :  ClNO3uptkBySALCCL( State_Het );                                              {2018/01/22; XW}\nClNO2 + SALACL = Cl2 + HNO2 :  ClNO2uptkBySALACL( State_Het );                                              {2018/01/22; XW}\nClNO2 + SALCCL = Cl2 + HNO2 :  ClNO2uptkBySALCCL( State_Het );                                              {2018/01/22; XW}\nClNO2 + HCl = Cl2 + HNO2 :     ClNO2uptkByHCl( State_Het );                                                 {2018/01/22; XW}\nClNO2 + BrSALA = BrCl + HNO2 : ClNO2uptkByBrSALA( State_Het );                                              {2018/01/22; XW}\nClNO2 + BrSALC = BrCl + HNO2 : ClNO2uptkByBrSALC( State_Het );                                              {2018/01/22; XW}\nClNO2 + HBr = BrCl + HNO2 :    ClNO2uptkByHBr( State_Het );                                                 {2018/01/22; XW}\nHOCl + HCl = Cl2 + H2O :       HOClUptkByHCl( State_Het );                                                  {2014/02/03; Eastham2014; SDE}\nHOCl + HBr = BrCl + H2O :      HOClUptkByHBr( State_Het );                                                  {2014/02/03; Eastham2014; SDE}\nHOCl + SALACL = Cl2 + H2O :    HOClUptkBySALACL( State_Het );                                               {2018/01/22; XW}\nHOCl + SALCCL = Cl2 + H2O :    HOClUptkBySALCCL( State_Het );                                               {2018/01/22; XW}\nHOCl + SO2 = SO4 + HCl :       HOClUptkByHSO3m( State_Het ) + HOClUptkBySO3mm( State_Het ) + SRHOCl;        {2023/01/30; Add SRHOCL, BA; 2018/11/08; XW; June 6, 2021, MSL}\nHOBr + HBr = Br2 + H2O :       HOBrUptkByHBr( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOBr + HCl = BrCl + H2O :      HOBrUptkByHCl( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOBr + SALACL = BrCl + H2O :   HOBrUptkBySALACL( State_Het );                                               {2018/01/22; Sherwen2017;TS,JAS,SDE;XW}\nHOBr + SALCCL = BrCl + H2O :   HOBrUptkBySALCCL( State_Het );                                               {2018/01/22; Sherwen2017;TS,JAS,SDE,XW}\nHOBr + BrSALA = Br2 :          HOBrUptkByBrSALA( State_Het );                                               {2017/09/22; Sherwen2017;TS,JAS,SDE}\nHOBr + BrSALC = Br2 :          HOBrUptkByBrSALC( State_Het );                                               {2017/09/22; Sherwen2017;TS,JAS,SDE}\nHOBr + SO2 = SO4 + HBr :       HOBrUptkByHSO3m( State_Het ) + HOBrUptkBySO3mm( State_Het ) + SRHOBr;        {2023/01/30; Add SRHOBrL, BA; 2017/11/15; Chen2017; QJC; June 6, 2021, MSL}\nO3 + HBr = HOBr :              O3uptkByHBr( State_Het );                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nO3 + BrSALA = HOBr :           O3uptkByBrSALA( State_Het );                                                 {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nO3 + BrSALC = HOBr :           O3uptkByBrSALC( State_Het );                                                 {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHBr = BrSALA :                 HBrUptkBySALA( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHBr = BrSALC :                 HBrUptkBySALC( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = AERI :                    IuptkBySulf1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = ISALA :                   IuptkBySALA1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = ISALC :                   IuptkBySALC1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI = ISALA :                  IuptkByAlkSALA1stOrd( SR_MW(ind_HOI), 0.01_dp, State_Het );                  {2023/01/24; Restored deleted rxn:BA}\nHOI = ISALC :                  IuptkByAlkSALC1stOrd( SR_MW(ind_HOI), 0.01_dp, State_Het );                  {2022/12/02; Restored deleted rxn:BA}\nI2O2 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO = ISALA + HNO2 :          IuptkByAlkSALA1stOrd( SR_MW(ind_IONO), 0.02_dp, State_Het );                 {2022/12/02; Restored deleted rxn:BA}\nIONO = ISALC + HNO2 :          IuptkByAlkSALC1stOrd( SR_MW(ind_IONO), 0.02_dp, State_Het );                 {2022/12/02; Restored deleted rxn:BA}\nIONO2 = ISALA + HNO3 :         IuptkByAlkSALA1stOrd( SR_MW(ind_IONO2), 0.01_dp, State_Het );                {2022/12/02; Restored deleted rxn:BA}\nIONO2 = ISALC + HNO3 :         IuptkByAlkSALC1stOrd( SR_MW(ind_IONO2), 0.01_dp, State_Het );                {2022/12/02; Restored deleted rxn:BA}\nIONO2 + H2O = HOI + HNO3 :     IONO2uptkByH2O( State_Het );                                                 {2021/09/16 XW, TSherwen}\nIONO + BrSALA = IBr + HNO2 :   IbrkdnByAcidBrSALA( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + BrSALC = IBr + HNO2 :   IbrkdnByAcidBrSALC( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + SALACL = ICl + HNO2 :   IbrkdnByAcidSALACl( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + SALCCL = ICl + HNO2 :   IbrkdnByAcidSALCCl( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + BrSALA = IBr + HNO3 :  IbrkdnByAcidBrSALA( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + BrSALC = IBr + HNO3 :  IbrkdnByAcidBrSALC( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + SALACL = ICl + HNO3 :  IbrkdnByAcidSALACl( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + SALCCL = ICl + HNO3 :  IbrkdnByAcidSALCCl( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + BrSALA = IBr :           IbrkdnByAcidBrSALA( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + BrSALC = IBr :           IbrkdnByAcidBrSALC( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + SALACL = ICl :           IbrkdnByAcidSALACl( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + SALCCL = ICl :           IbrkdnByAcidSALCCl( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nGLYX = SOAGX :                 GLYXuptk1stOrd( SR_MW(ind_GLYX), State_Het);                                 {2017/06/15; Marais2016, EAM}\nMGLY = 1.500SOAGX :            MGLYuptk1stOrd( SR_MW(ind_MGLY), State_Het);                                 {2017/06/15; Marais2016, EAM; 2023/04/18; Bates2023; KHB}\nIEPOXA = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXA), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nIEPOXB = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXB), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nIEPOXD = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXD), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nLVOC = LVOCOA :                VOCuptk1stOrd( SR_MW(ind_LVOC), 1.0_dp, State_Het );                         {2017/06/15; Marais2016, EAM}\nMVKN = IONITA :                VOCuptk1stOrd( SR_MW(ind_MVKN), 5.0E-3_dp, State_Het );                      {2017/06/15; Marais2016, EAM}\nR4N2 = IONITA :                VOCuptk1stOrd( SR_MW(ind_R4N2), 5.0E-3_dp, State_Het );                      {2017/06/15; Marais2016, EAM}\nMONITS = MONITA :              VOCuptk1stOrd( SR_MW(ind_MONITS), 1.0E-2_dp, State_Het );                    {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU = MONITA :              VOCuptk1stOrd( SR_MW(ind_MONITU), 1.0E-2_dp, State_Het );                    {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT = MONITA :               VOCuptk1stOrd( SR_MW(ind_HONIT), 1.0E-2_dp, State_Het );                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nPYAC = 1.500SOAGX :            MGLYuptk1stOrd( SR_MW(ind_PYAC), State_Het );                                {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nHMML = 0.800SOAIE :            IEPOXuptk1stOrd( SR_MW(ind_HMML), .TRUE., State_Het);                        {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIHN1 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN1), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN2 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN2), 5.0E-2_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN3 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN3), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN4 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN4), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nICHE = SOAIE :                 IEPOXuptk1stOrd( SR_MW(ind_ICHE), .FALSE., State_Het );                      {2019/11/06; Bates2019; KHB}\nINPD = IONITA :                VOCuptk1stOrd( SR_MW(ind_INPD), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nINPB = IONITA :                VOCuptk1stOrd( SR_MW(ind_INPB), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIDN = IONITA :                 VOCuptk1stOrd( SR_MW(ind_IDN), 5.0E-3_dp, State_Het );                       {2019/11/06; Bates2019; KHB}\nITCN = IONITA :                VOCuptk1stOrd( SR_MW(ind_ITCN), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nITHN = IONITA :                VOCuptk1stOrd( SR_MW(ind_ITHN), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nMCRHNB = IONITA :              VOCuptk1stOrd( SR_MW(ind_MCRHNB), 5.0E-3_dp, State_Het );                    {2019/11/06; Bates2019; KHB}\nMCRHN = IONITA :               VOCuptk1stOrd( SR_MW(ind_MCRHN), 5.0E-3_dp, State_Het );                     {2019/11/06; Bates2019; KHB}\nNPHEN = AONITA :               VOCuptk1stOrd( SR_MW(ind_NPHEN), 1.0E-2_dp, State_Het );                     {2021/09/29; Bates2021b; KHB,MSL}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Photolysis reactions                                            %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\nO3 + hv = O + O2 :                           PHOTOL(2);      {2014/02/03; Eastham2014; SDE}\nO3 + hv = O1D + O2 :                         PHOTOL(3);      {2014/02/03; Eastham2014; SDE}\nO2 + hv = 2.000O :                           PHOTOL(1);      {2014/02/03; Eastham2014; SDE}\nNO2 + hv = NO + O :                          PHOTOL(11);     {2014/02/03; Eastham2014; SDE}\nH2O2 + hv = OH + OH :                        PHOTOL(9);\nMP + hv = CH2O + HO2 + OH :                  PHOTOL(10);\nCH2O + hv = HO2 + H + CO :                   PHOTOL(7);      {2014/02/03; Eastham2014; SDE}\nCH2O + hv = H2 + CO :                        PHOTOL(8);\nHNO3 + hv = OH + NO2 :                       PHOTOL(16);\nHNO2 + hv = OH + NO :                        PHOTOL(15);\nHNO4 + hv = OH + NO3 :                       PHOTOL(17);\nHNO4 + hv = HO2 + NO2 :                      PHOTOL(18);\nNO3 + hv = NO2 + O :                         PHOTOL(12);     {2014/02/03; Eastham2014; SDE}\nNO3 + hv = NO + O2 :                         PHOTOL(13);\nN2O5 + hv = NO3 + NO2 :                      PHOTOL(14);\nALD2 + hv = 0.880MO2 + HO2 + 0.880CO +\n 0.120MCO3 :                                 PHOTOL(61);     {2014/12/19; FAST-JX v7.0 fix; JMAO}\nALD2 + hv = CH4 + CO :                       PHOTOL(62);\nPAN + hv = 0.700MCO3 + 0.700NO2 +\n 0.300MO2 + 0.300NO3 + 0.300CO2 :            PHOTOL(59);     {2014/05/23; Eastham2014; JMAO,SDE; 2023/04/18; Bates2023; KHB}\nRCHO + hv = 0.490OTHRO2 + HO2 + CO +\n 0.070A3O2 + 0.270B3O2 :                     PHOTOL(70);     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nACET + hv = MCO3 + MO2 :                     PHOTOL(76);\nACET + hv = 2.000MO2 + CO :                  PHOTOL(77);\nMEK + hv = 0.850MCO3 + 0.415OTHRO2 +\n 0.150MO2 + 0.150RCO3 + 0.060A3O2 +\n 0.230B3O2 :                                 PHOTOL(69);     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nGLYC + hv = 0.900CH2O + 1.730HO2 + CO +\n 0.070OH + 0.100MOH :                        PHOTOL(68);     {2014/05/23; Eastham2014; JMAO,SDE}\nGLYX + hv = 2.000HO2 + 2.000CO :             PHOTOL(72);\nGLYX + hv = H2 + 2.000CO :                   PHOTOL(73);\nGLYX + hv = CH2O + CO :                      PHOTOL(74);\nMGLY + hv = MCO3 + CO + HO2 :                PHOTOL(71);\nMVK + hv = PRPE + CO :                       PHOTOL(63);\nMVK + hv = MCO3 + CH2O + CO + HO2 :          PHOTOL(64);\nMVK + hv = MO2 + RCO3 :                      PHOTOL(65);     {2014/05/23; Eastham2014; JMAO,SDE}\nMACR + hv = CO + HO2 + CH2O + MCO3 :         PHOTOL(66);     {2014/05/23; Eastham2014; JMAO,SDE}\nHAC + hv = MCO3 + CH2O + HO2 :               PHOTOL(75);\nPRPN + hv = OH + HO2 + RCHO + NO2 :          PHOTOL(79);\nETP + hv = OH + HO2 + ALD2 :                 PHOTOL(80);\nRA3P + hv = OH + HO2 + RCHO :                PHOTOL(81);\nRB3P + hv = OH + HO2 + ACET :                PHOTOL(82);\nR4P + hv = OH + HO2 + 1.500RCHO :            PHOTOL(83);     {2023/04/18; Bates2023; KHB}\nPP + hv = OH + HO2 + ALD2 + CH2O :           PHOTOL(84);\nRP + hv = OH + HO2 + ALD2 + MO2 :            PHOTOL(85);     {2023/04/18; Bates2023; KHB}\nR4N2 + hv = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               PHOTOL(98);     {2023/04/18; Bates2023; KHB}\nMAP + hv = OH + MO2 + CO2 :                  PHOTOL(99);     {2023/04/18; Bates2023; KHB}\nBr2 + hv = 2.000Br :                         PHOTOL(23);     {2012/06/07; Parrella2012; JPP}\nBrO + hv = Br + O :                          PHOTOL(28);     {2014/02/03; Eastham2014; SDE}\nHOBr + hv = Br + OH :                        PHOTOL(32);     {2012/06/07; Parrella2012; JPP}\nBrNO3 + hv = Br + NO3 :                      PHOTOL(29);     {2012/06/07; Parrella2012; JPP}\nBrNO3 + hv = BrO + NO2 :                     PHOTOL(30);     {2012/06/07; Parrella2012; JPP}\nBrNO2 + hv = Br + NO2 :                      PHOTOL(31);     {2012/06/07; Parrella2012; JPP}\nCHBr3 + hv = 3.000Br :                       PHOTOL(56);     {2012/06/07; Parrella2012; JPP}\nCH2Br2 + hv = 2.000Br :                      PHOTOL(55);     {2014/02/03; Eastham2014; SDE}\nCH3Br + hv = MO2 + Br :                      PHOTOL(50);     {2014/02/03; Eastham2014; SDE}\nCH3Cl + hv = MO2 + Cl :                      PHOTOL(43);     {2014/02/03; Eastham2014; SDE}\nCH2Cl2 + hv = 2.000Cl :                      PHOTOL(45);     {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nBrCl + hv = Br + Cl :                        PHOTOL(33);     {2014/02/03; Eastham2014; SDE}\nCl2 + hv = 2.000Cl :                         PHOTOL(22);     {2014/02/03; Eastham2014; SDE}\nClO + hv = Cl + O :                          PHOTOL(27);     {2014/02/03; Eastham2014; SDE}\nOClO + hv = ClO + O :                        PHOTOL(25);     {2014/02/03; Eastham2014; SDE}\nCl2O2 + hv = Cl + ClOO :                     PHOTOL(26);     {2014/02/03; Eastham2014; SDE}\nClNO2 + hv = Cl + NO2 :                      PHOTOL(21);     {2014/02/03; Eastham2014; SDE}\nClNO3 + hv = Cl + NO3 :                      PHOTOL(19);     {2014/02/03; Eastham2014; SDE}\nClNO3 + hv = ClO + NO2 :                     PHOTOL(20);     {2014/02/03; Eastham2014; SDE}\nHOCl + hv = Cl + OH :                        PHOTOL(24);     {2014/02/03; Eastham2014; SDE}\nCH3CCl3 + hv = 3.000Cl :                     PHOTOL(44);     {2014/02/03; Eastham2014; SDE}\nCCl4 + hv = 4.000Cl :                        PHOTOL(42);     {2014/02/03; Eastham2014; SDE}\nCFC11 + hv = 3.000Cl :                       PHOTOL(37);     {2014/02/03; Eastham2014; SDE}\nCFC12 + hv = 2.000Cl :                       PHOTOL(38);     {2014/02/03; Eastham2014; SDE}\nCFC113 + hv = 3.000Cl :                      PHOTOL(39);     {2014/02/03; Eastham2014; SDE}\nCFC114 + hv = 2.000Cl :                      PHOTOL(40);     {2014/02/03; Eastham2014; SDE}\nCFC115 + hv = Cl :                           PHOTOL(41);     {2014/02/03; Eastham2014; SDE}\nHCFC123 + hv = 2.000Cl :                     PHOTOL(47);     {2014/02/03; Eastham2014; SDE}\nHCFC141b + hv = 2.000Cl :                    PHOTOL(48);     {2014/02/03; Eastham2014; SDE}\nHCFC142b + hv = Cl :                         PHOTOL(49);     {2014/02/03; Eastham2014; SDE}\nHCFC22 + hv = Cl :                           PHOTOL(46);     {2014/02/03; Eastham2014; SDE}\nH1301 + hv = Br :                            PHOTOL(53);     {2014/02/03; Eastham2014; SDE}\nH1211 + hv = Cl + Br :                       PHOTOL(51);     {2014/02/03; Eastham2014; SDE}\nH2402 + hv = 2.000Br :                       PHOTOL(54);     {2014/02/03; Eastham2014; SDE}\nClOO + hv = Cl + O2 :                        PHOTOL(101);    {2014/02/03; Eastham2014; SDE}\nI2 + hv = 2.000I :                           PHOTOL(114);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI + hv = I + OH :                          PHOTOL(115);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + hv = I + O :                            PHOTOL(116);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + hv = I + O2 :                          PHOTOL(117);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nINO + hv = I + NO :                          PHOTOL(118);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO + hv = I + NO2 :                        PHOTOL(119);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 + hv = I + NO3 :                       PHOTOL(120);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 + hv = I + OIO :                        PHOTOL(121);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH3I + hv = I :                              PHOTOL(122);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2I2 + hv = 2.000I :                        PHOTOL(123);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2ICl + hv = I + Cl :                       PHOTOL(124);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2IBr + hv = I + Br :                       PHOTOL(125);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 + hv = 2.000OIO :                       PHOTOL(126);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 + hv = OIO + IO :                       PHOTOL(127);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIBr + hv = I + Br :                          PHOTOL(128);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nICl + hv = I + Cl :                          PHOTOL(129);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nMPN + hv = CH2O + NO3 + HO2 :                PHOTOL(103);    {2012/02/12; Browne2011; ECB}\nMPN + hv = MO2 + NO2 :                       PHOTOL(104);    {2012/02/12; Browne2011; ECB}\nATOOH + hv = OH + CH2O + MCO3 :              PHOTOL(97);     {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nN2O + hv = N2 + O1D :                        PHOTOL(36);     {2014/02/03; Eastham2014; SDE}\nOCS + hv = SO2 + CO :                        PHOTOL(34);     {2014/02/03; Eastham2014; SDE}\nSO4 + hv = SO2 + 2.000OH :                   PHOTOL(100);    {2014/02/03; Eastham2014; SDE}\nNO + hv = O + N :                            PHOTOL(6);      {2014/02/03; Eastham2014; SDE}\nPIP + hv = RCHO + OH + HO2 :                 PHOTOL(105);    {2017/03/23; Fischer2014; EVF}\nETHLN + hv = NO2 + CH2O + CO + HO2 :         PHOTOL(107);    {2017/06/15; Marais2016; EAM}\nMONITS + hv = MEK + NO2 :                    PHOTOL(111);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + hv = RCHO + NO2 :                   PHOTOL(112);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT + hv = HAC + NO2 :                     PHOTOL(113);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nNITs + hv = HNO2 :                           PHOTOL(130);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNITs + hv = NO2 :                            PHOTOL(131);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNIT + hv = HNO2 :                            PHOTOL(132);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNIT + hv = NO2 :                             PHOTOL(133);    {2018/07/19; Kasibhatla2018; PK, TMS}\nMENO3 + hv = NO2 + HO2 + CH2O :              PHOTOL(134);    {2019/07/11; Fisher2018; JAF}\nETNO3 + hv = NO2 + HO2 + ALD2 :              PHOTOL(135);    {2019/07/11; Fisher2018; JAF}\nIPRNO3 + hv = NO2 + HO2 + ACET :             PHOTOL(136);    {2019/07/11; Fisher2018; JAF}\nNPRNO3 + hv = NO2 + HO2 + RCHO :             PHOTOL(137);    {2019/07/11; Fisher2018; JAF}\nHMHP + hv = 2OH + CH2O :                     PHOTOL(86);     {2019/11/06; Bates2019; KHB}\nHPETHNL + hv = OH + CO + HO2 + CH2O :        PHOTOL(87);     {2019/11/06; Bates2019; KHB}\nPYAC + hv = MCO3 + CO2 + HO2 :               PHOTOL(88);     {2019/11/06; Bates2019; KHB}\nPROPNN + hv = NO2 + CH2O + MCO3 :            PHOTOL(89);     {2019/11/06; Bates2019; KHB}\nMVKHC + hv = CO + HO2 + CH2O + MCO3 :        PHOTOL(90);     {2019/11/06; Bates2019; KHB}\nMVKHCB + hv = 0.5GLYX + 1.5HO2 + 0.5MCO3 +\n 0.5CO + 0.5MGLY :                           PHOTOL(91);     {2019/11/06; Bates2019; KHB}\nMVKHP + hv = 0.53MCO3 + 0.53GLYC + OH +\n 0.47HO2 + 0.47CH2O + 0.47MGLY :             PHOTOL(92);     {2019/11/06; Bates2019; KHB}\nMVKPC + hv = OH + 0.571CO + 0.571MGLY +\n 0.571HO2 + 0.429GLYX + 0.429MCO3 :          PHOTOL(93);     {2019/11/06; Bates2019; KHB}\nMCRENOL + hv = 0.875CO + 0.75PYAC +\n 1.75OH + 0.125MGLY + 0.125HO2 +\n 0.125MCO3 + 0.125GLYX :                     PHOTOL(94);     {2019/11/06; Bates2019; KHB}\nMCRHP + hv = OH + 0.77CO + HO2 + 0.77HAC +\n 0.23MGLY + 0.23CH2O :                       PHOTOL(95);     {2019/11/06; Bates2019; KHB}\nMACR1OOH + hv = 0.75OH + 1.238CO2 +\n 0.488MO2 + 0.75CH2O + 0.262MCO3 +\n 0.25MACR1OOH :                              PHOTOL(96);     {2019/11/06; Bates2019; KHB}\nMVKN + hv = 0.290HO2 + 0.010OH +\n 0.700NO2 + 1.010MCO3 + 0.690GLYC +\n 0.300ETHLN :                                PHOTOL(108);    {2019/11/06; Bates2019; KHB}\nMCRHN + hv = HAC + CO + HO2 + NO2 :          PHOTOL(109);    {2019/11/06; Bates2019; KHB}\nMCRHNB + hv = PROPNN + OH + CO + HO2 :       PHOTOL(110);    {2019/11/06; Bates2019; KHB}\nRIPA + hv = MVK + CH2O + HO2 + OH :          PHOTOL(138);    {2019/11/06; Bates2019; KHB}\nRIPB + hv = MACR + CH2O + HO2 + OH :         PHOTOL(139);    {2019/11/06; Bates2019; KHB}\nRIPC + hv = OH + HO2 + HC5A :                PHOTOL(140);    {2019/11/06; Bates2019; KHB}\nRIPD + hv = OH + HO2 + HC5A :                PHOTOL(141);    {2019/11/06; Bates2019; KHB}\nHPALD1 + hv = 0.888CO + 1.662OH +\n 0.112HO2 + 0.112IDC + 0.112MVKPC +\n 0.552MCRENOL + 0.224C4HVP1 :                PHOTOL(142);    {2019/11/06; Bates2019; KHB}\nHPALD2 + hv = 0.818CO + 1.637OH +\n 0.182HO2 + 0.182IDC + 0.182MVKPC +\n 0.454MCRENOL + 0.182C4HVP2 :                PHOTOL(143);    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nHPALD3 + hv = CO + OH + HO2 + MVK :          PHOTOL(144);    {2019/11/06; Bates2019; KHB}\nHPALD4 + hv = CO + OH + HO2 + MACR :         PHOTOL(145);    {2019/11/06; Bates2019; KHB}\nIHN1 + hv = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MVKHP + 0.55CO + 0.55OH :               PHOTOL(146);    {2019/11/06; Bates2019; KHB}\nIHN2 + hv = NO2 + MVK + HO2 + CH2O :         PHOTOL(147);    {2019/11/06; Bates2019; KHB}\nIHN3 + hv = NO2 + MACR + HO2 + CH2O :        PHOTOL(148);    {2019/11/06; Bates2019; KHB}\nIHN4 + hv = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MCRHP + 0.55CO + 0.55OH :               PHOTOL(149);    {2019/11/06; Bates2019; KHB}\nINPB + hv = NO2 + CH2O + 0.097MACR +\n 0.903MVK + 0.67OH + 0.33HO2 :               PHOTOL(150);    {2019/11/06; Bates2019; KHB}\nINPD + hv = OH + 0.159HO2 + 0.159ICN +\n 0.841INA :                                  PHOTOL(151);    {2019/11/06; Bates2019; KHB}\nINPD + hv = NO2 + 0.841IHOO1 + 0.159IHOO4 :  PHOTOL(152);    {2019/11/06; Bates2019; KHB}\nICN + hv = NO2 + 0.839CO + 0.645OH +\n 0.161HO2 + 0.161IDC + 0.162MVKPC +\n 0.481MCRENOL + 0.128C4HVP2 + 0.068C4HVP1 :  PHOTOL(106);    {2019/11/06; Bates2019; KHB}\nIDN + hv = 1.555NO2 + 0.5GLYC + 0.5HAC +\n 0.05MVK + 0.005MACR + 0.055CH2O +\n 0.222INA + 0.223ICN + 0.228HO2 :            PHOTOL(78);     {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICPDH + hv = CO + 1.5HO2 + 0.5OH +\n 0.5MCRHP + 0.35MVKDH + 0.15MCRDH :          PHOTOL(153);    {2019/11/06; Bates2019; KHB}\nICPDH + hv = OH + HO2 + 0.163CO +\n 0.133CH2O + 0.133MVKHCB + 0.586HAC +\n 0.586GLYX + 0.118GLYC + 0.118MGLY +\n 0.163MCRDH :                                PHOTOL(154);    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIDHDP + hv = 1.25OH + 0.25GLYC + 0.25HAC +\n 0.75ICPDH + 0.75HO2 :                       PHOTOL(155);    {2019/11/06; Bates2019; KHB}\nIDHPE + hv = OH + HO2 + 0.429MGLY +\n 0.429GLYC + 0.571GLYX + 0.571HAC :          PHOTOL(156);    {2019/11/06; Bates2019; KHB}\nIDCHP + hv = 0.546OH + CO + 1.454HO2 +\n 0.391MVKHC + 0.155MVKHCB + 0.454MVKPC :     PHOTOL(157);    {2019/11/06; Bates2019; KHB}\nITHN + hv = OH + 0.7HO2 + 0.55CH2O +\n 0.5MCRHN + 0.3GLYC + 0.45HAC + 0.3NO2 +\n 0.15ETHLN + 0.05MVKN :                      PHOTOL(158);    {2019/11/06; Bates2019; KHB}\nITHN + hv = NO2 + 0.8HAC + 0.7HO2 +\n 0.5HPETHNL + 0.35GLYC + 0.15CH2O +\n 0.15MCRHP + 0.05ATOOH + 0.3OH :             PHOTOL(159);    {2019/11/06; Bates2019; KHB}\nITCN + hv = MGLY + OH + NO2 + GLYC :         PHOTOL(160);    {2019/11/06; Bates2019; KHB}\nITCN + hv = 0.5MVKHP + 0.5MCRHP + CO +\n NO2 + HO2 :                                 PHOTOL(161);    {2019/11/06; Bates2019; KHB}\nETHP + hv = ETO + OH :                       PHOTOL(162);    {2021/09/22; Bates2021a; KHB,MSL}\nBALD + hv = BENZO2 + CO + HO2 :              PHOTOL(163);    {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3H + hv = BENZO2 + OH + CO2 :            PHOTOL(164);    {2021/09/29; Bates2021b; KHB,MSL}\nBENZP + hv = BENZO :                         PHOTOL(165);    {2021/09/29; Bates2021b; KHB,MSL}\nNPHEN + hv = HNO2 + CO +\n CO2 + AROMP4 + HO2 :                        PHOTOL(166);    {2021/09/29; Bates2021b; KHB,MSL}\n"
  },
  {
    "path": "KPP/aciduptake/aciduptake.kpp",
    "content": "#INTEGRATOR rosenbrock\n#LANGUAGE Fortran90\n#DRIVER none\n#HESSIAN off\n#MEX off\n#STOICMAT off\n\n#INCLUDE aciduptake.eqn\n\n#FAMILIES\nPOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + PRN1 + PRPN + R4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4;\nLOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + PRN1 + PRPN + R4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4;\nPCO : CO;\nLCO : CO;\nPSO4 : SO4;\nLCH4 : CH4;\nPH2O2 : H2O2;\n\n#INLINE F90_RATES\n  ! All rates are included in aerochem_RateLawFuncs.F90, which\n  ! gets referenced directly from subroutine Update_Rconst.\n#ENDINLINE\n\n#INLINE F90_RCONST\n  ! Inline modules containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (11 Jun 2021)\n  USE fullchem_RateLawFuncs\n#ENDINLINE\n\n#INLINE F90_GLOBAL\n  !--------------------------------------------------------------------------\n  ! Additional global parameters -- will be added to gckpp_Global.F90\n  !--------------------------------------------------------------------------\n\n  ! Universal gas consatant [bar/(mol/kg)/K]  (Source: NIST, 2014)\n  ! NOTE: Make sure this is consistent w/ the value in physconsts.F90!\n  REAL(dp), PARAMETER :: CON_R = 0.083144598_dp\n\n  !--------------------------------------------------------------------------\n  ! Additional global variables -- will be added to gckpp_Global.F90\n  !--------------------------------------------------------------------------\n\n  ! Inverse of temperature [1/K]\n  REAL(dp) :: INV_TEMP\n  !$OMP THREADPRIVATE( INV_TEMP )\n\n  ! 4.0 * CON_R * TEMP\n  REAL(dp) :: FOUR_R_T\n  !$OMP THREADPRIVATE( FOUR_R_T )\n\n  ! 4.0 * RGASLATM * TEMP\n  REAL(dp) :: FOUR_RGASLATM_T\n  !$OMP THREADPRIVATE( FOUR_RGASLATM_T )\n\n  ! 8.0 * RSTARG * TEMP\n  REAL(dp) :: EIGHT_RSTARG_T\n  !$OMP THREADPRIVATE( EIGHT_RSTARG_T )\n\n  ! H2O concentration\n  REAL(dp) :: H2O\n  !$OMP THREADPRIVATE( H2O )\n\n  ! Pressure and relative humidity\n  REAL(dp) :: PRESS\n  REAL(dp) :: RELHUM\n  !$OMP THREADPRIVATE( PRESS, RELHUM )\n\n  ! Cosine of solar zenith angle\n  REAL(dp) :: SUNCOS\n  !$OMP THREADPRIVATE( SUNCOS )\n\n  ! Henry's law constants (do not need to be THREADPRIVATE)\n  REAL(dp) :: HENRY_K0(NSPEC)\n  REAL(dp) :: HENRY_CR(NSPEC)\n\n  ! Array for aqueous sulfur chemistry rates (1/s)\n  REAL(dp) :: K_MT(6)\n  !$OMP THREADPRIVATE( K_MT )\n\n  ! Array for sulfur chemistry rates in cloud (1/s)\n  REAL(dp) :: K_CLD(6)\n  !$OMP THREADPRIVATE( K_CLD )\n\n  ! Array for dust acid-uptake rates [1/s]\n  REAL(dp) :: K_DST(13)\n  !$OMP THREADPRIVATE( K_DST )\n\n  ! Liquid water conversion factor\n  ! - Size = number of aerosol types (nAeroType = 14)\n  REAL(dp) :: CVFAC(14)\n  !$OMP THREADPRIVATE( CVFAC )\n\n  ! Proton activity [unitless] and H+ concentration [M]\n  ! (assumed equivalent - for now):\n  REAL(dp) :: H_PLUS\n  !$OMP THREADPRIVATE( H_PLUS )\n\n  ! Array for photolysis rates (increase size if necessary)\n  REAL(dp) :: PHOTOL(1000)\n  !$OMP THREADPRIVATE( PHOTOL )\n\n  TYPE, PUBLIC :: HetState\n     LOGICAL  :: debugBox       ! Are we in a debugging box?\n     REAL(dp) :: AVO            ! Avogadro's constant [molec/mol]\n     LOGICAL  :: natSurface     ! Is there NAT in this box?\n     LOGICAL  :: pscBox         ! Are there polar strat clouds?\n     LOGICAL  :: stratBox       ! Are we in the stratosphere\n     INTEGER  :: NAEROTYPE      ! Number of aerosol types\n     LOGICAL  :: is_UCX         ! Are we using the UCX mechanism?\n     REAL(dp) :: aClArea        ! Fine SSA+SNA aerosol area [cm2/cm3]\n     REAL(dp) :: aClRadi        ! Fine SSA+SNA aerosol radius [cm]\n     REAL(dp) :: aClVol         ! Fine SSA+SNA aerosol volume [cm3/cm3]\n     REAL(dp) :: aIce           ! Ice surface area [cm2/cm3]\n     REAL(dp) :: aLiq           ! Liquid surface area [cm2/cm3]\n     REAL(dp) :: aWater(2)      ! ISORROPIA/HETP aerosol water (fine & coarse)\n     REAL(dp) :: Br_conc_CldA   ! Br- in cloud (A=fine SSA) [mol/kg H2O]\n     REAL(dp) :: Br_conc_CldC   ! Br- in cloud (C=coarse SSA) [mol/kg H2O]\n     REAL(dp) :: Br_conc_CldG   ! Br- in cloud (G=gas-phase) [mol/kg H2O]\n     REAL(dp) :: Br_conc_Cld    ! Br- total in cloud = A + C + G\n     REAL(dp) :: Br_conc_SSA    ! Br- in fine SSA [mol/kg H2O]\n     REAL(dp) :: Br_conc_SSC    ! Br- in coarse SSA  [mol/kg H2O]\n     REAL(dp) :: Br_over_Cl_Cld ! Br/Cl ratio in cloud\n     REAL(dp) :: Br_over_Cl_SSA ! Br/Cl ratio in fine sea salt\n     REAL(dp) :: Br_over_Cl_SSC ! Br/Cl ratio in coarse sea salt\n     REAL(dp) :: Cl_conc_CldA   ! Cl- in cloud (A=fine SSA) [mol/kg H2O]\n     REAL(dp) :: Cl_conc_CldC   ! Cl- in cloud (C=coarse SSA) [mol/kg H2O]\n     REAL(dp) :: Cl_conc_CldG   ! Cl- in cloud (G=gas-phase) [mol/kg H2O]\n     REAL(dp) :: Cl_conc_Cld    ! Cl- total = A + C + G\n     REAL(dp) :: Cl_conc_SSA    ! Cl- in fine   sea salt [mol/kg H2O]\n     REAL(dp) :: Cl_conc_SSC    ! Cl- in coarse sea salt [mol/kg H2O]\n     REAL(dp) :: cldFr          ! Cloud fraction\n     REAL(dp) :: clearFr        ! Clear sky fraction\n     REAL(dp) :: frac_Br_CldA   ! Frac of Br- in fine SSA(in cloud)\n     REAL(dp) :: frac_Br_CldC   ! Frac of Br- in coarse SSA (in cloud)\n     REAL(dp) :: frac_Br_CldG   ! Frac of Br- in gas phase\n     REAL(dp) :: frac_Cl_CldA   ! Frac of Cl- in fine SSA (in cloud)\n     REAL(dp) :: frac_Cl_CldC   ! Frac of Cl- in coarse SSA (in cloud)\n     REAL(dp) :: frac_Cl_CldG   ! Frac of Cl- in gas phase\n     REAL(dp) :: frac_HSO3_aq   ! HSO3_aq / ( HSO3_aq + SO3_aq )\n     REAL(dp) :: frac_SALACL    ! Frac of SALACL / total fine sea salt\n     REAL(dp) :: frac_SO3_aq    ! SO3_aq  / ( HSO3_aq + SO3_aq )\n     REAL(dp) :: gamma_HO2      ! Uptake probability for HO2  [1]\n     REAL(dp) :: H2O            ! H2O concentration\n     REAL(dp) :: HBr_theta      ! HBr theta for uptake on ice\n     REAL(dp) :: HCl_theta      ! HCl theta for uptake on ice\n     REAL(dp) :: H_conc_ICl     ! Ice phase pH, Cl-\n     REAL(dp) :: H_conc_LCl     ! Liquid phase pH, Cl-\n     REAL(dp) :: H_conc_SSA     ! Liquid phase pH, fine sea salt\n     REAL(dp) :: H_conc_SSC     ! Liquid phase pH, coarse sea salt\n     REAL(dp) :: H_conc_Sul     ! Liquid phase pH, sulfate\n     REAL(dp) :: HNO3_theta     ! HNO3 theta for uptake on ice\n     REAL(dp) :: HSO3_aq        ! Cloud bisulfite [mol/L]\n     REAL(dp) :: SO3_aq         ! Cloud sulfite [mol/L]\n     REAL(dp) :: TSO3_aq        ! Cloud sulfite + bisulfite [mol/L]\n     REAL(dp) :: H_plus         ! Proton activity [1] and H+ conc [M]\n     REAL(dp) :: KHETI_SLA(11)  ! Probs for PSC uptk rxns on SLA [1]\n     REAL(dp) :: HSO4_molal     ! Bisulfate concentration [M]\n     REAL(dp) :: NO3_molal      ! Nitrate concentration [M]\n     REAL(dp) :: SO4_molal      ! Sulfate concentration [M]\n     REAL(dp) :: NIT_conc_SSA   ! Cl- in fine sea salt [mol/kg H2O]\n     REAL(dp) :: NIT_conc_SSC   ! Cl- in coarse sea salt [mol/kg H2O]\n     REAL(dp) :: PI             ! PI constant\n     REAL(dp) :: pHCloud        ! Cloud PH\n     REAL(dp) :: pHSSA(2)       ! Sea salt pH (1=fine, 2=coarse)\n     REAL(dp) :: OMOC_POA       ! Org matter/orgc carbon in POA [1]\n     REAL(dp) :: OMOC_OPOA      ! Org matter/org carbon in POA [1]\n     REAL(dp) :: qIce           ! Ice mixing ratio [kg/kg]\n     REAL(dp) :: qLIq           ! Water mixing ratio [kg/kg]\n     REAL(dp) :: rIce           ! Ice radius\n     REAL(dp) :: rLiq           ! Liquid radius\n     REAL(dp) :: SALAAL_save    ! Conc of SALAAL before conv [molec/cm3]\n     REAL(dp) :: SALCAL_save    ! Conc of SALCAL before conv [molec/cm3]\n     REAL(dp) :: ssAlk(2)       ! Sea salt alk'nty (1=fine, 2=coarse)\n     LOGICAL  :: SSA_is_Alk     ! Is fine sea-salt alkaline?\n     LOGICAL  :: SSA_is_Acid    ! Is fine sea-salt acidic?\n     LOGICAL  :: SSC_is_Alk     ! Is coarse sea-salt alkaline?\n     LOGICAL  :: SSC_is_Acid    ! Is coarse sea-salt acidic?\n     REAL(dp) :: vAir           ! Volume of air [cm3]\n     REAL(dp) :: vIce           ! Ice volume [cm3]\n     REAL(dp) :: vLiq           ! Liquid volume [cm3]\n     REAL(dp) :: wetArea(14)    ! Aerosol specific wet sfc area [cm3/cm3]\n     REAL(dp) :: xArea(14)      ! Aerosol specific sfc area  [cm3/cm3]\n     REAL(dp) :: xH2O(14)       ! Aerosol water content [cm3/cm3]\n     REAL(dp) :: xRadi(14)      ! Aerosol effective radius [cm]\n     REAL(dp) :: xVol(14)       ! Aerosol specific volume [cm3/cm3]\n     REAL(dp) :: fupdateHOBr\n     REAL(dp) :: fupdateHOCl\n  END TYPE HetState\n  TYPE(HetState), TARGET, PUBLIC :: State_Het\n  !$OMP THREADPRIVATE( State_Het )\n#ENDINLINE\n"
  },
  {
    "path": "KPP/aciduptake/aciduptake_DustChemFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: aciduptake_DustChemFuncs\n!\n! !DESCRIPTION: Module containing rate-law functions for the dust acid\n!  uptake species, in the aciduptake mechanism.\n!\\\\\n!\\\\\n! !INTERFACE:\n\nMODULE aciduptake_DustChemFuncs\n!\n! !USES:\n!\n  USE GcKpp_Precision\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: aciduptake_DustChem\n  PUBLIC :: aciduptake_InitDustChem\n!\n! !PRIVATE DATA MEMBERS:\n!\n  INTEGER, PRIVATE :: id_DSTAL1, id_DSTAL2, id_DSTAL3, id_DSTAL4\n  INTEGER, PRIVATE :: id_DST1,   id_DST2,   id_DST3,   id_DST4\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aciduptake_DustChem\n!\n! !DESCRIPTION: Computes the reaction rates [1/s] for acid uptake on dust\n!  species. \n!\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE aciduptake_DustChem( I,         J,         L,                   &\n                                  Input_Opt, State_Chm, State_Met, RC       )\n!\n! !USES:\n!\n    USE CMN_SIZE_Mod,     ONLY : NDSTBIN\n    USE ErrCode_Mod\n    USE GcKpp_Global,     ONLY : C, K_DST\n    USE GcKpp_Parameters\n    USE GcKpp_Precision\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE PhysConstants,    ONLY : AIRMW, AVO\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Met_Mod,    ONLY : MetState\n    USE rateLawUtilFuncs, ONLY : KIIR1Ltd\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L     ! X, Y, Z grid indices\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n    REAL(dp)           :: K0, Ki, F, M, KK, F1\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    ! Arrays\n    REAL(dp)           :: ALK_d(NDSTBIN)\n    REAL(dp)           :: KTS(NDSTBIN)\n    REAL(dp)           :: KTN(NDSTBIN)\n    REAL(dp)           :: KTH(NDSTBIN)\n\n    !========================================================================\n    ! aciduptake_DustChem begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at SET_CLD_S (in module GeosCore/sulfate_mod.F90)'\n\n    ! Updated to match JPL 2006 + full chem (jaf, 10/14/09)\n\n    !========================================================================\n    ! Get dust alkalinity ALK_d (NDSTBIN) [v/v], Uptake rates for\n    ! sulfate, KTS(NDSTBIN), and nitrate, KTN(NDSTBIN) on dust [s-1]\n    !========================================================================\n    CALL Get_Dust_Alk(  I         = I,                                       &\n                        J         = J,                                       &\n                        L         = L,                                       &\n                        ALK_d     = ALK_d,                                   &\n                        KTS       = KTS,                                     &\n                        KTN       = KTN,                                     &\n                        KTH       = KTH,                                     &\n                        Input_Opt = Input_Opt,                               &\n                        State_Met = State_Met,                               &\n                        State_Chm = State_Chm                               )\n\n    !========================================================================\n    ! Get dust alkalinity ALK_d (NDSTBIN) [v/v], Uptake rates for\n    ! sulfate = KTS(NDSTBIN) on dust [s-1]\n    ! nitrate = KTN(NDSTBIN) on dust [s-1]\n    ! H2SO4   = KTH(NDSTBIN) on dust [s-1]\n    !========================================================================\n\n    K_DST(1)  = KIIR1Ltd( C(ind_SO2),   2.0_dp*C(ind_DSTAL1), KTS(1) )\n    K_DST(2)  = KIIR1Ltd( C(ind_SO2),   2.0_dp*C(ind_DSTAL2), KTS(2) )\n    K_DST(3)  = KIIR1Ltd( C(ind_SO2),   2.0_dp*C(ind_DSTAL3), KTS(3) )\n    K_DST(4)  = KIIR1Ltd( C(ind_SO2),   2.0_dp*C(ind_DSTAL4), KTS(4) ) \n\n    K_DST(5)  = KIIR1Ltd( C(ind_HNO3),  C(ind_DSTAL1),        KTN(1) )\n    K_DST(6)  = KIIR1Ltd( C(ind_HNO3),  C(ind_DSTAL2),        KTN(2) )\n    K_DST(7)  = KIIR1Ltd( C(ind_HNO3),  C(ind_DSTAL3),        KTN(3) )\n    K_DST(8)  = KIIR1Ltd( C(ind_HNO3),  C(ind_DSTAL4),        KTN(4) )\n\n    K_DST(9)  = KIIR1Ltd( C(ind_H2SO4), 2.0_dp*C(ind_DSTAL1), KTH(1) )\n    K_DST(10) = KIIR1Ltd( C(ind_H2SO4), 2.0_dp*C(ind_DSTAL2), KTH(2) )\n    K_DST(11) = KIIR1Ltd( C(ind_H2SO4), 2.0_dp*C(ind_DSTAL3), KTH(3) )\n    K_DST(12) = KIIR1Ltd( C(ind_H2SO4), 2.0_dp*C(ind_DSTAL4), KTH(4) )\n\n    !========================================================================\n    ! Gas phase SO4 production is done here in offline run only\n    !========================================================================\n    K0        = 3.3e-31_dp * ( 300.0_dp / State_Met%T(I,J,L) )**4.3_dp\n    Ki        = 1.6e-12_dp\n    F         = 1000.0_dp / AIRMW * AVO * 1.e-6_dp\n    M         = State_Met%AIRDEN(I,J,L) * F\n    KK        = K0 * M / Ki\n    F1        = 1.0_dp / ( 1.0_dp + ( LOG10( KK ) )**2 )\n    K_DST(13) = ( K0 * M / ( 1.0_dp + KK ) ) * 0.6_dp**F1\n\n  END SUBROUTINE aciduptake_DustChem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_dust_alk\n!\n! !DESCRIPTION: Subroutine GET\\_DUST\\_ALK returns: (1) dust alkalinity,\n!  ALK\\_d(NDSTBIN) [v/v], (2) rate coefficients, KTS(NDSTBIN), KTN(NDSTBIN),\n!  for uptake of SO2 and HNO3 on dust for use in sulfate\\_mod.f for chemistry\n!  on dust aerosols, (3) fraction, KTH(NDSTBIN), of the size-weighted total\n!  area of aerosols in the grid box. GET\\_DUST\\_ALK is analogous to GET\\_ALK\n!  for seasalt (bec, 12/7/04; tdf 04/08/08)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_DUST_ALK( I,   J,   L,         ALK_d,     KTS,              &\n                           KTN, KTH, Input_Opt, State_Met, State_Chm        )\n!\n! !USES:\n!\n    USE CMN_SIZE_MOD,    ONLY : NDUST, NDSTBIN\n    USE ERROR_MOD,       ONLY : IT_IS_NAN\n    USE GcKpp_Parameters\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE PhysConstants,   ONLY : PI, AIRMW\n    USE Species_Mod,     ONLY : SpcConc\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Met_Mod,   ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L        ! Grid box indices\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt      ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met      ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm      ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(dp),       INTENT(OUT)   :: ALK_d(NDSTBIN) ! Dust alkalinity [v/v]\n    REAL(dp),       INTENT(OUT)   :: KTS  (NDSTBIN) ! Rate coef for uptake of\n                                                    ! SO2 on dust [s-1]\n    REAL(dp),       INTENT(OUT)   :: KTN  (NDSTBIN) ! Rate coef for uptake of\n                                                    ! HNO3 on dust [s-1]\n    REAL(dp),       INTENT(OUT)   :: KTH  (NDSTBIN) ! Fraction of the size-\n                                                    ! weighted total area\n                                                    ! of aerosols in grid box\n!\n! !REVISION HISTORY:\n!  08 Apr 2008 - T.D. Fairlie- Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(dp), PARAMETER :: MINDAT = 1.d-20\n\n    ! Need this for dust\n    !REAL(dp), PARAMETER :: GAMMA_SO2 = 0.05d0  !(Song & Carmichael, 2001)\n    ! 200 times smaller 8/28/2K9\n    REAL(dp), PARAMETER :: GAMMA_SO2 = 2.5d-4\n\n    !tdf V9 4/1/2K9 Applying Song et al.(2007) reduced value\n    REAL(dp), PARAMETER :: GAMMA_H2SO4 = 1.d0\n\n    !  Need this for dust\n    !REAL(dp), PARAMETER :: GAMMA_HNO3 = 0.1d0 ! (Song & Carmichael, 2001)\n    ! 200 times smaller 8/28/2K9\n    REAL(dp), PARAMETER :: GAMMA_HNO3 = 5.0d-4\n\n    REAL(dp), PARAMETER :: DG = 0.2d0 ! gas phase diffusion coeff. [cm2/s]\n    REAL(dp), PARAMETER :: v = 3.0d4  ! cm/s\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER             :: IRH\n    INTEGER             :: IBIN, ISBIN\n    REAL(dp)            :: N1, KT1, KT1N\n    REAL(dp)            :: AREA, HGF\n    REAL(dp)            :: CONST1, CONST2, CONST\n    REAL(dp)            :: AIR_DENS\n    REAL(dp)            :: A1, B1, A1N, B1N, T1, R1\n    REAL(dp)            :: DD, RD, DM\n    REAL(dp)            :: TOTAL_AREA, DF_TOTAL_AREA\n    REAL(dp)            :: DST_d (NDSTBIN), ALK, GAMS, GAMN\n    REAL(dp)            :: SULF_AREA, BC_AREA, OC_AREA\n    REAL(dp)            :: SULF_RAD, BC_RAD, OC_RAD\n    REAL(dp)            :: SULF_FAC, BC_FAC, OC_FAC\n    REAL(dp)            :: SSA_AREA, SSC_AREA\n    REAL(dp)            :: SSA_RAD, SSC_RAD\n    REAL(dp)            :: SSA_FAC, SSC_FAC\n    REAL(dp)            :: term\n    LOGICAL, SAVE       :: FIRST = .TRUE.\n\n    ! Arrays\n    ! Dust Surface Areas                                ! tdf 08/20/09\n    REAL(dp)            :: AREA_d(NDSTBIN)              ! [cm^2/cm^3]\n\n    ! Dust Surface Areas within sub-bins 1-4 of BIN 1   ! tdf 08/20/09\n    REAL(dp)            :: AREA_sd1(4)                  ! [cm^2/cm^3]\n\n    ! Dust Effective Radius                             ! tdf 08/20/09\n    REAL(dp)            :: RD_d(NDSTBIN)                ! [cm]\n\n    ! Dust Effective Radii for sub-bins 1-4 of BIN 1    ! tdf 08/20/09\n    REAL(dp)            :: RD_sd1(4)                    ! [cm]\n\n    ! Dust size-weighted Surface Areas                  ! tdf 08/20/09\n    REAL(dp)            :: DF_AREA_d(NDSTBIN)           ! [1/s]\n\n    ! Dust size-weighted Surface Areas for sub-bins 1-4 ! tdf 08/20/09\n    REAL(dp)            :: DF_AREA_sd1(4)               ! [1/s]\n\n    ! Molecular weights\n    REAL(dp)            :: MW_DST1, MW_DST2, MW_DST3, MW_DST4\n\n    ! Pointers\n    TYPE(SpcConc), POINTER   :: Spc(:)\n    REAL(dp),      POINTER   :: ERADIUS(:,:,:,:)\n    REAL(dp),      POINTER   :: TAREA(:,:,:,:)\n\n    !=================================================================\n    ! GET_DUST_ALK begins here!\n    !=================================================================\n\n    ! Initialize pointers\n    Spc       => State_Chm%Species  ! GEOS-Chem species array [v/v dry]\n    ERADIUS   => State_Chm%AeroRadi    ! Aerosol Radius [cm]\n    TAREA     => State_Chm%AeroArea    ! Aerosol Area [cm2/cm3]\n\n    ! Get MWs from species database\n    MW_DST1   = State_Chm%SpcData(id_DST1)%Info%MW_g\n    MW_DST2   = State_Chm%SpcData(id_DST2)%Info%MW_g\n    MW_DST3   = State_Chm%SpcData(id_DST3)%Info%MW_g\n    MW_DST4   = State_Chm%SpcData(id_DST4)%Info%MW_g\n\n    ! Zero variables\n    ALK_d     = 0.0_dp\n    KTS       = 0.0_dp\n    KTN       = 0.0_dp\n    KTH       = 0.0_dp\n    AREA_d    = 0.0_dp\n    RD_d      = 0.0_dp\n\n    ! Air density [kg/m3]\n    AIR_DENS  = State_Met%AD(I,J,L) / State_Met%AIRVOL(I,J,L)\n\n    ! Retrieve Dust Alkalinity [v/v dry from Spc array\n    ALK_d(1)  = Spc(id_DSTAL1)%Conc(I,J,L)\n    ALK_d(2)  = Spc(id_DSTAL2)%Conc(I,J,L)\n    ALK_d(3)  = Spc(id_DSTAL3)%Conc(I,J,L)\n    ALK_d(4)  = Spc(id_DSTAL4)%Conc(I,J,L)\n\n    ! Dust [kg/m3] from Spc, used to compute dust surface area\n    ! Units: (moles/mole).(kg(air)/m3).(kg(dust)/mole)/(kg(air)/mole)\n    DST_d(1)  = Spc(id_DST1)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST1 )\n    DST_d(2)  = Spc(id_DST2)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST2 )\n    DST_d(3)  = Spc(id_DST3)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST3 )\n    DST_d(4)  = Spc(id_DST4)%Conc(I,J,L) * AIR_DENS / ( AIRMW / MW_DST4 )\n\n    ! tdf Now get aerosol surface area from TAREA (cm2/cm3)\n    SULF_AREA = TAREA(I,J,L,NDUST+1)\n    BC_AREA   = TAREA(I,J,L,NDUST+2)\n    OC_AREA   = TAREA(I,J,L,NDUST+3)\n    SSA_AREA  = TAREA(I,J,L,NDUST+4)\n    SSC_AREA  = TAREA(I,J,L,NDUST+5)\n\n    ! tdf Now get aerosol effective radius from ERADIUS (cm)\n    SULF_RAD  = ERADIUS(I,J,L,NDUST+1)\n    BC_RAD    = ERADIUS(I,J,L,NDUST+2)\n    OC_RAD    = ERADIUS(I,J,L,NDUST+3)\n    SSA_RAD   = ERADIUS(I,J,L,NDUST+4)\n    SSC_RAD   = ERADIUS(I,J,L,NDUST+5)\n\n    ! tdf Quotients [s/cm] used to weight surface area for H2SO4 uptake\n    term      = 4.0_dp / ( V * GAMMA_H2SO4 ) \n    SULF_FAC  = ( SULF_RAD / DG + term )\n    BC_FAC    = (   BC_RAD / DG + term )\n    OC_FAC    = (   OC_RAD / DG + term )\n    SSA_FAC   = (  SSA_RAD / DG + term )\n    SSC_FAC   = (  SSC_RAD / DG + term )\n\n    !tdf Surface areas and effective radii for sub-bins 1-4 of dust bin 1\n    DO ISBIN = 1, 4\n       T1 = TAREA  (I,J,L,ISBIN)\n       R1 = ERADIUS(I,J,L,ISBIN)\n       AREA_sd1    (ISBIN) = T1\n       RD_sd1      (ISBIN) = R1\n       !tdf surface area for sub bins 1-4 in bin 1, weighted by gas-phase\n       !tdf diffusion and collision limitations\n       !tdf used to compute proportionate uptake of H2SO4 only  [1/s]\n       DF_AREA_sd1 (ISBIN) = T1 / (R1/DG + 4.0e+0_dp/(V*GAMMA_H2SO4))\n    END DO\n\n    !-----------------------------------------------------------------------\n    ! Very Simple Formulation: For each size bin (i)   ! tdf 8/20/09\n    ! Dust Area density = 3 * Dust Mass density  / (REFF(i) * DUSTDEN)\n    ! TAREA computed   in RDUST_ONLINE - Units: cm^2(dust) / cm^3(air)\n    ! ERADIUS computed in RDUST_ONLINE - Units: cm\n    ! NB: I am now subdividing the submicron dust size bin\n    !     using TAREA (I,J,L,1->4), and ERADIUS (I,J,L,1->4).\n    !-----------------------------------------------------------------------\n\n    !-------------------------------------------------------------------------\n    !  Find Dust surface area density in grid-box, AREA_d [cm^2/cm^3].\n    !  Also find the size-weighted surface area density, DF_AREA_d [1/s].\n    !  The latter represents the gas-phase diffusion and surface\n    !  limited weighting and is used to determine the fraction of H2SO4\n    !  taken up on dust, versus taken up on other aerosols.\n    !                                                 tdf 08/21/09\n    !-------------------------------------------------------------------------\n\n    ! tdf Loop over size bins  (NDSTBIN = 4)\n    DO IBIN = 1, NDSTBIN\n\n       ! Dust Area density in grid box,      AREA_d [cm^2/cm^3]    tdf 8/21/09\n       ! Dust weighted surface area density, DF_AREA_d [1/s]       tdf 8/21/09\n\n       IF (IBIN .EQ. 1) THEN\n          ! For Dust size bin 1, sum over the 4 size sub bins  tdf 8/21/09\n          AREA_d   (IBIN) = AREA_sd1(1) + AREA_sd1(2) &       ![cm^2/cm^3]\n                          + AREA_sd1(3) + AREA_sd1(4)\n          DF_AREA_d(IBIN) = DF_AREA_sd1(1) + DF_AREA_sd1(3) &  ! [1/s]\n                          + DF_AREA_sd1(2) + DF_AREA_sd1(4)\n       ELSE\n          T1 = TAREA(I,J,L,3+IBIN)      ! [cm^2/cm^3]\n          R1 = ERADIUS(I,J,L,3+IBIN)    ! [cm]\n          RD_d     (IBIN) = R1\n          AREA_d   (IBIN) = T1          ! [cm^2/cm^3]\n          DF_AREA_d(IBIN) = T1 / (R1/DG + 4.0D0/(V*GAMMA_H2SO4)) ! [1/s]\n       ENDIF\n\n    END DO\n\n    ! tdf total aerosol surface area  [cm^2/cm^3]\n    TOTAL_AREA = SULF_AREA + BC_AREA + OC_AREA + SSA_AREA  + SSC_AREA + &\n                 AREA_d(1) + AREA_d(2) + AREA_d(3) + AREA_d(4)\n\n    ! tdf total surface area weighted by gas-phase diffusion limitation [1/s]\n    DF_TOTAL_AREA = SULF_AREA / SULF_FAC + &\n                    BC_AREA   / BC_FAC   + &\n                    OC_AREA   / OC_FAC   + &\n                    SSA_AREA  / SSA_FAC  + &\n                    SSC_AREA  / SSC_FAC  + &\n                    DF_AREA_d(1)         + &\n                    DF_AREA_d(2)         + &\n                    DF_AREA_d(3)         + &\n                    DF_AREA_d(4)\n\n    ! tdf Total Dust Alkalinity\n    ALK = ALK_d(1) + ALK_d(2) + ALK_d(3) + ALK_d(4)  ! [v/v]\n\n    ! set humidity index IRH as a percent\n    IRH = State_Met%RH(I,J,L)\n    IRH = MAX(  1, IRH )\n    IRH = MIN( 99, IRH )\n\n    ! hygroscopic growth factor for dust: Set to NO GROWTH for now\n    IF ( IRH < 100 ) HGF = 1.0e+0_dp\n\n    ! tdf Loop over size bins (NDSTBIN = 4)\n    DO IBIN = 1, NDSTBIN\n\n       !----------------------------------\n       ! SO2 uptake onto particles\n       !----------------------------------\n\n       !tdf 2/11/2K9\n       !tdf Following relative uptake rates of Preszler-Prince et al.(2007)\n       IF ( IRH >= 90.0_dp ) THEN\n          GAMS = GAMMA_SO2 * 2.0_dp\n       ELSE IF ( IRH >= 84.0_dp ) THEN\n          GAMS = GAMMA_SO2                                                   &\n               * ( 0.5_dp  + 1.5_dp*(IRH - 84.0_dp)  / (90.0_dp - 84.0_dp)  )\n       ELSE IF ( IRH >= 76.0_dp ) THEN\n          GAMS = GAMMA_SO2                                                   &\n               * ( 0.16_dp + 0.34_dp*(IRH - 76.0_dp) / (84.0_dp - 76.0_dp)  )\n       ELSE IF ( IRH >= 33.0_dp ) THEN\n          GAMS = GAMMA_SO2                                                   &\n               * ( 0.03_dp + 0.13_dp*(IRH-33.e+0_dp) / (76.0_dp - 33.0_dp)  )\n       ELSE IF ( IRH >= 20.0_dp ) THEN\n          GAMS = GAMMA_SO2 * 0.03_dp\n       ELSE                                       ! 0.0 below 20%\n          GAMS = 0.0_dp\n       ENDIF\n\n       ! Check for sufficient alkalinity          tdf 3/28/2K8\n       IF ( ALK > MINDAT ) THEN\n\n          ! calculate gas-to-particle rate constant for uptake of\n          ! SO2 onto dust aerosols [Jacob, 2000] analytical solution\n          ! Corrected based on discussions with Becky     tdf 07/14/08\n          KT1    = 0.0_dp\n\n          IF (IBIN .EQ. 1) THEN\n\n             ! tdf Sum over the 1-4 sub-bins for bin 1      ! tdf 08/21/2K9\n             DO ISBIN = 1, 4\n                RD     = RD_sd1 (ISBIN)        ! effective radius [cm]\n                AREA   = AREA_sd1 (ISBIN)      ! Dust Surface Area [cm^2/cm^3]\n\n                ! Prevent divide by zero if GAMS = 0 (tdf, mps, 11/14/13)\n                IF ( GAMS > 0.0_dp ) THEN\n                   CONST1 = 4.0_dp/(V*GAMS)    ! Collision [s/cm]\n                   CONST2 = RD/DG              ! Diffusion [s/cm]\n                   CONST  = CONST1 + CONST2\n                   KT1    = KT1 + AREA / CONST ! [cm^2/cm^3] * [cm/s] = [1/s]\n                ELSE\n                   KT1    = KT1                ! [cm^2/cm^3] * [cm/s] = [1/s]\n                ENDIF\n             END DO\n\n          ELSE\n\n             RD     = RD_d (IBIN)              ! effective radius [cm]\n             AREA   = AREA_d (IBIN)            ! Dust Surface Area [cm^2/cm^3]\n\n             ! Prevent divide by zero if GAMS = 0 (tdf, mps, 11/14/13)\n             IF ( GAMS > 0.0_dp ) THEN\n                CONST1 = 4.0_dp/(V*GAMS)       ! Collision [s/cm]\n                CONST2 = RD/DG                 ! Diffusion [s/cm]\n                CONST  = CONST1 + CONST2\n                KT1    = AREA / CONST          ! [cm^2/cm^3] * [cm/s] = [1/s]\n             ELSE\n                KT1    = 0.0_dp                ! [cm^2/cm^3] * [cm/s] = [1/s]\n             ENDIF\n\n          ENDIF\n\n          KTS(IBIN) = KT1\n\n       ELSE\n\n          ! If no alkalinity, set rate coefficients to zero\n          !tdf\n          KTS(IBIN)  = 0.0_dp\n\n       ENDIF\n\n       !----------------------------------\n       ! HNO3 uptake onto particles\n       !----------------------------------\n\n       !tdf 2/11/2K9\n       !tdf Following uptake coefficients of Liu et al.(2007)\n       IF (IRH >= 80.0_dp ) THEN\n          GAMN = GAMMA_HNO3 * 2.1_dp\n       ELSE IF (IRH >= 70.0_dp ) THEN\n          GAMN = GAMMA_HNO3                                                  &\n               * ( 1.3_dp  + 0.7_dp   * (IRH - 70.0_dp) / 10.0_dp )\n       ELSE IF (IRH >= 60.0_dp ) THEN\n          GAMN = GAMMA_HNO3                                                  &\n               * ( 1.0_dp  + 0.3_dp   * (IRH - 60.0_dp) / 10.0_dp )\n       ELSE IF ( IRH >= 50.0_dp ) THEN\n          GAMN = GAMMA_HNO3                                                  &\n               * ( 0.7_dp  + 0.3_dp   * (IRH - 50.0_dp) / 10.0_dp )\n       ELSE IF ( IRH >= 30.0_dp ) THEN\n          GAMN = GAMMA_HNO3                                                  &\n               * ( 0.19_dp + 0.255_dp * (IRH - 30.0_dp) / 10.0_dp )\n       ELSE IF ( IRH >= 10.0_dp ) THEN\n          GAMN = GAMMA_HNO3                                                  &\n               * ( 0.03_dp + 0.08_dp  * (IRH - 10.0_dp) / 10.0_dp )\n       ELSE\n          ! 0.0 below 10%\n          GAMN = 0.0_dp\n       ENDIF\n\n       ! Check for sufficient alkalinity      tdf 3/28/2K8\n       IF ( ALK > MINDAT ) THEN\n\n          ! calculate gas-to-particle rate constant for uptake of\n          ! HNO3 onto dust aerosols [Jacob, 2000] analytical solution\n          ! Corrected based on discussions with Becky     tdf 07/14/08\n          KT1    = 0.0e+0_dp\n\n          IF (IBIN .EQ. 1) THEN\n\n             ! tdf Sum over the 1-4 sub-bins for bin 1      ! tdf 08/21/2K9\n             DO ISBIN = 1, 4\n                RD = RD_sd1 (ISBIN)            ! effective radius [cm]\n                AREA = AREA_sd1 (ISBIN)        ! Dust Surface Area [cm^2/cm^3]\n\n                ! Prevent divide by zero if GAMN = 0 (tdf, mps, 11/14/13)\n                IF ( GAMN > 0.0_dp ) THEN\n                   CONST1 = 4.0_dp/(V*GAMN)    ! Collision [s/cm]\n                   CONST2 = RD/DG              ! Diffusion [s/cm]\n                   CONST  = CONST1 + CONST2\n                   KT1    = KT1 + AREA / CONST ! [cm^2/cm^3] * [cm/s] = [1/s]\n                ELSE\n                   KT1    = KT1                ! [cm^2/cm^3] * [cm/s] = [1/s]\n                ENDIF\n             END DO\n\n          ELSE\n\n             RD     = RD_d (IBIN)              ! effective radius [cm]\n             AREA   = AREA_d (IBIN)            ! Dust Surface Area [cm^2/cm^3]\n\n             ! Prevent divide by zero if GAMN = 0 (tdf, mps, 11/14/13)\n             IF ( GAMN > 0.0_dp ) THEN\n                CONST1 = 4.0_dp/(V*GAMN)       ! Collision [s/cm]\n                CONST2 = RD/DG                 ! Diffusion [s/cm]\n                CONST  = CONST1 + CONST2\n                KT1    = AREA / CONST          ! [cm^2/cm^3] * [cm/s] = [1/s]\n             ELSE\n                KT1    = 0.0_dp               ! [cm^2/cm^3] * [cm/s] = [1/s]\n             ENDIF\n\n          ENDIF\n\n          KTN(IBIN) = KT1\n\n       ELSE\n\n          ! If no alkalinity, set rate coefficients to zero\n          !tdf\n          KTN(IBIN)  = 0.0_dp\n\n       ENDIF\n\n       !----------------------------------\n       ! H2SO4 uptake onto particles\n       !----------------------------------\n\n       ! Uptake not limited by dust alkalinity      tdf 3/02/2K9\n\n       !tdf As of 08/20/09, we use AREA and size weighted uptake\n       !tdf where now KTH is a fractional uptake for each size bin\n       !tdf with respect to total aerosol surface area.\n\n       KT1    = DF_AREA_d(IBIN) / DF_TOTAL_AREA   ! Fraction\n\n       KTH(IBIN) = KT1\n\n    END DO ! tdf End Loop over size bins\n\n    ! Free pointers\n    Spc     => NULL()\n    ERADIUS => NULL()\n    TAREA   => NULL()\n\n  END SUBROUTINE Get_Dust_Alk\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aciduptake_InitDustChem\n!\n! !DESCRIPTION: Defines species indices used for the dust acid uptake \n!  rate-law functions.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE aciduptake_InitDustChem( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Chm_Mod, ONLY : Ind_\n!\n! !INPUT/OUTPUT PARAMETERS: \n!\n    INTEGER, INTENT(INOUT) :: RC   ! Success or failure\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Initialize\n    RC        = GC_SUCCESS\n\n    ! Dust alkalinity species\n    id_DSTAL1 = Ind_( 'DSTAL1' )\n    id_DSTAL2 = Ind_( 'DSTAL2' )\n    id_DSTAL3 = Ind_( 'DSTAL3' )\n    id_DSTAL4 = Ind_( 'DSTAL4' )\n\n    ! Dust species\n    id_DST1   = Ind_( 'DST1'   )\n    id_DST2   = Ind_( 'DST2'   )    \n    id_DST3   = Ind_( 'DST3'   ) \n    id_DST4   = Ind_( 'DST4'   ) \n\n  END SUBROUTINE aciduptake_InitDustChem\n!EOC\nEND MODULE aciduptake_DustChemFuncs\n"
  },
  {
    "path": "KPP/build_mechanism.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !IROUTINE: build_mechanism.sh\n#\n# !DESCRIPTION: Runs KPP to create new chemical mechanism solver files\n#  (in Fortran-90 format) while preserving the heterogeneous chemistry file.\n#\n# !CALLING SEQUENCE:\n#  ./build_mechanism.sh fullchem   # builds mechanism in KPP/fullchem folder\n#  ./build_mechanism.sh Hg         # builds mechanism in KPP/Hg folder\n#  ./build_mechanism.sh custom     # builds mechanism in KPP/custom folder\n#\n# !AUTHOR:\n#  Melissa Sulprizio (mpayer@seas.harvard.edu) -- Initial version\n#  Bob Yantosca (yantosca@seas.harvard.edu) -- Updates for KPP 2.3.0_gc+\n#\n# !REMARKS:\n#  (1) Requires KPP version 2.3.0_gc or later.\n#\n#  (2) KPP may have issues parsing the RHS of an equation when it needs\n#      to be split up into more than one F90 line.  The quick solution\n#      is to keep the length of the RHS at about ~100 characters or less.\n#      https://github.com/geoschem/KPP/issues/1\n#\n# !REVISION HISTORY:\n#  See the subsequent Git history with the gitk browser!\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#============================================================================\n# Check that directory exists before proceeding\n#============================================================================\nif [ \"x${1}\" != \"x\" ]; then\n    mechDir=${1}\n    if [ ! -d \"$mechDir\" ]; then\n        echo \"ERROR: Mechanism directory ${mechDir} does not exist.\"\n        exit 1\n    fi\nelse\n    echo \"ERROR: You must pass the mechanism directory name as argument.\"\n    exit 1\nfi\n\n#============================================================================\n# Remove prior files that have been built with KPP\n# while leaving those files containing the chemistry mechanism specification\n#\n# NOTE: KPP-generated source code files for GEOS-Chem will have the\n# prefix \"gckpp\".  This is necessary because a consistent naming scheme\n# needs to used so that modules in GeosCore etc. can find KPP code.\n#============================================================================\ncd ${mechDir}\n\n# Find the mechanism name (which is at the top of the .eqn file)\nmechName=$(grep \".eqn\" *.eqn)\nmechName=\"${mechName/\\{ /}\"\nmechName=\"${mechName/\\.eqn/}\"\n\n# Exit if mechanism name isn't found\nif [[ \"x${mechName}\" == \"x\" ]]; then\n    echo \"Could not find the mechanism name in the ${mechanismDir}/*.eqn file\"\n    exit 1\nfi\n\n# Remove these files, which will be will be regnerated by KPP\nfilesToRemove=(                     \\\n    gckpp.map               \\\n    gckpp_Function.F90      \\\n    gckpp_Global.F90        \\\n    gckpp_Initialize.F90    \\\n    gckpp_Integrator.F90    \\\n    gckpp_Jacobian.F90      \\\n    gckpp_JacobianSP.F90    \\\n    gckpp_LinearAlgebra.F90 \\\n    gckpp_Model.F90         \\\n    gckpp_Monitor.F90       \\\n    gckpp_Parameters.F90    \\\n    gckpp_Precision.F90     \\\n    gckpp_Rates.F90         \\\n    gckpp_Util.F90          \\\n)\nfor f in ${filesToRemove[@]}; do \n    rm -f $f\ndone\n\n# Also remove any generated files\nrm -f *.o *.mod *.a\n\n#============================================================================\n# Build the mechanism!\n#============================================================================\nif [[ -f gckpp.kpp ]]; then\n    kpp gckpp.kpp\n    # on discover, use:\n    #/discover/nobackup/mslong1/KPP/KPP/bin/kpp gckpp.kpp\nelse\n    echo \"Could not find the 'gckpp.kpp' file... Aborting!\"\n    exit 1\nfi\n\n# Remove the GNU Makefile (not needed, since we use CMake)\n[[ -f Makefile_gckpp ]] && rm -f Makefile_gckpp\n\n# If the gckpp_Rates.F90 file is not found, there was an error\nif [[ ! -f gckpp_Rates.F90 ]]; then\n  echo \"KPP failed to build 'gckpp_Rates.F90'! Aborting.\"\n  exit 1\nfi\n\n#============================================================================\n# Strip unwanted characters in gckpp_Rates.F90\n# These seem to be created by KPP due to issues in breaking long lines\n# We might be able to get rid of this later on with thenew mechanism\n#\n# NOTE: This should be unnecessary if we apply the fix described at:\n# https://github.com/geoschem/KPP/issues/1\n#============================================================================\nline1=\"         write(6,'(a)') 'GCJPLEQ: Missing parameters for P-dependent reaction.'I2O3\"\nline2=\"         write(6,'(a)') 'GCJPLEQ: Missing parameters for P-dependent reaction.'\"\nsed -i -e \"s|${line1}|${line2}|\" gckpp_Rates.F90\n\n#============================================================================\n# Run python parser OHreactParser.py. This will create fortran code\n# for subroutine Get_OHreactivity and insert it into gckpp_Util.F90\n#\n# TODO: Port this to C and include within KPP\n#============================================================================\npython ../OHreact_parser.py ${mechName}\n\n#============================================================================\n# Change back to the prior directory and exit\n#============================================================================\ncd ..\nexit 0\n#EOC\n"
  },
  {
    "path": "KPP/carbon/CMakeLists.txt",
    "content": "# KPP/carbon/CMakeLists.txt\n\n#----------------------------------------------------------------------------\n# Determine the KPP integrator name and set corresponding variables\n# This is for informational purposes only.\n#----------------------------------------------------------------------------\n\n# Get integrator name\nEXECUTE_PROCESS(\n  COMMAND grep \\#INTEGRATOR ${CMAKE_CURRENT_SOURCE_DIR}/carbon.kpp\n  OUTPUT_VARIABLE RESULT\n)\nseparate_arguments(SUBSTRINGS UNIX_COMMAND \"${RESULT}\")\nlist(GET SUBSTRINGS 1 KPP_INTEGRATOR_NAME)\nstring(TOLOWER \"${KPP_INTEGRATOR_NAME}\" KPP_INTEGRATOR_NAME)\n\n# Print result\ngc_pretty_print(SECTION \"KPP integrator (read from carbon.kpp)\")\ngc_pretty_print(VARIABLE KPP_INTEGRATOR_NAME)\n\n#----------------------------------------------------------------------------\n# Add libKPPFirstPass.a -- carbon mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP_FirstPass\n  STATIC EXCLUDE_FROM_ALL\n  gckpp_Precision.F90\n  gckpp_Parameters.F90\n  gckpp_Monitor.F90\n)\n\n# Define dependencies for libKPP_FirstPass.a\ntarget_link_libraries(KPP_FirstPass\n  PUBLIC\n  GEOSChemBuildProperties\n)\n\n#----------------------------------------------------------------------------\n# Add libKPP.a -- carbon mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP\n  STATIC EXCLUDE_FROM_ALL\n  carbon_Funcs.F90\n  gckpp_Function.F90\n  gckpp_Global.F90\n  gckpp_Initialize.F90\n  gckpp_Integrator.F90\n  gckpp_Jacobian.F90\n  gckpp_LinearAlgebra.F90\n  gckpp_Model.F90\n  gckpp_Monitor.F90\n  gckpp_Parameters.F90\n  gckpp_Precision.F90\n  gckpp_Rates.F90\n  gckpp_Util.F90\n  rateLawUtilFuncs.F90\n  #\n  # Build these stub modules to avoid compilation errors.\n  # These are symbolic links to files in the ../stubs folder.\n  #\n  stub_aciduptake_DustChemFuncs.F90\n  stub_fullchem_AutoReduceFuncs.F90\n  stub_fullchem_HetStateFuncs.F90\n  stub_fullchem_SulfurChemFuncs.F90\n  stub_Hg_HetStateFuncs.F90\n)\n\n# Add dependencies\ntarget_link_libraries(KPP\n  PUBLIC\n  GeosUtil\n)\n\n# When building libKPP.a, treat REAL as if it were REAL*8\ntarget_compile_options(KPP\n  PRIVATE \"\"\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"Intel\">:-r8>\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"GNU\">:-fdefault-real-8 -fdefault-double-8>\n)\n"
  },
  {
    "path": "KPP/carbon/carbon.eqn",
    "content": "{ carbon.eqn\n===============================================================================\nDESCRIPTION\n===============================================================================\n\nGEOS-Chem KPP file containing species and equations for the carbon\nchemistry mechanism\n\n===============================================================================\nFILE HISTORY\n===============================================================================\n\nv14.1.0 (release TBD)\n---------------------\n(1) Initial version (MSL)\n\n}\n\n#include atoms.kpp     { Periodic table information               }\n\n#DEFVAR\nCH4         = IGNORE;  { Active methane species                   }\nCO          = IGNORE;  { Active carbon monoxide species           }\nCO2         = IGNORE;  { Active carbon dioxide species            }\nPCOfromCH4  = IGNORE;  { Tracks P(CO) from CH4   for diagnostics }\nPCOfromNMVOC= IGNORE;  { Tracks P(CO) from NMVOC for diagnostics }\nLCH4byOH    = IGNORE;  { Dummy spc to track loss of CH4 by OH     }\nLCH4byCl    = IGNORE;  { Dummy spc to track loss of CH4 by Cl     }\nLCH4inStrat = IGNORE;  { Dummy spc to track loss of CH4 in strat  }\nLCObyOH     = IGNORE;  { Dummy spc to track loss of CO  by OH     }\nLCOinStrat  = IGNORE;  { Dummy spc to track loss of CO  in strat  }\n\n#DEFFIX\nFixedOH       = IGNORE;  { Externally-supplied OH concentration     }\nFixedCl       = IGNORE;  { Externally-supplied Cl concentration     }\nDummyCH4trop  = IGNORE;  { Dummy placeholder for CH4   reactant     }\nDummyCH4strat = IGNORE;  { Dummy placeholder for CH4   reactant     }\nDummyNMVOC    = IGNORE;  { Dummy placeholder for NMVOC reactant     }\n\n#EQUATIONS\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%%  TROP CHEM   %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Rate [1/s] is from JPL 1997\nCH4 + FixedOH = LCH4byOH             : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\n//\n// Rate [1/s] is from Kirschke et al, 2013 (Nature Geosci.)\nCH4 + FixedCl = LCH4byCl             : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\n//\n// Rate k_Trop(1) [1/s] is set to HEMCO-supplied P(CO) from CH4\nDummyCH4trop  = CO    + PCOfromCH4   : k_Trop(1);\n//\n// Rate k_trop(2) [1/s] is the output of rate law function GC_OHCO\nCO  + FixedOH = LCObyOH              : k_Trop(2);\n//\n// DummyNMVOC is a placeholder species set to 1 molec/cm3.\n// This is a KPP \"trick\" in order to set the final CO concentration\n// to k_Trop(3) [molec/cm3/s] * dt [s], where dt is the chemistry\n// timestep.  k_Trop(3) contains externally-supplied P(CO) from NMVOC.\nDummyNMVOC    = CO    + PCOfromNMVOC : k_Trop(3);\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%%  STRAT CHEM  %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Rate k_Strat(1) [1/s] is set to HEMCO-supplied loss of CH4 by OH\nCH4           = LCH4inStrat          : k_Strat(1);\n//\n// DummyCH4 is a placeholder species set to 1 molec/cm3.\n// This is a KPP \"trick\" in order to set the final CO concentration\n// to k_Strat(2) [molec/cm3/s] * dt [s], where dt is the chemistry\n// timestep.  k_Strat(2) contains externally-supplied strat P(CO).\nDummyCH4strat = CO                   : k_Strat(2);\n//\n// Rate k_Strat(3) [1/s] is set to HEMCO-supplied stratospheric loss of CO\nCO            = LCOinStrat           : k_Strat(3);"
  },
  {
    "path": "KPP/carbon/carbon.eqn.default",
    "content": "{ carbon.eqn\n===============================================================================\nDESCRIPTION\n===============================================================================\n\nGEOS-Chem KPP file containing species and equations for the carbon\nchemistry mechanism\n\n===============================================================================\nFILE HISTORY\n===============================================================================\n\nv14.1.0 (release TBD)\n---------------------\n(1) Initial version (MSL)\n\n}\n\n#include atoms.kpp     { Periodic table information               }\n\n#DEFVAR\nCH4         = IGNORE;  { Active methane species                   }\nCO          = IGNORE;  { Active carbon monoxide species           }\nCO2         = IGNORE;  { Active carbon dioxide species            }\nPCOfromCH4  = IGNORE;  { Tracks P(CO) from CH4   for diagnostics }\nPCOfromNMVOC= IGNORE;  { Tracks P(CO) from NMVOC for diagnostics }\nLCH4byOH    = IGNORE;  { Dummy spc to track loss of CH4 by OH     }\nLCH4byCl    = IGNORE;  { Dummy spc to track loss of CH4 by Cl     }\nLCH4inStrat = IGNORE;  { Dummy spc to track loss of CH4 in strat  }\nLCObyOH     = IGNORE;  { Dummy spc to track loss of CO  by OH     }\nLCOinStrat  = IGNORE;  { Dummy spc to track loss of CO  in strat  }\n\n#DEFFIX\nFixedOH       = IGNORE;  { Externally-supplied OH concentration     }\nFixedCl       = IGNORE;  { Externally-supplied Cl concentration     }\nDummyCH4trop  = IGNORE;  { Dummy placeholder for CH4   reactant     }\nDummyCH4strat = IGNORE;  { Dummy placeholder for CH4   reactant     }\nDummyNMVOC    = IGNORE;  { Dummy placeholder for NMVOC reactant     }\n\n#EQUATIONS\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%%  TROP CHEM   %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Rate [1/s] is from JPL 1997\nCH4 + FixedOH = LCH4byOH             : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\n//\n// Rate [1/s] is from Kirschke et al, 2013 (Nature Geosci.)\nCH4 + FixedCl = LCH4byCl             : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\n//\n// Rate k_Trop(1) [1/s] is set to HEMCO-supplied P(CO) from CH4\nDummyCH4trop  = CO    + PCOfromCH4   : k_Trop(1);\n//\n// Rate k_trop(2) [1/s] is the output of rate law function GC_OHCO\nCO  + FixedOH = LCObyOH              : k_Trop(2);\n//\n// DummyNMVOC is a placeholder species set to 1 molec/cm3.\n// This is a KPP \"trick\" in order to set the final CO concentration\n// to k_Trop(3) [molec/cm3/s] * dt [s], where dt is the chemistry\n// timestep.  k_Trop(3) contains externally-supplied P(CO) from NMVOC.\nDummyNMVOC    = CO    + PCOfromNMVOC : k_Trop(3);\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%%  STRAT CHEM  %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Rate k_Strat(1) [1/s] is set to HEMCO-supplied loss of CH4 by OH\nCH4           = LCH4inStrat          : k_Strat(1);\n//\n// DummyCH4 is a placeholder species set to 1 molec/cm3.\n// This is a KPP \"trick\" in order to set the final CO concentration\n// to k_Strat(2) [molec/cm3/s] * dt [s], where dt is the chemistry\n// timestep.  k_Strat(2) contains externally-supplied strat P(CO).\nDummyCH4strat = CO                   : k_Strat(2);\n//\n// Rate k_Strat(3) [1/s] is set to HEMCO-supplied stratospheric loss of CO\nCO            = LCOinStrat           : k_Strat(3);"
  },
  {
    "path": "KPP/carbon/carbon.eqn.jacobian.5",
    "content": "{ carbon.eqn\n===============================================================================\nDESCRIPTION\n===============================================================================\n\nGEOS-Chem KPP file containing species and equations for the carbon\nchemistry mechanism with CH4 Jacobian tracers\n\n===============================================================================\nFILE HISTORY\n===============================================================================\n\nv14.1.0 (release TBD)\n---------------------\n(1) Initial version (MSL)\n\n}\n\n#include atoms.kpp     { Periodic table information               }\n\n#DEFVAR\nCH4                 = IGNORE;  { Active methane species                          }\nCH4_jac0001         = IGNORE;  { Active methane Jacobian tracer)                 }\nCH4_jac0002         = IGNORE;  { Active methane Jacobian tracer)                 }\nCH4_jac0003         = IGNORE;  { Active methane Jacobian tracer)                 }\nCH4_jac0004         = IGNORE;  { Active methane Jacobian tracer)                 }\nCH4_jac0005         = IGNORE;  { Active methane Jacobian tracer)                 }\nCO                  = IGNORE;  { Active carbon monoxide species                  }\nCO2                 = IGNORE;  { Active carbon dioxide species                   }\nPCOfromCH4          = IGNORE;  { Tracks P(CO) from CH4 for diagnostics           }\nPCOfromNMVOC        = IGNORE;  { Tracks P(CO) from NMVOC for diagnostics         }\nLCH4byOH            = IGNORE;  { Dummy spc to track loss of CH4 by OH            }\nLCH4byOH_jac0001    = IGNORE;  { Dummy spc to track loss of CH4_jac0001 by OH    }\nLCH4byOH_jac0002    = IGNORE;  { Dummy spc to track loss of CH4_jac0002 by OH    }\nLCH4byOH_jac0003    = IGNORE;  { Dummy spc to track loss of CH4_jac0003 by OH    }\nLCH4byOH_jac0004    = IGNORE;  { Dummy spc to track loss of CH4_jac0004 by OH    }\nLCH4byOH_jac0005    = IGNORE;  { Dummy spc to track loss of CH4_jac0005 by OH    }\nLCH4byCl            = IGNORE;  { Dummy spc to track loss of CH4 by Cl            }\nLCH4byCl_jac0001    = IGNORE;  { Dummy spc to track loss of CH4_jac0001 by Cl    }\nLCH4byCl_jac0002    = IGNORE;  { Dummy spc to track loss of CH4_jac0002 by Cl    }\nLCH4byCl_jac0003    = IGNORE;  { Dummy spc to track loss of CH4_jac0003 by Cl    }\nLCH4byCl_jac0004    = IGNORE;  { Dummy spc to track loss of CH4_jac0004 by Cl    }\nLCH4byCl_jac0005    = IGNORE;  { Dummy spc to track loss of CH4_jac0005 by Cl    }\nLCH4inStrat         = IGNORE;  { Dummy spc to track loss of CH4 in strat         }\nLCH4inStrat_jac0001 = IGNORE;  { Dummy spc to track loss of CH4_jac0001 in strat }\nLCH4inStrat_jac0002 = IGNORE;  { Dummy spc to track loss of CH4_jac0002 in strat }\nLCH4inStrat_jac0003 = IGNORE;  { Dummy spc to track loss of CH4_jac0003 in strat }\nLCH4inStrat_jac0004 = IGNORE;  { Dummy spc to track loss of CH4_jac0004 in strat }\nLCH4inStrat_jac0005 = IGNORE;  { Dummy spc to track loss of CH4_jac0005 in strat }\nLCObyOH             = IGNORE;  { Dummy spc to track loss of CO by OH             }\nLCOinStrat          = IGNORE;  { Dummy spc to track loss of CO in strat          }\n\n#DEFFIX\nFixedOH               = IGNORE;  { Externally-supplied OH concentration       }\nFixedCl               = IGNORE;  { Externally-supplied Cl concentration       }\nDummyCH4trop          = IGNORE;  { Dummy placeholder for CH4 reactant         }\nDummyCH4strat         = IGNORE;  { Dummy placeholder for CH4 reactant         }\nDummyNMVOC            = IGNORE;  { Dummy placeholder for NMVOC reactant       }\n\n#EQUATIONS\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%%  TROP CHEM   %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Rate [1/s] is from JPL 1997\nCH4         + FixedOH = LCH4byOH           : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\nCH4_jac0001 + FixedOH = LCH4byOH_jac0001   : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\nCH4_jac0002 + FixedOH = LCH4byOH_jac0002   : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\nCH4_jac0003 + FixedOH = LCH4byOH_jac0003   : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\nCH4_jac0004 + FixedOH = LCH4byOH_jac0004   : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\nCH4_jac0005 + FixedOH = LCH4byOH_jac0005   : 2.45d-12*EXP(-1775.0d0/TEMP)*TROP;\n//\n// Rate [1/s] is from Kirschke et al, 2013 (Nature Geosci.)\nCH4         + FixedCl = LCH4byCl           : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\nCH4_jac0001 + FixedCl = LCH4byCl_jac0001   : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\nCH4_jac0002 + FixedCl = LCH4byCl_jac0002   : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\nCH4_jac0003 + FixedCl = LCH4byCl_jac0003   : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\nCH4_jac0004 + FixedCl = LCH4byCl_jac0004   : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\nCH4_jac0005 + FixedCl = LCH4byCl_jac0005   : 9.60d-12*EXP(-1360.0d0/TEMP)*TROP;\n//\n// Rate k_Trop(1) [1/s] is set to HEMCO-supplied P(CO) from CH4\nDummyCH4trop         = CO + PCOfromCH4         : k_Trop(1);\n//\n// Rate k_trop(2) [1/s] is the output of rate law function GC_OHCO\nCO + FixedOH         = LCObyOH                 : k_Trop(2);\n//\n// DummyNMVOC is a placeholder species set to 1 molec/cm3.\n// This is a KPP \"trick\" in order to set the final CO concentration\n// to k_Trop(3) [molec/cm3/s] * dt [s], where dt is the chemistry\n// timestep.  k_Trop(3) contains externally-supplied P(CO) from NMVOC.\nDummyNMVOC           = CO + PCOfromNMVOC       : k_Trop(3);\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%%  STRAT CHEM  %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Rate k_Strat(1) [1/s] is set to HEMCO-supplied loss of CH4 by OH\nCH4         = LCH4inStrat          : k_Strat(1);\nCH4_jac0001 = LCH4inStrat_jac0001  : k_Strat(1);\nCH4_jac0002 = LCH4inStrat_jac0002  : k_Strat(1);\nCH4_jac0003 = LCH4inStrat_jac0003  : k_Strat(1);\nCH4_jac0004 = LCH4inStrat_jac0004  : k_Strat(1);\nCH4_jac0005 = LCH4inStrat_jac0005  : k_Strat(1);\n//\n// DummyCH4 is a placeholder species set to 1 molec/cm3.\n// This is a KPP \"trick\" in order to set the final CO concentration\n// to k_Strat(2) [molec/cm3/s] * dt [s], where dt is the chemistry\n// timestep.  k_Strat(2) contains externally-supplied strat P(CO).\nDummyCH4strat         = CO         : k_Strat(2);\n//\n// Rate k_Strat(3) [1/s] is set to HEMCO-supplied stratospheric loss of CO\nCO                    = LCOinStrat : k_Strat(3);"
  },
  {
    "path": "KPP/carbon/carbon.kpp",
    "content": "#MINVERSION   3.2.0       { Need this version of KPP or later            }\n#INTEGRATOR   feuler      { Use Forward Euler integration method         }\n#LANGUAGE     Fortran90   { Generate solver code in Fortran90 ...        }\n#UPPERCASEF90 on          { ... with .F90 suffix (instead of .f90)       }\n#DRIVER       none        { Do not create gckpp_Main.F90                 }\n#HESSIAN      off         { Do not create the Hessian matrix             }\n#MEX          off         { MEX is for Matlab, so skip it                }\n#STOICMAT     off         { Do not create stoichiometric matrix          }\n\n#INCLUDE carbon.eqn       { Chemical reactions for carbon mechanism      }\n\n#FAMILIES                 { Chemical families for prod/loss diagnostic   }\nPCO : CO;\nLCO : CO;\nLCH4 : CH4;\n\n#INLINE F90_GLOBAL\n! Inline common variables into gckpp_Global.F90\n#include \"commonIncludeVars.H\"\n#ENDINLINE\n"
  },
  {
    "path": "KPP/carbon/carbon_Funcs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: carbon_Funcs\n!\n! !DESCRIPTION: Module containing routines for passing data from GEOS-Chem\n!  to the carbon chemical mechanism solver code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE carbon_Funcs\n!\n! !USES:\n!\n  USE gckpp_Precision\n  USE gckpp_Parameters\n  USE gckpp_Global\n  USE Precision_Mod,   ONLY : fp\n  USE rateLawUtilFuncs\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: carbon_ConvertKgToMolecCm3\n  PUBLIC :: carbon_ComputeRateConstants\n  PUBLIC :: carbon_ConvertMolecCm3ToKg\n  PUBLIC :: carbon_InitCarbonKPPFuncs\n  PUBLIC :: carbon_CleanupCarbonKPPFuncs\n  PUBLIC :: carbon_Get_COfromCH4_Flux\n  PUBLIC :: carbon_Get_COfromNMVOC_Flux\n  PUBLIC :: GC_OHCO\n!\n! !PUBLIC TYPES:\n!\n  ! Species ID flags\n  INTEGER  :: id_CH4\n  INTEGER  :: id_CO\n  INTEGER  :: id_CO2\n\n#ifdef JACOBIAN\n  ! Jacobian CH4 tracers\n  INTEGER              :: numJacobianTracers\n  INTEGER, ALLOCATABLE :: JacobianIDs(:)\n#endif\n\n  ! Kg species / molec species\n  REAL(fp) :: xnumol_CH4\n  REAL(fp) :: xnumol_CO\n  REAL(fp) :: xnumol_CO2\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_ConvertKgToMolecCm3\n!\n! !DESCRIPTION: Converts species from kg to molec/cm3 and stores into\n!  the \"C\" concentration array used by the KPP-generated solver code.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_ConvertKgToMolecCm3( I, J, L, State_Chm, State_Met )\n!\n! !USES:\n!\n    USE Species_Mod,   ONLY : SpcConc\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: I, J, L     ! Grid box indices\n    TYPE(ChmState), INTENT(IN) :: State_Chm   ! Chemistry State object\n    TYPE(MetState), INTENT(IN) :: State_Met   ! Meterorology State object\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N\n    REAL(fp)               :: airvol_cm3\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !========================================================================\n    ! carbon_ConvertKgToMolecCm3 begins here!\n    !========================================================================\n\n    ! Point to species array\n    Spc => State_Chm%Species\n\n    ! Grid box volume [cm3]\n    airvol_cm3 = State_Met%AIRVOL(I,J,L) * 1.0e+6_fp\n\n    ! Convert species kg to molec/cm3 and store in the C array\n    ! (skip if species are not present)\n    IF ( id_CH4 > 0 ) THEN\n       C(ind_CH4) = Spc(id_CH4)%Conc(I,J,L) * xnumol_CH4 / airvol_cm3\n    ENDIF\n\n    IF ( id_CO > 0 ) THEN\n       C(ind_CO)  = Spc(id_CO)%Conc(I,J,L)  * xnumol_CO  / airvol_cm3\n    ENDIF\n\n    ! Comment out for now - CO2 chemistry is done explicitly in\n    ! carbon_gases_mod.F90\n    !IF ( id_CO2 > 0 ) THEN\n    !   C(ind_CO2) = Spc(id_CO2)%Conc(I,J,L) * xnumol_CO2 / airvol_cm3\n    !ENDIF\n\n#ifdef JACOBIAN\n    ! Do the same for Jacobian CH4 tracers, if any\n    IF ( numJacobianTracers > 0 ) THEN\n       DO N = 1, numJacobianTracers\n          C(JacobianIDs(N)) = Spc(JacobianIDs(N))%Conc(I,J,L) * xnumol_CH4 / airvol_cm3\n       ENDDO\n    ENDIF\n#endif\n\n    ! Initialize placeholder species to 1 molec/cm3\n    C(ind_DummyCH4trop)  = 1.0_dp\n    C(ind_DummyCH4strat) = 1.0_dp\n    C(ind_DummyNMVOC)    = 1.0_dp\n\n    ! Initialize fixed species to 1 molec/cm3\n    ! These will later be set to values read via HEMCO\n    C(ind_FixedCl) = 1.0_dp\n    C(ind_FixedOH) = 1.0_dp\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE carbon_ConvertKgToMolecCm3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_ComputeRateConstants\n!\n! !DESCRIPTION: Computes the rate constants used in the carbon chemical\n!  mechanism.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_ComputeRateConstants(                                    &\n             I,             J,                 L,                            &\n             ConcClMnd,     ConcOHMnd,         LCH4_in_Strat,                &\n             LCO_in_Strat,  OHdiurnalFac,      PCO_fr_CH4_use,               &\n             PCO_fr_CH4,    PCO_fr_NMVOC_use,  PCO_fr_NMVOC,                 &\n             PCO_in_Strat,  dtChem,            State_Chm,                    &\n             State_Met                                                      )\n!\n! !USES:\n!\n    USE PhysConstants, ONLY : AVO, AIRMW\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN) :: I, J, L\n    REAL(fp),       INTENT(IN) :: ConcClMnd       ! Cl conc [molec/cm3]\n    REAL(fp),       INTENT(IN) :: ConcOHmnd       ! OH conc [molec/cm3]\n    REAL(fp),       INTENT(IN) :: LCH4_in_Strat   ! Strat L(CH4) [1/s]\n    REAL(fp),       INTENT(IN) :: LCO_in_Strat    ! Strat L(CO) [molec/cm3/s]\n    REAL(fp),       INTENT(IN) :: OHdiurnalFac    ! OH diurnal scale factor [1]\n    LOGICAL,        INTENT(IN) :: PCO_fr_CH4_use  ! Use P(CO) fr CH4? [T/F]\n    REAL(fp),       INTENT(IN) :: PCO_fr_CH4      ! P(CO) fr CH4 [molec/cm3/s]\n    LOGICAL,        INTENT(IN) :: PCO_fr_NMVOC_use! Use P(CO) from NMVOC [T/F]\n    REAL(fp),       INTENT(IN) :: PCO_fr_NMVOC    ! P(CO) fr NMVOC [molec/cm3/s]\n    REAL(fp),       INTENT(IN) :: PCO_in_Strat    ! Strat P(CO) [molec/cm3/s]\n    REAL(fp),       INTENT(IN) :: dtChem          ! Chemistry timestep [s]\n    TYPE(ChmState), INTENT(IN) :: State_Chm       ! Chemistry State object\n    TYPE(MetState), INTENT(IN) :: State_Met       ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !========================================================================\n    ! carbon_ComputeRateConstants begins here!\n    !========================================================================\n\n    ! Initialize\n    k_Strat = 0.0_dp\n    k_Trop  = 0.0_dp\n    trop    = 0.0_dp\n\n    IF ( State_Met%InTroposphere(I,J,L) ) THEN\n\n       !=====================================================================\n       ! Grid box (I,J.L) is in the troposphere\n       !=====================================================================\n\n       ! Set toggle that we are in the troposphere\n       ! (used for CH4 + FixedCl = Dummy reaction)\n       trop = 1.0_dp\n\n       !%%% TAGGED SPECIES HANDLING -- comment out for now\n       !%%% State_Chm%SpcData(16)%Info%MW_g * 1.0e-3_fp ! kg/mol\n\n       ! OH and Cl concentrations [molec/cm3]\n       C(ind_FixedOH) = ConcOHmnd\n       C(ind_FixedCl) = ConcClMnd\n\n       !---------------------------------------------------------------------\n       ! k_Trop(1): Rate [1/s] for rxn for DummyCH4trop -> CO + PCOfromCH4\n       !---------------------------------------------------------------------\n       IF ( PCO_fr_CH4_use ) THEN\n          k_Trop(1) = PCO_fr_CH4     * OHdiurnalFac\n       ENDIF\n\n       !---------------------------------------------------------------------\n       ! k_Trop(2): Rate [1/s] for CO + FixedOH = LCObyOH\n       !---------------------------------------------------------------------\n       k_Trop(2) = GC_OHCO()\n\n       !---------------------------------------------------------------------\n       ! k_Trop(3): Rate [molec/cm3/s] for FixedNMVOC   = CO  + PCOfromNMVOC\n       !---------------------------------------------------------------------\n       IF ( PCO_fr_NMVOC_use ) THEN\n          k_Trop(3) = PCO_fr_NMVOC * OHdiurnalFac\n       ENDIF\n\n    ELSE\n\n       !=====================================================================\n       ! Grid box (I,J.L) is in the stratosphere\n       !=====================================================================\n\n       !---------------------------------------------------------------------\n       ! k_Strat(1): Loss rate [1/s] for CH4 -> LCH4inStrat\n       ! k_Strat(3): Loss rate [1/s] for CO  -> LCOinStrat\n       !---------------------------------------------------------------------\n       k_Strat(1) = LCH4_in_Strat\n       k_Strat(3) = LCO_in_Strat\n\n       !---------------------------------------------------------------------\n       ! k_Strat(2): Loss rate [molec/cm3/s] for DummyCH4strat -> CO\n       !\n       ! NOTE: This reaction rate is in molec/cm3/s instead of 1/s because\n       ! of the way the reaction is written.  DummyCH4strat is a \"dummy\"\n       ! species that is set to 1, so the result of the integration (using\n       ! the forward Euler scheme) is\n       !\n       ! CO = k_Strat(2)  * dummyCH4strat * DT\n       !    = molec/cm3/s * 1     * s\n       !    = molec/cm3\n       !\n       ! NOTE: PCO_in_Strat is in [v/v/s]; convert to [molec/cm3] below\n       !---------------------------------------------------------------------\n       k_Strat(2) = PCO_in_Strat                                             &\n                  * AVO                                                      &\n                  / ( AIRMW * 1.0e-3_dp )                                    &\n                  * State_Met%AirDen(I,J,L)                                  &\n                  * 1.0e-6_dp\n    ENDIF\n\n  END SUBROUTINE carbon_ComputeRateConstants\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_ConvertMolecCm3ToKg\n!\n! !DESCRIPTION: Converts species concentrations (after chemistry) from kg to\n!  molec/cm3 and stores into the State_Chm%Species concentration array.\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_ConvertMolecCm3ToKg( I, J, L, State_Chm, State_Met )\n!\n! !USES:\n!\n    USE Species_Mod,   ONLY : SpcConc\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box indices\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meterorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm    ! Chemistry State object\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: N\n    REAL(fp)               :: airvol_cm3, convfac_CO\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n\n    !========================================================================\n    ! carbon__ConvertMolecCm3ToKg begins here!\n    !========================================================================\n\n    ! Point to species array\n    Spc => State_Chm%Species\n\n    ! Grid box volume [cm3]\n    airvol_cm3  = State_Met%AIRVOL(I,J,L) * 1.0e+6_fp\n\n    ! Send species from molec/cm3 to kg\n    IF ( id_CH4 > 0 ) THEN\n       Spc(id_CH4)%Conc(I,J,L) = C(ind_CH4) * airvol_cm3 / xnumol_CH4\n    ENDIF\n\n    IF ( id_CO > 0 ) THEN\n       convfac_CO             = airvol_cm3 / xnumol_CO\n       Spc(id_CO)%Conc(I,J,L) = C(ind_CO)  * convfac_CO\n    ENDIF\n\n    ! Comment out for now - CO2 chemistry is done explicitly in\n    ! carbon_gases_mod.F90\n    !IF ( id_CO2 > 0 ) THEN\n    !   Spc(id_CO2)%Conc(I,J,L) = C(ind_CO2) * airvol_cm3 / xnumol_CO2\n    !ENDIF\n\n#ifdef JACOBIAN\n    ! Do the same for Jacobian CH4 tracers, if any\n    IF ( numJacobianTracers > 0 ) THEN\n       DO N = 1, numJacobianTracers\n          Spc(JacobianIDs(N))%Conc(I,J,L) = C(JacobianIDs(N)) * airvol_cm3 / xnumol_CH4\n       ENDDO\n    ENDIF\n#endif\n\n    ! Free pointer\n    Spc => NULL()\n\n  END SUBROUTINE carbon_ConvertMolecCm3ToKg\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_get_co_ch4_flux\n!\n! !DESCRIPTION: Returns the flux of CO_CH4 in molec/cm3/s for diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION carbon_Get_COfromCH4_Flux( dtChem ) RESULT ( flux )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(dp), INTENT(IN) :: dtChem       ! Chemistry timestep [s]\n!\n! !RETURN VALUE:\n!\n    REAL(dp)             :: flux         ! CO_CH4 flux [molec/cm3/s]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    flux = C(ind_PCOfromCH4) / dtChem     ! molec/cm3 --> molec/cm3/s\n\n  END FUNCTION carbon_Get_COfromCH4_Flux\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_get_cofromnmvoc_flux\n!\n! !DESCRIPTION: Returns the flux of CO_NMVOC in molec/cm3/s for diagnostics.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION carbon_Get_COfromNMVOC_Flux( dtChem ) RESULT ( flux )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(dp), INTENT(IN) :: dtChem       ! Chemistry timestep [s]\n!\n! !RETURN VALUE:\n!\n    REAL(dp)             :: flux         ! CO_NMVOC flux [molec/cm3/s]\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    flux = C(ind_PCOfromNMVOC) / dtChem   ! molec/cm3 --> molec/cm3/s\n\n  END FUNCTION carbon_Get_COfromNMVOC_Flux\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GC_OHCO\n!\n! !DESCRIPTION: Returns the rate of tropospheric loss of CO due to chemical reaction with OH\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GC_OHCO() RESULT( k )\n\n!\n! !REMARKS:\n! Tropospheric loss of CO due to chemical rxn w/ OH\n!\n!  DECAY RATE\n!  The decay rate (KRATE) is calculated by:\n!\n!     OH + CO -> products (JPL 15-10)\n!     k = (1 + 0.6Patm) * 1.5E-13\n!\n!  KRATE has units of [ molec^2 CO / cm6 / s ]^-1,\n!  since this is a 2-body reaction.\n!\n! From JPL 2006: \"The  reaction between HO and CO to yield\n! H + CO2 akes place on a potential energy surface that\n! contains the radical HOCO.  The yield of H and CO2 is\n! diminished as the pressure rises.  The loss of reactants\n! is thus the sum of two processes, an association to yield\n! HOCO and the chemical activation process yielding H and\n! CO2.\" So we now need two complicated reactions.\n!\n! GY( A0 = 5.9e-33, B0 = 1.,     A1 = 1.1e-12, B1 = -1.3e0,\n!     A2 = 1.5e-13, B2 = 0.,     A3 = 2.1e09,  B3 = -6.1e0 )\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    REAL(dp) :: klo1,   klo2,   khi1,  khi2\n    REAL(dp) :: xyrat1, xyrat2, blog1, blog2,   fexp1\n    REAL(dp) :: fexp2,  kco1,   kco2,  TEMP300, k\n    !\n    klo1   = 5.9E-33_dp * K300_OVER_TEMP\n    khi1   = 1.1E-12_dp * K300_OVER_TEMP**(-1.3_dp)\n    xyrat1 = klo1 * NUMDEN / khi1\n    blog1  = LOG10( xyrat1 )\n    fexp1  = 1.0_dp / ( 1.0_dp + blog1*blog1 )\n    kco1   = klo1 * NUMDEN * 0.6_dp**fexp1 / ( 1.0_dp + xyrat1 )\n\n    klo2   = 1.5E-13_dp\n    khi2   = 2.1E+09_dp * K300_OVER_TEMP**(-6.1_dp)\n    xyrat2 = klo2 * NUMDEN / khi2\n    blog2  = LOG10( xyrat2 )\n    fexp2  = 1.0_dp / ( 1.0_dp + blog2*blog2 )\n    kco2   = klo2 * 0.6_dp**fexp2 / ( 1.0_dp + xyrat2 )\n    k      = kco1 + kco2\n\n  END FUNCTION GC_OHCO\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_InitCarbonKPPFuncs\n!\n! !DESCRIPTION: Stores species indices and kg/molecule in module variables\n!  for fast lookup.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_InitCarbonKPPFuncs( kgmolec_CH4, kgmolec_CO, kgmolec_CO2, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Chm_Mod,  ONLY : Ind_\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN)  :: kgmolec_CH4   ! kg CH4 / molec CH4\n    REAL(fp), INTENT(IN)  :: kgmolec_CO    ! kg CO  / molec CO\n    REAL(fp), INTENT(IN)  :: kgmolec_CO2   ! kg CO2 / molec CO2\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,  INTENT(OUT) :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc, spcName\n    CHARACTER(LEN=4)   :: N_char\n\n    !=================================================================\n    ! carbon_InitCarbonKPPFuncs begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n       ' -> at carbon_InitCarbonKPPFuncs (in KPP/carbon/carbon_InitCarbonKPPFuncs.F90'\n\n#ifdef JACOBIAN\n    ! Get number of Jacobian tracers, if any\n    numJacobianTracers = 0\n    DO N = 1, 999 ! Set max to very high number < 1000\n       write( N_char, '(I4.4)' ) N\n       spcName = 'CH4_jac' // TRIM(N_char)\n       IF ( Ind_(TRIM(spcName)) > 0 ) THEN\n          numJacobianTracers = N\n       ELSE\n          EXIT\n       ENDIF\n    ENDDO\n\n    ! Allocate Jacobian tracer mapping array and assign ids\n    IF ( numJacobianTracers > 0 ) THEN\n       ALLOCATE( JacobianIDs(numJacobianTracers), STAT=RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          errMsg = 'Error allocating Jacobian tracer ID mapping array!'\n          CALL GC_Error( errMsg, RC, thisLoc )\n       ENDIF\n       DO N = 1, numJacobianTracers\n          write( N_char, '(I4.4)' ) N\n          spcName = 'CH4_jac' // TRIM(N_char)\n          JacobianIDs(N) = Ind_(TRIM(spcName))\n       ENDDO\n    ENDIF\n#endif\n\n    ! Define flags for species ID's\n    id_CH4      = Ind_('CH4')\n    id_CO       = Ind_('CO' ) \n    id_CO2      = Ind_('CO2')\n\n    ! Set kg species / molec species\n    xnumol_CH4  = kgmolec_CH4\n    xnumol_CO   = kgmolec_CO\n    xnumol_CO2  = kgmolec_CO2\n\n  END SUBROUTINE carbon_InitCarbonKPPFuncs\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: carbon_CleanupCarbonKPPFuncs\n!\n! !DESCRIPTION: Deallocates module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE carbon_CleanupCarbonKPPFuncs( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,  INTENT(OUT) :: RC            ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! carbon_CleanupCarbonKPPFuncs begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n\n#ifdef JACOBIAN\n    IF ( ALLOCATED( JacobianIDs ) ) THEN\n       DEALLOCATE( JacobianIDs, STAT=RC )\n       CALL GC_CheckVar( 'carbon_Funcs.F90:JacobianIDs', 1, RC )\n    ENDIF\n#endif\n\n  END SUBROUTINE carbon_CleanupCarbonKPPFuncs\n!EOC\nEND MODULE carbon_Funcs\n"
  },
  {
    "path": "KPP/carbon/gckpp_Function.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The ODE Function of Chemical Model File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Function.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Function\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\n! A - Rate for each equation\n  REAL(kind=dp) :: A(NREACT)\n  !$OMP THREADPRIVATE(  A )\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Fun - time derivatives of variables - Aggregate form\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      Vdot      - Time derivative of variable species concentrations\n!      Aout      - Optional argument to return equation rate constants\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun ( V, F, RCT, Vdot, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! Vdot - Time derivative of variable species concentrations\n  REAL(kind=dp) :: Vdot(NVAR)\n! Aout - Optional argument to return equation rate constants\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(1)*F(1)\n  A(2) = RCT(2)*V(1)*F(2)\n  A(3) = RCT(3)*F(3)\n  A(4) = RCT(4)*V(2)*F(1)\n  A(5) = RCT(5)*F(5)\n  A(6) = RCT(6)*V(1)\n  A(7) = RCT(7)*F(4)\n  A(8) = RCT(8)*V(2)\n\n  !### Use Aout to return equation rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n! Aggregate function\n  Vdot(1) = -A(1)-A(2)-A(6)\n  Vdot(2) = A(3)-A(4)+A(5)+A(7)-A(8)\n  Vdot(3) = A(3)\n  Vdot(4) = A(5)\n  Vdot(5) = A(1)\n  Vdot(6) = A(2)\n  Vdot(7) = A(6)\n  Vdot(8) = A(4)\n  Vdot(9) = A(8)\n  Vdot(10) = A(3)+A(5)+A(7)\n  Vdot(11) = A(4)+A(8)\n  Vdot(12) = A(1)+A(2)+A(6)\n      \nEND SUBROUTINE Fun\n\n! End of Fun function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Fun_SPLIT - time derivatives of variables - Split form\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      Vdot      - Time derivative of variable species concentrations\n!      P_VAR     - Production term\n!      D_VAR     - Destruction term\n!      Aout      - Optional argument to return equation rate constants\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! Vdot - Time derivative of variable species concentrations\n  REAL(kind=dp) :: Vdot(NVAR)\n! P_VAR - Production term\n  REAL(kind=dp) :: P_VAR(NVAR)\n! D_VAR - Destruction term\n  REAL(kind=dp) :: D_VAR(NVAR)\n! Aout - Optional argument to return equation rate constants\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(1)*F(1)\n  A(2) = RCT(2)*V(1)*F(2)\n  A(3) = RCT(3)*F(3)\n  A(4) = RCT(4)*V(2)*F(1)\n  A(5) = RCT(5)*F(5)\n  A(6) = RCT(6)*V(1)\n  A(7) = RCT(7)*F(4)\n  A(8) = RCT(8)*V(2)\n\n  !### Use Aout to return equation rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n! Production function\n  P_VAR(1) = 0\n  P_VAR(2) = A(3)+A(5)+A(7)\n  P_VAR(3) = A(3)\n  P_VAR(4) = A(5)\n  P_VAR(5) = A(1)\n  P_VAR(6) = A(2)\n  P_VAR(7) = A(6)\n  P_VAR(8) = A(4)\n  P_VAR(9) = A(8)\n  P_VAR(10) = A(3)+A(5)+A(7)\n  P_VAR(11) = A(4)+A(8)\n  P_VAR(12) = A(1)+A(2)+A(6)\n\n! Destruction function\n  D_VAR(1) = RCT(1)*F(1)+RCT(2)*F(2)+RCT(6)\n  D_VAR(2) = RCT(4)*F(1)+RCT(8)\n  D_VAR(3) = 0\n  D_VAR(4) = 0\n  D_VAR(5) = 0\n  D_VAR(6) = 0\n  D_VAR(7) = 0\n  D_VAR(8) = 0\n  D_VAR(9) = 0\n  D_VAR(10) = 0\n  D_VAR(11) = 0\n  D_VAR(12) = 0\n\n  Vdot = P_VAR - D_VAR*V\n      \nEND SUBROUTINE Fun_SPLIT\n\n! End of Fun_SPLIT function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! CalcStoichNum - calculate stoichiometric numbers\n!   Arguments :\n!      StoichNum - Stoichiometric numbers\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE CalcStoichNum ( StoichNum )\n\n! StoichNum - Stoichiometric numbers\n  REAL(kind=dp) :: StoichNum(NVAR,NREACT)\n\n  StoichNum(:,:) = 0.\n  StoichNum(1,1) = -1\n  StoichNum(1,2) = -1\n  StoichNum(1,6) = -1\n  StoichNum(2,3) = 1\n  StoichNum(2,4) = -1\n  StoichNum(2,5) = 1\n  StoichNum(2,7) = 1\n  StoichNum(2,8) = -1\n  StoichNum(3,3) = 1\n  StoichNum(4,5) = 1\n  StoichNum(5,1) = 1\n  StoichNum(6,2) = 1\n  StoichNum(7,6) = 1\n  StoichNum(8,4) = 1\n  StoichNum(9,8) = 1\n  StoichNum(10,3) = 1\n  StoichNum(10,5) = 1\n  StoichNum(10,7) = 1\n  StoichNum(11,4) = 1\n  StoichNum(11,8) = 1\n  StoichNum(12,1) = 1\n  StoichNum(12,2) = 1\n  StoichNum(12,6) = 1\n      \nEND SUBROUTINE CalcStoichNum\n\n! End of CalcStoichNum function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Function\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Global.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Global Data Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Global.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Global\n\n  USE gckpp_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO\n  PUBLIC\n  SAVE\n\n\n! Declaration of global variables\n\n! ~~~ If you are using KPP within an OpenMP parallel environment,\n! ~~~ then these variables must be declared THREADPRIVATE.  This means\n! ~~~ that the compiler will make a private copy of these variables\n! ~~~ (in stack memory) for each execution thread.  At the end of\n! ~~~ the OpenMP parallel loop, these variables will be finalized,\n! ~~~ and their memory deallocated.\n! ~~~\n! ~~~ NOTE: Because the OpenMP commands all begin with a comment\n! ~~~ character, they will be ignored unless the code is compiled\n! ~~~ with OpenMP parallelization turned on.\n\n! C - Concentration of all species\n  REAL(kind=dp), TARGET :: C(NSPEC)\n  !$OMP THREADPRIVATE( C )\n! VAR - Concentrations of variable species (global)\n  REAL(kind=dp), POINTER :: VAR(:)\n  !$OMP THREADPRIVATE( VAR )\n! FIX - Concentrations of fixed species (global)\n  REAL(kind=dp), POINTER :: FIX(:)\n  !$OMP THREADPRIVATE( FIX )\n! RCONST - Rate constants (global)\n  REAL(kind=dp) :: RCONST(NREACT)\n  !$OMP THREADPRIVATE( RCONST )\n! TIME - Current integration time\n  REAL(kind=dp) :: TIME\n  !$OMP THREADPRIVATE( TIME )\n! SUN - Sunlight intensity between [0,1]\n  REAL(kind=dp) :: SUN\n  !$OMP THREADPRIVATE( SUN )\n! TEMP - Temperature\n  REAL(kind=dp) :: TEMP\n  !$OMP THREADPRIVATE( TEMP )\n\n! ~~~ If you are using KPP within an OpenMP parallel environment,\n! ~~~ these variables DO NOT need to be declared THREADPRIVATE.\n\n! TSTART - Integration start time\n  REAL(kind=dp) :: TSTART\n! TEND - Integration end time\n  REAL(kind=dp) :: TEND\n! DT - Integration step\n  REAL(kind=dp) :: DT\n! ATOL - Absolute tolerance\n  REAL(kind=dp) :: ATOL(NVAR)\n! RTOL - Relative tolerance\n  REAL(kind=dp) :: RTOL(NVAR)\n! STEPMIN - Lower bound for integration step\n  REAL(kind=dp) :: STEPMIN\n! STEPMAX - Upper bound for integration step\n  REAL(kind=dp) :: STEPMAX\n! CFACTOR - Conversion factor for concentration units\n  REAL(kind=dp) :: CFACTOR\n\n! Begin inlined code from F90_GLOBAL\n\n! Inline common variables into gckpp_Global.F90\n#include \"commonIncludeVars.H\"\n\n! End inlined code from F90_GLOBAL\n\n\nEND MODULE gckpp_Global\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Initialize.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Initialization File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Initialize.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Initialize\n\n  USE gckpp_Parameters, ONLY: dp, NVAR, NFIX\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Initialize - function to initialize concentrations\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Initialize ( )\n\n\n  USE gckpp_Global\n\n  USE gckpp_Parameters\n\n  INTEGER :: i\n  REAL(kind=dp) :: x\n\n! ~~~ Define scale factor for units\n  CFACTOR = 1.000000e+00_dp\n\n! ~~~ Zero C array\n  C = 0.0_dp\n\n! ~~~ Set initial species concentrations\n\n! Begin constant rate coefficients\n! End constant rate coefficients\n\n! Begin inlined code from F90_INIT\n\n! End inlined code from F90_INIT\n\n      \nEND SUBROUTINE Initialize\n\n! End of Initialize function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Initialize\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Integrator.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Numerical Integrator (Time-Stepping) File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Integrator.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! INTEGRATE - Integrator routine\n!   Arguments :\n!      TIN       - Start Time for Integration\n!      TOUT      - End Time for Integration\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!\n!    Forward Euler method for non-stiff ODEs                              !\n!                                                                         !\n!    Version History:                                                     !\n!    Apr. 30, 2022 - Initial Version - M.S.Long                           !\n!                                                                         !\n!    This implementation is part of KPP - the Kinetic PreProcessor        !\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!\nMODULE gckpp_Integrator\n\n  USE gckpp_Precision,  ONLY: dp\n  USE gckpp_Parameters, ONLY: NVAR, NFIX, NSPEC\n  USE gckpp_Global\n  USE gckpp_Monitor\n\n  IMPLICIT NONE\n  PUBLIC\n\n  SAVE\n\n!~~~> Flags to determine if we should call the UPDATE_* routines from within\n!~~~> the integrator.  If using KPP in an external model, you might want to\n!~~~> disable these calls (via ICNTRL(15)) to avoid excess computations.\n  LOGICAL, PRIVATE :: Do_Update_RCONST\n  LOGICAL, PRIVATE :: Do_Update_PHOTO\n  LOGICAL, PRIVATE :: Do_Update_SUN\n\n!~~~> description of the error numbers IERR\n  CHARACTER(LEN=50), PARAMETER, DIMENSION(1) :: IERR_NAMES = (/ &\n    'dummy value                                       ' /)\n\nCONTAINS\n\n  !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  SUBROUTINE Integrate( TIN,       TOUT,      ICNTRL_U , RCNTRL_U,           &\n                        ISTATUS_U, RSTATUS_U, IERR_U                        )\n    ! ICNTRL(16)\n    ! 0 -> do nothing.\n    ! 1 -> set negative values to zero\n    ! 2 -> return with error code\n    ! 3 -> stop at negative\n    !\n    ! ICNTRL(17) = verbose error output\n\n    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n    ! User interface routine to the KPP forward Euler integrator\n    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n    USE gckpp_Util, ONLY : Integrator_Update_Options\n\n    !~~~> Inputs\n    REAL(kind=dp), INTENT(IN)            :: TIN           ! Start Time\n    REAL(kind=dp), INTENT(IN)            :: TOUT          ! End Time\n    INTEGER,  INTENT(IN),  OPTIONAL :: ICNTRL_U(20)  ! Input options\n    REAL(kind=dp), INTENT(IN),  OPTIONAL :: RCNTRL_U(20)  ! Input options\n\n    !~~~> Outputs\n    INTEGER,  INTENT(IN),  OPTIONAL :: ISTATUS_U(20) ! Returned status values\n    REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) ! Returned status values\n    INTEGER,  INTENT(OUT), OPTIONAL :: IERR_U        ! Error code\n\n    ! Local variables\n    INTEGER                         :: ICNTRL(20)\n    REAL(kind=dp)                        :: RSTATUS(20)\n    INTEGER                         :: IERR\n\n    !~~~> Zero input and output arrays for safety's sake\n    ICNTRL     = 0\n    RSTATUS    = 0.0_dp\n\n    !~~~> fine-tune the integrator:\n    ICNTRL(1 ) = 0       ! Verbose error output\n    ICNTRL(2 ) = 0       ! Stop upon negative results\n    ICNTRL(15) = 5       ! Call Update_SUN and Update_RCONST from w/in the int.\n\n   !~~~> if optional parameters are given, and if they are /= 0,\n   !     then use them to overwrite default settings\n   IF ( PRESENT( ICNTRL_U ) ) THEN\n      WHERE( ICNTRL_U /= 0 ) ICNTRL = ICNTRL_U\n   ENDIF\n\n   !~~~> Determine the settings of the Do_Update_* flags, which determine\n   !~~~> whether or not we need to call Update_* routines in the integrator\n   !~~~> (or not, if we are calling them from a higher-level)\n   ! ICNTRL(15) = -1 ! Do not call Update_* functions within the integrator\n   !            =  0 ! Status quo\n   !            =  1 ! Call Update_RCONST from within the integrator\n   !            =  2 ! Call Update_PHOTO from within the integrator\n   !            =  3 ! Call Update_RCONST and Update_PHOTO from w/in the int.\n   !            =  4 ! Call Update_SUN from within the integrator\n   !            =  5 ! Call Update_SUN and Update_RCONST from within the int.\n   !            =  6 ! Call Update_SUN and Update_PHOTO from within the int.\n   !            =  7 ! Call Update_SUN, Update_PHOTO, Update_RCONST w/in int.\n   CALL Integrator_Update_Options( ICNTRL(15),          &\n                                   Do_Update_RCONST,    &\n                                   Do_Update_PHOTO,     &\n                                   Do_Update_Sun       )\n\n   !~~~> In order to remove the prior EQUIVALENCE statements (which\n   !~~~> are not thread-safe), we now have declared VAR and FIX as\n   !~~~> threadprivate pointer variables that can point to C.\n   VAR => C(1:NVAR)\n   FIX => C(NVAR+1:NSPEC)\n\n   !~~~> Call the integrator\n   CALL ForwardEuler( NVAR, C(1:NVAR), TIN, TOUT, ICNTRL, IERR )\n\n   !~~~> Free pointers\n   VAR => NULL()\n   FIX => NULL()\n\n   !~~~> Return error status (NOTE: ISTATUS_U does nothing)\n   IF ( PRESENT( IERR_U    ) ) IERR_U    = IERR\n   IF ( PRESENT( RSTATUS_U ) ) RSTATUS_U = RSTATUS\n\n  END SUBROUTINE Integrate\n\n  !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  SUBROUTINE ForwardEuler( N, Y, Tstart, Tend, ICNTRL, IERR )\n    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n    !  Forward Euler integrator\n    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n    ! External functions\n    USE gckpp_Rates, ONLY : Update_SUN, Update_RCONST\n\n    ! Input: Arguments\n    INTEGER,  INTENT(IN)    :: N            ! Dimension for Y(N)\n    REAL(kind=dp), INTENT(INOUT) :: Y(N)         ! Initial condition\n    REAL(kind=dp), INTENT(IN)    :: Tstart       ! Starting time\n    REAL(kind=dp), INTENT(IN)    :: Tend         ! Ending time\n    INTEGER,  INTENT(IN)    :: ICNTRL(20)   ! KPP integrator options\n\n    ! Output:\n    INTEGER, INTENT(OUT)    :: IERR         ! Error status\n\n    ! Local variables\n    INTEGER  :: i\n    LOGICAL  :: hasNegative\n    REAL(kind=dp) :: Ynew(N), dYdt(N)\n\n    ! Update rates before integration if desired\n    IF ( Do_Update_SUN    ) CALL Update_SUN()\n    IF ( Do_Update_RCONST ) CALL Update_RCONST()\n\n    ! Get P-kY\n    CALL FunTemplate( Y, dYdt )\n\n    !~~~> Do the integration\n    Ynew = Y + ( dYdt * ( Tend - Tstart ) )\n\n    ! Check for negatives\n    IF (ICNTRL(16) .gt. 0) THEN ! Don't perform DO() loop if you don't care\n       DO i=1,N\n          IF (Ynew(i) .lt. 0._dp) THEN\n             IF (ICNTRL(17) /= 0) THEN\n                write(*,*) trim(SPC_NAMES(i)), \" is negative: \", Ynew(i)\n             ENDIF\n             IERR = -9\n             IF (ICNTRL(16) == 1) THEN\n                Ynew(i) = 0._dp\n             ELSE IF (ICNTRL(16) == 2) THEN\n                write(*,*) '(ICNTRL(16) = 2) Negative value. Returning.'\n                RETURN\n             ELSE IF (ICNTRL(16) == 3) THEN\n                write(*,*) '(ICNTRL(16) = 3) Negative value. Stopping.'\n                STOP\n             ENDIF\n          ENDIF\n       ENDDO\n    ENDIF\n\n    ! Return updated concentrations\n    Y = Ynew\n\n    ! Succesful exit\n    IERR = 1\n\n  END SUBROUTINE ForwardEuler\n\n  !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  SUBROUTINE FunTemplate( Y, Ydot )\n    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n    !  Template for the ODE function call.\n    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n    USE gckpp_Parameters, ONLY : NVAR\n    USE gckpp_Global,     ONLY : FIX, RCONST\n    USE gckpp_Function,   ONLY : Fun\n\n    !~~~> Input variables\n    REAL(kind=dp) :: Y(NVAR)\n\n    !~~~> Output variables\n    REAL(kind=dp) :: Ydot(NVAR)\n\n    !~~~> Compute equation rates and time derivative of variable species\n    CALL Fun( Y, FIX, RCONST, Ydot )\n\n  END SUBROUTINE FunTemplate\n\nEND MODULE gckpp_Integrator\n! End of INTEGRATE function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Jacobian.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The ODE Jacobian of Chemical Model File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Jacobian.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Jacobian\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\nCONTAINS\n\n\n\nEND MODULE gckpp_Jacobian\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_LinearAlgebra.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Linear Algebra Data and Routines File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_LinearAlgebra.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_LinearAlgebra\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! BLAS_UTIL - BLAS-LIKE utility functions\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!--------------------------------------------------------------\n!\n! BLAS/LAPACK-like subroutines used by the integration algorithms\n! It is recommended to replace them by calls to the optimized\n!      BLAS/LAPACK library for your machine\n!\n!  (C) Adrian Sandu, Aug. 2004\n!      Virginia Polytechnic Institute and State University\n!--------------------------------------------------------------\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WCOPY(N,X,incX,Y,incY)\n!--------------------------------------------------------------\n!     copies a vector, x, to a vector, y:  y <- x\n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL  SCOPY(N,X,1,Y,1)   or   CALL  DCOPY(N,X,1,Y,1)\n!--------------------------------------------------------------\n!     USE gckpp_Precision\n      \n      INTEGER  :: i,incX,incY,M,MP1,N\n      REAL(kind=dp) :: X(N),Y(N)\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,8)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = X(i)\n        END DO\n        IF( N .LT. 8 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,8\n        Y(i) = X(i)\n        Y(i + 1) = X(i + 1)\n        Y(i + 2) = X(i + 2)\n        Y(i + 3) = X(i + 3)\n        Y(i + 4) = X(i + 4)\n        Y(i + 5) = X(i + 5)\n        Y(i + 6) = X(i + 6)\n        Y(i + 7) = X(i + 7)\n      END DO\n\n      END SUBROUTINE WCOPY\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY)\n!--------------------------------------------------------------\n!     constant times a vector plus a vector: y <- y + Alpha*x\n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SAXPY(N,Alpha,X,1,Y,1) or  CALL DAXPY(N,Alpha,X,1,Y,1)\n!--------------------------------------------------------------\n\n      INTEGER  :: i,incX,incY,M,MP1,N\n      REAL(kind=dp) :: X(N),Y(N),Alpha\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp\n\n      IF (Alpha .EQ. ZERO) RETURN\n      IF (N .LE. 0) RETURN\n\n      M = MOD(N,4)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = Y(i) + Alpha*X(i)\n        END DO\n        IF( N .LT. 4 ) RETURN\n      END IF\n      MP1 = M + 1\n      DO i = MP1,N,4\n        Y(i) = Y(i) + Alpha*X(i)\n        Y(i + 1) = Y(i + 1) + Alpha*X(i + 1)\n        Y(i + 2) = Y(i + 2) + Alpha*X(i + 2)\n        Y(i + 3) = Y(i + 3) + Alpha*X(i + 3)\n      END DO\n      \n      END SUBROUTINE WAXPY\n\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WSCAL(N,Alpha,X,incX)\n!--------------------------------------------------------------\n!     constant times a vector: x(1:N) <- Alpha*x(1:N) \n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SSCAL(N,Alpha,X,1) or  CALL DSCAL(N,Alpha,X,1)\n!--------------------------------------------------------------\n\n      INTEGER  :: i,incX,M,MP1,N\n      REAL(kind=dp)  :: X(N),Alpha\n      REAL(kind=dp), PARAMETER  :: ZERO=0.0_dp, ONE=1.0_dp\n\n      IF (Alpha .EQ. ONE) RETURN\n      IF (N .LE. 0) RETURN\n\n      M = MOD(N,5)\n      IF( M .NE. 0 ) THEN\n        IF (Alpha .EQ. (-ONE)) THEN\n          DO i = 1,M\n            X(i) = -X(i)\n          END DO\n        ELSEIF (Alpha .EQ. ZERO) THEN\n          DO i = 1,M\n            X(i) = ZERO\n          END DO\n        ELSE\n          DO i = 1,M\n            X(i) = Alpha*X(i)\n          END DO\n        END IF\n        IF( N .LT. 5 ) RETURN\n      END IF\n      MP1 = M + 1\n      IF (Alpha .EQ. (-ONE)) THEN\n        DO i = MP1,N,5\n          X(i)     = -X(i)\n          X(i + 1) = -X(i + 1)\n          X(i + 2) = -X(i + 2)\n          X(i + 3) = -X(i + 3)\n          X(i + 4) = -X(i + 4)\n        END DO\n      ELSEIF (Alpha .EQ. ZERO) THEN\n        DO i = MP1,N,5\n          X(i)     = ZERO\n          X(i + 1) = ZERO\n          X(i + 2) = ZERO\n          X(i + 3) = ZERO\n          X(i + 4) = ZERO\n        END DO\n      ELSE\n        DO i = MP1,N,5\n          X(i)     = Alpha*X(i)\n          X(i + 1) = Alpha*X(i + 1)\n          X(i + 2) = Alpha*X(i + 2)\n          X(i + 3) = Alpha*X(i + 3)\n          X(i + 4) = Alpha*X(i + 4)\n        END DO\n      END IF\n\n      END SUBROUTINE WSCAL\n\n!--------------------------------------------------------------\n      REAL(kind=dp) FUNCTION WLAMCH( C )\n!--------------------------------------------------------------\n!     returns epsilon machine\n!     after LAPACK\n!     replace this by the function from the optimized LAPACK implementation:\n!          CALL SLAMCH('E') or CALL DLAMCH('E')\n!--------------------------------------------------------------\n!      USE gckpp_Precision\n\n      CHARACTER ::  C\n      INTEGER    :: i\n      REAL(kind=dp), SAVE  ::  Eps\n      REAL(kind=dp)  ::  Suma\n      REAL(kind=dp), PARAMETER  ::  ONE=1.0_dp, HALF=0.5_dp\n      LOGICAL, SAVE   ::  First=.TRUE.\n\n!$OMP THREADPRIVATE( Eps, First )      \n\n      IF (First) THEN\n        First = .FALSE.\n        Eps = HALF**(16)\n        DO i = 17, 80\n          Eps = Eps*HALF\n          CALL WLAMCH_ADD(ONE,Eps,Suma)\n          IF (Suma.LE.ONE) GOTO 10\n        END DO\n        PRINT*,'ERROR IN WLAMCH. EPS < ',Eps\n        RETURN\n10      Eps = Eps*2\n        i = i-1      \n      END IF\n\n      WLAMCH = Eps\n\n      END FUNCTION WLAMCH\n     \n      SUBROUTINE WLAMCH_ADD( A, B, Suma )\n!      USE gckpp_Precision\n      \n      REAL(kind=dp) A, B, Suma\n      Suma = A + B\n\n      END SUBROUTINE WLAMCH_ADD\n!--------------------------------------------------------------\n\n\n!--------------------------------------------------------------\n      SUBROUTINE SET2ZERO(N,Y)\n!--------------------------------------------------------------\n!     copies zeros into the vector y:  y <- 0\n!     after BLAS\n!--------------------------------------------------------------\n      \n      INTEGER ::  i,M,MP1,N\n      REAL(kind=dp) ::  Y(N)\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0d0\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,8)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = ZERO\n        END DO\n        IF( N .LT. 8 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,8\n        Y(i)     = ZERO\n        Y(i + 1) = ZERO\n        Y(i + 2) = ZERO\n        Y(i + 3) = ZERO\n        Y(i + 4) = ZERO\n        Y(i + 5) = ZERO\n        Y(i + 6) = ZERO\n        Y(i + 7) = ZERO\n      END DO\n\n      END SUBROUTINE SET2ZERO\n\n\n!--------------------------------------------------------------\n      REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) \n!--------------------------------------------------------------\n!     dot produce: wdot = x(1:N)*y(1:N) \n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SDOT(N,X,1,Y,1) or  CALL DDOT(N,X,1,Y,1)\n!--------------------------------------------------------------\n!      USE messy_mecca_kpp_Precision\n!--------------------------------------------------------------\n      IMPLICIT NONE\n      INTEGER :: N, incX, incY\n      REAL(kind=dp) :: DX(N), DY(N) \n\n      INTEGER :: i, IX, IY, M, MP1, NS\n                                 \n      WDOT = 0.0D0 \n      IF (N .LE. 0) RETURN \n      IF (incX .EQ. incY) IF (incX-1) 5,20,60 \n!                                                                       \n!     Code for unequal or nonpositive increments.                       \n!                                                                       \n    5 IX = 1 \n      IY = 1 \n      IF (incX .LT. 0) IX = (-N+1)*incX + 1 \n      IF (incY .LT. 0) IY = (-N+1)*incY + 1 \n      DO i = 1,N \n        WDOT = WDOT + DX(IX)*DY(IY) \n        IX = IX + incX \n        IY = IY + incY \n      END DO \n      RETURN \n!                                                                       \n!     Code for both increments equal to 1.                              \n!                                                                       \n!     Clean-up loop so remaining vector length is a multiple of 5.      \n!                                                                       \n   20 M = MOD(N,5) \n      IF (M .EQ. 0) GO TO 40 \n      DO i = 1,M \n         WDOT = WDOT + DX(i)*DY(i) \n      END DO \n      IF (N .LT. 5) RETURN \n   40 MP1 = M + 1 \n      DO i = MP1,N,5 \n          WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) +  &\n                   DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4)                   \n      END DO \n      RETURN \n!                                                                       \n!     Code for equal, positive, non-unit increments.                    \n!                                                                       \n   60 NS = N*incX \n      DO i = 1,NS,incX \n        WDOT = WDOT + DX(i)*DY(i) \n      END DO \n\n      END FUNCTION WDOT                                          \n\n\n!--------------------------------------------------------------\n      SUBROUTINE WADD(N,X,Y,Z)\n!--------------------------------------------------------------\n!     adds two vectors: z <- x + y\n!     BLAS - like\n!--------------------------------------------------------------\n!     USE gckpp_Precision\n      \n      INTEGER :: i, M, MP1, N\n      REAL(kind=dp) :: X(N),Y(N),Z(N)\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,5)\n      IF( M /= 0 ) THEN\n         DO i = 1,M\n            Z(i) = X(i) + Y(i)\n         END DO\n         IF( N < 5 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,5\n         Z(i)     = X(i)     + Y(i)\n         Z(i + 1) = X(i + 1) + Y(i + 1)\n         Z(i + 2) = X(i + 2) + Y(i + 2)\n         Z(i + 3) = X(i + 3) + Y(i + 3)\n         Z(i + 4) = X(i + 4) + Y(i + 4)\n      END DO\n\n      END SUBROUTINE WADD\n      \n      \n      \n!--------------------------------------------------------------\n      SUBROUTINE WGEFA(N,A,Ipvt,info)\n!--------------------------------------------------------------\n!     WGEFA FACTORS THE MATRIX A (N,N) BY\n!           GAUSS ELIMINATION WITH PARTIAL PIVOTING\n!     LINPACK - LIKE \n!--------------------------------------------------------------\n!\n      INTEGER       :: N,Ipvt(N),info\n      REAL(kind=dp) :: A(N,N)\n      REAL(kind=dp) :: t, dmax, da\n      INTEGER       :: j,k,l\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0\n\n      info = 0\n\nsize: IF (n > 1) THEN\n      \ncol:  DO k = 1, n-1\n\n!        find l = pivot index\n!        l = idamax(n-k+1,A(k,k),1) + k - 1\n         l = k; dmax = abs(A(k,k))\n         DO j = k+1,n\n            da = ABS(A(j,k))\n            IF (da > dmax) THEN\n              l = j; dmax = da\n            END IF\n         END DO\n         Ipvt(k) = l\n\n!        zero pivot implies this column already triangularized\n         IF (ABS(A(l,k)) < TINY(ZERO)) THEN\n            info = k\n            return\n         ELSE   \n            IF (l /= k) THEN\n               t = A(l,k); A(l,k) = A(k,k); A(k,k) = t\n            END IF\n            t = -ONE/A(k,k)\n            CALL WSCAL(n-k,t,A(k+1,k),1)\n            DO j = k+1, n\n               t = A(l,j)\n               IF (l /= k) THEN\n                  A(l,j) = A(k,j); A(k,j) = t\n               END IF\n               CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1)\n            END DO         \n         END IF\n         \n       END DO col\n       \n      END IF size\n      \n      Ipvt(N) = N\n      IF (ABS(A(N,N)) == ZERO) info = N\n      \n      END SUBROUTINE WGEFA\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WGESL(Trans,N,A,Ipvt,b)\n!--------------------------------------------------------------\n!     WGESL solves the system\n!     a * x = b  or  trans(a) * x = b\n!     using the factors computed by WGEFA.\n!\n!     Trans      = 'N'   to solve  A*x = b ,\n!                = 'T'   to solve  transpose(A)*x = b\n!     LINPACK - LIKE \n!--------------------------------------------------------------\n\n      INTEGER       :: N,Ipvt(N)\n      CHARACTER     :: trans\n      REAL(kind=dp) :: A(N,N),b(N)\n      REAL(kind=dp) :: t\n      INTEGER       :: k,kb,l\n\n      \n      SELECT CASE (Trans)\n\n      CASE ('n','N')  !  Solve  A * x = b\n\n!        first solve  L*y = b\n         IF (n >= 2) THEN\n          DO k = 1, n-1\n            l = Ipvt(k)\n            t = b(l)\n            IF (l /= k) THEN\n               b(l) = b(k)\n               b(k) = t\n            END IF\n            CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1)\n          END DO\n         END IF\n!        now solve  U*x = y\n         DO kb = 1, n\n            k = n + 1 - kb\n            b(k) = b(k)/a(k,k)\n            t = -b(k)\n            CALL WAXPY(k-1,t,a(1,k),1,b(1),1)\n         END DO\n      \n      CASE ('t','T')  !  Solve transpose(A) * x = b\n\n!        first solve  trans(U)*y = b\n         DO k = 1, n\n            t = WDOT(k-1,a(1,k),1,b(1),1)\n            b(k) = (b(k) - t)/a(k,k)\n         END DO\n!        now solve trans(L)*x = y\n         IF (n >= 2) THEN\n         DO kb = 1, n-1\n            k = n - kb\n            b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1)\n            l = Ipvt(k)\n            IF (l /= k) THEN\n               t = b(l); b(l) = b(k); b(k) = t\n            END IF\n         END DO\n         END IF\n   \n      END SELECT\n\n      END SUBROUTINE WGESL\n! End of BLAS_UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_LinearAlgebra\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Model.F90",
    "content": "MODULE gckpp_Model\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Completely defines the model gckpp\n!    by using all the associated modules\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Precision\n  USE gckpp_Parameters\n  USE gckpp_Global\n  USE gckpp_Function\n  USE gckpp_Integrator\n  USE gckpp_Rates\n  USE gckpp_LinearAlgebra\n  USE gckpp_Monitor\n  USE gckpp_Util\n\nEND MODULE gckpp_Model\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Monitor.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Utility Data Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Monitor.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Monitor\n\n\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(17) :: SPC_NAMES = (/ &\n     'CH4                             ','CO                              ','PCOfromCH4                      ', & ! index 1 - 3\n     'PCOfromNMVOC                    ','LCH4byOH                        ','LCH4byCl                        ', & ! index 4 - 6\n     'LCH4inStrat                     ','LCObyOH                         ','LCOinStrat                      ', & ! index 7 - 9\n     'PCO                             ','LCO                             ','LCH4                            ', & ! index 10 - 12\n     'FixedOH                         ','FixedCl                         ','DummyCH4trop                    ', & ! index 13 - 15\n     'DummyCH4strat                   ','DummyNMVOC                      ' /) ! index up to 17\n\n  INTEGER, DIMENSION(1) :: LOOKAT\n  INTEGER, DIMENSION(1) :: MONITOR\n  CHARACTER(LEN=32), DIMENSION(1) :: SMASS\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(8) :: EQN_NAMES = (/ &\n     'CH4 + FixedOH --> LCH4byOH + LCH4                                                                   ', & ! index 1\n     'CH4 + FixedCl --> LCH4byCl + LCH4                                                                   ', & ! index 2\n     ' DummyCH4trop --> CO + PCOfromCH4 + PCO                                                             ', & ! index 3\n     ' CO + FixedOH --> LCObyOH + LCO                                                                     ', & ! index 4\n     '   DummyNMVOC --> CO + PCOfromNMVOC + PCO                                                           ', & ! index 5\n     '          CH4 --> LCH4inStrat + LCH4                                                                ', & ! index 6\n     'DummyCH4strat --> CO + PCO                                                                          ', & ! index 7\n     '           CO --> LCOinStrat + LCO                                                                  ' /) ! index up to 8\n\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(3) :: FAM_NAMES = (/ &\n     'PCO                             ','LCO                             ','LCH4                            ' /) ! index up to 3\n\n! Begin inlined code from F90_DATA\n\n! End inlined code from F90_DATA\n\n\nEND MODULE gckpp_Monitor\n"
  },
  {
    "path": "KPP/carbon/gckpp_Parameters.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Parameter Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Parameters.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Parameters\n\n  USE gckpp_Precision\n  PUBLIC\n  SAVE\n\n\n! NSPEC - Number of chemical species\n  INTEGER, PARAMETER :: NSPEC = 17 \n! NVAR - Number of Variable species\n  INTEGER, PARAMETER :: NVAR = 12 \n! NFAM - Number of Prod/Loss Families\n  INTEGER, PARAMETER :: NFAM = 3 \n! NVARACT - Number of Active species\n  INTEGER, PARAMETER :: NVARACT = 2 \n! NFIX - Number of Fixed species\n  INTEGER, PARAMETER :: NFIX = 5 \n! NREACT - Number of reactions\n  INTEGER, PARAMETER :: NREACT = 8 \n! NVARST - Starting of variables in conc. vect.\n  INTEGER, PARAMETER :: NVARST = 1 \n! NFIXST - Starting of fixed in conc. vect.\n  INTEGER, PARAMETER :: NFIXST = 13 \n! NONZERO - Number of nonzero entries in Jacobian\n  INTEGER, PARAMETER :: NONZERO = 1 \n! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian\n  INTEGER, PARAMETER :: LU_NONZERO = 1 \n! CNVAR - (NVAR+1) Number of elements in compressed row format\n  INTEGER, PARAMETER :: CNVAR = 13 \n! NLOOKAT - Number of species to look at\n  INTEGER, PARAMETER :: NLOOKAT = 0 \n! NMONITOR - Number of species to monitor\n  INTEGER, PARAMETER :: NMONITOR = 0 \n! NMASS - Number of atoms to check mass balance\n  INTEGER, PARAMETER :: NMASS = 1 \n\n! Index declaration for variable species in C and VAR\n!   VAR(ind_spc) = C(ind_spc)\n\n  INTEGER, PARAMETER :: ind_CH4 = 1 \n  INTEGER, PARAMETER :: ind_CO = 2 \n  INTEGER, PARAMETER :: ind_PCOfromCH4 = 3 \n  INTEGER, PARAMETER :: ind_PCOfromNMVOC = 4 \n  INTEGER, PARAMETER :: ind_LCH4byOH = 5 \n  INTEGER, PARAMETER :: ind_LCH4byCl = 6 \n  INTEGER, PARAMETER :: ind_LCH4inStrat = 7 \n  INTEGER, PARAMETER :: ind_LCObyOH = 8 \n  INTEGER, PARAMETER :: ind_LCOinStrat = 9 \n  INTEGER, PARAMETER :: ind_PCO = 10 \n  INTEGER, PARAMETER :: ind_LCO = 11 \n  INTEGER, PARAMETER :: ind_LCH4 = 12 \n\n! Index declaration for fixed species in C\n!   C(ind_spc)\n\n  INTEGER, PARAMETER :: ind_FixedOH = 13 \n  INTEGER, PARAMETER :: ind_FixedCl = 14 \n  INTEGER, PARAMETER :: ind_DummyCH4trop = 15 \n  INTEGER, PARAMETER :: ind_DummyCH4strat = 16 \n  INTEGER, PARAMETER :: ind_DummyNMVOC = 17 \n\n! Index declaration for fixed species in FIX\n!    FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc)\n\n  INTEGER, PARAMETER :: indf_FixedOH = 1 \n  INTEGER, PARAMETER :: indf_FixedCl = 2 \n  INTEGER, PARAMETER :: indf_DummyCH4trop = 3 \n  INTEGER, PARAMETER :: indf_DummyCH4strat = 4 \n  INTEGER, PARAMETER :: indf_DummyNMVOC = 5 \n\nEND MODULE gckpp_Parameters\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Precision.F90",
    "content": "\nMODULE gckpp_Precision\n\n!\n! Definition of different levels of accuracy\n! for REAL variables using KIND parameterization\n!\n! KPP SP - Single precision kind\n  INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30)\n! KPP DP - Double precision kind\n  INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300)\n! KPP QP - Quadruple precision kind\n  INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400)\n\nEND MODULE gckpp_Precision\n\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Rates.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The Reaction Rates File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Rates.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Rates\n\n  USE gckpp_Parameters\n  USE gckpp_Global\n  IMPLICIT NONE\n  INTEGER, PARAMETER :: ASSOC = 1, DISSOC = 2\n\n  PRIVATE :: ARR_abc_dp, ARR_abc_sp\n  INTERFACE ARR_abc\n     MODULE PROCEDURE ARR_abc_dp\n     MODULE PROCEDURE ARR_abc_sp\n  END INTERFACE ARR_abc\n\n  PRIVATE :: ARR_ab_dp, ARR_ab_sp\n  INTERFACE ARR_ab\n     MODULE PROCEDURE ARR_ab_dp\n     MODULE PROCEDURE ARR_ab_sp\n  END INTERFACE ARR_ab\n\n  PRIVATE :: ARR_ac_dp, ARR_ac_sp\n  INTERFACE ARR_ac\n     MODULE PROCEDURE ARR_ac_dp\n     MODULE PROCEDURE ARR_ac_sp\n  END INTERFACE ARR_ac\n\n  PRIVATE :: EP2_dp, EP2_sp\n  INTERFACE EP2\n     MODULE PROCEDURE EP2_dp\n     MODULE PROCEDURE EP2_sp\n  END INTERFACE EP2\n\n  PRIVATE :: EP3_dp, EP3_sp\n  INTERFACE EP3\n     MODULE PROCEDURE EP3_dp\n     MODULE PROCEDURE EP3_sp\n  END INTERFACE EP3\n\n  PRIVATE :: FALL_dp, FALL_sp\n  INTERFACE FALL\n     MODULE PROCEDURE FALL_dp\n     MODULE PROCEDURE FALL_sp\n  END INTERFACE FALL\n\n  PRIVATE :: k3rd_jpl_dp, k3rd_jpl_sp\n  INTERFACE k3rd_jpl\n     MODULE PROCEDURE k3rd_jpl_dp\n     MODULE PROCEDURE k3rd_jpl_sp\n  END INTERFACE k3rd_jpl\n\n  PRIVATE :: k3rd_jpl_activation_dp, k3rd_jpl_activation_sp\n  INTERFACE  k3rd_jpl_activation\n     MODULE PROCEDURE  k3rd_jpl_activation_dp\n     MODULE PROCEDURE  k3rd_jpl_activation_sp\n  END INTERFACE  k3rd_jpl_activation\n\n  PRIVATE :: k3rd_iupac_dp, k3rd_iupac_sp\n  INTERFACE k3rd_iupac\n     MODULE PROCEDURE k3rd_iupac_dp\n     MODULE PROCEDURE k3rd_iupac_sp\n  END INTERFACE k3rd_iupac\n\nCONTAINS\n\n\n\n! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  User-defined Rate Law functions\n!\n!  NOTE: For computational efficiency, we have created duplicate rate law\n!  routines here that take either all single precision or all double precision\n!  arguments.  Explicit casts to DBLE are skipped in the functions that take\n!  all double precision arguments (as this removes unneeded computations).\n!\n!  These functions are overloaded by INTERFACE statements, which are located\n!  in file UserRateLawsInterfaces.f90.  The UserRateLawsInterfaces.f90 file\n!  will be in-lined into the top of the gckpp_Rates module.\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  FUNCTION ARR_abc_dp( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0, c0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0, c0\n    REAL(kind=dp) :: k\n    k = a0 * EXP(-b0/TEMP) * (TEMP/300.0_dp)**C0\n  END FUNCTION ARR_abc_dp\n\n  FUNCTION ARR_abc_sp( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0, c0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0, c0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * EXP(-DBLE(b0)/TEMP) * (TEMP/300.0_dp)**DBLE(c0)\n  END FUNCTION ARR_abc_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION ARR_ab_dp( a0, b0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0\n    REAL(kind=dp) :: k\n    k = a0 * EXP(-b0/TEMP)\n  END FUNCTION ARR_ab_dp\n\n  FUNCTION ARR_ab_sp( a0, b0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * EXP(-DBLE(b0)/TEMP)\n  END FUNCTION ARR_ab_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION ARR_ac_dp( a0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, c0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(kind=dp) :: k\n    k = a0 * (TEMP/300.0_dp)**C0\n  END FUNCTION ARR_ac_dp\n\n  FUNCTION ARR_ac_sp( a0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, c0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, c0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * (TEMP/300.0_dp)**DBLE(c0)\n  END FUNCTION ARR_ac_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION EP2_dp( a0, c0, a2, c2, a3, c3 ) RESULT( k )\n    ! EP2 function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a0, c0, a2, c2, a3, c3\n    REAL(dp) :: k0, k2, k3\n    REAL(kind=dp) :: k\n    k0 = a0 * EXP(-c0/temp)\n    k2 = a2 * EXP(-c2/temp)\n    k3 = a3 * EXP(-c3/temp)\n    k3 = k3 * CFACTOR * 1.0E6_dp\n    k  = k0 + k3/(1.0_dp + k3/k2)\n  END FUNCTION EP2_dp\n\n  FUNCTION EP2_sp( a0, c0, a2, c2, a3, c3 ) RESULT( k )\n    ! EP2 function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a0, c0, a2, c2, a3, c3\n    REAL(dp) :: k0, k2, k3\n    REAL(kind=dp) :: k\n    k0 = DBLE(a0) * EXP(-DBLE(c0)/TEMP)\n    k2 = DBLE(a2) * EXP(-DBLE(c2)/TEMP)\n    k3 = DBLE(a3) * EXP(-DBLE(c3)/TEMP)\n    k3 = k3 * CFACTOR * 1.0E6_dp\n    k  = k0 + K3/(1.0_dp + k3/k2)\n  END FUNCTION EP2_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION EP3_dp( a1, c1, a2, c2) RESULT( k )\n    ! EP3 function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a1, c1, a2, c2\n    REAL(dp) :: k1, k2\n    REAL(kind=dp) :: k\n    k1 = a1 * EXP(-c1/TEMP)\n    k2 = a2 * EXP(-c2/TEMP)\n    k  = k1 + k2*(1.0E6_dp * CFACTOR)\n  END FUNCTION EP3_dp\n\n  FUNCTION EP3_sp( a1, c1, a2, c2 ) RESULT( k )\n    ! EP3 function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a1, c1, a2, c2\n    REAL(dp) :: k1, k2\n    REAL(kind=dp) :: k\n    k1 = DBLE(a1) * EXP(-DBLE(c1)/TEMP)\n    k2 = DBLE(a2) * EXP(-DBLE(c2)/TEMP)\n    k  = k1 + k2*(1.0E6_dp * CFACTOR)\n  END FUNCTION EP3_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION FALL_dp( a0, b0, c0, a1, b1, c1, cf ) RESULT( k )\n    ! FALL function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0, c0, a1, b1, c1, cf\n    REAL(dp) :: k0, k1\n    REAL(kind=dp) :: k\n    k0 = a0 * EXP(-b0/TEMP) * (TEMP/300.0_dp)**c0\n    k1 = a1 * EXP(-b1/TEMP) * (TEMP/300.0_dp)**c1\n    k0 = k0 * CFACTOR * 1.0E6_dp\n    k1 = k0 / k1\n    k  = (k0/(1.0_dp+k1)) * cf**(1.0_dp/(1.0_dp+(LOG10(k1))**2))\n  END FUNCTION FALL_dp\n\n  FUNCTION FALL_sp( a0, b0, c0, a1, b1, c1, cf ) RESULT( k )\n    ! FALL function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0, c0, a1, b1, c1, cf\n    REAL(dp) :: k0, k1\n    REAL(kind=dp) :: k\n    k0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0)\n    k1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1)\n    k0 = k0 * CFACTOR * 1.0E6_dp\n    k1 = k0 / k1\n    k  = (k0/(1.0_dp+k1)) * DBLE(cf)**(1.0_dp/(1.0_dp+(LOG10(k1))**2))\n  END FUNCTION FALL_sp\n\n  !---------------------------------------------------------------------------\n\n  ! JPL (jpldataeval.jpl.nasa.gov) three-body reaction formula:\n  \n  REAL(dp) FUNCTION k3rd_jpl_dp(cair,k0_300K,n,kinf_300K,m,fc) ! dp args\n    INTRINSIC LOG10\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)\n    REAL(dp) :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help  = 300._dp/temp\n    k0_T     = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T   = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio  = k0_T/kinf_T\n    k3rd_jpl_dp = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))\n  END FUNCTION k3rd_jpl_dp\n\n  REAL(kind=dp) FUNCTION k3rd_jpl_sp(cair,k0_300K,n,kinf_300K,m,fc) ! sp args\n    INTRINSIC LOG10\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)\n    REAL(sp) :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help  = 300._dp/temp\n    k0_T     = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T   = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio  = k0_T/kinf_T\n    k3rd_jpl_sp = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))\n  END FUNCTION k3rd_jpl_sp\n\n  ! --------------------------------------------------------------------------\n\n  ! JPL (jpldataeval.jpl.nasa.gov) termolecular chemical activation reaction:\n\n  FUNCTION k3rd_jpl_activation_dp(cair,k0_298K,n,kinf_298K,m,A,B) ! dp args\n    INTRINSIC :: LOG10\n    REAL(dp), DIMENSION(2) :: k3rd_jpl_activation_dp\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_298K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_298K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: A         ! for k_int\n    REAL(dp), INTENT(IN) :: B         ! for k_int\n    REAL(dp)             :: zt_help, k0_TM, kinf_T, k_ratio, k_f, k_int, k_fCA\n    zt_help = 298./temp\n    k0_TM   = k0_298K   * zt_help**n * cair ! k_0   at current T * M\n    kinf_T  = kinf_298K * zt_help**m        ! k_inf at current T\n    k_ratio = k0_TM/kinf_T\n    k_f     = k0_TM/(1.+k_ratio)*0.6**(1./(1.+LOG10(k_ratio)**2))\n    k_int   = A * exp(-B/temp)\n    k_fCA   = k_int * (1. - k_f/kinf_T)\n    k3rd_jpl_activation_dp(ASSOC)  = k_f\n    k3rd_jpl_activation_dp(DISSOC) = k_fCA\n  END FUNCTION k3rd_jpl_activation_dp\n\n  FUNCTION k3rd_jpl_activation_sp(cair,k0_298K,n,kinf_298K,m,A,B) ! sp args\n    INTRINSIC :: LOG10\n    REAL(kind=dp), DIMENSION(2) :: k3rd_jpl_activation_sp\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_298K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_298K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: A         ! for k_int\n    REAL(sp), INTENT(IN) :: B         ! for k_int\n    REAL(sp)             :: zt_help, k0_TM, kinf_T, k_ratio, k_f, k_int, k_fCA\n    zt_help = 298./temp\n    k0_TM   = k0_298K   * zt_help**n * cair ! k_0   at current T * M\n    kinf_T  = kinf_298K * zt_help**m        ! k_inf at current T\n    k_ratio = k0_TM/kinf_T\n    k_f     = k0_TM/(1.+k_ratio)*0.6**(1./(1.+LOG10(k_ratio)**2))\n    k_int   = A * exp(-B/temp)\n    k_fCA   = k_int * (1. - k_f/kinf_T)\n    k3rd_jpl_activation_sp(ASSOC)  = k_f\n    k3rd_jpl_activation_sp(DISSOC) = k_fCA\n  END FUNCTION k3rd_jpl_activation_sp\n\n  ! --------------------------------------------------------------------------\n\n  ! IUPAC (iupac.pole-ether.fr) three-body reaction formula:\n\n  REAL(dp) FUNCTION k3rd_iupac_dp(cair,k0_300K,n,kinf_300K,m,fc) ! dp args\n    INTRINSIC :: LOG10\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: fc        ! broadening factor (e.g. 0.45 or 0.6...)\n    REAL(dp)             :: nu        ! N\n    REAL(dp)             :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help = 300._dp/temp\n    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio = k0_T/kinf_T\n    nu      = 0.75-1.27*LOG10(fc)\n    k3rd_iupac_dp = k0_T/(1._dp+k_ratio)* &\n      fc**(1._dp/(1._dp+(LOG10(k_ratio)/nu)**2))\n  END FUNCTION k3rd_iupac_dp\n\n  REAL(kind=dp) FUNCTION k3rd_iupac_sp(cair,k0_300K,n,kinf_300K,m,fc) ! sp args\n    INTRINSIC :: LOG10\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: fc        ! broadening factor (e.g. 0.45 or 0.6...)\n    REAL(sp)             :: nu        ! N\n    REAL(sp)             :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help = 300._dp/temp\n    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio = k0_T/kinf_T\n    nu      = 0.75-1.27*LOG10(fc)\n    k3rd_iupac_sp = k0_T/(1._dp+k_ratio)* &\n      fc**(1._dp/(1._dp+(LOG10(k_ratio)/nu)**2))\n  END FUNCTION k3rd_iupac_sp\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  End of User-defined Rate Law functions\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! End Rate Law Functions from KPP_HOME/util/UserRateLaws\n\n\n! Begin inlined code from F90_RATES\n\n\n! End inlined code from F90_RATES\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Update_SUN - update SUN light using TIME\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  SUBROUTINE Update_SUN()\n    USE gckpp_Parameters\n    USE gckpp_Global\n\n    IMPLICIT NONE\n\n    REAL(kind=dp) :: SunRise, SunSet\n    REAL(kind=dp) :: Thour, Tlocal, Ttmp \n    ! PI - Value of pi\n    REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0\n    \n    SunRise = 4.5_dp \n    SunSet  = 19.5_dp \n    Thour = TIME/3600.0_dp \n    Tlocal = Thour - (INT(Thour)/24)*24\n\n    IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN\n       Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise)\n       IF (Ttmp.GT.0) THEN\n          Ttmp =  Ttmp*Ttmp\n       ELSE\n          Ttmp = -Ttmp*Ttmp\n       END IF\n       SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp \n    ELSE\n       SUN = 0.0_dp \n    END IF\n\n END SUBROUTINE Update_SUN\n\n! End of Update_SUN function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\nSUBROUTINE Update_RCONST ( YIN )\n\n! Begin inlined code from F90_RCONST_USE\n\n\n! End inlined code from F90_RCONST_USE\n\n! YIN - Optional input concentrations of variable species\n  REAL(kind=dp), OPTIONAL :: YIN(NVAR)\n\n! Y - Concentrations of species (local)\n  REAL(kind=dp) :: Y(NSPEC)\n\n! Ensure local Y array is filled with variable and constant concentrations\n  Y(1:NSPEC) = C(1:NSPEC)\n\n! Update local Y array if variable concentrations are provided\n  if (present(YIN)) Y(1:NVAR) = YIN(1:NVAR)\n\n\n\n! Begin inlined code from F90_RCONST\n\n\n! End inlined code from F90_RCONST\n\n  RCONST(1) = (2.45d-12*EXP(-1775.0d0/TEMP)*TROP)\n  RCONST(2) = (9.60d-12*EXP(-1360.0d0/TEMP)*TROP)\n  RCONST(3) = (k_Trop(1))\n  RCONST(4) = (k_Trop(2))\n  RCONST(5) = (k_Trop(3))\n  RCONST(6) = (k_Strat(1))\n  RCONST(7) = (k_Strat(2))\n  RCONST(8) = (k_Strat(3))\n\nEND SUBROUTINE UPDATE_RCONST\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Update_PHOTO - function to update photolytical rate constants\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Update_PHOTO ( )\n\n\n! Begin inlined code from F90_RCONST_USE\n\n\n! End inlined code from F90_RCONST_USE\n\n\n! Begin inlined code from F90_RCONST\n\n\n! End inlined code from F90_RCONST\n\n      \nEND SUBROUTINE Update_PHOTO\n\n! End of Update_PHOTO function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Rates\n\n"
  },
  {
    "path": "KPP/carbon/gckpp_Util.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Auxiliary Routines File\n!\n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n!\n! File                 : gckpp_Util.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Util\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\nCONTAINS\n\n\n\n! Begin inlined code from F90_UTIL\n\n! End inlined code from F90_UTIL\n\n! Begin Utility Functions from KPP_HOME/util/util\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! UTIL - Utility functions\n!   Arguments :\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! ****************************************************************\n!\n! InitSaveData - Opens the data file for writing\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE InitSaveData ()\n\n      USE gckpp_Parameters\n\n      open(10, file='gckpp.dat')\n\n      END SUBROUTINE InitSaveData\n\n! End of InitSaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! SaveData - Write LOOKAT species in the data file\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE SaveData ()\n\n      USE gckpp_Global\n      USE gckpp_Monitor\n\n      INTEGER i\n\n      WRITE(10,999) (TIME-TSTART)/3600.D0,  &\n      (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT)\n 999  FORMAT(E24.16,100(1X,E24.16))\n\n      END SUBROUTINE SaveData\n\n! End of SaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! CloseSaveData - Close the data file\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE CloseSaveData ()\n\n      USE gckpp_Parameters\n\n      CLOSE(10)\n\n      END SUBROUTINE CloseSaveData\n\n! End of CloseSaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! GenerateMatlab - Generates MATLAB file to load the data file\n!   Parameters :\n!                It will have a character string to prefix each\n!                species name with.\n!\n! ****************************************************************\n\n      SUBROUTINE GenerateMatlab ( PREFIX )\n\n      USE gckpp_Parameters\n      USE gckpp_Global\n      USE gckpp_Monitor\n\n\n      CHARACTER(LEN=8) PREFIX\n      INTEGER i\n\n      open(20, file='gckpp.m')\n      write(20,*) 'load gckpp.dat;'\n      write(20,990) PREFIX\n990   FORMAT(A1,'c = gckpp;')\n      write(20,*) 'clear gckpp;'\n      write(20,991) PREFIX, PREFIX\n991   FORMAT(A1,'t=',A1,'c(:,1);')\n      write(20,992) PREFIX\n992   FORMAT(A1,'c(:,1)=[];')\n\n      do i=1,NLOOKAT\n        write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i\n993     FORMAT(A1,A6,' = ',A1,'c(:,',I2,');')\n      end do\n\n      CLOSE(20)\n\n      END SUBROUTINE GenerateMatlab\n\n! End of GenerateMatlab function\n! ****************************************************************\n\n\n! ****************************************************************\n!\n! Integrator_Update_Options - determine whether to call Update_RCONST,\n!    Update_PHOTO, and Update_SUN from within the integrator\n!\n!   Parameters:\n!    option (input)\n!        = -1 :  Do not call Update_* functions within the integrator\n!        =  0 :  Status quo: Call whichever functions are normally called\n!        =  1 :  Call Update_RCONST from within the integrator\n!        =  2 :  Call Update_PHOTO from within the integrator\n!        =  3 :  Call Update_RCONST and Update_PHOTO from within the int.\n!        =  4 :  Call Update_SUN from within the integrator\n!        =  5 :  Call Update_SUN and Update_RCONST from within the int.\n!        =  6 :  not implemented\n!        =  7 :  not implemented\n!\n!    Do_Update_RCONST (output):\n!        =T : Calls Update_RCONST from within the integrator\n!        =F : Does not call UPDATE_RCONST from w/in the int.\n!\n!    Do_Update_PHOTO (output):\n!        =T : Calls Update_PHOTO from within the integrator\n!        =F : Does not call UPDATE_PHOTO from w/in the int.\n!\n!    Do_Update_SUN (output):\n!        =T : Calls Update_SUN from within the integrator\n!        =F : Does not call UPDATE_SUN from w/in the int.\n!\n! ****************************************************************\n\n      SUBROUTINE Integrator_Update_Options( option,            &\n                                            Do_Update_RConst,  &\n                                            Do_Update_Photo,   &\n                                            Do_Update_Sun     )\n\n      !~~~> Input variables\n      INTEGER, INTENT(IN)  :: option\n\n      !~~~> Output variables\n      LOGICAL, INTENT(OUT) :: Do_Update_RCONST\n      LOGICAL, INTENT(OUT) :: Do_Update_PHOTO\n      LOGICAL, INTENT(OUT) :: Do_Update_SUN\n\n      ! Option -1: turn off all Update_* calls within the integrator\n      IF ( option == -1 ) THEN\n         Do_Update_RCONST = .FALSE.\n         Do_Update_PHOTO  = .FALSE.\n         Do_Update_SUN    = .FALSE.\n         RETURN\n      ENDIF\n\n      ! Otherwise determine from the value passed\n      Do_Update_RCONST = ( IAND( option, 1 ) > 0 )\n      Do_Update_PHOTO  = ( IAND( option, 2 ) > 0 )\n      Do_Update_SUN    = ( IAND( option, 4 ) > 0 )\n\n      END SUBROUTINE Integrator_Update_Options\n\n! End of Integrator_Update_Options function\n! ****************************************************************\n! End Utility Functions from KPP_HOME/util/util\n! End of UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Shuffle_user2kpp - function to copy concentrations from USER to KPP\n!   Arguments :\n!      V_USER    - Concentration of variable species in USER's order\n!      V         - Concentrations of variable species (local)\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Shuffle_user2kpp ( V_USER, V )\n\n! V_USER - Concentration of variable species in USER's order\n  REAL(kind=dp) :: V_USER(NVAR)\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n\n  V(1) = V_USER(1)\n  V(2) = V_USER(2)\n  V(3) = V_USER(4)\n  V(4) = V_USER(5)\n  V(5) = V_USER(6)\n  V(6) = V_USER(7)\n  V(7) = V_USER(8)\n  V(8) = V_USER(9)\n  V(9) = V_USER(10)\n  V(10) = V_USER(11)\n\nEND SUBROUTINE Shuffle_user2kpp\n\n! End of Shuffle_user2kpp function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Shuffle_kpp2user - function to restore concentrations from KPP to USER\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      V_USER    - Concentration of variable species in USER's order\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Shuffle_kpp2user ( V, V_USER )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! V_USER - Concentration of variable species in USER's order\n  REAL(kind=dp) :: V_USER(NVAR)\n\n  V_USER(1) = V(1)\n  V_USER(2) = V(2)\n  V_USER(4) = V(3)\n  V_USER(5) = V(4)\n  V_USER(6) = V(5)\n  V_USER(7) = V(6)\n  V_USER(8) = V(7)\n  V_USER(9) = V(8)\n  V_USER(10) = V(9)\n  V_USER(11) = V(10)\n\nEND SUBROUTINE Shuffle_kpp2user\n\n! End of Shuffle_kpp2user function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! GetMass - compute total mass of selected atoms\n!   Arguments :\n!      CL        - Concentration of all species (local)\n!      Mass      - value of mass balance\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE GetMass ( CL, Mass )\n\n! CL - Concentration of all species (local)\n  REAL(kind=dp) :: CL(NSPEC)\n! Mass - value of mass balance\n  REAL(kind=dp) :: Mass(1)\n\n\nEND SUBROUTINE GetMass\n\n! End of GetMass function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! Get_OHreactivity - returns the OH reactivity\n! The OH reactivity is defined as the inverse of its lifetime.\n! This routine was auto-generated using script OHreact_parser.py.\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Get_OHreactivity ( CC, RR, OHreact )\n\n! CC - Concentrations of species (local)\n  REAL(kind=dp) :: CC(NSPEC)\n! RR - reaction rates (local)\n  REAL(kind=dp) :: RR(NREACT)\n! OHreact - OH reactivity [s-1]\n  REAL(kind=dp) :: OHreact\n\n  OHreact = 0.0_dp\n\nEND SUBROUTINE Get_OHreactivity\n! End of Get_OHreactivity subroutine\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nEND MODULE gckpp_Util\n"
  },
  {
    "path": "KPP/carbon/util/expand_carbon_eqn.py",
    "content": "#!/usr/bin/env python3\n\n# Author: Dandan Zhang (Harvard)\n\nimport sys\nimport re\n\nif len(sys.argv) < 3:\n    print(\"Usage: expand_carbon_eqn.py carbon.eqn.template Njac\", file=sys.stderr)\n    sys.exit(1)\n\ninfile = sys.argv[1]\nNjac = int(sys.argv[2])\n\nwith open(infile, \"r\") as f:\n    lines = f.readlines()\n\nout_lines = []\n\nin_defvar = False\nin_equations = False\n\nfor line in lines:\n    stripped = line.lstrip()\n    tokens = stripped.split()\n\n    # Section markers\n    if stripped.startswith(\"#DEFVAR\"):\n        in_defvar = True\n        in_equations = False\n        out_lines.append(line)\n        continue\n\n    if stripped.startswith(\"#DEFFIX\"):\n        in_defvar = False\n        in_equations = False\n        out_lines.append(line)\n        continue\n\n    if stripped.startswith(\"#EQUATIONS\"):\n        in_defvar = False\n        in_equations = True\n        out_lines.append(line)\n        continue\n\n    # Always keep the original line\n    out_lines.append(line)\n\n    # =====================================================\n    # 1) DEFVAR expansions: CH4_jacXXXX and L* dummy species\n    # =====================================================\n    if in_defvar and tokens:\n        key = tokens[0]\n\n        # CH4 main species -> CH4_jac000N\n        if key == \"CH4\" and len(tokens) > 1 and tokens[1] == \"=\":\n            for k in range(1, Njac + 1):\n                idx = f\"{k:04d}\"\n                out_lines.append(\n                    f\"CH4_jac{idx}   = IGNORE;  {{ Active methane Jacobian tracer }}\\n\"\n                )\n\n        # LCH4byOH -> LCH4byOH_jac000N\n        elif key == \"LCH4byOH\":\n            for k in range(1, Njac + 1):\n                idx = f\"{k:04d}\"\n                out_lines.append(\n                    f\"LCH4byOH_jac{idx} = IGNORE;  \"\n                    f\"{{ Dummy spc to track loss of CH4_jac{idx} by OH     }}\\n\"\n                )\n\n        # LCH4byCl -> LCH4byCl_jac000N\n        elif key == \"LCH4byCl\":\n            for k in range(1, Njac + 1):\n                idx = f\"{k:04d}\"\n                out_lines.append(\n                    f\"LCH4byCl_jac{idx} = IGNORE;  \"\n                    f\"{{ Dummy spc to track loss of CH4_jac{idx} by Cl     }}\\n\"\n                )\n\n        # LCH4inStrat -> LCH4inStrat_jac000N\n        elif key == \"LCH4inStrat\":\n            for k in range(1, Njac + 1):\n                idx = f\"{k:04d}\"\n                out_lines.append(\n                    f\"LCH4inStrat_jac{idx} = IGNORE;  \"\n                    f\"{{ Dummy spc to track loss of CH4_jac{idx} in strat }}\\n\"\n                )\n\n    # =====================================================\n    # 2) EQUATIONS expansions: CH4 reactions -> CH4_jac000N\n    # =====================================================\n    if in_equations and tokens and tokens[0] == \"CH4\":\n        # We need to find the product species (right after \"=\")\n        eq_pos = line.find(\"=\")\n        if eq_pos == -1:\n            continue  # not an equation line we care about\n\n        # substring after \"=\" up to \":\" (if present)\n        rest = line[eq_pos + 1 :]\n        colon_pos = rest.find(\":\")\n        if colon_pos != -1:\n            lhs_products = rest[:colon_pos]\n        else:\n            lhs_products = rest\n\n        lhs_products_stripped = lhs_products.strip()\n        if not lhs_products_stripped:\n            continue\n\n        prod = lhs_products_stripped.split()[0]  # e.g. LCH4byOH, LCH4byCl, LCH4inStrat\n\n        for k in range(1, Njac + 1):\n            idx = f\"{k:04d}\"\n            new_line = line\n\n            # Replace CH4 with CH4_jacXXXX as a whole word (avoid touching LCH4...)\n            new_line = re.sub(r\"\\bCH4\\b\", f\"CH4_jac{idx}\", new_line)\n\n            # Replace the product species once with product_jacXXXX\n            new_line = re.sub(\n                rf\"\\b{re.escape(prod)}\\b\",\n                f\"{prod}_jac{idx}\",\n                new_line,\n                count=1,\n            )\n\n            out_lines.append(new_line)\n\n# Write result to stdout\nsys.stdout.writelines(out_lines)\n"
  },
  {
    "path": "KPP/custom/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "KPP/custom/CMakeLists.txt",
    "content": "# KPP/custom/CMakeLists.txt\n\n#----------------------------------------------------------------------------\n# Determine KPP integrator name and set corresponding C-preprocessor flags.\n# This enables integrator-specific handling in the custom mechanism.\n#----------------------------------------------------------------------------\n\n# Get integrator name\nEXECUTE_PROCESS(\n  COMMAND grep \\#INTEGRATOR ${CMAKE_CURRENT_SOURCE_DIR}/custom.kpp\n  OUTPUT_VARIABLE RESULT\n)\nseparate_arguments(SUBSTRINGS UNIX_COMMAND \"${RESULT}\")\nlist(GET SUBSTRINGS 1 KPP_INTEGRATOR_NAME)\nstring(TOLOWER \"${KPP_INTEGRATOR_NAME}\" KPP_INTEGRATOR_NAME)\n\n# Set C-preprocessor flags\nif(KPP_INTEGRATOR_NAME STREQUAL \"rosenbrock_autoreduce\")\n  set(KPP_INTEGRATOR_AUTOREDUCE ON CACHE BOOL\n      \"Integrator is rosenbrock_autoreduce?\")\n  target_compile_definitions(\n    GEOSChemBuildProperties INTERFACE KPP_INTEGRATOR_AUTOREDUCE\n  )\nendif()\n\n# Print results\ngc_pretty_print(SECTION \"KPP integrator (read from custom.kpp)\")\ngc_pretty_print(VARIABLE KPP_INTEGRATOR_NAME)\ngc_pretty_print(VARIABLE KPP_INTEGRATOR_AUTOREDUCE IS_BOOLEAN)\n\n#----------------------------------------------------------------------------\n# Add libKPPFirstPass.a -- custom mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP_FirstPass\n  STATIC EXCLUDE_FROM_ALL\n  gckpp_Precision.F90\n  gckpp_Parameters.F90\n  gckpp_Monitor.F90\n)\n\n# Dependencies\ntarget_link_libraries(KPP_FirstPass\n  PUBLIC\n  GEOSChemBuildProperties\n)\n\n#----------------------------------------------------------------------------\n# Add libKPP.a -- custom mechanism (edit as necessary)\n#----------------------------------------------------------------------------\nadd_library(KPP\n  STATIC EXCLUDE_FROM_ALL\n  commonIncludeVars.H\n  fullchem_AutoReduceFuncs.F90\n  fullchem_HetStateFuncs.F90\n  fullchem_RateLawFuncs.F90\n  fullchem_SulfurChemFuncs.F90\n  gckpp_Function.F90\n  gckpp_Global.F90\n  gckpp_Initialize.F90\n  gckpp_Integrator.F90\n  gckpp_Jacobian.F90\n  gckpp_JacobianSP.F90\n  gckpp_LinearAlgebra.F90\n  gckpp_Model.F90\n  gckpp_Monitor.F90\n  gckpp_Parameters.F90\n  gckpp_Precision.F90\n  gckpp_Rates.F90\n  gckpp_Util.F90\n  rateLawUtilFuncs.F90\n  #\n  # Build these stub modules to avoid compilation errors.\n  # These are symbolic links to files in the ../stubs folder.\n  #\n  stub_aciduptake_DustChemFuncs.F90\n  stub_carbon_Funcs.F90\n  stub_Hg_HetStateFuncs.F90\n)\n\n# Dependencies\ntarget_link_libraries(KPP\n  PUBLIC\n  GeosUtil\n)\n\n# Treat REAL as if it were REAL*8\ntarget_compile_options(KPP\n  PRIVATE \"\"\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"Intel\">:-r8>\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"GNU\">:-fdefault-real-8 -fdefault-double-8>\n)\n\n# FOR GFORTRAN ONLY: Disable variable tracking for gckpp_Jacobian.F90 in the\n# KPP/fullchem mechanism generated with KPP.  This will avoid a compiler\n# warning and a restart of the KPP library build.  This only has to be done\n# for release types \"Release\" and \"RelWithDebugInfo\".\n#   -- Bob Yantosca (16 Feb 2023)\nif(\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"GNU\")\n  if(NOT (\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"Debug\"))\n    set_source_files_properties(gckpp_Jacobian.F90\n      PROPERTIES\n      COMPILE_OPTIONS -fno-var-tracking-assignments\n    )\n  endif()\nendif()\n"
  },
  {
    "path": "KPP/custom/README.md",
    "content": "# Custom KPP mechanism folder\n\nThis folder is where you can add your own modified KPP mechanism.\nThe default files in this folder are based on the fullchem mechanism.\n\n## User-modifiable configuration files\n\n  1. **custom.kpp**: Master KPP specification file (which is a copy of\n     ../fullchem/fullchem.kpp).  The **gckpp.kpp* file symbolically\n     links to this file.\n\n  2. **custom.eqn**: KPP equation file (which is a copy of\n     ../fullchem/fullchem.eqn).\n\nThe following files link to files in the KPP/fullchem folder.  If you\nneed to modify these, consider removing the symbolic links and making\na copy of these files.  You can rename these to custom_*.F90, etc.\n\n  3. **fullchem_HetStateFuncs.F90**: This is a symbolic link to the\n     file ../fullchem/fullchem_HetStateFuncs.F90, which is the module\n\t containing functions that initialize the HetChem state object.\n\t This module is only needed for full-chemistry simulations.\n\n  4. **fullchem_SulfurChemFuncs.F90**: This is a symbolic link to the\n     file ../fullchem/fullchem_SulfurChemFuncs.F90.  This contains\n     subroutines to compute rates for SO2 reactions in cloud,\n\t and only applies to full-chemistry simulations.\n\n  5. **fullchem_RateLawFuncs.F90**: This is a symbolic link to the\n     file ../fullchem/fullchem_RateLawFuncs.F90.  This contains\n     functions to compute rates for heterogenous chemistry reactions,\n\t and only applies to full-chemistry simulations.\n\n  6. **rateLawUtilFuncs.F90**: This module contains several utility\n     functions for heterogeneous chemistry reactions (mostly for the\n\t full-chemistry simulations).\n\n  7. **commonIncludeVars.H**: This contains common global variables\n     used by the KPP mechanisms in GEOS-Chem.  These will be inlined\n     into the gckpp_Global.F90 file.\n\nThe following files link to the KPP/stubs folder.  These include stub\nsubroutines that are used by other chemical mechanisms.  The stubs are\nneeded in order to avoid compilation errors.\n\n  1. **stub_aciduptake_DustChemFuncs.F90** Stub routines corresponding\n     to the KPP/aciduptake/aciduptake_DustChemFuncs.F90 module,\n\n  2. **stub_Hg_HetStateFuncs.F90**: Stub routines corresponding\n     to the KPP/Hg/Hg_HetStateFuncs.F90 module.\n\n## Files generated by KPP\n\nWith the exception of the symbolic link gckpp.kpp, all files starting\nwith the prefix \"gckpp_\" are generated by KPP.  These contain the\nspecifications of the chemical mechanism in efficient source code.\n\nFor more information, please see:\n\n  1. KPP documentation at: https://kpp.readthedocs.io\n\n  2. [Guide to Using KPP with GEOS-Chem](https://geos-chem.readthedocs.io/en/latest/geos-chem-shared-docs/supplemental-guides/using-kpp-with-gc.html)\n"
  },
  {
    "path": "KPP/custom/custom.eqn",
    "content": "{ custom.eqn\n\n-------------------------------------------------------------------------------\nDESCRIPTION\n-------------------------------------------------------------------------------\n\nGEOS-Chem KPP file containing species and equations for the full chemistry\n(NOx-Ox-HC-Aer-Br-Cl-I) mechanism.\n\n===============================================================================\nFILE HISTORY\n===============================================================================\n\nVersion: 14.5.0\n\nPlease see \"CHANGELOG_fullchem.md\" in this folder for the revision history\nof the fullchem mechanism.\n\n===============================================================================\nDEVELOPERS (initials and email/GitHub)\n===============================================================================\n\n* BA   :  Becky Alexander          : @beckyalexander\n* BH   :  Rebekah (Bex) Horner     : @bexhorner\n* BHH  :  Barron Henderson         : @barronh\n* BMY  :  Bob Yantosca             : @yantosca\n* CCM  :  Christopher Chan Miller  : cmiller@fas.harvard.edu\n* CDH  :  Christopher Holmes       : @cdholmes\n* DBM  :  Dylan Millet             : @dylanbm\n* EAM  :  Eloise Marais            : @eamarais\n* ECB  :  Ellie Browne             : eleanor.browne@colorado.edu\n* EVF  :  Emily Fischer            : evf@rams.colostate.edu\n* EWL  :  Lizzie Lundgren          : @lizziel\n* FP   :  Fabien Paulot            : fabien.paulot@noaa.gov\n* HOTP :  Havala Pye               : pye.havala@epa.gov\n* JAF  :  Jenny Fisher             : @jennyfisher\n* JAS  :  Johan Schmidt            : johanalbrechtschmidt@gmail.com\n* JFB  :  Jared Brewer             : @JFBrewer\n* JMAO :  Jingqiu Mao              : @jingqiumao\n* JMM  :  Jonathan Moch            : jmoch@g.harvard.edu\n* JPP  :  Justin Parrella          : justin.parrella@gmail.com\n* KHB  :  Kelvin Bates             : @kelvinhb\n* KRT  :  Katie Travis             : @ktravis213\n* LZHU :  Lei Zhu                  : leizhu@fas.harvard.edu\n* MJE  :  Mat Evans                : @msl3v\n* MPS  :  Melissa Sulprizio        : @msulprizio\n* MSL  :  Michael Long             : @msl3v\n* PK   :  Prasad Kasibhatla        : @pkasibhatla\n* QJC  :  Qianjie Chen             : chenqjie@uw.edu\n* RHS  :  Rebecca Schwantes        : rschwant@caltech.edu\n* SAS  :  Sarah Safieddine         : sarahsaf@mit.edu\n* SDE  :  Sebastian Eastham        : @sdeastham\n* TMS  :  Tomas Sherwen            : @tsherwen\n* TSC  :  Therese Carter           : @tscarter\n* XC   :  Xin Chen                 : @xin-chen-github\n* XW   :  Xuan Wang                : @xuanw0316\n\n===============================================================================\nREFERENCES (alphabetical order)\n===============================================================================\n* Atkinson2003   : https://doi.org/10.1021/cr0206420\n* Atkinson2006   : https://doi.org/10.5194/acp-6-3625-2006\n* Bates2014      : https://doi.org/10.1021/jp4107958\n* Bates2019      : https://doi.org/10.5194/acp-19-9613-2019\n* Bates2021a     : https://doi.org/10.1029/2020JD033439\n* Bates2021b     : https://doi.org/10.5194/acp-2021-605\n* Brewer2023     : https://doi.org/10.1029/2022JD037257\n* Browne2011     : https://doi.org/10.5194/acp-11-4209-2011\n* Browne2014     : https://doi.org/10.5194/acp-14-1225-2014\n* Carter2022     : https://doi.org/10.5194/acp-22-12093-2022\n* Chen2017       : https://doi.org/10.1002/2017GL073812\n* Crounse2012    : https://doi.org/10.1021/jp211560u\n* Eastham2014    : https://doi.org/10.1016/j.atmosenv.2014.02.001\n* Fischer2014    : https://doi.org/10.5194/acp-14-2679-2014\n* Fisher2016     : https://doi.org/10.5194/acp-16-5969-2016\n* Fisher2018     : https://doi.org/10.1029/2018JD029046\n* Fry2014        : https://doi.org/10.1021/es502204x\n* Gill2002       : https://doi.org/10.1021/jp013532, 2002.\n* Goliff2013     : https://doi.org/10.1016/j.atmosenv.2012.11.038\n* Jacobs2014     : https://doi.org/10.5194/acp-14-8933-2014\n* Jenkin2015     : https://doi.org/10.5194/acp-15-11433-2015\n* Kasibhatla2018 : https://doi.org/10.5194/acp-18-11185-2018\n* IUPAC ROO_19   : https://iupac-aeris.ipsl.fr/htdocs/datasheets/pdf/ROO_19_CH3O2_NO3.pdf\n* JPL 10-6       : https://jpldataeval.jpl.nasa.gov/previous_evaluations.html\n* JPL 15-10      : https://jpldataeval.jpl.nasa.gov/previous_evaluations.html\n* JPL 19-5       : https://jpldataeval.jpl.nasa.gov\n* Kwon2020       : https://doi.org/10.1525/elementa.2021.00109\n* Lee2014        : https://doi.org/10.1021/jp4107603\n* Marais2016     : https://doi.org/10.5194/acp-16-1603-2016\n* MCMv3.3        : https://mcm.york.ac.uk/MCM/\n* Miller2017     : https://doi.org/10.5194/acp-2016-1042\n* Millet2015     : https://doi.org/10.5194/acp-15-6283-2015\n* Moch2020       : https;//doi.org/10.1029/2020JD032706, 2020.\n* Muller2014     : https://doi.org/10.5194/acp-14-2497-2014\n* Parrella2012   : https://doi.org/10.5194/acp-12-6723-2012\n* Paulot2009     : https://doi.org/10.5194/acp-9-1479-2009 and \n                   https://doi.org/10.1126/science.1172910\n* Peeters2010    : https://doi.org/10.1039/C0CP00811G\n* Peeters2014    : https://doi.org/10.1021/jp5033146.\n* Pye2010        : https://doi.org/10.5194/acp-10-11261-2010\n* Roberts1992    : https://doi.org/10.1002/kin.550240307\n* Sherwen2016b   : https://doi.org/10.5194/acp-16-12239-2016\n* Sherwen2017    : https://doi.org/10.1039/C7FD00026J\n* StClair2016    : https://doi.org/10.1021/acs.jpca.5b065322016\n* Travis2016     : https://doi.org/10.5194/acp-16-13561-2016\n* Travis2024     : https://doi.org/10.5194/egusphere-2024-951\n* Wolfe2012      : https://doi.org/ 10.1039/C2CP40388A, 2012\n* Xie2013        : https://doi.org/10.5194/acp-13-8439-2013\n\n===============================================================================\nNOTES\n===============================================================================\n\nComment format is\n Species   - Molecular formula; full name\n Equations - Date modified; Reference; Developer initials\n}\n\n#include atoms.kpp\n\n#DEFVAR\n\nA3O2       = IGNORE; {CH3CH2CH2OO; Primary RO2 from C3H8}\nACR        = IGNORE; {C3H4O, Acrolein}\nACRO2      = IGNORE; {C3H5O4}\nACO3       = IGNORE; {C3H3O3}\nACET       = IGNORE; {CH3C(O)CH3; Acetone}\nACTA       = IGNORE; {CH3C(O)OH; Acetic acid}\nAERI       = IGNORE; {I; Dissolved iodine}\nALD2       = IGNORE; {CH3CHO; Acetaldehyde}\nALK4       = IGNORE; {>= C4 alkanes}\nALK4N1     = IGNORE; {RO2 from ALKN2}\nALK4N2     = IGNORE; {RO2NO; >= C4 alkylnitrates from ALK4}\nALK4O2     = IGNORE; {RO2 from ALK4}\nALK4P      = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from ALK4O2}\nALK6       = IGNORE; {>= C6 alkanes}\nAONITA     = IGNORE; {Aerosol-phase organic nitrate from aromatic precursors}\nAPAN       = IGNORE; {C3H3NO5; Acryloyl peroxynitrate}\nAROMCHO    = IGNORE; {C5H6O4}\nAROMRO2    = IGNORE; {generic peroxy radical from aromatic oxidation}\nAROMP4     = IGNORE; {Generic C4 product from aromatic oxidation}\nAROMP5     = IGNORE; {Generic C5 product from aromatic oxidation}\nAROMPN     = IGNORE; {Lumped aromatic PN}\nAROMCO3    = IGNORE; {Lumped aromatic acyl peroxy radical}\nATO2       = IGNORE; {CH3C(O)CH2O2; RO2 from acetone}\nATOOH      = IGNORE; {CH3C(O)CH2OOH; ATO2 peroxide}\nB3O2       = IGNORE; {CH3CH(OO)CH3; Secondary RO2 from C3H8}\nBALD       = IGNORE; {benzaldehyde and tolualdehyde}\nBENZ       = IGNORE; {C6H6; Benzene}\nBENZO      = IGNORE; {C6H5O radical}\nBENZO2     = IGNORE; {C6H5O2 radical}\nBENZP      = IGNORE; {hydroperoxide from BENZO2}\nBr         = IGNORE; {Br; Atomic bromine}\nBr2        = IGNORE; {Br2; Molecular bromine}\nBrCl       = IGNORE; {BrCl; Bromine chloride}\nBrNO2      = IGNORE; {BrNO2; Nitryl bromide}\nBrNO3      = IGNORE; {BrNO3; Bromine nitrate}\nBrO        = IGNORE; {BrO; Bromine monoxide}\nBRO2       = IGNORE; {C6H5O2 ; Peroxy radical from BENZ oxidation}\nBrSALA     = IGNORE; {Br; Fine sea salt bromine}\nBrSALC     = IGNORE; {Br; Course sea salt bromine}\nBUTDI      = IGNORE; {Butenedial}\nBUTN       = IGNORE; {BUTN; alkyl nitrate from C4H6}\nBUTO2      = IGNORE; {C4H7O3}\nBZCO3      = IGNORE; {benzoylperoxy radical}\nBZCO3H     = IGNORE; {perbenzoic acid}\nBZPAN      = IGNORE; {peroxybenzoyl nitrate}\nC2H2       = IGNORE; {C2H2; Ethyne}\nC2H4       = IGNORE; {Ethylene}\nC2H6       = IGNORE; {C2H6; Ethane}\nC3H8       = IGNORE; {C3H8; Propane}\nC4H6       = IGNORE; {C4H6; 1,4 butadiene}\nC4HVP1     = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs}\nC4HVP2     = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs}\nCCl4       = IGNORE; {CCl4; Carbon tetrachloride}\nCFC11      = IGNORE; {CCl3F ; CFC-11, R-11, Freon 11}\nCFC12      = IGNORE; {CCl2F2; CFC-12, R-12, Freon 12}\nCFC113     = IGNORE; {C2Cl3F3; CFC-113, Freon 113}\nCFC114     = IGNORE; {C2Cl2F4; CFC-114, Freon 114}\nCFC115     = IGNORE; {C2ClF5; CFC-115, Freon 115}\nCH2Br2     = IGNORE; {CH3Br2; Dibromomethane}\nCH2Cl2     = IGNORE; {CH2Cl2; Dichloromethane}\nCH2I2      = IGNORE; {CH2I2; Diiodomethane}\nCH2IBr     = IGNORE; {CH2IBr; Bromoiodomethane}\nCH2ICl     = IGNORE; {CH2ICl; Chloroiodomethane}\nCH2O       = IGNORE; {CH2O; Formaldehyde}\nCH2OO      = IGNORE; {CH2OO; Criegee intermediate}\nCH3Br      = IGNORE; {CH3Br; Methyl bromide}\nCH3CCl3    = IGNORE; {CH3CCl3; Methyl chloroform}\nCH3CHOO    = IGNORE; {CH3CHOO; Criegee intermediate}\nCH3Cl      = IGNORE; {CH3Cl; Chloromethane}\nCH3I       = IGNORE; {CH3I; Methyl iodide}\nCH4        = IGNORE; {CH4; Methane}\nCHBr3      = IGNORE; {CHBr3; Tribromethane}\nCHCl3      = IGNORE; {CHCl3; Chloroform}\nCl         = IGNORE; {Cl; Atomic chlorine}\nCl2        = IGNORE; {Cl2; Molecular chlorine}\nCl2O2      = IGNORE; {Cl2O2; Dichlorine dioxide}\nClNO2      = IGNORE; {ClNO2; Nitryl chloride}\nClNO3      = IGNORE; {ClONO2; Chlorine nitrate}\nClO        = IGNORE; {ClO; Chlorine monoxide}\nClOO       = IGNORE; {ClOO; Chlorine dioxide}\nCO         = IGNORE; {CO; Carbon monoxide}\nCO2        = IGNORE; {CO2; Carbon dioxide}\nCSL        = IGNORE; {cresols and xylols}\nDMS        = IGNORE; {(CH3)2S; Dimethylsulfide}\nEBZ        = IGNORE; {C6H5CH2CH3; Ethylbenzene}\nEOH        = IGNORE; {C2H5OH; Ethanol}\nETHLN      = IGNORE; {CHOCH2ONO2; Ethanal nitrate}\nETHN       = IGNORE; {stable hydroxy-nitrooxy-ethane}\nETHP       = IGNORE; {stable hydroxy-hydroperoxy-ethane}\nETNO3      = IGNORE; {C2H5ONO2; Ethyl nitrate}\nETO        = IGNORE; {hydroxy-alkoxy-ethane radical}\nETOO       = IGNORE; {hydroxy-peroxy-ethane radical, formed from ethene + OH}\nETO2       = IGNORE; {CH3CH2OO; Ethylperoxy radical}\nETP        = IGNORE; {CH3CH2OOH; Ethylhydroperoxide}\nFURA       = IGNORE; {FURAN conglomerate}\nGCO3       = IGNORE; {HOCH2CO3: PHAN peroxyacetyl radical}\nGLYC       = IGNORE; {HOCH2CHO; Glycoaldehyde}\nGLYX       = IGNORE; {CHOCHO; Glyoxal}\nH          = IGNORE; {H; Atomic hydrogen}\nH1211      = IGNORE; {CBrClF2; H-1211}\nH1301      = IGNORE; {CBrF3; H-1301}\nH2402      = IGNORE; {C2Br2F4; H-2402}\nH2O        = IGNORE; {H2O; Water vapor}\nH2O2       = IGNORE; {H2O2; Hydrogen peroxide}\nHAC        = IGNORE; {HOCH2C(O)CH3; Hydroxyacetone}\nHACTA      = IGNORE; {HOCH2CO2H; hydroxyacetic acid}\nHBr        = IGNORE; {HBr; Hypobromic acid}\nHC5A       = IGNORE; {C5H8O2; Isoprene-4,1-hydroxyaldehyde}\nHCFC123    = IGNORE; {C2HCl2F3; HCFC-123, R-123, Freon 123}\nHCFC141b   = IGNORE; {C(CH3)Cl2F; HCFC-141b, R-141b, Freon 141b}\nHCFC142b   = IGNORE; {C(CH3)ClF2; HCFC-142b, R-142b, Freon 142b}\nHCFC22     = IGNORE; {CHClF2 ; HCFC-22, R-22, Freon 22}\nHCl        = IGNORE; {HCl; Hydrochloric acid}\nHCOOH      = IGNORE; {HCOOH; Formic acid}\nHI         = IGNORE; {HI; Hydrogen iodide}\nHMHP       = IGNORE; {HOCH2OOH; Hydroxymethyl hydroperoxide}\nHMML       = IGNORE; {C4H6O3; Hydroxymethyl-methyl-a-lactone}\nHMS        = IGNORE; {HOCH2SO3-; hydroxymethanesulfonate}\nHNO2       = IGNORE; {HONO; Nitrous acid}\nHNO3       = IGNORE; {HNO3; Nitric acid}\nHNO4       = IGNORE; {HNO4; Pernitric acid}\nHO2        = IGNORE; {HO2; Hydroperoxyl radical}\nHOBr       = IGNORE; {HOBr; Hypobromous acid}\nHOCl       = IGNORE; {HOCl; Hypochlorous acid}\nHOI        = IGNORE; {HOI; Hypoiodous acid}\nHONIT      = IGNORE; {2nd gen monoterpene organic nitrate}\nHPALD1     = IGNORE; {O=CHC(CH3)=CHCH2OOH; d-4,1-C5-hydroperoxyaldehyde}\nHPALD1OO   = IGNORE; {peroxy radicals from HPALD1}\nHPALD2     = IGNORE; {HOOCH2C(CH3)=CHCH=O; d-1,4-C5-hydroperoxyaldehyde}\nHPALD2OO   = IGNORE; {peroxy radicals from HPALD2}\nHPALD3     = IGNORE; {O=CHC(CH3)OOHCH=CH2; b-2,1-C5-hydroperoxyaldehyde}\nHPALD4     = IGNORE; {CH2=C(CH3)CHOOHCH=O; b-3,4-C5-hydroperoxyaldehyde}\nHPETHNL    = IGNORE; {CHOCH2OOH; hydroperoxyethanal}\nI          = IGNORE; {I; Atmoic iodine}\nI2         = IGNORE; {I2; Molecular iodine}\nI2O2       = IGNORE; {I2O2; Diiodine dioxide}\nI2O3       = IGNORE; {I2O3; Diiodine trioxide}\nI2O4       = IGNORE; {I2O4; Diiodine tetraoxide}\nIBr        = IGNORE; {IBr; Iodine monobromide}\nICHE       = IGNORE; {C5H8O3; Isoprene hydroxy-carbonyl-epoxides}\nICHOO      = IGNORE; {peroxy radical from IEPOXD}\nICl        = IGNORE; {ICl; Iodine monochloride}\nICN        = IGNORE; {C5H7NO4; Lumped isoprene carbonyl nitrates}\nICNOO      = IGNORE; {peroxy radicals from ICN}\nICPDH      = IGNORE; {C5H10O5; Isoprene dihydroxy hydroperoxycarbonyl}\nIDC        = IGNORE; {C5H6O2; Lumped isoprene dicarbonyls}\nIDCHP      = IGNORE; {C5H8O5; Isoprene dicarbonyl hydroxy dihydroperoxide}\nIDHDP      = IGNORE; {C5H12O6; Isoprene dihydroxy dihydroperoxide}\nIDHNBOO    = IGNORE; {peroxy radicals from INPB}\nIDHNDOO1   = IGNORE; {peroxy radicals from INPD}\nIDHNDOO2   = IGNORE; {peroxy radicals from INPD}\nIDHPE      = IGNORE; {C5H10O5; Isoprene dihydroxy hydroperoxy epoxide}\nIDN        = IGNORE; {C5H8N2O6; Lumped isoprene dinitrates}\nIDNOO      = IGNORE; {peroxy radicals from IDN}\nIEPOXA     = IGNORE; {C5H10O3; trans-Beta isoprene epoxydiol}\nIEPOXAOO   = IGNORE; {peroxy radical from trans-Beta isoprene epoxydiol}\nIEPOXB     = IGNORE; {C5H10O3; cis-Beta isoprene epoxydiol}\nIEPOXBOO   = IGNORE; {peroxy radical from cis-Beta isoprene epoxydiol}\nIEPOXD     = IGNORE; {C5H10O3; Delta isoprene epoxydiol}\nIHN1       = IGNORE; {C5H9NO4; Isoprene-d-4-hydroxy-1-nitrate}\nIHN2       = IGNORE; {C5H9NO4; Isoprene-b-1-hydroxy-2-nitrate}\nIHN3       = IGNORE; {C5H9NO4; Isoprene-b-4-hydroxy-3-nitrate}\nIHN4       = IGNORE; {C5H9NO4; Isoprene-d-1-hydroxy-4-nitrate}\nIHOO1      = IGNORE; {peroxy radical from OH addition to isoprene at C1}\nIHOO4      = IGNORE; {peroxy radical from OH addition to isoprene at C4}\nIHPNBOO    = IGNORE; {peroxy radicals from INPB}\nIHPNDOO    = IGNORE; {peroxy radicals from INPD}\nIHPOO1     = IGNORE; {peroxy radical from ISOPOOH}\nIHPOO2     = IGNORE; {peroxy radical from ISOPOOH}\nIHPOO3     = IGNORE; {peroxy radical from ISOPOOH}\nINA        = IGNORE; {alkoxy radical from INO2D}\nINDIOL     = IGNORE; {Generic aerosol phase organonitrate hydrolysis product}\nINO        = IGNORE; {INO; Nitrosyl iodide}\nINO2B      = IGNORE; {beta-peroxy radicals from isoprene + NO3}\nINO2D      = IGNORE; {delta-peroxy radicals from isoprene + NO3}\nINPB       = IGNORE; {C5H9NO5; Lumped isoprene beta-hydroperoxy nitrates}\nINPD       = IGNORE; {C5H9NO5; Lumped isoprene delta-hydroperoxy nitrates}\nIO         = IGNORE; {IO; Iodine monoxide}\nIONITA     = IGNORE; {Aerosol-phase organic nitrate from isoprene precursors}\nIONO       = IGNORE; {IONO; Nitryl iodide}\nIONO2      = IGNORE; {IONO2; Iodine nitrate}\nIPRNO3     = IGNORE; {C3H8ONO2; Isopropyl nitrate}\nISALA      = IGNORE; {I; Fine sea salt iodine}\nISALC      = IGNORE; {I; Coarse sea salt iodine}\nISOP       = IGNORE; {CH2=C(CH3)CH=CH2; Isoprene}\nISOPNOO1   = IGNORE; {peroxy radicals from IHN2}\nISOPNOO2   = IGNORE; {peroxy radicals from IHN3}\nITCN       = IGNORE; {C5H9NO7; Lumped tetrafunctional isoprene carbonyl-nitrates}\nITHN       = IGNORE; {C5H11NO7; Lumped tetrafunctional isoprene hydroxynitrates}\nKO2        = IGNORE; {RO2 from >3 ketones}\nLBRO2H     = IGNORE; {Dummy spc to track oxidation of BRO2 by HO2}\nLBRO2N     = IGNORE; {Dummy spc to track oxidation of BRO2 by NO}\nLIMO       = IGNORE; {C10H16; Limonene}\nLIMO2      = IGNORE; {RO2 from LIMO}\nAPINP      = IGNORE;\nAPINN      = IGNORE;\nPINAL      = IGNORE;\nPINPAN     = IGNORE;\nPINONIC    = IGNORE;\nPINO3H     = IGNORE;\nC96O2H     = IGNORE;\nC96N       = IGNORE;\nBPINO      = IGNORE;\nBPINN      = IGNORE;\nBPINP      = IGNORE;\nBPINOOH    = IGNORE;\nBPINON     = IGNORE;\nLIMAL      = IGNORE;\nLIMN       = IGNORE;\nLIMKET     = IGNORE;\nLIMKB      = IGNORE;\nLIMNB      = IGNORE;\nLIMPAN     = IGNORE;\nLIMO2H     = IGNORE;\nLIMO3H     = IGNORE;\nMYRCO      = IGNORE;\nPIN        = IGNORE;\nAPINO2     = IGNORE;\nPINO3      = IGNORE;\nC96O2      = IGNORE;\nBPINO2     = IGNORE;\nBPINOO2    = IGNORE;\nLIMKO2     = IGNORE;\nLIMO3      = IGNORE;\nLISOPOH    = IGNORE; {Dummy spc to track oxidation of ISOP by OH}\nLISOPNO3   = IGNORE; {Dummy spc to track oxidation of ISOP by NO3}\nLNRO2H     = IGNORE; {Dummy spc to track oxidation of NRO2 by HO2}\nLNRO2N     = IGNORE; {Dummy spc to track oxidation of NRO2 by NO}\nLTRO2H     = IGNORE; {Dummy spc to track oxidation of TRO2 by HO2}\nLTRO2N     = IGNORE; {Dummy spc to track oxidation of TRO2 by NO}\nLVOC       = IGNORE; {C5H14O5; Gas-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation}\nLVOCOA     = IGNORE; {C5H14O5; Aerosol-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation}\nLXRO2H     = IGNORE; {Dummy spc to track oxidation of XRO2 by HO2}\nLXRO2N     = IGNORE; {Dummy spc to track oxidation of XRO2 by NO}\nMACR       = IGNORE; {CH2=C(CH3)CHO; Methacrolein}\nMACR1OO    = IGNORE; {peroxyacyl radical from MACR + OH}\nMACR1OOH   = IGNORE; {CH2=C(CH3)C(O)OOH; Peracid from MACR}\nMACRNO2    = IGNORE; {Product of MCRHN + OH}\nMAP        = IGNORE; {CH3C(O)OOH; Peroxyacetic acid}\nMCO3       = IGNORE; {CH3C(O)OO; Peroxyacetyl radical}\nMCRDH      = IGNORE; {C4H8O3; Dihydroxy-MACR}\nMCRENOL    = IGNORE; {C4H6O2; Lumped enols from MVK/MACR}\nMCRHN      = IGNORE; {HOCH2C(ONO2)(CH3)CHO; Hydroxynitrate from MACR}\nMCRHNB     = IGNORE; {O2NOCH2C(OH)(CH3)CHO; Hydroxynitrate from MACR}\nMCRHP      = IGNORE; {HOCH2C(OOH)(CH3)CHO; Hydroxy-hydroperoxy-MACR}\nMCROHOO    = IGNORE; {peroxy radical from MACR + OH}\nMCT        = IGNORE; {methylcatechols}\nMEKCO3     = IGNORE; {MEK peroxyacetyl radical}\nMEK        = IGNORE; {RC(O)R; Methyl ethyl ketone}\nMEKPN      = IGNORE; {MEK peroxynitrate, C3PAN1 from MCM}\nMENO3      = IGNORE; {CH3ONO2; methyl nitrate}\nMGLY       = IGNORE; {CH3COCHO; Methylglyoxal}\nMO2        = IGNORE; {CH3O2; Methylperoxy radical}\nMOH        = IGNORE; {CH3OH; Methanol}\nMONITA     = IGNORE; {Aerosol-phase organic nitrate from monoterpene precursors}\nMONITS     = IGNORE; {Saturated 1st gen monoterpene organic nitrate}\nMONITU     = IGNORE; {Unsaturated 1st gen monoterpene organic nitrate}\nMP         = IGNORE; {CH3OOH; Methylhydroperoxide}\nMPAN       = IGNORE; {CH2=C(CH3)C(O)OONO2; Peroxymethacroyl nitrate (PMN)}\nMPN        = IGNORE; {CH3O2NO2; Methyl peroxy nitrate}\nMSA        = IGNORE; {CH4SO3; Methanesulfonic acid}\nMTPA       = IGNORE; {Lumped monoterpenes: a-pinene, b-pinene, sabinene, carene}\nMTPO       = IGNORE; {Other monoterpenes: Terpinene, terpinolene, myrcene, ocimene, other monoterpenes}\nMVK        = IGNORE; {CH2=CHC(=O)CH3; Methyl vinyl ketone}\nMVKDH      = IGNORE; {HOCH2CH2OHC(O)CH3; Dihydroxy-MVK}\nMVKHC      = IGNORE; {C4H6O3; MVK hydroxy-carbonyl}\nMVKHCB     = IGNORE; {C4H6O3; MVK hydroxy-carbonyl}\nMVKHP      = IGNORE; {C4H8O4; MVK hydroxy-hydroperoxide}\nMVKN       = IGNORE; {HOCH2CH(ONO2)C(=O)CH3; Hydroxynitrate from MVK}\nMVKOHOO    = IGNORE; {peroxy radical from MVK + OH}\nMVKPC      = IGNORE; {OCHCH(OOH)C(O)CH3; MVK hydroperoxy-carbonyl}\nN          = IGNORE; {N; Atomic nitrogen}\nN2O        = IGNORE; {N2O; Nitrous oxide}\nN2O5       = IGNORE; {N2O5; Dinitrogen pentoxide}\nNAP        = IGNORE; {C10H8; Naphthalene; IVOC surrogate}\nNIT        = IGNORE; {NIT; Fine mode inorganic nitrate}\nNITs       = IGNORE; {NITs; Coarse mode inorganic nitrate}\nNO         = IGNORE; {NO; Nitric oxide}\nNO2        = IGNORE; {NO2; Nitrogen dioxide}\nNO3        = IGNORE; {NO3; Nitrate radical}\nNPHEN      = IGNORE; {nitrophenols}\nNPRNO3     = IGNORE; {C3H8ONO2; n-propyl nitrate}\nNRO2       = IGNORE; {Peroxy radical from NAP oxidation}\nO          = IGNORE; {O(3P); Ground state atomic oxygen}\nO1D        = IGNORE; {O(1D); Excited atomic oxygen}\nO3         = IGNORE; {O3; Ozone}\nO3A        = IGNORE; {O3; Ozone in accum seasalt}\nO3C        = IGNORE; {O3; Ozone in coarse seasalt}\nOClO       = IGNORE; {OClO; Chlorine dioxide}\nOCS        = IGNORE; {COS; Carbonyl sulfide}\nOH         = IGNORE; {OH; Hydroxyl radical}\nOIO        = IGNORE; {OIO; Iodine dioxide}\nOLND       = IGNORE; {Monoterpene-derived NO3-alkene adduct}\nOLNN       = IGNORE; {Monoterpene-derived NO3 adduct}\nOTHRO2     = IGNORE; {Other C2 RO2 not from C2H6 oxidation}\nPAN        = IGNORE; {CH3C(O)OONO2; Peroxyacetylnitrate}\nPHAN       = IGNORE; {OCC(=O)OON(=O)=O; peroxyhydroxyacetic nitric anhydride}\nPHEN       = IGNORE; {phenol}\nPIO2       = IGNORE; {RO2 from MTPA}\nPIP        = IGNORE; {Peroxides from MTPA}\nPO2        = IGNORE; {HOCH2CH(OO)CH3; RO2 from propene}\nPP         = IGNORE; {HOCH2CH(OOH)CH3; Peroxide from PO2}\nPPN        = IGNORE; {CH3CH2C(O)OONO2; Peroxypropionylnitrate}\nPRN1       = IGNORE; {O2NOCH2CH(OO)CH3; RO2 from propene + NO3}\nPROPNN     = IGNORE; {CH3C(=O)CH2ONO2; Propanone nitrate}\nPRPE       = IGNORE; {C3H6; >= C3 alkenes}\nPRPN       = IGNORE; {O2NOCH2CH(OOH)CH3; Peroxide from PRN1}\nPYAC       = IGNORE; {CH3COCOOH; Pyruvic acid}\nR4N1       = IGNORE; {RO2 from R4N2}\nR4N2       = IGNORE; {RO2NO; >= C4 alkylnitrates}\nR4O2       = IGNORE; {RO2 from >= C4 biogenic organics}\nR4P        = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from R4O2}\nR7O2       = IGNORE; {RO2 from ALK6}\nR7N1       = IGNORE; {RO2 from R7N2}\nR7P        = IGNORE; {Peroxide from R7O2}\nR7N2       = IGNORE; {RO2NO; >= C6 alkylnitrates}\nRA3P       = IGNORE; {CH3CH2CH2OOH; Peroxide from A3O2}\nRB3P       = IGNORE; {CH3CH(OOH)CH3; Peroxide from B3O2}\nRCHO       = IGNORE; {CH3CH2CHO; >= C3 aldehydes}\nRCO3       = IGNORE; {CH3CH2C(O)OO; Peroxypropionyl radical}\nRCOOH      = IGNORE; {C2H5C(O)OH; > C2 organic acids}\nRIPA       = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 1,2-ISOPOOH}\nRIPB       = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 4,3-ISOPOOH}\nRIPC       = IGNORE; {C5H10O3; d(1,4)-ISOPOOH}\nRIPD       = IGNORE; {C5H10O3; d(4,1)-ISOPOOH}\nRNO3       = IGNORE; {C7H9NO6; lumped aromatic alkyl nitrate}\nROH        = IGNORE; {C3H7OH; > C2 alcohols}\nRP         = IGNORE; {CH3CH2C(O)OOH; Peroxide from RCO3}\nSALAAL     = IGNORE; {Accumulation mode seasalt aerosol alkalinity}\nSALCAL     = IGNORE; {Coarse mode seasalt aerosol alkalinity}\nSALACL     = IGNORE; {Cl; Fine chloride}\nSALCCL     = IGNORE; {Cl; Coarse chloride}\nSALASO2    = IGNORE; {SO2; Fine seasalt}\nSALCSO2    = IGNORE; {SO2; Coarse seasalt}\nSALASO3    = IGNORE; {SO3--; Fine seasalt}\nSALCSO3    = IGNORE; {SO3--; Coarse chloride}\nSO2        = IGNORE; {SO2; Sulfur dioxide}\nSO4        = IGNORE; {SO4; Sulfate}\nSO4s       = IGNORE; {SO4 on sea-salt; Sulfate}\nSOAGX      = IGNORE; {CHOCHO; Aerosol-phase glyoxal}\nSOAIE      = IGNORE; {C5H10O3; Aerosol-phase IEPOX}\nSTYR       = IGNORE; {C6H5CHCH2; Styrene}\nTLFUONE    = IGNORE; {C5H6O2; lumped furanones}\nTLFUO2     = IGNORE; {C5H7O5; RO2 from TLFUONE}\nTMB        = IGNORE; {C6H3(CH3)3; Trimethylbenzenes}\nTOLU       = IGNORE; {C7H8; Toluene}\nTRO2       = IGNORE; {Peroxy radical from TOLU oxidation}\nXYLE       = IGNORE; {C8H10; Xylene}\nXRO2       = IGNORE; {Peroxy radical from XYLE oxidation}\nPH2SO4     = IGNORE; {SO4 from gas-phase chemistry}\nPSO4AQ     = IGNORE; {SO4 from cloud chemistry}\nZRO2       = IGNORE; {Lumped RO2 from aromatics}\n#DEFFIX\n\nH2         = IGNORE; {H2; Molecular hydrogen}\nN2         = IGNORE; {N2; Molecular nitrogen}\nO2         = IGNORE; {O2; Molecular oxygen}\n\n#EQUATIONS\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Reactions extracted from sulfate_mod.F90 (MSL, BMY)             %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Seasalt\nSO2  + SALAAL + O3  = SO4 - SALAAL       : K_MT(1);\nHCl  + SALAAL       = SALACL             : K_MT(2);\nHNO3 + SALAAL       = NIT                : K_MT(3);\nSO2  + SALCAL + O3  = SO4s - SALCAL      : K_MT(4);\nHCl  + SALCAL       = SALCCL             : K_MT(5);\nHNO3 + SALCAL       = NITs               : K_MT(6);\n//\n// Cloud\n// S(IV) --> S(VI)\nSO2 + H2O2          = SO4                : K_CLD(1);\nSO2 + O3            = SO4                : K_CLD(2);\nSO2 {+O2}           = SO4                : K_CLD(3);  {Mn & Fe catalysis + HET_DROP_CHEM()}\n//\n// HMS\nCH2O + SO2          = HMS                : K_CLD(4);        {Sep 2021; Moch2020; MSL}\nHMS                 = SO2 + CH2O         : K_CLD(5);        {Sep 2021; Moch2020; MSL}\nHMS + OH + SO2      = 2SO4 + CH2O + 2PSO4AQ : K_CLD(6);     {Sep 2021; Moch2020; MSL}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Gas-phase chemistry reactions                                   %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\n// NOTES:\n// ------\n// (1) Be sure to use \"D\" exponents to force double precision values!\n//     (i.e. write 1.70d-12 instead of 1.70e-12, etc.).\n//        -- Bob Yantosca (16 Dec 2020)\n//\n// (2) This file might not render properly if the right hand side of the\n//     equation is longer than ~100 characters.  This seems to be an issue\n//     with the KPP code itself.  See this Github issue at geoschem/KPP:\n//     https://github.com/geoschem/KPP/issues/1\n//        -- Bob Yantosca (16 Dec 2020)\n//\n// (3) To avoid useless CPU cycles, we have introduced new rate law functions\n//     that skip computing Arrhenius terms (and other terms) that would\n//     evaluate to 1.  The Arrhenius terms that are passed to the function\n//     are in most cases now noted in the function name (e.g. GCARR_abc takes\n//     Arrhenius A, B, C parameters but GCARR_ac only passes A and C\n//     parameters because B=0 and the (300/T)*B would evaluate to 1).\n//     This should be much more computationally efficient, as these functions\n//     are called (sometimes multiple times) for each grid box where we\n//     perform chemistry.\n//        -- Bob Yantosca (25 Jan 2020)\n//\nO3 + NO = NO2 + O2 :                         GCARR_ac(3.00d-12, -1500.0d0);\nO3 + OH = HO2 + O2 :                         GCARR_ac(1.70d-12, -940.0d0);\nO3 + HO2 = OH + O2 + O2 :                    GCARR_ac(1.00d-14, -490.0d0);\nO3 + NO2 = O2 + NO3 :                        GCARR_ac(1.20d-13, -2450.0d0);\nO3 + MO2 = CH2O + HO2 + O2 :                 GCARR_ac(2.90d-16, -1000.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + OH = H2O + O :                          1.80d-12;                                                                         {2014/02/03; Eastham2014; SDE}\nOH + OH {+M} = H2O2 :                        GCJPLPR_aba(6.90d-31, 1.0d+00, 2.6d-11, 0.6d0);\nOH + HO2 = H2O + O2 :                        GCARR_ac(4.80d-11, 250.0d0);\nOH + H2O2 = H2O + HO2 :                      1.80d-12;\nHO2 + NO = OH + NO2 :                        GCARR_ac(3.44d-12, 260.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + HO2 = H2O2 + O2 :                      GC_HO2HO2_acac(3.00d-13, 460.0d0, 2.1d-33, 920.0d0);                              {2014/02/03; Eastham2014; SDE}\nOH + CO = HO2 + CO2 :                        GCJPLPR_abab(6.9d-33,2.1d0,1.1d-12,-1.3d0,0.6d0) + GCJPLAC_ababac(6.9d-33,2.1d0,1.1d-12,-1.3d0,1.85d-13,-6.5d1,0.6d0); {2023/04/18; JPL 19-5; KHB}\nOH + CH4 = MO2 + H2O :                       GCARR_ac(2.45d-12, -1775.0d0);\nMO2 + NO = CH2O + HO2 + NO2 :                GC_RO2NO_B1_ac(2.80d-12, 300.0d0);                                                {2019/05/10; Fisher2018; JAF}\nMO2 + NO = MENO3 :                           GC_RO2NO_A1_ac(2.80d-12, 300.0d0);                                                {2019/05/10; Fisher2018; JAF}\nMO2 + HO2 = MP + O2 :                        GCARR_ac(4.10d-13, 750.0d0);\nMO2 + MO2 = MOH + CH2O + O2 :                GC_TBRANCH_1_acac(9.50d-14, 390.0d0, 2.62d1, -1130.0d0);\nMO2 + MO2 = 2.000CH2O + 2.000HO2 :           GC_TBRANCH_1_acac(9.50d-14, 390.0d0, 4.0d-2, 1130.0d0);\nMO2 + OH = 0.13MOH + 0.87CH2O + 1.74HO2 :    1.60d-10 ;                                                                        {2021/09/22; Bates2021a; KHB,MSL}\nMP + OH = 0.700MO2 + 0.300OH +\n 0.300CH2O + H2O :                           GCARR_ac(3.80d-12, 200.0d0);\nATOOH + OH = 0.700ATO2 + 0.300MGLY +\n 0.300OH + H2O :                             GCARR_ac(3.80d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nCH2O + OH = CO + HO2 + H2O :                 GCARR_ac(5.50d-12, 125.0d0);\nNO2 + OH {+M} = HNO3 {+M} :                  GCJPLPR_aba(1.80d-30, 3.0d+00, 2.8d-11, 0.6d0);\nHNO3 + OH = H2O + NO3 :                      GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0) + GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,0.6d0); {2023/04/18; JPL 19-5; KHB}\nNO + OH {+M} = HNO2 {+M} :                   GCJPLPR_abab(7.00d-31, 2.6d+00, 3.60d-11, 0.1d0, 0.6d0);\nHNO2 + OH = H2O + NO2 :                      GCARR_ac(3.00d-12, 250.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + NO2 {+M} = HNO4 {+M} :                 GCJPLPR_abab(1.90d-31, 3.4d+00, 4.0d-12, 0.3d0, 0.6d0);                           {2017/02/22; JPL 15-10; BHH,MJE}\nHNO4 {+M} = HO2 + NO2 :                      GCJPLPR_abcabc(9.05d-05, 3.4d0, -10900.0d0, 1.90d15, 0.3d0, -10900.0d0, 0.6d0);   {2017/02/22; JPL 15-10; BHH,MJE}\nHNO4 + OH = H2O + NO2 + O2 :                 GCARR_ac(4.50d-13, 610.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + NO3 = OH + NO2 + O2 :                  3.50d-12;\nNO + NO3 = 2.000NO2 :                        GCARR_ac(1.70d-11, 125.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nOH + NO3 = HO2 + NO2 :                       2.00d-11;                                                                         {2023/04/18; JPL 19-5; KHB}\nNO2 + NO3 {+M} = N2O5 {+M} :                 GCJPLPR_abab(2.40d-30, 3.0d+00, 1.6d-12, -0.1d0, 0.6d0);                          {2017/02/22; JPL 15-10; BHH,MJE}\nN2O5 {+M} = NO2 + NO3 :                      GCJPLPR_abcabc(4.14d-04, 3.0d0, -10840.0d0, 2.76d14, -0.1d0, -10840.0d0, 0.6d0);  {2017/02/22; JPL 15-10; BHH,MJE}\nHCOOH + OH = H2O + CO2 + HO2 :               4.00d-13;                                                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMOH + OH = HO2 + CH2O :                      GCARR_ac(2.90d-12, -345.0d0);\nNO2 + NO3 = NO + NO2 + O2 :                  GCARR_ac(4.35d-14, -1335.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nNO3 + CH2O = HNO3 + HO2 + CO :               5.80d-16;\nALD2 + OH = 0.950MCO3 + 0.050CH2O +\n 0.050CO + 0.050HO2 + H2O :                  GCARR_ac(4.63d-12, 350.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nALD2 + NO3 = HNO3 + MCO3 :                   GCARR_ac(1.40d-12, -1900.0d0);\nMCO3 + NO2 {+M} = PAN :                      GCJPLPR_abab(7.30d-29, 4.1d+00, 9.5d-12, 1.6d0, 0.6d0);                           {2023/04/18; JPL 19-5; KHB}\nPAN = MCO3 + NO2 :                           GCJPLEQ_acabab(9.00d-29, 14000.0d0, 7.3d-29, 4.1d0, 9.5d-12, 1.6d0, 0.6d0);       {2023/04/18; JPL 19-5; KHB}\nPAN + OH = CH2O + CO + NO2 :                 3.00d-14 ;\nMCO3 + NO = MO2 + NO2 + CO2 :                GCARR_ac(8.10d-12, 270.0d0);\nC2H6 + OH = ETO2 + H2O :                     GCARR_ac(7.66d-12, -1020.0d0);                                                    {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nETO2 + NO = ALD2 + NO2 + HO2 :               GC_RO2NO_B2_aca(2.60d-12, 365.0d0, 2.0d0);                                        {2019/05/10; Fisher2018; JAF}\nETO2 + NO = ETNO3 :                          GC_RO2NO_A2_aca(2.60d-12, 365.0d0, 2.0d0);                                        {2019/05/10; Fisher2018; JAF}\nOTHRO2 + NO = ALD2 + NO2 + HO2 :             GCARR_ac(2.60d-12, 365.0d0);                                                      {2019/05/10; Fisher2018; JAF}\nC3H8 + OH = B3O2 :                           GCARR_abc(8.54d-13,1.54d0,-19.0d0);                                               {2023/04/18; JPL 19-5; KHB}\nC3H8 + OH = A3O2 :                           GCARR_abc(1.97d-12,1.23d0,-675.0d0);                                              {2023/04/18; JPL 19-5; KHB}\nA3O2 + NO = NO2 + HO2 + RCHO :               GC_RO2NO_B2_aca(2.90d-12, 350.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nA3O2 + NO = NPRNO3 :                         GC_RO2NO_A2_aca(2.90d-12, 350.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nPO2 + NO = NO2 + HO2 + CH2O + ALD2 :         GCARR_ac(2.70d-12, 350.0d0);\n// --- ALK6 chemistry from Lurman et al., 1986\nALK6 + OH = R7O2 :                           GCARR_ac(2.00d-11, -359.0d0);\nALK6 + NO3 = HNO3 + R7O2 :                   6.0d-17;\nR7O2 + NO = NO2 + 0.750RCHO + 0.250R4O2 + \n 0.250MEK + 0.750HO2 :                       GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 7.0d0);     \nR7O2 + NO = R7N2 :                           GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 7.0d0);\nR7O2 + HO2 = R7P :                           3.0d-12;\nR7P + OH = 0.500OH + 0.500R7O2 + 0.500RCHO : 1.00d-11;                                     {}\nR7N2 + OH = R7N1 + H2O :                     4.00d-12;\nR7N1 + NO = 2.000NO2 + 0.980CH2O +\n 0.650ALD2 + 1.240RCHO :                     GCARR_ac(4.20d-12, 180.0d0);                  {}\nR7N1 + HO2 = R7N2 :                          GCARR_ac(7.40d-13, 700.0d0);\n// ----- C4H6 --> APAN --- currently no RO2 RO2\nC4H6 + OH = BUTO2 :                          GCARR_ac(1.48d-11, 448.0d0);\nC4H6 + NO3 = ACR + CH2O + NO2 :              1.03d-13;\nC4H6 + O3 = ACR + CH2O :                     GCARR_ac(1.34d-14,-2283.0d0);\nBUTO2 + NO = 0.058BUTN + 0.730ACR +\n 0.603CH2O + 0.513HO2 + 0.942NO2 +\n 0.326RCHO :                                 GCARR_ac(2.70d-12, 360.0d0); { krt, MCM}\nBUTO2 + HO2 = 0.659GLYC + 0.894RCHO :        GCARR_ac(1.82d-13,1300d0); {MCM}\nBUTN + OH = GLYC + NO2 + CH2O + HO2 +\n CO :                                        3.59d-11; {krt, MCM}\nACR + OH = 0.680ACO3 + 0.255ACRO2 +\n 0.065CH2O + 0.065GLYX + 0.425HO2  :         2.00d-11; {krt, MCM} \nACRO2 + NO = GLYC + NO2 + HO2 + CO :         GCARR_ac(2.70d-12,360.0d0) ;{krt, MCM}\nACRO2 + HO2 = GLYC + HO2 + CO :              GCARR_ac(1.51d-13,1300.0d0) ;{krt, MCM}\nACO3 + HO2 = CO + CH2O + 0.500GLYC +\n 0.250HO2 + 0.250OH :                        GCARR_ac(5.2d-13, 980.0d0) ; {krt, MCM}\nACO3 + NO = HO2 + CO + CH2O + NO2 :          GCARR_ac(7.5d-12, 290.0d0) ; {krt, MCM}\nACO3 + NO2 {+M} = APAN :                     GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);\nAPAN = ACO3 + NO2 :                          GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nAPAN + OH = GLYC + CO + NO3 :                1.47d-11 ; {krt, MCM}\n//\nALK4 + OH = R4O2 :                           GCARR_ac(9.10d-12, -405.0d0);\nALK4O2 + NO = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/05/14; Brewer2023; JFB}\nALK4O2 + NO = ALK4N2 :                       GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/05/14; Brewer2023; JFB}\nALK4N1 + NO = 2.000NO2 + 0.640RCHO +\n 0.970ALD2 + 0.640CH2O :                     GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nR4O2 + NO = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/04/18; Bates2023; KHB}\nR4O2 + NO = R4N2 :                           GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0);\nR4N1 + NO = 2.000NO2 + 0.640RCHO +\n 0.970ALD2 + 0.640CH2O :                     GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/04/18; Bates2023; KHB}\nATO2 + NO = NO2 + CH2O + MCO3 :              GCARR_ac(2.90d-12, 300.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nKO2 + NO = 0.928NO2 + 0.919ALD2 +\n 0.919MCO3 + 0.072ALK4N2 :                   GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB}\nB3O2 + NO = NO2 + HO2 + ACET :               GC_RO2NO_B2_aca(2.70d-12, 360.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nB3O2 + NO = IPRNO3 :                         GC_RO2NO_A2_aca(2.70d-12, 360.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nPRN1 + NO = 2.000NO2 + CH2O + ALD2 :         GCARR_ac(2.70d-12, 350.0d0);\nALK4 + NO3 = HNO3 + ALK4O2 :                 GCARR_ac(2.80d-12, -3280.0d0);\t\t\t\t\t\t       {2023/05/14; Brewer2023; JFB}\nR4N2 + OH = R4N1 + H2O :                     1.60d-12;\nALK4N2 + OH = ALK4N1 + H2O :                 1.60d-12;\t\t\t\t\t\t\t\t\t       {2023/05/14; Brewer2023; JFB}\nACTA + OH = MO2 + CO2 + H2O :                GCARR_ac(3.15d-14, 920.0d0);                                                      {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nOH + RCHO = RCO3 + H2O :                     GCARR_ac(6.00d-12, 410.0d0);\nRCO3 + NO2 {+M} = PPN :                      GCJPLPR_abab(9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0);                             {JPL Eval 17}\nPPN = RCO3 + NO2 :                           GCJPLEQ_acabab(9.00d-29, 14000.0d0, 9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0);\nPPN + OH = ALD2 + CO + NO2 :                 1.27d-12 ;\nRCO3 + NO = NO2 + 0.490OTHRO2 +\n 0.070A3O2 + 0.270B3O2 + CO2 :               GCARR_ac(6.70d-12, 340.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nRCHO + NO3 = HNO3 + RCO3 :                   6.50d-15;\nACET + OH = ATO2 + H2O :                     1.33d-13 + 3.82d-11*exp(-2000.0d0/TEMP);                                          {JPL Eval 17, p1-62-D31; EVF}\nA3O2 + MO2 = HO2 + 0.750CH2O + 0.750RCHO +\n 0.250MOH + 0.250ROH :                       5.92d-13;\nPO2 + MO2 = HO2 + 0.500ALD2 + 1.250CH2O +\n 0.160HAC + 0.090RCHO + 0.250MOH +\n 0.250ROH :                                  5.92d-13;\nR4O2 + HO2 = R4P :                           GCARR_ac(7.40d-13, 700.0d0);\nR4N1 + HO2 = R4N2 :                          GCARR_ac(7.40d-13, 700.0d0);\nALK4O2 + HO2 = ALK4P :                       GCARR_ac(7.40d-13, 700.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nALK4N1 + HO2 = ALK4N2 :                      GCARR_ac(7.40d-13, 700.0d0);\t\t\t\t\t\t       {2023/05/14; Brewer2023; JFB}\nATO2 + HO2 = 0.150MCO3 + 0.150OH +\n 0.150CH2O + 0.850ATOOH :                    GCARR_ac(8.60d-13, 700.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nKO2 + HO2 = 0.150OH + 0.150ALD2 +\n 0.150MCO3 + 0.850ATOOH + 0.850MO2 :         GC_RO2HO2_aca(2.91d-13, 1300.0d0, 4.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB}\nB3O2 + HO2 = RB3P :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPRN1 + HO2 = PRPN :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\n// -------- MEKPN -------------------\nMEK + OH = KO2 + H2O :                       GCARR_ac(1.50d-12, -90.0d0); {2023/04/18; Atkinson2006; KHB}\nKO2 + NO = 0.930NO2 + 0.620ALD2 +\n 0.620MCO3 + 0.070R4N2 +\n 0.310MEKCO3 + 0.310CH2O :                   GCARR_ac(2.70d-12, 350.0d0);\nMEKCO3 + NO2 {+M} = MEKPN :                  GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);                           {JPL Eval 17}\nMEKPN = MEKCO3 + NO2 :                       GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nMEKPN + OH = GLYC + CO + NO2 :               4.51E-12;\nMEKCO3 + NO = NO2 + ETOO + CO2  :            GCARR_ac(7.50d-12, 290.0d0);\nMEKCO3 + HO2 = 0.150O3 + 0.150RCOOH +\n 0.440CO2 + 0.440OH + 0.440ETOO +\n 0.410RP :                                   GCARR_ac(5.20d-13, 980.0d0);\n//\nMO2 + ETO2 = 0.750CH2O + 0.750ALD2 + HO2 +\n 0.250MOH + 0.250EOH :                       3.00d-13;\nMO2 + OTHRO2 = 0.750CH2O + 0.750ALD2 +\n HO2 + 0.250MOH + 0.250EOH :                 3.00d-13;                                                                         {2019/05/10; Fisher2018; JAF}\nMEK + NO3 = HNO3 + KO2 :                     8.00d-16;\nR4O2 + MO2 = 0.160ACET + 0.100MEK +\n 0.090MO2 + 0.140HO2 + 0.160ALD2 +\n 0.130RCHO + 0.030A3O2 + 0.090B3O2 +\n 0.160OTHRO2 + 0.250MEK + 0.750CH2O +\n 0.250MOH + 0.380ROH + 0.500HO2 :            8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nR4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 +\n 0.580RCHO + 0.150R4O2 + 0.500HO2 +\n 0.250MOH + 0.375ROH :                       8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nALK4O2 + MO2 = 0.160ACET + 0.100MEK +\n 0.090MO2 + 0.140HO2 + 0.160ALD2 +\n 0.130RCHO + 0.030A3O2 + 0.090B3O2 +\n 0.160OTHRO2 + 0.250MEK + 0.750CH2O +\n 0.250MOH + 0.380ROH + 0.500HO2 :            8.37d-14;                                                                         {2023/05/14; Brewer2023; JFB}\nALK4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 +\n 0.580RCHO + 0.150R4O2 + 0.500HO2 +\n 0.250MOH + 0.375ROH :                       8.37d-14;                                                                         {2023/05/14; Brewer2023; JFB}\nATO2 + MO2 = 0.300HO2 + 0.500CH2O +\n 0.300MCO3 + 0.200HAC + 0.500MGLY +\n 0.500MOH + 0.300CO2 :                       GCARR_ac(7.50d-13, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nKO2 + MO2 = 0.500ALD2 + 0.500MCO3 +\n 0.250MEK + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 + 0.250MO2 :            8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nB3O2 + MO2 = 0.500HO2 + 0.500ACET +\n 0.250ACET + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 :                       8.37d-14;\nPRN1 + MO2 = NO2 + 0.500CH2O + 0.500ALD2 +\n 0.250RCHO + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 :                       8.37d-14;\nEOH + OH = HO2 + ALD2 :                      3.35d-12;                                                                         {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nROH + OH = HO2 + RCHO :                      GCARR_ac(4.40d-12, 70.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nETO2 + ETO2 = 1.600ALD2 +\n 0.400EOH + 1.200HO2 :                       6.80d-14;\nOTHRO2 + OTHRO2 = 1.600ALD2 +\n 0.400EOH + 1.200HO2 :                       6.80d-14;                                                                         {2019/05/10; Fisher2018; JAF}\nHO2 + ETO2 = ETP :                           GCARR_ac(7.50d-13, 700.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + OTHRO2 = ETP :                         GCARR_ac(7.50d-13, 700.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; JPL 19-5; KHB}\nA3O2 + HO2 = RA3P :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPO2 + HO2 = PP :                             GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRCO3 + HO2 = 0.410RP + 0.150RCOOH +\n 0.150O3 + 0.440OH + 0.220OTHRO2 +\n 0.030A3O2 + 0.120B3O2 + 0.430CO2 :          GCARR_ac(4.30d-13, 1040.0d0);                                                     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nPRPE + OH {+M} = PO2 :                       GCJPLPR_abab(4.60d-27, 4.0d0, 2.6d-11, 1.3d0, 0.5d0);                             {2017/02/22; JPL 15-10; BHH,MJE}\nPRPE + O3 = 0.100CH4 + 0.280MO2 + 0.100CO2 +\n 0.120CH3CHOO + 0.500ALD2 + 0.220CH2OO +\n 0.500CH2O + 0.560CO + 0.280HO2 + 0.360OH :  GCARR_ac(6.50d-15, -1900.0d0);                                                    {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nGLYC + OH = 0.732CH2O + 0.361CO2 +\n 0.505CO + 0.227OH + 0.773HO2 +\n 0.134GLYX + 0.134HCOOH :                    GC_GLYCOH_A_a(8.00d-12);                                                          {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nGLYC + OH = HCOOH + OH + CO :                GC_GLYCOH_B_a(8.00d-12);                                                          {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\n// --- GLYC chemistry --> PHAN - currenty no RO2 RO2\nGLYC + OH = 0.200GLYX + 0.200HO2 +\n 0.800GCO3 :                                 1.0d-11;                                                                          {krt, MCM}\nGLYC + NO3 = GCO3 + HNO3 :                   GCARR_ac(1.44d-12,-1862.0d0);                                                     {krt, MCM}\nGCO3 + NO2 {+M} = PHAN :                     GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);                           {JPL Eval 17}\nPHAN = GCO3 + NO2 :                          GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nGCO3 + NO = NO2 + HO2 + CH2O :               GCARR_ac(7.5d-12,290d0);                              {krt, MCM}\nGCO3 + HO2 = 0.440HO2 + 0.440CH2O +\n 0.440OH + 0.560HACTA + 0.150O3 + 0.440CO2 : GCARR_ac(5.2d-13,980d0);               {krt,MCM}\nGCO3 + NO3 = CH2O + HO2 + NO2 :              4.0d-12;\nPHAN + OH = CH2O + CO + NO2 :                1.12d-12;    {krt, MCM}\nHACTA + OH = CH2O + HO2 :                    2.73d-12;    {krt, MCM}\n//\nPRPE + NO3 = PRN1 :                          GCARR_ac(4.59d-13, -1156.0d0);\nGLYX + OH = HO2 + 2.000CO :                  GCARR_ac(3.10d-12, 340.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMGLY + OH = MCO3 + CO :                      GCARR_ac(1.90d-12, 575.0d0);                                                      {2023/04/18; Atkinson2006; KHB}\nGLYX + NO3 = HNO3 + HO2 + 2.000CO :          GC_GLYXNO3_ac(1.40d-12, -1860.0d0);\nMGLY + NO3 = HNO3 + CO + MCO3 :              GCARR_ac(3.36d-12, -1860.0d0);                                                    {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nHAC + OH = MGLY + HO2 :                      GC_HACOH_A_ac(2.00d-12, 320.0d0);                                                 {2023/04/18; Atkinson2006; KHB}\nHAC + OH = 0.500HCOOH + OH + 0.500ACTA +\n 0.500CO2 + 0.500CO + 0.500MO2 :             GC_HACOH_B_ac(2.00d-12, 320.0d0);                                                 {2023/04/18; Atkinson2006; KHB}\nPRPN + OH = 0.209PRN1 + 0.791OH +\n 0.791PROPNN :                               GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nETP + OH = 0.640OH + 0.360OTHRO2 +\n 0.640ALD2 :                                 GCARR_ac(5.18d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRA3P + OH = 0.640OH + 0.360A3O2 +\n 0.640RCHO :                                 GCARR_ac(5.18d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRB3P + OH = 0.791OH + 0.209B3O2 +\n 0.791ACET :                                 GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nR4P + OH = 0.790OH + 0.210R4O2 + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB}\nALK4P + OH = 0.790OH + 0.210ALK4O2 + \n 1.185RCHO :                                 GCARR_ac(8.78d-12, 200.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nRP + OH = RCO3 :                             GCARR_ac(6.13d-13, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPP + OH = 0.791OH + 0.209PO2 + 0.791HAC :    GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nLVOC + OH = OH :                             GCARR_ac(4.82d-11, -400.0d0);                                                     {2017/06/14; Marais2016; EAM}\nOH + MAP = 0.780MCO3 + 0.220OH +\n 0.220CO2 + 0.220CH2O :                      3.00d-14;                                                                         {2023/04/18; Atkinson2006; KHB}\nC2H6 + NO3 = ETO2 + HNO3 :                   1.40d-18;                                                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMCO3 + MCO3 = 2.000MO2 + 2.000CO2 :          GCARR_ac(2.90d-12, 500.0d0);                                                      {2023/04/18; JPL 19-5, Bates2023; KHB}\nMCO3 + MO2 = 0.1ACTA + CH2O +\n 0.9MO2 + 0.9HO2 + 0.9CO2:                   GCARR_ac(2.00d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nR4O2 + MCO3 = 0.271MEK + 0.100ACTA +\n 0.900MO2 + 0.290ACET + 0.243HO2 +\n 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO\n + 0.045A3O2 + 0.162B3O2 + 0.900CO2:         GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nALK4O2 + MCO3 = 0.271MEK + 0.100ACTA +\n 0.900MO2 + 0.290ACET + 0.243HO2 +\n 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO\n + 0.045A3O2 + 0.162B3O2 + 0.900CO2:         GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nATO2 + MCO3 = 0.900MO2 + 0.900MCO3 +\n 0.900CH2O + 0.100MGLY + 0.100ACTA +\n 0.900CO2 :                                  GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nKO2 + MCO3 = 0.900MO2 + 0.900MCO3 +\n 0.900ALD2 + 0.100MEK + 0.100ACTA +\n 0.900CO2 :                                  GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nB3O2 + MCO3 = 0.900MO2 + 0.900HO2 +\n ACET + 0.100ACTA + 0.900CO2 :               GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nR4N1 + MCO3 = 0.900MO2 + 0.100ACTA +\n 0.613RCHO + 0.351CH2O + 0.675ALD2 +\n 0.270R4O2 + 0.645CO2 + NO2 :                GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nALK4N1 + MCO3 = 0.900MO2 + 0.100ACTA +\n 0.613RCHO + 0.351CH2O + 0.675ALD2 +\n 0.270R4O2 + 0.645CO2 + NO2 :                GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nPRN1 + MCO3 = 0.900MO2 + 0.900CH2O +\n 0.900CO2 + 0.900ALD2 + 0.100RCHO +\n 0.100ACTA + NO2 :                           GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nETO2 + MCO3 = 0.900MO2 + ALD2 +\n 0.900HO2 + 0.100ACTA + 0.900CO2 :           GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nOTHRO2 + MCO3 = 0.900MO2 + ALD2 +\n 0.900HO2 + 0.100ACTA + 0.900CO2 :           GCARR_ac(1.87d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nPO2 + MCO3 = 0.900MO2 + 0.900HO2 +\n 0.900ALD2 + 0.900CH2O + 0.065HAC +\n 0.035RCHO + 0.100ACTA + 0.900CO2 :          GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nA3O2 + MCO3 = 0.900MO2 + 0.900HO2 +\n RCHO + 0.100ACTA + 0.900CO2 :               GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nRCO3 + MCO3 = MO2 + 0.490OTHRO2 +\n 0.070A3O2 + 0.270B3O2 + 2.000CO2 :          GCARR_ac(2.50d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nRCO3 + MO2 = CH2O + CO2 + HO2 +\n 0.490OTHRO2 + 0.070A3O2 + 0.270B3O2 :       GCARR_ac(1.87d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nNO3 + NO3 = 2.000NO2 + O2 :                  GCARR_ac(8.50d-13, -2450.0d0);\nMO2 + NO2 {+M} = MPN {+M} :                  GCJPLPR_abab(1.00d-30, 4.8d+00, 7.2d-12, 2.1d0, 0.6d0);                           {2012/02/12; Browne2011; ECB}\nMPN {+M} = MO2 + NO2 :                       GCJPLPR_abcabc(1.05d-02, 4.8d+00, -11234.0d0, 7.58d16, 2.1d0, -11234.0d0, 0.6d0); {2012/02/12; Browne2011; ECB}\nDMS + OH = SO2 + MO2 + CH2O :                GCARR_ac(1.20d-11, -280.0d0);\nDMS + OH = 0.750SO2 + 0.250MSA + MO2 :       GC_DMSOH_acac(8.20d-39, 5376.0d0, 1.05d-5, 3644.0d0);\nDMS + NO3 = SO2 + HNO3 + MO2 + CH2O :        GCARR_ac(1.90d-13, 530.0d0);\nSO2 + OH {+M} = SO4 + HO2 + PH2SO4 :         GCJPLPR_abab(2.90d-31, 4.1d+00, 1.7d-12, -0.2d0, 0.6d0);                          {2023/04/18; JPL 19-5; KHB}\nBr + O3 = BrO + O2 :                         GCARR_ac(1.60d-11, -780.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nBrO + HO2 = HOBr + O2 :                      GCARR_ac(4.50d-12, 460.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + HO2 = HBr + O2 :                        GCARR_ac(4.80d-12, -310.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nHBr + OH = Br + H2O :                        GCARR_ac(5.50d-12, 200.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + BrO = 2.000Br + O2 :                   GCARR_ac(2.40d-12,  40.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + BrO = Br2 + O2 :                       GCARR_ac(2.80d-14, 860.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + NO = Br + NO2 :                        GCARR_ac(8.80d-12, 260.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + BrNO3 = Br2 + NO3 :                     4.90d-11;                                                                         {2012/06/07; Parrella2012; JPP}\nBr2 + OH = HOBr + Br :                       GCARR_ac(2.10d-11, 240.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nHOBr + O = OH + BrO :                        GCARR_ac(1.20d-10, -430.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nHBr + O = OH + Br :                          GCARR_ac(5.80d-12, -1500.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nBrO + OH = Br + HO2 :                        GCARR_ac(1.70d-11, 250.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + NO3 = BrO + NO2 :                       1.60d-11;                                                                         {2012/06/07; Parrella2012; JPP}\nBr + CH2O = HBr + HO2 + CO :                 GCARR_ac(1.70d-11, -800.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nBr + ALD2 = HBr + MCO3 :                     GCARR_ac(1.80d-11, -460.0d0);                                                     {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + ACET = HBr + ATO2 :                     GCARR_ac(1.66d-10, -7000.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + C2H6 = HBr + ETO2 :                     GCARR_ac(2.36d-10, -6411.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + C3H8 = HBr + A3O2 :                     GCARR_ac(8.77d-11, -4330.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + NO2 {+M} = BrNO2 {+M} :                 GCJPLPR_aba(4.20d-31, 2.4d0, 2.7d-11, 0.6d0);                                     {2012/06/07; Parrella2012; JPP}\nBrO + NO2 {+M} = BrNO3 {+M} :                GCJPLPR_abab(5.40d-31, 3.1d0, 6.5d-12, 2.9d0, 0.6d0);                             {2017/02/22; JPL 15-10; BHH,MJE}\nCHBr3 + OH = 3.000Br :                       GCARR_ac(9.00d-13, -360.0d0);                                                     {2017/02/22; JPL 15-10; BHH,MJE}\nCH2Br2 + OH = 2.000Br :                      GCARR_ac(2.00d-12, -840.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nCH3Br + OH = Br + H2O + HO2 :                GCARR_ac(1.42d-12, -1150.0d0);                                                    {2017/03/08; JPL 15-10; TS,BHH,MJE}\nO1D + H2O = 2.000OH :                        GCARR_ac(1.63d-10, 60.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + N2 = O + N2 :                          GCARR_ac(2.15d-11, 110.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nO1D + O2 = O + O2 :                          GCARR_ac(3.30d-11, 55.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + H2 = H + OH :                          1.20d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + N2O = 0.390N2 + 0.390O2 + 1.220NO :    GCARR_ac(1.19d-10, 20.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + CH4 = 0.750MO2 + 0.750OH +\n 0.200H + 0.200HO2 + 0.050H2 + 0.250CH2O :   1.75d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO + O2 {+M} = O3 {+M} :                      GCARR_ab(6.00d-34, 2.4d0)*NUMDEN;                                                 {2014/02/03; Eastham2014; SDE}\nO + O3 = 2.000O2 :                           GCARR_ac(8.00d-12, -2060.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + H2 = H2O + H :                          GCARR_ac(2.80d-12, -1800.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nO + OH = O2 + H :                            GCARR_ac(1.80d-11, 180.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nHO2 + O = OH + O2 :                          GCARR_ac(3.00d-11, 200.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nO1D + O3 = O + 1.500O2 :                     2.40d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nOCS + O = CO + SO2 :                         GCARR_ac(2.10d-11, -2200.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOCS + OH = CO2 + SO2 :                       GCARR_ac(7.20d-14, -1070.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nNO2 + O = NO + O2 :                          GCJPLAC_ababac(3.4d-31, 1.6d0, 2.3d-11, 0.2d0, 5.3d-12, 2.0d2, 0.6d0);            {2023/04/18; JPL 19-5; KHB}\nNO3 + O = NO2 + O2 :                         1.30d-11;                                                                         {2023/04/18; JPL 19-5; KHB}\nNO + O {+M} = NO2 {+M} :                     GCJPLPR_aba(9.00d-32, 1.5d+00, 3.0d-11, 0.6d0);                                   {2014/02/03; Eastham2014; SDE}\nNO2 + O {+M} = NO3 {+M} :                    GCJPLPR_abab(3.4d-31, 1.6d0, 2.3d-11, 0.2d0, 0.6d0);                              {2023/04/18; JPL 19-5; KHB}\nH2O2 + O = OH + HO2 :                        GCARR_ac(1.40d-12, -2000.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nH + O2 {+M} = HO2 {+M} :                     GCJPLPR_abab(5.30d-32, 1.8d+00, 9.5d-11, -0.4d0, 0.6d0);                          {2023/04/18; JPL 19-5; KHB}\nH + O3 = OH + O2 :                           GCARR_ac(1.40d-10, -470.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nH + HO2 = 1.788OH + 0.020O +\n 0.020H2O + 0.086H2 + 0.086O2 :              8.05d-11;                                                                         {2014/02/03; Eastham2014; SDE}\nN + O2 = NO + O :                            GCARR_ac(3.30d-12, -3150.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nN + NO = N2 + O :                            GCARR_ac(2.10d-11, 100.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nN + NO2 = N2O + O :                          GCARR_ac(5.80d-12, 220.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nBrO + O = Br + O2 :                          GCARR_ac(1.90d-11, 230.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCH2O + O = CO + HO2 + OH :                   GCARR_ac(3.40d-11, -1600.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nO1D + HCl = 0.120O + 0.120HCl + 0.220H +\n 0.660Cl + 0.220ClO + 0.660OH :              1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HBr = 0.200O + 0.200HBr + 0.200BrO +\n 0.600OH + 0.200H + 0.600Br :                1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + Cl2 = 0.250O + 0.250Cl2 + 0.750Cl +\n 0.750ClO :                                  2.70d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CCl4 = 0.210O + 0.210CCl4 +\n 0.790ClO + 2.370Cl :                        3.30d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CH3Cl = 0.100O + 0.100CH3Cl +\n 0.460ClO + 0.350Cl + 0.090H + 0.900MO2 :    2.60d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CH3Br = 0.440BrO + MO2 + 0.560Br :     1.80d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CH2Br2 = 0.050O + 0.050CH2Br2 +\n 0.950BrO + 0.950Br :                        2.70d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CHBr3 = 0.300O + 0.300CHBr3 +\n 0.700BrO + 1.400Br :                        6.60d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC22 = 0.250O + 0.250HCFC22 +\n 0.560ClO + 0.190Cl + 0.050OH :              1.02d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC11 = 0.100O + 0.100CFC11 +\n 0.900ClO + 1.800Cl :                        2.30d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC12 = 0.140O + 0.140CFC12 +\n 0.860ClO + 0.860Cl :                        1.40d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + H1211 = 0.350O + 0.350H1211 +\n 0.310BrO + 0.310Cl + 0.340Br + 0.340ClO :   1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + H1301 = 0.550O + 0.550H1301 +\n 0.450BrO :                                  1.00d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC141b = 0.310O + 0.310HCFC141b +\n 0.690ClO + 0.690Cl :                        2.60d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + HCFC142b = 0.350O + 0.350HCFC142b +\n 0.650ClO :                                  2.00d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC123 = 0.210O + 0.210HCFC123 +\n 0.790Cl + 0.790ClO :                        2.00d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CFC113 = 0.100O + 0.100CFC113 +\n 1.900Cl + 0.800ClO :                        2.32d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC114 = 0.100O + 0.100CFC114 +\n 0.950Cl + 0.850ClO :                        GCARR_ac(1.30d-10, 25.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nO1D + CFC115 = 0.140O + 0.140CFC115 +\n 0.860ClO :                                  GCARR_ac(5.40d-11, 30.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nO1D + H2402 = 0.250O + 0.250H2402 +\n 0.750Br + 0.750BrO :                        GCARR_ac(1.60d-10, 0.0d0);                                                        {2014/02/03; Eastham2014; SDE}\nOH + Cl2 = HOCl + Cl :                       GCARR_ac(2.60d-12, -1100.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nMO2 + ClO = ClOO + HO2 + CH2O :              GCARR_ac(1.80d-11, -600.0d0);                                                     {2017/03/20; JPL 15-10; TS,BHH,MJE}\nOH + ClO = HO2 + Cl :                        GCARR_ac(7.40d-12, 270.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + ClO = HCl + O2 :                        GCARR_ac(6.00d-13, 230.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + OClO = HOCl + O2 :                      GCARR_ac(1.40d-12, 600.0d0);                                                      {2017/02/22; JPL 15-10; BHH,MJE}\nOH + Cl2O2 = HOCl + ClOO :                   GCARR_ac(6.00d-13, 670.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + HCl = H2O + Cl :                        GCARR_ac(1.80d-12, -250.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + HOCl = H2O + ClO :                      GCARR_ac(3.00d-12, -500.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + ClNO2 = HOCl + NO2 :                    GCARR_ac(2.40d-12, -1250.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + ClNO3 = HOCl + NO3 :                    GCARR_ac(1.20d-12, -330.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + CH3Cl = Cl + HO2 + H2O :                GCARR_ac(1.96d-12, -1200.0d0);                                                    {2017/02/22; JPL 15-10; BHH,MJE}\nOH + CH2Cl2 = 2.000Cl + HO2 :                GCARR_ac(1.92d-12, -880.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nOH + CHCl3 = 3.000Cl + HO2 :                 GCARR_ac(2.20d-12, -920.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nOH + CH3CCl3 = 3.000Cl + H2O :               GCARR_ac(1.64d-12, -1520.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC22 = Cl + H2O :                     GCARR_ac(9.20d-13, -1560.0d0);                                                    {2017/02/22; JPL 15-10; BHH,MJE}\nOH + HCFC141b = 2.000Cl + H2O :              GCARR_ac(1.25d-12, -1600.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC142b = Cl + H2O :                   GCARR_ac(1.30d-12, -1770.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC123 = 2.000Cl + H2O :               GCARR_ac(7.40d-13, -900.0d0);                                                     {2017/02/22; JPL 15-10; BHH,MJE}\nCH4 + Cl = HCl + MO2 :                       GCARR_ac(7.10d-12, -1270.0d0);                                                    {2017/03/08; JPL 15-10; TS,BHH,MJE}\nCH2O + Cl = CO + HCl + HO2 :                 GCARR_ac(8.10d-11, -30.0d0);                                                      {2017/09/22; Sherwen2016b; TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + O3 = ClO + O2 :                         GCARR_ac(2.30d-11, -200.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nCl + H2 = H + HCl :                          GCARR_ac(3.05d-11, -2270.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nCl + H2O2 = HO2 + HCl :                      GCARR_ac(1.10d-11, -980.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nCl + HO2 = O2 + HCl :                        GCARR_ac(1.40d-11, 270.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCl + HO2 = OH + ClO :                        GCARR_ac(3.60d-11, -375.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nClO + O = Cl + O2 :                          GCARR_ac(2.80d-11, 85.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nClO + HO2 = O2 + HOCl :                      GCARR_ac(2.60d-12, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + NO = Cl + NO2 :                        GCARR_ac(6.40d-12, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + NO2 {+M} = ClNO3 {+M} :                GCJPLPR_abab(1.80d-31, 3.4d+00, 1.50d-11, 1.9d0, 0.6d0);                          {2014/02/03; Eastham2014; SDE}\nClO + ClO = Cl2 + O2 :                       GCARR_ac(1.00d-12, -1590.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nClO + ClO = Cl + ClOO :                      GCARR_ac(3.00d-11, -2450.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nClO + ClO = OClO + Cl :                      GCARR_ac(3.50d-13, -1370.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nCl + O2 {+M} = ClOO {+M} :                   GCJPLPR_aba(2.20d-33, 3.1d+00, 1.8d-10, 0.6d0);                                   {2014/02/03; Eastham2014; SDE}\nClOO {+M} = Cl + O2 {+M} :                   GCJPLEQ_acabab(6.60d-25, 2502.0d0, 2.20d-33, 3.1d+00, 1.8d-10, 0.0d0, 0.6d0);     {JPL 15-10; XW}\nClO + ClO {+M} = Cl2O2 {+M} :                GCJPLPR_abab(1.90d-32, 3.6d+00, 3.7d-12, 1.6d0, 0.6d0);                           {2017/02/22; JPL 15-10; BHH,MJE}\nCl2O2 {+M} = 2.000ClO {+M} :                 GCJPLEQ_acabab(2.16d-27, 8537.0d0, 1.90d-32, 3.6d+00, 3.7d-12, 1.6d0, 0.6d0);     {JPL 15-10; XW}\nClOO + Cl = 0.950Cl2 + 0.950O2 + 0.100ClO :  2.42d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nClO + BrO = Br + OClO :                      GCARR_ac(9.50d-13, 550.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + BrO = Br + ClOO :                      GCARR_ac(2.30d-12, 260.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + BrO = BrCl + O2 :                      GCARR_ac(4.10d-13, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClNO3 + O = ClO + NO3 :                      GCARR_ac(3.60d-12, -840.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nClNO3 + Cl = Cl2 + NO3 :                     GCARR_ac(6.50d-12, 135.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCH3Cl + Cl = CO + 2.000HCl + HO2 :           GCARR_ac(2.03d-11, -1110.0d0);                                                    {2014/02/03; Eastham2014; SDE; 2023/04/18; JPL 19-5; KHB}\nCH2Cl2 + Cl = CO + HCl + 2.000Cl + HO2 :     GCARR_ac(7.40d-12, -910.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCHCl3 + Cl = CO + HCl + 3.000Cl + HO2 :      GCARR_ac(3.30d-12, -990.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + HCOOH = HCl + CO2 + H2O :               2.00d-13;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + MO2 = ClO + CH2O + HO2 :                1.60d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + MP = HCl + MO2 :                        5.7d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C2H6 = HCl + ETO2 :                     GCARR_ac(7.2d-11, -70.0d0);                                                       {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ETO2 = ClO + HO2 + ALD2 :               7.4d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + OTHRO2 = ClO + HO2 + ALD2 :             7.4d-11;                                                                          {2019/05/10; Fisher2018; JAF}\nCl + MOH = HCl + CH2O + HO2 :                5.5d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + EOH = HCl + ALD2 :                      9.6d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ACTA = HCl + MO2 + CO2 :                2.8d-14;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C3H8 = HCl + B3O2 :                     GCARR_ac(6.54d-11, 60.0d0);                                                       {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C3H8 = HCl + A3O2 :                     GCARR_ac(8.12d-11, -90.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ACET = HCl + ATO2 :                     GCARR_ac(1.63d-11, -610.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + ISOP = HCl + 0.5IHOO1 + 0.5IHOO4 :      GCARR_ac(7.60d-11, 500.0d0);                                                      {2019/11/06; Sherwen2016b;KHB,TS,JAS,SDE}\nCl + ALK4 = HCl + ALK4O2 :                   2.05d-10;                                                                         {2023/05/14; Brewer2023; JFB}\nCl + PRPE {+M} = HCl + PO2 {+M} :            GCJPLPR_aa(4.00d-28, 2.8d-10, 0.6d0);                                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nBr + PRPE = HBr + PO2 :                      3.60d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + NO {+M} = INO {+M} :                     GCJPLPR_aba(1.80d-32, 1.0d0, 1.70d-11, 0.6d0);                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nINO + INO = I2 + 2.000NO :                   GCARR_ac(8.40d-11, -2620.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + NO2 {+M} = IONO {+M} :                   GCJPLPR_aba(3.00d-31, 1.0d0, 6.6d-11, 0.6d0);                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIONO {+M} = I + NO2 {+M} :                   GCARR_ac(9.94d+17, -11859.0d0);                                                   {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO + IONO = I2 + 2.000NO2 :                GCARR_ac(2.90d-11, -2600.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2 + NO3 = I + IONO2 :                       1.50d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + NO2 {+M} = IONO2 {+M} :                 GCJPLPR_abab(7.50d-31, 3.5d0, 7.6d-12, 1.5d0, 0.6d0);                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 {+M} = IO + NO2 {+M} :                 GCARR_ac(2.10d+15, -13670.0d0);                                                   {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 + I = I2 + NO3 :                       GCARR_ac(9.10d-11, -146.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + BrO = IO + Br :                          1.20d-11;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + BrO = 0.8OIO + Br + 0.2I + 0.2O2 :      GCARR_ac(5.50d-12, 760.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIO + OIO {+M} = I2O3 {+M} :                  1.00d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + OIO = I2O4 :                           1.50d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 {+M} = 2.000OIO {+M} :                  3.80d-02;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + NO = IO + NO2 :                        GCARR_ac(1.10d-12, 542.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + ClO = 0.809I + 0.560OClO +\n 0.249Cl + 0.191ICl + 0.440O2 :              GCARR_ac(4.82d-12, 280.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI + O3 = IO + O2 :                           GCARR_ac(2.00d-11, -830.0d0);                                                     {2017/09/22; Sherwen2017;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI + HO2 = HI + O2 :                          GCARR_ac(1.50d-11, -1090.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2 + OH = HOI + I :                          1.80d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI + OH = I + H2O :                          3.00d-11;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI + OH = IO + H2O :                        5.00d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + HO2 = HOI + O2 :                        GCARR_ac(1.30d-11, 570.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + NO = I + NO2 :                          GCARR_ac(8.60d-12, 230.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIO + IO = 0.400I + 0.400OIO + 0.600I2O2:     GCARR_ac(1.50d-11, 500.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI2O2 {+M} = 0.008IO + 0.996I +\n 0.996OIO {+M} :                             GCARR_ac(2.51d+14, -9770.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; Bates2023; KHB}\nCH3I + OH = H2O + I + MO2 :                  GCARR_ac(2.90d-12, -1100.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nETHLN + OH = CH2O + CO2 + NO2 :              2.40d-12;                                                                         {2017/06/15, Marais2016, EAM}\nPROPNN + OH = NO2 + MGLY :                   6.70d-13;                                                                         {2017/07/14; MCMv3.3; KRT,JAF,CCM,EAM,KHB,RHS}\nCH2OO + CO = CH2O + CO2 :                    1.20d-15;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; Bates2023; KHB}\nCH2OO + NO = CH2O + NO2 :                    1.00d-14;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH2OO + NO2 = CH2O + NO3 :                   4.25d-12;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH2OO + H2O = 0.730HMHP + 0.210HCOOH +\n 0.060CH2O + 0.060H2O2 :                     2.80d-16;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nCH2OO + H2O + H2O = 0.400HMHP +\n 0.540HCOOH + 0.060CH2O + 0.060H2O2 :        GCARR_ac(2.88d-35, 1391.0d0);                                                     {2019/11/06; Bates2019; KHB}\nCH2OO + O3 = CH2O :                          1.40d-12;                                                                         {2019/11/06; Bates2019; KHB}\nCH2OO + SO2 = CH2O + SO4 + PH2SO4 :          3.80d-11;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + CO = ALD2 + CO2 :                  1.20d-15;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; Bates2023; KHB}\nCH3CHOO + NO = ALD2 + NO2 :                  1.00d-14;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH3CHOO + NO2 = ALD2 + NO3 :                 4.25d-12;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + SO2 = ALD2 + SO4 + PH2SO4 :        2.65d-11;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + H2O = ALD2 + H2O2 :                6.00d-18;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH3CHOO + H2O = ACTA :                       1.00d-17;                                                                         {2015/09/25; Millet2015; DBM,EAM}\n// Updated Monoterpene chemistry\nMTPA + NO3 = 0.100OLNN + 0.900OLND :         GCARR_ac(8.33d-13, 490.0d0);                                                      {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMTPO + NO3 = 0.100OLNN + 0.900OLND :         GCARR_ac(8.33d-13, 490.0d0);                                                      {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + NO3 = 0.500OLNN + 0.500OLND :         1.22d-11;                                                                         {2017/07/14; Fry2014,Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + OH = LIMO2 :                          GCARR_ac(4.20d-11, 401.0d0);\nLIMO + O3 = 0.865OH + 0.15CO + 0.15AROMRO2 +\n 0.27LIMAL + 0.715LIMO3 :                    GCARR_ac(2.95d-15, -783.0d0);\nMTPO + OH = 0.15APINO2 + 0.15BPINO2 +\n 0.2LIMO2 + 0.5PIO2 :                        GCARR_ac(1.21d-11, 440.0d0); \nMTPO + O3 = 0.5ACET + 0.8OH + 0.1CH2O +\n 0.5MEK + 0.15MVK + 0.4MYRCO + 0.5AROMRO2 +\n 0.05HO2 + 0.3KO2 + 0.3RCHO :                GCARR_ac(2.7d-15, -520.0d0); \nMTPA + OH = 0.075LIMO2 + 0.67APINO2 +\n 0.255BPINO2 :                               GCARR_ac(1.34d-11, 410.0d0);\nMTPA + O3 = 0.65OH + 0.5APINO2 +\n 0.1BPINOO2 + 0.2BPINO + 0.2PINAL +\n 0.1CH2OO + 0.1CO + 0.1CH2O :                GCARR_ac(8.22d-16, -640.0d0);\nAPINO2 + HO2 = APINP :                       GCARR_ac(2.66d-13, 1300.0d0);\nAPINO2 + NO = 0.25APINN + 0.75PINAL +\n 0.75NO2 + 0.75HO2 :                         GCARR_ac(2.7d-12, 360.0d0);\nAPINO2 + NO3 = PINAL + NO2 + HO2 :           2.3d-12 ;\nAPINP + OH = 0.4PINO3 + 0.6APINO2 :          1.83d-11 ;\nAPINN + OH = 0.5PINAL + 0.5NO2 + 0.5HO2 +\n 0.5C96N + 0.5CH2O + 0.5AROMRO2 :            5.50d-12 ;\nPINAL + NO3 = HNO3 + PINO3 :                 2.0d-14 ;\nPINAL + OH = PINO3 :                         GCARR_ac(5.2d-12, 600.0d0);\nPINO3 + HO2 = 0.44OH + 0.15O3 + 0.44C96O2 +\n 0.41PINO3H + 0.15PINONIC :                  GCARR_ac(2.66d-13, 1300.0d0);\nPINO3 + NO = NO2 + CO2 + C96O2 :             GCARR_ac(2.7d-12, 360.0d0);\nPINO3 + NO2 = PINPAN :                       GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);\nPINPAN = PINO3 + NO2 :                       GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nPINO3 + NO3 = NO2 + CO2 + C96O2 :            2.3d-12 ;\nPINO3H + OH = PINO3 :                        9.73d-12 ;\nPINONIC + OH = CO2 + C96O2 :                 6.65d-12 ;\nC96O2 + HO2 = C96O2H :                       GCARR_ac(2.66d-13, 1300.0d0);\nC96O2 + NO = 0.16C96N + 0.84NO2 +\n 0.84AROMRO2 + 0.84ACET + 0.84CH2O +\n 0.84RCO3 + 0.42MEK :                        GCARR_ac(2.7d-12, 360.0d0);\nC96O2 + NO3 = NO2 + AROMRO2 + ACET + CH2O +\n RCO3 + 0.5MEK :                             2.3d-12 ;\nC96O2 + MO2 = HO2 + 0.75CH2O + 0.25MOH +\n 0.25C96O2H + 0.75AROMRO2 + 0.75ACET +\n 0.75CH2O + 0.75RCO3 + 0.375MEK :            GCARR_ac(3.75d-13, 500.0d0);\nC96O2H + OH = 0.5C96O2 + 0.5AROMRO2 +\n 0.5ACET + 0.5CH2O + 0.5RCO3 + 0.25MEK :     2.6d-11 ;\nC96N + OH = 0.5NO2 + 0.5MONITS +\n 0.55AROMRO2 + 0.4ACET + 0.4CH2O + 0.4RCO3 +\n 0.3MEK :                                    2.88d-12 ;\nBPINO2 + HO2 = BPINP :                       GCARR_ac(2.66d-13, 1300.0d0);\nBPINO2 + NO = 0.25BPINN + 0.75CH2O +\n 0.75NO2 + 0.75HO2 + 0.75BPINO :             GCARR_ac(2.7d-12, 360.0d0);\nBPINO2 + NO3 = CH2O + NO2 + HO2 + BPINO :    2.3d-12 ;\nBPINN + OH = 0.5BPINON + 0.5AROMRO2 + CH2O +\n 0.5NO2 + 0.5HO2 + 0.5BPINO :                4.7d-12 ;\nBPINP + OH = BPINO2 :                        1.33d-11 ;\nBPINO + OH = BPINOO2 :                       1.55d-11 ;\nBPINOO2 + HO2 = BPINOOH :                    GCARR_ac(2.66d-13, 1300.0d0);\nBPINOO2 + NO = BPINON :                      GCARR_ac(4.32d-13, 360.0d0);\nBPINOO2 + NO = NO2 + HO2 + 0.27LIMO3 +\n 0.6ACET + 0.6RCHO + 0.6R4O2 :               GCARR_ac(2.27d-12, 360.0d0);\nBPINOO2 + MO2 = HO2 + 0.23LIMO3 + 0.4ACET +\n 0.4RCHO + 0.4R4O2 + 0.75CH2O + 0.25MOH +\n 0.25BPINOOH :                               GCARR_ac(3.75d-13, 500.0d0);\nBPINOO2 + NO3 = NO2 + HO2 + 0.27LIMO3 +\n 0.6ACET + 0.6RCHO + 0.6R4O2 :               2.3d-12 ;\nBPINOOH + OH = BPINOO2 :                     8.59d-11 ;\nBPINON + OH = 0.5MONITS + 0.5NO2 +\n 0.085LIMO3 + 0.3ACET + 0.3RCHO + 0.3R4O2 :  3.24d-12 ;\nLIMO2 + HO2 = 0.37LIMKET + 0.63LIMAL : GCARR_ac(2.66d-13, 1300.0d0);\nLIMO2 + NO = 0.25LIMN + 0.75NO2 + 0.75HO2 + 0.28LIMKET + 0.47LIMAL : GCARR_ac(2.7d-12, 360.0d0);\nLIMO2 + NO3 = NO2 + HO2 + 0.37LIMKET + 0.63LIMAL : 2.3d-12 ;\nLIMAL + OH = LIMO3 : 1.1d-10 ;\nLIMAL + O3 = 0.3LIMKB + 0.33CH2OO + 0.67CH2O + 0.6LIMO3 + 0.6OH : 8.3d-18 ;\nLIMAL + NO3 = AROMRO2 + LIMNB : 2.6d-13 ;\nLIMKET + OH = LIMKO2 : 9.97d-11 ; \nLIMKET + O3 = 0.27LIMKO2 + 0.865OH + 0.73LIMO3 : 1.5d-16 ; \nLIMKET + NO3 = LIMNB + AROMRO2 : 9.4d-12 ; \nLIMN + OH = 0.5LIMNB + 0.32LIMO3 + 0.18LIMKO2 + 0.5NO2 : 1.1d-10 ;\nLIMN + O3 = CH2O + 0.5NO2 + 0.4LIMO3 + 0.5LIMNB : 8.3d-18 ;\nLIMN + NO3 = NO2 + LIMNB + AROMRO2 : 2.6d-13 ;\nLIMKO2 + NO = 0.16LIMNB + 0.84NO2 + 0.84LIMKB + 0.84HO2 : GCARR_ac(2.7d-12, 360.0d0);\nLIMKO2 + HO2 = LIMO3H : GCARR_ac(2.66d-13, 1300.0d0);\nLIMKO2 + NO3 = NO2 + LIMKB + HO2 : 2.3d-12 ;\nLIMKO2 + MO2 = 0.75LIMKB + 0.25LIMO3H + 0.75CH2O + 0.25MOH + HO2 : GCARR_ac(3.75d-13, 500.0d0);\nLIMKB + OH = LIMO3 : 3.6d-11 ; \nLIMKB + NO3 = NO2 + LIMO3 : GCARR_ac(1.22d-11, -1862.0d0);\nLIMNB + OH = 0.5MONITS + 0.5NO2 + 0.5LIMO3 : 6.3d-12 ; \nLIMO3 + HO2 = 0.44OH + 0.15O3 + 0.44CO2 + 0.44MCO3 + 0.44RCHO + 0.176CH2O + 0.352R4O2 + 0.41LIMO3H + 0.15LIMO2H : GCARR_ac(2.66d-13, 1300.0d0);\nLIMO3 + NO = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(2.7d-12, 360.0d0);\nLIMO3 + NO2 = LIMPAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);\nLIMPAN = LIMO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nLIMO3 + NO3 = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 2.3d-12 ;\nLIMO3H + OH = LIMO3 : 9.73d-12 ;\nLIMO2H + OH = CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 6.65d-12 ;\nPIO2 + HO2 = PIP : GCARR_ac(2.66d-13, 1300.0d0);\nPIO2 + NO = PIN : GCARR_ac(6.75d-13, 360.0d0);\nPIO2 + NO = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : GCARR_ac(2.03d-12, 360.0d0);\nPIO2 + NO3 = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : 2.3d-12 ;\nPIP + OH = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(6.05d-12, 440.0d0); \nPIP + O3 = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(1.35d-15, -520.0d0); \nPIP + NO3 = 0.5OLNN + 0.5NO2 + 0.15OH + 0.35AROMRO2 + 0.15MVK + 0.15ACET + 0.05CH2O + 0.39MYRCO : GCARR_ac(1.06d-12, 490.0d0); \nPIN + OH = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(6.05d-12, 440.0d0); \nPIN + O3 = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(1.35d-15, -520.0d0); \nPIN + NO3 = 0.5OLNN + 1.15NO2 + 0.35AROMRO2 + 0.35MONITU + 0.15MYRCO : GCARR_ac(1.06d-12, 490.0d0); \nMYRCO + OH = HO2 + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(6.05d-12, 440.0d0); \nMYRCO + O3 = OH + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(1.35d-15, -520.0d0); \nMYRCO + NO3 = 0.5OLNN + 0.5NO2 + 0.5HO2 + 0.5AROMRO2 + 0.75CH2O + 0.5MEK + 0.25ACET + 0.25MVK + 0.25GLYC: GCARR_ac(1.06d-12, 490.0d0); \nAPINO2 + MO2 = PINAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0);\nAPINO2 + MCO3 = PINAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nBPINO2 + MO2 = 1.75HO2 + 0.25MOH + 1.75CH2O + BPINO : GCARR_ac(3.75d-13, 500.0d0);\nBPINO2 + MCO3 = BPINO + CH2O + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nLIMO2 + MO2 = 0.37LIMKET + 0.63LIMAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0);\nLIMO2 + MCO3 = 0.37LIMKET + 0.63LIMAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nPIO2 + MO2 = 0.45MVK + 0.45ACET + 0.675MYRCO + 1.75HO2 + 0.25MOH + 0.85CH2O : GCARR_ac(3.75d-13, 500.0d0);\nPIO2 + MCO3 = 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nPINO3 + MO2 = CH2O + 0.75HO2 + 0.25PINONIC + 0.75C96O2  + 0.75CO2 : GCARR_ac(1.87d-12, 500.0d0);\nPINO3 + MCO3 = C96O2 + 2CO2 + MO2 : GCARR_ac(3.75d-14, 500.0d0);\nLIMO3 + MO2 = 0.75HO2 + CH2O + 0.75CO2 + 0.75MCO3 + 0.75RCHO + 0.3CH2O + 0.6R4O2 + 0.25LIMO2H : GCARR_ac(1.87d-12, 500.0d0);\nLIMO3 + MCO3 = CO2 + MO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(3.75d-14, 500.0d0);\n//\nOLNN + NO = HO2 + NO2 + MONITS :             4.00d-12;                                                                         {2017/07/14; Browne2014,Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + NO = 2.000NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK :                      4.00d-12;                                                                         {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + HO2 = 0.700MONITS + 0.300MONITU :     GCARR_ac(1.66d-13, 1300.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + HO2 = 0.700MONITS + 0.300MONITU :     GCARR_ac(1.66d-13, 1300.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + MO2 = 2.000HO2 + CH2O +\n 0.700MONITS + 0.300MONITU :                 GCARR_ac(1.60d-13, 708.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + MO2 = 0.500HO2 + 0.500NO2 +\n 0.850CH2O + 0.930RCHO + 0.340MEK +\n 0.250MOH + 0.250ROH + 0.350MONITS +\n 0.150MONITU :                               GCARR_ac(9.68d-14, 708.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS; 2023/04/18; Bates2023; KHB}\nOLNN + MCO3 = HO2 + MO2 + 0.700MONITS +\n 0.300MONITU + CO2 :                         GCARR_ac(8.85d-13, 765.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS; 2023/04/18; Bates2023; KHB}\nOLND + MCO3 = 0.500MO2 + NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK + 0.500RCOOH :         GCARR_ac(5.37d-13, 765.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + NO3 = HO2 + NO2 + 0.700MONITS +\n 0.300MONITU :                               1.20d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + NO3 = 2.000NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK :                      1.20d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + OLNN = HO2 + 1.400MONITS +\n 0.600MONITU :                               GCARR_ac(7.00d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + OLND = 0.500HO2 + 0.500NO2 +\n 0.202CH2O + 0.640RCHO + 0.149MEK +\n 1.050MONITS + 0.450MONITU :                 GCARR_ac(4.25d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + OLND = NO2 + 0.504CH2O +\n 1.210RCHO + 0.285MEK + 0.700MONITS +\n 0.300MONITU :                               GCARR_ac(2.96d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITS + OH = HONIT :                        4.80d-12;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + OH = HONIT :                        7.29d-11;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + O3 = HONIT :                        1.67d-16;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + NO3 = HONIT :                       GCARR_ac(3.15d-13, -448.0d0);                                                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITS + NO3 = HONIT :                       GCARR_ac(3.15d-13, -448.0d0);                                                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nIONITA = INDIOL + HNO3 :                     2.78d-04;                                                                         {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITA = INDIOL + HNO3 :                     2.78d-04;                                                                         {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT + OH = NO3 + HAC :                     GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0) + GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,0.6d0); {2023/04/18; JPL 19-5; KHB}\nMENO3 + OH = CH2O + NO2 :                    GCARR_ac(8.00d-13, -1000.0d0);                                                    {2019/05/16; JPL 15-10,Fisher2018; JAF}\nETNO3 + OH = ALD2 + NO2 :                    GCARR_ac(1.00d-12, -490.0d0);                                                     {2019/05/16; JPL 15-10,Fisher2018; JAF}\nIPRNO3 + OH = ACET + NO2 :                   GCARR_ac(1.20d-12, -320.0d0);                                                     {2019/05/16; JPL 15-10,Fisher2018; JAF}\nNPRNO3 + OH = RCHO + NO2 :                   7.10d-13;                                                                         {2019/05/16; JPL 15-10,Fisher2018; JAF}\nISOP + O3 = 0.416MACR + 0.177MVK +\n 0.28OH + 0.407CO2 + 0.407CO + 0.407MO2 +\n 0.16HO2 + 0.58CH2OO + 0.827CH2O +\n 0.013H2O2 :                                 GCARR_ac(1.10d-14, -2000.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nISOP + OH = LISOPOH + IHOO1 :                GC_ISO1(1.7d-11, 3.90d2, 9.33d-2, 5.05d15, -1.22d4, 1.79d14, -8.830d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = LISOPOH + IHOO4 :                GC_ISO1(1.0d-11, 3.90d2, 2.26d-1, 2.22d9, -7.160d3, 1.75d14, -9.054d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = 0.3MCO3 + 0.3MGLY + 0.3CH2O +\n 0.15HPALD3 + 0.25HPALD1 + 0.4HO2 +\n 0.6CO + 1.5OH + 0.3HPETHNL + LISOPOH :      GC_ISO2(1.7d-11, 3.90d2, 9.33d-2, 5.05d15, -1.22d4, 1.79d14, -8.830d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = 0.3CH2O + 0.15HPALD4 +\n 0.25HPALD2 + 1.5OH + 0.9CO + 0.7HO2 +\n 0.3MGLY + 0.3ATOOH + LISOPOH :              GC_ISO2(1.0d-11, 3.90d2, 2.26d-1, 2.22d9, -7.160d3, 1.75d14, -9.054d3);           {2019/11/06; Bates2019; KHB}\nIHOO1 + HO2 = 0.063MVK + 0.063OH +\n 0.063HO2 + 0.063CH2O + 0.937RIPA :          ARRPLUS_abde(2.12d-13, -1300d0,  1.1644d0, -7.0485d-4);                           {2019/11/06; Bates2019; KHB}\nIHOO1 + HO2 = RIPC :                         ARRPLUS_abde(2.12d-13, -1300d0, -0.1644d0, 7.0485d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO4 + HO2 = 0.063MACR + 0.063OH +\n 0.063HO2 + 0.063CH2O + 0.937RIPB :          ARRPLUS_abde(2.12d-13, -1300d0, 1.2038d0, -9.0435d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO4 + HO2 = RIPD :                         ARRPLUS_abde(2.12d-13, -1300d0, -0.2038d0, 9.0435d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO1 = CH2O + OH + MVK :                    ARRPLUS_abde(1.04d11, 9.746d3,  1.1644d0, -7.0485d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO1 = 0.15HPALD3 + 0.25HPALD1 + 0.4HO2 +\n 0.6CO + 1.5OH + 0.3CH2O + 0.3MGLY +\n 0.3HPETHNL + 0.3MCO3 :                      TUNPLUS_abcde(5.05d15, -1.22d4, 1.0d8, -0.0128d0, 5.1242d-5);                     {2019/11/06; Bates2019; KHB}\nIHOO4 = MACR + OH + CH2O :                   ARRPLUS_abde(1.88d11, 9.752d3, 1.2038d0, -9.0435d-4);                             {2019/11/06; Bates2019; KHB}\nIHOO4 = 0.15HPALD4 + 0.25HPALD2 + 1.5OH +\n 0.3CH2O + 0.9CO + 0.7HO2 + 0.3MGLY +\n 0.3ATOOH :                                  TUNPLUS_abcde(2.22d9, -7.160d3, 1.0d8, -0.0306d0, 1.1346d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO1 = 2MVK + 2HO2 + 2CH2O :        ARRPLUS_ade(6.92d-14, 1.1644d0, -7.0485d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO4 + IHOO4 = 2MACR + 2HO2 + 2CH2O :       ARRPLUS_ade(5.74d-12, 1.2038d0, -9.0435d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO4 = MACR + MVK + 2HO2 + 2CH2O :  ARRPLUS_ade(1.54d-12, 2.3682d0, -1.6092d-3);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO1 = HO2 + HC5A + CO + OH +\n MVKHP :                                     ARRPLUS_ade(2.49d-12, -0.1644d0, 7.0485d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO4 + IHOO4 = HO2 + HC5A + CO + OH +\n MCRHP :                                     ARRPLUS_ade(3.94d-12, -0.2038d0, 9.0435d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO4 = HO2 + HC5A + CO + OH +\n 0.5MVKHP + 0.5MCRHP :                       ARRPLUS_ade(1.54d-12, -0.3682d0, 1.6092d-3);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + MO2 = MVK + 2HO2 + 2CH2O :           ARRPLUS_ade(2.0d-12, 1.1644d0, -7.0485d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO1 + MO2 = CH2O + 0.5HC5A + 1.5HO2 +\n 0.5MVKHP + 0.5CO + 0.5OH :                  ARRPLUS_ade(2.0d-12, -0.1644d0, 7.0485d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO4 + MO2 = MACR + 2HO2 + 2CH2O :          ARRPLUS_ade(2.0d-12, 1.2038d0, -9.0435d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO4 + MO2 = CH2O + 0.5HC5A + 1.5HO2 +\n 0.5MCRHP + 0.5CO + 0.5OH :                  ARRPLUS_ade(2.0d-12, -0.2038d0, 9.0435d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = IHN2 :                          GC_NIT(2.7d-12, 3.50d2, 1.19d0,  6.0d0, 1.1644d0, 7.05d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = NO2 + MVK + HO2 + CH2O :        GC_ALK(2.7d-12, 3.50d2, 1.19d0,  6.0d0, 1.1644d0, 7.05d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = IHN4 :                          GC_NIT(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.1644d0, -7.05d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MVKHP + 0.55CO + 0.55OH :               GC_ALK(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.1644d0, -7.05d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = IHN3 :                          GC_NIT(2.7d-12, 3.50d2, 1.297d0, 6.0d0, 1.2038d0, 9.04d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = NO2 + MACR + HO2 + CH2O :       GC_ALK(2.7d-12, 3.50d2, 1.297d0, 6.0d0, 1.2038d0, 9.04d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = IHN1 :                          GC_NIT(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.2038d0, -9.04d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = NO2 + 0.45HO2 + 0.45HC5A +\n 0.55MCRHP + 0.55CO + 0.55OH :               GC_ALK(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.2038d0, -9.04d-4);                     {2019/11/06; Bates2019; KHB}\nHPALD1 + OH = 0.035MVK + 0.315HPALD1OO +\n 0.15IDC + 0.33MVKHP + 0.085HO2 +\n 0.085CH2O + 0.085MGLY + 0.085ICHE +\n 1.085OH + 0.45CO :                          GCARR_ac(1.17d-11, 450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD2 + OH = 0.035MACR + 0.315HPALD2OO +\n 0.15IDC + 0.17MCRHP + 0.165HO2 +\n 0.165CH2O + 0.165MGLY + 0.165ICHE +\n 1.165OH + 0.37CO :                          GCARR_ac(1.17d-11, 450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD3 + OH = OH + 0.230MVK + 0.420CO +\n 0.190MVKHP + 0.580ICHE :                    GCARR_ac(2.20d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD4 + OH = OH + 0.770ICHE + 0.230CO +\n 0.090MCRHP + 0.140MACR :                    GCARR_ac(3.50d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHC5A + OH = 1.065OH + 0.355CO2 + 0.638CO +\n 0.355MGLY + 0.283HO2 + 0.294IEPOXAOO +\n 0.125MVKHP + 0.158MCRHP + 0.068IEPOXBOO :   GCARR_ac(4.64d-12, 650.0d0);                                                      {2019/11/06; Bates2019; KHB}\nICHE + OH = OH + 1.5CO + 0.5CH2O +\n 0.5MGLY + 0.5HAC :                          GCARR_ac(9.85d-12, 410.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIDC + OH = CO + HO2 + MVKPC :                GCARR_ac(3.00d-12, 650.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.655IHPOO3 + 0.345IHPOO1 +\n 0.005LVOC :                                 GCARR_ac(2.47d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.67IEPOXA + 0.33IEPOXB + OH +\n 0.005LVOC :                                 GC_EPO_a(1.62d-11, 3.90d2, 4.77d-21);                                             {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.655IHPOO3 + 0.345IHPOO2 +\n 0.005LVOC :                                 GCARR_ac(4.35d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.68IEPOXA + 0.32IEPOXB + OH +\n 0.005LVOC :                                 GC_EPO_a(2.85d-11, 390.0d0, 4.77d-21);                                            {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.75IHOO1 + 0.125MVK +\n 0.25CO + 0.125MVKHP + 0.25HO2 + 0.005LVOC : GCARR_ac(6.10d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.51IHOO4 + 0.16ICHOO +\n 0.33CO + 0.33HO2 + 0.165MACR +\n 0.165MCRHP + 0.005LVOC :                    GCARR_ac(4.10d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPC + OH = 0.595IHPOO1 + 0.03IHOO1 +\n 0.06HC5A + 0.024HO2 + 0.009HPALD3 +\n 0.015HPALD1 + 0.405OH + 0.036CO +\n 0.018CH2O + 0.018MGLY + 0.018HPETHNL +\n 0.018MCO3 + 0.255IEPOXD + 0.005LVOC :       GCARR_ac(3.53d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPD + OH = 0.255IHPOO2 + 0.03IHOO4 +\n 0.745OH + 0.06HC5A + 0.009HPALD4 +\n 0.015HPALD2 + 0.042HO2 + 0.018CH2O +\n 0.054CO + 0.018MGLY + 0.018ATOOH +\n 0.595IEPOXD + 0.005LVOC :                   GCARR_ac(3.53d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHPOO1 = 0.176ICPDH + 0.824IDHPE + OH :      GCARR_ac(1.59d+13, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPOO1 + NO = 0.716MCRHP + 0.716CH2O +\n 0.284HPETHNL + 0.284HAC + NO2 + HO2 :       GC_ALK(2.7d-12, 3.50d2, 2.1d0, 9.0d0, 1.0d0, 0.0d0);                              {2019/11/06; Bates2019; KHB}\nIHPOO1 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 2.1d0, 9.0d0, 1.0d0, 0.0d0);                              {2019/11/06; Bates2019; KHB}\nIHPOO1 + HO2 = 0.725IDHDP + 0.14MCRHP +\n 0.14CH2O + 0.135HPETHNL + 0.135HAC +\n 0.275OH + 0.275HO2 :                        GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPOO2 = 0.548ICPDH + 0.452IDHPE + OH :      GCARR_ac(2.91d+13, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPOO2 + NO = 0.706MVKHP + 0.706CH2O +\n 0.294GLYC + 0.294ATOOH + NO2 + HO2 :        GC_ALK(2.7d-12, 3.50d2, 2.315d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO2 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 2.315d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO2 + HO2 = 0.725IDHDP + 0.14MVKHP +\n 0.14CH2O + 0.135GLYC + 0.135ATOOH +\n 0.275OH + 0.275HO2 :                        GCARR_ac(2.47d-13,  1300.0d0);                                                    {2019/11/06; Bates2019; KHB}\nIHPOO3 = IDHPE :                             GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIHPOO3 + NO = GLYC + HAC + NO2 + OH :        GC_ALK(2.7d-12, 3.50d2, 3.079d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO3 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 3.079d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO3 + HO2 = 0.35IDHDP + 0.65GLYC +\n 0.65HAC + 1.3OH :                           GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXD + OH = 0.75ICHE + 0.75HO2 +\n 0.25ICHOO :                                 GCARR_ac(3.22d-11, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXA + OH = ICHE + HO2 :                   GCARR_ac(1.05d-11, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXA + OH = 0.67IEPOXAOO + 0.33IEPOXBOO :  GC_EPO_a(5.82d-11, -4.00d2, 1.14d-20);                                            {2019/11/06; Bates2019; KHB}\nIEPOXB + OH = ICHE + HO2 :                   GCARR_ac(8.25d-12, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXB + OH = 0.81IEPOXAOO + 0.19IEPOXBOO :  GC_EPO_a(3.75d-11, -4.00d2, 8.91d-21);                                            {2019/11/06; Bates2019; KHB}\nIEPOXAOO = IDCHP + HO2 :                     GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIEPOXAOO = OH + CO + MVKDH :                 GCARR_ac(1.0d+7, -5000.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIEPOXAOO + HO2 = 0.13CO + 0.65OH +\n 0.65HO2 + 0.13MVKDH + 0.52GLYC +\n 0.52MGLY + 0.35ICPDH :                      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXAOO + NO = 0.2MVKDH + HO2 + NO2 +\n 0.2CO + 0.8GLYC + 0.8MGLY :                 GC_ALK(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXAOO + NO = ITCN :                       GC_NIT(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO = IDCHP + HO2 :                     GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIEPOXBOO = CO + OH + MCRDH :                 GCARR_ac(1.0d+7, -5000.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIEPOXBOO + NO = NO2 + HO2 + 0.8GLYX +\n 0.8HAC + 0.2CO + 0.2MCRDH :                 GC_ALK(2.7d-12, 3.50d2, 16.463d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO + NO = ITCN :                       GC_NIT(2.7d-12, 3.50d2, 16.463d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO + HO2 = 0.13CO + 0.65OH +\n 0.65HO2 + 0.13MCRDH + 0.52HAC +\n 0.52GLYX + 0.35ICPDH :                      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nICHOO + HO2 = 0.35ICPDH + 0.65OH +\n 0.52CO + 0.13MVKHC + 0.65CH2O + 0.65HO2 +\n 0.52HAC :                                   GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nICHOO + NO = ITCN :                          GC_NIT(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nICHOO + NO = NO2 + 0.8HAC + 0.8CO + CH2O +\n HO2 + 0.2MVKHC :                            GC_ALK(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nICHOO = HO2 + 2.000CO + HAC + OH :           GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nHPALD1OO + NO = NO2 + OH + CO2 + MVK :       GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD1OO + HO2 = OH + OH + CO2 + MVK :       GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nHPALD2OO + NO = NO2 + OH + CO2 + MACR :      GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD2OO + HO2 = OH + OH + CO2 + MACR :      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHN2 + OH = ISOPNOO1 :                       GCARR_ac(7.14d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN2 + OH = 0.67IEPOXA + 0.33IEPOXB + NO2 :  GC_EPO_a(6.30d-12, 390.0d0, 1.62d-19);                                            {2019/11/06; Bates2019; KHB}\nIHN3 + OH = ISOPNOO2 :                       GCARR_ac(1.02d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN3 + OH = 0.67IEPOXA + 0.33IEPOXB + NO2 :  GC_EPO_a(1.05d-11, 390.0d0, 2.49d-19);                                            {2019/11/06; Bates2019; KHB}\nIHN1 + OH = IEPOXD + NO2 :                   GC_EPO_a(1.55d-11, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nIHN1 + OH = IDHNDOO1 :                       GCARR_ac(2.04d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN4 + OH = IEPOXD + NO2 :                   GC_EPO_a(9.52d-12, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nIHN4 + OH = IDHNDOO2 :                       GCARR_ac(2.95d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN1 + OH = 0.6OH + 0.6CO + 0.6MCRHNB +\n 0.4HO2 + 0.4ICN :                           GCARR_ac(7.5d-12, 20.0d0);                                                        {2019/11/06; Bates2019; KHB}\nIHN4 + OH = 0.6OH + 0.6CO + 0.6MVKN +\n 0.4HO2 + 0.4ICN :                           GCARR_ac(7.5d-12, 20.0d0);                                                        {2019/11/06; Bates2019; KHB}\nISOPNOO1 = ITCN + HO2 :                      GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nISOPNOO1 + HO2 = 0.482ITHN + 0.059MCRHN +\n 0.059CH2O + 0.459GLYC + 0.459HAC +\n 0.059HO2 + 0.459NO2 + 0.518OH :             GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nISOPNOO1 + NO = 0.272MCRHN + 0.272CH2O +\n 0.728GLYC + 0.728HAC + 0.272HO2 +\n 1.728NO2 :                                  GC_ALK(2.7d-12, 350.0d0, 6.32d0, 11.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nISOPNOO1 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 6.32d0, 11.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nISOPNOO2 = ITCN + HO2 :                      GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nISOPNOO2 + HO2 = 0.401ITHN + 0.599MVKN +\n 0.599CH2O + 0.599HO2 + 0.599OH :            GCARR_ac(2.60d-13,  1300.0d0);                                                    {2019/11/06; Bates2019; KHB}\nISOPNOO2 + NO = MVKN + CH2O + HO2 + NO2 :    GC_ALK(2.7d-12, 350.0d0, 7.941d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nISOPNOO2 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 7.941d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO1 = ITCN + HO2 :                      GCARR_ac(1.256d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIDHNDOO2 = ITCN + HO2 :                      GCARR_ac(5.092d+12, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + HO2 = 0.418ITHN + 0.551PROPNN +\n 0.551GLYC + 0.031MCRHNB + 0.031CH2O +\n 0.582HO2 + 0.582OH :                        GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + NO = 0.935PROPNN + 0.935GLYC +\n 0.065MCRHNB + 0.065CH2O + HO2 + NO2 :       GC_ALK(2.7d-12, 350.0d0, 4.712d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 4.712d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + HO2 = 0.494ITHN + 0.441HAC +\n 0.441ETHLN + 0.065MVKN + 0.065CH2O +\n 0.506OH + 0.506HO2 :                        GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + NO = 0.858HAC + 0.858ETHLN +\n 0.142MVKN + 0.142CH2O + HO2 + NO2 :         GC_ALK(2.7d-12, 350.0d0, 2.258d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 2.258d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNBOO + HO2 = 0.379HO2 + 0.379OH +\n 0.621ITHN + 0.094MCRHNB + 0.242GLYC +\n 0.242PROPNN + 0.010MVKN + 0.033HAC +\n 0.033ETHLN + 0.104CH2O :                    GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNBOO + NO = 0.355MCRHNB + 0.546PROPNN +\n 0.546GLYC + 0.028MVKN + 0.071ETHLN +\n 0.071HAC + HO2 + NO2 + 0.383CH2O :          GC_ALK(2.7d-12, 350.0d0, 1.851d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNBOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 1.851d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nISOP + NO3 = 0.465INO2B + 0.535INO2D +\n LISOPNO3 :                                  GCARR_ac(2.95d-12, -450.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2B + HO2 = 0.473INPB + 0.048MACR +\n 0.479MVK + 0.527OH + 0.527CH2O + 0.527NO2 : GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2D + HO2 = INPD :                         GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2B + INO2B = 1.737MVK + 0.123MACR +\n 1.860CH2O + 1.860NO2 + 0.070INPB +\n 0.070ICN :                                  1.61d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + INO2D = 0.399INPB + 0.544MVK +\n 0.532ICN + 0.563NO2 + 0.474INA +\n 0.089HO2 + 0.019MACR + 0.563CH2O +\n 0.032IHN1 :                                 2.56d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2D + INO2D = 0.064HO2 + 0.340INA +\n 0.862ICN + 0.671IHN1 + 0.127IHN4 :          3.71d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2D + MO2 = 0.298IHN1 + 0.057IHN4 +\n 0.244INA + 0.401ICN + 0.355MOH +\n 0.336HO2 + 0.645CH2O :                      1.18d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + MO2 = 0.355INPB + 0.583MVK +\n 0.028MACR + 0.034ICN + 0.611HO2 +\n 1.577CH2O + 0.611NO2 + 0.034MOH :           2.80d-13;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + MCO3 = CH2O + NO2 + MO2 +\n 0.903MVK + 0.097MACR + CO2 :                1.92d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2D + MCO3 = MO2 + 0.841INA + 0.159HO2 +\n 0.159ICN + CO2 :                            7.71d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2B + NO3 = CH2O + 2NO2 + 0.903MVK +\n 0.097MACR :                                 2.3d-12;                                                                          {2019/11/06; Bates2019; KHB}\nINO2D + NO3 = NO2 + 0.841INA + 0.159HO2 +\n 0.159ICN :                                  2.3d-12;                                                                          {2019/11/06; Bates2019; KHB}\nINO2B + NO = 2NO2 + CH2O + 0.096MACR +\n 0.904MVK :                                  GC_ALK(2.7d-12, 350.0d0, 12.915d0, 9.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nINO2B + NO = IDN :                           GC_NIT(2.7d-12, 350.0d0, 12.915d0, 9.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nINO2D + NO = NO2 + 0.159HO2 + 0.159ICN +\n 0.841INA :                                  GC_ALK(2.7d-12, 350.0d0, 1.412d0, 9.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nINO2D + NO = IDN :                           GC_NIT(2.7d-12, 350.0d0, 1.412d0, 9.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nINA + O2 = ICN + HO2 :                       GCARR_ac(2.50d-14, -300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINA = IDHNBOO :                              GCARR_ac(1.00d+20, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nINPB + OH = 0.670IHPNBOO + 0.33IDHNBOO :     GCARR_ac(5.88d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPD + OH = IHPNDOO :                        GCARR_ac(1.61d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPB + OH = OH + ITHN :                      GC_EPO_a(4.471d-12, 390.0d0, 2.28d-20);                                           {2019/11/06; Bates2019; KHB}\nINPD + OH = OH + ITHN :                      GC_EPO_a(8.77d-12,  390.0d0, 2.185d-20);                                          {2019/11/06; Bates2019; KHB}\nINPD + OH = NO2 + ICHE :                     GC_EPO_a(1.493d-11, 390.0d0, 2.715d-19);                                          {2019/11/06; Bates2019; KHB}\nINPB + OH = INO2B :                          GCARR_ac(2.278d-12, 200.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINPD + OH = INO2D :                          GCARR_ac(3.40d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPD + OH = ICN + OH :                       GCARR_ac(7.50d-12, 20.0d0);                                                       {2019/11/06; Bates2019; KHB}\nIHPNDOO = OH + ITCN :                        GCARR_ac(6.55d+12, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPNBOO = OH + 0.5ITCN + 0.5ITHN :           GCARR_ac(8.72d+12, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPNBOO + HO2 = 0.234ITHN + 0.060MCRHNB +\n 0.340GLYC + 0.249HPETHNL + 0.004MCRHP +\n 0.008MVKN + 0.009ATOOH + 0.054MVKHP +\n 0.042HAC + 1.147OH + 0.326HO2 +\n 0.058NO2 + 0.126CH2O + 0.589PROPNN +\n 0.051ETHLN :                                GCARR_ac(2.64d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPNDOO + HO2 = 0.387ITHN + 0.073MCRHNB +\n 0.471HPETHNL + 0.015MVKN + 0.054ATOOH +\n 0.646OH + 0.580HO2 + 0.088CH2O +\n 0.471PROPNN + 0.054ETHLN :                  GCARR_ac(2.64d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPNBOO + NO = 0.384GLYC + 0.170MCRHNB +\n 0.303HPETHNL + 0.014MVKN + 0.051HAC +\n 0.013ATOOH + 0.059MVKHP + 0.006MCRHP +\n 0.687PROPNN + 0.064ETHLN + 0.249CH2O +\n 1.065NO2 + 0.500HO2 + 0.435OH :             GC_ALK(2.7d-12, 350.0d0, 6.092d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNBOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 6.092d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNDOO + NO = 0.291MCRHNB +\n 0.590HPETHNL + 0.070ATOOH + 0.049MVKN +\n 0.590PROPNN + 0.070ETHLN + 0.340CH2O +\n 1.000NO2 + 0.904HO2 + 0.096OH :             GC_ALK(2.7d-12, 350.0d0, 4.383d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNDOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 4.383d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nICN + OH = NO2 + ICHE :                      GC_EPO_a(2.97d-12, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nICN + OH = 0.244OH + 0.539CO + 0.295HO2 +\n 0.378MCRHNB + 0.461ICNOO + 0.161MVKN :      GCARR_ac(9.35d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nICNOO + NO = 0.67ICNOO + 0.429CO2 +\n 0.33CO + 0.33HO2 + 0.231PROPNN + NO2 +\n 0.099ETHLN :                                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICNOO + HO2 = 0.67ICNOO + 0.429CO2 +\n 0.33CO + 0.33HO2 + 0.231PROPNN + OH +\n 0.099ETHLN :                                GCARR_ac(2.54d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIDN + OH = 0.565NO2 + 0.565ITHN +\n 0.435IDNOO :                                GCARR_ac(1.00d-11, 0.0d0);                                                        {2019/11/06; Bates2019; KHB}\nIDNOO + NO = PROPNN + 1.11NO2 + 0.11GLYC +\n 0.89ETHLN + 0.89HO2 :                       GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIDNOO + HO2 = 0.18IDN + 0.09NO2 +\n 0.09GLYC + 0.82OH + 0.73HO2 +\n 0.82PROPNN + 0.73ETHLN :                    GCARR_ac(2.71d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMVK + OH = MVKOHOO :                         GCARR_ac(2.60d-12, 610.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVK + O3 = 0.545MGLY + 0.500CH2OO +\n 0.600CH2O + 0.380MCO3 + 0.100HO2 +\n 0.080OH + 0.280CO + 0.075PYAC + 0.045H2O2 : GCARR_ac(8.50d-16, -1520.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMACR + OH = 0.036ATOOH + 0.036CO +\n 0.036HO2 + 0.964MCROHOO :                   GCARR_ac(4.40d-12, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR + OH = MACR1OO :                        GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR + O3 = 0.880MGLY + 0.880CH2OO +\n 0.120CH2O + 0.120OH + 0.120CO + 0.120MCO3 : GCARR_ac(1.50d-15, -2110.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nMACR + NO3 = 0.320HNO3 + 0.320MACR1OO +\n 0.680OH + 0.680CO + 0.680PROPNN :           GCARR_ac(1.80d-13, -1190.0d0);                                                    {2019/11/06; Bates2019; KHB}\nMVKN + OH = 0.241CH2O + 0.690NO3 +\n 0.020OH + 0.449MGLY + 0.449HCOOH +\n 0.241PYAC + 0.290MVKHCB + 0.310NO2 +\n 0.040MCO3 :                                 GCARR_ac(1.24d-12, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKHP + OH = 0.53MVKHC + 0.47MVKHCB + OH :   5.77d-11;                                                                         {2019/11/06; Bates2019; KHB}\nMCRHP + OH = 0.77CO + OH + 0.77HAC +\n 0.23ATOOH + 0.23CO2 :                       GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCRHN + OH = MACRNO2 :                       GCARR_ac(1.39d-11, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCRHNB + OH = 0.250CO + OH + PROPNN +\n 0.750CO2 :                                  GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP1 + NO = NO2 + MVKOHOO :                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP1 + HO2 = OH + MVKOHOO :                GCARR_ac(1.93d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nC4HVP1 + NO2 = MVKN :                        9.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nC4HVP2 + NO = NO2 + MCROHOO :                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP2 + HO2 = OH + MCROHOO :                GCARR_ac(1.93d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nC4HVP2 + NO2 = MCRHN :                       9.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nMCRENOL + OH = 0.75CO + 0.285OH +\n 0.715HO2 + 0.653PYAC  + 0.097CO2 +\n 0.097MCO3 + 0.063MVKHCB + 0.187MGLY +\n 0.187HCOOH :                                GCARR_ac(3.71d-12, 983.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKPC + OH = OH + CO + MGLY :                GCARR_ac(5.00d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKDH + OH = 0.4MVKHCB + 0.6MVKHC + HO2 :    GCARR_ac(8.70d-12, 70.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMVKHCB + OH = OH + MGLY + CO :               GCARR_ac(5.00d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMVKHC + OH = 2CO + HO2 + MCO3 :              GCARR_ac(2.00d-12, 70.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMCRDH + OH = 0.16MVKHCB + HO2 + 0.84HAC +\n 0.84CO :                                    GCARR_ac(2.4d-11, 70.0d0);                                                        {2019/11/06; Bates2019; KHB}\nMVKOHOO + HO2 = 0.360MCO3 + 0.360GLYC +\n 0.665OH + 0.305HO2 + 0.255MVKHC +\n 0.335MVKHP + 0.050MGLY + 0.050CH2O :        GCARR_ac(2.12d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMVKOHOO + NO = 0.758MCO3 + 0.758GLYC +\n 0.242MGLY + 0.242CH2O + 0.242HO2 + NO2 :    GC_ALK(2.7d-12, 350.0d0, 4.573d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMVKOHOO + NO = MVKN :                        GC_NIT(2.7d-12, 350.0d0, 4.573d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMCROHOO + HO2 = 0.41MCRHP + 0.507HAC +\n 0.507CO + 0.507HO2 + 0.59OH + 0.59O2 +\n 0.083MGLY + 0.083CH2O :                     GCARR_ac(2.12d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMACR1OO + HO2 = 0.5MACR1OOH + 0.5CH2O +\n 0.325CO + 0.325MO2 + 0.175MCO3 + 0.5CO2 +\n 0.5OH + 0.13O3 :                            GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR1OOH + OH = 0.165MACR1OO + 0.585OH +\n 0.488HAC + 0.488CO + 0.098HMML +\n 0.410CO2 + 0.25CH2O + 0.087MCO3 +\n 0.162MO2 :                                  1.66d-11;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMCROHOO = HAC + CO + OH :                    GCARR_ac(2.90d+7, -5297.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMCROHOO + NO = 0.86HAC + 0.86CO +\n 0.86HO2 + NO2 + 0.14MGLY + 0.14CH2O :       GC_ALK(2.7d-12, 350.0d0, 2.985d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMCROHOO + NO = MCRHN :                       GC_NIT(2.7d-12, 350.0d0, 2.985d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMACR1OO + NO = 0.35MCO3 + 0.65MO2 +\n 0.65CO + CH2O + CO2 + NO2 :                 GCARR_ac(8.7d-12, 290.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMACR1OO + NO2 = MPAN :                       GC_PAN_acac(2.591d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + HO2 = 0.5HAC + 0.5OH + 0.5CO2 +\n 0.5NO2 + 0.13O3 + 0.37MCRHN + 0.13MCRHNB :  GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO = HAC + 2NO2 + CO2 :            GCARR_ac(7.50d-12, 290.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO2 = MPAN + NO2 :                 GC_PAN_acac(2.591d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO3 = HAC + 2NO2 + CO2 :           4.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nMACRNO2 + MO2 = 0.7HAC + 0.7CO2 + 0.7NO2 +\n 0.7HO2 + CH2O + 0.3MCRHNB :                 GCARR_ac(2.9d-12, 500.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMPAN = MACR1OO + NO2 :                       GCARR_ac(1.58d+16, -13500.0d0);                                                   {2019/11/06; Bates2019; KHB}\nMPAN + OH = 0.75HMML + NO3 + 0.25HAC +\n 0.25CO :                                    2.90d-11;                                                                         {2019/11/06; Bates2019; KHB}\nHMML + OH = 0.700MGLY + 0.700OH +\n 0.300MCO3 + 0.300HCOOH + CO :               4.33d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICPDH + OH = CO + 0.5HO2 + 0.5OH +\n 0.5MCRHP + 0.35MVKDH + 0.15MCRDH :          1.00d-11;                                                                         {2019/11/06; Bates2019; KHB}\nIDCHP + OH = 0.888CO + 0.444OH +\n 0.444HO2 + 0.318MVKHC + 0.08IEPOXAOO +\n 0.126MVKHCB + 0.444MVKPC + 0.032IEPOXBOO :  2.25d-11;                                                                         {2019/11/06; Bates2019; KHB}\nIDHDP + OH = OH + 0.333ICPDH + 0.667IDHPE :  3.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nIDHPE + OH = OH + CO2 + 0.571MCRHP +\n 0.429MVKHP :                                3.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nITCN + OH = CO + NO2 + 0.75MVKHP +\n 0.25MCRHP :                                 1.00d-11;                                                                         {2019/11/06; Bates2019; KHB}\nITHN + OH = 0.300OH + 0.620HO2 +\n 0.900ITCN + 0.037IDHNBOO + 0.041ICNOO +\n 0.022MCRENOL + 0.022NO2 + 0.022CH2O :       3.00d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nETHLN + NO3 = HNO3 + NO2 + MCO3 :            GCARR_ac(1.40d-12, -1860.0d0);                                                    {2019/11/06; Bates2019; KHB}\nPYAC + OH = MCO3 + CO2 :                     8.00d-13;                                                                         {2019/11/06; Bates2019; KHB}\nHMHP + OH = 0.5CH2O + 0.5HO2 + 0.5HCOOH +\n 0.5OH :                                     GCARR_ac(1.30d-12, 500.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCO3 + HO2 = 0.13O3 + 0.13ACTA + 0.37MAP +\n 0.5MO2 + 0.5CO2 + 0.5OH :                   GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPETHNL + OH = CO + OH + CH2O :              GCARR_ac(1.55d-12, 340.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPETHNL + OH = GLYX + OH :                   2.91d-11;                                                                         {2019/11/06; Bates2019; KHB}\nNAP + OH = NRO2 + OH :                       GCARR_ac(1.56d-11, 117.0d0);                                                      {2013/08/12; Pye2010; HOTP}\nNRO2 + HO2 = LNRO2H + HO2 :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2013/08/12; Pye2010; HOTP}\nNRO2 + NO = LNRO2N + NO :                    GCARR_ac(2.60d-12, 350.0d0);                                                      {2013/08/12; Pye2010; HOTP}\n//\n// --- RCOOH chemistry (KRT)\nRCOOH + OH = ETO2 + CO2 + H2O :              1.20d-12;                                                                         {2024/08/20; Travis2024; KRT}\n//\n// ----- STYR/EBZ/TMB chemistry (Bates et al., 2021)\nSTYR + OH = 0.300ZRO2 + 0.700AROMRO2 +\n 0.700HO2 + CH2O + 0.700BALD :               5.8d-11;                                                                          {krt, Bates et al., 2021}\nSTYR + NO3 = AROMRO2 + NO2 + CH2O + BALD :   1.5d-12;                                                                          {krt, Bates et al., 2021}\nSTYR + O3 = 0.500CH2OO + 0.500CH2O +\n 0.620BALD + 0.100BENZ + 0.280BENZO2 +\n 0.180CO + 0.180OH + 0.100HO2 :              1.7d-17;                                                                          {krt, Bates et al., 2021}\nEBZ + OH = 0.813AROMRO2 + 0.250CH2O +\n 0.070ZRO2 + 0.180CSL + 0.400ALD2 +\n 0.400AROMP5 + 0.800AROMP4 + 0.1800HO2 :     7.0d-12;                                                                          {krt, Bates et al., 2021}\nEBZ + NO3 = AROMRO2 + HNO3 + CH2O + BALD :   1.2d-16;                                                                          {krt, Bates et al., 2021}\nTMB + OH = 0.930AROMRO2 + 0.120CH2O + \n 0.050ZRO2 + 0.030CSL + 0.600AROMP5 +\n 0.375AROMP4 + 0.250MGLY + 0.100GLYX +\n 0.500RCOOH + 0.120CO + 0.030HO2 +\n 0.150TLFUONE :                              3.92d-11; {krt, Bates et al., 2021}\nTMB + NO3 = AROMRO2 + HNO3 +\n  0.400AROMP5 + BALD :                       1.4d-15;                                                                          {krt, Bates et al., 2021}\n//\n// ------ Lumped aromatic nitrate ----\nZRO2 + NO = 0.110RNO3 + 0.890BALD +\n  0.890NO2 + HO2 :                           GCARR_ac(2.7d-12,360.0d0);{MCM}\nZRO2 + HO2 = BALD + OH :                     GCARR_ac(1.5d-13,1310.0d0);{MCM}\nRNO3 + OH = BALD + NO2 + HO2 :               7.16d-11;{MCM}\n//\n// --- C2H2 & C2H4 chemistry (per KHB)\nC2H4 + O3 = CH2O + CH2OO :                   GCARR_ac(1.20d-14, -2630.0d0);                                                    {2021/09/22; Kwon2020; KHB,MSL; 2023/04/18; JPL 19-5; KHB}\nC2H4 + OH = ETOO :                           GCJPLPR_abab(1.10d-28, 3.5d+00, 8.4d-12, 1.75d0, 0.5d0);                          {2021/09/22; Kwon2020; KHB,MSL}\nC2H2 + OH = 0.636GLYX + 0.636OH +\n 0.364CO + 0.364HO2 + 0.364HCOOH :           GCJPLPR_abab(5.50d-30, 0.0d0, 8.3d-13, -2.0d0, 0.5d0);                            {2021/09/22; Kwon2020; KHB,MSL}\nETOO + HO2 = ETHP :                          GCARR_ac(1.53d-13, 1300.0d0);                                                     {2021/09/22; Kwon2020; KHB,MSL}\nETOO + NO = 0.995ETO +\n 0.995NO2 + 0.005ETHN :                      GCARR_ac(2.7d-12, 360.0d0);                                                       {2021/09/22; Kwon2020; KHB,MSL}\nETOO + NO3 = ETO + NO2 :                     2.3d-12;                                                                          {2021/09/22; Kwon2020; KHB,MSL}\nETOO + MO2 = 0.6ETO + 0.6HO2 + 0.8CH2O +\n 0.2MOH + 0.2ETHP + 0.2GLYC :                6.00d-13;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\nETO = HO2 + 2.000CH2O :                      GCARR_ac(9.5d+13, -5988.0d0);                                                     {2021/09/22; Kwon2020; KHB,MSL}\nETO + O2 = GLYC + HO2 :                      GCARR_ac(2.5d-14, -300.0d0);                                                      {2021/09/22; Kwon2020; KHB,MSL}\nETHN + OH = GLYC + NO2 :                     8.40d-13;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\nETHP + OH = ETOO :                           GCARR_ac(1.90d-12, 190.0d0);                                                      {2021/09/22; Kwon2020; KHB,MSL}\nETHP + OH = OH + GLYC :                      1.38d-11;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\n//\n// --- Aromatic Chemistry (per KHB)\nBENZ + OH = BRO2 + 0.54PHEN + 0.54HO2 +\n 0.46AROMRO2 + 0.18GLYX +\n 0.2CO +0.55AROMP4 :                         GCARR_ac(2.3d-12, -193.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB}\nTOLU + OH = TRO2 + 0.19CSL + 0.19HO2 +\n 0.81AROMRO2 + 0.06BALD + 0.12GLYX +\n 0.12MGLY + 0.27CO + 0.04MVK + 0.3AROMP5 +\n 0.68AROMP4 :                                GCARR_ac(1.8d-12, 340.0d0);                                                       {2021/09/29; Bates2021b; KHB,MSL}\nXYLE + OH = XRO2 + 0.15CSL + 0.15HO2 +\n 0.85AROMRO2 + 0.06BALD + 0.1GLYX +\n 0.2MGLY + 0.3CO + 0.04MVK + 0.56AROMP5 +\n 0.28AROMP4 + 0.45RCOOH :                    1.7d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + HO2 = OH + HO2 :                   2.91d-13 * EXP( 1300.0d0 / TEMP ) * 0.82d0;                                       {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + NO = NO2 + HO2 :                   GCARR_ac(2.60d-12, 365.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + NO3 = NO2 + HO2 :                  2.30d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + MO2 = CH2O + HO2 + HO2 :           GCARR_ac(1.70d-14, 220.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + MCO3 = MO2 + HO2 + CO2 :           GCARR_ac(4.20d-14, 220.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB}\n//-----Lumped aromatic PN------\nTLFUONE + OH = TLFUO2 :                      6.9d-11;\nTLFUO2 + NO = NO2 + AROMCHO + HO2 :          GCARR_abc(2.7d-12,0.0d0,360.0d0);\nTLFUO2 + HO2 = AROMCHO :                     GCARR_abc(2.05d-13,0.0d0,1300.0d0);\nAROMCHO + OH = AROMCO3 :                     7.09E-11;\nAROMCO3 + NO = NO2 + RCO3 + 2CO2 :           GCARR_abc(7.50d-12,0.0d0,290.0d0);\nAROMCO3 + HO2 = 0.15O3 + 0.15RCOOH +\n 0.44CO2 + 0.44OH + 0.44RCO3+ 0.41RP :       GCARR_abc(5.20d-13,0.0d0,980.0d0);\nAROMCO3 + NO2 {+M} = AROMPN :                GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                       {Same as BZPAN}\nAROMPN = AROMCO3 + NO2 :                     GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0;             {Same as BZPAN}\nAROMPN + OH = 2CO + NO2 + MCO3 + CH2O :      1.0d-14;        {MCM for ACCOMEPAN}\n//------\nPHEN + OH = 0.06BENZO + 0.06GLYX +\n 0.18AROMP4 + 0.14AROMRO2 +\n 0.8MCT + 0.8HO2 :                           GCARR_ac(4.70d-13, 1220.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nPHEN + NO3 = 0.258NPHEN + 0.742HNO3 +\n 0.742BENZO :                                3.8d-12;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nCSL + OH = 0.727MCT + 0.727HO2 +\n 0.2AROMRO2 + 0.073BENZO + 0.44AROMP5 :      4.7d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nCSL + NO3 = 0.5NPHEN + 0.2AROMRO2 +\n 0.5HNO3 + 0.3BENZO + 0.44AROMP5 :           1.4d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + OH = 0.3BENZO + 0.7AROMRO2 +\n 1.05AROMP4 :                                2.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + O3 = GLYC + HO2 + OH + AROMP4 :        9.2d-18;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + NO3 = 0.5NPHEN + 0.5HNO3 +\n 0.3BENZO + 0.2AROMRO2 + 0.3AROMP4 :         9.9d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nBALD + OH = BZCO3 :                          GCARR_ac(5.90d-12, 225.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBALD + NO3 = BZCO3 + HNO3 :                  2.4d-15;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + HO2 = 0.35CO2 + 0.2BENZO2 +\n 0.15O3 + 0.2OH + 0.15BENZP + 0.65BZCO3H :   GCARR_ac(1.10d-11, 340.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + NO = NO2 + CO2 + BENZO2 :            GCARR_ac(7.50d-12, 290.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + NO2 = BZPAN :                        GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                       {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3H + OH = BZCO3 :                        4.66d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBZPAN = BZCO3 + NO2 :                        GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0;             {2021/09/29; Bates2021b; KHB,MSL}\nBZPAN + OH = BENZP + CO2 + NO2 :             1.06d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO2 = BENZO + NO3 :                 7.00d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO = BENZO + NO2 :                  GCARR_ac(2.670d-12, 365.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO3 = BENZO + NO2 :                 2.30d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + HO2 = BENZP :                       GCARR_ac(2.24d-13, 1300.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nBENZP + OH = BENZO2 :                        3.60d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO + O3 = BENZO2 :                        2.86d-13;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO + NO2 = NPHEN :                        2.08d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nNPHEN + OH = 0.5R4N1 + 0.9AROMP4 +\n 0.5NO2 +0.15CO :                            3.47d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nNPHEN + NO3 = 0.5HNO3 + NO2 +\n 0.5R4N1 + 0.9AROMP4 + 0.15CO :              2.60d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nBENZO2 + MO2 = BENZO + HO2 + CH2O :          GCARR_ac(2.670d-13, 365.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + MO2 = BENZO2 + CO2 + HO2 + CH2O :    GCARR_ac(2.670d-12, 365.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nAROMP4 + OH = 0.6GLYX + 0.26CO + 0.26HCOOH +\n 0.25OH + 0.33HO2 + 0.33RCO3 + 0.43RCOOH :   5.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nAROMP4 + O3 = 0.5HCOOH + 0.5CO + 0.6GLYX +\n 0.9GLYC + 0.1HO2 + 0.1OH :                  8.0d-16;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP4 = 0.2HO2 + 0.2GLYX + 1.2RCHO :        1.5d-3;                                                                           {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 + OH = 0.6MGLY + 0.15ACTA +\n 0.1HCOOH + 0.25OH + 0.33HO2 +\n 0.33RCO3 + 0.25CO + 0.52RCOOH :             5.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 + O3 = 0.6MGLY + 0.3ACTA + 0.2HCOOH +\n 0.5CO + 0.95GLYC + 0.1HO2 + 0.1OH :         8.0d-16;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 = 0.2HO2 + 0.2ALK4O2 +\n 0.2MGLY + 1.15RCHO + 0.05CO :               1.5d-3;                                                                           {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB}\n//\n// KHB -- \"we still need to include the dummy species for aromatic oxidation\n//         to make the complex SOA code work. Hopefully this will be changed\n//         very soon when Jared Brewer updates the aromatic SOA, but I think it's\n//         still necessary, in which case, we need to add the following reactions too.\n//         (If I'm wrong, we can delete XRO2, TRO2, BRO2, LXRO2N, LXRO2H,\n//         LTRO2N, LTRO2H, LBRO2N, and LBRO2H from the species list, delete\n//         XRO2, TRO2, and BRO2 as products from the BENZ + OH, TOLU + OH,\n//         and XYLE + OH reactions above, and not include the following reactions)\"\n//\nBRO2 + HO2 = HO2 + LBRO2H :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBRO2 + NO  = NO + LBRO2N  :                  GCARR_ac(2.60d-12, 350.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nTRO2 + HO2 = HO2 + LTRO2H :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nTRO2 + NO  = NO + LTRO2N  :                  GCARR_ac(2.60d-12, 350.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nXRO2 + HO2 = HO2 + LXRO2H :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nXRO2 + NO  = NO + LXRO2N  :                  GCARR_ac(2.60d-12, 350.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nMO2  + NO3 = NO2 + CH2O + HO2 :              1.20d-12;                                                                         {2022/10/18: IUPAC ROO_19; KHB,BMY}\nFURA + OH = BUTDI :                          GCARR_ac(1.32d-11, 334.0d0);                                                      {2023/02/07; Carter2022; TSC}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Heterogeneous chemistry reactions                               %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\nHO2 = H2O :                    HO2uptk1stOrd( State_Het );                                                  {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nNO2 = 0.500HNO3 + 0.500HNO2 :  NO2uptk1stOrdAndCloud( State_Het );\nNO3 = HNO3 :                   NO3uptk1stOrdAndCloud( State_Het );\nNO3 = NIT :                    NO3hypsisClonSALA( State_Het );                                              {2018/03/16; XW}\nNO3 = NITs :                   NO3hypsisClonSALC( State_Het );                                              {2018/03/16; XW}\nN2O5 + H2O = 2.000HNO3 :       N2O5uptkByH2O( State_Het );\nN2O5 + HCl = ClNO2 + HNO3 :    N2O5uptkByStratHCl( State_Het );                                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nN2O5 = 2.000HNO3 :             N2O5uptkByCloud( State_Het );                                                {2018/10/17; Cloud uptake, CDH}\nN2O5 + SALACL = ClNO2 + HNO3 : N2O5uptkBySALACl( State_Het );                                               {2018/01/19; Sherwen2017;TS,JAS,SDE,XW}\nN2O5 + SALCCL = ClNO2 + HNO3 : N2O5uptkBySALCCl( State_Het );                                               {2018/01/19; Sherwen2017;TS,JAS,SDE,XW}\nOH + SALACL = 0.500Cl2 :       OHuptkBySALACl( State_Het );                                                 {2018/03/12; XW}\nOH + SALCCL = 0.500Cl2 :       OHuptkBySALCCl( State_Het );                                                 {2018/03/12; XW}\nBrNO3 + H2O = HOBr + HNO3 :    BrNO3uptkByH2O( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nBrNO3 + HCl = BrCl + HNO3 :    BrNO3uptkByHCl( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + H2O = HOCl + HNO3 :    ClNO3uptkByH2O( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + HCl = Cl2 + HNO3 :     ClNO3uptkByHCl( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + HBr = BrCl + HNO3 :    ClNO3uptkByHBr( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + BrSALA = BrCl + HNO3 : ClNO3uptkByBrSALA( State_Het );                                              {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nClNO3 + BrSALC = BrCl + HNO3 : ClNO3uptkByBrSALC( State_Het );                                              {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nClNO3 + SALACL = Cl2 + HNO3 :  ClNO3uptkBySALACL( State_Het );                                              {2018/01/22; XW}\nClNO3 + SALCCL = Cl2 + HNO3 :  ClNO3uptkBySALCCL( State_Het );                                              {2018/01/22; XW}\nClNO2 + SALACL = Cl2 + HNO2 :  ClNO2uptkBySALACL( State_Het );                                              {2018/01/22; XW}\nClNO2 + SALCCL = Cl2 + HNO2 :  ClNO2uptkBySALCCL( State_Het );                                              {2018/01/22; XW}\nClNO2 + HCl = Cl2 + HNO2 :     ClNO2uptkByHCl( State_Het );                                                 {2018/01/22; XW}\nClNO2 + BrSALA = BrCl + HNO2 : ClNO2uptkByBrSALA( State_Het );                                              {2018/01/22; XW}\nClNO2 + BrSALC = BrCl + HNO2 : ClNO2uptkByBrSALC( State_Het );                                              {2018/01/22; XW}\nClNO2 + HBr = BrCl + HNO2 :    ClNO2uptkByHBr( State_Het );                                                 {2018/01/22; XW}\nHOCl + HCl = Cl2 + H2O :       HOClUptkByHCl( State_Het );                                                  {2014/02/03; Eastham2014; SDE}\nHOCl + HBr = BrCl + H2O :      HOClUptkByHBr( State_Het );                                                  {2014/02/03; Eastham2014; SDE}\nHOCl + SALACL = Cl2 + H2O :    HOClUptkBySALACL( State_Het );                                               {2018/01/22; XW}\nHOCl + SALCCL = Cl2 + H2O :    HOClUptkBySALCCL( State_Het );                                               {2018/01/22; XW}\nHOCl + SO2 = SO4 + HCl :       HOClUptkByHSO3m( State_Het ) + HOClUptkBySO3mm( State_Het ) + SRHOCl;        {2023/01/30; Add SRHOCL, BA; 2018/11/08; XW; June 6, 2021, MSL}\nHOBr + HBr = Br2 + H2O :       HOBrUptkByHBr( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOBr + HCl = BrCl + H2O :      HOBrUptkByHCl( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOBr + SALACL = BrCl + H2O :   HOBrUptkBySALACL( State_Het );                                               {2018/01/22; Sherwen2017;TS,JAS,SDE;XW}\nHOBr + SALCCL = BrCl + H2O :   HOBrUptkBySALCCL( State_Het );                                               {2018/01/22; Sherwen2017;TS,JAS,SDE,XW}\nHOBr + BrSALA = Br2 :          HOBrUptkByBrSALA( State_Het );                                               {2017/09/22; Sherwen2017;TS,JAS,SDE}\nHOBr + BrSALC = Br2 :          HOBrUptkByBrSALC( State_Het );                                               {2017/09/22; Sherwen2017;TS,JAS,SDE}\nHOBr + SO2 = SO4 + HBr :       HOBrUptkByHSO3m( State_Het ) + HOBrUptkBySO3mm( State_Het ) + SRHOBr;        {2023/01/30; Add SRHOBrL, BA; 2017/11/15; Chen2017; QJC; June 6, 2021, MSL}\nO3 + HBr = HOBr :              O3uptkByHBr( State_Het );                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nO3 + BrSALA = HOBr :           O3uptkByBrSALA( State_Het );                                                 {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nO3 + BrSALC = HOBr :           O3uptkByBrSALC( State_Het );                                                 {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHBr = BrSALA :                 HBrUptkBySALA( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHBr = BrSALC :                 HBrUptkBySALC( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = AERI :                    IuptkBySulf1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = ISALA :                   IuptkBySALA1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = ISALC :                   IuptkBySALC1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI = ISALA :                  IuptkByAlkSALA1stOrd( SR_MW(ind_HOI), 0.01_dp, State_Het );                  {2023/01/24; Restored deleted rxn:BA}\nHOI = ISALC :                  IuptkByAlkSALC1stOrd( SR_MW(ind_HOI), 0.01_dp, State_Het );                  {2022/12/02; Restored deleted rxn:BA}\nI2O2 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO = ISALA + HNO2 :          IuptkByAlkSALA1stOrd( SR_MW(ind_IONO), 0.02_dp, State_Het );                 {2022/12/02; Restored deleted rxn:BA}\nIONO = ISALC + HNO2 :          IuptkByAlkSALC1stOrd( SR_MW(ind_IONO), 0.02_dp, State_Het );                 {2022/12/02; Restored deleted rxn:BA}\nIONO2 = ISALA + HNO3 :         IuptkByAlkSALA1stOrd( SR_MW(ind_IONO2), 0.01_dp, State_Het );                {2022/12/02; Restored deleted rxn:BA}\nIONO2 = ISALC + HNO3 :         IuptkByAlkSALC1stOrd( SR_MW(ind_IONO2), 0.01_dp, State_Het );                {2022/12/02; Restored deleted rxn:BA}\nIONO2 + H2O = HOI + HNO3 :     IONO2uptkByH2O( State_Het );                                                 {2021/09/16 XW, TSherwen}\nIONO + BrSALA = IBr + HNO2 :   IbrkdnByAcidBrSALA( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + BrSALC = IBr + HNO2 :   IbrkdnByAcidBrSALC( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + SALACL = ICl + HNO2 :   IbrkdnByAcidSALACl( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + SALCCL = ICl + HNO2 :   IbrkdnByAcidSALCCl( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + BrSALA = IBr + HNO3 :  IbrkdnByAcidBrSALA( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + BrSALC = IBr + HNO3 :  IbrkdnByAcidBrSALC( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + SALACL = ICl + HNO3 :  IbrkdnByAcidSALACl( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + SALCCL = ICl + HNO3 :  IbrkdnByAcidSALCCl( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + BrSALA = IBr :           IbrkdnByAcidBrSALA( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + BrSALC = IBr :           IbrkdnByAcidBrSALC( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + SALACL = ICl :           IbrkdnByAcidSALACl( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + SALCCL = ICl :           IbrkdnByAcidSALCCl( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nGLYX = SOAGX :                 GLYXuptk1stOrd( SR_MW(ind_GLYX), State_Het);                                 {2017/06/15; Marais2016, EAM}\nMGLY = 1.500SOAGX :            MGLYuptk1stOrd( SR_MW(ind_MGLY), State_Het);                                 {2017/06/15; Marais2016, EAM; 2023/04/18; Bates2023; KHB}\nIEPOXA = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXA), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nIEPOXB = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXB), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nIEPOXD = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXD), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nLVOC = LVOCOA :                VOCuptk1stOrd( SR_MW(ind_LVOC), 1.0_dp, State_Het );                         {2017/06/15; Marais2016, EAM}\nMVKN = IONITA :                VOCuptk1stOrd( SR_MW(ind_MVKN), 5.0E-3_dp, State_Het );                      {2017/06/15; Marais2016, EAM}\nR4N2 = IONITA :                VOCuptk1stOrd( SR_MW(ind_R4N2), 5.0E-3_dp, State_Het );                      {2017/06/15; Marais2016, EAM}\nMONITS = MONITA :              VOCuptk1stOrd( SR_MW(ind_MONITS), 1.0E-2_dp, State_Het );                    {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU = MONITA :              VOCuptk1stOrd( SR_MW(ind_MONITU), 1.0E-2_dp, State_Het );                    {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT = MONITA :               VOCuptk1stOrd( SR_MW(ind_HONIT), 1.0E-2_dp, State_Het );                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nPYAC = 1.500SOAGX :            MGLYuptk1stOrd( SR_MW(ind_PYAC), State_Het );                                {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nHMML = 0.800SOAIE :            IEPOXuptk1stOrd( SR_MW(ind_HMML), .TRUE., State_Het);                        {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIHN1 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN1), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN2 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN2), 5.0E-2_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN3 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN3), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN4 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN4), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nICHE = SOAIE :                 IEPOXuptk1stOrd( SR_MW(ind_ICHE), .FALSE., State_Het );                      {2019/11/06; Bates2019; KHB}\nINPD = IONITA :                VOCuptk1stOrd( SR_MW(ind_INPD), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nINPB = IONITA :                VOCuptk1stOrd( SR_MW(ind_INPB), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIDN = IONITA :                 VOCuptk1stOrd( SR_MW(ind_IDN), 5.0E-3_dp, State_Het );                       {2019/11/06; Bates2019; KHB}\nITCN = IONITA :                VOCuptk1stOrd( SR_MW(ind_ITCN), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nITHN = IONITA :                VOCuptk1stOrd( SR_MW(ind_ITHN), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nMCRHNB = IONITA :              VOCuptk1stOrd( SR_MW(ind_MCRHNB), 5.0E-3_dp, State_Het );                    {2019/11/06; Bates2019; KHB}\nMCRHN = IONITA :               VOCuptk1stOrd( SR_MW(ind_MCRHN), 5.0E-3_dp, State_Het );                     {2019/11/06; Bates2019; KHB}\nNPHEN = AONITA :               VOCuptk1stOrd( SR_MW(ind_NPHEN), 1.0E-2_dp, State_Het );                     {2021/09/29; Bates2021b; KHB,MSL}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Photolysis reactions                                            %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\nO3 + hv = O + O2 :                           PHOTOL(2);      {2014/02/03; Eastham2014; SDE}\nO3 + hv = O1D + O2 :                         PHOTOL(3);      {2014/02/03; Eastham2014; SDE}\nO2 + hv = 2.000O :                           PHOTOL(1);      {2014/02/03; Eastham2014; SDE}\nNO2 + hv = NO + O :                          PHOTOL(11);     {2014/02/03; Eastham2014; SDE}\nH2O2 + hv = OH + OH :                        PHOTOL(9);\nMP + hv = CH2O + HO2 + OH :                  PHOTOL(10);\nCH2O + hv = HO2 + H + CO :                   PHOTOL(7);      {2014/02/03; Eastham2014; SDE}\nCH2O + hv = H2 + CO :                        PHOTOL(8);\nHNO3 + hv = OH + NO2 :                       PHOTOL(16);\nHNO2 + hv = OH + NO :                        PHOTOL(15);\nHNO4 + hv = OH + NO3 :                       PHOTOL(17);\nHNO4 + hv = HO2 + NO2 :                      PHOTOL(18);\nNO3 + hv = NO2 + O :                         PHOTOL(12);     {2014/02/03; Eastham2014; SDE}\nNO3 + hv = NO + O2 :                         PHOTOL(13);\nN2O5 + hv = NO3 + NO2 :                      PHOTOL(14);\nALD2 + hv = 0.880MO2 + HO2 + 0.880CO +\n 0.120MCO3 :                                 PHOTOL(61);     {2014/12/19; FAST-JX v7.0 fix; JMAO}\nALD2 + hv = CH4 + CO :                       PHOTOL(62);\nPAN + hv = 0.700MCO3 + 0.700NO2 +\n 0.300MO2 + 0.300NO3 + 0.300CO2 :            PHOTOL(59);     {2014/05/23; Eastham2014; JMAO,SDE; 2023/04/18; Bates2023; KHB}\nAPAN + hv = ACO3 + NO2 :                     PHOTOL(59);     {2014/05/23; Eastham2014; JMAO,SDE}\nACR + hv = 0.700CO + 0.300HO2 + \n 0.300CH2O + 0.400C2H4 + 0.300ACO3 :         PHOTOL(66);\nAROMCHO + hv = HO2 + CO + MCO3 + CH2O :      PHOTOL(70);     {2019/05/10; Fisher2018; JAF}\nRCHO + hv = 0.490OTHRO2 + HO2 + CO +\n 0.070A3O2 + 0.270B3O2 :                     PHOTOL(70);     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nACET + hv = MCO3 + MO2 :                     PHOTOL(76);\nACET + hv = 2.000MO2 + CO :                  PHOTOL(77);\nMEK + hv = 0.850MCO3 + 0.415OTHRO2 +\n 0.150MO2 + 0.150RCO3 + 0.060A3O2 +\n 0.230B3O2 :                                 PHOTOL(69);     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nGLYC + hv = 0.900CH2O + 1.730HO2 + CO +\n 0.070OH + 0.100MOH :                        PHOTOL(68);     {2014/05/23; Eastham2014; JMAO,SDE}\nGLYX + hv = 2.000HO2 + 2.000CO :             PHOTOL(72);\nGLYX + hv = H2 + 2.000CO :                   PHOTOL(73);\nGLYX + hv = CH2O + CO :                      PHOTOL(74);\nMGLY + hv = MCO3 + CO + HO2 :                PHOTOL(71);\nMVK + hv = PRPE + CO :                       PHOTOL(63);\nMVK + hv = MCO3 + CH2O + CO + HO2 :          PHOTOL(64);\nMVK + hv = MO2 + RCO3 :                      PHOTOL(65);     {2014/05/23; Eastham2014; JMAO,SDE}\nMACR + hv = CO + HO2 + CH2O + MCO3 :         PHOTOL(66);     {2014/05/23; Eastham2014; JMAO,SDE}\nHAC + hv = MCO3 + CH2O + HO2 :               PHOTOL(75);\nPRPN + hv = OH + HO2 + RCHO + NO2 :          PHOTOL(79);\nETP + hv = OH + HO2 + ALD2 :                 PHOTOL(80);\nRA3P + hv = OH + HO2 + RCHO :                PHOTOL(81);\nRB3P + hv = OH + HO2 + ACET :                PHOTOL(82);\nR4P + hv = OH + HO2 + 1.500RCHO :            PHOTOL(83);     {2023/04/18; Bates2023; KHB}\nR7P + hv = OH + HO2 + RCHO :                 PHOTOL(83);\nALK4P + hv = OH + HO2 + 1.500RCHO :          PHOTOL(83);     {2023/05/14; Brewer2023; JFB}\nPP + hv = OH + HO2 + ALD2 + CH2O :           PHOTOL(84);\nRP + hv = OH + HO2 + ALD2 + MO2 :            PHOTOL(85);     {2023/04/18; Bates2023; KHB}\nR4N2 + hv = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               PHOTOL(98);     {2023/04/18; Bates2023; KHB}\nR7N2 + hv = NO2 + 0.348ALD2 + 1.558RCHO +\n 0.326MCO3 + 0.326RCO3 + 0.326HO2 :          PHOTOL(98);\nRNO3 + hv = BALD + NO2 + HO2 + H2O :         PHOTOL(98);\nALK4N2 + hv = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               PHOTOL(98);     {2023/05/14; Brewer2023; JFB}\nMAP + hv = OH + MO2 + CO2 :                  PHOTOL(99);     {2023/04/18; Bates2023; KHB}\nBr2 + hv = 2.000Br :                         PHOTOL(23);     {2012/06/07; Parrella2012; JPP}\nBrO + hv = Br + O :                          PHOTOL(28);     {2014/02/03; Eastham2014; SDE}\nHOBr + hv = Br + OH :                        PHOTOL(32);     {2012/06/07; Parrella2012; JPP}\nBrNO3 + hv = Br + NO3 :                      PHOTOL(29);     {2012/06/07; Parrella2012; JPP}\nBrNO3 + hv = BrO + NO2 :                     PHOTOL(30);     {2012/06/07; Parrella2012; JPP}\nBrNO2 + hv = Br + NO2 :                      PHOTOL(31);     {2012/06/07; Parrella2012; JPP}\nCHBr3 + hv = 3.000Br :                       PHOTOL(56);     {2012/06/07; Parrella2012; JPP}\nCH2Br2 + hv = 2.000Br :                      PHOTOL(55);     {2014/02/03; Eastham2014; SDE}\nCH3Br + hv = MO2 + Br :                      PHOTOL(50);     {2014/02/03; Eastham2014; SDE}\nCH3Cl + hv = MO2 + Cl :                      PHOTOL(43);     {2014/02/03; Eastham2014; SDE}\nCH2Cl2 + hv = 2.000Cl :                      PHOTOL(45);     {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nBrCl + hv = Br + Cl :                        PHOTOL(33);     {2014/02/03; Eastham2014; SDE}\nCl2 + hv = 2.000Cl :                         PHOTOL(22);     {2014/02/03; Eastham2014; SDE}\nClO + hv = Cl + O :                          PHOTOL(27);     {2014/02/03; Eastham2014; SDE}\nOClO + hv = ClO + O :                        PHOTOL(25);     {2014/02/03; Eastham2014; SDE}\nCl2O2 + hv = Cl + ClOO :                     PHOTOL(26);     {2014/02/03; Eastham2014; SDE}\nClNO2 + hv = Cl + NO2 :                      PHOTOL(21);     {2014/02/03; Eastham2014; SDE}\nClNO3 + hv = Cl + NO3 :                      PHOTOL(19);     {2014/02/03; Eastham2014; SDE}\nClNO3 + hv = ClO + NO2 :                     PHOTOL(20);     {2014/02/03; Eastham2014; SDE}\nHOCl + hv = Cl + OH :                        PHOTOL(24);     {2014/02/03; Eastham2014; SDE}\nCH3CCl3 + hv = 3.000Cl :                     PHOTOL(44);     {2014/02/03; Eastham2014; SDE}\nCCl4 + hv = 4.000Cl :                        PHOTOL(42);     {2014/02/03; Eastham2014; SDE}\nCFC11 + hv = 3.000Cl :                       PHOTOL(37);     {2014/02/03; Eastham2014; SDE}\nCFC12 + hv = 2.000Cl :                       PHOTOL(38);     {2014/02/03; Eastham2014; SDE}\nCFC113 + hv = 3.000Cl :                      PHOTOL(39);     {2014/02/03; Eastham2014; SDE}\nCFC114 + hv = 2.000Cl :                      PHOTOL(40);     {2014/02/03; Eastham2014; SDE}\nCFC115 + hv = Cl :                           PHOTOL(41);     {2014/02/03; Eastham2014; SDE}\nHCFC123 + hv = 2.000Cl :                     PHOTOL(47);     {2014/02/03; Eastham2014; SDE}\nHCFC141b + hv = 2.000Cl :                    PHOTOL(48);     {2014/02/03; Eastham2014; SDE}\nHCFC142b + hv = Cl :                         PHOTOL(49);     {2014/02/03; Eastham2014; SDE}\nHCFC22 + hv = Cl :                           PHOTOL(46);     {2014/02/03; Eastham2014; SDE}\nH1301 + hv = Br :                            PHOTOL(53);     {2014/02/03; Eastham2014; SDE}\nH1211 + hv = Cl + Br :                       PHOTOL(51);     {2014/02/03; Eastham2014; SDE}\nH2402 + hv = 2.000Br :                       PHOTOL(54);     {2014/02/03; Eastham2014; SDE}\nClOO + hv = Cl + O2 :                        PHOTOL(101);    {2014/02/03; Eastham2014; SDE}\nI2 + hv = 2.000I :                           PHOTOL(114);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI + hv = I + OH :                          PHOTOL(115);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + hv = I + O :                            PHOTOL(116);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + hv = I + O2 :                          PHOTOL(117);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nINO + hv = I + NO :                          PHOTOL(118);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO + hv = I + NO2 :                        PHOTOL(119);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 + hv = I + NO3 :                       PHOTOL(120);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 + hv = I + OIO :                        PHOTOL(121);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH3I + hv = I :                              PHOTOL(122);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2I2 + hv = 2.000I :                        PHOTOL(123);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2ICl + hv = I + Cl :                       PHOTOL(124);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2IBr + hv = I + Br :                       PHOTOL(125);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 + hv = 2.000OIO :                       PHOTOL(126);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 + hv = OIO + IO :                       PHOTOL(127);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIBr + hv = I + Br :                          PHOTOL(128);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nICl + hv = I + Cl :                          PHOTOL(129);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nMPN + hv = CH2O + NO3 + HO2 :                PHOTOL(103);    {2012/02/12; Browne2011; ECB}\nMPN + hv = MO2 + NO2 :                       PHOTOL(104);    {2012/02/12; Browne2011; ECB}\nATOOH + hv = OH + CH2O + MCO3 :              PHOTOL(97);     {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nN2O + hv = N2 + O1D :                        PHOTOL(36);     {2014/02/03; Eastham2014; SDE}\nOCS + hv = SO2 + CO :                        PHOTOL(34);     {2014/02/03; Eastham2014; SDE}\nSO4 + hv = SO2 + 2.000OH :                   PHOTOL(100);    {2014/02/03; Eastham2014; SDE}\nNO + hv = O + N :                            PHOTOL(6);      {2014/02/03; Eastham2014; SDE}\nPIP + hv = RCHO + OH + HO2 :                 PHOTOL(105);    {2017/03/23; Fischer2014; EVF}\nETHLN + hv = NO2 + CH2O + CO + HO2 :         PHOTOL(107);    {2017/06/15; Marais2016; EAM}\nMONITS + hv = MEK + NO2 :                    PHOTOL(111);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + hv = RCHO + NO2 :                   PHOTOL(112);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT + hv = HAC + NO2 :                     PHOTOL(113);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nNITs + hv = HNO2 :                           PHOTOL(130);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNITs + hv = NO2 :                            PHOTOL(131);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNIT + hv = HNO2 :                            PHOTOL(132);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNIT + hv = NO2 :                             PHOTOL(133);    {2018/07/19; Kasibhatla2018; PK, TMS}\nMENO3 + hv = NO2 + HO2 + CH2O :              PHOTOL(134);    {2019/07/11; Fisher2018; JAF}\nETNO3 + hv = NO2 + HO2 + ALD2 :              PHOTOL(135);    {2019/07/11; Fisher2018; JAF}\nIPRNO3 + hv = NO2 + HO2 + ACET :             PHOTOL(136);    {2019/07/11; Fisher2018; JAF}\nNPRNO3 + hv = NO2 + HO2 + RCHO :             PHOTOL(137);    {2019/07/11; Fisher2018; JAF}\nHMHP + hv = 2OH + CH2O :                     PHOTOL(86);     {2019/11/06; Bates2019; KHB}\nHPETHNL + hv = OH + CO + HO2 + CH2O :        PHOTOL(87);     {2019/11/06; Bates2019; KHB}\nPYAC + hv = MCO3 + CO2 + HO2 :               PHOTOL(88);     {2019/11/06; Bates2019; KHB}\nPROPNN + hv = NO2 + CH2O + MCO3 :            PHOTOL(89);     {2019/11/06; Bates2019; KHB}\nMVKHC + hv = CO + HO2 + CH2O + MCO3 :        PHOTOL(90);     {2019/11/06; Bates2019; KHB}\nMVKHCB + hv = 0.5GLYX + 1.5HO2 + 0.5MCO3 +\n 0.5CO + 0.5MGLY :                           PHOTOL(91);     {2019/11/06; Bates2019; KHB}\nMVKHP + hv = 0.53MCO3 + 0.53GLYC + OH +\n 0.47HO2 + 0.47CH2O + 0.47MGLY :             PHOTOL(92);     {2019/11/06; Bates2019; KHB}\nMVKPC + hv = OH + 0.571CO + 0.571MGLY +\n 0.571HO2 + 0.429GLYX + 0.429MCO3 :          PHOTOL(93);     {2019/11/06; Bates2019; KHB}\nMCRENOL + hv = 0.875CO + 0.75PYAC +\n 1.75OH + 0.125MGLY + 0.125HO2 +\n 0.125MCO3 + 0.125GLYX :                     PHOTOL(94);     {2019/11/06; Bates2019; KHB}\nMCRHP + hv = OH + 0.77CO + HO2 + 0.77HAC +\n 0.23MGLY + 0.23CH2O :                       PHOTOL(95);     {2019/11/06; Bates2019; KHB}\nMACR1OOH + hv = 0.75OH + 1.238CO2 +\n 0.488MO2 + 0.75CH2O + 0.262MCO3 +\n 0.25MACR1OOH :                              PHOTOL(96);     {2019/11/06; Bates2019; KHB}\nMVKN + hv = 0.290HO2 + 0.010OH +\n 0.700NO2 + 1.010MCO3 + 0.690GLYC +\n 0.300ETHLN :                                PHOTOL(108);    {2019/11/06; Bates2019; KHB}\nMCRHN + hv = HAC + CO + HO2 + NO2 :          PHOTOL(109);    {2019/11/06; Bates2019; KHB}\nMCRHNB + hv = PROPNN + OH + CO + HO2 :       PHOTOL(110);    {2019/11/06; Bates2019; KHB}\nRIPA + hv = MVK + CH2O + HO2 + OH :          PHOTOL(138);    {2019/11/06; Bates2019; KHB}\nRIPB + hv = MACR + CH2O + HO2 + OH :         PHOTOL(139);    {2019/11/06; Bates2019; KHB}\nRIPC + hv = OH + HO2 + HC5A :                PHOTOL(140);    {2019/11/06; Bates2019; KHB}\nRIPD + hv = OH + HO2 + HC5A :                PHOTOL(141);    {2019/11/06; Bates2019; KHB}\nHPALD1 + hv = 0.888CO + 1.662OH +\n 0.112HO2 + 0.112IDC + 0.112MVKPC +\n 0.552MCRENOL + 0.224C4HVP1 :                PHOTOL(142);    {2019/11/06; Bates2019; KHB}\nHPALD2 + hv = 0.818CO + 1.637OH +\n 0.182HO2 + 0.182IDC + 0.182MVKPC +\n 0.454MCRENOL + 0.182C4HVP2 :                PHOTOL(143);    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nHPALD3 + hv = CO + OH + HO2 + MVK :          PHOTOL(144);    {2019/11/06; Bates2019; KHB}\nHPALD4 + hv = CO + OH + HO2 + MACR :         PHOTOL(145);    {2019/11/06; Bates2019; KHB}\nIHN1 + hv = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MVKHP + 0.55CO + 0.55OH :               PHOTOL(146);    {2019/11/06; Bates2019; KHB}\nIHN2 + hv = NO2 + MVK + HO2 + CH2O :         PHOTOL(147);    {2019/11/06; Bates2019; KHB}\nIHN3 + hv = NO2 + MACR + HO2 + CH2O :        PHOTOL(148);    {2019/11/06; Bates2019; KHB}\nIHN4 + hv = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MCRHP + 0.55CO + 0.55OH :               PHOTOL(149);    {2019/11/06; Bates2019; KHB}\nINPB + hv = NO2 + CH2O + 0.097MACR +\n 0.903MVK + 0.67OH + 0.33HO2 :               PHOTOL(150);    {2019/11/06; Bates2019; KHB}\nINPD + hv = OH + 0.159HO2 + 0.159ICN +\n 0.841INA :                                  PHOTOL(151);    {2019/11/06; Bates2019; KHB}\nINPD + hv = NO2 + 0.841IHOO1 + 0.159IHOO4 :  PHOTOL(152);    {2019/11/06; Bates2019; KHB}\nICN + hv = NO2 + 0.839CO + 0.645OH +\n 0.161HO2 + 0.161IDC + 0.162MVKPC +\n 0.481MCRENOL + 0.128C4HVP2 + 0.068C4HVP1 :  PHOTOL(106);    {2019/11/06; Bates2019; KHB}\nIDN + hv = 1.555NO2 + 0.5GLYC + 0.5HAC +\n 0.05MVK + 0.005MACR + 0.055CH2O +\n 0.222INA + 0.223ICN + 0.228HO2 :            PHOTOL(78);     {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICPDH + hv = CO + 1.5HO2 + 0.5OH +\n 0.5MCRHP + 0.35MVKDH + 0.15MCRDH :          PHOTOL(153);    {2019/11/06; Bates2019; KHB}\nICPDH + hv = OH + HO2 + 0.163CO +\n 0.133CH2O + 0.133MVKHCB + 0.586HAC +\n 0.586GLYX + 0.118GLYC + 0.118MGLY +\n 0.163MCRDH :                                PHOTOL(154);    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIDHDP + hv = 1.25OH + 0.25GLYC + 0.25HAC +\n 0.75ICPDH + 0.75HO2 :                       PHOTOL(155);    {2019/11/06; Bates2019; KHB}\nIDHPE + hv = OH + HO2 + 0.429MGLY +\n 0.429GLYC + 0.571GLYX + 0.571HAC :          PHOTOL(156);    {2019/11/06; Bates2019; KHB}\nIDCHP + hv = 0.546OH + CO + 1.454HO2 +\n 0.391MVKHC + 0.155MVKHCB + 0.454MVKPC :     PHOTOL(157);    {2019/11/06; Bates2019; KHB}\nITHN + hv = OH + 0.7HO2 + 0.55CH2O +\n 0.5MCRHN + 0.3GLYC + 0.45HAC + 0.3NO2 +\n 0.15ETHLN + 0.05MVKN :                      PHOTOL(158);    {2019/11/06; Bates2019; KHB}\nITHN + hv = NO2 + 0.8HAC + 0.7HO2 +\n 0.5HPETHNL + 0.35GLYC + 0.15CH2O +\n 0.15MCRHP + 0.05ATOOH + 0.3OH :             PHOTOL(159);    {2019/11/06; Bates2019; KHB}\nITCN + hv = MGLY + OH + NO2 + GLYC :         PHOTOL(160);    {2019/11/06; Bates2019; KHB}\nITCN + hv = 0.5MVKHP + 0.5MCRHP + CO +\n NO2 + HO2 :                                 PHOTOL(161);    {2019/11/06; Bates2019; KHB}\nETHP + hv = ETO + OH :                       PHOTOL(162);    {2021/09/22; Bates2021a; KHB,MSL}\nBALD + hv = BENZO2 + CO + HO2 :              PHOTOL(163);    {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3H + hv = BENZO2 + OH + CO2 :            PHOTOL(164);    {2021/09/29; Bates2021b; KHB,MSL}\nBENZP + hv = BENZO :                         PHOTOL(165);    {2021/09/29; Bates2021b; KHB,MSL}\nNPHEN + hv = HNO2 + CO +\n CO2 + AROMP4 + HO2 :                        PHOTOL(166);    {2021/09/29; Bates2021b; KHB,MSL}\nPPN + hv = 0.700RCO3 + 0.700NO2 +\n 0.300NO3 :                                  PHOTOL(167);    {2024/07/11; Horner2024, BH}\nAPINP + hv = PINAL + OH + HO2 :              PHOTOL(168);    {2024/08/20; Travis2024; KRT}\nPINAL + hv = CO + HO2 + C96O2 :              PHOTOL(169);    {2024/08/20; Travis2024; KRT}\nPINO3H + hv = OH + CO2 + C96O2 :             PHOTOL(170);    {2024/08/20; Travis2024; KRT}\nPINONIC + hv = OH + CO2 + C96O2 :            PHOTOL(171);    {2024/08/20; Travis2024; KRT}\nC96O2H + hv = OH + AROMRO2 + ACET +\n CH2O + RCO3 + 0.5MEK :                      PHOTOL(172);    {2024/08/20; Travis2024; KRT}\nBPINP + hv = OH + CH2O + HO2 + BPINO :       PHOTOL(173);    {2024/08/20; Travis2024; KRT}\nBPINOOH + hv = OH + HO2 + 0.27LIMO3 +\n 0.6ACET + 0.6RCHO + 0.6R4O2 :               PHOTOL(174);    {2024/08/20; Travis2024; KRT} \nLIMO3H + hv = OH + CO2 + MCO3 + RCHO +\n 0.4CH2O + 0.8R4O2 :                         PHOTOL(175);    {2024/08/20; Travis2024; KRT}\nLIMO2H + hv = OH + CO2 + MCO3 + RCHO +\n 0.4CH2O + 0.8R4O2 :                         PHOTOL(176);    {2024/08/20; Travis2024; KRT}\nPIP + hv = OH + HO2 + 0.450MVK + 0.45ACET +\n 0.100CH2O + 0.675MYRCO :                    PHOTOL(105);    {2024/08/20; Travis2024; KRT} \nLIMAL + hv = CO + HO2 + 0.900LIMO3 :         PHOTOL(177);    {2024/08/20; Travis2024; KRT}  \n"
  },
  {
    "path": "KPP/custom/custom.kpp",
    "content": "#MINVERSION   3.2.0                  { Need this version of KPP or later     }\n#INTEGRATOR   rosenbrock_autoreduce  { Use Rosenbrock integration method     }\n#AUTOREDUCE   on                     { ...w/ autoreduce enabled but optional }\n#LANGUAGE     Fortran90              { Generate solver code in Fortran90 ... }\n#UPPERCASEF90 on                     { ...w/ .F90 suffix (instead of .f90)   }\n#DRIVER       none                   { Do not create gckpp_Main.F90          }\n#HESSIAN      off                    { Do not create the Hessian matrix      }\n#MEX          off                    { MEX is for Matlab, so skip it         }\n#STOICMAT     off                    { Do not create stoichiometric matrix   }\n\n#INCLUDE custom.eqn       { Chemical reactions for fullchem mechanism  }\n\n#FAMILIES                 { Chemical families for prod/loss diagnostic }\nPOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + PRN1 + PRPN + R4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs;\nLOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + PRN1 + PRPN + R4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs;\nPCO : CO;\nLCO : CO;\nPSO4 : SO4;\nLCH4 : CH4;\nPH2O2 : H2O2;\n\n#INLINE F90_RATES\n  ! All rates are included in fullchem_RateLawFuncs.F90, which\n  ! gets referenced directly from subroutine Update_Rconst.\n#ENDINLINE\n\n#INLINE F90_RCONST_USE\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (11 Jun 2021)\n  USE fullchem_RateLawFuncs\n#ENDINLINE\n\n#INLINE F90_GLOBAL\n#include \"commonIncludeVars.H\"\n#ENDINLINE\n"
  },
  {
    "path": "KPP/fullchem/CHANGELOG_fullchem.md",
    "content": "This file documents all notable changes to the GEOS-Chem `fullchem` chemistry mechanism.\n\nThe format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).\n\n# Mechanism history\n\n## [14.5.0] - TBD\n- Added four new species ALK4N1, ALK4N2, ALK4O2, and ALK4P to address issues in ALK4 and R4N2 chemistry following Brewer et al. (2023, JGR)\n- Added ALK4N1 and ALK4N2 to Ox family in KPP\n- Added new monoterpene mechanism, RCOOH oxidation, chemistry for new PNs (PHAN, AROMPN, MEKPN, APAN, LIMPAN, PINPAN) and aromatic AN (RNO3) per Travis et al., 2024\n- Photolysis of PPN from Horner2024 (BH)\n- PPN+OH and PAN+OH based on the structure activity relationship approach (BH)\n\n## [14.4.0] - 2024-05-30\n- Bug fix: Change `3.4.e-31` to `3.4.d-31` in `NO2 + O = NO + O2` rxn\n- Update rxns with zero Arrhenius `B` parameters to use function `GCARR_ac` instead of `GCARR_abc`\n\n## [14.3.0] - 2024-02-07\n### Added\n- Added PH2SO2 and PSO4AQ to track production of SO4 for use in TOMAS\n\n### Changed\n- Updated rate coefficients and products in 63 reactions per JPL / IUPAC recommendations (JPL 19-5; Bates2023)\n- Consolidated product branches to remove 25 reactions (Bates2023 Table S4)\n\n### Fixed\n- Fixed C and N balance in 63 reactions (Bates2023 Table S2)\n- Replaced the HMS + OH -> 2SO4 + CH2O - SO2 reaction with HMS + OH + SO2 -> 2SO4 + CH2O reaction and divided the rate constant be [SO2] to improve stability\n\n## [14.2.1] - Oct 2023\n### Changed\n- The `fullchem` mechanism must now be built with KPP 3.0.0 or later\n\n## [14.2.0] - Oct 2023\n### Added\n- Added lumped furan chemistry following Carter2020\n- Restored sink reactions for HOI, IONO, IONO2\n- Added S(IV)+HOBr and S(IV)+HOCl rxns (they had been inadvertently omitted)\n- Added nitrate aerosol (NIT, NITs) to Ox family in `gckpp.kpp`\n\n### Changed\n- Set `k(SALAAL+SO2)` and `k(SALCAL+SO2)` to zero if O3 < 1e10 molec/cm3\n\n### Fixed\n- Fix bugs in HOBr uptake rate calculation in `fullchem_RateLawFuncs.F90`\n- Now cap `State_Het%f_Alk_SSA` and `State_Het%f_Alk_SSC` at 1.0\n- Unbalanced rxn IONO = ISALA is now balanced: IONO = ISALA + HNO2\n- Unbalanced rxn IONO = ISALC is now balanced: IONO = ISALC + HNO2\n- Unbalanced rxn IONO2 = ISALA is now balanced: IONO2 = ISALA + HNO3\n- Unbalanced rxn IONO2 = ISALC is now balanced: IONO2 = ISALC + HNO3\n\n### Changed\n  - Restored sink reactions for HOI, IONO, IONO2\n  - Use `GCARR_ac` for rxns where the Arrhenius `B` parameter is zero\n\n## [14.1.0] - Feb 2023\n### Added\n- MO2 + NO3 reaction (IUPAC ROO_19)\n\n### Fixed\n- Bug fix: the \"a\" coefficient in rxn ETO = HO2 + 2.000CH2O was changed from 9.5d-13 (incorrect) to 9.5d+13.  See geoschem/geos-chem #1274.\n- Bug fixes: HOBr + SO2 and HOCl + SO2 should produce SO4 (not SO4s)\n\n## [13.3.0] - Sep 2021\n### Added\n- HMS chemistry (Moch2020)\n- C2H2/C2H4 chemistry (Kwon2020)\n- CH3O2 + OH reaction (Bates2021a)\n- Sulfur reactions for future development (commented out)\n- Aromatic SOA reactions (Bates2021b)\n\n## [13.3.0] - Nov 2022\n### Changed\n- Use double precision numeric constants to each numeric value (e.g. `1.0d0` instead of `1.0e0`).  This will prevent having to call the `DBLE()` functions in the rate law functions, which wastes CPU cycles, and also is a \"lossy\" conversion. (BMY)\n\n## [12.8.0] - Feb 2020\n### Changed\n- Update isoprene chemistry from Bates2019 (KHB)\n\n## [12.7.0] -- Dec 2019\n### Added\n- MENO3, ETNO3, PRNO3 chemistry from Fisher2018 (JAF)\n- \"OTHRO2\", which is equivalent to ETO2 but is not derived from C2H6  oxidation. Necessary to prevent overestimates of ETNO3. All ETO2 reactions are duplicated except ETO2+NO->ETNO3 channel (JAF)\n\n### Changed\n- Make MOH an active species (XC, DBM)\n\n### Removed\n- Old MNO3 species (same as MENO3 but not actually used (JAF)\n\n## [12.6.0] -- Jul 2019\n### Added\n- Photolysis of NITs (off by default) (TMS, PK)\n- Aerosol heterogeneous uptake for NOx (CDH)\n\n## [v11-02d] - Sep 2017\n### Added\n- Halogen chemistry from Sherwen2016b/Sherwen2017 (TS,JAS,SDE,LZHU)\n- HOBr + S(IV) from Chen2017 (QJC)\n\n## [v11-02c] - Jul 2017\n### Added\n- Isoprene SOA updates from Marais2016 (EAM,MPS)\n- Fixes for carbon-creating reactions (SAS,BHH,MJE)\n\n### Changed\n- Updated isoprene and monoterpene chemistry (KRT,JAF,CCM,EAM,KHB,RHS)\n- Based on Travis2016, Fisher2016, ChanMiller2017, Marais2016\n- Add Bates2014 epoxide scheme\n- Update isoprene nitrate chemistry following Lee2014\n- Add Muller2014 fast photolysis of carbonyl nitrates\n- Add HNO2 chemistry from Lee2014\n- Updated product yields and rx rate for RIO2+RIO2 (Xie2013)\n\n## [v11-02a] - Mar 2017\n### Changed\n- Update rate constants based on JPL 15-10 (MJE,BHH)\n- See wiki.geos-chem.org/Updates_in_JPL_Publication_15-10\n- PAN chemistry updates (EVF)\n- Added several new NMVOCs. The extended mechanism includes ethanol,  benzene, toluene and ethylbenzene (lumped), xylenes and trimethyl  benzenes (lumped), and monoterpenes (lumped).\n- Treatment of monoterpene oxidation is adopted from the RACM2 chemical  mechanism (Goliff et al., 2013), lumping terpenes with one double bond  (alpha-pinene, beta-pinene, sabinene, delta-3-carene) into one proxy.\n\n### Fixed\n- ALK4 lumping issue in R4O2 + NO reaction (BHH)\n\n## [v11-01g] - Sep 2016\n### Added\n- Initial version for FlexChem (MSL,MJE,MPS,EWL)\n\n"
  },
  {
    "path": "KPP/fullchem/CMakeLists.txt",
    "content": "# KPP/fullchem/CMakeLists.txt\n\n#----------------------------------------------------------------------------\n# Determine KPP integrator name and set corresponding C-preprocessor flags.\n# This enables integrator-specific handling in the fullchem mechanism.\n#----------------------------------------------------------------------------\n\n# Get integrator name\nEXECUTE_PROCESS(\n  COMMAND grep \\#INTEGRATOR ${CMAKE_CURRENT_SOURCE_DIR}/fullchem.kpp\n  OUTPUT_VARIABLE RESULT\n)\nseparate_arguments(SUBSTRINGS UNIX_COMMAND \"${RESULT}\")\nlist(GET SUBSTRINGS 1 KPP_INTEGRATOR_NAME)\nstring(TOLOWER \"${KPP_INTEGRATOR_NAME}\" KPP_INTEGRATOR_NAME)\n\n# Set C-preprocessor flags\nif(KPP_INTEGRATOR_NAME STREQUAL \"rosenbrock_autoreduce\")\n  set(KPP_INTEGRATOR_AUTOREDUCE ON CACHE BOOL\n      \"Integrator is rosenbrock_autoreduce?\")\n  target_compile_definitions(\n    GEOSChemBuildProperties INTERFACE KPP_INTEGRATOR_AUTOREDUCE\n  )\nendif()\n\n# Print results\ngc_pretty_print(SECTION \"KPP integrator (read from fullchem.kpp)\")\ngc_pretty_print(VARIABLE KPP_INTEGRATOR_NAME)\ngc_pretty_print(VARIABLE KPP_INTEGRATOR_AUTOREDUCE IS_BOOLEAN)\n\n#----------------------------------------------------------------------------\n# Add libKPPFirstPass.a -- fullchem mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP_FirstPass\n  STATIC EXCLUDE_FROM_ALL\n  gckpp_Precision.F90\n  gckpp_Parameters.F90\n  gckpp_Monitor.F90\n)\n\n# Dependencies\ntarget_link_libraries(KPP_FirstPass\n  PUBLIC\n  GEOSChemBuildProperties\n)\n\n#----------------------------------------------------------------------------\n# Add libKPP.a -- fullchem mechanism\n#----------------------------------------------------------------------------\nadd_library(KPP\n  STATIC EXCLUDE_FROM_ALL\n  commonIncludeVars.H\n  fullchem_AutoReduceFuncs.F90\n  fullchem_HetStateFuncs.F90\n  fullchem_RateLawFuncs.F90\n  fullchem_SulfurChemFuncs.F90\n  gckpp_Function.F90\n  gckpp_Global.F90\n  gckpp_Initialize.F90\n  gckpp_Integrator.F90\n  gckpp_Jacobian.F90\n  gckpp_JacobianSP.F90\n  gckpp_LinearAlgebra.F90\n  gckpp_Model.F90\n  gckpp_Monitor.F90\n  gckpp_Parameters.F90\n  gckpp_Precision.F90\n  gckpp_Rates.F90\n  gckpp_Util.F90\n  rateLawUtilFuncs.F90\n  #\n  # Build these stub modules to avoid compilation errors.\n  # These are symbolic links to files in the ../stubs folder.\n  #\n  stub_aciduptake_DustChemFuncs.F90\n  stub_carbon_Funcs.F90\n  stub_Hg_HetStateFuncs.F90\n)\n\n# Dependencies\ntarget_link_libraries(KPP\n  PUBLIC\n  GeosUtil\n)\n\n# Treat REAL as if it were REAL*8\ntarget_compile_options(KPP\n  PRIVATE \"\"\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"Intel\">:-r8>\n  $<$<STREQUAL:\"${CMAKE_Fortran_COMPILER_ID}\",\"GNU\">:-fdefault-real-8 -fdefault-double-8>\n)\n\n# FOR GFORTRAN ONLY: Disable variable tracking for gckpp_Jacobian.F90 in the\n# KPP/fullchem mechanism generated with KPP.  This will avoid a compiler\n# warning and a restart of the KPP library build.  This only has to be done\n# for release types \"Release\" and \"RelWithDebugInfo\".\n#   -- Bob Yantosca (16 Feb 2023)\nif(\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"GNU\")\n  if(NOT (\"${CMAKE_Fortran_COMPILER_ID}\" STREQUAL \"Debug\"))\n    set_source_files_properties(gckpp_Jacobian.F90\n      PROPERTIES\n      COMPILE_OPTIONS -fno-var-tracking-assignments\n    )\n  endif()\nendif()\n"
  },
  {
    "path": "KPP/fullchem/README.md",
    "content": "# KPP/fullchem -- folder for the default GEOS-Chem mechanism\n\nThis folder contains the files that define the full-chemistry\nmechanism (NOx-Ox-VOCs-Br-Cl-I) for GEOS-Chem.\n\n## User-modifiable configuration files\n\n  1. **fullchem.kpp**: Master KPP specification file.\n\n  2. **fullchem.eqn**: KPP equation file, contains reaction definitoins.\n\n  3. **fullchem_HetStateFuncs.F90**: This module contains functions\n     that initialize the HetChem state object.\n\n  4. **fullchem_SulfurChemFuncs.F90**: This module contains routines\n     that compute rates for SO2 reactions in cloud.\n\n  5. **fullchem_RateLawFuncs.F90**: This module contains functions\n\t that compute rates for heterogenous chemistry reactions.  This is\n\t the so-called \"rate law library\" for the fullchem mechanism.\n\n  6. **rateLawUtilFuncs.F90**: This module contains several utility\n     functions for heterogeneous chemistry reactions.\n\n  7, **commonIncludeVars.H**: Global variables that are used for all\n      KPP mechanisms.  These will be inlined into the KPP-generated\n      **gckpp_Global.F90** file.\n\nThe following files link to the KPP/stubs folder.  These include stub\nsubroutines that are used by other chemical mechanisms.  The stubs are\nneeded in order to avoid compilation errors.\n\n  1. **stub_aciduptake_DustChemFuncs.F90** Stub routines corresponding\n     to the KPP/aciduptake/aciduptake_DustChemFuncs.F90 module,\n\n  2. **stub_Hg_HetStateFuncs.F90**: Stub routines corresponding\n     to the KPP/Hg/Hg_HetStateFuncs.F90 module.\n\n## Files generated by KPP\n\nWith the exception of the symbolic link **gckpp.kpp**, and the map\nfile **gckpp.map**, all files starting with the prefix **gckpp_** are\ngenerated by KPP.  These contain the specifications of the chemical\nmechanism in efficient source code.\n\nFor more information, please see:\n\n  1. KPP documentation at: https://kpp.readthedocs.io\n\n  2. [Guide to Using KPP with GEOS-Chem](https://geos-chem.readthedocs.io/en/latest/geos-chem-shared-docs/supplemental-guides/using-kpp-with-gc.html)\n"
  },
  {
    "path": "KPP/fullchem/commonIncludeVars.H",
    "content": "  !==========================================================================\n  ! Parameters\n  !==========================================================================\n\n  ! Universal gas consatant [bar/(mol/kg)/K]  (Source: NIST, 2014)\n  ! NOTE: Make sure this is consistent w/ the value in physconsts.F90!\n  REAL(dp), PARAMETER :: CON_R = 0.083144598_dp\n\n  !==========================================================================\n  ! Molecular weights and Henry's law constants\n  !==========================================================================\n\n  ! Species molecular weight [g/mole]\n  REAL(dp) :: MW(NSPEC)\n\n  ! Square root of species molecular weight [g/mole]^1/2\n  REAL(dp) :: SR_MW(NSPEC)\n\n  ! Henry's law constants\n  REAL(dp) :: HENRY_K0(NSPEC)  ! Solubility constant [M/atm]\n  REAL(dp) :: HENRY_CR(NSPEC)  ! Volatility constant [K    ]\n\n  !==========================================================================\n  ! Meterological variables\n  !==========================================================================\n\n  ! Inverse of temperature [1/K]\n  REAL(dp) :: INV_TEMP\n  !$OMP THREADPRIVATE( INV_TEMP )\n\n  ! Square root of Temperature [K**0.5]\n  REAL(dp) :: SR_TEMP\n  !$OMP THREADPRIVATE( SR_TEMP )\n\n  ! TEMP_OVER_K300 - Temperature [K] / 300.0\n  REAL(dp) :: TEMP_OVER_K300\n  !$OMP THREADPRIVATE( TEMP_OVER_K300 )\n\n  ! K300_OVER_TEMP - 300.0 / Temperature [K]\n  REAL(dp) :: K300_OVER_TEMP\n  !$OMP THREADPRIVATE( K300_OVER_TEMP )\n\n  ! NUMDEN - Air number density [#/cm3]\n  REAL(dp) :: NUMDEN\n  !$OMP THREADPRIVATE( NUMDEN )\n\n  ! Pressure [hPa]\n  REAL(dp) :: PRESS\n  !$OMP THREADPRIVATE( PRESS )\n\n  ! Relative humidity [%]\n  REAL(dp) :: RELHUM\n  !$OMP THREADPRIVATE( RELHUM )\n\n  ! Cosine of solar zenith angle [unitless]\n  REAL(dp) :: SUNCOS\n  !$OMP THREADPRIVATE( SUNCOS )\n\n  !=========================================================================\n  ! Rate array variables (used by more than one mechanism)\n  !=========================================================================\n\n  ! Photolysis rates [1/s] (increase size if necessary)\n  ! Used by fullchem and Hg mechanisms\n  REAL(dp) :: PHOTOL(200)\n  !$OMP THREADPRIVATE( PHOTOL )\n\n  !=========================================================================\n  ! Variables specific to the \"fullchem\" mechanism\n  !==========================================================================\n\n  ! 4.0 * CON_R * TEMP\n  REAL(dp) :: FOUR_R_T\n  !$OMP THREADPRIVATE( FOUR_R_T )\n\n  ! 4.0 * RGASLATM * TEMP\n  REAL(dp) :: FOUR_RGASLATM_T\n  !$OMP THREADPRIVATE( FOUR_RGASLATM_T )\n\n  ! 8.0 * RSTARG * TEMP\n  REAL(dp) :: EIGHT_RSTARG_T\n  !$OMP THREADPRIVATE( EIGHT_RSTARG_T )\n\n  ! H2O concentration [molec/cm3]\n  REAL(dp) :: H2O\n  !$OMP THREADPRIVATE( H2O )\n\n  ! Array for aqueous sulfur chemistry rates (1/s)\n  REAL(dp) :: K_MT(6)\n  !$OMP THREADPRIVATE( K_MT )\n\n  ! Array for sulfur chemistry rates in cloud (1/s)\n  REAL(dp) :: K_CLD(6)\n  !$OMP THREADPRIVATE( K_CLD )\n\n  ! Liquid water conversion factor\n  ! - Size = number of aerosol types (nAeroType)\n  REAL(dp) :: CVFAC(14)\n  !$OMP THREADPRIVATE( CVFAC )\n\n  ! Proton activity [unitless] and H+ concentration [M]\n  ! (assumed equivalent - for now):\n  REAL(dp) :: H_PLUS\n  !$OMP THREADPRIVATE( H_PLUS )\n\n  ! Enhanced sulfate production from SO2 oxidation by HOBr, HOCl, \n  ! and O3 in size-resolved cloud droplets [cm3/molec/s]\n  ! -- Becky Alexander (30 Jan 2023)\n  REAL(dp) :: SRHOBr, SRHOCl, SRO3\t\n  !$OMP THREADPRIVATE( SRHOBr, SRHOCl, SRO3 )\n  \n  TYPE, PUBLIC :: HetState\n     REAL(dp) :: AVO            ! Avogadro's constant [molec/mol]\n     LOGICAL  :: natSurface     ! Is there NAT in this box?\n     LOGICAL  :: pscBox         ! Are there polar strat clouds?\n     LOGICAL  :: stratBox       ! Are we in the stratosphere\n     INTEGER  :: NAEROTYPE      ! Number of aerosol types\n     REAL(dp) :: aClArea        ! Fine SSA+SNA aerosol area [cm2/cm3]\n     REAL(dp) :: aClRadi        ! Fine SSA+SNA aerosol radius [cm]\n     REAL(dp) :: aClVol         ! Fine SSA+SNA aerosol volume [cm3/cm3]\n     REAL(dp) :: aIce           ! Ice surface area [cm2/cm3]\n     REAL(dp) :: aLiq           ! Liquid surface area [cm2/cm3]\n     REAL(dp) :: aWater(2)      ! ISORROPIA/HETP aerosol water (fine & coarse)\n     REAL(dp) :: Br_conc_CldA   ! Br- in cloud (A=fine SSA) [mol/kg H2O]\n     REAL(dp) :: Br_conc_CldC   ! Br- in cloud (C=coarse SSA) [mol/kg H2O]\n     REAL(dp) :: Br_conc_CldG   ! Br- in cloud (G=gas-phase) [mol/kg H2O]\n     REAL(dp) :: Br_conc_Cld    ! Br- total in cloud = A + C + G\n     REAL(dp) :: Br_conc_SSA    ! Br- in fine SSA [mol/kg H2O]\n     REAL(dp) :: Br_conc_SSC    ! Br- in coarse SSA  [mol/kg H2O]\n     REAL(dp) :: Br_over_Cl_Cld ! Br/Cl ratio in cloud\n     REAL(dp) :: Br_over_Cl_SSA ! Br/Cl ratio in fine sea salt\n     REAL(dp) :: Br_over_Cl_SSC ! Br/Cl ratio in coarse sea salt\n     REAL(dp) :: Cl_conc_CldA   ! Cl- in cloud (A=fine SSA) [mol/kg H2O]\n     REAL(dp) :: Cl_conc_CldC   ! Cl- in cloud (C=coarse SSA) [mol/kg H2O]\n     REAL(dp) :: Cl_conc_CldG   ! Cl- in cloud (G=gas-phase) [mol/kg H2O]\n     REAL(dp) :: Cl_conc_Cld    ! Cl- total = A + C + G\n     REAL(dp) :: Cl_conc_SSA    ! Cl- in fine   sea salt [mol/kg H2O]\n     REAL(dp) :: Cl_conc_SSC    ! Cl- in coarse sea salt [mol/kg H2O]\n     REAL(dp) :: cldFr          ! Cloud fraction\n     REAL(dp) :: clearFr        ! Clear sky fraction\n     REAL(dp) :: frac_Br_CldA   ! Frac of Br- in fine SSA(in cloud)\n     REAL(dp) :: frac_Br_CldC   ! Frac of Br- in coarse SSA (in cloud)\n     REAL(dp) :: frac_Br_CldG   ! Frac of Br- in gas phase\n     REAL(dp) :: frac_Cl_CldA   ! Frac of Cl- in fine SSA (in cloud)\n     REAL(dp) :: frac_Cl_CldC   ! Frac of Cl- in coarse SSA (in cloud)\n     REAL(dp) :: frac_Cl_CldG   ! Frac of Cl- in gas phase\n     REAL(dp) :: frac_HSO3_aq   ! HSO3_aq / ( HSO3_aq + SO3_aq )\n     REAL(dp) :: frac_SALACL    ! Frac of SALACL / total fine sea salt\n     REAL(dp) :: frac_SO3_aq    ! SO3_aq  / ( HSO3_aq + SO3_aq )\n     REAL(dp) :: fupdateHOBr    ! Correction factor - HOBr\n     REAL(dp) :: fupdateHOCl    ! Correction factor - HOCl\n     REAL(dp) :: gamma_HO2      ! Uptake probability for HO2  [1]\n     REAL(dp) :: H2O            ! H2O concentration\n     REAL(dp) :: HBr_theta      ! HBr theta for uptake on ice\n     REAL(dp) :: HCl_theta      ! HCl theta for uptake on ice\n     REAL(dp) :: H_conc_ICl     ! Ice phase pH, Cl-\n     REAL(dp) :: H_conc_LCl     ! Liquid phase pH, Cl-\n     REAL(dp) :: H_conc_SSA     ! Liquid phase pH, fine sea salt\n     REAL(dp) :: H_conc_SSC     ! Liquid phase pH, coarse sea salt\n     REAL(dp) :: H_conc_Sul     ! Liquid phase pH, sulfate\n     REAL(dp) :: HNO3_theta     ! HNO3 theta for uptake on ice\n     REAL(dp) :: HSO3_aq        ! Cloud bisulfite (aka HSO3-) [mol/L]\n     REAL(dp) :: SO3_aq         ! Cloud sulfite (aka SO3--) [mol/L]\n     REAL(dp) :: HSO3m          ! HSO3-/SO2 ratio [1]\n     REAL(dp) :: SO3mm          ! SO3--/SO2 ratio [1]\n     REAL(dp) :: TSO3_aq        ! Cloud sulfite + bisulfite [mol/L]\n     REAL(dp) :: H_plus         ! Proton activity [1] and H+ conc [M]\n     REAL(dp) :: KHETI_SLA(11)  ! Probs for PSC uptk rxns on SLA [1]\n     REAL(dp) :: HSO4_molal     ! Bisulfate concentration [M]\n     REAL(dp) :: NO3_molal      ! Nitrate concentration [M]\n     REAL(dp) :: SO4_molal      ! Sulfate concentration [M]\n     REAL(dp) :: NIT_conc_SSA   ! Cl- in fine sea salt [mol/kg H2O]\n     REAL(dp) :: NIT_conc_SSC   ! Cl- in coarse sea salt [mol/kg H2O]\n     REAL(dp) :: PI             ! PI constant\n     REAL(dp) :: pHCloud        ! Cloud PH\n     REAL(dp) :: pHSSA(2)       ! Sea salt pH (1=fine, 2=coarse)\n     REAL(dp) :: OMOC_POA       ! Org matter/orgc carbon in POA [1]\n     REAL(dp) :: OMOC_OPOA      ! Org matter/org carbon in POA [1]\n     REAL(dp) :: qIce           ! Ice mixing ratio [kg/kg]\n     REAL(dp) :: qLIq           ! Water mixing ratio [kg/kg]\n     REAL(dp) :: rIce           ! Ice radius\n     REAL(dp) :: rLiq           ! Liquid radius\n     REAL(dp) :: f_Acid_SSA     ! Fraction of fine sea salt that is acidic\n     REAL(dp) :: f_Acid_SSC     ! Fraction of coarse sea salt that is acidic\n     REAL(dp) :: f_Alk_SSA      ! Fraction of fine sea salt that is alkaline\n     REAL(dp) :: f_Alk_SSC      ! Fraction of coarse sea salt that is alkaline\n     LOGICAL  :: SSA_is_Alk     ! Is fine sea-salt alkaline?\n     LOGICAL  :: SSA_is_Acid    ! Is fine sea-salt acidic?\n     LOGICAL  :: SSC_is_Alk     ! Is coarse sea-salt alkaline?\n     LOGICAL  :: SSC_is_Acid    ! Is coarse sea-salt acidic?\n     REAL(dp) :: vAir           ! Volume of air [cm3]\n     REAL(dp) :: vIce           ! Ice volume [cm3]\n     REAL(dp) :: vLiq           ! Liquid volume [cm3]\n     REAL(dp) :: wetArea(14)    ! Aerosol specific wet sfc area [cm2/cm3]\n     REAL(dp) :: xArea(14)      ! Aerosol specific sfc area  [cm2/cm3]\n     REAL(dp) :: xH2O(14)       ! Aerosol water content [cm3/cm3]\n     REAL(dp) :: xRadi(14)      ! Aerosol effective radius [cm]\n     REAL(dp) :: xVol(14)       ! Aerosol specific volume [cm3/cm3]\n     !\n     ! Additional fields only used by the Hg simulation\n     !\n     LOGICAL  :: cloudBox       ! Are we in a box with cloud?\n     REAL(dp) :: fracOrgAer     ! Fraction of organic aerosol [1]\n     REAL(dp) :: fracInorgAer   ! Fraction of organic aerosol [1]\n     !\n     ! Additional fields for GEOS runs\n     !    \n     LOGICAL  :: TurnOffHetRates ! Turn off heterogeneous reactions in stratosphere?\n\n  END TYPE HetState\n  TYPE(HetState), TARGET, PUBLIC :: State_Het\n  !$OMP THREADPRIVATE( State_Het )\n\n  !==========================================================================\n  ! Variables specific to the carbon mechanism\n  !==========================================================================\n\n  ! Array for strat CH4/CO/CO2 rates [1/s]\n  REAL(dp) :: K_STRAT(5)\n  !$OMP THREADPRIVATE( K_STRAT )\n\n  ! Array for trop CH4/CO/CO2 rates [1/s]\n  REAL(dp) :: K_TROP(5)\n  !$OMP THREADPRIVATE( K_TROP )\n\n  ! Are we in the tropopshere (1=yes, 0=no)\n  REAL(dp) :: TROP\n  !$OMP THREADPRIVATE( TROP )\n\n  LOGICAL :: debugBox\n  !$OMP THREADPRIVATE( debugBox )\n"
  },
  {
    "path": "KPP/fullchem/fullchem.eqn",
    "content": "{ fullchem.eqn\n\n-------------------------------------------------------------------------------\nDESCRIPTION\n-------------------------------------------------------------------------------\n\nGEOS-Chem KPP file containing species and equations for the full chemistry\n(NOx-Ox-HC-Aer-Br-Cl-I) mechanism.\n\n===============================================================================\nFILE HISTORY\n===============================================================================\n\nVersion: 14.5.0\n\nPlease see \"CHANGELOG_fullchem.md\" in this folder for the revision history\nof the fullchem mechanism.\n\n===============================================================================\nDEVELOPERS (initials and email/GitHub)\n===============================================================================\n\n* BA   :  Becky Alexander          : @beckyalexander\n* BH   :  Rebekah (Bex) Horner     : @bexhorner\n* BHH  :  Barron Henderson         : @barronh\n* BMY  :  Bob Yantosca             : @yantosca\n* CCM  :  Christopher Chan Miller  : cmiller@fas.harvard.edu\n* CDH  :  Christopher Holmes       : @cdholmes\n* DBM  :  Dylan Millet             : @dylanbm\n* EAM  :  Eloise Marais            : @eamarais\n* ECB  :  Ellie Browne             : eleanor.browne@colorado.edu\n* EVF  :  Emily Fischer            : evf@rams.colostate.edu\n* EWL  :  Lizzie Lundgren          : @lizziel\n* FP   :  Fabien Paulot            : fabien.paulot@noaa.gov\n* HOTP :  Havala Pye               : pye.havala@epa.gov\n* JAF  :  Jenny Fisher             : @jennyfisher\n* JAS  :  Johan Schmidt            : johanalbrechtschmidt@gmail.com\n* JFB  :  Jared Brewer             : @JFBrewer\n* JMAO :  Jingqiu Mao              : @jingqiumao\n* JMM  :  Jonathan Moch            : jmoch@g.harvard.edu\n* JPP  :  Justin Parrella          : justin.parrella@gmail.com\n* KHB  :  Kelvin Bates             : @kelvinhb\n* KRT  :  Katie Travis             : @ktravis213\n* LZHU :  Lei Zhu                  : leizhu@fas.harvard.edu\n* MJE  :  Mat Evans                : @msl3v\n* MPS  :  Melissa Sulprizio        : @msulprizio\n* MSL  :  Michael Long             : @msl3v\n* PK   :  Prasad Kasibhatla        : @pkasibhatla\n* QJC  :  Qianjie Chen             : chenqjie@uw.edu\n* RHS  :  Rebecca Schwantes        : rschwant@caltech.edu\n* SAS  :  Sarah Safieddine         : sarahsaf@mit.edu\n* SDE  :  Sebastian Eastham        : @sdeastham\n* TMS  :  Tomas Sherwen            : @tsherwen\n* TSC  :  Therese Carter           : @tscarter\n* XC   :  Xin Chen                 : @xin-chen-github\n* XW   :  Xuan Wang                : @xuanw0316\n\n===============================================================================\nREFERENCES (alphabetical order)\n===============================================================================\n* Atkinson2003   : https://doi.org/10.1021/cr0206420\n* Atkinson2006   : https://doi.org/10.5194/acp-6-3625-2006\n* Bates2014      : https://doi.org/10.1021/jp4107958\n* Bates2019      : https://doi.org/10.5194/acp-19-9613-2019\n* Bates2021a     : https://doi.org/10.1029/2020JD033439\n* Bates2021b     : https://doi.org/10.5194/acp-2021-605\n* Brewer2023     : https://doi.org/10.1029/2022JD037257\n* Browne2011     : https://doi.org/10.5194/acp-11-4209-2011\n* Browne2014     : https://doi.org/10.5194/acp-14-1225-2014\n* Carter2022     : https://doi.org/10.5194/acp-22-12093-2022\n* Chen2017       : https://doi.org/10.1002/2017GL073812\n* Crounse2012    : https://doi.org/10.1021/jp211560u\n* Eastham2014    : https://doi.org/10.1016/j.atmosenv.2014.02.001\n* Fischer2014    : https://doi.org/10.5194/acp-14-2679-2014\n* Fisher2016     : https://doi.org/10.5194/acp-16-5969-2016\n* Fisher2018     : https://doi.org/10.1029/2018JD029046\n* Fry2014        : https://doi.org/10.1021/es502204x\n* Gill2002       : https://doi.org/10.1021/jp013532, 2002.\n* Goliff2013     : https://doi.org/10.1016/j.atmosenv.2012.11.038\n* Jacobs2014     : https://doi.org/10.5194/acp-14-8933-2014\n* Jenkin2015     : https://doi.org/10.5194/acp-15-11433-2015\n* Kasibhatla2018 : https://doi.org/10.5194/acp-18-11185-2018\n* IUPAC ROO_19   : https://iupac-aeris.ipsl.fr/htdocs/datasheets/pdf/ROO_19_CH3O2_NO3.pdf\n* JPL 10-6       : https://jpldataeval.jpl.nasa.gov/previous_evaluations.html\n* JPL 15-10      : https://jpldataeval.jpl.nasa.gov/previous_evaluations.html\n* JPL 19-5       : https://jpldataeval.jpl.nasa.gov\n* Kwon2020       : https://doi.org/10.1525/elementa.2021.00109\n* Lee2014        : https://doi.org/10.1021/jp4107603\n* Marais2016     : https://doi.org/10.5194/acp-16-1603-2016\n* MCMv3.3        : https://mcm.york.ac.uk/MCM/\n* Miller2017     : https://doi.org/10.5194/acp-2016-1042\n* Millet2015     : https://doi.org/10.5194/acp-15-6283-2015\n* Moch2020       : https;//doi.org/10.1029/2020JD032706, 2020.\n* Muller2014     : https://doi.org/10.5194/acp-14-2497-2014\n* Parrella2012   : https://doi.org/10.5194/acp-12-6723-2012\n* Paulot2009     : https://doi.org/10.5194/acp-9-1479-2009 and \n                   https://doi.org/10.1126/science.1172910\n* Peeters2010    : https://doi.org/10.1039/C0CP00811G\n* Peeters2014    : https://doi.org/10.1021/jp5033146.\n* Pye2010        : https://doi.org/10.5194/acp-10-11261-2010\n* Roberts1992    : https://doi.org/10.1002/kin.550240307\n* Sherwen2016b   : https://doi.org/10.5194/acp-16-12239-2016\n* Sherwen2017    : https://doi.org/10.1039/C7FD00026J\n* StClair2016    : https://doi.org/10.1021/acs.jpca.5b065322016\n* Travis2016     : https://doi.org/10.5194/acp-16-13561-2016\n* Travis2024     : https://doi.org/10.5194/egusphere-2024-951\n* Wolfe2012      : https://doi.org/ 10.1039/C2CP40388A, 2012\n* Xie2013        : https://doi.org/10.5194/acp-13-8439-2013\n\n===============================================================================\nNOTES\n===============================================================================\n\nComment format is\n Species   - Molecular formula; full name\n Equations - Date modified; Reference; Developer initials\n}\n\n#include atoms.kpp\n\n#DEFVAR\n\nA3O2       = IGNORE; {CH3CH2CH2OO; Primary RO2 from C3H8}\nACR        = IGNORE; {C3H4O, Acrolein}\nACRO2      = IGNORE; {C3H5O4}\nACO3       = IGNORE; {C3H3O3}\nACET       = IGNORE; {CH3C(O)CH3; Acetone}\nACTA       = IGNORE; {CH3C(O)OH; Acetic acid}\nAERI       = IGNORE; {I; Dissolved iodine}\nALD2       = IGNORE; {CH3CHO; Acetaldehyde}\nALK4       = IGNORE; {>= C4 alkanes}\nALK4N1     = IGNORE; {RO2 from ALKN2}\nALK4N2     = IGNORE; {RO2NO; >= C4 alkylnitrates from ALK4}\nALK4O2     = IGNORE; {RO2 from ALK4}\nALK4P      = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from ALK4O2}\nALK6       = IGNORE; {>= C6 alkanes}\nAONITA     = IGNORE; {Aerosol-phase organic nitrate from aromatic precursors}\nAPAN       = IGNORE; {C3H3NO5; Acryloyl peroxynitrate}\nAROMCHO    = IGNORE; {C5H6O4}\nAROMRO2    = IGNORE; {generic peroxy radical from aromatic oxidation}\nAROMP4     = IGNORE; {Generic C4 product from aromatic oxidation}\nAROMP5     = IGNORE; {Generic C5 product from aromatic oxidation}\nAROMPN     = IGNORE; {Lumped aromatic PN}\nAROMCO3    = IGNORE; {Lumped aromatic acyl peroxy radical}\nATO2       = IGNORE; {CH3C(O)CH2O2; RO2 from acetone}\nATOOH      = IGNORE; {CH3C(O)CH2OOH; ATO2 peroxide}\nB3O2       = IGNORE; {CH3CH(OO)CH3; Secondary RO2 from C3H8}\nBALD       = IGNORE; {benzaldehyde and tolualdehyde}\nBENZ       = IGNORE; {C6H6; Benzene}\nBENZO      = IGNORE; {C6H5O radical}\nBENZO2     = IGNORE; {C6H5O2 radical}\nBENZP      = IGNORE; {hydroperoxide from BENZO2}\nBr         = IGNORE; {Br; Atomic bromine}\nBr2        = IGNORE; {Br2; Molecular bromine}\nBrCl       = IGNORE; {BrCl; Bromine chloride}\nBrNO2      = IGNORE; {BrNO2; Nitryl bromide}\nBrNO3      = IGNORE; {BrNO3; Bromine nitrate}\nBrO        = IGNORE; {BrO; Bromine monoxide}\nBRO2       = IGNORE; {C6H5O2 ; Peroxy radical from BENZ oxidation}\nBrSALA     = IGNORE; {Br; Fine sea salt bromine}\nBrSALC     = IGNORE; {Br; Course sea salt bromine}\nBUTDI      = IGNORE; {Butenedial}\nBUTN       = IGNORE; {BUTN; alkyl nitrate from C4H6}\nBUTO2      = IGNORE; {C4H7O3}\nBZCO3      = IGNORE; {benzoylperoxy radical}\nBZCO3H     = IGNORE; {perbenzoic acid}\nBZPAN      = IGNORE; {peroxybenzoyl nitrate}\nC2H2       = IGNORE; {C2H2; Ethyne}\nC2H4       = IGNORE; {Ethylene}\nC2H6       = IGNORE; {C2H6; Ethane}\nC3H8       = IGNORE; {C3H8; Propane}\nC4H6       = IGNORE; {C4H6; 1,4 butadiene}\nC4HVP1     = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs}\nC4HVP2     = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs}\nCCl4       = IGNORE; {CCl4; Carbon tetrachloride}\nCFC11      = IGNORE; {CCl3F ; CFC-11, R-11, Freon 11}\nCFC12      = IGNORE; {CCl2F2; CFC-12, R-12, Freon 12}\nCFC113     = IGNORE; {C2Cl3F3; CFC-113, Freon 113}\nCFC114     = IGNORE; {C2Cl2F4; CFC-114, Freon 114}\nCFC115     = IGNORE; {C2ClF5; CFC-115, Freon 115}\nCH2Br2     = IGNORE; {CH3Br2; Dibromomethane}\nCH2Cl2     = IGNORE; {CH2Cl2; Dichloromethane}\nCH2I2      = IGNORE; {CH2I2; Diiodomethane}\nCH2IBr     = IGNORE; {CH2IBr; Bromoiodomethane}\nCH2ICl     = IGNORE; {CH2ICl; Chloroiodomethane}\nCH2O       = IGNORE; {CH2O; Formaldehyde}\nCH2OO      = IGNORE; {CH2OO; Criegee intermediate}\nCH3Br      = IGNORE; {CH3Br; Methyl bromide}\nCH3CCl3    = IGNORE; {CH3CCl3; Methyl chloroform}\nCH3CHOO    = IGNORE; {CH3CHOO; Criegee intermediate}\nCH3Cl      = IGNORE; {CH3Cl; Chloromethane}\nCH3I       = IGNORE; {CH3I; Methyl iodide}\nCH4        = IGNORE; {CH4; Methane}\nCHBr3      = IGNORE; {CHBr3; Tribromethane}\nCHCl3      = IGNORE; {CHCl3; Chloroform}\nCl         = IGNORE; {Cl; Atomic chlorine}\nCl2        = IGNORE; {Cl2; Molecular chlorine}\nCl2O2      = IGNORE; {Cl2O2; Dichlorine dioxide}\nClNO2      = IGNORE; {ClNO2; Nitryl chloride}\nClNO3      = IGNORE; {ClONO2; Chlorine nitrate}\nClO        = IGNORE; {ClO; Chlorine monoxide}\nClOO       = IGNORE; {ClOO; Chlorine dioxide}\nCO         = IGNORE; {CO; Carbon monoxide}\nCO2        = IGNORE; {CO2; Carbon dioxide}\nCSL        = IGNORE; {cresols and xylols}\nDMS        = IGNORE; {(CH3)2S; Dimethylsulfide}\nEBZ        = IGNORE; {C6H5CH2CH3; Ethylbenzene}\nEOH        = IGNORE; {C2H5OH; Ethanol}\nETHLN      = IGNORE; {CHOCH2ONO2; Ethanal nitrate}\nETHN       = IGNORE; {stable hydroxy-nitrooxy-ethane}\nETHP       = IGNORE; {stable hydroxy-hydroperoxy-ethane}\nETNO3      = IGNORE; {C2H5ONO2; Ethyl nitrate}\nETO        = IGNORE; {hydroxy-alkoxy-ethane radical}\nETOO       = IGNORE; {hydroxy-peroxy-ethane radical, formed from ethene + OH}\nETO2       = IGNORE; {CH3CH2OO; Ethylperoxy radical}\nETP        = IGNORE; {CH3CH2OOH; Ethylhydroperoxide}\nFURA       = IGNORE; {FURAN conglomerate}\nGCO3       = IGNORE; {HOCH2CO3: PHAN peroxyacetyl radical}\nGLYC       = IGNORE; {HOCH2CHO; Glycoaldehyde}\nGLYX       = IGNORE; {CHOCHO; Glyoxal}\nH          = IGNORE; {H; Atomic hydrogen}\nH1211      = IGNORE; {CBrClF2; H-1211}\nH1301      = IGNORE; {CBrF3; H-1301}\nH2402      = IGNORE; {C2Br2F4; H-2402}\nH2O        = IGNORE; {H2O; Water vapor}\nH2O2       = IGNORE; {H2O2; Hydrogen peroxide}\nHAC        = IGNORE; {HOCH2C(O)CH3; Hydroxyacetone}\nHACTA      = IGNORE; {HOCH2CO2H; hydroxyacetic acid}\nHBr        = IGNORE; {HBr; Hypobromic acid}\nHC5A       = IGNORE; {C5H8O2; Isoprene-4,1-hydroxyaldehyde}\nHCFC123    = IGNORE; {C2HCl2F3; HCFC-123, R-123, Freon 123}\nHCFC141b   = IGNORE; {C(CH3)Cl2F; HCFC-141b, R-141b, Freon 141b}\nHCFC142b   = IGNORE; {C(CH3)ClF2; HCFC-142b, R-142b, Freon 142b}\nHCFC22     = IGNORE; {CHClF2 ; HCFC-22, R-22, Freon 22}\nHCl        = IGNORE; {HCl; Hydrochloric acid}\nHCOOH      = IGNORE; {HCOOH; Formic acid}\nHI         = IGNORE; {HI; Hydrogen iodide}\nHMHP       = IGNORE; {HOCH2OOH; Hydroxymethyl hydroperoxide}\nHMML       = IGNORE; {C4H6O3; Hydroxymethyl-methyl-a-lactone}\nHMS        = IGNORE; {HOCH2SO3-; hydroxymethanesulfonate}\nHNO2       = IGNORE; {HONO; Nitrous acid}\nHNO3       = IGNORE; {HNO3; Nitric acid}\nHNO4       = IGNORE; {HNO4; Pernitric acid}\nHO2        = IGNORE; {HO2; Hydroperoxyl radical}\nHOBr       = IGNORE; {HOBr; Hypobromous acid}\nHOCl       = IGNORE; {HOCl; Hypochlorous acid}\nHOI        = IGNORE; {HOI; Hypoiodous acid}\nHONIT      = IGNORE; {2nd gen monoterpene organic nitrate}\nHPALD1     = IGNORE; {O=CHC(CH3)=CHCH2OOH; d-4,1-C5-hydroperoxyaldehyde}\nHPALD1OO   = IGNORE; {peroxy radicals from HPALD1}\nHPALD2     = IGNORE; {HOOCH2C(CH3)=CHCH=O; d-1,4-C5-hydroperoxyaldehyde}\nHPALD2OO   = IGNORE; {peroxy radicals from HPALD2}\nHPALD3     = IGNORE; {O=CHC(CH3)OOHCH=CH2; b-2,1-C5-hydroperoxyaldehyde}\nHPALD4     = IGNORE; {CH2=C(CH3)CHOOHCH=O; b-3,4-C5-hydroperoxyaldehyde}\nHPETHNL    = IGNORE; {CHOCH2OOH; hydroperoxyethanal}\nI          = IGNORE; {I; Atmoic iodine}\nI2         = IGNORE; {I2; Molecular iodine}\nI2O2       = IGNORE; {I2O2; Diiodine dioxide}\nI2O3       = IGNORE; {I2O3; Diiodine trioxide}\nI2O4       = IGNORE; {I2O4; Diiodine tetraoxide}\nIBr        = IGNORE; {IBr; Iodine monobromide}\nICHE       = IGNORE; {C5H8O3; Isoprene hydroxy-carbonyl-epoxides}\nICHOO      = IGNORE; {peroxy radical from IEPOXD}\nICl        = IGNORE; {ICl; Iodine monochloride}\nICN        = IGNORE; {C5H7NO4; Lumped isoprene carbonyl nitrates}\nICNOO      = IGNORE; {peroxy radicals from ICN}\nICPDH      = IGNORE; {C5H10O5; Isoprene dihydroxy hydroperoxycarbonyl}\nIDC        = IGNORE; {C5H6O2; Lumped isoprene dicarbonyls}\nIDCHP      = IGNORE; {C5H8O5; Isoprene dicarbonyl hydroxy dihydroperoxide}\nIDHDP      = IGNORE; {C5H12O6; Isoprene dihydroxy dihydroperoxide}\nIDHNBOO    = IGNORE; {peroxy radicals from INPB}\nIDHNDOO1   = IGNORE; {peroxy radicals from INPD}\nIDHNDOO2   = IGNORE; {peroxy radicals from INPD}\nIDHPE      = IGNORE; {C5H10O5; Isoprene dihydroxy hydroperoxy epoxide}\nIDN        = IGNORE; {C5H8N2O6; Lumped isoprene dinitrates}\nIDNOO      = IGNORE; {peroxy radicals from IDN}\nIEPOXA     = IGNORE; {C5H10O3; trans-Beta isoprene epoxydiol}\nIEPOXAOO   = IGNORE; {peroxy radical from trans-Beta isoprene epoxydiol}\nIEPOXB     = IGNORE; {C5H10O3; cis-Beta isoprene epoxydiol}\nIEPOXBOO   = IGNORE; {peroxy radical from cis-Beta isoprene epoxydiol}\nIEPOXD     = IGNORE; {C5H10O3; Delta isoprene epoxydiol}\nIHN1       = IGNORE; {C5H9NO4; Isoprene-d-4-hydroxy-1-nitrate}\nIHN2       = IGNORE; {C5H9NO4; Isoprene-b-1-hydroxy-2-nitrate}\nIHN3       = IGNORE; {C5H9NO4; Isoprene-b-4-hydroxy-3-nitrate}\nIHN4       = IGNORE; {C5H9NO4; Isoprene-d-1-hydroxy-4-nitrate}\nIHOO1      = IGNORE; {peroxy radical from OH addition to isoprene at C1}\nIHOO4      = IGNORE; {peroxy radical from OH addition to isoprene at C4}\nIHPNBOO    = IGNORE; {peroxy radicals from INPB}\nIHPNDOO    = IGNORE; {peroxy radicals from INPD}\nIHPOO1     = IGNORE; {peroxy radical from ISOPOOH}\nIHPOO2     = IGNORE; {peroxy radical from ISOPOOH}\nIHPOO3     = IGNORE; {peroxy radical from ISOPOOH}\nINA        = IGNORE; {alkoxy radical from INO2D}\nINDIOL     = IGNORE; {Generic aerosol phase organonitrate hydrolysis product}\nINO        = IGNORE; {INO; Nitrosyl iodide}\nINO2B      = IGNORE; {beta-peroxy radicals from isoprene + NO3}\nINO2D      = IGNORE; {delta-peroxy radicals from isoprene + NO3}\nINPB       = IGNORE; {C5H9NO5; Lumped isoprene beta-hydroperoxy nitrates}\nINPD       = IGNORE; {C5H9NO5; Lumped isoprene delta-hydroperoxy nitrates}\nIO         = IGNORE; {IO; Iodine monoxide}\nIONITA     = IGNORE; {Aerosol-phase organic nitrate from isoprene precursors}\nIONO       = IGNORE; {IONO; Nitryl iodide}\nIONO2      = IGNORE; {IONO2; Iodine nitrate}\nIPRNO3     = IGNORE; {C3H8ONO2; Isopropyl nitrate}\nISALA      = IGNORE; {I; Fine sea salt iodine}\nISALC      = IGNORE; {I; Coarse sea salt iodine}\nISOP       = IGNORE; {CH2=C(CH3)CH=CH2; Isoprene}\nISOPNOO1   = IGNORE; {peroxy radicals from IHN2}\nISOPNOO2   = IGNORE; {peroxy radicals from IHN3}\nITCN       = IGNORE; {C5H9NO7; Lumped tetrafunctional isoprene carbonyl-nitrates}\nITHN       = IGNORE; {C5H11NO7; Lumped tetrafunctional isoprene hydroxynitrates}\nKO2        = IGNORE; {RO2 from >3 ketones}\nLBRO2H     = IGNORE; {Dummy spc to track oxidation of BRO2 by HO2}\nLBRO2N     = IGNORE; {Dummy spc to track oxidation of BRO2 by NO}\nLIMO       = IGNORE; {C10H16; Limonene}\nLIMO2      = IGNORE; {RO2 from LIMO}\nAPINP      = IGNORE;\nAPINN      = IGNORE;\nPINAL      = IGNORE;\nPINPAN     = IGNORE;\nPINONIC    = IGNORE;\nPINO3H     = IGNORE;\nC96O2H     = IGNORE;\nC96N       = IGNORE;\nBPINO      = IGNORE;\nBPINN      = IGNORE;\nBPINP      = IGNORE;\nBPINOOH    = IGNORE;\nBPINON     = IGNORE;\nLIMAL      = IGNORE;\nLIMN       = IGNORE;\nLIMKET     = IGNORE;\nLIMKB      = IGNORE;\nLIMNB      = IGNORE;\nLIMPAN     = IGNORE;\nLIMO2H     = IGNORE;\nLIMO3H     = IGNORE;\nMYRCO      = IGNORE;\nPIN        = IGNORE;\nAPINO2     = IGNORE;\nPINO3      = IGNORE;\nC96O2      = IGNORE;\nBPINO2     = IGNORE;\nBPINOO2    = IGNORE;\nLIMKO2     = IGNORE;\nLIMO3      = IGNORE;\nLISOPOH    = IGNORE; {Dummy spc to track oxidation of ISOP by OH}\nLISOPNO3   = IGNORE; {Dummy spc to track oxidation of ISOP by NO3}\nLNRO2H     = IGNORE; {Dummy spc to track oxidation of NRO2 by HO2}\nLNRO2N     = IGNORE; {Dummy spc to track oxidation of NRO2 by NO}\nLTRO2H     = IGNORE; {Dummy spc to track oxidation of TRO2 by HO2}\nLTRO2N     = IGNORE; {Dummy spc to track oxidation of TRO2 by NO}\nLVOC       = IGNORE; {C5H14O5; Gas-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation}\nLVOCOA     = IGNORE; {C5H14O5; Aerosol-phase low-volatility non-IEPOX product of ISOPOOH (RIP) oxidation}\nLXRO2H     = IGNORE; {Dummy spc to track oxidation of XRO2 by HO2}\nLXRO2N     = IGNORE; {Dummy spc to track oxidation of XRO2 by NO}\nMACR       = IGNORE; {CH2=C(CH3)CHO; Methacrolein}\nMACR1OO    = IGNORE; {peroxyacyl radical from MACR + OH}\nMACR1OOH   = IGNORE; {CH2=C(CH3)C(O)OOH; Peracid from MACR}\nMACRNO2    = IGNORE; {Product of MCRHN + OH}\nMAP        = IGNORE; {CH3C(O)OOH; Peroxyacetic acid}\nMCO3       = IGNORE; {CH3C(O)OO; Peroxyacetyl radical}\nMCRDH      = IGNORE; {C4H8O3; Dihydroxy-MACR}\nMCRENOL    = IGNORE; {C4H6O2; Lumped enols from MVK/MACR}\nMCRHN      = IGNORE; {HOCH2C(ONO2)(CH3)CHO; Hydroxynitrate from MACR}\nMCRHNB     = IGNORE; {O2NOCH2C(OH)(CH3)CHO; Hydroxynitrate from MACR}\nMCRHP      = IGNORE; {HOCH2C(OOH)(CH3)CHO; Hydroxy-hydroperoxy-MACR}\nMCROHOO    = IGNORE; {peroxy radical from MACR + OH}\nMCT        = IGNORE; {methylcatechols}\nMEKCO3     = IGNORE; {MEK peroxyacetyl radical}\nMEK        = IGNORE; {RC(O)R; Methyl ethyl ketone}\nMEKPN      = IGNORE; {MEK peroxynitrate, C3PAN1 from MCM}\nMENO3      = IGNORE; {CH3ONO2; methyl nitrate}\nMGLY       = IGNORE; {CH3COCHO; Methylglyoxal}\nMO2        = IGNORE; {CH3O2; Methylperoxy radical}\nMOH        = IGNORE; {CH3OH; Methanol}\nMONITA     = IGNORE; {Aerosol-phase organic nitrate from monoterpene precursors}\nMONITS     = IGNORE; {Saturated 1st gen monoterpene organic nitrate}\nMONITU     = IGNORE; {Unsaturated 1st gen monoterpene organic nitrate}\nMP         = IGNORE; {CH3OOH; Methylhydroperoxide}\nMPAN       = IGNORE; {CH2=C(CH3)C(O)OONO2; Peroxymethacroyl nitrate (PMN)}\nMPN        = IGNORE; {CH3O2NO2; Methyl peroxy nitrate}\nMSA        = IGNORE; {CH4SO3; Methanesulfonic acid}\nMTPA       = IGNORE; {Lumped monoterpenes: a-pinene, b-pinene, sabinene, carene}\nMTPO       = IGNORE; {Other monoterpenes: Terpinene, terpinolene, myrcene, ocimene, other monoterpenes}\nMVK        = IGNORE; {CH2=CHC(=O)CH3; Methyl vinyl ketone}\nMVKDH      = IGNORE; {HOCH2CH2OHC(O)CH3; Dihydroxy-MVK}\nMVKHC      = IGNORE; {C4H6O3; MVK hydroxy-carbonyl}\nMVKHCB     = IGNORE; {C4H6O3; MVK hydroxy-carbonyl}\nMVKHP      = IGNORE; {C4H8O4; MVK hydroxy-hydroperoxide}\nMVKN       = IGNORE; {HOCH2CH(ONO2)C(=O)CH3; Hydroxynitrate from MVK}\nMVKOHOO    = IGNORE; {peroxy radical from MVK + OH}\nMVKPC      = IGNORE; {OCHCH(OOH)C(O)CH3; MVK hydroperoxy-carbonyl}\nN          = IGNORE; {N; Atomic nitrogen}\nN2O        = IGNORE; {N2O; Nitrous oxide}\nN2O5       = IGNORE; {N2O5; Dinitrogen pentoxide}\nNAP        = IGNORE; {C10H8; Naphthalene; IVOC surrogate}\nNIT        = IGNORE; {NIT; Fine mode inorganic nitrate}\nNITs       = IGNORE; {NITs; Coarse mode inorganic nitrate}\nNO         = IGNORE; {NO; Nitric oxide}\nNO2        = IGNORE; {NO2; Nitrogen dioxide}\nNO3        = IGNORE; {NO3; Nitrate radical}\nNPHEN      = IGNORE; {nitrophenols}\nNPRNO3     = IGNORE; {C3H8ONO2; n-propyl nitrate}\nNRO2       = IGNORE; {Peroxy radical from NAP oxidation}\nO          = IGNORE; {O(3P); Ground state atomic oxygen}\nO1D        = IGNORE; {O(1D); Excited atomic oxygen}\nO3         = IGNORE; {O3; Ozone}\nO3A        = IGNORE; {O3; Ozone in accum seasalt}\nO3C        = IGNORE; {O3; Ozone in coarse seasalt}\nOClO       = IGNORE; {OClO; Chlorine dioxide}\nOCS        = IGNORE; {COS; Carbonyl sulfide}\nOH         = IGNORE; {OH; Hydroxyl radical}\nOIO        = IGNORE; {OIO; Iodine dioxide}\nOLND       = IGNORE; {Monoterpene-derived NO3-alkene adduct}\nOLNN       = IGNORE; {Monoterpene-derived NO3 adduct}\nOTHRO2     = IGNORE; {Other C2 RO2 not from C2H6 oxidation}\nPAN        = IGNORE; {CH3C(O)OONO2; Peroxyacetylnitrate}\nPHAN       = IGNORE; {OCC(=O)OON(=O)=O; peroxyhydroxyacetic nitric anhydride}\nPHEN       = IGNORE; {phenol}\nPIO2       = IGNORE; {RO2 from MTPA}\nPIP        = IGNORE; {Peroxides from MTPA}\nPO2        = IGNORE; {HOCH2CH(OO)CH3; RO2 from propene}\nPP         = IGNORE; {HOCH2CH(OOH)CH3; Peroxide from PO2}\nPPN        = IGNORE; {CH3CH2C(O)OONO2; Peroxypropionylnitrate}\nPRN1       = IGNORE; {O2NOCH2CH(OO)CH3; RO2 from propene + NO3}\nPROPNN     = IGNORE; {CH3C(=O)CH2ONO2; Propanone nitrate}\nPRPE       = IGNORE; {C3H6; >= C3 alkenes}\nPRPN       = IGNORE; {O2NOCH2CH(OOH)CH3; Peroxide from PRN1}\nPYAC       = IGNORE; {CH3COCOOH; Pyruvic acid}\nR4N1       = IGNORE; {RO2 from R4N2}\nR4N2       = IGNORE; {RO2NO; >= C4 alkylnitrates}\nR4O2       = IGNORE; {RO2 from >= C4 biogenic organics}\nR4P        = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from R4O2}\nR7O2       = IGNORE; {RO2 from ALK6}\nR7N1       = IGNORE; {RO2 from R7N2}\nR7P        = IGNORE; {Peroxide from R7O2}\nR7N2       = IGNORE; {RO2NO; >= C6 alkylnitrates}\nRA3P       = IGNORE; {CH3CH2CH2OOH; Peroxide from A3O2}\nRB3P       = IGNORE; {CH3CH(OOH)CH3; Peroxide from B3O2}\nRCHO       = IGNORE; {CH3CH2CHO; >= C3 aldehydes}\nRCO3       = IGNORE; {CH3CH2C(O)OO; Peroxypropionyl radical}\nRCOOH      = IGNORE; {C2H5C(O)OH; > C2 organic acids}\nRIPA       = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 1,2-ISOPOOH}\nRIPB       = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 4,3-ISOPOOH}\nRIPC       = IGNORE; {C5H10O3; d(1,4)-ISOPOOH}\nRIPD       = IGNORE; {C5H10O3; d(4,1)-ISOPOOH}\nRNO3       = IGNORE; {C7H9NO6; lumped aromatic alkyl nitrate}\nROH        = IGNORE; {C3H7OH; > C2 alcohols}\nRP         = IGNORE; {CH3CH2C(O)OOH; Peroxide from RCO3}\nSALAAL     = IGNORE; {Accumulation mode seasalt aerosol alkalinity}\nSALCAL     = IGNORE; {Coarse mode seasalt aerosol alkalinity}\nSALACL     = IGNORE; {Cl; Fine chloride}\nSALCCL     = IGNORE; {Cl; Coarse chloride}\nSALASO2    = IGNORE; {SO2; Fine seasalt}\nSALCSO2    = IGNORE; {SO2; Coarse seasalt}\nSALASO3    = IGNORE; {SO3--; Fine seasalt}\nSALCSO3    = IGNORE; {SO3--; Coarse chloride}\nSO2        = IGNORE; {SO2; Sulfur dioxide}\nSO4        = IGNORE; {SO4; Sulfate}\nSO4s       = IGNORE; {SO4 on sea-salt; Sulfate}\nSOAGX      = IGNORE; {CHOCHO; Aerosol-phase glyoxal}\nSOAIE      = IGNORE; {C5H10O3; Aerosol-phase IEPOX}\nSTYR       = IGNORE; {C6H5CHCH2; Styrene}\nTLFUONE    = IGNORE; {C5H6O2; lumped furanones}\nTLFUO2     = IGNORE; {C5H7O5; RO2 from TLFUONE}\nTMB        = IGNORE; {C6H3(CH3)3; Trimethylbenzenes}\nTOLU       = IGNORE; {C7H8; Toluene}\nTRO2       = IGNORE; {Peroxy radical from TOLU oxidation}\nXYLE       = IGNORE; {C8H10; Xylene}\nXRO2       = IGNORE; {Peroxy radical from XYLE oxidation}\nPH2SO4     = IGNORE; {SO4 from gas-phase chemistry}\nPSO4AQ     = IGNORE; {SO4 from cloud chemistry}\nZRO2       = IGNORE; {Lumped RO2 from aromatics}\n#DEFFIX\n\nH2         = IGNORE; {H2; Molecular hydrogen}\nN2         = IGNORE; {N2; Molecular nitrogen}\nO2         = IGNORE; {O2; Molecular oxygen}\n\n#EQUATIONS\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Reactions extracted from sulfate_mod.F90 (MSL, BMY)             %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\n// Seasalt\nSO2  + SALAAL + O3  = SO4 - SALAAL       : K_MT(1);\nHCl  + SALAAL       = SALACL             : K_MT(2);\nHNO3 + SALAAL       = NIT                : K_MT(3);\nSO2  + SALCAL + O3  = SO4s - SALCAL      : K_MT(4);\nHCl  + SALCAL       = SALCCL             : K_MT(5);\nHNO3 + SALCAL       = NITs               : K_MT(6);\n//\n// Cloud\n// S(IV) --> S(VI)\nSO2 + H2O2          = SO4                : K_CLD(1);\nSO2 + O3            = SO4                : K_CLD(2);\nSO2 {+O2}           = SO4                : K_CLD(3);  {Mn & Fe catalysis + HET_DROP_CHEM()}\n//\n// HMS\nCH2O + SO2          = HMS                : K_CLD(4);        {Sep 2021; Moch2020; MSL}\nHMS                 = SO2 + CH2O         : K_CLD(5);        {Sep 2021; Moch2020; MSL}\nHMS + OH + SO2      = 2SO4 + CH2O + 2PSO4AQ : K_CLD(6);     {Sep 2021; Moch2020; MSL}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Gas-phase chemistry reactions                                   %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\n// NOTES:\n// ------\n// (1) Be sure to use \"D\" exponents to force double precision values!\n//     (i.e. write 1.70d-12 instead of 1.70e-12, etc.).\n//        -- Bob Yantosca (16 Dec 2020)\n//\n// (2) This file might not render properly if the right hand side of the\n//     equation is longer than ~100 characters.  This seems to be an issue\n//     with the KPP code itself.  See this Github issue at geoschem/KPP:\n//     https://github.com/geoschem/KPP/issues/1\n//        -- Bob Yantosca (16 Dec 2020)\n//\n// (3) To avoid useless CPU cycles, we have introduced new rate law functions\n//     that skip computing Arrhenius terms (and other terms) that would\n//     evaluate to 1.  The Arrhenius terms that are passed to the function\n//     are in most cases now noted in the function name (e.g. GCARR_abc takes\n//     Arrhenius A, B, C parameters but GCARR_ac only passes A and C\n//     parameters because B=0 and the (300/T)*B would evaluate to 1).\n//     This should be much more computationally efficient, as these functions\n//     are called (sometimes multiple times) for each grid box where we\n//     perform chemistry.\n//        -- Bob Yantosca (25 Jan 2020)\n//\nO3 + NO = NO2 + O2 :                         GCARR_ac(3.00d-12, -1500.0d0);\nO3 + OH = HO2 + O2 :                         GCARR_ac(1.70d-12, -940.0d0);\nO3 + HO2 = OH + O2 + O2 :                    GCARR_ac(1.00d-14, -490.0d0);\nO3 + NO2 = O2 + NO3 :                        GCARR_ac(1.20d-13, -2450.0d0);\nO3 + MO2 = CH2O + HO2 + O2 :                 GCARR_ac(2.90d-16, -1000.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + OH = H2O + O :                          1.80d-12;                                                                         {2014/02/03; Eastham2014; SDE}\nOH + OH {+M} = H2O2 :                        GCJPLPR_aba(6.90d-31, 1.0d+00, 2.6d-11, 0.6d0);\nOH + HO2 = H2O + O2 :                        GCARR_ac(4.80d-11, 250.0d0);\nOH + H2O2 = H2O + HO2 :                      1.80d-12;\nHO2 + NO = OH + NO2 :                        GCARR_ac(3.44d-12, 260.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + HO2 = H2O2 + O2 :                      GC_HO2HO2_acac(3.00d-13, 460.0d0, 2.1d-33, 920.0d0);                              {2014/02/03; Eastham2014; SDE}\nOH + CO = HO2 + CO2 :                        GCJPLPR_abab(6.9d-33,2.1d0,1.1d-12,-1.3d0,0.6d0) + GCJPLAC_ababac(6.9d-33,2.1d0,1.1d-12,-1.3d0,1.85d-13,-6.5d1,0.6d0); {2023/04/18; JPL 19-5; KHB}\nOH + CH4 = MO2 + H2O :                       GCARR_ac(2.45d-12, -1775.0d0);\nMO2 + NO = CH2O + HO2 + NO2 :                GC_RO2NO_B1_ac(2.80d-12, 300.0d0);                                                {2019/05/10; Fisher2018; JAF}\nMO2 + NO = MENO3 :                           GC_RO2NO_A1_ac(2.80d-12, 300.0d0);                                                {2019/05/10; Fisher2018; JAF}\nMO2 + HO2 = MP + O2 :                        GCARR_ac(4.10d-13, 750.0d0);\nMO2 + MO2 = MOH + CH2O + O2 :                GC_TBRANCH_1_acac(9.50d-14, 390.0d0, 2.62d1, -1130.0d0);\nMO2 + MO2 = 2.000CH2O + 2.000HO2 :           GC_TBRANCH_1_acac(9.50d-14, 390.0d0, 4.0d-2, 1130.0d0);\nMO2 + OH = 0.13MOH + 0.87CH2O + 1.74HO2 :    1.60d-10 ;                                                                        {2021/09/22; Bates2021a; KHB,MSL}\nMP + OH = 0.700MO2 + 0.300OH +\n 0.300CH2O + H2O :                           GCARR_ac(3.80d-12, 200.0d0);\nATOOH + OH = 0.700ATO2 + 0.300MGLY +\n 0.300OH + H2O :                             GCARR_ac(3.80d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nCH2O + OH = CO + HO2 + H2O :                 GCARR_ac(5.50d-12, 125.0d0);\nNO2 + OH {+M} = HNO3 {+M} :                  GCJPLPR_aba(1.80d-30, 3.0d+00, 2.8d-11, 0.6d0);\nHNO3 + OH = H2O + NO3 :                      GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0) + GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,0.6d0); {2023/04/18; JPL 19-5; KHB}\nNO + OH {+M} = HNO2 {+M} :                   GCJPLPR_abab(7.00d-31, 2.6d+00, 3.60d-11, 0.1d0, 0.6d0);\nHNO2 + OH = H2O + NO2 :                      GCARR_ac(3.00d-12, 250.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + NO2 {+M} = HNO4 {+M} :                 GCJPLPR_abab(1.90d-31, 3.4d+00, 4.0d-12, 0.3d0, 0.6d0);                           {2017/02/22; JPL 15-10; BHH,MJE}\nHNO4 {+M} = HO2 + NO2 :                      GCJPLPR_abcabc(9.05d-05, 3.4d0, -10900.0d0, 1.90d15, 0.3d0, -10900.0d0, 0.6d0);   {2017/02/22; JPL 15-10; BHH,MJE}\nHNO4 + OH = H2O + NO2 + O2 :                 GCARR_ac(4.50d-13, 610.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + NO3 = OH + NO2 + O2 :                  3.50d-12;\nNO + NO3 = 2.000NO2 :                        GCARR_ac(1.70d-11, 125.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nOH + NO3 = HO2 + NO2 :                       2.00d-11;                                                                         {2023/04/18; JPL 19-5; KHB}\nNO2 + NO3 {+M} = N2O5 {+M} :                 GCJPLPR_abab(2.40d-30, 3.0d+00, 1.6d-12, -0.1d0, 0.6d0);                          {2017/02/22; JPL 15-10; BHH,MJE}\nN2O5 {+M} = NO2 + NO3 :                      GCJPLPR_abcabc(4.14d-04, 3.0d0, -10840.0d0, 2.76d14, -0.1d0, -10840.0d0, 0.6d0);  {2017/02/22; JPL 15-10; BHH,MJE}\nHCOOH + OH = H2O + CO2 + HO2 :               4.00d-13;                                                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMOH + OH = HO2 + CH2O :                      GCARR_ac(2.90d-12, -345.0d0);\nNO2 + NO3 = NO + NO2 + O2 :                  GCARR_ac(4.35d-14, -1335.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nNO3 + CH2O = HNO3 + HO2 + CO :               5.80d-16;\nALD2 + OH = 0.950MCO3 + 0.050CH2O +\n 0.050CO + 0.050HO2 + H2O :                  GCARR_ac(4.63d-12, 350.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nALD2 + NO3 = HNO3 + MCO3 :                   GCARR_ac(1.40d-12, -1900.0d0);\nMCO3 + NO2 {+M} = PAN :                      GCJPLPR_abab(7.30d-29, 4.1d+00, 9.5d-12, 1.6d0, 0.6d0);                           {2023/04/18; JPL 19-5; KHB}\nPAN = MCO3 + NO2 :                           GCJPLEQ_acabab(9.00d-29, 14000.0d0, 7.3d-29, 4.1d0, 9.5d-12, 1.6d0, 0.6d0);       {2023/04/18; JPL 19-5; KHB}\nPAN + OH = CH2O + CO + NO2 :                 3.00d-14 ;\nMCO3 + NO = MO2 + NO2 + CO2 :                GCARR_ac(8.10d-12, 270.0d0);\nC2H6 + OH = ETO2 + H2O :                     GCARR_ac(7.66d-12, -1020.0d0);                                                    {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nETO2 + NO = ALD2 + NO2 + HO2 :               GC_RO2NO_B2_aca(2.60d-12, 365.0d0, 2.0d0);                                        {2019/05/10; Fisher2018; JAF}\nETO2 + NO = ETNO3 :                          GC_RO2NO_A2_aca(2.60d-12, 365.0d0, 2.0d0);                                        {2019/05/10; Fisher2018; JAF}\nOTHRO2 + NO = ALD2 + NO2 + HO2 :             GCARR_ac(2.60d-12, 365.0d0);                                                      {2019/05/10; Fisher2018; JAF}\nC3H8 + OH = B3O2 :                           GCARR_abc(8.54d-13,1.54d0,-19.0d0);                                               {2023/04/18; JPL 19-5; KHB}\nC3H8 + OH = A3O2 :                           GCARR_abc(1.97d-12,1.23d0,-675.0d0);                                              {2023/04/18; JPL 19-5; KHB}\nA3O2 + NO = NO2 + HO2 + RCHO :               GC_RO2NO_B2_aca(2.90d-12, 350.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nA3O2 + NO = NPRNO3 :                         GC_RO2NO_A2_aca(2.90d-12, 350.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nPO2 + NO = NO2 + HO2 + CH2O + ALD2 :         GCARR_ac(2.70d-12, 350.0d0);\n// --- ALK6 chemistry from Lurman et al., 1986\nALK6 + OH = R7O2 :                           GCARR_ac(2.00d-11, -359.0d0);\nALK6 + NO3 = HNO3 + R7O2 :                   6.0d-17;\nR7O2 + NO = NO2 + 0.750RCHO + 0.250R4O2 + \n 0.250MEK + 0.750HO2 :                       GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 7.0d0);     \nR7O2 + NO = R7N2 :                           GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 7.0d0);\nR7O2 + HO2 = R7P :                           3.0d-12;\nR7P + OH = 0.500OH + 0.500R7O2 + 0.500RCHO : 1.00d-11;                                     {}\nR7N2 + OH = R7N1 + H2O :                     4.00d-12;\nR7N1 + NO = 2.000NO2 + 0.980CH2O +\n 0.650ALD2 + 1.240RCHO :                     GCARR_ac(4.20d-12, 180.0d0);                  {}\nR7N1 + HO2 = R7N2 :                          GCARR_ac(7.40d-13, 700.0d0);\n// ----- C4H6 --> APAN --- currently no RO2 RO2\nC4H6 + OH = BUTO2 :                          GCARR_ac(1.48d-11, 448.0d0);\nC4H6 + NO3 = ACR + CH2O + NO2 :              1.03d-13;\nC4H6 + O3 = ACR + CH2O :                     GCARR_ac(1.34d-14,-2283.0d0);\nBUTO2 + NO = 0.058BUTN + 0.730ACR +\n 0.603CH2O + 0.513HO2 + 0.942NO2 +\n 0.326RCHO :                                 GCARR_ac(2.70d-12, 360.0d0); { krt, MCM}\nBUTO2 + HO2 = 0.659GLYC + 0.894RCHO :        GCARR_ac(1.82d-13,1300d0); {MCM}\nBUTN + OH = GLYC + NO2 + CH2O + HO2 +\n CO :                                        3.59d-11; {krt, MCM}\nACR + OH = 0.680ACO3 + 0.255ACRO2 +\n 0.065CH2O + 0.065GLYX + 0.425HO2  :         2.00d-11; {krt, MCM} \nACRO2 + NO = GLYC + NO2 + HO2 + CO :         GCARR_ac(2.70d-12,360.0d0) ;{krt, MCM}\nACRO2 + HO2 = GLYC + HO2 + CO :              GCARR_ac(1.51d-13,1300.0d0) ;{krt, MCM}\nACO3 + HO2 = CO + CH2O + 0.500GLYC +\n 0.250HO2 + 0.250OH :                        GCARR_ac(5.2d-13, 980.0d0) ; {krt, MCM}\nACO3 + NO = HO2 + CO + CH2O + NO2 :          GCARR_ac(7.5d-12, 290.0d0) ; {krt, MCM}\nACO3 + NO2 {+M} = APAN :                     GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);\nAPAN = ACO3 + NO2 :                          GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nAPAN + OH = GLYC + CO + NO3 :                1.47d-11 ; {krt, MCM}\n//\nALK4 + OH = R4O2 :                           GCARR_ac(9.10d-12, -405.0d0);\nALK4O2 + NO = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/05/14; Brewer2023; JFB}\nALK4O2 + NO = ALK4N2 :                       GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/05/14; Brewer2023; JFB}\nALK4N1 + NO = 2.000NO2 + 0.640RCHO +\n 0.970ALD2 + 0.640CH2O :                     GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nR4O2 + NO = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0);                                        {2023/04/18; Bates2023; KHB}\nR4O2 + NO = R4N2 :                           GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0);\nR4N1 + NO = 2.000NO2 + 0.640RCHO +\n 0.970ALD2 + 0.640CH2O :                     GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/04/18; Bates2023; KHB}\nATO2 + NO = NO2 + CH2O + MCO3 :              GCARR_ac(2.90d-12, 300.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nKO2 + NO = 0.928NO2 + 0.919ALD2 +\n 0.919MCO3 + 0.072ALK4N2 :                   GCARR_ac(2.70d-12, 350.0d0);                                                      {2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB}\nB3O2 + NO = NO2 + HO2 + ACET :               GC_RO2NO_B2_aca(2.70d-12, 360.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nB3O2 + NO = IPRNO3 :                         GC_RO2NO_A2_aca(2.70d-12, 360.0d0, 3.0d0);                                        {2019/05/10; Fisher2018; JAF}\nPRN1 + NO = 2.000NO2 + CH2O + ALD2 :         GCARR_ac(2.70d-12, 350.0d0);\nALK4 + NO3 = HNO3 + ALK4O2 :                 GCARR_ac(2.80d-12, -3280.0d0);\t\t\t\t\t\t       {2023/05/14; Brewer2023; JFB}\nR4N2 + OH = R4N1 + H2O :                     1.60d-12;\nALK4N2 + OH = ALK4N1 + H2O :                 1.60d-12;\t\t\t\t\t\t\t\t\t       {2023/05/14; Brewer2023; JFB}\nACTA + OH = MO2 + CO2 + H2O :                GCARR_ac(3.15d-14, 920.0d0);                                                      {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nOH + RCHO = RCO3 + H2O :                     GCARR_ac(6.00d-12, 410.0d0);\nRCO3 + NO2 {+M} = PPN :                      GCJPLPR_abab(9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0);                             {JPL Eval 17}\nPPN = RCO3 + NO2 :                           GCJPLEQ_acabab(9.00d-29, 14000.0d0, 9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0);\nPPN + OH = ALD2 + CO + NO2 :                 1.27d-12 ;\nRCO3 + NO = NO2 + 0.490OTHRO2 +\n 0.070A3O2 + 0.270B3O2 + CO2 :               GCARR_ac(6.70d-12, 340.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nRCHO + NO3 = HNO3 + RCO3 :                   6.50d-15;\nACET + OH = ATO2 + H2O :                     1.33d-13 + 3.82d-11*exp(-2000.0d0/TEMP);                                          {JPL Eval 17, p1-62-D31; EVF}\nA3O2 + MO2 = HO2 + 0.750CH2O + 0.750RCHO +\n 0.250MOH + 0.250ROH :                       5.92d-13;\nPO2 + MO2 = HO2 + 0.500ALD2 + 1.250CH2O +\n 0.160HAC + 0.090RCHO + 0.250MOH +\n 0.250ROH :                                  5.92d-13;\nR4O2 + HO2 = R4P :                           GCARR_ac(7.40d-13, 700.0d0);\nR4N1 + HO2 = R4N2 :                          GCARR_ac(7.40d-13, 700.0d0);\nALK4O2 + HO2 = ALK4P :                       GCARR_ac(7.40d-13, 700.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nALK4N1 + HO2 = ALK4N2 :                      GCARR_ac(7.40d-13, 700.0d0);\t\t\t\t\t\t       {2023/05/14; Brewer2023; JFB}\nATO2 + HO2 = 0.150MCO3 + 0.150OH +\n 0.150CH2O + 0.850ATOOH :                    GCARR_ac(8.60d-13, 700.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nKO2 + HO2 = 0.150OH + 0.150ALD2 +\n 0.150MCO3 + 0.850ATOOH + 0.850MO2 :         GC_RO2HO2_aca(2.91d-13, 1300.0d0, 4.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB}\nB3O2 + HO2 = RB3P :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPRN1 + HO2 = PRPN :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\n// -------- MEKPN -------------------\nMEK + OH = KO2 + H2O :                       GCARR_ac(1.50d-12, -90.0d0); {2023/04/18; Atkinson2006; KHB}\nKO2 + NO = 0.930NO2 + 0.620ALD2 +\n 0.620MCO3 + 0.070R4N2 +\n 0.310MEKCO3 + 0.310CH2O :                   GCARR_ac(2.70d-12, 350.0d0);\nMEKCO3 + NO2 {+M} = MEKPN :                  GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);                           {JPL Eval 17}\nMEKPN = MEKCO3 + NO2 :                       GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nMEKPN + OH = GLYC + CO + NO2 :               4.51E-12;\nMEKCO3 + NO = NO2 + ETOO + CO2  :            GCARR_ac(7.50d-12, 290.0d0);\nMEKCO3 + HO2 = 0.150O3 + 0.150RCOOH +\n 0.440CO2 + 0.440OH + 0.440ETOO +\n 0.410RP :                                   GCARR_ac(5.20d-13, 980.0d0);\n//\nMO2 + ETO2 = 0.750CH2O + 0.750ALD2 + HO2 +\n 0.250MOH + 0.250EOH :                       3.00d-13;\nMO2 + OTHRO2 = 0.750CH2O + 0.750ALD2 +\n HO2 + 0.250MOH + 0.250EOH :                 3.00d-13;                                                                         {2019/05/10; Fisher2018; JAF}\nMEK + NO3 = HNO3 + KO2 :                     8.00d-16;\nR4O2 + MO2 = 0.160ACET + 0.100MEK +\n 0.090MO2 + 0.140HO2 + 0.160ALD2 +\n 0.130RCHO + 0.030A3O2 + 0.090B3O2 +\n 0.160OTHRO2 + 0.250MEK + 0.750CH2O +\n 0.250MOH + 0.380ROH + 0.500HO2 :            8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nR4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 +\n 0.580RCHO + 0.150R4O2 + 0.500HO2 +\n 0.250MOH + 0.375ROH :                       8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nALK4O2 + MO2 = 0.160ACET + 0.100MEK +\n 0.090MO2 + 0.140HO2 + 0.160ALD2 +\n 0.130RCHO + 0.030A3O2 + 0.090B3O2 +\n 0.160OTHRO2 + 0.250MEK + 0.750CH2O +\n 0.250MOH + 0.380ROH + 0.500HO2 :            8.37d-14;                                                                         {2023/05/14; Brewer2023; JFB}\nALK4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 +\n 0.580RCHO + 0.150R4O2 + 0.500HO2 +\n 0.250MOH + 0.375ROH :                       8.37d-14;                                                                         {2023/05/14; Brewer2023; JFB}\nATO2 + MO2 = 0.300HO2 + 0.500CH2O +\n 0.300MCO3 + 0.200HAC + 0.500MGLY +\n 0.500MOH + 0.300CO2 :                       GCARR_ac(7.50d-13, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nKO2 + MO2 = 0.500ALD2 + 0.500MCO3 +\n 0.250MEK + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 + 0.250MO2 :            8.37d-14;                                                                         {2023/04/18; Bates2023; KHB}\nB3O2 + MO2 = 0.500HO2 + 0.500ACET +\n 0.250ACET + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 :                       8.37d-14;\nPRN1 + MO2 = NO2 + 0.500CH2O + 0.500ALD2 +\n 0.250RCHO + 0.750CH2O + 0.250MOH +\n 0.250ROH + 0.500HO2 :                       8.37d-14;\nEOH + OH = HO2 + ALD2 :                      3.35d-12;                                                                         {2013/02/12; JPL 10-6; BHH,JMAO,EAM}\nROH + OH = HO2 + RCHO :                      GCARR_ac(4.40d-12, 70.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nETO2 + ETO2 = 1.600ALD2 +\n 0.400EOH + 1.200HO2 :                       6.80d-14;\nOTHRO2 + OTHRO2 = 1.600ALD2 +\n 0.400EOH + 1.200HO2 :                       6.80d-14;                                                                         {2019/05/10; Fisher2018; JAF}\nHO2 + ETO2 = ETP :                           GCARR_ac(7.50d-13, 700.0d0);                                                      {2023/04/18; JPL 19-5; KHB}\nHO2 + OTHRO2 = ETP :                         GCARR_ac(7.50d-13, 700.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; JPL 19-5; KHB}\nA3O2 + HO2 = RA3P :                          GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPO2 + HO2 = PP :                             GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0);                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRCO3 + HO2 = 0.410RP + 0.150RCOOH +\n 0.150O3 + 0.440OH + 0.220OTHRO2 +\n 0.030A3O2 + 0.120B3O2 + 0.430CO2 :          GCARR_ac(4.30d-13, 1040.0d0);                                                     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nPRPE + OH {+M} = PO2 :                       GCJPLPR_abab(4.60d-27, 4.0d0, 2.6d-11, 1.3d0, 0.5d0);                             {2017/02/22; JPL 15-10; BHH,MJE}\nPRPE + O3 = 0.100CH4 + 0.280MO2 + 0.100CO2 +\n 0.120CH3CHOO + 0.500ALD2 + 0.220CH2OO +\n 0.500CH2O + 0.560CO + 0.280HO2 + 0.360OH :  GCARR_ac(6.50d-15, -1900.0d0);                                                    {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nGLYC + OH = 0.732CH2O + 0.361CO2 +\n 0.505CO + 0.227OH + 0.773HO2 +\n 0.134GLYX + 0.134HCOOH :                    GC_GLYCOH_A_a(8.00d-12);                                                          {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nGLYC + OH = HCOOH + OH + CO :                GC_GLYCOH_B_a(8.00d-12);                                                          {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\n// --- GLYC chemistry --> PHAN - currenty no RO2 RO2\nGLYC + OH = 0.200GLYX + 0.200HO2 +\n 0.800GCO3 :                                 1.0d-11;                                                                          {krt, MCM}\nGLYC + NO3 = GCO3 + HNO3 :                   GCARR_ac(1.44d-12,-1862.0d0);                                                     {krt, MCM}\nGCO3 + NO2 {+M} = PHAN :                     GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);                           {JPL Eval 17}\nPHAN = GCO3 + NO2 :                          GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nGCO3 + NO = NO2 + HO2 + CH2O :               GCARR_ac(7.5d-12,290d0);                              {krt, MCM}\nGCO3 + HO2 = 0.440HO2 + 0.440CH2O +\n 0.440OH + 0.560HACTA + 0.150O3 + 0.440CO2 : GCARR_ac(5.2d-13,980d0);               {krt,MCM}\nGCO3 + NO3 = CH2O + HO2 + NO2 :              4.0d-12;\nPHAN + OH = CH2O + CO + NO2 :                1.12d-12;    {krt, MCM}\nHACTA + OH = CH2O + HO2 :                    2.73d-12;    {krt, MCM}\n//\nPRPE + NO3 = PRN1 :                          GCARR_ac(4.59d-13, -1156.0d0);\nGLYX + OH = HO2 + 2.000CO :                  GCARR_ac(3.10d-12, 340.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMGLY + OH = MCO3 + CO :                      GCARR_ac(1.90d-12, 575.0d0);                                                      {2023/04/18; Atkinson2006; KHB}\nGLYX + NO3 = HNO3 + HO2 + 2.000CO :          GC_GLYXNO3_ac(1.40d-12, -1860.0d0);\nMGLY + NO3 = HNO3 + CO + MCO3 :              GCARR_ac(3.36d-12, -1860.0d0);                                                    {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nHAC + OH = MGLY + HO2 :                      GC_HACOH_A_ac(2.00d-12, 320.0d0);                                                 {2023/04/18; Atkinson2006; KHB}\nHAC + OH = 0.500HCOOH + OH + 0.500ACTA +\n 0.500CO2 + 0.500CO + 0.500MO2 :             GC_HACOH_B_ac(2.00d-12, 320.0d0);                                                 {2023/04/18; Atkinson2006; KHB}\nPRPN + OH = 0.209PRN1 + 0.791OH +\n 0.791PROPNN :                               GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nETP + OH = 0.640OH + 0.360OTHRO2 +\n 0.640ALD2 :                                 GCARR_ac(5.18d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRA3P + OH = 0.640OH + 0.360A3O2 +\n 0.640RCHO :                                 GCARR_ac(5.18d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nRB3P + OH = 0.791OH + 0.209B3O2 +\n 0.791ACET :                                 GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nR4P + OH = 0.790OH + 0.210R4O2 + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB}\nALK4P + OH = 0.790OH + 0.210ALK4O2 + \n 1.185RCHO :                                 GCARR_ac(8.78d-12, 200.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nRP + OH = RCO3 :                             GCARR_ac(6.13d-13, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nPP + OH = 0.791OH + 0.209PO2 + 0.791HAC :    GCARR_ac(8.78d-12, 200.0d0);                                                      {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nLVOC + OH = OH :                             GCARR_ac(4.82d-11, -400.0d0);                                                     {2017/06/14; Marais2016; EAM}\nOH + MAP = 0.780MCO3 + 0.220OH +\n 0.220CO2 + 0.220CH2O :                      3.00d-14;                                                                         {2023/04/18; Atkinson2006; KHB}\nC2H6 + NO3 = ETO2 + HNO3 :                   1.40d-18;                                                                         {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nMCO3 + MCO3 = 2.000MO2 + 2.000CO2 :          GCARR_ac(2.90d-12, 500.0d0);                                                      {2023/04/18; JPL 19-5, Bates2023; KHB}\nMCO3 + MO2 = 0.1ACTA + CH2O +\n 0.9MO2 + 0.9HO2 + 0.9CO2:                   GCARR_ac(2.00d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nR4O2 + MCO3 = 0.271MEK + 0.100ACTA +\n 0.900MO2 + 0.290ACET + 0.243HO2 +\n 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO\n + 0.045A3O2 + 0.162B3O2 + 0.900CO2:         GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nALK4O2 + MCO3 = 0.271MEK + 0.100ACTA +\n 0.900MO2 + 0.290ACET + 0.243HO2 +\n 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO\n + 0.045A3O2 + 0.162B3O2 + 0.900CO2:         GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nATO2 + MCO3 = 0.900MO2 + 0.900MCO3 +\n 0.900CH2O + 0.100MGLY + 0.100ACTA +\n 0.900CO2 :                                  GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nKO2 + MCO3 = 0.900MO2 + 0.900MCO3 +\n 0.900ALD2 + 0.100MEK + 0.100ACTA +\n 0.900CO2 :                                  GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nB3O2 + MCO3 = 0.900MO2 + 0.900HO2 +\n ACET + 0.100ACTA + 0.900CO2 :               GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nR4N1 + MCO3 = 0.900MO2 + 0.100ACTA +\n 0.613RCHO + 0.351CH2O + 0.675ALD2 +\n 0.270R4O2 + 0.645CO2 + NO2 :                GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nALK4N1 + MCO3 = 0.900MO2 + 0.100ACTA +\n 0.613RCHO + 0.351CH2O + 0.675ALD2 +\n 0.270R4O2 + 0.645CO2 + NO2 :                GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/05/14; Brewer2023; JFB}\nPRN1 + MCO3 = 0.900MO2 + 0.900CH2O +\n 0.900CO2 + 0.900ALD2 + 0.100RCHO +\n 0.100ACTA + NO2 :                           GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nETO2 + MCO3 = 0.900MO2 + ALD2 +\n 0.900HO2 + 0.100ACTA + 0.900CO2 :           GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nOTHRO2 + MCO3 = 0.900MO2 + ALD2 +\n 0.900HO2 + 0.100ACTA + 0.900CO2 :           GCARR_ac(1.87d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nPO2 + MCO3 = 0.900MO2 + 0.900HO2 +\n 0.900ALD2 + 0.900CH2O + 0.065HAC +\n 0.035RCHO + 0.100ACTA + 0.900CO2 :          GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nA3O2 + MCO3 = 0.900MO2 + 0.900HO2 +\n RCHO + 0.100ACTA + 0.900CO2 :               GCARR_ac(1.87d-12, 500.0d0);                                                      {2023/04/18; Bates2023; KHB}\nRCO3 + MCO3 = MO2 + 0.490OTHRO2 +\n 0.070A3O2 + 0.270B3O2 + 2.000CO2 :          GCARR_ac(2.50d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nRCO3 + MO2 = CH2O + CO2 + HO2 +\n 0.490OTHRO2 + 0.070A3O2 + 0.270B3O2 :       GCARR_ac(1.87d-12, 500.0d0);                                                      {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nNO3 + NO3 = 2.000NO2 + O2 :                  GCARR_ac(8.50d-13, -2450.0d0);\nMO2 + NO2 {+M} = MPN {+M} :                  GCJPLPR_abab(1.00d-30, 4.8d+00, 7.2d-12, 2.1d0, 0.6d0);                           {2012/02/12; Browne2011; ECB}\nMPN {+M} = MO2 + NO2 :                       GCJPLPR_abcabc(1.05d-02, 4.8d+00, -11234.0d0, 7.58d16, 2.1d0, -11234.0d0, 0.6d0); {2012/02/12; Browne2011; ECB}\nDMS + OH = SO2 + MO2 + CH2O :                GCARR_ac(1.20d-11, -280.0d0);\nDMS + OH = 0.750SO2 + 0.250MSA + MO2 :       GC_DMSOH_acac(8.20d-39, 5376.0d0, 1.05d-5, 3644.0d0);\nDMS + NO3 = SO2 + HNO3 + MO2 + CH2O :        GCARR_ac(1.90d-13, 530.0d0);\nSO2 + OH {+M} = SO4 + HO2 + PH2SO4 :         GCJPLPR_abab(2.90d-31, 4.1d+00, 1.7d-12, -0.2d0, 0.6d0);                          {2023/04/18; JPL 19-5; KHB}\nBr + O3 = BrO + O2 :                         GCARR_ac(1.60d-11, -780.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nBrO + HO2 = HOBr + O2 :                      GCARR_ac(4.50d-12, 460.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + HO2 = HBr + O2 :                        GCARR_ac(4.80d-12, -310.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nHBr + OH = Br + H2O :                        GCARR_ac(5.50d-12, 200.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + BrO = 2.000Br + O2 :                   GCARR_ac(2.40d-12,  40.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + BrO = Br2 + O2 :                       GCARR_ac(2.80d-14, 860.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBrO + NO = Br + NO2 :                        GCARR_ac(8.80d-12, 260.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + BrNO3 = Br2 + NO3 :                     4.90d-11;                                                                         {2012/06/07; Parrella2012; JPP}\nBr2 + OH = HOBr + Br :                       GCARR_ac(2.10d-11, 240.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nHOBr + O = OH + BrO :                        GCARR_ac(1.20d-10, -430.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nHBr + O = OH + Br :                          GCARR_ac(5.80d-12, -1500.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nBrO + OH = Br + HO2 :                        GCARR_ac(1.70d-11, 250.0d0);                                                      {2012/06/07; Parrella2012; JPP}\nBr + NO3 = BrO + NO2 :                       1.60d-11;                                                                         {2012/06/07; Parrella2012; JPP}\nBr + CH2O = HBr + HO2 + CO :                 GCARR_ac(1.70d-11, -800.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nBr + ALD2 = HBr + MCO3 :                     GCARR_ac(1.80d-11, -460.0d0);                                                     {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + ACET = HBr + ATO2 :                     GCARR_ac(1.66d-10, -7000.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + C2H6 = HBr + ETO2 :                     GCARR_ac(2.36d-10, -6411.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + C3H8 = HBr + A3O2 :                     GCARR_ac(8.77d-11, -4330.0d0);                                                    {2017/07/27; Parrella2012,Fix C creation; SAS,BHH,MJE}\nBr + NO2 {+M} = BrNO2 {+M} :                 GCJPLPR_aba(4.20d-31, 2.4d0, 2.7d-11, 0.6d0);                                     {2012/06/07; Parrella2012; JPP}\nBrO + NO2 {+M} = BrNO3 {+M} :                GCJPLPR_abab(5.40d-31, 3.1d0, 6.5d-12, 2.9d0, 0.6d0);                             {2017/02/22; JPL 15-10; BHH,MJE}\nCHBr3 + OH = 3.000Br :                       GCARR_ac(9.00d-13, -360.0d0);                                                     {2017/02/22; JPL 15-10; BHH,MJE}\nCH2Br2 + OH = 2.000Br :                      GCARR_ac(2.00d-12, -840.0d0);                                                     {2012/06/07; Parrella2012; JPP}\nCH3Br + OH = Br + H2O + HO2 :                GCARR_ac(1.42d-12, -1150.0d0);                                                    {2017/03/08; JPL 15-10; TS,BHH,MJE}\nO1D + H2O = 2.000OH :                        GCARR_ac(1.63d-10, 60.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + N2 = O + N2 :                          GCARR_ac(2.15d-11, 110.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nO1D + O2 = O + O2 :                          GCARR_ac(3.30d-11, 55.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + H2 = H + OH :                          1.20d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + N2O = 0.390N2 + 0.390O2 + 1.220NO :    GCARR_ac(1.19d-10, 20.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nO1D + CH4 = 0.750MO2 + 0.750OH +\n 0.200H + 0.200HO2 + 0.050H2 + 0.250CH2O :   1.75d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO + O2 {+M} = O3 {+M} :                      GCARR_ab(6.00d-34, 2.4d0)*NUMDEN;                                                 {2014/02/03; Eastham2014; SDE}\nO + O3 = 2.000O2 :                           GCARR_ac(8.00d-12, -2060.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + H2 = H2O + H :                          GCARR_ac(2.80d-12, -1800.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nO + OH = O2 + H :                            GCARR_ac(1.80d-11, 180.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nHO2 + O = OH + O2 :                          GCARR_ac(3.00d-11, 200.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nO1D + O3 = O + 1.500O2 :                     2.40d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nOCS + O = CO + SO2 :                         GCARR_ac(2.10d-11, -2200.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOCS + OH = CO2 + SO2 :                       GCARR_ac(7.20d-14, -1070.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nNO2 + O = NO + O2 :                          GCJPLAC_ababac(3.4d-31, 1.6d0, 2.3d-11, 0.2d0, 5.3d-12, 2.0d2, 0.6d0);            {2023/04/18; JPL 19-5; KHB}\nNO3 + O = NO2 + O2 :                         1.30d-11;                                                                         {2023/04/18; JPL 19-5; KHB}\nNO + O {+M} = NO2 {+M} :                     GCJPLPR_aba(9.00d-32, 1.5d+00, 3.0d-11, 0.6d0);                                   {2014/02/03; Eastham2014; SDE}\nNO2 + O {+M} = NO3 {+M} :                    GCJPLPR_abab(3.4d-31, 1.6d0, 2.3d-11, 0.2d0, 0.6d0);                              {2023/04/18; JPL 19-5; KHB}\nH2O2 + O = OH + HO2 :                        GCARR_ac(1.40d-12, -2000.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nH + O2 {+M} = HO2 {+M} :                     GCJPLPR_abab(5.30d-32, 1.8d+00, 9.5d-11, -0.4d0, 0.6d0);                          {2023/04/18; JPL 19-5; KHB}\nH + O3 = OH + O2 :                           GCARR_ac(1.40d-10, -470.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nH + HO2 = 1.788OH + 0.020O +\n 0.020H2O + 0.086H2 + 0.086O2 :              8.05d-11;                                                                         {2014/02/03; Eastham2014; SDE}\nN + O2 = NO + O :                            GCARR_ac(3.30d-12, -3150.0d0);                                                    {2023/04/18; JPL 19-5; KHB}\nN + NO = N2 + O :                            GCARR_ac(2.10d-11, 100.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nN + NO2 = N2O + O :                          GCARR_ac(5.80d-12, 220.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nBrO + O = Br + O2 :                          GCARR_ac(1.90d-11, 230.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCH2O + O = CO + HO2 + OH :                   GCARR_ac(3.40d-11, -1600.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nO1D + HCl = 0.120O + 0.120HCl + 0.220H +\n 0.660Cl + 0.220ClO + 0.660OH :              1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HBr = 0.200O + 0.200HBr + 0.200BrO +\n 0.600OH + 0.200H + 0.600Br :                1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + Cl2 = 0.250O + 0.250Cl2 + 0.750Cl +\n 0.750ClO :                                  2.70d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CCl4 = 0.210O + 0.210CCl4 +\n 0.790ClO + 2.370Cl :                        3.30d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CH3Cl = 0.100O + 0.100CH3Cl +\n 0.460ClO + 0.350Cl + 0.090H + 0.900MO2 :    2.60d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CH3Br = 0.440BrO + MO2 + 0.560Br :     1.80d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CH2Br2 = 0.050O + 0.050CH2Br2 +\n 0.950BrO + 0.950Br :                        2.70d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CHBr3 = 0.300O + 0.300CHBr3 +\n 0.700BrO + 1.400Br :                        6.60d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC22 = 0.250O + 0.250HCFC22 +\n 0.560ClO + 0.190Cl + 0.050OH :              1.02d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC11 = 0.100O + 0.100CFC11 +\n 0.900ClO + 1.800Cl :                        2.30d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC12 = 0.140O + 0.140CFC12 +\n 0.860ClO + 0.860Cl :                        1.40d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + H1211 = 0.350O + 0.350H1211 +\n 0.310BrO + 0.310Cl + 0.340Br + 0.340ClO :   1.50d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + H1301 = 0.550O + 0.550H1301 +\n 0.450BrO :                                  1.00d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC141b = 0.310O + 0.310HCFC141b +\n 0.690ClO + 0.690Cl :                        2.60d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + HCFC142b = 0.350O + 0.350HCFC142b +\n 0.650ClO :                                  2.00d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + HCFC123 = 0.210O + 0.210HCFC123 +\n 0.790Cl + 0.790ClO :                        2.00d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nO1D + CFC113 = 0.100O + 0.100CFC113 +\n 1.900Cl + 0.800ClO :                        2.32d-10;                                                                         {2023/04/18; JPL 19-5; KHB}\nO1D + CFC114 = 0.100O + 0.100CFC114 +\n 0.950Cl + 0.850ClO :                        GCARR_ac(1.30d-10, 25.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nO1D + CFC115 = 0.140O + 0.140CFC115 +\n 0.860ClO :                                  GCARR_ac(5.40d-11, 30.0d0);                                                       {2023/04/18; JPL 19-5; KHB}\nO1D + H2402 = 0.250O + 0.250H2402 +\n 0.750Br + 0.750BrO :                        GCARR_ac(1.60d-10, 0.0d0);                                                        {2014/02/03; Eastham2014; SDE}\nOH + Cl2 = HOCl + Cl :                       GCARR_ac(2.60d-12, -1100.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nMO2 + ClO = ClOO + HO2 + CH2O :              GCARR_ac(1.80d-11, -600.0d0);                                                     {2017/03/20; JPL 15-10; TS,BHH,MJE}\nOH + ClO = HO2 + Cl :                        GCARR_ac(7.40d-12, 270.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + ClO = HCl + O2 :                        GCARR_ac(6.00d-13, 230.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + OClO = HOCl + O2 :                      GCARR_ac(1.40d-12, 600.0d0);                                                      {2017/02/22; JPL 15-10; BHH,MJE}\nOH + Cl2O2 = HOCl + ClOO :                   GCARR_ac(6.00d-13, 670.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nOH + HCl = H2O + Cl :                        GCARR_ac(1.80d-12, -250.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + HOCl = H2O + ClO :                      GCARR_ac(3.00d-12, -500.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + ClNO2 = HOCl + NO2 :                    GCARR_ac(2.40d-12, -1250.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + ClNO3 = HOCl + NO3 :                    GCARR_ac(1.20d-12, -330.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nOH + CH3Cl = Cl + HO2 + H2O :                GCARR_ac(1.96d-12, -1200.0d0);                                                    {2017/02/22; JPL 15-10; BHH,MJE}\nOH + CH2Cl2 = 2.000Cl + HO2 :                GCARR_ac(1.92d-12, -880.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nOH + CHCl3 = 3.000Cl + HO2 :                 GCARR_ac(2.20d-12, -920.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nOH + CH3CCl3 = 3.000Cl + H2O :               GCARR_ac(1.64d-12, -1520.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC22 = Cl + H2O :                     GCARR_ac(9.20d-13, -1560.0d0);                                                    {2017/02/22; JPL 15-10; BHH,MJE}\nOH + HCFC141b = 2.000Cl + H2O :              GCARR_ac(1.25d-12, -1600.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC142b = Cl + H2O :                   GCARR_ac(1.30d-12, -1770.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nOH + HCFC123 = 2.000Cl + H2O :               GCARR_ac(7.40d-13, -900.0d0);                                                     {2017/02/22; JPL 15-10; BHH,MJE}\nCH4 + Cl = HCl + MO2 :                       GCARR_ac(7.10d-12, -1270.0d0);                                                    {2017/03/08; JPL 15-10; TS,BHH,MJE}\nCH2O + Cl = CO + HCl + HO2 :                 GCARR_ac(8.10d-11, -30.0d0);                                                      {2017/09/22; Sherwen2016b; TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + O3 = ClO + O2 :                         GCARR_ac(2.30d-11, -200.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nCl + H2 = H + HCl :                          GCARR_ac(3.05d-11, -2270.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nCl + H2O2 = HO2 + HCl :                      GCARR_ac(1.10d-11, -980.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nCl + HO2 = O2 + HCl :                        GCARR_ac(1.40d-11, 270.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCl + HO2 = OH + ClO :                        GCARR_ac(3.60d-11, -375.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nClO + O = Cl + O2 :                          GCARR_ac(2.80d-11, 85.0d0);                                                       {2014/02/03; Eastham2014; SDE}\nClO + HO2 = O2 + HOCl :                      GCARR_ac(2.60d-12, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + NO = Cl + NO2 :                        GCARR_ac(6.40d-12, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + NO2 {+M} = ClNO3 {+M} :                GCJPLPR_abab(1.80d-31, 3.4d+00, 1.50d-11, 1.9d0, 0.6d0);                          {2014/02/03; Eastham2014; SDE}\nClO + ClO = Cl2 + O2 :                       GCARR_ac(1.00d-12, -1590.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nClO + ClO = Cl + ClOO :                      GCARR_ac(3.00d-11, -2450.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nClO + ClO = OClO + Cl :                      GCARR_ac(3.50d-13, -1370.0d0);                                                    {2014/02/03; Eastham2014; SDE}\nCl + O2 {+M} = ClOO {+M} :                   GCJPLPR_aba(2.20d-33, 3.1d+00, 1.8d-10, 0.6d0);                                   {2014/02/03; Eastham2014; SDE}\nClOO {+M} = Cl + O2 {+M} :                   GCJPLEQ_acabab(6.60d-25, 2502.0d0, 2.20d-33, 3.1d+00, 1.8d-10, 0.0d0, 0.6d0);     {JPL 15-10; XW}\nClO + ClO {+M} = Cl2O2 {+M} :                GCJPLPR_abab(1.90d-32, 3.6d+00, 3.7d-12, 1.6d0, 0.6d0);                           {2017/02/22; JPL 15-10; BHH,MJE}\nCl2O2 {+M} = 2.000ClO {+M} :                 GCJPLEQ_acabab(2.16d-27, 8537.0d0, 1.90d-32, 3.6d+00, 3.7d-12, 1.6d0, 0.6d0);     {JPL 15-10; XW}\nClOO + Cl = 0.950Cl2 + 0.950O2 + 0.100ClO :  2.42d-10;                                                                         {2014/02/03; Eastham2014; SDE}\nClO + BrO = Br + OClO :                      GCARR_ac(9.50d-13, 550.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + BrO = Br + ClOO :                      GCARR_ac(2.30d-12, 260.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClO + BrO = BrCl + O2 :                      GCARR_ac(4.10d-13, 290.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nClNO3 + O = ClO + NO3 :                      GCARR_ac(3.60d-12, -840.0d0);                                                     {2014/02/03; Eastham2014; SDE}\nClNO3 + Cl = Cl2 + NO3 :                     GCARR_ac(6.50d-12, 135.0d0);                                                      {2014/02/03; Eastham2014; SDE}\nCH3Cl + Cl = CO + 2.000HCl + HO2 :           GCARR_ac(2.03d-11, -1110.0d0);                                                    {2014/02/03; Eastham2014; SDE; 2023/04/18; JPL 19-5; KHB}\nCH2Cl2 + Cl = CO + HCl + 2.000Cl + HO2 :     GCARR_ac(7.40d-12, -910.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCHCl3 + Cl = CO + HCl + 3.000Cl + HO2 :      GCARR_ac(3.30d-12, -990.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + HCOOH = HCl + CO2 + H2O :               2.00d-13;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + MO2 = ClO + CH2O + HO2 :                1.60d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + MP = HCl + MO2 :                        5.7d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C2H6 = HCl + ETO2 :                     GCARR_ac(7.2d-11, -70.0d0);                                                       {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ETO2 = ClO + HO2 + ALD2 :               7.4d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + OTHRO2 = ClO + HO2 + ALD2 :             7.4d-11;                                                                          {2019/05/10; Fisher2018; JAF}\nCl + MOH = HCl + CH2O + HO2 :                5.5d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + EOH = HCl + ALD2 :                      9.6d-11;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ACTA = HCl + MO2 + CO2 :                2.8d-14;                                                                          {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C3H8 = HCl + B3O2 :                     GCARR_ac(6.54d-11, 60.0d0);                                                       {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + C3H8 = HCl + A3O2 :                     GCARR_ac(8.12d-11, -90.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCl + ACET = HCl + ATO2 :                     GCARR_ac(1.63d-11, -610.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nCl + ISOP = HCl + 0.5IHOO1 + 0.5IHOO4 :      GCARR_ac(7.60d-11, 500.0d0);                                                      {2019/11/06; Sherwen2016b;KHB,TS,JAS,SDE}\nCl + ALK4 = HCl + ALK4O2 :                   2.05d-10;                                                                         {2023/05/14; Brewer2023; JFB}\nCl + PRPE {+M} = HCl + PO2 {+M} :            GCJPLPR_aa(4.00d-28, 2.8d-10, 0.6d0);                                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nBr + PRPE = HBr + PO2 :                      3.60d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + NO {+M} = INO {+M} :                     GCJPLPR_aba(1.80d-32, 1.0d0, 1.70d-11, 0.6d0);                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nINO + INO = I2 + 2.000NO :                   GCARR_ac(8.40d-11, -2620.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + NO2 {+M} = IONO {+M} :                   GCJPLPR_aba(3.00d-31, 1.0d0, 6.6d-11, 0.6d0);                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIONO {+M} = I + NO2 {+M} :                   GCARR_ac(9.94d+17, -11859.0d0);                                                   {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO + IONO = I2 + 2.000NO2 :                GCARR_ac(2.90d-11, -2600.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2 + NO3 = I + IONO2 :                       1.50d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + NO2 {+M} = IONO2 {+M} :                 GCJPLPR_abab(7.50d-31, 3.5d0, 7.6d-12, 1.5d0, 0.6d0);                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 {+M} = IO + NO2 {+M} :                 GCARR_ac(2.10d+15, -13670.0d0);                                                   {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 + I = I2 + NO3 :                       GCARR_ac(9.10d-11, -146.0d0);                                                     {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI + BrO = IO + Br :                          1.20d-11;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + BrO = 0.8OIO + Br + 0.2I + 0.2O2 :      GCARR_ac(5.50d-12, 760.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIO + OIO {+M} = I2O3 {+M} :                  1.00d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + OIO = I2O4 :                           1.50d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 {+M} = 2.000OIO {+M} :                  3.80d-02;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + NO = IO + NO2 :                        GCARR_ac(1.10d-12, 542.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + ClO = 0.809I + 0.560OClO +\n 0.249Cl + 0.191ICl + 0.440O2 :              GCARR_ac(4.82d-12, 280.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI + O3 = IO + O2 :                           GCARR_ac(2.00d-11, -830.0d0);                                                     {2017/09/22; Sherwen2017;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI + HO2 = HI + O2 :                          GCARR_ac(1.50d-11, -1090.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2 + OH = HOI + I :                          1.80d-10;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI + OH = I + H2O :                          3.00d-11;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI + OH = IO + H2O :                        5.00d-12;                                                                         {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + HO2 = HOI + O2 :                        GCARR_ac(1.30d-11, 570.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + NO = I + NO2 :                          GCARR_ac(8.60d-12, 230.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nIO + IO = 0.400I + 0.400OIO + 0.600I2O2:     GCARR_ac(1.50d-11, 500.0d0);                                                      {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB}\nI2O2 {+M} = 0.008IO + 0.996I +\n 0.996OIO {+M} :                             GCARR_ac(2.51d+14, -9770.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; Bates2023; KHB}\nCH3I + OH = H2O + I + MO2 :                  GCARR_ac(2.90d-12, -1100.0d0);                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nETHLN + OH = CH2O + CO2 + NO2 :              2.40d-12;                                                                         {2017/06/15, Marais2016, EAM}\nPROPNN + OH = NO2 + MGLY :                   6.70d-13;                                                                         {2017/07/14; MCMv3.3; KRT,JAF,CCM,EAM,KHB,RHS}\nCH2OO + CO = CH2O + CO2 :                    1.20d-15;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; Bates2023; KHB}\nCH2OO + NO = CH2O + NO2 :                    1.00d-14;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH2OO + NO2 = CH2O + NO3 :                   4.25d-12;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH2OO + H2O = 0.730HMHP + 0.210HCOOH +\n 0.060CH2O + 0.060H2O2 :                     2.80d-16;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nCH2OO + H2O + H2O = 0.400HMHP +\n 0.540HCOOH + 0.060CH2O + 0.060H2O2 :        GCARR_ac(2.88d-35, 1391.0d0);                                                     {2019/11/06; Bates2019; KHB}\nCH2OO + O3 = CH2O :                          1.40d-12;                                                                         {2019/11/06; Bates2019; KHB}\nCH2OO + SO2 = CH2O + SO4 + PH2SO4 :          3.80d-11;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + CO = ALD2 + CO2 :                  1.20d-15;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; Bates2023; KHB}\nCH3CHOO + NO = ALD2 + NO2 :                  1.00d-14;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH3CHOO + NO2 = ALD2 + NO3 :                 4.25d-12;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + SO2 = ALD2 + SO4 + PH2SO4 :        2.65d-11;                                                                         {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB}\nCH3CHOO + H2O = ALD2 + H2O2 :                6.00d-18;                                                                         {2015/09/25; Millet2015; DBM,EAM}\nCH3CHOO + H2O = ACTA :                       1.00d-17;                                                                         {2015/09/25; Millet2015; DBM,EAM}\n// Updated Monoterpene chemistry\nMTPA + NO3 = 0.100OLNN + 0.900OLND :         GCARR_ac(8.33d-13, 490.0d0);                                                      {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMTPO + NO3 = 0.100OLNN + 0.900OLND :         GCARR_ac(8.33d-13, 490.0d0);                                                      {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + NO3 = 0.500OLNN + 0.500OLND :         1.22d-11;                                                                         {2017/07/14; Fry2014,Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS}\nLIMO + OH = LIMO2 :                          GCARR_ac(4.20d-11, 401.0d0);\nLIMO + O3 = 0.865OH + 0.15CO + 0.15AROMRO2 +\n 0.27LIMAL + 0.715LIMO3 :                    GCARR_ac(2.95d-15, -783.0d0);\nMTPO + OH = 0.15APINO2 + 0.15BPINO2 +\n 0.2LIMO2 + 0.5PIO2 :                        GCARR_ac(1.21d-11, 440.0d0); \nMTPO + O3 = 0.5ACET + 0.8OH + 0.1CH2O +\n 0.5MEK + 0.15MVK + 0.4MYRCO + 0.5AROMRO2 +\n 0.05HO2 + 0.3KO2 + 0.3RCHO :                GCARR_ac(2.7d-15, -520.0d0); \nMTPA + OH = 0.075LIMO2 + 0.67APINO2 +\n 0.255BPINO2 :                               GCARR_ac(1.34d-11, 410.0d0);\nMTPA + O3 = 0.65OH + 0.5APINO2 +\n 0.1BPINOO2 + 0.2BPINO + 0.2PINAL +\n 0.1CH2OO + 0.1CO + 0.1CH2O :                GCARR_ac(8.22d-16, -640.0d0);\nAPINO2 + HO2 = APINP :                       GCARR_ac(2.66d-13, 1300.0d0);\nAPINO2 + NO = 0.25APINN + 0.75PINAL +\n 0.75NO2 + 0.75HO2 :                         GCARR_ac(2.7d-12, 360.0d0);\nAPINO2 + NO3 = PINAL + NO2 + HO2 :           2.3d-12 ;\nAPINP + OH = 0.4PINO3 + 0.6APINO2 :          1.83d-11 ;\nAPINN + OH = 0.5PINAL + 0.5NO2 + 0.5HO2 +\n 0.5C96N + 0.5CH2O + 0.5AROMRO2 :            5.50d-12 ;\nPINAL + NO3 = HNO3 + PINO3 :                 2.0d-14 ;\nPINAL + OH = PINO3 :                         GCARR_ac(5.2d-12, 600.0d0);\nPINO3 + HO2 = 0.44OH + 0.15O3 + 0.44C96O2 +\n 0.41PINO3H + 0.15PINONIC :                  GCARR_ac(2.66d-13, 1300.0d0);\nPINO3 + NO = NO2 + CO2 + C96O2 :             GCARR_ac(2.7d-12, 360.0d0);\nPINO3 + NO2 = PINPAN :                       GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);\nPINPAN = PINO3 + NO2 :                       GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nPINO3 + NO3 = NO2 + CO2 + C96O2 :            2.3d-12 ;\nPINO3H + OH = PINO3 :                        9.73d-12 ;\nPINONIC + OH = CO2 + C96O2 :                 6.65d-12 ;\nC96O2 + HO2 = C96O2H :                       GCARR_ac(2.66d-13, 1300.0d0);\nC96O2 + NO = 0.16C96N + 0.84NO2 +\n 0.84AROMRO2 + 0.84ACET + 0.84CH2O +\n 0.84RCO3 + 0.42MEK :                        GCARR_ac(2.7d-12, 360.0d0);\nC96O2 + NO3 = NO2 + AROMRO2 + ACET + CH2O +\n RCO3 + 0.5MEK :                             2.3d-12 ;\nC96O2 + MO2 = HO2 + 0.75CH2O + 0.25MOH +\n 0.25C96O2H + 0.75AROMRO2 + 0.75ACET +\n 0.75CH2O + 0.75RCO3 + 0.375MEK :            GCARR_ac(3.75d-13, 500.0d0);\nC96O2H + OH = 0.5C96O2 + 0.5AROMRO2 +\n 0.5ACET + 0.5CH2O + 0.5RCO3 + 0.25MEK :     2.6d-11 ;\nC96N + OH = 0.5NO2 + 0.5MONITS +\n 0.55AROMRO2 + 0.4ACET + 0.4CH2O + 0.4RCO3 +\n 0.3MEK :                                    2.88d-12 ;\nBPINO2 + HO2 = BPINP :                       GCARR_ac(2.66d-13, 1300.0d0);\nBPINO2 + NO = 0.25BPINN + 0.75CH2O +\n 0.75NO2 + 0.75HO2 + 0.75BPINO :             GCARR_ac(2.7d-12, 360.0d0);\nBPINO2 + NO3 = CH2O + NO2 + HO2 + BPINO :    2.3d-12 ;\nBPINN + OH = 0.5BPINON + 0.5AROMRO2 + CH2O +\n 0.5NO2 + 0.5HO2 + 0.5BPINO :                4.7d-12 ;\nBPINP + OH = BPINO2 :                        1.33d-11 ;\nBPINO + OH = BPINOO2 :                       1.55d-11 ;\nBPINOO2 + HO2 = BPINOOH :                    GCARR_ac(2.66d-13, 1300.0d0);\nBPINOO2 + NO = BPINON :                      GCARR_ac(4.32d-13, 360.0d0);\nBPINOO2 + NO = NO2 + HO2 + 0.27LIMO3 +\n 0.6ACET + 0.6RCHO + 0.6R4O2 :               GCARR_ac(2.27d-12, 360.0d0);\nBPINOO2 + MO2 = HO2 + 0.23LIMO3 + 0.4ACET +\n 0.4RCHO + 0.4R4O2 + 0.75CH2O + 0.25MOH +\n 0.25BPINOOH :                               GCARR_ac(3.75d-13, 500.0d0);\nBPINOO2 + NO3 = NO2 + HO2 + 0.27LIMO3 +\n 0.6ACET + 0.6RCHO + 0.6R4O2 :               2.3d-12 ;\nBPINOOH + OH = BPINOO2 :                     8.59d-11 ;\nBPINON + OH = 0.5MONITS + 0.5NO2 +\n 0.085LIMO3 + 0.3ACET + 0.3RCHO + 0.3R4O2 :  3.24d-12 ;\nLIMO2 + HO2 = 0.37LIMKET + 0.63LIMAL : GCARR_ac(2.66d-13, 1300.0d0);\nLIMO2 + NO = 0.25LIMN + 0.75NO2 + 0.75HO2 + 0.28LIMKET + 0.47LIMAL : GCARR_ac(2.7d-12, 360.0d0);\nLIMO2 + NO3 = NO2 + HO2 + 0.37LIMKET + 0.63LIMAL : 2.3d-12 ;\nLIMAL + OH = LIMO3 : 1.1d-10 ;\nLIMAL + O3 = 0.3LIMKB + 0.33CH2OO + 0.67CH2O + 0.6LIMO3 + 0.6OH : 8.3d-18 ;\nLIMAL + NO3 = AROMRO2 + LIMNB : 2.6d-13 ;\nLIMKET + OH = LIMKO2 : 9.97d-11 ; \nLIMKET + O3 = 0.27LIMKO2 + 0.865OH + 0.73LIMO3 : 1.5d-16 ; \nLIMKET + NO3 = LIMNB + AROMRO2 : 9.4d-12 ; \nLIMN + OH = 0.5LIMNB + 0.32LIMO3 + 0.18LIMKO2 + 0.5NO2 : 1.1d-10 ;\nLIMN + O3 = CH2O + 0.5NO2 + 0.4LIMO3 + 0.5LIMNB : 8.3d-18 ;\nLIMN + NO3 = NO2 + LIMNB + AROMRO2 : 2.6d-13 ;\nLIMKO2 + NO = 0.16LIMNB + 0.84NO2 + 0.84LIMKB + 0.84HO2 : GCARR_ac(2.7d-12, 360.0d0);\nLIMKO2 + HO2 = LIMO3H : GCARR_ac(2.66d-13, 1300.0d0);\nLIMKO2 + NO3 = NO2 + LIMKB + HO2 : 2.3d-12 ;\nLIMKO2 + MO2 = 0.75LIMKB + 0.25LIMO3H + 0.75CH2O + 0.25MOH + HO2 : GCARR_ac(3.75d-13, 500.0d0);\nLIMKB + OH = LIMO3 : 3.6d-11 ; \nLIMKB + NO3 = NO2 + LIMO3 : GCARR_ac(1.22d-11, -1862.0d0);\nLIMNB + OH = 0.5MONITS + 0.5NO2 + 0.5LIMO3 : 6.3d-12 ; \nLIMO3 + HO2 = 0.44OH + 0.15O3 + 0.44CO2 + 0.44MCO3 + 0.44RCHO + 0.176CH2O + 0.352R4O2 + 0.41LIMO3H + 0.15LIMO2H : GCARR_ac(2.66d-13, 1300.0d0);\nLIMO3 + NO = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(2.7d-12, 360.0d0);\nLIMO3 + NO2 = LIMPAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0);\nLIMPAN = LIMO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0);\nLIMO3 + NO3 = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 2.3d-12 ;\nLIMO3H + OH = LIMO3 : 9.73d-12 ;\nLIMO2H + OH = CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 6.65d-12 ;\nPIO2 + HO2 = PIP : GCARR_ac(2.66d-13, 1300.0d0);\nPIO2 + NO = PIN : GCARR_ac(6.75d-13, 360.0d0);\nPIO2 + NO = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : GCARR_ac(2.03d-12, 360.0d0);\nPIO2 + NO3 = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : 2.3d-12 ;\nPIP + OH = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(6.05d-12, 440.0d0); \nPIP + O3 = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(1.35d-15, -520.0d0); \nPIP + NO3 = 0.5OLNN + 0.5NO2 + 0.15OH + 0.35AROMRO2 + 0.15MVK + 0.15ACET + 0.05CH2O + 0.39MYRCO : GCARR_ac(1.06d-12, 490.0d0); \nPIN + OH = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(6.05d-12, 440.0d0); \nPIN + O3 = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(1.35d-15, -520.0d0); \nPIN + NO3 = 0.5OLNN + 1.15NO2 + 0.35AROMRO2 + 0.35MONITU + 0.15MYRCO : GCARR_ac(1.06d-12, 490.0d0); \nMYRCO + OH = HO2 + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(6.05d-12, 440.0d0); \nMYRCO + O3 = OH + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(1.35d-15, -520.0d0); \nMYRCO + NO3 = 0.5OLNN + 0.5NO2 + 0.5HO2 + 0.5AROMRO2 + 0.75CH2O + 0.5MEK + 0.25ACET + 0.25MVK + 0.25GLYC: GCARR_ac(1.06d-12, 490.0d0); \nAPINO2 + MO2 = PINAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0);\nAPINO2 + MCO3 = PINAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nBPINO2 + MO2 = 1.75HO2 + 0.25MOH + 1.75CH2O + BPINO : GCARR_ac(3.75d-13, 500.0d0);\nBPINO2 + MCO3 = BPINO + CH2O + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nLIMO2 + MO2 = 0.37LIMKET + 0.63LIMAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0);\nLIMO2 + MCO3 = 0.37LIMKET + 0.63LIMAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nPIO2 + MO2 = 0.45MVK + 0.45ACET + 0.675MYRCO + 1.75HO2 + 0.25MOH + 0.85CH2O : GCARR_ac(3.75d-13, 500.0d0);\nPIO2 + MCO3 = 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0);\nPINO3 + MO2 = CH2O + 0.75HO2 + 0.25PINONIC + 0.75C96O2  + 0.75CO2 : GCARR_ac(1.87d-12, 500.0d0);\nPINO3 + MCO3 = C96O2 + 2CO2 + MO2 : GCARR_ac(3.75d-14, 500.0d0);\nLIMO3 + MO2 = 0.75HO2 + CH2O + 0.75CO2 + 0.75MCO3 + 0.75RCHO + 0.3CH2O + 0.6R4O2 + 0.25LIMO2H : GCARR_ac(1.87d-12, 500.0d0);\nLIMO3 + MCO3 = CO2 + MO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(3.75d-14, 500.0d0);\n//\nOLNN + NO = HO2 + NO2 + MONITS :             4.00d-12;                                                                         {2017/07/14; Browne2014,Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + NO = 2.000NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK :                      4.00d-12;                                                                         {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + HO2 = 0.700MONITS + 0.300MONITU :     GCARR_ac(1.66d-13, 1300.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + HO2 = 0.700MONITS + 0.300MONITU :     GCARR_ac(1.66d-13, 1300.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + MO2 = 2.000HO2 + CH2O +\n 0.700MONITS + 0.300MONITU :                 GCARR_ac(1.60d-13, 708.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + MO2 = 0.500HO2 + 0.500NO2 +\n 0.850CH2O + 0.930RCHO + 0.340MEK +\n 0.250MOH + 0.250ROH + 0.350MONITS +\n 0.150MONITU :                               GCARR_ac(9.68d-14, 708.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS; 2023/04/18; Bates2023; KHB}\nOLNN + MCO3 = HO2 + MO2 + 0.700MONITS +\n 0.300MONITU + CO2 :                         GCARR_ac(8.85d-13, 765.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS; 2023/04/18; Bates2023; KHB}\nOLND + MCO3 = 0.500MO2 + NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK + 0.500RCOOH :         GCARR_ac(5.37d-13, 765.0d0);                                                      {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + NO3 = HO2 + NO2 + 0.700MONITS +\n 0.300MONITU :                               1.20d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + NO3 = 2.000NO2 + 0.287CH2O +\n 1.240RCHO + 0.464MEK :                      1.20d-12;                                                                         {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + OLNN = HO2 + 1.400MONITS +\n 0.600MONITU :                               GCARR_ac(7.00d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLNN + OLND = 0.500HO2 + 0.500NO2 +\n 0.202CH2O + 0.640RCHO + 0.149MEK +\n 1.050MONITS + 0.450MONITU :                 GCARR_ac(4.25d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nOLND + OLND = NO2 + 0.504CH2O +\n 1.210RCHO + 0.285MEK + 0.700MONITS +\n 0.300MONITU :                               GCARR_ac(2.96d-14, 1000.0d0);                                                     {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITS + OH = HONIT :                        4.80d-12;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + OH = HONIT :                        7.29d-11;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + O3 = HONIT :                        1.67d-16;                                                                         {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + NO3 = HONIT :                       GCARR_ac(3.15d-13, -448.0d0);                                                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITS + NO3 = HONIT :                       GCARR_ac(3.15d-13, -448.0d0);                                                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nIONITA = INDIOL + HNO3 :                     2.78d-04;                                                                         {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITA = INDIOL + HNO3 :                     2.78d-04;                                                                         {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT + OH = NO3 + HAC :                     GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0) + GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,0.6d0); {2023/04/18; JPL 19-5; KHB}\nMENO3 + OH = CH2O + NO2 :                    GCARR_ac(8.00d-13, -1000.0d0);                                                    {2019/05/16; JPL 15-10,Fisher2018; JAF}\nETNO3 + OH = ALD2 + NO2 :                    GCARR_ac(1.00d-12, -490.0d0);                                                     {2019/05/16; JPL 15-10,Fisher2018; JAF}\nIPRNO3 + OH = ACET + NO2 :                   GCARR_ac(1.20d-12, -320.0d0);                                                     {2019/05/16; JPL 15-10,Fisher2018; JAF}\nNPRNO3 + OH = RCHO + NO2 :                   7.10d-13;                                                                         {2019/05/16; JPL 15-10,Fisher2018; JAF}\nISOP + O3 = 0.416MACR + 0.177MVK +\n 0.28OH + 0.407CO2 + 0.407CO + 0.407MO2 +\n 0.16HO2 + 0.58CH2OO + 0.827CH2O +\n 0.013H2O2 :                                 GCARR_ac(1.10d-14, -2000.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nISOP + OH = LISOPOH + IHOO1 :                GC_ISO1(1.7d-11, 3.90d2, 9.33d-2, 5.05d15, -1.22d4, 1.79d14, -8.830d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = LISOPOH + IHOO4 :                GC_ISO1(1.0d-11, 3.90d2, 2.26d-1, 2.22d9, -7.160d3, 1.75d14, -9.054d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = 0.3MCO3 + 0.3MGLY + 0.3CH2O +\n 0.15HPALD3 + 0.25HPALD1 + 0.4HO2 +\n 0.6CO + 1.5OH + 0.3HPETHNL + LISOPOH :      GC_ISO2(1.7d-11, 3.90d2, 9.33d-2, 5.05d15, -1.22d4, 1.79d14, -8.830d3);           {2019/11/06; Bates2019; KHB}\nISOP + OH = 0.3CH2O + 0.15HPALD4 +\n 0.25HPALD2 + 1.5OH + 0.9CO + 0.7HO2 +\n 0.3MGLY + 0.3ATOOH + LISOPOH :              GC_ISO2(1.0d-11, 3.90d2, 2.26d-1, 2.22d9, -7.160d3, 1.75d14, -9.054d3);           {2019/11/06; Bates2019; KHB}\nIHOO1 + HO2 = 0.063MVK + 0.063OH +\n 0.063HO2 + 0.063CH2O + 0.937RIPA :          ARRPLUS_abde(2.12d-13, -1300d0,  1.1644d0, -7.0485d-4);                           {2019/11/06; Bates2019; KHB}\nIHOO1 + HO2 = RIPC :                         ARRPLUS_abde(2.12d-13, -1300d0, -0.1644d0, 7.0485d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO4 + HO2 = 0.063MACR + 0.063OH +\n 0.063HO2 + 0.063CH2O + 0.937RIPB :          ARRPLUS_abde(2.12d-13, -1300d0, 1.2038d0, -9.0435d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO4 + HO2 = RIPD :                         ARRPLUS_abde(2.12d-13, -1300d0, -0.2038d0, 9.0435d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO1 = CH2O + OH + MVK :                    ARRPLUS_abde(1.04d11, 9.746d3,  1.1644d0, -7.0485d-4);                            {2019/11/06; Bates2019; KHB}\nIHOO1 = 0.15HPALD3 + 0.25HPALD1 + 0.4HO2 +\n 0.6CO + 1.5OH + 0.3CH2O + 0.3MGLY +\n 0.3HPETHNL + 0.3MCO3 :                      TUNPLUS_abcde(5.05d15, -1.22d4, 1.0d8, -0.0128d0, 5.1242d-5);                     {2019/11/06; Bates2019; KHB}\nIHOO4 = MACR + OH + CH2O :                   ARRPLUS_abde(1.88d11, 9.752d3, 1.2038d0, -9.0435d-4);                             {2019/11/06; Bates2019; KHB}\nIHOO4 = 0.15HPALD4 + 0.25HPALD2 + 1.5OH +\n 0.3CH2O + 0.9CO + 0.7HO2 + 0.3MGLY +\n 0.3ATOOH :                                  TUNPLUS_abcde(2.22d9, -7.160d3, 1.0d8, -0.0306d0, 1.1346d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO1 = 2MVK + 2HO2 + 2CH2O :        ARRPLUS_ade(6.92d-14, 1.1644d0, -7.0485d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO4 + IHOO4 = 2MACR + 2HO2 + 2CH2O :       ARRPLUS_ade(5.74d-12, 1.2038d0, -9.0435d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO4 = MACR + MVK + 2HO2 + 2CH2O :  ARRPLUS_ade(1.54d-12, 2.3682d0, -1.6092d-3);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO1 = HO2 + HC5A + CO + OH +\n MVKHP :                                     ARRPLUS_ade(2.49d-12, -0.1644d0, 7.0485d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO4 + IHOO4 = HO2 + HC5A + CO + OH +\n MCRHP :                                     ARRPLUS_ade(3.94d-12, -0.2038d0, 9.0435d-4);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + IHOO4 = HO2 + HC5A + CO + OH +\n 0.5MVKHP + 0.5MCRHP :                       ARRPLUS_ade(1.54d-12, -0.3682d0, 1.6092d-3);                                      {2019/11/06; Bates2019; KHB}\nIHOO1 + MO2 = MVK + 2HO2 + 2CH2O :           ARRPLUS_ade(2.0d-12, 1.1644d0, -7.0485d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO1 + MO2 = CH2O + 0.5HC5A + 1.5HO2 +\n 0.5MVKHP + 0.5CO + 0.5OH :                  ARRPLUS_ade(2.0d-12, -0.1644d0, 7.0485d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO4 + MO2 = MACR + 2HO2 + 2CH2O :          ARRPLUS_ade(2.0d-12, 1.2038d0, -9.0435d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO4 + MO2 = CH2O + 0.5HC5A + 1.5HO2 +\n 0.5MCRHP + 0.5CO + 0.5OH :                  ARRPLUS_ade(2.0d-12, -0.2038d0, 9.0435d-4);                                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = IHN2 :                          GC_NIT(2.7d-12, 3.50d2, 1.19d0,  6.0d0, 1.1644d0, 7.05d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = NO2 + MVK + HO2 + CH2O :        GC_ALK(2.7d-12, 3.50d2, 1.19d0,  6.0d0, 1.1644d0, 7.05d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = IHN4 :                          GC_NIT(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.1644d0, -7.05d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO1 + NO = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MVKHP + 0.55CO + 0.55OH :               GC_ALK(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.1644d0, -7.05d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = IHN3 :                          GC_NIT(2.7d-12, 3.50d2, 1.297d0, 6.0d0, 1.2038d0, 9.04d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = NO2 + MACR + HO2 + CH2O :       GC_ALK(2.7d-12, 3.50d2, 1.297d0, 6.0d0, 1.2038d0, 9.04d-4);                       {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = IHN1 :                          GC_NIT(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.2038d0, -9.04d-4);                     {2019/11/06; Bates2019; KHB}\nIHOO4 + NO = NO2 + 0.45HO2 + 0.45HC5A +\n 0.55MCRHP + 0.55CO + 0.55OH :               GC_ALK(2.7d-12, 3.50d2, 1.421d0, 6.0d0, -0.2038d0, -9.04d-4);                     {2019/11/06; Bates2019; KHB}\nHPALD1 + OH = 0.035MVK + 0.315HPALD1OO +\n 0.15IDC + 0.33MVKHP + 0.085HO2 +\n 0.085CH2O + 0.085MGLY + 0.085ICHE +\n 1.085OH + 0.45CO :                          GCARR_ac(1.17d-11, 450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD2 + OH = 0.035MACR + 0.315HPALD2OO +\n 0.15IDC + 0.17MCRHP + 0.165HO2 +\n 0.165CH2O + 0.165MGLY + 0.165ICHE +\n 1.165OH + 0.37CO :                          GCARR_ac(1.17d-11, 450.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD3 + OH = OH + 0.230MVK + 0.420CO +\n 0.190MVKHP + 0.580ICHE :                    GCARR_ac(2.20d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD4 + OH = OH + 0.770ICHE + 0.230CO +\n 0.090MCRHP + 0.140MACR :                    GCARR_ac(3.50d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHC5A + OH = 1.065OH + 0.355CO2 + 0.638CO +\n 0.355MGLY + 0.283HO2 + 0.294IEPOXAOO +\n 0.125MVKHP + 0.158MCRHP + 0.068IEPOXBOO :   GCARR_ac(4.64d-12, 650.0d0);                                                      {2019/11/06; Bates2019; KHB}\nICHE + OH = OH + 1.5CO + 0.5CH2O +\n 0.5MGLY + 0.5HAC :                          GCARR_ac(9.85d-12, 410.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIDC + OH = CO + HO2 + MVKPC :                GCARR_ac(3.00d-12, 650.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.655IHPOO3 + 0.345IHPOO1 +\n 0.005LVOC :                                 GCARR_ac(2.47d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.67IEPOXA + 0.33IEPOXB + OH +\n 0.005LVOC :                                 GC_EPO_a(1.62d-11, 3.90d2, 4.77d-21);                                             {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.655IHPOO3 + 0.345IHPOO2 +\n 0.005LVOC :                                 GCARR_ac(4.35d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.68IEPOXA + 0.32IEPOXB + OH +\n 0.005LVOC :                                 GC_EPO_a(2.85d-11, 390.0d0, 4.77d-21);                                            {2019/11/06; Bates2019; KHB}\nRIPA + OH = 0.75IHOO1 + 0.125MVK +\n 0.25CO + 0.125MVKHP + 0.25HO2 + 0.005LVOC : GCARR_ac(6.10d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPB + OH = 0.51IHOO4 + 0.16ICHOO +\n 0.33CO + 0.33HO2 + 0.165MACR +\n 0.165MCRHP + 0.005LVOC :                    GCARR_ac(4.10d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPC + OH = 0.595IHPOO1 + 0.03IHOO1 +\n 0.06HC5A + 0.024HO2 + 0.009HPALD3 +\n 0.015HPALD1 + 0.405OH + 0.036CO +\n 0.018CH2O + 0.018MGLY + 0.018HPETHNL +\n 0.018MCO3 + 0.255IEPOXD + 0.005LVOC :       GCARR_ac(3.53d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nRIPD + OH = 0.255IHPOO2 + 0.03IHOO4 +\n 0.745OH + 0.06HC5A + 0.009HPALD4 +\n 0.015HPALD2 + 0.042HO2 + 0.018CH2O +\n 0.054CO + 0.018MGLY + 0.018ATOOH +\n 0.595IEPOXD + 0.005LVOC :                   GCARR_ac(3.53d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHPOO1 = 0.176ICPDH + 0.824IDHPE + OH :      GCARR_ac(1.59d+13, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPOO1 + NO = 0.716MCRHP + 0.716CH2O +\n 0.284HPETHNL + 0.284HAC + NO2 + HO2 :       GC_ALK(2.7d-12, 3.50d2, 2.1d0, 9.0d0, 1.0d0, 0.0d0);                              {2019/11/06; Bates2019; KHB}\nIHPOO1 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 2.1d0, 9.0d0, 1.0d0, 0.0d0);                              {2019/11/06; Bates2019; KHB}\nIHPOO1 + HO2 = 0.725IDHDP + 0.14MCRHP +\n 0.14CH2O + 0.135HPETHNL + 0.135HAC +\n 0.275OH + 0.275HO2 :                        GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPOO2 = 0.548ICPDH + 0.452IDHPE + OH :      GCARR_ac(2.91d+13, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPOO2 + NO = 0.706MVKHP + 0.706CH2O +\n 0.294GLYC + 0.294ATOOH + NO2 + HO2 :        GC_ALK(2.7d-12, 3.50d2, 2.315d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO2 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 2.315d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO2 + HO2 = 0.725IDHDP + 0.14MVKHP +\n 0.14CH2O + 0.135GLYC + 0.135ATOOH +\n 0.275OH + 0.275HO2 :                        GCARR_ac(2.47d-13,  1300.0d0);                                                    {2019/11/06; Bates2019; KHB}\nIHPOO3 = IDHPE :                             GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIHPOO3 + NO = GLYC + HAC + NO2 + OH :        GC_ALK(2.7d-12, 3.50d2, 3.079d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO3 + NO = ITHN :                         GC_NIT(2.7d-12, 3.50d2, 3.079d0, 9.0d0, 1.0d0, 0.0d0);                            {2019/11/06; Bates2019; KHB}\nIHPOO3 + HO2 = 0.35IDHDP + 0.65GLYC +\n 0.65HAC + 1.3OH :                           GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXD + OH = 0.75ICHE + 0.75HO2 +\n 0.25ICHOO :                                 GCARR_ac(3.22d-11, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXA + OH = ICHE + HO2 :                   GCARR_ac(1.05d-11, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXA + OH = 0.67IEPOXAOO + 0.33IEPOXBOO :  GC_EPO_a(5.82d-11, -4.00d2, 1.14d-20);                                            {2019/11/06; Bates2019; KHB}\nIEPOXB + OH = ICHE + HO2 :                   GCARR_ac(8.25d-12, -400.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXB + OH = 0.81IEPOXAOO + 0.19IEPOXBOO :  GC_EPO_a(3.75d-11, -4.00d2, 8.91d-21);                                            {2019/11/06; Bates2019; KHB}\nIEPOXAOO = IDCHP + HO2 :                     GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIEPOXAOO = OH + CO + MVKDH :                 GCARR_ac(1.0d+7, -5000.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIEPOXAOO + HO2 = 0.13CO + 0.65OH +\n 0.65HO2 + 0.13MVKDH + 0.52GLYC +\n 0.52MGLY + 0.35ICPDH :                      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIEPOXAOO + NO = 0.2MVKDH + HO2 + NO2 +\n 0.2CO + 0.8GLYC + 0.8MGLY :                 GC_ALK(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXAOO + NO = ITCN :                       GC_NIT(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO = IDCHP + HO2 :                     GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIEPOXBOO = CO + OH + MCRDH :                 GCARR_ac(1.0d+7, -5000.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIEPOXBOO + NO = NO2 + HO2 + 0.8GLYX +\n 0.8HAC + 0.2CO + 0.2MCRDH :                 GC_ALK(2.7d-12, 3.50d2, 16.463d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO + NO = ITCN :                       GC_NIT(2.7d-12, 3.50d2, 16.463d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nIEPOXBOO + HO2 = 0.13CO + 0.65OH +\n 0.65HO2 + 0.13MCRDH + 0.52HAC +\n 0.52GLYX + 0.35ICPDH :                      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nICHOO + HO2 = 0.35ICPDH + 0.65OH +\n 0.52CO + 0.13MVKHC + 0.65CH2O + 0.65HO2 +\n 0.52HAC :                                   GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nICHOO + NO = ITCN :                          GC_NIT(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nICHOO + NO = NO2 + 0.8HAC + 0.8CO + CH2O +\n HO2 + 0.2MVKHC :                            GC_ALK(2.7d-12, 3.50d2, 13.098d0, 8.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nICHOO = HO2 + 2.000CO + HAC + OH :           GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nHPALD1OO + NO = NO2 + OH + CO2 + MVK :       GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD1OO + HO2 = OH + OH + CO2 + MVK :       GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nHPALD2OO + NO = NO2 + OH + CO2 + MACR :      GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPALD2OO + HO2 = OH + OH + CO2 + MACR :      GCARR_ac(2.38d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHN2 + OH = ISOPNOO1 :                       GCARR_ac(7.14d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN2 + OH = 0.67IEPOXA + 0.33IEPOXB + NO2 :  GC_EPO_a(6.30d-12, 390.0d0, 1.62d-19);                                            {2019/11/06; Bates2019; KHB}\nIHN3 + OH = ISOPNOO2 :                       GCARR_ac(1.02d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN3 + OH = 0.67IEPOXA + 0.33IEPOXB + NO2 :  GC_EPO_a(1.05d-11, 390.0d0, 2.49d-19);                                            {2019/11/06; Bates2019; KHB}\nIHN1 + OH = IEPOXD + NO2 :                   GC_EPO_a(1.55d-11, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nIHN1 + OH = IDHNDOO1 :                       GCARR_ac(2.04d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN4 + OH = IEPOXD + NO2 :                   GC_EPO_a(9.52d-12, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nIHN4 + OH = IDHNDOO2 :                       GCARR_ac(2.95d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIHN1 + OH = 0.6OH + 0.6CO + 0.6MCRHNB +\n 0.4HO2 + 0.4ICN :                           GCARR_ac(7.5d-12, 20.0d0);                                                        {2019/11/06; Bates2019; KHB}\nIHN4 + OH = 0.6OH + 0.6CO + 0.6MVKN +\n 0.4HO2 + 0.4ICN :                           GCARR_ac(7.5d-12, 20.0d0);                                                        {2019/11/06; Bates2019; KHB}\nISOPNOO1 = ITCN + HO2 :                      GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nISOPNOO1 + HO2 = 0.482ITHN + 0.059MCRHN +\n 0.059CH2O + 0.459GLYC + 0.459HAC +\n 0.059HO2 + 0.459NO2 + 0.518OH :             GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nISOPNOO1 + NO = 0.272MCRHN + 0.272CH2O +\n 0.728GLYC + 0.728HAC + 0.272HO2 +\n 1.728NO2 :                                  GC_ALK(2.7d-12, 350.0d0, 6.32d0, 11.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nISOPNOO1 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 6.32d0, 11.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nISOPNOO2 = ITCN + HO2 :                      GCARR_ac(1.875d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nISOPNOO2 + HO2 = 0.401ITHN + 0.599MVKN +\n 0.599CH2O + 0.599HO2 + 0.599OH :            GCARR_ac(2.60d-13,  1300.0d0);                                                    {2019/11/06; Bates2019; KHB}\nISOPNOO2 + NO = MVKN + CH2O + HO2 + NO2 :    GC_ALK(2.7d-12, 350.0d0, 7.941d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nISOPNOO2 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 7.941d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO1 = ITCN + HO2 :                      GCARR_ac(1.256d+13, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIDHNDOO2 = ITCN + HO2 :                      GCARR_ac(5.092d+12, -10000.0d0);                                                  {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + HO2 = 0.418ITHN + 0.551PROPNN +\n 0.551GLYC + 0.031MCRHNB + 0.031CH2O +\n 0.582HO2 + 0.582OH :                        GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + NO = 0.935PROPNN + 0.935GLYC +\n 0.065MCRHNB + 0.065CH2O + HO2 + NO2 :       GC_ALK(2.7d-12, 350.0d0, 4.712d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO1 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 4.712d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + HO2 = 0.494ITHN + 0.441HAC +\n 0.441ETHLN + 0.065MVKN + 0.065CH2O +\n 0.506OH + 0.506HO2 :                        GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + NO = 0.858HAC + 0.858ETHLN +\n 0.142MVKN + 0.142CH2O + HO2 + NO2 :         GC_ALK(2.7d-12, 350.0d0, 2.258d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNDOO2 + NO = IDN :                        GC_NIT(2.7d-12, 350.0d0, 2.258d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNBOO + HO2 = 0.379HO2 + 0.379OH +\n 0.621ITHN + 0.094MCRHNB + 0.242GLYC +\n 0.242PROPNN + 0.010MVKN + 0.033HAC +\n 0.033ETHLN + 0.104CH2O :                    GCARR_ac(2.60d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIDHNBOO + NO = 0.355MCRHNB + 0.546PROPNN +\n 0.546GLYC + 0.028MVKN + 0.071ETHLN +\n 0.071HAC + HO2 + NO2 + 0.383CH2O :          GC_ALK(2.7d-12, 350.0d0, 1.851d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIDHNBOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 1.851d0, 11.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nISOP + NO3 = 0.465INO2B + 0.535INO2D +\n LISOPNO3 :                                  GCARR_ac(2.95d-12, -450.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2B + HO2 = 0.473INPB + 0.048MACR +\n 0.479MVK + 0.527OH + 0.527CH2O + 0.527NO2 : GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2D + HO2 = INPD :                         GCARR_ac(2.47d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINO2B + INO2B = 1.737MVK + 0.123MACR +\n 1.860CH2O + 1.860NO2 + 0.070INPB +\n 0.070ICN :                                  1.61d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + INO2D = 0.399INPB + 0.544MVK +\n 0.532ICN + 0.563NO2 + 0.474INA +\n 0.089HO2 + 0.019MACR + 0.563CH2O +\n 0.032IHN1 :                                 2.56d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2D + INO2D = 0.064HO2 + 0.340INA +\n 0.862ICN + 0.671IHN1 + 0.127IHN4 :          3.71d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2D + MO2 = 0.298IHN1 + 0.057IHN4 +\n 0.244INA + 0.401ICN + 0.355MOH +\n 0.336HO2 + 0.645CH2O :                      1.18d-12;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + MO2 = 0.355INPB + 0.583MVK +\n 0.028MACR + 0.034ICN + 0.611HO2 +\n 1.577CH2O + 0.611NO2 + 0.034MOH :           2.80d-13;                                                                         {2019/11/06; Bates2019; KHB}\nINO2B + MCO3 = CH2O + NO2 + MO2 +\n 0.903MVK + 0.097MACR + CO2 :                1.92d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2D + MCO3 = MO2 + 0.841INA + 0.159HO2 +\n 0.159ICN + CO2 :                            7.71d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nINO2B + NO3 = CH2O + 2NO2 + 0.903MVK +\n 0.097MACR :                                 2.3d-12;                                                                          {2019/11/06; Bates2019; KHB}\nINO2D + NO3 = NO2 + 0.841INA + 0.159HO2 +\n 0.159ICN :                                  2.3d-12;                                                                          {2019/11/06; Bates2019; KHB}\nINO2B + NO = 2NO2 + CH2O + 0.096MACR +\n 0.904MVK :                                  GC_ALK(2.7d-12, 350.0d0, 12.915d0, 9.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nINO2B + NO = IDN :                           GC_NIT(2.7d-12, 350.0d0, 12.915d0, 9.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nINO2D + NO = NO2 + 0.159HO2 + 0.159ICN +\n 0.841INA :                                  GC_ALK(2.7d-12, 350.0d0, 1.412d0, 9.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nINO2D + NO = IDN :                           GC_NIT(2.7d-12, 350.0d0, 1.412d0, 9.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nINA + O2 = ICN + HO2 :                       GCARR_ac(2.50d-14, -300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINA = IDHNBOO :                              GCARR_ac(1.00d+20, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nINPB + OH = 0.670IHPNBOO + 0.33IDHNBOO :     GCARR_ac(5.88d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPD + OH = IHPNDOO :                        GCARR_ac(1.61d-11, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPB + OH = OH + ITHN :                      GC_EPO_a(4.471d-12, 390.0d0, 2.28d-20);                                           {2019/11/06; Bates2019; KHB}\nINPD + OH = OH + ITHN :                      GC_EPO_a(8.77d-12,  390.0d0, 2.185d-20);                                          {2019/11/06; Bates2019; KHB}\nINPD + OH = NO2 + ICHE :                     GC_EPO_a(1.493d-11, 390.0d0, 2.715d-19);                                          {2019/11/06; Bates2019; KHB}\nINPB + OH = INO2B :                          GCARR_ac(2.278d-12, 200.0d0);                                                     {2019/11/06; Bates2019; KHB}\nINPD + OH = INO2D :                          GCARR_ac(3.40d-12, 200.0d0);                                                      {2019/11/06; Bates2019; KHB}\nINPD + OH = ICN + OH :                       GCARR_ac(7.50d-12, 20.0d0);                                                       {2019/11/06; Bates2019; KHB}\nIHPNDOO = OH + ITCN :                        GCARR_ac(6.55d+12, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPNBOO = OH + 0.5ITCN + 0.5ITHN :           GCARR_ac(8.72d+12, -10000.0d0);                                                   {2019/11/06; Bates2019; KHB}\nIHPNBOO + HO2 = 0.234ITHN + 0.060MCRHNB +\n 0.340GLYC + 0.249HPETHNL + 0.004MCRHP +\n 0.008MVKN + 0.009ATOOH + 0.054MVKHP +\n 0.042HAC + 1.147OH + 0.326HO2 +\n 0.058NO2 + 0.126CH2O + 0.589PROPNN +\n 0.051ETHLN :                                GCARR_ac(2.64d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPNDOO + HO2 = 0.387ITHN + 0.073MCRHNB +\n 0.471HPETHNL + 0.015MVKN + 0.054ATOOH +\n 0.646OH + 0.580HO2 + 0.088CH2O +\n 0.471PROPNN + 0.054ETHLN :                  GCARR_ac(2.64d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nIHPNBOO + NO = 0.384GLYC + 0.170MCRHNB +\n 0.303HPETHNL + 0.014MVKN + 0.051HAC +\n 0.013ATOOH + 0.059MVKHP + 0.006MCRHP +\n 0.687PROPNN + 0.064ETHLN + 0.249CH2O +\n 1.065NO2 + 0.500HO2 + 0.435OH :             GC_ALK(2.7d-12, 350.0d0, 6.092d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNBOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 6.092d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNDOO + NO = 0.291MCRHNB +\n 0.590HPETHNL + 0.070ATOOH + 0.049MVKN +\n 0.590PROPNN + 0.070ETHLN + 0.340CH2O +\n 1.000NO2 + 0.904HO2 + 0.096OH :             GC_ALK(2.7d-12, 350.0d0, 4.383d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nIHPNDOO + NO = IDN :                         GC_NIT(2.7d-12, 350.0d0, 4.383d0, 12.0d0, 1.0d0, 0.0d0);                          {2019/11/06; Bates2019; KHB}\nICN + OH = NO2 + ICHE :                      GC_EPO_a(2.97d-12, 390.0d0, 2.715d-19);                                           {2019/11/06; Bates2019; KHB}\nICN + OH = 0.244OH + 0.539CO + 0.295HO2 +\n 0.378MCRHNB + 0.461ICNOO + 0.161MVKN :      GCARR_ac(9.35d-12, 390.0d0);                                                      {2019/11/06; Bates2019; KHB}\nICNOO + NO = 0.67ICNOO + 0.429CO2 +\n 0.33CO + 0.33HO2 + 0.231PROPNN + NO2 +\n 0.099ETHLN :                                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICNOO + HO2 = 0.67ICNOO + 0.429CO2 +\n 0.33CO + 0.33HO2 + 0.231PROPNN + OH +\n 0.099ETHLN :                                GCARR_ac(2.54d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIDN + OH = 0.565NO2 + 0.565ITHN +\n 0.435IDNOO :                                GCARR_ac(1.00d-11, 0.0d0);                                                        {2019/11/06; Bates2019; KHB}\nIDNOO + NO = PROPNN + 1.11NO2 + 0.11GLYC +\n 0.89ETHLN + 0.89HO2 :                       GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nIDNOO + HO2 = 0.18IDN + 0.09NO2 +\n 0.09GLYC + 0.82OH + 0.73HO2 +\n 0.82PROPNN + 0.73ETHLN :                    GCARR_ac(2.71d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMVK + OH = MVKOHOO :                         GCARR_ac(2.60d-12, 610.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVK + O3 = 0.545MGLY + 0.500CH2OO +\n 0.600CH2O + 0.380MCO3 + 0.100HO2 +\n 0.080OH + 0.280CO + 0.075PYAC + 0.045H2O2 : GCARR_ac(8.50d-16, -1520.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMACR + OH = 0.036ATOOH + 0.036CO +\n 0.036HO2 + 0.964MCROHOO :                   GCARR_ac(4.40d-12, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR + OH = MACR1OO :                        GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR + O3 = 0.880MGLY + 0.880CH2OO +\n 0.120CH2O + 0.120OH + 0.120CO + 0.120MCO3 : GCARR_ac(1.50d-15, -2110.0d0);                                                    {2019/11/06; Bates2019; KHB; 2023/04/18; JPL 19-5; KHB}\nMACR + NO3 = 0.320HNO3 + 0.320MACR1OO +\n 0.680OH + 0.680CO + 0.680PROPNN :           GCARR_ac(1.80d-13, -1190.0d0);                                                    {2019/11/06; Bates2019; KHB}\nMVKN + OH = 0.241CH2O + 0.690NO3 +\n 0.020OH + 0.449MGLY + 0.449HCOOH +\n 0.241PYAC + 0.290MVKHCB + 0.310NO2 +\n 0.040MCO3 :                                 GCARR_ac(1.24d-12, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKHP + OH = 0.53MVKHC + 0.47MVKHCB + OH :   5.77d-11;                                                                         {2019/11/06; Bates2019; KHB}\nMCRHP + OH = 0.77CO + OH + 0.77HAC +\n 0.23ATOOH + 0.23CO2 :                       GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCRHN + OH = MACRNO2 :                       GCARR_ac(1.39d-11, 380.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCRHNB + OH = 0.250CO + OH + PROPNN +\n 0.750CO2 :                                  GCARR_ac(2.70d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP1 + NO = NO2 + MVKOHOO :                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP1 + HO2 = OH + MVKOHOO :                GCARR_ac(1.93d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nC4HVP1 + NO2 = MVKN :                        9.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nC4HVP2 + NO = NO2 + MCROHOO :                GCARR_ac(2.70d-12, 350.0d0);                                                      {2019/11/06; Bates2019; KHB}\nC4HVP2 + HO2 = OH + MCROHOO :                GCARR_ac(1.93d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nC4HVP2 + NO2 = MCRHN :                       9.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nMCRENOL + OH = 0.75CO + 0.285OH +\n 0.715HO2 + 0.653PYAC  + 0.097CO2 +\n 0.097MCO3 + 0.063MVKHCB + 0.187MGLY +\n 0.187HCOOH :                                GCARR_ac(3.71d-12, 983.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKPC + OH = OH + CO + MGLY :                GCARR_ac(5.00d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMVKDH + OH = 0.4MVKHCB + 0.6MVKHC + HO2 :    GCARR_ac(8.70d-12, 70.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMVKHCB + OH = OH + MGLY + CO :               GCARR_ac(5.00d-12, 470.0d0);                                                      {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMVKHC + OH = 2CO + HO2 + MCO3 :              GCARR_ac(2.00d-12, 70.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMCRDH + OH = 0.16MVKHCB + HO2 + 0.84HAC +\n 0.84CO :                                    GCARR_ac(2.4d-11, 70.0d0);                                                        {2019/11/06; Bates2019; KHB}\nMVKOHOO + HO2 = 0.360MCO3 + 0.360GLYC +\n 0.665OH + 0.305HO2 + 0.255MVKHC +\n 0.335MVKHP + 0.050MGLY + 0.050CH2O :        GCARR_ac(2.12d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMVKOHOO + NO = 0.758MCO3 + 0.758GLYC +\n 0.242MGLY + 0.242CH2O + 0.242HO2 + NO2 :    GC_ALK(2.7d-12, 350.0d0, 4.573d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMVKOHOO + NO = MVKN :                        GC_NIT(2.7d-12, 350.0d0, 4.573d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMCROHOO + HO2 = 0.41MCRHP + 0.507HAC +\n 0.507CO + 0.507HO2 + 0.59OH + 0.59O2 +\n 0.083MGLY + 0.083CH2O :                     GCARR_ac(2.12d-13, 1300.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMACR1OO + HO2 = 0.5MACR1OOH + 0.5CH2O +\n 0.325CO + 0.325MO2 + 0.175MCO3 + 0.5CO2 +\n 0.5OH + 0.13O3 :                            GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACR1OOH + OH = 0.165MACR1OO + 0.585OH +\n 0.488HAC + 0.488CO + 0.098HMML +\n 0.410CO2 + 0.25CH2O + 0.087MCO3 +\n 0.162MO2 :                                  1.66d-11;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nMCROHOO = HAC + CO + OH :                    GCARR_ac(2.90d+7, -5297.0d0);                                                     {2019/11/06; Bates2019; KHB}\nMCROHOO + NO = 0.86HAC + 0.86CO +\n 0.86HO2 + NO2 + 0.14MGLY + 0.14CH2O :       GC_ALK(2.7d-12, 350.0d0, 2.985d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMCROHOO + NO = MCRHN :                       GC_NIT(2.7d-12, 350.0d0, 2.985d0, 6.0d0, 1.0d0, 0.0d0);                           {2019/11/06; Bates2019; KHB}\nMACR1OO + NO = 0.35MCO3 + 0.65MO2 +\n 0.65CO + CH2O + CO2 + NO2 :                 GCARR_ac(8.7d-12, 290.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMACR1OO + NO2 = MPAN :                       GC_PAN_acac(2.591d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + HO2 = 0.5HAC + 0.5OH + 0.5CO2 +\n 0.5NO2 + 0.13O3 + 0.37MCRHN + 0.13MCRHNB :  GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO = HAC + 2NO2 + CO2 :            GCARR_ac(7.50d-12, 290.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO2 = MPAN + NO2 :                 GC_PAN_acac(2.591d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                      {2019/11/06; Bates2019; KHB}\nMACRNO2 + NO3 = HAC + 2NO2 + CO2 :           4.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nMACRNO2 + MO2 = 0.7HAC + 0.7CO2 + 0.7NO2 +\n 0.7HO2 + CH2O + 0.3MCRHNB :                 GCARR_ac(2.9d-12, 500.0d0);                                                       {2019/11/06; Bates2019; KHB}\nMPAN = MACR1OO + NO2 :                       GCARR_ac(1.58d+16, -13500.0d0);                                                   {2019/11/06; Bates2019; KHB}\nMPAN + OH = 0.75HMML + NO3 + 0.25HAC +\n 0.25CO :                                    2.90d-11;                                                                         {2019/11/06; Bates2019; KHB}\nHMML + OH = 0.700MGLY + 0.700OH +\n 0.300MCO3 + 0.300HCOOH + CO :               4.33d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICPDH + OH = CO + 0.5HO2 + 0.5OH +\n 0.5MCRHP + 0.35MVKDH + 0.15MCRDH :          1.00d-11;                                                                         {2019/11/06; Bates2019; KHB}\nIDCHP + OH = 0.888CO + 0.444OH +\n 0.444HO2 + 0.318MVKHC + 0.08IEPOXAOO +\n 0.126MVKHCB + 0.444MVKPC + 0.032IEPOXBOO :  2.25d-11;                                                                         {2019/11/06; Bates2019; KHB}\nIDHDP + OH = OH + 0.333ICPDH + 0.667IDHPE :  3.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nIDHPE + OH = OH + CO2 + 0.571MCRHP +\n 0.429MVKHP :                                3.00d-12;                                                                         {2019/11/06; Bates2019; KHB}\nITCN + OH = CO + NO2 + 0.75MVKHP +\n 0.25MCRHP :                                 1.00d-11;                                                                         {2019/11/06; Bates2019; KHB}\nITHN + OH = 0.300OH + 0.620HO2 +\n 0.900ITCN + 0.037IDHNBOO + 0.041ICNOO +\n 0.022MCRENOL + 0.022NO2 + 0.022CH2O :       3.00d-12;                                                                         {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nETHLN + NO3 = HNO3 + NO2 + MCO3 :            GCARR_ac(1.40d-12, -1860.0d0);                                                    {2019/11/06; Bates2019; KHB}\nPYAC + OH = MCO3 + CO2 :                     8.00d-13;                                                                         {2019/11/06; Bates2019; KHB}\nHMHP + OH = 0.5CH2O + 0.5HO2 + 0.5HCOOH +\n 0.5OH :                                     GCARR_ac(1.30d-12, 500.0d0);                                                      {2019/11/06; Bates2019; KHB}\nMCO3 + HO2 = 0.13O3 + 0.13ACTA + 0.37MAP +\n 0.5MO2 + 0.5CO2 + 0.5OH :                   GCARR_ac(3.14d-12, 580.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPETHNL + OH = CO + OH + CH2O :              GCARR_ac(1.55d-12, 340.0d0);                                                      {2019/11/06; Bates2019; KHB}\nHPETHNL + OH = GLYX + OH :                   2.91d-11;                                                                         {2019/11/06; Bates2019; KHB}\nNAP + OH = NRO2 + OH :                       GCARR_ac(1.56d-11, 117.0d0);                                                      {2013/08/12; Pye2010; HOTP}\nNRO2 + HO2 = LNRO2H + HO2 :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2013/08/12; Pye2010; HOTP}\nNRO2 + NO = LNRO2N + NO :                    GCARR_ac(2.60d-12, 350.0d0);                                                      {2013/08/12; Pye2010; HOTP}\n//\n// --- RCOOH chemistry (KRT)\nRCOOH + OH = ETO2 + CO2 + H2O :              1.20d-12;                                                                         {2024/08/20; Travis2024; KRT}\n//\n// ----- STYR/EBZ/TMB chemistry (Bates et al., 2021)\nSTYR + OH = 0.300ZRO2 + 0.700AROMRO2 +\n 0.700HO2 + CH2O + 0.700BALD :               5.8d-11;                                                                          {krt, Bates et al., 2021}\nSTYR + NO3 = AROMRO2 + NO2 + CH2O + BALD :   1.5d-12;                                                                          {krt, Bates et al., 2021}\nSTYR + O3 = 0.500CH2OO + 0.500CH2O +\n 0.620BALD + 0.100BENZ + 0.280BENZO2 +\n 0.180CO + 0.180OH + 0.100HO2 :              1.7d-17;                                                                          {krt, Bates et al., 2021}\nEBZ + OH = 0.813AROMRO2 + 0.250CH2O +\n 0.070ZRO2 + 0.180CSL + 0.400ALD2 +\n 0.400AROMP5 + 0.800AROMP4 + 0.1800HO2 :     7.0d-12;                                                                          {krt, Bates et al., 2021}\nEBZ + NO3 = AROMRO2 + HNO3 + CH2O + BALD :   1.2d-16;                                                                          {krt, Bates et al., 2021}\nTMB + OH = 0.930AROMRO2 + 0.120CH2O + \n 0.050ZRO2 + 0.030CSL + 0.600AROMP5 +\n 0.375AROMP4 + 0.250MGLY + 0.100GLYX +\n 0.500RCOOH + 0.120CO + 0.030HO2 +\n 0.150TLFUONE :                              3.92d-11; {krt, Bates et al., 2021}\nTMB + NO3 = AROMRO2 + HNO3 +\n  0.400AROMP5 + BALD :                       1.4d-15;                                                                          {krt, Bates et al., 2021}\n//\n// ------ Lumped aromatic nitrate ----\nZRO2 + NO = 0.110RNO3 + 0.890BALD +\n  0.890NO2 + HO2 :                           GCARR_ac(2.7d-12,360.0d0);{MCM}\nZRO2 + HO2 = BALD + OH :                     GCARR_ac(1.5d-13,1310.0d0);{MCM}\nRNO3 + OH = BALD + NO2 + HO2 :               7.16d-11;{MCM}\n//\n// --- C2H2 & C2H4 chemistry (per KHB)\nC2H4 + O3 = CH2O + CH2OO :                   GCARR_ac(1.20d-14, -2630.0d0);                                                    {2021/09/22; Kwon2020; KHB,MSL; 2023/04/18; JPL 19-5; KHB}\nC2H4 + OH = ETOO :                           GCJPLPR_abab(1.10d-28, 3.5d+00, 8.4d-12, 1.75d0, 0.5d0);                          {2021/09/22; Kwon2020; KHB,MSL}\nC2H2 + OH = 0.636GLYX + 0.636OH +\n 0.364CO + 0.364HO2 + 0.364HCOOH :           GCJPLPR_abab(5.50d-30, 0.0d0, 8.3d-13, -2.0d0, 0.5d0);                            {2021/09/22; Kwon2020; KHB,MSL}\nETOO + HO2 = ETHP :                          GCARR_ac(1.53d-13, 1300.0d0);                                                     {2021/09/22; Kwon2020; KHB,MSL}\nETOO + NO = 0.995ETO +\n 0.995NO2 + 0.005ETHN :                      GCARR_ac(2.7d-12, 360.0d0);                                                       {2021/09/22; Kwon2020; KHB,MSL}\nETOO + NO3 = ETO + NO2 :                     2.3d-12;                                                                          {2021/09/22; Kwon2020; KHB,MSL}\nETOO + MO2 = 0.6ETO + 0.6HO2 + 0.8CH2O +\n 0.2MOH + 0.2ETHP + 0.2GLYC :                6.00d-13;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\nETO = HO2 + 2.000CH2O :                      GCARR_ac(9.5d+13, -5988.0d0);                                                     {2021/09/22; Kwon2020; KHB,MSL}\nETO + O2 = GLYC + HO2 :                      GCARR_ac(2.5d-14, -300.0d0);                                                      {2021/09/22; Kwon2020; KHB,MSL}\nETHN + OH = GLYC + NO2 :                     8.40d-13;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\nETHP + OH = ETOO :                           GCARR_ac(1.90d-12, 190.0d0);                                                      {2021/09/22; Kwon2020; KHB,MSL}\nETHP + OH = OH + GLYC :                      1.38d-11;                                                                         {2021/09/22; Kwon2020; KHB,MSL}\n//\n// --- Aromatic Chemistry (per KHB)\nBENZ + OH = BRO2 + 0.54PHEN + 0.54HO2 +\n 0.46AROMRO2 + 0.18GLYX +\n 0.2CO +0.55AROMP4 :                         GCARR_ac(2.3d-12, -193.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB}\nTOLU + OH = TRO2 + 0.19CSL + 0.19HO2 +\n 0.81AROMRO2 + 0.06BALD + 0.12GLYX +\n 0.12MGLY + 0.27CO + 0.04MVK + 0.3AROMP5 +\n 0.68AROMP4 :                                GCARR_ac(1.8d-12, 340.0d0);                                                       {2021/09/29; Bates2021b; KHB,MSL}\nXYLE + OH = XRO2 + 0.15CSL + 0.15HO2 +\n 0.85AROMRO2 + 0.06BALD + 0.1GLYX +\n 0.2MGLY + 0.3CO + 0.04MVK + 0.56AROMP5 +\n 0.28AROMP4 + 0.45RCOOH :                    1.7d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + HO2 = OH + HO2 :                   2.91d-13 * EXP( 1300.0d0 / TEMP ) * 0.82d0;                                       {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + NO = NO2 + HO2 :                   GCARR_ac(2.60d-12, 365.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + NO3 = NO2 + HO2 :                  2.30d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + MO2 = CH2O + HO2 + HO2 :           GCARR_ac(1.70d-14, 220.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nAROMRO2 + MCO3 = MO2 + HO2 + CO2 :           GCARR_ac(4.20d-14, 220.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB}\n//-----Lumped aromatic PN------\nTLFUONE + OH = TLFUO2 :                      6.9d-11;\nTLFUO2 + NO = NO2 + AROMCHO + HO2 :          GCARR_abc(2.7d-12,0.0d0,360.0d0);\nTLFUO2 + HO2 = AROMCHO :                     GCARR_abc(2.05d-13,0.0d0,1300.0d0);\nAROMCHO + OH = AROMCO3 :                     7.09E-11;\nAROMCO3 + NO = NO2 + RCO3 + 2CO2 :           GCARR_abc(7.50d-12,0.0d0,290.0d0);\nAROMCO3 + HO2 = 0.15O3 + 0.15RCOOH +\n 0.44CO2 + 0.44OH + 0.44RCO3+ 0.41RP :       GCARR_abc(5.20d-13,0.0d0,980.0d0);\nAROMCO3 + NO2 {+M} = AROMPN :                GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                       {Same as BZPAN}\nAROMPN = AROMCO3 + NO2 :                     GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0;             {Same as BZPAN}\nAROMPN + OH = 2CO + NO2 + MCO3 + CH2O :      1.0d-14;        {MCM for ACCOMEPAN}\n//------\nPHEN + OH = 0.06BENZO + 0.06GLYX +\n 0.18AROMP4 + 0.14AROMRO2 +\n 0.8MCT + 0.8HO2 :                           GCARR_ac(4.70d-13, 1220.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nPHEN + NO3 = 0.258NPHEN + 0.742HNO3 +\n 0.742BENZO :                                3.8d-12;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nCSL + OH = 0.727MCT + 0.727HO2 +\n 0.2AROMRO2 + 0.073BENZO + 0.44AROMP5 :      4.7d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nCSL + NO3 = 0.5NPHEN + 0.2AROMRO2 +\n 0.5HNO3 + 0.3BENZO + 0.44AROMP5 :           1.4d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + OH = 0.3BENZO + 0.7AROMRO2 +\n 1.05AROMP4 :                                2.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + O3 = GLYC + HO2 + OH + AROMP4 :        9.2d-18;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nMCT + NO3 = 0.5NPHEN + 0.5HNO3 +\n 0.3BENZO + 0.2AROMRO2 + 0.3AROMP4 :         9.9d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nBALD + OH = BZCO3 :                          GCARR_ac(5.90d-12, 225.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBALD + NO3 = BZCO3 + HNO3 :                  2.4d-15;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + HO2 = 0.35CO2 + 0.2BENZO2 +\n 0.15O3 + 0.2OH + 0.15BENZP + 0.65BZCO3H :   GCARR_ac(1.10d-11, 340.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + NO = NO2 + CO2 + BENZO2 :            GCARR_ac(7.50d-12, 290.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + NO2 = BZPAN :                        GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0);                       {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3H + OH = BZCO3 :                        4.66d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBZPAN = BZCO3 + NO2 :                        GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0;             {2021/09/29; Bates2021b; KHB,MSL}\nBZPAN + OH = BENZP + CO2 + NO2 :             1.06d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO2 = BENZO + NO3 :                 7.00d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO = BENZO + NO2 :                  GCARR_ac(2.670d-12, 365.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + NO3 = BENZO + NO2 :                 2.30d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO2 + HO2 = BENZP :                       GCARR_ac(2.24d-13, 1300.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nBENZP + OH = BENZO2 :                        3.60d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO + O3 = BENZO2 :                        2.86d-13;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nBENZO + NO2 = NPHEN :                        2.08d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL}\nNPHEN + OH = 0.5R4N1 + 0.9AROMP4 +\n 0.5NO2 +0.15CO :                            3.47d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nNPHEN + NO3 = 0.5HNO3 + NO2 +\n 0.5R4N1 + 0.9AROMP4 + 0.15CO :              2.60d-12;                                                                         {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nBENZO2 + MO2 = BENZO + HO2 + CH2O :          GCARR_ac(2.670d-13, 365.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3 + MO2 = BENZO2 + CO2 + HO2 + CH2O :    GCARR_ac(2.670d-12, 365.0d0);                                                     {2021/09/29; Bates2021b; KHB,MSL}\nAROMP4 + OH = 0.6GLYX + 0.26CO + 0.26HCOOH +\n 0.25OH + 0.33HO2 + 0.33RCO3 + 0.43RCOOH :   5.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB}\nAROMP4 + O3 = 0.5HCOOH + 0.5CO + 0.6GLYX +\n 0.9GLYC + 0.1HO2 + 0.1OH :                  8.0d-16;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP4 = 0.2HO2 + 0.2GLYX + 1.2RCHO :        1.5d-3;                                                                           {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 + OH = 0.6MGLY + 0.15ACTA +\n 0.1HCOOH + 0.25OH + 0.33HO2 +\n 0.33RCO3 + 0.25CO + 0.52RCOOH :             5.0d-11;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 + O3 = 0.6MGLY + 0.3ACTA + 0.2HCOOH +\n 0.5CO + 0.95GLYC + 0.1HO2 + 0.1OH :         8.0d-16;                                                                          {2021/09/29; Bates2021b; KHB,MSL}\nAROMP5 = 0.2HO2 + 0.2ALK4O2 +\n 0.2MGLY + 1.15RCHO + 0.05CO :               1.5d-3;                                                                           {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB}\n//\n// KHB -- \"we still need to include the dummy species for aromatic oxidation\n//         to make the complex SOA code work. Hopefully this will be changed\n//         very soon when Jared Brewer updates the aromatic SOA, but I think it's\n//         still necessary, in which case, we need to add the following reactions too.\n//         (If I'm wrong, we can delete XRO2, TRO2, BRO2, LXRO2N, LXRO2H,\n//         LTRO2N, LTRO2H, LBRO2N, and LBRO2H from the species list, delete\n//         XRO2, TRO2, and BRO2 as products from the BENZ + OH, TOLU + OH,\n//         and XYLE + OH reactions above, and not include the following reactions)\"\n//\nBRO2 + HO2 = HO2 + LBRO2H :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nBRO2 + NO  = NO + LBRO2N  :                  GCARR_ac(2.60d-12, 350.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nTRO2 + HO2 = HO2 + LTRO2H :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nTRO2 + NO  = NO + LTRO2N  :                  GCARR_ac(2.60d-12, 350.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nXRO2 + HO2 = HO2 + LXRO2H :                  GCARR_ac(1.40d-12, 700.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nXRO2 + NO  = NO + LXRO2N  :                  GCARR_ac(2.60d-12, 350.0d0);                                                      {2021/09/29; Bates2021b; KHB,MSL}\nMO2  + NO3 = NO2 + CH2O + HO2 :              1.20d-12;                                                                         {2022/10/18: IUPAC ROO_19; KHB,BMY}\nFURA + OH = BUTDI :                          GCARR_ac(1.32d-11, 334.0d0);                                                      {2023/02/07; Carter2022; TSC}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Heterogeneous chemistry reactions                               %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\nHO2 = H2O :                    HO2uptk1stOrd( State_Het );                                                  {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nNO2 = 0.500HNO3 + 0.500HNO2 :  NO2uptk1stOrdAndCloud( State_Het );\nNO3 = HNO3 :                   NO3uptk1stOrdAndCloud( State_Het );\nNO3 = NIT :                    NO3hypsisClonSALA( State_Het );                                              {2018/03/16; XW}\nNO3 = NITs :                   NO3hypsisClonSALC( State_Het );                                              {2018/03/16; XW}\nN2O5 + H2O = 2.000HNO3 :       N2O5uptkByH2O( State_Het );\nN2O5 + HCl = ClNO2 + HNO3 :    N2O5uptkByStratHCl( State_Het );                                             {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nN2O5 = 2.000HNO3 :             N2O5uptkByCloud( State_Het );                                                {2018/10/17; Cloud uptake, CDH}\nN2O5 + SALACL = ClNO2 + HNO3 : N2O5uptkBySALACl( State_Het );                                               {2018/01/19; Sherwen2017;TS,JAS,SDE,XW}\nN2O5 + SALCCL = ClNO2 + HNO3 : N2O5uptkBySALCCl( State_Het );                                               {2018/01/19; Sherwen2017;TS,JAS,SDE,XW}\nOH + SALACL = 0.500Cl2 :       OHuptkBySALACl( State_Het );                                                 {2018/03/12; XW}\nOH + SALCCL = 0.500Cl2 :       OHuptkBySALCCl( State_Het );                                                 {2018/03/12; XW}\nBrNO3 + H2O = HOBr + HNO3 :    BrNO3uptkByH2O( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nBrNO3 + HCl = BrCl + HNO3 :    BrNO3uptkByHCl( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + H2O = HOCl + HNO3 :    ClNO3uptkByH2O( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + HCl = Cl2 + HNO3 :     ClNO3uptkByHCl( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + HBr = BrCl + HNO3 :    ClNO3uptkByHBr( State_Het );                                                 {2014/02/03; Eastham2014; SDE}\nClNO3 + BrSALA = BrCl + HNO3 : ClNO3uptkByBrSALA( State_Het );                                              {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nClNO3 + BrSALC = BrCl + HNO3 : ClNO3uptkByBrSALC( State_Het );                                              {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nClNO3 + SALACL = Cl2 + HNO3 :  ClNO3uptkBySALACL( State_Het );                                              {2018/01/22; XW}\nClNO3 + SALCCL = Cl2 + HNO3 :  ClNO3uptkBySALCCL( State_Het );                                              {2018/01/22; XW}\nClNO2 + SALACL = Cl2 + HNO2 :  ClNO2uptkBySALACL( State_Het );                                              {2018/01/22; XW}\nClNO2 + SALCCL = Cl2 + HNO2 :  ClNO2uptkBySALCCL( State_Het );                                              {2018/01/22; XW}\nClNO2 + HCl = Cl2 + HNO2 :     ClNO2uptkByHCl( State_Het );                                                 {2018/01/22; XW}\nClNO2 + BrSALA = BrCl + HNO2 : ClNO2uptkByBrSALA( State_Het );                                              {2018/01/22; XW}\nClNO2 + BrSALC = BrCl + HNO2 : ClNO2uptkByBrSALC( State_Het );                                              {2018/01/22; XW}\nClNO2 + HBr = BrCl + HNO2 :    ClNO2uptkByHBr( State_Het );                                                 {2018/01/22; XW}\nHOCl + HCl = Cl2 + H2O :       HOClUptkByHCl( State_Het );                                                  {2014/02/03; Eastham2014; SDE}\nHOCl + HBr = BrCl + H2O :      HOClUptkByHBr( State_Het );                                                  {2014/02/03; Eastham2014; SDE}\nHOCl + SALACL = Cl2 + H2O :    HOClUptkBySALACL( State_Het );                                               {2018/01/22; XW}\nHOCl + SALCCL = Cl2 + H2O :    HOClUptkBySALCCL( State_Het );                                               {2018/01/22; XW}\nHOCl + SO2 = SO4 + HCl :       HOClUptkByHSO3m( State_Het ) + HOClUptkBySO3mm( State_Het ) + SRHOCl;        {2023/01/30; Add SRHOCL, BA; 2018/11/08; XW; June 6, 2021, MSL}\nHOBr + HBr = Br2 + H2O :       HOBrUptkByHBr( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOBr + HCl = BrCl + H2O :      HOBrUptkByHCl( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOBr + SALACL = BrCl + H2O :   HOBrUptkBySALACL( State_Het );                                               {2018/01/22; Sherwen2017;TS,JAS,SDE;XW}\nHOBr + SALCCL = BrCl + H2O :   HOBrUptkBySALCCL( State_Het );                                               {2018/01/22; Sherwen2017;TS,JAS,SDE,XW}\nHOBr + BrSALA = Br2 :          HOBrUptkByBrSALA( State_Het );                                               {2017/09/22; Sherwen2017;TS,JAS,SDE}\nHOBr + BrSALC = Br2 :          HOBrUptkByBrSALC( State_Het );                                               {2017/09/22; Sherwen2017;TS,JAS,SDE}\nHOBr + SO2 = SO4 + HBr :       HOBrUptkByHSO3m( State_Het ) + HOBrUptkBySO3mm( State_Het ) + SRHOBr;        {2023/01/30; Add SRHOBrL, BA; 2017/11/15; Chen2017; QJC; June 6, 2021, MSL}\nO3 + HBr = HOBr :              O3uptkByHBr( State_Het );                                                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nO3 + BrSALA = HOBr :           O3uptkByBrSALA( State_Het );                                                 {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nO3 + BrSALC = HOBr :           O3uptkByBrSALC( State_Het );                                                 {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHBr = BrSALA :                 HBrUptkBySALA( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHBr = BrSALC :                 HBrUptkBySALC( State_Het );                                                  {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = AERI :                    IuptkBySulf1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = ISALA :                   IuptkBySALA1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHI = ISALC :                   IuptkBySALC1stOrd( SR_MW(ind_HI), 0.10_dp, State_Het );                      {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI = ISALA :                  IuptkByAlkSALA1stOrd( SR_MW(ind_HOI), 0.01_dp, State_Het );                  {2023/01/24; Restored deleted rxn:BA}\nHOI = ISALC :                  IuptkByAlkSALC1stOrd( SR_MW(ind_HOI), 0.01_dp, State_Het );                  {2022/12/02; Restored deleted rxn:BA}\nI2O2 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O2), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O3), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000AERI :             IuptkBySulf1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000ISALA :            IuptkBySALA1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 = 2.000ISALC :            IuptkBySALC1stOrd( SR_MW(ind_I2O4), 0.02_dp, State_Het );                    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO = ISALA + HNO2 :          IuptkByAlkSALA1stOrd( SR_MW(ind_IONO), 0.02_dp, State_Het );                 {2022/12/02; Restored deleted rxn:BA}\nIONO = ISALC + HNO2 :          IuptkByAlkSALC1stOrd( SR_MW(ind_IONO), 0.02_dp, State_Het );                 {2022/12/02; Restored deleted rxn:BA}\nIONO2 = ISALA + HNO3 :         IuptkByAlkSALA1stOrd( SR_MW(ind_IONO2), 0.01_dp, State_Het );                {2022/12/02; Restored deleted rxn:BA}\nIONO2 = ISALC + HNO3 :         IuptkByAlkSALC1stOrd( SR_MW(ind_IONO2), 0.01_dp, State_Het );                {2022/12/02; Restored deleted rxn:BA}\nIONO2 + H2O = HOI + HNO3 :     IONO2uptkByH2O( State_Het );                                                 {2021/09/16 XW, TSherwen}\nIONO + BrSALA = IBr + HNO2 :   IbrkdnByAcidBrSALA( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + BrSALC = IBr + HNO2 :   IbrkdnByAcidBrSALC( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + SALACL = ICl + HNO2 :   IbrkdnByAcidSALACl( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO + SALCCL = ICl + HNO2 :   IbrkdnByAcidSALCCl( SR_MW(ind_IONO), C(ind_IONO), 0.02_dp, State_Het );      {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + BrSALA = IBr + HNO3 :  IbrkdnByAcidBrSALA( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + BrSALC = IBr + HNO3 :  IbrkdnByAcidBrSALC( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + SALACL = ICl + HNO3 :  IbrkdnByAcidSALACl( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nIONO2 + SALCCL = ICl + HNO3 :  IbrkdnByAcidSALCCl( SR_MW(ind_IONO2), C(ind_IONO2), 0.01_dp, State_Het );    {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + BrSALA = IBr :           IbrkdnByAcidBrSALA( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + BrSALC = IBr :           IbrkdnByAcidBrSALC( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + SALACL = ICl :           IbrkdnByAcidSALACl( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nHOI + SALCCL = ICl :           IbrkdnByAcidSALCCl( SR_MW(ind_HOI), C(ind_HOI), 0.01_dp, State_Het );        {2017/09/22; Sherwen2017;TS,JAS,SDE,XW}\nGLYX = SOAGX :                 GLYXuptk1stOrd( SR_MW(ind_GLYX), State_Het);                                 {2017/06/15; Marais2016, EAM}\nMGLY = 1.500SOAGX :            MGLYuptk1stOrd( SR_MW(ind_MGLY), State_Het);                                 {2017/06/15; Marais2016, EAM; 2023/04/18; Bates2023; KHB}\nIEPOXA = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXA), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nIEPOXB = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXB), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nIEPOXD = SOAIE :               IEPOXuptk1stOrd( SR_MW(ind_IEPOXD), .FALSE., State_Het );                    {2017/06/15; Marais2016, EAM}\nLVOC = LVOCOA :                VOCuptk1stOrd( SR_MW(ind_LVOC), 1.0_dp, State_Het );                         {2017/06/15; Marais2016, EAM}\nMVKN = IONITA :                VOCuptk1stOrd( SR_MW(ind_MVKN), 5.0E-3_dp, State_Het );                      {2017/06/15; Marais2016, EAM}\nR4N2 = IONITA :                VOCuptk1stOrd( SR_MW(ind_R4N2), 5.0E-3_dp, State_Het );                      {2017/06/15; Marais2016, EAM}\nMONITS = MONITA :              VOCuptk1stOrd( SR_MW(ind_MONITS), 1.0E-2_dp, State_Het );                    {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU = MONITA :              VOCuptk1stOrd( SR_MW(ind_MONITU), 1.0E-2_dp, State_Het );                    {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT = MONITA :               VOCuptk1stOrd( SR_MW(ind_HONIT), 1.0E-2_dp, State_Het );                     {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS}\nPYAC = 1.500SOAGX :            MGLYuptk1stOrd( SR_MW(ind_PYAC), State_Het );                                {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nHMML = 0.800SOAIE :            IEPOXuptk1stOrd( SR_MW(ind_HMML), .TRUE., State_Het);                        {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIHN1 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN1), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN2 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN2), 5.0E-2_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN3 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN3), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIHN4 = IONITA :                VOCuptk1stOrd( SR_MW(ind_IHN4), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nICHE = SOAIE :                 IEPOXuptk1stOrd( SR_MW(ind_ICHE), .FALSE., State_Het );                      {2019/11/06; Bates2019; KHB}\nINPD = IONITA :                VOCuptk1stOrd( SR_MW(ind_INPD), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nINPB = IONITA :                VOCuptk1stOrd( SR_MW(ind_INPB), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nIDN = IONITA :                 VOCuptk1stOrd( SR_MW(ind_IDN), 5.0E-3_dp, State_Het );                       {2019/11/06; Bates2019; KHB}\nITCN = IONITA :                VOCuptk1stOrd( SR_MW(ind_ITCN), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nITHN = IONITA :                VOCuptk1stOrd( SR_MW(ind_ITHN), 5.0E-3_dp, State_Het );                      {2019/11/06; Bates2019; KHB}\nMCRHNB = IONITA :              VOCuptk1stOrd( SR_MW(ind_MCRHNB), 5.0E-3_dp, State_Het );                    {2019/11/06; Bates2019; KHB}\nMCRHN = IONITA :               VOCuptk1stOrd( SR_MW(ind_MCRHN), 5.0E-3_dp, State_Het );                     {2019/11/06; Bates2019; KHB}\nNPHEN = AONITA :               VOCuptk1stOrd( SR_MW(ind_NPHEN), 1.0E-2_dp, State_Het );                     {2021/09/29; Bates2021b; KHB,MSL}\n//\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n// %%%%% Photolysis reactions                                            %%%%%\n// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n//\nO3 + hv = O + O2 :                           PHOTOL(2);      {2014/02/03; Eastham2014; SDE}\nO3 + hv = O1D + O2 :                         PHOTOL(3);      {2014/02/03; Eastham2014; SDE}\nO2 + hv = 2.000O :                           PHOTOL(1);      {2014/02/03; Eastham2014; SDE}\nNO2 + hv = NO + O :                          PHOTOL(11);     {2014/02/03; Eastham2014; SDE}\nH2O2 + hv = OH + OH :                        PHOTOL(9);\nMP + hv = CH2O + HO2 + OH :                  PHOTOL(10);\nCH2O + hv = HO2 + H + CO :                   PHOTOL(7);      {2014/02/03; Eastham2014; SDE}\nCH2O + hv = H2 + CO :                        PHOTOL(8);\nHNO3 + hv = OH + NO2 :                       PHOTOL(16);\nHNO2 + hv = OH + NO :                        PHOTOL(15);\nHNO4 + hv = OH + NO3 :                       PHOTOL(17);\nHNO4 + hv = HO2 + NO2 :                      PHOTOL(18);\nNO3 + hv = NO2 + O :                         PHOTOL(12);     {2014/02/03; Eastham2014; SDE}\nNO3 + hv = NO + O2 :                         PHOTOL(13);\nN2O5 + hv = NO3 + NO2 :                      PHOTOL(14);\nALD2 + hv = 0.880MO2 + HO2 + 0.880CO +\n 0.120MCO3 :                                 PHOTOL(61);     {2014/12/19; FAST-JX v7.0 fix; JMAO}\nALD2 + hv = CH4 + CO :                       PHOTOL(62);\nPAN + hv = 0.700MCO3 + 0.700NO2 +\n 0.300MO2 + 0.300NO3 + 0.300CO2 :            PHOTOL(59);     {2014/05/23; Eastham2014; JMAO,SDE; 2023/04/18; Bates2023; KHB}\nAPAN + hv = ACO3 + NO2 :                     PHOTOL(59);     {2014/05/23; Eastham2014; JMAO,SDE}\nACR + hv = 0.700CO + 0.300HO2 + \n 0.300CH2O + 0.400C2H4 + 0.300ACO3 :         PHOTOL(66);\nAROMCHO + hv = HO2 + CO + MCO3 + CH2O :      PHOTOL(70);     {2019/05/10; Fisher2018; JAF}\nRCHO + hv = 0.490OTHRO2 + HO2 + CO +\n 0.070A3O2 + 0.270B3O2 :                     PHOTOL(70);     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nACET + hv = MCO3 + MO2 :                     PHOTOL(76);\nACET + hv = 2.000MO2 + CO :                  PHOTOL(77);\nMEK + hv = 0.850MCO3 + 0.415OTHRO2 +\n 0.150MO2 + 0.150RCO3 + 0.060A3O2 +\n 0.230B3O2 :                                 PHOTOL(69);     {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB}\nGLYC + hv = 0.900CH2O + 1.730HO2 + CO +\n 0.070OH + 0.100MOH :                        PHOTOL(68);     {2014/05/23; Eastham2014; JMAO,SDE}\nGLYX + hv = 2.000HO2 + 2.000CO :             PHOTOL(72);\nGLYX + hv = H2 + 2.000CO :                   PHOTOL(73);\nGLYX + hv = CH2O + CO :                      PHOTOL(74);\nMGLY + hv = MCO3 + CO + HO2 :                PHOTOL(71);\nMVK + hv = PRPE + CO :                       PHOTOL(63);\nMVK + hv = MCO3 + CH2O + CO + HO2 :          PHOTOL(64);\nMVK + hv = MO2 + RCO3 :                      PHOTOL(65);     {2014/05/23; Eastham2014; JMAO,SDE}\nMACR + hv = CO + HO2 + CH2O + MCO3 :         PHOTOL(66);     {2014/05/23; Eastham2014; JMAO,SDE}\nHAC + hv = MCO3 + CH2O + HO2 :               PHOTOL(75);\nPRPN + hv = OH + HO2 + RCHO + NO2 :          PHOTOL(79);\nETP + hv = OH + HO2 + ALD2 :                 PHOTOL(80);\nRA3P + hv = OH + HO2 + RCHO :                PHOTOL(81);\nRB3P + hv = OH + HO2 + ACET :                PHOTOL(82);\nR4P + hv = OH + HO2 + 1.500RCHO :            PHOTOL(83);     {2023/04/18; Bates2023; KHB}\nR7P + hv = OH + HO2 + RCHO :                 PHOTOL(83);\nALK4P + hv = OH + HO2 + 1.500RCHO :          PHOTOL(83);     {2023/05/14; Brewer2023; JFB}\nPP + hv = OH + HO2 + ALD2 + CH2O :           PHOTOL(84);\nRP + hv = OH + HO2 + ALD2 + MO2 :            PHOTOL(85);     {2023/04/18; Bates2023; KHB}\nR4N2 + hv = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               PHOTOL(98);     {2023/04/18; Bates2023; KHB}\nR7N2 + hv = NO2 + 0.348ALD2 + 1.558RCHO +\n 0.326MCO3 + 0.326RCO3 + 0.326HO2 :          PHOTOL(98);\nRNO3 + hv = BALD + NO2 + HO2 + H2O :         PHOTOL(98);\nALK4N2 + hv = NO2 + 0.340ACET + 0.190MEK +\n 0.190MO2 + 0.270HO2 + 0.340ALD2 +\n 0.150RCHO + 0.050A3O2 + 0.190B3O2 +\n 0.340OTHRO2 :                               PHOTOL(98);     {2023/05/14; Brewer2023; JFB}\nMAP + hv = OH + MO2 + CO2 :                  PHOTOL(99);     {2023/04/18; Bates2023; KHB}\nBr2 + hv = 2.000Br :                         PHOTOL(23);     {2012/06/07; Parrella2012; JPP}\nBrO + hv = Br + O :                          PHOTOL(28);     {2014/02/03; Eastham2014; SDE}\nHOBr + hv = Br + OH :                        PHOTOL(32);     {2012/06/07; Parrella2012; JPP}\nBrNO3 + hv = Br + NO3 :                      PHOTOL(29);     {2012/06/07; Parrella2012; JPP}\nBrNO3 + hv = BrO + NO2 :                     PHOTOL(30);     {2012/06/07; Parrella2012; JPP}\nBrNO2 + hv = Br + NO2 :                      PHOTOL(31);     {2012/06/07; Parrella2012; JPP}\nCHBr3 + hv = 3.000Br :                       PHOTOL(56);     {2012/06/07; Parrella2012; JPP}\nCH2Br2 + hv = 2.000Br :                      PHOTOL(55);     {2014/02/03; Eastham2014; SDE}\nCH3Br + hv = MO2 + Br :                      PHOTOL(50);     {2014/02/03; Eastham2014; SDE}\nCH3Cl + hv = MO2 + Cl :                      PHOTOL(43);     {2014/02/03; Eastham2014; SDE}\nCH2Cl2 + hv = 2.000Cl :                      PHOTOL(45);     {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nBrCl + hv = Br + Cl :                        PHOTOL(33);     {2014/02/03; Eastham2014; SDE}\nCl2 + hv = 2.000Cl :                         PHOTOL(22);     {2014/02/03; Eastham2014; SDE}\nClO + hv = Cl + O :                          PHOTOL(27);     {2014/02/03; Eastham2014; SDE}\nOClO + hv = ClO + O :                        PHOTOL(25);     {2014/02/03; Eastham2014; SDE}\nCl2O2 + hv = Cl + ClOO :                     PHOTOL(26);     {2014/02/03; Eastham2014; SDE}\nClNO2 + hv = Cl + NO2 :                      PHOTOL(21);     {2014/02/03; Eastham2014; SDE}\nClNO3 + hv = Cl + NO3 :                      PHOTOL(19);     {2014/02/03; Eastham2014; SDE}\nClNO3 + hv = ClO + NO2 :                     PHOTOL(20);     {2014/02/03; Eastham2014; SDE}\nHOCl + hv = Cl + OH :                        PHOTOL(24);     {2014/02/03; Eastham2014; SDE}\nCH3CCl3 + hv = 3.000Cl :                     PHOTOL(44);     {2014/02/03; Eastham2014; SDE}\nCCl4 + hv = 4.000Cl :                        PHOTOL(42);     {2014/02/03; Eastham2014; SDE}\nCFC11 + hv = 3.000Cl :                       PHOTOL(37);     {2014/02/03; Eastham2014; SDE}\nCFC12 + hv = 2.000Cl :                       PHOTOL(38);     {2014/02/03; Eastham2014; SDE}\nCFC113 + hv = 3.000Cl :                      PHOTOL(39);     {2014/02/03; Eastham2014; SDE}\nCFC114 + hv = 2.000Cl :                      PHOTOL(40);     {2014/02/03; Eastham2014; SDE}\nCFC115 + hv = Cl :                           PHOTOL(41);     {2014/02/03; Eastham2014; SDE}\nHCFC123 + hv = 2.000Cl :                     PHOTOL(47);     {2014/02/03; Eastham2014; SDE}\nHCFC141b + hv = 2.000Cl :                    PHOTOL(48);     {2014/02/03; Eastham2014; SDE}\nHCFC142b + hv = Cl :                         PHOTOL(49);     {2014/02/03; Eastham2014; SDE}\nHCFC22 + hv = Cl :                           PHOTOL(46);     {2014/02/03; Eastham2014; SDE}\nH1301 + hv = Br :                            PHOTOL(53);     {2014/02/03; Eastham2014; SDE}\nH1211 + hv = Cl + Br :                       PHOTOL(51);     {2014/02/03; Eastham2014; SDE}\nH2402 + hv = 2.000Br :                       PHOTOL(54);     {2014/02/03; Eastham2014; SDE}\nClOO + hv = Cl + O2 :                        PHOTOL(101);    {2014/02/03; Eastham2014; SDE}\nI2 + hv = 2.000I :                           PHOTOL(114);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nHOI + hv = I + OH :                          PHOTOL(115);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIO + hv = I + O :                            PHOTOL(116);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nOIO + hv = I + O2 :                          PHOTOL(117);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nINO + hv = I + NO :                          PHOTOL(118);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO + hv = I + NO2 :                        PHOTOL(119);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIONO2 + hv = I + NO3 :                       PHOTOL(120);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O2 + hv = I + OIO :                        PHOTOL(121);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH3I + hv = I :                              PHOTOL(122);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2I2 + hv = 2.000I :                        PHOTOL(123);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2ICl + hv = I + Cl :                       PHOTOL(124);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nCH2IBr + hv = I + Br :                       PHOTOL(125);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O4 + hv = 2.000OIO :                       PHOTOL(126);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nI2O3 + hv = OIO + IO :                       PHOTOL(127);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nIBr + hv = I + Br :                          PHOTOL(128);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nICl + hv = I + Cl :                          PHOTOL(129);    {2017/09/22; Sherwen2016b;TS,JAS,SDE}\nMPN + hv = CH2O + NO3 + HO2 :                PHOTOL(103);    {2012/02/12; Browne2011; ECB}\nMPN + hv = MO2 + NO2 :                       PHOTOL(104);    {2012/02/12; Browne2011; ECB}\nATOOH + hv = OH + CH2O + MCO3 :              PHOTOL(97);     {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE}\nN2O + hv = N2 + O1D :                        PHOTOL(36);     {2014/02/03; Eastham2014; SDE}\nOCS + hv = SO2 + CO :                        PHOTOL(34);     {2014/02/03; Eastham2014; SDE}\nSO4 + hv = SO2 + 2.000OH :                   PHOTOL(100);    {2014/02/03; Eastham2014; SDE}\nNO + hv = O + N :                            PHOTOL(6);      {2014/02/03; Eastham2014; SDE}\nPIP + hv = RCHO + OH + HO2 :                 PHOTOL(105);    {2017/03/23; Fischer2014; EVF}\nETHLN + hv = NO2 + CH2O + CO + HO2 :         PHOTOL(107);    {2017/06/15; Marais2016; EAM}\nMONITS + hv = MEK + NO2 :                    PHOTOL(111);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nMONITU + hv = RCHO + NO2 :                   PHOTOL(112);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nHONIT + hv = HAC + NO2 :                     PHOTOL(113);    {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS}\nNITs + hv = HNO2 :                           PHOTOL(130);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNITs + hv = NO2 :                            PHOTOL(131);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNIT + hv = HNO2 :                            PHOTOL(132);    {2018/07/19; Kasibhatla2018; PK, TMS}\nNIT + hv = NO2 :                             PHOTOL(133);    {2018/07/19; Kasibhatla2018; PK, TMS}\nMENO3 + hv = NO2 + HO2 + CH2O :              PHOTOL(134);    {2019/07/11; Fisher2018; JAF}\nETNO3 + hv = NO2 + HO2 + ALD2 :              PHOTOL(135);    {2019/07/11; Fisher2018; JAF}\nIPRNO3 + hv = NO2 + HO2 + ACET :             PHOTOL(136);    {2019/07/11; Fisher2018; JAF}\nNPRNO3 + hv = NO2 + HO2 + RCHO :             PHOTOL(137);    {2019/07/11; Fisher2018; JAF}\nHMHP + hv = 2OH + CH2O :                     PHOTOL(86);     {2019/11/06; Bates2019; KHB}\nHPETHNL + hv = OH + CO + HO2 + CH2O :        PHOTOL(87);     {2019/11/06; Bates2019; KHB}\nPYAC + hv = MCO3 + CO2 + HO2 :               PHOTOL(88);     {2019/11/06; Bates2019; KHB}\nPROPNN + hv = NO2 + CH2O + MCO3 :            PHOTOL(89);     {2019/11/06; Bates2019; KHB}\nMVKHC + hv = CO + HO2 + CH2O + MCO3 :        PHOTOL(90);     {2019/11/06; Bates2019; KHB}\nMVKHCB + hv = 0.5GLYX + 1.5HO2 + 0.5MCO3 +\n 0.5CO + 0.5MGLY :                           PHOTOL(91);     {2019/11/06; Bates2019; KHB}\nMVKHP + hv = 0.53MCO3 + 0.53GLYC + OH +\n 0.47HO2 + 0.47CH2O + 0.47MGLY :             PHOTOL(92);     {2019/11/06; Bates2019; KHB}\nMVKPC + hv = OH + 0.571CO + 0.571MGLY +\n 0.571HO2 + 0.429GLYX + 0.429MCO3 :          PHOTOL(93);     {2019/11/06; Bates2019; KHB}\nMCRENOL + hv = 0.875CO + 0.75PYAC +\n 1.75OH + 0.125MGLY + 0.125HO2 +\n 0.125MCO3 + 0.125GLYX :                     PHOTOL(94);     {2019/11/06; Bates2019; KHB}\nMCRHP + hv = OH + 0.77CO + HO2 + 0.77HAC +\n 0.23MGLY + 0.23CH2O :                       PHOTOL(95);     {2019/11/06; Bates2019; KHB}\nMACR1OOH + hv = 0.75OH + 1.238CO2 +\n 0.488MO2 + 0.75CH2O + 0.262MCO3 +\n 0.25MACR1OOH :                              PHOTOL(96);     {2019/11/06; Bates2019; KHB}\nMVKN + hv = 0.290HO2 + 0.010OH +\n 0.700NO2 + 1.010MCO3 + 0.690GLYC +\n 0.300ETHLN :                                PHOTOL(108);    {2019/11/06; Bates2019; KHB}\nMCRHN + hv = HAC + CO + HO2 + NO2 :          PHOTOL(109);    {2019/11/06; Bates2019; KHB}\nMCRHNB + hv = PROPNN + OH + CO + HO2 :       PHOTOL(110);    {2019/11/06; Bates2019; KHB}\nRIPA + hv = MVK + CH2O + HO2 + OH :          PHOTOL(138);    {2019/11/06; Bates2019; KHB}\nRIPB + hv = MACR + CH2O + HO2 + OH :         PHOTOL(139);    {2019/11/06; Bates2019; KHB}\nRIPC + hv = OH + HO2 + HC5A :                PHOTOL(140);    {2019/11/06; Bates2019; KHB}\nRIPD + hv = OH + HO2 + HC5A :                PHOTOL(141);    {2019/11/06; Bates2019; KHB}\nHPALD1 + hv = 0.888CO + 1.662OH +\n 0.112HO2 + 0.112IDC + 0.112MVKPC +\n 0.552MCRENOL + 0.224C4HVP1 :                PHOTOL(142);    {2019/11/06; Bates2019; KHB}\nHPALD2 + hv = 0.818CO + 1.637OH +\n 0.182HO2 + 0.182IDC + 0.182MVKPC +\n 0.454MCRENOL + 0.182C4HVP2 :                PHOTOL(143);    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nHPALD3 + hv = CO + OH + HO2 + MVK :          PHOTOL(144);    {2019/11/06; Bates2019; KHB}\nHPALD4 + hv = CO + OH + HO2 + MACR :         PHOTOL(145);    {2019/11/06; Bates2019; KHB}\nIHN1 + hv = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MVKHP + 0.55CO + 0.55OH :               PHOTOL(146);    {2019/11/06; Bates2019; KHB}\nIHN2 + hv = NO2 + MVK + HO2 + CH2O :         PHOTOL(147);    {2019/11/06; Bates2019; KHB}\nIHN3 + hv = NO2 + MACR + HO2 + CH2O :        PHOTOL(148);    {2019/11/06; Bates2019; KHB}\nIHN4 + hv = NO2 + 0.45HC5A + 0.45HO2 +\n 0.55MCRHP + 0.55CO + 0.55OH :               PHOTOL(149);    {2019/11/06; Bates2019; KHB}\nINPB + hv = NO2 + CH2O + 0.097MACR +\n 0.903MVK + 0.67OH + 0.33HO2 :               PHOTOL(150);    {2019/11/06; Bates2019; KHB}\nINPD + hv = OH + 0.159HO2 + 0.159ICN +\n 0.841INA :                                  PHOTOL(151);    {2019/11/06; Bates2019; KHB}\nINPD + hv = NO2 + 0.841IHOO1 + 0.159IHOO4 :  PHOTOL(152);    {2019/11/06; Bates2019; KHB}\nICN + hv = NO2 + 0.839CO + 0.645OH +\n 0.161HO2 + 0.161IDC + 0.162MVKPC +\n 0.481MCRENOL + 0.128C4HVP2 + 0.068C4HVP1 :  PHOTOL(106);    {2019/11/06; Bates2019; KHB}\nIDN + hv = 1.555NO2 + 0.5GLYC + 0.5HAC +\n 0.05MVK + 0.005MACR + 0.055CH2O +\n 0.222INA + 0.223ICN + 0.228HO2 :            PHOTOL(78);     {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nICPDH + hv = CO + 1.5HO2 + 0.5OH +\n 0.5MCRHP + 0.35MVKDH + 0.15MCRDH :          PHOTOL(153);    {2019/11/06; Bates2019; KHB}\nICPDH + hv = OH + HO2 + 0.163CO +\n 0.133CH2O + 0.133MVKHCB + 0.586HAC +\n 0.586GLYX + 0.118GLYC + 0.118MGLY +\n 0.163MCRDH :                                PHOTOL(154);    {2019/11/06; Bates2019; KHB; 2023/04/18; Bates2023; KHB}\nIDHDP + hv = 1.25OH + 0.25GLYC + 0.25HAC +\n 0.75ICPDH + 0.75HO2 :                       PHOTOL(155);    {2019/11/06; Bates2019; KHB}\nIDHPE + hv = OH + HO2 + 0.429MGLY +\n 0.429GLYC + 0.571GLYX + 0.571HAC :          PHOTOL(156);    {2019/11/06; Bates2019; KHB}\nIDCHP + hv = 0.546OH + CO + 1.454HO2 +\n 0.391MVKHC + 0.155MVKHCB + 0.454MVKPC :     PHOTOL(157);    {2019/11/06; Bates2019; KHB}\nITHN + hv = OH + 0.7HO2 + 0.55CH2O +\n 0.5MCRHN + 0.3GLYC + 0.45HAC + 0.3NO2 +\n 0.15ETHLN + 0.05MVKN :                      PHOTOL(158);    {2019/11/06; Bates2019; KHB}\nITHN + hv = NO2 + 0.8HAC + 0.7HO2 +\n 0.5HPETHNL + 0.35GLYC + 0.15CH2O +\n 0.15MCRHP + 0.05ATOOH + 0.3OH :             PHOTOL(159);    {2019/11/06; Bates2019; KHB}\nITCN + hv = MGLY + OH + NO2 + GLYC :         PHOTOL(160);    {2019/11/06; Bates2019; KHB}\nITCN + hv = 0.5MVKHP + 0.5MCRHP + CO +\n NO2 + HO2 :                                 PHOTOL(161);    {2019/11/06; Bates2019; KHB}\nETHP + hv = ETO + OH :                       PHOTOL(162);    {2021/09/22; Bates2021a; KHB,MSL}\nBALD + hv = BENZO2 + CO + HO2 :              PHOTOL(163);    {2021/09/29; Bates2021b; KHB,MSL}\nBZCO3H + hv = BENZO2 + OH + CO2 :            PHOTOL(164);    {2021/09/29; Bates2021b; KHB,MSL}\nBENZP + hv = BENZO :                         PHOTOL(165);    {2021/09/29; Bates2021b; KHB,MSL}\nNPHEN + hv = HNO2 + CO +\n CO2 + AROMP4 + HO2 :                        PHOTOL(166);    {2021/09/29; Bates2021b; KHB,MSL}\nPPN + hv = 0.700RCO3 + 0.700NO2 +\n 0.300NO3 :                                  PHOTOL(167);    {2024/07/11; Horner2024, BH}\nAPINP + hv = PINAL + OH + HO2 :              PHOTOL(168);    {2024/08/20; Travis2024; KRT}\nPINAL + hv = CO + HO2 + C96O2 :              PHOTOL(169);    {2024/08/20; Travis2024; KRT}\nPINO3H + hv = OH + CO2 + C96O2 :             PHOTOL(170);    {2024/08/20; Travis2024; KRT}\nPINONIC + hv = OH + CO2 + C96O2 :            PHOTOL(171);    {2024/08/20; Travis2024; KRT}\nC96O2H + hv = OH + AROMRO2 + ACET +\n CH2O + RCO3 + 0.5MEK :                      PHOTOL(172);    {2024/08/20; Travis2024; KRT}\nBPINP + hv = OH + CH2O + HO2 + BPINO :       PHOTOL(173);    {2024/08/20; Travis2024; KRT}\nBPINOOH + hv = OH + HO2 + 0.27LIMO3 +\n 0.6ACET + 0.6RCHO + 0.6R4O2 :               PHOTOL(174);    {2024/08/20; Travis2024; KRT} \nLIMO3H + hv = OH + CO2 + MCO3 + RCHO +\n 0.4CH2O + 0.8R4O2 :                         PHOTOL(175);    {2024/08/20; Travis2024; KRT}\nLIMO2H + hv = OH + CO2 + MCO3 + RCHO +\n 0.4CH2O + 0.8R4O2 :                         PHOTOL(176);    {2024/08/20; Travis2024; KRT}\nPIP + hv = OH + HO2 + 0.450MVK + 0.45ACET +\n 0.100CH2O + 0.675MYRCO :                    PHOTOL(105);    {2024/08/20; Travis2024; KRT} \nLIMAL + hv = CO + HO2 + 0.900LIMO3 :         PHOTOL(177);    {2024/08/20; Travis2024; KRT}  \n"
  },
  {
    "path": "KPP/fullchem/fullchem.kpp",
    "content": "#MINVERSION   3.2.0                  { Need this version of KPP or later     }\n#INTEGRATOR   rosenbrock_autoreduce  { Use Rosenbrock integration method     }\n#AUTOREDUCE   on                     { ...w/ autoreduce enabled but optional }\n#LANGUAGE     Fortran90              { Generate solver code in Fortran90 ... }\n#UPPERCASEF90 on                     { ...w/ .F90 suffix (instead of .f90)   }\n#DRIVER       none                   { Do not create gckpp_Main.F90          }\n#HESSIAN      off                    { Do not create the Hessian matrix      }\n#MEX          off                    { MEX is for Matlab, so skip it         }\n#STOICMAT     off                    { Do not create stoichiometric matrix   }\n\n#INCLUDE fullchem.eqn     { Chemical reactions for fullchem mechanism  }\n\n#FAMILIES                 { Chemical families for prod/loss diagnostic }\nPOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + ALK4N2 + PRN1 + PRPN + R4N1 + ALK4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs;\nLOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + ALK4N2 + PRN1 + PRPN + R4N1 + ALK4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs;\nPCO : CO;\nLCO : CO;\nPSO4 : SO4;\nLCH4 : CH4;\nPH2O2 : H2O2;\n\n#INLINE F90_RATES\n  ! All rates are included in fullchem_RateLawFuncs.F90, which\n  ! gets referenced directly from subroutine Update_Rconst.\n#ENDINLINE\n\n#INLINE F90_RCONST_USE\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (11 Jun 2021)\n  USE fullchem_RateLawFuncs\n#ENDINLINE\n\n#INLINE F90_GLOBAL\n#include \"commonIncludeVars.H\"\n#ENDINLINE\n"
  },
  {
    "path": "KPP/fullchem/fullchem_AutoReduceFuncs.F90",
    "content": "#ifdef KPP_INTEGRATOR_AUTOREDUCE\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_AutoReduceFuncs\n!\n! !DESCRIPTION: Contains routines to abstract rosenbrock_autoreduce-specific\n!  code out of fullchem_mod.F90.  This will avoid compilation errors when\n!  building other KPP-generated mechanisms.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE fullchem_AutoReduceFuncs\n!\n! !USES:\n!\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: fullchem_AR_KeepHalogensActive\n  PUBLIC :: fullchem_AR_SetKeepActive\n  PUBLIC :: fullchem_AR_UpdateKppDiags\n  PUBLIC :: fullchem_AR_SetIntegratorOptions\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_AR_KeepHalogensActive\n!\n! !DESCRIPTION: Sets halogen species to \"fast\" for the rosenbrock_autoreduce \n!  integrator.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_AR_KeepHalogensActive( doPrint )\n!\n! !USES:\n!\n    USE gckpp_Precision\n    USE gckpp_Parameters\n    USE gckpp_Global,    ONLY : keepSpcActive\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL, INTENT(IN) :: doPrint   ! Print informational message\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! Informational printout\n    IF ( doPrint ) THEN\n       WRITE( 6, 100 )\n 100   FORMAT('Setting halogen species to \"fast\" for rosenbrock_autoreduce\"')\n    ENDIF\n\n    ! New halogens auto-reduce list hplin 01/27/22, 03/02/22\n    ! based off Shen et al. 2020 GMD Table 1, lines 10, 11, 12\n    keepSpcActive(ind_AERI  ) = .TRUE.  ! Iodine on aerosol\n    keepSpcActive(ind_Br    ) = .TRUE.\n    keepSpcActive(ind_Br2   ) = .TRUE.\n    keepSpcActive(ind_BrCl  ) = .TRUE.\n    keepSpcActive(ind_BrNO2 ) = .TRUE.\n    keepSpcActive(ind_BrNO3 ) = .TRUE.\n    keepSpcActive(ind_BrO   ) = .TRUE.\n    keepSpcActive(ind_BrSALA) = .TRUE.\n    keepSpcActive(ind_BrSALC) = .TRUE.\n    keepSpcActive(ind_HBr   ) = .TRUE.\n    keepSpcActive(ind_HOBr  ) = .TRUE.\n    keepSpcActive(ind_Cl    ) = .TRUE.\n    keepSpcActive(ind_Cl2   ) = .TRUE.\n    keepSpcActive(ind_Cl2O2 ) = .TRUE.\n    keepSpcActive(ind_ClNO2 ) = .TRUE.\n    keepSpcActive(ind_ClNO3 ) = .TRUE.\n    keepSpcActive(ind_ClO   ) = .TRUE.\n    keepSpcActive(ind_ClOO  ) = .TRUE.\n    keepSpcActive(ind_OClO  ) = .TRUE.\n    keepSpcActive(ind_HCl   ) = .TRUE.\n    keepSpcActive(ind_HOCl  ) = .TRUE.\n    keepSpcActive(ind_I     ) = .TRUE.\n    keepSpcActive(ind_I2    ) = .TRUE.\n    keepSpcActive(ind_IO    ) = .TRUE.\n    keepSpcActive(ind_I2O2  ) = .TRUE.\n    keepSpcActive(ind_HI    ) = .TRUE.\n    keepSpcActive(ind_ISALA ) = .TRUE.\n    keepSpcActive(ind_ISALC ) = .TRUE.\n    keepSpcActive(ind_I2O4  ) = .TRUE.\n    keepSpcActive(ind_I2O3  ) = .TRUE.\n    keepSpcActive(ind_INO   ) = .TRUE.\n    keepSpcActive(ind_IONO  ) = .TRUE.\n    keepSpcActive(ind_IONO2 ) = .TRUE.\n    keepSpcActive(ind_ICl   ) = .TRUE.\n    keepSpcActive(ind_IBr   ) = .TRUE.\n    keepSpcActive(ind_HOI   ) = .TRUE.\n    keepSpcActive(ind_SALACl) = .TRUE.\n    keepSpcActive(ind_SALCCl) = .TRUE.\n    keepSpcActive(ind_SALAAL) = .TRUE.\n    keepSpcActive(ind_SALCAL) = .TRUE.\n\n  END SUBROUTINE fullchem_AR_KeepHalogensActive\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_AR_SetKeepActive\n!\n! !DESCRIPTION:  Abstracts setting the rosenbrock_autoreduce keepActive flag\n!  out of fullchem_mod.F90\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_AR_SetKeepActive( option )\n!\n! !USES:\n!\n    USE gckpp_Precision\n    USE gckpp_Global, ONLY : keepActive\n!\n! !INPUT PARAMETERS: \n!\n    LOGICAL, INTENT(IN) :: option\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    keepActive = option\n\n  END SUBROUTINE fullchem_AR_SetKeepActive\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_AR_UpdateKppDiags\n!\n! !DESCRIPTION: Updates KPP diagnostics for the rosenbrock_autoreduce solver\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_AR_UpdateKppDiags( I, J, L, RSTATE, State_Diag )\n!\n! !USES:\n!\n    USE gckpp_Precision\n    USE gckpp_Global,     ONLY : cNONZERO, rNVAR\n    USE gckpp_Integrator, ONLY : NARthr\n    USE State_Diag_Mod,   ONLY : DgnState\n!\n! !INPUT PARAMETERS: \n!\n    INTEGER,        INTENT(IN)    :: I, J, L\n    REAL(dp),       INTENT(IN)    :: RSTATE(20)\n!\n! !INPUT/OUTPUT PARAMETERS: \n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    ! # of species in auto-reduced mechanism\n    IF ( State_Diag%Archive_KppAutoReducerNVAR ) THEN\n       State_Diag%KppAutoReducerNVAR(I,J,L) = rNVAR\n    ENDIF\n\n    ! Computed threshold\n    IF ( State_Diag%Archive_KppAutoReduceThres ) THEN\n       State_Diag%KppAutoReduceThres(I,J,L) = RSTATE(NARthr)\n    ENDIF\n\n    ! # of nonzero elements in LU factorization of Jacobian, AR only\n    IF ( State_Diag%Archive_KppcNONZERO ) THEN\n       State_Diag%KppcNONZERO(I,J,L) = cNONZERO\n    ENDIF\n\n  END SUBROUTINE fullchem_AR_UpdateKppDiags\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_AR_SetIntegratorOptions\n!\n! !DESCRIPTION: Defines the settings for ICNTRL and RCNTRL used for the\n!  rosenbrock_autoreduce integrator.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_AR_SetIntegratorOptions( Input_Opt, State_Chm,      &\n                                               State_Met, FirstChem,      &\n                                               I,         J,         L,   &\n                                               ICNTRL,    RCNTRL          )\n!\n! !USES:\n!\n    USE gckpp_Parameters\n    USE gckpp_Precision\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n!\n! !INPUT PARAMETERS: \n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt    ! Input Options object \n    TYPE(ChmState), INTENT(IN)    :: State_Chm    ! Chemistry State object\n    TYPE(MetState), INTENT(IN)    :: State_Met    ! Meteorology State object\n    LOGICAL,        INTENT(IN)    :: FirstChem    ! Is it the 1st chem timestep\n    INTEGER,        INTENT(IN)    :: I, J, L      ! Grid box indices\n!\n! !INPUT/OUTPUT PARAMETERS: \n!\n    INTEGER,        INTENT(INOUT) :: ICNTRL(20)   ! Options for KPP (integer)\n    REAL(dp),       INTENT(INOUT) :: RCNTRL(20)   ! Options for KPP (real   )\n!\n! !REMARKS:\n!  This code was abstracted out of the parallel DO loop in DO_FULLCHEM\n!  (in module GeosCore/fullchem_mod.F90)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=====================================================================\n    ! fullchem_AR_SetIntegratorOptions begins here!\n    !=====================================================================\n    \n    ! Initialize\n    ICNTRL = 0\n    RCNTRL = 0.0_dp\n\n    !=====================================================================\n    ! Define settings in the ICNTRL vector\n    !=====================================================================\n\n    ! 0 - non-autonomous, 1 - autonomous\n    ICNTRL(1) = 1\n\n    ! NOTE: ICNTRL is already zeroed out so we don't need to\n    ! set this to zero again.  Uncomment if you change this value.\n    !! 0 - vector tolerances, 1 - scalars\n    !ICNTRL(2) = 0  \n\n    ! Select a particular integration method.\n    ! For Rosenbrock, options are:\n    ! = 0 :  default method is Rodas3\n    ! = 1 :  method is  Ros2\n    ! = 2 :  method is  Ros3\n    ! = 3 :  method is  Ros4\n    ! = 4 :  method is  Rodas3\n    ! = 5:   method is  Rodas4\n    ICNTRL(3) = 4\n\n    ! 0 - adjoint, 1 - no adjoint\n    ICNTRL(7) = 1\n\n    ! Turn off calling Update_SUN, Update_RCONST, Update_PHOTO from within\n    ! the integrator.  Rate updates are done before calling KPP.\n    ICNTRL(15) = -1\n\n    ! Specify that a threshold value will be used for auto-reduction.\n    ! The threshold will be specified in RCNTRL(12), see below.\n    IF ( Input_Opt%USE_AUTOREDUCE .and. .not. FIRSTCHEM ) ICNTRL(12) = 1\n\n    ! Use the append functionality?\n    IF ( Input_Opt%AUTOREDUCE_IS_APPEND ) ICNTRL(13) = 1\n\n    !=====================================================================\n    ! Define settings in the ICNTRL vector\n    !=====================================================================\n\n    ! Initialize Hstart (the starting value of the integration step\n    ! size with the value of Hnew (the last predicted but not yet \n    ! taken timestep)  saved to the the restart file.\n    RCNTRL(3) = State_Chm%KPPHvalue(I,J,L)\n\n    !---------------------------------------------------------------------\n    ! Auto-reduce threshold, Method 1: Pressure-dependent\n    !                                            \n    !   Actual_Threshold =\n    !                                           Mid-Pressure at Level\n    !     AUTOREDUCE_THRESHOLD (at surface) * --------------------------\n    !                                          \"Mid-Pressure\" at Sfc.\n    !\n    !---------------------------------------------------------------------\n    IF ( .not. Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD ) THEN\n       IF ( Input_Opt%AUTOREDUCE_IS_PRS_THRESHOLD ) THEN\n          RCNTRL(12) = Input_Opt%AUTOREDUCE_THRESHOLD                        & \n                     * State_Met%PMID(I,J,L)                                 & \n                     / State_Met%PMID(I,J,1)\n       ENDIF\n       \n       IF ( .not. Input_Opt%AUTOREDUCE_IS_PRS_THRESHOLD ) THEN\n          RCNTRL(12) = Input_Opt%AUTOREDUCE_THRESHOLD\n       ENDIF\n    ENDIF\n\n    !---------------------------------------------------------------------\n    ! Auto-reduce threshold, Method 2: Determine threshold \n    ! dynamically by scaling rates of key species.\n    !---------------------------------------------------------------------\n    IF ( Input_Opt%AUTOREDUCE_IS_KEY_THRESHOLD ) THEN\n\n       !--------------------------------\n       ! Daytime target species (OH)\n       !--------------------------------\n       ICNTRL(14) = ind_OH\n       RCNTRL(14) = Input_Opt%AUTOREDUCE_TUNING_OH\n       \n       !--------------------------------\n       ! Nighttime target species (NO2)\n       !--------------------------------\n       ! COMMENTS BY HAIPENG LIN:\n       ! 1e6 daytime conc...testing shows 5e-5 as an offset here works best.\n       ! Use JNO2 as night determination.\n       ! RXN_NO2: NO2 + hv --> NO  + O\n       ! JNO2 ranges from 0 to 0.02 and is order ~ 1e-4 at the terminator. \n       ! We set this threshold to be slightly relaxed so it captures the \n       ! terminator, but this needs some tweaking.\n       !\n       ! For some reason, RXN_NO2 as a proxy fails to propagate the sunset \n       ! terminator even though all diagnostics seem fine, and after a while \n       ! only the OH scheme applies.  Use SUNCOSmid as a proxy to fix this. \n       ! (hplin, 4/20/22)\n       ! IF(ZPJ(L,RXN_NO2,I,J) .eq. 0.0_fp) THEN\n       !\n       IF( State_Met%SUNCOSmid(I,J) .le. -0.1391731e+0_dp ) THEN\n          ICNTRL(14) = ind_NO2\n          RCNTRL(14) = Input_Opt%AUTOREDUCE_TUNING_NO2\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE fullchem_AR_SetIntegratorOptions\n!EOC\nEND MODULE fullchem_AutoReduceFuncs\n#endif\n"
  },
  {
    "path": "KPP/fullchem/fullchem_HetStateFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: fullchem_HetStateFuncs.F90\n!\n! !DESCRIPTION: Module for initializing the HetState object, which passes\n!  arguments from GEOS-Chem to the heterogeneous chemistry routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n\nMODULE fullchem_HetStateFuncs\n!\n! !USES:\n!\n  USE GcKpp_Precision\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: fullchem_SetStateHet\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: FullChem_SetStateHet\n!\n! !DESCRIPTION: Initializes the State_Het object with gridbox values passed\n!  from fullchem_mod.  These values are used in the heterogenous chemistry\n!  reaction rate computations.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullChem_SetStateHet( I,         J,         L,                  &\n                                   id_SALA,   id_SALAAL, id_SALC,            &\n                                   id_SALCAL, Input_Opt, State_Chm,          &\n                                   State_Met, H,         RC                 )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE GcKpp_Global\n    USE GcKpp_Parameters\n    USE PhysConstants,    ONLY : AVO, PI\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE rateLawUtilFuncs\n    USE State_Chm_Mod,    ONLY : ChmState, Ind_\n    USE State_Met_Mod,    ONLY : MetState\n\n  ! Species ID flags\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I          ! Lon (or X-dim) gridbox index\n    INTEGER,        INTENT(IN)    :: J          ! Lat (or Y-dim) gridbox index\n    INTEGER,        INTENT(IN)    :: L          ! Vertical level index\n    INTEGER ,       INTENT(IN)    :: id_SALA    ! Indices of SALA, SALAAL\n    INTEGER,        INTENT(IN)    :: id_SALAAL  !  SALC, and SALCAL species\n    INTEGER,        INTENT(IN)    :: id_SALC    !  in the State_Chm%Species\n    INTEGER,        INTENT(IN)    :: id_SALCAL  !  object\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(ChmState), INTENT(IN)    :: State_Chm  ! Chemistry State object\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meterology State object\n!\n! INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HetState), INTENT(INOUT) :: H          ! Hetchem State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure?\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: NA\n\n    !========================================================================\n    ! Populate fields of the HetState object in gckpp_Global\n    !========================================================================\n\n    ! Initialization\n    RC = GC_SUCCESS\n    NA = State_Chm%nAeroType\n\n    !========================================================================\n    ! Populate fields of the HetState object in gckpp_Global\n    !========================================================================\n\n    ! Identify a box for debug printout within rate-law functions\n    debugBox        = .FALSE.\n\n    ! Constants (so that we can use these within KPP)\n    H%AVO           = AVO\n    H%PI            = PI\n\n    ! Meteorology-related quantities\n    H%CldFr         = MIN(MAX(State_Met%CLDF(I,J,L), 0.0_dp), 1.0_dp)\n    H%ClearFr       = 1.0_dp - H%CldFr\n    H%QICE          = State_Met%QI(I,J,L)\n    H%QLIQ          = State_Met%QL(I,J,L)\n    H%vAir          = State_Met%AIRVOL(I,J,L) * 1.0e6_dp\n\n    ! Aerosol fields\n    H%nAeroType     = State_Chm%nAeroType\n    H%aClArea       = State_Chm%aClArea(I,J,L)\n    H%aClRadi       = State_Chm%aClRadi(I,J,L)\n    H%aClVol        = H%aClArea * H%aClRadi / 3.0_dp\n    H%AWATER(:)     = State_Chm%IsorropAeroH2O(I,J,L,:)\n    H%xArea(1:NA)   = State_Chm%AeroArea(I,J,L,1:NA)\n    H%xRadi(1:NA)   = State_Chm%AeroRadi(I,J,L,1:NA)\n    H%xVol(1:NA)    = H%xArea(1:NA) * H%xRadi(1:NA) / 3.0_dp\n    H%wetArea(1:NA) = State_Chm%WetAeroArea(I,J,L,1:NA)\n    H%xH2O(1:NA)    = State_Chm%AeroH2O(I,J,L,1:NA) * 1.0e-6_dp\n    H%OMOC_POA      = State_Chm%OMOC_POA(I,J)\n    H%OMOC_OPOA     = State_Chm%OMOC_OPOA(I,J)\n\n    ! HSO3 and SO3 concentrations in cloud [mol/L]\n    H%HSO3_aq       = State_Chm%HSO3_aq(I,J,L)\n    H%SO3_aq        = State_Chm%SO3_aq(I,J,L)\n    H%TSO3_aq       = H%HSO3_aq + H%SO3_aq\n    H%frac_HSO3_aq  = SafeDiv( H%HSO3_aq, H%TSO3_aq, 0.0_dp )\n    H%frac_SO3_aq   = SafeDiv( H%SO3_aq,  H%TSO3_aq, 0.0_dp )\n\n    ! Concentrations from ISORROPIA/HETP\n    H%HSO4_molal    = State_Chm%IsorropBisulfate(I,J,L)\n    H%NO3_molal     = State_Chm%IsorropNitrate(I,J,L,1)\n    H%SO4_molal     = State_Chm%IsorropSulfate(I,J,L)\n\n    ! pH and alkalinity fields\n    H%H_plus        = State_Chm%IsorropHplus(I,J,L,1)\n    H%pHCloud       = State_Chm%pHCloud(I,J,L)\n    H%pHSSA(:)      = State_Chm%IsorropAeropH(I,J,L,:)\n    H%H_conc_Sul    = 10.0**( -1.0_dp * H%pHSSA(1) )\n    H%H_conc_LCl    = 10.0**( -1.0_dp * H%pHCloud  )\n    H%H_conc_ICl    = 10.0**( -4.5_dp              )\n    H%H_conc_SSA    = H%H_conc_Sul\n    H%H_conc_SSC    = 10.0**( -5.0_dp              )\n    H%f_Alk_SSA     = SafeDiv( State_Chm%Species(id_SALAAL)%Conc(I,J,L),     &\n                               State_Chm%Species(id_SALA  )%Conc(I,J,L),     &\n                               0.0_dp                                       )\n    H%f_Alk_SSA     = MAX( MIN( H%f_Alk_SSA, 1.0_dp ), 0.0_dp )\n    H%f_Acid_SSA    = 1.0_dp - H%f_Alk_SSA\n    H%f_Alk_SSC     = SafeDiv( State_Chm%Species(id_SALCAL)%Conc(I,J,L),     &\n                               State_Chm%Species(id_SALC  )%Conc(I,J,L),     &\n                               0.0_dp                                       )\n    H%f_Alk_SSC     = MAX( MIN( H%f_Alk_SSC, 1.0_dp ), 0.0_dp )\n    H%f_Acid_SSC    = 1.0_dp - H%f_Alk_SSC\n    H%SSA_is_Alk    = ( ABS( H%f_Alk_SSA ) > 0.01_dp )\n    H%SSA_is_Acid   = ( .not.  H%SSA_is_Alk          )\n    H%SSC_is_Alk    = ( ABS( H%f_Alk_SSC ) > 0.01_dp )\n    H%SSC_is_Acid   = ( .not.  H%SSC_is_Alk          )\n\n    ! Other fields\n    H%gamma_HO2     = Input_Opt%gamma_HO2\n\n    ! Correction factors for HOBr and HOCl removal by SO2 [1]\n    H%fupdateHOBr  = State_Chm%fupdateHOBr(I,J,L)\n    H%fupdateHOCl  = State_Chm%fupdateHOCl(I,J,L)\n\n    ! Aqueous S(IV) in cloudwater\n    !\n    ! -- This is the ratio of HSO3-/SO2, both in units of molec/cm3.\n    !    It allows the use of SO2 in the reactions with HOCl and HOBr,\n    !    and converts SO2 to HSO3- via the reaction rate constant.\n    H%HSO3m = SafeDiv( State_Chm%HSO3_aq(I,J,L) * 1.0e-3_dp *                &\n                       State_Het%AVO            *                            &\n                       State_Met%QL(I,J,L)      *                            &\n                       State_Met%AIRDEN(I,J,L)  * 1.0e-3_dp,                 &\n                       State_Met%CLDF(I,J,L),                                &\n                       0.0_dp                                               )\n\n    ! Avoid div-by-zero condition\n    H%HSO3m = SafeDiv( H%HSO3m, C(ind_SO2), 0.0_dp                          )\n\n    ! -- This is the ratio of SO3--/SO2, both in units of molec/cm3.\n    !    It allows the use of SO2 in the reactions with HOCl and HOBr,\n    !    and converts SO2 to SO3-- via the reaction rate constant.\n    H%SO3mm = SafeDiv( State_Chm%SO3_aq(I,J,L)  * 1.0e-3_dp *                &\n                       State_Het%AVO            *                            &\n                       State_Met%QL(I,J,L)      *                            &\n                       State_Met%AIRDEN(I,J,L)  * 1.0e-3_dp,                 &\n                       State_Met%CLDF(I,J,L),                                &\n                       0.0_dp                                               )\n\n    ! Avoid div-by-zero condition\n    H%SO3mm = SafeDiv( H%SO3mm, C(ind_SO2), 0.0_dp                          )\n\n    ! Cloud fields\n    CALL Cld_Params( AD      = State_Met%AD(I,J,L),                          &\n                     CLDF    = State_Met%CLDF(I,J,L),                        &\n                     FRLAND  = State_Met%FRLAND(I,J),                        &\n                     FROCEAN = State_Met%FROCEAN(I,J),                       &\n                     QI      = State_Met%QI(I,J,L),                          &\n                     QL      = State_Met%QL(I,J,L),                          &\n                     T       = State_Met%T(I,J,L),                           &\n                     H       = H                                            )\n\n    ! Get theta for ice cloud uptake\n    CALL Get_Theta_Ice( C(ind_HNO3), C(ind_HCl), C(ind_HBr), H )\n\n    ! Halide (Br- and Cl-) concentrations\n    CALL Halide_Conc( I, J, L, H  )\n\n    !========================================================================\n    ! Copy quantities for UCX into gckpp_Global variables\n    !========================================================================\n\n    ! ... copy uptake probabilities for PSC reactions on SLA\n    ! ... to the proper gckpp_Global variable\n    H%KHETI_SLA(1:11) = State_Chm%KHETI_SLA(I,J,L,1:11)\n\n    ! ... check if we are in the stratosphere\n    H%stratBox = State_Met%InStratosphere(I,J,L)\n\n    ! ... check if there are solid PSCs at this grid box\n    H%pscBox  =                                                              &\n         ( ( Input_Opt%LPSCCHEM                ) .and.                       &\n           ( State_Chm%STATE_PSC(I,J,L) >= 2.0 ) .and. H%stratBox           )\n\n    ! ... check if there is surface NAT at this grid box\n    H%natSurface = ( H%pscBox .and. ( C(ind_NIT) > 0.0_dp )                 )\n\n    ! Flag to turn off heterogeneous reactions in stratosphere\n    H%TurnOffHetRates = Input_Opt%TurnOffHetRates\n\n  END SUBROUTINE FullChem_SetStateHet\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Theta_Ice\n!\n! !DESCRIPTION: Subroutine GET_THETA_ICE returns theta values for\n!  HNO3, HCl, and HBr for ice uptake calculations\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Theta_Ice( HNO3, HCl, HBr, H )\n!\n! !USES:\n!\n    USE Gckpp_Global, ONLY : HetState, TEMP\n!\n! !INPUT PARAMETERS:\n!\n    REAL(dp),       INTENT(IN)    :: HNO3  ! HNO3 conc [molec/cm3]\n    REAL(dp),       INTENT(IN)    :: HCl   ! HCl  conc [molec/cm3]\n    REAL(dp),       INTENT(IN)    :: HBr   ! HBr  conc [molec/cm3]\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(HetState), INTENT(INOUT) :: H     ! Hetchem State object\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(dp) :: KLangC1, KLangC2, KlinC, denom\n\n    !=================================================================\n    ! GET_THETA_ICE begins here!\n    !=================================================================\n\n    KlinC   = 7.5e-5_dp * EXP( 4585.0_dp / TEMP )          ! 1/cm\n    KLangC1 = KlinC / 2.7e+14_dp                           ! cm3/molec\n\n    ! HCl\n    KlinC   = 1.3e-5_dp * EXP( 4600.0_dp / TEMP )          ! 1/cm\n    KLangC2 = KlinC / 3.0e+14_dp                           ! cm3/molec\n\n    denom        = 1.0_dp + KLangC1*HNO3 + KLangC2*HCl\n    H%HNO3_theta = KLangC1*HNO3 / denom\n    H%HCl_theta  = KLangC2*HCl  / denom\n\n    ! HBr\n    H%HBr_theta = 4.14e-10_dp * ( HBr**0.88_dp )\n    H%HBr_theta = MIN( H%HBr_theta, 1.0_dp )\n\n  END SUBROUTINE Get_Theta_Ice\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Halide_Conc\n!\n! !DESCRIPTION: Initializes halide (Br-, Cl-) concentrations at each\n!  grid box for use in heterogeneous chemistry routines.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Halide_Conc( I, J, L, H )\n!\n! !USES:\n!\n    USE Gckpp_Global\n    USE GcKpp_Parameters\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I    ! Longitude (X) index\n    INTEGER,        INTENT(IN)    :: J    ! Latitude  (Y) index\n    INTEGER,        INTENT(IN)    :: L    ! Altitude  (Z) index\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(HetState), INTENT(INOUT) :: H    ! Hetchem State object\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(dp) :: Br_conc, Cl_conc, denom, HBr, HCl\n\n    !=======================================================================\n    ! Initialization\n    !=======================================================================\n\n    ! Set Br and Cl fields of State_Het to zero\n    H%Br_conc_CldG   = 0.0_dp\n    H%Br_conc_CldA   = 0.0_dp\n    H%Br_conc_CldC   = 0.0_dp\n    H%Br_over_Cl_Cld = 0.0_dp\n    H%Br_over_Cl_SSA = 0.0_dp\n    H%Br_over_Cl_SSC = 0.0_dp\n    H%Cl_conc_CldG   = 0.0_dp\n    H%Cl_conc_CldA   = 0.0_dp\n    H%Cl_conc_CldC   = 0.0_dp\n    H%frac_Br_CldA   = 0.0_dp\n    H%frac_Br_CldC   = 0.0_dp\n    H%frac_Br_CldG   = 0.0_dp\n    H%frac_Cl_CldA   = 0.0_dp\n    H%frac_Cl_CldC   = 0.0_dp\n    H%frac_Cl_CldG   = 0.0_dp\n\n    !=======================================================================\n    ! Get halide conc's in cloud (gas-phase, fine & coarse sea salt)\n    !=======================================================================\n\n    ! Br- and Cl- grid-box concentrations\n    HBr = C(ind_HBr) + ( C(ind_BrSALA) * 0.7_dp ) + C(ind_BrSALC)\n    HCl = C(ind_HCl) + ( C(ind_SALACL) * 0.7_dp ) + C(ind_SALCCL)\n\n    ! Get overall Br- and Cl- grid box concentrations in cloud\n    CALL Get_Halide_CldConc( H, HBr, HCl, Br_conc, Cl_conc )\n\n    ! Split Br- into gas-phase (G), fine sea salt (A), coarse sea salt (C)\n    ! Avoid div-by-zero (all three expressions use the same denominator)\n    denom = C(ind_HBr) + ( C(ind_BrSALA) * 0.7_dp ) + C(ind_BrSALC)\n    IF ( denom > 0.0_dp ) THEN\n       H%Br_conc_CldG = ( Br_conc * C(ind_HBr   )          ) / denom\n       H%Br_conc_CldA = ( Br_conc * C(ind_BrSALA) * 0.7_dp ) / denom\n       H%Br_conc_CldC = ( Br_conc * C(ind_BrSALC)          ) / denom\n    ENDIF\n\n    ! Split Cl- into gas-phase (G), fine sea salt (A), coarse sea salt (C)\n    ! Avoid div-by-zero (all three expressions use the same denominator)\n    denom = C(ind_HCl) + ( C(ind_SALACL) * 0.7_dp ) + C(ind_SALCCL)\n    IF ( denom > 0.0_dp ) THEN\n       H%Cl_conc_CldG = ( Cl_conc * C(ind_HCl   )          ) / denom\n       H%Cl_conc_CldA = ( Cl_conc * C(ind_SALACL) * 0.7_dp ) / denom\n       H%Cl_conc_CldC = ( Cl_conc * C(ind_SALCCL)          ) / denom\n    ENDIF\n\n    ! Total Br- and Cl- in cloud\n    H%Br_conc_Cld = H%Br_conc_CldA + H%Br_conc_CldC + H%Br_conc_CldG\n    H%Cl_conc_Cld = H%Cl_conc_CldA + H%Cl_conc_CldC + H%Cl_conc_CldG\n\n    ! Fractions of Br- in each of the CldA, CldG, CldC paths\n    IF ( H%Br_Conc_Cld > 0.0_dp ) THEN\n       H%frac_Br_CldA = H%Br_conc_CldA / H%Br_conc_Cld\n       H%frac_Br_CldC = H%Br_conc_CldC / H%Br_conc_Cld\n       H%frac_Br_CldG = H%Br_conc_CldG / H%Br_conc_Cld\n    ENDIF\n\n    ! Branching ratios for Br- in each of the CldA, CldG, CldC paths\n    IF ( H%Cl_Conc_Cld > 0.0_dp ) THEN\n       H%frac_Cl_CldA = H%Cl_conc_CldA / H%Cl_conc_Cld\n       H%frac_Cl_CldC = H%Cl_conc_CldC / H%Cl_conc_Cld\n       H%frac_Cl_CldG = H%Cl_conc_CldG / H%Cl_conc_Cld\n    ENDIF\n\n    !=======================================================================\n    ! Get halide concentrations, in aerosol\n    !=======================================================================\n\n    ! Br- concentration in fine sea salt aerosol\n    CALL Get_Halide_SSAConc( n_x       = C(ind_BrSALA),                      &\n                             surf_area = H%aClArea,                          &\n                             r_w       = H%aClRadi,                          &\n                             conc_x    = H%Br_conc_SSA                      )\n\n    ! Br- concentration in coarse sea salt aerosol\n    CALL Get_Halide_SSAConc( n_x       = C(ind_BrSALC),                      &\n                             surf_area = H%xArea(12),                        &\n                             r_w       = H%xRadi(12),                        &\n                             conc_x    = H%Br_conc_SSC                      )\n\n    ! Cl- concentration in fine sea salt aerosol\n    CALL Get_Halide_SSAConc( n_x       = C(ind_SALACL),                      &\n                             surf_area = H%aClArea,                          &\n                             r_w       = H%aClRadi,                          &\n                             conc_x    = H%Cl_conc_SSA                      )\n\n    ! Cl- concentration in coarse sea salt aerosol\n    CALL Get_Halide_SSAConc( n_x       = C(ind_SALCCL),                      &\n                             surf_area = H%xArea(12),                        &\n                             r_w       = H%xRadi(12),                        &\n                             conc_x    = H%Cl_conc_SSC                      )\n\n    ! NO3- concentration in fine sea salt aerosol\n    CALL Get_Halide_SSAConc( n_x       = C(ind_NIT),                         &\n                             surf_area = H%aClArea,                          &\n                             r_w       = H%aClRadi,                          &\n                             conc_x    = H%NIT_conc_SSA                     )\n\n    ! NO3- concentration in coarse sea salt aerosol\n    CALL Get_Halide_SSAConc( n_x       = C(ind_NITs),                        &\n                             surf_area = H%xArea(12),                        &\n                             r_w       = H%xRadi(12),                        &\n                             conc_x    = H%NIT_conc_SSC                     )\n\n    !=======================================================================\n    ! Ratios of Br- to Cl-\n    !=======================================================================\n    IF ( H%Cl_conc_Cld > 0.0_dp ) THEN\n       H%Br_over_Cl_Cld = H%Br_conc_Cld / H%Cl_conc_Cld   ! in gas, in-cloud\n    ENDIF\n\n    IF ( H%Cl_conc_SSA > 0.0_dp ) THEN\n       H%Br_over_Cl_SSA = H%Br_conc_SSA / H%Cl_conc_SSA  ! in fine sea salt\n    ENDIF\n\n    IF ( H%Cl_conc_SSC > 0.0_dp ) THEN\n       H%Br_over_Cl_SSC = H%Br_conc_SSC / H%Cl_conc_SSC  ! in coarse sea salt\n    ENDIF\n\n    !=======================================================================\n    ! Fraction of SALACL in total fine sea salt\n    !=======================================================================\n    IF ((  C(ind_SALACL) + C(ind_NIT) + C(ind_SO4)) > 0.0_dp) THEN\n       H%frac_SALACL = C(ind_SALACL) / ( C(ind_SALACL) + C(ind_NIT) + C(ind_SO4) )\n    ELSE \n       H%frac_SALACL = 0.0_dp\n    ENDIF\n\n  END SUBROUTINE Halide_Conc\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Halide_CldConc\n!\n! !DESCRIPTION: Subroutine GET\\_HALIDE\\_CLDCONC returns the in-cloud\n!  concentration of bromide and chloride (Br- and Cl-).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Halide_CldConc( H, HBr, HCl, br_conc, cl_conc )\n!\n! !USES:\n!\n    USE gckpp_Global\n    USE rateLawUtilFuncs, ONLY : SafeDiv\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(HetState), INTENT(IN)  :: H          ! Hetchem State object\n    REAL(dp),       INTENT(IN)  :: HBr        ! HBr- concentration [#/cm3]\n    REAL(dp),       INTENT(IN)  :: HCl        ! HCl- concentration [#/cm3]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(dp),       INTENT(OUT) :: Br_conc    ! Br conc [M/kg water]\n    REAL(dp),       INTENT(OUT) :: Cl_conc    ! Cl conc [M/kg water]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(dp) :: V_tot, dr_ratio, t2l, F_L, L2G, pH\n\n    !=================================================================\n    ! Get_Halide_CldConc begins here!\n    !=================================================================\n\n    !---------------------------------------------------------------\n    ! jas, 07/30/2014 (SETUP d/r ratio for ice cloud droplets)\n    ! V_liq = 4pi/3 ( r^3 - (r - r*(d/r))^3 = (r^3 - r^3*(1 - d/r)^3) = r^3 (1\n    ! - (1 - d/r)^3\n    ! V_tot / V_liq = 1 / (1 - (1 - d/r)^3))\n    DR_RATIO = 2e-2_dp\n    T2L      = 1.0_dp / ( 1.0_dp - ( 1.0_dp - DR_RATIO)**3 )\n    !---------------------------------------------------------------\n\n    ! V_tot = VLiq + (VIce / T2L) ! (cm3(liq)/cm3(air)\n    V_tot = H%VLiq\n    V_tot = SafeDiv( V_tot, H%CldFr, 0.0_dp )\n\n    ! Exit if not in cloud\n    IF ( V_tot < 1.0e-20_dp ) THEN\n       Br_conc = 0.0_dp\n       Cl_conc = 0.0_dp\n       RETURN\n    ENDIF\n\n    ! Note from Viral Shah (06 Dec 2021):\n    !   I believe V_tot corresponds to H2OLIQ, which is the cloud liquid\n    !   water content. Whereas L2G is H_eff * H2OLIQ. Note that H_eff is\n    !   dimensionless in this equation, not in the more commonly used units\n    !   of M/atm.\n\n    ! Chloride (mol/L)\n    CALL Compute_L2G_Local( K0     =  1.0_dp,     CR = 9000.0_dp,            &\n                            pKa    = -6.3_dp,     TK = TEMP,                 &\n                            H2OLIQ =  V_tot,      pH = H%pHCloud,            &\n                            L2G    =  L2G                                   )\n    F_L = L2G / ( 1.0_dp + L2G )\n    Cl_conc = F_L * HCl / (V_tot * H%AVO * 1.0e-3_dp)\n\n    ! Bromide (mol/L)\n    CALL Compute_L2G_Local( K0     =  7.5e-1_dp,  CR = 10200.0_dp,           &\n                            pKa    = -9.0_dp,     TK = TEMP,                 &\n                            H2OLIQ =  V_tot,      pH = H%pHCloud,            &\n                            L2G    =  L2G                                   )\n    F_L = L2G / ( 1.0_dp + L2G )\n    Br_conc = F_L * HBr / ( V_tot * H%AVO * 1.0e-3_dp )\n\n  END SUBROUTINE Get_Halide_CldConc\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Halide_SsaConc\n!\n! !DESCRIPTION: Calculates concentration of a halide in sea salt aerosol.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Get_Halide_SsaConc( n_x, surf_area, r_w, conc_x )\n!\n! !USES:\n!\n    USE GcKpp_Global,  ONLY : HetState\n    USE PhysConstants, ONLY : AVO\n!\n! !INPUT PARAMETERS:\n!\n    REAL(dp),       INTENT(IN)  :: n_x        ! Number density     [#/cm3  ]\n    REAL(dp),       INTENT(IN)  :: surf_area  ! Surface area       [cm2/cm3]\n    REAL(dp),       INTENT(IN)  :: r_w        ! Aerosol wet radius [cm     ]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(dp),       INTENT(OUT) :: conc_x     ! Halide conc in seasalt [mol/L]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL(dp) :: V_tot\n\n    !==================================================================\n    ! Get_Halide_SsaConc begins here!\n    !==================================================================\n\n    ! Cloud volume\n    V_tot = ( surf_area * r_w / 3.0_dp ) * 1e-3_dp ! L(liq)/cm3(air)\n\n    ! Skip if we are not in cloud\n    IF ( V_tot <= 1.0e-20_dp ) THEN\n       conc_x = 0.0_dp\n       RETURN\n    ENDIF\n\n    ! This calculation can be used for both SSA X- concentration and for\n    ! those out of cloud only. For X- out of cloud only, V_tot =\n    ! V_tot*(1-CF), n_x = n_x*(1-CF), so (1-CF) is canceled.\n    ! xnw, 02/05/18\n    conc_x = ( n_x / AVO ) / V_tot    ! mol/L\n    conc_x = MAX( conc_x, 0.0_dp )\n\n  END SUBROUTINE Get_Halide_SsaConc\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Compute_L2G_Local\n!\n! !DESCRIPTION: Subroutine COMPUTE\\_L2G\\_LOCAL is a local copy of the\n!  liquid-gas partitioning routine in GEOS-Chem's wetscav\\_mod.F file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Compute_L2G_Local( K0, CR, pKa, TK, H2OLIQ, pH, L2G )\n!\n! !USES:\n!\n    USE Henry_Mod, ONLY : Calc_KH\n    USE Henry_Mod, ONLY : Calc_Heff\n!\n! !INPUT PARAMETERS:\n!\n    REAL(dp), INTENT(IN)  :: K0     ! Henry's solubility constant [M/atm]\n    REAL(dp), INTENT(IN)  :: CR     ! Henry's volatility constant [K]\n    REAL(dp), INTENT(IN)  :: pKa    ! Henry's pH correction factor [1]\n    REAL(dp), INTENT(IN)  :: TK     ! Temperature [K]\n    REAL(dp), INTENT(IN)  :: H2OLIQ ! Liquid water content [cm3 H2O/cm3 air]\n    REAL(dp), INTENT(IN)  :: pH     ! Liquid water pH\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(dp), INTENT(OUT) :: L2G    ! Cliq/Cgas ratio [1]\n!\n! !REMARKS:\n!  The ratio Cliq / Cgas is obtained via Henry's law.  The appropriate\n!  values of Kstar298 and H298_R must be supplied for each species.\n!  (cf Jacob et al 2000, p. 3)\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: RC\n    REAL*8  :: CR_8,  H2OLIQ_8, HEFF_8, K0_8, KH_8\n    REAL*8  :: L2G_8, TK_8,     pKa_8,  pH_8\n\n    !=================================================================\n    ! COMPUTE_L2G_LOCAL begins here!\n    !=================================================================\n\n    ! Cast inputs to REAL*8\n    CR_8  = CR\n    K0_8  = K0\n    pka_8 = pKa\n    pH_8  = pH\n    TK_8  = TK\n\n    ! For wetdep, we assume a pH of 4.5 for rainwater\n    !pH = 4.5_dp\n\n    ! Calculate the Henry's law constant\n    CALL CALC_KH( K0_8, CR_8, TK_8, KH_8, RC )\n\n    ! Calculate effective Henry's law constant, corrected for pH\n    ! (for those species that have a defined pKa value)\n    CALL CALC_HEFF( pKa_8, pH_8, KH_8, HEFF_8, RC )\n\n    ! Use Henry's Law to get the ratio:\n    ! [ mixing ratio in liquid phase / mixing ratio in gas phase ]\n    L2G_8 = HEFF_8 * H2OLIQ\n\n    ! Cast outputs to flex-precision\n    L2G = L2G_8\n\n  END SUBROUTINE Compute_L2G_Local\n!EOC\nEND MODULE fullchem_HetStateFuncs\n"
  },
  {
    "path": "KPP/fullchem/fullchem_RateLawFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_RateLawFuncs\n!\n! !DESCRIPTION: Provides rate-law functions used by the \"fullchem\" chemical\n!  mechanism.  This will be referenced from within subroutine Update_RCONST.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE fullchem_RateLawFuncs\n!\n! !USES:\n!\n  USE gckpp_Global\n  USE gckpp_Parameters\n  USE gckpp_Precision\n  USE rateLawUtilFuncs\n\n  IMPLICIT NONE\n  PUBLIC\n!\n! !DEFINED PARAMETERS:\n!\n  ! Indices for aerosol type (1 .. NAEROTYPE=14)\n  INTEGER,  PRIVATE, PARAMETER :: DU1            = 1  ! Dust (Reff = 0.151 um)\n  INTEGER,  PRIVATE, PARAMETER :: DU2            = 2  ! Dust (Reff = 0.253 um)\n  INTEGER,  PRIVATE, PARAMETER :: DU3            = 3  ! Dust (Reff = 0.402 um)\n  INTEGER,  PRIVATE, PARAMETER :: DU4            = 4  ! Dust (Reff = 0.818 um)\n  INTEGER,  PRIVATE, PARAMETER :: DU5            = 5  ! Dust (Reff = 1.491 um)\n  INTEGER,  PRIVATE, PARAMETER :: DU6            = 6  ! Dust (Reff = 2.417 um)\n  INTEGER,  PRIVATE, PARAMETER :: DU7            = 7  ! Dust (Reff = 3.721 um)\n  INTEGER,  PRIVATE, PARAMETER :: SUL            = 8  ! Tropospheric Sulfate\n  INTEGER,  PRIVATE, PARAMETER :: BKC            = 9  ! Black Carbon\n  INTEGER,  PRIVATE, PARAMETER :: ORC            = 10 ! Organic Carbon\n  INTEGER,  PRIVATE, PARAMETER :: SSA            = 11 ! Accum-mode sea salt\n  INTEGER,  PRIVATE, PARAMETER :: SSC            = 12 ! Coarse-mode sea salt\n  INTEGER,  PRIVATE, PARAMETER :: SLA            = 13 ! Strat sulfate liq aer\n  INTEGER,  PRIVATE, PARAMETER :: IIC            = 14 ! Irregular ice cloud\n\n  ! Indices for Fine and Coarse sea-salt indices\n  INTEGER,  PRIVATE, PARAMETER :: SS_FINE        = 1\n  INTEGER,  PRIVATE, PARAMETER :: SS_COARSE      = 2\n\n  ! Indices for the KHETI_SLA array\n  INTEGER,  PRIVATE, PARAMETER :: N2O5_plus_H2O  = 1\n  INTEGER,  PRIVATE, PARAMETER :: N2O5_plus_HCl  = 2  ! KHETI_SLA(2) = 0\n  INTEGER,  PRIVATE, PARAMETER :: ClNO3_plus_H2O = 3\n  INTEGER,  PRIVATE, PARAMETER :: ClNO3_plus_HCl = 4\n  INTEGER,  PRIVATE, PARAMETER :: ClNO3_plus_HBr = 5\n  INTEGER,  PRIVATE, PARAMETER :: BrNO3_plus_H2O = 6\n  INTEGER,  PRIVATE, PARAMETER :: BrNO3_plus_HCl = 7\n  INTEGER,  PRIVATE, PARAMETER :: HOCl_plus_HCl  = 8\n  INTEGER,  PRIVATE, PARAMETER :: HOCl_plus_HBr  = 9  ! KHETI_SLA(9) = 0\n  INTEGER,  PRIVATE, PARAMETER :: HOBr_plus_HCl  = 10\n  INTEGER,  PRIVATE, PARAMETER :: HOBr_plus_HBr  = 11 ! KHETI_SLA(11)= 0\n\n  ! Critical RH [%] for uptake of GLYX, MGLYX, and GLYC:\n  REAL(dp), PRIVATE, PARAMETER :: CRITRH         = 35.0_dp\n\n  ! Conversion factor from atm to bar\n  REAL(dp), PRIVATE, PARAMETER :: CON_ATM_BAR    = 1.0_dp / 1.01325_dp\n\n  ! Reference temperature used in Henry's law\n  REAL(dp), PRIVATE, PARAMETER :: INV_T298       = 1.0_dp / 298.15_dp\n!\n! !REFERENCES:\n!  Eastham et al., Development and evaluation of the unified tropospheric-\n!    stratospheric chemistry extension (UCX) for the global chemistry-transport\n!    model GEOS-Chem, Atmos. Env., doi:10.1016/j.atmosenv.2014.02.001, 2014.\n!  Fisher et al, Organic nitrate chemistry and its implications for nitrogen\n!    budgets in an isoprene- and monoterpene-rich atmosphere: constraints from\n!    aircraft (SEAC4RS) and ground-based (SOAS) observations in the Southeast\n!    US. Atmos. Chem. Phys., 16, 2961-1.02990, 2016.\n!  Holmes, C.D., Bertram, T. H., Confer, K. L., Ronan, A. C., Wirks, C. K.,\n!    Graham, K. A., Shah, V. (2019) The role of clouds in the tropospheric\n!    NOx cycle: a new modeling approach for cloud chemistry and its global\n!    implications, Geophys. Res. Lett. 46, 4980-4990,\n!    https://doi.org/10.1029/2019GL081990\n!  Marais et al., Aqueous-phase mechanism for secondary organic aerosol\n!    formation from isoprene: application to the southeast United States and\n!    co-benefit of SO2 emission controls, Atmos. Chem. Phys., 16, 1603-1618,\n!    doi:10.5194/acp-16-1603-2016, 2016.\n!  Parrella et al, Tropospheric bromine chemistry: implications for present and\n!    pre-industrial ozone and mercury, Atmos. Chem. Phys., 12, 6,723-6,740,\n!    doi:10.5194/acp-12-6723-2012, 2012.\n!  Schmidt, J., et al., “Modelling the observed tropospheric BrO background:\n!    Importance of multiphase chemistry & implications for ozone, OH, &\n!    mercury”, J Geophys. Res-Atmos., 121, 024229,\n!    https://doi.org/10.1002/2015JD024229, 2016.\n!  Sherwen, T., et al., Global impacts of tropospheric halogens (Cl, Br, I) on\n!    oxidants and composition in GEOS-Chem, Atmos. Chem. Phys., 16, 12239-12271,\n!    https://doi.org/10.5194/acp-16-12239-2016, 2016.\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n\n  !#########################################################################\n  !#####          RATE-LAW FUNCTIONS FOR GAS-PHASE REACTIONS           #####\n  !#####   Some common functions are defined in rateLawUtilFuncs.F90   #####\n  !#########################################################################\n\n  FUNCTION ARRPLUS_ade( a0, d0, e0 ) RESULT( k )\n    ! Modified Arrhenius law, skipping computation of EXP( -b0/T )\n    ! and ( 300/T )**c0 terms, which evaluate to 1 when b0 = c0 = 0.\n    ! This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    ! Used to compute the rate for these reactions:\n    !    IHOO1 + IHOO1 = 2MVK  + 2HO2 + 2CH2O\n    !    IHOO4 + IHOO4 = 2MACR + 2HO2 + 2CH2O\n    !    IHOO1 + IHOO4 = MACR + MVK + 2HO2 + 2CH2O\n    !    IHOO1 + IHOO1 = HO2 + HC5A + CO + OH +  MVKHP\n    !    IHOO4 + IHOO4 = HO2 + HC5A + CO + OH +  MCRHP\n    !    IHOO1 + IHOO4 = HO2 + HC5A + CO + OH +  0.5MVKHP + 0.5MCRHP\n    !    IHOO1 + MO2   = MVK + 2HO2 + 2CH2O :\n    !    IHOO1 + MO2   = CH2O + 0.5HC5A + 1.5HO2 + 0.5MVKHP + 0.5CO + 0.5OH\n    !    IHOO4 + MO2   = MACR + 2HO2 + 2CH2O\n    !    IHOO4 + MO2   = CH2O + 0.5HC5A + 1.5HO2 +  0.5MCRHP + 0.5CO + 0.5OH\n    !\n    REAL(dp), INTENT(IN) :: a0, d0, e0\n    REAL(dp)             :: k\n    !\n    k = a0 * ( d0 + ( TEMP * e0 ) )\n    k = MAX( k, 0.0_dp )\n  END FUNCTION ARRPLUS_ade\n\n  FUNCTION ARRPLUS_abde( a0, b0, d0, e0 ) RESULT( k )\n    ! Modified Arrhenius law, skipping computation of ( T/300 )**c0,\n    ! which evaluates to 1 when c0=0.  This avoids excess CPU cycles.\n    ! (bmy, 12/18/20)\n    !\n    ! Used to compute the rate for these reactions:\n    !    IHOO1 + HO2 = 0.063MVK + 0.063OH + 0.063HO2 + 0.063CH2O + 0.937RIPA\n    !    IHOO1 + HO2 = RIPC\n    !    IHOO4 + HO2 = 0.063MACR + 0.063OH + 0.063HO2 + 0.063CH2O + 0.937RIPB\n    !    IHOO4 + HO2 = RIPD\n    !    IHOO1       = CH2O + OH + MVK\n    !    IHOO4       = MACR + OH + CH2O\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, d0, e0\n    REAL(dp)             :: k\n    !\n    k = a0 * ( d0 + ( TEMP * e0 ) ) * EXP( -b0 / TEMP )\n    k = MAX( k, 0.0_dp )\n  END FUNCTION ARRPLUS_abde\n\n  FUNCTION TUNPLUS_abcde( a0, b0, c0, d0, e0 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    IHOO1 = 1.5OH + ...\n    !    IHOO4 = 1.5OH + ...\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, c0, d0, e0\n    REAL(dp)             :: k\n    !\n    k = a0 * ( d0 + ( TEMP * e0 ) )\n    k = k * EXP( b0 / TEMP ) * EXP( c0 / TEMP**3 )\n    k = MAX( k, 0.0_dp )\n  END FUNCTION TUNPLUS_abcde\n\n  FUNCTION GC_ISO1( a0, b0, c0, d0, e0, f0, g0 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    ISOP + OH = LISOPOH + IHOO1\n    !    ISOP + OH = LISOPOH + IHOO4\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, c0, d0, e0, f0, g0\n    REAL(dp)             :: k0, k1, k2, k\n    !\n    k0 = d0 * EXP( e0 / TEMP ) * EXP( 1.0E8_dp / TEMP**3 )\n    k1 = f0 * EXP( g0 / TEMP )\n    k2 = c0 * k0 / ( k0 + k1 )\n    k  = a0 * EXP( b0 / TEMP ) * ( 1.0_dp - k2 )\n  END FUNCTION GC_ISO1\n\n  FUNCTION GC_ISO2( a0, b0, c0, d0, e0, f0, g0 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    ISOP + OH = 0.3MCO3 + 0.3MGLY + 0.3CH2O\n    !              + 0.15HPALD3 + 0.25HPALD1 + 0.4HO2\n    !              + 0.6CO + 1.5OH + 0.3HPETHNL + LISOPOH\n    !    ISOP + OH = 0.3CH2O + 0.15HPALD4 + 0.25HPALD2\n    !              + 1.5OH + 0.9CO + 0.7HO2 + 0.3MGLY\n    !              + 0.3ATOOH + LISOPOH\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, c0, d0, e0, f0, g0\n    REAL(dp)             :: k0, k1, k2, k\n    !\n    k0 = d0 * EXP( e0 / TEMP ) * EXP( 1.0E8_dp / TEMP**3 )\n    k1 = f0 * EXP( g0 / TEMP )\n    k2 = c0 * k0 / ( k0 + k1 )\n    k  = a0 * EXP( b0 / TEMP ) * k2\n  END FUNCTION GC_ISO2\n\n  FUNCTION GC_EPO_a( a1, e1, m1 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    RIPA   + OH = 0.67IEPOXA   + 0.33IEPOXB   + OH + 0.005LVOC\n    !    RIPB   + OH = 0.68IEPOXA   + 0.321IEPOB   + OH + 0.005LVOC\n    !    IEPOXA + OH = 0.67IEPOXA00 + 0.33IEPOXB00\n    !    IEPOXB + OH = 0.81IEPOXA00 + 0.19IEPOXB00\n    !    IHN2   + OH = 0.67IEPOXA   + 0.33IEPOXB   + NO2\n    !    IHN3   + OH = 0.67IEPOXA   + 0.33IEPOXB   + NO2\n    !    IHN1   + OH = IEPOXD       + NO2\n    !    IHN4   + OH = IEPOXD       + NO2\n    !    INPB   + OH = OH           + ITHN\n    !    INPD   + OH = OH           + ITHN\n    !    INPD   + OH = NO2          + ICHE\n    !    ICN    + OH = NO2          + ICHE\n    !\n    REAL(dp), INTENT(IN) :: a1, e1, m1\n    REAL(dp)             :: k1, k\n    !\n    k1 = 1.0_dp / ( m1 * NUMDEN + 1.0_dp )\n    k  = a1 * EXP( e1 / TEMP ) *  K1\n  END FUNCTION GC_EPO_a\n\n  FUNCTION GC_PAN_abab( a0, b0, a1, b1, cf ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    MACR1OO + NO2 = MPAN\n    !    MACRNO2 + NO2 = MPAN + NO2\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    EXP(b0/T)\n    !    EXP(b1/T)\n    ! because b0 = b1 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    ! Sept 27 2012: Added GC_PAN_abab per Kelvin Bates' requirements\n    !               for aromatic chem.\n    REAL(dp), INTENT(IN) :: a0, b0, a1, b1, cf\n    REAL(dp)             :: k0, k1, kr, nc, f,  k\n    !\n    k0 = a0 * EXP( b0 / TEMP )\n    k1 = a1 * EXP( b1 / TEMP )\n    k0 = k0 * NUMDEN\n    kr = k0 / k1\n    nc = 0.75_dp - 1.27_dp * ( LOG10( cf ) )\n    f  = 10.0_dp**( LOG10( cf ) / ( 1.0_dp + ( LOG10( kr ) / nc )**2 ) )\n    k  = k0 * k1 * f / ( k0 + k1 )\n  END FUNCTION GC_PAN_abab\n\n  FUNCTION GC_PAN_acac( a0, c0, a1, c1, cf ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    MACR1OO + NO2 = MPAN\n    !    MACRNO2 + NO2 = MPAN + NO2\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    EXP(b0/T)\n    !    EXP(b1/T)\n    ! because b0 = b1 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0, a1, c1, cf\n    REAL(dp)             :: k0, k1, kr, nc, f,  k\n    !\n    k0 = a0 * TEMP_OVER_K300**c0\n    k1 = a1 * TEMP_OVER_K300**c1\n    k0 = k0 * NUMDEN\n    kr = k0 / k1\n    nc = 0.75_dp - 1.27_dp * ( LOG10( cf ) )\n    f  = 10.0_dp**( LOG10( cf ) / ( 1.0_dp + ( LOG10( kr ) / nc )**2 ) )\n    k  = k0 * k1 * f / ( k0 + k1 )\n  END FUNCTION GC_PAN_acac\n\n  FUNCTION GC_NIT( a0, b0, c0, n, x0, y0 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    IHOO1    + NO = IHN2\n    !    IHOO4    + NO = IHN4\n    !    IHPOO1   + NO = IHTN\n    !    IHPOO2   + NO = IHTN\n    !    IHPOO2   + NO = IHTN\n    !    IEPOXAOO + NO = IHTN\n    !    IEPOXBOO + NO = IHTN\n    !    IHCOO    + NO = IHTN\n    !    ISOPNOO1 + NO = IDN\n    !    ISOPNOO2 + NO = IDN\n    !    IDHNDOO1 + NO = IDN\n    !    IDHNDOO2 + NO = IDN\n    !    INO2B    + NO = IDN\n    !    INO2D    + NO = IDN\n    !    IHPNBOO  + NO = IDN\n    !    IHPNDOO  + NO = IDN\n    !    MVK0HOO  + NO = 0.438MVKN\n    !    MCROHOO  + NO = MCRHN\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, c0, n,  x0, y0\n    REAL(dp)             :: k0, k1, k2, k3, k4, k\n    !\n    k0 = 2.0E-22_dp * EXP( n )\n    k1 = 4.3E-1_dp * ( TEMP / 298.0_dp )**(-8)\n    k0 = k0 * NUMDEN\n    k1 = k0 / k1\n    k2 = ( k0 / ( 1.0_dp + k1 ) )                                            &\n       * 4.1E-1_dp**( 1.0_dp / ( 1.0_dp + ( LOG10(k1) )**2) )\n    k3 = k2 / ( k2 + c0 )\n    k4 = A0 * ( x0 - TEMP*y0 )\n    k  = k4 * EXP( b0 / TEMP ) * k3\n    k  = MAX( k, 0.0_dp )\n  END FUNCTION GC_NIT\n\n  FUNCTION GC_ALK( a0, b0, c0, n, x0, y0 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !   IHOO1    + NO =      NO2 + ...\n    !   IHOO4    + NO =      NO2 + ...\n    !   IHP001   + NO =      NO2 + ...\n    !   IHP002   + NO =      NO2 + ...\n    !   IHP003   + NO =      NO2 + ...\n    !   IEPOXAOO + NO =      NO2 + ...\n    !   IEPOXBOO + NO =      NO2 + ...\n    !   ICHOO    + NO =      NO2 + ...\n    !   ISOPNOO1 + NO = 1.728NO2 + ...\n    !   ISOPNOO2 + NO =      NO2 + ...\n    !   IDHNDOO1 + NO =      NO2 + ...\n    !   IDHNDOO2 + NO =      NO2 + ...\n    !   IDHNBOO  + NO =      NO2 + ...\n    !   IDHNDOO  + NO =      NO2 + ...\n    !   INO2B    + NO = 2.000NO2 + ...\n    !   INO2D    + NO =      NO2 + ...\n    !   IHPNBOO  + NO = 1.065NO2 + ...\n    !   IHPNDOO  + NO =      NO2 + ...\n    !   MVKOHOO  + NO =      NO2 + ...\n    !   MCROHOO  + NO =      NO2 + ...\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, c0, n,  x0, y0\n    REAL(dp)             :: k0, k1, k2, k3, k4, k\n    !\n    k0 = 2.0E-22_dp * EXP( n )\n    k1 = 4.3E-1_dp * ( TEMP / 298.0_dp)**(-8)\n    k0 = k0 * NUMDEN\n    k1 = k0 / k1\n    k2 = ( K0 / ( 1.0_dp +K1 ) )                                             &\n       * 4.1E-1_dp**( 1.0_dp / ( 1.0_dp + ( LOG10( k1 ) )**2) )\n    k3 = c0/ ( k2 + c0 )\n    k4 = a0 * ( x0 - TEMP*y0 )\n    k  = k4 * EXP( b0 / TEMP ) * k3\n    k  = MAX( k, 0.0_dp )\n  END FUNCTION GC_ALK\n\n  FUNCTION GC_HO2HO2_acac( a0, c0, a1, c1 ) RESULT( k )\n    ! Used to compute the rate for these reactions:\n    !    HO2 + HO2 = H2O2 + O2\n    !\n    ! For this reaction, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1\n    ! because b0 = b1 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0, a1, c1\n    REAL(dp)             :: k0, k1, k\n    !\n    k0 = a0 * EXP( c0 / TEMP )\n    k1 = a1 * EXP( c1 / TEMP )\n    k  = ( k0     + k1         * NUMDEN                           )          &\n       * ( 1.0_dp + 1.4E-21_dp * H2O    * EXP( 2200.0_dp / TEMP ) )\n  END FUNCTION GC_HO2HO2_acac\n\n  FUNCTION GC_TBRANCH_1_acac( a0, c0, a1, c1 ) RESULT( k )\n    ! Temperature Dependent Branching Ratio, used for reactions:\n    !    MO2 + MO2 = CH2O  + MOH + O2\n    !    MO2 + MO2 = 2CH2O + 2HO2\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1\n    ! because b0 = b1 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0, a1, c1\n    REAL(dp)             :: k0, k1, k\n    !\n    k0 = a0 * EXP( c0 / TEMP )\n    k1 = a1 * EXP( c1 / TEMP )\n    k  = k0 / ( 1.0_dp + k1 )\n  END FUNCTION GC_TBRANCH_1_acac\n\n  FUNCTION GC_RO2HO2_aca( a0, c0, a1 ) RESULT( k )\n    ! Carbon Dependence of RO2+HO2, used in these reactions:\n    !    A3O2 + HO2 = RA3P\n    !    PO2  + HO2 = PP\n    !    KO2  + HO2 = 0.150OH + 0.150ALD2 + 0.150MCO3 + 0.850ATOOH\n    !    B3O2 + HO2 = RB3P\n    !    PRN1 + HO2 = PRPN\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1 * EXP(c1/T)\n    ! Because b0 = b1 = c1 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0, a1\n    REAL(dp)             :: k\n    !\n    k = a0 * EXP( c0 / TEMP )\n    k = k * ( 1.0_dp - EXP( -0.245_dp * a1 ) )\n  END FUNCTION GC_RO2HO2_aca\n\n  FUNCTION GC_DMSOH_acac( a0, c0, a1, c1 ) RESULT( k )\n    ! Reaction rate for:\n    !    DMS + OH = 0.750SO2 + 0.250MSA + MO2\n    !\n    ! For this reaction, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1\n    ! Because b0 = b1 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0, a1, c1\n    REAL(dp)             :: k0, k1, k\n    !\n    k0 = a0 * EXP( c0 / TEMP )\n    k1 = a1 * EXP( c1 / TEMP )\n    k  = ( k0 * NUMDEN * 0.2095e0_dp ) / ( 1.0_dp + k1 * 0.2095e0_dp )\n  END FUNCTION GC_DMSOH_acac\n\n  FUNCTION GC_GLYXNO3_ac( a0, c0 ) RESULT( k )\n    ! Reaction rate for:\n    !    GLYX + NO3 = HNO3 + HO2 + 2CO\n    !    i.e. the HO2 + 2*CO branch\n    !\n    ! For this reaction, this Arrhenius term evaluates to 1:\n    !    (300/T)**b0\n    ! because b0 = 0.  Therefore we can skip computing this\n    ! term.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(dp)             :: O2, k\n    !\n    ! ---  K = K1*([O2]+3.5D18)/(2*[O2]+3.5D18)\n    O2 = NUMDEN * 0.2095_dp\n    k  = a0 * EXP( c0 / TEMP )\n    k   = k * ( O2 + 3.5E+18_dp ) / ( 2.0_dp * O2 + 3.5E+18_dp )\n  END FUNCTION GC_GLYXNO3_ac\n\n  FUNCTION GC_GLYCOH_A_a( a0 ) RESULT( k )\n    ! Used to compute the rate for this reaction:\n    !    GLYC + OH = 0.732CH2O + 0.361CO2  + 0.505CO    + 0.227OH\n    !              + 0.773HO2  + 0.134GLYX + 0.134HCOOH\n    ! which is the \"A\" branch of GLYC + OH.\n    !\n    ! For this reaction, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0 * EXP(c0/T)\n    ! Because b0 = c0 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0\n    REAL(dp)             :: glyc_frac, k\n    REAL(dp), PARAMETER  :: exp_arg = -1.0_dp / 73.0_dp\n    !\n    glyc_frac = 1.0_dp - 11.0729_dp * EXP( exp_arg * TEMP )\n    glyc_frac = MAX( glyc_frac, 0.0_dp )\n    k         = a0 * glyc_frac\n  END FUNCTION GC_GLYCOH_A_a\n\n  FUNCTION GC_GLYCOH_B_a( a0 ) RESULT( k )\n    ! Used to compute the rate for this reaction:\n    !    GLYC + OH = HCOOH + OH + CO\n    ! which is the \"B\" branch of GLYC + OH.\n    !\n    ! For this reaction, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0 * EXP(c0/T)\n    ! Because b0 = c0 = 0.  Therefore we can skip computing these\n    ! terms.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0\n    REAL(dp)             :: glyc_frac, k\n    REAL(dp), PARAMETER  :: exp_arg = -1.0_dp / 73.0_dp\n    !\n    glyc_frac = 1.0_dp - 11.0729_dp * EXP( exp_arg * TEMP )\n    glyc_frac = MAX( glyc_frac, 0.0_dp )\n    k         = a0 * ( 1.0_dp - glyc_frac )\n  END FUNCTION GC_GLYCOH_B_a\n\n  FUNCTION GC_HACOH_A_ac( a0, c0 ) RESULT( k )\n    ! Used to compute the rate for this reaction:\n    !    HAC + OH = MGLY + HO2\n    ! which is the \"A\" branch of HAC + OH.\n    !\n    ! For this reaction, this Arrhenius law term evaluates to 1:\n    !    (300/T)**b0\n    ! because b0 = 0.  Therefore we can skip computing this\n    ! term.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(dp)             :: k0, hac_frac, k\n    REAL(dp), PARAMETER  :: exp_arg = -1.0_dp / 60.0_dp\n    !\n    k0       = a0 * EXP( c0 / TEMP )\n    hac_frac = 1.0_dp - 23.7_dp * EXP( exp_arg * TEMP )\n    hac_frac = MAX( hac_frac, 0.0_dp )\n    k        = k0 * hac_frac\n  END FUNCTION GC_HACOH_A_ac\n\n  FUNCTION GC_HACOH_B_ac( a0, c0 ) RESULT( k )\n    ! Used to compute the rate for this reaction:\n    !    HAC + OH = 0.5HCOOH + OH + 0.5ACTA + 0.5CO2 + 0.5CO + 0.5MO2\n    ! which is the \"B\" branch of HAC + OH.\n    !\n    ! For this reaction, this Arrhenius law term evaluates to 1:\n    !    (300/T)**b0}\n    ! because b0 = 0.  Therefore we can skip computing this\n    ! term.  This avoids excess CPU cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(dp)             :: k0, hac_frac, k\n    REAL(dp), PARAMETER  :: exp_arg = -1.0_dp / 60.0_dp\n    !\n    k0       = a0 * EXP( c0 / TEMP )\n    hac_frac = 1.0_dp - 23.7_dp * EXP( exp_arg * TEMP )\n    hac_frac = MAX( hac_frac, 0.0_dp )\n    k        = k0 * ( 1.0_dp - hac_frac )\n  END FUNCTION GC_HACOH_B_ac\n\n  FUNCTION GC_RO2NO_A1_ac( a0, c0 ) RESULT( k )\n    ! Reaction rate for the \"A\" branch of these RO2 + NO reactions:\n    !    MO2  + NO = MENO3\n    ! in which the \"a1\" parameter equals exactly 1.\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1 * EXP(c1/T)\n    ! because b0 = b1 = c1 = 0.  Therefore we can skip computing\n    ! these terms.  This avoids excess CPU cycles. (bmy, 1/4/20)\n    !\n    ! Special treatment for methyl nitrate based on observations\n    ! as Carter and Atkinson formulation does not apply to C1.\n    ! Value based on upper limit of Flocke et al. 1998 as applied\n    ! in Fisher et al. 2018\n    !\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(dp)             :: k\n    !\n    k  = a0 * EXP( c0 / TEMP ) * 3.0e-4_dp\n  END FUNCTION GC_RO2NO_A1_ac\n\n  FUNCTION GC_RO2NO_B1_ac( a0, c0 ) RESULT( k )\n    ! Reaction rate for the \"B\" branch of these RO2 + NO reactions:\n    !    MO2 + NO = CH2O + NO2 + HO2\n    ! in which the \"a1\" parameter equals exactly 1.\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1 * EXP(c1/T)\n    ! because b0 = c0 = c1 = 0.  Therefore we can skip computing\n    ! these terms.  This avoids excess CPU cycles. (bmy, 1/4/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(dp), PARAMETER  :: one_minus_fyrno3 = 1.0_dp - 3.0e-4_dp\n    REAL(dp)             :: k\n    !\n    k = a0 * EXP( c0 / TEMP ) * one_minus_fyrno3\n  END FUNCTION GC_RO2NO_B1_ac\n\n  FUNCTION GC_RO2NO_A2_aca( a0, c0, a1 ) RESULT( k )\n    ! Reaction rate for the \"A\" branch of these RO2 + NO reactions,\n    !    ETO2 + NO = ETNO3\n    !    A3O2 + NO = NPRNO3\n    !    R4O2 + NO = R4N2\n    !    B3O2 + NO = IPRNO3\n    ! in which the \"a1\" parameter is greater than 1.0.\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1 * EXP(c1/T)\n    ! because b0 = b1 = c1 = 0.  Therefore we can skip computing\n    ! these terms.  This avoids excess CPU cycles. (bmy, 1/4/20)\n    !\n    REAL(dp), INTENT(IN) :: a0,  c0,   a1\n    REAL(dp)             :: k0,  k, yyyn, xxyn\n    REAL(dp)             :: aaa, rarb, zzyn, fyrno3\n    !\n    k0     = a0 * EXP( c0 / TEMP )\n    xxyn   = 1.94e-22_dp * EXP( 0.97_dp * a1 ) * NUMDEN\n    yyyn   = 0.826_dp * ( ( 300.0_dp / TEMP )**8.1_dp )\n    aaa    = LOG10( xxyn / yyyn )\n    zzyn   = ( 1.0_dp / ( 1.0_dp + ( aaa *  aaa  ) ) )\n    rarb   = ( xxyn   / ( 1.0_dp + ( xxyn / yyyn ) ) ) * ( 0.411_dp**zzyn )\n    fyrno3 = ( rarb   / ( 1.0_dp +   rarb          ) )\n    k      = k0 * fyrno3\n  END FUNCTION GC_RO2NO_A2_aca\n\n  FUNCTION GC_RO2NO_B2_aca( a0, c0, a1 ) RESULT( k )\n    ! Reaction rate for the \"B\" branch of these RO2 + NO reactions:\n    !    ETO2 + NO = NO2 +     HO2 + ...\n    !    A3O2 + NO = NO2 +     HO2 + ...\n    !    R4O2 + NO = NO2 + 0.27HO2 + ...\n    !    B3O2 + NO = NO2 +     HO2 + ...\n    ! in which the \"a1\" parameter is greater than 1.0.\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    (300/T)**b1 * EXP(c1/T)\n    ! because b0 = c0 = c1 = 0.  Therefore we can skip computing\n    ! these terms.  This avoids excess CPU cycles. (bmy, 1/4/20)\n    !\n    ! Use this function when a1 input argument is greater than 1.0.\n    ! This avoids IF statements, which saves CPU cycles (bmy, 1/4/20)\n    !\n    REAL(dp), INTENT(IN) :: a0,  c0,   a1\n    REAL(dp)             :: k0,  k, yyyn, xxyn\n    REAL(dp)             :: aaa, rarb, zzyn, fyrno3\n    !\n    k0     = a0 * EXP( c0 / TEMP )\n    xxyn   = 1.94e-22_dp * EXP(  0.97_dp * a1 ) * NUMDEN\n    yyyn   = 0.826_dp * ( K300_OVER_TEMP**8.1_dp )\n    aaa    = LOG10( xxyn / yyyn )\n    zzyn   = ( 1.0_dp / ( 1.0_dp + ( aaa  * aaa  ) ) )\n    rarb   = ( xxyn   / ( 1.0_dp + ( xxyn / yyyn ) ) ) * ( 0.411_dp**zzyn )\n    fyrno3 = ( rarb   / ( 1.0_dp +   rarb          ) )\n    k      = k0 * ( 1.0_dp - fyrno3 )\n  END FUNCTION GC_RO2NO_B2_aca\n\n  FUNCTION GCJPLEQ_acabab( a0, c0, a1, b1, a2, b2, fv ) RESULT( k )\n    ! Calculates the equilibrium constant\n    ! Find the backwards reaction by K=kforward/kbackwards\n    ! Calculates the rate constant of the forward reaction\n    !\n    ! Used to compute the rate for these reactions:\n    !    PPN        = RCO3 + NO2\n    !    PAN        = MCO3 + NO2\n    !    ClOO  {+M} = Cl   + O2 {+M}\n    !    Cl2O2 {+M} = 2ClO      {+M}\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b0\n    !    EXP(c1/T)\n    !    EXP(c2/T)\n    ! because b0 = c1 = c2 = 0.  Therefore we can skip computing these terms.\n    ! Also, fct1 = fct2 = 0, so we will skip those terms as well.  This is\n    ! more computationally efficient. (bmy, 1/25/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0, a1, b1, a2, b2, fv\n    REAL(dp)             :: k0, k1, k\n    !\n    k0 = a0 * EXP( c0 / TEMP )               ! backwards rxn rate\n    k1 = GCJPLPR_abab( a1, b1, a2, b2, fv )  ! forwards rxn rate\n    k  = k1 / k0\n  END FUNCTION GCJPLEQ_acabab\n\n  FUNCTION GCJPLPR_aa( a1, a2, fv ) RESULT( k )\n    ! Third body effect for pressure dependence of rate coefficients.\n    ! a1 is Arrhenius parameters for the lower-limit rate.\n    ! a2 is Arrhenius parameters for the upper-limit rate.\n    ! fv is the falloff curve paramter, (see ATKINSON ET. AL (1992)\n    ! J. Phys. Chem. Ref. Data 21, P. 1145). Usually fv = 0.6.\n    !\n    ! Used to compute the rate for this reaction:\n    !    Cl + PRPE {+M} = HCl + PO2 {+M}\n    !\n    ! For this reactions, these Arrhenius law terms evaluate to 1:\n    !    (300/T)**b1 * EXP(c1/T)\n    !    (300/T)**b2 * EXP(c2/T)\n    ! because b1 = b2 = c1 = c2 = 0.  Therefore we can skip computing\n    ! these terms.  Also, fct1 = fct2 = 0, so we will skip computing\n    ! these terms as well.  This is more computationally efficient.\n    ! (bmy, 1/25/20)\n    !\n    REAL(dp), INTENT(IN) :: a1,   a2,    fv\n    REAL(dp)             :: rlow, xyrat, blog, fexp, k\n    !\n    rlow  = a1 * NUMDEN\n    xyrat = rlow / a2         ! rhigh = a2\n    blog  = LOG10( xyrat )\n    fexp  = 1.0_dp / ( 1.0_dp + ( blog * blog ) )\n    k     = rlow * ( fv**fexp ) / ( 1.0_dp + xyrat )\n  END FUNCTION GCJPLPR_aa\n\n  FUNCTION GCJPLPR_aba( a1, b1, a2, fv ) RESULT( k )\n    ! Third body effect for pressure dependence of rate coefficients.\n    ! a1, b1 are the Arrhenius parameters for the lower-limit rate.\n    ! a2     is  the Arrhenius parameters for the upper-limit rate.\n    ! fv     is the falloff curve paramter, (see ATKINSON ET. AL (1992)\n    !        J. Phys. Chem. Ref. Data 21, P. 1145). Usually fv = 0.6.\n    !\n    ! Used to compute the rate for these reactions:\n    !    OH  + OH  {+M} = H2O2\n    !    NO2 + OH  {+M} = HNO3       {+M}\n    !    Cl  + O2  {+M} = ClOO       {+M}\n    !    SO2 + OH  {+M} = SO4  + HO2\n    !    Br  + NO2 {+M} = BrNO2      {+M}\n    !    NO  + O   {+M} = NO2        {+M}\n    !    I   + NO2 {+M} = IONO       {+M}\n    !    I   + NO  {+M} = INO        {+M}\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    EXP(c1/T)\n    !    (300/T)**b2 * EXP(c2/T)\n    ! because b2 = c1 = c2 = 0.  Therefore we can skip computing these\n    ! terms.  Also, fct1 = fct2 = 0, so we will skip computing these\n    ! terms as well.  This is more computationally efficient.\n    ! (bmy, 1/25/20)\n    !\n    REAL(dp), INTENT(IN) :: a1,   b1,    a2,   fv\n    REAL(dp)             :: rlow, xyrat, blog, fexp, k\n    !\n    rlow  = a1 * ( K300_OVER_TEMP**b1 ) * NUMDEN\n    xyrat = rlow / a2                                  ! rhigh = a2\n    blog  = LOG10( xyrat )\n    fexp  = 1.0_dp / ( 1.0_dp + ( blog * blog ) )\n    k     = rlow * ( fv**fexp ) / ( 1.0_dp + xyrat )\n  END FUNCTION GCJPLPR_aba\n\n  FUNCTION GCJPLPR_abab( a1, b1, a2, b2, fv ) RESULT( k )\n    ! Third body effect for pressure dependence of rate coefficients.\n    ! a1, b1 are the Arrhenius parameters for the lower-limit rate.\n    ! a2, b2 are the Arrhenius parameters for the upper-limit rate.\n    ! fv     is the falloff curve paramter, (see ATKINSON ET. AL (1992)\n    !        J. Phys. Chem. Ref. Data 21, P. 1145). Usually fv = 0.6.\n    !\n    ! Used to compute the rate for these reactions:\n    !    NO   + OH  {+M} = HNO2  {+M}\n    !    HO2  + NO2 {+M} = HNO4\n    !    NO2  + NO3 {+M} = N2O5\n    !    ClO  + NO2 {+M} = ClNO3 {+M}\n    !    MCO3 + NO2 {+M} = PAN\n    !    RCO3 + NO2 {+M} = PPN\n    !    PRPE + OH  {+M} = PO2\n    !    MO2  + NO2 {+M} = MPN   {+M}\n    !    BrO  + NO2 {+M} = BrNO3 {+M}\n    !    NO2  + O   {+M} = NO3   {+M}\n    !    H    + O2  {+M} = HO2   {+M}\n    !    IO   + NO2 {+M} = IONO2 {+M}\n    !\n    ! For these reactions, these Arrhenius law terms evaluate to 1:\n    !    EXP(c1/T)\n    !    EXP(c2/T)\n    ! because c1 = c2 = 0.  Therefore we can skip computing these\n    ! terms.  Also, fct1 = fct2 = 0, so we will skip computing these\n    ! terms as well.  This is more computationally efficient.\n    ! (bmy, 1/25/20)\n    !\n    REAL(dp), INTENT(IN) :: a1,   b1,    a2,    b2,   fv\n    REAL(dp)             :: rlow, rhigh, xyrat, blog, fexp, k\n    !\n    rlow  = a1 * ( K300_OVER_TEMP**b1 ) * NUMDEN\n    rhigh = a2 * ( K300_OVER_TEMP**b2 )\n    xyrat = rlow / rhigh\n    blog  = LOG10( xyrat )\n    fexp  = 1.0_dp / ( 1.0_dp + ( blog * blog ) )\n    k     = rlow * ( fv**fexp ) / ( 1.0_dp + xyrat )\n  END FUNCTION GCJPLPR_abab\n\n  FUNCTION GCJPLPR_abcabc( a1, b1, c1, a2, b2, c2, fv ) RESULT( k )\n    ! Third body effect for pressure dependence of rate coefficients.\n    ! a1, b1, c1 are the Arrhenius parameters for the lower-limit rate.\n    ! a2, b2, c2 are the Arrhenius parameters for the upper-limit rate.\n    ! fv         is the falloff curve paramter, (see ATKINSON ET. AL (1992)\n    !           J. Phys. Chem. Ref. Data 21, P. 1145). Usually fv = 0.6.\n    !\n    ! Used to compute the rate for these reactions:\n    !    HNO4 {+M} = HO2 + NO2\n    !    N2O5 {+M} = NO2 + NO3\n    !    MPN  {+M} = MO2 + NO2\n    !\n    REAL(dp), INTENT(IN) :: a1,   b1,    c1,    a2,   b2,   c2,  fv\n    REAL(dp)             :: rlow, rhigh, xyrat, blog, fexp, k\n    !\n    rlow  = a1 * ( K300_OVER_TEMP**b1 ) * EXP( c1 / TEMP ) * NUMDEN\n    rhigh = a2 * ( K300_OVER_TEMP**b2 ) * EXP( c2 / TEMP )\n    xyrat = rlow / rhigh\n    blog  = LOG10( xyrat )\n    fexp  = 1.0_dp / ( 1.0_dp + ( blog * blog ) )\n    k     = rlow * ( fv**fexp ) / ( 1.0_dp + xyrat )\n  END FUNCTION GCJPLPR_abcabc\n\n  FUNCTION GCJPLAC_ababac( a1, b1, a2, b2, a3, c3, fv ) RESULT( k )\n    ! Rate coefficient for activation reactions competing with a \n    ! termolecular association pathway\n    ! a1, b1 are the Arrhenius parameters for the lower-limit rate.\n    ! a2, b2 are the Arrhenius parameters for the upper-limit rate.\n    ! a3, c3 are Arrhenius parameters for the activation path\n    ! fv     is the falloff curve parameter, usually = 0.6.\n    !\n    ! Used to compute the rate for these reactions:\n    !    NO2  + O  = O2 + NO\n    !    HNO3 + OH = NO3 + H2O\n    !    CO   + OH = HO2 + CO2\n    !\n    REAL(dp), INTENT(IN) :: a1, b1, a2, b2, a3, c3, fv\n    REAL(dp)             :: rlow, rhigh, xyrat, blog\n    REAL(dp)             :: fexp, k1, k2, k\n    !\n    rlow  = a1 * ( K300_OVER_TEMP**b1 ) * NUMDEN\n    rhigh = a2 * ( K300_OVER_TEMP**b2 )\n    xyrat = rlow / rhigh\n    blog  = LOG10( xyrat )\n    fexp  = 1.0_dp / ( 1.0_dp + ( blog * blog ) )\n    k1    = rlow * ( fv**fexp ) / ( 1.0_dp + xyrat )\n    k2    = a3 * EXP( c3 / TEMP )\n    k     = k2 * (1.0_dp - (k1 / rhigh) )\n  END FUNCTION GCJPLAC_ababac\n  \n  !#########################################################################\n  !#####        RATE-LAW FUNCTIONS FOR HETEROGENEOUS REACTIONS         #####\n  !#####   Some common functions are defined in rateLawUtilFuncs.F90   #####\n  !#########################################################################\n\n  !=========================================================================\n  ! Hetchem rate-law functions for BrNO3\n  !=========================================================================\n\n  FUNCTION BrNO3uptkByH2O( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for BrNO3 + H2O  (cf. Johan Schmidt)\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: gamma, gamLiq, gamIce, srMW      ! local vars\n    !\n    k      = 0.0_dp\n    gamLiq = 0.0021_dp * TEMP - 0.561_dp         ! Rxn prob, liq (Deiber 2004)\n    gamIce = 5.3e-4_dp * EXP( 1100.0_dp / TEMP ) ! Rxn prob on ice\n    srMw   = SR_MW(ind_BrNO3)\n    !\n    ! BrNO3 + H2O on sulfate and sea salt (clear sky)\n    gamma = gamLiq\n    k = k + Ars_L1K( H%ClearFr * H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(SSA), H%xRadi(SSA), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(SSC), H%xRadi(SSC), gamma, srMw )\n    k = k + H%xArea(SLA) * H%KHETI_SLA(BrNO3_plus_H2O)\n    !\n    ! BrNO3 + H2O uptake on irregular ice cloud (clear sky)\n    gamma = 0.3_dp                              ! rxn prob, ice [1]\n    IF ( H%NatSurface ) gamma = 0.001_dp        ! rxn prob, NAT [1]\n    k = k + Ars_L1K( H%ClearFr * H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n    !\n    ! BrNO3 + H2O in tropospheric cloud\n    k = k + CloudHet( H, srMw, gamLiq, gamIce, 1.0_dp, 1.0_dp )\n    !\n    ! Assume BrNO3 is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_BrNO3), C(ind_H2O), k )\n  END FUNCTION BrNO3uptkByH2O\n\n  FUNCTION BrNO3uptkByHCl( H ) RESULT( k )\n    !\n    ! Computes uptake rate for BrNO3(g) + HCl(l,s)\n    ! in polar stratospheric clouds and on tropospheric sulfate.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn prob[1], rxn rate [1/s]\n    REAL(dp)                   :: srMw           ! local vars\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_BrNO3)\n    !\n    ! Apply BrNO3 uptake in stratosphere\n    ! NOTE: NAT and ICE both use the same gamma = 0.3\n    IF ( H %stratBox ) THEN\n       k = k + Ars_L1K( H%xArea(SUL), H%xRadi(SUL), 0.9_dp, srMw )\n       k = k + H%xArea(SLA) * H%KHETI_SLA(BrNO3_plus_HCl)\n       k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), 0.3_dp, srMw )\n    ENDIF\n\n    ! Assume BrNO3 is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_BrNO3), C(ind_HCl), k )\n\n    ! Force to zero if HetRate flag is turned on\n    IF ( H%TurnOffHetRates ) k = 0.0_dp\n\n  END FUNCTION BrNO3uptkByHCl\n\n  !=========================================================================\n  ! Hetchem rate-law functions for ClNO2\n  !=========================================================================\n\n  SUBROUTINE Gam_ClNO2( H, radius, pH, C_Cl, C_Br, gamma, branchCl, branchBr )\n    !\n    ! Calculates reactive uptake coefficient [1] for\n    ! ClNO2 + Cl- and ClNO2 + Br-.\n    !\n    TYPE(HetState), INTENT(IN)   :: H            ! Hetchem State\n    REAL(dp),       INTENT(IN)   :: Radius       ! Radius [cm]\n    REAL(dp),       INTENT(IN)   :: C_Cl         ! Cl- conc [mol/L]\n    REAL(dp),       INTENT(IN)   :: C_Br         ! Br- conc [mol/L]\n    REAL(dp),       INTENT(IN)   :: pH           ! H+ conc\n    REAL(dp),       INTENT(OUT)  :: gamma        ! Rxn prob [1]\n    REAL(dp),       INTENT(OUT)  :: branchCl     ! Branching ratio, Cl path\n    REAL(dp),       INTENT(OUT)  :: branchBr     ! Branching ratio, Br path\n    !\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 0.01_dp ! 1/mass accom coeff\n    REAL(dp), PARAMETER :: D_l    = 1.0e-5_dp        ! Liq phase diffusion coef\n    !\n    REAL(dp) :: cavg, gb_tot, H_X, k_Cl\n    REAL(dp) :: k_Br, k_tot,  l_r, M_X\n    !\n    ! Thermal velocity (cm/s)\n    M_X      = MW(ind_ClNO2) * 1.0e-3_dp\n    cavg     = SQRT( EIGHT_RSTARG_T / ( H%Pi * M_X ) ) * 100.0_dp\n    !\n    ! Henry's law [M/bar]\n    H_X      = 4.5e-2_dp * CON_ATM_BAR\n    !\n    ! Reaction rates (Cl path, Br path, total)\n    k_Cl     = 1.0e+7_dp * C_Cl\n    IF ( pH >= 2.0_dp ) k_Cl = 0.0_dp\n    k_Br     = ( 1.01e-1_dp / ( H_X * H_X * D_l ) ) * C_Br\n    k_tot    = k_Cl + k_Br\n    !\n    ! Uptake coefficient [1] and branching ratios [1] for Cl, Br paths\n    ! Prevent div by zero\n    gamma    = 0.0_dp\n    branchCl = 0.0_dp\n    branchBr = 0.0_dp\n    IF ( k_tot > 0.0_dp ) THEN\n       l_r      = SQRT( D_l / k_tot )\n       gb_tot   = FOUR_R_T * H_X * l_r * k_tot / cavg\n       gb_tot   = gb_tot * ReactoDiff_Corr( radius, l_r )\n       gamma    = 1.0_dp / ( INV_AB +  1.0_dp / gb_tot )\n       branchCl = k_Cl   / k_tot\n       branchBr = k_Br   / k_tot\n    ENDIF\n  END SUBROUTINE Gam_ClNO2\n\n  FUNCTION ClNO2uptkByBrSALA( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] of ClNO2 + BrSALA.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area,     gamma, branch\n    REAL(dp) :: branchBr, dummy, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO2)\n    !\n    ! ClNO2 + BrSALA uptake rate [1/s] in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       CALL Gam_ClNO2(                                                       &\n            H,             H%rLiq, H%phCloud, H%Cl_conc_Cld,                 &\n            H%Br_conc_Cld, gamma,  dummy,     branchBr                      )\n       branch = branchBr * H%frac_Br_CldA\n       k      = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! ClNO2 + BrSALA uptake rate [1/s] on fine sea salt aerosol, in clear sky\n    CALL Gam_ClNO2(                                                          &\n         H,             H%aClRadi,  H%phSSA(1), H%Cl_conc_SSA,               &\n         H%Br_Conc_SSA, gamma,      dummy,      branchBr                    )\n    area = H%ClearFr * H%aClArea\n    k    = k + Ars_L1K( area, H%aClRadi, gamma, srMw ) * branchBr\n\n    ! Assume ClNO2 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO2), C(ind_BrSALA), k )\n  END FUNCTION ClNO2uptkByBrSALA\n\n  FUNCTION ClNO2uptkByBrSALC( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] of ClNO2 + BrSALC.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area,     gamma, branch\n    REAL(dp) :: branchBr, dummy, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO2)\n    !\n    ! ClNO2 + BrSALA uptake rate [1/s] in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       CALL Gam_ClNO2(                                                       &\n            H,             H%rLiq, H%phCloud, H%Cl_conc_Cld,                 &\n            H%Br_conc_Cld, gamma,  dummy,     branchBr                      )\n       branch = branchBr * H%frac_Br_CldC\n       k      = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! ClNO2 + BrSALA uptake rate [1/s] on fine sea salt aerosol, in clear sky\n    CALL Gam_ClNO2(                                                          &\n         H,             H%xRadi(SSC), H%phSSA(2), H%Cl_conc_SSC,             &\n         H%Br_Conc_SSC, gamma,        dummy,      branchBr                  )\n    area = H%ClearFr * H%xArea(SSC)\n    k    = k + Ars_L1K( area, H%xRadi(SSC), gamma, srMw ) * branchBr\n\n    ! Assume ClNO2 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO2), C(ind_BrSALC), k )\n  END FUNCTION ClNO2uptkByBrSALC\n\n  FUNCTION ClNO2uptkByHBr( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] of ClNO2 + HCl.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: gamma, branch, branchBr, dummy, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO2)\n    !\n    ! ClNO2 + HCl uptake rate [1/s] in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       CALL Gam_ClNO2(                                                       &\n            H,             H%rLiq, H%phCloud, H%Cl_conc_Cld,                 &\n            H%Br_conc_Cld, gamma,  dummy,     branchBr                      )\n       branch = branchBr * H%frac_Br_CldG\n       k      = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Assume ClNO2 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO2), C(ind_HBr), k )\n  END FUNCTION ClNO2uptkByHBr\n\n  FUNCTION ClNO2uptkBySALACL( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] of ClNO2 + SALACL.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area,     gamma, branch\n    REAL(dp) :: branchCl, dummy, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO2)\n    !\n    ! ClNO2 + SALACl uptake rate [1/s] in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       CALL Gam_ClNO2(                                                       &\n            H,             H%rLiq, H%phCloud, H%Cl_conc_Cld,                 &\n            H%Br_conc_Cld, gamma,  branchCl,  dummy                         )\n       branch = branchCl * H%frac_Cl_CldA\n       k      = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! ClNO2 + SALACL uptake rate [1/s] on fine sea salt aerosol, in clear sky\n    CALL Gam_ClNO2(                                                          &\n         H,             H%aClRadi,  H%phSSA(1), H%Cl_conc_SSA,               &\n         H%Br_Conc_SSA, gamma,      branchCl,   dummy                       )\n    area = H%ClearFr * H%aClArea\n    k    = k + Ars_L1K( area, H%aClRadi, gamma, srMw ) * branchCl\n\n    ! Assume ClNO2 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO2), C(ind_SALACL), k )\n  END FUNCTION ClNO2uptkBySALACL\n\n  FUNCTION ClNO2uptkBySALCCL( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] of ClNO2 + SALACL.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area,     gamma, branch\n    REAL(dp) :: branchCl, dummy, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO2)\n    !\n    ! ClNO2 + SALCCL uptake rate [1/s] in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       CALL Gam_ClNO2(                                                       &\n            H,             H%rLiq, H%phCloud, H%Cl_conc_Cld,                 &\n            H%Br_conc_Cld, gamma,  branchCl,  dummy                         )\n       branch = branchCl * H%frac_Cl_CldC\n       k      = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Assume ClNO2 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO2), C(ind_SALCCL), k )\n  END FUNCTION ClNO2uptkBySALCCL\n\n  FUNCTION ClNO2uptkByHCl( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] of ClNO2 + HCl.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: gamma, branch, branchCl, dummy, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO2)\n    !\n    ! ClNO2 + HCl uptake rate [1/s] in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       CALL Gam_ClNO2(                                                       &\n            H,             H%rLiq, H%phCloud, H%Cl_conc_Cld,                 &\n            H%Br_conc_Cld, gamma,  branchCl,  dummy                         )\n       branch = branchCl * H%frac_Cl_CldG\n       k      = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Assume ClNO2 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO2), C(ind_HCl), k )\n  END FUNCTION ClNO2uptkByHCl\n\n  !=========================================================================\n  ! Hetchem rate-law functions for ClNO3\n  !=========================================================================\n\n  SUBROUTINE Gam_ClNO3_Aer( H, C_Br, gamma, branchBr )\n    !\n    ! Calculates reactive uptake coefficients [1] for ClNO3 + Br-.\n    !\n    !\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp), INTENT(IN)       :: C_Br     ! Br concentration (mol/L)\n    REAL(dp), INTENT(OUT)      :: gamma    ! Rxn prob [1]\n    REAL(dp), INTENT(OUT)      :: branchBr ! ClNO3 + HBr- branch ratio [1]\n    !\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 0.108_dp   ! 1 / mass accum coeff\n    REAL(dp), PARAMETER :: K_0    = 1.2e+5_dp ** 2.0_dp ! H2k0\n    REAL(dp), PARAMETER :: D_l    = 5.0e-6_dp           ! Deiber et al 2004\n    !\n    REAL(dp) :: M_X, cavg, k_Br, k_tot, gb0, gb2, gb_tot !gbr\n    !\n    ! thermal velocity (cm/s)\n    M_X      = MW(ind_ClNO3) * 1.0e-3_dp\n    cavg     = SQRT( EIGHT_RSTARG_T / ( H%PI * M_X ) ) * 100.0_dp\n    !\n    ! H2k2br cm2 s-1.\n    k_Br     = 1.0e+12_dp * C_Br\n    !\n    ! Calculate gb1 for ClNO3 + Cl-\n    ! Following [Deiber et al., 2004], gamma is not significantly different\n    ! from ClNO3 + H2O (gamma = 0.0244) independent of Cl- concentration,\n    ! but Cl2 rather than HOCl formed. gb2 can be calculated reversely from\n    ! gb1 = gb0 hydrolysis\n    gb0      = FOUR_R_T * 1.2e+5_dp * SQRT( D_l ) / cavg\n    k_tot    = K_0 + k_Br                                    !H2(k0+k2Br)\n    gb_tot   = FOUR_R_T * SQRT( k_tot * D_l ) / cavg\n    !\n    ! Reaction probability for ClNO3 + Br- [1]\n    gamma    = 1.0_dp / ( INV_AB + 1.0_dp / gb_tot )\n    !\n    ! Branching ratio for ClNO3 + HBr-\n    ! BOTE: ClNO3 + Cl- branch ratio = 1.0 - branchBr\n    branchBr = k_Br / k_tot\n  END SUBROUTINE Gam_ClNO3_Aer\n\n  SUBROUTINE Gam_ClNO3_Ice( H, gamma, brHCl, brHBr, brH2O )\n    !\n    ! Computes the reactive uptake probability and branching ratio\n    ! for ClNO3 + H2O, ClNO3 + HCl, and ClNO3 + HBr in ice clouds\n    !\n    TYPE(HetState), INTENT(IN)  :: H             ! Hetchem State\n    REAL(dp),       INTENT(OUT) :: gamma         ! Uptake prob [1]\n    REAL(dp),       INTENT(OUT) :: brHCl         ! ClNO3 + HCl branch ratio\n    REAL(dp),       INTENT(OUT) :: brHBr         ! ClNO3 + HBr branch ratio\n    REAL(dp),       INTENT(OUT) :: brH2O         ! ClNO3 + H2O branch ratio\n    !\n    REAL(dp), PARAMETER :: twenty = 1.0_dp / 0.5_dp\n    !\n    REAL(dp) :: cavg, g1, g2, g3, H2Os, kks, M_X\n    !\n    ! ClNO3 + HCl uptake probability [1]\n    g1    = 0.24_dp * H%HCl_theta\n    !\n    ! ClNO3 + HBr uptake probability [1]\n    g2    = 0.56_dp * H%HBr_theta\n    !\n    ! ClNO3 + H2O uptake probability [1]\n    M_X   = MW(ind_ClNO3) * 1.0e-3_dp\n    cavg  = SQRT( EIGHT_RSTARG_T / ( H%PI * M_X ) ) * 100.0_dp\n    H2Os  = 1e+15_dp - ( 3.0_dp * 2.7e+14_dp * H%HNO3_theta )\n    kks   = 4.0_dp * 5.2e-17_dp * EXP( 2032.0_dp / TEMP )\n    g3    = 1.0_dp / ( twenty + cavg / ( kks * H2Os ) )   ! 1.0/0.5 = 20\n    !\n    ! Total reaction probability\n    gamma = g1 + g2 + g3\n    !\n    ! Branching ratios for each path (HCl, HBr, H2O)\n    brHCl = g1 / gamma\n    brHBr = g2 / gamma\n    brH2O = g3 / gamma\n  END SUBROUTINE Gam_ClNO3_Ice\n\n  FUNCTION ClNO3uptkByH2O( H ) RESULT( k )\n    !\n    ! Computes the hydrolysis reaction rate [1/s] of ClNO3 + H2O.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area,       branchBr, branchLiq\n    REAL(dp) :: branchIce,  dum1,     dum2\n    REAL(dp) :: gamma,      gammaIce, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO3)\n    !\n    ! Rxn rate of ClNO3 + H2O on fine sea salt in clear sky\n    CALL Gam_ClNO3_Aer( H, H%Br_conc_SSA, gamma, branchBr )\n    area      = H%ClearFr * H%aClArea\n    branchLiq = ( 1.0_dp - branchBr ) * ( 1.0_dp - H%frac_SALACL )\n    k         = k + Ars_L1K( area, H%aClRadi, gamma, srMw ) * branchLiq\n    !\n    ! Rate of ClNO3 + H2O on stratospheric liquid aerosol\n    k = k + H%xArea(SLA) * H%KHETI_SLA(ClNO3_plus_H2O)\n    !\n    ! Rate of ClNO3 + H2O on irregular ice cloud\n    gamma = 0.3_dp                               ! Rxn prob, ice [1]\n    IF ( H%NatSurface ) gamma = 0.004_dp         ! Rxn prob, NAT [1]\n    k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n    !\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! ClNO3 + H2O uptake prob [1] in liquid tropospheric cloud\n       CALL Gam_ClNO3_Aer( H, H%Br_conc_Cld, gamma, branchBr )\n       branchLiq = 1.0_dp - branchBr\n       !\n       ! ClNO3 + H2O uptake prob [1] in tropospheric ice cloud\n       CALL Gam_ClNO3_Ice( H, gammaIce, dum1, dum2, branchIce )\n       !\n       ! ClNO3 + H2O rxn rate in cloudy tropopsheric grid box\n       k = k + CloudHet( H, srMw, gamma, gammaIce, branchLiq, branchIce )\n    ENDIF\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_H2O), k )\n  END FUNCTION ClNO3uptkByH2O\n\n  FUNCTION ClNO3uptkByHCl( H ) RESULT( k )\n    !\n    ! Computes the rate [1/s] of ClNO3(g) + HCl(l,s).\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: branchIce, dum1,     dum2\n    REAL(dp) :: gamma,     gammaIce, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO3)\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! Rxn rate of ClNO3 + HCl on tropospheric sulfate in stratosphere\n       gamma = 0.1e-4_dp\n       k = k + Ars_L1K( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n       !\n       ! Rate of ClNO3 + HCl on stratospheric liquid aerosol\n       k = k + H%xArea(SLA) * H%KHETI_SLA(ClNO3_plus_HCl)\n       !\n       ! Rate of ClNO3 + HCl on irregular ice cloud\n       gamma = 0.3_dp                               ! Rxn prob, ice [1]\n       IF ( H%NatSurface ) gamma = 0.2_dp           ! Rxn prob, NAT [1]\n       k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n    ELSE\n       !\n       ! NOTE: No ClNO3 + HCl uptake in tropospheric liquid cloud\n       !\n       ! ClNO3 + HCl uptake rate in tropospheric ice cloud\n       CALL Gam_ClNO3_Ice( H, gammaIce, branchIce, dum1, dum2 )\n       k = k + CloudHet( H, srMw, 0.0_dp, gammaIce, 0.0_dp, branchIce )\n    ENDIF\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_HCl), k )\n  END FUNCTION ClNO3uptkByHCl\n\n  FUNCTION ClNO3uptkByHBr( H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] of ClNO3(g) + HBr-.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: branchBr, branchLiq, branchIce, dum1\n    REAL(dp) :: dum2,     gamma,     gammaIce,  srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO3)\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! ClNO3 + HBr uptake rate on stratospheric liquid aerosol\n       k = k + H%xArea(SLA) * H%KHETI_SLA(ClNO3_plus_HBr)\n       !\n       ! ClNO3 + HBr uptake rate  on irregular ice cloud\n       gamma = 0.3_dp             ! Rxn prob, ice and NAT [1]\n       k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n    ELSE\n       !\n       ! ClNO3 + HBr uptake rate in tropospheric liquid cloud\n       CALL Gam_ClNO3_Aer( H, H%Br_conc_Cld, gamma, branchBr )\n       branchLiq = branchBr * H%frac_Br_CldG\n       !\n       ! ClNO3 + HBr uptake rate in tropospheric ice cloud\n       CALL Gam_ClNO3_Ice( H, gammaIce, dum1, branchIce, dum2 )\n       !\n       ! ClNO3 + HBr overall uptake rate, accounting for cloud fraction\n       k = CloudHet( H, srMw, gamma, gammaIce, branchLiq, branchIce )\n    ENDIF\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_HBr), k )\n\n    ! Force to zero if HetRate flag is turned on\n    IF ( H%TurnOffHetRates ) k = 0.0_dp\n\n  END FUNCTION ClNO3uptkByHBr\n\n  FUNCTION ClNO3uptkByBrSALA( H ) RESULT( k )\n    !\n    ! Computes rxn rate [1/s] of ClNO3 + BrSALA.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area, branch, branchBr, gamma, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO3)\n    !\n    ! First compute uptake of ClNO3 + BrSALA in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! Compute ClNO3 + BrSALA uptake rate & branching ratio\n       CALL Gam_ClNO3_Aer( H, H%Br_conc_Cld, gamma, branchBr )\n       branch = branchBr * H%frac_Br_CldA\n       !\n       ! Compute ClNO3 + BrSALA uptake rate accounting for cloud fraction\n       k = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Compute uptake rate of ClNO3 + BrSALA in clear sky\n    CALL Gam_ClNO3_Aer( H, H%Br_conc_SSA, gamma, branchBr )\n    area = H%ClearFr * H%aClArea\n    k    = k + Ars_L1K( area, H%aClRadi, gamma, srMw ) * branchBr\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_BrSALA), k )\n\n    ! Force to zero if HetRate flag is turned on\n    IF ( H%TurnOffHetRates ) k = 0.0_dp\n\n  END FUNCTION ClNO3uptkByBrSALA\n\n  FUNCTION ClNO3uptkByBrSALC( H ) RESULT( k )\n    !\n    ! Computes rxn rate [1/s] of ClNO3 + BrSALC.\n    !\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: k\n    !\n    REAL(dp) :: area, branch, branchBr, gamma, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_ClNO3)\n    !\n    ! First compute uptake of ClNO3 + BrSALA in tropospheric cloud\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! Compute ClNO3 + BrSALA uptake rate & branching ratio\n       CALL Gam_ClNO3_Aer( H, H%Br_conc_Cld, gamma, branchBr )\n       branch = branchBr * H%frac_Br_CldC\n       !\n       ! Compute ClNO3 + BrSALA uptake rate accounting for cloud fraction\n       k = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Compute uptake rate of ClNO3 + BrSALA in clear sky\n    CALL Gam_ClNO3_Aer( H, H%Br_conc_SSC, gamma, branchBr )\n    area = H%ClearFr * H%xArea(SSC)\n    k    = k + Ars_L1K( area, H%xRadi(SSC), gamma, srMw ) * branchBr\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_BrSALC), k )\n\n    ! Force to zero if HetRate flag is turned on\n    IF ( H%TurnOffHetRates ) k = 0.0_dp\n\n  END FUNCTION ClNO3uptkByBrSALC\n\n  FUNCTION ClNO3uptkBySALACL( H ) RESULT( k )\n    !\n    ! Computes rxn rate [1/s] of ClNO3 + SALACL.\n    !\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: k\n    !\n    REAL(dp) :: area, branch, branchBr, gamma, srMw\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! Compute uptake rate of ClNO3 + BrSALA in clear sky\n    CALL Gam_ClNO3_Aer( H, H%Br_conc_SSA, gamma, branchBr )\n    srMw   = SR_MW(ind_ClNO3)\n    area   = H%ClearFr * H%aClArea\n    branch = ( 1.0_dp - branchBr ) * H%frac_SALACL\n    k      = k + Ars_L1K( area, H%aClRadi, gamma, srMw )* branch\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_SALACL), k )\n\n  END FUNCTION ClNO3uptkBySALACL\n\n  FUNCTION ClNO3uptkBySALCCL( H ) RESULT( k )\n    !\n    ! Computes rxn rate [1/s] of ClNO3 + SALCCL.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area, branch, branchBr, gamma, srMw\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! Compute uptake rate of ClNO3 + BrSALA in clear sky\n    CALL Gam_ClNO3_Aer( H, H%Br_conc_SSC, gamma, branchBr )\n    srMw   = SR_MW(ind_ClNO3)\n    area   = H%ClearFr * H%xArea(SSC)\n    branch = 1.0_dp - branchBr\n    k      = k + Ars_L1K( area, H%xRadi(SSC), gamma, srMw ) * branch\n    !\n    ! Assume ClNO3 is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_ClNO3), C(ind_SALCCL), k )\n  END FUNCTION ClNO3uptkBySALCCL\n\n  !=========================================================================\n  ! Hetchem rate-law functions for HBr\n  !=========================================================================\n\n  FUNCTION HBrUptkBySALA( H ) RESULT( k )\n    !\n    ! Computes uptake rate of HBr on fine sea salt (in clear-sky).\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: area, gamma    ! local vars\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    area  = H%ClearFr * H%aClArea\n    gamma = 1.3e-8_dp * EXP( 4290.0_dp / TEMP )\n    k     = Ars_L1K( area, H%aClRadi, gamma, SR_MW(ind_HBr) )\n  END FUNCTION HBrUptkBySALA\n\n  FUNCTION HBrUptkBySALC( H ) RESULT( k )\n    !\n    ! Computes uptake rate of HBr on coarse sea salt (in clear-sky).\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: area, gamma    ! local vars\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    area  = H%ClearFr * H%xArea(SSC)\n    gamma = 1.3e-8_dp * EXP( 4290.0_dp / TEMP )\n    k     = Ars_L1K( area, H%xRadi(SSC), gamma, SR_MW(ind_HBr) )\n  END FUNCTION HBrUptkBySALC\n\n  !=========================================================================\n  ! Hetchem rate-law functions for HO2\n  !=========================================================================\n\n  FUNCTION HO2uptk1stOrd( H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for 1st order uptake of HO2.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! HetChem State\n    REAL(dp)                   :: srMw, k        ! sqrt(mol wt), rxn rate [1/s]\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HO2)\n    !\n    ! Uptake by various aerosol types\n    k = k + Ars_L1k( H%xArea(DU1), H%xRadi(DU1), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(DU2), H%xRadi(DU2), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(DU3), H%xRadi(DU3), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(DU4), H%xRadi(DU4), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(DU5), H%xRadi(DU5), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(DU6), H%xRadi(DU6), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(DU7), H%xRadi(DU7), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(BKC), H%xRadi(BKC), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(SSA), H%xRadi(SSA), H%gamma_HO2, srMw )\n    k = k + Ars_L1k( H%xArea(SSC), H%xRadi(SSC), H%gamma_HO2, srMw )\n  END FUNCTION HO2uptk1stOrd\n\n  !=========================================================================\n  ! Hetchem rate-law functions for HOBr\n  !=========================================================================\n\n  FUNCTION Br2_Yield( Br_over_Cl ) RESULT( Y_Br2 )\n    !\n    ! Returns yield [1] of Br2 from the Br- / Cl- ratio.\n    !\n    REAL(dp), INTENT(IN) :: Br_over_Cl           ! Br- / Cl- ratio\n    REAL(dp)             :: Y_Br2                ! local vars\n\n    ! Yield of Br2\n    Y_Br2 = 0.0_dp\n    IF ( Br_over_Cl > 0.0_dp ) THEN\n       Y_Br2 = 0.41_dp * LOG10( Br_over_Cl ) + 2.25_dp\n       Y_Br2 = MAX( MIN( Y_Br2, 0.9_dp ), 0.0_dp )\n    ENDIF\n  END FUNCTION Br2_Yield\n\n  SUBROUTINE Gam_HOBr_Aer( H, radius, C_Hp, C_Clm, C_Brm, gamma )\n    !\n    ! Returns uptake probability [1] for HOBr on aerosols.\n    !\n    TYPE(HetState), INTENT(IN)  :: H             ! Hetchem State\n    REAL(dp),       INTENT(IN)  :: radius        ! Aerosol radius\n    REAL(dp),       INTENT(IN)  :: C_Hp          ! H+ concentration\n    REAL(dp),       INTENT(IN)  :: C_Clm         ! Cl- concentration\n    REAL(dp),       INTENT(IN)  :: C_Brm         ! Br- concentration\n    REAL(dp),       INTENT(OUT) :: gamma         ! Uptake probability [1/s]\n    !\n    REAL(dp) :: M_X,   cavg,      H_X\n    REAL(dp) :: l_r,   C_Hp1,     C_Hp2\n    REAL(dp) :: k_tot, k_HOBr_Cl, k_HOBr_Br, gb_tot\n\n    !\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 0.6_dp ! Inv. mass accum coef\n    REAL(dp), PARAMETER :: D_l    = 1.4e-5_dp       ! Amman et al, ACP, 2013\n    !\n    ! Henry's law\n    H_X       = ( HENRY_K0(ind_HOBr) * CON_ATM_BAR )                         &\n              * EXP( HENRY_CR(ind_HOBr) * ( 1.0_dp/TEMP - INV_T298 ) )\n    !\n    ! Thermal velocity [cm/s]\n    M_X       = MW(ind_HOBr) * 1.0e-3_dp\n    cavg      = SQRT( EIGHT_RSTARG_T / ( H%PI * M_X ) ) * 100.0_dp\n    !\n    ! Follow Roberts et al, (2014)\n    C_Hp1     = MAX( MIN( C_Hp, 1.0e-6_dp ), 1.0e-9_dp )\n    C_Hp2     = MAX( MIN( C_Hp, 1.0e-2_dp ), 1.0e-6_dp )\n    !\n    ! Rates for each HOBr + {Cl-, Br-} rxn\n    k_HOBr_Cl = 2.3e+10_dp * C_Clm     * C_Hp1  ! Liu & Margerum, EST, 2001\n    k_HOBr_Br = 1.6e+10_dp * C_Brm     * C_Hp2  ! ??\n    k_tot     = k_HOBr_Cl  + k_HOBr_Br\n    !\n    ! Compute reactive uptake coefficient [unitless], prevent div by zero\n    ! l_r is diffusive length scale [cm];\n    ! gb is Bulk reaction coefficient [unitless]\n    gamma     = 0.0_dp\n    IF ( k_tot > 0.0_dp ) THEN\n       l_r    = SQRT( D_l / k_tot )\n       gb_tot = FOUR_R_T * H_X * l_r * k_tot / cavg\n       gb_tot = gb_tot * ReactoDiff_Corr( radius, l_r )\n       gamma  = 1.0_dp / ( INV_AB + 1.0 / gb_tot )\n    ENDIF\n  END SUBROUTINE Gam_HOBr_Aer\n\n  SUBROUTINE Gam_HOBr_Cld( H,         gamma,     k_tot,                      &\n                           k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3, k_HOBr_HSO3_2 )\n    !\n    ! Returns uptake probability for HOBr in clouds.\n    !\n    TYPE(HetState), INTENT(IN)  :: H        ! Hetchem species metadata\n    REAL(dp),       INTENT(OUT) :: gamma\n    REAL(dp),       INTENT(OUT) :: k_tot\n    REAL(dp),       INTENT(OUT) :: k_HOBr_Cl\n    REAL(dp),       INTENT(OUT) :: k_HOBr_Br\n    REAL(dp),       INTENT(OUT) :: k_HOBr_HSO3\n    REAL(dp),       INTENT(OUT) :: k_HOBr_HSO3_2\n    !\n    REAL(dp) :: gd,   M_X,  cavg,  H_X,   gb_tot\n    REAL(dp) :: ybr2, l_r,  C_Hp1, C_Hp2, Br_over_Cl\n    !\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 0.6_dp ! Inv. mass accum coef\n    REAL(dp), PARAMETER :: D_l    = 1.4e-5_dp       ! Amman et al, ACP, 2013\n    !\n    ! Henry's law\n    H_X    = ( HENRY_K0(ind_HOBr) * CON_ATM_BAR )                            &\n           * EXP( HENRY_CR(ind_HOBr) * ( 1.0_dp/TEMP - INV_T298 ) )\n    !\n    ! Thermal velocity [cm/s]\n    M_X    = MW(ind_HOBr) * 1.0e-3_dp\n    cavg   = SQRT( EIGHT_RSTARG_T / ( H%PI * M_X ) ) * 100.0_dp\n    !\n    ! Follow Roberts et al, (2014)\n    C_Hp1  = MIN( H%H_conc_lCl, 1.0e-6_dp )\n    C_Hp2  = MIN( H%H_conc_lCl, 1.0e-2_dp )\n    C_Hp1  = MAX( C_Hp1,        1.0e-9_dp )\n    C_Hp2  = MAX( C_Hp2,        1.0e-6_dp )\n    !\n    ! Rates for each HOBr + {Cl-, Br-, HSO3-, HSO3--} rxn\n    k_HOBr_Cl     = 2.3e+10_dp * H%Cl_conc_Cld * C_Hp1  ! Liu & Margerum, EST, 2001\n    k_HOBr_Br     = 1.6e+10_dp * H%Br_conc_Cld * C_Hp2  ! ??\n    k_HOBr_HSO3   = 2.6e+7_dp  * H%HSO3_aq ! Liu and Abbatt, GRL, 2020\n    k_HOBr_HSO3_2 = 5.0e+9_dp  * H%SO3_aq  ! Troy & Margerum, Inorg. Chem., 1991\n    !\n    ! Total rate\n    k_tot  = k_HOBr_Cl + k_HOBr_Br + k_HOBr_HSO3 + k_HOBr_HSO3_2\n    !\n    ! Compue reactive uptake coefficient [unitless], prevent div by zero\n    ! l_r is diffusive length scale [cm];\n    ! gb is Bulk reaction coefficient [unitless]\n    gamma  = 0.0_dp\n    IF ( k_tot > 0.0_dp ) THEN\n       l_r    = SQRT( D_l / k_tot )\n       gb_tot = FOUR_R_T * H_X * l_r * k_tot / cavg\n       gb_tot = gb_tot * ReactoDiff_Corr( H%rLiq, l_r )\n       gamma  = 1.0_dp / ( INV_AB + 1.0 / gb_tot )\n    ENDIF\n  END SUBROUTINE Gam_HOBr_Cld\n\n  SUBROUTINE Gam_HOBr_Ice( H, gamma, branch_HCl, branch_HBr )\n    !\n    ! Calculates total reactive uptake coefficient for\n    ! HOBr + HCl and HOBr + HBr in ice clouds.\n    !\n    TYPE(HetState), INTENT(IN)  :: H              ! Hetchem State\n    REAL(dp),       INTENT(OUT) :: gamma          ! Total rxn prob [1]\n    REAL(dp),       INTENT(OUT) :: branch_HCl     ! HCl branch ratio\n    REAL(dp),       INTENT(OUT) :: branch_HBr     ! HBr branch ratio\n    !\n    REAL(dp) :: gamma_HCl, gamma_HBr              ! local vars\n    !\n    ! Overall uptake prob. of  HOBr+HCl and HOBr+HBr together\n    gamma_HCl = H%HCl_theta * 0.25_dp\n    gamma_HBr = H%HBr_theta * 4.8e-4_dp * EXP( 1240.0_dp / TEMP )\n    gamma     = gamma_HCl + gamma_HBr\n    !\n    ! Branching ratios HCl/total and HBr/total\n    branch_HCl = 0.0_dp\n    branch_HBr = 0.0_dp\n    IF ( gamma > 0.0_dp ) THEN\n       branch_HCl = gamma_HCl / gamma\n       branch_HBr = gamma_HBr / gamma\n    ENDIF\n  END SUBROUTINE Gam_HOBr_Ice\n\n  FUNCTION HOBrUptkByHBr( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + HBr reaction\n    ! in the stratosphere and in tropospheric clouds.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: branch,       branch_0,     brIce\n    REAL(dp) :: brLiq,        dummy,        gammaLiq\n    REAL(dp) :: gammaIce,     k_HOBr_Cl,    k_HOBr_Br\n    REAL(dp) :: k_HOBr_HSO3m, k_HOBr_SO3mm, k_tot\n    REAL(dp) :: srMw\n    !\n    k        = 0.0_dp\n    brIce    = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaIce = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! Uptake on tropospheric (origin) sulfate in stratosphere\n       gammaLiq = 0.25_dp\n       k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaLiq, srMw )\n       !\n       ! Uptake on strat sulfate liquid aerosol\n       k = k + H%xArea(SLA) * H%KHETI_SLA(HOBr_plus_HBr)\n       !\n       ! Uptake on irregular ice cloud\n       gammaIce = 0.3_dp\n       IF ( H%natSurface ) gammaIce = 0.001_dp\n       k = k + Ars_L1k( H%xArea(IIC), H%xRadi(IIC), gammaIce, srMw )\n       !\n    ELSE\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm                )\n       !\n       ! Branching ratio for liquid path of HOBr + HBr\n       branch_0 = ( k_HOBr_Cl + k_HOBr_Br ) / k_tot\n       branch   = branch_0 * 0.9_dp\n       IF ( H%Br_over_Cl_Cld <=  5.0e-4_dp ) THEN\n          branch = branch_0 * Br2_Yield( H%Br_over_Cl_Cld )\n       ENDIF\n       brLiq = branch * H%frac_Br_CldG\n       !\n       ! Overall probability of HOBr uptake and\n       ! ice-path branching ratio for HOBr + HBr\n       CALL Gam_HOBr_Ice( H, gammaIce, dummy, brIce )\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, gammaIce, brLiq, brIce )\n       !\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_HBr), k )\n  END FUNCTION HOBrUptkByHBr\n\n  FUNCTION HOBrUptkByHCl( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + HCl reaction\n    ! which only occurs in the stratosphere.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: branch,       branch_0,     brIce\n    REAL(dp) :: brLiq,        dummy,        gammaLiq\n    REAL(dp) :: gammaIce,     k_HOBr_Cl,    k_HOBr_Br\n    REAL(dp) :: k_HOBr_HSO3m, k_HOBr_SO3mm, k_tot\n    REAL(dp) :: srMw\n    !\n    k        = 0.0_dp\n    brIce    = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaIce = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! Uptake on tropospheric (origin) sulfate in stratosphere\n       gammaLiq = 0.2_dp\n       k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaLiq, srMw )\n       !\n       ! Uptake on strat sulfate liquid aerosol\n       k = k + H%xArea(SLA) * H%KHETI_SLA(HOBr_plus_HCl)\n       !\n       ! Uptake on irregular ice cloud\n       gammaIce = 0.3_dp\n       IF ( H%natSurface ) gammaIce = 0.1_dp\n       k = k + Ars_L1k( H%xArea(IIC), H%xRadi(IIC), gammaIce, srMw )\n       !\n    ELSE\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm                )\n       !\n       ! Branching ratio for liquid path of HOBr + HCl\n       branch_0 = ( k_HOBr_Cl + k_HOBr_Br ) / k_tot\n       branch   = branch_0 * 0.1_dp\n       IF ( H%Br_over_Cl_Cld <= 5.0e-4_dp ) THEN\n          branch = branch_0 * ( 1.0_dp - Br2_Yield( H%Br_over_Cl_Cld ) )\n       ENDIF\n       brLiq = branch * H%frac_Cl_CldG\n       !\n       ! Overall probability of HOBr uptake and\n       ! ice-path branching ratio for HOBr + HCl\n       CALL Gam_HOBr_Ice( H, gammaIce, brIce, dummy )\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, gammaIce, brLiq, brIce )\n       !\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_HCl), k )\n  END FUNCTION HOBrUptkByHCl\n\n  FUNCTION HOBrUptkByBrSALA( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + BrSALA reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,         branch,    branch_0\n    REAL(dp) :: brLiq,        gammaAer,  gammaLiq\n    REAL(dp) :: k_HOBr_Cl,    k_HOBr_Br, k_HOBr_HSO3m\n    REAL(dp) :: k_HOBr_SO3mm, k_tot,     srMw\n    !\n    k        = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaAer = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF (  .not. H%stratBox ) THEN\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm )\n       !\n       ! Branching ratio for liquid path of HOBr + BrSALA in cloud\n       branch_0 = ( k_HOBr_Cl + k_HOBr_Br ) / k_tot\n       branch   = branch_0 * 0.9_dp\n       IF ( H%Br_over_Cl_Cld <= 5.0e-4_dp ) THEN\n          branch = branch_0 * Br2_Yield( H%Br_over_Cl_Cld )\n       ENDIF\n       brLiq = branch * H%frac_Br_CldA\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, 0.0_dp, brLiq, 0.0_dp )\n       !\n    ENDIF\n    !\n    ! Now consider HOBr uptake by acidic BrSALA in clear-sky\n    IF ( H%SSA_is_Acid ) THEN\n       !\n       ! Uptake probability [1]\n       CALL Gam_HOBr_Aer( H,             H%aClRadi,     H%H_conc_SSA,        &\n                          H%Cl_conc_SSA, H%Br_conc_SSA, gammaAer            )\n       !\n       ! Branching ratio (depends on Br- / Cl- ratio)\n       branch = 0.9_dp\n       IF ( H%Br_over_Cl_SSA <= 5.0e-4_dp ) THEN\n          branch = Br2_Yield( H%Br_over_Cl_SSA )\n       ENDIF\n       !\n       ! Uptake rate [1/s]\n       area = H%ClearFr * H%aClArea * H%f_Acid_SSA\n       k    = k + Ars_L1K( area, H%aClRadi, gammaAer, srMw ) * branch\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_BrSALA), k )\n  END FUNCTION HOBrUptkByBrSALA\n\n  FUNCTION HOBrUptkByBrSALC( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + BrSALC reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,         branch,    branch_0\n    REAL(dp) :: brLiq,        gammaAer,  gammaLiq\n    REAL(dp) :: k_HOBr_Cl,    k_HOBr_Br, k_HOBr_HSO3m\n    REAL(dp) :: k_HOBr_SO3mm, k_tot,     srMw\n    !\n    k        = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaAer = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm )\n       !\n       ! Branching ratio for liquid path of HOBr + BrSALC in cloud\n       branch_0 = ( k_HOBr_Cl + k_HOBr_Br ) / k_tot\n       branch   = branch_0 * 0.9_dp\n       IF ( H%Br_over_Cl_Cld <= 5.0e-4_dp ) THEN\n          branch = branch_0 * Br2_Yield( H%Br_over_Cl_Cld )\n       ENDIF\n       brLiq = branch * H%frac_Br_CldC\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, 0.0_dp, brLiq, 0.0_dp )\n       !\n    ENDIF\n    !\n    ! Now consider HOBr uptake by acidic BrSALC in clear-sky\n    IF ( H%SSC_is_Acid ) THEN\n       !\n       ! Uptake probability [1]\n       CALL Gam_HOBr_Aer( H,             H%xRadi(SSC),  H%H_conc_SSC,       &\n                          H%Cl_conc_SSC, H%Br_conc_SSC, gammaAer           )\n       !\n       ! Branching ratio (depends on Br- / Cl- ratio)\n       branch = 0.9_dp\n       IF ( H%Br_over_Cl_SSC <= 5.0e-4_dp ) THEN\n          branch = Br2_Yield( H%Br_over_Cl_SSC )\n       ENDIF\n       !\n       ! Uptake rate [1/s]\n       area = H%ClearFr * H%xArea(SSC) * H%f_Acid_SSC\n       k    = k + Ars_L1K( area, H%xRadi(SSC), gammaAer, srMw ) * branch\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_BrSALC), k )\n  END FUNCTION HOBrUptkByBrSALC\n\n  FUNCTION HOBrUptkBySALACL( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + SALACL reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,         branch,    branch_0\n    REAL(dp) :: brLiq,        gammaAer,  gammaLiq\n    REAL(dp) :: k_HOBr_Cl,    k_HOBr_Br, k_HOBr_HSO3m\n    REAL(dp) :: k_HOBr_SO3mm, k_tot,     srMw\n    !\n    k        = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaAer = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm )\n       !\n       ! Branching ratio for liquid path of HOBr + SALACL in cloud\n       branch_0 = ( k_HOBr_Cl + k_HOBr_Br ) / k_tot\n       branch   = branch_0 * 0.1_dp\n       IF ( H%Br_over_Cl_Cld <= 5.0e-4_dp ) THEN\n          branch = branch_0 * ( 1.0_dp - Br2_Yield( H%Br_over_Cl_Cld )  )\n       ENDIF\n       brLiq = branch * H%frac_Cl_CldA\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, 0.0_dp, brLiq, 0.0_dp )\n       !\n    ENDIF\n    !\n    ! Now consider HOBr uptake by acidic SALACL in clear-sky\n    IF ( H%SSA_is_Acid ) THEN\n       !\n       ! Uptake probability [1]\n       CALL Gam_HOBr_Aer( H,             H%aClRadi,     H%H_conc_SSA,        &\n                          H%Cl_conc_SSA, H%Br_conc_SSA, gammaAer            )\n       !\n       ! Branching ratio (depends on Br- / Cl- ratio)\n       branch = 0.1_dp\n       IF ( H%Br_over_Cl_SSA <= 5.0e-4_dp ) THEN\n          branch = 1.0_dp - Br2_Yield( H%Br_over_Cl_SSA )\n       ENDIF\n       !\n       ! Uptake rate [1/s]\n       area = H%ClearFr * H%aClArea * H%f_Acid_SSA\n       k    = k + Ars_L1K( area, H%aClRadi, gammaAer, srMw ) * branch\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_SALACL), k )\n  END FUNCTION HOBrUptkBySALACL\n\n  FUNCTION HOBrUptkBySALCCL( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + SALCCL reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,         branch,    branch_0\n    REAL(dp) :: brLiq,        gammaAer,  gammaLiq\n    REAL(dp) :: k_HOBr_Cl,    k_HOBr_Br, k_HOBr_HSO3m\n    REAL(dp) :: k_HOBr_SO3mm, k_tot,     srMw\n    !\n    k        = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaAer = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF ( .not. H%stratBox  ) THEN\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm )\n       !\n       ! Branching ratio for liquid path of HOBr + SALACL in cloud\n       branch_0 = ( k_HOBr_Cl + k_HOBr_Br ) / k_tot\n       branch   = branch_0 * 0.1_dp\n       IF ( H%Br_over_Cl_Cld <= 5.0e-4_dp ) THEN\n          branch = branch_0 * ( 1.0_dp -  Br2_Yield( H%Br_over_Cl_Cld ) )\n       ENDIF\n       brLiq = branch * H%frac_Cl_CldC\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, 0.0_dp, brLiq, 0.0_dp )\n       !\n    ENDIF\n    !\n    ! Now consider HOBr uptake by acidic SALCCL in clear-sky\n    IF ( H%SSC_is_Acid ) THEN\n       !\n       ! Uptake probability [1]\n       CALL Gam_HOBr_Aer( H,             H%xRadi(SSC),  H%H_conc_SSC,        &\n                          H%Cl_conc_SSC, H%Br_conc_SSC, gammaAer            )\n       !\n       ! Branching ratio (depends on Br- / Cl- ratio)\n       branch = 0.1_dp\n       IF ( H%Br_over_Cl_SSC <= 5.0e-4_dp ) THEN\n          branch = 1.0_dp - Br2_Yield( H%Br_over_Cl_SSC )\n       ENDIF\n       !\n       ! Uptake rate [1/s]\n       area = H%ClearFr * H%xArea(SSC) * H%f_Acid_SSC\n       k    = k + Ars_L1K( area, H%xRadi(SSC), gammaAer, srMw ) * branch\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_SALCCL), k )\n  END FUNCTION HOBrUptkBySALCCL\n\n  FUNCTION HOBrUptkByHSO3m( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + HSO3(-) reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: brLiq,     gammaLiq,     k_HOBr_Cl\n    REAL(dp) :: k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm\n    REAL(dp) :: k_tot,     srMw\n    !\n    k        = 0.0_dp\n    brLiq    = 0.0_dp\n    gammaLiq = 0.0_dp\n    srMw     = SR_MW(ind_HOBr)\n    !\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm )\n       !\n       ! Branching ratio for liquid path of HOBr + HSO3- in cloud\n       brLiq = k_HOBr_HSO3m / k_tot\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, 0.0_dp, brLiq, 0.0_dp )\n       !\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_SO2), k )\n  END FUNCTION HOBrUptkByHSO3m\n\n  FUNCTION HOBrUptkBySO3mm( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOBr + HSO3(-) reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: brLiq,     gammaLiq,     k_HOBr_Cl\n    REAL(dp) :: k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm\n    REAL(dp) :: k_tot,     srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOBr)\n    !\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOBr + HBr rxn probability in tropospheric liquid cloud\n       CALL Gam_HOBr_CLD(                                                    &\n            H,         gammaLiq,  k_tot,                                     &\n            k_HOBr_Cl, k_HOBr_Br, k_HOBr_HSO3m, k_HOBr_SO3mm )\n       !\n       ! Branching ratio for liquid path of HOBr + SO3-- in cloud\n       brLiq = k_HOBr_SO3mm / k_tot\n       !\n       ! Compute overall HOBr removal rate in cloud\n       k = k + CloudHet( H, srMw, gammaLiq, 0.0_dp, brLiq, 0.0_dp )\n       !\n    ENDIF\n\n    ! Assume HOBr is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_HOBr), C(ind_SO2), k )\n\n  END FUNCTION HOBrUptkBySO3mm\n\n  !=========================================================================\n  ! Hetchem rate-law functions for HOCl\n  !=========================================================================\n\n  SUBROUTINE Gam_HOCl_Cld( H, gamma, branchCl, branchSO3 )\n    !\n    ! Computes the uptake coefficient [1] of HOCl + HSO3 and HOCl + SO3.\n    ! Returns reaction rates of Cl and SO3 paths to compute branching ratios.\n    !\n    TYPE(HetState), INTENT(IN)  :: H             ! Hetchem State\n    REAL(dp),       INTENT(OUT) :: gamma         ! Rxn prob [1]\n    REAL(dp),       INTENT(OUT) :: branchCl      ! Branch ratio, Cl path [1]\n    REAL(dp),       INTENT(OUT) :: branchSO3     ! Branch ratio, SO3 path [1]\n    !\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 0.8_dp  ! 1/mass accom coeff\n    REAL(dp), PARAMETER :: D_l    = 2.0e-5_dp        ! Liq diff phase coeff\n    !\n    REAL(dp) :: cavg,  gb_tot, H_X, k_Cl\n    REAL(dp) :: k_SO3, k_tot,  l_r, M_X\n    !\n    ! Reaction rates, Cl and SO3 paths [1/s]\n    k_Cl      = 1.5e+4_dp * H%H_Conc_LCL  * H%Cl_conc_Cld\n    k_SO3     = 2.8e+5_dp * H%TSO3_aq\n    k_tot     = k_Cl + k_SO3\n    !\n    ! Compute reactive uptake coefficient [1] and branching ratio [1], Cl path\n    ! but avoid division by zero\n    gamma     = 0.0_dp\n    branchCl  = 0.0_dp\n    branchSO3 = 0.0_dp\n    !\n    IF ( k_tot > 0.0_dp ) THEN\n       !\n       ! thermal velocity (cm/s)\n       M_X       = MW(ind_HOCl) * 1.0e-3_dp\n       cavg      = SQRT( EIGHT_RSTARG_T / ( H%Pi * M_X ) ) * 100.0_dp\n       !\n       ! Henry's law\n       H_X       = ( HENRY_K0(ind_HOCl) * CON_ATM_BAR )                      &\n                 * EXP( HENRY_CR(ind_HOCl) * ( INV_TEMP - INV_T298 ) )\n       !\n       l_r       = SQRT( D_l / k_tot )\n       gb_tot    = FOUR_R_T * H_X * l_r * k_tot / cavg\n       gb_tot    = gb_tot * ReactoDiff_Corr( H%rLiq, l_r )\n       !\n       gamma     = 1.0_dp / ( INV_AB + 1.0_dp / gb_tot )\n       branchCl  = k_Cl   / k_tot\n       branchSO3 = k_SO3  / k_tot\n    ENDIF\n  END SUBROUTINE Gam_HOCl_Cld\n\n  SUBROUTINE Gam_HOCl_AER( H, radius, C_Hp, C_Cl, gamma )\n    !\n    ! Calculates reactive uptake coefficients [1] for the reactions\n    ! HOCl + SALACL and HOCl + SALCCL.\n    !\n    TYPE(HetState), INTENT(IN)  :: H             ! Hetchem State\n    REAL(dp),       INTENT(IN)  :: radius        ! Radius [cm]\n    REAL(dp),       INTENT(IN)  :: C_Hp          ! H+ conc [mol/L]\n    REAL(dp),       INTENT(IN)  :: C_Cl          ! Cl- conc [mol/L]\n    REAL(dp),       INTENT(OUT) :: gamma\n    !\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 0.8_dp ! 1/mass accum coeff\n    REAL(dp), PARAMETER :: D_l    = 2.0e-5_dp       ! Liq phase diffusion coeff\n    REAL(dp), PARAMETER :: K_TER  = 1.5e+4_dp       ! Units: M-1 s-1\n    !\n    REAL(dp) :: cavg, gb, H_X, l_r, M_X\n    !\n    gamma = 0.0_dp\n    !\n    ! If C_Cl is zero, gamma is zero!\n    IF ( .not. C_Cl > 0.0_dp ) RETURN\n    !\n    ! Thermal velocity (cm/s)\n    M_X   = MW(ind_HOCl) * 1.0e-3_dp\n    cavg  = SQRT( EIGHT_RSTARG_T / ( H%PI * M_X ) ) * 100.0_dp\n    !\n    ! Henry's law\n    H_X   = ( HENRY_K0(ind_HOCl) * CON_ATM_BAR )                             &\n          * EXP( HENRY_CR(ind_HOCl) * ( INV_TEMP - INV_T298 ) )\n    l_r   = SQRT( D_l / ( K_TER * C_Hp * C_Cl ) )\n    gb    = FOUR_R_T * H_X * l_r * K_TER * C_Hp * C_Cl / cavg\n    gb    = gb * ReactoDiff_Corr( radius, l_r )\n    !\n    ! Reactive uptake coefficient [1]\n    gamma = 1.0_dp / ( INV_AB  +  1.0_dp / gb )\n  END SUBROUTINE Gam_HOCl_Aer\n\n  FUNCTION HOClUptkByHCl( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOCl + HBr reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: branch, branchCl, brIce, dummy\n    REAL(dp) :: gamma,  gammaIce, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOCl)\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! HOCl + HBr on tropospheric sulfate in stratosphere\n       gamma = 0.8_dp\n       k = k + Ars_L1K( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n       !\n       ! HOCl + HBr on stratopsheric liquid aerosol\n       k = k + H%xArea(SLA) * H%KHETI_SLA(HOCl_plus_HCl)\n       !\n       ! HOCl + HBr on irregular ice cloud\n       gamma = 0.2_dp                          ! Rxn prob, ice\n       IF ( H%natSurface ) gamma = 0.1_dp      ! Rxn prob, NAT\n       k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n\n       ! Assume HOCl is limiting, so recompute reaction rate accordingly\n       k = kIIR1Ltd( C(ind_HOCl), C(ind_HCl), k )\n       !\n       RETURN\n    ENDIF\n    !\n    ! HOCl + HCl uptake coeff [1] & branch ratio [1] in trop liquid cloud\n    CALL Gam_HOCl_Cld( H, gamma, branchCl, dummy )\n    branch = branchCl * H%frac_Cl_CldG\n    !\n    ! HOCl + HCl uptake coeff [1] & branch ratio [1] in trop ice cloud\n    gammaIce = 0.22_dp * H%HCl_theta\n    brIce    = 1.0_dp\n    !\n    ! Compute overall HOCl + HCl uptake rate accounting for cloud fraction\n    k = k + CloudHet( H, srMw, gamma, gammaIce, branch, brIce )\n    !\n    ! Assume HOCl is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_HOCl), C(ind_HCl), k )\n  END FUNCTION HOClUptkByHCl\n\n  FUNCTION HOClUptkByHBr( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOCl + HBr reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: gamma, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOCl)\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! HOCl + HBr on tropospheric sulfate in stratosphere\n       gamma = 0.8_dp\n       k = k + Ars_L1K( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n       !\n       ! HOCl + HBr on stratopsheric liquid aerosol\n       k = k + H%xArea(SLA) * H%KHETI_SLA(HOCl_plus_HBr)\n       !\n       ! HOCl + HBr on irregular ice cloud (ice and NAT surface)\n       gamma = 0.3_dp\n       k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n    ENDIF\n    !\n    ! Assume HOCl is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_HOCl), C(ind_HBr), k )\n\n    ! Force to zero if HetRate flag is turned on\n    IF ( H%TurnOffHetRates ) k = 0.0_dp\n\n  END FUNCTION HOClUptkByHBr\n\n  FUNCTION HOClUptkBySALACL( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOCl + SALACL reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,  branch, branchCl\n    REAL(dp) :: dummy, gamma,  srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOCl)\n    !\n    ! Compute HOCl + SALACL uptake in tropospheric liquid cloud\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOCl + SALACL uptake coeff [1] & branch ratio [1], liquid path\n       CALL Gam_HOCl_Cld( H, gamma, branchCl, dummy )\n       branch = branchCl * H%frac_Cl_CldA\n       !\n       ! HOCl + HCl uptake rate [1/s] accounting for cloud fraction\n       k = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Compute HOCl + SALACL uptake rate [1/s] on acidic aerosols in clear-sky\n    IF ( H%SSA_is_Acid ) THEN\n       CALL Gam_HOCl_Aer( H, H%aClRadi, H%H_conc_SSA, H%Cl_conc_SSA, gamma )\n       area = H%ClearFr * H%aClArea * H%f_Acid_SSA\n       k    = k + Ars_L1k( area, H%aClRadi, gamma, srMw )\n    ENDIF\n    !\n    ! Assume HOCl is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_HOCl), C(ind_SALACL), k )\n  END FUNCTION HOClUptkBySALACL\n\n  FUNCTION HOClUptkBySALCCL( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOCl + SALCCL reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,  branch, branchCl\n    REAL(dp) :: dummy, gamma,  srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOCl)\n    !\n    ! Compute HOCl + SALACL uptake in tropospheric liquid cloud\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOCl + SALACL uptake coeff [1] & branch ratio [1], liquid path\n       CALL Gam_HOCl_Cld( H, gamma, branchCl, dummy )\n       branch = branchCl * H%frac_Cl_CldC\n       !\n       ! HOCl + HCl uptake rate [1/s] accounting for cloud fraction\n       k = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Compute HOCl + SALCCL uptake rate [1/s] on acidic aerosols in clear-sky\n    IF ( H%SSC_is_Acid ) THEN\n       CALL Gam_HOCl_Aer( H, H%xRadi(SSC), H%H_conc_SSC, H%Cl_conc_SSC, gamma )\n       area = H%ClearFr * H%xArea(SSC) * H%f_Acid_SSC\n       k    = k + Ars_L1k( area, H%xRadi(SSC), gamma, srMw )\n    ENDIF\n    !\n    ! Assume HOCl is limiting, so recompute reaction rate accordingly\n    k = kIIR1Ltd( C(ind_HOCl), C(ind_SALCCL), k )\n  END FUNCTION HOClUptkBySALCCL\n\n  FUNCTION HOClUptkByHSO3m( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOCl + HSO3- reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,  branch, branchSO3\n    REAL(dp) :: dummy, gamma,  srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOCl)\n    !\n    ! Compute HOCl + HSO3- uptake in tropospheric liquid cloud\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOCl + HSO3- uptake coeff [1] & branch ratio [1], liquid path\n       CALL Gam_HOCl_Cld( H, gamma, dummy, branchSO3 )\n       branch = branchSO3 * H%frac_HSO3_aq\n       !\n       ! HOCl + HSO3- uptake rate [1/s] accounting for cloud fraction\n       k = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Assume HOCl is limiting, so recompute reaction rate accordingly\n    ! Convert SO2 to HSO3- with the HSO3-/SO2 ratio\n    k = kIIR1Ltd( C(ind_HOCl), C(ind_SO2), k ) * H%HSO3m\n  END FUNCTION HOClUptkByHSO3m\n\n  FUNCTION HOClUptkBySO3mm( H ) RESULT( k )\n    !\n    ! Computes the uptake rate [1/s] for the HOCl + SO3-- reaction.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    REAL(dp) :: area,  branch, branchSO3\n    REAL(dp) :: dummy, gamma,  srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_HOCl)\n    !\n    ! Compute HOCl + SO3-- uptake in tropospheric liquid cloud\n    IF ( .not. H%stratBox ) THEN\n       !\n       ! HOCl + SO3-- uptake coeff [1] & branch ratio [1], liquid path\n       CALL Gam_HOCl_Cld( H, gamma, dummy, branchSO3 )\n       branch = branchSO3 * H%frac_SO3_aq\n       !\n       ! HOCl + SO3-- uptake rate [1/s] accounting for cloud fraction\n       k = k + CloudHet( H, srMw, gamma, 0.0_dp, branch, 0.0_dp )\n    ENDIF\n    !\n    ! Assume HOCl is limiting, so recompute reaction rate accordingly\n    ! Convert SO2 to SO3-- with the SO3--/SO2 ratio\n    k = kIIR1Ltd( C(ind_HOCl), C(ind_SO2), k ) * H%SO3mm\n  END FUNCTION HOClUptkBySO3mm\n\n  !=========================================================================\n  ! Hetchem rate-law functions for iodine species\n  ! (HI, HOI, I2O2, I2O3, I2O4, IONO2, IONO3)\n  !=========================================================================\n\n  FUNCTION IuptkBySulf1stOrd( srMw, gamma, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for uptake of iodine species\n    ! by sulfate (aerosol types #8 and #13).\n    !\n    REAL(dp),       INTENT(IN) :: srMw, gamma    ! sqrt( mol wt ), rxn prob\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    ! Uptake rate of iodine by tropospheric sulfate\n    k = Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n    !\n    ! For UCX-based mechanisms also allow reaction on stratospheric\n    ! sulfate liq aerosol if tropospheric sulfate is requested\n    k = k + Ars_L1k( H%xArea(SLA), H%xRadi(SLA), gamma, srMw )\n  END FUNCTION IuptkBySulf1stOrd\n\n  FUNCTION IuptkBySALA1stOrd( srMw, gamma, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for uptake of iodine species\n    ! by accumulation-mode (aka fine) sea-salt aerosol.\n    !\n    REAL(dp),       INTENT(IN) :: srMw, gamma    ! sqrt( mol wt ) rxn prob area\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    k = Ars_L1k( H%xArea(SSA), H%xRadi(SSA), gamma, srMw )\n  END FUNCTION IuptkbySALA1stOrd\n\n  FUNCTION IuptkByAlkSALA1stOrd( srMw, gamma, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for uptake of iodine species\n    ! by alkaline accumulation-mode (aka fine) sea-salt aerosol.\n    !\n    REAL(dp),       INTENT(IN) :: srMw, gamma    ! sqrt( mol wt ) rxn prob\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: ssarea         ! alkaline sea salt area\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    IF ( H%SSA_is_Alk ) THEN\n       ssarea = H%f_Alk_SSA * H%xArea(SSA)\n       k = Ars_L1k( ssarea, H%xRadi(SSA), gamma, srMw )\n    ENDIF\n  END FUNCTION IuptkbyAlkSALA1stOrd\n\n  FUNCTION IuptkBySALC1stOrd( srMw, gamma, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for uptake of iodine species\n    ! by coarse-mode sea-salt aerosol.\n    !\n    REAL(dp),       INTENT(IN) :: srMw, gamma    ! sqrt( mol wt ), rxn prob\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    k = Ars_L1k( H%xArea(SSC), H%xRadi(SSC), gamma, srMw )\n  END FUNCTION IuptkBySALC1stOrd\n\n  FUNCTION IuptkByAlkSALC1stOrd( srMw, gamma, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for uptake of iodine species\n    ! by alkaline coarse-mode sea-salt aerosol.\n    !\n    REAL(dp),       INTENT(IN) :: srMw, gamma    ! sqrt( mol wt ), rxn prob\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: ssarea         ! alkaline sea salt area\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    IF ( H%SSC_is_Alk ) THEN\n       ssarea = H%f_Alk_SSC * H%xArea(SSC)\n       k = Ars_L1K( ssarea, H%xRadi(SSC), gamma, srMw )\n    ENDIF\n  END FUNCTION IuptkByAlkSALC1stOrd\n\n  FUNCTION IbrkdnByAcidBrSALA( srMw, conc, gamma, H ) RESULT( k )\n    !\n    ! Breakdown of iodine species on acidic sea-salt (accumulation mode)\n    ! Assume a ratio of IBr:ICl = 0.15:0.85\n    !\n    REAL(dp),       INTENT(IN) :: srMw, conc, gamma\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: k\n    REAL(dp)                   :: ssarea         ! acidic sea salt area\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    IF ( H%SSA_is_Acid ) THEN\n       ssarea = H%f_Acid_SSA * H%xArea(SSA)\n       k = 0.15_dp * Ars_L1K( ssarea, H%xRadi(SSA), gamma, srMw )\n       k = kIIR1Ltd( conc, C(ind_BrSALA), k ) ! conc is limiting, so update k\n    ENDIF\n  END FUNCTION IbrkdnbyAcidBrSALA\n\n  FUNCTION IbrkdnByAcidBrSALC( srMw, conc, gamma, H ) RESULT( k )\n    !\n    ! Breakdown of iodine species on acidic sea-salt (accumulation mode)\n    ! Assume a ratio of IBr:ICl = 0.15:0.85\n    !\n    REAL(dp),       INTENT(IN) :: srMw, conc, gamma\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: k\n    REAL(dp)                   :: ssarea         ! acidic sea salt area\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    IF ( H%SSC_is_Acid ) THEN\n       ssarea = H%f_Acid_SSC * H%xArea(SSC)\n       k = 0.15_dp * Ars_L1K( ssarea, H%xRadi(SSC), gamma, srMw )\n       k = kIIR1Ltd( conc, C(ind_BrSALC), k ) ! conc is limiting, so update k\n    ENDIF\n  END FUNCTION IbrkdnbyAcidBrSALC\n\n  FUNCTION IbrkdnByAcidSALACl( srMw, conc, gamma, H ) RESULT( k )\n    !\n    ! Breakdown of iodine species on acidic sea-salt (accumulation mode)\n    ! Assume a ratio of IBr:ICl = 0.15:0.85\n    !\n    REAL(dp),       INTENT(IN) :: srMw, conc, gamma\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: k\n    REAL(dp)                   :: ssarea         ! acidic sea salt area\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    IF ( H%SSA_is_Acid ) THEN\n       ssarea = H%f_Acid_SSA * H%xArea(SSA)\n       k = 0.85_dp * Ars_L1K( ssarea, H%xRadi(SSA), gamma, srMw )\n       k = kIIR1Ltd( conc, C(ind_SALACl), k ) ! conc is limiting, so update k\n    ENDIF\n  END FUNCTION IbrkdnbyAcidSALACl\n\n  FUNCTION IbrkdnByAcidSALCCl( srMw, conc, gamma, H ) RESULT( k )\n    !\n    ! Breakdown of iodine species on acidic sea-salt (accumulation mode)\n    ! Assume a ratio of IBr:ICl = 0.15:0.85\n    !\n    REAL(dp),       INTENT(IN) :: srMw, conc, gamma\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: k\n    REAL(dp)                   :: ssarea         ! acidic sea salt area\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    IF ( H%SSC_is_Acid ) THEN\n       ssarea = H%f_Acid_SSC * H%xArea(SSC)\n       k = 0.85_dp * ARs_L1K( ssarea, H%xRAdi(SSC), gamma, srMw )\n       k = kIIR1Ltd( conc, C(ind_SALCCl), k ) ! conc is limiting, so update k\n    ENDIF\n  END FUNCTION IbrkdnbyAcidSALCCl\n\n  FUNCTION IONO2uptkByH2O( H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for IONO2 + H2O = HOI + HNO3\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    !\n    REAL(dp) :: area, conc, gamma, srMw\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_IONO2)\n    !\n    ! Tropopsheric sulfate (use T-dependent gamma, cf Deiber et al 2004)\n    area  = H%ClearFr * H%xArea(SUL)\n    gamma = MAX( ( 0.0021_dp * TEMP - 0.561_dp ), 0.0_dp )\n    k     = k + Ars_L1K( area, H%xRadi(SUL), gamma, srMw )\n    !\n    ! Stratospheric liquid aerosol\n    k = k + H%xArea(SLA) * H%KHETI_SLA(BrNO3_plus_H2O)\n    !\n    ! Irregular ice cloud\n    area  = H%ClearFr * H%xArea(IIC)\n    gamma = 0.3_dp\n    IF ( H%natSurface ) gamma = 0.001_dp\n    k = k + Ars_L1K( area, H%xRadi(IIC), gamma, srMw )\n    !\n    ! Also account for cloudy grid box\n    ! Use gamma(liquid) = gamma(ice) = 0.01, to make the uptake coefficient\n    ! consistent with hydrolysis in aerosols (T. Sherwen, 28 Sep 2021)\n    k = k + CloudHet( H, srMw, 0.01_dp, 0.01_dp, 1.0_dp, 1.0_dp )\n    !\n    ! Assume IONO2 is limiting, so update the reaction rate accordingly\n    k = kIIR1Ltd( C(ind_IONO2), C(ind_H2O), k )\n  END FUNCTION IONO2uptkByH2O\n\n  !=========================================================================\n  ! Hetchem rate-law functions for N2O5\n  !=========================================================================\n\n  FUNCTION N2O5uptkByH2O( H ) RESULT( k )\n    !\n    ! Set heterogenous chemistry rate for N2O5.\n    !\n    TYPE(HetState), INTENT(INOUT) :: H\n    REAL(dp)                      :: k\n    !\n    REAL(dp) :: Y_ClNO2, Rp, SA, SA_sum, area, gamma, srMw, ktmp\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_N2O5)\n    !\n    ! Uptake on mineral dust\n    gamma = 0.02_dp\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU1), H%xRadi(DU1), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU2), H%xRadi(DU2), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU3), H%xRadi(DU3), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU4), H%xRadi(DU4), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU5), H%xRadi(DU5), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU6), H%xRadi(DU6), gamma, srMw )\n    k = k + Ars_L1K( H%ClearFr * H%xArea(DU7), H%xRadi(DU7), gamma, srMw )\n    !\n    ! Uptake on tropospheric sulfate\n    ! Reduce the rate of the HNO3 pathway in accordinace with\n    ! the ClNO2 yield on SNA + ORG aerosol\n    ! Reduce ClNO2 yield by 75% (cf McDuffie et al, JGR, 2018)\n    CALL N2O5_InorgOrg(                                                      &\n         H,           H%AClVol,  H%xVol(ORC), H%xH2O(SUL),                   &\n         H%xH2O(ORC), H%AClRadi, C(ind_NIT), C(ind_SALACL),                  &\n         gamma,       Y_ClNO2,   Rp,         SA                             )\n    !\n    ktmp = Ars_L1K( H%ClearFr * SA, Rp, gamma, srMw )\n    k = k + ktmp - ( ktmp * Y_ClNO2 * 0.25_dp )\n    !\n    ! Uptake on black carbon\n    gamma = 0.005_dp\n    k = k + Ars_L1K( H%ClearFr * H%xArea(BKC), H%xRadi(BKC), gamma, srMw )\n    !\n    ! Uptake on coarse sea salt (aerosol type #12)\n    ! Reduce the rate of this HNO3 pathway in accordance with the yield\n    CALL N2O5_InorgOrg(                                                     &\n         H,      H%xVol(SSC),  0.0_dp,      H%xH2O(SSC),                    &\n         0.0_dp, H%xRadi(SSC), C(ind_NITs), C(ind_SALCCL),                  &\n         gamma,  Y_ClNO2,      Rp,          SA                             )\n    !\n    ktmp = Ars_L1k( H%ClearFr * SA, Rp, gamma, srMw )\n    k    = k + ktmp - ( ktmp * Y_ClNO2 )\n    !\n    ! Uptake on stratopsheric liquid aerosol\n    k = k + H%xArea(SLA) * H%KHETI_SLA(N2O5_plus_H2O)\n    !\n    ! Uptake on irregular ice cloud\n    gamma = 0.02_dp                           ! Ice\n    IF ( H%natSurface ) gamma = 4.0e-4_dp    ! NAT\n    k = k + Ars_L1K( H%ClearFr * H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n\n    ! Assume N2O5 is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_N2O5), C(ind_H2O), k )\n  END FUNCTION N2O5uptkByH2O\n\n  FUNCTION N2O5uptkBySALACl( H ) RESULT( k )\n    !\n    ! Computes uptake rate of N2O5 on Cl- in fine sea salt.\n    ! This reaction follows the N2O5 + Cl- channel.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    REAL(dp) :: gamma, Y_ClNO2, Rp, SA           ! local vars\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! Properties of inorganic (SNA) sea salt coated with organics\n    CALL N2O5_InorgOrg(                                                      &\n         H,           H%AClVol,  H%xVol(ORC), H%xH2O(SUL),                   &\n         H%xH2O(ORC), H%aClRadi, C(ind_NIT),  C(ind_SALACL),                 &\n         gamma,       Y_ClNO2,   Rp,          SA                            )\n    !\n    ! Total loss rate of N2O5 (kN2O5) on SNA+ORG+SSA aerosol.\n    ! Reduce ClNO2 production yield on fine inorganic+organic\n    ! aerosol by 75% (cf. McDuffie et al, JGR, 2018).\n    k = Ars_L1K( H%ClearFr * SA, Rp, gamma, SR_MW(ind_N2O5)                 )\n    k = k * Y_ClNO2 * 0.25_dp\n    !\n    ! Assume N2O5 is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_N2O5), C(ind_SALACL), k )\n  END FUNCTION N2O5uptkBySALACl\n\n  FUNCTION N2O5uptkBySALCCl( H ) RESULT( k )\n    !\n    ! Computes uptake rate of N2O5 on Cl- in coarse sea salt.\n    ! This reaction follows the N2O5 + Cl- channel.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! Rxn rate [1/s]\n    REAL(dp) :: gamma, Y_ClNO2, Rp, SA           ! local vars\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! Properties of inorganic (SNA) sea salt coated with organics\n    CALL N2O5_InorgOrg(                                                      &\n         H,      H%xVol(SSC),  0.0_dp,      H%xH2O(SSC),                     &\n         0.0_dp, H%xRadi(SSC), C(ind_NITs), C(ind_SALCCL),                   &\n         gamma,  Y_ClNO2,      Rp,          SA                              )\n    !\n    ! Total loss rate of N2O5 (kN2O5) on SNA+ORG+SSA aerosol\n    k = Ars_L1k( H%ClearFr * SA, Rp, gamma, SR_MW(ind_N2O5) )\n    k = k * Y_ClNO2\n    !\n    ! Assume N2O5 is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_N2O5), C(ind_SALCCL), k )\n  END FUNCTION N2O5uptkBySALCCl\n\n  SUBROUTINE N2O5_InorgOrg( H,      volInorg, volOrg, H2Oinorg,              &\n                            H2Oorg, Rcore,    NIT,    Cl,                    &\n                            gamma,  Y_ClNO2,  rp,     areaTotal             )\n    !\n    ! Computes the GAMMA reaction probability for N2O5 loss in inorganic\n    ! (sulfate-nitrate-ammonium-sea salt) aerosols with organic coatings,\n    ! based on the recommendation of McDuffie (2018) JGR.\n    ! The inorganic core is based on Bertram and Thornton ACP (2009).\n    !\n    TYPE(HetState), INTENT(IN) :: H    ! HetState Object\n    REAL(dp), INTENT(IN)  :: volInorg  ! vol of wet inorg aerosol core  [cm3/cm3]\n    REAL(dp), INTENT(IN)  :: volOrg    ! vol of wet org aerosol coating [cm3/cm3]\n    REAL(dp), INTENT(IN)  :: H2Oinorg  ! vol of H2O in inorg core [cm3/cm3]\n    REAL(dp), INTENT(IN)  :: H2Oorg    ! vol of H2O in org coating [cm3/cm3]\n    REAL(dp), INTENT(IN)  :: Rcore     ! radius of inorg core [cm]\n    REAL(dp), INTENT(IN)  :: NIT       ! aer nitrate conc [molec/cm3]\n    REAL(dp), INTENT(IN)  :: Cl        ! aer chloride conc [molecule/cm3]\n    REAL(dp), INTENT(OUT) :: gamma     ! [1]\n    REAL(dp), INTENT(OUT) :: Y_ClNO2   ! [1]\n    REAL(dp), INTENT(OUT) :: rp        ! [cm]\n    REAL(dp), INTENT(OUT) :: areaTotal ! [cm2/cm3]\n    !\n    ! Parameters from Bertram and Thornton (2009) ACP and McDuffie 2018 JGR\n    REAL(dp), PARAMETER   :: KH    = 5.1e+1_dp   !unitless\n    REAL(dp), PARAMETER   :: k3k2b = 4.0e-2_dp   !unitless\n    REAL(dp), PARAMETER   :: beta  = 1.15e+6_dp  ![s-1]\n    REAL(dp), PARAMETER   :: delta = 1.3e-1_dp   ![M-1]\n\n    ! Organic Parameters from Antilla et al., 2006 and Riemer et al., 2009\n    REAL(dp), PARAMETER   :: Haq  = 5e+3_dp ! Henry coef [mol/m3/atm], Antilla\n    REAL(dp), PARAMETER   :: Daq  = 1e-9_dp ! Aq diff coef [m2/s], Riemer\n    REAL(dp), PARAMETER   :: ONE_THIRD = 1.0_dp / 3.0_dp\n    !\n    REAL(dp) :: k2f,      A,        speed,       gamma_core, gamma_coat\n    REAL(dp) :: volTotal, H2Ototal, volRatioDry, l,          eps\n    REAL(dp) :: OCratio,  M_H2O,    M_NIT,       M_Cl,       M_N2O5\n\n    !------------------------------------------------------------------------\n    ! Concentrations, thickness, etc.\n    !------------------------------------------------------------------------\n\n    ! Total volume (organic + inorganic), cm3(aerosol)/cm3(air)\n    volTotal = volInorg + volOrg\n\n    ! Total H2O (organic + inorganic), cm3(H2O)/cm3(air)\n    H2Ototal = H2Oinorg + H2Oorg\n\n    ! Ratio of inorganic to total (organic+inorganic) volumes when dry, unitless\n    volRatioDry = SafeDiv( MAX( volInorg - H2Oinorg, 0.0_dp ),               &\n                           MAX( volTotal - H2Ototal, 0.0_dp ), 0.0_dp       )\n\n    ! Particle radius, cm\n    ! Derived from spherical geometry\n    ! [note: The radius and surface area of a wet particle are\n    ! properly calculated from the wet volume volume ratio (including water).\n    ! We use the dry volume ratio here because McDuffie et al. (2018) fitted\n    ! the N2O5 gamma parameters to field data in a model using the\n    ! dry ratio. cdholmes 7/22/2019]\n    Rp = SafeDiv( Rcore, volRatioDry**ONE_THIRD, Rcore )\n\n    ! Coating thickness, cm\n    l = Rp - Rcore\n\n    ! mean molecular speed [m s-1]\n    ! sqrt( 8RT / (pi M) )\n    M_N2O5  = MW(ind_N2O5) * 1.0e-3_dp\n    speed = SQRT( EIGHT_RSTARG_T / ( H%PI * M_N2O5 ) )\n\n    ! Concentrations [mol/L]\n    M_H2O = H2Ototal / 18e+0_dp / volTotal * 1000.0_dp   ! H2O\n    M_NIT = NIT / volTotal / H%AVO * 1000.0_dp             ! Nitrate\n    M_Cl  = Cl  / volTotal / H%AVO * 1000.0_dp             ! Chloride\n\n    !------------------------------------------------------------------------\n    ! Gamma for the organic shell (cf McDuffie (2018) JGR)\n    !------------------------------------------------------------------------\n\n    !O:C ratio from Eq. 10 of Canagaratna et al., 2015 (ACP)\n    ! Take average OM/OC ratio from /GeosCore/aerosol_mod.F90\n    OCratio = ((( H%OMOC_POA + H%OMOC_OPOA ) / 2.0_dp ) - 1.17_dp ) / 1.29_dp\n\n    ! organic scaling factor (eps(Haq*Daq) = Horg*Dorg)\n    ! from McDuffie (2018) JGR\n    eps = 1.5e-1_dp * OCratio + 1.6e-3_dp * RELHUM\n\n    ! Gamma for coating\n    ! [Rcore, Rp, and l converted cm -> m here]\n    IF ( l <= 0.0e+0_dp ) THEN\n       gamma_coat = 0.0_dp\n    ELSE\n       gamma_coat =                                                          &\n        ( FOUR_RGASLATM_T * 1.0e-3_dp * eps * Haq * Daq * Rcore /100.0_dp )/ &\n        ( speed * l/100.0_dp * Rp/100.0_dp                                )\n    ENDIF\n\n    ! Total particle surface area, cm2/cm3\n    areaTotal = 3.0_dp * volTotal / Rp\n\n    !------------------------------------------------------------------------\n    ! Gamma for the inorganic core\n    ! Implements recommendations by McDuffie (2018) JGR,\n    ! following the general approach from Bertram and Thornton ACP (2009).\n    !------------------------------------------------------------------------\n\n    ! Select dry or deliquesed aerosol based on molar concentration of H2O\n    IF ( M_H2O < 0.1_dp ) THEN\n\n       ! When H2O is nearly zero, use dry aerosol value\n       gamma_core = 0.005_dp\n\n    ELSE\n\n       ! mean molecular speed [cm/s]\n       speed = speed * 1e+2_dp\n\n       ! A factor from Bertram and Thornton (2009), s\n       ! Their paper suggested an approximated value of A = 3.2D-8\n       A = ( ( 4.0_dp * volTotal ) / ( speed * areaTotal ) ) * KH\n\n       ! Cap A at 3.2D-8 to prevent high gamma values when vol/area is high.\n       ! See Github issue: https://github.com/geoschem/geos-chem/issues/907\n       A = MIN( A, 3.2e-8_dp )\n\n       ! k2f - reaction rate constant of N2O5 with H2O\n       ! From McDuffie (2018): k2f = 2.14D5 * H2O\n       ! This linear water dependence is not accurate at large\n       ! (>20 M) aerosol water concentrations. Therefore, k2f is\n       ! calculated following Bertram and Thornton ACP (2009).\n       ! Eq 11 from Bertram and Thronton (2009):\n       ! Modified to avoid underflow when exp(-delta*H2O) ~1\n       IF ( delta * M_H2O < 1e-2_dp ) THEN\n          k2f = beta * ( delta * M_H2O )\n       ELSE\n          k2f = beta * ( 1e+0_dp - exp( -delta * M_H2O ) )\n       ENDIF\n\n       ! Eq 12 from Bertram and Thornton (2009)\n       ! Use safe_div to avoid overflow when NIT ~ 0\n       gamma_core = A * k2f * &\n        (1.0_dp - 1.0_dp / (1.0_dp + SafeDiv(k3k2b*M_H2O, M_NIT, 1.0e+30_dp)))\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Gamma for overall uptake\n    !------------------------------------------------------------------------\n    IF ( gamma_coat <= 0.0_dp ) THEN\n       gamma = gamma_core\n    ELSE IF ( gamma_core <= 0.0_dp ) THEN\n       gamma = 0.0_dp\n    ELSE\n       gamma = 1.0_dp / ( ( 1.0_dp/gamma_core ) + ( 1.0_dp/gamma_coat )      )\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! ClNO2 yield\n    !------------------------------------------------------------------------\n\n    ! Calculate the ClNO2 yield following Bertram and Thornton 2009 ACP\n    Y_ClNO2 = ClNO2_BT( M_Cl, M_H2O )\n  END SUBROUTINE N2O5_InorgOrg\n\n  FUNCTION ClNO2_BT( Cl, H2O ) RESULT( phi )\n    !\n    ! Computes the PHI production yield of ClNO2 from N2O5 loss\n    ! in sulfate-nitrate-ammonium (SNA) aerosols based on the\n    ! recommendation of Bertram and Thornton (2009) ACP.\n    !\n    REAL(dp), INTENT(IN) :: Cl, H2O  ! [mol/L]\n    REAL(dp)             :: PHI\n    REAL(dp), PARAMETER  :: k2k3  = 1.0_dp / 4.5e+2_dp  ! BT 2009\n    !\n    ! When H2O is nearly zero, assign phi accordingly and exit\n    IF ( H2O < 0.1_dp ) THEN\n       phi = 0.0_dp\n       IF ( Cl > 1e-3_dp ) phi = 1.0_dp\n       RETURN\n    ENDIF\n\n    ! Eq from Bertram and Thronton (2009); avoid overflow\n    phi = 1.0_dp / ( 1.0_dp + k2k3 * SafeDiv( H2O, Cl, 1.0e+30_dp )          )\n  END FUNCTION ClNO2_BT\n\n  FUNCTION N2O5uptkByCloud( H ) RESULT( k )\n    !\n    ! Computes uptake of N2O5 on liquid water cloud.\n    !\n    TYPE(HetState), INTENT(IN) :: H\n    REAL(dp)                   :: gamma, k\n    REAL(dp),       PARAMETER  :: const = 0.03_dp / 0.019_dp\n\n    ! Rxn probability is 0.03 at 298 K (JPL, Burkholder et al., 2015).\n    ! For temperature dependence, JPL recommends the same as sulfuric acid\n    ! aerosol at zero percent H2SO4, which is 0.019 at 298 K.\n    ! Then apply constant scale factor (0.03/0.019)\n    gamma = const * EXP( -25.5265_dp + 9283.76_dp/TEMP - 851801.0_dp/TEMP**2)\n    !\n    ! Removal rate of N2O5 in liquid water cloud\n    k = CloudHet( H, SR_MW(ind_N2O5), gamma, 0.02_dp, 1.0_dp, 1.0_dp        )\n  END FUNCTION N2O5uptkByCloud\n\n  FUNCTION N2O5uptkByStratHCl( H ) RESULT( k )\n    !\n    ! Sets heterogenous chemistry rate for N2O5(g) + HCl(l,s)\n    ! in polar stratospheric clouds and on tropospheric sulfate aerosol.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: gamma, k       ! Rxn prob [1], Rxn rate [1/s]\n    !\n    k = 0.0_dp\n    !\n    IF ( H%stratBox ) THEN\n       !\n       ! Uptake on stratospheric liquid aerosol\n       k = k + ( H%xArea(SLA) * H%KHETI_SLA(N2O5_plus_HCl)                  )\n       !\n       ! Uptake on irregular ice cloud\n       gamma = 0.03_dp                         ! Ice\n       IF ( H%natSurface ) gamma = 0.003_dp   ! NAT\n       k = k + Ars_L1K( H%xArea(IIC), H%xRadi(IIC), gamma, SR_MW(ind_N2O5)  )\n    ENDIF\n\n    ! Assume N2O5 is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_N2O5), C(ind_HCl), k )\n  END FUNCTION N2O5uptkByStratHCl\n\n  !=========================================================================\n  ! Rate-law functions for NO2 and NO3\n  !=========================================================================\n\n  FUNCTION NO2uptk1stOrdAndCloud( H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for 1st-order uptake of NO2.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! HetChem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: gamma, srMw    ! local vars\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_NO2)\n    !\n    ! Uptake by mineral dust (aerosol types 1-7)\n    gamma = 1.0e-8_dp\n    k = k + Ars_L1k( H%xArea(DU1), H%xRadi(DU1), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU2), H%xRadi(DU2), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU3), H%xRadi(DU3), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU4), H%xRadi(DU4), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU5), H%xRadi(DU5), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU6), H%xRadi(DU6), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU7), H%xRadi(DU7), gamma, srMw )\n    !\n    ! Uptake by tropospheric sulfate (aerosol type 8)\n    gamma = 5e-6_dp\n    k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n    !\n    ! Uptake by black carbon (aerosol type 9)\n    gamma = 1e-4_dp\n    k = k + Ars_L1k( H%xArea(BKC), H%xRadi(BKC), gamma, srMw )\n    !\n    ! Uptake by organic carbon (aerosol type 10)\n    gamma = 1e-6_dp\n    k = k + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gamma, srMw )\n    !\n    ! Uptake by fine & coarse sea salt (aerosol types 11-12)\n    IF ( relhum < 40.0_dp ) THEN\n       gamma = 1.0e-8_dp\n    ELSE IF ( relhum > 70.0_dp ) THEN\n       gamma = 1.0e-4_dp\n    ELSE\n       gamma = 1.0e-8_dp + (1e-4_dp - 1e-8_dp) * (relhum - 40.0_dp)/30.0_dp\n    ENDIF\n    k = k + Ars_L1k( H%xArea(SSA), H%xRadi(SSA), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(SSC), H%xRadi(SSC), gamma, srMw )\n    !\n    ! Uptake by stratospheric sulfate (aerosol type 13)\n    ! and by irregular ice cloud (aerosol type 14)\n    gamma = 1.0e-4_dp\n    k = k + Ars_L1k( H%xArea(SLA), H%xRadi(SLA), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n\n    ! Uptake of NO2 in cloud (liquid branch only)\n    k = k + CloudHet( H, SR_MW(ind_NO2), 1.0e-8_dp, 0.0_dp, 1.0_dp, 0.0_dp )\n  END FUNCTION NO2uptk1stOrdAndCloud\n\n  FUNCTION Gam_NO3( aArea, aRadi, aWater, C_X, H ) RESULT( gamma )\n    !\n    ! Calculates reactive uptake coef. for NO3 on salts and water\n    !\n    REAL(dp),       INTENT(IN) :: aArea, aRadi, aWater, C_X\n    TYPE(Hetstate), INTENT(IN) :: H\n    !\n    REAL(dp)            :: gamma\n    REAL(dp)            :: M_X, k_tot, H_X,    cavg\n    REAL(dp)            :: gb,  l_r,   WaterC, Vol, corr\n    REAL(dp), PARAMETER :: INV_AB = 1.0_dp / 1.3e-2_dp\n    !\n    Vol      = aArea * aRadi * 1.0e-3_dp / 3.0_dp       ! L/cm3 air\n    WaterC   = aWater / 18.0e+12_dp / Vol               ! mol/L aerosol\n    !\n    ! Thermal velocity [cm/s]\n    M_X      = MW(ind_NO3) * 1.0e-3_dp                  ! NO3 mol wt kg/mol\n    cavg     = SQRT( EIGHT_RSTARG_T / ( H%Pi * M_X ) ) * 1.0e2_dp\n    !\n    k_tot    = ( 2.76e+6_dp * C_X ) + ( 23.0_dp * WaterC )\n    !\n    ! Compute reactive uptake coefficient [1], but prevent div by zero\n    gamma   = 0.0_dp\n    IF ( k_tot > 0.0_dp ) THEN\n       H_X   = 0.6_dp * CON_ATM_BAR            ! M/bar\n       l_r   = SQRT( 1.0e-5_dp / k_tot )       ! diff const = 1e-5 for NO3\n       !\n       gb    = FOUR_R_T * H_X * l_r * k_tot / cavg\n       corr  = Reactodiff_Corr( aRadi, l_r )\n       gb    = gb * corr\n       !\n       gamma = 1.0_dp / ( INV_AB + 1.0_dp / gb )\n    ENDIF\n  END FUNCTION Gam_NO3\n\n  FUNCTION NO3uptk1stOrdAndCloud( H ) RESULT( k )\n    !\n    ! Computes reaction rate [1/s] for 1st-order uptake of NO3\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: gamma, srMw    ! local vars\n    !\n    k    = 0.0_dp\n    srMw = SR_MW(ind_NO3)\n    !\n    ! Uptake by mineral dust bins 1-7\n    gamma = 0.01_dp\n    k = k + Ars_L1k( H%xArea(DU1), H%xRadi(DU1), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU2), H%xRadi(DU2), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU3), H%xRadi(DU3), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU4), H%xRadi(DU4), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU5), H%xRadi(DU5), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU6), H%xRadi(DU6), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(DU7), H%xRadi(DU7), gamma, srMw )\n    !\n    ! Uptake by black carbon\n    IF ( relhum < 50.0_dp ) THEN\n       gamma = 2.0e-4_dp\n    ELSE\n       gamma = 1.0e-3_dp\n    ENDIF\n    k = k + Ars_L1k( H%xArea(BKC), H%xRadi(BKC), gamma, srMw )\n    !\n    ! Uptake by organic carbon\n    gamma = 0.005_dp\n    k = k + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gamma, srMw )\n    !\n    ! Uptake by stratospheric sulfate liquid aerosol\n    ! and by irregular ice cloud\n    gamma = 0.1_dp\n    k = k + Ars_L1k( H%xArea(SLA), H%xRadi(SLA), gamma, srMw )\n    k = k + Ars_L1k( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n\n    ! Uptake of NO3 in cloud (liquid and ice branches)\n    k = k + CloudHet( H, SR_MW(ind_NO3), 0.002_dp, 0.001_dp, 1.0_dp, 1.0_dp )\n  END FUNCTION NO3uptk1stOrdAndCloud\n\n  FUNCTION NO3hypsisClonSALA( H ) RESULT( k )\n    !\n    ! Computes the NO3(g) hypsis rate [1/s]  for Cl-\n    ! reacting on surface of fine sea-salt aerosol (SALA).\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp) :: area, conc, gamma, radi, water   ! local vars\n    !\n    ! Compute reactive uptake coefficient [1]\n    area  = H%aClArea\n    radi  = H%aClRadi\n    water = H%aWater(SS_FINE)\n    conc  = H%Cl_conc_SSA\n    gamma = Gam_NO3( area, radi, water, conc, H ) * 0.01_dp\n    !\n    ! Reaction rate for surface of aerosol [1/s]\n    area  = H%ClearFr * area\n    k     = Ars_L1k( area, radi, gamma, SR_MW(ind_NO3) )\n  END FUNCTION NO3hypsisClonSALA\n\n  FUNCTION NO3hypsisClonSALC( H ) RESULT( k )\n    !\n    ! Computes the NO3(g) hypsis rate [1/s]  for Cl-\n    ! reacting on surface of coarse sea-salt aerosol (SALC).\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp) :: area, conc, gamma, radi, water   ! local vars\n    !\n    ! Compute reactive uptake coefficient [1]\n    area  = H%xArea(SSC)\n    radi  = H%xRadi(SSC)\n    water = H%aWater(SS_COARSE)\n    conc  = H%Cl_conc_SSC\n    gamma = Gam_NO3( area, radi, water, conc, H ) * 0.01_dp\n    !\n    ! Reaction rate for surface of aerosol [1/s]\n    area  = H%ClearFr * area\n    k     = Ars_L1k( area, radi, gamma, SR_MW(ind_NO3) )\n  END FUNCTION NO3hypsisClonSALC\n\n  !=========================================================================\n  ! Hetchem rate-law functions for O3\n  !=========================================================================\n\n  FUNCTION O3uptkByBrInTropCloud( H, Br_branch ) RESULT( k )\n    !\n    ! Computes the Sets the O3 uptake rate in tropospheric cloud\n    ! by Br- in either fine sea salt, coarse sea salt, or gas phase.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp),       INTENT(IN) :: Br_branch      ! Branching ratio (A,C,G)\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: gamma          ! local vars\n    !\n    k = 0.0_dp\n    !\n    ! Exit if we are not in the troposphere\n    IF ( H%stratBox ) RETURN\n    !\n    ! Compute uptake of O3 by Br- in cloud\n    gamma  = Gamma_O3_Br( H, H%rLiq, H%Br_conc_Cld )\n    k      = CloudHet( H, SR_MW(ind_O3), gamma, 0.0_dp, Br_branch, 0.0_dp )\n  END FUNCTION O3uptkByBrInTropCloud\n\n  FUNCTION O3uptkByHBr( H ) RESULT( k )\n    !\n    ! Computes the O3 + HBr uptake rate in tropospheric cloud.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    ! O3 + HBr uptake rate (gas-phase path), in trop cloud\n    k = O3uptkByBrInTropCloud( H, H%frac_Br_CldG )\n    !\n    ! Assume OH is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_O3), C(ind_HBr), k )\n  END FUNCTION O3uptkByHBr\n\n  FUNCTION O3uptkByBrSALA( H ) RESULT( k )\n    !\n    ! Computes the uptake rate of O3 + Br- (in tropospheric\n    ! cloud) and on acidic fine sea salt (in clear sky).\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: area, gamma    ! local vars\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! O3 + Br- uptake by acidic fine sea salt, in trop cloud\n    k = k + O3uptkByBrInTropCloud( H, H%frac_Br_CldA )\n    !\n    ! O3 + Br- uptake on acidic fine sea-salt, clear sky\n    IF ( H%SSA_is_Acid ) THEN\n       area  = H%ClearFr * H%aClArea * H%f_Acid_SSA\n       gamma = Gamma_O3_Br( H, H%aClRadi, H%Br_conc_SSA )\n       k     = k + Ars_L1K( area, H%aClRadi, gamma, SR_MW(ind_O3) )\n    ENDIF\n\n    ! Assume OH is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_O3), C(ind_BrSALA), k )\n  END FUNCTION O3uptkByBrSALA\n\n  FUNCTION O3uptkByBrSALC( H ) RESULT( k )\n    !\n    ! Computes the uptake rate of O3 + Br- in tropospheric\n    ! cloud and on acidic coarse sea salt.\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: area, gamma    ! local vars\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! O3 + Br- uptake by acidic coarse sea salt, in trop cloud\n    k = k + O3uptkByBrInTropCloud( H, H%frac_Br_CldC )\n    !\n    ! O3 + Br- uptake on acidic coarse sea salt, clear sky\n    IF ( H%SSC_is_Acid ) THEN\n       area  = H%ClearFr * H%xArea(SSC) * H%f_Acid_SSC\n       gamma = Gamma_O3_Br( H, H%xRadi(SSC), H%Br_conc_SSC )\n       k     = k + Ars_L1K( area, H%xRadi(SSC), gamma, SR_MW(ind_O3) )\n    ENDIF\n\n    ! Assume OH is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_O3), C(ind_BrSALC), k )\n  END FUNCTION O3uptkByBrSALC\n\n  FUNCTION Gamma_O3_Br( H, Radius, C_Br ) RESULT( gamma )\n    !\n    ! Computes reactive uptake coefficient for Br- oxidation by O3.\n    !\n    TYPE(HetState), INTENT(IN) :: H             ! Hetchem State\n    REAL(dp),       INTENT(IN) :: radius        ! Radius in cm\n    REAL(dp),       INTENT(IN) :: C_Br          ! Br- concentration\n    REAL(dp)                   :: gamma         ! rxn prob [1]\n    !\n    REAL(dp), PARAMETER  :: K0_O3 = 1.1e-2_dp * CON_ATM_BAR ! Henry K0(O3)\n    !\n    REAL(dp) :: ab,  gb,     gd,  gs,       cavg,  H_X\n    REAL(dp) :: M_X, KLangC, k_s, C_Br_surf, Nmax,  k_b,   D_l, l_r\n    !\n    gamma     = 0.0_dp\n    !\n    ! If C_Br is zero, gamma is zero\n    IF ( .not. C_Br > 0.0_dp ) RETURN\n    !\n    ! Henry's law for O3 (use constants for numerical stability)\n    H_X       = K0_O3 * EXP( 2300.0_dp * ( INV_TEMP - INV_T298 ) )\n    !\n    ! Thermal velocity (cm/s)\n    M_X       = MW(ind_O3) * 1.0e-3_dp\n    cavg      = SQRT( EIGHT_RSTARG_T / ( H%Pi * M_X ) ) * 100.0_dp\n    !\n    Nmax      = 3.0e+14_dp  ! #/cm2\n    KLangC    = 1.0e-13_dp !cm3\n    k_s       = 1.0e-16_dp !cm2s-1, from ks*Nmax=0.03s-1\n    !\n    ! [Br-(surf)] = 3.41E14 cm-2/M * [Br-(bulk)], but not gt Nmax.\n    C_Br_surf = MIN( 3.41e+14_dp * C_Br, Nmax )\n    gs        = ( 4.0_dp * k_s * C_Br_surf * KLangC * Nmax )                   &\n              / ( cavg * ( 1.0_dp + KLangC * C(ind_O3)  ) )\n    !\n    k_b       = 6.3e+8_dp * EXP(-4.45e+3_dp / TEMP )       ! M-1 s-1\n    D_l       = 8.9e-6_dp                                  ! cm2 s-1.\n    !\n    l_r    = SQRT( D_l / ( k_b * C_Br ) ) ! cm\n    gb     = FOUR_R_T * H_X * l_r * k_b * C_Br / cavg\n    gb     = gb * ReactoDiff_Corr( Radius, l_r )\n    !\n    ! Reactive uptake coefficient [1]\n    gamma     = gb + gs\n  END FUNCTION Gamma_O3_Br\n\n  !=========================================================================\n  ! Hetchem rate-law functions for OH\n  !=========================================================================\n\n  FUNCTION OHuptkBySALACl( H ) RESULT( k )\n    !\n    ! Computes uptake rate of OH + Cl on accumulation-mode sea-salt\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: gamma, k       ! rxn prob [1], rxn rate [1/s]\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! Compute uptake; gamma is from cf Knipping & Dabdub, 2002\n    gamma = 0.04_dp * H%Cl_conc_SSA\n    k = Ars_L1k( H%aClArea, H%aClRadi, gamma, SR_MW(ind_OH) )\n    !\n    ! Assume OH is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_OH), C(ind_SALACL), k )\n  END FUNCTION OHuptkBySALACl\n\n  FUNCTION OHuptkBySALCCl( H ) RESULT( k )\n    !\n    ! Computes uptake rate of OH + Cl on coarse-mode sea-salt\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: gamma, k       ! rxn prob [1], rxn rate [1/s]\n    !\n    ! Exit if in the stratosphere\n    k = 0.0_dp\n    IF ( H%stratBox ) RETURN\n    !\n    ! Compute uptake; gamma is from cf Knipping & Dabdub, 2002\n    gamma = 0.04_dp * H%Cl_conc_SSC\n    k = Ars_L1k( H%xArea(SSC), H%xRadi(SSC), gamma, SR_MW(ind_OH) )\n    !\n    ! Assume OH is limiting, so update the removal rate accordingly\n    k = kIIR1Ltd( C(ind_OH), C(ind_SALCCL), k )\n  END FUNCTION OHuptkBySALCCl\n\n  !=========================================================================\n  ! Hetchem rate-law functions for VOC species\n  !=========================================================================\n\n  FUNCTION GLYXuptk1stOrd( srMw, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for 1st-order uptake of GLYX.\n    ! Only consider inorganic aqueous aerosols with RH > 35%\n    ! and use diffe rent uptake for day & night.\n    !\n    REAL(dp),       INTENT(IN) :: srMw   ! sqrt( mol wt )\n    TYPE(HetState), INTENT(IN) :: H      ! Hetchem State\n    REAL(dp)                   :: k      ! rxn rate [1/s]\n    REAL(dp)                   :: gamma  ! local vars\n    !\n    k     = 0.0_dp\n    gamma = 0.0_dp\n    !\n    ! Uptake by tropospheric sulfate\n    IF ( RELHUM >= CRITRH ) THEN\n       IF ( SUNCOS > 0.0_dp ) THEN\n          gamma = 4.4e-3_dp   ! cf Liggio et al 2005\n       ELSE\n          gamma = 8.0e-6_dp   ! F. McNeill, to E. Marais (2015)\n       ENDIF\n       k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n    ENDIF\n  END FUNCTION GLYXuptk1stOrd\n\n  FUNCTION EpoxUptkGamma( srMw, H ) RESULT( gamma )\n    !\n    ! Gomputes the GAMMA uptake probability for EPOXUPTK hydrolysis to\n    ! form 2-methyltetrols (AITET). (eam, 2014).\n    !\n    ! Calculation is only done for inorganic aqueous phase aerosols.\n    ! This calculation uses the parameterization of Gaston et al., EST, 2014.\n    ! Redistribution of products (e.g. AITET) to yield organosulfates and\n    ! organonitrates is done in SOA_CHEMISTRY in carbon_mod.F.\n    ! This is only done for IEPOX and HMML if it's an SOA simulation\n    !\n    REAL(dp),       INTENT(IN) :: srMw           ! sqrt(mol wt)\n    TYPE(HetState), INTENT(IN) :: H              ! HetChem State\n    REAL(dp)                   :: gamma          ! Uptake prob [1]\n    REAL(dp) :: aervol, kpart, xmms, val1, val2, val3, valtmp ! local vars\n    !\n    ! Gas-phase diffusion constant [cm2/s]:\n    REAL(dp), PARAMETER :: DIFF_N2O5_STD = 1.0e-1_dp\n    !\n    ! Mass accommodation coefficient [unitless]:\n    REAL(dp), PARAMETER :: MACOEFF = 1.0e-1_dp\n    REAL(dp), PARAMETER :: K_HPLUS = 3.6e-2_dp\n    REAL(dp), PARAMETER :: K_NUC   = 2.0e-4_dp\n    REAL(dp), PARAMETER :: K_HSO4  = 7.3e-4_dp\n    REAL(dp), PARAMETER :: K_HYDRO = 0.0e+0_dp\n    !\n    ! Effective Henry's Law constant of IEPOX for reactive uptake to aqueous\n    ! aerosols (M/atm).  Eloise Marais (2015/07) reset this to the value from\n    ! [Nguyen et al., 2014] in order to accomodate reduction in yields of RIP\n    ! (which is the precursor of IEPOX).\n    REAL(dp), PARAMETER :: HSTAR_EPOX  = 1.7e+7_dp\n    !\n    ! Initialize\n    gamma  = 0.0_dp\n    valTmp = 0.0_dp\n    !\n    ! Calculate aerosol volume (use formula in aerosol_mod.F):\n    aerVol = ( H%xArea(SUL) *  H%xRadi(SUL) ) / 3.0_dp\n    !\n    ! Calculate mean molecular speed [cm/s]:\n    xmms = SQRT( ( 2.117e+8_dp * TEMP ) / ( srMw * srMw ) )\n    !\n    ! Calculate first-order particle-phase reaction rate:\n    ! (assume [H+] = proton activity)\n    ! KHYDRO is only important for alkylnitrates (not currently used).\n    kPart = ( K_HPLUS * H%H_PLUS                                           ) &\n          + ( K_NUC   * H%H_PLUS * ( H%NO3_molal + H%SO4_molal )           ) &\n          + ( K_HSO4  * H%HSO4_molal                                       ) &\n          + ( K_HYDRO                                                      )\n    !\n    ! Calculate the first uptake parameterization term:\n    val1 = ( H%xRadi(SUL) * xmms ) / ( 4.0_dp * DIFF_N2O5_STD )\n    !\n    ! Calculate the second uptake parameterization term:\n    val2 = ( 1.0_dp / MACOEFF )\n    !\n    ! Calculate the third uptake parameterization term:\n    IF ( H%xArea(SUL) > 0.0_dp .and. XMMS > 0.0_dp ) THEN\n       valTmp = ( FOUR_RGASLATM_T * aerVol * HSTAR_EPOX * kPart ) &\n              / ( H%xArea(SUL) * xmms                          )\n    ENDIF\n    !\n    val3 = 0.0_dp\n    IF ( valTmp > 0.0_dp ) val3 = 1.0_dp / valtmp\n    !\n    ! Account for small reaction rates:\n    gamma = 0.0_dp\n    IF ( kPart >= 1.e-8_dp ) gamma = 1.0_dp / ( val1 + val2 + val3 )\n    IF ( gamma <  0.0_dp   ) gamma = 0.0_dp\n  END FUNCTION EpoxUptkGamma\n\n  FUNCTION IEPOXuptk1stOrd( srMw, doScale, H ) RESULT( k )\n    !\n    ! Sets the heterogenous chemistry rate for first-order\n    ! uptake of ICHE, IEPOXA, IEPOXB, and IEPOXD.\n    !\n    REAL(dp),       INTENT(IN) :: srMw           ! sqrt( mol wt )\n    LOGICAL,        INTENT(IN) :: doScale        ! =T for HMML, else F\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    REAL(dp)                   :: gamma          ! local vars\n    !\n    k     = 0.0_dp\n    gamma = 0.0_dp\n    !\n    ! Only consider inorganic aqueous aerosols with RH > 35%.\n    IF ( RELHUM >= CRITRH ) THEN\n       !\n       ! Get GAMMA for IEPOX hydrolysis\n       gamma = EpoxUptkGamma( srMw, H )\n       !\n       ! Scale down gamma if [H+] > 8d-5 (cf Riedel et al, 2015)\n       IF ( doScale .and. ( H%H_PLUS > 8.0e-5_dp ) ) THEN\n          gamma = gamma / 30.0_dp\n       ENDIF\n       !\n       ! Uptake by tropospheric sulfate\n       k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n    ENDIF\n  END FUNCTION IEPOXuptk1stOrd\n\n  FUNCTION MGLYuptk1stOrd( srMw, H ) RESULT( k )\n    !\n    ! Computes the reaction rate [1/s] for 1st order uptake of MGLY and PYAC.\n    !\n    REAL(dp),       INTENT(IN) :: srMw           ! sqrt( mol wt )\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: gamma, k       ! rxn prob [1], rxn rate [1/s]\n    !\n    k     = 0.0_dp\n    gamma = 0.0_dp\n    !\n    ! Only consider inorganic aqueous aerosols with RH > 35%.\n    IF ( RELHUM >= CRITRH ) THEN\n       !\n       ! Define gamma for MGLY: Obtained by scaling gamma GLYX by the\n       ! ratio of effective Henry's law constants for GLYX (3d7) and\n       ! MGLY (3.7d3) (eam, 02/2015):\n       gamma = 3.6e-7_dp\n       !\n       ! Uptake by tropospheric sulfate\n       k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n    ENDIF\n  END FUNCTION MGLYuptk1stOrd\n\n  FUNCTION VOCuptk1stOrd( srMw, gamma, H ) RESULT( k )\n    !\n    ! Computes the rxn rate [1/s]for 1st-order uptake of several VOC species.\n    !\n    REAL(dp),       INTENT(IN) :: srMw, gamma    ! sqrt( mol wt ), rxn prob\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State\n    REAL(dp)                   :: k              ! rxn rate [1/s]\n    !\n    ! Initialize\n    k  = 0.0_dp\n    !\n    ! Only consider inorganic aqueous aerosols with RH > 35%.\n    IF ( RELHUM >= CRITRH ) THEN\n       k = k + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gamma, srMw )\n       k = k + Ars_L1k( H%xArea(BKC), H%xRadi(BKC), gamma, srMw )\n       k = k + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gamma, srMw )\n       k = k + Ars_L1k( H%xArea(SSA), H%xRadi(SSA), gamma, srMw )\n       k = k + Ars_L1k( H%xArea(SSC), H%xRadi(SSC), gamma, srMw )\n       k = k + Ars_L1k( H%xArea(SLA), H%xRadi(SLA), gamma, srMw )\n       k = k + Ars_L1k( H%xArea(IIC), H%xRadi(IIC), gamma, srMw )\n    ENDIF\n  END FUNCTION VOCuptk1stOrd\n\nEND MODULE fullchem_RateLawFuncs\n!EOC\n"
  },
  {
    "path": "KPP/fullchem/fullchem_SulfurChemFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: fullchem_SulfurChemFuncs\n!\n! !DESCRIPTION: FlexChem module for multiphase sulfate chemistry, via KPP.\n!\\\\\n!\\\\\n! !INTERFACE:\n\nMODULE fullchem_SulfurChemFuncs\n!\n! !USES:\n!\n  USE PhysConstants\n  USE Precision_Mod\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: fullchem_ConvertAlkToEquiv\n  PUBLIC :: fullchem_ConvertEquivToAlk\n  PUBLIC :: fullchem_HetDropChem\n  PUBLIC :: fullchem_InitSulfurChem\n  PUBLIC :: fullchem_SulfurAqChem\n  PUBLIC :: fullchem_SulfurCldChem\n!\n! !PUBLIC TYPES:\n!\n  ! Species ID flags\n  INTEGER                :: id_ACTA,    id_CH2O,    id_DMS,     id_H2O2\n  INTEGER                :: id_DSTbin1, id_DSTbin2, id_DSTbin3, id_DSTbin4\n  INTEGER                :: id_DSTbin5, id_DSTbin6, id_DSTbin7, id_HCL\n  INTEGER                :: id_HCOOH,   id_HMS,     id_HNO3,    id_MSA\n  INTEGER                :: id_NH3,     id_NH4,     id_NIT,     id_NITs\n  INTEGER                :: id_O3,      id_OH,      id_pFe,     id_SALA\n  INTEGER                :: id_SALAAL,  id_SALACL,  id_SALC,    id_SALCAL\n  INTEGER                :: id_SALCCL,  id_SO2,     id_SO4,     id_SO4s\n!\n! !DEFINED_PARAMETERS\n!\n  REAL(fp),  PARAMETER   :: TCVV_S    = AIRMW / 32e+0_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: TCVV_N    = AIRMW / 14e+0_fp ! hard-coded MW\n  REAL(fp),  PARAMETER   :: SMALLNUM  = 1e-20_fp\n  REAL(fp),  PARAMETER   :: CM3PERM3  = 1.e6_fp\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_ConvertAlkToEquiv\n!\n! !DESCRIPTION: Converts sea salt alkalinity to equivalents.  Abstracted\n!  out from fullchem_mod.F90 to prevent compilation conflicts for other\n!  KPP chemical mechanisms\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_ConvertAlkToEquiv()\n!\n! !USES:\n!\n    USE gckpp_Global,     ONLY : C,          MW\n    USE gckpp_Parameters, ONLY : ind_SALAAL, ind_SALCAL\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    C(ind_SALAAL) = C(ind_SALAAL) * ( MW(ind_SALAAL) * 7.0e-5_fp )\n    C(ind_SALCAL) = C(ind_SALCAL) * ( MW(ind_SALCAL) * 7.0e-5_fp )\n  END SUBROUTINE fullchem_ConvertAlkToEquiv\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_ConvertEquivToAlk\n!\n! !DESCRIPTION: Converts sea salt alkalinity to equivalents.  Abstracted\n!  out from fullchem_mod.F90 to prevent compilation conflicts for other\n!  KPP chemical mechanisms\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_ConvertEquivToAlk()\n!\n! !USES:\n!\n    USE gckpp_Global,     ONLY : C,          MW\n    USE gckpp_Parameters, ONLY : ind_SALAAL, ind_SALCAL\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    C(ind_SALAAL) = C(ind_SALAAL) / ( MW(ind_SALAAL) * 7.0e-5_fp )\n    C(ind_SALCAL) = C(ind_SALCAL) / ( MW(ind_SALCAL) * 7.0e-5_fp )\n  END SUBROUTINE fullchem_ConvertEquivToAlk\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_SulfurAqchem\n!\n! !DESCRIPTION: Main aqueous/aerosol chemistry driver routine.  Sets up the\n!  vector of aqueous chemistry rates for the KPP chemistry solver.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_SulfurAqChem( I,         J,          L,                &\n                                    Input_Opt, State_Chm,  State_Grid,       &\n                                    State_Met, RC                           )\n!\n! !USES:\n!\n\n    USE ErrCode_Mod\n    USE gckpp_Global\n    USE gckpp_Parameters\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE rateLawUtilFuncs\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Met_Mod,    ONLY : MetState\n    USE State_Grid_Mod,   ONLY : GrdState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L    ! Lon, lat, level indices\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(IN)    :: State_Chm  ! Chemistry State object\n!\n! OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure\n!\n! !REMARKS:\n!\n!  ! Reaction List (by K_MT() index)\n!    1) SO2 + O3 + 2SALAAL --> SO4mm + O2 : From Sulfate_mod - 24 Mar 2021\n!\n! !REVISION HISTORY:\n!  24 Mar 2021 - M. Long - Initial Version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n\n    ! Scalars\n    LOGICAL            :: SALAAL_gt_0_1\n    LOGICAL            :: SALCAL_gt_0_1\n    LOGICAL            :: O3_gt_1e10\n    REAL(fp)           :: k_ex\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg\n    CHARACTER(LEN=255) :: ThisLoc\n\n    !======================================================================\n    ! fullchem_SulfurAqChem begins here!\n    !======================================================================\n\n    ! Initialize\n    RC   = GC_SUCCESS\n    k_ex = 0.0_dp\n    K_MT = 0.0_dp\n\n    !----------------------------------------------------------------------\n    ! In order to prevent div-by-zero errors, we set thresholds \n    ! to skip the SALAAL + SO2 and SALCAL + SO2 reactions if:\n    !\n    ! (1) SALAAL <= 0.1 molec/cm3\n    ! (2) SALCAL <= 0.1 molec/cm3\n    ! (3) O3 <= 1e10 molec/cm3\n    !\n    ! An ozone concentration of 1e10 molec/cm3 ~= 0.5 ppbv, which is\n    ! lower than ozone should ever get (according to D. Jacob).\n    !----------------------------------------------------------------------\n    SALAAL_gt_0_1 = ( C(ind_SALAAL) > 0.1_dp     )\n    SALCAL_gt_0_1 = ( C(ind_SALCAL) > 0.1_dp     )\n    O3_gt_1e10    = ( C(ind_O3)     > 1.0e+10_dp )\n\n    !======================================================================\n    ! Reaction rates [1/s] for fine sea salt alkalinity (aka SALAAL)\n    !\n    ! K_MT(1) : SALAAL + SO2 + O3 = SO4 - SALAAL\n    ! K_MT(2) : SALAAL + HCl      = SALACL\n    ! K_MT(3) : SALAAL + HNO3     = NIT\n    !======================================================================\n\n    !------------------------------------------------------------------------\n    ! SALAAL + SO2 + O3 = SO4 - SALAAL\n    !------------------------------------------------------------------------\n    IF ( SALAAL_gt_0_1 .AND. O3_gt_1e10 ) THEN\n\n       ! 1st order uptake\n       k_ex = Ars_L1K( area   = State_Chm%WetAeroArea(I,J,L,11),             &\n                       radius = State_Chm%AeroRadi(I,J,L,11),                &\n                       gamma  = 0.11_dp,                                     &\n                       srMw   = SR_MW(ind_SO2)                              )\n\n       ! Assume SO2 is limiting, so recompute rxn rate accordingly\n       K_MT(1) = kIIR1Ltd( C(ind_SO2), C(ind_SALAAL), k_ex ) / C(ind_O3)\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SALAAL + HCL = SALACL\n    !------------------------------------------------------------------------\n    IF ( SALAAL_gt_0_1 ) THEN\n\n       ! 1st order uptake\n       k_ex = Ars_L1K( area   = State_Chm%WetAeroArea(I,J,L,11),             &\n                       radius = State_Chm%AeroRadi(I,J,L,11),                &\n                       gamma  = 0.07_dp,                                     &\n                       srMw   = SR_MW(ind_HCl)                              )\n\n       ! Assume HCl is limiting, so recompute reaction rate accordingly\n       K_MT(2) = kIIR1Ltd( C(ind_HCl), C(ind_SALAAL), k_ex )\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SALAAL + HNO3 = NIT\n    !------------------------------------------------------------------------\n    IF ( SALAAL_gt_0_1 ) THEN\n\n       ! 1st order uptake\n       k_ex = Ars_L1K( area   = State_Chm%WetAeroArea(I,J,L,11),             &\n                       radius = State_Chm%AeroRadi(I,J,L,11),                &\n                       gamma  = 0.5_dp,                                      &\n                       srMw   = SR_MW(ind_HNO3)                             )\n\n       ! Assume HNO3 is limiting, so recompute reaction rate accordingly\n       K_MT(3) = kIIR1Ltd( C(ind_HNO3), C(ind_SALAAL), k_ex )\n    ENDIF\n\n    !========================================================================\n    ! Reaction rates [1/s] for coarse sea salt alkalinity (aka SALAAL)\n    !\n    ! K_MT(4) : SALCAL + SO2 + O3 = SO4s - SALCAL\n    ! K_MT(5) : SALCAL + HCl      = SALCCL\n    ! K_MT(6) : SALCAL + HNO3     = NITs\n    !========================================================================\n\n    !------------------------------------------------------------------------\n    ! SALCAL + SO2 + O3 = SO4s - SALCAL\n    !------------------------------------------------------------------------\n    IF ( SALCAL_gt_0_1 .AND. O3_gt_1e10 ) THEN\n\n       ! 1st order uptake\n       k_ex = Ars_L1K( area   = State_Chm%WetAeroArea(I,J,L,12),             &\n                       radius = State_Chm%AeroRadi(I,J,L,12),                &\n                       gamma  = 0.11_dp,                                     &\n                       srMw   = SR_MW(ind_SO2)                              )\n\n       ! Assume SO2 is limiting, so recompute rxn rate accordingly\n       K_MT(4) = kIIR1Ltd( C(ind_SO2), C(ind_SALCAL), k_ex ) / C(ind_O3)\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SALCAL + HCl = SALCCL\n    !------------------------------------------------------------------------\n    IF ( SALCAL_gt_0_1 ) THEN\n\n       ! 1st order uptake\n       k_ex = Ars_L1K( area   = State_Chm%WetAeroArea(I,J,L,12),             &\n                       radius = State_Chm%AeroRadi(I,J,L,12),                &\n                       gamma  = 0.07_dp,                                     &\n                       srMw   = SR_MW(ind_HCl)                              )\n\n       ! Assume HCl is limiting, so recompute rxn rate accordingly\n       K_MT(5) = kIIR1Ltd( C(ind_HCl), C(ind_SALCAL), k_ex )\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! SALCAL + HNO3 = NITs\n    !------------------------------------------------------------------------\n    IF ( SALCAL_gt_0_1 ) THEN\n\n       ! 1st order uptake\n       k_ex = Ars_L1K( area   = State_Chm%WetAeroArea(I,J,L,12),             &\n                       radius = State_Chm%AeroRadi(I,J,L,12),                &\n                       gamma  = 0.5_dp,                                      &\n                       srMw   = SR_MW(ind_HNO3)                             )\n\n       ! Assume HNO3 is limiting, so recompute rxn rate accordingly\n       K_MT(6) = kIIR1Ltd( C(ind_HNO3), C(ind_SALCAL), k_ex )\n    ENDIF\n\n  END SUBROUTINE fullchem_SulfurAqChem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_SulfurCldChem\n!\n! !DESCRIPTION: Routine that compute reaction rates for sulfur chemistry\n!  in cloud, so that these can be passed to the KPP chemical solver.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_SulfurCldChem( I,         J,         L,                &\n                                    Input_Opt,  State_Chm, State_Diag,       &\n                                    State_Grid, State_Met, size_res,         &\n                                    RC                                      )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Chm_Mod,      ONLY : Ind_\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: I, J, L\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(OUT)   :: size_res    ! Should we call HetDropChem?\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: N\n    CHARACTER(LEN=63)  :: OrigUnit\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! fullchem_SulfurCldChem begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    size_res = .FALSE.\n    ErrMsg   = ''\n    ThisLoc  = &\n  ' -> at fullchem_SulfurCldChem (in KPP/fullchem/fullchem_SulfurChemFuncs.F90'\n\n    !------------------------------------------------------------------------\n    ! SO2 chemistry\n    !------------------------------------------------------------------------\n    CALL Set_SO2( I          = I,                                            &\n                  J          = J,                                            &\n                  L          = L,                                            &\n                  Input_Opt  = Input_Opt,                                    &\n                  State_Chm  = State_Chm,                                    &\n                  State_Diag = State_Diag,                                   &\n                  State_Grid = State_Grid,                                   &\n                  State_Met  = State_Met,                                    &\n                  size_res   = size_res,                                     &\n                  RC         = RC                                           )\n\n    ! Trap potential errors\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"SET_SO2\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE fullchem_SulfurCldChem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_HetDropChem\n!\n! !DESCRIPTION: Subroutine HET\\_DROP\\_CHEM estimates the in-cloud sulfate\n!  production rate in heterogeneous cloud droplets based on the Yuen et al.,\n!  1996 parameterization. (bec, 6/16/11)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_HetDropChem( I,         J,         L,                  &\n                                   Input_Opt, State_Met, State_Chm          )\n!\n! !USES:\n!\n    USE fullchem_RateLawFuncs, ONLY : HOBrUptkByHSO3m, HOBrUptkBySO3mm\n    USE fullchem_RateLawFuncs, ONLY : HOClUptkByHSO3m, HOClUptkBySO3mm\n    USE gckpp_Global\n    USE gckpp_Parameters\n    USE gckpp_Precision\n    USE Input_Opt_Mod,         ONLY : OptInput\n    USE PhysConstants,         ONLY : AIRMW, AVO, PI, g0\n    USE rateLawUtilFuncs\n    USE State_Chm_Mod,         ONLY : ChmState, IND_\n    USE State_Met_Mod,         ONLY : MetState\n    USE Time_Mod,              ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Dry sea-salt density [kg/m3]\n    REAL(dp), PARAMETER :: SS_DEN        = 2200.0_dp\n\n    ! sigma of the size distribution for sea-salt (Jaegle et al., 2011)\n    REAL(fp), PARAMETER :: SIG_S         = 1.8e+0_dp\n\n    ! geometric dry mean diameters [m] for computing lognormal size distribution\n    REAL(dp), PARAMETER :: RG_S          = 0.4e-6_dp !(Jaegle et a., 2011)\n    REAL(dp), PARAMETER :: RG_D2         = 1.5e-6_dp !(Ginoux et al., 2001)\n    REAL(dp), PARAMETER :: RG_D3         = 2.5e-6_dp\n    REAL(dp), PARAMETER :: RG_D4         = 4.e-6_dp\n\n    ! To prevent multiple divisions\n    REAL(dp), PARAMETER   :: THREE_FOURTHS = 3.0_dp / 4.0_dp\n    REAL(dp), PARAMETER   :: NINE_HALVES   = 9.0_dp / 2.0_dp\n\n!\n! !LOCAL VARIABLES:\n!\n    REAL(dp)              :: alpha_NH3,  alpha_SO2, alpha_H2O2\n    REAL(dp)              :: alpha_HNO3, alpha_B,   alpha_CN\n    REAL(dp)              :: alpha_W,    alpha_SO4, sum_gas\n    REAL(dp)              :: H,          NDss,      CN\n    REAL(dp)              :: W,          K,         arg\n    REAL(dp)              :: DTCHEM,     APV,       DSVI\n    REAL(dp)              :: B,          NH3,       SO2\n    REAL(dp)              :: H2O2,       HNO3,      SO4\n    REAL(dp)              :: CNss,       MW_SO4,    MW_SALC\n    REAL(dp)              :: CVF,        R1,        R2\n    REAL(dp)              :: XX,         FC,        LST\n    REAL(dp)              :: XX1,        XX2,       XX3\n    REAL(dp)              :: XX4,        XX5,       GNH3\n    REAL(dp)              :: SR,         DENOM\n\n    ! Pointers\n    REAL(fp), POINTER     :: AD(:,:,:)\n    REAL(fp), POINTER     :: AIRDEN(:,:,:)\n    REAL(fp), POINTER     :: AIRVOL(:,:,:)\n    REAL(fp), POINTER     :: OMEGA(:,:,:)\n    REAL(fp), POINTER     :: U(:,:,:)\n    REAL(fp), POINTER     :: V(:,:,:)\n\n    !=================================================================\n    ! HET_DROP_CHEM begins here!\n    !=================================================================\n\n    ! Initialize pointers\n    AD     => State_Met%AD\n    AIRDEN => State_Met%AIRDEN\n    AIRVOL => State_Met%AIRVOL\n    OMEGA  => State_Met%OMEGA\n    U      => State_Met%U\n    V      => State_Met%V\n\n    ! Zero/initialize local variables for safety's sake\n    arg    =  0.0_dp\n    B      =  0.0_dp\n    CN     =  0.0_dp\n    CVF    =  1.0e3_fp * AIRMW / ( AIRDEN(I,J,L) * AVO ) ! molec/cm3 -> v/v\n    DSVI   =  0.0_dp\n    DTCHEM =  GET_TS_CHEM()                              ! seconds\n    GNH3   =  0.0_dp\n    K      =  0.0_dp\n    LST    =  0.0_dp\n    R1     =  0.0_dp\n    R2     =  0.0_dp\n    SR     =  0.0_dp\n    SRHOBr =  0.0_dp\n    SRHOCl =  0.0_dp\n    SRO3   =  0.0_dp\n    W      =  0.0_dp\n    XX     =  0.0_dp  ! All XX* in units of [v/v/timestep]\n    XX1    =  0.0_dp\n    XX2    =  0.0_dp\n    XX3    =  0.0_dp\n    XX4    =  0.0_dp\n    XX5    =  0.0_dp\n\n    ! FC is guaranteed to be > 1e-4, because HET_DROP_CHEM\n    ! is not called otherwise (bmy, 07 Oct 2021)\n    FC     =  State_Met%CLDF(I,J,L)\n\n    !! <<>> SET THE INPUT UNITS! EITHER CONVERT IN THE ROUTINE OR\n    !! <<>> CONVERT BEFOREHAND. BUT EVERYTHING IS CURRENTLY mcl/cm3\n    !! <<>> AND HET_DROP_CHEM EXPECTS V/V\n\n    ! XX* are calculated below to be consistent with\n    ! Sulfate_Mod(). Values are different when\n    ! computed with KPP-based variables. HET_DROP_CHEM()\n    ! could use some attention to make is consistent with\n    ! KPP.\n    !\n    ! NOTE: Use function SafeExp, which will prevent the exponential from\n    ! blowing up.  Also if the entire expression will evaluate to zero\n    ! then skip the exponential, which is more computationally efficient.\n    !    -- Bob Yantosca, 14 Oct 2021\n    !\n\n    ! SO2 + H2O2\n    R1  = C(ind_SO2)  * CVF\n    R2  = C(ind_H2O2) * CVF\n    K   = K_CLD(1)    / CVF/ FC\n    Arg = ( R1 - R2 ) * ( K * DTCHEM )\n    IF ( IsSafeExp( Arg ) .and. ABS( Arg ) > 0.0_dp ) THEN\n       XX  = EXP( Arg )\n       XX1 = ( R1 * R2 ) * ( XX - 1.0_dp ) / ( ( R1 * XX ) - R2 )\n    ELSE\n       XX1 = WhenExpCantBeDone( R1, R2, K, DTCHEM )\n    ENDIF\n\n    ! SO2 + O3\n    R2  = C(ind_O3) * CVF\n    K   = K_CLD(2)  / CVF / FC\n    Arg = ( R1 - R2 ) * ( K * DTCHEM )\n    IF ( IsSafeExp( Arg ) .and. ABS( Arg ) > 0.0_dp ) THEN\n       XX = EXP( Arg )\n       XX2 = ( R1 * R2 ) * ( XX - 1.0_dp ) / ( ( R1 * XX ) - R2 )\n    ELSE\n       XX2 = WhenExpCantBeDone( R1, R2, K, DTCHEM )\n    ENDIF\n\n    ! Metal catalyzed oxidation of SO2 pathway\n    K   = -K_CLD(3) / FC\n    Arg = K * DTCHEM\n    XX3 = 0.0_dp\n    IF ( IsSafeExp( Arg ) ) THEN\n       XX  = EXP( Arg )\n       XX3 = R1 * ( 1.0_dp - XX )\n    ENDIF\n\n    ! HSO3- + HOCl and SO3-- + HOCl\n    R1  = C(ind_SO2) * CVF * State_Chm%HSO3_aq(I,J,L)\n    R2  = C(ind_HOCl)  * CVF\n    K   = HOClUptkByHSO3m(State_Het) / CVF\n    Arg = ( R1 - R2 ) * ( K * DTCHEM )\n    IF ( IsSafeExp( Arg ) .and. ABS( Arg ) > 0.0_dp ) THEN\n       XX  = EXP( Arg )\n       XX4 = ( R1 * R2 )  * ( XX - 1.0_dp ) / ( ( R1 * XX )  - R2 )\n    ELSE\n       XX4 = WhenExpCantBeDone( R1, R2, K, DTCHEM )\n    ENDIF\n\n    ! SO3-- + HOCl (add to HSO3- + HOCl rate)\n    R1  = C(ind_SO2) * CVF * State_Chm%SO3_aq(I,J,L)\n    K   = HOClUptkBySO3mm(State_Het) / CVF\n    Arg = ( R1 - R2 ) * ( K * DTCHEM )\n    IF ( IsSafeExp( Arg ) .and. ABS( Arg ) > 0.0_dp ) THEN\n       XX  = EXP( Arg )\n       XX4 = XX4 + ( ( R1 * R2 ) * ( XX - 1.0_fp ) / ( ( R1 * XX ) - R2 ) )\n    ELSE\n       XX4 = XX4 + WhenExpCantBeDone( R1, R2, K, DTCHEM )\n    ENDIF\n\n    ! HSO3- + HOBr\n    R1  = C(ind_SO2) * CVF * State_Chm%HSO3_aq(I,J,L)\n    R2  = C(ind_HOBr)  * CVF\n    K   = HOBrUptkByHSO3m(State_Het) / CVF\n    Arg = ( R1 - R2 ) * ( K * DTCHEM )\n    IF ( IsSafeExp( Arg ) .and. ABS( Arg ) > 0.0_dp ) THEN\n       XX  = EXP( Arg )\n       XX5 = ( R1 * R2 ) * ( XX - 1.0_fp ) / ( ( R1 * XX ) - R2 )\n    ELSE\n       XX5 = WhenExpCantBeDone( R1, R2, K, DTCHEM )\n    ENDIF\n\n    ! SO3-- + HOBr (add to HSO3- + HOBr rate)\n    R1  = C(ind_SO2) * CVF * State_Chm%SO3_aq(I,J,L)\n    K   = HOBrUptkBySO3mm(State_Het) / CVF\n    Arg = ( R1 - R2 ) * ( K * DTCHEM )\n    IF ( IsSafeExp( Arg ) .and. ABS( Arg ) > 0.0_dp ) THEN\n       XX  = EXP( Arg )\n       XX5 = XX5 + ( ( R1 * R2 ) * ( XX - 1.0_dp ) / ( ( R1 * XX ) - R2 ) )\n    ELSE\n       XX5 = XX5 + WhenExpCantBeDone( R1, R2, K, DTCHEM )\n    ENDIF\n\n    ! Sum of all rates\n    LST = XX1 + XX2 + XX3 + XX4 + XX5\n\n    !### Debug print\n    !IF (I .eq. 12 .and. J .eq. 7 .and. L .eq. 1) THEN\n    !   write(*,*) '<<>> XX: ', XX1, XX2, XX3, XX4, XX5\n    !ENDIF\n\n    IF ( LST > R1 ) THEN\n       XX1 = ( R1 * XX1 ) / LST\n       XX2 = ( R1 * XX2 ) / LST\n       XX3 = ( R1 * XX3 ) / LST\n       XX4 = ( R1 * XX4 ) / LST\n       XX5 = ( R1 * XX5 ) / LST\n       LST = XX1 + XX2 + XX3 + XX4 + XX5\n     ENDIF\n\n    ! Convert gas phase concentrations from [v/v] to [pptv]\n    NH3  = State_Chm%Species(id_NH3)%Conc(I,J,L) * CVF * 1.0e+12_dp\n    SO2  = MAX( C(ind_SO2) * CVF - ( LST*FC ), 1.0e-20_dp ) * 1.0e+12_dp\n    H2O2 = C(ind_H2O2)* CVF * 1.0e12_dp\n    HNO3 = C(ind_HNO3)* CVF * 1.0e12_dp\n\n    ! Set molecular weight local variables\n    MW_SO4  = State_Chm%SpcData(id_SO4)%Info%MW_g\n    MW_SALC = State_Chm%SpcData(id_SALC)%Info%MW_g\n\n    ! Convert sulfate aerosol concentrations from [v/v] to [ug/m3]\n    SO4 = ( C(ind_SO4) * CVF * AD(I,J,L) * 1.0e+9_dp ) /                     &\n          ( ( AIRMW / MW_SO4 ) * AIRVOL(I,J,L) )\n\n    ! Convert in cloud sulfate production rate from [v/v/timestep] to\n    ! [ug/m3/timestep]\n    B  = ( LST * AD(I,J,L) * 1.0e+9_dp ) /                                   &\n         ( ( AIRMW / MW_SO4 ) * AIRVOL(I,J,L) )\n\n    ! Convert coarse-mode aerosol concentrations from [v/v] to [#/cm3]\n    ! based on equation in Hofmann, Science, 1990.\n    ! First convert from [v/v] to [kg/m3 air]\n    CNss = State_Chm%Species(id_SALC)%Conc(I,J,L)*CVF * AD(I,J,L)            &\n         / ( ( AIRMW / MW_SALC ) * AIRVOL(I,J,L) )\n\n    ! Now convert from [kg/m3 air] to [#/cm3 air]\n    ! Sea-salt\n    ARG  = NINE_HALVES * ( LOG( SIG_S ) )**2\n    NDss = ( THREE_FOURTHS * CNss                           )                &\n         / ( PI * SS_DEN * RG_S**3 * SafeExp( Arg, 0.0_dp ) )                &\n         * 1.e-6_dp\n\n    ! Total coarse mode number concentration [#/cm3]\n    CN = NDss ! sea-salt\n\n    ! Determine regression coefficients based on the local SO2 concentration\n    IF ( SO2 <= 200.00_fp ) THEN\n       alpha_B    =  0.5318_dp\n       alpha_NH3  = -1.67e-7_dp\n       alpha_SO2  =  2.59e-6_dp\n       alpha_H2O2 = -1.77e-7_dp\n       alpha_HNO3 = -1.72e-7_dp\n       alpha_W    =  1.22e-6_dp\n       alpha_CN   =  4.58e-6_dp\n       alpha_SO4  = -1.00e-5_dp\n    ELSE IF ( SO2 > 200.00_dp .and. SO2 <= 500.0_dp ) THEN\n       alpha_B    =  0.5591_dp\n       alpha_NH3  =  3.62e-6_dp\n       alpha_SO2  =  1.66e-6_dp\n       alpha_H2O2 =  1.06e-7_dp\n       alpha_HNO3 = -5.45e-7_dp\n       alpha_W    = -5.79e-7_dp\n       alpha_CN   =  1.63e-5_dp\n       alpha_SO4  = -7.40e-6_dp\n    ELSE IF ( SO2 > 500.0_dp .and. SO2 < 1000.0_dp ) THEN\n       alpha_B    =  1.1547_dp\n       alpha_NH3  = -4.28e-8_dp\n       alpha_SO2  = -1.23e-7_dp\n       alpha_H2O2 = -9.05e-7_dp\n       alpha_HNO3 =  1.73e-7_dp\n       alpha_W    =  7.22e-6_dp\n       alpha_CN   =  2.44e-5_dp\n       alpha_SO4  =  3.25e-5_dp\n    ELSE                          ! SO2 > 1000\n       alpha_B    =  1.1795_dp\n       alpha_NH3  =  2.57e-7_dp\n       alpha_SO2  = -5.54e-7_dp\n       alpha_H2O2 = -1.08e-6_dp\n       alpha_HNO3 =  1.95e-6_dp\n       alpha_W    =  6.14e-6_dp\n       alpha_CN   =  1.64e-5_dp\n       alpha_SO4  =  2.48e-6_dp\n    ENDIF\n\n    ! Updraft velocity over the oceans [cm/s]\n    ! 500 cm/s is too high. Get W from the met field. (qjc, 04/10/16)\n    !W = 500e+0_fp\n    W = -OMEGA(I,J,L) / ( AIRDEN(I,J,L) * g0 ) * 100e+0_dp\n\n    ! Compute H (integration time interval * air parcel velocity) [m]\n    ! DTCHEM is the chemistry timestep in seconds\n\n    ! Compute air parcel velocity [m/s]\n    !APV = SQRT( (U(I,J,L) * U(I,J,L)) + (V(I,J,L) * V(I,J,L)) )\n    !(qjc, 04/10/16)\n    APV = SQRT( U(I,J,L)**2 + V(I,J,L)**2 ) + ( W**2 * 1.0e-4_dp )\n\n    H   = DTCHEM * APV          ![m]\n\n    sum_gas = ( alpha_NH3  * NH3  ) + ( alpha_SO2  * SO2  ) +                &\n              ( alpha_H2O2 * H2O2 ) + ( alpha_HNO3 * HNO3 )\n\n    DSVI = ( alpha_B * B ) +                                                 &\n           ( ( ( alpha_CN * CN) + ( alpha_W * W ) + ( alpha_SO4 * SO4 ) +    &\n                sum_gas ) * H )\n\n    ! Only calculate SR when air parcel rises, in consistence with\n    ! Yuen et al. (1996) (qjc, 04/10/16)\n    IF ( W > 0.0_dp .and. C(ind_SO2) > 0.0_dp ) THEN\n\n       ! additional sulfate production in large, higher pH\n       ! cloud droplets [ug/m3/timestep]\n       ! Don't allow SR to be negative\n       SR = MAX( ( DSVI - B ), 0.0_dp )\n\n       ! Skip further computation if SR = 0\n       IF ( SR > 0.0_dp ) THEN\n\n          ! Convert SR from [ug/m3/timestep] to [v/v/timestep]\n          SR = SR * ( AIRMW / MW_SO4 ) * 1.e-9_dp / AIRDEN(I,J,L)\n\n          ! Don't produce more SO4 than SO2 available after AQCHEM_SO2\n          ! -- SR is dSO4/timestep (v/v) continue onvert\n          !    to 1st order rate\n          !SR = MIN( SR, SO2 / 1.0e12_dp ) / ( C(ind_SO2) * CVF * DT )\n          !SR = MIN( SR, SO2 / 1.0e12_dp ) / ( C(ind_SO2) * C(ind_O3) * CVF * DT ) \n          !I think the unit conversion is wrong. There should be another \n          !CVF and DT here. But I don't know why we need the denominator.\n          !  -- Becky Alexander (30 Jan 2023)\n          SR = MIN( SR, SO2 / 1.0e12_dp )\n\n       ENDIF\n    ENDIF\n\n    ! Convert SR from [v/v/timestep] to [mlcl/cm3/s]\n    SR     = SR / CVF / DT\n\n    ! Split SR between S(IV) oxidation by O3, HOCl, and HOBr\n    ! Make sure division can be done safely\n    DENOM  = XX2 + XX4 + XX5\n    SRO3   = SR * SafeDiv( XX2, DENOM, 0.0_fp )\n    SRHOCl = SR * SafeDiv( XX4, DENOM, 0.0_fp )\n    SRHOBr = SR * SafeDiv( XX5, DENOM, 0.0_fp )\n    \n    ! Convert this rate to a second order rate constant for use in KPP\n    ! Make sure division can be done safely\n    SRO3   = SafeDiv( SRO3,   ( C(ind_SO2) * C(ind_O3  ) ), 0.0_dp )\n    SRHOCl = SafeDiv( SRHOCl, ( C(ind_SO2) * C(ind_HOCl) ), 0.0_dp )\n    SRHOBr = SafeDiv( SRHOBr, ( C(ind_SO2) * C(ind_HOBr) ), 0.0_dp )\n \n    ! Free pointers\n    AD     => NULL()\n    AIRDEN => NULL()\n    AIRVOL => NULL()\n    OMEGA  => NULL()\n    U      => NULL()\n    V      => NULL()\n\n  END SUBROUTINE fullchem_HetDropChem\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: WhenExpCantBeDone\n!\n! !DESCRIPTION: Prevents floating point errors if exponential terms in routine\n!  Het_Drop_Chem above can't be done.  In the case of a negative XX, R should be\n!  approximated as R1, instead of R2.  In other words,\n!  R1 * R2 * ( XX - 1.D0 ) / ( ( R1 * XX ) - R2 )\n!  reaches different limits when XX reaches +Inf and -Inf.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION WhenExpCantBeDone( R1, R2, K, DT ) RESULT( R )\n!\n! !USES:\n!\n    USE gckpp_Precision, ONLY : dp\n!\n! !INPUT PARAMETERS:\n!\n    REAL(dp), INTENT(IN) :: R1   ! 1st term\n    REAL(dp), INTENT(IN) :: R2   ! 2nd term\n    REAL(dp), INTENT(IN) :: K    ! Rate [1/s]\n    REAL(dp), INTENT(IN) :: DT   ! timesetep [s]\n!\n! !RETURN VALUE:\n!\n    REAL(dp)             :: R    ! new rate [1/s]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    REAL(dp) :: DIFF\n\n    DIFF = R1 - R2\n\n    ! R1 <  R2\n    IF ( DIFF < 0.0_dp ) THEN\n       R = R1\n       RETURN\n    ENDIF\n\n    ! R1 >  R2\n    IF ( DIFF > 0.0_dp ) THEN\n       R = R2\n       RETURN\n    ENDIF\n\n    ! R1 == R2\n    R = R1 - 1.0_dp / ( K * DT + ( 1.0_dp / R1 ) )\n\n  END FUNCTION WhenExpCantBeDone\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: set_so2\n!\n! !DESCRIPTION: Subroutine SET\\_SO2 is the SO2 chemistry subroutine.\n!  (rjp, bmy, 11/26/02, 8/26/10) Adapted from CHEM_SO2() in SULFATE_MOD\n!  (MSL - Spring 2021)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE SET_SO2( I,         J,          L,          Input_Opt,          &\n                      State_Chm, State_Diag, State_Grid, State_Met,          &\n                      Size_Res,  RC                                         )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE gckpp_Global\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE rateLawUtilFuncs\n    USE Species_Mod,     ONLY : SpcConc\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Diag_Mod,  ONLY : DgnState\n    USE State_Grid_Mod,  ONLY : GrdState\n    USE State_Met_Mod,   ONLY : MetState\n    USE Time_Mod,        ONLY : Get_Ts_Chem\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: I, J, L     ! Grid box indices\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL,        INTENT(OUT)   :: Size_Res    ! Should we call HetDropChem?\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  Reaction List (by Rokjin Park)\n!  ============================================================================\n!  (1 ) SO2 production:\n!       DMS + OH, DMS + NO3 (saved in CHEM_DMS)\n!                                                                             .\n!  (2 ) SO2 loss:\n!       (a) SO2 + OH  -> SO4\n!       (b) SO2       -> drydep\n!       (c) SO2 + H2O2 or O3 (aq) -> SO4\n!                                                                             .\n!  (3 ) SO2 = SO2_0 * exp(-bt) +  PSO2_DMS/bt * [1-exp(-bt)]\n!                                                                             .\n!       where b is the sum of the reaction rate of SO2 + OH and the dry\n!       deposition rate of SO2, PSO2_DMS is SO2 production from DMS in\n!       MixingRatio/timestep.\n!                                                                             .\n!  If there is cloud in the gridbox (fraction = fc), then the aqueous\n!  phase chemistry also takes place in cloud. The amount of SO2 oxidized\n!  by H2O2 in cloud is limited by the available H2O2; the rest may be\n!  oxidized due to additional chemistry, e.g, reaction with O3 or O2\n!  (catalyzed by trace metal).\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp),  PARAMETER  :: HPLUS_45  = 3.16227766016837953e-5_fp  !pH = 4.5\n    REAL(fp),  PARAMETER  :: HPLUS_50  = 1.0e-5_fp  !pH = 5.0\n    REAL(fp),  PARAMETER  :: MINDAT    = 1.e-20_fp\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL               :: IS_OFFLINE\n    LOGICAL               :: IS_FULLCHEM\n    INTEGER               :: BULK\n    INTEGER               :: IBIN\n    REAL(fp)              :: K0,     Ki,      KK,     M,    L1\n    REAL(fp)              :: L2,     L3,      Ld,     F,    Fc\n    REAL(fp)              :: RK,     RKT,     DTCHEM, DT_T, TK\n    REAL(fp)              :: F1,     RK1,     RK3,    SO20, AVO_over_LWC\n    REAL(fp)              :: SO2_cd, H2O20,   L2S,    L3S\n    REAL(fp)              :: LWC,    KaqH2O2, KaqO3,  PATM, RHO, CNVFAC\n    REAL(fp)              :: ALK,    ALK1,    ALK2,   SO2_AfterSS\n    REAL(fp)              :: AlkA,   AlkC\n    REAL(fp)              :: Kt1,    Kt2\n    REAL(fp)              :: PSO4E,  PSO4F,   Kt1N,    Kt2N\n    REAL(fp)              :: XX, Kt1L, Kt2L\n    REAL(fp)              :: HPLUS,  SO4nss, TNH3,   TNO3,  GNO3, ANIT\n    REAL(fp)              :: LSTOT,  ALKdst, ALKss,  ALKds, NH3, CL, TNA\n    REAL(fp)              :: SSCvv,  aSO4,   SO2_sr, SR,    TANIT\n    REAL(fp)              :: TFA,  TAA,   TDCA    ! (jmm, 12/03/2018)\n    REAL(fp)              :: SO2_gas,   PH2SO4d_tot\n    REAL(fp)              :: H2SO4_cd,  H2SO4_gas\n\n    ! (qjc, 04/10/16)\n    REAL(fp)              :: L5,L5S\n    REAL(fp)              :: L5_1,L5S_1,L3_1,L3S_1,KaqO3_1\n    REAL(fp)              :: HSO3aq, SO3aq\n    REAL(fp)              :: SO2_AfterSS0, rSIV, fupdateHOBr_0\n    REAL(fp)              :: HCO3, HCHOBr, KO3, KHOBr, f_srhobr, HOBr0\n    REAL(fp)              :: TMP\n\n    REAL(fp)              :: KaqO2, L4, L4S, MnII, FeIII\n    REAL(fp)              :: DUST,  Mn_ant,  Mn_nat\n    REAL(fp)              :: Mn_tot, Mn_d,    Fe_d\n    REAL(fp)              :: Fe_ant, Fe_nat,  Fe_tot\n    REAL(fp)              :: Fe_d_ant, Fe_d_nat\n\n    REAL(fp)              :: L6,L6S,L6_1,L6S_1      !XW\n    REAL(fp)              :: fupdateHOCl_0  !XW\n    REAL(fp)              :: HCHOCl, KHOCl, f_srhocl, HOCl0 !XW\n\n    REAL(fp)              :: KaqHCHO, KaqHMS, KaqHMS2, HMSc ! JMM, MSL\n\n    ! Pointers\n    TYPE(SpcConc), POINTER :: Spc(:)\n    REAL(fp), POINTER      :: SSAlk(:)\n\n    CHARACTER(LEN=255)     :: ErrMsg, ThisLoc\n\n#ifdef LUO_WETDEP\n    ! For Luo et al wetdep scheme\n    LOGICAL                :: Is_QQ3D\n#endif\n\n    !========================================================================\n    ! SET_SO2 begins here!\n    !========================================================================\n    IF ( id_H2O2 < 0 .or. id_SO2 < 0  ) RETURN\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    size_res = .FALSE.\n    ErrMsg   = ''\n    ThisLoc  = &\n      ' -> at SET_SO2 (in module KPP/fullchem/fullchem_SulfurChemFuncs.F90)'\n\n    ! Initialize variables\n    Spc                         => State_Chm%Species\n    SSAlk                       => State_Chm%SSAlk(I,J,L,:)\n    State_Chm%isCloud(I,J,L)    = 0.0_fp\n    State_Chm%pHCloud(I,J,L)    = 0.0_fp\n    State_Chm%QLxpHCloud(I,J,L) = 0.0_fp\n    State_Chm%HSO3_aq(I,J,L)    = 1.0e-32_fp\n    State_Chm%SO3_aq(I,J,L)     = 1.0e-32_fp\n    DTCHEM                      = GET_TS_CHEM()  ! Timestep [s]\n    IS_FULLCHEM                 = Input_Opt%ITS_A_FULLCHEM_SIM\n    IS_OFFLINE                  = ( .not. IS_FULLCHEM )\n    Ld                          = 0.0_fp\n    LSTOT                       = 0.0_fp\n    RHO                         = State_Met%AIRDEN(I,J,L)\n    CNVFAC                      = 1.E3_fp * AIRMW / ( RHO * AVO ) !mcl/cm3->v/v\n    SO20                        = Spc(id_SO2)%Conc(I,J,L) * CNVFAC\n    SO2_AfterSS                 = Spc(id_SO2)%Conc(I,J,L) * CNVFAC\n    H2O20                       = Spc(id_H2O2)%Conc(I,J,L) * CNVFAC\n    KaqH2O2                     = 0.0_fp\n    KaqO3                       = 0.0_fp\n    KaqO3_1                     = 0.0_fp\n    KaqO2                       = 0.0_fp\n    K_CLD                       = 0.0_fp\n    HPLUS                       = 0.0_fp\n\n    ! Factor to convert AIRDEN from [kg air/m3] to [molec air/cm3]\n    F                           = 1000.e+0_fp / AIRMW * AVO * 1.e-6_fp\n\n    ! Meteorological data\n    PATM = State_Met%PMID_DRY( I, J, L ) / ( ATM * 1.e-2_fp ) ! Press, dry [atm]\n    TK   = State_Met%T(I,J,L)                                 ! Temperature [K]\n    FC   = State_Met%CLDF(I,J,L)                              ! Cloud frac [1]\n\n    ! Get liquid water content [m3 H2O/m3 air] within cloud from met flds\n    ! Units: [kg H2O/kg air] * [kg air/m3 air] * [m3 H2O/1e3 kg H2O]\n#ifdef LUO_WETDEP\n    ! QQ3D and similar arrays are only allocated for wetdep or convection\n    Is_QQ3D = ( Input_Opt%LWETD .or. Input_Opt%LCONV )\n\n    ! If QQ3D is allocated, compute LWC according to Luo et al wetdep scheme.\n    ! Otherwise, compute LWC according to the default wetdep scheme.\n    IF ( Is_QQ3D ) THEN\n       LWC = State_Met%QL(I,J,L) * State_Met%AIRDEN(I,J,L) * 1e-3_fp + &\n            MAX( 0.0_fp, State_Chm%QQ3D(I,J,L) * DTCHEM )\n    ELSE\n       LWC = State_Met%QL(I,J,L) * State_Met%AIRDEN(I,J,L) * 1e-3_fp\n    ENDIF\n#else\n    ! Compute LWC according to the default wetdep scheme\n    LWC = State_Met%QL(I,J,L) * State_Met%AIRDEN(I,J,L) * 1e-3_fp\n#endif\n\n    ! QL can sometimes be negative, so force LWC to be positive\n    LWC = MAX( 0.0_fp, LWC )\n\n    ! LWC is a grid-box averaged quantity. To improve the representation\n    ! of sulfate chemistry, we divide LWC by the cloud fraction and\n    ! compute sulfate chemistry based on the LWC within the cloud.  We\n    ! get the appropriate grid-box averaged mass of SO2 and sulfate by\n    ! multiplying these quantities by FC AFTER computing the aqueous\n    ! sulfur chemistry within the cloud. (lzh, jaf, bmy, 5/27/11)\n    LWC = SafeDiv( LWC, FC, 0.0_fp )\n\n\n    ! If (1) there is cloud, (2) there is SO2 present, (3) T > -15 C, and\n    ! (4) liquid water content (LWC) is present (but not small enough to\n    ! make divisions blow up), then compute sulfate production in cloud.\n    IF ( ( FC          > 1.0e-4_fp  )   .and.                                &\n         ( SO2_AfterSS > MINDAT     )   .and.                                &\n#ifdef LUO_WETDEP\n         ( TK          > 237.0_fp   )   .and.                                &\n#else\n         ( TK          > 258.0_fp   )  .and.                                 &\n#endif\n         ( LWC         > 1.0e-20_fp ) ) THEN\n\n       !===========================================================\n       ! NOTE...Sulfate production from aquatic reactions of SO2\n       ! with H2O2 & O3 is computed here and followings are\n       ! approximations or method used for analytical (integral)\n       ! solution of these computations.\n       !\n       ! 1) with H2O2(aq)\n       !      [HSO3-] + [H+] + [H2O2(aq)] => [SO4=]     (rxn)\n       !      d[SO4=]/dt = k[H+][HSO3-][H2O2(aq)] (M/s) (rate)\n       !\n       ! we can rewrite k[H+][HSO3-] as K1 pSO2 hSO2,\n       ! where pSO2 is equilibrium vapor pressure of SO2(g)\n       ! in atm, and hSO2 is henry's law constant for SO2\n       !\n       ! Therefore, rate can be written as\n       !\n       !       k * K1 * pSO2 * hSO2 * pH2O2 * hH2O2,\n       !\n       ! where pH2O2 is equilibrium vapor pressure of H2O2(g),\n       ! and hH2O2 is henry's law constant for H2O2. Detailed\n       ! values are given in AQSET_SO2 routine.\n       !\n       ! Let us define a fraction of gas phase of A species\n       ! in equilibrium with aqueous phase as\n       !\n       !        xA  = 1/(1+f),\n       !\n       ! where  f   = hA * R * T * LWC,\n       !        hA  = Henry's constant,\n       !        R   = gas constant,\n       !        T   = temperature in kelvin,\n       !        LWC = liquid water content [m3/m3]\n       !\n       ! As a result, the rate would become:\n       !\n       !    d[SO4=]\n       !    ------- = k K1 hSO2 hH2O2 xSO2 xH2O2 P P [SO2][H2O2]\n       !      dt\n       !      ^       ^                            ^   ^    ^\n       !      |       |____________________________|   |    |\n       !\n       !   mole/l/s               mole/l/s            v/v  v/v\n       !\n       !\n       ! And we multiply rate by (LWC * R * T / P) in order to\n       ! convert unit from mole/l/s to v/v/s\n       !\n       ! Finally we come to\n       !\n       !    d[SO4=]\n       !    ------- = KaqH2O2 [SO2][H2O2],\n       !      dt\n       !\n       ! where\n       !\n       !   KaqH2O2 = k K1 hSO2 hH2O2 xSO2 xH2O2 P LWC R T,\n       !\n       ! this new rate corresponds to a typical second order\n       ! reaction of which analytical (integral) solution is\n       !\n       !   X  = A0 B0 ( exp[(A0-B0) Ka t] - 1 )\n       !      / ( A0 exp[(A0-B0) Ka t] - B0 )\n       !\n       ! inserting variables into solution then we get\n       ! [SO4=] =  [SO2][H2O2](exp[([SO2]-[H2O2]) KaqH2O2 t] - 1 )\n       !        / ( [SO2] exp[([SO2]-[H2O2]) KaqH2O2 t] - [H2O2] )\n       !\n       ! Note...Exactly same method can be applied to O3 reaction\n       ! in aqueous phase with different rate constants.\n       !===========================================================\n\n       ! Get concentrations for cloud pH calculation (bec, 12/23/11)\n\n       ! <<>><<>><<>><<>>\n       ! HAVE TO DO SOME UNIT CONVERSION HERE. THIS ROUTINE IS CALLED\n       ! WITHIN FLEXCHEM_MOD WHERE SPECIES ARE IN MOLEC/CM3\n       ! <<>><<>><<>><<>>\n\n       ! Get sulfate concentration and convert from [v/v] to\n       ! [moles/liter]\n       ! Use a cloud scavenging ratio of 0.7\n\n       SO4nss = 1.e+3 * ( Spc(id_SO4)%Conc(I,J,L) * 0.7e+0_fp &\n              + Spc(id_SO4s)%Conc(I,J,L) ) / ( LWC * AVO ) ! mcl/cm3 -> mol/L\n\n       ! Get HMS cloud concentration and convert from [v/v] to\n       ! [moles/liter] (jmm, 06/13/2018)\n       ! Use a cloud scavenging ratio of 0.7\n       ! assume nonvolatile like sulfate for realistic cloud pH\n       HMSc = 0.0_fp\n       IF ( IS_FULLCHEM .and. id_HMS > 0 ) THEN\n          HMSc = 1.e+3 * Spc(id_HMS)%Conc(I,J,L) * 0.7_fp / ( LWC * AVO ) ! mcl/cm3 -> mol/L\n       ENDIF\n\n       ! Get total ammonia (NH3 + NH4+) concentration [v/v]\n       ! Use a cloud scavenging ratio of 0.7 for NH4+\n       TNH3 = ( ( Spc(id_NH4)%Conc(I,J,L) * 0.7e+0_fp ) &\n              + Spc(id_NH3)%Conc(I,J,L) ) * CNVFAC\n\n       ! Get total chloride (SALACL + HCL) concentration [v/v]\n       ! Use a cloud scavenging ratio of 0.7\n       CL = ( Spc(id_SALACL)%Conc(I,J,L) * 0.7e+0_fp ) &\n            + Spc(id_SALCCL)%Conc(I,J,L)\n       CL = ( CL + Spc(id_HCL)%Conc(I,J,L) ) * CNVFAC\n\n       ! Get total formic acid concentration [v/v]\n       ! jmm (12/3/18)\n       ! no cloud scavenging because gases?\n       TFA = Spc(id_HCOOH)%Conc(I,J,L) * CNVFAC\n\n       ! Get total acetic acid concentration [v/v]\n       ! jmm (12/3/18)\n       ! no cloud scavenging b/c gases?\n       TAA = Spc(id_ACTA)%Conc(I,J,L) * CNVFAC\n\n       ! Get total sea salt NVC concentration expressed as NA+ equivalents\n       ! and convert from [MND] to [moles/liter]\n       ! NVC is calculated to balance initial Cl- + alkalinity in\n       ! seas salt. Note that we should not consider SO4ss here.\n       ! Use a cloud scavenging ratio of 0.7 for fine aerosols\n       TNA      = 1.e3_fp*( Spc(id_SALA)%Conc(I,J,L)*0.7e+0_fp &\n            + Spc(id_SALC)%Conc(I,J,L) ) * &\n            ( 31.6e+0_fp * 0.359e+0_fp / 23.e+0_fp ) / &\n            ( LWC * AVO ) ! mcl/cm3 -> mol/L\n\n       ! Get total dust cation concentration [mol/L]\n       ! Use a cloud scavenging ratio of 1 for dust\n       ! to be consistent for how it was calculated for\n       ! metal catalyzed SO2 oxidation\n       ! Use asumption of dust being 3% soluble Ca2+ and\n       ! 0.6% soluble Mg2+ by mass (Fairlie et al., 2010)\n       !\n       ! Dust treated at non-volatile cation and charge applied in\n       ! pH calculation\n       !\n       ! Move dust calculation from SO2 Metal catalzyed oxidation\n       ! up here becasue needed for cloud pH\n       ! jmm (12/3/18)\n       !\n       ! Get dust concentrations [MND -> ng/m3]\n\n        DUST = ( Spc(id_DSTbin1)%Conc(I,J,L) + Spc(id_DSTbin2)%Conc(I,J,L) + Spc(id_DSTbin3)%Conc(I,J,L) + &\n        Spc(id_DSTbin4)%Conc(I,J,L) + Spc(id_DSTbin5)%Conc(I,J,L) +       &\n        Spc(id_DSTbin6)%Conc(I,J,L) + Spc(id_DSTbin7)%Conc(I,J,L) ) * 1.e+15_fp * &\n        State_Chm%SpcData(id_DSTbin1)%Info%MW_g / AVO\n\n       ! Conversion from dust mass to Ca2+ and Mg2+ mol:\n       !     0.071*(1/40.08)+0.011*(1/24.31) = 2.22e-3\n       !     (Engelbrecht et al., 2016)\n       !     1e-12_fp from m3->L & ng->g\n       TDCA     = DUST * 2.22e-15_fp / LWC\n\n       ! Get total nitrate (HNO3 + NIT) concentrations [v/v]\n       ! Use a cloud scavenging ratio of 0.7 for NIT\n       TNO3 = ( Spc(id_HNO3)%Conc(I,J,L) +             &\n              ( Spc(id_NIT)%Conc(I,J,L)  * 0.7e+0_fp ) + &\n              Spc(id_NITs)%Conc(I,J,L) ) * CNVFAC\n       GNO3 = Spc(id_HNO3)%Conc(I,J,L) * CNVFAC ! For Fahey & Pandis decision algorithm\n\n       ! Calculate cloud pH\n       CALL GET_HPLUS( SO4nss, HMSc, TNH3, TNO3,  SO2_AfterSS,   CL, TNA, TDCA, &\n                       TFA,    TAA,  TK,   PATM,  LWC, HPLUS_45, HPLUS  )\n\n       ! Store the cloud pH quantities\n       State_Chm%isCloud(I,J,L)    =  1.0_fp\n       State_Chm%pHCloud(I,J,L)    = -1.0_fp * log10(HPLUS)\n       State_Chm%QLxpHCloud(I,J,L) = State_Chm%pHCloud(I,J,L)             &\n            * State_Met%QL(I,J,L)\n\n\n       FeIII = 0.0_fp\n       MnII  = 0.0_fp\n       IF ( Input_Opt%LMETALCATSO2 ) THEN\n\n          !--------------------------------------------------------\n          ! Metal catalyzed oxidation of SO2 pathway\n          !--------------------------------------------------------\n\n          ! Get dust concentrations [v/v -> ng/m3]\n#ifdef TOMAS\n          ! TOMAS uses its own dust tracers and does not\n          ! carry DST1-4.  Set DUST to zero here. (mps, 2/2/18)\n          DUST = 0e+0_fp\n#endif\n          ! Calculate Fe and Mn natural [ng m-3]\n          ! Assume that Fe is 3.5% of total dust mass based on\n          ! Taylor and McLennan [1985]\n          Fe_nat = DUST * 35e-3_fp\n          ! and Mn is 50 times less than Fe based on Desbouefs et al.[2005]\n          Mn_nat = Fe_nat / 50e+0_fp\n\n          ! Anthropogenic Fe concentrations [mcl/cm3 -> ng/m3]\n          IF ( id_pFe > 0 ) THEN\n                Fe_ant = Spc(id_pFe)%Conc(I,J,L) * CNVFAC * &\n                         1.e+12_fp * State_Met%AD(I,J,L) &\n                         / ( AIRMW / State_Chm%SpcData(id_pFe)%Info%MW_g ) &\n                         / State_Met%AIRVOL(I,J,L)\n!             Fe_ant = Spc(id_pFe)%Conc(I,J,L) * 1.e+15_fp * &\n!                  State_Chm%SpcData(id_DST1)%Info%MW_g / AVO\n          ELSE\n             Fe_ant = 0e+0_fp\n          ENDIF\n\n          ! Calculate Mn anthropogenic [ng m-3]\n          ! assume anthropogenic Mn is 1/30 times anthropogenic Fe\n          Mn_ant = Fe_ant / 10e+0_fp\n\n          ! Calculate total Mn and Fe [ng m-3]\n          Mn_tot = Mn_ant + Mn_nat\n          Fe_tot = Fe_ant + Fe_nat\n\n          ! Convert Mn and Fe [ng m-3] to [mole l-1]\n\n          ! Assume that 50% of Mn is dissolved [Spokes et al., 1994]\n          ! Hardcoded MW for Mn\n          IF ( LWC > 0e+0_fp ) THEN\n             ! Units: ng/m3 * (g/ng) / (g/mol) / (m3 H2O / m3 air) * (m3/L)\n             Mn_d = Mn_tot * 1e-9_fp / 54.94e+0_fp / LWC * 1e-3_fp\n             Mn_d = Mn_d * 0.5e+0_fp\n          ELSE\n             Mn_d = 0e+0_fp\n          ENDIF\n\n          ! Solubility of Fe is 10% for anthropogenic, and 1% for dust\n          IF ( LWC > 0e+0_fp ) THEN\n             Fe_d_ant = Fe_ant * 1e-9_fp / &\n                  State_Chm%SpcData(id_pFe)%Info%MW_g / &\n                  LWC * 1e-3_fp\n             Fe_d_nat = Fe_nat * 1e-9_fp / &\n                  State_Chm%SpcData(id_pFe)%Info%MW_g / &\n                  LWC * 1e-3_fp\n             Fe_d     = Fe_d_ant * 0.1e+0_fp + &\n                  Fe_d_nat * 0.01e+0_fp\n          ELSE\n             Fe_d     = 0e+0_fp\n          ENDIF\n\n          ! Impose a dependence of Fe speciation on sunlight\n          IF ( State_Met%SUNCOS(I,J) > 0e+0_fp ) THEN\n             ! Assume 10% of dissolved Fe is in Fe(III)\n             !oxidation state during the daytime\n             FeIII = Fe_d * 0.1e+0_fp\n          ELSE\n             ! Assume 90% of dissolved Fe is in Fe(III)\n             ! oxidation state during the nighttime\n             FeIII = Fe_d * 0.9e+0_fp\n          ENDIF\n\n          ! Assume that dissolved Mn is in Mn(II) oxidation state all of\n          ! the time\n          MnII = Mn_d\n       ENDIF\n\n       ! Compute aqueous rxn rates for SO2\n       CALL AQCHEM_SO2( I       = I,                                         &\n                        J       = J,                                         &\n                        L       = L,                                         &\n                        LWC     = LWC,                                       &\n                        T       = TK,                                        &\n                        P       = PATM,                                      &\n                        SO2     = SO2_AfterSS,                               &\n                        H2O2    = Spc(id_H2O2)%Conc(I,J,L) * CNVFAC,         &\n                        O3      = Spc(id_O3)%Conc(I,J,L)   * CNVFAC,         &\n                        HCHO    = Spc(id_CH2O)%Conc(I,J,L) * CNVFAC,         &\n                        Hplus   = Hplus,                                     &\n                        MnII    = MnII,                                      &\n                        FeIII   = FeIII,                                     &\n                        KaqH2O2 = KaqH2O2,                                   &\n                        KaqO3   = KaqO3,                                     &\n                        KaqO3_1 = KaqO3_1,                                   &\n                        KaqO2   = KaqO2,                                     &\n                        HSO3aq  = HSO3aq,                                    &\n                        SO3aq   = SO3aq,                                     &\n                        KaqHCHO = KaqHCHO,                                   &\n                        KaqHMS  = KaqHMS,                                    &\n                        KaqHMS2 = KaqHMS2                                   )\n\n\n       K_CLD(1) = KaqH2O2 * FC * CNVFAC   ! v/v/s --> cm3/mcl/s\n       K_CLD(2) = KaqO3   * FC * CNVFAC   ! v/v/s --> cm3/mcl/s\n       K_CLD(3) = KaqO2   * FC           ! 1/s\n       ! vvvvvv Hold off using CloudHet2R until after initial S-chem benchmark\n       !        -- MSL\n       !K_CLD(1) = CloudHet2R( Spc(id_SO2)%Conc(I,J,L), &\n       !                       Spc(id_H2O2)%Conc(I,J,L), FC, KaqH2O2 * CNVFAC )\n       !K_CLD(2) = CloudHet2R( Spc(id_SO2)%Conc(I,J,L), &\n       !                       Spc(id_O3)%Conc(I,J,L),   FC, KaqO3   * CNVFAC )\n       !K_CLD(3) computed below\n\n       ! HMS reaction rates (skip if HMS isn't defined)\n       IF ( IS_FULLCHEM .and. id_HMS > 0 ) THEN\n          K_CLD(4) = KaqHCHO * FC * CNVFAC\n          K_CLD(5) = KaqHMS  * FC\n          ! HMS reaction changed to include SO2 as a reactant. This is a  \n          ! temporary fix as the formulation HMS + OH -> 2SO4 + CH2O - SO2\n          ! was resulting in a negative concentraiton of SO2. We instead\n          ! redefine the reaction as HMS + OH + SO2 -> 2SO4 + CH2O but\n          ! divide the reaction rate by [SO2] to compensate, as long as\n          ! it is safe to do so (NB requirement at entry that SO2 > MINDAT)\n          ! SDE 2023-10-21\n          K_CLD(6) = KaqHMS2 * FC / Spc(id_SO2)%Conc(I,J,L)\n          ! Leave comments here (bmy, 18 Jan 2022)\n          !          CloudHet2R( Spc(id_HMS)%Conc(I,J,L), &\n          !                      Spc(id_CH2O)%Conc(I,J,L), FC, KaqHCHO*CNVFAC )\n          !          CloudHet1R( FC, KaqHMS ) ! KaqHMS is pseudo-1st order\n          !          CloudHet2R( Spc(id_HMS)%Conc(I,J,L), &\n          !                      Spc(id_OH)%Conc(I,J,L), FC, & ...)       ENDIF\n       ENDIF\n\n#ifdef TOMAS\n       !%%%%%%%%%%%%%%%%% BUG FIX FOR TOMAS %%%%%%%%%%%%%%%%%%%%%%%\n       ! NOTE: TOMAS uses its own dust tracers and does not\n       ! carry ALKdst.  Set ALKdst to zero here. (bmy, 1/28/14)\n       ALKdst = 0e+0_fp\n#else\n\n       ! For other simulations, Sum up the contributions from\n       ! DSTbin1 thru DSTbin7 tracers into ALKdst.\n       ! mcl/cm3 -> ug/m3\n        ALKdst = ( Spc(id_DSTbin1)%Conc(I,J,L) +                             &\n                   Spc(id_DSTbin2)%Conc(I,J,L) +                             &\n                   Spc(id_DSTbin3)%Conc(I,J,L) +                             &\n                   Spc(id_DSTbin4)%Conc(I,J,L) +                             &\n                   Spc(id_DSTbin5)%Conc(I,J,L) +                             &\n                   Spc(id_DSTbin6)%Conc(I,J,L) +                             &\n                   Spc(id_DSTbin7)%Conc(I,J,L) )                             &\n                 * CNVFAC * 1.e+9_fp * State_Met%AD(I,J,L)                   &\n                 / ( AIRMW / State_Chm%SpcData(id_DSTbin1)%Info%MW_g )       &\n                 / State_Met%AIRVOL(I,J,L)\n#endif\n\n       ! mcl/cm3 -> ug/m3\n       ALKss  = ( Spc(id_SALA)%Conc(I,J,L) &\n            + Spc(id_SALC)%Conc(I,J,L) ) * CNVFAC * &\n            1.e+9_fp * State_Met%AD(I,J,L)                       &\n            / ( AIRMW / State_Chm%SpcData(id_SALA)%Info%MW_g ) &\n            / State_Met%AIRVOL(I,J,L)\n\n       ALKds = ALKdst + ALKss\n\n       ! Get NH3 concentrations (v/v)\n       NH3 = Spc(id_NH3)%Conc(I,J,L)*CNVFAC\n\n       ! Initialize\n       size_res= .FALSE.\n\n       ! Fahey and Seinfeld decision algorithm\n       ! NOTE: This is ugly, needs refactoring.  For now, just added\n       ! whitespace to improve readability (bmy, 01 Oct 2021)\n       IF ( H2O20 > SO2_afterss + 1e-9_fp ) THEN\n          size_res = .FALSE.\n\n       ELSE IF( LWC < 0.1e-6_fp ) THEN !10^-6 coversion from g/m3 --> m3/m3\n          size_res = .TRUE.\n\n       ELSE IF( gno3 > NH3 ) THEN\n\n          IF ( So2_afterss >= 5.e-9_fp                                 .and. &\n               H2O20       >= SO20              ) size_res = .FALSE.\n\n          IF ( LWC         >= 0.3e-6_fp                                .and. &\n               So2_afterss >= 3.e-9_fp                                 .and. &\n               H2O20       >= So2_afterss       ) size_res = .FALSE.\n\n          IF ( ALKds       >= 5.e+0_fp                                 .and. &\n               LWC         >= 0.5e-6_fp                                .and. &\n               H2O20       >= So2_afterss       ) size_res = .FALSE.\n\n          IF ( LWC         >= 0.1e-6_fp                                .and. &\n               gno3        <= (NH3 + 2.e-9_fp)  ) size_res = .FALSE.\n\n       ELSE IF( LWC >= 0.5e-6_fp ) THEN\n\n          IF ( H2O20       >=                                                &\n               ( 0.9_fp * So2_afterss )         ) size_res = .FALSE.\n\n          IF ( NH3         <= 1.e-9_fp                                 .and. &\n               ALKds       >= 5.e+0_fp                                 .and. &\n               So2_afterss <= 10.e-9_fp         ) size_res = .FALSE.\n\n       ELSE IF( LWC >= 0.3e-6_fp ) THEN\n\n          IF ( NH3         >= (gno3 + 5.e-9_fp)                        .and. &\n               So2_afterss <= 10.e-9_fp         ) size_res = .FALSE.\n\n          IF ( gno3        <= 1.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 2.e-9_fp) ) size_res = .FALSE.\n\n          IF ( gno3        <= 7.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 3.e-9_fp) ) size_res = .FALSE.\n\n          IF ( ALKds       >= 3.e+0_fp                                 .and. &\n               NH3         <= 10e-9_fp                                 .and. &\n               So2_afterss <= 5e-9_fp           ) size_res = .FALSE.\n\n          IF ( ALKds       >= 5.e+0_fp                                 .and. &\n               NH3         <= 10.e-9_fp                                .and. &\n               So2_afterss <= 5.e-9_fp          ) size_res = .FALSE.\n\n          IF ( So2_afterss >= 1.5e-9_fp                                .and. &\n               H2O20       >= So2_afterss       ) size_res = .FALSE.\n\n          IF ( NH3         <= 12.e-9_fp                                .and. &\n               ALKds       >= 10.e+0_fp         ) size_res = .FALSE.\n\n          IF ( NH3         <= 1.e-9_fp                                 .and. &\n               ALKds       >= 4.e+0_fp                                 .and. &\n               So2_afterss <= 10.e-9_fp         ) size_res = .FALSE.\n\n          IF ( NH3         <= 5.e-9_fp                                 .and. &\n               ALKds       >= 6.e+0_fp                                 .and. &\n               So2_afterss <= 10.e-9_fp         ) size_res = .FALSE.\n\n          IF ( NH3         <= 7.e-9_fp                                 .and. &\n               ALKds       > -8.e+0_fp                                 .and. &\n               So2_afterss <= 10.e-9_fp         ) size_res = .FALSE.\n\n       ELSE IF( LWC >= 0.1e-6_fp ) THEN\n\n          IF ( NH3         <= 1.e-9_fp                                 .and. &\n               ALKds       >= 5.e+0_fp          ) size_res = .FALSE.\n\n          IF ( NH3         <= 5.e-9_fp                                 .and. &\n               ALKds       >= 10.e+0_fp         ) size_res = .FALSE.\n\n          IF ( gno3        <= 1.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 2.e-9_fp)                        .and. &\n               So2_afterss <= 7.e-9_fp          ) size_res = .FALSE.\n\n          IF ( gno3        <= 1.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 2.e-9_fp)                        .and. &\n               ALKds       >= 2.e+0_fp          ) size_res = .FALSE.\n\n          IF ( gno3        <= 3.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 4.e-9_fp) ) size_res = .FALSE.\n\n          IF ( gno3        <= 7.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 3.e-9_fp)                        .and. &\n               So2_afterss <= 5.e-9_fp          ) size_res = .FALSE.\n\n          IF ( gno3        <= 7.e-9_fp                                 .and. &\n               NH3         >= (gno3 + 3.e-9_fp)                        .and. &\n               ALKds       >= 4.e+0_fp                                 .and. &\n               So2_afterss <= 9.e-9_fp          ) size_res = .FALSE.\n\n          IF ( ALKds       >= 3.e+0_fp                                 .and. &\n               NH3         <= 3.e-9_fp                                 .and. &\n               So2_afterss <= 4.e-9_fp          ) size_res = .FALSE.\n\n          IF ( ALKds       >= 5.e+0_fp                                 .and. &\n               So2_afterss <= 5.e-9_fp                                 .and. &\n               NH3         <= 7.e-9_fp          ) size_res = .FALSE.\n\n          IF ( NH3         >= (gno3 + 2.e-9_fp)                        .and. &\n               So2_afterss <= 5.e-9_fp          ) size_res = .FALSE.\n\n          IF ( NH3         >= (gno3 + 4.e-9_fp)                        .and. &\n               So2_afterss <= 10.e-9_fp         ) size_res = .FALSE.\n\n          IF ( ALKds       >= 2.e+0_fp                                 .and. &\n               NH3         <= 10.e-9_fp                                .and. &\n               H2O20       >= So2_afterss       ) size_res = .FALSE.\n\n          IF ( NH3         <= 1.e-9_fp                                 .and. &\n               So2_afterss >= 3.e-9_fp                                 .and. &\n               H2O20       >= So2_afterss       ) size_res = .FALSE.\n\n       ELSE\n\n          size_res = .TRUE.\n\n       ENDIF\n\n\n       State_Chm%HSO3_AQ(I,J,L) = HSO3aq\n       State_Chm%SO3_AQ(I,J,L)  = SO3aq\n\n    ENDIF\n!>>    !=================================================================\n!>>    ! HISTORY (aka netCDF diagnostics)\n!>>    !=================================================================\n!>>\n!>>    ! P(SO4) from gas-phase oxidation [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromGasPhase ) THEN\n!>>       State_Diag%ProdSO4fromGasPhase(I,J,L) = &\n!>>            ( L1  * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) from aqueous-phase oxidation with H2O2 [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromH2O2inCloud ) THEN\n!>>       State_Diag%ProdSO4fromH2O2inCloud(I,J,L) = &\n!>>            ( L2S * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) from aqueous-phase oxidation with O3 [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromO3InCloud ) THEN\n!>>       State_Diag%ProdSO4fromO3InCloud(I,J,L) = &\n!>>            ( ( L3S + SRo3 ) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) from aqueous-phase oxidation with HOBr [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromHOBrInCloud ) THEN\n!>>       State_Diag%ProdSO4fromHOBrInCloud(I,J,L) = &\n!>>            ( ( L5S + SRhobr ) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) from aqueous-phase oxidation with O2 metal-catalyzed\n!>>    ! [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromO2InCloudMetal ) THEN\n!>>       State_Diag%ProdSO4fromO2InCloudMetal(I,J,L) = &\n!>>            ( L4S * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) from O3 in sea salt aerosol [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromO3inSeaSalt ) THEN\n!>>       State_Diag%ProdSO4fromO3inSeaSalt(I,J,L) = &\n!>>            ( ( PSO4E + PSO4F ) * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) by SRo3 [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromSRO3 ) THEN\n!>>       State_Diag%ProdSO4fromSRO3(I,J,L) = &\n!>>            ( SRo3 * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) by SRhobr [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromSRHOBr ) THEN\n!>>       State_Diag%ProdSO4fromSRHOBr(I,J,L) = &\n!>>            ( SRhobr * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n!>>    ! P(SO4) by o3s [kg S/s]\n!>>    IF ( State_Diag%Archive_ProdSO4fromO3s ) THEN\n!>>       State_Diag%ProdSO4fromO3s(I,J,L) = &\n!>>            ( L3S_1 * State_Met%AD(I,J,L) / TCVV_S ) / DTCHEM\n!>>    ENDIF\n!>>\n\n    ! Free pointers\n    Spc     => NULL()\n    SSAlk   => NULL()\n\n  END SUBROUTINE SET_SO2\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: get_hplus\n!\n! !DESCRIPTION: Subroutine GET\\_HPLUS computes H+ concentrations in cloud\n!  liquid water for pH dependent cloud chemistry. (bec, 4/11/11)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n    SUBROUTINE GET_HPLUS( SO4nss, HMSc, TNH3, TNO3, SO2, CL, TNA, TDCA, TFA, &\n                          TAA,  T, PRES, LWC,  iHPLUS, HPLUS )\n!\n! !USES:\n!\n    USE ERROR_MOD,       ONLY : IT_IS_NAN, GEOS_CHEM_STOP\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN)    :: SO4nss ! Total nss sulfate mixing ratio [M]\n    REAL(fp),  INTENT(IN)    :: HMSc ! Total HMS mixing ratio [M]\n    REAL(fp),  INTENT(IN)    :: TNO3   ! Total nitrate (gas+particulate) mixing\n                                       ! ratio [v/v]\n    REAL(fp),  INTENT(IN)    :: TNH3   ! NH3 mixing ratio [v/v]\n    REAL(fp),  INTENT(IN)    :: SO2    ! SO2 mixing ratio [v/v]\n    REAL(fp),  INTENT(IN)    :: CL     ! Total chloride (gas+particulate) mixing\n    REAL(fp),  INTENT(IN)    :: TNA    ! Sodium (particulate) [v/v]\n    REAL(fp),  INTENT(IN)    :: TDCA   ! Total Ca2+ and Mg2+ mixing ratio [M] ! jmm 12/3/18\n    REAL(fp),  INTENT(IN)    :: TAA    ! Acetic acid mixing ratio [v/v] ! jmm 12/3/18\n    REAL(fp),  INTENT(IN)    :: TFA    ! Formic acid mixing ratio [v/v] ! jmm 12/3/18\n    REAL(fp),  INTENT(IN)    :: T      ! Temperature [K]\n    REAL(fp),  INTENT(IN)    :: PRES   ! Dry air partial ressure [atm]\n    REAL(fp),  INTENT(IN)    :: LWC    ! Cloud liquid water content [m3/m3]\n    REAL(fp),  INTENT(IN)    :: iHPLUS ! Initial [H+] [M]\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(OUT)   :: HPLUS  ! Calculated [H+] [M]\n! !REMARKS:\n!  Calculation:\n!  ============================================================================\n!  Solve the following electroneutrality equation:\n!  [H+] = 2[SO4--] + [Cl-] + [OH-] + [HCO3-] + 2[CO3--] + [HSO3-] + 2[SO3--] +!\n!          [NO3-] + [HCOO-] + [CH3COO-] - [Na] - 2[Ca] - [NH4]\n!  Uses Newton's method to solve the equation:\n!     x_1 = x_0 -f(x_0)/f'(x_0)\n!     iterate until converge\n!\n!  Let concentrations of [HCO3], [CO3], [HSO3], [SO3], [NO3] and [NH4] evolve\n!  according to Henry's law equilibrium.\n!\n!  To add new species:\n!    - Add species not affected by HPLUS to the \"D' term\n!    - Add species that disassociate once using the kHNO3 and dkHNO3\n!    functions\n!      as a template\n!    - Add species that disassociate twice using the kSO21 and dkSO21\n!    functions\n!      as a template for the single charged ion and kSO22 and dkSO22\n!      functions for\n!      the double charged ion\n\n!  Assume [S(VI)] = [SO4]nss (this applies for pH > 3)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Water dissociation constants\n    REAL(fp),  PARAMETER   :: Kw   = 1.0e-14_fp\n    REAL(fp),  PARAMETER   :: DhrKw = -6710.e+0_fp\n    REAL(fp),  PARAMETER   :: MINVAL = 0.01\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)               :: D, Kw_T, ipH, newpH, nHPLUS\n    REAL(fp)               :: fHCO3, fCO3\n    REAL(fp)               :: fHSO3, fSO3\n    REAL(fp)               :: fHNO3, fNH4, fHCl\n    REAL(fp)               :: dHCO3, dCO3\n    REAL(fp)               :: dHSO3, dSO3\n    REAL(fp)               :: dHNO3, dNH4, dHCl\n    REAL(fp)               :: fAA, fFA, dAA, dFA\n    REAL(fp)               :: f, df, nnHPLUS, fCa, dCa\n    INTEGER                :: count\n\n    !=================================================================\n    ! GET_HPLUS begins here!\n    !=================================================================\n\n    ! Initial pH guess\n    ipH = -log10(iHPLUS)\n\n    ! Non-volatile aerosol concentration [M]\n    ! For now sulfate is the only non-volatile species\n    D = (2.e+0_fp*SO4nss) - TNA - (2.e+0_fp*TDCA) + (1.e+0_fp * HMSc)\n\n    ! Temperature dependent water equilibrium constant\n    Kw_T = Kw*exp(DhrKw*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    ! Initialize\n    newpH   = 0.0\n    COUNT = 0\n\n    DO WHILE ( ABS(ipH-newpH) .gt. MINVAL )\n\n       COUNT = COUNT+1\n\n       IF ( COUNT .EQ. 1 ) THEN\n          ipH = ipH\n       ELSE\n          ipH = newpH\n       ENDIF\n\n       nHPLUS = 10.e+0_fp**(-ipH)\n\n       ! Get f(x) terms\n       fHCO3  = kCO21 ( PRES, T, LWC, nHPLUS )\n\n       fCO3 = kCO22 ( PRES, T, LWC, nHPLUS )\n\n       fHSO3  = kSO21 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       fSO3 = kSO22 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       fHNO3 = kHNO3 ( PRES, T, LWC, nHPLUS, TNO3 )\n\n       fNH4  = kNH3  ( PRES, T, LWC, nHPLUS, TNH3, Kw_T )\n\n       ! include HCl in cloud pH calculations, xnw 10/17/17\n       fHCl  = kHCl  ( PRES, T, LWC, nHPLUS, CL  )\n\n       fFA   = kFA   ( PRES, T, LWC, nHPLUS, TFA ) ! jmm 12/3/18\n\n       fAA   = kAA   ( PRES, T, LWC, nHPLUS, TAA ) ! jmm 12/3/18\n\n       ! Get f'(x) terms\n       dHCO3  = dkCO21 ( PRES, T, LWC, nHPLUS )\n\n       dCO3 = dkCO22 ( PRES, T, LWC, nHPLUS )\n\n       dHSO3  = dkSO21 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       dSO3 = dkSO22 ( PRES, T, LWC, nHPLUS, SO2 )\n\n       dHNO3 = dkHNO3 ( PRES, T, LWC, nHPLUS, TNO3 )\n\n       dNH4  = dkNH3  ( PRES, T, LWC, nHPLUS, TNH3, Kw_T )\n\n       dHCl = dkHCl ( PRES, T, LWC, nHPLUS, CL )\n\n       dFA   = dkFA   ( PRES, T, LWC, nHPLUS, TFA ) ! jmm 12/3/18\n\n       dAA   = dkAA   ( PRES, T, LWC, nHPLUS, TAA ) ! jmm 12/3/18\n       ! Calculate [Ca2+] in equilibrium with CaCO3(s)\n       CALL CaCO3_PRECIP ( PRES, T, nHPLUS, fCa, dCa )\n\n       ! if [Ca2+] in equilibrium with CacO3(s) is greater than total [Ca2+]\n       ! then all Ca is dissolved else [Ca2+] varies with [H+]\n       IF ( fCa .ge. TDCA ) THEN\n          ! Non-volatile aerosol concentration [M]\n          D = (2.e+0_fp*SO4nss) - (TNA+2.e+0_fp*TDCA)\n\n          ! Define f(x)\n          f = D - nHPLUS + Kw/nHPLUS + fHCO3 + 2.e+0_fp * &\n               fCO3 + fHSO3 + 2.e+0_fp * fSO3 + fHNO3 - fNH4 + &\n               fHCl + fFA + fAA\n\n          ! Define f'(x)\n          df = - 1.d0 - Kw/nHPLUS/nHPLUS + dHCO3 + 2.e+0_fp * &\n               dCO3 + dHSO3 + 2.e+0_fp * dSO3 + dHNO3 - dNH4 + &\n               dHCl + dFA + dAA\n\n       ELSE\n          ! Non-volatile aerosol concentration [M]\n          D = (2.e+0_fp * SO4nss) - TNA\n\n          ! Define f(x)\n          f = D - nHPLUS + Kw/nHPLUS + fHCO3 + 2.e+0_fp * fCO3 + &\n               fHSO3 + 2.e+0_fp * fSO3 + fHNO3 - fNH4 + &\n               fHCl + fFA + fAA - 2.e+0_fp * fCa\n          ! Define f'(x)\n          df = - 1.d0 - Kw/nHPLUS/nHPLUS + dHCO3 + 2.e+0_fp * dCO3 + &\n               dHSO3 + 2.e+0_fp * dSO3 + dHNO3 - dNH4 + &\n               dHCl + dFA + dAA - 2.e+0_fp * dCa\n       ENDIF\n\n       ! Apply Newton's method\n       nnHPLUS = nHPLUS - f/df\n\n       ! Set minimum [H+] = 1.d-14 (pH = 14)\n       nnHPLUS = MAX(nnHPLUS,1.0e-14_fp)\n\n       ! Set maximum [H+] = 1.d-1 (pH = 1)\n       nnHPLUS = MIN(nnHPLUS,1.0e-1_fp)\n\n       ! If solution does not converge after 50 iterations\n       ! average last 2 pH calculations\n       IF (count > 50) THEN\n          newpH = ((-log10(nnHPLUS)) + (-log10(nHPLUS))) / 2.0e+0_fp\n\n          IF (IT_IS_NAN( newpH )) THEN\n             write(6,*) 'newpH = ', newpH\n             write(6,*) 'nnHPLUS = ', nnHPLUS\n             write(6,*) 'nHPLUS = ', nHPLUS\n             CALL GEOS_CHEM_STOP\n          ENDIF\n\n          EXIT\n       ELSE\n          newpH = -log10(nnHPLUS)\n\n          IF (IT_IS_NAN( newpH )) THEN\n             write(6,*) 'newpH = ', newpH\n             write(6,*) 'nnHPLUS = ', nnHPLUS\n             CALL GEOS_CHEM_STOP\n          ENDIF\n\n       ENDIF\n\n    ENDDO\n\n    HPLUS = 10.0e+0_fp**(-newpH)\n\n  END SUBROUTINE GET_HPLUS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kCO21\n!\n! !DESCRIPTION: Function kCO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kCO21 ( P, T, LWC, HPLUS ) RESULT ( KCO2p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! CO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n    REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n    REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n    REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n    REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n    REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n    ! CO2 concentration [v/v]\n    REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n    REAL(fp)              :: Hco2eff, xCO2, pCO2\n\n    !=================================================================\n    ! kCO21 begins here!\n    !=================================================================\n\n    !CO2 dissolution constants\n    Hco2_T  = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc1_T   = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc2_T   = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !CO2 dissolution\n    Hco2eff = Hco2_T*(1.e+0_fp+(Kc1_T/HPLUS)+((Kc1_T*Kc2_T)/(HPLUS*HPLUS)))\n    xCO2    = 1.e+0_fp / ( 1.e+0_fp + ( Hco2eff * 0.08205e+0_fp * T * LWC ) )\n    pCO2    = CO2 * P * xCO2\n\n    KCO2p  = Hco2_T / HPLUS * Kc1_T * pCO2\n\n  END FUNCTION kCO21\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkCO21\n!\n! !DESCRIPTION: Function dkCO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkCO21 ( P, T, LWC, HPLUS ) RESULT ( KCO2p )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhco2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [HCO3-]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! CO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n      REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n      REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n      REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n      REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n      REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n      ! CO2 concentration [v/v]\n      REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n\n! !REMARKS:\n\n      !=================================================================\n      ! dkCO21 begins here!\n      !=================================================================\n\n      !CO2 dissolution constants\n      Hco2_T = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc1_T = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc2_T = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !CO2 dissolution\n\n      KCO2p  = Kc1_T * Hco2_T * CO2 * P * ( Kc1_T * Kc2_T * Hco2_T * &\n          0.08205e+0_fp * T * LWC - Hco2_T * 0.08205e+0_fp * T *     &\n          LWC * HPLUS * HPLUS - HPLUS * HPLUS) / (Kc1_T * Kc2_T *    &\n          Hco2_T * 0.08205e+0_fp * T * LWC + Kc1_T * Hco2_T *        &\n          0.08205e+0_fp * T * LWC * HPLUS + Hco2_T * 0.08205e+0_fp * &\n          T * LWC * HPLUS * HPLUS + HPLUS * HPLUS)**2\n\n      END FUNCTION dkCO21\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kCO22\n!\n! !DESCRIPTION: Function kCO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kCO22 ( P, T, LWC, HPLUS ) RESULT ( KCO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! CO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n    REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n    REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n    REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n    REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n    REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n    ! CO2 concentration [v/v]\n    REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n    REAL(fp)              :: Hco2eff, xCO2, pCO2\n\n    !=================================================================\n    ! kCO22 begins here!\n    !=================================================================\n\n    !CO2 dissolution constants\n    Hco2_T  = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc1_T   = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kc2_T   = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !CO2 dissolution\n    Hco2eff = Hco2_T*(1.e+0_fp+(Kc1_T/HPLUS)+((Kc1_T*Kc2_T)/(HPLUS*HPLUS)))\n    xCO2    = 1.e+0_fp / ( 1.e+0_fp  + ( Hco2eff * 0.08205e+0_fp * T * LWC ) )\n    pCO2    = CO2 * P * xCO2\n\n    KCO2p2 = Kc1_T * Kc2_T * Hco2_T / HPLUS / HPLUS * pCO2\n\n  END FUNCTION kCO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkCO22\n!\n! !DESCRIPTION: Function dkCO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkCO22 ( P, T, LWC, HPLUS ) RESULT ( KCO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KCO2p, KCO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhco2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output deriviate\n!  of [CO3--]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! CO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7\n      REAL(fp),  PARAMETER  :: Kc2 =4.68e-11\n      REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n      REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n      REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2\n      REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n      ! CO2 concentration [v/v]\n      REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hco2_T, Kc1_T, Kc2_T\n\n      !=================================================================\n      ! dkCO22 begins here!\n      !=================================================================\n\n      !CO2 dissolution constants\n      Hco2_T = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc1_T = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc2_T = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !CO2 dissolution\n\n      KCO2p2 = -1.e+0_fp * Kc1_T * Kc2_T * Hco2_T * CO2 * P * ( Kc1_T * &\n           Hco2_T * 0.08205e+0_fp * T * LWC + 2.0e+0_fp * Hco2_T *      &\n           0.08205e+0_fp * T * LWC * HPLUS + 2.0e+0_fp * HPLUS ) /      &\n           ( Kc1_T * Kc2_T * Hco2_T * 0.08205e+0_fp * T * LWC +         &\n           Kc1_T * Hco2_T * 0.08205e+0_fp * T * LWC * HPLUS +           &\n           Hco2_T *0.08205e+0_fp * T * LWC * HPLUS * HPLUS +            &\n           HPLUS * HPLUS )**2\n\n      END FUNCTION dkCO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kSO21\n!\n! !DESCRIPTION: Function kSO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kSO21 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! SO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n    REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n    REAL(fp),  PARAMETER  :: Hso2 = 1.23\n    REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n    REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n    REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n    REAL(fp)              :: Hso2eff, xSO2, pSO2\n\n    !=================================================================\n    ! kSO21 begins here!\n    !=================================================================\n\n    ! SO2 dissolution constants\n    Hso2_T  = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks1_T   = Ks1*exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks2_T   = Ks2*exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    ! SO2 dissolution\n    Hso2eff = Hso2_T*(1.e+0_fp+(Ks1_T/HPLUS)+((Ks1_T*Ks2_T)/(HPLUS*HPLUS)))\n    xSO2    = 1.e+0_fp / ( 1.e+0_fp  + ( Hso2eff * 0.08205e+0_fp * T * LWC ) )\n    pSO2    = SO2 * P * xSO2\n\n    KSO2p   = Hso2_T * Ks1_T * pSO2 / HPLUS\n\n  END FUNCTION kSO21\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkSO21\n!\n! !DESCRIPTION: Function dkSO21\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkSO21 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhso2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [HSO3-]\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! SO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n      REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n      REAL(fp),  PARAMETER  :: Hso2 = 1.23\n      REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n      REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n      REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n\n      !=================================================================\n      ! dkSO21 begins here!\n      !=================================================================\n\n\n\n      ! SO2 dissolution constants\n      Hso2_T = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks1_T = Ks1*exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks2_T = Ks2*exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n\n      KSO2p  = Ks1_T * Hso2_T * SO2 * P * ( Ks1_T * Ks2_T * Hso2_T *  &\n           0.08205e+0_fp * T * LWC - Hso2_T * 0.08205e+0_fp * T *     &\n           LWC * HPLUS * HPLUS - HPLUS * HPLUS) / (Ks1_T * Ks2_T *    &\n           Hso2_T * 0.08205e+0_fp * T * LWC + Ks1_T * Hso2_T *        &\n           0.08205e+0_fp * T * LWC * HPLUS + Hso2_T * 0.08205e+0_fp * &\n           T * LWC * HPLUS * HPLUS + HPLUS * HPLUS)**2\n\n      END FUNCTION dkSO21\n!EOC\n\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kSO22\n!\n! !DESCRIPTION: Function kSO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kSO22 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! SO2 dissociation constants\n    REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n    REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n    REAL(fp),  PARAMETER  :: Hso2 = 1.23\n    REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n    REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n    REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n    REAL(fp)              :: Hso2eff, xSO2, pSO2\n\n    !=================================================================\n    ! kSO22 begins here!\n    !=================================================================\n\n    ! SO2 dissolution constants\n    Hso2_T  = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks1_T   = Ks1 *exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ks2_T   = Ks2 *exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !SO2 dissolution\n    Hso2eff = Hso2_T*(1.e+0_fp+(Ks1_T/HPLUS)+((Ks1_T*Ks2_T)/(HPLUS*HPLUS)))\n    xSO2    = 1.e+0_fp / ( 1.e+0_fp + ( Hso2eff * 0.08205e+0_fp * T * LWC ) )\n    pSO2    = SO2 * P * xSO2\n\n    KSO2p2 = Ks1_T * Ks2_T * Hso2_T / HPLUS / HPLUS * pSO2\n\n  END FUNCTION kSO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkSO22\n!\n! !DESCRIPTION: Function dkSO22\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkSO22 ( P, T, LWC, HPLUS, SO2 ) RESULT ( KSO2p2 )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, SO2\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KSO2p, KSO2p2\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhso2 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative [SO3--]\n\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! SO2 dissociation constants\n      REAL(fp),  PARAMETER  :: Ks1 = 1.3e-2\n      REAL(fp),  PARAMETER  :: Ks2 = 6.6e-8\n      REAL(fp),  PARAMETER  :: Hso2 = 1.23\n      REAL(fp),  PARAMETER  :: Dhso2 = 3.14e+3_fp\n      REAL(fp),  PARAMETER  :: DhrKso21 = 1960.\n      REAL(fp),  PARAMETER  :: DhrKso22 = 1500.\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hso2_T, Ks1_T, Ks2_T\n\n      !=================================================================\n      ! dkSO22 begins here!\n      !=================================================================\n      ! SO2 dissolution constants\n      Hso2_T = Hso2*exp(Dhso2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks1_T  = Ks1 *exp(DhrKso21*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ks2_T  = Ks2 *exp(DhrKso22*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      KSO2p2 = -1.e+0_fp * Ks1_T * Ks2_T * Hso2_T * SO2 * P * ( Ks1_T * &\n           Hso2_T * 0.08205e+0_fp * T * LWC + 2.0e+0_fp * Hso2_T *      &\n           0.08205e+0_fp * T * LWC * HPLUS + 2.0e+0_fp * HPLUS ) /      &\n           ( Ks1_T * Ks2_T * Hso2_T * 0.08205e+0_fp * T * LWC +         &\n           Ks1_T * Hso2_T * 0.08205e+0_fp * T * LWC * HPLUS +           &\n           Hso2_T *0.08205e+0_fp * T * LWC * HPLUS * HPLUS +            &\n           HPLUS * HPLUS )**2\n\n      END FUNCTION dkSO22\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kHNO3\n!\n! !DESCRIPTION: Function kNO3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kHNO3 ( P, T, LWC, HPLUS, HNO3 ) RESULT ( KHNO3p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, HNO3\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KHNO3p\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! HNO3 dissociation constants\n    REAL(fp),  PARAMETER  :: Kn1 = 15.4\n    REAL(fp),  PARAMETER  :: Hhno3 = 2.1e5\n    REAL(fp),  PARAMETER  :: Dhhno3 = 0.\n    REAL(fp),  PARAMETER  :: DhrKn1 = 8700.\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hhno3_T, Kn1_T\n    REAL(fp)              :: Hhno3eff, xHNO3, pHNO3\n\n    !=================================================================\n    ! kHNO3 begins here!\n    !=================================================================\n\n    ! HNO3 dissolution constants\n    Hhno3_T  = Hhno3*exp(Dhhno3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Kn1_T    = Kn1*exp(DhrKn1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    ! HNO3 dissolution\n    ! The original Hhno3eff expression is valid for 298K (Seinfeld and Pandis\n    ! 2006, pp 299-301), and Kn1 has a strong temperature dependence. The\n    ! fix follows Eq. 7.59 of Seinfeld and Pandis (2006, pp 301).\n    !Hhno3eff = 3.2e6/HPLUS\n    Hhno3eff = Hhno3_T*(1.0e+0_fp+(Kn1_T/HPLUS))\n    xHNO3    = 1.e+0_fp / ( 1.e+0_fp + ( Hhno3eff * 0.08205e+0_fp * T * LWC ) )\n    pHNO3    = HNO3 * P * xHNO3\n\n    kHNO3p = Hhno3_T * Kn1_T * pHNO3 / HPLUS\n\n  END FUNCTION kHNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkHNO3\n!\n! !DESCRIPTION: Function dkNO3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkHNO3 ( P, T, LWC, HPLUS, HNO3 ) RESULT ( KHNO3p )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, HNO3\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KHNO3p\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Add fix for Hhno3eff from V. Shah\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [HNO3-]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HNO3 dissociation constants\n      REAL(fp),  PARAMETER  :: Kn1 = 15.4\n      REAL(fp),  PARAMETER  :: Hhno3 = 2.1e5\n      REAL(fp),  PARAMETER  :: Dhhno3 = 0.\n      REAL(fp),  PARAMETER  :: DhrKn1 = 8700.\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hhno3_T, Kn1_T\n\n      !=================================================================\n      ! dkHNO3 begins here!\n      !=================================================================\n\n      ! HNO3 dissolution constants\n      Hhno3_T = Hhno3*exp(Dhhno3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kn1_T = Kn1*exp(DhrKn1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      ! HNO3 dissolution\n      ! The original Hhno3eff expression is valid for 298K (Seinfeld and\n      ! Pandis\n      ! 2006, pp 299-301), and Kn1 has a strong temperature dependence.\n      ! The\n      ! fix follows Eq. 7.59 of Seinfeld and Pandis (2006, pp 301).\n\n      kHNO3p = -1.0e+0_fp * Kn1_T * Hhno3_T * HNO3 * P * &\n          ( 1.0e+0_fp + Hhno3_T * 0.08205e+0_fp * T * LWC ) / &\n          ( Kn1_T * Hhno3_T * 0.08205e+0_fp * T * LWC + &\n          Hhno3_T * 0.08205e+0_fp * T * LWC * HPLUS + &\n          HPLUS )**2\n\n      END FUNCTION dkHNO3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kHCl\n!\n! !DESCRIPTION: Function kHCl\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kHCl ( P, T, LWC, HPLUS, Cl ) RESULT ( KHClp )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, Cl\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KHClp\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! HNO3 dissociation constants\n    REAL(fp),  PARAMETER  :: Kcl = 1.74e+6_fp\n    REAL(fp),  PARAMETER  :: Hcl = 1.5e+3_fp\n    REAL(fp),  PARAMETER  :: Dhcl = 2.3e+3_fp\n    REAL(fp),  PARAMETER  :: DhrKcl = 6900.e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)              :: Hcl_T, Kcl_T\n    REAL(fp)              :: Hcleff, xCl, pHCl\n\n    !=================================================================\n    ! kHCl begins here!\n    !=================================================================\n\n    ! HCl dissolution constants\n    HCl_T  = Hcl*exp(Dhcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n    Kcl_T  = Kcl*exp(DhrKcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n\n    !HCl dissolution\n    Hcleff = Hcl_T*(1.0e+0_fp+(Kcl_T/HPLUS))\n    xCl    = 1.0e+0_fp / ( 1.0e+0_fp + ( Hcleff * 0.08205e+0_fp * T * LWC ) )\n    pHCl   = Cl * P * xCl\n\n    kHClp  = Hcl_T * Kcl_T * pHCl / HPLUS\n\n  END FUNCTION kHCl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkHCl\n!\n! !DESCRIPTION: Function dkHCl\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkHCl ( P, T, LWC, HPLUS, Cl ) RESULT ( KHClp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, Cl\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KHClp\n!\n! !REVISION HISTORY:\n!  03 Apr 2019 - X. Wang    - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCl dissociation constants\n      REAL(fp),  PARAMETER  :: Kcl = 1.74e+6_fp\n      REAL(fp),  PARAMETER  :: Hcl = 1.5e+3_fp\n      REAL(fp),  PARAMETER  :: Dhcl = 2.3e+3_fp\n      REAL(fp),  PARAMETER  :: DhrKcl = 6900.e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hcl_T, Kcl_T\n\n      !=================================================================\n      ! dkHCl begins here!\n      !=================================================================\n\n      ! HCl dissolution constants\n      Hcl_T = Hcl*exp(Dhcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kcl_T = Kcl*exp(DhrKcl*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n\n      ! HCl dissolution\n      ! The fix follows Eq. 7.59 of Seinfeld and Pandis (2006, pp 301).\n\n      kHClp = -1.0e+0_fp * Kcl_T * Hcl_T * Cl * P *          &\n           ( 1.0e+0_fp + Hcl_T * 0.08205e+0_fp * T * LWC ) / &\n           ( Kcl_T * Hcl_T * 0.08205e+0_fp * T * LWC +       &\n           Hcl_T * 0.08205e+0_fp * T * LWC * HPLUS +         &\n           HPLUS )**2\n\n      END FUNCTION dkHCl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kNH3\n!\n! !DESCRIPTION: Function kNH3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION kNH3 ( P, T, LWC, HPLUS, NH3, Kw ) RESULT ( KNH3p )\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, NH3, Kw\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp)              :: KNH3p\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! NH3 dissociation contants\n    REAL(fp),  PARAMETER  :: Ka1 = 1.7e-5\n    REAL(fp),  PARAMETER  :: Hnh3 = 60.\n    REAL(fp),  PARAMETER  :: Dhnh3 = 4200e+0_fp\n    REAL(fp),  PARAMETER  :: DhrKa1 = -450.\n\n    ! Variables\n    REAL(fp)              :: Hnh3_T, Ka1_T\n    REAL(fp)              :: Hnh3eff, xNH3, pNH3\n\n    !=================================================================\n    ! kNH3 begins here!\n    !=================================================================\n\n    !NH3 dissolution constants\n    Hnh3_T  = Hnh3*exp(Dhnh3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n    Ka1_T   = Ka1*exp(DhrKa1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n    !NH3 dissolution\n    Hnh3eff = Hnh3_T*(1.e+0_fp+((Ka1_T* HPLUS) / Kw))\n    xNH3    = 1.e+0_fp / ( 1.e+0_fp + ( Hnh3eff * 0.08205e+0_fp * T * LWC ) )\n    pNH3    = NH3 * P * xNH3\n\n    KNH3p   = HPLUS * Hnh3_T * Ka1_T * pNH3 / Kw\n\n  END FUNCTION kNH3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkNH3\n!\n! !DESCRIPTION: Function dkNH3\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkNH3 ( P, T, LWC, HPLUS, NH3, Kw ) RESULT ( KNH3p )\n!\n\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, NH3, Kw\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KNH3p\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  22 Mar 2017 - M. Sulprizio- Dhnh3 value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (V. Shah)\n!  15 Feb 2019 - J. Moch     - updated function to make output\n!  derivative of [NH4+]\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! NH3 dissociation contants\n      REAL(fp),  PARAMETER  :: Ka1 = 1.7e-5\n      REAL(fp),  PARAMETER  :: Hnh3 = 60.\n      REAL(fp),  PARAMETER  :: Dhnh3 = 4200e+0_fp\n      REAL(fp),  PARAMETER  :: DhrKa1 = -450.\n\n      ! Variables\n      REAL(fp)              :: Hnh3_T, Ka1_T\n\n      !=================================================================\n      ! dkNH3 begins here!\n      !=================================================================\n\n      !NH3 dissolution constants\n      Hnh3_T = Hnh3*exp(Dhnh3*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Ka1_T = Ka1*exp(DhrKa1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !NH3 dissolutionnyn\n\n      KNH3p = Ka1_T * Hnh3_T * NH3 * Kw * P * ( 1.0e+0_fp +    &\n           Hnh3_T * 0.08205e+0_fp * T * LWC ) /                &\n           ( Hnh3_T * 0.08205e+0_fp * T * LWC * ( Kw + Ka1_T * &\n           HPLUS ) + Kw)**2\n\n      END FUNCTION dkNH3\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kFA\n!\n! !DESCRIPTION: Function kFA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION kFA ( P, T, LWC, HPLUS, FA ) RESULT ( kFAp )\n!\n\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, FA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KFAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for formic acid (HCOOH). Values\n!                              taken from Sienfeld and Pandis. Made it\n!                              to output is [FA]\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kformate = 1.8e-4_fp ! equib const\n      REAL(fp),  PARAMETER  :: Hfa = 8800e+0_fp ! henry const\n      REAL(fp),  PARAMETER  :: Dhfa = 6100e+0_fp ! henry temp\n      REAL(fp),  PARAMETER  :: DhrKfa = 151.e+0_fp ! equib temp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hfa_T, Kfa_T\n      REAL(fp)              :: Hfaeff, xFA, pFA\n\n      !=================================================================\n      ! kFA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HFA_T = Hfa*exp(Dhfa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kfa_T = Kformate*exp(DhrKfa*((1.0e+0_fp/T) &\n           - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n      Hfaeff = Hfa_T*(1.0e+0_fp+(Kfa_T/HPLUS))\n      xFA = 1.0e+0_fp / ( 1.0e+0_fp &\n          + ( Hfaeff * 0.08205e+0_fp * T * LWC ) )\n      pFA = FA * P * xFA\n\n      kFAp = Hfa_T * Kfa_T * pFA / HPLUS\n\n      END FUNCTION kFA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkFA\n!\n! !DESCRIPTION: Function dkFA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkFA ( P, T, LWC, HPLUS, FA ) RESULT ( kFAp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, FA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KFAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for formic acid (HCOOH). Values\n!  taken from\n!                              Sienfeld and Pandis. Made it to output is\n!                              [FA]\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kformate = 1.8e-4_fp ! equib const\n      REAL(fp),  PARAMETER  :: Hfa = 8800e+0_fp ! henry const\n      REAL(fp),  PARAMETER  :: Dhfa = 6100e+0_fp ! henry temp\n      REAL(fp),  PARAMETER  :: DhrKfa = 151.e+0_fp ! equib temp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Hfa_T, Kfa_T\n\n      !=================================================================\n      ! dkFA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HFA_T = Hfa*exp(Dhfa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kfa_T = Kformate*exp(DhrKfa*((1.0e+0_fp/T) &\n           - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n\n      kFAp = -1.0e+0_fp * Kfa_T * HFA_T * FA * P *           &\n           ( 1.0e+0_fp + HFA_T * 0.08205e+0_fp * T * LWC ) / &\n           ( Kfa_T * HFA_T * 0.08205e+0_fp * T * LWC +       &\n           HFA_T * 0.08205e+0_fp * T * LWC * HPLUS +         &\n           HPLUS )**2\n\n      END FUNCTION dkFA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: kAA\n!\n! !DESCRIPTION: Function kAA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION kAA ( P, T, LWC, HPLUS, AA ) RESULT ( kAAp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, AA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KAAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for acetic acid (CH3COOH).\n!  Values taken from\n!                              Sienfeld and Pandis, value of [HCOOH]\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! CH3HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kacetate = 1.75e-5_fp\n      REAL(fp),  PARAMETER  :: Haa = 4100e+0_fp\n      REAL(fp),  PARAMETER  :: Dhaa = 6200e+0_fp\n      REAL(fp),  PARAMETER  :: DhrKaa = 50.0e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Haa_T, Kaa_T\n      REAL(fp)              :: Haaeff, xAA, pAA\n      !=================================================================\n      ! kAA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HAA_T = Haa*exp(Dhaa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kaa_T = Kacetate*exp(DhrKaa*((1.0e+0_fp/T) &\n          - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n      Haaeff = Haa_T*(1.0e+0_fp+(Kaa_T/HPLUS))\n      xAA = 1.0e+0_fp / ( 1.0e+0_fp &\n         + ( Haaeff * 0.08205e+0_fp * T * LWC ) )\n      pAA = AA * P * xAA\n\n      kAAp = Haa_T * Kaa_T * pAA / HPLUS\n\n      END FUNCTION kAA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: dkAA\n!\n! !DESCRIPTION: Function kdAA\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      FUNCTION dkAA ( P, T, LWC, HPLUS, AA ) RESULT ( kAAp )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(IN) :: T, P, LWC, HPLUS, AA\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp)              :: KAAp\n!\n! !REVISION HISTORY:\n!  25 Jan 2012 - M. Payer    - Added ProTeX headers\n!  28 Apr 2015 - E. Lundgren - Input pressure is now dry air partial\n!  pressure\n!  17 Oct 2017 - M. Sulprizio- Dhck value is from Table 7.3 of Seinfeld\n!  and\n!                              Pandis (2006, pp 289) and should be\n!                              positive for\n!                              consistency with the way it is used here.\n!                              Also,\n!                              the value of R, in units of kcal mol-1\n!                              K-1, is\n!                              1.986x10^-3, not 0.04. (Qianjie Chen)\n!  03 Dec 2018 - J. Moch     - Modified for acetic acid (CH3COOH).\n!  Values taken from\n!                              Sienfeld and Pandis. Output is\n!                              derivative.\n!  01 May 2020 - V. Shah     - Use correct equilibrium constants\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n      ! HCOOH dissociation constants\n      REAL(fp),  PARAMETER  :: Kacetate = 1.75e-5_fp\n      REAL(fp),  PARAMETER  :: Haa = 4100e+0_fp\n      REAL(fp),  PARAMETER  :: Dhaa = 6200e+0_fp\n      REAL(fp),  PARAMETER  :: DhrKaa = 50.0e+0_fp\n!\n! !LOCAL VARIABLES:\n!\n      REAL(fp)              :: Haa_T, Kaa_T\n      !=================================================================\n      ! kAA begins here!\n      !=================================================================\n\n      ! Formic acid dissolution constants\n      HAA_T = Haa*exp(Dhaa*((1.0e+0_fp/T)-(1.0e+0_fp/298.0e+0_fp)))\n      Kaa_T = Kacetate*exp(DhrKaa*((1.0e+0_fp/T) &\n          - (1.0e+0_fp/298.0e+0_fp)))\n\n      !HCOOH  dissolution\n      kAAp =  -1.0e+0_fp * Kaa_T * HAA_T * AA * P * &\n          ( 1.0e+0_fp + HAA_T * 0.08205e+0_fp * T * LWC ) / &\n          ( Kaa_T * HAA_T * 0.08205e+0_fp * T * LWC + &\n          HAA_T * 0.08205e+0_fp * T * LWC * HPLUS + &\n          HPLUS )**2\n\n\n      END FUNCTION dkAA\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CaCO3_PRECIP\n!\n! !DESCRIPTION: Subroutine CaCO3 to calculate [Ca++] in equilibrium with\n! CaCO3(s) (dust particles) depending on [H+]\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n      SUBROUTINE CaCO3_PRECIP ( P,  T, HPLUS, fCa, dCa )\n!\n! !INPUT PARAMETERS:\n!\n      REAL(fp),        INTENT(IN) :: T, P, HPLUS\n!\n! !OUTPUT PARAMETERS:\n!\n      REAL(fp),  INTENT(OUT):: fCa, dCa ! [Ca2+] and d([Ca2+])/d[H+]\n!\n! !REVISION HISTORY:\n!  25 Dec 2019 - V. Shah - Initial version\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n! !DEFINED PARAMETERS:\n!\n      REAL(fp),  PARAMETER  :: Kc1 = 4.3e-7_fp\n      REAL(fp),  PARAMETER  :: Kc2 = 4.68e-11_fp\n      REAL(fp),  PARAMETER  :: DhrKc1 = -1000.\n      REAL(fp),  PARAMETER  :: DhrKc2 = -1760.\n      REAL(fp),  PARAMETER  :: Hco2 = 3.4e-2_fp\n      REAL(fp),  PARAMETER  :: Dhco2 = 2.44e+3_fp\n      ! CO2 concentration [v/v]\n      REAL(fp),  PARAMETER  :: CO2 = 390.0e-6_fp\n      REAL(fp),  PARAMETER  :: Ksp = 3.3e-9_fp\n      REAL(fp),  PARAMETER  :: DHrKsp = -1200e+0_fp\n\n! !LOCAL VARIABLES:\n      REAL(fp)              :: HCO2_T, Kc1_T, Kc2_T, Ksp_T\n\n! !REMARKS:\n\n      !=================================================================\n      ! CaCO3_PRECIP begins here!\n      !=================================================================\n      !Temperature adjusted eq. constants\n      !CO2 dissolution constants\n      Hco2_T = Hco2*exp(Dhco2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc1_T = Kc1*exp(DhrKc1*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n      Kc2_T = Kc2*exp(DhrKc2*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      ! CaCO3 eq constants\n      Ksp_T = Ksp*exp(DhrKsp*((1.e+0_fp/T)-(1.e+0_fp/298.e+0_fp)))\n\n      !Ca concentrations [M]\n      fCa = Ksp_T * HPLUS * HPLUS / (Kc1_T * Kc2_T * Hco2_T * CO2 * P)\n      !derivative d[Ca2+]/dH+\n      dCa  = 2e+0_fp * Ksp_T * HPLUS / (Kc1_T * Kc2_T * Hco2_T * CO2 * P)\n\n      END SUBROUTINE CaCO3_PRECIP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: aqchem_so2\n!\n! !DESCRIPTION: Subroutine AQCHEM\\_SO2 computes the reaction rates for aqueous\n! SO2 chemistry. (rjp, bmy, 10/31/02, 12/12/02)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE AQCHEM_SO2( I,      J,       L,      LWC,     T,      P,        &\n                         SO2,    H2O2,    O3,     HCHO,    Hplus,  MnII,     &\n                         FeIII,  KaqH2O2, KaqO3,  KaqO3_1, KaqO2,  HSO3aq,   &\n                         SO3aq,  KaqHCHO, KaqHMS, KaqHMS2                   )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,  INTENT(IN)  :: I, J, L ! Coordinates, for diagnostic use -- MSL\n\n    REAL(fp), INTENT(IN)  :: LWC     ! Liq water content [m3/m3]=1.E-6*L [g/m3]\n    REAL(fp), INTENT(IN)  :: T       ! Temperature [K]\n    REAL(fp), INTENT(IN)  :: P       ! Dry air partial pressure [atm]\n    REAL(fp), INTENT(IN)  :: SO2     ! SO2  mixing ratio [v/v]\n    REAL(fp), INTENT(IN)  :: H2O2    ! H2O2 mixing ratio [v/v]\n    REAL(fp), INTENT(IN)  :: O3      ! O3   mixing ratio [v/v]\n    REAL(fp), INTENT(IN)  :: HPLUS   ! Concentration of H+ ion (i.e. pH) [v/v]\n    REAL(fp), INTENT(IN)  :: MnII    ! Concentration of MnII [mole/l]\n    REAL(fp), INTENT(IN)  :: FeIII   ! Concentration of FeIII [mole/l]\n    REAL(fp), INTENT(IN)  :: HCHO    ! HCHO   mixing ratio [v/v] (jmm, 06/13/18)\n\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL(fp), INTENT(OUT) :: KaqH2O2 ! Reaction rate for H2O2\n    REAL(fp), INTENT(OUT) :: KaqO3   ! Reaction rate for O3\n    REAL(fp), INTENT(OUT) :: KaqO3_1 ! only the SO3-- oxidation, (qjc, 04/10/16)\n    REAL(fp), INTENT(OUT) :: KaqO2   ! Reaction rate for O2 (metal cat)\n    REAL(fp), INTENT(OUT) :: KaqHCHO ! Reaction rate for SO2 and HCHO (jmm, 06/13/18)\n    REAL(fp), INTENT(OUT) :: KaqHMS  ! Reaction rate for HMS and OH- (jmm, 06/13/18)\n    REAL(fp), INTENT(OUT) :: KaqHMS2 ! Reaction rate for HMS and OH(aq) (jmm, 06/28/18)\n    REAL(fp), INTENT(OUT) :: HSO3aq  ! Cloud bisulfite [mol/l] (qjc, 06/10/16)\n    REAL(fp), INTENT(OUT) :: SO3aq   ! Cloud sulfite   [mol/l] (qjc, 06/10/16)\n!\n! !REMARKS:\n!  Chemical Reactions:\n!  ============================================================================\n!  (R1) HSO3- + H2O2(aq) + H+ => SO4-- + 2H+ + H2O [Jacob, 1986]\n!                                                                             .\n!      d[S(VI)]/dt = k[H+][H2O2(aq)][HSO3-]/(1 + K[H+])\n!      [Seinfeld and Pandis, 1998, page 366]\n!                                                                             .\n!  (R2) SO2(aq) + O3(aq) =>\n!       HSO3-   + O3(aq) =>\n!       SO3--   + O3(aq) =>\n!       [Jacob, 1986; Jacobson, 1999]\n!                                                                             .\n!       d[S(VI)]/dt = (k0[SO2(aq)] + k1[HSO3-] + K2[SO3--])[O3(aq)]\n!       [Seinfeld and Pandis, 1998, page 363]\n!                                                                             .\n!  (R3) HSO3-   + HCHO(aq) => HMS\n!       SO3--   + HCHO(aq) => HMS + OH-\n!       [Moch et al., 2018; Olson and Hoffman, 1986]\n!                                                                             .\n!       d[S(HMS)]/dt = (k1[HSO3-] + k2[SO3--])[HCHO(aq)]\n!       [Seinfeld and Pandis, 2016, 309]\n!\n!  (R4) HMS + OH- => HCHO(aq) + SO3--\n!       [Moch et al., 2018; Deister et al., 1986]\n!        (note treated as 1st order in contrast to other reactions here)\n!\n!  (R5) HMS + OH(aq) =(SO2,HO2,O2)=> HCHO + 2SO4-- + O2 + 3H+ + 2H2O\n!       [Jacob et al, 1986, Olson and Fessenden, 1992;\n!        Seinfeld and Pandis, 2016, Table 7A.7]\n!          Net reaction (R5):\n!           HMS + OH(aq) =(O2)=> SO5- + HCHO + H2O\n!           HO2 <=> H+ + O2-\n!           SO5- + O2- =(H2O)=> HSO5- + OH- + O2\n!           SO2(aq) <=> HSO3- + H+\n!           H+ + OH- <=> H2O\n!           HSO5- + HSO3- => 2SO4-- + 2H+\n!\n!  Reaction rates can be given as\n!       Ra     = k [H2O2(ag)] [S(IV)]  [mole/liter*s]  OR\n!       Krate  = Ra LWC R T / P        [1/s]\n!                                                                             .\n!  Where:\n!       LWC = Liquid water content(g/m3)*10-6 [m3(water)/m3(gas)]\n!       R   = 0.08205  (atm L / mol-K), Universal gas const.\n!       T   = Temperature (K)\n!       P   = Pressure (atm)\n!                                                                             .\n!  Procedure:\n!  ============================================================================\n!  (a ) Given [SO2] which is assumed to be total SO2 (gas+liquid) in\n!        equilibrium between gas and liquid phase.\n!                                                                             .\n!  (b ) We can compute SO2(g) using Henry's law\n!          P(so2(g)) = Xg * [SO2]\n!          Xg = 1/(1 + Faq), Fraction of SO2 in gas\n!       where:\n!          Faq   = Kheff * R * T * LWC,\n!          KHeff = Effective Henry's constant\n!                                                                             .\n!  (c ) Then Calculate Aquous phase, S[IV] concentrations\n!        S[IV] = Kheff * P(so2(g) in atm) [M]\n!                                                                             .\n!  (d ) The exact same procedure is applied to calculate H2O2(aq) and HCHO(aq)\n!\n! !REVISION HISTORY:\n!  (1 ) Updated by Rokjin Park (rjp, bmy, 12/12/02)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    REAL(fp), PARAMETER  :: R   = 0.08205e+0_fp\n    REAL(fp), PARAMETER  :: dOH = 1.0e-19_fp ! [M cm^3 molec^-1]\n!\n! !LOCAL VARIABLES:\n!\n    REAL(fp)             :: KH2O2,   RA,     KS1,    KS2,    HCSO2\n    REAL(fp)             :: FHCSO2,  XSO2G,  SIV,    HSO3,   XSO2AQ\n    REAL(fp)             :: XHSO3,   XSO3,   KH1,    HCH2O2, FHCH2O2\n    REAL(fp)             :: XH2O2G,  H2O2aq, KO0,    KO1,    KO2\n    REAL(fp)             :: HCO3,    XO3g,   O3aq,   XHCHOg, HCHCHO\n    REAL(fp)             :: FHCHCHO, KHCHO1, KHCHO2, KHMS,   KW1\n    REAL(fp)             :: KHC1,    KHMS2\n\n    !=================================================================\n    ! AQCHEM_SO2 begins here!\n    !\n    ! Aqueous reaction rate\n    ! HSO3- + H2O2 + H+ => SO4-- + 2H+ + H2O [Jacob, 1986]\n    !=================================================================\n\n    ! [Jacob, 1986]\n    KH2O2 = 6.31e+14_fp * EXP( -4.76e+3_fp / T )\n\n    !! [Jacobson, 1999]\n    !KH2O2 = 7.45e+0_fp7 * EXP( -15.96e+0_fp * ( (298.15/T) - 1.) ) / &\n    !        ( 1.e+0_fp + 13.e+0_fp * Hplus)\n\n    !=================================================================\n    ! Equilibrium reaction of SO2-H2O\n    !    SO2 + H2O = SO2(aq)        (s0)\n    !    SO2(ag)   = HSO3- + H+     (s1)\n    !    HSO3-     = SO3-- + H+     (s2)\n    !\n    ! Reaction constant for Aqueous chemistry -- No big difference\n    ! between Jacob and Jacobson, choose one of them.\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of SO2:\n    !            As1      Bs1   As2      Bs2\n    !  Seinfeld  1.30d-2  7.02  6.60d-8  3.76   [1998]\n    !  Jacob     1.30d-2  6.75  6.31d-8  5.05   [1986]\n    !  Jacobson  1.71d-2  7.04  5.99d-8  3.74   [1996]\n    !=================================================================\n    Ks1    = 1.30e-2_fp * EXP( 6.75e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    Ks2    = 6.31e-8_fp * EXP( 5.05e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! SIV Fraction\n    XSO2aq = 1.e+0_fp/(1.e+0_fp + Ks1/Hplus + Ks1*Ks2/(Hplus*Hplus))\n    XHSO3  = 1.e+0_fp/(1.e+0_fp + Hplus/Ks1 + Ks2/Hplus)\n    XSO3   = 1.e+0_fp/(1.e+0_fp + Hplus/Ks2 + Hplus*Hplus/(Ks1*Ks2))\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for SO2\n    HCSO2  = 1.22e+0_fp * EXP( 10.55e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n    FHCSO2 = HCSO2 * (1.e+0_fp + (Ks1/Hplus) + (Ks1*Ks2 / (Hplus*Hplus)))\n\n    XSO2g  = 1.e+0_fp / ( 1.e+0_fp + ( FHCSO2 * R * T * LWC ) )\n    SIV    = FHCSO2 * XSO2g * SO2 * P\n    !HSO3   = Ks1 * HCSO2 * XSO2g * SO2 * P\n\n    ! Effective HSO3aq for HOBr+HSO3\n    HSO3aq = SIV * XHSO3           ! unit: M (qjc, 06/10/16)\n\n    ! Effective SO3aq for HOBr+SO3\n    SO3aq  = SIV * XSO3            ! unit: M (qjc, 06/10/16)\n\n    !=================================================================\n    ! H2O2 equilibrium reaction\n    ! H2O2 + H2O = H2O2.H2O\n    ! H2O2.H2O   = HO2- + H+   1)\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of SO2\n    !            Ah1       Bh1\n    !  Jacob     1.58E-12  -12.49  [1986]\n    !  Jacobson  2.20E-12  -12.52  [1996]\n    !=================================================================\n    Kh1 = 2.20e-12_fp * EXP( -12.52e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for H2O2\n    ! [Seinfeld and Pandis, 1998]\n    ! HCH2O2  = 7.45D4 * EXP( 24.48e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n\n    ! [Jacobson,1999]\n    HCH2O2  = 7.45e+4_fp * EXP( 22.21e+0_fp * (298.15e+0_fp / T - 1.e+0_fp) )\n    FHCH2O2 = HCH2O2 * (1.e+0_fp + (Kh1 / Hplus))\n\n    XH2O2g  = 1.e+0_fp / ( 1.e+0_fp + ( FHCH2O2 * R * T * LWC ) )\n    !H2O2aq  = FHCH2O2 * XH2O2g * H2O2 * P\n\n    ! Conversion rate from SO2 to SO4 via reaction with H2O2\n    KaqH2O2  = kh2o2 * Ks1 * FHCH2O2 * HCSO2 * XH2O2g * XSO2g &\n               * P * LWC * R * T            ! [v/v/s]\n\n    !=================================================================\n    !  Aqueous reactions of SO2 with O3\n    !  SO2(aq) + O3 =>                       (0)\n    !  HSO3-   + O3 => SO4-- + H+ + O2       (1)\n    !  SO3--   + O3 => SO4-- + O2            (2)\n    !\n    ! NOTE\n    ! [Jacob, 1986]\n    !    KO1  = 3.49E12 * EXP( -4.83E3 / T )\n    !    KO2  = 7.32E14 * EXP( -4.03E3 / T )\n    !\n    ! [Jacobson, 1999]\n    !    KO0  = 2.40E+4\n    !    KO1  = 3.70E+5 * EXP( -18.56 * ((298.15/T) - 1.))\n    !    KO2  = 1.50E+9 * EXP( -17.72 * ((298.15/T) - 1.))\n    !\n    ! Rate constants from Jacobson is larger than those of Jacob\n    ! and results in faster conversion from S(IV) to S(VI)\n    ! We choose Jacob 1) 2) and Jacobson 0) here\n    !=================================================================\n    KO0 = 2.40e+4_fp\n    KO1 = 3.49e+12_fp * EXP( -4.83e+3_fp / T )\n    KO2 = 7.32e+14_fp * EXP( -4.03e+3_fp / T )\n\n    !=================================================================\n    ! H2O2 equilibrium reaction\n    ! O3 + H2O = O3.H2O\n    !  HCO3  = 1.13E-2 * EXP( 8.51 * (298.15/T -1.) ), S & P\n    !  HCO3  = 1.13E-2 * EXP( 7.72 * (298.15/T -1.) ), Jacobson\n    !=================================================================\n\n    ! Calculate Henry's Law constant for atmospheric temperature\n    HCO3  = 1.13e-2_fp * EXP( 8.51e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    XO3g  = 1.e+0_fp / ( 1.e+0_fp + ( HCO3 * R * T * LWC ) )\n    !O3aq  = HCO3 * XO3g * O3 * P\n\n    ! Conversion rate from SO2 to SO4 via reaction with O3\n    KaqO3 = (KO0*XSO2AQ + KO1*XHSO3 + KO2*XSO3) * FHCSO2 * XSO2g &\n            * P * HCO3 * XO3g * LWC * R * T   ! [v/v/s]\n\n    !(qjc, 04/10/16)\n    KaqO3_1 = KO2*XSO3 * FHCSO2 * XSO2g &\n              * P * HCO3 * XO3g * LWC * R * T   ! [v/v/s]\n\n    ! ===================================================================\n    ! Metal (Fe, Mn) catalyzed O2 oxidation (bec, 7/12/04)\n    ! R = d[S(VI)]/dt = 750*[Mn(II)]*[S(IV)] + 2600*[Fe(III)]*[S(IV)] +\n    !               1.d10*[Mn(II)]*[Fe(III)]*[S(IV)]\n    ! from Seinfeld and Pandis, 1998 pg. 371\n    ! S(IV) = HFCSO2 * XSO2*P*[SO2]\n    ! R = KaqO2*[SO2] (v/v/s)\n    ! KaqO2 = FHCSO2 * XSO2g * P *\n    !        ((750*[Mn(II)])+(2600[Fe(III)])+(1.d10*[Mn(II)]*[Fe(III)]))\n    ! in units of [M/s]\n    ! KaqO2 = FHCSO2 * XSO2g * P *\n    !        ((750*[Mn(II)])+(2600[Fe(III)])+(1.d10*[Mn(II)]*[Fe(III)])) *\n    !        LWC * R * T/P\n    ! in units of [v/v/s]\n    ! ===================================================================\n\n    ! Conversion rate from SO2 to SO4 via reaction with O2 (met cat)\n    KaqO2 = FHCSO2 * XSO2g * ( (750e+0_fp * MnII ) + &\n            ( 2600e+0_fp * FeIII ) + (1e+10_fp * MnII * FeIII ) ) * &\n            LWC * R * T   ! [s-1]\n\n    !=================================================================\n    !  Aqueous reactions of SO2 with HCHO\n    !     HSO3-   + HCHO(aq) => HMS + OH-           (1)\n    !     SO3--   + HCHO(aq) => HMS                 (2)\n    !\n    !     NOTE:\n    !     [Boyce and Hoffman, 1984]\n    !        KHCHO1  = 7.9E2 * EXP( -16.435 * ((298.15/T) - 1.))\n    !        KHCHO2  = 2.5E7 * EXP( -6.037 * ((298.15/T) - 1.))\n    !\n    !\n    !  Aqueous reaction of HMS with OH-\n    !    HMS + OH- => HCHO(aq) + SO3--             (3)\n    !\n    !     NOTE: unclear where B (E/R) value in Seinfeld and Pandis from,\n    !     but close to Deister. Using Seinfeld and Pandis value for now\n    !     [Deister et al., 1986]\n    !        KHMS    = 3.6E3 * EXP( -22.027 * ((298.15/T) - 1.))\n    !     [Seinfeld and Pandis, 2016; Munger et al., 1986]\n    !        KHMS    = 3.6E3 * EXP( -15.09 * ((298.15/T) - 1.))\n    !\n    !\n    !  Aqueous reaction of HMS with OH(aq)\n    !    HMS + OH(aq) =(SO2,O2,HO2)=> 2SO4-- + HCHO + O2 + 3H+ + 2H2O  (4)\n    !\n    !    NOTE: O2, SO2, and HO2 particpate in the stoichiometry but not kinetics.\n    !          Assume steady state for sulfur radicals and the following reaction chain:\n    !            HMS + OH(aq) =(O2)=> SO5- + HCHO + H2O [Olsen and Fessenden, 1992]\n    !            HO2 <=> H+ + O2-                       [Jacob, 1986]\n    !            SO5- + O2- =(H2O)=> HSO5- + OH- + O2   [Jacob, 1986]\n    !            SO2(aq) <=> HSO3- + H+\n    !            H+ + OH- <=> H2O\n    !            HSO5- + HSO3- => 2SO4-- + 2H+          [Jacob, 1986]\n    !       Instead of assuming Henry's law for OH, use the parameter from\n    !       Jacob et al, 2005 that relates gas phase OH to aqueous phase OH\n    !       accounting for the HO2(aq)/O2- cylcing in cloud droplets:\n    !        dOH = 1E-19 [M cm^3 molec^-1]\n    !     [Olson and Fessenden, 1992]\n    !        KHMS2    = 6.2E8 * EXP( -5.03 * ((298.15/T) -1.))\n    !\n    !\n    ! (jmm, 06/28/18)\n    !=================================================================\n    KHCHO1 = 7.9e+2_fp * EXP( -16.44e+0_fp & ! L/mol/s\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    KHCHO2 = 2.5e+7_fp * EXP( -6.04e+0_fp  & ! L/mol/s\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    KHMS   = 3.6e+3_fp * EXP( -15.09e+0_fp & ! L/mol/s\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    KHMS2  = 2.65e+8_fp * EXP( -5.03e+0_fp & ! L/mol/s\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    !=================================================================\n    ! HCHO equilibrium reaction\n    ! HCHO(aq) + H2O   = HCH(OH)2\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of HCHO\n    !                             Ah1       Bh1\n    !  Sienfeld and Pandis      2.53E3    13.48  [2016]\n    !\n    ! (jmm, 06/15/18)\n    !=================================================================\n    Khc1 = 2.53e+3_fp * EXP( 13.48e+0_fp &\n         * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    !=================================================================\n    ! H2O equilibrium reaction\n    !  H2O   = H+ + OH-\n    !\n    ! Reaction rate dependent on Temperature is given\n    !   H = A exp ( B (T./T - 1) )\n    !\n    ! For equilibrium reactions of HCHO\n    !                             Ah1       Bh1\n    !  Sienfeld and Pandis       1E-14     -22.51  [2016]\n    !\n    ! (jmm, 06/15/18)\n    !=================================================================\n    Kw1 = 1e-14_fp * EXP( -22.51e+0_fp &\n         *  ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for HCHO\n    ! [Seinfeld and Pandis, 2016]\n    ! HCHCHO  = 2.5 * EXP( 21.6e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n    ! (jmm, -6/15/18)\n    HCHCHO  = 2.5e+0_fp * EXP( 21.6e+0_fp &\n         *  (298.15e+0_fp / T - 1.e+0_fp) )\n    FHCHCHO = HCHCHO * (1.e+0_fp + Khc1 )\n\n    XHCHOg  = 1.e+0_fp / ( 1.e+0_fp + ( FHCHCHO * R * T * LWC ) )\n\n\n    ! Conversion rate from SO2 to HMS via reaction with HCHO\n    ! (jmm, 06/15/18)\n    KaqHCHO = (KHCHO1*XHSO3 + KHCHO2*XSO3) * FHCSO2 * XSO2G &\n         * P * HCHCHO * XHCHOg * LWC * R * T    ! [v/v/s]\n\n    ! Conversion rate from HMS to SO2 via reaction with OH-\n    ! (jmm, 06/15/18; MSL 1/18/22)\n    KaqHMS = KHMS * ( Kw1 / Hplus ) * 0.7e0_fp  ! 70% scavenged by clouds; units [1/s]\n\n    ! Conversion rate from HMS to SO42- & HCHO via reaction with OH(aq)\n    ! (jmm, 06/28/18; MSL, 01/14/22)\n    KaqHMS2 = KHMS2 * dOH * 0.7e0_fp ! 70% scavenged by clouds; units [cm3/mcl/s]\n\n  END SUBROUTINE AQCHEM_SO2\n!EOC\n\n  SUBROUTINE SET_2R_CLD( T, LWC, FC, HPLUS, CNVFAC, P, SO2, H2O2, KaqH2O2 )\n\n    REAL(fp), PARAMETER   :: R = 0.08205e+0_fp\n    REAL(FP) :: KH2O2, KS1, KS2, T, XSO2aq, LWC, FC\n    REAL(FP) :: XHSO3, XSO3, HCSO2, HPLUS, FHCSO2\n    REAL(FP) :: XSO2g, KH1, HCH2O2, FHCH2O2, XH2O2g\n    REAL(FP) :: KaqH2O2\n    REAL(FP) :: SO2, H2O2, A, B, KAB, CNVFAC, P\n\n    ! [Jacob, 1986]\n    KH2O2  = 6.31e+14_fp * EXP( -4.76e+3_fp / T )\n    Ks1    = 1.30e-2_fp * EXP( 6.75e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n    Ks2    = 6.31e-8_fp * EXP( 5.05e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! SIV Fraction\n    XSO2aq = 1.e+0_fp/(1.e+0_fp + Ks1/Hplus + Ks1*Ks2/(Hplus*Hplus))\n    XHSO3  = 1.e+0_fp/(1.e+0_fp + Hplus/Ks1 + Ks2/Hplus)\n    XSO3   = 1.e+0_fp/(1.e+0_fp + Hplus/Ks2 + Hplus*Hplus/(Ks1*Ks2))\n\n    ! Henry's constant [mol/l-atm] and Effective Henry's constant for SO2\n    HCSO2  = 1.22e+0_fp * EXP( 10.55e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp) )\n    FHCSO2 = HCSO2 * (1.e+0_fp + (Ks1/Hplus) + (Ks1*Ks2 / (Hplus*Hplus)))\n\n    XSO2g  = 1.e+0_fp / ( 1.e+0_fp + ( FHCSO2 * R * T * LWC ) )\n    Kh1 = 2.20e-12_fp * EXP( -12.52e+0_fp * ( 298.15e+0_fp / T - 1.e+0_fp ) )\n\n    ! [Jacobson,1999]\n    HCH2O2  = 7.45e+4_fp * EXP( 22.21e+0_fp * (298.15e+0_fp / T - 1.e+0_fp) )\n    FHCH2O2 = HCH2O2 * (1.e+0_fp + (Kh1 / Hplus))\n\n    XH2O2g  = 1.e+0_fp / ( 1.e+0_fp + ( FHCH2O2 * R * T * LWC ) )\n\n!    KaqH2O2  = kh2o2 * Ks1 * FHCH2O2 * HCSO2 * XH2O2g * XSO2g &\n\n    A = SO2\n    B = H2O2\n\n    KAB = kh2o2 * Ks1 * FHCH2O2 * HCSO2 * XH2O2g * XSO2g &\n               * P * LWC * R * T * CNVFAC ! cm2/mcl/s\n\n  END SUBROUTINE SET_2R_CLD\n\n  FUNCTION CloudHet2R( A, B, FC, KAB )  RESULT( KX )\n!\n! !DESCRIPTION: Function CloudHet2R calculates the effective, grid-average reaction rate \n!  for bimolecular reactions occuring in a partially cloudy grid cell.\n!  The function uses the approximate \"entrainment limited uptake\" equations of\n!  Holmes (2022). \n!\n!  Holmes, C.D. (2022) Technical Note: Entrainment-limited kinetics of bimolecular \n!    reactions in clouds, Atmos. Chem. Phys., https://doi.org/10.5194/acp-2021-752\n!\n! !USES\n!\n    USE rateLawUtilFuncs\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: FC         ! Cloud Fraction [0-1]\n    REAL(fp), INTENT(IN) :: A, B       ! Reactant Abundances, units must be consistent with KAB\n    REAL(fp), INTENT(IN) :: KAB        ! Bimolecular Rate Constant\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: KX ! Grid-average reaction rate, cm3/mcl/s\n!\n! !REVISION HISTORY:\n!  23 Aug 2018 - C. D. Holmes - Initial version\n!  15 May 2021 - M. Long      - Revision for two reactants\n!  27 Jun 2022 - C.D. Holmes  - Simplified and added comments\n!  See https://github.com/geoschem/geos-chem for complete history\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Residence time of air in clouds, s\n    REAL(FP), PARAMETER :: TAUC = 3600.0_fp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(FP) :: minAB\n!EOC\n!------------------------------------------------------------------------------\n!\n\n    ! Eq. 7b from Holmes (2022)\n    minAB = min( A, B )\n    KX = SafeDiv( FC * kAB * minAB / tauc, minAB / tauc + (1.0_fp - FC ) * kAB * A * B, 0.0_fp ) \n    \n  END FUNCTION CloudHet2R\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CloudHet1R\n!\n! !DESCRIPTION: Function CloudHet calculates the loss frequency (1/s) of gas\n!  species due to heterogeneous chemistry on clouds in a partially cloudy grid\n!  cell. The function uses the \"entrainment limited uptake\" equations of\n!  Holmes et al. (2019). Both liquid and ice water clouds are treated.\n!\n!  For gasses that are that are consumed in multiple aqueous reactions with\n!  different products, CloudHet can provide the loss frequency for each reaction\n!  branch using the optional branch ratios (branchLiq, branchIce) as arguments.\n!\n!  Holmes, C.D., Bertram, T. H., Confer, K. L., Ronan, A. C., Wirks, C. K.,\n!    Graham, K. A., Shah, V. (2019) The role of clouds in the tropospheric\n!    NOx cycle: a new modeling approach for cloud chemistry and its global\n!    implications, Geophys. Res. Lett. 46, 4980-4990,\n!    https://doi.org/10.1029/2019GL081990\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION CloudHet1R( fc, rate ) RESULT( kHet )\n!\n! !USES:\n!\n    USE rateLawUtilFuncs\n!\n! !INPUT PARAMETERS:\n!\n    REAL(fp), INTENT(IN) :: fc     ! Cloud Fraction [0-1]\n    REAL(fp), INTENT(IN) :: rate   ! 1st order reaction rate (1/s)\n!\n! !RETURN VALUE:\n!\n    REAL(fp)             :: kHet   ! Grid-average loss frequency, 1/s\n!\n! !REVISION HISTORY:\n!  23 Aug 2018 - C. D. Holmes - Initial version\n!  25 May 2021 - M. S. Long - Modified for 1st order aqueous reaction\n!                             where diffusion is not limiting\n!  See https://github.com/geoschem/geos-chem for complete history\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Residence time of air in clouds, s\n    real(fp), parameter :: tauc = 3600.0_fp\n!\n! !LOCAL VARIABLES:\n!\n    real(fp) :: kI, gam\n    real(fp) :: kk, ff, xx\n!\n!------------------------------------------------------------------------------\n!\n    ! If cloud fraction < 0.0001 (0.01%) or there is zero cloud surface area,\n    ! then return zero uptake\n    if ( ( fc < 0.0001_fp ) .or. ( rate <= 0.0_fp ) ) then\n       kHet = 0.0_fp\n       return\n    endif\n\n    !------------------------------------------------------------------------\n    ! Loss frequency inside cloud\n    !\n    ! Assume both water and ice phases are inside the same cloud, so mass\n    ! transport to both phases works in parallel (additive)\n    !------------------------------------------------------------------------\n\n    ! initialize loss, 1/s\n    kI  = rate ! total loss rate of a gas in cloud\n\n    !------------------------------------------------------------------------\n    ! Grid-average loss frequency\n    !\n    ! EXACT expression for entrainment-limited uptake\n    !------------------------------------------------------------------------\n\n    ! Ratio (in cloud) of heterogeneous loss to detrainment, s/s\n    kk = kI * tauc\n\n    ! Ratio of volume inside to outside cloud\n    ! ff has a range [0,+inf], so cap it at 1e30\n    ff = SafeDiv( fc, (1e0_fp - fc), 1e30_fp )\n    ff = MIN( ff, 1.0e30_fp )\n\n    ! Ratio of mass inside to outside cloud\n    ! xx has range [0,+inf], but ff is capped at 1e30, so shouldn't overflow\n    xx =     ( ff        - kk        - 1.0_fp       ) / 2.0_fp +             &\n         sqrt( 1.0_fp    + ff*ff     + kk*kk                   +             &\n               2.0_fp*ff + 2.0_fp*kk - 2.0_fp*ff*kk ) / 2.0_fp\n\n    ! Overall heterogeneous loss rate, grid average, 1/s\n    ! kHet = kI * xx / ( 1d0 + xx )\n    !  Since the expression ( xx / (1+xx) ) may behave badly when xx>>1,\n    !  use the equivalent 1 / (1 + 1/x) with an upper bound on 1/x\n    kHet = kI / ( 1e0_fp + SafeDiv( 1e0_fp, xx, 1e30_fp ) )\n\n  END FUNCTION CloudHet1R\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: fullchem_InitSulfurChem\n!\n! !DESCRIPTION: Stores species indices in module variables for fast lookup.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE fullchem_InitSulfurChem( RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Chm_Mod,  ONLY : Ind_\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  02 Jun 2000 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: I, J, N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=================================================================\n    ! INIT_SULFATE begins here!\n    !=================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = &\n ' -> at fullchem_InitSulfurChem (in KPP/fullchem/fullchem_SulfurChemFuncs.F90'\n\n    ! Define flags for species ID's\n    id_ACTA   = Ind_( 'ACTA'   )\n    id_CH2O   = Ind_( 'CH2O'   )\n    id_DMS    = Ind_( 'DMS'    )\n    id_DSTbin1   = Ind_( 'DSTbin1'   )\n    id_DSTbin2   = Ind_( 'DSTbin2'   )\n    id_DSTbin3   = Ind_( 'DSTbin3'   )\n    id_DSTbin4   = Ind_( 'DSTbin4'   )\n    id_DSTbin5   = Ind_( 'DSTbin5'   )\n    id_DSTbin6   = Ind_( 'DSTbin6'   )\n    id_DSTbin7   = Ind_( 'DSTbin7'   )\n    id_H2O2   = Ind_( 'H2O2'   )\n    id_HCL    = Ind_( 'HCL'    )\n    id_HCOOH  = Ind_( 'HCOOH'  )\n    id_HMS    = Ind_( 'HMS'    )\n    id_HNO3   = Ind_( 'HNO3'   )\n    id_MSA    = Ind_( 'MSA'    )\n    id_NH3    = Ind_( 'NH3'    )\n    id_NH4    = Ind_( 'NH4'    )\n    id_NIT    = Ind_( 'NIT'    )\n    id_NITs   = Ind_( 'NITs'   )\n    id_O3     = Ind_( 'O3'     )\n    id_OH     = Ind_( 'OH'     )\n    id_pFe    = Ind_( 'pFe'    )\n    id_SALA   = Ind_( 'SALA'   )  ! Sea salt aerosol     (fine mode  )\n    id_SALAAL = Ind_( 'SALAAL' )  ! Sea salt alkalinity  (fine mode  )\n    id_SALACL = Ind_( 'SALACL' )  ! Cl- on sea salt      (fine mode  )\n    id_SALC   = Ind_( 'SALC'   )  ! Sea salt aerosol     (coarse mode)\n    id_SALCAL = Ind_( 'SALCAL' )  ! Sea salt alkalinity  (coarse mode)\n    id_SALCCL = Ind_( 'SALCCL' )  ! Cl- on sea salt      (coarse mode)\n    id_SO2    = Ind_( 'SO2'    )\n    id_SO4    = Ind_( 'SO4'    )\n    id_SO4s   = Ind_( 'SO4s'   )\n\n  END SUBROUTINE fullchem_InitSulfurChem\n!EOC\nEND MODULE fullchem_SulfurChemFuncs\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Function.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The ODE Function of Chemical Model File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Function.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Function\n\n  USE gckpp_Global, only : DO_FUN\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\n! A - Rate for each equation\n  REAL(kind=dp) :: A(NREACT)\n  !$OMP THREADPRIVATE(  A )\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Fun - time derivatives of variables - Aggregate form\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      Vdot      - Time derivative of variable species concentrations\n!      Aout      - Optional argument to return equation rate constants\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun ( V, F, RCT, Vdot, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! Vdot - Time derivative of variable species concentrations\n  REAL(kind=dp) :: Vdot(NVAR)\n! Aout - Optional argument to return equation rate constants\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(179)*V(341)*V(348)\n  A(2) = RCT(2)*V(179)*V(339)\n  A(3) = RCT(3)*V(179)*V(327)\n  A(4) = RCT(4)*V(166)*V(341)*V(348)\n  A(5) = RCT(5)*V(166)*V(339)\n  A(6) = RCT(6)*V(166)*V(327)\n  A(7) = RCT(7)*V(264)*V(348)\n  A(8) = RCT(8)*V(341)*V(348)\n  A(9) = RCT(9)*V(348)\n  A(10) = RCT(10)*V(325)*V(348)\n  A(11) = RCT(11)*V(89)\n  A(12) = RCT(12)*V(89)*V(345)*V(348)\n  A(13) = RCT(13)*V(341)*V(346)\n  A(14) = RCT(14)*V(341)*V(345)\n  A(15) = RCT(15)*V(337)*V(341)\n  A(16) = RCT(16)*V(335)*V(341)\n  A(17) = RCT(17)*V(328)*V(341)\n  A(18) = RCT(18)*V(345)*V(345)\n  A(19) = RCT(19)*V(345)*V(345)\n  A(20) = RCT(20)*V(337)*V(345)\n  A(21) = RCT(21)*V(264)*V(345)\n  A(22) = RCT(22)*V(337)*V(346)\n  A(23) = RCT(23)*V(337)*V(337)\n  A(24) = RCT(24)*V(329)*V(345)\n  A(25) = RCT(25)*V(228)*V(345)\n  A(26) = RCT(26)*V(328)*V(346)\n  A(27) = RCT(27)*V(328)*V(346)\n  A(28) = RCT(28)*V(328)*V(337)\n  A(29) = RCT(29)*V(328)*V(328)\n  A(30) = RCT(30)*V(328)*V(328)\n  A(31) = RCT(31)*V(328)*V(345)\n  A(32) = RCT(32)*V(164)*V(345)\n  A(33) = RCT(33)*V(244)*V(345)\n  A(34) = RCT(34)*V(325)*V(345)\n  A(35) = RCT(35)*V(335)*V(345)\n  A(36) = RCT(36)*V(327)*V(345)\n  A(37) = RCT(37)*V(345)*V(346)\n  A(38) = RCT(38)*V(239)*V(345)\n  A(39) = RCT(39)*V(335)*V(337)\n  A(40) = RCT(40)*V(108)\n  A(41) = RCT(41)*V(108)*V(345)\n  A(42) = RCT(42)*V(337)*V(351)\n  A(43) = RCT(43)*V(346)*V(351)\n  A(44) = RCT(44)*V(345)*V(351)\n  A(45) = RCT(45)*V(335)*V(351)\n  A(46) = RCT(46)*V(214)\n  A(47) = RCT(47)*V(265)*V(345)\n  A(48) = RCT(48)*V(282)*V(345)\n  A(49) = RCT(49)*V(335)*V(351)\n  A(50) = RCT(50)*V(325)*V(351)\n  A(51) = RCT(51)*V(326)*V(345)\n  A(52) = RCT(52)*V(326)*V(351)\n  A(53) = RCT(53)*V(324)*V(335)\n  A(54) = RCT(54)*V(139)\n  A(55) = RCT(55)*V(139)*V(345)\n  A(56) = RCT(56)*V(324)*V(346)\n  A(57) = RCT(57)*V(183)*V(345)\n  A(58) = RCT(58)*V(296)*V(346)\n  A(59) = RCT(59)*V(296)*V(346)\n  A(60) = RCT(60)*V(315)*V(346)\n  A(61) = RCT(61)*V(141)*V(345)\n  A(62) = RCT(62)*V(141)*V(345)\n  A(63) = RCT(63)*V(321)*V(346)\n  A(64) = RCT(64)*V(321)*V(346)\n  A(65) = RCT(65)*V(260)*V(346)\n  A(66) = RCT(66)*V(69)*V(345)\n  A(67) = RCT(67)*V(69)*V(351)\n  A(68) = RCT(68)*V(178)*V(346)\n  A(69) = RCT(69)*V(178)*V(346)\n  A(70) = RCT(70)*V(178)*V(337)\n  A(71) = RCT(71)*V(98)*V(345)\n  A(72) = RCT(72)*V(196)*V(345)\n  A(73) = RCT(73)*V(165)*V(346)\n  A(74) = RCT(74)*V(165)*V(337)\n  A(75) = RCT(75)*V(140)*V(345)\n  A(76) = RCT(76)*V(140)*V(351)\n  A(77) = RCT(77)*V(140)*V(341)\n  A(78) = RCT(78)*V(212)*V(346)\n  A(79) = RCT(79)*V(212)*V(337)\n  A(80) = RCT(80)*V(127)*V(345)\n  A(81) = RCT(81)*V(233)*V(345)\n  A(82) = RCT(82)*V(132)*V(346)\n  A(83) = RCT(83)*V(132)*V(337)\n  A(84) = RCT(84)*V(197)*V(337)\n  A(85) = RCT(85)*V(197)*V(346)\n  A(86) = RCT(86)*V(197)*V(335)\n  A(87) = RCT(87)*V(126)\n  A(88) = RCT(88)*V(126)*V(345)\n  A(89) = RCT(89)*V(142)*V(345)\n  A(90) = RCT(90)*V(300)*V(346)\n  A(91) = RCT(91)*V(300)*V(346)\n  A(92) = RCT(92)*V(249)*V(346)\n  A(93) = RCT(93)*V(319)*V(346)\n  A(94) = RCT(94)*V(319)*V(346)\n  A(95) = RCT(95)*V(318)*V(346)\n  A(96) = RCT(96)*V(313)*V(346)\n  A(97) = RCT(97)*V(320)*V(346)\n  A(98) = RCT(98)*V(323)*V(346)\n  A(99) = RCT(99)*V(323)*V(346)\n  A(100) = RCT(100)*V(250)*V(346)\n  A(101) = RCT(101)*V(142)*V(351)\n  A(102) = RCT(102)*V(251)*V(345)\n  A(103) = RCT(103)*V(279)*V(345)\n  A(104) = RCT(104)*V(283)*V(345)\n  A(105) = RCT(105)*V(298)*V(345)\n  A(106) = RCT(106)*V(322)*V(335)\n  A(107) = RCT(107)*V(124)\n  A(108) = RCT(108)*V(124)*V(345)\n  A(109) = RCT(109)*V(322)*V(346)\n  A(110) = RCT(110)*V(298)*V(351)\n  A(111) = RCT(111)*V(295)*V(345)\n  A(112) = RCT(112)*V(321)*V(328)\n  A(113) = RCT(113)*V(260)*V(328)\n  A(114) = RCT(114)*V(319)*V(337)\n  A(115) = RCT(115)*V(318)*V(337)\n  A(116) = RCT(116)*V(300)*V(337)\n  A(117) = RCT(117)*V(249)*V(337)\n  A(118) = RCT(118)*V(313)*V(337)\n  A(119) = RCT(119)*V(320)*V(337)\n  A(120) = RCT(120)*V(323)*V(337)\n  A(121) = RCT(121)*V(250)*V(337)\n  A(122) = RCT(122)*V(292)*V(345)\n  A(123) = RCT(123)*V(320)*V(346)\n  A(124) = RCT(124)*V(246)*V(335)\n  A(125) = RCT(125)*V(113)\n  A(126) = 4.51e-12*V(113)*V(345)\n  A(127) = RCT(127)*V(246)*V(346)\n  A(128) = RCT(128)*V(246)*V(337)\n  A(129) = RCT(129)*V(296)*V(328)\n  A(130) = RCT(130)*V(315)*V(328)\n  A(131) = RCT(131)*V(292)*V(351)\n  A(132) = RCT(132)*V(319)*V(328)\n  A(133) = RCT(133)*V(318)*V(328)\n  A(134) = RCT(134)*V(300)*V(328)\n  A(135) = RCT(135)*V(249)*V(328)\n  A(136) = RCT(136)*V(313)*V(328)\n  A(137) = RCT(137)*V(320)*V(328)\n  A(138) = RCT(138)*V(323)*V(328)\n  A(139) = RCT(139)*V(250)*V(328)\n  A(140) = RCT(140)*V(156)*V(345)\n  A(141) = RCT(141)*V(188)*V(345)\n  A(142) = RCT(142)*V(296)*V(296)\n  A(143) = RCT(143)*V(315)*V(315)\n  A(144) = RCT(144)*V(296)*V(337)\n  A(145) = RCT(145)*V(315)*V(337)\n  A(146) = RCT(146)*V(321)*V(337)\n  A(147) = RCT(147)*V(260)*V(337)\n  A(148) = RCT(148)*V(322)*V(337)\n  A(149) = RCT(149)*V(290)*V(345)\n  A(150) = RCT(150)*V(290)*V(341)\n  A(151) = RCT(151)*V(306)*V(345)\n  A(152) = RCT(152)*V(306)*V(345)\n  A(153) = RCT(153)*V(306)*V(345)\n  A(154) = RCT(154)*V(306)*V(351)\n  A(155) = RCT(155)*V(213)*V(335)\n  A(156) = RCT(156)*V(114)\n  A(157) = RCT(157)*V(213)*V(346)\n  A(158) = RCT(158)*V(213)*V(337)\n  A(159) = RCT(159)*V(213)*V(351)\n  A(160) = RCT(160)*V(114)*V(345)\n  A(161) = RCT(161)*V(72)*V(345)\n  A(162) = RCT(162)*V(290)*V(351)\n  A(163) = RCT(163)*V(270)*V(345)\n  A(164) = RCT(164)*V(294)*V(345)\n  A(165) = RCT(165)*V(270)*V(351)\n  A(166) = RCT(166)*V(294)*V(351)\n  A(167) = RCT(167)*V(307)*V(345)\n  A(168) = RCT(168)*V(307)*V(345)\n  A(169) = RCT(169)*V(125)*V(345)\n  A(170) = RCT(170)*V(118)*V(345)\n  A(171) = RCT(171)*V(99)*V(345)\n  A(172) = RCT(172)*V(100)*V(345)\n  A(173) = RCT(173)*V(97)*V(345)\n  A(174) = RCT(174)*V(102)*V(345)\n  A(175) = RCT(175)*V(155)*V(345)\n  A(176) = RCT(176)*V(123)*V(345)\n  A(177) = RCT(177)*V(24)*V(345)\n  A(178) = RCT(178)*V(92)*V(345)\n  A(179) = RCT(179)*V(183)*V(351)\n  A(180) = RCT(180)*V(324)*V(324)\n  A(181) = RCT(181)*V(324)*V(328)\n  A(182) = RCT(182)*V(319)*V(324)\n  A(183) = RCT(183)*V(300)*V(324)\n  A(184) = RCT(184)*V(313)*V(324)\n  A(185) = RCT(185)*V(320)*V(324)\n  A(186) = RCT(186)*V(323)*V(324)\n  A(187) = RCT(187)*V(318)*V(324)\n  A(188) = RCT(188)*V(249)*V(324)\n  A(189) = RCT(189)*V(250)*V(324)\n  A(190) = RCT(190)*V(296)*V(324)\n  A(191) = RCT(191)*V(315)*V(324)\n  A(192) = RCT(192)*V(260)*V(324)\n  A(193) = RCT(193)*V(321)*V(324)\n  A(194) = RCT(194)*V(322)*V(324)\n  A(195) = RCT(195)*V(322)*V(328)\n  A(196) = RCT(196)*V(351)*V(351)\n  A(197) = RCT(197)*V(328)*V(335)\n  A(198) = RCT(198)*V(80)\n  A(199) = RCT(199)*V(94)*V(345)\n  A(200) = RCT(200)*V(94)*V(345)\n  A(201) = RCT(201)*V(94)*V(351)\n  A(202) = RCT(202)*V(345)*V(348)\n  A(203) = RCT(203)*V(341)*V(342)\n  A(204) = RCT(204)*V(337)*V(347)\n  A(205) = RCT(205)*V(337)*V(342)\n  A(206) = RCT(206)*V(345)*V(352)\n  A(207) = RCT(207)*V(347)*V(347)\n  A(208) = RCT(208)*V(347)*V(347)\n  A(209) = RCT(209)*V(346)*V(347)\n  A(210) = RCT(210)*V(218)*V(342)\n  A(211) = RCT(211)*V(148)*V(345)\n  A(212) = RCT(212)*V(316)*V(343)\n  A(213) = RCT(213)*V(343)*V(352)\n  A(214) = RCT(214)*V(345)*V(347)\n  A(215) = RCT(215)*V(342)*V(351)\n  A(216) = RCT(216)*V(325)*V(342)\n  A(217) = RCT(217)*V(326)*V(342)\n  A(218) = RCT(218)*V(295)*V(342)\n  A(219) = RCT(219)*V(183)*V(342)\n  A(220) = RCT(220)*V(141)*V(342)\n  A(221) = RCT(221)*V(335)*V(342)\n  A(222) = RCT(222)*V(335)*V(347)\n  A(223) = RCT(223)*V(81)*V(345)\n  A(224) = RCT(224)*V(78)*V(345)\n  A(225) = RCT(225)*V(105)*V(345)\n  A(226) = RCT(226)*V(334)*V(336)\n  A(227) = RCT(227)*V(334)*F(2)\n  A(228) = RCT(228)*V(334)*F(3)\n  A(229) = RCT(229)*V(334)*F(1)\n  A(230) = RCT(230)*V(63)*V(334)\n  A(231) = RCT(231)*V(228)*V(334)\n  A(232) = RCT(232)*V(343)*F(3)\n  A(233) = RCT(233)*V(341)*V(343)\n  A(234) = RCT(234)*V(345)*F(1)\n  A(235) = RCT(235)*V(343)*V(345)\n  A(236) = RCT(236)*V(337)*V(343)\n  A(237) = RCT(237)*V(334)*V(341)\n  A(238) = RCT(238)*V(68)*V(343)\n  A(239) = RCT(239)*V(68)*V(345)\n  A(240) = RCT(240)*V(335)*V(343)\n  A(241) = RCT(241)*V(343)*V(351)\n  A(242) = RCT(242)*V(343)*V(346)\n  A(243) = RCT(243)*V(335)*V(343)\n  A(244) = RCT(244)*V(264)*V(343)\n  A(245) = RCT(245)*V(217)*F(3)\n  A(246) = RCT(246)*V(217)*V(341)\n  A(247) = RCT(247)*V(217)*V(337)\n  A(248) = RCT(248)*V(67)*F(3)\n  A(249) = RCT(249)*V(67)*V(346)\n  A(250) = RCT(250)*V(67)*V(335)\n  A(251) = RCT(251)*V(343)*V(347)\n  A(252) = RCT(252)*V(325)*V(343)\n  A(253) = RCT(253)*V(334)*V(339)\n  A(254) = RCT(254)*V(334)*V(352)\n  A(255) = RCT(255)*V(245)*V(334)\n  A(256) = RCT(256)*V(46)*V(334)\n  A(257) = RCT(257)*V(181)*V(334)\n  A(258) = RCT(258)*V(105)*V(334)\n  A(259) = RCT(259)*V(78)*V(334)\n  A(260) = RCT(260)*V(81)*V(334)\n  A(261) = RCT(261)*V(87)*V(334)\n  A(262) = RCT(262)*V(47)*V(334)\n  A(263) = RCT(263)*V(48)*V(334)\n  A(264) = RCT(264)*V(61)*V(334)\n  A(265) = RCT(265)*V(53)*V(334)\n  A(266) = RCT(266)*V(85)*V(334)\n  A(267) = RCT(267)*V(86)*V(334)\n  A(268) = RCT(268)*V(84)*V(334)\n  A(269) = RCT(269)*V(49)*V(334)\n  A(270) = RCT(270)*V(50)*V(334)\n  A(271) = RCT(271)*V(51)*V(334)\n  A(272) = RCT(272)*V(54)*V(334)\n  A(273) = RCT(273)*V(245)*V(345)\n  A(274) = RCT(274)*V(328)*V(338)\n  A(275) = RCT(275)*V(338)*V(345)\n  A(276) = RCT(276)*V(338)*V(345)\n  A(277) = RCT(277)*V(120)*V(345)\n  A(278) = RCT(278)*V(76)*V(345)\n  A(279) = RCT(279)*V(339)*V(345)\n  A(280) = RCT(280)*V(333)*V(345)\n  A(281) = RCT(281)*V(297)*V(345)\n  A(282) = RCT(282)*V(317)*V(345)\n  A(283) = RCT(283)*V(181)*V(345)\n  A(284) = RCT(284)*V(79)*V(345)\n  A(285) = RCT(285)*V(75)*V(345)\n  A(286) = RCT(286)*V(43)*V(345)\n  A(287) = RCT(287)*V(87)*V(345)\n  A(288) = RCT(288)*V(85)*V(345)\n  A(289) = RCT(289)*V(86)*V(345)\n  A(290) = RCT(290)*V(84)*V(345)\n  A(291) = RCT(291)*V(228)*V(340)\n  A(292) = RCT(292)*V(325)*V(340)\n  A(293) = RCT(293)*V(340)*V(341)\n  A(294) = RCT(294)*V(340)*F(1)\n  A(295) = RCT(295)*V(264)*V(340)\n  A(296) = RCT(296)*V(337)*V(340)\n  A(297) = RCT(297)*V(337)*V(340)\n  A(298) = RCT(298)*V(338)*V(343)\n  A(299) = RCT(299)*V(337)*V(338)\n  A(300) = RCT(300)*V(338)*V(346)\n  A(301) = RCT(301)*V(335)*V(338)\n  A(302) = RCT(302)*V(338)*V(338)\n  A(303) = RCT(303)*V(338)*V(338)\n  A(304) = RCT(304)*V(338)*V(338)\n  A(305) = RCT(305)*V(340)*F(3)\n  A(306) = RCT(306)*V(110)\n  A(307) = RCT(307)*V(338)*V(338)\n  A(308) = RCT(308)*V(76)\n  A(309) = RCT(309)*V(110)*V(340)\n  A(310) = RCT(310)*V(338)*V(347)\n  A(311) = RCT(311)*V(338)*V(347)\n  A(312) = RCT(312)*V(338)*V(347)\n  A(313) = RCT(313)*V(317)*V(343)\n  A(314) = RCT(314)*V(317)*V(340)\n  A(315) = RCT(315)*V(181)*V(340)\n  A(316) = RCT(316)*V(79)*V(340)\n  A(317) = RCT(317)*V(75)*V(340)\n  A(318) = RCT(318)*V(265)*V(340)\n  A(319) = RCT(319)*V(328)*V(340)\n  A(320) = RCT(320)*V(164)*V(340)\n  A(321) = RCT(321)*V(183)*V(340)\n  A(322) = RCT(322)*V(296)*V(340)\n  A(323) = RCT(323)*V(315)*V(340)\n  A(324) = RCT(324)*V(282)*V(340)\n  A(325) = RCT(325)*V(156)*V(340)\n  A(326) = RCT(326)*V(283)*V(340)\n  A(327) = RCT(327)*V(141)*V(340)\n  A(328) = RCT(328)*V(141)*V(340)\n  A(329) = RCT(329)*V(295)*V(340)\n  A(330) = RCT(330)*V(276)*V(340)\n  A(331) = RCT(331)*V(142)*V(340)\n  A(332) = RCT(332)*V(290)*V(340)\n  A(333) = RCT(333)*V(290)*V(342)\n  A(334) = RCT(334)*V(331)*V(346)\n  A(335) = RCT(335)*V(62)*V(62)\n  A(336) = RCT(336)*V(331)*V(335)\n  A(337) = RCT(337)*V(252)\n  A(338) = RCT(338)*V(252)*V(252)\n  A(339) = RCT(339)*V(170)*V(351)\n  A(340) = RCT(340)*V(284)*V(335)\n  A(341) = RCT(341)*V(332)\n  A(342) = RCT(342)*V(331)*V(332)\n  A(343) = RCT(343)*V(331)*V(347)\n  A(344) = RCT(344)*V(284)*V(347)\n  A(345) = RCT(345)*V(96)*V(284)\n  A(346) = RCT(346)*V(96)*V(96)\n  A(347) = RCT(347)*V(42)\n  A(348) = RCT(348)*V(96)*V(346)\n  A(349) = RCT(349)*V(284)*V(338)\n  A(350) = RCT(350)*V(331)*V(341)\n  A(351) = RCT(351)*V(331)*V(337)\n  A(352) = RCT(352)*V(170)*V(345)\n  A(353) = RCT(353)*V(73)*V(345)\n  A(354) = RCT(354)*V(330)*V(345)\n  A(355) = RCT(355)*V(284)*V(337)\n  A(356) = RCT(356)*V(284)*V(346)\n  A(357) = RCT(357)*V(284)*V(284)\n  A(358) = RCT(358)*V(44)\n  A(359) = RCT(359)*V(52)*V(345)\n  A(360) = RCT(360)*V(261)*V(345)\n  A(361) = RCT(361)*V(247)*V(345)\n  A(362) = RCT(362)*V(312)*V(329)\n  A(363) = RCT(363)*V(312)*V(346)\n  A(364) = RCT(364)*V(312)*V(335)\n  A(365) = RCT(365)*V(312)*V(336)\n  A(366) = RCT(366)*V(312)*V(336)*V(336)\n  A(367) = RCT(367)*V(312)*V(341)\n  A(368) = RCT(368)*V(312)*V(348)\n  A(369) = RCT(369)*V(241)*V(329)\n  A(370) = RCT(370)*V(241)*V(346)\n  A(371) = RCT(371)*V(241)*V(335)\n  A(372) = RCT(372)*V(241)*V(348)\n  A(373) = RCT(373)*V(241)*V(336)\n  A(374) = RCT(374)*V(241)*V(336)\n  A(375) = RCT(375)*V(191)*V(351)\n  A(376) = RCT(376)*V(219)*V(351)\n  A(377) = RCT(377)*V(167)*V(351)\n  A(378) = RCT(378)*V(167)*V(345)\n  A(379) = RCT(379)*V(167)*V(341)\n  A(380) = RCT(380)*V(219)*V(345)\n  A(381) = RCT(381)*V(219)*V(341)\n  A(382) = RCT(382)*V(191)*V(345)\n  A(383) = RCT(383)*V(191)*V(341)\n  A(384) = RCT(384)*V(277)*V(337)\n  A(385) = RCT(385)*V(277)*V(346)\n  A(386) = RCT(386)*V(277)*V(351)\n  A(387) = RCT(387)*V(111)*V(345)\n  A(388) = RCT(388)*V(137)*V(345)\n  A(389) = RCT(389)*V(225)*V(351)\n  A(390) = RCT(390)*V(225)*V(345)\n  A(391) = RCT(391)*V(257)*V(337)\n  A(392) = RCT(392)*V(257)*V(346)\n  A(393) = RCT(393)*V(257)*V(335)\n  A(394) = RCT(394)*V(56)\n  A(395) = RCT(395)*V(257)*V(351)\n  A(396) = RCT(396)*V(74)*V(345)\n  A(397) = RCT(397)*V(66)*V(345)\n  A(398) = RCT(398)*V(278)*V(337)\n  A(399) = RCT(399)*V(278)*V(346)\n  A(400) = RCT(400)*V(278)*V(351)\n  A(401) = RCT(401)*V(278)*V(328)\n  A(402) = RCT(402)*V(160)*V(345)\n  A(403) = RCT(403)*V(176)*V(345)\n  A(404) = RCT(404)*V(275)*V(337)\n  A(405) = RCT(405)*V(275)*V(346)\n  A(406) = RCT(406)*V(275)*V(351)\n  A(407) = RCT(407)*V(138)*V(345)\n  A(408) = RCT(408)*V(112)*V(345)\n  A(409) = RCT(409)*V(129)*V(345)\n  A(410) = RCT(410)*V(273)*V(337)\n  A(411) = RCT(411)*V(273)*V(346)\n  A(412) = RCT(412)*V(273)*V(346)\n  A(413) = RCT(413)*V(273)*V(328)\n  A(414) = RCT(414)*V(273)*V(351)\n  A(415) = RCT(415)*V(161)*V(345)\n  A(416) = RCT(416)*V(162)*V(345)\n  A(417) = RCT(417)*V(281)*V(337)\n  A(418) = RCT(418)*V(281)*V(346)\n  A(419) = RCT(419)*V(281)*V(351)\n  A(420) = RCT(420)*V(255)*V(345)\n  A(421) = RCT(421)*V(255)*V(341)\n  A(422) = RCT(422)*V(255)*V(351)\n  A(423) = RCT(423)*V(237)*V(345)\n  A(424) = RCT(424)*V(237)*V(341)\n  A(425) = RCT(425)*V(237)*V(351)\n  A(426) = RCT(426)*V(211)*V(345)\n  A(427) = RCT(427)*V(211)*V(341)\n  A(428) = RCT(428)*V(211)*V(351)\n  A(429) = RCT(429)*V(272)*V(346)\n  A(430) = RCT(430)*V(272)*V(337)\n  A(431) = RCT(431)*V(272)*V(351)\n  A(432) = RCT(432)*V(272)*V(328)\n  A(433) = RCT(433)*V(163)*V(345)\n  A(434) = RCT(434)*V(163)*V(351)\n  A(435) = RCT(435)*V(177)*V(345)\n  A(436) = RCT(436)*V(274)*V(337)\n  A(437) = RCT(437)*V(274)*V(346)\n  A(438) = RCT(438)*V(274)*V(335)\n  A(439) = RCT(439)*V(57)\n  A(440) = RCT(440)*V(274)*V(351)\n  A(441) = RCT(441)*V(169)*V(345)\n  A(442) = RCT(442)*V(130)*V(345)\n  A(443) = RCT(443)*V(291)*V(337)\n  A(444) = RCT(444)*V(291)*V(346)\n  A(445) = RCT(445)*V(291)*V(346)\n  A(446) = RCT(446)*V(291)*V(351)\n  A(447) = RCT(447)*V(229)*V(345)\n  A(448) = RCT(448)*V(229)*V(341)\n  A(449) = RCT(449)*V(229)*V(351)\n  A(450) = RCT(450)*V(193)*V(345)\n  A(451) = RCT(451)*V(193)*V(341)\n  A(452) = RCT(452)*V(193)*V(351)\n  A(453) = RCT(453)*V(262)*V(345)\n  A(454) = RCT(454)*V(262)*V(341)\n  A(455) = RCT(455)*V(262)*V(351)\n  A(456) = RCT(456)*V(277)*V(328)\n  A(457) = RCT(457)*V(277)*V(324)\n  A(458) = RCT(458)*V(275)*V(328)\n  A(459) = RCT(459)*V(275)*V(324)\n  A(460) = RCT(460)*V(281)*V(328)\n  A(461) = RCT(461)*V(281)*V(324)\n  A(462) = RCT(462)*V(291)*V(328)\n  A(463) = RCT(463)*V(291)*V(324)\n  A(464) = RCT(464)*V(257)*V(328)\n  A(465) = RCT(465)*V(257)*V(324)\n  A(466) = RCT(466)*V(274)*V(328)\n  A(467) = RCT(467)*V(274)*V(324)\n  A(468) = RCT(468)*V(280)*V(346)\n  A(469) = RCT(469)*V(289)*V(346)\n  A(470) = RCT(470)*V(280)*V(337)\n  A(471) = RCT(471)*V(289)*V(337)\n  A(472) = RCT(472)*V(280)*V(328)\n  A(473) = RCT(473)*V(289)*V(328)\n  A(474) = RCT(474)*V(280)*V(324)\n  A(475) = RCT(475)*V(289)*V(324)\n  A(476) = RCT(476)*V(280)*V(351)\n  A(477) = RCT(477)*V(289)*V(351)\n  A(478) = RCT(478)*V(280)*V(280)\n  A(479) = RCT(479)*V(280)*V(289)\n  A(480) = RCT(480)*V(289)*V(289)\n  A(481) = RCT(481)*V(256)*V(345)\n  A(482) = RCT(482)*V(242)*V(345)\n  A(483) = RCT(483)*V(242)*V(341)\n  A(484) = RCT(484)*V(242)*V(351)\n  A(485) = RCT(485)*V(256)*V(351)\n  A(486) = RCT(486)*V(103)\n  A(487) = RCT(487)*V(45)\n  A(488) = RCT(488)*V(154)*V(345)\n  A(489) = RCT(489)*V(93)*V(345)\n  A(490) = RCT(490)*V(83)*V(345)\n  A(491) = RCT(491)*V(91)*V(345)\n  A(492) = RCT(492)*V(95)*V(345)\n  A(493) = RCT(493)*V(276)*V(341)\n  A(494) = RCT(494)*V(276)*V(345)\n  A(495) = RCT(495)*V(276)*V(345)\n  A(496) = RCT(496)*V(276)*V(345)\n  A(497) = RCT(497)*V(276)*V(345)\n  A(498) = RCT(498)*V(305)*V(337)\n  A(499) = RCT(499)*V(305)*V(337)\n  A(500) = RCT(500)*V(304)*V(337)\n  A(501) = RCT(501)*V(304)*V(337)\n  A(502) = RCT(502)*V(305)\n  A(503) = RCT(503)*V(305)\n  A(504) = RCT(504)*V(304)\n  A(505) = RCT(505)*V(304)\n  A(506) = RCT(506)*V(305)*V(305)\n  A(507) = RCT(507)*V(304)*V(304)\n  A(508) = RCT(508)*V(304)*V(305)\n  A(509) = RCT(509)*V(305)*V(305)\n  A(510) = RCT(510)*V(304)*V(304)\n  A(511) = RCT(511)*V(304)*V(305)\n  A(512) = RCT(512)*V(305)*V(328)\n  A(513) = RCT(513)*V(305)*V(328)\n  A(514) = RCT(514)*V(304)*V(328)\n  A(515) = RCT(515)*V(304)*V(328)\n  A(516) = RCT(516)*V(305)*V(346)\n  A(517) = RCT(517)*V(305)*V(346)\n  A(518) = RCT(518)*V(305)*V(346)\n  A(519) = RCT(519)*V(305)*V(346)\n  A(520) = RCT(520)*V(304)*V(346)\n  A(521) = RCT(521)*V(304)*V(346)\n  A(522) = RCT(522)*V(304)*V(346)\n  A(523) = RCT(523)*V(304)*V(346)\n  A(524) = RCT(524)*V(230)*V(345)\n  A(525) = RCT(525)*V(231)*V(345)\n  A(526) = RCT(526)*V(150)*V(345)\n  A(527) = RCT(527)*V(144)*V(345)\n  A(528) = RCT(528)*V(238)*V(345)\n  A(529) = RCT(529)*V(215)*V(345)\n  A(530) = RCT(530)*V(119)*V(345)\n  A(531) = RCT(531)*V(187)*V(345)\n  A(532) = RCT(532)*V(187)*V(345)\n  A(533) = RCT(533)*V(192)*V(345)\n  A(534) = RCT(534)*V(192)*V(345)\n  A(535) = RCT(535)*V(187)*V(345)\n  A(536) = RCT(536)*V(192)*V(345)\n  A(537) = RCT(537)*V(209)*V(345)\n  A(538) = RCT(538)*V(199)*V(345)\n  A(539) = RCT(539)*V(223)\n  A(540) = RCT(540)*V(223)*V(346)\n  A(541) = RCT(541)*V(223)*V(346)\n  A(542) = RCT(542)*V(223)*V(337)\n  A(543) = RCT(543)*V(224)\n  A(544) = RCT(544)*V(224)*V(346)\n  A(545) = RCT(545)*V(224)*V(346)\n  A(546) = RCT(546)*V(224)*V(337)\n  A(547) = RCT(547)*V(232)\n  A(548) = RCT(548)*V(232)*V(346)\n  A(549) = RCT(549)*V(232)*V(346)\n  A(550) = RCT(550)*V(232)*V(337)\n  A(551) = RCT(551)*V(128)*V(345)\n  A(552) = RCT(552)*V(151)*V(345)\n  A(553) = RCT(553)*V(151)*V(345)\n  A(554) = RCT(554)*V(152)*V(345)\n  A(555) = RCT(555)*V(152)*V(345)\n  A(556) = RCT(556)*V(286)\n  A(557) = RCT(557)*V(286)\n  A(558) = RCT(558)*V(286)*V(337)\n  A(559) = RCT(559)*V(286)*V(346)\n  A(560) = RCT(560)*V(286)*V(346)\n  A(561) = RCT(561)*V(285)\n  A(562) = RCT(562)*V(285)\n  A(563) = RCT(563)*V(285)*V(346)\n  A(564) = RCT(564)*V(285)*V(346)\n  A(565) = RCT(565)*V(285)*V(337)\n  A(566) = RCT(566)*V(243)*V(337)\n  A(567) = RCT(567)*V(243)*V(346)\n  A(568) = RCT(568)*V(243)*V(346)\n  A(569) = RCT(569)*V(243)\n  A(570) = RCT(570)*V(133)*V(346)\n  A(571) = RCT(571)*V(133)*V(337)\n  A(572) = RCT(572)*V(135)*V(346)\n  A(573) = RCT(573)*V(135)*V(337)\n  A(574) = RCT(574)*V(175)*V(345)\n  A(575) = RCT(575)*V(175)*V(345)\n  A(576) = RCT(576)*V(168)*V(345)\n  A(577) = RCT(577)*V(168)*V(345)\n  A(578) = RCT(578)*V(268)*V(345)\n  A(579) = RCT(579)*V(268)*V(345)\n  A(580) = RCT(580)*V(267)*V(345)\n  A(581) = RCT(581)*V(267)*V(345)\n  A(582) = RCT(582)*V(268)*V(345)\n  A(583) = RCT(583)*V(267)*V(345)\n  A(584) = RCT(584)*V(205)\n  A(585) = RCT(585)*V(205)*V(337)\n  A(586) = RCT(586)*V(205)*V(346)\n  A(587) = RCT(587)*V(205)*V(346)\n  A(588) = RCT(588)*V(190)\n  A(589) = RCT(589)*V(190)*V(337)\n  A(590) = RCT(590)*V(190)*V(346)\n  A(591) = RCT(591)*V(190)*V(346)\n  A(592) = RCT(592)*V(206)\n  A(593) = RCT(593)*V(207)\n  A(594) = RCT(594)*V(206)*V(337)\n  A(595) = RCT(595)*V(206)*V(346)\n  A(596) = RCT(596)*V(206)*V(346)\n  A(597) = RCT(597)*V(207)*V(337)\n  A(598) = RCT(598)*V(207)*V(346)\n  A(599) = RCT(599)*V(207)*V(346)\n  A(600) = RCT(600)*V(293)*V(337)\n  A(601) = RCT(601)*V(293)*V(346)\n  A(602) = RCT(602)*V(293)*V(346)\n  A(603) = RCT(603)*V(276)*V(351)\n  A(604) = RCT(604)*V(310)*V(337)\n  A(605) = RCT(605)*V(311)*V(337)\n  A(606) = RCT(606)*V(310)*V(310)\n  A(607) = RCT(607)*V(310)*V(311)\n  A(608) = RCT(608)*V(311)*V(311)\n  A(609) = RCT(609)*V(311)*V(328)\n  A(610) = RCT(610)*V(310)*V(328)\n  A(611) = RCT(611)*V(310)*V(324)\n  A(612) = RCT(612)*V(311)*V(324)\n  A(613) = RCT(613)*V(310)*V(351)\n  A(614) = RCT(614)*V(311)*V(351)\n  A(615) = RCT(615)*V(310)*V(346)\n  A(616) = RCT(616)*V(310)*V(346)\n  A(617) = RCT(617)*V(311)*V(346)\n  A(618) = RCT(618)*V(311)*V(346)\n  A(619) = RCT(619)*V(145)*F(3)\n  A(620) = RCT(620)*V(145)\n  A(621) = RCT(621)*V(222)*V(345)\n  A(622) = RCT(622)*V(186)*V(345)\n  A(623) = RCT(623)*V(222)*V(345)\n  A(624) = RCT(624)*V(186)*V(345)\n  A(625) = RCT(625)*V(186)*V(345)\n  A(626) = RCT(626)*V(222)*V(345)\n  A(627) = RCT(627)*V(186)*V(345)\n  A(628) = RCT(628)*V(186)*V(345)\n  A(629) = RCT(629)*V(226)\n  A(630) = RCT(630)*V(271)\n  A(631) = RCT(631)*V(271)*V(337)\n  A(632) = RCT(632)*V(226)*V(337)\n  A(633) = RCT(633)*V(271)*V(346)\n  A(634) = RCT(634)*V(271)*V(346)\n  A(635) = RCT(635)*V(226)*V(346)\n  A(636) = RCT(636)*V(226)*V(346)\n  A(637) = RCT(637)*V(301)*V(345)\n  A(638) = RCT(638)*V(301)*V(345)\n  A(639) = RCT(639)*V(182)*V(346)\n  A(640) = RCT(640)*V(182)*V(337)\n  A(641) = RCT(641)*V(299)*V(345)\n  A(642) = RCT(642)*V(180)*V(346)\n  A(643) = RCT(643)*V(180)*V(337)\n  A(644) = RCT(644)*V(314)*V(345)\n  A(645) = RCT(645)*V(314)*V(341)\n  A(646) = RCT(646)*V(309)*V(345)\n  A(647) = RCT(647)*V(309)*V(345)\n  A(648) = RCT(648)*V(309)*V(341)\n  A(649) = RCT(649)*V(309)*V(351)\n  A(650) = RCT(650)*V(302)*V(345)\n  A(651) = RCT(651)*V(288)*V(345)\n  A(652) = RCT(652)*V(287)*V(345)\n  A(653) = RCT(653)*V(248)*V(345)\n  A(654) = RCT(654)*V(216)*V(345)\n  A(655) = RCT(655)*V(171)*V(346)\n  A(656) = RCT(656)*V(171)*V(337)\n  A(657) = RCT(657)*V(171)*V(335)\n  A(658) = RCT(658)*V(172)*V(346)\n  A(659) = RCT(659)*V(172)*V(337)\n  A(660) = RCT(660)*V(172)*V(335)\n  A(661) = RCT(661)*V(194)*V(345)\n  A(662) = RCT(662)*V(185)*V(345)\n  A(663) = RCT(663)*V(131)*V(345)\n  A(664) = RCT(664)*V(227)*V(345)\n  A(665) = RCT(665)*V(208)*V(345)\n  A(666) = RCT(666)*V(153)*V(345)\n  A(667) = RCT(667)*V(254)*V(337)\n  A(668) = RCT(668)*V(254)*V(346)\n  A(669) = RCT(669)*V(254)*V(346)\n  A(670) = RCT(670)*V(253)*V(337)\n  A(671) = RCT(671)*V(259)*V(337)\n  A(672) = RCT(672)*V(159)*V(345)\n  A(673) = RCT(673)*V(253)\n  A(674) = RCT(674)*V(253)*V(346)\n  A(675) = RCT(675)*V(253)*V(346)\n  A(676) = RCT(676)*V(259)*V(346)\n  A(677) = RCT(677)*V(259)*V(335)\n  A(678) = RCT(678)*V(308)*V(337)\n  A(679) = RCT(679)*V(308)*V(346)\n  A(680) = RCT(680)*V(308)*V(335)\n  A(681) = RCT(681)*V(308)*V(351)\n  A(682) = RCT(682)*V(308)*V(328)\n  A(683) = RCT(683)*V(184)\n  A(684) = RCT(684)*V(184)*V(345)\n  A(685) = RCT(685)*V(107)*V(345)\n  A(686) = RCT(686)*V(258)*V(345)\n  A(687) = RCT(687)*V(147)*V(345)\n  A(688) = RCT(688)*V(174)*V(345)\n  A(689) = RCT(689)*V(198)*V(345)\n  A(690) = RCT(690)*V(266)*V(345)\n  A(691) = RCT(691)*V(303)*V(345)\n  A(692) = RCT(692)*V(261)*V(351)\n  A(693) = RCT(693)*V(115)*V(345)\n  A(694) = RCT(694)*V(88)*V(345)\n  A(695) = RCT(695)*V(324)*V(337)\n  A(696) = RCT(696)*V(210)*V(345)\n  A(697) = RCT(697)*V(210)*V(345)\n  A(698) = RCT(698)*V(19)*V(345)\n  A(699) = RCT(699)*V(18)*V(337)\n  A(700) = RCT(700)*V(18)*V(346)\n  A(701) = RCT(701)*V(173)*V(345)\n  A(702) = RCT(702)*V(220)*V(345)\n  A(703) = RCT(703)*V(220)*V(351)\n  A(704) = RCT(704)*V(220)*V(341)\n  A(705) = RCT(705)*V(149)*V(345)\n  A(706) = RCT(706)*V(149)*V(351)\n  A(707) = RCT(707)*V(200)*V(345)\n  A(708) = RCT(708)*V(200)*V(351)\n  A(709) = RCT(709)*V(189)*V(346)\n  A(710) = RCT(710)*V(189)*V(337)\n  A(711) = RCT(711)*V(116)*V(345)\n  A(712) = RCT(712)*V(109)*V(341)\n  A(713) = RCT(713)*V(109)*V(345)\n  A(714) = RCT(714)*V(60)*V(345)\n  A(715) = RCT(715)*V(234)*V(337)\n  A(716) = RCT(716)*V(234)*V(346)\n  A(717) = RCT(717)*V(234)*V(351)\n  A(718) = RCT(718)*V(234)*V(328)\n  A(719) = RCT(719)*V(106)\n  A(720) = RCT(720)*V(106)*F(3)\n  A(721) = RCT(721)*V(70)*V(345)\n  A(722) = RCT(722)*V(136)*V(345)\n  A(723) = RCT(723)*V(136)*V(345)\n  A(724) = RCT(724)*V(143)*V(345)\n  A(725) = RCT(725)*V(82)*V(345)\n  A(726) = RCT(726)*V(101)*V(345)\n  A(727) = RCT(727)*V(263)*V(337)\n  A(728) = RCT(728)*V(263)*V(346)\n  A(729) = RCT(729)*V(263)*V(351)\n  A(730) = RCT(730)*V(263)*V(328)\n  A(731) = RCT(731)*V(263)*V(324)\n  A(732) = RCT(732)*V(58)*V(345)\n  A(733) = RCT(733)*V(121)*V(346)\n  A(734) = RCT(734)*V(121)*V(337)\n  A(735) = 7.09e-11*V(146)*V(345)\n  A(736) = RCT(736)*V(240)*V(346)\n  A(737) = RCT(737)*V(240)*V(337)\n  A(738) = RCT(738)*V(240)*V(335)\n  A(739) = RCT(739)*V(122)\n  A(740) = RCT(740)*V(122)*V(345)\n  A(741) = RCT(741)*V(195)*V(345)\n  A(742) = RCT(742)*V(195)*V(351)\n  A(743) = RCT(743)*V(158)*V(345)\n  A(744) = RCT(744)*V(158)*V(351)\n  A(745) = RCT(745)*V(202)*V(345)\n  A(746) = RCT(746)*V(202)*V(341)\n  A(747) = RCT(747)*V(202)*V(351)\n  A(748) = RCT(748)*V(204)*V(345)\n  A(749) = RCT(749)*V(204)*V(351)\n  A(750) = RCT(750)*V(235)*V(337)\n  A(751) = RCT(751)*V(235)*V(346)\n  A(752) = RCT(752)*V(235)*V(335)\n  A(753) = RCT(753)*V(71)*V(345)\n  A(754) = RCT(754)*V(90)\n  A(755) = RCT(755)*V(90)*V(345)\n  A(756) = RCT(756)*V(236)*V(335)\n  A(757) = RCT(757)*V(236)*V(346)\n  A(758) = RCT(758)*V(236)*V(351)\n  A(759) = RCT(759)*V(236)*V(337)\n  A(760) = RCT(760)*V(117)*V(345)\n  A(761) = RCT(761)*V(203)*V(341)\n  A(762) = RCT(762)*V(203)*V(335)\n  A(763) = RCT(763)*V(269)*V(345)\n  A(764) = RCT(764)*V(269)*V(351)\n  A(765) = RCT(765)*V(236)*V(328)\n  A(766) = RCT(766)*V(235)*V(328)\n  A(767) = RCT(767)*V(221)*V(345)\n  A(768) = RCT(768)*V(221)*V(341)\n  A(769) = RCT(769)*V(221)\n  A(770) = RCT(770)*V(201)*V(345)\n  A(771) = RCT(771)*V(201)*V(341)\n  A(772) = RCT(772)*V(201)\n  A(773) = RCT(773)*V(13)*V(337)\n  A(774) = RCT(774)*V(13)*V(346)\n  A(775) = RCT(775)*V(22)*V(337)\n  A(776) = RCT(776)*V(22)*V(346)\n  A(777) = RCT(777)*V(27)*V(337)\n  A(778) = RCT(778)*V(27)*V(346)\n  A(779) = RCT(779)*V(328)*V(351)\n  A(780) = RCT(780)*V(41)*V(345)\n  A(781) = RCT(781)*V(337)\n  A(782) = RCT(782)*V(335)\n  A(783) = RCT(783)*V(351)\n  A(784) = RCT(784)*V(351)\n  A(785) = RCT(785)*V(351)\n  A(786) = RCT(786)*V(214)*V(336)\n  A(787) = RCT(787)*V(214)*V(339)\n  A(788) = RCT(788)*V(214)\n  A(789) = RCT(789)*V(214)*V(353)\n  A(790) = RCT(790)*V(214)*V(344)\n  A(791) = RCT(791)*V(345)*V(353)\n  A(792) = RCT(792)*V(344)*V(345)\n  A(793) = RCT(793)*V(218)*V(336)\n  A(794) = RCT(794)*V(218)*V(339)\n  A(795) = RCT(795)*V(317)*V(336)\n  A(796) = RCT(796)*V(317)*V(339)\n  A(797) = RCT(797)*V(317)*V(352)\n  A(798) = RCT(798)*V(317)*V(349)\n  A(799) = RCT(799)*V(317)*V(350)\n  A(800) = RCT(800)*V(317)*V(353)\n  A(801) = RCT(801)*V(317)*V(344)\n  A(802) = RCT(802)*V(297)*V(353)\n  A(803) = RCT(803)*V(297)*V(344)\n  A(804) = RCT(804)*V(297)*V(339)\n  A(805) = RCT(805)*V(297)*V(349)\n  A(806) = RCT(806)*V(297)*V(350)\n  A(807) = RCT(807)*V(297)*V(352)\n  A(808) = RCT(808)*V(333)*V(339)\n  A(809) = RCT(809)*V(333)*V(352)\n  A(810) = RCT(810)*V(333)*V(353)\n  A(811) = RCT(811)*V(333)*V(344)\n  A(812) = RCT(812)*V(333)*V(348)\n  A(813) = RCT(813)*V(316)*V(352)\n  A(814) = RCT(814)*V(316)*V(339)\n  A(815) = RCT(815)*V(316)*V(353)\n  A(816) = RCT(816)*V(316)*V(344)\n  A(817) = RCT(817)*V(316)*V(349)\n  A(818) = RCT(818)*V(316)*V(350)\n  A(819) = RCT(819)*V(316)*V(348)\n  A(820) = RCT(820)*V(341)*V(352)\n  A(821) = RCT(821)*V(341)*V(349)\n  A(822) = RCT(822)*V(341)*V(350)\n  A(823) = RCT(823)*V(352)\n  A(824) = RCT(824)*V(352)\n  A(825) = RCT(825)*V(73)\n  A(826) = RCT(826)*V(73)\n  A(827) = RCT(827)*V(73)\n  A(828) = RCT(828)*V(330)\n  A(829) = RCT(829)*V(330)\n  A(830) = RCT(830)*V(44)\n  A(831) = RCT(831)*V(44)\n  A(832) = RCT(832)*V(44)\n  A(833) = RCT(833)*V(55)\n  A(834) = RCT(834)*V(55)\n  A(835) = RCT(835)*V(55)\n  A(836) = RCT(836)*V(42)\n  A(837) = RCT(837)*V(42)\n  A(838) = RCT(838)*V(42)\n  A(839) = RCT(839)*V(252)\n  A(840) = RCT(840)*V(252)\n  A(841) = RCT(841)*V(332)\n  A(842) = RCT(842)*V(332)\n  A(843) = RCT(843)*V(332)*V(336)\n  A(844) = RCT(844)*V(252)*V(349)\n  A(845) = RCT(845)*V(252)*V(350)\n  A(846) = RCT(846)*V(252)*V(353)\n  A(847) = RCT(847)*V(252)*V(344)\n  A(848) = RCT(848)*V(332)*V(349)\n  A(849) = RCT(849)*V(332)*V(350)\n  A(850) = RCT(850)*V(332)*V(353)\n  A(851) = RCT(851)*V(332)*V(344)\n  A(852) = RCT(852)*V(330)*V(349)\n  A(853) = RCT(853)*V(330)*V(350)\n  A(854) = RCT(854)*V(330)*V(353)\n  A(855) = RCT(855)*V(330)*V(344)\n  A(856) = RCT(856)*V(270)\n  A(857) = RCT(857)*V(294)\n  A(858) = RCT(858)*V(151)\n  A(859) = RCT(859)*V(152)\n  A(860) = RCT(860)*V(128)\n  A(861) = RCT(861)*V(24)\n  A(862) = RCT(862)*V(302)\n  A(863) = RCT(863)*V(251)\n  A(864) = RCT(864)*V(256)\n  A(865) = RCT(865)*V(242)\n  A(866) = RCT(866)*V(154)\n  A(867) = RCT(867)*V(115)\n  A(868) = RCT(868)*V(107)\n  A(869) = RCT(869)*V(268)\n  A(870) = RCT(870)*V(175)\n  A(871) = RCT(871)*V(168)\n  A(872) = RCT(872)*V(267)\n  A(873) = RCT(873)*V(215)\n  A(874) = RCT(874)*V(186)\n  A(875) = RCT(875)*V(222)\n  A(876) = RCT(876)*V(299)\n  A(877) = RCT(877)*V(266)\n  A(878) = RCT(878)*V(303)\n  A(879) = RCT(879)*V(216)\n  A(880) = RCT(880)*V(248)\n  A(881) = RCT(881)*V(269)\n  A(882) = RCT(882)*V(341)\n  A(883) = RCT(883)*V(341)\n  A(884) = RCT(884)*F(3)\n  A(885) = RCT(885)*V(335)\n  A(886) = RCT(886)*V(264)\n  A(887) = RCT(887)*V(164)\n  A(888) = RCT(888)*V(325)\n  A(889) = RCT(889)*V(325)\n  A(890) = RCT(890)*V(327)\n  A(891) = RCT(891)*V(239)\n  A(892) = RCT(892)*V(108)\n  A(893) = RCT(893)*V(108)\n  A(894) = RCT(894)*V(351)\n  A(895) = RCT(895)*V(351)\n  A(896) = RCT(896)*V(214)\n  A(897) = RCT(897)*V(326)\n  A(898) = RCT(898)*V(326)\n  A(899) = RCT(899)*V(139)\n  A(900) = RCT(900)*V(126)\n  A(901) = RCT(901)*V(233)\n  A(902) = RCT(902)*V(146)\n  A(903) = RCT(903)*V(298)\n  A(904) = RCT(904)*V(295)\n  A(905) = RCT(905)*V(295)\n  A(906) = RCT(906)*V(292)\n  A(907) = RCT(907)*V(306)\n  A(908) = RCT(908)*V(270)\n  A(909) = RCT(909)*V(270)\n  A(910) = RCT(910)*V(270)\n  A(911) = RCT(911)*V(294)\n  A(912) = RCT(912)*V(314)\n  A(913) = RCT(913)*V(314)\n  A(914) = RCT(914)*V(314)\n  A(915) = RCT(915)*V(309)\n  A(916) = RCT(916)*V(307)\n  A(917) = RCT(917)*V(125)\n  A(918) = RCT(918)*V(118)\n  A(919) = RCT(919)*V(99)\n  A(920) = RCT(920)*V(100)\n  A(921) = RCT(921)*V(97)\n  A(922) = RCT(922)*V(98)\n  A(923) = RCT(923)*V(102)\n  A(924) = RCT(924)*V(123)\n  A(925) = RCT(925)*V(155)\n  A(926) = RCT(926)*V(251)\n  A(927) = RCT(927)*V(196)\n  A(928) = RCT(928)*V(116)\n  A(929) = RCT(929)*V(279)\n  A(930) = RCT(930)*V(92)\n  A(931) = RCT(931)*V(148)\n  A(932) = RCT(932)*V(347)\n  A(933) = RCT(933)*V(316)\n  A(934) = RCT(934)*V(218)\n  A(935) = RCT(935)*V(218)\n  A(936) = RCT(936)*V(59)\n  A(937) = RCT(937)*V(81)\n  A(938) = RCT(938)*V(78)\n  A(939) = RCT(939)*V(105)\n  A(940) = RCT(940)*V(181)\n  A(941) = RCT(941)*V(79)\n  A(942) = RCT(942)*V(157)\n  A(943) = RCT(943)*V(245)\n  A(944) = RCT(944)*V(338)\n  A(945) = RCT(945)*V(120)\n  A(946) = RCT(946)*V(76)\n  A(947) = RCT(947)*V(297)\n  A(948) = RCT(948)*V(317)\n  A(949) = RCT(949)*V(317)\n  A(950) = RCT(950)*V(333)\n  A(951) = RCT(951)*V(43)\n  A(952) = RCT(952)*V(46)\n  A(953) = RCT(953)*V(47)\n  A(954) = RCT(954)*V(48)\n  A(955) = RCT(955)*V(49)\n  A(956) = RCT(956)*V(50)\n  A(957) = RCT(957)*V(51)\n  A(958) = RCT(958)*V(84)\n  A(959) = RCT(959)*V(85)\n  A(960) = RCT(960)*V(86)\n  A(961) = RCT(961)*V(87)\n  A(962) = RCT(962)*V(53)\n  A(963) = RCT(963)*V(61)\n  A(964) = RCT(964)*V(54)\n  A(965) = RCT(965)*V(110)\n  A(966) = RCT(966)*V(170)\n  A(967) = RCT(967)*V(330)\n  A(968) = RCT(968)*V(284)\n  A(969) = RCT(969)*V(96)\n  A(970) = RCT(970)*V(62)\n  A(971) = RCT(971)*V(252)\n  A(972) = RCT(972)*V(332)\n  A(973) = RCT(973)*V(44)\n  A(974) = RCT(974)*V(52)\n  A(975) = RCT(975)*V(1)\n  A(976) = RCT(976)*V(3)\n  A(977) = RCT(977)*V(2)\n  A(978) = RCT(978)*V(42)\n  A(979) = RCT(979)*V(55)\n  A(980) = RCT(980)*V(77)\n  A(981) = RCT(981)*V(104)\n  A(982) = RCT(982)*V(80)\n  A(983) = RCT(983)*V(80)\n  A(984) = RCT(984)*V(244)\n  A(985) = RCT(985)*V(63)\n  A(986) = RCT(986)*V(68)\n  A(987) = RCT(987)*V(134)\n  A(988) = RCT(988)*V(346)\n  A(989) = RCT(989)*V(229)\n  A(990) = RCT(990)*V(261)\n  A(991) = RCT(991)*V(256)\n  A(992) = RCT(992)*V(242)\n  A(993) = RCT(993)*V(154)\n  A(994) = RCT(994)*V(65)\n  A(995) = RCT(995)*V(65)\n  A(996) = RCT(996)*V(64)\n  A(997) = RCT(997)*V(64)\n  A(998) = RCT(998)*V(93)\n  A(999) = RCT(999)*V(83)\n  A(1000) = RCT(1000)*V(91)\n  A(1001) = RCT(1001)*V(95)\n  A(1002) = RCT(1002)*V(88)\n  A(1003) = RCT(1003)*V(210)\n  A(1004) = RCT(1004)*V(115)\n  A(1005) = RCT(1005)*V(247)\n  A(1006) = RCT(1006)*V(208)\n  A(1007) = RCT(1007)*V(227)\n  A(1008) = RCT(1008)*V(288)\n  A(1009) = RCT(1009)*V(185)\n  A(1010) = RCT(1010)*V(194)\n  A(1011) = RCT(1011)*V(287)\n  A(1012) = RCT(1012)*V(159)\n  A(1013) = RCT(1013)*V(302)\n  A(1014) = RCT(1014)*V(248)\n  A(1015) = RCT(1015)*V(216)\n  A(1016) = RCT(1016)*V(187)\n  A(1017) = RCT(1017)*V(192)\n  A(1018) = RCT(1018)*V(209)\n  A(1019) = RCT(1019)*V(199)\n  A(1020) = RCT(1020)*V(230)\n  A(1021) = RCT(1021)*V(231)\n  A(1022) = RCT(1022)*V(150)\n  A(1023) = RCT(1023)*V(144)\n  A(1024) = RCT(1024)*V(268)\n  A(1025) = RCT(1025)*V(175)\n  A(1026) = RCT(1026)*V(168)\n  A(1027) = RCT(1027)*V(267)\n  A(1028) = RCT(1028)*V(222)\n  A(1029) = RCT(1029)*V(186)\n  A(1030) = RCT(1030)*V(186)\n  A(1031) = RCT(1031)*V(301)\n  A(1032) = RCT(1032)*V(299)\n  A(1033) = RCT(1033)*V(258)\n  A(1034) = RCT(1034)*V(258)\n  A(1035) = RCT(1035)*V(174)\n  A(1036) = RCT(1036)*V(198)\n  A(1037) = RCT(1037)*V(147)\n  A(1038) = RCT(1038)*V(303)\n  A(1039) = RCT(1039)*V(303)\n  A(1040) = RCT(1040)*V(266)\n  A(1041) = RCT(1041)*V(266)\n  A(1042) = RCT(1042)*V(136)\n  A(1043) = RCT(1043)*V(204)\n  A(1044) = RCT(1044)*V(71)\n  A(1045) = RCT(1045)*V(117)\n  A(1046) = RCT(1046)*V(269)\n  A(1047) = RCT(1047)*V(124)\n  A(1048) = RCT(1048)*V(111)\n  A(1049) = RCT(1049)*V(225)\n  A(1050) = RCT(1050)*V(74)\n  A(1051) = RCT(1051)*V(66)\n  A(1052) = RCT(1052)*V(160)\n  A(1053) = RCT(1053)*V(112)\n  A(1054) = RCT(1054)*V(161)\n  A(1055) = RCT(1055)*V(169)\n  A(1056) = RCT(1056)*V(130)\n  A(1057) = RCT(1057)*V(229)\n  A(1058) = RCT(1058)*V(255)\n\n  !### Use Aout to return equation rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n! Aggregate function\nIF (DO_FUN(1)) &\n  Vdot(1) = -A(975)\nIF (DO_FUN(2)) &\n  Vdot(2) = -A(977)\nIF (DO_FUN(3)) &\n  Vdot(3) = -A(976)\nIF (DO_FUN(4)) &\n  Vdot(4) = A(825)+2*A(830)+2*A(833)+2*A(836)\nIF (DO_FUN(5)) &\n  Vdot(5) = A(881)\nIF (DO_FUN(6)) &\n  Vdot(6) = A(780)\nIF (DO_FUN(7)) &\n  Vdot(7) = A(24)+A(47)+A(56)+A(104)+A(109)+A(127)+0.44*A(128)+0.3*A(136)+0.43*A(148)+0.1*A(150)+0.361*A(151)+0.44&\n              &*A(158)+0.5*A(168)+0.22*A(178)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)&\n              &+0.645*A(187)+0.645*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+2*A(194)+A(195)+A(239)&\n              &+A(318)+A(326)+A(360)+A(362)+A(369)+A(392)+A(395)+A(397)+0.44*A(436)+A(437)+A(440)+A(442)+0.9*A(457)+0.9&\n              &*A(459)+0.9*A(461)+0.9*A(463)+0.75*A(464)+2*A(465)+0.75*A(466)+A(467)+A(474)+0.407*A(493)+0.355*A(528)+A(570)&\n              &+A(571)+A(572)+A(573)+A(611)+A(612)+0.429*A(639)+0.429*A(640)+0.23*A(652)+0.75*A(654)+0.097*A(661)+0.5*A(671)&\n              &+0.41*A(672)+A(676)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+A(689)+A(693)+0.5*A(695)+A(701)+A(731)+2*A(736)+0.44&\n              &*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(899)+A(930)+A(1004)+1.238*A(1012)+A(1044)+A(1046)+A(1050)&\n              &+A(1051)+A(1055)+A(1056)\nIF (DO_FUN(8)) &\n  Vdot(8) = A(486)+A(487)\nIF (DO_FUN(9)) &\n  Vdot(9) = A(826)+A(828)+2*A(831)+2*A(834)+2*A(837)+A(839)+A(841)\nIF (DO_FUN(10)) &\n  Vdot(10) = A(827)+A(829)+2*A(832)+2*A(835)+2*A(838)+A(840)+A(842)\nIF (DO_FUN(11)) &\n  Vdot(11) = A(773)\nIF (DO_FUN(12)) &\n  Vdot(12) = A(774)\nIF (DO_FUN(13)) &\n  Vdot(13) = A(724)-A(773)-A(774)\nIF (DO_FUN(14)) &\n  Vdot(14) = A(494)+A(495)+A(496)+A(497)\nIF (DO_FUN(15)) &\n  Vdot(15) = A(603)\nIF (DO_FUN(16)) &\n  Vdot(16) = A(699)\nIF (DO_FUN(17)) &\n  Vdot(17) = A(700)\nIF (DO_FUN(18)) &\n  Vdot(18) = A(698)-A(699)-A(700)\nIF (DO_FUN(19)) &\n  Vdot(19) = -A(698)\nIF (DO_FUN(20)) &\n  Vdot(20) = A(775)\nIF (DO_FUN(21)) &\n  Vdot(21) = A(776)\nIF (DO_FUN(22)) &\n  Vdot(22) = A(725)-A(775)-A(776)\nIF (DO_FUN(23)) &\n  Vdot(23) = A(861)\nIF (DO_FUN(24)) &\n  Vdot(24) = -A(177)+0.005*A(531)+0.005*A(532)+0.005*A(533)+0.005*A(534)+0.005*A(535)+0.005*A(536)+0.005*A(537)+0.005&\n               &*A(538)-A(861)\nIF (DO_FUN(25)) &\n  Vdot(25) = A(777)\nIF (DO_FUN(26)) &\n  Vdot(26) = A(778)\nIF (DO_FUN(27)) &\n  Vdot(27) = A(726)-A(777)-A(778)\nIF (DO_FUN(28)) &\n  Vdot(28) = 0.25*A(200)\nIF (DO_FUN(29)) &\n  Vdot(29) = A(4)\nIF (DO_FUN(30)) &\n  Vdot(30) = A(856)+1.5*A(857)+1.5*A(867)\nIF (DO_FUN(31)) &\n  Vdot(31) = A(858)+A(859)+A(860)+0.8*A(868)+A(873)\nIF (DO_FUN(32)) &\n  Vdot(32) = A(202)+A(368)+A(372)\nIF (DO_FUN(33)) &\n  Vdot(33) = 2*A(12)\nIF (DO_FUN(34)) &\n  Vdot(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)&\n               &+A(87)+2*A(88)+A(90)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96)+A(97)+A(98)+A(100)+A(109)+A(123)+A(125)+A(126)&\n               &+A(127)+0.15*A(128)+0.15*A(148)+A(156)+A(157)+0.15*A(158)+A(160)+A(211)+0.02*A(247)+A(248)+A(249)+A(273)&\n               &+A(281)+A(282)+A(297)+0.1*A(309)+A(319)+A(322)+A(323)+A(352)+A(363)+A(364)+A(370)+A(371)+0.75*A(385)+0.5&\n               &*A(388)+0.15*A(391)+A(392)+A(394)+0.84*A(399)+A(403)+0.75*A(405)+0.5*A(407)+A(412)+A(416)+0.75*A(418)+0.5&\n               &*A(426)+0.84*A(429)+A(435)+0.15*A(436)+A(437)+A(439)+A(445)+A(450)+A(468)+A(469)+A(486)+A(487)+A(488)+A(489)&\n               &+A(490)+A(491)+A(492)+A(516)+A(517)+A(518)+A(519)+A(520)+A(521)+A(522)+A(523)+A(540)+A(541)+A(544)+A(545)&\n               &+A(548)+A(549)+A(559)+A(560)+A(563)+A(564)+A(567)+A(568)+A(570)+A(572)+A(586)+A(587)+A(590)+A(591)+A(595)&\n               &+A(596)+A(598)+A(599)+A(601)+A(602)+A(615)+A(616)+A(617)+A(618)+A(633)+A(634)+A(635)+A(636)+A(639)+A(642)&\n               &+0.69*A(650)+A(655)+A(658)+A(668)+A(669)+0.13*A(671)+A(674)+A(675)+A(676)+0.13*A(678)+A(679)+A(684)+0.13&\n               &*A(695)+0.89*A(709)+A(711)+0.995*A(716)+A(721)+A(728)+A(733)+A(736)+0.15*A(737)+A(739)+A(740)+0.15*A(750)&\n               &+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(884)+A(892)+0.3*A(899)+A(900)+A(927)+A(928)+A(982)+A(985)&\n               &+A(988)+A(998)+A(999)+A(1000)+A(1001)+0.3*A(1047)\nIF (DO_FUN(35)) &\n  Vdot(35) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)&\n               &+A(124)+A(131)+A(150)+A(154)+A(155)+A(159)+A(162)+A(165)+A(166)+A(179)+2*A(196)+A(201)+2*A(207)+2*A(208)&\n               &+A(212)+A(213)+A(214)+A(226)+A(229)+A(230)+A(231)+2*A(233)+A(235)+A(236)+A(237)+A(238)+2*A(240)+2*A(241)&\n               &+A(244)+A(246)+2*A(251)+A(252)+0.66*A(253)+0.6*A(254)+0.44*A(257)+0.56*A(258)+0.19*A(261)+0.1*A(269)+0.05&\n               &*A(270)+A(274)+A(275)+A(276)+A(277)+A(278)+2*A(298)+2*A(302)+2*A(303)+2*A(311)+2*A(312)+0.4*A(344)+0.88&\n               &*A(349)+A(367)+A(375)+A(376)+A(377)+A(379)+A(381)+A(383)+A(386)+A(389)+A(393)+A(395)+A(400)+A(406)+A(414)&\n               &+A(419)+A(421)+2*A(422)+A(424)+2*A(425)+0.5*A(427)+A(428)+A(431)+A(434)+A(438)+A(440)+A(446)+A(448)+A(449)&\n               &+A(454)+A(455)+A(476)+A(477)+A(483)+2*A(484)+2*A(485)+A(493)+A(603)+A(613)+A(614)+A(645)+A(648)+A(649)&\n               &+A(681)+A(692)+A(703)+A(704)+A(706)+A(708)+A(712)+A(717)+A(729)+A(738)+1.258*A(742)+1.5*A(744)+A(746)+1.5&\n               &*A(747)+A(749)+A(752)+A(758)+A(761)+A(762)+A(768)+A(771)+A(779)+0.5*A(782)+A(783)+A(784)+A(785)+A(786)&\n               &+A(787)+A(788)+A(789)+A(790)+A(794)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)+A(802)+A(803)+A(804)+A(805)&\n               &+A(806)+A(807)+A(808)+A(809)+A(810)+A(811)+A(812)+A(813)+A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(828)&\n               &+A(829)+2*A(830)+2*A(831)+2*A(832)+3*A(833)+3*A(834)+3*A(835)+4*A(836)+4*A(837)+4*A(838)+A(839)+A(840)&\n               &+A(841)+A(842)+A(844)+A(845)+A(846)+A(847)+A(848)+A(849)+A(850)+A(851)+A(852)+A(853)+A(854)+A(855)+A(862)&\n               &+A(863)+A(864)+A(865)+A(866)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+2*A(876)+A(877)+A(878)+A(879)+A(880)&\n               &+2*A(895)+A(933)+2*A(946)+A(950)+A(967)+2*A(969)+A(994)+A(996)\nIF (DO_FUN(36)) &\n  Vdot(36) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)&\n               &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)&\n               &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5&\n               &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)+1.5&\n               &*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)+0.2&\n               &*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)+0.33&\n               &*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)+A(664)+2&\n               &*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25*A(684)+A(685)&\n               &+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27*A(725)+0.3*A(726)+2&\n               &*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(888)+A(889)+0.88&\n               &*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)+A(911)+A(912)+A(913)+A(915)&\n               &+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77*A(1011)+A(1014)+A(1015)+0.888&\n               &*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839*A(1031)+A(1033)+0.163*A(1034)+A(1037)&\n               &+A(1041)+A(1043)+A(1046)+A(1049)+A(1058)\nIF (DO_FUN(37)) &\n  Vdot(37) = A(24)+A(362)+A(369)\nIF (DO_FUN(38)) &\n  Vdot(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)\nIF (DO_FUN(39)) &\n  Vdot(39) = A(25)+A(231)+A(291)\nIF (DO_FUN(40)) &\n  Vdot(40) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)\nIF (DO_FUN(41)) &\n  Vdot(41) = -A(780)\nIF (DO_FUN(42)) &\n  Vdot(42) = A(346)-A(347)-A(836)-A(837)-A(838)-A(978)\nIF (DO_FUN(43)) &\n  Vdot(43) = -A(286)-A(951)\nIF (DO_FUN(44)) &\n  Vdot(44) = 0.6*A(357)-A(358)-A(830)-A(831)-A(832)-A(973)\nIF (DO_FUN(45)) &\n  Vdot(45) = -A(487)+A(864)+A(865)+A(866)\nIF (DO_FUN(46)) &\n  Vdot(46) = -0.79*A(256)-A(952)\nIF (DO_FUN(47)) &\n  Vdot(47) = -0.9*A(262)-A(953)\nIF (DO_FUN(48)) &\n  Vdot(48) = -0.86*A(263)-A(954)\nIF (DO_FUN(49)) &\n  Vdot(49) = -0.9*A(269)-A(955)\nIF (DO_FUN(50)) &\n  Vdot(50) = -0.9*A(270)-A(956)\nIF (DO_FUN(51)) &\n  Vdot(51) = -0.86*A(271)-A(957)\nIF (DO_FUN(52)) &\n  Vdot(52) = -A(359)-A(974)\nIF (DO_FUN(53)) &\n  Vdot(53) = -0.45*A(265)-A(962)\nIF (DO_FUN(54)) &\n  Vdot(54) = -0.75*A(272)-A(964)\nIF (DO_FUN(55)) &\n  Vdot(55) = A(345)-A(833)-A(834)-A(835)-A(979)\nIF (DO_FUN(56)) &\n  Vdot(56) = A(393)-A(394)\nIF (DO_FUN(57)) &\n  Vdot(57) = A(438)-A(439)\nIF (DO_FUN(58)) &\n  Vdot(58) = 0.15*A(707)-A(732)\nIF (DO_FUN(59)) &\n  Vdot(59) = A(221)-A(936)\nIF (DO_FUN(60)) &\n  Vdot(60) = -A(714)\nIF (DO_FUN(61)) &\n  Vdot(61) = -0.65*A(264)-A(963)\nIF (DO_FUN(62)) &\n  Vdot(62) = A(334)-2*A(335)-A(970)\nIF (DO_FUN(63)) &\n  Vdot(63) = -A(230)+A(250)-A(985)\nIF (DO_FUN(64)) &\n  Vdot(64) = A(3)+A(784)-A(996)-A(997)\nIF (DO_FUN(65)) &\n  Vdot(65) = A(6)+A(785)-A(994)-A(995)\nIF (DO_FUN(66)) &\n  Vdot(66) = 0.15*A(391)-A(397)+0.25*A(464)-A(1051)\nIF (DO_FUN(67)) &\n  Vdot(67) = -A(248)-A(249)-A(250)+A(988)\nIF (DO_FUN(68)) &\n  Vdot(68) = -A(238)-A(239)-A(986)\nIF (DO_FUN(69)) &\n  Vdot(69) = -A(66)-A(67)\nIF (DO_FUN(70)) &\n  Vdot(70) = 0.005*A(716)-A(721)\nIF (DO_FUN(71)) &\n  Vdot(71) = 0.65*A(750)-A(753)-A(1044)\nIF (DO_FUN(72)) &\n  Vdot(72) = 0.56*A(158)-A(161)\nIF (DO_FUN(73)) &\n  Vdot(73) = A(351)-A(353)-A(825)-A(826)-A(827)\nIF (DO_FUN(74)) &\n  Vdot(74) = 0.41*A(391)-A(396)-A(1050)\nIF (DO_FUN(75)) &\n  Vdot(75) = -A(285)-A(317)\nIF (DO_FUN(76)) &\n  Vdot(76) = -A(278)+A(307)-A(308)-A(946)\nIF (DO_FUN(77)) &\n  Vdot(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853)-A(980)\nIF (DO_FUN(78)) &\n  Vdot(78) = -A(224)-0.95*A(259)-A(938)\nIF (DO_FUN(79)) &\n  Vdot(79) = -A(284)-A(316)-A(941)\nIF (DO_FUN(80)) &\n  Vdot(80) = A(197)-A(198)-A(982)-A(983)\nIF (DO_FUN(81)) &\n  Vdot(81) = -A(223)-0.7*A(260)-A(937)\nIF (DO_FUN(82)) &\n  Vdot(82) = -A(725)\nIF (DO_FUN(83)) &\n  Vdot(83) = A(59)-A(490)-A(999)\nIF (DO_FUN(84)) &\n  Vdot(84) = -0.79*A(268)-A(290)-A(958)\nIF (DO_FUN(85)) &\n  Vdot(85) = -0.69*A(266)-A(288)-A(959)\nIF (DO_FUN(86)) &\n  Vdot(86) = -0.65*A(267)-A(289)-A(960)\nIF (DO_FUN(87)) &\n  Vdot(87) = -0.75*A(261)-A(287)-A(961)\nIF (DO_FUN(88)) &\n  Vdot(88) = 0.73*A(365)+0.4*A(366)-A(694)-A(1002)\nIF (DO_FUN(89)) &\n  Vdot(89) = A(10)-A(11)-A(12)\nIF (DO_FUN(90)) &\n  Vdot(90) = A(752)-A(754)-A(755)\nIF (DO_FUN(91)) &\n  Vdot(91) = A(99)-A(491)-A(1000)\nIF (DO_FUN(92)) &\n  Vdot(92) = -A(178)+0.37*A(695)-A(930)\nIF (DO_FUN(93)) &\n  Vdot(93) = A(27)-A(489)-A(998)\nIF (DO_FUN(94)) &\n  Vdot(94) = -A(199)-A(200)-A(201)\nIF (DO_FUN(95)) &\n  Vdot(95) = A(64)-A(492)-A(1001)\nIF (DO_FUN(96)) &\n  Vdot(96) = 0.8*A(344)-A(345)-2*A(346)+2*A(347)-A(348)+0.4*A(357)+0.996*A(358)-A(969)+A(973)+2*A(978)+A(979)\nIF (DO_FUN(97)) &\n  Vdot(97) = A(114)-A(173)-A(921)\nIF (DO_FUN(98)) &\n  Vdot(98) = A(70)-A(71)-A(922)\nIF (DO_FUN(99)) &\n  Vdot(99) = A(146)-A(171)-A(919)\nIF (DO_FUN(100)) &\n  Vdot(100) = A(120)-A(172)-A(920)\nIF (DO_FUN(101)) &\n  Vdot(101) = -A(726)\nIF (DO_FUN(102)) &\n  Vdot(102) = A(116)-A(174)-A(923)\nIF (DO_FUN(103)) &\n  Vdot(103) = -A(486)+A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880)\nIF (DO_FUN(104)) &\n  Vdot(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855)-A(981)\nIF (DO_FUN(105)) &\n  Vdot(105) = -A(225)-A(258)-A(939)\nIF (DO_FUN(106)) &\n  Vdot(106) = 0.995*A(716)+A(717)+0.6*A(718)-A(719)-A(720)+A(1042)\nIF (DO_FUN(107)) &\n  Vdot(107) = 0.098*A(672)+0.75*A(684)-A(685)-A(868)\nIF (DO_FUN(108)) &\n  Vdot(108) = A(39)-A(40)-A(41)-A(892)-A(893)\nIF (DO_FUN(109)) &\n  Vdot(109) = -A(712)-A(713)+0.4*A(901)\nIF (DO_FUN(110)) &\n  Vdot(110) = A(274)+A(278)+A(303)+A(305)-A(306)-A(309)+A(311)+A(946)-A(965)\nIF (DO_FUN(111)) &\n  Vdot(111) = A(384)-A(387)-A(1048)\nIF (DO_FUN(112)) &\n  Vdot(112) = A(404)-A(408)-A(1053)\nIF (DO_FUN(113)) &\n  Vdot(113) = A(124)-A(125)-A(126)\nIF (DO_FUN(114)) &\n  Vdot(114) = A(155)-A(156)-A(160)\nIF (DO_FUN(115)) &\n  Vdot(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)-A(693)-A(867)-A(1004)+0.75*A(1010)\nIF (DO_FUN(116)) &\n  Vdot(116) = 0.11*A(709)-A(711)-A(928)\nIF (DO_FUN(117)) &\n  Vdot(117) = 0.15*A(750)+A(755)+A(759)-A(760)-A(1045)\nIF (DO_FUN(118)) &\n  Vdot(118) = A(144)+A(145)-A(170)-A(918)\nIF (DO_FUN(119)) &\n  Vdot(119) = 0.15*A(524)+0.15*A(525)-A(530)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031)\nIF (DO_FUN(120)) &\n  Vdot(120) = -A(277)+A(304)+A(310)+0.56*A(349)-A(945)\nIF (DO_FUN(121)) &\n  Vdot(121) = A(732)-A(733)-A(734)\nIF (DO_FUN(122)) &\n  Vdot(122) = A(738)-A(739)-A(740)\nIF (DO_FUN(123)) &\n  Vdot(123) = A(147)-A(176)-A(924)\nIF (DO_FUN(124)) &\n  Vdot(124) = A(106)-A(107)-A(108)-A(1047)\nIF (DO_FUN(125)) &\n  Vdot(125) = A(121)-A(169)-A(917)\nIF (DO_FUN(126)) &\n  Vdot(126) = A(86)-A(87)-A(88)-A(900)\nIF (DO_FUN(127)) &\n  Vdot(127) = 0.058*A(78)-A(80)\nIF (DO_FUN(128)) &\n  Vdot(128) = 0.255*A(537)+0.595*A(538)-A(551)+A(578)+A(580)-A(860)\nIF (DO_FUN(129)) &\n  Vdot(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)-A(409)+A(458)+A(459)+A(1053)\nIF (DO_FUN(130)) &\n  Vdot(130) = 0.15*A(436)-A(442)+0.25*A(466)-A(1056)\nIF (DO_FUN(131)) &\n  Vdot(131) = A(557)+0.13*A(558)+0.2*A(559)-A(663)+0.35*A(686)+0.35*A(1033)\nIF (DO_FUN(132)) &\n  Vdot(132) = 0.255*A(81)-A(82)-A(83)\nIF (DO_FUN(133)) &\n  Vdot(133) = 0.315*A(524)-A(570)-A(571)\nIF (DO_FUN(134)) &\n  Vdot(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)-A(987)\nIF (DO_FUN(135)) &\n  Vdot(135) = 0.315*A(525)-A(572)-A(573)\nIF (DO_FUN(136)) &\n  Vdot(136) = A(715)+0.2*A(718)-A(722)-A(723)-A(1042)\nIF (DO_FUN(137)) &\n  Vdot(137) = 0.25*A(385)-A(388)\nIF (DO_FUN(138)) &\n  Vdot(138) = 0.25*A(405)-A(407)\nIF (DO_FUN(139)) &\n  Vdot(139) = A(53)-A(54)-A(55)-A(899)\nIF (DO_FUN(140)) &\n  Vdot(140) = -A(75)-A(76)-A(77)\nIF (DO_FUN(141)) &\n  Vdot(141) = -A(61)-A(62)-A(220)-A(327)-A(328)\nIF (DO_FUN(142)) &\n  Vdot(142) = -A(89)-A(101)-A(331)\nIF (DO_FUN(143)) &\n  Vdot(143) = 0.1*A(704)-A(724)\nIF (DO_FUN(144)) &\n  Vdot(144) = 0.15*A(497)+0.15*A(505)-A(527)+0.009*A(538)-A(1023)\nIF (DO_FUN(145)) &\n  Vdot(145) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)-A(619)-A(620)+0.841*A(1029)&\n                &+0.222*A(1032)\nIF (DO_FUN(146)) &\n  Vdot(146) = A(733)+A(734)-A(735)-A(902)\nIF (DO_FUN(147)) &\n  Vdot(147) = A(556)+A(561)-A(687)-A(1037)\nIF (DO_FUN(148)) &\n  Vdot(148) = A(208)+A(210)-A(211)+A(813)+A(817)+A(818)-A(931)\nIF (DO_FUN(149)) &\n  Vdot(149) = -A(705)-A(706)\nIF (DO_FUN(150)) &\n  Vdot(150) = 0.15*A(496)+0.15*A(503)-A(526)+0.009*A(537)-A(1022)\nIF (DO_FUN(151)) &\n  Vdot(151) = 0.67*A(532)+0.68*A(534)-A(552)-A(553)+0.67*A(575)+0.67*A(577)-A(858)\nIF (DO_FUN(152)) &\n  Vdot(152) = 0.33*A(532)+0.32*A(534)-A(554)-A(555)+0.33*A(575)+0.33*A(577)-A(859)\nIF (DO_FUN(153)) &\n  Vdot(153) = A(562)+0.2*A(563)+0.13*A(565)-A(666)+0.15*A(686)+0.15*A(1033)+0.163*A(1034)\nIF (DO_FUN(154)) &\n  Vdot(154) = A(481)+A(482)+A(483)+A(484)+A(485)-A(488)-A(866)-A(993)\nIF (DO_FUN(155)) &\n  Vdot(155) = 0.41*A(128)+0.41*A(148)-A(175)+0.41*A(737)-A(925)\nIF (DO_FUN(156)) &\n  Vdot(156) = 0.25*A(129)+0.25*A(130)-A(140)+0.4*A(142)+0.4*A(143)-A(325)\nIF (DO_FUN(157)) &\n  Vdot(157) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816)-A(942)\nIF (DO_FUN(158)) &\n  Vdot(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726)-A(743)-A(744)\nIF (DO_FUN(159)) &\n  Vdot(159) = 0.5*A(671)-A(672)-0.75*A(1012)\nIF (DO_FUN(160)) &\n  Vdot(160) = A(398)+0.25*A(401)-A(402)-A(1052)\nIF (DO_FUN(161)) &\n  Vdot(161) = A(410)+0.25*A(413)-A(415)-A(1054)\nIF (DO_FUN(162)) &\n  Vdot(162) = 0.5*A(407)+A(411)-A(416)\nIF (DO_FUN(163)) &\n  Vdot(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432)-A(433)-A(434)\nIF (DO_FUN(164)) &\n  Vdot(164) = A(28)-A(32)-A(320)-A(887)\nIF (DO_FUN(165)) &\n  Vdot(165) = A(72)-A(73)-A(74)\nIF (DO_FUN(166)) &\n  Vdot(166) = -2*A(4)-A(5)-A(6)\nIF (DO_FUN(167)) &\n  Vdot(167) = -A(377)-A(378)-A(379)\nIF (DO_FUN(168)) &\n  Vdot(168) = A(520)-A(576)-A(577)-A(871)-A(1026)\nIF (DO_FUN(169)) &\n  Vdot(169) = A(430)+0.25*A(432)+0.41*A(436)-A(441)-A(1055)\nIF (DO_FUN(170)) &\n  Vdot(170) = A(335)+A(338)-A(339)+A(342)-A(352)-A(966)\nIF (DO_FUN(171)) &\n  Vdot(171) = -A(655)-A(656)-A(657)+0.224*A(1020)+0.068*A(1031)\nIF (DO_FUN(172)) &\n  Vdot(172) = -A(658)-A(659)-A(660)+0.182*A(1021)+0.128*A(1031)\nIF (DO_FUN(173)) &\n  Vdot(173) = 0.15*A(128)+0.15*A(148)+0.5*A(475)-A(701)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770)\nIF (DO_FUN(174)) &\n  Vdot(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550)-A(688)-A(1035)\nIF (DO_FUN(175)) &\n  Vdot(175) = A(516)-A(574)-A(575)-A(870)-A(1025)\nIF (DO_FUN(176)) &\n  Vdot(176) = 0.5*A(388)+0.16*A(399)-A(403)\nIF (DO_FUN(177)) &\n  Vdot(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429)-A(435)\nIF (DO_FUN(178)) &\n  Vdot(178) = A(66)+A(67)-A(68)-A(69)-A(70)+0.5*A(71)\nIF (DO_FUN(179)) &\n  Vdot(179) = -2*A(1)-A(2)-A(3)\nIF (DO_FUN(180)) &\n  Vdot(180) = 0.435*A(641)-A(642)-A(643)\nIF (DO_FUN(181)) &\n  Vdot(181) = -0.9*A(257)-A(283)-A(315)-A(940)\nIF (DO_FUN(182)) &\n  Vdot(182) = 0.461*A(638)-0.33*A(639)-0.33*A(640)+0.041*A(691)\nIF (DO_FUN(183)) &\n  Vdot(183) = -A(57)-A(179)-A(219)-A(321)\nIF (DO_FUN(184)) &\n  Vdot(184) = A(677)+A(680)-A(683)-A(684)\nIF (DO_FUN(185)) &\n  Vdot(185) = A(530)-A(662)+0.444*A(687)-A(1009)+0.112*A(1020)+0.182*A(1021)+0.162*A(1031)+0.454*A(1037)\nIF (DO_FUN(186)) &\n  Vdot(186) = A(605)-A(622)-A(624)-A(625)-A(627)-A(628)-A(874)-A(1029)-A(1030)\nIF (DO_FUN(187)) &\n  Vdot(187) = 0.937*A(498)-A(531)-A(532)-A(535)-A(1016)\nIF (DO_FUN(188)) &\n  Vdot(188) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25&\n                &*A(139)-A(141)+0.25*A(473)\nIF (DO_FUN(189)) &\n  Vdot(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707)-A(709)-A(710)\nIF (DO_FUN(190)) &\n  Vdot(190) = A(576)-A(588)-A(589)-A(590)-A(591)\nIF (DO_FUN(191)) &\n  Vdot(191) = -A(375)-A(382)-A(383)\nIF (DO_FUN(192)) &\n  Vdot(192) = 0.937*A(500)-A(533)-A(534)-A(536)-A(1017)\nIF (DO_FUN(193)) &\n  Vdot(193) = A(444)-A(450)-A(451)-A(452)\nIF (DO_FUN(194)) &\n  Vdot(194) = -A(661)+0.022*A(691)-A(1010)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031)\nIF (DO_FUN(195)) &\n  Vdot(195) = 0.54*A(724)-A(741)-A(742)\nIF (DO_FUN(196)) &\n  Vdot(196) = A(69)-A(72)+A(74)-A(927)\nIF (DO_FUN(197)) &\n  Vdot(197) = 0.68*A(81)-A(84)-A(85)-A(86)+A(87)+A(900)+0.3*A(901)\nIF (DO_FUN(198)) &\n  Vdot(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688)-A(689)-A(1036)\nIF (DO_FUN(199)) &\n  Vdot(199) = A(501)-A(538)-A(1019)\nIF (DO_FUN(200)) &\n  Vdot(200) = -A(707)-A(708)\nIF (DO_FUN(201)) &\n  Vdot(201) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744)-A(770)-A(771)-A(772)\nIF (DO_FUN(202)) &\n  Vdot(202) = 0.8*A(741)+0.727*A(743)-A(745)-A(746)-A(747)\nIF (DO_FUN(203)) &\n  Vdot(203) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)-A(761)-A(762)&\n                &+A(765)+A(1045)\nIF (DO_FUN(204)) &\n  Vdot(204) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)-A(748)&\n                &-A(749)+A(928)-A(1043)\nIF (DO_FUN(205)) &\n  Vdot(205) = A(574)-A(584)-A(585)-A(586)-A(587)\nIF (DO_FUN(206)) &\n  Vdot(206) = A(579)-A(592)-A(594)-A(595)-A(596)\nIF (DO_FUN(207)) &\n  Vdot(207) = A(581)-A(593)-A(597)-A(598)-A(599)\nIF (DO_FUN(208)) &\n  Vdot(208) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)-A(665)+0.255*A(667)+0.318*A(687)-A(1006)+0.391*A(1037)\nIF (DO_FUN(209)) &\n  Vdot(209) = A(499)-A(537)-A(1018)\nIF (DO_FUN(210)) &\n  Vdot(210) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59&\n                &*A(635)-A(696)-A(697)-A(1003)+0.5*A(1039)\nIF (DO_FUN(211)) &\n  Vdot(211) = 0.25*A(418)-A(426)-A(427)-A(428)\nIF (DO_FUN(212)) &\n  Vdot(212) = A(75)-A(78)-A(79)\nIF (DO_FUN(213)) &\n  Vdot(213) = 0.8*A(153)+A(154)-A(155)+A(156)-A(157)-A(158)-A(159)\nIF (DO_FUN(214)) &\n  Vdot(214) = A(45)-A(46)-A(786)-A(787)-A(788)-A(789)-A(790)-A(896)\nIF (DO_FUN(215)) &\n  Vdot(215) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)-A(529)+0.75*A(551)+A(552)+A(554)+A(625)+A(637)-A(873)\nIF (DO_FUN(216)) &\n  Vdot(216) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291&\n                &*A(635)+0.378*A(638)-A(654)+0.13*A(678)+0.3*A(682)-A(879)-A(1015)\nIF (DO_FUN(217)) &\n  Vdot(217) = A(229)+0.2*A(231)+A(234)+A(235)-A(245)-A(246)-A(247)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(888)\nIF (DO_FUN(218)) &\n  Vdot(218) = -A(210)+A(222)-A(793)-A(794)-A(934)-A(935)\nIF (DO_FUN(219)) &\n  Vdot(219) = -A(376)-A(380)-A(381)\nIF (DO_FUN(220)) &\n  Vdot(220) = -A(702)-A(703)-A(704)\nIF (DO_FUN(221)) &\n  Vdot(221) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9&\n                &*A(763)+0.9*A(764)-A(767)-A(768)-A(769)+A(1046)\nIF (DO_FUN(222)) &\n  Vdot(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610)-A(621)-A(623)-A(626)-A(875)-A(1028)\nIF (DO_FUN(223)) &\n  Vdot(223) = 0.345*A(531)+0.595*A(537)-A(539)-A(540)-A(541)-A(542)\nIF (DO_FUN(224)) &\n  Vdot(224) = 0.345*A(533)+0.255*A(538)-A(543)-A(544)-A(545)-A(546)\nIF (DO_FUN(225)) &\n  Vdot(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)-A(389)-A(390)+A(456)+A(457)+A(1048)-A(1049)\nIF (DO_FUN(226)) &\n  Vdot(226) = A(622)-A(629)-A(632)-A(635)-A(636)\nIF (DO_FUN(227)) &\n  Vdot(227) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)-A(664)+0.16*A(666)+0.126*A(687)-A(1007)+0.133*A(1034)&\n                &+0.155*A(1037)\nIF (DO_FUN(228)) &\n  Vdot(228) = -A(25)+0.1*A(150)-A(231)-A(291)+A(898)\nIF (DO_FUN(229)) &\n  Vdot(229) = A(443)-A(447)-A(448)-A(449)-A(989)-A(1057)\nIF (DO_FUN(230)) &\n  Vdot(230) = 0.25*A(496)+0.25*A(503)-A(524)+0.015*A(537)-A(1020)\nIF (DO_FUN(231)) &\n  Vdot(231) = 0.25*A(497)+0.25*A(505)-A(525)+0.015*A(538)-A(1021)\nIF (DO_FUN(232)) &\n  Vdot(232) = 0.655*A(531)+0.655*A(533)-A(547)-A(548)-A(549)-A(550)\nIF (DO_FUN(233)) &\n  Vdot(233) = A(76)+A(77)+0.73*A(78)-A(81)-A(901)\nIF (DO_FUN(234)) &\n  Vdot(234) = A(127)+0.44*A(128)+A(713)-A(715)-A(716)-A(717)-A(718)+A(722)\nIF (DO_FUN(235)) &\n  Vdot(235) = A(748)+A(749)-A(750)-A(751)-A(752)+A(753)+A(754)-A(766)\nIF (DO_FUN(236)) &\n  Vdot(236) = 0.28*A(704)+0.2*A(750)+A(751)-A(756)-A(757)-A(758)-A(759)+A(760)+A(761)-A(765)+A(766)+A(1043)+A(1044)\nIF (DO_FUN(237)) &\n  Vdot(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)-A(423)-A(424)-A(425)+0.37*A(460)+0.37*A(461)\nIF (DO_FUN(238)) &\n  Vdot(238) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)-A(528)+0.06*A(537)+0.06*A(538)+A(1018)&\n                &+A(1019)+0.45*A(1024)+0.45*A(1027)\nIF (DO_FUN(239)) &\n  Vdot(239) = A(37)-A(38)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)&\n                &-A(891)+A(994)+A(996)+A(1046)\nIF (DO_FUN(240)) &\n  Vdot(240) = A(735)-A(736)-A(737)-A(738)+A(739)\nIF (DO_FUN(241)) &\n  Vdot(241) = 0.12*A(150)-A(369)-A(370)-A(371)-A(372)-A(373)-A(374)\nIF (DO_FUN(242)) &\n  Vdot(242) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6&\n                &*A(478)+0.45*A(479)+0.3*A(480)-A(482)-A(483)-A(484)-A(865)-A(992)\nIF (DO_FUN(243)) &\n  Vdot(243) = 0.16*A(536)+0.25*A(551)-A(566)-A(567)-A(568)-A(569)\nIF (DO_FUN(244)) &\n  Vdot(244) = -A(33)+0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)&\n                &+0.054*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)-A(984)+0.05*A(1039)\nIF (DO_FUN(245)) &\n  Vdot(245) = -0.75*A(255)-A(273)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)&\n                &+A(804)+A(808)+A(810)+A(811)-A(943)\nIF (DO_FUN(246)) &\n  Vdot(246) = 0.31*A(123)-A(124)+A(125)-A(127)-A(128)\nIF (DO_FUN(247)) &\n  Vdot(247) = 0.791*A(169)-A(361)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687&\n                &*A(633)+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)-A(1005)+A(1015)\nIF (DO_FUN(248)) &\n  Vdot(248) = 0.059*A(585)+0.272*A(586)-A(653)+A(660)+A(675)+0.37*A(678)-A(880)-A(1014)+0.5*A(1038)\nIF (DO_FUN(249)) &\n  Vdot(249) = -A(92)+A(103)-A(117)-A(135)-A(188)\nIF (DO_FUN(250)) &\n  Vdot(250) = -A(100)-A(121)-A(139)+A(162)+0.209*A(169)-A(189)\nIF (DO_FUN(251)) &\n  Vdot(251) = A(94)-A(102)+A(115)+0.07*A(123)-A(863)-A(926)\nIF (DO_FUN(252)) &\n  Vdot(252) = A(336)-A(337)-2*A(338)-A(839)-A(840)-A(844)-A(845)-A(846)-A(847)-A(971)\nIF (DO_FUN(253)) &\n  Vdot(253) = 0.964*A(646)+A(658)+A(659)-A(670)-A(673)-A(674)-A(675)\nIF (DO_FUN(254)) &\n  Vdot(254) = A(644)+A(655)+A(656)-A(667)-A(668)-A(669)\nIF (DO_FUN(255)) &\n  Vdot(255) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)-A(420)-A(421)-A(422)+0.63*A(460)+0.63*A(461)-A(1058)\nIF (DO_FUN(256)) &\n  Vdot(256) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7*A(476)&\n                &+1.4*A(478)+1.05*A(479)+0.7*A(480)-A(481)-A(485)-A(864)-A(991)\nIF (DO_FUN(257)) &\n  Vdot(257) = 0.4*A(387)+A(389)+A(390)-A(391)-A(392)-A(393)+A(394)-A(395)+A(396)-A(464)-A(465)\nIF (DO_FUN(258)) &\n  Vdot(258) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)-A(686)+0.333*A(688)-A(1033)-A(1034)+0.75&\n                &*A(1035)\nIF (DO_FUN(259)) &\n  Vdot(259) = A(647)+0.32*A(649)-A(671)+0.165*A(672)-A(676)-A(677)+A(683)\nIF (DO_FUN(260)) &\n  Vdot(260) = -A(65)-A(113)-A(147)+A(149)+0.209*A(176)-A(192)+A(332)+A(333)\nIF (DO_FUN(261)) &\n  Vdot(261) = -A(360)+0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07&\n                &*A(635)+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)-A(692)-A(990)+0.3*A(1013)+0.15*A(1038)\nIF (DO_FUN(262)) &\n  Vdot(262) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15*A(452)&\n                &-A(453)-A(454)-A(455)+0.675*A(462)+0.675*A(463)+0.675*A(1057)\nIF (DO_FUN(263)) &\n  Vdot(263) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)&\n                &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5*A(455)&\n                &+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)-A(727)-A(728)&\n                &-A(729)-A(730)-A(731)+0.14*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1052)\nIF (DO_FUN(264)) &\n  Vdot(264) = -A(7)+A(19)-A(21)+A(23)-A(244)-A(295)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)-A(886)\nIF (DO_FUN(265)) &\n  Vdot(265) = -A(47)+0.134*A(151)+A(152)+0.5*A(168)-A(318)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)&\n                &+0.5*A(694)+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771)\nIF (DO_FUN(266)) &\n  Vdot(266) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)-A(690)+0.9*A(691)-A(877)-A(1040)&\n                &-A(1041)\nIF (DO_FUN(267)) &\n  Vdot(267) = A(518)-A(580)-A(581)-A(583)+0.127*A(608)+0.057*A(609)-A(872)-A(1027)\nIF (DO_FUN(268)) &\n  Vdot(268) = A(522)-A(578)-A(579)-A(582)+0.032*A(607)+0.671*A(608)+0.298*A(609)-A(869)-A(1024)\nIF (DO_FUN(269)) &\n  Vdot(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762)-A(763)-A(764)-A(881)-A(1046)\nIF (DO_FUN(270)) &\n  Vdot(270) = 0.065*A(81)+0.134*A(151)+0.2*A(153)-A(163)-A(165)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)&\n                &+0.18*A(724)+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)-A(856)-A(908)-A(909)&\n                &-A(910)+0.5*A(1007)+0.429*A(1009)+0.125*A(1010)+0.586*A(1034)+0.571*A(1036)\nIF (DO_FUN(271)) &\n  Vdot(271) = 0.67*A(621)-A(630)-A(631)-A(633)-A(634)\nIF (DO_FUN(272)) &\n  Vdot(272) = A(423)+0.27*A(424)+0.18*A(426)-A(429)-A(430)-A(431)-A(432)\nIF (DO_FUN(273)) &\n  Vdot(273) = 0.1*A(383)+A(409)-A(410)-A(411)-A(412)-A(413)-A(414)+A(415)\nIF (DO_FUN(274)) &\n  Vdot(274) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)&\n                &+0.4*A(427)+A(433)+A(434)+0.5*A(435)-A(436)-A(437)-A(438)+A(439)-A(440)+A(441)-A(466)-A(467)+0.27*A(1054)&\n                &+0.9*A(1058)\nIF (DO_FUN(275)) &\n  Vdot(275) = 0.15*A(380)+0.255*A(382)-A(404)-A(405)-A(406)+A(408)-A(458)-A(459)\nIF (DO_FUN(276)) &\n  Vdot(276) = -A(330)-A(493)-A(494)-A(495)-A(496)-A(497)-A(603)\nIF (DO_FUN(277)) &\n  Vdot(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)-A(384)-A(385)-A(386)+0.6*A(387)-A(456)-A(457)\nIF (DO_FUN(278)) &\n  Vdot(278) = 0.44*A(391)+A(392)+A(395)+A(397)-A(398)-A(399)-A(400)-A(401)+0.5*A(402)+0.75*A(464)+A(465)+A(1049)+A(1050)&\n                &+A(1051)\nIF (DO_FUN(279)) &\n  Vdot(279) = A(91)+0.072*A(97)-A(103)+A(117)-A(929)\nIF (DO_FUN(280)) &\n  Vdot(280) = 0.1*A(375)+0.1*A(376)+0.5*A(377)+0.5*A(449)+0.5*A(452)+0.5*A(455)-A(468)-A(470)-A(472)-A(474)-A(476)-2&\n                &*A(478)-A(479)\nIF (DO_FUN(281)) &\n  Vdot(281) = A(378)+0.2*A(380)+0.075*A(382)-A(417)-A(418)-A(419)-A(460)-A(461)\nIF (DO_FUN(282)) &\n  Vdot(282) = A(29)+0.13*A(31)-A(48)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)&\n                &+0.25*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)-A(324)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25&\n                &*A(456)+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(907)\nIF (DO_FUN(283)) &\n  Vdot(283) = -A(104)+0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)&\n                &+0.1*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)-A(326)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1&\n                &*A(463)+0.13*A(695)+0.15*A(770)+0.3*A(771)\nIF (DO_FUN(284)) &\n  Vdot(284) = -A(340)+A(341)+A(343)-A(344)-A(345)+A(348)-A(349)+A(350)+A(354)-A(355)-A(356)-2*A(357)+0.008*A(358)-A(968)&\n                &+A(979)\nIF (DO_FUN(285)) &\n  Vdot(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)-A(561)-A(562)-A(563)-A(564)-A(565)+0.032*A(687)\nIF (DO_FUN(286)) &\n  Vdot(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)-A(556)-A(557)-A(558)-A(559)-A(560)+0.08*A(687)\nIF (DO_FUN(287)) &\n  Vdot(287) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)&\n                &+0.14*A(542)+0.004*A(631)+0.006*A(633)-A(652)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)-A(1011)+0.55&\n                &*A(1027)+0.5*A(1033)+0.15*A(1039)+0.5*A(1041)\nIF (DO_FUN(288)) &\n  Vdot(288) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)&\n                &+0.14*A(546)+0.054*A(631)+0.059*A(633)-A(651)+0.335*A(667)+0.429*A(689)+0.75*A(690)-A(1008)+0.55*A(1024)&\n                &+0.5*A(1041)\nIF (DO_FUN(289)) &\n  Vdot(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377)-A(469)-A(471)-A(473)-A(475)-A(477)-A(479)-2*A(480)\nIF (DO_FUN(290)) &\n  Vdot(290) = -A(149)-A(150)-A(162)-A(332)-A(333)+A(912)\nIF (DO_FUN(291)) &\n  Vdot(291) = 0.5*A(380)-A(443)-A(444)-A(445)-A(446)-A(462)-A(463)\nIF (DO_FUN(292)) &\n  Vdot(292) = 0.25*A(68)+0.19*A(90)+0.19*A(93)-A(122)-A(131)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271&\n                &*A(183)+0.1*A(185)+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5&\n                &*A(455)+0.464*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)-A(906)+0.19*A(926)&\n                &+0.19*A(929)+A(991)+0.5*A(1052)\nIF (DO_FUN(293)) &\n  Vdot(293) = -A(600)-A(601)-A(602)+A(620)+0.33*A(621)+0.037*A(691)\nIF (DO_FUN(294)) &\n  Vdot(294) = 0.3*A(33)+0.5*A(136)-A(164)-A(166)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)&\n                &+0.085*A(524)+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545&\n                &*A(645)+0.88*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14&\n                &*A(674)+0.7*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)-A(857)-A(911)+0.5&\n                &*A(1007)+0.47*A(1008)+0.571*A(1009)+0.125*A(1010)+0.23*A(1011)+0.118*A(1034)+0.429*A(1036)+A(1040)\nIF (DO_FUN(295)) &\n  Vdot(295) = 0.34*A(90)+0.34*A(93)+A(98)-A(111)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29&\n                &*A(183)+A(186)-A(218)-A(329)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4&\n                &*A(413)+0.6*A(414)+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5&\n                &*A(454)+0.25*A(455)+0.45*A(462)+0.45*A(463)+A(491)-A(904)-A(905)+A(920)+0.34*A(926)+0.34*A(929)+A(1000)&\n                &+A(1052)+0.6*A(1054)+0.45*A(1057)\nIF (DO_FUN(296)) &\n  Vdot(296) = A(57)-A(58)-A(59)-A(129)-2*A(142)-A(144)+A(179)-A(190)+A(219)+A(321)-A(322)+A(701)\nIF (DO_FUN(297)) &\n  Vdot(297) = -A(281)+A(787)+A(789)+A(790)-A(802)-A(803)-A(804)-A(805)-A(806)-A(807)-A(947)\nIF (DO_FUN(298)) &\n  Vdot(298) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)&\n                &-A(105)-A(110)+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)&\n                &+0.64*A(171)+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035&\n                &*A(192)+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75&\n                &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)&\n                &+1.15*A(772)-A(903)+A(917)+A(919)+1.5*A(921)+A(922)+1.5*A(923)+0.15*A(926)+1.558*A(927)+0.15*A(929)+A(989)&\n                &+A(992)+A(1001)+0.6*A(1054)+A(1055)+A(1056)\nIF (DO_FUN(299)) &\n  Vdot(299) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)-A(641)+0.18*A(643)-A(876)-A(1032)\nIF (DO_FUN(300)) &\n  Vdot(300) = -A(90)-A(91)+A(101)-A(116)-A(134)+0.21*A(174)-A(183)+A(331)+0.2*A(772)\nIF (DO_FUN(301)) &\n  Vdot(301) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159&\n                &*A(614)+0.159*A(617)+A(619)+A(628)-A(637)-A(638)+0.159*A(1029)-A(1031)+0.223*A(1032)\nIF (DO_FUN(302)) &\n  Vdot(302) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015&\n                &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)-A(650)+A(657)+A(669)-A(862)-A(1013)+0.05*A(1038)\nIF (DO_FUN(303)) &\n  Vdot(303) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5&\n                &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641)-A(691)-A(878)-A(1038)-A(1039)\nIF (DO_FUN(304)) &\n  Vdot(304) = 0.5*A(330)+A(495)-A(500)-A(501)-A(504)-A(505)-2*A(507)-A(508)-2*A(510)-A(511)-A(514)-A(515)-A(520)-A(521)&\n                &-A(522)-A(523)+0.51*A(536)+0.03*A(538)+0.159*A(1030)\nIF (DO_FUN(305)) &\n  Vdot(305) = 0.5*A(330)+A(494)-A(498)-A(499)-A(502)-A(503)-2*A(506)-A(508)-2*A(509)-A(511)-A(512)-A(513)-A(516)-A(517)&\n                &-A(518)-A(519)+0.75*A(535)+0.03*A(537)+0.841*A(1030)\nIF (DO_FUN(306)) &\n  Vdot(306) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)-A(151)-A(152)-A(153)-A(154)+0.5*A(453)+0.5*A(454)&\n                &+0.25*A(455)+0.294*A(544)+0.135*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)&\n                &+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36&\n                &*A(667)+0.758*A(668)+0.2*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)-A(907)+0.53*A(1008)+0.69&\n                &*A(1013)+0.5*A(1032)+0.118*A(1034)+0.25*A(1035)+0.429*A(1036)+0.3*A(1038)+0.35*A(1039)+A(1040)\nIF (DO_FUN(307)) &\n  Vdot(307) = 0.16*A(113)+0.2*A(136)-A(167)-A(168)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)&\n                &+A(548)+0.65*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441&\n                &*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507&\n                &*A(670)+0.488*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)-A(916)+A(993)+0.77&\n                &*A(1011)+A(1014)+0.5*A(1032)+0.586*A(1034)+0.25*A(1035)+0.571*A(1036)+0.45*A(1038)+0.8*A(1039)\nIF (DO_FUN(308)) &\n  Vdot(308) = A(653)-A(678)-A(679)-A(680)-A(681)-A(682)\nIF (DO_FUN(309)) &\n  Vdot(309) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)&\n                &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)&\n                &-A(646)-A(647)-A(648)-A(649)-A(915)+A(1017)+A(1023)+A(1026)+0.097*A(1028)+0.005*A(1032)\nIF (DO_FUN(310)) &\n  Vdot(310) = 0.465*A(603)-A(604)-2*A(606)-A(607)-A(610)-A(611)-A(613)-A(615)-A(616)+A(626)\nIF (DO_FUN(311)) &\n  Vdot(311) = 0.535*A(603)-A(605)-A(607)-2*A(608)-A(609)-A(612)-A(614)-A(617)-A(618)+A(627)\nIF (DO_FUN(312)) &\n  Vdot(312) = 0.22*A(150)-A(362)-A(363)-A(364)-A(365)-A(366)-A(367)-A(368)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)&\n                &+0.88*A(648)+0.5*A(704)+A(712)\nIF (DO_FUN(313)) &\n  Vdot(313) = 0.7*A(33)-A(96)+A(111)-A(118)-A(136)-A(184)+A(218)+A(329)\nIF (DO_FUN(314)) &\n  Vdot(314) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)&\n                &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23&\n                &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903&\n                &*A(613)+0.904*A(615)-A(644)-A(645)+0.04*A(725)+0.04*A(726)-A(912)-A(913)-A(914)+A(1016)+A(1022)+A(1025)&\n                &+0.903*A(1028)+0.05*A(1032)+0.45*A(1057)\nIF (DO_FUN(315)) &\n  Vdot(315) = -A(60)+0.34*A(90)+0.34*A(93)+0.49*A(109)-A(130)+0.16*A(132)+0.16*A(134)-2*A(143)-A(145)+0.22*A(148)+0.36&\n                &*A(170)+0.29*A(182)+0.29*A(183)-A(191)+0.49*A(194)+0.49*A(195)-A(323)+0.49*A(903)+0.415*A(906)+0.34*A(926)&\n                &+0.34*A(929)\nIF (DO_FUN(316)) &\n  Vdot(316) = A(204)+A(211)-A(212)+A(793)-A(813)-A(814)-A(815)-A(816)-A(817)-A(818)-A(819)+A(820)+A(821)+A(822)-A(933)\nIF (DO_FUN(317)) &\n  Vdot(317) = -A(282)+A(301)-A(313)-A(314)-A(795)-A(796)-A(797)-A(798)-A(799)-A(800)-A(801)-A(948)-A(949)\nIF (DO_FUN(318)) &\n  Vdot(318) = -A(95)+A(102)-A(115)-A(133)-A(187)+0.5*A(763)+0.5*A(764)\nIF (DO_FUN(319)) &\n  Vdot(319) = 0.25*A(68)+A(89)-A(93)-A(94)-A(114)-A(132)+0.15*A(133)+0.15*A(135)+0.21*A(173)-A(182)+0.27*A(187)+0.27&\n                &*A(188)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6&\n                &*A(466)+0.8*A(467)+0.6*A(1054)+0.8*A(1055)+0.8*A(1056)\nIF (DO_FUN(320)) &\n  Vdot(320) = -A(97)-A(119)+A(122)-A(123)+A(131)-A(137)-A(185)+0.3*A(381)\nIF (DO_FUN(321)) &\n  Vdot(321) = A(62)-A(63)-A(64)+0.05*A(90)+0.05*A(93)+0.07*A(109)-A(112)+0.03*A(132)+0.03*A(134)-A(146)+0.03*A(148)+0.36&\n                &*A(171)+0.045*A(182)+0.045*A(183)-A(193)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(903)+0.06*A(906)+0.05&\n                &*A(926)+0.05*A(929)\nIF (DO_FUN(322)) &\n  Vdot(322) = A(105)-A(106)+A(107)-A(109)+A(110)-A(148)+A(175)-A(194)-A(195)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)&\n                &+0.4*A(403)+A(736)+0.44*A(737)+0.33*A(767)+0.33*A(770)+0.15*A(906)+A(914)+0.326*A(927)+0.7*A(1047)+A(1052)\nIF (DO_FUN(323)) &\n  Vdot(323) = A(61)+0.19*A(90)+0.19*A(93)-A(98)-A(99)+0.27*A(109)-A(120)+0.09*A(132)+0.09*A(134)-A(138)+0.12*A(148)&\n                &+0.209*A(172)+0.162*A(182)+0.162*A(183)-A(186)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(903)+0.23*A(906)+0.19&\n                &*A(926)+0.19*A(929)\nIF (DO_FUN(324)) &\n  Vdot(324) = 0.95*A(51)+A(52)-A(53)+A(54)-A(56)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5&\n                &*A(137)+A(164)+A(166)+0.78*A(178)-2*A(180)-A(181)-A(182)-A(183)-0.1*A(184)-0.1*A(185)-A(186)-A(187)-A(188)&\n                &-A(189)-A(190)-A(191)-A(192)-A(193)-A(194)+A(217)+0.44*A(436)+A(437)+A(440)+A(442)-A(457)-A(459)-A(461)&\n                &-A(463)-A(465)+0.75*A(466)-A(474)-A(475)+0.3*A(496)+0.3*A(503)+0.018*A(537)-A(611)-A(612)+0.38*A(645)+0.12&\n                &*A(648)+0.04*A(650)+0.097*A(661)+A(665)+0.36*A(667)+0.758*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3&\n                &*A(685)+A(692)+A(693)-A(695)-A(731)+A(740)+0.12*A(897)+0.7*A(899)+A(902)+A(904)+0.85*A(906)+A(911)+A(913)&\n                &+A(915)+A(916)+0.326*A(927)+A(984)+A(1004)+A(1005)+A(1006)+0.5*A(1007)+0.53*A(1008)+0.429*A(1009)+0.125&\n                &*A(1010)+0.262*A(1012)+1.01*A(1013)+A(1055)+A(1056)\nIF (DO_FUN(325)) &\n  Vdot(325) = -A(10)+A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)-A(34)+A(48)-A(50)+0.05*A(51)+A(55)+A(65)&\n                &+0.98*A(73)+A(76)+A(77)+0.603*A(78)+A(80)+0.065*A(81)+A(84)+A(85)+0.64*A(92)+0.64*A(95)+A(96)+A(100)+0.75&\n                &*A(112)+1.25*A(113)+0.15*A(118)+0.31*A(123)+0.75*A(129)+0.75*A(130)+0.75*A(132)+0.95*A(133)+0.75*A(134)&\n                &+0.95*A(135)+0.5*A(136)+0.75*A(137)+0.75*A(138)+1.25*A(139)+0.5*A(150)+0.732*A(151)+A(157)+0.44*A(158)&\n                &+A(159)+A(160)+A(161)+0.22*A(178)+A(181)+0.9*A(184)+0.351*A(187)+0.351*A(188)+0.9*A(189)+0.9*A(192)+A(195)&\n                &+A(199)+A(201)-A(216)+0.25*A(231)-A(252)+A(274)-A(292)+A(319)+A(324)+A(360)+A(362)+A(363)+A(364)+0.06&\n                &*A(365)+0.06*A(366)+A(367)+A(368)+0.1*A(381)+0.1*A(383)+0.5*A(388)+0.84*A(399)+A(400)+1.5*A(401)+0.5*A(402)&\n                &+0.4*A(403)+0.75*A(405)+A(406)+A(407)+0.75*A(413)+0.67*A(421)+A(427)+0.75*A(432)+0.176*A(436)+0.4*A(437)&\n                &+0.4*A(440)+0.4*A(442)+0.1*A(445)+0.1*A(446)+0.1*A(447)+0.1*A(448)+0.05*A(449)+1.5*A(453)+1.5*A(454)+0.75&\n                &*A(455)+0.75*A(456)+1.75*A(458)+A(459)+0.75*A(460)+0.85*A(462)+0.1*A(463)+A(464)+1.3*A(466)+0.4*A(467)&\n                &+0.287*A(469)+A(472)+0.85*A(473)+0.287*A(475)+0.287*A(477)+0.202*A(479)+0.504*A(480)+A(489)+0.827*A(493)&\n                &+0.3*A(496)+0.3*A(497)+0.063*A(498)+0.063*A(500)+A(502)+0.3*A(503)+A(504)+0.3*A(505)+2*A(506)+2*A(507)+2&\n                &*A(508)+2*A(512)+A(513)+2*A(514)+A(515)+A(517)+A(521)+0.085*A(524)+0.165*A(525)+0.5*A(529)+0.018*A(537)&\n                &+0.018*A(538)+0.716*A(540)+0.14*A(542)+0.706*A(544)+0.14*A(546)+0.65*A(566)+A(568)+0.059*A(585)+0.272&\n                &*A(586)+0.599*A(589)+A(590)+0.031*A(594)+0.065*A(595)+0.065*A(597)+0.142*A(598)+0.104*A(600)+0.383*A(601)&\n                &+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.645*A(609)+1.577*A(610)+A(611)+A(613)+A(615)+0.126*A(631)+0.088&\n                &*A(632)+0.249*A(633)+0.34*A(635)+0.6*A(645)+0.12*A(648)+0.241*A(650)+0.05*A(667)+0.242*A(668)+0.083*A(670)&\n                &+0.5*A(671)+0.25*A(672)+0.14*A(674)+A(676)+A(682)+0.022*A(691)+0.5*A(694)+A(696)+A(702)+A(703)+0.5*A(704)&\n                &+0.25*A(705)+A(706)+0.12*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)-A(888)&\n                &-A(889)+0.3*A(901)+A(902)+0.9*A(907)+A(910)+A(913)+A(915)+A(916)+A(924)+A(982)+A(984)+A(990)+A(998)+A(1002)&\n                &+A(1003)+A(1005)+A(1006)+0.47*A(1008)+0.23*A(1011)+0.75*A(1012)+A(1016)+A(1017)+A(1025)+A(1026)+A(1028)&\n                &+0.055*A(1032)+0.133*A(1034)+0.55*A(1038)+0.15*A(1039)+A(1052)+A(1053)+0.4*A(1055)+0.4*A(1056)+0.1*A(1057)\nIF (DO_FUN(326)) &\n  Vdot(326) = -A(51)-A(52)+A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)&\n                &+A(108)+0.5*A(113)+0.15*A(119)+0.62*A(123)+0.75*A(129)+0.75*A(130)+0.16*A(132)+0.38*A(133)+0.16*A(134)+0.38&\n                &*A(135)+0.5*A(137)+0.5*A(139)+A(140)+1.6*A(142)+1.6*A(143)+0.5*A(150)+0.64*A(170)+0.29*A(182)+0.29*A(183)&\n                &+0.9*A(185)+0.675*A(187)+0.675*A(188)+0.9*A(189)+A(190)+A(191)+0.9*A(192)-A(217)+A(322)+A(323)+A(325)&\n                &+A(369)+A(370)+A(371)+A(372)+A(373)+A(490)+0.4*A(705)-A(897)-A(898)+A(918)+A(924)+A(925)+0.34*A(926)+0.348&\n                &*A(927)+0.34*A(929)+A(999)\nIF (DO_FUN(327)) &\n  Vdot(327) = -A(3)-A(6)+A(35)-A(36)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)&\n                &+A(486)+A(487)+0.32*A(649)+A(692)+A(706)+A(708)+0.742*A(742)+0.5*A(744)+0.5*A(747)+A(749)+0.5*A(764)+0.5&\n                &*A(782)+A(783)+2*A(786)+A(787)+2*A(788)+A(789)+A(790)+A(793)+A(794)+A(795)+A(796)+A(797)+A(798)+A(799)&\n                &+A(800)+A(801)+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851)-A(890)\nIF (DO_FUN(328)) &\n  Vdot(328) = -A(17)+A(25)-A(26)-A(27)-A(28)-2*A(29)-2*A(30)-A(31)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)-A(112)&\n                &-A(113)+0.85*A(119)-A(129)-A(130)-0.91*A(132)-A(133)-0.91*A(134)-A(135)-A(136)-0.75*A(137)-A(138)-A(139)&\n                &+0.28*A(150)+0.5*A(168)+2*A(180)-0.1*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)+0.9&\n                &*A(187)+0.9*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(194)-A(195)-A(197)+A(198)&\n                &+A(199)+A(200)+A(201)+0.75*A(231)+0.9*A(257)+A(258)-A(274)+A(291)-A(319)+A(320)+A(326)+A(359)-A(401)-A(413)&\n                &-A(432)-A(456)+0.9*A(457)-A(458)+0.9*A(459)-A(460)+0.9*A(461)-A(462)+0.9*A(463)-A(464)+A(465)-A(466)+A(467)&\n                &-A(472)-A(473)+A(474)+0.5*A(475)+0.407*A(493)-A(512)-A(513)-A(514)-A(515)-A(609)-A(610)+A(611)+A(612)+0.325&\n                &*A(671)+0.162*A(672)+0.65*A(676)-A(682)+0.5*A(695)-A(718)-A(730)+A(731)-A(765)-A(766)-A(779)+0.88*A(897)&\n                &+0.3*A(899)+A(904)+2*A(905)+0.15*A(906)+A(914)+A(925)+0.19*A(926)+0.19*A(929)+A(930)+A(939)+A(940)+A(983)&\n                &+0.488*A(1012)\nIF (DO_FUN(329)) &\n  Vdot(329) = -A(24)+A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505&\n                &*A(151)+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)&\n                &+A(317)-A(362)-A(369)+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)&\n                &+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)&\n                &+0.23*A(527)+0.638*A(528)+1.5*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13&\n                &*A(558)+0.2*A(559)+A(562)+0.2*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)&\n                &+0.539*A(638)+0.33*A(639)+0.33*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25&\n                &*A(654)+0.75*A(661)+A(662)+A(664)+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86&\n                &*A(674)+0.65*A(676)+0.25*A(684)+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364&\n                &*A(714)+0.2*A(724)+0.27*A(725)+0.3*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25&\n                &*A(770)+0.5*A(771)+0.05*A(772)+A(888)+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2&\n                &*A(908)+2*A(909)+A(910)+A(911)+A(912)+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)&\n                &+0.875*A(1010)+0.77*A(1011)+A(1014)+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55&\n                &*A(1027)+0.839*A(1031)+A(1033)+0.163*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058)\nIF (DO_FUN(330)) &\n  Vdot(330) = A(352)-A(354)+A(355)-A(828)-A(829)+A(843)-A(852)-A(853)-A(854)-A(855)-A(967)\nIF (DO_FUN(331)) &\n  Vdot(331) = -A(334)-A(336)+A(337)+A(339)-A(342)-A(343)+0.2*A(344)+0.809*A(349)-A(350)-A(351)+A(352)+A(353)+A(356)+0.4&\n                &*A(357)+0.996*A(358)+A(359)+2*A(966)+A(967)+A(968)+A(969)+A(970)+A(971)+A(972)+A(973)+A(974)+2*A(975)&\n                &+A(976)+A(977)+A(980)+A(981)\nIF (DO_FUN(332)) &\n  Vdot(332) = A(339)+A(340)-A(341)-A(342)-A(841)-A(842)-A(843)-A(848)-A(849)-A(850)-A(851)-A(972)\nIF (DO_FUN(333)) &\n  Vdot(333) = A(273)+A(277)+A(278)-A(280)+A(281)+A(282)+A(299)+A(795)-A(808)-A(809)-A(810)-A(811)-A(812)-A(950)\nIF (DO_FUN(334)) &\n  Vdot(334) = -A(226)-A(227)-A(228)-A(229)-A(230)-A(231)-A(237)-A(253)-A(254)-A(255)-A(256)-A(257)-A(258)-A(259)-A(260)&\n                &-A(261)-A(262)-A(263)-A(264)-A(265)-A(266)-A(267)-A(268)-A(269)-A(270)-A(271)-A(272)+A(883)+A(985)\nIF (DO_FUN(335)) &\n  Vdot(335) = A(13)-A(16)+A(22)+A(26)-A(35)+A(38)-A(39)+A(40)+A(41)+A(42)+2*A(43)+A(44)-A(45)+A(46)-A(53)+A(54)+A(55)&\n                &+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)-A(86)+A(87)+A(90)+2*A(92)&\n                &+A(93)+2*A(95)+A(96)+0.928*A(97)+A(98)+2*A(100)-A(106)+A(107)+A(108)+A(109)+0.93*A(123)-A(124)+A(125)&\n                &+A(126)+A(127)+A(133)+A(135)+A(139)-A(155)+A(156)+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)-A(197)&\n                &+A(198)+A(209)+A(215)-A(221)-A(222)-A(240)+A(241)+A(242)-A(243)-A(250)+A(281)+A(300)-A(301)-A(336)+A(337)+2&\n                &*A(338)-A(340)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)-A(364)+A(370)-A(371)+0.75*A(385)+A(386)+0.5*A(388)&\n                &+A(392)-A(393)+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5&\n                &*A(416)+0.75*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)-A(438)&\n                &+A(439)+A(440)+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5&\n                &*A(473)+A(475)+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)&\n                &+A(540)+A(544)+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728&\n                &*A(586)+A(590)+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)&\n                &+A(614)+2*A(615)+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09&\n                &*A(643)+0.31*A(650)+A(655)-A(657)+A(658)-A(660)+A(668)+A(674)+A(676)-A(677)+0.5*A(678)+2*A(679)+2*A(681)&\n                &+0.7*A(682)+A(683)+A(690)+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)&\n                &+A(729)+A(733)+A(736)-A(738)+A(739)+A(740)+A(751)-A(752)+A(754)+A(755)-A(756)+A(757)+A(758)-A(762)+0.5&\n                &*A(763)+A(764)+A(779)-A(782)-A(885)+A(890)+A(893)+A(894)+A(896)+0.7*A(899)+A(900)+A(917)+A(926)+A(927)&\n                &+A(928)+A(929)+A(935)+A(936)+A(947)+A(949)+A(971)+A(983)+A(990)+A(991)+A(992)+A(993)+A(995)+A(997)+A(998)&\n                &+A(999)+A(1000)+A(1001)+A(1005)+0.7*A(1013)+A(1014)+A(1024)+A(1025)+A(1026)+A(1027)+A(1028)+A(1030)+A(1031)&\n                &+1.555*A(1032)+0.3*A(1038)+A(1039)+A(1040)+A(1041)+0.7*A(1047)\nIF (DO_FUN(336)) &\n  Vdot(336) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)&\n                &+A(105)+A(111)+A(122)+A(206)+A(225)-A(226)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)&\n                &+A(289)+A(290)+A(318)+A(353)+A(354)+A(359)-A(365)-2*A(366)-A(373)-A(374)+A(701)+A(781)-A(786)-A(793)-A(795)&\n                &+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)-A(843)+A(928)\nIF (DO_FUN(337)) &\n  Vdot(337) = A(14)-A(15)+A(17)-A(20)+A(21)-A(22)-2*A(23)+A(24)+A(26)-A(28)+2*A(30)+1.74*A(31)+A(34)-A(39)+A(40)-A(42)&\n                &+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)+A(60)+A(63)+A(65)+0.75*A(68)-A(70)-A(74)+0.513*A(78)-A(79)+A(80)&\n                &+0.425*A(81)+A(82)-0.75*A(84)+A(85)+0.27*A(90)+0.27*A(93)+A(98)+A(112)+A(113)-A(114)-A(115)-A(116)-A(117)&\n                &-A(118)-A(119)-A(120)-A(121)-A(128)+A(129)+A(130)+0.64*A(132)+0.5*A(133)+0.64*A(134)+0.5*A(135)+0.3*A(136)&\n                &+0.5*A(137)+A(138)+0.5*A(139)+A(140)+A(141)+1.2*A(142)+1.2*A(143)-A(144)-A(145)-A(146)-A(147)-A(148)+0.28&\n                &*A(150)+0.773*A(151)+0.2*A(153)+A(157)-0.56*A(158)+A(159)+A(161)+A(163)+A(165)+A(167)+0.9*A(181)+0.243&\n                &*A(182)+0.243*A(183)+0.9*A(186)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(195)+A(202)-A(204)-A(205)&\n                &+A(214)+A(216)+A(225)+0.2*A(231)-A(236)+A(244)+A(245)-A(247)+A(252)+A(274)+A(275)+A(283)+A(284)+A(285)&\n                &+A(292)+A(295)-A(296)-A(297)-A(299)+A(315)+A(316)+A(317)+A(319)+A(322)+A(323)+A(324)-A(351)-A(355)+0.05&\n                &*A(381)-A(384)+0.75*A(385)+A(386)+0.5*A(388)-A(391)-A(398)+A(401)-A(404)+0.75*A(405)+A(406)+0.5*A(407)&\n                &-A(410)+A(412)+A(413)+A(414)-A(417)+0.75*A(418)+A(419)+0.84*A(429)-A(430)+A(431)+A(432)-A(436)-A(443)&\n                &+A(445)+A(446)+A(453)+0.5*A(455)+1.75*A(456)+A(457)+1.75*A(458)+A(459)+1.75*A(460)+A(461)+1.75*A(462)&\n                &+A(463)+0.75*A(464)+0.75*A(466)+A(468)-A(470)-A(471)+2*A(472)+0.5*A(473)+A(474)+A(476)+A(478)+0.5*A(479)&\n                &+0.16*A(493)+0.4*A(496)+0.7*A(497)-0.937*A(498)-A(499)-0.937*A(500)-A(501)+0.4*A(503)+0.7*A(505)+2*A(506)+2&\n                &*A(507)+2*A(508)+A(509)+A(510)+A(511)+2*A(512)+1.5*A(513)+2*A(514)+1.5*A(515)+A(517)+0.45*A(519)+A(521)&\n                &+0.45*A(523)+0.085*A(524)+0.165*A(525)+0.283*A(528)+A(530)+0.25*A(535)+0.33*A(536)+0.024*A(537)+0.042&\n                &*A(538)+A(540)-0.725*A(542)+A(544)-0.725*A(546)-A(550)+0.75*A(551)+A(552)+A(554)+A(556)-0.35*A(558)+A(559)&\n                &+A(561)+A(563)-0.35*A(565)-0.35*A(566)+A(568)+A(569)-A(571)-A(573)+0.4*A(582)+0.4*A(583)+A(584)-0.941&\n                &*A(585)+0.272*A(586)+A(588)-0.401*A(589)+A(590)+A(592)+A(593)-0.418*A(594)+A(595)-0.494*A(597)+A(598)-0.621&\n                &*A(600)+A(601)-A(604)-A(605)+0.089*A(607)+0.064*A(608)+0.336*A(609)+0.611*A(610)+0.159*A(612)+0.159*A(614)&\n                &+0.159*A(617)+A(619)-0.674*A(631)-0.42*A(632)+0.5*A(633)+0.904*A(635)+0.295*A(638)+0.33*A(639)-0.67*A(640)&\n                &+0.89*A(642)-0.27*A(643)+0.1*A(645)+0.036*A(646)-A(656)-A(659)+0.715*A(661)+A(663)+A(665)+A(666)-0.695&\n                &*A(667)+0.242*A(668)-0.493*A(670)-A(671)+0.86*A(674)-A(678)+0.7*A(682)+0.5*A(686)+0.444*A(687)+0.62*A(691)&\n                &+0.5*A(694)-A(695)+0.7*A(702)+0.1*A(704)+0.18*A(705)+0.03*A(707)+A(709)-A(710)+A(711)+0.364*A(714)-A(715)&\n                &+0.6*A(718)+A(719)+A(720)+0.54*A(724)+0.19*A(725)+0.15*A(726)+A(728)+A(729)+2*A(730)+A(731)+A(733)-A(734)&\n                &-A(737)+0.8*A(741)+0.727*A(743)+A(746)-A(750)-A(759)+A(765)+A(766)+0.33*A(767)+0.1*A(768)+0.2*A(769)+0.33&\n                &*A(770)+0.1*A(771)+0.2*A(772)+A(779)-A(781)+A(887)+A(888)+A(893)+A(897)+0.3*A(901)+A(902)+A(903)+1.73&\n                &*A(907)+2*A(908)+A(911)+A(913)+A(915)+A(916)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)&\n                &+0.27*A(926)+0.326*A(927)+A(928)+0.27*A(929)+A(982)+A(989)+A(990)+A(998)+A(999)+A(1000)+A(1001)+A(1003)&\n                &+A(1004)+A(1006)+1.5*A(1007)+0.47*A(1008)+0.571*A(1009)+0.125*A(1010)+A(1011)+0.29*A(1013)+A(1014)+A(1015)&\n                &+A(1016)+A(1017)+A(1018)+A(1019)+0.112*A(1020)+0.182*A(1021)+A(1022)+A(1023)+0.45*A(1024)+A(1025)+A(1026)&\n                &+0.45*A(1027)+0.33*A(1028)+0.159*A(1029)+0.161*A(1031)+0.228*A(1032)+1.5*A(1033)+A(1034)+0.75*A(1035)&\n                &+A(1036)+1.454*A(1037)+0.7*A(1038)+0.7*A(1039)+A(1041)+A(1043)+A(1046)+A(1048)+A(1049)+A(1053)+A(1054)&\n                &+A(1057)+A(1058)\nIF (DO_FUN(338)) &\n  Vdot(338) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69*A(266)&\n                &+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)-A(274)-A(275)-A(276)+A(280)+A(293)+A(297)&\n                &-A(298)-A(299)-A(300)-A(301)-2*A(302)-2*A(303)-2*A(304)-2*A(307)+2*A(308)+0.1*A(309)-A(310)-A(311)-A(312)&\n                &+A(313)+A(319)+A(322)+A(323)-A(349)-A(944)+A(945)+A(949)\nIF (DO_FUN(339)) &\n  Vdot(339) = -A(2)-A(5)-0.88*A(253)+A(276)-A(279)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)&\n                &+A(320)+A(321)+A(324)+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)-A(787)-A(794)-A(796)-A(804)&\n                &-A(808)+A(812)-A(814)\nIF (DO_FUN(340)) &\n  Vdot(340) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69*A(266)&\n                &+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2*A(288)&\n                &+A(289)+2*A(290)-A(291)-A(292)-A(293)-A(294)-A(295)-A(296)-A(297)+A(298)+A(300)+A(303)+A(304)-A(305)+A(306)&\n                &-A(309)-A(314)-A(315)+A(316)+2*A(317)-A(318)-A(319)-A(320)-A(321)-A(322)-A(323)-A(324)-A(325)-A(326)-A(327)&\n                &-A(328)-A(329)-A(330)-A(331)-A(332)+0.249*A(349)+A(940)+2*A(941)+A(942)+2*A(943)+A(944)+A(946)+A(947)&\n                &+A(948)+A(950)+3*A(951)+4*A(952)+3*A(953)+2*A(954)+3*A(955)+2*A(956)+A(957)+2*A(958)+2*A(959)+A(960)+A(961)&\n                &+A(963)+A(965)+A(976)+A(981)\nIF (DO_FUN(341)) &\n  Vdot(341) = -A(1)-A(4)-A(8)-A(13)-A(14)-A(15)-A(16)-A(17)-A(77)+0.15*A(128)+0.15*A(148)-A(150)+0.15*A(158)-A(203)&\n                &+A(232)-A(233)-A(237)-A(246)-A(293)-A(350)-A(367)-A(379)-A(381)-A(383)+0.15*A(391)-A(421)-A(424)-A(427)&\n                &+0.15*A(436)-A(448)-A(451)-A(454)-A(483)-A(493)-A(645)-A(648)+0.13*A(671)+0.13*A(678)+0.13*A(695)-A(704)&\n                &-A(712)+0.15*A(737)-A(746)+0.15*A(750)-A(761)-A(768)-A(771)-A(820)-A(821)-A(822)-A(882)-A(883)\nIF (DO_FUN(342)) &\n  Vdot(342) = -A(203)-A(205)+A(206)+2*A(207)+A(209)-A(210)+A(211)+A(213)+A(214)-A(215)-A(216)-A(217)-A(218)-A(219)&\n                &-A(220)-A(221)+3*A(223)+2*A(224)+A(225)+A(251)+0.6*A(254)+0.56*A(258)+0.95*A(259)+1.4*A(260)+0.34*A(264)&\n                &+0.75*A(272)+A(310)+A(311)-A(333)+A(343)+A(344)+2*A(931)+A(932)+A(933)+A(934)+A(936)+3*A(937)+2*A(938)&\n                &+A(939)+A(942)+A(962)+A(963)+2*A(964)+A(977)+A(980)\nIF (DO_FUN(343)) &\n  Vdot(343) = A(18)-A(212)-A(213)+A(227)+A(228)-A(232)-A(233)-A(235)-A(236)+A(237)-A(238)-A(240)-A(241)-A(242)-A(243)&\n                &-A(244)+0.02*A(247)+A(248)+A(249)+A(250)-A(251)-A(252)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21*A(256)+0.1&\n                &*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31*A(266)+0.35&\n                &*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)-A(298)-A(313)+A(882)+2*A(884)+A(885)&\n                &+A(894)+A(932)+A(944)+A(945)+A(968)+A(988)\nIF (DO_FUN(344)) &\n  Vdot(344) = A(5)-A(790)-A(792)-A(801)-A(803)-A(811)-A(816)-A(847)-A(851)-A(855)\nIF (DO_FUN(345)) &\n  Vdot(345) = -A(12)-A(14)+A(15)-2*A(18)-2*A(19)-A(20)-A(21)+A(22)-A(24)-A(25)-A(31)-0.7*A(32)-0.7*A(33)-A(34)-A(35)&\n                &-A(36)-A(37)-A(38)-A(41)+A(42)-A(44)-A(47)-A(48)-A(51)-A(55)-A(57)-A(61)-A(62)-A(66)-0.5*A(71)-A(72)-A(75)&\n                &-A(80)-A(81)+0.25*A(84)-A(88)-A(89)-A(102)-A(103)-A(104)-A(105)-A(108)-A(111)+0.15*A(118)+0.15*A(119)&\n                &-A(122)-A(126)+0.44*A(128)-A(140)-A(141)+0.44*A(148)-A(149)+0.36*A(150)-0.773*A(151)-A(153)+0.44*A(158)&\n                &-A(160)-A(161)-A(163)-A(164)-A(167)-0.209*A(169)-0.36*A(170)-0.36*A(171)-0.209*A(172)-0.21*A(173)-0.21&\n                &*A(174)-A(175)-0.209*A(176)-0.78*A(178)-A(199)-A(200)-A(202)-A(206)-A(211)+A(212)+A(213)-A(214)-A(223)&\n                &-A(224)-A(225)+2*A(226)+A(229)+0.75*A(231)-A(234)-A(235)+A(236)-A(239)+A(244)+A(246)+1.788*A(247)+A(252)&\n                &+0.66*A(253)+0.6*A(254)+0.05*A(261)-A(273)-A(275)-A(276)-A(277)-A(278)-A(279)-A(280)-A(281)-A(282)-A(283)&\n                &-A(284)-A(285)-A(286)-A(287)-A(288)-A(289)-A(290)+A(297)-A(352)-A(353)-A(354)-A(359)-A(360)-A(361)-A(378)&\n                &+0.865*A(379)-A(380)+0.8*A(381)-A(382)+0.65*A(383)-A(387)-A(388)-A(390)+0.44*A(391)-A(396)-A(397)-A(402)&\n                &-A(403)-A(407)-A(408)-A(409)-A(415)-A(416)-A(420)+0.6*A(421)-A(423)+0.865*A(424)-A(426)-A(433)-A(435)+0.44&\n                &*A(436)-A(441)-A(442)-0.7*A(447)+0.3*A(448)+0.15*A(449)-A(450)-A(453)+A(454)-A(481)-A(482)-A(488)-A(489)&\n                &-A(490)-A(491)-A(492)+0.28*A(493)-A(494)-A(495)+0.5*A(496)+0.5*A(497)+0.063*A(498)+0.063*A(500)+A(502)+1.5&\n                &*A(503)+A(504)+1.5*A(505)+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.085*A(524)&\n                &+0.165*A(525)+0.065*A(528)-A(530)-A(531)-A(533)-A(535)-A(536)-0.595*A(537)-0.255*A(538)+A(539)+0.275*A(542)&\n                &+A(543)+0.275*A(546)+A(548)+1.3*A(550)-A(551)-A(552)-A(553)-A(554)-A(555)+A(557)+0.65*A(558)+A(562)+0.65&\n                &*A(565)+0.65*A(566)+A(569)+A(570)+2*A(571)+A(572)+2*A(573)-A(574)-A(575)-A(576)-A(577)-A(578)-A(579)-A(580)&\n                &-A(581)-0.4*A(582)-0.4*A(583)+0.518*A(585)+0.599*A(589)+0.582*A(594)+0.506*A(597)+0.379*A(600)+0.527*A(604)&\n                &-A(621)-A(622)-A(625)-A(626)-A(627)+A(629)+A(630)+1.147*A(631)+0.646*A(632)+0.435*A(633)+0.096*A(635)&\n                &-A(637)-0.756*A(638)+A(640)-A(641)+0.82*A(643)-A(644)+0.08*A(645)-A(646)-A(647)+0.12*A(648)+0.68*A(649)&\n                &-0.98*A(650)-A(653)+A(656)+A(659)-0.715*A(661)-A(663)-A(665)-A(666)+0.665*A(667)+0.59*A(670)+0.5*A(671)&\n                &-0.415*A(672)+A(673)+0.5*A(678)-A(684)-0.3*A(685)-0.5*A(686)-0.556*A(687)-A(690)-0.7*A(691)-A(693)-0.5&\n                &*A(694)+0.5*A(695)-A(701)-A(702)+0.18*A(704)-A(705)-A(707)+A(710)-A(711)-A(713)-0.364*A(714)-A(721)-A(722)&\n                &-A(724)-A(725)-A(726)+A(727)-A(732)-A(735)+0.44*A(737)-A(740)-A(741)-A(743)-A(745)+A(746)-A(748)+0.2*A(750)&\n                &-A(753)-A(755)-A(760)-A(763)-0.75*A(767)+0.1*A(768)-0.75*A(770)+0.1*A(771)-A(780)-A(791)-A(792)+2*A(886)&\n                &+A(887)+A(890)+A(891)+A(892)+0.07*A(907)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)&\n                &+A(930)+A(933)+A(950)+A(967)+A(984)+2*A(987)+A(989)+2*A(1002)+A(1003)+A(1008)+A(1009)+1.75*A(1010)+A(1011)&\n                &+0.75*A(1012)+0.01*A(1013)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)+1.662*A(1020)+1.637*A(1021)+A(1022)&\n                &+A(1023)+0.55*A(1024)+0.55*A(1027)+0.67*A(1028)+A(1029)+0.645*A(1031)+0.5*A(1033)+A(1034)+1.25*A(1035)&\n                &+A(1036)+0.546*A(1037)+A(1038)+0.3*A(1039)+A(1040)+A(1042)+A(1044)+A(1048)+A(1050)+A(1051)+A(1052)+A(1053)&\n                &+A(1054)+A(1055)+A(1056)+A(1057)\nIF (DO_FUN(346)) &\n  Vdot(346) = -A(13)-A(22)-A(26)-A(27)-A(37)-A(43)+A(49)-A(56)-A(58)-A(59)-A(60)-A(63)-A(64)-A(65)-A(68)-A(69)-A(73)&\n                &-A(78)-A(82)-A(85)-A(90)-A(91)-A(92)-A(93)-A(94)-A(95)-A(96)-A(97)-A(98)-A(99)-A(100)-A(109)-A(123)-A(127)&\n                &-A(157)-A(209)+1.22*A(230)+A(240)-A(242)+A(248)-A(249)-A(300)-A(334)+2*A(335)-A(348)-A(356)-A(363)-A(370)&\n                &-A(385)-A(392)-A(399)-A(405)-A(411)-A(412)-A(418)-A(429)-A(437)-A(444)-A(445)-A(468)-A(469)-A(516)-A(517)&\n                &-A(518)-A(519)-A(520)-A(521)-A(522)-A(523)-A(540)-A(541)-A(544)-A(545)-A(548)-A(549)-A(559)-A(560)-A(563)&\n                &-A(564)-A(567)-A(568)-A(570)-A(572)-A(586)-A(587)-A(590)-A(591)-A(595)-A(596)-A(598)-A(599)-A(601)-A(602)&\n                &-A(615)-A(616)-A(617)-A(618)-A(633)-A(634)-A(635)-A(636)-A(639)-A(642)-A(655)-A(658)-A(668)-A(669)-A(674)&\n                &-A(675)-A(676)-A(679)-A(709)-A(716)-A(728)-A(733)-A(736)-A(751)-A(757)+A(885)+A(891)+A(895)+A(970)-A(988)\nIF (DO_FUN(347)) &\n  Vdot(347) = A(203)-A(204)-2*A(207)-2*A(208)-A(209)+A(212)-A(214)+A(215)-A(222)-A(251)+0.2*A(254)+0.44*A(258)+0.95&\n                &*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)-A(310)-A(311)-A(312)-A(343)-A(344)-A(932)+A(935)\nIF (DO_FUN(348)) &\n  Vdot(348) = -A(1)-A(4)-A(7)-A(8)-A(9)-A(10)+A(11)-A(12)+A(199)+0.75*A(200)+A(201)-A(202)+A(238)+A(239)-A(368)-A(372)&\n                &-A(812)-A(819)+A(986)+A(987)\nIF (DO_FUN(349)) &\n  Vdot(349) = -A(798)-A(805)-A(817)-A(821)+A(823)-A(844)-A(848)-A(852)\nIF (DO_FUN(350)) &\n  Vdot(350) = -A(799)-A(806)-A(818)-A(822)+A(824)-A(845)-A(849)-A(853)\nIF (DO_FUN(351)) &\n  Vdot(351) = A(16)+A(36)-A(42)-A(43)-A(44)-A(45)+A(46)-A(49)-A(50)-A(52)-A(67)-A(76)+A(88)-A(101)-A(110)-A(131)-A(154)&\n                &-A(159)-A(162)-A(165)-A(166)-A(179)-2*A(196)-A(201)+A(210)-A(215)-A(241)+A(243)+A(282)+A(313)+A(314)-A(339)&\n                &+A(342)+A(364)+A(371)-A(375)-A(376)-A(377)-A(386)-A(389)-A(395)-A(400)-A(406)-A(414)-A(419)-A(422)-A(425)&\n                &-A(428)-A(431)-A(434)-A(440)-A(446)-A(449)-A(452)-A(455)-A(476)-A(477)-A(484)-A(485)+A(488)-A(603)-A(613)&\n                &-A(614)-A(649)+0.69*A(650)-A(681)+A(684)-A(692)-A(703)-A(706)-A(708)-A(717)-A(729)-A(742)-A(744)-A(747)&\n                &-A(749)+A(756)-A(758)-A(764)-A(779)-A(783)-A(784)-A(785)+A(892)-A(894)-A(895)+A(896)+0.3*A(899)+A(934)&\n                &+A(948)+A(972)+A(982)+0.3*A(1047)\nIF (DO_FUN(352)) &\n  Vdot(352) = A(205)-A(206)-A(213)+A(216)+A(217)+A(218)+A(219)+A(220)-0.8*A(254)+A(333)-A(797)-A(807)-A(809)-A(813)&\n                &+A(819)-A(820)-A(823)-A(824)\nIF (DO_FUN(353)) &\n  Vdot(353) = A(2)-A(789)-A(791)-A(800)-A(802)-A(810)-A(815)-A(846)-A(850)-A(854)\n      \nEND SUBROUTINE Fun\n\n! End of Fun function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Fun_SPLIT - time derivatives of variables - Split form\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      Vdot      - Time derivative of variable species concentrations\n!      P_VAR     - Production term\n!      D_VAR     - Destruction term\n!      Aout      - Optional argument to return equation rate constants\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! Vdot - Time derivative of variable species concentrations\n  REAL(kind=dp) :: Vdot(NVAR)\n! P_VAR - Production term\n  REAL(kind=dp) :: P_VAR(NVAR)\n! D_VAR - Destruction term\n  REAL(kind=dp) :: D_VAR(NVAR)\n! Aout - Optional argument to return equation rate constants\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(179)*V(341)*V(348)\n  A(2) = RCT(2)*V(179)*V(339)\n  A(3) = RCT(3)*V(179)*V(327)\n  A(4) = RCT(4)*V(166)*V(341)*V(348)\n  A(5) = RCT(5)*V(166)*V(339)\n  A(6) = RCT(6)*V(166)*V(327)\n  A(7) = RCT(7)*V(264)*V(348)\n  A(8) = RCT(8)*V(341)*V(348)\n  A(9) = RCT(9)*V(348)\n  A(10) = RCT(10)*V(325)*V(348)\n  A(11) = RCT(11)*V(89)\n  A(12) = RCT(12)*V(89)*V(345)*V(348)\n  A(13) = RCT(13)*V(341)*V(346)\n  A(14) = RCT(14)*V(341)*V(345)\n  A(15) = RCT(15)*V(337)*V(341)\n  A(16) = RCT(16)*V(335)*V(341)\n  A(17) = RCT(17)*V(328)*V(341)\n  A(18) = RCT(18)*V(345)*V(345)\n  A(19) = RCT(19)*V(345)*V(345)\n  A(20) = RCT(20)*V(337)*V(345)\n  A(21) = RCT(21)*V(264)*V(345)\n  A(22) = RCT(22)*V(337)*V(346)\n  A(23) = RCT(23)*V(337)*V(337)\n  A(24) = RCT(24)*V(329)*V(345)\n  A(25) = RCT(25)*V(228)*V(345)\n  A(26) = RCT(26)*V(328)*V(346)\n  A(27) = RCT(27)*V(328)*V(346)\n  A(28) = RCT(28)*V(328)*V(337)\n  A(29) = RCT(29)*V(328)*V(328)\n  A(30) = RCT(30)*V(328)*V(328)\n  A(31) = RCT(31)*V(328)*V(345)\n  A(32) = RCT(32)*V(164)*V(345)\n  A(33) = RCT(33)*V(244)*V(345)\n  A(34) = RCT(34)*V(325)*V(345)\n  A(35) = RCT(35)*V(335)*V(345)\n  A(36) = RCT(36)*V(327)*V(345)\n  A(37) = RCT(37)*V(345)*V(346)\n  A(38) = RCT(38)*V(239)*V(345)\n  A(39) = RCT(39)*V(335)*V(337)\n  A(40) = RCT(40)*V(108)\n  A(41) = RCT(41)*V(108)*V(345)\n  A(42) = RCT(42)*V(337)*V(351)\n  A(43) = RCT(43)*V(346)*V(351)\n  A(44) = RCT(44)*V(345)*V(351)\n  A(45) = RCT(45)*V(335)*V(351)\n  A(46) = RCT(46)*V(214)\n  A(47) = RCT(47)*V(265)*V(345)\n  A(48) = RCT(48)*V(282)*V(345)\n  A(49) = RCT(49)*V(335)*V(351)\n  A(50) = RCT(50)*V(325)*V(351)\n  A(51) = RCT(51)*V(326)*V(345)\n  A(52) = RCT(52)*V(326)*V(351)\n  A(53) = RCT(53)*V(324)*V(335)\n  A(54) = RCT(54)*V(139)\n  A(55) = RCT(55)*V(139)*V(345)\n  A(56) = RCT(56)*V(324)*V(346)\n  A(57) = RCT(57)*V(183)*V(345)\n  A(58) = RCT(58)*V(296)*V(346)\n  A(59) = RCT(59)*V(296)*V(346)\n  A(60) = RCT(60)*V(315)*V(346)\n  A(61) = RCT(61)*V(141)*V(345)\n  A(62) = RCT(62)*V(141)*V(345)\n  A(63) = RCT(63)*V(321)*V(346)\n  A(64) = RCT(64)*V(321)*V(346)\n  A(65) = RCT(65)*V(260)*V(346)\n  A(66) = RCT(66)*V(69)*V(345)\n  A(67) = RCT(67)*V(69)*V(351)\n  A(68) = RCT(68)*V(178)*V(346)\n  A(69) = RCT(69)*V(178)*V(346)\n  A(70) = RCT(70)*V(178)*V(337)\n  A(71) = RCT(71)*V(98)*V(345)\n  A(72) = RCT(72)*V(196)*V(345)\n  A(73) = RCT(73)*V(165)*V(346)\n  A(74) = RCT(74)*V(165)*V(337)\n  A(75) = RCT(75)*V(140)*V(345)\n  A(76) = RCT(76)*V(140)*V(351)\n  A(77) = RCT(77)*V(140)*V(341)\n  A(78) = RCT(78)*V(212)*V(346)\n  A(79) = RCT(79)*V(212)*V(337)\n  A(80) = RCT(80)*V(127)*V(345)\n  A(81) = RCT(81)*V(233)*V(345)\n  A(82) = RCT(82)*V(132)*V(346)\n  A(83) = RCT(83)*V(132)*V(337)\n  A(84) = RCT(84)*V(197)*V(337)\n  A(85) = RCT(85)*V(197)*V(346)\n  A(86) = RCT(86)*V(197)*V(335)\n  A(87) = RCT(87)*V(126)\n  A(88) = RCT(88)*V(126)*V(345)\n  A(89) = RCT(89)*V(142)*V(345)\n  A(90) = RCT(90)*V(300)*V(346)\n  A(91) = RCT(91)*V(300)*V(346)\n  A(92) = RCT(92)*V(249)*V(346)\n  A(93) = RCT(93)*V(319)*V(346)\n  A(94) = RCT(94)*V(319)*V(346)\n  A(95) = RCT(95)*V(318)*V(346)\n  A(96) = RCT(96)*V(313)*V(346)\n  A(97) = RCT(97)*V(320)*V(346)\n  A(98) = RCT(98)*V(323)*V(346)\n  A(99) = RCT(99)*V(323)*V(346)\n  A(100) = RCT(100)*V(250)*V(346)\n  A(101) = RCT(101)*V(142)*V(351)\n  A(102) = RCT(102)*V(251)*V(345)\n  A(103) = RCT(103)*V(279)*V(345)\n  A(104) = RCT(104)*V(283)*V(345)\n  A(105) = RCT(105)*V(298)*V(345)\n  A(106) = RCT(106)*V(322)*V(335)\n  A(107) = RCT(107)*V(124)\n  A(108) = RCT(108)*V(124)*V(345)\n  A(109) = RCT(109)*V(322)*V(346)\n  A(110) = RCT(110)*V(298)*V(351)\n  A(111) = RCT(111)*V(295)*V(345)\n  A(112) = RCT(112)*V(321)*V(328)\n  A(113) = RCT(113)*V(260)*V(328)\n  A(114) = RCT(114)*V(319)*V(337)\n  A(115) = RCT(115)*V(318)*V(337)\n  A(116) = RCT(116)*V(300)*V(337)\n  A(117) = RCT(117)*V(249)*V(337)\n  A(118) = RCT(118)*V(313)*V(337)\n  A(119) = RCT(119)*V(320)*V(337)\n  A(120) = RCT(120)*V(323)*V(337)\n  A(121) = RCT(121)*V(250)*V(337)\n  A(122) = RCT(122)*V(292)*V(345)\n  A(123) = RCT(123)*V(320)*V(346)\n  A(124) = RCT(124)*V(246)*V(335)\n  A(125) = RCT(125)*V(113)\n  A(126) = 4.51e-12*V(113)*V(345)\n  A(127) = RCT(127)*V(246)*V(346)\n  A(128) = RCT(128)*V(246)*V(337)\n  A(129) = RCT(129)*V(296)*V(328)\n  A(130) = RCT(130)*V(315)*V(328)\n  A(131) = RCT(131)*V(292)*V(351)\n  A(132) = RCT(132)*V(319)*V(328)\n  A(133) = RCT(133)*V(318)*V(328)\n  A(134) = RCT(134)*V(300)*V(328)\n  A(135) = RCT(135)*V(249)*V(328)\n  A(136) = RCT(136)*V(313)*V(328)\n  A(137) = RCT(137)*V(320)*V(328)\n  A(138) = RCT(138)*V(323)*V(328)\n  A(139) = RCT(139)*V(250)*V(328)\n  A(140) = RCT(140)*V(156)*V(345)\n  A(141) = RCT(141)*V(188)*V(345)\n  A(142) = RCT(142)*V(296)*V(296)\n  A(143) = RCT(143)*V(315)*V(315)\n  A(144) = RCT(144)*V(296)*V(337)\n  A(145) = RCT(145)*V(315)*V(337)\n  A(146) = RCT(146)*V(321)*V(337)\n  A(147) = RCT(147)*V(260)*V(337)\n  A(148) = RCT(148)*V(322)*V(337)\n  A(149) = RCT(149)*V(290)*V(345)\n  A(150) = RCT(150)*V(290)*V(341)\n  A(151) = RCT(151)*V(306)*V(345)\n  A(152) = RCT(152)*V(306)*V(345)\n  A(153) = RCT(153)*V(306)*V(345)\n  A(154) = RCT(154)*V(306)*V(351)\n  A(155) = RCT(155)*V(213)*V(335)\n  A(156) = RCT(156)*V(114)\n  A(157) = RCT(157)*V(213)*V(346)\n  A(158) = RCT(158)*V(213)*V(337)\n  A(159) = RCT(159)*V(213)*V(351)\n  A(160) = RCT(160)*V(114)*V(345)\n  A(161) = RCT(161)*V(72)*V(345)\n  A(162) = RCT(162)*V(290)*V(351)\n  A(163) = RCT(163)*V(270)*V(345)\n  A(164) = RCT(164)*V(294)*V(345)\n  A(165) = RCT(165)*V(270)*V(351)\n  A(166) = RCT(166)*V(294)*V(351)\n  A(167) = RCT(167)*V(307)*V(345)\n  A(168) = RCT(168)*V(307)*V(345)\n  A(169) = RCT(169)*V(125)*V(345)\n  A(170) = RCT(170)*V(118)*V(345)\n  A(171) = RCT(171)*V(99)*V(345)\n  A(172) = RCT(172)*V(100)*V(345)\n  A(173) = RCT(173)*V(97)*V(345)\n  A(174) = RCT(174)*V(102)*V(345)\n  A(175) = RCT(175)*V(155)*V(345)\n  A(176) = RCT(176)*V(123)*V(345)\n  A(177) = RCT(177)*V(24)*V(345)\n  A(178) = RCT(178)*V(92)*V(345)\n  A(179) = RCT(179)*V(183)*V(351)\n  A(180) = RCT(180)*V(324)*V(324)\n  A(181) = RCT(181)*V(324)*V(328)\n  A(182) = RCT(182)*V(319)*V(324)\n  A(183) = RCT(183)*V(300)*V(324)\n  A(184) = RCT(184)*V(313)*V(324)\n  A(185) = RCT(185)*V(320)*V(324)\n  A(186) = RCT(186)*V(323)*V(324)\n  A(187) = RCT(187)*V(318)*V(324)\n  A(188) = RCT(188)*V(249)*V(324)\n  A(189) = RCT(189)*V(250)*V(324)\n  A(190) = RCT(190)*V(296)*V(324)\n  A(191) = RCT(191)*V(315)*V(324)\n  A(192) = RCT(192)*V(260)*V(324)\n  A(193) = RCT(193)*V(321)*V(324)\n  A(194) = RCT(194)*V(322)*V(324)\n  A(195) = RCT(195)*V(322)*V(328)\n  A(196) = RCT(196)*V(351)*V(351)\n  A(197) = RCT(197)*V(328)*V(335)\n  A(198) = RCT(198)*V(80)\n  A(199) = RCT(199)*V(94)*V(345)\n  A(200) = RCT(200)*V(94)*V(345)\n  A(201) = RCT(201)*V(94)*V(351)\n  A(202) = RCT(202)*V(345)*V(348)\n  A(203) = RCT(203)*V(341)*V(342)\n  A(204) = RCT(204)*V(337)*V(347)\n  A(205) = RCT(205)*V(337)*V(342)\n  A(206) = RCT(206)*V(345)*V(352)\n  A(207) = RCT(207)*V(347)*V(347)\n  A(208) = RCT(208)*V(347)*V(347)\n  A(209) = RCT(209)*V(346)*V(347)\n  A(210) = RCT(210)*V(218)*V(342)\n  A(211) = RCT(211)*V(148)*V(345)\n  A(212) = RCT(212)*V(316)*V(343)\n  A(213) = RCT(213)*V(343)*V(352)\n  A(214) = RCT(214)*V(345)*V(347)\n  A(215) = RCT(215)*V(342)*V(351)\n  A(216) = RCT(216)*V(325)*V(342)\n  A(217) = RCT(217)*V(326)*V(342)\n  A(218) = RCT(218)*V(295)*V(342)\n  A(219) = RCT(219)*V(183)*V(342)\n  A(220) = RCT(220)*V(141)*V(342)\n  A(221) = RCT(221)*V(335)*V(342)\n  A(222) = RCT(222)*V(335)*V(347)\n  A(223) = RCT(223)*V(81)*V(345)\n  A(224) = RCT(224)*V(78)*V(345)\n  A(225) = RCT(225)*V(105)*V(345)\n  A(226) = RCT(226)*V(334)*V(336)\n  A(227) = RCT(227)*V(334)*F(2)\n  A(228) = RCT(228)*V(334)*F(3)\n  A(229) = RCT(229)*V(334)*F(1)\n  A(230) = RCT(230)*V(63)*V(334)\n  A(231) = RCT(231)*V(228)*V(334)\n  A(232) = RCT(232)*V(343)*F(3)\n  A(233) = RCT(233)*V(341)*V(343)\n  A(234) = RCT(234)*V(345)*F(1)\n  A(235) = RCT(235)*V(343)*V(345)\n  A(236) = RCT(236)*V(337)*V(343)\n  A(237) = RCT(237)*V(334)*V(341)\n  A(238) = RCT(238)*V(68)*V(343)\n  A(239) = RCT(239)*V(68)*V(345)\n  A(240) = RCT(240)*V(335)*V(343)\n  A(241) = RCT(241)*V(343)*V(351)\n  A(242) = RCT(242)*V(343)*V(346)\n  A(243) = RCT(243)*V(335)*V(343)\n  A(244) = RCT(244)*V(264)*V(343)\n  A(245) = RCT(245)*V(217)*F(3)\n  A(246) = RCT(246)*V(217)*V(341)\n  A(247) = RCT(247)*V(217)*V(337)\n  A(248) = RCT(248)*V(67)*F(3)\n  A(249) = RCT(249)*V(67)*V(346)\n  A(250) = RCT(250)*V(67)*V(335)\n  A(251) = RCT(251)*V(343)*V(347)\n  A(252) = RCT(252)*V(325)*V(343)\n  A(253) = RCT(253)*V(334)*V(339)\n  A(254) = RCT(254)*V(334)*V(352)\n  A(255) = RCT(255)*V(245)*V(334)\n  A(256) = RCT(256)*V(46)*V(334)\n  A(257) = RCT(257)*V(181)*V(334)\n  A(258) = RCT(258)*V(105)*V(334)\n  A(259) = RCT(259)*V(78)*V(334)\n  A(260) = RCT(260)*V(81)*V(334)\n  A(261) = RCT(261)*V(87)*V(334)\n  A(262) = RCT(262)*V(47)*V(334)\n  A(263) = RCT(263)*V(48)*V(334)\n  A(264) = RCT(264)*V(61)*V(334)\n  A(265) = RCT(265)*V(53)*V(334)\n  A(266) = RCT(266)*V(85)*V(334)\n  A(267) = RCT(267)*V(86)*V(334)\n  A(268) = RCT(268)*V(84)*V(334)\n  A(269) = RCT(269)*V(49)*V(334)\n  A(270) = RCT(270)*V(50)*V(334)\n  A(271) = RCT(271)*V(51)*V(334)\n  A(272) = RCT(272)*V(54)*V(334)\n  A(273) = RCT(273)*V(245)*V(345)\n  A(274) = RCT(274)*V(328)*V(338)\n  A(275) = RCT(275)*V(338)*V(345)\n  A(276) = RCT(276)*V(338)*V(345)\n  A(277) = RCT(277)*V(120)*V(345)\n  A(278) = RCT(278)*V(76)*V(345)\n  A(279) = RCT(279)*V(339)*V(345)\n  A(280) = RCT(280)*V(333)*V(345)\n  A(281) = RCT(281)*V(297)*V(345)\n  A(282) = RCT(282)*V(317)*V(345)\n  A(283) = RCT(283)*V(181)*V(345)\n  A(284) = RCT(284)*V(79)*V(345)\n  A(285) = RCT(285)*V(75)*V(345)\n  A(286) = RCT(286)*V(43)*V(345)\n  A(287) = RCT(287)*V(87)*V(345)\n  A(288) = RCT(288)*V(85)*V(345)\n  A(289) = RCT(289)*V(86)*V(345)\n  A(290) = RCT(290)*V(84)*V(345)\n  A(291) = RCT(291)*V(228)*V(340)\n  A(292) = RCT(292)*V(325)*V(340)\n  A(293) = RCT(293)*V(340)*V(341)\n  A(294) = RCT(294)*V(340)*F(1)\n  A(295) = RCT(295)*V(264)*V(340)\n  A(296) = RCT(296)*V(337)*V(340)\n  A(297) = RCT(297)*V(337)*V(340)\n  A(298) = RCT(298)*V(338)*V(343)\n  A(299) = RCT(299)*V(337)*V(338)\n  A(300) = RCT(300)*V(338)*V(346)\n  A(301) = RCT(301)*V(335)*V(338)\n  A(302) = RCT(302)*V(338)*V(338)\n  A(303) = RCT(303)*V(338)*V(338)\n  A(304) = RCT(304)*V(338)*V(338)\n  A(305) = RCT(305)*V(340)*F(3)\n  A(306) = RCT(306)*V(110)\n  A(307) = RCT(307)*V(338)*V(338)\n  A(308) = RCT(308)*V(76)\n  A(309) = RCT(309)*V(110)*V(340)\n  A(310) = RCT(310)*V(338)*V(347)\n  A(311) = RCT(311)*V(338)*V(347)\n  A(312) = RCT(312)*V(338)*V(347)\n  A(313) = RCT(313)*V(317)*V(343)\n  A(314) = RCT(314)*V(317)*V(340)\n  A(315) = RCT(315)*V(181)*V(340)\n  A(316) = RCT(316)*V(79)*V(340)\n  A(317) = RCT(317)*V(75)*V(340)\n  A(318) = RCT(318)*V(265)*V(340)\n  A(319) = RCT(319)*V(328)*V(340)\n  A(320) = RCT(320)*V(164)*V(340)\n  A(321) = RCT(321)*V(183)*V(340)\n  A(322) = RCT(322)*V(296)*V(340)\n  A(323) = RCT(323)*V(315)*V(340)\n  A(324) = RCT(324)*V(282)*V(340)\n  A(325) = RCT(325)*V(156)*V(340)\n  A(326) = RCT(326)*V(283)*V(340)\n  A(327) = RCT(327)*V(141)*V(340)\n  A(328) = RCT(328)*V(141)*V(340)\n  A(329) = RCT(329)*V(295)*V(340)\n  A(330) = RCT(330)*V(276)*V(340)\n  A(331) = RCT(331)*V(142)*V(340)\n  A(332) = RCT(332)*V(290)*V(340)\n  A(333) = RCT(333)*V(290)*V(342)\n  A(334) = RCT(334)*V(331)*V(346)\n  A(335) = RCT(335)*V(62)*V(62)\n  A(336) = RCT(336)*V(331)*V(335)\n  A(337) = RCT(337)*V(252)\n  A(338) = RCT(338)*V(252)*V(252)\n  A(339) = RCT(339)*V(170)*V(351)\n  A(340) = RCT(340)*V(284)*V(335)\n  A(341) = RCT(341)*V(332)\n  A(342) = RCT(342)*V(331)*V(332)\n  A(343) = RCT(343)*V(331)*V(347)\n  A(344) = RCT(344)*V(284)*V(347)\n  A(345) = RCT(345)*V(96)*V(284)\n  A(346) = RCT(346)*V(96)*V(96)\n  A(347) = RCT(347)*V(42)\n  A(348) = RCT(348)*V(96)*V(346)\n  A(349) = RCT(349)*V(284)*V(338)\n  A(350) = RCT(350)*V(331)*V(341)\n  A(351) = RCT(351)*V(331)*V(337)\n  A(352) = RCT(352)*V(170)*V(345)\n  A(353) = RCT(353)*V(73)*V(345)\n  A(354) = RCT(354)*V(330)*V(345)\n  A(355) = RCT(355)*V(284)*V(337)\n  A(356) = RCT(356)*V(284)*V(346)\n  A(357) = RCT(357)*V(284)*V(284)\n  A(358) = RCT(358)*V(44)\n  A(359) = RCT(359)*V(52)*V(345)\n  A(360) = RCT(360)*V(261)*V(345)\n  A(361) = RCT(361)*V(247)*V(345)\n  A(362) = RCT(362)*V(312)*V(329)\n  A(363) = RCT(363)*V(312)*V(346)\n  A(364) = RCT(364)*V(312)*V(335)\n  A(365) = RCT(365)*V(312)*V(336)\n  A(366) = RCT(366)*V(312)*V(336)*V(336)\n  A(367) = RCT(367)*V(312)*V(341)\n  A(368) = RCT(368)*V(312)*V(348)\n  A(369) = RCT(369)*V(241)*V(329)\n  A(370) = RCT(370)*V(241)*V(346)\n  A(371) = RCT(371)*V(241)*V(335)\n  A(372) = RCT(372)*V(241)*V(348)\n  A(373) = RCT(373)*V(241)*V(336)\n  A(374) = RCT(374)*V(241)*V(336)\n  A(375) = RCT(375)*V(191)*V(351)\n  A(376) = RCT(376)*V(219)*V(351)\n  A(377) = RCT(377)*V(167)*V(351)\n  A(378) = RCT(378)*V(167)*V(345)\n  A(379) = RCT(379)*V(167)*V(341)\n  A(380) = RCT(380)*V(219)*V(345)\n  A(381) = RCT(381)*V(219)*V(341)\n  A(382) = RCT(382)*V(191)*V(345)\n  A(383) = RCT(383)*V(191)*V(341)\n  A(384) = RCT(384)*V(277)*V(337)\n  A(385) = RCT(385)*V(277)*V(346)\n  A(386) = RCT(386)*V(277)*V(351)\n  A(387) = RCT(387)*V(111)*V(345)\n  A(388) = RCT(388)*V(137)*V(345)\n  A(389) = RCT(389)*V(225)*V(351)\n  A(390) = RCT(390)*V(225)*V(345)\n  A(391) = RCT(391)*V(257)*V(337)\n  A(392) = RCT(392)*V(257)*V(346)\n  A(393) = RCT(393)*V(257)*V(335)\n  A(394) = RCT(394)*V(56)\n  A(395) = RCT(395)*V(257)*V(351)\n  A(396) = RCT(396)*V(74)*V(345)\n  A(397) = RCT(397)*V(66)*V(345)\n  A(398) = RCT(398)*V(278)*V(337)\n  A(399) = RCT(399)*V(278)*V(346)\n  A(400) = RCT(400)*V(278)*V(351)\n  A(401) = RCT(401)*V(278)*V(328)\n  A(402) = RCT(402)*V(160)*V(345)\n  A(403) = RCT(403)*V(176)*V(345)\n  A(404) = RCT(404)*V(275)*V(337)\n  A(405) = RCT(405)*V(275)*V(346)\n  A(406) = RCT(406)*V(275)*V(351)\n  A(407) = RCT(407)*V(138)*V(345)\n  A(408) = RCT(408)*V(112)*V(345)\n  A(409) = RCT(409)*V(129)*V(345)\n  A(410) = RCT(410)*V(273)*V(337)\n  A(411) = RCT(411)*V(273)*V(346)\n  A(412) = RCT(412)*V(273)*V(346)\n  A(413) = RCT(413)*V(273)*V(328)\n  A(414) = RCT(414)*V(273)*V(351)\n  A(415) = RCT(415)*V(161)*V(345)\n  A(416) = RCT(416)*V(162)*V(345)\n  A(417) = RCT(417)*V(281)*V(337)\n  A(418) = RCT(418)*V(281)*V(346)\n  A(419) = RCT(419)*V(281)*V(351)\n  A(420) = RCT(420)*V(255)*V(345)\n  A(421) = RCT(421)*V(255)*V(341)\n  A(422) = RCT(422)*V(255)*V(351)\n  A(423) = RCT(423)*V(237)*V(345)\n  A(424) = RCT(424)*V(237)*V(341)\n  A(425) = RCT(425)*V(237)*V(351)\n  A(426) = RCT(426)*V(211)*V(345)\n  A(427) = RCT(427)*V(211)*V(341)\n  A(428) = RCT(428)*V(211)*V(351)\n  A(429) = RCT(429)*V(272)*V(346)\n  A(430) = RCT(430)*V(272)*V(337)\n  A(431) = RCT(431)*V(272)*V(351)\n  A(432) = RCT(432)*V(272)*V(328)\n  A(433) = RCT(433)*V(163)*V(345)\n  A(434) = RCT(434)*V(163)*V(351)\n  A(435) = RCT(435)*V(177)*V(345)\n  A(436) = RCT(436)*V(274)*V(337)\n  A(437) = RCT(437)*V(274)*V(346)\n  A(438) = RCT(438)*V(274)*V(335)\n  A(439) = RCT(439)*V(57)\n  A(440) = RCT(440)*V(274)*V(351)\n  A(441) = RCT(441)*V(169)*V(345)\n  A(442) = RCT(442)*V(130)*V(345)\n  A(443) = RCT(443)*V(291)*V(337)\n  A(444) = RCT(444)*V(291)*V(346)\n  A(445) = RCT(445)*V(291)*V(346)\n  A(446) = RCT(446)*V(291)*V(351)\n  A(447) = RCT(447)*V(229)*V(345)\n  A(448) = RCT(448)*V(229)*V(341)\n  A(449) = RCT(449)*V(229)*V(351)\n  A(450) = RCT(450)*V(193)*V(345)\n  A(451) = RCT(451)*V(193)*V(341)\n  A(452) = RCT(452)*V(193)*V(351)\n  A(453) = RCT(453)*V(262)*V(345)\n  A(454) = RCT(454)*V(262)*V(341)\n  A(455) = RCT(455)*V(262)*V(351)\n  A(456) = RCT(456)*V(277)*V(328)\n  A(457) = RCT(457)*V(277)*V(324)\n  A(458) = RCT(458)*V(275)*V(328)\n  A(459) = RCT(459)*V(275)*V(324)\n  A(460) = RCT(460)*V(281)*V(328)\n  A(461) = RCT(461)*V(281)*V(324)\n  A(462) = RCT(462)*V(291)*V(328)\n  A(463) = RCT(463)*V(291)*V(324)\n  A(464) = RCT(464)*V(257)*V(328)\n  A(465) = RCT(465)*V(257)*V(324)\n  A(466) = RCT(466)*V(274)*V(328)\n  A(467) = RCT(467)*V(274)*V(324)\n  A(468) = RCT(468)*V(280)*V(346)\n  A(469) = RCT(469)*V(289)*V(346)\n  A(470) = RCT(470)*V(280)*V(337)\n  A(471) = RCT(471)*V(289)*V(337)\n  A(472) = RCT(472)*V(280)*V(328)\n  A(473) = RCT(473)*V(289)*V(328)\n  A(474) = RCT(474)*V(280)*V(324)\n  A(475) = RCT(475)*V(289)*V(324)\n  A(476) = RCT(476)*V(280)*V(351)\n  A(477) = RCT(477)*V(289)*V(351)\n  A(478) = RCT(478)*V(280)*V(280)\n  A(479) = RCT(479)*V(280)*V(289)\n  A(480) = RCT(480)*V(289)*V(289)\n  A(481) = RCT(481)*V(256)*V(345)\n  A(482) = RCT(482)*V(242)*V(345)\n  A(483) = RCT(483)*V(242)*V(341)\n  A(484) = RCT(484)*V(242)*V(351)\n  A(485) = RCT(485)*V(256)*V(351)\n  A(486) = RCT(486)*V(103)\n  A(487) = RCT(487)*V(45)\n  A(488) = RCT(488)*V(154)*V(345)\n  A(489) = RCT(489)*V(93)*V(345)\n  A(490) = RCT(490)*V(83)*V(345)\n  A(491) = RCT(491)*V(91)*V(345)\n  A(492) = RCT(492)*V(95)*V(345)\n  A(493) = RCT(493)*V(276)*V(341)\n  A(494) = RCT(494)*V(276)*V(345)\n  A(495) = RCT(495)*V(276)*V(345)\n  A(496) = RCT(496)*V(276)*V(345)\n  A(497) = RCT(497)*V(276)*V(345)\n  A(498) = RCT(498)*V(305)*V(337)\n  A(499) = RCT(499)*V(305)*V(337)\n  A(500) = RCT(500)*V(304)*V(337)\n  A(501) = RCT(501)*V(304)*V(337)\n  A(502) = RCT(502)*V(305)\n  A(503) = RCT(503)*V(305)\n  A(504) = RCT(504)*V(304)\n  A(505) = RCT(505)*V(304)\n  A(506) = RCT(506)*V(305)*V(305)\n  A(507) = RCT(507)*V(304)*V(304)\n  A(508) = RCT(508)*V(304)*V(305)\n  A(509) = RCT(509)*V(305)*V(305)\n  A(510) = RCT(510)*V(304)*V(304)\n  A(511) = RCT(511)*V(304)*V(305)\n  A(512) = RCT(512)*V(305)*V(328)\n  A(513) = RCT(513)*V(305)*V(328)\n  A(514) = RCT(514)*V(304)*V(328)\n  A(515) = RCT(515)*V(304)*V(328)\n  A(516) = RCT(516)*V(305)*V(346)\n  A(517) = RCT(517)*V(305)*V(346)\n  A(518) = RCT(518)*V(305)*V(346)\n  A(519) = RCT(519)*V(305)*V(346)\n  A(520) = RCT(520)*V(304)*V(346)\n  A(521) = RCT(521)*V(304)*V(346)\n  A(522) = RCT(522)*V(304)*V(346)\n  A(523) = RCT(523)*V(304)*V(346)\n  A(524) = RCT(524)*V(230)*V(345)\n  A(525) = RCT(525)*V(231)*V(345)\n  A(526) = RCT(526)*V(150)*V(345)\n  A(527) = RCT(527)*V(144)*V(345)\n  A(528) = RCT(528)*V(238)*V(345)\n  A(529) = RCT(529)*V(215)*V(345)\n  A(530) = RCT(530)*V(119)*V(345)\n  A(531) = RCT(531)*V(187)*V(345)\n  A(532) = RCT(532)*V(187)*V(345)\n  A(533) = RCT(533)*V(192)*V(345)\n  A(534) = RCT(534)*V(192)*V(345)\n  A(535) = RCT(535)*V(187)*V(345)\n  A(536) = RCT(536)*V(192)*V(345)\n  A(537) = RCT(537)*V(209)*V(345)\n  A(538) = RCT(538)*V(199)*V(345)\n  A(539) = RCT(539)*V(223)\n  A(540) = RCT(540)*V(223)*V(346)\n  A(541) = RCT(541)*V(223)*V(346)\n  A(542) = RCT(542)*V(223)*V(337)\n  A(543) = RCT(543)*V(224)\n  A(544) = RCT(544)*V(224)*V(346)\n  A(545) = RCT(545)*V(224)*V(346)\n  A(546) = RCT(546)*V(224)*V(337)\n  A(547) = RCT(547)*V(232)\n  A(548) = RCT(548)*V(232)*V(346)\n  A(549) = RCT(549)*V(232)*V(346)\n  A(550) = RCT(550)*V(232)*V(337)\n  A(551) = RCT(551)*V(128)*V(345)\n  A(552) = RCT(552)*V(151)*V(345)\n  A(553) = RCT(553)*V(151)*V(345)\n  A(554) = RCT(554)*V(152)*V(345)\n  A(555) = RCT(555)*V(152)*V(345)\n  A(556) = RCT(556)*V(286)\n  A(557) = RCT(557)*V(286)\n  A(558) = RCT(558)*V(286)*V(337)\n  A(559) = RCT(559)*V(286)*V(346)\n  A(560) = RCT(560)*V(286)*V(346)\n  A(561) = RCT(561)*V(285)\n  A(562) = RCT(562)*V(285)\n  A(563) = RCT(563)*V(285)*V(346)\n  A(564) = RCT(564)*V(285)*V(346)\n  A(565) = RCT(565)*V(285)*V(337)\n  A(566) = RCT(566)*V(243)*V(337)\n  A(567) = RCT(567)*V(243)*V(346)\n  A(568) = RCT(568)*V(243)*V(346)\n  A(569) = RCT(569)*V(243)\n  A(570) = RCT(570)*V(133)*V(346)\n  A(571) = RCT(571)*V(133)*V(337)\n  A(572) = RCT(572)*V(135)*V(346)\n  A(573) = RCT(573)*V(135)*V(337)\n  A(574) = RCT(574)*V(175)*V(345)\n  A(575) = RCT(575)*V(175)*V(345)\n  A(576) = RCT(576)*V(168)*V(345)\n  A(577) = RCT(577)*V(168)*V(345)\n  A(578) = RCT(578)*V(268)*V(345)\n  A(579) = RCT(579)*V(268)*V(345)\n  A(580) = RCT(580)*V(267)*V(345)\n  A(581) = RCT(581)*V(267)*V(345)\n  A(582) = RCT(582)*V(268)*V(345)\n  A(583) = RCT(583)*V(267)*V(345)\n  A(584) = RCT(584)*V(205)\n  A(585) = RCT(585)*V(205)*V(337)\n  A(586) = RCT(586)*V(205)*V(346)\n  A(587) = RCT(587)*V(205)*V(346)\n  A(588) = RCT(588)*V(190)\n  A(589) = RCT(589)*V(190)*V(337)\n  A(590) = RCT(590)*V(190)*V(346)\n  A(591) = RCT(591)*V(190)*V(346)\n  A(592) = RCT(592)*V(206)\n  A(593) = RCT(593)*V(207)\n  A(594) = RCT(594)*V(206)*V(337)\n  A(595) = RCT(595)*V(206)*V(346)\n  A(596) = RCT(596)*V(206)*V(346)\n  A(597) = RCT(597)*V(207)*V(337)\n  A(598) = RCT(598)*V(207)*V(346)\n  A(599) = RCT(599)*V(207)*V(346)\n  A(600) = RCT(600)*V(293)*V(337)\n  A(601) = RCT(601)*V(293)*V(346)\n  A(602) = RCT(602)*V(293)*V(346)\n  A(603) = RCT(603)*V(276)*V(351)\n  A(604) = RCT(604)*V(310)*V(337)\n  A(605) = RCT(605)*V(311)*V(337)\n  A(606) = RCT(606)*V(310)*V(310)\n  A(607) = RCT(607)*V(310)*V(311)\n  A(608) = RCT(608)*V(311)*V(311)\n  A(609) = RCT(609)*V(311)*V(328)\n  A(610) = RCT(610)*V(310)*V(328)\n  A(611) = RCT(611)*V(310)*V(324)\n  A(612) = RCT(612)*V(311)*V(324)\n  A(613) = RCT(613)*V(310)*V(351)\n  A(614) = RCT(614)*V(311)*V(351)\n  A(615) = RCT(615)*V(310)*V(346)\n  A(616) = RCT(616)*V(310)*V(346)\n  A(617) = RCT(617)*V(311)*V(346)\n  A(618) = RCT(618)*V(311)*V(346)\n  A(619) = RCT(619)*V(145)*F(3)\n  A(620) = RCT(620)*V(145)\n  A(621) = RCT(621)*V(222)*V(345)\n  A(622) = RCT(622)*V(186)*V(345)\n  A(623) = RCT(623)*V(222)*V(345)\n  A(624) = RCT(624)*V(186)*V(345)\n  A(625) = RCT(625)*V(186)*V(345)\n  A(626) = RCT(626)*V(222)*V(345)\n  A(627) = RCT(627)*V(186)*V(345)\n  A(628) = RCT(628)*V(186)*V(345)\n  A(629) = RCT(629)*V(226)\n  A(630) = RCT(630)*V(271)\n  A(631) = RCT(631)*V(271)*V(337)\n  A(632) = RCT(632)*V(226)*V(337)\n  A(633) = RCT(633)*V(271)*V(346)\n  A(634) = RCT(634)*V(271)*V(346)\n  A(635) = RCT(635)*V(226)*V(346)\n  A(636) = RCT(636)*V(226)*V(346)\n  A(637) = RCT(637)*V(301)*V(345)\n  A(638) = RCT(638)*V(301)*V(345)\n  A(639) = RCT(639)*V(182)*V(346)\n  A(640) = RCT(640)*V(182)*V(337)\n  A(641) = RCT(641)*V(299)*V(345)\n  A(642) = RCT(642)*V(180)*V(346)\n  A(643) = RCT(643)*V(180)*V(337)\n  A(644) = RCT(644)*V(314)*V(345)\n  A(645) = RCT(645)*V(314)*V(341)\n  A(646) = RCT(646)*V(309)*V(345)\n  A(647) = RCT(647)*V(309)*V(345)\n  A(648) = RCT(648)*V(309)*V(341)\n  A(649) = RCT(649)*V(309)*V(351)\n  A(650) = RCT(650)*V(302)*V(345)\n  A(651) = RCT(651)*V(288)*V(345)\n  A(652) = RCT(652)*V(287)*V(345)\n  A(653) = RCT(653)*V(248)*V(345)\n  A(654) = RCT(654)*V(216)*V(345)\n  A(655) = RCT(655)*V(171)*V(346)\n  A(656) = RCT(656)*V(171)*V(337)\n  A(657) = RCT(657)*V(171)*V(335)\n  A(658) = RCT(658)*V(172)*V(346)\n  A(659) = RCT(659)*V(172)*V(337)\n  A(660) = RCT(660)*V(172)*V(335)\n  A(661) = RCT(661)*V(194)*V(345)\n  A(662) = RCT(662)*V(185)*V(345)\n  A(663) = RCT(663)*V(131)*V(345)\n  A(664) = RCT(664)*V(227)*V(345)\n  A(665) = RCT(665)*V(208)*V(345)\n  A(666) = RCT(666)*V(153)*V(345)\n  A(667) = RCT(667)*V(254)*V(337)\n  A(668) = RCT(668)*V(254)*V(346)\n  A(669) = RCT(669)*V(254)*V(346)\n  A(670) = RCT(670)*V(253)*V(337)\n  A(671) = RCT(671)*V(259)*V(337)\n  A(672) = RCT(672)*V(159)*V(345)\n  A(673) = RCT(673)*V(253)\n  A(674) = RCT(674)*V(253)*V(346)\n  A(675) = RCT(675)*V(253)*V(346)\n  A(676) = RCT(676)*V(259)*V(346)\n  A(677) = RCT(677)*V(259)*V(335)\n  A(678) = RCT(678)*V(308)*V(337)\n  A(679) = RCT(679)*V(308)*V(346)\n  A(680) = RCT(680)*V(308)*V(335)\n  A(681) = RCT(681)*V(308)*V(351)\n  A(682) = RCT(682)*V(308)*V(328)\n  A(683) = RCT(683)*V(184)\n  A(684) = RCT(684)*V(184)*V(345)\n  A(685) = RCT(685)*V(107)*V(345)\n  A(686) = RCT(686)*V(258)*V(345)\n  A(687) = RCT(687)*V(147)*V(345)\n  A(688) = RCT(688)*V(174)*V(345)\n  A(689) = RCT(689)*V(198)*V(345)\n  A(690) = RCT(690)*V(266)*V(345)\n  A(691) = RCT(691)*V(303)*V(345)\n  A(692) = RCT(692)*V(261)*V(351)\n  A(693) = RCT(693)*V(115)*V(345)\n  A(694) = RCT(694)*V(88)*V(345)\n  A(695) = RCT(695)*V(324)*V(337)\n  A(696) = RCT(696)*V(210)*V(345)\n  A(697) = RCT(697)*V(210)*V(345)\n  A(698) = RCT(698)*V(19)*V(345)\n  A(699) = RCT(699)*V(18)*V(337)\n  A(700) = RCT(700)*V(18)*V(346)\n  A(701) = RCT(701)*V(173)*V(345)\n  A(702) = RCT(702)*V(220)*V(345)\n  A(703) = RCT(703)*V(220)*V(351)\n  A(704) = RCT(704)*V(220)*V(341)\n  A(705) = RCT(705)*V(149)*V(345)\n  A(706) = RCT(706)*V(149)*V(351)\n  A(707) = RCT(707)*V(200)*V(345)\n  A(708) = RCT(708)*V(200)*V(351)\n  A(709) = RCT(709)*V(189)*V(346)\n  A(710) = RCT(710)*V(189)*V(337)\n  A(711) = RCT(711)*V(116)*V(345)\n  A(712) = RCT(712)*V(109)*V(341)\n  A(713) = RCT(713)*V(109)*V(345)\n  A(714) = RCT(714)*V(60)*V(345)\n  A(715) = RCT(715)*V(234)*V(337)\n  A(716) = RCT(716)*V(234)*V(346)\n  A(717) = RCT(717)*V(234)*V(351)\n  A(718) = RCT(718)*V(234)*V(328)\n  A(719) = RCT(719)*V(106)\n  A(720) = RCT(720)*V(106)*F(3)\n  A(721) = RCT(721)*V(70)*V(345)\n  A(722) = RCT(722)*V(136)*V(345)\n  A(723) = RCT(723)*V(136)*V(345)\n  A(724) = RCT(724)*V(143)*V(345)\n  A(725) = RCT(725)*V(82)*V(345)\n  A(726) = RCT(726)*V(101)*V(345)\n  A(727) = RCT(727)*V(263)*V(337)\n  A(728) = RCT(728)*V(263)*V(346)\n  A(729) = RCT(729)*V(263)*V(351)\n  A(730) = RCT(730)*V(263)*V(328)\n  A(731) = RCT(731)*V(263)*V(324)\n  A(732) = RCT(732)*V(58)*V(345)\n  A(733) = RCT(733)*V(121)*V(346)\n  A(734) = RCT(734)*V(121)*V(337)\n  A(735) = 7.09e-11*V(146)*V(345)\n  A(736) = RCT(736)*V(240)*V(346)\n  A(737) = RCT(737)*V(240)*V(337)\n  A(738) = RCT(738)*V(240)*V(335)\n  A(739) = RCT(739)*V(122)\n  A(740) = RCT(740)*V(122)*V(345)\n  A(741) = RCT(741)*V(195)*V(345)\n  A(742) = RCT(742)*V(195)*V(351)\n  A(743) = RCT(743)*V(158)*V(345)\n  A(744) = RCT(744)*V(158)*V(351)\n  A(745) = RCT(745)*V(202)*V(345)\n  A(746) = RCT(746)*V(202)*V(341)\n  A(747) = RCT(747)*V(202)*V(351)\n  A(748) = RCT(748)*V(204)*V(345)\n  A(749) = RCT(749)*V(204)*V(351)\n  A(750) = RCT(750)*V(235)*V(337)\n  A(751) = RCT(751)*V(235)*V(346)\n  A(752) = RCT(752)*V(235)*V(335)\n  A(753) = RCT(753)*V(71)*V(345)\n  A(754) = RCT(754)*V(90)\n  A(755) = RCT(755)*V(90)*V(345)\n  A(756) = RCT(756)*V(236)*V(335)\n  A(757) = RCT(757)*V(236)*V(346)\n  A(758) = RCT(758)*V(236)*V(351)\n  A(759) = RCT(759)*V(236)*V(337)\n  A(760) = RCT(760)*V(117)*V(345)\n  A(761) = RCT(761)*V(203)*V(341)\n  A(762) = RCT(762)*V(203)*V(335)\n  A(763) = RCT(763)*V(269)*V(345)\n  A(764) = RCT(764)*V(269)*V(351)\n  A(765) = RCT(765)*V(236)*V(328)\n  A(766) = RCT(766)*V(235)*V(328)\n  A(767) = RCT(767)*V(221)*V(345)\n  A(768) = RCT(768)*V(221)*V(341)\n  A(769) = RCT(769)*V(221)\n  A(770) = RCT(770)*V(201)*V(345)\n  A(771) = RCT(771)*V(201)*V(341)\n  A(772) = RCT(772)*V(201)\n  A(773) = RCT(773)*V(13)*V(337)\n  A(774) = RCT(774)*V(13)*V(346)\n  A(775) = RCT(775)*V(22)*V(337)\n  A(776) = RCT(776)*V(22)*V(346)\n  A(777) = RCT(777)*V(27)*V(337)\n  A(778) = RCT(778)*V(27)*V(346)\n  A(779) = RCT(779)*V(328)*V(351)\n  A(780) = RCT(780)*V(41)*V(345)\n  A(781) = RCT(781)*V(337)\n  A(782) = RCT(782)*V(335)\n  A(783) = RCT(783)*V(351)\n  A(784) = RCT(784)*V(351)\n  A(785) = RCT(785)*V(351)\n  A(786) = RCT(786)*V(214)*V(336)\n  A(787) = RCT(787)*V(214)*V(339)\n  A(788) = RCT(788)*V(214)\n  A(789) = RCT(789)*V(214)*V(353)\n  A(790) = RCT(790)*V(214)*V(344)\n  A(791) = RCT(791)*V(345)*V(353)\n  A(792) = RCT(792)*V(344)*V(345)\n  A(793) = RCT(793)*V(218)*V(336)\n  A(794) = RCT(794)*V(218)*V(339)\n  A(795) = RCT(795)*V(317)*V(336)\n  A(796) = RCT(796)*V(317)*V(339)\n  A(797) = RCT(797)*V(317)*V(352)\n  A(798) = RCT(798)*V(317)*V(349)\n  A(799) = RCT(799)*V(317)*V(350)\n  A(800) = RCT(800)*V(317)*V(353)\n  A(801) = RCT(801)*V(317)*V(344)\n  A(802) = RCT(802)*V(297)*V(353)\n  A(803) = RCT(803)*V(297)*V(344)\n  A(804) = RCT(804)*V(297)*V(339)\n  A(805) = RCT(805)*V(297)*V(349)\n  A(806) = RCT(806)*V(297)*V(350)\n  A(807) = RCT(807)*V(297)*V(352)\n  A(808) = RCT(808)*V(333)*V(339)\n  A(809) = RCT(809)*V(333)*V(352)\n  A(810) = RCT(810)*V(333)*V(353)\n  A(811) = RCT(811)*V(333)*V(344)\n  A(812) = RCT(812)*V(333)*V(348)\n  A(813) = RCT(813)*V(316)*V(352)\n  A(814) = RCT(814)*V(316)*V(339)\n  A(815) = RCT(815)*V(316)*V(353)\n  A(816) = RCT(816)*V(316)*V(344)\n  A(817) = RCT(817)*V(316)*V(349)\n  A(818) = RCT(818)*V(316)*V(350)\n  A(819) = RCT(819)*V(316)*V(348)\n  A(820) = RCT(820)*V(341)*V(352)\n  A(821) = RCT(821)*V(341)*V(349)\n  A(822) = RCT(822)*V(341)*V(350)\n  A(823) = RCT(823)*V(352)\n  A(824) = RCT(824)*V(352)\n  A(825) = RCT(825)*V(73)\n  A(826) = RCT(826)*V(73)\n  A(827) = RCT(827)*V(73)\n  A(828) = RCT(828)*V(330)\n  A(829) = RCT(829)*V(330)\n  A(830) = RCT(830)*V(44)\n  A(831) = RCT(831)*V(44)\n  A(832) = RCT(832)*V(44)\n  A(833) = RCT(833)*V(55)\n  A(834) = RCT(834)*V(55)\n  A(835) = RCT(835)*V(55)\n  A(836) = RCT(836)*V(42)\n  A(837) = RCT(837)*V(42)\n  A(838) = RCT(838)*V(42)\n  A(839) = RCT(839)*V(252)\n  A(840) = RCT(840)*V(252)\n  A(841) = RCT(841)*V(332)\n  A(842) = RCT(842)*V(332)\n  A(843) = RCT(843)*V(332)*V(336)\n  A(844) = RCT(844)*V(252)*V(349)\n  A(845) = RCT(845)*V(252)*V(350)\n  A(846) = RCT(846)*V(252)*V(353)\n  A(847) = RCT(847)*V(252)*V(344)\n  A(848) = RCT(848)*V(332)*V(349)\n  A(849) = RCT(849)*V(332)*V(350)\n  A(850) = RCT(850)*V(332)*V(353)\n  A(851) = RCT(851)*V(332)*V(344)\n  A(852) = RCT(852)*V(330)*V(349)\n  A(853) = RCT(853)*V(330)*V(350)\n  A(854) = RCT(854)*V(330)*V(353)\n  A(855) = RCT(855)*V(330)*V(344)\n  A(856) = RCT(856)*V(270)\n  A(857) = RCT(857)*V(294)\n  A(858) = RCT(858)*V(151)\n  A(859) = RCT(859)*V(152)\n  A(860) = RCT(860)*V(128)\n  A(861) = RCT(861)*V(24)\n  A(862) = RCT(862)*V(302)\n  A(863) = RCT(863)*V(251)\n  A(864) = RCT(864)*V(256)\n  A(865) = RCT(865)*V(242)\n  A(866) = RCT(866)*V(154)\n  A(867) = RCT(867)*V(115)\n  A(868) = RCT(868)*V(107)\n  A(869) = RCT(869)*V(268)\n  A(870) = RCT(870)*V(175)\n  A(871) = RCT(871)*V(168)\n  A(872) = RCT(872)*V(267)\n  A(873) = RCT(873)*V(215)\n  A(874) = RCT(874)*V(186)\n  A(875) = RCT(875)*V(222)\n  A(876) = RCT(876)*V(299)\n  A(877) = RCT(877)*V(266)\n  A(878) = RCT(878)*V(303)\n  A(879) = RCT(879)*V(216)\n  A(880) = RCT(880)*V(248)\n  A(881) = RCT(881)*V(269)\n  A(882) = RCT(882)*V(341)\n  A(883) = RCT(883)*V(341)\n  A(884) = RCT(884)*F(3)\n  A(885) = RCT(885)*V(335)\n  A(886) = RCT(886)*V(264)\n  A(887) = RCT(887)*V(164)\n  A(888) = RCT(888)*V(325)\n  A(889) = RCT(889)*V(325)\n  A(890) = RCT(890)*V(327)\n  A(891) = RCT(891)*V(239)\n  A(892) = RCT(892)*V(108)\n  A(893) = RCT(893)*V(108)\n  A(894) = RCT(894)*V(351)\n  A(895) = RCT(895)*V(351)\n  A(896) = RCT(896)*V(214)\n  A(897) = RCT(897)*V(326)\n  A(898) = RCT(898)*V(326)\n  A(899) = RCT(899)*V(139)\n  A(900) = RCT(900)*V(126)\n  A(901) = RCT(901)*V(233)\n  A(902) = RCT(902)*V(146)\n  A(903) = RCT(903)*V(298)\n  A(904) = RCT(904)*V(295)\n  A(905) = RCT(905)*V(295)\n  A(906) = RCT(906)*V(292)\n  A(907) = RCT(907)*V(306)\n  A(908) = RCT(908)*V(270)\n  A(909) = RCT(909)*V(270)\n  A(910) = RCT(910)*V(270)\n  A(911) = RCT(911)*V(294)\n  A(912) = RCT(912)*V(314)\n  A(913) = RCT(913)*V(314)\n  A(914) = RCT(914)*V(314)\n  A(915) = RCT(915)*V(309)\n  A(916) = RCT(916)*V(307)\n  A(917) = RCT(917)*V(125)\n  A(918) = RCT(918)*V(118)\n  A(919) = RCT(919)*V(99)\n  A(920) = RCT(920)*V(100)\n  A(921) = RCT(921)*V(97)\n  A(922) = RCT(922)*V(98)\n  A(923) = RCT(923)*V(102)\n  A(924) = RCT(924)*V(123)\n  A(925) = RCT(925)*V(155)\n  A(926) = RCT(926)*V(251)\n  A(927) = RCT(927)*V(196)\n  A(928) = RCT(928)*V(116)\n  A(929) = RCT(929)*V(279)\n  A(930) = RCT(930)*V(92)\n  A(931) = RCT(931)*V(148)\n  A(932) = RCT(932)*V(347)\n  A(933) = RCT(933)*V(316)\n  A(934) = RCT(934)*V(218)\n  A(935) = RCT(935)*V(218)\n  A(936) = RCT(936)*V(59)\n  A(937) = RCT(937)*V(81)\n  A(938) = RCT(938)*V(78)\n  A(939) = RCT(939)*V(105)\n  A(940) = RCT(940)*V(181)\n  A(941) = RCT(941)*V(79)\n  A(942) = RCT(942)*V(157)\n  A(943) = RCT(943)*V(245)\n  A(944) = RCT(944)*V(338)\n  A(945) = RCT(945)*V(120)\n  A(946) = RCT(946)*V(76)\n  A(947) = RCT(947)*V(297)\n  A(948) = RCT(948)*V(317)\n  A(949) = RCT(949)*V(317)\n  A(950) = RCT(950)*V(333)\n  A(951) = RCT(951)*V(43)\n  A(952) = RCT(952)*V(46)\n  A(953) = RCT(953)*V(47)\n  A(954) = RCT(954)*V(48)\n  A(955) = RCT(955)*V(49)\n  A(956) = RCT(956)*V(50)\n  A(957) = RCT(957)*V(51)\n  A(958) = RCT(958)*V(84)\n  A(959) = RCT(959)*V(85)\n  A(960) = RCT(960)*V(86)\n  A(961) = RCT(961)*V(87)\n  A(962) = RCT(962)*V(53)\n  A(963) = RCT(963)*V(61)\n  A(964) = RCT(964)*V(54)\n  A(965) = RCT(965)*V(110)\n  A(966) = RCT(966)*V(170)\n  A(967) = RCT(967)*V(330)\n  A(968) = RCT(968)*V(284)\n  A(969) = RCT(969)*V(96)\n  A(970) = RCT(970)*V(62)\n  A(971) = RCT(971)*V(252)\n  A(972) = RCT(972)*V(332)\n  A(973) = RCT(973)*V(44)\n  A(974) = RCT(974)*V(52)\n  A(975) = RCT(975)*V(1)\n  A(976) = RCT(976)*V(3)\n  A(977) = RCT(977)*V(2)\n  A(978) = RCT(978)*V(42)\n  A(979) = RCT(979)*V(55)\n  A(980) = RCT(980)*V(77)\n  A(981) = RCT(981)*V(104)\n  A(982) = RCT(982)*V(80)\n  A(983) = RCT(983)*V(80)\n  A(984) = RCT(984)*V(244)\n  A(985) = RCT(985)*V(63)\n  A(986) = RCT(986)*V(68)\n  A(987) = RCT(987)*V(134)\n  A(988) = RCT(988)*V(346)\n  A(989) = RCT(989)*V(229)\n  A(990) = RCT(990)*V(261)\n  A(991) = RCT(991)*V(256)\n  A(992) = RCT(992)*V(242)\n  A(993) = RCT(993)*V(154)\n  A(994) = RCT(994)*V(65)\n  A(995) = RCT(995)*V(65)\n  A(996) = RCT(996)*V(64)\n  A(997) = RCT(997)*V(64)\n  A(998) = RCT(998)*V(93)\n  A(999) = RCT(999)*V(83)\n  A(1000) = RCT(1000)*V(91)\n  A(1001) = RCT(1001)*V(95)\n  A(1002) = RCT(1002)*V(88)\n  A(1003) = RCT(1003)*V(210)\n  A(1004) = RCT(1004)*V(115)\n  A(1005) = RCT(1005)*V(247)\n  A(1006) = RCT(1006)*V(208)\n  A(1007) = RCT(1007)*V(227)\n  A(1008) = RCT(1008)*V(288)\n  A(1009) = RCT(1009)*V(185)\n  A(1010) = RCT(1010)*V(194)\n  A(1011) = RCT(1011)*V(287)\n  A(1012) = RCT(1012)*V(159)\n  A(1013) = RCT(1013)*V(302)\n  A(1014) = RCT(1014)*V(248)\n  A(1015) = RCT(1015)*V(216)\n  A(1016) = RCT(1016)*V(187)\n  A(1017) = RCT(1017)*V(192)\n  A(1018) = RCT(1018)*V(209)\n  A(1019) = RCT(1019)*V(199)\n  A(1020) = RCT(1020)*V(230)\n  A(1021) = RCT(1021)*V(231)\n  A(1022) = RCT(1022)*V(150)\n  A(1023) = RCT(1023)*V(144)\n  A(1024) = RCT(1024)*V(268)\n  A(1025) = RCT(1025)*V(175)\n  A(1026) = RCT(1026)*V(168)\n  A(1027) = RCT(1027)*V(267)\n  A(1028) = RCT(1028)*V(222)\n  A(1029) = RCT(1029)*V(186)\n  A(1030) = RCT(1030)*V(186)\n  A(1031) = RCT(1031)*V(301)\n  A(1032) = RCT(1032)*V(299)\n  A(1033) = RCT(1033)*V(258)\n  A(1034) = RCT(1034)*V(258)\n  A(1035) = RCT(1035)*V(174)\n  A(1036) = RCT(1036)*V(198)\n  A(1037) = RCT(1037)*V(147)\n  A(1038) = RCT(1038)*V(303)\n  A(1039) = RCT(1039)*V(303)\n  A(1040) = RCT(1040)*V(266)\n  A(1041) = RCT(1041)*V(266)\n  A(1042) = RCT(1042)*V(136)\n  A(1043) = RCT(1043)*V(204)\n  A(1044) = RCT(1044)*V(71)\n  A(1045) = RCT(1045)*V(117)\n  A(1046) = RCT(1046)*V(269)\n  A(1047) = RCT(1047)*V(124)\n  A(1048) = RCT(1048)*V(111)\n  A(1049) = RCT(1049)*V(225)\n  A(1050) = RCT(1050)*V(74)\n  A(1051) = RCT(1051)*V(66)\n  A(1052) = RCT(1052)*V(160)\n  A(1053) = RCT(1053)*V(112)\n  A(1054) = RCT(1054)*V(161)\n  A(1055) = RCT(1055)*V(169)\n  A(1056) = RCT(1056)*V(130)\n  A(1057) = RCT(1057)*V(229)\n  A(1058) = RCT(1058)*V(255)\n\n  !### Use Aout to return equation rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n! Production function\nIF (DO_FUN(1)) &\n  P_VAR(1) = 0\nIF (DO_FUN(2)) &\n  P_VAR(2) = 0\nIF (DO_FUN(3)) &\n  P_VAR(3) = 0\nIF (DO_FUN(4)) &\n  P_VAR(4) = A(825)+2*A(830)+2*A(833)+2*A(836)\nIF (DO_FUN(5)) &\n  P_VAR(5) = A(881)\nIF (DO_FUN(6)) &\n  P_VAR(6) = A(780)\nIF (DO_FUN(7)) &\n  P_VAR(7) = A(24)+A(47)+A(56)+A(104)+A(109)+A(127)+0.44*A(128)+0.3*A(136)+0.43*A(148)+0.1*A(150)+0.361*A(151)+0.44&\n               &*A(158)+0.5*A(168)+0.22*A(178)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)&\n               &+0.645*A(187)+0.645*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+2*A(194)+A(195)+A(239)&\n               &+A(318)+A(326)+A(360)+A(362)+A(369)+A(392)+A(395)+A(397)+0.44*A(436)+A(437)+A(440)+A(442)+0.9*A(457)+0.9&\n               &*A(459)+0.9*A(461)+0.9*A(463)+0.75*A(464)+2*A(465)+0.75*A(466)+A(467)+A(474)+0.407*A(493)+0.355*A(528)&\n               &+A(570)+A(571)+A(572)+A(573)+A(611)+A(612)+0.429*A(639)+0.429*A(640)+0.23*A(652)+0.75*A(654)+0.097*A(661)&\n               &+0.5*A(671)+0.41*A(672)+A(676)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+A(689)+A(693)+0.5*A(695)+A(701)+A(731)+2&\n               &*A(736)+0.44*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(899)+A(930)+A(1004)+1.238*A(1012)+A(1044)+A(1046)&\n               &+A(1050)+A(1051)+A(1055)+A(1056)\nIF (DO_FUN(8)) &\n  P_VAR(8) = A(486)+A(487)\nIF (DO_FUN(9)) &\n  P_VAR(9) = A(826)+A(828)+2*A(831)+2*A(834)+2*A(837)+A(839)+A(841)\nIF (DO_FUN(10)) &\n  P_VAR(10) = A(827)+A(829)+2*A(832)+2*A(835)+2*A(838)+A(840)+A(842)\nIF (DO_FUN(11)) &\n  P_VAR(11) = A(773)\nIF (DO_FUN(12)) &\n  P_VAR(12) = A(774)\nIF (DO_FUN(13)) &\n  P_VAR(13) = A(724)\nIF (DO_FUN(14)) &\n  P_VAR(14) = A(494)+A(495)+A(496)+A(497)\nIF (DO_FUN(15)) &\n  P_VAR(15) = A(603)\nIF (DO_FUN(16)) &\n  P_VAR(16) = A(699)\nIF (DO_FUN(17)) &\n  P_VAR(17) = A(700)\nIF (DO_FUN(18)) &\n  P_VAR(18) = A(698)\nIF (DO_FUN(19)) &\n  P_VAR(19) = 0\nIF (DO_FUN(20)) &\n  P_VAR(20) = A(775)\nIF (DO_FUN(21)) &\n  P_VAR(21) = A(776)\nIF (DO_FUN(22)) &\n  P_VAR(22) = A(725)\nIF (DO_FUN(23)) &\n  P_VAR(23) = A(861)\nIF (DO_FUN(24)) &\n  P_VAR(24) = 0.005*A(531)+0.005*A(532)+0.005*A(533)+0.005*A(534)+0.005*A(535)+0.005*A(536)+0.005*A(537)+0.005*A(538)\nIF (DO_FUN(25)) &\n  P_VAR(25) = A(777)\nIF (DO_FUN(26)) &\n  P_VAR(26) = A(778)\nIF (DO_FUN(27)) &\n  P_VAR(27) = A(726)\nIF (DO_FUN(28)) &\n  P_VAR(28) = 0.25*A(200)\nIF (DO_FUN(29)) &\n  P_VAR(29) = A(4)\nIF (DO_FUN(30)) &\n  P_VAR(30) = A(856)+1.5*A(857)+1.5*A(867)\nIF (DO_FUN(31)) &\n  P_VAR(31) = A(858)+A(859)+A(860)+0.8*A(868)+A(873)\nIF (DO_FUN(32)) &\n  P_VAR(32) = A(202)+A(368)+A(372)\nIF (DO_FUN(33)) &\n  P_VAR(33) = 2*A(12)\nIF (DO_FUN(34)) &\n  P_VAR(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)&\n                &+A(87)+2*A(88)+A(90)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96)+A(97)+A(98)+A(100)+A(109)+A(123)+A(125)+A(126)&\n                &+A(127)+0.15*A(128)+0.15*A(148)+A(156)+A(157)+0.15*A(158)+A(160)+A(211)+0.02*A(247)+A(248)+A(249)+A(273)&\n                &+A(281)+A(282)+A(297)+0.1*A(309)+A(319)+A(322)+A(323)+A(352)+A(363)+A(364)+A(370)+A(371)+0.75*A(385)+0.5&\n                &*A(388)+0.15*A(391)+A(392)+A(394)+0.84*A(399)+A(403)+0.75*A(405)+0.5*A(407)+A(412)+A(416)+0.75*A(418)+0.5&\n                &*A(426)+0.84*A(429)+A(435)+0.15*A(436)+A(437)+A(439)+A(445)+A(450)+A(468)+A(469)+A(486)+A(487)+A(488)&\n                &+A(489)+A(490)+A(491)+A(492)+A(516)+A(517)+A(518)+A(519)+A(520)+A(521)+A(522)+A(523)+A(540)+A(541)+A(544)&\n                &+A(545)+A(548)+A(549)+A(559)+A(560)+A(563)+A(564)+A(567)+A(568)+A(570)+A(572)+A(586)+A(587)+A(590)+A(591)&\n                &+A(595)+A(596)+A(598)+A(599)+A(601)+A(602)+A(615)+A(616)+A(617)+A(618)+A(633)+A(634)+A(635)+A(636)+A(639)&\n                &+A(642)+0.69*A(650)+A(655)+A(658)+A(668)+A(669)+0.13*A(671)+A(674)+A(675)+A(676)+0.13*A(678)+A(679)+A(684)&\n                &+0.13*A(695)+0.89*A(709)+A(711)+0.995*A(716)+A(721)+A(728)+A(733)+A(736)+0.15*A(737)+A(739)+A(740)+0.15&\n                &*A(750)+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(884)+A(892)+0.3*A(899)+A(900)+A(927)+A(928)+A(982)&\n                &+A(985)+A(988)+A(998)+A(999)+A(1000)+A(1001)+0.3*A(1047)\nIF (DO_FUN(35)) &\n  P_VAR(35) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)&\n                &+A(124)+A(131)+A(150)+A(154)+A(155)+A(159)+A(162)+A(165)+A(166)+A(179)+2*A(196)+A(201)+2*A(207)+2*A(208)&\n                &+A(212)+A(213)+A(214)+A(226)+A(229)+A(230)+A(231)+2*A(233)+A(235)+A(236)+A(237)+A(238)+2*A(240)+2*A(241)&\n                &+A(244)+A(246)+2*A(251)+A(252)+0.66*A(253)+0.6*A(254)+0.44*A(257)+0.56*A(258)+0.19*A(261)+0.1*A(269)+0.05&\n                &*A(270)+A(274)+A(275)+A(276)+A(277)+A(278)+2*A(298)+2*A(302)+2*A(303)+2*A(311)+2*A(312)+0.4*A(344)+0.88&\n                &*A(349)+A(367)+A(375)+A(376)+A(377)+A(379)+A(381)+A(383)+A(386)+A(389)+A(393)+A(395)+A(400)+A(406)+A(414)&\n                &+A(419)+A(421)+2*A(422)+A(424)+2*A(425)+0.5*A(427)+A(428)+A(431)+A(434)+A(438)+A(440)+A(446)+A(448)+A(449)&\n                &+A(454)+A(455)+A(476)+A(477)+A(483)+2*A(484)+2*A(485)+A(493)+A(603)+A(613)+A(614)+A(645)+A(648)+A(649)&\n                &+A(681)+A(692)+A(703)+A(704)+A(706)+A(708)+A(712)+A(717)+A(729)+A(738)+1.258*A(742)+1.5*A(744)+A(746)+1.5&\n                &*A(747)+A(749)+A(752)+A(758)+A(761)+A(762)+A(768)+A(771)+A(779)+0.5*A(782)+A(783)+A(784)+A(785)+A(786)&\n                &+A(787)+A(788)+A(789)+A(790)+A(794)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)+A(802)+A(803)+A(804)+A(805)&\n                &+A(806)+A(807)+A(808)+A(809)+A(810)+A(811)+A(812)+A(813)+A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(828)&\n                &+A(829)+2*A(830)+2*A(831)+2*A(832)+3*A(833)+3*A(834)+3*A(835)+4*A(836)+4*A(837)+4*A(838)+A(839)+A(840)&\n                &+A(841)+A(842)+A(844)+A(845)+A(846)+A(847)+A(848)+A(849)+A(850)+A(851)+A(852)+A(853)+A(854)+A(855)+A(862)&\n                &+A(863)+A(864)+A(865)+A(866)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+2*A(876)+A(877)+A(878)+A(879)+A(880)&\n                &+2*A(895)+A(933)+2*A(946)+A(950)+A(967)+2*A(969)+A(994)+A(996)\nIF (DO_FUN(36)) &\n  P_VAR(36) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)&\n                &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)&\n                &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5&\n                &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)+1.5&\n                &*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)+0.2&\n                &*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)+0.33&\n                &*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)+A(664)&\n                &+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25*A(684)&\n                &+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27*A(725)+0.3&\n                &*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(888)&\n                &+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)+A(911)+A(912)&\n                &+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77*A(1011)+A(1014)&\n                &+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839*A(1031)+A(1033)+0.163&\n                &*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058)\nIF (DO_FUN(37)) &\n  P_VAR(37) = A(24)+A(362)+A(369)\nIF (DO_FUN(38)) &\n  P_VAR(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)\nIF (DO_FUN(39)) &\n  P_VAR(39) = A(25)+A(231)+A(291)\nIF (DO_FUN(40)) &\n  P_VAR(40) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)\nIF (DO_FUN(41)) &\n  P_VAR(41) = 0\nIF (DO_FUN(42)) &\n  P_VAR(42) = A(346)\nIF (DO_FUN(43)) &\n  P_VAR(43) = 0\nIF (DO_FUN(44)) &\n  P_VAR(44) = 0.6*A(357)\nIF (DO_FUN(45)) &\n  P_VAR(45) = A(864)+A(865)+A(866)\nIF (DO_FUN(46)) &\n  P_VAR(46) = 0.21*A(256)\nIF (DO_FUN(47)) &\n  P_VAR(47) = 0.1*A(262)\nIF (DO_FUN(48)) &\n  P_VAR(48) = 0.14*A(263)\nIF (DO_FUN(49)) &\n  P_VAR(49) = 0.1*A(269)\nIF (DO_FUN(50)) &\n  P_VAR(50) = 0.1*A(270)\nIF (DO_FUN(51)) &\n  P_VAR(51) = 0.14*A(271)\nIF (DO_FUN(52)) &\n  P_VAR(52) = 0\nIF (DO_FUN(53)) &\n  P_VAR(53) = 0.55*A(265)\nIF (DO_FUN(54)) &\n  P_VAR(54) = 0.25*A(272)\nIF (DO_FUN(55)) &\n  P_VAR(55) = A(345)\nIF (DO_FUN(56)) &\n  P_VAR(56) = A(393)\nIF (DO_FUN(57)) &\n  P_VAR(57) = A(438)\nIF (DO_FUN(58)) &\n  P_VAR(58) = 0.15*A(707)\nIF (DO_FUN(59)) &\n  P_VAR(59) = A(221)\nIF (DO_FUN(60)) &\n  P_VAR(60) = 0\nIF (DO_FUN(61)) &\n  P_VAR(61) = 0.35*A(264)\nIF (DO_FUN(62)) &\n  P_VAR(62) = A(334)\nIF (DO_FUN(63)) &\n  P_VAR(63) = A(250)\nIF (DO_FUN(64)) &\n  P_VAR(64) = A(3)+A(784)\nIF (DO_FUN(65)) &\n  P_VAR(65) = A(6)+A(785)\nIF (DO_FUN(66)) &\n  P_VAR(66) = 0.15*A(391)+0.25*A(464)\nIF (DO_FUN(67)) &\n  P_VAR(67) = A(988)\nIF (DO_FUN(68)) &\n  P_VAR(68) = 0\nIF (DO_FUN(69)) &\n  P_VAR(69) = 0\nIF (DO_FUN(70)) &\n  P_VAR(70) = 0.005*A(716)\nIF (DO_FUN(71)) &\n  P_VAR(71) = 0.65*A(750)\nIF (DO_FUN(72)) &\n  P_VAR(72) = 0.56*A(158)\nIF (DO_FUN(73)) &\n  P_VAR(73) = A(351)\nIF (DO_FUN(74)) &\n  P_VAR(74) = 0.41*A(391)\nIF (DO_FUN(75)) &\n  P_VAR(75) = 0\nIF (DO_FUN(76)) &\n  P_VAR(76) = A(307)\nIF (DO_FUN(77)) &\n  P_VAR(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853)\nIF (DO_FUN(78)) &\n  P_VAR(78) = 0.05*A(259)\nIF (DO_FUN(79)) &\n  P_VAR(79) = 0\nIF (DO_FUN(80)) &\n  P_VAR(80) = A(197)\nIF (DO_FUN(81)) &\n  P_VAR(81) = 0.3*A(260)\nIF (DO_FUN(82)) &\n  P_VAR(82) = 0\nIF (DO_FUN(83)) &\n  P_VAR(83) = A(59)\nIF (DO_FUN(84)) &\n  P_VAR(84) = 0.21*A(268)\nIF (DO_FUN(85)) &\n  P_VAR(85) = 0.31*A(266)\nIF (DO_FUN(86)) &\n  P_VAR(86) = 0.35*A(267)\nIF (DO_FUN(87)) &\n  P_VAR(87) = 0.25*A(261)\nIF (DO_FUN(88)) &\n  P_VAR(88) = 0.73*A(365)+0.4*A(366)\nIF (DO_FUN(89)) &\n  P_VAR(89) = A(10)\nIF (DO_FUN(90)) &\n  P_VAR(90) = A(752)\nIF (DO_FUN(91)) &\n  P_VAR(91) = A(99)\nIF (DO_FUN(92)) &\n  P_VAR(92) = 0.37*A(695)\nIF (DO_FUN(93)) &\n  P_VAR(93) = A(27)\nIF (DO_FUN(94)) &\n  P_VAR(94) = 0\nIF (DO_FUN(95)) &\n  P_VAR(95) = A(64)\nIF (DO_FUN(96)) &\n  P_VAR(96) = 0.8*A(344)+2*A(347)+0.4*A(357)+0.996*A(358)+A(973)+2*A(978)+A(979)\nIF (DO_FUN(97)) &\n  P_VAR(97) = A(114)\nIF (DO_FUN(98)) &\n  P_VAR(98) = A(70)\nIF (DO_FUN(99)) &\n  P_VAR(99) = A(146)\nIF (DO_FUN(100)) &\n  P_VAR(100) = A(120)\nIF (DO_FUN(101)) &\n  P_VAR(101) = 0\nIF (DO_FUN(102)) &\n  P_VAR(102) = A(116)\nIF (DO_FUN(103)) &\n  P_VAR(103) = A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880)\nIF (DO_FUN(104)) &\n  P_VAR(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855)\nIF (DO_FUN(105)) &\n  P_VAR(105) = 0\nIF (DO_FUN(106)) &\n  P_VAR(106) = 0.995*A(716)+A(717)+0.6*A(718)+A(1042)\nIF (DO_FUN(107)) &\n  P_VAR(107) = 0.098*A(672)+0.75*A(684)\nIF (DO_FUN(108)) &\n  P_VAR(108) = A(39)\nIF (DO_FUN(109)) &\n  P_VAR(109) = 0.4*A(901)\nIF (DO_FUN(110)) &\n  P_VAR(110) = A(274)+A(278)+A(303)+A(305)+A(311)+A(946)\nIF (DO_FUN(111)) &\n  P_VAR(111) = A(384)\nIF (DO_FUN(112)) &\n  P_VAR(112) = A(404)\nIF (DO_FUN(113)) &\n  P_VAR(113) = A(124)\nIF (DO_FUN(114)) &\n  P_VAR(114) = A(155)\nIF (DO_FUN(115)) &\n  P_VAR(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1010)\nIF (DO_FUN(116)) &\n  P_VAR(116) = 0.11*A(709)\nIF (DO_FUN(117)) &\n  P_VAR(117) = 0.15*A(750)+A(755)+A(759)\nIF (DO_FUN(118)) &\n  P_VAR(118) = A(144)+A(145)\nIF (DO_FUN(119)) &\n  P_VAR(119) = 0.15*A(524)+0.15*A(525)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031)\nIF (DO_FUN(120)) &\n  P_VAR(120) = A(304)+A(310)+0.56*A(349)\nIF (DO_FUN(121)) &\n  P_VAR(121) = A(732)\nIF (DO_FUN(122)) &\n  P_VAR(122) = A(738)\nIF (DO_FUN(123)) &\n  P_VAR(123) = A(147)\nIF (DO_FUN(124)) &\n  P_VAR(124) = A(106)\nIF (DO_FUN(125)) &\n  P_VAR(125) = A(121)\nIF (DO_FUN(126)) &\n  P_VAR(126) = A(86)\nIF (DO_FUN(127)) &\n  P_VAR(127) = 0.058*A(78)\nIF (DO_FUN(128)) &\n  P_VAR(128) = 0.255*A(537)+0.595*A(538)+A(578)+A(580)\nIF (DO_FUN(129)) &\n  P_VAR(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1053)\nIF (DO_FUN(130)) &\n  P_VAR(130) = 0.15*A(436)+0.25*A(466)\nIF (DO_FUN(131)) &\n  P_VAR(131) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1033)\nIF (DO_FUN(132)) &\n  P_VAR(132) = 0.255*A(81)\nIF (DO_FUN(133)) &\n  P_VAR(133) = 0.315*A(524)\nIF (DO_FUN(134)) &\n  P_VAR(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)\nIF (DO_FUN(135)) &\n  P_VAR(135) = 0.315*A(525)\nIF (DO_FUN(136)) &\n  P_VAR(136) = A(715)+0.2*A(718)\nIF (DO_FUN(137)) &\n  P_VAR(137) = 0.25*A(385)\nIF (DO_FUN(138)) &\n  P_VAR(138) = 0.25*A(405)\nIF (DO_FUN(139)) &\n  P_VAR(139) = A(53)\nIF (DO_FUN(140)) &\n  P_VAR(140) = 0\nIF (DO_FUN(141)) &\n  P_VAR(141) = 0\nIF (DO_FUN(142)) &\n  P_VAR(142) = 0\nIF (DO_FUN(143)) &\n  P_VAR(143) = 0.1*A(704)\nIF (DO_FUN(144)) &\n  P_VAR(144) = 0.15*A(497)+0.15*A(505)+0.009*A(538)\nIF (DO_FUN(145)) &\n  P_VAR(145) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)+0.841*A(1029)+0.222*A(1032)\nIF (DO_FUN(146)) &\n  P_VAR(146) = A(733)+A(734)\nIF (DO_FUN(147)) &\n  P_VAR(147) = A(556)+A(561)\nIF (DO_FUN(148)) &\n  P_VAR(148) = A(208)+A(210)+A(813)+A(817)+A(818)\nIF (DO_FUN(149)) &\n  P_VAR(149) = 0\nIF (DO_FUN(150)) &\n  P_VAR(150) = 0.15*A(496)+0.15*A(503)+0.009*A(537)\nIF (DO_FUN(151)) &\n  P_VAR(151) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577)\nIF (DO_FUN(152)) &\n  P_VAR(152) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577)\nIF (DO_FUN(153)) &\n  P_VAR(153) = A(562)+0.2*A(563)+0.13*A(565)+0.15*A(686)+0.15*A(1033)+0.163*A(1034)\nIF (DO_FUN(154)) &\n  P_VAR(154) = A(481)+A(482)+A(483)+A(484)+A(485)\nIF (DO_FUN(155)) &\n  P_VAR(155) = 0.41*A(128)+0.41*A(148)+0.41*A(737)\nIF (DO_FUN(156)) &\n  P_VAR(156) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143)\nIF (DO_FUN(157)) &\n  P_VAR(157) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816)\nIF (DO_FUN(158)) &\n  P_VAR(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726)\nIF (DO_FUN(159)) &\n  P_VAR(159) = 0.5*A(671)+0.25*A(1012)\nIF (DO_FUN(160)) &\n  P_VAR(160) = A(398)+0.25*A(401)\nIF (DO_FUN(161)) &\n  P_VAR(161) = A(410)+0.25*A(413)\nIF (DO_FUN(162)) &\n  P_VAR(162) = 0.5*A(407)+A(411)\nIF (DO_FUN(163)) &\n  P_VAR(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432)\nIF (DO_FUN(164)) &\n  P_VAR(164) = A(28)\nIF (DO_FUN(165)) &\n  P_VAR(165) = A(72)\nIF (DO_FUN(166)) &\n  P_VAR(166) = -A(4)\nIF (DO_FUN(167)) &\n  P_VAR(167) = 0\nIF (DO_FUN(168)) &\n  P_VAR(168) = A(520)\nIF (DO_FUN(169)) &\n  P_VAR(169) = A(430)+0.25*A(432)+0.41*A(436)\nIF (DO_FUN(170)) &\n  P_VAR(170) = A(335)+A(338)+A(342)\nIF (DO_FUN(171)) &\n  P_VAR(171) = 0.224*A(1020)+0.068*A(1031)\nIF (DO_FUN(172)) &\n  P_VAR(172) = 0.182*A(1021)+0.128*A(1031)\nIF (DO_FUN(173)) &\n  P_VAR(173) = 0.15*A(128)+0.15*A(148)+0.5*A(475)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770)\nIF (DO_FUN(174)) &\n  P_VAR(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550)\nIF (DO_FUN(175)) &\n  P_VAR(175) = A(516)\nIF (DO_FUN(176)) &\n  P_VAR(176) = 0.5*A(388)+0.16*A(399)\nIF (DO_FUN(177)) &\n  P_VAR(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429)\nIF (DO_FUN(178)) &\n  P_VAR(178) = A(66)+A(67)+0.5*A(71)\nIF (DO_FUN(179)) &\n  P_VAR(179) = -A(1)\nIF (DO_FUN(180)) &\n  P_VAR(180) = 0.435*A(641)\nIF (DO_FUN(181)) &\n  P_VAR(181) = 0.1*A(257)\nIF (DO_FUN(182)) &\n  P_VAR(182) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691)\nIF (DO_FUN(183)) &\n  P_VAR(183) = 0\nIF (DO_FUN(184)) &\n  P_VAR(184) = A(677)+A(680)\nIF (DO_FUN(185)) &\n  P_VAR(185) = A(530)+0.444*A(687)+0.112*A(1020)+0.182*A(1021)+0.162*A(1031)+0.454*A(1037)\nIF (DO_FUN(186)) &\n  P_VAR(186) = A(605)\nIF (DO_FUN(187)) &\n  P_VAR(187) = 0.937*A(498)\nIF (DO_FUN(188)) &\n  P_VAR(188) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25&\n                 &*A(139)+0.25*A(473)\nIF (DO_FUN(189)) &\n  P_VAR(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707)\nIF (DO_FUN(190)) &\n  P_VAR(190) = A(576)\nIF (DO_FUN(191)) &\n  P_VAR(191) = 0\nIF (DO_FUN(192)) &\n  P_VAR(192) = 0.937*A(500)\nIF (DO_FUN(193)) &\n  P_VAR(193) = A(444)\nIF (DO_FUN(194)) &\n  P_VAR(194) = 0.022*A(691)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031)\nIF (DO_FUN(195)) &\n  P_VAR(195) = 0.54*A(724)\nIF (DO_FUN(196)) &\n  P_VAR(196) = A(69)+A(74)\nIF (DO_FUN(197)) &\n  P_VAR(197) = 0.68*A(81)+A(87)+A(900)+0.3*A(901)\nIF (DO_FUN(198)) &\n  P_VAR(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688)\nIF (DO_FUN(199)) &\n  P_VAR(199) = A(501)\nIF (DO_FUN(200)) &\n  P_VAR(200) = 0\nIF (DO_FUN(201)) &\n  P_VAR(201) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744)\nIF (DO_FUN(202)) &\n  P_VAR(202) = 0.8*A(741)+0.727*A(743)\nIF (DO_FUN(203)) &\n  P_VAR(203) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)+A(765)&\n                 &+A(1045)\nIF (DO_FUN(204)) &\n  P_VAR(204) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)+A(928)\nIF (DO_FUN(205)) &\n  P_VAR(205) = A(574)\nIF (DO_FUN(206)) &\n  P_VAR(206) = A(579)\nIF (DO_FUN(207)) &\n  P_VAR(207) = A(581)\nIF (DO_FUN(208)) &\n  P_VAR(208) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)+0.255*A(667)+0.318*A(687)+0.391*A(1037)\nIF (DO_FUN(209)) &\n  P_VAR(209) = A(499)\nIF (DO_FUN(210)) &\n  P_VAR(210) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59&\n                 &*A(635)+0.5*A(1039)\nIF (DO_FUN(211)) &\n  P_VAR(211) = 0.25*A(418)\nIF (DO_FUN(212)) &\n  P_VAR(212) = A(75)\nIF (DO_FUN(213)) &\n  P_VAR(213) = 0.8*A(153)+A(154)+A(156)\nIF (DO_FUN(214)) &\n  P_VAR(214) = A(45)\nIF (DO_FUN(215)) &\n  P_VAR(215) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)+0.75*A(551)+A(552)+A(554)+A(625)+A(637)\nIF (DO_FUN(216)) &\n  P_VAR(216) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291&\n                 &*A(635)+0.378*A(638)+0.13*A(678)+0.3*A(682)\nIF (DO_FUN(217)) &\n  P_VAR(217) = A(229)+0.2*A(231)+A(234)+A(235)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(888)\nIF (DO_FUN(218)) &\n  P_VAR(218) = A(222)\nIF (DO_FUN(219)) &\n  P_VAR(219) = 0\nIF (DO_FUN(220)) &\n  P_VAR(220) = 0\nIF (DO_FUN(221)) &\n  P_VAR(221) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9&\n                 &*A(763)+0.9*A(764)+A(1046)\nIF (DO_FUN(222)) &\n  P_VAR(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610)\nIF (DO_FUN(223)) &\n  P_VAR(223) = 0.345*A(531)+0.595*A(537)\nIF (DO_FUN(224)) &\n  P_VAR(224) = 0.345*A(533)+0.255*A(538)\nIF (DO_FUN(225)) &\n  P_VAR(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1048)\nIF (DO_FUN(226)) &\n  P_VAR(226) = A(622)\nIF (DO_FUN(227)) &\n  P_VAR(227) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)+0.16*A(666)+0.126*A(687)+0.133*A(1034)+0.155*A(1037)\nIF (DO_FUN(228)) &\n  P_VAR(228) = 0.1*A(150)+A(898)\nIF (DO_FUN(229)) &\n  P_VAR(229) = A(443)\nIF (DO_FUN(230)) &\n  P_VAR(230) = 0.25*A(496)+0.25*A(503)+0.015*A(537)\nIF (DO_FUN(231)) &\n  P_VAR(231) = 0.25*A(497)+0.25*A(505)+0.015*A(538)\nIF (DO_FUN(232)) &\n  P_VAR(232) = 0.655*A(531)+0.655*A(533)\nIF (DO_FUN(233)) &\n  P_VAR(233) = A(76)+A(77)+0.73*A(78)\nIF (DO_FUN(234)) &\n  P_VAR(234) = A(127)+0.44*A(128)+A(713)+A(722)\nIF (DO_FUN(235)) &\n  P_VAR(235) = A(748)+A(749)+A(753)+A(754)\nIF (DO_FUN(236)) &\n  P_VAR(236) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1043)+A(1044)\nIF (DO_FUN(237)) &\n  P_VAR(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461)\nIF (DO_FUN(238)) &\n  P_VAR(238) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)+0.06*A(537)+0.06*A(538)+A(1018)&\n                 &+A(1019)+0.45*A(1024)+0.45*A(1027)\nIF (DO_FUN(239)) &\n  P_VAR(239) = A(37)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)&\n                 &+A(994)+A(996)+A(1046)\nIF (DO_FUN(240)) &\n  P_VAR(240) = A(735)+A(739)\nIF (DO_FUN(241)) &\n  P_VAR(241) = 0.12*A(150)\nIF (DO_FUN(242)) &\n  P_VAR(242) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6&\n                 &*A(478)+0.45*A(479)+0.3*A(480)\nIF (DO_FUN(243)) &\n  P_VAR(243) = 0.16*A(536)+0.25*A(551)\nIF (DO_FUN(244)) &\n  P_VAR(244) = 0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)+0.054&\n                 &*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)+0.05*A(1039)\nIF (DO_FUN(245)) &\n  P_VAR(245) = 0.25*A(255)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)+A(804)&\n                 &+A(808)+A(810)+A(811)\nIF (DO_FUN(246)) &\n  P_VAR(246) = 0.31*A(123)+A(125)\nIF (DO_FUN(247)) &\n  P_VAR(247) = 0.791*A(169)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687*A(633)&\n                 &+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)+A(1015)\nIF (DO_FUN(248)) &\n  P_VAR(248) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1038)\nIF (DO_FUN(249)) &\n  P_VAR(249) = A(103)\nIF (DO_FUN(250)) &\n  P_VAR(250) = A(162)+0.209*A(169)\nIF (DO_FUN(251)) &\n  P_VAR(251) = A(94)+A(115)+0.07*A(123)\nIF (DO_FUN(252)) &\n  P_VAR(252) = A(336)\nIF (DO_FUN(253)) &\n  P_VAR(253) = 0.964*A(646)+A(658)+A(659)\nIF (DO_FUN(254)) &\n  P_VAR(254) = A(644)+A(655)+A(656)\nIF (DO_FUN(255)) &\n  P_VAR(255) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)+0.63*A(460)+0.63*A(461)\nIF (DO_FUN(256)) &\n  P_VAR(256) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7&\n                 &*A(476)+1.4*A(478)+1.05*A(479)+0.7*A(480)\nIF (DO_FUN(257)) &\n  P_VAR(257) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396)\nIF (DO_FUN(258)) &\n  P_VAR(258) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)+0.333*A(688)+0.75*A(1035)\nIF (DO_FUN(259)) &\n  P_VAR(259) = A(647)+0.32*A(649)+0.165*A(672)+A(683)\nIF (DO_FUN(260)) &\n  P_VAR(260) = A(149)+0.209*A(176)+A(332)+A(333)\nIF (DO_FUN(261)) &\n  P_VAR(261) = 0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07*A(635)&\n                 &+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)+0.3*A(1013)+0.15*A(1038)\nIF (DO_FUN(262)) &\n  P_VAR(262) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15&\n                 &*A(452)+0.675*A(462)+0.675*A(463)+0.675*A(1057)\nIF (DO_FUN(263)) &\n  P_VAR(263) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)&\n                 &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5&\n                 &*A(455)+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)+0.14&\n                 &*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1052)\nIF (DO_FUN(264)) &\n  P_VAR(264) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)\nIF (DO_FUN(265)) &\n  P_VAR(265) = 0.134*A(151)+A(152)+0.5*A(168)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)+0.5*A(694)&\n                 &+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771)\nIF (DO_FUN(266)) &\n  P_VAR(266) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)+0.9*A(691)\nIF (DO_FUN(267)) &\n  P_VAR(267) = A(518)+0.127*A(608)+0.057*A(609)\nIF (DO_FUN(268)) &\n  P_VAR(268) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609)\nIF (DO_FUN(269)) &\n  P_VAR(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762)\nIF (DO_FUN(270)) &\n  P_VAR(270) = 0.065*A(81)+0.134*A(151)+0.2*A(153)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)+0.18*A(724)&\n                 &+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)+0.5*A(1007)+0.429*A(1009)+0.125&\n                 &*A(1010)+0.586*A(1034)+0.571*A(1036)\nIF (DO_FUN(271)) &\n  P_VAR(271) = 0.67*A(621)\nIF (DO_FUN(272)) &\n  P_VAR(272) = A(423)+0.27*A(424)+0.18*A(426)\nIF (DO_FUN(273)) &\n  P_VAR(273) = 0.1*A(383)+A(409)+A(415)\nIF (DO_FUN(274)) &\n  P_VAR(274) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)&\n                 &+0.4*A(427)+A(433)+A(434)+0.5*A(435)+A(439)+A(441)+0.27*A(1054)+0.9*A(1058)\nIF (DO_FUN(275)) &\n  P_VAR(275) = 0.15*A(380)+0.255*A(382)+A(408)\nIF (DO_FUN(276)) &\n  P_VAR(276) = 0\nIF (DO_FUN(277)) &\n  P_VAR(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387)\nIF (DO_FUN(278)) &\n  P_VAR(278) = 0.44*A(391)+A(392)+A(395)+A(397)+0.5*A(402)+0.75*A(464)+A(465)+A(1049)+A(1050)+A(1051)\nIF (DO_FUN(279)) &\n  P_VAR(279) = A(91)+0.072*A(97)+A(117)\nIF (DO_FUN(280)) &\n  P_VAR(280) = 0.1*A(375)+0.1*A(376)+0.5*A(377)+0.5*A(449)+0.5*A(452)+0.5*A(455)\nIF (DO_FUN(281)) &\n  P_VAR(281) = A(378)+0.2*A(380)+0.075*A(382)\nIF (DO_FUN(282)) &\n  P_VAR(282) = A(29)+0.13*A(31)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)+0.25&\n                 &*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25*A(456)&\n                 &+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(907)\nIF (DO_FUN(283)) &\n  P_VAR(283) = 0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)+0.1&\n                 &*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1*A(463)&\n                 &+0.13*A(695)+0.15*A(770)+0.3*A(771)\nIF (DO_FUN(284)) &\n  P_VAR(284) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(979)\nIF (DO_FUN(285)) &\n  P_VAR(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687)\nIF (DO_FUN(286)) &\n  P_VAR(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687)\nIF (DO_FUN(287)) &\n  P_VAR(287) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)&\n                 &+0.14*A(542)+0.004*A(631)+0.006*A(633)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)+0.55*A(1027)+0.5&\n                 &*A(1033)+0.15*A(1039)+0.5*A(1041)\nIF (DO_FUN(288)) &\n  P_VAR(288) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)&\n                 &+0.14*A(546)+0.054*A(631)+0.059*A(633)+0.335*A(667)+0.429*A(689)+0.75*A(690)+0.55*A(1024)+0.5*A(1041)\nIF (DO_FUN(289)) &\n  P_VAR(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377)\nIF (DO_FUN(290)) &\n  P_VAR(290) = A(912)\nIF (DO_FUN(291)) &\n  P_VAR(291) = 0.5*A(380)\nIF (DO_FUN(292)) &\n  P_VAR(292) = 0.25*A(68)+0.19*A(90)+0.19*A(93)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271*A(183)+0.1*A(185)&\n                 &+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5*A(455)+0.464&\n                 &*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)+0.19*A(926)+0.19*A(929)+A(991)+0.5&\n                 &*A(1052)\nIF (DO_FUN(293)) &\n  P_VAR(293) = A(620)+0.33*A(621)+0.037*A(691)\nIF (DO_FUN(294)) &\n  P_VAR(294) = 0.3*A(33)+0.5*A(136)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)+0.085*A(524)&\n                 &+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545*A(645)+0.88&\n                 &*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14*A(674)+0.7&\n                 &*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)+0.5*A(1007)+0.47*A(1008)+0.571&\n                 &*A(1009)+0.125*A(1010)+0.23*A(1011)+0.118*A(1034)+0.429*A(1036)+A(1040)\nIF (DO_FUN(295)) &\n  P_VAR(295) = 0.34*A(90)+0.34*A(93)+A(98)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29*A(183)&\n                 &+A(186)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4*A(413)+0.6*A(414)&\n                 &+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)&\n                 &+0.45*A(462)+0.45*A(463)+A(491)+A(920)+0.34*A(926)+0.34*A(929)+A(1000)+A(1052)+0.6*A(1054)+0.45*A(1057)\nIF (DO_FUN(296)) &\n  P_VAR(296) = A(57)+A(179)+A(219)+A(321)+A(701)\nIF (DO_FUN(297)) &\n  P_VAR(297) = A(787)+A(789)+A(790)\nIF (DO_FUN(298)) &\n  P_VAR(298) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)&\n                 &+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)+0.64*A(171)&\n                 &+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035*A(192)&\n                 &+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75&\n                 &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)&\n                 &+1.15*A(772)+A(917)+A(919)+1.5*A(921)+A(922)+1.5*A(923)+0.15*A(926)+1.558*A(927)+0.15*A(929)+A(989)+A(992)&\n                 &+A(1001)+0.6*A(1054)+A(1055)+A(1056)\nIF (DO_FUN(299)) &\n  P_VAR(299) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)+0.18*A(643)\nIF (DO_FUN(300)) &\n  P_VAR(300) = A(101)+0.21*A(174)+A(331)+0.2*A(772)\nIF (DO_FUN(301)) &\n  P_VAR(301) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159&\n                 &*A(614)+0.159*A(617)+A(619)+A(628)+0.159*A(1029)+0.223*A(1032)\nIF (DO_FUN(302)) &\n  P_VAR(302) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015&\n                 &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)+A(657)+A(669)+0.05*A(1038)\nIF (DO_FUN(303)) &\n  P_VAR(303) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5&\n                 &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641)\nIF (DO_FUN(304)) &\n  P_VAR(304) = 0.5*A(330)+A(495)+0.51*A(536)+0.03*A(538)+0.159*A(1030)\nIF (DO_FUN(305)) &\n  P_VAR(305) = 0.5*A(330)+A(494)+0.75*A(535)+0.03*A(537)+0.841*A(1030)\nIF (DO_FUN(306)) &\n  P_VAR(306) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)+0.5*A(453)+0.5*A(454)+0.25*A(455)+0.294*A(544)+0.135&\n                 &*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)+0.551*A(594)+0.935*A(595)&\n                 &+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36*A(667)+0.758*A(668)+0.2&\n                 &*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)+0.53*A(1008)+0.69*A(1013)+0.5*A(1032)+0.118&\n                 &*A(1034)+0.25*A(1035)+0.429*A(1036)+0.3*A(1038)+0.35*A(1039)+A(1040)\nIF (DO_FUN(307)) &\n  P_VAR(307) = 0.16*A(113)+0.2*A(136)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)+A(548)+0.65&\n                 &*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441*A(597)+0.858&\n                 &*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507*A(670)+0.488&\n                 &*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)+A(993)+0.77*A(1011)+A(1014)+0.5&\n                 &*A(1032)+0.586*A(1034)+0.25*A(1035)+0.571*A(1036)+0.45*A(1038)+0.8*A(1039)\nIF (DO_FUN(308)) &\n  P_VAR(308) = A(653)\nIF (DO_FUN(309)) &\n  P_VAR(309) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)&\n                 &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)&\n                 &+A(1017)+A(1023)+A(1026)+0.097*A(1028)+0.005*A(1032)\nIF (DO_FUN(310)) &\n  P_VAR(310) = 0.465*A(603)+A(626)\nIF (DO_FUN(311)) &\n  P_VAR(311) = 0.535*A(603)+A(627)\nIF (DO_FUN(312)) &\n  P_VAR(312) = 0.22*A(150)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)+0.88*A(648)+0.5*A(704)+A(712)\nIF (DO_FUN(313)) &\n  P_VAR(313) = 0.7*A(33)+A(111)+A(218)+A(329)\nIF (DO_FUN(314)) &\n  P_VAR(314) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)&\n                 &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23&\n                 &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903&\n                 &*A(613)+0.904*A(615)+0.04*A(725)+0.04*A(726)+A(1016)+A(1022)+A(1025)+0.903*A(1028)+0.05*A(1032)+0.45&\n                 &*A(1057)\nIF (DO_FUN(315)) &\n  P_VAR(315) = 0.34*A(90)+0.34*A(93)+0.49*A(109)+0.16*A(132)+0.16*A(134)+0.22*A(148)+0.36*A(170)+0.29*A(182)+0.29*A(183)&\n                 &+0.49*A(194)+0.49*A(195)+0.49*A(903)+0.415*A(906)+0.34*A(926)+0.34*A(929)\nIF (DO_FUN(316)) &\n  P_VAR(316) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822)\nIF (DO_FUN(317)) &\n  P_VAR(317) = A(301)\nIF (DO_FUN(318)) &\n  P_VAR(318) = A(102)+0.5*A(763)+0.5*A(764)\nIF (DO_FUN(319)) &\n  P_VAR(319) = 0.25*A(68)+A(89)+0.15*A(133)+0.15*A(135)+0.21*A(173)+0.27*A(187)+0.27*A(188)+0.6*A(412)+0.4*A(413)+0.6&\n                 &*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6*A(466)+0.8*A(467)+0.6*A(1054)+0.8&\n                 &*A(1055)+0.8*A(1056)\nIF (DO_FUN(320)) &\n  P_VAR(320) = A(122)+A(131)+0.3*A(381)\nIF (DO_FUN(321)) &\n  P_VAR(321) = A(62)+0.05*A(90)+0.05*A(93)+0.07*A(109)+0.03*A(132)+0.03*A(134)+0.03*A(148)+0.36*A(171)+0.045*A(182)&\n                 &+0.045*A(183)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(903)+0.06*A(906)+0.05*A(926)+0.05*A(929)\nIF (DO_FUN(322)) &\n  P_VAR(322) = A(105)+A(107)+A(110)+A(175)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+A(736)+0.44*A(737)+0.33&\n                 &*A(767)+0.33*A(770)+0.15*A(906)+A(914)+0.326*A(927)+0.7*A(1047)+A(1052)\nIF (DO_FUN(323)) &\n  P_VAR(323) = A(61)+0.19*A(90)+0.19*A(93)+0.27*A(109)+0.09*A(132)+0.09*A(134)+0.12*A(148)+0.209*A(172)+0.162*A(182)&\n                 &+0.162*A(183)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(903)+0.23*A(906)+0.19*A(926)+0.19*A(929)\nIF (DO_FUN(324)) &\n  P_VAR(324) = 0.95*A(51)+A(52)+A(54)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5*A(137)+A(164)&\n                 &+A(166)+0.78*A(178)+0.9*A(184)+0.9*A(185)+A(217)+0.44*A(436)+A(437)+A(440)+A(442)+0.75*A(466)+A(467)+0.3&\n                 &*A(496)+0.3*A(503)+0.018*A(537)+0.38*A(645)+0.12*A(648)+0.04*A(650)+0.097*A(661)+A(665)+0.36*A(667)+0.758&\n                 &*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3*A(685)+A(692)+A(693)+A(740)+0.12*A(897)+0.7*A(899)&\n                 &+A(902)+A(904)+0.85*A(906)+A(911)+A(913)+A(915)+A(916)+0.326*A(927)+A(984)+A(1004)+A(1005)+A(1006)+0.5&\n                 &*A(1007)+0.53*A(1008)+0.429*A(1009)+0.125*A(1010)+0.262*A(1012)+1.01*A(1013)+A(1055)+A(1056)\nIF (DO_FUN(325)) &\n  P_VAR(325) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)+A(48)+0.05*A(51)+A(55)+A(65)+0.98*A(73)+A(76)&\n                 &+A(77)+0.603*A(78)+A(80)+0.065*A(81)+A(84)+A(85)+0.64*A(92)+0.64*A(95)+A(96)+A(100)+0.75*A(112)+1.25&\n                 &*A(113)+0.15*A(118)+0.31*A(123)+0.75*A(129)+0.75*A(130)+0.75*A(132)+0.95*A(133)+0.75*A(134)+0.95*A(135)&\n                 &+0.5*A(136)+0.75*A(137)+0.75*A(138)+1.25*A(139)+0.5*A(150)+0.732*A(151)+A(157)+0.44*A(158)+A(159)+A(160)&\n                 &+A(161)+0.22*A(178)+A(181)+0.9*A(184)+0.351*A(187)+0.351*A(188)+0.9*A(189)+0.9*A(192)+A(195)+A(199)+A(201)&\n                 &+0.25*A(231)+A(274)+A(319)+A(324)+A(360)+A(362)+A(363)+A(364)+0.06*A(365)+0.06*A(366)+A(367)+A(368)+0.1&\n                 &*A(381)+0.1*A(383)+0.5*A(388)+0.84*A(399)+A(400)+1.5*A(401)+0.5*A(402)+0.4*A(403)+0.75*A(405)+A(406)&\n                 &+A(407)+0.75*A(413)+0.67*A(421)+A(427)+0.75*A(432)+0.176*A(436)+0.4*A(437)+0.4*A(440)+0.4*A(442)+0.1&\n                 &*A(445)+0.1*A(446)+0.1*A(447)+0.1*A(448)+0.05*A(449)+1.5*A(453)+1.5*A(454)+0.75*A(455)+0.75*A(456)+1.75&\n                 &*A(458)+A(459)+0.75*A(460)+0.85*A(462)+0.1*A(463)+A(464)+1.3*A(466)+0.4*A(467)+0.287*A(469)+A(472)+0.85&\n                 &*A(473)+0.287*A(475)+0.287*A(477)+0.202*A(479)+0.504*A(480)+A(489)+0.827*A(493)+0.3*A(496)+0.3*A(497)&\n                 &+0.063*A(498)+0.063*A(500)+A(502)+0.3*A(503)+A(504)+0.3*A(505)+2*A(506)+2*A(507)+2*A(508)+2*A(512)+A(513)&\n                 &+2*A(514)+A(515)+A(517)+A(521)+0.085*A(524)+0.165*A(525)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.716*A(540)&\n                 &+0.14*A(542)+0.706*A(544)+0.14*A(546)+0.65*A(566)+A(568)+0.059*A(585)+0.272*A(586)+0.599*A(589)+A(590)&\n                 &+0.031*A(594)+0.065*A(595)+0.065*A(597)+0.142*A(598)+0.104*A(600)+0.383*A(601)+0.527*A(604)+1.86*A(606)&\n                 &+0.563*A(607)+0.645*A(609)+1.577*A(610)+A(611)+A(613)+A(615)+0.126*A(631)+0.088*A(632)+0.249*A(633)+0.34&\n                 &*A(635)+0.6*A(645)+0.12*A(648)+0.241*A(650)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.5*A(671)+0.25*A(672)&\n                 &+0.14*A(674)+A(676)+A(682)+0.022*A(691)+0.5*A(694)+A(696)+A(702)+A(703)+0.5*A(704)+0.25*A(705)+A(706)+0.12&\n                 &*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)+0.3*A(901)+A(902)+0.9*A(907)&\n                 &+A(910)+A(913)+A(915)+A(916)+A(924)+A(982)+A(984)+A(990)+A(998)+A(1002)+A(1003)+A(1005)+A(1006)+0.47&\n                 &*A(1008)+0.23*A(1011)+0.75*A(1012)+A(1016)+A(1017)+A(1025)+A(1026)+A(1028)+0.055*A(1032)+0.133*A(1034)&\n                 &+0.55*A(1038)+0.15*A(1039)+A(1052)+A(1053)+0.4*A(1055)+0.4*A(1056)+0.1*A(1057)\nIF (DO_FUN(326)) &\n  P_VAR(326) = A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)+A(108)+0.5&\n                 &*A(113)+0.15*A(119)+0.62*A(123)+0.75*A(129)+0.75*A(130)+0.16*A(132)+0.38*A(133)+0.16*A(134)+0.38*A(135)&\n                 &+0.5*A(137)+0.5*A(139)+A(140)+1.6*A(142)+1.6*A(143)+0.5*A(150)+0.64*A(170)+0.29*A(182)+0.29*A(183)+0.9&\n                 &*A(185)+0.675*A(187)+0.675*A(188)+0.9*A(189)+A(190)+A(191)+0.9*A(192)+A(322)+A(323)+A(325)+A(369)+A(370)&\n                 &+A(371)+A(372)+A(373)+A(490)+0.4*A(705)+A(918)+A(924)+A(925)+0.34*A(926)+0.348*A(927)+0.34*A(929)+A(999)\nIF (DO_FUN(327)) &\n  P_VAR(327) = A(35)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)+A(486)+A(487)+0.32&\n                 &*A(649)+A(692)+A(706)+A(708)+0.742*A(742)+0.5*A(744)+0.5*A(747)+A(749)+0.5*A(764)+0.5*A(782)+A(783)+2&\n                 &*A(786)+A(787)+2*A(788)+A(789)+A(790)+A(793)+A(794)+A(795)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)&\n                 &+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851)\nIF (DO_FUN(328)) &\n  P_VAR(328) = A(25)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)+0.85*A(119)+0.09*A(132)+0.09*A(134)+0.25*A(137)+0.28&\n                 &*A(150)+0.5*A(168)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)+0.9*A(187)&\n                 &+0.9*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(194)+A(198)+A(199)+A(200)+A(201)+0.75&\n                 &*A(231)+0.9*A(257)+A(258)+A(291)+A(320)+A(326)+A(359)+0.9*A(457)+0.9*A(459)+0.9*A(461)+0.9*A(463)+A(465)&\n                 &+A(467)+A(474)+0.5*A(475)+0.407*A(493)+A(611)+A(612)+0.325*A(671)+0.162*A(672)+0.65*A(676)+0.5*A(695)&\n                 &+A(731)+0.88*A(897)+0.3*A(899)+A(904)+2*A(905)+0.15*A(906)+A(914)+A(925)+0.19*A(926)+0.19*A(929)+A(930)&\n                 &+A(939)+A(940)+A(983)+0.488*A(1012)\nIF (DO_FUN(329)) &\n  P_VAR(329) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)&\n                 &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)&\n                 &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5&\n                 &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)&\n                 &+1.5*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)&\n                 &+0.2*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)&\n                 &+0.33*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)&\n                 &+A(664)+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25&\n                 &*A(684)+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27&\n                 &*A(725)+0.3*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05&\n                 &*A(772)+A(888)+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)&\n                 &+A(911)+A(912)+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77&\n                 &*A(1011)+A(1014)+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839&\n                 &*A(1031)+A(1033)+0.163*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058)\nIF (DO_FUN(330)) &\n  P_VAR(330) = A(352)+A(355)+A(843)\nIF (DO_FUN(331)) &\n  P_VAR(331) = A(337)+A(339)+0.2*A(344)+0.809*A(349)+A(352)+A(353)+A(356)+0.4*A(357)+0.996*A(358)+A(359)+2*A(966)+A(967)&\n                 &+A(968)+A(969)+A(970)+A(971)+A(972)+A(973)+A(974)+2*A(975)+A(976)+A(977)+A(980)+A(981)\nIF (DO_FUN(332)) &\n  P_VAR(332) = A(339)+A(340)\nIF (DO_FUN(333)) &\n  P_VAR(333) = A(273)+A(277)+A(278)+A(281)+A(282)+A(299)+A(795)\nIF (DO_FUN(334)) &\n  P_VAR(334) = A(883)+A(985)\nIF (DO_FUN(335)) &\n  P_VAR(335) = A(13)+A(22)+A(26)+A(38)+A(40)+A(41)+A(42)+2*A(43)+A(44)+A(46)+A(49)+A(54)+A(55)+A(56)+A(58)+A(60)+A(63)&\n                 &+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)+A(87)+A(90)+2*A(92)+A(93)+2*A(95)+A(96)+0.928&\n                 &*A(97)+A(98)+2*A(100)+A(107)+A(108)+A(109)+0.93*A(123)+A(125)+A(126)+A(127)+A(133)+A(135)+A(139)+A(156)&\n                 &+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)+A(198)+A(209)+A(215)+A(241)+A(242)+A(281)+A(300)&\n                 &+A(337)+2*A(338)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)+A(370)+0.75*A(385)+A(386)+0.5*A(388)+A(392)&\n                 &+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5*A(416)+0.75&\n                 &*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)+A(439)+A(440)&\n                 &+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5*A(473)+A(475)&\n                 &+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)+A(540)+A(544)&\n                 &+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728*A(586)+A(590)&\n                 &+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)+A(614)+2*A(615)&\n                 &+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09*A(643)+0.31&\n                 &*A(650)+A(655)+A(658)+A(668)+A(674)+A(676)+0.5*A(678)+2*A(679)+A(680)+2*A(681)+0.7*A(682)+A(683)+A(690)&\n                 &+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)+A(729)+A(733)+A(736)&\n                 &+A(739)+A(740)+A(751)+A(754)+A(755)+A(757)+A(758)+0.5*A(763)+A(764)+A(779)+A(890)+A(893)+A(894)+A(896)+0.7&\n                 &*A(899)+A(900)+A(917)+A(926)+A(927)+A(928)+A(929)+A(935)+A(936)+A(947)+A(949)+A(971)+A(983)+A(990)+A(991)&\n                 &+A(992)+A(993)+A(995)+A(997)+A(998)+A(999)+A(1000)+A(1001)+A(1005)+0.7*A(1013)+A(1014)+A(1024)+A(1025)&\n                 &+A(1026)+A(1027)+A(1028)+A(1030)+A(1031)+1.555*A(1032)+0.3*A(1038)+A(1039)+A(1040)+A(1041)+0.7*A(1047)\nIF (DO_FUN(336)) &\n  P_VAR(336) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)&\n                 &+A(105)+A(111)+A(122)+A(206)+A(225)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)+A(289)&\n                 &+A(290)+A(318)+A(353)+A(354)+A(359)+A(701)+A(781)+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)&\n                 &+A(928)\nIF (DO_FUN(337)) &\n  P_VAR(337) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(34)+A(40)+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)&\n                 &+A(60)+A(63)+A(65)+0.75*A(68)+0.513*A(78)+A(80)+0.425*A(81)+A(82)+A(83)+0.25*A(84)+A(85)+0.27*A(90)+0.27&\n                 &*A(93)+A(98)+A(112)+A(113)+A(129)+A(130)+0.64*A(132)+0.5*A(133)+0.64*A(134)+0.5*A(135)+0.3*A(136)+0.5&\n                 &*A(137)+A(138)+0.5*A(139)+A(140)+A(141)+1.2*A(142)+1.2*A(143)+0.28*A(150)+0.773*A(151)+0.2*A(153)+A(157)&\n                 &+0.44*A(158)+A(159)+A(161)+A(163)+A(165)+A(167)+0.9*A(181)+0.243*A(182)+0.243*A(183)+0.9*A(186)+0.9*A(190)&\n                 &+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(195)+A(202)+A(214)+A(216)+A(225)+0.2*A(231)+A(244)+A(245)+A(252)&\n                 &+A(274)+A(275)+A(283)+A(284)+A(285)+A(292)+A(295)+A(315)+A(316)+A(317)+A(319)+A(322)+A(323)+A(324)+0.05&\n                 &*A(381)+0.75*A(385)+A(386)+0.5*A(388)+A(401)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(413)+A(414)+0.75&\n                 &*A(418)+A(419)+0.84*A(429)+A(431)+A(432)+A(445)+A(446)+A(453)+0.5*A(455)+1.75*A(456)+A(457)+1.75*A(458)&\n                 &+A(459)+1.75*A(460)+A(461)+1.75*A(462)+A(463)+0.75*A(464)+0.75*A(466)+A(468)+2*A(472)+0.5*A(473)+A(474)&\n                 &+A(476)+A(478)+0.5*A(479)+0.16*A(493)+0.4*A(496)+0.7*A(497)+0.063*A(498)+0.063*A(500)+0.4*A(503)+0.7&\n                 &*A(505)+2*A(506)+2*A(507)+2*A(508)+A(509)+A(510)+A(511)+2*A(512)+1.5*A(513)+2*A(514)+1.5*A(515)+A(517)&\n                 &+0.45*A(519)+A(521)+0.45*A(523)+0.085*A(524)+0.165*A(525)+0.283*A(528)+A(530)+0.25*A(535)+0.33*A(536)&\n                 &+0.024*A(537)+0.042*A(538)+A(540)+0.275*A(542)+A(544)+0.275*A(546)+0.75*A(551)+A(552)+A(554)+A(556)+0.65&\n                 &*A(558)+A(559)+A(561)+A(563)+0.65*A(565)+0.65*A(566)+A(568)+A(569)+0.4*A(582)+0.4*A(583)+A(584)+0.059&\n                 &*A(585)+0.272*A(586)+A(588)+0.599*A(589)+A(590)+A(592)+A(593)+0.582*A(594)+A(595)+0.506*A(597)+A(598)&\n                 &+0.379*A(600)+A(601)+0.089*A(607)+0.064*A(608)+0.336*A(609)+0.611*A(610)+0.159*A(612)+0.159*A(614)+0.159&\n                 &*A(617)+A(619)+0.326*A(631)+0.58*A(632)+0.5*A(633)+0.904*A(635)+0.295*A(638)+0.33*A(639)+0.33*A(640)+0.89&\n                 &*A(642)+0.73*A(643)+0.1*A(645)+0.036*A(646)+0.715*A(661)+A(663)+A(665)+A(666)+0.305*A(667)+0.242*A(668)&\n                 &+0.507*A(670)+0.86*A(674)+0.7*A(682)+0.5*A(686)+0.444*A(687)+0.62*A(691)+0.5*A(694)+A(699)+0.7*A(702)+0.1&\n                 &*A(704)+0.18*A(705)+0.03*A(707)+A(709)+A(711)+0.364*A(714)+0.6*A(718)+A(719)+A(720)+0.54*A(724)+0.19&\n                 &*A(725)+0.15*A(726)+A(727)+A(728)+A(729)+2*A(730)+A(731)+A(733)+0.8*A(741)+0.727*A(743)+A(746)+A(765)&\n                 &+A(766)+0.33*A(767)+0.1*A(768)+0.2*A(769)+0.33*A(770)+0.1*A(771)+0.2*A(772)+A(773)+A(775)+A(777)+A(779)&\n                 &+A(887)+A(888)+A(893)+A(897)+0.3*A(901)+A(902)+A(903)+1.73*A(907)+2*A(908)+A(911)+A(913)+A(915)+A(916)&\n                 &+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)+0.27*A(926)+0.326*A(927)+A(928)+0.27&\n                 &*A(929)+A(982)+A(989)+A(990)+A(998)+A(999)+A(1000)+A(1001)+A(1003)+A(1004)+A(1006)+1.5*A(1007)+0.47&\n                 &*A(1008)+0.571*A(1009)+0.125*A(1010)+A(1011)+0.29*A(1013)+A(1014)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)&\n                 &+0.112*A(1020)+0.182*A(1021)+A(1022)+A(1023)+0.45*A(1024)+A(1025)+A(1026)+0.45*A(1027)+0.33*A(1028)+0.159&\n                 &*A(1029)+0.161*A(1031)+0.228*A(1032)+1.5*A(1033)+A(1034)+0.75*A(1035)+A(1036)+1.454*A(1037)+0.7*A(1038)&\n                 &+0.7*A(1039)+A(1041)+A(1043)+A(1046)+A(1048)+A(1049)+A(1053)+A(1054)+A(1057)+A(1058)\nIF (DO_FUN(338)) &\n  P_VAR(338) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69&\n                 &*A(266)+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)+A(280)+A(293)+A(297)+2*A(308)+0.1&\n                 &*A(309)+A(313)+A(319)+A(322)+A(323)+A(945)+A(949)\nIF (DO_FUN(339)) &\n  P_VAR(339) = 0.12*A(253)+A(276)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)+A(320)+A(321)+A(324)&\n                 &+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)+A(812)\nIF (DO_FUN(340)) &\n  P_VAR(340) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69&\n                 &*A(266)+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2&\n                 &*A(288)+A(289)+2*A(290)+A(298)+A(300)+A(303)+A(304)+A(306)+2*A(316)+3*A(317)+0.249*A(349)+A(940)+2*A(941)&\n                 &+A(942)+2*A(943)+A(944)+A(946)+A(947)+A(948)+A(950)+3*A(951)+4*A(952)+3*A(953)+2*A(954)+3*A(955)+2*A(956)&\n                 &+A(957)+2*A(958)+2*A(959)+A(960)+A(961)+A(963)+A(965)+A(976)+A(981)\nIF (DO_FUN(341)) &\n  P_VAR(341) = 0.15*A(128)+0.15*A(148)+0.15*A(158)+A(232)+0.15*A(391)+0.15*A(436)+0.13*A(671)+0.13*A(678)+0.13*A(695)&\n                 &+0.15*A(737)+0.15*A(750)\nIF (DO_FUN(342)) &\n  P_VAR(342) = A(206)+2*A(207)+A(209)+A(211)+A(213)+A(214)+3*A(223)+2*A(224)+A(225)+A(251)+0.6*A(254)+0.56*A(258)+0.95&\n                 &*A(259)+1.4*A(260)+0.34*A(264)+0.75*A(272)+A(310)+A(311)+A(343)+A(344)+2*A(931)+A(932)+A(933)+A(934)&\n                 &+A(936)+3*A(937)+2*A(938)+A(939)+A(942)+A(962)+A(963)+2*A(964)+A(977)+A(980)\nIF (DO_FUN(343)) &\n  P_VAR(343) = A(18)+A(227)+A(228)+A(237)+0.02*A(247)+A(248)+A(249)+A(250)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21&\n                 &*A(256)+0.1*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31&\n                 &*A(266)+0.35*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)+A(882)+2*A(884)+A(885)&\n                 &+A(894)+A(932)+A(944)+A(945)+A(968)+A(988)\nIF (DO_FUN(344)) &\n  P_VAR(344) = A(5)\nIF (DO_FUN(345)) &\n  P_VAR(345) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.5*A(71)+0.25*A(84)+0.15*A(118)+0.15*A(119)+0.44*A(128)+0.44&\n                 &*A(148)+0.36*A(150)+0.227*A(151)+A(152)+0.44*A(158)+A(168)+0.791*A(169)+0.64*A(170)+0.64*A(171)+0.791&\n                 &*A(172)+0.79*A(173)+0.79*A(174)+0.791*A(176)+A(177)+0.22*A(178)+A(212)+A(213)+2*A(226)+A(229)+0.75*A(231)&\n                 &+A(236)+A(244)+A(246)+1.788*A(247)+A(252)+0.66*A(253)+0.6*A(254)+0.05*A(261)+A(297)+0.865*A(379)+0.8&\n                 &*A(381)+0.65*A(383)+0.44*A(391)+0.6*A(421)+0.865*A(424)+0.44*A(436)+0.3*A(447)+0.3*A(448)+0.15*A(449)&\n                 &+A(454)+0.28*A(493)+1.5*A(496)+1.5*A(497)+0.063*A(498)+0.063*A(500)+A(502)+1.5*A(503)+A(504)+1.5*A(505)&\n                 &+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+1.085*A(524)+1.165*A(525)+A(526)&\n                 &+A(527)+1.065*A(528)+A(529)+A(532)+A(534)+0.405*A(537)+0.745*A(538)+A(539)+0.275*A(542)+A(543)+0.275&\n                 &*A(546)+A(548)+1.3*A(550)+A(557)+0.65*A(558)+A(562)+0.65*A(565)+0.65*A(566)+A(569)+A(570)+2*A(571)+A(572)&\n                 &+2*A(573)+0.6*A(582)+0.6*A(583)+0.518*A(585)+0.599*A(589)+0.582*A(594)+0.506*A(597)+0.379*A(600)+0.527&\n                 &*A(604)+A(623)+A(624)+A(628)+A(629)+A(630)+1.147*A(631)+0.646*A(632)+0.435*A(633)+0.096*A(635)+0.244&\n                 &*A(638)+A(640)+0.82*A(643)+0.08*A(645)+0.12*A(648)+0.68*A(649)+0.02*A(650)+A(651)+A(652)+A(654)+A(656)&\n                 &+A(659)+0.285*A(661)+A(662)+A(664)+0.665*A(667)+0.59*A(670)+0.5*A(671)+0.585*A(672)+A(673)+0.5*A(678)+0.7&\n                 &*A(685)+0.5*A(686)+0.444*A(687)+A(688)+A(689)+0.3*A(691)+0.5*A(694)+0.5*A(695)+A(696)+A(697)+A(698)+0.18&\n                 &*A(704)+A(710)+0.636*A(714)+A(723)+A(727)+0.44*A(737)+A(746)+0.2*A(750)+0.25*A(767)+0.1*A(768)+0.25*A(770)&\n                 &+0.1*A(771)+2*A(886)+A(887)+A(890)+A(891)+A(892)+0.07*A(907)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)&\n                 &+A(923)+A(924)+A(925)+A(930)+A(933)+A(950)+A(967)+A(984)+2*A(987)+A(989)+2*A(1002)+A(1003)+A(1008)+A(1009)&\n                 &+1.75*A(1010)+A(1011)+0.75*A(1012)+0.01*A(1013)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)+1.662*A(1020)&\n                 &+1.637*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.67*A(1028)+A(1029)+0.645*A(1031)+0.5*A(1033)&\n                 &+A(1034)+1.25*A(1035)+A(1036)+0.546*A(1037)+A(1038)+0.3*A(1039)+A(1040)+A(1042)+A(1044)+A(1048)+A(1050)&\n                 &+A(1051)+A(1052)+A(1053)+A(1054)+A(1055)+A(1056)+A(1057)\nIF (DO_FUN(346)) &\n  P_VAR(346) = A(49)+1.22*A(230)+A(240)+A(248)+2*A(335)+A(700)+A(774)+A(776)+A(778)+A(885)+A(891)+A(895)+A(970)\nIF (DO_FUN(347)) &\n  P_VAR(347) = A(203)+A(212)+A(215)+0.2*A(254)+0.44*A(258)+0.95*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)&\n                 &+A(935)\nIF (DO_FUN(348)) &\n  P_VAR(348) = A(11)+A(199)+0.75*A(200)+A(201)+A(238)+A(239)+A(986)+A(987)\nIF (DO_FUN(349)) &\n  P_VAR(349) = A(823)\nIF (DO_FUN(350)) &\n  P_VAR(350) = A(824)\nIF (DO_FUN(351)) &\n  P_VAR(351) = A(16)+A(36)+A(46)+A(88)+A(210)+A(243)+A(282)+A(313)+A(314)+A(342)+A(364)+A(371)+A(488)+0.69*A(650)+A(684)&\n                 &+A(756)+A(892)+A(896)+0.3*A(899)+A(934)+A(948)+A(972)+A(982)+0.3*A(1047)\nIF (DO_FUN(352)) &\n  P_VAR(352) = A(205)+A(216)+A(217)+A(218)+A(219)+A(220)+0.2*A(254)+A(333)+A(819)\nIF (DO_FUN(353)) &\n  P_VAR(353) = A(2)\n\n! Destruction function\nIF (DO_FUN(1)) &\n  D_VAR(1) = RCT(975)\nIF (DO_FUN(2)) &\n  D_VAR(2) = RCT(977)\nIF (DO_FUN(3)) &\n  D_VAR(3) = RCT(976)\nIF (DO_FUN(4)) &\n  D_VAR(4) = 0\nIF (DO_FUN(5)) &\n  D_VAR(5) = 0\nIF (DO_FUN(6)) &\n  D_VAR(6) = 0\nIF (DO_FUN(7)) &\n  D_VAR(7) = 0\nIF (DO_FUN(8)) &\n  D_VAR(8) = 0\nIF (DO_FUN(9)) &\n  D_VAR(9) = 0\nIF (DO_FUN(10)) &\n  D_VAR(10) = 0\nIF (DO_FUN(11)) &\n  D_VAR(11) = 0\nIF (DO_FUN(12)) &\n  D_VAR(12) = 0\nIF (DO_FUN(13)) &\n  D_VAR(13) = RCT(773)*V(337)+RCT(774)*V(346)\nIF (DO_FUN(14)) &\n  D_VAR(14) = 0\nIF (DO_FUN(15)) &\n  D_VAR(15) = 0\nIF (DO_FUN(16)) &\n  D_VAR(16) = 0\nIF (DO_FUN(17)) &\n  D_VAR(17) = 0\nIF (DO_FUN(18)) &\n  D_VAR(18) = RCT(699)*V(337)+RCT(700)*V(346)\nIF (DO_FUN(19)) &\n  D_VAR(19) = RCT(698)*V(345)\nIF (DO_FUN(20)) &\n  D_VAR(20) = 0\nIF (DO_FUN(21)) &\n  D_VAR(21) = 0\nIF (DO_FUN(22)) &\n  D_VAR(22) = RCT(775)*V(337)+RCT(776)*V(346)\nIF (DO_FUN(23)) &\n  D_VAR(23) = 0\nIF (DO_FUN(24)) &\n  D_VAR(24) = RCT(177)*V(345)+RCT(861)\nIF (DO_FUN(25)) &\n  D_VAR(25) = 0\nIF (DO_FUN(26)) &\n  D_VAR(26) = 0\nIF (DO_FUN(27)) &\n  D_VAR(27) = RCT(777)*V(337)+RCT(778)*V(346)\nIF (DO_FUN(28)) &\n  D_VAR(28) = 0\nIF (DO_FUN(29)) &\n  D_VAR(29) = 0\nIF (DO_FUN(30)) &\n  D_VAR(30) = 0\nIF (DO_FUN(31)) &\n  D_VAR(31) = 0\nIF (DO_FUN(32)) &\n  D_VAR(32) = 0\nIF (DO_FUN(33)) &\n  D_VAR(33) = 0\nIF (DO_FUN(34)) &\n  D_VAR(34) = 0\nIF (DO_FUN(35)) &\n  D_VAR(35) = 0\nIF (DO_FUN(36)) &\n  D_VAR(36) = 0\nIF (DO_FUN(37)) &\n  D_VAR(37) = 0\nIF (DO_FUN(38)) &\n  D_VAR(38) = 0\nIF (DO_FUN(39)) &\n  D_VAR(39) = 0\nIF (DO_FUN(40)) &\n  D_VAR(40) = 0\nIF (DO_FUN(41)) &\n  D_VAR(41) = RCT(780)*V(345)\nIF (DO_FUN(42)) &\n  D_VAR(42) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(978)\nIF (DO_FUN(43)) &\n  D_VAR(43) = RCT(286)*V(345)+RCT(951)\nIF (DO_FUN(44)) &\n  D_VAR(44) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(973)\nIF (DO_FUN(45)) &\n  D_VAR(45) = RCT(487)\nIF (DO_FUN(46)) &\n  D_VAR(46) = RCT(256)*V(334)+RCT(952)\nIF (DO_FUN(47)) &\n  D_VAR(47) = RCT(262)*V(334)+RCT(953)\nIF (DO_FUN(48)) &\n  D_VAR(48) = RCT(263)*V(334)+RCT(954)\nIF (DO_FUN(49)) &\n  D_VAR(49) = RCT(269)*V(334)+RCT(955)\nIF (DO_FUN(50)) &\n  D_VAR(50) = RCT(270)*V(334)+RCT(956)\nIF (DO_FUN(51)) &\n  D_VAR(51) = RCT(271)*V(334)+RCT(957)\nIF (DO_FUN(52)) &\n  D_VAR(52) = RCT(359)*V(345)+RCT(974)\nIF (DO_FUN(53)) &\n  D_VAR(53) = RCT(265)*V(334)+RCT(962)\nIF (DO_FUN(54)) &\n  D_VAR(54) = RCT(272)*V(334)+RCT(964)\nIF (DO_FUN(55)) &\n  D_VAR(55) = RCT(833)+RCT(834)+RCT(835)+RCT(979)\nIF (DO_FUN(56)) &\n  D_VAR(56) = RCT(394)\nIF (DO_FUN(57)) &\n  D_VAR(57) = RCT(439)\nIF (DO_FUN(58)) &\n  D_VAR(58) = RCT(732)*V(345)\nIF (DO_FUN(59)) &\n  D_VAR(59) = RCT(936)\nIF (DO_FUN(60)) &\n  D_VAR(60) = RCT(714)*V(345)\nIF (DO_FUN(61)) &\n  D_VAR(61) = RCT(264)*V(334)+RCT(963)\nIF (DO_FUN(62)) &\n  D_VAR(62) = RCT(335)*2*V(62)+RCT(970)\nIF (DO_FUN(63)) &\n  D_VAR(63) = RCT(230)*V(334)+RCT(985)\nIF (DO_FUN(64)) &\n  D_VAR(64) = RCT(996)+RCT(997)\nIF (DO_FUN(65)) &\n  D_VAR(65) = RCT(994)+RCT(995)\nIF (DO_FUN(66)) &\n  D_VAR(66) = RCT(397)*V(345)+RCT(1051)\nIF (DO_FUN(67)) &\n  D_VAR(67) = RCT(248)*F(3)+RCT(249)*V(346)+RCT(250)*V(335)\nIF (DO_FUN(68)) &\n  D_VAR(68) = RCT(238)*V(343)+RCT(239)*V(345)+RCT(986)\nIF (DO_FUN(69)) &\n  D_VAR(69) = RCT(66)*V(345)+RCT(67)*V(351)\nIF (DO_FUN(70)) &\n  D_VAR(70) = RCT(721)*V(345)\nIF (DO_FUN(71)) &\n  D_VAR(71) = RCT(753)*V(345)+RCT(1044)\nIF (DO_FUN(72)) &\n  D_VAR(72) = RCT(161)*V(345)\nIF (DO_FUN(73)) &\n  D_VAR(73) = RCT(353)*V(345)+RCT(825)+RCT(826)+RCT(827)\nIF (DO_FUN(74)) &\n  D_VAR(74) = RCT(396)*V(345)+RCT(1050)\nIF (DO_FUN(75)) &\n  D_VAR(75) = RCT(285)*V(345)+RCT(317)*V(340)\nIF (DO_FUN(76)) &\n  D_VAR(76) = RCT(278)*V(345)+RCT(308)+RCT(946)\nIF (DO_FUN(77)) &\n  D_VAR(77) = RCT(980)\nIF (DO_FUN(78)) &\n  D_VAR(78) = RCT(224)*V(345)+RCT(259)*V(334)+RCT(938)\nIF (DO_FUN(79)) &\n  D_VAR(79) = RCT(284)*V(345)+RCT(316)*V(340)+RCT(941)\nIF (DO_FUN(80)) &\n  D_VAR(80) = RCT(198)+RCT(982)+RCT(983)\nIF (DO_FUN(81)) &\n  D_VAR(81) = RCT(223)*V(345)+RCT(260)*V(334)+RCT(937)\nIF (DO_FUN(82)) &\n  D_VAR(82) = RCT(725)*V(345)\nIF (DO_FUN(83)) &\n  D_VAR(83) = RCT(490)*V(345)+RCT(999)\nIF (DO_FUN(84)) &\n  D_VAR(84) = RCT(268)*V(334)+RCT(290)*V(345)+RCT(958)\nIF (DO_FUN(85)) &\n  D_VAR(85) = RCT(266)*V(334)+RCT(288)*V(345)+RCT(959)\nIF (DO_FUN(86)) &\n  D_VAR(86) = RCT(267)*V(334)+RCT(289)*V(345)+RCT(960)\nIF (DO_FUN(87)) &\n  D_VAR(87) = RCT(261)*V(334)+RCT(287)*V(345)+RCT(961)\nIF (DO_FUN(88)) &\n  D_VAR(88) = RCT(694)*V(345)+RCT(1002)\nIF (DO_FUN(89)) &\n  D_VAR(89) = RCT(11)+RCT(12)*V(345)*V(348)\nIF (DO_FUN(90)) &\n  D_VAR(90) = RCT(754)+RCT(755)*V(345)\nIF (DO_FUN(91)) &\n  D_VAR(91) = RCT(491)*V(345)+RCT(1000)\nIF (DO_FUN(92)) &\n  D_VAR(92) = RCT(178)*V(345)+RCT(930)\nIF (DO_FUN(93)) &\n  D_VAR(93) = RCT(489)*V(345)+RCT(998)\nIF (DO_FUN(94)) &\n  D_VAR(94) = RCT(199)*V(345)+RCT(200)*V(345)+RCT(201)*V(351)\nIF (DO_FUN(95)) &\n  D_VAR(95) = RCT(492)*V(345)+RCT(1001)\nIF (DO_FUN(96)) &\n  D_VAR(96) = RCT(345)*V(284)+RCT(346)*2*V(96)+RCT(348)*V(346)+RCT(969)\nIF (DO_FUN(97)) &\n  D_VAR(97) = RCT(173)*V(345)+RCT(921)\nIF (DO_FUN(98)) &\n  D_VAR(98) = RCT(71)*V(345)+RCT(922)\nIF (DO_FUN(99)) &\n  D_VAR(99) = RCT(171)*V(345)+RCT(919)\nIF (DO_FUN(100)) &\n  D_VAR(100) = RCT(172)*V(345)+RCT(920)\nIF (DO_FUN(101)) &\n  D_VAR(101) = RCT(726)*V(345)\nIF (DO_FUN(102)) &\n  D_VAR(102) = RCT(174)*V(345)+RCT(923)\nIF (DO_FUN(103)) &\n  D_VAR(103) = RCT(486)\nIF (DO_FUN(104)) &\n  D_VAR(104) = RCT(981)\nIF (DO_FUN(105)) &\n  D_VAR(105) = RCT(225)*V(345)+RCT(258)*V(334)+RCT(939)\nIF (DO_FUN(106)) &\n  D_VAR(106) = RCT(719)+RCT(720)*F(3)\nIF (DO_FUN(107)) &\n  D_VAR(107) = RCT(685)*V(345)+RCT(868)\nIF (DO_FUN(108)) &\n  D_VAR(108) = RCT(40)+RCT(41)*V(345)+RCT(892)+RCT(893)\nIF (DO_FUN(109)) &\n  D_VAR(109) = RCT(712)*V(341)+RCT(713)*V(345)\nIF (DO_FUN(110)) &\n  D_VAR(110) = RCT(306)+RCT(309)*V(340)+RCT(965)\nIF (DO_FUN(111)) &\n  D_VAR(111) = RCT(387)*V(345)+RCT(1048)\nIF (DO_FUN(112)) &\n  D_VAR(112) = RCT(408)*V(345)+RCT(1053)\nIF (DO_FUN(113)) &\n  D_VAR(113) = RCT(125)+4.51e-12*V(345)\nIF (DO_FUN(114)) &\n  D_VAR(114) = RCT(156)+RCT(160)*V(345)\nIF (DO_FUN(115)) &\n  D_VAR(115) = RCT(693)*V(345)+RCT(867)+RCT(1004)\nIF (DO_FUN(116)) &\n  D_VAR(116) = RCT(711)*V(345)+RCT(928)\nIF (DO_FUN(117)) &\n  D_VAR(117) = RCT(760)*V(345)+RCT(1045)\nIF (DO_FUN(118)) &\n  D_VAR(118) = RCT(170)*V(345)+RCT(918)\nIF (DO_FUN(119)) &\n  D_VAR(119) = RCT(530)*V(345)\nIF (DO_FUN(120)) &\n  D_VAR(120) = RCT(277)*V(345)+RCT(945)\nIF (DO_FUN(121)) &\n  D_VAR(121) = RCT(733)*V(346)+RCT(734)*V(337)\nIF (DO_FUN(122)) &\n  D_VAR(122) = RCT(739)+RCT(740)*V(345)\nIF (DO_FUN(123)) &\n  D_VAR(123) = RCT(176)*V(345)+RCT(924)\nIF (DO_FUN(124)) &\n  D_VAR(124) = RCT(107)+RCT(108)*V(345)+RCT(1047)\nIF (DO_FUN(125)) &\n  D_VAR(125) = RCT(169)*V(345)+RCT(917)\nIF (DO_FUN(126)) &\n  D_VAR(126) = RCT(87)+RCT(88)*V(345)+RCT(900)\nIF (DO_FUN(127)) &\n  D_VAR(127) = RCT(80)*V(345)\nIF (DO_FUN(128)) &\n  D_VAR(128) = RCT(551)*V(345)+RCT(860)\nIF (DO_FUN(129)) &\n  D_VAR(129) = RCT(409)*V(345)\nIF (DO_FUN(130)) &\n  D_VAR(130) = RCT(442)*V(345)+RCT(1056)\nIF (DO_FUN(131)) &\n  D_VAR(131) = RCT(663)*V(345)\nIF (DO_FUN(132)) &\n  D_VAR(132) = RCT(82)*V(346)+RCT(83)*V(337)\nIF (DO_FUN(133)) &\n  D_VAR(133) = RCT(570)*V(346)+RCT(571)*V(337)\nIF (DO_FUN(134)) &\n  D_VAR(134) = RCT(987)\nIF (DO_FUN(135)) &\n  D_VAR(135) = RCT(572)*V(346)+RCT(573)*V(337)\nIF (DO_FUN(136)) &\n  D_VAR(136) = RCT(722)*V(345)+RCT(723)*V(345)+RCT(1042)\nIF (DO_FUN(137)) &\n  D_VAR(137) = RCT(388)*V(345)\nIF (DO_FUN(138)) &\n  D_VAR(138) = RCT(407)*V(345)\nIF (DO_FUN(139)) &\n  D_VAR(139) = RCT(54)+RCT(55)*V(345)+RCT(899)\nIF (DO_FUN(140)) &\n  D_VAR(140) = RCT(75)*V(345)+RCT(76)*V(351)+RCT(77)*V(341)\nIF (DO_FUN(141)) &\n  D_VAR(141) = RCT(61)*V(345)+RCT(62)*V(345)+RCT(220)*V(342)+RCT(327)*V(340)+RCT(328)*V(340)\nIF (DO_FUN(142)) &\n  D_VAR(142) = RCT(89)*V(345)+RCT(101)*V(351)+RCT(331)*V(340)\nIF (DO_FUN(143)) &\n  D_VAR(143) = RCT(724)*V(345)\nIF (DO_FUN(144)) &\n  D_VAR(144) = RCT(527)*V(345)+RCT(1023)\nIF (DO_FUN(145)) &\n  D_VAR(145) = RCT(619)*F(3)+RCT(620)\nIF (DO_FUN(146)) &\n  D_VAR(146) = 7.09e-11*V(345)+RCT(902)\nIF (DO_FUN(147)) &\n  D_VAR(147) = RCT(687)*V(345)+RCT(1037)\nIF (DO_FUN(148)) &\n  D_VAR(148) = RCT(211)*V(345)+RCT(931)\nIF (DO_FUN(149)) &\n  D_VAR(149) = RCT(705)*V(345)+RCT(706)*V(351)\nIF (DO_FUN(150)) &\n  D_VAR(150) = RCT(526)*V(345)+RCT(1022)\nIF (DO_FUN(151)) &\n  D_VAR(151) = RCT(552)*V(345)+RCT(553)*V(345)+RCT(858)\nIF (DO_FUN(152)) &\n  D_VAR(152) = RCT(554)*V(345)+RCT(555)*V(345)+RCT(859)\nIF (DO_FUN(153)) &\n  D_VAR(153) = RCT(666)*V(345)\nIF (DO_FUN(154)) &\n  D_VAR(154) = RCT(488)*V(345)+RCT(866)+RCT(993)\nIF (DO_FUN(155)) &\n  D_VAR(155) = RCT(175)*V(345)+RCT(925)\nIF (DO_FUN(156)) &\n  D_VAR(156) = RCT(140)*V(345)+RCT(325)*V(340)\nIF (DO_FUN(157)) &\n  D_VAR(157) = RCT(942)\nIF (DO_FUN(158)) &\n  D_VAR(158) = RCT(743)*V(345)+RCT(744)*V(351)\nIF (DO_FUN(159)) &\n  D_VAR(159) = RCT(672)*V(345)+RCT(1012)\nIF (DO_FUN(160)) &\n  D_VAR(160) = RCT(402)*V(345)+RCT(1052)\nIF (DO_FUN(161)) &\n  D_VAR(161) = RCT(415)*V(345)+RCT(1054)\nIF (DO_FUN(162)) &\n  D_VAR(162) = RCT(416)*V(345)\nIF (DO_FUN(163)) &\n  D_VAR(163) = RCT(433)*V(345)+RCT(434)*V(351)\nIF (DO_FUN(164)) &\n  D_VAR(164) = RCT(32)*V(345)+RCT(320)*V(340)+RCT(887)\nIF (DO_FUN(165)) &\n  D_VAR(165) = RCT(73)*V(346)+RCT(74)*V(337)\nIF (DO_FUN(166)) &\n  D_VAR(166) = RCT(4)*V(341)*V(348)+RCT(5)*V(339)+RCT(6)*V(327)\nIF (DO_FUN(167)) &\n  D_VAR(167) = RCT(377)*V(351)+RCT(378)*V(345)+RCT(379)*V(341)\nIF (DO_FUN(168)) &\n  D_VAR(168) = RCT(576)*V(345)+RCT(577)*V(345)+RCT(871)+RCT(1026)\nIF (DO_FUN(169)) &\n  D_VAR(169) = RCT(441)*V(345)+RCT(1055)\nIF (DO_FUN(170)) &\n  D_VAR(170) = RCT(339)*V(351)+RCT(352)*V(345)+RCT(966)\nIF (DO_FUN(171)) &\n  D_VAR(171) = RCT(655)*V(346)+RCT(656)*V(337)+RCT(657)*V(335)\nIF (DO_FUN(172)) &\n  D_VAR(172) = RCT(658)*V(346)+RCT(659)*V(337)+RCT(660)*V(335)\nIF (DO_FUN(173)) &\n  D_VAR(173) = RCT(701)*V(345)\nIF (DO_FUN(174)) &\n  D_VAR(174) = RCT(688)*V(345)+RCT(1035)\nIF (DO_FUN(175)) &\n  D_VAR(175) = RCT(574)*V(345)+RCT(575)*V(345)+RCT(870)+RCT(1025)\nIF (DO_FUN(176)) &\n  D_VAR(176) = RCT(403)*V(345)\nIF (DO_FUN(177)) &\n  D_VAR(177) = RCT(435)*V(345)\nIF (DO_FUN(178)) &\n  D_VAR(178) = RCT(68)*V(346)+RCT(69)*V(346)+RCT(70)*V(337)\nIF (DO_FUN(179)) &\n  D_VAR(179) = RCT(1)*V(341)*V(348)+RCT(2)*V(339)+RCT(3)*V(327)\nIF (DO_FUN(180)) &\n  D_VAR(180) = RCT(642)*V(346)+RCT(643)*V(337)\nIF (DO_FUN(181)) &\n  D_VAR(181) = RCT(257)*V(334)+RCT(283)*V(345)+RCT(315)*V(340)+RCT(940)\nIF (DO_FUN(182)) &\n  D_VAR(182) = RCT(639)*V(346)+RCT(640)*V(337)\nIF (DO_FUN(183)) &\n  D_VAR(183) = RCT(57)*V(345)+RCT(179)*V(351)+RCT(219)*V(342)+RCT(321)*V(340)\nIF (DO_FUN(184)) &\n  D_VAR(184) = RCT(683)+RCT(684)*V(345)\nIF (DO_FUN(185)) &\n  D_VAR(185) = RCT(662)*V(345)+RCT(1009)\nIF (DO_FUN(186)) &\n  D_VAR(186) = RCT(622)*V(345)+RCT(624)*V(345)+RCT(625)*V(345)+RCT(627)*V(345)+RCT(628)*V(345)+RCT(874)+RCT(1029)&\n                 &+RCT(1030)\nIF (DO_FUN(187)) &\n  D_VAR(187) = RCT(531)*V(345)+RCT(532)*V(345)+RCT(535)*V(345)+RCT(1016)\nIF (DO_FUN(188)) &\n  D_VAR(188) = RCT(141)*V(345)\nIF (DO_FUN(189)) &\n  D_VAR(189) = RCT(709)*V(346)+RCT(710)*V(337)\nIF (DO_FUN(190)) &\n  D_VAR(190) = RCT(588)+RCT(589)*V(337)+RCT(590)*V(346)+RCT(591)*V(346)\nIF (DO_FUN(191)) &\n  D_VAR(191) = RCT(375)*V(351)+RCT(382)*V(345)+RCT(383)*V(341)\nIF (DO_FUN(192)) &\n  D_VAR(192) = RCT(533)*V(345)+RCT(534)*V(345)+RCT(536)*V(345)+RCT(1017)\nIF (DO_FUN(193)) &\n  D_VAR(193) = RCT(450)*V(345)+RCT(451)*V(341)+RCT(452)*V(351)\nIF (DO_FUN(194)) &\n  D_VAR(194) = RCT(661)*V(345)+RCT(1010)\nIF (DO_FUN(195)) &\n  D_VAR(195) = RCT(741)*V(345)+RCT(742)*V(351)\nIF (DO_FUN(196)) &\n  D_VAR(196) = RCT(72)*V(345)+RCT(927)\nIF (DO_FUN(197)) &\n  D_VAR(197) = RCT(84)*V(337)+RCT(85)*V(346)+RCT(86)*V(335)\nIF (DO_FUN(198)) &\n  D_VAR(198) = RCT(689)*V(345)+RCT(1036)\nIF (DO_FUN(199)) &\n  D_VAR(199) = RCT(538)*V(345)+RCT(1019)\nIF (DO_FUN(200)) &\n  D_VAR(200) = RCT(707)*V(345)+RCT(708)*V(351)\nIF (DO_FUN(201)) &\n  D_VAR(201) = RCT(770)*V(345)+RCT(771)*V(341)+RCT(772)\nIF (DO_FUN(202)) &\n  D_VAR(202) = RCT(745)*V(345)+RCT(746)*V(341)+RCT(747)*V(351)\nIF (DO_FUN(203)) &\n  D_VAR(203) = RCT(761)*V(341)+RCT(762)*V(335)\nIF (DO_FUN(204)) &\n  D_VAR(204) = RCT(748)*V(345)+RCT(749)*V(351)+RCT(1043)\nIF (DO_FUN(205)) &\n  D_VAR(205) = RCT(584)+RCT(585)*V(337)+RCT(586)*V(346)+RCT(587)*V(346)\nIF (DO_FUN(206)) &\n  D_VAR(206) = RCT(592)+RCT(594)*V(337)+RCT(595)*V(346)+RCT(596)*V(346)\nIF (DO_FUN(207)) &\n  D_VAR(207) = RCT(593)+RCT(597)*V(337)+RCT(598)*V(346)+RCT(599)*V(346)\nIF (DO_FUN(208)) &\n  D_VAR(208) = RCT(665)*V(345)+RCT(1006)\nIF (DO_FUN(209)) &\n  D_VAR(209) = RCT(537)*V(345)+RCT(1018)\nIF (DO_FUN(210)) &\n  D_VAR(210) = RCT(696)*V(345)+RCT(697)*V(345)+RCT(1003)\nIF (DO_FUN(211)) &\n  D_VAR(211) = RCT(426)*V(345)+RCT(427)*V(341)+RCT(428)*V(351)\nIF (DO_FUN(212)) &\n  D_VAR(212) = RCT(78)*V(346)+RCT(79)*V(337)\nIF (DO_FUN(213)) &\n  D_VAR(213) = RCT(155)*V(335)+RCT(157)*V(346)+RCT(158)*V(337)+RCT(159)*V(351)\nIF (DO_FUN(214)) &\n  D_VAR(214) = RCT(46)+RCT(786)*V(336)+RCT(787)*V(339)+RCT(788)+RCT(789)*V(353)+RCT(790)*V(344)+RCT(896)\nIF (DO_FUN(215)) &\n  D_VAR(215) = RCT(529)*V(345)+RCT(873)\nIF (DO_FUN(216)) &\n  D_VAR(216) = RCT(654)*V(345)+RCT(879)+RCT(1015)\nIF (DO_FUN(217)) &\n  D_VAR(217) = RCT(245)*F(3)+RCT(246)*V(341)+RCT(247)*V(337)\nIF (DO_FUN(218)) &\n  D_VAR(218) = RCT(210)*V(342)+RCT(793)*V(336)+RCT(794)*V(339)+RCT(934)+RCT(935)\nIF (DO_FUN(219)) &\n  D_VAR(219) = RCT(376)*V(351)+RCT(380)*V(345)+RCT(381)*V(341)\nIF (DO_FUN(220)) &\n  D_VAR(220) = RCT(702)*V(345)+RCT(703)*V(351)+RCT(704)*V(341)\nIF (DO_FUN(221)) &\n  D_VAR(221) = RCT(767)*V(345)+RCT(768)*V(341)+RCT(769)\nIF (DO_FUN(222)) &\n  D_VAR(222) = RCT(621)*V(345)+RCT(623)*V(345)+RCT(626)*V(345)+RCT(875)+RCT(1028)\nIF (DO_FUN(223)) &\n  D_VAR(223) = RCT(539)+RCT(540)*V(346)+RCT(541)*V(346)+RCT(542)*V(337)\nIF (DO_FUN(224)) &\n  D_VAR(224) = RCT(543)+RCT(544)*V(346)+RCT(545)*V(346)+RCT(546)*V(337)\nIF (DO_FUN(225)) &\n  D_VAR(225) = RCT(389)*V(351)+RCT(390)*V(345)+RCT(1049)\nIF (DO_FUN(226)) &\n  D_VAR(226) = RCT(629)+RCT(632)*V(337)+RCT(635)*V(346)+RCT(636)*V(346)\nIF (DO_FUN(227)) &\n  D_VAR(227) = RCT(664)*V(345)+RCT(1007)\nIF (DO_FUN(228)) &\n  D_VAR(228) = RCT(25)*V(345)+RCT(231)*V(334)+RCT(291)*V(340)\nIF (DO_FUN(229)) &\n  D_VAR(229) = RCT(447)*V(345)+RCT(448)*V(341)+RCT(449)*V(351)+RCT(989)+RCT(1057)\nIF (DO_FUN(230)) &\n  D_VAR(230) = RCT(524)*V(345)+RCT(1020)\nIF (DO_FUN(231)) &\n  D_VAR(231) = RCT(525)*V(345)+RCT(1021)\nIF (DO_FUN(232)) &\n  D_VAR(232) = RCT(547)+RCT(548)*V(346)+RCT(549)*V(346)+RCT(550)*V(337)\nIF (DO_FUN(233)) &\n  D_VAR(233) = RCT(81)*V(345)+RCT(901)\nIF (DO_FUN(234)) &\n  D_VAR(234) = RCT(715)*V(337)+RCT(716)*V(346)+RCT(717)*V(351)+RCT(718)*V(328)\nIF (DO_FUN(235)) &\n  D_VAR(235) = RCT(750)*V(337)+RCT(751)*V(346)+RCT(752)*V(335)+RCT(766)*V(328)\nIF (DO_FUN(236)) &\n  D_VAR(236) = RCT(756)*V(335)+RCT(757)*V(346)+RCT(758)*V(351)+RCT(759)*V(337)+RCT(765)*V(328)\nIF (DO_FUN(237)) &\n  D_VAR(237) = RCT(423)*V(345)+RCT(424)*V(341)+RCT(425)*V(351)\nIF (DO_FUN(238)) &\n  D_VAR(238) = RCT(528)*V(345)\nIF (DO_FUN(239)) &\n  D_VAR(239) = RCT(38)*V(345)+RCT(891)\nIF (DO_FUN(240)) &\n  D_VAR(240) = RCT(736)*V(346)+RCT(737)*V(337)+RCT(738)*V(335)\nIF (DO_FUN(241)) &\n  D_VAR(241) = RCT(369)*V(329)+RCT(370)*V(346)+RCT(371)*V(335)+RCT(372)*V(348)+RCT(373)*V(336)+RCT(374)*V(336)\nIF (DO_FUN(242)) &\n  D_VAR(242) = RCT(482)*V(345)+RCT(483)*V(341)+RCT(484)*V(351)+RCT(865)+RCT(992)\nIF (DO_FUN(243)) &\n  D_VAR(243) = RCT(566)*V(337)+RCT(567)*V(346)+RCT(568)*V(346)+RCT(569)\nIF (DO_FUN(244)) &\n  D_VAR(244) = RCT(33)*V(345)+RCT(984)\nIF (DO_FUN(245)) &\n  D_VAR(245) = RCT(255)*V(334)+RCT(273)*V(345)+RCT(943)\nIF (DO_FUN(246)) &\n  D_VAR(246) = RCT(124)*V(335)+RCT(127)*V(346)+RCT(128)*V(337)\nIF (DO_FUN(247)) &\n  D_VAR(247) = RCT(361)*V(345)+RCT(1005)\nIF (DO_FUN(248)) &\n  D_VAR(248) = RCT(653)*V(345)+RCT(880)+RCT(1014)\nIF (DO_FUN(249)) &\n  D_VAR(249) = RCT(92)*V(346)+RCT(117)*V(337)+RCT(135)*V(328)+RCT(188)*V(324)\nIF (DO_FUN(250)) &\n  D_VAR(250) = RCT(100)*V(346)+RCT(121)*V(337)+RCT(139)*V(328)+RCT(189)*V(324)\nIF (DO_FUN(251)) &\n  D_VAR(251) = RCT(102)*V(345)+RCT(863)+RCT(926)\nIF (DO_FUN(252)) &\n  D_VAR(252) = RCT(337)+RCT(338)*2*V(252)+RCT(839)+RCT(840)+RCT(844)*V(349)+RCT(845)*V(350)+RCT(846)*V(353)+RCT(847)&\n                 &*V(344)+RCT(971)\nIF (DO_FUN(253)) &\n  D_VAR(253) = RCT(670)*V(337)+RCT(673)+RCT(674)*V(346)+RCT(675)*V(346)\nIF (DO_FUN(254)) &\n  D_VAR(254) = RCT(667)*V(337)+RCT(668)*V(346)+RCT(669)*V(346)\nIF (DO_FUN(255)) &\n  D_VAR(255) = RCT(420)*V(345)+RCT(421)*V(341)+RCT(422)*V(351)+RCT(1058)\nIF (DO_FUN(256)) &\n  D_VAR(256) = RCT(481)*V(345)+RCT(485)*V(351)+RCT(864)+RCT(991)\nIF (DO_FUN(257)) &\n  D_VAR(257) = RCT(391)*V(337)+RCT(392)*V(346)+RCT(393)*V(335)+RCT(395)*V(351)+RCT(464)*V(328)+RCT(465)*V(324)\nIF (DO_FUN(258)) &\n  D_VAR(258) = RCT(686)*V(345)+RCT(1033)+RCT(1034)\nIF (DO_FUN(259)) &\n  D_VAR(259) = RCT(671)*V(337)+RCT(676)*V(346)+RCT(677)*V(335)\nIF (DO_FUN(260)) &\n  D_VAR(260) = RCT(65)*V(346)+RCT(113)*V(328)+RCT(147)*V(337)+RCT(192)*V(324)\nIF (DO_FUN(261)) &\n  D_VAR(261) = RCT(360)*V(345)+RCT(692)*V(351)+RCT(990)\nIF (DO_FUN(262)) &\n  D_VAR(262) = RCT(453)*V(345)+RCT(454)*V(341)+RCT(455)*V(351)\nIF (DO_FUN(263)) &\n  D_VAR(263) = RCT(727)*V(337)+RCT(728)*V(346)+RCT(729)*V(351)+RCT(730)*V(328)+RCT(731)*V(324)\nIF (DO_FUN(264)) &\n  D_VAR(264) = RCT(7)*V(348)+RCT(21)*V(345)+RCT(244)*V(343)+RCT(295)*V(340)+RCT(886)\nIF (DO_FUN(265)) &\n  D_VAR(265) = RCT(47)*V(345)+RCT(318)*V(340)\nIF (DO_FUN(266)) &\n  D_VAR(266) = RCT(690)*V(345)+RCT(877)+RCT(1040)+RCT(1041)\nIF (DO_FUN(267)) &\n  D_VAR(267) = RCT(580)*V(345)+RCT(581)*V(345)+RCT(583)*V(345)+RCT(872)+RCT(1027)\nIF (DO_FUN(268)) &\n  D_VAR(268) = RCT(578)*V(345)+RCT(579)*V(345)+RCT(582)*V(345)+RCT(869)+RCT(1024)\nIF (DO_FUN(269)) &\n  D_VAR(269) = RCT(763)*V(345)+RCT(764)*V(351)+RCT(881)+RCT(1046)\nIF (DO_FUN(270)) &\n  D_VAR(270) = RCT(163)*V(345)+RCT(165)*V(351)+RCT(856)+RCT(908)+RCT(909)+RCT(910)\nIF (DO_FUN(271)) &\n  D_VAR(271) = RCT(630)+RCT(631)*V(337)+RCT(633)*V(346)+RCT(634)*V(346)\nIF (DO_FUN(272)) &\n  D_VAR(272) = RCT(429)*V(346)+RCT(430)*V(337)+RCT(431)*V(351)+RCT(432)*V(328)\nIF (DO_FUN(273)) &\n  D_VAR(273) = RCT(410)*V(337)+RCT(411)*V(346)+RCT(412)*V(346)+RCT(413)*V(328)+RCT(414)*V(351)\nIF (DO_FUN(274)) &\n  D_VAR(274) = RCT(436)*V(337)+RCT(437)*V(346)+RCT(438)*V(335)+RCT(440)*V(351)+RCT(466)*V(328)+RCT(467)*V(324)\nIF (DO_FUN(275)) &\n  D_VAR(275) = RCT(404)*V(337)+RCT(405)*V(346)+RCT(406)*V(351)+RCT(458)*V(328)+RCT(459)*V(324)\nIF (DO_FUN(276)) &\n  D_VAR(276) = RCT(330)*V(340)+RCT(493)*V(341)+RCT(494)*V(345)+RCT(495)*V(345)+RCT(496)*V(345)+RCT(497)*V(345)+RCT(603)&\n                 &*V(351)\nIF (DO_FUN(277)) &\n  D_VAR(277) = RCT(384)*V(337)+RCT(385)*V(346)+RCT(386)*V(351)+RCT(456)*V(328)+RCT(457)*V(324)\nIF (DO_FUN(278)) &\n  D_VAR(278) = RCT(398)*V(337)+RCT(399)*V(346)+RCT(400)*V(351)+RCT(401)*V(328)\nIF (DO_FUN(279)) &\n  D_VAR(279) = RCT(103)*V(345)+RCT(929)\nIF (DO_FUN(280)) &\n  D_VAR(280) = RCT(468)*V(346)+RCT(470)*V(337)+RCT(472)*V(328)+RCT(474)*V(324)+RCT(476)*V(351)+RCT(478)*2*V(280)&\n                 &+RCT(479)*V(289)\nIF (DO_FUN(281)) &\n  D_VAR(281) = RCT(417)*V(337)+RCT(418)*V(346)+RCT(419)*V(351)+RCT(460)*V(328)+RCT(461)*V(324)\nIF (DO_FUN(282)) &\n  D_VAR(282) = RCT(48)*V(345)+RCT(324)*V(340)\nIF (DO_FUN(283)) &\n  D_VAR(283) = RCT(104)*V(345)+RCT(326)*V(340)\nIF (DO_FUN(284)) &\n  D_VAR(284) = RCT(340)*V(335)+RCT(344)*V(347)+RCT(345)*V(96)+RCT(349)*V(338)+RCT(355)*V(337)+RCT(356)*V(346)+RCT(357)*2&\n                 &*V(284)+RCT(968)\nIF (DO_FUN(285)) &\n  D_VAR(285) = RCT(561)+RCT(562)+RCT(563)*V(346)+RCT(564)*V(346)+RCT(565)*V(337)\nIF (DO_FUN(286)) &\n  D_VAR(286) = RCT(556)+RCT(557)+RCT(558)*V(337)+RCT(559)*V(346)+RCT(560)*V(346)\nIF (DO_FUN(287)) &\n  D_VAR(287) = RCT(652)*V(345)+RCT(1011)\nIF (DO_FUN(288)) &\n  D_VAR(288) = RCT(651)*V(345)+RCT(1008)\nIF (DO_FUN(289)) &\n  D_VAR(289) = RCT(469)*V(346)+RCT(471)*V(337)+RCT(473)*V(328)+RCT(475)*V(324)+RCT(477)*V(351)+RCT(479)*V(280)+RCT(480)&\n                 &*2*V(289)\nIF (DO_FUN(290)) &\n  D_VAR(290) = RCT(149)*V(345)+RCT(150)*V(341)+RCT(162)*V(351)+RCT(332)*V(340)+RCT(333)*V(342)\nIF (DO_FUN(291)) &\n  D_VAR(291) = RCT(443)*V(337)+RCT(444)*V(346)+RCT(445)*V(346)+RCT(446)*V(351)+RCT(462)*V(328)+RCT(463)*V(324)\nIF (DO_FUN(292)) &\n  D_VAR(292) = RCT(122)*V(345)+RCT(131)*V(351)+RCT(906)\nIF (DO_FUN(293)) &\n  D_VAR(293) = RCT(600)*V(337)+RCT(601)*V(346)+RCT(602)*V(346)\nIF (DO_FUN(294)) &\n  D_VAR(294) = RCT(164)*V(345)+RCT(166)*V(351)+RCT(857)+RCT(911)\nIF (DO_FUN(295)) &\n  D_VAR(295) = RCT(111)*V(345)+RCT(218)*V(342)+RCT(329)*V(340)+RCT(904)+RCT(905)\nIF (DO_FUN(296)) &\n  D_VAR(296) = RCT(58)*V(346)+RCT(59)*V(346)+RCT(129)*V(328)+RCT(142)*2*V(296)+RCT(144)*V(337)+RCT(190)*V(324)+RCT(322)&\n                 &*V(340)\nIF (DO_FUN(297)) &\n  D_VAR(297) = RCT(281)*V(345)+RCT(802)*V(353)+RCT(803)*V(344)+RCT(804)*V(339)+RCT(805)*V(349)+RCT(806)*V(350)+RCT(807)&\n                 &*V(352)+RCT(947)\nIF (DO_FUN(298)) &\n  D_VAR(298) = RCT(105)*V(345)+RCT(110)*V(351)+RCT(903)\nIF (DO_FUN(299)) &\n  D_VAR(299) = RCT(641)*V(345)+RCT(876)+RCT(1032)\nIF (DO_FUN(300)) &\n  D_VAR(300) = RCT(90)*V(346)+RCT(91)*V(346)+RCT(116)*V(337)+RCT(134)*V(328)+RCT(183)*V(324)\nIF (DO_FUN(301)) &\n  D_VAR(301) = RCT(637)*V(345)+RCT(638)*V(345)+RCT(1031)\nIF (DO_FUN(302)) &\n  D_VAR(302) = RCT(650)*V(345)+RCT(862)+RCT(1013)\nIF (DO_FUN(303)) &\n  D_VAR(303) = RCT(691)*V(345)+RCT(878)+RCT(1038)+RCT(1039)\nIF (DO_FUN(304)) &\n  D_VAR(304) = RCT(500)*V(337)+RCT(501)*V(337)+RCT(504)+RCT(505)+RCT(507)*2*V(304)+RCT(508)*V(305)+RCT(510)*2*V(304)&\n                 &+RCT(511)*V(305)+RCT(514)*V(328)+RCT(515)*V(328)+RCT(520)*V(346)+RCT(521)*V(346)+RCT(522)*V(346)+RCT(523)&\n                 &*V(346)\nIF (DO_FUN(305)) &\n  D_VAR(305) = RCT(498)*V(337)+RCT(499)*V(337)+RCT(502)+RCT(503)+RCT(506)*2*V(305)+RCT(508)*V(304)+RCT(509)*2*V(305)&\n                 &+RCT(511)*V(304)+RCT(512)*V(328)+RCT(513)*V(328)+RCT(516)*V(346)+RCT(517)*V(346)+RCT(518)*V(346)+RCT(519)&\n                 &*V(346)\nIF (DO_FUN(306)) &\n  D_VAR(306) = RCT(151)*V(345)+RCT(152)*V(345)+RCT(153)*V(345)+RCT(154)*V(351)+RCT(907)\nIF (DO_FUN(307)) &\n  D_VAR(307) = RCT(167)*V(345)+RCT(168)*V(345)+RCT(916)\nIF (DO_FUN(308)) &\n  D_VAR(308) = RCT(678)*V(337)+RCT(679)*V(346)+RCT(680)*V(335)+RCT(681)*V(351)+RCT(682)*V(328)\nIF (DO_FUN(309)) &\n  D_VAR(309) = RCT(646)*V(345)+RCT(647)*V(345)+RCT(648)*V(341)+RCT(649)*V(351)+RCT(915)\nIF (DO_FUN(310)) &\n  D_VAR(310) = RCT(604)*V(337)+RCT(606)*2*V(310)+RCT(607)*V(311)+RCT(610)*V(328)+RCT(611)*V(324)+RCT(613)*V(351)&\n                 &+RCT(615)*V(346)+RCT(616)*V(346)\nIF (DO_FUN(311)) &\n  D_VAR(311) = RCT(605)*V(337)+RCT(607)*V(310)+RCT(608)*2*V(311)+RCT(609)*V(328)+RCT(612)*V(324)+RCT(614)*V(351)&\n                 &+RCT(617)*V(346)+RCT(618)*V(346)\nIF (DO_FUN(312)) &\n  D_VAR(312) = RCT(362)*V(329)+RCT(363)*V(346)+RCT(364)*V(335)+RCT(365)*V(336)+RCT(366)*V(336)*V(336)+RCT(367)*V(341)&\n                 &+RCT(368)*V(348)\nIF (DO_FUN(313)) &\n  D_VAR(313) = RCT(96)*V(346)+RCT(118)*V(337)+RCT(136)*V(328)+RCT(184)*V(324)\nIF (DO_FUN(314)) &\n  D_VAR(314) = RCT(644)*V(345)+RCT(645)*V(341)+RCT(912)+RCT(913)+RCT(914)\nIF (DO_FUN(315)) &\n  D_VAR(315) = RCT(60)*V(346)+RCT(130)*V(328)+RCT(143)*2*V(315)+RCT(145)*V(337)+RCT(191)*V(324)+RCT(323)*V(340)\nIF (DO_FUN(316)) &\n  D_VAR(316) = RCT(212)*V(343)+RCT(813)*V(352)+RCT(814)*V(339)+RCT(815)*V(353)+RCT(816)*V(344)+RCT(817)*V(349)+RCT(818)&\n                 &*V(350)+RCT(819)*V(348)+RCT(933)\nIF (DO_FUN(317)) &\n  D_VAR(317) = RCT(282)*V(345)+RCT(313)*V(343)+RCT(314)*V(340)+RCT(795)*V(336)+RCT(796)*V(339)+RCT(797)*V(352)+RCT(798)&\n                 &*V(349)+RCT(799)*V(350)+RCT(800)*V(353)+RCT(801)*V(344)+RCT(948)+RCT(949)\nIF (DO_FUN(318)) &\n  D_VAR(318) = RCT(95)*V(346)+RCT(115)*V(337)+RCT(133)*V(328)+RCT(187)*V(324)\nIF (DO_FUN(319)) &\n  D_VAR(319) = RCT(93)*V(346)+RCT(94)*V(346)+RCT(114)*V(337)+RCT(132)*V(328)+RCT(182)*V(324)\nIF (DO_FUN(320)) &\n  D_VAR(320) = RCT(97)*V(346)+RCT(119)*V(337)+RCT(123)*V(346)+RCT(137)*V(328)+RCT(185)*V(324)\nIF (DO_FUN(321)) &\n  D_VAR(321) = RCT(63)*V(346)+RCT(64)*V(346)+RCT(112)*V(328)+RCT(146)*V(337)+RCT(193)*V(324)\nIF (DO_FUN(322)) &\n  D_VAR(322) = RCT(106)*V(335)+RCT(109)*V(346)+RCT(148)*V(337)+RCT(194)*V(324)+RCT(195)*V(328)\nIF (DO_FUN(323)) &\n  D_VAR(323) = RCT(98)*V(346)+RCT(99)*V(346)+RCT(120)*V(337)+RCT(138)*V(328)+RCT(186)*V(324)\nIF (DO_FUN(324)) &\n  D_VAR(324) = RCT(53)*V(335)+RCT(56)*V(346)+RCT(180)*2*V(324)+RCT(181)*V(328)+RCT(182)*V(319)+RCT(183)*V(300)+RCT(184)&\n                 &*V(313)+RCT(185)*V(320)+RCT(186)*V(323)+RCT(187)*V(318)+RCT(188)*V(249)+RCT(189)*V(250)+RCT(190)*V(296)&\n                 &+RCT(191)*V(315)+RCT(192)*V(260)+RCT(193)*V(321)+RCT(194)*V(322)+RCT(457)*V(277)+RCT(459)*V(275)+RCT(461)&\n                 &*V(281)+RCT(463)*V(291)+RCT(465)*V(257)+RCT(467)*V(274)+RCT(474)*V(280)+RCT(475)*V(289)+RCT(611)*V(310)&\n                 &+RCT(612)*V(311)+RCT(695)*V(337)+RCT(731)*V(263)\nIF (DO_FUN(325)) &\n  D_VAR(325) = RCT(10)*V(348)+RCT(34)*V(345)+RCT(50)*V(351)+RCT(216)*V(342)+RCT(252)*V(343)+RCT(292)*V(340)+RCT(888)&\n                 &+RCT(889)\nIF (DO_FUN(326)) &\n  D_VAR(326) = RCT(51)*V(345)+RCT(52)*V(351)+RCT(217)*V(342)+RCT(897)+RCT(898)\nIF (DO_FUN(327)) &\n  D_VAR(327) = RCT(3)*V(179)+RCT(6)*V(166)+RCT(36)*V(345)+RCT(890)\nIF (DO_FUN(328)) &\n  D_VAR(328) = RCT(17)*V(341)+RCT(26)*V(346)+RCT(27)*V(346)+RCT(28)*V(337)+RCT(29)*2*V(328)+RCT(30)*2*V(328)+RCT(31)&\n                 &*V(345)+RCT(112)*V(321)+RCT(113)*V(260)+RCT(129)*V(296)+RCT(130)*V(315)+RCT(132)*V(319)+RCT(133)*V(318)&\n                 &+RCT(134)*V(300)+RCT(135)*V(249)+RCT(136)*V(313)+RCT(137)*V(320)+RCT(138)*V(323)+RCT(139)*V(250)+RCT(181)&\n                 &*V(324)+RCT(195)*V(322)+RCT(197)*V(335)+RCT(274)*V(338)+RCT(319)*V(340)+RCT(401)*V(278)+RCT(413)*V(273)&\n                 &+RCT(432)*V(272)+RCT(456)*V(277)+RCT(458)*V(275)+RCT(460)*V(281)+RCT(462)*V(291)+RCT(464)*V(257)+RCT(466)&\n                 &*V(274)+RCT(472)*V(280)+RCT(473)*V(289)+RCT(512)*V(305)+RCT(513)*V(305)+RCT(514)*V(304)+RCT(515)*V(304)&\n                 &+RCT(609)*V(311)+RCT(610)*V(310)+RCT(682)*V(308)+RCT(718)*V(234)+RCT(730)*V(263)+RCT(765)*V(236)+RCT(766)&\n                 &*V(235)+RCT(779)*V(351)\nIF (DO_FUN(329)) &\n  D_VAR(329) = RCT(24)*V(345)+RCT(362)*V(312)+RCT(369)*V(241)\nIF (DO_FUN(330)) &\n  D_VAR(330) = RCT(354)*V(345)+RCT(828)+RCT(829)+RCT(852)*V(349)+RCT(853)*V(350)+RCT(854)*V(353)+RCT(855)*V(344)&\n                 &+RCT(967)\nIF (DO_FUN(331)) &\n  D_VAR(331) = RCT(334)*V(346)+RCT(336)*V(335)+RCT(342)*V(332)+RCT(343)*V(347)+RCT(350)*V(341)+RCT(351)*V(337)\nIF (DO_FUN(332)) &\n  D_VAR(332) = RCT(341)+RCT(342)*V(331)+RCT(841)+RCT(842)+RCT(843)*V(336)+RCT(848)*V(349)+RCT(849)*V(350)+RCT(850)&\n                 &*V(353)+RCT(851)*V(344)+RCT(972)\nIF (DO_FUN(333)) &\n  D_VAR(333) = RCT(280)*V(345)+RCT(808)*V(339)+RCT(809)*V(352)+RCT(810)*V(353)+RCT(811)*V(344)+RCT(812)*V(348)+RCT(950)\nIF (DO_FUN(334)) &\n  D_VAR(334) = RCT(226)*V(336)+RCT(227)*F(2)+RCT(228)*F(3)+RCT(229)*F(1)+RCT(230)*V(63)+RCT(231)*V(228)+RCT(237)*V(341)&\n                 &+RCT(253)*V(339)+RCT(254)*V(352)+RCT(255)*V(245)+RCT(256)*V(46)+RCT(257)*V(181)+RCT(258)*V(105)+RCT(259)&\n                 &*V(78)+RCT(260)*V(81)+RCT(261)*V(87)+RCT(262)*V(47)+RCT(263)*V(48)+RCT(264)*V(61)+RCT(265)*V(53)+RCT(266)&\n                 &*V(85)+RCT(267)*V(86)+RCT(268)*V(84)+RCT(269)*V(49)+RCT(270)*V(50)+RCT(271)*V(51)+RCT(272)*V(54)\nIF (DO_FUN(335)) &\n  D_VAR(335) = RCT(16)*V(341)+RCT(35)*V(345)+RCT(39)*V(337)+RCT(45)*V(351)+RCT(49)*V(351)+RCT(53)*V(324)+RCT(86)*V(197)&\n                 &+RCT(106)*V(322)+RCT(124)*V(246)+RCT(155)*V(213)+RCT(197)*V(328)+RCT(221)*V(342)+RCT(222)*V(347)+RCT(240)&\n                 &*V(343)+RCT(243)*V(343)+RCT(250)*V(67)+RCT(301)*V(338)+RCT(336)*V(331)+RCT(340)*V(284)+RCT(364)*V(312)&\n                 &+RCT(371)*V(241)+RCT(393)*V(257)+RCT(438)*V(274)+RCT(657)*V(171)+RCT(660)*V(172)+RCT(677)*V(259)+RCT(680)&\n                 &*V(308)+RCT(738)*V(240)+RCT(752)*V(235)+RCT(756)*V(236)+RCT(762)*V(203)+RCT(782)+RCT(885)\nIF (DO_FUN(336)) &\n  D_VAR(336) = RCT(226)*V(334)+RCT(365)*V(312)+RCT(366)*2*V(312)*V(336)+RCT(373)*V(241)+RCT(374)*V(241)+RCT(786)*V(214)&\n                 &+RCT(793)*V(218)+RCT(795)*V(317)+RCT(843)*V(332)\nIF (DO_FUN(337)) &\n  D_VAR(337) = RCT(15)*V(341)+RCT(20)*V(345)+RCT(22)*V(346)+RCT(23)*2*V(337)+RCT(28)*V(328)+RCT(39)*V(335)+RCT(42)&\n                 &*V(351)+RCT(70)*V(178)+RCT(74)*V(165)+RCT(79)*V(212)+RCT(83)*V(132)+RCT(84)*V(197)+RCT(114)*V(319)&\n                 &+RCT(115)*V(318)+RCT(116)*V(300)+RCT(117)*V(249)+RCT(118)*V(313)+RCT(119)*V(320)+RCT(120)*V(323)+RCT(121)&\n                 &*V(250)+RCT(128)*V(246)+RCT(144)*V(296)+RCT(145)*V(315)+RCT(146)*V(321)+RCT(147)*V(260)+RCT(148)*V(322)&\n                 &+RCT(158)*V(213)+RCT(204)*V(347)+RCT(205)*V(342)+RCT(236)*V(343)+RCT(247)*V(217)+RCT(296)*V(340)+RCT(297)&\n                 &*V(340)+RCT(299)*V(338)+RCT(351)*V(331)+RCT(355)*V(284)+RCT(384)*V(277)+RCT(391)*V(257)+RCT(398)*V(278)&\n                 &+RCT(404)*V(275)+RCT(410)*V(273)+RCT(417)*V(281)+RCT(430)*V(272)+RCT(436)*V(274)+RCT(443)*V(291)+RCT(470)&\n                 &*V(280)+RCT(471)*V(289)+RCT(498)*V(305)+RCT(499)*V(305)+RCT(500)*V(304)+RCT(501)*V(304)+RCT(542)*V(223)&\n                 &+RCT(546)*V(224)+RCT(550)*V(232)+RCT(558)*V(286)+RCT(565)*V(285)+RCT(566)*V(243)+RCT(571)*V(133)+RCT(573)&\n                 &*V(135)+RCT(585)*V(205)+RCT(589)*V(190)+RCT(594)*V(206)+RCT(597)*V(207)+RCT(600)*V(293)+RCT(604)*V(310)&\n                 &+RCT(605)*V(311)+RCT(631)*V(271)+RCT(632)*V(226)+RCT(640)*V(182)+RCT(643)*V(180)+RCT(656)*V(171)+RCT(659)&\n                 &*V(172)+RCT(667)*V(254)+RCT(670)*V(253)+RCT(671)*V(259)+RCT(678)*V(308)+RCT(695)*V(324)+RCT(699)*V(18)&\n                 &+RCT(710)*V(189)+RCT(715)*V(234)+RCT(727)*V(263)+RCT(734)*V(121)+RCT(737)*V(240)+RCT(750)*V(235)+RCT(759)&\n                 &*V(236)+RCT(773)*V(13)+RCT(775)*V(22)+RCT(777)*V(27)+RCT(781)\nIF (DO_FUN(338)) &\n  D_VAR(338) = RCT(274)*V(328)+RCT(275)*V(345)+RCT(276)*V(345)+RCT(298)*V(343)+RCT(299)*V(337)+RCT(300)*V(346)+RCT(301)&\n                 &*V(335)+RCT(302)*2*V(338)+RCT(303)*2*V(338)+RCT(304)*2*V(338)+RCT(307)*2*V(338)+RCT(310)*V(347)+RCT(311)&\n                 &*V(347)+RCT(312)*V(347)+RCT(349)*V(284)+RCT(944)\nIF (DO_FUN(339)) &\n  D_VAR(339) = RCT(2)*V(179)+RCT(5)*V(166)+RCT(253)*V(334)+RCT(279)*V(345)+RCT(787)*V(214)+RCT(794)*V(218)+RCT(796)&\n                 &*V(317)+RCT(804)*V(297)+RCT(808)*V(333)+RCT(814)*V(316)\nIF (DO_FUN(340)) &\n  D_VAR(340) = RCT(291)*V(228)+RCT(292)*V(325)+RCT(293)*V(341)+RCT(294)*F(1)+RCT(295)*V(264)+RCT(296)*V(337)+RCT(297)&\n                 &*V(337)+RCT(305)*F(3)+RCT(309)*V(110)+RCT(314)*V(317)+RCT(315)*V(181)+RCT(316)*V(79)+RCT(317)*V(75)&\n                 &+RCT(318)*V(265)+RCT(319)*V(328)+RCT(320)*V(164)+RCT(321)*V(183)+RCT(322)*V(296)+RCT(323)*V(315)+RCT(324)&\n                 &*V(282)+RCT(325)*V(156)+RCT(326)*V(283)+RCT(327)*V(141)+RCT(328)*V(141)+RCT(329)*V(295)+RCT(330)*V(276)&\n                 &+RCT(331)*V(142)+RCT(332)*V(290)\nIF (DO_FUN(341)) &\n  D_VAR(341) = RCT(1)*V(179)*V(348)+RCT(4)*V(166)*V(348)+RCT(8)*V(348)+RCT(13)*V(346)+RCT(14)*V(345)+RCT(15)*V(337)&\n                 &+RCT(16)*V(335)+RCT(17)*V(328)+RCT(77)*V(140)+RCT(150)*V(290)+RCT(203)*V(342)+RCT(233)*V(343)+RCT(237)&\n                 &*V(334)+RCT(246)*V(217)+RCT(293)*V(340)+RCT(350)*V(331)+RCT(367)*V(312)+RCT(379)*V(167)+RCT(381)*V(219)&\n                 &+RCT(383)*V(191)+RCT(421)*V(255)+RCT(424)*V(237)+RCT(427)*V(211)+RCT(448)*V(229)+RCT(451)*V(193)+RCT(454)&\n                 &*V(262)+RCT(483)*V(242)+RCT(493)*V(276)+RCT(645)*V(314)+RCT(648)*V(309)+RCT(704)*V(220)+RCT(712)*V(109)&\n                 &+RCT(746)*V(202)+RCT(761)*V(203)+RCT(768)*V(221)+RCT(771)*V(201)+RCT(820)*V(352)+RCT(821)*V(349)+RCT(822)&\n                 &*V(350)+RCT(882)+RCT(883)\nIF (DO_FUN(342)) &\n  D_VAR(342) = RCT(203)*V(341)+RCT(205)*V(337)+RCT(210)*V(218)+RCT(215)*V(351)+RCT(216)*V(325)+RCT(217)*V(326)+RCT(218)&\n                 &*V(295)+RCT(219)*V(183)+RCT(220)*V(141)+RCT(221)*V(335)+RCT(333)*V(290)\nIF (DO_FUN(343)) &\n  D_VAR(343) = RCT(212)*V(316)+RCT(213)*V(352)+RCT(232)*F(3)+RCT(233)*V(341)+RCT(235)*V(345)+RCT(236)*V(337)+RCT(238)&\n                 &*V(68)+RCT(240)*V(335)+RCT(241)*V(351)+RCT(242)*V(346)+RCT(243)*V(335)+RCT(244)*V(264)+RCT(251)*V(347)&\n                 &+RCT(252)*V(325)+RCT(298)*V(338)+RCT(313)*V(317)\nIF (DO_FUN(344)) &\n  D_VAR(344) = RCT(790)*V(214)+RCT(792)*V(345)+RCT(801)*V(317)+RCT(803)*V(297)+RCT(811)*V(333)+RCT(816)*V(316)+RCT(847)&\n                 &*V(252)+RCT(851)*V(332)+RCT(855)*V(330)\nIF (DO_FUN(345)) &\n  D_VAR(345) = RCT(12)*V(89)*V(348)+RCT(14)*V(341)+RCT(18)*2*V(345)+RCT(19)*2*V(345)+RCT(20)*V(337)+RCT(21)*V(264)&\n                 &+RCT(24)*V(329)+RCT(25)*V(228)+RCT(31)*V(328)+RCT(32)*V(164)+RCT(33)*V(244)+RCT(34)*V(325)+RCT(35)*V(335)&\n                 &+RCT(36)*V(327)+RCT(37)*V(346)+RCT(38)*V(239)+RCT(41)*V(108)+RCT(44)*V(351)+RCT(47)*V(265)+RCT(48)*V(282)&\n                 &+RCT(51)*V(326)+RCT(55)*V(139)+RCT(57)*V(183)+RCT(61)*V(141)+RCT(62)*V(141)+RCT(66)*V(69)+RCT(71)*V(98)&\n                 &+RCT(72)*V(196)+RCT(75)*V(140)+RCT(80)*V(127)+RCT(81)*V(233)+RCT(88)*V(126)+RCT(89)*V(142)+RCT(102)*V(251)&\n                 &+RCT(103)*V(279)+RCT(104)*V(283)+RCT(105)*V(298)+RCT(108)*V(124)+RCT(111)*V(295)+RCT(122)*V(292)+4.51e-12&\n                 &*V(113)+RCT(140)*V(156)+RCT(141)*V(188)+RCT(149)*V(290)+RCT(151)*V(306)+RCT(152)*V(306)+RCT(153)*V(306)&\n                 &+RCT(160)*V(114)+RCT(161)*V(72)+RCT(163)*V(270)+RCT(164)*V(294)+RCT(167)*V(307)+RCT(168)*V(307)+RCT(169)&\n                 &*V(125)+RCT(170)*V(118)+RCT(171)*V(99)+RCT(172)*V(100)+RCT(173)*V(97)+RCT(174)*V(102)+RCT(175)*V(155)&\n                 &+RCT(176)*V(123)+RCT(177)*V(24)+RCT(178)*V(92)+RCT(199)*V(94)+RCT(200)*V(94)+RCT(202)*V(348)+RCT(206)&\n                 &*V(352)+RCT(211)*V(148)+RCT(214)*V(347)+RCT(223)*V(81)+RCT(224)*V(78)+RCT(225)*V(105)+RCT(234)*F(1)&\n                 &+RCT(235)*V(343)+RCT(239)*V(68)+RCT(273)*V(245)+RCT(275)*V(338)+RCT(276)*V(338)+RCT(277)*V(120)+RCT(278)&\n                 &*V(76)+RCT(279)*V(339)+RCT(280)*V(333)+RCT(281)*V(297)+RCT(282)*V(317)+RCT(283)*V(181)+RCT(284)*V(79)&\n                 &+RCT(285)*V(75)+RCT(286)*V(43)+RCT(287)*V(87)+RCT(288)*V(85)+RCT(289)*V(86)+RCT(290)*V(84)+RCT(352)*V(170)&\n                 &+RCT(353)*V(73)+RCT(354)*V(330)+RCT(359)*V(52)+RCT(360)*V(261)+RCT(361)*V(247)+RCT(378)*V(167)+RCT(380)&\n                 &*V(219)+RCT(382)*V(191)+RCT(387)*V(111)+RCT(388)*V(137)+RCT(390)*V(225)+RCT(396)*V(74)+RCT(397)*V(66)&\n                 &+RCT(402)*V(160)+RCT(403)*V(176)+RCT(407)*V(138)+RCT(408)*V(112)+RCT(409)*V(129)+RCT(415)*V(161)+RCT(416)&\n                 &*V(162)+RCT(420)*V(255)+RCT(423)*V(237)+RCT(426)*V(211)+RCT(433)*V(163)+RCT(435)*V(177)+RCT(441)*V(169)&\n                 &+RCT(442)*V(130)+RCT(447)*V(229)+RCT(450)*V(193)+RCT(453)*V(262)+RCT(481)*V(256)+RCT(482)*V(242)+RCT(488)&\n                 &*V(154)+RCT(489)*V(93)+RCT(490)*V(83)+RCT(491)*V(91)+RCT(492)*V(95)+RCT(494)*V(276)+RCT(495)*V(276)&\n                 &+RCT(496)*V(276)+RCT(497)*V(276)+RCT(524)*V(230)+RCT(525)*V(231)+RCT(526)*V(150)+RCT(527)*V(144)+RCT(528)&\n                 &*V(238)+RCT(529)*V(215)+RCT(530)*V(119)+RCT(531)*V(187)+RCT(532)*V(187)+RCT(533)*V(192)+RCT(534)*V(192)&\n                 &+RCT(535)*V(187)+RCT(536)*V(192)+RCT(537)*V(209)+RCT(538)*V(199)+RCT(551)*V(128)+RCT(552)*V(151)+RCT(553)&\n                 &*V(151)+RCT(554)*V(152)+RCT(555)*V(152)+RCT(574)*V(175)+RCT(575)*V(175)+RCT(576)*V(168)+RCT(577)*V(168)&\n                 &+RCT(578)*V(268)+RCT(579)*V(268)+RCT(580)*V(267)+RCT(581)*V(267)+RCT(582)*V(268)+RCT(583)*V(267)+RCT(621)&\n                 &*V(222)+RCT(622)*V(186)+RCT(623)*V(222)+RCT(624)*V(186)+RCT(625)*V(186)+RCT(626)*V(222)+RCT(627)*V(186)&\n                 &+RCT(628)*V(186)+RCT(637)*V(301)+RCT(638)*V(301)+RCT(641)*V(299)+RCT(644)*V(314)+RCT(646)*V(309)+RCT(647)&\n                 &*V(309)+RCT(650)*V(302)+RCT(651)*V(288)+RCT(652)*V(287)+RCT(653)*V(248)+RCT(654)*V(216)+RCT(661)*V(194)&\n                 &+RCT(662)*V(185)+RCT(663)*V(131)+RCT(664)*V(227)+RCT(665)*V(208)+RCT(666)*V(153)+RCT(672)*V(159)+RCT(684)&\n                 &*V(184)+RCT(685)*V(107)+RCT(686)*V(258)+RCT(687)*V(147)+RCT(688)*V(174)+RCT(689)*V(198)+RCT(690)*V(266)&\n                 &+RCT(691)*V(303)+RCT(693)*V(115)+RCT(694)*V(88)+RCT(696)*V(210)+RCT(697)*V(210)+RCT(698)*V(19)+RCT(701)&\n                 &*V(173)+RCT(702)*V(220)+RCT(705)*V(149)+RCT(707)*V(200)+RCT(711)*V(116)+RCT(713)*V(109)+RCT(714)*V(60)&\n                 &+RCT(721)*V(70)+RCT(722)*V(136)+RCT(723)*V(136)+RCT(724)*V(143)+RCT(725)*V(82)+RCT(726)*V(101)+RCT(732)&\n                 &*V(58)+7.09e-11*V(146)+RCT(740)*V(122)+RCT(741)*V(195)+RCT(743)*V(158)+RCT(745)*V(202)+RCT(748)*V(204)&\n                 &+RCT(753)*V(71)+RCT(755)*V(90)+RCT(760)*V(117)+RCT(763)*V(269)+RCT(767)*V(221)+RCT(770)*V(201)+RCT(780)&\n                 &*V(41)+RCT(791)*V(353)+RCT(792)*V(344)\nIF (DO_FUN(346)) &\n  D_VAR(346) = RCT(13)*V(341)+RCT(22)*V(337)+RCT(26)*V(328)+RCT(27)*V(328)+RCT(37)*V(345)+RCT(43)*V(351)+RCT(56)*V(324)&\n                 &+RCT(58)*V(296)+RCT(59)*V(296)+RCT(60)*V(315)+RCT(63)*V(321)+RCT(64)*V(321)+RCT(65)*V(260)+RCT(68)*V(178)&\n                 &+RCT(69)*V(178)+RCT(73)*V(165)+RCT(78)*V(212)+RCT(82)*V(132)+RCT(85)*V(197)+RCT(90)*V(300)+RCT(91)*V(300)&\n                 &+RCT(92)*V(249)+RCT(93)*V(319)+RCT(94)*V(319)+RCT(95)*V(318)+RCT(96)*V(313)+RCT(97)*V(320)+RCT(98)*V(323)&\n                 &+RCT(99)*V(323)+RCT(100)*V(250)+RCT(109)*V(322)+RCT(123)*V(320)+RCT(127)*V(246)+RCT(157)*V(213)+RCT(209)&\n                 &*V(347)+RCT(242)*V(343)+RCT(249)*V(67)+RCT(300)*V(338)+RCT(334)*V(331)+RCT(348)*V(96)+RCT(356)*V(284)&\n                 &+RCT(363)*V(312)+RCT(370)*V(241)+RCT(385)*V(277)+RCT(392)*V(257)+RCT(399)*V(278)+RCT(405)*V(275)+RCT(411)&\n                 &*V(273)+RCT(412)*V(273)+RCT(418)*V(281)+RCT(429)*V(272)+RCT(437)*V(274)+RCT(444)*V(291)+RCT(445)*V(291)&\n                 &+RCT(468)*V(280)+RCT(469)*V(289)+RCT(516)*V(305)+RCT(517)*V(305)+RCT(518)*V(305)+RCT(519)*V(305)+RCT(520)&\n                 &*V(304)+RCT(521)*V(304)+RCT(522)*V(304)+RCT(523)*V(304)+RCT(540)*V(223)+RCT(541)*V(223)+RCT(544)*V(224)&\n                 &+RCT(545)*V(224)+RCT(548)*V(232)+RCT(549)*V(232)+RCT(559)*V(286)+RCT(560)*V(286)+RCT(563)*V(285)+RCT(564)&\n                 &*V(285)+RCT(567)*V(243)+RCT(568)*V(243)+RCT(570)*V(133)+RCT(572)*V(135)+RCT(586)*V(205)+RCT(587)*V(205)&\n                 &+RCT(590)*V(190)+RCT(591)*V(190)+RCT(595)*V(206)+RCT(596)*V(206)+RCT(598)*V(207)+RCT(599)*V(207)+RCT(601)&\n                 &*V(293)+RCT(602)*V(293)+RCT(615)*V(310)+RCT(616)*V(310)+RCT(617)*V(311)+RCT(618)*V(311)+RCT(633)*V(271)&\n                 &+RCT(634)*V(271)+RCT(635)*V(226)+RCT(636)*V(226)+RCT(639)*V(182)+RCT(642)*V(180)+RCT(655)*V(171)+RCT(658)&\n                 &*V(172)+RCT(668)*V(254)+RCT(669)*V(254)+RCT(674)*V(253)+RCT(675)*V(253)+RCT(676)*V(259)+RCT(679)*V(308)&\n                 &+RCT(700)*V(18)+RCT(709)*V(189)+RCT(716)*V(234)+RCT(728)*V(263)+RCT(733)*V(121)+RCT(736)*V(240)+RCT(751)&\n                 &*V(235)+RCT(757)*V(236)+RCT(774)*V(13)+RCT(776)*V(22)+RCT(778)*V(27)+RCT(988)\nIF (DO_FUN(347)) &\n  D_VAR(347) = RCT(204)*V(337)+RCT(207)*2*V(347)+RCT(208)*2*V(347)+RCT(209)*V(346)+RCT(214)*V(345)+RCT(222)*V(335)&\n                 &+RCT(251)*V(343)+RCT(310)*V(338)+RCT(311)*V(338)+RCT(312)*V(338)+RCT(343)*V(331)+RCT(344)*V(284)+RCT(932)\nIF (DO_FUN(348)) &\n  D_VAR(348) = RCT(1)*V(179)*V(341)+RCT(4)*V(166)*V(341)+RCT(7)*V(264)+RCT(8)*V(341)+RCT(9)+RCT(10)*V(325)+RCT(12)*V(89)&\n                 &*V(345)+RCT(202)*V(345)+RCT(368)*V(312)+RCT(372)*V(241)+RCT(812)*V(333)+RCT(819)*V(316)\nIF (DO_FUN(349)) &\n  D_VAR(349) = RCT(798)*V(317)+RCT(805)*V(297)+RCT(817)*V(316)+RCT(821)*V(341)+RCT(844)*V(252)+RCT(848)*V(332)+RCT(852)&\n                 &*V(330)\nIF (DO_FUN(350)) &\n  D_VAR(350) = RCT(799)*V(317)+RCT(806)*V(297)+RCT(818)*V(316)+RCT(822)*V(341)+RCT(845)*V(252)+RCT(849)*V(332)+RCT(853)&\n                 &*V(330)\nIF (DO_FUN(351)) &\n  D_VAR(351) = RCT(42)*V(337)+RCT(43)*V(346)+RCT(44)*V(345)+RCT(45)*V(335)+RCT(49)*V(335)+RCT(50)*V(325)+RCT(52)*V(326)&\n                 &+RCT(67)*V(69)+RCT(76)*V(140)+RCT(101)*V(142)+RCT(110)*V(298)+RCT(131)*V(292)+RCT(154)*V(306)+RCT(159)&\n                 &*V(213)+RCT(162)*V(290)+RCT(165)*V(270)+RCT(166)*V(294)+RCT(179)*V(183)+RCT(196)*2*V(351)+RCT(201)*V(94)&\n                 &+RCT(215)*V(342)+RCT(241)*V(343)+RCT(339)*V(170)+RCT(375)*V(191)+RCT(376)*V(219)+RCT(377)*V(167)+RCT(386)&\n                 &*V(277)+RCT(389)*V(225)+RCT(395)*V(257)+RCT(400)*V(278)+RCT(406)*V(275)+RCT(414)*V(273)+RCT(419)*V(281)&\n                 &+RCT(422)*V(255)+RCT(425)*V(237)+RCT(428)*V(211)+RCT(431)*V(272)+RCT(434)*V(163)+RCT(440)*V(274)+RCT(446)&\n                 &*V(291)+RCT(449)*V(229)+RCT(452)*V(193)+RCT(455)*V(262)+RCT(476)*V(280)+RCT(477)*V(289)+RCT(484)*V(242)&\n                 &+RCT(485)*V(256)+RCT(603)*V(276)+RCT(613)*V(310)+RCT(614)*V(311)+RCT(649)*V(309)+RCT(681)*V(308)+RCT(692)&\n                 &*V(261)+RCT(703)*V(220)+RCT(706)*V(149)+RCT(708)*V(200)+RCT(717)*V(234)+RCT(729)*V(263)+RCT(742)*V(195)&\n                 &+RCT(744)*V(158)+RCT(747)*V(202)+RCT(749)*V(204)+RCT(758)*V(236)+RCT(764)*V(269)+RCT(779)*V(328)+RCT(783)&\n                 &+RCT(784)+RCT(785)+RCT(894)+RCT(895)\nIF (DO_FUN(352)) &\n  D_VAR(352) = RCT(206)*V(345)+RCT(213)*V(343)+RCT(254)*V(334)+RCT(797)*V(317)+RCT(807)*V(297)+RCT(809)*V(333)+RCT(813)&\n                 &*V(316)+RCT(820)*V(341)+RCT(823)+RCT(824)\nIF (DO_FUN(353)) &\n  D_VAR(353) = RCT(789)*V(214)+RCT(791)*V(345)+RCT(800)*V(317)+RCT(802)*V(297)+RCT(810)*V(333)+RCT(815)*V(316)+RCT(846)&\n                 &*V(252)+RCT(850)*V(332)+RCT(854)*V(330)\n\n  Vdot = P_VAR - D_VAR*V\n      \nEND SUBROUTINE Fun_SPLIT\n\n! End of Fun_SPLIT function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Fun_SPLITF - time derivatives of variables - Split form\n!  same as Fun_Split, but does not react to DO_FUN.\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      P_VAR     - Production term\n!      D_VAR     - Destruction term\n!      Aout      - Array to return rxn rates for diagnostics (OPTIONAL)\n! Haipeng Lin (hplin) - Apr 10 2022 KPP 3.0.0-AR\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! P_VAR - Production term\n  REAL(kind=dp) :: P_VAR(NVAR)\n! D_VAR - Destruction term\n  REAL(kind=dp) :: D_VAR(NVAR)\n!### Aout - Array for returning KPP reaction rates for diagnostics\n  REAL(kind=dp), OPTIONAL :: Aout(NREACT)\n\n! Computation of equation rates\n  A(1) = RCT(1)*V(179)*V(341)*V(348)\n  A(2) = RCT(2)*V(179)*V(339)\n  A(3) = RCT(3)*V(179)*V(327)\n  A(4) = RCT(4)*V(166)*V(341)*V(348)\n  A(5) = RCT(5)*V(166)*V(339)\n  A(6) = RCT(6)*V(166)*V(327)\n  A(7) = RCT(7)*V(264)*V(348)\n  A(8) = RCT(8)*V(341)*V(348)\n  A(9) = RCT(9)*V(348)\n  A(10) = RCT(10)*V(325)*V(348)\n  A(11) = RCT(11)*V(89)\n  A(12) = RCT(12)*V(89)*V(345)*V(348)\n  A(13) = RCT(13)*V(341)*V(346)\n  A(14) = RCT(14)*V(341)*V(345)\n  A(15) = RCT(15)*V(337)*V(341)\n  A(16) = RCT(16)*V(335)*V(341)\n  A(17) = RCT(17)*V(328)*V(341)\n  A(18) = RCT(18)*V(345)*V(345)\n  A(19) = RCT(19)*V(345)*V(345)\n  A(20) = RCT(20)*V(337)*V(345)\n  A(21) = RCT(21)*V(264)*V(345)\n  A(22) = RCT(22)*V(337)*V(346)\n  A(23) = RCT(23)*V(337)*V(337)\n  A(24) = RCT(24)*V(329)*V(345)\n  A(25) = RCT(25)*V(228)*V(345)\n  A(26) = RCT(26)*V(328)*V(346)\n  A(27) = RCT(27)*V(328)*V(346)\n  A(28) = RCT(28)*V(328)*V(337)\n  A(29) = RCT(29)*V(328)*V(328)\n  A(30) = RCT(30)*V(328)*V(328)\n  A(31) = RCT(31)*V(328)*V(345)\n  A(32) = RCT(32)*V(164)*V(345)\n  A(33) = RCT(33)*V(244)*V(345)\n  A(34) = RCT(34)*V(325)*V(345)\n  A(35) = RCT(35)*V(335)*V(345)\n  A(36) = RCT(36)*V(327)*V(345)\n  A(37) = RCT(37)*V(345)*V(346)\n  A(38) = RCT(38)*V(239)*V(345)\n  A(39) = RCT(39)*V(335)*V(337)\n  A(40) = RCT(40)*V(108)\n  A(41) = RCT(41)*V(108)*V(345)\n  A(42) = RCT(42)*V(337)*V(351)\n  A(43) = RCT(43)*V(346)*V(351)\n  A(44) = RCT(44)*V(345)*V(351)\n  A(45) = RCT(45)*V(335)*V(351)\n  A(46) = RCT(46)*V(214)\n  A(47) = RCT(47)*V(265)*V(345)\n  A(48) = RCT(48)*V(282)*V(345)\n  A(49) = RCT(49)*V(335)*V(351)\n  A(50) = RCT(50)*V(325)*V(351)\n  A(51) = RCT(51)*V(326)*V(345)\n  A(52) = RCT(52)*V(326)*V(351)\n  A(53) = RCT(53)*V(324)*V(335)\n  A(54) = RCT(54)*V(139)\n  A(55) = RCT(55)*V(139)*V(345)\n  A(56) = RCT(56)*V(324)*V(346)\n  A(57) = RCT(57)*V(183)*V(345)\n  A(58) = RCT(58)*V(296)*V(346)\n  A(59) = RCT(59)*V(296)*V(346)\n  A(60) = RCT(60)*V(315)*V(346)\n  A(61) = RCT(61)*V(141)*V(345)\n  A(62) = RCT(62)*V(141)*V(345)\n  A(63) = RCT(63)*V(321)*V(346)\n  A(64) = RCT(64)*V(321)*V(346)\n  A(65) = RCT(65)*V(260)*V(346)\n  A(66) = RCT(66)*V(69)*V(345)\n  A(67) = RCT(67)*V(69)*V(351)\n  A(68) = RCT(68)*V(178)*V(346)\n  A(69) = RCT(69)*V(178)*V(346)\n  A(70) = RCT(70)*V(178)*V(337)\n  A(71) = RCT(71)*V(98)*V(345)\n  A(72) = RCT(72)*V(196)*V(345)\n  A(73) = RCT(73)*V(165)*V(346)\n  A(74) = RCT(74)*V(165)*V(337)\n  A(75) = RCT(75)*V(140)*V(345)\n  A(76) = RCT(76)*V(140)*V(351)\n  A(77) = RCT(77)*V(140)*V(341)\n  A(78) = RCT(78)*V(212)*V(346)\n  A(79) = RCT(79)*V(212)*V(337)\n  A(80) = RCT(80)*V(127)*V(345)\n  A(81) = RCT(81)*V(233)*V(345)\n  A(82) = RCT(82)*V(132)*V(346)\n  A(83) = RCT(83)*V(132)*V(337)\n  A(84) = RCT(84)*V(197)*V(337)\n  A(85) = RCT(85)*V(197)*V(346)\n  A(86) = RCT(86)*V(197)*V(335)\n  A(87) = RCT(87)*V(126)\n  A(88) = RCT(88)*V(126)*V(345)\n  A(89) = RCT(89)*V(142)*V(345)\n  A(90) = RCT(90)*V(300)*V(346)\n  A(91) = RCT(91)*V(300)*V(346)\n  A(92) = RCT(92)*V(249)*V(346)\n  A(93) = RCT(93)*V(319)*V(346)\n  A(94) = RCT(94)*V(319)*V(346)\n  A(95) = RCT(95)*V(318)*V(346)\n  A(96) = RCT(96)*V(313)*V(346)\n  A(97) = RCT(97)*V(320)*V(346)\n  A(98) = RCT(98)*V(323)*V(346)\n  A(99) = RCT(99)*V(323)*V(346)\n  A(100) = RCT(100)*V(250)*V(346)\n  A(101) = RCT(101)*V(142)*V(351)\n  A(102) = RCT(102)*V(251)*V(345)\n  A(103) = RCT(103)*V(279)*V(345)\n  A(104) = RCT(104)*V(283)*V(345)\n  A(105) = RCT(105)*V(298)*V(345)\n  A(106) = RCT(106)*V(322)*V(335)\n  A(107) = RCT(107)*V(124)\n  A(108) = RCT(108)*V(124)*V(345)\n  A(109) = RCT(109)*V(322)*V(346)\n  A(110) = RCT(110)*V(298)*V(351)\n  A(111) = RCT(111)*V(295)*V(345)\n  A(112) = RCT(112)*V(321)*V(328)\n  A(113) = RCT(113)*V(260)*V(328)\n  A(114) = RCT(114)*V(319)*V(337)\n  A(115) = RCT(115)*V(318)*V(337)\n  A(116) = RCT(116)*V(300)*V(337)\n  A(117) = RCT(117)*V(249)*V(337)\n  A(118) = RCT(118)*V(313)*V(337)\n  A(119) = RCT(119)*V(320)*V(337)\n  A(120) = RCT(120)*V(323)*V(337)\n  A(121) = RCT(121)*V(250)*V(337)\n  A(122) = RCT(122)*V(292)*V(345)\n  A(123) = RCT(123)*V(320)*V(346)\n  A(124) = RCT(124)*V(246)*V(335)\n  A(125) = RCT(125)*V(113)\n  A(126) = 4.51e-12*V(113)*V(345)\n  A(127) = RCT(127)*V(246)*V(346)\n  A(128) = RCT(128)*V(246)*V(337)\n  A(129) = RCT(129)*V(296)*V(328)\n  A(130) = RCT(130)*V(315)*V(328)\n  A(131) = RCT(131)*V(292)*V(351)\n  A(132) = RCT(132)*V(319)*V(328)\n  A(133) = RCT(133)*V(318)*V(328)\n  A(134) = RCT(134)*V(300)*V(328)\n  A(135) = RCT(135)*V(249)*V(328)\n  A(136) = RCT(136)*V(313)*V(328)\n  A(137) = RCT(137)*V(320)*V(328)\n  A(138) = RCT(138)*V(323)*V(328)\n  A(139) = RCT(139)*V(250)*V(328)\n  A(140) = RCT(140)*V(156)*V(345)\n  A(141) = RCT(141)*V(188)*V(345)\n  A(142) = RCT(142)*V(296)*V(296)\n  A(143) = RCT(143)*V(315)*V(315)\n  A(144) = RCT(144)*V(296)*V(337)\n  A(145) = RCT(145)*V(315)*V(337)\n  A(146) = RCT(146)*V(321)*V(337)\n  A(147) = RCT(147)*V(260)*V(337)\n  A(148) = RCT(148)*V(322)*V(337)\n  A(149) = RCT(149)*V(290)*V(345)\n  A(150) = RCT(150)*V(290)*V(341)\n  A(151) = RCT(151)*V(306)*V(345)\n  A(152) = RCT(152)*V(306)*V(345)\n  A(153) = RCT(153)*V(306)*V(345)\n  A(154) = RCT(154)*V(306)*V(351)\n  A(155) = RCT(155)*V(213)*V(335)\n  A(156) = RCT(156)*V(114)\n  A(157) = RCT(157)*V(213)*V(346)\n  A(158) = RCT(158)*V(213)*V(337)\n  A(159) = RCT(159)*V(213)*V(351)\n  A(160) = RCT(160)*V(114)*V(345)\n  A(161) = RCT(161)*V(72)*V(345)\n  A(162) = RCT(162)*V(290)*V(351)\n  A(163) = RCT(163)*V(270)*V(345)\n  A(164) = RCT(164)*V(294)*V(345)\n  A(165) = RCT(165)*V(270)*V(351)\n  A(166) = RCT(166)*V(294)*V(351)\n  A(167) = RCT(167)*V(307)*V(345)\n  A(168) = RCT(168)*V(307)*V(345)\n  A(169) = RCT(169)*V(125)*V(345)\n  A(170) = RCT(170)*V(118)*V(345)\n  A(171) = RCT(171)*V(99)*V(345)\n  A(172) = RCT(172)*V(100)*V(345)\n  A(173) = RCT(173)*V(97)*V(345)\n  A(174) = RCT(174)*V(102)*V(345)\n  A(175) = RCT(175)*V(155)*V(345)\n  A(176) = RCT(176)*V(123)*V(345)\n  A(177) = RCT(177)*V(24)*V(345)\n  A(178) = RCT(178)*V(92)*V(345)\n  A(179) = RCT(179)*V(183)*V(351)\n  A(180) = RCT(180)*V(324)*V(324)\n  A(181) = RCT(181)*V(324)*V(328)\n  A(182) = RCT(182)*V(319)*V(324)\n  A(183) = RCT(183)*V(300)*V(324)\n  A(184) = RCT(184)*V(313)*V(324)\n  A(185) = RCT(185)*V(320)*V(324)\n  A(186) = RCT(186)*V(323)*V(324)\n  A(187) = RCT(187)*V(318)*V(324)\n  A(188) = RCT(188)*V(249)*V(324)\n  A(189) = RCT(189)*V(250)*V(324)\n  A(190) = RCT(190)*V(296)*V(324)\n  A(191) = RCT(191)*V(315)*V(324)\n  A(192) = RCT(192)*V(260)*V(324)\n  A(193) = RCT(193)*V(321)*V(324)\n  A(194) = RCT(194)*V(322)*V(324)\n  A(195) = RCT(195)*V(322)*V(328)\n  A(196) = RCT(196)*V(351)*V(351)\n  A(197) = RCT(197)*V(328)*V(335)\n  A(198) = RCT(198)*V(80)\n  A(199) = RCT(199)*V(94)*V(345)\n  A(200) = RCT(200)*V(94)*V(345)\n  A(201) = RCT(201)*V(94)*V(351)\n  A(202) = RCT(202)*V(345)*V(348)\n  A(203) = RCT(203)*V(341)*V(342)\n  A(204) = RCT(204)*V(337)*V(347)\n  A(205) = RCT(205)*V(337)*V(342)\n  A(206) = RCT(206)*V(345)*V(352)\n  A(207) = RCT(207)*V(347)*V(347)\n  A(208) = RCT(208)*V(347)*V(347)\n  A(209) = RCT(209)*V(346)*V(347)\n  A(210) = RCT(210)*V(218)*V(342)\n  A(211) = RCT(211)*V(148)*V(345)\n  A(212) = RCT(212)*V(316)*V(343)\n  A(213) = RCT(213)*V(343)*V(352)\n  A(214) = RCT(214)*V(345)*V(347)\n  A(215) = RCT(215)*V(342)*V(351)\n  A(216) = RCT(216)*V(325)*V(342)\n  A(217) = RCT(217)*V(326)*V(342)\n  A(218) = RCT(218)*V(295)*V(342)\n  A(219) = RCT(219)*V(183)*V(342)\n  A(220) = RCT(220)*V(141)*V(342)\n  A(221) = RCT(221)*V(335)*V(342)\n  A(222) = RCT(222)*V(335)*V(347)\n  A(223) = RCT(223)*V(81)*V(345)\n  A(224) = RCT(224)*V(78)*V(345)\n  A(225) = RCT(225)*V(105)*V(345)\n  A(226) = RCT(226)*V(334)*V(336)\n  A(227) = RCT(227)*V(334)*F(2)\n  A(228) = RCT(228)*V(334)*F(3)\n  A(229) = RCT(229)*V(334)*F(1)\n  A(230) = RCT(230)*V(63)*V(334)\n  A(231) = RCT(231)*V(228)*V(334)\n  A(232) = RCT(232)*V(343)*F(3)\n  A(233) = RCT(233)*V(341)*V(343)\n  A(234) = RCT(234)*V(345)*F(1)\n  A(235) = RCT(235)*V(343)*V(345)\n  A(236) = RCT(236)*V(337)*V(343)\n  A(237) = RCT(237)*V(334)*V(341)\n  A(238) = RCT(238)*V(68)*V(343)\n  A(239) = RCT(239)*V(68)*V(345)\n  A(240) = RCT(240)*V(335)*V(343)\n  A(241) = RCT(241)*V(343)*V(351)\n  A(242) = RCT(242)*V(343)*V(346)\n  A(243) = RCT(243)*V(335)*V(343)\n  A(244) = RCT(244)*V(264)*V(343)\n  A(245) = RCT(245)*V(217)*F(3)\n  A(246) = RCT(246)*V(217)*V(341)\n  A(247) = RCT(247)*V(217)*V(337)\n  A(248) = RCT(248)*V(67)*F(3)\n  A(249) = RCT(249)*V(67)*V(346)\n  A(250) = RCT(250)*V(67)*V(335)\n  A(251) = RCT(251)*V(343)*V(347)\n  A(252) = RCT(252)*V(325)*V(343)\n  A(253) = RCT(253)*V(334)*V(339)\n  A(254) = RCT(254)*V(334)*V(352)\n  A(255) = RCT(255)*V(245)*V(334)\n  A(256) = RCT(256)*V(46)*V(334)\n  A(257) = RCT(257)*V(181)*V(334)\n  A(258) = RCT(258)*V(105)*V(334)\n  A(259) = RCT(259)*V(78)*V(334)\n  A(260) = RCT(260)*V(81)*V(334)\n  A(261) = RCT(261)*V(87)*V(334)\n  A(262) = RCT(262)*V(47)*V(334)\n  A(263) = RCT(263)*V(48)*V(334)\n  A(264) = RCT(264)*V(61)*V(334)\n  A(265) = RCT(265)*V(53)*V(334)\n  A(266) = RCT(266)*V(85)*V(334)\n  A(267) = RCT(267)*V(86)*V(334)\n  A(268) = RCT(268)*V(84)*V(334)\n  A(269) = RCT(269)*V(49)*V(334)\n  A(270) = RCT(270)*V(50)*V(334)\n  A(271) = RCT(271)*V(51)*V(334)\n  A(272) = RCT(272)*V(54)*V(334)\n  A(273) = RCT(273)*V(245)*V(345)\n  A(274) = RCT(274)*V(328)*V(338)\n  A(275) = RCT(275)*V(338)*V(345)\n  A(276) = RCT(276)*V(338)*V(345)\n  A(277) = RCT(277)*V(120)*V(345)\n  A(278) = RCT(278)*V(76)*V(345)\n  A(279) = RCT(279)*V(339)*V(345)\n  A(280) = RCT(280)*V(333)*V(345)\n  A(281) = RCT(281)*V(297)*V(345)\n  A(282) = RCT(282)*V(317)*V(345)\n  A(283) = RCT(283)*V(181)*V(345)\n  A(284) = RCT(284)*V(79)*V(345)\n  A(285) = RCT(285)*V(75)*V(345)\n  A(286) = RCT(286)*V(43)*V(345)\n  A(287) = RCT(287)*V(87)*V(345)\n  A(288) = RCT(288)*V(85)*V(345)\n  A(289) = RCT(289)*V(86)*V(345)\n  A(290) = RCT(290)*V(84)*V(345)\n  A(291) = RCT(291)*V(228)*V(340)\n  A(292) = RCT(292)*V(325)*V(340)\n  A(293) = RCT(293)*V(340)*V(341)\n  A(294) = RCT(294)*V(340)*F(1)\n  A(295) = RCT(295)*V(264)*V(340)\n  A(296) = RCT(296)*V(337)*V(340)\n  A(297) = RCT(297)*V(337)*V(340)\n  A(298) = RCT(298)*V(338)*V(343)\n  A(299) = RCT(299)*V(337)*V(338)\n  A(300) = RCT(300)*V(338)*V(346)\n  A(301) = RCT(301)*V(335)*V(338)\n  A(302) = RCT(302)*V(338)*V(338)\n  A(303) = RCT(303)*V(338)*V(338)\n  A(304) = RCT(304)*V(338)*V(338)\n  A(305) = RCT(305)*V(340)*F(3)\n  A(306) = RCT(306)*V(110)\n  A(307) = RCT(307)*V(338)*V(338)\n  A(308) = RCT(308)*V(76)\n  A(309) = RCT(309)*V(110)*V(340)\n  A(310) = RCT(310)*V(338)*V(347)\n  A(311) = RCT(311)*V(338)*V(347)\n  A(312) = RCT(312)*V(338)*V(347)\n  A(313) = RCT(313)*V(317)*V(343)\n  A(314) = RCT(314)*V(317)*V(340)\n  A(315) = RCT(315)*V(181)*V(340)\n  A(316) = RCT(316)*V(79)*V(340)\n  A(317) = RCT(317)*V(75)*V(340)\n  A(318) = RCT(318)*V(265)*V(340)\n  A(319) = RCT(319)*V(328)*V(340)\n  A(320) = RCT(320)*V(164)*V(340)\n  A(321) = RCT(321)*V(183)*V(340)\n  A(322) = RCT(322)*V(296)*V(340)\n  A(323) = RCT(323)*V(315)*V(340)\n  A(324) = RCT(324)*V(282)*V(340)\n  A(325) = RCT(325)*V(156)*V(340)\n  A(326) = RCT(326)*V(283)*V(340)\n  A(327) = RCT(327)*V(141)*V(340)\n  A(328) = RCT(328)*V(141)*V(340)\n  A(329) = RCT(329)*V(295)*V(340)\n  A(330) = RCT(330)*V(276)*V(340)\n  A(331) = RCT(331)*V(142)*V(340)\n  A(332) = RCT(332)*V(290)*V(340)\n  A(333) = RCT(333)*V(290)*V(342)\n  A(334) = RCT(334)*V(331)*V(346)\n  A(335) = RCT(335)*V(62)*V(62)\n  A(336) = RCT(336)*V(331)*V(335)\n  A(337) = RCT(337)*V(252)\n  A(338) = RCT(338)*V(252)*V(252)\n  A(339) = RCT(339)*V(170)*V(351)\n  A(340) = RCT(340)*V(284)*V(335)\n  A(341) = RCT(341)*V(332)\n  A(342) = RCT(342)*V(331)*V(332)\n  A(343) = RCT(343)*V(331)*V(347)\n  A(344) = RCT(344)*V(284)*V(347)\n  A(345) = RCT(345)*V(96)*V(284)\n  A(346) = RCT(346)*V(96)*V(96)\n  A(347) = RCT(347)*V(42)\n  A(348) = RCT(348)*V(96)*V(346)\n  A(349) = RCT(349)*V(284)*V(338)\n  A(350) = RCT(350)*V(331)*V(341)\n  A(351) = RCT(351)*V(331)*V(337)\n  A(352) = RCT(352)*V(170)*V(345)\n  A(353) = RCT(353)*V(73)*V(345)\n  A(354) = RCT(354)*V(330)*V(345)\n  A(355) = RCT(355)*V(284)*V(337)\n  A(356) = RCT(356)*V(284)*V(346)\n  A(357) = RCT(357)*V(284)*V(284)\n  A(358) = RCT(358)*V(44)\n  A(359) = RCT(359)*V(52)*V(345)\n  A(360) = RCT(360)*V(261)*V(345)\n  A(361) = RCT(361)*V(247)*V(345)\n  A(362) = RCT(362)*V(312)*V(329)\n  A(363) = RCT(363)*V(312)*V(346)\n  A(364) = RCT(364)*V(312)*V(335)\n  A(365) = RCT(365)*V(312)*V(336)\n  A(366) = RCT(366)*V(312)*V(336)*V(336)\n  A(367) = RCT(367)*V(312)*V(341)\n  A(368) = RCT(368)*V(312)*V(348)\n  A(369) = RCT(369)*V(241)*V(329)\n  A(370) = RCT(370)*V(241)*V(346)\n  A(371) = RCT(371)*V(241)*V(335)\n  A(372) = RCT(372)*V(241)*V(348)\n  A(373) = RCT(373)*V(241)*V(336)\n  A(374) = RCT(374)*V(241)*V(336)\n  A(375) = RCT(375)*V(191)*V(351)\n  A(376) = RCT(376)*V(219)*V(351)\n  A(377) = RCT(377)*V(167)*V(351)\n  A(378) = RCT(378)*V(167)*V(345)\n  A(379) = RCT(379)*V(167)*V(341)\n  A(380) = RCT(380)*V(219)*V(345)\n  A(381) = RCT(381)*V(219)*V(341)\n  A(382) = RCT(382)*V(191)*V(345)\n  A(383) = RCT(383)*V(191)*V(341)\n  A(384) = RCT(384)*V(277)*V(337)\n  A(385) = RCT(385)*V(277)*V(346)\n  A(386) = RCT(386)*V(277)*V(351)\n  A(387) = RCT(387)*V(111)*V(345)\n  A(388) = RCT(388)*V(137)*V(345)\n  A(389) = RCT(389)*V(225)*V(351)\n  A(390) = RCT(390)*V(225)*V(345)\n  A(391) = RCT(391)*V(257)*V(337)\n  A(392) = RCT(392)*V(257)*V(346)\n  A(393) = RCT(393)*V(257)*V(335)\n  A(394) = RCT(394)*V(56)\n  A(395) = RCT(395)*V(257)*V(351)\n  A(396) = RCT(396)*V(74)*V(345)\n  A(397) = RCT(397)*V(66)*V(345)\n  A(398) = RCT(398)*V(278)*V(337)\n  A(399) = RCT(399)*V(278)*V(346)\n  A(400) = RCT(400)*V(278)*V(351)\n  A(401) = RCT(401)*V(278)*V(328)\n  A(402) = RCT(402)*V(160)*V(345)\n  A(403) = RCT(403)*V(176)*V(345)\n  A(404) = RCT(404)*V(275)*V(337)\n  A(405) = RCT(405)*V(275)*V(346)\n  A(406) = RCT(406)*V(275)*V(351)\n  A(407) = RCT(407)*V(138)*V(345)\n  A(408) = RCT(408)*V(112)*V(345)\n  A(409) = RCT(409)*V(129)*V(345)\n  A(410) = RCT(410)*V(273)*V(337)\n  A(411) = RCT(411)*V(273)*V(346)\n  A(412) = RCT(412)*V(273)*V(346)\n  A(413) = RCT(413)*V(273)*V(328)\n  A(414) = RCT(414)*V(273)*V(351)\n  A(415) = RCT(415)*V(161)*V(345)\n  A(416) = RCT(416)*V(162)*V(345)\n  A(417) = RCT(417)*V(281)*V(337)\n  A(418) = RCT(418)*V(281)*V(346)\n  A(419) = RCT(419)*V(281)*V(351)\n  A(420) = RCT(420)*V(255)*V(345)\n  A(421) = RCT(421)*V(255)*V(341)\n  A(422) = RCT(422)*V(255)*V(351)\n  A(423) = RCT(423)*V(237)*V(345)\n  A(424) = RCT(424)*V(237)*V(341)\n  A(425) = RCT(425)*V(237)*V(351)\n  A(426) = RCT(426)*V(211)*V(345)\n  A(427) = RCT(427)*V(211)*V(341)\n  A(428) = RCT(428)*V(211)*V(351)\n  A(429) = RCT(429)*V(272)*V(346)\n  A(430) = RCT(430)*V(272)*V(337)\n  A(431) = RCT(431)*V(272)*V(351)\n  A(432) = RCT(432)*V(272)*V(328)\n  A(433) = RCT(433)*V(163)*V(345)\n  A(434) = RCT(434)*V(163)*V(351)\n  A(435) = RCT(435)*V(177)*V(345)\n  A(436) = RCT(436)*V(274)*V(337)\n  A(437) = RCT(437)*V(274)*V(346)\n  A(438) = RCT(438)*V(274)*V(335)\n  A(439) = RCT(439)*V(57)\n  A(440) = RCT(440)*V(274)*V(351)\n  A(441) = RCT(441)*V(169)*V(345)\n  A(442) = RCT(442)*V(130)*V(345)\n  A(443) = RCT(443)*V(291)*V(337)\n  A(444) = RCT(444)*V(291)*V(346)\n  A(445) = RCT(445)*V(291)*V(346)\n  A(446) = RCT(446)*V(291)*V(351)\n  A(447) = RCT(447)*V(229)*V(345)\n  A(448) = RCT(448)*V(229)*V(341)\n  A(449) = RCT(449)*V(229)*V(351)\n  A(450) = RCT(450)*V(193)*V(345)\n  A(451) = RCT(451)*V(193)*V(341)\n  A(452) = RCT(452)*V(193)*V(351)\n  A(453) = RCT(453)*V(262)*V(345)\n  A(454) = RCT(454)*V(262)*V(341)\n  A(455) = RCT(455)*V(262)*V(351)\n  A(456) = RCT(456)*V(277)*V(328)\n  A(457) = RCT(457)*V(277)*V(324)\n  A(458) = RCT(458)*V(275)*V(328)\n  A(459) = RCT(459)*V(275)*V(324)\n  A(460) = RCT(460)*V(281)*V(328)\n  A(461) = RCT(461)*V(281)*V(324)\n  A(462) = RCT(462)*V(291)*V(328)\n  A(463) = RCT(463)*V(291)*V(324)\n  A(464) = RCT(464)*V(257)*V(328)\n  A(465) = RCT(465)*V(257)*V(324)\n  A(466) = RCT(466)*V(274)*V(328)\n  A(467) = RCT(467)*V(274)*V(324)\n  A(468) = RCT(468)*V(280)*V(346)\n  A(469) = RCT(469)*V(289)*V(346)\n  A(470) = RCT(470)*V(280)*V(337)\n  A(471) = RCT(471)*V(289)*V(337)\n  A(472) = RCT(472)*V(280)*V(328)\n  A(473) = RCT(473)*V(289)*V(328)\n  A(474) = RCT(474)*V(280)*V(324)\n  A(475) = RCT(475)*V(289)*V(324)\n  A(476) = RCT(476)*V(280)*V(351)\n  A(477) = RCT(477)*V(289)*V(351)\n  A(478) = RCT(478)*V(280)*V(280)\n  A(479) = RCT(479)*V(280)*V(289)\n  A(480) = RCT(480)*V(289)*V(289)\n  A(481) = RCT(481)*V(256)*V(345)\n  A(482) = RCT(482)*V(242)*V(345)\n  A(483) = RCT(483)*V(242)*V(341)\n  A(484) = RCT(484)*V(242)*V(351)\n  A(485) = RCT(485)*V(256)*V(351)\n  A(486) = RCT(486)*V(103)\n  A(487) = RCT(487)*V(45)\n  A(488) = RCT(488)*V(154)*V(345)\n  A(489) = RCT(489)*V(93)*V(345)\n  A(490) = RCT(490)*V(83)*V(345)\n  A(491) = RCT(491)*V(91)*V(345)\n  A(492) = RCT(492)*V(95)*V(345)\n  A(493) = RCT(493)*V(276)*V(341)\n  A(494) = RCT(494)*V(276)*V(345)\n  A(495) = RCT(495)*V(276)*V(345)\n  A(496) = RCT(496)*V(276)*V(345)\n  A(497) = RCT(497)*V(276)*V(345)\n  A(498) = RCT(498)*V(305)*V(337)\n  A(499) = RCT(499)*V(305)*V(337)\n  A(500) = RCT(500)*V(304)*V(337)\n  A(501) = RCT(501)*V(304)*V(337)\n  A(502) = RCT(502)*V(305)\n  A(503) = RCT(503)*V(305)\n  A(504) = RCT(504)*V(304)\n  A(505) = RCT(505)*V(304)\n  A(506) = RCT(506)*V(305)*V(305)\n  A(507) = RCT(507)*V(304)*V(304)\n  A(508) = RCT(508)*V(304)*V(305)\n  A(509) = RCT(509)*V(305)*V(305)\n  A(510) = RCT(510)*V(304)*V(304)\n  A(511) = RCT(511)*V(304)*V(305)\n  A(512) = RCT(512)*V(305)*V(328)\n  A(513) = RCT(513)*V(305)*V(328)\n  A(514) = RCT(514)*V(304)*V(328)\n  A(515) = RCT(515)*V(304)*V(328)\n  A(516) = RCT(516)*V(305)*V(346)\n  A(517) = RCT(517)*V(305)*V(346)\n  A(518) = RCT(518)*V(305)*V(346)\n  A(519) = RCT(519)*V(305)*V(346)\n  A(520) = RCT(520)*V(304)*V(346)\n  A(521) = RCT(521)*V(304)*V(346)\n  A(522) = RCT(522)*V(304)*V(346)\n  A(523) = RCT(523)*V(304)*V(346)\n  A(524) = RCT(524)*V(230)*V(345)\n  A(525) = RCT(525)*V(231)*V(345)\n  A(526) = RCT(526)*V(150)*V(345)\n  A(527) = RCT(527)*V(144)*V(345)\n  A(528) = RCT(528)*V(238)*V(345)\n  A(529) = RCT(529)*V(215)*V(345)\n  A(530) = RCT(530)*V(119)*V(345)\n  A(531) = RCT(531)*V(187)*V(345)\n  A(532) = RCT(532)*V(187)*V(345)\n  A(533) = RCT(533)*V(192)*V(345)\n  A(534) = RCT(534)*V(192)*V(345)\n  A(535) = RCT(535)*V(187)*V(345)\n  A(536) = RCT(536)*V(192)*V(345)\n  A(537) = RCT(537)*V(209)*V(345)\n  A(538) = RCT(538)*V(199)*V(345)\n  A(539) = RCT(539)*V(223)\n  A(540) = RCT(540)*V(223)*V(346)\n  A(541) = RCT(541)*V(223)*V(346)\n  A(542) = RCT(542)*V(223)*V(337)\n  A(543) = RCT(543)*V(224)\n  A(544) = RCT(544)*V(224)*V(346)\n  A(545) = RCT(545)*V(224)*V(346)\n  A(546) = RCT(546)*V(224)*V(337)\n  A(547) = RCT(547)*V(232)\n  A(548) = RCT(548)*V(232)*V(346)\n  A(549) = RCT(549)*V(232)*V(346)\n  A(550) = RCT(550)*V(232)*V(337)\n  A(551) = RCT(551)*V(128)*V(345)\n  A(552) = RCT(552)*V(151)*V(345)\n  A(553) = RCT(553)*V(151)*V(345)\n  A(554) = RCT(554)*V(152)*V(345)\n  A(555) = RCT(555)*V(152)*V(345)\n  A(556) = RCT(556)*V(286)\n  A(557) = RCT(557)*V(286)\n  A(558) = RCT(558)*V(286)*V(337)\n  A(559) = RCT(559)*V(286)*V(346)\n  A(560) = RCT(560)*V(286)*V(346)\n  A(561) = RCT(561)*V(285)\n  A(562) = RCT(562)*V(285)\n  A(563) = RCT(563)*V(285)*V(346)\n  A(564) = RCT(564)*V(285)*V(346)\n  A(565) = RCT(565)*V(285)*V(337)\n  A(566) = RCT(566)*V(243)*V(337)\n  A(567) = RCT(567)*V(243)*V(346)\n  A(568) = RCT(568)*V(243)*V(346)\n  A(569) = RCT(569)*V(243)\n  A(570) = RCT(570)*V(133)*V(346)\n  A(571) = RCT(571)*V(133)*V(337)\n  A(572) = RCT(572)*V(135)*V(346)\n  A(573) = RCT(573)*V(135)*V(337)\n  A(574) = RCT(574)*V(175)*V(345)\n  A(575) = RCT(575)*V(175)*V(345)\n  A(576) = RCT(576)*V(168)*V(345)\n  A(577) = RCT(577)*V(168)*V(345)\n  A(578) = RCT(578)*V(268)*V(345)\n  A(579) = RCT(579)*V(268)*V(345)\n  A(580) = RCT(580)*V(267)*V(345)\n  A(581) = RCT(581)*V(267)*V(345)\n  A(582) = RCT(582)*V(268)*V(345)\n  A(583) = RCT(583)*V(267)*V(345)\n  A(584) = RCT(584)*V(205)\n  A(585) = RCT(585)*V(205)*V(337)\n  A(586) = RCT(586)*V(205)*V(346)\n  A(587) = RCT(587)*V(205)*V(346)\n  A(588) = RCT(588)*V(190)\n  A(589) = RCT(589)*V(190)*V(337)\n  A(590) = RCT(590)*V(190)*V(346)\n  A(591) = RCT(591)*V(190)*V(346)\n  A(592) = RCT(592)*V(206)\n  A(593) = RCT(593)*V(207)\n  A(594) = RCT(594)*V(206)*V(337)\n  A(595) = RCT(595)*V(206)*V(346)\n  A(596) = RCT(596)*V(206)*V(346)\n  A(597) = RCT(597)*V(207)*V(337)\n  A(598) = RCT(598)*V(207)*V(346)\n  A(599) = RCT(599)*V(207)*V(346)\n  A(600) = RCT(600)*V(293)*V(337)\n  A(601) = RCT(601)*V(293)*V(346)\n  A(602) = RCT(602)*V(293)*V(346)\n  A(603) = RCT(603)*V(276)*V(351)\n  A(604) = RCT(604)*V(310)*V(337)\n  A(605) = RCT(605)*V(311)*V(337)\n  A(606) = RCT(606)*V(310)*V(310)\n  A(607) = RCT(607)*V(310)*V(311)\n  A(608) = RCT(608)*V(311)*V(311)\n  A(609) = RCT(609)*V(311)*V(328)\n  A(610) = RCT(610)*V(310)*V(328)\n  A(611) = RCT(611)*V(310)*V(324)\n  A(612) = RCT(612)*V(311)*V(324)\n  A(613) = RCT(613)*V(310)*V(351)\n  A(614) = RCT(614)*V(311)*V(351)\n  A(615) = RCT(615)*V(310)*V(346)\n  A(616) = RCT(616)*V(310)*V(346)\n  A(617) = RCT(617)*V(311)*V(346)\n  A(618) = RCT(618)*V(311)*V(346)\n  A(619) = RCT(619)*V(145)*F(3)\n  A(620) = RCT(620)*V(145)\n  A(621) = RCT(621)*V(222)*V(345)\n  A(622) = RCT(622)*V(186)*V(345)\n  A(623) = RCT(623)*V(222)*V(345)\n  A(624) = RCT(624)*V(186)*V(345)\n  A(625) = RCT(625)*V(186)*V(345)\n  A(626) = RCT(626)*V(222)*V(345)\n  A(627) = RCT(627)*V(186)*V(345)\n  A(628) = RCT(628)*V(186)*V(345)\n  A(629) = RCT(629)*V(226)\n  A(630) = RCT(630)*V(271)\n  A(631) = RCT(631)*V(271)*V(337)\n  A(632) = RCT(632)*V(226)*V(337)\n  A(633) = RCT(633)*V(271)*V(346)\n  A(634) = RCT(634)*V(271)*V(346)\n  A(635) = RCT(635)*V(226)*V(346)\n  A(636) = RCT(636)*V(226)*V(346)\n  A(637) = RCT(637)*V(301)*V(345)\n  A(638) = RCT(638)*V(301)*V(345)\n  A(639) = RCT(639)*V(182)*V(346)\n  A(640) = RCT(640)*V(182)*V(337)\n  A(641) = RCT(641)*V(299)*V(345)\n  A(642) = RCT(642)*V(180)*V(346)\n  A(643) = RCT(643)*V(180)*V(337)\n  A(644) = RCT(644)*V(314)*V(345)\n  A(645) = RCT(645)*V(314)*V(341)\n  A(646) = RCT(646)*V(309)*V(345)\n  A(647) = RCT(647)*V(309)*V(345)\n  A(648) = RCT(648)*V(309)*V(341)\n  A(649) = RCT(649)*V(309)*V(351)\n  A(650) = RCT(650)*V(302)*V(345)\n  A(651) = RCT(651)*V(288)*V(345)\n  A(652) = RCT(652)*V(287)*V(345)\n  A(653) = RCT(653)*V(248)*V(345)\n  A(654) = RCT(654)*V(216)*V(345)\n  A(655) = RCT(655)*V(171)*V(346)\n  A(656) = RCT(656)*V(171)*V(337)\n  A(657) = RCT(657)*V(171)*V(335)\n  A(658) = RCT(658)*V(172)*V(346)\n  A(659) = RCT(659)*V(172)*V(337)\n  A(660) = RCT(660)*V(172)*V(335)\n  A(661) = RCT(661)*V(194)*V(345)\n  A(662) = RCT(662)*V(185)*V(345)\n  A(663) = RCT(663)*V(131)*V(345)\n  A(664) = RCT(664)*V(227)*V(345)\n  A(665) = RCT(665)*V(208)*V(345)\n  A(666) = RCT(666)*V(153)*V(345)\n  A(667) = RCT(667)*V(254)*V(337)\n  A(668) = RCT(668)*V(254)*V(346)\n  A(669) = RCT(669)*V(254)*V(346)\n  A(670) = RCT(670)*V(253)*V(337)\n  A(671) = RCT(671)*V(259)*V(337)\n  A(672) = RCT(672)*V(159)*V(345)\n  A(673) = RCT(673)*V(253)\n  A(674) = RCT(674)*V(253)*V(346)\n  A(675) = RCT(675)*V(253)*V(346)\n  A(676) = RCT(676)*V(259)*V(346)\n  A(677) = RCT(677)*V(259)*V(335)\n  A(678) = RCT(678)*V(308)*V(337)\n  A(679) = RCT(679)*V(308)*V(346)\n  A(680) = RCT(680)*V(308)*V(335)\n  A(681) = RCT(681)*V(308)*V(351)\n  A(682) = RCT(682)*V(308)*V(328)\n  A(683) = RCT(683)*V(184)\n  A(684) = RCT(684)*V(184)*V(345)\n  A(685) = RCT(685)*V(107)*V(345)\n  A(686) = RCT(686)*V(258)*V(345)\n  A(687) = RCT(687)*V(147)*V(345)\n  A(688) = RCT(688)*V(174)*V(345)\n  A(689) = RCT(689)*V(198)*V(345)\n  A(690) = RCT(690)*V(266)*V(345)\n  A(691) = RCT(691)*V(303)*V(345)\n  A(692) = RCT(692)*V(261)*V(351)\n  A(693) = RCT(693)*V(115)*V(345)\n  A(694) = RCT(694)*V(88)*V(345)\n  A(695) = RCT(695)*V(324)*V(337)\n  A(696) = RCT(696)*V(210)*V(345)\n  A(697) = RCT(697)*V(210)*V(345)\n  A(698) = RCT(698)*V(19)*V(345)\n  A(699) = RCT(699)*V(18)*V(337)\n  A(700) = RCT(700)*V(18)*V(346)\n  A(701) = RCT(701)*V(173)*V(345)\n  A(702) = RCT(702)*V(220)*V(345)\n  A(703) = RCT(703)*V(220)*V(351)\n  A(704) = RCT(704)*V(220)*V(341)\n  A(705) = RCT(705)*V(149)*V(345)\n  A(706) = RCT(706)*V(149)*V(351)\n  A(707) = RCT(707)*V(200)*V(345)\n  A(708) = RCT(708)*V(200)*V(351)\n  A(709) = RCT(709)*V(189)*V(346)\n  A(710) = RCT(710)*V(189)*V(337)\n  A(711) = RCT(711)*V(116)*V(345)\n  A(712) = RCT(712)*V(109)*V(341)\n  A(713) = RCT(713)*V(109)*V(345)\n  A(714) = RCT(714)*V(60)*V(345)\n  A(715) = RCT(715)*V(234)*V(337)\n  A(716) = RCT(716)*V(234)*V(346)\n  A(717) = RCT(717)*V(234)*V(351)\n  A(718) = RCT(718)*V(234)*V(328)\n  A(719) = RCT(719)*V(106)\n  A(720) = RCT(720)*V(106)*F(3)\n  A(721) = RCT(721)*V(70)*V(345)\n  A(722) = RCT(722)*V(136)*V(345)\n  A(723) = RCT(723)*V(136)*V(345)\n  A(724) = RCT(724)*V(143)*V(345)\n  A(725) = RCT(725)*V(82)*V(345)\n  A(726) = RCT(726)*V(101)*V(345)\n  A(727) = RCT(727)*V(263)*V(337)\n  A(728) = RCT(728)*V(263)*V(346)\n  A(729) = RCT(729)*V(263)*V(351)\n  A(730) = RCT(730)*V(263)*V(328)\n  A(731) = RCT(731)*V(263)*V(324)\n  A(732) = RCT(732)*V(58)*V(345)\n  A(733) = RCT(733)*V(121)*V(346)\n  A(734) = RCT(734)*V(121)*V(337)\n  A(735) = 7.09e-11*V(146)*V(345)\n  A(736) = RCT(736)*V(240)*V(346)\n  A(737) = RCT(737)*V(240)*V(337)\n  A(738) = RCT(738)*V(240)*V(335)\n  A(739) = RCT(739)*V(122)\n  A(740) = RCT(740)*V(122)*V(345)\n  A(741) = RCT(741)*V(195)*V(345)\n  A(742) = RCT(742)*V(195)*V(351)\n  A(743) = RCT(743)*V(158)*V(345)\n  A(744) = RCT(744)*V(158)*V(351)\n  A(745) = RCT(745)*V(202)*V(345)\n  A(746) = RCT(746)*V(202)*V(341)\n  A(747) = RCT(747)*V(202)*V(351)\n  A(748) = RCT(748)*V(204)*V(345)\n  A(749) = RCT(749)*V(204)*V(351)\n  A(750) = RCT(750)*V(235)*V(337)\n  A(751) = RCT(751)*V(235)*V(346)\n  A(752) = RCT(752)*V(235)*V(335)\n  A(753) = RCT(753)*V(71)*V(345)\n  A(754) = RCT(754)*V(90)\n  A(755) = RCT(755)*V(90)*V(345)\n  A(756) = RCT(756)*V(236)*V(335)\n  A(757) = RCT(757)*V(236)*V(346)\n  A(758) = RCT(758)*V(236)*V(351)\n  A(759) = RCT(759)*V(236)*V(337)\n  A(760) = RCT(760)*V(117)*V(345)\n  A(761) = RCT(761)*V(203)*V(341)\n  A(762) = RCT(762)*V(203)*V(335)\n  A(763) = RCT(763)*V(269)*V(345)\n  A(764) = RCT(764)*V(269)*V(351)\n  A(765) = RCT(765)*V(236)*V(328)\n  A(766) = RCT(766)*V(235)*V(328)\n  A(767) = RCT(767)*V(221)*V(345)\n  A(768) = RCT(768)*V(221)*V(341)\n  A(769) = RCT(769)*V(221)\n  A(770) = RCT(770)*V(201)*V(345)\n  A(771) = RCT(771)*V(201)*V(341)\n  A(772) = RCT(772)*V(201)\n  A(773) = RCT(773)*V(13)*V(337)\n  A(774) = RCT(774)*V(13)*V(346)\n  A(775) = RCT(775)*V(22)*V(337)\n  A(776) = RCT(776)*V(22)*V(346)\n  A(777) = RCT(777)*V(27)*V(337)\n  A(778) = RCT(778)*V(27)*V(346)\n  A(779) = RCT(779)*V(328)*V(351)\n  A(780) = RCT(780)*V(41)*V(345)\n  A(781) = RCT(781)*V(337)\n  A(782) = RCT(782)*V(335)\n  A(783) = RCT(783)*V(351)\n  A(784) = RCT(784)*V(351)\n  A(785) = RCT(785)*V(351)\n  A(786) = RCT(786)*V(214)*V(336)\n  A(787) = RCT(787)*V(214)*V(339)\n  A(788) = RCT(788)*V(214)\n  A(789) = RCT(789)*V(214)*V(353)\n  A(790) = RCT(790)*V(214)*V(344)\n  A(791) = RCT(791)*V(345)*V(353)\n  A(792) = RCT(792)*V(344)*V(345)\n  A(793) = RCT(793)*V(218)*V(336)\n  A(794) = RCT(794)*V(218)*V(339)\n  A(795) = RCT(795)*V(317)*V(336)\n  A(796) = RCT(796)*V(317)*V(339)\n  A(797) = RCT(797)*V(317)*V(352)\n  A(798) = RCT(798)*V(317)*V(349)\n  A(799) = RCT(799)*V(317)*V(350)\n  A(800) = RCT(800)*V(317)*V(353)\n  A(801) = RCT(801)*V(317)*V(344)\n  A(802) = RCT(802)*V(297)*V(353)\n  A(803) = RCT(803)*V(297)*V(344)\n  A(804) = RCT(804)*V(297)*V(339)\n  A(805) = RCT(805)*V(297)*V(349)\n  A(806) = RCT(806)*V(297)*V(350)\n  A(807) = RCT(807)*V(297)*V(352)\n  A(808) = RCT(808)*V(333)*V(339)\n  A(809) = RCT(809)*V(333)*V(352)\n  A(810) = RCT(810)*V(333)*V(353)\n  A(811) = RCT(811)*V(333)*V(344)\n  A(812) = RCT(812)*V(333)*V(348)\n  A(813) = RCT(813)*V(316)*V(352)\n  A(814) = RCT(814)*V(316)*V(339)\n  A(815) = RCT(815)*V(316)*V(353)\n  A(816) = RCT(816)*V(316)*V(344)\n  A(817) = RCT(817)*V(316)*V(349)\n  A(818) = RCT(818)*V(316)*V(350)\n  A(819) = RCT(819)*V(316)*V(348)\n  A(820) = RCT(820)*V(341)*V(352)\n  A(821) = RCT(821)*V(341)*V(349)\n  A(822) = RCT(822)*V(341)*V(350)\n  A(823) = RCT(823)*V(352)\n  A(824) = RCT(824)*V(352)\n  A(825) = RCT(825)*V(73)\n  A(826) = RCT(826)*V(73)\n  A(827) = RCT(827)*V(73)\n  A(828) = RCT(828)*V(330)\n  A(829) = RCT(829)*V(330)\n  A(830) = RCT(830)*V(44)\n  A(831) = RCT(831)*V(44)\n  A(832) = RCT(832)*V(44)\n  A(833) = RCT(833)*V(55)\n  A(834) = RCT(834)*V(55)\n  A(835) = RCT(835)*V(55)\n  A(836) = RCT(836)*V(42)\n  A(837) = RCT(837)*V(42)\n  A(838) = RCT(838)*V(42)\n  A(839) = RCT(839)*V(252)\n  A(840) = RCT(840)*V(252)\n  A(841) = RCT(841)*V(332)\n  A(842) = RCT(842)*V(332)\n  A(843) = RCT(843)*V(332)*V(336)\n  A(844) = RCT(844)*V(252)*V(349)\n  A(845) = RCT(845)*V(252)*V(350)\n  A(846) = RCT(846)*V(252)*V(353)\n  A(847) = RCT(847)*V(252)*V(344)\n  A(848) = RCT(848)*V(332)*V(349)\n  A(849) = RCT(849)*V(332)*V(350)\n  A(850) = RCT(850)*V(332)*V(353)\n  A(851) = RCT(851)*V(332)*V(344)\n  A(852) = RCT(852)*V(330)*V(349)\n  A(853) = RCT(853)*V(330)*V(350)\n  A(854) = RCT(854)*V(330)*V(353)\n  A(855) = RCT(855)*V(330)*V(344)\n  A(856) = RCT(856)*V(270)\n  A(857) = RCT(857)*V(294)\n  A(858) = RCT(858)*V(151)\n  A(859) = RCT(859)*V(152)\n  A(860) = RCT(860)*V(128)\n  A(861) = RCT(861)*V(24)\n  A(862) = RCT(862)*V(302)\n  A(863) = RCT(863)*V(251)\n  A(864) = RCT(864)*V(256)\n  A(865) = RCT(865)*V(242)\n  A(866) = RCT(866)*V(154)\n  A(867) = RCT(867)*V(115)\n  A(868) = RCT(868)*V(107)\n  A(869) = RCT(869)*V(268)\n  A(870) = RCT(870)*V(175)\n  A(871) = RCT(871)*V(168)\n  A(872) = RCT(872)*V(267)\n  A(873) = RCT(873)*V(215)\n  A(874) = RCT(874)*V(186)\n  A(875) = RCT(875)*V(222)\n  A(876) = RCT(876)*V(299)\n  A(877) = RCT(877)*V(266)\n  A(878) = RCT(878)*V(303)\n  A(879) = RCT(879)*V(216)\n  A(880) = RCT(880)*V(248)\n  A(881) = RCT(881)*V(269)\n  A(882) = RCT(882)*V(341)\n  A(883) = RCT(883)*V(341)\n  A(884) = RCT(884)*F(3)\n  A(885) = RCT(885)*V(335)\n  A(886) = RCT(886)*V(264)\n  A(887) = RCT(887)*V(164)\n  A(888) = RCT(888)*V(325)\n  A(889) = RCT(889)*V(325)\n  A(890) = RCT(890)*V(327)\n  A(891) = RCT(891)*V(239)\n  A(892) = RCT(892)*V(108)\n  A(893) = RCT(893)*V(108)\n  A(894) = RCT(894)*V(351)\n  A(895) = RCT(895)*V(351)\n  A(896) = RCT(896)*V(214)\n  A(897) = RCT(897)*V(326)\n  A(898) = RCT(898)*V(326)\n  A(899) = RCT(899)*V(139)\n  A(900) = RCT(900)*V(126)\n  A(901) = RCT(901)*V(233)\n  A(902) = RCT(902)*V(146)\n  A(903) = RCT(903)*V(298)\n  A(904) = RCT(904)*V(295)\n  A(905) = RCT(905)*V(295)\n  A(906) = RCT(906)*V(292)\n  A(907) = RCT(907)*V(306)\n  A(908) = RCT(908)*V(270)\n  A(909) = RCT(909)*V(270)\n  A(910) = RCT(910)*V(270)\n  A(911) = RCT(911)*V(294)\n  A(912) = RCT(912)*V(314)\n  A(913) = RCT(913)*V(314)\n  A(914) = RCT(914)*V(314)\n  A(915) = RCT(915)*V(309)\n  A(916) = RCT(916)*V(307)\n  A(917) = RCT(917)*V(125)\n  A(918) = RCT(918)*V(118)\n  A(919) = RCT(919)*V(99)\n  A(920) = RCT(920)*V(100)\n  A(921) = RCT(921)*V(97)\n  A(922) = RCT(922)*V(98)\n  A(923) = RCT(923)*V(102)\n  A(924) = RCT(924)*V(123)\n  A(925) = RCT(925)*V(155)\n  A(926) = RCT(926)*V(251)\n  A(927) = RCT(927)*V(196)\n  A(928) = RCT(928)*V(116)\n  A(929) = RCT(929)*V(279)\n  A(930) = RCT(930)*V(92)\n  A(931) = RCT(931)*V(148)\n  A(932) = RCT(932)*V(347)\n  A(933) = RCT(933)*V(316)\n  A(934) = RCT(934)*V(218)\n  A(935) = RCT(935)*V(218)\n  A(936) = RCT(936)*V(59)\n  A(937) = RCT(937)*V(81)\n  A(938) = RCT(938)*V(78)\n  A(939) = RCT(939)*V(105)\n  A(940) = RCT(940)*V(181)\n  A(941) = RCT(941)*V(79)\n  A(942) = RCT(942)*V(157)\n  A(943) = RCT(943)*V(245)\n  A(944) = RCT(944)*V(338)\n  A(945) = RCT(945)*V(120)\n  A(946) = RCT(946)*V(76)\n  A(947) = RCT(947)*V(297)\n  A(948) = RCT(948)*V(317)\n  A(949) = RCT(949)*V(317)\n  A(950) = RCT(950)*V(333)\n  A(951) = RCT(951)*V(43)\n  A(952) = RCT(952)*V(46)\n  A(953) = RCT(953)*V(47)\n  A(954) = RCT(954)*V(48)\n  A(955) = RCT(955)*V(49)\n  A(956) = RCT(956)*V(50)\n  A(957) = RCT(957)*V(51)\n  A(958) = RCT(958)*V(84)\n  A(959) = RCT(959)*V(85)\n  A(960) = RCT(960)*V(86)\n  A(961) = RCT(961)*V(87)\n  A(962) = RCT(962)*V(53)\n  A(963) = RCT(963)*V(61)\n  A(964) = RCT(964)*V(54)\n  A(965) = RCT(965)*V(110)\n  A(966) = RCT(966)*V(170)\n  A(967) = RCT(967)*V(330)\n  A(968) = RCT(968)*V(284)\n  A(969) = RCT(969)*V(96)\n  A(970) = RCT(970)*V(62)\n  A(971) = RCT(971)*V(252)\n  A(972) = RCT(972)*V(332)\n  A(973) = RCT(973)*V(44)\n  A(974) = RCT(974)*V(52)\n  A(975) = RCT(975)*V(1)\n  A(976) = RCT(976)*V(3)\n  A(977) = RCT(977)*V(2)\n  A(978) = RCT(978)*V(42)\n  A(979) = RCT(979)*V(55)\n  A(980) = RCT(980)*V(77)\n  A(981) = RCT(981)*V(104)\n  A(982) = RCT(982)*V(80)\n  A(983) = RCT(983)*V(80)\n  A(984) = RCT(984)*V(244)\n  A(985) = RCT(985)*V(63)\n  A(986) = RCT(986)*V(68)\n  A(987) = RCT(987)*V(134)\n  A(988) = RCT(988)*V(346)\n  A(989) = RCT(989)*V(229)\n  A(990) = RCT(990)*V(261)\n  A(991) = RCT(991)*V(256)\n  A(992) = RCT(992)*V(242)\n  A(993) = RCT(993)*V(154)\n  A(994) = RCT(994)*V(65)\n  A(995) = RCT(995)*V(65)\n  A(996) = RCT(996)*V(64)\n  A(997) = RCT(997)*V(64)\n  A(998) = RCT(998)*V(93)\n  A(999) = RCT(999)*V(83)\n  A(1000) = RCT(1000)*V(91)\n  A(1001) = RCT(1001)*V(95)\n  A(1002) = RCT(1002)*V(88)\n  A(1003) = RCT(1003)*V(210)\n  A(1004) = RCT(1004)*V(115)\n  A(1005) = RCT(1005)*V(247)\n  A(1006) = RCT(1006)*V(208)\n  A(1007) = RCT(1007)*V(227)\n  A(1008) = RCT(1008)*V(288)\n  A(1009) = RCT(1009)*V(185)\n  A(1010) = RCT(1010)*V(194)\n  A(1011) = RCT(1011)*V(287)\n  A(1012) = RCT(1012)*V(159)\n  A(1013) = RCT(1013)*V(302)\n  A(1014) = RCT(1014)*V(248)\n  A(1015) = RCT(1015)*V(216)\n  A(1016) = RCT(1016)*V(187)\n  A(1017) = RCT(1017)*V(192)\n  A(1018) = RCT(1018)*V(209)\n  A(1019) = RCT(1019)*V(199)\n  A(1020) = RCT(1020)*V(230)\n  A(1021) = RCT(1021)*V(231)\n  A(1022) = RCT(1022)*V(150)\n  A(1023) = RCT(1023)*V(144)\n  A(1024) = RCT(1024)*V(268)\n  A(1025) = RCT(1025)*V(175)\n  A(1026) = RCT(1026)*V(168)\n  A(1027) = RCT(1027)*V(267)\n  A(1028) = RCT(1028)*V(222)\n  A(1029) = RCT(1029)*V(186)\n  A(1030) = RCT(1030)*V(186)\n  A(1031) = RCT(1031)*V(301)\n  A(1032) = RCT(1032)*V(299)\n  A(1033) = RCT(1033)*V(258)\n  A(1034) = RCT(1034)*V(258)\n  A(1035) = RCT(1035)*V(174)\n  A(1036) = RCT(1036)*V(198)\n  A(1037) = RCT(1037)*V(147)\n  A(1038) = RCT(1038)*V(303)\n  A(1039) = RCT(1039)*V(303)\n  A(1040) = RCT(1040)*V(266)\n  A(1041) = RCT(1041)*V(266)\n  A(1042) = RCT(1042)*V(136)\n  A(1043) = RCT(1043)*V(204)\n  A(1044) = RCT(1044)*V(71)\n  A(1045) = RCT(1045)*V(117)\n  A(1046) = RCT(1046)*V(269)\n  A(1047) = RCT(1047)*V(124)\n  A(1048) = RCT(1048)*V(111)\n  A(1049) = RCT(1049)*V(225)\n  A(1050) = RCT(1050)*V(74)\n  A(1051) = RCT(1051)*V(66)\n  A(1052) = RCT(1052)*V(160)\n  A(1053) = RCT(1053)*V(112)\n  A(1054) = RCT(1054)*V(161)\n  A(1055) = RCT(1055)*V(169)\n  A(1056) = RCT(1056)*V(130)\n  A(1057) = RCT(1057)*V(229)\n  A(1058) = RCT(1058)*V(255)\n\n\n!### KPP 2.3.0_gc, Bob Yantosca (11 Feb 2021)\n!### Use Aout to return reaction rates\n  IF ( PRESENT( Aout ) ) Aout = A\n\n\n! Production function\n  P_VAR(1) = 0\n  P_VAR(2) = 0\n  P_VAR(3) = 0\n  P_VAR(4) = A(825)+2*A(830)+2*A(833)+2*A(836)\n  P_VAR(5) = A(881)\n  P_VAR(6) = A(780)\n  P_VAR(7) = A(24)+A(47)+A(56)+A(104)+A(109)+A(127)+0.44*A(128)+0.3*A(136)+0.43*A(148)+0.1*A(150)+0.361*A(151)+0.44&\n               &*A(158)+0.5*A(168)+0.22*A(178)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)&\n               &+0.645*A(187)+0.645*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+2*A(194)+A(195)+A(239)&\n               &+A(318)+A(326)+A(360)+A(362)+A(369)+A(392)+A(395)+A(397)+0.44*A(436)+A(437)+A(440)+A(442)+0.9*A(457)+0.9&\n               &*A(459)+0.9*A(461)+0.9*A(463)+0.75*A(464)+2*A(465)+0.75*A(466)+A(467)+A(474)+0.407*A(493)+0.355*A(528)&\n               &+A(570)+A(571)+A(572)+A(573)+A(611)+A(612)+0.429*A(639)+0.429*A(640)+0.23*A(652)+0.75*A(654)+0.097*A(661)&\n               &+0.5*A(671)+0.41*A(672)+A(676)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+A(689)+A(693)+0.5*A(695)+A(701)+A(731)+2&\n               &*A(736)+0.44*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(899)+A(930)+A(1004)+1.238*A(1012)+A(1044)+A(1046)&\n               &+A(1050)+A(1051)+A(1055)+A(1056)\n  P_VAR(8) = A(486)+A(487)\n  P_VAR(9) = A(826)+A(828)+2*A(831)+2*A(834)+2*A(837)+A(839)+A(841)\n  P_VAR(10) = A(827)+A(829)+2*A(832)+2*A(835)+2*A(838)+A(840)+A(842)\n  P_VAR(11) = A(773)\n  P_VAR(12) = A(774)\n  P_VAR(13) = A(724)\n  P_VAR(14) = A(494)+A(495)+A(496)+A(497)\n  P_VAR(15) = A(603)\n  P_VAR(16) = A(699)\n  P_VAR(17) = A(700)\n  P_VAR(18) = A(698)\n  P_VAR(19) = 0\n  P_VAR(20) = A(775)\n  P_VAR(21) = A(776)\n  P_VAR(22) = A(725)\n  P_VAR(23) = A(861)\n  P_VAR(24) = 0.005*A(531)+0.005*A(532)+0.005*A(533)+0.005*A(534)+0.005*A(535)+0.005*A(536)+0.005*A(537)+0.005*A(538)\n  P_VAR(25) = A(777)\n  P_VAR(26) = A(778)\n  P_VAR(27) = A(726)\n  P_VAR(28) = 0.25*A(200)\n  P_VAR(29) = A(4)\n  P_VAR(30) = A(856)+1.5*A(857)+1.5*A(867)\n  P_VAR(31) = A(858)+A(859)+A(860)+0.8*A(868)+A(873)\n  P_VAR(32) = A(202)+A(368)+A(372)\n  P_VAR(33) = 2*A(12)\n  P_VAR(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)&\n                &+A(87)+2*A(88)+A(90)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96)+A(97)+A(98)+A(100)+A(109)+A(123)+A(125)+A(126)&\n                &+A(127)+0.15*A(128)+0.15*A(148)+A(156)+A(157)+0.15*A(158)+A(160)+A(211)+0.02*A(247)+A(248)+A(249)+A(273)&\n                &+A(281)+A(282)+A(297)+0.1*A(309)+A(319)+A(322)+A(323)+A(352)+A(363)+A(364)+A(370)+A(371)+0.75*A(385)+0.5&\n                &*A(388)+0.15*A(391)+A(392)+A(394)+0.84*A(399)+A(403)+0.75*A(405)+0.5*A(407)+A(412)+A(416)+0.75*A(418)+0.5&\n                &*A(426)+0.84*A(429)+A(435)+0.15*A(436)+A(437)+A(439)+A(445)+A(450)+A(468)+A(469)+A(486)+A(487)+A(488)&\n                &+A(489)+A(490)+A(491)+A(492)+A(516)+A(517)+A(518)+A(519)+A(520)+A(521)+A(522)+A(523)+A(540)+A(541)+A(544)&\n                &+A(545)+A(548)+A(549)+A(559)+A(560)+A(563)+A(564)+A(567)+A(568)+A(570)+A(572)+A(586)+A(587)+A(590)+A(591)&\n                &+A(595)+A(596)+A(598)+A(599)+A(601)+A(602)+A(615)+A(616)+A(617)+A(618)+A(633)+A(634)+A(635)+A(636)+A(639)&\n                &+A(642)+0.69*A(650)+A(655)+A(658)+A(668)+A(669)+0.13*A(671)+A(674)+A(675)+A(676)+0.13*A(678)+A(679)+A(684)&\n                &+0.13*A(695)+0.89*A(709)+A(711)+0.995*A(716)+A(721)+A(728)+A(733)+A(736)+0.15*A(737)+A(739)+A(740)+0.15&\n                &*A(750)+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(884)+A(892)+0.3*A(899)+A(900)+A(927)+A(928)+A(982)&\n                &+A(985)+A(988)+A(998)+A(999)+A(1000)+A(1001)+0.3*A(1047)\n  P_VAR(35) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)&\n                &+A(124)+A(131)+A(150)+A(154)+A(155)+A(159)+A(162)+A(165)+A(166)+A(179)+2*A(196)+A(201)+2*A(207)+2*A(208)&\n                &+A(212)+A(213)+A(214)+A(226)+A(229)+A(230)+A(231)+2*A(233)+A(235)+A(236)+A(237)+A(238)+2*A(240)+2*A(241)&\n                &+A(244)+A(246)+2*A(251)+A(252)+0.66*A(253)+0.6*A(254)+0.44*A(257)+0.56*A(258)+0.19*A(261)+0.1*A(269)+0.05&\n                &*A(270)+A(274)+A(275)+A(276)+A(277)+A(278)+2*A(298)+2*A(302)+2*A(303)+2*A(311)+2*A(312)+0.4*A(344)+0.88&\n                &*A(349)+A(367)+A(375)+A(376)+A(377)+A(379)+A(381)+A(383)+A(386)+A(389)+A(393)+A(395)+A(400)+A(406)+A(414)&\n                &+A(419)+A(421)+2*A(422)+A(424)+2*A(425)+0.5*A(427)+A(428)+A(431)+A(434)+A(438)+A(440)+A(446)+A(448)+A(449)&\n                &+A(454)+A(455)+A(476)+A(477)+A(483)+2*A(484)+2*A(485)+A(493)+A(603)+A(613)+A(614)+A(645)+A(648)+A(649)&\n                &+A(681)+A(692)+A(703)+A(704)+A(706)+A(708)+A(712)+A(717)+A(729)+A(738)+1.258*A(742)+1.5*A(744)+A(746)+1.5&\n                &*A(747)+A(749)+A(752)+A(758)+A(761)+A(762)+A(768)+A(771)+A(779)+0.5*A(782)+A(783)+A(784)+A(785)+A(786)&\n                &+A(787)+A(788)+A(789)+A(790)+A(794)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)+A(802)+A(803)+A(804)+A(805)&\n                &+A(806)+A(807)+A(808)+A(809)+A(810)+A(811)+A(812)+A(813)+A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(828)&\n                &+A(829)+2*A(830)+2*A(831)+2*A(832)+3*A(833)+3*A(834)+3*A(835)+4*A(836)+4*A(837)+4*A(838)+A(839)+A(840)&\n                &+A(841)+A(842)+A(844)+A(845)+A(846)+A(847)+A(848)+A(849)+A(850)+A(851)+A(852)+A(853)+A(854)+A(855)+A(862)&\n                &+A(863)+A(864)+A(865)+A(866)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+2*A(876)+A(877)+A(878)+A(879)+A(880)&\n                &+2*A(895)+A(933)+2*A(946)+A(950)+A(967)+2*A(969)+A(994)+A(996)\n  P_VAR(36) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)&\n                &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)&\n                &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5&\n                &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)+1.5&\n                &*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)+0.2&\n                &*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)+0.33&\n                &*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)+A(664)&\n                &+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25*A(684)&\n                &+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27*A(725)+0.3&\n                &*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(888)&\n                &+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)+A(911)+A(912)&\n                &+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77*A(1011)+A(1014)&\n                &+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839*A(1031)+A(1033)+0.163&\n                &*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058)\n  P_VAR(37) = A(24)+A(362)+A(369)\n  P_VAR(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)\n  P_VAR(39) = A(25)+A(231)+A(291)\n  P_VAR(40) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)\n  P_VAR(41) = 0\n  P_VAR(42) = A(346)\n  P_VAR(43) = 0\n  P_VAR(44) = 0.6*A(357)\n  P_VAR(45) = A(864)+A(865)+A(866)\n  P_VAR(46) = 0.21*A(256)\n  P_VAR(47) = 0.1*A(262)\n  P_VAR(48) = 0.14*A(263)\n  P_VAR(49) = 0.1*A(269)\n  P_VAR(50) = 0.1*A(270)\n  P_VAR(51) = 0.14*A(271)\n  P_VAR(52) = 0\n  P_VAR(53) = 0.55*A(265)\n  P_VAR(54) = 0.25*A(272)\n  P_VAR(55) = A(345)\n  P_VAR(56) = A(393)\n  P_VAR(57) = A(438)\n  P_VAR(58) = 0.15*A(707)\n  P_VAR(59) = A(221)\n  P_VAR(60) = 0\n  P_VAR(61) = 0.35*A(264)\n  P_VAR(62) = A(334)\n  P_VAR(63) = A(250)\n  P_VAR(64) = A(3)+A(784)\n  P_VAR(65) = A(6)+A(785)\n  P_VAR(66) = 0.15*A(391)+0.25*A(464)\n  P_VAR(67) = A(988)\n  P_VAR(68) = 0\n  P_VAR(69) = 0\n  P_VAR(70) = 0.005*A(716)\n  P_VAR(71) = 0.65*A(750)\n  P_VAR(72) = 0.56*A(158)\n  P_VAR(73) = A(351)\n  P_VAR(74) = 0.41*A(391)\n  P_VAR(75) = 0\n  P_VAR(76) = A(307)\n  P_VAR(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853)\n  P_VAR(78) = 0.05*A(259)\n  P_VAR(79) = 0\n  P_VAR(80) = A(197)\n  P_VAR(81) = 0.3*A(260)\n  P_VAR(82) = 0\n  P_VAR(83) = A(59)\n  P_VAR(84) = 0.21*A(268)\n  P_VAR(85) = 0.31*A(266)\n  P_VAR(86) = 0.35*A(267)\n  P_VAR(87) = 0.25*A(261)\n  P_VAR(88) = 0.73*A(365)+0.4*A(366)\n  P_VAR(89) = A(10)\n  P_VAR(90) = A(752)\n  P_VAR(91) = A(99)\n  P_VAR(92) = 0.37*A(695)\n  P_VAR(93) = A(27)\n  P_VAR(94) = 0\n  P_VAR(95) = A(64)\n  P_VAR(96) = 0.8*A(344)+2*A(347)+0.4*A(357)+0.996*A(358)+A(973)+2*A(978)+A(979)\n  P_VAR(97) = A(114)\n  P_VAR(98) = A(70)\n  P_VAR(99) = A(146)\n  P_VAR(100) = A(120)\n  P_VAR(101) = 0\n  P_VAR(102) = A(116)\n  P_VAR(103) = A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880)\n  P_VAR(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855)\n  P_VAR(105) = 0\n  P_VAR(106) = 0.995*A(716)+A(717)+0.6*A(718)+A(1042)\n  P_VAR(107) = 0.098*A(672)+0.75*A(684)\n  P_VAR(108) = A(39)\n  P_VAR(109) = 0.4*A(901)\n  P_VAR(110) = A(274)+A(278)+A(303)+A(305)+A(311)+A(946)\n  P_VAR(111) = A(384)\n  P_VAR(112) = A(404)\n  P_VAR(113) = A(124)\n  P_VAR(114) = A(155)\n  P_VAR(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1010)\n  P_VAR(116) = 0.11*A(709)\n  P_VAR(117) = 0.15*A(750)+A(755)+A(759)\n  P_VAR(118) = A(144)+A(145)\n  P_VAR(119) = 0.15*A(524)+0.15*A(525)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031)\n  P_VAR(120) = A(304)+A(310)+0.56*A(349)\n  P_VAR(121) = A(732)\n  P_VAR(122) = A(738)\n  P_VAR(123) = A(147)\n  P_VAR(124) = A(106)\n  P_VAR(125) = A(121)\n  P_VAR(126) = A(86)\n  P_VAR(127) = 0.058*A(78)\n  P_VAR(128) = 0.255*A(537)+0.595*A(538)+A(578)+A(580)\n  P_VAR(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1053)\n  P_VAR(130) = 0.15*A(436)+0.25*A(466)\n  P_VAR(131) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1033)\n  P_VAR(132) = 0.255*A(81)\n  P_VAR(133) = 0.315*A(524)\n  P_VAR(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)\n  P_VAR(135) = 0.315*A(525)\n  P_VAR(136) = A(715)+0.2*A(718)\n  P_VAR(137) = 0.25*A(385)\n  P_VAR(138) = 0.25*A(405)\n  P_VAR(139) = A(53)\n  P_VAR(140) = 0\n  P_VAR(141) = 0\n  P_VAR(142) = 0\n  P_VAR(143) = 0.1*A(704)\n  P_VAR(144) = 0.15*A(497)+0.15*A(505)+0.009*A(538)\n  P_VAR(145) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)+0.841*A(1029)+0.222*A(1032)\n  P_VAR(146) = A(733)+A(734)\n  P_VAR(147) = A(556)+A(561)\n  P_VAR(148) = A(208)+A(210)+A(813)+A(817)+A(818)\n  P_VAR(149) = 0\n  P_VAR(150) = 0.15*A(496)+0.15*A(503)+0.009*A(537)\n  P_VAR(151) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577)\n  P_VAR(152) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577)\n  P_VAR(153) = A(562)+0.2*A(563)+0.13*A(565)+0.15*A(686)+0.15*A(1033)+0.163*A(1034)\n  P_VAR(154) = A(481)+A(482)+A(483)+A(484)+A(485)\n  P_VAR(155) = 0.41*A(128)+0.41*A(148)+0.41*A(737)\n  P_VAR(156) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143)\n  P_VAR(157) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816)\n  P_VAR(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726)\n  P_VAR(159) = 0.5*A(671)+0.25*A(1012)\n  P_VAR(160) = A(398)+0.25*A(401)\n  P_VAR(161) = A(410)+0.25*A(413)\n  P_VAR(162) = 0.5*A(407)+A(411)\n  P_VAR(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432)\n  P_VAR(164) = A(28)\n  P_VAR(165) = A(72)\n  P_VAR(166) = -A(4)\n  P_VAR(167) = 0\n  P_VAR(168) = A(520)\n  P_VAR(169) = A(430)+0.25*A(432)+0.41*A(436)\n  P_VAR(170) = A(335)+A(338)+A(342)\n  P_VAR(171) = 0.224*A(1020)+0.068*A(1031)\n  P_VAR(172) = 0.182*A(1021)+0.128*A(1031)\n  P_VAR(173) = 0.15*A(128)+0.15*A(148)+0.5*A(475)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770)\n  P_VAR(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550)\n  P_VAR(175) = A(516)\n  P_VAR(176) = 0.5*A(388)+0.16*A(399)\n  P_VAR(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429)\n  P_VAR(178) = A(66)+A(67)+0.5*A(71)\n  P_VAR(179) = -A(1)\n  P_VAR(180) = 0.435*A(641)\n  P_VAR(181) = 0.1*A(257)\n  P_VAR(182) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691)\n  P_VAR(183) = 0\n  P_VAR(184) = A(677)+A(680)\n  P_VAR(185) = A(530)+0.444*A(687)+0.112*A(1020)+0.182*A(1021)+0.162*A(1031)+0.454*A(1037)\n  P_VAR(186) = A(605)\n  P_VAR(187) = 0.937*A(498)\n  P_VAR(188) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25&\n                 &*A(139)+0.25*A(473)\n  P_VAR(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707)\n  P_VAR(190) = A(576)\n  P_VAR(191) = 0\n  P_VAR(192) = 0.937*A(500)\n  P_VAR(193) = A(444)\n  P_VAR(194) = 0.022*A(691)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031)\n  P_VAR(195) = 0.54*A(724)\n  P_VAR(196) = A(69)+A(74)\n  P_VAR(197) = 0.68*A(81)+A(87)+A(900)+0.3*A(901)\n  P_VAR(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688)\n  P_VAR(199) = A(501)\n  P_VAR(200) = 0\n  P_VAR(201) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744)\n  P_VAR(202) = 0.8*A(741)+0.727*A(743)\n  P_VAR(203) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)+A(765)&\n                 &+A(1045)\n  P_VAR(204) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)+A(928)\n  P_VAR(205) = A(574)\n  P_VAR(206) = A(579)\n  P_VAR(207) = A(581)\n  P_VAR(208) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)+0.255*A(667)+0.318*A(687)+0.391*A(1037)\n  P_VAR(209) = A(499)\n  P_VAR(210) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59&\n                 &*A(635)+0.5*A(1039)\n  P_VAR(211) = 0.25*A(418)\n  P_VAR(212) = A(75)\n  P_VAR(213) = 0.8*A(153)+A(154)+A(156)\n  P_VAR(214) = A(45)\n  P_VAR(215) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)+0.75*A(551)+A(552)+A(554)+A(625)+A(637)\n  P_VAR(216) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291&\n                 &*A(635)+0.378*A(638)+0.13*A(678)+0.3*A(682)\n  P_VAR(217) = A(229)+0.2*A(231)+A(234)+A(235)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(888)\n  P_VAR(218) = A(222)\n  P_VAR(219) = 0\n  P_VAR(220) = 0\n  P_VAR(221) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9&\n                 &*A(763)+0.9*A(764)+A(1046)\n  P_VAR(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610)\n  P_VAR(223) = 0.345*A(531)+0.595*A(537)\n  P_VAR(224) = 0.345*A(533)+0.255*A(538)\n  P_VAR(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1048)\n  P_VAR(226) = A(622)\n  P_VAR(227) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)+0.16*A(666)+0.126*A(687)+0.133*A(1034)+0.155*A(1037)\n  P_VAR(228) = 0.1*A(150)+A(898)\n  P_VAR(229) = A(443)\n  P_VAR(230) = 0.25*A(496)+0.25*A(503)+0.015*A(537)\n  P_VAR(231) = 0.25*A(497)+0.25*A(505)+0.015*A(538)\n  P_VAR(232) = 0.655*A(531)+0.655*A(533)\n  P_VAR(233) = A(76)+A(77)+0.73*A(78)\n  P_VAR(234) = A(127)+0.44*A(128)+A(713)+A(722)\n  P_VAR(235) = A(748)+A(749)+A(753)+A(754)\n  P_VAR(236) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1043)+A(1044)\n  P_VAR(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461)\n  P_VAR(238) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)+0.06*A(537)+0.06*A(538)+A(1018)&\n                 &+A(1019)+0.45*A(1024)+0.45*A(1027)\n  P_VAR(239) = A(37)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)&\n                 &+A(994)+A(996)+A(1046)\n  P_VAR(240) = A(735)+A(739)\n  P_VAR(241) = 0.12*A(150)\n  P_VAR(242) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6&\n                 &*A(478)+0.45*A(479)+0.3*A(480)\n  P_VAR(243) = 0.16*A(536)+0.25*A(551)\n  P_VAR(244) = 0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)+0.054&\n                 &*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)+0.05*A(1039)\n  P_VAR(245) = 0.25*A(255)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)+A(804)&\n                 &+A(808)+A(810)+A(811)\n  P_VAR(246) = 0.31*A(123)+A(125)\n  P_VAR(247) = 0.791*A(169)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687*A(633)&\n                 &+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)+A(1015)\n  P_VAR(248) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1038)\n  P_VAR(249) = A(103)\n  P_VAR(250) = A(162)+0.209*A(169)\n  P_VAR(251) = A(94)+A(115)+0.07*A(123)\n  P_VAR(252) = A(336)\n  P_VAR(253) = 0.964*A(646)+A(658)+A(659)\n  P_VAR(254) = A(644)+A(655)+A(656)\n  P_VAR(255) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)+0.63*A(460)+0.63*A(461)\n  P_VAR(256) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7&\n                 &*A(476)+1.4*A(478)+1.05*A(479)+0.7*A(480)\n  P_VAR(257) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396)\n  P_VAR(258) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)+0.333*A(688)+0.75*A(1035)\n  P_VAR(259) = A(647)+0.32*A(649)+0.165*A(672)+A(683)\n  P_VAR(260) = A(149)+0.209*A(176)+A(332)+A(333)\n  P_VAR(261) = 0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07*A(635)&\n                 &+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)+0.3*A(1013)+0.15*A(1038)\n  P_VAR(262) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15&\n                 &*A(452)+0.675*A(462)+0.675*A(463)+0.675*A(1057)\n  P_VAR(263) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)&\n                 &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5&\n                 &*A(455)+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)+0.14&\n                 &*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1052)\n  P_VAR(264) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)\n  P_VAR(265) = 0.134*A(151)+A(152)+0.5*A(168)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)+0.5*A(694)&\n                 &+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771)\n  P_VAR(266) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)+0.9*A(691)\n  P_VAR(267) = A(518)+0.127*A(608)+0.057*A(609)\n  P_VAR(268) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609)\n  P_VAR(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762)\n  P_VAR(270) = 0.065*A(81)+0.134*A(151)+0.2*A(153)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)+0.18*A(724)&\n                 &+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)+0.5*A(1007)+0.429*A(1009)+0.125&\n                 &*A(1010)+0.586*A(1034)+0.571*A(1036)\n  P_VAR(271) = 0.67*A(621)\n  P_VAR(272) = A(423)+0.27*A(424)+0.18*A(426)\n  P_VAR(273) = 0.1*A(383)+A(409)+A(415)\n  P_VAR(274) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)&\n                 &+0.4*A(427)+A(433)+A(434)+0.5*A(435)+A(439)+A(441)+0.27*A(1054)+0.9*A(1058)\n  P_VAR(275) = 0.15*A(380)+0.255*A(382)+A(408)\n  P_VAR(276) = 0\n  P_VAR(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387)\n  P_VAR(278) = 0.44*A(391)+A(392)+A(395)+A(397)+0.5*A(402)+0.75*A(464)+A(465)+A(1049)+A(1050)+A(1051)\n  P_VAR(279) = A(91)+0.072*A(97)+A(117)\n  P_VAR(280) = 0.1*A(375)+0.1*A(376)+0.5*A(377)+0.5*A(449)+0.5*A(452)+0.5*A(455)\n  P_VAR(281) = A(378)+0.2*A(380)+0.075*A(382)\n  P_VAR(282) = A(29)+0.13*A(31)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)+0.25&\n                 &*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25*A(456)&\n                 &+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(907)\n  P_VAR(283) = 0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)+0.1&\n                 &*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1*A(463)&\n                 &+0.13*A(695)+0.15*A(770)+0.3*A(771)\n  P_VAR(284) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(979)\n  P_VAR(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687)\n  P_VAR(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687)\n  P_VAR(287) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)&\n                 &+0.14*A(542)+0.004*A(631)+0.006*A(633)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)+0.55*A(1027)+0.5&\n                 &*A(1033)+0.15*A(1039)+0.5*A(1041)\n  P_VAR(288) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)&\n                 &+0.14*A(546)+0.054*A(631)+0.059*A(633)+0.335*A(667)+0.429*A(689)+0.75*A(690)+0.55*A(1024)+0.5*A(1041)\n  P_VAR(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377)\n  P_VAR(290) = A(912)\n  P_VAR(291) = 0.5*A(380)\n  P_VAR(292) = 0.25*A(68)+0.19*A(90)+0.19*A(93)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271*A(183)+0.1*A(185)&\n                 &+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5*A(455)+0.464&\n                 &*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)+0.19*A(926)+0.19*A(929)+A(991)+0.5&\n                 &*A(1052)\n  P_VAR(293) = A(620)+0.33*A(621)+0.037*A(691)\n  P_VAR(294) = 0.3*A(33)+0.5*A(136)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)+0.085*A(524)&\n                 &+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545*A(645)+0.88&\n                 &*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14*A(674)+0.7&\n                 &*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)+0.5*A(1007)+0.47*A(1008)+0.571&\n                 &*A(1009)+0.125*A(1010)+0.23*A(1011)+0.118*A(1034)+0.429*A(1036)+A(1040)\n  P_VAR(295) = 0.34*A(90)+0.34*A(93)+A(98)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29*A(183)&\n                 &+A(186)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4*A(413)+0.6*A(414)&\n                 &+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)&\n                 &+0.45*A(462)+0.45*A(463)+A(491)+A(920)+0.34*A(926)+0.34*A(929)+A(1000)+A(1052)+0.6*A(1054)+0.45*A(1057)\n  P_VAR(296) = A(57)+A(179)+A(219)+A(321)+A(701)\n  P_VAR(297) = A(787)+A(789)+A(790)\n  P_VAR(298) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)&\n                 &+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)+0.64*A(171)&\n                 &+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035*A(192)&\n                 &+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75&\n                 &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)&\n                 &+1.15*A(772)+A(917)+A(919)+1.5*A(921)+A(922)+1.5*A(923)+0.15*A(926)+1.558*A(927)+0.15*A(929)+A(989)+A(992)&\n                 &+A(1001)+0.6*A(1054)+A(1055)+A(1056)\n  P_VAR(299) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)+0.18*A(643)\n  P_VAR(300) = A(101)+0.21*A(174)+A(331)+0.2*A(772)\n  P_VAR(301) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159&\n                 &*A(614)+0.159*A(617)+A(619)+A(628)+0.159*A(1029)+0.223*A(1032)\n  P_VAR(302) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015&\n                 &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)+A(657)+A(669)+0.05*A(1038)\n  P_VAR(303) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5&\n                 &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641)\n  P_VAR(304) = 0.5*A(330)+A(495)+0.51*A(536)+0.03*A(538)+0.159*A(1030)\n  P_VAR(305) = 0.5*A(330)+A(494)+0.75*A(535)+0.03*A(537)+0.841*A(1030)\n  P_VAR(306) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)+0.5*A(453)+0.5*A(454)+0.25*A(455)+0.294*A(544)+0.135&\n                 &*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)+0.551*A(594)+0.935*A(595)&\n                 &+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36*A(667)+0.758*A(668)+0.2&\n                 &*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)+0.53*A(1008)+0.69*A(1013)+0.5*A(1032)+0.118&\n                 &*A(1034)+0.25*A(1035)+0.429*A(1036)+0.3*A(1038)+0.35*A(1039)+A(1040)\n  P_VAR(307) = 0.16*A(113)+0.2*A(136)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)+A(548)+0.65&\n                 &*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441*A(597)+0.858&\n                 &*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507*A(670)+0.488&\n                 &*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)+A(993)+0.77*A(1011)+A(1014)+0.5&\n                 &*A(1032)+0.586*A(1034)+0.25*A(1035)+0.571*A(1036)+0.45*A(1038)+0.8*A(1039)\n  P_VAR(308) = A(653)\n  P_VAR(309) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)&\n                 &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)&\n                 &+A(1017)+A(1023)+A(1026)+0.097*A(1028)+0.005*A(1032)\n  P_VAR(310) = 0.465*A(603)+A(626)\n  P_VAR(311) = 0.535*A(603)+A(627)\n  P_VAR(312) = 0.22*A(150)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)+0.88*A(648)+0.5*A(704)+A(712)\n  P_VAR(313) = 0.7*A(33)+A(111)+A(218)+A(329)\n  P_VAR(314) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)&\n                 &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23&\n                 &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903&\n                 &*A(613)+0.904*A(615)+0.04*A(725)+0.04*A(726)+A(1016)+A(1022)+A(1025)+0.903*A(1028)+0.05*A(1032)+0.45&\n                 &*A(1057)\n  P_VAR(315) = 0.34*A(90)+0.34*A(93)+0.49*A(109)+0.16*A(132)+0.16*A(134)+0.22*A(148)+0.36*A(170)+0.29*A(182)+0.29*A(183)&\n                 &+0.49*A(194)+0.49*A(195)+0.49*A(903)+0.415*A(906)+0.34*A(926)+0.34*A(929)\n  P_VAR(316) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822)\n  P_VAR(317) = A(301)\n  P_VAR(318) = A(102)+0.5*A(763)+0.5*A(764)\n  P_VAR(319) = 0.25*A(68)+A(89)+0.15*A(133)+0.15*A(135)+0.21*A(173)+0.27*A(187)+0.27*A(188)+0.6*A(412)+0.4*A(413)+0.6&\n                 &*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6*A(466)+0.8*A(467)+0.6*A(1054)+0.8&\n                 &*A(1055)+0.8*A(1056)\n  P_VAR(320) = A(122)+A(131)+0.3*A(381)\n  P_VAR(321) = A(62)+0.05*A(90)+0.05*A(93)+0.07*A(109)+0.03*A(132)+0.03*A(134)+0.03*A(148)+0.36*A(171)+0.045*A(182)&\n                 &+0.045*A(183)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(903)+0.06*A(906)+0.05*A(926)+0.05*A(929)\n  P_VAR(322) = A(105)+A(107)+A(110)+A(175)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+A(736)+0.44*A(737)+0.33&\n                 &*A(767)+0.33*A(770)+0.15*A(906)+A(914)+0.326*A(927)+0.7*A(1047)+A(1052)\n  P_VAR(323) = A(61)+0.19*A(90)+0.19*A(93)+0.27*A(109)+0.09*A(132)+0.09*A(134)+0.12*A(148)+0.209*A(172)+0.162*A(182)&\n                 &+0.162*A(183)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(903)+0.23*A(906)+0.19*A(926)+0.19*A(929)\n  P_VAR(324) = 0.95*A(51)+A(52)+A(54)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5*A(137)+A(164)&\n                 &+A(166)+0.78*A(178)+0.9*A(184)+0.9*A(185)+A(217)+0.44*A(436)+A(437)+A(440)+A(442)+0.75*A(466)+A(467)+0.3&\n                 &*A(496)+0.3*A(503)+0.018*A(537)+0.38*A(645)+0.12*A(648)+0.04*A(650)+0.097*A(661)+A(665)+0.36*A(667)+0.758&\n                 &*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3*A(685)+A(692)+A(693)+A(740)+0.12*A(897)+0.7*A(899)&\n                 &+A(902)+A(904)+0.85*A(906)+A(911)+A(913)+A(915)+A(916)+0.326*A(927)+A(984)+A(1004)+A(1005)+A(1006)+0.5&\n                 &*A(1007)+0.53*A(1008)+0.429*A(1009)+0.125*A(1010)+0.262*A(1012)+1.01*A(1013)+A(1055)+A(1056)\n  P_VAR(325) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)+A(48)+0.05*A(51)+A(55)+A(65)+0.98*A(73)+A(76)&\n                 &+A(77)+0.603*A(78)+A(80)+0.065*A(81)+A(84)+A(85)+0.64*A(92)+0.64*A(95)+A(96)+A(100)+0.75*A(112)+1.25&\n                 &*A(113)+0.15*A(118)+0.31*A(123)+0.75*A(129)+0.75*A(130)+0.75*A(132)+0.95*A(133)+0.75*A(134)+0.95*A(135)&\n                 &+0.5*A(136)+0.75*A(137)+0.75*A(138)+1.25*A(139)+0.5*A(150)+0.732*A(151)+A(157)+0.44*A(158)+A(159)+A(160)&\n                 &+A(161)+0.22*A(178)+A(181)+0.9*A(184)+0.351*A(187)+0.351*A(188)+0.9*A(189)+0.9*A(192)+A(195)+A(199)+A(201)&\n                 &+0.25*A(231)+A(274)+A(319)+A(324)+A(360)+A(362)+A(363)+A(364)+0.06*A(365)+0.06*A(366)+A(367)+A(368)+0.1&\n                 &*A(381)+0.1*A(383)+0.5*A(388)+0.84*A(399)+A(400)+1.5*A(401)+0.5*A(402)+0.4*A(403)+0.75*A(405)+A(406)&\n                 &+A(407)+0.75*A(413)+0.67*A(421)+A(427)+0.75*A(432)+0.176*A(436)+0.4*A(437)+0.4*A(440)+0.4*A(442)+0.1&\n                 &*A(445)+0.1*A(446)+0.1*A(447)+0.1*A(448)+0.05*A(449)+1.5*A(453)+1.5*A(454)+0.75*A(455)+0.75*A(456)+1.75&\n                 &*A(458)+A(459)+0.75*A(460)+0.85*A(462)+0.1*A(463)+A(464)+1.3*A(466)+0.4*A(467)+0.287*A(469)+A(472)+0.85&\n                 &*A(473)+0.287*A(475)+0.287*A(477)+0.202*A(479)+0.504*A(480)+A(489)+0.827*A(493)+0.3*A(496)+0.3*A(497)&\n                 &+0.063*A(498)+0.063*A(500)+A(502)+0.3*A(503)+A(504)+0.3*A(505)+2*A(506)+2*A(507)+2*A(508)+2*A(512)+A(513)&\n                 &+2*A(514)+A(515)+A(517)+A(521)+0.085*A(524)+0.165*A(525)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.716*A(540)&\n                 &+0.14*A(542)+0.706*A(544)+0.14*A(546)+0.65*A(566)+A(568)+0.059*A(585)+0.272*A(586)+0.599*A(589)+A(590)&\n                 &+0.031*A(594)+0.065*A(595)+0.065*A(597)+0.142*A(598)+0.104*A(600)+0.383*A(601)+0.527*A(604)+1.86*A(606)&\n                 &+0.563*A(607)+0.645*A(609)+1.577*A(610)+A(611)+A(613)+A(615)+0.126*A(631)+0.088*A(632)+0.249*A(633)+0.34&\n                 &*A(635)+0.6*A(645)+0.12*A(648)+0.241*A(650)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.5*A(671)+0.25*A(672)&\n                 &+0.14*A(674)+A(676)+A(682)+0.022*A(691)+0.5*A(694)+A(696)+A(702)+A(703)+0.5*A(704)+0.25*A(705)+A(706)+0.12&\n                 &*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)+0.3*A(901)+A(902)+0.9*A(907)&\n                 &+A(910)+A(913)+A(915)+A(916)+A(924)+A(982)+A(984)+A(990)+A(998)+A(1002)+A(1003)+A(1005)+A(1006)+0.47&\n                 &*A(1008)+0.23*A(1011)+0.75*A(1012)+A(1016)+A(1017)+A(1025)+A(1026)+A(1028)+0.055*A(1032)+0.133*A(1034)&\n                 &+0.55*A(1038)+0.15*A(1039)+A(1052)+A(1053)+0.4*A(1055)+0.4*A(1056)+0.1*A(1057)\n  P_VAR(326) = A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)+A(108)+0.5&\n                 &*A(113)+0.15*A(119)+0.62*A(123)+0.75*A(129)+0.75*A(130)+0.16*A(132)+0.38*A(133)+0.16*A(134)+0.38*A(135)&\n                 &+0.5*A(137)+0.5*A(139)+A(140)+1.6*A(142)+1.6*A(143)+0.5*A(150)+0.64*A(170)+0.29*A(182)+0.29*A(183)+0.9&\n                 &*A(185)+0.675*A(187)+0.675*A(188)+0.9*A(189)+A(190)+A(191)+0.9*A(192)+A(322)+A(323)+A(325)+A(369)+A(370)&\n                 &+A(371)+A(372)+A(373)+A(490)+0.4*A(705)+A(918)+A(924)+A(925)+0.34*A(926)+0.348*A(927)+0.34*A(929)+A(999)\n  P_VAR(327) = A(35)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)+A(486)+A(487)+0.32&\n                 &*A(649)+A(692)+A(706)+A(708)+0.742*A(742)+0.5*A(744)+0.5*A(747)+A(749)+0.5*A(764)+0.5*A(782)+A(783)+2&\n                 &*A(786)+A(787)+2*A(788)+A(789)+A(790)+A(793)+A(794)+A(795)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)&\n                 &+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851)\n  P_VAR(328) = A(25)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)+0.85*A(119)+0.09*A(132)+0.09*A(134)+0.25*A(137)+0.28&\n                 &*A(150)+0.5*A(168)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)+0.9*A(187)&\n                 &+0.9*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(194)+A(198)+A(199)+A(200)+A(201)+0.75&\n                 &*A(231)+0.9*A(257)+A(258)+A(291)+A(320)+A(326)+A(359)+0.9*A(457)+0.9*A(459)+0.9*A(461)+0.9*A(463)+A(465)&\n                 &+A(467)+A(474)+0.5*A(475)+0.407*A(493)+A(611)+A(612)+0.325*A(671)+0.162*A(672)+0.65*A(676)+0.5*A(695)&\n                 &+A(731)+0.88*A(897)+0.3*A(899)+A(904)+2*A(905)+0.15*A(906)+A(914)+A(925)+0.19*A(926)+0.19*A(929)+A(930)&\n                 &+A(939)+A(940)+A(983)+0.488*A(1012)\n  P_VAR(329) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)&\n                 &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)&\n                 &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5&\n                 &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)&\n                 &+1.5*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)&\n                 &+0.2*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)&\n                 &+0.33*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)&\n                 &+A(664)+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25&\n                 &*A(684)+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27&\n                 &*A(725)+0.3*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05&\n                 &*A(772)+A(888)+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)&\n                 &+A(911)+A(912)+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77&\n                 &*A(1011)+A(1014)+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839&\n                 &*A(1031)+A(1033)+0.163*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058)\n  P_VAR(330) = A(352)+A(355)+A(843)\n  P_VAR(331) = A(337)+A(339)+0.2*A(344)+0.809*A(349)+A(352)+A(353)+A(356)+0.4*A(357)+0.996*A(358)+A(359)+2*A(966)+A(967)&\n                 &+A(968)+A(969)+A(970)+A(971)+A(972)+A(973)+A(974)+2*A(975)+A(976)+A(977)+A(980)+A(981)\n  P_VAR(332) = A(339)+A(340)\n  P_VAR(333) = A(273)+A(277)+A(278)+A(281)+A(282)+A(299)+A(795)\n  P_VAR(334) = A(883)+A(985)\n  P_VAR(335) = A(13)+A(22)+A(26)+A(38)+A(40)+A(41)+A(42)+2*A(43)+A(44)+A(46)+A(49)+A(54)+A(55)+A(56)+A(58)+A(60)+A(63)&\n                 &+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)+A(87)+A(90)+2*A(92)+A(93)+2*A(95)+A(96)+0.928&\n                 &*A(97)+A(98)+2*A(100)+A(107)+A(108)+A(109)+0.93*A(123)+A(125)+A(126)+A(127)+A(133)+A(135)+A(139)+A(156)&\n                 &+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)+A(198)+A(209)+A(215)+A(241)+A(242)+A(281)+A(300)&\n                 &+A(337)+2*A(338)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)+A(370)+0.75*A(385)+A(386)+0.5*A(388)+A(392)&\n                 &+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5*A(416)+0.75&\n                 &*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)+A(439)+A(440)&\n                 &+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5*A(473)+A(475)&\n                 &+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)+A(540)+A(544)&\n                 &+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728*A(586)+A(590)&\n                 &+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)+A(614)+2*A(615)&\n                 &+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09*A(643)+0.31&\n                 &*A(650)+A(655)+A(658)+A(668)+A(674)+A(676)+0.5*A(678)+2*A(679)+A(680)+2*A(681)+0.7*A(682)+A(683)+A(690)&\n                 &+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)+A(729)+A(733)+A(736)&\n                 &+A(739)+A(740)+A(751)+A(754)+A(755)+A(757)+A(758)+0.5*A(763)+A(764)+A(779)+A(890)+A(893)+A(894)+A(896)+0.7&\n                 &*A(899)+A(900)+A(917)+A(926)+A(927)+A(928)+A(929)+A(935)+A(936)+A(947)+A(949)+A(971)+A(983)+A(990)+A(991)&\n                 &+A(992)+A(993)+A(995)+A(997)+A(998)+A(999)+A(1000)+A(1001)+A(1005)+0.7*A(1013)+A(1014)+A(1024)+A(1025)&\n                 &+A(1026)+A(1027)+A(1028)+A(1030)+A(1031)+1.555*A(1032)+0.3*A(1038)+A(1039)+A(1040)+A(1041)+0.7*A(1047)\n  P_VAR(336) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)&\n                 &+A(105)+A(111)+A(122)+A(206)+A(225)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)+A(289)&\n                 &+A(290)+A(318)+A(353)+A(354)+A(359)+A(701)+A(781)+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)&\n                 &+A(928)\n  P_VAR(337) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(34)+A(40)+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)&\n                 &+A(60)+A(63)+A(65)+0.75*A(68)+0.513*A(78)+A(80)+0.425*A(81)+A(82)+A(83)+0.25*A(84)+A(85)+0.27*A(90)+0.27&\n                 &*A(93)+A(98)+A(112)+A(113)+A(129)+A(130)+0.64*A(132)+0.5*A(133)+0.64*A(134)+0.5*A(135)+0.3*A(136)+0.5&\n                 &*A(137)+A(138)+0.5*A(139)+A(140)+A(141)+1.2*A(142)+1.2*A(143)+0.28*A(150)+0.773*A(151)+0.2*A(153)+A(157)&\n                 &+0.44*A(158)+A(159)+A(161)+A(163)+A(165)+A(167)+0.9*A(181)+0.243*A(182)+0.243*A(183)+0.9*A(186)+0.9*A(190)&\n                 &+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(195)+A(202)+A(214)+A(216)+A(225)+0.2*A(231)+A(244)+A(245)+A(252)&\n                 &+A(274)+A(275)+A(283)+A(284)+A(285)+A(292)+A(295)+A(315)+A(316)+A(317)+A(319)+A(322)+A(323)+A(324)+0.05&\n                 &*A(381)+0.75*A(385)+A(386)+0.5*A(388)+A(401)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(413)+A(414)+0.75&\n                 &*A(418)+A(419)+0.84*A(429)+A(431)+A(432)+A(445)+A(446)+A(453)+0.5*A(455)+1.75*A(456)+A(457)+1.75*A(458)&\n                 &+A(459)+1.75*A(460)+A(461)+1.75*A(462)+A(463)+0.75*A(464)+0.75*A(466)+A(468)+2*A(472)+0.5*A(473)+A(474)&\n                 &+A(476)+A(478)+0.5*A(479)+0.16*A(493)+0.4*A(496)+0.7*A(497)+0.063*A(498)+0.063*A(500)+0.4*A(503)+0.7&\n                 &*A(505)+2*A(506)+2*A(507)+2*A(508)+A(509)+A(510)+A(511)+2*A(512)+1.5*A(513)+2*A(514)+1.5*A(515)+A(517)&\n                 &+0.45*A(519)+A(521)+0.45*A(523)+0.085*A(524)+0.165*A(525)+0.283*A(528)+A(530)+0.25*A(535)+0.33*A(536)&\n                 &+0.024*A(537)+0.042*A(538)+A(540)+0.275*A(542)+A(544)+0.275*A(546)+0.75*A(551)+A(552)+A(554)+A(556)+0.65&\n                 &*A(558)+A(559)+A(561)+A(563)+0.65*A(565)+0.65*A(566)+A(568)+A(569)+0.4*A(582)+0.4*A(583)+A(584)+0.059&\n                 &*A(585)+0.272*A(586)+A(588)+0.599*A(589)+A(590)+A(592)+A(593)+0.582*A(594)+A(595)+0.506*A(597)+A(598)&\n                 &+0.379*A(600)+A(601)+0.089*A(607)+0.064*A(608)+0.336*A(609)+0.611*A(610)+0.159*A(612)+0.159*A(614)+0.159&\n                 &*A(617)+A(619)+0.326*A(631)+0.58*A(632)+0.5*A(633)+0.904*A(635)+0.295*A(638)+0.33*A(639)+0.33*A(640)+0.89&\n                 &*A(642)+0.73*A(643)+0.1*A(645)+0.036*A(646)+0.715*A(661)+A(663)+A(665)+A(666)+0.305*A(667)+0.242*A(668)&\n                 &+0.507*A(670)+0.86*A(674)+0.7*A(682)+0.5*A(686)+0.444*A(687)+0.62*A(691)+0.5*A(694)+A(699)+0.7*A(702)+0.1&\n                 &*A(704)+0.18*A(705)+0.03*A(707)+A(709)+A(711)+0.364*A(714)+0.6*A(718)+A(719)+A(720)+0.54*A(724)+0.19&\n                 &*A(725)+0.15*A(726)+A(727)+A(728)+A(729)+2*A(730)+A(731)+A(733)+0.8*A(741)+0.727*A(743)+A(746)+A(765)&\n                 &+A(766)+0.33*A(767)+0.1*A(768)+0.2*A(769)+0.33*A(770)+0.1*A(771)+0.2*A(772)+A(773)+A(775)+A(777)+A(779)&\n                 &+A(887)+A(888)+A(893)+A(897)+0.3*A(901)+A(902)+A(903)+1.73*A(907)+2*A(908)+A(911)+A(913)+A(915)+A(916)&\n                 &+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)+0.27*A(926)+0.326*A(927)+A(928)+0.27&\n                 &*A(929)+A(982)+A(989)+A(990)+A(998)+A(999)+A(1000)+A(1001)+A(1003)+A(1004)+A(1006)+1.5*A(1007)+0.47&\n                 &*A(1008)+0.571*A(1009)+0.125*A(1010)+A(1011)+0.29*A(1013)+A(1014)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)&\n                 &+0.112*A(1020)+0.182*A(1021)+A(1022)+A(1023)+0.45*A(1024)+A(1025)+A(1026)+0.45*A(1027)+0.33*A(1028)+0.159&\n                 &*A(1029)+0.161*A(1031)+0.228*A(1032)+1.5*A(1033)+A(1034)+0.75*A(1035)+A(1036)+1.454*A(1037)+0.7*A(1038)&\n                 &+0.7*A(1039)+A(1041)+A(1043)+A(1046)+A(1048)+A(1049)+A(1053)+A(1054)+A(1057)+A(1058)\n  P_VAR(338) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69&\n                 &*A(266)+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)+A(280)+A(293)+A(297)+2*A(308)+0.1&\n                 &*A(309)+A(313)+A(319)+A(322)+A(323)+A(945)+A(949)\n  P_VAR(339) = 0.12*A(253)+A(276)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)+A(320)+A(321)+A(324)&\n                 &+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)+A(812)\n  P_VAR(340) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69&\n                 &*A(266)+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2&\n                 &*A(288)+A(289)+2*A(290)+A(298)+A(300)+A(303)+A(304)+A(306)+2*A(316)+3*A(317)+0.249*A(349)+A(940)+2*A(941)&\n                 &+A(942)+2*A(943)+A(944)+A(946)+A(947)+A(948)+A(950)+3*A(951)+4*A(952)+3*A(953)+2*A(954)+3*A(955)+2*A(956)&\n                 &+A(957)+2*A(958)+2*A(959)+A(960)+A(961)+A(963)+A(965)+A(976)+A(981)\n  P_VAR(341) = 0.15*A(128)+0.15*A(148)+0.15*A(158)+A(232)+0.15*A(391)+0.15*A(436)+0.13*A(671)+0.13*A(678)+0.13*A(695)&\n                 &+0.15*A(737)+0.15*A(750)\n  P_VAR(342) = A(206)+2*A(207)+A(209)+A(211)+A(213)+A(214)+3*A(223)+2*A(224)+A(225)+A(251)+0.6*A(254)+0.56*A(258)+0.95&\n                 &*A(259)+1.4*A(260)+0.34*A(264)+0.75*A(272)+A(310)+A(311)+A(343)+A(344)+2*A(931)+A(932)+A(933)+A(934)&\n                 &+A(936)+3*A(937)+2*A(938)+A(939)+A(942)+A(962)+A(963)+2*A(964)+A(977)+A(980)\n  P_VAR(343) = A(18)+A(227)+A(228)+A(237)+0.02*A(247)+A(248)+A(249)+A(250)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21&\n                 &*A(256)+0.1*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31&\n                 &*A(266)+0.35*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)+A(882)+2*A(884)+A(885)&\n                 &+A(894)+A(932)+A(944)+A(945)+A(968)+A(988)\n  P_VAR(344) = A(5)\n  P_VAR(345) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.5*A(71)+0.25*A(84)+0.15*A(118)+0.15*A(119)+0.44*A(128)+0.44&\n                 &*A(148)+0.36*A(150)+0.227*A(151)+A(152)+0.44*A(158)+A(168)+0.791*A(169)+0.64*A(170)+0.64*A(171)+0.791&\n                 &*A(172)+0.79*A(173)+0.79*A(174)+0.791*A(176)+A(177)+0.22*A(178)+A(212)+A(213)+2*A(226)+A(229)+0.75*A(231)&\n                 &+A(236)+A(244)+A(246)+1.788*A(247)+A(252)+0.66*A(253)+0.6*A(254)+0.05*A(261)+A(297)+0.865*A(379)+0.8&\n                 &*A(381)+0.65*A(383)+0.44*A(391)+0.6*A(421)+0.865*A(424)+0.44*A(436)+0.3*A(447)+0.3*A(448)+0.15*A(449)&\n                 &+A(454)+0.28*A(493)+1.5*A(496)+1.5*A(497)+0.063*A(498)+0.063*A(500)+A(502)+1.5*A(503)+A(504)+1.5*A(505)&\n                 &+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+1.085*A(524)+1.165*A(525)+A(526)&\n                 &+A(527)+1.065*A(528)+A(529)+A(532)+A(534)+0.405*A(537)+0.745*A(538)+A(539)+0.275*A(542)+A(543)+0.275&\n                 &*A(546)+A(548)+1.3*A(550)+A(557)+0.65*A(558)+A(562)+0.65*A(565)+0.65*A(566)+A(569)+A(570)+2*A(571)+A(572)&\n                 &+2*A(573)+0.6*A(582)+0.6*A(583)+0.518*A(585)+0.599*A(589)+0.582*A(594)+0.506*A(597)+0.379*A(600)+0.527&\n                 &*A(604)+A(623)+A(624)+A(628)+A(629)+A(630)+1.147*A(631)+0.646*A(632)+0.435*A(633)+0.096*A(635)+0.244&\n                 &*A(638)+A(640)+0.82*A(643)+0.08*A(645)+0.12*A(648)+0.68*A(649)+0.02*A(650)+A(651)+A(652)+A(654)+A(656)&\n                 &+A(659)+0.285*A(661)+A(662)+A(664)+0.665*A(667)+0.59*A(670)+0.5*A(671)+0.585*A(672)+A(673)+0.5*A(678)+0.7&\n                 &*A(685)+0.5*A(686)+0.444*A(687)+A(688)+A(689)+0.3*A(691)+0.5*A(694)+0.5*A(695)+A(696)+A(697)+A(698)+0.18&\n                 &*A(704)+A(710)+0.636*A(714)+A(723)+A(727)+0.44*A(737)+A(746)+0.2*A(750)+0.25*A(767)+0.1*A(768)+0.25*A(770)&\n                 &+0.1*A(771)+2*A(886)+A(887)+A(890)+A(891)+A(892)+0.07*A(907)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)&\n                 &+A(923)+A(924)+A(925)+A(930)+A(933)+A(950)+A(967)+A(984)+2*A(987)+A(989)+2*A(1002)+A(1003)+A(1008)+A(1009)&\n                 &+1.75*A(1010)+A(1011)+0.75*A(1012)+0.01*A(1013)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)+1.662*A(1020)&\n                 &+1.637*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.67*A(1028)+A(1029)+0.645*A(1031)+0.5*A(1033)&\n                 &+A(1034)+1.25*A(1035)+A(1036)+0.546*A(1037)+A(1038)+0.3*A(1039)+A(1040)+A(1042)+A(1044)+A(1048)+A(1050)&\n                 &+A(1051)+A(1052)+A(1053)+A(1054)+A(1055)+A(1056)+A(1057)\n  P_VAR(346) = A(49)+1.22*A(230)+A(240)+A(248)+2*A(335)+A(700)+A(774)+A(776)+A(778)+A(885)+A(891)+A(895)+A(970)\n  P_VAR(347) = A(203)+A(212)+A(215)+0.2*A(254)+0.44*A(258)+0.95*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)&\n                 &+A(935)\n  P_VAR(348) = A(11)+A(199)+0.75*A(200)+A(201)+A(238)+A(239)+A(986)+A(987)\n  P_VAR(349) = A(823)\n  P_VAR(350) = A(824)\n  P_VAR(351) = A(16)+A(36)+A(46)+A(88)+A(210)+A(243)+A(282)+A(313)+A(314)+A(342)+A(364)+A(371)+A(488)+0.69*A(650)+A(684)&\n                 &+A(756)+A(892)+A(896)+0.3*A(899)+A(934)+A(948)+A(972)+A(982)+0.3*A(1047)\n  P_VAR(352) = A(205)+A(216)+A(217)+A(218)+A(219)+A(220)+0.2*A(254)+A(333)+A(819)\n  P_VAR(353) = A(2)\n\n! Destruction function\n  D_VAR(1) = RCT(975)\n  D_VAR(2) = RCT(977)\n  D_VAR(3) = RCT(976)\n  D_VAR(4) = 0\n  D_VAR(5) = 0\n  D_VAR(6) = 0\n  D_VAR(7) = 0\n  D_VAR(8) = 0\n  D_VAR(9) = 0\n  D_VAR(10) = 0\n  D_VAR(11) = 0\n  D_VAR(12) = 0\n  D_VAR(13) = RCT(773)*V(337)+RCT(774)*V(346)\n  D_VAR(14) = 0\n  D_VAR(15) = 0\n  D_VAR(16) = 0\n  D_VAR(17) = 0\n  D_VAR(18) = RCT(699)*V(337)+RCT(700)*V(346)\n  D_VAR(19) = RCT(698)*V(345)\n  D_VAR(20) = 0\n  D_VAR(21) = 0\n  D_VAR(22) = RCT(775)*V(337)+RCT(776)*V(346)\n  D_VAR(23) = 0\n  D_VAR(24) = RCT(177)*V(345)+RCT(861)\n  D_VAR(25) = 0\n  D_VAR(26) = 0\n  D_VAR(27) = RCT(777)*V(337)+RCT(778)*V(346)\n  D_VAR(28) = 0\n  D_VAR(29) = 0\n  D_VAR(30) = 0\n  D_VAR(31) = 0\n  D_VAR(32) = 0\n  D_VAR(33) = 0\n  D_VAR(34) = 0\n  D_VAR(35) = 0\n  D_VAR(36) = 0\n  D_VAR(37) = 0\n  D_VAR(38) = 0\n  D_VAR(39) = 0\n  D_VAR(40) = 0\n  D_VAR(41) = RCT(780)*V(345)\n  D_VAR(42) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(978)\n  D_VAR(43) = RCT(286)*V(345)+RCT(951)\n  D_VAR(44) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(973)\n  D_VAR(45) = RCT(487)\n  D_VAR(46) = RCT(256)*V(334)+RCT(952)\n  D_VAR(47) = RCT(262)*V(334)+RCT(953)\n  D_VAR(48) = RCT(263)*V(334)+RCT(954)\n  D_VAR(49) = RCT(269)*V(334)+RCT(955)\n  D_VAR(50) = RCT(270)*V(334)+RCT(956)\n  D_VAR(51) = RCT(271)*V(334)+RCT(957)\n  D_VAR(52) = RCT(359)*V(345)+RCT(974)\n  D_VAR(53) = RCT(265)*V(334)+RCT(962)\n  D_VAR(54) = RCT(272)*V(334)+RCT(964)\n  D_VAR(55) = RCT(833)+RCT(834)+RCT(835)+RCT(979)\n  D_VAR(56) = RCT(394)\n  D_VAR(57) = RCT(439)\n  D_VAR(58) = RCT(732)*V(345)\n  D_VAR(59) = RCT(936)\n  D_VAR(60) = RCT(714)*V(345)\n  D_VAR(61) = RCT(264)*V(334)+RCT(963)\n  D_VAR(62) = RCT(335)*2*V(62)+RCT(970)\n  D_VAR(63) = RCT(230)*V(334)+RCT(985)\n  D_VAR(64) = RCT(996)+RCT(997)\n  D_VAR(65) = RCT(994)+RCT(995)\n  D_VAR(66) = RCT(397)*V(345)+RCT(1051)\n  D_VAR(67) = RCT(248)*F(3)+RCT(249)*V(346)+RCT(250)*V(335)\n  D_VAR(68) = RCT(238)*V(343)+RCT(239)*V(345)+RCT(986)\n  D_VAR(69) = RCT(66)*V(345)+RCT(67)*V(351)\n  D_VAR(70) = RCT(721)*V(345)\n  D_VAR(71) = RCT(753)*V(345)+RCT(1044)\n  D_VAR(72) = RCT(161)*V(345)\n  D_VAR(73) = RCT(353)*V(345)+RCT(825)+RCT(826)+RCT(827)\n  D_VAR(74) = RCT(396)*V(345)+RCT(1050)\n  D_VAR(75) = RCT(285)*V(345)+RCT(317)*V(340)\n  D_VAR(76) = RCT(278)*V(345)+RCT(308)+RCT(946)\n  D_VAR(77) = RCT(980)\n  D_VAR(78) = RCT(224)*V(345)+RCT(259)*V(334)+RCT(938)\n  D_VAR(79) = RCT(284)*V(345)+RCT(316)*V(340)+RCT(941)\n  D_VAR(80) = RCT(198)+RCT(982)+RCT(983)\n  D_VAR(81) = RCT(223)*V(345)+RCT(260)*V(334)+RCT(937)\n  D_VAR(82) = RCT(725)*V(345)\n  D_VAR(83) = RCT(490)*V(345)+RCT(999)\n  D_VAR(84) = RCT(268)*V(334)+RCT(290)*V(345)+RCT(958)\n  D_VAR(85) = RCT(266)*V(334)+RCT(288)*V(345)+RCT(959)\n  D_VAR(86) = RCT(267)*V(334)+RCT(289)*V(345)+RCT(960)\n  D_VAR(87) = RCT(261)*V(334)+RCT(287)*V(345)+RCT(961)\n  D_VAR(88) = RCT(694)*V(345)+RCT(1002)\n  D_VAR(89) = RCT(11)+RCT(12)*V(345)*V(348)\n  D_VAR(90) = RCT(754)+RCT(755)*V(345)\n  D_VAR(91) = RCT(491)*V(345)+RCT(1000)\n  D_VAR(92) = RCT(178)*V(345)+RCT(930)\n  D_VAR(93) = RCT(489)*V(345)+RCT(998)\n  D_VAR(94) = RCT(199)*V(345)+RCT(200)*V(345)+RCT(201)*V(351)\n  D_VAR(95) = RCT(492)*V(345)+RCT(1001)\n  D_VAR(96) = RCT(345)*V(284)+RCT(346)*2*V(96)+RCT(348)*V(346)+RCT(969)\n  D_VAR(97) = RCT(173)*V(345)+RCT(921)\n  D_VAR(98) = RCT(71)*V(345)+RCT(922)\n  D_VAR(99) = RCT(171)*V(345)+RCT(919)\n  D_VAR(100) = RCT(172)*V(345)+RCT(920)\n  D_VAR(101) = RCT(726)*V(345)\n  D_VAR(102) = RCT(174)*V(345)+RCT(923)\n  D_VAR(103) = RCT(486)\n  D_VAR(104) = RCT(981)\n  D_VAR(105) = RCT(225)*V(345)+RCT(258)*V(334)+RCT(939)\n  D_VAR(106) = RCT(719)+RCT(720)*F(3)\n  D_VAR(107) = RCT(685)*V(345)+RCT(868)\n  D_VAR(108) = RCT(40)+RCT(41)*V(345)+RCT(892)+RCT(893)\n  D_VAR(109) = RCT(712)*V(341)+RCT(713)*V(345)\n  D_VAR(110) = RCT(306)+RCT(309)*V(340)+RCT(965)\n  D_VAR(111) = RCT(387)*V(345)+RCT(1048)\n  D_VAR(112) = RCT(408)*V(345)+RCT(1053)\n  D_VAR(113) = RCT(125)+4.51e-12*V(345)\n  D_VAR(114) = RCT(156)+RCT(160)*V(345)\n  D_VAR(115) = RCT(693)*V(345)+RCT(867)+RCT(1004)\n  D_VAR(116) = RCT(711)*V(345)+RCT(928)\n  D_VAR(117) = RCT(760)*V(345)+RCT(1045)\n  D_VAR(118) = RCT(170)*V(345)+RCT(918)\n  D_VAR(119) = RCT(530)*V(345)\n  D_VAR(120) = RCT(277)*V(345)+RCT(945)\n  D_VAR(121) = RCT(733)*V(346)+RCT(734)*V(337)\n  D_VAR(122) = RCT(739)+RCT(740)*V(345)\n  D_VAR(123) = RCT(176)*V(345)+RCT(924)\n  D_VAR(124) = RCT(107)+RCT(108)*V(345)+RCT(1047)\n  D_VAR(125) = RCT(169)*V(345)+RCT(917)\n  D_VAR(126) = RCT(87)+RCT(88)*V(345)+RCT(900)\n  D_VAR(127) = RCT(80)*V(345)\n  D_VAR(128) = RCT(551)*V(345)+RCT(860)\n  D_VAR(129) = RCT(409)*V(345)\n  D_VAR(130) = RCT(442)*V(345)+RCT(1056)\n  D_VAR(131) = RCT(663)*V(345)\n  D_VAR(132) = RCT(82)*V(346)+RCT(83)*V(337)\n  D_VAR(133) = RCT(570)*V(346)+RCT(571)*V(337)\n  D_VAR(134) = RCT(987)\n  D_VAR(135) = RCT(572)*V(346)+RCT(573)*V(337)\n  D_VAR(136) = RCT(722)*V(345)+RCT(723)*V(345)+RCT(1042)\n  D_VAR(137) = RCT(388)*V(345)\n  D_VAR(138) = RCT(407)*V(345)\n  D_VAR(139) = RCT(54)+RCT(55)*V(345)+RCT(899)\n  D_VAR(140) = RCT(75)*V(345)+RCT(76)*V(351)+RCT(77)*V(341)\n  D_VAR(141) = RCT(61)*V(345)+RCT(62)*V(345)+RCT(220)*V(342)+RCT(327)*V(340)+RCT(328)*V(340)\n  D_VAR(142) = RCT(89)*V(345)+RCT(101)*V(351)+RCT(331)*V(340)\n  D_VAR(143) = RCT(724)*V(345)\n  D_VAR(144) = RCT(527)*V(345)+RCT(1023)\n  D_VAR(145) = RCT(619)*F(3)+RCT(620)\n  D_VAR(146) = 7.09e-11*V(345)+RCT(902)\n  D_VAR(147) = RCT(687)*V(345)+RCT(1037)\n  D_VAR(148) = RCT(211)*V(345)+RCT(931)\n  D_VAR(149) = RCT(705)*V(345)+RCT(706)*V(351)\n  D_VAR(150) = RCT(526)*V(345)+RCT(1022)\n  D_VAR(151) = RCT(552)*V(345)+RCT(553)*V(345)+RCT(858)\n  D_VAR(152) = RCT(554)*V(345)+RCT(555)*V(345)+RCT(859)\n  D_VAR(153) = RCT(666)*V(345)\n  D_VAR(154) = RCT(488)*V(345)+RCT(866)+RCT(993)\n  D_VAR(155) = RCT(175)*V(345)+RCT(925)\n  D_VAR(156) = RCT(140)*V(345)+RCT(325)*V(340)\n  D_VAR(157) = RCT(942)\n  D_VAR(158) = RCT(743)*V(345)+RCT(744)*V(351)\n  D_VAR(159) = RCT(672)*V(345)+RCT(1012)\n  D_VAR(160) = RCT(402)*V(345)+RCT(1052)\n  D_VAR(161) = RCT(415)*V(345)+RCT(1054)\n  D_VAR(162) = RCT(416)*V(345)\n  D_VAR(163) = RCT(433)*V(345)+RCT(434)*V(351)\n  D_VAR(164) = RCT(32)*V(345)+RCT(320)*V(340)+RCT(887)\n  D_VAR(165) = RCT(73)*V(346)+RCT(74)*V(337)\n  D_VAR(166) = RCT(4)*V(341)*V(348)+RCT(5)*V(339)+RCT(6)*V(327)\n  D_VAR(167) = RCT(377)*V(351)+RCT(378)*V(345)+RCT(379)*V(341)\n  D_VAR(168) = RCT(576)*V(345)+RCT(577)*V(345)+RCT(871)+RCT(1026)\n  D_VAR(169) = RCT(441)*V(345)+RCT(1055)\n  D_VAR(170) = RCT(339)*V(351)+RCT(352)*V(345)+RCT(966)\n  D_VAR(171) = RCT(655)*V(346)+RCT(656)*V(337)+RCT(657)*V(335)\n  D_VAR(172) = RCT(658)*V(346)+RCT(659)*V(337)+RCT(660)*V(335)\n  D_VAR(173) = RCT(701)*V(345)\n  D_VAR(174) = RCT(688)*V(345)+RCT(1035)\n  D_VAR(175) = RCT(574)*V(345)+RCT(575)*V(345)+RCT(870)+RCT(1025)\n  D_VAR(176) = RCT(403)*V(345)\n  D_VAR(177) = RCT(435)*V(345)\n  D_VAR(178) = RCT(68)*V(346)+RCT(69)*V(346)+RCT(70)*V(337)\n  D_VAR(179) = RCT(1)*V(341)*V(348)+RCT(2)*V(339)+RCT(3)*V(327)\n  D_VAR(180) = RCT(642)*V(346)+RCT(643)*V(337)\n  D_VAR(181) = RCT(257)*V(334)+RCT(283)*V(345)+RCT(315)*V(340)+RCT(940)\n  D_VAR(182) = RCT(639)*V(346)+RCT(640)*V(337)\n  D_VAR(183) = RCT(57)*V(345)+RCT(179)*V(351)+RCT(219)*V(342)+RCT(321)*V(340)\n  D_VAR(184) = RCT(683)+RCT(684)*V(345)\n  D_VAR(185) = RCT(662)*V(345)+RCT(1009)\n  D_VAR(186) = RCT(622)*V(345)+RCT(624)*V(345)+RCT(625)*V(345)+RCT(627)*V(345)+RCT(628)*V(345)+RCT(874)+RCT(1029)&\n                 &+RCT(1030)\n  D_VAR(187) = RCT(531)*V(345)+RCT(532)*V(345)+RCT(535)*V(345)+RCT(1016)\n  D_VAR(188) = RCT(141)*V(345)\n  D_VAR(189) = RCT(709)*V(346)+RCT(710)*V(337)\n  D_VAR(190) = RCT(588)+RCT(589)*V(337)+RCT(590)*V(346)+RCT(591)*V(346)\n  D_VAR(191) = RCT(375)*V(351)+RCT(382)*V(345)+RCT(383)*V(341)\n  D_VAR(192) = RCT(533)*V(345)+RCT(534)*V(345)+RCT(536)*V(345)+RCT(1017)\n  D_VAR(193) = RCT(450)*V(345)+RCT(451)*V(341)+RCT(452)*V(351)\n  D_VAR(194) = RCT(661)*V(345)+RCT(1010)\n  D_VAR(195) = RCT(741)*V(345)+RCT(742)*V(351)\n  D_VAR(196) = RCT(72)*V(345)+RCT(927)\n  D_VAR(197) = RCT(84)*V(337)+RCT(85)*V(346)+RCT(86)*V(335)\n  D_VAR(198) = RCT(689)*V(345)+RCT(1036)\n  D_VAR(199) = RCT(538)*V(345)+RCT(1019)\n  D_VAR(200) = RCT(707)*V(345)+RCT(708)*V(351)\n  D_VAR(201) = RCT(770)*V(345)+RCT(771)*V(341)+RCT(772)\n  D_VAR(202) = RCT(745)*V(345)+RCT(746)*V(341)+RCT(747)*V(351)\n  D_VAR(203) = RCT(761)*V(341)+RCT(762)*V(335)\n  D_VAR(204) = RCT(748)*V(345)+RCT(749)*V(351)+RCT(1043)\n  D_VAR(205) = RCT(584)+RCT(585)*V(337)+RCT(586)*V(346)+RCT(587)*V(346)\n  D_VAR(206) = RCT(592)+RCT(594)*V(337)+RCT(595)*V(346)+RCT(596)*V(346)\n  D_VAR(207) = RCT(593)+RCT(597)*V(337)+RCT(598)*V(346)+RCT(599)*V(346)\n  D_VAR(208) = RCT(665)*V(345)+RCT(1006)\n  D_VAR(209) = RCT(537)*V(345)+RCT(1018)\n  D_VAR(210) = RCT(696)*V(345)+RCT(697)*V(345)+RCT(1003)\n  D_VAR(211) = RCT(426)*V(345)+RCT(427)*V(341)+RCT(428)*V(351)\n  D_VAR(212) = RCT(78)*V(346)+RCT(79)*V(337)\n  D_VAR(213) = RCT(155)*V(335)+RCT(157)*V(346)+RCT(158)*V(337)+RCT(159)*V(351)\n  D_VAR(214) = RCT(46)+RCT(786)*V(336)+RCT(787)*V(339)+RCT(788)+RCT(789)*V(353)+RCT(790)*V(344)+RCT(896)\n  D_VAR(215) = RCT(529)*V(345)+RCT(873)\n  D_VAR(216) = RCT(654)*V(345)+RCT(879)+RCT(1015)\n  D_VAR(217) = RCT(245)*F(3)+RCT(246)*V(341)+RCT(247)*V(337)\n  D_VAR(218) = RCT(210)*V(342)+RCT(793)*V(336)+RCT(794)*V(339)+RCT(934)+RCT(935)\n  D_VAR(219) = RCT(376)*V(351)+RCT(380)*V(345)+RCT(381)*V(341)\n  D_VAR(220) = RCT(702)*V(345)+RCT(703)*V(351)+RCT(704)*V(341)\n  D_VAR(221) = RCT(767)*V(345)+RCT(768)*V(341)+RCT(769)\n  D_VAR(222) = RCT(621)*V(345)+RCT(623)*V(345)+RCT(626)*V(345)+RCT(875)+RCT(1028)\n  D_VAR(223) = RCT(539)+RCT(540)*V(346)+RCT(541)*V(346)+RCT(542)*V(337)\n  D_VAR(224) = RCT(543)+RCT(544)*V(346)+RCT(545)*V(346)+RCT(546)*V(337)\n  D_VAR(225) = RCT(389)*V(351)+RCT(390)*V(345)+RCT(1049)\n  D_VAR(226) = RCT(629)+RCT(632)*V(337)+RCT(635)*V(346)+RCT(636)*V(346)\n  D_VAR(227) = RCT(664)*V(345)+RCT(1007)\n  D_VAR(228) = RCT(25)*V(345)+RCT(231)*V(334)+RCT(291)*V(340)\n  D_VAR(229) = RCT(447)*V(345)+RCT(448)*V(341)+RCT(449)*V(351)+RCT(989)+RCT(1057)\n  D_VAR(230) = RCT(524)*V(345)+RCT(1020)\n  D_VAR(231) = RCT(525)*V(345)+RCT(1021)\n  D_VAR(232) = RCT(547)+RCT(548)*V(346)+RCT(549)*V(346)+RCT(550)*V(337)\n  D_VAR(233) = RCT(81)*V(345)+RCT(901)\n  D_VAR(234) = RCT(715)*V(337)+RCT(716)*V(346)+RCT(717)*V(351)+RCT(718)*V(328)\n  D_VAR(235) = RCT(750)*V(337)+RCT(751)*V(346)+RCT(752)*V(335)+RCT(766)*V(328)\n  D_VAR(236) = RCT(756)*V(335)+RCT(757)*V(346)+RCT(758)*V(351)+RCT(759)*V(337)+RCT(765)*V(328)\n  D_VAR(237) = RCT(423)*V(345)+RCT(424)*V(341)+RCT(425)*V(351)\n  D_VAR(238) = RCT(528)*V(345)\n  D_VAR(239) = RCT(38)*V(345)+RCT(891)\n  D_VAR(240) = RCT(736)*V(346)+RCT(737)*V(337)+RCT(738)*V(335)\n  D_VAR(241) = RCT(369)*V(329)+RCT(370)*V(346)+RCT(371)*V(335)+RCT(372)*V(348)+RCT(373)*V(336)+RCT(374)*V(336)\n  D_VAR(242) = RCT(482)*V(345)+RCT(483)*V(341)+RCT(484)*V(351)+RCT(865)+RCT(992)\n  D_VAR(243) = RCT(566)*V(337)+RCT(567)*V(346)+RCT(568)*V(346)+RCT(569)\n  D_VAR(244) = RCT(33)*V(345)+RCT(984)\n  D_VAR(245) = RCT(255)*V(334)+RCT(273)*V(345)+RCT(943)\n  D_VAR(246) = RCT(124)*V(335)+RCT(127)*V(346)+RCT(128)*V(337)\n  D_VAR(247) = RCT(361)*V(345)+RCT(1005)\n  D_VAR(248) = RCT(653)*V(345)+RCT(880)+RCT(1014)\n  D_VAR(249) = RCT(92)*V(346)+RCT(117)*V(337)+RCT(135)*V(328)+RCT(188)*V(324)\n  D_VAR(250) = RCT(100)*V(346)+RCT(121)*V(337)+RCT(139)*V(328)+RCT(189)*V(324)\n  D_VAR(251) = RCT(102)*V(345)+RCT(863)+RCT(926)\n  D_VAR(252) = RCT(337)+RCT(338)*2*V(252)+RCT(839)+RCT(840)+RCT(844)*V(349)+RCT(845)*V(350)+RCT(846)*V(353)+RCT(847)&\n                 &*V(344)+RCT(971)\n  D_VAR(253) = RCT(670)*V(337)+RCT(673)+RCT(674)*V(346)+RCT(675)*V(346)\n  D_VAR(254) = RCT(667)*V(337)+RCT(668)*V(346)+RCT(669)*V(346)\n  D_VAR(255) = RCT(420)*V(345)+RCT(421)*V(341)+RCT(422)*V(351)+RCT(1058)\n  D_VAR(256) = RCT(481)*V(345)+RCT(485)*V(351)+RCT(864)+RCT(991)\n  D_VAR(257) = RCT(391)*V(337)+RCT(392)*V(346)+RCT(393)*V(335)+RCT(395)*V(351)+RCT(464)*V(328)+RCT(465)*V(324)\n  D_VAR(258) = RCT(686)*V(345)+RCT(1033)+RCT(1034)\n  D_VAR(259) = RCT(671)*V(337)+RCT(676)*V(346)+RCT(677)*V(335)\n  D_VAR(260) = RCT(65)*V(346)+RCT(113)*V(328)+RCT(147)*V(337)+RCT(192)*V(324)\n  D_VAR(261) = RCT(360)*V(345)+RCT(692)*V(351)+RCT(990)\n  D_VAR(262) = RCT(453)*V(345)+RCT(454)*V(341)+RCT(455)*V(351)\n  D_VAR(263) = RCT(727)*V(337)+RCT(728)*V(346)+RCT(729)*V(351)+RCT(730)*V(328)+RCT(731)*V(324)\n  D_VAR(264) = RCT(7)*V(348)+RCT(21)*V(345)+RCT(244)*V(343)+RCT(295)*V(340)+RCT(886)\n  D_VAR(265) = RCT(47)*V(345)+RCT(318)*V(340)\n  D_VAR(266) = RCT(690)*V(345)+RCT(877)+RCT(1040)+RCT(1041)\n  D_VAR(267) = RCT(580)*V(345)+RCT(581)*V(345)+RCT(583)*V(345)+RCT(872)+RCT(1027)\n  D_VAR(268) = RCT(578)*V(345)+RCT(579)*V(345)+RCT(582)*V(345)+RCT(869)+RCT(1024)\n  D_VAR(269) = RCT(763)*V(345)+RCT(764)*V(351)+RCT(881)+RCT(1046)\n  D_VAR(270) = RCT(163)*V(345)+RCT(165)*V(351)+RCT(856)+RCT(908)+RCT(909)+RCT(910)\n  D_VAR(271) = RCT(630)+RCT(631)*V(337)+RCT(633)*V(346)+RCT(634)*V(346)\n  D_VAR(272) = RCT(429)*V(346)+RCT(430)*V(337)+RCT(431)*V(351)+RCT(432)*V(328)\n  D_VAR(273) = RCT(410)*V(337)+RCT(411)*V(346)+RCT(412)*V(346)+RCT(413)*V(328)+RCT(414)*V(351)\n  D_VAR(274) = RCT(436)*V(337)+RCT(437)*V(346)+RCT(438)*V(335)+RCT(440)*V(351)+RCT(466)*V(328)+RCT(467)*V(324)\n  D_VAR(275) = RCT(404)*V(337)+RCT(405)*V(346)+RCT(406)*V(351)+RCT(458)*V(328)+RCT(459)*V(324)\n  D_VAR(276) = RCT(330)*V(340)+RCT(493)*V(341)+RCT(494)*V(345)+RCT(495)*V(345)+RCT(496)*V(345)+RCT(497)*V(345)+RCT(603)&\n                 &*V(351)\n  D_VAR(277) = RCT(384)*V(337)+RCT(385)*V(346)+RCT(386)*V(351)+RCT(456)*V(328)+RCT(457)*V(324)\n  D_VAR(278) = RCT(398)*V(337)+RCT(399)*V(346)+RCT(400)*V(351)+RCT(401)*V(328)\n  D_VAR(279) = RCT(103)*V(345)+RCT(929)\n  D_VAR(280) = RCT(468)*V(346)+RCT(470)*V(337)+RCT(472)*V(328)+RCT(474)*V(324)+RCT(476)*V(351)+RCT(478)*2*V(280)&\n                 &+RCT(479)*V(289)\n  D_VAR(281) = RCT(417)*V(337)+RCT(418)*V(346)+RCT(419)*V(351)+RCT(460)*V(328)+RCT(461)*V(324)\n  D_VAR(282) = RCT(48)*V(345)+RCT(324)*V(340)\n  D_VAR(283) = RCT(104)*V(345)+RCT(326)*V(340)\n  D_VAR(284) = RCT(340)*V(335)+RCT(344)*V(347)+RCT(345)*V(96)+RCT(349)*V(338)+RCT(355)*V(337)+RCT(356)*V(346)+RCT(357)*2&\n                 &*V(284)+RCT(968)\n  D_VAR(285) = RCT(561)+RCT(562)+RCT(563)*V(346)+RCT(564)*V(346)+RCT(565)*V(337)\n  D_VAR(286) = RCT(556)+RCT(557)+RCT(558)*V(337)+RCT(559)*V(346)+RCT(560)*V(346)\n  D_VAR(287) = RCT(652)*V(345)+RCT(1011)\n  D_VAR(288) = RCT(651)*V(345)+RCT(1008)\n  D_VAR(289) = RCT(469)*V(346)+RCT(471)*V(337)+RCT(473)*V(328)+RCT(475)*V(324)+RCT(477)*V(351)+RCT(479)*V(280)+RCT(480)&\n                 &*2*V(289)\n  D_VAR(290) = RCT(149)*V(345)+RCT(150)*V(341)+RCT(162)*V(351)+RCT(332)*V(340)+RCT(333)*V(342)\n  D_VAR(291) = RCT(443)*V(337)+RCT(444)*V(346)+RCT(445)*V(346)+RCT(446)*V(351)+RCT(462)*V(328)+RCT(463)*V(324)\n  D_VAR(292) = RCT(122)*V(345)+RCT(131)*V(351)+RCT(906)\n  D_VAR(293) = RCT(600)*V(337)+RCT(601)*V(346)+RCT(602)*V(346)\n  D_VAR(294) = RCT(164)*V(345)+RCT(166)*V(351)+RCT(857)+RCT(911)\n  D_VAR(295) = RCT(111)*V(345)+RCT(218)*V(342)+RCT(329)*V(340)+RCT(904)+RCT(905)\n  D_VAR(296) = RCT(58)*V(346)+RCT(59)*V(346)+RCT(129)*V(328)+RCT(142)*2*V(296)+RCT(144)*V(337)+RCT(190)*V(324)+RCT(322)&\n                 &*V(340)\n  D_VAR(297) = RCT(281)*V(345)+RCT(802)*V(353)+RCT(803)*V(344)+RCT(804)*V(339)+RCT(805)*V(349)+RCT(806)*V(350)+RCT(807)&\n                 &*V(352)+RCT(947)\n  D_VAR(298) = RCT(105)*V(345)+RCT(110)*V(351)+RCT(903)\n  D_VAR(299) = RCT(641)*V(345)+RCT(876)+RCT(1032)\n  D_VAR(300) = RCT(90)*V(346)+RCT(91)*V(346)+RCT(116)*V(337)+RCT(134)*V(328)+RCT(183)*V(324)\n  D_VAR(301) = RCT(637)*V(345)+RCT(638)*V(345)+RCT(1031)\n  D_VAR(302) = RCT(650)*V(345)+RCT(862)+RCT(1013)\n  D_VAR(303) = RCT(691)*V(345)+RCT(878)+RCT(1038)+RCT(1039)\n  D_VAR(304) = RCT(500)*V(337)+RCT(501)*V(337)+RCT(504)+RCT(505)+RCT(507)*2*V(304)+RCT(508)*V(305)+RCT(510)*2*V(304)&\n                 &+RCT(511)*V(305)+RCT(514)*V(328)+RCT(515)*V(328)+RCT(520)*V(346)+RCT(521)*V(346)+RCT(522)*V(346)+RCT(523)&\n                 &*V(346)\n  D_VAR(305) = RCT(498)*V(337)+RCT(499)*V(337)+RCT(502)+RCT(503)+RCT(506)*2*V(305)+RCT(508)*V(304)+RCT(509)*2*V(305)&\n                 &+RCT(511)*V(304)+RCT(512)*V(328)+RCT(513)*V(328)+RCT(516)*V(346)+RCT(517)*V(346)+RCT(518)*V(346)+RCT(519)&\n                 &*V(346)\n  D_VAR(306) = RCT(151)*V(345)+RCT(152)*V(345)+RCT(153)*V(345)+RCT(154)*V(351)+RCT(907)\n  D_VAR(307) = RCT(167)*V(345)+RCT(168)*V(345)+RCT(916)\n  D_VAR(308) = RCT(678)*V(337)+RCT(679)*V(346)+RCT(680)*V(335)+RCT(681)*V(351)+RCT(682)*V(328)\n  D_VAR(309) = RCT(646)*V(345)+RCT(647)*V(345)+RCT(648)*V(341)+RCT(649)*V(351)+RCT(915)\n  D_VAR(310) = RCT(604)*V(337)+RCT(606)*2*V(310)+RCT(607)*V(311)+RCT(610)*V(328)+RCT(611)*V(324)+RCT(613)*V(351)&\n                 &+RCT(615)*V(346)+RCT(616)*V(346)\n  D_VAR(311) = RCT(605)*V(337)+RCT(607)*V(310)+RCT(608)*2*V(311)+RCT(609)*V(328)+RCT(612)*V(324)+RCT(614)*V(351)&\n                 &+RCT(617)*V(346)+RCT(618)*V(346)\n  D_VAR(312) = RCT(362)*V(329)+RCT(363)*V(346)+RCT(364)*V(335)+RCT(365)*V(336)+RCT(366)*V(336)*V(336)+RCT(367)*V(341)&\n                 &+RCT(368)*V(348)\n  D_VAR(313) = RCT(96)*V(346)+RCT(118)*V(337)+RCT(136)*V(328)+RCT(184)*V(324)\n  D_VAR(314) = RCT(644)*V(345)+RCT(645)*V(341)+RCT(912)+RCT(913)+RCT(914)\n  D_VAR(315) = RCT(60)*V(346)+RCT(130)*V(328)+RCT(143)*2*V(315)+RCT(145)*V(337)+RCT(191)*V(324)+RCT(323)*V(340)\n  D_VAR(316) = RCT(212)*V(343)+RCT(813)*V(352)+RCT(814)*V(339)+RCT(815)*V(353)+RCT(816)*V(344)+RCT(817)*V(349)+RCT(818)&\n                 &*V(350)+RCT(819)*V(348)+RCT(933)\n  D_VAR(317) = RCT(282)*V(345)+RCT(313)*V(343)+RCT(314)*V(340)+RCT(795)*V(336)+RCT(796)*V(339)+RCT(797)*V(352)+RCT(798)&\n                 &*V(349)+RCT(799)*V(350)+RCT(800)*V(353)+RCT(801)*V(344)+RCT(948)+RCT(949)\n  D_VAR(318) = RCT(95)*V(346)+RCT(115)*V(337)+RCT(133)*V(328)+RCT(187)*V(324)\n  D_VAR(319) = RCT(93)*V(346)+RCT(94)*V(346)+RCT(114)*V(337)+RCT(132)*V(328)+RCT(182)*V(324)\n  D_VAR(320) = RCT(97)*V(346)+RCT(119)*V(337)+RCT(123)*V(346)+RCT(137)*V(328)+RCT(185)*V(324)\n  D_VAR(321) = RCT(63)*V(346)+RCT(64)*V(346)+RCT(112)*V(328)+RCT(146)*V(337)+RCT(193)*V(324)\n  D_VAR(322) = RCT(106)*V(335)+RCT(109)*V(346)+RCT(148)*V(337)+RCT(194)*V(324)+RCT(195)*V(328)\n  D_VAR(323) = RCT(98)*V(346)+RCT(99)*V(346)+RCT(120)*V(337)+RCT(138)*V(328)+RCT(186)*V(324)\n  D_VAR(324) = RCT(53)*V(335)+RCT(56)*V(346)+RCT(180)*2*V(324)+RCT(181)*V(328)+RCT(182)*V(319)+RCT(183)*V(300)+RCT(184)&\n                 &*V(313)+RCT(185)*V(320)+RCT(186)*V(323)+RCT(187)*V(318)+RCT(188)*V(249)+RCT(189)*V(250)+RCT(190)*V(296)&\n                 &+RCT(191)*V(315)+RCT(192)*V(260)+RCT(193)*V(321)+RCT(194)*V(322)+RCT(457)*V(277)+RCT(459)*V(275)+RCT(461)&\n                 &*V(281)+RCT(463)*V(291)+RCT(465)*V(257)+RCT(467)*V(274)+RCT(474)*V(280)+RCT(475)*V(289)+RCT(611)*V(310)&\n                 &+RCT(612)*V(311)+RCT(695)*V(337)+RCT(731)*V(263)\n  D_VAR(325) = RCT(10)*V(348)+RCT(34)*V(345)+RCT(50)*V(351)+RCT(216)*V(342)+RCT(252)*V(343)+RCT(292)*V(340)+RCT(888)&\n                 &+RCT(889)\n  D_VAR(326) = RCT(51)*V(345)+RCT(52)*V(351)+RCT(217)*V(342)+RCT(897)+RCT(898)\n  D_VAR(327) = RCT(3)*V(179)+RCT(6)*V(166)+RCT(36)*V(345)+RCT(890)\n  D_VAR(328) = RCT(17)*V(341)+RCT(26)*V(346)+RCT(27)*V(346)+RCT(28)*V(337)+RCT(29)*2*V(328)+RCT(30)*2*V(328)+RCT(31)&\n                 &*V(345)+RCT(112)*V(321)+RCT(113)*V(260)+RCT(129)*V(296)+RCT(130)*V(315)+RCT(132)*V(319)+RCT(133)*V(318)&\n                 &+RCT(134)*V(300)+RCT(135)*V(249)+RCT(136)*V(313)+RCT(137)*V(320)+RCT(138)*V(323)+RCT(139)*V(250)+RCT(181)&\n                 &*V(324)+RCT(195)*V(322)+RCT(197)*V(335)+RCT(274)*V(338)+RCT(319)*V(340)+RCT(401)*V(278)+RCT(413)*V(273)&\n                 &+RCT(432)*V(272)+RCT(456)*V(277)+RCT(458)*V(275)+RCT(460)*V(281)+RCT(462)*V(291)+RCT(464)*V(257)+RCT(466)&\n                 &*V(274)+RCT(472)*V(280)+RCT(473)*V(289)+RCT(512)*V(305)+RCT(513)*V(305)+RCT(514)*V(304)+RCT(515)*V(304)&\n                 &+RCT(609)*V(311)+RCT(610)*V(310)+RCT(682)*V(308)+RCT(718)*V(234)+RCT(730)*V(263)+RCT(765)*V(236)+RCT(766)&\n                 &*V(235)+RCT(779)*V(351)\n  D_VAR(329) = RCT(24)*V(345)+RCT(362)*V(312)+RCT(369)*V(241)\n  D_VAR(330) = RCT(354)*V(345)+RCT(828)+RCT(829)+RCT(852)*V(349)+RCT(853)*V(350)+RCT(854)*V(353)+RCT(855)*V(344)&\n                 &+RCT(967)\n  D_VAR(331) = RCT(334)*V(346)+RCT(336)*V(335)+RCT(342)*V(332)+RCT(343)*V(347)+RCT(350)*V(341)+RCT(351)*V(337)\n  D_VAR(332) = RCT(341)+RCT(342)*V(331)+RCT(841)+RCT(842)+RCT(843)*V(336)+RCT(848)*V(349)+RCT(849)*V(350)+RCT(850)&\n                 &*V(353)+RCT(851)*V(344)+RCT(972)\n  D_VAR(333) = RCT(280)*V(345)+RCT(808)*V(339)+RCT(809)*V(352)+RCT(810)*V(353)+RCT(811)*V(344)+RCT(812)*V(348)+RCT(950)\n  D_VAR(334) = RCT(226)*V(336)+RCT(227)*F(2)+RCT(228)*F(3)+RCT(229)*F(1)+RCT(230)*V(63)+RCT(231)*V(228)+RCT(237)*V(341)&\n                 &+RCT(253)*V(339)+RCT(254)*V(352)+RCT(255)*V(245)+RCT(256)*V(46)+RCT(257)*V(181)+RCT(258)*V(105)+RCT(259)&\n                 &*V(78)+RCT(260)*V(81)+RCT(261)*V(87)+RCT(262)*V(47)+RCT(263)*V(48)+RCT(264)*V(61)+RCT(265)*V(53)+RCT(266)&\n                 &*V(85)+RCT(267)*V(86)+RCT(268)*V(84)+RCT(269)*V(49)+RCT(270)*V(50)+RCT(271)*V(51)+RCT(272)*V(54)\n  D_VAR(335) = RCT(16)*V(341)+RCT(35)*V(345)+RCT(39)*V(337)+RCT(45)*V(351)+RCT(49)*V(351)+RCT(53)*V(324)+RCT(86)*V(197)&\n                 &+RCT(106)*V(322)+RCT(124)*V(246)+RCT(155)*V(213)+RCT(197)*V(328)+RCT(221)*V(342)+RCT(222)*V(347)+RCT(240)&\n                 &*V(343)+RCT(243)*V(343)+RCT(250)*V(67)+RCT(301)*V(338)+RCT(336)*V(331)+RCT(340)*V(284)+RCT(364)*V(312)&\n                 &+RCT(371)*V(241)+RCT(393)*V(257)+RCT(438)*V(274)+RCT(657)*V(171)+RCT(660)*V(172)+RCT(677)*V(259)+RCT(680)&\n                 &*V(308)+RCT(738)*V(240)+RCT(752)*V(235)+RCT(756)*V(236)+RCT(762)*V(203)+RCT(782)+RCT(885)\n  D_VAR(336) = RCT(226)*V(334)+RCT(365)*V(312)+RCT(366)*2*V(312)*V(336)+RCT(373)*V(241)+RCT(374)*V(241)+RCT(786)*V(214)&\n                 &+RCT(793)*V(218)+RCT(795)*V(317)+RCT(843)*V(332)\n  D_VAR(337) = RCT(15)*V(341)+RCT(20)*V(345)+RCT(22)*V(346)+RCT(23)*2*V(337)+RCT(28)*V(328)+RCT(39)*V(335)+RCT(42)&\n                 &*V(351)+RCT(70)*V(178)+RCT(74)*V(165)+RCT(79)*V(212)+RCT(83)*V(132)+RCT(84)*V(197)+RCT(114)*V(319)&\n                 &+RCT(115)*V(318)+RCT(116)*V(300)+RCT(117)*V(249)+RCT(118)*V(313)+RCT(119)*V(320)+RCT(120)*V(323)+RCT(121)&\n                 &*V(250)+RCT(128)*V(246)+RCT(144)*V(296)+RCT(145)*V(315)+RCT(146)*V(321)+RCT(147)*V(260)+RCT(148)*V(322)&\n                 &+RCT(158)*V(213)+RCT(204)*V(347)+RCT(205)*V(342)+RCT(236)*V(343)+RCT(247)*V(217)+RCT(296)*V(340)+RCT(297)&\n                 &*V(340)+RCT(299)*V(338)+RCT(351)*V(331)+RCT(355)*V(284)+RCT(384)*V(277)+RCT(391)*V(257)+RCT(398)*V(278)&\n                 &+RCT(404)*V(275)+RCT(410)*V(273)+RCT(417)*V(281)+RCT(430)*V(272)+RCT(436)*V(274)+RCT(443)*V(291)+RCT(470)&\n                 &*V(280)+RCT(471)*V(289)+RCT(498)*V(305)+RCT(499)*V(305)+RCT(500)*V(304)+RCT(501)*V(304)+RCT(542)*V(223)&\n                 &+RCT(546)*V(224)+RCT(550)*V(232)+RCT(558)*V(286)+RCT(565)*V(285)+RCT(566)*V(243)+RCT(571)*V(133)+RCT(573)&\n                 &*V(135)+RCT(585)*V(205)+RCT(589)*V(190)+RCT(594)*V(206)+RCT(597)*V(207)+RCT(600)*V(293)+RCT(604)*V(310)&\n                 &+RCT(605)*V(311)+RCT(631)*V(271)+RCT(632)*V(226)+RCT(640)*V(182)+RCT(643)*V(180)+RCT(656)*V(171)+RCT(659)&\n                 &*V(172)+RCT(667)*V(254)+RCT(670)*V(253)+RCT(671)*V(259)+RCT(678)*V(308)+RCT(695)*V(324)+RCT(699)*V(18)&\n                 &+RCT(710)*V(189)+RCT(715)*V(234)+RCT(727)*V(263)+RCT(734)*V(121)+RCT(737)*V(240)+RCT(750)*V(235)+RCT(759)&\n                 &*V(236)+RCT(773)*V(13)+RCT(775)*V(22)+RCT(777)*V(27)+RCT(781)\n  D_VAR(338) = RCT(274)*V(328)+RCT(275)*V(345)+RCT(276)*V(345)+RCT(298)*V(343)+RCT(299)*V(337)+RCT(300)*V(346)+RCT(301)&\n                 &*V(335)+RCT(302)*2*V(338)+RCT(303)*2*V(338)+RCT(304)*2*V(338)+RCT(307)*2*V(338)+RCT(310)*V(347)+RCT(311)&\n                 &*V(347)+RCT(312)*V(347)+RCT(349)*V(284)+RCT(944)\n  D_VAR(339) = RCT(2)*V(179)+RCT(5)*V(166)+RCT(253)*V(334)+RCT(279)*V(345)+RCT(787)*V(214)+RCT(794)*V(218)+RCT(796)&\n                 &*V(317)+RCT(804)*V(297)+RCT(808)*V(333)+RCT(814)*V(316)\n  D_VAR(340) = RCT(291)*V(228)+RCT(292)*V(325)+RCT(293)*V(341)+RCT(294)*F(1)+RCT(295)*V(264)+RCT(296)*V(337)+RCT(297)&\n                 &*V(337)+RCT(305)*F(3)+RCT(309)*V(110)+RCT(314)*V(317)+RCT(315)*V(181)+RCT(316)*V(79)+RCT(317)*V(75)&\n                 &+RCT(318)*V(265)+RCT(319)*V(328)+RCT(320)*V(164)+RCT(321)*V(183)+RCT(322)*V(296)+RCT(323)*V(315)+RCT(324)&\n                 &*V(282)+RCT(325)*V(156)+RCT(326)*V(283)+RCT(327)*V(141)+RCT(328)*V(141)+RCT(329)*V(295)+RCT(330)*V(276)&\n                 &+RCT(331)*V(142)+RCT(332)*V(290)\n  D_VAR(341) = RCT(1)*V(179)*V(348)+RCT(4)*V(166)*V(348)+RCT(8)*V(348)+RCT(13)*V(346)+RCT(14)*V(345)+RCT(15)*V(337)&\n                 &+RCT(16)*V(335)+RCT(17)*V(328)+RCT(77)*V(140)+RCT(150)*V(290)+RCT(203)*V(342)+RCT(233)*V(343)+RCT(237)&\n                 &*V(334)+RCT(246)*V(217)+RCT(293)*V(340)+RCT(350)*V(331)+RCT(367)*V(312)+RCT(379)*V(167)+RCT(381)*V(219)&\n                 &+RCT(383)*V(191)+RCT(421)*V(255)+RCT(424)*V(237)+RCT(427)*V(211)+RCT(448)*V(229)+RCT(451)*V(193)+RCT(454)&\n                 &*V(262)+RCT(483)*V(242)+RCT(493)*V(276)+RCT(645)*V(314)+RCT(648)*V(309)+RCT(704)*V(220)+RCT(712)*V(109)&\n                 &+RCT(746)*V(202)+RCT(761)*V(203)+RCT(768)*V(221)+RCT(771)*V(201)+RCT(820)*V(352)+RCT(821)*V(349)+RCT(822)&\n                 &*V(350)+RCT(882)+RCT(883)\n  D_VAR(342) = RCT(203)*V(341)+RCT(205)*V(337)+RCT(210)*V(218)+RCT(215)*V(351)+RCT(216)*V(325)+RCT(217)*V(326)+RCT(218)&\n                 &*V(295)+RCT(219)*V(183)+RCT(220)*V(141)+RCT(221)*V(335)+RCT(333)*V(290)\n  D_VAR(343) = RCT(212)*V(316)+RCT(213)*V(352)+RCT(232)*F(3)+RCT(233)*V(341)+RCT(235)*V(345)+RCT(236)*V(337)+RCT(238)&\n                 &*V(68)+RCT(240)*V(335)+RCT(241)*V(351)+RCT(242)*V(346)+RCT(243)*V(335)+RCT(244)*V(264)+RCT(251)*V(347)&\n                 &+RCT(252)*V(325)+RCT(298)*V(338)+RCT(313)*V(317)\n  D_VAR(344) = RCT(790)*V(214)+RCT(792)*V(345)+RCT(801)*V(317)+RCT(803)*V(297)+RCT(811)*V(333)+RCT(816)*V(316)+RCT(847)&\n                 &*V(252)+RCT(851)*V(332)+RCT(855)*V(330)\n  D_VAR(345) = RCT(12)*V(89)*V(348)+RCT(14)*V(341)+RCT(18)*2*V(345)+RCT(19)*2*V(345)+RCT(20)*V(337)+RCT(21)*V(264)&\n                 &+RCT(24)*V(329)+RCT(25)*V(228)+RCT(31)*V(328)+RCT(32)*V(164)+RCT(33)*V(244)+RCT(34)*V(325)+RCT(35)*V(335)&\n                 &+RCT(36)*V(327)+RCT(37)*V(346)+RCT(38)*V(239)+RCT(41)*V(108)+RCT(44)*V(351)+RCT(47)*V(265)+RCT(48)*V(282)&\n                 &+RCT(51)*V(326)+RCT(55)*V(139)+RCT(57)*V(183)+RCT(61)*V(141)+RCT(62)*V(141)+RCT(66)*V(69)+RCT(71)*V(98)&\n                 &+RCT(72)*V(196)+RCT(75)*V(140)+RCT(80)*V(127)+RCT(81)*V(233)+RCT(88)*V(126)+RCT(89)*V(142)+RCT(102)*V(251)&\n                 &+RCT(103)*V(279)+RCT(104)*V(283)+RCT(105)*V(298)+RCT(108)*V(124)+RCT(111)*V(295)+RCT(122)*V(292)+4.51e-12&\n                 &*V(113)+RCT(140)*V(156)+RCT(141)*V(188)+RCT(149)*V(290)+RCT(151)*V(306)+RCT(152)*V(306)+RCT(153)*V(306)&\n                 &+RCT(160)*V(114)+RCT(161)*V(72)+RCT(163)*V(270)+RCT(164)*V(294)+RCT(167)*V(307)+RCT(168)*V(307)+RCT(169)&\n                 &*V(125)+RCT(170)*V(118)+RCT(171)*V(99)+RCT(172)*V(100)+RCT(173)*V(97)+RCT(174)*V(102)+RCT(175)*V(155)&\n                 &+RCT(176)*V(123)+RCT(177)*V(24)+RCT(178)*V(92)+RCT(199)*V(94)+RCT(200)*V(94)+RCT(202)*V(348)+RCT(206)&\n                 &*V(352)+RCT(211)*V(148)+RCT(214)*V(347)+RCT(223)*V(81)+RCT(224)*V(78)+RCT(225)*V(105)+RCT(234)*F(1)&\n                 &+RCT(235)*V(343)+RCT(239)*V(68)+RCT(273)*V(245)+RCT(275)*V(338)+RCT(276)*V(338)+RCT(277)*V(120)+RCT(278)&\n                 &*V(76)+RCT(279)*V(339)+RCT(280)*V(333)+RCT(281)*V(297)+RCT(282)*V(317)+RCT(283)*V(181)+RCT(284)*V(79)&\n                 &+RCT(285)*V(75)+RCT(286)*V(43)+RCT(287)*V(87)+RCT(288)*V(85)+RCT(289)*V(86)+RCT(290)*V(84)+RCT(352)*V(170)&\n                 &+RCT(353)*V(73)+RCT(354)*V(330)+RCT(359)*V(52)+RCT(360)*V(261)+RCT(361)*V(247)+RCT(378)*V(167)+RCT(380)&\n                 &*V(219)+RCT(382)*V(191)+RCT(387)*V(111)+RCT(388)*V(137)+RCT(390)*V(225)+RCT(396)*V(74)+RCT(397)*V(66)&\n                 &+RCT(402)*V(160)+RCT(403)*V(176)+RCT(407)*V(138)+RCT(408)*V(112)+RCT(409)*V(129)+RCT(415)*V(161)+RCT(416)&\n                 &*V(162)+RCT(420)*V(255)+RCT(423)*V(237)+RCT(426)*V(211)+RCT(433)*V(163)+RCT(435)*V(177)+RCT(441)*V(169)&\n                 &+RCT(442)*V(130)+RCT(447)*V(229)+RCT(450)*V(193)+RCT(453)*V(262)+RCT(481)*V(256)+RCT(482)*V(242)+RCT(488)&\n                 &*V(154)+RCT(489)*V(93)+RCT(490)*V(83)+RCT(491)*V(91)+RCT(492)*V(95)+RCT(494)*V(276)+RCT(495)*V(276)&\n                 &+RCT(496)*V(276)+RCT(497)*V(276)+RCT(524)*V(230)+RCT(525)*V(231)+RCT(526)*V(150)+RCT(527)*V(144)+RCT(528)&\n                 &*V(238)+RCT(529)*V(215)+RCT(530)*V(119)+RCT(531)*V(187)+RCT(532)*V(187)+RCT(533)*V(192)+RCT(534)*V(192)&\n                 &+RCT(535)*V(187)+RCT(536)*V(192)+RCT(537)*V(209)+RCT(538)*V(199)+RCT(551)*V(128)+RCT(552)*V(151)+RCT(553)&\n                 &*V(151)+RCT(554)*V(152)+RCT(555)*V(152)+RCT(574)*V(175)+RCT(575)*V(175)+RCT(576)*V(168)+RCT(577)*V(168)&\n                 &+RCT(578)*V(268)+RCT(579)*V(268)+RCT(580)*V(267)+RCT(581)*V(267)+RCT(582)*V(268)+RCT(583)*V(267)+RCT(621)&\n                 &*V(222)+RCT(622)*V(186)+RCT(623)*V(222)+RCT(624)*V(186)+RCT(625)*V(186)+RCT(626)*V(222)+RCT(627)*V(186)&\n                 &+RCT(628)*V(186)+RCT(637)*V(301)+RCT(638)*V(301)+RCT(641)*V(299)+RCT(644)*V(314)+RCT(646)*V(309)+RCT(647)&\n                 &*V(309)+RCT(650)*V(302)+RCT(651)*V(288)+RCT(652)*V(287)+RCT(653)*V(248)+RCT(654)*V(216)+RCT(661)*V(194)&\n                 &+RCT(662)*V(185)+RCT(663)*V(131)+RCT(664)*V(227)+RCT(665)*V(208)+RCT(666)*V(153)+RCT(672)*V(159)+RCT(684)&\n                 &*V(184)+RCT(685)*V(107)+RCT(686)*V(258)+RCT(687)*V(147)+RCT(688)*V(174)+RCT(689)*V(198)+RCT(690)*V(266)&\n                 &+RCT(691)*V(303)+RCT(693)*V(115)+RCT(694)*V(88)+RCT(696)*V(210)+RCT(697)*V(210)+RCT(698)*V(19)+RCT(701)&\n                 &*V(173)+RCT(702)*V(220)+RCT(705)*V(149)+RCT(707)*V(200)+RCT(711)*V(116)+RCT(713)*V(109)+RCT(714)*V(60)&\n                 &+RCT(721)*V(70)+RCT(722)*V(136)+RCT(723)*V(136)+RCT(724)*V(143)+RCT(725)*V(82)+RCT(726)*V(101)+RCT(732)&\n                 &*V(58)+7.09e-11*V(146)+RCT(740)*V(122)+RCT(741)*V(195)+RCT(743)*V(158)+RCT(745)*V(202)+RCT(748)*V(204)&\n                 &+RCT(753)*V(71)+RCT(755)*V(90)+RCT(760)*V(117)+RCT(763)*V(269)+RCT(767)*V(221)+RCT(770)*V(201)+RCT(780)&\n                 &*V(41)+RCT(791)*V(353)+RCT(792)*V(344)\n  D_VAR(346) = RCT(13)*V(341)+RCT(22)*V(337)+RCT(26)*V(328)+RCT(27)*V(328)+RCT(37)*V(345)+RCT(43)*V(351)+RCT(56)*V(324)&\n                 &+RCT(58)*V(296)+RCT(59)*V(296)+RCT(60)*V(315)+RCT(63)*V(321)+RCT(64)*V(321)+RCT(65)*V(260)+RCT(68)*V(178)&\n                 &+RCT(69)*V(178)+RCT(73)*V(165)+RCT(78)*V(212)+RCT(82)*V(132)+RCT(85)*V(197)+RCT(90)*V(300)+RCT(91)*V(300)&\n                 &+RCT(92)*V(249)+RCT(93)*V(319)+RCT(94)*V(319)+RCT(95)*V(318)+RCT(96)*V(313)+RCT(97)*V(320)+RCT(98)*V(323)&\n                 &+RCT(99)*V(323)+RCT(100)*V(250)+RCT(109)*V(322)+RCT(123)*V(320)+RCT(127)*V(246)+RCT(157)*V(213)+RCT(209)&\n                 &*V(347)+RCT(242)*V(343)+RCT(249)*V(67)+RCT(300)*V(338)+RCT(334)*V(331)+RCT(348)*V(96)+RCT(356)*V(284)&\n                 &+RCT(363)*V(312)+RCT(370)*V(241)+RCT(385)*V(277)+RCT(392)*V(257)+RCT(399)*V(278)+RCT(405)*V(275)+RCT(411)&\n                 &*V(273)+RCT(412)*V(273)+RCT(418)*V(281)+RCT(429)*V(272)+RCT(437)*V(274)+RCT(444)*V(291)+RCT(445)*V(291)&\n                 &+RCT(468)*V(280)+RCT(469)*V(289)+RCT(516)*V(305)+RCT(517)*V(305)+RCT(518)*V(305)+RCT(519)*V(305)+RCT(520)&\n                 &*V(304)+RCT(521)*V(304)+RCT(522)*V(304)+RCT(523)*V(304)+RCT(540)*V(223)+RCT(541)*V(223)+RCT(544)*V(224)&\n                 &+RCT(545)*V(224)+RCT(548)*V(232)+RCT(549)*V(232)+RCT(559)*V(286)+RCT(560)*V(286)+RCT(563)*V(285)+RCT(564)&\n                 &*V(285)+RCT(567)*V(243)+RCT(568)*V(243)+RCT(570)*V(133)+RCT(572)*V(135)+RCT(586)*V(205)+RCT(587)*V(205)&\n                 &+RCT(590)*V(190)+RCT(591)*V(190)+RCT(595)*V(206)+RCT(596)*V(206)+RCT(598)*V(207)+RCT(599)*V(207)+RCT(601)&\n                 &*V(293)+RCT(602)*V(293)+RCT(615)*V(310)+RCT(616)*V(310)+RCT(617)*V(311)+RCT(618)*V(311)+RCT(633)*V(271)&\n                 &+RCT(634)*V(271)+RCT(635)*V(226)+RCT(636)*V(226)+RCT(639)*V(182)+RCT(642)*V(180)+RCT(655)*V(171)+RCT(658)&\n                 &*V(172)+RCT(668)*V(254)+RCT(669)*V(254)+RCT(674)*V(253)+RCT(675)*V(253)+RCT(676)*V(259)+RCT(679)*V(308)&\n                 &+RCT(700)*V(18)+RCT(709)*V(189)+RCT(716)*V(234)+RCT(728)*V(263)+RCT(733)*V(121)+RCT(736)*V(240)+RCT(751)&\n                 &*V(235)+RCT(757)*V(236)+RCT(774)*V(13)+RCT(776)*V(22)+RCT(778)*V(27)+RCT(988)\n  D_VAR(347) = RCT(204)*V(337)+RCT(207)*2*V(347)+RCT(208)*2*V(347)+RCT(209)*V(346)+RCT(214)*V(345)+RCT(222)*V(335)&\n                 &+RCT(251)*V(343)+RCT(310)*V(338)+RCT(311)*V(338)+RCT(312)*V(338)+RCT(343)*V(331)+RCT(344)*V(284)+RCT(932)\n  D_VAR(348) = RCT(1)*V(179)*V(341)+RCT(4)*V(166)*V(341)+RCT(7)*V(264)+RCT(8)*V(341)+RCT(9)+RCT(10)*V(325)+RCT(12)*V(89)&\n                 &*V(345)+RCT(202)*V(345)+RCT(368)*V(312)+RCT(372)*V(241)+RCT(812)*V(333)+RCT(819)*V(316)\n  D_VAR(349) = RCT(798)*V(317)+RCT(805)*V(297)+RCT(817)*V(316)+RCT(821)*V(341)+RCT(844)*V(252)+RCT(848)*V(332)+RCT(852)&\n                 &*V(330)\n  D_VAR(350) = RCT(799)*V(317)+RCT(806)*V(297)+RCT(818)*V(316)+RCT(822)*V(341)+RCT(845)*V(252)+RCT(849)*V(332)+RCT(853)&\n                 &*V(330)\n  D_VAR(351) = RCT(42)*V(337)+RCT(43)*V(346)+RCT(44)*V(345)+RCT(45)*V(335)+RCT(49)*V(335)+RCT(50)*V(325)+RCT(52)*V(326)&\n                 &+RCT(67)*V(69)+RCT(76)*V(140)+RCT(101)*V(142)+RCT(110)*V(298)+RCT(131)*V(292)+RCT(154)*V(306)+RCT(159)&\n                 &*V(213)+RCT(162)*V(290)+RCT(165)*V(270)+RCT(166)*V(294)+RCT(179)*V(183)+RCT(196)*2*V(351)+RCT(201)*V(94)&\n                 &+RCT(215)*V(342)+RCT(241)*V(343)+RCT(339)*V(170)+RCT(375)*V(191)+RCT(376)*V(219)+RCT(377)*V(167)+RCT(386)&\n                 &*V(277)+RCT(389)*V(225)+RCT(395)*V(257)+RCT(400)*V(278)+RCT(406)*V(275)+RCT(414)*V(273)+RCT(419)*V(281)&\n                 &+RCT(422)*V(255)+RCT(425)*V(237)+RCT(428)*V(211)+RCT(431)*V(272)+RCT(434)*V(163)+RCT(440)*V(274)+RCT(446)&\n                 &*V(291)+RCT(449)*V(229)+RCT(452)*V(193)+RCT(455)*V(262)+RCT(476)*V(280)+RCT(477)*V(289)+RCT(484)*V(242)&\n                 &+RCT(485)*V(256)+RCT(603)*V(276)+RCT(613)*V(310)+RCT(614)*V(311)+RCT(649)*V(309)+RCT(681)*V(308)+RCT(692)&\n                 &*V(261)+RCT(703)*V(220)+RCT(706)*V(149)+RCT(708)*V(200)+RCT(717)*V(234)+RCT(729)*V(263)+RCT(742)*V(195)&\n                 &+RCT(744)*V(158)+RCT(747)*V(202)+RCT(749)*V(204)+RCT(758)*V(236)+RCT(764)*V(269)+RCT(779)*V(328)+RCT(783)&\n                 &+RCT(784)+RCT(785)+RCT(894)+RCT(895)\n  D_VAR(352) = RCT(206)*V(345)+RCT(213)*V(343)+RCT(254)*V(334)+RCT(797)*V(317)+RCT(807)*V(297)+RCT(809)*V(333)+RCT(813)&\n                 &*V(316)+RCT(820)*V(341)+RCT(823)+RCT(824)\n  D_VAR(353) = RCT(789)*V(214)+RCT(791)*V(345)+RCT(800)*V(317)+RCT(802)*V(297)+RCT(810)*V(333)+RCT(815)*V(316)+RCT(846)&\n                 &*V(252)+RCT(850)*V(332)+RCT(854)*V(330)\nEND SUBROUTINE Fun_SPLITF\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! CalcStoichNum - calculate stoichiometric numbers\n!   Arguments :\n!      StoichNum - Stoichiometric numbers\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE CalcStoichNum ( StoichNum )\n\n! StoichNum - Stoichiometric numbers\n  REAL(kind=dp) :: StoichNum(NVAR,NREACT)\n\n  StoichNum(:,:) = 0.\n  StoichNum(1,975) = -1\n  StoichNum(2,977) = -1\n  StoichNum(3,976) = -1\n  StoichNum(4,825) = 1\n  StoichNum(4,830) = 2\n  StoichNum(4,833) = 2\n  StoichNum(4,836) = 2\n  StoichNum(5,881) = 1\n  StoichNum(6,780) = 1\n  StoichNum(7,24) = 1\n  StoichNum(7,47) = 1\n  StoichNum(7,56) = 1\n  StoichNum(7,104) = 1\n  StoichNum(7,109) = 1\n  StoichNum(7,127) = 1\n  StoichNum(7,128) = 0.44\n  StoichNum(7,136) = 0.3\n  StoichNum(7,148) = 0.43\n  StoichNum(7,150) = 0.1\n  StoichNum(7,151) = 0.361\n  StoichNum(7,158) = 0.44\n  StoichNum(7,168) = 0.5\n  StoichNum(7,178) = 0.22\n  StoichNum(7,180) = 2\n  StoichNum(7,181) = 0.9\n  StoichNum(7,182) = 0.9\n  StoichNum(7,183) = 0.9\n  StoichNum(7,184) = 0.9\n  StoichNum(7,185) = 0.9\n  StoichNum(7,186) = 0.9\n  StoichNum(7,187) = 0.645\n  StoichNum(7,188) = 0.645\n  StoichNum(7,189) = 0.9\n  StoichNum(7,190) = 0.9\n  StoichNum(7,191) = 0.9\n  StoichNum(7,192) = 0.9\n  StoichNum(7,193) = 0.9\n  StoichNum(7,194) = 2\n  StoichNum(7,195) = 1\n  StoichNum(7,239) = 1\n  StoichNum(7,318) = 1\n  StoichNum(7,326) = 1\n  StoichNum(7,360) = 1\n  StoichNum(7,362) = 1\n  StoichNum(7,369) = 1\n  StoichNum(7,392) = 1\n  StoichNum(7,395) = 1\n  StoichNum(7,397) = 1\n  StoichNum(7,436) = 0.44\n  StoichNum(7,437) = 1\n  StoichNum(7,440) = 1\n  StoichNum(7,442) = 1\n  StoichNum(7,457) = 0.9\n  StoichNum(7,459) = 0.9\n  StoichNum(7,461) = 0.9\n  StoichNum(7,463) = 0.9\n  StoichNum(7,464) = 0.75\n  StoichNum(7,465) = 2\n  StoichNum(7,466) = 0.75\n  StoichNum(7,467) = 1\n  StoichNum(7,474) = 1\n  StoichNum(7,493) = 0.407\n  StoichNum(7,528) = 0.355\n  StoichNum(7,570) = 1\n  StoichNum(7,571) = 1\n  StoichNum(7,572) = 1\n  StoichNum(7,573) = 1\n  StoichNum(7,611) = 1\n  StoichNum(7,612) = 1\n  StoichNum(7,639) = 0.429\n  StoichNum(7,640) = 0.429\n  StoichNum(7,652) = 0.23\n  StoichNum(7,654) = 0.75\n  StoichNum(7,661) = 0.097\n  StoichNum(7,671) = 0.5\n  StoichNum(7,672) = 0.41\n  StoichNum(7,676) = 1\n  StoichNum(7,678) = 0.5\n  StoichNum(7,679) = 1\n  StoichNum(7,681) = 1\n  StoichNum(7,682) = 0.7\n  StoichNum(7,689) = 1\n  StoichNum(7,693) = 1\n  StoichNum(7,695) = 0.5\n  StoichNum(7,701) = 1\n  StoichNum(7,731) = 1\n  StoichNum(7,736) = 2\n  StoichNum(7,737) = 0.44\n  StoichNum(7,750) = 0.35\n  StoichNum(7,751) = 1\n  StoichNum(7,755) = 1\n  StoichNum(7,766) = 1\n  StoichNum(7,899) = 0.3\n  StoichNum(7,930) = 1\n  StoichNum(7,1004) = 1\n  StoichNum(7,1012) = 1.238\n  StoichNum(7,1044) = 1\n  StoichNum(7,1046) = 1\n  StoichNum(7,1050) = 1\n  StoichNum(7,1051) = 1\n  StoichNum(7,1055) = 1\n  StoichNum(7,1056) = 1\n  StoichNum(8,486) = 1\n  StoichNum(8,487) = 1\n  StoichNum(9,826) = 1\n  StoichNum(9,828) = 1\n  StoichNum(9,831) = 2\n  StoichNum(9,834) = 2\n  StoichNum(9,837) = 2\n  StoichNum(9,839) = 1\n  StoichNum(9,841) = 1\n  StoichNum(10,827) = 1\n  StoichNum(10,829) = 1\n  StoichNum(10,832) = 2\n  StoichNum(10,835) = 2\n  StoichNum(10,838) = 2\n  StoichNum(10,840) = 1\n  StoichNum(10,842) = 1\n  StoichNum(11,773) = 1\n  StoichNum(12,774) = 1\n  StoichNum(13,724) = 1\n  StoichNum(13,773) = -1\n  StoichNum(13,774) = -1\n  StoichNum(14,494) = 1\n  StoichNum(14,495) = 1\n  StoichNum(14,496) = 1\n  StoichNum(14,497) = 1\n  StoichNum(15,603) = 1\n  StoichNum(16,699) = 1\n  StoichNum(17,700) = 1\n  StoichNum(18,698) = 1\n  StoichNum(18,699) = -1\n  StoichNum(18,700) = -1\n  StoichNum(19,698) = -1\n  StoichNum(20,775) = 1\n  StoichNum(21,776) = 1\n  StoichNum(22,725) = 1\n  StoichNum(22,775) = -1\n  StoichNum(22,776) = -1\n  StoichNum(23,861) = 1\n  StoichNum(24,177) = -1\n  StoichNum(24,531) = 0.005\n  StoichNum(24,532) = 0.005\n  StoichNum(24,533) = 0.005\n  StoichNum(24,534) = 0.005\n  StoichNum(24,535) = 0.005\n  StoichNum(24,536) = 0.005\n  StoichNum(24,537) = 0.005\n  StoichNum(24,538) = 0.005\n  StoichNum(24,861) = -1\n  StoichNum(25,777) = 1\n  StoichNum(26,778) = 1\n  StoichNum(27,726) = 1\n  StoichNum(27,777) = -1\n  StoichNum(27,778) = -1\n  StoichNum(28,200) = 0.25\n  StoichNum(29,4) = 1\n  StoichNum(30,856) = 1\n  StoichNum(30,857) = 1.5\n  StoichNum(30,867) = 1.5\n  StoichNum(31,858) = 1\n  StoichNum(31,859) = 1\n  StoichNum(31,860) = 1\n  StoichNum(31,868) = 0.8\n  StoichNum(31,873) = 1\n  StoichNum(32,202) = 1\n  StoichNum(32,368) = 1\n  StoichNum(32,372) = 1\n  StoichNum(33,12) = 2\n  StoichNum(34,18) = 1\n  StoichNum(34,22) = 1\n  StoichNum(34,26) = 1\n  StoichNum(34,36) = 1\n  StoichNum(34,38) = 1\n  StoichNum(34,56) = 1\n  StoichNum(34,58) = 1\n  StoichNum(34,60) = 1\n  StoichNum(34,63) = 1\n  StoichNum(34,65) = 1\n  StoichNum(34,68) = 1\n  StoichNum(34,73) = 2\n  StoichNum(34,78) = 0.942\n  StoichNum(34,80) = 1\n  StoichNum(34,82) = 1\n  StoichNum(34,85) = 1\n  StoichNum(34,87) = 1\n  StoichNum(34,88) = 2\n  StoichNum(34,90) = 1\n  StoichNum(34,91) = 1\n  StoichNum(34,92) = 1\n  StoichNum(34,93) = 1\n  StoichNum(34,94) = 1\n  StoichNum(34,95) = 1\n  StoichNum(34,96) = 1\n  StoichNum(34,97) = 1\n  StoichNum(34,98) = 1\n  StoichNum(34,100) = 1\n  StoichNum(34,109) = 1\n  StoichNum(34,123) = 1\n  StoichNum(34,125) = 1\n  StoichNum(34,126) = 1\n  StoichNum(34,127) = 1\n  StoichNum(34,128) = 0.15\n  StoichNum(34,148) = 0.15\n  StoichNum(34,156) = 1\n  StoichNum(34,157) = 1\n  StoichNum(34,158) = 0.15\n  StoichNum(34,160) = 1\n  StoichNum(34,211) = 1\n  StoichNum(34,247) = 0.02\n  StoichNum(34,248) = 1\n  StoichNum(34,249) = 1\n  StoichNum(34,273) = 1\n  StoichNum(34,281) = 1\n  StoichNum(34,282) = 1\n  StoichNum(34,297) = 1\n  StoichNum(34,309) = 0.1\n  StoichNum(34,319) = 1\n  StoichNum(34,322) = 1\n  StoichNum(34,323) = 1\n  StoichNum(34,352) = 1\n  StoichNum(34,363) = 1\n  StoichNum(34,364) = 1\n  StoichNum(34,370) = 1\n  StoichNum(34,371) = 1\n  StoichNum(34,385) = 0.75\n  StoichNum(34,388) = 0.5\n  StoichNum(34,391) = 0.15\n  StoichNum(34,392) = 1\n  StoichNum(34,394) = 1\n  StoichNum(34,399) = 0.84\n  StoichNum(34,403) = 1\n  StoichNum(34,405) = 0.75\n  StoichNum(34,407) = 0.5\n  StoichNum(34,412) = 1\n  StoichNum(34,416) = 1\n  StoichNum(34,418) = 0.75\n  StoichNum(34,426) = 0.5\n  StoichNum(34,429) = 0.84\n  StoichNum(34,435) = 1\n  StoichNum(34,436) = 0.15\n  StoichNum(34,437) = 1\n  StoichNum(34,439) = 1\n  StoichNum(34,445) = 1\n  StoichNum(34,450) = 1\n  StoichNum(34,468) = 1\n  StoichNum(34,469) = 1\n  StoichNum(34,486) = 1\n  StoichNum(34,487) = 1\n  StoichNum(34,488) = 1\n  StoichNum(34,489) = 1\n  StoichNum(34,490) = 1\n  StoichNum(34,491) = 1\n  StoichNum(34,492) = 1\n  StoichNum(34,516) = 1\n  StoichNum(34,517) = 1\n  StoichNum(34,518) = 1\n  StoichNum(34,519) = 1\n  StoichNum(34,520) = 1\n  StoichNum(34,521) = 1\n  StoichNum(34,522) = 1\n  StoichNum(34,523) = 1\n  StoichNum(34,540) = 1\n  StoichNum(34,541) = 1\n  StoichNum(34,544) = 1\n  StoichNum(34,545) = 1\n  StoichNum(34,548) = 1\n  StoichNum(34,549) = 1\n  StoichNum(34,559) = 1\n  StoichNum(34,560) = 1\n  StoichNum(34,563) = 1\n  StoichNum(34,564) = 1\n  StoichNum(34,567) = 1\n  StoichNum(34,568) = 1\n  StoichNum(34,570) = 1\n  StoichNum(34,572) = 1\n  StoichNum(34,586) = 1\n  StoichNum(34,587) = 1\n  StoichNum(34,590) = 1\n  StoichNum(34,591) = 1\n  StoichNum(34,595) = 1\n  StoichNum(34,596) = 1\n  StoichNum(34,598) = 1\n  StoichNum(34,599) = 1\n  StoichNum(34,601) = 1\n  StoichNum(34,602) = 1\n  StoichNum(34,615) = 1\n  StoichNum(34,616) = 1\n  StoichNum(34,617) = 1\n  StoichNum(34,618) = 1\n  StoichNum(34,633) = 1\n  StoichNum(34,634) = 1\n  StoichNum(34,635) = 1\n  StoichNum(34,636) = 1\n  StoichNum(34,639) = 1\n  StoichNum(34,642) = 1\n  StoichNum(34,650) = 0.69\n  StoichNum(34,655) = 1\n  StoichNum(34,658) = 1\n  StoichNum(34,668) = 1\n  StoichNum(34,669) = 1\n  StoichNum(34,671) = 0.13\n  StoichNum(34,674) = 1\n  StoichNum(34,675) = 1\n  StoichNum(34,676) = 1\n  StoichNum(34,678) = 0.13\n  StoichNum(34,679) = 1\n  StoichNum(34,684) = 1\n  StoichNum(34,695) = 0.13\n  StoichNum(34,709) = 0.89\n  StoichNum(34,711) = 1\n  StoichNum(34,716) = 0.995\n  StoichNum(34,721) = 1\n  StoichNum(34,728) = 1\n  StoichNum(34,733) = 1\n  StoichNum(34,736) = 1\n  StoichNum(34,737) = 0.15\n  StoichNum(34,739) = 1\n  StoichNum(34,740) = 1\n  StoichNum(34,750) = 0.15\n  StoichNum(34,751) = 1\n  StoichNum(34,754) = 1\n  StoichNum(34,755) = 1\n  StoichNum(34,756) = 1\n  StoichNum(34,757) = 1\n  StoichNum(34,763) = 1\n  StoichNum(34,884) = 2\n  StoichNum(34,892) = 1\n  StoichNum(34,899) = 0.3\n  StoichNum(34,900) = 1\n  StoichNum(34,927) = 1\n  StoichNum(34,928) = 1\n  StoichNum(34,982) = 1\n  StoichNum(34,985) = 1\n  StoichNum(34,988) = 1\n  StoichNum(34,998) = 1\n  StoichNum(34,999) = 1\n  StoichNum(34,1000) = 1\n  StoichNum(34,1001) = 1\n  StoichNum(34,1047) = 0.3\n  StoichNum(35,1) = 1\n  StoichNum(35,4) = 1\n  StoichNum(35,8) = 1\n  StoichNum(35,14) = 1\n  StoichNum(35,15) = 1\n  StoichNum(35,17) = 1\n  StoichNum(35,42) = 1\n  StoichNum(35,44) = 1\n  StoichNum(35,49) = 2\n  StoichNum(35,50) = 1\n  StoichNum(35,52) = 1\n  StoichNum(35,67) = 1\n  StoichNum(35,76) = 1\n  StoichNum(35,77) = 1\n  StoichNum(35,86) = 1\n  StoichNum(35,101) = 1\n  StoichNum(35,110) = 1\n  StoichNum(35,124) = 1\n  StoichNum(35,131) = 1\n  StoichNum(35,150) = 1\n  StoichNum(35,154) = 1\n  StoichNum(35,155) = 1\n  StoichNum(35,159) = 1\n  StoichNum(35,162) = 1\n  StoichNum(35,165) = 1\n  StoichNum(35,166) = 1\n  StoichNum(35,179) = 1\n  StoichNum(35,196) = 2\n  StoichNum(35,201) = 1\n  StoichNum(35,207) = 2\n  StoichNum(35,208) = 2\n  StoichNum(35,212) = 1\n  StoichNum(35,213) = 1\n  StoichNum(35,214) = 1\n  StoichNum(35,226) = 1\n  StoichNum(35,229) = 1\n  StoichNum(35,230) = 1\n  StoichNum(35,231) = 1\n  StoichNum(35,233) = 2\n  StoichNum(35,235) = 1\n  StoichNum(35,236) = 1\n  StoichNum(35,237) = 1\n  StoichNum(35,238) = 1\n  StoichNum(35,240) = 2\n  StoichNum(35,241) = 2\n  StoichNum(35,244) = 1\n  StoichNum(35,246) = 1\n  StoichNum(35,251) = 2\n  StoichNum(35,252) = 1\n  StoichNum(35,253) = 0.66\n  StoichNum(35,254) = 0.6\n  StoichNum(35,257) = 0.44\n  StoichNum(35,258) = 0.56\n  StoichNum(35,261) = 0.19\n  StoichNum(35,269) = 0.1\n  StoichNum(35,270) = 0.05\n  StoichNum(35,274) = 1\n  StoichNum(35,275) = 1\n  StoichNum(35,276) = 1\n  StoichNum(35,277) = 1\n  StoichNum(35,278) = 1\n  StoichNum(35,298) = 2\n  StoichNum(35,302) = 2\n  StoichNum(35,303) = 2\n  StoichNum(35,311) = 2\n  StoichNum(35,312) = 2\n  StoichNum(35,344) = 0.4\n  StoichNum(35,349) = 0.88\n  StoichNum(35,367) = 1\n  StoichNum(35,375) = 1\n  StoichNum(35,376) = 1\n  StoichNum(35,377) = 1\n  StoichNum(35,379) = 1\n  StoichNum(35,381) = 1\n  StoichNum(35,383) = 1\n  StoichNum(35,386) = 1\n  StoichNum(35,389) = 1\n  StoichNum(35,393) = 1\n  StoichNum(35,395) = 1\n  StoichNum(35,400) = 1\n  StoichNum(35,406) = 1\n  StoichNum(35,414) = 1\n  StoichNum(35,419) = 1\n  StoichNum(35,421) = 1\n  StoichNum(35,422) = 2\n  StoichNum(35,424) = 1\n  StoichNum(35,425) = 2\n  StoichNum(35,427) = 0.5\n  StoichNum(35,428) = 1\n  StoichNum(35,431) = 1\n  StoichNum(35,434) = 1\n  StoichNum(35,438) = 1\n  StoichNum(35,440) = 1\n  StoichNum(35,446) = 1\n  StoichNum(35,448) = 1\n  StoichNum(35,449) = 1\n  StoichNum(35,454) = 1\n  StoichNum(35,455) = 1\n  StoichNum(35,476) = 1\n  StoichNum(35,477) = 1\n  StoichNum(35,483) = 1\n  StoichNum(35,484) = 2\n  StoichNum(35,485) = 2\n  StoichNum(35,493) = 1\n  StoichNum(35,603) = 1\n  StoichNum(35,613) = 1\n  StoichNum(35,614) = 1\n  StoichNum(35,645) = 1\n  StoichNum(35,648) = 1\n  StoichNum(35,649) = 1\n  StoichNum(35,681) = 1\n  StoichNum(35,692) = 1\n  StoichNum(35,703) = 1\n  StoichNum(35,704) = 1\n  StoichNum(35,706) = 1\n  StoichNum(35,708) = 1\n  StoichNum(35,712) = 1\n  StoichNum(35,717) = 1\n  StoichNum(35,729) = 1\n  StoichNum(35,738) = 1\n  StoichNum(35,742) = 1.258\n  StoichNum(35,744) = 1.5\n  StoichNum(35,746) = 1\n  StoichNum(35,747) = 1.5\n  StoichNum(35,749) = 1\n  StoichNum(35,752) = 1\n  StoichNum(35,758) = 1\n  StoichNum(35,761) = 1\n  StoichNum(35,762) = 1\n  StoichNum(35,768) = 1\n  StoichNum(35,771) = 1\n  StoichNum(35,779) = 1\n  StoichNum(35,782) = 0.5\n  StoichNum(35,783) = 1\n  StoichNum(35,784) = 1\n  StoichNum(35,785) = 1\n  StoichNum(35,786) = 1\n  StoichNum(35,787) = 1\n  StoichNum(35,788) = 1\n  StoichNum(35,789) = 1\n  StoichNum(35,790) = 1\n  StoichNum(35,794) = 1\n  StoichNum(35,796) = 1\n  StoichNum(35,797) = 1\n  StoichNum(35,798) = 1\n  StoichNum(35,799) = 1\n  StoichNum(35,800) = 1\n  StoichNum(35,801) = 1\n  StoichNum(35,802) = 1\n  StoichNum(35,803) = 1\n  StoichNum(35,804) = 1\n  StoichNum(35,805) = 1\n  StoichNum(35,806) = 1\n  StoichNum(35,807) = 1\n  StoichNum(35,808) = 1\n  StoichNum(35,809) = 1\n  StoichNum(35,810) = 1\n  StoichNum(35,811) = 1\n  StoichNum(35,812) = 1\n  StoichNum(35,813) = 1\n  StoichNum(35,814) = 1\n  StoichNum(35,815) = 1\n  StoichNum(35,816) = 1\n  StoichNum(35,817) = 1\n  StoichNum(35,818) = 1\n  StoichNum(35,819) = 1\n  StoichNum(35,828) = 1\n  StoichNum(35,829) = 1\n  StoichNum(35,830) = 2\n  StoichNum(35,831) = 2\n  StoichNum(35,832) = 2\n  StoichNum(35,833) = 3\n  StoichNum(35,834) = 3\n  StoichNum(35,835) = 3\n  StoichNum(35,836) = 4\n  StoichNum(35,837) = 4\n  StoichNum(35,838) = 4\n  StoichNum(35,839) = 1\n  StoichNum(35,840) = 1\n  StoichNum(35,841) = 1\n  StoichNum(35,842) = 1\n  StoichNum(35,844) = 1\n  StoichNum(35,845) = 1\n  StoichNum(35,846) = 1\n  StoichNum(35,847) = 1\n  StoichNum(35,848) = 1\n  StoichNum(35,849) = 1\n  StoichNum(35,850) = 1\n  StoichNum(35,851) = 1\n  StoichNum(35,852) = 1\n  StoichNum(35,853) = 1\n  StoichNum(35,854) = 1\n  StoichNum(35,855) = 1\n  StoichNum(35,862) = 1\n  StoichNum(35,863) = 1\n  StoichNum(35,864) = 1\n  StoichNum(35,865) = 1\n  StoichNum(35,866) = 1\n  StoichNum(35,869) = 1\n  StoichNum(35,870) = 1\n  StoichNum(35,871) = 1\n  StoichNum(35,872) = 1\n  StoichNum(35,874) = 1\n  StoichNum(35,875) = 1\n  StoichNum(35,876) = 2\n  StoichNum(35,877) = 1\n  StoichNum(35,878) = 1\n  StoichNum(35,879) = 1\n  StoichNum(35,880) = 1\n  StoichNum(35,895) = 2\n  StoichNum(35,933) = 1\n  StoichNum(35,946) = 2\n  StoichNum(35,950) = 1\n  StoichNum(35,967) = 1\n  StoichNum(35,969) = 2\n  StoichNum(35,994) = 1\n  StoichNum(35,996) = 1\n  StoichNum(36,34) = 1\n  StoichNum(36,50) = 1\n  StoichNum(36,51) = 0.05\n  StoichNum(36,55) = 1\n  StoichNum(36,80) = 1\n  StoichNum(36,82) = 1\n  StoichNum(36,83) = 1\n  StoichNum(36,84) = 1\n  StoichNum(36,85) = 1\n  StoichNum(36,88) = 1\n  StoichNum(36,108) = 1\n  StoichNum(36,126) = 1\n  StoichNum(36,150) = 0.56\n  StoichNum(36,151) = 0.505\n  StoichNum(36,152) = 1\n  StoichNum(36,160) = 1\n  StoichNum(36,163) = 2\n  StoichNum(36,164) = 1\n  StoichNum(36,165) = 2\n  StoichNum(36,166) = 1\n  StoichNum(36,168) = 0.5\n  StoichNum(36,216) = 1\n  StoichNum(36,238) = 1\n  StoichNum(36,252) = 1\n  StoichNum(36,292) = 1\n  StoichNum(36,315) = 1\n  StoichNum(36,316) = 1\n  StoichNum(36,317) = 1\n  StoichNum(36,379) = 0.15\n  StoichNum(36,383) = 0.1\n  StoichNum(36,493) = 0.407\n  StoichNum(36,496) = 0.6\n  StoichNum(36,497) = 0.9\n  StoichNum(36,503) = 0.6\n  StoichNum(36,505) = 0.9\n  StoichNum(36,509) = 1\n  StoichNum(36,510) = 1\n  StoichNum(36,511) = 1\n  StoichNum(36,513) = 0.5\n  StoichNum(36,515) = 0.5\n  StoichNum(36,519) = 0.55\n  StoichNum(36,523) = 0.55\n  StoichNum(36,524) = 0.45\n  StoichNum(36,525) = 0.37\n  StoichNum(36,526) = 0.42\n  StoichNum(36,527) = 0.23\n  StoichNum(36,528) = 0.638\n  StoichNum(36,529) = 1.5\n  StoichNum(36,530) = 1\n  StoichNum(36,535) = 0.25\n  StoichNum(36,536) = 0.33\n  StoichNum(36,537) = 0.036\n  StoichNum(36,538) = 0.054\n  StoichNum(36,557) = 1\n  StoichNum(36,558) = 0.13\n  StoichNum(36,559) = 0.2\n  StoichNum(36,562) = 1\n  StoichNum(36,563) = 0.2\n  StoichNum(36,565) = 0.13\n  StoichNum(36,566) = 0.52\n  StoichNum(36,568) = 0.8\n  StoichNum(36,569) = 2\n  StoichNum(36,582) = 0.6\n  StoichNum(36,583) = 0.6\n  StoichNum(36,638) = 0.539\n  StoichNum(36,639) = 0.33\n  StoichNum(36,640) = 0.33\n  StoichNum(36,645) = 0.28\n  StoichNum(36,646) = 0.036\n  StoichNum(36,648) = 0.12\n  StoichNum(36,649) = 0.68\n  StoichNum(36,652) = 0.77\n  StoichNum(36,654) = 0.25\n  StoichNum(36,661) = 0.75\n  StoichNum(36,662) = 1\n  StoichNum(36,664) = 1\n  StoichNum(36,665) = 2\n  StoichNum(36,666) = 0.84\n  StoichNum(36,670) = 0.507\n  StoichNum(36,671) = 0.325\n  StoichNum(36,672) = 0.488\n  StoichNum(36,673) = 1\n  StoichNum(36,674) = 0.86\n  StoichNum(36,676) = 0.65\n  StoichNum(36,684) = 0.25\n  StoichNum(36,685) = 1\n  StoichNum(36,686) = 1\n  StoichNum(36,687) = 0.888\n  StoichNum(36,690) = 1\n  StoichNum(36,696) = 1\n  StoichNum(36,704) = 0.18\n  StoichNum(36,707) = 0.12\n  StoichNum(36,714) = 0.364\n  StoichNum(36,724) = 0.2\n  StoichNum(36,725) = 0.27\n  StoichNum(36,726) = 0.3\n  StoichNum(36,740) = 2\n  StoichNum(36,763) = 0.15\n  StoichNum(36,764) = 0.15\n  StoichNum(36,767) = 0.26\n  StoichNum(36,768) = 0.5\n  StoichNum(36,770) = 0.25\n  StoichNum(36,771) = 0.5\n  StoichNum(36,772) = 0.05\n  StoichNum(36,888) = 1\n  StoichNum(36,889) = 1\n  StoichNum(36,897) = 0.88\n  StoichNum(36,898) = 1\n  StoichNum(36,901) = 0.7\n  StoichNum(36,902) = 1\n  StoichNum(36,903) = 1\n  StoichNum(36,905) = 1\n  StoichNum(36,907) = 1\n  StoichNum(36,908) = 2\n  StoichNum(36,909) = 2\n  StoichNum(36,910) = 1\n  StoichNum(36,911) = 1\n  StoichNum(36,912) = 1\n  StoichNum(36,913) = 1\n  StoichNum(36,915) = 1\n  StoichNum(36,986) = 1\n  StoichNum(36,990) = 1\n  StoichNum(36,1003) = 1\n  StoichNum(36,1006) = 1\n  StoichNum(36,1007) = 0.5\n  StoichNum(36,1009) = 0.571\n  StoichNum(36,1010) = 0.875\n  StoichNum(36,1011) = 0.77\n  StoichNum(36,1014) = 1\n  StoichNum(36,1015) = 1\n  StoichNum(36,1020) = 0.888\n  StoichNum(36,1021) = 0.818\n  StoichNum(36,1022) = 1\n  StoichNum(36,1023) = 1\n  StoichNum(36,1024) = 0.55\n  StoichNum(36,1027) = 0.55\n  StoichNum(36,1031) = 0.839\n  StoichNum(36,1033) = 1\n  StoichNum(36,1034) = 0.163\n  StoichNum(36,1037) = 1\n  StoichNum(36,1041) = 1\n  StoichNum(36,1043) = 1\n  StoichNum(36,1046) = 1\n  StoichNum(36,1049) = 1\n  StoichNum(36,1058) = 1\n  StoichNum(37,24) = 1\n  StoichNum(37,362) = 1\n  StoichNum(37,369) = 1\n  StoichNum(38,1) = 1\n  StoichNum(38,7) = 1\n  StoichNum(38,8) = 1\n  StoichNum(38,9) = 1\n  StoichNum(38,12) = 2\n  StoichNum(38,202) = 1\n  StoichNum(38,368) = 1\n  StoichNum(38,372) = 1\n  StoichNum(38,812) = 1\n  StoichNum(38,819) = 1\n  StoichNum(39,25) = 1\n  StoichNum(39,231) = 1\n  StoichNum(39,291) = 1\n  StoichNum(40,19) = 1\n  StoichNum(40,23) = 1\n  StoichNum(40,365) = 0.06\n  StoichNum(40,366) = 0.06\n  StoichNum(40,373) = 1\n  StoichNum(40,493) = 0.013\n  StoichNum(40,645) = 0.045\n  StoichNum(41,780) = -1\n  StoichNum(42,346) = 1\n  StoichNum(42,347) = -1\n  StoichNum(42,836) = -1\n  StoichNum(42,837) = -1\n  StoichNum(42,838) = -1\n  StoichNum(42,978) = -1\n  StoichNum(43,286) = -1\n  StoichNum(43,951) = -1\n  StoichNum(44,357) = 0.6\n  StoichNum(44,358) = -1\n  StoichNum(44,830) = -1\n  StoichNum(44,831) = -1\n  StoichNum(44,832) = -1\n  StoichNum(44,973) = -1\n  StoichNum(45,487) = -1\n  StoichNum(45,864) = 1\n  StoichNum(45,865) = 1\n  StoichNum(45,866) = 1\n  StoichNum(46,256) = -0.79\n  StoichNum(46,952) = -1\n  StoichNum(47,262) = -0.9\n  StoichNum(47,953) = -1\n  StoichNum(48,263) = -0.86\n  StoichNum(48,954) = -1\n  StoichNum(49,269) = -0.9\n  StoichNum(49,955) = -1\n  StoichNum(50,270) = -0.9\n  StoichNum(50,956) = -1\n  StoichNum(51,271) = -0.86\n  StoichNum(51,957) = -1\n  StoichNum(52,359) = -1\n  StoichNum(52,974) = -1\n  StoichNum(53,265) = -0.45\n  StoichNum(53,962) = -1\n  StoichNum(54,272) = -0.75\n  StoichNum(54,964) = -1\n  StoichNum(55,345) = 1\n  StoichNum(55,833) = -1\n  StoichNum(55,834) = -1\n  StoichNum(55,835) = -1\n  StoichNum(55,979) = -1\n  StoichNum(56,393) = 1\n  StoichNum(56,394) = -1\n  StoichNum(57,438) = 1\n  StoichNum(57,439) = -1\n  StoichNum(58,707) = 0.15\n  StoichNum(58,732) = -1\n  StoichNum(59,221) = 1\n  StoichNum(59,936) = -1\n  StoichNum(60,714) = -1\n  StoichNum(61,264) = -0.65\n  StoichNum(61,963) = -1\n  StoichNum(62,334) = 1\n  StoichNum(62,335) = -2\n  StoichNum(62,970) = -1\n  StoichNum(63,230) = -1\n  StoichNum(63,250) = 1\n  StoichNum(63,985) = -1\n  StoichNum(64,3) = 1\n  StoichNum(64,784) = 1\n  StoichNum(64,996) = -1\n  StoichNum(64,997) = -1\n  StoichNum(65,6) = 1\n  StoichNum(65,785) = 1\n  StoichNum(65,994) = -1\n  StoichNum(65,995) = -1\n  StoichNum(66,391) = 0.15\n  StoichNum(66,397) = -1\n  StoichNum(66,464) = 0.25\n  StoichNum(66,1051) = -1\n  StoichNum(67,248) = -1\n  StoichNum(67,249) = -1\n  StoichNum(67,250) = -1\n  StoichNum(67,988) = 1\n  StoichNum(68,238) = -1\n  StoichNum(68,239) = -1\n  StoichNum(68,986) = -1\n  StoichNum(69,66) = -1\n  StoichNum(69,67) = -1\n  StoichNum(70,716) = 0.005\n  StoichNum(70,721) = -1\n  StoichNum(71,750) = 0.65\n  StoichNum(71,753) = -1\n  StoichNum(71,1044) = -1\n  StoichNum(72,158) = 0.56\n  StoichNum(72,161) = -1\n  StoichNum(73,351) = 1\n  StoichNum(73,353) = -1\n  StoichNum(73,825) = -1\n  StoichNum(73,826) = -1\n  StoichNum(73,827) = -1\n  StoichNum(74,391) = 0.41\n  StoichNum(74,396) = -1\n  StoichNum(74,1050) = -1\n  StoichNum(75,285) = -1\n  StoichNum(75,317) = -1\n  StoichNum(76,278) = -1\n  StoichNum(76,307) = 1\n  StoichNum(76,308) = -1\n  StoichNum(76,946) = -1\n  StoichNum(77,844) = 1\n  StoichNum(77,845) = 1\n  StoichNum(77,848) = 1\n  StoichNum(77,849) = 1\n  StoichNum(77,852) = 1\n  StoichNum(77,853) = 1\n  StoichNum(77,980) = -1\n  StoichNum(78,224) = -1\n  StoichNum(78,259) = -0.95\n  StoichNum(78,938) = -1\n  StoichNum(79,284) = -1\n  StoichNum(79,316) = -1\n  StoichNum(79,941) = -1\n  StoichNum(80,197) = 1\n  StoichNum(80,198) = -1\n  StoichNum(80,982) = -1\n  StoichNum(80,983) = -1\n  StoichNum(81,223) = -1\n  StoichNum(81,260) = -0.7\n  StoichNum(81,937) = -1\n  StoichNum(82,725) = -1\n  StoichNum(83,59) = 1\n  StoichNum(83,490) = -1\n  StoichNum(83,999) = -1\n  StoichNum(84,268) = -0.79\n  StoichNum(84,290) = -1\n  StoichNum(84,958) = -1\n  StoichNum(85,266) = -0.69\n  StoichNum(85,288) = -1\n  StoichNum(85,959) = -1\n  StoichNum(86,267) = -0.65\n  StoichNum(86,289) = -1\n  StoichNum(86,960) = -1\n  StoichNum(87,261) = -0.75\n  StoichNum(87,287) = -1\n  StoichNum(87,961) = -1\n  StoichNum(88,365) = 0.73\n  StoichNum(88,366) = 0.4\n  StoichNum(88,694) = -1\n  StoichNum(88,1002) = -1\n  StoichNum(89,10) = 1\n  StoichNum(89,11) = -1\n  StoichNum(89,12) = -1\n  StoichNum(90,752) = 1\n  StoichNum(90,754) = -1\n  StoichNum(90,755) = -1\n  StoichNum(91,99) = 1\n  StoichNum(91,491) = -1\n  StoichNum(91,1000) = -1\n  StoichNum(92,178) = -1\n  StoichNum(92,695) = 0.37\n  StoichNum(92,930) = -1\n  StoichNum(93,27) = 1\n  StoichNum(93,489) = -1\n  StoichNum(93,998) = -1\n  StoichNum(94,199) = -1\n  StoichNum(94,200) = -1\n  StoichNum(94,201) = -1\n  StoichNum(95,64) = 1\n  StoichNum(95,492) = -1\n  StoichNum(95,1001) = -1\n  StoichNum(96,344) = 0.8\n  StoichNum(96,345) = -1\n  StoichNum(96,346) = -2\n  StoichNum(96,347) = 2\n  StoichNum(96,348) = -1\n  StoichNum(96,357) = 0.4\n  StoichNum(96,358) = 0.996\n  StoichNum(96,969) = -1\n  StoichNum(96,973) = 1\n  StoichNum(96,978) = 2\n  StoichNum(96,979) = 1\n  StoichNum(97,114) = 1\n  StoichNum(97,173) = -1\n  StoichNum(97,921) = -1\n  StoichNum(98,70) = 1\n  StoichNum(98,71) = -1\n  StoichNum(98,922) = -1\n  StoichNum(99,146) = 1\n  StoichNum(99,171) = -1\n  StoichNum(99,919) = -1\n  StoichNum(100,120) = 1\n  StoichNum(100,172) = -1\n  StoichNum(100,920) = -1\n  StoichNum(101,726) = -1\n  StoichNum(102,116) = 1\n  StoichNum(102,174) = -1\n  StoichNum(102,923) = -1\n  StoichNum(103,486) = -1\n  StoichNum(103,862) = 1\n  StoichNum(103,863) = 1\n  StoichNum(103,869) = 1\n  StoichNum(103,870) = 1\n  StoichNum(103,871) = 1\n  StoichNum(103,872) = 1\n  StoichNum(103,874) = 1\n  StoichNum(103,875) = 1\n  StoichNum(103,876) = 1\n  StoichNum(103,877) = 1\n  StoichNum(103,878) = 1\n  StoichNum(103,879) = 1\n  StoichNum(103,880) = 1\n  StoichNum(104,349) = 0.191\n  StoichNum(104,846) = 1\n  StoichNum(104,847) = 1\n  StoichNum(104,850) = 1\n  StoichNum(104,851) = 1\n  StoichNum(104,854) = 1\n  StoichNum(104,855) = 1\n  StoichNum(104,981) = -1\n  StoichNum(105,225) = -1\n  StoichNum(105,258) = -1\n  StoichNum(105,939) = -1\n  StoichNum(106,716) = 0.995\n  StoichNum(106,717) = 1\n  StoichNum(106,718) = 0.6\n  StoichNum(106,719) = -1\n  StoichNum(106,720) = -1\n  StoichNum(106,1042) = 1\n  StoichNum(107,672) = 0.098\n  StoichNum(107,684) = 0.75\n  StoichNum(107,685) = -1\n  StoichNum(107,868) = -1\n  StoichNum(108,39) = 1\n  StoichNum(108,40) = -1\n  StoichNum(108,41) = -1\n  StoichNum(108,892) = -1\n  StoichNum(108,893) = -1\n  StoichNum(109,712) = -1\n  StoichNum(109,713) = -1\n  StoichNum(109,901) = 0.4\n  StoichNum(110,274) = 1\n  StoichNum(110,278) = 1\n  StoichNum(110,303) = 1\n  StoichNum(110,305) = 1\n  StoichNum(110,306) = -1\n  StoichNum(110,309) = -1\n  StoichNum(110,311) = 1\n  StoichNum(110,946) = 1\n  StoichNum(110,965) = -1\n  StoichNum(111,384) = 1\n  StoichNum(111,387) = -1\n  StoichNum(111,1048) = -1\n  StoichNum(112,404) = 1\n  StoichNum(112,408) = -1\n  StoichNum(112,1053) = -1\n  StoichNum(113,124) = 1\n  StoichNum(113,125) = -1\n  StoichNum(113,126) = -1\n  StoichNum(114,155) = 1\n  StoichNum(114,156) = -1\n  StoichNum(114,160) = -1\n  StoichNum(115,645) = 0.075\n  StoichNum(115,650) = 0.241\n  StoichNum(115,661) = 0.653\n  StoichNum(115,693) = -1\n  StoichNum(115,867) = -1\n  StoichNum(115,1004) = -1\n  StoichNum(115,1010) = 0.75\n  StoichNum(116,709) = 0.11\n  StoichNum(116,711) = -1\n  StoichNum(116,928) = -1\n  StoichNum(117,750) = 0.15\n  StoichNum(117,755) = 1\n  StoichNum(117,759) = 1\n  StoichNum(117,760) = -1\n  StoichNum(117,1045) = -1\n  StoichNum(118,144) = 1\n  StoichNum(118,145) = 1\n  StoichNum(118,170) = -1\n  StoichNum(118,918) = -1\n  StoichNum(119,524) = 0.15\n  StoichNum(119,525) = 0.15\n  StoichNum(119,530) = -1\n  StoichNum(119,1020) = 0.112\n  StoichNum(119,1021) = 0.182\n  StoichNum(119,1031) = 0.161\n  StoichNum(120,277) = -1\n  StoichNum(120,304) = 1\n  StoichNum(120,310) = 1\n  StoichNum(120,349) = 0.56\n  StoichNum(120,945) = -1\n  StoichNum(121,732) = 1\n  StoichNum(121,733) = -1\n  StoichNum(121,734) = -1\n  StoichNum(122,738) = 1\n  StoichNum(122,739) = -1\n  StoichNum(122,740) = -1\n  StoichNum(123,147) = 1\n  StoichNum(123,176) = -1\n  StoichNum(123,924) = -1\n  StoichNum(124,106) = 1\n  StoichNum(124,107) = -1\n  StoichNum(124,108) = -1\n  StoichNum(124,1047) = -1\n  StoichNum(125,121) = 1\n  StoichNum(125,169) = -1\n  StoichNum(125,917) = -1\n  StoichNum(126,86) = 1\n  StoichNum(126,87) = -1\n  StoichNum(126,88) = -1\n  StoichNum(126,900) = -1\n  StoichNum(127,78) = 0.058\n  StoichNum(127,80) = -1\n  StoichNum(128,537) = 0.255\n  StoichNum(128,538) = 0.595\n  StoichNum(128,551) = -1\n  StoichNum(128,578) = 1\n  StoichNum(128,580) = 1\n  StoichNum(128,860) = -1\n  StoichNum(129,383) = 0.2\n  StoichNum(129,405) = 0.75\n  StoichNum(129,406) = 1\n  StoichNum(129,407) = 0.5\n  StoichNum(129,409) = -1\n  StoichNum(129,458) = 1\n  StoichNum(129,459) = 1\n  StoichNum(129,1053) = 1\n  StoichNum(130,436) = 0.15\n  StoichNum(130,442) = -1\n  StoichNum(130,466) = 0.25\n  StoichNum(130,1056) = -1\n  StoichNum(131,557) = 1\n  StoichNum(131,558) = 0.13\n  StoichNum(131,559) = 0.2\n  StoichNum(131,663) = -1\n  StoichNum(131,686) = 0.35\n  StoichNum(131,1033) = 0.35\n  StoichNum(132,81) = 0.255\n  StoichNum(132,82) = -1\n  StoichNum(132,83) = -1\n  StoichNum(133,524) = 0.315\n  StoichNum(133,570) = -1\n  StoichNum(133,571) = -1\n  StoichNum(134,1) = 1\n  StoichNum(134,7) = 1\n  StoichNum(134,8) = 1\n  StoichNum(134,9) = 1\n  StoichNum(134,12) = 2\n  StoichNum(134,202) = 1\n  StoichNum(134,368) = 1\n  StoichNum(134,372) = 1\n  StoichNum(134,812) = 1\n  StoichNum(134,819) = 1\n  StoichNum(134,987) = -1\n  StoichNum(135,525) = 0.315\n  StoichNum(135,572) = -1\n  StoichNum(135,573) = -1\n  StoichNum(136,715) = 1\n  StoichNum(136,718) = 0.2\n  StoichNum(136,722) = -1\n  StoichNum(136,723) = -1\n  StoichNum(136,1042) = -1\n  StoichNum(137,385) = 0.25\n  StoichNum(137,388) = -1\n  StoichNum(138,405) = 0.25\n  StoichNum(138,407) = -1\n  StoichNum(139,53) = 1\n  StoichNum(139,54) = -1\n  StoichNum(139,55) = -1\n  StoichNum(139,899) = -1\n  StoichNum(140,75) = -1\n  StoichNum(140,76) = -1\n  StoichNum(140,77) = -1\n  StoichNum(141,61) = -1\n  StoichNum(141,62) = -1\n  StoichNum(141,220) = -1\n  StoichNum(141,327) = -1\n  StoichNum(141,328) = -1\n  StoichNum(142,89) = -1\n  StoichNum(142,101) = -1\n  StoichNum(142,331) = -1\n  StoichNum(143,704) = 0.1\n  StoichNum(143,724) = -1\n  StoichNum(144,497) = 0.15\n  StoichNum(144,505) = 0.15\n  StoichNum(144,527) = -1\n  StoichNum(144,538) = 0.009\n  StoichNum(144,1023) = -1\n  StoichNum(145,607) = 0.474\n  StoichNum(145,608) = 0.34\n  StoichNum(145,609) = 0.244\n  StoichNum(145,612) = 0.841\n  StoichNum(145,614) = 0.841\n  StoichNum(145,617) = 0.841\n  StoichNum(145,619) = -1\n  StoichNum(145,620) = -1\n  StoichNum(145,1029) = 0.841\n  StoichNum(145,1032) = 0.222\n  StoichNum(146,733) = 1\n  StoichNum(146,734) = 1\n  StoichNum(146,735) = -1\n  StoichNum(146,902) = -1\n  StoichNum(147,556) = 1\n  StoichNum(147,561) = 1\n  StoichNum(147,687) = -1\n  StoichNum(147,1037) = -1\n  StoichNum(148,208) = 1\n  StoichNum(148,210) = 1\n  StoichNum(148,211) = -1\n  StoichNum(148,813) = 1\n  StoichNum(148,817) = 1\n  StoichNum(148,818) = 1\n  StoichNum(148,931) = -1\n  StoichNum(149,705) = -1\n  StoichNum(149,706) = -1\n  StoichNum(150,496) = 0.15\n  StoichNum(150,503) = 0.15\n  StoichNum(150,526) = -1\n  StoichNum(150,537) = 0.009\n  StoichNum(150,1022) = -1\n  StoichNum(151,532) = 0.67\n  StoichNum(151,534) = 0.68\n  StoichNum(151,552) = -1\n  StoichNum(151,553) = -1\n  StoichNum(151,575) = 0.67\n  StoichNum(151,577) = 0.67\n  StoichNum(151,858) = -1\n  StoichNum(152,532) = 0.33\n  StoichNum(152,534) = 0.32\n  StoichNum(152,554) = -1\n  StoichNum(152,555) = -1\n  StoichNum(152,575) = 0.33\n  StoichNum(152,577) = 0.33\n  StoichNum(152,859) = -1\n  StoichNum(153,562) = 1\n  StoichNum(153,563) = 0.2\n  StoichNum(153,565) = 0.13\n  StoichNum(153,666) = -1\n  StoichNum(153,686) = 0.15\n  StoichNum(153,1033) = 0.15\n  StoichNum(153,1034) = 0.163\n  StoichNum(154,481) = 1\n  StoichNum(154,482) = 1\n  StoichNum(154,483) = 1\n  StoichNum(154,484) = 1\n  StoichNum(154,485) = 1\n  StoichNum(154,488) = -1\n  StoichNum(154,866) = -1\n  StoichNum(154,993) = -1\n  StoichNum(155,128) = 0.41\n  StoichNum(155,148) = 0.41\n  StoichNum(155,175) = -1\n  StoichNum(155,737) = 0.41\n  StoichNum(155,925) = -1\n  StoichNum(156,129) = 0.25\n  StoichNum(156,130) = 0.25\n  StoichNum(156,140) = -1\n  StoichNum(156,142) = 0.4\n  StoichNum(156,143) = 0.4\n  StoichNum(156,325) = -1\n  StoichNum(157,312) = 1\n  StoichNum(157,794) = 1\n  StoichNum(157,797) = 1\n  StoichNum(157,798) = 1\n  StoichNum(157,799) = 1\n  StoichNum(157,805) = 1\n  StoichNum(157,806) = 1\n  StoichNum(157,807) = 1\n  StoichNum(157,809) = 1\n  StoichNum(157,814) = 1\n  StoichNum(157,815) = 1\n  StoichNum(157,816) = 1\n  StoichNum(157,942) = -1\n  StoichNum(158,705) = 0.18\n  StoichNum(158,707) = 0.03\n  StoichNum(158,725) = 0.19\n  StoichNum(158,726) = 0.15\n  StoichNum(158,743) = -1\n  StoichNum(158,744) = -1\n  StoichNum(159,671) = 0.5\n  StoichNum(159,672) = -1\n  StoichNum(159,1012) = -0.75\n  StoichNum(160,398) = 1\n  StoichNum(160,401) = 0.25\n  StoichNum(160,402) = -1\n  StoichNum(160,1052) = -1\n  StoichNum(161,410) = 1\n  StoichNum(161,413) = 0.25\n  StoichNum(161,415) = -1\n  StoichNum(161,1054) = -1\n  StoichNum(162,407) = 0.5\n  StoichNum(162,411) = 1\n  StoichNum(162,416) = -1\n  StoichNum(163,421) = 0.3\n  StoichNum(163,429) = 0.84\n  StoichNum(163,431) = 1\n  StoichNum(163,432) = 0.75\n  StoichNum(163,433) = -1\n  StoichNum(163,434) = -1\n  StoichNum(164,28) = 1\n  StoichNum(164,32) = -1\n  StoichNum(164,320) = -1\n  StoichNum(164,887) = -1\n  StoichNum(165,72) = 1\n  StoichNum(165,73) = -1\n  StoichNum(165,74) = -1\n  StoichNum(166,4) = -2\n  StoichNum(166,5) = -1\n  StoichNum(166,6) = -1\n  StoichNum(167,377) = -1\n  StoichNum(167,378) = -1\n  StoichNum(167,379) = -1\n  StoichNum(168,520) = 1\n  StoichNum(168,576) = -1\n  StoichNum(168,577) = -1\n  StoichNum(168,871) = -1\n  StoichNum(168,1026) = -1\n  StoichNum(169,430) = 1\n  StoichNum(169,432) = 0.25\n  StoichNum(169,436) = 0.41\n  StoichNum(169,441) = -1\n  StoichNum(169,1055) = -1\n  StoichNum(170,335) = 1\n  StoichNum(170,338) = 1\n  StoichNum(170,339) = -1\n  StoichNum(170,342) = 1\n  StoichNum(170,352) = -1\n  StoichNum(170,966) = -1\n  StoichNum(171,655) = -1\n  StoichNum(171,656) = -1\n  StoichNum(171,657) = -1\n  StoichNum(171,1020) = 0.224\n  StoichNum(171,1031) = 0.068\n  StoichNum(172,658) = -1\n  StoichNum(172,659) = -1\n  StoichNum(172,660) = -1\n  StoichNum(172,1021) = 0.182\n  StoichNum(172,1031) = 0.128\n  StoichNum(173,128) = 0.15\n  StoichNum(173,148) = 0.15\n  StoichNum(173,475) = 0.5\n  StoichNum(173,701) = -1\n  StoichNum(173,707) = 0.5\n  StoichNum(173,726) = 0.45\n  StoichNum(173,737) = 0.15\n  StoichNum(173,767) = 0.43\n  StoichNum(173,770) = 0.52\n  StoichNum(174,542) = 0.725\n  StoichNum(174,546) = 0.725\n  StoichNum(174,550) = 0.35\n  StoichNum(174,688) = -1\n  StoichNum(174,1035) = -1\n  StoichNum(175,516) = 1\n  StoichNum(175,574) = -1\n  StoichNum(175,575) = -1\n  StoichNum(175,870) = -1\n  StoichNum(175,1025) = -1\n  StoichNum(176,388) = 0.5\n  StoichNum(176,399) = 0.16\n  StoichNum(176,403) = -1\n  StoichNum(177,422) = 1\n  StoichNum(177,425) = 1\n  StoichNum(177,426) = 0.5\n  StoichNum(177,427) = 0.5\n  StoichNum(177,428) = 1\n  StoichNum(177,429) = 0.16\n  StoichNum(177,435) = -1\n  StoichNum(178,66) = 1\n  StoichNum(178,67) = 1\n  StoichNum(178,68) = -1\n  StoichNum(178,69) = -1\n  StoichNum(178,70) = -1\n  StoichNum(178,71) = 0.5\n  StoichNum(179,1) = -2\n  StoichNum(179,2) = -1\n  StoichNum(179,3) = -1\n  StoichNum(180,641) = 0.435\n  StoichNum(180,642) = -1\n  StoichNum(180,643) = -1\n  StoichNum(181,257) = -0.9\n  StoichNum(181,283) = -1\n  StoichNum(181,315) = -1\n  StoichNum(181,940) = -1\n  StoichNum(182,638) = 0.461\n  StoichNum(182,639) = -0.33\n  StoichNum(182,640) = -0.33\n  StoichNum(182,691) = 0.041\n  StoichNum(183,57) = -1\n  StoichNum(183,179) = -1\n  StoichNum(183,219) = -1\n  StoichNum(183,321) = -1\n  StoichNum(184,677) = 1\n  StoichNum(184,680) = 1\n  StoichNum(184,683) = -1\n  StoichNum(184,684) = -1\n  StoichNum(185,530) = 1\n  StoichNum(185,662) = -1\n  StoichNum(185,687) = 0.444\n  StoichNum(185,1009) = -1\n  StoichNum(185,1020) = 0.112\n  StoichNum(185,1021) = 0.182\n  StoichNum(185,1031) = 0.162\n  StoichNum(185,1037) = 0.454\n  StoichNum(186,605) = 1\n  StoichNum(186,622) = -1\n  StoichNum(186,624) = -1\n  StoichNum(186,625) = -1\n  StoichNum(186,627) = -1\n  StoichNum(186,628) = -1\n  StoichNum(186,874) = -1\n  StoichNum(186,1029) = -1\n  StoichNum(186,1030) = -1\n  StoichNum(187,498) = 0.937\n  StoichNum(187,531) = -1\n  StoichNum(187,532) = -1\n  StoichNum(187,535) = -1\n  StoichNum(187,1016) = -1\n  StoichNum(188,112) = 0.25\n  StoichNum(188,113) = 0.25\n  StoichNum(188,132) = 0.38\n  StoichNum(188,133) = 0.375\n  StoichNum(188,134) = 0.38\n  StoichNum(188,135) = 0.375\n  StoichNum(188,137) = 0.25\n  StoichNum(188,138) = 0.25\n  StoichNum(188,139) = 0.25\n  StoichNum(188,141) = -1\n  StoichNum(188,473) = 0.25\n  StoichNum(189,702) = 0.3\n  StoichNum(189,705) = 0.07\n  StoichNum(189,707) = 0.05\n  StoichNum(189,709) = -1\n  StoichNum(189,710) = -1\n  StoichNum(190,576) = 1\n  StoichNum(190,588) = -1\n  StoichNum(190,589) = -1\n  StoichNum(190,590) = -1\n  StoichNum(190,591) = -1\n  StoichNum(191,375) = -1\n  StoichNum(191,382) = -1\n  StoichNum(191,383) = -1\n  StoichNum(192,500) = 0.937\n  StoichNum(192,533) = -1\n  StoichNum(192,534) = -1\n  StoichNum(192,536) = -1\n  StoichNum(192,1017) = -1\n  StoichNum(193,444) = 1\n  StoichNum(193,450) = -1\n  StoichNum(193,451) = -1\n  StoichNum(193,452) = -1\n  StoichNum(194,661) = -1\n  StoichNum(194,691) = 0.022\n  StoichNum(194,1010) = -1\n  StoichNum(194,1020) = 0.552\n  StoichNum(194,1021) = 0.454\n  StoichNum(194,1031) = 0.481\n  StoichNum(195,724) = 0.54\n  StoichNum(195,741) = -1\n  StoichNum(195,742) = -1\n  StoichNum(196,69) = 1\n  StoichNum(196,72) = -1\n  StoichNum(196,74) = 1\n  StoichNum(196,927) = -1\n  StoichNum(197,81) = 0.68\n  StoichNum(197,84) = -1\n  StoichNum(197,85) = -1\n  StoichNum(197,86) = -1\n  StoichNum(197,87) = 1\n  StoichNum(197,900) = 1\n  StoichNum(197,901) = 0.3\n  StoichNum(198,539) = 0.824\n  StoichNum(198,543) = 0.452\n  StoichNum(198,547) = 1\n  StoichNum(198,688) = 0.667\n  StoichNum(198,689) = -1\n  StoichNum(198,1036) = -1\n  StoichNum(199,501) = 1\n  StoichNum(199,538) = -1\n  StoichNum(199,1019) = -1\n  StoichNum(200,707) = -1\n  StoichNum(200,708) = -1\n  StoichNum(201,705) = 0.4\n  StoichNum(201,707) = 0.6\n  StoichNum(201,708) = 0.4\n  StoichNum(201,725) = 0.3\n  StoichNum(201,726) = 0.56\n  StoichNum(201,743) = 0.44\n  StoichNum(201,744) = 0.44\n  StoichNum(201,770) = -1\n  StoichNum(201,771) = -1\n  StoichNum(201,772) = -1\n  StoichNum(202,741) = 0.8\n  StoichNum(202,743) = 0.727\n  StoichNum(202,745) = -1\n  StoichNum(202,746) = -1\n  StoichNum(202,747) = -1\n  StoichNum(203,741) = 0.06\n  StoichNum(203,742) = 0.742\n  StoichNum(203,743) = 0.073\n  StoichNum(203,744) = 0.3\n  StoichNum(203,745) = 0.3\n  StoichNum(203,747) = 0.3\n  StoichNum(203,756) = 1\n  StoichNum(203,757) = 1\n  StoichNum(203,758) = 1\n  StoichNum(203,761) = -1\n  StoichNum(203,762) = -1\n  StoichNum(203,765) = 1\n  StoichNum(203,1045) = 1\n  StoichNum(204,702) = 0.7\n  StoichNum(204,703) = 1\n  StoichNum(204,704) = 0.62\n  StoichNum(204,706) = 1\n  StoichNum(204,708) = 1\n  StoichNum(204,709) = 0.89\n  StoichNum(204,710) = 1\n  StoichNum(204,711) = 1\n  StoichNum(204,725) = 0.06\n  StoichNum(204,726) = 0.06\n  StoichNum(204,748) = -1\n  StoichNum(204,749) = -1\n  StoichNum(204,928) = 1\n  StoichNum(204,1043) = -1\n  StoichNum(205,574) = 1\n  StoichNum(205,584) = -1\n  StoichNum(205,585) = -1\n  StoichNum(205,586) = -1\n  StoichNum(205,587) = -1\n  StoichNum(206,579) = 1\n  StoichNum(206,592) = -1\n  StoichNum(206,594) = -1\n  StoichNum(206,595) = -1\n  StoichNum(206,596) = -1\n  StoichNum(207,581) = 1\n  StoichNum(207,593) = -1\n  StoichNum(207,597) = -1\n  StoichNum(207,598) = -1\n  StoichNum(207,599) = -1\n  StoichNum(208,566) = 0.13\n  StoichNum(208,568) = 0.2\n  StoichNum(208,651) = 0.53\n  StoichNum(208,663) = 0.6\n  StoichNum(208,665) = -1\n  StoichNum(208,667) = 0.255\n  StoichNum(208,687) = 0.318\n  StoichNum(208,1006) = -1\n  StoichNum(208,1037) = 0.391\n  StoichNum(209,499) = 1\n  StoichNum(209,537) = -1\n  StoichNum(209,1018) = -1\n  StoichNum(210,496) = 0.3\n  StoichNum(210,503) = 0.3\n  StoichNum(210,537) = 0.018\n  StoichNum(210,540) = 0.284\n  StoichNum(210,542) = 0.135\n  StoichNum(210,631) = 0.249\n  StoichNum(210,632) = 0.471\n  StoichNum(210,633) = 0.303\n  StoichNum(210,635) = 0.59\n  StoichNum(210,696) = -1\n  StoichNum(210,697) = -1\n  StoichNum(210,1003) = -1\n  StoichNum(210,1039) = 0.5\n  StoichNum(211,418) = 0.25\n  StoichNum(211,426) = -1\n  StoichNum(211,427) = -1\n  StoichNum(211,428) = -1\n  StoichNum(212,75) = 1\n  StoichNum(212,78) = -1\n  StoichNum(212,79) = -1\n  StoichNum(213,153) = 0.8\n  StoichNum(213,154) = 1\n  StoichNum(213,155) = -1\n  StoichNum(213,156) = 1\n  StoichNum(213,157) = -1\n  StoichNum(213,158) = -1\n  StoichNum(213,159) = -1\n  StoichNum(214,45) = 1\n  StoichNum(214,46) = -1\n  StoichNum(214,786) = -1\n  StoichNum(214,787) = -1\n  StoichNum(214,788) = -1\n  StoichNum(214,789) = -1\n  StoichNum(214,790) = -1\n  StoichNum(214,896) = -1\n  StoichNum(215,524) = 0.085\n  StoichNum(215,525) = 0.165\n  StoichNum(215,526) = 0.58\n  StoichNum(215,527) = 0.77\n  StoichNum(215,529) = -1\n  StoichNum(215,551) = 0.75\n  StoichNum(215,552) = 1\n  StoichNum(215,554) = 1\n  StoichNum(215,625) = 1\n  StoichNum(215,637) = 1\n  StoichNum(215,873) = -1\n  StoichNum(216,582) = 0.6\n  StoichNum(216,594) = 0.031\n  StoichNum(216,595) = 0.065\n  StoichNum(216,600) = 0.094\n  StoichNum(216,601) = 0.355\n  StoichNum(216,631) = 0.06\n  StoichNum(216,632) = 0.073\n  StoichNum(216,633) = 0.17\n  StoichNum(216,635) = 0.291\n  StoichNum(216,638) = 0.378\n  StoichNum(216,654) = -1\n  StoichNum(216,678) = 0.13\n  StoichNum(216,682) = 0.3\n  StoichNum(216,879) = -1\n  StoichNum(216,1015) = -1\n  StoichNum(217,229) = 1\n  StoichNum(217,231) = 0.2\n  StoichNum(217,234) = 1\n  StoichNum(217,235) = 1\n  StoichNum(217,245) = -1\n  StoichNum(217,246) = -1\n  StoichNum(217,247) = -1\n  StoichNum(217,253) = 0.22\n  StoichNum(217,254) = 0.2\n  StoichNum(217,257) = 0.09\n  StoichNum(217,294) = 1\n  StoichNum(217,888) = 1\n  StoichNum(218,210) = -1\n  StoichNum(218,222) = 1\n  StoichNum(218,793) = -1\n  StoichNum(218,794) = -1\n  StoichNum(218,934) = -1\n  StoichNum(218,935) = -1\n  StoichNum(219,376) = -1\n  StoichNum(219,380) = -1\n  StoichNum(219,381) = -1\n  StoichNum(220,702) = -1\n  StoichNum(220,703) = -1\n  StoichNum(220,704) = -1\n  StoichNum(221,705) = 0.8\n  StoichNum(221,707) = 0.375\n  StoichNum(221,724) = 0.55\n  StoichNum(221,725) = 0.68\n  StoichNum(221,726) = 0.28\n  StoichNum(221,741) = 0.18\n  StoichNum(221,745) = 1.05\n  StoichNum(221,746) = 1\n  StoichNum(221,747) = 0.3\n  StoichNum(221,763) = 0.9\n  StoichNum(221,764) = 0.9\n  StoichNum(221,767) = -1\n  StoichNum(221,768) = -1\n  StoichNum(221,769) = -1\n  StoichNum(221,1046) = 1\n  StoichNum(222,604) = 0.473\n  StoichNum(222,606) = 0.07\n  StoichNum(222,607) = 0.399\n  StoichNum(222,610) = 0.355\n  StoichNum(222,621) = -1\n  StoichNum(222,623) = -1\n  StoichNum(222,626) = -1\n  StoichNum(222,875) = -1\n  StoichNum(222,1028) = -1\n  StoichNum(223,531) = 0.345\n  StoichNum(223,537) = 0.595\n  StoichNum(223,539) = -1\n  StoichNum(223,540) = -1\n  StoichNum(223,541) = -1\n  StoichNum(223,542) = -1\n  StoichNum(224,533) = 0.345\n  StoichNum(224,538) = 0.255\n  StoichNum(224,543) = -1\n  StoichNum(224,544) = -1\n  StoichNum(224,545) = -1\n  StoichNum(224,546) = -1\n  StoichNum(225,383) = 0.2\n  StoichNum(225,385) = 0.75\n  StoichNum(225,386) = 1\n  StoichNum(225,388) = 0.5\n  StoichNum(225,389) = -1\n  StoichNum(225,390) = -1\n  StoichNum(225,456) = 1\n  StoichNum(225,457) = 1\n  StoichNum(225,1048) = 1\n  StoichNum(225,1049) = -1\n  StoichNum(226,622) = 1\n  StoichNum(226,629) = -1\n  StoichNum(226,632) = -1\n  StoichNum(226,635) = -1\n  StoichNum(226,636) = -1\n  StoichNum(227,650) = 0.29\n  StoichNum(227,651) = 0.47\n  StoichNum(227,661) = 0.063\n  StoichNum(227,663) = 0.4\n  StoichNum(227,664) = -1\n  StoichNum(227,666) = 0.16\n  StoichNum(227,687) = 0.126\n  StoichNum(227,1007) = -1\n  StoichNum(227,1034) = 0.133\n  StoichNum(227,1037) = 0.155\n  StoichNum(228,25) = -1\n  StoichNum(228,150) = 0.1\n  StoichNum(228,231) = -1\n  StoichNum(228,291) = -1\n  StoichNum(228,898) = 1\n  StoichNum(229,443) = 1\n  StoichNum(229,447) = -1\n  StoichNum(229,448) = -1\n  StoichNum(229,449) = -1\n  StoichNum(229,989) = -1\n  StoichNum(229,1057) = -1\n  StoichNum(230,496) = 0.25\n  StoichNum(230,503) = 0.25\n  StoichNum(230,524) = -1\n  StoichNum(230,537) = 0.015\n  StoichNum(230,1020) = -1\n  StoichNum(231,497) = 0.25\n  StoichNum(231,505) = 0.25\n  StoichNum(231,525) = -1\n  StoichNum(231,538) = 0.015\n  StoichNum(231,1021) = -1\n  StoichNum(232,531) = 0.655\n  StoichNum(232,533) = 0.655\n  StoichNum(232,547) = -1\n  StoichNum(232,548) = -1\n  StoichNum(232,549) = -1\n  StoichNum(232,550) = -1\n  StoichNum(233,76) = 1\n  StoichNum(233,77) = 1\n  StoichNum(233,78) = 0.73\n  StoichNum(233,81) = -1\n  StoichNum(233,901) = -1\n  StoichNum(234,127) = 1\n  StoichNum(234,128) = 0.44\n  StoichNum(234,713) = 1\n  StoichNum(234,715) = -1\n  StoichNum(234,716) = -1\n  StoichNum(234,717) = -1\n  StoichNum(234,718) = -1\n  StoichNum(234,722) = 1\n  StoichNum(235,748) = 1\n  StoichNum(235,749) = 1\n  StoichNum(235,750) = -1\n  StoichNum(235,751) = -1\n  StoichNum(235,752) = -1\n  StoichNum(235,753) = 1\n  StoichNum(235,754) = 1\n  StoichNum(235,766) = -1\n  StoichNum(236,704) = 0.28\n  StoichNum(236,750) = 0.2\n  StoichNum(236,751) = 1\n  StoichNum(236,756) = -1\n  StoichNum(236,757) = -1\n  StoichNum(236,758) = -1\n  StoichNum(236,759) = -1\n  StoichNum(236,760) = 1\n  StoichNum(236,761) = 1\n  StoichNum(236,765) = -1\n  StoichNum(236,766) = 1\n  StoichNum(236,1043) = 1\n  StoichNum(236,1044) = 1\n  StoichNum(237,417) = 0.37\n  StoichNum(237,418) = 0.28\n  StoichNum(237,419) = 0.37\n  StoichNum(237,423) = -1\n  StoichNum(237,424) = -1\n  StoichNum(237,425) = -1\n  StoichNum(237,460) = 0.37\n  StoichNum(237,461) = 0.37\n  StoichNum(238,509) = 1\n  StoichNum(238,510) = 1\n  StoichNum(238,511) = 1\n  StoichNum(238,513) = 0.5\n  StoichNum(238,515) = 0.5\n  StoichNum(238,519) = 0.45\n  StoichNum(238,523) = 0.45\n  StoichNum(238,528) = -1\n  StoichNum(238,537) = 0.06\n  StoichNum(238,538) = 0.06\n  StoichNum(238,1018) = 1\n  StoichNum(238,1019) = 1\n  StoichNum(238,1024) = 0.45\n  StoichNum(238,1027) = 0.45\n  StoichNum(239,37) = 1\n  StoichNum(239,38) = -1\n  StoichNum(239,782) = 0.5\n  StoichNum(239,802) = 1\n  StoichNum(239,803) = 1\n  StoichNum(239,804) = 1\n  StoichNum(239,805) = 1\n  StoichNum(239,806) = 1\n  StoichNum(239,807) = 1\n  StoichNum(239,839) = 1\n  StoichNum(239,840) = 1\n  StoichNum(239,844) = 1\n  StoichNum(239,845) = 1\n  StoichNum(239,846) = 1\n  StoichNum(239,847) = 1\n  StoichNum(239,891) = -1\n  StoichNum(239,994) = 1\n  StoichNum(239,996) = 1\n  StoichNum(239,1046) = 1\n  StoichNum(240,735) = 1\n  StoichNum(240,736) = -1\n  StoichNum(240,737) = -1\n  StoichNum(240,738) = -1\n  StoichNum(240,739) = 1\n  StoichNum(241,150) = 0.12\n  StoichNum(241,369) = -1\n  StoichNum(241,370) = -1\n  StoichNum(241,371) = -1\n  StoichNum(241,372) = -1\n  StoichNum(241,373) = -1\n  StoichNum(241,374) = -1\n  StoichNum(242,450) = 0.7\n  StoichNum(242,451) = 0.7\n  StoichNum(242,452) = 0.35\n  StoichNum(242,470) = 0.3\n  StoichNum(242,471) = 0.3\n  StoichNum(242,472) = 0.3\n  StoichNum(242,473) = 0.15\n  StoichNum(242,474) = 0.3\n  StoichNum(242,476) = 0.3\n  StoichNum(242,478) = 0.6\n  StoichNum(242,479) = 0.45\n  StoichNum(242,480) = 0.3\n  StoichNum(242,482) = -1\n  StoichNum(242,483) = -1\n  StoichNum(242,484) = -1\n  StoichNum(242,865) = -1\n  StoichNum(242,992) = -1\n  StoichNum(243,536) = 0.16\n  StoichNum(243,551) = 0.25\n  StoichNum(243,566) = -1\n  StoichNum(243,567) = -1\n  StoichNum(243,568) = -1\n  StoichNum(243,569) = -1\n  StoichNum(244,33) = -1\n  StoichNum(244,118) = 0.85\n  StoichNum(244,119) = 0.85\n  StoichNum(244,497) = 0.3\n  StoichNum(244,505) = 0.3\n  StoichNum(244,538) = 0.018\n  StoichNum(244,544) = 0.294\n  StoichNum(244,546) = 0.135\n  StoichNum(244,631) = 0.009\n  StoichNum(244,632) = 0.054\n  StoichNum(244,633) = 0.013\n  StoichNum(244,635) = 0.07\n  StoichNum(244,646) = 0.036\n  StoichNum(244,652) = 0.23\n  StoichNum(244,984) = -1\n  StoichNum(244,1039) = 0.05\n  StoichNum(245,255) = -0.75\n  StoichNum(245,273) = -1\n  StoichNum(245,302) = 1\n  StoichNum(245,309) = 0.95\n  StoichNum(245,314) = 1\n  StoichNum(245,791) = 0.5\n  StoichNum(245,792) = 0.5\n  StoichNum(245,796) = 1\n  StoichNum(245,800) = 1\n  StoichNum(245,801) = 1\n  StoichNum(245,802) = 1\n  StoichNum(245,803) = 1\n  StoichNum(245,804) = 1\n  StoichNum(245,808) = 1\n  StoichNum(245,810) = 1\n  StoichNum(245,811) = 1\n  StoichNum(245,943) = -1\n  StoichNum(246,123) = 0.31\n  StoichNum(246,124) = -1\n  StoichNum(246,125) = 1\n  StoichNum(246,127) = -1\n  StoichNum(246,128) = -1\n  StoichNum(247,169) = 0.791\n  StoichNum(247,361) = -1\n  StoichNum(247,594) = 0.551\n  StoichNum(247,595) = 0.935\n  StoichNum(247,600) = 0.242\n  StoichNum(247,601) = 0.546\n  StoichNum(247,631) = 0.589\n  StoichNum(247,632) = 0.471\n  StoichNum(247,633) = 0.687\n  StoichNum(247,635) = 0.59\n  StoichNum(247,639) = 0.231\n  StoichNum(247,640) = 0.231\n  StoichNum(247,642) = 1\n  StoichNum(247,643) = 0.82\n  StoichNum(247,649) = 0.68\n  StoichNum(247,654) = 1\n  StoichNum(247,1005) = -1\n  StoichNum(247,1015) = 1\n  StoichNum(248,585) = 0.059\n  StoichNum(248,586) = 0.272\n  StoichNum(248,653) = -1\n  StoichNum(248,660) = 1\n  StoichNum(248,675) = 1\n  StoichNum(248,678) = 0.37\n  StoichNum(248,880) = -1\n  StoichNum(248,1014) = -1\n  StoichNum(248,1038) = 0.5\n  StoichNum(249,92) = -1\n  StoichNum(249,103) = 1\n  StoichNum(249,117) = -1\n  StoichNum(249,135) = -1\n  StoichNum(249,188) = -1\n  StoichNum(250,100) = -1\n  StoichNum(250,121) = -1\n  StoichNum(250,139) = -1\n  StoichNum(250,162) = 1\n  StoichNum(250,169) = 0.209\n  StoichNum(250,189) = -1\n  StoichNum(251,94) = 1\n  StoichNum(251,102) = -1\n  StoichNum(251,115) = 1\n  StoichNum(251,123) = 0.07\n  StoichNum(251,863) = -1\n  StoichNum(251,926) = -1\n  StoichNum(252,336) = 1\n  StoichNum(252,337) = -1\n  StoichNum(252,338) = -2\n  StoichNum(252,839) = -1\n  StoichNum(252,840) = -1\n  StoichNum(252,844) = -1\n  StoichNum(252,845) = -1\n  StoichNum(252,846) = -1\n  StoichNum(252,847) = -1\n  StoichNum(252,971) = -1\n  StoichNum(253,646) = 0.964\n  StoichNum(253,658) = 1\n  StoichNum(253,659) = 1\n  StoichNum(253,670) = -1\n  StoichNum(253,673) = -1\n  StoichNum(253,674) = -1\n  StoichNum(253,675) = -1\n  StoichNum(254,644) = 1\n  StoichNum(254,655) = 1\n  StoichNum(254,656) = 1\n  StoichNum(254,667) = -1\n  StoichNum(254,668) = -1\n  StoichNum(254,669) = -1\n  StoichNum(255,379) = 0.27\n  StoichNum(255,417) = 0.63\n  StoichNum(255,418) = 0.47\n  StoichNum(255,419) = 0.63\n  StoichNum(255,420) = -1\n  StoichNum(255,421) = -1\n  StoichNum(255,422) = -1\n  StoichNum(255,460) = 0.63\n  StoichNum(255,461) = 0.63\n  StoichNum(255,1058) = -1\n  StoichNum(256,403) = 0.5\n  StoichNum(256,416) = 0.5\n  StoichNum(256,435) = 0.5\n  StoichNum(256,468) = 1\n  StoichNum(256,470) = 0.7\n  StoichNum(256,471) = 0.7\n  StoichNum(256,472) = 0.7\n  StoichNum(256,473) = 0.35\n  StoichNum(256,474) = 0.7\n  StoichNum(256,476) = 0.7\n  StoichNum(256,478) = 1.4\n  StoichNum(256,479) = 1.05\n  StoichNum(256,480) = 0.7\n  StoichNum(256,481) = -1\n  StoichNum(256,485) = -1\n  StoichNum(256,864) = -1\n  StoichNum(256,991) = -1\n  StoichNum(257,387) = 0.4\n  StoichNum(257,389) = 1\n  StoichNum(257,390) = 1\n  StoichNum(257,391) = -1\n  StoichNum(257,392) = -1\n  StoichNum(257,393) = -1\n  StoichNum(257,394) = 1\n  StoichNum(257,395) = -1\n  StoichNum(257,396) = 1\n  StoichNum(257,464) = -1\n  StoichNum(257,465) = -1\n  StoichNum(258,539) = 0.176\n  StoichNum(258,543) = 0.548\n  StoichNum(258,558) = 0.35\n  StoichNum(258,565) = 0.35\n  StoichNum(258,566) = 0.35\n  StoichNum(258,686) = -1\n  StoichNum(258,688) = 0.333\n  StoichNum(258,1033) = -1\n  StoichNum(258,1034) = -1\n  StoichNum(258,1035) = 0.75\n  StoichNum(259,647) = 1\n  StoichNum(259,649) = 0.32\n  StoichNum(259,671) = -1\n  StoichNum(259,672) = 0.165\n  StoichNum(259,676) = -1\n  StoichNum(259,677) = -1\n  StoichNum(259,683) = 1\n  StoichNum(260,65) = -1\n  StoichNum(260,113) = -1\n  StoichNum(260,147) = -1\n  StoichNum(260,149) = 1\n  StoichNum(260,176) = 0.209\n  StoichNum(260,192) = -1\n  StoichNum(260,332) = 1\n  StoichNum(260,333) = 1\n  StoichNum(261,360) = -1\n  StoichNum(261,597) = 0.441\n  StoichNum(261,598) = 0.858\n  StoichNum(261,600) = 0.033\n  StoichNum(261,601) = 0.071\n  StoichNum(261,631) = 0.051\n  StoichNum(261,632) = 0.054\n  StoichNum(261,633) = 0.064\n  StoichNum(261,635) = 0.07\n  StoichNum(261,639) = 0.099\n  StoichNum(261,640) = 0.099\n  StoichNum(261,642) = 0.89\n  StoichNum(261,643) = 0.73\n  StoichNum(261,692) = -1\n  StoichNum(261,990) = -1\n  StoichNum(261,1013) = 0.3\n  StoichNum(261,1038) = 0.15\n  StoichNum(262,381) = 0.4\n  StoichNum(262,445) = 0.675\n  StoichNum(262,446) = 0.675\n  StoichNum(262,447) = 0.78\n  StoichNum(262,448) = 0.78\n  StoichNum(262,449) = 0.39\n  StoichNum(262,450) = 0.3\n  StoichNum(262,451) = 0.3\n  StoichNum(262,452) = 0.15\n  StoichNum(262,453) = -1\n  StoichNum(262,454) = -1\n  StoichNum(262,455) = -1\n  StoichNum(262,462) = 0.675\n  StoichNum(262,463) = 0.675\n  StoichNum(262,1057) = 0.675\n  StoichNum(263,379) = 0.15\n  StoichNum(263,381) = 0.5\n  StoichNum(263,388) = 0.5\n  StoichNum(263,399) = 0.84\n  StoichNum(263,400) = 1\n  StoichNum(263,401) = 0.75\n  StoichNum(263,402) = 0.5\n  StoichNum(263,403) = 0.55\n  StoichNum(263,407) = 0.5\n  StoichNum(263,422) = 1\n  StoichNum(263,425) = 1\n  StoichNum(263,428) = 1\n  StoichNum(263,447) = 0.7\n  StoichNum(263,448) = 0.7\n  StoichNum(263,449) = 0.35\n  StoichNum(263,450) = 0.7\n  StoichNum(263,451) = 0.7\n  StoichNum(263,452) = 0.35\n  StoichNum(263,453) = 1\n  StoichNum(263,454) = 1\n  StoichNum(263,455) = 0.5\n  StoichNum(263,702) = 0.7\n  StoichNum(263,703) = 1\n  StoichNum(263,705) = 0.813\n  StoichNum(263,706) = 1\n  StoichNum(263,707) = 0.93\n  StoichNum(263,708) = 1\n  StoichNum(263,724) = 0.46\n  StoichNum(263,725) = 0.81\n  StoichNum(263,726) = 0.85\n  StoichNum(263,727) = -1\n  StoichNum(263,728) = -1\n  StoichNum(263,729) = -1\n  StoichNum(263,730) = -1\n  StoichNum(263,731) = -1\n  StoichNum(263,741) = 0.14\n  StoichNum(263,743) = 0.2\n  StoichNum(263,744) = 0.2\n  StoichNum(263,745) = 0.7\n  StoichNum(263,747) = 0.2\n  StoichNum(263,1052) = 1\n  StoichNum(264,7) = -1\n  StoichNum(264,19) = 1\n  StoichNum(264,21) = -1\n  StoichNum(264,23) = 1\n  StoichNum(264,244) = -1\n  StoichNum(264,295) = -1\n  StoichNum(264,365) = 0.06\n  StoichNum(264,366) = 0.06\n  StoichNum(264,373) = 1\n  StoichNum(264,493) = 0.013\n  StoichNum(264,645) = 0.045\n  StoichNum(264,886) = -1\n  StoichNum(265,47) = -1\n  StoichNum(265,151) = 0.134\n  StoichNum(265,152) = 1\n  StoichNum(265,168) = 0.5\n  StoichNum(265,318) = -1\n  StoichNum(265,365) = 0.21\n  StoichNum(265,366) = 0.54\n  StoichNum(265,650) = 0.449\n  StoichNum(265,661) = 0.187\n  StoichNum(265,685) = 0.3\n  StoichNum(265,694) = 0.5\n  StoichNum(265,714) = 0.364\n  StoichNum(265,767) = 0.26\n  StoichNum(265,768) = 0.5\n  StoichNum(265,770) = 0.1\n  StoichNum(265,771) = 0.2\n  StoichNum(266,560) = 1\n  StoichNum(266,564) = 1\n  StoichNum(266,567) = 1\n  StoichNum(266,584) = 1\n  StoichNum(266,588) = 1\n  StoichNum(266,592) = 1\n  StoichNum(266,593) = 1\n  StoichNum(266,629) = 1\n  StoichNum(266,630) = 0.5\n  StoichNum(266,690) = -1\n  StoichNum(266,691) = 0.9\n  StoichNum(266,877) = -1\n  StoichNum(266,1040) = -1\n  StoichNum(266,1041) = -1\n  StoichNum(267,518) = 1\n  StoichNum(267,580) = -1\n  StoichNum(267,581) = -1\n  StoichNum(267,583) = -1\n  StoichNum(267,608) = 0.127\n  StoichNum(267,609) = 0.057\n  StoichNum(267,872) = -1\n  StoichNum(267,1027) = -1\n  StoichNum(268,522) = 1\n  StoichNum(268,578) = -1\n  StoichNum(268,579) = -1\n  StoichNum(268,582) = -1\n  StoichNum(268,607) = 0.032\n  StoichNum(268,608) = 0.671\n  StoichNum(268,609) = 0.298\n  StoichNum(268,869) = -1\n  StoichNum(268,1024) = -1\n  StoichNum(269,742) = 0.258\n  StoichNum(269,744) = 0.5\n  StoichNum(269,747) = 0.5\n  StoichNum(269,762) = 1\n  StoichNum(269,763) = -1\n  StoichNum(269,764) = -1\n  StoichNum(269,881) = -1\n  StoichNum(269,1046) = -1\n  StoichNum(270,81) = 0.065\n  StoichNum(270,151) = 0.134\n  StoichNum(270,153) = 0.2\n  StoichNum(270,163) = -1\n  StoichNum(270,165) = -1\n  StoichNum(270,563) = 0.8\n  StoichNum(270,565) = 0.52\n  StoichNum(270,697) = 1\n  StoichNum(270,707) = 0.1\n  StoichNum(270,714) = 0.636\n  StoichNum(270,724) = 0.18\n  StoichNum(270,725) = 0.12\n  StoichNum(270,726) = 0.1\n  StoichNum(270,741) = 0.06\n  StoichNum(270,767) = 0.6\n  StoichNum(270,768) = 0.6\n  StoichNum(270,769) = 0.2\n  StoichNum(270,856) = -1\n  StoichNum(270,908) = -1\n  StoichNum(270,909) = -1\n  StoichNum(270,910) = -1\n  StoichNum(270,1007) = 0.5\n  StoichNum(270,1009) = 0.429\n  StoichNum(270,1010) = 0.125\n  StoichNum(270,1034) = 0.586\n  StoichNum(270,1036) = 0.571\n  StoichNum(271,621) = 0.67\n  StoichNum(271,630) = -1\n  StoichNum(271,631) = -1\n  StoichNum(271,633) = -1\n  StoichNum(271,634) = -1\n  StoichNum(272,423) = 1\n  StoichNum(272,424) = 0.27\n  StoichNum(272,426) = 0.18\n  StoichNum(272,429) = -1\n  StoichNum(272,430) = -1\n  StoichNum(272,431) = -1\n  StoichNum(272,432) = -1\n  StoichNum(273,383) = 0.1\n  StoichNum(273,409) = 1\n  StoichNum(273,410) = -1\n  StoichNum(273,411) = -1\n  StoichNum(273,412) = -1\n  StoichNum(273,413) = -1\n  StoichNum(273,414) = -1\n  StoichNum(273,415) = 1\n  StoichNum(274,379) = 0.715\n  StoichNum(274,412) = 0.27\n  StoichNum(274,413) = 0.23\n  StoichNum(274,414) = 0.27\n  StoichNum(274,416) = 0.085\n  StoichNum(274,420) = 1\n  StoichNum(274,421) = 0.6\n  StoichNum(274,424) = 0.73\n  StoichNum(274,426) = 0.32\n  StoichNum(274,427) = 0.4\n  StoichNum(274,433) = 1\n  StoichNum(274,434) = 1\n  StoichNum(274,435) = 0.5\n  StoichNum(274,436) = -1\n  StoichNum(274,437) = -1\n  StoichNum(274,438) = -1\n  StoichNum(274,439) = 1\n  StoichNum(274,440) = -1\n  StoichNum(274,441) = 1\n  StoichNum(274,466) = -1\n  StoichNum(274,467) = -1\n  StoichNum(274,1054) = 0.27\n  StoichNum(274,1058) = 0.9\n  StoichNum(275,380) = 0.15\n  StoichNum(275,382) = 0.255\n  StoichNum(275,404) = -1\n  StoichNum(275,405) = -1\n  StoichNum(275,406) = -1\n  StoichNum(275,408) = 1\n  StoichNum(275,458) = -1\n  StoichNum(275,459) = -1\n  StoichNum(276,330) = -1\n  StoichNum(276,493) = -1\n  StoichNum(276,494) = -1\n  StoichNum(276,495) = -1\n  StoichNum(276,496) = -1\n  StoichNum(276,497) = -1\n  StoichNum(276,603) = -1\n  StoichNum(277,380) = 0.15\n  StoichNum(277,382) = 0.67\n  StoichNum(277,383) = 0.5\n  StoichNum(277,384) = -1\n  StoichNum(277,385) = -1\n  StoichNum(277,386) = -1\n  StoichNum(277,387) = 0.6\n  StoichNum(277,456) = -1\n  StoichNum(277,457) = -1\n  StoichNum(278,391) = 0.44\n  StoichNum(278,392) = 1\n  StoichNum(278,395) = 1\n  StoichNum(278,397) = 1\n  StoichNum(278,398) = -1\n  StoichNum(278,399) = -1\n  StoichNum(278,400) = -1\n  StoichNum(278,401) = -1\n  StoichNum(278,402) = 0.5\n  StoichNum(278,464) = 0.75\n  StoichNum(278,465) = 1\n  StoichNum(278,1049) = 1\n  StoichNum(278,1050) = 1\n  StoichNum(278,1051) = 1\n  StoichNum(279,91) = 1\n  StoichNum(279,97) = 0.072\n  StoichNum(279,103) = -1\n  StoichNum(279,117) = 1\n  StoichNum(279,929) = -1\n  StoichNum(280,375) = 0.1\n  StoichNum(280,376) = 0.1\n  StoichNum(280,377) = 0.5\n  StoichNum(280,449) = 0.5\n  StoichNum(280,452) = 0.5\n  StoichNum(280,455) = 0.5\n  StoichNum(280,468) = -1\n  StoichNum(280,470) = -1\n  StoichNum(280,472) = -1\n  StoichNum(280,474) = -1\n  StoichNum(280,476) = -1\n  StoichNum(280,478) = -2\n  StoichNum(280,479) = -1\n  StoichNum(281,378) = 1\n  StoichNum(281,380) = 0.2\n  StoichNum(281,382) = 0.075\n  StoichNum(281,417) = -1\n  StoichNum(281,418) = -1\n  StoichNum(281,419) = -1\n  StoichNum(281,460) = -1\n  StoichNum(281,461) = -1\n  StoichNum(282,29) = 1\n  StoichNum(282,31) = 0.13\n  StoichNum(282,48) = -1\n  StoichNum(282,112) = 0.25\n  StoichNum(282,113) = 0.25\n  StoichNum(282,129) = 0.25\n  StoichNum(282,130) = 0.25\n  StoichNum(282,132) = 0.25\n  StoichNum(282,133) = 0.25\n  StoichNum(282,134) = 0.25\n  StoichNum(282,135) = 0.25\n  StoichNum(282,136) = 0.5\n  StoichNum(282,137) = 0.25\n  StoichNum(282,138) = 0.25\n  StoichNum(282,139) = 0.25\n  StoichNum(282,324) = -1\n  StoichNum(282,401) = 0.25\n  StoichNum(282,413) = 0.25\n  StoichNum(282,432) = 0.25\n  StoichNum(282,456) = 0.25\n  StoichNum(282,458) = 0.25\n  StoichNum(282,460) = 0.25\n  StoichNum(282,462) = 0.25\n  StoichNum(282,473) = 0.25\n  StoichNum(282,609) = 0.355\n  StoichNum(282,610) = 0.034\n  StoichNum(282,718) = 0.2\n  StoichNum(282,907) = 0.1\n  StoichNum(283,104) = -1\n  StoichNum(283,168) = 0.5\n  StoichNum(283,181) = 0.1\n  StoichNum(283,182) = 0.1\n  StoichNum(283,183) = 0.1\n  StoichNum(283,184) = 0.1\n  StoichNum(283,185) = 0.1\n  StoichNum(283,186) = 0.1\n  StoichNum(283,187) = 0.1\n  StoichNum(283,188) = 0.1\n  StoichNum(283,189) = 0.1\n  StoichNum(283,190) = 0.1\n  StoichNum(283,191) = 0.1\n  StoichNum(283,192) = 0.1\n  StoichNum(283,193) = 0.1\n  StoichNum(283,326) = -1\n  StoichNum(283,374) = 1\n  StoichNum(283,457) = 0.1\n  StoichNum(283,459) = 0.1\n  StoichNum(283,461) = 0.1\n  StoichNum(283,463) = 0.1\n  StoichNum(283,695) = 0.13\n  StoichNum(283,770) = 0.15\n  StoichNum(283,771) = 0.3\n  StoichNum(284,340) = -1\n  StoichNum(284,341) = 1\n  StoichNum(284,343) = 1\n  StoichNum(284,344) = -1\n  StoichNum(284,345) = -1\n  StoichNum(284,348) = 1\n  StoichNum(284,349) = -1\n  StoichNum(284,350) = 1\n  StoichNum(284,354) = 1\n  StoichNum(284,355) = -1\n  StoichNum(284,356) = -1\n  StoichNum(284,357) = -2\n  StoichNum(284,358) = 0.008\n  StoichNum(284,968) = -1\n  StoichNum(284,979) = 1\n  StoichNum(285,528) = 0.068\n  StoichNum(285,553) = 0.33\n  StoichNum(285,555) = 0.19\n  StoichNum(285,561) = -1\n  StoichNum(285,562) = -1\n  StoichNum(285,563) = -1\n  StoichNum(285,564) = -1\n  StoichNum(285,565) = -1\n  StoichNum(285,687) = 0.032\n  StoichNum(286,528) = 0.294\n  StoichNum(286,553) = 0.67\n  StoichNum(286,555) = 0.81\n  StoichNum(286,556) = -1\n  StoichNum(286,557) = -1\n  StoichNum(286,558) = -1\n  StoichNum(286,559) = -1\n  StoichNum(286,560) = -1\n  StoichNum(286,687) = 0.08\n  StoichNum(287,510) = 1\n  StoichNum(287,511) = 0.5\n  StoichNum(287,515) = 0.5\n  StoichNum(287,523) = 0.55\n  StoichNum(287,525) = 0.17\n  StoichNum(287,527) = 0.09\n  StoichNum(287,528) = 0.158\n  StoichNum(287,536) = 0.165\n  StoichNum(287,540) = 0.716\n  StoichNum(287,542) = 0.14\n  StoichNum(287,631) = 0.004\n  StoichNum(287,633) = 0.006\n  StoichNum(287,652) = -1\n  StoichNum(287,670) = 0.41\n  StoichNum(287,686) = 0.5\n  StoichNum(287,689) = 0.571\n  StoichNum(287,690) = 0.25\n  StoichNum(287,1011) = -1\n  StoichNum(287,1027) = 0.55\n  StoichNum(287,1033) = 0.5\n  StoichNum(287,1039) = 0.15\n  StoichNum(287,1041) = 0.5\n  StoichNum(288,509) = 1\n  StoichNum(288,511) = 0.5\n  StoichNum(288,513) = 0.5\n  StoichNum(288,519) = 0.55\n  StoichNum(288,524) = 0.33\n  StoichNum(288,526) = 0.19\n  StoichNum(288,528) = 0.125\n  StoichNum(288,535) = 0.125\n  StoichNum(288,544) = 0.706\n  StoichNum(288,546) = 0.14\n  StoichNum(288,631) = 0.054\n  StoichNum(288,633) = 0.059\n  StoichNum(288,651) = -1\n  StoichNum(288,667) = 0.335\n  StoichNum(288,689) = 0.429\n  StoichNum(288,690) = 0.75\n  StoichNum(288,1008) = -1\n  StoichNum(288,1024) = 0.55\n  StoichNum(288,1041) = 0.5\n  StoichNum(289,375) = 0.9\n  StoichNum(289,376) = 0.9\n  StoichNum(289,377) = 0.5\n  StoichNum(289,469) = -1\n  StoichNum(289,471) = -1\n  StoichNum(289,473) = -1\n  StoichNum(289,475) = -1\n  StoichNum(289,477) = -1\n  StoichNum(289,479) = -1\n  StoichNum(289,480) = -2\n  StoichNum(290,149) = -1\n  StoichNum(290,150) = -1\n  StoichNum(290,162) = -1\n  StoichNum(290,332) = -1\n  StoichNum(290,333) = -1\n  StoichNum(290,912) = 1\n  StoichNum(291,380) = 0.5\n  StoichNum(291,443) = -1\n  StoichNum(291,444) = -1\n  StoichNum(291,445) = -1\n  StoichNum(291,446) = -1\n  StoichNum(291,462) = -1\n  StoichNum(291,463) = -1\n  StoichNum(292,68) = 0.25\n  StoichNum(292,90) = 0.19\n  StoichNum(292,93) = 0.19\n  StoichNum(292,122) = -1\n  StoichNum(292,131) = -1\n  StoichNum(292,132) = 0.35\n  StoichNum(292,134) = 0.35\n  StoichNum(292,137) = 0.25\n  StoichNum(292,182) = 0.271\n  StoichNum(292,183) = 0.271\n  StoichNum(292,185) = 0.1\n  StoichNum(292,381) = 0.5\n  StoichNum(292,399) = 0.42\n  StoichNum(292,400) = 0.5\n  StoichNum(292,401) = 0.375\n  StoichNum(292,402) = 0.25\n  StoichNum(292,403) = 0.3\n  StoichNum(292,453) = 1\n  StoichNum(292,454) = 1\n  StoichNum(292,455) = 0.5\n  StoichNum(292,469) = 0.464\n  StoichNum(292,473) = 0.34\n  StoichNum(292,475) = 0.464\n  StoichNum(292,477) = 0.464\n  StoichNum(292,479) = 0.149\n  StoichNum(292,480) = 0.285\n  StoichNum(292,906) = -1\n  StoichNum(292,926) = 0.19\n  StoichNum(292,929) = 0.19\n  StoichNum(292,991) = 1\n  StoichNum(292,1052) = 0.5\n  StoichNum(293,600) = -1\n  StoichNum(293,601) = -1\n  StoichNum(293,602) = -1\n  StoichNum(293,620) = 1\n  StoichNum(293,621) = 0.33\n  StoichNum(293,691) = 0.037\n  StoichNum(294,33) = 0.3\n  StoichNum(294,136) = 0.5\n  StoichNum(294,164) = -1\n  StoichNum(294,166) = -1\n  StoichNum(294,167) = 1\n  StoichNum(294,184) = 0.1\n  StoichNum(294,361) = 1\n  StoichNum(294,496) = 0.3\n  StoichNum(294,497) = 0.3\n  StoichNum(294,503) = 0.3\n  StoichNum(294,505) = 0.3\n  StoichNum(294,524) = 0.085\n  StoichNum(294,525) = 0.165\n  StoichNum(294,528) = 0.355\n  StoichNum(294,529) = 0.5\n  StoichNum(294,537) = 0.018\n  StoichNum(294,538) = 0.018\n  StoichNum(294,558) = 0.52\n  StoichNum(294,559) = 0.8\n  StoichNum(294,645) = 0.545\n  StoichNum(294,648) = 0.88\n  StoichNum(294,650) = 0.449\n  StoichNum(294,661) = 0.187\n  StoichNum(294,662) = 1\n  StoichNum(294,664) = 1\n  StoichNum(294,667) = 0.05\n  StoichNum(294,668) = 0.242\n  StoichNum(294,670) = 0.083\n  StoichNum(294,674) = 0.14\n  StoichNum(294,685) = 0.7\n  StoichNum(294,707) = 0.25\n  StoichNum(294,725) = 0.12\n  StoichNum(294,726) = 0.2\n  StoichNum(294,770) = 0.6\n  StoichNum(294,771) = 0.6\n  StoichNum(294,772) = 0.2\n  StoichNum(294,857) = -1\n  StoichNum(294,911) = -1\n  StoichNum(294,1007) = 0.5\n  StoichNum(294,1008) = 0.47\n  StoichNum(294,1009) = 0.571\n  StoichNum(294,1010) = 0.125\n  StoichNum(294,1011) = 0.23\n  StoichNum(294,1034) = 0.118\n  StoichNum(294,1036) = 0.429\n  StoichNum(294,1040) = 1\n  StoichNum(295,90) = 0.34\n  StoichNum(295,93) = 0.34\n  StoichNum(295,98) = 1\n  StoichNum(295,111) = -1\n  StoichNum(295,132) = 0.16\n  StoichNum(295,134) = 0.16\n  StoichNum(295,138) = 0.75\n  StoichNum(295,172) = 0.791\n  StoichNum(295,182) = 0.29\n  StoichNum(295,183) = 0.29\n  StoichNum(295,186) = 1\n  StoichNum(295,218) = -1\n  StoichNum(295,329) = -1\n  StoichNum(295,381) = 0.5\n  StoichNum(295,399) = 0.84\n  StoichNum(295,400) = 1\n  StoichNum(295,401) = 0.75\n  StoichNum(295,402) = 0.5\n  StoichNum(295,403) = 0.4\n  StoichNum(295,412) = 0.6\n  StoichNum(295,413) = 0.4\n  StoichNum(295,414) = 0.6\n  StoichNum(295,416) = 0.3\n  StoichNum(295,445) = 0.45\n  StoichNum(295,446) = 0.45\n  StoichNum(295,447) = 0.3\n  StoichNum(295,448) = 0.3\n  StoichNum(295,449) = 0.15\n  StoichNum(295,453) = 0.5\n  StoichNum(295,454) = 0.5\n  StoichNum(295,455) = 0.25\n  StoichNum(295,462) = 0.45\n  StoichNum(295,463) = 0.45\n  StoichNum(295,491) = 1\n  StoichNum(295,904) = -1\n  StoichNum(295,905) = -1\n  StoichNum(295,920) = 1\n  StoichNum(295,926) = 0.34\n  StoichNum(295,929) = 0.34\n  StoichNum(295,1000) = 1\n  StoichNum(295,1052) = 1\n  StoichNum(295,1054) = 0.6\n  StoichNum(295,1057) = 0.45\n  StoichNum(296,57) = 1\n  StoichNum(296,58) = -1\n  StoichNum(296,59) = -1\n  StoichNum(296,129) = -1\n  StoichNum(296,142) = -2\n  StoichNum(296,144) = -1\n  StoichNum(296,179) = 1\n  StoichNum(296,190) = -1\n  StoichNum(296,219) = 1\n  StoichNum(296,321) = 1\n  StoichNum(296,322) = -1\n  StoichNum(296,701) = 1\n  StoichNum(297,281) = -1\n  StoichNum(297,787) = 1\n  StoichNum(297,789) = 1\n  StoichNum(297,790) = 1\n  StoichNum(297,802) = -1\n  StoichNum(297,803) = -1\n  StoichNum(297,804) = -1\n  StoichNum(297,805) = -1\n  StoichNum(297,806) = -1\n  StoichNum(297,807) = -1\n  StoichNum(297,947) = -1\n  StoichNum(298,63) = 1\n  StoichNum(298,68) = 0.75\n  StoichNum(298,71) = 0.5\n  StoichNum(298,73) = 1.24\n  StoichNum(298,78) = 0.326\n  StoichNum(298,79) = 0.894\n  StoichNum(298,90) = 0.15\n  StoichNum(298,92) = 0.64\n  StoichNum(298,93) = 0.15\n  StoichNum(298,95) = 0.64\n  StoichNum(298,105) = -1\n  StoichNum(298,110) = -1\n  StoichNum(298,112) = 0.75\n  StoichNum(298,113) = 0.09\n  StoichNum(298,132) = 0.13\n  StoichNum(298,133) = 0.58\n  StoichNum(298,134) = 0.13\n  StoichNum(298,135) = 0.58\n  StoichNum(298,139) = 0.25\n  StoichNum(298,141) = 1\n  StoichNum(298,171) = 0.64\n  StoichNum(298,173) = 1.185\n  StoichNum(298,174) = 1.185\n  StoichNum(298,182) = 0.255\n  StoichNum(298,183) = 0.255\n  StoichNum(298,187) = 0.613\n  StoichNum(298,188) = 0.613\n  StoichNum(298,189) = 0.1\n  StoichNum(298,192) = 0.035\n  StoichNum(298,193) = 1\n  StoichNum(298,381) = 0.3\n  StoichNum(298,412) = 0.6\n  StoichNum(298,413) = 0.4\n  StoichNum(298,414) = 0.6\n  StoichNum(298,416) = 0.3\n  StoichNum(298,436) = 0.44\n  StoichNum(298,437) = 1\n  StoichNum(298,440) = 1\n  StoichNum(298,442) = 1\n  StoichNum(298,466) = 0.75\n  StoichNum(298,467) = 1\n  StoichNum(298,469) = 1.24\n  StoichNum(298,473) = 0.93\n  StoichNum(298,475) = 1.24\n  StoichNum(298,477) = 1.24\n  StoichNum(298,479) = 0.64\n  StoichNum(298,480) = 1.21\n  StoichNum(298,492) = 1\n  StoichNum(298,769) = 1.2\n  StoichNum(298,772) = 1.15\n  StoichNum(298,903) = -1\n  StoichNum(298,917) = 1\n  StoichNum(298,919) = 1\n  StoichNum(298,921) = 1.5\n  StoichNum(298,922) = 1\n  StoichNum(298,923) = 1.5\n  StoichNum(298,926) = 0.15\n  StoichNum(298,927) = 1.558\n  StoichNum(298,929) = 0.15\n  StoichNum(298,989) = 1\n  StoichNum(298,992) = 1\n  StoichNum(298,1001) = 1\n  StoichNum(298,1054) = 0.6\n  StoichNum(298,1055) = 1\n  StoichNum(298,1056) = 1\n  StoichNum(299,587) = 1\n  StoichNum(299,591) = 1\n  StoichNum(299,596) = 1\n  StoichNum(299,599) = 1\n  StoichNum(299,602) = 1\n  StoichNum(299,616) = 1\n  StoichNum(299,618) = 1\n  StoichNum(299,634) = 1\n  StoichNum(299,636) = 1\n  StoichNum(299,641) = -1\n  StoichNum(299,643) = 0.18\n  StoichNum(299,876) = -1\n  StoichNum(299,1032) = -1\n  StoichNum(300,90) = -1\n  StoichNum(300,91) = -1\n  StoichNum(300,101) = 1\n  StoichNum(300,116) = -1\n  StoichNum(300,134) = -1\n  StoichNum(300,174) = 0.21\n  StoichNum(300,183) = -1\n  StoichNum(300,331) = 1\n  StoichNum(300,772) = 0.2\n  StoichNum(301,582) = 0.4\n  StoichNum(301,583) = 0.4\n  StoichNum(301,606) = 0.07\n  StoichNum(301,607) = 0.532\n  StoichNum(301,608) = 0.862\n  StoichNum(301,609) = 0.401\n  StoichNum(301,610) = 0.034\n  StoichNum(301,612) = 0.159\n  StoichNum(301,614) = 0.159\n  StoichNum(301,617) = 0.159\n  StoichNum(301,619) = 1\n  StoichNum(301,628) = 1\n  StoichNum(301,637) = -1\n  StoichNum(301,638) = -1\n  StoichNum(301,1029) = 0.159\n  StoichNum(301,1031) = -1\n  StoichNum(301,1032) = 0.223\n  StoichNum(302,583) = 0.6\n  StoichNum(302,589) = 0.599\n  StoichNum(302,590) = 1\n  StoichNum(302,597) = 0.065\n  StoichNum(302,598) = 0.142\n  StoichNum(302,600) = 0.01\n  StoichNum(302,601) = 0.028\n  StoichNum(302,631) = 0.008\n  StoichNum(302,632) = 0.015\n  StoichNum(302,633) = 0.014\n  StoichNum(302,635) = 0.049\n  StoichNum(302,638) = 0.161\n  StoichNum(302,650) = -1\n  StoichNum(302,657) = 1\n  StoichNum(302,669) = 1\n  StoichNum(302,862) = -1\n  StoichNum(302,1013) = -1\n  StoichNum(302,1038) = 0.05\n  StoichNum(303,541) = 1\n  StoichNum(303,545) = 1\n  StoichNum(303,549) = 1\n  StoichNum(303,585) = 0.482\n  StoichNum(303,589) = 0.401\n  StoichNum(303,594) = 0.418\n  StoichNum(303,597) = 0.494\n  StoichNum(303,600) = 0.621\n  StoichNum(303,623) = 1\n  StoichNum(303,624) = 1\n  StoichNum(303,630) = 0.5\n  StoichNum(303,631) = 0.234\n  StoichNum(303,632) = 0.387\n  StoichNum(303,641) = 0.565\n  StoichNum(303,691) = -1\n  StoichNum(303,878) = -1\n  StoichNum(303,1038) = -1\n  StoichNum(303,1039) = -1\n  StoichNum(304,330) = 0.5\n  StoichNum(304,495) = 1\n  StoichNum(304,500) = -1\n  StoichNum(304,501) = -1\n  StoichNum(304,504) = -1\n  StoichNum(304,505) = -1\n  StoichNum(304,507) = -2\n  StoichNum(304,508) = -1\n  StoichNum(304,510) = -2\n  StoichNum(304,511) = -1\n  StoichNum(304,514) = -1\n  StoichNum(304,515) = -1\n  StoichNum(304,520) = -1\n  StoichNum(304,521) = -1\n  StoichNum(304,522) = -1\n  StoichNum(304,523) = -1\n  StoichNum(304,536) = 0.51\n  StoichNum(304,538) = 0.03\n  StoichNum(304,1030) = 0.159\n  StoichNum(305,330) = 0.5\n  StoichNum(305,494) = 1\n  StoichNum(305,498) = -1\n  StoichNum(305,499) = -1\n  StoichNum(305,502) = -1\n  StoichNum(305,503) = -1\n  StoichNum(305,506) = -2\n  StoichNum(305,508) = -1\n  StoichNum(305,509) = -2\n  StoichNum(305,511) = -1\n  StoichNum(305,512) = -1\n  StoichNum(305,513) = -1\n  StoichNum(305,516) = -1\n  StoichNum(305,517) = -1\n  StoichNum(305,518) = -1\n  StoichNum(305,519) = -1\n  StoichNum(305,535) = 0.75\n  StoichNum(305,537) = 0.03\n  StoichNum(305,1030) = 0.841\n  StoichNum(306,79) = 0.659\n  StoichNum(306,80) = 1\n  StoichNum(306,82) = 1\n  StoichNum(306,83) = 1\n  StoichNum(306,84) = 0.5\n  StoichNum(306,88) = 1\n  StoichNum(306,126) = 1\n  StoichNum(306,151) = -1\n  StoichNum(306,152) = -1\n  StoichNum(306,153) = -1\n  StoichNum(306,154) = -1\n  StoichNum(306,453) = 0.5\n  StoichNum(306,454) = 0.5\n  StoichNum(306,455) = 0.25\n  StoichNum(306,544) = 0.294\n  StoichNum(306,546) = 0.135\n  StoichNum(306,548) = 1\n  StoichNum(306,550) = 0.65\n  StoichNum(306,558) = 0.52\n  StoichNum(306,559) = 0.8\n  StoichNum(306,585) = 0.459\n  StoichNum(306,586) = 0.728\n  StoichNum(306,594) = 0.551\n  StoichNum(306,595) = 0.935\n  StoichNum(306,600) = 0.242\n  StoichNum(306,601) = 0.546\n  StoichNum(306,631) = 0.34\n  StoichNum(306,633) = 0.384\n  StoichNum(306,642) = 0.11\n  StoichNum(306,643) = 0.09\n  StoichNum(306,667) = 0.36\n  StoichNum(306,668) = 0.758\n  StoichNum(306,718) = 0.2\n  StoichNum(306,720) = 1\n  StoichNum(306,721) = 1\n  StoichNum(306,723) = 1\n  StoichNum(306,746) = 1\n  StoichNum(306,768) = 0.9\n  StoichNum(306,771) = 0.95\n  StoichNum(306,907) = -1\n  StoichNum(306,1008) = 0.53\n  StoichNum(306,1013) = 0.69\n  StoichNum(306,1032) = 0.5\n  StoichNum(306,1034) = 0.118\n  StoichNum(306,1035) = 0.25\n  StoichNum(306,1036) = 0.429\n  StoichNum(306,1038) = 0.3\n  StoichNum(306,1039) = 0.35\n  StoichNum(306,1040) = 1\n  StoichNum(307,113) = 0.16\n  StoichNum(307,136) = 0.2\n  StoichNum(307,167) = -1\n  StoichNum(307,168) = -1\n  StoichNum(307,176) = 0.791\n  StoichNum(307,192) = 0.065\n  StoichNum(307,488) = 1\n  StoichNum(307,529) = 0.5\n  StoichNum(307,540) = 0.284\n  StoichNum(307,542) = 0.135\n  StoichNum(307,548) = 1\n  StoichNum(307,550) = 0.65\n  StoichNum(307,563) = 0.8\n  StoichNum(307,565) = 0.52\n  StoichNum(307,566) = 0.52\n  StoichNum(307,568) = 0.8\n  StoichNum(307,569) = 1\n  StoichNum(307,585) = 0.459\n  StoichNum(307,586) = 0.728\n  StoichNum(307,597) = 0.441\n  StoichNum(307,598) = 0.858\n  StoichNum(307,600) = 0.033\n  StoichNum(307,601) = 0.071\n  StoichNum(307,631) = 0.042\n  StoichNum(307,633) = 0.051\n  StoichNum(307,652) = 0.77\n  StoichNum(307,666) = 0.84\n  StoichNum(307,670) = 0.507\n  StoichNum(307,672) = 0.488\n  StoichNum(307,673) = 1\n  StoichNum(307,674) = 0.86\n  StoichNum(307,678) = 0.5\n  StoichNum(307,679) = 1\n  StoichNum(307,681) = 1\n  StoichNum(307,682) = 0.7\n  StoichNum(307,684) = 0.25\n  StoichNum(307,916) = -1\n  StoichNum(307,993) = 1\n  StoichNum(307,1011) = 0.77\n  StoichNum(307,1014) = 1\n  StoichNum(307,1032) = 0.5\n  StoichNum(307,1034) = 0.586\n  StoichNum(307,1035) = 0.25\n  StoichNum(307,1036) = 0.571\n  StoichNum(307,1038) = 0.45\n  StoichNum(307,1039) = 0.8\n  StoichNum(308,653) = 1\n  StoichNum(308,678) = -1\n  StoichNum(308,679) = -1\n  StoichNum(308,680) = -1\n  StoichNum(308,681) = -1\n  StoichNum(308,682) = -1\n  StoichNum(309,493) = 0.416\n  StoichNum(309,500) = 0.063\n  StoichNum(309,504) = 1\n  StoichNum(309,507) = 2\n  StoichNum(309,508) = 1\n  StoichNum(309,514) = 1\n  StoichNum(309,521) = 1\n  StoichNum(309,525) = 0.035\n  StoichNum(309,527) = 0.14\n  StoichNum(309,536) = 0.165\n  StoichNum(309,572) = 1\n  StoichNum(309,573) = 1\n  StoichNum(309,604) = 0.048\n  StoichNum(309,606) = 0.123\n  StoichNum(309,607) = 0.019\n  StoichNum(309,610) = 0.028\n  StoichNum(309,611) = 0.097\n  StoichNum(309,613) = 0.097\n  StoichNum(309,615) = 0.096\n  StoichNum(309,646) = -1\n  StoichNum(309,647) = -1\n  StoichNum(309,648) = -1\n  StoichNum(309,649) = -1\n  StoichNum(309,915) = -1\n  StoichNum(309,1017) = 1\n  StoichNum(309,1023) = 1\n  StoichNum(309,1026) = 1\n  StoichNum(309,1028) = 0.097\n  StoichNum(309,1032) = 0.005\n  StoichNum(310,603) = 0.465\n  StoichNum(310,604) = -1\n  StoichNum(310,606) = -2\n  StoichNum(310,607) = -1\n  StoichNum(310,610) = -1\n  StoichNum(310,611) = -1\n  StoichNum(310,613) = -1\n  StoichNum(310,615) = -1\n  StoichNum(310,616) = -1\n  StoichNum(310,626) = 1\n  StoichNum(311,603) = 0.535\n  StoichNum(311,605) = -1\n  StoichNum(311,607) = -1\n  StoichNum(311,608) = -2\n  StoichNum(311,609) = -1\n  StoichNum(311,612) = -1\n  StoichNum(311,614) = -1\n  StoichNum(311,617) = -1\n  StoichNum(311,618) = -1\n  StoichNum(311,627) = 1\n  StoichNum(312,150) = 0.22\n  StoichNum(312,362) = -1\n  StoichNum(312,363) = -1\n  StoichNum(312,364) = -1\n  StoichNum(312,365) = -1\n  StoichNum(312,366) = -1\n  StoichNum(312,367) = -1\n  StoichNum(312,368) = -1\n  StoichNum(312,383) = 0.1\n  StoichNum(312,421) = 0.33\n  StoichNum(312,493) = 0.58\n  StoichNum(312,645) = 0.5\n  StoichNum(312,648) = 0.88\n  StoichNum(312,704) = 0.5\n  StoichNum(312,712) = 1\n  StoichNum(313,33) = 0.7\n  StoichNum(313,96) = -1\n  StoichNum(313,111) = 1\n  StoichNum(313,118) = -1\n  StoichNum(313,136) = -1\n  StoichNum(313,184) = -1\n  StoichNum(313,218) = 1\n  StoichNum(313,329) = 1\n  StoichNum(314,381) = 0.15\n  StoichNum(314,445) = 0.45\n  StoichNum(314,446) = 0.45\n  StoichNum(314,447) = 0.3\n  StoichNum(314,448) = 0.3\n  StoichNum(314,449) = 0.15\n  StoichNum(314,453) = 0.5\n  StoichNum(314,454) = 0.5\n  StoichNum(314,455) = 0.25\n  StoichNum(314,462) = 0.45\n  StoichNum(314,463) = 0.45\n  StoichNum(314,493) = 0.177\n  StoichNum(314,498) = 0.063\n  StoichNum(314,502) = 1\n  StoichNum(314,506) = 2\n  StoichNum(314,508) = 1\n  StoichNum(314,512) = 1\n  StoichNum(314,517) = 1\n  StoichNum(314,524) = 0.035\n  StoichNum(314,526) = 0.23\n  StoichNum(314,535) = 0.125\n  StoichNum(314,570) = 1\n  StoichNum(314,571) = 1\n  StoichNum(314,604) = 0.479\n  StoichNum(314,606) = 1.737\n  StoichNum(314,607) = 0.544\n  StoichNum(314,610) = 0.583\n  StoichNum(314,611) = 0.903\n  StoichNum(314,613) = 0.903\n  StoichNum(314,615) = 0.904\n  StoichNum(314,644) = -1\n  StoichNum(314,645) = -1\n  StoichNum(314,725) = 0.04\n  StoichNum(314,726) = 0.04\n  StoichNum(314,912) = -1\n  StoichNum(314,913) = -1\n  StoichNum(314,914) = -1\n  StoichNum(314,1016) = 1\n  StoichNum(314,1022) = 1\n  StoichNum(314,1025) = 1\n  StoichNum(314,1028) = 0.903\n  StoichNum(314,1032) = 0.05\n  StoichNum(314,1057) = 0.45\n  StoichNum(315,60) = -1\n  StoichNum(315,90) = 0.34\n  StoichNum(315,93) = 0.34\n  StoichNum(315,109) = 0.49\n  StoichNum(315,130) = -1\n  StoichNum(315,132) = 0.16\n  StoichNum(315,134) = 0.16\n  StoichNum(315,143) = -2\n  StoichNum(315,145) = -1\n  StoichNum(315,148) = 0.22\n  StoichNum(315,170) = 0.36\n  StoichNum(315,182) = 0.29\n  StoichNum(315,183) = 0.29\n  StoichNum(315,191) = -1\n  StoichNum(315,194) = 0.49\n  StoichNum(315,195) = 0.49\n  StoichNum(315,323) = -1\n  StoichNum(315,903) = 0.49\n  StoichNum(315,906) = 0.415\n  StoichNum(315,926) = 0.34\n  StoichNum(315,929) = 0.34\n  StoichNum(316,204) = 1\n  StoichNum(316,211) = 1\n  StoichNum(316,212) = -1\n  StoichNum(316,793) = 1\n  StoichNum(316,813) = -1\n  StoichNum(316,814) = -1\n  StoichNum(316,815) = -1\n  StoichNum(316,816) = -1\n  StoichNum(316,817) = -1\n  StoichNum(316,818) = -1\n  StoichNum(316,819) = -1\n  StoichNum(316,820) = 1\n  StoichNum(316,821) = 1\n  StoichNum(316,822) = 1\n  StoichNum(316,933) = -1\n  StoichNum(317,282) = -1\n  StoichNum(317,301) = 1\n  StoichNum(317,313) = -1\n  StoichNum(317,314) = -1\n  StoichNum(317,795) = -1\n  StoichNum(317,796) = -1\n  StoichNum(317,797) = -1\n  StoichNum(317,798) = -1\n  StoichNum(317,799) = -1\n  StoichNum(317,800) = -1\n  StoichNum(317,801) = -1\n  StoichNum(317,948) = -1\n  StoichNum(317,949) = -1\n  StoichNum(318,95) = -1\n  StoichNum(318,102) = 1\n  StoichNum(318,115) = -1\n  StoichNum(318,133) = -1\n  StoichNum(318,187) = -1\n  StoichNum(318,763) = 0.5\n  StoichNum(318,764) = 0.5\n  StoichNum(319,68) = 0.25\n  StoichNum(319,89) = 1\n  StoichNum(319,93) = -1\n  StoichNum(319,94) = -1\n  StoichNum(319,114) = -1\n  StoichNum(319,132) = -1\n  StoichNum(319,133) = 0.15\n  StoichNum(319,135) = 0.15\n  StoichNum(319,173) = 0.21\n  StoichNum(319,182) = -1\n  StoichNum(319,187) = 0.27\n  StoichNum(319,188) = 0.27\n  StoichNum(319,412) = 0.6\n  StoichNum(319,413) = 0.4\n  StoichNum(319,414) = 0.6\n  StoichNum(319,416) = 0.3\n  StoichNum(319,436) = 0.352\n  StoichNum(319,437) = 0.8\n  StoichNum(319,440) = 0.8\n  StoichNum(319,442) = 0.8\n  StoichNum(319,466) = 0.6\n  StoichNum(319,467) = 0.8\n  StoichNum(319,1054) = 0.6\n  StoichNum(319,1055) = 0.8\n  StoichNum(319,1056) = 0.8\n  StoichNum(320,97) = -1\n  StoichNum(320,119) = -1\n  StoichNum(320,122) = 1\n  StoichNum(320,123) = -1\n  StoichNum(320,131) = 1\n  StoichNum(320,137) = -1\n  StoichNum(320,185) = -1\n  StoichNum(320,381) = 0.3\n  StoichNum(321,62) = 1\n  StoichNum(321,63) = -1\n  StoichNum(321,64) = -1\n  StoichNum(321,90) = 0.05\n  StoichNum(321,93) = 0.05\n  StoichNum(321,109) = 0.07\n  StoichNum(321,112) = -1\n  StoichNum(321,132) = 0.03\n  StoichNum(321,134) = 0.03\n  StoichNum(321,146) = -1\n  StoichNum(321,148) = 0.03\n  StoichNum(321,171) = 0.36\n  StoichNum(321,182) = 0.045\n  StoichNum(321,183) = 0.045\n  StoichNum(321,193) = -1\n  StoichNum(321,194) = 0.07\n  StoichNum(321,195) = 0.07\n  StoichNum(321,220) = 1\n  StoichNum(321,328) = 1\n  StoichNum(321,903) = 0.07\n  StoichNum(321,906) = 0.06\n  StoichNum(321,926) = 0.05\n  StoichNum(321,929) = 0.05\n  StoichNum(322,105) = 1\n  StoichNum(322,106) = -1\n  StoichNum(322,107) = 1\n  StoichNum(322,109) = -1\n  StoichNum(322,110) = 1\n  StoichNum(322,148) = -1\n  StoichNum(322,175) = 1\n  StoichNum(322,194) = -1\n  StoichNum(322,195) = -1\n  StoichNum(322,399) = 0.84\n  StoichNum(322,400) = 1\n  StoichNum(322,401) = 0.75\n  StoichNum(322,402) = 0.5\n  StoichNum(322,403) = 0.4\n  StoichNum(322,736) = 1\n  StoichNum(322,737) = 0.44\n  StoichNum(322,767) = 0.33\n  StoichNum(322,770) = 0.33\n  StoichNum(322,906) = 0.15\n  StoichNum(322,914) = 1\n  StoichNum(322,927) = 0.326\n  StoichNum(322,1047) = 0.7\n  StoichNum(322,1052) = 1\n  StoichNum(323,61) = 1\n  StoichNum(323,90) = 0.19\n  StoichNum(323,93) = 0.19\n  StoichNum(323,98) = -1\n  StoichNum(323,99) = -1\n  StoichNum(323,109) = 0.27\n  StoichNum(323,120) = -1\n  StoichNum(323,132) = 0.09\n  StoichNum(323,134) = 0.09\n  StoichNum(323,138) = -1\n  StoichNum(323,148) = 0.12\n  StoichNum(323,172) = 0.209\n  StoichNum(323,182) = 0.162\n  StoichNum(323,183) = 0.162\n  StoichNum(323,186) = -1\n  StoichNum(323,194) = 0.27\n  StoichNum(323,195) = 0.27\n  StoichNum(323,327) = 1\n  StoichNum(323,903) = 0.27\n  StoichNum(323,906) = 0.23\n  StoichNum(323,926) = 0.19\n  StoichNum(323,929) = 0.19\n  StoichNum(324,51) = 0.95\n  StoichNum(324,52) = 1\n  StoichNum(324,53) = -1\n  StoichNum(324,54) = 1\n  StoichNum(324,56) = -1\n  StoichNum(324,96) = 1\n  StoichNum(324,97) = 0.919\n  StoichNum(324,118) = 0.15\n  StoichNum(324,119) = 0.15\n  StoichNum(324,123) = 0.62\n  StoichNum(324,136) = 0.3\n  StoichNum(324,137) = 0.5\n  StoichNum(324,164) = 1\n  StoichNum(324,166) = 1\n  StoichNum(324,178) = 0.78\n  StoichNum(324,180) = -2\n  StoichNum(324,181) = -1\n  StoichNum(324,182) = -1\n  StoichNum(324,183) = -1\n  StoichNum(324,184) = -0.1\n  StoichNum(324,185) = -0.1\n  StoichNum(324,186) = -1\n  StoichNum(324,187) = -1\n  StoichNum(324,188) = -1\n  StoichNum(324,189) = -1\n  StoichNum(324,190) = -1\n  StoichNum(324,191) = -1\n  StoichNum(324,192) = -1\n  StoichNum(324,193) = -1\n  StoichNum(324,194) = -1\n  StoichNum(324,217) = 1\n  StoichNum(324,436) = 0.44\n  StoichNum(324,437) = 1\n  StoichNum(324,440) = 1\n  StoichNum(324,442) = 1\n  StoichNum(324,457) = -1\n  StoichNum(324,459) = -1\n  StoichNum(324,461) = -1\n  StoichNum(324,463) = -1\n  StoichNum(324,465) = -1\n  StoichNum(324,466) = 0.75\n  StoichNum(324,474) = -1\n  StoichNum(324,475) = -1\n  StoichNum(324,496) = 0.3\n  StoichNum(324,503) = 0.3\n  StoichNum(324,537) = 0.018\n  StoichNum(324,611) = -1\n  StoichNum(324,612) = -1\n  StoichNum(324,645) = 0.38\n  StoichNum(324,648) = 0.12\n  StoichNum(324,650) = 0.04\n  StoichNum(324,661) = 0.097\n  StoichNum(324,665) = 1\n  StoichNum(324,667) = 0.36\n  StoichNum(324,668) = 0.758\n  StoichNum(324,671) = 0.175\n  StoichNum(324,672) = 0.087\n  StoichNum(324,676) = 0.35\n  StoichNum(324,685) = 0.3\n  StoichNum(324,692) = 1\n  StoichNum(324,693) = 1\n  StoichNum(324,695) = -1\n  StoichNum(324,731) = -1\n  StoichNum(324,740) = 1\n  StoichNum(324,897) = 0.12\n  StoichNum(324,899) = 0.7\n  StoichNum(324,902) = 1\n  StoichNum(324,904) = 1\n  StoichNum(324,906) = 0.85\n  StoichNum(324,911) = 1\n  StoichNum(324,913) = 1\n  StoichNum(324,915) = 1\n  StoichNum(324,916) = 1\n  StoichNum(324,927) = 0.326\n  StoichNum(324,984) = 1\n  StoichNum(324,1004) = 1\n  StoichNum(324,1005) = 1\n  StoichNum(324,1006) = 1\n  StoichNum(324,1007) = 0.5\n  StoichNum(324,1008) = 0.53\n  StoichNum(324,1009) = 0.429\n  StoichNum(324,1010) = 0.125\n  StoichNum(324,1012) = 0.262\n  StoichNum(324,1013) = 1.01\n  StoichNum(324,1055) = 1\n  StoichNum(324,1056) = 1\n  StoichNum(325,10) = -1\n  StoichNum(325,11) = 1\n  StoichNum(325,12) = 1\n  StoichNum(325,17) = 1\n  StoichNum(325,26) = 1\n  StoichNum(325,29) = 1\n  StoichNum(325,30) = 2\n  StoichNum(325,31) = 0.87\n  StoichNum(325,32) = 0.3\n  StoichNum(325,34) = -1\n  StoichNum(325,48) = 1\n  StoichNum(325,50) = -1\n  StoichNum(325,51) = 0.05\n  StoichNum(325,55) = 1\n  StoichNum(325,65) = 1\n  StoichNum(325,73) = 0.98\n  StoichNum(325,76) = 1\n  StoichNum(325,77) = 1\n  StoichNum(325,78) = 0.603\n  StoichNum(325,80) = 1\n  StoichNum(325,81) = 0.065\n  StoichNum(325,84) = 1\n  StoichNum(325,85) = 1\n  StoichNum(325,92) = 0.64\n  StoichNum(325,95) = 0.64\n  StoichNum(325,96) = 1\n  StoichNum(325,100) = 1\n  StoichNum(325,112) = 0.75\n  StoichNum(325,113) = 1.25\n  StoichNum(325,118) = 0.15\n  StoichNum(325,123) = 0.31\n  StoichNum(325,129) = 0.75\n  StoichNum(325,130) = 0.75\n  StoichNum(325,132) = 0.75\n  StoichNum(325,133) = 0.95\n  StoichNum(325,134) = 0.75\n  StoichNum(325,135) = 0.95\n  StoichNum(325,136) = 0.5\n  StoichNum(325,137) = 0.75\n  StoichNum(325,138) = 0.75\n  StoichNum(325,139) = 1.25\n  StoichNum(325,150) = 0.5\n  StoichNum(325,151) = 0.732\n  StoichNum(325,157) = 1\n  StoichNum(325,158) = 0.44\n  StoichNum(325,159) = 1\n  StoichNum(325,160) = 1\n  StoichNum(325,161) = 1\n  StoichNum(325,178) = 0.22\n  StoichNum(325,181) = 1\n  StoichNum(325,184) = 0.9\n  StoichNum(325,187) = 0.351\n  StoichNum(325,188) = 0.351\n  StoichNum(325,189) = 0.9\n  StoichNum(325,192) = 0.9\n  StoichNum(325,195) = 1\n  StoichNum(325,199) = 1\n  StoichNum(325,201) = 1\n  StoichNum(325,216) = -1\n  StoichNum(325,231) = 0.25\n  StoichNum(325,252) = -1\n  StoichNum(325,274) = 1\n  StoichNum(325,292) = -1\n  StoichNum(325,319) = 1\n  StoichNum(325,324) = 1\n  StoichNum(325,360) = 1\n  StoichNum(325,362) = 1\n  StoichNum(325,363) = 1\n  StoichNum(325,364) = 1\n  StoichNum(325,365) = 0.06\n  StoichNum(325,366) = 0.06\n  StoichNum(325,367) = 1\n  StoichNum(325,368) = 1\n  StoichNum(325,381) = 0.1\n  StoichNum(325,383) = 0.1\n  StoichNum(325,388) = 0.5\n  StoichNum(325,399) = 0.84\n  StoichNum(325,400) = 1\n  StoichNum(325,401) = 1.5\n  StoichNum(325,402) = 0.5\n  StoichNum(325,403) = 0.4\n  StoichNum(325,405) = 0.75\n  StoichNum(325,406) = 1\n  StoichNum(325,407) = 1\n  StoichNum(325,413) = 0.75\n  StoichNum(325,421) = 0.67\n  StoichNum(325,427) = 1\n  StoichNum(325,432) = 0.75\n  StoichNum(325,436) = 0.176\n  StoichNum(325,437) = 0.4\n  StoichNum(325,440) = 0.4\n  StoichNum(325,442) = 0.4\n  StoichNum(325,445) = 0.1\n  StoichNum(325,446) = 0.1\n  StoichNum(325,447) = 0.1\n  StoichNum(325,448) = 0.1\n  StoichNum(325,449) = 0.05\n  StoichNum(325,453) = 1.5\n  StoichNum(325,454) = 1.5\n  StoichNum(325,455) = 0.75\n  StoichNum(325,456) = 0.75\n  StoichNum(325,458) = 1.75\n  StoichNum(325,459) = 1\n  StoichNum(325,460) = 0.75\n  StoichNum(325,462) = 0.85\n  StoichNum(325,463) = 0.1\n  StoichNum(325,464) = 1\n  StoichNum(325,466) = 1.3\n  StoichNum(325,467) = 0.4\n  StoichNum(325,469) = 0.287\n  StoichNum(325,472) = 1\n  StoichNum(325,473) = 0.85\n  StoichNum(325,475) = 0.287\n  StoichNum(325,477) = 0.287\n  StoichNum(325,479) = 0.202\n  StoichNum(325,480) = 0.504\n  StoichNum(325,489) = 1\n  StoichNum(325,493) = 0.827\n  StoichNum(325,496) = 0.3\n  StoichNum(325,497) = 0.3\n  StoichNum(325,498) = 0.063\n  StoichNum(325,500) = 0.063\n  StoichNum(325,502) = 1\n  StoichNum(325,503) = 0.3\n  StoichNum(325,504) = 1\n  StoichNum(325,505) = 0.3\n  StoichNum(325,506) = 2\n  StoichNum(325,507) = 2\n  StoichNum(325,508) = 2\n  StoichNum(325,512) = 2\n  StoichNum(325,513) = 1\n  StoichNum(325,514) = 2\n  StoichNum(325,515) = 1\n  StoichNum(325,517) = 1\n  StoichNum(325,521) = 1\n  StoichNum(325,524) = 0.085\n  StoichNum(325,525) = 0.165\n  StoichNum(325,529) = 0.5\n  StoichNum(325,537) = 0.018\n  StoichNum(325,538) = 0.018\n  StoichNum(325,540) = 0.716\n  StoichNum(325,542) = 0.14\n  StoichNum(325,544) = 0.706\n  StoichNum(325,546) = 0.14\n  StoichNum(325,566) = 0.65\n  StoichNum(325,568) = 1\n  StoichNum(325,585) = 0.059\n  StoichNum(325,586) = 0.272\n  StoichNum(325,589) = 0.599\n  StoichNum(325,590) = 1\n  StoichNum(325,594) = 0.031\n  StoichNum(325,595) = 0.065\n  StoichNum(325,597) = 0.065\n  StoichNum(325,598) = 0.142\n  StoichNum(325,600) = 0.104\n  StoichNum(325,601) = 0.383\n  StoichNum(325,604) = 0.527\n  StoichNum(325,606) = 1.86\n  StoichNum(325,607) = 0.563\n  StoichNum(325,609) = 0.645\n  StoichNum(325,610) = 1.577\n  StoichNum(325,611) = 1\n  StoichNum(325,613) = 1\n  StoichNum(325,615) = 1\n  StoichNum(325,631) = 0.126\n  StoichNum(325,632) = 0.088\n  StoichNum(325,633) = 0.249\n  StoichNum(325,635) = 0.34\n  StoichNum(325,645) = 0.6\n  StoichNum(325,648) = 0.12\n  StoichNum(325,650) = 0.241\n  StoichNum(325,667) = 0.05\n  StoichNum(325,668) = 0.242\n  StoichNum(325,670) = 0.083\n  StoichNum(325,671) = 0.5\n  StoichNum(325,672) = 0.25\n  StoichNum(325,674) = 0.14\n  StoichNum(325,676) = 1\n  StoichNum(325,682) = 1\n  StoichNum(325,691) = 0.022\n  StoichNum(325,694) = 0.5\n  StoichNum(325,696) = 1\n  StoichNum(325,702) = 1\n  StoichNum(325,703) = 1\n  StoichNum(325,704) = 0.5\n  StoichNum(325,705) = 0.25\n  StoichNum(325,706) = 1\n  StoichNum(325,707) = 0.12\n  StoichNum(325,712) = 1\n  StoichNum(325,718) = 0.8\n  StoichNum(325,719) = 2\n  StoichNum(325,730) = 1\n  StoichNum(325,740) = 1\n  StoichNum(325,765) = 1\n  StoichNum(325,766) = 1\n  StoichNum(325,779) = 1\n  StoichNum(325,887) = 1\n  StoichNum(325,888) = -1\n  StoichNum(325,889) = -1\n  StoichNum(325,901) = 0.3\n  StoichNum(325,902) = 1\n  StoichNum(325,907) = 0.9\n  StoichNum(325,910) = 1\n  StoichNum(325,913) = 1\n  StoichNum(325,915) = 1\n  StoichNum(325,916) = 1\n  StoichNum(325,924) = 1\n  StoichNum(325,982) = 1\n  StoichNum(325,984) = 1\n  StoichNum(325,990) = 1\n  StoichNum(325,998) = 1\n  StoichNum(325,1002) = 1\n  StoichNum(325,1003) = 1\n  StoichNum(325,1005) = 1\n  StoichNum(325,1006) = 1\n  StoichNum(325,1008) = 0.47\n  StoichNum(325,1011) = 0.23\n  StoichNum(325,1012) = 0.75\n  StoichNum(325,1016) = 1\n  StoichNum(325,1017) = 1\n  StoichNum(325,1025) = 1\n  StoichNum(325,1026) = 1\n  StoichNum(325,1028) = 1\n  StoichNum(325,1032) = 0.055\n  StoichNum(325,1034) = 0.133\n  StoichNum(325,1038) = 0.55\n  StoichNum(325,1039) = 0.15\n  StoichNum(325,1052) = 1\n  StoichNum(325,1053) = 1\n  StoichNum(325,1055) = 0.4\n  StoichNum(325,1056) = 0.4\n  StoichNum(325,1057) = 0.1\n  StoichNum(326,51) = -1\n  StoichNum(326,52) = -1\n  StoichNum(326,58) = 1\n  StoichNum(326,60) = 1\n  StoichNum(326,65) = 1\n  StoichNum(326,73) = 0.65\n  StoichNum(326,90) = 0.34\n  StoichNum(326,92) = 0.97\n  StoichNum(326,93) = 0.34\n  StoichNum(326,95) = 0.97\n  StoichNum(326,97) = 0.919\n  StoichNum(326,100) = 1\n  StoichNum(326,108) = 1\n  StoichNum(326,113) = 0.5\n  StoichNum(326,119) = 0.15\n  StoichNum(326,123) = 0.62\n  StoichNum(326,129) = 0.75\n  StoichNum(326,130) = 0.75\n  StoichNum(326,132) = 0.16\n  StoichNum(326,133) = 0.38\n  StoichNum(326,134) = 0.16\n  StoichNum(326,135) = 0.38\n  StoichNum(326,137) = 0.5\n  StoichNum(326,139) = 0.5\n  StoichNum(326,140) = 1\n  StoichNum(326,142) = 1.6\n  StoichNum(326,143) = 1.6\n  StoichNum(326,150) = 0.5\n  StoichNum(326,170) = 0.64\n  StoichNum(326,182) = 0.29\n  StoichNum(326,183) = 0.29\n  StoichNum(326,185) = 0.9\n  StoichNum(326,187) = 0.675\n  StoichNum(326,188) = 0.675\n  StoichNum(326,189) = 0.9\n  StoichNum(326,190) = 1\n  StoichNum(326,191) = 1\n  StoichNum(326,192) = 0.9\n  StoichNum(326,217) = -1\n  StoichNum(326,322) = 1\n  StoichNum(326,323) = 1\n  StoichNum(326,325) = 1\n  StoichNum(326,369) = 1\n  StoichNum(326,370) = 1\n  StoichNum(326,371) = 1\n  StoichNum(326,372) = 1\n  StoichNum(326,373) = 1\n  StoichNum(326,490) = 1\n  StoichNum(326,705) = 0.4\n  StoichNum(326,897) = -1\n  StoichNum(326,898) = -1\n  StoichNum(326,918) = 1\n  StoichNum(326,924) = 1\n  StoichNum(326,925) = 1\n  StoichNum(326,926) = 0.34\n  StoichNum(326,927) = 0.348\n  StoichNum(326,929) = 0.34\n  StoichNum(326,999) = 1\n  StoichNum(327,3) = -1\n  StoichNum(327,6) = -1\n  StoichNum(327,35) = 1\n  StoichNum(327,36) = -1\n  StoichNum(327,50) = 1\n  StoichNum(327,52) = 1\n  StoichNum(327,67) = 1\n  StoichNum(327,101) = 1\n  StoichNum(327,110) = 1\n  StoichNum(327,131) = 1\n  StoichNum(327,154) = 1\n  StoichNum(327,165) = 1\n  StoichNum(327,166) = 1\n  StoichNum(327,179) = 1\n  StoichNum(327,201) = 1\n  StoichNum(327,389) = 1\n  StoichNum(327,486) = 1\n  StoichNum(327,487) = 1\n  StoichNum(327,649) = 0.32\n  StoichNum(327,692) = 1\n  StoichNum(327,706) = 1\n  StoichNum(327,708) = 1\n  StoichNum(327,742) = 0.742\n  StoichNum(327,744) = 0.5\n  StoichNum(327,747) = 0.5\n  StoichNum(327,749) = 1\n  StoichNum(327,764) = 0.5\n  StoichNum(327,782) = 0.5\n  StoichNum(327,783) = 1\n  StoichNum(327,786) = 2\n  StoichNum(327,787) = 1\n  StoichNum(327,788) = 2\n  StoichNum(327,789) = 1\n  StoichNum(327,790) = 1\n  StoichNum(327,793) = 1\n  StoichNum(327,794) = 1\n  StoichNum(327,795) = 1\n  StoichNum(327,796) = 1\n  StoichNum(327,797) = 1\n  StoichNum(327,798) = 1\n  StoichNum(327,799) = 1\n  StoichNum(327,800) = 1\n  StoichNum(327,801) = 1\n  StoichNum(327,841) = 1\n  StoichNum(327,842) = 1\n  StoichNum(327,843) = 1\n  StoichNum(327,848) = 1\n  StoichNum(327,849) = 1\n  StoichNum(327,850) = 1\n  StoichNum(327,851) = 1\n  StoichNum(327,890) = -1\n  StoichNum(328,17) = -1\n  StoichNum(328,25) = 1\n  StoichNum(328,26) = -1\n  StoichNum(328,27) = -1\n  StoichNum(328,28) = -1\n  StoichNum(328,29) = -2\n  StoichNum(328,30) = -2\n  StoichNum(328,31) = -1\n  StoichNum(328,32) = 0.7\n  StoichNum(328,56) = 1\n  StoichNum(328,90) = 0.19\n  StoichNum(328,93) = 0.19\n  StoichNum(328,104) = 1\n  StoichNum(328,112) = -1\n  StoichNum(328,113) = -1\n  StoichNum(328,119) = 0.85\n  StoichNum(328,129) = -1\n  StoichNum(328,130) = -1\n  StoichNum(328,132) = -0.91\n  StoichNum(328,133) = -1\n  StoichNum(328,134) = -0.91\n  StoichNum(328,135) = -1\n  StoichNum(328,136) = -1\n  StoichNum(328,137) = -0.75\n  StoichNum(328,138) = -1\n  StoichNum(328,139) = -1\n  StoichNum(328,150) = 0.28\n  StoichNum(328,168) = 0.5\n  StoichNum(328,180) = 2\n  StoichNum(328,181) = -0.1\n  StoichNum(328,182) = 0.9\n  StoichNum(328,183) = 0.9\n  StoichNum(328,184) = 0.9\n  StoichNum(328,185) = 0.9\n  StoichNum(328,186) = 0.9\n  StoichNum(328,187) = 0.9\n  StoichNum(328,188) = 0.9\n  StoichNum(328,189) = 0.9\n  StoichNum(328,190) = 0.9\n  StoichNum(328,191) = 0.9\n  StoichNum(328,192) = 0.9\n  StoichNum(328,193) = 0.9\n  StoichNum(328,194) = 1\n  StoichNum(328,195) = -1\n  StoichNum(328,197) = -1\n  StoichNum(328,198) = 1\n  StoichNum(328,199) = 1\n  StoichNum(328,200) = 1\n  StoichNum(328,201) = 1\n  StoichNum(328,231) = 0.75\n  StoichNum(328,257) = 0.9\n  StoichNum(328,258) = 1\n  StoichNum(328,274) = -1\n  StoichNum(328,291) = 1\n  StoichNum(328,319) = -1\n  StoichNum(328,320) = 1\n  StoichNum(328,326) = 1\n  StoichNum(328,359) = 1\n  StoichNum(328,401) = -1\n  StoichNum(328,413) = -1\n  StoichNum(328,432) = -1\n  StoichNum(328,456) = -1\n  StoichNum(328,457) = 0.9\n  StoichNum(328,458) = -1\n  StoichNum(328,459) = 0.9\n  StoichNum(328,460) = -1\n  StoichNum(328,461) = 0.9\n  StoichNum(328,462) = -1\n  StoichNum(328,463) = 0.9\n  StoichNum(328,464) = -1\n  StoichNum(328,465) = 1\n  StoichNum(328,466) = -1\n  StoichNum(328,467) = 1\n  StoichNum(328,472) = -1\n  StoichNum(328,473) = -1\n  StoichNum(328,474) = 1\n  StoichNum(328,475) = 0.5\n  StoichNum(328,493) = 0.407\n  StoichNum(328,512) = -1\n  StoichNum(328,513) = -1\n  StoichNum(328,514) = -1\n  StoichNum(328,515) = -1\n  StoichNum(328,609) = -1\n  StoichNum(328,610) = -1\n  StoichNum(328,611) = 1\n  StoichNum(328,612) = 1\n  StoichNum(328,671) = 0.325\n  StoichNum(328,672) = 0.162\n  StoichNum(328,676) = 0.65\n  StoichNum(328,682) = -1\n  StoichNum(328,695) = 0.5\n  StoichNum(328,718) = -1\n  StoichNum(328,730) = -1\n  StoichNum(328,731) = 1\n  StoichNum(328,765) = -1\n  StoichNum(328,766) = -1\n  StoichNum(328,779) = -1\n  StoichNum(328,897) = 0.88\n  StoichNum(328,899) = 0.3\n  StoichNum(328,904) = 1\n  StoichNum(328,905) = 2\n  StoichNum(328,906) = 0.15\n  StoichNum(328,914) = 1\n  StoichNum(328,925) = 1\n  StoichNum(328,926) = 0.19\n  StoichNum(328,929) = 0.19\n  StoichNum(328,930) = 1\n  StoichNum(328,939) = 1\n  StoichNum(328,940) = 1\n  StoichNum(328,983) = 1\n  StoichNum(328,1012) = 0.488\n  StoichNum(329,24) = -1\n  StoichNum(329,34) = 1\n  StoichNum(329,50) = 1\n  StoichNum(329,51) = 0.05\n  StoichNum(329,55) = 1\n  StoichNum(329,80) = 1\n  StoichNum(329,82) = 1\n  StoichNum(329,83) = 1\n  StoichNum(329,84) = 1\n  StoichNum(329,85) = 1\n  StoichNum(329,88) = 1\n  StoichNum(329,108) = 1\n  StoichNum(329,126) = 1\n  StoichNum(329,150) = 0.56\n  StoichNum(329,151) = 0.505\n  StoichNum(329,152) = 1\n  StoichNum(329,160) = 1\n  StoichNum(329,163) = 2\n  StoichNum(329,164) = 1\n  StoichNum(329,165) = 2\n  StoichNum(329,166) = 1\n  StoichNum(329,168) = 0.5\n  StoichNum(329,216) = 1\n  StoichNum(329,238) = 1\n  StoichNum(329,252) = 1\n  StoichNum(329,292) = 1\n  StoichNum(329,315) = 1\n  StoichNum(329,316) = 1\n  StoichNum(329,317) = 1\n  StoichNum(329,362) = -1\n  StoichNum(329,369) = -1\n  StoichNum(329,379) = 0.15\n  StoichNum(329,383) = 0.1\n  StoichNum(329,493) = 0.407\n  StoichNum(329,496) = 0.6\n  StoichNum(329,497) = 0.9\n  StoichNum(329,503) = 0.6\n  StoichNum(329,505) = 0.9\n  StoichNum(329,509) = 1\n  StoichNum(329,510) = 1\n  StoichNum(329,511) = 1\n  StoichNum(329,513) = 0.5\n  StoichNum(329,515) = 0.5\n  StoichNum(329,519) = 0.55\n  StoichNum(329,523) = 0.55\n  StoichNum(329,524) = 0.45\n  StoichNum(329,525) = 0.37\n  StoichNum(329,526) = 0.42\n  StoichNum(329,527) = 0.23\n  StoichNum(329,528) = 0.638\n  StoichNum(329,529) = 1.5\n  StoichNum(329,530) = 1\n  StoichNum(329,535) = 0.25\n  StoichNum(329,536) = 0.33\n  StoichNum(329,537) = 0.036\n  StoichNum(329,538) = 0.054\n  StoichNum(329,557) = 1\n  StoichNum(329,558) = 0.13\n  StoichNum(329,559) = 0.2\n  StoichNum(329,562) = 1\n  StoichNum(329,563) = 0.2\n  StoichNum(329,565) = 0.13\n  StoichNum(329,566) = 0.52\n  StoichNum(329,568) = 0.8\n  StoichNum(329,569) = 2\n  StoichNum(329,582) = 0.6\n  StoichNum(329,583) = 0.6\n  StoichNum(329,638) = 0.539\n  StoichNum(329,639) = 0.33\n  StoichNum(329,640) = 0.33\n  StoichNum(329,645) = 0.28\n  StoichNum(329,646) = 0.036\n  StoichNum(329,648) = 0.12\n  StoichNum(329,649) = 0.68\n  StoichNum(329,652) = 0.77\n  StoichNum(329,654) = 0.25\n  StoichNum(329,661) = 0.75\n  StoichNum(329,662) = 1\n  StoichNum(329,664) = 1\n  StoichNum(329,665) = 2\n  StoichNum(329,666) = 0.84\n  StoichNum(329,670) = 0.507\n  StoichNum(329,671) = 0.325\n  StoichNum(329,672) = 0.488\n  StoichNum(329,673) = 1\n  StoichNum(329,674) = 0.86\n  StoichNum(329,676) = 0.65\n  StoichNum(329,684) = 0.25\n  StoichNum(329,685) = 1\n  StoichNum(329,686) = 1\n  StoichNum(329,687) = 0.888\n  StoichNum(329,690) = 1\n  StoichNum(329,696) = 1\n  StoichNum(329,704) = 0.18\n  StoichNum(329,707) = 0.12\n  StoichNum(329,714) = 0.364\n  StoichNum(329,724) = 0.2\n  StoichNum(329,725) = 0.27\n  StoichNum(329,726) = 0.3\n  StoichNum(329,740) = 2\n  StoichNum(329,763) = 0.15\n  StoichNum(329,764) = 0.15\n  StoichNum(329,767) = 0.26\n  StoichNum(329,768) = 0.5\n  StoichNum(329,770) = 0.25\n  StoichNum(329,771) = 0.5\n  StoichNum(329,772) = 0.05\n  StoichNum(329,888) = 1\n  StoichNum(329,889) = 1\n  StoichNum(329,897) = 0.88\n  StoichNum(329,898) = 1\n  StoichNum(329,901) = 0.7\n  StoichNum(329,902) = 1\n  StoichNum(329,903) = 1\n  StoichNum(329,905) = 1\n  StoichNum(329,907) = 1\n  StoichNum(329,908) = 2\n  StoichNum(329,909) = 2\n  StoichNum(329,910) = 1\n  StoichNum(329,911) = 1\n  StoichNum(329,912) = 1\n  StoichNum(329,913) = 1\n  StoichNum(329,915) = 1\n  StoichNum(329,986) = 1\n  StoichNum(329,990) = 1\n  StoichNum(329,1003) = 1\n  StoichNum(329,1006) = 1\n  StoichNum(329,1007) = 0.5\n  StoichNum(329,1009) = 0.571\n  StoichNum(329,1010) = 0.875\n  StoichNum(329,1011) = 0.77\n  StoichNum(329,1014) = 1\n  StoichNum(329,1015) = 1\n  StoichNum(329,1020) = 0.888\n  StoichNum(329,1021) = 0.818\n  StoichNum(329,1022) = 1\n  StoichNum(329,1023) = 1\n  StoichNum(329,1024) = 0.55\n  StoichNum(329,1027) = 0.55\n  StoichNum(329,1031) = 0.839\n  StoichNum(329,1033) = 1\n  StoichNum(329,1034) = 0.163\n  StoichNum(329,1037) = 1\n  StoichNum(329,1041) = 1\n  StoichNum(329,1043) = 1\n  StoichNum(329,1046) = 1\n  StoichNum(329,1049) = 1\n  StoichNum(329,1058) = 1\n  StoichNum(330,352) = 1\n  StoichNum(330,354) = -1\n  StoichNum(330,355) = 1\n  StoichNum(330,828) = -1\n  StoichNum(330,829) = -1\n  StoichNum(330,843) = 1\n  StoichNum(330,852) = -1\n  StoichNum(330,853) = -1\n  StoichNum(330,854) = -1\n  StoichNum(330,855) = -1\n  StoichNum(330,967) = -1\n  StoichNum(331,334) = -1\n  StoichNum(331,336) = -1\n  StoichNum(331,337) = 1\n  StoichNum(331,339) = 1\n  StoichNum(331,342) = -1\n  StoichNum(331,343) = -1\n  StoichNum(331,344) = 0.2\n  StoichNum(331,349) = 0.809\n  StoichNum(331,350) = -1\n  StoichNum(331,351) = -1\n  StoichNum(331,352) = 1\n  StoichNum(331,353) = 1\n  StoichNum(331,356) = 1\n  StoichNum(331,357) = 0.4\n  StoichNum(331,358) = 0.996\n  StoichNum(331,359) = 1\n  StoichNum(331,966) = 2\n  StoichNum(331,967) = 1\n  StoichNum(331,968) = 1\n  StoichNum(331,969) = 1\n  StoichNum(331,970) = 1\n  StoichNum(331,971) = 1\n  StoichNum(331,972) = 1\n  StoichNum(331,973) = 1\n  StoichNum(331,974) = 1\n  StoichNum(331,975) = 2\n  StoichNum(331,976) = 1\n  StoichNum(331,977) = 1\n  StoichNum(331,980) = 1\n  StoichNum(331,981) = 1\n  StoichNum(332,339) = 1\n  StoichNum(332,340) = 1\n  StoichNum(332,341) = -1\n  StoichNum(332,342) = -1\n  StoichNum(332,841) = -1\n  StoichNum(332,842) = -1\n  StoichNum(332,843) = -1\n  StoichNum(332,848) = -1\n  StoichNum(332,849) = -1\n  StoichNum(332,850) = -1\n  StoichNum(332,851) = -1\n  StoichNum(332,972) = -1\n  StoichNum(333,273) = 1\n  StoichNum(333,277) = 1\n  StoichNum(333,278) = 1\n  StoichNum(333,280) = -1\n  StoichNum(333,281) = 1\n  StoichNum(333,282) = 1\n  StoichNum(333,299) = 1\n  StoichNum(333,795) = 1\n  StoichNum(333,808) = -1\n  StoichNum(333,809) = -1\n  StoichNum(333,810) = -1\n  StoichNum(333,811) = -1\n  StoichNum(333,812) = -1\n  StoichNum(333,950) = -1\n  StoichNum(334,226) = -1\n  StoichNum(334,227) = -1\n  StoichNum(334,228) = -1\n  StoichNum(334,229) = -1\n  StoichNum(334,230) = -1\n  StoichNum(334,231) = -1\n  StoichNum(334,237) = -1\n  StoichNum(334,253) = -1\n  StoichNum(334,254) = -1\n  StoichNum(334,255) = -1\n  StoichNum(334,256) = -1\n  StoichNum(334,257) = -1\n  StoichNum(334,258) = -1\n  StoichNum(334,259) = -1\n  StoichNum(334,260) = -1\n  StoichNum(334,261) = -1\n  StoichNum(334,262) = -1\n  StoichNum(334,263) = -1\n  StoichNum(334,264) = -1\n  StoichNum(334,265) = -1\n  StoichNum(334,266) = -1\n  StoichNum(334,267) = -1\n  StoichNum(334,268) = -1\n  StoichNum(334,269) = -1\n  StoichNum(334,270) = -1\n  StoichNum(334,271) = -1\n  StoichNum(334,272) = -1\n  StoichNum(334,883) = 1\n  StoichNum(334,985) = 1\n  StoichNum(335,13) = 1\n  StoichNum(335,16) = -1\n  StoichNum(335,22) = 1\n  StoichNum(335,26) = 1\n  StoichNum(335,35) = -1\n  StoichNum(335,38) = 1\n  StoichNum(335,39) = -1\n  StoichNum(335,40) = 1\n  StoichNum(335,41) = 1\n  StoichNum(335,42) = 1\n  StoichNum(335,43) = 2\n  StoichNum(335,44) = 1\n  StoichNum(335,45) = -1\n  StoichNum(335,46) = 1\n  StoichNum(335,53) = -1\n  StoichNum(335,54) = 1\n  StoichNum(335,55) = 1\n  StoichNum(335,56) = 1\n  StoichNum(335,58) = 1\n  StoichNum(335,60) = 1\n  StoichNum(335,63) = 1\n  StoichNum(335,65) = 1\n  StoichNum(335,68) = 1\n  StoichNum(335,73) = 2\n  StoichNum(335,76) = 1\n  StoichNum(335,78) = 0.942\n  StoichNum(335,80) = 1\n  StoichNum(335,82) = 1\n  StoichNum(335,85) = 1\n  StoichNum(335,86) = -1\n  StoichNum(335,87) = 1\n  StoichNum(335,90) = 1\n  StoichNum(335,92) = 2\n  StoichNum(335,93) = 1\n  StoichNum(335,95) = 2\n  StoichNum(335,96) = 1\n  StoichNum(335,97) = 0.928\n  StoichNum(335,98) = 1\n  StoichNum(335,100) = 2\n  StoichNum(335,106) = -1\n  StoichNum(335,107) = 1\n  StoichNum(335,108) = 1\n  StoichNum(335,109) = 1\n  StoichNum(335,123) = 0.93\n  StoichNum(335,124) = -1\n  StoichNum(335,125) = 1\n  StoichNum(335,126) = 1\n  StoichNum(335,127) = 1\n  StoichNum(335,133) = 1\n  StoichNum(335,135) = 1\n  StoichNum(335,139) = 1\n  StoichNum(335,155) = -1\n  StoichNum(335,156) = 1\n  StoichNum(335,157) = 1\n  StoichNum(335,159) = 1\n  StoichNum(335,160) = 1\n  StoichNum(335,187) = 1\n  StoichNum(335,188) = 1\n  StoichNum(335,189) = 1\n  StoichNum(335,196) = 2\n  StoichNum(335,197) = -1\n  StoichNum(335,198) = 1\n  StoichNum(335,209) = 1\n  StoichNum(335,215) = 1\n  StoichNum(335,221) = -1\n  StoichNum(335,222) = -1\n  StoichNum(335,240) = -1\n  StoichNum(335,241) = 1\n  StoichNum(335,242) = 1\n  StoichNum(335,243) = -1\n  StoichNum(335,250) = -1\n  StoichNum(335,281) = 1\n  StoichNum(335,300) = 1\n  StoichNum(335,301) = -1\n  StoichNum(335,336) = -1\n  StoichNum(335,337) = 1\n  StoichNum(335,338) = 2\n  StoichNum(335,340) = -1\n  StoichNum(335,341) = 1\n  StoichNum(335,348) = 1\n  StoichNum(335,356) = 1\n  StoichNum(335,360) = 1\n  StoichNum(335,361) = 1\n  StoichNum(335,363) = 1\n  StoichNum(335,364) = -1\n  StoichNum(335,370) = 1\n  StoichNum(335,371) = -1\n  StoichNum(335,385) = 0.75\n  StoichNum(335,386) = 1\n  StoichNum(335,388) = 0.5\n  StoichNum(335,392) = 1\n  StoichNum(335,393) = -1\n  StoichNum(335,394) = 1\n  StoichNum(335,395) = 1\n  StoichNum(335,399) = 0.84\n  StoichNum(335,400) = 1\n  StoichNum(335,403) = 0.5\n  StoichNum(335,405) = 0.75\n  StoichNum(335,406) = 1\n  StoichNum(335,407) = 0.5\n  StoichNum(335,412) = 1\n  StoichNum(335,414) = 1\n  StoichNum(335,416) = 0.5\n  StoichNum(335,418) = 0.75\n  StoichNum(335,419) = 1\n  StoichNum(335,426) = 0.5\n  StoichNum(335,427) = 0.5\n  StoichNum(335,428) = 1\n  StoichNum(335,429) = 0.84\n  StoichNum(335,431) = 1\n  StoichNum(335,434) = 1\n  StoichNum(335,435) = 0.5\n  StoichNum(335,437) = 1\n  StoichNum(335,438) = -1\n  StoichNum(335,439) = 1\n  StoichNum(335,440) = 1\n  StoichNum(335,445) = 1\n  StoichNum(335,446) = 1\n  StoichNum(335,449) = 0.5\n  StoichNum(335,450) = 0.3\n  StoichNum(335,451) = 0.3\n  StoichNum(335,452) = 1.15\n  StoichNum(335,455) = 0.5\n  StoichNum(335,468) = 1\n  StoichNum(335,469) = 2\n  StoichNum(335,473) = 0.5\n  StoichNum(335,475) = 1\n  StoichNum(335,476) = 1\n  StoichNum(335,477) = 2\n  StoichNum(335,479) = 0.5\n  StoichNum(335,480) = 1\n  StoichNum(335,489) = 1\n  StoichNum(335,490) = 1\n  StoichNum(335,491) = 1\n  StoichNum(335,492) = 1\n  StoichNum(335,517) = 1\n  StoichNum(335,519) = 1\n  StoichNum(335,521) = 1\n  StoichNum(335,523) = 1\n  StoichNum(335,540) = 1\n  StoichNum(335,544) = 1\n  StoichNum(335,548) = 1\n  StoichNum(335,559) = 1\n  StoichNum(335,563) = 1\n  StoichNum(335,568) = 1\n  StoichNum(335,570) = 1\n  StoichNum(335,572) = 1\n  StoichNum(335,575) = 1\n  StoichNum(335,577) = 1\n  StoichNum(335,578) = 1\n  StoichNum(335,580) = 1\n  StoichNum(335,585) = 0.459\n  StoichNum(335,586) = 1.728\n  StoichNum(335,590) = 1\n  StoichNum(335,595) = 1\n  StoichNum(335,598) = 1\n  StoichNum(335,601) = 1\n  StoichNum(335,604) = 0.527\n  StoichNum(335,606) = 1.86\n  StoichNum(335,607) = 0.563\n  StoichNum(335,610) = 0.611\n  StoichNum(335,611) = 1\n  StoichNum(335,613) = 2\n  StoichNum(335,614) = 1\n  StoichNum(335,615) = 2\n  StoichNum(335,617) = 1\n  StoichNum(335,625) = 1\n  StoichNum(335,631) = 0.058\n  StoichNum(335,633) = 1.065\n  StoichNum(335,635) = 1\n  StoichNum(335,637) = 1\n  StoichNum(335,639) = 1\n  StoichNum(335,641) = 0.565\n  StoichNum(335,642) = 1.11\n  StoichNum(335,643) = 0.09\n  StoichNum(335,650) = 0.31\n  StoichNum(335,655) = 1\n  StoichNum(335,657) = -1\n  StoichNum(335,658) = 1\n  StoichNum(335,660) = -1\n  StoichNum(335,668) = 1\n  StoichNum(335,674) = 1\n  StoichNum(335,676) = 1\n  StoichNum(335,677) = -1\n  StoichNum(335,678) = 0.5\n  StoichNum(335,679) = 2\n  StoichNum(335,681) = 2\n  StoichNum(335,682) = 0.7\n  StoichNum(335,683) = 1\n  StoichNum(335,690) = 1\n  StoichNum(335,691) = 0.022\n  StoichNum(335,692) = 1\n  StoichNum(335,703) = 1\n  StoichNum(335,709) = 0.89\n  StoichNum(335,711) = 1\n  StoichNum(335,716) = 0.995\n  StoichNum(335,717) = 1\n  StoichNum(335,721) = 1\n  StoichNum(335,728) = 1\n  StoichNum(335,729) = 1\n  StoichNum(335,733) = 1\n  StoichNum(335,736) = 1\n  StoichNum(335,738) = -1\n  StoichNum(335,739) = 1\n  StoichNum(335,740) = 1\n  StoichNum(335,751) = 1\n  StoichNum(335,752) = -1\n  StoichNum(335,754) = 1\n  StoichNum(335,755) = 1\n  StoichNum(335,756) = -1\n  StoichNum(335,757) = 1\n  StoichNum(335,758) = 1\n  StoichNum(335,762) = -1\n  StoichNum(335,763) = 0.5\n  StoichNum(335,764) = 1\n  StoichNum(335,779) = 1\n  StoichNum(335,782) = -1\n  StoichNum(335,885) = -1\n  StoichNum(335,890) = 1\n  StoichNum(335,893) = 1\n  StoichNum(335,894) = 1\n  StoichNum(335,896) = 1\n  StoichNum(335,899) = 0.7\n  StoichNum(335,900) = 1\n  StoichNum(335,917) = 1\n  StoichNum(335,926) = 1\n  StoichNum(335,927) = 1\n  StoichNum(335,928) = 1\n  StoichNum(335,929) = 1\n  StoichNum(335,935) = 1\n  StoichNum(335,936) = 1\n  StoichNum(335,947) = 1\n  StoichNum(335,949) = 1\n  StoichNum(335,971) = 1\n  StoichNum(335,983) = 1\n  StoichNum(335,990) = 1\n  StoichNum(335,991) = 1\n  StoichNum(335,992) = 1\n  StoichNum(335,993) = 1\n  StoichNum(335,995) = 1\n  StoichNum(335,997) = 1\n  StoichNum(335,998) = 1\n  StoichNum(335,999) = 1\n  StoichNum(335,1000) = 1\n  StoichNum(335,1001) = 1\n  StoichNum(335,1005) = 1\n  StoichNum(335,1013) = 0.7\n  StoichNum(335,1014) = 1\n  StoichNum(335,1024) = 1\n  StoichNum(335,1025) = 1\n  StoichNum(335,1026) = 1\n  StoichNum(335,1027) = 1\n  StoichNum(335,1028) = 1\n  StoichNum(335,1030) = 1\n  StoichNum(335,1031) = 1\n  StoichNum(335,1032) = 1.555\n  StoichNum(335,1038) = 0.3\n  StoichNum(335,1039) = 1\n  StoichNum(335,1040) = 1\n  StoichNum(335,1041) = 1\n  StoichNum(335,1047) = 0.7\n  StoichNum(336,18) = 1\n  StoichNum(336,20) = 1\n  StoichNum(336,21) = 1\n  StoichNum(336,25) = 1\n  StoichNum(336,32) = 1\n  StoichNum(336,33) = 1\n  StoichNum(336,34) = 1\n  StoichNum(336,36) = 1\n  StoichNum(336,38) = 1\n  StoichNum(336,41) = 1\n  StoichNum(336,47) = 1\n  StoichNum(336,51) = 1\n  StoichNum(336,57) = 1\n  StoichNum(336,72) = 1\n  StoichNum(336,102) = 1\n  StoichNum(336,103) = 1\n  StoichNum(336,104) = 1\n  StoichNum(336,105) = 1\n  StoichNum(336,111) = 1\n  StoichNum(336,122) = 1\n  StoichNum(336,206) = 1\n  StoichNum(336,225) = 1\n  StoichNum(336,226) = -1\n  StoichNum(336,234) = 1\n  StoichNum(336,247) = 0.02\n  StoichNum(336,279) = 1\n  StoichNum(336,280) = 1\n  StoichNum(336,283) = 1\n  StoichNum(336,286) = 1\n  StoichNum(336,287) = 1\n  StoichNum(336,288) = 1\n  StoichNum(336,289) = 1\n  StoichNum(336,290) = 1\n  StoichNum(336,318) = 1\n  StoichNum(336,353) = 1\n  StoichNum(336,354) = 1\n  StoichNum(336,359) = 1\n  StoichNum(336,365) = -1\n  StoichNum(336,366) = -2\n  StoichNum(336,373) = -1\n  StoichNum(336,374) = -1\n  StoichNum(336,701) = 1\n  StoichNum(336,781) = 1\n  StoichNum(336,786) = -1\n  StoichNum(336,793) = -1\n  StoichNum(336,795) = -1\n  StoichNum(336,808) = 1\n  StoichNum(336,809) = 1\n  StoichNum(336,810) = 1\n  StoichNum(336,811) = 1\n  StoichNum(336,813) = 1\n  StoichNum(336,814) = 1\n  StoichNum(336,815) = 1\n  StoichNum(336,816) = 1\n  StoichNum(336,843) = -1\n  StoichNum(336,928) = 1\n  StoichNum(337,14) = 1\n  StoichNum(337,15) = -1\n  StoichNum(337,17) = 1\n  StoichNum(337,20) = -1\n  StoichNum(337,21) = 1\n  StoichNum(337,22) = -1\n  StoichNum(337,23) = -2\n  StoichNum(337,24) = 1\n  StoichNum(337,26) = 1\n  StoichNum(337,28) = -1\n  StoichNum(337,30) = 2\n  StoichNum(337,31) = 1.74\n  StoichNum(337,34) = 1\n  StoichNum(337,39) = -1\n  StoichNum(337,40) = 1\n  StoichNum(337,42) = -1\n  StoichNum(337,44) = 1\n  StoichNum(337,47) = 1\n  StoichNum(337,48) = 1\n  StoichNum(337,50) = 1\n  StoichNum(337,51) = 0.05\n  StoichNum(337,58) = 1\n  StoichNum(337,60) = 1\n  StoichNum(337,63) = 1\n  StoichNum(337,65) = 1\n  StoichNum(337,68) = 0.75\n  StoichNum(337,70) = -1\n  StoichNum(337,74) = -1\n  StoichNum(337,78) = 0.513\n  StoichNum(337,79) = -1\n  StoichNum(337,80) = 1\n  StoichNum(337,81) = 0.425\n  StoichNum(337,82) = 1\n  StoichNum(337,84) = -0.75\n  StoichNum(337,85) = 1\n  StoichNum(337,90) = 0.27\n  StoichNum(337,93) = 0.27\n  StoichNum(337,98) = 1\n  StoichNum(337,112) = 1\n  StoichNum(337,113) = 1\n  StoichNum(337,114) = -1\n  StoichNum(337,115) = -1\n  StoichNum(337,116) = -1\n  StoichNum(337,117) = -1\n  StoichNum(337,118) = -1\n  StoichNum(337,119) = -1\n  StoichNum(337,120) = -1\n  StoichNum(337,121) = -1\n  StoichNum(337,128) = -1\n  StoichNum(337,129) = 1\n  StoichNum(337,130) = 1\n  StoichNum(337,132) = 0.64\n  StoichNum(337,133) = 0.5\n  StoichNum(337,134) = 0.64\n  StoichNum(337,135) = 0.5\n  StoichNum(337,136) = 0.3\n  StoichNum(337,137) = 0.5\n  StoichNum(337,138) = 1\n  StoichNum(337,139) = 0.5\n  StoichNum(337,140) = 1\n  StoichNum(337,141) = 1\n  StoichNum(337,142) = 1.2\n  StoichNum(337,143) = 1.2\n  StoichNum(337,144) = -1\n  StoichNum(337,145) = -1\n  StoichNum(337,146) = -1\n  StoichNum(337,147) = -1\n  StoichNum(337,148) = -1\n  StoichNum(337,150) = 0.28\n  StoichNum(337,151) = 0.773\n  StoichNum(337,153) = 0.2\n  StoichNum(337,157) = 1\n  StoichNum(337,158) = -0.56\n  StoichNum(337,159) = 1\n  StoichNum(337,161) = 1\n  StoichNum(337,163) = 1\n  StoichNum(337,165) = 1\n  StoichNum(337,167) = 1\n  StoichNum(337,181) = 0.9\n  StoichNum(337,182) = 0.243\n  StoichNum(337,183) = 0.243\n  StoichNum(337,186) = 0.9\n  StoichNum(337,190) = 0.9\n  StoichNum(337,191) = 0.9\n  StoichNum(337,192) = 0.9\n  StoichNum(337,193) = 0.9\n  StoichNum(337,195) = 1\n  StoichNum(337,202) = 1\n  StoichNum(337,204) = -1\n  StoichNum(337,205) = -1\n  StoichNum(337,214) = 1\n  StoichNum(337,216) = 1\n  StoichNum(337,225) = 1\n  StoichNum(337,231) = 0.2\n  StoichNum(337,236) = -1\n  StoichNum(337,244) = 1\n  StoichNum(337,245) = 1\n  StoichNum(337,247) = -1\n  StoichNum(337,252) = 1\n  StoichNum(337,274) = 1\n  StoichNum(337,275) = 1\n  StoichNum(337,283) = 1\n  StoichNum(337,284) = 1\n  StoichNum(337,285) = 1\n  StoichNum(337,292) = 1\n  StoichNum(337,295) = 1\n  StoichNum(337,296) = -1\n  StoichNum(337,297) = -1\n  StoichNum(337,299) = -1\n  StoichNum(337,315) = 1\n  StoichNum(337,316) = 1\n  StoichNum(337,317) = 1\n  StoichNum(337,319) = 1\n  StoichNum(337,322) = 1\n  StoichNum(337,323) = 1\n  StoichNum(337,324) = 1\n  StoichNum(337,351) = -1\n  StoichNum(337,355) = -1\n  StoichNum(337,381) = 0.05\n  StoichNum(337,384) = -1\n  StoichNum(337,385) = 0.75\n  StoichNum(337,386) = 1\n  StoichNum(337,388) = 0.5\n  StoichNum(337,391) = -1\n  StoichNum(337,398) = -1\n  StoichNum(337,401) = 1\n  StoichNum(337,404) = -1\n  StoichNum(337,405) = 0.75\n  StoichNum(337,406) = 1\n  StoichNum(337,407) = 0.5\n  StoichNum(337,410) = -1\n  StoichNum(337,412) = 1\n  StoichNum(337,413) = 1\n  StoichNum(337,414) = 1\n  StoichNum(337,417) = -1\n  StoichNum(337,418) = 0.75\n  StoichNum(337,419) = 1\n  StoichNum(337,429) = 0.84\n  StoichNum(337,430) = -1\n  StoichNum(337,431) = 1\n  StoichNum(337,432) = 1\n  StoichNum(337,436) = -1\n  StoichNum(337,443) = -1\n  StoichNum(337,445) = 1\n  StoichNum(337,446) = 1\n  StoichNum(337,453) = 1\n  StoichNum(337,455) = 0.5\n  StoichNum(337,456) = 1.75\n  StoichNum(337,457) = 1\n  StoichNum(337,458) = 1.75\n  StoichNum(337,459) = 1\n  StoichNum(337,460) = 1.75\n  StoichNum(337,461) = 1\n  StoichNum(337,462) = 1.75\n  StoichNum(337,463) = 1\n  StoichNum(337,464) = 0.75\n  StoichNum(337,466) = 0.75\n  StoichNum(337,468) = 1\n  StoichNum(337,470) = -1\n  StoichNum(337,471) = -1\n  StoichNum(337,472) = 2\n  StoichNum(337,473) = 0.5\n  StoichNum(337,474) = 1\n  StoichNum(337,476) = 1\n  StoichNum(337,478) = 1\n  StoichNum(337,479) = 0.5\n  StoichNum(337,493) = 0.16\n  StoichNum(337,496) = 0.4\n  StoichNum(337,497) = 0.7\n  StoichNum(337,498) = -0.937\n  StoichNum(337,499) = -1\n  StoichNum(337,500) = -0.937\n  StoichNum(337,501) = -1\n  StoichNum(337,503) = 0.4\n  StoichNum(337,505) = 0.7\n  StoichNum(337,506) = 2\n  StoichNum(337,507) = 2\n  StoichNum(337,508) = 2\n  StoichNum(337,509) = 1\n  StoichNum(337,510) = 1\n  StoichNum(337,511) = 1\n  StoichNum(337,512) = 2\n  StoichNum(337,513) = 1.5\n  StoichNum(337,514) = 2\n  StoichNum(337,515) = 1.5\n  StoichNum(337,517) = 1\n  StoichNum(337,519) = 0.45\n  StoichNum(337,521) = 1\n  StoichNum(337,523) = 0.45\n  StoichNum(337,524) = 0.085\n  StoichNum(337,525) = 0.165\n  StoichNum(337,528) = 0.283\n  StoichNum(337,530) = 1\n  StoichNum(337,535) = 0.25\n  StoichNum(337,536) = 0.33\n  StoichNum(337,537) = 0.024\n  StoichNum(337,538) = 0.042\n  StoichNum(337,540) = 1\n  StoichNum(337,542) = -0.725\n  StoichNum(337,544) = 1\n  StoichNum(337,546) = -0.725\n  StoichNum(337,550) = -1\n  StoichNum(337,551) = 0.75\n  StoichNum(337,552) = 1\n  StoichNum(337,554) = 1\n  StoichNum(337,556) = 1\n  StoichNum(337,558) = -0.35\n  StoichNum(337,559) = 1\n  StoichNum(337,561) = 1\n  StoichNum(337,563) = 1\n  StoichNum(337,565) = -0.35\n  StoichNum(337,566) = -0.35\n  StoichNum(337,568) = 1\n  StoichNum(337,569) = 1\n  StoichNum(337,571) = -1\n  StoichNum(337,573) = -1\n  StoichNum(337,582) = 0.4\n  StoichNum(337,583) = 0.4\n  StoichNum(337,584) = 1\n  StoichNum(337,585) = -0.941\n  StoichNum(337,586) = 0.272\n  StoichNum(337,588) = 1\n  StoichNum(337,589) = -0.401\n  StoichNum(337,590) = 1\n  StoichNum(337,592) = 1\n  StoichNum(337,593) = 1\n  StoichNum(337,594) = -0.418\n  StoichNum(337,595) = 1\n  StoichNum(337,597) = -0.494\n  StoichNum(337,598) = 1\n  StoichNum(337,600) = -0.621\n  StoichNum(337,601) = 1\n  StoichNum(337,604) = -1\n  StoichNum(337,605) = -1\n  StoichNum(337,607) = 0.089\n  StoichNum(337,608) = 0.064\n  StoichNum(337,609) = 0.336\n  StoichNum(337,610) = 0.611\n  StoichNum(337,612) = 0.159\n  StoichNum(337,614) = 0.159\n  StoichNum(337,617) = 0.159\n  StoichNum(337,619) = 1\n  StoichNum(337,631) = -0.674\n  StoichNum(337,632) = -0.42\n  StoichNum(337,633) = 0.5\n  StoichNum(337,635) = 0.904\n  StoichNum(337,638) = 0.295\n  StoichNum(337,639) = 0.33\n  StoichNum(337,640) = -0.67\n  StoichNum(337,642) = 0.89\n  StoichNum(337,643) = -0.27\n  StoichNum(337,645) = 0.1\n  StoichNum(337,646) = 0.036\n  StoichNum(337,656) = -1\n  StoichNum(337,659) = -1\n  StoichNum(337,661) = 0.715\n  StoichNum(337,663) = 1\n  StoichNum(337,665) = 1\n  StoichNum(337,666) = 1\n  StoichNum(337,667) = -0.695\n  StoichNum(337,668) = 0.242\n  StoichNum(337,670) = -0.493\n  StoichNum(337,671) = -1\n  StoichNum(337,674) = 0.86\n  StoichNum(337,678) = -1\n  StoichNum(337,682) = 0.7\n  StoichNum(337,686) = 0.5\n  StoichNum(337,687) = 0.444\n  StoichNum(337,691) = 0.62\n  StoichNum(337,694) = 0.5\n  StoichNum(337,695) = -1\n  StoichNum(337,702) = 0.7\n  StoichNum(337,704) = 0.1\n  StoichNum(337,705) = 0.18\n  StoichNum(337,707) = 0.03\n  StoichNum(337,709) = 1\n  StoichNum(337,710) = -1\n  StoichNum(337,711) = 1\n  StoichNum(337,714) = 0.364\n  StoichNum(337,715) = -1\n  StoichNum(337,718) = 0.6\n  StoichNum(337,719) = 1\n  StoichNum(337,720) = 1\n  StoichNum(337,724) = 0.54\n  StoichNum(337,725) = 0.19\n  StoichNum(337,726) = 0.15\n  StoichNum(337,728) = 1\n  StoichNum(337,729) = 1\n  StoichNum(337,730) = 2\n  StoichNum(337,731) = 1\n  StoichNum(337,733) = 1\n  StoichNum(337,734) = -1\n  StoichNum(337,737) = -1\n  StoichNum(337,741) = 0.8\n  StoichNum(337,743) = 0.727\n  StoichNum(337,746) = 1\n  StoichNum(337,750) = -1\n  StoichNum(337,759) = -1\n  StoichNum(337,765) = 1\n  StoichNum(337,766) = 1\n  StoichNum(337,767) = 0.33\n  StoichNum(337,768) = 0.1\n  StoichNum(337,769) = 0.2\n  StoichNum(337,770) = 0.33\n  StoichNum(337,771) = 0.1\n  StoichNum(337,772) = 0.2\n  StoichNum(337,779) = 1\n  StoichNum(337,781) = -1\n  StoichNum(337,887) = 1\n  StoichNum(337,888) = 1\n  StoichNum(337,893) = 1\n  StoichNum(337,897) = 1\n  StoichNum(337,901) = 0.3\n  StoichNum(337,902) = 1\n  StoichNum(337,903) = 1\n  StoichNum(337,907) = 1.73\n  StoichNum(337,908) = 2\n  StoichNum(337,911) = 1\n  StoichNum(337,913) = 1\n  StoichNum(337,915) = 1\n  StoichNum(337,916) = 1\n  StoichNum(337,917) = 1\n  StoichNum(337,918) = 1\n  StoichNum(337,919) = 1\n  StoichNum(337,920) = 1\n  StoichNum(337,921) = 1\n  StoichNum(337,922) = 1\n  StoichNum(337,923) = 1\n  StoichNum(337,924) = 1\n  StoichNum(337,925) = 1\n  StoichNum(337,926) = 0.27\n  StoichNum(337,927) = 0.326\n  StoichNum(337,928) = 1\n  StoichNum(337,929) = 0.27\n  StoichNum(337,982) = 1\n  StoichNum(337,989) = 1\n  StoichNum(337,990) = 1\n  StoichNum(337,998) = 1\n  StoichNum(337,999) = 1\n  StoichNum(337,1000) = 1\n  StoichNum(337,1001) = 1\n  StoichNum(337,1003) = 1\n  StoichNum(337,1004) = 1\n  StoichNum(337,1006) = 1\n  StoichNum(337,1007) = 1.5\n  StoichNum(337,1008) = 0.47\n  StoichNum(337,1009) = 0.571\n  StoichNum(337,1010) = 0.125\n  StoichNum(337,1011) = 1\n  StoichNum(337,1013) = 0.29\n  StoichNum(337,1014) = 1\n  StoichNum(337,1015) = 1\n  StoichNum(337,1016) = 1\n  StoichNum(337,1017) = 1\n  StoichNum(337,1018) = 1\n  StoichNum(337,1019) = 1\n  StoichNum(337,1020) = 0.112\n  StoichNum(337,1021) = 0.182\n  StoichNum(337,1022) = 1\n  StoichNum(337,1023) = 1\n  StoichNum(337,1024) = 0.45\n  StoichNum(337,1025) = 1\n  StoichNum(337,1026) = 1\n  StoichNum(337,1027) = 0.45\n  StoichNum(337,1028) = 0.33\n  StoichNum(337,1029) = 0.159\n  StoichNum(337,1031) = 0.161\n  StoichNum(337,1032) = 0.228\n  StoichNum(337,1033) = 1.5\n  StoichNum(337,1034) = 1\n  StoichNum(337,1035) = 0.75\n  StoichNum(337,1036) = 1\n  StoichNum(337,1037) = 1.454\n  StoichNum(337,1038) = 0.7\n  StoichNum(337,1039) = 0.7\n  StoichNum(337,1041) = 1\n  StoichNum(337,1043) = 1\n  StoichNum(337,1046) = 1\n  StoichNum(337,1048) = 1\n  StoichNum(337,1049) = 1\n  StoichNum(337,1053) = 1\n  StoichNum(337,1054) = 1\n  StoichNum(337,1057) = 1\n  StoichNum(337,1058) = 1\n  StoichNum(338,253) = 0.22\n  StoichNum(338,255) = 0.75\n  StoichNum(338,256) = 0.79\n  StoichNum(338,257) = 0.46\n  StoichNum(338,261) = 0.56\n  StoichNum(338,262) = 0.9\n  StoichNum(338,263) = 0.86\n  StoichNum(338,264) = 0.34\n  StoichNum(338,266) = 0.69\n  StoichNum(338,267) = 0.65\n  StoichNum(338,268) = 0.79\n  StoichNum(338,269) = 0.8\n  StoichNum(338,270) = 0.85\n  StoichNum(338,271) = 0.86\n  StoichNum(338,274) = -1\n  StoichNum(338,275) = -1\n  StoichNum(338,276) = -1\n  StoichNum(338,280) = 1\n  StoichNum(338,293) = 1\n  StoichNum(338,297) = 1\n  StoichNum(338,298) = -1\n  StoichNum(338,299) = -1\n  StoichNum(338,300) = -1\n  StoichNum(338,301) = -1\n  StoichNum(338,302) = -2\n  StoichNum(338,303) = -2\n  StoichNum(338,304) = -2\n  StoichNum(338,307) = -2\n  StoichNum(338,308) = 2\n  StoichNum(338,309) = 0.1\n  StoichNum(338,310) = -1\n  StoichNum(338,311) = -1\n  StoichNum(338,312) = -1\n  StoichNum(338,313) = 1\n  StoichNum(338,319) = 1\n  StoichNum(338,322) = 1\n  StoichNum(338,323) = 1\n  StoichNum(338,349) = -1\n  StoichNum(338,944) = -1\n  StoichNum(338,945) = 1\n  StoichNum(338,949) = 1\n  StoichNum(339,2) = -1\n  StoichNum(339,5) = -1\n  StoichNum(339,253) = -0.88\n  StoichNum(339,276) = 1\n  StoichNum(339,279) = -1\n  StoichNum(339,291) = 1\n  StoichNum(339,292) = 1\n  StoichNum(339,294) = 1\n  StoichNum(339,295) = 1\n  StoichNum(339,296) = 1\n  StoichNum(339,315) = 2\n  StoichNum(339,316) = 1\n  StoichNum(339,317) = 1\n  StoichNum(339,318) = 1\n  StoichNum(339,320) = 1\n  StoichNum(339,321) = 1\n  StoichNum(339,324) = 1\n  StoichNum(339,325) = 1\n  StoichNum(339,326) = 1\n  StoichNum(339,327) = 1\n  StoichNum(339,328) = 1\n  StoichNum(339,329) = 1\n  StoichNum(339,330) = 1\n  StoichNum(339,331) = 1\n  StoichNum(339,332) = 1\n  StoichNum(339,787) = -1\n  StoichNum(339,794) = -1\n  StoichNum(339,796) = -1\n  StoichNum(339,804) = -1\n  StoichNum(339,808) = -1\n  StoichNum(339,812) = 1\n  StoichNum(339,814) = -1\n  StoichNum(340,253) = 0.66\n  StoichNum(340,255) = 0.75\n  StoichNum(340,256) = 2.37\n  StoichNum(340,257) = 0.35\n  StoichNum(340,261) = 0.19\n  StoichNum(340,262) = 1.8\n  StoichNum(340,263) = 0.86\n  StoichNum(340,264) = 0.31\n  StoichNum(340,266) = 0.69\n  StoichNum(340,268) = 0.79\n  StoichNum(340,269) = 1.9\n  StoichNum(340,270) = 0.95\n  StoichNum(340,273) = 1\n  StoichNum(340,275) = 1\n  StoichNum(340,279) = 1\n  StoichNum(340,283) = 1\n  StoichNum(340,284) = 2\n  StoichNum(340,285) = 3\n  StoichNum(340,286) = 3\n  StoichNum(340,287) = 1\n  StoichNum(340,288) = 2\n  StoichNum(340,289) = 1\n  StoichNum(340,290) = 2\n  StoichNum(340,291) = -1\n  StoichNum(340,292) = -1\n  StoichNum(340,293) = -1\n  StoichNum(340,294) = -1\n  StoichNum(340,295) = -1\n  StoichNum(340,296) = -1\n  StoichNum(340,297) = -1\n  StoichNum(340,298) = 1\n  StoichNum(340,300) = 1\n  StoichNum(340,303) = 1\n  StoichNum(340,304) = 1\n  StoichNum(340,305) = -1\n  StoichNum(340,306) = 1\n  StoichNum(340,309) = -1\n  StoichNum(340,314) = -1\n  StoichNum(340,315) = -1\n  StoichNum(340,316) = 1\n  StoichNum(340,317) = 2\n  StoichNum(340,318) = -1\n  StoichNum(340,319) = -1\n  StoichNum(340,320) = -1\n  StoichNum(340,321) = -1\n  StoichNum(340,322) = -1\n  StoichNum(340,323) = -1\n  StoichNum(340,324) = -1\n  StoichNum(340,325) = -1\n  StoichNum(340,326) = -1\n  StoichNum(340,327) = -1\n  StoichNum(340,328) = -1\n  StoichNum(340,329) = -1\n  StoichNum(340,330) = -1\n  StoichNum(340,331) = -1\n  StoichNum(340,332) = -1\n  StoichNum(340,349) = 0.249\n  StoichNum(340,940) = 1\n  StoichNum(340,941) = 2\n  StoichNum(340,942) = 1\n  StoichNum(340,943) = 2\n  StoichNum(340,944) = 1\n  StoichNum(340,946) = 1\n  StoichNum(340,947) = 1\n  StoichNum(340,948) = 1\n  StoichNum(340,950) = 1\n  StoichNum(340,951) = 3\n  StoichNum(340,952) = 4\n  StoichNum(340,953) = 3\n  StoichNum(340,954) = 2\n  StoichNum(340,955) = 3\n  StoichNum(340,956) = 2\n  StoichNum(340,957) = 1\n  StoichNum(340,958) = 2\n  StoichNum(340,959) = 2\n  StoichNum(340,960) = 1\n  StoichNum(340,961) = 1\n  StoichNum(340,963) = 1\n  StoichNum(340,965) = 1\n  StoichNum(340,976) = 1\n  StoichNum(340,981) = 1\n  StoichNum(341,1) = -1\n  StoichNum(341,4) = -1\n  StoichNum(341,8) = -1\n  StoichNum(341,13) = -1\n  StoichNum(341,14) = -1\n  StoichNum(341,15) = -1\n  StoichNum(341,16) = -1\n  StoichNum(341,17) = -1\n  StoichNum(341,77) = -1\n  StoichNum(341,128) = 0.15\n  StoichNum(341,148) = 0.15\n  StoichNum(341,150) = -1\n  StoichNum(341,158) = 0.15\n  StoichNum(341,203) = -1\n  StoichNum(341,232) = 1\n  StoichNum(341,233) = -1\n  StoichNum(341,237) = -1\n  StoichNum(341,246) = -1\n  StoichNum(341,293) = -1\n  StoichNum(341,350) = -1\n  StoichNum(341,367) = -1\n  StoichNum(341,379) = -1\n  StoichNum(341,381) = -1\n  StoichNum(341,383) = -1\n  StoichNum(341,391) = 0.15\n  StoichNum(341,421) = -1\n  StoichNum(341,424) = -1\n  StoichNum(341,427) = -1\n  StoichNum(341,436) = 0.15\n  StoichNum(341,448) = -1\n  StoichNum(341,451) = -1\n  StoichNum(341,454) = -1\n  StoichNum(341,483) = -1\n  StoichNum(341,493) = -1\n  StoichNum(341,645) = -1\n  StoichNum(341,648) = -1\n  StoichNum(341,671) = 0.13\n  StoichNum(341,678) = 0.13\n  StoichNum(341,695) = 0.13\n  StoichNum(341,704) = -1\n  StoichNum(341,712) = -1\n  StoichNum(341,737) = 0.15\n  StoichNum(341,746) = -1\n  StoichNum(341,750) = 0.15\n  StoichNum(341,761) = -1\n  StoichNum(341,768) = -1\n  StoichNum(341,771) = -1\n  StoichNum(341,820) = -1\n  StoichNum(341,821) = -1\n  StoichNum(341,822) = -1\n  StoichNum(341,882) = -1\n  StoichNum(341,883) = -1\n  StoichNum(342,203) = -1\n  StoichNum(342,205) = -1\n  StoichNum(342,206) = 1\n  StoichNum(342,207) = 2\n  StoichNum(342,209) = 1\n  StoichNum(342,210) = -1\n  StoichNum(342,211) = 1\n  StoichNum(342,213) = 1\n  StoichNum(342,214) = 1\n  StoichNum(342,215) = -1\n  StoichNum(342,216) = -1\n  StoichNum(342,217) = -1\n  StoichNum(342,218) = -1\n  StoichNum(342,219) = -1\n  StoichNum(342,220) = -1\n  StoichNum(342,221) = -1\n  StoichNum(342,223) = 3\n  StoichNum(342,224) = 2\n  StoichNum(342,225) = 1\n  StoichNum(342,251) = 1\n  StoichNum(342,254) = 0.6\n  StoichNum(342,258) = 0.56\n  StoichNum(342,259) = 0.95\n  StoichNum(342,260) = 1.4\n  StoichNum(342,264) = 0.34\n  StoichNum(342,272) = 0.75\n  StoichNum(342,310) = 1\n  StoichNum(342,311) = 1\n  StoichNum(342,333) = -1\n  StoichNum(342,343) = 1\n  StoichNum(342,344) = 1\n  StoichNum(342,931) = 2\n  StoichNum(342,932) = 1\n  StoichNum(342,933) = 1\n  StoichNum(342,934) = 1\n  StoichNum(342,936) = 1\n  StoichNum(342,937) = 3\n  StoichNum(342,938) = 2\n  StoichNum(342,939) = 1\n  StoichNum(342,942) = 1\n  StoichNum(342,962) = 1\n  StoichNum(342,963) = 1\n  StoichNum(342,964) = 2\n  StoichNum(342,977) = 1\n  StoichNum(342,980) = 1\n  StoichNum(343,18) = 1\n  StoichNum(343,212) = -1\n  StoichNum(343,213) = -1\n  StoichNum(343,227) = 1\n  StoichNum(343,228) = 1\n  StoichNum(343,232) = -1\n  StoichNum(343,233) = -1\n  StoichNum(343,235) = -1\n  StoichNum(343,236) = -1\n  StoichNum(343,237) = 1\n  StoichNum(343,238) = -1\n  StoichNum(343,240) = -1\n  StoichNum(343,241) = -1\n  StoichNum(343,242) = -1\n  StoichNum(343,243) = -1\n  StoichNum(343,244) = -1\n  StoichNum(343,247) = 0.02\n  StoichNum(343,248) = 1\n  StoichNum(343,249) = 1\n  StoichNum(343,250) = 1\n  StoichNum(343,251) = -1\n  StoichNum(343,252) = -1\n  StoichNum(343,253) = 0.12\n  StoichNum(343,254) = 0.2\n  StoichNum(343,255) = 0.25\n  StoichNum(343,256) = 0.21\n  StoichNum(343,257) = 0.1\n  StoichNum(343,259) = 0.05\n  StoichNum(343,260) = 0.3\n  StoichNum(343,261) = 0.25\n  StoichNum(343,262) = 0.1\n  StoichNum(343,263) = 0.14\n  StoichNum(343,264) = 0.35\n  StoichNum(343,265) = 0.55\n  StoichNum(343,266) = 0.31\n  StoichNum(343,267) = 0.35\n  StoichNum(343,268) = 0.21\n  StoichNum(343,269) = 0.1\n  StoichNum(343,270) = 0.1\n  StoichNum(343,271) = 0.14\n  StoichNum(343,272) = 0.25\n  StoichNum(343,298) = -1\n  StoichNum(343,313) = -1\n  StoichNum(343,882) = 1\n  StoichNum(343,884) = 2\n  StoichNum(343,885) = 1\n  StoichNum(343,894) = 1\n  StoichNum(343,932) = 1\n  StoichNum(343,944) = 1\n  StoichNum(343,945) = 1\n  StoichNum(343,968) = 1\n  StoichNum(343,988) = 1\n  StoichNum(344,5) = 1\n  StoichNum(344,790) = -1\n  StoichNum(344,792) = -1\n  StoichNum(344,801) = -1\n  StoichNum(344,803) = -1\n  StoichNum(344,811) = -1\n  StoichNum(344,816) = -1\n  StoichNum(344,847) = -1\n  StoichNum(344,851) = -1\n  StoichNum(344,855) = -1\n  StoichNum(345,12) = -1\n  StoichNum(345,14) = -1\n  StoichNum(345,15) = 1\n  StoichNum(345,18) = -2\n  StoichNum(345,19) = -2\n  StoichNum(345,20) = -1\n  StoichNum(345,21) = -1\n  StoichNum(345,22) = 1\n  StoichNum(345,24) = -1\n  StoichNum(345,25) = -1\n  StoichNum(345,31) = -1\n  StoichNum(345,32) = -0.7\n  StoichNum(345,33) = -0.7\n  StoichNum(345,34) = -1\n  StoichNum(345,35) = -1\n  StoichNum(345,36) = -1\n  StoichNum(345,37) = -1\n  StoichNum(345,38) = -1\n  StoichNum(345,41) = -1\n  StoichNum(345,42) = 1\n  StoichNum(345,44) = -1\n  StoichNum(345,47) = -1\n  StoichNum(345,48) = -1\n  StoichNum(345,51) = -1\n  StoichNum(345,55) = -1\n  StoichNum(345,57) = -1\n  StoichNum(345,61) = -1\n  StoichNum(345,62) = -1\n  StoichNum(345,66) = -1\n  StoichNum(345,71) = -0.5\n  StoichNum(345,72) = -1\n  StoichNum(345,75) = -1\n  StoichNum(345,80) = -1\n  StoichNum(345,81) = -1\n  StoichNum(345,84) = 0.25\n  StoichNum(345,88) = -1\n  StoichNum(345,89) = -1\n  StoichNum(345,102) = -1\n  StoichNum(345,103) = -1\n  StoichNum(345,104) = -1\n  StoichNum(345,105) = -1\n  StoichNum(345,108) = -1\n  StoichNum(345,111) = -1\n  StoichNum(345,118) = 0.15\n  StoichNum(345,119) = 0.15\n  StoichNum(345,122) = -1\n  StoichNum(345,126) = -1\n  StoichNum(345,128) = 0.44\n  StoichNum(345,140) = -1\n  StoichNum(345,141) = -1\n  StoichNum(345,148) = 0.44\n  StoichNum(345,149) = -1\n  StoichNum(345,150) = 0.36\n  StoichNum(345,151) = -0.773\n  StoichNum(345,153) = -1\n  StoichNum(345,158) = 0.44\n  StoichNum(345,160) = -1\n  StoichNum(345,161) = -1\n  StoichNum(345,163) = -1\n  StoichNum(345,164) = -1\n  StoichNum(345,167) = -1\n  StoichNum(345,169) = -0.209\n  StoichNum(345,170) = -0.36\n  StoichNum(345,171) = -0.36\n  StoichNum(345,172) = -0.209\n  StoichNum(345,173) = -0.21\n  StoichNum(345,174) = -0.21\n  StoichNum(345,175) = -1\n  StoichNum(345,176) = -0.209\n  StoichNum(345,178) = -0.78\n  StoichNum(345,199) = -1\n  StoichNum(345,200) = -1\n  StoichNum(345,202) = -1\n  StoichNum(345,206) = -1\n  StoichNum(345,211) = -1\n  StoichNum(345,212) = 1\n  StoichNum(345,213) = 1\n  StoichNum(345,214) = -1\n  StoichNum(345,223) = -1\n  StoichNum(345,224) = -1\n  StoichNum(345,225) = -1\n  StoichNum(345,226) = 2\n  StoichNum(345,229) = 1\n  StoichNum(345,231) = 0.75\n  StoichNum(345,234) = -1\n  StoichNum(345,235) = -1\n  StoichNum(345,236) = 1\n  StoichNum(345,239) = -1\n  StoichNum(345,244) = 1\n  StoichNum(345,246) = 1\n  StoichNum(345,247) = 1.788\n  StoichNum(345,252) = 1\n  StoichNum(345,253) = 0.66\n  StoichNum(345,254) = 0.6\n  StoichNum(345,261) = 0.05\n  StoichNum(345,273) = -1\n  StoichNum(345,275) = -1\n  StoichNum(345,276) = -1\n  StoichNum(345,277) = -1\n  StoichNum(345,278) = -1\n  StoichNum(345,279) = -1\n  StoichNum(345,280) = -1\n  StoichNum(345,281) = -1\n  StoichNum(345,282) = -1\n  StoichNum(345,283) = -1\n  StoichNum(345,284) = -1\n  StoichNum(345,285) = -1\n  StoichNum(345,286) = -1\n  StoichNum(345,287) = -1\n  StoichNum(345,288) = -1\n  StoichNum(345,289) = -1\n  StoichNum(345,290) = -1\n  StoichNum(345,297) = 1\n  StoichNum(345,352) = -1\n  StoichNum(345,353) = -1\n  StoichNum(345,354) = -1\n  StoichNum(345,359) = -1\n  StoichNum(345,360) = -1\n  StoichNum(345,361) = -1\n  StoichNum(345,378) = -1\n  StoichNum(345,379) = 0.865\n  StoichNum(345,380) = -1\n  StoichNum(345,381) = 0.8\n  StoichNum(345,382) = -1\n  StoichNum(345,383) = 0.65\n  StoichNum(345,387) = -1\n  StoichNum(345,388) = -1\n  StoichNum(345,390) = -1\n  StoichNum(345,391) = 0.44\n  StoichNum(345,396) = -1\n  StoichNum(345,397) = -1\n  StoichNum(345,402) = -1\n  StoichNum(345,403) = -1\n  StoichNum(345,407) = -1\n  StoichNum(345,408) = -1\n  StoichNum(345,409) = -1\n  StoichNum(345,415) = -1\n  StoichNum(345,416) = -1\n  StoichNum(345,420) = -1\n  StoichNum(345,421) = 0.6\n  StoichNum(345,423) = -1\n  StoichNum(345,424) = 0.865\n  StoichNum(345,426) = -1\n  StoichNum(345,433) = -1\n  StoichNum(345,435) = -1\n  StoichNum(345,436) = 0.44\n  StoichNum(345,441) = -1\n  StoichNum(345,442) = -1\n  StoichNum(345,447) = -0.7\n  StoichNum(345,448) = 0.3\n  StoichNum(345,449) = 0.15\n  StoichNum(345,450) = -1\n  StoichNum(345,453) = -1\n  StoichNum(345,454) = 1\n  StoichNum(345,481) = -1\n  StoichNum(345,482) = -1\n  StoichNum(345,488) = -1\n  StoichNum(345,489) = -1\n  StoichNum(345,490) = -1\n  StoichNum(345,491) = -1\n  StoichNum(345,492) = -1\n  StoichNum(345,493) = 0.28\n  StoichNum(345,494) = -1\n  StoichNum(345,495) = -1\n  StoichNum(345,496) = 0.5\n  StoichNum(345,497) = 0.5\n  StoichNum(345,498) = 0.063\n  StoichNum(345,500) = 0.063\n  StoichNum(345,502) = 1\n  StoichNum(345,503) = 1.5\n  StoichNum(345,504) = 1\n  StoichNum(345,505) = 1.5\n  StoichNum(345,509) = 1\n  StoichNum(345,510) = 1\n  StoichNum(345,511) = 1\n  StoichNum(345,513) = 0.5\n  StoichNum(345,515) = 0.5\n  StoichNum(345,519) = 0.55\n  StoichNum(345,523) = 0.55\n  StoichNum(345,524) = 0.085\n  StoichNum(345,525) = 0.165\n  StoichNum(345,528) = 0.065\n  StoichNum(345,530) = -1\n  StoichNum(345,531) = -1\n  StoichNum(345,533) = -1\n  StoichNum(345,535) = -1\n  StoichNum(345,536) = -1\n  StoichNum(345,537) = -0.595\n  StoichNum(345,538) = -0.255\n  StoichNum(345,539) = 1\n  StoichNum(345,542) = 0.275\n  StoichNum(345,543) = 1\n  StoichNum(345,546) = 0.275\n  StoichNum(345,548) = 1\n  StoichNum(345,550) = 1.3\n  StoichNum(345,551) = -1\n  StoichNum(345,552) = -1\n  StoichNum(345,553) = -1\n  StoichNum(345,554) = -1\n  StoichNum(345,555) = -1\n  StoichNum(345,557) = 1\n  StoichNum(345,558) = 0.65\n  StoichNum(345,562) = 1\n  StoichNum(345,565) = 0.65\n  StoichNum(345,566) = 0.65\n  StoichNum(345,569) = 1\n  StoichNum(345,570) = 1\n  StoichNum(345,571) = 2\n  StoichNum(345,572) = 1\n  StoichNum(345,573) = 2\n  StoichNum(345,574) = -1\n  StoichNum(345,575) = -1\n  StoichNum(345,576) = -1\n  StoichNum(345,577) = -1\n  StoichNum(345,578) = -1\n  StoichNum(345,579) = -1\n  StoichNum(345,580) = -1\n  StoichNum(345,581) = -1\n  StoichNum(345,582) = -0.4\n  StoichNum(345,583) = -0.4\n  StoichNum(345,585) = 0.518\n  StoichNum(345,589) = 0.599\n  StoichNum(345,594) = 0.582\n  StoichNum(345,597) = 0.506\n  StoichNum(345,600) = 0.379\n  StoichNum(345,604) = 0.527\n  StoichNum(345,621) = -1\n  StoichNum(345,622) = -1\n  StoichNum(345,625) = -1\n  StoichNum(345,626) = -1\n  StoichNum(345,627) = -1\n  StoichNum(345,629) = 1\n  StoichNum(345,630) = 1\n  StoichNum(345,631) = 1.147\n  StoichNum(345,632) = 0.646\n  StoichNum(345,633) = 0.435\n  StoichNum(345,635) = 0.096\n  StoichNum(345,637) = -1\n  StoichNum(345,638) = -0.756\n  StoichNum(345,640) = 1\n  StoichNum(345,641) = -1\n  StoichNum(345,643) = 0.82\n  StoichNum(345,644) = -1\n  StoichNum(345,645) = 0.08\n  StoichNum(345,646) = -1\n  StoichNum(345,647) = -1\n  StoichNum(345,648) = 0.12\n  StoichNum(345,649) = 0.68\n  StoichNum(345,650) = -0.98\n  StoichNum(345,653) = -1\n  StoichNum(345,656) = 1\n  StoichNum(345,659) = 1\n  StoichNum(345,661) = -0.715\n  StoichNum(345,663) = -1\n  StoichNum(345,665) = -1\n  StoichNum(345,666) = -1\n  StoichNum(345,667) = 0.665\n  StoichNum(345,670) = 0.59\n  StoichNum(345,671) = 0.5\n  StoichNum(345,672) = -0.415\n  StoichNum(345,673) = 1\n  StoichNum(345,678) = 0.5\n  StoichNum(345,684) = -1\n  StoichNum(345,685) = -0.3\n  StoichNum(345,686) = -0.5\n  StoichNum(345,687) = -0.556\n  StoichNum(345,690) = -1\n  StoichNum(345,691) = -0.7\n  StoichNum(345,693) = -1\n  StoichNum(345,694) = -0.5\n  StoichNum(345,695) = 0.5\n  StoichNum(345,701) = -1\n  StoichNum(345,702) = -1\n  StoichNum(345,704) = 0.18\n  StoichNum(345,705) = -1\n  StoichNum(345,707) = -1\n  StoichNum(345,710) = 1\n  StoichNum(345,711) = -1\n  StoichNum(345,713) = -1\n  StoichNum(345,714) = -0.364\n  StoichNum(345,721) = -1\n  StoichNum(345,722) = -1\n  StoichNum(345,724) = -1\n  StoichNum(345,725) = -1\n  StoichNum(345,726) = -1\n  StoichNum(345,727) = 1\n  StoichNum(345,732) = -1\n  StoichNum(345,735) = -1\n  StoichNum(345,737) = 0.44\n  StoichNum(345,740) = -1\n  StoichNum(345,741) = -1\n  StoichNum(345,743) = -1\n  StoichNum(345,745) = -1\n  StoichNum(345,746) = 1\n  StoichNum(345,748) = -1\n  StoichNum(345,750) = 0.2\n  StoichNum(345,753) = -1\n  StoichNum(345,755) = -1\n  StoichNum(345,760) = -1\n  StoichNum(345,763) = -1\n  StoichNum(345,767) = -0.75\n  StoichNum(345,768) = 0.1\n  StoichNum(345,770) = -0.75\n  StoichNum(345,771) = 0.1\n  StoichNum(345,780) = -1\n  StoichNum(345,791) = -1\n  StoichNum(345,792) = -1\n  StoichNum(345,886) = 2\n  StoichNum(345,887) = 1\n  StoichNum(345,890) = 1\n  StoichNum(345,891) = 1\n  StoichNum(345,892) = 1\n  StoichNum(345,907) = 0.07\n  StoichNum(345,917) = 1\n  StoichNum(345,918) = 1\n  StoichNum(345,919) = 1\n  StoichNum(345,920) = 1\n  StoichNum(345,921) = 1\n  StoichNum(345,922) = 1\n  StoichNum(345,923) = 1\n  StoichNum(345,924) = 1\n  StoichNum(345,925) = 1\n  StoichNum(345,930) = 1\n  StoichNum(345,933) = 1\n  StoichNum(345,950) = 1\n  StoichNum(345,967) = 1\n  StoichNum(345,984) = 1\n  StoichNum(345,987) = 2\n  StoichNum(345,989) = 1\n  StoichNum(345,1002) = 2\n  StoichNum(345,1003) = 1\n  StoichNum(345,1008) = 1\n  StoichNum(345,1009) = 1\n  StoichNum(345,1010) = 1.75\n  StoichNum(345,1011) = 1\n  StoichNum(345,1012) = 0.75\n  StoichNum(345,1013) = 0.01\n  StoichNum(345,1015) = 1\n  StoichNum(345,1016) = 1\n  StoichNum(345,1017) = 1\n  StoichNum(345,1018) = 1\n  StoichNum(345,1019) = 1\n  StoichNum(345,1020) = 1.662\n  StoichNum(345,1021) = 1.637\n  StoichNum(345,1022) = 1\n  StoichNum(345,1023) = 1\n  StoichNum(345,1024) = 0.55\n  StoichNum(345,1027) = 0.55\n  StoichNum(345,1028) = 0.67\n  StoichNum(345,1029) = 1\n  StoichNum(345,1031) = 0.645\n  StoichNum(345,1033) = 0.5\n  StoichNum(345,1034) = 1\n  StoichNum(345,1035) = 1.25\n  StoichNum(345,1036) = 1\n  StoichNum(345,1037) = 0.546\n  StoichNum(345,1038) = 1\n  StoichNum(345,1039) = 0.3\n  StoichNum(345,1040) = 1\n  StoichNum(345,1042) = 1\n  StoichNum(345,1044) = 1\n  StoichNum(345,1048) = 1\n  StoichNum(345,1050) = 1\n  StoichNum(345,1051) = 1\n  StoichNum(345,1052) = 1\n  StoichNum(345,1053) = 1\n  StoichNum(345,1054) = 1\n  StoichNum(345,1055) = 1\n  StoichNum(345,1056) = 1\n  StoichNum(345,1057) = 1\n  StoichNum(346,13) = -1\n  StoichNum(346,22) = -1\n  StoichNum(346,26) = -1\n  StoichNum(346,27) = -1\n  StoichNum(346,37) = -1\n  StoichNum(346,43) = -1\n  StoichNum(346,49) = 1\n  StoichNum(346,56) = -1\n  StoichNum(346,58) = -1\n  StoichNum(346,59) = -1\n  StoichNum(346,60) = -1\n  StoichNum(346,63) = -1\n  StoichNum(346,64) = -1\n  StoichNum(346,65) = -1\n  StoichNum(346,68) = -1\n  StoichNum(346,69) = -1\n  StoichNum(346,73) = -1\n  StoichNum(346,78) = -1\n  StoichNum(346,82) = -1\n  StoichNum(346,85) = -1\n  StoichNum(346,90) = -1\n  StoichNum(346,91) = -1\n  StoichNum(346,92) = -1\n  StoichNum(346,93) = -1\n  StoichNum(346,94) = -1\n  StoichNum(346,95) = -1\n  StoichNum(346,96) = -1\n  StoichNum(346,97) = -1\n  StoichNum(346,98) = -1\n  StoichNum(346,99) = -1\n  StoichNum(346,100) = -1\n  StoichNum(346,109) = -1\n  StoichNum(346,123) = -1\n  StoichNum(346,127) = -1\n  StoichNum(346,157) = -1\n  StoichNum(346,209) = -1\n  StoichNum(346,230) = 1.22\n  StoichNum(346,240) = 1\n  StoichNum(346,242) = -1\n  StoichNum(346,248) = 1\n  StoichNum(346,249) = -1\n  StoichNum(346,300) = -1\n  StoichNum(346,334) = -1\n  StoichNum(346,335) = 2\n  StoichNum(346,348) = -1\n  StoichNum(346,356) = -1\n  StoichNum(346,363) = -1\n  StoichNum(346,370) = -1\n  StoichNum(346,385) = -1\n  StoichNum(346,392) = -1\n  StoichNum(346,399) = -1\n  StoichNum(346,405) = -1\n  StoichNum(346,411) = -1\n  StoichNum(346,412) = -1\n  StoichNum(346,418) = -1\n  StoichNum(346,429) = -1\n  StoichNum(346,437) = -1\n  StoichNum(346,444) = -1\n  StoichNum(346,445) = -1\n  StoichNum(346,468) = -1\n  StoichNum(346,469) = -1\n  StoichNum(346,516) = -1\n  StoichNum(346,517) = -1\n  StoichNum(346,518) = -1\n  StoichNum(346,519) = -1\n  StoichNum(346,520) = -1\n  StoichNum(346,521) = -1\n  StoichNum(346,522) = -1\n  StoichNum(346,523) = -1\n  StoichNum(346,540) = -1\n  StoichNum(346,541) = -1\n  StoichNum(346,544) = -1\n  StoichNum(346,545) = -1\n  StoichNum(346,548) = -1\n  StoichNum(346,549) = -1\n  StoichNum(346,559) = -1\n  StoichNum(346,560) = -1\n  StoichNum(346,563) = -1\n  StoichNum(346,564) = -1\n  StoichNum(346,567) = -1\n  StoichNum(346,568) = -1\n  StoichNum(346,570) = -1\n  StoichNum(346,572) = -1\n  StoichNum(346,586) = -1\n  StoichNum(346,587) = -1\n  StoichNum(346,590) = -1\n  StoichNum(346,591) = -1\n  StoichNum(346,595) = -1\n  StoichNum(346,596) = -1\n  StoichNum(346,598) = -1\n  StoichNum(346,599) = -1\n  StoichNum(346,601) = -1\n  StoichNum(346,602) = -1\n  StoichNum(346,615) = -1\n  StoichNum(346,616) = -1\n  StoichNum(346,617) = -1\n  StoichNum(346,618) = -1\n  StoichNum(346,633) = -1\n  StoichNum(346,634) = -1\n  StoichNum(346,635) = -1\n  StoichNum(346,636) = -1\n  StoichNum(346,639) = -1\n  StoichNum(346,642) = -1\n  StoichNum(346,655) = -1\n  StoichNum(346,658) = -1\n  StoichNum(346,668) = -1\n  StoichNum(346,669) = -1\n  StoichNum(346,674) = -1\n  StoichNum(346,675) = -1\n  StoichNum(346,676) = -1\n  StoichNum(346,679) = -1\n  StoichNum(346,709) = -1\n  StoichNum(346,716) = -1\n  StoichNum(346,728) = -1\n  StoichNum(346,733) = -1\n  StoichNum(346,736) = -1\n  StoichNum(346,751) = -1\n  StoichNum(346,757) = -1\n  StoichNum(346,885) = 1\n  StoichNum(346,891) = 1\n  StoichNum(346,895) = 1\n  StoichNum(346,970) = 1\n  StoichNum(346,988) = -1\n  StoichNum(347,203) = 1\n  StoichNum(347,204) = -1\n  StoichNum(347,207) = -2\n  StoichNum(347,208) = -2\n  StoichNum(347,209) = -1\n  StoichNum(347,212) = 1\n  StoichNum(347,214) = -1\n  StoichNum(347,215) = 1\n  StoichNum(347,222) = -1\n  StoichNum(347,251) = -1\n  StoichNum(347,254) = 0.2\n  StoichNum(347,258) = 0.44\n  StoichNum(347,259) = 0.95\n  StoichNum(347,260) = 0.7\n  StoichNum(347,264) = 0.31\n  StoichNum(347,265) = 0.45\n  StoichNum(347,272) = 0.75\n  StoichNum(347,310) = -1\n  StoichNum(347,311) = -1\n  StoichNum(347,312) = -1\n  StoichNum(347,343) = -1\n  StoichNum(347,344) = -1\n  StoichNum(347,932) = -1\n  StoichNum(347,935) = 1\n  StoichNum(348,1) = -1\n  StoichNum(348,4) = -1\n  StoichNum(348,7) = -1\n  StoichNum(348,8) = -1\n  StoichNum(348,9) = -1\n  StoichNum(348,10) = -1\n  StoichNum(348,11) = 1\n  StoichNum(348,12) = -1\n  StoichNum(348,199) = 1\n  StoichNum(348,200) = 0.75\n  StoichNum(348,201) = 1\n  StoichNum(348,202) = -1\n  StoichNum(348,238) = 1\n  StoichNum(348,239) = 1\n  StoichNum(348,368) = -1\n  StoichNum(348,372) = -1\n  StoichNum(348,812) = -1\n  StoichNum(348,819) = -1\n  StoichNum(348,986) = 1\n  StoichNum(348,987) = 1\n  StoichNum(349,798) = -1\n  StoichNum(349,805) = -1\n  StoichNum(349,817) = -1\n  StoichNum(349,821) = -1\n  StoichNum(349,823) = 1\n  StoichNum(349,844) = -1\n  StoichNum(349,848) = -1\n  StoichNum(349,852) = -1\n  StoichNum(350,799) = -1\n  StoichNum(350,806) = -1\n  StoichNum(350,818) = -1\n  StoichNum(350,822) = -1\n  StoichNum(350,824) = 1\n  StoichNum(350,845) = -1\n  StoichNum(350,849) = -1\n  StoichNum(350,853) = -1\n  StoichNum(351,16) = 1\n  StoichNum(351,36) = 1\n  StoichNum(351,42) = -1\n  StoichNum(351,43) = -1\n  StoichNum(351,44) = -1\n  StoichNum(351,45) = -1\n  StoichNum(351,46) = 1\n  StoichNum(351,49) = -1\n  StoichNum(351,50) = -1\n  StoichNum(351,52) = -1\n  StoichNum(351,67) = -1\n  StoichNum(351,76) = -1\n  StoichNum(351,88) = 1\n  StoichNum(351,101) = -1\n  StoichNum(351,110) = -1\n  StoichNum(351,131) = -1\n  StoichNum(351,154) = -1\n  StoichNum(351,159) = -1\n  StoichNum(351,162) = -1\n  StoichNum(351,165) = -1\n  StoichNum(351,166) = -1\n  StoichNum(351,179) = -1\n  StoichNum(351,196) = -2\n  StoichNum(351,201) = -1\n  StoichNum(351,210) = 1\n  StoichNum(351,215) = -1\n  StoichNum(351,241) = -1\n  StoichNum(351,243) = 1\n  StoichNum(351,282) = 1\n  StoichNum(351,313) = 1\n  StoichNum(351,314) = 1\n  StoichNum(351,339) = -1\n  StoichNum(351,342) = 1\n  StoichNum(351,364) = 1\n  StoichNum(351,371) = 1\n  StoichNum(351,375) = -1\n  StoichNum(351,376) = -1\n  StoichNum(351,377) = -1\n  StoichNum(351,386) = -1\n  StoichNum(351,389) = -1\n  StoichNum(351,395) = -1\n  StoichNum(351,400) = -1\n  StoichNum(351,406) = -1\n  StoichNum(351,414) = -1\n  StoichNum(351,419) = -1\n  StoichNum(351,422) = -1\n  StoichNum(351,425) = -1\n  StoichNum(351,428) = -1\n  StoichNum(351,431) = -1\n  StoichNum(351,434) = -1\n  StoichNum(351,440) = -1\n  StoichNum(351,446) = -1\n  StoichNum(351,449) = -1\n  StoichNum(351,452) = -1\n  StoichNum(351,455) = -1\n  StoichNum(351,476) = -1\n  StoichNum(351,477) = -1\n  StoichNum(351,484) = -1\n  StoichNum(351,485) = -1\n  StoichNum(351,488) = 1\n  StoichNum(351,603) = -1\n  StoichNum(351,613) = -1\n  StoichNum(351,614) = -1\n  StoichNum(351,649) = -1\n  StoichNum(351,650) = 0.69\n  StoichNum(351,681) = -1\n  StoichNum(351,684) = 1\n  StoichNum(351,692) = -1\n  StoichNum(351,703) = -1\n  StoichNum(351,706) = -1\n  StoichNum(351,708) = -1\n  StoichNum(351,717) = -1\n  StoichNum(351,729) = -1\n  StoichNum(351,742) = -1\n  StoichNum(351,744) = -1\n  StoichNum(351,747) = -1\n  StoichNum(351,749) = -1\n  StoichNum(351,756) = 1\n  StoichNum(351,758) = -1\n  StoichNum(351,764) = -1\n  StoichNum(351,779) = -1\n  StoichNum(351,783) = -1\n  StoichNum(351,784) = -1\n  StoichNum(351,785) = -1\n  StoichNum(351,892) = 1\n  StoichNum(351,894) = -1\n  StoichNum(351,895) = -1\n  StoichNum(351,896) = 1\n  StoichNum(351,899) = 0.3\n  StoichNum(351,934) = 1\n  StoichNum(351,948) = 1\n  StoichNum(351,972) = 1\n  StoichNum(351,982) = 1\n  StoichNum(351,1047) = 0.3\n  StoichNum(352,205) = 1\n  StoichNum(352,206) = -1\n  StoichNum(352,213) = -1\n  StoichNum(352,216) = 1\n  StoichNum(352,217) = 1\n  StoichNum(352,218) = 1\n  StoichNum(352,219) = 1\n  StoichNum(352,220) = 1\n  StoichNum(352,254) = -0.8\n  StoichNum(352,333) = 1\n  StoichNum(352,797) = -1\n  StoichNum(352,807) = -1\n  StoichNum(352,809) = -1\n  StoichNum(352,813) = -1\n  StoichNum(352,819) = 1\n  StoichNum(352,820) = -1\n  StoichNum(352,823) = -1\n  StoichNum(352,824) = -1\n  StoichNum(353,2) = 1\n  StoichNum(353,789) = -1\n  StoichNum(353,791) = -1\n  StoichNum(353,800) = -1\n  StoichNum(353,802) = -1\n  StoichNum(353,810) = -1\n  StoichNum(353,815) = -1\n  StoichNum(353,846) = -1\n  StoichNum(353,850) = -1\n  StoichNum(353,854) = -1\n      \nEND SUBROUTINE CalcStoichNum\n\n! End of CalcStoichNum function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Function\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Global.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Global Data Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Global.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Global\n\n  USE gckpp_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO\n  PUBLIC\n  SAVE\n\n\n! Declaration of global variables\n\n! ~~~ If you are using KPP within an OpenMP parallel environment,\n! ~~~ then these variables must be declared THREADPRIVATE.  This means\n! ~~~ that the compiler will make a private copy of these variables\n! ~~~ (in stack memory) for each execution thread.  At the end of\n! ~~~ the OpenMP parallel loop, these variables will be finalized,\n! ~~~ and their memory deallocated.\n! ~~~\n! ~~~ NOTE: Because the OpenMP commands all begin with a comment\n! ~~~ character, they will be ignored unless the code is compiled\n! ~~~ with OpenMP parallelization turned on.\n\n! C - Concentration of all species\n  REAL(kind=dp), TARGET :: C(NSPEC)\n  !$OMP THREADPRIVATE( C )\n! VAR - Concentrations of variable species (global)\n  REAL(kind=dp), POINTER :: VAR(:)\n  !$OMP THREADPRIVATE( VAR )\n! FIX - Concentrations of fixed species (global)\n  REAL(kind=dp), POINTER :: FIX(:)\n  !$OMP THREADPRIVATE( FIX )\n! RCONST - Rate constants (global)\n  REAL(kind=dp) :: RCONST(NREACT)\n  !$OMP THREADPRIVATE( RCONST )\n! TIME - Current integration time\n  REAL(kind=dp) :: TIME\n  !$OMP THREADPRIVATE( TIME )\n! SUN - Sunlight intensity between [0,1]\n  REAL(kind=dp) :: SUN\n  !$OMP THREADPRIVATE( SUN )\n! TEMP - Temperature\n  REAL(kind=dp) :: TEMP\n  !$OMP THREADPRIVATE( TEMP )\n\n! ~~~ If you are using KPP within an OpenMP parallel environment,\n! ~~~ these variables DO NOT need to be declared THREADPRIVATE.\n\n! TSTART - Integration start time\n  REAL(kind=dp) :: TSTART\n! TEND - Integration end time\n  REAL(kind=dp) :: TEND\n! DT - Integration step\n  REAL(kind=dp) :: DT\n! ATOL - Absolute tolerance\n  REAL(kind=dp) :: ATOL(NVAR)\n! RTOL - Relative tolerance\n  REAL(kind=dp) :: RTOL(NVAR)\n! STEPMIN - Lower bound for integration step\n  REAL(kind=dp) :: STEPMIN\n! STEPMAX - Upper bound for integration step\n  REAL(kind=dp) :: STEPMAX\n! DO_JVS -\n  LOGICAL :: DO_JVS(LU_NONZERO)\n! DO_SLV -\n  LOGICAL :: DO_SLV(NVAR+1)\n! DO_FUN -\n  LOGICAL :: DO_FUN(NVAR)\n! cLU_IROW -\n  INTEGER :: cLU_IROW(LU_NONZERO)\n! cLU_ICOL -\n  INTEGER :: cLU_ICOL(LU_NONZERO)\n! cLU_CROW -\n  INTEGER :: cLU_CROW(NVAR+1)\n! cLU_DIAG -\n  INTEGER :: cLU_DIAG(NVAR+1)\n! JVS_MAP -\n  INTEGER :: JVS_MAP(LU_NONZERO)\n! SPC_MAP -\n  INTEGER :: SPC_MAP(NVAR)\n! iSPC_MAP -\n  INTEGER :: iSPC_MAP(NVAR)\n! RMV -\n  INTEGER :: RMV(NVAR)\n! rNVAR -\n  INTEGER :: rNVAR\n! cNONZERO -\n  INTEGER :: cNONZERO\n! KEEPSPCACTIVE -\n  LOGICAL :: KEEPSPCACTIVE(NVAR)\n! KEEPACTIVE -\n  LOGICAL :: KEEPACTIVE\n  !$OMP THREADPRIVATE(  DO_JVS, DO_SLV, DO_FUN, cLU_IROW, cLU_ICOL, cLU_CROW )\n  !$OMP THREADPRIVATE(  cLU_DIAG, JVS_MAP, SPC_MAP, iSPC_MAP, RMV, rNVAR, cNONZERO, KEEPACTIVE )\n! CFACTOR - Conversion factor for concentration units\n  REAL(kind=dp) :: CFACTOR\n\n! Begin inlined code from F90_GLOBAL\n\n#include \"commonIncludeVars.H\"\n\n! End inlined code from F90_GLOBAL\n\n\nEND MODULE gckpp_Global\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Initialize.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Initialization File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Initialize.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Initialize\n\n  USE gckpp_Parameters, ONLY: dp, NVAR, NFIX\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Initialize - function to initialize concentrations\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Initialize ( )\n\n\n  USE gckpp_Global\n\n  USE gckpp_Parameters\n\n  INTEGER :: i\n  REAL(kind=dp) :: x\n\n! ~~~ Define scale factor for units\n  CFACTOR = 1.000000e+00_dp\n\n! ~~~ Zero C array\n  C = 0.0_dp\n\n! ~~~ Set initial species concentrations\n\n! Begin constant rate coefficients\n  RCONST(126) = 4.51e-12\n  RCONST(735) = 7.09e-11\n! End constant rate coefficients\n\n! Begin inlined code from F90_INIT\n\n! End inlined code from F90_INIT\n\n      \nEND SUBROUTINE Initialize\n\n! End of Initialize function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Initialize\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Integrator.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Numerical Integrator (Time-Stepping) File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Integrator.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! INTEGRATE - Integrator routine\n!   Arguments :\n!      TIN       - Start Time for Integration\n!      TOUT      - End Time for Integration\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!\n!  Rosenbrock - Implementation of several Rosenbrock methods:             !\n!               * Ros2                                                    !\n!               * Ros3                                                    !\n!               * Ros4                                                    !\n!               * Rodas3                                                  !\n!               * Rodas4                                                  !\n!  By default the code employs the KPP sparse linear algebra routines     !\n!  Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK)        !\n!                                                                         !\n!    (C)  Adrian Sandu, August 2004                                       !\n!    Virginia Polytechnic Institute and State University                  !\n!    Contact: sandu@cs.vt.edu                                             !\n!    Revised by Philipp Miehe and Adrian Sandu, May 2006                  !\n!                                                                         !\n!    Revised by Mike Long and Haipeng Lin to add auto-reduce fun.         !\n!    Harvard University, Atmospheric Chemistry Modeling Group             !\n!    Contact: hplin@seas.harvard.edu                April 2022            !\n!                                                                         !\n!    This implementation is part of KPP - the Kinetic PreProcessor        !\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!\n\nMODULE gckpp_Integrator\n\n  USE gckpp_Parameters\n  USE gckpp_Global\n  IMPLICIT NONE\n  PUBLIC\n  SAVE\n\n!~~~> Flags to determine if we should call the UPDATE_* routines from within\n!~~~> the integrator.  If using KPP in an external model, you might want to\n!~~~> disable these calls (via ICNTRL(15)) to avoid excess computations.\n  LOGICAL, PRIVATE :: Do_Update_RCONST\n  LOGICAL, PRIVATE :: Do_Update_PHOTO\n  LOGICAL, PRIVATE :: Do_Update_SUN\n\n!~~~>  Statistics on the work performed by the Rosenbrock method\n  INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, &\n                        Nrej=5, Ndec=6, Nsol=7, Nsng=8, &\n                        Ntexit=1, Nhexit=2, Nhnew = 3,  &\n                        NARthr=4\n\nCONTAINS\n\nSUBROUTINE INTEGRATE( TIN,       TOUT,      ICNTRL_U, RCNTRL_U,  &\n                      ISTATUS_U, RSTATUS_U, IERR_U              )\n\n   USE gckpp_Util, ONLY : Integrator_Update_Options\n\n   IMPLICIT NONE\n\n   REAL(kind=dp), INTENT(IN) :: TIN  ! Start Time\n   REAL(kind=dp), INTENT(IN) :: TOUT ! End Time\n   !~~~> Optional input parameters and statistics\n   INTEGER,  INTENT(IN),  OPTIONAL :: ICNTRL_U(20)\n   REAL(kind=dp), INTENT(IN),  OPTIONAL :: RCNTRL_U(20)\n   INTEGER,  INTENT(OUT), OPTIONAL :: ISTATUS_U(20)\n   REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20)\n   INTEGER,  INTENT(OUT), OPTIONAL :: IERR_U\n\n   REAL(kind=dp) :: RCNTRL(20), RSTATUS(20)\n   INTEGER       :: ICNTRL(20), ISTATUS(20), IERR\n\n   INTEGER, SAVE :: Ntotal = 0\n\n   !~~~> Zero input and output arrays for safety's sake\n   ICNTRL     = 0\n   RCNTRL     = 0.0_dp\n   ISTATUS    = 0\n   RSTATUS    = 0.0_dp\n\n   !~~~> fine-tune the integrator:\n   ICNTRL(15) = 5       ! Call Update_SUN and Update_RCONST from w/in the int.\n\n   !~~~> if optional parameters are given, and if they are /= 0,\n   !     then use them to overwrite default settings\n   IF ( PRESENT( ICNTRL_U ) ) THEN\n      WHERE( ICNTRL_U /= 0 ) ICNTRL = ICNTRL_U\n   ENDIF\n   IF ( PRESENT( RCNTRL_U ) ) THEN\n      WHERE( RCNTRL_U > 0 ) RCNTRL = RCNTRL_U\n   ENDIF\n\n   !~~~> Determine the settings of the Do_Update_* flags, which determine\n   !~~~> whether or not we need to call Update_* routines in the integrator\n   !~~~> (or not, if we are calling them from a higher-level)\n   ! ICNTRL(15) = -1 ! Do not call Update_* functions within the integrator\n   !            =  0 ! Status quo\n   !            =  1 ! Call Update_RCONST from within the integrator\n   !            =  2 ! Call Update_PHOTO from within the integrator\n   !            =  3 ! Call Update_RCONST and Update_PHOTO from w/in the int.\n   !            =  4 ! Call Update_SUN from within the integrator\n   !            =  5 ! Call Update_SUN and Update_RCONST from within the int.\n   !            =  6 ! Call Update_SUN and Update_PHOTO from within the int.\n   !            =  7 ! Call Update_SUN, Update_PHOTO, Update_RCONST w/in int.\n   CALL Integrator_Update_Options( ICNTRL(15),          &\n                                   Do_Update_RCONST,    &\n                                   Do_Update_PHOTO,     &\n                                   Do_Update_Sun       )\n\n   !~~~> In order to remove the prior EQUIVALENCE statements (which\n   !~~~> are not thread-safe), we now have declared VAR and FIX as\n   !~~~> threadprivate pointer variables that can point to C.\n   VAR => C(1:NVAR )\n   FIX => C(NVAR+1:NSPEC)\n\n   !~~~> Call the integrator\n   CALL Rosenbrock( NVAR,   VAR,    TIN,     TOUT,    ATOL, RTOL,  &\n                    RCNTRL, ICNTRL, RSTATUS, ISTATUS, IERR        )\n\n   !~~~> Free pointers\n   VAR => NULL()\n   FIX => NULL()\n\n   !~~~> Debug option: show number of steps\n   !Ntotal = Ntotal + ISTATUS(Nstp)\n   !PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')','  O3=', VAR(ind_O3)\n\n   STEPMIN = RSTATUS(Nhexit)\n\n   !~~~> if optional parameters are given for output\n   !~~~> use them to store information in them\n   IF ( PRESENT( ISTATUS_U ) ) ISTATUS_U = ISTATUS\n   IF ( PRESENT( RSTATUS_U ) ) RSTATUS_U = RSTATUS\n   IF ( PRESENT( IERR_U    ) ) IERR_U    = IERR\n\nEND SUBROUTINE INTEGRATE\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE Rosenbrock(N,Y,Tstart,Tend, &\n           AbsTol,RelTol,              &\n           RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!    Solves the system y'=F(t,y) using a Rosenbrock method defined by:\n!\n!     G = 1/(H*gamma(1)) - Jac(t0,Y0)\n!     T_i = t0 + Alpha(i)*H\n!     Y_i = Y0 + \\sum_{j=1}^{i-1} A(i,j)*K_j\n!     G * K_i = Fun( T_i, Y_i ) + \\sum_{j=1}^S C(i,j)/H * K_j +\n!         gamma(i)*dF/dT(t0, Y0)\n!     Y1 = Y0 + \\sum_{j=1}^S M(j)*K_j\n!\n!    For details on Rosenbrock methods and their implementation consult:\n!      E. Hairer and G. Wanner\n!      \"Solving ODEs II. Stiff and differential-algebraic problems\".\n!      Springer series in computational mathematics, Springer-Verlag, 1996.\n!    The codes contained in the book inspired this implementation.\n!\n!    (C)  Adrian Sandu, August 2004\n!    Virginia Polytechnic Institute and State University\n!    Contact: sandu@cs.vt.edu\n!    Revised by Philipp Miehe and Adrian Sandu, May 2006\n!    This implementation is part of KPP - the Kinetic PreProcessor\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!~~~>   INPUT ARGUMENTS:\n!\n!-     Y(N)    = vector of initial conditions (at T=Tstart)\n!-    [Tstart,Tend]  = time range of integration\n!     (if Tstart>Tend the integration is performed backwards in time)\n!-    RelTol, AbsTol = user precribed accuracy\n!- SUBROUTINE  Fun( T, Y, Ydot ) = ODE function,\n!                       returns Ydot = Y' = F(T,Y)\n!- SUBROUTINE  Jac( T, Y, Jcb ) = Jacobian of the ODE function,\n!                       returns Jcb = dFun/dY\n!-    ICNTRL(1:20)    = integer inputs parameters\n!-    RCNTRL(1:20)    = real inputs parameters\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!~~~>     OUTPUT ARGUMENTS:\n!\n!-    Y(N)    -> vector of final states (at T->Tend)\n!-    ISTATUS(1:20)   -> integer output parameters\n!-    RSTATUS(1:20)   -> real output parameters\n!-    IERR            -> job status upon return\n!                        success (positive value) or\n!                        failure (negative value)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!~~~>     INPUT PARAMETERS:\n!\n!    Note: For input parameters equal to zero the default values of the\n!       corresponding variables are used.\n!\n!    ICNTRL(1) = 1: F = F(y)   Independent of T (AUTONOMOUS)\n!              = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS)\n!\n!    ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors\n!              = 1: AbsTol, RelTol are scalars\n!\n!    ICNTRL(3)  -> selection of a particular Rosenbrock method\n!        = 0 :    Rodas3 (default)\n!        = 1 :    Ros2\n!        = 2 :    Ros3\n!        = 3 :    Ros4\n!        = 4 :    Rodas3\n!        = 5 :    Rodas4\n!\n!    ICNTRL(4)  -> maximum number of integration steps\n!        For ICNTRL(4)=0) the default value of 200000 is used\n!\n!    ICNTRL(12)  -> use auto-reduce solver? set threshold in RCNTRL(12)\n!    ICNTRL(13)  -> ... append slow species when auto-reducing?\n!    ICNTRL(14) -> choose a target species instead for determining threshold?\n!                  if yes, specify idx. then RCNTRL(12) is obsolete.\n!\n!    ICNTRL(15) -> Toggles calling of Update_* functions w/in the integrator\n!        = -1 :  Do not call Update_* functions within the integrator\n!        =  0 :  Status quo\n!        =  1 :  Call Update_RCONST from within the integrator\n!        =  2 :  Call Update_PHOTO from within the integrator\n!        =  3 :  Call Update_RCONST and Update_PHOTO from w/in the int.\n!        =  4 :  Call Update_SUN from within the integrator\n!        =  5 :  Call Update_SUN and Update_RCONST from within the int.\n!        =  6 :  Call Update_SUN and Update_PHOTO from within the int.\n!        =  7 :  Call Update_SUN, Update_PHOTO, Update_RCONST w/in the int.\n!\n!    ICNTRL(16) -> \n!        = 0 : allow negative concentrations (default)\n!        = 1 : set negative concentrations to zero\n!\n!    RCNTRL(1)  -> Hmin, lower bound for the integration step size\n!          It is strongly recommended to keep Hmin = ZERO\n!    RCNTRL(2)  -> Hmax, upper bound for the integration step size\n!    RCNTRL(3)  -> Hstart, starting value for the integration step size\n!\n!    RCNTRL(4)  -> FacMin, lower bound on step decrease factor (default=0.2)\n!    RCNTRL(5)  -> FacMax, upper bound on step increase factor (default=6)\n!    RCNTRL(6)  -> FacRej, step decrease factor after multiple rejections\n!                          (default=0.1)\n!    RCNTRL(7)  -> FacSafe, by which the new step is slightly smaller\n!         than the predicted value  (default=0.9)\n!\n!    RCNTRL(12) -> threshold for auto-reduction (req. ICNTRL(12)) (default=100)\n!    RCNTRL(14) -> AR threshold ratio (default=0.01)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!\n!    OUTPUT ARGUMENTS:\n!    -----------------\n!\n!    T           -> T value for which the solution has been computed\n!                     (after successful return T=Tend).\n!\n!    Y(N)        -> Numerical solution at T\n!\n!    IDID        -> Reports on successfulness upon return:\n!                    = 1 for success\n!                    < 0 for error (value equals error code)\n!\n!    ISTATUS(1)  -> No. of function calls\n!    ISTATUS(2)  -> No. of jacobian calls\n!    ISTATUS(3)  -> No. of steps\n!    ISTATUS(4)  -> No. of accepted steps\n!    ISTATUS(5)  -> No. of rejected steps (except at very beginning)\n!    ISTATUS(6)  -> No. of LU decompositions\n!    ISTATUS(7)  -> No. of forward/backward substitutions\n!    ISTATUS(8)  -> No. of singular matrix decompositions\n!\n!    RSTATUS(1)  -> Texit, the time corresponding to the\n!                     computed Y upon return\n!    RSTATUS(2)  -> Hexit, last accepted step before exit\n!    RSTATUS(3)  -> Hnew, last predicted step (not yet taken)\n!                   For multiple restarts, use Hnew as Hstart\n!                     in the subsequent run\n!    RSTATUS(4)  -> ARthr, last auto-reduction threshold determined\n!                   only if AR is on (ICNTRL(12)) and key spc (ICNTRL(14))\n!\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_LinearAlgebra\n  IMPLICIT NONE\n\n!~~~>  Arguments\n   INTEGER,       INTENT(IN)    :: N\n   REAL(kind=dp), INTENT(INOUT) :: Y(N)\n   REAL(kind=dp), INTENT(IN)    :: Tstart,Tend\n   REAL(kind=dp), INTENT(IN)    :: AbsTol(N),RelTol(N)\n   INTEGER,       INTENT(IN)    :: ICNTRL(20)\n   REAL(kind=dp), INTENT(IN)    :: RCNTRL(20)\n   INTEGER,       INTENT(INOUT) :: ISTATUS(20)\n   REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20)\n   INTEGER, INTENT(OUT)   :: IERR\n!~~~>  Parameters of the Rosenbrock method, up to 6 stages\n   INTEGER ::  ros_S, rosMethod\n   INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6\n   REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), &\n                    ros_Alpha(6), ros_Gamma(6), ros_ELO\n   LOGICAL :: ros_NewF(6)\n   CHARACTER(LEN=12) :: ros_Name\n!~~~>  Local variables\n   REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe\n   REAL(kind=dp) :: Hmin, Hmax, Hstart\n   REAL(kind=dp) :: Texit, Redux_Threshold\n   INTEGER       :: i, UplimTol, Max_no_steps\n   LOGICAL       :: Autonomous, VectorTol, Autoreduce, Autoreduce_Append\n   INTEGER       :: AR_target_spc\n   REAL(kind=dp) :: AR_thr_ratio\n!~~~>   Parameters\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp\n   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp\n\n!~~~>  Initialize statistics\n   ISTATUS(1:8) = 0\n   RSTATUS(1:4) = ZERO\n\n!~~~>  Autonomous or time dependent ODE. Default is time dependent.\n   Autonomous = .NOT.(ICNTRL(1) == 0)\n\n!~~~>  For Scalar tolerances (ICNTRL(2).NE.0)  the code uses AbsTol(1) and RelTol(1)\n!   For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N)\n   IF (ICNTRL(2) == 0) THEN\n      VectorTol = .TRUE.\n      UplimTol  = N\n   ELSE\n      VectorTol = .FALSE.\n      UplimTol  = 1\n   END IF\n\n!~~~>   Initialize the particular Rosenbrock method selected\n   SELECT CASE (ICNTRL(3))\n     CASE (1)\n       CALL Ros2\n     CASE (2)\n       CALL Ros3\n     CASE (3)\n       CALL Ros4\n     CASE (0,4)\n       CALL Rodas3\n     CASE (5)\n       CALL Rodas4\n     CASE (6)\n       CALL Rang3\n     CASE DEFAULT\n       PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3)\n       CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR)\n       RETURN\n   END SELECT\n\n!~~~>   The maximum number of steps admitted\n   IF (ICNTRL(4) == 0) THEN\n      Max_no_steps = 200000\n   ELSEIF (ICNTRL(4) > 0) THEN\n      Max_no_steps=ICNTRL(4)\n   ELSE\n      PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4)\n      CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n\n!~~~> Auto-reduction toggle\n   Autoreduce    = .false.\n   IF (ICNTRL(12) == 1) Autoreduce = .true.\n\n   Autoreduce_Append = ICNTRL(13) == 1\n!~~~> Target species (if zero, uses the regular threshold)\n   AR_target_spc = ICNTRL(14)\n\n!~~~>  Unit roundoff (1+Roundoff>1)\n   Roundoff = WLAMCH('E')\n\n!~~~>  Lower bound on the step size: (positive value)\n   IF (RCNTRL(1) == ZERO) THEN\n      Hmin = ZERO\n   ELSEIF (RCNTRL(1) > ZERO) THEN\n      Hmin = RCNTRL(1)\n   ELSE\n      PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1)\n      CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Upper bound on the step size: (positive value)\n   IF (RCNTRL(2) == ZERO) THEN\n      Hmax = ABS(Tend-Tstart)\n   ELSEIF (RCNTRL(2) > ZERO) THEN\n      Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart))\n   ELSE\n      PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2)\n      CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Starting step size: (positive value)\n   IF (RCNTRL(3) == ZERO) THEN\n      Hstart = MAX(Hmin,DeltaMin)\n   ELSEIF (RCNTRL(3) > ZERO) THEN\n      Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart))\n   ELSE\n      PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3)\n      CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Step size can be changed s.t.  FacMin < Hnew/Hold < FacMax\n   IF (RCNTRL(4) == ZERO) THEN\n      FacMin = 0.2_dp\n   ELSEIF (RCNTRL(4) > ZERO) THEN\n      FacMin = RCNTRL(4)\n   ELSE\n      PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n   IF (RCNTRL(5) == ZERO) THEN\n      FacMax = 6.0_dp\n   ELSEIF (RCNTRL(5) > ZERO) THEN\n      FacMax = RCNTRL(5)\n   ELSE\n      PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>   FacRej: Factor to decrease step after 2 succesive rejections\n   IF (RCNTRL(6) == ZERO) THEN\n      FacRej = 0.1_dp\n   ELSEIF (RCNTRL(6) > ZERO) THEN\n      FacRej = RCNTRL(6)\n   ELSE\n      PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>   FacSafe: Safety Factor in the computation of new step size\n   IF (RCNTRL(7) == ZERO) THEN\n      FacSafe = 0.9_dp\n   ELSEIF (RCNTRL(7) > ZERO) THEN\n      FacSafe = RCNTRL(7)\n   ELSE\n      PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7)\n      CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR)\n      RETURN\n   END IF\n!~~~>  Check if tolerances are reasonable\n    DO i=1,UplimTol\n      IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) &\n         .OR. (RelTol(i) >= 1.0_dp) ) THEN\n        PRINT * , ' AbsTol(',i,') = ',AbsTol(i)\n        PRINT * , ' RelTol(',i,') = ',RelTol(i)\n        CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR)\n        RETURN\n      END IF\n    END DO\n!~~~> Auto-reduction threshold\n    Redux_threshold = 1.d2\n    IF (RCNTRL(12) > ZERO) THEN\n       Redux_Threshold = RCNTRL(12)\n    ELSEIF (RCNTRL(12) < ZERO) THEN\n       Autoreduce = .false.\n    ENDIF\n!~~~> Auto-reduction threshold ratio (only if ICNTRL(14) is not zero)\n    AR_thr_ratio = RCNTRL(14)\n!~~~>  CALL Auto-reducing Rosenbrock method\n    IF ( Autoreduce .and. .not. Autoreduce_Append ) THEN\n         ! ros_yIntegrator is the aggressively micro-optimized revision by Haipeng Lin.\n         ! ros_cIntegrator is the original auto-reduce implementation by Mike Long.\n         CALL ros_yIntegrator(Y, Tstart, Tend, Texit,   &\n         AbsTol, RelTol,                          &\n         !  Integration parameters\n         Autonomous, VectorTol, Max_no_steps,     &\n         Roundoff, Hmin, Hmax, Hstart,            &\n         FacMin, FacMax, FacRej, FacSafe,         &\n         ! Autoreduce threshold\n         redux_threshold, AR_target_spc,          &\n         AR_thr_ratio,                            &\n         !  Error indicator\n         IERR)\n    ENDIF\n\n!~~~> CALL Auto-reducing Rosenbrock method capable of append\n! (this version is less aggressively optimized.)\n    IF ( Autoreduce .and. Autoreduce_Append ) THEN\n         ! ros_yIntegratorA is the append version of the AR integrator. It has less\n         ! optimizations because of the need to update Prod/Loss.\n         CALL ros_yIntegratorA(Y, Tstart, Tend, Texit,   &\n         AbsTol, RelTol,                          &\n         !  Integration parameters\n         Autonomous, VectorTol, Max_no_steps,     &\n         Roundoff, Hmin, Hmax, Hstart,            &\n         FacMin, FacMax, FacRej, FacSafe,         &\n         ! Autoreduce threshold\n         redux_threshold, AR_target_spc,          &\n         AR_thr_ratio,                            &\n         !  Error indicator\n         IERR)\n    ENDIF\n    \n!~~~>  CALL Normal Rosenbrock method\n    IF ( .not. Autoreduce .or. IERR .eq. -99 ) &\n         CALL ros_Integrator(Y, Tstart, Tend, Texit,   &\n         AbsTol, RelTol,                          &\n         !  Integration parameters\n         Autonomous, VectorTol, Max_no_steps,     &\n         Roundoff, Hmin, Hmax, Hstart,            &\n         FacMin, FacMax, FacRej, FacSafe,         &\n         !  Error indicator\n         IERR)\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nCONTAINS !  SUBROUTINES internal to Rosenbrock\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n SUBROUTINE ros_ErrorMsg(Code,T,H,IERR)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!    Handles all error messages\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   REAL(kind=dp), INTENT(IN) :: T, H\n   INTEGER, INTENT(IN)  :: Code\n   INTEGER, INTENT(OUT) :: IERR\n\n   IERR = Code\n   PRINT * , &\n     'Forced exit from Rosenbrock due to the following error:'\n\n   SELECT CASE (Code)\n    CASE (-1)\n      PRINT * , '--> Improper value for maximal no of steps'\n    CASE (-2)\n      PRINT * , '--> Selected Rosenbrock method not implemented'\n    CASE (-3)\n      PRINT * , '--> Hmin/Hmax/Hstart must be positive'\n    CASE (-4)\n      PRINT * , '--> FacMin/FacMax/FacRej must be positive'\n    CASE (-5)\n      PRINT * , '--> Improper tolerance values'\n    CASE (-6)\n      PRINT * , '--> No of steps exceeds maximum bound'\n    CASE (-7)\n      PRINT * , '--> Step size too small: T + 10*H = T', &\n            ' or H < Roundoff'\n    CASE (-8)\n      PRINT * , '--> Matrix is repeatedly singular'\n    CASE DEFAULT\n      PRINT *, 'Unknown Error code: ', Code\n   END SELECT\n\n   PRINT *, \"T=\", T, \"and H=\", H\n\n END SUBROUTINE ros_ErrorMsg\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n SUBROUTINE ros_Integrator (Y, Tstart, Tend, T,  &\n        AbsTol, RelTol,                          &\n!~~~> Integration parameters\n        Autonomous, VectorTol, Max_no_steps,     &\n        Roundoff, Hmin, Hmax, Hstart,            &\n        FacMin, FacMax, FacRej, FacSafe,         &\n!~~~> Error indicator\n        IERR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Template for the implementation of a generic Rosenbrock method\n!      defined by ros_S (no of stages)\n!      and its coefficients ros_{A,C,M,E,Alpha,Gamma}\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  IMPLICIT NONE\n\n!~~~> Input: the initial condition at Tstart; Output: the solution at T\n   REAL(kind=dp), INTENT(INOUT) :: Y(N)\n!~~~> Input: integration interval\n   REAL(kind=dp), INTENT(IN) :: Tstart,Tend\n!~~~> Output: time at which the solution is returned (T=Tend if success)\n   REAL(kind=dp), INTENT(OUT) ::  T\n!~~~> Input: tolerances\n   REAL(kind=dp), INTENT(IN) ::  AbsTol(N), RelTol(N)\n!~~~> Input: integration parameters\n   LOGICAL, INTENT(IN) :: Autonomous, VectorTol\n   REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax\n   INTEGER, INTENT(IN) :: Max_no_steps\n   REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe\n!~~~> Output: Error indicator\n   INTEGER, INTENT(OUT) :: IERR\n! ~~~~ Local variables\n   REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N)\n   REAL(kind=dp) :: K(N*ros_S), dFdT(N)\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N)\n#else\n   REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO)\n#endif\n   REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau\n   REAL(kind=dp) :: Err, Yerr(N)\n   INTEGER :: Pivot(N), Direction, ioffset, j, istage\n   LOGICAL :: RejectLastH, RejectMoreH, Singular\n!~~~>  Local parameters\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp\n   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp\n!~~~>  Locally called functions\n!    REAL(kind=dp) WLAMCH\n!    EXTERNAL WLAMCH\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n!~~~>  Initial preparations\n   DO_SLV  = .true.\n   DO_FUN  = .true.\n   DO_JVS  = .true.\n   \n   T = Tstart\n   RSTATUS(Nhexit) = ZERO\n   H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) )\n   IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin\n\n   IF (Tend  >=  Tstart) THEN\n     Direction = +1\n   ELSE\n     Direction = -1\n   END IF\n   H = Direction*H\n\n   RejectLastH=.FALSE.\n   RejectMoreH=.FALSE.\n\n!~~~> Time loop begins below\n\nTimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) &\n       .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) )\n\n   IF ( ISTATUS(Nstp) > Max_no_steps ) THEN  ! Too many steps\n      CALL ros_ErrorMsg(-6,T,H,IERR)\n      RETURN\n   END IF\n   IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN  ! Step size too small\n      CALL ros_ErrorMsg(-7,T,H,IERR)\n      RETURN\n   END IF\n\n!~~~>  Limit H if necessary to avoid going beyond Tend\n   H = MIN(H,ABS(Tend-T))\n\n!~~~>   Compute the function at current time\n   CALL FunTemplate( T, Y, Fcn0 )\n   ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n\n!~~~>  Compute the function derivative with respect to T\n   IF (.NOT.Autonomous) THEN\n      CALL ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT )\n   END IF\n\n!~~~>   Compute the Jacobian at current time\n   CALL JacTemplate( T, Y, Jac0 )\n   ISTATUS(Njac) = ISTATUS(Njac) + 1\n\n!~~~>  Repeat step calculation until current step accepted\nUntilAccepted: DO\n\n   CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), &\n          Jac0,Ghimj,Pivot,Singular)\n   IF (Singular) THEN ! More than 5 consecutive failed decompositions\n       CALL ros_ErrorMsg(-8,T,H,IERR)\n       RETURN\n   END IF\n\n!~~~>   Compute the stages\nStage: DO istage = 1, ros_S\n\n      ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N)\n       ioffset = N*(istage-1)\n\n      ! For the 1st istage the function has been computed previously\n       IF ( istage == 1 ) THEN\n         !slim: CALL WCOPY(N,Fcn0,1,Fcn,1)\n         Fcn(1:N) = Fcn0(1:N)\n      ! istage>1 and a new function evaluation is needed at the current istage\n       ELSEIF ( ros_NewF(istage) ) THEN\n         !slim: CALL WCOPY(N,Y,1,Ynew,1)\n         Ynew(1:N) = Y(1:N)\n         DO j = 1, istage-1\n           CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), &\n            K(N*(j-1)+1),1,Ynew,1)\n         END DO\n         Tau = T + ros_Alpha(istage)*Direction*H\n         CALL FunTemplate( Tau, Ynew, Fcn )\n         ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n       END IF ! if istage == 1 elseif ros_NewF(istage)\n       !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1)\n       K(ioffset+1:ioffset+N) = Fcn(1:N)\n       DO j = 1, istage-1\n         HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H)\n         CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1)\n       END DO\n       IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN\n         HG = Direction*H*ros_Gamma(istage)\n         CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1)\n       END IF\n       CALL ros_Solve(Ghimj, Pivot, K(ioffset+1))\n\n   END DO Stage\n\n\n!~~~>  Compute the new solution\n   !slim: CALL WCOPY(N,Y,1,Ynew,1)\n   Ynew(1:N) = Y(1:N)\n   DO j=1,ros_S\n         CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1)\n   END DO\n\n!~~~>  Compute the error estimation\n   !slim: CALL WSCAL(N,ZERO,Yerr,1)\n   Yerr(1:N) = ZERO\n   DO j=1,ros_S\n        CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1)\n   END DO\n   Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol )\n\n!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax\n   Fac  = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO)))\n   Hnew = H*Fac\n\n!~~~>  Check the error magnitude and adjust step size\n   ISTATUS(Nstp) = ISTATUS(Nstp) + 1\n   IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN  !~~~> Accept step\n      ISTATUS(Nacc) = ISTATUS(Nacc) + 1\n      IF (ICNTRL(16) == 1) THEN\n        ! new value is non-negative:\n        Y = MAX(Ynew,ZERO)\n      ELSE\n        !slim: CALL WCOPY(N,Ynew,1,Y,1)\n        Y(1:N) = Ynew(1:N)\n      ENDIF      \n      T = T + Direction*H\n      Hnew = MAX(Hmin,MIN(Hnew,Hmax))\n      IF (RejectLastH) THEN  ! No step size increase after a rejected step\n         Hnew = MIN(Hnew,H)\n      END IF\n      RSTATUS(Nhexit) = H\n      RSTATUS(Nhnew)  = Hnew\n      RSTATUS(Ntexit) = T\n      RejectLastH = .FALSE.\n      RejectMoreH = .FALSE.\n      H = Hnew\n      EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED\n   ELSE           !~~~> Reject step\n      IF (RejectMoreH) THEN\n         Hnew = H*FacRej\n      END IF\n      RejectMoreH = RejectLastH\n      RejectLastH = .TRUE.\n      H = Hnew\n      IF (ISTATUS(Nacc) >= 1)  ISTATUS(Nrej) = ISTATUS(Nrej) + 1\n   END IF ! Err <= 1\n\n   END DO UntilAccepted\n\n   END DO TimeLoop\n\n!~~~> Succesful exit\n   IERR = 1  !~~~> The integration was successful\n\n  END SUBROUTINE ros_Integrator\n\n !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n SUBROUTINE ros_yIntegrator (Y, Tstart, Tend, T,  &\n        AbsTol, RelTol,                          &\n!~~~> Integration parameters\n        Autonomous, VectorTol, Max_no_steps,     &\n        Roundoff, Hmin, Hmax, Hstart,            &\n        FacMin, FacMax, FacRej, FacSafe,         &\n!~~~> Autoreduce threshold\n        threshold, AR_target_spc, AR_thr_ratio,  &\n!~~~> Error indicator\n        IERR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Template for the implementation of a generic Rosenbrock method\n!      defined by ros_S (no of stages)\n!      and its coefficients ros_{A,C,M,E,Alpha,Gamma}\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Alternative micro-optimized implementation, hplin, 4/10/22\n! which does not resize arrays to rNVAR, instead always keeping to full N size\n! and skipping using DO_SLV\n!\n! All compiled assembly code was verified just short of linking to a proper BLAS.\n\n   USE gckpp_Global,  ONLY : cNONZERO, rNVAR\n   use gckpp_Monitor, ONLY : SPC_NAMES\n   USE gckpp_JacobianSP\n\n  IMPLICIT NONE\n\n!~~~> Input: the initial condition at Tstart; Output: the solution at T\n   REAL(kind=dp), INTENT(INOUT) :: Y(N)\n!~~~> Input: integration interval\n   REAL(kind=dp), INTENT(IN) :: Tstart,Tend\n!~~~> Output: time at which the solution is returned (T=Tend if success)\n   REAL(kind=dp), INTENT(OUT) ::  T\n!~~~> Input: tolerances\n   REAL(kind=dp), INTENT(IN) ::  AbsTol(N), RelTol(N)\n!~~~> Input: integration parameters\n   LOGICAL, INTENT(IN) :: Autonomous, VectorTol\n   REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax\n   INTEGER, INTENT(IN) :: Max_no_steps\n   REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe\n!~~~> Autoreduction threshold\n   REAL(kind=dp), INTENT(IN) :: threshold\n!~~~> Output: Error indicator\n   INTEGER, INTENT(OUT) :: IERR\n! ~~~~ Local variables\n   REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N), Prod(N), Loss(N), LossY(N)\n   REAL(kind=dp) :: K(NVAR*ros_S), dFdT(N)\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N)\n#else\n   REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO)\n   REAL(kind=dp) :: cGhimj(LU_NONZERO) ! not known at this point what cNONZERO will be\n#endif\n   REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau\n   REAL(kind=dp) :: Err, Yerr(N), Yerrsub(NVAR)\n   INTEGER :: Pivot(N), Direction, ioffset, j, istage\n   LOGICAL :: RejectLastH, RejectMoreH, Singular, Reduced\n!~~~>  Local parameters\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp\n   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp\n   INTEGER :: SPC\n   REAL(kind=dp) :: alpha_factor ! hplin 4/10/22\n!      Inline local parameters for AR.\n   INTEGER :: II, III, idx, nrmv, s\n   REAL(kind=dp), INTENT(IN) :: AR_thr_ratio\n   REAL(kind=dp) :: AR_thr\n   INTEGER, INTENT(IN) :: AR_target_spc\n!~~~>  Initial preparations\n   DO_SLV  = .true.\n   DO_FUN  = .true.\n   DO_JVS  = .true.\n   Reduced = .false.\n\n   T = Tstart\n   RSTATUS(Nhexit) = ZERO\n   H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) )\n   IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin\n\n   IF (Tend  >=  Tstart) THEN\n     Direction = +1\n   ELSE\n     Direction = -1\n   END IF\n   H = Direction*H\n\n   RejectLastH=.FALSE.\n   RejectMoreH=.FALSE.\n\n   ! reset K - hplin. this is a multiplier that gets applied to ros_A and ros_M\n   K = 0.0_dp\n   Ghimj = 0.0_dp\n\n!~~~> Time loop begins below\n\nTimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) &\n       .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) )\n\n   IF ( ISTATUS(Nstp) > Max_no_steps ) THEN  ! Too many steps\n      CALL ros_ErrorMsg(-6,T,H,IERR)\n      RETURN\n   ENDIF\n   IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN  ! Step size too small\n      CALL ros_ErrorMsg(-7,T,H,IERR)\n      RETURN\n   ENDIF\n\n!~~~>  Limit H if necessary to avoid going beyond Tend\n   H = MIN(H,ABS(Tend-T))\n\n   ! ... 0.40% ... 5.2 %\n\n!~~~>   Compute the function at current time\n! this is necessary anyway for the rest of the time loop. do not optimize out.\n   IF (T .eq. Tstart) THEN\n      CALL FunSplitF(T,Y,Fcn0,Prod,Loss,LossY) ! always calculates PL.\n   ELSE  ! ELSE or ne seems reasonably close in performance.\n      CALL FunSplitN(T,Y,Fcn0)\n   ENDIF\n   ! The above Prod, Loss were updated at every TimeLoop, so they no longer\n   ! reflect initial condition. The copy operation is extremely expensive,\n   ! so we instead run it once at the beginning of the timeloop and use a IF\n   ! to switch it to a wholy different codepath...\n   ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n\n   ! ... 1.02% ... 13.00%\n\n!~~~>  Parse species for reduced computation\n   if (.not. reduced) then\n      ! Inline the entire reduction operation here.\n      iSPC_MAP = 0\n      NRMV     = 0\n      S        = 1\n      AR_thr   = threshold\n\n      ! Target species?\n      if(AR_target_spc .gt. 0) then\n          AR_thr = AR_thr_ratio * max(LossY(AR_target_spc), Prod(AR_target_spc))           ! Lin et al., 2022 in prep.\n          RSTATUS(NARthr) = AR_thr\n      endif\n\n      ! Checks should be kept out of tight inner loops.\n      IF(keepActive) THEN\n       DO i=1,NVAR\n         ! Short-circuiting using SKIP is very important here.\n         if (.not. keepSpcActive(i) .and. &\n             abs(LossY(i)).lt.AR_thr .and. abs(Prod(i)).lt.AR_thr) then ! per Shen et al., 2020\n            NRMV=NRMV+1\n            ! RMV(NRMV) = i ! not needed unless in append version.\n            DO_SLV(i) = .false.\n            ! DO_FUN(i) = .false.\n            cycle\n         endif\n         SPC_MAP(S)  = i ! Add to full spc map.\n         iSPC_MAP(i) = S\n         S=S+1\n       ENDDO\n      ENDIF\n\n      IF (.not. keepActive) THEN\n        DO i=1,NVAR\n         ! Short-circuiting using SKIP is very important here.\n         if (abs(LossY(i)).lt.AR_thr .and. abs(Prod(i)).lt.AR_thr) then ! per Shen et al., 2020\n            NRMV=NRMV+1\n            ! RMV(NRMV) = i ! not needed unless in append version.\n            DO_SLV(i) = .false.\n            ! DO_FUN(i) = .false.\n            cycle\n         endif\n         SPC_MAP(S)  = i ! Add to full spc map.\n         iSPC_MAP(i) = S\n         S=S+1\n       ENDDO\n      ENDIF\n\n      rNVAR    = NVAR-NRMV ! Number of active species in the reduced mechanism\n      II  = 1\n      III = 1\n      idx = 0\n      ! This loop can be unrolled into two branches.\n      ScanFirstNonZero: DO i = 1,LU_NONZERO\n         IF ((DO_SLV(LU_IROW(i))).and.(DO_SLV(LU_ICOL(i)))) THEN\n            idx = 1\n            cLU_IROW(1) = iSPC_MAP(LU_IROW(i))\n            cLU_ICOL(1) = iSPC_MAP(LU_ICOL(i))\n            JVS_MAP(1)  = i\n            EXIT ScanFirstNonZero\n         ENDIF\n         DO_JVS(i) = .false.\n      ENDDO ScanFirstNonZero\n      DO i = i+1,LU_NONZERO ! There is no escape for looping through LU_NONZERO here.\n         IF ((DO_SLV(LU_IROW(i))).and.(DO_SLV(LU_ICOL(i)))) THEN\n            idx=idx+1 ! counter for the number of non-zero elements in the reduced Jacobian\n            cLU_IROW(idx) = iSPC_MAP(LU_IROW(i))\n            cLU_ICOL(idx) = iSPC_MAP(LU_ICOL(i))\n            JVS_MAP(idx)  = i\n\n            IF (cLU_IROW(idx).ne.cLU_IROW(idx-1)) THEN\n               II=II+1\n               cLU_CROW(II) = idx\n            ENDIF\n            IF (cLU_IROW(idx).eq.cLU_ICOL(idx)) THEN\n               III=III+1\n               cLU_DIAG(III) = idx\n            ENDIF\n            CYCLE\n         ENDIF\n         DO_JVS(i) = .false.\n      ENDDO\n\n     cNONZERO = idx\n     cLU_CROW(1)       = 1 ! 1st index = 1\n     cLU_DIAG(1)       = 1 ! 1st index = 1\n     cLU_CROW(rNVAR+1) = cNONZERO+1\n     cLU_DIAG(rNVAR+1) = cLU_DIAG(rNVAR)+1\n\n     ! this loop approximately 0.6% ... 7.8%\n     reduced = .true.\n   endif\n   !return\n\n   ! ... 1.86% ... 26% // 1.77% ...\n\n!~~~>  Compute the function derivative with respect to T\n   IF (.NOT.Autonomous) THEN\n      CALL ros_FunTimeDerivative ( T, Roundoff, Y, &\n                Fcn0, dFdT )\n   END IF\n\n   ! 1.86 ~ 1.90%\n\n!~~~>   Compute the Jacobian at current time\n   CALL JacTemplate(T,Y,Jac0) ! Reacts to DO_JVS()\n   ISTATUS(Njac) = ISTATUS(Njac) + 1\n!~~~>  Repeat step calculation until current step accepted\nUntilAccepted: DO\n\n   CALL ros_cPrepareMatrix(H,Direction,ros_Gamma(1), &\n          Jac0,cGhimj,Pivot,Singular) ! calculate Ghimj as cGhimj(cNONZERO).\n   ! cGhimj all elem are rewritten so no need to zero out - warning - hplin 4/10/22\n   !\n   ! this step has one skip addressing step, -Jac0(JVS_MAP(1:cNONZERO)). slow.\n   ! ros_cDecomp is continuous.\n\n   IF (Singular) THEN ! More than 5 consecutive failed decompositions\n       CALL ros_ErrorMsg(-8,T,H,IERR)\n       RETURN\n   ENDIF\n\n   ! map cNONZERO back to full space. this step is very slow.\n   DO i = 1, cNONZERO\n      Ghimj(JVS_MAP(i)) = cGhimj(i)\n   ENDDO\n   ! Ghimj(JVS_MAP(1:cNONZERO)) = cGhimj\n   ! The above implementation seems to make -fcheck=bounds unhappy\n   ! and cause a segfault at -O3. The asm jumps seemed weird, so we\n   ! just explicitly write out the loop.\n\n!~~~>   Compute the stages\nStage: DO istage = 1, ros_S\n\n      ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N)\n       ioffset = N*(istage-1) ! note this is full space\n\n      ! For the 1st istage the function has been computed previously\n       IF ( istage == 1 ) THEN\n         call WCOPY(N,Fcn0,1,Fcn,1)\n         ! Fcn(1:N) = Fcn0(1:N)\n         ! istage>1 and a new function evaluation is needed at the current istage\n         ! K = 0.0_dp ! is this fix needed? hplin 14:04 -- not. 3 hours wiser later\n       ELSEIF ( ros_NewF(istage) ) THEN\n         call WCOPY(N,Y,1,Ynew,1)\n         ! Ynew(1:N) = Y(1:N)\n         DO j = 1, istage-1\n            ! In full vector space. Just use WAXPY as normal\n            ! other entries in K are set to 1 previously.\n            ! the rest are filled by Fcn.\n\n            !          N  alpha                             x                y .... Y <- Y + a*X.\n            ! i.e. Ynew <- Ynew + ros_A(..) * K. for !DO_FUN, we want K === 0\n            ! if there are entries in x that are zero naturally they do not carry into Ynew.\n            !\n            ! otherwise Ynew will be wrongly updated\n\n            ! order of operations here is from K(N*(j-1)+1:N*j+1), total of N elem.\n            ! K for !DO_FUN should not be updated.\n            ! in fact, K is reasonably sparse here.\n\n            ! full version:\n            ! CALL WAXPY(N, ros_A((istage-1)*(istage-2)/2+j), K(N*(j-1)+1), 1, Ynew, 1)\n\n            ! only rNVAR version - maybe loops need to be unrolled: (15:39)\n            alpha_factor = ros_A((istage-1)*(istage-2)/2+j)\n            DO i = 1,rNVAR\n               Ynew(SPC_MAP(i)) = Ynew(SPC_MAP(i)) + alpha_factor * K(N*(j-1)+SPC_MAP(i))\n            ENDDO\n         END DO\n         Tau = T + ros_Alpha(istage)*Direction*H\n         CALL FunSplitN(Tau,Ynew,Fcn)\n         ! this step reacts to DO_FUN.\n         ! Fcn is updated thru Fun_Split(Ynew,..,..,P,D), Fcn <- P - D*Ynew\n         ! P and D are only updated iff. DO_FUN is set to true. otherwise they are zero\n         ! the purpose is for Fcn to be zero for !DO_FUNs so K is set to 0 for them, so delta is 0.\n         ! this looks okay then. 4/10/22 13:36 hplin\n         ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n       END IF ! if istage == 1 elseif ros_NewF(istage)\n       ! K(ioffset+1:ioffset+rNVAR) = Fcn(SPC_MAP(1:rNVAR))\n\n      ! now operate on full space for all of below.\n      ! full version:\n      ! K(ioffset+1:ioffset+N) = Fcn(1:N)\n\n      ! faster version: (this copy also feels expensive...)\n      ! unroll j = 1 stage iff. istage-1>1, otherwise this is skipped.\n      IF(istage .gt. 1) THEN\n         HC = ros_C((istage-1)*(istage-2)/2+1)/(Direction*H)\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = Fcn(SPC_MAP(i)) + HC * K(SPC_MAP(i))\n         ENDDO\n      ENDIF\n\n      IF(istage .eq. 1) THEN\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = Fcn(SPC_MAP(i))\n         ENDDO\n      ENDIF\n\n      DO j = 2, istage-1\n         HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H)\n\n         ! full version\n         ! K(ioffset+1:ioffset+1+N) <- K(ioffset+1:ioffset+1+N) + HC*K(N*(j-1)+1)\n         ! CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1)\n         ! K also updated here...\n         ! write(6,*) \"istage,kupd2\",istage,K(ioffset+1:ioffset+1+N)\n\n         ! faster version:\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = K(ioffset+SPC_MAP(i)) + HC * K(N*(j-1)+SPC_MAP(i))\n         ENDDO\n         ! CALL zWAXPY(N,HC,K(N*(j-1)+1),K(ioffset+1),SPC_MAP)\n         ! loop unrolling is consistently slower here. 18:58\n      ENDDO\n\n      IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN\n         HG = Direction*H*ros_Gamma(istage)\n\n         ! full version: CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1)\n         ! faster version:\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = K(ioffset+SPC_MAP(i)) + HG * dFdT(SPC_MAP(i))\n         ENDDO\n      ENDIF\n\n      ! CALL ros_cSolve(Ghimj(1:cNONZERO), Pivot, K(ioffset+1), JVS_MAP, SPC_MAP)\n      ! this means that ros_cSolve now does not need to be mapped back to full space here\n      ! avoiding several full maps.\n      !\n      ! K is passed to ros_Solve -> KppSolve, which responds to DO_SLV.\n      ! If DO_SLV is 0, K is not updated at that point\n      ! Note other terms may still depend on other JVS(LU_NONZERO) or K(N) terms ...\n\n      ! this fix is generally necessary. this means that before K gets to\n      ! ros_Solve, the non-DO_SLV terms need to be zeroed out.\n      !\n      ! of course this is inefficient, so care should be taken to only update K\n      ! where necessary without doing this final sweep.\n      ! each one of these sweeps costs approximately 2% of total time.\n      ! DO j = 1, N\n      !    IF (.not. DO_SLV(j)) K(ioffset+j) = 0.0_dp\n      ! ENDDO\n      ! ... 2.90% (39%)\n      CALL ros_Solve(Ghimj, Pivot, K(ioffset+1))\n      ! ... 3.10% (40%)\n\n      ! note in ros_cSolve -> kppSolve the back-substitution for !DO_SLV==!DO_FUN are\n      ! not resolved so Ynew remains the same.\n\n   ENDDO Stage\n\n   ! ... 4.44%\n! roll the new solution and error estimation into one loop.\n   Ynew(:) = Y(:)\n   Yerr(:) = ZERO\n   DO j = 1, ros_S\n      DO i = 1,rNVAR\n         Ynew(SPC_MAP(i)) = Ynew(SPC_MAP(i)) + ros_M(j) * K(N*(j-1)+SPC_MAP(i))\n         Yerr(SPC_MAP(i)) = Yerr(SPC_MAP(i)) + ros_E(j) * K(N*(j-1)+SPC_MAP(i))\n      ENDDO\n   ENDDO\n   Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol )\n   ! ... 4.73% (~0.3%). i will leave this alone for now\n\n!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax\n   Fac  = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO)))\n   Hnew = H*Fac\n\n!~~~>  Check the error magnitude and adjust step size\n   ISTATUS(Nstp) = ISTATUS(Nstp) + 1\n   IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN  !~~~> Accept step\n      ISTATUS(Nacc) = ISTATUS(Nacc) + 1\n      CALL WCOPY(N,Ynew,1,Y,1)\n      !Y(1:N) = Ynew(1:N)\n      T = T + Direction*H\n      Hnew = MAX(Hmin,MIN(Hnew,Hmax))\n      IF (RejectLastH) THEN  ! No step size increase after a rejected step\n         Hnew = MIN(Hnew,H)\n      ENDIF\n      RSTATUS(Nhexit) = H\n      RSTATUS(Nhnew)  = Hnew\n      RSTATUS(Ntexit) = T\n      RejectLastH = .FALSE.\n      RejectMoreH = .FALSE.\n      H = Hnew\n\n      ! write(6,*) \"STEP ACCEPTED\"\n\n      EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED\n   ELSE           !~~~> Reject step\n      IF (RejectMoreH) THEN\n         Hnew = H*FacRej\n      END IF\n      RejectMoreH = RejectLastH\n      RejectLastH = .TRUE.\n      H = Hnew\n      IF (ISTATUS(Nacc) >= 1)  ISTATUS(Nrej) = ISTATUS(Nrej) + 1\n      ! write(6,*) \"STEP REJECTED\"\n   END IF ! Err <= 1\n\n   END DO UntilAccepted\n\n   ! ... 4.70%\n   END DO TimeLoop\n\n   ! 1st order calculation for removed species per Shen et al. (2020) Eq. 4\n   ! -- currently, DO_FUN() selects\n   ! -- DO_FUN loops over 1,NVAR. Only needs to loop over NVAR-rNVAR\n   !    but the structure doesn't exist. Maybe worth considering \n   !    for efficiency purposes.\n   DO i=1,N\n      IF (.not. DO_SLV(i)) THEN\n           call autoreduce_1stOrder(i,Y(i),Prod(i),Loss(i),Tstart,Tend)\n      ENDIF\n   ENDDO\n\n!~~~> Successful exit\n   IERR = 1  !~~~> The integration was successful\n\n END SUBROUTINE ros_yIntegrator\n ! Aggressively micro-optimized by hplin\n ! 4/10/22\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n SUBROUTINE ros_yIntegratorA (Y, Tstart, Tend, T,  &\n        AbsTol, RelTol,                          &\n!~~~> Integration parameters\n        Autonomous, VectorTol, Max_no_steps,     &\n        Roundoff, Hmin, Hmax, Hstart,            &\n        FacMin, FacMax, FacRej, FacSafe,         &\n!~~~> Autoreduce threshold\n        threshold, AR_target_spc, AR_thr_ratio,  &\n!~~~> Error indicator\n        IERR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Template for the implementation of a generic Rosenbrock method\n!      defined by ros_S (no of stages)\n!      and its coefficients ros_{A,C,M,E,Alpha,Gamma}\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Alternative micro-optimized implementation, hplin, 4/10/22\n! which does not resize arrays to rNVAR, instead always keeping to full N size\n! and skipping using DO_SLV\n!\n! All compiled assembly code was verified just short of linking to a proper BLAS.\n\n   USE gckpp_Global,  ONLY : cNONZERO, rNVAR\n   use gckpp_Monitor, ONLY : SPC_NAMES\n   USE gckpp_JacobianSP\n\n  IMPLICIT NONE\n\n!~~~> Input: the initial condition at Tstart; Output: the solution at T\n   REAL(kind=dp), INTENT(INOUT) :: Y(N)\n!~~~> Input: integration interval\n   REAL(kind=dp), INTENT(IN) :: Tstart,Tend\n!~~~> Output: time at which the solution is returned (T=Tend if success)\n   REAL(kind=dp), INTENT(OUT) ::  T\n!~~~> Input: tolerances\n   REAL(kind=dp), INTENT(IN) ::  AbsTol(N), RelTol(N)\n!~~~> Input: integration parameters\n   LOGICAL, INTENT(IN) :: Autonomous, VectorTol\n   REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax\n   INTEGER, INTENT(IN) :: Max_no_steps\n   REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe\n!~~~> Autoreduction threshold\n   REAL(kind=dp), INTENT(IN) :: threshold\n!~~~> Output: Error indicator\n   INTEGER, INTENT(OUT) :: IERR\n! ~~~~ Local variables\n   REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N), Prod(N), Loss(N), LossY(N), Prd0(N), Los0(N)\n   REAL(kind=dp) :: K(NVAR*ros_S), dFdT(N)\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N)\n#else\n   REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO)\n   REAL(kind=dp) :: cGhimj(LU_NONZERO) ! not known at this point what cNONZERO will be\n#endif\n   REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau\n   REAL(kind=dp) :: Err, Yerr(N), Yerrsub(NVAR)\n   INTEGER :: Pivot(N), Direction, ioffset, j, istage\n   LOGICAL :: RejectLastH, RejectMoreH, Singular, Reduced\n!~~~>  Local parameters\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp\n   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp\n   INTEGER :: SPC\n   REAL(kind=dp) :: alpha_factor ! hplin 4/10/22\n!      Inline local parameters for AR.\n   INTEGER :: II, III, idx, nrmv, s\n   REAL(kind=dp), INTENT(IN) :: AR_thr_ratio\n   REAL(kind=dp) :: AR_thr\n   INTEGER, INTENT(IN) :: AR_target_spc\n!~~~>  Initial preparations\n   DO_SLV  = .true.\n   DO_FUN  = .true.\n   DO_JVS  = .true.\n   Reduced = .false.\n   RMV     = 0\n\n   T = Tstart\n   RSTATUS(Nhexit) = ZERO\n   H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) )\n   IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin\n\n   IF (Tend  >=  Tstart) THEN\n     Direction = +1\n   ELSE\n     Direction = -1\n   END IF\n   H = Direction*H\n\n   RejectLastH=.FALSE.\n   RejectMoreH=.FALSE.\n\n   ! reset K - hplin. this is a multiplier that gets applied to ros_A and ros_M\n   K = 0.0_dp\n   Ghimj = 0.0_dp\n\n!~~~> Time loop begins below\n\nTimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) &\n       .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) )\n\n   IF ( ISTATUS(Nstp) > Max_no_steps ) THEN  ! Too many steps\n      CALL ros_ErrorMsg(-6,T,H,IERR)\n      RETURN\n   ENDIF\n   IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN  ! Step size too small\n      CALL ros_ErrorMsg(-7,T,H,IERR)\n      RETURN\n   ENDIF\n\n!~~~>  Limit H if necessary to avoid going beyond Tend\n   H = MIN(H,ABS(Tend-T))\n\n!~~~>   Compute the function at current time\n! this is necessary anyway for the rest of the time loop. do not optimize out.\n   CALL FunSplitF(T,Y,Fcn0,Prod,Loss,LossY) ! always calculates PL.\n   ! The above Prod, Loss were updated at every TimeLoop, so they no longer\n   ! reflect initial condition. The copy operation is extremely expensive,\n   ! so we instead run it once at the beginning of the timeloop and use a IF\n   ! to switch it to a wholy different codepath...\n   ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n\n   ! ... 1.02% ... 13.00%\n\n!~~~>  Parse species for reduced computation\n   if (.not. reduced) then\n      Prd0 = Prod\n      Los0 = Loss ! Save original prod loss vector for 1st order approx. do not optimize out.\n\n      ! Inline the entire reduction operation here.\n      iSPC_MAP = 0\n      NRMV     = 0\n      S        = 1\n      AR_thr   = threshold\n\n      ! Target species?\n      if(AR_target_spc .gt. 0) then\n          AR_thr = AR_thr_ratio * max(LossY(AR_target_spc), Prod(AR_target_spc))           ! Lin et al., 2022 in prep.\n          RSTATUS(NARthr) = AR_thr\n      endif\n\n      ! Checks should be kept out of tight inner loops.\n      IF(keepActive) THEN\n       DO i=1,NVAR\n         ! Short-circuiting using SKIP is very important here.\n         if (.not. keepSpcActive(i) .and. &\n             abs(LossY(i)).lt.AR_thr .and. abs(Prod(i)).lt.AR_thr) then ! per Shen et al., 2020\n            NRMV=NRMV+1\n            RMV(NRMV) = i\n            DO_SLV(i) = .false.\n            ! DO_FUN(i) = .false.\n            cycle\n         endif\n         SPC_MAP(S)  = i ! Add to full spc map.\n         iSPC_MAP(i) = S\n         S=S+1\n       ENDDO\n      ENDIF\n\n      IF (.not. keepActive) THEN\n        DO i=1,NVAR\n         ! Short-circuiting using SKIP is very important here.\n         if (abs(LossY(i)).lt.AR_thr .and. abs(Prod(i)).lt.AR_thr) then ! per Shen et al., 2020\n            NRMV=NRMV+1\n            RMV(NRMV) = i\n            DO_SLV(i) = .false.\n            ! DO_FUN(i) = .false.\n            cycle\n         endif\n         SPC_MAP(S)  = i ! Add to full spc map.\n         iSPC_MAP(i) = S\n         S=S+1\n       ENDDO\n      ENDIF\n\n      rNVAR    = NVAR-NRMV ! Number of active species in the reduced mechanism\n      II  = 1\n      III = 1\n      idx = 0\n      ! This loop can be unrolled into two branches.\n      ScanFirstNonZero: DO i = 1,LU_NONZERO\n         IF ((DO_SLV(LU_IROW(i))).and.(DO_SLV(LU_ICOL(i)))) THEN\n            idx = 1\n            cLU_IROW(1) = iSPC_MAP(LU_IROW(i))\n            cLU_ICOL(1) = iSPC_MAP(LU_ICOL(i))\n            JVS_MAP(1)  = i\n            EXIT ScanFirstNonZero\n         ENDIF\n         DO_JVS(i) = .false.\n      ENDDO ScanFirstNonZero\n      DO i = i+1,LU_NONZERO ! There is no escape for looping through LU_NONZERO here.\n         IF ((DO_SLV(LU_IROW(i))).and.(DO_SLV(LU_ICOL(i)))) THEN\n            idx=idx+1 ! counter for the number of non-zero elements in the reduced Jacobian\n            cLU_IROW(idx) = iSPC_MAP(LU_IROW(i))\n            cLU_ICOL(idx) = iSPC_MAP(LU_ICOL(i))\n            JVS_MAP(idx)  = i\n\n            IF (cLU_IROW(idx).ne.cLU_IROW(idx-1)) THEN\n               II=II+1\n               cLU_CROW(II) = idx\n            ENDIF\n            IF (cLU_IROW(idx).eq.cLU_ICOL(idx)) THEN\n               III=III+1\n               cLU_DIAG(III) = idx\n            ENDIF\n            CYCLE\n         ENDIF\n         DO_JVS(i) = .false.\n      ENDDO\n\n     cNONZERO = idx\n     cLU_CROW(1)       = 1 ! 1st index = 1\n     cLU_DIAG(1)       = 1 ! 1st index = 1\n     cLU_CROW(rNVAR+1) = cNONZERO+1\n     cLU_DIAG(rNVAR+1) = cLU_DIAG(rNVAR)+1\n\n     ! this loop approximately 0.6% ... 7.8%\n     reduced = .true.\n   endif ! not reduced\n\n   if (reduced) then\n      ! Scan prod/loss for condition change for append functionality.\n      ! Note because this requires internal Prod/Loss update, yIntegrator will fall through\n      ! here. (hplin, 4/10/22)\n      ! RMV is filled at most to NRMV, so read to that. Note that NRMV is only here because\n      ! we inlined Reduce(), so this cannot be ported to ros_cIntegrator. (hplin, 4/12/22)\n      DO i=1,NRMV\n         SPC = RMV(i)\n         if (SPC .eq. 0) cycle ! Species is already appended\n         if (abs(LossY(SPC)).gt.threshold .or. abs(Prod(SPC)).gt.threshold) then\n            CALL APPEND(SPC)\n            RMV(i) = 0\n         endif\n      ENDDO\n   endif ! reduced. append functionality.\n\n!~~~>  Compute the function derivative with respect to T\n   IF (.NOT.Autonomous) THEN\n      CALL ros_FunTimeDerivative ( T, Roundoff, Y, &\n                Fcn0, dFdT )\n   END IF\n\n   ! 1.86 ~ 1.90%\n\n!~~~>   Compute the Jacobian at current time\n   CALL JacTemplate(T,Y,Jac0) ! Reacts to DO_JVS()\n   ISTATUS(Njac) = ISTATUS(Njac) + 1\n!~~~>  Repeat step calculation until current step accepted\nUntilAccepted: DO\n\n   CALL ros_cPrepareMatrix(H,Direction,ros_Gamma(1), &\n          Jac0,cGhimj,Pivot,Singular) ! calculate Ghimj as cGhimj(cNONZERO).\n   ! cGhimj all elem are rewritten so no need to zero out - warning - hplin 4/10/22\n   !\n   ! this step has one skip addressing step, -Jac0(JVS_MAP(1:cNONZERO)). slow.\n   ! ros_cDecomp is continuous.\n\n   IF (Singular) THEN ! More than 5 consecutive failed decompositions\n       CALL ros_ErrorMsg(-8,T,H,IERR)\n       RETURN\n   ENDIF\n\n   ! map cNONZERO back to full space. this step is very slow.\n   DO i = 1, cNONZERO\n      Ghimj(JVS_MAP(i)) = cGhimj(i)\n   ENDDO\n   ! Ghimj(JVS_MAP(1:cNONZERO)) = cGhimj\n   ! The above implementation seems to make -fcheck=bounds unhappy\n   ! and cause a segfault at -O3. The asm jumps seemed weird, so we\n   ! just explicitly write out the loop.\n\n!~~~>   Compute the stages\nStage: DO istage = 1, ros_S\n\n      ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N)\n       ioffset = N*(istage-1) ! note this is full space\n\n      ! For the 1st istage the function has been computed previously\n       IF ( istage == 1 ) THEN\n         call WCOPY(N,Fcn0,1,Fcn,1)\n         ! Fcn(1:N) = Fcn0(1:N)\n         ! istage>1 and a new function evaluation is needed at the current istage\n         ! K = 0.0_dp ! is this fix needed? hplin 14:04 -- not. 3 hours wiser later\n       ELSEIF ( ros_NewF(istage) ) THEN\n         call WCOPY(N,Y,1,Ynew,1)\n         ! Ynew(1:N) = Y(1:N)\n         DO j = 1, istage-1\n            ! In full vector space. Just use WAXPY as normal\n            ! other entries in K are set to 1 previously.\n            ! the rest are filled by Fcn.\n\n            !          N  alpha                             x                y .... Y <- Y + a*X.\n            ! i.e. Ynew <- Ynew + ros_A(..) * K. for !DO_FUN, we want K === 0\n            ! if there are entries in x that are zero naturally they do not carry into Ynew.\n            !\n            ! otherwise Ynew will be wrongly updated\n\n            ! order of operations here is from K(N*(j-1)+1:N*j+1), total of N elem.\n            ! K for !DO_FUN should not be updated.\n            ! in fact, K is reasonably sparse here.\n\n            ! full version:\n            ! CALL WAXPY(N, ros_A((istage-1)*(istage-2)/2+j), K(N*(j-1)+1), 1, Ynew, 1)\n\n            ! only rNVAR version - maybe loops need to be unrolled: (15:39)\n            alpha_factor = ros_A((istage-1)*(istage-2)/2+j)\n            DO i = 1,rNVAR\n               Ynew(SPC_MAP(i)) = Ynew(SPC_MAP(i)) + alpha_factor * K(N*(j-1)+SPC_MAP(i))\n            ENDDO\n         END DO\n         Tau = T + ros_Alpha(istage)*Direction*H\n         CALL FunSplitN(Tau,Ynew,Fcn)\n         ! this step reacts to DO_FUN.\n         ! Fcn is updated thru Fun_Split(Ynew,..,..,P,D), Fcn <- P - D*Ynew\n         ! P and D are only updated iff. DO_FUN is set to true. otherwise they are zero\n         ! the purpose is for Fcn to be zero for !DO_FUNs so K is set to 0 for them, so delta is 0.\n         ! this looks okay then. 4/10/22 13:36 hplin\n         ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n       END IF ! if istage == 1 elseif ros_NewF(istage)\n       ! K(ioffset+1:ioffset+rNVAR) = Fcn(SPC_MAP(1:rNVAR))\n\n      ! now operate on full space for all of below.\n      ! full version:\n      ! K(ioffset+1:ioffset+N) = Fcn(1:N)\n\n      ! faster version: (this copy also feels expensive...)\n      ! unroll j = 1 stage iff. istage-1>1, otherwise this is skipped.\n      IF(istage .gt. 1) THEN\n         HC = ros_C((istage-1)*(istage-2)/2+1)/(Direction*H)\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = Fcn(SPC_MAP(i)) + HC * K(SPC_MAP(i))\n         ENDDO\n      ENDIF\n\n      IF(istage .eq. 1) THEN\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = Fcn(SPC_MAP(i))\n         ENDDO\n      ENDIF\n\n      DO j = 2, istage-1\n         HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H)\n\n         ! full version\n         ! K(ioffset+1:ioffset+1+N) <- K(ioffset+1:ioffset+1+N) + HC*K(N*(j-1)+1)\n         ! CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1)\n         ! K also updated here...\n         ! write(6,*) \"istage,kupd2\",istage,K(ioffset+1:ioffset+1+N)\n\n         ! faster version:\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = K(ioffset+SPC_MAP(i)) + HC * K(N*(j-1)+SPC_MAP(i))\n         ENDDO\n         ! CALL zWAXPY(N,HC,K(N*(j-1)+1),K(ioffset+1),SPC_MAP)\n         ! loop unrolling is consistently slower here. 18:58\n      ENDDO\n\n      IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN\n         HG = Direction*H*ros_Gamma(istage)\n\n         ! full version: CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1)\n         ! faster version:\n         DO i = 1,rNVAR\n            K(ioffset+SPC_MAP(i)) = K(ioffset+SPC_MAP(i)) + HG * dFdT(SPC_MAP(i))\n         ENDDO\n      ENDIF\n\n      ! CALL ros_cSolve(Ghimj(1:cNONZERO), Pivot, K(ioffset+1), JVS_MAP, SPC_MAP)\n      ! this means that ros_cSolve now does not need to be mapped back to full space here\n      ! avoiding several full maps.\n      !\n      ! K is passed to ros_Solve -> KppSolve, which responds to DO_SLV.\n      ! If DO_SLV is 0, K is not updated at that point\n      ! Note other terms may still depend on other JVS(LU_NONZERO) or K(N) terms ...\n\n      ! this fix is generally necessary. this means that before K gets to\n      ! ros_Solve, the non-DO_SLV terms need to be zeroed out.\n      !\n      ! of course this is inefficient, so care should be taken to only update K\n      ! where necessary without doing this final sweep.\n      ! each one of these sweeps costs approximately 2% of total time.\n      ! DO j = 1, N\n      !    IF (.not. DO_SLV(j)) K(ioffset+j) = 0.0_dp\n      ! ENDDO\n      ! ... 2.90% (39%)\n      CALL ros_Solve(Ghimj, Pivot, K(ioffset+1))\n      ! ... 3.10% (40%)\n\n      ! note in ros_cSolve -> kppSolve the back-substitution for !DO_SLV==!DO_FUN are\n      ! not resolved so Ynew remains the same.\n\n   ENDDO Stage\n\n! roll the new solution and error estimation into one loop.\n   Ynew(:) = Y(:)\n   Yerr(:) = ZERO\n   DO j = 1, ros_S\n      DO i = 1,rNVAR\n         Ynew(SPC_MAP(i)) = Ynew(SPC_MAP(i)) + ros_M(j) * K(N*(j-1)+SPC_MAP(i))\n         Yerr(SPC_MAP(i)) = Yerr(SPC_MAP(i)) + ros_E(j) * K(N*(j-1)+SPC_MAP(i))\n      ENDDO\n   ENDDO\n   Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol )\n   ! ... 4.73% (~0.3%). i will leave this alone for now\n\n!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax\n   Fac  = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO)))\n   Hnew = H*Fac\n\n!~~~>  Check the error magnitude and adjust step size\n   ISTATUS(Nstp) = ISTATUS(Nstp) + 1\n   IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN  !~~~> Accept step\n      ISTATUS(Nacc) = ISTATUS(Nacc) + 1\n      CALL WCOPY(N,Ynew,1,Y,1)\n      !Y(1:N) = Ynew(1:N)\n      T = T + Direction*H\n      Hnew = MAX(Hmin,MIN(Hnew,Hmax))\n      IF (RejectLastH) THEN  ! No step size increase after a rejected step\n         Hnew = MIN(Hnew,H)\n      ENDIF\n      RSTATUS(Nhexit) = H\n      RSTATUS(Nhnew)  = Hnew\n      RSTATUS(Ntexit) = T\n      RejectLastH = .FALSE.\n      RejectMoreH = .FALSE.\n      H = Hnew\n\n      ! write(6,*) \"STEP ACCEPTED\"\n\n      EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED\n   ELSE           !~~~> Reject step\n      IF (RejectMoreH) THEN\n         Hnew = H*FacRej\n      END IF\n      RejectMoreH = RejectLastH\n      RejectLastH = .TRUE.\n      H = Hnew\n      IF (ISTATUS(Nacc) >= 1)  ISTATUS(Nrej) = ISTATUS(Nrej) + 1\n      ! write(6,*) \"STEP REJECTED\"\n   END IF ! Err <= 1\n\n   END DO UntilAccepted\n\n   ! ... 4.70%\n   END DO TimeLoop\n\n   ! 1st order calculation for removed species per Shen et al. (2020) Eq. 4\n   ! -- currently, DO_FUN() selects\n   ! -- DO_FUN loops over 1,NVAR. Only needs to loop over NVAR-rNVAR\n   !    but the structure doesn't exist. Maybe worth considering \n   !    for efficiency purposes.\n   DO i=1,N\n      IF (.not. DO_SLV(i)) THEN\n           call autoreduce_1stOrder(i,Y(i),Prd0(i),Los0(i),Tstart,Tend)\n      ENDIF\n   ENDDO\n\n!~~~> Successful exit\n   IERR = 1  !~~~> The integration was successful\n\n END SUBROUTINE ros_yIntegratorA\n\n SUBROUTINE AutoReduce_1stOrder(i,Y,P,k,Ti,Tf)\n   REAL(kind=dp), INTENT(INOUT) :: Y\n   REAL(kind=dp), INTENT(IN)    :: P,k,Ti,Tf\n   INTEGER, INTENT(IN)          :: i\n   REAL(kind=dp)                :: term\n\n   if (k .le. 1.d-30) return\n   if (Y .le. 1.d-30) return\n   term = P/k\n   Y = term+(Y-term)*exp(-k*(Tf-Ti))\n END SUBROUTINE AutoReduce_1stOrder\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, &\n                               AbsTol, RelTol, VectorTol )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!~~~> Computes the \"scaled norm\" of the error vector Yerr\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n\n! Input arguments\n   REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), &\n          Yerr(N), AbsTol(N), RelTol(N)\n   LOGICAL, INTENT(IN) ::  VectorTol\n! Local variables\n   REAL(kind=dp) :: Err, Scale, Ymax\n   INTEGER  :: i\n   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp\n\n   Err = ZERO\n   DO i=1,N\n     Ymax = MAX(ABS(Y(i)),ABS(Ynew(i)))\n     IF (VectorTol) THEN\n       Scale = AbsTol(i)+RelTol(i)*Ymax\n     ELSE\n       Scale = AbsTol(1)+RelTol(1)*Ymax\n     END IF\n     Err = Err+(Yerr(i)/Scale)**2\n   END DO\n   Err  = SQRT(Err/N)\n\n   ros_ErrorNorm = MAX(Err,1.0d-10)\n\n  END FUNCTION ros_ErrorNorm\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!~~~> The time partial derivative of the function by finite differences\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n\n!~~~> Input arguments\n   REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N)\n!~~~> Output arguments\n   REAL(kind=dp), INTENT(OUT) :: dFdT(N)\n!~~~> Local variables\n   REAL(kind=dp) :: Delta\n   REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp\n\n   Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T))\n   CALL FunTemplate( T+Delta, Y, dFdT )\n   ISTATUS(Nfun) = ISTATUS(Nfun) + 1\n   CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1)\n   CALL WSCAL(N,(ONE/Delta),dFdT,1)\n\n  END SUBROUTINE ros_FunTimeDerivative\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_cPrepareMatrix ( H, Direction, gam, &\n             Jac0, Ghimj, Pivot, Singular )\n! --- --- --- --- --- --- --- --- --- --- --- --- ---\n!  Prepares the LHS matrix for stage calculations\n!  1.  Construct Ghimj = 1/(H*ham) - Jac0\n!      \"(Gamma H) Inverse Minus Jacobian\"\n!  2.  Repeat LU decomposition of Ghimj until successful.\n!       -half the step size if LU decomposition fails and retry\n!       -exit after 5 consecutive fails\n! --- --- --- --- --- --- --- --- --- --- --- --- ---\n   IMPLICIT NONE\n\n!~~~> Input arguments\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(IN) ::  Jac0(N,N)\n#else\n   REAL(kind=dp), INTENT(IN) ::  Jac0(LU_NONZERO)\n#endif   \n   REAL(kind=dp), INTENT(IN) ::  gam\n   INTEGER, INTENT(IN) ::  Direction\n!~~~> Output arguments\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N)\n#else\n   REAL(kind=dp), INTENT(OUT) :: Ghimj(cNONZERO)\n#endif   \n   LOGICAL, INTENT(OUT) ::  Singular\n   INTEGER, INTENT(OUT) ::  Pivot(N)\n!~~~> Inout arguments\n   REAL(kind=dp), INTENT(INOUT) :: H   ! step size is decreased when LU fails\n!~~~> Local variables\n   INTEGER  :: i, ISING, Nconsecutive\n   REAL(kind=dp) :: ghinv\n   REAL(kind=dp), PARAMETER :: ONE  = 1.0_dp, HALF = 0.5_dp\n\n   Nconsecutive = 0\n   Singular = .TRUE.\n\n   DO WHILE (Singular)\n\n!~~~>    Construct Ghimj = 1/(H*gam) - Jac0\n#ifdef FULL_ALGEBRA\n     !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1)\n     !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1)\n     Ghimj = -Jac0\n     ghinv = ONE/(Direction*H*gam)\n     DO i=1,rNVAR\n       Ghimj(i,i) = Ghimj(i,i)+ghinv\n     END DO\n#else\n     !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1)\n     !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1)\n     Ghimj(1:cNONZERO) = -Jac0(JVS_MAP(1:cNONZERO))\n     ghinv = ONE/(Direction*H*gam)\n     DO i=1,rNVAR\n       Ghimj(cLU_DIAG(i)) = Ghimj(cLU_DIAG(i))+ghinv\n     END DO\n#endif   \n!~~~>    Compute LU decomposition\n     CALL ros_cDecomp( Ghimj, Pivot, ISING )\n     IF (ISING == 0) THEN\n!~~~>    If successful done\n        Singular = .FALSE.\n     ELSE ! ISING .ne. 0\n!~~~>    If unsuccessful half the step size; if 5 consecutive fails then return\n        ISTATUS(Nsng) = ISTATUS(Nsng) + 1\n        Nconsecutive = Nconsecutive+1\n        Singular = .TRUE.\n        PRINT*,'Warning: LU Decomposition returned ISING = ',ISING\n        IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions\n           H = H*HALF\n        ELSE  ! More than 5 consecutive failed decompositions\n           RETURN\n        END IF  ! Nconsecutive\n      END IF    ! ISING\n\n   END DO ! WHILE Singular\n\n END SUBROUTINE ros_cPrepareMatrix\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_cDecomp( A, Pivot, ISING )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the LU decomposition\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n!~~~> Inout variables\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(INOUT) :: A(N,N)\n#else   \n   REAL(kind=dp), INTENT(INOUT) :: A(cNONZERO)\n#endif\n!~~~> Output variables\n   INTEGER, INTENT(OUT) :: Pivot(N), ISING\n\n#ifdef FULL_ALGEBRA\n   CALL  DGETRF( N, N, A, N, Pivot, ISING )\n#else   \n   CALL cKppDecomp ( A, ISING )\n   Pivot(1) = 1\n#endif\n   ISTATUS(Ndec) = ISTATUS(Ndec) + 1\n\n END SUBROUTINE ros_cDecomp\n \n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_cSolve( A, Pivot, b, map1, map2 )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the forward/backward substitution (using pre-computed LU decomposition)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n!~~~> Input variables\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(IN) :: A(N,N)\n   INTEGER :: ISING\n#else   \n   REAL(kind=dp), INTENT(IN) :: A(cNONZERO)\n#endif\n   INTEGER, INTENT(IN) :: Pivot(N)\n!~~~> InOut variables\n   REAL(kind=dp), INTENT(INOUT) :: b(rNVAR)\n   INTEGER, INTENT(IN)          :: map1(LU_NONZERO), map2(NVAR)\n   REAL(kind=dp)                :: btmp(N), Atmp(LU_NONZERO)\n\n#ifdef FULL_ALGEBRA\n   CALL  DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING )\n   IF ( Info < 0 ) THEN\n      PRINT*,\"Error in DGETRS. ISING=\",ISING\n   END IF  \n#else   \n\n   Atmp = 0.d0\n   Btmp = 0.d0\n   Atmp(map1(1:cNONZERO)) = A\n   btmp(map2(1:rNVAR))    = b\n!   call cWCOPY(cNONZERO,LU_NONZERO,A,1,Atmp,1,map1)\n!   call cWCOPY(rNVAR,NVAR,B,1,Btmp,1,map2)\n   CALL KppSolve( Atmp, btmp )\n   b = btmp(map2(1:rNVAR))\n#endif\n\n   ISTATUS(Nsol) = ISTATUS(Nsol) + 1\n\n  END SUBROUTINE ros_cSolve\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, &\n             Jac0, Ghimj, Pivot, Singular )\n! --- --- --- --- --- --- --- --- --- --- --- --- ---\n!  Prepares the LHS matrix for stage calculations\n!  1.  Construct Ghimj = 1/(H*ham) - Jac0\n!      \"(Gamma H) Inverse Minus Jacobian\"\n!  2.  Repeat LU decomposition of Ghimj until successful.\n!       -half the step size if LU decomposition fails and retry\n!       -exit after 5 consecutive fails\n! --- --- --- --- --- --- --- --- --- --- --- --- ---\n   IMPLICIT NONE\n\n!~~~> Input arguments\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(IN) ::  Jac0(N,N)\n#else\n   REAL(kind=dp), INTENT(IN) ::  Jac0(LU_NONZERO)\n#endif\n   REAL(kind=dp), INTENT(IN) ::  gam\n   INTEGER, INTENT(IN) ::  Direction\n!~~~> Output arguments\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N)\n#else\n   REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO)\n#endif\n   LOGICAL, INTENT(OUT) ::  Singular\n   INTEGER, INTENT(OUT) ::  Pivot(N)\n!~~~> Inout arguments\n   REAL(kind=dp), INTENT(INOUT) :: H   ! step size is decreased when LU fails\n!~~~> Local variables\n   INTEGER  :: i, ising, Nconsecutive\n   REAL(kind=dp) :: ghinv\n   REAL(kind=dp), PARAMETER :: ONE  = 1.0_dp, HALF = 0.5_dp\n\n   Nconsecutive = 0\n   Singular = .TRUE.\n\n   DO WHILE (Singular)\n\n!~~~>    Construct Ghimj = 1/(H*gam) - Jac0\n#ifdef FULL_ALGEBRA\n     !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1)\n     !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1)\n     Ghimj = -Jac0\n     ghinv = ONE/(Direction*H*gam)\n     DO i=1,N\n       Ghimj(i,i) = Ghimj(i,i)+ghinv\n     END DO\n#else\n     !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1)\n     !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1)\n     Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO)\n     ghinv = ONE/(Direction*H*gam)\n     DO i=1,N\n       Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv\n     END DO\n#endif\n!~~~>    Compute LU decomposition\n     CALL ros_Decomp( Ghimj, Pivot, ising )\n     IF (ising == 0) THEN\n!~~~>    If successful done\n        Singular = .FALSE.\n     ELSE ! ising .ne. 0\n!~~~>    If unsuccessful half the step size; if 5 consecutive fails then return\n        ISTATUS(Nsng) = ISTATUS(Nsng) + 1\n        Nconsecutive = Nconsecutive+1\n        Singular = .TRUE.\n        PRINT*,'Warning: LU Decomposition returned ising = ',ising\n        IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions\n           H = H*HALF\n        ELSE  ! More than 5 consecutive failed decompositions\n           RETURN\n        END IF  ! Nconsecutive\n      END IF    ! ising\n\n   END DO ! WHILE Singular\n\n  END SUBROUTINE ros_PrepareMatrix\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_Decomp( A, Pivot, ising )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the LU decomposition\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n!~~~> Inout variables\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(INOUT) :: A(N,N)\n#else\n   REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO)\n#endif\n!~~~> Output variables\n   INTEGER, INTENT(OUT) :: Pivot(N), ising\n\n#ifdef FULL_ALGEBRA\n   CALL  DGETRF( N, N, A, N, Pivot, ising )\n#else\n   CALL KppDecomp ( A, ising )\n   Pivot(1) = 1\n#endif\n   ISTATUS(Ndec) = ISTATUS(Ndec) + 1\n\n  END SUBROUTINE ros_Decomp\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE ros_Solve( A, Pivot, b )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the forward/backward substitution\n!  (using pre-computed LU decomposition)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n   IMPLICIT NONE\n!~~~> Input variables\n#ifdef FULL_ALGEBRA\n   REAL(kind=dp), INTENT(IN) :: A(N,N)\n   INTEGER :: ising\n#else\n   REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO)\n#endif\n   INTEGER, INTENT(IN) :: Pivot(N)\n!~~~> InOut variables\n   REAL(kind=dp), INTENT(INOUT) :: b(N)\n\n#ifdef FULL_ALGEBRA\n   CALL  DGETRS( 'N', N , 1, A, N, Pivot, b, N, ising )\n   IF ( Info < 0 ) THEN\n      PRINT*,\"Error in DGETRS. ising=\",ising\n   END IF\n#else\n   CALL KppSolve( A, b )\n#endif\n\n   ISTATUS(Nsol) = ISTATUS(Nsol) + 1\n\n  END SUBROUTINE ros_Solve\n\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Ros2\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! --- AN L-STABLE METHOD, 2 stages, order 2\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n   DOUBLE PRECISION g\n\n    g = 1.0_dp + 1.0_dp/SQRT(2.0_dp)\n    rosMethod = RS2\n!~~~> Name of the method\n    ros_Name = 'ROS-2'\n!~~~> Number of stages\n    ros_S = 2\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n    ros_A(1) = (1.0_dp)/g\n    ros_C(1) = (-2.0_dp)/g\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n    ros_NewF(1) = .TRUE.\n    ros_NewF(2) = .TRUE.\n!~~~> M_i = Coefficients for new step solution\n    ros_M(1)= (3.0_dp)/(2.0_dp*g)\n    ros_M(2)= (1.0_dp)/(2.0_dp*g)\n! E_i = Coefficients for error estimator\n    ros_E(1) = 1.0_dp/(2.0_dp*g)\n    ros_E(2) = 1.0_dp/(2.0_dp*g)\n!~~~> ros_ELO = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus one\n    ros_ELO = 2.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n    ros_Alpha(1) = 0.0_dp\n    ros_Alpha(2) = 1.0_dp\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n    ros_Gamma(1) = g\n    ros_Gamma(2) =-g\n\n END SUBROUTINE Ros2\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Ros3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n   rosMethod = RS3\n!~~~> Name of the method\n   ros_Name = 'ROS-3'\n!~~~> Number of stages\n   ros_S = 3\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n   ros_A(1)= 1.0_dp\n   ros_A(2)= 1.0_dp\n   ros_A(3)= 0.0_dp\n\n   ros_C(1) = -0.10156171083877702091975600115545E+01_dp\n   ros_C(2) =  0.40759956452537699824805835358067E+01_dp\n   ros_C(3) =  0.92076794298330791242156818474003E+01_dp\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n   ros_NewF(1) = .TRUE.\n   ros_NewF(2) = .TRUE.\n   ros_NewF(3) = .FALSE.\n!~~~> M_i = Coefficients for new step solution\n   ros_M(1) =  0.1E+01_dp\n   ros_M(2) =  0.61697947043828245592553615689730E+01_dp\n   ros_M(3) = -0.42772256543218573326238373806514_dp\n! E_i = Coefficients for error estimator\n   ros_E(1) =  0.5_dp\n   ros_E(2) = -0.29079558716805469821718236208017E+01_dp\n   ros_E(3) =  0.22354069897811569627360909276199_dp\n!~~~> ros_ELO = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus 1\n   ros_ELO = 3.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n   ros_Alpha(1)= 0.0_dp\n   ros_Alpha(2)= 0.43586652150845899941601945119356_dp\n   ros_Alpha(3)= 0.43586652150845899941601945119356_dp\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n   ros_Gamma(1)= 0.43586652150845899941601945119356_dp\n   ros_Gamma(2)= 0.24291996454816804366592249683314_dp\n   ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp\n\n  END SUBROUTINE Ros3\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Ros4\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!     L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES\n!     L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3\n!\n!      E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL\n!      EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS.\n!      SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS,\n!      SPRINGER-VERLAG (1990)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n   rosMethod = RS4\n!~~~> Name of the method\n   ros_Name = 'ROS-4'\n!~~~> Number of stages\n   ros_S = 4\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n   ros_A(1) = 0.2000000000000000E+01_dp\n   ros_A(2) = 0.1867943637803922E+01_dp\n   ros_A(3) = 0.2344449711399156_dp\n   ros_A(4) = ros_A(2)\n   ros_A(5) = ros_A(3)\n   ros_A(6) = 0.0_dp\n\n   ros_C(1) =-0.7137615036412310E+01_dp\n   ros_C(2) = 0.2580708087951457E+01_dp\n   ros_C(3) = 0.6515950076447975_dp\n   ros_C(4) =-0.2137148994382534E+01_dp\n   ros_C(5) =-0.3214669691237626_dp\n   ros_C(6) =-0.6949742501781779_dp\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n   ros_NewF(1)  = .TRUE.\n   ros_NewF(2)  = .TRUE.\n   ros_NewF(3)  = .TRUE.\n   ros_NewF(4)  = .FALSE.\n!~~~> M_i = Coefficients for new step solution\n   ros_M(1) = 0.2255570073418735E+01_dp\n   ros_M(2) = 0.2870493262186792_dp\n   ros_M(3) = 0.4353179431840180_dp\n   ros_M(4) = 0.1093502252409163E+01_dp\n!~~~> E_i  = Coefficients for error estimator\n   ros_E(1) =-0.2815431932141155_dp\n   ros_E(2) =-0.7276199124938920E-01_dp\n   ros_E(3) =-0.1082196201495311_dp\n   ros_E(4) =-0.1093502252409163E+01_dp\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus 1\n   ros_ELO  = 4.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n   ros_Alpha(1) = 0.0_dp\n   ros_Alpha(2) = 0.1145640000000000E+01_dp\n   ros_Alpha(3) = 0.6552168638155900_dp\n   ros_Alpha(4) = ros_Alpha(3)\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n   ros_Gamma(1) = 0.5728200000000000_dp\n   ros_Gamma(2) =-0.1769193891319233E+01_dp\n   ros_Gamma(3) = 0.7592633437920482_dp\n   ros_Gamma(4) =-0.1049021087100450_dp\n\n  END SUBROUTINE Ros4\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Rodas3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! --- A STIFFLY-STABLE METHOD, 4 stages, order 3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n   rosMethod = RD3\n!~~~> Name of the method\n   ros_Name = 'RODAS-3'\n!~~~> Number of stages\n   ros_S = 4\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:\n!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n   ros_A(1) = 0.0_dp\n   ros_A(2) = 2.0_dp\n   ros_A(3) = 0.0_dp\n   ros_A(4) = 2.0_dp\n   ros_A(5) = 0.0_dp\n   ros_A(6) = 1.0_dp\n\n   ros_C(1) = 4.0_dp\n   ros_C(2) = 1.0_dp\n   ros_C(3) =-1.0_dp\n   ros_C(4) = 1.0_dp\n   ros_C(5) =-1.0_dp\n   ros_C(6) =-(8.0_dp/3.0_dp)\n\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n   ros_NewF(1)  = .TRUE.\n   ros_NewF(2)  = .FALSE.\n   ros_NewF(3)  = .TRUE.\n   ros_NewF(4)  = .TRUE.\n!~~~> M_i = Coefficients for new step solution\n   ros_M(1) = 2.0_dp\n   ros_M(2) = 0.0_dp\n   ros_M(3) = 1.0_dp\n   ros_M(4) = 1.0_dp\n!~~~> E_i  = Coefficients for error estimator\n   ros_E(1) = 0.0_dp\n   ros_E(2) = 0.0_dp\n   ros_E(3) = 0.0_dp\n   ros_E(4) = 1.0_dp\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!    main and the embedded scheme orders plus 1\n   ros_ELO  = 3.0_dp\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n   ros_Alpha(1) = 0.0_dp\n   ros_Alpha(2) = 0.0_dp\n   ros_Alpha(3) = 1.0_dp\n   ros_Alpha(4) = 1.0_dp\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n   ros_Gamma(1) = 0.5_dp\n   ros_Gamma(2) = 1.5_dp\n   ros_Gamma(3) = 0.0_dp\n   ros_Gamma(4) = 0.0_dp\n\n  END SUBROUTINE Rodas3\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Rodas4\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!     STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES\n!\n!      E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL\n!      EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS.\n!      SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS,\n!      SPRINGER-VERLAG (1996)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n    rosMethod = RD4\n!~~~> Name of the method\n    ros_Name = 'RODAS-4'\n!~~~> Number of stages\n    ros_S = 6\n\n!~~~> Y_stage_i ~ Y( T + H*Alpha_i )\n    ros_Alpha(1) = 0.000_dp\n    ros_Alpha(2) = 0.386_dp\n    ros_Alpha(3) = 0.210_dp\n    ros_Alpha(4) = 0.630_dp\n    ros_Alpha(5) = 1.000_dp\n    ros_Alpha(6) = 1.000_dp\n\n!~~~> Gamma_i = \\sum_j  gamma_{i,j}\n    ros_Gamma(1) = 0.2500000000000000_dp\n    ros_Gamma(2) =-0.1043000000000000_dp\n    ros_Gamma(3) = 0.1035000000000000_dp\n    ros_Gamma(4) =-0.3620000000000023E-01_dp\n    ros_Gamma(5) = 0.0_dp\n    ros_Gamma(6) = 0.0_dp\n\n!~~~> The coefficient matrices A and C are strictly lower triangular.\n!   The lower triangular (subdiagonal) elements are stored in row-wise order:\n!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.\n!   The general mapping formula is:  A(i,j) = ros_A( (i-1)*(i-2)/2 + j )\n!                  C(i,j) = ros_C( (i-1)*(i-2)/2 + j )\n\n    ros_A(1) = 0.1544000000000000E+01_dp\n    ros_A(2) = 0.9466785280815826_dp\n    ros_A(3) = 0.2557011698983284_dp\n    ros_A(4) = 0.3314825187068521E+01_dp\n    ros_A(5) = 0.2896124015972201E+01_dp\n    ros_A(6) = 0.9986419139977817_dp\n    ros_A(7) = 0.1221224509226641E+01_dp\n    ros_A(8) = 0.6019134481288629E+01_dp\n    ros_A(9) = 0.1253708332932087E+02_dp\n    ros_A(10) =-0.6878860361058950_dp\n    ros_A(11) = ros_A(7)\n    ros_A(12) = ros_A(8)\n    ros_A(13) = ros_A(9)\n    ros_A(14) = ros_A(10)\n    ros_A(15) = 1.0_dp\n\n    ros_C(1) =-0.5668800000000000E+01_dp\n    ros_C(2) =-0.2430093356833875E+01_dp\n    ros_C(3) =-0.2063599157091915_dp\n    ros_C(4) =-0.1073529058151375_dp\n    ros_C(5) =-0.9594562251023355E+01_dp\n    ros_C(6) =-0.2047028614809616E+02_dp\n    ros_C(7) = 0.7496443313967647E+01_dp\n    ros_C(8) =-0.1024680431464352E+02_dp\n    ros_C(9) =-0.3399990352819905E+02_dp\n    ros_C(10) = 0.1170890893206160E+02_dp\n    ros_C(11) = 0.8083246795921522E+01_dp\n    ros_C(12) =-0.7981132988064893E+01_dp\n    ros_C(13) =-0.3152159432874371E+02_dp\n    ros_C(14) = 0.1631930543123136E+02_dp\n    ros_C(15) =-0.6058818238834054E+01_dp\n\n!~~~> M_i = Coefficients for new step solution\n    ros_M(1) = ros_A(7)\n    ros_M(2) = ros_A(8)\n    ros_M(3) = ros_A(9)\n    ros_M(4) = ros_A(10)\n    ros_M(5) = 1.0_dp\n    ros_M(6) = 1.0_dp\n\n!~~~> E_i  = Coefficients for error estimator\n    ros_E(1) = 0.0_dp\n    ros_E(2) = 0.0_dp\n    ros_E(3) = 0.0_dp\n    ros_E(4) = 0.0_dp\n    ros_E(5) = 0.0_dp\n    ros_E(6) = 1.0_dp\n\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n    ros_NewF(1) = .TRUE.\n    ros_NewF(2) = .TRUE.\n    ros_NewF(3) = .TRUE.\n    ros_NewF(4) = .TRUE.\n    ros_NewF(5) = .TRUE.\n    ros_NewF(6) = .TRUE.\n\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!        main and the embedded scheme orders plus 1\n    ros_ELO = 4.0_dp\n\n  END SUBROUTINE Rodas4\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n  SUBROUTINE Rang3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES\n!\n! J. RANG and L. ANGERMANN\n! NEW ROSENBROCK W-METHODS OF ORDER 3\n! FOR PARTIAL DIFFERENTIAL ALGEBRAIC\n!        EQUATIONS OF INDEX 1\n! BIT Numerical Mathematics (2005) 45: 761-787\n!  DOI: 10.1007/s10543-005-0035-y\n! Table 4.1-4.2\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n   IMPLICIT NONE\n\n    rosMethod = RG3\n!~~~> Name of the method\n    ros_Name = 'RANG-3'\n!~~~> Number of stages\n    ros_S = 4\n\n    ros_A(1) = 5.09052051067020d+00;\n    ros_A(2) = 5.09052051067020d+00;\n    ros_A(3) = 0.0d0;\n    ros_A(4) = 4.97628111010787d+00;\n    ros_A(5) = 2.77268164715849d-02;\n    ros_A(6) = 2.29428036027904d-01;\n\n    ros_C(1) = -1.16790812312283d+01;\n    ros_C(2) = -1.64057326467367d+01;\n    ros_C(3) = -2.77268164715850d-01;\n    ros_C(4) = -8.38103960500476d+00;\n    ros_C(5) = -8.48328409199343d-01;\n    ros_C(6) =  2.87009860433106d-01;\n\n    ros_M(1) =  5.22582761233094d+00;\n    ros_M(2) = -5.56971148154165d-01;\n    ros_M(3) =  3.57979469353645d-01;\n    ros_M(4) =  1.72337398521064d+00;\n\n    ros_E(1) = -5.16845212784040d+00;\n    ros_E(2) = -1.26351942603842d+00;\n    ros_E(3) = -1.11022302462516d-16;\n    ros_E(4) =  2.22044604925031d-16;\n\n    ros_Alpha(1) = 0.0d00;\n    ros_Alpha(2) = 2.21878746765329d+00;\n    ros_Alpha(3) = 2.21878746765329d+00;\n    ros_Alpha(4) = 1.55392337535788d+00;\n\n    ros_Gamma(1) =  4.35866521508459d-01;\n    ros_Gamma(2) = -1.78292094614483d+00;\n    ros_Gamma(3) = -2.46541900496934d+00;\n    ros_Gamma(4) = -8.05529997906370d-01;\n\n\n!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)\n!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)\n    ros_NewF(1) = .TRUE.\n    ros_NewF(2) = .TRUE.\n    ros_NewF(3) = .TRUE.\n    ros_NewF(4) = .TRUE.\n\n!~~~> ros_ELO  = estimator of local order - the minimum between the\n!        main and the embedded scheme orders plus 1\n    ros_ELO = 3.0_dp\n\n  END SUBROUTINE Rang3\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   End of the set of internal Rosenbrock subroutines\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nEND SUBROUTINE Rosenbrock\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE FunTemplate( T, Y, Ydot, P_VAR, D_VAR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the ODE function call.\n!  Updates the rate coefficients (and possibly the fixed species) at each call\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n USE gckpp_Parameters, ONLY : NVAR, LU_NONZERO\n USE gckpp_Global,     ONLY : FIX, RCONST, TIME\n USE gckpp_Function,   ONLY : Fun, Fun_SPLIT\n USE gckpp_Rates,      ONLY : Update_SUN, Update_RCONST\n\n!~~~> Input variables\n   REAL(kind=dp) :: T, Y(NVAR)\n!~~~> Output variables\n   REAL(kind=dp) :: Ydot(NVAR)\n   REAL(kind=dp), OPTIONAL :: P_VAR(NVAR), D_VAR(NVAR)\n!~~~> Local variables\n   REAL(kind=dp) :: Told, P(NVAR), D(NVAR)\n\n   Told = TIME\n   TIME = T\n   IF ( Do_Update_SUN    ) CALL Update_SUN()\n   IF ( Do_Update_RCONST ) CALL Update_RCONST(Y)\n   CALL FUN_SPLIT( Y, FIX, RCONST, Ydot, P, D )\n   TIME = Told\n\n   IF (Present(P_VAR)) P_VAR=P\n   IF (Present(D_VAR)) D_VAR=D\n\nEND SUBROUTINE FunTemplate\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE FunSplitF( T, Y, Ydot, P_VAR, D_VAR, DY_VAR )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the ODE function call.\n!  Updates the rate coefficients (and possibly the fixed species) at each call\n!  This version does not react to DO_FUN even within autoreduce.\n!  It also does not have any optional arguments.\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n USE gckpp_Parameters, ONLY: NVAR, LU_NONZERO\n USE gckpp_Global, ONLY: FIX, RCONST, TIME\n USE gckpp_Function, ONLY: Fun_SPLITF\n!~~~> Input variables\n   REAL(kind=dp) :: T, Y(NVAR)\n!~~~> Output variables\n   REAL(kind=dp) :: Ydot(NVAR)\n   REAL(kind=dp) :: P_VAR(NVAR), D_VAR(NVAR), DY_VAR(NVAR)\n!~~~> Local variables\n   REAL(kind=dp) :: Told, P(NVAR), D(NVAR)\n   P    = 0.d0\n   D    = 0.d0\n   Told = TIME\n   TIME = T\n   CALL Fun_SPLITF( Y, FIX, RCONST, P, D )\n   DY_VAR = D*y ! this can be used later.\n   Ydot = P - DY_VAR\n   TIME = Told\n\n   P_VAR=P\n   D_VAR=D\n\n END SUBROUTINE FunSplitF\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE FunSplitN( T, Y, Ydot)\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the ODE function call.\n!  Updates the rate coefficients (and possibly the fixed species) at each call\n!  This version does not have any optional arguments.\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n USE gckpp_Parameters, ONLY: NVAR, LU_NONZERO\n USE gckpp_Global, ONLY: FIX, RCONST, TIME\n USE gckpp_Function, ONLY: Fun_SPLITF\n!~~~> Input variables\n   REAL(kind=dp) :: T, Y(NVAR)\n!~~~> Output variables\n   REAL(kind=dp) :: Ydot(NVAR)\n   REAL(kind=dp) :: P_VAR(NVAR), D_VAR(NVAR)\n!~~~> Local variables\n   REAL(kind=dp) :: Told, P(NVAR), D(NVAR)\n\n   P    = 0.d0\n   D    = 0.d0\n   Told = TIME\n   TIME = T\n   CALL Fun_SPLITF( Y, FIX, RCONST, P, D )\n   Ydot = P - D*y\n   TIME = Told\n\n END SUBROUTINE FunSplitN\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE JacTemplate( T, Y, Jcb )\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Template for the ODE Jacobian call.\n!  Updates the rate coefficients (and possibly the fixed species) at each call\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n USE gckpp_Parameters,    ONLY : NVAR, LU_NONZERO\n USE gckpp_Global,        ONLY : FIX, RCONST, TIME\n USE gckpp_Jacobian,      ONLY : Jac_SP, LU_IROW, LU_ICOL\n USE gckpp_LinearAlgebra\n USE gckpp_Rates,         ONLY : Update_SUN, Update_RCONST\n!~~~> Input variables\n    REAL(kind=dp) :: T, Y(NVAR)\n!~~~> Output variables\n#ifdef FULL_ALGEBRA\n    REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR)\n#else\n    REAL(kind=dp) :: Jcb(LU_NONZERO)\n#endif\n!~~~> Local variables\n    REAL(kind=dp) :: Told\n#ifdef FULL_ALGEBRA\n    INTEGER :: i, j\n#endif\n\n    Told = TIME\n    TIME = T\n    IF ( Do_Update_SUN    ) CALL Update_SUN()\n    IF ( Do_Update_RCONST ) CALL Update_RCONST(Y)\n#ifdef FULL_ALGEBRA\n    CALL Jac_SP(Y, FIX, RCONST, JV)\n    DO j=1,NVAR\n      DO i=1,NVAR\n         Jcb(i,j) = 0.0_dp\n      END DO\n    END DO\n    DO i=1,LU_NONZERO\n       Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i)\n    END DO\n#else\n    CALL Jac_SP( Y, FIX, RCONST, Jcb )\n#endif\n    TIME = Told\n\nEND SUBROUTINE JacTemplate\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE cKppDecomp( JVS, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse LU factorization\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER  :: IER\n      REAL(kind=dp) :: JVS(cNONZERO), W(rNVAR), a\n      INTEGER  :: k, kk, j, jj\n\n      a = 0. ! mz_rs_20050606\n      IER = 0\n      DO k=1,rNVAR\n        ! mz_rs_20050606: don't check if real value == 0\n        ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN\n        IF ( ABS(JVS(cLU_DIAG(k))) < TINY(a) ) THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = cLU_CROW(k), cLU_CROW(k+1)-1\n              W( cLU_ICOL(kk) ) = JVS(kk)\n        END DO\n        DO kk = cLU_CROW(k), cLU_DIAG(k)-1\n            j = cLU_ICOL(kk)\n            a = -W(j) / JVS( cLU_DIAG(j) )\n            W(j) = -a\n            DO jj = cLU_DIAG(j)+1, cLU_CROW(j+1)-1\n               W( cLU_ICOL(jj) ) = W( cLU_ICOL(jj) ) + a*JVS(jj)\n            END DO\n         END DO\n         DO kk = cLU_CROW(k), cLU_CROW(k+1)-1\n            JVS(kk) = W( cLU_ICOL(kk) )\n         END DO\n      END DO\n      \nEND SUBROUTINE cKppDecomp\n\nSUBROUTINE APPEND(IDX)\n  USE gckpp_JacobianSP\n  ! Reactivate a deactivated species\n  INTEGER, INTENT(IN) :: IDX ! Index of deactivated KPP species to append\n  INTEGER :: I\n  ! set the do_* logicals\n  DO_SLV(IDX) = .true.\n  DO_FUN(IDX) = .true.\n  ! increment rNVAR\n  rNVAR    = rNVAR+1 \n  ! append SPC_MAP & iSPC_MAP\n  SPC_MAP(rNVAR) = IDX ! From AR to full species\n  iSPC_MAP(IDX)  = rNVAR ! From full to AR species\n  ! -- the following requires scanning LU_NONZERO elements\n  DO I = 1, LU_NONZERO\n     IF (LU_IROW(i).eq.IDX .and. DO_SLV(LU_ICOL(i))) THEN ! TERM IS ACTIVE\n        cNONZERO = cNONZERO+1 ! Add a non-zero term\n        ! append cLU_IROW\n        ! append cLU_ICOL\n        ! append JVS_MAP\n        cLU_IROW(cNONZERO) = iSPC_MAP(LU_IROW(I))\n        cLU_ICOL(cNONZERO) = iSPC_MAP(LU_ICOL(I))\n        JVS_MAP(cNONZERO)  = I\n        DO_JVS(I)          = .true.\n        ! append cLU_CROW\n        ! append cLU_DIAG\n        IF (cLU_IROW(cNONZERO).ne.cLU_IROW(cNONZERO-1)) THEN\n           cLU_CROW(rNVAR) = cNONZERO\n        ENDIF\n        IF (cLU_IROW(cNONZERO).eq.cLU_ICOL(cNONZERO)) THEN\n           cLU_DIAG(rNVAR) = cNONZERO\n        ENDIF\n     ENDIF\n  ENDDO\n  cLU_CROW(rNVAR+1) = cNONZERO+1\n  cLU_DIAG(rNVAR+1) = cLU_DIAG(rNVAR)+1\nEND SUBROUTINE APPEND\n\n\nEND MODULE gckpp_Integrator\n! End of INTEGRATE function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Jacobian.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The ODE Jacobian of Chemical Model File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Jacobian.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Jacobian\n\n  USE gckpp_Global, ONLY: DO_JVS\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Jac_SP - the Jacobian of Variables in sparse matrix representation\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      F         - Concentrations of fixed species (local)\n!      RCT       - Rate constants (local)\n!      JVS       - sparse Jacobian of variables\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Jac_SP ( V, F, RCT, JVS )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! F - Concentrations of fixed species (local)\n  REAL(kind=dp) :: F(NFIX)\n! RCT - Rate constants (local)\n  REAL(kind=dp) :: RCT(NREACT)\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n\n\n! Local variables\n! B - Temporary array\n  REAL(kind=dp) :: B(1817)\n\n! B(1) = dA(1)/dV(179)\n  B(1) = RCT(1)*V(341)*V(348)\n! B(2) = dA(1)/dV(341)\n  B(2) = RCT(1)*V(179)*V(348)\n! B(3) = dA(1)/dV(348)\n  B(3) = RCT(1)*V(179)*V(341)\n! B(4) = dA(2)/dV(179)\n  B(4) = RCT(2)*V(339)\n! B(5) = dA(2)/dV(339)\n  B(5) = RCT(2)*V(179)\n! B(6) = dA(3)/dV(179)\n  B(6) = RCT(3)*V(327)\n! B(7) = dA(3)/dV(327)\n  B(7) = RCT(3)*V(179)\n! B(8) = dA(4)/dV(166)\n  B(8) = RCT(4)*V(341)*V(348)\n! B(9) = dA(4)/dV(341)\n  B(9) = RCT(4)*V(166)*V(348)\n! B(10) = dA(4)/dV(348)\n  B(10) = RCT(4)*V(166)*V(341)\n! B(11) = dA(5)/dV(166)\n  B(11) = RCT(5)*V(339)\n! B(12) = dA(5)/dV(339)\n  B(12) = RCT(5)*V(166)\n! B(13) = dA(6)/dV(166)\n  B(13) = RCT(6)*V(327)\n! B(14) = dA(6)/dV(327)\n  B(14) = RCT(6)*V(166)\n! B(15) = dA(7)/dV(264)\n  B(15) = RCT(7)*V(348)\n! B(16) = dA(7)/dV(348)\n  B(16) = RCT(7)*V(264)\n! B(17) = dA(8)/dV(341)\n  B(17) = RCT(8)*V(348)\n! B(18) = dA(8)/dV(348)\n  B(18) = RCT(8)*V(341)\n! B(19) = dA(9)/dV(348)\n  B(19) = RCT(9)\n! B(20) = dA(10)/dV(325)\n  B(20) = RCT(10)*V(348)\n! B(21) = dA(10)/dV(348)\n  B(21) = RCT(10)*V(325)\n! B(22) = dA(11)/dV(89)\n  B(22) = RCT(11)\n! B(23) = dA(12)/dV(89)\n  B(23) = RCT(12)*V(345)*V(348)\n! B(24) = dA(12)/dV(345)\n  B(24) = RCT(12)*V(89)*V(348)\n! B(25) = dA(12)/dV(348)\n  B(25) = RCT(12)*V(89)*V(345)\n! B(26) = dA(13)/dV(341)\n  B(26) = RCT(13)*V(346)\n! B(27) = dA(13)/dV(346)\n  B(27) = RCT(13)*V(341)\n! B(28) = dA(14)/dV(341)\n  B(28) = RCT(14)*V(345)\n! B(29) = dA(14)/dV(345)\n  B(29) = RCT(14)*V(341)\n! B(30) = dA(15)/dV(337)\n  B(30) = RCT(15)*V(341)\n! B(31) = dA(15)/dV(341)\n  B(31) = RCT(15)*V(337)\n! B(32) = dA(16)/dV(335)\n  B(32) = RCT(16)*V(341)\n! B(33) = dA(16)/dV(341)\n  B(33) = RCT(16)*V(335)\n! B(34) = dA(17)/dV(328)\n  B(34) = RCT(17)*V(341)\n! B(35) = dA(17)/dV(341)\n  B(35) = RCT(17)*V(328)\n! B(36) = dA(18)/dV(345)\n  B(36) = RCT(18)*2*V(345)\n! B(37) = dA(19)/dV(345)\n  B(37) = RCT(19)*2*V(345)\n! B(38) = dA(20)/dV(337)\n  B(38) = RCT(20)*V(345)\n! B(39) = dA(20)/dV(345)\n  B(39) = RCT(20)*V(337)\n! B(40) = dA(21)/dV(264)\n  B(40) = RCT(21)*V(345)\n! B(41) = dA(21)/dV(345)\n  B(41) = RCT(21)*V(264)\n! B(42) = dA(22)/dV(337)\n  B(42) = RCT(22)*V(346)\n! B(43) = dA(22)/dV(346)\n  B(43) = RCT(22)*V(337)\n! B(44) = dA(23)/dV(337)\n  B(44) = RCT(23)*2*V(337)\n! B(45) = dA(24)/dV(329)\n  B(45) = RCT(24)*V(345)\n! B(46) = dA(24)/dV(345)\n  B(46) = RCT(24)*V(329)\n! B(47) = dA(25)/dV(228)\n  B(47) = RCT(25)*V(345)\n! B(48) = dA(25)/dV(345)\n  B(48) = RCT(25)*V(228)\n! B(49) = dA(26)/dV(328)\n  B(49) = RCT(26)*V(346)\n! B(50) = dA(26)/dV(346)\n  B(50) = RCT(26)*V(328)\n! B(51) = dA(27)/dV(328)\n  B(51) = RCT(27)*V(346)\n! B(52) = dA(27)/dV(346)\n  B(52) = RCT(27)*V(328)\n! B(53) = dA(28)/dV(328)\n  B(53) = RCT(28)*V(337)\n! B(54) = dA(28)/dV(337)\n  B(54) = RCT(28)*V(328)\n! B(55) = dA(29)/dV(328)\n  B(55) = RCT(29)*2*V(328)\n! B(56) = dA(30)/dV(328)\n  B(56) = RCT(30)*2*V(328)\n! B(57) = dA(31)/dV(328)\n  B(57) = RCT(31)*V(345)\n! B(58) = dA(31)/dV(345)\n  B(58) = RCT(31)*V(328)\n! B(59) = dA(32)/dV(164)\n  B(59) = RCT(32)*V(345)\n! B(60) = dA(32)/dV(345)\n  B(60) = RCT(32)*V(164)\n! B(61) = dA(33)/dV(244)\n  B(61) = RCT(33)*V(345)\n! B(62) = dA(33)/dV(345)\n  B(62) = RCT(33)*V(244)\n! B(63) = dA(34)/dV(325)\n  B(63) = RCT(34)*V(345)\n! B(64) = dA(34)/dV(345)\n  B(64) = RCT(34)*V(325)\n! B(65) = dA(35)/dV(335)\n  B(65) = RCT(35)*V(345)\n! B(66) = dA(35)/dV(345)\n  B(66) = RCT(35)*V(335)\n! B(67) = dA(36)/dV(327)\n  B(67) = RCT(36)*V(345)\n! B(68) = dA(36)/dV(345)\n  B(68) = RCT(36)*V(327)\n! B(69) = dA(37)/dV(345)\n  B(69) = RCT(37)*V(346)\n! B(70) = dA(37)/dV(346)\n  B(70) = RCT(37)*V(345)\n! B(71) = dA(38)/dV(239)\n  B(71) = RCT(38)*V(345)\n! B(72) = dA(38)/dV(345)\n  B(72) = RCT(38)*V(239)\n! B(73) = dA(39)/dV(335)\n  B(73) = RCT(39)*V(337)\n! B(74) = dA(39)/dV(337)\n  B(74) = RCT(39)*V(335)\n! B(75) = dA(40)/dV(108)\n  B(75) = RCT(40)\n! B(76) = dA(41)/dV(108)\n  B(76) = RCT(41)*V(345)\n! B(77) = dA(41)/dV(345)\n  B(77) = RCT(41)*V(108)\n! B(78) = dA(42)/dV(337)\n  B(78) = RCT(42)*V(351)\n! B(79) = dA(42)/dV(351)\n  B(79) = RCT(42)*V(337)\n! B(80) = dA(43)/dV(346)\n  B(80) = RCT(43)*V(351)\n! B(81) = dA(43)/dV(351)\n  B(81) = RCT(43)*V(346)\n! B(82) = dA(44)/dV(345)\n  B(82) = RCT(44)*V(351)\n! B(83) = dA(44)/dV(351)\n  B(83) = RCT(44)*V(345)\n! B(84) = dA(45)/dV(335)\n  B(84) = RCT(45)*V(351)\n! B(85) = dA(45)/dV(351)\n  B(85) = RCT(45)*V(335)\n! B(86) = dA(46)/dV(214)\n  B(86) = RCT(46)\n! B(87) = dA(47)/dV(265)\n  B(87) = RCT(47)*V(345)\n! B(88) = dA(47)/dV(345)\n  B(88) = RCT(47)*V(265)\n! B(89) = dA(48)/dV(282)\n  B(89) = RCT(48)*V(345)\n! B(90) = dA(48)/dV(345)\n  B(90) = RCT(48)*V(282)\n! B(91) = dA(49)/dV(335)\n  B(91) = RCT(49)*V(351)\n! B(92) = dA(49)/dV(351)\n  B(92) = RCT(49)*V(335)\n! B(93) = dA(50)/dV(325)\n  B(93) = RCT(50)*V(351)\n! B(94) = dA(50)/dV(351)\n  B(94) = RCT(50)*V(325)\n! B(95) = dA(51)/dV(326)\n  B(95) = RCT(51)*V(345)\n! B(96) = dA(51)/dV(345)\n  B(96) = RCT(51)*V(326)\n! B(97) = dA(52)/dV(326)\n  B(97) = RCT(52)*V(351)\n! B(98) = dA(52)/dV(351)\n  B(98) = RCT(52)*V(326)\n! B(99) = dA(53)/dV(324)\n  B(99) = RCT(53)*V(335)\n! B(100) = dA(53)/dV(335)\n  B(100) = RCT(53)*V(324)\n! B(101) = dA(54)/dV(139)\n  B(101) = RCT(54)\n! B(102) = dA(55)/dV(139)\n  B(102) = RCT(55)*V(345)\n! B(103) = dA(55)/dV(345)\n  B(103) = RCT(55)*V(139)\n! B(104) = dA(56)/dV(324)\n  B(104) = RCT(56)*V(346)\n! B(105) = dA(56)/dV(346)\n  B(105) = RCT(56)*V(324)\n! B(106) = dA(57)/dV(183)\n  B(106) = RCT(57)*V(345)\n! B(107) = dA(57)/dV(345)\n  B(107) = RCT(57)*V(183)\n! B(108) = dA(58)/dV(296)\n  B(108) = RCT(58)*V(346)\n! B(109) = dA(58)/dV(346)\n  B(109) = RCT(58)*V(296)\n! B(110) = dA(59)/dV(296)\n  B(110) = RCT(59)*V(346)\n! B(111) = dA(59)/dV(346)\n  B(111) = RCT(59)*V(296)\n! B(112) = dA(60)/dV(315)\n  B(112) = RCT(60)*V(346)\n! B(113) = dA(60)/dV(346)\n  B(113) = RCT(60)*V(315)\n! B(114) = dA(61)/dV(141)\n  B(114) = RCT(61)*V(345)\n! B(115) = dA(61)/dV(345)\n  B(115) = RCT(61)*V(141)\n! B(116) = dA(62)/dV(141)\n  B(116) = RCT(62)*V(345)\n! B(117) = dA(62)/dV(345)\n  B(117) = RCT(62)*V(141)\n! B(118) = dA(63)/dV(321)\n  B(118) = RCT(63)*V(346)\n! B(119) = dA(63)/dV(346)\n  B(119) = RCT(63)*V(321)\n! B(120) = dA(64)/dV(321)\n  B(120) = RCT(64)*V(346)\n! B(121) = dA(64)/dV(346)\n  B(121) = RCT(64)*V(321)\n! B(122) = dA(65)/dV(260)\n  B(122) = RCT(65)*V(346)\n! B(123) = dA(65)/dV(346)\n  B(123) = RCT(65)*V(260)\n! B(124) = dA(66)/dV(69)\n  B(124) = RCT(66)*V(345)\n! B(125) = dA(66)/dV(345)\n  B(125) = RCT(66)*V(69)\n! B(126) = dA(67)/dV(69)\n  B(126) = RCT(67)*V(351)\n! B(127) = dA(67)/dV(351)\n  B(127) = RCT(67)*V(69)\n! B(128) = dA(68)/dV(178)\n  B(128) = RCT(68)*V(346)\n! B(129) = dA(68)/dV(346)\n  B(129) = RCT(68)*V(178)\n! B(130) = dA(69)/dV(178)\n  B(130) = RCT(69)*V(346)\n! B(131) = dA(69)/dV(346)\n  B(131) = RCT(69)*V(178)\n! B(132) = dA(70)/dV(178)\n  B(132) = RCT(70)*V(337)\n! B(133) = dA(70)/dV(337)\n  B(133) = RCT(70)*V(178)\n! B(134) = dA(71)/dV(98)\n  B(134) = RCT(71)*V(345)\n! B(135) = dA(71)/dV(345)\n  B(135) = RCT(71)*V(98)\n! B(136) = dA(72)/dV(196)\n  B(136) = RCT(72)*V(345)\n! B(137) = dA(72)/dV(345)\n  B(137) = RCT(72)*V(196)\n! B(138) = dA(73)/dV(165)\n  B(138) = RCT(73)*V(346)\n! B(139) = dA(73)/dV(346)\n  B(139) = RCT(73)*V(165)\n! B(140) = dA(74)/dV(165)\n  B(140) = RCT(74)*V(337)\n! B(141) = dA(74)/dV(337)\n  B(141) = RCT(74)*V(165)\n! B(142) = dA(75)/dV(140)\n  B(142) = RCT(75)*V(345)\n! B(143) = dA(75)/dV(345)\n  B(143) = RCT(75)*V(140)\n! B(144) = dA(76)/dV(140)\n  B(144) = RCT(76)*V(351)\n! B(145) = dA(76)/dV(351)\n  B(145) = RCT(76)*V(140)\n! B(146) = dA(77)/dV(140)\n  B(146) = RCT(77)*V(341)\n! B(147) = dA(77)/dV(341)\n  B(147) = RCT(77)*V(140)\n! B(148) = dA(78)/dV(212)\n  B(148) = RCT(78)*V(346)\n! B(149) = dA(78)/dV(346)\n  B(149) = RCT(78)*V(212)\n! B(150) = dA(79)/dV(212)\n  B(150) = RCT(79)*V(337)\n! B(151) = dA(79)/dV(337)\n  B(151) = RCT(79)*V(212)\n! B(152) = dA(80)/dV(127)\n  B(152) = RCT(80)*V(345)\n! B(153) = dA(80)/dV(345)\n  B(153) = RCT(80)*V(127)\n! B(154) = dA(81)/dV(233)\n  B(154) = RCT(81)*V(345)\n! B(155) = dA(81)/dV(345)\n  B(155) = RCT(81)*V(233)\n! B(156) = dA(82)/dV(132)\n  B(156) = RCT(82)*V(346)\n! B(157) = dA(82)/dV(346)\n  B(157) = RCT(82)*V(132)\n! B(158) = dA(83)/dV(132)\n  B(158) = RCT(83)*V(337)\n! B(159) = dA(83)/dV(337)\n  B(159) = RCT(83)*V(132)\n! B(160) = dA(84)/dV(197)\n  B(160) = RCT(84)*V(337)\n! B(161) = dA(84)/dV(337)\n  B(161) = RCT(84)*V(197)\n! B(162) = dA(85)/dV(197)\n  B(162) = RCT(85)*V(346)\n! B(163) = dA(85)/dV(346)\n  B(163) = RCT(85)*V(197)\n! B(164) = dA(86)/dV(197)\n  B(164) = RCT(86)*V(335)\n! B(165) = dA(86)/dV(335)\n  B(165) = RCT(86)*V(197)\n! B(166) = dA(87)/dV(126)\n  B(166) = RCT(87)\n! B(167) = dA(88)/dV(126)\n  B(167) = RCT(88)*V(345)\n! B(168) = dA(88)/dV(345)\n  B(168) = RCT(88)*V(126)\n! B(169) = dA(89)/dV(142)\n  B(169) = RCT(89)*V(345)\n! B(170) = dA(89)/dV(345)\n  B(170) = RCT(89)*V(142)\n! B(171) = dA(90)/dV(300)\n  B(171) = RCT(90)*V(346)\n! B(172) = dA(90)/dV(346)\n  B(172) = RCT(90)*V(300)\n! B(173) = dA(91)/dV(300)\n  B(173) = RCT(91)*V(346)\n! B(174) = dA(91)/dV(346)\n  B(174) = RCT(91)*V(300)\n! B(175) = dA(92)/dV(249)\n  B(175) = RCT(92)*V(346)\n! B(176) = dA(92)/dV(346)\n  B(176) = RCT(92)*V(249)\n! B(177) = dA(93)/dV(319)\n  B(177) = RCT(93)*V(346)\n! B(178) = dA(93)/dV(346)\n  B(178) = RCT(93)*V(319)\n! B(179) = dA(94)/dV(319)\n  B(179) = RCT(94)*V(346)\n! B(180) = dA(94)/dV(346)\n  B(180) = RCT(94)*V(319)\n! B(181) = dA(95)/dV(318)\n  B(181) = RCT(95)*V(346)\n! B(182) = dA(95)/dV(346)\n  B(182) = RCT(95)*V(318)\n! B(183) = dA(96)/dV(313)\n  B(183) = RCT(96)*V(346)\n! B(184) = dA(96)/dV(346)\n  B(184) = RCT(96)*V(313)\n! B(185) = dA(97)/dV(320)\n  B(185) = RCT(97)*V(346)\n! B(186) = dA(97)/dV(346)\n  B(186) = RCT(97)*V(320)\n! B(187) = dA(98)/dV(323)\n  B(187) = RCT(98)*V(346)\n! B(188) = dA(98)/dV(346)\n  B(188) = RCT(98)*V(323)\n! B(189) = dA(99)/dV(323)\n  B(189) = RCT(99)*V(346)\n! B(190) = dA(99)/dV(346)\n  B(190) = RCT(99)*V(323)\n! B(191) = dA(100)/dV(250)\n  B(191) = RCT(100)*V(346)\n! B(192) = dA(100)/dV(346)\n  B(192) = RCT(100)*V(250)\n! B(193) = dA(101)/dV(142)\n  B(193) = RCT(101)*V(351)\n! B(194) = dA(101)/dV(351)\n  B(194) = RCT(101)*V(142)\n! B(195) = dA(102)/dV(251)\n  B(195) = RCT(102)*V(345)\n! B(196) = dA(102)/dV(345)\n  B(196) = RCT(102)*V(251)\n! B(197) = dA(103)/dV(279)\n  B(197) = RCT(103)*V(345)\n! B(198) = dA(103)/dV(345)\n  B(198) = RCT(103)*V(279)\n! B(199) = dA(104)/dV(283)\n  B(199) = RCT(104)*V(345)\n! B(200) = dA(104)/dV(345)\n  B(200) = RCT(104)*V(283)\n! B(201) = dA(105)/dV(298)\n  B(201) = RCT(105)*V(345)\n! B(202) = dA(105)/dV(345)\n  B(202) = RCT(105)*V(298)\n! B(203) = dA(106)/dV(322)\n  B(203) = RCT(106)*V(335)\n! B(204) = dA(106)/dV(335)\n  B(204) = RCT(106)*V(322)\n! B(205) = dA(107)/dV(124)\n  B(205) = RCT(107)\n! B(206) = dA(108)/dV(124)\n  B(206) = RCT(108)*V(345)\n! B(207) = dA(108)/dV(345)\n  B(207) = RCT(108)*V(124)\n! B(208) = dA(109)/dV(322)\n  B(208) = RCT(109)*V(346)\n! B(209) = dA(109)/dV(346)\n  B(209) = RCT(109)*V(322)\n! B(210) = dA(110)/dV(298)\n  B(210) = RCT(110)*V(351)\n! B(211) = dA(110)/dV(351)\n  B(211) = RCT(110)*V(298)\n! B(212) = dA(111)/dV(295)\n  B(212) = RCT(111)*V(345)\n! B(213) = dA(111)/dV(345)\n  B(213) = RCT(111)*V(295)\n! B(214) = dA(112)/dV(321)\n  B(214) = RCT(112)*V(328)\n! B(215) = dA(112)/dV(328)\n  B(215) = RCT(112)*V(321)\n! B(216) = dA(113)/dV(260)\n  B(216) = RCT(113)*V(328)\n! B(217) = dA(113)/dV(328)\n  B(217) = RCT(113)*V(260)\n! B(218) = dA(114)/dV(319)\n  B(218) = RCT(114)*V(337)\n! B(219) = dA(114)/dV(337)\n  B(219) = RCT(114)*V(319)\n! B(220) = dA(115)/dV(318)\n  B(220) = RCT(115)*V(337)\n! B(221) = dA(115)/dV(337)\n  B(221) = RCT(115)*V(318)\n! B(222) = dA(116)/dV(300)\n  B(222) = RCT(116)*V(337)\n! B(223) = dA(116)/dV(337)\n  B(223) = RCT(116)*V(300)\n! B(224) = dA(117)/dV(249)\n  B(224) = RCT(117)*V(337)\n! B(225) = dA(117)/dV(337)\n  B(225) = RCT(117)*V(249)\n! B(226) = dA(118)/dV(313)\n  B(226) = RCT(118)*V(337)\n! B(227) = dA(118)/dV(337)\n  B(227) = RCT(118)*V(313)\n! B(228) = dA(119)/dV(320)\n  B(228) = RCT(119)*V(337)\n! B(229) = dA(119)/dV(337)\n  B(229) = RCT(119)*V(320)\n! B(230) = dA(120)/dV(323)\n  B(230) = RCT(120)*V(337)\n! B(231) = dA(120)/dV(337)\n  B(231) = RCT(120)*V(323)\n! B(232) = dA(121)/dV(250)\n  B(232) = RCT(121)*V(337)\n! B(233) = dA(121)/dV(337)\n  B(233) = RCT(121)*V(250)\n! B(234) = dA(122)/dV(292)\n  B(234) = RCT(122)*V(345)\n! B(235) = dA(122)/dV(345)\n  B(235) = RCT(122)*V(292)\n! B(236) = dA(123)/dV(320)\n  B(236) = RCT(123)*V(346)\n! B(237) = dA(123)/dV(346)\n  B(237) = RCT(123)*V(320)\n! B(238) = dA(124)/dV(246)\n  B(238) = RCT(124)*V(335)\n! B(239) = dA(124)/dV(335)\n  B(239) = RCT(124)*V(246)\n! B(240) = dA(125)/dV(113)\n  B(240) = RCT(125)\n! B(241) = dA(126)/dV(113)\n  B(241) = 4.51e-12*V(345)\n! B(242) = dA(126)/dV(345)\n  B(242) = 4.51e-12*V(113)\n! B(243) = dA(127)/dV(246)\n  B(243) = RCT(127)*V(346)\n! B(244) = dA(127)/dV(346)\n  B(244) = RCT(127)*V(246)\n! B(245) = dA(128)/dV(246)\n  B(245) = RCT(128)*V(337)\n! B(246) = dA(128)/dV(337)\n  B(246) = RCT(128)*V(246)\n! B(247) = dA(129)/dV(296)\n  B(247) = RCT(129)*V(328)\n! B(248) = dA(129)/dV(328)\n  B(248) = RCT(129)*V(296)\n! B(249) = dA(130)/dV(315)\n  B(249) = RCT(130)*V(328)\n! B(250) = dA(130)/dV(328)\n  B(250) = RCT(130)*V(315)\n! B(251) = dA(131)/dV(292)\n  B(251) = RCT(131)*V(351)\n! B(252) = dA(131)/dV(351)\n  B(252) = RCT(131)*V(292)\n! B(253) = dA(132)/dV(319)\n  B(253) = RCT(132)*V(328)\n! B(254) = dA(132)/dV(328)\n  B(254) = RCT(132)*V(319)\n! B(255) = dA(133)/dV(318)\n  B(255) = RCT(133)*V(328)\n! B(256) = dA(133)/dV(328)\n  B(256) = RCT(133)*V(318)\n! B(257) = dA(134)/dV(300)\n  B(257) = RCT(134)*V(328)\n! B(258) = dA(134)/dV(328)\n  B(258) = RCT(134)*V(300)\n! B(259) = dA(135)/dV(249)\n  B(259) = RCT(135)*V(328)\n! B(260) = dA(135)/dV(328)\n  B(260) = RCT(135)*V(249)\n! B(261) = dA(136)/dV(313)\n  B(261) = RCT(136)*V(328)\n! B(262) = dA(136)/dV(328)\n  B(262) = RCT(136)*V(313)\n! B(263) = dA(137)/dV(320)\n  B(263) = RCT(137)*V(328)\n! B(264) = dA(137)/dV(328)\n  B(264) = RCT(137)*V(320)\n! B(265) = dA(138)/dV(323)\n  B(265) = RCT(138)*V(328)\n! B(266) = dA(138)/dV(328)\n  B(266) = RCT(138)*V(323)\n! B(267) = dA(139)/dV(250)\n  B(267) = RCT(139)*V(328)\n! B(268) = dA(139)/dV(328)\n  B(268) = RCT(139)*V(250)\n! B(269) = dA(140)/dV(156)\n  B(269) = RCT(140)*V(345)\n! B(270) = dA(140)/dV(345)\n  B(270) = RCT(140)*V(156)\n! B(271) = dA(141)/dV(188)\n  B(271) = RCT(141)*V(345)\n! B(272) = dA(141)/dV(345)\n  B(272) = RCT(141)*V(188)\n! B(273) = dA(142)/dV(296)\n  B(273) = RCT(142)*2*V(296)\n! B(274) = dA(143)/dV(315)\n  B(274) = RCT(143)*2*V(315)\n! B(275) = dA(144)/dV(296)\n  B(275) = RCT(144)*V(337)\n! B(276) = dA(144)/dV(337)\n  B(276) = RCT(144)*V(296)\n! B(277) = dA(145)/dV(315)\n  B(277) = RCT(145)*V(337)\n! B(278) = dA(145)/dV(337)\n  B(278) = RCT(145)*V(315)\n! B(279) = dA(146)/dV(321)\n  B(279) = RCT(146)*V(337)\n! B(280) = dA(146)/dV(337)\n  B(280) = RCT(146)*V(321)\n! B(281) = dA(147)/dV(260)\n  B(281) = RCT(147)*V(337)\n! B(282) = dA(147)/dV(337)\n  B(282) = RCT(147)*V(260)\n! B(283) = dA(148)/dV(322)\n  B(283) = RCT(148)*V(337)\n! B(284) = dA(148)/dV(337)\n  B(284) = RCT(148)*V(322)\n! B(285) = dA(149)/dV(290)\n  B(285) = RCT(149)*V(345)\n! B(286) = dA(149)/dV(345)\n  B(286) = RCT(149)*V(290)\n! B(287) = dA(150)/dV(290)\n  B(287) = RCT(150)*V(341)\n! B(288) = dA(150)/dV(341)\n  B(288) = RCT(150)*V(290)\n! B(289) = dA(151)/dV(306)\n  B(289) = RCT(151)*V(345)\n! B(290) = dA(151)/dV(345)\n  B(290) = RCT(151)*V(306)\n! B(291) = dA(152)/dV(306)\n  B(291) = RCT(152)*V(345)\n! B(292) = dA(152)/dV(345)\n  B(292) = RCT(152)*V(306)\n! B(293) = dA(153)/dV(306)\n  B(293) = RCT(153)*V(345)\n! B(294) = dA(153)/dV(345)\n  B(294) = RCT(153)*V(306)\n! B(295) = dA(154)/dV(306)\n  B(295) = RCT(154)*V(351)\n! B(296) = dA(154)/dV(351)\n  B(296) = RCT(154)*V(306)\n! B(297) = dA(155)/dV(213)\n  B(297) = RCT(155)*V(335)\n! B(298) = dA(155)/dV(335)\n  B(298) = RCT(155)*V(213)\n! B(299) = dA(156)/dV(114)\n  B(299) = RCT(156)\n! B(300) = dA(157)/dV(213)\n  B(300) = RCT(157)*V(346)\n! B(301) = dA(157)/dV(346)\n  B(301) = RCT(157)*V(213)\n! B(302) = dA(158)/dV(213)\n  B(302) = RCT(158)*V(337)\n! B(303) = dA(158)/dV(337)\n  B(303) = RCT(158)*V(213)\n! B(304) = dA(159)/dV(213)\n  B(304) = RCT(159)*V(351)\n! B(305) = dA(159)/dV(351)\n  B(305) = RCT(159)*V(213)\n! B(306) = dA(160)/dV(114)\n  B(306) = RCT(160)*V(345)\n! B(307) = dA(160)/dV(345)\n  B(307) = RCT(160)*V(114)\n! B(308) = dA(161)/dV(72)\n  B(308) = RCT(161)*V(345)\n! B(309) = dA(161)/dV(345)\n  B(309) = RCT(161)*V(72)\n! B(310) = dA(162)/dV(290)\n  B(310) = RCT(162)*V(351)\n! B(311) = dA(162)/dV(351)\n  B(311) = RCT(162)*V(290)\n! B(312) = dA(163)/dV(270)\n  B(312) = RCT(163)*V(345)\n! B(313) = dA(163)/dV(345)\n  B(313) = RCT(163)*V(270)\n! B(314) = dA(164)/dV(294)\n  B(314) = RCT(164)*V(345)\n! B(315) = dA(164)/dV(345)\n  B(315) = RCT(164)*V(294)\n! B(316) = dA(165)/dV(270)\n  B(316) = RCT(165)*V(351)\n! B(317) = dA(165)/dV(351)\n  B(317) = RCT(165)*V(270)\n! B(318) = dA(166)/dV(294)\n  B(318) = RCT(166)*V(351)\n! B(319) = dA(166)/dV(351)\n  B(319) = RCT(166)*V(294)\n! B(320) = dA(167)/dV(307)\n  B(320) = RCT(167)*V(345)\n! B(321) = dA(167)/dV(345)\n  B(321) = RCT(167)*V(307)\n! B(322) = dA(168)/dV(307)\n  B(322) = RCT(168)*V(345)\n! B(323) = dA(168)/dV(345)\n  B(323) = RCT(168)*V(307)\n! B(324) = dA(169)/dV(125)\n  B(324) = RCT(169)*V(345)\n! B(325) = dA(169)/dV(345)\n  B(325) = RCT(169)*V(125)\n! B(326) = dA(170)/dV(118)\n  B(326) = RCT(170)*V(345)\n! B(327) = dA(170)/dV(345)\n  B(327) = RCT(170)*V(118)\n! B(328) = dA(171)/dV(99)\n  B(328) = RCT(171)*V(345)\n! B(329) = dA(171)/dV(345)\n  B(329) = RCT(171)*V(99)\n! B(330) = dA(172)/dV(100)\n  B(330) = RCT(172)*V(345)\n! B(331) = dA(172)/dV(345)\n  B(331) = RCT(172)*V(100)\n! B(332) = dA(173)/dV(97)\n  B(332) = RCT(173)*V(345)\n! B(333) = dA(173)/dV(345)\n  B(333) = RCT(173)*V(97)\n! B(334) = dA(174)/dV(102)\n  B(334) = RCT(174)*V(345)\n! B(335) = dA(174)/dV(345)\n  B(335) = RCT(174)*V(102)\n! B(336) = dA(175)/dV(155)\n  B(336) = RCT(175)*V(345)\n! B(337) = dA(175)/dV(345)\n  B(337) = RCT(175)*V(155)\n! B(338) = dA(176)/dV(123)\n  B(338) = RCT(176)*V(345)\n! B(339) = dA(176)/dV(345)\n  B(339) = RCT(176)*V(123)\n! B(340) = dA(177)/dV(24)\n  B(340) = RCT(177)*V(345)\n! B(341) = dA(177)/dV(345)\n  B(341) = RCT(177)*V(24)\n! B(342) = dA(178)/dV(92)\n  B(342) = RCT(178)*V(345)\n! B(343) = dA(178)/dV(345)\n  B(343) = RCT(178)*V(92)\n! B(344) = dA(179)/dV(183)\n  B(344) = RCT(179)*V(351)\n! B(345) = dA(179)/dV(351)\n  B(345) = RCT(179)*V(183)\n! B(346) = dA(180)/dV(324)\n  B(346) = RCT(180)*2*V(324)\n! B(347) = dA(181)/dV(324)\n  B(347) = RCT(181)*V(328)\n! B(348) = dA(181)/dV(328)\n  B(348) = RCT(181)*V(324)\n! B(349) = dA(182)/dV(319)\n  B(349) = RCT(182)*V(324)\n! B(350) = dA(182)/dV(324)\n  B(350) = RCT(182)*V(319)\n! B(351) = dA(183)/dV(300)\n  B(351) = RCT(183)*V(324)\n! B(352) = dA(183)/dV(324)\n  B(352) = RCT(183)*V(300)\n! B(353) = dA(184)/dV(313)\n  B(353) = RCT(184)*V(324)\n! B(354) = dA(184)/dV(324)\n  B(354) = RCT(184)*V(313)\n! B(355) = dA(185)/dV(320)\n  B(355) = RCT(185)*V(324)\n! B(356) = dA(185)/dV(324)\n  B(356) = RCT(185)*V(320)\n! B(357) = dA(186)/dV(323)\n  B(357) = RCT(186)*V(324)\n! B(358) = dA(186)/dV(324)\n  B(358) = RCT(186)*V(323)\n! B(359) = dA(187)/dV(318)\n  B(359) = RCT(187)*V(324)\n! B(360) = dA(187)/dV(324)\n  B(360) = RCT(187)*V(318)\n! B(361) = dA(188)/dV(249)\n  B(361) = RCT(188)*V(324)\n! B(362) = dA(188)/dV(324)\n  B(362) = RCT(188)*V(249)\n! B(363) = dA(189)/dV(250)\n  B(363) = RCT(189)*V(324)\n! B(364) = dA(189)/dV(324)\n  B(364) = RCT(189)*V(250)\n! B(365) = dA(190)/dV(296)\n  B(365) = RCT(190)*V(324)\n! B(366) = dA(190)/dV(324)\n  B(366) = RCT(190)*V(296)\n! B(367) = dA(191)/dV(315)\n  B(367) = RCT(191)*V(324)\n! B(368) = dA(191)/dV(324)\n  B(368) = RCT(191)*V(315)\n! B(369) = dA(192)/dV(260)\n  B(369) = RCT(192)*V(324)\n! B(370) = dA(192)/dV(324)\n  B(370) = RCT(192)*V(260)\n! B(371) = dA(193)/dV(321)\n  B(371) = RCT(193)*V(324)\n! B(372) = dA(193)/dV(324)\n  B(372) = RCT(193)*V(321)\n! B(373) = dA(194)/dV(322)\n  B(373) = RCT(194)*V(324)\n! B(374) = dA(194)/dV(324)\n  B(374) = RCT(194)*V(322)\n! B(375) = dA(195)/dV(322)\n  B(375) = RCT(195)*V(328)\n! B(376) = dA(195)/dV(328)\n  B(376) = RCT(195)*V(322)\n! B(377) = dA(196)/dV(351)\n  B(377) = RCT(196)*2*V(351)\n! B(378) = dA(197)/dV(328)\n  B(378) = RCT(197)*V(335)\n! B(379) = dA(197)/dV(335)\n  B(379) = RCT(197)*V(328)\n! B(380) = dA(198)/dV(80)\n  B(380) = RCT(198)\n! B(381) = dA(199)/dV(94)\n  B(381) = RCT(199)*V(345)\n! B(382) = dA(199)/dV(345)\n  B(382) = RCT(199)*V(94)\n! B(383) = dA(200)/dV(94)\n  B(383) = RCT(200)*V(345)\n! B(384) = dA(200)/dV(345)\n  B(384) = RCT(200)*V(94)\n! B(385) = dA(201)/dV(94)\n  B(385) = RCT(201)*V(351)\n! B(386) = dA(201)/dV(351)\n  B(386) = RCT(201)*V(94)\n! B(387) = dA(202)/dV(345)\n  B(387) = RCT(202)*V(348)\n! B(388) = dA(202)/dV(348)\n  B(388) = RCT(202)*V(345)\n! B(389) = dA(203)/dV(341)\n  B(389) = RCT(203)*V(342)\n! B(390) = dA(203)/dV(342)\n  B(390) = RCT(203)*V(341)\n! B(391) = dA(204)/dV(337)\n  B(391) = RCT(204)*V(347)\n! B(392) = dA(204)/dV(347)\n  B(392) = RCT(204)*V(337)\n! B(393) = dA(205)/dV(337)\n  B(393) = RCT(205)*V(342)\n! B(394) = dA(205)/dV(342)\n  B(394) = RCT(205)*V(337)\n! B(395) = dA(206)/dV(345)\n  B(395) = RCT(206)*V(352)\n! B(396) = dA(206)/dV(352)\n  B(396) = RCT(206)*V(345)\n! B(397) = dA(207)/dV(347)\n  B(397) = RCT(207)*2*V(347)\n! B(398) = dA(208)/dV(347)\n  B(398) = RCT(208)*2*V(347)\n! B(399) = dA(209)/dV(346)\n  B(399) = RCT(209)*V(347)\n! B(400) = dA(209)/dV(347)\n  B(400) = RCT(209)*V(346)\n! B(401) = dA(210)/dV(218)\n  B(401) = RCT(210)*V(342)\n! B(402) = dA(210)/dV(342)\n  B(402) = RCT(210)*V(218)\n! B(403) = dA(211)/dV(148)\n  B(403) = RCT(211)*V(345)\n! B(404) = dA(211)/dV(345)\n  B(404) = RCT(211)*V(148)\n! B(405) = dA(212)/dV(316)\n  B(405) = RCT(212)*V(343)\n! B(406) = dA(212)/dV(343)\n  B(406) = RCT(212)*V(316)\n! B(407) = dA(213)/dV(343)\n  B(407) = RCT(213)*V(352)\n! B(408) = dA(213)/dV(352)\n  B(408) = RCT(213)*V(343)\n! B(409) = dA(214)/dV(345)\n  B(409) = RCT(214)*V(347)\n! B(410) = dA(214)/dV(347)\n  B(410) = RCT(214)*V(345)\n! B(411) = dA(215)/dV(342)\n  B(411) = RCT(215)*V(351)\n! B(412) = dA(215)/dV(351)\n  B(412) = RCT(215)*V(342)\n! B(413) = dA(216)/dV(325)\n  B(413) = RCT(216)*V(342)\n! B(414) = dA(216)/dV(342)\n  B(414) = RCT(216)*V(325)\n! B(415) = dA(217)/dV(326)\n  B(415) = RCT(217)*V(342)\n! B(416) = dA(217)/dV(342)\n  B(416) = RCT(217)*V(326)\n! B(417) = dA(218)/dV(295)\n  B(417) = RCT(218)*V(342)\n! B(418) = dA(218)/dV(342)\n  B(418) = RCT(218)*V(295)\n! B(419) = dA(219)/dV(183)\n  B(419) = RCT(219)*V(342)\n! B(420) = dA(219)/dV(342)\n  B(420) = RCT(219)*V(183)\n! B(421) = dA(220)/dV(141)\n  B(421) = RCT(220)*V(342)\n! B(422) = dA(220)/dV(342)\n  B(422) = RCT(220)*V(141)\n! B(423) = dA(221)/dV(335)\n  B(423) = RCT(221)*V(342)\n! B(424) = dA(221)/dV(342)\n  B(424) = RCT(221)*V(335)\n! B(425) = dA(222)/dV(335)\n  B(425) = RCT(222)*V(347)\n! B(426) = dA(222)/dV(347)\n  B(426) = RCT(222)*V(335)\n! B(427) = dA(223)/dV(81)\n  B(427) = RCT(223)*V(345)\n! B(428) = dA(223)/dV(345)\n  B(428) = RCT(223)*V(81)\n! B(429) = dA(224)/dV(78)\n  B(429) = RCT(224)*V(345)\n! B(430) = dA(224)/dV(345)\n  B(430) = RCT(224)*V(78)\n! B(431) = dA(225)/dV(105)\n  B(431) = RCT(225)*V(345)\n! B(432) = dA(225)/dV(345)\n  B(432) = RCT(225)*V(105)\n! B(433) = dA(226)/dV(334)\n  B(433) = RCT(226)*V(336)\n! B(434) = dA(226)/dV(336)\n  B(434) = RCT(226)*V(334)\n! B(435) = dA(227)/dV(334)\n  B(435) = RCT(227)*F(2)\n! B(437) = dA(228)/dV(334)\n  B(437) = RCT(228)*F(3)\n! B(439) = dA(229)/dV(334)\n  B(439) = RCT(229)*F(1)\n! B(441) = dA(230)/dV(63)\n  B(441) = RCT(230)*V(334)\n! B(442) = dA(230)/dV(334)\n  B(442) = RCT(230)*V(63)\n! B(443) = dA(231)/dV(228)\n  B(443) = RCT(231)*V(334)\n! B(444) = dA(231)/dV(334)\n  B(444) = RCT(231)*V(228)\n! B(445) = dA(232)/dV(343)\n  B(445) = RCT(232)*F(3)\n! B(447) = dA(233)/dV(341)\n  B(447) = RCT(233)*V(343)\n! B(448) = dA(233)/dV(343)\n  B(448) = RCT(233)*V(341)\n! B(449) = dA(234)/dV(345)\n  B(449) = RCT(234)*F(1)\n! B(451) = dA(235)/dV(343)\n  B(451) = RCT(235)*V(345)\n! B(452) = dA(235)/dV(345)\n  B(452) = RCT(235)*V(343)\n! B(453) = dA(236)/dV(337)\n  B(453) = RCT(236)*V(343)\n! B(454) = dA(236)/dV(343)\n  B(454) = RCT(236)*V(337)\n! B(455) = dA(237)/dV(334)\n  B(455) = RCT(237)*V(341)\n! B(456) = dA(237)/dV(341)\n  B(456) = RCT(237)*V(334)\n! B(457) = dA(238)/dV(68)\n  B(457) = RCT(238)*V(343)\n! B(458) = dA(238)/dV(343)\n  B(458) = RCT(238)*V(68)\n! B(459) = dA(239)/dV(68)\n  B(459) = RCT(239)*V(345)\n! B(460) = dA(239)/dV(345)\n  B(460) = RCT(239)*V(68)\n! B(461) = dA(240)/dV(335)\n  B(461) = RCT(240)*V(343)\n! B(462) = dA(240)/dV(343)\n  B(462) = RCT(240)*V(335)\n! B(463) = dA(241)/dV(343)\n  B(463) = RCT(241)*V(351)\n! B(464) = dA(241)/dV(351)\n  B(464) = RCT(241)*V(343)\n! B(465) = dA(242)/dV(343)\n  B(465) = RCT(242)*V(346)\n! B(466) = dA(242)/dV(346)\n  B(466) = RCT(242)*V(343)\n! B(467) = dA(243)/dV(335)\n  B(467) = RCT(243)*V(343)\n! B(468) = dA(243)/dV(343)\n  B(468) = RCT(243)*V(335)\n! B(469) = dA(244)/dV(264)\n  B(469) = RCT(244)*V(343)\n! B(470) = dA(244)/dV(343)\n  B(470) = RCT(244)*V(264)\n! B(471) = dA(245)/dV(217)\n  B(471) = RCT(245)*F(3)\n! B(473) = dA(246)/dV(217)\n  B(473) = RCT(246)*V(341)\n! B(474) = dA(246)/dV(341)\n  B(474) = RCT(246)*V(217)\n! B(475) = dA(247)/dV(217)\n  B(475) = RCT(247)*V(337)\n! B(476) = dA(247)/dV(337)\n  B(476) = RCT(247)*V(217)\n! B(477) = dA(248)/dV(67)\n  B(477) = RCT(248)*F(3)\n! B(479) = dA(249)/dV(67)\n  B(479) = RCT(249)*V(346)\n! B(480) = dA(249)/dV(346)\n  B(480) = RCT(249)*V(67)\n! B(481) = dA(250)/dV(67)\n  B(481) = RCT(250)*V(335)\n! B(482) = dA(250)/dV(335)\n  B(482) = RCT(250)*V(67)\n! B(483) = dA(251)/dV(343)\n  B(483) = RCT(251)*V(347)\n! B(484) = dA(251)/dV(347)\n  B(484) = RCT(251)*V(343)\n! B(485) = dA(252)/dV(325)\n  B(485) = RCT(252)*V(343)\n! B(486) = dA(252)/dV(343)\n  B(486) = RCT(252)*V(325)\n! B(487) = dA(253)/dV(334)\n  B(487) = RCT(253)*V(339)\n! B(488) = dA(253)/dV(339)\n  B(488) = RCT(253)*V(334)\n! B(489) = dA(254)/dV(334)\n  B(489) = RCT(254)*V(352)\n! B(490) = dA(254)/dV(352)\n  B(490) = RCT(254)*V(334)\n! B(491) = dA(255)/dV(245)\n  B(491) = RCT(255)*V(334)\n! B(492) = dA(255)/dV(334)\n  B(492) = RCT(255)*V(245)\n! B(493) = dA(256)/dV(46)\n  B(493) = RCT(256)*V(334)\n! B(494) = dA(256)/dV(334)\n  B(494) = RCT(256)*V(46)\n! B(495) = dA(257)/dV(181)\n  B(495) = RCT(257)*V(334)\n! B(496) = dA(257)/dV(334)\n  B(496) = RCT(257)*V(181)\n! B(497) = dA(258)/dV(105)\n  B(497) = RCT(258)*V(334)\n! B(498) = dA(258)/dV(334)\n  B(498) = RCT(258)*V(105)\n! B(499) = dA(259)/dV(78)\n  B(499) = RCT(259)*V(334)\n! B(500) = dA(259)/dV(334)\n  B(500) = RCT(259)*V(78)\n! B(501) = dA(260)/dV(81)\n  B(501) = RCT(260)*V(334)\n! B(502) = dA(260)/dV(334)\n  B(502) = RCT(260)*V(81)\n! B(503) = dA(261)/dV(87)\n  B(503) = RCT(261)*V(334)\n! B(504) = dA(261)/dV(334)\n  B(504) = RCT(261)*V(87)\n! B(505) = dA(262)/dV(47)\n  B(505) = RCT(262)*V(334)\n! B(506) = dA(262)/dV(334)\n  B(506) = RCT(262)*V(47)\n! B(507) = dA(263)/dV(48)\n  B(507) = RCT(263)*V(334)\n! B(508) = dA(263)/dV(334)\n  B(508) = RCT(263)*V(48)\n! B(509) = dA(264)/dV(61)\n  B(509) = RCT(264)*V(334)\n! B(510) = dA(264)/dV(334)\n  B(510) = RCT(264)*V(61)\n! B(511) = dA(265)/dV(53)\n  B(511) = RCT(265)*V(334)\n! B(512) = dA(265)/dV(334)\n  B(512) = RCT(265)*V(53)\n! B(513) = dA(266)/dV(85)\n  B(513) = RCT(266)*V(334)\n! B(514) = dA(266)/dV(334)\n  B(514) = RCT(266)*V(85)\n! B(515) = dA(267)/dV(86)\n  B(515) = RCT(267)*V(334)\n! B(516) = dA(267)/dV(334)\n  B(516) = RCT(267)*V(86)\n! B(517) = dA(268)/dV(84)\n  B(517) = RCT(268)*V(334)\n! B(518) = dA(268)/dV(334)\n  B(518) = RCT(268)*V(84)\n! B(519) = dA(269)/dV(49)\n  B(519) = RCT(269)*V(334)\n! B(520) = dA(269)/dV(334)\n  B(520) = RCT(269)*V(49)\n! B(521) = dA(270)/dV(50)\n  B(521) = RCT(270)*V(334)\n! B(522) = dA(270)/dV(334)\n  B(522) = RCT(270)*V(50)\n! B(523) = dA(271)/dV(51)\n  B(523) = RCT(271)*V(334)\n! B(524) = dA(271)/dV(334)\n  B(524) = RCT(271)*V(51)\n! B(525) = dA(272)/dV(54)\n  B(525) = RCT(272)*V(334)\n! B(526) = dA(272)/dV(334)\n  B(526) = RCT(272)*V(54)\n! B(527) = dA(273)/dV(245)\n  B(527) = RCT(273)*V(345)\n! B(528) = dA(273)/dV(345)\n  B(528) = RCT(273)*V(245)\n! B(529) = dA(274)/dV(328)\n  B(529) = RCT(274)*V(338)\n! B(530) = dA(274)/dV(338)\n  B(530) = RCT(274)*V(328)\n! B(531) = dA(275)/dV(338)\n  B(531) = RCT(275)*V(345)\n! B(532) = dA(275)/dV(345)\n  B(532) = RCT(275)*V(338)\n! B(533) = dA(276)/dV(338)\n  B(533) = RCT(276)*V(345)\n! B(534) = dA(276)/dV(345)\n  B(534) = RCT(276)*V(338)\n! B(535) = dA(277)/dV(120)\n  B(535) = RCT(277)*V(345)\n! B(536) = dA(277)/dV(345)\n  B(536) = RCT(277)*V(120)\n! B(537) = dA(278)/dV(76)\n  B(537) = RCT(278)*V(345)\n! B(538) = dA(278)/dV(345)\n  B(538) = RCT(278)*V(76)\n! B(539) = dA(279)/dV(339)\n  B(539) = RCT(279)*V(345)\n! B(540) = dA(279)/dV(345)\n  B(540) = RCT(279)*V(339)\n! B(541) = dA(280)/dV(333)\n  B(541) = RCT(280)*V(345)\n! B(542) = dA(280)/dV(345)\n  B(542) = RCT(280)*V(333)\n! B(543) = dA(281)/dV(297)\n  B(543) = RCT(281)*V(345)\n! B(544) = dA(281)/dV(345)\n  B(544) = RCT(281)*V(297)\n! B(545) = dA(282)/dV(317)\n  B(545) = RCT(282)*V(345)\n! B(546) = dA(282)/dV(345)\n  B(546) = RCT(282)*V(317)\n! B(547) = dA(283)/dV(181)\n  B(547) = RCT(283)*V(345)\n! B(548) = dA(283)/dV(345)\n  B(548) = RCT(283)*V(181)\n! B(549) = dA(284)/dV(79)\n  B(549) = RCT(284)*V(345)\n! B(550) = dA(284)/dV(345)\n  B(550) = RCT(284)*V(79)\n! B(551) = dA(285)/dV(75)\n  B(551) = RCT(285)*V(345)\n! B(552) = dA(285)/dV(345)\n  B(552) = RCT(285)*V(75)\n! B(553) = dA(286)/dV(43)\n  B(553) = RCT(286)*V(345)\n! B(554) = dA(286)/dV(345)\n  B(554) = RCT(286)*V(43)\n! B(555) = dA(287)/dV(87)\n  B(555) = RCT(287)*V(345)\n! B(556) = dA(287)/dV(345)\n  B(556) = RCT(287)*V(87)\n! B(557) = dA(288)/dV(85)\n  B(557) = RCT(288)*V(345)\n! B(558) = dA(288)/dV(345)\n  B(558) = RCT(288)*V(85)\n! B(559) = dA(289)/dV(86)\n  B(559) = RCT(289)*V(345)\n! B(560) = dA(289)/dV(345)\n  B(560) = RCT(289)*V(86)\n! B(561) = dA(290)/dV(84)\n  B(561) = RCT(290)*V(345)\n! B(562) = dA(290)/dV(345)\n  B(562) = RCT(290)*V(84)\n! B(563) = dA(291)/dV(228)\n  B(563) = RCT(291)*V(340)\n! B(564) = dA(291)/dV(340)\n  B(564) = RCT(291)*V(228)\n! B(565) = dA(292)/dV(325)\n  B(565) = RCT(292)*V(340)\n! B(566) = dA(292)/dV(340)\n  B(566) = RCT(292)*V(325)\n! B(567) = dA(293)/dV(340)\n  B(567) = RCT(293)*V(341)\n! B(568) = dA(293)/dV(341)\n  B(568) = RCT(293)*V(340)\n! B(569) = dA(294)/dV(340)\n  B(569) = RCT(294)*F(1)\n! B(571) = dA(295)/dV(264)\n  B(571) = RCT(295)*V(340)\n! B(572) = dA(295)/dV(340)\n  B(572) = RCT(295)*V(264)\n! B(573) = dA(296)/dV(337)\n  B(573) = RCT(296)*V(340)\n! B(574) = dA(296)/dV(340)\n  B(574) = RCT(296)*V(337)\n! B(575) = dA(297)/dV(337)\n  B(575) = RCT(297)*V(340)\n! B(576) = dA(297)/dV(340)\n  B(576) = RCT(297)*V(337)\n! B(577) = dA(298)/dV(338)\n  B(577) = RCT(298)*V(343)\n! B(578) = dA(298)/dV(343)\n  B(578) = RCT(298)*V(338)\n! B(579) = dA(299)/dV(337)\n  B(579) = RCT(299)*V(338)\n! B(580) = dA(299)/dV(338)\n  B(580) = RCT(299)*V(337)\n! B(581) = dA(300)/dV(338)\n  B(581) = RCT(300)*V(346)\n! B(582) = dA(300)/dV(346)\n  B(582) = RCT(300)*V(338)\n! B(583) = dA(301)/dV(335)\n  B(583) = RCT(301)*V(338)\n! B(584) = dA(301)/dV(338)\n  B(584) = RCT(301)*V(335)\n! B(585) = dA(302)/dV(338)\n  B(585) = RCT(302)*2*V(338)\n! B(586) = dA(303)/dV(338)\n  B(586) = RCT(303)*2*V(338)\n! B(587) = dA(304)/dV(338)\n  B(587) = RCT(304)*2*V(338)\n! B(588) = dA(305)/dV(340)\n  B(588) = RCT(305)*F(3)\n! B(590) = dA(306)/dV(110)\n  B(590) = RCT(306)\n! B(591) = dA(307)/dV(338)\n  B(591) = RCT(307)*2*V(338)\n! B(592) = dA(308)/dV(76)\n  B(592) = RCT(308)\n! B(593) = dA(309)/dV(110)\n  B(593) = RCT(309)*V(340)\n! B(594) = dA(309)/dV(340)\n  B(594) = RCT(309)*V(110)\n! B(595) = dA(310)/dV(338)\n  B(595) = RCT(310)*V(347)\n! B(596) = dA(310)/dV(347)\n  B(596) = RCT(310)*V(338)\n! B(597) = dA(311)/dV(338)\n  B(597) = RCT(311)*V(347)\n! B(598) = dA(311)/dV(347)\n  B(598) = RCT(311)*V(338)\n! B(599) = dA(312)/dV(338)\n  B(599) = RCT(312)*V(347)\n! B(600) = dA(312)/dV(347)\n  B(600) = RCT(312)*V(338)\n! B(601) = dA(313)/dV(317)\n  B(601) = RCT(313)*V(343)\n! B(602) = dA(313)/dV(343)\n  B(602) = RCT(313)*V(317)\n! B(603) = dA(314)/dV(317)\n  B(603) = RCT(314)*V(340)\n! B(604) = dA(314)/dV(340)\n  B(604) = RCT(314)*V(317)\n! B(605) = dA(315)/dV(181)\n  B(605) = RCT(315)*V(340)\n! B(606) = dA(315)/dV(340)\n  B(606) = RCT(315)*V(181)\n! B(607) = dA(316)/dV(79)\n  B(607) = RCT(316)*V(340)\n! B(608) = dA(316)/dV(340)\n  B(608) = RCT(316)*V(79)\n! B(609) = dA(317)/dV(75)\n  B(609) = RCT(317)*V(340)\n! B(610) = dA(317)/dV(340)\n  B(610) = RCT(317)*V(75)\n! B(611) = dA(318)/dV(265)\n  B(611) = RCT(318)*V(340)\n! B(612) = dA(318)/dV(340)\n  B(612) = RCT(318)*V(265)\n! B(613) = dA(319)/dV(328)\n  B(613) = RCT(319)*V(340)\n! B(614) = dA(319)/dV(340)\n  B(614) = RCT(319)*V(328)\n! B(615) = dA(320)/dV(164)\n  B(615) = RCT(320)*V(340)\n! B(616) = dA(320)/dV(340)\n  B(616) = RCT(320)*V(164)\n! B(617) = dA(321)/dV(183)\n  B(617) = RCT(321)*V(340)\n! B(618) = dA(321)/dV(340)\n  B(618) = RCT(321)*V(183)\n! B(619) = dA(322)/dV(296)\n  B(619) = RCT(322)*V(340)\n! B(620) = dA(322)/dV(340)\n  B(620) = RCT(322)*V(296)\n! B(621) = dA(323)/dV(315)\n  B(621) = RCT(323)*V(340)\n! B(622) = dA(323)/dV(340)\n  B(622) = RCT(323)*V(315)\n! B(623) = dA(324)/dV(282)\n  B(623) = RCT(324)*V(340)\n! B(624) = dA(324)/dV(340)\n  B(624) = RCT(324)*V(282)\n! B(625) = dA(325)/dV(156)\n  B(625) = RCT(325)*V(340)\n! B(626) = dA(325)/dV(340)\n  B(626) = RCT(325)*V(156)\n! B(627) = dA(326)/dV(283)\n  B(627) = RCT(326)*V(340)\n! B(628) = dA(326)/dV(340)\n  B(628) = RCT(326)*V(283)\n! B(629) = dA(327)/dV(141)\n  B(629) = RCT(327)*V(340)\n! B(630) = dA(327)/dV(340)\n  B(630) = RCT(327)*V(141)\n! B(631) = dA(328)/dV(141)\n  B(631) = RCT(328)*V(340)\n! B(632) = dA(328)/dV(340)\n  B(632) = RCT(328)*V(141)\n! B(633) = dA(329)/dV(295)\n  B(633) = RCT(329)*V(340)\n! B(634) = dA(329)/dV(340)\n  B(634) = RCT(329)*V(295)\n! B(635) = dA(330)/dV(276)\n  B(635) = RCT(330)*V(340)\n! B(636) = dA(330)/dV(340)\n  B(636) = RCT(330)*V(276)\n! B(637) = dA(331)/dV(142)\n  B(637) = RCT(331)*V(340)\n! B(638) = dA(331)/dV(340)\n  B(638) = RCT(331)*V(142)\n! B(639) = dA(332)/dV(290)\n  B(639) = RCT(332)*V(340)\n! B(640) = dA(332)/dV(340)\n  B(640) = RCT(332)*V(290)\n! B(641) = dA(333)/dV(290)\n  B(641) = RCT(333)*V(342)\n! B(642) = dA(333)/dV(342)\n  B(642) = RCT(333)*V(290)\n! B(643) = dA(334)/dV(331)\n  B(643) = RCT(334)*V(346)\n! B(644) = dA(334)/dV(346)\n  B(644) = RCT(334)*V(331)\n! B(645) = dA(335)/dV(62)\n  B(645) = RCT(335)*2*V(62)\n! B(646) = dA(336)/dV(331)\n  B(646) = RCT(336)*V(335)\n! B(647) = dA(336)/dV(335)\n  B(647) = RCT(336)*V(331)\n! B(648) = dA(337)/dV(252)\n  B(648) = RCT(337)\n! B(649) = dA(338)/dV(252)\n  B(649) = RCT(338)*2*V(252)\n! B(650) = dA(339)/dV(170)\n  B(650) = RCT(339)*V(351)\n! B(651) = dA(339)/dV(351)\n  B(651) = RCT(339)*V(170)\n! B(652) = dA(340)/dV(284)\n  B(652) = RCT(340)*V(335)\n! B(653) = dA(340)/dV(335)\n  B(653) = RCT(340)*V(284)\n! B(654) = dA(341)/dV(332)\n  B(654) = RCT(341)\n! B(655) = dA(342)/dV(331)\n  B(655) = RCT(342)*V(332)\n! B(656) = dA(342)/dV(332)\n  B(656) = RCT(342)*V(331)\n! B(657) = dA(343)/dV(331)\n  B(657) = RCT(343)*V(347)\n! B(658) = dA(343)/dV(347)\n  B(658) = RCT(343)*V(331)\n! B(659) = dA(344)/dV(284)\n  B(659) = RCT(344)*V(347)\n! B(660) = dA(344)/dV(347)\n  B(660) = RCT(344)*V(284)\n! B(661) = dA(345)/dV(96)\n  B(661) = RCT(345)*V(284)\n! B(662) = dA(345)/dV(284)\n  B(662) = RCT(345)*V(96)\n! B(663) = dA(346)/dV(96)\n  B(663) = RCT(346)*2*V(96)\n! B(664) = dA(347)/dV(42)\n  B(664) = RCT(347)\n! B(665) = dA(348)/dV(96)\n  B(665) = RCT(348)*V(346)\n! B(666) = dA(348)/dV(346)\n  B(666) = RCT(348)*V(96)\n! B(667) = dA(349)/dV(284)\n  B(667) = RCT(349)*V(338)\n! B(668) = dA(349)/dV(338)\n  B(668) = RCT(349)*V(284)\n! B(669) = dA(350)/dV(331)\n  B(669) = RCT(350)*V(341)\n! B(670) = dA(350)/dV(341)\n  B(670) = RCT(350)*V(331)\n! B(671) = dA(351)/dV(331)\n  B(671) = RCT(351)*V(337)\n! B(672) = dA(351)/dV(337)\n  B(672) = RCT(351)*V(331)\n! B(673) = dA(352)/dV(170)\n  B(673) = RCT(352)*V(345)\n! B(674) = dA(352)/dV(345)\n  B(674) = RCT(352)*V(170)\n! B(675) = dA(353)/dV(73)\n  B(675) = RCT(353)*V(345)\n! B(676) = dA(353)/dV(345)\n  B(676) = RCT(353)*V(73)\n! B(677) = dA(354)/dV(330)\n  B(677) = RCT(354)*V(345)\n! B(678) = dA(354)/dV(345)\n  B(678) = RCT(354)*V(330)\n! B(679) = dA(355)/dV(284)\n  B(679) = RCT(355)*V(337)\n! B(680) = dA(355)/dV(337)\n  B(680) = RCT(355)*V(284)\n! B(681) = dA(356)/dV(284)\n  B(681) = RCT(356)*V(346)\n! B(682) = dA(356)/dV(346)\n  B(682) = RCT(356)*V(284)\n! B(683) = dA(357)/dV(284)\n  B(683) = RCT(357)*2*V(284)\n! B(684) = dA(358)/dV(44)\n  B(684) = RCT(358)\n! B(685) = dA(359)/dV(52)\n  B(685) = RCT(359)*V(345)\n! B(686) = dA(359)/dV(345)\n  B(686) = RCT(359)*V(52)\n! B(687) = dA(360)/dV(261)\n  B(687) = RCT(360)*V(345)\n! B(688) = dA(360)/dV(345)\n  B(688) = RCT(360)*V(261)\n! B(689) = dA(361)/dV(247)\n  B(689) = RCT(361)*V(345)\n! B(690) = dA(361)/dV(345)\n  B(690) = RCT(361)*V(247)\n! B(691) = dA(362)/dV(312)\n  B(691) = RCT(362)*V(329)\n! B(692) = dA(362)/dV(329)\n  B(692) = RCT(362)*V(312)\n! B(693) = dA(363)/dV(312)\n  B(693) = RCT(363)*V(346)\n! B(694) = dA(363)/dV(346)\n  B(694) = RCT(363)*V(312)\n! B(695) = dA(364)/dV(312)\n  B(695) = RCT(364)*V(335)\n! B(696) = dA(364)/dV(335)\n  B(696) = RCT(364)*V(312)\n! B(697) = dA(365)/dV(312)\n  B(697) = RCT(365)*V(336)\n! B(698) = dA(365)/dV(336)\n  B(698) = RCT(365)*V(312)\n! B(699) = dA(366)/dV(312)\n  B(699) = RCT(366)*V(336)*V(336)\n! B(700) = dA(366)/dV(336)\n  B(700) = RCT(366)*2*V(312)*V(336)\n! B(701) = dA(367)/dV(312)\n  B(701) = RCT(367)*V(341)\n! B(702) = dA(367)/dV(341)\n  B(702) = RCT(367)*V(312)\n! B(703) = dA(368)/dV(312)\n  B(703) = RCT(368)*V(348)\n! B(704) = dA(368)/dV(348)\n  B(704) = RCT(368)*V(312)\n! B(705) = dA(369)/dV(241)\n  B(705) = RCT(369)*V(329)\n! B(706) = dA(369)/dV(329)\n  B(706) = RCT(369)*V(241)\n! B(707) = dA(370)/dV(241)\n  B(707) = RCT(370)*V(346)\n! B(708) = dA(370)/dV(346)\n  B(708) = RCT(370)*V(241)\n! B(709) = dA(371)/dV(241)\n  B(709) = RCT(371)*V(335)\n! B(710) = dA(371)/dV(335)\n  B(710) = RCT(371)*V(241)\n! B(711) = dA(372)/dV(241)\n  B(711) = RCT(372)*V(348)\n! B(712) = dA(372)/dV(348)\n  B(712) = RCT(372)*V(241)\n! B(713) = dA(373)/dV(241)\n  B(713) = RCT(373)*V(336)\n! B(714) = dA(373)/dV(336)\n  B(714) = RCT(373)*V(241)\n! B(715) = dA(374)/dV(241)\n  B(715) = RCT(374)*V(336)\n! B(716) = dA(374)/dV(336)\n  B(716) = RCT(374)*V(241)\n! B(717) = dA(375)/dV(191)\n  B(717) = RCT(375)*V(351)\n! B(718) = dA(375)/dV(351)\n  B(718) = RCT(375)*V(191)\n! B(719) = dA(376)/dV(219)\n  B(719) = RCT(376)*V(351)\n! B(720) = dA(376)/dV(351)\n  B(720) = RCT(376)*V(219)\n! B(721) = dA(377)/dV(167)\n  B(721) = RCT(377)*V(351)\n! B(722) = dA(377)/dV(351)\n  B(722) = RCT(377)*V(167)\n! B(723) = dA(378)/dV(167)\n  B(723) = RCT(378)*V(345)\n! B(724) = dA(378)/dV(345)\n  B(724) = RCT(378)*V(167)\n! B(725) = dA(379)/dV(167)\n  B(725) = RCT(379)*V(341)\n! B(726) = dA(379)/dV(341)\n  B(726) = RCT(379)*V(167)\n! B(727) = dA(380)/dV(219)\n  B(727) = RCT(380)*V(345)\n! B(728) = dA(380)/dV(345)\n  B(728) = RCT(380)*V(219)\n! B(729) = dA(381)/dV(219)\n  B(729) = RCT(381)*V(341)\n! B(730) = dA(381)/dV(341)\n  B(730) = RCT(381)*V(219)\n! B(731) = dA(382)/dV(191)\n  B(731) = RCT(382)*V(345)\n! B(732) = dA(382)/dV(345)\n  B(732) = RCT(382)*V(191)\n! B(733) = dA(383)/dV(191)\n  B(733) = RCT(383)*V(341)\n! B(734) = dA(383)/dV(341)\n  B(734) = RCT(383)*V(191)\n! B(735) = dA(384)/dV(277)\n  B(735) = RCT(384)*V(337)\n! B(736) = dA(384)/dV(337)\n  B(736) = RCT(384)*V(277)\n! B(737) = dA(385)/dV(277)\n  B(737) = RCT(385)*V(346)\n! B(738) = dA(385)/dV(346)\n  B(738) = RCT(385)*V(277)\n! B(739) = dA(386)/dV(277)\n  B(739) = RCT(386)*V(351)\n! B(740) = dA(386)/dV(351)\n  B(740) = RCT(386)*V(277)\n! B(741) = dA(387)/dV(111)\n  B(741) = RCT(387)*V(345)\n! B(742) = dA(387)/dV(345)\n  B(742) = RCT(387)*V(111)\n! B(743) = dA(388)/dV(137)\n  B(743) = RCT(388)*V(345)\n! B(744) = dA(388)/dV(345)\n  B(744) = RCT(388)*V(137)\n! B(745) = dA(389)/dV(225)\n  B(745) = RCT(389)*V(351)\n! B(746) = dA(389)/dV(351)\n  B(746) = RCT(389)*V(225)\n! B(747) = dA(390)/dV(225)\n  B(747) = RCT(390)*V(345)\n! B(748) = dA(390)/dV(345)\n  B(748) = RCT(390)*V(225)\n! B(749) = dA(391)/dV(257)\n  B(749) = RCT(391)*V(337)\n! B(750) = dA(391)/dV(337)\n  B(750) = RCT(391)*V(257)\n! B(751) = dA(392)/dV(257)\n  B(751) = RCT(392)*V(346)\n! B(752) = dA(392)/dV(346)\n  B(752) = RCT(392)*V(257)\n! B(753) = dA(393)/dV(257)\n  B(753) = RCT(393)*V(335)\n! B(754) = dA(393)/dV(335)\n  B(754) = RCT(393)*V(257)\n! B(755) = dA(394)/dV(56)\n  B(755) = RCT(394)\n! B(756) = dA(395)/dV(257)\n  B(756) = RCT(395)*V(351)\n! B(757) = dA(395)/dV(351)\n  B(757) = RCT(395)*V(257)\n! B(758) = dA(396)/dV(74)\n  B(758) = RCT(396)*V(345)\n! B(759) = dA(396)/dV(345)\n  B(759) = RCT(396)*V(74)\n! B(760) = dA(397)/dV(66)\n  B(760) = RCT(397)*V(345)\n! B(761) = dA(397)/dV(345)\n  B(761) = RCT(397)*V(66)\n! B(762) = dA(398)/dV(278)\n  B(762) = RCT(398)*V(337)\n! B(763) = dA(398)/dV(337)\n  B(763) = RCT(398)*V(278)\n! B(764) = dA(399)/dV(278)\n  B(764) = RCT(399)*V(346)\n! B(765) = dA(399)/dV(346)\n  B(765) = RCT(399)*V(278)\n! B(766) = dA(400)/dV(278)\n  B(766) = RCT(400)*V(351)\n! B(767) = dA(400)/dV(351)\n  B(767) = RCT(400)*V(278)\n! B(768) = dA(401)/dV(278)\n  B(768) = RCT(401)*V(328)\n! B(769) = dA(401)/dV(328)\n  B(769) = RCT(401)*V(278)\n! B(770) = dA(402)/dV(160)\n  B(770) = RCT(402)*V(345)\n! B(771) = dA(402)/dV(345)\n  B(771) = RCT(402)*V(160)\n! B(772) = dA(403)/dV(176)\n  B(772) = RCT(403)*V(345)\n! B(773) = dA(403)/dV(345)\n  B(773) = RCT(403)*V(176)\n! B(774) = dA(404)/dV(275)\n  B(774) = RCT(404)*V(337)\n! B(775) = dA(404)/dV(337)\n  B(775) = RCT(404)*V(275)\n! B(776) = dA(405)/dV(275)\n  B(776) = RCT(405)*V(346)\n! B(777) = dA(405)/dV(346)\n  B(777) = RCT(405)*V(275)\n! B(778) = dA(406)/dV(275)\n  B(778) = RCT(406)*V(351)\n! B(779) = dA(406)/dV(351)\n  B(779) = RCT(406)*V(275)\n! B(780) = dA(407)/dV(138)\n  B(780) = RCT(407)*V(345)\n! B(781) = dA(407)/dV(345)\n  B(781) = RCT(407)*V(138)\n! B(782) = dA(408)/dV(112)\n  B(782) = RCT(408)*V(345)\n! B(783) = dA(408)/dV(345)\n  B(783) = RCT(408)*V(112)\n! B(784) = dA(409)/dV(129)\n  B(784) = RCT(409)*V(345)\n! B(785) = dA(409)/dV(345)\n  B(785) = RCT(409)*V(129)\n! B(786) = dA(410)/dV(273)\n  B(786) = RCT(410)*V(337)\n! B(787) = dA(410)/dV(337)\n  B(787) = RCT(410)*V(273)\n! B(788) = dA(411)/dV(273)\n  B(788) = RCT(411)*V(346)\n! B(789) = dA(411)/dV(346)\n  B(789) = RCT(411)*V(273)\n! B(790) = dA(412)/dV(273)\n  B(790) = RCT(412)*V(346)\n! B(791) = dA(412)/dV(346)\n  B(791) = RCT(412)*V(273)\n! B(792) = dA(413)/dV(273)\n  B(792) = RCT(413)*V(328)\n! B(793) = dA(413)/dV(328)\n  B(793) = RCT(413)*V(273)\n! B(794) = dA(414)/dV(273)\n  B(794) = RCT(414)*V(351)\n! B(795) = dA(414)/dV(351)\n  B(795) = RCT(414)*V(273)\n! B(796) = dA(415)/dV(161)\n  B(796) = RCT(415)*V(345)\n! B(797) = dA(415)/dV(345)\n  B(797) = RCT(415)*V(161)\n! B(798) = dA(416)/dV(162)\n  B(798) = RCT(416)*V(345)\n! B(799) = dA(416)/dV(345)\n  B(799) = RCT(416)*V(162)\n! B(800) = dA(417)/dV(281)\n  B(800) = RCT(417)*V(337)\n! B(801) = dA(417)/dV(337)\n  B(801) = RCT(417)*V(281)\n! B(802) = dA(418)/dV(281)\n  B(802) = RCT(418)*V(346)\n! B(803) = dA(418)/dV(346)\n  B(803) = RCT(418)*V(281)\n! B(804) = dA(419)/dV(281)\n  B(804) = RCT(419)*V(351)\n! B(805) = dA(419)/dV(351)\n  B(805) = RCT(419)*V(281)\n! B(806) = dA(420)/dV(255)\n  B(806) = RCT(420)*V(345)\n! B(807) = dA(420)/dV(345)\n  B(807) = RCT(420)*V(255)\n! B(808) = dA(421)/dV(255)\n  B(808) = RCT(421)*V(341)\n! B(809) = dA(421)/dV(341)\n  B(809) = RCT(421)*V(255)\n! B(810) = dA(422)/dV(255)\n  B(810) = RCT(422)*V(351)\n! B(811) = dA(422)/dV(351)\n  B(811) = RCT(422)*V(255)\n! B(812) = dA(423)/dV(237)\n  B(812) = RCT(423)*V(345)\n! B(813) = dA(423)/dV(345)\n  B(813) = RCT(423)*V(237)\n! B(814) = dA(424)/dV(237)\n  B(814) = RCT(424)*V(341)\n! B(815) = dA(424)/dV(341)\n  B(815) = RCT(424)*V(237)\n! B(816) = dA(425)/dV(237)\n  B(816) = RCT(425)*V(351)\n! B(817) = dA(425)/dV(351)\n  B(817) = RCT(425)*V(237)\n! B(818) = dA(426)/dV(211)\n  B(818) = RCT(426)*V(345)\n! B(819) = dA(426)/dV(345)\n  B(819) = RCT(426)*V(211)\n! B(820) = dA(427)/dV(211)\n  B(820) = RCT(427)*V(341)\n! B(821) = dA(427)/dV(341)\n  B(821) = RCT(427)*V(211)\n! B(822) = dA(428)/dV(211)\n  B(822) = RCT(428)*V(351)\n! B(823) = dA(428)/dV(351)\n  B(823) = RCT(428)*V(211)\n! B(824) = dA(429)/dV(272)\n  B(824) = RCT(429)*V(346)\n! B(825) = dA(429)/dV(346)\n  B(825) = RCT(429)*V(272)\n! B(826) = dA(430)/dV(272)\n  B(826) = RCT(430)*V(337)\n! B(827) = dA(430)/dV(337)\n  B(827) = RCT(430)*V(272)\n! B(828) = dA(431)/dV(272)\n  B(828) = RCT(431)*V(351)\n! B(829) = dA(431)/dV(351)\n  B(829) = RCT(431)*V(272)\n! B(830) = dA(432)/dV(272)\n  B(830) = RCT(432)*V(328)\n! B(831) = dA(432)/dV(328)\n  B(831) = RCT(432)*V(272)\n! B(832) = dA(433)/dV(163)\n  B(832) = RCT(433)*V(345)\n! B(833) = dA(433)/dV(345)\n  B(833) = RCT(433)*V(163)\n! B(834) = dA(434)/dV(163)\n  B(834) = RCT(434)*V(351)\n! B(835) = dA(434)/dV(351)\n  B(835) = RCT(434)*V(163)\n! B(836) = dA(435)/dV(177)\n  B(836) = RCT(435)*V(345)\n! B(837) = dA(435)/dV(345)\n  B(837) = RCT(435)*V(177)\n! B(838) = dA(436)/dV(274)\n  B(838) = RCT(436)*V(337)\n! B(839) = dA(436)/dV(337)\n  B(839) = RCT(436)*V(274)\n! B(840) = dA(437)/dV(274)\n  B(840) = RCT(437)*V(346)\n! B(841) = dA(437)/dV(346)\n  B(841) = RCT(437)*V(274)\n! B(842) = dA(438)/dV(274)\n  B(842) = RCT(438)*V(335)\n! B(843) = dA(438)/dV(335)\n  B(843) = RCT(438)*V(274)\n! B(844) = dA(439)/dV(57)\n  B(844) = RCT(439)\n! B(845) = dA(440)/dV(274)\n  B(845) = RCT(440)*V(351)\n! B(846) = dA(440)/dV(351)\n  B(846) = RCT(440)*V(274)\n! B(847) = dA(441)/dV(169)\n  B(847) = RCT(441)*V(345)\n! B(848) = dA(441)/dV(345)\n  B(848) = RCT(441)*V(169)\n! B(849) = dA(442)/dV(130)\n  B(849) = RCT(442)*V(345)\n! B(850) = dA(442)/dV(345)\n  B(850) = RCT(442)*V(130)\n! B(851) = dA(443)/dV(291)\n  B(851) = RCT(443)*V(337)\n! B(852) = dA(443)/dV(337)\n  B(852) = RCT(443)*V(291)\n! B(853) = dA(444)/dV(291)\n  B(853) = RCT(444)*V(346)\n! B(854) = dA(444)/dV(346)\n  B(854) = RCT(444)*V(291)\n! B(855) = dA(445)/dV(291)\n  B(855) = RCT(445)*V(346)\n! B(856) = dA(445)/dV(346)\n  B(856) = RCT(445)*V(291)\n! B(857) = dA(446)/dV(291)\n  B(857) = RCT(446)*V(351)\n! B(858) = dA(446)/dV(351)\n  B(858) = RCT(446)*V(291)\n! B(859) = dA(447)/dV(229)\n  B(859) = RCT(447)*V(345)\n! B(860) = dA(447)/dV(345)\n  B(860) = RCT(447)*V(229)\n! B(861) = dA(448)/dV(229)\n  B(861) = RCT(448)*V(341)\n! B(862) = dA(448)/dV(341)\n  B(862) = RCT(448)*V(229)\n! B(863) = dA(449)/dV(229)\n  B(863) = RCT(449)*V(351)\n! B(864) = dA(449)/dV(351)\n  B(864) = RCT(449)*V(229)\n! B(865) = dA(450)/dV(193)\n  B(865) = RCT(450)*V(345)\n! B(866) = dA(450)/dV(345)\n  B(866) = RCT(450)*V(193)\n! B(867) = dA(451)/dV(193)\n  B(867) = RCT(451)*V(341)\n! B(868) = dA(451)/dV(341)\n  B(868) = RCT(451)*V(193)\n! B(869) = dA(452)/dV(193)\n  B(869) = RCT(452)*V(351)\n! B(870) = dA(452)/dV(351)\n  B(870) = RCT(452)*V(193)\n! B(871) = dA(453)/dV(262)\n  B(871) = RCT(453)*V(345)\n! B(872) = dA(453)/dV(345)\n  B(872) = RCT(453)*V(262)\n! B(873) = dA(454)/dV(262)\n  B(873) = RCT(454)*V(341)\n! B(874) = dA(454)/dV(341)\n  B(874) = RCT(454)*V(262)\n! B(875) = dA(455)/dV(262)\n  B(875) = RCT(455)*V(351)\n! B(876) = dA(455)/dV(351)\n  B(876) = RCT(455)*V(262)\n! B(877) = dA(456)/dV(277)\n  B(877) = RCT(456)*V(328)\n! B(878) = dA(456)/dV(328)\n  B(878) = RCT(456)*V(277)\n! B(879) = dA(457)/dV(277)\n  B(879) = RCT(457)*V(324)\n! B(880) = dA(457)/dV(324)\n  B(880) = RCT(457)*V(277)\n! B(881) = dA(458)/dV(275)\n  B(881) = RCT(458)*V(328)\n! B(882) = dA(458)/dV(328)\n  B(882) = RCT(458)*V(275)\n! B(883) = dA(459)/dV(275)\n  B(883) = RCT(459)*V(324)\n! B(884) = dA(459)/dV(324)\n  B(884) = RCT(459)*V(275)\n! B(885) = dA(460)/dV(281)\n  B(885) = RCT(460)*V(328)\n! B(886) = dA(460)/dV(328)\n  B(886) = RCT(460)*V(281)\n! B(887) = dA(461)/dV(281)\n  B(887) = RCT(461)*V(324)\n! B(888) = dA(461)/dV(324)\n  B(888) = RCT(461)*V(281)\n! B(889) = dA(462)/dV(291)\n  B(889) = RCT(462)*V(328)\n! B(890) = dA(462)/dV(328)\n  B(890) = RCT(462)*V(291)\n! B(891) = dA(463)/dV(291)\n  B(891) = RCT(463)*V(324)\n! B(892) = dA(463)/dV(324)\n  B(892) = RCT(463)*V(291)\n! B(893) = dA(464)/dV(257)\n  B(893) = RCT(464)*V(328)\n! B(894) = dA(464)/dV(328)\n  B(894) = RCT(464)*V(257)\n! B(895) = dA(465)/dV(257)\n  B(895) = RCT(465)*V(324)\n! B(896) = dA(465)/dV(324)\n  B(896) = RCT(465)*V(257)\n! B(897) = dA(466)/dV(274)\n  B(897) = RCT(466)*V(328)\n! B(898) = dA(466)/dV(328)\n  B(898) = RCT(466)*V(274)\n! B(899) = dA(467)/dV(274)\n  B(899) = RCT(467)*V(324)\n! B(900) = dA(467)/dV(324)\n  B(900) = RCT(467)*V(274)\n! B(901) = dA(468)/dV(280)\n  B(901) = RCT(468)*V(346)\n! B(902) = dA(468)/dV(346)\n  B(902) = RCT(468)*V(280)\n! B(903) = dA(469)/dV(289)\n  B(903) = RCT(469)*V(346)\n! B(904) = dA(469)/dV(346)\n  B(904) = RCT(469)*V(289)\n! B(905) = dA(470)/dV(280)\n  B(905) = RCT(470)*V(337)\n! B(906) = dA(470)/dV(337)\n  B(906) = RCT(470)*V(280)\n! B(907) = dA(471)/dV(289)\n  B(907) = RCT(471)*V(337)\n! B(908) = dA(471)/dV(337)\n  B(908) = RCT(471)*V(289)\n! B(909) = dA(472)/dV(280)\n  B(909) = RCT(472)*V(328)\n! B(910) = dA(472)/dV(328)\n  B(910) = RCT(472)*V(280)\n! B(911) = dA(473)/dV(289)\n  B(911) = RCT(473)*V(328)\n! B(912) = dA(473)/dV(328)\n  B(912) = RCT(473)*V(289)\n! B(913) = dA(474)/dV(280)\n  B(913) = RCT(474)*V(324)\n! B(914) = dA(474)/dV(324)\n  B(914) = RCT(474)*V(280)\n! B(915) = dA(475)/dV(289)\n  B(915) = RCT(475)*V(324)\n! B(916) = dA(475)/dV(324)\n  B(916) = RCT(475)*V(289)\n! B(917) = dA(476)/dV(280)\n  B(917) = RCT(476)*V(351)\n! B(918) = dA(476)/dV(351)\n  B(918) = RCT(476)*V(280)\n! B(919) = dA(477)/dV(289)\n  B(919) = RCT(477)*V(351)\n! B(920) = dA(477)/dV(351)\n  B(920) = RCT(477)*V(289)\n! B(921) = dA(478)/dV(280)\n  B(921) = RCT(478)*2*V(280)\n! B(922) = dA(479)/dV(280)\n  B(922) = RCT(479)*V(289)\n! B(923) = dA(479)/dV(289)\n  B(923) = RCT(479)*V(280)\n! B(924) = dA(480)/dV(289)\n  B(924) = RCT(480)*2*V(289)\n! B(925) = dA(481)/dV(256)\n  B(925) = RCT(481)*V(345)\n! B(926) = dA(481)/dV(345)\n  B(926) = RCT(481)*V(256)\n! B(927) = dA(482)/dV(242)\n  B(927) = RCT(482)*V(345)\n! B(928) = dA(482)/dV(345)\n  B(928) = RCT(482)*V(242)\n! B(929) = dA(483)/dV(242)\n  B(929) = RCT(483)*V(341)\n! B(930) = dA(483)/dV(341)\n  B(930) = RCT(483)*V(242)\n! B(931) = dA(484)/dV(242)\n  B(931) = RCT(484)*V(351)\n! B(932) = dA(484)/dV(351)\n  B(932) = RCT(484)*V(242)\n! B(933) = dA(485)/dV(256)\n  B(933) = RCT(485)*V(351)\n! B(934) = dA(485)/dV(351)\n  B(934) = RCT(485)*V(256)\n! B(935) = dA(486)/dV(103)\n  B(935) = RCT(486)\n! B(936) = dA(487)/dV(45)\n  B(936) = RCT(487)\n! B(937) = dA(488)/dV(154)\n  B(937) = RCT(488)*V(345)\n! B(938) = dA(488)/dV(345)\n  B(938) = RCT(488)*V(154)\n! B(939) = dA(489)/dV(93)\n  B(939) = RCT(489)*V(345)\n! B(940) = dA(489)/dV(345)\n  B(940) = RCT(489)*V(93)\n! B(941) = dA(490)/dV(83)\n  B(941) = RCT(490)*V(345)\n! B(942) = dA(490)/dV(345)\n  B(942) = RCT(490)*V(83)\n! B(943) = dA(491)/dV(91)\n  B(943) = RCT(491)*V(345)\n! B(944) = dA(491)/dV(345)\n  B(944) = RCT(491)*V(91)\n! B(945) = dA(492)/dV(95)\n  B(945) = RCT(492)*V(345)\n! B(946) = dA(492)/dV(345)\n  B(946) = RCT(492)*V(95)\n! B(947) = dA(493)/dV(276)\n  B(947) = RCT(493)*V(341)\n! B(948) = dA(493)/dV(341)\n  B(948) = RCT(493)*V(276)\n! B(949) = dA(494)/dV(276)\n  B(949) = RCT(494)*V(345)\n! B(950) = dA(494)/dV(345)\n  B(950) = RCT(494)*V(276)\n! B(951) = dA(495)/dV(276)\n  B(951) = RCT(495)*V(345)\n! B(952) = dA(495)/dV(345)\n  B(952) = RCT(495)*V(276)\n! B(953) = dA(496)/dV(276)\n  B(953) = RCT(496)*V(345)\n! B(954) = dA(496)/dV(345)\n  B(954) = RCT(496)*V(276)\n! B(955) = dA(497)/dV(276)\n  B(955) = RCT(497)*V(345)\n! B(956) = dA(497)/dV(345)\n  B(956) = RCT(497)*V(276)\n! B(957) = dA(498)/dV(305)\n  B(957) = RCT(498)*V(337)\n! B(958) = dA(498)/dV(337)\n  B(958) = RCT(498)*V(305)\n! B(959) = dA(499)/dV(305)\n  B(959) = RCT(499)*V(337)\n! B(960) = dA(499)/dV(337)\n  B(960) = RCT(499)*V(305)\n! B(961) = dA(500)/dV(304)\n  B(961) = RCT(500)*V(337)\n! B(962) = dA(500)/dV(337)\n  B(962) = RCT(500)*V(304)\n! B(963) = dA(501)/dV(304)\n  B(963) = RCT(501)*V(337)\n! B(964) = dA(501)/dV(337)\n  B(964) = RCT(501)*V(304)\n! B(965) = dA(502)/dV(305)\n  B(965) = RCT(502)\n! B(966) = dA(503)/dV(305)\n  B(966) = RCT(503)\n! B(967) = dA(504)/dV(304)\n  B(967) = RCT(504)\n! B(968) = dA(505)/dV(304)\n  B(968) = RCT(505)\n! B(969) = dA(506)/dV(305)\n  B(969) = RCT(506)*2*V(305)\n! B(970) = dA(507)/dV(304)\n  B(970) = RCT(507)*2*V(304)\n! B(971) = dA(508)/dV(304)\n  B(971) = RCT(508)*V(305)\n! B(972) = dA(508)/dV(305)\n  B(972) = RCT(508)*V(304)\n! B(973) = dA(509)/dV(305)\n  B(973) = RCT(509)*2*V(305)\n! B(974) = dA(510)/dV(304)\n  B(974) = RCT(510)*2*V(304)\n! B(975) = dA(511)/dV(304)\n  B(975) = RCT(511)*V(305)\n! B(976) = dA(511)/dV(305)\n  B(976) = RCT(511)*V(304)\n! B(977) = dA(512)/dV(305)\n  B(977) = RCT(512)*V(328)\n! B(978) = dA(512)/dV(328)\n  B(978) = RCT(512)*V(305)\n! B(979) = dA(513)/dV(305)\n  B(979) = RCT(513)*V(328)\n! B(980) = dA(513)/dV(328)\n  B(980) = RCT(513)*V(305)\n! B(981) = dA(514)/dV(304)\n  B(981) = RCT(514)*V(328)\n! B(982) = dA(514)/dV(328)\n  B(982) = RCT(514)*V(304)\n! B(983) = dA(515)/dV(304)\n  B(983) = RCT(515)*V(328)\n! B(984) = dA(515)/dV(328)\n  B(984) = RCT(515)*V(304)\n! B(985) = dA(516)/dV(305)\n  B(985) = RCT(516)*V(346)\n! B(986) = dA(516)/dV(346)\n  B(986) = RCT(516)*V(305)\n! B(987) = dA(517)/dV(305)\n  B(987) = RCT(517)*V(346)\n! B(988) = dA(517)/dV(346)\n  B(988) = RCT(517)*V(305)\n! B(989) = dA(518)/dV(305)\n  B(989) = RCT(518)*V(346)\n! B(990) = dA(518)/dV(346)\n  B(990) = RCT(518)*V(305)\n! B(991) = dA(519)/dV(305)\n  B(991) = RCT(519)*V(346)\n! B(992) = dA(519)/dV(346)\n  B(992) = RCT(519)*V(305)\n! B(993) = dA(520)/dV(304)\n  B(993) = RCT(520)*V(346)\n! B(994) = dA(520)/dV(346)\n  B(994) = RCT(520)*V(304)\n! B(995) = dA(521)/dV(304)\n  B(995) = RCT(521)*V(346)\n! B(996) = dA(521)/dV(346)\n  B(996) = RCT(521)*V(304)\n! B(997) = dA(522)/dV(304)\n  B(997) = RCT(522)*V(346)\n! B(998) = dA(522)/dV(346)\n  B(998) = RCT(522)*V(304)\n! B(999) = dA(523)/dV(304)\n  B(999) = RCT(523)*V(346)\n! B(1000) = dA(523)/dV(346)\n  B(1000) = RCT(523)*V(304)\n! B(1001) = dA(524)/dV(230)\n  B(1001) = RCT(524)*V(345)\n! B(1002) = dA(524)/dV(345)\n  B(1002) = RCT(524)*V(230)\n! B(1003) = dA(525)/dV(231)\n  B(1003) = RCT(525)*V(345)\n! B(1004) = dA(525)/dV(345)\n  B(1004) = RCT(525)*V(231)\n! B(1005) = dA(526)/dV(150)\n  B(1005) = RCT(526)*V(345)\n! B(1006) = dA(526)/dV(345)\n  B(1006) = RCT(526)*V(150)\n! B(1007) = dA(527)/dV(144)\n  B(1007) = RCT(527)*V(345)\n! B(1008) = dA(527)/dV(345)\n  B(1008) = RCT(527)*V(144)\n! B(1009) = dA(528)/dV(238)\n  B(1009) = RCT(528)*V(345)\n! B(1010) = dA(528)/dV(345)\n  B(1010) = RCT(528)*V(238)\n! B(1011) = dA(529)/dV(215)\n  B(1011) = RCT(529)*V(345)\n! B(1012) = dA(529)/dV(345)\n  B(1012) = RCT(529)*V(215)\n! B(1013) = dA(530)/dV(119)\n  B(1013) = RCT(530)*V(345)\n! B(1014) = dA(530)/dV(345)\n  B(1014) = RCT(530)*V(119)\n! B(1015) = dA(531)/dV(187)\n  B(1015) = RCT(531)*V(345)\n! B(1016) = dA(531)/dV(345)\n  B(1016) = RCT(531)*V(187)\n! B(1017) = dA(532)/dV(187)\n  B(1017) = RCT(532)*V(345)\n! B(1018) = dA(532)/dV(345)\n  B(1018) = RCT(532)*V(187)\n! B(1019) = dA(533)/dV(192)\n  B(1019) = RCT(533)*V(345)\n! B(1020) = dA(533)/dV(345)\n  B(1020) = RCT(533)*V(192)\n! B(1021) = dA(534)/dV(192)\n  B(1021) = RCT(534)*V(345)\n! B(1022) = dA(534)/dV(345)\n  B(1022) = RCT(534)*V(192)\n! B(1023) = dA(535)/dV(187)\n  B(1023) = RCT(535)*V(345)\n! B(1024) = dA(535)/dV(345)\n  B(1024) = RCT(535)*V(187)\n! B(1025) = dA(536)/dV(192)\n  B(1025) = RCT(536)*V(345)\n! B(1026) = dA(536)/dV(345)\n  B(1026) = RCT(536)*V(192)\n! B(1027) = dA(537)/dV(209)\n  B(1027) = RCT(537)*V(345)\n! B(1028) = dA(537)/dV(345)\n  B(1028) = RCT(537)*V(209)\n! B(1029) = dA(538)/dV(199)\n  B(1029) = RCT(538)*V(345)\n! B(1030) = dA(538)/dV(345)\n  B(1030) = RCT(538)*V(199)\n! B(1031) = dA(539)/dV(223)\n  B(1031) = RCT(539)\n! B(1032) = dA(540)/dV(223)\n  B(1032) = RCT(540)*V(346)\n! B(1033) = dA(540)/dV(346)\n  B(1033) = RCT(540)*V(223)\n! B(1034) = dA(541)/dV(223)\n  B(1034) = RCT(541)*V(346)\n! B(1035) = dA(541)/dV(346)\n  B(1035) = RCT(541)*V(223)\n! B(1036) = dA(542)/dV(223)\n  B(1036) = RCT(542)*V(337)\n! B(1037) = dA(542)/dV(337)\n  B(1037) = RCT(542)*V(223)\n! B(1038) = dA(543)/dV(224)\n  B(1038) = RCT(543)\n! B(1039) = dA(544)/dV(224)\n  B(1039) = RCT(544)*V(346)\n! B(1040) = dA(544)/dV(346)\n  B(1040) = RCT(544)*V(224)\n! B(1041) = dA(545)/dV(224)\n  B(1041) = RCT(545)*V(346)\n! B(1042) = dA(545)/dV(346)\n  B(1042) = RCT(545)*V(224)\n! B(1043) = dA(546)/dV(224)\n  B(1043) = RCT(546)*V(337)\n! B(1044) = dA(546)/dV(337)\n  B(1044) = RCT(546)*V(224)\n! B(1045) = dA(547)/dV(232)\n  B(1045) = RCT(547)\n! B(1046) = dA(548)/dV(232)\n  B(1046) = RCT(548)*V(346)\n! B(1047) = dA(548)/dV(346)\n  B(1047) = RCT(548)*V(232)\n! B(1048) = dA(549)/dV(232)\n  B(1048) = RCT(549)*V(346)\n! B(1049) = dA(549)/dV(346)\n  B(1049) = RCT(549)*V(232)\n! B(1050) = dA(550)/dV(232)\n  B(1050) = RCT(550)*V(337)\n! B(1051) = dA(550)/dV(337)\n  B(1051) = RCT(550)*V(232)\n! B(1052) = dA(551)/dV(128)\n  B(1052) = RCT(551)*V(345)\n! B(1053) = dA(551)/dV(345)\n  B(1053) = RCT(551)*V(128)\n! B(1054) = dA(552)/dV(151)\n  B(1054) = RCT(552)*V(345)\n! B(1055) = dA(552)/dV(345)\n  B(1055) = RCT(552)*V(151)\n! B(1056) = dA(553)/dV(151)\n  B(1056) = RCT(553)*V(345)\n! B(1057) = dA(553)/dV(345)\n  B(1057) = RCT(553)*V(151)\n! B(1058) = dA(554)/dV(152)\n  B(1058) = RCT(554)*V(345)\n! B(1059) = dA(554)/dV(345)\n  B(1059) = RCT(554)*V(152)\n! B(1060) = dA(555)/dV(152)\n  B(1060) = RCT(555)*V(345)\n! B(1061) = dA(555)/dV(345)\n  B(1061) = RCT(555)*V(152)\n! B(1062) = dA(556)/dV(286)\n  B(1062) = RCT(556)\n! B(1063) = dA(557)/dV(286)\n  B(1063) = RCT(557)\n! B(1064) = dA(558)/dV(286)\n  B(1064) = RCT(558)*V(337)\n! B(1065) = dA(558)/dV(337)\n  B(1065) = RCT(558)*V(286)\n! B(1066) = dA(559)/dV(286)\n  B(1066) = RCT(559)*V(346)\n! B(1067) = dA(559)/dV(346)\n  B(1067) = RCT(559)*V(286)\n! B(1068) = dA(560)/dV(286)\n  B(1068) = RCT(560)*V(346)\n! B(1069) = dA(560)/dV(346)\n  B(1069) = RCT(560)*V(286)\n! B(1070) = dA(561)/dV(285)\n  B(1070) = RCT(561)\n! B(1071) = dA(562)/dV(285)\n  B(1071) = RCT(562)\n! B(1072) = dA(563)/dV(285)\n  B(1072) = RCT(563)*V(346)\n! B(1073) = dA(563)/dV(346)\n  B(1073) = RCT(563)*V(285)\n! B(1074) = dA(564)/dV(285)\n  B(1074) = RCT(564)*V(346)\n! B(1075) = dA(564)/dV(346)\n  B(1075) = RCT(564)*V(285)\n! B(1076) = dA(565)/dV(285)\n  B(1076) = RCT(565)*V(337)\n! B(1077) = dA(565)/dV(337)\n  B(1077) = RCT(565)*V(285)\n! B(1078) = dA(566)/dV(243)\n  B(1078) = RCT(566)*V(337)\n! B(1079) = dA(566)/dV(337)\n  B(1079) = RCT(566)*V(243)\n! B(1080) = dA(567)/dV(243)\n  B(1080) = RCT(567)*V(346)\n! B(1081) = dA(567)/dV(346)\n  B(1081) = RCT(567)*V(243)\n! B(1082) = dA(568)/dV(243)\n  B(1082) = RCT(568)*V(346)\n! B(1083) = dA(568)/dV(346)\n  B(1083) = RCT(568)*V(243)\n! B(1084) = dA(569)/dV(243)\n  B(1084) = RCT(569)\n! B(1085) = dA(570)/dV(133)\n  B(1085) = RCT(570)*V(346)\n! B(1086) = dA(570)/dV(346)\n  B(1086) = RCT(570)*V(133)\n! B(1087) = dA(571)/dV(133)\n  B(1087) = RCT(571)*V(337)\n! B(1088) = dA(571)/dV(337)\n  B(1088) = RCT(571)*V(133)\n! B(1089) = dA(572)/dV(135)\n  B(1089) = RCT(572)*V(346)\n! B(1090) = dA(572)/dV(346)\n  B(1090) = RCT(572)*V(135)\n! B(1091) = dA(573)/dV(135)\n  B(1091) = RCT(573)*V(337)\n! B(1092) = dA(573)/dV(337)\n  B(1092) = RCT(573)*V(135)\n! B(1093) = dA(574)/dV(175)\n  B(1093) = RCT(574)*V(345)\n! B(1094) = dA(574)/dV(345)\n  B(1094) = RCT(574)*V(175)\n! B(1095) = dA(575)/dV(175)\n  B(1095) = RCT(575)*V(345)\n! B(1096) = dA(575)/dV(345)\n  B(1096) = RCT(575)*V(175)\n! B(1097) = dA(576)/dV(168)\n  B(1097) = RCT(576)*V(345)\n! B(1098) = dA(576)/dV(345)\n  B(1098) = RCT(576)*V(168)\n! B(1099) = dA(577)/dV(168)\n  B(1099) = RCT(577)*V(345)\n! B(1100) = dA(577)/dV(345)\n  B(1100) = RCT(577)*V(168)\n! B(1101) = dA(578)/dV(268)\n  B(1101) = RCT(578)*V(345)\n! B(1102) = dA(578)/dV(345)\n  B(1102) = RCT(578)*V(268)\n! B(1103) = dA(579)/dV(268)\n  B(1103) = RCT(579)*V(345)\n! B(1104) = dA(579)/dV(345)\n  B(1104) = RCT(579)*V(268)\n! B(1105) = dA(580)/dV(267)\n  B(1105) = RCT(580)*V(345)\n! B(1106) = dA(580)/dV(345)\n  B(1106) = RCT(580)*V(267)\n! B(1107) = dA(581)/dV(267)\n  B(1107) = RCT(581)*V(345)\n! B(1108) = dA(581)/dV(345)\n  B(1108) = RCT(581)*V(267)\n! B(1109) = dA(582)/dV(268)\n  B(1109) = RCT(582)*V(345)\n! B(1110) = dA(582)/dV(345)\n  B(1110) = RCT(582)*V(268)\n! B(1111) = dA(583)/dV(267)\n  B(1111) = RCT(583)*V(345)\n! B(1112) = dA(583)/dV(345)\n  B(1112) = RCT(583)*V(267)\n! B(1113) = dA(584)/dV(205)\n  B(1113) = RCT(584)\n! B(1114) = dA(585)/dV(205)\n  B(1114) = RCT(585)*V(337)\n! B(1115) = dA(585)/dV(337)\n  B(1115) = RCT(585)*V(205)\n! B(1116) = dA(586)/dV(205)\n  B(1116) = RCT(586)*V(346)\n! B(1117) = dA(586)/dV(346)\n  B(1117) = RCT(586)*V(205)\n! B(1118) = dA(587)/dV(205)\n  B(1118) = RCT(587)*V(346)\n! B(1119) = dA(587)/dV(346)\n  B(1119) = RCT(587)*V(205)\n! B(1120) = dA(588)/dV(190)\n  B(1120) = RCT(588)\n! B(1121) = dA(589)/dV(190)\n  B(1121) = RCT(589)*V(337)\n! B(1122) = dA(589)/dV(337)\n  B(1122) = RCT(589)*V(190)\n! B(1123) = dA(590)/dV(190)\n  B(1123) = RCT(590)*V(346)\n! B(1124) = dA(590)/dV(346)\n  B(1124) = RCT(590)*V(190)\n! B(1125) = dA(591)/dV(190)\n  B(1125) = RCT(591)*V(346)\n! B(1126) = dA(591)/dV(346)\n  B(1126) = RCT(591)*V(190)\n! B(1127) = dA(592)/dV(206)\n  B(1127) = RCT(592)\n! B(1128) = dA(593)/dV(207)\n  B(1128) = RCT(593)\n! B(1129) = dA(594)/dV(206)\n  B(1129) = RCT(594)*V(337)\n! B(1130) = dA(594)/dV(337)\n  B(1130) = RCT(594)*V(206)\n! B(1131) = dA(595)/dV(206)\n  B(1131) = RCT(595)*V(346)\n! B(1132) = dA(595)/dV(346)\n  B(1132) = RCT(595)*V(206)\n! B(1133) = dA(596)/dV(206)\n  B(1133) = RCT(596)*V(346)\n! B(1134) = dA(596)/dV(346)\n  B(1134) = RCT(596)*V(206)\n! B(1135) = dA(597)/dV(207)\n  B(1135) = RCT(597)*V(337)\n! B(1136) = dA(597)/dV(337)\n  B(1136) = RCT(597)*V(207)\n! B(1137) = dA(598)/dV(207)\n  B(1137) = RCT(598)*V(346)\n! B(1138) = dA(598)/dV(346)\n  B(1138) = RCT(598)*V(207)\n! B(1139) = dA(599)/dV(207)\n  B(1139) = RCT(599)*V(346)\n! B(1140) = dA(599)/dV(346)\n  B(1140) = RCT(599)*V(207)\n! B(1141) = dA(600)/dV(293)\n  B(1141) = RCT(600)*V(337)\n! B(1142) = dA(600)/dV(337)\n  B(1142) = RCT(600)*V(293)\n! B(1143) = dA(601)/dV(293)\n  B(1143) = RCT(601)*V(346)\n! B(1144) = dA(601)/dV(346)\n  B(1144) = RCT(601)*V(293)\n! B(1145) = dA(602)/dV(293)\n  B(1145) = RCT(602)*V(346)\n! B(1146) = dA(602)/dV(346)\n  B(1146) = RCT(602)*V(293)\n! B(1147) = dA(603)/dV(276)\n  B(1147) = RCT(603)*V(351)\n! B(1148) = dA(603)/dV(351)\n  B(1148) = RCT(603)*V(276)\n! B(1149) = dA(604)/dV(310)\n  B(1149) = RCT(604)*V(337)\n! B(1150) = dA(604)/dV(337)\n  B(1150) = RCT(604)*V(310)\n! B(1151) = dA(605)/dV(311)\n  B(1151) = RCT(605)*V(337)\n! B(1152) = dA(605)/dV(337)\n  B(1152) = RCT(605)*V(311)\n! B(1153) = dA(606)/dV(310)\n  B(1153) = RCT(606)*2*V(310)\n! B(1154) = dA(607)/dV(310)\n  B(1154) = RCT(607)*V(311)\n! B(1155) = dA(607)/dV(311)\n  B(1155) = RCT(607)*V(310)\n! B(1156) = dA(608)/dV(311)\n  B(1156) = RCT(608)*2*V(311)\n! B(1157) = dA(609)/dV(311)\n  B(1157) = RCT(609)*V(328)\n! B(1158) = dA(609)/dV(328)\n  B(1158) = RCT(609)*V(311)\n! B(1159) = dA(610)/dV(310)\n  B(1159) = RCT(610)*V(328)\n! B(1160) = dA(610)/dV(328)\n  B(1160) = RCT(610)*V(310)\n! B(1161) = dA(611)/dV(310)\n  B(1161) = RCT(611)*V(324)\n! B(1162) = dA(611)/dV(324)\n  B(1162) = RCT(611)*V(310)\n! B(1163) = dA(612)/dV(311)\n  B(1163) = RCT(612)*V(324)\n! B(1164) = dA(612)/dV(324)\n  B(1164) = RCT(612)*V(311)\n! B(1165) = dA(613)/dV(310)\n  B(1165) = RCT(613)*V(351)\n! B(1166) = dA(613)/dV(351)\n  B(1166) = RCT(613)*V(310)\n! B(1167) = dA(614)/dV(311)\n  B(1167) = RCT(614)*V(351)\n! B(1168) = dA(614)/dV(351)\n  B(1168) = RCT(614)*V(311)\n! B(1169) = dA(615)/dV(310)\n  B(1169) = RCT(615)*V(346)\n! B(1170) = dA(615)/dV(346)\n  B(1170) = RCT(615)*V(310)\n! B(1171) = dA(616)/dV(310)\n  B(1171) = RCT(616)*V(346)\n! B(1172) = dA(616)/dV(346)\n  B(1172) = RCT(616)*V(310)\n! B(1173) = dA(617)/dV(311)\n  B(1173) = RCT(617)*V(346)\n! B(1174) = dA(617)/dV(346)\n  B(1174) = RCT(617)*V(311)\n! B(1175) = dA(618)/dV(311)\n  B(1175) = RCT(618)*V(346)\n! B(1176) = dA(618)/dV(346)\n  B(1176) = RCT(618)*V(311)\n! B(1177) = dA(619)/dV(145)\n  B(1177) = RCT(619)*F(3)\n! B(1179) = dA(620)/dV(145)\n  B(1179) = RCT(620)\n! B(1180) = dA(621)/dV(222)\n  B(1180) = RCT(621)*V(345)\n! B(1181) = dA(621)/dV(345)\n  B(1181) = RCT(621)*V(222)\n! B(1182) = dA(622)/dV(186)\n  B(1182) = RCT(622)*V(345)\n! B(1183) = dA(622)/dV(345)\n  B(1183) = RCT(622)*V(186)\n! B(1184) = dA(623)/dV(222)\n  B(1184) = RCT(623)*V(345)\n! B(1185) = dA(623)/dV(345)\n  B(1185) = RCT(623)*V(222)\n! B(1186) = dA(624)/dV(186)\n  B(1186) = RCT(624)*V(345)\n! B(1187) = dA(624)/dV(345)\n  B(1187) = RCT(624)*V(186)\n! B(1188) = dA(625)/dV(186)\n  B(1188) = RCT(625)*V(345)\n! B(1189) = dA(625)/dV(345)\n  B(1189) = RCT(625)*V(186)\n! B(1190) = dA(626)/dV(222)\n  B(1190) = RCT(626)*V(345)\n! B(1191) = dA(626)/dV(345)\n  B(1191) = RCT(626)*V(222)\n! B(1192) = dA(627)/dV(186)\n  B(1192) = RCT(627)*V(345)\n! B(1193) = dA(627)/dV(345)\n  B(1193) = RCT(627)*V(186)\n! B(1194) = dA(628)/dV(186)\n  B(1194) = RCT(628)*V(345)\n! B(1195) = dA(628)/dV(345)\n  B(1195) = RCT(628)*V(186)\n! B(1196) = dA(629)/dV(226)\n  B(1196) = RCT(629)\n! B(1197) = dA(630)/dV(271)\n  B(1197) = RCT(630)\n! B(1198) = dA(631)/dV(271)\n  B(1198) = RCT(631)*V(337)\n! B(1199) = dA(631)/dV(337)\n  B(1199) = RCT(631)*V(271)\n! B(1200) = dA(632)/dV(226)\n  B(1200) = RCT(632)*V(337)\n! B(1201) = dA(632)/dV(337)\n  B(1201) = RCT(632)*V(226)\n! B(1202) = dA(633)/dV(271)\n  B(1202) = RCT(633)*V(346)\n! B(1203) = dA(633)/dV(346)\n  B(1203) = RCT(633)*V(271)\n! B(1204) = dA(634)/dV(271)\n  B(1204) = RCT(634)*V(346)\n! B(1205) = dA(634)/dV(346)\n  B(1205) = RCT(634)*V(271)\n! B(1206) = dA(635)/dV(226)\n  B(1206) = RCT(635)*V(346)\n! B(1207) = dA(635)/dV(346)\n  B(1207) = RCT(635)*V(226)\n! B(1208) = dA(636)/dV(226)\n  B(1208) = RCT(636)*V(346)\n! B(1209) = dA(636)/dV(346)\n  B(1209) = RCT(636)*V(226)\n! B(1210) = dA(637)/dV(301)\n  B(1210) = RCT(637)*V(345)\n! B(1211) = dA(637)/dV(345)\n  B(1211) = RCT(637)*V(301)\n! B(1212) = dA(638)/dV(301)\n  B(1212) = RCT(638)*V(345)\n! B(1213) = dA(638)/dV(345)\n  B(1213) = RCT(638)*V(301)\n! B(1214) = dA(639)/dV(182)\n  B(1214) = RCT(639)*V(346)\n! B(1215) = dA(639)/dV(346)\n  B(1215) = RCT(639)*V(182)\n! B(1216) = dA(640)/dV(182)\n  B(1216) = RCT(640)*V(337)\n! B(1217) = dA(640)/dV(337)\n  B(1217) = RCT(640)*V(182)\n! B(1218) = dA(641)/dV(299)\n  B(1218) = RCT(641)*V(345)\n! B(1219) = dA(641)/dV(345)\n  B(1219) = RCT(641)*V(299)\n! B(1220) = dA(642)/dV(180)\n  B(1220) = RCT(642)*V(346)\n! B(1221) = dA(642)/dV(346)\n  B(1221) = RCT(642)*V(180)\n! B(1222) = dA(643)/dV(180)\n  B(1222) = RCT(643)*V(337)\n! B(1223) = dA(643)/dV(337)\n  B(1223) = RCT(643)*V(180)\n! B(1224) = dA(644)/dV(314)\n  B(1224) = RCT(644)*V(345)\n! B(1225) = dA(644)/dV(345)\n  B(1225) = RCT(644)*V(314)\n! B(1226) = dA(645)/dV(314)\n  B(1226) = RCT(645)*V(341)\n! B(1227) = dA(645)/dV(341)\n  B(1227) = RCT(645)*V(314)\n! B(1228) = dA(646)/dV(309)\n  B(1228) = RCT(646)*V(345)\n! B(1229) = dA(646)/dV(345)\n  B(1229) = RCT(646)*V(309)\n! B(1230) = dA(647)/dV(309)\n  B(1230) = RCT(647)*V(345)\n! B(1231) = dA(647)/dV(345)\n  B(1231) = RCT(647)*V(309)\n! B(1232) = dA(648)/dV(309)\n  B(1232) = RCT(648)*V(341)\n! B(1233) = dA(648)/dV(341)\n  B(1233) = RCT(648)*V(309)\n! B(1234) = dA(649)/dV(309)\n  B(1234) = RCT(649)*V(351)\n! B(1235) = dA(649)/dV(351)\n  B(1235) = RCT(649)*V(309)\n! B(1236) = dA(650)/dV(302)\n  B(1236) = RCT(650)*V(345)\n! B(1237) = dA(650)/dV(345)\n  B(1237) = RCT(650)*V(302)\n! B(1238) = dA(651)/dV(288)\n  B(1238) = RCT(651)*V(345)\n! B(1239) = dA(651)/dV(345)\n  B(1239) = RCT(651)*V(288)\n! B(1240) = dA(652)/dV(287)\n  B(1240) = RCT(652)*V(345)\n! B(1241) = dA(652)/dV(345)\n  B(1241) = RCT(652)*V(287)\n! B(1242) = dA(653)/dV(248)\n  B(1242) = RCT(653)*V(345)\n! B(1243) = dA(653)/dV(345)\n  B(1243) = RCT(653)*V(248)\n! B(1244) = dA(654)/dV(216)\n  B(1244) = RCT(654)*V(345)\n! B(1245) = dA(654)/dV(345)\n  B(1245) = RCT(654)*V(216)\n! B(1246) = dA(655)/dV(171)\n  B(1246) = RCT(655)*V(346)\n! B(1247) = dA(655)/dV(346)\n  B(1247) = RCT(655)*V(171)\n! B(1248) = dA(656)/dV(171)\n  B(1248) = RCT(656)*V(337)\n! B(1249) = dA(656)/dV(337)\n  B(1249) = RCT(656)*V(171)\n! B(1250) = dA(657)/dV(171)\n  B(1250) = RCT(657)*V(335)\n! B(1251) = dA(657)/dV(335)\n  B(1251) = RCT(657)*V(171)\n! B(1252) = dA(658)/dV(172)\n  B(1252) = RCT(658)*V(346)\n! B(1253) = dA(658)/dV(346)\n  B(1253) = RCT(658)*V(172)\n! B(1254) = dA(659)/dV(172)\n  B(1254) = RCT(659)*V(337)\n! B(1255) = dA(659)/dV(337)\n  B(1255) = RCT(659)*V(172)\n! B(1256) = dA(660)/dV(172)\n  B(1256) = RCT(660)*V(335)\n! B(1257) = dA(660)/dV(335)\n  B(1257) = RCT(660)*V(172)\n! B(1258) = dA(661)/dV(194)\n  B(1258) = RCT(661)*V(345)\n! B(1259) = dA(661)/dV(345)\n  B(1259) = RCT(661)*V(194)\n! B(1260) = dA(662)/dV(185)\n  B(1260) = RCT(662)*V(345)\n! B(1261) = dA(662)/dV(345)\n  B(1261) = RCT(662)*V(185)\n! B(1262) = dA(663)/dV(131)\n  B(1262) = RCT(663)*V(345)\n! B(1263) = dA(663)/dV(345)\n  B(1263) = RCT(663)*V(131)\n! B(1264) = dA(664)/dV(227)\n  B(1264) = RCT(664)*V(345)\n! B(1265) = dA(664)/dV(345)\n  B(1265) = RCT(664)*V(227)\n! B(1266) = dA(665)/dV(208)\n  B(1266) = RCT(665)*V(345)\n! B(1267) = dA(665)/dV(345)\n  B(1267) = RCT(665)*V(208)\n! B(1268) = dA(666)/dV(153)\n  B(1268) = RCT(666)*V(345)\n! B(1269) = dA(666)/dV(345)\n  B(1269) = RCT(666)*V(153)\n! B(1270) = dA(667)/dV(254)\n  B(1270) = RCT(667)*V(337)\n! B(1271) = dA(667)/dV(337)\n  B(1271) = RCT(667)*V(254)\n! B(1272) = dA(668)/dV(254)\n  B(1272) = RCT(668)*V(346)\n! B(1273) = dA(668)/dV(346)\n  B(1273) = RCT(668)*V(254)\n! B(1274) = dA(669)/dV(254)\n  B(1274) = RCT(669)*V(346)\n! B(1275) = dA(669)/dV(346)\n  B(1275) = RCT(669)*V(254)\n! B(1276) = dA(670)/dV(253)\n  B(1276) = RCT(670)*V(337)\n! B(1277) = dA(670)/dV(337)\n  B(1277) = RCT(670)*V(253)\n! B(1278) = dA(671)/dV(259)\n  B(1278) = RCT(671)*V(337)\n! B(1279) = dA(671)/dV(337)\n  B(1279) = RCT(671)*V(259)\n! B(1280) = dA(672)/dV(159)\n  B(1280) = RCT(672)*V(345)\n! B(1281) = dA(672)/dV(345)\n  B(1281) = RCT(672)*V(159)\n! B(1282) = dA(673)/dV(253)\n  B(1282) = RCT(673)\n! B(1283) = dA(674)/dV(253)\n  B(1283) = RCT(674)*V(346)\n! B(1284) = dA(674)/dV(346)\n  B(1284) = RCT(674)*V(253)\n! B(1285) = dA(675)/dV(253)\n  B(1285) = RCT(675)*V(346)\n! B(1286) = dA(675)/dV(346)\n  B(1286) = RCT(675)*V(253)\n! B(1287) = dA(676)/dV(259)\n  B(1287) = RCT(676)*V(346)\n! B(1288) = dA(676)/dV(346)\n  B(1288) = RCT(676)*V(259)\n! B(1289) = dA(677)/dV(259)\n  B(1289) = RCT(677)*V(335)\n! B(1290) = dA(677)/dV(335)\n  B(1290) = RCT(677)*V(259)\n! B(1291) = dA(678)/dV(308)\n  B(1291) = RCT(678)*V(337)\n! B(1292) = dA(678)/dV(337)\n  B(1292) = RCT(678)*V(308)\n! B(1293) = dA(679)/dV(308)\n  B(1293) = RCT(679)*V(346)\n! B(1294) = dA(679)/dV(346)\n  B(1294) = RCT(679)*V(308)\n! B(1295) = dA(680)/dV(308)\n  B(1295) = RCT(680)*V(335)\n! B(1296) = dA(680)/dV(335)\n  B(1296) = RCT(680)*V(308)\n! B(1297) = dA(681)/dV(308)\n  B(1297) = RCT(681)*V(351)\n! B(1298) = dA(681)/dV(351)\n  B(1298) = RCT(681)*V(308)\n! B(1299) = dA(682)/dV(308)\n  B(1299) = RCT(682)*V(328)\n! B(1300) = dA(682)/dV(328)\n  B(1300) = RCT(682)*V(308)\n! B(1301) = dA(683)/dV(184)\n  B(1301) = RCT(683)\n! B(1302) = dA(684)/dV(184)\n  B(1302) = RCT(684)*V(345)\n! B(1303) = dA(684)/dV(345)\n  B(1303) = RCT(684)*V(184)\n! B(1304) = dA(685)/dV(107)\n  B(1304) = RCT(685)*V(345)\n! B(1305) = dA(685)/dV(345)\n  B(1305) = RCT(685)*V(107)\n! B(1306) = dA(686)/dV(258)\n  B(1306) = RCT(686)*V(345)\n! B(1307) = dA(686)/dV(345)\n  B(1307) = RCT(686)*V(258)\n! B(1308) = dA(687)/dV(147)\n  B(1308) = RCT(687)*V(345)\n! B(1309) = dA(687)/dV(345)\n  B(1309) = RCT(687)*V(147)\n! B(1310) = dA(688)/dV(174)\n  B(1310) = RCT(688)*V(345)\n! B(1311) = dA(688)/dV(345)\n  B(1311) = RCT(688)*V(174)\n! B(1312) = dA(689)/dV(198)\n  B(1312) = RCT(689)*V(345)\n! B(1313) = dA(689)/dV(345)\n  B(1313) = RCT(689)*V(198)\n! B(1314) = dA(690)/dV(266)\n  B(1314) = RCT(690)*V(345)\n! B(1315) = dA(690)/dV(345)\n  B(1315) = RCT(690)*V(266)\n! B(1316) = dA(691)/dV(303)\n  B(1316) = RCT(691)*V(345)\n! B(1317) = dA(691)/dV(345)\n  B(1317) = RCT(691)*V(303)\n! B(1318) = dA(692)/dV(261)\n  B(1318) = RCT(692)*V(351)\n! B(1319) = dA(692)/dV(351)\n  B(1319) = RCT(692)*V(261)\n! B(1320) = dA(693)/dV(115)\n  B(1320) = RCT(693)*V(345)\n! B(1321) = dA(693)/dV(345)\n  B(1321) = RCT(693)*V(115)\n! B(1322) = dA(694)/dV(88)\n  B(1322) = RCT(694)*V(345)\n! B(1323) = dA(694)/dV(345)\n  B(1323) = RCT(694)*V(88)\n! B(1324) = dA(695)/dV(324)\n  B(1324) = RCT(695)*V(337)\n! B(1325) = dA(695)/dV(337)\n  B(1325) = RCT(695)*V(324)\n! B(1326) = dA(696)/dV(210)\n  B(1326) = RCT(696)*V(345)\n! B(1327) = dA(696)/dV(345)\n  B(1327) = RCT(696)*V(210)\n! B(1328) = dA(697)/dV(210)\n  B(1328) = RCT(697)*V(345)\n! B(1329) = dA(697)/dV(345)\n  B(1329) = RCT(697)*V(210)\n! B(1330) = dA(698)/dV(19)\n  B(1330) = RCT(698)*V(345)\n! B(1331) = dA(698)/dV(345)\n  B(1331) = RCT(698)*V(19)\n! B(1332) = dA(699)/dV(18)\n  B(1332) = RCT(699)*V(337)\n! B(1333) = dA(699)/dV(337)\n  B(1333) = RCT(699)*V(18)\n! B(1334) = dA(700)/dV(18)\n  B(1334) = RCT(700)*V(346)\n! B(1335) = dA(700)/dV(346)\n  B(1335) = RCT(700)*V(18)\n! B(1336) = dA(701)/dV(173)\n  B(1336) = RCT(701)*V(345)\n! B(1337) = dA(701)/dV(345)\n  B(1337) = RCT(701)*V(173)\n! B(1338) = dA(702)/dV(220)\n  B(1338) = RCT(702)*V(345)\n! B(1339) = dA(702)/dV(345)\n  B(1339) = RCT(702)*V(220)\n! B(1340) = dA(703)/dV(220)\n  B(1340) = RCT(703)*V(351)\n! B(1341) = dA(703)/dV(351)\n  B(1341) = RCT(703)*V(220)\n! B(1342) = dA(704)/dV(220)\n  B(1342) = RCT(704)*V(341)\n! B(1343) = dA(704)/dV(341)\n  B(1343) = RCT(704)*V(220)\n! B(1344) = dA(705)/dV(149)\n  B(1344) = RCT(705)*V(345)\n! B(1345) = dA(705)/dV(345)\n  B(1345) = RCT(705)*V(149)\n! B(1346) = dA(706)/dV(149)\n  B(1346) = RCT(706)*V(351)\n! B(1347) = dA(706)/dV(351)\n  B(1347) = RCT(706)*V(149)\n! B(1348) = dA(707)/dV(200)\n  B(1348) = RCT(707)*V(345)\n! B(1349) = dA(707)/dV(345)\n  B(1349) = RCT(707)*V(200)\n! B(1350) = dA(708)/dV(200)\n  B(1350) = RCT(708)*V(351)\n! B(1351) = dA(708)/dV(351)\n  B(1351) = RCT(708)*V(200)\n! B(1352) = dA(709)/dV(189)\n  B(1352) = RCT(709)*V(346)\n! B(1353) = dA(709)/dV(346)\n  B(1353) = RCT(709)*V(189)\n! B(1354) = dA(710)/dV(189)\n  B(1354) = RCT(710)*V(337)\n! B(1355) = dA(710)/dV(337)\n  B(1355) = RCT(710)*V(189)\n! B(1356) = dA(711)/dV(116)\n  B(1356) = RCT(711)*V(345)\n! B(1357) = dA(711)/dV(345)\n  B(1357) = RCT(711)*V(116)\n! B(1358) = dA(712)/dV(109)\n  B(1358) = RCT(712)*V(341)\n! B(1359) = dA(712)/dV(341)\n  B(1359) = RCT(712)*V(109)\n! B(1360) = dA(713)/dV(109)\n  B(1360) = RCT(713)*V(345)\n! B(1361) = dA(713)/dV(345)\n  B(1361) = RCT(713)*V(109)\n! B(1362) = dA(714)/dV(60)\n  B(1362) = RCT(714)*V(345)\n! B(1363) = dA(714)/dV(345)\n  B(1363) = RCT(714)*V(60)\n! B(1364) = dA(715)/dV(234)\n  B(1364) = RCT(715)*V(337)\n! B(1365) = dA(715)/dV(337)\n  B(1365) = RCT(715)*V(234)\n! B(1366) = dA(716)/dV(234)\n  B(1366) = RCT(716)*V(346)\n! B(1367) = dA(716)/dV(346)\n  B(1367) = RCT(716)*V(234)\n! B(1368) = dA(717)/dV(234)\n  B(1368) = RCT(717)*V(351)\n! B(1369) = dA(717)/dV(351)\n  B(1369) = RCT(717)*V(234)\n! B(1370) = dA(718)/dV(234)\n  B(1370) = RCT(718)*V(328)\n! B(1371) = dA(718)/dV(328)\n  B(1371) = RCT(718)*V(234)\n! B(1372) = dA(719)/dV(106)\n  B(1372) = RCT(719)\n! B(1373) = dA(720)/dV(106)\n  B(1373) = RCT(720)*F(3)\n! B(1375) = dA(721)/dV(70)\n  B(1375) = RCT(721)*V(345)\n! B(1376) = dA(721)/dV(345)\n  B(1376) = RCT(721)*V(70)\n! B(1377) = dA(722)/dV(136)\n  B(1377) = RCT(722)*V(345)\n! B(1378) = dA(722)/dV(345)\n  B(1378) = RCT(722)*V(136)\n! B(1379) = dA(723)/dV(136)\n  B(1379) = RCT(723)*V(345)\n! B(1380) = dA(723)/dV(345)\n  B(1380) = RCT(723)*V(136)\n! B(1381) = dA(724)/dV(143)\n  B(1381) = RCT(724)*V(345)\n! B(1382) = dA(724)/dV(345)\n  B(1382) = RCT(724)*V(143)\n! B(1383) = dA(725)/dV(82)\n  B(1383) = RCT(725)*V(345)\n! B(1384) = dA(725)/dV(345)\n  B(1384) = RCT(725)*V(82)\n! B(1385) = dA(726)/dV(101)\n  B(1385) = RCT(726)*V(345)\n! B(1386) = dA(726)/dV(345)\n  B(1386) = RCT(726)*V(101)\n! B(1387) = dA(727)/dV(263)\n  B(1387) = RCT(727)*V(337)\n! B(1388) = dA(727)/dV(337)\n  B(1388) = RCT(727)*V(263)\n! B(1389) = dA(728)/dV(263)\n  B(1389) = RCT(728)*V(346)\n! B(1390) = dA(728)/dV(346)\n  B(1390) = RCT(728)*V(263)\n! B(1391) = dA(729)/dV(263)\n  B(1391) = RCT(729)*V(351)\n! B(1392) = dA(729)/dV(351)\n  B(1392) = RCT(729)*V(263)\n! B(1393) = dA(730)/dV(263)\n  B(1393) = RCT(730)*V(328)\n! B(1394) = dA(730)/dV(328)\n  B(1394) = RCT(730)*V(263)\n! B(1395) = dA(731)/dV(263)\n  B(1395) = RCT(731)*V(324)\n! B(1396) = dA(731)/dV(324)\n  B(1396) = RCT(731)*V(263)\n! B(1397) = dA(732)/dV(58)\n  B(1397) = RCT(732)*V(345)\n! B(1398) = dA(732)/dV(345)\n  B(1398) = RCT(732)*V(58)\n! B(1399) = dA(733)/dV(121)\n  B(1399) = RCT(733)*V(346)\n! B(1400) = dA(733)/dV(346)\n  B(1400) = RCT(733)*V(121)\n! B(1401) = dA(734)/dV(121)\n  B(1401) = RCT(734)*V(337)\n! B(1402) = dA(734)/dV(337)\n  B(1402) = RCT(734)*V(121)\n! B(1403) = dA(735)/dV(146)\n  B(1403) = 7.09e-11*V(345)\n! B(1404) = dA(735)/dV(345)\n  B(1404) = 7.09e-11*V(146)\n! B(1405) = dA(736)/dV(240)\n  B(1405) = RCT(736)*V(346)\n! B(1406) = dA(736)/dV(346)\n  B(1406) = RCT(736)*V(240)\n! B(1407) = dA(737)/dV(240)\n  B(1407) = RCT(737)*V(337)\n! B(1408) = dA(737)/dV(337)\n  B(1408) = RCT(737)*V(240)\n! B(1409) = dA(738)/dV(240)\n  B(1409) = RCT(738)*V(335)\n! B(1410) = dA(738)/dV(335)\n  B(1410) = RCT(738)*V(240)\n! B(1411) = dA(739)/dV(122)\n  B(1411) = RCT(739)\n! B(1412) = dA(740)/dV(122)\n  B(1412) = RCT(740)*V(345)\n! B(1413) = dA(740)/dV(345)\n  B(1413) = RCT(740)*V(122)\n! B(1414) = dA(741)/dV(195)\n  B(1414) = RCT(741)*V(345)\n! B(1415) = dA(741)/dV(345)\n  B(1415) = RCT(741)*V(195)\n! B(1416) = dA(742)/dV(195)\n  B(1416) = RCT(742)*V(351)\n! B(1417) = dA(742)/dV(351)\n  B(1417) = RCT(742)*V(195)\n! B(1418) = dA(743)/dV(158)\n  B(1418) = RCT(743)*V(345)\n! B(1419) = dA(743)/dV(345)\n  B(1419) = RCT(743)*V(158)\n! B(1420) = dA(744)/dV(158)\n  B(1420) = RCT(744)*V(351)\n! B(1421) = dA(744)/dV(351)\n  B(1421) = RCT(744)*V(158)\n! B(1422) = dA(745)/dV(202)\n  B(1422) = RCT(745)*V(345)\n! B(1423) = dA(745)/dV(345)\n  B(1423) = RCT(745)*V(202)\n! B(1424) = dA(746)/dV(202)\n  B(1424) = RCT(746)*V(341)\n! B(1425) = dA(746)/dV(341)\n  B(1425) = RCT(746)*V(202)\n! B(1426) = dA(747)/dV(202)\n  B(1426) = RCT(747)*V(351)\n! B(1427) = dA(747)/dV(351)\n  B(1427) = RCT(747)*V(202)\n! B(1428) = dA(748)/dV(204)\n  B(1428) = RCT(748)*V(345)\n! B(1429) = dA(748)/dV(345)\n  B(1429) = RCT(748)*V(204)\n! B(1430) = dA(749)/dV(204)\n  B(1430) = RCT(749)*V(351)\n! B(1431) = dA(749)/dV(351)\n  B(1431) = RCT(749)*V(204)\n! B(1432) = dA(750)/dV(235)\n  B(1432) = RCT(750)*V(337)\n! B(1433) = dA(750)/dV(337)\n  B(1433) = RCT(750)*V(235)\n! B(1434) = dA(751)/dV(235)\n  B(1434) = RCT(751)*V(346)\n! B(1435) = dA(751)/dV(346)\n  B(1435) = RCT(751)*V(235)\n! B(1436) = dA(752)/dV(235)\n  B(1436) = RCT(752)*V(335)\n! B(1437) = dA(752)/dV(335)\n  B(1437) = RCT(752)*V(235)\n! B(1438) = dA(753)/dV(71)\n  B(1438) = RCT(753)*V(345)\n! B(1439) = dA(753)/dV(345)\n  B(1439) = RCT(753)*V(71)\n! B(1440) = dA(754)/dV(90)\n  B(1440) = RCT(754)\n! B(1441) = dA(755)/dV(90)\n  B(1441) = RCT(755)*V(345)\n! B(1442) = dA(755)/dV(345)\n  B(1442) = RCT(755)*V(90)\n! B(1443) = dA(756)/dV(236)\n  B(1443) = RCT(756)*V(335)\n! B(1444) = dA(756)/dV(335)\n  B(1444) = RCT(756)*V(236)\n! B(1445) = dA(757)/dV(236)\n  B(1445) = RCT(757)*V(346)\n! B(1446) = dA(757)/dV(346)\n  B(1446) = RCT(757)*V(236)\n! B(1447) = dA(758)/dV(236)\n  B(1447) = RCT(758)*V(351)\n! B(1448) = dA(758)/dV(351)\n  B(1448) = RCT(758)*V(236)\n! B(1449) = dA(759)/dV(236)\n  B(1449) = RCT(759)*V(337)\n! B(1450) = dA(759)/dV(337)\n  B(1450) = RCT(759)*V(236)\n! B(1451) = dA(760)/dV(117)\n  B(1451) = RCT(760)*V(345)\n! B(1452) = dA(760)/dV(345)\n  B(1452) = RCT(760)*V(117)\n! B(1453) = dA(761)/dV(203)\n  B(1453) = RCT(761)*V(341)\n! B(1454) = dA(761)/dV(341)\n  B(1454) = RCT(761)*V(203)\n! B(1455) = dA(762)/dV(203)\n  B(1455) = RCT(762)*V(335)\n! B(1456) = dA(762)/dV(335)\n  B(1456) = RCT(762)*V(203)\n! B(1457) = dA(763)/dV(269)\n  B(1457) = RCT(763)*V(345)\n! B(1458) = dA(763)/dV(345)\n  B(1458) = RCT(763)*V(269)\n! B(1459) = dA(764)/dV(269)\n  B(1459) = RCT(764)*V(351)\n! B(1460) = dA(764)/dV(351)\n  B(1460) = RCT(764)*V(269)\n! B(1461) = dA(765)/dV(236)\n  B(1461) = RCT(765)*V(328)\n! B(1462) = dA(765)/dV(328)\n  B(1462) = RCT(765)*V(236)\n! B(1463) = dA(766)/dV(235)\n  B(1463) = RCT(766)*V(328)\n! B(1464) = dA(766)/dV(328)\n  B(1464) = RCT(766)*V(235)\n! B(1465) = dA(767)/dV(221)\n  B(1465) = RCT(767)*V(345)\n! B(1466) = dA(767)/dV(345)\n  B(1466) = RCT(767)*V(221)\n! B(1467) = dA(768)/dV(221)\n  B(1467) = RCT(768)*V(341)\n! B(1468) = dA(768)/dV(341)\n  B(1468) = RCT(768)*V(221)\n! B(1469) = dA(769)/dV(221)\n  B(1469) = RCT(769)\n! B(1470) = dA(770)/dV(201)\n  B(1470) = RCT(770)*V(345)\n! B(1471) = dA(770)/dV(345)\n  B(1471) = RCT(770)*V(201)\n! B(1472) = dA(771)/dV(201)\n  B(1472) = RCT(771)*V(341)\n! B(1473) = dA(771)/dV(341)\n  B(1473) = RCT(771)*V(201)\n! B(1474) = dA(772)/dV(201)\n  B(1474) = RCT(772)\n! B(1475) = dA(773)/dV(13)\n  B(1475) = RCT(773)*V(337)\n! B(1476) = dA(773)/dV(337)\n  B(1476) = RCT(773)*V(13)\n! B(1477) = dA(774)/dV(13)\n  B(1477) = RCT(774)*V(346)\n! B(1478) = dA(774)/dV(346)\n  B(1478) = RCT(774)*V(13)\n! B(1479) = dA(775)/dV(22)\n  B(1479) = RCT(775)*V(337)\n! B(1480) = dA(775)/dV(337)\n  B(1480) = RCT(775)*V(22)\n! B(1481) = dA(776)/dV(22)\n  B(1481) = RCT(776)*V(346)\n! B(1482) = dA(776)/dV(346)\n  B(1482) = RCT(776)*V(22)\n! B(1483) = dA(777)/dV(27)\n  B(1483) = RCT(777)*V(337)\n! B(1484) = dA(777)/dV(337)\n  B(1484) = RCT(777)*V(27)\n! B(1485) = dA(778)/dV(27)\n  B(1485) = RCT(778)*V(346)\n! B(1486) = dA(778)/dV(346)\n  B(1486) = RCT(778)*V(27)\n! B(1487) = dA(779)/dV(328)\n  B(1487) = RCT(779)*V(351)\n! B(1488) = dA(779)/dV(351)\n  B(1488) = RCT(779)*V(328)\n! B(1489) = dA(780)/dV(41)\n  B(1489) = RCT(780)*V(345)\n! B(1490) = dA(780)/dV(345)\n  B(1490) = RCT(780)*V(41)\n! B(1491) = dA(781)/dV(337)\n  B(1491) = RCT(781)\n! B(1492) = dA(782)/dV(335)\n  B(1492) = RCT(782)\n! B(1493) = dA(783)/dV(351)\n  B(1493) = RCT(783)\n! B(1494) = dA(784)/dV(351)\n  B(1494) = RCT(784)\n! B(1495) = dA(785)/dV(351)\n  B(1495) = RCT(785)\n! B(1496) = dA(786)/dV(214)\n  B(1496) = RCT(786)*V(336)\n! B(1497) = dA(786)/dV(336)\n  B(1497) = RCT(786)*V(214)\n! B(1498) = dA(787)/dV(214)\n  B(1498) = RCT(787)*V(339)\n! B(1499) = dA(787)/dV(339)\n  B(1499) = RCT(787)*V(214)\n! B(1500) = dA(788)/dV(214)\n  B(1500) = RCT(788)\n! B(1501) = dA(789)/dV(214)\n  B(1501) = RCT(789)*V(353)\n! B(1502) = dA(789)/dV(353)\n  B(1502) = RCT(789)*V(214)\n! B(1503) = dA(790)/dV(214)\n  B(1503) = RCT(790)*V(344)\n! B(1504) = dA(790)/dV(344)\n  B(1504) = RCT(790)*V(214)\n! B(1505) = dA(791)/dV(345)\n  B(1505) = RCT(791)*V(353)\n! B(1506) = dA(791)/dV(353)\n  B(1506) = RCT(791)*V(345)\n! B(1507) = dA(792)/dV(344)\n  B(1507) = RCT(792)*V(345)\n! B(1508) = dA(792)/dV(345)\n  B(1508) = RCT(792)*V(344)\n! B(1509) = dA(793)/dV(218)\n  B(1509) = RCT(793)*V(336)\n! B(1510) = dA(793)/dV(336)\n  B(1510) = RCT(793)*V(218)\n! B(1511) = dA(794)/dV(218)\n  B(1511) = RCT(794)*V(339)\n! B(1512) = dA(794)/dV(339)\n  B(1512) = RCT(794)*V(218)\n! B(1513) = dA(795)/dV(317)\n  B(1513) = RCT(795)*V(336)\n! B(1514) = dA(795)/dV(336)\n  B(1514) = RCT(795)*V(317)\n! B(1515) = dA(796)/dV(317)\n  B(1515) = RCT(796)*V(339)\n! B(1516) = dA(796)/dV(339)\n  B(1516) = RCT(796)*V(317)\n! B(1517) = dA(797)/dV(317)\n  B(1517) = RCT(797)*V(352)\n! B(1518) = dA(797)/dV(352)\n  B(1518) = RCT(797)*V(317)\n! B(1519) = dA(798)/dV(317)\n  B(1519) = RCT(798)*V(349)\n! B(1520) = dA(798)/dV(349)\n  B(1520) = RCT(798)*V(317)\n! B(1521) = dA(799)/dV(317)\n  B(1521) = RCT(799)*V(350)\n! B(1522) = dA(799)/dV(350)\n  B(1522) = RCT(799)*V(317)\n! B(1523) = dA(800)/dV(317)\n  B(1523) = RCT(800)*V(353)\n! B(1524) = dA(800)/dV(353)\n  B(1524) = RCT(800)*V(317)\n! B(1525) = dA(801)/dV(317)\n  B(1525) = RCT(801)*V(344)\n! B(1526) = dA(801)/dV(344)\n  B(1526) = RCT(801)*V(317)\n! B(1527) = dA(802)/dV(297)\n  B(1527) = RCT(802)*V(353)\n! B(1528) = dA(802)/dV(353)\n  B(1528) = RCT(802)*V(297)\n! B(1529) = dA(803)/dV(297)\n  B(1529) = RCT(803)*V(344)\n! B(1530) = dA(803)/dV(344)\n  B(1530) = RCT(803)*V(297)\n! B(1531) = dA(804)/dV(297)\n  B(1531) = RCT(804)*V(339)\n! B(1532) = dA(804)/dV(339)\n  B(1532) = RCT(804)*V(297)\n! B(1533) = dA(805)/dV(297)\n  B(1533) = RCT(805)*V(349)\n! B(1534) = dA(805)/dV(349)\n  B(1534) = RCT(805)*V(297)\n! B(1535) = dA(806)/dV(297)\n  B(1535) = RCT(806)*V(350)\n! B(1536) = dA(806)/dV(350)\n  B(1536) = RCT(806)*V(297)\n! B(1537) = dA(807)/dV(297)\n  B(1537) = RCT(807)*V(352)\n! B(1538) = dA(807)/dV(352)\n  B(1538) = RCT(807)*V(297)\n! B(1539) = dA(808)/dV(333)\n  B(1539) = RCT(808)*V(339)\n! B(1540) = dA(808)/dV(339)\n  B(1540) = RCT(808)*V(333)\n! B(1541) = dA(809)/dV(333)\n  B(1541) = RCT(809)*V(352)\n! B(1542) = dA(809)/dV(352)\n  B(1542) = RCT(809)*V(333)\n! B(1543) = dA(810)/dV(333)\n  B(1543) = RCT(810)*V(353)\n! B(1544) = dA(810)/dV(353)\n  B(1544) = RCT(810)*V(333)\n! B(1545) = dA(811)/dV(333)\n  B(1545) = RCT(811)*V(344)\n! B(1546) = dA(811)/dV(344)\n  B(1546) = RCT(811)*V(333)\n! B(1547) = dA(812)/dV(333)\n  B(1547) = RCT(812)*V(348)\n! B(1548) = dA(812)/dV(348)\n  B(1548) = RCT(812)*V(333)\n! B(1549) = dA(813)/dV(316)\n  B(1549) = RCT(813)*V(352)\n! B(1550) = dA(813)/dV(352)\n  B(1550) = RCT(813)*V(316)\n! B(1551) = dA(814)/dV(316)\n  B(1551) = RCT(814)*V(339)\n! B(1552) = dA(814)/dV(339)\n  B(1552) = RCT(814)*V(316)\n! B(1553) = dA(815)/dV(316)\n  B(1553) = RCT(815)*V(353)\n! B(1554) = dA(815)/dV(353)\n  B(1554) = RCT(815)*V(316)\n! B(1555) = dA(816)/dV(316)\n  B(1555) = RCT(816)*V(344)\n! B(1556) = dA(816)/dV(344)\n  B(1556) = RCT(816)*V(316)\n! B(1557) = dA(817)/dV(316)\n  B(1557) = RCT(817)*V(349)\n! B(1558) = dA(817)/dV(349)\n  B(1558) = RCT(817)*V(316)\n! B(1559) = dA(818)/dV(316)\n  B(1559) = RCT(818)*V(350)\n! B(1560) = dA(818)/dV(350)\n  B(1560) = RCT(818)*V(316)\n! B(1561) = dA(819)/dV(316)\n  B(1561) = RCT(819)*V(348)\n! B(1562) = dA(819)/dV(348)\n  B(1562) = RCT(819)*V(316)\n! B(1563) = dA(820)/dV(341)\n  B(1563) = RCT(820)*V(352)\n! B(1564) = dA(820)/dV(352)\n  B(1564) = RCT(820)*V(341)\n! B(1565) = dA(821)/dV(341)\n  B(1565) = RCT(821)*V(349)\n! B(1566) = dA(821)/dV(349)\n  B(1566) = RCT(821)*V(341)\n! B(1567) = dA(822)/dV(341)\n  B(1567) = RCT(822)*V(350)\n! B(1568) = dA(822)/dV(350)\n  B(1568) = RCT(822)*V(341)\n! B(1569) = dA(823)/dV(352)\n  B(1569) = RCT(823)\n! B(1570) = dA(824)/dV(352)\n  B(1570) = RCT(824)\n! B(1571) = dA(825)/dV(73)\n  B(1571) = RCT(825)\n! B(1572) = dA(826)/dV(73)\n  B(1572) = RCT(826)\n! B(1573) = dA(827)/dV(73)\n  B(1573) = RCT(827)\n! B(1574) = dA(828)/dV(330)\n  B(1574) = RCT(828)\n! B(1575) = dA(829)/dV(330)\n  B(1575) = RCT(829)\n! B(1576) = dA(830)/dV(44)\n  B(1576) = RCT(830)\n! B(1577) = dA(831)/dV(44)\n  B(1577) = RCT(831)\n! B(1578) = dA(832)/dV(44)\n  B(1578) = RCT(832)\n! B(1579) = dA(833)/dV(55)\n  B(1579) = RCT(833)\n! B(1580) = dA(834)/dV(55)\n  B(1580) = RCT(834)\n! B(1581) = dA(835)/dV(55)\n  B(1581) = RCT(835)\n! B(1582) = dA(836)/dV(42)\n  B(1582) = RCT(836)\n! B(1583) = dA(837)/dV(42)\n  B(1583) = RCT(837)\n! B(1584) = dA(838)/dV(42)\n  B(1584) = RCT(838)\n! B(1585) = dA(839)/dV(252)\n  B(1585) = RCT(839)\n! B(1586) = dA(840)/dV(252)\n  B(1586) = RCT(840)\n! B(1587) = dA(841)/dV(332)\n  B(1587) = RCT(841)\n! B(1588) = dA(842)/dV(332)\n  B(1588) = RCT(842)\n! B(1589) = dA(843)/dV(332)\n  B(1589) = RCT(843)*V(336)\n! B(1590) = dA(843)/dV(336)\n  B(1590) = RCT(843)*V(332)\n! B(1591) = dA(844)/dV(252)\n  B(1591) = RCT(844)*V(349)\n! B(1592) = dA(844)/dV(349)\n  B(1592) = RCT(844)*V(252)\n! B(1593) = dA(845)/dV(252)\n  B(1593) = RCT(845)*V(350)\n! B(1594) = dA(845)/dV(350)\n  B(1594) = RCT(845)*V(252)\n! B(1595) = dA(846)/dV(252)\n  B(1595) = RCT(846)*V(353)\n! B(1596) = dA(846)/dV(353)\n  B(1596) = RCT(846)*V(252)\n! B(1597) = dA(847)/dV(252)\n  B(1597) = RCT(847)*V(344)\n! B(1598) = dA(847)/dV(344)\n  B(1598) = RCT(847)*V(252)\n! B(1599) = dA(848)/dV(332)\n  B(1599) = RCT(848)*V(349)\n! B(1600) = dA(848)/dV(349)\n  B(1600) = RCT(848)*V(332)\n! B(1601) = dA(849)/dV(332)\n  B(1601) = RCT(849)*V(350)\n! B(1602) = dA(849)/dV(350)\n  B(1602) = RCT(849)*V(332)\n! B(1603) = dA(850)/dV(332)\n  B(1603) = RCT(850)*V(353)\n! B(1604) = dA(850)/dV(353)\n  B(1604) = RCT(850)*V(332)\n! B(1605) = dA(851)/dV(332)\n  B(1605) = RCT(851)*V(344)\n! B(1606) = dA(851)/dV(344)\n  B(1606) = RCT(851)*V(332)\n! B(1607) = dA(852)/dV(330)\n  B(1607) = RCT(852)*V(349)\n! B(1608) = dA(852)/dV(349)\n  B(1608) = RCT(852)*V(330)\n! B(1609) = dA(853)/dV(330)\n  B(1609) = RCT(853)*V(350)\n! B(1610) = dA(853)/dV(350)\n  B(1610) = RCT(853)*V(330)\n! B(1611) = dA(854)/dV(330)\n  B(1611) = RCT(854)*V(353)\n! B(1612) = dA(854)/dV(353)\n  B(1612) = RCT(854)*V(330)\n! B(1613) = dA(855)/dV(330)\n  B(1613) = RCT(855)*V(344)\n! B(1614) = dA(855)/dV(344)\n  B(1614) = RCT(855)*V(330)\n! B(1615) = dA(856)/dV(270)\n  B(1615) = RCT(856)\n! B(1616) = dA(857)/dV(294)\n  B(1616) = RCT(857)\n! B(1617) = dA(858)/dV(151)\n  B(1617) = RCT(858)\n! B(1618) = dA(859)/dV(152)\n  B(1618) = RCT(859)\n! B(1619) = dA(860)/dV(128)\n  B(1619) = RCT(860)\n! B(1620) = dA(861)/dV(24)\n  B(1620) = RCT(861)\n! B(1621) = dA(862)/dV(302)\n  B(1621) = RCT(862)\n! B(1622) = dA(863)/dV(251)\n  B(1622) = RCT(863)\n! B(1623) = dA(864)/dV(256)\n  B(1623) = RCT(864)\n! B(1624) = dA(865)/dV(242)\n  B(1624) = RCT(865)\n! B(1625) = dA(866)/dV(154)\n  B(1625) = RCT(866)\n! B(1626) = dA(867)/dV(115)\n  B(1626) = RCT(867)\n! B(1627) = dA(868)/dV(107)\n  B(1627) = RCT(868)\n! B(1628) = dA(869)/dV(268)\n  B(1628) = RCT(869)\n! B(1629) = dA(870)/dV(175)\n  B(1629) = RCT(870)\n! B(1630) = dA(871)/dV(168)\n  B(1630) = RCT(871)\n! B(1631) = dA(872)/dV(267)\n  B(1631) = RCT(872)\n! B(1632) = dA(873)/dV(215)\n  B(1632) = RCT(873)\n! B(1633) = dA(874)/dV(186)\n  B(1633) = RCT(874)\n! B(1634) = dA(875)/dV(222)\n  B(1634) = RCT(875)\n! B(1635) = dA(876)/dV(299)\n  B(1635) = RCT(876)\n! B(1636) = dA(877)/dV(266)\n  B(1636) = RCT(877)\n! B(1637) = dA(878)/dV(303)\n  B(1637) = RCT(878)\n! B(1638) = dA(879)/dV(216)\n  B(1638) = RCT(879)\n! B(1639) = dA(880)/dV(248)\n  B(1639) = RCT(880)\n! B(1640) = dA(881)/dV(269)\n  B(1640) = RCT(881)\n! B(1641) = dA(882)/dV(341)\n  B(1641) = RCT(882)\n! B(1642) = dA(883)/dV(341)\n  B(1642) = RCT(883)\n! B(1644) = dA(885)/dV(335)\n  B(1644) = RCT(885)\n! B(1645) = dA(886)/dV(264)\n  B(1645) = RCT(886)\n! B(1646) = dA(887)/dV(164)\n  B(1646) = RCT(887)\n! B(1647) = dA(888)/dV(325)\n  B(1647) = RCT(888)\n! B(1648) = dA(889)/dV(325)\n  B(1648) = RCT(889)\n! B(1649) = dA(890)/dV(327)\n  B(1649) = RCT(890)\n! B(1650) = dA(891)/dV(239)\n  B(1650) = RCT(891)\n! B(1651) = dA(892)/dV(108)\n  B(1651) = RCT(892)\n! B(1652) = dA(893)/dV(108)\n  B(1652) = RCT(893)\n! B(1653) = dA(894)/dV(351)\n  B(1653) = RCT(894)\n! B(1654) = dA(895)/dV(351)\n  B(1654) = RCT(895)\n! B(1655) = dA(896)/dV(214)\n  B(1655) = RCT(896)\n! B(1656) = dA(897)/dV(326)\n  B(1656) = RCT(897)\n! B(1657) = dA(898)/dV(326)\n  B(1657) = RCT(898)\n! B(1658) = dA(899)/dV(139)\n  B(1658) = RCT(899)\n! B(1659) = dA(900)/dV(126)\n  B(1659) = RCT(900)\n! B(1660) = dA(901)/dV(233)\n  B(1660) = RCT(901)\n! B(1661) = dA(902)/dV(146)\n  B(1661) = RCT(902)\n! B(1662) = dA(903)/dV(298)\n  B(1662) = RCT(903)\n! B(1663) = dA(904)/dV(295)\n  B(1663) = RCT(904)\n! B(1664) = dA(905)/dV(295)\n  B(1664) = RCT(905)\n! B(1665) = dA(906)/dV(292)\n  B(1665) = RCT(906)\n! B(1666) = dA(907)/dV(306)\n  B(1666) = RCT(907)\n! B(1667) = dA(908)/dV(270)\n  B(1667) = RCT(908)\n! B(1668) = dA(909)/dV(270)\n  B(1668) = RCT(909)\n! B(1669) = dA(910)/dV(270)\n  B(1669) = RCT(910)\n! B(1670) = dA(911)/dV(294)\n  B(1670) = RCT(911)\n! B(1671) = dA(912)/dV(314)\n  B(1671) = RCT(912)\n! B(1672) = dA(913)/dV(314)\n  B(1672) = RCT(913)\n! B(1673) = dA(914)/dV(314)\n  B(1673) = RCT(914)\n! B(1674) = dA(915)/dV(309)\n  B(1674) = RCT(915)\n! B(1675) = dA(916)/dV(307)\n  B(1675) = RCT(916)\n! B(1676) = dA(917)/dV(125)\n  B(1676) = RCT(917)\n! B(1677) = dA(918)/dV(118)\n  B(1677) = RCT(918)\n! B(1678) = dA(919)/dV(99)\n  B(1678) = RCT(919)\n! B(1679) = dA(920)/dV(100)\n  B(1679) = RCT(920)\n! B(1680) = dA(921)/dV(97)\n  B(1680) = RCT(921)\n! B(1681) = dA(922)/dV(98)\n  B(1681) = RCT(922)\n! B(1682) = dA(923)/dV(102)\n  B(1682) = RCT(923)\n! B(1683) = dA(924)/dV(123)\n  B(1683) = RCT(924)\n! B(1684) = dA(925)/dV(155)\n  B(1684) = RCT(925)\n! B(1685) = dA(926)/dV(251)\n  B(1685) = RCT(926)\n! B(1686) = dA(927)/dV(196)\n  B(1686) = RCT(927)\n! B(1687) = dA(928)/dV(116)\n  B(1687) = RCT(928)\n! B(1688) = dA(929)/dV(279)\n  B(1688) = RCT(929)\n! B(1689) = dA(930)/dV(92)\n  B(1689) = RCT(930)\n! B(1690) = dA(931)/dV(148)\n  B(1690) = RCT(931)\n! B(1691) = dA(932)/dV(347)\n  B(1691) = RCT(932)\n! B(1692) = dA(933)/dV(316)\n  B(1692) = RCT(933)\n! B(1693) = dA(934)/dV(218)\n  B(1693) = RCT(934)\n! B(1694) = dA(935)/dV(218)\n  B(1694) = RCT(935)\n! B(1695) = dA(936)/dV(59)\n  B(1695) = RCT(936)\n! B(1696) = dA(937)/dV(81)\n  B(1696) = RCT(937)\n! B(1697) = dA(938)/dV(78)\n  B(1697) = RCT(938)\n! B(1698) = dA(939)/dV(105)\n  B(1698) = RCT(939)\n! B(1699) = dA(940)/dV(181)\n  B(1699) = RCT(940)\n! B(1700) = dA(941)/dV(79)\n  B(1700) = RCT(941)\n! B(1701) = dA(942)/dV(157)\n  B(1701) = RCT(942)\n! B(1702) = dA(943)/dV(245)\n  B(1702) = RCT(943)\n! B(1703) = dA(944)/dV(338)\n  B(1703) = RCT(944)\n! B(1704) = dA(945)/dV(120)\n  B(1704) = RCT(945)\n! B(1705) = dA(946)/dV(76)\n  B(1705) = RCT(946)\n! B(1706) = dA(947)/dV(297)\n  B(1706) = RCT(947)\n! B(1707) = dA(948)/dV(317)\n  B(1707) = RCT(948)\n! B(1708) = dA(949)/dV(317)\n  B(1708) = RCT(949)\n! B(1709) = dA(950)/dV(333)\n  B(1709) = RCT(950)\n! B(1710) = dA(951)/dV(43)\n  B(1710) = RCT(951)\n! B(1711) = dA(952)/dV(46)\n  B(1711) = RCT(952)\n! B(1712) = dA(953)/dV(47)\n  B(1712) = RCT(953)\n! B(1713) = dA(954)/dV(48)\n  B(1713) = RCT(954)\n! B(1714) = dA(955)/dV(49)\n  B(1714) = RCT(955)\n! B(1715) = dA(956)/dV(50)\n  B(1715) = RCT(956)\n! B(1716) = dA(957)/dV(51)\n  B(1716) = RCT(957)\n! B(1717) = dA(958)/dV(84)\n  B(1717) = RCT(958)\n! B(1718) = dA(959)/dV(85)\n  B(1718) = RCT(959)\n! B(1719) = dA(960)/dV(86)\n  B(1719) = RCT(960)\n! B(1720) = dA(961)/dV(87)\n  B(1720) = RCT(961)\n! B(1721) = dA(962)/dV(53)\n  B(1721) = RCT(962)\n! B(1722) = dA(963)/dV(61)\n  B(1722) = RCT(963)\n! B(1723) = dA(964)/dV(54)\n  B(1723) = RCT(964)\n! B(1724) = dA(965)/dV(110)\n  B(1724) = RCT(965)\n! B(1725) = dA(966)/dV(170)\n  B(1725) = RCT(966)\n! B(1726) = dA(967)/dV(330)\n  B(1726) = RCT(967)\n! B(1727) = dA(968)/dV(284)\n  B(1727) = RCT(968)\n! B(1728) = dA(969)/dV(96)\n  B(1728) = RCT(969)\n! B(1729) = dA(970)/dV(62)\n  B(1729) = RCT(970)\n! B(1730) = dA(971)/dV(252)\n  B(1730) = RCT(971)\n! B(1731) = dA(972)/dV(332)\n  B(1731) = RCT(972)\n! B(1732) = dA(973)/dV(44)\n  B(1732) = RCT(973)\n! B(1733) = dA(974)/dV(52)\n  B(1733) = RCT(974)\n! B(1734) = dA(975)/dV(1)\n  B(1734) = RCT(975)\n! B(1735) = dA(976)/dV(3)\n  B(1735) = RCT(976)\n! B(1736) = dA(977)/dV(2)\n  B(1736) = RCT(977)\n! B(1737) = dA(978)/dV(42)\n  B(1737) = RCT(978)\n! B(1738) = dA(979)/dV(55)\n  B(1738) = RCT(979)\n! B(1739) = dA(980)/dV(77)\n  B(1739) = RCT(980)\n! B(1740) = dA(981)/dV(104)\n  B(1740) = RCT(981)\n! B(1741) = dA(982)/dV(80)\n  B(1741) = RCT(982)\n! B(1742) = dA(983)/dV(80)\n  B(1742) = RCT(983)\n! B(1743) = dA(984)/dV(244)\n  B(1743) = RCT(984)\n! B(1744) = dA(985)/dV(63)\n  B(1744) = RCT(985)\n! B(1745) = dA(986)/dV(68)\n  B(1745) = RCT(986)\n! B(1746) = dA(987)/dV(134)\n  B(1746) = RCT(987)\n! B(1747) = dA(988)/dV(346)\n  B(1747) = RCT(988)\n! B(1748) = dA(989)/dV(229)\n  B(1748) = RCT(989)\n! B(1749) = dA(990)/dV(261)\n  B(1749) = RCT(990)\n! B(1750) = dA(991)/dV(256)\n  B(1750) = RCT(991)\n! B(1751) = dA(992)/dV(242)\n  B(1751) = RCT(992)\n! B(1752) = dA(993)/dV(154)\n  B(1752) = RCT(993)\n! B(1753) = dA(994)/dV(65)\n  B(1753) = RCT(994)\n! B(1754) = dA(995)/dV(65)\n  B(1754) = RCT(995)\n! B(1755) = dA(996)/dV(64)\n  B(1755) = RCT(996)\n! B(1756) = dA(997)/dV(64)\n  B(1756) = RCT(997)\n! B(1757) = dA(998)/dV(93)\n  B(1757) = RCT(998)\n! B(1758) = dA(999)/dV(83)\n  B(1758) = RCT(999)\n! B(1759) = dA(1000)/dV(91)\n  B(1759) = RCT(1000)\n! B(1760) = dA(1001)/dV(95)\n  B(1760) = RCT(1001)\n! B(1761) = dA(1002)/dV(88)\n  B(1761) = RCT(1002)\n! B(1762) = dA(1003)/dV(210)\n  B(1762) = RCT(1003)\n! B(1763) = dA(1004)/dV(115)\n  B(1763) = RCT(1004)\n! B(1764) = dA(1005)/dV(247)\n  B(1764) = RCT(1005)\n! B(1765) = dA(1006)/dV(208)\n  B(1765) = RCT(1006)\n! B(1766) = dA(1007)/dV(227)\n  B(1766) = RCT(1007)\n! B(1767) = dA(1008)/dV(288)\n  B(1767) = RCT(1008)\n! B(1768) = dA(1009)/dV(185)\n  B(1768) = RCT(1009)\n! B(1769) = dA(1010)/dV(194)\n  B(1769) = RCT(1010)\n! B(1770) = dA(1011)/dV(287)\n  B(1770) = RCT(1011)\n! B(1771) = dA(1012)/dV(159)\n  B(1771) = RCT(1012)\n! B(1772) = dA(1013)/dV(302)\n  B(1772) = RCT(1013)\n! B(1773) = dA(1014)/dV(248)\n  B(1773) = RCT(1014)\n! B(1774) = dA(1015)/dV(216)\n  B(1774) = RCT(1015)\n! B(1775) = dA(1016)/dV(187)\n  B(1775) = RCT(1016)\n! B(1776) = dA(1017)/dV(192)\n  B(1776) = RCT(1017)\n! B(1777) = dA(1018)/dV(209)\n  B(1777) = RCT(1018)\n! B(1778) = dA(1019)/dV(199)\n  B(1778) = RCT(1019)\n! B(1779) = dA(1020)/dV(230)\n  B(1779) = RCT(1020)\n! B(1780) = dA(1021)/dV(231)\n  B(1780) = RCT(1021)\n! B(1781) = dA(1022)/dV(150)\n  B(1781) = RCT(1022)\n! B(1782) = dA(1023)/dV(144)\n  B(1782) = RCT(1023)\n! B(1783) = dA(1024)/dV(268)\n  B(1783) = RCT(1024)\n! B(1784) = dA(1025)/dV(175)\n  B(1784) = RCT(1025)\n! B(1785) = dA(1026)/dV(168)\n  B(1785) = RCT(1026)\n! B(1786) = dA(1027)/dV(267)\n  B(1786) = RCT(1027)\n! B(1787) = dA(1028)/dV(222)\n  B(1787) = RCT(1028)\n! B(1788) = dA(1029)/dV(186)\n  B(1788) = RCT(1029)\n! B(1789) = dA(1030)/dV(186)\n  B(1789) = RCT(1030)\n! B(1790) = dA(1031)/dV(301)\n  B(1790) = RCT(1031)\n! B(1791) = dA(1032)/dV(299)\n  B(1791) = RCT(1032)\n! B(1792) = dA(1033)/dV(258)\n  B(1792) = RCT(1033)\n! B(1793) = dA(1034)/dV(258)\n  B(1793) = RCT(1034)\n! B(1794) = dA(1035)/dV(174)\n  B(1794) = RCT(1035)\n! B(1795) = dA(1036)/dV(198)\n  B(1795) = RCT(1036)\n! B(1796) = dA(1037)/dV(147)\n  B(1796) = RCT(1037)\n! B(1797) = dA(1038)/dV(303)\n  B(1797) = RCT(1038)\n! B(1798) = dA(1039)/dV(303)\n  B(1798) = RCT(1039)\n! B(1799) = dA(1040)/dV(266)\n  B(1799) = RCT(1040)\n! B(1800) = dA(1041)/dV(266)\n  B(1800) = RCT(1041)\n! B(1801) = dA(1042)/dV(136)\n  B(1801) = RCT(1042)\n! B(1802) = dA(1043)/dV(204)\n  B(1802) = RCT(1043)\n! B(1803) = dA(1044)/dV(71)\n  B(1803) = RCT(1044)\n! B(1804) = dA(1045)/dV(117)\n  B(1804) = RCT(1045)\n! B(1805) = dA(1046)/dV(269)\n  B(1805) = RCT(1046)\n! B(1806) = dA(1047)/dV(124)\n  B(1806) = RCT(1047)\n! B(1807) = dA(1048)/dV(111)\n  B(1807) = RCT(1048)\n! B(1808) = dA(1049)/dV(225)\n  B(1808) = RCT(1049)\n! B(1809) = dA(1050)/dV(74)\n  B(1809) = RCT(1050)\n! B(1810) = dA(1051)/dV(66)\n  B(1810) = RCT(1051)\n! B(1811) = dA(1052)/dV(160)\n  B(1811) = RCT(1052)\n! B(1812) = dA(1053)/dV(112)\n  B(1812) = RCT(1053)\n! B(1813) = dA(1054)/dV(161)\n  B(1813) = RCT(1054)\n! B(1814) = dA(1055)/dV(169)\n  B(1814) = RCT(1055)\n! B(1815) = dA(1056)/dV(130)\n  B(1815) = RCT(1056)\n! B(1816) = dA(1057)/dV(229)\n  B(1816) = RCT(1057)\n! B(1817) = dA(1058)/dV(255)\n  B(1817) = RCT(1058)\n\n! Construct the Jacobian terms from B's\nIF (DO_JVS(1)) &\n! JVS(1) = Jac_FULL(1,1)\n  JVS(1) = -B(1734)\nIF (DO_JVS(2)) &\n! JVS(2) = Jac_FULL(2,2)\n  JVS(2) = -B(1736)\nIF (DO_JVS(3)) &\n! JVS(3) = Jac_FULL(3,3)\n  JVS(3) = -B(1735)\nIF (DO_JVS(4)) &\n! JVS(4) = Jac_FULL(4,4)\n  JVS(4) = 0\nIF (DO_JVS(5)) &\n! JVS(5) = Jac_FULL(4,42)\n  JVS(5) = 2*B(1582)\nIF (DO_JVS(6)) &\n! JVS(6) = Jac_FULL(4,44)\n  JVS(6) = 2*B(1576)\nIF (DO_JVS(7)) &\n! JVS(7) = Jac_FULL(4,55)\n  JVS(7) = 2*B(1579)\nIF (DO_JVS(8)) &\n! JVS(8) = Jac_FULL(4,73)\n  JVS(8) = B(1571)\nIF (DO_JVS(9)) &\n! JVS(9) = Jac_FULL(5,5)\n  JVS(9) = 0\nIF (DO_JVS(10)) &\n! JVS(10) = Jac_FULL(5,269)\n  JVS(10) = B(1640)\nIF (DO_JVS(11)) &\n! JVS(11) = Jac_FULL(6,6)\n  JVS(11) = 0\nIF (DO_JVS(12)) &\n! JVS(12) = Jac_FULL(6,41)\n  JVS(12) = B(1489)\nIF (DO_JVS(13)) &\n! JVS(13) = Jac_FULL(6,345)\n  JVS(13) = B(1490)\nIF (DO_JVS(14)) &\n! JVS(14) = Jac_FULL(7,7)\n  JVS(14) = 0\nIF (DO_JVS(15)) &\n! JVS(15) = Jac_FULL(7,66)\n  JVS(15) = B(760)+B(1810)\nIF (DO_JVS(16)) &\n! JVS(16) = Jac_FULL(7,68)\n  JVS(16) = B(459)\nIF (DO_JVS(17)) &\n! JVS(17) = Jac_FULL(7,71)\n  JVS(17) = B(1803)\nIF (DO_JVS(18)) &\n! JVS(18) = Jac_FULL(7,74)\n  JVS(18) = B(1809)\nIF (DO_JVS(19)) &\n! JVS(19) = Jac_FULL(7,90)\n  JVS(19) = B(1441)\nIF (DO_JVS(20)) &\n! JVS(20) = Jac_FULL(7,92)\n  JVS(20) = 0.22*B(342)+B(1689)\nIF (DO_JVS(21)) &\n! JVS(21) = Jac_FULL(7,115)\n  JVS(21) = B(1320)+B(1763)\nIF (DO_JVS(22)) &\n! JVS(22) = Jac_FULL(7,130)\n  JVS(22) = B(849)+B(1815)\nIF (DO_JVS(23)) &\n! JVS(23) = Jac_FULL(7,133)\n  JVS(23) = B(1085)+B(1087)\nIF (DO_JVS(24)) &\n! JVS(24) = Jac_FULL(7,135)\n  JVS(24) = B(1089)+B(1091)\nIF (DO_JVS(25)) &\n! JVS(25) = Jac_FULL(7,139)\n  JVS(25) = 0.3*B(1658)\nIF (DO_JVS(26)) &\n! JVS(26) = Jac_FULL(7,159)\n  JVS(26) = 0.41*B(1280)+1.238*B(1771)\nIF (DO_JVS(27)) &\n! JVS(27) = Jac_FULL(7,169)\n  JVS(27) = B(1814)\nIF (DO_JVS(28)) &\n! JVS(28) = Jac_FULL(7,173)\n  JVS(28) = B(1336)\nIF (DO_JVS(29)) &\n! JVS(29) = Jac_FULL(7,182)\n  JVS(29) = 0.429*B(1214)+0.429*B(1216)\nIF (DO_JVS(30)) &\n! JVS(30) = Jac_FULL(7,194)\n  JVS(30) = 0.097*B(1258)\nIF (DO_JVS(31)) &\n! JVS(31) = Jac_FULL(7,198)\n  JVS(31) = B(1312)\nIF (DO_JVS(32)) &\n! JVS(32) = Jac_FULL(7,213)\n  JVS(32) = 0.44*B(302)\nIF (DO_JVS(33)) &\n! JVS(33) = Jac_FULL(7,216)\n  JVS(33) = 0.75*B(1244)\nIF (DO_JVS(34)) &\n! JVS(34) = Jac_FULL(7,235)\n  JVS(34) = 0.35*B(1432)+B(1434)+B(1463)\nIF (DO_JVS(35)) &\n! JVS(35) = Jac_FULL(7,238)\n  JVS(35) = 0.355*B(1009)\nIF (DO_JVS(36)) &\n! JVS(36) = Jac_FULL(7,240)\n  JVS(36) = 2*B(1405)+0.44*B(1407)\nIF (DO_JVS(37)) &\n! JVS(37) = Jac_FULL(7,241)\n  JVS(37) = B(705)\nIF (DO_JVS(38)) &\n! JVS(38) = Jac_FULL(7,246)\n  JVS(38) = B(243)+0.44*B(245)\nIF (DO_JVS(39)) &\n! JVS(39) = Jac_FULL(7,249)\n  JVS(39) = 0.645*B(361)\nIF (DO_JVS(40)) &\n! JVS(40) = Jac_FULL(7,250)\n  JVS(40) = 0.9*B(363)\nIF (DO_JVS(41)) &\n! JVS(41) = Jac_FULL(7,257)\n  JVS(41) = B(751)+B(756)+0.75*B(893)+2*B(895)\nIF (DO_JVS(42)) &\n! JVS(42) = Jac_FULL(7,259)\n  JVS(42) = 0.5*B(1278)+B(1287)\nIF (DO_JVS(43)) &\n! JVS(43) = Jac_FULL(7,260)\n  JVS(43) = 0.9*B(369)\nIF (DO_JVS(44)) &\n! JVS(44) = Jac_FULL(7,261)\n  JVS(44) = B(687)\nIF (DO_JVS(45)) &\n! JVS(45) = Jac_FULL(7,263)\n  JVS(45) = B(1395)\nIF (DO_JVS(46)) &\n! JVS(46) = Jac_FULL(7,265)\n  JVS(46) = B(87)+B(611)\nIF (DO_JVS(47)) &\n! JVS(47) = Jac_FULL(7,269)\n  JVS(47) = B(1805)\nIF (DO_JVS(48)) &\n! JVS(48) = Jac_FULL(7,274)\n  JVS(48) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899)\nIF (DO_JVS(49)) &\n! JVS(49) = Jac_FULL(7,275)\n  JVS(49) = 0.9*B(883)\nIF (DO_JVS(50)) &\n! JVS(50) = Jac_FULL(7,276)\n  JVS(50) = 0.407*B(947)\nIF (DO_JVS(51)) &\n! JVS(51) = Jac_FULL(7,277)\n  JVS(51) = 0.9*B(879)\nIF (DO_JVS(52)) &\n! JVS(52) = Jac_FULL(7,280)\n  JVS(52) = B(913)\nIF (DO_JVS(53)) &\n! JVS(53) = Jac_FULL(7,281)\n  JVS(53) = 0.9*B(887)\nIF (DO_JVS(54)) &\n! JVS(54) = Jac_FULL(7,283)\n  JVS(54) = B(199)+B(627)\nIF (DO_JVS(55)) &\n! JVS(55) = Jac_FULL(7,287)\n  JVS(55) = 0.23*B(1240)\nIF (DO_JVS(56)) &\n! JVS(56) = Jac_FULL(7,290)\n  JVS(56) = 0.1*B(287)\nIF (DO_JVS(57)) &\n! JVS(57) = Jac_FULL(7,291)\n  JVS(57) = 0.9*B(891)\nIF (DO_JVS(58)) &\n! JVS(58) = Jac_FULL(7,296)\n  JVS(58) = 0.9*B(365)\nIF (DO_JVS(59)) &\n! JVS(59) = Jac_FULL(7,300)\n  JVS(59) = 0.9*B(351)\nIF (DO_JVS(60)) &\n! JVS(60) = Jac_FULL(7,306)\n  JVS(60) = 0.361*B(289)\nIF (DO_JVS(61)) &\n! JVS(61) = Jac_FULL(7,307)\n  JVS(61) = 0.5*B(322)\nIF (DO_JVS(62)) &\n! JVS(62) = Jac_FULL(7,308)\n  JVS(62) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299)\nIF (DO_JVS(63)) &\n! JVS(63) = Jac_FULL(7,310)\n  JVS(63) = B(1161)\nIF (DO_JVS(64)) &\n! JVS(64) = Jac_FULL(7,311)\n  JVS(64) = B(1163)\nIF (DO_JVS(65)) &\n! JVS(65) = Jac_FULL(7,312)\n  JVS(65) = B(691)\nIF (DO_JVS(66)) &\n! JVS(66) = Jac_FULL(7,313)\n  JVS(66) = 0.3*B(261)+0.9*B(353)\nIF (DO_JVS(67)) &\n! JVS(67) = Jac_FULL(7,315)\n  JVS(67) = 0.9*B(367)\nIF (DO_JVS(68)) &\n! JVS(68) = Jac_FULL(7,318)\n  JVS(68) = 0.645*B(359)\nIF (DO_JVS(69)) &\n! JVS(69) = Jac_FULL(7,319)\n  JVS(69) = 0.9*B(349)\nIF (DO_JVS(70)) &\n! JVS(70) = Jac_FULL(7,320)\n  JVS(70) = 0.9*B(355)\nIF (DO_JVS(71)) &\n! JVS(71) = Jac_FULL(7,321)\n  JVS(71) = 0.9*B(371)\nIF (DO_JVS(72)) &\n! JVS(72) = Jac_FULL(7,322)\n  JVS(72) = B(208)+0.43*B(283)+2*B(373)+B(375)\nIF (DO_JVS(73)) &\n! JVS(73) = Jac_FULL(7,323)\n  JVS(73) = 0.9*B(357)\nIF (DO_JVS(74)) &\n! JVS(74) = Jac_FULL(7,324)\n  JVS(74) = B(104)+2*B(346)+0.9*B(347)+0.9*B(350)+0.9*B(352)+0.9*B(354)+0.9*B(356)+0.9*B(358)+0.645*B(360)+0.645*B(362)&\n              &+0.9*B(364)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+2*B(374)+0.9*B(880)+0.9*B(884)+0.9*B(888)+0.9*B(892)&\n              &+2*B(896)+B(900)+B(914)+B(1162)+B(1164)+0.5*B(1324)+B(1396)\nIF (DO_JVS(75)) &\n! JVS(75) = Jac_FULL(7,328)\n  JVS(75) = 0.3*B(262)+0.9*B(348)+B(376)+0.75*B(894)+0.75*B(898)+0.7*B(1300)+B(1464)\nIF (DO_JVS(76)) &\n! JVS(76) = Jac_FULL(7,329)\n  JVS(76) = B(45)+B(692)+B(706)\nIF (DO_JVS(77)) &\n! JVS(77) = Jac_FULL(7,337)\n  JVS(77) = 0.44*B(246)+0.43*B(284)+0.44*B(303)+0.44*B(839)+B(1088)+B(1092)+0.429*B(1217)+0.5*B(1279)+0.5*B(1292)+0.5&\n              &*B(1325)+0.44*B(1408)+0.35*B(1433)\nIF (DO_JVS(78)) &\n! JVS(78) = Jac_FULL(7,340)\n  JVS(78) = B(612)+B(628)\nIF (DO_JVS(79)) &\n! JVS(79) = Jac_FULL(7,341)\n  JVS(79) = 0.1*B(288)+0.407*B(948)\nIF (DO_JVS(80)) &\n! JVS(80) = Jac_FULL(7,345)\n  JVS(80) = B(46)+B(88)+B(200)+0.361*B(290)+0.5*B(323)+0.22*B(343)+B(460)+B(688)+B(761)+B(850)+0.355*B(1010)+0.23&\n              &*B(1241)+0.75*B(1245)+0.097*B(1259)+0.41*B(1281)+B(1313)+B(1321)+B(1337)+B(1442)\nIF (DO_JVS(81)) &\n! JVS(81) = Jac_FULL(7,346)\n  JVS(81) = B(105)+B(209)+B(244)+B(752)+B(841)+B(1086)+B(1090)+0.429*B(1215)+B(1288)+B(1294)+2*B(1406)+B(1435)\nIF (DO_JVS(82)) &\n! JVS(82) = Jac_FULL(7,351)\n  JVS(82) = B(757)+B(846)+B(1298)\nIF (DO_JVS(83)) &\n! JVS(83) = Jac_FULL(8,8)\n  JVS(83) = 0\nIF (DO_JVS(84)) &\n! JVS(84) = Jac_FULL(8,45)\n  JVS(84) = B(936)\nIF (DO_JVS(85)) &\n! JVS(85) = Jac_FULL(8,103)\n  JVS(85) = B(935)\nIF (DO_JVS(86)) &\n! JVS(86) = Jac_FULL(9,9)\n  JVS(86) = 0\nIF (DO_JVS(87)) &\n! JVS(87) = Jac_FULL(9,42)\n  JVS(87) = 2*B(1583)\nIF (DO_JVS(88)) &\n! JVS(88) = Jac_FULL(9,44)\n  JVS(88) = 2*B(1577)\nIF (DO_JVS(89)) &\n! JVS(89) = Jac_FULL(9,55)\n  JVS(89) = 2*B(1580)\nIF (DO_JVS(90)) &\n! JVS(90) = Jac_FULL(9,73)\n  JVS(90) = B(1572)\nIF (DO_JVS(91)) &\n! JVS(91) = Jac_FULL(9,252)\n  JVS(91) = B(1585)\nIF (DO_JVS(92)) &\n! JVS(92) = Jac_FULL(9,330)\n  JVS(92) = B(1574)\nIF (DO_JVS(93)) &\n! JVS(93) = Jac_FULL(9,332)\n  JVS(93) = B(1587)\nIF (DO_JVS(94)) &\n! JVS(94) = Jac_FULL(10,10)\n  JVS(94) = 0\nIF (DO_JVS(95)) &\n! JVS(95) = Jac_FULL(10,42)\n  JVS(95) = 2*B(1584)\nIF (DO_JVS(96)) &\n! JVS(96) = Jac_FULL(10,44)\n  JVS(96) = 2*B(1578)\nIF (DO_JVS(97)) &\n! JVS(97) = Jac_FULL(10,55)\n  JVS(97) = 2*B(1581)\nIF (DO_JVS(98)) &\n! JVS(98) = Jac_FULL(10,73)\n  JVS(98) = B(1573)\nIF (DO_JVS(99)) &\n! JVS(99) = Jac_FULL(10,252)\n  JVS(99) = B(1586)\nIF (DO_JVS(100)) &\n! JVS(100) = Jac_FULL(10,330)\n  JVS(100) = B(1575)\nIF (DO_JVS(101)) &\n! JVS(101) = Jac_FULL(10,332)\n  JVS(101) = B(1588)\nIF (DO_JVS(102)) &\n! JVS(102) = Jac_FULL(11,11)\n  JVS(102) = 0\nIF (DO_JVS(103)) &\n! JVS(103) = Jac_FULL(11,13)\n  JVS(103) = B(1475)\nIF (DO_JVS(104)) &\n! JVS(104) = Jac_FULL(11,337)\n  JVS(104) = B(1476)\nIF (DO_JVS(105)) &\n! JVS(105) = Jac_FULL(12,12)\n  JVS(105) = 0\nIF (DO_JVS(106)) &\n! JVS(106) = Jac_FULL(12,13)\n  JVS(106) = B(1477)\nIF (DO_JVS(107)) &\n! JVS(107) = Jac_FULL(12,346)\n  JVS(107) = B(1478)\nIF (DO_JVS(108)) &\n! JVS(108) = Jac_FULL(13,13)\n  JVS(108) = -B(1475)-B(1477)\nIF (DO_JVS(109)) &\n! JVS(109) = Jac_FULL(13,143)\n  JVS(109) = B(1381)\nIF (DO_JVS(110)) &\n! JVS(110) = Jac_FULL(13,337)\n  JVS(110) = -B(1476)\nIF (DO_JVS(111)) &\n! JVS(111) = Jac_FULL(13,345)\n  JVS(111) = B(1382)\nIF (DO_JVS(112)) &\n! JVS(112) = Jac_FULL(13,346)\n  JVS(112) = -B(1478)\nIF (DO_JVS(113)) &\n! JVS(113) = Jac_FULL(14,14)\n  JVS(113) = 0\nIF (DO_JVS(114)) &\n! JVS(114) = Jac_FULL(14,276)\n  JVS(114) = B(949)+B(951)+B(953)+B(955)\nIF (DO_JVS(115)) &\n! JVS(115) = Jac_FULL(14,345)\n  JVS(115) = B(950)+B(952)+B(954)+B(956)\nIF (DO_JVS(116)) &\n! JVS(116) = Jac_FULL(15,15)\n  JVS(116) = 0\nIF (DO_JVS(117)) &\n! JVS(117) = Jac_FULL(15,276)\n  JVS(117) = B(1147)\nIF (DO_JVS(118)) &\n! JVS(118) = Jac_FULL(15,351)\n  JVS(118) = B(1148)\nIF (DO_JVS(119)) &\n! JVS(119) = Jac_FULL(16,16)\n  JVS(119) = 0\nIF (DO_JVS(120)) &\n! JVS(120) = Jac_FULL(16,18)\n  JVS(120) = B(1332)\nIF (DO_JVS(121)) &\n! JVS(121) = Jac_FULL(16,337)\n  JVS(121) = B(1333)\nIF (DO_JVS(122)) &\n! JVS(122) = Jac_FULL(17,17)\n  JVS(122) = 0\nIF (DO_JVS(123)) &\n! JVS(123) = Jac_FULL(17,18)\n  JVS(123) = B(1334)\nIF (DO_JVS(124)) &\n! JVS(124) = Jac_FULL(17,346)\n  JVS(124) = B(1335)\nIF (DO_JVS(125)) &\n! JVS(125) = Jac_FULL(18,18)\n  JVS(125) = -B(1332)-B(1334)\nIF (DO_JVS(126)) &\n! JVS(126) = Jac_FULL(18,19)\n  JVS(126) = B(1330)\nIF (DO_JVS(127)) &\n! JVS(127) = Jac_FULL(18,337)\n  JVS(127) = -B(1333)\nIF (DO_JVS(128)) &\n! JVS(128) = Jac_FULL(18,345)\n  JVS(128) = B(1331)\nIF (DO_JVS(129)) &\n! JVS(129) = Jac_FULL(18,346)\n  JVS(129) = -B(1335)\nIF (DO_JVS(130)) &\n! JVS(130) = Jac_FULL(19,19)\n  JVS(130) = -B(1330)\nIF (DO_JVS(131)) &\n! JVS(131) = Jac_FULL(19,345)\n  JVS(131) = -B(1331)\nIF (DO_JVS(132)) &\n! JVS(132) = Jac_FULL(20,20)\n  JVS(132) = 0\nIF (DO_JVS(133)) &\n! JVS(133) = Jac_FULL(20,22)\n  JVS(133) = B(1479)\nIF (DO_JVS(134)) &\n! JVS(134) = Jac_FULL(20,337)\n  JVS(134) = B(1480)\nIF (DO_JVS(135)) &\n! JVS(135) = Jac_FULL(21,21)\n  JVS(135) = 0\nIF (DO_JVS(136)) &\n! JVS(136) = Jac_FULL(21,22)\n  JVS(136) = B(1481)\nIF (DO_JVS(137)) &\n! JVS(137) = Jac_FULL(21,346)\n  JVS(137) = B(1482)\nIF (DO_JVS(138)) &\n! JVS(138) = Jac_FULL(22,22)\n  JVS(138) = -B(1479)-B(1481)\nIF (DO_JVS(139)) &\n! JVS(139) = Jac_FULL(22,82)\n  JVS(139) = B(1383)\nIF (DO_JVS(140)) &\n! JVS(140) = Jac_FULL(22,337)\n  JVS(140) = -B(1480)\nIF (DO_JVS(141)) &\n! JVS(141) = Jac_FULL(22,345)\n  JVS(141) = B(1384)\nIF (DO_JVS(142)) &\n! JVS(142) = Jac_FULL(22,346)\n  JVS(142) = -B(1482)\nIF (DO_JVS(143)) &\n! JVS(143) = Jac_FULL(23,23)\n  JVS(143) = 0\nIF (DO_JVS(144)) &\n! JVS(144) = Jac_FULL(23,24)\n  JVS(144) = B(1620)\nIF (DO_JVS(145)) &\n! JVS(145) = Jac_FULL(24,24)\n  JVS(145) = -B(340)-B(1620)\nIF (DO_JVS(146)) &\n! JVS(146) = Jac_FULL(24,187)\n  JVS(146) = 0.005*B(1015)+0.005*B(1017)+0.005*B(1023)\nIF (DO_JVS(147)) &\n! JVS(147) = Jac_FULL(24,192)\n  JVS(147) = 0.005*B(1019)+0.005*B(1021)+0.005*B(1025)\nIF (DO_JVS(148)) &\n! JVS(148) = Jac_FULL(24,199)\n  JVS(148) = 0.005*B(1029)\nIF (DO_JVS(149)) &\n! JVS(149) = Jac_FULL(24,209)\n  JVS(149) = 0.005*B(1027)\nIF (DO_JVS(150)) &\n! JVS(150) = Jac_FULL(24,345)\n  JVS(150) = -B(341)+0.005*B(1016)+0.005*B(1018)+0.005*B(1020)+0.005*B(1022)+0.005*B(1024)+0.005*B(1026)+0.005*B(1028)&\n               &+0.005*B(1030)\nIF (DO_JVS(151)) &\n! JVS(151) = Jac_FULL(25,25)\n  JVS(151) = 0\nIF (DO_JVS(152)) &\n! JVS(152) = Jac_FULL(25,27)\n  JVS(152) = B(1483)\nIF (DO_JVS(153)) &\n! JVS(153) = Jac_FULL(25,337)\n  JVS(153) = B(1484)\nIF (DO_JVS(154)) &\n! JVS(154) = Jac_FULL(26,26)\n  JVS(154) = 0\nIF (DO_JVS(155)) &\n! JVS(155) = Jac_FULL(26,27)\n  JVS(155) = B(1485)\nIF (DO_JVS(156)) &\n! JVS(156) = Jac_FULL(26,346)\n  JVS(156) = B(1486)\nIF (DO_JVS(157)) &\n! JVS(157) = Jac_FULL(27,27)\n  JVS(157) = -B(1483)-B(1485)\nIF (DO_JVS(158)) &\n! JVS(158) = Jac_FULL(27,101)\n  JVS(158) = B(1385)\nIF (DO_JVS(159)) &\n! JVS(159) = Jac_FULL(27,337)\n  JVS(159) = -B(1484)\nIF (DO_JVS(160)) &\n! JVS(160) = Jac_FULL(27,345)\n  JVS(160) = B(1386)\nIF (DO_JVS(161)) &\n! JVS(161) = Jac_FULL(27,346)\n  JVS(161) = -B(1486)\nIF (DO_JVS(162)) &\n! JVS(162) = Jac_FULL(28,28)\n  JVS(162) = 0\nIF (DO_JVS(163)) &\n! JVS(163) = Jac_FULL(28,94)\n  JVS(163) = 0.25*B(383)\nIF (DO_JVS(164)) &\n! JVS(164) = Jac_FULL(28,345)\n  JVS(164) = 0.25*B(384)\nIF (DO_JVS(165)) &\n! JVS(165) = Jac_FULL(29,29)\n  JVS(165) = 0\nIF (DO_JVS(166)) &\n! JVS(166) = Jac_FULL(29,166)\n  JVS(166) = B(8)\nIF (DO_JVS(167)) &\n! JVS(167) = Jac_FULL(29,341)\n  JVS(167) = B(9)\nIF (DO_JVS(168)) &\n! JVS(168) = Jac_FULL(29,348)\n  JVS(168) = B(10)\nIF (DO_JVS(169)) &\n! JVS(169) = Jac_FULL(30,30)\n  JVS(169) = 0\nIF (DO_JVS(170)) &\n! JVS(170) = Jac_FULL(30,115)\n  JVS(170) = 1.5*B(1626)\nIF (DO_JVS(171)) &\n! JVS(171) = Jac_FULL(30,270)\n  JVS(171) = B(1615)\nIF (DO_JVS(172)) &\n! JVS(172) = Jac_FULL(30,294)\n  JVS(172) = 1.5*B(1616)\nIF (DO_JVS(173)) &\n! JVS(173) = Jac_FULL(31,31)\n  JVS(173) = 0\nIF (DO_JVS(174)) &\n! JVS(174) = Jac_FULL(31,107)\n  JVS(174) = 0.8*B(1627)\nIF (DO_JVS(175)) &\n! JVS(175) = Jac_FULL(31,128)\n  JVS(175) = B(1619)\nIF (DO_JVS(176)) &\n! JVS(176) = Jac_FULL(31,151)\n  JVS(176) = B(1617)\nIF (DO_JVS(177)) &\n! JVS(177) = Jac_FULL(31,152)\n  JVS(177) = B(1618)\nIF (DO_JVS(178)) &\n! JVS(178) = Jac_FULL(31,215)\n  JVS(178) = B(1632)\nIF (DO_JVS(179)) &\n! JVS(179) = Jac_FULL(32,32)\n  JVS(179) = 0\nIF (DO_JVS(180)) &\n! JVS(180) = Jac_FULL(32,241)\n  JVS(180) = B(711)\nIF (DO_JVS(181)) &\n! JVS(181) = Jac_FULL(32,312)\n  JVS(181) = B(703)\nIF (DO_JVS(182)) &\n! JVS(182) = Jac_FULL(32,345)\n  JVS(182) = B(387)\nIF (DO_JVS(183)) &\n! JVS(183) = Jac_FULL(32,348)\n  JVS(183) = B(388)+B(704)+B(712)\nIF (DO_JVS(184)) &\n! JVS(184) = Jac_FULL(33,33)\n  JVS(184) = 0\nIF (DO_JVS(185)) &\n! JVS(185) = Jac_FULL(33,89)\n  JVS(185) = 2*B(23)\nIF (DO_JVS(186)) &\n! JVS(186) = Jac_FULL(33,345)\n  JVS(186) = 2*B(24)\nIF (DO_JVS(187)) &\n! JVS(187) = Jac_FULL(33,348)\n  JVS(187) = 2*B(25)\nIF (DO_JVS(188)) &\n! JVS(188) = Jac_FULL(34,34)\n  JVS(188) = 0\nIF (DO_JVS(189)) &\n! JVS(189) = Jac_FULL(34,45)\n  JVS(189) = B(936)\nIF (DO_JVS(190)) &\n! JVS(190) = Jac_FULL(34,56)\n  JVS(190) = B(755)\nIF (DO_JVS(191)) &\n! JVS(191) = Jac_FULL(34,57)\n  JVS(191) = B(844)\nIF (DO_JVS(192)) &\n! JVS(192) = Jac_FULL(34,63)\n  JVS(192) = B(1744)\nIF (DO_JVS(193)) &\n! JVS(193) = Jac_FULL(34,67)\n  JVS(193) = B(477)+B(479)\nIF (DO_JVS(194)) &\n! JVS(194) = Jac_FULL(34,70)\n  JVS(194) = B(1375)\nIF (DO_JVS(195)) &\n! JVS(195) = Jac_FULL(34,80)\n  JVS(195) = B(1741)\nIF (DO_JVS(196)) &\n! JVS(196) = Jac_FULL(34,83)\n  JVS(196) = B(941)+B(1758)\nIF (DO_JVS(197)) &\n! JVS(197) = Jac_FULL(34,90)\n  JVS(197) = B(1440)+B(1441)\nIF (DO_JVS(198)) &\n! JVS(198) = Jac_FULL(34,91)\n  JVS(198) = B(943)+B(1759)\nIF (DO_JVS(199)) &\n! JVS(199) = Jac_FULL(34,93)\n  JVS(199) = B(939)+B(1757)\nIF (DO_JVS(200)) &\n! JVS(200) = Jac_FULL(34,95)\n  JVS(200) = B(945)+B(1760)\nIF (DO_JVS(201)) &\n! JVS(201) = Jac_FULL(34,103)\n  JVS(201) = B(935)\nIF (DO_JVS(202)) &\n! JVS(202) = Jac_FULL(34,108)\n  JVS(202) = B(1651)\nIF (DO_JVS(203)) &\n! JVS(203) = Jac_FULL(34,110)\n  JVS(203) = 0.1*B(593)\nIF (DO_JVS(204)) &\n! JVS(204) = Jac_FULL(34,113)\n  JVS(204) = B(240)+B(241)\nIF (DO_JVS(205)) &\n! JVS(205) = Jac_FULL(34,114)\n  JVS(205) = B(299)+B(306)\nIF (DO_JVS(206)) &\n! JVS(206) = Jac_FULL(34,116)\n  JVS(206) = B(1356)+B(1687)\nIF (DO_JVS(207)) &\n! JVS(207) = Jac_FULL(34,121)\n  JVS(207) = B(1399)\nIF (DO_JVS(208)) &\n! JVS(208) = Jac_FULL(34,122)\n  JVS(208) = B(1411)+B(1412)\nIF (DO_JVS(209)) &\n! JVS(209) = Jac_FULL(34,124)\n  JVS(209) = 0.3*B(1806)\nIF (DO_JVS(210)) &\n! JVS(210) = Jac_FULL(34,126)\n  JVS(210) = B(166)+2*B(167)+B(1659)\nIF (DO_JVS(211)) &\n! JVS(211) = Jac_FULL(34,127)\n  JVS(211) = B(152)\nIF (DO_JVS(212)) &\n! JVS(212) = Jac_FULL(34,132)\n  JVS(212) = B(156)\nIF (DO_JVS(213)) &\n! JVS(213) = Jac_FULL(34,133)\n  JVS(213) = B(1085)\nIF (DO_JVS(214)) &\n! JVS(214) = Jac_FULL(34,135)\n  JVS(214) = B(1089)\nIF (DO_JVS(215)) &\n! JVS(215) = Jac_FULL(34,137)\n  JVS(215) = 0.5*B(743)\nIF (DO_JVS(216)) &\n! JVS(216) = Jac_FULL(34,138)\n  JVS(216) = 0.5*B(780)\nIF (DO_JVS(217)) &\n! JVS(217) = Jac_FULL(34,139)\n  JVS(217) = 0.3*B(1658)\nIF (DO_JVS(218)) &\n! JVS(218) = Jac_FULL(34,148)\n  JVS(218) = B(403)\nIF (DO_JVS(219)) &\n! JVS(219) = Jac_FULL(34,154)\n  JVS(219) = B(937)\nIF (DO_JVS(220)) &\n! JVS(220) = Jac_FULL(34,162)\n  JVS(220) = B(798)\nIF (DO_JVS(221)) &\n! JVS(221) = Jac_FULL(34,165)\n  JVS(221) = 2*B(138)\nIF (DO_JVS(222)) &\n! JVS(222) = Jac_FULL(34,170)\n  JVS(222) = B(673)\nIF (DO_JVS(223)) &\n! JVS(223) = Jac_FULL(34,171)\n  JVS(223) = B(1246)\nIF (DO_JVS(224)) &\n! JVS(224) = Jac_FULL(34,172)\n  JVS(224) = B(1252)\nIF (DO_JVS(225)) &\n! JVS(225) = Jac_FULL(34,176)\n  JVS(225) = B(772)\nIF (DO_JVS(226)) &\n! JVS(226) = Jac_FULL(34,177)\n  JVS(226) = B(836)\nIF (DO_JVS(227)) &\n! JVS(227) = Jac_FULL(34,178)\n  JVS(227) = B(128)\nIF (DO_JVS(228)) &\n! JVS(228) = Jac_FULL(34,180)\n  JVS(228) = B(1220)\nIF (DO_JVS(229)) &\n! JVS(229) = Jac_FULL(34,182)\n  JVS(229) = B(1214)\nIF (DO_JVS(230)) &\n! JVS(230) = Jac_FULL(34,184)\n  JVS(230) = B(1302)\nIF (DO_JVS(231)) &\n! JVS(231) = Jac_FULL(34,189)\n  JVS(231) = 0.89*B(1352)\nIF (DO_JVS(232)) &\n! JVS(232) = Jac_FULL(34,190)\n  JVS(232) = B(1123)+B(1125)\nIF (DO_JVS(233)) &\n! JVS(233) = Jac_FULL(34,193)\n  JVS(233) = B(865)\nIF (DO_JVS(234)) &\n! JVS(234) = Jac_FULL(34,196)\n  JVS(234) = B(1686)\nIF (DO_JVS(235)) &\n! JVS(235) = Jac_FULL(34,197)\n  JVS(235) = B(162)\nIF (DO_JVS(236)) &\n! JVS(236) = Jac_FULL(34,205)\n  JVS(236) = B(1116)+B(1118)\nIF (DO_JVS(237)) &\n! JVS(237) = Jac_FULL(34,206)\n  JVS(237) = B(1131)+B(1133)\nIF (DO_JVS(238)) &\n! JVS(238) = Jac_FULL(34,207)\n  JVS(238) = B(1137)+B(1139)\nIF (DO_JVS(239)) &\n! JVS(239) = Jac_FULL(34,211)\n  JVS(239) = 0.5*B(818)\nIF (DO_JVS(240)) &\n! JVS(240) = Jac_FULL(34,212)\n  JVS(240) = 0.942*B(148)\nIF (DO_JVS(241)) &\n! JVS(241) = Jac_FULL(34,213)\n  JVS(241) = B(300)+0.15*B(302)\nIF (DO_JVS(242)) &\n! JVS(242) = Jac_FULL(34,217)\n  JVS(242) = 0.02*B(475)\nIF (DO_JVS(243)) &\n! JVS(243) = Jac_FULL(34,223)\n  JVS(243) = B(1032)+B(1034)\nIF (DO_JVS(244)) &\n! JVS(244) = Jac_FULL(34,224)\n  JVS(244) = B(1039)+B(1041)\nIF (DO_JVS(245)) &\n! JVS(245) = Jac_FULL(34,226)\n  JVS(245) = B(1206)+B(1208)\nIF (DO_JVS(246)) &\n! JVS(246) = Jac_FULL(34,232)\n  JVS(246) = B(1046)+B(1048)\nIF (DO_JVS(247)) &\n! JVS(247) = Jac_FULL(34,234)\n  JVS(247) = 0.995*B(1366)\nIF (DO_JVS(248)) &\n! JVS(248) = Jac_FULL(34,235)\n  JVS(248) = 0.15*B(1432)+B(1434)\nIF (DO_JVS(249)) &\n! JVS(249) = Jac_FULL(34,236)\n  JVS(249) = B(1443)+B(1445)\nIF (DO_JVS(250)) &\n! JVS(250) = Jac_FULL(34,239)\n  JVS(250) = B(71)\nIF (DO_JVS(251)) &\n! JVS(251) = Jac_FULL(34,240)\n  JVS(251) = B(1405)+0.15*B(1407)\nIF (DO_JVS(252)) &\n! JVS(252) = Jac_FULL(34,241)\n  JVS(252) = B(707)+B(709)\nIF (DO_JVS(253)) &\n! JVS(253) = Jac_FULL(34,243)\n  JVS(253) = B(1080)+B(1082)\nIF (DO_JVS(254)) &\n! JVS(254) = Jac_FULL(34,245)\n  JVS(254) = B(527)\nIF (DO_JVS(255)) &\n! JVS(255) = Jac_FULL(34,246)\n  JVS(255) = B(243)+0.15*B(245)\nIF (DO_JVS(256)) &\n! JVS(256) = Jac_FULL(34,249)\n  JVS(256) = B(175)\nIF (DO_JVS(257)) &\n! JVS(257) = Jac_FULL(34,250)\n  JVS(257) = B(191)\nIF (DO_JVS(258)) &\n! JVS(258) = Jac_FULL(34,253)\n  JVS(258) = B(1283)+B(1285)\nIF (DO_JVS(259)) &\n! JVS(259) = Jac_FULL(34,254)\n  JVS(259) = B(1272)+B(1274)\nIF (DO_JVS(260)) &\n! JVS(260) = Jac_FULL(34,257)\n  JVS(260) = 0.15*B(749)+B(751)\nIF (DO_JVS(261)) &\n! JVS(261) = Jac_FULL(34,259)\n  JVS(261) = 0.13*B(1278)+B(1287)\nIF (DO_JVS(262)) &\n! JVS(262) = Jac_FULL(34,260)\n  JVS(262) = B(122)\nIF (DO_JVS(263)) &\n! JVS(263) = Jac_FULL(34,263)\n  JVS(263) = B(1389)\nIF (DO_JVS(264)) &\n! JVS(264) = Jac_FULL(34,269)\n  JVS(264) = B(1457)\nIF (DO_JVS(265)) &\n! JVS(265) = Jac_FULL(34,271)\n  JVS(265) = B(1202)+B(1204)\nIF (DO_JVS(266)) &\n! JVS(266) = Jac_FULL(34,272)\n  JVS(266) = 0.84*B(824)\nIF (DO_JVS(267)) &\n! JVS(267) = Jac_FULL(34,273)\n  JVS(267) = B(790)\nIF (DO_JVS(268)) &\n! JVS(268) = Jac_FULL(34,274)\n  JVS(268) = 0.15*B(838)+B(840)\nIF (DO_JVS(269)) &\n! JVS(269) = Jac_FULL(34,275)\n  JVS(269) = 0.75*B(776)\nIF (DO_JVS(270)) &\n! JVS(270) = Jac_FULL(34,277)\n  JVS(270) = 0.75*B(737)\nIF (DO_JVS(271)) &\n! JVS(271) = Jac_FULL(34,278)\n  JVS(271) = 0.84*B(764)\nIF (DO_JVS(272)) &\n! JVS(272) = Jac_FULL(34,280)\n  JVS(272) = B(901)\nIF (DO_JVS(273)) &\n! JVS(273) = Jac_FULL(34,281)\n  JVS(273) = 0.75*B(802)\nIF (DO_JVS(274)) &\n! JVS(274) = Jac_FULL(34,285)\n  JVS(274) = B(1072)+B(1074)\nIF (DO_JVS(275)) &\n! JVS(275) = Jac_FULL(34,286)\n  JVS(275) = B(1066)+B(1068)\nIF (DO_JVS(276)) &\n! JVS(276) = Jac_FULL(34,289)\n  JVS(276) = B(903)\nIF (DO_JVS(277)) &\n! JVS(277) = Jac_FULL(34,291)\n  JVS(277) = B(855)\nIF (DO_JVS(278)) &\n! JVS(278) = Jac_FULL(34,293)\n  JVS(278) = B(1143)+B(1145)\nIF (DO_JVS(279)) &\n! JVS(279) = Jac_FULL(34,296)\n  JVS(279) = B(108)+B(619)\nIF (DO_JVS(280)) &\n! JVS(280) = Jac_FULL(34,297)\n  JVS(280) = B(543)\nIF (DO_JVS(281)) &\n! JVS(281) = Jac_FULL(34,300)\n  JVS(281) = B(171)+B(173)\nIF (DO_JVS(282)) &\n! JVS(282) = Jac_FULL(34,302)\n  JVS(282) = 0.69*B(1236)\nIF (DO_JVS(283)) &\n! JVS(283) = Jac_FULL(34,304)\n  JVS(283) = B(993)+B(995)+B(997)+B(999)\nIF (DO_JVS(284)) &\n! JVS(284) = Jac_FULL(34,305)\n  JVS(284) = B(985)+B(987)+B(989)+B(991)\nIF (DO_JVS(285)) &\n! JVS(285) = Jac_FULL(34,308)\n  JVS(285) = 0.13*B(1291)+B(1293)\nIF (DO_JVS(286)) &\n! JVS(286) = Jac_FULL(34,310)\n  JVS(286) = B(1169)+B(1171)\nIF (DO_JVS(287)) &\n! JVS(287) = Jac_FULL(34,311)\n  JVS(287) = B(1173)+B(1175)\nIF (DO_JVS(288)) &\n! JVS(288) = Jac_FULL(34,312)\n  JVS(288) = B(693)+B(695)\nIF (DO_JVS(289)) &\n! JVS(289) = Jac_FULL(34,313)\n  JVS(289) = B(183)\nIF (DO_JVS(290)) &\n! JVS(290) = Jac_FULL(34,315)\n  JVS(290) = B(112)+B(621)\nIF (DO_JVS(291)) &\n! JVS(291) = Jac_FULL(34,317)\n  JVS(291) = B(545)\nIF (DO_JVS(292)) &\n! JVS(292) = Jac_FULL(34,318)\n  JVS(292) = B(181)\nIF (DO_JVS(293)) &\n! JVS(293) = Jac_FULL(34,319)\n  JVS(293) = B(177)+B(179)\nIF (DO_JVS(294)) &\n! JVS(294) = Jac_FULL(34,320)\n  JVS(294) = B(185)+B(236)\nIF (DO_JVS(295)) &\n! JVS(295) = Jac_FULL(34,321)\n  JVS(295) = B(118)\nIF (DO_JVS(296)) &\n! JVS(296) = Jac_FULL(34,322)\n  JVS(296) = B(208)+0.15*B(283)\nIF (DO_JVS(297)) &\n! JVS(297) = Jac_FULL(34,323)\n  JVS(297) = B(187)\nIF (DO_JVS(298)) &\n! JVS(298) = Jac_FULL(34,324)\n  JVS(298) = B(104)+0.13*B(1324)\nIF (DO_JVS(299)) &\n! JVS(299) = Jac_FULL(34,327)\n  JVS(299) = B(67)\nIF (DO_JVS(300)) &\n! JVS(300) = Jac_FULL(34,328)\n  JVS(300) = B(49)+B(613)\nIF (DO_JVS(301)) &\n! JVS(301) = Jac_FULL(34,335)\n  JVS(301) = B(696)+B(710)+B(1444)\nIF (DO_JVS(302)) &\n! JVS(302) = Jac_FULL(34,337)\n  JVS(302) = B(42)+0.15*B(246)+0.15*B(284)+0.15*B(303)+0.02*B(476)+B(575)+0.15*B(750)+0.15*B(839)+0.13*B(1279)+0.13&\n               &*B(1292)+0.13*B(1325)+0.15*B(1408)+0.15*B(1433)\nIF (DO_JVS(303)) &\n! JVS(303) = Jac_FULL(34,340)\n  JVS(303) = B(576)+0.1*B(594)+B(614)+B(620)+B(622)\nIF (DO_JVS(304)) &\n! JVS(304) = Jac_FULL(34,345)\n  JVS(304) = B(36)+B(68)+B(72)+B(153)+2*B(168)+B(242)+B(307)+B(404)+B(528)+B(544)+B(546)+B(674)+0.5*B(744)+B(773)+0.5&\n               &*B(781)+B(799)+0.5*B(819)+B(837)+B(866)+B(938)+B(940)+B(942)+B(944)+B(946)+0.69*B(1237)+B(1303)+B(1357)&\n               &+B(1376)+B(1413)+B(1442)+B(1458)\nIF (DO_JVS(305)) &\n! JVS(305) = Jac_FULL(34,346)\n  JVS(305) = B(43)+B(50)+B(105)+B(109)+B(113)+B(119)+B(123)+B(129)+2*B(139)+0.942*B(149)+B(157)+B(163)+B(172)+B(174)&\n               &+B(176)+B(178)+B(180)+B(182)+B(184)+B(186)+B(188)+B(192)+B(209)+B(237)+B(244)+B(301)+B(480)+B(694)+B(708)&\n               &+0.75*B(738)+B(752)+0.84*B(765)+0.75*B(777)+B(791)+0.75*B(803)+0.84*B(825)+B(841)+B(856)+B(902)+B(904)&\n               &+B(986)+B(988)+B(990)+B(992)+B(994)+B(996)+B(998)+B(1000)+B(1033)+B(1035)+B(1040)+B(1042)+B(1047)+B(1049)&\n               &+B(1067)+B(1069)+B(1073)+B(1075)+B(1081)+B(1083)+B(1086)+B(1090)+B(1117)+B(1119)+B(1124)+B(1126)+B(1132)&\n               &+B(1134)+B(1138)+B(1140)+B(1144)+B(1146)+B(1170)+B(1172)+B(1174)+B(1176)+B(1203)+B(1205)+B(1207)+B(1209)&\n               &+B(1215)+B(1221)+B(1247)+B(1253)+B(1273)+B(1275)+B(1284)+B(1286)+B(1288)+B(1294)+0.89*B(1353)+0.995*B(1367)&\n               &+B(1390)+B(1400)+B(1406)+B(1435)+B(1446)+B(1747)\nIF (DO_JVS(306)) &\n! JVS(306) = Jac_FULL(35,35)\n  JVS(306) = 0\nIF (DO_JVS(307)) &\n! JVS(307) = Jac_FULL(35,42)\n  JVS(307) = 4*B(1582)+4*B(1583)+4*B(1584)\nIF (DO_JVS(308)) &\n! JVS(308) = Jac_FULL(35,44)\n  JVS(308) = 2*B(1576)+2*B(1577)+2*B(1578)\nIF (DO_JVS(309)) &\n! JVS(309) = Jac_FULL(35,49)\n  JVS(309) = 0.1*B(519)\nIF (DO_JVS(310)) &\n! JVS(310) = Jac_FULL(35,50)\n  JVS(310) = 0.05*B(521)\nIF (DO_JVS(311)) &\n! JVS(311) = Jac_FULL(35,55)\n  JVS(311) = 3*B(1579)+3*B(1580)+3*B(1581)\nIF (DO_JVS(312)) &\n! JVS(312) = Jac_FULL(35,63)\n  JVS(312) = B(441)\nIF (DO_JVS(313)) &\n! JVS(313) = Jac_FULL(35,64)\n  JVS(313) = B(1755)\nIF (DO_JVS(314)) &\n! JVS(314) = Jac_FULL(35,65)\n  JVS(314) = B(1753)\nIF (DO_JVS(315)) &\n! JVS(315) = Jac_FULL(35,68)\n  JVS(315) = B(457)\nIF (DO_JVS(316)) &\n! JVS(316) = Jac_FULL(35,69)\n  JVS(316) = B(126)\nIF (DO_JVS(317)) &\n! JVS(317) = Jac_FULL(35,76)\n  JVS(317) = B(537)+2*B(1705)\nIF (DO_JVS(318)) &\n! JVS(318) = Jac_FULL(35,87)\n  JVS(318) = 0.19*B(503)\nIF (DO_JVS(319)) &\n! JVS(319) = Jac_FULL(35,94)\n  JVS(319) = B(385)\nIF (DO_JVS(320)) &\n! JVS(320) = Jac_FULL(35,96)\n  JVS(320) = 2*B(1728)\nIF (DO_JVS(321)) &\n! JVS(321) = Jac_FULL(35,105)\n  JVS(321) = 0.56*B(497)\nIF (DO_JVS(322)) &\n! JVS(322) = Jac_FULL(35,109)\n  JVS(322) = B(1358)\nIF (DO_JVS(323)) &\n! JVS(323) = Jac_FULL(35,120)\n  JVS(323) = B(535)\nIF (DO_JVS(324)) &\n! JVS(324) = Jac_FULL(35,140)\n  JVS(324) = B(144)+B(146)\nIF (DO_JVS(325)) &\n! JVS(325) = Jac_FULL(35,142)\n  JVS(325) = B(193)\nIF (DO_JVS(326)) &\n! JVS(326) = Jac_FULL(35,149)\n  JVS(326) = B(1346)\nIF (DO_JVS(327)) &\n! JVS(327) = Jac_FULL(35,154)\n  JVS(327) = B(1625)\nIF (DO_JVS(328)) &\n! JVS(328) = Jac_FULL(35,158)\n  JVS(328) = 1.5*B(1420)\nIF (DO_JVS(329)) &\n! JVS(329) = Jac_FULL(35,163)\n  JVS(329) = B(834)\nIF (DO_JVS(330)) &\n! JVS(330) = Jac_FULL(35,166)\n  JVS(330) = B(8)\nIF (DO_JVS(331)) &\n! JVS(331) = Jac_FULL(35,167)\n  JVS(331) = B(721)+B(725)\nIF (DO_JVS(332)) &\n! JVS(332) = Jac_FULL(35,168)\n  JVS(332) = B(1630)\nIF (DO_JVS(333)) &\n! JVS(333) = Jac_FULL(35,175)\n  JVS(333) = B(1629)\nIF (DO_JVS(334)) &\n! JVS(334) = Jac_FULL(35,179)\n  JVS(334) = B(1)\nIF (DO_JVS(335)) &\n! JVS(335) = Jac_FULL(35,181)\n  JVS(335) = 0.44*B(495)\nIF (DO_JVS(336)) &\n! JVS(336) = Jac_FULL(35,183)\n  JVS(336) = B(344)\nIF (DO_JVS(337)) &\n! JVS(337) = Jac_FULL(35,186)\n  JVS(337) = B(1633)\nIF (DO_JVS(338)) &\n! JVS(338) = Jac_FULL(35,191)\n  JVS(338) = B(717)+B(733)\nIF (DO_JVS(339)) &\n! JVS(339) = Jac_FULL(35,195)\n  JVS(339) = 1.258*B(1416)\nIF (DO_JVS(340)) &\n! JVS(340) = Jac_FULL(35,197)\n  JVS(340) = B(164)\nIF (DO_JVS(341)) &\n! JVS(341) = Jac_FULL(35,200)\n  JVS(341) = B(1350)\nIF (DO_JVS(342)) &\n! JVS(342) = Jac_FULL(35,201)\n  JVS(342) = B(1472)\nIF (DO_JVS(343)) &\n! JVS(343) = Jac_FULL(35,202)\n  JVS(343) = B(1424)+1.5*B(1426)\nIF (DO_JVS(344)) &\n! JVS(344) = Jac_FULL(35,203)\n  JVS(344) = B(1453)+B(1455)\nIF (DO_JVS(345)) &\n! JVS(345) = Jac_FULL(35,204)\n  JVS(345) = B(1430)\nIF (DO_JVS(346)) &\n! JVS(346) = Jac_FULL(35,211)\n  JVS(346) = 0.5*B(820)+B(822)\nIF (DO_JVS(347)) &\n! JVS(347) = Jac_FULL(35,213)\n  JVS(347) = B(297)+B(304)\nIF (DO_JVS(348)) &\n! JVS(348) = Jac_FULL(35,214)\n  JVS(348) = B(1496)+B(1498)+B(1500)+B(1501)+B(1503)\nIF (DO_JVS(349)) &\n! JVS(349) = Jac_FULL(35,216)\n  JVS(349) = B(1638)\nIF (DO_JVS(350)) &\n! JVS(350) = Jac_FULL(35,217)\n  JVS(350) = B(473)\nIF (DO_JVS(351)) &\n! JVS(351) = Jac_FULL(35,218)\n  JVS(351) = B(1511)\nIF (DO_JVS(352)) &\n! JVS(352) = Jac_FULL(35,219)\n  JVS(352) = B(719)+B(729)\nIF (DO_JVS(353)) &\n! JVS(353) = Jac_FULL(35,220)\n  JVS(353) = B(1340)+B(1342)\nIF (DO_JVS(354)) &\n! JVS(354) = Jac_FULL(35,221)\n  JVS(354) = B(1467)\nIF (DO_JVS(355)) &\n! JVS(355) = Jac_FULL(35,222)\n  JVS(355) = B(1634)\nIF (DO_JVS(356)) &\n! JVS(356) = Jac_FULL(35,225)\n  JVS(356) = B(745)\nIF (DO_JVS(357)) &\n! JVS(357) = Jac_FULL(35,228)\n  JVS(357) = B(443)\nIF (DO_JVS(358)) &\n! JVS(358) = Jac_FULL(35,229)\n  JVS(358) = B(861)+B(863)\nIF (DO_JVS(359)) &\n! JVS(359) = Jac_FULL(35,234)\n  JVS(359) = B(1368)\nIF (DO_JVS(360)) &\n! JVS(360) = Jac_FULL(35,235)\n  JVS(360) = B(1436)\nIF (DO_JVS(361)) &\n! JVS(361) = Jac_FULL(35,236)\n  JVS(361) = B(1447)\nIF (DO_JVS(362)) &\n! JVS(362) = Jac_FULL(35,237)\n  JVS(362) = B(814)+2*B(816)\nIF (DO_JVS(363)) &\n! JVS(363) = Jac_FULL(35,240)\n  JVS(363) = B(1409)\nIF (DO_JVS(364)) &\n! JVS(364) = Jac_FULL(35,242)\n  JVS(364) = B(929)+2*B(931)+B(1624)\nIF (DO_JVS(365)) &\n! JVS(365) = Jac_FULL(35,246)\n  JVS(365) = B(238)\nIF (DO_JVS(366)) &\n! JVS(366) = Jac_FULL(35,248)\n  JVS(366) = B(1639)\nIF (DO_JVS(367)) &\n! JVS(367) = Jac_FULL(35,251)\n  JVS(367) = B(1622)\nIF (DO_JVS(368)) &\n! JVS(368) = Jac_FULL(35,252)\n  JVS(368) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597)\nIF (DO_JVS(369)) &\n! JVS(369) = Jac_FULL(35,255)\n  JVS(369) = B(808)+2*B(810)\nIF (DO_JVS(370)) &\n! JVS(370) = Jac_FULL(35,256)\n  JVS(370) = 2*B(933)+B(1623)\nIF (DO_JVS(371)) &\n! JVS(371) = Jac_FULL(35,257)\n  JVS(371) = B(753)+B(756)\nIF (DO_JVS(372)) &\n! JVS(372) = Jac_FULL(35,261)\n  JVS(372) = B(1318)\nIF (DO_JVS(373)) &\n! JVS(373) = Jac_FULL(35,262)\n  JVS(373) = B(873)+B(875)\nIF (DO_JVS(374)) &\n! JVS(374) = Jac_FULL(35,263)\n  JVS(374) = B(1391)\nIF (DO_JVS(375)) &\n! JVS(375) = Jac_FULL(35,264)\n  JVS(375) = B(469)\nIF (DO_JVS(376)) &\n! JVS(376) = Jac_FULL(35,266)\n  JVS(376) = B(1636)\nIF (DO_JVS(377)) &\n! JVS(377) = Jac_FULL(35,267)\n  JVS(377) = B(1631)\nIF (DO_JVS(378)) &\n! JVS(378) = Jac_FULL(35,268)\n  JVS(378) = B(1628)\nIF (DO_JVS(379)) &\n! JVS(379) = Jac_FULL(35,270)\n  JVS(379) = B(316)\nIF (DO_JVS(380)) &\n! JVS(380) = Jac_FULL(35,272)\n  JVS(380) = B(828)\nIF (DO_JVS(381)) &\n! JVS(381) = Jac_FULL(35,273)\n  JVS(381) = B(794)\nIF (DO_JVS(382)) &\n! JVS(382) = Jac_FULL(35,274)\n  JVS(382) = B(842)+B(845)\nIF (DO_JVS(383)) &\n! JVS(383) = Jac_FULL(35,275)\n  JVS(383) = B(778)\nIF (DO_JVS(384)) &\n! JVS(384) = Jac_FULL(35,276)\n  JVS(384) = B(947)+B(1147)\nIF (DO_JVS(385)) &\n! JVS(385) = Jac_FULL(35,277)\n  JVS(385) = B(739)\nIF (DO_JVS(386)) &\n! JVS(386) = Jac_FULL(35,278)\n  JVS(386) = B(766)\nIF (DO_JVS(387)) &\n! JVS(387) = Jac_FULL(35,280)\n  JVS(387) = B(917)\nIF (DO_JVS(388)) &\n! JVS(388) = Jac_FULL(35,281)\n  JVS(388) = B(804)\nIF (DO_JVS(389)) &\n! JVS(389) = Jac_FULL(35,284)\n  JVS(389) = 0.4*B(659)+0.88*B(667)\nIF (DO_JVS(390)) &\n! JVS(390) = Jac_FULL(35,289)\n  JVS(390) = B(919)\nIF (DO_JVS(391)) &\n! JVS(391) = Jac_FULL(35,290)\n  JVS(391) = B(287)+B(310)\nIF (DO_JVS(392)) &\n! JVS(392) = Jac_FULL(35,291)\n  JVS(392) = B(857)\nIF (DO_JVS(393)) &\n! JVS(393) = Jac_FULL(35,292)\n  JVS(393) = B(251)\nIF (DO_JVS(394)) &\n! JVS(394) = Jac_FULL(35,294)\n  JVS(394) = B(318)\nIF (DO_JVS(395)) &\n! JVS(395) = Jac_FULL(35,297)\n  JVS(395) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537)\nIF (DO_JVS(396)) &\n! JVS(396) = Jac_FULL(35,298)\n  JVS(396) = B(210)\nIF (DO_JVS(397)) &\n! JVS(397) = Jac_FULL(35,299)\n  JVS(397) = 2*B(1635)\nIF (DO_JVS(398)) &\n! JVS(398) = Jac_FULL(35,302)\n  JVS(398) = B(1621)\nIF (DO_JVS(399)) &\n! JVS(399) = Jac_FULL(35,303)\n  JVS(399) = B(1637)\nIF (DO_JVS(400)) &\n! JVS(400) = Jac_FULL(35,306)\n  JVS(400) = B(295)\nIF (DO_JVS(401)) &\n! JVS(401) = Jac_FULL(35,308)\n  JVS(401) = B(1297)\nIF (DO_JVS(402)) &\n! JVS(402) = Jac_FULL(35,309)\n  JVS(402) = B(1232)+B(1234)\nIF (DO_JVS(403)) &\n! JVS(403) = Jac_FULL(35,310)\n  JVS(403) = B(1165)\nIF (DO_JVS(404)) &\n! JVS(404) = Jac_FULL(35,311)\n  JVS(404) = B(1167)\nIF (DO_JVS(405)) &\n! JVS(405) = Jac_FULL(35,312)\n  JVS(405) = B(701)\nIF (DO_JVS(406)) &\n! JVS(406) = Jac_FULL(35,314)\n  JVS(406) = B(1226)\nIF (DO_JVS(407)) &\n! JVS(407) = Jac_FULL(35,316)\n  JVS(407) = B(405)+B(1549)+B(1551)+B(1553)+B(1555)+B(1557)+B(1559)+B(1561)+B(1692)\nIF (DO_JVS(408)) &\n! JVS(408) = Jac_FULL(35,317)\n  JVS(408) = B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525)\nIF (DO_JVS(409)) &\n! JVS(409) = Jac_FULL(35,325)\n  JVS(409) = B(93)+B(485)\nIF (DO_JVS(410)) &\n! JVS(410) = Jac_FULL(35,326)\n  JVS(410) = B(97)\nIF (DO_JVS(411)) &\n! JVS(411) = Jac_FULL(35,328)\n  JVS(411) = B(34)+B(529)+B(1487)\nIF (DO_JVS(412)) &\n! JVS(412) = Jac_FULL(35,330)\n  JVS(412) = B(1574)+B(1575)+B(1607)+B(1609)+B(1611)+B(1613)+B(1726)\nIF (DO_JVS(413)) &\n! JVS(413) = Jac_FULL(35,332)\n  JVS(413) = B(1587)+B(1588)+B(1599)+B(1601)+B(1603)+B(1605)\nIF (DO_JVS(414)) &\n! JVS(414) = Jac_FULL(35,333)\n  JVS(414) = B(1539)+B(1541)+B(1543)+B(1545)+B(1547)+B(1709)\nIF (DO_JVS(415)) &\n! JVS(415) = Jac_FULL(35,334)\n  JVS(415) = B(433)+B(439)+B(442)+B(444)+B(455)+0.66*B(487)+0.6*B(489)+0.44*B(496)+0.56*B(498)+0.19*B(504)+0.1*B(520)&\n               &+0.05*B(522)\nIF (DO_JVS(416)) &\n! JVS(416) = Jac_FULL(35,335)\n  JVS(416) = 2*B(91)+B(165)+B(239)+B(298)+2*B(461)+B(754)+B(843)+B(1410)+B(1437)+B(1456)+0.5*B(1492)\nIF (DO_JVS(417)) &\n! JVS(417) = Jac_FULL(35,336)\n  JVS(417) = B(434)+B(1497)\nIF (DO_JVS(418)) &\n! JVS(418) = Jac_FULL(35,337)\n  JVS(418) = B(30)+B(78)+B(453)\nIF (DO_JVS(419)) &\n! JVS(419) = Jac_FULL(35,338)\n  JVS(419) = B(530)+B(531)+B(533)+2*B(577)+2*B(585)+2*B(586)+2*B(597)+2*B(599)+0.88*B(668)\nIF (DO_JVS(420)) &\n! JVS(420) = Jac_FULL(35,339)\n  JVS(420) = 0.66*B(488)+B(1499)+B(1512)+B(1516)+B(1532)+B(1540)+B(1552)\nIF (DO_JVS(421)) &\n! JVS(421) = Jac_FULL(35,341)\n  JVS(421) = B(2)+B(9)+B(17)+B(28)+B(31)+B(35)+B(147)+B(288)+2*B(447)+B(456)+B(474)+B(702)+B(726)+B(730)+B(734)+B(809)&\n               &+B(815)+0.5*B(821)+B(862)+B(874)+B(930)+B(948)+B(1227)+B(1233)+B(1343)+B(1359)+B(1425)+B(1454)+B(1468)&\n               &+B(1473)\nIF (DO_JVS(422)) &\n! JVS(422) = Jac_FULL(35,343)\n  JVS(422) = B(406)+B(407)+2*B(448)+B(451)+B(454)+B(458)+2*B(462)+2*B(463)+B(470)+2*B(483)+B(486)+2*B(578)\nIF (DO_JVS(423)) &\n! JVS(423) = Jac_FULL(35,344)\n  JVS(423) = B(1504)+B(1526)+B(1530)+B(1546)+B(1556)+B(1598)+B(1606)+B(1614)\nIF (DO_JVS(424)) &\n! JVS(424) = Jac_FULL(35,345)\n  JVS(424) = B(29)+B(82)+B(409)+B(452)+B(532)+B(534)+B(536)+B(538)\nIF (DO_JVS(425)) &\n! JVS(425) = Jac_FULL(35,347)\n  JVS(425) = 2*B(397)+2*B(398)+B(410)+2*B(484)+2*B(598)+2*B(600)+0.4*B(660)\nIF (DO_JVS(426)) &\n! JVS(426) = Jac_FULL(35,348)\n  JVS(426) = B(3)+B(10)+B(18)+B(1548)+B(1562)\nIF (DO_JVS(427)) &\n! JVS(427) = Jac_FULL(35,349)\n  JVS(427) = B(1520)+B(1534)+B(1558)+B(1592)+B(1600)+B(1608)\nIF (DO_JVS(428)) &\n! JVS(428) = Jac_FULL(35,350)\n  JVS(428) = B(1522)+B(1536)+B(1560)+B(1594)+B(1602)+B(1610)\nIF (DO_JVS(429)) &\n! JVS(429) = Jac_FULL(35,351)\n  JVS(429) = B(79)+B(83)+2*B(92)+B(94)+B(98)+B(127)+B(145)+B(194)+B(211)+B(252)+B(296)+B(305)+B(311)+B(317)+B(319)&\n               &+B(345)+2*B(377)+B(386)+2*B(464)+B(718)+B(720)+B(722)+B(740)+B(746)+B(757)+B(767)+B(779)+B(795)+B(805)+2&\n               &*B(811)+2*B(817)+B(823)+B(829)+B(835)+B(846)+B(858)+B(864)+B(876)+B(918)+B(920)+2*B(932)+2*B(934)+B(1148)&\n               &+B(1166)+B(1168)+B(1235)+B(1298)+B(1319)+B(1341)+B(1347)+B(1351)+B(1369)+B(1392)+1.258*B(1417)+1.5*B(1421)&\n               &+1.5*B(1427)+B(1431)+B(1448)+B(1488)+B(1493)+B(1494)+B(1495)+2*B(1654)\nIF (DO_JVS(430)) &\n! JVS(430) = Jac_FULL(35,352)\n  JVS(430) = B(408)+0.6*B(490)+B(1518)+B(1538)+B(1542)+B(1550)\nIF (DO_JVS(431)) &\n! JVS(431) = Jac_FULL(35,353)\n  JVS(431) = B(1502)+B(1524)+B(1528)+B(1544)+B(1554)+B(1596)+B(1604)+B(1612)\nIF (DO_JVS(432)) &\n! JVS(432) = Jac_FULL(36,36)\n  JVS(432) = 0\nIF (DO_JVS(433)) &\n! JVS(433) = Jac_FULL(36,60)\n  JVS(433) = 0.364*B(1362)\nIF (DO_JVS(434)) &\n! JVS(434) = Jac_FULL(36,68)\n  JVS(434) = B(457)+B(1745)\nIF (DO_JVS(435)) &\n! JVS(435) = Jac_FULL(36,75)\n  JVS(435) = B(609)\nIF (DO_JVS(436)) &\n! JVS(436) = Jac_FULL(36,79)\n  JVS(436) = B(607)\nIF (DO_JVS(437)) &\n! JVS(437) = Jac_FULL(36,82)\n  JVS(437) = 0.27*B(1383)\nIF (DO_JVS(438)) &\n! JVS(438) = Jac_FULL(36,101)\n  JVS(438) = 0.3*B(1385)\nIF (DO_JVS(439)) &\n! JVS(439) = Jac_FULL(36,107)\n  JVS(439) = B(1304)\nIF (DO_JVS(440)) &\n! JVS(440) = Jac_FULL(36,113)\n  JVS(440) = B(241)\nIF (DO_JVS(441)) &\n! JVS(441) = Jac_FULL(36,114)\n  JVS(441) = B(306)\nIF (DO_JVS(442)) &\n! JVS(442) = Jac_FULL(36,119)\n  JVS(442) = B(1013)\nIF (DO_JVS(443)) &\n! JVS(443) = Jac_FULL(36,122)\n  JVS(443) = 2*B(1412)\nIF (DO_JVS(444)) &\n! JVS(444) = Jac_FULL(36,124)\n  JVS(444) = B(206)\nIF (DO_JVS(445)) &\n! JVS(445) = Jac_FULL(36,126)\n  JVS(445) = B(167)\nIF (DO_JVS(446)) &\n! JVS(446) = Jac_FULL(36,127)\n  JVS(446) = B(152)\nIF (DO_JVS(447)) &\n! JVS(447) = Jac_FULL(36,132)\n  JVS(447) = B(156)+B(158)\nIF (DO_JVS(448)) &\n! JVS(448) = Jac_FULL(36,139)\n  JVS(448) = B(102)\nIF (DO_JVS(449)) &\n! JVS(449) = Jac_FULL(36,143)\n  JVS(449) = 0.2*B(1381)\nIF (DO_JVS(450)) &\n! JVS(450) = Jac_FULL(36,144)\n  JVS(450) = 0.23*B(1007)+B(1782)\nIF (DO_JVS(451)) &\n! JVS(451) = Jac_FULL(36,146)\n  JVS(451) = B(1661)\nIF (DO_JVS(452)) &\n! JVS(452) = Jac_FULL(36,147)\n  JVS(452) = 0.888*B(1308)+B(1796)\nIF (DO_JVS(453)) &\n! JVS(453) = Jac_FULL(36,150)\n  JVS(453) = 0.42*B(1005)+B(1781)\nIF (DO_JVS(454)) &\n! JVS(454) = Jac_FULL(36,153)\n  JVS(454) = 0.84*B(1268)\nIF (DO_JVS(455)) &\n! JVS(455) = Jac_FULL(36,159)\n  JVS(455) = 0.488*B(1280)\nIF (DO_JVS(456)) &\n! JVS(456) = Jac_FULL(36,167)\n  JVS(456) = 0.15*B(725)\nIF (DO_JVS(457)) &\n! JVS(457) = Jac_FULL(36,181)\n  JVS(457) = B(605)\nIF (DO_JVS(458)) &\n! JVS(458) = Jac_FULL(36,182)\n  JVS(458) = 0.33*B(1214)+0.33*B(1216)\nIF (DO_JVS(459)) &\n! JVS(459) = Jac_FULL(36,184)\n  JVS(459) = 0.25*B(1302)\nIF (DO_JVS(460)) &\n! JVS(460) = Jac_FULL(36,185)\n  JVS(460) = B(1260)+0.571*B(1768)\nIF (DO_JVS(461)) &\n! JVS(461) = Jac_FULL(36,187)\n  JVS(461) = 0.25*B(1023)\nIF (DO_JVS(462)) &\n! JVS(462) = Jac_FULL(36,191)\n  JVS(462) = 0.1*B(733)\nIF (DO_JVS(463)) &\n! JVS(463) = Jac_FULL(36,192)\n  JVS(463) = 0.33*B(1025)\nIF (DO_JVS(464)) &\n! JVS(464) = Jac_FULL(36,194)\n  JVS(464) = 0.75*B(1258)+0.875*B(1769)\nIF (DO_JVS(465)) &\n! JVS(465) = Jac_FULL(36,197)\n  JVS(465) = B(160)+B(162)\nIF (DO_JVS(466)) &\n! JVS(466) = Jac_FULL(36,199)\n  JVS(466) = 0.054*B(1029)\nIF (DO_JVS(467)) &\n! JVS(467) = Jac_FULL(36,200)\n  JVS(467) = 0.12*B(1348)\nIF (DO_JVS(468)) &\n! JVS(468) = Jac_FULL(36,201)\n  JVS(468) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474)\nIF (DO_JVS(469)) &\n! JVS(469) = Jac_FULL(36,204)\n  JVS(469) = B(1802)\nIF (DO_JVS(470)) &\n! JVS(470) = Jac_FULL(36,208)\n  JVS(470) = 2*B(1266)+B(1765)\nIF (DO_JVS(471)) &\n! JVS(471) = Jac_FULL(36,209)\n  JVS(471) = 0.036*B(1027)\nIF (DO_JVS(472)) &\n! JVS(472) = Jac_FULL(36,210)\n  JVS(472) = B(1326)+B(1762)\nIF (DO_JVS(473)) &\n! JVS(473) = Jac_FULL(36,215)\n  JVS(473) = 1.5*B(1011)\nIF (DO_JVS(474)) &\n! JVS(474) = Jac_FULL(36,216)\n  JVS(474) = 0.25*B(1244)+B(1774)\nIF (DO_JVS(475)) &\n! JVS(475) = Jac_FULL(36,220)\n  JVS(475) = 0.18*B(1342)\nIF (DO_JVS(476)) &\n! JVS(476) = Jac_FULL(36,221)\n  JVS(476) = 0.26*B(1465)+0.5*B(1467)\nIF (DO_JVS(477)) &\n! JVS(477) = Jac_FULL(36,225)\n  JVS(477) = B(1808)\nIF (DO_JVS(478)) &\n! JVS(478) = Jac_FULL(36,227)\n  JVS(478) = B(1264)+0.5*B(1766)\nIF (DO_JVS(479)) &\n! JVS(479) = Jac_FULL(36,230)\n  JVS(479) = 0.45*B(1001)+0.888*B(1779)\nIF (DO_JVS(480)) &\n! JVS(480) = Jac_FULL(36,231)\n  JVS(480) = 0.37*B(1003)+0.818*B(1780)\nIF (DO_JVS(481)) &\n! JVS(481) = Jac_FULL(36,233)\n  JVS(481) = 0.7*B(1660)\nIF (DO_JVS(482)) &\n! JVS(482) = Jac_FULL(36,238)\n  JVS(482) = 0.638*B(1009)\nIF (DO_JVS(483)) &\n! JVS(483) = Jac_FULL(36,243)\n  JVS(483) = 0.52*B(1078)+0.8*B(1082)+2*B(1084)\nIF (DO_JVS(484)) &\n! JVS(484) = Jac_FULL(36,248)\n  JVS(484) = B(1773)\nIF (DO_JVS(485)) &\n! JVS(485) = Jac_FULL(36,253)\n  JVS(485) = 0.507*B(1276)+B(1282)+0.86*B(1283)\nIF (DO_JVS(486)) &\n! JVS(486) = Jac_FULL(36,255)\n  JVS(486) = B(1817)\nIF (DO_JVS(487)) &\n! JVS(487) = Jac_FULL(36,258)\n  JVS(487) = B(1306)+B(1792)+0.163*B(1793)\nIF (DO_JVS(488)) &\n! JVS(488) = Jac_FULL(36,259)\n  JVS(488) = 0.325*B(1278)+0.65*B(1287)\nIF (DO_JVS(489)) &\n! JVS(489) = Jac_FULL(36,261)\n  JVS(489) = B(1749)\nIF (DO_JVS(490)) &\n! JVS(490) = Jac_FULL(36,266)\n  JVS(490) = B(1314)+B(1800)\nIF (DO_JVS(491)) &\n! JVS(491) = Jac_FULL(36,267)\n  JVS(491) = 0.6*B(1111)+0.55*B(1786)\nIF (DO_JVS(492)) &\n! JVS(492) = Jac_FULL(36,268)\n  JVS(492) = 0.6*B(1109)+0.55*B(1783)\nIF (DO_JVS(493)) &\n! JVS(493) = Jac_FULL(36,269)\n  JVS(493) = 0.15*B(1457)+0.15*B(1459)+B(1805)\nIF (DO_JVS(494)) &\n! JVS(494) = Jac_FULL(36,270)\n  JVS(494) = 2*B(312)+2*B(316)+2*B(1667)+2*B(1668)+B(1669)\nIF (DO_JVS(495)) &\n! JVS(495) = Jac_FULL(36,276)\n  JVS(495) = 0.407*B(947)+0.6*B(953)+0.9*B(955)\nIF (DO_JVS(496)) &\n! JVS(496) = Jac_FULL(36,285)\n  JVS(496) = B(1071)+0.2*B(1072)+0.13*B(1076)\nIF (DO_JVS(497)) &\n! JVS(497) = Jac_FULL(36,286)\n  JVS(497) = B(1063)+0.13*B(1064)+0.2*B(1066)\nIF (DO_JVS(498)) &\n! JVS(498) = Jac_FULL(36,287)\n  JVS(498) = 0.77*B(1240)+0.77*B(1770)\nIF (DO_JVS(499)) &\n! JVS(499) = Jac_FULL(36,290)\n  JVS(499) = 0.56*B(287)\nIF (DO_JVS(500)) &\n! JVS(500) = Jac_FULL(36,294)\n  JVS(500) = B(314)+B(318)+B(1670)\nIF (DO_JVS(501)) &\n! JVS(501) = Jac_FULL(36,295)\n  JVS(501) = B(1664)\nIF (DO_JVS(502)) &\n! JVS(502) = Jac_FULL(36,298)\n  JVS(502) = B(1662)\nIF (DO_JVS(503)) &\n! JVS(503) = Jac_FULL(36,301)\n  JVS(503) = 0.539*B(1212)+0.839*B(1790)\nIF (DO_JVS(504)) &\n! JVS(504) = Jac_FULL(36,304)\n  JVS(504) = 0.9*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999)\nIF (DO_JVS(505)) &\n! JVS(505) = Jac_FULL(36,305)\n  JVS(505) = 0.6*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991)\nIF (DO_JVS(506)) &\n! JVS(506) = Jac_FULL(36,306)\n  JVS(506) = 0.505*B(289)+B(291)+B(1666)\nIF (DO_JVS(507)) &\n! JVS(507) = Jac_FULL(36,307)\n  JVS(507) = 0.5*B(322)\nIF (DO_JVS(508)) &\n! JVS(508) = Jac_FULL(36,309)\n  JVS(508) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1674)\nIF (DO_JVS(509)) &\n! JVS(509) = Jac_FULL(36,314)\n  JVS(509) = 0.28*B(1226)+B(1671)+B(1672)\nIF (DO_JVS(510)) &\n! JVS(510) = Jac_FULL(36,325)\n  JVS(510) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)+B(1648)\nIF (DO_JVS(511)) &\n! JVS(511) = Jac_FULL(36,326)\n  JVS(511) = 0.05*B(95)+0.88*B(1656)+B(1657)\nIF (DO_JVS(512)) &\n! JVS(512) = Jac_FULL(36,328)\n  JVS(512) = 0.5*B(980)+0.5*B(984)\nIF (DO_JVS(513)) &\n! JVS(513) = Jac_FULL(36,337)\n  JVS(513) = B(159)+B(161)+0.13*B(1065)+0.13*B(1077)+0.52*B(1079)+0.33*B(1217)+0.507*B(1277)+0.325*B(1279)\nIF (DO_JVS(514)) &\n! JVS(514) = Jac_FULL(36,340)\n  JVS(514) = B(566)+B(606)+B(608)+B(610)\nIF (DO_JVS(515)) &\n! JVS(515) = Jac_FULL(36,341)\n  JVS(515) = 0.56*B(288)+0.15*B(726)+0.1*B(734)+0.407*B(948)+0.28*B(1227)+0.12*B(1233)+0.18*B(1343)+0.5*B(1468)+0.5&\n               &*B(1473)\nIF (DO_JVS(516)) &\n! JVS(516) = Jac_FULL(36,342)\n  JVS(516) = B(414)\nIF (DO_JVS(517)) &\n! JVS(517) = Jac_FULL(36,343)\n  JVS(517) = B(458)+B(486)\nIF (DO_JVS(518)) &\n! JVS(518) = Jac_FULL(36,345)\n  JVS(518) = B(64)+0.05*B(96)+B(103)+B(153)+B(168)+B(207)+B(242)+0.505*B(290)+B(292)+B(307)+2*B(313)+B(315)+0.5*B(323)&\n               &+0.6*B(954)+0.9*B(956)+0.45*B(1002)+0.37*B(1004)+0.42*B(1006)+0.23*B(1008)+0.638*B(1010)+1.5*B(1012)+B(1014)&\n               &+0.25*B(1024)+0.33*B(1026)+0.036*B(1028)+0.054*B(1030)+0.6*B(1110)+0.6*B(1112)+0.539*B(1213)+0.036*B(1229)&\n               &+0.77*B(1241)+0.25*B(1245)+0.75*B(1259)+B(1261)+B(1265)+2*B(1267)+0.84*B(1269)+0.488*B(1281)+0.25*B(1303)&\n               &+B(1305)+B(1307)+0.888*B(1309)+B(1315)+B(1327)+0.12*B(1349)+0.364*B(1363)+0.2*B(1382)+0.27*B(1384)+0.3&\n               &*B(1386)+2*B(1413)+0.15*B(1458)+0.26*B(1466)+0.25*B(1471)\nIF (DO_JVS(519)) &\n! JVS(519) = Jac_FULL(36,346)\n  JVS(519) = B(157)+B(163)+0.55*B(992)+0.55*B(1000)+0.2*B(1067)+0.2*B(1073)+0.8*B(1083)+0.33*B(1215)+0.86*B(1284)+0.65&\n               &*B(1288)\nIF (DO_JVS(520)) &\n! JVS(520) = Jac_FULL(36,351)\n  JVS(520) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460)\nIF (DO_JVS(521)) &\n! JVS(521) = Jac_FULL(37,37)\n  JVS(521) = 0\nIF (DO_JVS(522)) &\n! JVS(522) = Jac_FULL(37,241)\n  JVS(522) = B(705)\nIF (DO_JVS(523)) &\n! JVS(523) = Jac_FULL(37,312)\n  JVS(523) = B(691)\nIF (DO_JVS(524)) &\n! JVS(524) = Jac_FULL(37,329)\n  JVS(524) = B(45)+B(692)+B(706)\nIF (DO_JVS(525)) &\n! JVS(525) = Jac_FULL(37,345)\n  JVS(525) = B(46)\nIF (DO_JVS(526)) &\n! JVS(526) = Jac_FULL(38,38)\n  JVS(526) = 0\nIF (DO_JVS(527)) &\n! JVS(527) = Jac_FULL(38,89)\n  JVS(527) = 2*B(23)\nIF (DO_JVS(528)) &\n! JVS(528) = Jac_FULL(38,179)\n  JVS(528) = B(1)\nIF (DO_JVS(529)) &\n! JVS(529) = Jac_FULL(38,241)\n  JVS(529) = B(711)\nIF (DO_JVS(530)) &\n! JVS(530) = Jac_FULL(38,264)\n  JVS(530) = B(15)\nIF (DO_JVS(531)) &\n! JVS(531) = Jac_FULL(38,312)\n  JVS(531) = B(703)\nIF (DO_JVS(532)) &\n! JVS(532) = Jac_FULL(38,316)\n  JVS(532) = B(1561)\nIF (DO_JVS(533)) &\n! JVS(533) = Jac_FULL(38,333)\n  JVS(533) = B(1547)\nIF (DO_JVS(534)) &\n! JVS(534) = Jac_FULL(38,341)\n  JVS(534) = B(2)+B(17)\nIF (DO_JVS(535)) &\n! JVS(535) = Jac_FULL(38,345)\n  JVS(535) = 2*B(24)+B(387)\nIF (DO_JVS(536)) &\n! JVS(536) = Jac_FULL(38,348)\n  JVS(536) = B(3)+B(16)+B(18)+B(19)+2*B(25)+B(388)+B(704)+B(712)+B(1548)+B(1562)\nIF (DO_JVS(537)) &\n! JVS(537) = Jac_FULL(39,39)\n  JVS(537) = 0\nIF (DO_JVS(538)) &\n! JVS(538) = Jac_FULL(39,228)\n  JVS(538) = B(47)+B(443)+B(563)\nIF (DO_JVS(539)) &\n! JVS(539) = Jac_FULL(39,334)\n  JVS(539) = B(444)\nIF (DO_JVS(540)) &\n! JVS(540) = Jac_FULL(39,340)\n  JVS(540) = B(564)\nIF (DO_JVS(541)) &\n! JVS(541) = Jac_FULL(39,345)\n  JVS(541) = B(48)\nIF (DO_JVS(542)) &\n! JVS(542) = Jac_FULL(40,40)\n  JVS(542) = 0\nIF (DO_JVS(543)) &\n! JVS(543) = Jac_FULL(40,241)\n  JVS(543) = B(713)\nIF (DO_JVS(544)) &\n! JVS(544) = Jac_FULL(40,276)\n  JVS(544) = 0.013*B(947)\nIF (DO_JVS(545)) &\n! JVS(545) = Jac_FULL(40,312)\n  JVS(545) = 0.06*B(697)+0.06*B(699)\nIF (DO_JVS(546)) &\n! JVS(546) = Jac_FULL(40,314)\n  JVS(546) = 0.045*B(1226)\nIF (DO_JVS(547)) &\n! JVS(547) = Jac_FULL(40,336)\n  JVS(547) = 0.06*B(698)+0.06*B(700)+B(714)\nIF (DO_JVS(548)) &\n! JVS(548) = Jac_FULL(40,337)\n  JVS(548) = B(44)\nIF (DO_JVS(549)) &\n! JVS(549) = Jac_FULL(40,341)\n  JVS(549) = 0.013*B(948)+0.045*B(1227)\nIF (DO_JVS(550)) &\n! JVS(550) = Jac_FULL(40,345)\n  JVS(550) = B(37)\nIF (DO_JVS(551)) &\n! JVS(551) = Jac_FULL(41,41)\n  JVS(551) = -B(1489)\nIF (DO_JVS(552)) &\n! JVS(552) = Jac_FULL(41,345)\n  JVS(552) = -B(1490)\nIF (DO_JVS(553)) &\n! JVS(553) = Jac_FULL(42,42)\n  JVS(553) = -B(664)-B(1582)-B(1583)-B(1584)-B(1737)\nIF (DO_JVS(554)) &\n! JVS(554) = Jac_FULL(42,96)\n  JVS(554) = B(663)\nIF (DO_JVS(555)) &\n! JVS(555) = Jac_FULL(43,43)\n  JVS(555) = -B(553)-B(1710)\nIF (DO_JVS(556)) &\n! JVS(556) = Jac_FULL(43,345)\n  JVS(556) = -B(554)\nIF (DO_JVS(557)) &\n! JVS(557) = Jac_FULL(44,44)\n  JVS(557) = -B(684)-B(1576)-B(1577)-B(1578)-B(1732)\nIF (DO_JVS(558)) &\n! JVS(558) = Jac_FULL(44,284)\n  JVS(558) = 0.6*B(683)\nIF (DO_JVS(559)) &\n! JVS(559) = Jac_FULL(45,45)\n  JVS(559) = -B(936)\nIF (DO_JVS(560)) &\n! JVS(560) = Jac_FULL(45,154)\n  JVS(560) = B(1625)\nIF (DO_JVS(561)) &\n! JVS(561) = Jac_FULL(45,242)\n  JVS(561) = B(1624)\nIF (DO_JVS(562)) &\n! JVS(562) = Jac_FULL(45,256)\n  JVS(562) = B(1623)\nIF (DO_JVS(563)) &\n! JVS(563) = Jac_FULL(46,46)\n  JVS(563) = -0.79*B(493)-B(1711)\nIF (DO_JVS(564)) &\n! JVS(564) = Jac_FULL(46,334)\n  JVS(564) = -0.79*B(494)\nIF (DO_JVS(565)) &\n! JVS(565) = Jac_FULL(47,47)\n  JVS(565) = -0.9*B(505)-B(1712)\nIF (DO_JVS(566)) &\n! JVS(566) = Jac_FULL(47,334)\n  JVS(566) = -0.9*B(506)\nIF (DO_JVS(567)) &\n! JVS(567) = Jac_FULL(48,48)\n  JVS(567) = -0.86*B(507)-B(1713)\nIF (DO_JVS(568)) &\n! JVS(568) = Jac_FULL(48,334)\n  JVS(568) = -0.86*B(508)\nIF (DO_JVS(569)) &\n! JVS(569) = Jac_FULL(49,49)\n  JVS(569) = -0.9*B(519)-B(1714)\nIF (DO_JVS(570)) &\n! JVS(570) = Jac_FULL(49,334)\n  JVS(570) = -0.9*B(520)\nIF (DO_JVS(571)) &\n! JVS(571) = Jac_FULL(50,50)\n  JVS(571) = -0.9*B(521)-B(1715)\nIF (DO_JVS(572)) &\n! JVS(572) = Jac_FULL(50,334)\n  JVS(572) = -0.9*B(522)\nIF (DO_JVS(573)) &\n! JVS(573) = Jac_FULL(51,51)\n  JVS(573) = -0.86*B(523)-B(1716)\nIF (DO_JVS(574)) &\n! JVS(574) = Jac_FULL(51,334)\n  JVS(574) = -0.86*B(524)\nIF (DO_JVS(575)) &\n! JVS(575) = Jac_FULL(52,52)\n  JVS(575) = -B(685)-B(1733)\nIF (DO_JVS(576)) &\n! JVS(576) = Jac_FULL(52,345)\n  JVS(576) = -B(686)\nIF (DO_JVS(577)) &\n! JVS(577) = Jac_FULL(53,53)\n  JVS(577) = -0.45*B(511)-B(1721)\nIF (DO_JVS(578)) &\n! JVS(578) = Jac_FULL(53,334)\n  JVS(578) = -0.45*B(512)\nIF (DO_JVS(579)) &\n! JVS(579) = Jac_FULL(54,54)\n  JVS(579) = -0.75*B(525)-B(1723)\nIF (DO_JVS(580)) &\n! JVS(580) = Jac_FULL(54,334)\n  JVS(580) = -0.75*B(526)\nIF (DO_JVS(581)) &\n! JVS(581) = Jac_FULL(55,55)\n  JVS(581) = -B(1579)-B(1580)-B(1581)-B(1738)\nIF (DO_JVS(582)) &\n! JVS(582) = Jac_FULL(55,96)\n  JVS(582) = B(661)\nIF (DO_JVS(583)) &\n! JVS(583) = Jac_FULL(55,284)\n  JVS(583) = B(662)\nIF (DO_JVS(584)) &\n! JVS(584) = Jac_FULL(56,56)\n  JVS(584) = -B(755)\nIF (DO_JVS(585)) &\n! JVS(585) = Jac_FULL(56,257)\n  JVS(585) = B(753)\nIF (DO_JVS(586)) &\n! JVS(586) = Jac_FULL(56,335)\n  JVS(586) = B(754)\nIF (DO_JVS(587)) &\n! JVS(587) = Jac_FULL(57,57)\n  JVS(587) = -B(844)\nIF (DO_JVS(588)) &\n! JVS(588) = Jac_FULL(57,274)\n  JVS(588) = B(842)\nIF (DO_JVS(589)) &\n! JVS(589) = Jac_FULL(57,335)\n  JVS(589) = B(843)\nIF (DO_JVS(590)) &\n! JVS(590) = Jac_FULL(58,58)\n  JVS(590) = -B(1397)\nIF (DO_JVS(591)) &\n! JVS(591) = Jac_FULL(58,200)\n  JVS(591) = 0.15*B(1348)\nIF (DO_JVS(592)) &\n! JVS(592) = Jac_FULL(58,345)\n  JVS(592) = 0.15*B(1349)-B(1398)\nIF (DO_JVS(593)) &\n! JVS(593) = Jac_FULL(59,59)\n  JVS(593) = -B(1695)\nIF (DO_JVS(594)) &\n! JVS(594) = Jac_FULL(59,335)\n  JVS(594) = B(423)\nIF (DO_JVS(595)) &\n! JVS(595) = Jac_FULL(59,342)\n  JVS(595) = B(424)\nIF (DO_JVS(596)) &\n! JVS(596) = Jac_FULL(60,60)\n  JVS(596) = -B(1362)\nIF (DO_JVS(597)) &\n! JVS(597) = Jac_FULL(60,345)\n  JVS(597) = -B(1363)\nIF (DO_JVS(598)) &\n! JVS(598) = Jac_FULL(61,61)\n  JVS(598) = -0.65*B(509)-B(1722)\nIF (DO_JVS(599)) &\n! JVS(599) = Jac_FULL(61,334)\n  JVS(599) = -0.65*B(510)\nIF (DO_JVS(600)) &\n! JVS(600) = Jac_FULL(62,62)\n  JVS(600) = -2*B(645)-B(1729)\nIF (DO_JVS(601)) &\n! JVS(601) = Jac_FULL(62,331)\n  JVS(601) = B(643)\nIF (DO_JVS(602)) &\n! JVS(602) = Jac_FULL(62,346)\n  JVS(602) = B(644)\nIF (DO_JVS(603)) &\n! JVS(603) = Jac_FULL(63,63)\n  JVS(603) = -B(441)-B(1744)\nIF (DO_JVS(604)) &\n! JVS(604) = Jac_FULL(63,67)\n  JVS(604) = B(481)\nIF (DO_JVS(605)) &\n! JVS(605) = Jac_FULL(63,334)\n  JVS(605) = -B(442)\nIF (DO_JVS(606)) &\n! JVS(606) = Jac_FULL(63,335)\n  JVS(606) = B(482)\nIF (DO_JVS(607)) &\n! JVS(607) = Jac_FULL(64,64)\n  JVS(607) = -B(1755)-B(1756)\nIF (DO_JVS(608)) &\n! JVS(608) = Jac_FULL(64,179)\n  JVS(608) = B(6)\nIF (DO_JVS(609)) &\n! JVS(609) = Jac_FULL(64,327)\n  JVS(609) = B(7)\nIF (DO_JVS(610)) &\n! JVS(610) = Jac_FULL(64,351)\n  JVS(610) = B(1494)\nIF (DO_JVS(611)) &\n! JVS(611) = Jac_FULL(65,65)\n  JVS(611) = -B(1753)-B(1754)\nIF (DO_JVS(612)) &\n! JVS(612) = Jac_FULL(65,166)\n  JVS(612) = B(13)\nIF (DO_JVS(613)) &\n! JVS(613) = Jac_FULL(65,327)\n  JVS(613) = B(14)\nIF (DO_JVS(614)) &\n! JVS(614) = Jac_FULL(65,351)\n  JVS(614) = B(1495)\nIF (DO_JVS(615)) &\n! JVS(615) = Jac_FULL(66,66)\n  JVS(615) = -B(760)-B(1810)\nIF (DO_JVS(616)) &\n! JVS(616) = Jac_FULL(66,257)\n  JVS(616) = 0.15*B(749)+0.25*B(893)\nIF (DO_JVS(617)) &\n! JVS(617) = Jac_FULL(66,328)\n  JVS(617) = 0.25*B(894)\nIF (DO_JVS(618)) &\n! JVS(618) = Jac_FULL(66,337)\n  JVS(618) = 0.15*B(750)\nIF (DO_JVS(619)) &\n! JVS(619) = Jac_FULL(66,345)\n  JVS(619) = -B(761)\nIF (DO_JVS(620)) &\n! JVS(620) = Jac_FULL(67,67)\n  JVS(620) = -B(477)-B(479)-B(481)\nIF (DO_JVS(621)) &\n! JVS(621) = Jac_FULL(67,335)\n  JVS(621) = -B(482)\nIF (DO_JVS(622)) &\n! JVS(622) = Jac_FULL(67,346)\n  JVS(622) = -B(480)+B(1747)\nIF (DO_JVS(623)) &\n! JVS(623) = Jac_FULL(68,68)\n  JVS(623) = -B(457)-B(459)-B(1745)\nIF (DO_JVS(624)) &\n! JVS(624) = Jac_FULL(68,343)\n  JVS(624) = -B(458)\nIF (DO_JVS(625)) &\n! JVS(625) = Jac_FULL(68,345)\n  JVS(625) = -B(460)\nIF (DO_JVS(626)) &\n! JVS(626) = Jac_FULL(69,69)\n  JVS(626) = -B(124)-B(126)\nIF (DO_JVS(627)) &\n! JVS(627) = Jac_FULL(69,345)\n  JVS(627) = -B(125)\nIF (DO_JVS(628)) &\n! JVS(628) = Jac_FULL(69,351)\n  JVS(628) = -B(127)\nIF (DO_JVS(629)) &\n! JVS(629) = Jac_FULL(70,70)\n  JVS(629) = -B(1375)\nIF (DO_JVS(630)) &\n! JVS(630) = Jac_FULL(70,234)\n  JVS(630) = 0.005*B(1366)\nIF (DO_JVS(631)) &\n! JVS(631) = Jac_FULL(70,345)\n  JVS(631) = -B(1376)\nIF (DO_JVS(632)) &\n! JVS(632) = Jac_FULL(70,346)\n  JVS(632) = 0.005*B(1367)\nIF (DO_JVS(633)) &\n! JVS(633) = Jac_FULL(71,71)\n  JVS(633) = -B(1438)-B(1803)\nIF (DO_JVS(634)) &\n! JVS(634) = Jac_FULL(71,235)\n  JVS(634) = 0.65*B(1432)\nIF (DO_JVS(635)) &\n! JVS(635) = Jac_FULL(71,337)\n  JVS(635) = 0.65*B(1433)\nIF (DO_JVS(636)) &\n! JVS(636) = Jac_FULL(71,345)\n  JVS(636) = -B(1439)\nIF (DO_JVS(637)) &\n! JVS(637) = Jac_FULL(72,72)\n  JVS(637) = -B(308)\nIF (DO_JVS(638)) &\n! JVS(638) = Jac_FULL(72,213)\n  JVS(638) = 0.56*B(302)\nIF (DO_JVS(639)) &\n! JVS(639) = Jac_FULL(72,337)\n  JVS(639) = 0.56*B(303)\nIF (DO_JVS(640)) &\n! JVS(640) = Jac_FULL(72,345)\n  JVS(640) = -B(309)\nIF (DO_JVS(641)) &\n! JVS(641) = Jac_FULL(73,73)\n  JVS(641) = -B(675)-B(1571)-B(1572)-B(1573)\nIF (DO_JVS(642)) &\n! JVS(642) = Jac_FULL(73,331)\n  JVS(642) = B(671)\nIF (DO_JVS(643)) &\n! JVS(643) = Jac_FULL(73,337)\n  JVS(643) = B(672)\nIF (DO_JVS(644)) &\n! JVS(644) = Jac_FULL(73,345)\n  JVS(644) = -B(676)\nIF (DO_JVS(645)) &\n! JVS(645) = Jac_FULL(74,74)\n  JVS(645) = -B(758)-B(1809)\nIF (DO_JVS(646)) &\n! JVS(646) = Jac_FULL(74,257)\n  JVS(646) = 0.41*B(749)\nIF (DO_JVS(647)) &\n! JVS(647) = Jac_FULL(74,337)\n  JVS(647) = 0.41*B(750)\nIF (DO_JVS(648)) &\n! JVS(648) = Jac_FULL(74,345)\n  JVS(648) = -B(759)\nIF (DO_JVS(649)) &\n! JVS(649) = Jac_FULL(75,75)\n  JVS(649) = -B(551)-B(609)\nIF (DO_JVS(650)) &\n! JVS(650) = Jac_FULL(75,340)\n  JVS(650) = -B(610)\nIF (DO_JVS(651)) &\n! JVS(651) = Jac_FULL(75,345)\n  JVS(651) = -B(552)\nIF (DO_JVS(652)) &\n! JVS(652) = Jac_FULL(76,76)\n  JVS(652) = -B(537)-B(592)-B(1705)\nIF (DO_JVS(653)) &\n! JVS(653) = Jac_FULL(76,338)\n  JVS(653) = B(591)\nIF (DO_JVS(654)) &\n! JVS(654) = Jac_FULL(76,345)\n  JVS(654) = -B(538)\nIF (DO_JVS(655)) &\n! JVS(655) = Jac_FULL(77,77)\n  JVS(655) = -B(1739)\nIF (DO_JVS(656)) &\n! JVS(656) = Jac_FULL(77,252)\n  JVS(656) = B(1591)+B(1593)\nIF (DO_JVS(657)) &\n! JVS(657) = Jac_FULL(77,330)\n  JVS(657) = B(1607)+B(1609)\nIF (DO_JVS(658)) &\n! JVS(658) = Jac_FULL(77,332)\n  JVS(658) = B(1599)+B(1601)\nIF (DO_JVS(659)) &\n! JVS(659) = Jac_FULL(77,349)\n  JVS(659) = B(1592)+B(1600)+B(1608)\nIF (DO_JVS(660)) &\n! JVS(660) = Jac_FULL(77,350)\n  JVS(660) = B(1594)+B(1602)+B(1610)\nIF (DO_JVS(661)) &\n! JVS(661) = Jac_FULL(78,78)\n  JVS(661) = -B(429)-0.95*B(499)-B(1697)\nIF (DO_JVS(662)) &\n! JVS(662) = Jac_FULL(78,334)\n  JVS(662) = -0.95*B(500)\nIF (DO_JVS(663)) &\n! JVS(663) = Jac_FULL(78,345)\n  JVS(663) = -B(430)\nIF (DO_JVS(664)) &\n! JVS(664) = Jac_FULL(79,79)\n  JVS(664) = -B(549)-B(607)-B(1700)\nIF (DO_JVS(665)) &\n! JVS(665) = Jac_FULL(79,340)\n  JVS(665) = -B(608)\nIF (DO_JVS(666)) &\n! JVS(666) = Jac_FULL(79,345)\n  JVS(666) = -B(550)\nIF (DO_JVS(667)) &\n! JVS(667) = Jac_FULL(80,80)\n  JVS(667) = -B(380)-B(1741)-B(1742)\nIF (DO_JVS(668)) &\n! JVS(668) = Jac_FULL(80,328)\n  JVS(668) = B(378)\nIF (DO_JVS(669)) &\n! JVS(669) = Jac_FULL(80,335)\n  JVS(669) = B(379)\nIF (DO_JVS(670)) &\n! JVS(670) = Jac_FULL(81,81)\n  JVS(670) = -B(427)-0.7*B(501)-B(1696)\nIF (DO_JVS(671)) &\n! JVS(671) = Jac_FULL(81,334)\n  JVS(671) = -0.7*B(502)\nIF (DO_JVS(672)) &\n! JVS(672) = Jac_FULL(81,345)\n  JVS(672) = -B(428)\nIF (DO_JVS(673)) &\n! JVS(673) = Jac_FULL(82,82)\n  JVS(673) = -B(1383)\nIF (DO_JVS(674)) &\n! JVS(674) = Jac_FULL(82,345)\n  JVS(674) = -B(1384)\nIF (DO_JVS(675)) &\n! JVS(675) = Jac_FULL(83,83)\n  JVS(675) = -B(941)-B(1758)\nIF (DO_JVS(676)) &\n! JVS(676) = Jac_FULL(83,296)\n  JVS(676) = B(110)\nIF (DO_JVS(677)) &\n! JVS(677) = Jac_FULL(83,345)\n  JVS(677) = -B(942)\nIF (DO_JVS(678)) &\n! JVS(678) = Jac_FULL(83,346)\n  JVS(678) = B(111)\nIF (DO_JVS(679)) &\n! JVS(679) = Jac_FULL(84,84)\n  JVS(679) = -0.79*B(517)-B(561)-B(1717)\nIF (DO_JVS(680)) &\n! JVS(680) = Jac_FULL(84,334)\n  JVS(680) = -0.79*B(518)\nIF (DO_JVS(681)) &\n! JVS(681) = Jac_FULL(84,345)\n  JVS(681) = -B(562)\nIF (DO_JVS(682)) &\n! JVS(682) = Jac_FULL(85,85)\n  JVS(682) = -0.69*B(513)-B(557)-B(1718)\nIF (DO_JVS(683)) &\n! JVS(683) = Jac_FULL(85,334)\n  JVS(683) = -0.69*B(514)\nIF (DO_JVS(684)) &\n! JVS(684) = Jac_FULL(85,345)\n  JVS(684) = -B(558)\nIF (DO_JVS(685)) &\n! JVS(685) = Jac_FULL(86,86)\n  JVS(685) = -0.65*B(515)-B(559)-B(1719)\nIF (DO_JVS(686)) &\n! JVS(686) = Jac_FULL(86,334)\n  JVS(686) = -0.65*B(516)\nIF (DO_JVS(687)) &\n! JVS(687) = Jac_FULL(86,345)\n  JVS(687) = -B(560)\nIF (DO_JVS(688)) &\n! JVS(688) = Jac_FULL(87,87)\n  JVS(688) = -0.75*B(503)-B(555)-B(1720)\nIF (DO_JVS(689)) &\n! JVS(689) = Jac_FULL(87,334)\n  JVS(689) = -0.75*B(504)\nIF (DO_JVS(690)) &\n! JVS(690) = Jac_FULL(87,345)\n  JVS(690) = -B(556)\nIF (DO_JVS(691)) &\n! JVS(691) = Jac_FULL(88,88)\n  JVS(691) = -B(1322)-B(1761)\nIF (DO_JVS(692)) &\n! JVS(692) = Jac_FULL(88,312)\n  JVS(692) = 0.73*B(697)+0.4*B(699)\nIF (DO_JVS(693)) &\n! JVS(693) = Jac_FULL(88,336)\n  JVS(693) = 0.73*B(698)+0.4*B(700)\nIF (DO_JVS(694)) &\n! JVS(694) = Jac_FULL(88,345)\n  JVS(694) = -B(1323)\nIF (DO_JVS(695)) &\n! JVS(695) = Jac_FULL(89,89)\n  JVS(695) = -B(22)-B(23)\nIF (DO_JVS(696)) &\n! JVS(696) = Jac_FULL(89,325)\n  JVS(696) = B(20)\nIF (DO_JVS(697)) &\n! JVS(697) = Jac_FULL(89,345)\n  JVS(697) = -B(24)\nIF (DO_JVS(698)) &\n! JVS(698) = Jac_FULL(89,348)\n  JVS(698) = B(21)-B(25)\nIF (DO_JVS(699)) &\n! JVS(699) = Jac_FULL(90,90)\n  JVS(699) = -B(1440)-B(1441)\nIF (DO_JVS(700)) &\n! JVS(700) = Jac_FULL(90,235)\n  JVS(700) = B(1436)\nIF (DO_JVS(701)) &\n! JVS(701) = Jac_FULL(90,335)\n  JVS(701) = B(1437)\nIF (DO_JVS(702)) &\n! JVS(702) = Jac_FULL(90,345)\n  JVS(702) = -B(1442)\nIF (DO_JVS(703)) &\n! JVS(703) = Jac_FULL(91,91)\n  JVS(703) = -B(943)-B(1759)\nIF (DO_JVS(704)) &\n! JVS(704) = Jac_FULL(91,323)\n  JVS(704) = B(189)\nIF (DO_JVS(705)) &\n! JVS(705) = Jac_FULL(91,345)\n  JVS(705) = -B(944)\nIF (DO_JVS(706)) &\n! JVS(706) = Jac_FULL(91,346)\n  JVS(706) = B(190)\nIF (DO_JVS(707)) &\n! JVS(707) = Jac_FULL(92,92)\n  JVS(707) = -B(342)-B(1689)\nIF (DO_JVS(708)) &\n! JVS(708) = Jac_FULL(92,324)\n  JVS(708) = 0.37*B(1324)\nIF (DO_JVS(709)) &\n! JVS(709) = Jac_FULL(92,337)\n  JVS(709) = 0.37*B(1325)\nIF (DO_JVS(710)) &\n! JVS(710) = Jac_FULL(92,345)\n  JVS(710) = -B(343)\nIF (DO_JVS(711)) &\n! JVS(711) = Jac_FULL(93,93)\n  JVS(711) = -B(939)-B(1757)\nIF (DO_JVS(712)) &\n! JVS(712) = Jac_FULL(93,328)\n  JVS(712) = B(51)\nIF (DO_JVS(713)) &\n! JVS(713) = Jac_FULL(93,345)\n  JVS(713) = -B(940)\nIF (DO_JVS(714)) &\n! JVS(714) = Jac_FULL(93,346)\n  JVS(714) = B(52)\nIF (DO_JVS(715)) &\n! JVS(715) = Jac_FULL(94,94)\n  JVS(715) = -B(381)-B(383)-B(385)\nIF (DO_JVS(716)) &\n! JVS(716) = Jac_FULL(94,345)\n  JVS(716) = -B(382)-B(384)\nIF (DO_JVS(717)) &\n! JVS(717) = Jac_FULL(94,351)\n  JVS(717) = -B(386)\nIF (DO_JVS(718)) &\n! JVS(718) = Jac_FULL(95,95)\n  JVS(718) = -B(945)-B(1760)\nIF (DO_JVS(719)) &\n! JVS(719) = Jac_FULL(95,321)\n  JVS(719) = B(120)\nIF (DO_JVS(720)) &\n! JVS(720) = Jac_FULL(95,345)\n  JVS(720) = -B(946)\nIF (DO_JVS(721)) &\n! JVS(721) = Jac_FULL(95,346)\n  JVS(721) = B(121)\nIF (DO_JVS(722)) &\n! JVS(722) = Jac_FULL(96,42)\n  JVS(722) = 2*B(664)+2*B(1737)\nIF (DO_JVS(723)) &\n! JVS(723) = Jac_FULL(96,44)\n  JVS(723) = 0.996*B(684)+B(1732)\nIF (DO_JVS(724)) &\n! JVS(724) = Jac_FULL(96,55)\n  JVS(724) = B(1738)\nIF (DO_JVS(725)) &\n! JVS(725) = Jac_FULL(96,96)\n  JVS(725) = -B(661)-2*B(663)-B(665)-B(1728)\nIF (DO_JVS(726)) &\n! JVS(726) = Jac_FULL(96,284)\n  JVS(726) = 0.8*B(659)-B(662)+0.4*B(683)\nIF (DO_JVS(727)) &\n! JVS(727) = Jac_FULL(96,346)\n  JVS(727) = -B(666)\nIF (DO_JVS(728)) &\n! JVS(728) = Jac_FULL(96,347)\n  JVS(728) = 0.8*B(660)\nIF (DO_JVS(729)) &\n! JVS(729) = Jac_FULL(97,97)\n  JVS(729) = -B(332)-B(1680)\nIF (DO_JVS(730)) &\n! JVS(730) = Jac_FULL(97,319)\n  JVS(730) = B(218)\nIF (DO_JVS(731)) &\n! JVS(731) = Jac_FULL(97,337)\n  JVS(731) = B(219)\nIF (DO_JVS(732)) &\n! JVS(732) = Jac_FULL(97,345)\n  JVS(732) = -B(333)\nIF (DO_JVS(733)) &\n! JVS(733) = Jac_FULL(98,98)\n  JVS(733) = -B(134)-B(1681)\nIF (DO_JVS(734)) &\n! JVS(734) = Jac_FULL(98,178)\n  JVS(734) = B(132)\nIF (DO_JVS(735)) &\n! JVS(735) = Jac_FULL(98,337)\n  JVS(735) = B(133)\nIF (DO_JVS(736)) &\n! JVS(736) = Jac_FULL(98,345)\n  JVS(736) = -B(135)\nIF (DO_JVS(737)) &\n! JVS(737) = Jac_FULL(99,99)\n  JVS(737) = -B(328)-B(1678)\nIF (DO_JVS(738)) &\n! JVS(738) = Jac_FULL(99,321)\n  JVS(738) = B(279)\nIF (DO_JVS(739)) &\n! JVS(739) = Jac_FULL(99,337)\n  JVS(739) = B(280)\nIF (DO_JVS(740)) &\n! JVS(740) = Jac_FULL(99,345)\n  JVS(740) = -B(329)\nIF (DO_JVS(741)) &\n! JVS(741) = Jac_FULL(100,100)\n  JVS(741) = -B(330)-B(1679)\nIF (DO_JVS(742)) &\n! JVS(742) = Jac_FULL(100,323)\n  JVS(742) = B(230)\nIF (DO_JVS(743)) &\n! JVS(743) = Jac_FULL(100,337)\n  JVS(743) = B(231)\nIF (DO_JVS(744)) &\n! JVS(744) = Jac_FULL(100,345)\n  JVS(744) = -B(331)\nIF (DO_JVS(745)) &\n! JVS(745) = Jac_FULL(101,101)\n  JVS(745) = -B(1385)\nIF (DO_JVS(746)) &\n! JVS(746) = Jac_FULL(101,345)\n  JVS(746) = -B(1386)\nIF (DO_JVS(747)) &\n! JVS(747) = Jac_FULL(102,102)\n  JVS(747) = -B(334)-B(1682)\nIF (DO_JVS(748)) &\n! JVS(748) = Jac_FULL(102,300)\n  JVS(748) = B(222)\nIF (DO_JVS(749)) &\n! JVS(749) = Jac_FULL(102,337)\n  JVS(749) = B(223)\nIF (DO_JVS(750)) &\n! JVS(750) = Jac_FULL(102,345)\n  JVS(750) = -B(335)\nIF (DO_JVS(751)) &\n! JVS(751) = Jac_FULL(103,103)\n  JVS(751) = -B(935)\nIF (DO_JVS(752)) &\n! JVS(752) = Jac_FULL(103,168)\n  JVS(752) = B(1630)\nIF (DO_JVS(753)) &\n! JVS(753) = Jac_FULL(103,175)\n  JVS(753) = B(1629)\nIF (DO_JVS(754)) &\n! JVS(754) = Jac_FULL(103,186)\n  JVS(754) = B(1633)\nIF (DO_JVS(755)) &\n! JVS(755) = Jac_FULL(103,216)\n  JVS(755) = B(1638)\nIF (DO_JVS(756)) &\n! JVS(756) = Jac_FULL(103,222)\n  JVS(756) = B(1634)\nIF (DO_JVS(757)) &\n! JVS(757) = Jac_FULL(103,248)\n  JVS(757) = B(1639)\nIF (DO_JVS(758)) &\n! JVS(758) = Jac_FULL(103,251)\n  JVS(758) = B(1622)\nIF (DO_JVS(759)) &\n! JVS(759) = Jac_FULL(103,266)\n  JVS(759) = B(1636)\nIF (DO_JVS(760)) &\n! JVS(760) = Jac_FULL(103,267)\n  JVS(760) = B(1631)\nIF (DO_JVS(761)) &\n! JVS(761) = Jac_FULL(103,268)\n  JVS(761) = B(1628)\nIF (DO_JVS(762)) &\n! JVS(762) = Jac_FULL(103,299)\n  JVS(762) = B(1635)\nIF (DO_JVS(763)) &\n! JVS(763) = Jac_FULL(103,302)\n  JVS(763) = B(1621)\nIF (DO_JVS(764)) &\n! JVS(764) = Jac_FULL(103,303)\n  JVS(764) = B(1637)\nIF (DO_JVS(765)) &\n! JVS(765) = Jac_FULL(104,104)\n  JVS(765) = -B(1740)\nIF (DO_JVS(766)) &\n! JVS(766) = Jac_FULL(104,252)\n  JVS(766) = B(1595)+B(1597)\nIF (DO_JVS(767)) &\n! JVS(767) = Jac_FULL(104,284)\n  JVS(767) = 0.191*B(667)\nIF (DO_JVS(768)) &\n! JVS(768) = Jac_FULL(104,330)\n  JVS(768) = B(1611)+B(1613)\nIF (DO_JVS(769)) &\n! JVS(769) = Jac_FULL(104,332)\n  JVS(769) = B(1603)+B(1605)\nIF (DO_JVS(770)) &\n! JVS(770) = Jac_FULL(104,338)\n  JVS(770) = 0.191*B(668)\nIF (DO_JVS(771)) &\n! JVS(771) = Jac_FULL(104,344)\n  JVS(771) = B(1598)+B(1606)+B(1614)\nIF (DO_JVS(772)) &\n! JVS(772) = Jac_FULL(104,353)\n  JVS(772) = B(1596)+B(1604)+B(1612)\nIF (DO_JVS(773)) &\n! JVS(773) = Jac_FULL(105,105)\n  JVS(773) = -B(431)-B(497)-B(1698)\nIF (DO_JVS(774)) &\n! JVS(774) = Jac_FULL(105,334)\n  JVS(774) = -B(498)\nIF (DO_JVS(775)) &\n! JVS(775) = Jac_FULL(105,345)\n  JVS(775) = -B(432)\nIF (DO_JVS(776)) &\n! JVS(776) = Jac_FULL(106,106)\n  JVS(776) = -B(1372)-B(1373)\nIF (DO_JVS(777)) &\n! JVS(777) = Jac_FULL(106,136)\n  JVS(777) = B(1801)\nIF (DO_JVS(778)) &\n! JVS(778) = Jac_FULL(106,234)\n  JVS(778) = 0.995*B(1366)+B(1368)+0.6*B(1370)\nIF (DO_JVS(779)) &\n! JVS(779) = Jac_FULL(106,328)\n  JVS(779) = 0.6*B(1371)\nIF (DO_JVS(780)) &\n! JVS(780) = Jac_FULL(106,346)\n  JVS(780) = 0.995*B(1367)\nIF (DO_JVS(781)) &\n! JVS(781) = Jac_FULL(106,351)\n  JVS(781) = B(1369)\nIF (DO_JVS(782)) &\n! JVS(782) = Jac_FULL(107,107)\n  JVS(782) = -B(1304)-B(1627)\nIF (DO_JVS(783)) &\n! JVS(783) = Jac_FULL(107,159)\n  JVS(783) = 0.098*B(1280)\nIF (DO_JVS(784)) &\n! JVS(784) = Jac_FULL(107,184)\n  JVS(784) = 0.75*B(1302)\nIF (DO_JVS(785)) &\n! JVS(785) = Jac_FULL(107,345)\n  JVS(785) = 0.098*B(1281)+0.75*B(1303)-B(1305)\nIF (DO_JVS(786)) &\n! JVS(786) = Jac_FULL(108,108)\n  JVS(786) = -B(75)-B(76)-B(1651)-B(1652)\nIF (DO_JVS(787)) &\n! JVS(787) = Jac_FULL(108,335)\n  JVS(787) = B(73)\nIF (DO_JVS(788)) &\n! JVS(788) = Jac_FULL(108,337)\n  JVS(788) = B(74)\nIF (DO_JVS(789)) &\n! JVS(789) = Jac_FULL(108,345)\n  JVS(789) = -B(77)\nIF (DO_JVS(790)) &\n! JVS(790) = Jac_FULL(109,109)\n  JVS(790) = -B(1358)-B(1360)\nIF (DO_JVS(791)) &\n! JVS(791) = Jac_FULL(109,233)\n  JVS(791) = 0.4*B(1660)\nIF (DO_JVS(792)) &\n! JVS(792) = Jac_FULL(109,341)\n  JVS(792) = -B(1359)\nIF (DO_JVS(793)) &\n! JVS(793) = Jac_FULL(109,345)\n  JVS(793) = -B(1361)\nIF (DO_JVS(794)) &\n! JVS(794) = Jac_FULL(110,76)\n  JVS(794) = B(537)+B(1705)\nIF (DO_JVS(795)) &\n! JVS(795) = Jac_FULL(110,110)\n  JVS(795) = -B(590)-B(593)-B(1724)\nIF (DO_JVS(796)) &\n! JVS(796) = Jac_FULL(110,328)\n  JVS(796) = B(529)\nIF (DO_JVS(797)) &\n! JVS(797) = Jac_FULL(110,338)\n  JVS(797) = B(530)+B(586)+B(597)\nIF (DO_JVS(798)) &\n! JVS(798) = Jac_FULL(110,340)\n  JVS(798) = B(588)-B(594)\nIF (DO_JVS(799)) &\n! JVS(799) = Jac_FULL(110,345)\n  JVS(799) = B(538)\nIF (DO_JVS(800)) &\n! JVS(800) = Jac_FULL(110,347)\n  JVS(800) = B(598)\nIF (DO_JVS(801)) &\n! JVS(801) = Jac_FULL(111,111)\n  JVS(801) = -B(741)-B(1807)\nIF (DO_JVS(802)) &\n! JVS(802) = Jac_FULL(111,277)\n  JVS(802) = B(735)\nIF (DO_JVS(803)) &\n! JVS(803) = Jac_FULL(111,337)\n  JVS(803) = B(736)\nIF (DO_JVS(804)) &\n! JVS(804) = Jac_FULL(111,345)\n  JVS(804) = -B(742)\nIF (DO_JVS(805)) &\n! JVS(805) = Jac_FULL(112,112)\n  JVS(805) = -B(782)-B(1812)\nIF (DO_JVS(806)) &\n! JVS(806) = Jac_FULL(112,275)\n  JVS(806) = B(774)\nIF (DO_JVS(807)) &\n! JVS(807) = Jac_FULL(112,337)\n  JVS(807) = B(775)\nIF (DO_JVS(808)) &\n! JVS(808) = Jac_FULL(112,345)\n  JVS(808) = -B(783)\nIF (DO_JVS(809)) &\n! JVS(809) = Jac_FULL(113,113)\n  JVS(809) = -B(240)-B(241)\nIF (DO_JVS(810)) &\n! JVS(810) = Jac_FULL(113,246)\n  JVS(810) = B(238)\nIF (DO_JVS(811)) &\n! JVS(811) = Jac_FULL(113,335)\n  JVS(811) = B(239)\nIF (DO_JVS(812)) &\n! JVS(812) = Jac_FULL(113,345)\n  JVS(812) = -B(242)\nIF (DO_JVS(813)) &\n! JVS(813) = Jac_FULL(114,114)\n  JVS(813) = -B(299)-B(306)\nIF (DO_JVS(814)) &\n! JVS(814) = Jac_FULL(114,213)\n  JVS(814) = B(297)\nIF (DO_JVS(815)) &\n! JVS(815) = Jac_FULL(114,335)\n  JVS(815) = B(298)\nIF (DO_JVS(816)) &\n! JVS(816) = Jac_FULL(114,345)\n  JVS(816) = -B(307)\nIF (DO_JVS(817)) &\n! JVS(817) = Jac_FULL(115,115)\n  JVS(817) = -B(1320)-B(1626)-B(1763)\nIF (DO_JVS(818)) &\n! JVS(818) = Jac_FULL(115,194)\n  JVS(818) = 0.653*B(1258)+0.75*B(1769)\nIF (DO_JVS(819)) &\n! JVS(819) = Jac_FULL(115,302)\n  JVS(819) = 0.241*B(1236)\nIF (DO_JVS(820)) &\n! JVS(820) = Jac_FULL(115,314)\n  JVS(820) = 0.075*B(1226)\nIF (DO_JVS(821)) &\n! JVS(821) = Jac_FULL(115,341)\n  JVS(821) = 0.075*B(1227)\nIF (DO_JVS(822)) &\n! JVS(822) = Jac_FULL(115,345)\n  JVS(822) = 0.241*B(1237)+0.653*B(1259)-B(1321)\nIF (DO_JVS(823)) &\n! JVS(823) = Jac_FULL(116,116)\n  JVS(823) = -B(1356)-B(1687)\nIF (DO_JVS(824)) &\n! JVS(824) = Jac_FULL(116,189)\n  JVS(824) = 0.11*B(1352)\nIF (DO_JVS(825)) &\n! JVS(825) = Jac_FULL(116,345)\n  JVS(825) = -B(1357)\nIF (DO_JVS(826)) &\n! JVS(826) = Jac_FULL(116,346)\n  JVS(826) = 0.11*B(1353)\nIF (DO_JVS(827)) &\n! JVS(827) = Jac_FULL(117,90)\n  JVS(827) = B(1441)\nIF (DO_JVS(828)) &\n! JVS(828) = Jac_FULL(117,117)\n  JVS(828) = -B(1451)-B(1804)\nIF (DO_JVS(829)) &\n! JVS(829) = Jac_FULL(117,235)\n  JVS(829) = 0.15*B(1432)\nIF (DO_JVS(830)) &\n! JVS(830) = Jac_FULL(117,236)\n  JVS(830) = B(1449)\nIF (DO_JVS(831)) &\n! JVS(831) = Jac_FULL(117,335)\n  JVS(831) = 0\nIF (DO_JVS(832)) &\n! JVS(832) = Jac_FULL(117,337)\n  JVS(832) = 0.15*B(1433)+B(1450)\nIF (DO_JVS(833)) &\n! JVS(833) = Jac_FULL(117,345)\n  JVS(833) = B(1442)-B(1452)\nIF (DO_JVS(834)) &\n! JVS(834) = Jac_FULL(118,118)\n  JVS(834) = -B(326)-B(1677)\nIF (DO_JVS(835)) &\n! JVS(835) = Jac_FULL(118,296)\n  JVS(835) = B(275)\nIF (DO_JVS(836)) &\n! JVS(836) = Jac_FULL(118,315)\n  JVS(836) = B(277)\nIF (DO_JVS(837)) &\n! JVS(837) = Jac_FULL(118,337)\n  JVS(837) = B(276)+B(278)\nIF (DO_JVS(838)) &\n! JVS(838) = Jac_FULL(118,345)\n  JVS(838) = -B(327)\nIF (DO_JVS(839)) &\n! JVS(839) = Jac_FULL(119,119)\n  JVS(839) = -B(1013)\nIF (DO_JVS(840)) &\n! JVS(840) = Jac_FULL(119,230)\n  JVS(840) = 0.15*B(1001)+0.112*B(1779)\nIF (DO_JVS(841)) &\n! JVS(841) = Jac_FULL(119,231)\n  JVS(841) = 0.15*B(1003)+0.182*B(1780)\nIF (DO_JVS(842)) &\n! JVS(842) = Jac_FULL(119,301)\n  JVS(842) = 0.161*B(1790)\nIF (DO_JVS(843)) &\n! JVS(843) = Jac_FULL(119,345)\n  JVS(843) = 0.15*B(1002)+0.15*B(1004)-B(1014)\nIF (DO_JVS(844)) &\n! JVS(844) = Jac_FULL(120,120)\n  JVS(844) = -B(535)-B(1704)\nIF (DO_JVS(845)) &\n! JVS(845) = Jac_FULL(120,284)\n  JVS(845) = 0.56*B(667)\nIF (DO_JVS(846)) &\n! JVS(846) = Jac_FULL(120,338)\n  JVS(846) = B(587)+B(595)+0.56*B(668)\nIF (DO_JVS(847)) &\n! JVS(847) = Jac_FULL(120,345)\n  JVS(847) = -B(536)\nIF (DO_JVS(848)) &\n! JVS(848) = Jac_FULL(120,347)\n  JVS(848) = B(596)\nIF (DO_JVS(849)) &\n! JVS(849) = Jac_FULL(121,58)\n  JVS(849) = B(1397)\nIF (DO_JVS(850)) &\n! JVS(850) = Jac_FULL(121,121)\n  JVS(850) = -B(1399)-B(1401)\nIF (DO_JVS(851)) &\n! JVS(851) = Jac_FULL(121,200)\n  JVS(851) = 0\nIF (DO_JVS(852)) &\n! JVS(852) = Jac_FULL(121,337)\n  JVS(852) = -B(1402)\nIF (DO_JVS(853)) &\n! JVS(853) = Jac_FULL(121,345)\n  JVS(853) = B(1398)\nIF (DO_JVS(854)) &\n! JVS(854) = Jac_FULL(121,346)\n  JVS(854) = -B(1400)\nIF (DO_JVS(855)) &\n! JVS(855) = Jac_FULL(122,122)\n  JVS(855) = -B(1411)-B(1412)\nIF (DO_JVS(856)) &\n! JVS(856) = Jac_FULL(122,240)\n  JVS(856) = B(1409)\nIF (DO_JVS(857)) &\n! JVS(857) = Jac_FULL(122,335)\n  JVS(857) = B(1410)\nIF (DO_JVS(858)) &\n! JVS(858) = Jac_FULL(122,345)\n  JVS(858) = -B(1413)\nIF (DO_JVS(859)) &\n! JVS(859) = Jac_FULL(123,123)\n  JVS(859) = -B(338)-B(1683)\nIF (DO_JVS(860)) &\n! JVS(860) = Jac_FULL(123,260)\n  JVS(860) = B(281)\nIF (DO_JVS(861)) &\n! JVS(861) = Jac_FULL(123,337)\n  JVS(861) = B(282)\nIF (DO_JVS(862)) &\n! JVS(862) = Jac_FULL(123,345)\n  JVS(862) = -B(339)\nIF (DO_JVS(863)) &\n! JVS(863) = Jac_FULL(124,124)\n  JVS(863) = -B(205)-B(206)-B(1806)\nIF (DO_JVS(864)) &\n! JVS(864) = Jac_FULL(124,322)\n  JVS(864) = B(203)\nIF (DO_JVS(865)) &\n! JVS(865) = Jac_FULL(124,335)\n  JVS(865) = B(204)\nIF (DO_JVS(866)) &\n! JVS(866) = Jac_FULL(124,345)\n  JVS(866) = -B(207)\nIF (DO_JVS(867)) &\n! JVS(867) = Jac_FULL(125,125)\n  JVS(867) = -B(324)-B(1676)\nIF (DO_JVS(868)) &\n! JVS(868) = Jac_FULL(125,250)\n  JVS(868) = B(232)\nIF (DO_JVS(869)) &\n! JVS(869) = Jac_FULL(125,337)\n  JVS(869) = B(233)\nIF (DO_JVS(870)) &\n! JVS(870) = Jac_FULL(125,345)\n  JVS(870) = -B(325)\nIF (DO_JVS(871)) &\n! JVS(871) = Jac_FULL(126,126)\n  JVS(871) = -B(166)-B(167)-B(1659)\nIF (DO_JVS(872)) &\n! JVS(872) = Jac_FULL(126,197)\n  JVS(872) = B(164)\nIF (DO_JVS(873)) &\n! JVS(873) = Jac_FULL(126,335)\n  JVS(873) = B(165)\nIF (DO_JVS(874)) &\n! JVS(874) = Jac_FULL(126,345)\n  JVS(874) = -B(168)\nIF (DO_JVS(875)) &\n! JVS(875) = Jac_FULL(127,127)\n  JVS(875) = -B(152)\nIF (DO_JVS(876)) &\n! JVS(876) = Jac_FULL(127,212)\n  JVS(876) = 0.058*B(148)\nIF (DO_JVS(877)) &\n! JVS(877) = Jac_FULL(127,345)\n  JVS(877) = -B(153)\nIF (DO_JVS(878)) &\n! JVS(878) = Jac_FULL(127,346)\n  JVS(878) = 0.058*B(149)\nIF (DO_JVS(879)) &\n! JVS(879) = Jac_FULL(128,128)\n  JVS(879) = -B(1052)-B(1619)\nIF (DO_JVS(880)) &\n! JVS(880) = Jac_FULL(128,199)\n  JVS(880) = 0.595*B(1029)\nIF (DO_JVS(881)) &\n! JVS(881) = Jac_FULL(128,209)\n  JVS(881) = 0.255*B(1027)\nIF (DO_JVS(882)) &\n! JVS(882) = Jac_FULL(128,267)\n  JVS(882) = B(1105)\nIF (DO_JVS(883)) &\n! JVS(883) = Jac_FULL(128,268)\n  JVS(883) = B(1101)\nIF (DO_JVS(884)) &\n! JVS(884) = Jac_FULL(128,345)\n  JVS(884) = 0.255*B(1028)+0.595*B(1030)-B(1053)+B(1102)+B(1106)\nIF (DO_JVS(885)) &\n! JVS(885) = Jac_FULL(129,112)\n  JVS(885) = B(1812)\nIF (DO_JVS(886)) &\n! JVS(886) = Jac_FULL(129,129)\n  JVS(886) = -B(784)\nIF (DO_JVS(887)) &\n! JVS(887) = Jac_FULL(129,138)\n  JVS(887) = 0.5*B(780)\nIF (DO_JVS(888)) &\n! JVS(888) = Jac_FULL(129,191)\n  JVS(888) = 0.2*B(733)\nIF (DO_JVS(889)) &\n! JVS(889) = Jac_FULL(129,275)\n  JVS(889) = 0.75*B(776)+B(778)+B(881)+B(883)\nIF (DO_JVS(890)) &\n! JVS(890) = Jac_FULL(129,324)\n  JVS(890) = B(884)\nIF (DO_JVS(891)) &\n! JVS(891) = Jac_FULL(129,328)\n  JVS(891) = B(882)\nIF (DO_JVS(892)) &\n! JVS(892) = Jac_FULL(129,337)\n  JVS(892) = 0\nIF (DO_JVS(893)) &\n! JVS(893) = Jac_FULL(129,341)\n  JVS(893) = 0.2*B(734)\nIF (DO_JVS(894)) &\n! JVS(894) = Jac_FULL(129,345)\n  JVS(894) = 0.5*B(781)-B(785)\nIF (DO_JVS(895)) &\n! JVS(895) = Jac_FULL(129,346)\n  JVS(895) = 0.75*B(777)\nIF (DO_JVS(896)) &\n! JVS(896) = Jac_FULL(129,351)\n  JVS(896) = B(779)\nIF (DO_JVS(897)) &\n! JVS(897) = Jac_FULL(130,130)\n  JVS(897) = -B(849)-B(1815)\nIF (DO_JVS(898)) &\n! JVS(898) = Jac_FULL(130,274)\n  JVS(898) = 0.15*B(838)+0.25*B(897)\nIF (DO_JVS(899)) &\n! JVS(899) = Jac_FULL(130,328)\n  JVS(899) = 0.25*B(898)\nIF (DO_JVS(900)) &\n! JVS(900) = Jac_FULL(130,337)\n  JVS(900) = 0.15*B(839)\nIF (DO_JVS(901)) &\n! JVS(901) = Jac_FULL(130,345)\n  JVS(901) = -B(850)\nIF (DO_JVS(902)) &\n! JVS(902) = Jac_FULL(131,131)\n  JVS(902) = -B(1262)\nIF (DO_JVS(903)) &\n! JVS(903) = Jac_FULL(131,258)\n  JVS(903) = 0.35*B(1306)+0.35*B(1792)\nIF (DO_JVS(904)) &\n! JVS(904) = Jac_FULL(131,286)\n  JVS(904) = B(1063)+0.13*B(1064)+0.2*B(1066)\nIF (DO_JVS(905)) &\n! JVS(905) = Jac_FULL(131,337)\n  JVS(905) = 0.13*B(1065)\nIF (DO_JVS(906)) &\n! JVS(906) = Jac_FULL(131,345)\n  JVS(906) = -B(1263)+0.35*B(1307)\nIF (DO_JVS(907)) &\n! JVS(907) = Jac_FULL(131,346)\n  JVS(907) = 0.2*B(1067)\nIF (DO_JVS(908)) &\n! JVS(908) = Jac_FULL(132,132)\n  JVS(908) = -B(156)-B(158)\nIF (DO_JVS(909)) &\n! JVS(909) = Jac_FULL(132,233)\n  JVS(909) = 0.255*B(154)\nIF (DO_JVS(910)) &\n! JVS(910) = Jac_FULL(132,337)\n  JVS(910) = -B(159)\nIF (DO_JVS(911)) &\n! JVS(911) = Jac_FULL(132,345)\n  JVS(911) = 0.255*B(155)\nIF (DO_JVS(912)) &\n! JVS(912) = Jac_FULL(132,346)\n  JVS(912) = -B(157)\nIF (DO_JVS(913)) &\n! JVS(913) = Jac_FULL(133,133)\n  JVS(913) = -B(1085)-B(1087)\nIF (DO_JVS(914)) &\n! JVS(914) = Jac_FULL(133,230)\n  JVS(914) = 0.315*B(1001)\nIF (DO_JVS(915)) &\n! JVS(915) = Jac_FULL(133,337)\n  JVS(915) = -B(1088)\nIF (DO_JVS(916)) &\n! JVS(916) = Jac_FULL(133,345)\n  JVS(916) = 0.315*B(1002)\nIF (DO_JVS(917)) &\n! JVS(917) = Jac_FULL(133,346)\n  JVS(917) = -B(1086)\nIF (DO_JVS(918)) &\n! JVS(918) = Jac_FULL(134,89)\n  JVS(918) = 2*B(23)\nIF (DO_JVS(919)) &\n! JVS(919) = Jac_FULL(134,134)\n  JVS(919) = -B(1746)\nIF (DO_JVS(920)) &\n! JVS(920) = Jac_FULL(134,179)\n  JVS(920) = B(1)\nIF (DO_JVS(921)) &\n! JVS(921) = Jac_FULL(134,241)\n  JVS(921) = B(711)\nIF (DO_JVS(922)) &\n! JVS(922) = Jac_FULL(134,264)\n  JVS(922) = B(15)\nIF (DO_JVS(923)) &\n! JVS(923) = Jac_FULL(134,312)\n  JVS(923) = B(703)\nIF (DO_JVS(924)) &\n! JVS(924) = Jac_FULL(134,316)\n  JVS(924) = B(1561)\nIF (DO_JVS(925)) &\n! JVS(925) = Jac_FULL(134,325)\n  JVS(925) = 0\nIF (DO_JVS(926)) &\n! JVS(926) = Jac_FULL(134,333)\n  JVS(926) = B(1547)\nIF (DO_JVS(927)) &\n! JVS(927) = Jac_FULL(134,341)\n  JVS(927) = B(2)+B(17)\nIF (DO_JVS(928)) &\n! JVS(928) = Jac_FULL(134,345)\n  JVS(928) = 2*B(24)+B(387)\nIF (DO_JVS(929)) &\n! JVS(929) = Jac_FULL(134,348)\n  JVS(929) = B(3)+B(16)+B(18)+B(19)+2*B(25)+B(388)+B(704)+B(712)+B(1548)+B(1562)\nIF (DO_JVS(930)) &\n! JVS(930) = Jac_FULL(135,135)\n  JVS(930) = -B(1089)-B(1091)\nIF (DO_JVS(931)) &\n! JVS(931) = Jac_FULL(135,231)\n  JVS(931) = 0.315*B(1003)\nIF (DO_JVS(932)) &\n! JVS(932) = Jac_FULL(135,337)\n  JVS(932) = -B(1092)\nIF (DO_JVS(933)) &\n! JVS(933) = Jac_FULL(135,345)\n  JVS(933) = 0.315*B(1004)\nIF (DO_JVS(934)) &\n! JVS(934) = Jac_FULL(135,346)\n  JVS(934) = -B(1090)\nIF (DO_JVS(935)) &\n! JVS(935) = Jac_FULL(136,136)\n  JVS(935) = -B(1377)-B(1379)-B(1801)\nIF (DO_JVS(936)) &\n! JVS(936) = Jac_FULL(136,234)\n  JVS(936) = B(1364)+0.2*B(1370)\nIF (DO_JVS(937)) &\n! JVS(937) = Jac_FULL(136,328)\n  JVS(937) = 0.2*B(1371)\nIF (DO_JVS(938)) &\n! JVS(938) = Jac_FULL(136,337)\n  JVS(938) = B(1365)\nIF (DO_JVS(939)) &\n! JVS(939) = Jac_FULL(136,345)\n  JVS(939) = -B(1378)-B(1380)\nIF (DO_JVS(940)) &\n! JVS(940) = Jac_FULL(137,137)\n  JVS(940) = -B(743)\nIF (DO_JVS(941)) &\n! JVS(941) = Jac_FULL(137,277)\n  JVS(941) = 0.25*B(737)\nIF (DO_JVS(942)) &\n! JVS(942) = Jac_FULL(137,345)\n  JVS(942) = -B(744)\nIF (DO_JVS(943)) &\n! JVS(943) = Jac_FULL(137,346)\n  JVS(943) = 0.25*B(738)\nIF (DO_JVS(944)) &\n! JVS(944) = Jac_FULL(138,138)\n  JVS(944) = -B(780)\nIF (DO_JVS(945)) &\n! JVS(945) = Jac_FULL(138,275)\n  JVS(945) = 0.25*B(776)\nIF (DO_JVS(946)) &\n! JVS(946) = Jac_FULL(138,345)\n  JVS(946) = -B(781)\nIF (DO_JVS(947)) &\n! JVS(947) = Jac_FULL(138,346)\n  JVS(947) = 0.25*B(777)\nIF (DO_JVS(948)) &\n! JVS(948) = Jac_FULL(139,139)\n  JVS(948) = -B(101)-B(102)-B(1658)\nIF (DO_JVS(949)) &\n! JVS(949) = Jac_FULL(139,324)\n  JVS(949) = B(99)\nIF (DO_JVS(950)) &\n! JVS(950) = Jac_FULL(139,335)\n  JVS(950) = B(100)\nIF (DO_JVS(951)) &\n! JVS(951) = Jac_FULL(139,345)\n  JVS(951) = -B(103)\nIF (DO_JVS(952)) &\n! JVS(952) = Jac_FULL(140,140)\n  JVS(952) = -B(142)-B(144)-B(146)\nIF (DO_JVS(953)) &\n! JVS(953) = Jac_FULL(140,341)\n  JVS(953) = -B(147)\nIF (DO_JVS(954)) &\n! JVS(954) = Jac_FULL(140,345)\n  JVS(954) = -B(143)\nIF (DO_JVS(955)) &\n! JVS(955) = Jac_FULL(140,351)\n  JVS(955) = -B(145)\nIF (DO_JVS(956)) &\n! JVS(956) = Jac_FULL(141,141)\n  JVS(956) = -B(114)-B(116)-B(421)-B(629)-B(631)\nIF (DO_JVS(957)) &\n! JVS(957) = Jac_FULL(141,340)\n  JVS(957) = -B(630)-B(632)\nIF (DO_JVS(958)) &\n! JVS(958) = Jac_FULL(141,342)\n  JVS(958) = -B(422)\nIF (DO_JVS(959)) &\n! JVS(959) = Jac_FULL(141,345)\n  JVS(959) = -B(115)-B(117)\nIF (DO_JVS(960)) &\n! JVS(960) = Jac_FULL(142,142)\n  JVS(960) = -B(169)-B(193)-B(637)\nIF (DO_JVS(961)) &\n! JVS(961) = Jac_FULL(142,340)\n  JVS(961) = -B(638)\nIF (DO_JVS(962)) &\n! JVS(962) = Jac_FULL(142,345)\n  JVS(962) = -B(170)\nIF (DO_JVS(963)) &\n! JVS(963) = Jac_FULL(142,351)\n  JVS(963) = -B(194)\nIF (DO_JVS(964)) &\n! JVS(964) = Jac_FULL(143,143)\n  JVS(964) = -B(1381)\nIF (DO_JVS(965)) &\n! JVS(965) = Jac_FULL(143,220)\n  JVS(965) = 0.1*B(1342)\nIF (DO_JVS(966)) &\n! JVS(966) = Jac_FULL(143,341)\n  JVS(966) = 0.1*B(1343)\nIF (DO_JVS(967)) &\n! JVS(967) = Jac_FULL(143,345)\n  JVS(967) = -B(1382)\nIF (DO_JVS(968)) &\n! JVS(968) = Jac_FULL(144,144)\n  JVS(968) = -B(1007)-B(1782)\nIF (DO_JVS(969)) &\n! JVS(969) = Jac_FULL(144,199)\n  JVS(969) = 0.009*B(1029)\nIF (DO_JVS(970)) &\n! JVS(970) = Jac_FULL(144,276)\n  JVS(970) = 0.15*B(955)\nIF (DO_JVS(971)) &\n! JVS(971) = Jac_FULL(144,304)\n  JVS(971) = 0.15*B(968)\nIF (DO_JVS(972)) &\n! JVS(972) = Jac_FULL(144,345)\n  JVS(972) = 0.15*B(956)-B(1008)+0.009*B(1030)\nIF (DO_JVS(973)) &\n! JVS(973) = Jac_FULL(145,145)\n  JVS(973) = -B(1177)-B(1179)\nIF (DO_JVS(974)) &\n! JVS(974) = Jac_FULL(145,186)\n  JVS(974) = 0.841*B(1788)\nIF (DO_JVS(975)) &\n! JVS(975) = Jac_FULL(145,299)\n  JVS(975) = 0.222*B(1791)\nIF (DO_JVS(976)) &\n! JVS(976) = Jac_FULL(145,310)\n  JVS(976) = 0.474*B(1154)\nIF (DO_JVS(977)) &\n! JVS(977) = Jac_FULL(145,311)\n  JVS(977) = 0.474*B(1155)+0.34*B(1156)+0.244*B(1157)+0.841*B(1163)+0.841*B(1167)+0.841*B(1173)\nIF (DO_JVS(978)) &\n! JVS(978) = Jac_FULL(145,324)\n  JVS(978) = 0.841*B(1164)\nIF (DO_JVS(979)) &\n! JVS(979) = Jac_FULL(145,328)\n  JVS(979) = 0.244*B(1158)\nIF (DO_JVS(980)) &\n! JVS(980) = Jac_FULL(145,346)\n  JVS(980) = 0.841*B(1174)\nIF (DO_JVS(981)) &\n! JVS(981) = Jac_FULL(145,351)\n  JVS(981) = 0.841*B(1168)\nIF (DO_JVS(982)) &\n! JVS(982) = Jac_FULL(146,121)\n  JVS(982) = B(1399)+B(1401)\nIF (DO_JVS(983)) &\n! JVS(983) = Jac_FULL(146,146)\n  JVS(983) = -B(1403)-B(1661)\nIF (DO_JVS(984)) &\n! JVS(984) = Jac_FULL(146,200)\n  JVS(984) = 0\nIF (DO_JVS(985)) &\n! JVS(985) = Jac_FULL(146,337)\n  JVS(985) = B(1402)\nIF (DO_JVS(986)) &\n! JVS(986) = Jac_FULL(146,345)\n  JVS(986) = -B(1404)\nIF (DO_JVS(987)) &\n! JVS(987) = Jac_FULL(146,346)\n  JVS(987) = B(1400)\nIF (DO_JVS(988)) &\n! JVS(988) = Jac_FULL(147,147)\n  JVS(988) = -B(1308)-B(1796)\nIF (DO_JVS(989)) &\n! JVS(989) = Jac_FULL(147,285)\n  JVS(989) = B(1070)\nIF (DO_JVS(990)) &\n! JVS(990) = Jac_FULL(147,286)\n  JVS(990) = B(1062)\nIF (DO_JVS(991)) &\n! JVS(991) = Jac_FULL(147,345)\n  JVS(991) = -B(1309)\nIF (DO_JVS(992)) &\n! JVS(992) = Jac_FULL(148,148)\n  JVS(992) = -B(403)-B(1690)\nIF (DO_JVS(993)) &\n! JVS(993) = Jac_FULL(148,218)\n  JVS(993) = B(401)\nIF (DO_JVS(994)) &\n! JVS(994) = Jac_FULL(148,316)\n  JVS(994) = B(1549)+B(1557)+B(1559)\nIF (DO_JVS(995)) &\n! JVS(995) = Jac_FULL(148,342)\n  JVS(995) = B(402)\nIF (DO_JVS(996)) &\n! JVS(996) = Jac_FULL(148,345)\n  JVS(996) = -B(404)\nIF (DO_JVS(997)) &\n! JVS(997) = Jac_FULL(148,347)\n  JVS(997) = B(398)\nIF (DO_JVS(998)) &\n! JVS(998) = Jac_FULL(148,349)\n  JVS(998) = B(1558)\nIF (DO_JVS(999)) &\n! JVS(999) = Jac_FULL(148,350)\n  JVS(999) = B(1560)\nIF (DO_JVS(1000)) &\n! JVS(1000) = Jac_FULL(148,352)\n  JVS(1000) = B(1550)\nIF (DO_JVS(1001)) &\n! JVS(1001) = Jac_FULL(149,149)\n  JVS(1001) = -B(1344)-B(1346)\nIF (DO_JVS(1002)) &\n! JVS(1002) = Jac_FULL(149,345)\n  JVS(1002) = -B(1345)\nIF (DO_JVS(1003)) &\n! JVS(1003) = Jac_FULL(149,351)\n  JVS(1003) = -B(1347)\nIF (DO_JVS(1004)) &\n! JVS(1004) = Jac_FULL(150,150)\n  JVS(1004) = -B(1005)-B(1781)\nIF (DO_JVS(1005)) &\n! JVS(1005) = Jac_FULL(150,209)\n  JVS(1005) = 0.009*B(1027)\nIF (DO_JVS(1006)) &\n! JVS(1006) = Jac_FULL(150,276)\n  JVS(1006) = 0.15*B(953)\nIF (DO_JVS(1007)) &\n! JVS(1007) = Jac_FULL(150,305)\n  JVS(1007) = 0.15*B(966)\nIF (DO_JVS(1008)) &\n! JVS(1008) = Jac_FULL(150,345)\n  JVS(1008) = 0.15*B(954)-B(1006)+0.009*B(1028)\nIF (DO_JVS(1009)) &\n! JVS(1009) = Jac_FULL(151,151)\n  JVS(1009) = -B(1054)-B(1056)-B(1617)\nIF (DO_JVS(1010)) &\n! JVS(1010) = Jac_FULL(151,168)\n  JVS(1010) = 0.67*B(1099)\nIF (DO_JVS(1011)) &\n! JVS(1011) = Jac_FULL(151,175)\n  JVS(1011) = 0.67*B(1095)\nIF (DO_JVS(1012)) &\n! JVS(1012) = Jac_FULL(151,187)\n  JVS(1012) = 0.67*B(1017)\nIF (DO_JVS(1013)) &\n! JVS(1013) = Jac_FULL(151,192)\n  JVS(1013) = 0.68*B(1021)\nIF (DO_JVS(1014)) &\n! JVS(1014) = Jac_FULL(151,345)\n  JVS(1014) = 0.67*B(1018)+0.68*B(1022)-B(1055)-B(1057)+0.67*B(1096)+0.67*B(1100)\nIF (DO_JVS(1015)) &\n! JVS(1015) = Jac_FULL(152,152)\n  JVS(1015) = -B(1058)-B(1060)-B(1618)\nIF (DO_JVS(1016)) &\n! JVS(1016) = Jac_FULL(152,168)\n  JVS(1016) = 0.33*B(1099)\nIF (DO_JVS(1017)) &\n! JVS(1017) = Jac_FULL(152,175)\n  JVS(1017) = 0.33*B(1095)\nIF (DO_JVS(1018)) &\n! JVS(1018) = Jac_FULL(152,187)\n  JVS(1018) = 0.33*B(1017)\nIF (DO_JVS(1019)) &\n! JVS(1019) = Jac_FULL(152,192)\n  JVS(1019) = 0.32*B(1021)\nIF (DO_JVS(1020)) &\n! JVS(1020) = Jac_FULL(152,345)\n  JVS(1020) = 0.33*B(1018)+0.32*B(1022)-B(1059)-B(1061)+0.33*B(1096)+0.33*B(1100)\nIF (DO_JVS(1021)) &\n! JVS(1021) = Jac_FULL(153,153)\n  JVS(1021) = -B(1268)\nIF (DO_JVS(1022)) &\n! JVS(1022) = Jac_FULL(153,258)\n  JVS(1022) = 0.15*B(1306)+0.15*B(1792)+0.163*B(1793)\nIF (DO_JVS(1023)) &\n! JVS(1023) = Jac_FULL(153,285)\n  JVS(1023) = B(1071)+0.2*B(1072)+0.13*B(1076)\nIF (DO_JVS(1024)) &\n! JVS(1024) = Jac_FULL(153,337)\n  JVS(1024) = 0.13*B(1077)\nIF (DO_JVS(1025)) &\n! JVS(1025) = Jac_FULL(153,345)\n  JVS(1025) = -B(1269)+0.15*B(1307)\nIF (DO_JVS(1026)) &\n! JVS(1026) = Jac_FULL(153,346)\n  JVS(1026) = 0.2*B(1073)\nIF (DO_JVS(1027)) &\n! JVS(1027) = Jac_FULL(154,154)\n  JVS(1027) = -B(937)-B(1625)-B(1752)\nIF (DO_JVS(1028)) &\n! JVS(1028) = Jac_FULL(154,242)\n  JVS(1028) = B(927)+B(929)+B(931)\nIF (DO_JVS(1029)) &\n! JVS(1029) = Jac_FULL(154,256)\n  JVS(1029) = B(925)+B(933)\nIF (DO_JVS(1030)) &\n! JVS(1030) = Jac_FULL(154,341)\n  JVS(1030) = B(930)\nIF (DO_JVS(1031)) &\n! JVS(1031) = Jac_FULL(154,345)\n  JVS(1031) = B(926)+B(928)-B(938)\nIF (DO_JVS(1032)) &\n! JVS(1032) = Jac_FULL(154,351)\n  JVS(1032) = B(932)+B(934)\nIF (DO_JVS(1033)) &\n! JVS(1033) = Jac_FULL(155,155)\n  JVS(1033) = -B(336)-B(1684)\nIF (DO_JVS(1034)) &\n! JVS(1034) = Jac_FULL(155,240)\n  JVS(1034) = 0.41*B(1407)\nIF (DO_JVS(1035)) &\n! JVS(1035) = Jac_FULL(155,246)\n  JVS(1035) = 0.41*B(245)\nIF (DO_JVS(1036)) &\n! JVS(1036) = Jac_FULL(155,322)\n  JVS(1036) = 0.41*B(283)\nIF (DO_JVS(1037)) &\n! JVS(1037) = Jac_FULL(155,337)\n  JVS(1037) = 0.41*B(246)+0.41*B(284)+0.41*B(1408)\nIF (DO_JVS(1038)) &\n! JVS(1038) = Jac_FULL(155,345)\n  JVS(1038) = -B(337)\nIF (DO_JVS(1039)) &\n! JVS(1039) = Jac_FULL(156,156)\n  JVS(1039) = -B(269)-B(625)\nIF (DO_JVS(1040)) &\n! JVS(1040) = Jac_FULL(156,296)\n  JVS(1040) = 0.25*B(247)+0.4*B(273)\nIF (DO_JVS(1041)) &\n! JVS(1041) = Jac_FULL(156,315)\n  JVS(1041) = 0.25*B(249)+0.4*B(274)\nIF (DO_JVS(1042)) &\n! JVS(1042) = Jac_FULL(156,328)\n  JVS(1042) = 0.25*B(248)+0.25*B(250)\nIF (DO_JVS(1043)) &\n! JVS(1043) = Jac_FULL(156,340)\n  JVS(1043) = -B(626)\nIF (DO_JVS(1044)) &\n! JVS(1044) = Jac_FULL(156,345)\n  JVS(1044) = -B(270)\nIF (DO_JVS(1045)) &\n! JVS(1045) = Jac_FULL(157,157)\n  JVS(1045) = -B(1701)\nIF (DO_JVS(1046)) &\n! JVS(1046) = Jac_FULL(157,218)\n  JVS(1046) = B(1511)\nIF (DO_JVS(1047)) &\n! JVS(1047) = Jac_FULL(157,297)\n  JVS(1047) = B(1533)+B(1535)+B(1537)\nIF (DO_JVS(1048)) &\n! JVS(1048) = Jac_FULL(157,316)\n  JVS(1048) = B(1551)+B(1553)+B(1555)\nIF (DO_JVS(1049)) &\n! JVS(1049) = Jac_FULL(157,317)\n  JVS(1049) = B(1517)+B(1519)+B(1521)\nIF (DO_JVS(1050)) &\n! JVS(1050) = Jac_FULL(157,333)\n  JVS(1050) = B(1541)\nIF (DO_JVS(1051)) &\n! JVS(1051) = Jac_FULL(157,338)\n  JVS(1051) = B(599)\nIF (DO_JVS(1052)) &\n! JVS(1052) = Jac_FULL(157,339)\n  JVS(1052) = B(1512)+B(1552)\nIF (DO_JVS(1053)) &\n! JVS(1053) = Jac_FULL(157,344)\n  JVS(1053) = B(1556)\nIF (DO_JVS(1054)) &\n! JVS(1054) = Jac_FULL(157,347)\n  JVS(1054) = B(600)\nIF (DO_JVS(1055)) &\n! JVS(1055) = Jac_FULL(157,349)\n  JVS(1055) = B(1520)+B(1534)\nIF (DO_JVS(1056)) &\n! JVS(1056) = Jac_FULL(157,350)\n  JVS(1056) = B(1522)+B(1536)\nIF (DO_JVS(1057)) &\n! JVS(1057) = Jac_FULL(157,352)\n  JVS(1057) = B(1518)+B(1538)+B(1542)\nIF (DO_JVS(1058)) &\n! JVS(1058) = Jac_FULL(157,353)\n  JVS(1058) = B(1554)\nIF (DO_JVS(1059)) &\n! JVS(1059) = Jac_FULL(158,82)\n  JVS(1059) = 0.19*B(1383)\nIF (DO_JVS(1060)) &\n! JVS(1060) = Jac_FULL(158,101)\n  JVS(1060) = 0.15*B(1385)\nIF (DO_JVS(1061)) &\n! JVS(1061) = Jac_FULL(158,149)\n  JVS(1061) = 0.18*B(1344)\nIF (DO_JVS(1062)) &\n! JVS(1062) = Jac_FULL(158,158)\n  JVS(1062) = -B(1418)-B(1420)\nIF (DO_JVS(1063)) &\n! JVS(1063) = Jac_FULL(158,200)\n  JVS(1063) = 0.03*B(1348)\nIF (DO_JVS(1064)) &\n! JVS(1064) = Jac_FULL(158,345)\n  JVS(1064) = 0.18*B(1345)+0.03*B(1349)+0.19*B(1384)+0.15*B(1386)-B(1419)\nIF (DO_JVS(1065)) &\n! JVS(1065) = Jac_FULL(158,351)\n  JVS(1065) = -B(1421)\nIF (DO_JVS(1066)) &\n! JVS(1066) = Jac_FULL(159,159)\n  JVS(1066) = -B(1280)-0.75*B(1771)\nIF (DO_JVS(1067)) &\n! JVS(1067) = Jac_FULL(159,259)\n  JVS(1067) = 0.5*B(1278)\nIF (DO_JVS(1068)) &\n! JVS(1068) = Jac_FULL(159,337)\n  JVS(1068) = 0.5*B(1279)\nIF (DO_JVS(1069)) &\n! JVS(1069) = Jac_FULL(159,345)\n  JVS(1069) = -B(1281)\nIF (DO_JVS(1070)) &\n! JVS(1070) = Jac_FULL(160,160)\n  JVS(1070) = -B(770)-B(1811)\nIF (DO_JVS(1071)) &\n! JVS(1071) = Jac_FULL(160,278)\n  JVS(1071) = B(762)+0.25*B(768)\nIF (DO_JVS(1072)) &\n! JVS(1072) = Jac_FULL(160,328)\n  JVS(1072) = 0.25*B(769)\nIF (DO_JVS(1073)) &\n! JVS(1073) = Jac_FULL(160,337)\n  JVS(1073) = B(763)\nIF (DO_JVS(1074)) &\n! JVS(1074) = Jac_FULL(160,345)\n  JVS(1074) = -B(771)\nIF (DO_JVS(1075)) &\n! JVS(1075) = Jac_FULL(161,161)\n  JVS(1075) = -B(796)-B(1813)\nIF (DO_JVS(1076)) &\n! JVS(1076) = Jac_FULL(161,273)\n  JVS(1076) = B(786)+0.25*B(792)\nIF (DO_JVS(1077)) &\n! JVS(1077) = Jac_FULL(161,328)\n  JVS(1077) = 0.25*B(793)\nIF (DO_JVS(1078)) &\n! JVS(1078) = Jac_FULL(161,337)\n  JVS(1078) = B(787)\nIF (DO_JVS(1079)) &\n! JVS(1079) = Jac_FULL(161,345)\n  JVS(1079) = -B(797)\nIF (DO_JVS(1080)) &\n! JVS(1080) = Jac_FULL(162,138)\n  JVS(1080) = 0.5*B(780)\nIF (DO_JVS(1081)) &\n! JVS(1081) = Jac_FULL(162,162)\n  JVS(1081) = -B(798)\nIF (DO_JVS(1082)) &\n! JVS(1082) = Jac_FULL(162,273)\n  JVS(1082) = B(788)\nIF (DO_JVS(1083)) &\n! JVS(1083) = Jac_FULL(162,275)\n  JVS(1083) = 0\nIF (DO_JVS(1084)) &\n! JVS(1084) = Jac_FULL(162,345)\n  JVS(1084) = 0.5*B(781)-B(799)\nIF (DO_JVS(1085)) &\n! JVS(1085) = Jac_FULL(162,346)\n  JVS(1085) = B(789)\nIF (DO_JVS(1086)) &\n! JVS(1086) = Jac_FULL(163,163)\n  JVS(1086) = -B(832)-B(834)\nIF (DO_JVS(1087)) &\n! JVS(1087) = Jac_FULL(163,255)\n  JVS(1087) = 0.3*B(808)\nIF (DO_JVS(1088)) &\n! JVS(1088) = Jac_FULL(163,272)\n  JVS(1088) = 0.84*B(824)+B(828)+0.75*B(830)\nIF (DO_JVS(1089)) &\n! JVS(1089) = Jac_FULL(163,328)\n  JVS(1089) = 0.75*B(831)\nIF (DO_JVS(1090)) &\n! JVS(1090) = Jac_FULL(163,341)\n  JVS(1090) = 0.3*B(809)\nIF (DO_JVS(1091)) &\n! JVS(1091) = Jac_FULL(163,345)\n  JVS(1091) = -B(833)\nIF (DO_JVS(1092)) &\n! JVS(1092) = Jac_FULL(163,346)\n  JVS(1092) = 0.84*B(825)\nIF (DO_JVS(1093)) &\n! JVS(1093) = Jac_FULL(163,351)\n  JVS(1093) = B(829)-B(835)\nIF (DO_JVS(1094)) &\n! JVS(1094) = Jac_FULL(164,164)\n  JVS(1094) = -B(59)-B(615)-B(1646)\nIF (DO_JVS(1095)) &\n! JVS(1095) = Jac_FULL(164,328)\n  JVS(1095) = B(53)\nIF (DO_JVS(1096)) &\n! JVS(1096) = Jac_FULL(164,337)\n  JVS(1096) = B(54)\nIF (DO_JVS(1097)) &\n! JVS(1097) = Jac_FULL(164,340)\n  JVS(1097) = -B(616)\nIF (DO_JVS(1098)) &\n! JVS(1098) = Jac_FULL(164,345)\n  JVS(1098) = -B(60)\nIF (DO_JVS(1099)) &\n! JVS(1099) = Jac_FULL(165,165)\n  JVS(1099) = -B(138)-B(140)\nIF (DO_JVS(1100)) &\n! JVS(1100) = Jac_FULL(165,196)\n  JVS(1100) = B(136)\nIF (DO_JVS(1101)) &\n! JVS(1101) = Jac_FULL(165,337)\n  JVS(1101) = -B(141)\nIF (DO_JVS(1102)) &\n! JVS(1102) = Jac_FULL(165,345)\n  JVS(1102) = B(137)\nIF (DO_JVS(1103)) &\n! JVS(1103) = Jac_FULL(165,346)\n  JVS(1103) = -B(139)\nIF (DO_JVS(1104)) &\n! JVS(1104) = Jac_FULL(166,166)\n  JVS(1104) = -2*B(8)-B(11)-B(13)\nIF (DO_JVS(1105)) &\n! JVS(1105) = Jac_FULL(166,327)\n  JVS(1105) = -B(14)\nIF (DO_JVS(1106)) &\n! JVS(1106) = Jac_FULL(166,339)\n  JVS(1106) = -B(12)\nIF (DO_JVS(1107)) &\n! JVS(1107) = Jac_FULL(166,341)\n  JVS(1107) = -2*B(9)\nIF (DO_JVS(1108)) &\n! JVS(1108) = Jac_FULL(166,348)\n  JVS(1108) = -2*B(10)\nIF (DO_JVS(1109)) &\n! JVS(1109) = Jac_FULL(167,167)\n  JVS(1109) = -B(721)-B(723)-B(725)\nIF (DO_JVS(1110)) &\n! JVS(1110) = Jac_FULL(167,341)\n  JVS(1110) = -B(726)\nIF (DO_JVS(1111)) &\n! JVS(1111) = Jac_FULL(167,345)\n  JVS(1111) = -B(724)\nIF (DO_JVS(1112)) &\n! JVS(1112) = Jac_FULL(167,351)\n  JVS(1112) = -B(722)\nIF (DO_JVS(1113)) &\n! JVS(1113) = Jac_FULL(168,168)\n  JVS(1113) = -B(1097)-B(1099)-B(1630)-B(1785)\nIF (DO_JVS(1114)) &\n! JVS(1114) = Jac_FULL(168,304)\n  JVS(1114) = B(993)\nIF (DO_JVS(1115)) &\n! JVS(1115) = Jac_FULL(168,345)\n  JVS(1115) = -B(1098)-B(1100)\nIF (DO_JVS(1116)) &\n! JVS(1116) = Jac_FULL(168,346)\n  JVS(1116) = B(994)\nIF (DO_JVS(1117)) &\n! JVS(1117) = Jac_FULL(169,169)\n  JVS(1117) = -B(847)-B(1814)\nIF (DO_JVS(1118)) &\n! JVS(1118) = Jac_FULL(169,272)\n  JVS(1118) = B(826)+0.25*B(830)\nIF (DO_JVS(1119)) &\n! JVS(1119) = Jac_FULL(169,274)\n  JVS(1119) = 0.41*B(838)\nIF (DO_JVS(1120)) &\n! JVS(1120) = Jac_FULL(169,328)\n  JVS(1120) = 0.25*B(831)\nIF (DO_JVS(1121)) &\n! JVS(1121) = Jac_FULL(169,337)\n  JVS(1121) = B(827)+0.41*B(839)\nIF (DO_JVS(1122)) &\n! JVS(1122) = Jac_FULL(169,345)\n  JVS(1122) = -B(848)\nIF (DO_JVS(1123)) &\n! JVS(1123) = Jac_FULL(170,62)\n  JVS(1123) = B(645)\nIF (DO_JVS(1124)) &\n! JVS(1124) = Jac_FULL(170,170)\n  JVS(1124) = -B(650)-B(673)-B(1725)\nIF (DO_JVS(1125)) &\n! JVS(1125) = Jac_FULL(170,252)\n  JVS(1125) = B(649)\nIF (DO_JVS(1126)) &\n! JVS(1126) = Jac_FULL(170,331)\n  JVS(1126) = B(655)\nIF (DO_JVS(1127)) &\n! JVS(1127) = Jac_FULL(170,332)\n  JVS(1127) = B(656)\nIF (DO_JVS(1128)) &\n! JVS(1128) = Jac_FULL(170,345)\n  JVS(1128) = -B(674)\nIF (DO_JVS(1129)) &\n! JVS(1129) = Jac_FULL(170,346)\n  JVS(1129) = 0\nIF (DO_JVS(1130)) &\n! JVS(1130) = Jac_FULL(170,351)\n  JVS(1130) = -B(651)\nIF (DO_JVS(1131)) &\n! JVS(1131) = Jac_FULL(171,171)\n  JVS(1131) = -B(1246)-B(1248)-B(1250)\nIF (DO_JVS(1132)) &\n! JVS(1132) = Jac_FULL(171,230)\n  JVS(1132) = 0.224*B(1779)\nIF (DO_JVS(1133)) &\n! JVS(1133) = Jac_FULL(171,301)\n  JVS(1133) = 0.068*B(1790)\nIF (DO_JVS(1134)) &\n! JVS(1134) = Jac_FULL(171,335)\n  JVS(1134) = -B(1251)\nIF (DO_JVS(1135)) &\n! JVS(1135) = Jac_FULL(171,337)\n  JVS(1135) = -B(1249)\nIF (DO_JVS(1136)) &\n! JVS(1136) = Jac_FULL(171,346)\n  JVS(1136) = -B(1247)\nIF (DO_JVS(1137)) &\n! JVS(1137) = Jac_FULL(172,172)\n  JVS(1137) = -B(1252)-B(1254)-B(1256)\nIF (DO_JVS(1138)) &\n! JVS(1138) = Jac_FULL(172,231)\n  JVS(1138) = 0.182*B(1780)\nIF (DO_JVS(1139)) &\n! JVS(1139) = Jac_FULL(172,301)\n  JVS(1139) = 0.128*B(1790)\nIF (DO_JVS(1140)) &\n! JVS(1140) = Jac_FULL(172,335)\n  JVS(1140) = -B(1257)\nIF (DO_JVS(1141)) &\n! JVS(1141) = Jac_FULL(172,337)\n  JVS(1141) = -B(1255)\nIF (DO_JVS(1142)) &\n! JVS(1142) = Jac_FULL(172,346)\n  JVS(1142) = -B(1253)\nIF (DO_JVS(1143)) &\n! JVS(1143) = Jac_FULL(173,101)\n  JVS(1143) = 0.45*B(1385)\nIF (DO_JVS(1144)) &\n! JVS(1144) = Jac_FULL(173,173)\n  JVS(1144) = -B(1336)\nIF (DO_JVS(1145)) &\n! JVS(1145) = Jac_FULL(173,200)\n  JVS(1145) = 0.5*B(1348)\nIF (DO_JVS(1146)) &\n! JVS(1146) = Jac_FULL(173,201)\n  JVS(1146) = 0.52*B(1470)\nIF (DO_JVS(1147)) &\n! JVS(1147) = Jac_FULL(173,221)\n  JVS(1147) = 0.43*B(1465)\nIF (DO_JVS(1148)) &\n! JVS(1148) = Jac_FULL(173,240)\n  JVS(1148) = 0.15*B(1407)\nIF (DO_JVS(1149)) &\n! JVS(1149) = Jac_FULL(173,246)\n  JVS(1149) = 0.15*B(245)\nIF (DO_JVS(1150)) &\n! JVS(1150) = Jac_FULL(173,289)\n  JVS(1150) = 0.5*B(915)\nIF (DO_JVS(1151)) &\n! JVS(1151) = Jac_FULL(173,322)\n  JVS(1151) = 0.15*B(283)\nIF (DO_JVS(1152)) &\n! JVS(1152) = Jac_FULL(173,324)\n  JVS(1152) = 0.5*B(916)\nIF (DO_JVS(1153)) &\n! JVS(1153) = Jac_FULL(173,337)\n  JVS(1153) = 0.15*B(246)+0.15*B(284)+0.15*B(1408)\nIF (DO_JVS(1154)) &\n! JVS(1154) = Jac_FULL(173,345)\n  JVS(1154) = -B(1337)+0.5*B(1349)+0.45*B(1386)+0.43*B(1466)+0.52*B(1471)\nIF (DO_JVS(1155)) &\n! JVS(1155) = Jac_FULL(174,174)\n  JVS(1155) = -B(1310)-B(1794)\nIF (DO_JVS(1156)) &\n! JVS(1156) = Jac_FULL(174,223)\n  JVS(1156) = 0.725*B(1036)\nIF (DO_JVS(1157)) &\n! JVS(1157) = Jac_FULL(174,224)\n  JVS(1157) = 0.725*B(1043)\nIF (DO_JVS(1158)) &\n! JVS(1158) = Jac_FULL(174,232)\n  JVS(1158) = 0.35*B(1050)\nIF (DO_JVS(1159)) &\n! JVS(1159) = Jac_FULL(174,337)\n  JVS(1159) = 0.725*B(1037)+0.725*B(1044)+0.35*B(1051)\nIF (DO_JVS(1160)) &\n! JVS(1160) = Jac_FULL(174,345)\n  JVS(1160) = -B(1311)\nIF (DO_JVS(1161)) &\n! JVS(1161) = Jac_FULL(175,175)\n  JVS(1161) = -B(1093)-B(1095)-B(1629)-B(1784)\nIF (DO_JVS(1162)) &\n! JVS(1162) = Jac_FULL(175,305)\n  JVS(1162) = B(985)\nIF (DO_JVS(1163)) &\n! JVS(1163) = Jac_FULL(175,345)\n  JVS(1163) = -B(1094)-B(1096)\nIF (DO_JVS(1164)) &\n! JVS(1164) = Jac_FULL(175,346)\n  JVS(1164) = B(986)\nIF (DO_JVS(1165)) &\n! JVS(1165) = Jac_FULL(176,137)\n  JVS(1165) = 0.5*B(743)\nIF (DO_JVS(1166)) &\n! JVS(1166) = Jac_FULL(176,176)\n  JVS(1166) = -B(772)\nIF (DO_JVS(1167)) &\n! JVS(1167) = Jac_FULL(176,277)\n  JVS(1167) = 0\nIF (DO_JVS(1168)) &\n! JVS(1168) = Jac_FULL(176,278)\n  JVS(1168) = 0.16*B(764)\nIF (DO_JVS(1169)) &\n! JVS(1169) = Jac_FULL(176,345)\n  JVS(1169) = 0.5*B(744)-B(773)\nIF (DO_JVS(1170)) &\n! JVS(1170) = Jac_FULL(176,346)\n  JVS(1170) = 0.16*B(765)\nIF (DO_JVS(1171)) &\n! JVS(1171) = Jac_FULL(177,177)\n  JVS(1171) = -B(836)\nIF (DO_JVS(1172)) &\n! JVS(1172) = Jac_FULL(177,211)\n  JVS(1172) = 0.5*B(818)+0.5*B(820)+B(822)\nIF (DO_JVS(1173)) &\n! JVS(1173) = Jac_FULL(177,237)\n  JVS(1173) = B(816)\nIF (DO_JVS(1174)) &\n! JVS(1174) = Jac_FULL(177,255)\n  JVS(1174) = B(810)\nIF (DO_JVS(1175)) &\n! JVS(1175) = Jac_FULL(177,272)\n  JVS(1175) = 0.16*B(824)\nIF (DO_JVS(1176)) &\n! JVS(1176) = Jac_FULL(177,341)\n  JVS(1176) = 0.5*B(821)\nIF (DO_JVS(1177)) &\n! JVS(1177) = Jac_FULL(177,345)\n  JVS(1177) = 0.5*B(819)-B(837)\nIF (DO_JVS(1178)) &\n! JVS(1178) = Jac_FULL(177,346)\n  JVS(1178) = 0.16*B(825)\nIF (DO_JVS(1179)) &\n! JVS(1179) = Jac_FULL(177,351)\n  JVS(1179) = B(811)+B(817)+B(823)\nIF (DO_JVS(1180)) &\n! JVS(1180) = Jac_FULL(178,69)\n  JVS(1180) = B(124)+B(126)\nIF (DO_JVS(1181)) &\n! JVS(1181) = Jac_FULL(178,98)\n  JVS(1181) = 0.5*B(134)\nIF (DO_JVS(1182)) &\n! JVS(1182) = Jac_FULL(178,178)\n  JVS(1182) = -B(128)-B(130)-B(132)\nIF (DO_JVS(1183)) &\n! JVS(1183) = Jac_FULL(178,337)\n  JVS(1183) = -B(133)\nIF (DO_JVS(1184)) &\n! JVS(1184) = Jac_FULL(178,345)\n  JVS(1184) = B(125)+0.5*B(135)\nIF (DO_JVS(1185)) &\n! JVS(1185) = Jac_FULL(178,346)\n  JVS(1185) = -B(129)-B(131)\nIF (DO_JVS(1186)) &\n! JVS(1186) = Jac_FULL(178,351)\n  JVS(1186) = B(127)\nIF (DO_JVS(1187)) &\n! JVS(1187) = Jac_FULL(179,179)\n  JVS(1187) = -2*B(1)-B(4)-B(6)\nIF (DO_JVS(1188)) &\n! JVS(1188) = Jac_FULL(179,327)\n  JVS(1188) = -B(7)\nIF (DO_JVS(1189)) &\n! JVS(1189) = Jac_FULL(179,339)\n  JVS(1189) = -B(5)\nIF (DO_JVS(1190)) &\n! JVS(1190) = Jac_FULL(179,341)\n  JVS(1190) = -2*B(2)\nIF (DO_JVS(1191)) &\n! JVS(1191) = Jac_FULL(179,348)\n  JVS(1191) = -2*B(3)\nIF (DO_JVS(1192)) &\n! JVS(1192) = Jac_FULL(180,180)\n  JVS(1192) = -B(1220)-B(1222)\nIF (DO_JVS(1193)) &\n! JVS(1193) = Jac_FULL(180,299)\n  JVS(1193) = 0.435*B(1218)\nIF (DO_JVS(1194)) &\n! JVS(1194) = Jac_FULL(180,337)\n  JVS(1194) = -B(1223)\nIF (DO_JVS(1195)) &\n! JVS(1195) = Jac_FULL(180,345)\n  JVS(1195) = 0.435*B(1219)\nIF (DO_JVS(1196)) &\n! JVS(1196) = Jac_FULL(180,346)\n  JVS(1196) = -B(1221)\nIF (DO_JVS(1197)) &\n! JVS(1197) = Jac_FULL(181,181)\n  JVS(1197) = -0.9*B(495)-B(547)-B(605)-B(1699)\nIF (DO_JVS(1198)) &\n! JVS(1198) = Jac_FULL(181,334)\n  JVS(1198) = -0.9*B(496)\nIF (DO_JVS(1199)) &\n! JVS(1199) = Jac_FULL(181,340)\n  JVS(1199) = -B(606)\nIF (DO_JVS(1200)) &\n! JVS(1200) = Jac_FULL(181,345)\n  JVS(1200) = -B(548)\nIF (DO_JVS(1201)) &\n! JVS(1201) = Jac_FULL(182,182)\n  JVS(1201) = -0.33*B(1214)-0.33*B(1216)\nIF (DO_JVS(1202)) &\n! JVS(1202) = Jac_FULL(182,301)\n  JVS(1202) = 0.461*B(1212)\nIF (DO_JVS(1203)) &\n! JVS(1203) = Jac_FULL(182,303)\n  JVS(1203) = 0.041*B(1316)\nIF (DO_JVS(1204)) &\n! JVS(1204) = Jac_FULL(182,337)\n  JVS(1204) = -0.33*B(1217)\nIF (DO_JVS(1205)) &\n! JVS(1205) = Jac_FULL(182,345)\n  JVS(1205) = 0.461*B(1213)+0.041*B(1317)\nIF (DO_JVS(1206)) &\n! JVS(1206) = Jac_FULL(182,346)\n  JVS(1206) = -0.33*B(1215)\nIF (DO_JVS(1207)) &\n! JVS(1207) = Jac_FULL(183,183)\n  JVS(1207) = -B(106)-B(344)-B(419)-B(617)\nIF (DO_JVS(1208)) &\n! JVS(1208) = Jac_FULL(183,340)\n  JVS(1208) = -B(618)\nIF (DO_JVS(1209)) &\n! JVS(1209) = Jac_FULL(183,342)\n  JVS(1209) = -B(420)\nIF (DO_JVS(1210)) &\n! JVS(1210) = Jac_FULL(183,345)\n  JVS(1210) = -B(107)\nIF (DO_JVS(1211)) &\n! JVS(1211) = Jac_FULL(183,351)\n  JVS(1211) = -B(345)\nIF (DO_JVS(1212)) &\n! JVS(1212) = Jac_FULL(184,184)\n  JVS(1212) = -B(1301)-B(1302)\nIF (DO_JVS(1213)) &\n! JVS(1213) = Jac_FULL(184,259)\n  JVS(1213) = B(1289)\nIF (DO_JVS(1214)) &\n! JVS(1214) = Jac_FULL(184,308)\n  JVS(1214) = B(1295)\nIF (DO_JVS(1215)) &\n! JVS(1215) = Jac_FULL(184,335)\n  JVS(1215) = B(1290)+B(1296)\nIF (DO_JVS(1216)) &\n! JVS(1216) = Jac_FULL(184,345)\n  JVS(1216) = -B(1303)\nIF (DO_JVS(1217)) &\n! JVS(1217) = Jac_FULL(185,119)\n  JVS(1217) = B(1013)\nIF (DO_JVS(1218)) &\n! JVS(1218) = Jac_FULL(185,147)\n  JVS(1218) = 0.444*B(1308)+0.454*B(1796)\nIF (DO_JVS(1219)) &\n! JVS(1219) = Jac_FULL(185,185)\n  JVS(1219) = -B(1260)-B(1768)\nIF (DO_JVS(1220)) &\n! JVS(1220) = Jac_FULL(185,230)\n  JVS(1220) = 0.112*B(1779)\nIF (DO_JVS(1221)) &\n! JVS(1221) = Jac_FULL(185,231)\n  JVS(1221) = 0.182*B(1780)\nIF (DO_JVS(1222)) &\n! JVS(1222) = Jac_FULL(185,285)\n  JVS(1222) = 0\nIF (DO_JVS(1223)) &\n! JVS(1223) = Jac_FULL(185,286)\n  JVS(1223) = 0\nIF (DO_JVS(1224)) &\n! JVS(1224) = Jac_FULL(185,301)\n  JVS(1224) = 0.162*B(1790)\nIF (DO_JVS(1225)) &\n! JVS(1225) = Jac_FULL(185,345)\n  JVS(1225) = B(1014)-B(1261)+0.444*B(1309)\nIF (DO_JVS(1226)) &\n! JVS(1226) = Jac_FULL(186,186)\n  JVS(1226) = -B(1182)-B(1186)-B(1188)-B(1192)-B(1194)-B(1633)-B(1788)-B(1789)\nIF (DO_JVS(1227)) &\n! JVS(1227) = Jac_FULL(186,311)\n  JVS(1227) = B(1151)\nIF (DO_JVS(1228)) &\n! JVS(1228) = Jac_FULL(186,337)\n  JVS(1228) = B(1152)\nIF (DO_JVS(1229)) &\n! JVS(1229) = Jac_FULL(186,345)\n  JVS(1229) = -B(1183)-B(1187)-B(1189)-B(1193)-B(1195)\nIF (DO_JVS(1230)) &\n! JVS(1230) = Jac_FULL(187,187)\n  JVS(1230) = -B(1015)-B(1017)-B(1023)-B(1775)\nIF (DO_JVS(1231)) &\n! JVS(1231) = Jac_FULL(187,305)\n  JVS(1231) = 0.937*B(957)\nIF (DO_JVS(1232)) &\n! JVS(1232) = Jac_FULL(187,337)\n  JVS(1232) = 0.937*B(958)\nIF (DO_JVS(1233)) &\n! JVS(1233) = Jac_FULL(187,345)\n  JVS(1233) = -B(1016)-B(1018)-B(1024)\nIF (DO_JVS(1234)) &\n! JVS(1234) = Jac_FULL(188,188)\n  JVS(1234) = -B(271)\nIF (DO_JVS(1235)) &\n! JVS(1235) = Jac_FULL(188,249)\n  JVS(1235) = 0.375*B(259)\nIF (DO_JVS(1236)) &\n! JVS(1236) = Jac_FULL(188,250)\n  JVS(1236) = 0.25*B(267)\nIF (DO_JVS(1237)) &\n! JVS(1237) = Jac_FULL(188,260)\n  JVS(1237) = 0.25*B(216)\nIF (DO_JVS(1238)) &\n! JVS(1238) = Jac_FULL(188,289)\n  JVS(1238) = 0.25*B(911)\nIF (DO_JVS(1239)) &\n! JVS(1239) = Jac_FULL(188,300)\n  JVS(1239) = 0.38*B(257)\nIF (DO_JVS(1240)) &\n! JVS(1240) = Jac_FULL(188,318)\n  JVS(1240) = 0.375*B(255)\nIF (DO_JVS(1241)) &\n! JVS(1241) = Jac_FULL(188,319)\n  JVS(1241) = 0.38*B(253)\nIF (DO_JVS(1242)) &\n! JVS(1242) = Jac_FULL(188,320)\n  JVS(1242) = 0.25*B(263)\nIF (DO_JVS(1243)) &\n! JVS(1243) = Jac_FULL(188,321)\n  JVS(1243) = 0.25*B(214)\nIF (DO_JVS(1244)) &\n! JVS(1244) = Jac_FULL(188,323)\n  JVS(1244) = 0.25*B(265)\nIF (DO_JVS(1245)) &\n! JVS(1245) = Jac_FULL(188,328)\n  JVS(1245) = 0.25*B(215)+0.25*B(217)+0.38*B(254)+0.375*B(256)+0.38*B(258)+0.375*B(260)+0.25*B(264)+0.25*B(266)+0.25&\n                &*B(268)+0.25*B(912)\nIF (DO_JVS(1246)) &\n! JVS(1246) = Jac_FULL(188,345)\n  JVS(1246) = -B(272)\nIF (DO_JVS(1247)) &\n! JVS(1247) = Jac_FULL(189,149)\n  JVS(1247) = 0.07*B(1344)\nIF (DO_JVS(1248)) &\n! JVS(1248) = Jac_FULL(189,189)\n  JVS(1248) = -B(1352)-B(1354)\nIF (DO_JVS(1249)) &\n! JVS(1249) = Jac_FULL(189,200)\n  JVS(1249) = 0.05*B(1348)\nIF (DO_JVS(1250)) &\n! JVS(1250) = Jac_FULL(189,220)\n  JVS(1250) = 0.3*B(1338)\nIF (DO_JVS(1251)) &\n! JVS(1251) = Jac_FULL(189,337)\n  JVS(1251) = -B(1355)\nIF (DO_JVS(1252)) &\n! JVS(1252) = Jac_FULL(189,345)\n  JVS(1252) = 0.3*B(1339)+0.07*B(1345)+0.05*B(1349)\nIF (DO_JVS(1253)) &\n! JVS(1253) = Jac_FULL(189,346)\n  JVS(1253) = -B(1353)\nIF (DO_JVS(1254)) &\n! JVS(1254) = Jac_FULL(189,351)\n  JVS(1254) = 0\nIF (DO_JVS(1255)) &\n! JVS(1255) = Jac_FULL(190,168)\n  JVS(1255) = B(1097)\nIF (DO_JVS(1256)) &\n! JVS(1256) = Jac_FULL(190,190)\n  JVS(1256) = -B(1120)-B(1121)-B(1123)-B(1125)\nIF (DO_JVS(1257)) &\n! JVS(1257) = Jac_FULL(190,304)\n  JVS(1257) = 0\nIF (DO_JVS(1258)) &\n! JVS(1258) = Jac_FULL(190,337)\n  JVS(1258) = -B(1122)\nIF (DO_JVS(1259)) &\n! JVS(1259) = Jac_FULL(190,345)\n  JVS(1259) = B(1098)\nIF (DO_JVS(1260)) &\n! JVS(1260) = Jac_FULL(190,346)\n  JVS(1260) = -B(1124)-B(1126)\nIF (DO_JVS(1261)) &\n! JVS(1261) = Jac_FULL(191,191)\n  JVS(1261) = -B(717)-B(731)-B(733)\nIF (DO_JVS(1262)) &\n! JVS(1262) = Jac_FULL(191,341)\n  JVS(1262) = -B(734)\nIF (DO_JVS(1263)) &\n! JVS(1263) = Jac_FULL(191,345)\n  JVS(1263) = -B(732)\nIF (DO_JVS(1264)) &\n! JVS(1264) = Jac_FULL(191,351)\n  JVS(1264) = -B(718)\nIF (DO_JVS(1265)) &\n! JVS(1265) = Jac_FULL(192,192)\n  JVS(1265) = -B(1019)-B(1021)-B(1025)-B(1776)\nIF (DO_JVS(1266)) &\n! JVS(1266) = Jac_FULL(192,304)\n  JVS(1266) = 0.937*B(961)\nIF (DO_JVS(1267)) &\n! JVS(1267) = Jac_FULL(192,337)\n  JVS(1267) = 0.937*B(962)\nIF (DO_JVS(1268)) &\n! JVS(1268) = Jac_FULL(192,345)\n  JVS(1268) = -B(1020)-B(1022)-B(1026)\nIF (DO_JVS(1269)) &\n! JVS(1269) = Jac_FULL(193,193)\n  JVS(1269) = -B(865)-B(867)-B(869)\nIF (DO_JVS(1270)) &\n! JVS(1270) = Jac_FULL(193,291)\n  JVS(1270) = B(853)\nIF (DO_JVS(1271)) &\n! JVS(1271) = Jac_FULL(193,341)\n  JVS(1271) = -B(868)\nIF (DO_JVS(1272)) &\n! JVS(1272) = Jac_FULL(193,345)\n  JVS(1272) = -B(866)\nIF (DO_JVS(1273)) &\n! JVS(1273) = Jac_FULL(193,346)\n  JVS(1273) = B(854)\nIF (DO_JVS(1274)) &\n! JVS(1274) = Jac_FULL(193,351)\n  JVS(1274) = -B(870)\nIF (DO_JVS(1275)) &\n! JVS(1275) = Jac_FULL(194,194)\n  JVS(1275) = -B(1258)-B(1769)\nIF (DO_JVS(1276)) &\n! JVS(1276) = Jac_FULL(194,230)\n  JVS(1276) = 0.552*B(1779)\nIF (DO_JVS(1277)) &\n! JVS(1277) = Jac_FULL(194,231)\n  JVS(1277) = 0.454*B(1780)\nIF (DO_JVS(1278)) &\n! JVS(1278) = Jac_FULL(194,301)\n  JVS(1278) = 0.481*B(1790)\nIF (DO_JVS(1279)) &\n! JVS(1279) = Jac_FULL(194,303)\n  JVS(1279) = 0.022*B(1316)\nIF (DO_JVS(1280)) &\n! JVS(1280) = Jac_FULL(194,345)\n  JVS(1280) = -B(1259)+0.022*B(1317)\nIF (DO_JVS(1281)) &\n! JVS(1281) = Jac_FULL(195,143)\n  JVS(1281) = 0.54*B(1381)\nIF (DO_JVS(1282)) &\n! JVS(1282) = Jac_FULL(195,195)\n  JVS(1282) = -B(1414)-B(1416)\nIF (DO_JVS(1283)) &\n! JVS(1283) = Jac_FULL(195,220)\n  JVS(1283) = 0\nIF (DO_JVS(1284)) &\n! JVS(1284) = Jac_FULL(195,341)\n  JVS(1284) = 0\nIF (DO_JVS(1285)) &\n! JVS(1285) = Jac_FULL(195,345)\n  JVS(1285) = 0.54*B(1382)-B(1415)\nIF (DO_JVS(1286)) &\n! JVS(1286) = Jac_FULL(195,351)\n  JVS(1286) = -B(1417)\nIF (DO_JVS(1287)) &\n! JVS(1287) = Jac_FULL(196,165)\n  JVS(1287) = B(140)\nIF (DO_JVS(1288)) &\n! JVS(1288) = Jac_FULL(196,178)\n  JVS(1288) = B(130)\nIF (DO_JVS(1289)) &\n! JVS(1289) = Jac_FULL(196,196)\n  JVS(1289) = -B(136)-B(1686)\nIF (DO_JVS(1290)) &\n! JVS(1290) = Jac_FULL(196,337)\n  JVS(1290) = B(141)\nIF (DO_JVS(1291)) &\n! JVS(1291) = Jac_FULL(196,345)\n  JVS(1291) = -B(137)\nIF (DO_JVS(1292)) &\n! JVS(1292) = Jac_FULL(196,346)\n  JVS(1292) = B(131)\nIF (DO_JVS(1293)) &\n! JVS(1293) = Jac_FULL(196,351)\n  JVS(1293) = 0\nIF (DO_JVS(1294)) &\n! JVS(1294) = Jac_FULL(197,126)\n  JVS(1294) = B(166)+B(1659)\nIF (DO_JVS(1295)) &\n! JVS(1295) = Jac_FULL(197,197)\n  JVS(1295) = -B(160)-B(162)-B(164)\nIF (DO_JVS(1296)) &\n! JVS(1296) = Jac_FULL(197,233)\n  JVS(1296) = 0.68*B(154)+0.3*B(1660)\nIF (DO_JVS(1297)) &\n! JVS(1297) = Jac_FULL(197,335)\n  JVS(1297) = -B(165)\nIF (DO_JVS(1298)) &\n! JVS(1298) = Jac_FULL(197,337)\n  JVS(1298) = -B(161)\nIF (DO_JVS(1299)) &\n! JVS(1299) = Jac_FULL(197,345)\n  JVS(1299) = 0.68*B(155)\nIF (DO_JVS(1300)) &\n! JVS(1300) = Jac_FULL(197,346)\n  JVS(1300) = -B(163)\nIF (DO_JVS(1301)) &\n! JVS(1301) = Jac_FULL(198,174)\n  JVS(1301) = 0.667*B(1310)\nIF (DO_JVS(1302)) &\n! JVS(1302) = Jac_FULL(198,198)\n  JVS(1302) = -B(1312)-B(1795)\nIF (DO_JVS(1303)) &\n! JVS(1303) = Jac_FULL(198,223)\n  JVS(1303) = 0.824*B(1031)\nIF (DO_JVS(1304)) &\n! JVS(1304) = Jac_FULL(198,224)\n  JVS(1304) = 0.452*B(1038)\nIF (DO_JVS(1305)) &\n! JVS(1305) = Jac_FULL(198,232)\n  JVS(1305) = B(1045)\nIF (DO_JVS(1306)) &\n! JVS(1306) = Jac_FULL(198,337)\n  JVS(1306) = 0\nIF (DO_JVS(1307)) &\n! JVS(1307) = Jac_FULL(198,345)\n  JVS(1307) = 0.667*B(1311)-B(1313)\nIF (DO_JVS(1308)) &\n! JVS(1308) = Jac_FULL(199,199)\n  JVS(1308) = -B(1029)-B(1778)\nIF (DO_JVS(1309)) &\n! JVS(1309) = Jac_FULL(199,304)\n  JVS(1309) = B(963)\nIF (DO_JVS(1310)) &\n! JVS(1310) = Jac_FULL(199,337)\n  JVS(1310) = B(964)\nIF (DO_JVS(1311)) &\n! JVS(1311) = Jac_FULL(199,345)\n  JVS(1311) = -B(1030)\nIF (DO_JVS(1312)) &\n! JVS(1312) = Jac_FULL(200,200)\n  JVS(1312) = -B(1348)-B(1350)\nIF (DO_JVS(1313)) &\n! JVS(1313) = Jac_FULL(200,345)\n  JVS(1313) = -B(1349)\nIF (DO_JVS(1314)) &\n! JVS(1314) = Jac_FULL(200,351)\n  JVS(1314) = -B(1351)\nIF (DO_JVS(1315)) &\n! JVS(1315) = Jac_FULL(201,82)\n  JVS(1315) = 0.3*B(1383)\nIF (DO_JVS(1316)) &\n! JVS(1316) = Jac_FULL(201,101)\n  JVS(1316) = 0.56*B(1385)\nIF (DO_JVS(1317)) &\n! JVS(1317) = Jac_FULL(201,149)\n  JVS(1317) = 0.4*B(1344)\nIF (DO_JVS(1318)) &\n! JVS(1318) = Jac_FULL(201,158)\n  JVS(1318) = 0.44*B(1418)+0.44*B(1420)\nIF (DO_JVS(1319)) &\n! JVS(1319) = Jac_FULL(201,200)\n  JVS(1319) = 0.6*B(1348)+0.4*B(1350)\nIF (DO_JVS(1320)) &\n! JVS(1320) = Jac_FULL(201,201)\n  JVS(1320) = -B(1470)-B(1472)-B(1474)\nIF (DO_JVS(1321)) &\n! JVS(1321) = Jac_FULL(201,341)\n  JVS(1321) = -B(1473)\nIF (DO_JVS(1322)) &\n! JVS(1322) = Jac_FULL(201,345)\n  JVS(1322) = 0.4*B(1345)+0.6*B(1349)+0.3*B(1384)+0.56*B(1386)+0.44*B(1419)-B(1471)\nIF (DO_JVS(1323)) &\n! JVS(1323) = Jac_FULL(201,351)\n  JVS(1323) = 0.4*B(1351)+0.44*B(1421)\nIF (DO_JVS(1324)) &\n! JVS(1324) = Jac_FULL(202,158)\n  JVS(1324) = 0.727*B(1418)\nIF (DO_JVS(1325)) &\n! JVS(1325) = Jac_FULL(202,195)\n  JVS(1325) = 0.8*B(1414)\nIF (DO_JVS(1326)) &\n! JVS(1326) = Jac_FULL(202,200)\n  JVS(1326) = 0\nIF (DO_JVS(1327)) &\n! JVS(1327) = Jac_FULL(202,202)\n  JVS(1327) = -B(1422)-B(1424)-B(1426)\nIF (DO_JVS(1328)) &\n! JVS(1328) = Jac_FULL(202,220)\n  JVS(1328) = 0\nIF (DO_JVS(1329)) &\n! JVS(1329) = Jac_FULL(202,341)\n  JVS(1329) = -B(1425)\nIF (DO_JVS(1330)) &\n! JVS(1330) = Jac_FULL(202,345)\n  JVS(1330) = 0.8*B(1415)+0.727*B(1419)-B(1423)\nIF (DO_JVS(1331)) &\n! JVS(1331) = Jac_FULL(202,351)\n  JVS(1331) = -B(1427)\nIF (DO_JVS(1332)) &\n! JVS(1332) = Jac_FULL(203,117)\n  JVS(1332) = B(1804)\nIF (DO_JVS(1333)) &\n! JVS(1333) = Jac_FULL(203,158)\n  JVS(1333) = 0.073*B(1418)+0.3*B(1420)\nIF (DO_JVS(1334)) &\n! JVS(1334) = Jac_FULL(203,195)\n  JVS(1334) = 0.06*B(1414)+0.742*B(1416)\nIF (DO_JVS(1335)) &\n! JVS(1335) = Jac_FULL(203,200)\n  JVS(1335) = 0\nIF (DO_JVS(1336)) &\n! JVS(1336) = Jac_FULL(203,202)\n  JVS(1336) = 0.3*B(1422)+0.3*B(1426)\nIF (DO_JVS(1337)) &\n! JVS(1337) = Jac_FULL(203,203)\n  JVS(1337) = -B(1453)-B(1455)\nIF (DO_JVS(1338)) &\n! JVS(1338) = Jac_FULL(203,220)\n  JVS(1338) = 0\nIF (DO_JVS(1339)) &\n! JVS(1339) = Jac_FULL(203,235)\n  JVS(1339) = 0\nIF (DO_JVS(1340)) &\n! JVS(1340) = Jac_FULL(203,236)\n  JVS(1340) = B(1443)+B(1445)+B(1447)+B(1461)\nIF (DO_JVS(1341)) &\n! JVS(1341) = Jac_FULL(203,328)\n  JVS(1341) = B(1462)\nIF (DO_JVS(1342)) &\n! JVS(1342) = Jac_FULL(203,335)\n  JVS(1342) = B(1444)-B(1456)\nIF (DO_JVS(1343)) &\n! JVS(1343) = Jac_FULL(203,337)\n  JVS(1343) = 0\nIF (DO_JVS(1344)) &\n! JVS(1344) = Jac_FULL(203,341)\n  JVS(1344) = -B(1454)\nIF (DO_JVS(1345)) &\n! JVS(1345) = Jac_FULL(203,345)\n  JVS(1345) = 0.06*B(1415)+0.073*B(1419)+0.3*B(1423)\nIF (DO_JVS(1346)) &\n! JVS(1346) = Jac_FULL(203,346)\n  JVS(1346) = B(1446)\nIF (DO_JVS(1347)) &\n! JVS(1347) = Jac_FULL(203,351)\n  JVS(1347) = 0.742*B(1417)+0.3*B(1421)+0.3*B(1427)+B(1448)\nIF (DO_JVS(1348)) &\n! JVS(1348) = Jac_FULL(204,82)\n  JVS(1348) = 0.06*B(1383)\nIF (DO_JVS(1349)) &\n! JVS(1349) = Jac_FULL(204,101)\n  JVS(1349) = 0.06*B(1385)\nIF (DO_JVS(1350)) &\n! JVS(1350) = Jac_FULL(204,116)\n  JVS(1350) = B(1356)+B(1687)\nIF (DO_JVS(1351)) &\n! JVS(1351) = Jac_FULL(204,149)\n  JVS(1351) = B(1346)\nIF (DO_JVS(1352)) &\n! JVS(1352) = Jac_FULL(204,189)\n  JVS(1352) = 0.89*B(1352)+B(1354)\nIF (DO_JVS(1353)) &\n! JVS(1353) = Jac_FULL(204,200)\n  JVS(1353) = B(1350)\nIF (DO_JVS(1354)) &\n! JVS(1354) = Jac_FULL(204,204)\n  JVS(1354) = -B(1428)-B(1430)-B(1802)\nIF (DO_JVS(1355)) &\n! JVS(1355) = Jac_FULL(204,220)\n  JVS(1355) = 0.7*B(1338)+B(1340)+0.62*B(1342)\nIF (DO_JVS(1356)) &\n! JVS(1356) = Jac_FULL(204,337)\n  JVS(1356) = B(1355)\nIF (DO_JVS(1357)) &\n! JVS(1357) = Jac_FULL(204,341)\n  JVS(1357) = 0.62*B(1343)\nIF (DO_JVS(1358)) &\n! JVS(1358) = Jac_FULL(204,345)\n  JVS(1358) = 0.7*B(1339)+B(1357)+0.06*B(1384)+0.06*B(1386)-B(1429)\nIF (DO_JVS(1359)) &\n! JVS(1359) = Jac_FULL(204,346)\n  JVS(1359) = 0.89*B(1353)\nIF (DO_JVS(1360)) &\n! JVS(1360) = Jac_FULL(204,351)\n  JVS(1360) = B(1341)+B(1347)+B(1351)-B(1431)\nIF (DO_JVS(1361)) &\n! JVS(1361) = Jac_FULL(205,175)\n  JVS(1361) = B(1093)\nIF (DO_JVS(1362)) &\n! JVS(1362) = Jac_FULL(205,205)\n  JVS(1362) = -B(1113)-B(1114)-B(1116)-B(1118)\nIF (DO_JVS(1363)) &\n! JVS(1363) = Jac_FULL(205,305)\n  JVS(1363) = 0\nIF (DO_JVS(1364)) &\n! JVS(1364) = Jac_FULL(205,337)\n  JVS(1364) = -B(1115)\nIF (DO_JVS(1365)) &\n! JVS(1365) = Jac_FULL(205,345)\n  JVS(1365) = B(1094)\nIF (DO_JVS(1366)) &\n! JVS(1366) = Jac_FULL(205,346)\n  JVS(1366) = -B(1117)-B(1119)\nIF (DO_JVS(1367)) &\n! JVS(1367) = Jac_FULL(206,206)\n  JVS(1367) = -B(1127)-B(1129)-B(1131)-B(1133)\nIF (DO_JVS(1368)) &\n! JVS(1368) = Jac_FULL(206,268)\n  JVS(1368) = B(1103)\nIF (DO_JVS(1369)) &\n! JVS(1369) = Jac_FULL(206,337)\n  JVS(1369) = -B(1130)\nIF (DO_JVS(1370)) &\n! JVS(1370) = Jac_FULL(206,345)\n  JVS(1370) = B(1104)\nIF (DO_JVS(1371)) &\n! JVS(1371) = Jac_FULL(206,346)\n  JVS(1371) = -B(1132)-B(1134)\nIF (DO_JVS(1372)) &\n! JVS(1372) = Jac_FULL(207,207)\n  JVS(1372) = -B(1128)-B(1135)-B(1137)-B(1139)\nIF (DO_JVS(1373)) &\n! JVS(1373) = Jac_FULL(207,267)\n  JVS(1373) = B(1107)\nIF (DO_JVS(1374)) &\n! JVS(1374) = Jac_FULL(207,337)\n  JVS(1374) = -B(1136)\nIF (DO_JVS(1375)) &\n! JVS(1375) = Jac_FULL(207,345)\n  JVS(1375) = B(1108)\nIF (DO_JVS(1376)) &\n! JVS(1376) = Jac_FULL(207,346)\n  JVS(1376) = -B(1138)-B(1140)\nIF (DO_JVS(1377)) &\n! JVS(1377) = Jac_FULL(208,131)\n  JVS(1377) = 0.6*B(1262)\nIF (DO_JVS(1378)) &\n! JVS(1378) = Jac_FULL(208,147)\n  JVS(1378) = 0.318*B(1308)+0.391*B(1796)\nIF (DO_JVS(1379)) &\n! JVS(1379) = Jac_FULL(208,208)\n  JVS(1379) = -B(1266)-B(1765)\nIF (DO_JVS(1380)) &\n! JVS(1380) = Jac_FULL(208,243)\n  JVS(1380) = 0.13*B(1078)+0.2*B(1082)\nIF (DO_JVS(1381)) &\n! JVS(1381) = Jac_FULL(208,254)\n  JVS(1381) = 0.255*B(1270)\nIF (DO_JVS(1382)) &\n! JVS(1382) = Jac_FULL(208,258)\n  JVS(1382) = 0\nIF (DO_JVS(1383)) &\n! JVS(1383) = Jac_FULL(208,285)\n  JVS(1383) = 0\nIF (DO_JVS(1384)) &\n! JVS(1384) = Jac_FULL(208,286)\n  JVS(1384) = 0\nIF (DO_JVS(1385)) &\n! JVS(1385) = Jac_FULL(208,288)\n  JVS(1385) = 0.53*B(1238)\nIF (DO_JVS(1386)) &\n! JVS(1386) = Jac_FULL(208,337)\n  JVS(1386) = 0.13*B(1079)+0.255*B(1271)\nIF (DO_JVS(1387)) &\n! JVS(1387) = Jac_FULL(208,345)\n  JVS(1387) = 0.53*B(1239)+0.6*B(1263)-B(1267)+0.318*B(1309)\nIF (DO_JVS(1388)) &\n! JVS(1388) = Jac_FULL(208,346)\n  JVS(1388) = 0.2*B(1083)\nIF (DO_JVS(1389)) &\n! JVS(1389) = Jac_FULL(209,209)\n  JVS(1389) = -B(1027)-B(1777)\nIF (DO_JVS(1390)) &\n! JVS(1390) = Jac_FULL(209,305)\n  JVS(1390) = B(959)\nIF (DO_JVS(1391)) &\n! JVS(1391) = Jac_FULL(209,337)\n  JVS(1391) = B(960)\nIF (DO_JVS(1392)) &\n! JVS(1392) = Jac_FULL(209,345)\n  JVS(1392) = -B(1028)\nIF (DO_JVS(1393)) &\n! JVS(1393) = Jac_FULL(210,209)\n  JVS(1393) = 0.018*B(1027)\nIF (DO_JVS(1394)) &\n! JVS(1394) = Jac_FULL(210,210)\n  JVS(1394) = -B(1326)-B(1328)-B(1762)\nIF (DO_JVS(1395)) &\n! JVS(1395) = Jac_FULL(210,223)\n  JVS(1395) = 0.284*B(1032)+0.135*B(1036)\nIF (DO_JVS(1396)) &\n! JVS(1396) = Jac_FULL(210,226)\n  JVS(1396) = 0.471*B(1200)+0.59*B(1206)\nIF (DO_JVS(1397)) &\n! JVS(1397) = Jac_FULL(210,271)\n  JVS(1397) = 0.249*B(1198)+0.303*B(1202)\nIF (DO_JVS(1398)) &\n! JVS(1398) = Jac_FULL(210,276)\n  JVS(1398) = 0.3*B(953)\nIF (DO_JVS(1399)) &\n! JVS(1399) = Jac_FULL(210,303)\n  JVS(1399) = 0.5*B(1798)\nIF (DO_JVS(1400)) &\n! JVS(1400) = Jac_FULL(210,305)\n  JVS(1400) = 0.3*B(966)\nIF (DO_JVS(1401)) &\n! JVS(1401) = Jac_FULL(210,337)\n  JVS(1401) = 0.135*B(1037)+0.249*B(1199)+0.471*B(1201)\nIF (DO_JVS(1402)) &\n! JVS(1402) = Jac_FULL(210,345)\n  JVS(1402) = 0.3*B(954)+0.018*B(1028)-B(1327)-B(1329)\nIF (DO_JVS(1403)) &\n! JVS(1403) = Jac_FULL(210,346)\n  JVS(1403) = 0.284*B(1033)+0.303*B(1203)+0.59*B(1207)\nIF (DO_JVS(1404)) &\n! JVS(1404) = Jac_FULL(211,211)\n  JVS(1404) = -B(818)-B(820)-B(822)\nIF (DO_JVS(1405)) &\n! JVS(1405) = Jac_FULL(211,281)\n  JVS(1405) = 0.25*B(802)\nIF (DO_JVS(1406)) &\n! JVS(1406) = Jac_FULL(211,341)\n  JVS(1406) = -B(821)\nIF (DO_JVS(1407)) &\n! JVS(1407) = Jac_FULL(211,345)\n  JVS(1407) = -B(819)\nIF (DO_JVS(1408)) &\n! JVS(1408) = Jac_FULL(211,346)\n  JVS(1408) = 0.25*B(803)\nIF (DO_JVS(1409)) &\n! JVS(1409) = Jac_FULL(211,351)\n  JVS(1409) = -B(823)\nIF (DO_JVS(1410)) &\n! JVS(1410) = Jac_FULL(212,140)\n  JVS(1410) = B(142)\nIF (DO_JVS(1411)) &\n! JVS(1411) = Jac_FULL(212,212)\n  JVS(1411) = -B(148)-B(150)\nIF (DO_JVS(1412)) &\n! JVS(1412) = Jac_FULL(212,337)\n  JVS(1412) = -B(151)\nIF (DO_JVS(1413)) &\n! JVS(1413) = Jac_FULL(212,341)\n  JVS(1413) = 0\nIF (DO_JVS(1414)) &\n! JVS(1414) = Jac_FULL(212,345)\n  JVS(1414) = B(143)\nIF (DO_JVS(1415)) &\n! JVS(1415) = Jac_FULL(212,346)\n  JVS(1415) = -B(149)\nIF (DO_JVS(1416)) &\n! JVS(1416) = Jac_FULL(212,351)\n  JVS(1416) = 0\nIF (DO_JVS(1417)) &\n! JVS(1417) = Jac_FULL(213,114)\n  JVS(1417) = B(299)\nIF (DO_JVS(1418)) &\n! JVS(1418) = Jac_FULL(213,213)\n  JVS(1418) = -B(297)-B(300)-B(302)-B(304)\nIF (DO_JVS(1419)) &\n! JVS(1419) = Jac_FULL(213,306)\n  JVS(1419) = 0.8*B(293)+B(295)\nIF (DO_JVS(1420)) &\n! JVS(1420) = Jac_FULL(213,335)\n  JVS(1420) = -B(298)\nIF (DO_JVS(1421)) &\n! JVS(1421) = Jac_FULL(213,337)\n  JVS(1421) = -B(303)\nIF (DO_JVS(1422)) &\n! JVS(1422) = Jac_FULL(213,345)\n  JVS(1422) = 0.8*B(294)\nIF (DO_JVS(1423)) &\n! JVS(1423) = Jac_FULL(213,346)\n  JVS(1423) = -B(301)\nIF (DO_JVS(1424)) &\n! JVS(1424) = Jac_FULL(213,351)\n  JVS(1424) = B(296)-B(305)\nIF (DO_JVS(1425)) &\n! JVS(1425) = Jac_FULL(214,214)\n  JVS(1425) = -B(86)-B(1496)-B(1498)-B(1500)-B(1501)-B(1503)-B(1655)\nIF (DO_JVS(1426)) &\n! JVS(1426) = Jac_FULL(214,335)\n  JVS(1426) = B(84)\nIF (DO_JVS(1427)) &\n! JVS(1427) = Jac_FULL(214,336)\n  JVS(1427) = -B(1497)\nIF (DO_JVS(1428)) &\n! JVS(1428) = Jac_FULL(214,339)\n  JVS(1428) = -B(1499)\nIF (DO_JVS(1429)) &\n! JVS(1429) = Jac_FULL(214,344)\n  JVS(1429) = -B(1504)\nIF (DO_JVS(1430)) &\n! JVS(1430) = Jac_FULL(214,351)\n  JVS(1430) = B(85)\nIF (DO_JVS(1431)) &\n! JVS(1431) = Jac_FULL(214,353)\n  JVS(1431) = -B(1502)\nIF (DO_JVS(1432)) &\n! JVS(1432) = Jac_FULL(215,128)\n  JVS(1432) = 0.75*B(1052)\nIF (DO_JVS(1433)) &\n! JVS(1433) = Jac_FULL(215,144)\n  JVS(1433) = 0.77*B(1007)\nIF (DO_JVS(1434)) &\n! JVS(1434) = Jac_FULL(215,150)\n  JVS(1434) = 0.58*B(1005)\nIF (DO_JVS(1435)) &\n! JVS(1435) = Jac_FULL(215,151)\n  JVS(1435) = B(1054)\nIF (DO_JVS(1436)) &\n! JVS(1436) = Jac_FULL(215,152)\n  JVS(1436) = B(1058)\nIF (DO_JVS(1437)) &\n! JVS(1437) = Jac_FULL(215,168)\n  JVS(1437) = 0\nIF (DO_JVS(1438)) &\n! JVS(1438) = Jac_FULL(215,175)\n  JVS(1438) = 0\nIF (DO_JVS(1439)) &\n! JVS(1439) = Jac_FULL(215,186)\n  JVS(1439) = B(1188)\nIF (DO_JVS(1440)) &\n! JVS(1440) = Jac_FULL(215,187)\n  JVS(1440) = 0\nIF (DO_JVS(1441)) &\n! JVS(1441) = Jac_FULL(215,192)\n  JVS(1441) = 0\nIF (DO_JVS(1442)) &\n! JVS(1442) = Jac_FULL(215,199)\n  JVS(1442) = 0\nIF (DO_JVS(1443)) &\n! JVS(1443) = Jac_FULL(215,209)\n  JVS(1443) = 0\nIF (DO_JVS(1444)) &\n! JVS(1444) = Jac_FULL(215,215)\n  JVS(1444) = -B(1011)-B(1632)\nIF (DO_JVS(1445)) &\n! JVS(1445) = Jac_FULL(215,230)\n  JVS(1445) = 0.085*B(1001)\nIF (DO_JVS(1446)) &\n! JVS(1446) = Jac_FULL(215,231)\n  JVS(1446) = 0.165*B(1003)\nIF (DO_JVS(1447)) &\n! JVS(1447) = Jac_FULL(215,267)\n  JVS(1447) = 0\nIF (DO_JVS(1448)) &\n! JVS(1448) = Jac_FULL(215,268)\n  JVS(1448) = 0\nIF (DO_JVS(1449)) &\n! JVS(1449) = Jac_FULL(215,276)\n  JVS(1449) = 0\nIF (DO_JVS(1450)) &\n! JVS(1450) = Jac_FULL(215,301)\n  JVS(1450) = B(1210)\nIF (DO_JVS(1451)) &\n! JVS(1451) = Jac_FULL(215,304)\n  JVS(1451) = 0\nIF (DO_JVS(1452)) &\n! JVS(1452) = Jac_FULL(215,305)\n  JVS(1452) = 0\nIF (DO_JVS(1453)) &\n! JVS(1453) = Jac_FULL(215,311)\n  JVS(1453) = 0\nIF (DO_JVS(1454)) &\n! JVS(1454) = Jac_FULL(215,337)\n  JVS(1454) = 0\nIF (DO_JVS(1455)) &\n! JVS(1455) = Jac_FULL(215,345)\n  JVS(1455) = 0.085*B(1002)+0.165*B(1004)+0.58*B(1006)+0.77*B(1008)-B(1012)+0.75*B(1053)+B(1055)+B(1059)+B(1189)+B(1211)\nIF (DO_JVS(1456)) &\n! JVS(1456) = Jac_FULL(215,346)\n  JVS(1456) = 0\nIF (DO_JVS(1457)) &\n! JVS(1457) = Jac_FULL(216,206)\n  JVS(1457) = 0.031*B(1129)+0.065*B(1131)\nIF (DO_JVS(1458)) &\n! JVS(1458) = Jac_FULL(216,216)\n  JVS(1458) = -B(1244)-B(1638)-B(1774)\nIF (DO_JVS(1459)) &\n! JVS(1459) = Jac_FULL(216,226)\n  JVS(1459) = 0.073*B(1200)+0.291*B(1206)\nIF (DO_JVS(1460)) &\n! JVS(1460) = Jac_FULL(216,268)\n  JVS(1460) = 0.6*B(1109)\nIF (DO_JVS(1461)) &\n! JVS(1461) = Jac_FULL(216,271)\n  JVS(1461) = 0.06*B(1198)+0.17*B(1202)\nIF (DO_JVS(1462)) &\n! JVS(1462) = Jac_FULL(216,293)\n  JVS(1462) = 0.094*B(1141)+0.355*B(1143)\nIF (DO_JVS(1463)) &\n! JVS(1463) = Jac_FULL(216,301)\n  JVS(1463) = 0.378*B(1212)\nIF (DO_JVS(1464)) &\n! JVS(1464) = Jac_FULL(216,308)\n  JVS(1464) = 0.13*B(1291)+0.3*B(1299)\nIF (DO_JVS(1465)) &\n! JVS(1465) = Jac_FULL(216,328)\n  JVS(1465) = 0.3*B(1300)\nIF (DO_JVS(1466)) &\n! JVS(1466) = Jac_FULL(216,337)\n  JVS(1466) = 0.031*B(1130)+0.094*B(1142)+0.06*B(1199)+0.073*B(1201)+0.13*B(1292)\nIF (DO_JVS(1467)) &\n! JVS(1467) = Jac_FULL(216,345)\n  JVS(1467) = 0.6*B(1110)+0.378*B(1213)-B(1245)\nIF (DO_JVS(1468)) &\n! JVS(1468) = Jac_FULL(216,346)\n  JVS(1468) = 0.065*B(1132)+0.355*B(1144)+0.17*B(1203)+0.291*B(1207)\nIF (DO_JVS(1469)) &\n! JVS(1469) = Jac_FULL(217,181)\n  JVS(1469) = 0.09*B(495)\nIF (DO_JVS(1470)) &\n! JVS(1470) = Jac_FULL(217,217)\n  JVS(1470) = -B(471)-B(473)-B(475)\nIF (DO_JVS(1471)) &\n! JVS(1471) = Jac_FULL(217,228)\n  JVS(1471) = 0.2*B(443)\nIF (DO_JVS(1472)) &\n! JVS(1472) = Jac_FULL(217,325)\n  JVS(1472) = B(1647)\nIF (DO_JVS(1473)) &\n! JVS(1473) = Jac_FULL(217,334)\n  JVS(1473) = B(439)+0.2*B(444)+0.22*B(487)+0.2*B(489)+0.09*B(496)\nIF (DO_JVS(1474)) &\n! JVS(1474) = Jac_FULL(217,337)\n  JVS(1474) = -B(476)\nIF (DO_JVS(1475)) &\n! JVS(1475) = Jac_FULL(217,339)\n  JVS(1475) = 0.22*B(488)\nIF (DO_JVS(1476)) &\n! JVS(1476) = Jac_FULL(217,340)\n  JVS(1476) = B(569)\nIF (DO_JVS(1477)) &\n! JVS(1477) = Jac_FULL(217,341)\n  JVS(1477) = -B(474)\nIF (DO_JVS(1478)) &\n! JVS(1478) = Jac_FULL(217,343)\n  JVS(1478) = B(451)\nIF (DO_JVS(1479)) &\n! JVS(1479) = Jac_FULL(217,345)\n  JVS(1479) = B(449)+B(452)\nIF (DO_JVS(1480)) &\n! JVS(1480) = Jac_FULL(217,352)\n  JVS(1480) = 0.2*B(490)\nIF (DO_JVS(1481)) &\n! JVS(1481) = Jac_FULL(218,218)\n  JVS(1481) = -B(401)-B(1509)-B(1511)-B(1693)-B(1694)\nIF (DO_JVS(1482)) &\n! JVS(1482) = Jac_FULL(218,335)\n  JVS(1482) = B(425)\nIF (DO_JVS(1483)) &\n! JVS(1483) = Jac_FULL(218,336)\n  JVS(1483) = -B(1510)\nIF (DO_JVS(1484)) &\n! JVS(1484) = Jac_FULL(218,339)\n  JVS(1484) = -B(1512)\nIF (DO_JVS(1485)) &\n! JVS(1485) = Jac_FULL(218,342)\n  JVS(1485) = -B(402)\nIF (DO_JVS(1486)) &\n! JVS(1486) = Jac_FULL(218,347)\n  JVS(1486) = B(426)\nIF (DO_JVS(1487)) &\n! JVS(1487) = Jac_FULL(219,219)\n  JVS(1487) = -B(719)-B(727)-B(729)\nIF (DO_JVS(1488)) &\n! JVS(1488) = Jac_FULL(219,341)\n  JVS(1488) = -B(730)\nIF (DO_JVS(1489)) &\n! JVS(1489) = Jac_FULL(219,345)\n  JVS(1489) = -B(728)\nIF (DO_JVS(1490)) &\n! JVS(1490) = Jac_FULL(219,351)\n  JVS(1490) = -B(720)\nIF (DO_JVS(1491)) &\n! JVS(1491) = Jac_FULL(220,220)\n  JVS(1491) = -B(1338)-B(1340)-B(1342)\nIF (DO_JVS(1492)) &\n! JVS(1492) = Jac_FULL(220,341)\n  JVS(1492) = -B(1343)\nIF (DO_JVS(1493)) &\n! JVS(1493) = Jac_FULL(220,345)\n  JVS(1493) = -B(1339)\nIF (DO_JVS(1494)) &\n! JVS(1494) = Jac_FULL(220,351)\n  JVS(1494) = -B(1341)\nIF (DO_JVS(1495)) &\n! JVS(1495) = Jac_FULL(221,82)\n  JVS(1495) = 0.68*B(1383)\nIF (DO_JVS(1496)) &\n! JVS(1496) = Jac_FULL(221,101)\n  JVS(1496) = 0.28*B(1385)\nIF (DO_JVS(1497)) &\n! JVS(1497) = Jac_FULL(221,143)\n  JVS(1497) = 0.55*B(1381)\nIF (DO_JVS(1498)) &\n! JVS(1498) = Jac_FULL(221,149)\n  JVS(1498) = 0.8*B(1344)\nIF (DO_JVS(1499)) &\n! JVS(1499) = Jac_FULL(221,195)\n  JVS(1499) = 0.18*B(1414)\nIF (DO_JVS(1500)) &\n! JVS(1500) = Jac_FULL(221,200)\n  JVS(1500) = 0.375*B(1348)\nIF (DO_JVS(1501)) &\n! JVS(1501) = Jac_FULL(221,202)\n  JVS(1501) = 1.05*B(1422)+B(1424)+0.3*B(1426)\nIF (DO_JVS(1502)) &\n! JVS(1502) = Jac_FULL(221,220)\n  JVS(1502) = 0\nIF (DO_JVS(1503)) &\n! JVS(1503) = Jac_FULL(221,221)\n  JVS(1503) = -B(1465)-B(1467)-B(1469)\nIF (DO_JVS(1504)) &\n! JVS(1504) = Jac_FULL(221,269)\n  JVS(1504) = 0.9*B(1457)+0.9*B(1459)+B(1805)\nIF (DO_JVS(1505)) &\n! JVS(1505) = Jac_FULL(221,341)\n  JVS(1505) = B(1425)-B(1468)\nIF (DO_JVS(1506)) &\n! JVS(1506) = Jac_FULL(221,345)\n  JVS(1506) = 0.8*B(1345)+0.375*B(1349)+0.55*B(1382)+0.68*B(1384)+0.28*B(1386)+0.18*B(1415)+1.05*B(1423)+0.9*B(1458)&\n                &-B(1466)\nIF (DO_JVS(1507)) &\n! JVS(1507) = Jac_FULL(221,351)\n  JVS(1507) = 0.3*B(1427)+0.9*B(1460)\nIF (DO_JVS(1508)) &\n! JVS(1508) = Jac_FULL(222,222)\n  JVS(1508) = -B(1180)-B(1184)-B(1190)-B(1634)-B(1787)\nIF (DO_JVS(1509)) &\n! JVS(1509) = Jac_FULL(222,310)\n  JVS(1509) = 0.473*B(1149)+0.07*B(1153)+0.399*B(1154)+0.355*B(1159)\nIF (DO_JVS(1510)) &\n! JVS(1510) = Jac_FULL(222,311)\n  JVS(1510) = 0.399*B(1155)\nIF (DO_JVS(1511)) &\n! JVS(1511) = Jac_FULL(222,328)\n  JVS(1511) = 0.355*B(1160)\nIF (DO_JVS(1512)) &\n! JVS(1512) = Jac_FULL(222,337)\n  JVS(1512) = 0.473*B(1150)\nIF (DO_JVS(1513)) &\n! JVS(1513) = Jac_FULL(222,345)\n  JVS(1513) = -B(1181)-B(1185)-B(1191)\nIF (DO_JVS(1514)) &\n! JVS(1514) = Jac_FULL(223,187)\n  JVS(1514) = 0.345*B(1015)\nIF (DO_JVS(1515)) &\n! JVS(1515) = Jac_FULL(223,209)\n  JVS(1515) = 0.595*B(1027)\nIF (DO_JVS(1516)) &\n! JVS(1516) = Jac_FULL(223,223)\n  JVS(1516) = -B(1031)-B(1032)-B(1034)-B(1036)\nIF (DO_JVS(1517)) &\n! JVS(1517) = Jac_FULL(223,305)\n  JVS(1517) = 0\nIF (DO_JVS(1518)) &\n! JVS(1518) = Jac_FULL(223,337)\n  JVS(1518) = -B(1037)\nIF (DO_JVS(1519)) &\n! JVS(1519) = Jac_FULL(223,345)\n  JVS(1519) = 0.345*B(1016)+0.595*B(1028)\nIF (DO_JVS(1520)) &\n! JVS(1520) = Jac_FULL(223,346)\n  JVS(1520) = -B(1033)-B(1035)\nIF (DO_JVS(1521)) &\n! JVS(1521) = Jac_FULL(224,192)\n  JVS(1521) = 0.345*B(1019)\nIF (DO_JVS(1522)) &\n! JVS(1522) = Jac_FULL(224,199)\n  JVS(1522) = 0.255*B(1029)\nIF (DO_JVS(1523)) &\n! JVS(1523) = Jac_FULL(224,224)\n  JVS(1523) = -B(1038)-B(1039)-B(1041)-B(1043)\nIF (DO_JVS(1524)) &\n! JVS(1524) = Jac_FULL(224,304)\n  JVS(1524) = 0\nIF (DO_JVS(1525)) &\n! JVS(1525) = Jac_FULL(224,337)\n  JVS(1525) = -B(1044)\nIF (DO_JVS(1526)) &\n! JVS(1526) = Jac_FULL(224,345)\n  JVS(1526) = 0.345*B(1020)+0.255*B(1030)\nIF (DO_JVS(1527)) &\n! JVS(1527) = Jac_FULL(224,346)\n  JVS(1527) = -B(1040)-B(1042)\nIF (DO_JVS(1528)) &\n! JVS(1528) = Jac_FULL(225,111)\n  JVS(1528) = B(1807)\nIF (DO_JVS(1529)) &\n! JVS(1529) = Jac_FULL(225,137)\n  JVS(1529) = 0.5*B(743)\nIF (DO_JVS(1530)) &\n! JVS(1530) = Jac_FULL(225,191)\n  JVS(1530) = 0.2*B(733)\nIF (DO_JVS(1531)) &\n! JVS(1531) = Jac_FULL(225,225)\n  JVS(1531) = -B(745)-B(747)-B(1808)\nIF (DO_JVS(1532)) &\n! JVS(1532) = Jac_FULL(225,277)\n  JVS(1532) = 0.75*B(737)+B(739)+B(877)+B(879)\nIF (DO_JVS(1533)) &\n! JVS(1533) = Jac_FULL(225,324)\n  JVS(1533) = B(880)\nIF (DO_JVS(1534)) &\n! JVS(1534) = Jac_FULL(225,328)\n  JVS(1534) = B(878)\nIF (DO_JVS(1535)) &\n! JVS(1535) = Jac_FULL(225,337)\n  JVS(1535) = 0\nIF (DO_JVS(1536)) &\n! JVS(1536) = Jac_FULL(225,341)\n  JVS(1536) = 0.2*B(734)\nIF (DO_JVS(1537)) &\n! JVS(1537) = Jac_FULL(225,345)\n  JVS(1537) = 0.5*B(744)-B(748)\nIF (DO_JVS(1538)) &\n! JVS(1538) = Jac_FULL(225,346)\n  JVS(1538) = 0.75*B(738)\nIF (DO_JVS(1539)) &\n! JVS(1539) = Jac_FULL(225,351)\n  JVS(1539) = B(740)-B(746)\nIF (DO_JVS(1540)) &\n! JVS(1540) = Jac_FULL(226,186)\n  JVS(1540) = B(1182)\nIF (DO_JVS(1541)) &\n! JVS(1541) = Jac_FULL(226,226)\n  JVS(1541) = -B(1196)-B(1200)-B(1206)-B(1208)\nIF (DO_JVS(1542)) &\n! JVS(1542) = Jac_FULL(226,311)\n  JVS(1542) = 0\nIF (DO_JVS(1543)) &\n! JVS(1543) = Jac_FULL(226,337)\n  JVS(1543) = -B(1201)\nIF (DO_JVS(1544)) &\n! JVS(1544) = Jac_FULL(226,345)\n  JVS(1544) = B(1183)\nIF (DO_JVS(1545)) &\n! JVS(1545) = Jac_FULL(226,346)\n  JVS(1545) = -B(1207)-B(1209)\nIF (DO_JVS(1546)) &\n! JVS(1546) = Jac_FULL(227,131)\n  JVS(1546) = 0.4*B(1262)\nIF (DO_JVS(1547)) &\n! JVS(1547) = Jac_FULL(227,147)\n  JVS(1547) = 0.126*B(1308)+0.155*B(1796)\nIF (DO_JVS(1548)) &\n! JVS(1548) = Jac_FULL(227,153)\n  JVS(1548) = 0.16*B(1268)\nIF (DO_JVS(1549)) &\n! JVS(1549) = Jac_FULL(227,194)\n  JVS(1549) = 0.063*B(1258)\nIF (DO_JVS(1550)) &\n! JVS(1550) = Jac_FULL(227,227)\n  JVS(1550) = -B(1264)-B(1766)\nIF (DO_JVS(1551)) &\n! JVS(1551) = Jac_FULL(227,230)\n  JVS(1551) = 0\nIF (DO_JVS(1552)) &\n! JVS(1552) = Jac_FULL(227,231)\n  JVS(1552) = 0\nIF (DO_JVS(1553)) &\n! JVS(1553) = Jac_FULL(227,258)\n  JVS(1553) = 0.133*B(1793)\nIF (DO_JVS(1554)) &\n! JVS(1554) = Jac_FULL(227,285)\n  JVS(1554) = 0\nIF (DO_JVS(1555)) &\n! JVS(1555) = Jac_FULL(227,286)\n  JVS(1555) = 0\nIF (DO_JVS(1556)) &\n! JVS(1556) = Jac_FULL(227,288)\n  JVS(1556) = 0.47*B(1238)\nIF (DO_JVS(1557)) &\n! JVS(1557) = Jac_FULL(227,301)\n  JVS(1557) = 0\nIF (DO_JVS(1558)) &\n! JVS(1558) = Jac_FULL(227,302)\n  JVS(1558) = 0.29*B(1236)\nIF (DO_JVS(1559)) &\n! JVS(1559) = Jac_FULL(227,303)\n  JVS(1559) = 0\nIF (DO_JVS(1560)) &\n! JVS(1560) = Jac_FULL(227,337)\n  JVS(1560) = 0\nIF (DO_JVS(1561)) &\n! JVS(1561) = Jac_FULL(227,345)\n  JVS(1561) = 0.29*B(1237)+0.47*B(1239)+0.063*B(1259)+0.4*B(1263)-B(1265)+0.16*B(1269)+0.126*B(1309)\nIF (DO_JVS(1562)) &\n! JVS(1562) = Jac_FULL(227,346)\n  JVS(1562) = 0\nIF (DO_JVS(1563)) &\n! JVS(1563) = Jac_FULL(228,228)\n  JVS(1563) = -B(47)-B(443)-B(563)\nIF (DO_JVS(1564)) &\n! JVS(1564) = Jac_FULL(228,290)\n  JVS(1564) = 0.1*B(287)\nIF (DO_JVS(1565)) &\n! JVS(1565) = Jac_FULL(228,326)\n  JVS(1565) = B(1657)\nIF (DO_JVS(1566)) &\n! JVS(1566) = Jac_FULL(228,334)\n  JVS(1566) = -B(444)\nIF (DO_JVS(1567)) &\n! JVS(1567) = Jac_FULL(228,340)\n  JVS(1567) = -B(564)\nIF (DO_JVS(1568)) &\n! JVS(1568) = Jac_FULL(228,341)\n  JVS(1568) = 0.1*B(288)\nIF (DO_JVS(1569)) &\n! JVS(1569) = Jac_FULL(228,345)\n  JVS(1569) = -B(48)\nIF (DO_JVS(1570)) &\n! JVS(1570) = Jac_FULL(229,229)\n  JVS(1570) = -B(859)-B(861)-B(863)-B(1748)-B(1816)\nIF (DO_JVS(1571)) &\n! JVS(1571) = Jac_FULL(229,291)\n  JVS(1571) = B(851)\nIF (DO_JVS(1572)) &\n! JVS(1572) = Jac_FULL(229,337)\n  JVS(1572) = B(852)\nIF (DO_JVS(1573)) &\n! JVS(1573) = Jac_FULL(229,341)\n  JVS(1573) = -B(862)\nIF (DO_JVS(1574)) &\n! JVS(1574) = Jac_FULL(229,345)\n  JVS(1574) = -B(860)\nIF (DO_JVS(1575)) &\n! JVS(1575) = Jac_FULL(229,351)\n  JVS(1575) = -B(864)\nIF (DO_JVS(1576)) &\n! JVS(1576) = Jac_FULL(230,209)\n  JVS(1576) = 0.015*B(1027)\nIF (DO_JVS(1577)) &\n! JVS(1577) = Jac_FULL(230,230)\n  JVS(1577) = -B(1001)-B(1779)\nIF (DO_JVS(1578)) &\n! JVS(1578) = Jac_FULL(230,276)\n  JVS(1578) = 0.25*B(953)\nIF (DO_JVS(1579)) &\n! JVS(1579) = Jac_FULL(230,305)\n  JVS(1579) = 0.25*B(966)\nIF (DO_JVS(1580)) &\n! JVS(1580) = Jac_FULL(230,337)\n  JVS(1580) = 0\nIF (DO_JVS(1581)) &\n! JVS(1581) = Jac_FULL(230,345)\n  JVS(1581) = 0.25*B(954)-B(1002)+0.015*B(1028)\nIF (DO_JVS(1582)) &\n! JVS(1582) = Jac_FULL(231,199)\n  JVS(1582) = 0.015*B(1029)\nIF (DO_JVS(1583)) &\n! JVS(1583) = Jac_FULL(231,231)\n  JVS(1583) = -B(1003)-B(1780)\nIF (DO_JVS(1584)) &\n! JVS(1584) = Jac_FULL(231,276)\n  JVS(1584) = 0.25*B(955)\nIF (DO_JVS(1585)) &\n! JVS(1585) = Jac_FULL(231,304)\n  JVS(1585) = 0.25*B(968)\nIF (DO_JVS(1586)) &\n! JVS(1586) = Jac_FULL(231,337)\n  JVS(1586) = 0\nIF (DO_JVS(1587)) &\n! JVS(1587) = Jac_FULL(231,345)\n  JVS(1587) = 0.25*B(956)-B(1004)+0.015*B(1030)\nIF (DO_JVS(1588)) &\n! JVS(1588) = Jac_FULL(232,187)\n  JVS(1588) = 0.655*B(1015)\nIF (DO_JVS(1589)) &\n! JVS(1589) = Jac_FULL(232,192)\n  JVS(1589) = 0.655*B(1019)\nIF (DO_JVS(1590)) &\n! JVS(1590) = Jac_FULL(232,232)\n  JVS(1590) = -B(1045)-B(1046)-B(1048)-B(1050)\nIF (DO_JVS(1591)) &\n! JVS(1591) = Jac_FULL(232,304)\n  JVS(1591) = 0\nIF (DO_JVS(1592)) &\n! JVS(1592) = Jac_FULL(232,305)\n  JVS(1592) = 0\nIF (DO_JVS(1593)) &\n! JVS(1593) = Jac_FULL(232,337)\n  JVS(1593) = -B(1051)\nIF (DO_JVS(1594)) &\n! JVS(1594) = Jac_FULL(232,345)\n  JVS(1594) = 0.655*B(1016)+0.655*B(1020)\nIF (DO_JVS(1595)) &\n! JVS(1595) = Jac_FULL(232,346)\n  JVS(1595) = -B(1047)-B(1049)\nIF (DO_JVS(1596)) &\n! JVS(1596) = Jac_FULL(233,140)\n  JVS(1596) = B(144)+B(146)\nIF (DO_JVS(1597)) &\n! JVS(1597) = Jac_FULL(233,212)\n  JVS(1597) = 0.73*B(148)\nIF (DO_JVS(1598)) &\n! JVS(1598) = Jac_FULL(233,233)\n  JVS(1598) = -B(154)-B(1660)\nIF (DO_JVS(1599)) &\n! JVS(1599) = Jac_FULL(233,337)\n  JVS(1599) = 0\nIF (DO_JVS(1600)) &\n! JVS(1600) = Jac_FULL(233,341)\n  JVS(1600) = B(147)\nIF (DO_JVS(1601)) &\n! JVS(1601) = Jac_FULL(233,345)\n  JVS(1601) = -B(155)\nIF (DO_JVS(1602)) &\n! JVS(1602) = Jac_FULL(233,346)\n  JVS(1602) = 0.73*B(149)\nIF (DO_JVS(1603)) &\n! JVS(1603) = Jac_FULL(233,351)\n  JVS(1603) = B(145)\nIF (DO_JVS(1604)) &\n! JVS(1604) = Jac_FULL(234,109)\n  JVS(1604) = B(1360)\nIF (DO_JVS(1605)) &\n! JVS(1605) = Jac_FULL(234,136)\n  JVS(1605) = B(1377)\nIF (DO_JVS(1606)) &\n! JVS(1606) = Jac_FULL(234,233)\n  JVS(1606) = 0\nIF (DO_JVS(1607)) &\n! JVS(1607) = Jac_FULL(234,234)\n  JVS(1607) = -B(1364)-B(1366)-B(1368)-B(1370)\nIF (DO_JVS(1608)) &\n! JVS(1608) = Jac_FULL(234,246)\n  JVS(1608) = B(243)+0.44*B(245)\nIF (DO_JVS(1609)) &\n! JVS(1609) = Jac_FULL(234,328)\n  JVS(1609) = -B(1371)\nIF (DO_JVS(1610)) &\n! JVS(1610) = Jac_FULL(234,337)\n  JVS(1610) = 0.44*B(246)-B(1365)\nIF (DO_JVS(1611)) &\n! JVS(1611) = Jac_FULL(234,341)\n  JVS(1611) = 0\nIF (DO_JVS(1612)) &\n! JVS(1612) = Jac_FULL(234,345)\n  JVS(1612) = B(1361)+B(1378)\nIF (DO_JVS(1613)) &\n! JVS(1613) = Jac_FULL(234,346)\n  JVS(1613) = B(244)-B(1367)\nIF (DO_JVS(1614)) &\n! JVS(1614) = Jac_FULL(234,351)\n  JVS(1614) = -B(1369)\nIF (DO_JVS(1615)) &\n! JVS(1615) = Jac_FULL(235,71)\n  JVS(1615) = B(1438)\nIF (DO_JVS(1616)) &\n! JVS(1616) = Jac_FULL(235,90)\n  JVS(1616) = B(1440)\nIF (DO_JVS(1617)) &\n! JVS(1617) = Jac_FULL(235,204)\n  JVS(1617) = B(1428)+B(1430)\nIF (DO_JVS(1618)) &\n! JVS(1618) = Jac_FULL(235,220)\n  JVS(1618) = 0\nIF (DO_JVS(1619)) &\n! JVS(1619) = Jac_FULL(235,235)\n  JVS(1619) = -B(1432)-B(1434)-B(1436)-B(1463)\nIF (DO_JVS(1620)) &\n! JVS(1620) = Jac_FULL(235,328)\n  JVS(1620) = -B(1464)\nIF (DO_JVS(1621)) &\n! JVS(1621) = Jac_FULL(235,335)\n  JVS(1621) = -B(1437)\nIF (DO_JVS(1622)) &\n! JVS(1622) = Jac_FULL(235,337)\n  JVS(1622) = -B(1433)\nIF (DO_JVS(1623)) &\n! JVS(1623) = Jac_FULL(235,341)\n  JVS(1623) = 0\nIF (DO_JVS(1624)) &\n! JVS(1624) = Jac_FULL(235,345)\n  JVS(1624) = B(1429)+B(1439)\nIF (DO_JVS(1625)) &\n! JVS(1625) = Jac_FULL(235,346)\n  JVS(1625) = -B(1435)\nIF (DO_JVS(1626)) &\n! JVS(1626) = Jac_FULL(235,351)\n  JVS(1626) = B(1431)\nIF (DO_JVS(1627)) &\n! JVS(1627) = Jac_FULL(236,71)\n  JVS(1627) = B(1803)\nIF (DO_JVS(1628)) &\n! JVS(1628) = Jac_FULL(236,117)\n  JVS(1628) = B(1451)\nIF (DO_JVS(1629)) &\n! JVS(1629) = Jac_FULL(236,203)\n  JVS(1629) = B(1453)\nIF (DO_JVS(1630)) &\n! JVS(1630) = Jac_FULL(236,204)\n  JVS(1630) = B(1802)\nIF (DO_JVS(1631)) &\n! JVS(1631) = Jac_FULL(236,220)\n  JVS(1631) = 0.28*B(1342)\nIF (DO_JVS(1632)) &\n! JVS(1632) = Jac_FULL(236,235)\n  JVS(1632) = 0.2*B(1432)+B(1434)+B(1463)\nIF (DO_JVS(1633)) &\n! JVS(1633) = Jac_FULL(236,236)\n  JVS(1633) = -B(1443)-B(1445)-B(1447)-B(1449)-B(1461)\nIF (DO_JVS(1634)) &\n! JVS(1634) = Jac_FULL(236,328)\n  JVS(1634) = -B(1462)+B(1464)\nIF (DO_JVS(1635)) &\n! JVS(1635) = Jac_FULL(236,335)\n  JVS(1635) = -B(1444)\nIF (DO_JVS(1636)) &\n! JVS(1636) = Jac_FULL(236,337)\n  JVS(1636) = 0.2*B(1433)-B(1450)\nIF (DO_JVS(1637)) &\n! JVS(1637) = Jac_FULL(236,341)\n  JVS(1637) = 0.28*B(1343)+B(1454)\nIF (DO_JVS(1638)) &\n! JVS(1638) = Jac_FULL(236,345)\n  JVS(1638) = B(1452)\nIF (DO_JVS(1639)) &\n! JVS(1639) = Jac_FULL(236,346)\n  JVS(1639) = B(1435)-B(1446)\nIF (DO_JVS(1640)) &\n! JVS(1640) = Jac_FULL(236,351)\n  JVS(1640) = -B(1448)\nIF (DO_JVS(1641)) &\n! JVS(1641) = Jac_FULL(237,237)\n  JVS(1641) = -B(812)-B(814)-B(816)\nIF (DO_JVS(1642)) &\n! JVS(1642) = Jac_FULL(237,281)\n  JVS(1642) = 0.37*B(800)+0.28*B(802)+0.37*B(804)+0.37*B(885)+0.37*B(887)\nIF (DO_JVS(1643)) &\n! JVS(1643) = Jac_FULL(237,324)\n  JVS(1643) = 0.37*B(888)\nIF (DO_JVS(1644)) &\n! JVS(1644) = Jac_FULL(237,328)\n  JVS(1644) = 0.37*B(886)\nIF (DO_JVS(1645)) &\n! JVS(1645) = Jac_FULL(237,337)\n  JVS(1645) = 0.37*B(801)\nIF (DO_JVS(1646)) &\n! JVS(1646) = Jac_FULL(237,341)\n  JVS(1646) = -B(815)\nIF (DO_JVS(1647)) &\n! JVS(1647) = Jac_FULL(237,345)\n  JVS(1647) = -B(813)\nIF (DO_JVS(1648)) &\n! JVS(1648) = Jac_FULL(237,346)\n  JVS(1648) = 0.28*B(803)\nIF (DO_JVS(1649)) &\n! JVS(1649) = Jac_FULL(237,351)\n  JVS(1649) = 0.37*B(805)-B(817)\nIF (DO_JVS(1650)) &\n! JVS(1650) = Jac_FULL(238,199)\n  JVS(1650) = 0.06*B(1029)+B(1778)\nIF (DO_JVS(1651)) &\n! JVS(1651) = Jac_FULL(238,209)\n  JVS(1651) = 0.06*B(1027)+B(1777)\nIF (DO_JVS(1652)) &\n! JVS(1652) = Jac_FULL(238,238)\n  JVS(1652) = -B(1009)\nIF (DO_JVS(1653)) &\n! JVS(1653) = Jac_FULL(238,267)\n  JVS(1653) = 0.45*B(1786)\nIF (DO_JVS(1654)) &\n! JVS(1654) = Jac_FULL(238,268)\n  JVS(1654) = 0.45*B(1783)\nIF (DO_JVS(1655)) &\n! JVS(1655) = Jac_FULL(238,304)\n  JVS(1655) = B(974)+B(975)+0.5*B(983)+0.45*B(999)\nIF (DO_JVS(1656)) &\n! JVS(1656) = Jac_FULL(238,305)\n  JVS(1656) = B(973)+B(976)+0.5*B(979)+0.45*B(991)\nIF (DO_JVS(1657)) &\n! JVS(1657) = Jac_FULL(238,328)\n  JVS(1657) = 0.5*B(980)+0.5*B(984)\nIF (DO_JVS(1658)) &\n! JVS(1658) = Jac_FULL(238,337)\n  JVS(1658) = 0\nIF (DO_JVS(1659)) &\n! JVS(1659) = Jac_FULL(238,345)\n  JVS(1659) = -B(1010)+0.06*B(1028)+0.06*B(1030)\nIF (DO_JVS(1660)) &\n! JVS(1660) = Jac_FULL(238,346)\n  JVS(1660) = 0.45*B(992)+0.45*B(1000)\nIF (DO_JVS(1661)) &\n! JVS(1661) = Jac_FULL(239,64)\n  JVS(1661) = B(1755)\nIF (DO_JVS(1662)) &\n! JVS(1662) = Jac_FULL(239,65)\n  JVS(1662) = B(1753)\nIF (DO_JVS(1663)) &\n! JVS(1663) = Jac_FULL(239,166)\n  JVS(1663) = 0\nIF (DO_JVS(1664)) &\n! JVS(1664) = Jac_FULL(239,179)\n  JVS(1664) = 0\nIF (DO_JVS(1665)) &\n! JVS(1665) = Jac_FULL(239,239)\n  JVS(1665) = -B(71)-B(1650)\nIF (DO_JVS(1666)) &\n! JVS(1666) = Jac_FULL(239,252)\n  JVS(1666) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597)\nIF (DO_JVS(1667)) &\n! JVS(1667) = Jac_FULL(239,269)\n  JVS(1667) = B(1805)\nIF (DO_JVS(1668)) &\n! JVS(1668) = Jac_FULL(239,297)\n  JVS(1668) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537)\nIF (DO_JVS(1669)) &\n! JVS(1669) = Jac_FULL(239,327)\n  JVS(1669) = 0\nIF (DO_JVS(1670)) &\n! JVS(1670) = Jac_FULL(239,335)\n  JVS(1670) = 0.5*B(1492)\nIF (DO_JVS(1671)) &\n! JVS(1671) = Jac_FULL(239,339)\n  JVS(1671) = B(1532)\nIF (DO_JVS(1672)) &\n! JVS(1672) = Jac_FULL(239,341)\n  JVS(1672) = 0\nIF (DO_JVS(1673)) &\n! JVS(1673) = Jac_FULL(239,344)\n  JVS(1673) = B(1530)+B(1598)\nIF (DO_JVS(1674)) &\n! JVS(1674) = Jac_FULL(239,345)\n  JVS(1674) = B(69)-B(72)\nIF (DO_JVS(1675)) &\n! JVS(1675) = Jac_FULL(239,346)\n  JVS(1675) = B(70)\nIF (DO_JVS(1676)) &\n! JVS(1676) = Jac_FULL(239,348)\n  JVS(1676) = 0\nIF (DO_JVS(1677)) &\n! JVS(1677) = Jac_FULL(239,349)\n  JVS(1677) = B(1534)+B(1592)\nIF (DO_JVS(1678)) &\n! JVS(1678) = Jac_FULL(239,350)\n  JVS(1678) = B(1536)+B(1594)\nIF (DO_JVS(1679)) &\n! JVS(1679) = Jac_FULL(239,351)\n  JVS(1679) = 0\nIF (DO_JVS(1680)) &\n! JVS(1680) = Jac_FULL(239,352)\n  JVS(1680) = B(1538)\nIF (DO_JVS(1681)) &\n! JVS(1681) = Jac_FULL(239,353)\n  JVS(1681) = B(1528)+B(1596)\nIF (DO_JVS(1682)) &\n! JVS(1682) = Jac_FULL(240,122)\n  JVS(1682) = B(1411)\nIF (DO_JVS(1683)) &\n! JVS(1683) = Jac_FULL(240,146)\n  JVS(1683) = B(1403)\nIF (DO_JVS(1684)) &\n! JVS(1684) = Jac_FULL(240,200)\n  JVS(1684) = 0\nIF (DO_JVS(1685)) &\n! JVS(1685) = Jac_FULL(240,240)\n  JVS(1685) = -B(1405)-B(1407)-B(1409)\nIF (DO_JVS(1686)) &\n! JVS(1686) = Jac_FULL(240,335)\n  JVS(1686) = -B(1410)\nIF (DO_JVS(1687)) &\n! JVS(1687) = Jac_FULL(240,337)\n  JVS(1687) = -B(1408)\nIF (DO_JVS(1688)) &\n! JVS(1688) = Jac_FULL(240,345)\n  JVS(1688) = B(1404)\nIF (DO_JVS(1689)) &\n! JVS(1689) = Jac_FULL(240,346)\n  JVS(1689) = -B(1406)\nIF (DO_JVS(1690)) &\n! JVS(1690) = Jac_FULL(240,351)\n  JVS(1690) = 0\nIF (DO_JVS(1691)) &\n! JVS(1691) = Jac_FULL(241,241)\n  JVS(1691) = -B(705)-B(707)-B(709)-B(711)-B(713)-B(715)\nIF (DO_JVS(1692)) &\n! JVS(1692) = Jac_FULL(241,290)\n  JVS(1692) = 0.12*B(287)\nIF (DO_JVS(1693)) &\n! JVS(1693) = Jac_FULL(241,329)\n  JVS(1693) = -B(706)\nIF (DO_JVS(1694)) &\n! JVS(1694) = Jac_FULL(241,335)\n  JVS(1694) = -B(710)\nIF (DO_JVS(1695)) &\n! JVS(1695) = Jac_FULL(241,336)\n  JVS(1695) = -B(714)-B(716)\nIF (DO_JVS(1696)) &\n! JVS(1696) = Jac_FULL(241,341)\n  JVS(1696) = 0.12*B(288)\nIF (DO_JVS(1697)) &\n! JVS(1697) = Jac_FULL(241,346)\n  JVS(1697) = -B(708)\nIF (DO_JVS(1698)) &\n! JVS(1698) = Jac_FULL(241,348)\n  JVS(1698) = -B(712)\nIF (DO_JVS(1699)) &\n! JVS(1699) = Jac_FULL(242,193)\n  JVS(1699) = 0.7*B(865)+0.7*B(867)+0.35*B(869)\nIF (DO_JVS(1700)) &\n! JVS(1700) = Jac_FULL(242,242)\n  JVS(1700) = -B(927)-B(929)-B(931)-B(1624)-B(1751)\nIF (DO_JVS(1701)) &\n! JVS(1701) = Jac_FULL(242,280)\n  JVS(1701) = 0.3*B(905)+0.3*B(909)+0.3*B(913)+0.3*B(917)+0.6*B(921)+0.45*B(922)\nIF (DO_JVS(1702)) &\n! JVS(1702) = Jac_FULL(242,289)\n  JVS(1702) = 0.3*B(907)+0.15*B(911)+0.45*B(923)+0.3*B(924)\nIF (DO_JVS(1703)) &\n! JVS(1703) = Jac_FULL(242,291)\n  JVS(1703) = 0\nIF (DO_JVS(1704)) &\n! JVS(1704) = Jac_FULL(242,324)\n  JVS(1704) = 0.3*B(914)\nIF (DO_JVS(1705)) &\n! JVS(1705) = Jac_FULL(242,328)\n  JVS(1705) = 0.3*B(910)+0.15*B(912)\nIF (DO_JVS(1706)) &\n! JVS(1706) = Jac_FULL(242,337)\n  JVS(1706) = 0.3*B(906)+0.3*B(908)\nIF (DO_JVS(1707)) &\n! JVS(1707) = Jac_FULL(242,341)\n  JVS(1707) = 0.7*B(868)-B(930)\nIF (DO_JVS(1708)) &\n! JVS(1708) = Jac_FULL(242,345)\n  JVS(1708) = 0.7*B(866)-B(928)\nIF (DO_JVS(1709)) &\n! JVS(1709) = Jac_FULL(242,346)\n  JVS(1709) = 0\nIF (DO_JVS(1710)) &\n! JVS(1710) = Jac_FULL(242,351)\n  JVS(1710) = 0.35*B(870)+0.3*B(918)-B(932)\nIF (DO_JVS(1711)) &\n! JVS(1711) = Jac_FULL(243,128)\n  JVS(1711) = 0.25*B(1052)\nIF (DO_JVS(1712)) &\n! JVS(1712) = Jac_FULL(243,192)\n  JVS(1712) = 0.16*B(1025)\nIF (DO_JVS(1713)) &\n! JVS(1713) = Jac_FULL(243,199)\n  JVS(1713) = 0\nIF (DO_JVS(1714)) &\n! JVS(1714) = Jac_FULL(243,209)\n  JVS(1714) = 0\nIF (DO_JVS(1715)) &\n! JVS(1715) = Jac_FULL(243,243)\n  JVS(1715) = -B(1078)-B(1080)-B(1082)-B(1084)\nIF (DO_JVS(1716)) &\n! JVS(1716) = Jac_FULL(243,267)\n  JVS(1716) = 0\nIF (DO_JVS(1717)) &\n! JVS(1717) = Jac_FULL(243,268)\n  JVS(1717) = 0\nIF (DO_JVS(1718)) &\n! JVS(1718) = Jac_FULL(243,304)\n  JVS(1718) = 0\nIF (DO_JVS(1719)) &\n! JVS(1719) = Jac_FULL(243,305)\n  JVS(1719) = 0\nIF (DO_JVS(1720)) &\n! JVS(1720) = Jac_FULL(243,337)\n  JVS(1720) = -B(1079)\nIF (DO_JVS(1721)) &\n! JVS(1721) = Jac_FULL(243,345)\n  JVS(1721) = 0.16*B(1026)+0.25*B(1053)\nIF (DO_JVS(1722)) &\n! JVS(1722) = Jac_FULL(243,346)\n  JVS(1722) = -B(1081)-B(1083)\nIF (DO_JVS(1723)) &\n! JVS(1723) = Jac_FULL(244,199)\n  JVS(1723) = 0.018*B(1029)\nIF (DO_JVS(1724)) &\n! JVS(1724) = Jac_FULL(244,224)\n  JVS(1724) = 0.294*B(1039)+0.135*B(1043)\nIF (DO_JVS(1725)) &\n! JVS(1725) = Jac_FULL(244,226)\n  JVS(1725) = 0.054*B(1200)+0.07*B(1206)\nIF (DO_JVS(1726)) &\n! JVS(1726) = Jac_FULL(244,244)\n  JVS(1726) = -B(61)-B(1743)\nIF (DO_JVS(1727)) &\n! JVS(1727) = Jac_FULL(244,271)\n  JVS(1727) = 0.009*B(1198)+0.013*B(1202)\nIF (DO_JVS(1728)) &\n! JVS(1728) = Jac_FULL(244,276)\n  JVS(1728) = 0.3*B(955)\nIF (DO_JVS(1729)) &\n! JVS(1729) = Jac_FULL(244,287)\n  JVS(1729) = 0.23*B(1240)\nIF (DO_JVS(1730)) &\n! JVS(1730) = Jac_FULL(244,303)\n  JVS(1730) = 0.05*B(1798)\nIF (DO_JVS(1731)) &\n! JVS(1731) = Jac_FULL(244,304)\n  JVS(1731) = 0.3*B(968)\nIF (DO_JVS(1732)) &\n! JVS(1732) = Jac_FULL(244,309)\n  JVS(1732) = 0.036*B(1228)\nIF (DO_JVS(1733)) &\n! JVS(1733) = Jac_FULL(244,311)\n  JVS(1733) = 0\nIF (DO_JVS(1734)) &\n! JVS(1734) = Jac_FULL(244,313)\n  JVS(1734) = 0.85*B(226)\nIF (DO_JVS(1735)) &\n! JVS(1735) = Jac_FULL(244,320)\n  JVS(1735) = 0.85*B(228)\nIF (DO_JVS(1736)) &\n! JVS(1736) = Jac_FULL(244,337)\n  JVS(1736) = 0.85*B(227)+0.85*B(229)+0.135*B(1044)+0.009*B(1199)+0.054*B(1201)\nIF (DO_JVS(1737)) &\n! JVS(1737) = Jac_FULL(244,345)\n  JVS(1737) = -B(62)+0.3*B(956)+0.018*B(1030)+0.036*B(1229)+0.23*B(1241)\nIF (DO_JVS(1738)) &\n! JVS(1738) = Jac_FULL(244,346)\n  JVS(1738) = 0.294*B(1040)+0.013*B(1203)+0.07*B(1207)\nIF (DO_JVS(1739)) &\n! JVS(1739) = Jac_FULL(245,110)\n  JVS(1739) = 0.95*B(593)\nIF (DO_JVS(1740)) &\n! JVS(1740) = Jac_FULL(245,245)\n  JVS(1740) = -0.75*B(491)-B(527)-B(1702)\nIF (DO_JVS(1741)) &\n! JVS(1741) = Jac_FULL(245,297)\n  JVS(1741) = B(1527)+B(1529)+B(1531)\nIF (DO_JVS(1742)) &\n! JVS(1742) = Jac_FULL(245,317)\n  JVS(1742) = B(603)+B(1515)+B(1523)+B(1525)\nIF (DO_JVS(1743)) &\n! JVS(1743) = Jac_FULL(245,328)\n  JVS(1743) = 0\nIF (DO_JVS(1744)) &\n! JVS(1744) = Jac_FULL(245,333)\n  JVS(1744) = B(1539)+B(1543)+B(1545)\nIF (DO_JVS(1745)) &\n! JVS(1745) = Jac_FULL(245,334)\n  JVS(1745) = -0.75*B(492)\nIF (DO_JVS(1746)) &\n! JVS(1746) = Jac_FULL(245,338)\n  JVS(1746) = B(585)\nIF (DO_JVS(1747)) &\n! JVS(1747) = Jac_FULL(245,339)\n  JVS(1747) = B(1516)+B(1532)+B(1540)\nIF (DO_JVS(1748)) &\n! JVS(1748) = Jac_FULL(245,340)\n  JVS(1748) = 0.95*B(594)+B(604)\nIF (DO_JVS(1749)) &\n! JVS(1749) = Jac_FULL(245,344)\n  JVS(1749) = 0.5*B(1507)+B(1526)+B(1530)+B(1546)\nIF (DO_JVS(1750)) &\n! JVS(1750) = Jac_FULL(245,345)\n  JVS(1750) = -B(528)+0.5*B(1505)+0.5*B(1508)\nIF (DO_JVS(1751)) &\n! JVS(1751) = Jac_FULL(245,347)\n  JVS(1751) = 0\nIF (DO_JVS(1752)) &\n! JVS(1752) = Jac_FULL(245,353)\n  JVS(1752) = 0.5*B(1506)+B(1524)+B(1528)+B(1544)\nIF (DO_JVS(1753)) &\n! JVS(1753) = Jac_FULL(246,113)\n  JVS(1753) = B(240)\nIF (DO_JVS(1754)) &\n! JVS(1754) = Jac_FULL(246,246)\n  JVS(1754) = -B(238)-B(243)-B(245)\nIF (DO_JVS(1755)) &\n! JVS(1755) = Jac_FULL(246,320)\n  JVS(1755) = 0.31*B(236)\nIF (DO_JVS(1756)) &\n! JVS(1756) = Jac_FULL(246,335)\n  JVS(1756) = -B(239)\nIF (DO_JVS(1757)) &\n! JVS(1757) = Jac_FULL(246,337)\n  JVS(1757) = -B(246)\nIF (DO_JVS(1758)) &\n! JVS(1758) = Jac_FULL(246,345)\n  JVS(1758) = 0\nIF (DO_JVS(1759)) &\n! JVS(1759) = Jac_FULL(246,346)\n  JVS(1759) = 0.31*B(237)-B(244)\nIF (DO_JVS(1760)) &\n! JVS(1760) = Jac_FULL(247,125)\n  JVS(1760) = 0.791*B(324)\nIF (DO_JVS(1761)) &\n! JVS(1761) = Jac_FULL(247,180)\n  JVS(1761) = B(1220)+0.82*B(1222)\nIF (DO_JVS(1762)) &\n! JVS(1762) = Jac_FULL(247,182)\n  JVS(1762) = 0.231*B(1214)+0.231*B(1216)\nIF (DO_JVS(1763)) &\n! JVS(1763) = Jac_FULL(247,206)\n  JVS(1763) = 0.551*B(1129)+0.935*B(1131)\nIF (DO_JVS(1764)) &\n! JVS(1764) = Jac_FULL(247,216)\n  JVS(1764) = B(1244)+B(1774)\nIF (DO_JVS(1765)) &\n! JVS(1765) = Jac_FULL(247,226)\n  JVS(1765) = 0.471*B(1200)+0.59*B(1206)\nIF (DO_JVS(1766)) &\n! JVS(1766) = Jac_FULL(247,247)\n  JVS(1766) = -B(689)-B(1764)\nIF (DO_JVS(1767)) &\n! JVS(1767) = Jac_FULL(247,250)\n  JVS(1767) = 0\nIF (DO_JVS(1768)) &\n! JVS(1768) = Jac_FULL(247,268)\n  JVS(1768) = 0\nIF (DO_JVS(1769)) &\n! JVS(1769) = Jac_FULL(247,271)\n  JVS(1769) = 0.589*B(1198)+0.687*B(1202)\nIF (DO_JVS(1770)) &\n! JVS(1770) = Jac_FULL(247,293)\n  JVS(1770) = 0.242*B(1141)+0.546*B(1143)\nIF (DO_JVS(1771)) &\n! JVS(1771) = Jac_FULL(247,299)\n  JVS(1771) = 0\nIF (DO_JVS(1772)) &\n! JVS(1772) = Jac_FULL(247,301)\n  JVS(1772) = 0\nIF (DO_JVS(1773)) &\n! JVS(1773) = Jac_FULL(247,303)\n  JVS(1773) = 0\nIF (DO_JVS(1774)) &\n! JVS(1774) = Jac_FULL(247,308)\n  JVS(1774) = 0\nIF (DO_JVS(1775)) &\n! JVS(1775) = Jac_FULL(247,309)\n  JVS(1775) = 0.68*B(1234)\nIF (DO_JVS(1776)) &\n! JVS(1776) = Jac_FULL(247,311)\n  JVS(1776) = 0\nIF (DO_JVS(1777)) &\n! JVS(1777) = Jac_FULL(247,328)\n  JVS(1777) = 0\nIF (DO_JVS(1778)) &\n! JVS(1778) = Jac_FULL(247,337)\n  JVS(1778) = 0.551*B(1130)+0.242*B(1142)+0.589*B(1199)+0.471*B(1201)+0.231*B(1217)+0.82*B(1223)\nIF (DO_JVS(1779)) &\n! JVS(1779) = Jac_FULL(247,345)\n  JVS(1779) = 0.791*B(325)-B(690)+B(1245)\nIF (DO_JVS(1780)) &\n! JVS(1780) = Jac_FULL(247,346)\n  JVS(1780) = 0.935*B(1132)+0.546*B(1144)+0.687*B(1203)+0.59*B(1207)+0.231*B(1215)+B(1221)\nIF (DO_JVS(1781)) &\n! JVS(1781) = Jac_FULL(247,351)\n  JVS(1781) = 0.68*B(1235)\nIF (DO_JVS(1782)) &\n! JVS(1782) = Jac_FULL(248,172)\n  JVS(1782) = B(1256)\nIF (DO_JVS(1783)) &\n! JVS(1783) = Jac_FULL(248,205)\n  JVS(1783) = 0.059*B(1114)+0.272*B(1116)\nIF (DO_JVS(1784)) &\n! JVS(1784) = Jac_FULL(248,231)\n  JVS(1784) = 0\nIF (DO_JVS(1785)) &\n! JVS(1785) = Jac_FULL(248,248)\n  JVS(1785) = -B(1242)-B(1639)-B(1773)\nIF (DO_JVS(1786)) &\n! JVS(1786) = Jac_FULL(248,253)\n  JVS(1786) = B(1285)\nIF (DO_JVS(1787)) &\n! JVS(1787) = Jac_FULL(248,276)\n  JVS(1787) = 0\nIF (DO_JVS(1788)) &\n! JVS(1788) = Jac_FULL(248,301)\n  JVS(1788) = 0\nIF (DO_JVS(1789)) &\n! JVS(1789) = Jac_FULL(248,303)\n  JVS(1789) = 0.5*B(1797)\nIF (DO_JVS(1790)) &\n! JVS(1790) = Jac_FULL(248,304)\n  JVS(1790) = 0\nIF (DO_JVS(1791)) &\n! JVS(1791) = Jac_FULL(248,305)\n  JVS(1791) = 0\nIF (DO_JVS(1792)) &\n! JVS(1792) = Jac_FULL(248,308)\n  JVS(1792) = 0.37*B(1291)\nIF (DO_JVS(1793)) &\n! JVS(1793) = Jac_FULL(248,335)\n  JVS(1793) = B(1257)\nIF (DO_JVS(1794)) &\n! JVS(1794) = Jac_FULL(248,337)\n  JVS(1794) = 0.059*B(1115)+0.37*B(1292)\nIF (DO_JVS(1795)) &\n! JVS(1795) = Jac_FULL(248,345)\n  JVS(1795) = -B(1243)\nIF (DO_JVS(1796)) &\n! JVS(1796) = Jac_FULL(248,346)\n  JVS(1796) = 0.272*B(1117)+B(1286)\nIF (DO_JVS(1797)) &\n! JVS(1797) = Jac_FULL(249,249)\n  JVS(1797) = -B(175)-B(224)-B(259)-B(361)\nIF (DO_JVS(1798)) &\n! JVS(1798) = Jac_FULL(249,279)\n  JVS(1798) = B(197)\nIF (DO_JVS(1799)) &\n! JVS(1799) = Jac_FULL(249,324)\n  JVS(1799) = -B(362)\nIF (DO_JVS(1800)) &\n! JVS(1800) = Jac_FULL(249,328)\n  JVS(1800) = -B(260)\nIF (DO_JVS(1801)) &\n! JVS(1801) = Jac_FULL(249,337)\n  JVS(1801) = -B(225)\nIF (DO_JVS(1802)) &\n! JVS(1802) = Jac_FULL(249,345)\n  JVS(1802) = B(198)\nIF (DO_JVS(1803)) &\n! JVS(1803) = Jac_FULL(249,346)\n  JVS(1803) = -B(176)\nIF (DO_JVS(1804)) &\n! JVS(1804) = Jac_FULL(250,125)\n  JVS(1804) = 0.209*B(324)\nIF (DO_JVS(1805)) &\n! JVS(1805) = Jac_FULL(250,250)\n  JVS(1805) = -B(191)-B(232)-B(267)-B(363)\nIF (DO_JVS(1806)) &\n! JVS(1806) = Jac_FULL(250,290)\n  JVS(1806) = B(310)\nIF (DO_JVS(1807)) &\n! JVS(1807) = Jac_FULL(250,324)\n  JVS(1807) = -B(364)\nIF (DO_JVS(1808)) &\n! JVS(1808) = Jac_FULL(250,328)\n  JVS(1808) = -B(268)\nIF (DO_JVS(1809)) &\n! JVS(1809) = Jac_FULL(250,337)\n  JVS(1809) = -B(233)\nIF (DO_JVS(1810)) &\n! JVS(1810) = Jac_FULL(250,345)\n  JVS(1810) = 0.209*B(325)\nIF (DO_JVS(1811)) &\n! JVS(1811) = Jac_FULL(250,346)\n  JVS(1811) = -B(192)\nIF (DO_JVS(1812)) &\n! JVS(1812) = Jac_FULL(250,351)\n  JVS(1812) = B(311)\nIF (DO_JVS(1813)) &\n! JVS(1813) = Jac_FULL(251,251)\n  JVS(1813) = -B(195)-B(1622)-B(1685)\nIF (DO_JVS(1814)) &\n! JVS(1814) = Jac_FULL(251,318)\n  JVS(1814) = B(220)\nIF (DO_JVS(1815)) &\n! JVS(1815) = Jac_FULL(251,319)\n  JVS(1815) = B(179)\nIF (DO_JVS(1816)) &\n! JVS(1816) = Jac_FULL(251,320)\n  JVS(1816) = 0.07*B(236)\nIF (DO_JVS(1817)) &\n! JVS(1817) = Jac_FULL(251,337)\n  JVS(1817) = B(221)\nIF (DO_JVS(1818)) &\n! JVS(1818) = Jac_FULL(251,345)\n  JVS(1818) = -B(196)\nIF (DO_JVS(1819)) &\n! JVS(1819) = Jac_FULL(251,346)\n  JVS(1819) = B(180)+0.07*B(237)\nIF (DO_JVS(1820)) &\n! JVS(1820) = Jac_FULL(252,252)\n  JVS(1820) = -B(648)-2*B(649)-B(1585)-B(1586)-B(1591)-B(1593)-B(1595)-B(1597)-B(1730)\nIF (DO_JVS(1821)) &\n! JVS(1821) = Jac_FULL(252,331)\n  JVS(1821) = B(646)\nIF (DO_JVS(1822)) &\n! JVS(1822) = Jac_FULL(252,335)\n  JVS(1822) = B(647)\nIF (DO_JVS(1823)) &\n! JVS(1823) = Jac_FULL(252,344)\n  JVS(1823) = -B(1598)\nIF (DO_JVS(1824)) &\n! JVS(1824) = Jac_FULL(252,349)\n  JVS(1824) = -B(1592)\nIF (DO_JVS(1825)) &\n! JVS(1825) = Jac_FULL(252,350)\n  JVS(1825) = -B(1594)\nIF (DO_JVS(1826)) &\n! JVS(1826) = Jac_FULL(252,353)\n  JVS(1826) = -B(1596)\nIF (DO_JVS(1827)) &\n! JVS(1827) = Jac_FULL(253,172)\n  JVS(1827) = B(1252)+B(1254)\nIF (DO_JVS(1828)) &\n! JVS(1828) = Jac_FULL(253,231)\n  JVS(1828) = 0\nIF (DO_JVS(1829)) &\n! JVS(1829) = Jac_FULL(253,253)\n  JVS(1829) = -B(1276)-B(1282)-B(1283)-B(1285)\nIF (DO_JVS(1830)) &\n! JVS(1830) = Jac_FULL(253,276)\n  JVS(1830) = 0\nIF (DO_JVS(1831)) &\n! JVS(1831) = Jac_FULL(253,301)\n  JVS(1831) = 0\nIF (DO_JVS(1832)) &\n! JVS(1832) = Jac_FULL(253,304)\n  JVS(1832) = 0\nIF (DO_JVS(1833)) &\n! JVS(1833) = Jac_FULL(253,309)\n  JVS(1833) = 0.964*B(1228)\nIF (DO_JVS(1834)) &\n! JVS(1834) = Jac_FULL(253,335)\n  JVS(1834) = 0\nIF (DO_JVS(1835)) &\n! JVS(1835) = Jac_FULL(253,337)\n  JVS(1835) = B(1255)-B(1277)\nIF (DO_JVS(1836)) &\n! JVS(1836) = Jac_FULL(253,345)\n  JVS(1836) = 0.964*B(1229)\nIF (DO_JVS(1837)) &\n! JVS(1837) = Jac_FULL(253,346)\n  JVS(1837) = B(1253)-B(1284)-B(1286)\nIF (DO_JVS(1838)) &\n! JVS(1838) = Jac_FULL(254,171)\n  JVS(1838) = B(1246)+B(1248)\nIF (DO_JVS(1839)) &\n! JVS(1839) = Jac_FULL(254,230)\n  JVS(1839) = 0\nIF (DO_JVS(1840)) &\n! JVS(1840) = Jac_FULL(254,254)\n  JVS(1840) = -B(1270)-B(1272)-B(1274)\nIF (DO_JVS(1841)) &\n! JVS(1841) = Jac_FULL(254,276)\n  JVS(1841) = 0\nIF (DO_JVS(1842)) &\n! JVS(1842) = Jac_FULL(254,301)\n  JVS(1842) = 0\nIF (DO_JVS(1843)) &\n! JVS(1843) = Jac_FULL(254,305)\n  JVS(1843) = 0\nIF (DO_JVS(1844)) &\n! JVS(1844) = Jac_FULL(254,314)\n  JVS(1844) = B(1224)\nIF (DO_JVS(1845)) &\n! JVS(1845) = Jac_FULL(254,335)\n  JVS(1845) = 0\nIF (DO_JVS(1846)) &\n! JVS(1846) = Jac_FULL(254,337)\n  JVS(1846) = B(1249)-B(1271)\nIF (DO_JVS(1847)) &\n! JVS(1847) = Jac_FULL(254,345)\n  JVS(1847) = B(1225)\nIF (DO_JVS(1848)) &\n! JVS(1848) = Jac_FULL(254,346)\n  JVS(1848) = B(1247)-B(1273)-B(1275)\nIF (DO_JVS(1849)) &\n! JVS(1849) = Jac_FULL(255,167)\n  JVS(1849) = 0.27*B(725)\nIF (DO_JVS(1850)) &\n! JVS(1850) = Jac_FULL(255,255)\n  JVS(1850) = -B(806)-B(808)-B(810)-B(1817)\nIF (DO_JVS(1851)) &\n! JVS(1851) = Jac_FULL(255,281)\n  JVS(1851) = 0.63*B(800)+0.47*B(802)+0.63*B(804)+0.63*B(885)+0.63*B(887)\nIF (DO_JVS(1852)) &\n! JVS(1852) = Jac_FULL(255,324)\n  JVS(1852) = 0.63*B(888)\nIF (DO_JVS(1853)) &\n! JVS(1853) = Jac_FULL(255,328)\n  JVS(1853) = 0.63*B(886)\nIF (DO_JVS(1854)) &\n! JVS(1854) = Jac_FULL(255,337)\n  JVS(1854) = 0.63*B(801)\nIF (DO_JVS(1855)) &\n! JVS(1855) = Jac_FULL(255,341)\n  JVS(1855) = 0.27*B(726)-B(809)\nIF (DO_JVS(1856)) &\n! JVS(1856) = Jac_FULL(255,345)\n  JVS(1856) = -B(807)\nIF (DO_JVS(1857)) &\n! JVS(1857) = Jac_FULL(255,346)\n  JVS(1857) = 0.47*B(803)\nIF (DO_JVS(1858)) &\n! JVS(1858) = Jac_FULL(255,351)\n  JVS(1858) = 0.63*B(805)-B(811)\nIF (DO_JVS(1859)) &\n! JVS(1859) = Jac_FULL(256,162)\n  JVS(1859) = 0.5*B(798)\nIF (DO_JVS(1860)) &\n! JVS(1860) = Jac_FULL(256,176)\n  JVS(1860) = 0.5*B(772)\nIF (DO_JVS(1861)) &\n! JVS(1861) = Jac_FULL(256,177)\n  JVS(1861) = 0.5*B(836)\nIF (DO_JVS(1862)) &\n! JVS(1862) = Jac_FULL(256,211)\n  JVS(1862) = 0\nIF (DO_JVS(1863)) &\n! JVS(1863) = Jac_FULL(256,237)\n  JVS(1863) = 0\nIF (DO_JVS(1864)) &\n! JVS(1864) = Jac_FULL(256,255)\n  JVS(1864) = 0\nIF (DO_JVS(1865)) &\n! JVS(1865) = Jac_FULL(256,256)\n  JVS(1865) = -B(925)-B(933)-B(1623)-B(1750)\nIF (DO_JVS(1866)) &\n! JVS(1866) = Jac_FULL(256,272)\n  JVS(1866) = 0\nIF (DO_JVS(1867)) &\n! JVS(1867) = Jac_FULL(256,273)\n  JVS(1867) = 0\nIF (DO_JVS(1868)) &\n! JVS(1868) = Jac_FULL(256,275)\n  JVS(1868) = 0\nIF (DO_JVS(1869)) &\n! JVS(1869) = Jac_FULL(256,277)\n  JVS(1869) = 0\nIF (DO_JVS(1870)) &\n! JVS(1870) = Jac_FULL(256,278)\n  JVS(1870) = 0\nIF (DO_JVS(1871)) &\n! JVS(1871) = Jac_FULL(256,280)\n  JVS(1871) = B(901)+0.7*B(905)+0.7*B(909)+0.7*B(913)+0.7*B(917)+1.4*B(921)+1.05*B(922)\nIF (DO_JVS(1872)) &\n! JVS(1872) = Jac_FULL(256,281)\n  JVS(1872) = 0\nIF (DO_JVS(1873)) &\n! JVS(1873) = Jac_FULL(256,289)\n  JVS(1873) = 0.7*B(907)+0.35*B(911)+1.05*B(923)+0.7*B(924)\nIF (DO_JVS(1874)) &\n! JVS(1874) = Jac_FULL(256,324)\n  JVS(1874) = 0.7*B(914)\nIF (DO_JVS(1875)) &\n! JVS(1875) = Jac_FULL(256,328)\n  JVS(1875) = 0.7*B(910)+0.35*B(912)\nIF (DO_JVS(1876)) &\n! JVS(1876) = Jac_FULL(256,337)\n  JVS(1876) = 0.7*B(906)+0.7*B(908)\nIF (DO_JVS(1877)) &\n! JVS(1877) = Jac_FULL(256,341)\n  JVS(1877) = 0\nIF (DO_JVS(1878)) &\n! JVS(1878) = Jac_FULL(256,345)\n  JVS(1878) = 0.5*B(773)+0.5*B(799)+0.5*B(837)-B(926)\nIF (DO_JVS(1879)) &\n! JVS(1879) = Jac_FULL(256,346)\n  JVS(1879) = B(902)\nIF (DO_JVS(1880)) &\n! JVS(1880) = Jac_FULL(256,351)\n  JVS(1880) = 0.7*B(918)-B(934)\nIF (DO_JVS(1881)) &\n! JVS(1881) = Jac_FULL(257,56)\n  JVS(1881) = B(755)\nIF (DO_JVS(1882)) &\n! JVS(1882) = Jac_FULL(257,74)\n  JVS(1882) = B(758)\nIF (DO_JVS(1883)) &\n! JVS(1883) = Jac_FULL(257,111)\n  JVS(1883) = 0.4*B(741)\nIF (DO_JVS(1884)) &\n! JVS(1884) = Jac_FULL(257,225)\n  JVS(1884) = B(745)+B(747)\nIF (DO_JVS(1885)) &\n! JVS(1885) = Jac_FULL(257,257)\n  JVS(1885) = -B(749)-B(751)-B(753)-B(756)-B(893)-B(895)\nIF (DO_JVS(1886)) &\n! JVS(1886) = Jac_FULL(257,277)\n  JVS(1886) = 0\nIF (DO_JVS(1887)) &\n! JVS(1887) = Jac_FULL(257,324)\n  JVS(1887) = -B(896)\nIF (DO_JVS(1888)) &\n! JVS(1888) = Jac_FULL(257,328)\n  JVS(1888) = -B(894)\nIF (DO_JVS(1889)) &\n! JVS(1889) = Jac_FULL(257,335)\n  JVS(1889) = -B(754)\nIF (DO_JVS(1890)) &\n! JVS(1890) = Jac_FULL(257,337)\n  JVS(1890) = -B(750)\nIF (DO_JVS(1891)) &\n! JVS(1891) = Jac_FULL(257,341)\n  JVS(1891) = 0\nIF (DO_JVS(1892)) &\n! JVS(1892) = Jac_FULL(257,345)\n  JVS(1892) = 0.4*B(742)+B(748)+B(759)\nIF (DO_JVS(1893)) &\n! JVS(1893) = Jac_FULL(257,346)\n  JVS(1893) = -B(752)\nIF (DO_JVS(1894)) &\n! JVS(1894) = Jac_FULL(257,351)\n  JVS(1894) = B(746)-B(757)\nIF (DO_JVS(1895)) &\n! JVS(1895) = Jac_FULL(258,174)\n  JVS(1895) = 0.333*B(1310)+0.75*B(1794)\nIF (DO_JVS(1896)) &\n! JVS(1896) = Jac_FULL(258,223)\n  JVS(1896) = 0.176*B(1031)\nIF (DO_JVS(1897)) &\n! JVS(1897) = Jac_FULL(258,224)\n  JVS(1897) = 0.548*B(1038)\nIF (DO_JVS(1898)) &\n! JVS(1898) = Jac_FULL(258,232)\n  JVS(1898) = 0\nIF (DO_JVS(1899)) &\n! JVS(1899) = Jac_FULL(258,243)\n  JVS(1899) = 0.35*B(1078)\nIF (DO_JVS(1900)) &\n! JVS(1900) = Jac_FULL(258,258)\n  JVS(1900) = -B(1306)-B(1792)-B(1793)\nIF (DO_JVS(1901)) &\n! JVS(1901) = Jac_FULL(258,267)\n  JVS(1901) = 0\nIF (DO_JVS(1902)) &\n! JVS(1902) = Jac_FULL(258,268)\n  JVS(1902) = 0\nIF (DO_JVS(1903)) &\n! JVS(1903) = Jac_FULL(258,285)\n  JVS(1903) = 0.35*B(1076)\nIF (DO_JVS(1904)) &\n! JVS(1904) = Jac_FULL(258,286)\n  JVS(1904) = 0.35*B(1064)\nIF (DO_JVS(1905)) &\n! JVS(1905) = Jac_FULL(258,304)\n  JVS(1905) = 0\nIF (DO_JVS(1906)) &\n! JVS(1906) = Jac_FULL(258,305)\n  JVS(1906) = 0\nIF (DO_JVS(1907)) &\n! JVS(1907) = Jac_FULL(258,337)\n  JVS(1907) = 0.35*B(1065)+0.35*B(1077)+0.35*B(1079)\nIF (DO_JVS(1908)) &\n! JVS(1908) = Jac_FULL(258,345)\n  JVS(1908) = -B(1307)+0.333*B(1311)\nIF (DO_JVS(1909)) &\n! JVS(1909) = Jac_FULL(258,346)\n  JVS(1909) = 0\nIF (DO_JVS(1910)) &\n! JVS(1910) = Jac_FULL(259,159)\n  JVS(1910) = 0.165*B(1280)\nIF (DO_JVS(1911)) &\n! JVS(1911) = Jac_FULL(259,184)\n  JVS(1911) = B(1301)\nIF (DO_JVS(1912)) &\n! JVS(1912) = Jac_FULL(259,259)\n  JVS(1912) = -B(1278)-B(1287)-B(1289)\nIF (DO_JVS(1913)) &\n! JVS(1913) = Jac_FULL(259,308)\n  JVS(1913) = 0\nIF (DO_JVS(1914)) &\n! JVS(1914) = Jac_FULL(259,309)\n  JVS(1914) = B(1230)+0.32*B(1234)\nIF (DO_JVS(1915)) &\n! JVS(1915) = Jac_FULL(259,335)\n  JVS(1915) = -B(1290)\nIF (DO_JVS(1916)) &\n! JVS(1916) = Jac_FULL(259,337)\n  JVS(1916) = -B(1279)\nIF (DO_JVS(1917)) &\n! JVS(1917) = Jac_FULL(259,345)\n  JVS(1917) = B(1231)+0.165*B(1281)\nIF (DO_JVS(1918)) &\n! JVS(1918) = Jac_FULL(259,346)\n  JVS(1918) = -B(1288)\nIF (DO_JVS(1919)) &\n! JVS(1919) = Jac_FULL(259,351)\n  JVS(1919) = 0.32*B(1235)\nIF (DO_JVS(1920)) &\n! JVS(1920) = Jac_FULL(260,123)\n  JVS(1920) = 0.209*B(338)\nIF (DO_JVS(1921)) &\n! JVS(1921) = Jac_FULL(260,260)\n  JVS(1921) = -B(122)-B(216)-B(281)-B(369)\nIF (DO_JVS(1922)) &\n! JVS(1922) = Jac_FULL(260,290)\n  JVS(1922) = B(285)+B(639)+B(641)\nIF (DO_JVS(1923)) &\n! JVS(1923) = Jac_FULL(260,324)\n  JVS(1923) = -B(370)\nIF (DO_JVS(1924)) &\n! JVS(1924) = Jac_FULL(260,328)\n  JVS(1924) = -B(217)\nIF (DO_JVS(1925)) &\n! JVS(1925) = Jac_FULL(260,337)\n  JVS(1925) = -B(282)\nIF (DO_JVS(1926)) &\n! JVS(1926) = Jac_FULL(260,340)\n  JVS(1926) = B(640)\nIF (DO_JVS(1927)) &\n! JVS(1927) = Jac_FULL(260,342)\n  JVS(1927) = B(642)\nIF (DO_JVS(1928)) &\n! JVS(1928) = Jac_FULL(260,345)\n  JVS(1928) = B(286)+0.209*B(339)\nIF (DO_JVS(1929)) &\n! JVS(1929) = Jac_FULL(260,346)\n  JVS(1929) = -B(123)\nIF (DO_JVS(1930)) &\n! JVS(1930) = Jac_FULL(261,180)\n  JVS(1930) = 0.89*B(1220)+0.73*B(1222)\nIF (DO_JVS(1931)) &\n! JVS(1931) = Jac_FULL(261,182)\n  JVS(1931) = 0.099*B(1214)+0.099*B(1216)\nIF (DO_JVS(1932)) &\n! JVS(1932) = Jac_FULL(261,207)\n  JVS(1932) = 0.441*B(1135)+0.858*B(1137)\nIF (DO_JVS(1933)) &\n! JVS(1933) = Jac_FULL(261,226)\n  JVS(1933) = 0.054*B(1200)+0.07*B(1206)\nIF (DO_JVS(1934)) &\n! JVS(1934) = Jac_FULL(261,261)\n  JVS(1934) = -B(687)-B(1318)-B(1749)\nIF (DO_JVS(1935)) &\n! JVS(1935) = Jac_FULL(261,267)\n  JVS(1935) = 0\nIF (DO_JVS(1936)) &\n! JVS(1936) = Jac_FULL(261,271)\n  JVS(1936) = 0.051*B(1198)+0.064*B(1202)\nIF (DO_JVS(1937)) &\n! JVS(1937) = Jac_FULL(261,293)\n  JVS(1937) = 0.033*B(1141)+0.071*B(1143)\nIF (DO_JVS(1938)) &\n! JVS(1938) = Jac_FULL(261,299)\n  JVS(1938) = 0\nIF (DO_JVS(1939)) &\n! JVS(1939) = Jac_FULL(261,301)\n  JVS(1939) = 0\nIF (DO_JVS(1940)) &\n! JVS(1940) = Jac_FULL(261,302)\n  JVS(1940) = 0.3*B(1772)\nIF (DO_JVS(1941)) &\n! JVS(1941) = Jac_FULL(261,303)\n  JVS(1941) = 0.15*B(1797)\nIF (DO_JVS(1942)) &\n! JVS(1942) = Jac_FULL(261,311)\n  JVS(1942) = 0\nIF (DO_JVS(1943)) &\n! JVS(1943) = Jac_FULL(261,337)\n  JVS(1943) = 0.441*B(1136)+0.033*B(1142)+0.051*B(1199)+0.054*B(1201)+0.099*B(1217)+0.73*B(1223)\nIF (DO_JVS(1944)) &\n! JVS(1944) = Jac_FULL(261,345)\n  JVS(1944) = -B(688)\nIF (DO_JVS(1945)) &\n! JVS(1945) = Jac_FULL(261,346)\n  JVS(1945) = 0.858*B(1138)+0.071*B(1144)+0.064*B(1203)+0.07*B(1207)+0.099*B(1215)+0.89*B(1221)\nIF (DO_JVS(1946)) &\n! JVS(1946) = Jac_FULL(261,351)\n  JVS(1946) = -B(1319)\nIF (DO_JVS(1947)) &\n! JVS(1947) = Jac_FULL(262,193)\n  JVS(1947) = 0.3*B(865)+0.3*B(867)+0.15*B(869)\nIF (DO_JVS(1948)) &\n! JVS(1948) = Jac_FULL(262,219)\n  JVS(1948) = 0.4*B(729)\nIF (DO_JVS(1949)) &\n! JVS(1949) = Jac_FULL(262,229)\n  JVS(1949) = 0.78*B(859)+0.78*B(861)+0.39*B(863)+0.675*B(1816)\nIF (DO_JVS(1950)) &\n! JVS(1950) = Jac_FULL(262,262)\n  JVS(1950) = -B(871)-B(873)-B(875)\nIF (DO_JVS(1951)) &\n! JVS(1951) = Jac_FULL(262,291)\n  JVS(1951) = 0.675*B(855)+0.675*B(857)+0.675*B(889)+0.675*B(891)\nIF (DO_JVS(1952)) &\n! JVS(1952) = Jac_FULL(262,324)\n  JVS(1952) = 0.675*B(892)\nIF (DO_JVS(1953)) &\n! JVS(1953) = Jac_FULL(262,328)\n  JVS(1953) = 0.675*B(890)\nIF (DO_JVS(1954)) &\n! JVS(1954) = Jac_FULL(262,337)\n  JVS(1954) = 0\nIF (DO_JVS(1955)) &\n! JVS(1955) = Jac_FULL(262,341)\n  JVS(1955) = 0.4*B(730)+0.78*B(862)+0.3*B(868)-B(874)\nIF (DO_JVS(1956)) &\n! JVS(1956) = Jac_FULL(262,345)\n  JVS(1956) = 0.78*B(860)+0.3*B(866)-B(872)\nIF (DO_JVS(1957)) &\n! JVS(1957) = Jac_FULL(262,346)\n  JVS(1957) = 0.675*B(856)\nIF (DO_JVS(1958)) &\n! JVS(1958) = Jac_FULL(262,351)\n  JVS(1958) = 0.675*B(858)+0.39*B(864)+0.15*B(870)-B(876)\nIF (DO_JVS(1959)) &\n! JVS(1959) = Jac_FULL(263,82)\n  JVS(1959) = 0.81*B(1383)\nIF (DO_JVS(1960)) &\n! JVS(1960) = Jac_FULL(263,101)\n  JVS(1960) = 0.85*B(1385)\nIF (DO_JVS(1961)) &\n! JVS(1961) = Jac_FULL(263,137)\n  JVS(1961) = 0.5*B(743)\nIF (DO_JVS(1962)) &\n! JVS(1962) = Jac_FULL(263,138)\n  JVS(1962) = 0.5*B(780)\nIF (DO_JVS(1963)) &\n! JVS(1963) = Jac_FULL(263,143)\n  JVS(1963) = 0.46*B(1381)\nIF (DO_JVS(1964)) &\n! JVS(1964) = Jac_FULL(263,149)\n  JVS(1964) = 0.813*B(1344)+B(1346)\nIF (DO_JVS(1965)) &\n! JVS(1965) = Jac_FULL(263,158)\n  JVS(1965) = 0.2*B(1418)+0.2*B(1420)\nIF (DO_JVS(1966)) &\n! JVS(1966) = Jac_FULL(263,160)\n  JVS(1966) = 0.5*B(770)+B(1811)\nIF (DO_JVS(1967)) &\n! JVS(1967) = Jac_FULL(263,167)\n  JVS(1967) = 0.15*B(725)\nIF (DO_JVS(1968)) &\n! JVS(1968) = Jac_FULL(263,176)\n  JVS(1968) = 0.55*B(772)\nIF (DO_JVS(1969)) &\n! JVS(1969) = Jac_FULL(263,193)\n  JVS(1969) = 0.7*B(865)+0.7*B(867)+0.35*B(869)\nIF (DO_JVS(1970)) &\n! JVS(1970) = Jac_FULL(263,195)\n  JVS(1970) = 0.14*B(1414)\nIF (DO_JVS(1971)) &\n! JVS(1971) = Jac_FULL(263,200)\n  JVS(1971) = 0.93*B(1348)+B(1350)\nIF (DO_JVS(1972)) &\n! JVS(1972) = Jac_FULL(263,202)\n  JVS(1972) = 0.7*B(1422)+0.2*B(1426)\nIF (DO_JVS(1973)) &\n! JVS(1973) = Jac_FULL(263,211)\n  JVS(1973) = B(822)\nIF (DO_JVS(1974)) &\n! JVS(1974) = Jac_FULL(263,219)\n  JVS(1974) = 0.5*B(729)\nIF (DO_JVS(1975)) &\n! JVS(1975) = Jac_FULL(263,220)\n  JVS(1975) = 0.7*B(1338)+B(1340)\nIF (DO_JVS(1976)) &\n! JVS(1976) = Jac_FULL(263,229)\n  JVS(1976) = 0.7*B(859)+0.7*B(861)+0.35*B(863)\nIF (DO_JVS(1977)) &\n! JVS(1977) = Jac_FULL(263,237)\n  JVS(1977) = B(816)\nIF (DO_JVS(1978)) &\n! JVS(1978) = Jac_FULL(263,255)\n  JVS(1978) = B(810)\nIF (DO_JVS(1979)) &\n! JVS(1979) = Jac_FULL(263,262)\n  JVS(1979) = B(871)+B(873)+0.5*B(875)\nIF (DO_JVS(1980)) &\n! JVS(1980) = Jac_FULL(263,263)\n  JVS(1980) = -B(1387)-B(1389)-B(1391)-B(1393)-B(1395)\nIF (DO_JVS(1981)) &\n! JVS(1981) = Jac_FULL(263,275)\n  JVS(1981) = 0\nIF (DO_JVS(1982)) &\n! JVS(1982) = Jac_FULL(263,277)\n  JVS(1982) = 0\nIF (DO_JVS(1983)) &\n! JVS(1983) = Jac_FULL(263,278)\n  JVS(1983) = 0.84*B(764)+B(766)+0.75*B(768)\nIF (DO_JVS(1984)) &\n! JVS(1984) = Jac_FULL(263,281)\n  JVS(1984) = 0\nIF (DO_JVS(1985)) &\n! JVS(1985) = Jac_FULL(263,291)\n  JVS(1985) = 0\nIF (DO_JVS(1986)) &\n! JVS(1986) = Jac_FULL(263,324)\n  JVS(1986) = -B(1396)\nIF (DO_JVS(1987)) &\n! JVS(1987) = Jac_FULL(263,328)\n  JVS(1987) = 0.75*B(769)-B(1394)\nIF (DO_JVS(1988)) &\n! JVS(1988) = Jac_FULL(263,337)\n  JVS(1988) = -B(1388)\nIF (DO_JVS(1989)) &\n! JVS(1989) = Jac_FULL(263,341)\n  JVS(1989) = 0.15*B(726)+0.5*B(730)+0.7*B(862)+0.7*B(868)+B(874)\nIF (DO_JVS(1990)) &\n! JVS(1990) = Jac_FULL(263,345)\n  JVS(1990) = 0.5*B(744)+0.5*B(771)+0.55*B(773)+0.5*B(781)+0.7*B(860)+0.7*B(866)+B(872)+0.7*B(1339)+0.813*B(1345)+0.93&\n                &*B(1349)+0.46*B(1382)+0.81*B(1384)+0.85*B(1386)+0.14*B(1415)+0.2*B(1419)+0.7*B(1423)\nIF (DO_JVS(1991)) &\n! JVS(1991) = Jac_FULL(263,346)\n  JVS(1991) = 0.84*B(765)-B(1390)\nIF (DO_JVS(1992)) &\n! JVS(1992) = Jac_FULL(263,351)\n  JVS(1992) = B(767)+B(811)+B(817)+B(823)+0.35*B(864)+0.35*B(870)+0.5*B(876)+B(1341)+B(1347)+B(1351)-B(1392)+0.2*B(1421)&\n                &+0.2*B(1427)\nIF (DO_JVS(1993)) &\n! JVS(1993) = Jac_FULL(264,241)\n  JVS(1993) = B(713)\nIF (DO_JVS(1994)) &\n! JVS(1994) = Jac_FULL(264,264)\n  JVS(1994) = -B(15)-B(40)-B(469)-B(571)-B(1645)\nIF (DO_JVS(1995)) &\n! JVS(1995) = Jac_FULL(264,276)\n  JVS(1995) = 0.013*B(947)\nIF (DO_JVS(1996)) &\n! JVS(1996) = Jac_FULL(264,290)\n  JVS(1996) = 0\nIF (DO_JVS(1997)) &\n! JVS(1997) = Jac_FULL(264,312)\n  JVS(1997) = 0.06*B(697)+0.06*B(699)\nIF (DO_JVS(1998)) &\n! JVS(1998) = Jac_FULL(264,314)\n  JVS(1998) = 0.045*B(1226)\nIF (DO_JVS(1999)) &\n! JVS(1999) = Jac_FULL(264,329)\n  JVS(1999) = 0\nIF (DO_JVS(2000)) &\n! JVS(2000) = Jac_FULL(264,335)\n  JVS(2000) = 0\nIF (DO_JVS(2001)) &\n! JVS(2001) = Jac_FULL(264,336)\n  JVS(2001) = 0.06*B(698)+0.06*B(700)+B(714)\nIF (DO_JVS(2002)) &\n! JVS(2002) = Jac_FULL(264,337)\n  JVS(2002) = B(44)\nIF (DO_JVS(2003)) &\n! JVS(2003) = Jac_FULL(264,340)\n  JVS(2003) = -B(572)\nIF (DO_JVS(2004)) &\n! JVS(2004) = Jac_FULL(264,341)\n  JVS(2004) = 0.013*B(948)+0.045*B(1227)\nIF (DO_JVS(2005)) &\n! JVS(2005) = Jac_FULL(264,343)\n  JVS(2005) = -B(470)\nIF (DO_JVS(2006)) &\n! JVS(2006) = Jac_FULL(264,345)\n  JVS(2006) = B(37)-B(41)\nIF (DO_JVS(2007)) &\n! JVS(2007) = Jac_FULL(264,346)\n  JVS(2007) = 0\nIF (DO_JVS(2008)) &\n! JVS(2008) = Jac_FULL(264,348)\n  JVS(2008) = -B(16)\nIF (DO_JVS(2009)) &\n! JVS(2009) = Jac_FULL(265,60)\n  JVS(2009) = 0.364*B(1362)\nIF (DO_JVS(2010)) &\n! JVS(2010) = Jac_FULL(265,88)\n  JVS(2010) = 0.5*B(1322)\nIF (DO_JVS(2011)) &\n! JVS(2011) = Jac_FULL(265,107)\n  JVS(2011) = 0.3*B(1304)\nIF (DO_JVS(2012)) &\n! JVS(2012) = Jac_FULL(265,159)\n  JVS(2012) = 0\nIF (DO_JVS(2013)) &\n! JVS(2013) = Jac_FULL(265,184)\n  JVS(2013) = 0\nIF (DO_JVS(2014)) &\n! JVS(2014) = Jac_FULL(265,194)\n  JVS(2014) = 0.187*B(1258)\nIF (DO_JVS(2015)) &\n! JVS(2015) = Jac_FULL(265,201)\n  JVS(2015) = 0.1*B(1470)+0.2*B(1472)\nIF (DO_JVS(2016)) &\n! JVS(2016) = Jac_FULL(265,221)\n  JVS(2016) = 0.26*B(1465)+0.5*B(1467)\nIF (DO_JVS(2017)) &\n! JVS(2017) = Jac_FULL(265,230)\n  JVS(2017) = 0\nIF (DO_JVS(2018)) &\n! JVS(2018) = Jac_FULL(265,231)\n  JVS(2018) = 0\nIF (DO_JVS(2019)) &\n! JVS(2019) = Jac_FULL(265,259)\n  JVS(2019) = 0\nIF (DO_JVS(2020)) &\n! JVS(2020) = Jac_FULL(265,265)\n  JVS(2020) = -B(87)-B(611)\nIF (DO_JVS(2021)) &\n! JVS(2021) = Jac_FULL(265,269)\n  JVS(2021) = 0\nIF (DO_JVS(2022)) &\n! JVS(2022) = Jac_FULL(265,276)\n  JVS(2022) = 0\nIF (DO_JVS(2023)) &\n! JVS(2023) = Jac_FULL(265,301)\n  JVS(2023) = 0\nIF (DO_JVS(2024)) &\n! JVS(2024) = Jac_FULL(265,302)\n  JVS(2024) = 0.449*B(1236)\nIF (DO_JVS(2025)) &\n! JVS(2025) = Jac_FULL(265,303)\n  JVS(2025) = 0\nIF (DO_JVS(2026)) &\n! JVS(2026) = Jac_FULL(265,304)\n  JVS(2026) = 0\nIF (DO_JVS(2027)) &\n! JVS(2027) = Jac_FULL(265,305)\n  JVS(2027) = 0\nIF (DO_JVS(2028)) &\n! JVS(2028) = Jac_FULL(265,306)\n  JVS(2028) = 0.134*B(289)+B(291)\nIF (DO_JVS(2029)) &\n! JVS(2029) = Jac_FULL(265,307)\n  JVS(2029) = 0.5*B(322)\nIF (DO_JVS(2030)) &\n! JVS(2030) = Jac_FULL(265,308)\n  JVS(2030) = 0\nIF (DO_JVS(2031)) &\n! JVS(2031) = Jac_FULL(265,309)\n  JVS(2031) = 0\nIF (DO_JVS(2032)) &\n! JVS(2032) = Jac_FULL(265,312)\n  JVS(2032) = 0.21*B(697)+0.54*B(699)\nIF (DO_JVS(2033)) &\n! JVS(2033) = Jac_FULL(265,335)\n  JVS(2033) = 0\nIF (DO_JVS(2034)) &\n! JVS(2034) = Jac_FULL(265,336)\n  JVS(2034) = 0.21*B(698)+0.54*B(700)\nIF (DO_JVS(2035)) &\n! JVS(2035) = Jac_FULL(265,337)\n  JVS(2035) = 0\nIF (DO_JVS(2036)) &\n! JVS(2036) = Jac_FULL(265,340)\n  JVS(2036) = -B(612)\nIF (DO_JVS(2037)) &\n! JVS(2037) = Jac_FULL(265,341)\n  JVS(2037) = 0.5*B(1468)+0.2*B(1473)\nIF (DO_JVS(2038)) &\n! JVS(2038) = Jac_FULL(265,345)\n  JVS(2038) = -B(88)+0.134*B(290)+B(292)+0.5*B(323)+0.449*B(1237)+0.187*B(1259)+0.3*B(1305)+0.5*B(1323)+0.364*B(1363)&\n                &+0.26*B(1466)+0.1*B(1471)\nIF (DO_JVS(2039)) &\n! JVS(2039) = Jac_FULL(265,346)\n  JVS(2039) = 0\nIF (DO_JVS(2040)) &\n! JVS(2040) = Jac_FULL(265,351)\n  JVS(2040) = 0\nIF (DO_JVS(2041)) &\n! JVS(2041) = Jac_FULL(266,190)\n  JVS(2041) = B(1120)\nIF (DO_JVS(2042)) &\n! JVS(2042) = Jac_FULL(266,205)\n  JVS(2042) = B(1113)\nIF (DO_JVS(2043)) &\n! JVS(2043) = Jac_FULL(266,206)\n  JVS(2043) = B(1127)\nIF (DO_JVS(2044)) &\n! JVS(2044) = Jac_FULL(266,207)\n  JVS(2044) = B(1128)\nIF (DO_JVS(2045)) &\n! JVS(2045) = Jac_FULL(266,226)\n  JVS(2045) = B(1196)\nIF (DO_JVS(2046)) &\n! JVS(2046) = Jac_FULL(266,243)\n  JVS(2046) = B(1080)\nIF (DO_JVS(2047)) &\n! JVS(2047) = Jac_FULL(266,266)\n  JVS(2047) = -B(1314)-B(1636)-B(1799)-B(1800)\nIF (DO_JVS(2048)) &\n! JVS(2048) = Jac_FULL(266,267)\n  JVS(2048) = 0\nIF (DO_JVS(2049)) &\n! JVS(2049) = Jac_FULL(266,268)\n  JVS(2049) = 0\nIF (DO_JVS(2050)) &\n! JVS(2050) = Jac_FULL(266,271)\n  JVS(2050) = 0.5*B(1197)\nIF (DO_JVS(2051)) &\n! JVS(2051) = Jac_FULL(266,285)\n  JVS(2051) = B(1074)\nIF (DO_JVS(2052)) &\n! JVS(2052) = Jac_FULL(266,286)\n  JVS(2052) = B(1068)\nIF (DO_JVS(2053)) &\n! JVS(2053) = Jac_FULL(266,303)\n  JVS(2053) = 0.9*B(1316)\nIF (DO_JVS(2054)) &\n! JVS(2054) = Jac_FULL(266,304)\n  JVS(2054) = 0\nIF (DO_JVS(2055)) &\n! JVS(2055) = Jac_FULL(266,305)\n  JVS(2055) = 0\nIF (DO_JVS(2056)) &\n! JVS(2056) = Jac_FULL(266,311)\n  JVS(2056) = 0\nIF (DO_JVS(2057)) &\n! JVS(2057) = Jac_FULL(266,337)\n  JVS(2057) = 0\nIF (DO_JVS(2058)) &\n! JVS(2058) = Jac_FULL(266,345)\n  JVS(2058) = -B(1315)+0.9*B(1317)\nIF (DO_JVS(2059)) &\n! JVS(2059) = Jac_FULL(266,346)\n  JVS(2059) = B(1069)+B(1075)+B(1081)\nIF (DO_JVS(2060)) &\n! JVS(2060) = Jac_FULL(267,267)\n  JVS(2060) = -B(1105)-B(1107)-B(1111)-B(1631)-B(1786)\nIF (DO_JVS(2061)) &\n! JVS(2061) = Jac_FULL(267,305)\n  JVS(2061) = B(989)\nIF (DO_JVS(2062)) &\n! JVS(2062) = Jac_FULL(267,311)\n  JVS(2062) = 0.127*B(1156)+0.057*B(1157)\nIF (DO_JVS(2063)) &\n! JVS(2063) = Jac_FULL(267,328)\n  JVS(2063) = 0.057*B(1158)\nIF (DO_JVS(2064)) &\n! JVS(2064) = Jac_FULL(267,345)\n  JVS(2064) = -B(1106)-B(1108)-B(1112)\nIF (DO_JVS(2065)) &\n! JVS(2065) = Jac_FULL(267,346)\n  JVS(2065) = B(990)\nIF (DO_JVS(2066)) &\n! JVS(2066) = Jac_FULL(268,268)\n  JVS(2066) = -B(1101)-B(1103)-B(1109)-B(1628)-B(1783)\nIF (DO_JVS(2067)) &\n! JVS(2067) = Jac_FULL(268,304)\n  JVS(2067) = B(997)\nIF (DO_JVS(2068)) &\n! JVS(2068) = Jac_FULL(268,310)\n  JVS(2068) = 0.032*B(1154)\nIF (DO_JVS(2069)) &\n! JVS(2069) = Jac_FULL(268,311)\n  JVS(2069) = 0.032*B(1155)+0.671*B(1156)+0.298*B(1157)\nIF (DO_JVS(2070)) &\n! JVS(2070) = Jac_FULL(268,328)\n  JVS(2070) = 0.298*B(1158)\nIF (DO_JVS(2071)) &\n! JVS(2071) = Jac_FULL(268,345)\n  JVS(2071) = -B(1102)-B(1104)-B(1110)\nIF (DO_JVS(2072)) &\n! JVS(2072) = Jac_FULL(268,346)\n  JVS(2072) = B(998)\nIF (DO_JVS(2073)) &\n! JVS(2073) = Jac_FULL(269,158)\n  JVS(2073) = 0.5*B(1420)\nIF (DO_JVS(2074)) &\n! JVS(2074) = Jac_FULL(269,195)\n  JVS(2074) = 0.258*B(1416)\nIF (DO_JVS(2075)) &\n! JVS(2075) = Jac_FULL(269,200)\n  JVS(2075) = 0\nIF (DO_JVS(2076)) &\n! JVS(2076) = Jac_FULL(269,202)\n  JVS(2076) = 0.5*B(1426)\nIF (DO_JVS(2077)) &\n! JVS(2077) = Jac_FULL(269,203)\n  JVS(2077) = B(1455)\nIF (DO_JVS(2078)) &\n! JVS(2078) = Jac_FULL(269,220)\n  JVS(2078) = 0\nIF (DO_JVS(2079)) &\n! JVS(2079) = Jac_FULL(269,235)\n  JVS(2079) = 0\nIF (DO_JVS(2080)) &\n! JVS(2080) = Jac_FULL(269,236)\n  JVS(2080) = 0\nIF (DO_JVS(2081)) &\n! JVS(2081) = Jac_FULL(269,269)\n  JVS(2081) = -B(1457)-B(1459)-B(1640)-B(1805)\nIF (DO_JVS(2082)) &\n! JVS(2082) = Jac_FULL(269,328)\n  JVS(2082) = 0\nIF (DO_JVS(2083)) &\n! JVS(2083) = Jac_FULL(269,335)\n  JVS(2083) = B(1456)\nIF (DO_JVS(2084)) &\n! JVS(2084) = Jac_FULL(269,337)\n  JVS(2084) = 0\nIF (DO_JVS(2085)) &\n! JVS(2085) = Jac_FULL(269,341)\n  JVS(2085) = 0\nIF (DO_JVS(2086)) &\n! JVS(2086) = Jac_FULL(269,345)\n  JVS(2086) = -B(1458)\nIF (DO_JVS(2087)) &\n! JVS(2087) = Jac_FULL(269,346)\n  JVS(2087) = 0\nIF (DO_JVS(2088)) &\n! JVS(2088) = Jac_FULL(269,351)\n  JVS(2088) = 0.258*B(1417)+0.5*B(1421)+0.5*B(1427)-B(1460)\nIF (DO_JVS(2089)) &\n! JVS(2089) = Jac_FULL(270,60)\n  JVS(2089) = 0.636*B(1362)\nIF (DO_JVS(2090)) &\n! JVS(2090) = Jac_FULL(270,82)\n  JVS(2090) = 0.12*B(1383)\nIF (DO_JVS(2091)) &\n! JVS(2091) = Jac_FULL(270,101)\n  JVS(2091) = 0.1*B(1385)\nIF (DO_JVS(2092)) &\n! JVS(2092) = Jac_FULL(270,143)\n  JVS(2092) = 0.18*B(1381)\nIF (DO_JVS(2093)) &\n! JVS(2093) = Jac_FULL(270,185)\n  JVS(2093) = 0.429*B(1768)\nIF (DO_JVS(2094)) &\n! JVS(2094) = Jac_FULL(270,194)\n  JVS(2094) = 0.125*B(1769)\nIF (DO_JVS(2095)) &\n! JVS(2095) = Jac_FULL(270,195)\n  JVS(2095) = 0.06*B(1414)\nIF (DO_JVS(2096)) &\n! JVS(2096) = Jac_FULL(270,198)\n  JVS(2096) = 0.571*B(1795)\nIF (DO_JVS(2097)) &\n! JVS(2097) = Jac_FULL(270,200)\n  JVS(2097) = 0.1*B(1348)\nIF (DO_JVS(2098)) &\n! JVS(2098) = Jac_FULL(270,210)\n  JVS(2098) = B(1328)\nIF (DO_JVS(2099)) &\n! JVS(2099) = Jac_FULL(270,220)\n  JVS(2099) = 0\nIF (DO_JVS(2100)) &\n! JVS(2100) = Jac_FULL(270,221)\n  JVS(2100) = 0.6*B(1465)+0.6*B(1467)+0.2*B(1469)\nIF (DO_JVS(2101)) &\n! JVS(2101) = Jac_FULL(270,223)\n  JVS(2101) = 0\nIF (DO_JVS(2102)) &\n! JVS(2102) = Jac_FULL(270,224)\n  JVS(2102) = 0\nIF (DO_JVS(2103)) &\n! JVS(2103) = Jac_FULL(270,226)\n  JVS(2103) = 0\nIF (DO_JVS(2104)) &\n! JVS(2104) = Jac_FULL(270,227)\n  JVS(2104) = 0.5*B(1766)\nIF (DO_JVS(2105)) &\n! JVS(2105) = Jac_FULL(270,230)\n  JVS(2105) = 0\nIF (DO_JVS(2106)) &\n! JVS(2106) = Jac_FULL(270,231)\n  JVS(2106) = 0\nIF (DO_JVS(2107)) &\n! JVS(2107) = Jac_FULL(270,232)\n  JVS(2107) = 0\nIF (DO_JVS(2108)) &\n! JVS(2108) = Jac_FULL(270,233)\n  JVS(2108) = 0.065*B(154)\nIF (DO_JVS(2109)) &\n! JVS(2109) = Jac_FULL(270,258)\n  JVS(2109) = 0.586*B(1793)\nIF (DO_JVS(2110)) &\n! JVS(2110) = Jac_FULL(270,267)\n  JVS(2110) = 0\nIF (DO_JVS(2111)) &\n! JVS(2111) = Jac_FULL(270,268)\n  JVS(2111) = 0\nIF (DO_JVS(2112)) &\n! JVS(2112) = Jac_FULL(270,269)\n  JVS(2112) = 0\nIF (DO_JVS(2113)) &\n! JVS(2113) = Jac_FULL(270,270)\n  JVS(2113) = -B(312)-B(316)-B(1615)-B(1667)-B(1668)-B(1669)\nIF (DO_JVS(2114)) &\n! JVS(2114) = Jac_FULL(270,271)\n  JVS(2114) = 0\nIF (DO_JVS(2115)) &\n! JVS(2115) = Jac_FULL(270,276)\n  JVS(2115) = 0\nIF (DO_JVS(2116)) &\n! JVS(2116) = Jac_FULL(270,285)\n  JVS(2116) = 0.8*B(1072)+0.52*B(1076)\nIF (DO_JVS(2117)) &\n! JVS(2117) = Jac_FULL(270,286)\n  JVS(2117) = 0\nIF (DO_JVS(2118)) &\n! JVS(2118) = Jac_FULL(270,288)\n  JVS(2118) = 0\nIF (DO_JVS(2119)) &\n! JVS(2119) = Jac_FULL(270,301)\n  JVS(2119) = 0\nIF (DO_JVS(2120)) &\n! JVS(2120) = Jac_FULL(270,302)\n  JVS(2120) = 0\nIF (DO_JVS(2121)) &\n! JVS(2121) = Jac_FULL(270,303)\n  JVS(2121) = 0\nIF (DO_JVS(2122)) &\n! JVS(2122) = Jac_FULL(270,304)\n  JVS(2122) = 0\nIF (DO_JVS(2123)) &\n! JVS(2123) = Jac_FULL(270,305)\n  JVS(2123) = 0\nIF (DO_JVS(2124)) &\n! JVS(2124) = Jac_FULL(270,306)\n  JVS(2124) = 0.134*B(289)+0.2*B(293)\nIF (DO_JVS(2125)) &\n! JVS(2125) = Jac_FULL(270,310)\n  JVS(2125) = 0\nIF (DO_JVS(2126)) &\n! JVS(2126) = Jac_FULL(270,311)\n  JVS(2126) = 0\nIF (DO_JVS(2127)) &\n! JVS(2127) = Jac_FULL(270,328)\n  JVS(2127) = 0\nIF (DO_JVS(2128)) &\n! JVS(2128) = Jac_FULL(270,335)\n  JVS(2128) = 0\nIF (DO_JVS(2129)) &\n! JVS(2129) = Jac_FULL(270,337)\n  JVS(2129) = 0.52*B(1077)\nIF (DO_JVS(2130)) &\n! JVS(2130) = Jac_FULL(270,341)\n  JVS(2130) = 0.6*B(1468)\nIF (DO_JVS(2131)) &\n! JVS(2131) = Jac_FULL(270,345)\n  JVS(2131) = 0.065*B(155)+0.134*B(290)+0.2*B(294)-B(313)+B(1329)+0.1*B(1349)+0.636*B(1363)+0.18*B(1382)+0.12*B(1384)&\n                &+0.1*B(1386)+0.06*B(1415)+0.6*B(1466)\nIF (DO_JVS(2132)) &\n! JVS(2132) = Jac_FULL(270,346)\n  JVS(2132) = 0.8*B(1073)\nIF (DO_JVS(2133)) &\n! JVS(2133) = Jac_FULL(270,351)\n  JVS(2133) = -B(317)\nIF (DO_JVS(2134)) &\n! JVS(2134) = Jac_FULL(271,222)\n  JVS(2134) = 0.67*B(1180)\nIF (DO_JVS(2135)) &\n! JVS(2135) = Jac_FULL(271,271)\n  JVS(2135) = -B(1197)-B(1198)-B(1202)-B(1204)\nIF (DO_JVS(2136)) &\n! JVS(2136) = Jac_FULL(271,310)\n  JVS(2136) = 0\nIF (DO_JVS(2137)) &\n! JVS(2137) = Jac_FULL(271,311)\n  JVS(2137) = 0\nIF (DO_JVS(2138)) &\n! JVS(2138) = Jac_FULL(271,328)\n  JVS(2138) = 0\nIF (DO_JVS(2139)) &\n! JVS(2139) = Jac_FULL(271,337)\n  JVS(2139) = -B(1199)\nIF (DO_JVS(2140)) &\n! JVS(2140) = Jac_FULL(271,345)\n  JVS(2140) = 0.67*B(1181)\nIF (DO_JVS(2141)) &\n! JVS(2141) = Jac_FULL(271,346)\n  JVS(2141) = -B(1203)-B(1205)\nIF (DO_JVS(2142)) &\n! JVS(2142) = Jac_FULL(272,211)\n  JVS(2142) = 0.18*B(818)\nIF (DO_JVS(2143)) &\n! JVS(2143) = Jac_FULL(272,237)\n  JVS(2143) = B(812)+0.27*B(814)\nIF (DO_JVS(2144)) &\n! JVS(2144) = Jac_FULL(272,272)\n  JVS(2144) = -B(824)-B(826)-B(828)-B(830)\nIF (DO_JVS(2145)) &\n! JVS(2145) = Jac_FULL(272,281)\n  JVS(2145) = 0\nIF (DO_JVS(2146)) &\n! JVS(2146) = Jac_FULL(272,324)\n  JVS(2146) = 0\nIF (DO_JVS(2147)) &\n! JVS(2147) = Jac_FULL(272,328)\n  JVS(2147) = -B(831)\nIF (DO_JVS(2148)) &\n! JVS(2148) = Jac_FULL(272,337)\n  JVS(2148) = -B(827)\nIF (DO_JVS(2149)) &\n! JVS(2149) = Jac_FULL(272,341)\n  JVS(2149) = 0.27*B(815)\nIF (DO_JVS(2150)) &\n! JVS(2150) = Jac_FULL(272,345)\n  JVS(2150) = B(813)+0.18*B(819)\nIF (DO_JVS(2151)) &\n! JVS(2151) = Jac_FULL(272,346)\n  JVS(2151) = -B(825)\nIF (DO_JVS(2152)) &\n! JVS(2152) = Jac_FULL(272,351)\n  JVS(2152) = -B(829)\nIF (DO_JVS(2153)) &\n! JVS(2153) = Jac_FULL(273,129)\n  JVS(2153) = B(784)\nIF (DO_JVS(2154)) &\n! JVS(2154) = Jac_FULL(273,138)\n  JVS(2154) = 0\nIF (DO_JVS(2155)) &\n! JVS(2155) = Jac_FULL(273,161)\n  JVS(2155) = B(796)\nIF (DO_JVS(2156)) &\n! JVS(2156) = Jac_FULL(273,191)\n  JVS(2156) = 0.1*B(733)\nIF (DO_JVS(2157)) &\n! JVS(2157) = Jac_FULL(273,273)\n  JVS(2157) = -B(786)-B(788)-B(790)-B(792)-B(794)\nIF (DO_JVS(2158)) &\n! JVS(2158) = Jac_FULL(273,275)\n  JVS(2158) = 0\nIF (DO_JVS(2159)) &\n! JVS(2159) = Jac_FULL(273,324)\n  JVS(2159) = 0\nIF (DO_JVS(2160)) &\n! JVS(2160) = Jac_FULL(273,328)\n  JVS(2160) = -B(793)\nIF (DO_JVS(2161)) &\n! JVS(2161) = Jac_FULL(273,337)\n  JVS(2161) = -B(787)\nIF (DO_JVS(2162)) &\n! JVS(2162) = Jac_FULL(273,341)\n  JVS(2162) = 0.1*B(734)\nIF (DO_JVS(2163)) &\n! JVS(2163) = Jac_FULL(273,345)\n  JVS(2163) = B(785)+B(797)\nIF (DO_JVS(2164)) &\n! JVS(2164) = Jac_FULL(273,346)\n  JVS(2164) = -B(789)-B(791)\nIF (DO_JVS(2165)) &\n! JVS(2165) = Jac_FULL(273,351)\n  JVS(2165) = -B(795)\nIF (DO_JVS(2166)) &\n! JVS(2166) = Jac_FULL(274,57)\n  JVS(2166) = B(844)\nIF (DO_JVS(2167)) &\n! JVS(2167) = Jac_FULL(274,161)\n  JVS(2167) = 0.27*B(1813)\nIF (DO_JVS(2168)) &\n! JVS(2168) = Jac_FULL(274,162)\n  JVS(2168) = 0.085*B(798)\nIF (DO_JVS(2169)) &\n! JVS(2169) = Jac_FULL(274,163)\n  JVS(2169) = B(832)+B(834)\nIF (DO_JVS(2170)) &\n! JVS(2170) = Jac_FULL(274,167)\n  JVS(2170) = 0.715*B(725)\nIF (DO_JVS(2171)) &\n! JVS(2171) = Jac_FULL(274,169)\n  JVS(2171) = B(847)\nIF (DO_JVS(2172)) &\n! JVS(2172) = Jac_FULL(274,177)\n  JVS(2172) = 0.5*B(836)\nIF (DO_JVS(2173)) &\n! JVS(2173) = Jac_FULL(274,211)\n  JVS(2173) = 0.32*B(818)+0.4*B(820)\nIF (DO_JVS(2174)) &\n! JVS(2174) = Jac_FULL(274,237)\n  JVS(2174) = 0.73*B(814)\nIF (DO_JVS(2175)) &\n! JVS(2175) = Jac_FULL(274,255)\n  JVS(2175) = B(806)+0.6*B(808)+0.9*B(1817)\nIF (DO_JVS(2176)) &\n! JVS(2176) = Jac_FULL(274,272)\n  JVS(2176) = 0\nIF (DO_JVS(2177)) &\n! JVS(2177) = Jac_FULL(274,273)\n  JVS(2177) = 0.27*B(790)+0.23*B(792)+0.27*B(794)\nIF (DO_JVS(2178)) &\n! JVS(2178) = Jac_FULL(274,274)\n  JVS(2178) = -B(838)-B(840)-B(842)-B(845)-B(897)-B(899)\nIF (DO_JVS(2179)) &\n! JVS(2179) = Jac_FULL(274,275)\n  JVS(2179) = 0\nIF (DO_JVS(2180)) &\n! JVS(2180) = Jac_FULL(274,281)\n  JVS(2180) = 0\nIF (DO_JVS(2181)) &\n! JVS(2181) = Jac_FULL(274,324)\n  JVS(2181) = -B(900)\nIF (DO_JVS(2182)) &\n! JVS(2182) = Jac_FULL(274,328)\n  JVS(2182) = 0.23*B(793)-B(898)\nIF (DO_JVS(2183)) &\n! JVS(2183) = Jac_FULL(274,335)\n  JVS(2183) = -B(843)\nIF (DO_JVS(2184)) &\n! JVS(2184) = Jac_FULL(274,337)\n  JVS(2184) = -B(839)\nIF (DO_JVS(2185)) &\n! JVS(2185) = Jac_FULL(274,341)\n  JVS(2185) = 0.715*B(726)+0.6*B(809)+0.73*B(815)+0.4*B(821)\nIF (DO_JVS(2186)) &\n! JVS(2186) = Jac_FULL(274,345)\n  JVS(2186) = 0.085*B(799)+B(807)+0.32*B(819)+B(833)+0.5*B(837)+B(848)\nIF (DO_JVS(2187)) &\n! JVS(2187) = Jac_FULL(274,346)\n  JVS(2187) = 0.27*B(791)-B(841)\nIF (DO_JVS(2188)) &\n! JVS(2188) = Jac_FULL(274,351)\n  JVS(2188) = 0.27*B(795)+B(835)-B(846)\nIF (DO_JVS(2189)) &\n! JVS(2189) = Jac_FULL(275,112)\n  JVS(2189) = B(782)\nIF (DO_JVS(2190)) &\n! JVS(2190) = Jac_FULL(275,191)\n  JVS(2190) = 0.255*B(731)\nIF (DO_JVS(2191)) &\n! JVS(2191) = Jac_FULL(275,219)\n  JVS(2191) = 0.15*B(727)\nIF (DO_JVS(2192)) &\n! JVS(2192) = Jac_FULL(275,275)\n  JVS(2192) = -B(774)-B(776)-B(778)-B(881)-B(883)\nIF (DO_JVS(2193)) &\n! JVS(2193) = Jac_FULL(275,324)\n  JVS(2193) = -B(884)\nIF (DO_JVS(2194)) &\n! JVS(2194) = Jac_FULL(275,328)\n  JVS(2194) = -B(882)\nIF (DO_JVS(2195)) &\n! JVS(2195) = Jac_FULL(275,337)\n  JVS(2195) = -B(775)\nIF (DO_JVS(2196)) &\n! JVS(2196) = Jac_FULL(275,341)\n  JVS(2196) = 0\nIF (DO_JVS(2197)) &\n! JVS(2197) = Jac_FULL(275,345)\n  JVS(2197) = 0.15*B(728)+0.255*B(732)+B(783)\nIF (DO_JVS(2198)) &\n! JVS(2198) = Jac_FULL(275,346)\n  JVS(2198) = -B(777)\nIF (DO_JVS(2199)) &\n! JVS(2199) = Jac_FULL(275,351)\n  JVS(2199) = -B(779)\nIF (DO_JVS(2200)) &\n! JVS(2200) = Jac_FULL(276,276)\n  JVS(2200) = -B(635)-B(947)-B(949)-B(951)-B(953)-B(955)-B(1147)\nIF (DO_JVS(2201)) &\n! JVS(2201) = Jac_FULL(276,340)\n  JVS(2201) = -B(636)\nIF (DO_JVS(2202)) &\n! JVS(2202) = Jac_FULL(276,341)\n  JVS(2202) = -B(948)\nIF (DO_JVS(2203)) &\n! JVS(2203) = Jac_FULL(276,345)\n  JVS(2203) = -B(950)-B(952)-B(954)-B(956)\nIF (DO_JVS(2204)) &\n! JVS(2204) = Jac_FULL(276,351)\n  JVS(2204) = -B(1148)\nIF (DO_JVS(2205)) &\n! JVS(2205) = Jac_FULL(277,111)\n  JVS(2205) = 0.6*B(741)\nIF (DO_JVS(2206)) &\n! JVS(2206) = Jac_FULL(277,191)\n  JVS(2206) = 0.67*B(731)+0.5*B(733)\nIF (DO_JVS(2207)) &\n! JVS(2207) = Jac_FULL(277,219)\n  JVS(2207) = 0.15*B(727)\nIF (DO_JVS(2208)) &\n! JVS(2208) = Jac_FULL(277,277)\n  JVS(2208) = -B(735)-B(737)-B(739)-B(877)-B(879)\nIF (DO_JVS(2209)) &\n! JVS(2209) = Jac_FULL(277,324)\n  JVS(2209) = -B(880)\nIF (DO_JVS(2210)) &\n! JVS(2210) = Jac_FULL(277,328)\n  JVS(2210) = -B(878)\nIF (DO_JVS(2211)) &\n! JVS(2211) = Jac_FULL(277,337)\n  JVS(2211) = -B(736)\nIF (DO_JVS(2212)) &\n! JVS(2212) = Jac_FULL(277,341)\n  JVS(2212) = 0.5*B(734)\nIF (DO_JVS(2213)) &\n! JVS(2213) = Jac_FULL(277,345)\n  JVS(2213) = 0.15*B(728)+0.67*B(732)+0.6*B(742)\nIF (DO_JVS(2214)) &\n! JVS(2214) = Jac_FULL(277,346)\n  JVS(2214) = -B(738)\nIF (DO_JVS(2215)) &\n! JVS(2215) = Jac_FULL(277,351)\n  JVS(2215) = -B(740)\nIF (DO_JVS(2216)) &\n! JVS(2216) = Jac_FULL(278,66)\n  JVS(2216) = B(760)+B(1810)\nIF (DO_JVS(2217)) &\n! JVS(2217) = Jac_FULL(278,74)\n  JVS(2217) = B(1809)\nIF (DO_JVS(2218)) &\n! JVS(2218) = Jac_FULL(278,160)\n  JVS(2218) = 0.5*B(770)\nIF (DO_JVS(2219)) &\n! JVS(2219) = Jac_FULL(278,225)\n  JVS(2219) = B(1808)\nIF (DO_JVS(2220)) &\n! JVS(2220) = Jac_FULL(278,257)\n  JVS(2220) = 0.44*B(749)+B(751)+B(756)+0.75*B(893)+B(895)\nIF (DO_JVS(2221)) &\n! JVS(2221) = Jac_FULL(278,277)\n  JVS(2221) = 0\nIF (DO_JVS(2222)) &\n! JVS(2222) = Jac_FULL(278,278)\n  JVS(2222) = -B(762)-B(764)-B(766)-B(768)\nIF (DO_JVS(2223)) &\n! JVS(2223) = Jac_FULL(278,324)\n  JVS(2223) = B(896)\nIF (DO_JVS(2224)) &\n! JVS(2224) = Jac_FULL(278,328)\n  JVS(2224) = -B(769)+0.75*B(894)\nIF (DO_JVS(2225)) &\n! JVS(2225) = Jac_FULL(278,335)\n  JVS(2225) = 0\nIF (DO_JVS(2226)) &\n! JVS(2226) = Jac_FULL(278,337)\n  JVS(2226) = 0.44*B(750)-B(763)\nIF (DO_JVS(2227)) &\n! JVS(2227) = Jac_FULL(278,341)\n  JVS(2227) = 0\nIF (DO_JVS(2228)) &\n! JVS(2228) = Jac_FULL(278,345)\n  JVS(2228) = B(761)+0.5*B(771)\nIF (DO_JVS(2229)) &\n! JVS(2229) = Jac_FULL(278,346)\n  JVS(2229) = B(752)-B(765)\nIF (DO_JVS(2230)) &\n! JVS(2230) = Jac_FULL(278,351)\n  JVS(2230) = B(757)-B(767)\nIF (DO_JVS(2231)) &\n! JVS(2231) = Jac_FULL(279,249)\n  JVS(2231) = B(224)\nIF (DO_JVS(2232)) &\n! JVS(2232) = Jac_FULL(279,279)\n  JVS(2232) = -B(197)-B(1688)\nIF (DO_JVS(2233)) &\n! JVS(2233) = Jac_FULL(279,300)\n  JVS(2233) = B(173)\nIF (DO_JVS(2234)) &\n! JVS(2234) = Jac_FULL(279,320)\n  JVS(2234) = 0.072*B(185)\nIF (DO_JVS(2235)) &\n! JVS(2235) = Jac_FULL(279,324)\n  JVS(2235) = 0\nIF (DO_JVS(2236)) &\n! JVS(2236) = Jac_FULL(279,328)\n  JVS(2236) = 0\nIF (DO_JVS(2237)) &\n! JVS(2237) = Jac_FULL(279,337)\n  JVS(2237) = B(225)\nIF (DO_JVS(2238)) &\n! JVS(2238) = Jac_FULL(279,345)\n  JVS(2238) = -B(198)\nIF (DO_JVS(2239)) &\n! JVS(2239) = Jac_FULL(279,346)\n  JVS(2239) = B(174)+0.072*B(186)\nIF (DO_JVS(2240)) &\n! JVS(2240) = Jac_FULL(280,167)\n  JVS(2240) = 0.5*B(721)\nIF (DO_JVS(2241)) &\n! JVS(2241) = Jac_FULL(280,191)\n  JVS(2241) = 0.1*B(717)\nIF (DO_JVS(2242)) &\n! JVS(2242) = Jac_FULL(280,193)\n  JVS(2242) = 0.5*B(869)\nIF (DO_JVS(2243)) &\n! JVS(2243) = Jac_FULL(280,219)\n  JVS(2243) = 0.1*B(719)\nIF (DO_JVS(2244)) &\n! JVS(2244) = Jac_FULL(280,229)\n  JVS(2244) = 0.5*B(863)\nIF (DO_JVS(2245)) &\n! JVS(2245) = Jac_FULL(280,262)\n  JVS(2245) = 0.5*B(875)\nIF (DO_JVS(2246)) &\n! JVS(2246) = Jac_FULL(280,280)\n  JVS(2246) = -B(901)-B(905)-B(909)-B(913)-B(917)-2*B(921)-B(922)\nIF (DO_JVS(2247)) &\n! JVS(2247) = Jac_FULL(280,289)\n  JVS(2247) = -B(923)\nIF (DO_JVS(2248)) &\n! JVS(2248) = Jac_FULL(280,291)\n  JVS(2248) = 0\nIF (DO_JVS(2249)) &\n! JVS(2249) = Jac_FULL(280,324)\n  JVS(2249) = -B(914)\nIF (DO_JVS(2250)) &\n! JVS(2250) = Jac_FULL(280,328)\n  JVS(2250) = -B(910)\nIF (DO_JVS(2251)) &\n! JVS(2251) = Jac_FULL(280,337)\n  JVS(2251) = -B(906)\nIF (DO_JVS(2252)) &\n! JVS(2252) = Jac_FULL(280,341)\n  JVS(2252) = 0\nIF (DO_JVS(2253)) &\n! JVS(2253) = Jac_FULL(280,345)\n  JVS(2253) = 0\nIF (DO_JVS(2254)) &\n! JVS(2254) = Jac_FULL(280,346)\n  JVS(2254) = -B(902)\nIF (DO_JVS(2255)) &\n! JVS(2255) = Jac_FULL(280,351)\n  JVS(2255) = 0.1*B(718)+0.1*B(720)+0.5*B(722)+0.5*B(864)+0.5*B(870)+0.5*B(876)-B(918)\nIF (DO_JVS(2256)) &\n! JVS(2256) = Jac_FULL(281,167)\n  JVS(2256) = B(723)\nIF (DO_JVS(2257)) &\n! JVS(2257) = Jac_FULL(281,191)\n  JVS(2257) = 0.075*B(731)\nIF (DO_JVS(2258)) &\n! JVS(2258) = Jac_FULL(281,219)\n  JVS(2258) = 0.2*B(727)\nIF (DO_JVS(2259)) &\n! JVS(2259) = Jac_FULL(281,281)\n  JVS(2259) = -B(800)-B(802)-B(804)-B(885)-B(887)\nIF (DO_JVS(2260)) &\n! JVS(2260) = Jac_FULL(281,324)\n  JVS(2260) = -B(888)\nIF (DO_JVS(2261)) &\n! JVS(2261) = Jac_FULL(281,328)\n  JVS(2261) = -B(886)\nIF (DO_JVS(2262)) &\n! JVS(2262) = Jac_FULL(281,337)\n  JVS(2262) = -B(801)\nIF (DO_JVS(2263)) &\n! JVS(2263) = Jac_FULL(281,341)\n  JVS(2263) = 0\nIF (DO_JVS(2264)) &\n! JVS(2264) = Jac_FULL(281,345)\n  JVS(2264) = B(724)+0.2*B(728)+0.075*B(732)\nIF (DO_JVS(2265)) &\n! JVS(2265) = Jac_FULL(281,346)\n  JVS(2265) = -B(803)\nIF (DO_JVS(2266)) &\n! JVS(2266) = Jac_FULL(281,351)\n  JVS(2266) = -B(805)\nIF (DO_JVS(2267)) &\n! JVS(2267) = Jac_FULL(282,234)\n  JVS(2267) = 0.2*B(1370)\nIF (DO_JVS(2268)) &\n! JVS(2268) = Jac_FULL(282,246)\n  JVS(2268) = 0\nIF (DO_JVS(2269)) &\n! JVS(2269) = Jac_FULL(282,249)\n  JVS(2269) = 0.25*B(259)\nIF (DO_JVS(2270)) &\n! JVS(2270) = Jac_FULL(282,250)\n  JVS(2270) = 0.25*B(267)\nIF (DO_JVS(2271)) &\n! JVS(2271) = Jac_FULL(282,260)\n  JVS(2271) = 0.25*B(216)\nIF (DO_JVS(2272)) &\n! JVS(2272) = Jac_FULL(282,272)\n  JVS(2272) = 0.25*B(830)\nIF (DO_JVS(2273)) &\n! JVS(2273) = Jac_FULL(282,273)\n  JVS(2273) = 0.25*B(792)\nIF (DO_JVS(2274)) &\n! JVS(2274) = Jac_FULL(282,275)\n  JVS(2274) = 0.25*B(881)\nIF (DO_JVS(2275)) &\n! JVS(2275) = Jac_FULL(282,277)\n  JVS(2275) = 0.25*B(877)\nIF (DO_JVS(2276)) &\n! JVS(2276) = Jac_FULL(282,278)\n  JVS(2276) = 0.25*B(768)\nIF (DO_JVS(2277)) &\n! JVS(2277) = Jac_FULL(282,279)\n  JVS(2277) = 0\nIF (DO_JVS(2278)) &\n! JVS(2278) = Jac_FULL(282,281)\n  JVS(2278) = 0.25*B(885)\nIF (DO_JVS(2279)) &\n! JVS(2279) = Jac_FULL(282,282)\n  JVS(2279) = -B(89)-B(623)\nIF (DO_JVS(2280)) &\n! JVS(2280) = Jac_FULL(282,289)\n  JVS(2280) = 0.25*B(911)\nIF (DO_JVS(2281)) &\n! JVS(2281) = Jac_FULL(282,290)\n  JVS(2281) = 0\nIF (DO_JVS(2282)) &\n! JVS(2282) = Jac_FULL(282,291)\n  JVS(2282) = 0.25*B(889)\nIF (DO_JVS(2283)) &\n! JVS(2283) = Jac_FULL(282,296)\n  JVS(2283) = 0.25*B(247)\nIF (DO_JVS(2284)) &\n! JVS(2284) = Jac_FULL(282,300)\n  JVS(2284) = 0.25*B(257)\nIF (DO_JVS(2285)) &\n! JVS(2285) = Jac_FULL(282,306)\n  JVS(2285) = 0.1*B(1666)\nIF (DO_JVS(2286)) &\n! JVS(2286) = Jac_FULL(282,310)\n  JVS(2286) = 0.034*B(1159)\nIF (DO_JVS(2287)) &\n! JVS(2287) = Jac_FULL(282,311)\n  JVS(2287) = 0.355*B(1157)\nIF (DO_JVS(2288)) &\n! JVS(2288) = Jac_FULL(282,313)\n  JVS(2288) = 0.5*B(261)\nIF (DO_JVS(2289)) &\n! JVS(2289) = Jac_FULL(282,315)\n  JVS(2289) = 0.25*B(249)\nIF (DO_JVS(2290)) &\n! JVS(2290) = Jac_FULL(282,318)\n  JVS(2290) = 0.25*B(255)\nIF (DO_JVS(2291)) &\n! JVS(2291) = Jac_FULL(282,319)\n  JVS(2291) = 0.25*B(253)\nIF (DO_JVS(2292)) &\n! JVS(2292) = Jac_FULL(282,320)\n  JVS(2292) = 0.25*B(263)\nIF (DO_JVS(2293)) &\n! JVS(2293) = Jac_FULL(282,321)\n  JVS(2293) = 0.25*B(214)\nIF (DO_JVS(2294)) &\n! JVS(2294) = Jac_FULL(282,323)\n  JVS(2294) = 0.25*B(265)\nIF (DO_JVS(2295)) &\n! JVS(2295) = Jac_FULL(282,324)\n  JVS(2295) = 0\nIF (DO_JVS(2296)) &\n! JVS(2296) = Jac_FULL(282,328)\n  JVS(2296) = B(55)+0.13*B(57)+0.25*B(215)+0.25*B(217)+0.25*B(248)+0.25*B(250)+0.25*B(254)+0.25*B(256)+0.25*B(258)+0.25&\n                &*B(260)+0.5*B(262)+0.25*B(264)+0.25*B(266)+0.25*B(268)+0.25*B(769)+0.25*B(793)+0.25*B(831)+0.25*B(878)+0.25&\n                &*B(882)+0.25*B(886)+0.25*B(890)+0.25*B(912)+0.355*B(1158)+0.034*B(1160)+0.2*B(1371)\nIF (DO_JVS(2297)) &\n! JVS(2297) = Jac_FULL(282,335)\n  JVS(2297) = 0\nIF (DO_JVS(2298)) &\n! JVS(2298) = Jac_FULL(282,337)\n  JVS(2298) = 0\nIF (DO_JVS(2299)) &\n! JVS(2299) = Jac_FULL(282,340)\n  JVS(2299) = -B(624)\nIF (DO_JVS(2300)) &\n! JVS(2300) = Jac_FULL(282,341)\n  JVS(2300) = 0\nIF (DO_JVS(2301)) &\n! JVS(2301) = Jac_FULL(282,342)\n  JVS(2301) = 0\nIF (DO_JVS(2302)) &\n! JVS(2302) = Jac_FULL(282,345)\n  JVS(2302) = 0.13*B(58)-B(90)\nIF (DO_JVS(2303)) &\n! JVS(2303) = Jac_FULL(282,346)\n  JVS(2303) = 0\nIF (DO_JVS(2304)) &\n! JVS(2304) = Jac_FULL(282,351)\n  JVS(2304) = 0\nIF (DO_JVS(2305)) &\n! JVS(2305) = Jac_FULL(283,201)\n  JVS(2305) = 0.15*B(1470)+0.3*B(1472)\nIF (DO_JVS(2306)) &\n! JVS(2306) = Jac_FULL(283,241)\n  JVS(2306) = B(715)\nIF (DO_JVS(2307)) &\n! JVS(2307) = Jac_FULL(283,249)\n  JVS(2307) = 0.1*B(361)\nIF (DO_JVS(2308)) &\n! JVS(2308) = Jac_FULL(283,250)\n  JVS(2308) = 0.1*B(363)\nIF (DO_JVS(2309)) &\n! JVS(2309) = Jac_FULL(283,260)\n  JVS(2309) = 0.1*B(369)\nIF (DO_JVS(2310)) &\n! JVS(2310) = Jac_FULL(283,275)\n  JVS(2310) = 0.1*B(883)\nIF (DO_JVS(2311)) &\n! JVS(2311) = Jac_FULL(283,277)\n  JVS(2311) = 0.1*B(879)\nIF (DO_JVS(2312)) &\n! JVS(2312) = Jac_FULL(283,279)\n  JVS(2312) = 0\nIF (DO_JVS(2313)) &\n! JVS(2313) = Jac_FULL(283,281)\n  JVS(2313) = 0.1*B(887)\nIF (DO_JVS(2314)) &\n! JVS(2314) = Jac_FULL(283,283)\n  JVS(2314) = -B(199)-B(627)\nIF (DO_JVS(2315)) &\n! JVS(2315) = Jac_FULL(283,290)\n  JVS(2315) = 0\nIF (DO_JVS(2316)) &\n! JVS(2316) = Jac_FULL(283,291)\n  JVS(2316) = 0.1*B(891)\nIF (DO_JVS(2317)) &\n! JVS(2317) = Jac_FULL(283,296)\n  JVS(2317) = 0.1*B(365)\nIF (DO_JVS(2318)) &\n! JVS(2318) = Jac_FULL(283,300)\n  JVS(2318) = 0.1*B(351)\nIF (DO_JVS(2319)) &\n! JVS(2319) = Jac_FULL(283,307)\n  JVS(2319) = 0.5*B(322)\nIF (DO_JVS(2320)) &\n! JVS(2320) = Jac_FULL(283,313)\n  JVS(2320) = 0.1*B(353)\nIF (DO_JVS(2321)) &\n! JVS(2321) = Jac_FULL(283,315)\n  JVS(2321) = 0.1*B(367)\nIF (DO_JVS(2322)) &\n! JVS(2322) = Jac_FULL(283,318)\n  JVS(2322) = 0.1*B(359)\nIF (DO_JVS(2323)) &\n! JVS(2323) = Jac_FULL(283,319)\n  JVS(2323) = 0.1*B(349)\nIF (DO_JVS(2324)) &\n! JVS(2324) = Jac_FULL(283,320)\n  JVS(2324) = 0.1*B(355)\nIF (DO_JVS(2325)) &\n! JVS(2325) = Jac_FULL(283,321)\n  JVS(2325) = 0.1*B(371)\nIF (DO_JVS(2326)) &\n! JVS(2326) = Jac_FULL(283,323)\n  JVS(2326) = 0.1*B(357)\nIF (DO_JVS(2327)) &\n! JVS(2327) = Jac_FULL(283,324)\n  JVS(2327) = 0.1*B(347)+0.1*B(350)+0.1*B(352)+0.1*B(354)+0.1*B(356)+0.1*B(358)+0.1*B(360)+0.1*B(362)+0.1*B(364)+0.1&\n                &*B(366)+0.1*B(368)+0.1*B(370)+0.1*B(372)+0.1*B(880)+0.1*B(884)+0.1*B(888)+0.1*B(892)+0.13*B(1324)\nIF (DO_JVS(2328)) &\n! JVS(2328) = Jac_FULL(283,328)\n  JVS(2328) = 0.1*B(348)\nIF (DO_JVS(2329)) &\n! JVS(2329) = Jac_FULL(283,329)\n  JVS(2329) = 0\nIF (DO_JVS(2330)) &\n! JVS(2330) = Jac_FULL(283,335)\n  JVS(2330) = 0\nIF (DO_JVS(2331)) &\n! JVS(2331) = Jac_FULL(283,336)\n  JVS(2331) = B(716)\nIF (DO_JVS(2332)) &\n! JVS(2332) = Jac_FULL(283,337)\n  JVS(2332) = 0.13*B(1325)\nIF (DO_JVS(2333)) &\n! JVS(2333) = Jac_FULL(283,340)\n  JVS(2333) = -B(628)\nIF (DO_JVS(2334)) &\n! JVS(2334) = Jac_FULL(283,341)\n  JVS(2334) = 0.3*B(1473)\nIF (DO_JVS(2335)) &\n! JVS(2335) = Jac_FULL(283,342)\n  JVS(2335) = 0\nIF (DO_JVS(2336)) &\n! JVS(2336) = Jac_FULL(283,345)\n  JVS(2336) = -B(200)+0.5*B(323)+0.15*B(1471)\nIF (DO_JVS(2337)) &\n! JVS(2337) = Jac_FULL(283,346)\n  JVS(2337) = 0\nIF (DO_JVS(2338)) &\n! JVS(2338) = Jac_FULL(283,348)\n  JVS(2338) = 0\nIF (DO_JVS(2339)) &\n! JVS(2339) = Jac_FULL(283,351)\n  JVS(2339) = 0\nIF (DO_JVS(2340)) &\n! JVS(2340) = Jac_FULL(284,44)\n  JVS(2340) = 0.008*B(684)\nIF (DO_JVS(2341)) &\n! JVS(2341) = Jac_FULL(284,55)\n  JVS(2341) = B(1738)\nIF (DO_JVS(2342)) &\n! JVS(2342) = Jac_FULL(284,96)\n  JVS(2342) = -B(661)+B(665)\nIF (DO_JVS(2343)) &\n! JVS(2343) = Jac_FULL(284,284)\n  JVS(2343) = -B(652)-B(659)-B(662)-B(667)-B(679)-B(681)-2*B(683)-B(1727)\nIF (DO_JVS(2344)) &\n! JVS(2344) = Jac_FULL(284,330)\n  JVS(2344) = B(677)\nIF (DO_JVS(2345)) &\n! JVS(2345) = Jac_FULL(284,331)\n  JVS(2345) = B(657)+B(669)\nIF (DO_JVS(2346)) &\n! JVS(2346) = Jac_FULL(284,332)\n  JVS(2346) = B(654)\nIF (DO_JVS(2347)) &\n! JVS(2347) = Jac_FULL(284,335)\n  JVS(2347) = -B(653)\nIF (DO_JVS(2348)) &\n! JVS(2348) = Jac_FULL(284,337)\n  JVS(2348) = -B(680)\nIF (DO_JVS(2349)) &\n! JVS(2349) = Jac_FULL(284,338)\n  JVS(2349) = -B(668)\nIF (DO_JVS(2350)) &\n! JVS(2350) = Jac_FULL(284,341)\n  JVS(2350) = B(670)\nIF (DO_JVS(2351)) &\n! JVS(2351) = Jac_FULL(284,345)\n  JVS(2351) = B(678)\nIF (DO_JVS(2352)) &\n! JVS(2352) = Jac_FULL(284,346)\n  JVS(2352) = B(666)-B(682)\nIF (DO_JVS(2353)) &\n! JVS(2353) = Jac_FULL(284,347)\n  JVS(2353) = B(658)-B(660)\nIF (DO_JVS(2354)) &\n! JVS(2354) = Jac_FULL(285,147)\n  JVS(2354) = 0.032*B(1308)\nIF (DO_JVS(2355)) &\n! JVS(2355) = Jac_FULL(285,151)\n  JVS(2355) = 0.33*B(1056)\nIF (DO_JVS(2356)) &\n! JVS(2356) = Jac_FULL(285,152)\n  JVS(2356) = 0.19*B(1060)\nIF (DO_JVS(2357)) &\n! JVS(2357) = Jac_FULL(285,168)\n  JVS(2357) = 0\nIF (DO_JVS(2358)) &\n! JVS(2358) = Jac_FULL(285,175)\n  JVS(2358) = 0\nIF (DO_JVS(2359)) &\n! JVS(2359) = Jac_FULL(285,187)\n  JVS(2359) = 0\nIF (DO_JVS(2360)) &\n! JVS(2360) = Jac_FULL(285,192)\n  JVS(2360) = 0\nIF (DO_JVS(2361)) &\n! JVS(2361) = Jac_FULL(285,238)\n  JVS(2361) = 0.068*B(1009)\nIF (DO_JVS(2362)) &\n! JVS(2362) = Jac_FULL(285,267)\n  JVS(2362) = 0\nIF (DO_JVS(2363)) &\n! JVS(2363) = Jac_FULL(285,268)\n  JVS(2363) = 0\nIF (DO_JVS(2364)) &\n! JVS(2364) = Jac_FULL(285,285)\n  JVS(2364) = -B(1070)-B(1071)-B(1072)-B(1074)-B(1076)\nIF (DO_JVS(2365)) &\n! JVS(2365) = Jac_FULL(285,286)\n  JVS(2365) = 0\nIF (DO_JVS(2366)) &\n! JVS(2366) = Jac_FULL(285,304)\n  JVS(2366) = 0\nIF (DO_JVS(2367)) &\n! JVS(2367) = Jac_FULL(285,305)\n  JVS(2367) = 0\nIF (DO_JVS(2368)) &\n! JVS(2368) = Jac_FULL(285,310)\n  JVS(2368) = 0\nIF (DO_JVS(2369)) &\n! JVS(2369) = Jac_FULL(285,311)\n  JVS(2369) = 0\nIF (DO_JVS(2370)) &\n! JVS(2370) = Jac_FULL(285,328)\n  JVS(2370) = 0\nIF (DO_JVS(2371)) &\n! JVS(2371) = Jac_FULL(285,337)\n  JVS(2371) = -B(1077)\nIF (DO_JVS(2372)) &\n! JVS(2372) = Jac_FULL(285,345)\n  JVS(2372) = 0.068*B(1010)+0.33*B(1057)+0.19*B(1061)+0.032*B(1309)\nIF (DO_JVS(2373)) &\n! JVS(2373) = Jac_FULL(285,346)\n  JVS(2373) = -B(1073)-B(1075)\nIF (DO_JVS(2374)) &\n! JVS(2374) = Jac_FULL(286,147)\n  JVS(2374) = 0.08*B(1308)\nIF (DO_JVS(2375)) &\n! JVS(2375) = Jac_FULL(286,151)\n  JVS(2375) = 0.67*B(1056)\nIF (DO_JVS(2376)) &\n! JVS(2376) = Jac_FULL(286,152)\n  JVS(2376) = 0.81*B(1060)\nIF (DO_JVS(2377)) &\n! JVS(2377) = Jac_FULL(286,168)\n  JVS(2377) = 0\nIF (DO_JVS(2378)) &\n! JVS(2378) = Jac_FULL(286,175)\n  JVS(2378) = 0\nIF (DO_JVS(2379)) &\n! JVS(2379) = Jac_FULL(286,187)\n  JVS(2379) = 0\nIF (DO_JVS(2380)) &\n! JVS(2380) = Jac_FULL(286,192)\n  JVS(2380) = 0\nIF (DO_JVS(2381)) &\n! JVS(2381) = Jac_FULL(286,238)\n  JVS(2381) = 0.294*B(1009)\nIF (DO_JVS(2382)) &\n! JVS(2382) = Jac_FULL(286,267)\n  JVS(2382) = 0\nIF (DO_JVS(2383)) &\n! JVS(2383) = Jac_FULL(286,268)\n  JVS(2383) = 0\nIF (DO_JVS(2384)) &\n! JVS(2384) = Jac_FULL(286,285)\n  JVS(2384) = 0\nIF (DO_JVS(2385)) &\n! JVS(2385) = Jac_FULL(286,286)\n  JVS(2385) = -B(1062)-B(1063)-B(1064)-B(1066)-B(1068)\nIF (DO_JVS(2386)) &\n! JVS(2386) = Jac_FULL(286,304)\n  JVS(2386) = 0\nIF (DO_JVS(2387)) &\n! JVS(2387) = Jac_FULL(286,305)\n  JVS(2387) = 0\nIF (DO_JVS(2388)) &\n! JVS(2388) = Jac_FULL(286,310)\n  JVS(2388) = 0\nIF (DO_JVS(2389)) &\n! JVS(2389) = Jac_FULL(286,311)\n  JVS(2389) = 0\nIF (DO_JVS(2390)) &\n! JVS(2390) = Jac_FULL(286,328)\n  JVS(2390) = 0\nIF (DO_JVS(2391)) &\n! JVS(2391) = Jac_FULL(286,337)\n  JVS(2391) = -B(1065)\nIF (DO_JVS(2392)) &\n! JVS(2392) = Jac_FULL(286,345)\n  JVS(2392) = 0.294*B(1010)+0.67*B(1057)+0.81*B(1061)+0.08*B(1309)\nIF (DO_JVS(2393)) &\n! JVS(2393) = Jac_FULL(286,346)\n  JVS(2393) = -B(1067)-B(1069)\nIF (DO_JVS(2394)) &\n! JVS(2394) = Jac_FULL(287,144)\n  JVS(2394) = 0.09*B(1007)\nIF (DO_JVS(2395)) &\n! JVS(2395) = Jac_FULL(287,192)\n  JVS(2395) = 0.165*B(1025)\nIF (DO_JVS(2396)) &\n! JVS(2396) = Jac_FULL(287,198)\n  JVS(2396) = 0.571*B(1312)\nIF (DO_JVS(2397)) &\n! JVS(2397) = Jac_FULL(287,199)\n  JVS(2397) = 0\nIF (DO_JVS(2398)) &\n! JVS(2398) = Jac_FULL(287,223)\n  JVS(2398) = 0.716*B(1032)+0.14*B(1036)\nIF (DO_JVS(2399)) &\n! JVS(2399) = Jac_FULL(287,224)\n  JVS(2399) = 0\nIF (DO_JVS(2400)) &\n! JVS(2400) = Jac_FULL(287,231)\n  JVS(2400) = 0.17*B(1003)\nIF (DO_JVS(2401)) &\n! JVS(2401) = Jac_FULL(287,232)\n  JVS(2401) = 0\nIF (DO_JVS(2402)) &\n! JVS(2402) = Jac_FULL(287,238)\n  JVS(2402) = 0.158*B(1009)\nIF (DO_JVS(2403)) &\n! JVS(2403) = Jac_FULL(287,253)\n  JVS(2403) = 0.41*B(1276)\nIF (DO_JVS(2404)) &\n! JVS(2404) = Jac_FULL(287,258)\n  JVS(2404) = 0.5*B(1306)+0.5*B(1792)\nIF (DO_JVS(2405)) &\n! JVS(2405) = Jac_FULL(287,266)\n  JVS(2405) = 0.25*B(1314)+0.5*B(1800)\nIF (DO_JVS(2406)) &\n! JVS(2406) = Jac_FULL(287,267)\n  JVS(2406) = 0.55*B(1786)\nIF (DO_JVS(2407)) &\n! JVS(2407) = Jac_FULL(287,268)\n  JVS(2407) = 0\nIF (DO_JVS(2408)) &\n! JVS(2408) = Jac_FULL(287,271)\n  JVS(2408) = 0.004*B(1198)+0.006*B(1202)\nIF (DO_JVS(2409)) &\n! JVS(2409) = Jac_FULL(287,276)\n  JVS(2409) = 0\nIF (DO_JVS(2410)) &\n! JVS(2410) = Jac_FULL(287,285)\n  JVS(2410) = 0\nIF (DO_JVS(2411)) &\n! JVS(2411) = Jac_FULL(287,286)\n  JVS(2411) = 0\nIF (DO_JVS(2412)) &\n! JVS(2412) = Jac_FULL(287,287)\n  JVS(2412) = -B(1240)-B(1770)\nIF (DO_JVS(2413)) &\n! JVS(2413) = Jac_FULL(287,301)\n  JVS(2413) = 0\nIF (DO_JVS(2414)) &\n! JVS(2414) = Jac_FULL(287,303)\n  JVS(2414) = 0.15*B(1798)\nIF (DO_JVS(2415)) &\n! JVS(2415) = Jac_FULL(287,304)\n  JVS(2415) = B(974)+0.5*B(975)+0.5*B(983)+0.55*B(999)\nIF (DO_JVS(2416)) &\n! JVS(2416) = Jac_FULL(287,305)\n  JVS(2416) = 0.5*B(976)\nIF (DO_JVS(2417)) &\n! JVS(2417) = Jac_FULL(287,309)\n  JVS(2417) = 0\nIF (DO_JVS(2418)) &\n! JVS(2418) = Jac_FULL(287,310)\n  JVS(2418) = 0\nIF (DO_JVS(2419)) &\n! JVS(2419) = Jac_FULL(287,311)\n  JVS(2419) = 0\nIF (DO_JVS(2420)) &\n! JVS(2420) = Jac_FULL(287,328)\n  JVS(2420) = 0.5*B(984)\nIF (DO_JVS(2421)) &\n! JVS(2421) = Jac_FULL(287,335)\n  JVS(2421) = 0\nIF (DO_JVS(2422)) &\n! JVS(2422) = Jac_FULL(287,337)\n  JVS(2422) = 0.14*B(1037)+0.004*B(1199)+0.41*B(1277)\nIF (DO_JVS(2423)) &\n! JVS(2423) = Jac_FULL(287,340)\n  JVS(2423) = 0\nIF (DO_JVS(2424)) &\n! JVS(2424) = Jac_FULL(287,341)\n  JVS(2424) = 0\nIF (DO_JVS(2425)) &\n! JVS(2425) = Jac_FULL(287,345)\n  JVS(2425) = 0.17*B(1004)+0.09*B(1008)+0.158*B(1010)+0.165*B(1026)-B(1241)+0.5*B(1307)+0.571*B(1313)+0.25*B(1315)\nIF (DO_JVS(2426)) &\n! JVS(2426) = Jac_FULL(287,346)\n  JVS(2426) = 0.55*B(1000)+0.716*B(1033)+0.006*B(1203)\nIF (DO_JVS(2427)) &\n! JVS(2427) = Jac_FULL(287,351)\n  JVS(2427) = 0\nIF (DO_JVS(2428)) &\n! JVS(2428) = Jac_FULL(288,150)\n  JVS(2428) = 0.19*B(1005)\nIF (DO_JVS(2429)) &\n! JVS(2429) = Jac_FULL(288,187)\n  JVS(2429) = 0.125*B(1023)\nIF (DO_JVS(2430)) &\n! JVS(2430) = Jac_FULL(288,198)\n  JVS(2430) = 0.429*B(1312)\nIF (DO_JVS(2431)) &\n! JVS(2431) = Jac_FULL(288,209)\n  JVS(2431) = 0\nIF (DO_JVS(2432)) &\n! JVS(2432) = Jac_FULL(288,223)\n  JVS(2432) = 0\nIF (DO_JVS(2433)) &\n! JVS(2433) = Jac_FULL(288,224)\n  JVS(2433) = 0.706*B(1039)+0.14*B(1043)\nIF (DO_JVS(2434)) &\n! JVS(2434) = Jac_FULL(288,230)\n  JVS(2434) = 0.33*B(1001)\nIF (DO_JVS(2435)) &\n! JVS(2435) = Jac_FULL(288,232)\n  JVS(2435) = 0\nIF (DO_JVS(2436)) &\n! JVS(2436) = Jac_FULL(288,238)\n  JVS(2436) = 0.125*B(1009)\nIF (DO_JVS(2437)) &\n! JVS(2437) = Jac_FULL(288,254)\n  JVS(2437) = 0.335*B(1270)\nIF (DO_JVS(2438)) &\n! JVS(2438) = Jac_FULL(288,266)\n  JVS(2438) = 0.75*B(1314)+0.5*B(1800)\nIF (DO_JVS(2439)) &\n! JVS(2439) = Jac_FULL(288,267)\n  JVS(2439) = 0\nIF (DO_JVS(2440)) &\n! JVS(2440) = Jac_FULL(288,268)\n  JVS(2440) = 0.55*B(1783)\nIF (DO_JVS(2441)) &\n! JVS(2441) = Jac_FULL(288,271)\n  JVS(2441) = 0.054*B(1198)+0.059*B(1202)\nIF (DO_JVS(2442)) &\n! JVS(2442) = Jac_FULL(288,276)\n  JVS(2442) = 0\nIF (DO_JVS(2443)) &\n! JVS(2443) = Jac_FULL(288,285)\n  JVS(2443) = 0\nIF (DO_JVS(2444)) &\n! JVS(2444) = Jac_FULL(288,286)\n  JVS(2444) = 0\nIF (DO_JVS(2445)) &\n! JVS(2445) = Jac_FULL(288,288)\n  JVS(2445) = -B(1238)-B(1767)\nIF (DO_JVS(2446)) &\n! JVS(2446) = Jac_FULL(288,301)\n  JVS(2446) = 0\nIF (DO_JVS(2447)) &\n! JVS(2447) = Jac_FULL(288,303)\n  JVS(2447) = 0\nIF (DO_JVS(2448)) &\n! JVS(2448) = Jac_FULL(288,304)\n  JVS(2448) = 0.5*B(975)\nIF (DO_JVS(2449)) &\n! JVS(2449) = Jac_FULL(288,305)\n  JVS(2449) = B(973)+0.5*B(976)+0.5*B(979)+0.55*B(991)\nIF (DO_JVS(2450)) &\n! JVS(2450) = Jac_FULL(288,310)\n  JVS(2450) = 0\nIF (DO_JVS(2451)) &\n! JVS(2451) = Jac_FULL(288,311)\n  JVS(2451) = 0\nIF (DO_JVS(2452)) &\n! JVS(2452) = Jac_FULL(288,314)\n  JVS(2452) = 0\nIF (DO_JVS(2453)) &\n! JVS(2453) = Jac_FULL(288,328)\n  JVS(2453) = 0.5*B(980)\nIF (DO_JVS(2454)) &\n! JVS(2454) = Jac_FULL(288,335)\n  JVS(2454) = 0\nIF (DO_JVS(2455)) &\n! JVS(2455) = Jac_FULL(288,337)\n  JVS(2455) = 0.14*B(1044)+0.054*B(1199)+0.335*B(1271)\nIF (DO_JVS(2456)) &\n! JVS(2456) = Jac_FULL(288,340)\n  JVS(2456) = 0\nIF (DO_JVS(2457)) &\n! JVS(2457) = Jac_FULL(288,341)\n  JVS(2457) = 0\nIF (DO_JVS(2458)) &\n! JVS(2458) = Jac_FULL(288,345)\n  JVS(2458) = 0.33*B(1002)+0.19*B(1006)+0.125*B(1010)+0.125*B(1024)-B(1239)+0.429*B(1313)+0.75*B(1315)\nIF (DO_JVS(2459)) &\n! JVS(2459) = Jac_FULL(288,346)\n  JVS(2459) = 0.55*B(992)+0.706*B(1040)+0.059*B(1203)\nIF (DO_JVS(2460)) &\n! JVS(2460) = Jac_FULL(288,351)\n  JVS(2460) = 0\nIF (DO_JVS(2461)) &\n! JVS(2461) = Jac_FULL(289,167)\n  JVS(2461) = 0.5*B(721)\nIF (DO_JVS(2462)) &\n! JVS(2462) = Jac_FULL(289,191)\n  JVS(2462) = 0.9*B(717)\nIF (DO_JVS(2463)) &\n! JVS(2463) = Jac_FULL(289,219)\n  JVS(2463) = 0.9*B(719)\nIF (DO_JVS(2464)) &\n! JVS(2464) = Jac_FULL(289,280)\n  JVS(2464) = -B(922)\nIF (DO_JVS(2465)) &\n! JVS(2465) = Jac_FULL(289,289)\n  JVS(2465) = -B(903)-B(907)-B(911)-B(915)-B(919)-B(923)-2*B(924)\nIF (DO_JVS(2466)) &\n! JVS(2466) = Jac_FULL(289,291)\n  JVS(2466) = 0\nIF (DO_JVS(2467)) &\n! JVS(2467) = Jac_FULL(289,324)\n  JVS(2467) = -B(916)\nIF (DO_JVS(2468)) &\n! JVS(2468) = Jac_FULL(289,328)\n  JVS(2468) = -B(912)\nIF (DO_JVS(2469)) &\n! JVS(2469) = Jac_FULL(289,337)\n  JVS(2469) = -B(908)\nIF (DO_JVS(2470)) &\n! JVS(2470) = Jac_FULL(289,341)\n  JVS(2470) = 0\nIF (DO_JVS(2471)) &\n! JVS(2471) = Jac_FULL(289,345)\n  JVS(2471) = 0\nIF (DO_JVS(2472)) &\n! JVS(2472) = Jac_FULL(289,346)\n  JVS(2472) = -B(904)\nIF (DO_JVS(2473)) &\n! JVS(2473) = Jac_FULL(289,351)\n  JVS(2473) = 0.9*B(718)+0.9*B(720)+0.5*B(722)-B(920)\nIF (DO_JVS(2474)) &\n! JVS(2474) = Jac_FULL(290,290)\n  JVS(2474) = -B(285)-B(287)-B(310)-B(639)-B(641)\nIF (DO_JVS(2475)) &\n! JVS(2475) = Jac_FULL(290,314)\n  JVS(2475) = B(1671)\nIF (DO_JVS(2476)) &\n! JVS(2476) = Jac_FULL(290,340)\n  JVS(2476) = -B(640)\nIF (DO_JVS(2477)) &\n! JVS(2477) = Jac_FULL(290,341)\n  JVS(2477) = -B(288)\nIF (DO_JVS(2478)) &\n! JVS(2478) = Jac_FULL(290,342)\n  JVS(2478) = -B(642)\nIF (DO_JVS(2479)) &\n! JVS(2479) = Jac_FULL(290,345)\n  JVS(2479) = -B(286)\nIF (DO_JVS(2480)) &\n! JVS(2480) = Jac_FULL(290,351)\n  JVS(2480) = -B(311)\nIF (DO_JVS(2481)) &\n! JVS(2481) = Jac_FULL(291,219)\n  JVS(2481) = 0.5*B(727)\nIF (DO_JVS(2482)) &\n! JVS(2482) = Jac_FULL(291,291)\n  JVS(2482) = -B(851)-B(853)-B(855)-B(857)-B(889)-B(891)\nIF (DO_JVS(2483)) &\n! JVS(2483) = Jac_FULL(291,324)\n  JVS(2483) = -B(892)\nIF (DO_JVS(2484)) &\n! JVS(2484) = Jac_FULL(291,328)\n  JVS(2484) = -B(890)\nIF (DO_JVS(2485)) &\n! JVS(2485) = Jac_FULL(291,337)\n  JVS(2485) = -B(852)\nIF (DO_JVS(2486)) &\n! JVS(2486) = Jac_FULL(291,341)\n  JVS(2486) = 0\nIF (DO_JVS(2487)) &\n! JVS(2487) = Jac_FULL(291,345)\n  JVS(2487) = 0.5*B(728)\nIF (DO_JVS(2488)) &\n! JVS(2488) = Jac_FULL(291,346)\n  JVS(2488) = -B(854)-B(856)\nIF (DO_JVS(2489)) &\n! JVS(2489) = Jac_FULL(291,351)\n  JVS(2489) = -B(858)\nIF (DO_JVS(2490)) &\n! JVS(2490) = Jac_FULL(292,160)\n  JVS(2490) = 0.25*B(770)+0.5*B(1811)\nIF (DO_JVS(2491)) &\n! JVS(2491) = Jac_FULL(292,176)\n  JVS(2491) = 0.3*B(772)\nIF (DO_JVS(2492)) &\n! JVS(2492) = Jac_FULL(292,178)\n  JVS(2492) = 0.25*B(128)\nIF (DO_JVS(2493)) &\n! JVS(2493) = Jac_FULL(292,219)\n  JVS(2493) = 0.5*B(729)\nIF (DO_JVS(2494)) &\n! JVS(2494) = Jac_FULL(292,251)\n  JVS(2494) = 0.19*B(1685)\nIF (DO_JVS(2495)) &\n! JVS(2495) = Jac_FULL(292,256)\n  JVS(2495) = B(1750)\nIF (DO_JVS(2496)) &\n! JVS(2496) = Jac_FULL(292,262)\n  JVS(2496) = B(871)+B(873)+0.5*B(875)\nIF (DO_JVS(2497)) &\n! JVS(2497) = Jac_FULL(292,272)\n  JVS(2497) = 0\nIF (DO_JVS(2498)) &\n! JVS(2498) = Jac_FULL(292,273)\n  JVS(2498) = 0\nIF (DO_JVS(2499)) &\n! JVS(2499) = Jac_FULL(292,275)\n  JVS(2499) = 0\nIF (DO_JVS(2500)) &\n! JVS(2500) = Jac_FULL(292,277)\n  JVS(2500) = 0\nIF (DO_JVS(2501)) &\n! JVS(2501) = Jac_FULL(292,278)\n  JVS(2501) = 0.42*B(764)+0.5*B(766)+0.375*B(768)\nIF (DO_JVS(2502)) &\n! JVS(2502) = Jac_FULL(292,279)\n  JVS(2502) = 0.19*B(1688)\nIF (DO_JVS(2503)) &\n! JVS(2503) = Jac_FULL(292,280)\n  JVS(2503) = 0.149*B(922)\nIF (DO_JVS(2504)) &\n! JVS(2504) = Jac_FULL(292,281)\n  JVS(2504) = 0\nIF (DO_JVS(2505)) &\n! JVS(2505) = Jac_FULL(292,289)\n  JVS(2505) = 0.464*B(903)+0.34*B(911)+0.464*B(915)+0.464*B(919)+0.149*B(923)+0.285*B(924)\nIF (DO_JVS(2506)) &\n! JVS(2506) = Jac_FULL(292,291)\n  JVS(2506) = 0\nIF (DO_JVS(2507)) &\n! JVS(2507) = Jac_FULL(292,292)\n  JVS(2507) = -B(234)-B(251)-B(1665)\nIF (DO_JVS(2508)) &\n! JVS(2508) = Jac_FULL(292,300)\n  JVS(2508) = 0.19*B(171)+0.35*B(257)+0.271*B(351)\nIF (DO_JVS(2509)) &\n! JVS(2509) = Jac_FULL(292,318)\n  JVS(2509) = 0\nIF (DO_JVS(2510)) &\n! JVS(2510) = Jac_FULL(292,319)\n  JVS(2510) = 0.19*B(177)+0.35*B(253)+0.271*B(349)\nIF (DO_JVS(2511)) &\n! JVS(2511) = Jac_FULL(292,320)\n  JVS(2511) = 0.25*B(263)+0.1*B(355)\nIF (DO_JVS(2512)) &\n! JVS(2512) = Jac_FULL(292,324)\n  JVS(2512) = 0.271*B(350)+0.271*B(352)+0.1*B(356)+0.464*B(916)\nIF (DO_JVS(2513)) &\n! JVS(2513) = Jac_FULL(292,328)\n  JVS(2513) = 0.35*B(254)+0.35*B(258)+0.25*B(264)+0.375*B(769)+0.34*B(912)\nIF (DO_JVS(2514)) &\n! JVS(2514) = Jac_FULL(292,335)\n  JVS(2514) = 0\nIF (DO_JVS(2515)) &\n! JVS(2515) = Jac_FULL(292,337)\n  JVS(2515) = 0\nIF (DO_JVS(2516)) &\n! JVS(2516) = Jac_FULL(292,341)\n  JVS(2516) = 0.5*B(730)+B(874)\nIF (DO_JVS(2517)) &\n! JVS(2517) = Jac_FULL(292,345)\n  JVS(2517) = -B(235)+0.25*B(771)+0.3*B(773)+B(872)\nIF (DO_JVS(2518)) &\n! JVS(2518) = Jac_FULL(292,346)\n  JVS(2518) = 0.25*B(129)+0.19*B(172)+0.19*B(178)+0.42*B(765)+0.464*B(904)\nIF (DO_JVS(2519)) &\n! JVS(2519) = Jac_FULL(292,351)\n  JVS(2519) = -B(252)+0.5*B(767)+0.5*B(876)+0.464*B(920)\nIF (DO_JVS(2520)) &\n! JVS(2520) = Jac_FULL(293,145)\n  JVS(2520) = B(1179)\nIF (DO_JVS(2521)) &\n! JVS(2521) = Jac_FULL(293,186)\n  JVS(2521) = 0\nIF (DO_JVS(2522)) &\n! JVS(2522) = Jac_FULL(293,222)\n  JVS(2522) = 0.33*B(1180)\nIF (DO_JVS(2523)) &\n! JVS(2523) = Jac_FULL(293,293)\n  JVS(2523) = -B(1141)-B(1143)-B(1145)\nIF (DO_JVS(2524)) &\n! JVS(2524) = Jac_FULL(293,299)\n  JVS(2524) = 0\nIF (DO_JVS(2525)) &\n! JVS(2525) = Jac_FULL(293,303)\n  JVS(2525) = 0.037*B(1316)\nIF (DO_JVS(2526)) &\n! JVS(2526) = Jac_FULL(293,310)\n  JVS(2526) = 0\nIF (DO_JVS(2527)) &\n! JVS(2527) = Jac_FULL(293,311)\n  JVS(2527) = 0\nIF (DO_JVS(2528)) &\n! JVS(2528) = Jac_FULL(293,324)\n  JVS(2528) = 0\nIF (DO_JVS(2529)) &\n! JVS(2529) = Jac_FULL(293,328)\n  JVS(2529) = 0\nIF (DO_JVS(2530)) &\n! JVS(2530) = Jac_FULL(293,337)\n  JVS(2530) = -B(1142)\nIF (DO_JVS(2531)) &\n! JVS(2531) = Jac_FULL(293,345)\n  JVS(2531) = 0.33*B(1181)+0.037*B(1317)\nIF (DO_JVS(2532)) &\n! JVS(2532) = Jac_FULL(293,346)\n  JVS(2532) = -B(1144)-B(1146)\nIF (DO_JVS(2533)) &\n! JVS(2533) = Jac_FULL(293,351)\n  JVS(2533) = 0\nIF (DO_JVS(2534)) &\n! JVS(2534) = Jac_FULL(294,82)\n  JVS(2534) = 0.12*B(1383)\nIF (DO_JVS(2535)) &\n! JVS(2535) = Jac_FULL(294,101)\n  JVS(2535) = 0.2*B(1385)\nIF (DO_JVS(2536)) &\n! JVS(2536) = Jac_FULL(294,107)\n  JVS(2536) = 0.7*B(1304)\nIF (DO_JVS(2537)) &\n! JVS(2537) = Jac_FULL(294,159)\n  JVS(2537) = 0\nIF (DO_JVS(2538)) &\n! JVS(2538) = Jac_FULL(294,184)\n  JVS(2538) = 0\nIF (DO_JVS(2539)) &\n! JVS(2539) = Jac_FULL(294,185)\n  JVS(2539) = B(1260)+0.571*B(1768)\nIF (DO_JVS(2540)) &\n! JVS(2540) = Jac_FULL(294,194)\n  JVS(2540) = 0.187*B(1258)+0.125*B(1769)\nIF (DO_JVS(2541)) &\n! JVS(2541) = Jac_FULL(294,198)\n  JVS(2541) = 0.429*B(1795)\nIF (DO_JVS(2542)) &\n! JVS(2542) = Jac_FULL(294,199)\n  JVS(2542) = 0.018*B(1029)\nIF (DO_JVS(2543)) &\n! JVS(2543) = Jac_FULL(294,200)\n  JVS(2543) = 0.25*B(1348)\nIF (DO_JVS(2544)) &\n! JVS(2544) = Jac_FULL(294,201)\n  JVS(2544) = 0.6*B(1470)+0.6*B(1472)+0.2*B(1474)\nIF (DO_JVS(2545)) &\n! JVS(2545) = Jac_FULL(294,209)\n  JVS(2545) = 0.018*B(1027)\nIF (DO_JVS(2546)) &\n! JVS(2546) = Jac_FULL(294,215)\n  JVS(2546) = 0.5*B(1011)\nIF (DO_JVS(2547)) &\n! JVS(2547) = Jac_FULL(294,223)\n  JVS(2547) = 0\nIF (DO_JVS(2548)) &\n! JVS(2548) = Jac_FULL(294,224)\n  JVS(2548) = 0\nIF (DO_JVS(2549)) &\n! JVS(2549) = Jac_FULL(294,227)\n  JVS(2549) = B(1264)+0.5*B(1766)\nIF (DO_JVS(2550)) &\n! JVS(2550) = Jac_FULL(294,230)\n  JVS(2550) = 0.085*B(1001)\nIF (DO_JVS(2551)) &\n! JVS(2551) = Jac_FULL(294,231)\n  JVS(2551) = 0.165*B(1003)\nIF (DO_JVS(2552)) &\n! JVS(2552) = Jac_FULL(294,232)\n  JVS(2552) = 0\nIF (DO_JVS(2553)) &\n! JVS(2553) = Jac_FULL(294,238)\n  JVS(2553) = 0.355*B(1009)\nIF (DO_JVS(2554)) &\n! JVS(2554) = Jac_FULL(294,244)\n  JVS(2554) = 0.3*B(61)\nIF (DO_JVS(2555)) &\n! JVS(2555) = Jac_FULL(294,247)\n  JVS(2555) = B(689)\nIF (DO_JVS(2556)) &\n! JVS(2556) = Jac_FULL(294,250)\n  JVS(2556) = 0\nIF (DO_JVS(2557)) &\n! JVS(2557) = Jac_FULL(294,253)\n  JVS(2557) = 0.083*B(1276)+0.14*B(1283)\nIF (DO_JVS(2558)) &\n! JVS(2558) = Jac_FULL(294,254)\n  JVS(2558) = 0.05*B(1270)+0.242*B(1272)\nIF (DO_JVS(2559)) &\n! JVS(2559) = Jac_FULL(294,258)\n  JVS(2559) = 0.118*B(1793)\nIF (DO_JVS(2560)) &\n! JVS(2560) = Jac_FULL(294,259)\n  JVS(2560) = 0\nIF (DO_JVS(2561)) &\n! JVS(2561) = Jac_FULL(294,266)\n  JVS(2561) = B(1799)\nIF (DO_JVS(2562)) &\n! JVS(2562) = Jac_FULL(294,267)\n  JVS(2562) = 0\nIF (DO_JVS(2563)) &\n! JVS(2563) = Jac_FULL(294,268)\n  JVS(2563) = 0\nIF (DO_JVS(2564)) &\n! JVS(2564) = Jac_FULL(294,271)\n  JVS(2564) = 0\nIF (DO_JVS(2565)) &\n! JVS(2565) = Jac_FULL(294,276)\n  JVS(2565) = 0.3*B(953)+0.3*B(955)\nIF (DO_JVS(2566)) &\n! JVS(2566) = Jac_FULL(294,285)\n  JVS(2566) = 0\nIF (DO_JVS(2567)) &\n! JVS(2567) = Jac_FULL(294,286)\n  JVS(2567) = 0.52*B(1064)+0.8*B(1066)\nIF (DO_JVS(2568)) &\n! JVS(2568) = Jac_FULL(294,287)\n  JVS(2568) = 0.23*B(1770)\nIF (DO_JVS(2569)) &\n! JVS(2569) = Jac_FULL(294,288)\n  JVS(2569) = 0.47*B(1767)\nIF (DO_JVS(2570)) &\n! JVS(2570) = Jac_FULL(294,290)\n  JVS(2570) = 0\nIF (DO_JVS(2571)) &\n! JVS(2571) = Jac_FULL(294,293)\n  JVS(2571) = 0\nIF (DO_JVS(2572)) &\n! JVS(2572) = Jac_FULL(294,294)\n  JVS(2572) = -B(314)-B(318)-B(1616)-B(1670)\nIF (DO_JVS(2573)) &\n! JVS(2573) = Jac_FULL(294,299)\n  JVS(2573) = 0\nIF (DO_JVS(2574)) &\n! JVS(2574) = Jac_FULL(294,301)\n  JVS(2574) = 0\nIF (DO_JVS(2575)) &\n! JVS(2575) = Jac_FULL(294,302)\n  JVS(2575) = 0.449*B(1236)\nIF (DO_JVS(2576)) &\n! JVS(2576) = Jac_FULL(294,303)\n  JVS(2576) = 0\nIF (DO_JVS(2577)) &\n! JVS(2577) = Jac_FULL(294,304)\n  JVS(2577) = 0.3*B(968)\nIF (DO_JVS(2578)) &\n! JVS(2578) = Jac_FULL(294,305)\n  JVS(2578) = 0.3*B(966)\nIF (DO_JVS(2579)) &\n! JVS(2579) = Jac_FULL(294,307)\n  JVS(2579) = B(320)\nIF (DO_JVS(2580)) &\n! JVS(2580) = Jac_FULL(294,308)\n  JVS(2580) = 0\nIF (DO_JVS(2581)) &\n! JVS(2581) = Jac_FULL(294,309)\n  JVS(2581) = 0.88*B(1232)\nIF (DO_JVS(2582)) &\n! JVS(2582) = Jac_FULL(294,310)\n  JVS(2582) = 0\nIF (DO_JVS(2583)) &\n! JVS(2583) = Jac_FULL(294,311)\n  JVS(2583) = 0\nIF (DO_JVS(2584)) &\n! JVS(2584) = Jac_FULL(294,313)\n  JVS(2584) = 0.5*B(261)+0.1*B(353)\nIF (DO_JVS(2585)) &\n! JVS(2585) = Jac_FULL(294,314)\n  JVS(2585) = 0.545*B(1226)\nIF (DO_JVS(2586)) &\n! JVS(2586) = Jac_FULL(294,320)\n  JVS(2586) = 0\nIF (DO_JVS(2587)) &\n! JVS(2587) = Jac_FULL(294,324)\n  JVS(2587) = 0.1*B(354)\nIF (DO_JVS(2588)) &\n! JVS(2588) = Jac_FULL(294,328)\n  JVS(2588) = 0.5*B(262)\nIF (DO_JVS(2589)) &\n! JVS(2589) = Jac_FULL(294,335)\n  JVS(2589) = 0\nIF (DO_JVS(2590)) &\n! JVS(2590) = Jac_FULL(294,337)\n  JVS(2590) = 0.52*B(1065)+0.05*B(1271)+0.083*B(1277)\nIF (DO_JVS(2591)) &\n! JVS(2591) = Jac_FULL(294,340)\n  JVS(2591) = 0\nIF (DO_JVS(2592)) &\n! JVS(2592) = Jac_FULL(294,341)\n  JVS(2592) = 0.545*B(1227)+0.88*B(1233)+0.6*B(1473)\nIF (DO_JVS(2593)) &\n! JVS(2593) = Jac_FULL(294,342)\n  JVS(2593) = 0\nIF (DO_JVS(2594)) &\n! JVS(2594) = Jac_FULL(294,345)\n  JVS(2594) = 0.3*B(62)-B(315)+B(321)+B(690)+0.3*B(954)+0.3*B(956)+0.085*B(1002)+0.165*B(1004)+0.355*B(1010)+0.5*B(1012)&\n                &+0.018*B(1028)+0.018*B(1030)+0.449*B(1237)+0.187*B(1259)+B(1261)+B(1265)+0.7*B(1305)+0.25*B(1349)+0.12&\n                &*B(1384)+0.2*B(1386)+0.6*B(1471)\nIF (DO_JVS(2595)) &\n! JVS(2595) = Jac_FULL(294,346)\n  JVS(2595) = 0.8*B(1067)+0.242*B(1273)+0.14*B(1284)\nIF (DO_JVS(2596)) &\n! JVS(2596) = Jac_FULL(294,351)\n  JVS(2596) = -B(319)\nIF (DO_JVS(2597)) &\n! JVS(2597) = Jac_FULL(295,91)\n  JVS(2597) = B(943)+B(1759)\nIF (DO_JVS(2598)) &\n! JVS(2598) = Jac_FULL(295,100)\n  JVS(2598) = 0.791*B(330)+B(1679)\nIF (DO_JVS(2599)) &\n! JVS(2599) = Jac_FULL(295,160)\n  JVS(2599) = 0.5*B(770)+B(1811)\nIF (DO_JVS(2600)) &\n! JVS(2600) = Jac_FULL(295,161)\n  JVS(2600) = 0.6*B(1813)\nIF (DO_JVS(2601)) &\n! JVS(2601) = Jac_FULL(295,162)\n  JVS(2601) = 0.3*B(798)\nIF (DO_JVS(2602)) &\n! JVS(2602) = Jac_FULL(295,176)\n  JVS(2602) = 0.4*B(772)\nIF (DO_JVS(2603)) &\n! JVS(2603) = Jac_FULL(295,219)\n  JVS(2603) = 0.5*B(729)\nIF (DO_JVS(2604)) &\n! JVS(2604) = Jac_FULL(295,229)\n  JVS(2604) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1816)\nIF (DO_JVS(2605)) &\n! JVS(2605) = Jac_FULL(295,251)\n  JVS(2605) = 0.34*B(1685)\nIF (DO_JVS(2606)) &\n! JVS(2606) = Jac_FULL(295,262)\n  JVS(2606) = 0.5*B(871)+0.5*B(873)+0.25*B(875)\nIF (DO_JVS(2607)) &\n! JVS(2607) = Jac_FULL(295,273)\n  JVS(2607) = 0.6*B(790)+0.4*B(792)+0.6*B(794)\nIF (DO_JVS(2608)) &\n! JVS(2608) = Jac_FULL(295,275)\n  JVS(2608) = 0\nIF (DO_JVS(2609)) &\n! JVS(2609) = Jac_FULL(295,277)\n  JVS(2609) = 0\nIF (DO_JVS(2610)) &\n! JVS(2610) = Jac_FULL(295,278)\n  JVS(2610) = 0.84*B(764)+B(766)+0.75*B(768)\nIF (DO_JVS(2611)) &\n! JVS(2611) = Jac_FULL(295,279)\n  JVS(2611) = 0.34*B(1688)\nIF (DO_JVS(2612)) &\n! JVS(2612) = Jac_FULL(295,291)\n  JVS(2612) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891)\nIF (DO_JVS(2613)) &\n! JVS(2613) = Jac_FULL(295,295)\n  JVS(2613) = -B(212)-B(417)-B(633)-B(1663)-B(1664)\nIF (DO_JVS(2614)) &\n! JVS(2614) = Jac_FULL(295,300)\n  JVS(2614) = 0.34*B(171)+0.16*B(257)+0.29*B(351)\nIF (DO_JVS(2615)) &\n! JVS(2615) = Jac_FULL(295,318)\n  JVS(2615) = 0\nIF (DO_JVS(2616)) &\n! JVS(2616) = Jac_FULL(295,319)\n  JVS(2616) = 0.34*B(177)+0.16*B(253)+0.29*B(349)\nIF (DO_JVS(2617)) &\n! JVS(2617) = Jac_FULL(295,320)\n  JVS(2617) = 0\nIF (DO_JVS(2618)) &\n! JVS(2618) = Jac_FULL(295,323)\n  JVS(2618) = B(187)+0.75*B(265)+B(357)\nIF (DO_JVS(2619)) &\n! JVS(2619) = Jac_FULL(295,324)\n  JVS(2619) = 0.29*B(350)+0.29*B(352)+B(358)+0.45*B(892)\nIF (DO_JVS(2620)) &\n! JVS(2620) = Jac_FULL(295,328)\n  JVS(2620) = 0.16*B(254)+0.16*B(258)+0.75*B(266)+0.75*B(769)+0.4*B(793)+0.45*B(890)\nIF (DO_JVS(2621)) &\n! JVS(2621) = Jac_FULL(295,335)\n  JVS(2621) = 0\nIF (DO_JVS(2622)) &\n! JVS(2622) = Jac_FULL(295,337)\n  JVS(2622) = 0\nIF (DO_JVS(2623)) &\n! JVS(2623) = Jac_FULL(295,340)\n  JVS(2623) = -B(634)\nIF (DO_JVS(2624)) &\n! JVS(2624) = Jac_FULL(295,341)\n  JVS(2624) = 0.5*B(730)+0.3*B(862)+0.5*B(874)\nIF (DO_JVS(2625)) &\n! JVS(2625) = Jac_FULL(295,342)\n  JVS(2625) = -B(418)\nIF (DO_JVS(2626)) &\n! JVS(2626) = Jac_FULL(295,345)\n  JVS(2626) = -B(213)+0.791*B(331)+0.5*B(771)+0.4*B(773)+0.3*B(799)+0.3*B(860)+0.5*B(872)+B(944)\nIF (DO_JVS(2627)) &\n! JVS(2627) = Jac_FULL(295,346)\n  JVS(2627) = 0.34*B(172)+0.34*B(178)+B(188)+0.84*B(765)+0.6*B(791)+0.45*B(856)\nIF (DO_JVS(2628)) &\n! JVS(2628) = Jac_FULL(295,351)\n  JVS(2628) = B(767)+0.6*B(795)+0.45*B(858)+0.15*B(864)+0.25*B(876)\nIF (DO_JVS(2629)) &\n! JVS(2629) = Jac_FULL(296,173)\n  JVS(2629) = B(1336)\nIF (DO_JVS(2630)) &\n! JVS(2630) = Jac_FULL(296,183)\n  JVS(2630) = B(106)+B(344)+B(419)+B(617)\nIF (DO_JVS(2631)) &\n! JVS(2631) = Jac_FULL(296,200)\n  JVS(2631) = 0\nIF (DO_JVS(2632)) &\n! JVS(2632) = Jac_FULL(296,201)\n  JVS(2632) = 0\nIF (DO_JVS(2633)) &\n! JVS(2633) = Jac_FULL(296,221)\n  JVS(2633) = 0\nIF (DO_JVS(2634)) &\n! JVS(2634) = Jac_FULL(296,240)\n  JVS(2634) = 0\nIF (DO_JVS(2635)) &\n! JVS(2635) = Jac_FULL(296,246)\n  JVS(2635) = 0\nIF (DO_JVS(2636)) &\n! JVS(2636) = Jac_FULL(296,269)\n  JVS(2636) = 0\nIF (DO_JVS(2637)) &\n! JVS(2637) = Jac_FULL(296,289)\n  JVS(2637) = 0\nIF (DO_JVS(2638)) &\n! JVS(2638) = Jac_FULL(296,291)\n  JVS(2638) = 0\nIF (DO_JVS(2639)) &\n! JVS(2639) = Jac_FULL(296,296)\n  JVS(2639) = -B(108)-B(110)-B(247)-2*B(273)-B(275)-B(365)-B(619)\nIF (DO_JVS(2640)) &\n! JVS(2640) = Jac_FULL(296,320)\n  JVS(2640) = 0\nIF (DO_JVS(2641)) &\n! JVS(2641) = Jac_FULL(296,322)\n  JVS(2641) = 0\nIF (DO_JVS(2642)) &\n! JVS(2642) = Jac_FULL(296,324)\n  JVS(2642) = -B(366)\nIF (DO_JVS(2643)) &\n! JVS(2643) = Jac_FULL(296,328)\n  JVS(2643) = -B(248)\nIF (DO_JVS(2644)) &\n! JVS(2644) = Jac_FULL(296,335)\n  JVS(2644) = 0\nIF (DO_JVS(2645)) &\n! JVS(2645) = Jac_FULL(296,337)\n  JVS(2645) = -B(276)\nIF (DO_JVS(2646)) &\n! JVS(2646) = Jac_FULL(296,340)\n  JVS(2646) = B(618)-B(620)\nIF (DO_JVS(2647)) &\n! JVS(2647) = Jac_FULL(296,341)\n  JVS(2647) = 0\nIF (DO_JVS(2648)) &\n! JVS(2648) = Jac_FULL(296,342)\n  JVS(2648) = B(420)\nIF (DO_JVS(2649)) &\n! JVS(2649) = Jac_FULL(296,345)\n  JVS(2649) = B(107)+B(1337)\nIF (DO_JVS(2650)) &\n! JVS(2650) = Jac_FULL(296,346)\n  JVS(2650) = -B(109)-B(111)\nIF (DO_JVS(2651)) &\n! JVS(2651) = Jac_FULL(296,351)\n  JVS(2651) = B(345)\nIF (DO_JVS(2652)) &\n! JVS(2652) = Jac_FULL(297,214)\n  JVS(2652) = B(1498)+B(1501)+B(1503)\nIF (DO_JVS(2653)) &\n! JVS(2653) = Jac_FULL(297,297)\n  JVS(2653) = -B(543)-B(1527)-B(1529)-B(1531)-B(1533)-B(1535)-B(1537)-B(1706)\nIF (DO_JVS(2654)) &\n! JVS(2654) = Jac_FULL(297,335)\n  JVS(2654) = 0\nIF (DO_JVS(2655)) &\n! JVS(2655) = Jac_FULL(297,336)\n  JVS(2655) = 0\nIF (DO_JVS(2656)) &\n! JVS(2656) = Jac_FULL(297,339)\n  JVS(2656) = B(1499)-B(1532)\nIF (DO_JVS(2657)) &\n! JVS(2657) = Jac_FULL(297,344)\n  JVS(2657) = B(1504)-B(1530)\nIF (DO_JVS(2658)) &\n! JVS(2658) = Jac_FULL(297,345)\n  JVS(2658) = -B(544)\nIF (DO_JVS(2659)) &\n! JVS(2659) = Jac_FULL(297,349)\n  JVS(2659) = -B(1534)\nIF (DO_JVS(2660)) &\n! JVS(2660) = Jac_FULL(297,350)\n  JVS(2660) = -B(1536)\nIF (DO_JVS(2661)) &\n! JVS(2661) = Jac_FULL(297,351)\n  JVS(2661) = 0\nIF (DO_JVS(2662)) &\n! JVS(2662) = Jac_FULL(297,352)\n  JVS(2662) = -B(1538)\nIF (DO_JVS(2663)) &\n! JVS(2663) = Jac_FULL(297,353)\n  JVS(2663) = B(1502)-B(1528)\nIF (DO_JVS(2664)) &\n! JVS(2664) = Jac_FULL(298,95)\n  JVS(2664) = B(945)+B(1760)\nIF (DO_JVS(2665)) &\n! JVS(2665) = Jac_FULL(298,97)\n  JVS(2665) = 1.185*B(332)+1.5*B(1680)\nIF (DO_JVS(2666)) &\n! JVS(2666) = Jac_FULL(298,98)\n  JVS(2666) = 0.5*B(134)+B(1681)\nIF (DO_JVS(2667)) &\n! JVS(2667) = Jac_FULL(298,99)\n  JVS(2667) = 0.64*B(328)+B(1678)\nIF (DO_JVS(2668)) &\n! JVS(2668) = Jac_FULL(298,102)\n  JVS(2668) = 1.185*B(334)+1.5*B(1682)\nIF (DO_JVS(2669)) &\n! JVS(2669) = Jac_FULL(298,125)\n  JVS(2669) = B(1676)\nIF (DO_JVS(2670)) &\n! JVS(2670) = Jac_FULL(298,130)\n  JVS(2670) = B(849)+B(1815)\nIF (DO_JVS(2671)) &\n! JVS(2671) = Jac_FULL(298,161)\n  JVS(2671) = 0.6*B(1813)\nIF (DO_JVS(2672)) &\n! JVS(2672) = Jac_FULL(298,162)\n  JVS(2672) = 0.3*B(798)\nIF (DO_JVS(2673)) &\n! JVS(2673) = Jac_FULL(298,165)\n  JVS(2673) = 1.24*B(138)\nIF (DO_JVS(2674)) &\n! JVS(2674) = Jac_FULL(298,169)\n  JVS(2674) = B(1814)\nIF (DO_JVS(2675)) &\n! JVS(2675) = Jac_FULL(298,178)\n  JVS(2675) = 0.75*B(128)\nIF (DO_JVS(2676)) &\n! JVS(2676) = Jac_FULL(298,188)\n  JVS(2676) = B(271)\nIF (DO_JVS(2677)) &\n! JVS(2677) = Jac_FULL(298,196)\n  JVS(2677) = 1.558*B(1686)\nIF (DO_JVS(2678)) &\n! JVS(2678) = Jac_FULL(298,201)\n  JVS(2678) = 1.15*B(1474)\nIF (DO_JVS(2679)) &\n! JVS(2679) = Jac_FULL(298,212)\n  JVS(2679) = 0.326*B(148)+0.894*B(150)\nIF (DO_JVS(2680)) &\n! JVS(2680) = Jac_FULL(298,219)\n  JVS(2680) = 0.3*B(729)\nIF (DO_JVS(2681)) &\n! JVS(2681) = Jac_FULL(298,221)\n  JVS(2681) = 1.2*B(1469)\nIF (DO_JVS(2682)) &\n! JVS(2682) = Jac_FULL(298,229)\n  JVS(2682) = B(1748)\nIF (DO_JVS(2683)) &\n! JVS(2683) = Jac_FULL(298,242)\n  JVS(2683) = B(1751)\nIF (DO_JVS(2684)) &\n! JVS(2684) = Jac_FULL(298,249)\n  JVS(2684) = 0.64*B(175)+0.58*B(259)+0.613*B(361)\nIF (DO_JVS(2685)) &\n! JVS(2685) = Jac_FULL(298,250)\n  JVS(2685) = 0.25*B(267)+0.1*B(363)\nIF (DO_JVS(2686)) &\n! JVS(2686) = Jac_FULL(298,251)\n  JVS(2686) = 0.15*B(1685)\nIF (DO_JVS(2687)) &\n! JVS(2687) = Jac_FULL(298,260)\n  JVS(2687) = 0.09*B(216)+0.035*B(369)\nIF (DO_JVS(2688)) &\n! JVS(2688) = Jac_FULL(298,269)\n  JVS(2688) = 0\nIF (DO_JVS(2689)) &\n! JVS(2689) = Jac_FULL(298,272)\n  JVS(2689) = 0\nIF (DO_JVS(2690)) &\n! JVS(2690) = Jac_FULL(298,273)\n  JVS(2690) = 0.6*B(790)+0.4*B(792)+0.6*B(794)\nIF (DO_JVS(2691)) &\n! JVS(2691) = Jac_FULL(298,274)\n  JVS(2691) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899)\nIF (DO_JVS(2692)) &\n! JVS(2692) = Jac_FULL(298,275)\n  JVS(2692) = 0\nIF (DO_JVS(2693)) &\n! JVS(2693) = Jac_FULL(298,279)\n  JVS(2693) = 0.15*B(1688)\nIF (DO_JVS(2694)) &\n! JVS(2694) = Jac_FULL(298,280)\n  JVS(2694) = 0.64*B(922)\nIF (DO_JVS(2695)) &\n! JVS(2695) = Jac_FULL(298,281)\n  JVS(2695) = 0\nIF (DO_JVS(2696)) &\n! JVS(2696) = Jac_FULL(298,289)\n  JVS(2696) = 1.24*B(903)+0.93*B(911)+1.24*B(915)+1.24*B(919)+0.64*B(923)+1.21*B(924)\nIF (DO_JVS(2697)) &\n! JVS(2697) = Jac_FULL(298,290)\n  JVS(2697) = 0\nIF (DO_JVS(2698)) &\n! JVS(2698) = Jac_FULL(298,291)\n  JVS(2698) = 0\nIF (DO_JVS(2699)) &\n! JVS(2699) = Jac_FULL(298,298)\n  JVS(2699) = -B(201)-B(210)-B(1662)\nIF (DO_JVS(2700)) &\n! JVS(2700) = Jac_FULL(298,300)\n  JVS(2700) = 0.15*B(171)+0.13*B(257)+0.255*B(351)\nIF (DO_JVS(2701)) &\n! JVS(2701) = Jac_FULL(298,314)\n  JVS(2701) = 0\nIF (DO_JVS(2702)) &\n! JVS(2702) = Jac_FULL(298,318)\n  JVS(2702) = 0.64*B(181)+0.58*B(255)+0.613*B(359)\nIF (DO_JVS(2703)) &\n! JVS(2703) = Jac_FULL(298,319)\n  JVS(2703) = 0.15*B(177)+0.13*B(253)+0.255*B(349)\nIF (DO_JVS(2704)) &\n! JVS(2704) = Jac_FULL(298,320)\n  JVS(2704) = 0\nIF (DO_JVS(2705)) &\n! JVS(2705) = Jac_FULL(298,321)\n  JVS(2705) = B(118)+0.75*B(214)+B(371)\nIF (DO_JVS(2706)) &\n! JVS(2706) = Jac_FULL(298,323)\n  JVS(2706) = 0\nIF (DO_JVS(2707)) &\n! JVS(2707) = Jac_FULL(298,324)\n  JVS(2707) = 0.255*B(350)+0.255*B(352)+0.613*B(360)+0.613*B(362)+0.1*B(364)+0.035*B(370)+B(372)+B(900)+1.24*B(916)\nIF (DO_JVS(2708)) &\n! JVS(2708) = Jac_FULL(298,328)\n  JVS(2708) = 0.75*B(215)+0.09*B(217)+0.13*B(254)+0.58*B(256)+0.13*B(258)+0.58*B(260)+0.25*B(268)+0.4*B(793)+0.75*B(898)&\n                &+0.93*B(912)\nIF (DO_JVS(2709)) &\n! JVS(2709) = Jac_FULL(298,335)\n  JVS(2709) = 0\nIF (DO_JVS(2710)) &\n! JVS(2710) = Jac_FULL(298,337)\n  JVS(2710) = 0.894*B(151)+0.44*B(839)\nIF (DO_JVS(2711)) &\n! JVS(2711) = Jac_FULL(298,340)\n  JVS(2711) = 0\nIF (DO_JVS(2712)) &\n! JVS(2712) = Jac_FULL(298,341)\n  JVS(2712) = 0.3*B(730)\nIF (DO_JVS(2713)) &\n! JVS(2713) = Jac_FULL(298,342)\n  JVS(2713) = 0\nIF (DO_JVS(2714)) &\n! JVS(2714) = Jac_FULL(298,345)\n  JVS(2714) = 0.5*B(135)-B(202)+B(272)+0.64*B(329)+1.185*B(333)+1.185*B(335)+0.3*B(799)+B(850)+B(946)\nIF (DO_JVS(2715)) &\n! JVS(2715) = Jac_FULL(298,346)\n  JVS(2715) = B(119)+0.75*B(129)+1.24*B(139)+0.326*B(149)+0.15*B(172)+0.64*B(176)+0.15*B(178)+0.64*B(182)+0.6*B(791)&\n                &+B(841)+1.24*B(904)\nIF (DO_JVS(2716)) &\n! JVS(2716) = Jac_FULL(298,351)\n  JVS(2716) = -B(211)+0.6*B(795)+B(846)+1.24*B(920)\nIF (DO_JVS(2717)) &\n! JVS(2717) = Jac_FULL(299,180)\n  JVS(2717) = 0.18*B(1222)\nIF (DO_JVS(2718)) &\n! JVS(2718) = Jac_FULL(299,190)\n  JVS(2718) = B(1125)\nIF (DO_JVS(2719)) &\n! JVS(2719) = Jac_FULL(299,205)\n  JVS(2719) = B(1118)\nIF (DO_JVS(2720)) &\n! JVS(2720) = Jac_FULL(299,206)\n  JVS(2720) = B(1133)\nIF (DO_JVS(2721)) &\n! JVS(2721) = Jac_FULL(299,207)\n  JVS(2721) = B(1139)\nIF (DO_JVS(2722)) &\n! JVS(2722) = Jac_FULL(299,226)\n  JVS(2722) = B(1208)\nIF (DO_JVS(2723)) &\n! JVS(2723) = Jac_FULL(299,267)\n  JVS(2723) = 0\nIF (DO_JVS(2724)) &\n! JVS(2724) = Jac_FULL(299,268)\n  JVS(2724) = 0\nIF (DO_JVS(2725)) &\n! JVS(2725) = Jac_FULL(299,271)\n  JVS(2725) = B(1204)\nIF (DO_JVS(2726)) &\n! JVS(2726) = Jac_FULL(299,293)\n  JVS(2726) = B(1145)\nIF (DO_JVS(2727)) &\n! JVS(2727) = Jac_FULL(299,299)\n  JVS(2727) = -B(1218)-B(1635)-B(1791)\nIF (DO_JVS(2728)) &\n! JVS(2728) = Jac_FULL(299,303)\n  JVS(2728) = 0\nIF (DO_JVS(2729)) &\n! JVS(2729) = Jac_FULL(299,304)\n  JVS(2729) = 0\nIF (DO_JVS(2730)) &\n! JVS(2730) = Jac_FULL(299,305)\n  JVS(2730) = 0\nIF (DO_JVS(2731)) &\n! JVS(2731) = Jac_FULL(299,310)\n  JVS(2731) = B(1171)\nIF (DO_JVS(2732)) &\n! JVS(2732) = Jac_FULL(299,311)\n  JVS(2732) = B(1175)\nIF (DO_JVS(2733)) &\n! JVS(2733) = Jac_FULL(299,324)\n  JVS(2733) = 0\nIF (DO_JVS(2734)) &\n! JVS(2734) = Jac_FULL(299,328)\n  JVS(2734) = 0\nIF (DO_JVS(2735)) &\n! JVS(2735) = Jac_FULL(299,337)\n  JVS(2735) = 0.18*B(1223)\nIF (DO_JVS(2736)) &\n! JVS(2736) = Jac_FULL(299,345)\n  JVS(2736) = -B(1219)\nIF (DO_JVS(2737)) &\n! JVS(2737) = Jac_FULL(299,346)\n  JVS(2737) = B(1119)+B(1126)+B(1134)+B(1140)+B(1146)+B(1172)+B(1176)+B(1205)+B(1209)\nIF (DO_JVS(2738)) &\n! JVS(2738) = Jac_FULL(299,351)\n  JVS(2738) = 0\nIF (DO_JVS(2739)) &\n! JVS(2739) = Jac_FULL(300,102)\n  JVS(2739) = 0.21*B(334)\nIF (DO_JVS(2740)) &\n! JVS(2740) = Jac_FULL(300,142)\n  JVS(2740) = B(193)+B(637)\nIF (DO_JVS(2741)) &\n! JVS(2741) = Jac_FULL(300,201)\n  JVS(2741) = 0.2*B(1474)\nIF (DO_JVS(2742)) &\n! JVS(2742) = Jac_FULL(300,300)\n  JVS(2742) = -B(171)-B(173)-B(222)-B(257)-B(351)\nIF (DO_JVS(2743)) &\n! JVS(2743) = Jac_FULL(300,324)\n  JVS(2743) = -B(352)\nIF (DO_JVS(2744)) &\n! JVS(2744) = Jac_FULL(300,328)\n  JVS(2744) = -B(258)\nIF (DO_JVS(2745)) &\n! JVS(2745) = Jac_FULL(300,337)\n  JVS(2745) = -B(223)\nIF (DO_JVS(2746)) &\n! JVS(2746) = Jac_FULL(300,340)\n  JVS(2746) = B(638)\nIF (DO_JVS(2747)) &\n! JVS(2747) = Jac_FULL(300,341)\n  JVS(2747) = 0\nIF (DO_JVS(2748)) &\n! JVS(2748) = Jac_FULL(300,345)\n  JVS(2748) = 0.21*B(335)\nIF (DO_JVS(2749)) &\n! JVS(2749) = Jac_FULL(300,346)\n  JVS(2749) = -B(172)-B(174)\nIF (DO_JVS(2750)) &\n! JVS(2750) = Jac_FULL(300,351)\n  JVS(2750) = B(194)\nIF (DO_JVS(2751)) &\n! JVS(2751) = Jac_FULL(301,145)\n  JVS(2751) = B(1177)\nIF (DO_JVS(2752)) &\n! JVS(2752) = Jac_FULL(301,186)\n  JVS(2752) = B(1194)+0.159*B(1788)\nIF (DO_JVS(2753)) &\n! JVS(2753) = Jac_FULL(301,267)\n  JVS(2753) = 0.4*B(1111)\nIF (DO_JVS(2754)) &\n! JVS(2754) = Jac_FULL(301,268)\n  JVS(2754) = 0.4*B(1109)\nIF (DO_JVS(2755)) &\n! JVS(2755) = Jac_FULL(301,299)\n  JVS(2755) = 0.223*B(1791)\nIF (DO_JVS(2756)) &\n! JVS(2756) = Jac_FULL(301,301)\n  JVS(2756) = -B(1210)-B(1212)-B(1790)\nIF (DO_JVS(2757)) &\n! JVS(2757) = Jac_FULL(301,303)\n  JVS(2757) = 0\nIF (DO_JVS(2758)) &\n! JVS(2758) = Jac_FULL(301,304)\n  JVS(2758) = 0\nIF (DO_JVS(2759)) &\n! JVS(2759) = Jac_FULL(301,305)\n  JVS(2759) = 0\nIF (DO_JVS(2760)) &\n! JVS(2760) = Jac_FULL(301,310)\n  JVS(2760) = 0.07*B(1153)+0.532*B(1154)+0.034*B(1159)\nIF (DO_JVS(2761)) &\n! JVS(2761) = Jac_FULL(301,311)\n  JVS(2761) = 0.532*B(1155)+0.862*B(1156)+0.401*B(1157)+0.159*B(1163)+0.159*B(1167)+0.159*B(1173)\nIF (DO_JVS(2762)) &\n! JVS(2762) = Jac_FULL(301,324)\n  JVS(2762) = 0.159*B(1164)\nIF (DO_JVS(2763)) &\n! JVS(2763) = Jac_FULL(301,328)\n  JVS(2763) = 0.401*B(1158)+0.034*B(1160)\nIF (DO_JVS(2764)) &\n! JVS(2764) = Jac_FULL(301,337)\n  JVS(2764) = 0\nIF (DO_JVS(2765)) &\n! JVS(2765) = Jac_FULL(301,345)\n  JVS(2765) = 0.4*B(1110)+0.4*B(1112)+B(1195)-B(1211)-B(1213)\nIF (DO_JVS(2766)) &\n! JVS(2766) = Jac_FULL(301,346)\n  JVS(2766) = 0.159*B(1174)\nIF (DO_JVS(2767)) &\n! JVS(2767) = Jac_FULL(301,351)\n  JVS(2767) = 0.159*B(1168)\nIF (DO_JVS(2768)) &\n! JVS(2768) = Jac_FULL(302,171)\n  JVS(2768) = B(1250)\nIF (DO_JVS(2769)) &\n! JVS(2769) = Jac_FULL(302,190)\n  JVS(2769) = 0.599*B(1121)+B(1123)\nIF (DO_JVS(2770)) &\n! JVS(2770) = Jac_FULL(302,207)\n  JVS(2770) = 0.065*B(1135)+0.142*B(1137)\nIF (DO_JVS(2771)) &\n! JVS(2771) = Jac_FULL(302,226)\n  JVS(2771) = 0.015*B(1200)+0.049*B(1206)\nIF (DO_JVS(2772)) &\n! JVS(2772) = Jac_FULL(302,230)\n  JVS(2772) = 0\nIF (DO_JVS(2773)) &\n! JVS(2773) = Jac_FULL(302,254)\n  JVS(2773) = B(1274)\nIF (DO_JVS(2774)) &\n! JVS(2774) = Jac_FULL(302,267)\n  JVS(2774) = 0.6*B(1111)\nIF (DO_JVS(2775)) &\n! JVS(2775) = Jac_FULL(302,271)\n  JVS(2775) = 0.008*B(1198)+0.014*B(1202)\nIF (DO_JVS(2776)) &\n! JVS(2776) = Jac_FULL(302,276)\n  JVS(2776) = 0\nIF (DO_JVS(2777)) &\n! JVS(2777) = Jac_FULL(302,293)\n  JVS(2777) = 0.01*B(1141)+0.028*B(1143)\nIF (DO_JVS(2778)) &\n! JVS(2778) = Jac_FULL(302,299)\n  JVS(2778) = 0\nIF (DO_JVS(2779)) &\n! JVS(2779) = Jac_FULL(302,301)\n  JVS(2779) = 0.161*B(1212)\nIF (DO_JVS(2780)) &\n! JVS(2780) = Jac_FULL(302,302)\n  JVS(2780) = -B(1236)-B(1621)-B(1772)\nIF (DO_JVS(2781)) &\n! JVS(2781) = Jac_FULL(302,303)\n  JVS(2781) = 0.05*B(1797)\nIF (DO_JVS(2782)) &\n! JVS(2782) = Jac_FULL(302,304)\n  JVS(2782) = 0\nIF (DO_JVS(2783)) &\n! JVS(2783) = Jac_FULL(302,305)\n  JVS(2783) = 0\nIF (DO_JVS(2784)) &\n! JVS(2784) = Jac_FULL(302,310)\n  JVS(2784) = 0\nIF (DO_JVS(2785)) &\n! JVS(2785) = Jac_FULL(302,311)\n  JVS(2785) = 0\nIF (DO_JVS(2786)) &\n! JVS(2786) = Jac_FULL(302,314)\n  JVS(2786) = 0\nIF (DO_JVS(2787)) &\n! JVS(2787) = Jac_FULL(302,324)\n  JVS(2787) = 0\nIF (DO_JVS(2788)) &\n! JVS(2788) = Jac_FULL(302,328)\n  JVS(2788) = 0\nIF (DO_JVS(2789)) &\n! JVS(2789) = Jac_FULL(302,335)\n  JVS(2789) = B(1251)\nIF (DO_JVS(2790)) &\n! JVS(2790) = Jac_FULL(302,337)\n  JVS(2790) = 0.599*B(1122)+0.065*B(1136)+0.01*B(1142)+0.008*B(1199)+0.015*B(1201)\nIF (DO_JVS(2791)) &\n! JVS(2791) = Jac_FULL(302,340)\n  JVS(2791) = 0\nIF (DO_JVS(2792)) &\n! JVS(2792) = Jac_FULL(302,341)\n  JVS(2792) = 0\nIF (DO_JVS(2793)) &\n! JVS(2793) = Jac_FULL(302,345)\n  JVS(2793) = 0.6*B(1112)+0.161*B(1213)-B(1237)\nIF (DO_JVS(2794)) &\n! JVS(2794) = Jac_FULL(302,346)\n  JVS(2794) = B(1124)+0.142*B(1138)+0.028*B(1144)+0.014*B(1203)+0.049*B(1207)+B(1275)\nIF (DO_JVS(2795)) &\n! JVS(2795) = Jac_FULL(302,351)\n  JVS(2795) = 0\nIF (DO_JVS(2796)) &\n! JVS(2796) = Jac_FULL(303,186)\n  JVS(2796) = B(1186)\nIF (DO_JVS(2797)) &\n! JVS(2797) = Jac_FULL(303,190)\n  JVS(2797) = 0.401*B(1121)\nIF (DO_JVS(2798)) &\n! JVS(2798) = Jac_FULL(303,205)\n  JVS(2798) = 0.482*B(1114)\nIF (DO_JVS(2799)) &\n! JVS(2799) = Jac_FULL(303,206)\n  JVS(2799) = 0.418*B(1129)\nIF (DO_JVS(2800)) &\n! JVS(2800) = Jac_FULL(303,207)\n  JVS(2800) = 0.494*B(1135)\nIF (DO_JVS(2801)) &\n! JVS(2801) = Jac_FULL(303,222)\n  JVS(2801) = B(1184)\nIF (DO_JVS(2802)) &\n! JVS(2802) = Jac_FULL(303,223)\n  JVS(2802) = B(1034)\nIF (DO_JVS(2803)) &\n! JVS(2803) = Jac_FULL(303,224)\n  JVS(2803) = B(1041)\nIF (DO_JVS(2804)) &\n! JVS(2804) = Jac_FULL(303,226)\n  JVS(2804) = 0.387*B(1200)\nIF (DO_JVS(2805)) &\n! JVS(2805) = Jac_FULL(303,232)\n  JVS(2805) = B(1048)\nIF (DO_JVS(2806)) &\n! JVS(2806) = Jac_FULL(303,267)\n  JVS(2806) = 0\nIF (DO_JVS(2807)) &\n! JVS(2807) = Jac_FULL(303,268)\n  JVS(2807) = 0\nIF (DO_JVS(2808)) &\n! JVS(2808) = Jac_FULL(303,271)\n  JVS(2808) = 0.5*B(1197)+0.234*B(1198)\nIF (DO_JVS(2809)) &\n! JVS(2809) = Jac_FULL(303,293)\n  JVS(2809) = 0.621*B(1141)\nIF (DO_JVS(2810)) &\n! JVS(2810) = Jac_FULL(303,299)\n  JVS(2810) = 0.565*B(1218)\nIF (DO_JVS(2811)) &\n! JVS(2811) = Jac_FULL(303,303)\n  JVS(2811) = -B(1316)-B(1637)-B(1797)-B(1798)\nIF (DO_JVS(2812)) &\n! JVS(2812) = Jac_FULL(303,304)\n  JVS(2812) = 0\nIF (DO_JVS(2813)) &\n! JVS(2813) = Jac_FULL(303,305)\n  JVS(2813) = 0\nIF (DO_JVS(2814)) &\n! JVS(2814) = Jac_FULL(303,310)\n  JVS(2814) = 0\nIF (DO_JVS(2815)) &\n! JVS(2815) = Jac_FULL(303,311)\n  JVS(2815) = 0\nIF (DO_JVS(2816)) &\n! JVS(2816) = Jac_FULL(303,324)\n  JVS(2816) = 0\nIF (DO_JVS(2817)) &\n! JVS(2817) = Jac_FULL(303,328)\n  JVS(2817) = 0\nIF (DO_JVS(2818)) &\n! JVS(2818) = Jac_FULL(303,337)\n  JVS(2818) = 0.482*B(1115)+0.401*B(1122)+0.418*B(1130)+0.494*B(1136)+0.621*B(1142)+0.234*B(1199)+0.387*B(1201)\nIF (DO_JVS(2819)) &\n! JVS(2819) = Jac_FULL(303,345)\n  JVS(2819) = B(1185)+B(1187)+0.565*B(1219)-B(1317)\nIF (DO_JVS(2820)) &\n! JVS(2820) = Jac_FULL(303,346)\n  JVS(2820) = B(1035)+B(1042)+B(1049)\nIF (DO_JVS(2821)) &\n! JVS(2821) = Jac_FULL(303,351)\n  JVS(2821) = 0\nIF (DO_JVS(2822)) &\n! JVS(2822) = Jac_FULL(304,186)\n  JVS(2822) = 0.159*B(1789)\nIF (DO_JVS(2823)) &\n! JVS(2823) = Jac_FULL(304,192)\n  JVS(2823) = 0.51*B(1025)\nIF (DO_JVS(2824)) &\n! JVS(2824) = Jac_FULL(304,199)\n  JVS(2824) = 0.03*B(1029)\nIF (DO_JVS(2825)) &\n! JVS(2825) = Jac_FULL(304,276)\n  JVS(2825) = 0.5*B(635)+B(951)\nIF (DO_JVS(2826)) &\n! JVS(2826) = Jac_FULL(304,304)\n  JVS(2826) = -B(961)-B(963)-B(967)-B(968)-2*B(970)-B(971)-2*B(974)-B(975)-B(981)-B(983)-B(993)-B(995)-B(997)-B(999)\nIF (DO_JVS(2827)) &\n! JVS(2827) = Jac_FULL(304,305)\n  JVS(2827) = -B(972)-B(976)\nIF (DO_JVS(2828)) &\n! JVS(2828) = Jac_FULL(304,311)\n  JVS(2828) = 0\nIF (DO_JVS(2829)) &\n! JVS(2829) = Jac_FULL(304,328)\n  JVS(2829) = -B(982)-B(984)\nIF (DO_JVS(2830)) &\n! JVS(2830) = Jac_FULL(304,337)\n  JVS(2830) = -B(962)-B(964)\nIF (DO_JVS(2831)) &\n! JVS(2831) = Jac_FULL(304,340)\n  JVS(2831) = 0.5*B(636)\nIF (DO_JVS(2832)) &\n! JVS(2832) = Jac_FULL(304,341)\n  JVS(2832) = 0\nIF (DO_JVS(2833)) &\n! JVS(2833) = Jac_FULL(304,345)\n  JVS(2833) = B(952)+0.51*B(1026)+0.03*B(1030)\nIF (DO_JVS(2834)) &\n! JVS(2834) = Jac_FULL(304,346)\n  JVS(2834) = -B(994)-B(996)-B(998)-B(1000)\nIF (DO_JVS(2835)) &\n! JVS(2835) = Jac_FULL(304,351)\n  JVS(2835) = 0\nIF (DO_JVS(2836)) &\n! JVS(2836) = Jac_FULL(305,186)\n  JVS(2836) = 0.841*B(1789)\nIF (DO_JVS(2837)) &\n! JVS(2837) = Jac_FULL(305,187)\n  JVS(2837) = 0.75*B(1023)\nIF (DO_JVS(2838)) &\n! JVS(2838) = Jac_FULL(305,209)\n  JVS(2838) = 0.03*B(1027)\nIF (DO_JVS(2839)) &\n! JVS(2839) = Jac_FULL(305,276)\n  JVS(2839) = 0.5*B(635)+B(949)\nIF (DO_JVS(2840)) &\n! JVS(2840) = Jac_FULL(305,304)\n  JVS(2840) = -B(971)-B(975)\nIF (DO_JVS(2841)) &\n! JVS(2841) = Jac_FULL(305,305)\n  JVS(2841) = -B(957)-B(959)-B(965)-B(966)-2*B(969)-B(972)-2*B(973)-B(976)-B(977)-B(979)-B(985)-B(987)-B(989)-B(991)\nIF (DO_JVS(2842)) &\n! JVS(2842) = Jac_FULL(305,311)\n  JVS(2842) = 0\nIF (DO_JVS(2843)) &\n! JVS(2843) = Jac_FULL(305,328)\n  JVS(2843) = -B(978)-B(980)\nIF (DO_JVS(2844)) &\n! JVS(2844) = Jac_FULL(305,337)\n  JVS(2844) = -B(958)-B(960)\nIF (DO_JVS(2845)) &\n! JVS(2845) = Jac_FULL(305,340)\n  JVS(2845) = 0.5*B(636)\nIF (DO_JVS(2846)) &\n! JVS(2846) = Jac_FULL(305,341)\n  JVS(2846) = 0\nIF (DO_JVS(2847)) &\n! JVS(2847) = Jac_FULL(305,345)\n  JVS(2847) = B(950)+0.75*B(1024)+0.03*B(1028)\nIF (DO_JVS(2848)) &\n! JVS(2848) = Jac_FULL(305,346)\n  JVS(2848) = -B(986)-B(988)-B(990)-B(992)\nIF (DO_JVS(2849)) &\n! JVS(2849) = Jac_FULL(305,351)\n  JVS(2849) = 0\nIF (DO_JVS(2850)) &\n! JVS(2850) = Jac_FULL(306,70)\n  JVS(2850) = B(1375)\nIF (DO_JVS(2851)) &\n! JVS(2851) = Jac_FULL(306,106)\n  JVS(2851) = B(1373)\nIF (DO_JVS(2852)) &\n! JVS(2852) = Jac_FULL(306,113)\n  JVS(2852) = B(241)\nIF (DO_JVS(2853)) &\n! JVS(2853) = Jac_FULL(306,126)\n  JVS(2853) = B(167)\nIF (DO_JVS(2854)) &\n! JVS(2854) = Jac_FULL(306,127)\n  JVS(2854) = B(152)\nIF (DO_JVS(2855)) &\n! JVS(2855) = Jac_FULL(306,132)\n  JVS(2855) = B(156)+B(158)\nIF (DO_JVS(2856)) &\n! JVS(2856) = Jac_FULL(306,136)\n  JVS(2856) = B(1379)\nIF (DO_JVS(2857)) &\n! JVS(2857) = Jac_FULL(306,174)\n  JVS(2857) = 0.25*B(1794)\nIF (DO_JVS(2858)) &\n! JVS(2858) = Jac_FULL(306,180)\n  JVS(2858) = 0.11*B(1220)+0.09*B(1222)\nIF (DO_JVS(2859)) &\n! JVS(2859) = Jac_FULL(306,197)\n  JVS(2859) = 0.5*B(160)\nIF (DO_JVS(2860)) &\n! JVS(2860) = Jac_FULL(306,198)\n  JVS(2860) = 0.429*B(1795)\nIF (DO_JVS(2861)) &\n! JVS(2861) = Jac_FULL(306,201)\n  JVS(2861) = 0.95*B(1472)\nIF (DO_JVS(2862)) &\n! JVS(2862) = Jac_FULL(306,202)\n  JVS(2862) = B(1424)\nIF (DO_JVS(2863)) &\n! JVS(2863) = Jac_FULL(306,205)\n  JVS(2863) = 0.459*B(1114)+0.728*B(1116)\nIF (DO_JVS(2864)) &\n! JVS(2864) = Jac_FULL(306,206)\n  JVS(2864) = 0.551*B(1129)+0.935*B(1131)\nIF (DO_JVS(2865)) &\n! JVS(2865) = Jac_FULL(306,212)\n  JVS(2865) = 0.659*B(150)\nIF (DO_JVS(2866)) &\n! JVS(2866) = Jac_FULL(306,220)\n  JVS(2866) = 0\nIF (DO_JVS(2867)) &\n! JVS(2867) = Jac_FULL(306,221)\n  JVS(2867) = 0.9*B(1467)\nIF (DO_JVS(2868)) &\n! JVS(2868) = Jac_FULL(306,223)\n  JVS(2868) = 0\nIF (DO_JVS(2869)) &\n! JVS(2869) = Jac_FULL(306,224)\n  JVS(2869) = 0.294*B(1039)+0.135*B(1043)\nIF (DO_JVS(2870)) &\n! JVS(2870) = Jac_FULL(306,232)\n  JVS(2870) = B(1046)+0.65*B(1050)\nIF (DO_JVS(2871)) &\n! JVS(2871) = Jac_FULL(306,233)\n  JVS(2871) = 0\nIF (DO_JVS(2872)) &\n! JVS(2872) = Jac_FULL(306,234)\n  JVS(2872) = 0.2*B(1370)\nIF (DO_JVS(2873)) &\n! JVS(2873) = Jac_FULL(306,246)\n  JVS(2873) = 0\nIF (DO_JVS(2874)) &\n! JVS(2874) = Jac_FULL(306,254)\n  JVS(2874) = 0.36*B(1270)+0.758*B(1272)\nIF (DO_JVS(2875)) &\n! JVS(2875) = Jac_FULL(306,258)\n  JVS(2875) = 0.118*B(1793)\nIF (DO_JVS(2876)) &\n! JVS(2876) = Jac_FULL(306,262)\n  JVS(2876) = 0.5*B(871)+0.5*B(873)+0.25*B(875)\nIF (DO_JVS(2877)) &\n! JVS(2877) = Jac_FULL(306,266)\n  JVS(2877) = B(1799)\nIF (DO_JVS(2878)) &\n! JVS(2878) = Jac_FULL(306,267)\n  JVS(2878) = 0\nIF (DO_JVS(2879)) &\n! JVS(2879) = Jac_FULL(306,268)\n  JVS(2879) = 0\nIF (DO_JVS(2880)) &\n! JVS(2880) = Jac_FULL(306,269)\n  JVS(2880) = 0\nIF (DO_JVS(2881)) &\n! JVS(2881) = Jac_FULL(306,271)\n  JVS(2881) = 0.34*B(1198)+0.384*B(1202)\nIF (DO_JVS(2882)) &\n! JVS(2882) = Jac_FULL(306,276)\n  JVS(2882) = 0\nIF (DO_JVS(2883)) &\n! JVS(2883) = Jac_FULL(306,285)\n  JVS(2883) = 0\nIF (DO_JVS(2884)) &\n! JVS(2884) = Jac_FULL(306,286)\n  JVS(2884) = 0.52*B(1064)+0.8*B(1066)\nIF (DO_JVS(2885)) &\n! JVS(2885) = Jac_FULL(306,288)\n  JVS(2885) = 0.53*B(1767)\nIF (DO_JVS(2886)) &\n! JVS(2886) = Jac_FULL(306,291)\n  JVS(2886) = 0\nIF (DO_JVS(2887)) &\n! JVS(2887) = Jac_FULL(306,293)\n  JVS(2887) = 0.242*B(1141)+0.546*B(1143)\nIF (DO_JVS(2888)) &\n! JVS(2888) = Jac_FULL(306,299)\n  JVS(2888) = 0.5*B(1791)\nIF (DO_JVS(2889)) &\n! JVS(2889) = Jac_FULL(306,301)\n  JVS(2889) = 0\nIF (DO_JVS(2890)) &\n! JVS(2890) = Jac_FULL(306,302)\n  JVS(2890) = 0.69*B(1772)\nIF (DO_JVS(2891)) &\n! JVS(2891) = Jac_FULL(306,303)\n  JVS(2891) = 0.3*B(1797)+0.35*B(1798)\nIF (DO_JVS(2892)) &\n! JVS(2892) = Jac_FULL(306,304)\n  JVS(2892) = 0\nIF (DO_JVS(2893)) &\n! JVS(2893) = Jac_FULL(306,305)\n  JVS(2893) = 0\nIF (DO_JVS(2894)) &\n! JVS(2894) = Jac_FULL(306,306)\n  JVS(2894) = -B(289)-B(291)-B(293)-B(295)-B(1666)\nIF (DO_JVS(2895)) &\n! JVS(2895) = Jac_FULL(306,310)\n  JVS(2895) = 0\nIF (DO_JVS(2896)) &\n! JVS(2896) = Jac_FULL(306,311)\n  JVS(2896) = 0\nIF (DO_JVS(2897)) &\n! JVS(2897) = Jac_FULL(306,314)\n  JVS(2897) = 0\nIF (DO_JVS(2898)) &\n! JVS(2898) = Jac_FULL(306,320)\n  JVS(2898) = 0\nIF (DO_JVS(2899)) &\n! JVS(2899) = Jac_FULL(306,324)\n  JVS(2899) = 0\nIF (DO_JVS(2900)) &\n! JVS(2900) = Jac_FULL(306,328)\n  JVS(2900) = 0.2*B(1371)\nIF (DO_JVS(2901)) &\n! JVS(2901) = Jac_FULL(306,335)\n  JVS(2901) = 0\nIF (DO_JVS(2902)) &\n! JVS(2902) = Jac_FULL(306,337)\n  JVS(2902) = 0.659*B(151)+B(159)+0.5*B(161)+0.135*B(1044)+0.65*B(1051)+0.52*B(1065)+0.459*B(1115)+0.551*B(1130)+0.242&\n                &*B(1142)+0.34*B(1199)+0.09*B(1223)+0.36*B(1271)\nIF (DO_JVS(2903)) &\n! JVS(2903) = Jac_FULL(306,340)\n  JVS(2903) = 0\nIF (DO_JVS(2904)) &\n! JVS(2904) = Jac_FULL(306,341)\n  JVS(2904) = 0.5*B(874)+B(1425)+0.9*B(1468)+0.95*B(1473)\nIF (DO_JVS(2905)) &\n! JVS(2905) = Jac_FULL(306,345)\n  JVS(2905) = B(153)+B(168)+B(242)-B(290)-B(292)-B(294)+0.5*B(872)+B(1376)+B(1380)\nIF (DO_JVS(2906)) &\n! JVS(2906) = Jac_FULL(306,346)\n  JVS(2906) = B(157)+0.294*B(1040)+B(1047)+0.8*B(1067)+0.728*B(1117)+0.935*B(1132)+0.546*B(1144)+0.384*B(1203)+0.11&\n                &*B(1221)+0.758*B(1273)\nIF (DO_JVS(2907)) &\n! JVS(2907) = Jac_FULL(306,351)\n  JVS(2907) = -B(296)+0.25*B(876)\nIF (DO_JVS(2908)) &\n! JVS(2908) = Jac_FULL(307,123)\n  JVS(2908) = 0.791*B(338)\nIF (DO_JVS(2909)) &\n! JVS(2909) = Jac_FULL(307,153)\n  JVS(2909) = 0.84*B(1268)\nIF (DO_JVS(2910)) &\n! JVS(2910) = Jac_FULL(307,154)\n  JVS(2910) = B(937)+B(1752)\nIF (DO_JVS(2911)) &\n! JVS(2911) = Jac_FULL(307,159)\n  JVS(2911) = 0.488*B(1280)\nIF (DO_JVS(2912)) &\n! JVS(2912) = Jac_FULL(307,174)\n  JVS(2912) = 0.25*B(1794)\nIF (DO_JVS(2913)) &\n! JVS(2913) = Jac_FULL(307,184)\n  JVS(2913) = 0.25*B(1302)\nIF (DO_JVS(2914)) &\n! JVS(2914) = Jac_FULL(307,198)\n  JVS(2914) = 0.571*B(1795)\nIF (DO_JVS(2915)) &\n! JVS(2915) = Jac_FULL(307,205)\n  JVS(2915) = 0.459*B(1114)+0.728*B(1116)\nIF (DO_JVS(2916)) &\n! JVS(2916) = Jac_FULL(307,207)\n  JVS(2916) = 0.441*B(1135)+0.858*B(1137)\nIF (DO_JVS(2917)) &\n! JVS(2917) = Jac_FULL(307,215)\n  JVS(2917) = 0.5*B(1011)\nIF (DO_JVS(2918)) &\n! JVS(2918) = Jac_FULL(307,223)\n  JVS(2918) = 0.284*B(1032)+0.135*B(1036)\nIF (DO_JVS(2919)) &\n! JVS(2919) = Jac_FULL(307,224)\n  JVS(2919) = 0\nIF (DO_JVS(2920)) &\n! JVS(2920) = Jac_FULL(307,230)\n  JVS(2920) = 0\nIF (DO_JVS(2921)) &\n! JVS(2921) = Jac_FULL(307,231)\n  JVS(2921) = 0\nIF (DO_JVS(2922)) &\n! JVS(2922) = Jac_FULL(307,232)\n  JVS(2922) = B(1046)+0.65*B(1050)\nIF (DO_JVS(2923)) &\n! JVS(2923) = Jac_FULL(307,242)\n  JVS(2923) = 0\nIF (DO_JVS(2924)) &\n! JVS(2924) = Jac_FULL(307,243)\n  JVS(2924) = 0.52*B(1078)+0.8*B(1082)+B(1084)\nIF (DO_JVS(2925)) &\n! JVS(2925) = Jac_FULL(307,248)\n  JVS(2925) = B(1773)\nIF (DO_JVS(2926)) &\n! JVS(2926) = Jac_FULL(307,253)\n  JVS(2926) = 0.507*B(1276)+B(1282)+0.86*B(1283)\nIF (DO_JVS(2927)) &\n! JVS(2927) = Jac_FULL(307,256)\n  JVS(2927) = 0\nIF (DO_JVS(2928)) &\n! JVS(2928) = Jac_FULL(307,258)\n  JVS(2928) = 0.586*B(1793)\nIF (DO_JVS(2929)) &\n! JVS(2929) = Jac_FULL(307,259)\n  JVS(2929) = 0\nIF (DO_JVS(2930)) &\n! JVS(2930) = Jac_FULL(307,260)\n  JVS(2930) = 0.16*B(216)+0.065*B(369)\nIF (DO_JVS(2931)) &\n! JVS(2931) = Jac_FULL(307,267)\n  JVS(2931) = 0\nIF (DO_JVS(2932)) &\n! JVS(2932) = Jac_FULL(307,268)\n  JVS(2932) = 0\nIF (DO_JVS(2933)) &\n! JVS(2933) = Jac_FULL(307,271)\n  JVS(2933) = 0.042*B(1198)+0.051*B(1202)\nIF (DO_JVS(2934)) &\n! JVS(2934) = Jac_FULL(307,272)\n  JVS(2934) = 0\nIF (DO_JVS(2935)) &\n! JVS(2935) = Jac_FULL(307,273)\n  JVS(2935) = 0\nIF (DO_JVS(2936)) &\n! JVS(2936) = Jac_FULL(307,275)\n  JVS(2936) = 0\nIF (DO_JVS(2937)) &\n! JVS(2937) = Jac_FULL(307,276)\n  JVS(2937) = 0\nIF (DO_JVS(2938)) &\n! JVS(2938) = Jac_FULL(307,277)\n  JVS(2938) = 0\nIF (DO_JVS(2939)) &\n! JVS(2939) = Jac_FULL(307,278)\n  JVS(2939) = 0\nIF (DO_JVS(2940)) &\n! JVS(2940) = Jac_FULL(307,280)\n  JVS(2940) = 0\nIF (DO_JVS(2941)) &\n! JVS(2941) = Jac_FULL(307,281)\n  JVS(2941) = 0\nIF (DO_JVS(2942)) &\n! JVS(2942) = Jac_FULL(307,285)\n  JVS(2942) = 0.8*B(1072)+0.52*B(1076)\nIF (DO_JVS(2943)) &\n! JVS(2943) = Jac_FULL(307,286)\n  JVS(2943) = 0\nIF (DO_JVS(2944)) &\n! JVS(2944) = Jac_FULL(307,287)\n  JVS(2944) = 0.77*B(1240)+0.77*B(1770)\nIF (DO_JVS(2945)) &\n! JVS(2945) = Jac_FULL(307,289)\n  JVS(2945) = 0\nIF (DO_JVS(2946)) &\n! JVS(2946) = Jac_FULL(307,290)\n  JVS(2946) = 0\nIF (DO_JVS(2947)) &\n! JVS(2947) = Jac_FULL(307,291)\n  JVS(2947) = 0\nIF (DO_JVS(2948)) &\n! JVS(2948) = Jac_FULL(307,293)\n  JVS(2948) = 0.033*B(1141)+0.071*B(1143)\nIF (DO_JVS(2949)) &\n! JVS(2949) = Jac_FULL(307,299)\n  JVS(2949) = 0.5*B(1791)\nIF (DO_JVS(2950)) &\n! JVS(2950) = Jac_FULL(307,301)\n  JVS(2950) = 0\nIF (DO_JVS(2951)) &\n! JVS(2951) = Jac_FULL(307,303)\n  JVS(2951) = 0.45*B(1797)+0.8*B(1798)\nIF (DO_JVS(2952)) &\n! JVS(2952) = Jac_FULL(307,304)\n  JVS(2952) = 0\nIF (DO_JVS(2953)) &\n! JVS(2953) = Jac_FULL(307,305)\n  JVS(2953) = 0\nIF (DO_JVS(2954)) &\n! JVS(2954) = Jac_FULL(307,307)\n  JVS(2954) = -B(320)-B(322)-B(1675)\nIF (DO_JVS(2955)) &\n! JVS(2955) = Jac_FULL(307,308)\n  JVS(2955) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299)\nIF (DO_JVS(2956)) &\n! JVS(2956) = Jac_FULL(307,309)\n  JVS(2956) = 0\nIF (DO_JVS(2957)) &\n! JVS(2957) = Jac_FULL(307,310)\n  JVS(2957) = 0\nIF (DO_JVS(2958)) &\n! JVS(2958) = Jac_FULL(307,311)\n  JVS(2958) = 0\nIF (DO_JVS(2959)) &\n! JVS(2959) = Jac_FULL(307,313)\n  JVS(2959) = 0.2*B(261)\nIF (DO_JVS(2960)) &\n! JVS(2960) = Jac_FULL(307,314)\n  JVS(2960) = 0\nIF (DO_JVS(2961)) &\n! JVS(2961) = Jac_FULL(307,324)\n  JVS(2961) = 0.065*B(370)\nIF (DO_JVS(2962)) &\n! JVS(2962) = Jac_FULL(307,328)\n  JVS(2962) = 0.16*B(217)+0.2*B(262)+0.7*B(1300)\nIF (DO_JVS(2963)) &\n! JVS(2963) = Jac_FULL(307,335)\n  JVS(2963) = 0\nIF (DO_JVS(2964)) &\n! JVS(2964) = Jac_FULL(307,337)\n  JVS(2964) = 0.135*B(1037)+0.65*B(1051)+0.52*B(1077)+0.52*B(1079)+0.459*B(1115)+0.441*B(1136)+0.033*B(1142)+0.042&\n                &*B(1199)+0.507*B(1277)+0.5*B(1292)\nIF (DO_JVS(2965)) &\n! JVS(2965) = Jac_FULL(307,340)\n  JVS(2965) = 0\nIF (DO_JVS(2966)) &\n! JVS(2966) = Jac_FULL(307,341)\n  JVS(2966) = 0\nIF (DO_JVS(2967)) &\n! JVS(2967) = Jac_FULL(307,342)\n  JVS(2967) = 0\nIF (DO_JVS(2968)) &\n! JVS(2968) = Jac_FULL(307,345)\n  JVS(2968) = -B(321)-B(323)+0.791*B(339)+B(938)+0.5*B(1012)+0.77*B(1241)+0.84*B(1269)+0.488*B(1281)+0.25*B(1303)\nIF (DO_JVS(2969)) &\n! JVS(2969) = Jac_FULL(307,346)\n  JVS(2969) = 0.284*B(1033)+B(1047)+0.8*B(1073)+0.8*B(1083)+0.728*B(1117)+0.858*B(1138)+0.071*B(1144)+0.051*B(1203)+0.86&\n                &*B(1284)+B(1294)\nIF (DO_JVS(2970)) &\n! JVS(2970) = Jac_FULL(307,351)\n  JVS(2970) = B(1298)\nIF (DO_JVS(2971)) &\n! JVS(2971) = Jac_FULL(308,248)\n  JVS(2971) = B(1242)\nIF (DO_JVS(2972)) &\n! JVS(2972) = Jac_FULL(308,253)\n  JVS(2972) = 0\nIF (DO_JVS(2973)) &\n! JVS(2973) = Jac_FULL(308,276)\n  JVS(2973) = 0\nIF (DO_JVS(2974)) &\n! JVS(2974) = Jac_FULL(308,301)\n  JVS(2974) = 0\nIF (DO_JVS(2975)) &\n! JVS(2975) = Jac_FULL(308,303)\n  JVS(2975) = 0\nIF (DO_JVS(2976)) &\n! JVS(2976) = Jac_FULL(308,304)\n  JVS(2976) = 0\nIF (DO_JVS(2977)) &\n! JVS(2977) = Jac_FULL(308,305)\n  JVS(2977) = 0\nIF (DO_JVS(2978)) &\n! JVS(2978) = Jac_FULL(308,308)\n  JVS(2978) = -B(1291)-B(1293)-B(1295)-B(1297)-B(1299)\nIF (DO_JVS(2979)) &\n! JVS(2979) = Jac_FULL(308,309)\n  JVS(2979) = 0\nIF (DO_JVS(2980)) &\n! JVS(2980) = Jac_FULL(308,310)\n  JVS(2980) = 0\nIF (DO_JVS(2981)) &\n! JVS(2981) = Jac_FULL(308,311)\n  JVS(2981) = 0\nIF (DO_JVS(2982)) &\n! JVS(2982) = Jac_FULL(308,324)\n  JVS(2982) = 0\nIF (DO_JVS(2983)) &\n! JVS(2983) = Jac_FULL(308,328)\n  JVS(2983) = -B(1300)\nIF (DO_JVS(2984)) &\n! JVS(2984) = Jac_FULL(308,335)\n  JVS(2984) = -B(1296)\nIF (DO_JVS(2985)) &\n! JVS(2985) = Jac_FULL(308,337)\n  JVS(2985) = -B(1292)\nIF (DO_JVS(2986)) &\n! JVS(2986) = Jac_FULL(308,340)\n  JVS(2986) = 0\nIF (DO_JVS(2987)) &\n! JVS(2987) = Jac_FULL(308,341)\n  JVS(2987) = 0\nIF (DO_JVS(2988)) &\n! JVS(2988) = Jac_FULL(308,345)\n  JVS(2988) = B(1243)\nIF (DO_JVS(2989)) &\n! JVS(2989) = Jac_FULL(308,346)\n  JVS(2989) = -B(1294)\nIF (DO_JVS(2990)) &\n! JVS(2990) = Jac_FULL(308,351)\n  JVS(2990) = -B(1298)\nIF (DO_JVS(2991)) &\n! JVS(2991) = Jac_FULL(309,135)\n  JVS(2991) = B(1089)+B(1091)\nIF (DO_JVS(2992)) &\n! JVS(2992) = Jac_FULL(309,144)\n  JVS(2992) = 0.14*B(1007)+B(1782)\nIF (DO_JVS(2993)) &\n! JVS(2993) = Jac_FULL(309,168)\n  JVS(2993) = B(1785)\nIF (DO_JVS(2994)) &\n! JVS(2994) = Jac_FULL(309,192)\n  JVS(2994) = 0.165*B(1025)+B(1776)\nIF (DO_JVS(2995)) &\n! JVS(2995) = Jac_FULL(309,199)\n  JVS(2995) = 0\nIF (DO_JVS(2996)) &\n! JVS(2996) = Jac_FULL(309,222)\n  JVS(2996) = 0.097*B(1787)\nIF (DO_JVS(2997)) &\n! JVS(2997) = Jac_FULL(309,231)\n  JVS(2997) = 0.035*B(1003)\nIF (DO_JVS(2998)) &\n! JVS(2998) = Jac_FULL(309,276)\n  JVS(2998) = 0.416*B(947)\nIF (DO_JVS(2999)) &\n! JVS(2999) = Jac_FULL(309,299)\n  JVS(2999) = 0.005*B(1791)\nIF (DO_JVS(3000)) &\n! JVS(3000) = Jac_FULL(309,303)\n  JVS(3000) = 0\nIF (DO_JVS(3001)) &\n! JVS(3001) = Jac_FULL(309,304)\n  JVS(3001) = 0.063*B(961)+B(967)+2*B(970)+B(971)+B(981)+B(995)\nIF (DO_JVS(3002)) &\n! JVS(3002) = Jac_FULL(309,305)\n  JVS(3002) = B(972)\nIF (DO_JVS(3003)) &\n! JVS(3003) = Jac_FULL(309,309)\n  JVS(3003) = -B(1228)-B(1230)-B(1232)-B(1234)-B(1674)\nIF (DO_JVS(3004)) &\n! JVS(3004) = Jac_FULL(309,310)\n  JVS(3004) = 0.048*B(1149)+0.123*B(1153)+0.019*B(1154)+0.028*B(1159)+0.097*B(1161)+0.097*B(1165)+0.096*B(1169)\nIF (DO_JVS(3005)) &\n! JVS(3005) = Jac_FULL(309,311)\n  JVS(3005) = 0.019*B(1155)\nIF (DO_JVS(3006)) &\n! JVS(3006) = Jac_FULL(309,324)\n  JVS(3006) = 0.097*B(1162)\nIF (DO_JVS(3007)) &\n! JVS(3007) = Jac_FULL(309,328)\n  JVS(3007) = B(982)+0.028*B(1160)\nIF (DO_JVS(3008)) &\n! JVS(3008) = Jac_FULL(309,337)\n  JVS(3008) = 0.063*B(962)+B(1092)+0.048*B(1150)\nIF (DO_JVS(3009)) &\n! JVS(3009) = Jac_FULL(309,340)\n  JVS(3009) = 0\nIF (DO_JVS(3010)) &\n! JVS(3010) = Jac_FULL(309,341)\n  JVS(3010) = 0.416*B(948)-B(1233)\nIF (DO_JVS(3011)) &\n! JVS(3011) = Jac_FULL(309,345)\n  JVS(3011) = 0.035*B(1004)+0.14*B(1008)+0.165*B(1026)-B(1229)-B(1231)\nIF (DO_JVS(3012)) &\n! JVS(3012) = Jac_FULL(309,346)\n  JVS(3012) = B(996)+B(1090)+0.096*B(1170)\nIF (DO_JVS(3013)) &\n! JVS(3013) = Jac_FULL(309,351)\n  JVS(3013) = 0.097*B(1166)-B(1235)\nIF (DO_JVS(3014)) &\n! JVS(3014) = Jac_FULL(310,222)\n  JVS(3014) = B(1190)\nIF (DO_JVS(3015)) &\n! JVS(3015) = Jac_FULL(310,276)\n  JVS(3015) = 0.465*B(1147)\nIF (DO_JVS(3016)) &\n! JVS(3016) = Jac_FULL(310,310)\n  JVS(3016) = -B(1149)-2*B(1153)-B(1154)-B(1159)-B(1161)-B(1165)-B(1169)-B(1171)\nIF (DO_JVS(3017)) &\n! JVS(3017) = Jac_FULL(310,311)\n  JVS(3017) = -B(1155)\nIF (DO_JVS(3018)) &\n! JVS(3018) = Jac_FULL(310,324)\n  JVS(3018) = -B(1162)\nIF (DO_JVS(3019)) &\n! JVS(3019) = Jac_FULL(310,328)\n  JVS(3019) = -B(1160)\nIF (DO_JVS(3020)) &\n! JVS(3020) = Jac_FULL(310,337)\n  JVS(3020) = -B(1150)\nIF (DO_JVS(3021)) &\n! JVS(3021) = Jac_FULL(310,340)\n  JVS(3021) = 0\nIF (DO_JVS(3022)) &\n! JVS(3022) = Jac_FULL(310,341)\n  JVS(3022) = 0\nIF (DO_JVS(3023)) &\n! JVS(3023) = Jac_FULL(310,345)\n  JVS(3023) = B(1191)\nIF (DO_JVS(3024)) &\n! JVS(3024) = Jac_FULL(310,346)\n  JVS(3024) = -B(1170)-B(1172)\nIF (DO_JVS(3025)) &\n! JVS(3025) = Jac_FULL(310,351)\n  JVS(3025) = 0.465*B(1148)-B(1166)\nIF (DO_JVS(3026)) &\n! JVS(3026) = Jac_FULL(311,186)\n  JVS(3026) = B(1192)\nIF (DO_JVS(3027)) &\n! JVS(3027) = Jac_FULL(311,276)\n  JVS(3027) = 0.535*B(1147)\nIF (DO_JVS(3028)) &\n! JVS(3028) = Jac_FULL(311,310)\n  JVS(3028) = -B(1154)\nIF (DO_JVS(3029)) &\n! JVS(3029) = Jac_FULL(311,311)\n  JVS(3029) = -B(1151)-B(1155)-2*B(1156)-B(1157)-B(1163)-B(1167)-B(1173)-B(1175)\nIF (DO_JVS(3030)) &\n! JVS(3030) = Jac_FULL(311,324)\n  JVS(3030) = -B(1164)\nIF (DO_JVS(3031)) &\n! JVS(3031) = Jac_FULL(311,328)\n  JVS(3031) = -B(1158)\nIF (DO_JVS(3032)) &\n! JVS(3032) = Jac_FULL(311,337)\n  JVS(3032) = -B(1152)\nIF (DO_JVS(3033)) &\n! JVS(3033) = Jac_FULL(311,340)\n  JVS(3033) = 0\nIF (DO_JVS(3034)) &\n! JVS(3034) = Jac_FULL(311,341)\n  JVS(3034) = 0\nIF (DO_JVS(3035)) &\n! JVS(3035) = Jac_FULL(311,345)\n  JVS(3035) = B(1193)\nIF (DO_JVS(3036)) &\n! JVS(3036) = Jac_FULL(311,346)\n  JVS(3036) = -B(1174)-B(1176)\nIF (DO_JVS(3037)) &\n! JVS(3037) = Jac_FULL(311,351)\n  JVS(3037) = 0.535*B(1148)-B(1168)\nIF (DO_JVS(3038)) &\n! JVS(3038) = Jac_FULL(312,109)\n  JVS(3038) = B(1358)\nIF (DO_JVS(3039)) &\n! JVS(3039) = Jac_FULL(312,191)\n  JVS(3039) = 0.1*B(733)\nIF (DO_JVS(3040)) &\n! JVS(3040) = Jac_FULL(312,220)\n  JVS(3040) = 0.5*B(1342)\nIF (DO_JVS(3041)) &\n! JVS(3041) = Jac_FULL(312,233)\n  JVS(3041) = 0\nIF (DO_JVS(3042)) &\n! JVS(3042) = Jac_FULL(312,255)\n  JVS(3042) = 0.33*B(808)\nIF (DO_JVS(3043)) &\n! JVS(3043) = Jac_FULL(312,276)\n  JVS(3043) = 0.58*B(947)\nIF (DO_JVS(3044)) &\n! JVS(3044) = Jac_FULL(312,281)\n  JVS(3044) = 0\nIF (DO_JVS(3045)) &\n! JVS(3045) = Jac_FULL(312,290)\n  JVS(3045) = 0.22*B(287)\nIF (DO_JVS(3046)) &\n! JVS(3046) = Jac_FULL(312,309)\n  JVS(3046) = 0.88*B(1232)\nIF (DO_JVS(3047)) &\n! JVS(3047) = Jac_FULL(312,310)\n  JVS(3047) = 0\nIF (DO_JVS(3048)) &\n! JVS(3048) = Jac_FULL(312,311)\n  JVS(3048) = 0\nIF (DO_JVS(3049)) &\n! JVS(3049) = Jac_FULL(312,312)\n  JVS(3049) = -B(691)-B(693)-B(695)-B(697)-B(699)-B(701)-B(703)\nIF (DO_JVS(3050)) &\n! JVS(3050) = Jac_FULL(312,314)\n  JVS(3050) = 0.5*B(1226)\nIF (DO_JVS(3051)) &\n! JVS(3051) = Jac_FULL(312,324)\n  JVS(3051) = 0\nIF (DO_JVS(3052)) &\n! JVS(3052) = Jac_FULL(312,328)\n  JVS(3052) = 0\nIF (DO_JVS(3053)) &\n! JVS(3053) = Jac_FULL(312,329)\n  JVS(3053) = -B(692)\nIF (DO_JVS(3054)) &\n! JVS(3054) = Jac_FULL(312,335)\n  JVS(3054) = -B(696)\nIF (DO_JVS(3055)) &\n! JVS(3055) = Jac_FULL(312,336)\n  JVS(3055) = -B(698)-B(700)\nIF (DO_JVS(3056)) &\n! JVS(3056) = Jac_FULL(312,337)\n  JVS(3056) = 0\nIF (DO_JVS(3057)) &\n! JVS(3057) = Jac_FULL(312,340)\n  JVS(3057) = 0\nIF (DO_JVS(3058)) &\n! JVS(3058) = Jac_FULL(312,341)\n  JVS(3058) = 0.22*B(288)-B(702)+0.1*B(734)+0.33*B(809)+0.58*B(948)+0.5*B(1227)+0.88*B(1233)+0.5*B(1343)+B(1359)\nIF (DO_JVS(3059)) &\n! JVS(3059) = Jac_FULL(312,342)\n  JVS(3059) = 0\nIF (DO_JVS(3060)) &\n! JVS(3060) = Jac_FULL(312,345)\n  JVS(3060) = 0\nIF (DO_JVS(3061)) &\n! JVS(3061) = Jac_FULL(312,346)\n  JVS(3061) = -B(694)\nIF (DO_JVS(3062)) &\n! JVS(3062) = Jac_FULL(312,348)\n  JVS(3062) = -B(704)\nIF (DO_JVS(3063)) &\n! JVS(3063) = Jac_FULL(312,351)\n  JVS(3063) = 0\nIF (DO_JVS(3064)) &\n! JVS(3064) = Jac_FULL(313,244)\n  JVS(3064) = 0.7*B(61)\nIF (DO_JVS(3065)) &\n! JVS(3065) = Jac_FULL(313,271)\n  JVS(3065) = 0\nIF (DO_JVS(3066)) &\n! JVS(3066) = Jac_FULL(313,276)\n  JVS(3066) = 0\nIF (DO_JVS(3067)) &\n! JVS(3067) = Jac_FULL(313,287)\n  JVS(3067) = 0\nIF (DO_JVS(3068)) &\n! JVS(3068) = Jac_FULL(313,295)\n  JVS(3068) = B(212)+B(417)+B(633)\nIF (DO_JVS(3069)) &\n! JVS(3069) = Jac_FULL(313,300)\n  JVS(3069) = 0\nIF (DO_JVS(3070)) &\n! JVS(3070) = Jac_FULL(313,301)\n  JVS(3070) = 0\nIF (DO_JVS(3071)) &\n! JVS(3071) = Jac_FULL(313,303)\n  JVS(3071) = 0\nIF (DO_JVS(3072)) &\n! JVS(3072) = Jac_FULL(313,304)\n  JVS(3072) = 0\nIF (DO_JVS(3073)) &\n! JVS(3073) = Jac_FULL(313,305)\n  JVS(3073) = 0\nIF (DO_JVS(3074)) &\n! JVS(3074) = Jac_FULL(313,309)\n  JVS(3074) = 0\nIF (DO_JVS(3075)) &\n! JVS(3075) = Jac_FULL(313,310)\n  JVS(3075) = 0\nIF (DO_JVS(3076)) &\n! JVS(3076) = Jac_FULL(313,311)\n  JVS(3076) = 0\nIF (DO_JVS(3077)) &\n! JVS(3077) = Jac_FULL(313,313)\n  JVS(3077) = -B(183)-B(226)-B(261)-B(353)\nIF (DO_JVS(3078)) &\n! JVS(3078) = Jac_FULL(313,318)\n  JVS(3078) = 0\nIF (DO_JVS(3079)) &\n! JVS(3079) = Jac_FULL(313,319)\n  JVS(3079) = 0\nIF (DO_JVS(3080)) &\n! JVS(3080) = Jac_FULL(313,320)\n  JVS(3080) = 0\nIF (DO_JVS(3081)) &\n! JVS(3081) = Jac_FULL(313,323)\n  JVS(3081) = 0\nIF (DO_JVS(3082)) &\n! JVS(3082) = Jac_FULL(313,324)\n  JVS(3082) = -B(354)\nIF (DO_JVS(3083)) &\n! JVS(3083) = Jac_FULL(313,328)\n  JVS(3083) = -B(262)\nIF (DO_JVS(3084)) &\n! JVS(3084) = Jac_FULL(313,335)\n  JVS(3084) = 0\nIF (DO_JVS(3085)) &\n! JVS(3085) = Jac_FULL(313,337)\n  JVS(3085) = -B(227)\nIF (DO_JVS(3086)) &\n! JVS(3086) = Jac_FULL(313,340)\n  JVS(3086) = B(634)\nIF (DO_JVS(3087)) &\n! JVS(3087) = Jac_FULL(313,341)\n  JVS(3087) = 0\nIF (DO_JVS(3088)) &\n! JVS(3088) = Jac_FULL(313,342)\n  JVS(3088) = B(418)\nIF (DO_JVS(3089)) &\n! JVS(3089) = Jac_FULL(313,345)\n  JVS(3089) = 0.7*B(62)+B(213)\nIF (DO_JVS(3090)) &\n! JVS(3090) = Jac_FULL(313,346)\n  JVS(3090) = -B(184)\nIF (DO_JVS(3091)) &\n! JVS(3091) = Jac_FULL(313,351)\n  JVS(3091) = 0\nIF (DO_JVS(3092)) &\n! JVS(3092) = Jac_FULL(314,82)\n  JVS(3092) = 0.04*B(1383)\nIF (DO_JVS(3093)) &\n! JVS(3093) = Jac_FULL(314,101)\n  JVS(3093) = 0.04*B(1385)\nIF (DO_JVS(3094)) &\n! JVS(3094) = Jac_FULL(314,133)\n  JVS(3094) = B(1085)+B(1087)\nIF (DO_JVS(3095)) &\n! JVS(3095) = Jac_FULL(314,150)\n  JVS(3095) = 0.23*B(1005)+B(1781)\nIF (DO_JVS(3096)) &\n! JVS(3096) = Jac_FULL(314,175)\n  JVS(3096) = B(1784)\nIF (DO_JVS(3097)) &\n! JVS(3097) = Jac_FULL(314,187)\n  JVS(3097) = 0.125*B(1023)+B(1775)\nIF (DO_JVS(3098)) &\n! JVS(3098) = Jac_FULL(314,209)\n  JVS(3098) = 0\nIF (DO_JVS(3099)) &\n! JVS(3099) = Jac_FULL(314,219)\n  JVS(3099) = 0.15*B(729)\nIF (DO_JVS(3100)) &\n! JVS(3100) = Jac_FULL(314,222)\n  JVS(3100) = 0.903*B(1787)\nIF (DO_JVS(3101)) &\n! JVS(3101) = Jac_FULL(314,229)\n  JVS(3101) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1816)\nIF (DO_JVS(3102)) &\n! JVS(3102) = Jac_FULL(314,230)\n  JVS(3102) = 0.035*B(1001)\nIF (DO_JVS(3103)) &\n! JVS(3103) = Jac_FULL(314,262)\n  JVS(3103) = 0.5*B(871)+0.5*B(873)+0.25*B(875)\nIF (DO_JVS(3104)) &\n! JVS(3104) = Jac_FULL(314,276)\n  JVS(3104) = 0.177*B(947)\nIF (DO_JVS(3105)) &\n! JVS(3105) = Jac_FULL(314,291)\n  JVS(3105) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891)\nIF (DO_JVS(3106)) &\n! JVS(3106) = Jac_FULL(314,299)\n  JVS(3106) = 0.05*B(1791)\nIF (DO_JVS(3107)) &\n! JVS(3107) = Jac_FULL(314,303)\n  JVS(3107) = 0\nIF (DO_JVS(3108)) &\n! JVS(3108) = Jac_FULL(314,304)\n  JVS(3108) = B(971)\nIF (DO_JVS(3109)) &\n! JVS(3109) = Jac_FULL(314,305)\n  JVS(3109) = 0.063*B(957)+B(965)+2*B(969)+B(972)+B(977)+B(987)\nIF (DO_JVS(3110)) &\n! JVS(3110) = Jac_FULL(314,310)\n  JVS(3110) = 0.479*B(1149)+1.737*B(1153)+0.544*B(1154)+0.583*B(1159)+0.903*B(1161)+0.903*B(1165)+0.904*B(1169)\nIF (DO_JVS(3111)) &\n! JVS(3111) = Jac_FULL(314,311)\n  JVS(3111) = 0.544*B(1155)\nIF (DO_JVS(3112)) &\n! JVS(3112) = Jac_FULL(314,314)\n  JVS(3112) = -B(1224)-B(1226)-B(1671)-B(1672)-B(1673)\nIF (DO_JVS(3113)) &\n! JVS(3113) = Jac_FULL(314,324)\n  JVS(3113) = 0.45*B(892)+0.903*B(1162)\nIF (DO_JVS(3114)) &\n! JVS(3114) = Jac_FULL(314,328)\n  JVS(3114) = 0.45*B(890)+B(978)+0.583*B(1160)\nIF (DO_JVS(3115)) &\n! JVS(3115) = Jac_FULL(314,337)\n  JVS(3115) = 0.063*B(958)+B(1088)+0.479*B(1150)\nIF (DO_JVS(3116)) &\n! JVS(3116) = Jac_FULL(314,340)\n  JVS(3116) = 0\nIF (DO_JVS(3117)) &\n! JVS(3117) = Jac_FULL(314,341)\n  JVS(3117) = 0.15*B(730)+0.3*B(862)+0.5*B(874)+0.177*B(948)-B(1227)\nIF (DO_JVS(3118)) &\n! JVS(3118) = Jac_FULL(314,345)\n  JVS(3118) = 0.3*B(860)+0.5*B(872)+0.035*B(1002)+0.23*B(1006)+0.125*B(1024)-B(1225)+0.04*B(1384)+0.04*B(1386)\nIF (DO_JVS(3119)) &\n! JVS(3119) = Jac_FULL(314,346)\n  JVS(3119) = 0.45*B(856)+B(988)+B(1086)+0.904*B(1170)\nIF (DO_JVS(3120)) &\n! JVS(3120) = Jac_FULL(314,351)\n  JVS(3120) = 0.45*B(858)+0.15*B(864)+0.25*B(876)+0.903*B(1166)\nIF (DO_JVS(3121)) &\n! JVS(3121) = Jac_FULL(315,118)\n  JVS(3121) = 0.36*B(326)\nIF (DO_JVS(3122)) &\n! JVS(3122) = Jac_FULL(315,251)\n  JVS(3122) = 0.34*B(1685)\nIF (DO_JVS(3123)) &\n! JVS(3123) = Jac_FULL(315,279)\n  JVS(3123) = 0.34*B(1688)\nIF (DO_JVS(3124)) &\n! JVS(3124) = Jac_FULL(315,292)\n  JVS(3124) = 0.415*B(1665)\nIF (DO_JVS(3125)) &\n! JVS(3125) = Jac_FULL(315,296)\n  JVS(3125) = 0\nIF (DO_JVS(3126)) &\n! JVS(3126) = Jac_FULL(315,298)\n  JVS(3126) = 0.49*B(1662)\nIF (DO_JVS(3127)) &\n! JVS(3127) = Jac_FULL(315,300)\n  JVS(3127) = 0.34*B(171)+0.16*B(257)+0.29*B(351)\nIF (DO_JVS(3128)) &\n! JVS(3128) = Jac_FULL(315,314)\n  JVS(3128) = 0\nIF (DO_JVS(3129)) &\n! JVS(3129) = Jac_FULL(315,315)\n  JVS(3129) = -B(112)-B(249)-2*B(274)-B(277)-B(367)-B(621)\nIF (DO_JVS(3130)) &\n! JVS(3130) = Jac_FULL(315,318)\n  JVS(3130) = 0\nIF (DO_JVS(3131)) &\n! JVS(3131) = Jac_FULL(315,319)\n  JVS(3131) = 0.34*B(177)+0.16*B(253)+0.29*B(349)\nIF (DO_JVS(3132)) &\n! JVS(3132) = Jac_FULL(315,320)\n  JVS(3132) = 0\nIF (DO_JVS(3133)) &\n! JVS(3133) = Jac_FULL(315,321)\n  JVS(3133) = 0\nIF (DO_JVS(3134)) &\n! JVS(3134) = Jac_FULL(315,322)\n  JVS(3134) = 0.49*B(208)+0.22*B(283)+0.49*B(373)+0.49*B(375)\nIF (DO_JVS(3135)) &\n! JVS(3135) = Jac_FULL(315,323)\n  JVS(3135) = 0\nIF (DO_JVS(3136)) &\n! JVS(3136) = Jac_FULL(315,324)\n  JVS(3136) = 0.29*B(350)+0.29*B(352)-B(368)+0.49*B(374)\nIF (DO_JVS(3137)) &\n! JVS(3137) = Jac_FULL(315,328)\n  JVS(3137) = -B(250)+0.16*B(254)+0.16*B(258)+0.49*B(376)\nIF (DO_JVS(3138)) &\n! JVS(3138) = Jac_FULL(315,335)\n  JVS(3138) = 0\nIF (DO_JVS(3139)) &\n! JVS(3139) = Jac_FULL(315,337)\n  JVS(3139) = -B(278)+0.22*B(284)\nIF (DO_JVS(3140)) &\n! JVS(3140) = Jac_FULL(315,340)\n  JVS(3140) = -B(622)\nIF (DO_JVS(3141)) &\n! JVS(3141) = Jac_FULL(315,341)\n  JVS(3141) = 0\nIF (DO_JVS(3142)) &\n! JVS(3142) = Jac_FULL(315,342)\n  JVS(3142) = 0\nIF (DO_JVS(3143)) &\n! JVS(3143) = Jac_FULL(315,345)\n  JVS(3143) = 0.36*B(327)\nIF (DO_JVS(3144)) &\n! JVS(3144) = Jac_FULL(315,346)\n  JVS(3144) = -B(113)+0.34*B(172)+0.34*B(178)+0.49*B(209)\nIF (DO_JVS(3145)) &\n! JVS(3145) = Jac_FULL(315,351)\n  JVS(3145) = 0\nIF (DO_JVS(3146)) &\n! JVS(3146) = Jac_FULL(316,148)\n  JVS(3146) = B(403)\nIF (DO_JVS(3147)) &\n! JVS(3147) = Jac_FULL(316,218)\n  JVS(3147) = B(1509)\nIF (DO_JVS(3148)) &\n! JVS(3148) = Jac_FULL(316,316)\n  JVS(3148) = -B(405)-B(1549)-B(1551)-B(1553)-B(1555)-B(1557)-B(1559)-B(1561)-B(1692)\nIF (DO_JVS(3149)) &\n! JVS(3149) = Jac_FULL(316,335)\n  JVS(3149) = 0\nIF (DO_JVS(3150)) &\n! JVS(3150) = Jac_FULL(316,336)\n  JVS(3150) = B(1510)\nIF (DO_JVS(3151)) &\n! JVS(3151) = Jac_FULL(316,337)\n  JVS(3151) = B(391)\nIF (DO_JVS(3152)) &\n! JVS(3152) = Jac_FULL(316,339)\n  JVS(3152) = -B(1552)\nIF (DO_JVS(3153)) &\n! JVS(3153) = Jac_FULL(316,341)\n  JVS(3153) = B(1563)+B(1565)+B(1567)\nIF (DO_JVS(3154)) &\n! JVS(3154) = Jac_FULL(316,342)\n  JVS(3154) = 0\nIF (DO_JVS(3155)) &\n! JVS(3155) = Jac_FULL(316,343)\n  JVS(3155) = -B(406)\nIF (DO_JVS(3156)) &\n! JVS(3156) = Jac_FULL(316,344)\n  JVS(3156) = -B(1556)\nIF (DO_JVS(3157)) &\n! JVS(3157) = Jac_FULL(316,345)\n  JVS(3157) = B(404)\nIF (DO_JVS(3158)) &\n! JVS(3158) = Jac_FULL(316,347)\n  JVS(3158) = B(392)\nIF (DO_JVS(3159)) &\n! JVS(3159) = Jac_FULL(316,348)\n  JVS(3159) = -B(1562)\nIF (DO_JVS(3160)) &\n! JVS(3160) = Jac_FULL(316,349)\n  JVS(3160) = -B(1558)+B(1566)\nIF (DO_JVS(3161)) &\n! JVS(3161) = Jac_FULL(316,350)\n  JVS(3161) = -B(1560)+B(1568)\nIF (DO_JVS(3162)) &\n! JVS(3162) = Jac_FULL(316,352)\n  JVS(3162) = -B(1550)+B(1564)\nIF (DO_JVS(3163)) &\n! JVS(3163) = Jac_FULL(316,353)\n  JVS(3163) = -B(1554)\nIF (DO_JVS(3164)) &\n! JVS(3164) = Jac_FULL(317,317)\n  JVS(3164) = -B(545)-B(601)-B(603)-B(1513)-B(1515)-B(1517)-B(1519)-B(1521)-B(1523)-B(1525)-B(1707)-B(1708)\nIF (DO_JVS(3165)) &\n! JVS(3165) = Jac_FULL(317,335)\n  JVS(3165) = B(583)\nIF (DO_JVS(3166)) &\n! JVS(3166) = Jac_FULL(317,336)\n  JVS(3166) = -B(1514)\nIF (DO_JVS(3167)) &\n! JVS(3167) = Jac_FULL(317,338)\n  JVS(3167) = B(584)\nIF (DO_JVS(3168)) &\n! JVS(3168) = Jac_FULL(317,339)\n  JVS(3168) = -B(1516)\nIF (DO_JVS(3169)) &\n! JVS(3169) = Jac_FULL(317,340)\n  JVS(3169) = -B(604)\nIF (DO_JVS(3170)) &\n! JVS(3170) = Jac_FULL(317,343)\n  JVS(3170) = -B(602)\nIF (DO_JVS(3171)) &\n! JVS(3171) = Jac_FULL(317,344)\n  JVS(3171) = -B(1526)\nIF (DO_JVS(3172)) &\n! JVS(3172) = Jac_FULL(317,345)\n  JVS(3172) = -B(546)\nIF (DO_JVS(3173)) &\n! JVS(3173) = Jac_FULL(317,349)\n  JVS(3173) = -B(1520)\nIF (DO_JVS(3174)) &\n! JVS(3174) = Jac_FULL(317,350)\n  JVS(3174) = -B(1522)\nIF (DO_JVS(3175)) &\n! JVS(3175) = Jac_FULL(317,352)\n  JVS(3175) = -B(1518)\nIF (DO_JVS(3176)) &\n! JVS(3176) = Jac_FULL(317,353)\n  JVS(3176) = -B(1524)\nIF (DO_JVS(3177)) &\n! JVS(3177) = Jac_FULL(318,251)\n  JVS(3177) = B(195)\nIF (DO_JVS(3178)) &\n! JVS(3178) = Jac_FULL(318,269)\n  JVS(3178) = 0.5*B(1457)+0.5*B(1459)\nIF (DO_JVS(3179)) &\n! JVS(3179) = Jac_FULL(318,318)\n  JVS(3179) = -B(181)-B(220)-B(255)-B(359)\nIF (DO_JVS(3180)) &\n! JVS(3180) = Jac_FULL(318,319)\n  JVS(3180) = 0\nIF (DO_JVS(3181)) &\n! JVS(3181) = Jac_FULL(318,320)\n  JVS(3181) = 0\nIF (DO_JVS(3182)) &\n! JVS(3182) = Jac_FULL(318,324)\n  JVS(3182) = -B(360)\nIF (DO_JVS(3183)) &\n! JVS(3183) = Jac_FULL(318,328)\n  JVS(3183) = -B(256)\nIF (DO_JVS(3184)) &\n! JVS(3184) = Jac_FULL(318,335)\n  JVS(3184) = 0\nIF (DO_JVS(3185)) &\n! JVS(3185) = Jac_FULL(318,337)\n  JVS(3185) = -B(221)\nIF (DO_JVS(3186)) &\n! JVS(3186) = Jac_FULL(318,341)\n  JVS(3186) = 0\nIF (DO_JVS(3187)) &\n! JVS(3187) = Jac_FULL(318,345)\n  JVS(3187) = B(196)+0.5*B(1458)\nIF (DO_JVS(3188)) &\n! JVS(3188) = Jac_FULL(318,346)\n  JVS(3188) = -B(182)\nIF (DO_JVS(3189)) &\n! JVS(3189) = Jac_FULL(318,351)\n  JVS(3189) = 0.5*B(1460)\nIF (DO_JVS(3190)) &\n! JVS(3190) = Jac_FULL(319,97)\n  JVS(3190) = 0.21*B(332)\nIF (DO_JVS(3191)) &\n! JVS(3191) = Jac_FULL(319,130)\n  JVS(3191) = 0.8*B(849)+0.8*B(1815)\nIF (DO_JVS(3192)) &\n! JVS(3192) = Jac_FULL(319,142)\n  JVS(3192) = B(169)\nIF (DO_JVS(3193)) &\n! JVS(3193) = Jac_FULL(319,161)\n  JVS(3193) = 0.6*B(1813)\nIF (DO_JVS(3194)) &\n! JVS(3194) = Jac_FULL(319,162)\n  JVS(3194) = 0.3*B(798)\nIF (DO_JVS(3195)) &\n! JVS(3195) = Jac_FULL(319,169)\n  JVS(3195) = 0.8*B(1814)\nIF (DO_JVS(3196)) &\n! JVS(3196) = Jac_FULL(319,178)\n  JVS(3196) = 0.25*B(128)\nIF (DO_JVS(3197)) &\n! JVS(3197) = Jac_FULL(319,249)\n  JVS(3197) = 0.15*B(259)+0.27*B(361)\nIF (DO_JVS(3198)) &\n! JVS(3198) = Jac_FULL(319,272)\n  JVS(3198) = 0\nIF (DO_JVS(3199)) &\n! JVS(3199) = Jac_FULL(319,273)\n  JVS(3199) = 0.6*B(790)+0.4*B(792)+0.6*B(794)\nIF (DO_JVS(3200)) &\n! JVS(3200) = Jac_FULL(319,274)\n  JVS(3200) = 0.352*B(838)+0.8*B(840)+0.8*B(845)+0.6*B(897)+0.8*B(899)\nIF (DO_JVS(3201)) &\n! JVS(3201) = Jac_FULL(319,275)\n  JVS(3201) = 0\nIF (DO_JVS(3202)) &\n! JVS(3202) = Jac_FULL(319,279)\n  JVS(3202) = 0\nIF (DO_JVS(3203)) &\n! JVS(3203) = Jac_FULL(319,281)\n  JVS(3203) = 0\nIF (DO_JVS(3204)) &\n! JVS(3204) = Jac_FULL(319,300)\n  JVS(3204) = 0\nIF (DO_JVS(3205)) &\n! JVS(3205) = Jac_FULL(319,318)\n  JVS(3205) = 0.15*B(255)+0.27*B(359)\nIF (DO_JVS(3206)) &\n! JVS(3206) = Jac_FULL(319,319)\n  JVS(3206) = -B(177)-B(179)-B(218)-B(253)-B(349)\nIF (DO_JVS(3207)) &\n! JVS(3207) = Jac_FULL(319,320)\n  JVS(3207) = 0\nIF (DO_JVS(3208)) &\n! JVS(3208) = Jac_FULL(319,324)\n  JVS(3208) = -B(350)+0.27*B(360)+0.27*B(362)+0.8*B(900)\nIF (DO_JVS(3209)) &\n! JVS(3209) = Jac_FULL(319,328)\n  JVS(3209) = -B(254)+0.15*B(256)+0.15*B(260)+0.4*B(793)+0.6*B(898)\nIF (DO_JVS(3210)) &\n! JVS(3210) = Jac_FULL(319,335)\n  JVS(3210) = 0\nIF (DO_JVS(3211)) &\n! JVS(3211) = Jac_FULL(319,337)\n  JVS(3211) = -B(219)+0.352*B(839)\nIF (DO_JVS(3212)) &\n! JVS(3212) = Jac_FULL(319,340)\n  JVS(3212) = 0\nIF (DO_JVS(3213)) &\n! JVS(3213) = Jac_FULL(319,341)\n  JVS(3213) = 0\nIF (DO_JVS(3214)) &\n! JVS(3214) = Jac_FULL(319,345)\n  JVS(3214) = B(170)+0.21*B(333)+0.3*B(799)+0.8*B(850)\nIF (DO_JVS(3215)) &\n! JVS(3215) = Jac_FULL(319,346)\n  JVS(3215) = 0.25*B(129)-B(178)-B(180)+0.6*B(791)+0.8*B(841)\nIF (DO_JVS(3216)) &\n! JVS(3216) = Jac_FULL(319,351)\n  JVS(3216) = 0.6*B(795)+0.8*B(846)\nIF (DO_JVS(3217)) &\n! JVS(3217) = Jac_FULL(320,219)\n  JVS(3217) = 0.3*B(729)\nIF (DO_JVS(3218)) &\n! JVS(3218) = Jac_FULL(320,292)\n  JVS(3218) = B(234)+B(251)\nIF (DO_JVS(3219)) &\n! JVS(3219) = Jac_FULL(320,300)\n  JVS(3219) = 0\nIF (DO_JVS(3220)) &\n! JVS(3220) = Jac_FULL(320,318)\n  JVS(3220) = 0\nIF (DO_JVS(3221)) &\n! JVS(3221) = Jac_FULL(320,319)\n  JVS(3221) = 0\nIF (DO_JVS(3222)) &\n! JVS(3222) = Jac_FULL(320,320)\n  JVS(3222) = -B(185)-B(228)-B(236)-B(263)-B(355)\nIF (DO_JVS(3223)) &\n! JVS(3223) = Jac_FULL(320,324)\n  JVS(3223) = -B(356)\nIF (DO_JVS(3224)) &\n! JVS(3224) = Jac_FULL(320,328)\n  JVS(3224) = -B(264)\nIF (DO_JVS(3225)) &\n! JVS(3225) = Jac_FULL(320,335)\n  JVS(3225) = 0\nIF (DO_JVS(3226)) &\n! JVS(3226) = Jac_FULL(320,337)\n  JVS(3226) = -B(229)\nIF (DO_JVS(3227)) &\n! JVS(3227) = Jac_FULL(320,340)\n  JVS(3227) = 0\nIF (DO_JVS(3228)) &\n! JVS(3228) = Jac_FULL(320,341)\n  JVS(3228) = 0.3*B(730)\nIF (DO_JVS(3229)) &\n! JVS(3229) = Jac_FULL(320,345)\n  JVS(3229) = B(235)\nIF (DO_JVS(3230)) &\n! JVS(3230) = Jac_FULL(320,346)\n  JVS(3230) = -B(186)-B(237)\nIF (DO_JVS(3231)) &\n! JVS(3231) = Jac_FULL(320,351)\n  JVS(3231) = B(252)\nIF (DO_JVS(3232)) &\n! JVS(3232) = Jac_FULL(321,99)\n  JVS(3232) = 0.36*B(328)\nIF (DO_JVS(3233)) &\n! JVS(3233) = Jac_FULL(321,141)\n  JVS(3233) = B(116)+B(421)+B(631)\nIF (DO_JVS(3234)) &\n! JVS(3234) = Jac_FULL(321,251)\n  JVS(3234) = 0.05*B(1685)\nIF (DO_JVS(3235)) &\n! JVS(3235) = Jac_FULL(321,279)\n  JVS(3235) = 0.05*B(1688)\nIF (DO_JVS(3236)) &\n! JVS(3236) = Jac_FULL(321,292)\n  JVS(3236) = 0.06*B(1665)\nIF (DO_JVS(3237)) &\n! JVS(3237) = Jac_FULL(321,298)\n  JVS(3237) = 0.07*B(1662)\nIF (DO_JVS(3238)) &\n! JVS(3238) = Jac_FULL(321,300)\n  JVS(3238) = 0.05*B(171)+0.03*B(257)+0.045*B(351)\nIF (DO_JVS(3239)) &\n! JVS(3239) = Jac_FULL(321,314)\n  JVS(3239) = 0\nIF (DO_JVS(3240)) &\n! JVS(3240) = Jac_FULL(321,318)\n  JVS(3240) = 0\nIF (DO_JVS(3241)) &\n! JVS(3241) = Jac_FULL(321,319)\n  JVS(3241) = 0.05*B(177)+0.03*B(253)+0.045*B(349)\nIF (DO_JVS(3242)) &\n! JVS(3242) = Jac_FULL(321,320)\n  JVS(3242) = 0\nIF (DO_JVS(3243)) &\n! JVS(3243) = Jac_FULL(321,321)\n  JVS(3243) = -B(118)-B(120)-B(214)-B(279)-B(371)\nIF (DO_JVS(3244)) &\n! JVS(3244) = Jac_FULL(321,322)\n  JVS(3244) = 0.07*B(208)+0.03*B(283)+0.07*B(373)+0.07*B(375)\nIF (DO_JVS(3245)) &\n! JVS(3245) = Jac_FULL(321,323)\n  JVS(3245) = 0\nIF (DO_JVS(3246)) &\n! JVS(3246) = Jac_FULL(321,324)\n  JVS(3246) = 0.045*B(350)+0.045*B(352)-B(372)+0.07*B(374)\nIF (DO_JVS(3247)) &\n! JVS(3247) = Jac_FULL(321,328)\n  JVS(3247) = -B(215)+0.03*B(254)+0.03*B(258)+0.07*B(376)\nIF (DO_JVS(3248)) &\n! JVS(3248) = Jac_FULL(321,335)\n  JVS(3248) = 0\nIF (DO_JVS(3249)) &\n! JVS(3249) = Jac_FULL(321,337)\n  JVS(3249) = -B(280)+0.03*B(284)\nIF (DO_JVS(3250)) &\n! JVS(3250) = Jac_FULL(321,340)\n  JVS(3250) = B(632)\nIF (DO_JVS(3251)) &\n! JVS(3251) = Jac_FULL(321,341)\n  JVS(3251) = 0\nIF (DO_JVS(3252)) &\n! JVS(3252) = Jac_FULL(321,342)\n  JVS(3252) = B(422)\nIF (DO_JVS(3253)) &\n! JVS(3253) = Jac_FULL(321,345)\n  JVS(3253) = B(117)+0.36*B(329)\nIF (DO_JVS(3254)) &\n! JVS(3254) = Jac_FULL(321,346)\n  JVS(3254) = -B(119)-B(121)+0.05*B(172)+0.05*B(178)+0.07*B(209)\nIF (DO_JVS(3255)) &\n! JVS(3255) = Jac_FULL(321,351)\n  JVS(3255) = 0\nIF (DO_JVS(3256)) &\n! JVS(3256) = Jac_FULL(322,124)\n  JVS(3256) = B(205)+0.7*B(1806)\nIF (DO_JVS(3257)) &\n! JVS(3257) = Jac_FULL(322,155)\n  JVS(3257) = B(336)\nIF (DO_JVS(3258)) &\n! JVS(3258) = Jac_FULL(322,160)\n  JVS(3258) = 0.5*B(770)+B(1811)\nIF (DO_JVS(3259)) &\n! JVS(3259) = Jac_FULL(322,176)\n  JVS(3259) = 0.4*B(772)\nIF (DO_JVS(3260)) &\n! JVS(3260) = Jac_FULL(322,196)\n  JVS(3260) = 0.326*B(1686)\nIF (DO_JVS(3261)) &\n! JVS(3261) = Jac_FULL(322,201)\n  JVS(3261) = 0.33*B(1470)\nIF (DO_JVS(3262)) &\n! JVS(3262) = Jac_FULL(322,221)\n  JVS(3262) = 0.33*B(1465)\nIF (DO_JVS(3263)) &\n! JVS(3263) = Jac_FULL(322,240)\n  JVS(3263) = B(1405)+0.44*B(1407)\nIF (DO_JVS(3264)) &\n! JVS(3264) = Jac_FULL(322,246)\n  JVS(3264) = 0\nIF (DO_JVS(3265)) &\n! JVS(3265) = Jac_FULL(322,269)\n  JVS(3265) = 0\nIF (DO_JVS(3266)) &\n! JVS(3266) = Jac_FULL(322,277)\n  JVS(3266) = 0\nIF (DO_JVS(3267)) &\n! JVS(3267) = Jac_FULL(322,278)\n  JVS(3267) = 0.84*B(764)+B(766)+0.75*B(768)\nIF (DO_JVS(3268)) &\n! JVS(3268) = Jac_FULL(322,292)\n  JVS(3268) = 0.15*B(1665)\nIF (DO_JVS(3269)) &\n! JVS(3269) = Jac_FULL(322,298)\n  JVS(3269) = B(201)+B(210)\nIF (DO_JVS(3270)) &\n! JVS(3270) = Jac_FULL(322,300)\n  JVS(3270) = 0\nIF (DO_JVS(3271)) &\n! JVS(3271) = Jac_FULL(322,314)\n  JVS(3271) = B(1673)\nIF (DO_JVS(3272)) &\n! JVS(3272) = Jac_FULL(322,318)\n  JVS(3272) = 0\nIF (DO_JVS(3273)) &\n! JVS(3273) = Jac_FULL(322,319)\n  JVS(3273) = 0\nIF (DO_JVS(3274)) &\n! JVS(3274) = Jac_FULL(322,320)\n  JVS(3274) = 0\nIF (DO_JVS(3275)) &\n! JVS(3275) = Jac_FULL(322,321)\n  JVS(3275) = 0\nIF (DO_JVS(3276)) &\n! JVS(3276) = Jac_FULL(322,322)\n  JVS(3276) = -B(203)-B(208)-B(283)-B(373)-B(375)\nIF (DO_JVS(3277)) &\n! JVS(3277) = Jac_FULL(322,323)\n  JVS(3277) = 0\nIF (DO_JVS(3278)) &\n! JVS(3278) = Jac_FULL(322,324)\n  JVS(3278) = -B(374)\nIF (DO_JVS(3279)) &\n! JVS(3279) = Jac_FULL(322,328)\n  JVS(3279) = -B(376)+0.75*B(769)\nIF (DO_JVS(3280)) &\n! JVS(3280) = Jac_FULL(322,335)\n  JVS(3280) = -B(204)\nIF (DO_JVS(3281)) &\n! JVS(3281) = Jac_FULL(322,337)\n  JVS(3281) = -B(284)+0.44*B(1408)\nIF (DO_JVS(3282)) &\n! JVS(3282) = Jac_FULL(322,340)\n  JVS(3282) = 0\nIF (DO_JVS(3283)) &\n! JVS(3283) = Jac_FULL(322,341)\n  JVS(3283) = 0\nIF (DO_JVS(3284)) &\n! JVS(3284) = Jac_FULL(322,342)\n  JVS(3284) = 0\nIF (DO_JVS(3285)) &\n! JVS(3285) = Jac_FULL(322,345)\n  JVS(3285) = B(202)+B(337)+0.5*B(771)+0.4*B(773)+0.33*B(1466)+0.33*B(1471)\nIF (DO_JVS(3286)) &\n! JVS(3286) = Jac_FULL(322,346)\n  JVS(3286) = -B(209)+0.84*B(765)+B(1406)\nIF (DO_JVS(3287)) &\n! JVS(3287) = Jac_FULL(322,351)\n  JVS(3287) = B(211)+B(767)\nIF (DO_JVS(3288)) &\n! JVS(3288) = Jac_FULL(323,100)\n  JVS(3288) = 0.209*B(330)\nIF (DO_JVS(3289)) &\n! JVS(3289) = Jac_FULL(323,141)\n  JVS(3289) = B(114)+B(629)\nIF (DO_JVS(3290)) &\n! JVS(3290) = Jac_FULL(323,251)\n  JVS(3290) = 0.19*B(1685)\nIF (DO_JVS(3291)) &\n! JVS(3291) = Jac_FULL(323,279)\n  JVS(3291) = 0.19*B(1688)\nIF (DO_JVS(3292)) &\n! JVS(3292) = Jac_FULL(323,292)\n  JVS(3292) = 0.23*B(1665)\nIF (DO_JVS(3293)) &\n! JVS(3293) = Jac_FULL(323,298)\n  JVS(3293) = 0.27*B(1662)\nIF (DO_JVS(3294)) &\n! JVS(3294) = Jac_FULL(323,300)\n  JVS(3294) = 0.19*B(171)+0.09*B(257)+0.162*B(351)\nIF (DO_JVS(3295)) &\n! JVS(3295) = Jac_FULL(323,314)\n  JVS(3295) = 0\nIF (DO_JVS(3296)) &\n! JVS(3296) = Jac_FULL(323,318)\n  JVS(3296) = 0\nIF (DO_JVS(3297)) &\n! JVS(3297) = Jac_FULL(323,319)\n  JVS(3297) = 0.19*B(177)+0.09*B(253)+0.162*B(349)\nIF (DO_JVS(3298)) &\n! JVS(3298) = Jac_FULL(323,320)\n  JVS(3298) = 0\nIF (DO_JVS(3299)) &\n! JVS(3299) = Jac_FULL(323,321)\n  JVS(3299) = 0\nIF (DO_JVS(3300)) &\n! JVS(3300) = Jac_FULL(323,322)\n  JVS(3300) = 0.27*B(208)+0.12*B(283)+0.27*B(373)+0.27*B(375)\nIF (DO_JVS(3301)) &\n! JVS(3301) = Jac_FULL(323,323)\n  JVS(3301) = -B(187)-B(189)-B(230)-B(265)-B(357)\nIF (DO_JVS(3302)) &\n! JVS(3302) = Jac_FULL(323,324)\n  JVS(3302) = 0.162*B(350)+0.162*B(352)-B(358)+0.27*B(374)\nIF (DO_JVS(3303)) &\n! JVS(3303) = Jac_FULL(323,328)\n  JVS(3303) = 0.09*B(254)+0.09*B(258)-B(266)+0.27*B(376)\nIF (DO_JVS(3304)) &\n! JVS(3304) = Jac_FULL(323,335)\n  JVS(3304) = 0\nIF (DO_JVS(3305)) &\n! JVS(3305) = Jac_FULL(323,337)\n  JVS(3305) = -B(231)+0.12*B(284)\nIF (DO_JVS(3306)) &\n! JVS(3306) = Jac_FULL(323,340)\n  JVS(3306) = B(630)\nIF (DO_JVS(3307)) &\n! JVS(3307) = Jac_FULL(323,341)\n  JVS(3307) = 0\nIF (DO_JVS(3308)) &\n! JVS(3308) = Jac_FULL(323,342)\n  JVS(3308) = 0\nIF (DO_JVS(3309)) &\n! JVS(3309) = Jac_FULL(323,345)\n  JVS(3309) = B(115)+0.209*B(331)\nIF (DO_JVS(3310)) &\n! JVS(3310) = Jac_FULL(323,346)\n  JVS(3310) = 0.19*B(172)+0.19*B(178)-B(188)-B(190)+0.27*B(209)\nIF (DO_JVS(3311)) &\n! JVS(3311) = Jac_FULL(323,351)\n  JVS(3311) = 0\nIF (DO_JVS(3312)) &\n! JVS(3312) = Jac_FULL(324,92)\n  JVS(3312) = 0.78*B(342)\nIF (DO_JVS(3313)) &\n! JVS(3313) = Jac_FULL(324,107)\n  JVS(3313) = 0.3*B(1304)\nIF (DO_JVS(3314)) &\n! JVS(3314) = Jac_FULL(324,115)\n  JVS(3314) = B(1320)+B(1763)\nIF (DO_JVS(3315)) &\n! JVS(3315) = Jac_FULL(324,122)\n  JVS(3315) = B(1412)\nIF (DO_JVS(3316)) &\n! JVS(3316) = Jac_FULL(324,130)\n  JVS(3316) = B(849)+B(1815)\nIF (DO_JVS(3317)) &\n! JVS(3317) = Jac_FULL(324,139)\n  JVS(3317) = B(101)+0.7*B(1658)\nIF (DO_JVS(3318)) &\n! JVS(3318) = Jac_FULL(324,146)\n  JVS(3318) = B(1661)\nIF (DO_JVS(3319)) &\n! JVS(3319) = Jac_FULL(324,159)\n  JVS(3319) = 0.087*B(1280)+0.262*B(1771)\nIF (DO_JVS(3320)) &\n! JVS(3320) = Jac_FULL(324,169)\n  JVS(3320) = B(1814)\nIF (DO_JVS(3321)) &\n! JVS(3321) = Jac_FULL(324,184)\n  JVS(3321) = 0\nIF (DO_JVS(3322)) &\n! JVS(3322) = Jac_FULL(324,185)\n  JVS(3322) = 0.429*B(1768)\nIF (DO_JVS(3323)) &\n! JVS(3323) = Jac_FULL(324,194)\n  JVS(3323) = 0.097*B(1258)+0.125*B(1769)\nIF (DO_JVS(3324)) &\n! JVS(3324) = Jac_FULL(324,196)\n  JVS(3324) = 0.326*B(1686)\nIF (DO_JVS(3325)) &\n! JVS(3325) = Jac_FULL(324,200)\n  JVS(3325) = 0\nIF (DO_JVS(3326)) &\n! JVS(3326) = Jac_FULL(324,208)\n  JVS(3326) = B(1266)+B(1765)\nIF (DO_JVS(3327)) &\n! JVS(3327) = Jac_FULL(324,209)\n  JVS(3327) = 0.018*B(1027)\nIF (DO_JVS(3328)) &\n! JVS(3328) = Jac_FULL(324,227)\n  JVS(3328) = 0.5*B(1766)\nIF (DO_JVS(3329)) &\n! JVS(3329) = Jac_FULL(324,230)\n  JVS(3329) = 0\nIF (DO_JVS(3330)) &\n! JVS(3330) = Jac_FULL(324,231)\n  JVS(3330) = 0\nIF (DO_JVS(3331)) &\n! JVS(3331) = Jac_FULL(324,240)\n  JVS(3331) = 0\nIF (DO_JVS(3332)) &\n! JVS(3332) = Jac_FULL(324,243)\n  JVS(3332) = 0\nIF (DO_JVS(3333)) &\n! JVS(3333) = Jac_FULL(324,244)\n  JVS(3333) = B(1743)\nIF (DO_JVS(3334)) &\n! JVS(3334) = Jac_FULL(324,247)\n  JVS(3334) = B(1764)\nIF (DO_JVS(3335)) &\n! JVS(3335) = Jac_FULL(324,249)\n  JVS(3335) = -B(361)\nIF (DO_JVS(3336)) &\n! JVS(3336) = Jac_FULL(324,250)\n  JVS(3336) = -B(363)\nIF (DO_JVS(3337)) &\n! JVS(3337) = Jac_FULL(324,254)\n  JVS(3337) = 0.36*B(1270)+0.758*B(1272)\nIF (DO_JVS(3338)) &\n! JVS(3338) = Jac_FULL(324,257)\n  JVS(3338) = -B(895)\nIF (DO_JVS(3339)) &\n! JVS(3339) = Jac_FULL(324,258)\n  JVS(3339) = 0\nIF (DO_JVS(3340)) &\n! JVS(3340) = Jac_FULL(324,259)\n  JVS(3340) = 0.175*B(1278)+0.35*B(1287)\nIF (DO_JVS(3341)) &\n! JVS(3341) = Jac_FULL(324,260)\n  JVS(3341) = -B(369)\nIF (DO_JVS(3342)) &\n! JVS(3342) = Jac_FULL(324,261)\n  JVS(3342) = B(1318)\nIF (DO_JVS(3343)) &\n! JVS(3343) = Jac_FULL(324,263)\n  JVS(3343) = -B(1395)\nIF (DO_JVS(3344)) &\n! JVS(3344) = Jac_FULL(324,267)\n  JVS(3344) = 0\nIF (DO_JVS(3345)) &\n! JVS(3345) = Jac_FULL(324,268)\n  JVS(3345) = 0\nIF (DO_JVS(3346)) &\n! JVS(3346) = Jac_FULL(324,271)\n  JVS(3346) = 0\nIF (DO_JVS(3347)) &\n! JVS(3347) = Jac_FULL(324,272)\n  JVS(3347) = 0\nIF (DO_JVS(3348)) &\n! JVS(3348) = Jac_FULL(324,274)\n  JVS(3348) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)\nIF (DO_JVS(3349)) &\n! JVS(3349) = Jac_FULL(324,275)\n  JVS(3349) = -B(883)\nIF (DO_JVS(3350)) &\n! JVS(3350) = Jac_FULL(324,276)\n  JVS(3350) = 0.3*B(953)\nIF (DO_JVS(3351)) &\n! JVS(3351) = Jac_FULL(324,277)\n  JVS(3351) = -B(879)\nIF (DO_JVS(3352)) &\n! JVS(3352) = Jac_FULL(324,278)\n  JVS(3352) = 0\nIF (DO_JVS(3353)) &\n! JVS(3353) = Jac_FULL(324,279)\n  JVS(3353) = 0\nIF (DO_JVS(3354)) &\n! JVS(3354) = Jac_FULL(324,280)\n  JVS(3354) = -B(913)\nIF (DO_JVS(3355)) &\n! JVS(3355) = Jac_FULL(324,281)\n  JVS(3355) = -B(887)\nIF (DO_JVS(3356)) &\n! JVS(3356) = Jac_FULL(324,285)\n  JVS(3356) = 0\nIF (DO_JVS(3357)) &\n! JVS(3357) = Jac_FULL(324,286)\n  JVS(3357) = 0\nIF (DO_JVS(3358)) &\n! JVS(3358) = Jac_FULL(324,287)\n  JVS(3358) = 0\nIF (DO_JVS(3359)) &\n! JVS(3359) = Jac_FULL(324,288)\n  JVS(3359) = 0.53*B(1767)\nIF (DO_JVS(3360)) &\n! JVS(3360) = Jac_FULL(324,289)\n  JVS(3360) = -B(915)\nIF (DO_JVS(3361)) &\n! JVS(3361) = Jac_FULL(324,290)\n  JVS(3361) = 0\nIF (DO_JVS(3362)) &\n! JVS(3362) = Jac_FULL(324,291)\n  JVS(3362) = -B(891)\nIF (DO_JVS(3363)) &\n! JVS(3363) = Jac_FULL(324,292)\n  JVS(3363) = 0.85*B(1665)\nIF (DO_JVS(3364)) &\n! JVS(3364) = Jac_FULL(324,293)\n  JVS(3364) = 0\nIF (DO_JVS(3365)) &\n! JVS(3365) = Jac_FULL(324,294)\n  JVS(3365) = B(314)+B(318)+B(1670)\nIF (DO_JVS(3366)) &\n! JVS(3366) = Jac_FULL(324,295)\n  JVS(3366) = B(1663)\nIF (DO_JVS(3367)) &\n! JVS(3367) = Jac_FULL(324,296)\n  JVS(3367) = -B(365)\nIF (DO_JVS(3368)) &\n! JVS(3368) = Jac_FULL(324,299)\n  JVS(3368) = 0\nIF (DO_JVS(3369)) &\n! JVS(3369) = Jac_FULL(324,300)\n  JVS(3369) = -B(351)\nIF (DO_JVS(3370)) &\n! JVS(3370) = Jac_FULL(324,301)\n  JVS(3370) = 0\nIF (DO_JVS(3371)) &\n! JVS(3371) = Jac_FULL(324,302)\n  JVS(3371) = 0.04*B(1236)+1.01*B(1772)\nIF (DO_JVS(3372)) &\n! JVS(3372) = Jac_FULL(324,303)\n  JVS(3372) = 0\nIF (DO_JVS(3373)) &\n! JVS(3373) = Jac_FULL(324,304)\n  JVS(3373) = 0\nIF (DO_JVS(3374)) &\n! JVS(3374) = Jac_FULL(324,305)\n  JVS(3374) = 0.3*B(966)\nIF (DO_JVS(3375)) &\n! JVS(3375) = Jac_FULL(324,307)\n  JVS(3375) = B(1675)\nIF (DO_JVS(3376)) &\n! JVS(3376) = Jac_FULL(324,308)\n  JVS(3376) = 0\nIF (DO_JVS(3377)) &\n! JVS(3377) = Jac_FULL(324,309)\n  JVS(3377) = 0.12*B(1232)+B(1674)\nIF (DO_JVS(3378)) &\n! JVS(3378) = Jac_FULL(324,310)\n  JVS(3378) = -B(1161)\nIF (DO_JVS(3379)) &\n! JVS(3379) = Jac_FULL(324,311)\n  JVS(3379) = -B(1163)\nIF (DO_JVS(3380)) &\n! JVS(3380) = Jac_FULL(324,313)\n  JVS(3380) = B(183)+0.15*B(226)+0.3*B(261)-0.1*B(353)\nIF (DO_JVS(3381)) &\n! JVS(3381) = Jac_FULL(324,314)\n  JVS(3381) = 0.38*B(1226)+B(1672)\nIF (DO_JVS(3382)) &\n! JVS(3382) = Jac_FULL(324,315)\n  JVS(3382) = -B(367)\nIF (DO_JVS(3383)) &\n! JVS(3383) = Jac_FULL(324,318)\n  JVS(3383) = -B(359)\nIF (DO_JVS(3384)) &\n! JVS(3384) = Jac_FULL(324,319)\n  JVS(3384) = -B(349)\nIF (DO_JVS(3385)) &\n! JVS(3385) = Jac_FULL(324,320)\n  JVS(3385) = 0.919*B(185)+0.15*B(228)+0.62*B(236)+0.5*B(263)-0.1*B(355)\nIF (DO_JVS(3386)) &\n! JVS(3386) = Jac_FULL(324,321)\n  JVS(3386) = -B(371)\nIF (DO_JVS(3387)) &\n! JVS(3387) = Jac_FULL(324,322)\n  JVS(3387) = -B(373)\nIF (DO_JVS(3388)) &\n! JVS(3388) = Jac_FULL(324,323)\n  JVS(3388) = -B(357)\nIF (DO_JVS(3389)) &\n! JVS(3389) = Jac_FULL(324,324)\n  JVS(3389) = -B(99)-B(104)-2*B(346)-B(347)-B(350)-B(352)-0.1*B(354)-0.1*B(356)-B(358)-B(360)-B(362)-B(364)-B(366)&\n                &-B(368)-B(370)-B(372)-B(374)-B(880)-B(884)-B(888)-B(892)-B(896)-B(914)-B(916)-B(1162)-B(1164)-B(1324)&\n                &-B(1396)\nIF (DO_JVS(3390)) &\n! JVS(3390) = Jac_FULL(324,326)\n  JVS(3390) = 0.95*B(95)+B(97)+B(415)+0.12*B(1656)\nIF (DO_JVS(3391)) &\n! JVS(3391) = Jac_FULL(324,328)\n  JVS(3391) = 0.3*B(262)+0.5*B(264)-B(348)+0.75*B(898)\nIF (DO_JVS(3392)) &\n! JVS(3392) = Jac_FULL(324,335)\n  JVS(3392) = -B(100)\nIF (DO_JVS(3393)) &\n! JVS(3393) = Jac_FULL(324,337)\n  JVS(3393) = 0.15*B(227)+0.15*B(229)+0.44*B(839)+0.36*B(1271)+0.175*B(1279)-B(1325)\nIF (DO_JVS(3394)) &\n! JVS(3394) = Jac_FULL(324,340)\n  JVS(3394) = 0\nIF (DO_JVS(3395)) &\n! JVS(3395) = Jac_FULL(324,341)\n  JVS(3395) = 0.38*B(1227)+0.12*B(1233)\nIF (DO_JVS(3396)) &\n! JVS(3396) = Jac_FULL(324,342)\n  JVS(3396) = B(416)\nIF (DO_JVS(3397)) &\n! JVS(3397) = Jac_FULL(324,345)\n  JVS(3397) = 0.95*B(96)+B(315)+0.78*B(343)+B(850)+0.3*B(954)+0.018*B(1028)+0.04*B(1237)+0.097*B(1259)+B(1267)+0.087&\n                &*B(1281)+0.3*B(1305)+B(1321)+B(1413)\nIF (DO_JVS(3398)) &\n! JVS(3398) = Jac_FULL(324,346)\n  JVS(3398) = -B(105)+B(184)+0.919*B(186)+0.62*B(237)+B(841)+0.758*B(1273)+0.35*B(1288)\nIF (DO_JVS(3399)) &\n! JVS(3399) = Jac_FULL(324,351)\n  JVS(3399) = B(98)+B(319)+B(846)+B(1319)\nIF (DO_JVS(3400)) &\n! JVS(3400) = Jac_FULL(325,72)\n  JVS(3400) = B(308)\nIF (DO_JVS(3401)) &\n! JVS(3401) = Jac_FULL(325,80)\n  JVS(3401) = B(1741)\nIF (DO_JVS(3402)) &\n! JVS(3402) = Jac_FULL(325,88)\n  JVS(3402) = 0.5*B(1322)+B(1761)\nIF (DO_JVS(3403)) &\n! JVS(3403) = Jac_FULL(325,89)\n  JVS(3403) = B(22)+B(23)\nIF (DO_JVS(3404)) &\n! JVS(3404) = Jac_FULL(325,92)\n  JVS(3404) = 0.22*B(342)\nIF (DO_JVS(3405)) &\n! JVS(3405) = Jac_FULL(325,93)\n  JVS(3405) = B(939)+B(1757)\nIF (DO_JVS(3406)) &\n! JVS(3406) = Jac_FULL(325,94)\n  JVS(3406) = B(381)+B(385)\nIF (DO_JVS(3407)) &\n! JVS(3407) = Jac_FULL(325,106)\n  JVS(3407) = 2*B(1372)\nIF (DO_JVS(3408)) &\n! JVS(3408) = Jac_FULL(325,109)\n  JVS(3408) = B(1358)\nIF (DO_JVS(3409)) &\n! JVS(3409) = Jac_FULL(325,112)\n  JVS(3409) = B(1812)\nIF (DO_JVS(3410)) &\n! JVS(3410) = Jac_FULL(325,114)\n  JVS(3410) = B(306)\nIF (DO_JVS(3411)) &\n! JVS(3411) = Jac_FULL(325,122)\n  JVS(3411) = B(1412)\nIF (DO_JVS(3412)) &\n! JVS(3412) = Jac_FULL(325,123)\n  JVS(3412) = B(1683)\nIF (DO_JVS(3413)) &\n! JVS(3413) = Jac_FULL(325,127)\n  JVS(3413) = B(152)\nIF (DO_JVS(3414)) &\n! JVS(3414) = Jac_FULL(325,130)\n  JVS(3414) = 0.4*B(849)+0.4*B(1815)\nIF (DO_JVS(3415)) &\n! JVS(3415) = Jac_FULL(325,136)\n  JVS(3415) = 0\nIF (DO_JVS(3416)) &\n! JVS(3416) = Jac_FULL(325,137)\n  JVS(3416) = 0.5*B(743)\nIF (DO_JVS(3417)) &\n! JVS(3417) = Jac_FULL(325,138)\n  JVS(3417) = B(780)\nIF (DO_JVS(3418)) &\n! JVS(3418) = Jac_FULL(325,139)\n  JVS(3418) = B(102)\nIF (DO_JVS(3419)) &\n! JVS(3419) = Jac_FULL(325,140)\n  JVS(3419) = B(144)+B(146)\nIF (DO_JVS(3420)) &\n! JVS(3420) = Jac_FULL(325,146)\n  JVS(3420) = B(1661)\nIF (DO_JVS(3421)) &\n! JVS(3421) = Jac_FULL(325,149)\n  JVS(3421) = 0.25*B(1344)+B(1346)\nIF (DO_JVS(3422)) &\n! JVS(3422) = Jac_FULL(325,159)\n  JVS(3422) = 0.25*B(1280)+0.75*B(1771)\nIF (DO_JVS(3423)) &\n! JVS(3423) = Jac_FULL(325,160)\n  JVS(3423) = 0.5*B(770)+B(1811)\nIF (DO_JVS(3424)) &\n! JVS(3424) = Jac_FULL(325,164)\n  JVS(3424) = 0.3*B(59)+B(1646)\nIF (DO_JVS(3425)) &\n! JVS(3425) = Jac_FULL(325,165)\n  JVS(3425) = 0.98*B(138)\nIF (DO_JVS(3426)) &\n! JVS(3426) = Jac_FULL(325,168)\n  JVS(3426) = B(1785)\nIF (DO_JVS(3427)) &\n! JVS(3427) = Jac_FULL(325,169)\n  JVS(3427) = 0.4*B(1814)\nIF (DO_JVS(3428)) &\n! JVS(3428) = Jac_FULL(325,175)\n  JVS(3428) = B(1784)\nIF (DO_JVS(3429)) &\n! JVS(3429) = Jac_FULL(325,176)\n  JVS(3429) = 0.4*B(772)\nIF (DO_JVS(3430)) &\n! JVS(3430) = Jac_FULL(325,187)\n  JVS(3430) = B(1775)\nIF (DO_JVS(3431)) &\n! JVS(3431) = Jac_FULL(325,190)\n  JVS(3431) = 0.599*B(1121)+B(1123)\nIF (DO_JVS(3432)) &\n! JVS(3432) = Jac_FULL(325,191)\n  JVS(3432) = 0.1*B(733)\nIF (DO_JVS(3433)) &\n! JVS(3433) = Jac_FULL(325,192)\n  JVS(3433) = B(1776)\nIF (DO_JVS(3434)) &\n! JVS(3434) = Jac_FULL(325,196)\n  JVS(3434) = 0\nIF (DO_JVS(3435)) &\n! JVS(3435) = Jac_FULL(325,197)\n  JVS(3435) = B(160)+B(162)\nIF (DO_JVS(3436)) &\n! JVS(3436) = Jac_FULL(325,199)\n  JVS(3436) = 0.018*B(1029)\nIF (DO_JVS(3437)) &\n! JVS(3437) = Jac_FULL(325,200)\n  JVS(3437) = 0.12*B(1348)\nIF (DO_JVS(3438)) &\n! JVS(3438) = Jac_FULL(325,205)\n  JVS(3438) = 0.059*B(1114)+0.272*B(1116)\nIF (DO_JVS(3439)) &\n! JVS(3439) = Jac_FULL(325,206)\n  JVS(3439) = 0.031*B(1129)+0.065*B(1131)\nIF (DO_JVS(3440)) &\n! JVS(3440) = Jac_FULL(325,207)\n  JVS(3440) = 0.065*B(1135)+0.142*B(1137)\nIF (DO_JVS(3441)) &\n! JVS(3441) = Jac_FULL(325,208)\n  JVS(3441) = B(1765)\nIF (DO_JVS(3442)) &\n! JVS(3442) = Jac_FULL(325,209)\n  JVS(3442) = 0.018*B(1027)\nIF (DO_JVS(3443)) &\n! JVS(3443) = Jac_FULL(325,210)\n  JVS(3443) = B(1326)+B(1762)\nIF (DO_JVS(3444)) &\n! JVS(3444) = Jac_FULL(325,211)\n  JVS(3444) = B(820)\nIF (DO_JVS(3445)) &\n! JVS(3445) = Jac_FULL(325,212)\n  JVS(3445) = 0.603*B(148)\nIF (DO_JVS(3446)) &\n! JVS(3446) = Jac_FULL(325,213)\n  JVS(3446) = B(300)+0.44*B(302)+B(304)\nIF (DO_JVS(3447)) &\n! JVS(3447) = Jac_FULL(325,215)\n  JVS(3447) = 0.5*B(1011)\nIF (DO_JVS(3448)) &\n! JVS(3448) = Jac_FULL(325,219)\n  JVS(3448) = 0.1*B(729)\nIF (DO_JVS(3449)) &\n! JVS(3449) = Jac_FULL(325,220)\n  JVS(3449) = B(1338)+B(1340)+0.5*B(1342)\nIF (DO_JVS(3450)) &\n! JVS(3450) = Jac_FULL(325,222)\n  JVS(3450) = B(1787)\nIF (DO_JVS(3451)) &\n! JVS(3451) = Jac_FULL(325,223)\n  JVS(3451) = 0.716*B(1032)+0.14*B(1036)\nIF (DO_JVS(3452)) &\n! JVS(3452) = Jac_FULL(325,224)\n  JVS(3452) = 0.706*B(1039)+0.14*B(1043)\nIF (DO_JVS(3453)) &\n! JVS(3453) = Jac_FULL(325,226)\n  JVS(3453) = 0.088*B(1200)+0.34*B(1206)\nIF (DO_JVS(3454)) &\n! JVS(3454) = Jac_FULL(325,228)\n  JVS(3454) = 0.25*B(443)\nIF (DO_JVS(3455)) &\n! JVS(3455) = Jac_FULL(325,229)\n  JVS(3455) = 0.1*B(859)+0.1*B(861)+0.05*B(863)+0.1*B(1816)\nIF (DO_JVS(3456)) &\n! JVS(3456) = Jac_FULL(325,230)\n  JVS(3456) = 0.085*B(1001)\nIF (DO_JVS(3457)) &\n! JVS(3457) = Jac_FULL(325,231)\n  JVS(3457) = 0.165*B(1003)\nIF (DO_JVS(3458)) &\n! JVS(3458) = Jac_FULL(325,233)\n  JVS(3458) = 0.065*B(154)+0.3*B(1660)\nIF (DO_JVS(3459)) &\n! JVS(3459) = Jac_FULL(325,234)\n  JVS(3459) = 0.8*B(1370)\nIF (DO_JVS(3460)) &\n! JVS(3460) = Jac_FULL(325,235)\n  JVS(3460) = B(1463)\nIF (DO_JVS(3461)) &\n! JVS(3461) = Jac_FULL(325,236)\n  JVS(3461) = B(1461)\nIF (DO_JVS(3462)) &\n! JVS(3462) = Jac_FULL(325,240)\n  JVS(3462) = 0\nIF (DO_JVS(3463)) &\n! JVS(3463) = Jac_FULL(325,243)\n  JVS(3463) = 0.65*B(1078)+B(1082)\nIF (DO_JVS(3464)) &\n! JVS(3464) = Jac_FULL(325,244)\n  JVS(3464) = B(1743)\nIF (DO_JVS(3465)) &\n! JVS(3465) = Jac_FULL(325,246)\n  JVS(3465) = 0\nIF (DO_JVS(3466)) &\n! JVS(3466) = Jac_FULL(325,247)\n  JVS(3466) = B(1764)\nIF (DO_JVS(3467)) &\n! JVS(3467) = Jac_FULL(325,249)\n  JVS(3467) = 0.64*B(175)+0.95*B(259)+0.351*B(361)\nIF (DO_JVS(3468)) &\n! JVS(3468) = Jac_FULL(325,250)\n  JVS(3468) = B(191)+1.25*B(267)+0.9*B(363)\nIF (DO_JVS(3469)) &\n! JVS(3469) = Jac_FULL(325,253)\n  JVS(3469) = 0.083*B(1276)+0.14*B(1283)\nIF (DO_JVS(3470)) &\n! JVS(3470) = Jac_FULL(325,254)\n  JVS(3470) = 0.05*B(1270)+0.242*B(1272)\nIF (DO_JVS(3471)) &\n! JVS(3471) = Jac_FULL(325,255)\n  JVS(3471) = 0.67*B(808)\nIF (DO_JVS(3472)) &\n! JVS(3472) = Jac_FULL(325,257)\n  JVS(3472) = B(893)\nIF (DO_JVS(3473)) &\n! JVS(3473) = Jac_FULL(325,258)\n  JVS(3473) = 0.133*B(1793)\nIF (DO_JVS(3474)) &\n! JVS(3474) = Jac_FULL(325,259)\n  JVS(3474) = 0.5*B(1278)+B(1287)\nIF (DO_JVS(3475)) &\n! JVS(3475) = Jac_FULL(325,260)\n  JVS(3475) = B(122)+1.25*B(216)+0.9*B(369)\nIF (DO_JVS(3476)) &\n! JVS(3476) = Jac_FULL(325,261)\n  JVS(3476) = B(687)+B(1749)\nIF (DO_JVS(3477)) &\n! JVS(3477) = Jac_FULL(325,262)\n  JVS(3477) = 1.5*B(871)+1.5*B(873)+0.75*B(875)\nIF (DO_JVS(3478)) &\n! JVS(3478) = Jac_FULL(325,263)\n  JVS(3478) = B(1393)\nIF (DO_JVS(3479)) &\n! JVS(3479) = Jac_FULL(325,267)\n  JVS(3479) = 0\nIF (DO_JVS(3480)) &\n! JVS(3480) = Jac_FULL(325,268)\n  JVS(3480) = 0\nIF (DO_JVS(3481)) &\n! JVS(3481) = Jac_FULL(325,270)\n  JVS(3481) = B(1669)\nIF (DO_JVS(3482)) &\n! JVS(3482) = Jac_FULL(325,271)\n  JVS(3482) = 0.126*B(1198)+0.249*B(1202)\nIF (DO_JVS(3483)) &\n! JVS(3483) = Jac_FULL(325,272)\n  JVS(3483) = 0.75*B(830)\nIF (DO_JVS(3484)) &\n! JVS(3484) = Jac_FULL(325,273)\n  JVS(3484) = 0.75*B(792)\nIF (DO_JVS(3485)) &\n! JVS(3485) = Jac_FULL(325,274)\n  JVS(3485) = 0.176*B(838)+0.4*B(840)+0.4*B(845)+1.3*B(897)+0.4*B(899)\nIF (DO_JVS(3486)) &\n! JVS(3486) = Jac_FULL(325,275)\n  JVS(3486) = 0.75*B(776)+B(778)+1.75*B(881)+B(883)\nIF (DO_JVS(3487)) &\n! JVS(3487) = Jac_FULL(325,276)\n  JVS(3487) = 0.827*B(947)+0.3*B(953)+0.3*B(955)\nIF (DO_JVS(3488)) &\n! JVS(3488) = Jac_FULL(325,277)\n  JVS(3488) = 0.75*B(877)\nIF (DO_JVS(3489)) &\n! JVS(3489) = Jac_FULL(325,278)\n  JVS(3489) = 0.84*B(764)+B(766)+1.5*B(768)\nIF (DO_JVS(3490)) &\n! JVS(3490) = Jac_FULL(325,279)\n  JVS(3490) = 0\nIF (DO_JVS(3491)) &\n! JVS(3491) = Jac_FULL(325,280)\n  JVS(3491) = B(909)+0.202*B(922)\nIF (DO_JVS(3492)) &\n! JVS(3492) = Jac_FULL(325,281)\n  JVS(3492) = 0.75*B(885)\nIF (DO_JVS(3493)) &\n! JVS(3493) = Jac_FULL(325,282)\n  JVS(3493) = B(89)+B(623)\nIF (DO_JVS(3494)) &\n! JVS(3494) = Jac_FULL(325,285)\n  JVS(3494) = 0\nIF (DO_JVS(3495)) &\n! JVS(3495) = Jac_FULL(325,286)\n  JVS(3495) = 0\nIF (DO_JVS(3496)) &\n! JVS(3496) = Jac_FULL(325,287)\n  JVS(3496) = 0.23*B(1770)\nIF (DO_JVS(3497)) &\n! JVS(3497) = Jac_FULL(325,288)\n  JVS(3497) = 0.47*B(1767)\nIF (DO_JVS(3498)) &\n! JVS(3498) = Jac_FULL(325,289)\n  JVS(3498) = 0.287*B(903)+0.85*B(911)+0.287*B(915)+0.287*B(919)+0.202*B(923)+0.504*B(924)\nIF (DO_JVS(3499)) &\n! JVS(3499) = Jac_FULL(325,290)\n  JVS(3499) = 0.5*B(287)\nIF (DO_JVS(3500)) &\n! JVS(3500) = Jac_FULL(325,291)\n  JVS(3500) = 0.1*B(855)+0.1*B(857)+0.85*B(889)+0.1*B(891)\nIF (DO_JVS(3501)) &\n! JVS(3501) = Jac_FULL(325,293)\n  JVS(3501) = 0.104*B(1141)+0.383*B(1143)\nIF (DO_JVS(3502)) &\n! JVS(3502) = Jac_FULL(325,296)\n  JVS(3502) = 0.75*B(247)\nIF (DO_JVS(3503)) &\n! JVS(3503) = Jac_FULL(325,299)\n  JVS(3503) = 0.055*B(1791)\nIF (DO_JVS(3504)) &\n! JVS(3504) = Jac_FULL(325,300)\n  JVS(3504) = 0.75*B(257)\nIF (DO_JVS(3505)) &\n! JVS(3505) = Jac_FULL(325,301)\n  JVS(3505) = 0\nIF (DO_JVS(3506)) &\n! JVS(3506) = Jac_FULL(325,302)\n  JVS(3506) = 0.241*B(1236)\nIF (DO_JVS(3507)) &\n! JVS(3507) = Jac_FULL(325,303)\n  JVS(3507) = 0.022*B(1316)+0.55*B(1797)+0.15*B(1798)\nIF (DO_JVS(3508)) &\n! JVS(3508) = Jac_FULL(325,304)\n  JVS(3508) = 0.063*B(961)+B(967)+0.3*B(968)+2*B(970)+2*B(971)+2*B(981)+B(983)+B(995)\nIF (DO_JVS(3509)) &\n! JVS(3509) = Jac_FULL(325,305)\n  JVS(3509) = 0.063*B(957)+B(965)+0.3*B(966)+2*B(969)+2*B(972)+2*B(977)+B(979)+B(987)\nIF (DO_JVS(3510)) &\n! JVS(3510) = Jac_FULL(325,306)\n  JVS(3510) = 0.732*B(289)+0.9*B(1666)\nIF (DO_JVS(3511)) &\n! JVS(3511) = Jac_FULL(325,307)\n  JVS(3511) = B(1675)\nIF (DO_JVS(3512)) &\n! JVS(3512) = Jac_FULL(325,308)\n  JVS(3512) = B(1299)\nIF (DO_JVS(3513)) &\n! JVS(3513) = Jac_FULL(325,309)\n  JVS(3513) = 0.12*B(1232)+B(1674)\nIF (DO_JVS(3514)) &\n! JVS(3514) = Jac_FULL(325,310)\n  JVS(3514) = 0.527*B(1149)+1.86*B(1153)+0.563*B(1154)+1.577*B(1159)+B(1161)+B(1165)+B(1169)\nIF (DO_JVS(3515)) &\n! JVS(3515) = Jac_FULL(325,311)\n  JVS(3515) = 0.563*B(1155)+0.645*B(1157)\nIF (DO_JVS(3516)) &\n! JVS(3516) = Jac_FULL(325,312)\n  JVS(3516) = B(691)+B(693)+B(695)+0.06*B(697)+0.06*B(699)+B(701)+B(703)\nIF (DO_JVS(3517)) &\n! JVS(3517) = Jac_FULL(325,313)\n  JVS(3517) = B(183)+0.15*B(226)+0.5*B(261)+0.9*B(353)\nIF (DO_JVS(3518)) &\n! JVS(3518) = Jac_FULL(325,314)\n  JVS(3518) = 0.6*B(1226)+B(1672)\nIF (DO_JVS(3519)) &\n! JVS(3519) = Jac_FULL(325,315)\n  JVS(3519) = 0.75*B(249)\nIF (DO_JVS(3520)) &\n! JVS(3520) = Jac_FULL(325,318)\n  JVS(3520) = 0.64*B(181)+0.95*B(255)+0.351*B(359)\nIF (DO_JVS(3521)) &\n! JVS(3521) = Jac_FULL(325,319)\n  JVS(3521) = 0.75*B(253)\nIF (DO_JVS(3522)) &\n! JVS(3522) = Jac_FULL(325,320)\n  JVS(3522) = 0.31*B(236)+0.75*B(263)\nIF (DO_JVS(3523)) &\n! JVS(3523) = Jac_FULL(325,321)\n  JVS(3523) = 0.75*B(214)\nIF (DO_JVS(3524)) &\n! JVS(3524) = Jac_FULL(325,322)\n  JVS(3524) = B(375)\nIF (DO_JVS(3525)) &\n! JVS(3525) = Jac_FULL(325,323)\n  JVS(3525) = 0.75*B(265)\nIF (DO_JVS(3526)) &\n! JVS(3526) = Jac_FULL(325,324)\n  JVS(3526) = B(347)+0.9*B(354)+0.351*B(360)+0.351*B(362)+0.9*B(364)+0.9*B(370)+B(884)+0.1*B(892)+0.4*B(900)+0.287&\n                &*B(916)+B(1162)\nIF (DO_JVS(3527)) &\n! JVS(3527) = Jac_FULL(325,325)\n  JVS(3527) = -B(20)-B(63)-B(93)-B(413)-B(485)-B(565)-B(1647)-B(1648)\nIF (DO_JVS(3528)) &\n! JVS(3528) = Jac_FULL(325,326)\n  JVS(3528) = 0.05*B(95)\nIF (DO_JVS(3529)) &\n! JVS(3529) = Jac_FULL(325,328)\n  JVS(3529) = B(34)+B(49)+B(55)+2*B(56)+0.87*B(57)+0.75*B(215)+1.25*B(217)+0.75*B(248)+0.75*B(250)+0.75*B(254)+0.95&\n                &*B(256)+0.75*B(258)+0.95*B(260)+0.5*B(262)+0.75*B(264)+0.75*B(266)+1.25*B(268)+B(348)+B(376)+B(529)+B(613)&\n                &+1.5*B(769)+0.75*B(793)+0.75*B(831)+0.75*B(878)+1.75*B(882)+0.75*B(886)+0.85*B(890)+B(894)+1.3*B(898)&\n                &+B(910)+0.85*B(912)+2*B(978)+B(980)+2*B(982)+B(984)+0.645*B(1158)+1.577*B(1160)+B(1300)+0.8*B(1371)+B(1394)&\n                &+B(1462)+B(1464)+B(1487)\nIF (DO_JVS(3530)) &\n! JVS(3530) = Jac_FULL(325,329)\n  JVS(3530) = B(692)\nIF (DO_JVS(3531)) &\n! JVS(3531) = Jac_FULL(325,334)\n  JVS(3531) = 0.25*B(444)\nIF (DO_JVS(3532)) &\n! JVS(3532) = Jac_FULL(325,335)\n  JVS(3532) = B(696)\nIF (DO_JVS(3533)) &\n! JVS(3533) = Jac_FULL(325,336)\n  JVS(3533) = 0.06*B(698)+0.06*B(700)\nIF (DO_JVS(3534)) &\n! JVS(3534) = Jac_FULL(325,337)\n  JVS(3534) = B(161)+0.15*B(227)+0.44*B(303)+0.176*B(839)+0.063*B(958)+0.063*B(962)+0.14*B(1037)+0.14*B(1044)+0.65&\n                &*B(1079)+0.059*B(1115)+0.599*B(1122)+0.031*B(1130)+0.065*B(1136)+0.104*B(1142)+0.527*B(1150)+0.126*B(1199)&\n                &+0.088*B(1201)+0.05*B(1271)+0.083*B(1277)+0.5*B(1279)\nIF (DO_JVS(3535)) &\n! JVS(3535) = Jac_FULL(325,338)\n  JVS(3535) = B(530)\nIF (DO_JVS(3536)) &\n! JVS(3536) = Jac_FULL(325,340)\n  JVS(3536) = -B(566)+B(614)+B(624)\nIF (DO_JVS(3537)) &\n! JVS(3537) = Jac_FULL(325,341)\n  JVS(3537) = B(35)+B(147)+0.5*B(288)+B(702)+0.1*B(730)+0.1*B(734)+0.67*B(809)+B(821)+0.1*B(862)+1.5*B(874)+0.827*B(948)&\n                &+0.6*B(1227)+0.12*B(1233)+0.5*B(1343)+B(1359)\nIF (DO_JVS(3538)) &\n! JVS(3538) = Jac_FULL(325,342)\n  JVS(3538) = -B(414)\nIF (DO_JVS(3539)) &\n! JVS(3539) = Jac_FULL(325,343)\n  JVS(3539) = -B(486)\nIF (DO_JVS(3540)) &\n! JVS(3540) = Jac_FULL(325,345)\n  JVS(3540) = B(24)+0.87*B(58)+0.3*B(60)-B(64)+B(90)+0.05*B(96)+B(103)+B(153)+0.065*B(155)+0.732*B(290)+B(307)+B(309)&\n                &+0.22*B(343)+B(382)+B(688)+0.5*B(744)+0.5*B(771)+0.4*B(773)+B(781)+0.4*B(850)+0.1*B(860)+1.5*B(872)+B(940)&\n                &+0.3*B(954)+0.3*B(956)+0.085*B(1002)+0.165*B(1004)+0.5*B(1012)+0.018*B(1028)+0.018*B(1030)+0.241*B(1237)&\n                &+0.25*B(1281)+0.022*B(1317)+0.5*B(1323)+B(1327)+B(1339)+0.25*B(1345)+0.12*B(1349)+B(1413)\nIF (DO_JVS(3541)) &\n! JVS(3541) = Jac_FULL(325,346)\n  JVS(3541) = B(50)+B(123)+0.98*B(139)+0.603*B(149)+B(163)+0.64*B(176)+0.64*B(182)+B(184)+B(192)+0.31*B(237)+B(301)&\n                &+B(694)+0.84*B(765)+0.75*B(777)+0.4*B(841)+0.1*B(856)+0.287*B(904)+B(988)+B(996)+0.716*B(1033)+0.706&\n                &*B(1040)+B(1083)+0.272*B(1117)+B(1124)+0.065*B(1132)+0.142*B(1138)+0.383*B(1144)+B(1170)+0.249*B(1203)+0.34&\n                &*B(1207)+0.242*B(1273)+0.14*B(1284)+B(1288)\nIF (DO_JVS(3542)) &\n! JVS(3542) = Jac_FULL(325,348)\n  JVS(3542) = -B(21)+B(25)+B(704)\nIF (DO_JVS(3543)) &\n! JVS(3543) = Jac_FULL(325,351)\n  JVS(3543) = -B(94)+B(145)+B(305)+B(386)+B(767)+B(779)+0.4*B(846)+0.1*B(858)+0.05*B(864)+0.75*B(876)+0.287*B(920)&\n                &+B(1166)+B(1341)+B(1347)+B(1488)\nIF (DO_JVS(3544)) &\n! JVS(3544) = Jac_FULL(326,83)\n  JVS(3544) = B(941)+B(1758)\nIF (DO_JVS(3545)) &\n! JVS(3545) = Jac_FULL(326,118)\n  JVS(3545) = 0.64*B(326)+B(1677)\nIF (DO_JVS(3546)) &\n! JVS(3546) = Jac_FULL(326,123)\n  JVS(3546) = B(1683)\nIF (DO_JVS(3547)) &\n! JVS(3547) = Jac_FULL(326,124)\n  JVS(3547) = B(206)\nIF (DO_JVS(3548)) &\n! JVS(3548) = Jac_FULL(326,149)\n  JVS(3548) = 0.4*B(1344)\nIF (DO_JVS(3549)) &\n! JVS(3549) = Jac_FULL(326,155)\n  JVS(3549) = B(1684)\nIF (DO_JVS(3550)) &\n! JVS(3550) = Jac_FULL(326,156)\n  JVS(3550) = B(269)+B(625)\nIF (DO_JVS(3551)) &\n! JVS(3551) = Jac_FULL(326,165)\n  JVS(3551) = 0.65*B(138)\nIF (DO_JVS(3552)) &\n! JVS(3552) = Jac_FULL(326,196)\n  JVS(3552) = 0.348*B(1686)\nIF (DO_JVS(3553)) &\n! JVS(3553) = Jac_FULL(326,240)\n  JVS(3553) = 0\nIF (DO_JVS(3554)) &\n! JVS(3554) = Jac_FULL(326,241)\n  JVS(3554) = B(705)+B(707)+B(709)+B(711)+B(713)\nIF (DO_JVS(3555)) &\n! JVS(3555) = Jac_FULL(326,246)\n  JVS(3555) = 0\nIF (DO_JVS(3556)) &\n! JVS(3556) = Jac_FULL(326,249)\n  JVS(3556) = 0.97*B(175)+0.38*B(259)+0.675*B(361)\nIF (DO_JVS(3557)) &\n! JVS(3557) = Jac_FULL(326,250)\n  JVS(3557) = B(191)+0.5*B(267)+0.9*B(363)\nIF (DO_JVS(3558)) &\n! JVS(3558) = Jac_FULL(326,251)\n  JVS(3558) = 0.34*B(1685)\nIF (DO_JVS(3559)) &\n! JVS(3559) = Jac_FULL(326,260)\n  JVS(3559) = B(122)+0.5*B(216)+0.9*B(369)\nIF (DO_JVS(3560)) &\n! JVS(3560) = Jac_FULL(326,279)\n  JVS(3560) = 0.34*B(1688)\nIF (DO_JVS(3561)) &\n! JVS(3561) = Jac_FULL(326,290)\n  JVS(3561) = 0.5*B(287)\nIF (DO_JVS(3562)) &\n! JVS(3562) = Jac_FULL(326,296)\n  JVS(3562) = B(108)+0.75*B(247)+1.6*B(273)+B(365)+B(619)\nIF (DO_JVS(3563)) &\n! JVS(3563) = Jac_FULL(326,300)\n  JVS(3563) = 0.34*B(171)+0.16*B(257)+0.29*B(351)\nIF (DO_JVS(3564)) &\n! JVS(3564) = Jac_FULL(326,314)\n  JVS(3564) = 0\nIF (DO_JVS(3565)) &\n! JVS(3565) = Jac_FULL(326,315)\n  JVS(3565) = B(112)+0.75*B(249)+1.6*B(274)+B(367)+B(621)\nIF (DO_JVS(3566)) &\n! JVS(3566) = Jac_FULL(326,318)\n  JVS(3566) = 0.97*B(181)+0.38*B(255)+0.675*B(359)\nIF (DO_JVS(3567)) &\n! JVS(3567) = Jac_FULL(326,319)\n  JVS(3567) = 0.34*B(177)+0.16*B(253)+0.29*B(349)\nIF (DO_JVS(3568)) &\n! JVS(3568) = Jac_FULL(326,320)\n  JVS(3568) = 0.919*B(185)+0.15*B(228)+0.62*B(236)+0.5*B(263)+0.9*B(355)\nIF (DO_JVS(3569)) &\n! JVS(3569) = Jac_FULL(326,321)\n  JVS(3569) = 0\nIF (DO_JVS(3570)) &\n! JVS(3570) = Jac_FULL(326,322)\n  JVS(3570) = 0\nIF (DO_JVS(3571)) &\n! JVS(3571) = Jac_FULL(326,323)\n  JVS(3571) = 0\nIF (DO_JVS(3572)) &\n! JVS(3572) = Jac_FULL(326,324)\n  JVS(3572) = 0.29*B(350)+0.29*B(352)+0.9*B(356)+0.675*B(360)+0.675*B(362)+0.9*B(364)+B(366)+B(368)+0.9*B(370)\nIF (DO_JVS(3573)) &\n! JVS(3573) = Jac_FULL(326,326)\n  JVS(3573) = -B(95)-B(97)-B(415)-B(1656)-B(1657)\nIF (DO_JVS(3574)) &\n! JVS(3574) = Jac_FULL(326,328)\n  JVS(3574) = 0.5*B(217)+0.75*B(248)+0.75*B(250)+0.16*B(254)+0.38*B(256)+0.16*B(258)+0.38*B(260)+0.5*B(264)+0.5*B(268)\nIF (DO_JVS(3575)) &\n! JVS(3575) = Jac_FULL(326,329)\n  JVS(3575) = B(706)\nIF (DO_JVS(3576)) &\n! JVS(3576) = Jac_FULL(326,335)\n  JVS(3576) = B(710)\nIF (DO_JVS(3577)) &\n! JVS(3577) = Jac_FULL(326,336)\n  JVS(3577) = B(714)\nIF (DO_JVS(3578)) &\n! JVS(3578) = Jac_FULL(326,337)\n  JVS(3578) = 0.15*B(229)\nIF (DO_JVS(3579)) &\n! JVS(3579) = Jac_FULL(326,340)\n  JVS(3579) = B(620)+B(622)+B(626)\nIF (DO_JVS(3580)) &\n! JVS(3580) = Jac_FULL(326,341)\n  JVS(3580) = 0.5*B(288)\nIF (DO_JVS(3581)) &\n! JVS(3581) = Jac_FULL(326,342)\n  JVS(3581) = -B(416)\nIF (DO_JVS(3582)) &\n! JVS(3582) = Jac_FULL(326,345)\n  JVS(3582) = -B(96)+B(207)+B(270)+0.64*B(327)+B(942)+0.4*B(1345)\nIF (DO_JVS(3583)) &\n! JVS(3583) = Jac_FULL(326,346)\n  JVS(3583) = B(109)+B(113)+B(123)+0.65*B(139)+0.34*B(172)+0.97*B(176)+0.34*B(178)+0.97*B(182)+0.919*B(186)+B(192)+0.62&\n                &*B(237)+B(708)\nIF (DO_JVS(3584)) &\n! JVS(3584) = Jac_FULL(326,348)\n  JVS(3584) = B(712)\nIF (DO_JVS(3585)) &\n! JVS(3585) = Jac_FULL(326,351)\n  JVS(3585) = -B(98)\nIF (DO_JVS(3586)) &\n! JVS(3586) = Jac_FULL(327,45)\n  JVS(3586) = B(936)\nIF (DO_JVS(3587)) &\n! JVS(3587) = Jac_FULL(327,69)\n  JVS(3587) = B(126)\nIF (DO_JVS(3588)) &\n! JVS(3588) = Jac_FULL(327,94)\n  JVS(3588) = B(385)\nIF (DO_JVS(3589)) &\n! JVS(3589) = Jac_FULL(327,103)\n  JVS(3589) = B(935)\nIF (DO_JVS(3590)) &\n! JVS(3590) = Jac_FULL(327,142)\n  JVS(3590) = B(193)\nIF (DO_JVS(3591)) &\n! JVS(3591) = Jac_FULL(327,149)\n  JVS(3591) = B(1346)\nIF (DO_JVS(3592)) &\n! JVS(3592) = Jac_FULL(327,154)\n  JVS(3592) = 0\nIF (DO_JVS(3593)) &\n! JVS(3593) = Jac_FULL(327,158)\n  JVS(3593) = 0.5*B(1420)\nIF (DO_JVS(3594)) &\n! JVS(3594) = Jac_FULL(327,166)\n  JVS(3594) = -B(13)\nIF (DO_JVS(3595)) &\n! JVS(3595) = Jac_FULL(327,168)\n  JVS(3595) = 0\nIF (DO_JVS(3596)) &\n! JVS(3596) = Jac_FULL(327,175)\n  JVS(3596) = 0\nIF (DO_JVS(3597)) &\n! JVS(3597) = Jac_FULL(327,179)\n  JVS(3597) = -B(6)\nIF (DO_JVS(3598)) &\n! JVS(3598) = Jac_FULL(327,183)\n  JVS(3598) = B(344)\nIF (DO_JVS(3599)) &\n! JVS(3599) = Jac_FULL(327,186)\n  JVS(3599) = 0\nIF (DO_JVS(3600)) &\n! JVS(3600) = Jac_FULL(327,195)\n  JVS(3600) = 0.742*B(1416)\nIF (DO_JVS(3601)) &\n! JVS(3601) = Jac_FULL(327,200)\n  JVS(3601) = B(1350)\nIF (DO_JVS(3602)) &\n! JVS(3602) = Jac_FULL(327,202)\n  JVS(3602) = 0.5*B(1426)\nIF (DO_JVS(3603)) &\n! JVS(3603) = Jac_FULL(327,204)\n  JVS(3603) = B(1430)\nIF (DO_JVS(3604)) &\n! JVS(3604) = Jac_FULL(327,214)\n  JVS(3604) = 2*B(1496)+B(1498)+2*B(1500)+B(1501)+B(1503)\nIF (DO_JVS(3605)) &\n! JVS(3605) = Jac_FULL(327,216)\n  JVS(3605) = 0\nIF (DO_JVS(3606)) &\n! JVS(3606) = Jac_FULL(327,218)\n  JVS(3606) = B(1509)+B(1511)\nIF (DO_JVS(3607)) &\n! JVS(3607) = Jac_FULL(327,220)\n  JVS(3607) = 0\nIF (DO_JVS(3608)) &\n! JVS(3608) = Jac_FULL(327,222)\n  JVS(3608) = 0\nIF (DO_JVS(3609)) &\n! JVS(3609) = Jac_FULL(327,225)\n  JVS(3609) = B(745)\nIF (DO_JVS(3610)) &\n! JVS(3610) = Jac_FULL(327,226)\n  JVS(3610) = 0\nIF (DO_JVS(3611)) &\n! JVS(3611) = Jac_FULL(327,242)\n  JVS(3611) = 0\nIF (DO_JVS(3612)) &\n! JVS(3612) = Jac_FULL(327,248)\n  JVS(3612) = 0\nIF (DO_JVS(3613)) &\n! JVS(3613) = Jac_FULL(327,251)\n  JVS(3613) = 0\nIF (DO_JVS(3614)) &\n! JVS(3614) = Jac_FULL(327,253)\n  JVS(3614) = 0\nIF (DO_JVS(3615)) &\n! JVS(3615) = Jac_FULL(327,256)\n  JVS(3615) = 0\nIF (DO_JVS(3616)) &\n! JVS(3616) = Jac_FULL(327,261)\n  JVS(3616) = B(1318)\nIF (DO_JVS(3617)) &\n! JVS(3617) = Jac_FULL(327,266)\n  JVS(3617) = 0\nIF (DO_JVS(3618)) &\n! JVS(3618) = Jac_FULL(327,267)\n  JVS(3618) = 0\nIF (DO_JVS(3619)) &\n! JVS(3619) = Jac_FULL(327,268)\n  JVS(3619) = 0\nIF (DO_JVS(3620)) &\n! JVS(3620) = Jac_FULL(327,269)\n  JVS(3620) = 0.5*B(1459)\nIF (DO_JVS(3621)) &\n! JVS(3621) = Jac_FULL(327,270)\n  JVS(3621) = B(316)\nIF (DO_JVS(3622)) &\n! JVS(3622) = Jac_FULL(327,271)\n  JVS(3622) = 0\nIF (DO_JVS(3623)) &\n! JVS(3623) = Jac_FULL(327,272)\n  JVS(3623) = 0\nIF (DO_JVS(3624)) &\n! JVS(3624) = Jac_FULL(327,273)\n  JVS(3624) = 0\nIF (DO_JVS(3625)) &\n! JVS(3625) = Jac_FULL(327,275)\n  JVS(3625) = 0\nIF (DO_JVS(3626)) &\n! JVS(3626) = Jac_FULL(327,276)\n  JVS(3626) = 0\nIF (DO_JVS(3627)) &\n! JVS(3627) = Jac_FULL(327,277)\n  JVS(3627) = 0\nIF (DO_JVS(3628)) &\n! JVS(3628) = Jac_FULL(327,278)\n  JVS(3628) = 0\nIF (DO_JVS(3629)) &\n! JVS(3629) = Jac_FULL(327,280)\n  JVS(3629) = 0\nIF (DO_JVS(3630)) &\n! JVS(3630) = Jac_FULL(327,281)\n  JVS(3630) = 0\nIF (DO_JVS(3631)) &\n! JVS(3631) = Jac_FULL(327,285)\n  JVS(3631) = 0\nIF (DO_JVS(3632)) &\n! JVS(3632) = Jac_FULL(327,286)\n  JVS(3632) = 0\nIF (DO_JVS(3633)) &\n! JVS(3633) = Jac_FULL(327,288)\n  JVS(3633) = 0\nIF (DO_JVS(3634)) &\n! JVS(3634) = Jac_FULL(327,289)\n  JVS(3634) = 0\nIF (DO_JVS(3635)) &\n! JVS(3635) = Jac_FULL(327,291)\n  JVS(3635) = 0\nIF (DO_JVS(3636)) &\n! JVS(3636) = Jac_FULL(327,292)\n  JVS(3636) = B(251)\nIF (DO_JVS(3637)) &\n! JVS(3637) = Jac_FULL(327,293)\n  JVS(3637) = 0\nIF (DO_JVS(3638)) &\n! JVS(3638) = Jac_FULL(327,294)\n  JVS(3638) = B(318)\nIF (DO_JVS(3639)) &\n! JVS(3639) = Jac_FULL(327,298)\n  JVS(3639) = B(210)\nIF (DO_JVS(3640)) &\n! JVS(3640) = Jac_FULL(327,299)\n  JVS(3640) = 0\nIF (DO_JVS(3641)) &\n! JVS(3641) = Jac_FULL(327,300)\n  JVS(3641) = 0\nIF (DO_JVS(3642)) &\n! JVS(3642) = Jac_FULL(327,301)\n  JVS(3642) = 0\nIF (DO_JVS(3643)) &\n! JVS(3643) = Jac_FULL(327,302)\n  JVS(3643) = 0\nIF (DO_JVS(3644)) &\n! JVS(3644) = Jac_FULL(327,303)\n  JVS(3644) = 0\nIF (DO_JVS(3645)) &\n! JVS(3645) = Jac_FULL(327,304)\n  JVS(3645) = 0\nIF (DO_JVS(3646)) &\n! JVS(3646) = Jac_FULL(327,305)\n  JVS(3646) = 0\nIF (DO_JVS(3647)) &\n! JVS(3647) = Jac_FULL(327,306)\n  JVS(3647) = B(295)\nIF (DO_JVS(3648)) &\n! JVS(3648) = Jac_FULL(327,307)\n  JVS(3648) = 0\nIF (DO_JVS(3649)) &\n! JVS(3649) = Jac_FULL(327,308)\n  JVS(3649) = 0\nIF (DO_JVS(3650)) &\n! JVS(3650) = Jac_FULL(327,309)\n  JVS(3650) = 0.32*B(1234)\nIF (DO_JVS(3651)) &\n! JVS(3651) = Jac_FULL(327,310)\n  JVS(3651) = 0\nIF (DO_JVS(3652)) &\n! JVS(3652) = Jac_FULL(327,311)\n  JVS(3652) = 0\nIF (DO_JVS(3653)) &\n! JVS(3653) = Jac_FULL(327,313)\n  JVS(3653) = 0\nIF (DO_JVS(3654)) &\n! JVS(3654) = Jac_FULL(327,314)\n  JVS(3654) = 0\nIF (DO_JVS(3655)) &\n! JVS(3655) = Jac_FULL(327,317)\n  JVS(3655) = B(1513)+B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525)\nIF (DO_JVS(3656)) &\n! JVS(3656) = Jac_FULL(327,318)\n  JVS(3656) = 0\nIF (DO_JVS(3657)) &\n! JVS(3657) = Jac_FULL(327,319)\n  JVS(3657) = 0\nIF (DO_JVS(3658)) &\n! JVS(3658) = Jac_FULL(327,320)\n  JVS(3658) = 0\nIF (DO_JVS(3659)) &\n! JVS(3659) = Jac_FULL(327,321)\n  JVS(3659) = 0\nIF (DO_JVS(3660)) &\n! JVS(3660) = Jac_FULL(327,322)\n  JVS(3660) = 0\nIF (DO_JVS(3661)) &\n! JVS(3661) = Jac_FULL(327,323)\n  JVS(3661) = 0\nIF (DO_JVS(3662)) &\n! JVS(3662) = Jac_FULL(327,324)\n  JVS(3662) = 0\nIF (DO_JVS(3663)) &\n! JVS(3663) = Jac_FULL(327,325)\n  JVS(3663) = B(93)\nIF (DO_JVS(3664)) &\n! JVS(3664) = Jac_FULL(327,326)\n  JVS(3664) = B(97)\nIF (DO_JVS(3665)) &\n! JVS(3665) = Jac_FULL(327,327)\n  JVS(3665) = -B(7)-B(14)-B(67)-B(1649)\nIF (DO_JVS(3666)) &\n! JVS(3666) = Jac_FULL(327,328)\n  JVS(3666) = 0\nIF (DO_JVS(3667)) &\n! JVS(3667) = Jac_FULL(327,329)\n  JVS(3667) = 0\nIF (DO_JVS(3668)) &\n! JVS(3668) = Jac_FULL(327,332)\n  JVS(3668) = B(1587)+B(1588)+B(1589)+B(1599)+B(1601)+B(1603)+B(1605)\nIF (DO_JVS(3669)) &\n! JVS(3669) = Jac_FULL(327,334)\n  JVS(3669) = 0\nIF (DO_JVS(3670)) &\n! JVS(3670) = Jac_FULL(327,335)\n  JVS(3670) = B(65)+0.5*B(1492)\nIF (DO_JVS(3671)) &\n! JVS(3671) = Jac_FULL(327,336)\n  JVS(3671) = 2*B(1497)+B(1510)+B(1514)+B(1590)\nIF (DO_JVS(3672)) &\n! JVS(3672) = Jac_FULL(327,337)\n  JVS(3672) = 0\nIF (DO_JVS(3673)) &\n! JVS(3673) = Jac_FULL(327,338)\n  JVS(3673) = 0\nIF (DO_JVS(3674)) &\n! JVS(3674) = Jac_FULL(327,339)\n  JVS(3674) = B(1499)+B(1512)+B(1516)\nIF (DO_JVS(3675)) &\n! JVS(3675) = Jac_FULL(327,340)\n  JVS(3675) = 0\nIF (DO_JVS(3676)) &\n! JVS(3676) = Jac_FULL(327,341)\n  JVS(3676) = 0\nIF (DO_JVS(3677)) &\n! JVS(3677) = Jac_FULL(327,342)\n  JVS(3677) = 0\nIF (DO_JVS(3678)) &\n! JVS(3678) = Jac_FULL(327,343)\n  JVS(3678) = 0\nIF (DO_JVS(3679)) &\n! JVS(3679) = Jac_FULL(327,344)\n  JVS(3679) = B(1504)+B(1526)+B(1606)\nIF (DO_JVS(3680)) &\n! JVS(3680) = Jac_FULL(327,345)\n  JVS(3680) = B(66)-B(68)\nIF (DO_JVS(3681)) &\n! JVS(3681) = Jac_FULL(327,346)\n  JVS(3681) = 0\nIF (DO_JVS(3682)) &\n! JVS(3682) = Jac_FULL(327,347)\n  JVS(3682) = 0\nIF (DO_JVS(3683)) &\n! JVS(3683) = Jac_FULL(327,348)\n  JVS(3683) = 0\nIF (DO_JVS(3684)) &\n! JVS(3684) = Jac_FULL(327,349)\n  JVS(3684) = B(1520)+B(1600)\nIF (DO_JVS(3685)) &\n! JVS(3685) = Jac_FULL(327,350)\n  JVS(3685) = B(1522)+B(1602)\nIF (DO_JVS(3686)) &\n! JVS(3686) = Jac_FULL(327,351)\n  JVS(3686) = B(94)+B(98)+B(127)+B(194)+B(211)+B(252)+B(296)+B(317)+B(319)+B(345)+B(386)+B(746)+0.32*B(1235)+B(1319)&\n                &+B(1347)+B(1351)+0.742*B(1417)+0.5*B(1421)+0.5*B(1427)+B(1431)+0.5*B(1460)+B(1493)\nIF (DO_JVS(3687)) &\n! JVS(3687) = Jac_FULL(327,352)\n  JVS(3687) = B(1518)\nIF (DO_JVS(3688)) &\n! JVS(3688) = Jac_FULL(327,353)\n  JVS(3688) = B(1502)+B(1524)+B(1604)\nIF (DO_JVS(3689)) &\n! JVS(3689) = Jac_FULL(328,52)\n  JVS(3689) = B(685)\nIF (DO_JVS(3690)) &\n! JVS(3690) = Jac_FULL(328,80)\n  JVS(3690) = B(380)+B(1742)\nIF (DO_JVS(3691)) &\n! JVS(3691) = Jac_FULL(328,92)\n  JVS(3691) = B(1689)\nIF (DO_JVS(3692)) &\n! JVS(3692) = Jac_FULL(328,94)\n  JVS(3692) = B(381)+B(383)+B(385)\nIF (DO_JVS(3693)) &\n! JVS(3693) = Jac_FULL(328,105)\n  JVS(3693) = B(497)+B(1698)\nIF (DO_JVS(3694)) &\n! JVS(3694) = Jac_FULL(328,139)\n  JVS(3694) = 0.3*B(1658)\nIF (DO_JVS(3695)) &\n! JVS(3695) = Jac_FULL(328,155)\n  JVS(3695) = B(1684)\nIF (DO_JVS(3696)) &\n! JVS(3696) = Jac_FULL(328,159)\n  JVS(3696) = 0.162*B(1280)+0.488*B(1771)\nIF (DO_JVS(3697)) &\n! JVS(3697) = Jac_FULL(328,164)\n  JVS(3697) = 0.7*B(59)+B(615)\nIF (DO_JVS(3698)) &\n! JVS(3698) = Jac_FULL(328,181)\n  JVS(3698) = 0.9*B(495)+B(1699)\nIF (DO_JVS(3699)) &\n! JVS(3699) = Jac_FULL(328,228)\n  JVS(3699) = B(47)+0.75*B(443)+B(563)\nIF (DO_JVS(3700)) &\n! JVS(3700) = Jac_FULL(328,234)\n  JVS(3700) = -B(1370)\nIF (DO_JVS(3701)) &\n! JVS(3701) = Jac_FULL(328,235)\n  JVS(3701) = -B(1463)\nIF (DO_JVS(3702)) &\n! JVS(3702) = Jac_FULL(328,236)\n  JVS(3702) = -B(1461)\nIF (DO_JVS(3703)) &\n! JVS(3703) = Jac_FULL(328,240)\n  JVS(3703) = 0\nIF (DO_JVS(3704)) &\n! JVS(3704) = Jac_FULL(328,246)\n  JVS(3704) = 0\nIF (DO_JVS(3705)) &\n! JVS(3705) = Jac_FULL(328,249)\n  JVS(3705) = -B(259)+0.9*B(361)\nIF (DO_JVS(3706)) &\n! JVS(3706) = Jac_FULL(328,250)\n  JVS(3706) = -B(267)+0.9*B(363)\nIF (DO_JVS(3707)) &\n! JVS(3707) = Jac_FULL(328,251)\n  JVS(3707) = 0.19*B(1685)\nIF (DO_JVS(3708)) &\n! JVS(3708) = Jac_FULL(328,257)\n  JVS(3708) = -B(893)+B(895)\nIF (DO_JVS(3709)) &\n! JVS(3709) = Jac_FULL(328,259)\n  JVS(3709) = 0.325*B(1278)+0.65*B(1287)\nIF (DO_JVS(3710)) &\n! JVS(3710) = Jac_FULL(328,260)\n  JVS(3710) = -B(216)+0.9*B(369)\nIF (DO_JVS(3711)) &\n! JVS(3711) = Jac_FULL(328,263)\n  JVS(3711) = -B(1393)+B(1395)\nIF (DO_JVS(3712)) &\n! JVS(3712) = Jac_FULL(328,272)\n  JVS(3712) = -B(830)\nIF (DO_JVS(3713)) &\n! JVS(3713) = Jac_FULL(328,273)\n  JVS(3713) = -B(792)\nIF (DO_JVS(3714)) &\n! JVS(3714) = Jac_FULL(328,274)\n  JVS(3714) = -B(897)+B(899)\nIF (DO_JVS(3715)) &\n! JVS(3715) = Jac_FULL(328,275)\n  JVS(3715) = -B(881)+0.9*B(883)\nIF (DO_JVS(3716)) &\n! JVS(3716) = Jac_FULL(328,276)\n  JVS(3716) = 0.407*B(947)\nIF (DO_JVS(3717)) &\n! JVS(3717) = Jac_FULL(328,277)\n  JVS(3717) = -B(877)+0.9*B(879)\nIF (DO_JVS(3718)) &\n! JVS(3718) = Jac_FULL(328,278)\n  JVS(3718) = -B(768)\nIF (DO_JVS(3719)) &\n! JVS(3719) = Jac_FULL(328,279)\n  JVS(3719) = 0.19*B(1688)\nIF (DO_JVS(3720)) &\n! JVS(3720) = Jac_FULL(328,280)\n  JVS(3720) = -B(909)+B(913)\nIF (DO_JVS(3721)) &\n! JVS(3721) = Jac_FULL(328,281)\n  JVS(3721) = -B(885)+0.9*B(887)\nIF (DO_JVS(3722)) &\n! JVS(3722) = Jac_FULL(328,283)\n  JVS(3722) = B(199)+B(627)\nIF (DO_JVS(3723)) &\n! JVS(3723) = Jac_FULL(328,289)\n  JVS(3723) = -B(911)+0.5*B(915)\nIF (DO_JVS(3724)) &\n! JVS(3724) = Jac_FULL(328,290)\n  JVS(3724) = 0.28*B(287)\nIF (DO_JVS(3725)) &\n! JVS(3725) = Jac_FULL(328,291)\n  JVS(3725) = -B(889)+0.9*B(891)\nIF (DO_JVS(3726)) &\n! JVS(3726) = Jac_FULL(328,292)\n  JVS(3726) = 0.15*B(1665)\nIF (DO_JVS(3727)) &\n! JVS(3727) = Jac_FULL(328,295)\n  JVS(3727) = B(1663)+2*B(1664)\nIF (DO_JVS(3728)) &\n! JVS(3728) = Jac_FULL(328,296)\n  JVS(3728) = -B(247)+0.9*B(365)\nIF (DO_JVS(3729)) &\n! JVS(3729) = Jac_FULL(328,300)\n  JVS(3729) = 0.19*B(171)-0.91*B(257)+0.9*B(351)\nIF (DO_JVS(3730)) &\n! JVS(3730) = Jac_FULL(328,304)\n  JVS(3730) = -B(981)-B(983)\nIF (DO_JVS(3731)) &\n! JVS(3731) = Jac_FULL(328,305)\n  JVS(3731) = -B(977)-B(979)\nIF (DO_JVS(3732)) &\n! JVS(3732) = Jac_FULL(328,307)\n  JVS(3732) = 0.5*B(322)\nIF (DO_JVS(3733)) &\n! JVS(3733) = Jac_FULL(328,308)\n  JVS(3733) = -B(1299)\nIF (DO_JVS(3734)) &\n! JVS(3734) = Jac_FULL(328,309)\n  JVS(3734) = 0\nIF (DO_JVS(3735)) &\n! JVS(3735) = Jac_FULL(328,310)\n  JVS(3735) = -B(1159)+B(1161)\nIF (DO_JVS(3736)) &\n! JVS(3736) = Jac_FULL(328,311)\n  JVS(3736) = -B(1157)+B(1163)\nIF (DO_JVS(3737)) &\n! JVS(3737) = Jac_FULL(328,313)\n  JVS(3737) = -B(261)+0.9*B(353)\nIF (DO_JVS(3738)) &\n! JVS(3738) = Jac_FULL(328,314)\n  JVS(3738) = B(1673)\nIF (DO_JVS(3739)) &\n! JVS(3739) = Jac_FULL(328,315)\n  JVS(3739) = -B(249)+0.9*B(367)\nIF (DO_JVS(3740)) &\n! JVS(3740) = Jac_FULL(328,318)\n  JVS(3740) = -B(255)+0.9*B(359)\nIF (DO_JVS(3741)) &\n! JVS(3741) = Jac_FULL(328,319)\n  JVS(3741) = 0.19*B(177)-0.91*B(253)+0.9*B(349)\nIF (DO_JVS(3742)) &\n! JVS(3742) = Jac_FULL(328,320)\n  JVS(3742) = 0.85*B(228)-0.75*B(263)+0.9*B(355)\nIF (DO_JVS(3743)) &\n! JVS(3743) = Jac_FULL(328,321)\n  JVS(3743) = -B(214)+0.9*B(371)\nIF (DO_JVS(3744)) &\n! JVS(3744) = Jac_FULL(328,322)\n  JVS(3744) = B(373)-B(375)\nIF (DO_JVS(3745)) &\n! JVS(3745) = Jac_FULL(328,323)\n  JVS(3745) = -B(265)+0.9*B(357)\nIF (DO_JVS(3746)) &\n! JVS(3746) = Jac_FULL(328,324)\n  JVS(3746) = B(104)+2*B(346)-0.1*B(347)+0.9*B(350)+0.9*B(352)+0.9*B(354)+0.9*B(356)+0.9*B(358)+0.9*B(360)+0.9*B(362)&\n                &+0.9*B(364)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+B(374)+0.9*B(880)+0.9*B(884)+0.9*B(888)+0.9*B(892)&\n                &+B(896)+B(900)+B(914)+0.5*B(916)+B(1162)+B(1164)+0.5*B(1324)+B(1396)\nIF (DO_JVS(3747)) &\n! JVS(3747) = Jac_FULL(328,326)\n  JVS(3747) = 0.88*B(1656)\nIF (DO_JVS(3748)) &\n! JVS(3748) = Jac_FULL(328,328)\n  JVS(3748) = -B(34)-B(49)-B(51)-B(53)-2*B(55)-2*B(56)-B(57)-B(215)-B(217)-B(248)-B(250)-0.91*B(254)-B(256)-0.91*B(258)&\n                &-B(260)-B(262)-0.75*B(264)-B(266)-B(268)-0.1*B(348)-B(376)-B(378)-B(529)-B(613)-B(769)-B(793)-B(831)-B(878)&\n                &-B(882)-B(886)-B(890)-B(894)-B(898)-B(910)-B(912)-B(978)-B(980)-B(982)-B(984)-B(1158)-B(1160)-B(1300)&\n                &-B(1371)-B(1394)-B(1462)-B(1464)-B(1487)\nIF (DO_JVS(3749)) &\n! JVS(3749) = Jac_FULL(328,329)\n  JVS(3749) = 0\nIF (DO_JVS(3750)) &\n! JVS(3750) = Jac_FULL(328,334)\n  JVS(3750) = 0.75*B(444)+0.9*B(496)+B(498)\nIF (DO_JVS(3751)) &\n! JVS(3751) = Jac_FULL(328,335)\n  JVS(3751) = -B(379)\nIF (DO_JVS(3752)) &\n! JVS(3752) = Jac_FULL(328,336)\n  JVS(3752) = 0\nIF (DO_JVS(3753)) &\n! JVS(3753) = Jac_FULL(328,337)\n  JVS(3753) = -B(54)+0.85*B(229)+0.325*B(1279)+0.5*B(1325)\nIF (DO_JVS(3754)) &\n! JVS(3754) = Jac_FULL(328,338)\n  JVS(3754) = -B(530)\nIF (DO_JVS(3755)) &\n! JVS(3755) = Jac_FULL(328,340)\n  JVS(3755) = B(564)-B(614)+B(616)+B(628)\nIF (DO_JVS(3756)) &\n! JVS(3756) = Jac_FULL(328,341)\n  JVS(3756) = -B(35)+0.28*B(288)+0.407*B(948)\nIF (DO_JVS(3757)) &\n! JVS(3757) = Jac_FULL(328,342)\n  JVS(3757) = 0\nIF (DO_JVS(3758)) &\n! JVS(3758) = Jac_FULL(328,345)\n  JVS(3758) = B(48)-B(58)+0.7*B(60)+B(200)+0.5*B(323)+B(382)+B(384)+B(686)+0.162*B(1281)\nIF (DO_JVS(3759)) &\n! JVS(3759) = Jac_FULL(328,346)\n  JVS(3759) = -B(50)-B(52)+B(105)+0.19*B(172)+0.19*B(178)+0.65*B(1288)\nIF (DO_JVS(3760)) &\n! JVS(3760) = Jac_FULL(328,348)\n  JVS(3760) = 0\nIF (DO_JVS(3761)) &\n! JVS(3761) = Jac_FULL(328,351)\n  JVS(3761) = B(386)-B(1488)\nIF (DO_JVS(3762)) &\n! JVS(3762) = Jac_FULL(329,60)\n  JVS(3762) = 0.364*B(1362)\nIF (DO_JVS(3763)) &\n! JVS(3763) = Jac_FULL(329,68)\n  JVS(3763) = B(457)+B(1745)\nIF (DO_JVS(3764)) &\n! JVS(3764) = Jac_FULL(329,75)\n  JVS(3764) = B(609)\nIF (DO_JVS(3765)) &\n! JVS(3765) = Jac_FULL(329,79)\n  JVS(3765) = B(607)\nIF (DO_JVS(3766)) &\n! JVS(3766) = Jac_FULL(329,82)\n  JVS(3766) = 0.27*B(1383)\nIF (DO_JVS(3767)) &\n! JVS(3767) = Jac_FULL(329,101)\n  JVS(3767) = 0.3*B(1385)\nIF (DO_JVS(3768)) &\n! JVS(3768) = Jac_FULL(329,107)\n  JVS(3768) = B(1304)\nIF (DO_JVS(3769)) &\n! JVS(3769) = Jac_FULL(329,113)\n  JVS(3769) = B(241)\nIF (DO_JVS(3770)) &\n! JVS(3770) = Jac_FULL(329,114)\n  JVS(3770) = B(306)\nIF (DO_JVS(3771)) &\n! JVS(3771) = Jac_FULL(329,119)\n  JVS(3771) = B(1013)\nIF (DO_JVS(3772)) &\n! JVS(3772) = Jac_FULL(329,122)\n  JVS(3772) = 2*B(1412)\nIF (DO_JVS(3773)) &\n! JVS(3773) = Jac_FULL(329,124)\n  JVS(3773) = B(206)\nIF (DO_JVS(3774)) &\n! JVS(3774) = Jac_FULL(329,126)\n  JVS(3774) = B(167)\nIF (DO_JVS(3775)) &\n! JVS(3775) = Jac_FULL(329,127)\n  JVS(3775) = B(152)\nIF (DO_JVS(3776)) &\n! JVS(3776) = Jac_FULL(329,132)\n  JVS(3776) = B(156)+B(158)\nIF (DO_JVS(3777)) &\n! JVS(3777) = Jac_FULL(329,139)\n  JVS(3777) = B(102)\nIF (DO_JVS(3778)) &\n! JVS(3778) = Jac_FULL(329,143)\n  JVS(3778) = 0.2*B(1381)\nIF (DO_JVS(3779)) &\n! JVS(3779) = Jac_FULL(329,144)\n  JVS(3779) = 0.23*B(1007)+B(1782)\nIF (DO_JVS(3780)) &\n! JVS(3780) = Jac_FULL(329,146)\n  JVS(3780) = B(1661)\nIF (DO_JVS(3781)) &\n! JVS(3781) = Jac_FULL(329,147)\n  JVS(3781) = 0.888*B(1308)+B(1796)\nIF (DO_JVS(3782)) &\n! JVS(3782) = Jac_FULL(329,150)\n  JVS(3782) = 0.42*B(1005)+B(1781)\nIF (DO_JVS(3783)) &\n! JVS(3783) = Jac_FULL(329,153)\n  JVS(3783) = 0.84*B(1268)\nIF (DO_JVS(3784)) &\n! JVS(3784) = Jac_FULL(329,159)\n  JVS(3784) = 0.488*B(1280)\nIF (DO_JVS(3785)) &\n! JVS(3785) = Jac_FULL(329,167)\n  JVS(3785) = 0.15*B(725)\nIF (DO_JVS(3786)) &\n! JVS(3786) = Jac_FULL(329,181)\n  JVS(3786) = B(605)\nIF (DO_JVS(3787)) &\n! JVS(3787) = Jac_FULL(329,182)\n  JVS(3787) = 0.33*B(1214)+0.33*B(1216)\nIF (DO_JVS(3788)) &\n! JVS(3788) = Jac_FULL(329,184)\n  JVS(3788) = 0.25*B(1302)\nIF (DO_JVS(3789)) &\n! JVS(3789) = Jac_FULL(329,185)\n  JVS(3789) = B(1260)+0.571*B(1768)\nIF (DO_JVS(3790)) &\n! JVS(3790) = Jac_FULL(329,187)\n  JVS(3790) = 0.25*B(1023)\nIF (DO_JVS(3791)) &\n! JVS(3791) = Jac_FULL(329,191)\n  JVS(3791) = 0.1*B(733)\nIF (DO_JVS(3792)) &\n! JVS(3792) = Jac_FULL(329,192)\n  JVS(3792) = 0.33*B(1025)\nIF (DO_JVS(3793)) &\n! JVS(3793) = Jac_FULL(329,194)\n  JVS(3793) = 0.75*B(1258)+0.875*B(1769)\nIF (DO_JVS(3794)) &\n! JVS(3794) = Jac_FULL(329,197)\n  JVS(3794) = B(160)+B(162)\nIF (DO_JVS(3795)) &\n! JVS(3795) = Jac_FULL(329,199)\n  JVS(3795) = 0.054*B(1029)\nIF (DO_JVS(3796)) &\n! JVS(3796) = Jac_FULL(329,200)\n  JVS(3796) = 0.12*B(1348)\nIF (DO_JVS(3797)) &\n! JVS(3797) = Jac_FULL(329,201)\n  JVS(3797) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474)\nIF (DO_JVS(3798)) &\n! JVS(3798) = Jac_FULL(329,204)\n  JVS(3798) = B(1802)\nIF (DO_JVS(3799)) &\n! JVS(3799) = Jac_FULL(329,208)\n  JVS(3799) = 2*B(1266)+B(1765)\nIF (DO_JVS(3800)) &\n! JVS(3800) = Jac_FULL(329,209)\n  JVS(3800) = 0.036*B(1027)\nIF (DO_JVS(3801)) &\n! JVS(3801) = Jac_FULL(329,210)\n  JVS(3801) = B(1326)+B(1762)\nIF (DO_JVS(3802)) &\n! JVS(3802) = Jac_FULL(329,212)\n  JVS(3802) = 0\nIF (DO_JVS(3803)) &\n! JVS(3803) = Jac_FULL(329,213)\n  JVS(3803) = 0\nIF (DO_JVS(3804)) &\n! JVS(3804) = Jac_FULL(329,215)\n  JVS(3804) = 1.5*B(1011)\nIF (DO_JVS(3805)) &\n! JVS(3805) = Jac_FULL(329,216)\n  JVS(3805) = 0.25*B(1244)+B(1774)\nIF (DO_JVS(3806)) &\n! JVS(3806) = Jac_FULL(329,220)\n  JVS(3806) = 0.18*B(1342)\nIF (DO_JVS(3807)) &\n! JVS(3807) = Jac_FULL(329,221)\n  JVS(3807) = 0.26*B(1465)+0.5*B(1467)\nIF (DO_JVS(3808)) &\n! JVS(3808) = Jac_FULL(329,223)\n  JVS(3808) = 0\nIF (DO_JVS(3809)) &\n! JVS(3809) = Jac_FULL(329,225)\n  JVS(3809) = B(1808)\nIF (DO_JVS(3810)) &\n! JVS(3810) = Jac_FULL(329,226)\n  JVS(3810) = 0\nIF (DO_JVS(3811)) &\n! JVS(3811) = Jac_FULL(329,227)\n  JVS(3811) = B(1264)+0.5*B(1766)\nIF (DO_JVS(3812)) &\n! JVS(3812) = Jac_FULL(329,230)\n  JVS(3812) = 0.45*B(1001)+0.888*B(1779)\nIF (DO_JVS(3813)) &\n! JVS(3813) = Jac_FULL(329,231)\n  JVS(3813) = 0.37*B(1003)+0.818*B(1780)\nIF (DO_JVS(3814)) &\n! JVS(3814) = Jac_FULL(329,233)\n  JVS(3814) = 0.7*B(1660)\nIF (DO_JVS(3815)) &\n! JVS(3815) = Jac_FULL(329,238)\n  JVS(3815) = 0.638*B(1009)\nIF (DO_JVS(3816)) &\n! JVS(3816) = Jac_FULL(329,240)\n  JVS(3816) = 0\nIF (DO_JVS(3817)) &\n! JVS(3817) = Jac_FULL(329,241)\n  JVS(3817) = -B(705)\nIF (DO_JVS(3818)) &\n! JVS(3818) = Jac_FULL(329,243)\n  JVS(3818) = 0.52*B(1078)+0.8*B(1082)+2*B(1084)\nIF (DO_JVS(3819)) &\n! JVS(3819) = Jac_FULL(329,246)\n  JVS(3819) = 0\nIF (DO_JVS(3820)) &\n! JVS(3820) = Jac_FULL(329,248)\n  JVS(3820) = B(1773)\nIF (DO_JVS(3821)) &\n! JVS(3821) = Jac_FULL(329,253)\n  JVS(3821) = 0.507*B(1276)+B(1282)+0.86*B(1283)\nIF (DO_JVS(3822)) &\n! JVS(3822) = Jac_FULL(329,254)\n  JVS(3822) = 0\nIF (DO_JVS(3823)) &\n! JVS(3823) = Jac_FULL(329,255)\n  JVS(3823) = B(1817)\nIF (DO_JVS(3824)) &\n! JVS(3824) = Jac_FULL(329,258)\n  JVS(3824) = B(1306)+B(1792)+0.163*B(1793)\nIF (DO_JVS(3825)) &\n! JVS(3825) = Jac_FULL(329,259)\n  JVS(3825) = 0.325*B(1278)+0.65*B(1287)\nIF (DO_JVS(3826)) &\n! JVS(3826) = Jac_FULL(329,261)\n  JVS(3826) = B(1749)\nIF (DO_JVS(3827)) &\n! JVS(3827) = Jac_FULL(329,266)\n  JVS(3827) = B(1314)+B(1800)\nIF (DO_JVS(3828)) &\n! JVS(3828) = Jac_FULL(329,267)\n  JVS(3828) = 0.6*B(1111)+0.55*B(1786)\nIF (DO_JVS(3829)) &\n! JVS(3829) = Jac_FULL(329,268)\n  JVS(3829) = 0.6*B(1109)+0.55*B(1783)\nIF (DO_JVS(3830)) &\n! JVS(3830) = Jac_FULL(329,269)\n  JVS(3830) = 0.15*B(1457)+0.15*B(1459)+B(1805)\nIF (DO_JVS(3831)) &\n! JVS(3831) = Jac_FULL(329,270)\n  JVS(3831) = 2*B(312)+2*B(316)+2*B(1667)+2*B(1668)+B(1669)\nIF (DO_JVS(3832)) &\n! JVS(3832) = Jac_FULL(329,271)\n  JVS(3832) = 0\nIF (DO_JVS(3833)) &\n! JVS(3833) = Jac_FULL(329,276)\n  JVS(3833) = 0.407*B(947)+0.6*B(953)+0.9*B(955)\nIF (DO_JVS(3834)) &\n! JVS(3834) = Jac_FULL(329,277)\n  JVS(3834) = 0\nIF (DO_JVS(3835)) &\n! JVS(3835) = Jac_FULL(329,281)\n  JVS(3835) = 0\nIF (DO_JVS(3836)) &\n! JVS(3836) = Jac_FULL(329,285)\n  JVS(3836) = B(1071)+0.2*B(1072)+0.13*B(1076)\nIF (DO_JVS(3837)) &\n! JVS(3837) = Jac_FULL(329,286)\n  JVS(3837) = B(1063)+0.13*B(1064)+0.2*B(1066)\nIF (DO_JVS(3838)) &\n! JVS(3838) = Jac_FULL(329,287)\n  JVS(3838) = 0.77*B(1240)+0.77*B(1770)\nIF (DO_JVS(3839)) &\n! JVS(3839) = Jac_FULL(329,288)\n  JVS(3839) = 0\nIF (DO_JVS(3840)) &\n! JVS(3840) = Jac_FULL(329,290)\n  JVS(3840) = 0.56*B(287)\nIF (DO_JVS(3841)) &\n! JVS(3841) = Jac_FULL(329,293)\n  JVS(3841) = 0\nIF (DO_JVS(3842)) &\n! JVS(3842) = Jac_FULL(329,294)\n  JVS(3842) = B(314)+B(318)+B(1670)\nIF (DO_JVS(3843)) &\n! JVS(3843) = Jac_FULL(329,295)\n  JVS(3843) = B(1664)\nIF (DO_JVS(3844)) &\n! JVS(3844) = Jac_FULL(329,298)\n  JVS(3844) = B(1662)\nIF (DO_JVS(3845)) &\n! JVS(3845) = Jac_FULL(329,299)\n  JVS(3845) = 0\nIF (DO_JVS(3846)) &\n! JVS(3846) = Jac_FULL(329,300)\n  JVS(3846) = 0\nIF (DO_JVS(3847)) &\n! JVS(3847) = Jac_FULL(329,301)\n  JVS(3847) = 0.539*B(1212)+0.839*B(1790)\nIF (DO_JVS(3848)) &\n! JVS(3848) = Jac_FULL(329,302)\n  JVS(3848) = 0\nIF (DO_JVS(3849)) &\n! JVS(3849) = Jac_FULL(329,303)\n  JVS(3849) = 0\nIF (DO_JVS(3850)) &\n! JVS(3850) = Jac_FULL(329,304)\n  JVS(3850) = 0.9*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999)\nIF (DO_JVS(3851)) &\n! JVS(3851) = Jac_FULL(329,305)\n  JVS(3851) = 0.6*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991)\nIF (DO_JVS(3852)) &\n! JVS(3852) = Jac_FULL(329,306)\n  JVS(3852) = 0.505*B(289)+B(291)+B(1666)\nIF (DO_JVS(3853)) &\n! JVS(3853) = Jac_FULL(329,307)\n  JVS(3853) = 0.5*B(322)\nIF (DO_JVS(3854)) &\n! JVS(3854) = Jac_FULL(329,308)\n  JVS(3854) = 0\nIF (DO_JVS(3855)) &\n! JVS(3855) = Jac_FULL(329,309)\n  JVS(3855) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1674)\nIF (DO_JVS(3856)) &\n! JVS(3856) = Jac_FULL(329,310)\n  JVS(3856) = 0\nIF (DO_JVS(3857)) &\n! JVS(3857) = Jac_FULL(329,311)\n  JVS(3857) = 0\nIF (DO_JVS(3858)) &\n! JVS(3858) = Jac_FULL(329,312)\n  JVS(3858) = -B(691)\nIF (DO_JVS(3859)) &\n! JVS(3859) = Jac_FULL(329,313)\n  JVS(3859) = 0\nIF (DO_JVS(3860)) &\n! JVS(3860) = Jac_FULL(329,314)\n  JVS(3860) = 0.28*B(1226)+B(1671)+B(1672)\nIF (DO_JVS(3861)) &\n! JVS(3861) = Jac_FULL(329,318)\n  JVS(3861) = 0\nIF (DO_JVS(3862)) &\n! JVS(3862) = Jac_FULL(329,319)\n  JVS(3862) = 0\nIF (DO_JVS(3863)) &\n! JVS(3863) = Jac_FULL(329,320)\n  JVS(3863) = 0\nIF (DO_JVS(3864)) &\n! JVS(3864) = Jac_FULL(329,321)\n  JVS(3864) = 0\nIF (DO_JVS(3865)) &\n! JVS(3865) = Jac_FULL(329,322)\n  JVS(3865) = 0\nIF (DO_JVS(3866)) &\n! JVS(3866) = Jac_FULL(329,323)\n  JVS(3866) = 0\nIF (DO_JVS(3867)) &\n! JVS(3867) = Jac_FULL(329,324)\n  JVS(3867) = 0\nIF (DO_JVS(3868)) &\n! JVS(3868) = Jac_FULL(329,325)\n  JVS(3868) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)+B(1648)\nIF (DO_JVS(3869)) &\n! JVS(3869) = Jac_FULL(329,326)\n  JVS(3869) = 0.05*B(95)+0.88*B(1656)+B(1657)\nIF (DO_JVS(3870)) &\n! JVS(3870) = Jac_FULL(329,328)\n  JVS(3870) = 0.5*B(980)+0.5*B(984)\nIF (DO_JVS(3871)) &\n! JVS(3871) = Jac_FULL(329,329)\n  JVS(3871) = -B(45)-B(692)-B(706)\nIF (DO_JVS(3872)) &\n! JVS(3872) = Jac_FULL(329,334)\n  JVS(3872) = 0\nIF (DO_JVS(3873)) &\n! JVS(3873) = Jac_FULL(329,335)\n  JVS(3873) = 0\nIF (DO_JVS(3874)) &\n! JVS(3874) = Jac_FULL(329,336)\n  JVS(3874) = 0\nIF (DO_JVS(3875)) &\n! JVS(3875) = Jac_FULL(329,337)\n  JVS(3875) = B(159)+B(161)+0.13*B(1065)+0.13*B(1077)+0.52*B(1079)+0.33*B(1217)+0.507*B(1277)+0.325*B(1279)\nIF (DO_JVS(3876)) &\n! JVS(3876) = Jac_FULL(329,338)\n  JVS(3876) = 0\nIF (DO_JVS(3877)) &\n! JVS(3877) = Jac_FULL(329,340)\n  JVS(3877) = B(566)+B(606)+B(608)+B(610)\nIF (DO_JVS(3878)) &\n! JVS(3878) = Jac_FULL(329,341)\n  JVS(3878) = 0.56*B(288)+0.15*B(726)+0.1*B(734)+0.407*B(948)+0.28*B(1227)+0.12*B(1233)+0.18*B(1343)+0.5*B(1468)+0.5&\n                &*B(1473)\nIF (DO_JVS(3879)) &\n! JVS(3879) = Jac_FULL(329,342)\n  JVS(3879) = B(414)\nIF (DO_JVS(3880)) &\n! JVS(3880) = Jac_FULL(329,343)\n  JVS(3880) = B(458)+B(486)\nIF (DO_JVS(3881)) &\n! JVS(3881) = Jac_FULL(329,345)\n  JVS(3881) = -B(46)+B(64)+0.05*B(96)+B(103)+B(153)+B(168)+B(207)+B(242)+0.505*B(290)+B(292)+B(307)+2*B(313)+B(315)+0.5&\n                &*B(323)+0.6*B(954)+0.9*B(956)+0.45*B(1002)+0.37*B(1004)+0.42*B(1006)+0.23*B(1008)+0.638*B(1010)+1.5*B(1012)&\n                &+B(1014)+0.25*B(1024)+0.33*B(1026)+0.036*B(1028)+0.054*B(1030)+0.6*B(1110)+0.6*B(1112)+0.539*B(1213)+0.036&\n                &*B(1229)+0.77*B(1241)+0.25*B(1245)+0.75*B(1259)+B(1261)+B(1265)+2*B(1267)+0.84*B(1269)+0.488*B(1281)+0.25&\n                &*B(1303)+B(1305)+B(1307)+0.888*B(1309)+B(1315)+B(1327)+0.12*B(1349)+0.364*B(1363)+0.2*B(1382)+0.27*B(1384)&\n                &+0.3*B(1386)+2*B(1413)+0.15*B(1458)+0.26*B(1466)+0.25*B(1471)\nIF (DO_JVS(3882)) &\n! JVS(3882) = Jac_FULL(329,346)\n  JVS(3882) = B(157)+B(163)+0.55*B(992)+0.55*B(1000)+0.2*B(1067)+0.2*B(1073)+0.8*B(1083)+0.33*B(1215)+0.86*B(1284)+0.65&\n                &*B(1288)\nIF (DO_JVS(3883)) &\n! JVS(3883) = Jac_FULL(329,348)\n  JVS(3883) = 0\nIF (DO_JVS(3884)) &\n! JVS(3884) = Jac_FULL(329,351)\n  JVS(3884) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460)\nIF (DO_JVS(3885)) &\n! JVS(3885) = Jac_FULL(330,170)\n  JVS(3885) = B(673)\nIF (DO_JVS(3886)) &\n! JVS(3886) = Jac_FULL(330,252)\n  JVS(3886) = 0\nIF (DO_JVS(3887)) &\n! JVS(3887) = Jac_FULL(330,284)\n  JVS(3887) = B(679)\nIF (DO_JVS(3888)) &\n! JVS(3888) = Jac_FULL(330,330)\n  JVS(3888) = -B(677)-B(1574)-B(1575)-B(1607)-B(1609)-B(1611)-B(1613)-B(1726)\nIF (DO_JVS(3889)) &\n! JVS(3889) = Jac_FULL(330,331)\n  JVS(3889) = 0\nIF (DO_JVS(3890)) &\n! JVS(3890) = Jac_FULL(330,332)\n  JVS(3890) = B(1589)\nIF (DO_JVS(3891)) &\n! JVS(3891) = Jac_FULL(330,335)\n  JVS(3891) = 0\nIF (DO_JVS(3892)) &\n! JVS(3892) = Jac_FULL(330,336)\n  JVS(3892) = B(1590)\nIF (DO_JVS(3893)) &\n! JVS(3893) = Jac_FULL(330,337)\n  JVS(3893) = B(680)\nIF (DO_JVS(3894)) &\n! JVS(3894) = Jac_FULL(330,338)\n  JVS(3894) = 0\nIF (DO_JVS(3895)) &\n! JVS(3895) = Jac_FULL(330,341)\n  JVS(3895) = 0\nIF (DO_JVS(3896)) &\n! JVS(3896) = Jac_FULL(330,344)\n  JVS(3896) = -B(1614)\nIF (DO_JVS(3897)) &\n! JVS(3897) = Jac_FULL(330,345)\n  JVS(3897) = B(674)-B(678)\nIF (DO_JVS(3898)) &\n! JVS(3898) = Jac_FULL(330,346)\n  JVS(3898) = 0\nIF (DO_JVS(3899)) &\n! JVS(3899) = Jac_FULL(330,347)\n  JVS(3899) = 0\nIF (DO_JVS(3900)) &\n! JVS(3900) = Jac_FULL(330,349)\n  JVS(3900) = -B(1608)\nIF (DO_JVS(3901)) &\n! JVS(3901) = Jac_FULL(330,350)\n  JVS(3901) = -B(1610)\nIF (DO_JVS(3902)) &\n! JVS(3902) = Jac_FULL(330,351)\n  JVS(3902) = 0\nIF (DO_JVS(3903)) &\n! JVS(3903) = Jac_FULL(330,353)\n  JVS(3903) = -B(1612)\nIF (DO_JVS(3904)) &\n! JVS(3904) = Jac_FULL(331,1)\n  JVS(3904) = 2*B(1734)\nIF (DO_JVS(3905)) &\n! JVS(3905) = Jac_FULL(331,2)\n  JVS(3905) = B(1736)\nIF (DO_JVS(3906)) &\n! JVS(3906) = Jac_FULL(331,3)\n  JVS(3906) = B(1735)\nIF (DO_JVS(3907)) &\n! JVS(3907) = Jac_FULL(331,44)\n  JVS(3907) = 0.996*B(684)+B(1732)\nIF (DO_JVS(3908)) &\n! JVS(3908) = Jac_FULL(331,52)\n  JVS(3908) = B(685)+B(1733)\nIF (DO_JVS(3909)) &\n! JVS(3909) = Jac_FULL(331,62)\n  JVS(3909) = B(1729)\nIF (DO_JVS(3910)) &\n! JVS(3910) = Jac_FULL(331,73)\n  JVS(3910) = B(675)\nIF (DO_JVS(3911)) &\n! JVS(3911) = Jac_FULL(331,77)\n  JVS(3911) = B(1739)\nIF (DO_JVS(3912)) &\n! JVS(3912) = Jac_FULL(331,96)\n  JVS(3912) = B(1728)\nIF (DO_JVS(3913)) &\n! JVS(3913) = Jac_FULL(331,104)\n  JVS(3913) = B(1740)\nIF (DO_JVS(3914)) &\n! JVS(3914) = Jac_FULL(331,170)\n  JVS(3914) = B(650)+B(673)+2*B(1725)\nIF (DO_JVS(3915)) &\n! JVS(3915) = Jac_FULL(331,252)\n  JVS(3915) = B(648)+B(1730)\nIF (DO_JVS(3916)) &\n! JVS(3916) = Jac_FULL(331,284)\n  JVS(3916) = 0.2*B(659)+0.809*B(667)+B(681)+0.4*B(683)+B(1727)\nIF (DO_JVS(3917)) &\n! JVS(3917) = Jac_FULL(331,330)\n  JVS(3917) = B(1726)\nIF (DO_JVS(3918)) &\n! JVS(3918) = Jac_FULL(331,331)\n  JVS(3918) = -B(643)-B(646)-B(655)-B(657)-B(669)-B(671)\nIF (DO_JVS(3919)) &\n! JVS(3919) = Jac_FULL(331,332)\n  JVS(3919) = -B(656)+B(1731)\nIF (DO_JVS(3920)) &\n! JVS(3920) = Jac_FULL(331,335)\n  JVS(3920) = -B(647)\nIF (DO_JVS(3921)) &\n! JVS(3921) = Jac_FULL(331,336)\n  JVS(3921) = 0\nIF (DO_JVS(3922)) &\n! JVS(3922) = Jac_FULL(331,337)\n  JVS(3922) = -B(672)\nIF (DO_JVS(3923)) &\n! JVS(3923) = Jac_FULL(331,338)\n  JVS(3923) = 0.809*B(668)\nIF (DO_JVS(3924)) &\n! JVS(3924) = Jac_FULL(331,341)\n  JVS(3924) = -B(670)\nIF (DO_JVS(3925)) &\n! JVS(3925) = Jac_FULL(331,344)\n  JVS(3925) = 0\nIF (DO_JVS(3926)) &\n! JVS(3926) = Jac_FULL(331,345)\n  JVS(3926) = B(674)+B(676)+B(686)\nIF (DO_JVS(3927)) &\n! JVS(3927) = Jac_FULL(331,346)\n  JVS(3927) = -B(644)+B(682)\nIF (DO_JVS(3928)) &\n! JVS(3928) = Jac_FULL(331,347)\n  JVS(3928) = -B(658)+0.2*B(660)\nIF (DO_JVS(3929)) &\n! JVS(3929) = Jac_FULL(331,349)\n  JVS(3929) = 0\nIF (DO_JVS(3930)) &\n! JVS(3930) = Jac_FULL(331,350)\n  JVS(3930) = 0\nIF (DO_JVS(3931)) &\n! JVS(3931) = Jac_FULL(331,351)\n  JVS(3931) = B(651)\nIF (DO_JVS(3932)) &\n! JVS(3932) = Jac_FULL(331,353)\n  JVS(3932) = 0\nIF (DO_JVS(3933)) &\n! JVS(3933) = Jac_FULL(332,170)\n  JVS(3933) = B(650)\nIF (DO_JVS(3934)) &\n! JVS(3934) = Jac_FULL(332,252)\n  JVS(3934) = 0\nIF (DO_JVS(3935)) &\n! JVS(3935) = Jac_FULL(332,284)\n  JVS(3935) = B(652)\nIF (DO_JVS(3936)) &\n! JVS(3936) = Jac_FULL(332,330)\n  JVS(3936) = 0\nIF (DO_JVS(3937)) &\n! JVS(3937) = Jac_FULL(332,331)\n  JVS(3937) = -B(655)\nIF (DO_JVS(3938)) &\n! JVS(3938) = Jac_FULL(332,332)\n  JVS(3938) = -B(654)-B(656)-B(1587)-B(1588)-B(1589)-B(1599)-B(1601)-B(1603)-B(1605)-B(1731)\nIF (DO_JVS(3939)) &\n! JVS(3939) = Jac_FULL(332,335)\n  JVS(3939) = B(653)\nIF (DO_JVS(3940)) &\n! JVS(3940) = Jac_FULL(332,336)\n  JVS(3940) = -B(1590)\nIF (DO_JVS(3941)) &\n! JVS(3941) = Jac_FULL(332,337)\n  JVS(3941) = 0\nIF (DO_JVS(3942)) &\n! JVS(3942) = Jac_FULL(332,338)\n  JVS(3942) = 0\nIF (DO_JVS(3943)) &\n! JVS(3943) = Jac_FULL(332,341)\n  JVS(3943) = 0\nIF (DO_JVS(3944)) &\n! JVS(3944) = Jac_FULL(332,344)\n  JVS(3944) = -B(1606)\nIF (DO_JVS(3945)) &\n! JVS(3945) = Jac_FULL(332,345)\n  JVS(3945) = 0\nIF (DO_JVS(3946)) &\n! JVS(3946) = Jac_FULL(332,346)\n  JVS(3946) = 0\nIF (DO_JVS(3947)) &\n! JVS(3947) = Jac_FULL(332,347)\n  JVS(3947) = 0\nIF (DO_JVS(3948)) &\n! JVS(3948) = Jac_FULL(332,349)\n  JVS(3948) = -B(1600)\nIF (DO_JVS(3949)) &\n! JVS(3949) = Jac_FULL(332,350)\n  JVS(3949) = -B(1602)\nIF (DO_JVS(3950)) &\n! JVS(3950) = Jac_FULL(332,351)\n  JVS(3950) = B(651)\nIF (DO_JVS(3951)) &\n! JVS(3951) = Jac_FULL(332,353)\n  JVS(3951) = -B(1604)\nIF (DO_JVS(3952)) &\n! JVS(3952) = Jac_FULL(333,76)\n  JVS(3952) = B(537)\nIF (DO_JVS(3953)) &\n! JVS(3953) = Jac_FULL(333,120)\n  JVS(3953) = B(535)\nIF (DO_JVS(3954)) &\n! JVS(3954) = Jac_FULL(333,245)\n  JVS(3954) = B(527)\nIF (DO_JVS(3955)) &\n! JVS(3955) = Jac_FULL(333,284)\n  JVS(3955) = 0\nIF (DO_JVS(3956)) &\n! JVS(3956) = Jac_FULL(333,297)\n  JVS(3956) = B(543)\nIF (DO_JVS(3957)) &\n! JVS(3957) = Jac_FULL(333,317)\n  JVS(3957) = B(545)+B(1513)\nIF (DO_JVS(3958)) &\n! JVS(3958) = Jac_FULL(333,328)\n  JVS(3958) = 0\nIF (DO_JVS(3959)) &\n! JVS(3959) = Jac_FULL(333,329)\n  JVS(3959) = 0\nIF (DO_JVS(3960)) &\n! JVS(3960) = Jac_FULL(333,330)\n  JVS(3960) = 0\nIF (DO_JVS(3961)) &\n! JVS(3961) = Jac_FULL(333,331)\n  JVS(3961) = 0\nIF (DO_JVS(3962)) &\n! JVS(3962) = Jac_FULL(333,332)\n  JVS(3962) = 0\nIF (DO_JVS(3963)) &\n! JVS(3963) = Jac_FULL(333,333)\n  JVS(3963) = -B(541)-B(1539)-B(1541)-B(1543)-B(1545)-B(1547)-B(1709)\nIF (DO_JVS(3964)) &\n! JVS(3964) = Jac_FULL(333,334)\n  JVS(3964) = 0\nIF (DO_JVS(3965)) &\n! JVS(3965) = Jac_FULL(333,335)\n  JVS(3965) = 0\nIF (DO_JVS(3966)) &\n! JVS(3966) = Jac_FULL(333,336)\n  JVS(3966) = B(1514)\nIF (DO_JVS(3967)) &\n! JVS(3967) = Jac_FULL(333,337)\n  JVS(3967) = B(579)\nIF (DO_JVS(3968)) &\n! JVS(3968) = Jac_FULL(333,338)\n  JVS(3968) = B(580)\nIF (DO_JVS(3969)) &\n! JVS(3969) = Jac_FULL(333,339)\n  JVS(3969) = -B(1540)\nIF (DO_JVS(3970)) &\n! JVS(3970) = Jac_FULL(333,340)\n  JVS(3970) = 0\nIF (DO_JVS(3971)) &\n! JVS(3971) = Jac_FULL(333,341)\n  JVS(3971) = 0\nIF (DO_JVS(3972)) &\n! JVS(3972) = Jac_FULL(333,342)\n  JVS(3972) = 0\nIF (DO_JVS(3973)) &\n! JVS(3973) = Jac_FULL(333,343)\n  JVS(3973) = 0\nIF (DO_JVS(3974)) &\n! JVS(3974) = Jac_FULL(333,344)\n  JVS(3974) = -B(1546)\nIF (DO_JVS(3975)) &\n! JVS(3975) = Jac_FULL(333,345)\n  JVS(3975) = B(528)+B(536)+B(538)-B(542)+B(544)+B(546)\nIF (DO_JVS(3976)) &\n! JVS(3976) = Jac_FULL(333,346)\n  JVS(3976) = 0\nIF (DO_JVS(3977)) &\n! JVS(3977) = Jac_FULL(333,347)\n  JVS(3977) = 0\nIF (DO_JVS(3978)) &\n! JVS(3978) = Jac_FULL(333,348)\n  JVS(3978) = -B(1548)\nIF (DO_JVS(3979)) &\n! JVS(3979) = Jac_FULL(333,349)\n  JVS(3979) = 0\nIF (DO_JVS(3980)) &\n! JVS(3980) = Jac_FULL(333,350)\n  JVS(3980) = 0\nIF (DO_JVS(3981)) &\n! JVS(3981) = Jac_FULL(333,351)\n  JVS(3981) = 0\nIF (DO_JVS(3982)) &\n! JVS(3982) = Jac_FULL(333,352)\n  JVS(3982) = -B(1542)\nIF (DO_JVS(3983)) &\n! JVS(3983) = Jac_FULL(333,353)\n  JVS(3983) = -B(1544)\nIF (DO_JVS(3984)) &\n! JVS(3984) = Jac_FULL(334,46)\n  JVS(3984) = -B(493)\nIF (DO_JVS(3985)) &\n! JVS(3985) = Jac_FULL(334,47)\n  JVS(3985) = -B(505)\nIF (DO_JVS(3986)) &\n! JVS(3986) = Jac_FULL(334,48)\n  JVS(3986) = -B(507)\nIF (DO_JVS(3987)) &\n! JVS(3987) = Jac_FULL(334,49)\n  JVS(3987) = -B(519)\nIF (DO_JVS(3988)) &\n! JVS(3988) = Jac_FULL(334,50)\n  JVS(3988) = -B(521)\nIF (DO_JVS(3989)) &\n! JVS(3989) = Jac_FULL(334,51)\n  JVS(3989) = -B(523)\nIF (DO_JVS(3990)) &\n! JVS(3990) = Jac_FULL(334,53)\n  JVS(3990) = -B(511)\nIF (DO_JVS(3991)) &\n! JVS(3991) = Jac_FULL(334,54)\n  JVS(3991) = -B(525)\nIF (DO_JVS(3992)) &\n! JVS(3992) = Jac_FULL(334,61)\n  JVS(3992) = -B(509)\nIF (DO_JVS(3993)) &\n! JVS(3993) = Jac_FULL(334,63)\n  JVS(3993) = -B(441)+B(1744)\nIF (DO_JVS(3994)) &\n! JVS(3994) = Jac_FULL(334,67)\n  JVS(3994) = 0\nIF (DO_JVS(3995)) &\n! JVS(3995) = Jac_FULL(334,78)\n  JVS(3995) = -B(499)\nIF (DO_JVS(3996)) &\n! JVS(3996) = Jac_FULL(334,81)\n  JVS(3996) = -B(501)\nIF (DO_JVS(3997)) &\n! JVS(3997) = Jac_FULL(334,84)\n  JVS(3997) = -B(517)\nIF (DO_JVS(3998)) &\n! JVS(3998) = Jac_FULL(334,85)\n  JVS(3998) = -B(513)\nIF (DO_JVS(3999)) &\n! JVS(3999) = Jac_FULL(334,86)\n  JVS(3999) = -B(515)\nIF (DO_JVS(4000)) &\n! JVS(4000) = Jac_FULL(334,87)\n  JVS(4000) = -B(503)\nIF (DO_JVS(4001)) &\n! JVS(4001) = Jac_FULL(334,105)\n  JVS(4001) = -B(497)\nIF (DO_JVS(4002)) &\n! JVS(4002) = Jac_FULL(334,181)\n  JVS(4002) = -B(495)\nIF (DO_JVS(4003)) &\n! JVS(4003) = Jac_FULL(334,228)\n  JVS(4003) = -B(443)\nIF (DO_JVS(4004)) &\n! JVS(4004) = Jac_FULL(334,245)\n  JVS(4004) = -B(491)\nIF (DO_JVS(4005)) &\n! JVS(4005) = Jac_FULL(334,290)\n  JVS(4005) = 0\nIF (DO_JVS(4006)) &\n! JVS(4006) = Jac_FULL(334,297)\n  JVS(4006) = 0\nIF (DO_JVS(4007)) &\n! JVS(4007) = Jac_FULL(334,314)\n  JVS(4007) = 0\nIF (DO_JVS(4008)) &\n! JVS(4008) = Jac_FULL(334,317)\n  JVS(4008) = 0\nIF (DO_JVS(4009)) &\n! JVS(4009) = Jac_FULL(334,324)\n  JVS(4009) = 0\nIF (DO_JVS(4010)) &\n! JVS(4010) = Jac_FULL(334,326)\n  JVS(4010) = 0\nIF (DO_JVS(4011)) &\n! JVS(4011) = Jac_FULL(334,328)\n  JVS(4011) = 0\nIF (DO_JVS(4012)) &\n! JVS(4012) = Jac_FULL(334,329)\n  JVS(4012) = 0\nIF (DO_JVS(4013)) &\n! JVS(4013) = Jac_FULL(334,333)\n  JVS(4013) = 0\nIF (DO_JVS(4014)) &\n! JVS(4014) = Jac_FULL(334,334)\n  JVS(4014) = -B(433)-B(435)-B(437)-B(439)-B(442)-B(444)-B(455)-B(487)-B(489)-B(492)-B(494)-B(496)-B(498)-B(500)-B(502)&\n                &-B(504)-B(506)-B(508)-B(510)-B(512)-B(514)-B(516)-B(518)-B(520)-B(522)-B(524)-B(526)\nIF (DO_JVS(4015)) &\n! JVS(4015) = Jac_FULL(334,335)\n  JVS(4015) = 0\nIF (DO_JVS(4016)) &\n! JVS(4016) = Jac_FULL(334,336)\n  JVS(4016) = -B(434)\nIF (DO_JVS(4017)) &\n! JVS(4017) = Jac_FULL(334,337)\n  JVS(4017) = 0\nIF (DO_JVS(4018)) &\n! JVS(4018) = Jac_FULL(334,338)\n  JVS(4018) = 0\nIF (DO_JVS(4019)) &\n! JVS(4019) = Jac_FULL(334,339)\n  JVS(4019) = -B(488)\nIF (DO_JVS(4020)) &\n! JVS(4020) = Jac_FULL(334,340)\n  JVS(4020) = 0\nIF (DO_JVS(4021)) &\n! JVS(4021) = Jac_FULL(334,341)\n  JVS(4021) = -B(456)+B(1642)\nIF (DO_JVS(4022)) &\n! JVS(4022) = Jac_FULL(334,342)\n  JVS(4022) = 0\nIF (DO_JVS(4023)) &\n! JVS(4023) = Jac_FULL(334,343)\n  JVS(4023) = 0\nIF (DO_JVS(4024)) &\n! JVS(4024) = Jac_FULL(334,344)\n  JVS(4024) = 0\nIF (DO_JVS(4025)) &\n! JVS(4025) = Jac_FULL(334,345)\n  JVS(4025) = 0\nIF (DO_JVS(4026)) &\n! JVS(4026) = Jac_FULL(334,346)\n  JVS(4026) = 0\nIF (DO_JVS(4027)) &\n! JVS(4027) = Jac_FULL(334,347)\n  JVS(4027) = 0\nIF (DO_JVS(4028)) &\n! JVS(4028) = Jac_FULL(334,348)\n  JVS(4028) = 0\nIF (DO_JVS(4029)) &\n! JVS(4029) = Jac_FULL(334,349)\n  JVS(4029) = 0\nIF (DO_JVS(4030)) &\n! JVS(4030) = Jac_FULL(334,350)\n  JVS(4030) = 0\nIF (DO_JVS(4031)) &\n! JVS(4031) = Jac_FULL(334,351)\n  JVS(4031) = 0\nIF (DO_JVS(4032)) &\n! JVS(4032) = Jac_FULL(334,352)\n  JVS(4032) = -B(490)\nIF (DO_JVS(4033)) &\n! JVS(4033) = Jac_FULL(334,353)\n  JVS(4033) = 0\nIF (DO_JVS(4034)) &\n! JVS(4034) = Jac_FULL(335,56)\n  JVS(4034) = B(755)\nIF (DO_JVS(4035)) &\n! JVS(4035) = Jac_FULL(335,57)\n  JVS(4035) = B(844)\nIF (DO_JVS(4036)) &\n! JVS(4036) = Jac_FULL(335,59)\n  JVS(4036) = B(1695)\nIF (DO_JVS(4037)) &\n! JVS(4037) = Jac_FULL(335,64)\n  JVS(4037) = B(1756)\nIF (DO_JVS(4038)) &\n! JVS(4038) = Jac_FULL(335,65)\n  JVS(4038) = B(1754)\nIF (DO_JVS(4039)) &\n! JVS(4039) = Jac_FULL(335,67)\n  JVS(4039) = -B(481)\nIF (DO_JVS(4040)) &\n! JVS(4040) = Jac_FULL(335,70)\n  JVS(4040) = B(1375)\nIF (DO_JVS(4041)) &\n! JVS(4041) = Jac_FULL(335,80)\n  JVS(4041) = B(380)+B(1742)\nIF (DO_JVS(4042)) &\n! JVS(4042) = Jac_FULL(335,83)\n  JVS(4042) = B(941)+B(1758)\nIF (DO_JVS(4043)) &\n! JVS(4043) = Jac_FULL(335,90)\n  JVS(4043) = B(1440)+B(1441)\nIF (DO_JVS(4044)) &\n! JVS(4044) = Jac_FULL(335,91)\n  JVS(4044) = B(943)+B(1759)\nIF (DO_JVS(4045)) &\n! JVS(4045) = Jac_FULL(335,93)\n  JVS(4045) = B(939)+B(1757)\nIF (DO_JVS(4046)) &\n! JVS(4046) = Jac_FULL(335,95)\n  JVS(4046) = B(945)+B(1760)\nIF (DO_JVS(4047)) &\n! JVS(4047) = Jac_FULL(335,96)\n  JVS(4047) = B(665)\nIF (DO_JVS(4048)) &\n! JVS(4048) = Jac_FULL(335,108)\n  JVS(4048) = B(75)+B(76)+B(1652)\nIF (DO_JVS(4049)) &\n! JVS(4049) = Jac_FULL(335,113)\n  JVS(4049) = B(240)+B(241)\nIF (DO_JVS(4050)) &\n! JVS(4050) = Jac_FULL(335,114)\n  JVS(4050) = B(299)+B(306)\nIF (DO_JVS(4051)) &\n! JVS(4051) = Jac_FULL(335,116)\n  JVS(4051) = B(1356)+B(1687)\nIF (DO_JVS(4052)) &\n! JVS(4052) = Jac_FULL(335,121)\n  JVS(4052) = B(1399)\nIF (DO_JVS(4053)) &\n! JVS(4053) = Jac_FULL(335,122)\n  JVS(4053) = B(1411)+B(1412)\nIF (DO_JVS(4054)) &\n! JVS(4054) = Jac_FULL(335,124)\n  JVS(4054) = B(205)+B(206)+0.7*B(1806)\nIF (DO_JVS(4055)) &\n! JVS(4055) = Jac_FULL(335,125)\n  JVS(4055) = B(1676)\nIF (DO_JVS(4056)) &\n! JVS(4056) = Jac_FULL(335,126)\n  JVS(4056) = B(166)+B(1659)\nIF (DO_JVS(4057)) &\n! JVS(4057) = Jac_FULL(335,127)\n  JVS(4057) = B(152)\nIF (DO_JVS(4058)) &\n! JVS(4058) = Jac_FULL(335,132)\n  JVS(4058) = B(156)\nIF (DO_JVS(4059)) &\n! JVS(4059) = Jac_FULL(335,133)\n  JVS(4059) = B(1085)\nIF (DO_JVS(4060)) &\n! JVS(4060) = Jac_FULL(335,135)\n  JVS(4060) = B(1089)\nIF (DO_JVS(4061)) &\n! JVS(4061) = Jac_FULL(335,137)\n  JVS(4061) = 0.5*B(743)\nIF (DO_JVS(4062)) &\n! JVS(4062) = Jac_FULL(335,138)\n  JVS(4062) = 0.5*B(780)\nIF (DO_JVS(4063)) &\n! JVS(4063) = Jac_FULL(335,139)\n  JVS(4063) = B(101)+B(102)+0.7*B(1658)\nIF (DO_JVS(4064)) &\n! JVS(4064) = Jac_FULL(335,140)\n  JVS(4064) = B(144)\nIF (DO_JVS(4065)) &\n! JVS(4065) = Jac_FULL(335,154)\n  JVS(4065) = B(1752)\nIF (DO_JVS(4066)) &\n! JVS(4066) = Jac_FULL(335,162)\n  JVS(4066) = 0.5*B(798)\nIF (DO_JVS(4067)) &\n! JVS(4067) = Jac_FULL(335,163)\n  JVS(4067) = B(834)\nIF (DO_JVS(4068)) &\n! JVS(4068) = Jac_FULL(335,165)\n  JVS(4068) = 2*B(138)\nIF (DO_JVS(4069)) &\n! JVS(4069) = Jac_FULL(335,166)\n  JVS(4069) = 0\nIF (DO_JVS(4070)) &\n! JVS(4070) = Jac_FULL(335,168)\n  JVS(4070) = B(1099)+B(1785)\nIF (DO_JVS(4071)) &\n! JVS(4071) = Jac_FULL(335,171)\n  JVS(4071) = B(1246)-B(1250)\nIF (DO_JVS(4072)) &\n! JVS(4072) = Jac_FULL(335,172)\n  JVS(4072) = B(1252)-B(1256)\nIF (DO_JVS(4073)) &\n! JVS(4073) = Jac_FULL(335,175)\n  JVS(4073) = B(1095)+B(1784)\nIF (DO_JVS(4074)) &\n! JVS(4074) = Jac_FULL(335,176)\n  JVS(4074) = 0.5*B(772)\nIF (DO_JVS(4075)) &\n! JVS(4075) = Jac_FULL(335,177)\n  JVS(4075) = 0.5*B(836)\nIF (DO_JVS(4076)) &\n! JVS(4076) = Jac_FULL(335,178)\n  JVS(4076) = B(128)\nIF (DO_JVS(4077)) &\n! JVS(4077) = Jac_FULL(335,179)\n  JVS(4077) = 0\nIF (DO_JVS(4078)) &\n! JVS(4078) = Jac_FULL(335,180)\n  JVS(4078) = 1.11*B(1220)+0.09*B(1222)\nIF (DO_JVS(4079)) &\n! JVS(4079) = Jac_FULL(335,182)\n  JVS(4079) = B(1214)\nIF (DO_JVS(4080)) &\n! JVS(4080) = Jac_FULL(335,184)\n  JVS(4080) = B(1301)\nIF (DO_JVS(4081)) &\n! JVS(4081) = Jac_FULL(335,186)\n  JVS(4081) = B(1188)+B(1789)\nIF (DO_JVS(4082)) &\n! JVS(4082) = Jac_FULL(335,189)\n  JVS(4082) = 0.89*B(1352)\nIF (DO_JVS(4083)) &\n! JVS(4083) = Jac_FULL(335,190)\n  JVS(4083) = B(1123)\nIF (DO_JVS(4084)) &\n! JVS(4084) = Jac_FULL(335,193)\n  JVS(4084) = 0.3*B(865)+0.3*B(867)+1.15*B(869)\nIF (DO_JVS(4085)) &\n! JVS(4085) = Jac_FULL(335,196)\n  JVS(4085) = B(1686)\nIF (DO_JVS(4086)) &\n! JVS(4086) = Jac_FULL(335,197)\n  JVS(4086) = B(162)-B(164)\nIF (DO_JVS(4087)) &\n! JVS(4087) = Jac_FULL(335,200)\n  JVS(4087) = 0\nIF (DO_JVS(4088)) &\n! JVS(4088) = Jac_FULL(335,203)\n  JVS(4088) = -B(1455)\nIF (DO_JVS(4089)) &\n! JVS(4089) = Jac_FULL(335,205)\n  JVS(4089) = 0.459*B(1114)+1.728*B(1116)\nIF (DO_JVS(4090)) &\n! JVS(4090) = Jac_FULL(335,206)\n  JVS(4090) = B(1131)\nIF (DO_JVS(4091)) &\n! JVS(4091) = Jac_FULL(335,207)\n  JVS(4091) = B(1137)\nIF (DO_JVS(4092)) &\n! JVS(4092) = Jac_FULL(335,211)\n  JVS(4092) = 0.5*B(818)+0.5*B(820)+B(822)\nIF (DO_JVS(4093)) &\n! JVS(4093) = Jac_FULL(335,212)\n  JVS(4093) = 0.942*B(148)\nIF (DO_JVS(4094)) &\n! JVS(4094) = Jac_FULL(335,213)\n  JVS(4094) = -B(297)+B(300)+B(304)\nIF (DO_JVS(4095)) &\n! JVS(4095) = Jac_FULL(335,214)\n  JVS(4095) = B(86)+B(1655)\nIF (DO_JVS(4096)) &\n! JVS(4096) = Jac_FULL(335,218)\n  JVS(4096) = B(1694)\nIF (DO_JVS(4097)) &\n! JVS(4097) = Jac_FULL(335,220)\n  JVS(4097) = B(1340)\nIF (DO_JVS(4098)) &\n! JVS(4098) = Jac_FULL(335,222)\n  JVS(4098) = B(1787)\nIF (DO_JVS(4099)) &\n! JVS(4099) = Jac_FULL(335,223)\n  JVS(4099) = B(1032)\nIF (DO_JVS(4100)) &\n! JVS(4100) = Jac_FULL(335,224)\n  JVS(4100) = B(1039)\nIF (DO_JVS(4101)) &\n! JVS(4101) = Jac_FULL(335,226)\n  JVS(4101) = B(1206)\nIF (DO_JVS(4102)) &\n! JVS(4102) = Jac_FULL(335,229)\n  JVS(4102) = 0.5*B(863)\nIF (DO_JVS(4103)) &\n! JVS(4103) = Jac_FULL(335,230)\n  JVS(4103) = 0\nIF (DO_JVS(4104)) &\n! JVS(4104) = Jac_FULL(335,231)\n  JVS(4104) = 0\nIF (DO_JVS(4105)) &\n! JVS(4105) = Jac_FULL(335,232)\n  JVS(4105) = B(1046)\nIF (DO_JVS(4106)) &\n! JVS(4106) = Jac_FULL(335,233)\n  JVS(4106) = 0\nIF (DO_JVS(4107)) &\n! JVS(4107) = Jac_FULL(335,234)\n  JVS(4107) = 0.995*B(1366)+B(1368)\nIF (DO_JVS(4108)) &\n! JVS(4108) = Jac_FULL(335,235)\n  JVS(4108) = B(1434)-B(1436)\nIF (DO_JVS(4109)) &\n! JVS(4109) = Jac_FULL(335,236)\n  JVS(4109) = -B(1443)+B(1445)+B(1447)\nIF (DO_JVS(4110)) &\n! JVS(4110) = Jac_FULL(335,237)\n  JVS(4110) = 0\nIF (DO_JVS(4111)) &\n! JVS(4111) = Jac_FULL(335,239)\n  JVS(4111) = B(71)\nIF (DO_JVS(4112)) &\n! JVS(4112) = Jac_FULL(335,240)\n  JVS(4112) = B(1405)-B(1409)\nIF (DO_JVS(4113)) &\n! JVS(4113) = Jac_FULL(335,241)\n  JVS(4113) = B(707)-B(709)\nIF (DO_JVS(4114)) &\n! JVS(4114) = Jac_FULL(335,242)\n  JVS(4114) = B(1751)\nIF (DO_JVS(4115)) &\n! JVS(4115) = Jac_FULL(335,243)\n  JVS(4115) = B(1082)\nIF (DO_JVS(4116)) &\n! JVS(4116) = Jac_FULL(335,246)\n  JVS(4116) = -B(238)+B(243)\nIF (DO_JVS(4117)) &\n! JVS(4117) = Jac_FULL(335,247)\n  JVS(4117) = B(689)+B(1764)\nIF (DO_JVS(4118)) &\n! JVS(4118) = Jac_FULL(335,248)\n  JVS(4118) = B(1773)\nIF (DO_JVS(4119)) &\n! JVS(4119) = Jac_FULL(335,249)\n  JVS(4119) = 2*B(175)+B(259)+B(361)\nIF (DO_JVS(4120)) &\n! JVS(4120) = Jac_FULL(335,250)\n  JVS(4120) = 2*B(191)+B(267)+B(363)\nIF (DO_JVS(4121)) &\n! JVS(4121) = Jac_FULL(335,251)\n  JVS(4121) = B(1685)\nIF (DO_JVS(4122)) &\n! JVS(4122) = Jac_FULL(335,252)\n  JVS(4122) = B(648)+2*B(649)+B(1730)\nIF (DO_JVS(4123)) &\n! JVS(4123) = Jac_FULL(335,253)\n  JVS(4123) = B(1283)\nIF (DO_JVS(4124)) &\n! JVS(4124) = Jac_FULL(335,254)\n  JVS(4124) = B(1272)\nIF (DO_JVS(4125)) &\n! JVS(4125) = Jac_FULL(335,255)\n  JVS(4125) = 0\nIF (DO_JVS(4126)) &\n! JVS(4126) = Jac_FULL(335,256)\n  JVS(4126) = B(1750)\nIF (DO_JVS(4127)) &\n! JVS(4127) = Jac_FULL(335,257)\n  JVS(4127) = B(751)-B(753)+B(756)\nIF (DO_JVS(4128)) &\n! JVS(4128) = Jac_FULL(335,259)\n  JVS(4128) = B(1287)-B(1289)\nIF (DO_JVS(4129)) &\n! JVS(4129) = Jac_FULL(335,260)\n  JVS(4129) = B(122)\nIF (DO_JVS(4130)) &\n! JVS(4130) = Jac_FULL(335,261)\n  JVS(4130) = B(687)+B(1318)+B(1749)\nIF (DO_JVS(4131)) &\n! JVS(4131) = Jac_FULL(335,262)\n  JVS(4131) = 0.5*B(875)\nIF (DO_JVS(4132)) &\n! JVS(4132) = Jac_FULL(335,263)\n  JVS(4132) = B(1389)+B(1391)\nIF (DO_JVS(4133)) &\n! JVS(4133) = Jac_FULL(335,266)\n  JVS(4133) = B(1314)+B(1799)+B(1800)\nIF (DO_JVS(4134)) &\n! JVS(4134) = Jac_FULL(335,267)\n  JVS(4134) = B(1105)+B(1786)\nIF (DO_JVS(4135)) &\n! JVS(4135) = Jac_FULL(335,268)\n  JVS(4135) = B(1101)+B(1783)\nIF (DO_JVS(4136)) &\n! JVS(4136) = Jac_FULL(335,269)\n  JVS(4136) = 0.5*B(1457)+B(1459)\nIF (DO_JVS(4137)) &\n! JVS(4137) = Jac_FULL(335,271)\n  JVS(4137) = 0.058*B(1198)+1.065*B(1202)\nIF (DO_JVS(4138)) &\n! JVS(4138) = Jac_FULL(335,272)\n  JVS(4138) = 0.84*B(824)+B(828)\nIF (DO_JVS(4139)) &\n! JVS(4139) = Jac_FULL(335,273)\n  JVS(4139) = B(790)+B(794)\nIF (DO_JVS(4140)) &\n! JVS(4140) = Jac_FULL(335,274)\n  JVS(4140) = B(840)-B(842)+B(845)\nIF (DO_JVS(4141)) &\n! JVS(4141) = Jac_FULL(335,275)\n  JVS(4141) = 0.75*B(776)+B(778)\nIF (DO_JVS(4142)) &\n! JVS(4142) = Jac_FULL(335,276)\n  JVS(4142) = 0\nIF (DO_JVS(4143)) &\n! JVS(4143) = Jac_FULL(335,277)\n  JVS(4143) = 0.75*B(737)+B(739)\nIF (DO_JVS(4144)) &\n! JVS(4144) = Jac_FULL(335,278)\n  JVS(4144) = 0.84*B(764)+B(766)\nIF (DO_JVS(4145)) &\n! JVS(4145) = Jac_FULL(335,279)\n  JVS(4145) = B(1688)\nIF (DO_JVS(4146)) &\n! JVS(4146) = Jac_FULL(335,280)\n  JVS(4146) = B(901)+B(917)+0.5*B(922)\nIF (DO_JVS(4147)) &\n! JVS(4147) = Jac_FULL(335,281)\n  JVS(4147) = 0.75*B(802)+B(804)\nIF (DO_JVS(4148)) &\n! JVS(4148) = Jac_FULL(335,284)\n  JVS(4148) = -B(652)+B(681)\nIF (DO_JVS(4149)) &\n! JVS(4149) = Jac_FULL(335,285)\n  JVS(4149) = B(1072)\nIF (DO_JVS(4150)) &\n! JVS(4150) = Jac_FULL(335,286)\n  JVS(4150) = B(1066)\nIF (DO_JVS(4151)) &\n! JVS(4151) = Jac_FULL(335,289)\n  JVS(4151) = 2*B(903)+0.5*B(911)+B(915)+2*B(919)+0.5*B(923)+B(924)\nIF (DO_JVS(4152)) &\n! JVS(4152) = Jac_FULL(335,290)\n  JVS(4152) = 0\nIF (DO_JVS(4153)) &\n! JVS(4153) = Jac_FULL(335,291)\n  JVS(4153) = B(855)+B(857)\nIF (DO_JVS(4154)) &\n! JVS(4154) = Jac_FULL(335,293)\n  JVS(4154) = B(1143)\nIF (DO_JVS(4155)) &\n! JVS(4155) = Jac_FULL(335,296)\n  JVS(4155) = B(108)\nIF (DO_JVS(4156)) &\n! JVS(4156) = Jac_FULL(335,297)\n  JVS(4156) = B(543)+B(1706)\nIF (DO_JVS(4157)) &\n! JVS(4157) = Jac_FULL(335,299)\n  JVS(4157) = 0.565*B(1218)+1.555*B(1791)\nIF (DO_JVS(4158)) &\n! JVS(4158) = Jac_FULL(335,300)\n  JVS(4158) = B(171)\nIF (DO_JVS(4159)) &\n! JVS(4159) = Jac_FULL(335,301)\n  JVS(4159) = B(1210)+B(1790)\nIF (DO_JVS(4160)) &\n! JVS(4160) = Jac_FULL(335,302)\n  JVS(4160) = 0.31*B(1236)+0.7*B(1772)\nIF (DO_JVS(4161)) &\n! JVS(4161) = Jac_FULL(335,303)\n  JVS(4161) = 0.022*B(1316)+0.3*B(1797)+B(1798)\nIF (DO_JVS(4162)) &\n! JVS(4162) = Jac_FULL(335,304)\n  JVS(4162) = B(995)+B(999)\nIF (DO_JVS(4163)) &\n! JVS(4163) = Jac_FULL(335,305)\n  JVS(4163) = B(987)+B(991)\nIF (DO_JVS(4164)) &\n! JVS(4164) = Jac_FULL(335,306)\n  JVS(4164) = 0\nIF (DO_JVS(4165)) &\n! JVS(4165) = Jac_FULL(335,308)\n  JVS(4165) = 0.5*B(1291)+2*B(1293)+2*B(1297)+0.7*B(1299)\nIF (DO_JVS(4166)) &\n! JVS(4166) = Jac_FULL(335,309)\n  JVS(4166) = 0\nIF (DO_JVS(4167)) &\n! JVS(4167) = Jac_FULL(335,310)\n  JVS(4167) = 0.527*B(1149)+1.86*B(1153)+0.563*B(1154)+0.611*B(1159)+B(1161)+2*B(1165)+2*B(1169)\nIF (DO_JVS(4168)) &\n! JVS(4168) = Jac_FULL(335,311)\n  JVS(4168) = 0.563*B(1155)+B(1167)+B(1173)\nIF (DO_JVS(4169)) &\n! JVS(4169) = Jac_FULL(335,312)\n  JVS(4169) = B(693)-B(695)\nIF (DO_JVS(4170)) &\n! JVS(4170) = Jac_FULL(335,313)\n  JVS(4170) = B(183)\nIF (DO_JVS(4171)) &\n! JVS(4171) = Jac_FULL(335,314)\n  JVS(4171) = 0\nIF (DO_JVS(4172)) &\n! JVS(4172) = Jac_FULL(335,315)\n  JVS(4172) = B(112)\nIF (DO_JVS(4173)) &\n! JVS(4173) = Jac_FULL(335,317)\n  JVS(4173) = B(1708)\nIF (DO_JVS(4174)) &\n! JVS(4174) = Jac_FULL(335,318)\n  JVS(4174) = 2*B(181)+B(255)+B(359)\nIF (DO_JVS(4175)) &\n! JVS(4175) = Jac_FULL(335,319)\n  JVS(4175) = B(177)\nIF (DO_JVS(4176)) &\n! JVS(4176) = Jac_FULL(335,320)\n  JVS(4176) = 0.928*B(185)+0.93*B(236)\nIF (DO_JVS(4177)) &\n! JVS(4177) = Jac_FULL(335,321)\n  JVS(4177) = B(118)\nIF (DO_JVS(4178)) &\n! JVS(4178) = Jac_FULL(335,322)\n  JVS(4178) = -B(203)+B(208)\nIF (DO_JVS(4179)) &\n! JVS(4179) = Jac_FULL(335,323)\n  JVS(4179) = B(187)\nIF (DO_JVS(4180)) &\n! JVS(4180) = Jac_FULL(335,324)\n  JVS(4180) = -B(99)+B(104)+B(360)+B(362)+B(364)+B(916)+B(1162)\nIF (DO_JVS(4181)) &\n! JVS(4181) = Jac_FULL(335,326)\n  JVS(4181) = 0\nIF (DO_JVS(4182)) &\n! JVS(4182) = Jac_FULL(335,327)\n  JVS(4182) = B(1649)\nIF (DO_JVS(4183)) &\n! JVS(4183) = Jac_FULL(335,328)\n  JVS(4183) = B(49)+B(256)+B(260)+B(268)-B(378)+0.5*B(912)+0.611*B(1160)+0.7*B(1300)+B(1487)\nIF (DO_JVS(4184)) &\n! JVS(4184) = Jac_FULL(335,329)\n  JVS(4184) = 0\nIF (DO_JVS(4185)) &\n! JVS(4185) = Jac_FULL(335,330)\n  JVS(4185) = 0\nIF (DO_JVS(4186)) &\n! JVS(4186) = Jac_FULL(335,331)\n  JVS(4186) = -B(646)\nIF (DO_JVS(4187)) &\n! JVS(4187) = Jac_FULL(335,332)\n  JVS(4187) = B(654)\nIF (DO_JVS(4188)) &\n! JVS(4188) = Jac_FULL(335,334)\n  JVS(4188) = 0\nIF (DO_JVS(4189)) &\n! JVS(4189) = Jac_FULL(335,335)\n  JVS(4189) = -B(32)-B(65)-B(73)-B(84)-B(100)-B(165)-B(204)-B(239)-B(298)-B(379)-B(423)-B(425)-B(461)-B(467)-B(482)&\n                &-B(583)-B(647)-B(653)-B(696)-B(710)-B(754)-B(843)-B(1251)-B(1257)-B(1290)-B(1410)-B(1437)-B(1444)-B(1456)&\n                &-B(1492)-B(1644)\nIF (DO_JVS(4190)) &\n! JVS(4190) = Jac_FULL(335,336)\n  JVS(4190) = 0\nIF (DO_JVS(4191)) &\n! JVS(4191) = Jac_FULL(335,337)\n  JVS(4191) = B(42)-B(74)+B(78)+0.459*B(1115)+0.527*B(1150)+0.058*B(1199)+0.09*B(1223)+0.5*B(1292)\nIF (DO_JVS(4192)) &\n! JVS(4192) = Jac_FULL(335,338)\n  JVS(4192) = B(581)-B(584)\nIF (DO_JVS(4193)) &\n! JVS(4193) = Jac_FULL(335,339)\n  JVS(4193) = 0\nIF (DO_JVS(4194)) &\n! JVS(4194) = Jac_FULL(335,340)\n  JVS(4194) = 0\nIF (DO_JVS(4195)) &\n! JVS(4195) = Jac_FULL(335,341)\n  JVS(4195) = B(26)-B(33)+0.5*B(821)+0.3*B(868)\nIF (DO_JVS(4196)) &\n! JVS(4196) = Jac_FULL(335,342)\n  JVS(4196) = B(411)-B(424)\nIF (DO_JVS(4197)) &\n! JVS(4197) = Jac_FULL(335,343)\n  JVS(4197) = -B(462)+B(463)+B(465)-B(468)\nIF (DO_JVS(4198)) &\n! JVS(4198) = Jac_FULL(335,344)\n  JVS(4198) = 0\nIF (DO_JVS(4199)) &\n! JVS(4199) = Jac_FULL(335,345)\n  JVS(4199) = -B(66)+B(72)+B(77)+B(82)+B(103)+B(153)+B(207)+B(242)+B(307)+B(544)+B(688)+B(690)+0.5*B(744)+0.5*B(773)+0.5&\n                &*B(781)+0.5*B(799)+0.5*B(819)+0.5*B(837)+0.3*B(866)+B(940)+B(942)+B(944)+B(946)+B(1096)+B(1100)+B(1102)&\n                &+B(1106)+B(1189)+B(1211)+0.565*B(1219)+0.31*B(1237)+B(1315)+0.022*B(1317)+B(1357)+B(1376)+B(1413)+B(1442)&\n                &+0.5*B(1458)\nIF (DO_JVS(4200)) &\n! JVS(4200) = Jac_FULL(335,346)\n  JVS(4200) = B(27)+B(43)+B(50)+2*B(80)+B(105)+B(109)+B(113)+B(119)+B(123)+B(129)+2*B(139)+0.942*B(149)+B(157)+B(163)&\n                &+B(172)+2*B(176)+B(178)+2*B(182)+B(184)+0.928*B(186)+B(188)+2*B(192)+B(209)+0.93*B(237)+B(244)+B(301)&\n                &+B(399)+B(466)+B(582)+B(666)+B(682)+B(694)+B(708)+0.75*B(738)+B(752)+0.84*B(765)+0.75*B(777)+B(791)+0.75&\n                &*B(803)+0.84*B(825)+B(841)+B(856)+B(902)+2*B(904)+B(988)+B(992)+B(996)+B(1000)+B(1033)+B(1040)+B(1047)&\n                &+B(1067)+B(1073)+B(1083)+B(1086)+B(1090)+1.728*B(1117)+B(1124)+B(1132)+B(1138)+B(1144)+2*B(1170)+B(1174)&\n                &+1.065*B(1203)+B(1207)+B(1215)+1.11*B(1221)+B(1247)+B(1253)+B(1273)+B(1284)+B(1288)+2*B(1294)+0.89*B(1353)&\n                &+0.995*B(1367)+B(1390)+B(1400)+B(1406)+B(1435)+B(1446)\nIF (DO_JVS(4201)) &\n! JVS(4201) = Jac_FULL(335,347)\n  JVS(4201) = B(400)-B(426)\nIF (DO_JVS(4202)) &\n! JVS(4202) = Jac_FULL(335,348)\n  JVS(4202) = 0\nIF (DO_JVS(4203)) &\n! JVS(4203) = Jac_FULL(335,349)\n  JVS(4203) = 0\nIF (DO_JVS(4204)) &\n! JVS(4204) = Jac_FULL(335,350)\n  JVS(4204) = 0\nIF (DO_JVS(4205)) &\n! JVS(4205) = Jac_FULL(335,351)\n  JVS(4205) = B(79)+2*B(81)+B(83)-B(85)+B(145)+B(305)+2*B(377)+B(412)+B(464)+B(740)+B(757)+B(767)+B(779)+B(795)+B(805)&\n                &+B(823)+B(829)+B(835)+B(846)+B(858)+0.5*B(864)+1.15*B(870)+0.5*B(876)+B(918)+2*B(920)+2*B(1166)+B(1168)+2&\n                &*B(1298)+B(1319)+B(1341)+B(1369)+B(1392)+B(1448)+B(1460)+B(1488)+B(1653)\nIF (DO_JVS(4206)) &\n! JVS(4206) = Jac_FULL(335,352)\n  JVS(4206) = 0\nIF (DO_JVS(4207)) &\n! JVS(4207) = Jac_FULL(335,353)\n  JVS(4207) = 0\nIF (DO_JVS(4208)) &\n! JVS(4208) = Jac_FULL(336,43)\n  JVS(4208) = B(553)\nIF (DO_JVS(4209)) &\n! JVS(4209) = Jac_FULL(336,52)\n  JVS(4209) = B(685)\nIF (DO_JVS(4210)) &\n! JVS(4210) = Jac_FULL(336,73)\n  JVS(4210) = B(675)\nIF (DO_JVS(4211)) &\n! JVS(4211) = Jac_FULL(336,84)\n  JVS(4211) = B(561)\nIF (DO_JVS(4212)) &\n! JVS(4212) = Jac_FULL(336,85)\n  JVS(4212) = B(557)\nIF (DO_JVS(4213)) &\n! JVS(4213) = Jac_FULL(336,86)\n  JVS(4213) = B(559)\nIF (DO_JVS(4214)) &\n! JVS(4214) = Jac_FULL(336,87)\n  JVS(4214) = B(555)\nIF (DO_JVS(4215)) &\n! JVS(4215) = Jac_FULL(336,105)\n  JVS(4215) = B(431)\nIF (DO_JVS(4216)) &\n! JVS(4216) = Jac_FULL(336,108)\n  JVS(4216) = B(76)\nIF (DO_JVS(4217)) &\n! JVS(4217) = Jac_FULL(336,116)\n  JVS(4217) = B(1687)\nIF (DO_JVS(4218)) &\n! JVS(4218) = Jac_FULL(336,164)\n  JVS(4218) = B(59)\nIF (DO_JVS(4219)) &\n! JVS(4219) = Jac_FULL(336,173)\n  JVS(4219) = B(1336)\nIF (DO_JVS(4220)) &\n! JVS(4220) = Jac_FULL(336,181)\n  JVS(4220) = B(547)\nIF (DO_JVS(4221)) &\n! JVS(4221) = Jac_FULL(336,183)\n  JVS(4221) = B(106)\nIF (DO_JVS(4222)) &\n! JVS(4222) = Jac_FULL(336,189)\n  JVS(4222) = 0\nIF (DO_JVS(4223)) &\n! JVS(4223) = Jac_FULL(336,196)\n  JVS(4223) = B(136)\nIF (DO_JVS(4224)) &\n! JVS(4224) = Jac_FULL(336,200)\n  JVS(4224) = 0\nIF (DO_JVS(4225)) &\n! JVS(4225) = Jac_FULL(336,201)\n  JVS(4225) = 0\nIF (DO_JVS(4226)) &\n! JVS(4226) = Jac_FULL(336,214)\n  JVS(4226) = -B(1496)\nIF (DO_JVS(4227)) &\n! JVS(4227) = Jac_FULL(336,217)\n  JVS(4227) = 0.02*B(475)\nIF (DO_JVS(4228)) &\n! JVS(4228) = Jac_FULL(336,218)\n  JVS(4228) = -B(1509)\nIF (DO_JVS(4229)) &\n! JVS(4229) = Jac_FULL(336,220)\n  JVS(4229) = 0\nIF (DO_JVS(4230)) &\n! JVS(4230) = Jac_FULL(336,221)\n  JVS(4230) = 0\nIF (DO_JVS(4231)) &\n! JVS(4231) = Jac_FULL(336,228)\n  JVS(4231) = B(47)\nIF (DO_JVS(4232)) &\n! JVS(4232) = Jac_FULL(336,239)\n  JVS(4232) = B(71)\nIF (DO_JVS(4233)) &\n! JVS(4233) = Jac_FULL(336,240)\n  JVS(4233) = 0\nIF (DO_JVS(4234)) &\n! JVS(4234) = Jac_FULL(336,241)\n  JVS(4234) = -B(713)-B(715)\nIF (DO_JVS(4235)) &\n! JVS(4235) = Jac_FULL(336,244)\n  JVS(4235) = B(61)\nIF (DO_JVS(4236)) &\n! JVS(4236) = Jac_FULL(336,246)\n  JVS(4236) = 0\nIF (DO_JVS(4237)) &\n! JVS(4237) = Jac_FULL(336,251)\n  JVS(4237) = B(195)\nIF (DO_JVS(4238)) &\n! JVS(4238) = Jac_FULL(336,252)\n  JVS(4238) = 0\nIF (DO_JVS(4239)) &\n! JVS(4239) = Jac_FULL(336,264)\n  JVS(4239) = B(40)\nIF (DO_JVS(4240)) &\n! JVS(4240) = Jac_FULL(336,265)\n  JVS(4240) = B(87)+B(611)\nIF (DO_JVS(4241)) &\n! JVS(4241) = Jac_FULL(336,269)\n  JVS(4241) = 0\nIF (DO_JVS(4242)) &\n! JVS(4242) = Jac_FULL(336,271)\n  JVS(4242) = 0\nIF (DO_JVS(4243)) &\n! JVS(4243) = Jac_FULL(336,276)\n  JVS(4243) = 0\nIF (DO_JVS(4244)) &\n! JVS(4244) = Jac_FULL(336,279)\n  JVS(4244) = B(197)\nIF (DO_JVS(4245)) &\n! JVS(4245) = Jac_FULL(336,283)\n  JVS(4245) = B(199)\nIF (DO_JVS(4246)) &\n! JVS(4246) = Jac_FULL(336,287)\n  JVS(4246) = 0\nIF (DO_JVS(4247)) &\n! JVS(4247) = Jac_FULL(336,289)\n  JVS(4247) = 0\nIF (DO_JVS(4248)) &\n! JVS(4248) = Jac_FULL(336,290)\n  JVS(4248) = 0\nIF (DO_JVS(4249)) &\n! JVS(4249) = Jac_FULL(336,291)\n  JVS(4249) = 0\nIF (DO_JVS(4250)) &\n! JVS(4250) = Jac_FULL(336,292)\n  JVS(4250) = B(234)\nIF (DO_JVS(4251)) &\n! JVS(4251) = Jac_FULL(336,295)\n  JVS(4251) = B(212)\nIF (DO_JVS(4252)) &\n! JVS(4252) = Jac_FULL(336,296)\n  JVS(4252) = 0\nIF (DO_JVS(4253)) &\n! JVS(4253) = Jac_FULL(336,297)\n  JVS(4253) = 0\nIF (DO_JVS(4254)) &\n! JVS(4254) = Jac_FULL(336,298)\n  JVS(4254) = B(201)\nIF (DO_JVS(4255)) &\n! JVS(4255) = Jac_FULL(336,300)\n  JVS(4255) = 0\nIF (DO_JVS(4256)) &\n! JVS(4256) = Jac_FULL(336,301)\n  JVS(4256) = 0\nIF (DO_JVS(4257)) &\n! JVS(4257) = Jac_FULL(336,302)\n  JVS(4257) = 0\nIF (DO_JVS(4258)) &\n! JVS(4258) = Jac_FULL(336,303)\n  JVS(4258) = 0\nIF (DO_JVS(4259)) &\n! JVS(4259) = Jac_FULL(336,304)\n  JVS(4259) = 0\nIF (DO_JVS(4260)) &\n! JVS(4260) = Jac_FULL(336,305)\n  JVS(4260) = 0\nIF (DO_JVS(4261)) &\n! JVS(4261) = Jac_FULL(336,306)\n  JVS(4261) = 0\nIF (DO_JVS(4262)) &\n! JVS(4262) = Jac_FULL(336,307)\n  JVS(4262) = 0\nIF (DO_JVS(4263)) &\n! JVS(4263) = Jac_FULL(336,308)\n  JVS(4263) = 0\nIF (DO_JVS(4264)) &\n! JVS(4264) = Jac_FULL(336,309)\n  JVS(4264) = 0\nIF (DO_JVS(4265)) &\n! JVS(4265) = Jac_FULL(336,310)\n  JVS(4265) = 0\nIF (DO_JVS(4266)) &\n! JVS(4266) = Jac_FULL(336,311)\n  JVS(4266) = 0\nIF (DO_JVS(4267)) &\n! JVS(4267) = Jac_FULL(336,312)\n  JVS(4267) = -B(697)-2*B(699)\nIF (DO_JVS(4268)) &\n! JVS(4268) = Jac_FULL(336,313)\n  JVS(4268) = 0\nIF (DO_JVS(4269)) &\n! JVS(4269) = Jac_FULL(336,314)\n  JVS(4269) = 0\nIF (DO_JVS(4270)) &\n! JVS(4270) = Jac_FULL(336,315)\n  JVS(4270) = 0\nIF (DO_JVS(4271)) &\n! JVS(4271) = Jac_FULL(336,316)\n  JVS(4271) = B(1549)+B(1551)+B(1553)+B(1555)\nIF (DO_JVS(4272)) &\n! JVS(4272) = Jac_FULL(336,317)\n  JVS(4272) = -B(1513)\nIF (DO_JVS(4273)) &\n! JVS(4273) = Jac_FULL(336,318)\n  JVS(4273) = 0\nIF (DO_JVS(4274)) &\n! JVS(4274) = Jac_FULL(336,319)\n  JVS(4274) = 0\nIF (DO_JVS(4275)) &\n! JVS(4275) = Jac_FULL(336,320)\n  JVS(4275) = 0\nIF (DO_JVS(4276)) &\n! JVS(4276) = Jac_FULL(336,321)\n  JVS(4276) = 0\nIF (DO_JVS(4277)) &\n! JVS(4277) = Jac_FULL(336,322)\n  JVS(4277) = 0\nIF (DO_JVS(4278)) &\n! JVS(4278) = Jac_FULL(336,323)\n  JVS(4278) = 0\nIF (DO_JVS(4279)) &\n! JVS(4279) = Jac_FULL(336,324)\n  JVS(4279) = 0\nIF (DO_JVS(4280)) &\n! JVS(4280) = Jac_FULL(336,325)\n  JVS(4280) = B(63)\nIF (DO_JVS(4281)) &\n! JVS(4281) = Jac_FULL(336,326)\n  JVS(4281) = B(95)\nIF (DO_JVS(4282)) &\n! JVS(4282) = Jac_FULL(336,327)\n  JVS(4282) = B(67)\nIF (DO_JVS(4283)) &\n! JVS(4283) = Jac_FULL(336,328)\n  JVS(4283) = 0\nIF (DO_JVS(4284)) &\n! JVS(4284) = Jac_FULL(336,329)\n  JVS(4284) = 0\nIF (DO_JVS(4285)) &\n! JVS(4285) = Jac_FULL(336,330)\n  JVS(4285) = B(677)\nIF (DO_JVS(4286)) &\n! JVS(4286) = Jac_FULL(336,331)\n  JVS(4286) = 0\nIF (DO_JVS(4287)) &\n! JVS(4287) = Jac_FULL(336,332)\n  JVS(4287) = -B(1589)\nIF (DO_JVS(4288)) &\n! JVS(4288) = Jac_FULL(336,333)\n  JVS(4288) = B(541)+B(1539)+B(1541)+B(1543)+B(1545)\nIF (DO_JVS(4289)) &\n! JVS(4289) = Jac_FULL(336,334)\n  JVS(4289) = -B(433)\nIF (DO_JVS(4290)) &\n! JVS(4290) = Jac_FULL(336,335)\n  JVS(4290) = 0\nIF (DO_JVS(4291)) &\n! JVS(4291) = Jac_FULL(336,336)\n  JVS(4291) = -B(434)-B(698)-2*B(700)-B(714)-B(716)-B(1497)-B(1510)-B(1514)-B(1590)\nIF (DO_JVS(4292)) &\n! JVS(4292) = Jac_FULL(336,337)\n  JVS(4292) = B(38)+0.02*B(476)+B(1491)\nIF (DO_JVS(4293)) &\n! JVS(4293) = Jac_FULL(336,338)\n  JVS(4293) = 0\nIF (DO_JVS(4294)) &\n! JVS(4294) = Jac_FULL(336,339)\n  JVS(4294) = B(539)+B(1540)+B(1552)\nIF (DO_JVS(4295)) &\n! JVS(4295) = Jac_FULL(336,340)\n  JVS(4295) = B(612)\nIF (DO_JVS(4296)) &\n! JVS(4296) = Jac_FULL(336,341)\n  JVS(4296) = 0\nIF (DO_JVS(4297)) &\n! JVS(4297) = Jac_FULL(336,342)\n  JVS(4297) = 0\nIF (DO_JVS(4298)) &\n! JVS(4298) = Jac_FULL(336,343)\n  JVS(4298) = 0\nIF (DO_JVS(4299)) &\n! JVS(4299) = Jac_FULL(336,344)\n  JVS(4299) = B(1546)+B(1556)\nIF (DO_JVS(4300)) &\n! JVS(4300) = Jac_FULL(336,345)\n  JVS(4300) = B(36)+B(39)+B(41)+B(48)+B(60)+B(62)+B(64)+B(68)+B(72)+B(77)+B(88)+B(96)+B(107)+B(137)+B(196)+B(198)+B(200)&\n                &+B(202)+B(213)+B(235)+B(395)+B(432)+B(449)+B(540)+B(542)+B(548)+B(554)+B(556)+B(558)+B(560)+B(562)+B(676)&\n                &+B(678)+B(686)+B(1337)\nIF (DO_JVS(4301)) &\n! JVS(4301) = Jac_FULL(336,346)\n  JVS(4301) = 0\nIF (DO_JVS(4302)) &\n! JVS(4302) = Jac_FULL(336,347)\n  JVS(4302) = 0\nIF (DO_JVS(4303)) &\n! JVS(4303) = Jac_FULL(336,348)\n  JVS(4303) = 0\nIF (DO_JVS(4304)) &\n! JVS(4304) = Jac_FULL(336,349)\n  JVS(4304) = 0\nIF (DO_JVS(4305)) &\n! JVS(4305) = Jac_FULL(336,350)\n  JVS(4305) = 0\nIF (DO_JVS(4306)) &\n! JVS(4306) = Jac_FULL(336,351)\n  JVS(4306) = 0\nIF (DO_JVS(4307)) &\n! JVS(4307) = Jac_FULL(336,352)\n  JVS(4307) = B(396)+B(1542)+B(1550)\nIF (DO_JVS(4308)) &\n! JVS(4308) = Jac_FULL(336,353)\n  JVS(4308) = B(1544)+B(1554)\nIF (DO_JVS(4309)) &\n! JVS(4309) = Jac_FULL(337,60)\n  JVS(4309) = 0.364*B(1362)\nIF (DO_JVS(4310)) &\n! JVS(4310) = Jac_FULL(337,72)\n  JVS(4310) = B(308)\nIF (DO_JVS(4311)) &\n! JVS(4311) = Jac_FULL(337,75)\n  JVS(4311) = B(551)+B(609)\nIF (DO_JVS(4312)) &\n! JVS(4312) = Jac_FULL(337,79)\n  JVS(4312) = B(549)+B(607)\nIF (DO_JVS(4313)) &\n! JVS(4313) = Jac_FULL(337,80)\n  JVS(4313) = B(1741)\nIF (DO_JVS(4314)) &\n! JVS(4314) = Jac_FULL(337,82)\n  JVS(4314) = 0.19*B(1383)\nIF (DO_JVS(4315)) &\n! JVS(4315) = Jac_FULL(337,83)\n  JVS(4315) = B(1758)\nIF (DO_JVS(4316)) &\n! JVS(4316) = Jac_FULL(337,88)\n  JVS(4316) = 0.5*B(1322)\nIF (DO_JVS(4317)) &\n! JVS(4317) = Jac_FULL(337,91)\n  JVS(4317) = B(1759)\nIF (DO_JVS(4318)) &\n! JVS(4318) = Jac_FULL(337,93)\n  JVS(4318) = B(1757)\nIF (DO_JVS(4319)) &\n! JVS(4319) = Jac_FULL(337,95)\n  JVS(4319) = B(1760)\nIF (DO_JVS(4320)) &\n! JVS(4320) = Jac_FULL(337,97)\n  JVS(4320) = B(1680)\nIF (DO_JVS(4321)) &\n! JVS(4321) = Jac_FULL(337,98)\n  JVS(4321) = B(1681)\nIF (DO_JVS(4322)) &\n! JVS(4322) = Jac_FULL(337,99)\n  JVS(4322) = B(1678)\nIF (DO_JVS(4323)) &\n! JVS(4323) = Jac_FULL(337,100)\n  JVS(4323) = B(1679)\nIF (DO_JVS(4324)) &\n! JVS(4324) = Jac_FULL(337,101)\n  JVS(4324) = 0.15*B(1385)\nIF (DO_JVS(4325)) &\n! JVS(4325) = Jac_FULL(337,102)\n  JVS(4325) = B(1682)\nIF (DO_JVS(4326)) &\n! JVS(4326) = Jac_FULL(337,105)\n  JVS(4326) = B(431)\nIF (DO_JVS(4327)) &\n! JVS(4327) = Jac_FULL(337,106)\n  JVS(4327) = B(1372)+B(1373)\nIF (DO_JVS(4328)) &\n! JVS(4328) = Jac_FULL(337,108)\n  JVS(4328) = B(75)+B(1652)\nIF (DO_JVS(4329)) &\n! JVS(4329) = Jac_FULL(337,111)\n  JVS(4329) = B(1807)\nIF (DO_JVS(4330)) &\n! JVS(4330) = Jac_FULL(337,112)\n  JVS(4330) = B(1812)\nIF (DO_JVS(4331)) &\n! JVS(4331) = Jac_FULL(337,115)\n  JVS(4331) = B(1763)\nIF (DO_JVS(4332)) &\n! JVS(4332) = Jac_FULL(337,116)\n  JVS(4332) = B(1356)+B(1687)\nIF (DO_JVS(4333)) &\n! JVS(4333) = Jac_FULL(337,118)\n  JVS(4333) = B(1677)\nIF (DO_JVS(4334)) &\n! JVS(4334) = Jac_FULL(337,119)\n  JVS(4334) = B(1013)\nIF (DO_JVS(4335)) &\n! JVS(4335) = Jac_FULL(337,121)\n  JVS(4335) = B(1399)-B(1401)\nIF (DO_JVS(4336)) &\n! JVS(4336) = Jac_FULL(337,123)\n  JVS(4336) = B(1683)\nIF (DO_JVS(4337)) &\n! JVS(4337) = Jac_FULL(337,125)\n  JVS(4337) = B(1676)\nIF (DO_JVS(4338)) &\n! JVS(4338) = Jac_FULL(337,127)\n  JVS(4338) = B(152)\nIF (DO_JVS(4339)) &\n! JVS(4339) = Jac_FULL(337,128)\n  JVS(4339) = 0.75*B(1052)\nIF (DO_JVS(4340)) &\n! JVS(4340) = Jac_FULL(337,131)\n  JVS(4340) = B(1262)\nIF (DO_JVS(4341)) &\n! JVS(4341) = Jac_FULL(337,132)\n  JVS(4341) = B(156)\nIF (DO_JVS(4342)) &\n! JVS(4342) = Jac_FULL(337,133)\n  JVS(4342) = -B(1087)\nIF (DO_JVS(4343)) &\n! JVS(4343) = Jac_FULL(337,135)\n  JVS(4343) = -B(1091)\nIF (DO_JVS(4344)) &\n! JVS(4344) = Jac_FULL(337,136)\n  JVS(4344) = 0\nIF (DO_JVS(4345)) &\n! JVS(4345) = Jac_FULL(337,137)\n  JVS(4345) = 0.5*B(743)\nIF (DO_JVS(4346)) &\n! JVS(4346) = Jac_FULL(337,138)\n  JVS(4346) = 0.5*B(780)\nIF (DO_JVS(4347)) &\n! JVS(4347) = Jac_FULL(337,143)\n  JVS(4347) = 0.54*B(1381)\nIF (DO_JVS(4348)) &\n! JVS(4348) = Jac_FULL(337,144)\n  JVS(4348) = B(1782)\nIF (DO_JVS(4349)) &\n! JVS(4349) = Jac_FULL(337,145)\n  JVS(4349) = B(1177)\nIF (DO_JVS(4350)) &\n! JVS(4350) = Jac_FULL(337,146)\n  JVS(4350) = B(1661)\nIF (DO_JVS(4351)) &\n! JVS(4351) = Jac_FULL(337,147)\n  JVS(4351) = 0.444*B(1308)+1.454*B(1796)\nIF (DO_JVS(4352)) &\n! JVS(4352) = Jac_FULL(337,149)\n  JVS(4352) = 0.18*B(1344)\nIF (DO_JVS(4353)) &\n! JVS(4353) = Jac_FULL(337,150)\n  JVS(4353) = B(1781)\nIF (DO_JVS(4354)) &\n! JVS(4354) = Jac_FULL(337,151)\n  JVS(4354) = B(1054)\nIF (DO_JVS(4355)) &\n! JVS(4355) = Jac_FULL(337,152)\n  JVS(4355) = B(1058)\nIF (DO_JVS(4356)) &\n! JVS(4356) = Jac_FULL(337,153)\n  JVS(4356) = B(1268)\nIF (DO_JVS(4357)) &\n! JVS(4357) = Jac_FULL(337,155)\n  JVS(4357) = B(1684)\nIF (DO_JVS(4358)) &\n! JVS(4358) = Jac_FULL(337,156)\n  JVS(4358) = B(269)\nIF (DO_JVS(4359)) &\n! JVS(4359) = Jac_FULL(337,158)\n  JVS(4359) = 0.727*B(1418)\nIF (DO_JVS(4360)) &\n! JVS(4360) = Jac_FULL(337,161)\n  JVS(4360) = B(1813)\nIF (DO_JVS(4361)) &\n! JVS(4361) = Jac_FULL(337,164)\n  JVS(4361) = B(1646)\nIF (DO_JVS(4362)) &\n! JVS(4362) = Jac_FULL(337,165)\n  JVS(4362) = -B(140)\nIF (DO_JVS(4363)) &\n! JVS(4363) = Jac_FULL(337,168)\n  JVS(4363) = B(1785)\nIF (DO_JVS(4364)) &\n! JVS(4364) = Jac_FULL(337,171)\n  JVS(4364) = -B(1248)\nIF (DO_JVS(4365)) &\n! JVS(4365) = Jac_FULL(337,172)\n  JVS(4365) = -B(1254)\nIF (DO_JVS(4366)) &\n! JVS(4366) = Jac_FULL(337,174)\n  JVS(4366) = 0.75*B(1794)\nIF (DO_JVS(4367)) &\n! JVS(4367) = Jac_FULL(337,175)\n  JVS(4367) = B(1784)\nIF (DO_JVS(4368)) &\n! JVS(4368) = Jac_FULL(337,178)\n  JVS(4368) = 0.75*B(128)-B(132)\nIF (DO_JVS(4369)) &\n! JVS(4369) = Jac_FULL(337,180)\n  JVS(4369) = 0.89*B(1220)-0.27*B(1222)\nIF (DO_JVS(4370)) &\n! JVS(4370) = Jac_FULL(337,181)\n  JVS(4370) = B(547)+B(605)\nIF (DO_JVS(4371)) &\n! JVS(4371) = Jac_FULL(337,182)\n  JVS(4371) = 0.33*B(1214)-0.67*B(1216)\nIF (DO_JVS(4372)) &\n! JVS(4372) = Jac_FULL(337,185)\n  JVS(4372) = 0.571*B(1768)\nIF (DO_JVS(4373)) &\n! JVS(4373) = Jac_FULL(337,186)\n  JVS(4373) = 0.159*B(1788)\nIF (DO_JVS(4374)) &\n! JVS(4374) = Jac_FULL(337,187)\n  JVS(4374) = 0.25*B(1023)+B(1775)\nIF (DO_JVS(4375)) &\n! JVS(4375) = Jac_FULL(337,188)\n  JVS(4375) = B(271)\nIF (DO_JVS(4376)) &\n! JVS(4376) = Jac_FULL(337,189)\n  JVS(4376) = B(1352)-B(1354)\nIF (DO_JVS(4377)) &\n! JVS(4377) = Jac_FULL(337,190)\n  JVS(4377) = B(1120)-0.401*B(1121)+B(1123)\nIF (DO_JVS(4378)) &\n! JVS(4378) = Jac_FULL(337,192)\n  JVS(4378) = 0.33*B(1025)+B(1776)\nIF (DO_JVS(4379)) &\n! JVS(4379) = Jac_FULL(337,194)\n  JVS(4379) = 0.715*B(1258)+0.125*B(1769)\nIF (DO_JVS(4380)) &\n! JVS(4380) = Jac_FULL(337,195)\n  JVS(4380) = 0.8*B(1414)\nIF (DO_JVS(4381)) &\n! JVS(4381) = Jac_FULL(337,196)\n  JVS(4381) = 0.326*B(1686)\nIF (DO_JVS(4382)) &\n! JVS(4382) = Jac_FULL(337,197)\n  JVS(4382) = -0.75*B(160)+B(162)\nIF (DO_JVS(4383)) &\n! JVS(4383) = Jac_FULL(337,198)\n  JVS(4383) = B(1795)\nIF (DO_JVS(4384)) &\n! JVS(4384) = Jac_FULL(337,199)\n  JVS(4384) = 0.042*B(1029)+B(1778)\nIF (DO_JVS(4385)) &\n! JVS(4385) = Jac_FULL(337,200)\n  JVS(4385) = 0.03*B(1348)\nIF (DO_JVS(4386)) &\n! JVS(4386) = Jac_FULL(337,201)\n  JVS(4386) = 0.33*B(1470)+0.1*B(1472)+0.2*B(1474)\nIF (DO_JVS(4387)) &\n! JVS(4387) = Jac_FULL(337,202)\n  JVS(4387) = B(1424)\nIF (DO_JVS(4388)) &\n! JVS(4388) = Jac_FULL(337,204)\n  JVS(4388) = B(1802)\nIF (DO_JVS(4389)) &\n! JVS(4389) = Jac_FULL(337,205)\n  JVS(4389) = B(1113)-0.941*B(1114)+0.272*B(1116)\nIF (DO_JVS(4390)) &\n! JVS(4390) = Jac_FULL(337,206)\n  JVS(4390) = B(1127)-0.418*B(1129)+B(1131)\nIF (DO_JVS(4391)) &\n! JVS(4391) = Jac_FULL(337,207)\n  JVS(4391) = B(1128)-0.494*B(1135)+B(1137)\nIF (DO_JVS(4392)) &\n! JVS(4392) = Jac_FULL(337,208)\n  JVS(4392) = B(1266)+B(1765)\nIF (DO_JVS(4393)) &\n! JVS(4393) = Jac_FULL(337,209)\n  JVS(4393) = 0.024*B(1027)+B(1777)\nIF (DO_JVS(4394)) &\n! JVS(4394) = Jac_FULL(337,210)\n  JVS(4394) = B(1762)\nIF (DO_JVS(4395)) &\n! JVS(4395) = Jac_FULL(337,212)\n  JVS(4395) = 0.513*B(148)-B(150)\nIF (DO_JVS(4396)) &\n! JVS(4396) = Jac_FULL(337,213)\n  JVS(4396) = B(300)-0.56*B(302)+B(304)\nIF (DO_JVS(4397)) &\n! JVS(4397) = Jac_FULL(337,216)\n  JVS(4397) = B(1774)\nIF (DO_JVS(4398)) &\n! JVS(4398) = Jac_FULL(337,217)\n  JVS(4398) = B(471)-B(475)\nIF (DO_JVS(4399)) &\n! JVS(4399) = Jac_FULL(337,219)\n  JVS(4399) = 0.05*B(729)\nIF (DO_JVS(4400)) &\n! JVS(4400) = Jac_FULL(337,220)\n  JVS(4400) = 0.7*B(1338)+0.1*B(1342)\nIF (DO_JVS(4401)) &\n! JVS(4401) = Jac_FULL(337,221)\n  JVS(4401) = 0.33*B(1465)+0.1*B(1467)+0.2*B(1469)\nIF (DO_JVS(4402)) &\n! JVS(4402) = Jac_FULL(337,222)\n  JVS(4402) = 0.33*B(1787)\nIF (DO_JVS(4403)) &\n! JVS(4403) = Jac_FULL(337,223)\n  JVS(4403) = B(1032)-0.725*B(1036)\nIF (DO_JVS(4404)) &\n! JVS(4404) = Jac_FULL(337,224)\n  JVS(4404) = B(1039)-0.725*B(1043)\nIF (DO_JVS(4405)) &\n! JVS(4405) = Jac_FULL(337,225)\n  JVS(4405) = B(1808)\nIF (DO_JVS(4406)) &\n! JVS(4406) = Jac_FULL(337,226)\n  JVS(4406) = -0.42*B(1200)+0.904*B(1206)\nIF (DO_JVS(4407)) &\n! JVS(4407) = Jac_FULL(337,227)\n  JVS(4407) = 1.5*B(1766)\nIF (DO_JVS(4408)) &\n! JVS(4408) = Jac_FULL(337,228)\n  JVS(4408) = 0.2*B(443)\nIF (DO_JVS(4409)) &\n! JVS(4409) = Jac_FULL(337,229)\n  JVS(4409) = B(1748)+B(1816)\nIF (DO_JVS(4410)) &\n! JVS(4410) = Jac_FULL(337,230)\n  JVS(4410) = 0.085*B(1001)+0.112*B(1779)\nIF (DO_JVS(4411)) &\n! JVS(4411) = Jac_FULL(337,231)\n  JVS(4411) = 0.165*B(1003)+0.182*B(1780)\nIF (DO_JVS(4412)) &\n! JVS(4412) = Jac_FULL(337,232)\n  JVS(4412) = -B(1050)\nIF (DO_JVS(4413)) &\n! JVS(4413) = Jac_FULL(337,233)\n  JVS(4413) = 0.425*B(154)+0.3*B(1660)\nIF (DO_JVS(4414)) &\n! JVS(4414) = Jac_FULL(337,234)\n  JVS(4414) = -B(1364)+0.6*B(1370)\nIF (DO_JVS(4415)) &\n! JVS(4415) = Jac_FULL(337,235)\n  JVS(4415) = -B(1432)+B(1463)\nIF (DO_JVS(4416)) &\n! JVS(4416) = Jac_FULL(337,236)\n  JVS(4416) = -B(1449)+B(1461)\nIF (DO_JVS(4417)) &\n! JVS(4417) = Jac_FULL(337,238)\n  JVS(4417) = 0.283*B(1009)\nIF (DO_JVS(4418)) &\n! JVS(4418) = Jac_FULL(337,240)\n  JVS(4418) = -B(1407)\nIF (DO_JVS(4419)) &\n! JVS(4419) = Jac_FULL(337,243)\n  JVS(4419) = -0.35*B(1078)+B(1082)+B(1084)\nIF (DO_JVS(4420)) &\n! JVS(4420) = Jac_FULL(337,246)\n  JVS(4420) = -B(245)\nIF (DO_JVS(4421)) &\n! JVS(4421) = Jac_FULL(337,248)\n  JVS(4421) = B(1773)\nIF (DO_JVS(4422)) &\n! JVS(4422) = Jac_FULL(337,249)\n  JVS(4422) = -B(224)+0.5*B(259)\nIF (DO_JVS(4423)) &\n! JVS(4423) = Jac_FULL(337,250)\n  JVS(4423) = -B(232)+0.5*B(267)\nIF (DO_JVS(4424)) &\n! JVS(4424) = Jac_FULL(337,251)\n  JVS(4424) = 0.27*B(1685)\nIF (DO_JVS(4425)) &\n! JVS(4425) = Jac_FULL(337,253)\n  JVS(4425) = -0.493*B(1276)+0.86*B(1283)\nIF (DO_JVS(4426)) &\n! JVS(4426) = Jac_FULL(337,254)\n  JVS(4426) = -0.695*B(1270)+0.242*B(1272)\nIF (DO_JVS(4427)) &\n! JVS(4427) = Jac_FULL(337,255)\n  JVS(4427) = B(1817)\nIF (DO_JVS(4428)) &\n! JVS(4428) = Jac_FULL(337,257)\n  JVS(4428) = -B(749)+0.75*B(893)\nIF (DO_JVS(4429)) &\n! JVS(4429) = Jac_FULL(337,258)\n  JVS(4429) = 0.5*B(1306)+1.5*B(1792)+B(1793)\nIF (DO_JVS(4430)) &\n! JVS(4430) = Jac_FULL(337,259)\n  JVS(4430) = -B(1278)\nIF (DO_JVS(4431)) &\n! JVS(4431) = Jac_FULL(337,260)\n  JVS(4431) = B(122)+B(216)-B(281)+0.9*B(369)\nIF (DO_JVS(4432)) &\n! JVS(4432) = Jac_FULL(337,261)\n  JVS(4432) = B(1749)\nIF (DO_JVS(4433)) &\n! JVS(4433) = Jac_FULL(337,262)\n  JVS(4433) = B(871)+0.5*B(875)\nIF (DO_JVS(4434)) &\n! JVS(4434) = Jac_FULL(337,263)\n  JVS(4434) = B(1389)+B(1391)+2*B(1393)+B(1395)\nIF (DO_JVS(4435)) &\n! JVS(4435) = Jac_FULL(337,264)\n  JVS(4435) = B(40)+B(469)+B(571)\nIF (DO_JVS(4436)) &\n! JVS(4436) = Jac_FULL(337,265)\n  JVS(4436) = B(87)\nIF (DO_JVS(4437)) &\n! JVS(4437) = Jac_FULL(337,266)\n  JVS(4437) = B(1800)\nIF (DO_JVS(4438)) &\n! JVS(4438) = Jac_FULL(337,267)\n  JVS(4438) = 0.4*B(1111)+0.45*B(1786)\nIF (DO_JVS(4439)) &\n! JVS(4439) = Jac_FULL(337,268)\n  JVS(4439) = 0.4*B(1109)+0.45*B(1783)\nIF (DO_JVS(4440)) &\n! JVS(4440) = Jac_FULL(337,269)\n  JVS(4440) = B(1805)\nIF (DO_JVS(4441)) &\n! JVS(4441) = Jac_FULL(337,270)\n  JVS(4441) = B(312)+B(316)+2*B(1667)\nIF (DO_JVS(4442)) &\n! JVS(4442) = Jac_FULL(337,271)\n  JVS(4442) = -0.674*B(1198)+0.5*B(1202)\nIF (DO_JVS(4443)) &\n! JVS(4443) = Jac_FULL(337,272)\n  JVS(4443) = 0.84*B(824)-B(826)+B(828)+B(830)\nIF (DO_JVS(4444)) &\n! JVS(4444) = Jac_FULL(337,273)\n  JVS(4444) = -B(786)+B(790)+B(792)+B(794)\nIF (DO_JVS(4445)) &\n! JVS(4445) = Jac_FULL(337,274)\n  JVS(4445) = -B(838)+0.75*B(897)\nIF (DO_JVS(4446)) &\n! JVS(4446) = Jac_FULL(337,275)\n  JVS(4446) = -B(774)+0.75*B(776)+B(778)+1.75*B(881)+B(883)\nIF (DO_JVS(4447)) &\n! JVS(4447) = Jac_FULL(337,276)\n  JVS(4447) = 0.16*B(947)+0.4*B(953)+0.7*B(955)\nIF (DO_JVS(4448)) &\n! JVS(4448) = Jac_FULL(337,277)\n  JVS(4448) = -B(735)+0.75*B(737)+B(739)+1.75*B(877)+B(879)\nIF (DO_JVS(4449)) &\n! JVS(4449) = Jac_FULL(337,278)\n  JVS(4449) = -B(762)+B(768)\nIF (DO_JVS(4450)) &\n! JVS(4450) = Jac_FULL(337,279)\n  JVS(4450) = 0.27*B(1688)\nIF (DO_JVS(4451)) &\n! JVS(4451) = Jac_FULL(337,280)\n  JVS(4451) = B(901)-B(905)+2*B(909)+B(913)+B(917)+B(921)+0.5*B(922)\nIF (DO_JVS(4452)) &\n! JVS(4452) = Jac_FULL(337,281)\n  JVS(4452) = -B(800)+0.75*B(802)+B(804)+1.75*B(885)+B(887)\nIF (DO_JVS(4453)) &\n! JVS(4453) = Jac_FULL(337,282)\n  JVS(4453) = B(89)+B(623)\nIF (DO_JVS(4454)) &\n! JVS(4454) = Jac_FULL(337,284)\n  JVS(4454) = -B(679)\nIF (DO_JVS(4455)) &\n! JVS(4455) = Jac_FULL(337,285)\n  JVS(4455) = B(1070)+B(1072)-0.35*B(1076)\nIF (DO_JVS(4456)) &\n! JVS(4456) = Jac_FULL(337,286)\n  JVS(4456) = B(1062)-0.35*B(1064)+B(1066)\nIF (DO_JVS(4457)) &\n! JVS(4457) = Jac_FULL(337,287)\n  JVS(4457) = B(1770)\nIF (DO_JVS(4458)) &\n! JVS(4458) = Jac_FULL(337,288)\n  JVS(4458) = 0.47*B(1767)\nIF (DO_JVS(4459)) &\n! JVS(4459) = Jac_FULL(337,289)\n  JVS(4459) = -B(907)+0.5*B(911)+0.5*B(923)\nIF (DO_JVS(4460)) &\n! JVS(4460) = Jac_FULL(337,290)\n  JVS(4460) = 0.28*B(287)\nIF (DO_JVS(4461)) &\n! JVS(4461) = Jac_FULL(337,291)\n  JVS(4461) = -B(851)+B(855)+B(857)+1.75*B(889)+B(891)\nIF (DO_JVS(4462)) &\n! JVS(4462) = Jac_FULL(337,293)\n  JVS(4462) = -0.621*B(1141)+B(1143)\nIF (DO_JVS(4463)) &\n! JVS(4463) = Jac_FULL(337,294)\n  JVS(4463) = B(1670)\nIF (DO_JVS(4464)) &\n! JVS(4464) = Jac_FULL(337,296)\n  JVS(4464) = B(108)+B(247)+1.2*B(273)-B(275)+0.9*B(365)+B(619)\nIF (DO_JVS(4465)) &\n! JVS(4465) = Jac_FULL(337,298)\n  JVS(4465) = B(1662)\nIF (DO_JVS(4466)) &\n! JVS(4466) = Jac_FULL(337,299)\n  JVS(4466) = 0.228*B(1791)\nIF (DO_JVS(4467)) &\n! JVS(4467) = Jac_FULL(337,300)\n  JVS(4467) = 0.27*B(171)-B(222)+0.64*B(257)+0.243*B(351)\nIF (DO_JVS(4468)) &\n! JVS(4468) = Jac_FULL(337,301)\n  JVS(4468) = 0.295*B(1212)+0.161*B(1790)\nIF (DO_JVS(4469)) &\n! JVS(4469) = Jac_FULL(337,302)\n  JVS(4469) = 0.29*B(1772)\nIF (DO_JVS(4470)) &\n! JVS(4470) = Jac_FULL(337,303)\n  JVS(4470) = 0.62*B(1316)+0.7*B(1797)+0.7*B(1798)\nIF (DO_JVS(4471)) &\n! JVS(4471) = Jac_FULL(337,304)\n  JVS(4471) = -0.937*B(961)-B(963)+0.7*B(968)+2*B(970)+2*B(971)+B(974)+B(975)+2*B(981)+1.5*B(983)+B(995)+0.45*B(999)\nIF (DO_JVS(4472)) &\n! JVS(4472) = Jac_FULL(337,305)\n  JVS(4472) = -0.937*B(957)-B(959)+0.4*B(966)+2*B(969)+2*B(972)+B(973)+B(976)+2*B(977)+1.5*B(979)+B(987)+0.45*B(991)\nIF (DO_JVS(4473)) &\n! JVS(4473) = Jac_FULL(337,306)\n  JVS(4473) = 0.773*B(289)+0.2*B(293)+1.73*B(1666)\nIF (DO_JVS(4474)) &\n! JVS(4474) = Jac_FULL(337,307)\n  JVS(4474) = B(320)+B(1675)\nIF (DO_JVS(4475)) &\n! JVS(4475) = Jac_FULL(337,308)\n  JVS(4475) = -B(1291)+0.7*B(1299)\nIF (DO_JVS(4476)) &\n! JVS(4476) = Jac_FULL(337,309)\n  JVS(4476) = 0.036*B(1228)+B(1674)\nIF (DO_JVS(4477)) &\n! JVS(4477) = Jac_FULL(337,310)\n  JVS(4477) = -B(1149)+0.089*B(1154)+0.611*B(1159)\nIF (DO_JVS(4478)) &\n! JVS(4478) = Jac_FULL(337,311)\n  JVS(4478) = -B(1151)+0.089*B(1155)+0.064*B(1156)+0.336*B(1157)+0.159*B(1163)+0.159*B(1167)+0.159*B(1173)\nIF (DO_JVS(4479)) &\n! JVS(4479) = Jac_FULL(337,312)\n  JVS(4479) = 0\nIF (DO_JVS(4480)) &\n! JVS(4480) = Jac_FULL(337,313)\n  JVS(4480) = -B(226)+0.3*B(261)\nIF (DO_JVS(4481)) &\n! JVS(4481) = Jac_FULL(337,314)\n  JVS(4481) = 0.1*B(1226)+B(1672)\nIF (DO_JVS(4482)) &\n! JVS(4482) = Jac_FULL(337,315)\n  JVS(4482) = B(112)+B(249)+1.2*B(274)-B(277)+0.9*B(367)+B(621)\nIF (DO_JVS(4483)) &\n! JVS(4483) = Jac_FULL(337,318)\n  JVS(4483) = -B(220)+0.5*B(255)\nIF (DO_JVS(4484)) &\n! JVS(4484) = Jac_FULL(337,319)\n  JVS(4484) = 0.27*B(177)-B(218)+0.64*B(253)+0.243*B(349)\nIF (DO_JVS(4485)) &\n! JVS(4485) = Jac_FULL(337,320)\n  JVS(4485) = -B(228)+0.5*B(263)\nIF (DO_JVS(4486)) &\n! JVS(4486) = Jac_FULL(337,321)\n  JVS(4486) = B(118)+B(214)-B(279)+0.9*B(371)\nIF (DO_JVS(4487)) &\n! JVS(4487) = Jac_FULL(337,322)\n  JVS(4487) = -B(283)+B(375)\nIF (DO_JVS(4488)) &\n! JVS(4488) = Jac_FULL(337,323)\n  JVS(4488) = B(187)-B(230)+B(265)+0.9*B(357)\nIF (DO_JVS(4489)) &\n! JVS(4489) = Jac_FULL(337,324)\n  JVS(4489) = 0.9*B(347)+0.243*B(350)+0.243*B(352)+0.9*B(358)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+B(880)+B(884)&\n                &+B(888)+B(892)+B(914)+0.159*B(1164)-B(1324)+B(1396)\nIF (DO_JVS(4490)) &\n! JVS(4490) = Jac_FULL(337,325)\n  JVS(4490) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)\nIF (DO_JVS(4491)) &\n! JVS(4491) = Jac_FULL(337,326)\n  JVS(4491) = 0.05*B(95)+B(1656)\nIF (DO_JVS(4492)) &\n! JVS(4492) = Jac_FULL(337,328)\n  JVS(4492) = B(34)+B(49)-B(53)+2*B(56)+1.74*B(57)+B(215)+B(217)+B(248)+B(250)+0.64*B(254)+0.5*B(256)+0.64*B(258)+0.5&\n                &*B(260)+0.3*B(262)+0.5*B(264)+B(266)+0.5*B(268)+0.9*B(348)+B(376)+B(529)+B(613)+B(769)+B(793)+B(831)+1.75&\n                &*B(878)+1.75*B(882)+1.75*B(886)+1.75*B(890)+0.75*B(894)+0.75*B(898)+2*B(910)+0.5*B(912)+2*B(978)+1.5*B(980)&\n                &+2*B(982)+1.5*B(984)+0.336*B(1158)+0.611*B(1160)+0.7*B(1300)+0.6*B(1371)+2*B(1394)+B(1462)+B(1464)+B(1487)\nIF (DO_JVS(4493)) &\n! JVS(4493) = Jac_FULL(337,329)\n  JVS(4493) = B(45)\nIF (DO_JVS(4494)) &\n! JVS(4494) = Jac_FULL(337,330)\n  JVS(4494) = 0\nIF (DO_JVS(4495)) &\n! JVS(4495) = Jac_FULL(337,331)\n  JVS(4495) = -B(671)\nIF (DO_JVS(4496)) &\n! JVS(4496) = Jac_FULL(337,332)\n  JVS(4496) = 0\nIF (DO_JVS(4497)) &\n! JVS(4497) = Jac_FULL(337,334)\n  JVS(4497) = 0.2*B(444)\nIF (DO_JVS(4498)) &\n! JVS(4498) = Jac_FULL(337,335)\n  JVS(4498) = -B(73)\nIF (DO_JVS(4499)) &\n! JVS(4499) = Jac_FULL(337,336)\n  JVS(4499) = 0\nIF (DO_JVS(4500)) &\n! JVS(4500) = Jac_FULL(337,337)\n  JVS(4500) = -B(30)-B(38)-B(42)-2*B(44)-B(54)-B(74)-B(78)-B(133)-B(141)-B(151)-0.75*B(161)-B(219)-B(221)-B(223)-B(225)&\n                &-B(227)-B(229)-B(231)-B(233)-B(246)-B(276)-B(278)-B(280)-B(282)-B(284)-0.56*B(303)-B(391)-B(393)-B(453)&\n                &-B(476)-B(573)-B(575)-B(579)-B(672)-B(680)-B(736)-B(750)-B(763)-B(775)-B(787)-B(801)-B(827)-B(839)-B(852)&\n                &-B(906)-B(908)-0.937*B(958)-B(960)-0.937*B(962)-B(964)-0.725*B(1037)-0.725*B(1044)-B(1051)-0.35*B(1065)&\n                &-0.35*B(1077)-0.35*B(1079)-B(1088)-B(1092)-0.941*B(1115)-0.401*B(1122)-0.418*B(1130)-0.494*B(1136)-0.621&\n                &*B(1142)-B(1150)-B(1152)-0.674*B(1199)-0.42*B(1201)-0.67*B(1217)-0.27*B(1223)-B(1249)-B(1255)-0.695*B(1271)&\n                &-0.493*B(1277)-B(1279)-B(1292)-B(1325)-B(1355)-B(1365)-B(1402)-B(1408)-B(1433)-B(1450)-B(1491)\nIF (DO_JVS(4501)) &\n! JVS(4501) = Jac_FULL(337,338)\n  JVS(4501) = B(530)+B(531)-B(580)\nIF (DO_JVS(4502)) &\n! JVS(4502) = Jac_FULL(337,339)\n  JVS(4502) = 0\nIF (DO_JVS(4503)) &\n! JVS(4503) = Jac_FULL(337,340)\n  JVS(4503) = B(566)+B(572)-B(574)-B(576)+B(606)+B(608)+B(610)+B(614)+B(620)+B(622)+B(624)\nIF (DO_JVS(4504)) &\n! JVS(4504) = Jac_FULL(337,341)\n  JVS(4504) = B(28)-B(31)+B(35)+0.28*B(288)+0.05*B(730)+0.16*B(948)+0.1*B(1227)+0.1*B(1343)+B(1425)+0.1*B(1468)+0.1&\n                &*B(1473)\nIF (DO_JVS(4505)) &\n! JVS(4505) = Jac_FULL(337,342)\n  JVS(4505) = -B(394)+B(414)\nIF (DO_JVS(4506)) &\n! JVS(4506) = Jac_FULL(337,343)\n  JVS(4506) = -B(454)+B(470)+B(486)\nIF (DO_JVS(4507)) &\n! JVS(4507) = Jac_FULL(337,344)\n  JVS(4507) = 0\nIF (DO_JVS(4508)) &\n! JVS(4508) = Jac_FULL(337,345)\n  JVS(4508) = B(29)-B(39)+B(41)+B(46)+1.74*B(58)+B(64)+B(82)+B(88)+B(90)+0.05*B(96)+B(153)+0.425*B(155)+B(270)+B(272)&\n                &+0.773*B(290)+0.2*B(294)+B(309)+B(313)+B(321)+B(387)+B(409)+B(432)+B(532)+B(548)+B(550)+B(552)+0.5*B(744)&\n                &+0.5*B(781)+B(872)+0.4*B(954)+0.7*B(956)+0.085*B(1002)+0.165*B(1004)+0.283*B(1010)+B(1014)+0.25*B(1024)&\n                &+0.33*B(1026)+0.024*B(1028)+0.042*B(1030)+0.75*B(1053)+B(1055)+B(1059)+0.4*B(1110)+0.4*B(1112)+0.295&\n                &*B(1213)+0.036*B(1229)+0.715*B(1259)+B(1263)+B(1267)+B(1269)+0.5*B(1307)+0.444*B(1309)+0.62*B(1317)+0.5&\n                &*B(1323)+0.7*B(1339)+0.18*B(1345)+0.03*B(1349)+B(1357)+0.364*B(1363)+0.54*B(1382)+0.19*B(1384)+0.15*B(1386)&\n                &+0.8*B(1415)+0.727*B(1419)+0.33*B(1466)+0.33*B(1471)\nIF (DO_JVS(4509)) &\n! JVS(4509) = Jac_FULL(337,346)\n  JVS(4509) = -B(43)+B(50)+B(109)+B(113)+B(119)+B(123)+0.75*B(129)+0.513*B(149)+B(157)+B(163)+0.27*B(172)+0.27*B(178)&\n                &+B(188)+B(301)+0.75*B(738)+0.75*B(777)+B(791)+0.75*B(803)+0.84*B(825)+B(856)+B(902)+B(988)+0.45*B(992)&\n                &+B(996)+0.45*B(1000)+B(1033)+B(1040)+B(1067)+B(1073)+B(1083)+0.272*B(1117)+B(1124)+B(1132)+B(1138)+B(1144)&\n                &+0.159*B(1174)+0.5*B(1203)+0.904*B(1207)+0.33*B(1215)+0.89*B(1221)+0.242*B(1273)+0.86*B(1284)+B(1353)&\n                &+B(1390)+B(1400)\nIF (DO_JVS(4510)) &\n! JVS(4510) = Jac_FULL(337,347)\n  JVS(4510) = -B(392)+B(410)\nIF (DO_JVS(4511)) &\n! JVS(4511) = Jac_FULL(337,348)\n  JVS(4511) = B(388)\nIF (DO_JVS(4512)) &\n! JVS(4512) = Jac_FULL(337,349)\n  JVS(4512) = 0\nIF (DO_JVS(4513)) &\n! JVS(4513) = Jac_FULL(337,350)\n  JVS(4513) = 0\nIF (DO_JVS(4514)) &\n! JVS(4514) = Jac_FULL(337,351)\n  JVS(4514) = -B(79)+B(83)+B(94)+B(305)+B(317)+B(740)+B(779)+B(795)+B(805)+B(829)+B(858)+0.5*B(876)+B(918)+0.159*B(1168)&\n                &+B(1392)+B(1488)\nIF (DO_JVS(4515)) &\n! JVS(4515) = Jac_FULL(337,352)\n  JVS(4515) = 0\nIF (DO_JVS(4516)) &\n! JVS(4516) = Jac_FULL(337,353)\n  JVS(4516) = 0\nIF (DO_JVS(4517)) &\n! JVS(4517) = Jac_FULL(338,46)\n  JVS(4517) = 0.79*B(493)\nIF (DO_JVS(4518)) &\n! JVS(4518) = Jac_FULL(338,47)\n  JVS(4518) = 0.9*B(505)\nIF (DO_JVS(4519)) &\n! JVS(4519) = Jac_FULL(338,48)\n  JVS(4519) = 0.86*B(507)\nIF (DO_JVS(4520)) &\n! JVS(4520) = Jac_FULL(338,49)\n  JVS(4520) = 0.8*B(519)\nIF (DO_JVS(4521)) &\n! JVS(4521) = Jac_FULL(338,50)\n  JVS(4521) = 0.85*B(521)\nIF (DO_JVS(4522)) &\n! JVS(4522) = Jac_FULL(338,51)\n  JVS(4522) = 0.86*B(523)\nIF (DO_JVS(4523)) &\n! JVS(4523) = Jac_FULL(338,61)\n  JVS(4523) = 0.34*B(509)\nIF (DO_JVS(4524)) &\n! JVS(4524) = Jac_FULL(338,76)\n  JVS(4524) = 2*B(592)\nIF (DO_JVS(4525)) &\n! JVS(4525) = Jac_FULL(338,84)\n  JVS(4525) = 0.79*B(517)\nIF (DO_JVS(4526)) &\n! JVS(4526) = Jac_FULL(338,85)\n  JVS(4526) = 0.69*B(513)\nIF (DO_JVS(4527)) &\n! JVS(4527) = Jac_FULL(338,86)\n  JVS(4527) = 0.65*B(515)\nIF (DO_JVS(4528)) &\n! JVS(4528) = Jac_FULL(338,87)\n  JVS(4528) = 0.56*B(503)\nIF (DO_JVS(4529)) &\n! JVS(4529) = Jac_FULL(338,110)\n  JVS(4529) = 0.1*B(593)\nIF (DO_JVS(4530)) &\n! JVS(4530) = Jac_FULL(338,120)\n  JVS(4530) = B(1704)\nIF (DO_JVS(4531)) &\n! JVS(4531) = Jac_FULL(338,181)\n  JVS(4531) = 0.46*B(495)\nIF (DO_JVS(4532)) &\n! JVS(4532) = Jac_FULL(338,245)\n  JVS(4532) = 0.75*B(491)\nIF (DO_JVS(4533)) &\n! JVS(4533) = Jac_FULL(338,284)\n  JVS(4533) = -B(667)\nIF (DO_JVS(4534)) &\n! JVS(4534) = Jac_FULL(338,296)\n  JVS(4534) = B(619)\nIF (DO_JVS(4535)) &\n! JVS(4535) = Jac_FULL(338,297)\n  JVS(4535) = 0\nIF (DO_JVS(4536)) &\n! JVS(4536) = Jac_FULL(338,315)\n  JVS(4536) = B(621)\nIF (DO_JVS(4537)) &\n! JVS(4537) = Jac_FULL(338,317)\n  JVS(4537) = B(601)+B(1708)\nIF (DO_JVS(4538)) &\n! JVS(4538) = Jac_FULL(338,318)\n  JVS(4538) = 0\nIF (DO_JVS(4539)) &\n! JVS(4539) = Jac_FULL(338,319)\n  JVS(4539) = 0\nIF (DO_JVS(4540)) &\n! JVS(4540) = Jac_FULL(338,320)\n  JVS(4540) = 0\nIF (DO_JVS(4541)) &\n! JVS(4541) = Jac_FULL(338,321)\n  JVS(4541) = 0\nIF (DO_JVS(4542)) &\n! JVS(4542) = Jac_FULL(338,322)\n  JVS(4542) = 0\nIF (DO_JVS(4543)) &\n! JVS(4543) = Jac_FULL(338,323)\n  JVS(4543) = 0\nIF (DO_JVS(4544)) &\n! JVS(4544) = Jac_FULL(338,324)\n  JVS(4544) = 0\nIF (DO_JVS(4545)) &\n! JVS(4545) = Jac_FULL(338,326)\n  JVS(4545) = 0\nIF (DO_JVS(4546)) &\n! JVS(4546) = Jac_FULL(338,328)\n  JVS(4546) = -B(529)+B(613)\nIF (DO_JVS(4547)) &\n! JVS(4547) = Jac_FULL(338,329)\n  JVS(4547) = 0\nIF (DO_JVS(4548)) &\n! JVS(4548) = Jac_FULL(338,330)\n  JVS(4548) = 0\nIF (DO_JVS(4549)) &\n! JVS(4549) = Jac_FULL(338,331)\n  JVS(4549) = 0\nIF (DO_JVS(4550)) &\n! JVS(4550) = Jac_FULL(338,332)\n  JVS(4550) = 0\nIF (DO_JVS(4551)) &\n! JVS(4551) = Jac_FULL(338,333)\n  JVS(4551) = B(541)\nIF (DO_JVS(4552)) &\n! JVS(4552) = Jac_FULL(338,334)\n  JVS(4552) = 0.22*B(487)+0.75*B(492)+0.79*B(494)+0.46*B(496)+0.56*B(504)+0.9*B(506)+0.86*B(508)+0.34*B(510)+0.69*B(514)&\n                &+0.65*B(516)+0.79*B(518)+0.8*B(520)+0.85*B(522)+0.86*B(524)\nIF (DO_JVS(4553)) &\n! JVS(4553) = Jac_FULL(338,335)\n  JVS(4553) = -B(583)\nIF (DO_JVS(4554)) &\n! JVS(4554) = Jac_FULL(338,336)\n  JVS(4554) = 0\nIF (DO_JVS(4555)) &\n! JVS(4555) = Jac_FULL(338,337)\n  JVS(4555) = B(575)-B(579)\nIF (DO_JVS(4556)) &\n! JVS(4556) = Jac_FULL(338,338)\n  JVS(4556) = -B(530)-B(531)-B(533)-B(577)-B(580)-B(581)-B(584)-2*B(585)-2*B(586)-2*B(587)-2*B(591)-B(595)-B(597)-B(599)&\n                &-B(668)-B(1703)\nIF (DO_JVS(4557)) &\n! JVS(4557) = Jac_FULL(338,339)\n  JVS(4557) = 0.22*B(488)\nIF (DO_JVS(4558)) &\n! JVS(4558) = Jac_FULL(338,340)\n  JVS(4558) = B(567)+B(576)+0.1*B(594)+B(614)+B(620)+B(622)\nIF (DO_JVS(4559)) &\n! JVS(4559) = Jac_FULL(338,341)\n  JVS(4559) = B(568)\nIF (DO_JVS(4560)) &\n! JVS(4560) = Jac_FULL(338,342)\n  JVS(4560) = 0\nIF (DO_JVS(4561)) &\n! JVS(4561) = Jac_FULL(338,343)\n  JVS(4561) = -B(578)+B(602)\nIF (DO_JVS(4562)) &\n! JVS(4562) = Jac_FULL(338,344)\n  JVS(4562) = 0\nIF (DO_JVS(4563)) &\n! JVS(4563) = Jac_FULL(338,345)\n  JVS(4563) = -B(532)-B(534)+B(542)\nIF (DO_JVS(4564)) &\n! JVS(4564) = Jac_FULL(338,346)\n  JVS(4564) = -B(582)\nIF (DO_JVS(4565)) &\n! JVS(4565) = Jac_FULL(338,347)\n  JVS(4565) = -B(596)-B(598)-B(600)\nIF (DO_JVS(4566)) &\n! JVS(4566) = Jac_FULL(338,348)\n  JVS(4566) = 0\nIF (DO_JVS(4567)) &\n! JVS(4567) = Jac_FULL(338,349)\n  JVS(4567) = 0\nIF (DO_JVS(4568)) &\n! JVS(4568) = Jac_FULL(338,350)\n  JVS(4568) = 0\nIF (DO_JVS(4569)) &\n! JVS(4569) = Jac_FULL(338,351)\n  JVS(4569) = 0\nIF (DO_JVS(4570)) &\n! JVS(4570) = Jac_FULL(338,352)\n  JVS(4570) = 0\nIF (DO_JVS(4571)) &\n! JVS(4571) = Jac_FULL(338,353)\n  JVS(4571) = 0\nIF (DO_JVS(4572)) &\n! JVS(4572) = Jac_FULL(339,75)\n  JVS(4572) = B(609)\nIF (DO_JVS(4573)) &\n! JVS(4573) = Jac_FULL(339,79)\n  JVS(4573) = B(607)\nIF (DO_JVS(4574)) &\n! JVS(4574) = Jac_FULL(339,141)\n  JVS(4574) = B(629)+B(631)\nIF (DO_JVS(4575)) &\n! JVS(4575) = Jac_FULL(339,142)\n  JVS(4575) = B(637)\nIF (DO_JVS(4576)) &\n! JVS(4576) = Jac_FULL(339,156)\n  JVS(4576) = B(625)\nIF (DO_JVS(4577)) &\n! JVS(4577) = Jac_FULL(339,164)\n  JVS(4577) = B(615)\nIF (DO_JVS(4578)) &\n! JVS(4578) = Jac_FULL(339,166)\n  JVS(4578) = -B(11)\nIF (DO_JVS(4579)) &\n! JVS(4579) = Jac_FULL(339,179)\n  JVS(4579) = -B(4)\nIF (DO_JVS(4580)) &\n! JVS(4580) = Jac_FULL(339,181)\n  JVS(4580) = 2*B(605)\nIF (DO_JVS(4581)) &\n! JVS(4581) = Jac_FULL(339,183)\n  JVS(4581) = B(617)\nIF (DO_JVS(4582)) &\n! JVS(4582) = Jac_FULL(339,214)\n  JVS(4582) = -B(1498)\nIF (DO_JVS(4583)) &\n! JVS(4583) = Jac_FULL(339,218)\n  JVS(4583) = -B(1511)\nIF (DO_JVS(4584)) &\n! JVS(4584) = Jac_FULL(339,228)\n  JVS(4584) = B(563)\nIF (DO_JVS(4585)) &\n! JVS(4585) = Jac_FULL(339,264)\n  JVS(4585) = B(571)\nIF (DO_JVS(4586)) &\n! JVS(4586) = Jac_FULL(339,265)\n  JVS(4586) = B(611)\nIF (DO_JVS(4587)) &\n! JVS(4587) = Jac_FULL(339,269)\n  JVS(4587) = 0\nIF (DO_JVS(4588)) &\n! JVS(4588) = Jac_FULL(339,276)\n  JVS(4588) = B(635)\nIF (DO_JVS(4589)) &\n! JVS(4589) = Jac_FULL(339,282)\n  JVS(4589) = B(623)\nIF (DO_JVS(4590)) &\n! JVS(4590) = Jac_FULL(339,283)\n  JVS(4590) = B(627)\nIF (DO_JVS(4591)) &\n! JVS(4591) = Jac_FULL(339,289)\n  JVS(4591) = 0\nIF (DO_JVS(4592)) &\n! JVS(4592) = Jac_FULL(339,290)\n  JVS(4592) = B(639)\nIF (DO_JVS(4593)) &\n! JVS(4593) = Jac_FULL(339,291)\n  JVS(4593) = 0\nIF (DO_JVS(4594)) &\n! JVS(4594) = Jac_FULL(339,295)\n  JVS(4594) = B(633)\nIF (DO_JVS(4595)) &\n! JVS(4595) = Jac_FULL(339,296)\n  JVS(4595) = 0\nIF (DO_JVS(4596)) &\n! JVS(4596) = Jac_FULL(339,297)\n  JVS(4596) = -B(1531)\nIF (DO_JVS(4597)) &\n! JVS(4597) = Jac_FULL(339,300)\n  JVS(4597) = 0\nIF (DO_JVS(4598)) &\n! JVS(4598) = Jac_FULL(339,301)\n  JVS(4598) = 0\nIF (DO_JVS(4599)) &\n! JVS(4599) = Jac_FULL(339,302)\n  JVS(4599) = 0\nIF (DO_JVS(4600)) &\n! JVS(4600) = Jac_FULL(339,303)\n  JVS(4600) = 0\nIF (DO_JVS(4601)) &\n! JVS(4601) = Jac_FULL(339,304)\n  JVS(4601) = 0\nIF (DO_JVS(4602)) &\n! JVS(4602) = Jac_FULL(339,305)\n  JVS(4602) = 0\nIF (DO_JVS(4603)) &\n! JVS(4603) = Jac_FULL(339,306)\n  JVS(4603) = 0\nIF (DO_JVS(4604)) &\n! JVS(4604) = Jac_FULL(339,307)\n  JVS(4604) = 0\nIF (DO_JVS(4605)) &\n! JVS(4605) = Jac_FULL(339,308)\n  JVS(4605) = 0\nIF (DO_JVS(4606)) &\n! JVS(4606) = Jac_FULL(339,309)\n  JVS(4606) = 0\nIF (DO_JVS(4607)) &\n! JVS(4607) = Jac_FULL(339,310)\n  JVS(4607) = 0\nIF (DO_JVS(4608)) &\n! JVS(4608) = Jac_FULL(339,311)\n  JVS(4608) = 0\nIF (DO_JVS(4609)) &\n! JVS(4609) = Jac_FULL(339,312)\n  JVS(4609) = 0\nIF (DO_JVS(4610)) &\n! JVS(4610) = Jac_FULL(339,313)\n  JVS(4610) = 0\nIF (DO_JVS(4611)) &\n! JVS(4611) = Jac_FULL(339,314)\n  JVS(4611) = 0\nIF (DO_JVS(4612)) &\n! JVS(4612) = Jac_FULL(339,315)\n  JVS(4612) = 0\nIF (DO_JVS(4613)) &\n! JVS(4613) = Jac_FULL(339,316)\n  JVS(4613) = -B(1551)\nIF (DO_JVS(4614)) &\n! JVS(4614) = Jac_FULL(339,317)\n  JVS(4614) = -B(1515)\nIF (DO_JVS(4615)) &\n! JVS(4615) = Jac_FULL(339,318)\n  JVS(4615) = 0\nIF (DO_JVS(4616)) &\n! JVS(4616) = Jac_FULL(339,319)\n  JVS(4616) = 0\nIF (DO_JVS(4617)) &\n! JVS(4617) = Jac_FULL(339,320)\n  JVS(4617) = 0\nIF (DO_JVS(4618)) &\n! JVS(4618) = Jac_FULL(339,321)\n  JVS(4618) = 0\nIF (DO_JVS(4619)) &\n! JVS(4619) = Jac_FULL(339,322)\n  JVS(4619) = 0\nIF (DO_JVS(4620)) &\n! JVS(4620) = Jac_FULL(339,323)\n  JVS(4620) = 0\nIF (DO_JVS(4621)) &\n! JVS(4621) = Jac_FULL(339,324)\n  JVS(4621) = 0\nIF (DO_JVS(4622)) &\n! JVS(4622) = Jac_FULL(339,325)\n  JVS(4622) = B(565)\nIF (DO_JVS(4623)) &\n! JVS(4623) = Jac_FULL(339,326)\n  JVS(4623) = 0\nIF (DO_JVS(4624)) &\n! JVS(4624) = Jac_FULL(339,327)\n  JVS(4624) = 0\nIF (DO_JVS(4625)) &\n! JVS(4625) = Jac_FULL(339,328)\n  JVS(4625) = 0\nIF (DO_JVS(4626)) &\n! JVS(4626) = Jac_FULL(339,329)\n  JVS(4626) = 0\nIF (DO_JVS(4627)) &\n! JVS(4627) = Jac_FULL(339,332)\n  JVS(4627) = 0\nIF (DO_JVS(4628)) &\n! JVS(4628) = Jac_FULL(339,333)\n  JVS(4628) = -B(1539)+B(1547)\nIF (DO_JVS(4629)) &\n! JVS(4629) = Jac_FULL(339,334)\n  JVS(4629) = -0.88*B(487)\nIF (DO_JVS(4630)) &\n! JVS(4630) = Jac_FULL(339,335)\n  JVS(4630) = 0\nIF (DO_JVS(4631)) &\n! JVS(4631) = Jac_FULL(339,336)\n  JVS(4631) = 0\nIF (DO_JVS(4632)) &\n! JVS(4632) = Jac_FULL(339,337)\n  JVS(4632) = B(573)\nIF (DO_JVS(4633)) &\n! JVS(4633) = Jac_FULL(339,338)\n  JVS(4633) = B(533)\nIF (DO_JVS(4634)) &\n! JVS(4634) = Jac_FULL(339,339)\n  JVS(4634) = -B(5)-B(12)-0.88*B(488)-B(539)-B(1499)-B(1512)-B(1516)-B(1532)-B(1540)-B(1552)\nIF (DO_JVS(4635)) &\n! JVS(4635) = Jac_FULL(339,340)\n  JVS(4635) = B(564)+B(566)+B(569)+B(572)+B(574)+2*B(606)+B(608)+B(610)+B(612)+B(616)+B(618)+B(624)+B(626)+B(628)+B(630)&\n                &+B(632)+B(634)+B(636)+B(638)+B(640)\nIF (DO_JVS(4636)) &\n! JVS(4636) = Jac_FULL(339,341)\n  JVS(4636) = 0\nIF (DO_JVS(4637)) &\n! JVS(4637) = Jac_FULL(339,342)\n  JVS(4637) = 0\nIF (DO_JVS(4638)) &\n! JVS(4638) = Jac_FULL(339,343)\n  JVS(4638) = 0\nIF (DO_JVS(4639)) &\n! JVS(4639) = Jac_FULL(339,344)\n  JVS(4639) = 0\nIF (DO_JVS(4640)) &\n! JVS(4640) = Jac_FULL(339,345)\n  JVS(4640) = B(534)-B(540)\nIF (DO_JVS(4641)) &\n! JVS(4641) = Jac_FULL(339,346)\n  JVS(4641) = 0\nIF (DO_JVS(4642)) &\n! JVS(4642) = Jac_FULL(339,347)\n  JVS(4642) = 0\nIF (DO_JVS(4643)) &\n! JVS(4643) = Jac_FULL(339,348)\n  JVS(4643) = B(1548)\nIF (DO_JVS(4644)) &\n! JVS(4644) = Jac_FULL(339,349)\n  JVS(4644) = 0\nIF (DO_JVS(4645)) &\n! JVS(4645) = Jac_FULL(339,350)\n  JVS(4645) = 0\nIF (DO_JVS(4646)) &\n! JVS(4646) = Jac_FULL(339,351)\n  JVS(4646) = 0\nIF (DO_JVS(4647)) &\n! JVS(4647) = Jac_FULL(339,352)\n  JVS(4647) = 0\nIF (DO_JVS(4648)) &\n! JVS(4648) = Jac_FULL(339,353)\n  JVS(4648) = 0\nIF (DO_JVS(4649)) &\n! JVS(4649) = Jac_FULL(340,3)\n  JVS(4649) = B(1735)\nIF (DO_JVS(4650)) &\n! JVS(4650) = Jac_FULL(340,43)\n  JVS(4650) = 3*B(553)+3*B(1710)\nIF (DO_JVS(4651)) &\n! JVS(4651) = Jac_FULL(340,46)\n  JVS(4651) = 2.37*B(493)+4*B(1711)\nIF (DO_JVS(4652)) &\n! JVS(4652) = Jac_FULL(340,47)\n  JVS(4652) = 1.8*B(505)+3*B(1712)\nIF (DO_JVS(4653)) &\n! JVS(4653) = Jac_FULL(340,48)\n  JVS(4653) = 0.86*B(507)+2*B(1713)\nIF (DO_JVS(4654)) &\n! JVS(4654) = Jac_FULL(340,49)\n  JVS(4654) = 1.9*B(519)+3*B(1714)\nIF (DO_JVS(4655)) &\n! JVS(4655) = Jac_FULL(340,50)\n  JVS(4655) = 0.95*B(521)+2*B(1715)\nIF (DO_JVS(4656)) &\n! JVS(4656) = Jac_FULL(340,51)\n  JVS(4656) = B(1716)\nIF (DO_JVS(4657)) &\n! JVS(4657) = Jac_FULL(340,61)\n  JVS(4657) = 0.31*B(509)+B(1722)\nIF (DO_JVS(4658)) &\n! JVS(4658) = Jac_FULL(340,75)\n  JVS(4658) = 3*B(551)+2*B(609)\nIF (DO_JVS(4659)) &\n! JVS(4659) = Jac_FULL(340,76)\n  JVS(4659) = B(1705)\nIF (DO_JVS(4660)) &\n! JVS(4660) = Jac_FULL(340,79)\n  JVS(4660) = 2*B(549)+B(607)+2*B(1700)\nIF (DO_JVS(4661)) &\n! JVS(4661) = Jac_FULL(340,84)\n  JVS(4661) = 0.79*B(517)+2*B(561)+2*B(1717)\nIF (DO_JVS(4662)) &\n! JVS(4662) = Jac_FULL(340,85)\n  JVS(4662) = 0.69*B(513)+2*B(557)+2*B(1718)\nIF (DO_JVS(4663)) &\n! JVS(4663) = Jac_FULL(340,86)\n  JVS(4663) = B(559)+B(1719)\nIF (DO_JVS(4664)) &\n! JVS(4664) = Jac_FULL(340,87)\n  JVS(4664) = 0.19*B(503)+B(555)+B(1720)\nIF (DO_JVS(4665)) &\n! JVS(4665) = Jac_FULL(340,104)\n  JVS(4665) = B(1740)\nIF (DO_JVS(4666)) &\n! JVS(4666) = Jac_FULL(340,110)\n  JVS(4666) = B(590)-B(593)+B(1724)\nIF (DO_JVS(4667)) &\n! JVS(4667) = Jac_FULL(340,141)\n  JVS(4667) = -B(629)-B(631)\nIF (DO_JVS(4668)) &\n! JVS(4668) = Jac_FULL(340,142)\n  JVS(4668) = -B(637)\nIF (DO_JVS(4669)) &\n! JVS(4669) = Jac_FULL(340,156)\n  JVS(4669) = -B(625)\nIF (DO_JVS(4670)) &\n! JVS(4670) = Jac_FULL(340,157)\n  JVS(4670) = B(1701)\nIF (DO_JVS(4671)) &\n! JVS(4671) = Jac_FULL(340,164)\n  JVS(4671) = -B(615)\nIF (DO_JVS(4672)) &\n! JVS(4672) = Jac_FULL(340,181)\n  JVS(4672) = 0.35*B(495)+B(547)-B(605)+B(1699)\nIF (DO_JVS(4673)) &\n! JVS(4673) = Jac_FULL(340,183)\n  JVS(4673) = -B(617)\nIF (DO_JVS(4674)) &\n! JVS(4674) = Jac_FULL(340,218)\n  JVS(4674) = 0\nIF (DO_JVS(4675)) &\n! JVS(4675) = Jac_FULL(340,228)\n  JVS(4675) = -B(563)\nIF (DO_JVS(4676)) &\n! JVS(4676) = Jac_FULL(340,245)\n  JVS(4676) = 0.75*B(491)+B(527)+2*B(1702)\nIF (DO_JVS(4677)) &\n! JVS(4677) = Jac_FULL(340,252)\n  JVS(4677) = 0\nIF (DO_JVS(4678)) &\n! JVS(4678) = Jac_FULL(340,264)\n  JVS(4678) = -B(571)\nIF (DO_JVS(4679)) &\n! JVS(4679) = Jac_FULL(340,265)\n  JVS(4679) = -B(611)\nIF (DO_JVS(4680)) &\n! JVS(4680) = Jac_FULL(340,269)\n  JVS(4680) = 0\nIF (DO_JVS(4681)) &\n! JVS(4681) = Jac_FULL(340,276)\n  JVS(4681) = -B(635)\nIF (DO_JVS(4682)) &\n! JVS(4682) = Jac_FULL(340,282)\n  JVS(4682) = -B(623)\nIF (DO_JVS(4683)) &\n! JVS(4683) = Jac_FULL(340,283)\n  JVS(4683) = -B(627)\nIF (DO_JVS(4684)) &\n! JVS(4684) = Jac_FULL(340,284)\n  JVS(4684) = 0.249*B(667)\nIF (DO_JVS(4685)) &\n! JVS(4685) = Jac_FULL(340,289)\n  JVS(4685) = 0\nIF (DO_JVS(4686)) &\n! JVS(4686) = Jac_FULL(340,290)\n  JVS(4686) = -B(639)\nIF (DO_JVS(4687)) &\n! JVS(4687) = Jac_FULL(340,291)\n  JVS(4687) = 0\nIF (DO_JVS(4688)) &\n! JVS(4688) = Jac_FULL(340,295)\n  JVS(4688) = -B(633)\nIF (DO_JVS(4689)) &\n! JVS(4689) = Jac_FULL(340,296)\n  JVS(4689) = -B(619)\nIF (DO_JVS(4690)) &\n! JVS(4690) = Jac_FULL(340,297)\n  JVS(4690) = B(1706)\nIF (DO_JVS(4691)) &\n! JVS(4691) = Jac_FULL(340,300)\n  JVS(4691) = 0\nIF (DO_JVS(4692)) &\n! JVS(4692) = Jac_FULL(340,301)\n  JVS(4692) = 0\nIF (DO_JVS(4693)) &\n! JVS(4693) = Jac_FULL(340,302)\n  JVS(4693) = 0\nIF (DO_JVS(4694)) &\n! JVS(4694) = Jac_FULL(340,303)\n  JVS(4694) = 0\nIF (DO_JVS(4695)) &\n! JVS(4695) = Jac_FULL(340,304)\n  JVS(4695) = 0\nIF (DO_JVS(4696)) &\n! JVS(4696) = Jac_FULL(340,305)\n  JVS(4696) = 0\nIF (DO_JVS(4697)) &\n! JVS(4697) = Jac_FULL(340,306)\n  JVS(4697) = 0\nIF (DO_JVS(4698)) &\n! JVS(4698) = Jac_FULL(340,307)\n  JVS(4698) = 0\nIF (DO_JVS(4699)) &\n! JVS(4699) = Jac_FULL(340,308)\n  JVS(4699) = 0\nIF (DO_JVS(4700)) &\n! JVS(4700) = Jac_FULL(340,309)\n  JVS(4700) = 0\nIF (DO_JVS(4701)) &\n! JVS(4701) = Jac_FULL(340,310)\n  JVS(4701) = 0\nIF (DO_JVS(4702)) &\n! JVS(4702) = Jac_FULL(340,311)\n  JVS(4702) = 0\nIF (DO_JVS(4703)) &\n! JVS(4703) = Jac_FULL(340,312)\n  JVS(4703) = 0\nIF (DO_JVS(4704)) &\n! JVS(4704) = Jac_FULL(340,313)\n  JVS(4704) = 0\nIF (DO_JVS(4705)) &\n! JVS(4705) = Jac_FULL(340,314)\n  JVS(4705) = 0\nIF (DO_JVS(4706)) &\n! JVS(4706) = Jac_FULL(340,315)\n  JVS(4706) = -B(621)\nIF (DO_JVS(4707)) &\n! JVS(4707) = Jac_FULL(340,316)\n  JVS(4707) = 0\nIF (DO_JVS(4708)) &\n! JVS(4708) = Jac_FULL(340,317)\n  JVS(4708) = -B(603)+B(1707)\nIF (DO_JVS(4709)) &\n! JVS(4709) = Jac_FULL(340,318)\n  JVS(4709) = 0\nIF (DO_JVS(4710)) &\n! JVS(4710) = Jac_FULL(340,319)\n  JVS(4710) = 0\nIF (DO_JVS(4711)) &\n! JVS(4711) = Jac_FULL(340,320)\n  JVS(4711) = 0\nIF (DO_JVS(4712)) &\n! JVS(4712) = Jac_FULL(340,321)\n  JVS(4712) = 0\nIF (DO_JVS(4713)) &\n! JVS(4713) = Jac_FULL(340,322)\n  JVS(4713) = 0\nIF (DO_JVS(4714)) &\n! JVS(4714) = Jac_FULL(340,323)\n  JVS(4714) = 0\nIF (DO_JVS(4715)) &\n! JVS(4715) = Jac_FULL(340,324)\n  JVS(4715) = 0\nIF (DO_JVS(4716)) &\n! JVS(4716) = Jac_FULL(340,325)\n  JVS(4716) = -B(565)\nIF (DO_JVS(4717)) &\n! JVS(4717) = Jac_FULL(340,326)\n  JVS(4717) = 0\nIF (DO_JVS(4718)) &\n! JVS(4718) = Jac_FULL(340,328)\n  JVS(4718) = -B(613)\nIF (DO_JVS(4719)) &\n! JVS(4719) = Jac_FULL(340,329)\n  JVS(4719) = 0\nIF (DO_JVS(4720)) &\n! JVS(4720) = Jac_FULL(340,330)\n  JVS(4720) = 0\nIF (DO_JVS(4721)) &\n! JVS(4721) = Jac_FULL(340,331)\n  JVS(4721) = 0\nIF (DO_JVS(4722)) &\n! JVS(4722) = Jac_FULL(340,332)\n  JVS(4722) = 0\nIF (DO_JVS(4723)) &\n! JVS(4723) = Jac_FULL(340,333)\n  JVS(4723) = B(1709)\nIF (DO_JVS(4724)) &\n! JVS(4724) = Jac_FULL(340,334)\n  JVS(4724) = 0.66*B(487)+0.75*B(492)+2.37*B(494)+0.35*B(496)+0.19*B(504)+1.8*B(506)+0.86*B(508)+0.31*B(510)+0.69*B(514)&\n                &+0.79*B(518)+1.9*B(520)+0.95*B(522)\nIF (DO_JVS(4725)) &\n! JVS(4725) = Jac_FULL(340,335)\n  JVS(4725) = 0\nIF (DO_JVS(4726)) &\n! JVS(4726) = Jac_FULL(340,336)\n  JVS(4726) = 0\nIF (DO_JVS(4727)) &\n! JVS(4727) = Jac_FULL(340,337)\n  JVS(4727) = -B(573)-B(575)\nIF (DO_JVS(4728)) &\n! JVS(4728) = Jac_FULL(340,338)\n  JVS(4728) = B(531)+B(577)+B(581)+B(586)+B(587)+0.249*B(668)+B(1703)\nIF (DO_JVS(4729)) &\n! JVS(4729) = Jac_FULL(340,339)\n  JVS(4729) = 0.66*B(488)+B(539)\nIF (DO_JVS(4730)) &\n! JVS(4730) = Jac_FULL(340,340)\n  JVS(4730) = -B(564)-B(566)-B(567)-B(569)-B(572)-B(574)-B(576)-B(588)-B(594)-B(604)-B(606)+B(608)+2*B(610)-B(612)&\n                &-B(614)-B(616)-B(618)-B(620)-B(622)-B(624)-B(626)-B(628)-B(630)-B(632)-B(634)-B(636)-B(638)-B(640)\nIF (DO_JVS(4731)) &\n! JVS(4731) = Jac_FULL(340,341)\n  JVS(4731) = -B(568)\nIF (DO_JVS(4732)) &\n! JVS(4732) = Jac_FULL(340,342)\n  JVS(4732) = 0\nIF (DO_JVS(4733)) &\n! JVS(4733) = Jac_FULL(340,343)\n  JVS(4733) = B(578)\nIF (DO_JVS(4734)) &\n! JVS(4734) = Jac_FULL(340,344)\n  JVS(4734) = 0\nIF (DO_JVS(4735)) &\n! JVS(4735) = Jac_FULL(340,345)\n  JVS(4735) = B(528)+B(532)+B(540)+B(548)+2*B(550)+3*B(552)+3*B(554)+B(556)+2*B(558)+B(560)+2*B(562)\nIF (DO_JVS(4736)) &\n! JVS(4736) = Jac_FULL(340,346)\n  JVS(4736) = B(582)\nIF (DO_JVS(4737)) &\n! JVS(4737) = Jac_FULL(340,347)\n  JVS(4737) = 0\nIF (DO_JVS(4738)) &\n! JVS(4738) = Jac_FULL(340,348)\n  JVS(4738) = 0\nIF (DO_JVS(4739)) &\n! JVS(4739) = Jac_FULL(340,349)\n  JVS(4739) = 0\nIF (DO_JVS(4740)) &\n! JVS(4740) = Jac_FULL(340,350)\n  JVS(4740) = 0\nIF (DO_JVS(4741)) &\n! JVS(4741) = Jac_FULL(340,351)\n  JVS(4741) = 0\nIF (DO_JVS(4742)) &\n! JVS(4742) = Jac_FULL(340,352)\n  JVS(4742) = 0\nIF (DO_JVS(4743)) &\n! JVS(4743) = Jac_FULL(340,353)\n  JVS(4743) = 0\nIF (DO_JVS(4744)) &\n! JVS(4744) = Jac_FULL(341,109)\n  JVS(4744) = -B(1358)\nIF (DO_JVS(4745)) &\n! JVS(4745) = Jac_FULL(341,140)\n  JVS(4745) = -B(146)\nIF (DO_JVS(4746)) &\n! JVS(4746) = Jac_FULL(341,166)\n  JVS(4746) = -B(8)\nIF (DO_JVS(4747)) &\n! JVS(4747) = Jac_FULL(341,167)\n  JVS(4747) = -B(725)\nIF (DO_JVS(4748)) &\n! JVS(4748) = Jac_FULL(341,179)\n  JVS(4748) = -B(1)\nIF (DO_JVS(4749)) &\n! JVS(4749) = Jac_FULL(341,191)\n  JVS(4749) = -B(733)\nIF (DO_JVS(4750)) &\n! JVS(4750) = Jac_FULL(341,193)\n  JVS(4750) = -B(867)\nIF (DO_JVS(4751)) &\n! JVS(4751) = Jac_FULL(341,201)\n  JVS(4751) = -B(1472)\nIF (DO_JVS(4752)) &\n! JVS(4752) = Jac_FULL(341,202)\n  JVS(4752) = -B(1424)\nIF (DO_JVS(4753)) &\n! JVS(4753) = Jac_FULL(341,203)\n  JVS(4753) = -B(1453)\nIF (DO_JVS(4754)) &\n! JVS(4754) = Jac_FULL(341,211)\n  JVS(4754) = -B(820)\nIF (DO_JVS(4755)) &\n! JVS(4755) = Jac_FULL(341,213)\n  JVS(4755) = 0.15*B(302)\nIF (DO_JVS(4756)) &\n! JVS(4756) = Jac_FULL(341,217)\n  JVS(4756) = -B(473)\nIF (DO_JVS(4757)) &\n! JVS(4757) = Jac_FULL(341,219)\n  JVS(4757) = -B(729)\nIF (DO_JVS(4758)) &\n! JVS(4758) = Jac_FULL(341,220)\n  JVS(4758) = -B(1342)\nIF (DO_JVS(4759)) &\n! JVS(4759) = Jac_FULL(341,221)\n  JVS(4759) = -B(1467)\nIF (DO_JVS(4760)) &\n! JVS(4760) = Jac_FULL(341,228)\n  JVS(4760) = 0\nIF (DO_JVS(4761)) &\n! JVS(4761) = Jac_FULL(341,229)\n  JVS(4761) = -B(861)\nIF (DO_JVS(4762)) &\n! JVS(4762) = Jac_FULL(341,233)\n  JVS(4762) = 0\nIF (DO_JVS(4763)) &\n! JVS(4763) = Jac_FULL(341,235)\n  JVS(4763) = 0.15*B(1432)\nIF (DO_JVS(4764)) &\n! JVS(4764) = Jac_FULL(341,236)\n  JVS(4764) = 0\nIF (DO_JVS(4765)) &\n! JVS(4765) = Jac_FULL(341,237)\n  JVS(4765) = -B(814)\nIF (DO_JVS(4766)) &\n! JVS(4766) = Jac_FULL(341,240)\n  JVS(4766) = 0.15*B(1407)\nIF (DO_JVS(4767)) &\n! JVS(4767) = Jac_FULL(341,242)\n  JVS(4767) = -B(929)\nIF (DO_JVS(4768)) &\n! JVS(4768) = Jac_FULL(341,246)\n  JVS(4768) = 0.15*B(245)\nIF (DO_JVS(4769)) &\n! JVS(4769) = Jac_FULL(341,255)\n  JVS(4769) = -B(808)\nIF (DO_JVS(4770)) &\n! JVS(4770) = Jac_FULL(341,257)\n  JVS(4770) = 0.15*B(749)\nIF (DO_JVS(4771)) &\n! JVS(4771) = Jac_FULL(341,259)\n  JVS(4771) = 0.13*B(1278)\nIF (DO_JVS(4772)) &\n! JVS(4772) = Jac_FULL(341,262)\n  JVS(4772) = -B(873)\nIF (DO_JVS(4773)) &\n! JVS(4773) = Jac_FULL(341,269)\n  JVS(4773) = 0\nIF (DO_JVS(4774)) &\n! JVS(4774) = Jac_FULL(341,274)\n  JVS(4774) = 0.15*B(838)\nIF (DO_JVS(4775)) &\n! JVS(4775) = Jac_FULL(341,275)\n  JVS(4775) = 0\nIF (DO_JVS(4776)) &\n! JVS(4776) = Jac_FULL(341,276)\n  JVS(4776) = -B(947)\nIF (DO_JVS(4777)) &\n! JVS(4777) = Jac_FULL(341,277)\n  JVS(4777) = 0\nIF (DO_JVS(4778)) &\n! JVS(4778) = Jac_FULL(341,280)\n  JVS(4778) = 0\nIF (DO_JVS(4779)) &\n! JVS(4779) = Jac_FULL(341,281)\n  JVS(4779) = 0\nIF (DO_JVS(4780)) &\n! JVS(4780) = Jac_FULL(341,289)\n  JVS(4780) = 0\nIF (DO_JVS(4781)) &\n! JVS(4781) = Jac_FULL(341,290)\n  JVS(4781) = -B(287)\nIF (DO_JVS(4782)) &\n! JVS(4782) = Jac_FULL(341,291)\n  JVS(4782) = 0\nIF (DO_JVS(4783)) &\n! JVS(4783) = Jac_FULL(341,306)\n  JVS(4783) = 0\nIF (DO_JVS(4784)) &\n! JVS(4784) = Jac_FULL(341,308)\n  JVS(4784) = 0.13*B(1291)\nIF (DO_JVS(4785)) &\n! JVS(4785) = Jac_FULL(341,309)\n  JVS(4785) = -B(1232)\nIF (DO_JVS(4786)) &\n! JVS(4786) = Jac_FULL(341,310)\n  JVS(4786) = 0\nIF (DO_JVS(4787)) &\n! JVS(4787) = Jac_FULL(341,311)\n  JVS(4787) = 0\nIF (DO_JVS(4788)) &\n! JVS(4788) = Jac_FULL(341,312)\n  JVS(4788) = -B(701)\nIF (DO_JVS(4789)) &\n! JVS(4789) = Jac_FULL(341,314)\n  JVS(4789) = -B(1226)\nIF (DO_JVS(4790)) &\n! JVS(4790) = Jac_FULL(341,320)\n  JVS(4790) = 0\nIF (DO_JVS(4791)) &\n! JVS(4791) = Jac_FULL(341,322)\n  JVS(4791) = 0.15*B(283)\nIF (DO_JVS(4792)) &\n! JVS(4792) = Jac_FULL(341,323)\n  JVS(4792) = 0\nIF (DO_JVS(4793)) &\n! JVS(4793) = Jac_FULL(341,324)\n  JVS(4793) = 0.13*B(1324)\nIF (DO_JVS(4794)) &\n! JVS(4794) = Jac_FULL(341,325)\n  JVS(4794) = 0\nIF (DO_JVS(4795)) &\n! JVS(4795) = Jac_FULL(341,326)\n  JVS(4795) = 0\nIF (DO_JVS(4796)) &\n! JVS(4796) = Jac_FULL(341,327)\n  JVS(4796) = 0\nIF (DO_JVS(4797)) &\n! JVS(4797) = Jac_FULL(341,328)\n  JVS(4797) = -B(34)\nIF (DO_JVS(4798)) &\n! JVS(4798) = Jac_FULL(341,329)\n  JVS(4798) = 0\nIF (DO_JVS(4799)) &\n! JVS(4799) = Jac_FULL(341,331)\n  JVS(4799) = -B(669)\nIF (DO_JVS(4800)) &\n! JVS(4800) = Jac_FULL(341,332)\n  JVS(4800) = 0\nIF (DO_JVS(4801)) &\n! JVS(4801) = Jac_FULL(341,334)\n  JVS(4801) = -B(455)\nIF (DO_JVS(4802)) &\n! JVS(4802) = Jac_FULL(341,335)\n  JVS(4802) = -B(32)\nIF (DO_JVS(4803)) &\n! JVS(4803) = Jac_FULL(341,336)\n  JVS(4803) = 0\nIF (DO_JVS(4804)) &\n! JVS(4804) = Jac_FULL(341,337)\n  JVS(4804) = -B(30)+0.15*B(246)+0.15*B(284)+0.15*B(303)+0.15*B(750)+0.15*B(839)+0.13*B(1279)+0.13*B(1292)+0.13*B(1325)&\n                &+0.15*B(1408)+0.15*B(1433)\nIF (DO_JVS(4805)) &\n! JVS(4805) = Jac_FULL(341,338)\n  JVS(4805) = 0\nIF (DO_JVS(4806)) &\n! JVS(4806) = Jac_FULL(341,339)\n  JVS(4806) = 0\nIF (DO_JVS(4807)) &\n! JVS(4807) = Jac_FULL(341,340)\n  JVS(4807) = -B(567)\nIF (DO_JVS(4808)) &\n! JVS(4808) = Jac_FULL(341,341)\n  JVS(4808) = -B(2)-B(9)-B(17)-B(26)-B(28)-B(31)-B(33)-B(35)-B(147)-B(288)-B(389)-B(447)-B(456)-B(474)-B(568)-B(670)&\n                &-B(702)-B(726)-B(730)-B(734)-B(809)-B(815)-B(821)-B(862)-B(868)-B(874)-B(930)-B(948)-B(1227)-B(1233)&\n                &-B(1343)-B(1359)-B(1425)-B(1454)-B(1468)-B(1473)-B(1563)-B(1565)-B(1567)-B(1641)-B(1642)\nIF (DO_JVS(4809)) &\n! JVS(4809) = Jac_FULL(341,342)\n  JVS(4809) = -B(390)\nIF (DO_JVS(4810)) &\n! JVS(4810) = Jac_FULL(341,343)\n  JVS(4810) = B(445)-B(448)\nIF (DO_JVS(4811)) &\n! JVS(4811) = Jac_FULL(341,344)\n  JVS(4811) = 0\nIF (DO_JVS(4812)) &\n! JVS(4812) = Jac_FULL(341,345)\n  JVS(4812) = -B(29)\nIF (DO_JVS(4813)) &\n! JVS(4813) = Jac_FULL(341,346)\n  JVS(4813) = -B(27)\nIF (DO_JVS(4814)) &\n! JVS(4814) = Jac_FULL(341,347)\n  JVS(4814) = 0\nIF (DO_JVS(4815)) &\n! JVS(4815) = Jac_FULL(341,348)\n  JVS(4815) = -B(3)-B(10)-B(18)\nIF (DO_JVS(4816)) &\n! JVS(4816) = Jac_FULL(341,349)\n  JVS(4816) = -B(1566)\nIF (DO_JVS(4817)) &\n! JVS(4817) = Jac_FULL(341,350)\n  JVS(4817) = -B(1568)\nIF (DO_JVS(4818)) &\n! JVS(4818) = Jac_FULL(341,351)\n  JVS(4818) = 0\nIF (DO_JVS(4819)) &\n! JVS(4819) = Jac_FULL(341,352)\n  JVS(4819) = -B(1564)\nIF (DO_JVS(4820)) &\n! JVS(4820) = Jac_FULL(341,353)\n  JVS(4820) = 0\nIF (DO_JVS(4821)) &\n! JVS(4821) = Jac_FULL(342,2)\n  JVS(4821) = B(1736)\nIF (DO_JVS(4822)) &\n! JVS(4822) = Jac_FULL(342,53)\n  JVS(4822) = B(1721)\nIF (DO_JVS(4823)) &\n! JVS(4823) = Jac_FULL(342,54)\n  JVS(4823) = 0.75*B(525)+2*B(1723)\nIF (DO_JVS(4824)) &\n! JVS(4824) = Jac_FULL(342,59)\n  JVS(4824) = B(1695)\nIF (DO_JVS(4825)) &\n! JVS(4825) = Jac_FULL(342,61)\n  JVS(4825) = 0.34*B(509)+B(1722)\nIF (DO_JVS(4826)) &\n! JVS(4826) = Jac_FULL(342,77)\n  JVS(4826) = B(1739)\nIF (DO_JVS(4827)) &\n! JVS(4827) = Jac_FULL(342,78)\n  JVS(4827) = 2*B(429)+0.95*B(499)+2*B(1697)\nIF (DO_JVS(4828)) &\n! JVS(4828) = Jac_FULL(342,81)\n  JVS(4828) = 3*B(427)+1.4*B(501)+3*B(1696)\nIF (DO_JVS(4829)) &\n! JVS(4829) = Jac_FULL(342,105)\n  JVS(4829) = B(431)+0.56*B(497)+B(1698)\nIF (DO_JVS(4830)) &\n! JVS(4830) = Jac_FULL(342,141)\n  JVS(4830) = -B(421)\nIF (DO_JVS(4831)) &\n! JVS(4831) = Jac_FULL(342,148)\n  JVS(4831) = B(403)+2*B(1690)\nIF (DO_JVS(4832)) &\n! JVS(4832) = Jac_FULL(342,157)\n  JVS(4832) = B(1701)\nIF (DO_JVS(4833)) &\n! JVS(4833) = Jac_FULL(342,183)\n  JVS(4833) = -B(419)\nIF (DO_JVS(4834)) &\n! JVS(4834) = Jac_FULL(342,218)\n  JVS(4834) = -B(401)+B(1693)\nIF (DO_JVS(4835)) &\n! JVS(4835) = Jac_FULL(342,252)\n  JVS(4835) = 0\nIF (DO_JVS(4836)) &\n! JVS(4836) = Jac_FULL(342,284)\n  JVS(4836) = B(659)\nIF (DO_JVS(4837)) &\n! JVS(4837) = Jac_FULL(342,290)\n  JVS(4837) = -B(641)\nIF (DO_JVS(4838)) &\n! JVS(4838) = Jac_FULL(342,295)\n  JVS(4838) = -B(417)\nIF (DO_JVS(4839)) &\n! JVS(4839) = Jac_FULL(342,297)\n  JVS(4839) = 0\nIF (DO_JVS(4840)) &\n! JVS(4840) = Jac_FULL(342,300)\n  JVS(4840) = 0\nIF (DO_JVS(4841)) &\n! JVS(4841) = Jac_FULL(342,314)\n  JVS(4841) = 0\nIF (DO_JVS(4842)) &\n! JVS(4842) = Jac_FULL(342,316)\n  JVS(4842) = B(1692)\nIF (DO_JVS(4843)) &\n! JVS(4843) = Jac_FULL(342,317)\n  JVS(4843) = 0\nIF (DO_JVS(4844)) &\n! JVS(4844) = Jac_FULL(342,318)\n  JVS(4844) = 0\nIF (DO_JVS(4845)) &\n! JVS(4845) = Jac_FULL(342,319)\n  JVS(4845) = 0\nIF (DO_JVS(4846)) &\n! JVS(4846) = Jac_FULL(342,320)\n  JVS(4846) = 0\nIF (DO_JVS(4847)) &\n! JVS(4847) = Jac_FULL(342,323)\n  JVS(4847) = 0\nIF (DO_JVS(4848)) &\n! JVS(4848) = Jac_FULL(342,324)\n  JVS(4848) = 0\nIF (DO_JVS(4849)) &\n! JVS(4849) = Jac_FULL(342,325)\n  JVS(4849) = -B(413)\nIF (DO_JVS(4850)) &\n! JVS(4850) = Jac_FULL(342,326)\n  JVS(4850) = -B(415)\nIF (DO_JVS(4851)) &\n! JVS(4851) = Jac_FULL(342,328)\n  JVS(4851) = 0\nIF (DO_JVS(4852)) &\n! JVS(4852) = Jac_FULL(342,329)\n  JVS(4852) = 0\nIF (DO_JVS(4853)) &\n! JVS(4853) = Jac_FULL(342,330)\n  JVS(4853) = 0\nIF (DO_JVS(4854)) &\n! JVS(4854) = Jac_FULL(342,331)\n  JVS(4854) = B(657)\nIF (DO_JVS(4855)) &\n! JVS(4855) = Jac_FULL(342,332)\n  JVS(4855) = 0\nIF (DO_JVS(4856)) &\n! JVS(4856) = Jac_FULL(342,333)\n  JVS(4856) = 0\nIF (DO_JVS(4857)) &\n! JVS(4857) = Jac_FULL(342,334)\n  JVS(4857) = 0.6*B(489)+0.56*B(498)+0.95*B(500)+1.4*B(502)+0.34*B(510)+0.75*B(526)\nIF (DO_JVS(4858)) &\n! JVS(4858) = Jac_FULL(342,335)\n  JVS(4858) = -B(423)\nIF (DO_JVS(4859)) &\n! JVS(4859) = Jac_FULL(342,336)\n  JVS(4859) = 0\nIF (DO_JVS(4860)) &\n! JVS(4860) = Jac_FULL(342,337)\n  JVS(4860) = -B(393)\nIF (DO_JVS(4861)) &\n! JVS(4861) = Jac_FULL(342,338)\n  JVS(4861) = B(595)+B(597)\nIF (DO_JVS(4862)) &\n! JVS(4862) = Jac_FULL(342,339)\n  JVS(4862) = 0\nIF (DO_JVS(4863)) &\n! JVS(4863) = Jac_FULL(342,340)\n  JVS(4863) = 0\nIF (DO_JVS(4864)) &\n! JVS(4864) = Jac_FULL(342,341)\n  JVS(4864) = -B(389)\nIF (DO_JVS(4865)) &\n! JVS(4865) = Jac_FULL(342,342)\n  JVS(4865) = -B(390)-B(394)-B(402)-B(411)-B(414)-B(416)-B(418)-B(420)-B(422)-B(424)-B(642)\nIF (DO_JVS(4866)) &\n! JVS(4866) = Jac_FULL(342,343)\n  JVS(4866) = B(407)+B(483)\nIF (DO_JVS(4867)) &\n! JVS(4867) = Jac_FULL(342,344)\n  JVS(4867) = 0\nIF (DO_JVS(4868)) &\n! JVS(4868) = Jac_FULL(342,345)\n  JVS(4868) = B(395)+B(404)+B(409)+3*B(428)+2*B(430)+B(432)\nIF (DO_JVS(4869)) &\n! JVS(4869) = Jac_FULL(342,346)\n  JVS(4869) = B(399)\nIF (DO_JVS(4870)) &\n! JVS(4870) = Jac_FULL(342,347)\n  JVS(4870) = 2*B(397)+B(400)+B(410)+B(484)+B(596)+B(598)+B(658)+B(660)+B(1691)\nIF (DO_JVS(4871)) &\n! JVS(4871) = Jac_FULL(342,348)\n  JVS(4871) = 0\nIF (DO_JVS(4872)) &\n! JVS(4872) = Jac_FULL(342,349)\n  JVS(4872) = 0\nIF (DO_JVS(4873)) &\n! JVS(4873) = Jac_FULL(342,350)\n  JVS(4873) = 0\nIF (DO_JVS(4874)) &\n! JVS(4874) = Jac_FULL(342,351)\n  JVS(4874) = -B(412)\nIF (DO_JVS(4875)) &\n! JVS(4875) = Jac_FULL(342,352)\n  JVS(4875) = B(396)+B(408)+0.6*B(490)\nIF (DO_JVS(4876)) &\n! JVS(4876) = Jac_FULL(342,353)\n  JVS(4876) = 0\nIF (DO_JVS(4877)) &\n! JVS(4877) = Jac_FULL(343,46)\n  JVS(4877) = 0.21*B(493)\nIF (DO_JVS(4878)) &\n! JVS(4878) = Jac_FULL(343,47)\n  JVS(4878) = 0.1*B(505)\nIF (DO_JVS(4879)) &\n! JVS(4879) = Jac_FULL(343,48)\n  JVS(4879) = 0.14*B(507)\nIF (DO_JVS(4880)) &\n! JVS(4880) = Jac_FULL(343,49)\n  JVS(4880) = 0.1*B(519)\nIF (DO_JVS(4881)) &\n! JVS(4881) = Jac_FULL(343,50)\n  JVS(4881) = 0.1*B(521)\nIF (DO_JVS(4882)) &\n! JVS(4882) = Jac_FULL(343,51)\n  JVS(4882) = 0.14*B(523)\nIF (DO_JVS(4883)) &\n! JVS(4883) = Jac_FULL(343,53)\n  JVS(4883) = 0.55*B(511)\nIF (DO_JVS(4884)) &\n! JVS(4884) = Jac_FULL(343,54)\n  JVS(4884) = 0.25*B(525)\nIF (DO_JVS(4885)) &\n! JVS(4885) = Jac_FULL(343,61)\n  JVS(4885) = 0.35*B(509)\nIF (DO_JVS(4886)) &\n! JVS(4886) = Jac_FULL(343,67)\n  JVS(4886) = B(477)+B(479)+B(481)\nIF (DO_JVS(4887)) &\n! JVS(4887) = Jac_FULL(343,68)\n  JVS(4887) = -B(457)\nIF (DO_JVS(4888)) &\n! JVS(4888) = Jac_FULL(343,78)\n  JVS(4888) = 0.05*B(499)\nIF (DO_JVS(4889)) &\n! JVS(4889) = Jac_FULL(343,81)\n  JVS(4889) = 0.3*B(501)\nIF (DO_JVS(4890)) &\n! JVS(4890) = Jac_FULL(343,84)\n  JVS(4890) = 0.21*B(517)\nIF (DO_JVS(4891)) &\n! JVS(4891) = Jac_FULL(343,85)\n  JVS(4891) = 0.31*B(513)\nIF (DO_JVS(4892)) &\n! JVS(4892) = Jac_FULL(343,86)\n  JVS(4892) = 0.35*B(515)\nIF (DO_JVS(4893)) &\n! JVS(4893) = Jac_FULL(343,87)\n  JVS(4893) = 0.25*B(503)\nIF (DO_JVS(4894)) &\n! JVS(4894) = Jac_FULL(343,120)\n  JVS(4894) = B(1704)\nIF (DO_JVS(4895)) &\n! JVS(4895) = Jac_FULL(343,181)\n  JVS(4895) = 0.1*B(495)\nIF (DO_JVS(4896)) &\n! JVS(4896) = Jac_FULL(343,217)\n  JVS(4896) = 0.02*B(475)\nIF (DO_JVS(4897)) &\n! JVS(4897) = Jac_FULL(343,228)\n  JVS(4897) = 0\nIF (DO_JVS(4898)) &\n! JVS(4898) = Jac_FULL(343,245)\n  JVS(4898) = 0.25*B(491)\nIF (DO_JVS(4899)) &\n! JVS(4899) = Jac_FULL(343,264)\n  JVS(4899) = -B(469)\nIF (DO_JVS(4900)) &\n! JVS(4900) = Jac_FULL(343,276)\n  JVS(4900) = 0\nIF (DO_JVS(4901)) &\n! JVS(4901) = Jac_FULL(343,284)\n  JVS(4901) = B(1727)\nIF (DO_JVS(4902)) &\n! JVS(4902) = Jac_FULL(343,290)\n  JVS(4902) = 0\nIF (DO_JVS(4903)) &\n! JVS(4903) = Jac_FULL(343,297)\n  JVS(4903) = 0\nIF (DO_JVS(4904)) &\n! JVS(4904) = Jac_FULL(343,312)\n  JVS(4904) = 0\nIF (DO_JVS(4905)) &\n! JVS(4905) = Jac_FULL(343,314)\n  JVS(4905) = 0\nIF (DO_JVS(4906)) &\n! JVS(4906) = Jac_FULL(343,316)\n  JVS(4906) = -B(405)\nIF (DO_JVS(4907)) &\n! JVS(4907) = Jac_FULL(343,317)\n  JVS(4907) = -B(601)\nIF (DO_JVS(4908)) &\n! JVS(4908) = Jac_FULL(343,324)\n  JVS(4908) = 0\nIF (DO_JVS(4909)) &\n! JVS(4909) = Jac_FULL(343,325)\n  JVS(4909) = -B(485)\nIF (DO_JVS(4910)) &\n! JVS(4910) = Jac_FULL(343,326)\n  JVS(4910) = 0\nIF (DO_JVS(4911)) &\n! JVS(4911) = Jac_FULL(343,328)\n  JVS(4911) = 0\nIF (DO_JVS(4912)) &\n! JVS(4912) = Jac_FULL(343,329)\n  JVS(4912) = 0\nIF (DO_JVS(4913)) &\n! JVS(4913) = Jac_FULL(343,330)\n  JVS(4913) = 0\nIF (DO_JVS(4914)) &\n! JVS(4914) = Jac_FULL(343,331)\n  JVS(4914) = 0\nIF (DO_JVS(4915)) &\n! JVS(4915) = Jac_FULL(343,332)\n  JVS(4915) = 0\nIF (DO_JVS(4916)) &\n! JVS(4916) = Jac_FULL(343,333)\n  JVS(4916) = 0\nIF (DO_JVS(4917)) &\n! JVS(4917) = Jac_FULL(343,334)\n  JVS(4917) = B(435)+B(437)+B(455)+0.12*B(487)+0.2*B(489)+0.25*B(492)+0.21*B(494)+0.1*B(496)+0.05*B(500)+0.3*B(502)+0.25&\n                &*B(504)+0.1*B(506)+0.14*B(508)+0.35*B(510)+0.55*B(512)+0.31*B(514)+0.35*B(516)+0.21*B(518)+0.1*B(520)+0.1&\n                &*B(522)+0.14*B(524)+0.25*B(526)\nIF (DO_JVS(4918)) &\n! JVS(4918) = Jac_FULL(343,335)\n  JVS(4918) = -B(461)-B(467)+B(482)+B(1644)\nIF (DO_JVS(4919)) &\n! JVS(4919) = Jac_FULL(343,336)\n  JVS(4919) = 0\nIF (DO_JVS(4920)) &\n! JVS(4920) = Jac_FULL(343,337)\n  JVS(4920) = -B(453)+0.02*B(476)\nIF (DO_JVS(4921)) &\n! JVS(4921) = Jac_FULL(343,338)\n  JVS(4921) = -B(577)+B(1703)\nIF (DO_JVS(4922)) &\n! JVS(4922) = Jac_FULL(343,339)\n  JVS(4922) = 0.12*B(488)\nIF (DO_JVS(4923)) &\n! JVS(4923) = Jac_FULL(343,340)\n  JVS(4923) = 0\nIF (DO_JVS(4924)) &\n! JVS(4924) = Jac_FULL(343,341)\n  JVS(4924) = -B(447)+B(456)+B(1641)\nIF (DO_JVS(4925)) &\n! JVS(4925) = Jac_FULL(343,342)\n  JVS(4925) = 0\nIF (DO_JVS(4926)) &\n! JVS(4926) = Jac_FULL(343,343)\n  JVS(4926) = -B(406)-B(407)-B(445)-B(448)-B(451)-B(454)-B(458)-B(462)-B(463)-B(465)-B(468)-B(470)-B(483)-B(486)-B(578)&\n                &-B(602)\nIF (DO_JVS(4927)) &\n! JVS(4927) = Jac_FULL(343,344)\n  JVS(4927) = 0\nIF (DO_JVS(4928)) &\n! JVS(4928) = Jac_FULL(343,345)\n  JVS(4928) = B(36)-B(452)\nIF (DO_JVS(4929)) &\n! JVS(4929) = Jac_FULL(343,346)\n  JVS(4929) = -B(466)+B(480)+B(1747)\nIF (DO_JVS(4930)) &\n! JVS(4930) = Jac_FULL(343,347)\n  JVS(4930) = -B(484)+B(1691)\nIF (DO_JVS(4931)) &\n! JVS(4931) = Jac_FULL(343,348)\n  JVS(4931) = 0\nIF (DO_JVS(4932)) &\n! JVS(4932) = Jac_FULL(343,349)\n  JVS(4932) = 0\nIF (DO_JVS(4933)) &\n! JVS(4933) = Jac_FULL(343,350)\n  JVS(4933) = 0\nIF (DO_JVS(4934)) &\n! JVS(4934) = Jac_FULL(343,351)\n  JVS(4934) = -B(464)+B(1653)\nIF (DO_JVS(4935)) &\n! JVS(4935) = Jac_FULL(343,352)\n  JVS(4935) = -B(408)+0.2*B(490)\nIF (DO_JVS(4936)) &\n! JVS(4936) = Jac_FULL(343,353)\n  JVS(4936) = 0\nIF (DO_JVS(4937)) &\n! JVS(4937) = Jac_FULL(344,166)\n  JVS(4937) = B(11)\nIF (DO_JVS(4938)) &\n! JVS(4938) = Jac_FULL(344,214)\n  JVS(4938) = -B(1503)\nIF (DO_JVS(4939)) &\n! JVS(4939) = Jac_FULL(344,252)\n  JVS(4939) = -B(1597)\nIF (DO_JVS(4940)) &\n! JVS(4940) = Jac_FULL(344,297)\n  JVS(4940) = -B(1529)\nIF (DO_JVS(4941)) &\n! JVS(4941) = Jac_FULL(344,316)\n  JVS(4941) = -B(1555)\nIF (DO_JVS(4942)) &\n! JVS(4942) = Jac_FULL(344,317)\n  JVS(4942) = -B(1525)\nIF (DO_JVS(4943)) &\n! JVS(4943) = Jac_FULL(344,327)\n  JVS(4943) = 0\nIF (DO_JVS(4944)) &\n! JVS(4944) = Jac_FULL(344,328)\n  JVS(4944) = 0\nIF (DO_JVS(4945)) &\n! JVS(4945) = Jac_FULL(344,329)\n  JVS(4945) = 0\nIF (DO_JVS(4946)) &\n! JVS(4946) = Jac_FULL(344,330)\n  JVS(4946) = -B(1613)\nIF (DO_JVS(4947)) &\n! JVS(4947) = Jac_FULL(344,331)\n  JVS(4947) = 0\nIF (DO_JVS(4948)) &\n! JVS(4948) = Jac_FULL(344,332)\n  JVS(4948) = -B(1605)\nIF (DO_JVS(4949)) &\n! JVS(4949) = Jac_FULL(344,333)\n  JVS(4949) = -B(1545)\nIF (DO_JVS(4950)) &\n! JVS(4950) = Jac_FULL(344,334)\n  JVS(4950) = 0\nIF (DO_JVS(4951)) &\n! JVS(4951) = Jac_FULL(344,335)\n  JVS(4951) = 0\nIF (DO_JVS(4952)) &\n! JVS(4952) = Jac_FULL(344,336)\n  JVS(4952) = 0\nIF (DO_JVS(4953)) &\n! JVS(4953) = Jac_FULL(344,337)\n  JVS(4953) = 0\nIF (DO_JVS(4954)) &\n! JVS(4954) = Jac_FULL(344,338)\n  JVS(4954) = 0\nIF (DO_JVS(4955)) &\n! JVS(4955) = Jac_FULL(344,339)\n  JVS(4955) = B(12)\nIF (DO_JVS(4956)) &\n! JVS(4956) = Jac_FULL(344,340)\n  JVS(4956) = 0\nIF (DO_JVS(4957)) &\n! JVS(4957) = Jac_FULL(344,341)\n  JVS(4957) = 0\nIF (DO_JVS(4958)) &\n! JVS(4958) = Jac_FULL(344,342)\n  JVS(4958) = 0\nIF (DO_JVS(4959)) &\n! JVS(4959) = Jac_FULL(344,343)\n  JVS(4959) = 0\nIF (DO_JVS(4960)) &\n! JVS(4960) = Jac_FULL(344,344)\n  JVS(4960) = -B(1504)-B(1507)-B(1526)-B(1530)-B(1546)-B(1556)-B(1598)-B(1606)-B(1614)\nIF (DO_JVS(4961)) &\n! JVS(4961) = Jac_FULL(344,345)\n  JVS(4961) = -B(1508)\nIF (DO_JVS(4962)) &\n! JVS(4962) = Jac_FULL(344,346)\n  JVS(4962) = 0\nIF (DO_JVS(4963)) &\n! JVS(4963) = Jac_FULL(344,347)\n  JVS(4963) = 0\nIF (DO_JVS(4964)) &\n! JVS(4964) = Jac_FULL(344,348)\n  JVS(4964) = 0\nIF (DO_JVS(4965)) &\n! JVS(4965) = Jac_FULL(344,349)\n  JVS(4965) = 0\nIF (DO_JVS(4966)) &\n! JVS(4966) = Jac_FULL(344,350)\n  JVS(4966) = 0\nIF (DO_JVS(4967)) &\n! JVS(4967) = Jac_FULL(344,351)\n  JVS(4967) = 0\nIF (DO_JVS(4968)) &\n! JVS(4968) = Jac_FULL(344,352)\n  JVS(4968) = 0\nIF (DO_JVS(4969)) &\n! JVS(4969) = Jac_FULL(344,353)\n  JVS(4969) = 0\nIF (DO_JVS(4970)) &\n! JVS(4970) = Jac_FULL(345,41)\n  JVS(4970) = -B(1489)\nIF (DO_JVS(4971)) &\n! JVS(4971) = Jac_FULL(345,43)\n  JVS(4971) = -B(553)\nIF (DO_JVS(4972)) &\n! JVS(4972) = Jac_FULL(345,52)\n  JVS(4972) = -B(685)\nIF (DO_JVS(4973)) &\n! JVS(4973) = Jac_FULL(345,58)\n  JVS(4973) = -B(1397)\nIF (DO_JVS(4974)) &\n! JVS(4974) = Jac_FULL(345,60)\n  JVS(4974) = -0.364*B(1362)\nIF (DO_JVS(4975)) &\n! JVS(4975) = Jac_FULL(345,66)\n  JVS(4975) = -B(760)+B(1810)\nIF (DO_JVS(4976)) &\n! JVS(4976) = Jac_FULL(345,68)\n  JVS(4976) = -B(459)\nIF (DO_JVS(4977)) &\n! JVS(4977) = Jac_FULL(345,69)\n  JVS(4977) = -B(124)\nIF (DO_JVS(4978)) &\n! JVS(4978) = Jac_FULL(345,70)\n  JVS(4978) = -B(1375)\nIF (DO_JVS(4979)) &\n! JVS(4979) = Jac_FULL(345,71)\n  JVS(4979) = -B(1438)+B(1803)\nIF (DO_JVS(4980)) &\n! JVS(4980) = Jac_FULL(345,72)\n  JVS(4980) = -B(308)\nIF (DO_JVS(4981)) &\n! JVS(4981) = Jac_FULL(345,73)\n  JVS(4981) = -B(675)\nIF (DO_JVS(4982)) &\n! JVS(4982) = Jac_FULL(345,74)\n  JVS(4982) = -B(758)+B(1809)\nIF (DO_JVS(4983)) &\n! JVS(4983) = Jac_FULL(345,75)\n  JVS(4983) = -B(551)\nIF (DO_JVS(4984)) &\n! JVS(4984) = Jac_FULL(345,76)\n  JVS(4984) = -B(537)\nIF (DO_JVS(4985)) &\n! JVS(4985) = Jac_FULL(345,78)\n  JVS(4985) = -B(429)\nIF (DO_JVS(4986)) &\n! JVS(4986) = Jac_FULL(345,79)\n  JVS(4986) = -B(549)\nIF (DO_JVS(4987)) &\n! JVS(4987) = Jac_FULL(345,81)\n  JVS(4987) = -B(427)\nIF (DO_JVS(4988)) &\n! JVS(4988) = Jac_FULL(345,82)\n  JVS(4988) = -B(1383)\nIF (DO_JVS(4989)) &\n! JVS(4989) = Jac_FULL(345,83)\n  JVS(4989) = -B(941)\nIF (DO_JVS(4990)) &\n! JVS(4990) = Jac_FULL(345,84)\n  JVS(4990) = -B(561)\nIF (DO_JVS(4991)) &\n! JVS(4991) = Jac_FULL(345,85)\n  JVS(4991) = -B(557)\nIF (DO_JVS(4992)) &\n! JVS(4992) = Jac_FULL(345,86)\n  JVS(4992) = -B(559)\nIF (DO_JVS(4993)) &\n! JVS(4993) = Jac_FULL(345,87)\n  JVS(4993) = 0.05*B(503)-B(555)\nIF (DO_JVS(4994)) &\n! JVS(4994) = Jac_FULL(345,88)\n  JVS(4994) = -0.5*B(1322)+2*B(1761)\nIF (DO_JVS(4995)) &\n! JVS(4995) = Jac_FULL(345,89)\n  JVS(4995) = -B(23)\nIF (DO_JVS(4996)) &\n! JVS(4996) = Jac_FULL(345,90)\n  JVS(4996) = -B(1441)\nIF (DO_JVS(4997)) &\n! JVS(4997) = Jac_FULL(345,91)\n  JVS(4997) = -B(943)\nIF (DO_JVS(4998)) &\n! JVS(4998) = Jac_FULL(345,92)\n  JVS(4998) = -0.78*B(342)+B(1689)\nIF (DO_JVS(4999)) &\n! JVS(4999) = Jac_FULL(345,93)\n  JVS(4999) = -B(939)\nIF (DO_JVS(5000)) &\n! JVS(5000) = Jac_FULL(345,94)\n  JVS(5000) = -B(381)-B(383)\nIF (DO_JVS(5001)) &\n! JVS(5001) = Jac_FULL(345,95)\n  JVS(5001) = -B(945)\nIF (DO_JVS(5002)) &\n! JVS(5002) = Jac_FULL(345,97)\n  JVS(5002) = -0.21*B(332)+B(1680)\nIF (DO_JVS(5003)) &\n! JVS(5003) = Jac_FULL(345,98)\n  JVS(5003) = -0.5*B(134)+B(1681)\nIF (DO_JVS(5004)) &\n! JVS(5004) = Jac_FULL(345,99)\n  JVS(5004) = -0.36*B(328)+B(1678)\nIF (DO_JVS(5005)) &\n! JVS(5005) = Jac_FULL(345,100)\n  JVS(5005) = -0.209*B(330)+B(1679)\nIF (DO_JVS(5006)) &\n! JVS(5006) = Jac_FULL(345,101)\n  JVS(5006) = -B(1385)\nIF (DO_JVS(5007)) &\n! JVS(5007) = Jac_FULL(345,102)\n  JVS(5007) = -0.21*B(334)+B(1682)\nIF (DO_JVS(5008)) &\n! JVS(5008) = Jac_FULL(345,105)\n  JVS(5008) = -B(431)\nIF (DO_JVS(5009)) &\n! JVS(5009) = Jac_FULL(345,107)\n  JVS(5009) = -0.3*B(1304)\nIF (DO_JVS(5010)) &\n! JVS(5010) = Jac_FULL(345,108)\n  JVS(5010) = -B(76)+B(1651)\nIF (DO_JVS(5011)) &\n! JVS(5011) = Jac_FULL(345,109)\n  JVS(5011) = -B(1360)\nIF (DO_JVS(5012)) &\n! JVS(5012) = Jac_FULL(345,111)\n  JVS(5012) = -B(741)+B(1807)\nIF (DO_JVS(5013)) &\n! JVS(5013) = Jac_FULL(345,112)\n  JVS(5013) = -B(782)+B(1812)\nIF (DO_JVS(5014)) &\n! JVS(5014) = Jac_FULL(345,113)\n  JVS(5014) = -B(241)\nIF (DO_JVS(5015)) &\n! JVS(5015) = Jac_FULL(345,114)\n  JVS(5015) = -B(306)\nIF (DO_JVS(5016)) &\n! JVS(5016) = Jac_FULL(345,115)\n  JVS(5016) = -B(1320)\nIF (DO_JVS(5017)) &\n! JVS(5017) = Jac_FULL(345,116)\n  JVS(5017) = -B(1356)\nIF (DO_JVS(5018)) &\n! JVS(5018) = Jac_FULL(345,117)\n  JVS(5018) = -B(1451)\nIF (DO_JVS(5019)) &\n! JVS(5019) = Jac_FULL(345,118)\n  JVS(5019) = -0.36*B(326)+B(1677)\nIF (DO_JVS(5020)) &\n! JVS(5020) = Jac_FULL(345,119)\n  JVS(5020) = -B(1013)\nIF (DO_JVS(5021)) &\n! JVS(5021) = Jac_FULL(345,120)\n  JVS(5021) = -B(535)\nIF (DO_JVS(5022)) &\n! JVS(5022) = Jac_FULL(345,122)\n  JVS(5022) = -B(1412)\nIF (DO_JVS(5023)) &\n! JVS(5023) = Jac_FULL(345,123)\n  JVS(5023) = -0.209*B(338)+B(1683)\nIF (DO_JVS(5024)) &\n! JVS(5024) = Jac_FULL(345,124)\n  JVS(5024) = -B(206)\nIF (DO_JVS(5025)) &\n! JVS(5025) = Jac_FULL(345,125)\n  JVS(5025) = -0.209*B(324)+B(1676)\nIF (DO_JVS(5026)) &\n! JVS(5026) = Jac_FULL(345,126)\n  JVS(5026) = -B(167)\nIF (DO_JVS(5027)) &\n! JVS(5027) = Jac_FULL(345,127)\n  JVS(5027) = -B(152)\nIF (DO_JVS(5028)) &\n! JVS(5028) = Jac_FULL(345,128)\n  JVS(5028) = -B(1052)\nIF (DO_JVS(5029)) &\n! JVS(5029) = Jac_FULL(345,129)\n  JVS(5029) = -B(784)\nIF (DO_JVS(5030)) &\n! JVS(5030) = Jac_FULL(345,130)\n  JVS(5030) = -B(849)+B(1815)\nIF (DO_JVS(5031)) &\n! JVS(5031) = Jac_FULL(345,131)\n  JVS(5031) = -B(1262)\nIF (DO_JVS(5032)) &\n! JVS(5032) = Jac_FULL(345,133)\n  JVS(5032) = B(1085)+2*B(1087)\nIF (DO_JVS(5033)) &\n! JVS(5033) = Jac_FULL(345,134)\n  JVS(5033) = 2*B(1746)\nIF (DO_JVS(5034)) &\n! JVS(5034) = Jac_FULL(345,135)\n  JVS(5034) = B(1089)+2*B(1091)\nIF (DO_JVS(5035)) &\n! JVS(5035) = Jac_FULL(345,136)\n  JVS(5035) = -B(1377)+B(1801)\nIF (DO_JVS(5036)) &\n! JVS(5036) = Jac_FULL(345,137)\n  JVS(5036) = -B(743)\nIF (DO_JVS(5037)) &\n! JVS(5037) = Jac_FULL(345,138)\n  JVS(5037) = -B(780)\nIF (DO_JVS(5038)) &\n! JVS(5038) = Jac_FULL(345,139)\n  JVS(5038) = -B(102)\nIF (DO_JVS(5039)) &\n! JVS(5039) = Jac_FULL(345,140)\n  JVS(5039) = -B(142)\nIF (DO_JVS(5040)) &\n! JVS(5040) = Jac_FULL(345,141)\n  JVS(5040) = -B(114)-B(116)\nIF (DO_JVS(5041)) &\n! JVS(5041) = Jac_FULL(345,142)\n  JVS(5041) = -B(169)\nIF (DO_JVS(5042)) &\n! JVS(5042) = Jac_FULL(345,143)\n  JVS(5042) = -B(1381)\nIF (DO_JVS(5043)) &\n! JVS(5043) = Jac_FULL(345,144)\n  JVS(5043) = B(1782)\nIF (DO_JVS(5044)) &\n! JVS(5044) = Jac_FULL(345,146)\n  JVS(5044) = -B(1403)\nIF (DO_JVS(5045)) &\n! JVS(5045) = Jac_FULL(345,147)\n  JVS(5045) = -0.556*B(1308)+0.546*B(1796)\nIF (DO_JVS(5046)) &\n! JVS(5046) = Jac_FULL(345,148)\n  JVS(5046) = -B(403)\nIF (DO_JVS(5047)) &\n! JVS(5047) = Jac_FULL(345,149)\n  JVS(5047) = -B(1344)\nIF (DO_JVS(5048)) &\n! JVS(5048) = Jac_FULL(345,150)\n  JVS(5048) = B(1781)\nIF (DO_JVS(5049)) &\n! JVS(5049) = Jac_FULL(345,151)\n  JVS(5049) = -B(1054)-B(1056)\nIF (DO_JVS(5050)) &\n! JVS(5050) = Jac_FULL(345,152)\n  JVS(5050) = -B(1058)-B(1060)\nIF (DO_JVS(5051)) &\n! JVS(5051) = Jac_FULL(345,153)\n  JVS(5051) = -B(1268)\nIF (DO_JVS(5052)) &\n! JVS(5052) = Jac_FULL(345,154)\n  JVS(5052) = -B(937)\nIF (DO_JVS(5053)) &\n! JVS(5053) = Jac_FULL(345,155)\n  JVS(5053) = -B(336)+B(1684)\nIF (DO_JVS(5054)) &\n! JVS(5054) = Jac_FULL(345,156)\n  JVS(5054) = -B(269)\nIF (DO_JVS(5055)) &\n! JVS(5055) = Jac_FULL(345,158)\n  JVS(5055) = -B(1418)\nIF (DO_JVS(5056)) &\n! JVS(5056) = Jac_FULL(345,159)\n  JVS(5056) = -0.415*B(1280)+0.75*B(1771)\nIF (DO_JVS(5057)) &\n! JVS(5057) = Jac_FULL(345,160)\n  JVS(5057) = -B(770)+B(1811)\nIF (DO_JVS(5058)) &\n! JVS(5058) = Jac_FULL(345,161)\n  JVS(5058) = -B(796)+B(1813)\nIF (DO_JVS(5059)) &\n! JVS(5059) = Jac_FULL(345,162)\n  JVS(5059) = -B(798)\nIF (DO_JVS(5060)) &\n! JVS(5060) = Jac_FULL(345,163)\n  JVS(5060) = -B(832)\nIF (DO_JVS(5061)) &\n! JVS(5061) = Jac_FULL(345,164)\n  JVS(5061) = -0.7*B(59)+B(1646)\nIF (DO_JVS(5062)) &\n! JVS(5062) = Jac_FULL(345,167)\n  JVS(5062) = -B(723)+0.865*B(725)\nIF (DO_JVS(5063)) &\n! JVS(5063) = Jac_FULL(345,168)\n  JVS(5063) = -B(1097)-B(1099)\nIF (DO_JVS(5064)) &\n! JVS(5064) = Jac_FULL(345,169)\n  JVS(5064) = -B(847)+B(1814)\nIF (DO_JVS(5065)) &\n! JVS(5065) = Jac_FULL(345,170)\n  JVS(5065) = -B(673)\nIF (DO_JVS(5066)) &\n! JVS(5066) = Jac_FULL(345,171)\n  JVS(5066) = B(1248)\nIF (DO_JVS(5067)) &\n! JVS(5067) = Jac_FULL(345,172)\n  JVS(5067) = B(1254)\nIF (DO_JVS(5068)) &\n! JVS(5068) = Jac_FULL(345,173)\n  JVS(5068) = -B(1336)\nIF (DO_JVS(5069)) &\n! JVS(5069) = Jac_FULL(345,174)\n  JVS(5069) = 1.25*B(1794)\nIF (DO_JVS(5070)) &\n! JVS(5070) = Jac_FULL(345,175)\n  JVS(5070) = -B(1093)-B(1095)\nIF (DO_JVS(5071)) &\n! JVS(5071) = Jac_FULL(345,176)\n  JVS(5071) = -B(772)\nIF (DO_JVS(5072)) &\n! JVS(5072) = Jac_FULL(345,177)\n  JVS(5072) = -B(836)\nIF (DO_JVS(5073)) &\n! JVS(5073) = Jac_FULL(345,178)\n  JVS(5073) = 0\nIF (DO_JVS(5074)) &\n! JVS(5074) = Jac_FULL(345,179)\n  JVS(5074) = 0\nIF (DO_JVS(5075)) &\n! JVS(5075) = Jac_FULL(345,180)\n  JVS(5075) = 0.82*B(1222)\nIF (DO_JVS(5076)) &\n! JVS(5076) = Jac_FULL(345,181)\n  JVS(5076) = -B(547)\nIF (DO_JVS(5077)) &\n! JVS(5077) = Jac_FULL(345,182)\n  JVS(5077) = B(1216)\nIF (DO_JVS(5078)) &\n! JVS(5078) = Jac_FULL(345,183)\n  JVS(5078) = -B(106)\nIF (DO_JVS(5079)) &\n! JVS(5079) = Jac_FULL(345,184)\n  JVS(5079) = -B(1302)\nIF (DO_JVS(5080)) &\n! JVS(5080) = Jac_FULL(345,185)\n  JVS(5080) = B(1768)\nIF (DO_JVS(5081)) &\n! JVS(5081) = Jac_FULL(345,186)\n  JVS(5081) = -B(1182)-B(1188)-B(1192)+B(1788)\nIF (DO_JVS(5082)) &\n! JVS(5082) = Jac_FULL(345,187)\n  JVS(5082) = -B(1015)-B(1023)+B(1775)\nIF (DO_JVS(5083)) &\n! JVS(5083) = Jac_FULL(345,188)\n  JVS(5083) = -B(271)\nIF (DO_JVS(5084)) &\n! JVS(5084) = Jac_FULL(345,189)\n  JVS(5084) = B(1354)\nIF (DO_JVS(5085)) &\n! JVS(5085) = Jac_FULL(345,190)\n  JVS(5085) = 0.599*B(1121)\nIF (DO_JVS(5086)) &\n! JVS(5086) = Jac_FULL(345,191)\n  JVS(5086) = -B(731)+0.65*B(733)\nIF (DO_JVS(5087)) &\n! JVS(5087) = Jac_FULL(345,192)\n  JVS(5087) = -B(1019)-B(1025)+B(1776)\nIF (DO_JVS(5088)) &\n! JVS(5088) = Jac_FULL(345,193)\n  JVS(5088) = -B(865)\nIF (DO_JVS(5089)) &\n! JVS(5089) = Jac_FULL(345,194)\n  JVS(5089) = -0.715*B(1258)+1.75*B(1769)\nIF (DO_JVS(5090)) &\n! JVS(5090) = Jac_FULL(345,195)\n  JVS(5090) = -B(1414)\nIF (DO_JVS(5091)) &\n! JVS(5091) = Jac_FULL(345,196)\n  JVS(5091) = -B(136)\nIF (DO_JVS(5092)) &\n! JVS(5092) = Jac_FULL(345,197)\n  JVS(5092) = 0.25*B(160)\nIF (DO_JVS(5093)) &\n! JVS(5093) = Jac_FULL(345,198)\n  JVS(5093) = B(1795)\nIF (DO_JVS(5094)) &\n! JVS(5094) = Jac_FULL(345,199)\n  JVS(5094) = -0.255*B(1029)+B(1778)\nIF (DO_JVS(5095)) &\n! JVS(5095) = Jac_FULL(345,200)\n  JVS(5095) = -B(1348)\nIF (DO_JVS(5096)) &\n! JVS(5096) = Jac_FULL(345,201)\n  JVS(5096) = -0.75*B(1470)+0.1*B(1472)\nIF (DO_JVS(5097)) &\n! JVS(5097) = Jac_FULL(345,202)\n  JVS(5097) = -B(1422)+B(1424)\nIF (DO_JVS(5098)) &\n! JVS(5098) = Jac_FULL(345,204)\n  JVS(5098) = -B(1428)\nIF (DO_JVS(5099)) &\n! JVS(5099) = Jac_FULL(345,205)\n  JVS(5099) = 0.518*B(1114)\nIF (DO_JVS(5100)) &\n! JVS(5100) = Jac_FULL(345,206)\n  JVS(5100) = 0.582*B(1129)\nIF (DO_JVS(5101)) &\n! JVS(5101) = Jac_FULL(345,207)\n  JVS(5101) = 0.506*B(1135)\nIF (DO_JVS(5102)) &\n! JVS(5102) = Jac_FULL(345,208)\n  JVS(5102) = -B(1266)\nIF (DO_JVS(5103)) &\n! JVS(5103) = Jac_FULL(345,209)\n  JVS(5103) = -0.595*B(1027)+B(1777)\nIF (DO_JVS(5104)) &\n! JVS(5104) = Jac_FULL(345,210)\n  JVS(5104) = B(1762)\nIF (DO_JVS(5105)) &\n! JVS(5105) = Jac_FULL(345,211)\n  JVS(5105) = -B(818)\nIF (DO_JVS(5106)) &\n! JVS(5106) = Jac_FULL(345,212)\n  JVS(5106) = 0\nIF (DO_JVS(5107)) &\n! JVS(5107) = Jac_FULL(345,213)\n  JVS(5107) = 0.44*B(302)\nIF (DO_JVS(5108)) &\n! JVS(5108) = Jac_FULL(345,216)\n  JVS(5108) = B(1774)\nIF (DO_JVS(5109)) &\n! JVS(5109) = Jac_FULL(345,217)\n  JVS(5109) = B(473)+1.788*B(475)\nIF (DO_JVS(5110)) &\n! JVS(5110) = Jac_FULL(345,218)\n  JVS(5110) = 0\nIF (DO_JVS(5111)) &\n! JVS(5111) = Jac_FULL(345,219)\n  JVS(5111) = -B(727)+0.8*B(729)\nIF (DO_JVS(5112)) &\n! JVS(5112) = Jac_FULL(345,220)\n  JVS(5112) = -B(1338)+0.18*B(1342)\nIF (DO_JVS(5113)) &\n! JVS(5113) = Jac_FULL(345,221)\n  JVS(5113) = -0.75*B(1465)+0.1*B(1467)\nIF (DO_JVS(5114)) &\n! JVS(5114) = Jac_FULL(345,222)\n  JVS(5114) = -B(1180)-B(1190)+0.67*B(1787)\nIF (DO_JVS(5115)) &\n! JVS(5115) = Jac_FULL(345,223)\n  JVS(5115) = B(1031)+0.275*B(1036)\nIF (DO_JVS(5116)) &\n! JVS(5116) = Jac_FULL(345,224)\n  JVS(5116) = B(1038)+0.275*B(1043)\nIF (DO_JVS(5117)) &\n! JVS(5117) = Jac_FULL(345,225)\n  JVS(5117) = -B(747)\nIF (DO_JVS(5118)) &\n! JVS(5118) = Jac_FULL(345,226)\n  JVS(5118) = B(1196)+0.646*B(1200)+0.096*B(1206)\nIF (DO_JVS(5119)) &\n! JVS(5119) = Jac_FULL(345,228)\n  JVS(5119) = -B(47)+0.75*B(443)\nIF (DO_JVS(5120)) &\n! JVS(5120) = Jac_FULL(345,229)\n  JVS(5120) = -0.7*B(859)+0.3*B(861)+0.15*B(863)+B(1748)+B(1816)\nIF (DO_JVS(5121)) &\n! JVS(5121) = Jac_FULL(345,230)\n  JVS(5121) = 0.085*B(1001)+1.662*B(1779)\nIF (DO_JVS(5122)) &\n! JVS(5122) = Jac_FULL(345,231)\n  JVS(5122) = 0.165*B(1003)+1.637*B(1780)\nIF (DO_JVS(5123)) &\n! JVS(5123) = Jac_FULL(345,232)\n  JVS(5123) = B(1046)+1.3*B(1050)\nIF (DO_JVS(5124)) &\n! JVS(5124) = Jac_FULL(345,233)\n  JVS(5124) = -B(154)\nIF (DO_JVS(5125)) &\n! JVS(5125) = Jac_FULL(345,234)\n  JVS(5125) = 0\nIF (DO_JVS(5126)) &\n! JVS(5126) = Jac_FULL(345,235)\n  JVS(5126) = 0.2*B(1432)\nIF (DO_JVS(5127)) &\n! JVS(5127) = Jac_FULL(345,236)\n  JVS(5127) = 0\nIF (DO_JVS(5128)) &\n! JVS(5128) = Jac_FULL(345,237)\n  JVS(5128) = -B(812)+0.865*B(814)\nIF (DO_JVS(5129)) &\n! JVS(5129) = Jac_FULL(345,238)\n  JVS(5129) = 0.065*B(1009)\nIF (DO_JVS(5130)) &\n! JVS(5130) = Jac_FULL(345,239)\n  JVS(5130) = -B(71)+B(1650)\nIF (DO_JVS(5131)) &\n! JVS(5131) = Jac_FULL(345,240)\n  JVS(5131) = 0.44*B(1407)\nIF (DO_JVS(5132)) &\n! JVS(5132) = Jac_FULL(345,241)\n  JVS(5132) = 0\nIF (DO_JVS(5133)) &\n! JVS(5133) = Jac_FULL(345,242)\n  JVS(5133) = -B(927)\nIF (DO_JVS(5134)) &\n! JVS(5134) = Jac_FULL(345,243)\n  JVS(5134) = 0.65*B(1078)+B(1084)\nIF (DO_JVS(5135)) &\n! JVS(5135) = Jac_FULL(345,244)\n  JVS(5135) = -0.7*B(61)+B(1743)\nIF (DO_JVS(5136)) &\n! JVS(5136) = Jac_FULL(345,245)\n  JVS(5136) = -B(527)\nIF (DO_JVS(5137)) &\n! JVS(5137) = Jac_FULL(345,246)\n  JVS(5137) = 0.44*B(245)\nIF (DO_JVS(5138)) &\n! JVS(5138) = Jac_FULL(345,247)\n  JVS(5138) = -B(689)\nIF (DO_JVS(5139)) &\n! JVS(5139) = Jac_FULL(345,248)\n  JVS(5139) = -B(1242)\nIF (DO_JVS(5140)) &\n! JVS(5140) = Jac_FULL(345,249)\n  JVS(5140) = 0\nIF (DO_JVS(5141)) &\n! JVS(5141) = Jac_FULL(345,250)\n  JVS(5141) = 0\nIF (DO_JVS(5142)) &\n! JVS(5142) = Jac_FULL(345,251)\n  JVS(5142) = -B(195)\nIF (DO_JVS(5143)) &\n! JVS(5143) = Jac_FULL(345,252)\n  JVS(5143) = 0\nIF (DO_JVS(5144)) &\n! JVS(5144) = Jac_FULL(345,253)\n  JVS(5144) = 0.59*B(1276)+B(1282)\nIF (DO_JVS(5145)) &\n! JVS(5145) = Jac_FULL(345,254)\n  JVS(5145) = 0.665*B(1270)\nIF (DO_JVS(5146)) &\n! JVS(5146) = Jac_FULL(345,255)\n  JVS(5146) = -B(806)+0.6*B(808)\nIF (DO_JVS(5147)) &\n! JVS(5147) = Jac_FULL(345,256)\n  JVS(5147) = -B(925)\nIF (DO_JVS(5148)) &\n! JVS(5148) = Jac_FULL(345,257)\n  JVS(5148) = 0.44*B(749)\nIF (DO_JVS(5149)) &\n! JVS(5149) = Jac_FULL(345,258)\n  JVS(5149) = -0.5*B(1306)+0.5*B(1792)+B(1793)\nIF (DO_JVS(5150)) &\n! JVS(5150) = Jac_FULL(345,259)\n  JVS(5150) = 0.5*B(1278)\nIF (DO_JVS(5151)) &\n! JVS(5151) = Jac_FULL(345,260)\n  JVS(5151) = 0\nIF (DO_JVS(5152)) &\n! JVS(5152) = Jac_FULL(345,261)\n  JVS(5152) = -B(687)\nIF (DO_JVS(5153)) &\n! JVS(5153) = Jac_FULL(345,262)\n  JVS(5153) = -B(871)+B(873)\nIF (DO_JVS(5154)) &\n! JVS(5154) = Jac_FULL(345,263)\n  JVS(5154) = B(1387)\nIF (DO_JVS(5155)) &\n! JVS(5155) = Jac_FULL(345,264)\n  JVS(5155) = -B(40)+B(469)+2*B(1645)\nIF (DO_JVS(5156)) &\n! JVS(5156) = Jac_FULL(345,265)\n  JVS(5156) = -B(87)\nIF (DO_JVS(5157)) &\n! JVS(5157) = Jac_FULL(345,266)\n  JVS(5157) = -B(1314)+B(1799)\nIF (DO_JVS(5158)) &\n! JVS(5158) = Jac_FULL(345,267)\n  JVS(5158) = -B(1105)-B(1107)-0.4*B(1111)+0.55*B(1786)\nIF (DO_JVS(5159)) &\n! JVS(5159) = Jac_FULL(345,268)\n  JVS(5159) = -B(1101)-B(1103)-0.4*B(1109)+0.55*B(1783)\nIF (DO_JVS(5160)) &\n! JVS(5160) = Jac_FULL(345,269)\n  JVS(5160) = -B(1457)\nIF (DO_JVS(5161)) &\n! JVS(5161) = Jac_FULL(345,270)\n  JVS(5161) = -B(312)\nIF (DO_JVS(5162)) &\n! JVS(5162) = Jac_FULL(345,271)\n  JVS(5162) = B(1197)+1.147*B(1198)+0.435*B(1202)\nIF (DO_JVS(5163)) &\n! JVS(5163) = Jac_FULL(345,272)\n  JVS(5163) = 0\nIF (DO_JVS(5164)) &\n! JVS(5164) = Jac_FULL(345,273)\n  JVS(5164) = 0\nIF (DO_JVS(5165)) &\n! JVS(5165) = Jac_FULL(345,274)\n  JVS(5165) = 0.44*B(838)\nIF (DO_JVS(5166)) &\n! JVS(5166) = Jac_FULL(345,275)\n  JVS(5166) = 0\nIF (DO_JVS(5167)) &\n! JVS(5167) = Jac_FULL(345,276)\n  JVS(5167) = 0.28*B(947)-B(949)-B(951)+0.5*B(953)+0.5*B(955)\nIF (DO_JVS(5168)) &\n! JVS(5168) = Jac_FULL(345,277)\n  JVS(5168) = 0\nIF (DO_JVS(5169)) &\n! JVS(5169) = Jac_FULL(345,278)\n  JVS(5169) = 0\nIF (DO_JVS(5170)) &\n! JVS(5170) = Jac_FULL(345,279)\n  JVS(5170) = -B(197)\nIF (DO_JVS(5171)) &\n! JVS(5171) = Jac_FULL(345,280)\n  JVS(5171) = 0\nIF (DO_JVS(5172)) &\n! JVS(5172) = Jac_FULL(345,281)\n  JVS(5172) = 0\nIF (DO_JVS(5173)) &\n! JVS(5173) = Jac_FULL(345,282)\n  JVS(5173) = -B(89)\nIF (DO_JVS(5174)) &\n! JVS(5174) = Jac_FULL(345,283)\n  JVS(5174) = -B(199)\nIF (DO_JVS(5175)) &\n! JVS(5175) = Jac_FULL(345,284)\n  JVS(5175) = 0\nIF (DO_JVS(5176)) &\n! JVS(5176) = Jac_FULL(345,285)\n  JVS(5176) = B(1071)+0.65*B(1076)\nIF (DO_JVS(5177)) &\n! JVS(5177) = Jac_FULL(345,286)\n  JVS(5177) = B(1063)+0.65*B(1064)\nIF (DO_JVS(5178)) &\n! JVS(5178) = Jac_FULL(345,287)\n  JVS(5178) = B(1770)\nIF (DO_JVS(5179)) &\n! JVS(5179) = Jac_FULL(345,288)\n  JVS(5179) = B(1767)\nIF (DO_JVS(5180)) &\n! JVS(5180) = Jac_FULL(345,289)\n  JVS(5180) = 0\nIF (DO_JVS(5181)) &\n! JVS(5181) = Jac_FULL(345,290)\n  JVS(5181) = -B(285)+0.36*B(287)\nIF (DO_JVS(5182)) &\n! JVS(5182) = Jac_FULL(345,291)\n  JVS(5182) = 0\nIF (DO_JVS(5183)) &\n! JVS(5183) = Jac_FULL(345,292)\n  JVS(5183) = -B(234)\nIF (DO_JVS(5184)) &\n! JVS(5184) = Jac_FULL(345,293)\n  JVS(5184) = 0.379*B(1141)\nIF (DO_JVS(5185)) &\n! JVS(5185) = Jac_FULL(345,294)\n  JVS(5185) = -B(314)\nIF (DO_JVS(5186)) &\n! JVS(5186) = Jac_FULL(345,295)\n  JVS(5186) = -B(212)\nIF (DO_JVS(5187)) &\n! JVS(5187) = Jac_FULL(345,296)\n  JVS(5187) = 0\nIF (DO_JVS(5188)) &\n! JVS(5188) = Jac_FULL(345,297)\n  JVS(5188) = -B(543)\nIF (DO_JVS(5189)) &\n! JVS(5189) = Jac_FULL(345,298)\n  JVS(5189) = -B(201)\nIF (DO_JVS(5190)) &\n! JVS(5190) = Jac_FULL(345,299)\n  JVS(5190) = -B(1218)\nIF (DO_JVS(5191)) &\n! JVS(5191) = Jac_FULL(345,300)\n  JVS(5191) = 0\nIF (DO_JVS(5192)) &\n! JVS(5192) = Jac_FULL(345,301)\n  JVS(5192) = -B(1210)-0.756*B(1212)+0.645*B(1790)\nIF (DO_JVS(5193)) &\n! JVS(5193) = Jac_FULL(345,302)\n  JVS(5193) = -0.98*B(1236)+0.01*B(1772)\nIF (DO_JVS(5194)) &\n! JVS(5194) = Jac_FULL(345,303)\n  JVS(5194) = -0.7*B(1316)+B(1797)+0.3*B(1798)\nIF (DO_JVS(5195)) &\n! JVS(5195) = Jac_FULL(345,304)\n  JVS(5195) = 0.063*B(961)+B(967)+1.5*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999)\nIF (DO_JVS(5196)) &\n! JVS(5196) = Jac_FULL(345,305)\n  JVS(5196) = 0.063*B(957)+B(965)+1.5*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991)\nIF (DO_JVS(5197)) &\n! JVS(5197) = Jac_FULL(345,306)\n  JVS(5197) = -0.773*B(289)-B(293)+0.07*B(1666)\nIF (DO_JVS(5198)) &\n! JVS(5198) = Jac_FULL(345,307)\n  JVS(5198) = -B(320)\nIF (DO_JVS(5199)) &\n! JVS(5199) = Jac_FULL(345,308)\n  JVS(5199) = 0.5*B(1291)\nIF (DO_JVS(5200)) &\n! JVS(5200) = Jac_FULL(345,309)\n  JVS(5200) = -B(1228)-B(1230)+0.12*B(1232)+0.68*B(1234)\nIF (DO_JVS(5201)) &\n! JVS(5201) = Jac_FULL(345,310)\n  JVS(5201) = 0.527*B(1149)\nIF (DO_JVS(5202)) &\n! JVS(5202) = Jac_FULL(345,311)\n  JVS(5202) = 0\nIF (DO_JVS(5203)) &\n! JVS(5203) = Jac_FULL(345,312)\n  JVS(5203) = 0\nIF (DO_JVS(5204)) &\n! JVS(5204) = Jac_FULL(345,313)\n  JVS(5204) = 0.15*B(226)\nIF (DO_JVS(5205)) &\n! JVS(5205) = Jac_FULL(345,314)\n  JVS(5205) = -B(1224)+0.08*B(1226)\nIF (DO_JVS(5206)) &\n! JVS(5206) = Jac_FULL(345,315)\n  JVS(5206) = 0\nIF (DO_JVS(5207)) &\n! JVS(5207) = Jac_FULL(345,316)\n  JVS(5207) = B(405)+B(1692)\nIF (DO_JVS(5208)) &\n! JVS(5208) = Jac_FULL(345,317)\n  JVS(5208) = -B(545)\nIF (DO_JVS(5209)) &\n! JVS(5209) = Jac_FULL(345,318)\n  JVS(5209) = 0\nIF (DO_JVS(5210)) &\n! JVS(5210) = Jac_FULL(345,319)\n  JVS(5210) = 0\nIF (DO_JVS(5211)) &\n! JVS(5211) = Jac_FULL(345,320)\n  JVS(5211) = 0.15*B(228)\nIF (DO_JVS(5212)) &\n! JVS(5212) = Jac_FULL(345,321)\n  JVS(5212) = 0\nIF (DO_JVS(5213)) &\n! JVS(5213) = Jac_FULL(345,322)\n  JVS(5213) = 0.44*B(283)\nIF (DO_JVS(5214)) &\n! JVS(5214) = Jac_FULL(345,323)\n  JVS(5214) = 0\nIF (DO_JVS(5215)) &\n! JVS(5215) = Jac_FULL(345,324)\n  JVS(5215) = 0.5*B(1324)\nIF (DO_JVS(5216)) &\n! JVS(5216) = Jac_FULL(345,325)\n  JVS(5216) = -B(63)+B(485)\nIF (DO_JVS(5217)) &\n! JVS(5217) = Jac_FULL(345,326)\n  JVS(5217) = -B(95)\nIF (DO_JVS(5218)) &\n! JVS(5218) = Jac_FULL(345,327)\n  JVS(5218) = -B(67)+B(1649)\nIF (DO_JVS(5219)) &\n! JVS(5219) = Jac_FULL(345,328)\n  JVS(5219) = -B(57)+0.5*B(980)+0.5*B(984)\nIF (DO_JVS(5220)) &\n! JVS(5220) = Jac_FULL(345,329)\n  JVS(5220) = -B(45)\nIF (DO_JVS(5221)) &\n! JVS(5221) = Jac_FULL(345,330)\n  JVS(5221) = -B(677)+B(1726)\nIF (DO_JVS(5222)) &\n! JVS(5222) = Jac_FULL(345,331)\n  JVS(5222) = 0\nIF (DO_JVS(5223)) &\n! JVS(5223) = Jac_FULL(345,332)\n  JVS(5223) = 0\nIF (DO_JVS(5224)) &\n! JVS(5224) = Jac_FULL(345,333)\n  JVS(5224) = -B(541)+B(1709)\nIF (DO_JVS(5225)) &\n! JVS(5225) = Jac_FULL(345,334)\n  JVS(5225) = 2*B(433)+B(439)+0.75*B(444)+0.66*B(487)+0.6*B(489)+0.05*B(504)\nIF (DO_JVS(5226)) &\n! JVS(5226) = Jac_FULL(345,335)\n  JVS(5226) = -B(65)\nIF (DO_JVS(5227)) &\n! JVS(5227) = Jac_FULL(345,336)\n  JVS(5227) = 2*B(434)\nIF (DO_JVS(5228)) &\n! JVS(5228) = Jac_FULL(345,337)\n  JVS(5228) = B(30)-B(38)+B(42)+B(78)+0.25*B(161)+0.15*B(227)+0.15*B(229)+0.44*B(246)+0.44*B(284)+0.44*B(303)+B(453)&\n                &+1.788*B(476)+B(575)+0.44*B(750)+0.44*B(839)+0.063*B(958)+0.063*B(962)+0.275*B(1037)+0.275*B(1044)+1.3&\n                &*B(1051)+0.65*B(1065)+0.65*B(1077)+0.65*B(1079)+2*B(1088)+2*B(1092)+0.518*B(1115)+0.599*B(1122)+0.582&\n                &*B(1130)+0.506*B(1136)+0.379*B(1142)+0.527*B(1150)+1.147*B(1199)+0.646*B(1201)+B(1217)+0.82*B(1223)+B(1249)&\n                &+B(1255)+0.665*B(1271)+0.59*B(1277)+0.5*B(1279)+0.5*B(1292)+0.5*B(1325)+B(1355)+B(1388)+0.44*B(1408)+0.2&\n                &*B(1433)\nIF (DO_JVS(5229)) &\n! JVS(5229) = Jac_FULL(345,338)\n  JVS(5229) = -B(531)-B(533)\nIF (DO_JVS(5230)) &\n! JVS(5230) = Jac_FULL(345,339)\n  JVS(5230) = 0.66*B(488)-B(539)\nIF (DO_JVS(5231)) &\n! JVS(5231) = Jac_FULL(345,340)\n  JVS(5231) = B(576)\nIF (DO_JVS(5232)) &\n! JVS(5232) = Jac_FULL(345,341)\n  JVS(5232) = -B(28)+B(31)+0.36*B(288)+B(474)+0.865*B(726)+0.8*B(730)+0.65*B(734)+0.6*B(809)+0.865*B(815)+0.3*B(862)&\n                &+B(874)+0.28*B(948)+0.08*B(1227)+0.12*B(1233)+0.18*B(1343)+B(1425)+0.1*B(1468)+0.1*B(1473)\nIF (DO_JVS(5233)) &\n! JVS(5233) = Jac_FULL(345,342)\n  JVS(5233) = 0\nIF (DO_JVS(5234)) &\n! JVS(5234) = Jac_FULL(345,343)\n  JVS(5234) = B(406)+B(407)-B(451)+B(454)+B(470)+B(486)\nIF (DO_JVS(5235)) &\n! JVS(5235) = Jac_FULL(345,344)\n  JVS(5235) = -B(1507)\nIF (DO_JVS(5236)) &\n! JVS(5236) = Jac_FULL(345,345)\n  JVS(5236) = -B(24)-B(29)-2*B(36)-2*B(37)-B(39)-B(41)-B(46)-B(48)-B(58)-0.7*B(60)-0.7*B(62)-B(64)-B(66)-B(68)-B(69)&\n                &-B(72)-B(77)-B(82)-B(88)-B(90)-B(96)-B(103)-B(107)-B(115)-B(117)-B(125)-0.5*B(135)-B(137)-B(143)-B(153)&\n                &-B(155)-B(168)-B(170)-B(196)-B(198)-B(200)-B(202)-B(207)-B(213)-B(235)-B(242)-B(270)-B(272)-B(286)-0.773&\n                &*B(290)-B(294)-B(307)-B(309)-B(313)-B(315)-B(321)-0.209*B(325)-0.36*B(327)-0.36*B(329)-0.209*B(331)-0.21&\n                &*B(333)-0.21*B(335)-B(337)-0.209*B(339)-0.78*B(343)-B(382)-B(384)-B(387)-B(395)-B(404)-B(409)-B(428)-B(430)&\n                &-B(432)-B(449)-B(452)-B(460)-B(528)-B(532)-B(534)-B(536)-B(538)-B(540)-B(542)-B(544)-B(546)-B(548)-B(550)&\n                &-B(552)-B(554)-B(556)-B(558)-B(560)-B(562)-B(674)-B(676)-B(678)-B(686)-B(688)-B(690)-B(724)-B(728)-B(732)&\n                &-B(742)-B(744)-B(748)-B(759)-B(761)-B(771)-B(773)-B(781)-B(783)-B(785)-B(797)-B(799)-B(807)-B(813)-B(819)&\n                &-B(833)-B(837)-B(848)-B(850)-0.7*B(860)-B(866)-B(872)-B(926)-B(928)-B(938)-B(940)-B(942)-B(944)-B(946)&\n                &-B(950)-B(952)+0.5*B(954)+0.5*B(956)+0.085*B(1002)+0.165*B(1004)+0.065*B(1010)-B(1014)-B(1016)-B(1020)&\n                &-B(1024)-B(1026)-0.595*B(1028)-0.255*B(1030)-B(1053)-B(1055)-B(1057)-B(1059)-B(1061)-B(1094)-B(1096)&\n                &-B(1098)-B(1100)-B(1102)-B(1104)-B(1106)-B(1108)-0.4*B(1110)-0.4*B(1112)-B(1181)-B(1183)-B(1189)-B(1191)&\n                &-B(1193)-B(1211)-0.756*B(1213)-B(1219)-B(1225)-B(1229)-B(1231)-0.98*B(1237)-B(1243)-0.715*B(1259)-B(1263)&\n                &-B(1267)-B(1269)-0.415*B(1281)-B(1303)-0.3*B(1305)-0.5*B(1307)-0.556*B(1309)-B(1315)-0.7*B(1317)-B(1321)&\n                &-0.5*B(1323)-B(1337)-B(1339)-B(1345)-B(1349)-B(1357)-B(1361)-0.364*B(1363)-B(1376)-B(1378)-B(1382)-B(1384)&\n                &-B(1386)-B(1398)-B(1404)-B(1413)-B(1415)-B(1419)-B(1423)-B(1429)-B(1439)-B(1442)-B(1452)-B(1458)-0.75&\n                &*B(1466)-0.75*B(1471)-B(1490)-B(1505)-B(1508)\nIF (DO_JVS(5237)) &\n! JVS(5237) = Jac_FULL(345,346)\n  JVS(5237) = B(43)-B(70)+0.55*B(992)+0.55*B(1000)+B(1047)+B(1086)+B(1090)+0.435*B(1203)+0.096*B(1207)\nIF (DO_JVS(5238)) &\n! JVS(5238) = Jac_FULL(345,347)\n  JVS(5238) = -B(410)\nIF (DO_JVS(5239)) &\n! JVS(5239) = Jac_FULL(345,348)\n  JVS(5239) = -B(25)-B(388)\nIF (DO_JVS(5240)) &\n! JVS(5240) = Jac_FULL(345,349)\n  JVS(5240) = 0\nIF (DO_JVS(5241)) &\n! JVS(5241) = Jac_FULL(345,350)\n  JVS(5241) = 0\nIF (DO_JVS(5242)) &\n! JVS(5242) = Jac_FULL(345,351)\n  JVS(5242) = B(79)-B(83)+0.15*B(864)+0.68*B(1235)\nIF (DO_JVS(5243)) &\n! JVS(5243) = Jac_FULL(345,352)\n  JVS(5243) = -B(396)+B(408)+0.6*B(490)\nIF (DO_JVS(5244)) &\n! JVS(5244) = Jac_FULL(345,353)\n  JVS(5244) = -B(1506)\nIF (DO_JVS(5245)) &\n! JVS(5245) = Jac_FULL(346,62)\n  JVS(5245) = 2*B(645)+B(1729)\nIF (DO_JVS(5246)) &\n! JVS(5246) = Jac_FULL(346,63)\n  JVS(5246) = 1.22*B(441)\nIF (DO_JVS(5247)) &\n! JVS(5247) = Jac_FULL(346,67)\n  JVS(5247) = B(477)-B(479)\nIF (DO_JVS(5248)) &\n! JVS(5248) = Jac_FULL(346,96)\n  JVS(5248) = -B(665)\nIF (DO_JVS(5249)) &\n! JVS(5249) = Jac_FULL(346,121)\n  JVS(5249) = -B(1399)\nIF (DO_JVS(5250)) &\n! JVS(5250) = Jac_FULL(346,132)\n  JVS(5250) = -B(156)\nIF (DO_JVS(5251)) &\n! JVS(5251) = Jac_FULL(346,133)\n  JVS(5251) = -B(1085)\nIF (DO_JVS(5252)) &\n! JVS(5252) = Jac_FULL(346,135)\n  JVS(5252) = -B(1089)\nIF (DO_JVS(5253)) &\n! JVS(5253) = Jac_FULL(346,165)\n  JVS(5253) = -B(138)\nIF (DO_JVS(5254)) &\n! JVS(5254) = Jac_FULL(346,171)\n  JVS(5254) = -B(1246)\nIF (DO_JVS(5255)) &\n! JVS(5255) = Jac_FULL(346,172)\n  JVS(5255) = -B(1252)\nIF (DO_JVS(5256)) &\n! JVS(5256) = Jac_FULL(346,178)\n  JVS(5256) = -B(128)-B(130)\nIF (DO_JVS(5257)) &\n! JVS(5257) = Jac_FULL(346,180)\n  JVS(5257) = -B(1220)\nIF (DO_JVS(5258)) &\n! JVS(5258) = Jac_FULL(346,182)\n  JVS(5258) = -B(1214)\nIF (DO_JVS(5259)) &\n! JVS(5259) = Jac_FULL(346,189)\n  JVS(5259) = -B(1352)\nIF (DO_JVS(5260)) &\n! JVS(5260) = Jac_FULL(346,190)\n  JVS(5260) = -B(1123)-B(1125)\nIF (DO_JVS(5261)) &\n! JVS(5261) = Jac_FULL(346,196)\n  JVS(5261) = 0\nIF (DO_JVS(5262)) &\n! JVS(5262) = Jac_FULL(346,197)\n  JVS(5262) = -B(162)\nIF (DO_JVS(5263)) &\n! JVS(5263) = Jac_FULL(346,200)\n  JVS(5263) = 0\nIF (DO_JVS(5264)) &\n! JVS(5264) = Jac_FULL(346,205)\n  JVS(5264) = -B(1116)-B(1118)\nIF (DO_JVS(5265)) &\n! JVS(5265) = Jac_FULL(346,206)\n  JVS(5265) = -B(1131)-B(1133)\nIF (DO_JVS(5266)) &\n! JVS(5266) = Jac_FULL(346,207)\n  JVS(5266) = -B(1137)-B(1139)\nIF (DO_JVS(5267)) &\n! JVS(5267) = Jac_FULL(346,212)\n  JVS(5267) = -B(148)\nIF (DO_JVS(5268)) &\n! JVS(5268) = Jac_FULL(346,213)\n  JVS(5268) = -B(300)\nIF (DO_JVS(5269)) &\n! JVS(5269) = Jac_FULL(346,220)\n  JVS(5269) = 0\nIF (DO_JVS(5270)) &\n! JVS(5270) = Jac_FULL(346,223)\n  JVS(5270) = -B(1032)-B(1034)\nIF (DO_JVS(5271)) &\n! JVS(5271) = Jac_FULL(346,224)\n  JVS(5271) = -B(1039)-B(1041)\nIF (DO_JVS(5272)) &\n! JVS(5272) = Jac_FULL(346,226)\n  JVS(5272) = -B(1206)-B(1208)\nIF (DO_JVS(5273)) &\n! JVS(5273) = Jac_FULL(346,230)\n  JVS(5273) = 0\nIF (DO_JVS(5274)) &\n! JVS(5274) = Jac_FULL(346,231)\n  JVS(5274) = 0\nIF (DO_JVS(5275)) &\n! JVS(5275) = Jac_FULL(346,232)\n  JVS(5275) = -B(1046)-B(1048)\nIF (DO_JVS(5276)) &\n! JVS(5276) = Jac_FULL(346,233)\n  JVS(5276) = 0\nIF (DO_JVS(5277)) &\n! JVS(5277) = Jac_FULL(346,234)\n  JVS(5277) = -B(1366)\nIF (DO_JVS(5278)) &\n! JVS(5278) = Jac_FULL(346,235)\n  JVS(5278) = -B(1434)\nIF (DO_JVS(5279)) &\n! JVS(5279) = Jac_FULL(346,236)\n  JVS(5279) = -B(1445)\nIF (DO_JVS(5280)) &\n! JVS(5280) = Jac_FULL(346,239)\n  JVS(5280) = B(1650)\nIF (DO_JVS(5281)) &\n! JVS(5281) = Jac_FULL(346,240)\n  JVS(5281) = -B(1405)\nIF (DO_JVS(5282)) &\n! JVS(5282) = Jac_FULL(346,241)\n  JVS(5282) = -B(707)\nIF (DO_JVS(5283)) &\n! JVS(5283) = Jac_FULL(346,243)\n  JVS(5283) = -B(1080)-B(1082)\nIF (DO_JVS(5284)) &\n! JVS(5284) = Jac_FULL(346,246)\n  JVS(5284) = -B(243)\nIF (DO_JVS(5285)) &\n! JVS(5285) = Jac_FULL(346,249)\n  JVS(5285) = -B(175)\nIF (DO_JVS(5286)) &\n! JVS(5286) = Jac_FULL(346,250)\n  JVS(5286) = -B(191)\nIF (DO_JVS(5287)) &\n! JVS(5287) = Jac_FULL(346,252)\n  JVS(5287) = 0\nIF (DO_JVS(5288)) &\n! JVS(5288) = Jac_FULL(346,253)\n  JVS(5288) = -B(1283)-B(1285)\nIF (DO_JVS(5289)) &\n! JVS(5289) = Jac_FULL(346,254)\n  JVS(5289) = -B(1272)-B(1274)\nIF (DO_JVS(5290)) &\n! JVS(5290) = Jac_FULL(346,257)\n  JVS(5290) = -B(751)\nIF (DO_JVS(5291)) &\n! JVS(5291) = Jac_FULL(346,259)\n  JVS(5291) = -B(1287)\nIF (DO_JVS(5292)) &\n! JVS(5292) = Jac_FULL(346,260)\n  JVS(5292) = -B(122)\nIF (DO_JVS(5293)) &\n! JVS(5293) = Jac_FULL(346,263)\n  JVS(5293) = -B(1389)\nIF (DO_JVS(5294)) &\n! JVS(5294) = Jac_FULL(346,267)\n  JVS(5294) = 0\nIF (DO_JVS(5295)) &\n! JVS(5295) = Jac_FULL(346,268)\n  JVS(5295) = 0\nIF (DO_JVS(5296)) &\n! JVS(5296) = Jac_FULL(346,269)\n  JVS(5296) = 0\nIF (DO_JVS(5297)) &\n! JVS(5297) = Jac_FULL(346,271)\n  JVS(5297) = -B(1202)-B(1204)\nIF (DO_JVS(5298)) &\n! JVS(5298) = Jac_FULL(346,272)\n  JVS(5298) = -B(824)\nIF (DO_JVS(5299)) &\n! JVS(5299) = Jac_FULL(346,273)\n  JVS(5299) = -B(788)-B(790)\nIF (DO_JVS(5300)) &\n! JVS(5300) = Jac_FULL(346,274)\n  JVS(5300) = -B(840)\nIF (DO_JVS(5301)) &\n! JVS(5301) = Jac_FULL(346,275)\n  JVS(5301) = -B(776)\nIF (DO_JVS(5302)) &\n! JVS(5302) = Jac_FULL(346,276)\n  JVS(5302) = 0\nIF (DO_JVS(5303)) &\n! JVS(5303) = Jac_FULL(346,277)\n  JVS(5303) = -B(737)\nIF (DO_JVS(5304)) &\n! JVS(5304) = Jac_FULL(346,278)\n  JVS(5304) = -B(764)\nIF (DO_JVS(5305)) &\n! JVS(5305) = Jac_FULL(346,279)\n  JVS(5305) = 0\nIF (DO_JVS(5306)) &\n! JVS(5306) = Jac_FULL(346,280)\n  JVS(5306) = -B(901)\nIF (DO_JVS(5307)) &\n! JVS(5307) = Jac_FULL(346,281)\n  JVS(5307) = -B(802)\nIF (DO_JVS(5308)) &\n! JVS(5308) = Jac_FULL(346,284)\n  JVS(5308) = -B(681)\nIF (DO_JVS(5309)) &\n! JVS(5309) = Jac_FULL(346,285)\n  JVS(5309) = -B(1072)-B(1074)\nIF (DO_JVS(5310)) &\n! JVS(5310) = Jac_FULL(346,286)\n  JVS(5310) = -B(1066)-B(1068)\nIF (DO_JVS(5311)) &\n! JVS(5311) = Jac_FULL(346,289)\n  JVS(5311) = -B(903)\nIF (DO_JVS(5312)) &\n! JVS(5312) = Jac_FULL(346,290)\n  JVS(5312) = 0\nIF (DO_JVS(5313)) &\n! JVS(5313) = Jac_FULL(346,291)\n  JVS(5313) = -B(853)-B(855)\nIF (DO_JVS(5314)) &\n! JVS(5314) = Jac_FULL(346,293)\n  JVS(5314) = -B(1143)-B(1145)\nIF (DO_JVS(5315)) &\n! JVS(5315) = Jac_FULL(346,296)\n  JVS(5315) = -B(108)-B(110)\nIF (DO_JVS(5316)) &\n! JVS(5316) = Jac_FULL(346,297)\n  JVS(5316) = 0\nIF (DO_JVS(5317)) &\n! JVS(5317) = Jac_FULL(346,299)\n  JVS(5317) = 0\nIF (DO_JVS(5318)) &\n! JVS(5318) = Jac_FULL(346,300)\n  JVS(5318) = -B(171)-B(173)\nIF (DO_JVS(5319)) &\n! JVS(5319) = Jac_FULL(346,301)\n  JVS(5319) = 0\nIF (DO_JVS(5320)) &\n! JVS(5320) = Jac_FULL(346,303)\n  JVS(5320) = 0\nIF (DO_JVS(5321)) &\n! JVS(5321) = Jac_FULL(346,304)\n  JVS(5321) = -B(993)-B(995)-B(997)-B(999)\nIF (DO_JVS(5322)) &\n! JVS(5322) = Jac_FULL(346,305)\n  JVS(5322) = -B(985)-B(987)-B(989)-B(991)\nIF (DO_JVS(5323)) &\n! JVS(5323) = Jac_FULL(346,306)\n  JVS(5323) = 0\nIF (DO_JVS(5324)) &\n! JVS(5324) = Jac_FULL(346,308)\n  JVS(5324) = -B(1293)\nIF (DO_JVS(5325)) &\n! JVS(5325) = Jac_FULL(346,309)\n  JVS(5325) = 0\nIF (DO_JVS(5326)) &\n! JVS(5326) = Jac_FULL(346,310)\n  JVS(5326) = -B(1169)-B(1171)\nIF (DO_JVS(5327)) &\n! JVS(5327) = Jac_FULL(346,311)\n  JVS(5327) = -B(1173)-B(1175)\nIF (DO_JVS(5328)) &\n! JVS(5328) = Jac_FULL(346,312)\n  JVS(5328) = -B(693)\nIF (DO_JVS(5329)) &\n! JVS(5329) = Jac_FULL(346,313)\n  JVS(5329) = -B(183)\nIF (DO_JVS(5330)) &\n! JVS(5330) = Jac_FULL(346,314)\n  JVS(5330) = 0\nIF (DO_JVS(5331)) &\n! JVS(5331) = Jac_FULL(346,315)\n  JVS(5331) = -B(112)\nIF (DO_JVS(5332)) &\n! JVS(5332) = Jac_FULL(346,318)\n  JVS(5332) = -B(181)\nIF (DO_JVS(5333)) &\n! JVS(5333) = Jac_FULL(346,319)\n  JVS(5333) = -B(177)-B(179)\nIF (DO_JVS(5334)) &\n! JVS(5334) = Jac_FULL(346,320)\n  JVS(5334) = -B(185)-B(236)\nIF (DO_JVS(5335)) &\n! JVS(5335) = Jac_FULL(346,321)\n  JVS(5335) = -B(118)-B(120)\nIF (DO_JVS(5336)) &\n! JVS(5336) = Jac_FULL(346,322)\n  JVS(5336) = -B(208)\nIF (DO_JVS(5337)) &\n! JVS(5337) = Jac_FULL(346,323)\n  JVS(5337) = -B(187)-B(189)\nIF (DO_JVS(5338)) &\n! JVS(5338) = Jac_FULL(346,324)\n  JVS(5338) = -B(104)\nIF (DO_JVS(5339)) &\n! JVS(5339) = Jac_FULL(346,326)\n  JVS(5339) = 0\nIF (DO_JVS(5340)) &\n! JVS(5340) = Jac_FULL(346,327)\n  JVS(5340) = 0\nIF (DO_JVS(5341)) &\n! JVS(5341) = Jac_FULL(346,328)\n  JVS(5341) = -B(49)-B(51)\nIF (DO_JVS(5342)) &\n! JVS(5342) = Jac_FULL(346,329)\n  JVS(5342) = 0\nIF (DO_JVS(5343)) &\n! JVS(5343) = Jac_FULL(346,330)\n  JVS(5343) = 0\nIF (DO_JVS(5344)) &\n! JVS(5344) = Jac_FULL(346,331)\n  JVS(5344) = -B(643)\nIF (DO_JVS(5345)) &\n! JVS(5345) = Jac_FULL(346,332)\n  JVS(5345) = 0\nIF (DO_JVS(5346)) &\n! JVS(5346) = Jac_FULL(346,334)\n  JVS(5346) = 1.22*B(442)\nIF (DO_JVS(5347)) &\n! JVS(5347) = Jac_FULL(346,335)\n  JVS(5347) = B(91)+B(461)+B(1644)\nIF (DO_JVS(5348)) &\n! JVS(5348) = Jac_FULL(346,336)\n  JVS(5348) = 0\nIF (DO_JVS(5349)) &\n! JVS(5349) = Jac_FULL(346,337)\n  JVS(5349) = -B(42)\nIF (DO_JVS(5350)) &\n! JVS(5350) = Jac_FULL(346,338)\n  JVS(5350) = -B(581)\nIF (DO_JVS(5351)) &\n! JVS(5351) = Jac_FULL(346,339)\n  JVS(5351) = 0\nIF (DO_JVS(5352)) &\n! JVS(5352) = Jac_FULL(346,340)\n  JVS(5352) = 0\nIF (DO_JVS(5353)) &\n! JVS(5353) = Jac_FULL(346,341)\n  JVS(5353) = -B(26)\nIF (DO_JVS(5354)) &\n! JVS(5354) = Jac_FULL(346,342)\n  JVS(5354) = 0\nIF (DO_JVS(5355)) &\n! JVS(5355) = Jac_FULL(346,343)\n  JVS(5355) = B(462)-B(465)\nIF (DO_JVS(5356)) &\n! JVS(5356) = Jac_FULL(346,344)\n  JVS(5356) = 0\nIF (DO_JVS(5357)) &\n! JVS(5357) = Jac_FULL(346,345)\n  JVS(5357) = -B(69)\nIF (DO_JVS(5358)) &\n! JVS(5358) = Jac_FULL(346,346)\n  JVS(5358) = -B(27)-B(43)-B(50)-B(52)-B(70)-B(80)-B(105)-B(109)-B(111)-B(113)-B(119)-B(121)-B(123)-B(129)-B(131)-B(139)&\n                &-B(149)-B(157)-B(163)-B(172)-B(174)-B(176)-B(178)-B(180)-B(182)-B(184)-B(186)-B(188)-B(190)-B(192)-B(209)&\n                &-B(237)-B(244)-B(301)-B(399)-B(466)-B(480)-B(582)-B(644)-B(666)-B(682)-B(694)-B(708)-B(738)-B(752)-B(765)&\n                &-B(777)-B(789)-B(791)-B(803)-B(825)-B(841)-B(854)-B(856)-B(902)-B(904)-B(986)-B(988)-B(990)-B(992)-B(994)&\n                &-B(996)-B(998)-B(1000)-B(1033)-B(1035)-B(1040)-B(1042)-B(1047)-B(1049)-B(1067)-B(1069)-B(1073)-B(1075)&\n                &-B(1081)-B(1083)-B(1086)-B(1090)-B(1117)-B(1119)-B(1124)-B(1126)-B(1132)-B(1134)-B(1138)-B(1140)-B(1144)&\n                &-B(1146)-B(1170)-B(1172)-B(1174)-B(1176)-B(1203)-B(1205)-B(1207)-B(1209)-B(1215)-B(1221)-B(1247)-B(1253)&\n                &-B(1273)-B(1275)-B(1284)-B(1286)-B(1288)-B(1294)-B(1353)-B(1367)-B(1390)-B(1400)-B(1406)-B(1435)-B(1446)&\n                &-B(1747)\nIF (DO_JVS(5359)) &\n! JVS(5359) = Jac_FULL(346,347)\n  JVS(5359) = -B(400)\nIF (DO_JVS(5360)) &\n! JVS(5360) = Jac_FULL(346,348)\n  JVS(5360) = 0\nIF (DO_JVS(5361)) &\n! JVS(5361) = Jac_FULL(346,349)\n  JVS(5361) = 0\nIF (DO_JVS(5362)) &\n! JVS(5362) = Jac_FULL(346,350)\n  JVS(5362) = 0\nIF (DO_JVS(5363)) &\n! JVS(5363) = Jac_FULL(346,351)\n  JVS(5363) = -B(81)+B(92)+B(1654)\nIF (DO_JVS(5364)) &\n! JVS(5364) = Jac_FULL(346,352)\n  JVS(5364) = 0\nIF (DO_JVS(5365)) &\n! JVS(5365) = Jac_FULL(346,353)\n  JVS(5365) = 0\nIF (DO_JVS(5366)) &\n! JVS(5366) = Jac_FULL(347,53)\n  JVS(5366) = 0.45*B(511)\nIF (DO_JVS(5367)) &\n! JVS(5367) = Jac_FULL(347,54)\n  JVS(5367) = 0.75*B(525)\nIF (DO_JVS(5368)) &\n! JVS(5368) = Jac_FULL(347,61)\n  JVS(5368) = 0.31*B(509)\nIF (DO_JVS(5369)) &\n! JVS(5369) = Jac_FULL(347,78)\n  JVS(5369) = 0.95*B(499)\nIF (DO_JVS(5370)) &\n! JVS(5370) = Jac_FULL(347,81)\n  JVS(5370) = 0.7*B(501)\nIF (DO_JVS(5371)) &\n! JVS(5371) = Jac_FULL(347,105)\n  JVS(5371) = 0.44*B(497)\nIF (DO_JVS(5372)) &\n! JVS(5372) = Jac_FULL(347,218)\n  JVS(5372) = B(1694)\nIF (DO_JVS(5373)) &\n! JVS(5373) = Jac_FULL(347,284)\n  JVS(5373) = -B(659)\nIF (DO_JVS(5374)) &\n! JVS(5374) = Jac_FULL(347,316)\n  JVS(5374) = B(405)\nIF (DO_JVS(5375)) &\n! JVS(5375) = Jac_FULL(347,330)\n  JVS(5375) = 0\nIF (DO_JVS(5376)) &\n! JVS(5376) = Jac_FULL(347,331)\n  JVS(5376) = -B(657)\nIF (DO_JVS(5377)) &\n! JVS(5377) = Jac_FULL(347,332)\n  JVS(5377) = 0\nIF (DO_JVS(5378)) &\n! JVS(5378) = Jac_FULL(347,334)\n  JVS(5378) = 0.2*B(489)+0.44*B(498)+0.95*B(500)+0.7*B(502)+0.31*B(510)+0.45*B(512)+0.75*B(526)\nIF (DO_JVS(5379)) &\n! JVS(5379) = Jac_FULL(347,335)\n  JVS(5379) = -B(425)\nIF (DO_JVS(5380)) &\n! JVS(5380) = Jac_FULL(347,336)\n  JVS(5380) = 0\nIF (DO_JVS(5381)) &\n! JVS(5381) = Jac_FULL(347,337)\n  JVS(5381) = -B(391)\nIF (DO_JVS(5382)) &\n! JVS(5382) = Jac_FULL(347,338)\n  JVS(5382) = -B(595)-B(597)-B(599)\nIF (DO_JVS(5383)) &\n! JVS(5383) = Jac_FULL(347,339)\n  JVS(5383) = 0\nIF (DO_JVS(5384)) &\n! JVS(5384) = Jac_FULL(347,340)\n  JVS(5384) = 0\nIF (DO_JVS(5385)) &\n! JVS(5385) = Jac_FULL(347,341)\n  JVS(5385) = B(389)\nIF (DO_JVS(5386)) &\n! JVS(5386) = Jac_FULL(347,342)\n  JVS(5386) = B(390)+B(411)\nIF (DO_JVS(5387)) &\n! JVS(5387) = Jac_FULL(347,343)\n  JVS(5387) = B(406)-B(483)\nIF (DO_JVS(5388)) &\n! JVS(5388) = Jac_FULL(347,344)\n  JVS(5388) = 0\nIF (DO_JVS(5389)) &\n! JVS(5389) = Jac_FULL(347,345)\n  JVS(5389) = -B(409)\nIF (DO_JVS(5390)) &\n! JVS(5390) = Jac_FULL(347,346)\n  JVS(5390) = -B(399)\nIF (DO_JVS(5391)) &\n! JVS(5391) = Jac_FULL(347,347)\n  JVS(5391) = -B(392)-2*B(397)-2*B(398)-B(400)-B(410)-B(426)-B(484)-B(596)-B(598)-B(600)-B(658)-B(660)-B(1691)\nIF (DO_JVS(5392)) &\n! JVS(5392) = Jac_FULL(347,348)\n  JVS(5392) = 0\nIF (DO_JVS(5393)) &\n! JVS(5393) = Jac_FULL(347,349)\n  JVS(5393) = 0\nIF (DO_JVS(5394)) &\n! JVS(5394) = Jac_FULL(347,350)\n  JVS(5394) = 0\nIF (DO_JVS(5395)) &\n! JVS(5395) = Jac_FULL(347,351)\n  JVS(5395) = B(412)\nIF (DO_JVS(5396)) &\n! JVS(5396) = Jac_FULL(347,352)\n  JVS(5396) = 0.2*B(490)\nIF (DO_JVS(5397)) &\n! JVS(5397) = Jac_FULL(347,353)\n  JVS(5397) = 0\nIF (DO_JVS(5398)) &\n! JVS(5398) = Jac_FULL(348,68)\n  JVS(5398) = B(457)+B(459)+B(1745)\nIF (DO_JVS(5399)) &\n! JVS(5399) = Jac_FULL(348,89)\n  JVS(5399) = B(22)-B(23)\nIF (DO_JVS(5400)) &\n! JVS(5400) = Jac_FULL(348,94)\n  JVS(5400) = B(381)+0.75*B(383)+B(385)\nIF (DO_JVS(5401)) &\n! JVS(5401) = Jac_FULL(348,134)\n  JVS(5401) = B(1746)\nIF (DO_JVS(5402)) &\n! JVS(5402) = Jac_FULL(348,166)\n  JVS(5402) = -B(8)\nIF (DO_JVS(5403)) &\n! JVS(5403) = Jac_FULL(348,179)\n  JVS(5403) = -B(1)\nIF (DO_JVS(5404)) &\n! JVS(5404) = Jac_FULL(348,241)\n  JVS(5404) = -B(711)\nIF (DO_JVS(5405)) &\n! JVS(5405) = Jac_FULL(348,264)\n  JVS(5405) = -B(15)\nIF (DO_JVS(5406)) &\n! JVS(5406) = Jac_FULL(348,276)\n  JVS(5406) = 0\nIF (DO_JVS(5407)) &\n! JVS(5407) = Jac_FULL(348,290)\n  JVS(5407) = 0\nIF (DO_JVS(5408)) &\n! JVS(5408) = Jac_FULL(348,312)\n  JVS(5408) = -B(703)\nIF (DO_JVS(5409)) &\n! JVS(5409) = Jac_FULL(348,314)\n  JVS(5409) = 0\nIF (DO_JVS(5410)) &\n! JVS(5410) = Jac_FULL(348,316)\n  JVS(5410) = -B(1561)\nIF (DO_JVS(5411)) &\n! JVS(5411) = Jac_FULL(348,324)\n  JVS(5411) = 0\nIF (DO_JVS(5412)) &\n! JVS(5412) = Jac_FULL(348,325)\n  JVS(5412) = -B(20)\nIF (DO_JVS(5413)) &\n! JVS(5413) = Jac_FULL(348,326)\n  JVS(5413) = 0\nIF (DO_JVS(5414)) &\n! JVS(5414) = Jac_FULL(348,327)\n  JVS(5414) = 0\nIF (DO_JVS(5415)) &\n! JVS(5415) = Jac_FULL(348,328)\n  JVS(5415) = 0\nIF (DO_JVS(5416)) &\n! JVS(5416) = Jac_FULL(348,329)\n  JVS(5416) = 0\nIF (DO_JVS(5417)) &\n! JVS(5417) = Jac_FULL(348,332)\n  JVS(5417) = 0\nIF (DO_JVS(5418)) &\n! JVS(5418) = Jac_FULL(348,333)\n  JVS(5418) = -B(1547)\nIF (DO_JVS(5419)) &\n! JVS(5419) = Jac_FULL(348,334)\n  JVS(5419) = 0\nIF (DO_JVS(5420)) &\n! JVS(5420) = Jac_FULL(348,335)\n  JVS(5420) = 0\nIF (DO_JVS(5421)) &\n! JVS(5421) = Jac_FULL(348,336)\n  JVS(5421) = 0\nIF (DO_JVS(5422)) &\n! JVS(5422) = Jac_FULL(348,337)\n  JVS(5422) = 0\nIF (DO_JVS(5423)) &\n! JVS(5423) = Jac_FULL(348,338)\n  JVS(5423) = 0\nIF (DO_JVS(5424)) &\n! JVS(5424) = Jac_FULL(348,339)\n  JVS(5424) = 0\nIF (DO_JVS(5425)) &\n! JVS(5425) = Jac_FULL(348,340)\n  JVS(5425) = 0\nIF (DO_JVS(5426)) &\n! JVS(5426) = Jac_FULL(348,341)\n  JVS(5426) = -B(2)-B(9)-B(17)\nIF (DO_JVS(5427)) &\n! JVS(5427) = Jac_FULL(348,342)\n  JVS(5427) = 0\nIF (DO_JVS(5428)) &\n! JVS(5428) = Jac_FULL(348,343)\n  JVS(5428) = B(458)\nIF (DO_JVS(5429)) &\n! JVS(5429) = Jac_FULL(348,344)\n  JVS(5429) = 0\nIF (DO_JVS(5430)) &\n! JVS(5430) = Jac_FULL(348,345)\n  JVS(5430) = -B(24)+B(382)+0.75*B(384)-B(387)+B(460)\nIF (DO_JVS(5431)) &\n! JVS(5431) = Jac_FULL(348,346)\n  JVS(5431) = 0\nIF (DO_JVS(5432)) &\n! JVS(5432) = Jac_FULL(348,347)\n  JVS(5432) = 0\nIF (DO_JVS(5433)) &\n! JVS(5433) = Jac_FULL(348,348)\n  JVS(5433) = -B(3)-B(10)-B(16)-B(18)-B(19)-B(21)-B(25)-B(388)-B(704)-B(712)-B(1548)-B(1562)\nIF (DO_JVS(5434)) &\n! JVS(5434) = Jac_FULL(348,349)\n  JVS(5434) = 0\nIF (DO_JVS(5435)) &\n! JVS(5435) = Jac_FULL(348,350)\n  JVS(5435) = 0\nIF (DO_JVS(5436)) &\n! JVS(5436) = Jac_FULL(348,351)\n  JVS(5436) = B(386)\nIF (DO_JVS(5437)) &\n! JVS(5437) = Jac_FULL(348,352)\n  JVS(5437) = 0\nIF (DO_JVS(5438)) &\n! JVS(5438) = Jac_FULL(348,353)\n  JVS(5438) = 0\nIF (DO_JVS(5439)) &\n! JVS(5439) = Jac_FULL(349,252)\n  JVS(5439) = -B(1591)\nIF (DO_JVS(5440)) &\n! JVS(5440) = Jac_FULL(349,297)\n  JVS(5440) = -B(1533)\nIF (DO_JVS(5441)) &\n! JVS(5441) = Jac_FULL(349,316)\n  JVS(5441) = -B(1557)\nIF (DO_JVS(5442)) &\n! JVS(5442) = Jac_FULL(349,317)\n  JVS(5442) = -B(1519)\nIF (DO_JVS(5443)) &\n! JVS(5443) = Jac_FULL(349,330)\n  JVS(5443) = -B(1607)\nIF (DO_JVS(5444)) &\n! JVS(5444) = Jac_FULL(349,331)\n  JVS(5444) = 0\nIF (DO_JVS(5445)) &\n! JVS(5445) = Jac_FULL(349,332)\n  JVS(5445) = -B(1599)\nIF (DO_JVS(5446)) &\n! JVS(5446) = Jac_FULL(349,335)\n  JVS(5446) = 0\nIF (DO_JVS(5447)) &\n! JVS(5447) = Jac_FULL(349,336)\n  JVS(5447) = 0\nIF (DO_JVS(5448)) &\n! JVS(5448) = Jac_FULL(349,337)\n  JVS(5448) = 0\nIF (DO_JVS(5449)) &\n! JVS(5449) = Jac_FULL(349,338)\n  JVS(5449) = 0\nIF (DO_JVS(5450)) &\n! JVS(5450) = Jac_FULL(349,339)\n  JVS(5450) = 0\nIF (DO_JVS(5451)) &\n! JVS(5451) = Jac_FULL(349,340)\n  JVS(5451) = 0\nIF (DO_JVS(5452)) &\n! JVS(5452) = Jac_FULL(349,341)\n  JVS(5452) = -B(1565)\nIF (DO_JVS(5453)) &\n! JVS(5453) = Jac_FULL(349,342)\n  JVS(5453) = 0\nIF (DO_JVS(5454)) &\n! JVS(5454) = Jac_FULL(349,343)\n  JVS(5454) = 0\nIF (DO_JVS(5455)) &\n! JVS(5455) = Jac_FULL(349,344)\n  JVS(5455) = 0\nIF (DO_JVS(5456)) &\n! JVS(5456) = Jac_FULL(349,345)\n  JVS(5456) = 0\nIF (DO_JVS(5457)) &\n! JVS(5457) = Jac_FULL(349,346)\n  JVS(5457) = 0\nIF (DO_JVS(5458)) &\n! JVS(5458) = Jac_FULL(349,347)\n  JVS(5458) = 0\nIF (DO_JVS(5459)) &\n! JVS(5459) = Jac_FULL(349,348)\n  JVS(5459) = 0\nIF (DO_JVS(5460)) &\n! JVS(5460) = Jac_FULL(349,349)\n  JVS(5460) = -B(1520)-B(1534)-B(1558)-B(1566)-B(1592)-B(1600)-B(1608)\nIF (DO_JVS(5461)) &\n! JVS(5461) = Jac_FULL(349,350)\n  JVS(5461) = 0\nIF (DO_JVS(5462)) &\n! JVS(5462) = Jac_FULL(349,351)\n  JVS(5462) = 0\nIF (DO_JVS(5463)) &\n! JVS(5463) = Jac_FULL(349,352)\n  JVS(5463) = B(1569)\nIF (DO_JVS(5464)) &\n! JVS(5464) = Jac_FULL(349,353)\n  JVS(5464) = 0\nIF (DO_JVS(5465)) &\n! JVS(5465) = Jac_FULL(350,252)\n  JVS(5465) = -B(1593)\nIF (DO_JVS(5466)) &\n! JVS(5466) = Jac_FULL(350,297)\n  JVS(5466) = -B(1535)\nIF (DO_JVS(5467)) &\n! JVS(5467) = Jac_FULL(350,316)\n  JVS(5467) = -B(1559)\nIF (DO_JVS(5468)) &\n! JVS(5468) = Jac_FULL(350,317)\n  JVS(5468) = -B(1521)\nIF (DO_JVS(5469)) &\n! JVS(5469) = Jac_FULL(350,330)\n  JVS(5469) = -B(1609)\nIF (DO_JVS(5470)) &\n! JVS(5470) = Jac_FULL(350,331)\n  JVS(5470) = 0\nIF (DO_JVS(5471)) &\n! JVS(5471) = Jac_FULL(350,332)\n  JVS(5471) = -B(1601)\nIF (DO_JVS(5472)) &\n! JVS(5472) = Jac_FULL(350,335)\n  JVS(5472) = 0\nIF (DO_JVS(5473)) &\n! JVS(5473) = Jac_FULL(350,336)\n  JVS(5473) = 0\nIF (DO_JVS(5474)) &\n! JVS(5474) = Jac_FULL(350,337)\n  JVS(5474) = 0\nIF (DO_JVS(5475)) &\n! JVS(5475) = Jac_FULL(350,338)\n  JVS(5475) = 0\nIF (DO_JVS(5476)) &\n! JVS(5476) = Jac_FULL(350,339)\n  JVS(5476) = 0\nIF (DO_JVS(5477)) &\n! JVS(5477) = Jac_FULL(350,340)\n  JVS(5477) = 0\nIF (DO_JVS(5478)) &\n! JVS(5478) = Jac_FULL(350,341)\n  JVS(5478) = -B(1567)\nIF (DO_JVS(5479)) &\n! JVS(5479) = Jac_FULL(350,342)\n  JVS(5479) = 0\nIF (DO_JVS(5480)) &\n! JVS(5480) = Jac_FULL(350,343)\n  JVS(5480) = 0\nIF (DO_JVS(5481)) &\n! JVS(5481) = Jac_FULL(350,344)\n  JVS(5481) = 0\nIF (DO_JVS(5482)) &\n! JVS(5482) = Jac_FULL(350,345)\n  JVS(5482) = 0\nIF (DO_JVS(5483)) &\n! JVS(5483) = Jac_FULL(350,346)\n  JVS(5483) = 0\nIF (DO_JVS(5484)) &\n! JVS(5484) = Jac_FULL(350,347)\n  JVS(5484) = 0\nIF (DO_JVS(5485)) &\n! JVS(5485) = Jac_FULL(350,348)\n  JVS(5485) = 0\nIF (DO_JVS(5486)) &\n! JVS(5486) = Jac_FULL(350,349)\n  JVS(5486) = 0\nIF (DO_JVS(5487)) &\n! JVS(5487) = Jac_FULL(350,350)\n  JVS(5487) = -B(1522)-B(1536)-B(1560)-B(1568)-B(1594)-B(1602)-B(1610)\nIF (DO_JVS(5488)) &\n! JVS(5488) = Jac_FULL(350,351)\n  JVS(5488) = 0\nIF (DO_JVS(5489)) &\n! JVS(5489) = Jac_FULL(350,352)\n  JVS(5489) = B(1570)\nIF (DO_JVS(5490)) &\n! JVS(5490) = Jac_FULL(350,353)\n  JVS(5490) = 0\nIF (DO_JVS(5491)) &\n! JVS(5491) = Jac_FULL(351,69)\n  JVS(5491) = -B(126)\nIF (DO_JVS(5492)) &\n! JVS(5492) = Jac_FULL(351,80)\n  JVS(5492) = B(1741)\nIF (DO_JVS(5493)) &\n! JVS(5493) = Jac_FULL(351,94)\n  JVS(5493) = -B(385)\nIF (DO_JVS(5494)) &\n! JVS(5494) = Jac_FULL(351,108)\n  JVS(5494) = B(1651)\nIF (DO_JVS(5495)) &\n! JVS(5495) = Jac_FULL(351,124)\n  JVS(5495) = 0.3*B(1806)\nIF (DO_JVS(5496)) &\n! JVS(5496) = Jac_FULL(351,126)\n  JVS(5496) = B(167)\nIF (DO_JVS(5497)) &\n! JVS(5497) = Jac_FULL(351,139)\n  JVS(5497) = 0.3*B(1658)\nIF (DO_JVS(5498)) &\n! JVS(5498) = Jac_FULL(351,140)\n  JVS(5498) = -B(144)\nIF (DO_JVS(5499)) &\n! JVS(5499) = Jac_FULL(351,142)\n  JVS(5499) = -B(193)\nIF (DO_JVS(5500)) &\n! JVS(5500) = Jac_FULL(351,149)\n  JVS(5500) = -B(1346)\nIF (DO_JVS(5501)) &\n! JVS(5501) = Jac_FULL(351,154)\n  JVS(5501) = B(937)\nIF (DO_JVS(5502)) &\n! JVS(5502) = Jac_FULL(351,158)\n  JVS(5502) = -B(1420)\nIF (DO_JVS(5503)) &\n! JVS(5503) = Jac_FULL(351,163)\n  JVS(5503) = -B(834)\nIF (DO_JVS(5504)) &\n! JVS(5504) = Jac_FULL(351,167)\n  JVS(5504) = -B(721)\nIF (DO_JVS(5505)) &\n! JVS(5505) = Jac_FULL(351,170)\n  JVS(5505) = -B(650)\nIF (DO_JVS(5506)) &\n! JVS(5506) = Jac_FULL(351,183)\n  JVS(5506) = -B(344)\nIF (DO_JVS(5507)) &\n! JVS(5507) = Jac_FULL(351,184)\n  JVS(5507) = B(1302)\nIF (DO_JVS(5508)) &\n! JVS(5508) = Jac_FULL(351,191)\n  JVS(5508) = -B(717)\nIF (DO_JVS(5509)) &\n! JVS(5509) = Jac_FULL(351,193)\n  JVS(5509) = -B(869)\nIF (DO_JVS(5510)) &\n! JVS(5510) = Jac_FULL(351,195)\n  JVS(5510) = -B(1416)\nIF (DO_JVS(5511)) &\n! JVS(5511) = Jac_FULL(351,197)\n  JVS(5511) = 0\nIF (DO_JVS(5512)) &\n! JVS(5512) = Jac_FULL(351,200)\n  JVS(5512) = -B(1350)\nIF (DO_JVS(5513)) &\n! JVS(5513) = Jac_FULL(351,202)\n  JVS(5513) = -B(1426)\nIF (DO_JVS(5514)) &\n! JVS(5514) = Jac_FULL(351,204)\n  JVS(5514) = -B(1430)\nIF (DO_JVS(5515)) &\n! JVS(5515) = Jac_FULL(351,211)\n  JVS(5515) = -B(822)\nIF (DO_JVS(5516)) &\n! JVS(5516) = Jac_FULL(351,213)\n  JVS(5516) = -B(304)\nIF (DO_JVS(5517)) &\n! JVS(5517) = Jac_FULL(351,214)\n  JVS(5517) = B(86)+B(1655)\nIF (DO_JVS(5518)) &\n! JVS(5518) = Jac_FULL(351,218)\n  JVS(5518) = B(401)+B(1693)\nIF (DO_JVS(5519)) &\n! JVS(5519) = Jac_FULL(351,219)\n  JVS(5519) = -B(719)\nIF (DO_JVS(5520)) &\n! JVS(5520) = Jac_FULL(351,220)\n  JVS(5520) = -B(1340)\nIF (DO_JVS(5521)) &\n! JVS(5521) = Jac_FULL(351,225)\n  JVS(5521) = -B(745)\nIF (DO_JVS(5522)) &\n! JVS(5522) = Jac_FULL(351,229)\n  JVS(5522) = -B(863)\nIF (DO_JVS(5523)) &\n! JVS(5523) = Jac_FULL(351,233)\n  JVS(5523) = 0\nIF (DO_JVS(5524)) &\n! JVS(5524) = Jac_FULL(351,234)\n  JVS(5524) = -B(1368)\nIF (DO_JVS(5525)) &\n! JVS(5525) = Jac_FULL(351,236)\n  JVS(5525) = B(1443)-B(1447)\nIF (DO_JVS(5526)) &\n! JVS(5526) = Jac_FULL(351,237)\n  JVS(5526) = -B(816)\nIF (DO_JVS(5527)) &\n! JVS(5527) = Jac_FULL(351,241)\n  JVS(5527) = B(709)\nIF (DO_JVS(5528)) &\n! JVS(5528) = Jac_FULL(351,242)\n  JVS(5528) = -B(931)\nIF (DO_JVS(5529)) &\n! JVS(5529) = Jac_FULL(351,246)\n  JVS(5529) = 0\nIF (DO_JVS(5530)) &\n! JVS(5530) = Jac_FULL(351,252)\n  JVS(5530) = 0\nIF (DO_JVS(5531)) &\n! JVS(5531) = Jac_FULL(351,255)\n  JVS(5531) = -B(810)\nIF (DO_JVS(5532)) &\n! JVS(5532) = Jac_FULL(351,256)\n  JVS(5532) = -B(933)\nIF (DO_JVS(5533)) &\n! JVS(5533) = Jac_FULL(351,257)\n  JVS(5533) = -B(756)\nIF (DO_JVS(5534)) &\n! JVS(5534) = Jac_FULL(351,259)\n  JVS(5534) = 0\nIF (DO_JVS(5535)) &\n! JVS(5535) = Jac_FULL(351,261)\n  JVS(5535) = -B(1318)\nIF (DO_JVS(5536)) &\n! JVS(5536) = Jac_FULL(351,262)\n  JVS(5536) = -B(875)\nIF (DO_JVS(5537)) &\n! JVS(5537) = Jac_FULL(351,263)\n  JVS(5537) = -B(1391)\nIF (DO_JVS(5538)) &\n! JVS(5538) = Jac_FULL(351,267)\n  JVS(5538) = 0\nIF (DO_JVS(5539)) &\n! JVS(5539) = Jac_FULL(351,269)\n  JVS(5539) = -B(1459)\nIF (DO_JVS(5540)) &\n! JVS(5540) = Jac_FULL(351,270)\n  JVS(5540) = -B(316)\nIF (DO_JVS(5541)) &\n! JVS(5541) = Jac_FULL(351,271)\n  JVS(5541) = 0\nIF (DO_JVS(5542)) &\n! JVS(5542) = Jac_FULL(351,272)\n  JVS(5542) = -B(828)\nIF (DO_JVS(5543)) &\n! JVS(5543) = Jac_FULL(351,273)\n  JVS(5543) = -B(794)\nIF (DO_JVS(5544)) &\n! JVS(5544) = Jac_FULL(351,274)\n  JVS(5544) = -B(845)\nIF (DO_JVS(5545)) &\n! JVS(5545) = Jac_FULL(351,275)\n  JVS(5545) = -B(778)\nIF (DO_JVS(5546)) &\n! JVS(5546) = Jac_FULL(351,276)\n  JVS(5546) = -B(1147)\nIF (DO_JVS(5547)) &\n! JVS(5547) = Jac_FULL(351,277)\n  JVS(5547) = -B(739)\nIF (DO_JVS(5548)) &\n! JVS(5548) = Jac_FULL(351,278)\n  JVS(5548) = -B(766)\nIF (DO_JVS(5549)) &\n! JVS(5549) = Jac_FULL(351,280)\n  JVS(5549) = -B(917)\nIF (DO_JVS(5550)) &\n! JVS(5550) = Jac_FULL(351,281)\n  JVS(5550) = -B(804)\nIF (DO_JVS(5551)) &\n! JVS(5551) = Jac_FULL(351,285)\n  JVS(5551) = 0\nIF (DO_JVS(5552)) &\n! JVS(5552) = Jac_FULL(351,286)\n  JVS(5552) = 0\nIF (DO_JVS(5553)) &\n! JVS(5553) = Jac_FULL(351,288)\n  JVS(5553) = 0\nIF (DO_JVS(5554)) &\n! JVS(5554) = Jac_FULL(351,289)\n  JVS(5554) = -B(919)\nIF (DO_JVS(5555)) &\n! JVS(5555) = Jac_FULL(351,290)\n  JVS(5555) = -B(310)\nIF (DO_JVS(5556)) &\n! JVS(5556) = Jac_FULL(351,291)\n  JVS(5556) = -B(857)\nIF (DO_JVS(5557)) &\n! JVS(5557) = Jac_FULL(351,292)\n  JVS(5557) = -B(251)\nIF (DO_JVS(5558)) &\n! JVS(5558) = Jac_FULL(351,293)\n  JVS(5558) = 0\nIF (DO_JVS(5559)) &\n! JVS(5559) = Jac_FULL(351,294)\n  JVS(5559) = -B(318)\nIF (DO_JVS(5560)) &\n! JVS(5560) = Jac_FULL(351,298)\n  JVS(5560) = -B(210)\nIF (DO_JVS(5561)) &\n! JVS(5561) = Jac_FULL(351,299)\n  JVS(5561) = 0\nIF (DO_JVS(5562)) &\n! JVS(5562) = Jac_FULL(351,300)\n  JVS(5562) = 0\nIF (DO_JVS(5563)) &\n! JVS(5563) = Jac_FULL(351,301)\n  JVS(5563) = 0\nIF (DO_JVS(5564)) &\n! JVS(5564) = Jac_FULL(351,302)\n  JVS(5564) = 0.69*B(1236)\nIF (DO_JVS(5565)) &\n! JVS(5565) = Jac_FULL(351,303)\n  JVS(5565) = 0\nIF (DO_JVS(5566)) &\n! JVS(5566) = Jac_FULL(351,304)\n  JVS(5566) = 0\nIF (DO_JVS(5567)) &\n! JVS(5567) = Jac_FULL(351,305)\n  JVS(5567) = 0\nIF (DO_JVS(5568)) &\n! JVS(5568) = Jac_FULL(351,306)\n  JVS(5568) = -B(295)\nIF (DO_JVS(5569)) &\n! JVS(5569) = Jac_FULL(351,307)\n  JVS(5569) = 0\nIF (DO_JVS(5570)) &\n! JVS(5570) = Jac_FULL(351,308)\n  JVS(5570) = -B(1297)\nIF (DO_JVS(5571)) &\n! JVS(5571) = Jac_FULL(351,309)\n  JVS(5571) = -B(1234)\nIF (DO_JVS(5572)) &\n! JVS(5572) = Jac_FULL(351,310)\n  JVS(5572) = -B(1165)\nIF (DO_JVS(5573)) &\n! JVS(5573) = Jac_FULL(351,311)\n  JVS(5573) = -B(1167)\nIF (DO_JVS(5574)) &\n! JVS(5574) = Jac_FULL(351,312)\n  JVS(5574) = B(695)\nIF (DO_JVS(5575)) &\n! JVS(5575) = Jac_FULL(351,313)\n  JVS(5575) = 0\nIF (DO_JVS(5576)) &\n! JVS(5576) = Jac_FULL(351,314)\n  JVS(5576) = 0\nIF (DO_JVS(5577)) &\n! JVS(5577) = Jac_FULL(351,317)\n  JVS(5577) = B(545)+B(601)+B(603)+B(1707)\nIF (DO_JVS(5578)) &\n! JVS(5578) = Jac_FULL(351,318)\n  JVS(5578) = 0\nIF (DO_JVS(5579)) &\n! JVS(5579) = Jac_FULL(351,319)\n  JVS(5579) = 0\nIF (DO_JVS(5580)) &\n! JVS(5580) = Jac_FULL(351,320)\n  JVS(5580) = 0\nIF (DO_JVS(5581)) &\n! JVS(5581) = Jac_FULL(351,321)\n  JVS(5581) = 0\nIF (DO_JVS(5582)) &\n! JVS(5582) = Jac_FULL(351,322)\n  JVS(5582) = 0\nIF (DO_JVS(5583)) &\n! JVS(5583) = Jac_FULL(351,323)\n  JVS(5583) = 0\nIF (DO_JVS(5584)) &\n! JVS(5584) = Jac_FULL(351,324)\n  JVS(5584) = 0\nIF (DO_JVS(5585)) &\n! JVS(5585) = Jac_FULL(351,325)\n  JVS(5585) = -B(93)\nIF (DO_JVS(5586)) &\n! JVS(5586) = Jac_FULL(351,326)\n  JVS(5586) = -B(97)\nIF (DO_JVS(5587)) &\n! JVS(5587) = Jac_FULL(351,327)\n  JVS(5587) = B(67)\nIF (DO_JVS(5588)) &\n! JVS(5588) = Jac_FULL(351,328)\n  JVS(5588) = -B(1487)\nIF (DO_JVS(5589)) &\n! JVS(5589) = Jac_FULL(351,329)\n  JVS(5589) = 0\nIF (DO_JVS(5590)) &\n! JVS(5590) = Jac_FULL(351,331)\n  JVS(5590) = B(655)\nIF (DO_JVS(5591)) &\n! JVS(5591) = Jac_FULL(351,332)\n  JVS(5591) = B(656)+B(1731)\nIF (DO_JVS(5592)) &\n! JVS(5592) = Jac_FULL(351,334)\n  JVS(5592) = 0\nIF (DO_JVS(5593)) &\n! JVS(5593) = Jac_FULL(351,335)\n  JVS(5593) = B(32)-B(84)-B(91)+B(467)+B(696)+B(710)+B(1444)\nIF (DO_JVS(5594)) &\n! JVS(5594) = Jac_FULL(351,336)\n  JVS(5594) = 0\nIF (DO_JVS(5595)) &\n! JVS(5595) = Jac_FULL(351,337)\n  JVS(5595) = -B(78)\nIF (DO_JVS(5596)) &\n! JVS(5596) = Jac_FULL(351,338)\n  JVS(5596) = 0\nIF (DO_JVS(5597)) &\n! JVS(5597) = Jac_FULL(351,339)\n  JVS(5597) = 0\nIF (DO_JVS(5598)) &\n! JVS(5598) = Jac_FULL(351,340)\n  JVS(5598) = B(604)\nIF (DO_JVS(5599)) &\n! JVS(5599) = Jac_FULL(351,341)\n  JVS(5599) = B(33)\nIF (DO_JVS(5600)) &\n! JVS(5600) = Jac_FULL(351,342)\n  JVS(5600) = B(402)-B(411)\nIF (DO_JVS(5601)) &\n! JVS(5601) = Jac_FULL(351,343)\n  JVS(5601) = -B(463)+B(468)+B(602)\nIF (DO_JVS(5602)) &\n! JVS(5602) = Jac_FULL(351,344)\n  JVS(5602) = 0\nIF (DO_JVS(5603)) &\n! JVS(5603) = Jac_FULL(351,345)\n  JVS(5603) = B(68)-B(82)+B(168)+B(546)+B(938)+0.69*B(1237)+B(1303)\nIF (DO_JVS(5604)) &\n! JVS(5604) = Jac_FULL(351,346)\n  JVS(5604) = -B(80)\nIF (DO_JVS(5605)) &\n! JVS(5605) = Jac_FULL(351,347)\n  JVS(5605) = 0\nIF (DO_JVS(5606)) &\n! JVS(5606) = Jac_FULL(351,348)\n  JVS(5606) = 0\nIF (DO_JVS(5607)) &\n! JVS(5607) = Jac_FULL(351,349)\n  JVS(5607) = 0\nIF (DO_JVS(5608)) &\n! JVS(5608) = Jac_FULL(351,350)\n  JVS(5608) = 0\nIF (DO_JVS(5609)) &\n! JVS(5609) = Jac_FULL(351,351)\n  JVS(5609) = -B(79)-B(81)-B(83)-B(85)-B(92)-B(94)-B(98)-B(127)-B(145)-B(194)-B(211)-B(252)-B(296)-B(305)-B(311)-B(317)&\n                &-B(319)-B(345)-2*B(377)-B(386)-B(412)-B(464)-B(651)-B(718)-B(720)-B(722)-B(740)-B(746)-B(757)-B(767)-B(779)&\n                &-B(795)-B(805)-B(811)-B(817)-B(823)-B(829)-B(835)-B(846)-B(858)-B(864)-B(870)-B(876)-B(918)-B(920)-B(932)&\n                &-B(934)-B(1148)-B(1166)-B(1168)-B(1235)-B(1298)-B(1319)-B(1341)-B(1347)-B(1351)-B(1369)-B(1392)-B(1417)&\n                &-B(1421)-B(1427)-B(1431)-B(1448)-B(1460)-B(1488)-B(1493)-B(1494)-B(1495)-B(1653)-B(1654)\nIF (DO_JVS(5610)) &\n! JVS(5610) = Jac_FULL(351,352)\n  JVS(5610) = 0\nIF (DO_JVS(5611)) &\n! JVS(5611) = Jac_FULL(351,353)\n  JVS(5611) = 0\nIF (DO_JVS(5612)) &\n! JVS(5612) = Jac_FULL(352,141)\n  JVS(5612) = B(421)\nIF (DO_JVS(5613)) &\n! JVS(5613) = Jac_FULL(352,183)\n  JVS(5613) = B(419)\nIF (DO_JVS(5614)) &\n! JVS(5614) = Jac_FULL(352,290)\n  JVS(5614) = B(641)\nIF (DO_JVS(5615)) &\n! JVS(5615) = Jac_FULL(352,295)\n  JVS(5615) = B(417)\nIF (DO_JVS(5616)) &\n! JVS(5616) = Jac_FULL(352,297)\n  JVS(5616) = -B(1537)\nIF (DO_JVS(5617)) &\n! JVS(5617) = Jac_FULL(352,300)\n  JVS(5617) = 0\nIF (DO_JVS(5618)) &\n! JVS(5618) = Jac_FULL(352,314)\n  JVS(5618) = 0\nIF (DO_JVS(5619)) &\n! JVS(5619) = Jac_FULL(352,316)\n  JVS(5619) = -B(1549)+B(1561)\nIF (DO_JVS(5620)) &\n! JVS(5620) = Jac_FULL(352,317)\n  JVS(5620) = -B(1517)\nIF (DO_JVS(5621)) &\n! JVS(5621) = Jac_FULL(352,318)\n  JVS(5621) = 0\nIF (DO_JVS(5622)) &\n! JVS(5622) = Jac_FULL(352,319)\n  JVS(5622) = 0\nIF (DO_JVS(5623)) &\n! JVS(5623) = Jac_FULL(352,320)\n  JVS(5623) = 0\nIF (DO_JVS(5624)) &\n! JVS(5624) = Jac_FULL(352,323)\n  JVS(5624) = 0\nIF (DO_JVS(5625)) &\n! JVS(5625) = Jac_FULL(352,324)\n  JVS(5625) = 0\nIF (DO_JVS(5626)) &\n! JVS(5626) = Jac_FULL(352,325)\n  JVS(5626) = B(413)\nIF (DO_JVS(5627)) &\n! JVS(5627) = Jac_FULL(352,326)\n  JVS(5627) = B(415)\nIF (DO_JVS(5628)) &\n! JVS(5628) = Jac_FULL(352,328)\n  JVS(5628) = 0\nIF (DO_JVS(5629)) &\n! JVS(5629) = Jac_FULL(352,329)\n  JVS(5629) = 0\nIF (DO_JVS(5630)) &\n! JVS(5630) = Jac_FULL(352,333)\n  JVS(5630) = -B(1541)\nIF (DO_JVS(5631)) &\n! JVS(5631) = Jac_FULL(352,334)\n  JVS(5631) = -0.8*B(489)\nIF (DO_JVS(5632)) &\n! JVS(5632) = Jac_FULL(352,335)\n  JVS(5632) = 0\nIF (DO_JVS(5633)) &\n! JVS(5633) = Jac_FULL(352,336)\n  JVS(5633) = 0\nIF (DO_JVS(5634)) &\n! JVS(5634) = Jac_FULL(352,337)\n  JVS(5634) = B(393)\nIF (DO_JVS(5635)) &\n! JVS(5635) = Jac_FULL(352,338)\n  JVS(5635) = 0\nIF (DO_JVS(5636)) &\n! JVS(5636) = Jac_FULL(352,339)\n  JVS(5636) = 0\nIF (DO_JVS(5637)) &\n! JVS(5637) = Jac_FULL(352,340)\n  JVS(5637) = 0\nIF (DO_JVS(5638)) &\n! JVS(5638) = Jac_FULL(352,341)\n  JVS(5638) = -B(1563)\nIF (DO_JVS(5639)) &\n! JVS(5639) = Jac_FULL(352,342)\n  JVS(5639) = B(394)+B(414)+B(416)+B(418)+B(420)+B(422)+B(642)\nIF (DO_JVS(5640)) &\n! JVS(5640) = Jac_FULL(352,343)\n  JVS(5640) = -B(407)\nIF (DO_JVS(5641)) &\n! JVS(5641) = Jac_FULL(352,344)\n  JVS(5641) = 0\nIF (DO_JVS(5642)) &\n! JVS(5642) = Jac_FULL(352,345)\n  JVS(5642) = -B(395)\nIF (DO_JVS(5643)) &\n! JVS(5643) = Jac_FULL(352,346)\n  JVS(5643) = 0\nIF (DO_JVS(5644)) &\n! JVS(5644) = Jac_FULL(352,347)\n  JVS(5644) = 0\nIF (DO_JVS(5645)) &\n! JVS(5645) = Jac_FULL(352,348)\n  JVS(5645) = B(1562)\nIF (DO_JVS(5646)) &\n! JVS(5646) = Jac_FULL(352,349)\n  JVS(5646) = 0\nIF (DO_JVS(5647)) &\n! JVS(5647) = Jac_FULL(352,350)\n  JVS(5647) = 0\nIF (DO_JVS(5648)) &\n! JVS(5648) = Jac_FULL(352,351)\n  JVS(5648) = 0\nIF (DO_JVS(5649)) &\n! JVS(5649) = Jac_FULL(352,352)\n  JVS(5649) = -B(396)-B(408)-0.8*B(490)-B(1518)-B(1538)-B(1542)-B(1550)-B(1564)-B(1569)-B(1570)\nIF (DO_JVS(5650)) &\n! JVS(5650) = Jac_FULL(352,353)\n  JVS(5650) = 0\nIF (DO_JVS(5651)) &\n! JVS(5651) = Jac_FULL(353,179)\n  JVS(5651) = B(4)\nIF (DO_JVS(5652)) &\n! JVS(5652) = Jac_FULL(353,214)\n  JVS(5652) = -B(1501)\nIF (DO_JVS(5653)) &\n! JVS(5653) = Jac_FULL(353,252)\n  JVS(5653) = -B(1595)\nIF (DO_JVS(5654)) &\n! JVS(5654) = Jac_FULL(353,297)\n  JVS(5654) = -B(1527)\nIF (DO_JVS(5655)) &\n! JVS(5655) = Jac_FULL(353,316)\n  JVS(5655) = -B(1553)\nIF (DO_JVS(5656)) &\n! JVS(5656) = Jac_FULL(353,317)\n  JVS(5656) = -B(1523)\nIF (DO_JVS(5657)) &\n! JVS(5657) = Jac_FULL(353,327)\n  JVS(5657) = 0\nIF (DO_JVS(5658)) &\n! JVS(5658) = Jac_FULL(353,328)\n  JVS(5658) = 0\nIF (DO_JVS(5659)) &\n! JVS(5659) = Jac_FULL(353,329)\n  JVS(5659) = 0\nIF (DO_JVS(5660)) &\n! JVS(5660) = Jac_FULL(353,330)\n  JVS(5660) = -B(1611)\nIF (DO_JVS(5661)) &\n! JVS(5661) = Jac_FULL(353,331)\n  JVS(5661) = 0\nIF (DO_JVS(5662)) &\n! JVS(5662) = Jac_FULL(353,332)\n  JVS(5662) = -B(1603)\nIF (DO_JVS(5663)) &\n! JVS(5663) = Jac_FULL(353,333)\n  JVS(5663) = -B(1543)\nIF (DO_JVS(5664)) &\n! JVS(5664) = Jac_FULL(353,334)\n  JVS(5664) = 0\nIF (DO_JVS(5665)) &\n! JVS(5665) = Jac_FULL(353,335)\n  JVS(5665) = 0\nIF (DO_JVS(5666)) &\n! JVS(5666) = Jac_FULL(353,336)\n  JVS(5666) = 0\nIF (DO_JVS(5667)) &\n! JVS(5667) = Jac_FULL(353,337)\n  JVS(5667) = 0\nIF (DO_JVS(5668)) &\n! JVS(5668) = Jac_FULL(353,338)\n  JVS(5668) = 0\nIF (DO_JVS(5669)) &\n! JVS(5669) = Jac_FULL(353,339)\n  JVS(5669) = B(5)\nIF (DO_JVS(5670)) &\n! JVS(5670) = Jac_FULL(353,340)\n  JVS(5670) = 0\nIF (DO_JVS(5671)) &\n! JVS(5671) = Jac_FULL(353,341)\n  JVS(5671) = 0\nIF (DO_JVS(5672)) &\n! JVS(5672) = Jac_FULL(353,342)\n  JVS(5672) = 0\nIF (DO_JVS(5673)) &\n! JVS(5673) = Jac_FULL(353,343)\n  JVS(5673) = 0\nIF (DO_JVS(5674)) &\n! JVS(5674) = Jac_FULL(353,344)\n  JVS(5674) = 0\nIF (DO_JVS(5675)) &\n! JVS(5675) = Jac_FULL(353,345)\n  JVS(5675) = -B(1505)\nIF (DO_JVS(5676)) &\n! JVS(5676) = Jac_FULL(353,346)\n  JVS(5676) = 0\nIF (DO_JVS(5677)) &\n! JVS(5677) = Jac_FULL(353,347)\n  JVS(5677) = 0\nIF (DO_JVS(5678)) &\n! JVS(5678) = Jac_FULL(353,348)\n  JVS(5678) = 0\nIF (DO_JVS(5679)) &\n! JVS(5679) = Jac_FULL(353,349)\n  JVS(5679) = 0\nIF (DO_JVS(5680)) &\n! JVS(5680) = Jac_FULL(353,350)\n  JVS(5680) = 0\nIF (DO_JVS(5681)) &\n! JVS(5681) = Jac_FULL(353,351)\n  JVS(5681) = 0\nIF (DO_JVS(5682)) &\n! JVS(5682) = Jac_FULL(353,352)\n  JVS(5682) = 0\nIF (DO_JVS(5683)) &\n! JVS(5683) = Jac_FULL(353,353)\n  JVS(5683) = -B(1502)-B(1506)-B(1524)-B(1528)-B(1544)-B(1554)-B(1596)-B(1604)-B(1612)\n      \nEND SUBROUTINE Jac_SP\n\n! End of Jac_SP function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Jac_SP_Vec - function for sparse multiplication: sparse Jacobian times vector\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      UV        - User vector for variables\n!      JUV       - Jacobian times user vector\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Jac_SP_Vec ( JVS, UV, JUV )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! UV - User vector for variables\n  REAL(kind=dp) :: UV(NVAR)\n! JUV - Jacobian times user vector\n  REAL(kind=dp) :: JUV(NVAR)\n\n  JUV(1) = JVS(1)*UV(1)\n  JUV(2) = JVS(2)*UV(2)\n  JUV(3) = JVS(3)*UV(3)\n  JUV(4) = JVS(4)*UV(4)+JVS(5)*UV(42)+JVS(6)*UV(44)+JVS(7)*UV(55)+JVS(8)*UV(73)\n  JUV(5) = JVS(9)*UV(5)+JVS(10)*UV(269)\n  JUV(6) = JVS(11)*UV(6)+JVS(12)*UV(41)+JVS(13)*UV(345)\n  JUV(7) = JVS(14)*UV(7)+JVS(15)*UV(66)+JVS(16)*UV(68)+JVS(17)*UV(71)+JVS(18)*UV(74)+JVS(19)*UV(90)+JVS(20)*UV(92)&\n             &+JVS(21)*UV(115)+JVS(22)*UV(130)+JVS(23)*UV(133)+JVS(24)*UV(135)+JVS(25)*UV(139)+JVS(26)*UV(159)+JVS(27)&\n             &*UV(169)+JVS(28)*UV(173)+JVS(29)*UV(182)+JVS(30)*UV(194)+JVS(31)*UV(198)+JVS(32)*UV(213)+JVS(33)*UV(216)&\n             &+JVS(34)*UV(235)+JVS(35)*UV(238)+JVS(36)*UV(240)+JVS(37)*UV(241)+JVS(38)*UV(246)+JVS(39)*UV(249)+JVS(40)&\n             &*UV(250)+JVS(41)*UV(257)+JVS(42)*UV(259)+JVS(43)*UV(260)+JVS(44)*UV(261)+JVS(45)*UV(263)+JVS(46)*UV(265)&\n             &+JVS(47)*UV(269)+JVS(48)*UV(274)+JVS(49)*UV(275)+JVS(50)*UV(276)+JVS(51)*UV(277)+JVS(52)*UV(280)+JVS(53)&\n             &*UV(281)+JVS(54)*UV(283)+JVS(55)*UV(287)+JVS(56)*UV(290)+JVS(57)*UV(291)+JVS(58)*UV(296)+JVS(59)*UV(300)&\n             &+JVS(60)*UV(306)+JVS(61)*UV(307)+JVS(62)*UV(308)+JVS(63)*UV(310)+JVS(64)*UV(311)+JVS(65)*UV(312)+JVS(66)&\n             &*UV(313)+JVS(67)*UV(315)+JVS(68)*UV(318)+JVS(69)*UV(319)+JVS(70)*UV(320)+JVS(71)*UV(321)+JVS(72)*UV(322)&\n             &+JVS(73)*UV(323)+JVS(74)*UV(324)+JVS(75)*UV(328)+JVS(76)*UV(329)+JVS(77)*UV(337)+JVS(78)*UV(340)+JVS(79)&\n             &*UV(341)+JVS(80)*UV(345)+JVS(81)*UV(346)+JVS(82)*UV(351)\n  JUV(8) = JVS(83)*UV(8)+JVS(84)*UV(45)+JVS(85)*UV(103)\n  JUV(9) = JVS(86)*UV(9)+JVS(87)*UV(42)+JVS(88)*UV(44)+JVS(89)*UV(55)+JVS(90)*UV(73)+JVS(91)*UV(252)+JVS(92)*UV(330)&\n             &+JVS(93)*UV(332)\n  JUV(10) = JVS(94)*UV(10)+JVS(95)*UV(42)+JVS(96)*UV(44)+JVS(97)*UV(55)+JVS(98)*UV(73)+JVS(99)*UV(252)+JVS(100)*UV(330)&\n              &+JVS(101)*UV(332)\n  JUV(11) = JVS(102)*UV(11)+JVS(103)*UV(13)+JVS(104)*UV(337)\n  JUV(12) = JVS(105)*UV(12)+JVS(106)*UV(13)+JVS(107)*UV(346)\n  JUV(13) = JVS(108)*UV(13)+JVS(109)*UV(143)+JVS(110)*UV(337)+JVS(111)*UV(345)+JVS(112)*UV(346)\n  JUV(14) = JVS(113)*UV(14)+JVS(114)*UV(276)+JVS(115)*UV(345)\n  JUV(15) = JVS(116)*UV(15)+JVS(117)*UV(276)+JVS(118)*UV(351)\n  JUV(16) = JVS(119)*UV(16)+JVS(120)*UV(18)+JVS(121)*UV(337)\n  JUV(17) = JVS(122)*UV(17)+JVS(123)*UV(18)+JVS(124)*UV(346)\n  JUV(18) = JVS(125)*UV(18)+JVS(126)*UV(19)+JVS(127)*UV(337)+JVS(128)*UV(345)+JVS(129)*UV(346)\n  JUV(19) = JVS(130)*UV(19)+JVS(131)*UV(345)\n  JUV(20) = JVS(132)*UV(20)+JVS(133)*UV(22)+JVS(134)*UV(337)\n  JUV(21) = JVS(135)*UV(21)+JVS(136)*UV(22)+JVS(137)*UV(346)\n  JUV(22) = JVS(138)*UV(22)+JVS(139)*UV(82)+JVS(140)*UV(337)+JVS(141)*UV(345)+JVS(142)*UV(346)\n  JUV(23) = JVS(143)*UV(23)+JVS(144)*UV(24)\n  JUV(24) = JVS(145)*UV(24)+JVS(146)*UV(187)+JVS(147)*UV(192)+JVS(148)*UV(199)+JVS(149)*UV(209)+JVS(150)*UV(345)\n  JUV(25) = JVS(151)*UV(25)+JVS(152)*UV(27)+JVS(153)*UV(337)\n  JUV(26) = JVS(154)*UV(26)+JVS(155)*UV(27)+JVS(156)*UV(346)\n  JUV(27) = JVS(157)*UV(27)+JVS(158)*UV(101)+JVS(159)*UV(337)+JVS(160)*UV(345)+JVS(161)*UV(346)\n  JUV(28) = JVS(162)*UV(28)+JVS(163)*UV(94)+JVS(164)*UV(345)\n  JUV(29) = JVS(165)*UV(29)+JVS(166)*UV(166)+JVS(167)*UV(341)+JVS(168)*UV(348)\n  JUV(30) = JVS(169)*UV(30)+JVS(170)*UV(115)+JVS(171)*UV(270)+JVS(172)*UV(294)\n  JUV(31) = JVS(173)*UV(31)+JVS(174)*UV(107)+JVS(175)*UV(128)+JVS(176)*UV(151)+JVS(177)*UV(152)+JVS(178)*UV(215)\n  JUV(32) = JVS(179)*UV(32)+JVS(180)*UV(241)+JVS(181)*UV(312)+JVS(182)*UV(345)+JVS(183)*UV(348)\n  JUV(33) = JVS(184)*UV(33)+JVS(185)*UV(89)+JVS(186)*UV(345)+JVS(187)*UV(348)\n  JUV(34) = JVS(188)*UV(34)+JVS(189)*UV(45)+JVS(190)*UV(56)+JVS(191)*UV(57)+JVS(192)*UV(63)+JVS(193)*UV(67)+JVS(194)&\n              &*UV(70)+JVS(195)*UV(80)+JVS(196)*UV(83)+JVS(197)*UV(90)+JVS(198)*UV(91)+JVS(199)*UV(93)+JVS(200)*UV(95)&\n              &+JVS(201)*UV(103)+JVS(202)*UV(108)+JVS(203)*UV(110)+JVS(204)*UV(113)+JVS(205)*UV(114)+JVS(206)*UV(116)&\n              &+JVS(207)*UV(121)+JVS(208)*UV(122)+JVS(209)*UV(124)+JVS(210)*UV(126)+JVS(211)*UV(127)+JVS(212)*UV(132)&\n              &+JVS(213)*UV(133)+JVS(214)*UV(135)+JVS(215)*UV(137)+JVS(216)*UV(138)+JVS(217)*UV(139)+JVS(218)*UV(148)&\n              &+JVS(219)*UV(154)+JVS(220)*UV(162)+JVS(221)*UV(165)+JVS(222)*UV(170)+JVS(223)*UV(171)+JVS(224)*UV(172)&\n              &+JVS(225)*UV(176)+JVS(226)*UV(177)+JVS(227)*UV(178)+JVS(228)*UV(180)+JVS(229)*UV(182)+JVS(230)*UV(184)&\n              &+JVS(231)*UV(189)+JVS(232)*UV(190)+JVS(233)*UV(193)+JVS(234)*UV(196)+JVS(235)*UV(197)+JVS(236)*UV(205)&\n              &+JVS(237)*UV(206)+JVS(238)*UV(207)+JVS(239)*UV(211)+JVS(240)*UV(212)+JVS(241)*UV(213)+JVS(242)*UV(217)&\n              &+JVS(243)*UV(223)+JVS(244)*UV(224)+JVS(245)*UV(226)+JVS(246)*UV(232)+JVS(247)*UV(234)+JVS(248)*UV(235)&\n              &+JVS(249)*UV(236)+JVS(250)*UV(239)+JVS(251)*UV(240)+JVS(252)*UV(241)+JVS(253)*UV(243)+JVS(254)*UV(245)&\n              &+JVS(255)*UV(246)+JVS(256)*UV(249)+JVS(257)*UV(250)+JVS(258)*UV(253)+JVS(259)*UV(254)+JVS(260)*UV(257)&\n              &+JVS(261)*UV(259)+JVS(262)*UV(260)+JVS(263)*UV(263)+JVS(264)*UV(269)+JVS(265)*UV(271)+JVS(266)*UV(272)&\n              &+JVS(267)*UV(273)+JVS(268)*UV(274)+JVS(269)*UV(275)+JVS(270)*UV(277)+JVS(271)*UV(278)+JVS(272)*UV(280)&\n              &+JVS(273)*UV(281)+JVS(274)*UV(285)+JVS(275)*UV(286)+JVS(276)*UV(289)+JVS(277)*UV(291)+JVS(278)*UV(293)&\n              &+JVS(279)*UV(296)+JVS(280)*UV(297)+JVS(281)*UV(300)+JVS(282)*UV(302)+JVS(283)*UV(304)+JVS(284)*UV(305)&\n              &+JVS(285)*UV(308)+JVS(286)*UV(310)+JVS(287)*UV(311)+JVS(288)*UV(312)+JVS(289)*UV(313)+JVS(290)*UV(315)&\n              &+JVS(291)*UV(317)+JVS(292)*UV(318)+JVS(293)*UV(319)+JVS(294)*UV(320)+JVS(295)*UV(321)+JVS(296)*UV(322)&\n              &+JVS(297)*UV(323)+JVS(298)*UV(324)+JVS(299)*UV(327)+JVS(300)*UV(328)+JVS(301)*UV(335)+JVS(302)*UV(337)&\n              &+JVS(303)*UV(340)+JVS(304)*UV(345)+JVS(305)*UV(346)\n  JUV(35) = JVS(306)*UV(35)+JVS(307)*UV(42)+JVS(308)*UV(44)+JVS(309)*UV(49)+JVS(310)*UV(50)+JVS(311)*UV(55)+JVS(312)&\n              &*UV(63)+JVS(313)*UV(64)+JVS(314)*UV(65)+JVS(315)*UV(68)+JVS(316)*UV(69)+JVS(317)*UV(76)+JVS(318)*UV(87)&\n              &+JVS(319)*UV(94)+JVS(320)*UV(96)+JVS(321)*UV(105)+JVS(322)*UV(109)+JVS(323)*UV(120)+JVS(324)*UV(140)+JVS(325)&\n              &*UV(142)+JVS(326)*UV(149)+JVS(327)*UV(154)+JVS(328)*UV(158)+JVS(329)*UV(163)+JVS(330)*UV(166)+JVS(331)&\n              &*UV(167)+JVS(332)*UV(168)+JVS(333)*UV(175)+JVS(334)*UV(179)+JVS(335)*UV(181)+JVS(336)*UV(183)+JVS(337)&\n              &*UV(186)+JVS(338)*UV(191)+JVS(339)*UV(195)+JVS(340)*UV(197)+JVS(341)*UV(200)+JVS(342)*UV(201)+JVS(343)&\n              &*UV(202)+JVS(344)*UV(203)+JVS(345)*UV(204)+JVS(346)*UV(211)+JVS(347)*UV(213)+JVS(348)*UV(214)+JVS(349)&\n              &*UV(216)+JVS(350)*UV(217)+JVS(351)*UV(218)+JVS(352)*UV(219)+JVS(353)*UV(220)+JVS(354)*UV(221)+JVS(355)&\n              &*UV(222)+JVS(356)*UV(225)+JVS(357)*UV(228)+JVS(358)*UV(229)+JVS(359)*UV(234)+JVS(360)*UV(235)+JVS(361)&\n              &*UV(236)+JVS(362)*UV(237)+JVS(363)*UV(240)+JVS(364)*UV(242)+JVS(365)*UV(246)+JVS(366)*UV(248)+JVS(367)&\n              &*UV(251)+JVS(368)*UV(252)+JVS(369)*UV(255)+JVS(370)*UV(256)+JVS(371)*UV(257)+JVS(372)*UV(261)+JVS(373)&\n              &*UV(262)+JVS(374)*UV(263)+JVS(375)*UV(264)+JVS(376)*UV(266)+JVS(377)*UV(267)+JVS(378)*UV(268)+JVS(379)&\n              &*UV(270)+JVS(380)*UV(272)+JVS(381)*UV(273)+JVS(382)*UV(274)+JVS(383)*UV(275)+JVS(384)*UV(276)+JVS(385)&\n              &*UV(277)+JVS(386)*UV(278)+JVS(387)*UV(280)+JVS(388)*UV(281)+JVS(389)*UV(284)+JVS(390)*UV(289)+JVS(391)&\n              &*UV(290)+JVS(392)*UV(291)+JVS(393)*UV(292)+JVS(394)*UV(294)+JVS(395)*UV(297)+JVS(396)*UV(298)+JVS(397)&\n              &*UV(299)+JVS(398)*UV(302)+JVS(399)*UV(303)+JVS(400)*UV(306)+JVS(401)*UV(308)+JVS(402)*UV(309)+JVS(403)&\n              &*UV(310)+JVS(404)*UV(311)+JVS(405)*UV(312)+JVS(406)*UV(314)+JVS(407)*UV(316)+JVS(408)*UV(317)+JVS(409)&\n              &*UV(325)+JVS(410)*UV(326)+JVS(411)*UV(328)+JVS(412)*UV(330)+JVS(413)*UV(332)+JVS(414)*UV(333)+JVS(415)&\n              &*UV(334)+JVS(416)*UV(335)+JVS(417)*UV(336)+JVS(418)*UV(337)+JVS(419)*UV(338)+JVS(420)*UV(339)+JVS(421)&\n              &*UV(341)+JVS(422)*UV(343)+JVS(423)*UV(344)+JVS(424)*UV(345)+JVS(425)*UV(347)+JVS(426)*UV(348)+JVS(427)&\n              &*UV(349)+JVS(428)*UV(350)+JVS(429)*UV(351)+JVS(430)*UV(352)+JVS(431)*UV(353)\n  JUV(36) = JVS(432)*UV(36)+JVS(433)*UV(60)+JVS(434)*UV(68)+JVS(435)*UV(75)+JVS(436)*UV(79)+JVS(437)*UV(82)+JVS(438)&\n              &*UV(101)+JVS(439)*UV(107)+JVS(440)*UV(113)+JVS(441)*UV(114)+JVS(442)*UV(119)+JVS(443)*UV(122)+JVS(444)&\n              &*UV(124)+JVS(445)*UV(126)+JVS(446)*UV(127)+JVS(447)*UV(132)+JVS(448)*UV(139)+JVS(449)*UV(143)+JVS(450)&\n              &*UV(144)+JVS(451)*UV(146)+JVS(452)*UV(147)+JVS(453)*UV(150)+JVS(454)*UV(153)+JVS(455)*UV(159)+JVS(456)&\n              &*UV(167)+JVS(457)*UV(181)+JVS(458)*UV(182)+JVS(459)*UV(184)+JVS(460)*UV(185)+JVS(461)*UV(187)+JVS(462)&\n              &*UV(191)+JVS(463)*UV(192)+JVS(464)*UV(194)+JVS(465)*UV(197)+JVS(466)*UV(199)+JVS(467)*UV(200)+JVS(468)&\n              &*UV(201)+JVS(469)*UV(204)+JVS(470)*UV(208)+JVS(471)*UV(209)+JVS(472)*UV(210)+JVS(473)*UV(215)+JVS(474)&\n              &*UV(216)+JVS(475)*UV(220)+JVS(476)*UV(221)+JVS(477)*UV(225)+JVS(478)*UV(227)+JVS(479)*UV(230)+JVS(480)&\n              &*UV(231)+JVS(481)*UV(233)+JVS(482)*UV(238)+JVS(483)*UV(243)+JVS(484)*UV(248)+JVS(485)*UV(253)+JVS(486)&\n              &*UV(255)+JVS(487)*UV(258)+JVS(488)*UV(259)+JVS(489)*UV(261)+JVS(490)*UV(266)+JVS(491)*UV(267)+JVS(492)&\n              &*UV(268)+JVS(493)*UV(269)+JVS(494)*UV(270)+JVS(495)*UV(276)+JVS(496)*UV(285)+JVS(497)*UV(286)+JVS(498)&\n              &*UV(287)+JVS(499)*UV(290)+JVS(500)*UV(294)+JVS(501)*UV(295)+JVS(502)*UV(298)+JVS(503)*UV(301)+JVS(504)&\n              &*UV(304)+JVS(505)*UV(305)+JVS(506)*UV(306)+JVS(507)*UV(307)+JVS(508)*UV(309)+JVS(509)*UV(314)+JVS(510)&\n              &*UV(325)+JVS(511)*UV(326)+JVS(512)*UV(328)+JVS(513)*UV(337)+JVS(514)*UV(340)+JVS(515)*UV(341)+JVS(516)&\n              &*UV(342)+JVS(517)*UV(343)+JVS(518)*UV(345)+JVS(519)*UV(346)+JVS(520)*UV(351)\n  JUV(37) = JVS(521)*UV(37)+JVS(522)*UV(241)+JVS(523)*UV(312)+JVS(524)*UV(329)+JVS(525)*UV(345)\n  JUV(38) = JVS(526)*UV(38)+JVS(527)*UV(89)+JVS(528)*UV(179)+JVS(529)*UV(241)+JVS(530)*UV(264)+JVS(531)*UV(312)+JVS(532)&\n              &*UV(316)+JVS(533)*UV(333)+JVS(534)*UV(341)+JVS(535)*UV(345)+JVS(536)*UV(348)\n  JUV(39) = JVS(537)*UV(39)+JVS(538)*UV(228)+JVS(539)*UV(334)+JVS(540)*UV(340)+JVS(541)*UV(345)\n  JUV(40) = JVS(542)*UV(40)+JVS(543)*UV(241)+JVS(544)*UV(276)+JVS(545)*UV(312)+JVS(546)*UV(314)+JVS(547)*UV(336)&\n              &+JVS(548)*UV(337)+JVS(549)*UV(341)+JVS(550)*UV(345)\n  JUV(41) = JVS(551)*UV(41)+JVS(552)*UV(345)\n  JUV(42) = JVS(553)*UV(42)+JVS(554)*UV(96)\n  JUV(43) = JVS(555)*UV(43)+JVS(556)*UV(345)\n  JUV(44) = JVS(557)*UV(44)+JVS(558)*UV(284)\n  JUV(45) = JVS(559)*UV(45)+JVS(560)*UV(154)+JVS(561)*UV(242)+JVS(562)*UV(256)\n  JUV(46) = JVS(563)*UV(46)+JVS(564)*UV(334)\n  JUV(47) = JVS(565)*UV(47)+JVS(566)*UV(334)\n  JUV(48) = JVS(567)*UV(48)+JVS(568)*UV(334)\n  JUV(49) = JVS(569)*UV(49)+JVS(570)*UV(334)\n  JUV(50) = JVS(571)*UV(50)+JVS(572)*UV(334)\n  JUV(51) = JVS(573)*UV(51)+JVS(574)*UV(334)\n  JUV(52) = JVS(575)*UV(52)+JVS(576)*UV(345)\n  JUV(53) = JVS(577)*UV(53)+JVS(578)*UV(334)\n  JUV(54) = JVS(579)*UV(54)+JVS(580)*UV(334)\n  JUV(55) = JVS(581)*UV(55)+JVS(582)*UV(96)+JVS(583)*UV(284)\n  JUV(56) = JVS(584)*UV(56)+JVS(585)*UV(257)+JVS(586)*UV(335)\n  JUV(57) = JVS(587)*UV(57)+JVS(588)*UV(274)+JVS(589)*UV(335)\n  JUV(58) = JVS(590)*UV(58)+JVS(591)*UV(200)+JVS(592)*UV(345)\n  JUV(59) = JVS(593)*UV(59)+JVS(594)*UV(335)+JVS(595)*UV(342)\n  JUV(60) = JVS(596)*UV(60)+JVS(597)*UV(345)\n  JUV(61) = JVS(598)*UV(61)+JVS(599)*UV(334)\n  JUV(62) = JVS(600)*UV(62)+JVS(601)*UV(331)+JVS(602)*UV(346)\n  JUV(63) = JVS(603)*UV(63)+JVS(604)*UV(67)+JVS(605)*UV(334)+JVS(606)*UV(335)\n  JUV(64) = JVS(607)*UV(64)+JVS(608)*UV(179)+JVS(609)*UV(327)+JVS(610)*UV(351)\n  JUV(65) = JVS(611)*UV(65)+JVS(612)*UV(166)+JVS(613)*UV(327)+JVS(614)*UV(351)\n  JUV(66) = JVS(615)*UV(66)+JVS(616)*UV(257)+JVS(617)*UV(328)+JVS(618)*UV(337)+JVS(619)*UV(345)\n  JUV(67) = JVS(620)*UV(67)+JVS(621)*UV(335)+JVS(622)*UV(346)\n  JUV(68) = JVS(623)*UV(68)+JVS(624)*UV(343)+JVS(625)*UV(345)\n  JUV(69) = JVS(626)*UV(69)+JVS(627)*UV(345)+JVS(628)*UV(351)\n  JUV(70) = JVS(629)*UV(70)+JVS(630)*UV(234)+JVS(631)*UV(345)+JVS(632)*UV(346)\n  JUV(71) = JVS(633)*UV(71)+JVS(634)*UV(235)+JVS(635)*UV(337)+JVS(636)*UV(345)\n  JUV(72) = JVS(637)*UV(72)+JVS(638)*UV(213)+JVS(639)*UV(337)+JVS(640)*UV(345)\n  JUV(73) = JVS(641)*UV(73)+JVS(642)*UV(331)+JVS(643)*UV(337)+JVS(644)*UV(345)\n  JUV(74) = JVS(645)*UV(74)+JVS(646)*UV(257)+JVS(647)*UV(337)+JVS(648)*UV(345)\n  JUV(75) = JVS(649)*UV(75)+JVS(650)*UV(340)+JVS(651)*UV(345)\n  JUV(76) = JVS(652)*UV(76)+JVS(653)*UV(338)+JVS(654)*UV(345)\n  JUV(77) = JVS(655)*UV(77)+JVS(656)*UV(252)+JVS(657)*UV(330)+JVS(658)*UV(332)+JVS(659)*UV(349)+JVS(660)*UV(350)\n  JUV(78) = JVS(661)*UV(78)+JVS(662)*UV(334)+JVS(663)*UV(345)\n  JUV(79) = JVS(664)*UV(79)+JVS(665)*UV(340)+JVS(666)*UV(345)\n  JUV(80) = JVS(667)*UV(80)+JVS(668)*UV(328)+JVS(669)*UV(335)\n  JUV(81) = JVS(670)*UV(81)+JVS(671)*UV(334)+JVS(672)*UV(345)\n  JUV(82) = JVS(673)*UV(82)+JVS(674)*UV(345)\n  JUV(83) = JVS(675)*UV(83)+JVS(676)*UV(296)+JVS(677)*UV(345)+JVS(678)*UV(346)\n  JUV(84) = JVS(679)*UV(84)+JVS(680)*UV(334)+JVS(681)*UV(345)\n  JUV(85) = JVS(682)*UV(85)+JVS(683)*UV(334)+JVS(684)*UV(345)\n  JUV(86) = JVS(685)*UV(86)+JVS(686)*UV(334)+JVS(687)*UV(345)\n  JUV(87) = JVS(688)*UV(87)+JVS(689)*UV(334)+JVS(690)*UV(345)\n  JUV(88) = JVS(691)*UV(88)+JVS(692)*UV(312)+JVS(693)*UV(336)+JVS(694)*UV(345)\n  JUV(89) = JVS(695)*UV(89)+JVS(696)*UV(325)+JVS(697)*UV(345)+JVS(698)*UV(348)\n  JUV(90) = JVS(699)*UV(90)+JVS(700)*UV(235)+JVS(701)*UV(335)+JVS(702)*UV(345)\n  JUV(91) = JVS(703)*UV(91)+JVS(704)*UV(323)+JVS(705)*UV(345)+JVS(706)*UV(346)\n  JUV(92) = JVS(707)*UV(92)+JVS(708)*UV(324)+JVS(709)*UV(337)+JVS(710)*UV(345)\n  JUV(93) = JVS(711)*UV(93)+JVS(712)*UV(328)+JVS(713)*UV(345)+JVS(714)*UV(346)\n  JUV(94) = JVS(715)*UV(94)+JVS(716)*UV(345)+JVS(717)*UV(351)\n  JUV(95) = JVS(718)*UV(95)+JVS(719)*UV(321)+JVS(720)*UV(345)+JVS(721)*UV(346)\n  JUV(96) = JVS(722)*UV(42)+JVS(723)*UV(44)+JVS(724)*UV(55)+JVS(725)*UV(96)+JVS(726)*UV(284)+JVS(727)*UV(346)+JVS(728)&\n              &*UV(347)\n  JUV(97) = JVS(729)*UV(97)+JVS(730)*UV(319)+JVS(731)*UV(337)+JVS(732)*UV(345)\n  JUV(98) = JVS(733)*UV(98)+JVS(734)*UV(178)+JVS(735)*UV(337)+JVS(736)*UV(345)\n  JUV(99) = JVS(737)*UV(99)+JVS(738)*UV(321)+JVS(739)*UV(337)+JVS(740)*UV(345)\n  JUV(100) = JVS(741)*UV(100)+JVS(742)*UV(323)+JVS(743)*UV(337)+JVS(744)*UV(345)\n  JUV(101) = JVS(745)*UV(101)+JVS(746)*UV(345)\n  JUV(102) = JVS(747)*UV(102)+JVS(748)*UV(300)+JVS(749)*UV(337)+JVS(750)*UV(345)\n  JUV(103) = JVS(751)*UV(103)+JVS(752)*UV(168)+JVS(753)*UV(175)+JVS(754)*UV(186)+JVS(755)*UV(216)+JVS(756)*UV(222)&\n               &+JVS(757)*UV(248)+JVS(758)*UV(251)+JVS(759)*UV(266)+JVS(760)*UV(267)+JVS(761)*UV(268)+JVS(762)*UV(299)&\n               &+JVS(763)*UV(302)+JVS(764)*UV(303)\n  JUV(104) = JVS(765)*UV(104)+JVS(766)*UV(252)+JVS(767)*UV(284)+JVS(768)*UV(330)+JVS(769)*UV(332)+JVS(770)*UV(338)&\n               &+JVS(771)*UV(344)+JVS(772)*UV(353)\n  JUV(105) = JVS(773)*UV(105)+JVS(774)*UV(334)+JVS(775)*UV(345)\n  JUV(106) = JVS(776)*UV(106)+JVS(777)*UV(136)+JVS(778)*UV(234)+JVS(779)*UV(328)+JVS(780)*UV(346)+JVS(781)*UV(351)\n  JUV(107) = JVS(782)*UV(107)+JVS(783)*UV(159)+JVS(784)*UV(184)+JVS(785)*UV(345)\n  JUV(108) = JVS(786)*UV(108)+JVS(787)*UV(335)+JVS(788)*UV(337)+JVS(789)*UV(345)\n  JUV(109) = JVS(790)*UV(109)+JVS(791)*UV(233)+JVS(792)*UV(341)+JVS(793)*UV(345)\n  JUV(110) = JVS(794)*UV(76)+JVS(795)*UV(110)+JVS(796)*UV(328)+JVS(797)*UV(338)+JVS(798)*UV(340)+JVS(799)*UV(345)&\n               &+JVS(800)*UV(347)\n  JUV(111) = JVS(801)*UV(111)+JVS(802)*UV(277)+JVS(803)*UV(337)+JVS(804)*UV(345)\n  JUV(112) = JVS(805)*UV(112)+JVS(806)*UV(275)+JVS(807)*UV(337)+JVS(808)*UV(345)\n  JUV(113) = JVS(809)*UV(113)+JVS(810)*UV(246)+JVS(811)*UV(335)+JVS(812)*UV(345)\n  JUV(114) = JVS(813)*UV(114)+JVS(814)*UV(213)+JVS(815)*UV(335)+JVS(816)*UV(345)\n  JUV(115) = JVS(817)*UV(115)+JVS(818)*UV(194)+JVS(819)*UV(302)+JVS(820)*UV(314)+JVS(821)*UV(341)+JVS(822)*UV(345)\n  JUV(116) = JVS(823)*UV(116)+JVS(824)*UV(189)+JVS(825)*UV(345)+JVS(826)*UV(346)\n  JUV(117) = JVS(827)*UV(90)+JVS(828)*UV(117)+JVS(829)*UV(235)+JVS(830)*UV(236)+JVS(832)*UV(337)+JVS(833)*UV(345)\n  JUV(118) = JVS(834)*UV(118)+JVS(835)*UV(296)+JVS(836)*UV(315)+JVS(837)*UV(337)+JVS(838)*UV(345)\n  JUV(119) = JVS(839)*UV(119)+JVS(840)*UV(230)+JVS(841)*UV(231)+JVS(842)*UV(301)+JVS(843)*UV(345)\n  JUV(120) = JVS(844)*UV(120)+JVS(845)*UV(284)+JVS(846)*UV(338)+JVS(847)*UV(345)+JVS(848)*UV(347)\n  JUV(121) = JVS(849)*UV(58)+JVS(850)*UV(121)+JVS(852)*UV(337)+JVS(853)*UV(345)+JVS(854)*UV(346)\n  JUV(122) = JVS(855)*UV(122)+JVS(856)*UV(240)+JVS(857)*UV(335)+JVS(858)*UV(345)\n  JUV(123) = JVS(859)*UV(123)+JVS(860)*UV(260)+JVS(861)*UV(337)+JVS(862)*UV(345)\n  JUV(124) = JVS(863)*UV(124)+JVS(864)*UV(322)+JVS(865)*UV(335)+JVS(866)*UV(345)\n  JUV(125) = JVS(867)*UV(125)+JVS(868)*UV(250)+JVS(869)*UV(337)+JVS(870)*UV(345)\n  JUV(126) = JVS(871)*UV(126)+JVS(872)*UV(197)+JVS(873)*UV(335)+JVS(874)*UV(345)\n  JUV(127) = JVS(875)*UV(127)+JVS(876)*UV(212)+JVS(877)*UV(345)+JVS(878)*UV(346)\n  JUV(128) = JVS(879)*UV(128)+JVS(880)*UV(199)+JVS(881)*UV(209)+JVS(882)*UV(267)+JVS(883)*UV(268)+JVS(884)*UV(345)\n  JUV(129) = JVS(885)*UV(112)+JVS(886)*UV(129)+JVS(887)*UV(138)+JVS(888)*UV(191)+JVS(889)*UV(275)+JVS(890)*UV(324)&\n               &+JVS(891)*UV(328)+JVS(893)*UV(341)+JVS(894)*UV(345)+JVS(895)*UV(346)+JVS(896)*UV(351)\n  JUV(130) = JVS(897)*UV(130)+JVS(898)*UV(274)+JVS(899)*UV(328)+JVS(900)*UV(337)+JVS(901)*UV(345)\n  JUV(131) = JVS(902)*UV(131)+JVS(903)*UV(258)+JVS(904)*UV(286)+JVS(905)*UV(337)+JVS(906)*UV(345)+JVS(907)*UV(346)\n  JUV(132) = JVS(908)*UV(132)+JVS(909)*UV(233)+JVS(910)*UV(337)+JVS(911)*UV(345)+JVS(912)*UV(346)\n  JUV(133) = JVS(913)*UV(133)+JVS(914)*UV(230)+JVS(915)*UV(337)+JVS(916)*UV(345)+JVS(917)*UV(346)\n  JUV(134) = JVS(918)*UV(89)+JVS(919)*UV(134)+JVS(920)*UV(179)+JVS(921)*UV(241)+JVS(922)*UV(264)+JVS(923)*UV(312)&\n               &+JVS(924)*UV(316)+JVS(926)*UV(333)+JVS(927)*UV(341)+JVS(928)*UV(345)+JVS(929)*UV(348)\n  JUV(135) = JVS(930)*UV(135)+JVS(931)*UV(231)+JVS(932)*UV(337)+JVS(933)*UV(345)+JVS(934)*UV(346)\n  JUV(136) = JVS(935)*UV(136)+JVS(936)*UV(234)+JVS(937)*UV(328)+JVS(938)*UV(337)+JVS(939)*UV(345)\n  JUV(137) = JVS(940)*UV(137)+JVS(941)*UV(277)+JVS(942)*UV(345)+JVS(943)*UV(346)\n  JUV(138) = JVS(944)*UV(138)+JVS(945)*UV(275)+JVS(946)*UV(345)+JVS(947)*UV(346)\n  JUV(139) = JVS(948)*UV(139)+JVS(949)*UV(324)+JVS(950)*UV(335)+JVS(951)*UV(345)\n  JUV(140) = JVS(952)*UV(140)+JVS(953)*UV(341)+JVS(954)*UV(345)+JVS(955)*UV(351)\n  JUV(141) = JVS(956)*UV(141)+JVS(957)*UV(340)+JVS(958)*UV(342)+JVS(959)*UV(345)\n  JUV(142) = JVS(960)*UV(142)+JVS(961)*UV(340)+JVS(962)*UV(345)+JVS(963)*UV(351)\n  JUV(143) = JVS(964)*UV(143)+JVS(965)*UV(220)+JVS(966)*UV(341)+JVS(967)*UV(345)\n  JUV(144) = JVS(968)*UV(144)+JVS(969)*UV(199)+JVS(970)*UV(276)+JVS(971)*UV(304)+JVS(972)*UV(345)\n  JUV(145) = JVS(973)*UV(145)+JVS(974)*UV(186)+JVS(975)*UV(299)+JVS(976)*UV(310)+JVS(977)*UV(311)+JVS(978)*UV(324)&\n               &+JVS(979)*UV(328)+JVS(980)*UV(346)+JVS(981)*UV(351)\n  JUV(146) = JVS(982)*UV(121)+JVS(983)*UV(146)+JVS(985)*UV(337)+JVS(986)*UV(345)+JVS(987)*UV(346)\n  JUV(147) = JVS(988)*UV(147)+JVS(989)*UV(285)+JVS(990)*UV(286)+JVS(991)*UV(345)\n  JUV(148) = JVS(992)*UV(148)+JVS(993)*UV(218)+JVS(994)*UV(316)+JVS(995)*UV(342)+JVS(996)*UV(345)+JVS(997)*UV(347)&\n               &+JVS(998)*UV(349)+JVS(999)*UV(350)+JVS(1000)*UV(352)\n  JUV(149) = JVS(1001)*UV(149)+JVS(1002)*UV(345)+JVS(1003)*UV(351)\n  JUV(150) = JVS(1004)*UV(150)+JVS(1005)*UV(209)+JVS(1006)*UV(276)+JVS(1007)*UV(305)+JVS(1008)*UV(345)\n  JUV(151) = JVS(1009)*UV(151)+JVS(1010)*UV(168)+JVS(1011)*UV(175)+JVS(1012)*UV(187)+JVS(1013)*UV(192)+JVS(1014)*UV(345)\n  JUV(152) = JVS(1015)*UV(152)+JVS(1016)*UV(168)+JVS(1017)*UV(175)+JVS(1018)*UV(187)+JVS(1019)*UV(192)+JVS(1020)*UV(345)\n  JUV(153) = JVS(1021)*UV(153)+JVS(1022)*UV(258)+JVS(1023)*UV(285)+JVS(1024)*UV(337)+JVS(1025)*UV(345)+JVS(1026)*UV(346)\n  JUV(154) = JVS(1027)*UV(154)+JVS(1028)*UV(242)+JVS(1029)*UV(256)+JVS(1030)*UV(341)+JVS(1031)*UV(345)+JVS(1032)*UV(351)\n  JUV(155) = JVS(1033)*UV(155)+JVS(1034)*UV(240)+JVS(1035)*UV(246)+JVS(1036)*UV(322)+JVS(1037)*UV(337)+JVS(1038)*UV(345)\n  JUV(156) = JVS(1039)*UV(156)+JVS(1040)*UV(296)+JVS(1041)*UV(315)+JVS(1042)*UV(328)+JVS(1043)*UV(340)+JVS(1044)*UV(345)\n  JUV(157) = JVS(1045)*UV(157)+JVS(1046)*UV(218)+JVS(1047)*UV(297)+JVS(1048)*UV(316)+JVS(1049)*UV(317)+JVS(1050)*UV(333)&\n               &+JVS(1051)*UV(338)+JVS(1052)*UV(339)+JVS(1053)*UV(344)+JVS(1054)*UV(347)+JVS(1055)*UV(349)+JVS(1056)*UV(350)&\n               &+JVS(1057)*UV(352)+JVS(1058)*UV(353)\n  JUV(158) = JVS(1059)*UV(82)+JVS(1060)*UV(101)+JVS(1061)*UV(149)+JVS(1062)*UV(158)+JVS(1063)*UV(200)+JVS(1064)*UV(345)&\n               &+JVS(1065)*UV(351)\n  JUV(159) = JVS(1066)*UV(159)+JVS(1067)*UV(259)+JVS(1068)*UV(337)+JVS(1069)*UV(345)\n  JUV(160) = JVS(1070)*UV(160)+JVS(1071)*UV(278)+JVS(1072)*UV(328)+JVS(1073)*UV(337)+JVS(1074)*UV(345)\n  JUV(161) = JVS(1075)*UV(161)+JVS(1076)*UV(273)+JVS(1077)*UV(328)+JVS(1078)*UV(337)+JVS(1079)*UV(345)\n  JUV(162) = JVS(1080)*UV(138)+JVS(1081)*UV(162)+JVS(1082)*UV(273)+JVS(1084)*UV(345)+JVS(1085)*UV(346)\n  JUV(163) = JVS(1086)*UV(163)+JVS(1087)*UV(255)+JVS(1088)*UV(272)+JVS(1089)*UV(328)+JVS(1090)*UV(341)+JVS(1091)*UV(345)&\n               &+JVS(1092)*UV(346)+JVS(1093)*UV(351)\n  JUV(164) = JVS(1094)*UV(164)+JVS(1095)*UV(328)+JVS(1096)*UV(337)+JVS(1097)*UV(340)+JVS(1098)*UV(345)\n  JUV(165) = JVS(1099)*UV(165)+JVS(1100)*UV(196)+JVS(1101)*UV(337)+JVS(1102)*UV(345)+JVS(1103)*UV(346)\n  JUV(166) = JVS(1104)*UV(166)+JVS(1105)*UV(327)+JVS(1106)*UV(339)+JVS(1107)*UV(341)+JVS(1108)*UV(348)\n  JUV(167) = JVS(1109)*UV(167)+JVS(1110)*UV(341)+JVS(1111)*UV(345)+JVS(1112)*UV(351)\n  JUV(168) = JVS(1113)*UV(168)+JVS(1114)*UV(304)+JVS(1115)*UV(345)+JVS(1116)*UV(346)\n  JUV(169) = JVS(1117)*UV(169)+JVS(1118)*UV(272)+JVS(1119)*UV(274)+JVS(1120)*UV(328)+JVS(1121)*UV(337)+JVS(1122)*UV(345)\n  JUV(170) = JVS(1123)*UV(62)+JVS(1124)*UV(170)+JVS(1125)*UV(252)+JVS(1126)*UV(331)+JVS(1127)*UV(332)+JVS(1128)*UV(345)&\n               &+JVS(1130)*UV(351)\n  JUV(171) = JVS(1131)*UV(171)+JVS(1132)*UV(230)+JVS(1133)*UV(301)+JVS(1134)*UV(335)+JVS(1135)*UV(337)+JVS(1136)*UV(346)\n  JUV(172) = JVS(1137)*UV(172)+JVS(1138)*UV(231)+JVS(1139)*UV(301)+JVS(1140)*UV(335)+JVS(1141)*UV(337)+JVS(1142)*UV(346)\n  JUV(173) = JVS(1143)*UV(101)+JVS(1144)*UV(173)+JVS(1145)*UV(200)+JVS(1146)*UV(201)+JVS(1147)*UV(221)+JVS(1148)*UV(240)&\n               &+JVS(1149)*UV(246)+JVS(1150)*UV(289)+JVS(1151)*UV(322)+JVS(1152)*UV(324)+JVS(1153)*UV(337)+JVS(1154)*UV(345)\n  JUV(174) = JVS(1155)*UV(174)+JVS(1156)*UV(223)+JVS(1157)*UV(224)+JVS(1158)*UV(232)+JVS(1159)*UV(337)+JVS(1160)*UV(345)\n  JUV(175) = JVS(1161)*UV(175)+JVS(1162)*UV(305)+JVS(1163)*UV(345)+JVS(1164)*UV(346)\n  JUV(176) = JVS(1165)*UV(137)+JVS(1166)*UV(176)+JVS(1168)*UV(278)+JVS(1169)*UV(345)+JVS(1170)*UV(346)\n  JUV(177) = JVS(1171)*UV(177)+JVS(1172)*UV(211)+JVS(1173)*UV(237)+JVS(1174)*UV(255)+JVS(1175)*UV(272)+JVS(1176)*UV(341)&\n               &+JVS(1177)*UV(345)+JVS(1178)*UV(346)+JVS(1179)*UV(351)\n  JUV(178) = JVS(1180)*UV(69)+JVS(1181)*UV(98)+JVS(1182)*UV(178)+JVS(1183)*UV(337)+JVS(1184)*UV(345)+JVS(1185)*UV(346)&\n               &+JVS(1186)*UV(351)\n  JUV(179) = JVS(1187)*UV(179)+JVS(1188)*UV(327)+JVS(1189)*UV(339)+JVS(1190)*UV(341)+JVS(1191)*UV(348)\n  JUV(180) = JVS(1192)*UV(180)+JVS(1193)*UV(299)+JVS(1194)*UV(337)+JVS(1195)*UV(345)+JVS(1196)*UV(346)\n  JUV(181) = JVS(1197)*UV(181)+JVS(1198)*UV(334)+JVS(1199)*UV(340)+JVS(1200)*UV(345)\n  JUV(182) = JVS(1201)*UV(182)+JVS(1202)*UV(301)+JVS(1203)*UV(303)+JVS(1204)*UV(337)+JVS(1205)*UV(345)+JVS(1206)*UV(346)\n  JUV(183) = JVS(1207)*UV(183)+JVS(1208)*UV(340)+JVS(1209)*UV(342)+JVS(1210)*UV(345)+JVS(1211)*UV(351)\n  JUV(184) = JVS(1212)*UV(184)+JVS(1213)*UV(259)+JVS(1214)*UV(308)+JVS(1215)*UV(335)+JVS(1216)*UV(345)\n  JUV(185) = JVS(1217)*UV(119)+JVS(1218)*UV(147)+JVS(1219)*UV(185)+JVS(1220)*UV(230)+JVS(1221)*UV(231)+JVS(1224)*UV(301)&\n               &+JVS(1225)*UV(345)\n  JUV(186) = JVS(1226)*UV(186)+JVS(1227)*UV(311)+JVS(1228)*UV(337)+JVS(1229)*UV(345)\n  JUV(187) = JVS(1230)*UV(187)+JVS(1231)*UV(305)+JVS(1232)*UV(337)+JVS(1233)*UV(345)\n  JUV(188) = JVS(1234)*UV(188)+JVS(1235)*UV(249)+JVS(1236)*UV(250)+JVS(1237)*UV(260)+JVS(1238)*UV(289)+JVS(1239)*UV(300)&\n               &+JVS(1240)*UV(318)+JVS(1241)*UV(319)+JVS(1242)*UV(320)+JVS(1243)*UV(321)+JVS(1244)*UV(323)+JVS(1245)*UV(328)&\n               &+JVS(1246)*UV(345)\n  JUV(189) = JVS(1247)*UV(149)+JVS(1248)*UV(189)+JVS(1249)*UV(200)+JVS(1250)*UV(220)+JVS(1251)*UV(337)+JVS(1252)*UV(345)&\n               &+JVS(1253)*UV(346)\n  JUV(190) = JVS(1255)*UV(168)+JVS(1256)*UV(190)+JVS(1258)*UV(337)+JVS(1259)*UV(345)+JVS(1260)*UV(346)\n  JUV(191) = JVS(1261)*UV(191)+JVS(1262)*UV(341)+JVS(1263)*UV(345)+JVS(1264)*UV(351)\n  JUV(192) = JVS(1265)*UV(192)+JVS(1266)*UV(304)+JVS(1267)*UV(337)+JVS(1268)*UV(345)\n  JUV(193) = JVS(1269)*UV(193)+JVS(1270)*UV(291)+JVS(1271)*UV(341)+JVS(1272)*UV(345)+JVS(1273)*UV(346)+JVS(1274)*UV(351)\n  JUV(194) = JVS(1275)*UV(194)+JVS(1276)*UV(230)+JVS(1277)*UV(231)+JVS(1278)*UV(301)+JVS(1279)*UV(303)+JVS(1280)*UV(345)\n  JUV(195) = JVS(1281)*UV(143)+JVS(1282)*UV(195)+JVS(1285)*UV(345)+JVS(1286)*UV(351)\n  JUV(196) = JVS(1287)*UV(165)+JVS(1288)*UV(178)+JVS(1289)*UV(196)+JVS(1290)*UV(337)+JVS(1291)*UV(345)+JVS(1292)*UV(346)\n  JUV(197) = JVS(1294)*UV(126)+JVS(1295)*UV(197)+JVS(1296)*UV(233)+JVS(1297)*UV(335)+JVS(1298)*UV(337)+JVS(1299)*UV(345)&\n               &+JVS(1300)*UV(346)\n  JUV(198) = JVS(1301)*UV(174)+JVS(1302)*UV(198)+JVS(1303)*UV(223)+JVS(1304)*UV(224)+JVS(1305)*UV(232)+JVS(1307)*UV(345)\n  JUV(199) = JVS(1308)*UV(199)+JVS(1309)*UV(304)+JVS(1310)*UV(337)+JVS(1311)*UV(345)\n  JUV(200) = JVS(1312)*UV(200)+JVS(1313)*UV(345)+JVS(1314)*UV(351)\n  JUV(201) = JVS(1315)*UV(82)+JVS(1316)*UV(101)+JVS(1317)*UV(149)+JVS(1318)*UV(158)+JVS(1319)*UV(200)+JVS(1320)*UV(201)&\n               &+JVS(1321)*UV(341)+JVS(1322)*UV(345)+JVS(1323)*UV(351)\n  JUV(202) = JVS(1324)*UV(158)+JVS(1325)*UV(195)+JVS(1327)*UV(202)+JVS(1329)*UV(341)+JVS(1330)*UV(345)+JVS(1331)*UV(351)\n  JUV(203) = JVS(1332)*UV(117)+JVS(1333)*UV(158)+JVS(1334)*UV(195)+JVS(1336)*UV(202)+JVS(1337)*UV(203)+JVS(1340)*UV(236)&\n               &+JVS(1341)*UV(328)+JVS(1342)*UV(335)+JVS(1344)*UV(341)+JVS(1345)*UV(345)+JVS(1346)*UV(346)+JVS(1347)*UV(351)\n  JUV(204) = JVS(1348)*UV(82)+JVS(1349)*UV(101)+JVS(1350)*UV(116)+JVS(1351)*UV(149)+JVS(1352)*UV(189)+JVS(1353)*UV(200)&\n               &+JVS(1354)*UV(204)+JVS(1355)*UV(220)+JVS(1356)*UV(337)+JVS(1357)*UV(341)+JVS(1358)*UV(345)+JVS(1359)*UV(346)&\n               &+JVS(1360)*UV(351)\n  JUV(205) = JVS(1361)*UV(175)+JVS(1362)*UV(205)+JVS(1364)*UV(337)+JVS(1365)*UV(345)+JVS(1366)*UV(346)\n  JUV(206) = JVS(1367)*UV(206)+JVS(1368)*UV(268)+JVS(1369)*UV(337)+JVS(1370)*UV(345)+JVS(1371)*UV(346)\n  JUV(207) = JVS(1372)*UV(207)+JVS(1373)*UV(267)+JVS(1374)*UV(337)+JVS(1375)*UV(345)+JVS(1376)*UV(346)\n  JUV(208) = JVS(1377)*UV(131)+JVS(1378)*UV(147)+JVS(1379)*UV(208)+JVS(1380)*UV(243)+JVS(1381)*UV(254)+JVS(1385)*UV(288)&\n               &+JVS(1386)*UV(337)+JVS(1387)*UV(345)+JVS(1388)*UV(346)\n  JUV(209) = JVS(1389)*UV(209)+JVS(1390)*UV(305)+JVS(1391)*UV(337)+JVS(1392)*UV(345)\n  JUV(210) = JVS(1393)*UV(209)+JVS(1394)*UV(210)+JVS(1395)*UV(223)+JVS(1396)*UV(226)+JVS(1397)*UV(271)+JVS(1398)*UV(276)&\n               &+JVS(1399)*UV(303)+JVS(1400)*UV(305)+JVS(1401)*UV(337)+JVS(1402)*UV(345)+JVS(1403)*UV(346)\n  JUV(211) = JVS(1404)*UV(211)+JVS(1405)*UV(281)+JVS(1406)*UV(341)+JVS(1407)*UV(345)+JVS(1408)*UV(346)+JVS(1409)*UV(351)\n  JUV(212) = JVS(1410)*UV(140)+JVS(1411)*UV(212)+JVS(1412)*UV(337)+JVS(1414)*UV(345)+JVS(1415)*UV(346)\n  JUV(213) = JVS(1417)*UV(114)+JVS(1418)*UV(213)+JVS(1419)*UV(306)+JVS(1420)*UV(335)+JVS(1421)*UV(337)+JVS(1422)*UV(345)&\n               &+JVS(1423)*UV(346)+JVS(1424)*UV(351)\n  JUV(214) = JVS(1425)*UV(214)+JVS(1426)*UV(335)+JVS(1427)*UV(336)+JVS(1428)*UV(339)+JVS(1429)*UV(344)+JVS(1430)*UV(351)&\n               &+JVS(1431)*UV(353)\n  JUV(215) = JVS(1432)*UV(128)+JVS(1433)*UV(144)+JVS(1434)*UV(150)+JVS(1435)*UV(151)+JVS(1436)*UV(152)+JVS(1439)*UV(186)&\n               &+JVS(1444)*UV(215)+JVS(1445)*UV(230)+JVS(1446)*UV(231)+JVS(1450)*UV(301)+JVS(1455)*UV(345)\n  JUV(216) = JVS(1457)*UV(206)+JVS(1458)*UV(216)+JVS(1459)*UV(226)+JVS(1460)*UV(268)+JVS(1461)*UV(271)+JVS(1462)*UV(293)&\n               &+JVS(1463)*UV(301)+JVS(1464)*UV(308)+JVS(1465)*UV(328)+JVS(1466)*UV(337)+JVS(1467)*UV(345)+JVS(1468)*UV(346)\n  JUV(217) = JVS(1469)*UV(181)+JVS(1470)*UV(217)+JVS(1471)*UV(228)+JVS(1472)*UV(325)+JVS(1473)*UV(334)+JVS(1474)*UV(337)&\n               &+JVS(1475)*UV(339)+JVS(1476)*UV(340)+JVS(1477)*UV(341)+JVS(1478)*UV(343)+JVS(1479)*UV(345)+JVS(1480)*UV(352)\n  JUV(218) = JVS(1481)*UV(218)+JVS(1482)*UV(335)+JVS(1483)*UV(336)+JVS(1484)*UV(339)+JVS(1485)*UV(342)+JVS(1486)*UV(347)\n  JUV(219) = JVS(1487)*UV(219)+JVS(1488)*UV(341)+JVS(1489)*UV(345)+JVS(1490)*UV(351)\n  JUV(220) = JVS(1491)*UV(220)+JVS(1492)*UV(341)+JVS(1493)*UV(345)+JVS(1494)*UV(351)\n  JUV(221) = JVS(1495)*UV(82)+JVS(1496)*UV(101)+JVS(1497)*UV(143)+JVS(1498)*UV(149)+JVS(1499)*UV(195)+JVS(1500)*UV(200)&\n               &+JVS(1501)*UV(202)+JVS(1503)*UV(221)+JVS(1504)*UV(269)+JVS(1505)*UV(341)+JVS(1506)*UV(345)+JVS(1507)*UV(351)\n  JUV(222) = JVS(1508)*UV(222)+JVS(1509)*UV(310)+JVS(1510)*UV(311)+JVS(1511)*UV(328)+JVS(1512)*UV(337)+JVS(1513)*UV(345)\n  JUV(223) = JVS(1514)*UV(187)+JVS(1515)*UV(209)+JVS(1516)*UV(223)+JVS(1518)*UV(337)+JVS(1519)*UV(345)+JVS(1520)*UV(346)\n  JUV(224) = JVS(1521)*UV(192)+JVS(1522)*UV(199)+JVS(1523)*UV(224)+JVS(1525)*UV(337)+JVS(1526)*UV(345)+JVS(1527)*UV(346)\n  JUV(225) = JVS(1528)*UV(111)+JVS(1529)*UV(137)+JVS(1530)*UV(191)+JVS(1531)*UV(225)+JVS(1532)*UV(277)+JVS(1533)*UV(324)&\n               &+JVS(1534)*UV(328)+JVS(1536)*UV(341)+JVS(1537)*UV(345)+JVS(1538)*UV(346)+JVS(1539)*UV(351)\n  JUV(226) = JVS(1540)*UV(186)+JVS(1541)*UV(226)+JVS(1543)*UV(337)+JVS(1544)*UV(345)+JVS(1545)*UV(346)\n  JUV(227) = JVS(1546)*UV(131)+JVS(1547)*UV(147)+JVS(1548)*UV(153)+JVS(1549)*UV(194)+JVS(1550)*UV(227)+JVS(1553)*UV(258)&\n               &+JVS(1556)*UV(288)+JVS(1558)*UV(302)+JVS(1561)*UV(345)\n  JUV(228) = JVS(1563)*UV(228)+JVS(1564)*UV(290)+JVS(1565)*UV(326)+JVS(1566)*UV(334)+JVS(1567)*UV(340)+JVS(1568)*UV(341)&\n               &+JVS(1569)*UV(345)\n  JUV(229) = JVS(1570)*UV(229)+JVS(1571)*UV(291)+JVS(1572)*UV(337)+JVS(1573)*UV(341)+JVS(1574)*UV(345)+JVS(1575)*UV(351)\n  JUV(230) = JVS(1576)*UV(209)+JVS(1577)*UV(230)+JVS(1578)*UV(276)+JVS(1579)*UV(305)+JVS(1581)*UV(345)\n  JUV(231) = JVS(1582)*UV(199)+JVS(1583)*UV(231)+JVS(1584)*UV(276)+JVS(1585)*UV(304)+JVS(1587)*UV(345)\n  JUV(232) = JVS(1588)*UV(187)+JVS(1589)*UV(192)+JVS(1590)*UV(232)+JVS(1593)*UV(337)+JVS(1594)*UV(345)+JVS(1595)*UV(346)\n  JUV(233) = JVS(1596)*UV(140)+JVS(1597)*UV(212)+JVS(1598)*UV(233)+JVS(1600)*UV(341)+JVS(1601)*UV(345)+JVS(1602)*UV(346)&\n               &+JVS(1603)*UV(351)\n  JUV(234) = JVS(1604)*UV(109)+JVS(1605)*UV(136)+JVS(1607)*UV(234)+JVS(1608)*UV(246)+JVS(1609)*UV(328)+JVS(1610)*UV(337)&\n               &+JVS(1612)*UV(345)+JVS(1613)*UV(346)+JVS(1614)*UV(351)\n  JUV(235) = JVS(1615)*UV(71)+JVS(1616)*UV(90)+JVS(1617)*UV(204)+JVS(1619)*UV(235)+JVS(1620)*UV(328)+JVS(1621)*UV(335)&\n               &+JVS(1622)*UV(337)+JVS(1624)*UV(345)+JVS(1625)*UV(346)+JVS(1626)*UV(351)\n  JUV(236) = JVS(1627)*UV(71)+JVS(1628)*UV(117)+JVS(1629)*UV(203)+JVS(1630)*UV(204)+JVS(1631)*UV(220)+JVS(1632)*UV(235)&\n               &+JVS(1633)*UV(236)+JVS(1634)*UV(328)+JVS(1635)*UV(335)+JVS(1636)*UV(337)+JVS(1637)*UV(341)+JVS(1638)*UV(345)&\n               &+JVS(1639)*UV(346)+JVS(1640)*UV(351)\n  JUV(237) = JVS(1641)*UV(237)+JVS(1642)*UV(281)+JVS(1643)*UV(324)+JVS(1644)*UV(328)+JVS(1645)*UV(337)+JVS(1646)*UV(341)&\n               &+JVS(1647)*UV(345)+JVS(1648)*UV(346)+JVS(1649)*UV(351)\n  JUV(238) = JVS(1650)*UV(199)+JVS(1651)*UV(209)+JVS(1652)*UV(238)+JVS(1653)*UV(267)+JVS(1654)*UV(268)+JVS(1655)*UV(304)&\n               &+JVS(1656)*UV(305)+JVS(1657)*UV(328)+JVS(1659)*UV(345)+JVS(1660)*UV(346)\n  JUV(239) = JVS(1661)*UV(64)+JVS(1662)*UV(65)+JVS(1665)*UV(239)+JVS(1666)*UV(252)+JVS(1667)*UV(269)+JVS(1668)*UV(297)&\n               &+JVS(1670)*UV(335)+JVS(1671)*UV(339)+JVS(1673)*UV(344)+JVS(1674)*UV(345)+JVS(1675)*UV(346)+JVS(1677)*UV(349)&\n               &+JVS(1678)*UV(350)+JVS(1680)*UV(352)+JVS(1681)*UV(353)\n  JUV(240) = JVS(1682)*UV(122)+JVS(1683)*UV(146)+JVS(1685)*UV(240)+JVS(1686)*UV(335)+JVS(1687)*UV(337)+JVS(1688)*UV(345)&\n               &+JVS(1689)*UV(346)\n  JUV(241) = JVS(1691)*UV(241)+JVS(1692)*UV(290)+JVS(1693)*UV(329)+JVS(1694)*UV(335)+JVS(1695)*UV(336)+JVS(1696)*UV(341)&\n               &+JVS(1697)*UV(346)+JVS(1698)*UV(348)\n  JUV(242) = JVS(1699)*UV(193)+JVS(1700)*UV(242)+JVS(1701)*UV(280)+JVS(1702)*UV(289)+JVS(1704)*UV(324)+JVS(1705)*UV(328)&\n               &+JVS(1706)*UV(337)+JVS(1707)*UV(341)+JVS(1708)*UV(345)+JVS(1710)*UV(351)\n  JUV(243) = JVS(1711)*UV(128)+JVS(1712)*UV(192)+JVS(1715)*UV(243)+JVS(1720)*UV(337)+JVS(1721)*UV(345)+JVS(1722)*UV(346)\n  JUV(244) = JVS(1723)*UV(199)+JVS(1724)*UV(224)+JVS(1725)*UV(226)+JVS(1726)*UV(244)+JVS(1727)*UV(271)+JVS(1728)*UV(276)&\n               &+JVS(1729)*UV(287)+JVS(1730)*UV(303)+JVS(1731)*UV(304)+JVS(1732)*UV(309)+JVS(1734)*UV(313)+JVS(1735)*UV(320)&\n               &+JVS(1736)*UV(337)+JVS(1737)*UV(345)+JVS(1738)*UV(346)\n  JUV(245) = JVS(1739)*UV(110)+JVS(1740)*UV(245)+JVS(1741)*UV(297)+JVS(1742)*UV(317)+JVS(1744)*UV(333)+JVS(1745)*UV(334)&\n               &+JVS(1746)*UV(338)+JVS(1747)*UV(339)+JVS(1748)*UV(340)+JVS(1749)*UV(344)+JVS(1750)*UV(345)+JVS(1752)*UV(353)\n  JUV(246) = JVS(1753)*UV(113)+JVS(1754)*UV(246)+JVS(1755)*UV(320)+JVS(1756)*UV(335)+JVS(1757)*UV(337)+JVS(1759)*UV(346)\n  JUV(247) = JVS(1760)*UV(125)+JVS(1761)*UV(180)+JVS(1762)*UV(182)+JVS(1763)*UV(206)+JVS(1764)*UV(216)+JVS(1765)*UV(226)&\n               &+JVS(1766)*UV(247)+JVS(1769)*UV(271)+JVS(1770)*UV(293)+JVS(1775)*UV(309)+JVS(1778)*UV(337)+JVS(1779)*UV(345)&\n               &+JVS(1780)*UV(346)+JVS(1781)*UV(351)\n  JUV(248) = JVS(1782)*UV(172)+JVS(1783)*UV(205)+JVS(1785)*UV(248)+JVS(1786)*UV(253)+JVS(1789)*UV(303)+JVS(1792)*UV(308)&\n               &+JVS(1793)*UV(335)+JVS(1794)*UV(337)+JVS(1795)*UV(345)+JVS(1796)*UV(346)\n  JUV(249) = JVS(1797)*UV(249)+JVS(1798)*UV(279)+JVS(1799)*UV(324)+JVS(1800)*UV(328)+JVS(1801)*UV(337)+JVS(1802)*UV(345)&\n               &+JVS(1803)*UV(346)\n  JUV(250) = JVS(1804)*UV(125)+JVS(1805)*UV(250)+JVS(1806)*UV(290)+JVS(1807)*UV(324)+JVS(1808)*UV(328)+JVS(1809)*UV(337)&\n               &+JVS(1810)*UV(345)+JVS(1811)*UV(346)+JVS(1812)*UV(351)\n  JUV(251) = JVS(1813)*UV(251)+JVS(1814)*UV(318)+JVS(1815)*UV(319)+JVS(1816)*UV(320)+JVS(1817)*UV(337)+JVS(1818)*UV(345)&\n               &+JVS(1819)*UV(346)\n  JUV(252) = JVS(1820)*UV(252)+JVS(1821)*UV(331)+JVS(1822)*UV(335)+JVS(1823)*UV(344)+JVS(1824)*UV(349)+JVS(1825)*UV(350)&\n               &+JVS(1826)*UV(353)\n  JUV(253) = JVS(1827)*UV(172)+JVS(1829)*UV(253)+JVS(1833)*UV(309)+JVS(1835)*UV(337)+JVS(1836)*UV(345)+JVS(1837)*UV(346)\n  JUV(254) = JVS(1838)*UV(171)+JVS(1840)*UV(254)+JVS(1844)*UV(314)+JVS(1846)*UV(337)+JVS(1847)*UV(345)+JVS(1848)*UV(346)\n  JUV(255) = JVS(1849)*UV(167)+JVS(1850)*UV(255)+JVS(1851)*UV(281)+JVS(1852)*UV(324)+JVS(1853)*UV(328)+JVS(1854)*UV(337)&\n               &+JVS(1855)*UV(341)+JVS(1856)*UV(345)+JVS(1857)*UV(346)+JVS(1858)*UV(351)\n  JUV(256) = JVS(1859)*UV(162)+JVS(1860)*UV(176)+JVS(1861)*UV(177)+JVS(1865)*UV(256)+JVS(1871)*UV(280)+JVS(1873)*UV(289)&\n               &+JVS(1874)*UV(324)+JVS(1875)*UV(328)+JVS(1876)*UV(337)+JVS(1878)*UV(345)+JVS(1879)*UV(346)+JVS(1880)*UV(351)\n  JUV(257) = JVS(1881)*UV(56)+JVS(1882)*UV(74)+JVS(1883)*UV(111)+JVS(1884)*UV(225)+JVS(1885)*UV(257)+JVS(1887)*UV(324)&\n               &+JVS(1888)*UV(328)+JVS(1889)*UV(335)+JVS(1890)*UV(337)+JVS(1892)*UV(345)+JVS(1893)*UV(346)+JVS(1894)*UV(351)\n  JUV(258) = JVS(1895)*UV(174)+JVS(1896)*UV(223)+JVS(1897)*UV(224)+JVS(1899)*UV(243)+JVS(1900)*UV(258)+JVS(1903)*UV(285)&\n               &+JVS(1904)*UV(286)+JVS(1907)*UV(337)+JVS(1908)*UV(345)\n  JUV(259) = JVS(1910)*UV(159)+JVS(1911)*UV(184)+JVS(1912)*UV(259)+JVS(1914)*UV(309)+JVS(1915)*UV(335)+JVS(1916)*UV(337)&\n               &+JVS(1917)*UV(345)+JVS(1918)*UV(346)+JVS(1919)*UV(351)\n  JUV(260) = JVS(1920)*UV(123)+JVS(1921)*UV(260)+JVS(1922)*UV(290)+JVS(1923)*UV(324)+JVS(1924)*UV(328)+JVS(1925)*UV(337)&\n               &+JVS(1926)*UV(340)+JVS(1927)*UV(342)+JVS(1928)*UV(345)+JVS(1929)*UV(346)\n  JUV(261) = JVS(1930)*UV(180)+JVS(1931)*UV(182)+JVS(1932)*UV(207)+JVS(1933)*UV(226)+JVS(1934)*UV(261)+JVS(1936)*UV(271)&\n               &+JVS(1937)*UV(293)+JVS(1940)*UV(302)+JVS(1941)*UV(303)+JVS(1943)*UV(337)+JVS(1944)*UV(345)+JVS(1945)*UV(346)&\n               &+JVS(1946)*UV(351)\n  JUV(262) = JVS(1947)*UV(193)+JVS(1948)*UV(219)+JVS(1949)*UV(229)+JVS(1950)*UV(262)+JVS(1951)*UV(291)+JVS(1952)*UV(324)&\n               &+JVS(1953)*UV(328)+JVS(1955)*UV(341)+JVS(1956)*UV(345)+JVS(1957)*UV(346)+JVS(1958)*UV(351)\n  JUV(263) = JVS(1959)*UV(82)+JVS(1960)*UV(101)+JVS(1961)*UV(137)+JVS(1962)*UV(138)+JVS(1963)*UV(143)+JVS(1964)*UV(149)&\n               &+JVS(1965)*UV(158)+JVS(1966)*UV(160)+JVS(1967)*UV(167)+JVS(1968)*UV(176)+JVS(1969)*UV(193)+JVS(1970)*UV(195)&\n               &+JVS(1971)*UV(200)+JVS(1972)*UV(202)+JVS(1973)*UV(211)+JVS(1974)*UV(219)+JVS(1975)*UV(220)+JVS(1976)*UV(229)&\n               &+JVS(1977)*UV(237)+JVS(1978)*UV(255)+JVS(1979)*UV(262)+JVS(1980)*UV(263)+JVS(1983)*UV(278)+JVS(1986)*UV(324)&\n               &+JVS(1987)*UV(328)+JVS(1988)*UV(337)+JVS(1989)*UV(341)+JVS(1990)*UV(345)+JVS(1991)*UV(346)+JVS(1992)*UV(351)\n  JUV(264) = JVS(1993)*UV(241)+JVS(1994)*UV(264)+JVS(1995)*UV(276)+JVS(1997)*UV(312)+JVS(1998)*UV(314)+JVS(2001)*UV(336)&\n               &+JVS(2002)*UV(337)+JVS(2003)*UV(340)+JVS(2004)*UV(341)+JVS(2005)*UV(343)+JVS(2006)*UV(345)+JVS(2008)*UV(348)\n  JUV(265) = JVS(2009)*UV(60)+JVS(2010)*UV(88)+JVS(2011)*UV(107)+JVS(2014)*UV(194)+JVS(2015)*UV(201)+JVS(2016)*UV(221)&\n               &+JVS(2020)*UV(265)+JVS(2024)*UV(302)+JVS(2028)*UV(306)+JVS(2029)*UV(307)+JVS(2032)*UV(312)+JVS(2034)*UV(336)&\n               &+JVS(2036)*UV(340)+JVS(2037)*UV(341)+JVS(2038)*UV(345)\n  JUV(266) = JVS(2041)*UV(190)+JVS(2042)*UV(205)+JVS(2043)*UV(206)+JVS(2044)*UV(207)+JVS(2045)*UV(226)+JVS(2046)*UV(243)&\n               &+JVS(2047)*UV(266)+JVS(2050)*UV(271)+JVS(2051)*UV(285)+JVS(2052)*UV(286)+JVS(2053)*UV(303)+JVS(2058)*UV(345)&\n               &+JVS(2059)*UV(346)\n  JUV(267) = JVS(2060)*UV(267)+JVS(2061)*UV(305)+JVS(2062)*UV(311)+JVS(2063)*UV(328)+JVS(2064)*UV(345)+JVS(2065)*UV(346)\n  JUV(268) = JVS(2066)*UV(268)+JVS(2067)*UV(304)+JVS(2068)*UV(310)+JVS(2069)*UV(311)+JVS(2070)*UV(328)+JVS(2071)*UV(345)&\n               &+JVS(2072)*UV(346)\n  JUV(269) = JVS(2073)*UV(158)+JVS(2074)*UV(195)+JVS(2076)*UV(202)+JVS(2077)*UV(203)+JVS(2081)*UV(269)+JVS(2083)*UV(335)&\n               &+JVS(2086)*UV(345)+JVS(2088)*UV(351)\n  JUV(270) = JVS(2089)*UV(60)+JVS(2090)*UV(82)+JVS(2091)*UV(101)+JVS(2092)*UV(143)+JVS(2093)*UV(185)+JVS(2094)*UV(194)&\n               &+JVS(2095)*UV(195)+JVS(2096)*UV(198)+JVS(2097)*UV(200)+JVS(2098)*UV(210)+JVS(2100)*UV(221)+JVS(2104)*UV(227)&\n               &+JVS(2108)*UV(233)+JVS(2109)*UV(258)+JVS(2113)*UV(270)+JVS(2116)*UV(285)+JVS(2124)*UV(306)+JVS(2129)*UV(337)&\n               &+JVS(2130)*UV(341)+JVS(2131)*UV(345)+JVS(2132)*UV(346)+JVS(2133)*UV(351)\n  JUV(271) = JVS(2134)*UV(222)+JVS(2135)*UV(271)+JVS(2139)*UV(337)+JVS(2140)*UV(345)+JVS(2141)*UV(346)\n  JUV(272) = JVS(2142)*UV(211)+JVS(2143)*UV(237)+JVS(2144)*UV(272)+JVS(2147)*UV(328)+JVS(2148)*UV(337)+JVS(2149)*UV(341)&\n               &+JVS(2150)*UV(345)+JVS(2151)*UV(346)+JVS(2152)*UV(351)\n  JUV(273) = JVS(2153)*UV(129)+JVS(2155)*UV(161)+JVS(2156)*UV(191)+JVS(2157)*UV(273)+JVS(2160)*UV(328)+JVS(2161)*UV(337)&\n               &+JVS(2162)*UV(341)+JVS(2163)*UV(345)+JVS(2164)*UV(346)+JVS(2165)*UV(351)\n  JUV(274) = JVS(2166)*UV(57)+JVS(2167)*UV(161)+JVS(2168)*UV(162)+JVS(2169)*UV(163)+JVS(2170)*UV(167)+JVS(2171)*UV(169)&\n               &+JVS(2172)*UV(177)+JVS(2173)*UV(211)+JVS(2174)*UV(237)+JVS(2175)*UV(255)+JVS(2177)*UV(273)+JVS(2178)*UV(274)&\n               &+JVS(2181)*UV(324)+JVS(2182)*UV(328)+JVS(2183)*UV(335)+JVS(2184)*UV(337)+JVS(2185)*UV(341)+JVS(2186)*UV(345)&\n               &+JVS(2187)*UV(346)+JVS(2188)*UV(351)\n  JUV(275) = JVS(2189)*UV(112)+JVS(2190)*UV(191)+JVS(2191)*UV(219)+JVS(2192)*UV(275)+JVS(2193)*UV(324)+JVS(2194)*UV(328)&\n               &+JVS(2195)*UV(337)+JVS(2197)*UV(345)+JVS(2198)*UV(346)+JVS(2199)*UV(351)\n  JUV(276) = JVS(2200)*UV(276)+JVS(2201)*UV(340)+JVS(2202)*UV(341)+JVS(2203)*UV(345)+JVS(2204)*UV(351)\n  JUV(277) = JVS(2205)*UV(111)+JVS(2206)*UV(191)+JVS(2207)*UV(219)+JVS(2208)*UV(277)+JVS(2209)*UV(324)+JVS(2210)*UV(328)&\n               &+JVS(2211)*UV(337)+JVS(2212)*UV(341)+JVS(2213)*UV(345)+JVS(2214)*UV(346)+JVS(2215)*UV(351)\n  JUV(278) = JVS(2216)*UV(66)+JVS(2217)*UV(74)+JVS(2218)*UV(160)+JVS(2219)*UV(225)+JVS(2220)*UV(257)+JVS(2222)*UV(278)&\n               &+JVS(2223)*UV(324)+JVS(2224)*UV(328)+JVS(2226)*UV(337)+JVS(2228)*UV(345)+JVS(2229)*UV(346)+JVS(2230)*UV(351)\n  JUV(279) = JVS(2231)*UV(249)+JVS(2232)*UV(279)+JVS(2233)*UV(300)+JVS(2234)*UV(320)+JVS(2237)*UV(337)+JVS(2238)*UV(345)&\n               &+JVS(2239)*UV(346)\n  JUV(280) = JVS(2240)*UV(167)+JVS(2241)*UV(191)+JVS(2242)*UV(193)+JVS(2243)*UV(219)+JVS(2244)*UV(229)+JVS(2245)*UV(262)&\n               &+JVS(2246)*UV(280)+JVS(2247)*UV(289)+JVS(2249)*UV(324)+JVS(2250)*UV(328)+JVS(2251)*UV(337)+JVS(2254)*UV(346)&\n               &+JVS(2255)*UV(351)\n  JUV(281) = JVS(2256)*UV(167)+JVS(2257)*UV(191)+JVS(2258)*UV(219)+JVS(2259)*UV(281)+JVS(2260)*UV(324)+JVS(2261)*UV(328)&\n               &+JVS(2262)*UV(337)+JVS(2264)*UV(345)+JVS(2265)*UV(346)+JVS(2266)*UV(351)\n  JUV(282) = JVS(2267)*UV(234)+JVS(2269)*UV(249)+JVS(2270)*UV(250)+JVS(2271)*UV(260)+JVS(2272)*UV(272)+JVS(2273)*UV(273)&\n               &+JVS(2274)*UV(275)+JVS(2275)*UV(277)+JVS(2276)*UV(278)+JVS(2278)*UV(281)+JVS(2279)*UV(282)+JVS(2280)*UV(289)&\n               &+JVS(2282)*UV(291)+JVS(2283)*UV(296)+JVS(2284)*UV(300)+JVS(2285)*UV(306)+JVS(2286)*UV(310)+JVS(2287)*UV(311)&\n               &+JVS(2288)*UV(313)+JVS(2289)*UV(315)+JVS(2290)*UV(318)+JVS(2291)*UV(319)+JVS(2292)*UV(320)+JVS(2293)*UV(321)&\n               &+JVS(2294)*UV(323)+JVS(2296)*UV(328)+JVS(2299)*UV(340)+JVS(2302)*UV(345)\n  JUV(283) = JVS(2305)*UV(201)+JVS(2306)*UV(241)+JVS(2307)*UV(249)+JVS(2308)*UV(250)+JVS(2309)*UV(260)+JVS(2310)*UV(275)&\n               &+JVS(2311)*UV(277)+JVS(2313)*UV(281)+JVS(2314)*UV(283)+JVS(2316)*UV(291)+JVS(2317)*UV(296)+JVS(2318)*UV(300)&\n               &+JVS(2319)*UV(307)+JVS(2320)*UV(313)+JVS(2321)*UV(315)+JVS(2322)*UV(318)+JVS(2323)*UV(319)+JVS(2324)*UV(320)&\n               &+JVS(2325)*UV(321)+JVS(2326)*UV(323)+JVS(2327)*UV(324)+JVS(2328)*UV(328)+JVS(2331)*UV(336)+JVS(2332)*UV(337)&\n               &+JVS(2333)*UV(340)+JVS(2334)*UV(341)+JVS(2336)*UV(345)\n  JUV(284) = JVS(2340)*UV(44)+JVS(2341)*UV(55)+JVS(2342)*UV(96)+JVS(2343)*UV(284)+JVS(2344)*UV(330)+JVS(2345)*UV(331)&\n               &+JVS(2346)*UV(332)+JVS(2347)*UV(335)+JVS(2348)*UV(337)+JVS(2349)*UV(338)+JVS(2350)*UV(341)+JVS(2351)*UV(345)&\n               &+JVS(2352)*UV(346)+JVS(2353)*UV(347)\n  JUV(285) = JVS(2354)*UV(147)+JVS(2355)*UV(151)+JVS(2356)*UV(152)+JVS(2361)*UV(238)+JVS(2364)*UV(285)+JVS(2371)*UV(337)&\n               &+JVS(2372)*UV(345)+JVS(2373)*UV(346)\n  JUV(286) = JVS(2374)*UV(147)+JVS(2375)*UV(151)+JVS(2376)*UV(152)+JVS(2381)*UV(238)+JVS(2385)*UV(286)+JVS(2391)*UV(337)&\n               &+JVS(2392)*UV(345)+JVS(2393)*UV(346)\n  JUV(287) = JVS(2394)*UV(144)+JVS(2395)*UV(192)+JVS(2396)*UV(198)+JVS(2398)*UV(223)+JVS(2400)*UV(231)+JVS(2402)*UV(238)&\n               &+JVS(2403)*UV(253)+JVS(2404)*UV(258)+JVS(2405)*UV(266)+JVS(2406)*UV(267)+JVS(2408)*UV(271)+JVS(2412)*UV(287)&\n               &+JVS(2414)*UV(303)+JVS(2415)*UV(304)+JVS(2416)*UV(305)+JVS(2420)*UV(328)+JVS(2422)*UV(337)+JVS(2425)*UV(345)&\n               &+JVS(2426)*UV(346)\n  JUV(288) = JVS(2428)*UV(150)+JVS(2429)*UV(187)+JVS(2430)*UV(198)+JVS(2433)*UV(224)+JVS(2434)*UV(230)+JVS(2436)*UV(238)&\n               &+JVS(2437)*UV(254)+JVS(2438)*UV(266)+JVS(2440)*UV(268)+JVS(2441)*UV(271)+JVS(2445)*UV(288)+JVS(2448)*UV(304)&\n               &+JVS(2449)*UV(305)+JVS(2453)*UV(328)+JVS(2455)*UV(337)+JVS(2458)*UV(345)+JVS(2459)*UV(346)\n  JUV(289) = JVS(2461)*UV(167)+JVS(2462)*UV(191)+JVS(2463)*UV(219)+JVS(2464)*UV(280)+JVS(2465)*UV(289)+JVS(2467)*UV(324)&\n               &+JVS(2468)*UV(328)+JVS(2469)*UV(337)+JVS(2472)*UV(346)+JVS(2473)*UV(351)\n  JUV(290) = JVS(2474)*UV(290)+JVS(2475)*UV(314)+JVS(2476)*UV(340)+JVS(2477)*UV(341)+JVS(2478)*UV(342)+JVS(2479)*UV(345)&\n               &+JVS(2480)*UV(351)\n  JUV(291) = JVS(2481)*UV(219)+JVS(2482)*UV(291)+JVS(2483)*UV(324)+JVS(2484)*UV(328)+JVS(2485)*UV(337)+JVS(2487)*UV(345)&\n               &+JVS(2488)*UV(346)+JVS(2489)*UV(351)\n  JUV(292) = JVS(2490)*UV(160)+JVS(2491)*UV(176)+JVS(2492)*UV(178)+JVS(2493)*UV(219)+JVS(2494)*UV(251)+JVS(2495)*UV(256)&\n               &+JVS(2496)*UV(262)+JVS(2501)*UV(278)+JVS(2502)*UV(279)+JVS(2503)*UV(280)+JVS(2505)*UV(289)+JVS(2507)*UV(292)&\n               &+JVS(2508)*UV(300)+JVS(2510)*UV(319)+JVS(2511)*UV(320)+JVS(2512)*UV(324)+JVS(2513)*UV(328)+JVS(2516)*UV(341)&\n               &+JVS(2517)*UV(345)+JVS(2518)*UV(346)+JVS(2519)*UV(351)\n  JUV(293) = JVS(2520)*UV(145)+JVS(2522)*UV(222)+JVS(2523)*UV(293)+JVS(2525)*UV(303)+JVS(2530)*UV(337)+JVS(2531)*UV(345)&\n               &+JVS(2532)*UV(346)\n  JUV(294) = JVS(2534)*UV(82)+JVS(2535)*UV(101)+JVS(2536)*UV(107)+JVS(2539)*UV(185)+JVS(2540)*UV(194)+JVS(2541)*UV(198)&\n               &+JVS(2542)*UV(199)+JVS(2543)*UV(200)+JVS(2544)*UV(201)+JVS(2545)*UV(209)+JVS(2546)*UV(215)+JVS(2549)*UV(227)&\n               &+JVS(2550)*UV(230)+JVS(2551)*UV(231)+JVS(2553)*UV(238)+JVS(2554)*UV(244)+JVS(2555)*UV(247)+JVS(2557)*UV(253)&\n               &+JVS(2558)*UV(254)+JVS(2559)*UV(258)+JVS(2561)*UV(266)+JVS(2565)*UV(276)+JVS(2567)*UV(286)+JVS(2568)*UV(287)&\n               &+JVS(2569)*UV(288)+JVS(2572)*UV(294)+JVS(2575)*UV(302)+JVS(2577)*UV(304)+JVS(2578)*UV(305)+JVS(2579)*UV(307)&\n               &+JVS(2581)*UV(309)+JVS(2584)*UV(313)+JVS(2585)*UV(314)+JVS(2587)*UV(324)+JVS(2588)*UV(328)+JVS(2590)*UV(337)&\n               &+JVS(2592)*UV(341)+JVS(2594)*UV(345)+JVS(2595)*UV(346)+JVS(2596)*UV(351)\n  JUV(295) = JVS(2597)*UV(91)+JVS(2598)*UV(100)+JVS(2599)*UV(160)+JVS(2600)*UV(161)+JVS(2601)*UV(162)+JVS(2602)*UV(176)&\n               &+JVS(2603)*UV(219)+JVS(2604)*UV(229)+JVS(2605)*UV(251)+JVS(2606)*UV(262)+JVS(2607)*UV(273)+JVS(2610)*UV(278)&\n               &+JVS(2611)*UV(279)+JVS(2612)*UV(291)+JVS(2613)*UV(295)+JVS(2614)*UV(300)+JVS(2616)*UV(319)+JVS(2618)*UV(323)&\n               &+JVS(2619)*UV(324)+JVS(2620)*UV(328)+JVS(2623)*UV(340)+JVS(2624)*UV(341)+JVS(2625)*UV(342)+JVS(2626)*UV(345)&\n               &+JVS(2627)*UV(346)+JVS(2628)*UV(351)\n  JUV(296) = JVS(2629)*UV(173)+JVS(2630)*UV(183)+JVS(2639)*UV(296)+JVS(2642)*UV(324)+JVS(2643)*UV(328)+JVS(2645)*UV(337)&\n               &+JVS(2646)*UV(340)+JVS(2648)*UV(342)+JVS(2649)*UV(345)+JVS(2650)*UV(346)+JVS(2651)*UV(351)\n  JUV(297) = JVS(2652)*UV(214)+JVS(2653)*UV(297)+JVS(2656)*UV(339)+JVS(2657)*UV(344)+JVS(2658)*UV(345)+JVS(2659)*UV(349)&\n               &+JVS(2660)*UV(350)+JVS(2662)*UV(352)+JVS(2663)*UV(353)\n  JUV(298) = JVS(2664)*UV(95)+JVS(2665)*UV(97)+JVS(2666)*UV(98)+JVS(2667)*UV(99)+JVS(2668)*UV(102)+JVS(2669)*UV(125)&\n               &+JVS(2670)*UV(130)+JVS(2671)*UV(161)+JVS(2672)*UV(162)+JVS(2673)*UV(165)+JVS(2674)*UV(169)+JVS(2675)*UV(178)&\n               &+JVS(2676)*UV(188)+JVS(2677)*UV(196)+JVS(2678)*UV(201)+JVS(2679)*UV(212)+JVS(2680)*UV(219)+JVS(2681)*UV(221)&\n               &+JVS(2682)*UV(229)+JVS(2683)*UV(242)+JVS(2684)*UV(249)+JVS(2685)*UV(250)+JVS(2686)*UV(251)+JVS(2687)*UV(260)&\n               &+JVS(2690)*UV(273)+JVS(2691)*UV(274)+JVS(2693)*UV(279)+JVS(2694)*UV(280)+JVS(2696)*UV(289)+JVS(2699)*UV(298)&\n               &+JVS(2700)*UV(300)+JVS(2702)*UV(318)+JVS(2703)*UV(319)+JVS(2705)*UV(321)+JVS(2707)*UV(324)+JVS(2708)*UV(328)&\n               &+JVS(2710)*UV(337)+JVS(2712)*UV(341)+JVS(2714)*UV(345)+JVS(2715)*UV(346)+JVS(2716)*UV(351)\n  JUV(299) = JVS(2717)*UV(180)+JVS(2718)*UV(190)+JVS(2719)*UV(205)+JVS(2720)*UV(206)+JVS(2721)*UV(207)+JVS(2722)*UV(226)&\n               &+JVS(2725)*UV(271)+JVS(2726)*UV(293)+JVS(2727)*UV(299)+JVS(2731)*UV(310)+JVS(2732)*UV(311)+JVS(2735)*UV(337)&\n               &+JVS(2736)*UV(345)+JVS(2737)*UV(346)\n  JUV(300) = JVS(2739)*UV(102)+JVS(2740)*UV(142)+JVS(2741)*UV(201)+JVS(2742)*UV(300)+JVS(2743)*UV(324)+JVS(2744)*UV(328)&\n               &+JVS(2745)*UV(337)+JVS(2746)*UV(340)+JVS(2748)*UV(345)+JVS(2749)*UV(346)+JVS(2750)*UV(351)\n  JUV(301) = JVS(2751)*UV(145)+JVS(2752)*UV(186)+JVS(2753)*UV(267)+JVS(2754)*UV(268)+JVS(2755)*UV(299)+JVS(2756)*UV(301)&\n               &+JVS(2760)*UV(310)+JVS(2761)*UV(311)+JVS(2762)*UV(324)+JVS(2763)*UV(328)+JVS(2765)*UV(345)+JVS(2766)*UV(346)&\n               &+JVS(2767)*UV(351)\n  JUV(302) = JVS(2768)*UV(171)+JVS(2769)*UV(190)+JVS(2770)*UV(207)+JVS(2771)*UV(226)+JVS(2773)*UV(254)+JVS(2774)*UV(267)&\n               &+JVS(2775)*UV(271)+JVS(2777)*UV(293)+JVS(2779)*UV(301)+JVS(2780)*UV(302)+JVS(2781)*UV(303)+JVS(2789)*UV(335)&\n               &+JVS(2790)*UV(337)+JVS(2793)*UV(345)+JVS(2794)*UV(346)\n  JUV(303) = JVS(2796)*UV(186)+JVS(2797)*UV(190)+JVS(2798)*UV(205)+JVS(2799)*UV(206)+JVS(2800)*UV(207)+JVS(2801)*UV(222)&\n               &+JVS(2802)*UV(223)+JVS(2803)*UV(224)+JVS(2804)*UV(226)+JVS(2805)*UV(232)+JVS(2808)*UV(271)+JVS(2809)*UV(293)&\n               &+JVS(2810)*UV(299)+JVS(2811)*UV(303)+JVS(2818)*UV(337)+JVS(2819)*UV(345)+JVS(2820)*UV(346)\n  JUV(304) = JVS(2822)*UV(186)+JVS(2823)*UV(192)+JVS(2824)*UV(199)+JVS(2825)*UV(276)+JVS(2826)*UV(304)+JVS(2827)*UV(305)&\n               &+JVS(2829)*UV(328)+JVS(2830)*UV(337)+JVS(2831)*UV(340)+JVS(2833)*UV(345)+JVS(2834)*UV(346)\n  JUV(305) = JVS(2836)*UV(186)+JVS(2837)*UV(187)+JVS(2838)*UV(209)+JVS(2839)*UV(276)+JVS(2840)*UV(304)+JVS(2841)*UV(305)&\n               &+JVS(2843)*UV(328)+JVS(2844)*UV(337)+JVS(2845)*UV(340)+JVS(2847)*UV(345)+JVS(2848)*UV(346)\n  JUV(306) = JVS(2850)*UV(70)+JVS(2851)*UV(106)+JVS(2852)*UV(113)+JVS(2853)*UV(126)+JVS(2854)*UV(127)+JVS(2855)*UV(132)&\n               &+JVS(2856)*UV(136)+JVS(2857)*UV(174)+JVS(2858)*UV(180)+JVS(2859)*UV(197)+JVS(2860)*UV(198)+JVS(2861)*UV(201)&\n               &+JVS(2862)*UV(202)+JVS(2863)*UV(205)+JVS(2864)*UV(206)+JVS(2865)*UV(212)+JVS(2867)*UV(221)+JVS(2869)*UV(224)&\n               &+JVS(2870)*UV(232)+JVS(2872)*UV(234)+JVS(2874)*UV(254)+JVS(2875)*UV(258)+JVS(2876)*UV(262)+JVS(2877)*UV(266)&\n               &+JVS(2881)*UV(271)+JVS(2884)*UV(286)+JVS(2885)*UV(288)+JVS(2887)*UV(293)+JVS(2888)*UV(299)+JVS(2890)*UV(302)&\n               &+JVS(2891)*UV(303)+JVS(2894)*UV(306)+JVS(2900)*UV(328)+JVS(2902)*UV(337)+JVS(2904)*UV(341)+JVS(2905)*UV(345)&\n               &+JVS(2906)*UV(346)+JVS(2907)*UV(351)\n  JUV(307) = JVS(2908)*UV(123)+JVS(2909)*UV(153)+JVS(2910)*UV(154)+JVS(2911)*UV(159)+JVS(2912)*UV(174)+JVS(2913)*UV(184)&\n               &+JVS(2914)*UV(198)+JVS(2915)*UV(205)+JVS(2916)*UV(207)+JVS(2917)*UV(215)+JVS(2918)*UV(223)+JVS(2922)*UV(232)&\n               &+JVS(2924)*UV(243)+JVS(2925)*UV(248)+JVS(2926)*UV(253)+JVS(2928)*UV(258)+JVS(2930)*UV(260)+JVS(2933)*UV(271)&\n               &+JVS(2942)*UV(285)+JVS(2944)*UV(287)+JVS(2948)*UV(293)+JVS(2949)*UV(299)+JVS(2951)*UV(303)+JVS(2954)*UV(307)&\n               &+JVS(2955)*UV(308)+JVS(2959)*UV(313)+JVS(2961)*UV(324)+JVS(2962)*UV(328)+JVS(2964)*UV(337)+JVS(2968)*UV(345)&\n               &+JVS(2969)*UV(346)+JVS(2970)*UV(351)\n  JUV(308) = JVS(2971)*UV(248)+JVS(2978)*UV(308)+JVS(2983)*UV(328)+JVS(2984)*UV(335)+JVS(2985)*UV(337)+JVS(2988)*UV(345)&\n               &+JVS(2989)*UV(346)+JVS(2990)*UV(351)\n  JUV(309) = JVS(2991)*UV(135)+JVS(2992)*UV(144)+JVS(2993)*UV(168)+JVS(2994)*UV(192)+JVS(2996)*UV(222)+JVS(2997)*UV(231)&\n               &+JVS(2998)*UV(276)+JVS(2999)*UV(299)+JVS(3001)*UV(304)+JVS(3002)*UV(305)+JVS(3003)*UV(309)+JVS(3004)*UV(310)&\n               &+JVS(3005)*UV(311)+JVS(3006)*UV(324)+JVS(3007)*UV(328)+JVS(3008)*UV(337)+JVS(3010)*UV(341)+JVS(3011)*UV(345)&\n               &+JVS(3012)*UV(346)+JVS(3013)*UV(351)\n  JUV(310) = JVS(3014)*UV(222)+JVS(3015)*UV(276)+JVS(3016)*UV(310)+JVS(3017)*UV(311)+JVS(3018)*UV(324)+JVS(3019)*UV(328)&\n               &+JVS(3020)*UV(337)+JVS(3023)*UV(345)+JVS(3024)*UV(346)+JVS(3025)*UV(351)\n  JUV(311) = JVS(3026)*UV(186)+JVS(3027)*UV(276)+JVS(3028)*UV(310)+JVS(3029)*UV(311)+JVS(3030)*UV(324)+JVS(3031)*UV(328)&\n               &+JVS(3032)*UV(337)+JVS(3035)*UV(345)+JVS(3036)*UV(346)+JVS(3037)*UV(351)\n  JUV(312) = JVS(3038)*UV(109)+JVS(3039)*UV(191)+JVS(3040)*UV(220)+JVS(3042)*UV(255)+JVS(3043)*UV(276)+JVS(3045)*UV(290)&\n               &+JVS(3046)*UV(309)+JVS(3049)*UV(312)+JVS(3050)*UV(314)+JVS(3053)*UV(329)+JVS(3054)*UV(335)+JVS(3055)*UV(336)&\n               &+JVS(3058)*UV(341)+JVS(3061)*UV(346)+JVS(3062)*UV(348)\n  JUV(313) = JVS(3064)*UV(244)+JVS(3068)*UV(295)+JVS(3077)*UV(313)+JVS(3082)*UV(324)+JVS(3083)*UV(328)+JVS(3085)*UV(337)&\n               &+JVS(3086)*UV(340)+JVS(3088)*UV(342)+JVS(3089)*UV(345)+JVS(3090)*UV(346)\n  JUV(314) = JVS(3092)*UV(82)+JVS(3093)*UV(101)+JVS(3094)*UV(133)+JVS(3095)*UV(150)+JVS(3096)*UV(175)+JVS(3097)*UV(187)&\n               &+JVS(3099)*UV(219)+JVS(3100)*UV(222)+JVS(3101)*UV(229)+JVS(3102)*UV(230)+JVS(3103)*UV(262)+JVS(3104)*UV(276)&\n               &+JVS(3105)*UV(291)+JVS(3106)*UV(299)+JVS(3108)*UV(304)+JVS(3109)*UV(305)+JVS(3110)*UV(310)+JVS(3111)*UV(311)&\n               &+JVS(3112)*UV(314)+JVS(3113)*UV(324)+JVS(3114)*UV(328)+JVS(3115)*UV(337)+JVS(3117)*UV(341)+JVS(3118)*UV(345)&\n               &+JVS(3119)*UV(346)+JVS(3120)*UV(351)\n  JUV(315) = JVS(3121)*UV(118)+JVS(3122)*UV(251)+JVS(3123)*UV(279)+JVS(3124)*UV(292)+JVS(3126)*UV(298)+JVS(3127)*UV(300)&\n               &+JVS(3129)*UV(315)+JVS(3131)*UV(319)+JVS(3134)*UV(322)+JVS(3136)*UV(324)+JVS(3137)*UV(328)+JVS(3139)*UV(337)&\n               &+JVS(3140)*UV(340)+JVS(3143)*UV(345)+JVS(3144)*UV(346)\n  JUV(316) = JVS(3146)*UV(148)+JVS(3147)*UV(218)+JVS(3148)*UV(316)+JVS(3150)*UV(336)+JVS(3151)*UV(337)+JVS(3152)*UV(339)&\n               &+JVS(3153)*UV(341)+JVS(3155)*UV(343)+JVS(3156)*UV(344)+JVS(3157)*UV(345)+JVS(3158)*UV(347)+JVS(3159)*UV(348)&\n               &+JVS(3160)*UV(349)+JVS(3161)*UV(350)+JVS(3162)*UV(352)+JVS(3163)*UV(353)\n  JUV(317) = JVS(3164)*UV(317)+JVS(3165)*UV(335)+JVS(3166)*UV(336)+JVS(3167)*UV(338)+JVS(3168)*UV(339)+JVS(3169)*UV(340)&\n               &+JVS(3170)*UV(343)+JVS(3171)*UV(344)+JVS(3172)*UV(345)+JVS(3173)*UV(349)+JVS(3174)*UV(350)+JVS(3175)*UV(352)&\n               &+JVS(3176)*UV(353)\n  JUV(318) = JVS(3177)*UV(251)+JVS(3178)*UV(269)+JVS(3179)*UV(318)+JVS(3182)*UV(324)+JVS(3183)*UV(328)+JVS(3185)*UV(337)&\n               &+JVS(3187)*UV(345)+JVS(3188)*UV(346)+JVS(3189)*UV(351)\n  JUV(319) = JVS(3190)*UV(97)+JVS(3191)*UV(130)+JVS(3192)*UV(142)+JVS(3193)*UV(161)+JVS(3194)*UV(162)+JVS(3195)*UV(169)&\n               &+JVS(3196)*UV(178)+JVS(3197)*UV(249)+JVS(3199)*UV(273)+JVS(3200)*UV(274)+JVS(3205)*UV(318)+JVS(3206)*UV(319)&\n               &+JVS(3208)*UV(324)+JVS(3209)*UV(328)+JVS(3211)*UV(337)+JVS(3214)*UV(345)+JVS(3215)*UV(346)+JVS(3216)*UV(351)\n  JUV(320) = JVS(3217)*UV(219)+JVS(3218)*UV(292)+JVS(3222)*UV(320)+JVS(3223)*UV(324)+JVS(3224)*UV(328)+JVS(3226)*UV(337)&\n               &+JVS(3228)*UV(341)+JVS(3229)*UV(345)+JVS(3230)*UV(346)+JVS(3231)*UV(351)\n  JUV(321) = JVS(3232)*UV(99)+JVS(3233)*UV(141)+JVS(3234)*UV(251)+JVS(3235)*UV(279)+JVS(3236)*UV(292)+JVS(3237)*UV(298)&\n               &+JVS(3238)*UV(300)+JVS(3241)*UV(319)+JVS(3243)*UV(321)+JVS(3244)*UV(322)+JVS(3246)*UV(324)+JVS(3247)*UV(328)&\n               &+JVS(3249)*UV(337)+JVS(3250)*UV(340)+JVS(3252)*UV(342)+JVS(3253)*UV(345)+JVS(3254)*UV(346)\n  JUV(322) = JVS(3256)*UV(124)+JVS(3257)*UV(155)+JVS(3258)*UV(160)+JVS(3259)*UV(176)+JVS(3260)*UV(196)+JVS(3261)*UV(201)&\n               &+JVS(3262)*UV(221)+JVS(3263)*UV(240)+JVS(3267)*UV(278)+JVS(3268)*UV(292)+JVS(3269)*UV(298)+JVS(3271)*UV(314)&\n               &+JVS(3276)*UV(322)+JVS(3278)*UV(324)+JVS(3279)*UV(328)+JVS(3280)*UV(335)+JVS(3281)*UV(337)+JVS(3285)*UV(345)&\n               &+JVS(3286)*UV(346)+JVS(3287)*UV(351)\n  JUV(323) = JVS(3288)*UV(100)+JVS(3289)*UV(141)+JVS(3290)*UV(251)+JVS(3291)*UV(279)+JVS(3292)*UV(292)+JVS(3293)*UV(298)&\n               &+JVS(3294)*UV(300)+JVS(3297)*UV(319)+JVS(3300)*UV(322)+JVS(3301)*UV(323)+JVS(3302)*UV(324)+JVS(3303)*UV(328)&\n               &+JVS(3305)*UV(337)+JVS(3306)*UV(340)+JVS(3309)*UV(345)+JVS(3310)*UV(346)\n  JUV(324) = JVS(3312)*UV(92)+JVS(3313)*UV(107)+JVS(3314)*UV(115)+JVS(3315)*UV(122)+JVS(3316)*UV(130)+JVS(3317)*UV(139)&\n               &+JVS(3318)*UV(146)+JVS(3319)*UV(159)+JVS(3320)*UV(169)+JVS(3322)*UV(185)+JVS(3323)*UV(194)+JVS(3324)*UV(196)&\n               &+JVS(3326)*UV(208)+JVS(3327)*UV(209)+JVS(3328)*UV(227)+JVS(3333)*UV(244)+JVS(3334)*UV(247)+JVS(3335)*UV(249)&\n               &+JVS(3336)*UV(250)+JVS(3337)*UV(254)+JVS(3338)*UV(257)+JVS(3340)*UV(259)+JVS(3341)*UV(260)+JVS(3342)*UV(261)&\n               &+JVS(3343)*UV(263)+JVS(3348)*UV(274)+JVS(3349)*UV(275)+JVS(3350)*UV(276)+JVS(3351)*UV(277)+JVS(3354)*UV(280)&\n               &+JVS(3355)*UV(281)+JVS(3359)*UV(288)+JVS(3360)*UV(289)+JVS(3362)*UV(291)+JVS(3363)*UV(292)+JVS(3365)*UV(294)&\n               &+JVS(3366)*UV(295)+JVS(3367)*UV(296)+JVS(3369)*UV(300)+JVS(3371)*UV(302)+JVS(3374)*UV(305)+JVS(3375)*UV(307)&\n               &+JVS(3377)*UV(309)+JVS(3378)*UV(310)+JVS(3379)*UV(311)+JVS(3380)*UV(313)+JVS(3381)*UV(314)+JVS(3382)*UV(315)&\n               &+JVS(3383)*UV(318)+JVS(3384)*UV(319)+JVS(3385)*UV(320)+JVS(3386)*UV(321)+JVS(3387)*UV(322)+JVS(3388)*UV(323)&\n               &+JVS(3389)*UV(324)+JVS(3390)*UV(326)+JVS(3391)*UV(328)+JVS(3392)*UV(335)+JVS(3393)*UV(337)+JVS(3395)*UV(341)&\n               &+JVS(3396)*UV(342)+JVS(3397)*UV(345)+JVS(3398)*UV(346)+JVS(3399)*UV(351)\n  JUV(325) = JVS(3400)*UV(72)+JVS(3401)*UV(80)+JVS(3402)*UV(88)+JVS(3403)*UV(89)+JVS(3404)*UV(92)+JVS(3405)*UV(93)&\n               &+JVS(3406)*UV(94)+JVS(3407)*UV(106)+JVS(3408)*UV(109)+JVS(3409)*UV(112)+JVS(3410)*UV(114)+JVS(3411)*UV(122)&\n               &+JVS(3412)*UV(123)+JVS(3413)*UV(127)+JVS(3414)*UV(130)+JVS(3416)*UV(137)+JVS(3417)*UV(138)+JVS(3418)*UV(139)&\n               &+JVS(3419)*UV(140)+JVS(3420)*UV(146)+JVS(3421)*UV(149)+JVS(3422)*UV(159)+JVS(3423)*UV(160)+JVS(3424)*UV(164)&\n               &+JVS(3425)*UV(165)+JVS(3426)*UV(168)+JVS(3427)*UV(169)+JVS(3428)*UV(175)+JVS(3429)*UV(176)+JVS(3430)*UV(187)&\n               &+JVS(3431)*UV(190)+JVS(3432)*UV(191)+JVS(3433)*UV(192)+JVS(3435)*UV(197)+JVS(3436)*UV(199)+JVS(3437)*UV(200)&\n               &+JVS(3438)*UV(205)+JVS(3439)*UV(206)+JVS(3440)*UV(207)+JVS(3441)*UV(208)+JVS(3442)*UV(209)+JVS(3443)*UV(210)&\n               &+JVS(3444)*UV(211)+JVS(3445)*UV(212)+JVS(3446)*UV(213)+JVS(3447)*UV(215)+JVS(3448)*UV(219)+JVS(3449)*UV(220)&\n               &+JVS(3450)*UV(222)+JVS(3451)*UV(223)+JVS(3452)*UV(224)+JVS(3453)*UV(226)+JVS(3454)*UV(228)+JVS(3455)*UV(229)&\n               &+JVS(3456)*UV(230)+JVS(3457)*UV(231)+JVS(3458)*UV(233)+JVS(3459)*UV(234)+JVS(3460)*UV(235)+JVS(3461)*UV(236)&\n               &+JVS(3463)*UV(243)+JVS(3464)*UV(244)+JVS(3466)*UV(247)+JVS(3467)*UV(249)+JVS(3468)*UV(250)+JVS(3469)*UV(253)&\n               &+JVS(3470)*UV(254)+JVS(3471)*UV(255)+JVS(3472)*UV(257)+JVS(3473)*UV(258)+JVS(3474)*UV(259)+JVS(3475)*UV(260)&\n               &+JVS(3476)*UV(261)+JVS(3477)*UV(262)+JVS(3478)*UV(263)+JVS(3481)*UV(270)+JVS(3482)*UV(271)+JVS(3483)*UV(272)&\n               &+JVS(3484)*UV(273)+JVS(3485)*UV(274)+JVS(3486)*UV(275)+JVS(3487)*UV(276)+JVS(3488)*UV(277)+JVS(3489)*UV(278)&\n               &+JVS(3491)*UV(280)+JVS(3492)*UV(281)+JVS(3493)*UV(282)+JVS(3496)*UV(287)+JVS(3497)*UV(288)+JVS(3498)*UV(289)&\n               &+JVS(3499)*UV(290)+JVS(3500)*UV(291)+JVS(3501)*UV(293)+JVS(3502)*UV(296)+JVS(3503)*UV(299)+JVS(3504)*UV(300)&\n               &+JVS(3506)*UV(302)+JVS(3507)*UV(303)+JVS(3508)*UV(304)+JVS(3509)*UV(305)+JVS(3510)*UV(306)+JVS(3511)*UV(307)&\n               &+JVS(3512)*UV(308)+JVS(3513)*UV(309)+JVS(3514)*UV(310)+JVS(3515)*UV(311)+JVS(3516)*UV(312)+JVS(3517)*UV(313)&\n               &+JVS(3518)*UV(314)+JVS(3519)*UV(315)+JVS(3520)*UV(318)+JVS(3521)*UV(319)+JVS(3522)*UV(320)+JVS(3523)*UV(321)&\n               &+JVS(3524)*UV(322)+JVS(3525)*UV(323)+JVS(3526)*UV(324)+JVS(3527)*UV(325)+JVS(3528)*UV(326)+JVS(3529)*UV(328)&\n               &+JVS(3530)*UV(329)+JVS(3531)*UV(334)+JVS(3532)*UV(335)+JVS(3533)*UV(336)+JVS(3534)*UV(337)+JVS(3535)*UV(338)&\n               &+JVS(3536)*UV(340)+JVS(3537)*UV(341)+JVS(3538)*UV(342)+JVS(3539)*UV(343)+JVS(3540)*UV(345)+JVS(3541)*UV(346)&\n               &+JVS(3542)*UV(348)+JVS(3543)*UV(351)\n  JUV(326) = JVS(3544)*UV(83)+JVS(3545)*UV(118)+JVS(3546)*UV(123)+JVS(3547)*UV(124)+JVS(3548)*UV(149)+JVS(3549)*UV(155)&\n               &+JVS(3550)*UV(156)+JVS(3551)*UV(165)+JVS(3552)*UV(196)+JVS(3554)*UV(241)+JVS(3556)*UV(249)+JVS(3557)*UV(250)&\n               &+JVS(3558)*UV(251)+JVS(3559)*UV(260)+JVS(3560)*UV(279)+JVS(3561)*UV(290)+JVS(3562)*UV(296)+JVS(3563)*UV(300)&\n               &+JVS(3565)*UV(315)+JVS(3566)*UV(318)+JVS(3567)*UV(319)+JVS(3568)*UV(320)+JVS(3572)*UV(324)+JVS(3573)*UV(326)&\n               &+JVS(3574)*UV(328)+JVS(3575)*UV(329)+JVS(3576)*UV(335)+JVS(3577)*UV(336)+JVS(3578)*UV(337)+JVS(3579)*UV(340)&\n               &+JVS(3580)*UV(341)+JVS(3581)*UV(342)+JVS(3582)*UV(345)+JVS(3583)*UV(346)+JVS(3584)*UV(348)+JVS(3585)*UV(351)\n  JUV(327) = JVS(3586)*UV(45)+JVS(3587)*UV(69)+JVS(3588)*UV(94)+JVS(3589)*UV(103)+JVS(3590)*UV(142)+JVS(3591)*UV(149)&\n               &+JVS(3593)*UV(158)+JVS(3594)*UV(166)+JVS(3597)*UV(179)+JVS(3598)*UV(183)+JVS(3600)*UV(195)+JVS(3601)*UV(200)&\n               &+JVS(3602)*UV(202)+JVS(3603)*UV(204)+JVS(3604)*UV(214)+JVS(3606)*UV(218)+JVS(3609)*UV(225)+JVS(3616)*UV(261)&\n               &+JVS(3620)*UV(269)+JVS(3621)*UV(270)+JVS(3636)*UV(292)+JVS(3638)*UV(294)+JVS(3639)*UV(298)+JVS(3647)*UV(306)&\n               &+JVS(3650)*UV(309)+JVS(3655)*UV(317)+JVS(3663)*UV(325)+JVS(3664)*UV(326)+JVS(3665)*UV(327)+JVS(3668)*UV(332)&\n               &+JVS(3670)*UV(335)+JVS(3671)*UV(336)+JVS(3674)*UV(339)+JVS(3679)*UV(344)+JVS(3680)*UV(345)+JVS(3684)*UV(349)&\n               &+JVS(3685)*UV(350)+JVS(3686)*UV(351)+JVS(3687)*UV(352)+JVS(3688)*UV(353)\n  JUV(328) = JVS(3689)*UV(52)+JVS(3690)*UV(80)+JVS(3691)*UV(92)+JVS(3692)*UV(94)+JVS(3693)*UV(105)+JVS(3694)*UV(139)&\n               &+JVS(3695)*UV(155)+JVS(3696)*UV(159)+JVS(3697)*UV(164)+JVS(3698)*UV(181)+JVS(3699)*UV(228)+JVS(3700)*UV(234)&\n               &+JVS(3701)*UV(235)+JVS(3702)*UV(236)+JVS(3705)*UV(249)+JVS(3706)*UV(250)+JVS(3707)*UV(251)+JVS(3708)*UV(257)&\n               &+JVS(3709)*UV(259)+JVS(3710)*UV(260)+JVS(3711)*UV(263)+JVS(3712)*UV(272)+JVS(3713)*UV(273)+JVS(3714)*UV(274)&\n               &+JVS(3715)*UV(275)+JVS(3716)*UV(276)+JVS(3717)*UV(277)+JVS(3718)*UV(278)+JVS(3719)*UV(279)+JVS(3720)*UV(280)&\n               &+JVS(3721)*UV(281)+JVS(3722)*UV(283)+JVS(3723)*UV(289)+JVS(3724)*UV(290)+JVS(3725)*UV(291)+JVS(3726)*UV(292)&\n               &+JVS(3727)*UV(295)+JVS(3728)*UV(296)+JVS(3729)*UV(300)+JVS(3730)*UV(304)+JVS(3731)*UV(305)+JVS(3732)*UV(307)&\n               &+JVS(3733)*UV(308)+JVS(3735)*UV(310)+JVS(3736)*UV(311)+JVS(3737)*UV(313)+JVS(3738)*UV(314)+JVS(3739)*UV(315)&\n               &+JVS(3740)*UV(318)+JVS(3741)*UV(319)+JVS(3742)*UV(320)+JVS(3743)*UV(321)+JVS(3744)*UV(322)+JVS(3745)*UV(323)&\n               &+JVS(3746)*UV(324)+JVS(3747)*UV(326)+JVS(3748)*UV(328)+JVS(3750)*UV(334)+JVS(3751)*UV(335)+JVS(3753)*UV(337)&\n               &+JVS(3754)*UV(338)+JVS(3755)*UV(340)+JVS(3756)*UV(341)+JVS(3758)*UV(345)+JVS(3759)*UV(346)+JVS(3761)*UV(351)\n  JUV(329) = JVS(3762)*UV(60)+JVS(3763)*UV(68)+JVS(3764)*UV(75)+JVS(3765)*UV(79)+JVS(3766)*UV(82)+JVS(3767)*UV(101)&\n               &+JVS(3768)*UV(107)+JVS(3769)*UV(113)+JVS(3770)*UV(114)+JVS(3771)*UV(119)+JVS(3772)*UV(122)+JVS(3773)*UV(124)&\n               &+JVS(3774)*UV(126)+JVS(3775)*UV(127)+JVS(3776)*UV(132)+JVS(3777)*UV(139)+JVS(3778)*UV(143)+JVS(3779)*UV(144)&\n               &+JVS(3780)*UV(146)+JVS(3781)*UV(147)+JVS(3782)*UV(150)+JVS(3783)*UV(153)+JVS(3784)*UV(159)+JVS(3785)*UV(167)&\n               &+JVS(3786)*UV(181)+JVS(3787)*UV(182)+JVS(3788)*UV(184)+JVS(3789)*UV(185)+JVS(3790)*UV(187)+JVS(3791)*UV(191)&\n               &+JVS(3792)*UV(192)+JVS(3793)*UV(194)+JVS(3794)*UV(197)+JVS(3795)*UV(199)+JVS(3796)*UV(200)+JVS(3797)*UV(201)&\n               &+JVS(3798)*UV(204)+JVS(3799)*UV(208)+JVS(3800)*UV(209)+JVS(3801)*UV(210)+JVS(3804)*UV(215)+JVS(3805)*UV(216)&\n               &+JVS(3806)*UV(220)+JVS(3807)*UV(221)+JVS(3809)*UV(225)+JVS(3811)*UV(227)+JVS(3812)*UV(230)+JVS(3813)*UV(231)&\n               &+JVS(3814)*UV(233)+JVS(3815)*UV(238)+JVS(3817)*UV(241)+JVS(3818)*UV(243)+JVS(3820)*UV(248)+JVS(3821)*UV(253)&\n               &+JVS(3823)*UV(255)+JVS(3824)*UV(258)+JVS(3825)*UV(259)+JVS(3826)*UV(261)+JVS(3827)*UV(266)+JVS(3828)*UV(267)&\n               &+JVS(3829)*UV(268)+JVS(3830)*UV(269)+JVS(3831)*UV(270)+JVS(3833)*UV(276)+JVS(3836)*UV(285)+JVS(3837)*UV(286)&\n               &+JVS(3838)*UV(287)+JVS(3840)*UV(290)+JVS(3842)*UV(294)+JVS(3843)*UV(295)+JVS(3844)*UV(298)+JVS(3847)*UV(301)&\n               &+JVS(3850)*UV(304)+JVS(3851)*UV(305)+JVS(3852)*UV(306)+JVS(3853)*UV(307)+JVS(3855)*UV(309)+JVS(3858)*UV(312)&\n               &+JVS(3860)*UV(314)+JVS(3868)*UV(325)+JVS(3869)*UV(326)+JVS(3870)*UV(328)+JVS(3871)*UV(329)+JVS(3875)*UV(337)&\n               &+JVS(3877)*UV(340)+JVS(3878)*UV(341)+JVS(3879)*UV(342)+JVS(3880)*UV(343)+JVS(3881)*UV(345)+JVS(3882)*UV(346)&\n               &+JVS(3884)*UV(351)\n  JUV(330) = JVS(3885)*UV(170)+JVS(3887)*UV(284)+JVS(3888)*UV(330)+JVS(3890)*UV(332)+JVS(3892)*UV(336)+JVS(3893)*UV(337)&\n               &+JVS(3896)*UV(344)+JVS(3897)*UV(345)+JVS(3900)*UV(349)+JVS(3901)*UV(350)+JVS(3903)*UV(353)\n  JUV(331) = JVS(3904)*UV(1)+JVS(3905)*UV(2)+JVS(3906)*UV(3)+JVS(3907)*UV(44)+JVS(3908)*UV(52)+JVS(3909)*UV(62)&\n               &+JVS(3910)*UV(73)+JVS(3911)*UV(77)+JVS(3912)*UV(96)+JVS(3913)*UV(104)+JVS(3914)*UV(170)+JVS(3915)*UV(252)&\n               &+JVS(3916)*UV(284)+JVS(3917)*UV(330)+JVS(3918)*UV(331)+JVS(3919)*UV(332)+JVS(3920)*UV(335)+JVS(3922)*UV(337)&\n               &+JVS(3923)*UV(338)+JVS(3924)*UV(341)+JVS(3926)*UV(345)+JVS(3927)*UV(346)+JVS(3928)*UV(347)+JVS(3931)*UV(351)\n  JUV(332) = JVS(3933)*UV(170)+JVS(3935)*UV(284)+JVS(3937)*UV(331)+JVS(3938)*UV(332)+JVS(3939)*UV(335)+JVS(3940)*UV(336)&\n               &+JVS(3944)*UV(344)+JVS(3948)*UV(349)+JVS(3949)*UV(350)+JVS(3950)*UV(351)+JVS(3951)*UV(353)\n  JUV(333) = JVS(3952)*UV(76)+JVS(3953)*UV(120)+JVS(3954)*UV(245)+JVS(3956)*UV(297)+JVS(3957)*UV(317)+JVS(3963)*UV(333)&\n               &+JVS(3966)*UV(336)+JVS(3967)*UV(337)+JVS(3968)*UV(338)+JVS(3969)*UV(339)+JVS(3974)*UV(344)+JVS(3975)*UV(345)&\n               &+JVS(3978)*UV(348)+JVS(3982)*UV(352)+JVS(3983)*UV(353)\n  JUV(334) = JVS(3984)*UV(46)+JVS(3985)*UV(47)+JVS(3986)*UV(48)+JVS(3987)*UV(49)+JVS(3988)*UV(50)+JVS(3989)*UV(51)&\n               &+JVS(3990)*UV(53)+JVS(3991)*UV(54)+JVS(3992)*UV(61)+JVS(3993)*UV(63)+JVS(3995)*UV(78)+JVS(3996)*UV(81)&\n               &+JVS(3997)*UV(84)+JVS(3998)*UV(85)+JVS(3999)*UV(86)+JVS(4000)*UV(87)+JVS(4001)*UV(105)+JVS(4002)*UV(181)&\n               &+JVS(4003)*UV(228)+JVS(4004)*UV(245)+JVS(4014)*UV(334)+JVS(4016)*UV(336)+JVS(4019)*UV(339)+JVS(4021)*UV(341)&\n               &+JVS(4032)*UV(352)\n  JUV(335) = JVS(4034)*UV(56)+JVS(4035)*UV(57)+JVS(4036)*UV(59)+JVS(4037)*UV(64)+JVS(4038)*UV(65)+JVS(4039)*UV(67)&\n               &+JVS(4040)*UV(70)+JVS(4041)*UV(80)+JVS(4042)*UV(83)+JVS(4043)*UV(90)+JVS(4044)*UV(91)+JVS(4045)*UV(93)&\n               &+JVS(4046)*UV(95)+JVS(4047)*UV(96)+JVS(4048)*UV(108)+JVS(4049)*UV(113)+JVS(4050)*UV(114)+JVS(4051)*UV(116)&\n               &+JVS(4052)*UV(121)+JVS(4053)*UV(122)+JVS(4054)*UV(124)+JVS(4055)*UV(125)+JVS(4056)*UV(126)+JVS(4057)*UV(127)&\n               &+JVS(4058)*UV(132)+JVS(4059)*UV(133)+JVS(4060)*UV(135)+JVS(4061)*UV(137)+JVS(4062)*UV(138)+JVS(4063)*UV(139)&\n               &+JVS(4064)*UV(140)+JVS(4065)*UV(154)+JVS(4066)*UV(162)+JVS(4067)*UV(163)+JVS(4068)*UV(165)+JVS(4070)*UV(168)&\n               &+JVS(4071)*UV(171)+JVS(4072)*UV(172)+JVS(4073)*UV(175)+JVS(4074)*UV(176)+JVS(4075)*UV(177)+JVS(4076)*UV(178)&\n               &+JVS(4078)*UV(180)+JVS(4079)*UV(182)+JVS(4080)*UV(184)+JVS(4081)*UV(186)+JVS(4082)*UV(189)+JVS(4083)*UV(190)&\n               &+JVS(4084)*UV(193)+JVS(4085)*UV(196)+JVS(4086)*UV(197)+JVS(4088)*UV(203)+JVS(4089)*UV(205)+JVS(4090)*UV(206)&\n               &+JVS(4091)*UV(207)+JVS(4092)*UV(211)+JVS(4093)*UV(212)+JVS(4094)*UV(213)+JVS(4095)*UV(214)+JVS(4096)*UV(218)&\n               &+JVS(4097)*UV(220)+JVS(4098)*UV(222)+JVS(4099)*UV(223)+JVS(4100)*UV(224)+JVS(4101)*UV(226)+JVS(4102)*UV(229)&\n               &+JVS(4105)*UV(232)+JVS(4107)*UV(234)+JVS(4108)*UV(235)+JVS(4109)*UV(236)+JVS(4111)*UV(239)+JVS(4112)*UV(240)&\n               &+JVS(4113)*UV(241)+JVS(4114)*UV(242)+JVS(4115)*UV(243)+JVS(4116)*UV(246)+JVS(4117)*UV(247)+JVS(4118)*UV(248)&\n               &+JVS(4119)*UV(249)+JVS(4120)*UV(250)+JVS(4121)*UV(251)+JVS(4122)*UV(252)+JVS(4123)*UV(253)+JVS(4124)*UV(254)&\n               &+JVS(4126)*UV(256)+JVS(4127)*UV(257)+JVS(4128)*UV(259)+JVS(4129)*UV(260)+JVS(4130)*UV(261)+JVS(4131)*UV(262)&\n               &+JVS(4132)*UV(263)+JVS(4133)*UV(266)+JVS(4134)*UV(267)+JVS(4135)*UV(268)+JVS(4136)*UV(269)+JVS(4137)*UV(271)&\n               &+JVS(4138)*UV(272)+JVS(4139)*UV(273)+JVS(4140)*UV(274)+JVS(4141)*UV(275)+JVS(4143)*UV(277)+JVS(4144)*UV(278)&\n               &+JVS(4145)*UV(279)+JVS(4146)*UV(280)+JVS(4147)*UV(281)+JVS(4148)*UV(284)+JVS(4149)*UV(285)+JVS(4150)*UV(286)&\n               &+JVS(4151)*UV(289)+JVS(4153)*UV(291)+JVS(4154)*UV(293)+JVS(4155)*UV(296)+JVS(4156)*UV(297)+JVS(4157)*UV(299)&\n               &+JVS(4158)*UV(300)+JVS(4159)*UV(301)+JVS(4160)*UV(302)+JVS(4161)*UV(303)+JVS(4162)*UV(304)+JVS(4163)*UV(305)&\n               &+JVS(4165)*UV(308)+JVS(4167)*UV(310)+JVS(4168)*UV(311)+JVS(4169)*UV(312)+JVS(4170)*UV(313)+JVS(4172)*UV(315)&\n               &+JVS(4173)*UV(317)+JVS(4174)*UV(318)+JVS(4175)*UV(319)+JVS(4176)*UV(320)+JVS(4177)*UV(321)+JVS(4178)*UV(322)&\n               &+JVS(4179)*UV(323)+JVS(4180)*UV(324)+JVS(4182)*UV(327)+JVS(4183)*UV(328)+JVS(4186)*UV(331)+JVS(4187)*UV(332)&\n               &+JVS(4189)*UV(335)+JVS(4191)*UV(337)+JVS(4192)*UV(338)+JVS(4195)*UV(341)+JVS(4196)*UV(342)+JVS(4197)*UV(343)&\n               &+JVS(4199)*UV(345)+JVS(4200)*UV(346)+JVS(4201)*UV(347)+JVS(4205)*UV(351)\n  JUV(336) = JVS(4208)*UV(43)+JVS(4209)*UV(52)+JVS(4210)*UV(73)+JVS(4211)*UV(84)+JVS(4212)*UV(85)+JVS(4213)*UV(86)&\n               &+JVS(4214)*UV(87)+JVS(4215)*UV(105)+JVS(4216)*UV(108)+JVS(4217)*UV(116)+JVS(4218)*UV(164)+JVS(4219)*UV(173)&\n               &+JVS(4220)*UV(181)+JVS(4221)*UV(183)+JVS(4223)*UV(196)+JVS(4226)*UV(214)+JVS(4227)*UV(217)+JVS(4228)*UV(218)&\n               &+JVS(4231)*UV(228)+JVS(4232)*UV(239)+JVS(4234)*UV(241)+JVS(4235)*UV(244)+JVS(4237)*UV(251)+JVS(4239)*UV(264)&\n               &+JVS(4240)*UV(265)+JVS(4244)*UV(279)+JVS(4245)*UV(283)+JVS(4250)*UV(292)+JVS(4251)*UV(295)+JVS(4254)*UV(298)&\n               &+JVS(4267)*UV(312)+JVS(4271)*UV(316)+JVS(4272)*UV(317)+JVS(4280)*UV(325)+JVS(4281)*UV(326)+JVS(4282)*UV(327)&\n               &+JVS(4285)*UV(330)+JVS(4287)*UV(332)+JVS(4288)*UV(333)+JVS(4289)*UV(334)+JVS(4291)*UV(336)+JVS(4292)*UV(337)&\n               &+JVS(4294)*UV(339)+JVS(4295)*UV(340)+JVS(4299)*UV(344)+JVS(4300)*UV(345)+JVS(4307)*UV(352)+JVS(4308)*UV(353)\n  JUV(337) = JVS(4309)*UV(60)+JVS(4310)*UV(72)+JVS(4311)*UV(75)+JVS(4312)*UV(79)+JVS(4313)*UV(80)+JVS(4314)*UV(82)&\n               &+JVS(4315)*UV(83)+JVS(4316)*UV(88)+JVS(4317)*UV(91)+JVS(4318)*UV(93)+JVS(4319)*UV(95)+JVS(4320)*UV(97)&\n               &+JVS(4321)*UV(98)+JVS(4322)*UV(99)+JVS(4323)*UV(100)+JVS(4324)*UV(101)+JVS(4325)*UV(102)+JVS(4326)*UV(105)&\n               &+JVS(4327)*UV(106)+JVS(4328)*UV(108)+JVS(4329)*UV(111)+JVS(4330)*UV(112)+JVS(4331)*UV(115)+JVS(4332)*UV(116)&\n               &+JVS(4333)*UV(118)+JVS(4334)*UV(119)+JVS(4335)*UV(121)+JVS(4336)*UV(123)+JVS(4337)*UV(125)+JVS(4338)*UV(127)&\n               &+JVS(4339)*UV(128)+JVS(4340)*UV(131)+JVS(4341)*UV(132)+JVS(4342)*UV(133)+JVS(4343)*UV(135)+JVS(4345)*UV(137)&\n               &+JVS(4346)*UV(138)+JVS(4347)*UV(143)+JVS(4348)*UV(144)+JVS(4349)*UV(145)+JVS(4350)*UV(146)+JVS(4351)*UV(147)&\n               &+JVS(4352)*UV(149)+JVS(4353)*UV(150)+JVS(4354)*UV(151)+JVS(4355)*UV(152)+JVS(4356)*UV(153)+JVS(4357)*UV(155)&\n               &+JVS(4358)*UV(156)+JVS(4359)*UV(158)+JVS(4360)*UV(161)+JVS(4361)*UV(164)+JVS(4362)*UV(165)+JVS(4363)*UV(168)&\n               &+JVS(4364)*UV(171)+JVS(4365)*UV(172)+JVS(4366)*UV(174)+JVS(4367)*UV(175)+JVS(4368)*UV(178)+JVS(4369)*UV(180)&\n               &+JVS(4370)*UV(181)+JVS(4371)*UV(182)+JVS(4372)*UV(185)+JVS(4373)*UV(186)+JVS(4374)*UV(187)+JVS(4375)*UV(188)&\n               &+JVS(4376)*UV(189)+JVS(4377)*UV(190)+JVS(4378)*UV(192)+JVS(4379)*UV(194)+JVS(4380)*UV(195)+JVS(4381)*UV(196)&\n               &+JVS(4382)*UV(197)+JVS(4383)*UV(198)+JVS(4384)*UV(199)+JVS(4385)*UV(200)+JVS(4386)*UV(201)+JVS(4387)*UV(202)&\n               &+JVS(4388)*UV(204)+JVS(4389)*UV(205)+JVS(4390)*UV(206)+JVS(4391)*UV(207)+JVS(4392)*UV(208)+JVS(4393)*UV(209)&\n               &+JVS(4394)*UV(210)+JVS(4395)*UV(212)+JVS(4396)*UV(213)+JVS(4397)*UV(216)+JVS(4398)*UV(217)+JVS(4399)*UV(219)&\n               &+JVS(4400)*UV(220)+JVS(4401)*UV(221)+JVS(4402)*UV(222)+JVS(4403)*UV(223)+JVS(4404)*UV(224)+JVS(4405)*UV(225)&\n               &+JVS(4406)*UV(226)+JVS(4407)*UV(227)+JVS(4408)*UV(228)+JVS(4409)*UV(229)+JVS(4410)*UV(230)+JVS(4411)*UV(231)&\n               &+JVS(4412)*UV(232)+JVS(4413)*UV(233)+JVS(4414)*UV(234)+JVS(4415)*UV(235)+JVS(4416)*UV(236)+JVS(4417)*UV(238)&\n               &+JVS(4418)*UV(240)+JVS(4419)*UV(243)+JVS(4420)*UV(246)+JVS(4421)*UV(248)+JVS(4422)*UV(249)+JVS(4423)*UV(250)&\n               &+JVS(4424)*UV(251)+JVS(4425)*UV(253)+JVS(4426)*UV(254)+JVS(4427)*UV(255)+JVS(4428)*UV(257)+JVS(4429)*UV(258)&\n               &+JVS(4430)*UV(259)+JVS(4431)*UV(260)+JVS(4432)*UV(261)+JVS(4433)*UV(262)+JVS(4434)*UV(263)+JVS(4435)*UV(264)&\n               &+JVS(4436)*UV(265)+JVS(4437)*UV(266)+JVS(4438)*UV(267)+JVS(4439)*UV(268)+JVS(4440)*UV(269)+JVS(4441)*UV(270)&\n               &+JVS(4442)*UV(271)+JVS(4443)*UV(272)+JVS(4444)*UV(273)+JVS(4445)*UV(274)+JVS(4446)*UV(275)+JVS(4447)*UV(276)&\n               &+JVS(4448)*UV(277)+JVS(4449)*UV(278)+JVS(4450)*UV(279)+JVS(4451)*UV(280)+JVS(4452)*UV(281)+JVS(4453)*UV(282)&\n               &+JVS(4454)*UV(284)+JVS(4455)*UV(285)+JVS(4456)*UV(286)+JVS(4457)*UV(287)+JVS(4458)*UV(288)+JVS(4459)*UV(289)&\n               &+JVS(4460)*UV(290)+JVS(4461)*UV(291)+JVS(4462)*UV(293)+JVS(4463)*UV(294)+JVS(4464)*UV(296)+JVS(4465)*UV(298)&\n               &+JVS(4466)*UV(299)+JVS(4467)*UV(300)+JVS(4468)*UV(301)+JVS(4469)*UV(302)+JVS(4470)*UV(303)+JVS(4471)*UV(304)&\n               &+JVS(4472)*UV(305)+JVS(4473)*UV(306)+JVS(4474)*UV(307)+JVS(4475)*UV(308)+JVS(4476)*UV(309)+JVS(4477)*UV(310)&\n               &+JVS(4478)*UV(311)+JVS(4480)*UV(313)+JVS(4481)*UV(314)+JVS(4482)*UV(315)+JVS(4483)*UV(318)+JVS(4484)*UV(319)&\n               &+JVS(4485)*UV(320)+JVS(4486)*UV(321)+JVS(4487)*UV(322)+JVS(4488)*UV(323)+JVS(4489)*UV(324)+JVS(4490)*UV(325)&\n               &+JVS(4491)*UV(326)+JVS(4492)*UV(328)+JVS(4493)*UV(329)+JVS(4495)*UV(331)+JVS(4497)*UV(334)+JVS(4498)*UV(335)&\n               &+JVS(4500)*UV(337)+JVS(4501)*UV(338)+JVS(4503)*UV(340)+JVS(4504)*UV(341)+JVS(4505)*UV(342)+JVS(4506)*UV(343)&\n               &+JVS(4508)*UV(345)+JVS(4509)*UV(346)+JVS(4510)*UV(347)+JVS(4511)*UV(348)+JVS(4514)*UV(351)\n  JUV(338) = JVS(4517)*UV(46)+JVS(4518)*UV(47)+JVS(4519)*UV(48)+JVS(4520)*UV(49)+JVS(4521)*UV(50)+JVS(4522)*UV(51)&\n               &+JVS(4523)*UV(61)+JVS(4524)*UV(76)+JVS(4525)*UV(84)+JVS(4526)*UV(85)+JVS(4527)*UV(86)+JVS(4528)*UV(87)&\n               &+JVS(4529)*UV(110)+JVS(4530)*UV(120)+JVS(4531)*UV(181)+JVS(4532)*UV(245)+JVS(4533)*UV(284)+JVS(4534)*UV(296)&\n               &+JVS(4536)*UV(315)+JVS(4537)*UV(317)+JVS(4546)*UV(328)+JVS(4551)*UV(333)+JVS(4552)*UV(334)+JVS(4553)*UV(335)&\n               &+JVS(4555)*UV(337)+JVS(4556)*UV(338)+JVS(4557)*UV(339)+JVS(4558)*UV(340)+JVS(4559)*UV(341)+JVS(4561)*UV(343)&\n               &+JVS(4563)*UV(345)+JVS(4564)*UV(346)+JVS(4565)*UV(347)\n  JUV(339) = JVS(4572)*UV(75)+JVS(4573)*UV(79)+JVS(4574)*UV(141)+JVS(4575)*UV(142)+JVS(4576)*UV(156)+JVS(4577)*UV(164)&\n               &+JVS(4578)*UV(166)+JVS(4579)*UV(179)+JVS(4580)*UV(181)+JVS(4581)*UV(183)+JVS(4582)*UV(214)+JVS(4583)*UV(218)&\n               &+JVS(4584)*UV(228)+JVS(4585)*UV(264)+JVS(4586)*UV(265)+JVS(4588)*UV(276)+JVS(4589)*UV(282)+JVS(4590)*UV(283)&\n               &+JVS(4592)*UV(290)+JVS(4594)*UV(295)+JVS(4596)*UV(297)+JVS(4613)*UV(316)+JVS(4614)*UV(317)+JVS(4622)*UV(325)&\n               &+JVS(4628)*UV(333)+JVS(4629)*UV(334)+JVS(4632)*UV(337)+JVS(4633)*UV(338)+JVS(4634)*UV(339)+JVS(4635)*UV(340)&\n               &+JVS(4640)*UV(345)+JVS(4643)*UV(348)\n  JUV(340) = JVS(4649)*UV(3)+JVS(4650)*UV(43)+JVS(4651)*UV(46)+JVS(4652)*UV(47)+JVS(4653)*UV(48)+JVS(4654)*UV(49)&\n               &+JVS(4655)*UV(50)+JVS(4656)*UV(51)+JVS(4657)*UV(61)+JVS(4658)*UV(75)+JVS(4659)*UV(76)+JVS(4660)*UV(79)&\n               &+JVS(4661)*UV(84)+JVS(4662)*UV(85)+JVS(4663)*UV(86)+JVS(4664)*UV(87)+JVS(4665)*UV(104)+JVS(4666)*UV(110)&\n               &+JVS(4667)*UV(141)+JVS(4668)*UV(142)+JVS(4669)*UV(156)+JVS(4670)*UV(157)+JVS(4671)*UV(164)+JVS(4672)*UV(181)&\n               &+JVS(4673)*UV(183)+JVS(4675)*UV(228)+JVS(4676)*UV(245)+JVS(4678)*UV(264)+JVS(4679)*UV(265)+JVS(4681)*UV(276)&\n               &+JVS(4682)*UV(282)+JVS(4683)*UV(283)+JVS(4684)*UV(284)+JVS(4686)*UV(290)+JVS(4688)*UV(295)+JVS(4689)*UV(296)&\n               &+JVS(4690)*UV(297)+JVS(4706)*UV(315)+JVS(4708)*UV(317)+JVS(4716)*UV(325)+JVS(4718)*UV(328)+JVS(4723)*UV(333)&\n               &+JVS(4724)*UV(334)+JVS(4727)*UV(337)+JVS(4728)*UV(338)+JVS(4729)*UV(339)+JVS(4730)*UV(340)+JVS(4731)*UV(341)&\n               &+JVS(4733)*UV(343)+JVS(4735)*UV(345)+JVS(4736)*UV(346)\n  JUV(341) = JVS(4744)*UV(109)+JVS(4745)*UV(140)+JVS(4746)*UV(166)+JVS(4747)*UV(167)+JVS(4748)*UV(179)+JVS(4749)*UV(191)&\n               &+JVS(4750)*UV(193)+JVS(4751)*UV(201)+JVS(4752)*UV(202)+JVS(4753)*UV(203)+JVS(4754)*UV(211)+JVS(4755)*UV(213)&\n               &+JVS(4756)*UV(217)+JVS(4757)*UV(219)+JVS(4758)*UV(220)+JVS(4759)*UV(221)+JVS(4761)*UV(229)+JVS(4763)*UV(235)&\n               &+JVS(4765)*UV(237)+JVS(4766)*UV(240)+JVS(4767)*UV(242)+JVS(4768)*UV(246)+JVS(4769)*UV(255)+JVS(4770)*UV(257)&\n               &+JVS(4771)*UV(259)+JVS(4772)*UV(262)+JVS(4774)*UV(274)+JVS(4776)*UV(276)+JVS(4781)*UV(290)+JVS(4784)*UV(308)&\n               &+JVS(4785)*UV(309)+JVS(4788)*UV(312)+JVS(4789)*UV(314)+JVS(4791)*UV(322)+JVS(4793)*UV(324)+JVS(4797)*UV(328)&\n               &+JVS(4799)*UV(331)+JVS(4801)*UV(334)+JVS(4802)*UV(335)+JVS(4804)*UV(337)+JVS(4807)*UV(340)+JVS(4808)*UV(341)&\n               &+JVS(4809)*UV(342)+JVS(4810)*UV(343)+JVS(4812)*UV(345)+JVS(4813)*UV(346)+JVS(4815)*UV(348)+JVS(4816)*UV(349)&\n               &+JVS(4817)*UV(350)+JVS(4819)*UV(352)\n  JUV(342) = JVS(4821)*UV(2)+JVS(4822)*UV(53)+JVS(4823)*UV(54)+JVS(4824)*UV(59)+JVS(4825)*UV(61)+JVS(4826)*UV(77)&\n               &+JVS(4827)*UV(78)+JVS(4828)*UV(81)+JVS(4829)*UV(105)+JVS(4830)*UV(141)+JVS(4831)*UV(148)+JVS(4832)*UV(157)&\n               &+JVS(4833)*UV(183)+JVS(4834)*UV(218)+JVS(4836)*UV(284)+JVS(4837)*UV(290)+JVS(4838)*UV(295)+JVS(4842)*UV(316)&\n               &+JVS(4849)*UV(325)+JVS(4850)*UV(326)+JVS(4854)*UV(331)+JVS(4857)*UV(334)+JVS(4858)*UV(335)+JVS(4860)*UV(337)&\n               &+JVS(4861)*UV(338)+JVS(4864)*UV(341)+JVS(4865)*UV(342)+JVS(4866)*UV(343)+JVS(4868)*UV(345)+JVS(4869)*UV(346)&\n               &+JVS(4870)*UV(347)+JVS(4874)*UV(351)+JVS(4875)*UV(352)\n  JUV(343) = JVS(4877)*UV(46)+JVS(4878)*UV(47)+JVS(4879)*UV(48)+JVS(4880)*UV(49)+JVS(4881)*UV(50)+JVS(4882)*UV(51)&\n               &+JVS(4883)*UV(53)+JVS(4884)*UV(54)+JVS(4885)*UV(61)+JVS(4886)*UV(67)+JVS(4887)*UV(68)+JVS(4888)*UV(78)&\n               &+JVS(4889)*UV(81)+JVS(4890)*UV(84)+JVS(4891)*UV(85)+JVS(4892)*UV(86)+JVS(4893)*UV(87)+JVS(4894)*UV(120)&\n               &+JVS(4895)*UV(181)+JVS(4896)*UV(217)+JVS(4898)*UV(245)+JVS(4899)*UV(264)+JVS(4901)*UV(284)+JVS(4906)*UV(316)&\n               &+JVS(4907)*UV(317)+JVS(4909)*UV(325)+JVS(4917)*UV(334)+JVS(4918)*UV(335)+JVS(4920)*UV(337)+JVS(4921)*UV(338)&\n               &+JVS(4922)*UV(339)+JVS(4924)*UV(341)+JVS(4926)*UV(343)+JVS(4928)*UV(345)+JVS(4929)*UV(346)+JVS(4930)*UV(347)&\n               &+JVS(4934)*UV(351)+JVS(4935)*UV(352)\n  JUV(344) = JVS(4937)*UV(166)+JVS(4938)*UV(214)+JVS(4939)*UV(252)+JVS(4940)*UV(297)+JVS(4941)*UV(316)+JVS(4942)*UV(317)&\n               &+JVS(4946)*UV(330)+JVS(4948)*UV(332)+JVS(4949)*UV(333)+JVS(4955)*UV(339)+JVS(4960)*UV(344)+JVS(4961)*UV(345)\n  JUV(345) = JVS(4970)*UV(41)+JVS(4971)*UV(43)+JVS(4972)*UV(52)+JVS(4973)*UV(58)+JVS(4974)*UV(60)+JVS(4975)*UV(66)&\n               &+JVS(4976)*UV(68)+JVS(4977)*UV(69)+JVS(4978)*UV(70)+JVS(4979)*UV(71)+JVS(4980)*UV(72)+JVS(4981)*UV(73)&\n               &+JVS(4982)*UV(74)+JVS(4983)*UV(75)+JVS(4984)*UV(76)+JVS(4985)*UV(78)+JVS(4986)*UV(79)+JVS(4987)*UV(81)&\n               &+JVS(4988)*UV(82)+JVS(4989)*UV(83)+JVS(4990)*UV(84)+JVS(4991)*UV(85)+JVS(4992)*UV(86)+JVS(4993)*UV(87)&\n               &+JVS(4994)*UV(88)+JVS(4995)*UV(89)+JVS(4996)*UV(90)+JVS(4997)*UV(91)+JVS(4998)*UV(92)+JVS(4999)*UV(93)&\n               &+JVS(5000)*UV(94)+JVS(5001)*UV(95)+JVS(5002)*UV(97)+JVS(5003)*UV(98)+JVS(5004)*UV(99)+JVS(5005)*UV(100)&\n               &+JVS(5006)*UV(101)+JVS(5007)*UV(102)+JVS(5008)*UV(105)+JVS(5009)*UV(107)+JVS(5010)*UV(108)+JVS(5011)*UV(109)&\n               &+JVS(5012)*UV(111)+JVS(5013)*UV(112)+JVS(5014)*UV(113)+JVS(5015)*UV(114)+JVS(5016)*UV(115)+JVS(5017)*UV(116)&\n               &+JVS(5018)*UV(117)+JVS(5019)*UV(118)+JVS(5020)*UV(119)+JVS(5021)*UV(120)+JVS(5022)*UV(122)+JVS(5023)*UV(123)&\n               &+JVS(5024)*UV(124)+JVS(5025)*UV(125)+JVS(5026)*UV(126)+JVS(5027)*UV(127)+JVS(5028)*UV(128)+JVS(5029)*UV(129)&\n               &+JVS(5030)*UV(130)+JVS(5031)*UV(131)+JVS(5032)*UV(133)+JVS(5033)*UV(134)+JVS(5034)*UV(135)+JVS(5035)*UV(136)&\n               &+JVS(5036)*UV(137)+JVS(5037)*UV(138)+JVS(5038)*UV(139)+JVS(5039)*UV(140)+JVS(5040)*UV(141)+JVS(5041)*UV(142)&\n               &+JVS(5042)*UV(143)+JVS(5043)*UV(144)+JVS(5044)*UV(146)+JVS(5045)*UV(147)+JVS(5046)*UV(148)+JVS(5047)*UV(149)&\n               &+JVS(5048)*UV(150)+JVS(5049)*UV(151)+JVS(5050)*UV(152)+JVS(5051)*UV(153)+JVS(5052)*UV(154)+JVS(5053)*UV(155)&\n               &+JVS(5054)*UV(156)+JVS(5055)*UV(158)+JVS(5056)*UV(159)+JVS(5057)*UV(160)+JVS(5058)*UV(161)+JVS(5059)*UV(162)&\n               &+JVS(5060)*UV(163)+JVS(5061)*UV(164)+JVS(5062)*UV(167)+JVS(5063)*UV(168)+JVS(5064)*UV(169)+JVS(5065)*UV(170)&\n               &+JVS(5066)*UV(171)+JVS(5067)*UV(172)+JVS(5068)*UV(173)+JVS(5069)*UV(174)+JVS(5070)*UV(175)+JVS(5071)*UV(176)&\n               &+JVS(5072)*UV(177)+JVS(5075)*UV(180)+JVS(5076)*UV(181)+JVS(5077)*UV(182)+JVS(5078)*UV(183)+JVS(5079)*UV(184)&\n               &+JVS(5080)*UV(185)+JVS(5081)*UV(186)+JVS(5082)*UV(187)+JVS(5083)*UV(188)+JVS(5084)*UV(189)+JVS(5085)*UV(190)&\n               &+JVS(5086)*UV(191)+JVS(5087)*UV(192)+JVS(5088)*UV(193)+JVS(5089)*UV(194)+JVS(5090)*UV(195)+JVS(5091)*UV(196)&\n               &+JVS(5092)*UV(197)+JVS(5093)*UV(198)+JVS(5094)*UV(199)+JVS(5095)*UV(200)+JVS(5096)*UV(201)+JVS(5097)*UV(202)&\n               &+JVS(5098)*UV(204)+JVS(5099)*UV(205)+JVS(5100)*UV(206)+JVS(5101)*UV(207)+JVS(5102)*UV(208)+JVS(5103)*UV(209)&\n               &+JVS(5104)*UV(210)+JVS(5105)*UV(211)+JVS(5107)*UV(213)+JVS(5108)*UV(216)+JVS(5109)*UV(217)+JVS(5111)*UV(219)&\n               &+JVS(5112)*UV(220)+JVS(5113)*UV(221)+JVS(5114)*UV(222)+JVS(5115)*UV(223)+JVS(5116)*UV(224)+JVS(5117)*UV(225)&\n               &+JVS(5118)*UV(226)+JVS(5119)*UV(228)+JVS(5120)*UV(229)+JVS(5121)*UV(230)+JVS(5122)*UV(231)+JVS(5123)*UV(232)&\n               &+JVS(5124)*UV(233)+JVS(5126)*UV(235)+JVS(5128)*UV(237)+JVS(5129)*UV(238)+JVS(5130)*UV(239)+JVS(5131)*UV(240)&\n               &+JVS(5133)*UV(242)+JVS(5134)*UV(243)+JVS(5135)*UV(244)+JVS(5136)*UV(245)+JVS(5137)*UV(246)+JVS(5138)*UV(247)&\n               &+JVS(5139)*UV(248)+JVS(5142)*UV(251)+JVS(5144)*UV(253)+JVS(5145)*UV(254)+JVS(5146)*UV(255)+JVS(5147)*UV(256)&\n               &+JVS(5148)*UV(257)+JVS(5149)*UV(258)+JVS(5150)*UV(259)+JVS(5152)*UV(261)+JVS(5153)*UV(262)+JVS(5154)*UV(263)&\n               &+JVS(5155)*UV(264)+JVS(5156)*UV(265)+JVS(5157)*UV(266)+JVS(5158)*UV(267)+JVS(5159)*UV(268)+JVS(5160)*UV(269)&\n               &+JVS(5161)*UV(270)+JVS(5162)*UV(271)+JVS(5165)*UV(274)+JVS(5167)*UV(276)+JVS(5170)*UV(279)+JVS(5173)*UV(282)&\n               &+JVS(5174)*UV(283)+JVS(5176)*UV(285)+JVS(5177)*UV(286)+JVS(5178)*UV(287)+JVS(5179)*UV(288)+JVS(5181)*UV(290)&\n               &+JVS(5183)*UV(292)+JVS(5184)*UV(293)+JVS(5185)*UV(294)+JVS(5186)*UV(295)+JVS(5188)*UV(297)+JVS(5189)*UV(298)&\n               &+JVS(5190)*UV(299)+JVS(5192)*UV(301)+JVS(5193)*UV(302)+JVS(5194)*UV(303)+JVS(5195)*UV(304)+JVS(5196)*UV(305)&\n               &+JVS(5197)*UV(306)+JVS(5198)*UV(307)+JVS(5199)*UV(308)+JVS(5200)*UV(309)+JVS(5201)*UV(310)+JVS(5204)*UV(313)&\n               &+JVS(5205)*UV(314)+JVS(5207)*UV(316)+JVS(5208)*UV(317)+JVS(5211)*UV(320)+JVS(5213)*UV(322)+JVS(5215)*UV(324)&\n               &+JVS(5216)*UV(325)+JVS(5217)*UV(326)+JVS(5218)*UV(327)+JVS(5219)*UV(328)+JVS(5220)*UV(329)+JVS(5221)*UV(330)&\n               &+JVS(5224)*UV(333)+JVS(5225)*UV(334)+JVS(5226)*UV(335)+JVS(5227)*UV(336)+JVS(5228)*UV(337)+JVS(5229)*UV(338)&\n               &+JVS(5230)*UV(339)+JVS(5231)*UV(340)+JVS(5232)*UV(341)+JVS(5234)*UV(343)+JVS(5235)*UV(344)+JVS(5236)*UV(345)&\n               &+JVS(5237)*UV(346)+JVS(5238)*UV(347)+JVS(5239)*UV(348)+JVS(5242)*UV(351)+JVS(5243)*UV(352)+JVS(5244)*UV(353)\n  JUV(346) = JVS(5245)*UV(62)+JVS(5246)*UV(63)+JVS(5247)*UV(67)+JVS(5248)*UV(96)+JVS(5249)*UV(121)+JVS(5250)*UV(132)&\n               &+JVS(5251)*UV(133)+JVS(5252)*UV(135)+JVS(5253)*UV(165)+JVS(5254)*UV(171)+JVS(5255)*UV(172)+JVS(5256)*UV(178)&\n               &+JVS(5257)*UV(180)+JVS(5258)*UV(182)+JVS(5259)*UV(189)+JVS(5260)*UV(190)+JVS(5262)*UV(197)+JVS(5264)*UV(205)&\n               &+JVS(5265)*UV(206)+JVS(5266)*UV(207)+JVS(5267)*UV(212)+JVS(5268)*UV(213)+JVS(5270)*UV(223)+JVS(5271)*UV(224)&\n               &+JVS(5272)*UV(226)+JVS(5275)*UV(232)+JVS(5277)*UV(234)+JVS(5278)*UV(235)+JVS(5279)*UV(236)+JVS(5280)*UV(239)&\n               &+JVS(5281)*UV(240)+JVS(5282)*UV(241)+JVS(5283)*UV(243)+JVS(5284)*UV(246)+JVS(5285)*UV(249)+JVS(5286)*UV(250)&\n               &+JVS(5288)*UV(253)+JVS(5289)*UV(254)+JVS(5290)*UV(257)+JVS(5291)*UV(259)+JVS(5292)*UV(260)+JVS(5293)*UV(263)&\n               &+JVS(5297)*UV(271)+JVS(5298)*UV(272)+JVS(5299)*UV(273)+JVS(5300)*UV(274)+JVS(5301)*UV(275)+JVS(5303)*UV(277)&\n               &+JVS(5304)*UV(278)+JVS(5306)*UV(280)+JVS(5307)*UV(281)+JVS(5308)*UV(284)+JVS(5309)*UV(285)+JVS(5310)*UV(286)&\n               &+JVS(5311)*UV(289)+JVS(5313)*UV(291)+JVS(5314)*UV(293)+JVS(5315)*UV(296)+JVS(5318)*UV(300)+JVS(5321)*UV(304)&\n               &+JVS(5322)*UV(305)+JVS(5324)*UV(308)+JVS(5326)*UV(310)+JVS(5327)*UV(311)+JVS(5328)*UV(312)+JVS(5329)*UV(313)&\n               &+JVS(5331)*UV(315)+JVS(5332)*UV(318)+JVS(5333)*UV(319)+JVS(5334)*UV(320)+JVS(5335)*UV(321)+JVS(5336)*UV(322)&\n               &+JVS(5337)*UV(323)+JVS(5338)*UV(324)+JVS(5341)*UV(328)+JVS(5344)*UV(331)+JVS(5346)*UV(334)+JVS(5347)*UV(335)&\n               &+JVS(5349)*UV(337)+JVS(5350)*UV(338)+JVS(5353)*UV(341)+JVS(5355)*UV(343)+JVS(5357)*UV(345)+JVS(5358)*UV(346)&\n               &+JVS(5359)*UV(347)+JVS(5363)*UV(351)\n  JUV(347) = JVS(5366)*UV(53)+JVS(5367)*UV(54)+JVS(5368)*UV(61)+JVS(5369)*UV(78)+JVS(5370)*UV(81)+JVS(5371)*UV(105)&\n               &+JVS(5372)*UV(218)+JVS(5373)*UV(284)+JVS(5374)*UV(316)+JVS(5376)*UV(331)+JVS(5378)*UV(334)+JVS(5379)*UV(335)&\n               &+JVS(5381)*UV(337)+JVS(5382)*UV(338)+JVS(5385)*UV(341)+JVS(5386)*UV(342)+JVS(5387)*UV(343)+JVS(5389)*UV(345)&\n               &+JVS(5390)*UV(346)+JVS(5391)*UV(347)+JVS(5395)*UV(351)+JVS(5396)*UV(352)\n  JUV(348) = JVS(5398)*UV(68)+JVS(5399)*UV(89)+JVS(5400)*UV(94)+JVS(5401)*UV(134)+JVS(5402)*UV(166)+JVS(5403)*UV(179)&\n               &+JVS(5404)*UV(241)+JVS(5405)*UV(264)+JVS(5408)*UV(312)+JVS(5410)*UV(316)+JVS(5412)*UV(325)+JVS(5418)*UV(333)&\n               &+JVS(5426)*UV(341)+JVS(5428)*UV(343)+JVS(5430)*UV(345)+JVS(5433)*UV(348)+JVS(5436)*UV(351)\n  JUV(349) = JVS(5439)*UV(252)+JVS(5440)*UV(297)+JVS(5441)*UV(316)+JVS(5442)*UV(317)+JVS(5443)*UV(330)+JVS(5445)*UV(332)&\n               &+JVS(5452)*UV(341)+JVS(5460)*UV(349)+JVS(5463)*UV(352)\n  JUV(350) = JVS(5465)*UV(252)+JVS(5466)*UV(297)+JVS(5467)*UV(316)+JVS(5468)*UV(317)+JVS(5469)*UV(330)+JVS(5471)*UV(332)&\n               &+JVS(5478)*UV(341)+JVS(5487)*UV(350)+JVS(5489)*UV(352)\n  JUV(351) = JVS(5491)*UV(69)+JVS(5492)*UV(80)+JVS(5493)*UV(94)+JVS(5494)*UV(108)+JVS(5495)*UV(124)+JVS(5496)*UV(126)&\n               &+JVS(5497)*UV(139)+JVS(5498)*UV(140)+JVS(5499)*UV(142)+JVS(5500)*UV(149)+JVS(5501)*UV(154)+JVS(5502)*UV(158)&\n               &+JVS(5503)*UV(163)+JVS(5504)*UV(167)+JVS(5505)*UV(170)+JVS(5506)*UV(183)+JVS(5507)*UV(184)+JVS(5508)*UV(191)&\n               &+JVS(5509)*UV(193)+JVS(5510)*UV(195)+JVS(5512)*UV(200)+JVS(5513)*UV(202)+JVS(5514)*UV(204)+JVS(5515)*UV(211)&\n               &+JVS(5516)*UV(213)+JVS(5517)*UV(214)+JVS(5518)*UV(218)+JVS(5519)*UV(219)+JVS(5520)*UV(220)+JVS(5521)*UV(225)&\n               &+JVS(5522)*UV(229)+JVS(5524)*UV(234)+JVS(5525)*UV(236)+JVS(5526)*UV(237)+JVS(5527)*UV(241)+JVS(5528)*UV(242)&\n               &+JVS(5531)*UV(255)+JVS(5532)*UV(256)+JVS(5533)*UV(257)+JVS(5535)*UV(261)+JVS(5536)*UV(262)+JVS(5537)*UV(263)&\n               &+JVS(5539)*UV(269)+JVS(5540)*UV(270)+JVS(5542)*UV(272)+JVS(5543)*UV(273)+JVS(5544)*UV(274)+JVS(5545)*UV(275)&\n               &+JVS(5546)*UV(276)+JVS(5547)*UV(277)+JVS(5548)*UV(278)+JVS(5549)*UV(280)+JVS(5550)*UV(281)+JVS(5554)*UV(289)&\n               &+JVS(5555)*UV(290)+JVS(5556)*UV(291)+JVS(5557)*UV(292)+JVS(5559)*UV(294)+JVS(5560)*UV(298)+JVS(5564)*UV(302)&\n               &+JVS(5568)*UV(306)+JVS(5570)*UV(308)+JVS(5571)*UV(309)+JVS(5572)*UV(310)+JVS(5573)*UV(311)+JVS(5574)*UV(312)&\n               &+JVS(5577)*UV(317)+JVS(5585)*UV(325)+JVS(5586)*UV(326)+JVS(5587)*UV(327)+JVS(5588)*UV(328)+JVS(5590)*UV(331)&\n               &+JVS(5591)*UV(332)+JVS(5593)*UV(335)+JVS(5595)*UV(337)+JVS(5598)*UV(340)+JVS(5599)*UV(341)+JVS(5600)*UV(342)&\n               &+JVS(5601)*UV(343)+JVS(5603)*UV(345)+JVS(5604)*UV(346)+JVS(5609)*UV(351)\n  JUV(352) = JVS(5612)*UV(141)+JVS(5613)*UV(183)+JVS(5614)*UV(290)+JVS(5615)*UV(295)+JVS(5616)*UV(297)+JVS(5619)*UV(316)&\n               &+JVS(5620)*UV(317)+JVS(5626)*UV(325)+JVS(5627)*UV(326)+JVS(5630)*UV(333)+JVS(5631)*UV(334)+JVS(5634)*UV(337)&\n               &+JVS(5638)*UV(341)+JVS(5639)*UV(342)+JVS(5640)*UV(343)+JVS(5642)*UV(345)+JVS(5645)*UV(348)+JVS(5649)*UV(352)\n  JUV(353) = JVS(5651)*UV(179)+JVS(5652)*UV(214)+JVS(5653)*UV(252)+JVS(5654)*UV(297)+JVS(5655)*UV(316)+JVS(5656)*UV(317)&\n               &+JVS(5660)*UV(330)+JVS(5662)*UV(332)+JVS(5663)*UV(333)+JVS(5669)*UV(339)+JVS(5675)*UV(345)+JVS(5683)*UV(353)\n      \nEND SUBROUTINE Jac_SP_Vec\n\n! End of Jac_SP_Vec function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! JacTR_SP_Vec - sparse multiplication: sparse Jacobian transposed times vector\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      UV        - User vector for variables\n!      JTUV      - Jacobian transposed times user vector\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! UV - User vector for variables\n  REAL(kind=dp) :: UV(NVAR)\n! JTUV - Jacobian transposed times user vector\n  REAL(kind=dp) :: JTUV(NVAR)\n\n  JTUV(1) = JVS(1)*UV(1)+JVS(3904)*UV(331)\n  JTUV(2) = JVS(2)*UV(2)+JVS(3905)*UV(331)+JVS(4821)*UV(342)\n  JTUV(3) = JVS(3)*UV(3)+JVS(3906)*UV(331)+JVS(4649)*UV(340)\n  JTUV(4) = JVS(4)*UV(4)\n  JTUV(5) = JVS(9)*UV(5)\n  JTUV(6) = JVS(11)*UV(6)\n  JTUV(7) = JVS(14)*UV(7)\n  JTUV(8) = JVS(83)*UV(8)\n  JTUV(9) = JVS(86)*UV(9)\n  JTUV(10) = JVS(94)*UV(10)\n  JTUV(11) = JVS(102)*UV(11)\n  JTUV(12) = JVS(105)*UV(12)\n  JTUV(13) = JVS(103)*UV(11)+JVS(106)*UV(12)+JVS(108)*UV(13)\n  JTUV(14) = JVS(113)*UV(14)\n  JTUV(15) = JVS(116)*UV(15)\n  JTUV(16) = JVS(119)*UV(16)\n  JTUV(17) = JVS(122)*UV(17)\n  JTUV(18) = JVS(120)*UV(16)+JVS(123)*UV(17)+JVS(125)*UV(18)\n  JTUV(19) = JVS(126)*UV(18)+JVS(130)*UV(19)\n  JTUV(20) = JVS(132)*UV(20)\n  JTUV(21) = JVS(135)*UV(21)\n  JTUV(22) = JVS(133)*UV(20)+JVS(136)*UV(21)+JVS(138)*UV(22)\n  JTUV(23) = JVS(143)*UV(23)\n  JTUV(24) = JVS(144)*UV(23)+JVS(145)*UV(24)\n  JTUV(25) = JVS(151)*UV(25)\n  JTUV(26) = JVS(154)*UV(26)\n  JTUV(27) = JVS(152)*UV(25)+JVS(155)*UV(26)+JVS(157)*UV(27)\n  JTUV(28) = JVS(162)*UV(28)\n  JTUV(29) = JVS(165)*UV(29)\n  JTUV(30) = JVS(169)*UV(30)\n  JTUV(31) = JVS(173)*UV(31)\n  JTUV(32) = JVS(179)*UV(32)\n  JTUV(33) = JVS(184)*UV(33)\n  JTUV(34) = JVS(188)*UV(34)\n  JTUV(35) = JVS(306)*UV(35)\n  JTUV(36) = JVS(432)*UV(36)\n  JTUV(37) = JVS(521)*UV(37)\n  JTUV(38) = JVS(526)*UV(38)\n  JTUV(39) = JVS(537)*UV(39)\n  JTUV(40) = JVS(542)*UV(40)\n  JTUV(41) = JVS(12)*UV(6)+JVS(551)*UV(41)+JVS(4970)*UV(345)\n  JTUV(42) = JVS(5)*UV(4)+JVS(87)*UV(9)+JVS(95)*UV(10)+JVS(307)*UV(35)+JVS(553)*UV(42)+JVS(722)*UV(96)\n  JTUV(43) = JVS(555)*UV(43)+JVS(4208)*UV(336)+JVS(4650)*UV(340)+JVS(4971)*UV(345)\n  JTUV(44) = JVS(6)*UV(4)+JVS(88)*UV(9)+JVS(96)*UV(10)+JVS(308)*UV(35)+JVS(557)*UV(44)+JVS(723)*UV(96)+JVS(2340)*UV(284)&\n               &+JVS(3907)*UV(331)\n  JTUV(45) = JVS(84)*UV(8)+JVS(189)*UV(34)+JVS(559)*UV(45)+JVS(3586)*UV(327)\n  JTUV(46) = JVS(563)*UV(46)+JVS(3984)*UV(334)+JVS(4517)*UV(338)+JVS(4651)*UV(340)+JVS(4877)*UV(343)\n  JTUV(47) = JVS(565)*UV(47)+JVS(3985)*UV(334)+JVS(4518)*UV(338)+JVS(4652)*UV(340)+JVS(4878)*UV(343)\n  JTUV(48) = JVS(567)*UV(48)+JVS(3986)*UV(334)+JVS(4519)*UV(338)+JVS(4653)*UV(340)+JVS(4879)*UV(343)\n  JTUV(49) = JVS(309)*UV(35)+JVS(569)*UV(49)+JVS(3987)*UV(334)+JVS(4520)*UV(338)+JVS(4654)*UV(340)+JVS(4880)*UV(343)\n  JTUV(50) = JVS(310)*UV(35)+JVS(571)*UV(50)+JVS(3988)*UV(334)+JVS(4521)*UV(338)+JVS(4655)*UV(340)+JVS(4881)*UV(343)\n  JTUV(51) = JVS(573)*UV(51)+JVS(3989)*UV(334)+JVS(4522)*UV(338)+JVS(4656)*UV(340)+JVS(4882)*UV(343)\n  JTUV(52) = JVS(575)*UV(52)+JVS(3689)*UV(328)+JVS(3908)*UV(331)+JVS(4209)*UV(336)+JVS(4972)*UV(345)\n  JTUV(53) = JVS(577)*UV(53)+JVS(3990)*UV(334)+JVS(4822)*UV(342)+JVS(4883)*UV(343)+JVS(5366)*UV(347)\n  JTUV(54) = JVS(579)*UV(54)+JVS(3991)*UV(334)+JVS(4823)*UV(342)+JVS(4884)*UV(343)+JVS(5367)*UV(347)\n  JTUV(55) = JVS(7)*UV(4)+JVS(89)*UV(9)+JVS(97)*UV(10)+JVS(311)*UV(35)+JVS(581)*UV(55)+JVS(724)*UV(96)+JVS(2341)*UV(284)\n  JTUV(56) = JVS(190)*UV(34)+JVS(584)*UV(56)+JVS(1881)*UV(257)+JVS(4034)*UV(335)\n  JTUV(57) = JVS(191)*UV(34)+JVS(587)*UV(57)+JVS(2166)*UV(274)+JVS(4035)*UV(335)\n  JTUV(58) = JVS(590)*UV(58)+JVS(849)*UV(121)+JVS(4973)*UV(345)\n  JTUV(59) = JVS(593)*UV(59)+JVS(4036)*UV(335)+JVS(4824)*UV(342)\n  JTUV(60) = JVS(433)*UV(36)+JVS(596)*UV(60)+JVS(2009)*UV(265)+JVS(2089)*UV(270)+JVS(3762)*UV(329)+JVS(4309)*UV(337)&\n               &+JVS(4974)*UV(345)\n  JTUV(61) = JVS(598)*UV(61)+JVS(3992)*UV(334)+JVS(4523)*UV(338)+JVS(4657)*UV(340)+JVS(4825)*UV(342)+JVS(4885)*UV(343)&\n               &+JVS(5368)*UV(347)\n  JTUV(62) = JVS(600)*UV(62)+JVS(1123)*UV(170)+JVS(3909)*UV(331)+JVS(5245)*UV(346)\n  JTUV(63) = JVS(192)*UV(34)+JVS(312)*UV(35)+JVS(603)*UV(63)+JVS(3993)*UV(334)+JVS(5246)*UV(346)\n  JTUV(64) = JVS(313)*UV(35)+JVS(607)*UV(64)+JVS(1661)*UV(239)+JVS(4037)*UV(335)\n  JTUV(65) = JVS(314)*UV(35)+JVS(611)*UV(65)+JVS(1662)*UV(239)+JVS(4038)*UV(335)\n  JTUV(66) = JVS(15)*UV(7)+JVS(615)*UV(66)+JVS(2216)*UV(278)+JVS(4975)*UV(345)\n  JTUV(67) = JVS(193)*UV(34)+JVS(604)*UV(63)+JVS(620)*UV(67)+JVS(4039)*UV(335)+JVS(4886)*UV(343)+JVS(5247)*UV(346)\n  JTUV(68) = JVS(16)*UV(7)+JVS(315)*UV(35)+JVS(434)*UV(36)+JVS(623)*UV(68)+JVS(3763)*UV(329)+JVS(4887)*UV(343)+JVS(4976)&\n               &*UV(345)+JVS(5398)*UV(348)\n  JTUV(69) = JVS(316)*UV(35)+JVS(626)*UV(69)+JVS(1180)*UV(178)+JVS(3587)*UV(327)+JVS(4977)*UV(345)+JVS(5491)*UV(351)\n  JTUV(70) = JVS(194)*UV(34)+JVS(629)*UV(70)+JVS(2850)*UV(306)+JVS(4040)*UV(335)+JVS(4978)*UV(345)\n  JTUV(71) = JVS(17)*UV(7)+JVS(633)*UV(71)+JVS(1615)*UV(235)+JVS(1627)*UV(236)+JVS(4979)*UV(345)\n  JTUV(72) = JVS(637)*UV(72)+JVS(3400)*UV(325)+JVS(4310)*UV(337)+JVS(4980)*UV(345)\n  JTUV(73) = JVS(8)*UV(4)+JVS(90)*UV(9)+JVS(98)*UV(10)+JVS(641)*UV(73)+JVS(3910)*UV(331)+JVS(4210)*UV(336)+JVS(4981)&\n               &*UV(345)\n  JTUV(74) = JVS(18)*UV(7)+JVS(645)*UV(74)+JVS(1882)*UV(257)+JVS(2217)*UV(278)+JVS(4982)*UV(345)\n  JTUV(75) = JVS(435)*UV(36)+JVS(649)*UV(75)+JVS(3764)*UV(329)+JVS(4311)*UV(337)+JVS(4572)*UV(339)+JVS(4658)*UV(340)&\n               &+JVS(4983)*UV(345)\n  JTUV(76) = JVS(317)*UV(35)+JVS(652)*UV(76)+JVS(794)*UV(110)+JVS(3952)*UV(333)+JVS(4524)*UV(338)+JVS(4659)*UV(340)&\n               &+JVS(4984)*UV(345)\n  JTUV(77) = JVS(655)*UV(77)+JVS(3911)*UV(331)+JVS(4826)*UV(342)\n  JTUV(78) = JVS(661)*UV(78)+JVS(3995)*UV(334)+JVS(4827)*UV(342)+JVS(4888)*UV(343)+JVS(4985)*UV(345)+JVS(5369)*UV(347)\n  JTUV(79) = JVS(436)*UV(36)+JVS(664)*UV(79)+JVS(3765)*UV(329)+JVS(4312)*UV(337)+JVS(4573)*UV(339)+JVS(4660)*UV(340)&\n               &+JVS(4986)*UV(345)\n  JTUV(80) = JVS(195)*UV(34)+JVS(667)*UV(80)+JVS(3401)*UV(325)+JVS(3690)*UV(328)+JVS(4041)*UV(335)+JVS(4313)*UV(337)&\n               &+JVS(5492)*UV(351)\n  JTUV(81) = JVS(670)*UV(81)+JVS(3996)*UV(334)+JVS(4828)*UV(342)+JVS(4889)*UV(343)+JVS(4987)*UV(345)+JVS(5370)*UV(347)\n  JTUV(82) = JVS(139)*UV(22)+JVS(437)*UV(36)+JVS(673)*UV(82)+JVS(1059)*UV(158)+JVS(1315)*UV(201)+JVS(1348)*UV(204)&\n               &+JVS(1495)*UV(221)+JVS(1959)*UV(263)+JVS(2090)*UV(270)+JVS(2534)*UV(294)+JVS(3092)*UV(314)+JVS(3766)*UV(329)&\n               &+JVS(4314)*UV(337)+JVS(4988)*UV(345)\n  JTUV(83) = JVS(196)*UV(34)+JVS(675)*UV(83)+JVS(3544)*UV(326)+JVS(4042)*UV(335)+JVS(4315)*UV(337)+JVS(4989)*UV(345)\n  JTUV(84) = JVS(679)*UV(84)+JVS(3997)*UV(334)+JVS(4211)*UV(336)+JVS(4525)*UV(338)+JVS(4661)*UV(340)+JVS(4890)*UV(343)&\n               &+JVS(4990)*UV(345)\n  JTUV(85) = JVS(682)*UV(85)+JVS(3998)*UV(334)+JVS(4212)*UV(336)+JVS(4526)*UV(338)+JVS(4662)*UV(340)+JVS(4891)*UV(343)&\n               &+JVS(4991)*UV(345)\n  JTUV(86) = JVS(685)*UV(86)+JVS(3999)*UV(334)+JVS(4213)*UV(336)+JVS(4527)*UV(338)+JVS(4663)*UV(340)+JVS(4892)*UV(343)&\n               &+JVS(4992)*UV(345)\n  JTUV(87) = JVS(318)*UV(35)+JVS(688)*UV(87)+JVS(4000)*UV(334)+JVS(4214)*UV(336)+JVS(4528)*UV(338)+JVS(4664)*UV(340)&\n               &+JVS(4893)*UV(343)+JVS(4993)*UV(345)\n  JTUV(88) = JVS(691)*UV(88)+JVS(2010)*UV(265)+JVS(3402)*UV(325)+JVS(4316)*UV(337)+JVS(4994)*UV(345)\n  JTUV(89) = JVS(185)*UV(33)+JVS(527)*UV(38)+JVS(695)*UV(89)+JVS(918)*UV(134)+JVS(3403)*UV(325)+JVS(4995)*UV(345)&\n               &+JVS(5399)*UV(348)\n  JTUV(90) = JVS(19)*UV(7)+JVS(197)*UV(34)+JVS(699)*UV(90)+JVS(827)*UV(117)+JVS(1616)*UV(235)+JVS(4043)*UV(335)&\n               &+JVS(4996)*UV(345)\n  JTUV(91) = JVS(198)*UV(34)+JVS(703)*UV(91)+JVS(2597)*UV(295)+JVS(4044)*UV(335)+JVS(4317)*UV(337)+JVS(4997)*UV(345)\n  JTUV(92) = JVS(20)*UV(7)+JVS(707)*UV(92)+JVS(3312)*UV(324)+JVS(3404)*UV(325)+JVS(3691)*UV(328)+JVS(4998)*UV(345)\n  JTUV(93) = JVS(199)*UV(34)+JVS(711)*UV(93)+JVS(3405)*UV(325)+JVS(4045)*UV(335)+JVS(4318)*UV(337)+JVS(4999)*UV(345)\n  JTUV(94) = JVS(163)*UV(28)+JVS(319)*UV(35)+JVS(715)*UV(94)+JVS(3406)*UV(325)+JVS(3588)*UV(327)+JVS(3692)*UV(328)&\n               &+JVS(5000)*UV(345)+JVS(5400)*UV(348)+JVS(5493)*UV(351)\n  JTUV(95) = JVS(200)*UV(34)+JVS(718)*UV(95)+JVS(2664)*UV(298)+JVS(4046)*UV(335)+JVS(4319)*UV(337)+JVS(5001)*UV(345)\n  JTUV(96) = JVS(320)*UV(35)+JVS(554)*UV(42)+JVS(582)*UV(55)+JVS(725)*UV(96)+JVS(2342)*UV(284)+JVS(3912)*UV(331)&\n               &+JVS(4047)*UV(335)+JVS(5248)*UV(346)\n  JTUV(97) = JVS(729)*UV(97)+JVS(2665)*UV(298)+JVS(3190)*UV(319)+JVS(4320)*UV(337)+JVS(5002)*UV(345)\n  JTUV(98) = JVS(733)*UV(98)+JVS(1181)*UV(178)+JVS(2666)*UV(298)+JVS(4321)*UV(337)+JVS(5003)*UV(345)\n  JTUV(99) = JVS(737)*UV(99)+JVS(2667)*UV(298)+JVS(3232)*UV(321)+JVS(4322)*UV(337)+JVS(5004)*UV(345)\n  JTUV(100) = JVS(741)*UV(100)+JVS(2598)*UV(295)+JVS(3288)*UV(323)+JVS(4323)*UV(337)+JVS(5005)*UV(345)\n  JTUV(101) = JVS(158)*UV(27)+JVS(438)*UV(36)+JVS(745)*UV(101)+JVS(1060)*UV(158)+JVS(1143)*UV(173)+JVS(1316)*UV(201)&\n                &+JVS(1349)*UV(204)+JVS(1496)*UV(221)+JVS(1960)*UV(263)+JVS(2091)*UV(270)+JVS(2535)*UV(294)+JVS(3093)&\n                &*UV(314)+JVS(3767)*UV(329)+JVS(4324)*UV(337)+JVS(5006)*UV(345)\n  JTUV(102) = JVS(747)*UV(102)+JVS(2668)*UV(298)+JVS(2739)*UV(300)+JVS(4325)*UV(337)+JVS(5007)*UV(345)\n  JTUV(103) = JVS(85)*UV(8)+JVS(201)*UV(34)+JVS(751)*UV(103)+JVS(3589)*UV(327)\n  JTUV(104) = JVS(765)*UV(104)+JVS(3913)*UV(331)+JVS(4665)*UV(340)\n  JTUV(105) = JVS(321)*UV(35)+JVS(773)*UV(105)+JVS(3693)*UV(328)+JVS(4001)*UV(334)+JVS(4215)*UV(336)+JVS(4326)*UV(337)&\n                &+JVS(4829)*UV(342)+JVS(5008)*UV(345)+JVS(5371)*UV(347)\n  JTUV(106) = JVS(776)*UV(106)+JVS(2851)*UV(306)+JVS(3407)*UV(325)+JVS(4327)*UV(337)\n  JTUV(107) = JVS(174)*UV(31)+JVS(439)*UV(36)+JVS(782)*UV(107)+JVS(2011)*UV(265)+JVS(2536)*UV(294)+JVS(3313)*UV(324)&\n                &+JVS(3768)*UV(329)+JVS(5009)*UV(345)\n  JTUV(108) = JVS(202)*UV(34)+JVS(786)*UV(108)+JVS(4048)*UV(335)+JVS(4216)*UV(336)+JVS(4328)*UV(337)+JVS(5010)*UV(345)&\n                &+JVS(5494)*UV(351)\n  JTUV(109) = JVS(322)*UV(35)+JVS(790)*UV(109)+JVS(1604)*UV(234)+JVS(3038)*UV(312)+JVS(3408)*UV(325)+JVS(4744)*UV(341)&\n                &+JVS(5011)*UV(345)\n  JTUV(110) = JVS(203)*UV(34)+JVS(795)*UV(110)+JVS(1739)*UV(245)+JVS(4529)*UV(338)+JVS(4666)*UV(340)\n  JTUV(111) = JVS(801)*UV(111)+JVS(1528)*UV(225)+JVS(1883)*UV(257)+JVS(2205)*UV(277)+JVS(4329)*UV(337)+JVS(5012)*UV(345)\n  JTUV(112) = JVS(805)*UV(112)+JVS(885)*UV(129)+JVS(2189)*UV(275)+JVS(3409)*UV(325)+JVS(4330)*UV(337)+JVS(5013)*UV(345)\n  JTUV(113) = JVS(204)*UV(34)+JVS(440)*UV(36)+JVS(809)*UV(113)+JVS(1753)*UV(246)+JVS(2852)*UV(306)+JVS(3769)*UV(329)&\n                &+JVS(4049)*UV(335)+JVS(5014)*UV(345)\n  JTUV(114) = JVS(205)*UV(34)+JVS(441)*UV(36)+JVS(813)*UV(114)+JVS(1417)*UV(213)+JVS(3410)*UV(325)+JVS(3770)*UV(329)&\n                &+JVS(4050)*UV(335)+JVS(5015)*UV(345)\n  JTUV(115) = JVS(21)*UV(7)+JVS(170)*UV(30)+JVS(817)*UV(115)+JVS(3314)*UV(324)+JVS(4331)*UV(337)+JVS(5016)*UV(345)\n  JTUV(116) = JVS(206)*UV(34)+JVS(823)*UV(116)+JVS(1350)*UV(204)+JVS(4051)*UV(335)+JVS(4217)*UV(336)+JVS(4332)*UV(337)&\n                &+JVS(5017)*UV(345)\n  JTUV(117) = JVS(828)*UV(117)+JVS(1332)*UV(203)+JVS(1628)*UV(236)+JVS(5018)*UV(345)\n  JTUV(118) = JVS(834)*UV(118)+JVS(3121)*UV(315)+JVS(3545)*UV(326)+JVS(4333)*UV(337)+JVS(5019)*UV(345)\n  JTUV(119) = JVS(442)*UV(36)+JVS(839)*UV(119)+JVS(1217)*UV(185)+JVS(3771)*UV(329)+JVS(4334)*UV(337)+JVS(5020)*UV(345)\n  JTUV(120) = JVS(323)*UV(35)+JVS(844)*UV(120)+JVS(3953)*UV(333)+JVS(4530)*UV(338)+JVS(4894)*UV(343)+JVS(5021)*UV(345)\n  JTUV(121) = JVS(207)*UV(34)+JVS(850)*UV(121)+JVS(982)*UV(146)+JVS(4052)*UV(335)+JVS(4335)*UV(337)+JVS(5249)*UV(346)\n  JTUV(122) = JVS(208)*UV(34)+JVS(443)*UV(36)+JVS(855)*UV(122)+JVS(1682)*UV(240)+JVS(3315)*UV(324)+JVS(3411)*UV(325)&\n                &+JVS(3772)*UV(329)+JVS(4053)*UV(335)+JVS(5022)*UV(345)\n  JTUV(123) = JVS(859)*UV(123)+JVS(1920)*UV(260)+JVS(2908)*UV(307)+JVS(3412)*UV(325)+JVS(3546)*UV(326)+JVS(4336)*UV(337)&\n                &+JVS(5023)*UV(345)\n  JTUV(124) = JVS(209)*UV(34)+JVS(444)*UV(36)+JVS(863)*UV(124)+JVS(3256)*UV(322)+JVS(3547)*UV(326)+JVS(3773)*UV(329)&\n                &+JVS(4054)*UV(335)+JVS(5024)*UV(345)+JVS(5495)*UV(351)\n  JTUV(125) = JVS(867)*UV(125)+JVS(1760)*UV(247)+JVS(1804)*UV(250)+JVS(2669)*UV(298)+JVS(4055)*UV(335)+JVS(4337)*UV(337)&\n                &+JVS(5025)*UV(345)\n  JTUV(126) = JVS(210)*UV(34)+JVS(445)*UV(36)+JVS(871)*UV(126)+JVS(1294)*UV(197)+JVS(2853)*UV(306)+JVS(3774)*UV(329)&\n                &+JVS(4056)*UV(335)+JVS(5026)*UV(345)+JVS(5496)*UV(351)\n  JTUV(127) = JVS(211)*UV(34)+JVS(446)*UV(36)+JVS(875)*UV(127)+JVS(2854)*UV(306)+JVS(3413)*UV(325)+JVS(3775)*UV(329)&\n                &+JVS(4057)*UV(335)+JVS(4338)*UV(337)+JVS(5027)*UV(345)\n  JTUV(128) = JVS(175)*UV(31)+JVS(879)*UV(128)+JVS(1432)*UV(215)+JVS(1711)*UV(243)+JVS(4339)*UV(337)+JVS(5028)*UV(345)\n  JTUV(129) = JVS(886)*UV(129)+JVS(2153)*UV(273)+JVS(5029)*UV(345)\n  JTUV(130) = JVS(22)*UV(7)+JVS(897)*UV(130)+JVS(2670)*UV(298)+JVS(3191)*UV(319)+JVS(3316)*UV(324)+JVS(3414)*UV(325)&\n                &+JVS(5030)*UV(345)\n  JTUV(131) = JVS(902)*UV(131)+JVS(1377)*UV(208)+JVS(1546)*UV(227)+JVS(4340)*UV(337)+JVS(5031)*UV(345)\n  JTUV(132) = JVS(212)*UV(34)+JVS(447)*UV(36)+JVS(908)*UV(132)+JVS(2855)*UV(306)+JVS(3776)*UV(329)+JVS(4058)*UV(335)&\n                &+JVS(4341)*UV(337)+JVS(5250)*UV(346)\n  JTUV(133) = JVS(23)*UV(7)+JVS(213)*UV(34)+JVS(913)*UV(133)+JVS(3094)*UV(314)+JVS(4059)*UV(335)+JVS(4342)*UV(337)&\n                &+JVS(5032)*UV(345)+JVS(5251)*UV(346)\n  JTUV(134) = JVS(919)*UV(134)+JVS(5033)*UV(345)+JVS(5401)*UV(348)\n  JTUV(135) = JVS(24)*UV(7)+JVS(214)*UV(34)+JVS(930)*UV(135)+JVS(2991)*UV(309)+JVS(4060)*UV(335)+JVS(4343)*UV(337)&\n                &+JVS(5034)*UV(345)+JVS(5252)*UV(346)\n  JTUV(136) = JVS(777)*UV(106)+JVS(935)*UV(136)+JVS(1605)*UV(234)+JVS(2856)*UV(306)+JVS(5035)*UV(345)\n  JTUV(137) = JVS(215)*UV(34)+JVS(940)*UV(137)+JVS(1165)*UV(176)+JVS(1529)*UV(225)+JVS(1961)*UV(263)+JVS(3416)*UV(325)&\n                &+JVS(4061)*UV(335)+JVS(4345)*UV(337)+JVS(5036)*UV(345)\n  JTUV(138) = JVS(216)*UV(34)+JVS(887)*UV(129)+JVS(944)*UV(138)+JVS(1080)*UV(162)+JVS(1962)*UV(263)+JVS(3417)*UV(325)&\n                &+JVS(4062)*UV(335)+JVS(4346)*UV(337)+JVS(5037)*UV(345)\n  JTUV(139) = JVS(25)*UV(7)+JVS(217)*UV(34)+JVS(448)*UV(36)+JVS(948)*UV(139)+JVS(3317)*UV(324)+JVS(3418)*UV(325)&\n                &+JVS(3694)*UV(328)+JVS(3777)*UV(329)+JVS(4063)*UV(335)+JVS(5038)*UV(345)+JVS(5497)*UV(351)\n  JTUV(140) = JVS(324)*UV(35)+JVS(952)*UV(140)+JVS(1410)*UV(212)+JVS(1596)*UV(233)+JVS(3419)*UV(325)+JVS(4064)*UV(335)&\n                &+JVS(4745)*UV(341)+JVS(5039)*UV(345)+JVS(5498)*UV(351)\n  JTUV(141) = JVS(956)*UV(141)+JVS(3233)*UV(321)+JVS(3289)*UV(323)+JVS(4574)*UV(339)+JVS(4667)*UV(340)+JVS(4830)*UV(342)&\n                &+JVS(5040)*UV(345)+JVS(5612)*UV(352)\n  JTUV(142) = JVS(325)*UV(35)+JVS(960)*UV(142)+JVS(2740)*UV(300)+JVS(3192)*UV(319)+JVS(3590)*UV(327)+JVS(4575)*UV(339)&\n                &+JVS(4668)*UV(340)+JVS(5041)*UV(345)+JVS(5499)*UV(351)\n  JTUV(143) = JVS(109)*UV(13)+JVS(449)*UV(36)+JVS(964)*UV(143)+JVS(1281)*UV(195)+JVS(1497)*UV(221)+JVS(1963)*UV(263)&\n                &+JVS(2092)*UV(270)+JVS(3778)*UV(329)+JVS(4347)*UV(337)+JVS(5042)*UV(345)\n  JTUV(144) = JVS(450)*UV(36)+JVS(968)*UV(144)+JVS(1433)*UV(215)+JVS(2394)*UV(287)+JVS(2992)*UV(309)+JVS(3779)*UV(329)&\n                &+JVS(4348)*UV(337)+JVS(5043)*UV(345)\n  JTUV(145) = JVS(973)*UV(145)+JVS(2520)*UV(293)+JVS(2751)*UV(301)+JVS(4349)*UV(337)\n  JTUV(146) = JVS(451)*UV(36)+JVS(983)*UV(146)+JVS(1683)*UV(240)+JVS(3318)*UV(324)+JVS(3420)*UV(325)+JVS(3780)*UV(329)&\n                &+JVS(4350)*UV(337)+JVS(5044)*UV(345)\n  JTUV(147) = JVS(452)*UV(36)+JVS(988)*UV(147)+JVS(1218)*UV(185)+JVS(1378)*UV(208)+JVS(1547)*UV(227)+JVS(2354)*UV(285)&\n                &+JVS(2374)*UV(286)+JVS(3781)*UV(329)+JVS(4351)*UV(337)+JVS(5045)*UV(345)\n  JTUV(148) = JVS(218)*UV(34)+JVS(992)*UV(148)+JVS(3146)*UV(316)+JVS(4831)*UV(342)+JVS(5046)*UV(345)\n  JTUV(149) = JVS(326)*UV(35)+JVS(1001)*UV(149)+JVS(1061)*UV(158)+JVS(1247)*UV(189)+JVS(1317)*UV(201)+JVS(1351)*UV(204)&\n                &+JVS(1498)*UV(221)+JVS(1964)*UV(263)+JVS(3421)*UV(325)+JVS(3548)*UV(326)+JVS(3591)*UV(327)+JVS(4352)&\n                &*UV(337)+JVS(5047)*UV(345)+JVS(5500)*UV(351)\n  JTUV(150) = JVS(453)*UV(36)+JVS(1004)*UV(150)+JVS(1434)*UV(215)+JVS(2428)*UV(288)+JVS(3095)*UV(314)+JVS(3782)*UV(329)&\n                &+JVS(4353)*UV(337)+JVS(5048)*UV(345)\n  JTUV(151) = JVS(176)*UV(31)+JVS(1009)*UV(151)+JVS(1435)*UV(215)+JVS(2355)*UV(285)+JVS(2375)*UV(286)+JVS(4354)*UV(337)&\n                &+JVS(5049)*UV(345)\n  JTUV(152) = JVS(177)*UV(31)+JVS(1015)*UV(152)+JVS(1436)*UV(215)+JVS(2356)*UV(285)+JVS(2376)*UV(286)+JVS(4355)*UV(337)&\n                &+JVS(5050)*UV(345)\n  JTUV(153) = JVS(454)*UV(36)+JVS(1021)*UV(153)+JVS(1548)*UV(227)+JVS(2909)*UV(307)+JVS(3783)*UV(329)+JVS(4356)*UV(337)&\n                &+JVS(5051)*UV(345)\n  JTUV(154) = JVS(219)*UV(34)+JVS(327)*UV(35)+JVS(560)*UV(45)+JVS(1027)*UV(154)+JVS(2910)*UV(307)+JVS(4065)*UV(335)&\n                &+JVS(5052)*UV(345)+JVS(5501)*UV(351)\n  JTUV(155) = JVS(1033)*UV(155)+JVS(3257)*UV(322)+JVS(3549)*UV(326)+JVS(3695)*UV(328)+JVS(4357)*UV(337)+JVS(5053)&\n                &*UV(345)\n  JTUV(156) = JVS(1039)*UV(156)+JVS(3550)*UV(326)+JVS(4358)*UV(337)+JVS(4576)*UV(339)+JVS(4669)*UV(340)+JVS(5054)&\n                &*UV(345)\n  JTUV(157) = JVS(1045)*UV(157)+JVS(4670)*UV(340)+JVS(4832)*UV(342)\n  JTUV(158) = JVS(328)*UV(35)+JVS(1062)*UV(158)+JVS(1318)*UV(201)+JVS(1324)*UV(202)+JVS(1333)*UV(203)+JVS(1965)*UV(263)&\n                &+JVS(2073)*UV(269)+JVS(3593)*UV(327)+JVS(4359)*UV(337)+JVS(5055)*UV(345)+JVS(5502)*UV(351)\n  JTUV(159) = JVS(26)*UV(7)+JVS(455)*UV(36)+JVS(783)*UV(107)+JVS(1066)*UV(159)+JVS(1910)*UV(259)+JVS(2911)*UV(307)&\n                &+JVS(3319)*UV(324)+JVS(3422)*UV(325)+JVS(3696)*UV(328)+JVS(3784)*UV(329)+JVS(5056)*UV(345)\n  JTUV(160) = JVS(1070)*UV(160)+JVS(1966)*UV(263)+JVS(2218)*UV(278)+JVS(2490)*UV(292)+JVS(2599)*UV(295)+JVS(3258)&\n                &*UV(322)+JVS(3423)*UV(325)+JVS(5057)*UV(345)\n  JTUV(161) = JVS(1075)*UV(161)+JVS(2155)*UV(273)+JVS(2167)*UV(274)+JVS(2600)*UV(295)+JVS(2671)*UV(298)+JVS(3193)&\n                &*UV(319)+JVS(4360)*UV(337)+JVS(5058)*UV(345)\n  JTUV(162) = JVS(220)*UV(34)+JVS(1081)*UV(162)+JVS(1859)*UV(256)+JVS(2168)*UV(274)+JVS(2601)*UV(295)+JVS(2672)*UV(298)&\n                &+JVS(3194)*UV(319)+JVS(4066)*UV(335)+JVS(5059)*UV(345)\n  JTUV(163) = JVS(329)*UV(35)+JVS(1086)*UV(163)+JVS(2169)*UV(274)+JVS(4067)*UV(335)+JVS(5060)*UV(345)+JVS(5503)*UV(351)\n  JTUV(164) = JVS(1094)*UV(164)+JVS(3424)*UV(325)+JVS(3697)*UV(328)+JVS(4218)*UV(336)+JVS(4361)*UV(337)+JVS(4577)&\n                &*UV(339)+JVS(4671)*UV(340)+JVS(5061)*UV(345)\n  JTUV(165) = JVS(221)*UV(34)+JVS(1099)*UV(165)+JVS(1287)*UV(196)+JVS(2673)*UV(298)+JVS(3425)*UV(325)+JVS(3551)*UV(326)&\n                &+JVS(4068)*UV(335)+JVS(4362)*UV(337)+JVS(5253)*UV(346)\n  JTUV(166) = JVS(166)*UV(29)+JVS(330)*UV(35)+JVS(612)*UV(65)+JVS(1104)*UV(166)+JVS(3594)*UV(327)+JVS(4578)*UV(339)&\n                &+JVS(4746)*UV(341)+JVS(4937)*UV(344)+JVS(5402)*UV(348)\n  JTUV(167) = JVS(331)*UV(35)+JVS(456)*UV(36)+JVS(1109)*UV(167)+JVS(1849)*UV(255)+JVS(1967)*UV(263)+JVS(2170)*UV(274)&\n                &+JVS(2240)*UV(280)+JVS(2256)*UV(281)+JVS(2461)*UV(289)+JVS(3785)*UV(329)+JVS(4747)*UV(341)+JVS(5062)&\n                &*UV(345)+JVS(5504)*UV(351)\n  JTUV(168) = JVS(332)*UV(35)+JVS(752)*UV(103)+JVS(1010)*UV(151)+JVS(1016)*UV(152)+JVS(1113)*UV(168)+JVS(1255)*UV(190)&\n                &+JVS(2993)*UV(309)+JVS(3426)*UV(325)+JVS(4070)*UV(335)+JVS(4363)*UV(337)+JVS(5063)*UV(345)\n  JTUV(169) = JVS(27)*UV(7)+JVS(1117)*UV(169)+JVS(2171)*UV(274)+JVS(2674)*UV(298)+JVS(3195)*UV(319)+JVS(3320)*UV(324)&\n                &+JVS(3427)*UV(325)+JVS(5064)*UV(345)\n  JTUV(170) = JVS(222)*UV(34)+JVS(1124)*UV(170)+JVS(3885)*UV(330)+JVS(3914)*UV(331)+JVS(3933)*UV(332)+JVS(5065)*UV(345)&\n                &+JVS(5505)*UV(351)\n  JTUV(171) = JVS(223)*UV(34)+JVS(1131)*UV(171)+JVS(1838)*UV(254)+JVS(2768)*UV(302)+JVS(4071)*UV(335)+JVS(4364)*UV(337)&\n                &+JVS(5066)*UV(345)+JVS(5254)*UV(346)\n  JTUV(172) = JVS(224)*UV(34)+JVS(1137)*UV(172)+JVS(1782)*UV(248)+JVS(1827)*UV(253)+JVS(4072)*UV(335)+JVS(4365)*UV(337)&\n                &+JVS(5067)*UV(345)+JVS(5255)*UV(346)\n  JTUV(173) = JVS(28)*UV(7)+JVS(1144)*UV(173)+JVS(2629)*UV(296)+JVS(4219)*UV(336)+JVS(5068)*UV(345)\n  JTUV(174) = JVS(1155)*UV(174)+JVS(1301)*UV(198)+JVS(1895)*UV(258)+JVS(2857)*UV(306)+JVS(2912)*UV(307)+JVS(4366)&\n                &*UV(337)+JVS(5069)*UV(345)\n  JTUV(175) = JVS(333)*UV(35)+JVS(753)*UV(103)+JVS(1011)*UV(151)+JVS(1017)*UV(152)+JVS(1161)*UV(175)+JVS(1361)*UV(205)&\n                &+JVS(3096)*UV(314)+JVS(3428)*UV(325)+JVS(4073)*UV(335)+JVS(4367)*UV(337)+JVS(5070)*UV(345)\n  JTUV(176) = JVS(225)*UV(34)+JVS(1166)*UV(176)+JVS(1860)*UV(256)+JVS(1968)*UV(263)+JVS(2491)*UV(292)+JVS(2602)*UV(295)&\n                &+JVS(3259)*UV(322)+JVS(3429)*UV(325)+JVS(4074)*UV(335)+JVS(5071)*UV(345)\n  JTUV(177) = JVS(226)*UV(34)+JVS(1171)*UV(177)+JVS(1861)*UV(256)+JVS(2172)*UV(274)+JVS(4075)*UV(335)+JVS(5072)*UV(345)\n  JTUV(178) = JVS(227)*UV(34)+JVS(734)*UV(98)+JVS(1182)*UV(178)+JVS(1288)*UV(196)+JVS(2492)*UV(292)+JVS(2675)*UV(298)&\n                &+JVS(3196)*UV(319)+JVS(4076)*UV(335)+JVS(4368)*UV(337)+JVS(5256)*UV(346)\n  JTUV(179) = JVS(334)*UV(35)+JVS(528)*UV(38)+JVS(608)*UV(64)+JVS(920)*UV(134)+JVS(1187)*UV(179)+JVS(3597)*UV(327)&\n                &+JVS(4579)*UV(339)+JVS(4748)*UV(341)+JVS(5403)*UV(348)+JVS(5651)*UV(353)\n  JTUV(180) = JVS(228)*UV(34)+JVS(1192)*UV(180)+JVS(1761)*UV(247)+JVS(1930)*UV(261)+JVS(2717)*UV(299)+JVS(2858)*UV(306)&\n                &+JVS(4078)*UV(335)+JVS(4369)*UV(337)+JVS(5075)*UV(345)+JVS(5257)*UV(346)\n  JTUV(181) = JVS(335)*UV(35)+JVS(457)*UV(36)+JVS(1197)*UV(181)+JVS(1469)*UV(217)+JVS(3698)*UV(328)+JVS(3786)*UV(329)&\n                &+JVS(4002)*UV(334)+JVS(4220)*UV(336)+JVS(4370)*UV(337)+JVS(4531)*UV(338)+JVS(4580)*UV(339)+JVS(4672)&\n                &*UV(340)+JVS(4895)*UV(343)+JVS(5076)*UV(345)\n  JTUV(182) = JVS(29)*UV(7)+JVS(229)*UV(34)+JVS(458)*UV(36)+JVS(1201)*UV(182)+JVS(1762)*UV(247)+JVS(1931)*UV(261)&\n                &+JVS(3787)*UV(329)+JVS(4079)*UV(335)+JVS(4371)*UV(337)+JVS(5077)*UV(345)+JVS(5258)*UV(346)\n  JTUV(183) = JVS(336)*UV(35)+JVS(1207)*UV(183)+JVS(2630)*UV(296)+JVS(3598)*UV(327)+JVS(4221)*UV(336)+JVS(4581)*UV(339)&\n                &+JVS(4673)*UV(340)+JVS(4833)*UV(342)+JVS(5078)*UV(345)+JVS(5506)*UV(351)+JVS(5613)*UV(352)\n  JTUV(184) = JVS(230)*UV(34)+JVS(459)*UV(36)+JVS(784)*UV(107)+JVS(1212)*UV(184)+JVS(1911)*UV(259)+JVS(2913)*UV(307)&\n                &+JVS(3788)*UV(329)+JVS(4080)*UV(335)+JVS(5079)*UV(345)+JVS(5507)*UV(351)\n  JTUV(185) = JVS(460)*UV(36)+JVS(1219)*UV(185)+JVS(2093)*UV(270)+JVS(2539)*UV(294)+JVS(3322)*UV(324)+JVS(3789)*UV(329)&\n                &+JVS(4372)*UV(337)+JVS(5080)*UV(345)\n  JTUV(186) = JVS(337)*UV(35)+JVS(754)*UV(103)+JVS(974)*UV(145)+JVS(1226)*UV(186)+JVS(1439)*UV(215)+JVS(1540)*UV(226)&\n                &+JVS(2752)*UV(301)+JVS(2796)*UV(303)+JVS(2822)*UV(304)+JVS(2836)*UV(305)+JVS(3026)*UV(311)+JVS(4081)&\n                &*UV(335)+JVS(4373)*UV(337)+JVS(5081)*UV(345)\n  JTUV(187) = JVS(146)*UV(24)+JVS(461)*UV(36)+JVS(1012)*UV(151)+JVS(1018)*UV(152)+JVS(1230)*UV(187)+JVS(1514)*UV(223)&\n                &+JVS(1588)*UV(232)+JVS(2429)*UV(288)+JVS(2837)*UV(305)+JVS(3097)*UV(314)+JVS(3430)*UV(325)+JVS(3790)&\n                &*UV(329)+JVS(4374)*UV(337)+JVS(5082)*UV(345)\n  JTUV(188) = JVS(1234)*UV(188)+JVS(2676)*UV(298)+JVS(4375)*UV(337)+JVS(5083)*UV(345)\n  JTUV(189) = JVS(231)*UV(34)+JVS(824)*UV(116)+JVS(1248)*UV(189)+JVS(1352)*UV(204)+JVS(4082)*UV(335)+JVS(4376)*UV(337)&\n                &+JVS(5084)*UV(345)+JVS(5259)*UV(346)\n  JTUV(190) = JVS(232)*UV(34)+JVS(1256)*UV(190)+JVS(2041)*UV(266)+JVS(2718)*UV(299)+JVS(2769)*UV(302)+JVS(2797)*UV(303)&\n                &+JVS(3431)*UV(325)+JVS(4083)*UV(335)+JVS(4377)*UV(337)+JVS(5085)*UV(345)+JVS(5260)*UV(346)\n  JTUV(191) = JVS(338)*UV(35)+JVS(462)*UV(36)+JVS(888)*UV(129)+JVS(1261)*UV(191)+JVS(1530)*UV(225)+JVS(2156)*UV(273)&\n                &+JVS(2190)*UV(275)+JVS(2206)*UV(277)+JVS(2241)*UV(280)+JVS(2257)*UV(281)+JVS(2462)*UV(289)+JVS(3039)&\n                &*UV(312)+JVS(3432)*UV(325)+JVS(3791)*UV(329)+JVS(4749)*UV(341)+JVS(5086)*UV(345)+JVS(5508)*UV(351)\n  JTUV(192) = JVS(147)*UV(24)+JVS(463)*UV(36)+JVS(1013)*UV(151)+JVS(1019)*UV(152)+JVS(1265)*UV(192)+JVS(1521)*UV(224)&\n                &+JVS(1589)*UV(232)+JVS(1712)*UV(243)+JVS(2395)*UV(287)+JVS(2823)*UV(304)+JVS(2994)*UV(309)+JVS(3433)&\n                &*UV(325)+JVS(3792)*UV(329)+JVS(4378)*UV(337)+JVS(5087)*UV(345)\n  JTUV(193) = JVS(233)*UV(34)+JVS(1269)*UV(193)+JVS(1699)*UV(242)+JVS(1947)*UV(262)+JVS(1969)*UV(263)+JVS(2242)*UV(280)&\n                &+JVS(4084)*UV(335)+JVS(4750)*UV(341)+JVS(5088)*UV(345)+JVS(5509)*UV(351)\n  JTUV(194) = JVS(30)*UV(7)+JVS(464)*UV(36)+JVS(818)*UV(115)+JVS(1275)*UV(194)+JVS(1549)*UV(227)+JVS(2014)*UV(265)&\n                &+JVS(2094)*UV(270)+JVS(2540)*UV(294)+JVS(3323)*UV(324)+JVS(3793)*UV(329)+JVS(4379)*UV(337)+JVS(5089)&\n                &*UV(345)\n  JTUV(195) = JVS(339)*UV(35)+JVS(1282)*UV(195)+JVS(1325)*UV(202)+JVS(1334)*UV(203)+JVS(1499)*UV(221)+JVS(1970)*UV(263)&\n                &+JVS(2074)*UV(269)+JVS(2095)*UV(270)+JVS(3600)*UV(327)+JVS(4380)*UV(337)+JVS(5090)*UV(345)+JVS(5510)&\n                &*UV(351)\n  JTUV(196) = JVS(234)*UV(34)+JVS(1100)*UV(165)+JVS(1289)*UV(196)+JVS(2677)*UV(298)+JVS(3260)*UV(322)+JVS(3324)*UV(324)&\n                &+JVS(3552)*UV(326)+JVS(4085)*UV(335)+JVS(4223)*UV(336)+JVS(4381)*UV(337)+JVS(5091)*UV(345)\n  JTUV(197) = JVS(235)*UV(34)+JVS(340)*UV(35)+JVS(465)*UV(36)+JVS(872)*UV(126)+JVS(1295)*UV(197)+JVS(2859)*UV(306)&\n                &+JVS(3435)*UV(325)+JVS(3794)*UV(329)+JVS(4086)*UV(335)+JVS(4382)*UV(337)+JVS(5092)*UV(345)+JVS(5262)&\n                &*UV(346)\n  JTUV(198) = JVS(31)*UV(7)+JVS(1302)*UV(198)+JVS(2096)*UV(270)+JVS(2396)*UV(287)+JVS(2430)*UV(288)+JVS(2541)*UV(294)&\n                &+JVS(2860)*UV(306)+JVS(2914)*UV(307)+JVS(4383)*UV(337)+JVS(5093)*UV(345)\n  JTUV(199) = JVS(148)*UV(24)+JVS(466)*UV(36)+JVS(880)*UV(128)+JVS(969)*UV(144)+JVS(1308)*UV(199)+JVS(1522)*UV(224)&\n                &+JVS(1582)*UV(231)+JVS(1650)*UV(238)+JVS(1723)*UV(244)+JVS(2542)*UV(294)+JVS(2824)*UV(304)+JVS(3436)&\n                &*UV(325)+JVS(3795)*UV(329)+JVS(4384)*UV(337)+JVS(5094)*UV(345)\n  JTUV(200) = JVS(341)*UV(35)+JVS(467)*UV(36)+JVS(591)*UV(58)+JVS(1063)*UV(158)+JVS(1145)*UV(173)+JVS(1249)*UV(189)&\n                &+JVS(1312)*UV(200)+JVS(1319)*UV(201)+JVS(1353)*UV(204)+JVS(1500)*UV(221)+JVS(1971)*UV(263)+JVS(2097)&\n                &*UV(270)+JVS(2543)*UV(294)+JVS(3437)*UV(325)+JVS(3601)*UV(327)+JVS(3796)*UV(329)+JVS(4385)*UV(337)&\n                &+JVS(5095)*UV(345)+JVS(5512)*UV(351)\n  JTUV(201) = JVS(342)*UV(35)+JVS(468)*UV(36)+JVS(1146)*UV(173)+JVS(1320)*UV(201)+JVS(2015)*UV(265)+JVS(2305)*UV(283)&\n                &+JVS(2544)*UV(294)+JVS(2678)*UV(298)+JVS(2741)*UV(300)+JVS(2861)*UV(306)+JVS(3261)*UV(322)+JVS(3797)&\n                &*UV(329)+JVS(4386)*UV(337)+JVS(4751)*UV(341)+JVS(5096)*UV(345)\n  JTUV(202) = JVS(343)*UV(35)+JVS(1327)*UV(202)+JVS(1336)*UV(203)+JVS(1501)*UV(221)+JVS(1972)*UV(263)+JVS(2076)*UV(269)&\n                &+JVS(2862)*UV(306)+JVS(3602)*UV(327)+JVS(4387)*UV(337)+JVS(4752)*UV(341)+JVS(5097)*UV(345)+JVS(5513)&\n                &*UV(351)\n  JTUV(203) = JVS(344)*UV(35)+JVS(1337)*UV(203)+JVS(1629)*UV(236)+JVS(2077)*UV(269)+JVS(4088)*UV(335)+JVS(4753)*UV(341)\n  JTUV(204) = JVS(345)*UV(35)+JVS(469)*UV(36)+JVS(1354)*UV(204)+JVS(1617)*UV(235)+JVS(1630)*UV(236)+JVS(3603)*UV(327)&\n                &+JVS(3798)*UV(329)+JVS(4388)*UV(337)+JVS(5098)*UV(345)+JVS(5514)*UV(351)\n  JTUV(205) = JVS(236)*UV(34)+JVS(1362)*UV(205)+JVS(1783)*UV(248)+JVS(2042)*UV(266)+JVS(2719)*UV(299)+JVS(2798)*UV(303)&\n                &+JVS(2863)*UV(306)+JVS(2915)*UV(307)+JVS(3438)*UV(325)+JVS(4089)*UV(335)+JVS(4389)*UV(337)+JVS(5099)&\n                &*UV(345)+JVS(5264)*UV(346)\n  JTUV(206) = JVS(237)*UV(34)+JVS(1367)*UV(206)+JVS(1457)*UV(216)+JVS(1763)*UV(247)+JVS(2043)*UV(266)+JVS(2720)*UV(299)&\n                &+JVS(2799)*UV(303)+JVS(2864)*UV(306)+JVS(3439)*UV(325)+JVS(4090)*UV(335)+JVS(4390)*UV(337)+JVS(5100)&\n                &*UV(345)+JVS(5265)*UV(346)\n  JTUV(207) = JVS(238)*UV(34)+JVS(1372)*UV(207)+JVS(1932)*UV(261)+JVS(2044)*UV(266)+JVS(2721)*UV(299)+JVS(2770)*UV(302)&\n                &+JVS(2800)*UV(303)+JVS(2916)*UV(307)+JVS(3440)*UV(325)+JVS(4091)*UV(335)+JVS(4391)*UV(337)+JVS(5101)&\n                &*UV(345)+JVS(5266)*UV(346)\n  JTUV(208) = JVS(470)*UV(36)+JVS(1379)*UV(208)+JVS(3326)*UV(324)+JVS(3441)*UV(325)+JVS(3799)*UV(329)+JVS(4392)*UV(337)&\n                &+JVS(5102)*UV(345)\n  JTUV(209) = JVS(149)*UV(24)+JVS(471)*UV(36)+JVS(881)*UV(128)+JVS(1005)*UV(150)+JVS(1389)*UV(209)+JVS(1393)*UV(210)&\n                &+JVS(1515)*UV(223)+JVS(1576)*UV(230)+JVS(1651)*UV(238)+JVS(2545)*UV(294)+JVS(2838)*UV(305)+JVS(3327)&\n                &*UV(324)+JVS(3442)*UV(325)+JVS(3800)*UV(329)+JVS(4393)*UV(337)+JVS(5103)*UV(345)\n  JTUV(210) = JVS(472)*UV(36)+JVS(1394)*UV(210)+JVS(2098)*UV(270)+JVS(3443)*UV(325)+JVS(3801)*UV(329)+JVS(4394)*UV(337)&\n                &+JVS(5104)*UV(345)\n  JTUV(211) = JVS(239)*UV(34)+JVS(346)*UV(35)+JVS(1172)*UV(177)+JVS(1404)*UV(211)+JVS(1973)*UV(263)+JVS(2142)*UV(272)&\n                &+JVS(2173)*UV(274)+JVS(3444)*UV(325)+JVS(4092)*UV(335)+JVS(4754)*UV(341)+JVS(5105)*UV(345)+JVS(5515)&\n                &*UV(351)\n  JTUV(212) = JVS(240)*UV(34)+JVS(876)*UV(127)+JVS(1411)*UV(212)+JVS(1597)*UV(233)+JVS(2679)*UV(298)+JVS(2865)*UV(306)&\n                &+JVS(3445)*UV(325)+JVS(4093)*UV(335)+JVS(4395)*UV(337)+JVS(5267)*UV(346)\n  JTUV(213) = JVS(32)*UV(7)+JVS(241)*UV(34)+JVS(347)*UV(35)+JVS(638)*UV(72)+JVS(814)*UV(114)+JVS(1418)*UV(213)+JVS(3446)&\n                &*UV(325)+JVS(4094)*UV(335)+JVS(4396)*UV(337)+JVS(4755)*UV(341)+JVS(5107)*UV(345)+JVS(5268)*UV(346)&\n                &+JVS(5516)*UV(351)\n  JTUV(214) = JVS(348)*UV(35)+JVS(1425)*UV(214)+JVS(2652)*UV(297)+JVS(3604)*UV(327)+JVS(4095)*UV(335)+JVS(4226)*UV(336)&\n                &+JVS(4582)*UV(339)+JVS(4938)*UV(344)+JVS(5517)*UV(351)+JVS(5652)*UV(353)\n  JTUV(215) = JVS(178)*UV(31)+JVS(473)*UV(36)+JVS(1444)*UV(215)+JVS(2546)*UV(294)+JVS(2917)*UV(307)+JVS(3447)*UV(325)&\n                &+JVS(3804)*UV(329)\n  JTUV(216) = JVS(33)*UV(7)+JVS(349)*UV(35)+JVS(474)*UV(36)+JVS(755)*UV(103)+JVS(1458)*UV(216)+JVS(1764)*UV(247)&\n                &+JVS(3805)*UV(329)+JVS(4397)*UV(337)+JVS(5108)*UV(345)\n  JTUV(217) = JVS(242)*UV(34)+JVS(350)*UV(35)+JVS(1470)*UV(217)+JVS(4227)*UV(336)+JVS(4398)*UV(337)+JVS(4756)*UV(341)&\n                &+JVS(4896)*UV(343)+JVS(5109)*UV(345)\n  JTUV(218) = JVS(351)*UV(35)+JVS(993)*UV(148)+JVS(1046)*UV(157)+JVS(1481)*UV(218)+JVS(3147)*UV(316)+JVS(3606)*UV(327)&\n                &+JVS(4096)*UV(335)+JVS(4228)*UV(336)+JVS(4583)*UV(339)+JVS(4834)*UV(342)+JVS(5372)*UV(347)+JVS(5518)&\n                &*UV(351)\n  JTUV(219) = JVS(352)*UV(35)+JVS(1487)*UV(219)+JVS(1948)*UV(262)+JVS(1974)*UV(263)+JVS(2191)*UV(275)+JVS(2207)*UV(277)&\n                &+JVS(2243)*UV(280)+JVS(2258)*UV(281)+JVS(2463)*UV(289)+JVS(2481)*UV(291)+JVS(2493)*UV(292)+JVS(2603)&\n                &*UV(295)+JVS(2680)*UV(298)+JVS(3099)*UV(314)+JVS(3217)*UV(320)+JVS(3448)*UV(325)+JVS(4399)*UV(337)&\n                &+JVS(4757)*UV(341)+JVS(5111)*UV(345)+JVS(5519)*UV(351)\n  JTUV(220) = JVS(353)*UV(35)+JVS(475)*UV(36)+JVS(965)*UV(143)+JVS(1250)*UV(189)+JVS(1355)*UV(204)+JVS(1491)*UV(220)&\n                &+JVS(1631)*UV(236)+JVS(1975)*UV(263)+JVS(3040)*UV(312)+JVS(3449)*UV(325)+JVS(3806)*UV(329)+JVS(4097)&\n                &*UV(335)+JVS(4400)*UV(337)+JVS(4758)*UV(341)+JVS(5112)*UV(345)+JVS(5520)*UV(351)\n  JTUV(221) = JVS(354)*UV(35)+JVS(476)*UV(36)+JVS(1147)*UV(173)+JVS(1503)*UV(221)+JVS(2016)*UV(265)+JVS(2100)*UV(270)&\n                &+JVS(2681)*UV(298)+JVS(2867)*UV(306)+JVS(3262)*UV(322)+JVS(3807)*UV(329)+JVS(4401)*UV(337)+JVS(4759)&\n                &*UV(341)+JVS(5113)*UV(345)\n  JTUV(222) = JVS(355)*UV(35)+JVS(756)*UV(103)+JVS(1508)*UV(222)+JVS(2134)*UV(271)+JVS(2522)*UV(293)+JVS(2801)*UV(303)&\n                &+JVS(2996)*UV(309)+JVS(3014)*UV(310)+JVS(3100)*UV(314)+JVS(3450)*UV(325)+JVS(4098)*UV(335)+JVS(4402)&\n                &*UV(337)+JVS(5114)*UV(345)\n  JTUV(223) = JVS(243)*UV(34)+JVS(1156)*UV(174)+JVS(1303)*UV(198)+JVS(1395)*UV(210)+JVS(1516)*UV(223)+JVS(1896)*UV(258)&\n                &+JVS(2398)*UV(287)+JVS(2802)*UV(303)+JVS(2918)*UV(307)+JVS(3451)*UV(325)+JVS(4099)*UV(335)+JVS(4403)&\n                &*UV(337)+JVS(5115)*UV(345)+JVS(5270)*UV(346)\n  JTUV(224) = JVS(244)*UV(34)+JVS(1157)*UV(174)+JVS(1304)*UV(198)+JVS(1523)*UV(224)+JVS(1724)*UV(244)+JVS(1897)*UV(258)&\n                &+JVS(2433)*UV(288)+JVS(2803)*UV(303)+JVS(2869)*UV(306)+JVS(3452)*UV(325)+JVS(4100)*UV(335)+JVS(4404)&\n                &*UV(337)+JVS(5116)*UV(345)+JVS(5271)*UV(346)\n  JTUV(225) = JVS(356)*UV(35)+JVS(477)*UV(36)+JVS(1531)*UV(225)+JVS(1884)*UV(257)+JVS(2219)*UV(278)+JVS(3609)*UV(327)&\n                &+JVS(3809)*UV(329)+JVS(4405)*UV(337)+JVS(5117)*UV(345)+JVS(5521)*UV(351)\n  JTUV(226) = JVS(245)*UV(34)+JVS(1396)*UV(210)+JVS(1459)*UV(216)+JVS(1541)*UV(226)+JVS(1725)*UV(244)+JVS(1765)*UV(247)&\n                &+JVS(1933)*UV(261)+JVS(2045)*UV(266)+JVS(2722)*UV(299)+JVS(2771)*UV(302)+JVS(2804)*UV(303)+JVS(3453)&\n                &*UV(325)+JVS(4101)*UV(335)+JVS(4406)*UV(337)+JVS(5118)*UV(345)+JVS(5272)*UV(346)\n  JTUV(227) = JVS(478)*UV(36)+JVS(1550)*UV(227)+JVS(2104)*UV(270)+JVS(2549)*UV(294)+JVS(3328)*UV(324)+JVS(3811)*UV(329)&\n                &+JVS(4407)*UV(337)\n  JTUV(228) = JVS(357)*UV(35)+JVS(538)*UV(39)+JVS(1471)*UV(217)+JVS(1563)*UV(228)+JVS(3454)*UV(325)+JVS(3699)*UV(328)&\n                &+JVS(4003)*UV(334)+JVS(4231)*UV(336)+JVS(4408)*UV(337)+JVS(4584)*UV(339)+JVS(4675)*UV(340)+JVS(5119)&\n                &*UV(345)\n  JTUV(229) = JVS(358)*UV(35)+JVS(1570)*UV(229)+JVS(1949)*UV(262)+JVS(1976)*UV(263)+JVS(2244)*UV(280)+JVS(2604)*UV(295)&\n                &+JVS(2682)*UV(298)+JVS(3101)*UV(314)+JVS(3455)*UV(325)+JVS(4102)*UV(335)+JVS(4409)*UV(337)+JVS(4761)&\n                &*UV(341)+JVS(5120)*UV(345)+JVS(5522)*UV(351)\n  JTUV(230) = JVS(479)*UV(36)+JVS(840)*UV(119)+JVS(914)*UV(133)+JVS(1132)*UV(171)+JVS(1220)*UV(185)+JVS(1276)*UV(194)&\n                &+JVS(1445)*UV(215)+JVS(1577)*UV(230)+JVS(2434)*UV(288)+JVS(2550)*UV(294)+JVS(3102)*UV(314)+JVS(3456)&\n                &*UV(325)+JVS(3812)*UV(329)+JVS(4410)*UV(337)+JVS(5121)*UV(345)\n  JTUV(231) = JVS(480)*UV(36)+JVS(841)*UV(119)+JVS(931)*UV(135)+JVS(1138)*UV(172)+JVS(1221)*UV(185)+JVS(1277)*UV(194)&\n                &+JVS(1446)*UV(215)+JVS(1583)*UV(231)+JVS(2400)*UV(287)+JVS(2551)*UV(294)+JVS(2997)*UV(309)+JVS(3457)&\n                &*UV(325)+JVS(3813)*UV(329)+JVS(4411)*UV(337)+JVS(5122)*UV(345)\n  JTUV(232) = JVS(246)*UV(34)+JVS(1158)*UV(174)+JVS(1305)*UV(198)+JVS(1590)*UV(232)+JVS(2805)*UV(303)+JVS(2870)*UV(306)&\n                &+JVS(2922)*UV(307)+JVS(4105)*UV(335)+JVS(4412)*UV(337)+JVS(5123)*UV(345)+JVS(5275)*UV(346)\n  JTUV(233) = JVS(481)*UV(36)+JVS(791)*UV(109)+JVS(909)*UV(132)+JVS(1296)*UV(197)+JVS(1598)*UV(233)+JVS(2108)*UV(270)&\n                &+JVS(3458)*UV(325)+JVS(3814)*UV(329)+JVS(4413)*UV(337)+JVS(5124)*UV(345)\n  JTUV(234) = JVS(247)*UV(34)+JVS(359)*UV(35)+JVS(630)*UV(70)+JVS(778)*UV(106)+JVS(936)*UV(136)+JVS(1607)*UV(234)&\n                &+JVS(2267)*UV(282)+JVS(2872)*UV(306)+JVS(3459)*UV(325)+JVS(3700)*UV(328)+JVS(4107)*UV(335)+JVS(4414)&\n                &*UV(337)+JVS(5277)*UV(346)+JVS(5524)*UV(351)\n  JTUV(235) = JVS(34)*UV(7)+JVS(248)*UV(34)+JVS(360)*UV(35)+JVS(634)*UV(71)+JVS(700)*UV(90)+JVS(829)*UV(117)+JVS(1619)&\n                &*UV(235)+JVS(1632)*UV(236)+JVS(3460)*UV(325)+JVS(3701)*UV(328)+JVS(4108)*UV(335)+JVS(4415)*UV(337)&\n                &+JVS(4763)*UV(341)+JVS(5126)*UV(345)+JVS(5278)*UV(346)\n  JTUV(236) = JVS(249)*UV(34)+JVS(361)*UV(35)+JVS(830)*UV(117)+JVS(1340)*UV(203)+JVS(1633)*UV(236)+JVS(3461)*UV(325)&\n                &+JVS(3702)*UV(328)+JVS(4109)*UV(335)+JVS(4416)*UV(337)+JVS(5279)*UV(346)+JVS(5525)*UV(351)\n  JTUV(237) = JVS(362)*UV(35)+JVS(1173)*UV(177)+JVS(1641)*UV(237)+JVS(1977)*UV(263)+JVS(2143)*UV(272)+JVS(2174)*UV(274)&\n                &+JVS(4765)*UV(341)+JVS(5128)*UV(345)+JVS(5526)*UV(351)\n  JTUV(238) = JVS(35)*UV(7)+JVS(482)*UV(36)+JVS(1652)*UV(238)+JVS(2361)*UV(285)+JVS(2381)*UV(286)+JVS(2402)*UV(287)&\n                &+JVS(2436)*UV(288)+JVS(2553)*UV(294)+JVS(3815)*UV(329)+JVS(4417)*UV(337)+JVS(5129)*UV(345)\n  JTUV(239) = JVS(250)*UV(34)+JVS(1665)*UV(239)+JVS(4111)*UV(335)+JVS(4232)*UV(336)+JVS(5130)*UV(345)+JVS(5280)*UV(346)\n  JTUV(240) = JVS(36)*UV(7)+JVS(251)*UV(34)+JVS(363)*UV(35)+JVS(856)*UV(122)+JVS(1034)*UV(155)+JVS(1148)*UV(173)&\n                &+JVS(1685)*UV(240)+JVS(3263)*UV(322)+JVS(4112)*UV(335)+JVS(4418)*UV(337)+JVS(4766)*UV(341)+JVS(5131)&\n                &*UV(345)+JVS(5281)*UV(346)\n  JTUV(241) = JVS(37)*UV(7)+JVS(180)*UV(32)+JVS(252)*UV(34)+JVS(522)*UV(37)+JVS(529)*UV(38)+JVS(543)*UV(40)+JVS(921)&\n                &*UV(134)+JVS(1691)*UV(241)+JVS(1993)*UV(264)+JVS(2306)*UV(283)+JVS(3554)*UV(326)+JVS(3817)*UV(329)&\n                &+JVS(4113)*UV(335)+JVS(4234)*UV(336)+JVS(5282)*UV(346)+JVS(5404)*UV(348)+JVS(5527)*UV(351)\n  JTUV(242) = JVS(364)*UV(35)+JVS(561)*UV(45)+JVS(1028)*UV(154)+JVS(1700)*UV(242)+JVS(2683)*UV(298)+JVS(4114)*UV(335)&\n                &+JVS(4767)*UV(341)+JVS(5133)*UV(345)+JVS(5528)*UV(351)\n  JTUV(243) = JVS(253)*UV(34)+JVS(483)*UV(36)+JVS(1380)*UV(208)+JVS(1715)*UV(243)+JVS(1899)*UV(258)+JVS(2046)*UV(266)&\n                &+JVS(2924)*UV(307)+JVS(3463)*UV(325)+JVS(3818)*UV(329)+JVS(4115)*UV(335)+JVS(4419)*UV(337)+JVS(5134)&\n                &*UV(345)+JVS(5283)*UV(346)\n  JTUV(244) = JVS(1726)*UV(244)+JVS(2554)*UV(294)+JVS(3064)*UV(313)+JVS(3333)*UV(324)+JVS(3464)*UV(325)+JVS(4235)&\n                &*UV(336)+JVS(5135)*UV(345)\n  JTUV(245) = JVS(254)*UV(34)+JVS(1740)*UV(245)+JVS(3954)*UV(333)+JVS(4004)*UV(334)+JVS(4532)*UV(338)+JVS(4676)*UV(340)&\n                &+JVS(4898)*UV(343)+JVS(5136)*UV(345)\n  JTUV(246) = JVS(38)*UV(7)+JVS(255)*UV(34)+JVS(365)*UV(35)+JVS(810)*UV(113)+JVS(1035)*UV(155)+JVS(1149)*UV(173)&\n                &+JVS(1608)*UV(234)+JVS(1754)*UV(246)+JVS(4116)*UV(335)+JVS(4420)*UV(337)+JVS(4768)*UV(341)+JVS(5137)&\n                &*UV(345)+JVS(5284)*UV(346)\n  JTUV(247) = JVS(1766)*UV(247)+JVS(2555)*UV(294)+JVS(3334)*UV(324)+JVS(3466)*UV(325)+JVS(4117)*UV(335)+JVS(5138)&\n                &*UV(345)\n  JTUV(248) = JVS(366)*UV(35)+JVS(484)*UV(36)+JVS(757)*UV(103)+JVS(1785)*UV(248)+JVS(2925)*UV(307)+JVS(2971)*UV(308)&\n                &+JVS(3820)*UV(329)+JVS(4118)*UV(335)+JVS(4421)*UV(337)+JVS(5139)*UV(345)\n  JTUV(249) = JVS(39)*UV(7)+JVS(256)*UV(34)+JVS(1235)*UV(188)+JVS(1797)*UV(249)+JVS(2231)*UV(279)+JVS(2269)*UV(282)&\n                &+JVS(2307)*UV(283)+JVS(2684)*UV(298)+JVS(3197)*UV(319)+JVS(3335)*UV(324)+JVS(3467)*UV(325)+JVS(3556)&\n                &*UV(326)+JVS(3705)*UV(328)+JVS(4119)*UV(335)+JVS(4422)*UV(337)+JVS(5285)*UV(346)\n  JTUV(250) = JVS(40)*UV(7)+JVS(257)*UV(34)+JVS(868)*UV(125)+JVS(1236)*UV(188)+JVS(1805)*UV(250)+JVS(2270)*UV(282)&\n                &+JVS(2308)*UV(283)+JVS(2685)*UV(298)+JVS(3336)*UV(324)+JVS(3468)*UV(325)+JVS(3557)*UV(326)+JVS(3706)&\n                &*UV(328)+JVS(4120)*UV(335)+JVS(4423)*UV(337)+JVS(5286)*UV(346)\n  JTUV(251) = JVS(367)*UV(35)+JVS(758)*UV(103)+JVS(1813)*UV(251)+JVS(2494)*UV(292)+JVS(2605)*UV(295)+JVS(2686)*UV(298)&\n                &+JVS(3122)*UV(315)+JVS(3177)*UV(318)+JVS(3234)*UV(321)+JVS(3290)*UV(323)+JVS(3558)*UV(326)+JVS(3707)&\n                &*UV(328)+JVS(4121)*UV(335)+JVS(4237)*UV(336)+JVS(4424)*UV(337)+JVS(5142)*UV(345)\n  JTUV(252) = JVS(91)*UV(9)+JVS(99)*UV(10)+JVS(368)*UV(35)+JVS(656)*UV(77)+JVS(766)*UV(104)+JVS(1125)*UV(170)+JVS(1666)&\n                &*UV(239)+JVS(1820)*UV(252)+JVS(3915)*UV(331)+JVS(4122)*UV(335)+JVS(4939)*UV(344)+JVS(5439)*UV(349)&\n                &+JVS(5465)*UV(350)+JVS(5653)*UV(353)\n  JTUV(253) = JVS(258)*UV(34)+JVS(485)*UV(36)+JVS(1786)*UV(248)+JVS(1829)*UV(253)+JVS(2403)*UV(287)+JVS(2557)*UV(294)&\n                &+JVS(2926)*UV(307)+JVS(3469)*UV(325)+JVS(3821)*UV(329)+JVS(4123)*UV(335)+JVS(4425)*UV(337)+JVS(5144)&\n                &*UV(345)+JVS(5288)*UV(346)\n  JTUV(254) = JVS(259)*UV(34)+JVS(1381)*UV(208)+JVS(1840)*UV(254)+JVS(2437)*UV(288)+JVS(2558)*UV(294)+JVS(2773)*UV(302)&\n                &+JVS(2874)*UV(306)+JVS(3337)*UV(324)+JVS(3470)*UV(325)+JVS(4124)*UV(335)+JVS(4426)*UV(337)+JVS(5145)&\n                &*UV(345)+JVS(5289)*UV(346)\n  JTUV(255) = JVS(369)*UV(35)+JVS(486)*UV(36)+JVS(1087)*UV(163)+JVS(1174)*UV(177)+JVS(1850)*UV(255)+JVS(1978)*UV(263)&\n                &+JVS(2175)*UV(274)+JVS(3042)*UV(312)+JVS(3471)*UV(325)+JVS(3823)*UV(329)+JVS(4427)*UV(337)+JVS(4769)&\n                &*UV(341)+JVS(5146)*UV(345)+JVS(5531)*UV(351)\n  JTUV(256) = JVS(370)*UV(35)+JVS(562)*UV(45)+JVS(1029)*UV(154)+JVS(1865)*UV(256)+JVS(2495)*UV(292)+JVS(4126)*UV(335)&\n                &+JVS(5147)*UV(345)+JVS(5532)*UV(351)\n  JTUV(257) = JVS(41)*UV(7)+JVS(260)*UV(34)+JVS(371)*UV(35)+JVS(585)*UV(56)+JVS(616)*UV(66)+JVS(646)*UV(74)+JVS(1885)&\n                &*UV(257)+JVS(2220)*UV(278)+JVS(3338)*UV(324)+JVS(3472)*UV(325)+JVS(3708)*UV(328)+JVS(4127)*UV(335)&\n                &+JVS(4428)*UV(337)+JVS(4770)*UV(341)+JVS(5148)*UV(345)+JVS(5290)*UV(346)+JVS(5533)*UV(351)\n  JTUV(258) = JVS(487)*UV(36)+JVS(903)*UV(131)+JVS(1022)*UV(153)+JVS(1553)*UV(227)+JVS(1900)*UV(258)+JVS(2109)*UV(270)&\n                &+JVS(2404)*UV(287)+JVS(2559)*UV(294)+JVS(2875)*UV(306)+JVS(2928)*UV(307)+JVS(3473)*UV(325)+JVS(3824)&\n                &*UV(329)+JVS(4429)*UV(337)+JVS(5149)*UV(345)\n  JTUV(259) = JVS(42)*UV(7)+JVS(261)*UV(34)+JVS(488)*UV(36)+JVS(1067)*UV(159)+JVS(1213)*UV(184)+JVS(1912)*UV(259)&\n                &+JVS(3340)*UV(324)+JVS(3474)*UV(325)+JVS(3709)*UV(328)+JVS(3825)*UV(329)+JVS(4128)*UV(335)+JVS(4430)&\n                &*UV(337)+JVS(4771)*UV(341)+JVS(5150)*UV(345)+JVS(5291)*UV(346)\n  JTUV(260) = JVS(43)*UV(7)+JVS(262)*UV(34)+JVS(860)*UV(123)+JVS(1237)*UV(188)+JVS(1921)*UV(260)+JVS(2271)*UV(282)&\n                &+JVS(2309)*UV(283)+JVS(2687)*UV(298)+JVS(2930)*UV(307)+JVS(3341)*UV(324)+JVS(3475)*UV(325)+JVS(3559)&\n                &*UV(326)+JVS(3710)*UV(328)+JVS(4129)*UV(335)+JVS(4431)*UV(337)+JVS(5292)*UV(346)\n  JTUV(261) = JVS(44)*UV(7)+JVS(372)*UV(35)+JVS(489)*UV(36)+JVS(1934)*UV(261)+JVS(3342)*UV(324)+JVS(3476)*UV(325)&\n                &+JVS(3616)*UV(327)+JVS(3826)*UV(329)+JVS(4130)*UV(335)+JVS(4432)*UV(337)+JVS(5152)*UV(345)+JVS(5535)&\n                &*UV(351)\n  JTUV(262) = JVS(373)*UV(35)+JVS(1950)*UV(262)+JVS(1979)*UV(263)+JVS(2245)*UV(280)+JVS(2496)*UV(292)+JVS(2606)*UV(295)&\n                &+JVS(2876)*UV(306)+JVS(3103)*UV(314)+JVS(3477)*UV(325)+JVS(4131)*UV(335)+JVS(4433)*UV(337)+JVS(4772)&\n                &*UV(341)+JVS(5153)*UV(345)+JVS(5536)*UV(351)\n  JTUV(263) = JVS(45)*UV(7)+JVS(263)*UV(34)+JVS(374)*UV(35)+JVS(1980)*UV(263)+JVS(3343)*UV(324)+JVS(3478)*UV(325)&\n                &+JVS(3711)*UV(328)+JVS(4132)*UV(335)+JVS(4434)*UV(337)+JVS(5154)*UV(345)+JVS(5293)*UV(346)+JVS(5537)&\n                &*UV(351)\n  JTUV(264) = JVS(375)*UV(35)+JVS(530)*UV(38)+JVS(922)*UV(134)+JVS(1994)*UV(264)+JVS(4239)*UV(336)+JVS(4435)*UV(337)&\n                &+JVS(4585)*UV(339)+JVS(4678)*UV(340)+JVS(4899)*UV(343)+JVS(5155)*UV(345)+JVS(5405)*UV(348)\n  JTUV(265) = JVS(46)*UV(7)+JVS(2020)*UV(265)+JVS(4240)*UV(336)+JVS(4436)*UV(337)+JVS(4586)*UV(339)+JVS(4679)*UV(340)&\n                &+JVS(5156)*UV(345)\n  JTUV(266) = JVS(376)*UV(35)+JVS(490)*UV(36)+JVS(759)*UV(103)+JVS(2047)*UV(266)+JVS(2405)*UV(287)+JVS(2438)*UV(288)&\n                &+JVS(2561)*UV(294)+JVS(2877)*UV(306)+JVS(3827)*UV(329)+JVS(4133)*UV(335)+JVS(4437)*UV(337)+JVS(5157)&\n                &*UV(345)\n  JTUV(267) = JVS(377)*UV(35)+JVS(491)*UV(36)+JVS(760)*UV(103)+JVS(882)*UV(128)+JVS(1373)*UV(207)+JVS(1653)*UV(238)&\n                &+JVS(2060)*UV(267)+JVS(2406)*UV(287)+JVS(2753)*UV(301)+JVS(2774)*UV(302)+JVS(3828)*UV(329)+JVS(4134)&\n                &*UV(335)+JVS(4438)*UV(337)+JVS(5158)*UV(345)\n  JTUV(268) = JVS(378)*UV(35)+JVS(492)*UV(36)+JVS(761)*UV(103)+JVS(883)*UV(128)+JVS(1368)*UV(206)+JVS(1460)*UV(216)&\n                &+JVS(1654)*UV(238)+JVS(2066)*UV(268)+JVS(2440)*UV(288)+JVS(2754)*UV(301)+JVS(3829)*UV(329)+JVS(4135)&\n                &*UV(335)+JVS(4439)*UV(337)+JVS(5159)*UV(345)\n  JTUV(269) = JVS(10)*UV(5)+JVS(47)*UV(7)+JVS(264)*UV(34)+JVS(493)*UV(36)+JVS(1504)*UV(221)+JVS(1667)*UV(239)+JVS(2081)&\n                &*UV(269)+JVS(3178)*UV(318)+JVS(3620)*UV(327)+JVS(3830)*UV(329)+JVS(4136)*UV(335)+JVS(4440)*UV(337)&\n                &+JVS(5160)*UV(345)+JVS(5539)*UV(351)\n  JTUV(270) = JVS(171)*UV(30)+JVS(379)*UV(35)+JVS(494)*UV(36)+JVS(2113)*UV(270)+JVS(3481)*UV(325)+JVS(3621)*UV(327)&\n                &+JVS(3831)*UV(329)+JVS(4441)*UV(337)+JVS(5161)*UV(345)+JVS(5540)*UV(351)\n  JTUV(271) = JVS(265)*UV(34)+JVS(1397)*UV(210)+JVS(1461)*UV(216)+JVS(1727)*UV(244)+JVS(1769)*UV(247)+JVS(1936)*UV(261)&\n                &+JVS(2050)*UV(266)+JVS(2135)*UV(271)+JVS(2408)*UV(287)+JVS(2441)*UV(288)+JVS(2725)*UV(299)+JVS(2775)&\n                &*UV(302)+JVS(2808)*UV(303)+JVS(2881)*UV(306)+JVS(2933)*UV(307)+JVS(3482)*UV(325)+JVS(4137)*UV(335)&\n                &+JVS(4442)*UV(337)+JVS(5162)*UV(345)+JVS(5297)*UV(346)\n  JTUV(272) = JVS(266)*UV(34)+JVS(380)*UV(35)+JVS(1088)*UV(163)+JVS(1118)*UV(169)+JVS(1175)*UV(177)+JVS(2144)*UV(272)&\n                &+JVS(2272)*UV(282)+JVS(3483)*UV(325)+JVS(3712)*UV(328)+JVS(4138)*UV(335)+JVS(4443)*UV(337)+JVS(5298)&\n                &*UV(346)+JVS(5542)*UV(351)\n  JTUV(273) = JVS(267)*UV(34)+JVS(381)*UV(35)+JVS(1076)*UV(161)+JVS(1082)*UV(162)+JVS(2157)*UV(273)+JVS(2177)*UV(274)&\n                &+JVS(2273)*UV(282)+JVS(2607)*UV(295)+JVS(2690)*UV(298)+JVS(3199)*UV(319)+JVS(3484)*UV(325)+JVS(3713)&\n                &*UV(328)+JVS(4139)*UV(335)+JVS(4444)*UV(337)+JVS(5299)*UV(346)+JVS(5543)*UV(351)\n  JTUV(274) = JVS(48)*UV(7)+JVS(268)*UV(34)+JVS(382)*UV(35)+JVS(588)*UV(57)+JVS(898)*UV(130)+JVS(1119)*UV(169)+JVS(2178)&\n                &*UV(274)+JVS(2691)*UV(298)+JVS(3200)*UV(319)+JVS(3348)*UV(324)+JVS(3485)*UV(325)+JVS(3714)*UV(328)&\n                &+JVS(4140)*UV(335)+JVS(4445)*UV(337)+JVS(4774)*UV(341)+JVS(5165)*UV(345)+JVS(5300)*UV(346)+JVS(5544)&\n                &*UV(351)\n  JTUV(275) = JVS(49)*UV(7)+JVS(269)*UV(34)+JVS(383)*UV(35)+JVS(806)*UV(112)+JVS(889)*UV(129)+JVS(945)*UV(138)+JVS(2192)&\n                &*UV(275)+JVS(2274)*UV(282)+JVS(2310)*UV(283)+JVS(3349)*UV(324)+JVS(3486)*UV(325)+JVS(3715)*UV(328)&\n                &+JVS(4141)*UV(335)+JVS(4446)*UV(337)+JVS(5301)*UV(346)+JVS(5545)*UV(351)\n  JTUV(276) = JVS(50)*UV(7)+JVS(114)*UV(14)+JVS(117)*UV(15)+JVS(384)*UV(35)+JVS(495)*UV(36)+JVS(544)*UV(40)+JVS(970)&\n                &*UV(144)+JVS(1006)*UV(150)+JVS(1398)*UV(210)+JVS(1578)*UV(230)+JVS(1584)*UV(231)+JVS(1728)*UV(244)&\n                &+JVS(1995)*UV(264)+JVS(2200)*UV(276)+JVS(2565)*UV(294)+JVS(2825)*UV(304)+JVS(2839)*UV(305)+JVS(2998)&\n                &*UV(309)+JVS(3015)*UV(310)+JVS(3027)*UV(311)+JVS(3043)*UV(312)+JVS(3104)*UV(314)+JVS(3350)*UV(324)&\n                &+JVS(3487)*UV(325)+JVS(3716)*UV(328)+JVS(3833)*UV(329)+JVS(4447)*UV(337)+JVS(4588)*UV(339)+JVS(4681)&\n                &*UV(340)+JVS(4776)*UV(341)+JVS(5167)*UV(345)+JVS(5546)*UV(351)\n  JTUV(277) = JVS(51)*UV(7)+JVS(270)*UV(34)+JVS(385)*UV(35)+JVS(802)*UV(111)+JVS(941)*UV(137)+JVS(1532)*UV(225)&\n                &+JVS(2208)*UV(277)+JVS(2275)*UV(282)+JVS(2311)*UV(283)+JVS(3351)*UV(324)+JVS(3488)*UV(325)+JVS(3717)&\n                &*UV(328)+JVS(4143)*UV(335)+JVS(4448)*UV(337)+JVS(5303)*UV(346)+JVS(5547)*UV(351)\n  JTUV(278) = JVS(271)*UV(34)+JVS(386)*UV(35)+JVS(1071)*UV(160)+JVS(1168)*UV(176)+JVS(1983)*UV(263)+JVS(2222)*UV(278)&\n                &+JVS(2276)*UV(282)+JVS(2501)*UV(292)+JVS(2610)*UV(295)+JVS(3267)*UV(322)+JVS(3489)*UV(325)+JVS(3718)&\n                &*UV(328)+JVS(4144)*UV(335)+JVS(4449)*UV(337)+JVS(5304)*UV(346)+JVS(5548)*UV(351)\n  JTUV(279) = JVS(1798)*UV(249)+JVS(2232)*UV(279)+JVS(2502)*UV(292)+JVS(2611)*UV(295)+JVS(2693)*UV(298)+JVS(3123)&\n                &*UV(315)+JVS(3235)*UV(321)+JVS(3291)*UV(323)+JVS(3560)*UV(326)+JVS(3719)*UV(328)+JVS(4145)*UV(335)&\n                &+JVS(4244)*UV(336)+JVS(4450)*UV(337)+JVS(5170)*UV(345)\n  JTUV(280) = JVS(52)*UV(7)+JVS(272)*UV(34)+JVS(387)*UV(35)+JVS(1701)*UV(242)+JVS(1871)*UV(256)+JVS(2246)*UV(280)&\n                &+JVS(2464)*UV(289)+JVS(2503)*UV(292)+JVS(2694)*UV(298)+JVS(3354)*UV(324)+JVS(3491)*UV(325)+JVS(3720)&\n                &*UV(328)+JVS(4146)*UV(335)+JVS(4451)*UV(337)+JVS(5306)*UV(346)+JVS(5549)*UV(351)\n  JTUV(281) = JVS(53)*UV(7)+JVS(273)*UV(34)+JVS(388)*UV(35)+JVS(1405)*UV(211)+JVS(1642)*UV(237)+JVS(1851)*UV(255)&\n                &+JVS(2259)*UV(281)+JVS(2278)*UV(282)+JVS(2313)*UV(283)+JVS(3355)*UV(324)+JVS(3492)*UV(325)+JVS(3721)&\n                &*UV(328)+JVS(4147)*UV(335)+JVS(4452)*UV(337)+JVS(5307)*UV(346)+JVS(5550)*UV(351)\n  JTUV(282) = JVS(2279)*UV(282)+JVS(3493)*UV(325)+JVS(4453)*UV(337)+JVS(4589)*UV(339)+JVS(4682)*UV(340)+JVS(5173)&\n                &*UV(345)\n  JTUV(283) = JVS(54)*UV(7)+JVS(2314)*UV(283)+JVS(3722)*UV(328)+JVS(4245)*UV(336)+JVS(4590)*UV(339)+JVS(4683)*UV(340)&\n                &+JVS(5174)*UV(345)\n  JTUV(284) = JVS(389)*UV(35)+JVS(558)*UV(44)+JVS(583)*UV(55)+JVS(726)*UV(96)+JVS(767)*UV(104)+JVS(845)*UV(120)&\n                &+JVS(2343)*UV(284)+JVS(3887)*UV(330)+JVS(3916)*UV(331)+JVS(3935)*UV(332)+JVS(4148)*UV(335)+JVS(4454)&\n                &*UV(337)+JVS(4533)*UV(338)+JVS(4684)*UV(340)+JVS(4836)*UV(342)+JVS(4901)*UV(343)+JVS(5308)*UV(346)&\n                &+JVS(5373)*UV(347)\n  JTUV(285) = JVS(274)*UV(34)+JVS(496)*UV(36)+JVS(989)*UV(147)+JVS(1023)*UV(153)+JVS(1903)*UV(258)+JVS(2051)*UV(266)&\n                &+JVS(2116)*UV(270)+JVS(2364)*UV(285)+JVS(2942)*UV(307)+JVS(3836)*UV(329)+JVS(4149)*UV(335)+JVS(4455)&\n                &*UV(337)+JVS(5176)*UV(345)+JVS(5309)*UV(346)\n  JTUV(286) = JVS(275)*UV(34)+JVS(497)*UV(36)+JVS(904)*UV(131)+JVS(990)*UV(147)+JVS(1904)*UV(258)+JVS(2052)*UV(266)&\n                &+JVS(2385)*UV(286)+JVS(2567)*UV(294)+JVS(2884)*UV(306)+JVS(3837)*UV(329)+JVS(4150)*UV(335)+JVS(4456)&\n                &*UV(337)+JVS(5177)*UV(345)+JVS(5310)*UV(346)\n  JTUV(287) = JVS(55)*UV(7)+JVS(498)*UV(36)+JVS(1729)*UV(244)+JVS(2412)*UV(287)+JVS(2568)*UV(294)+JVS(2944)*UV(307)&\n                &+JVS(3496)*UV(325)+JVS(3838)*UV(329)+JVS(4457)*UV(337)+JVS(5178)*UV(345)\n  JTUV(288) = JVS(1385)*UV(208)+JVS(1556)*UV(227)+JVS(2445)*UV(288)+JVS(2569)*UV(294)+JVS(2885)*UV(306)+JVS(3359)&\n                &*UV(324)+JVS(3497)*UV(325)+JVS(4458)*UV(337)+JVS(5179)*UV(345)\n  JTUV(289) = JVS(276)*UV(34)+JVS(390)*UV(35)+JVS(1150)*UV(173)+JVS(1238)*UV(188)+JVS(1702)*UV(242)+JVS(1873)*UV(256)&\n                &+JVS(2247)*UV(280)+JVS(2280)*UV(282)+JVS(2465)*UV(289)+JVS(2505)*UV(292)+JVS(2696)*UV(298)+JVS(3360)&\n                &*UV(324)+JVS(3498)*UV(325)+JVS(3723)*UV(328)+JVS(4151)*UV(335)+JVS(4459)*UV(337)+JVS(5311)*UV(346)&\n                &+JVS(5554)*UV(351)\n  JTUV(290) = JVS(56)*UV(7)+JVS(391)*UV(35)+JVS(499)*UV(36)+JVS(1564)*UV(228)+JVS(1692)*UV(241)+JVS(1806)*UV(250)&\n                &+JVS(1922)*UV(260)+JVS(2474)*UV(290)+JVS(3045)*UV(312)+JVS(3499)*UV(325)+JVS(3561)*UV(326)+JVS(3724)&\n                &*UV(328)+JVS(3840)*UV(329)+JVS(4460)*UV(337)+JVS(4592)*UV(339)+JVS(4686)*UV(340)+JVS(4781)*UV(341)&\n                &+JVS(4837)*UV(342)+JVS(5181)*UV(345)+JVS(5555)*UV(351)+JVS(5614)*UV(352)\n  JTUV(291) = JVS(57)*UV(7)+JVS(277)*UV(34)+JVS(392)*UV(35)+JVS(1270)*UV(193)+JVS(1571)*UV(229)+JVS(1951)*UV(262)&\n                &+JVS(2282)*UV(282)+JVS(2316)*UV(283)+JVS(2482)*UV(291)+JVS(2612)*UV(295)+JVS(3105)*UV(314)+JVS(3362)&\n                &*UV(324)+JVS(3500)*UV(325)+JVS(3725)*UV(328)+JVS(4153)*UV(335)+JVS(4461)*UV(337)+JVS(5313)*UV(346)&\n                &+JVS(5556)*UV(351)\n  JTUV(292) = JVS(393)*UV(35)+JVS(2507)*UV(292)+JVS(3124)*UV(315)+JVS(3218)*UV(320)+JVS(3236)*UV(321)+JVS(3268)*UV(322)&\n                &+JVS(3292)*UV(323)+JVS(3363)*UV(324)+JVS(3636)*UV(327)+JVS(3726)*UV(328)+JVS(4250)*UV(336)+JVS(5183)&\n                &*UV(345)+JVS(5557)*UV(351)\n  JTUV(293) = JVS(278)*UV(34)+JVS(1462)*UV(216)+JVS(1770)*UV(247)+JVS(1937)*UV(261)+JVS(2523)*UV(293)+JVS(2726)*UV(299)&\n                &+JVS(2777)*UV(302)+JVS(2809)*UV(303)+JVS(2887)*UV(306)+JVS(2948)*UV(307)+JVS(3501)*UV(325)+JVS(4154)&\n                &*UV(335)+JVS(4462)*UV(337)+JVS(5184)*UV(345)+JVS(5314)*UV(346)\n  JTUV(294) = JVS(172)*UV(30)+JVS(394)*UV(35)+JVS(500)*UV(36)+JVS(2572)*UV(294)+JVS(3365)*UV(324)+JVS(3638)*UV(327)&\n                &+JVS(3842)*UV(329)+JVS(4463)*UV(337)+JVS(5185)*UV(345)+JVS(5559)*UV(351)\n  JTUV(295) = JVS(501)*UV(36)+JVS(2613)*UV(295)+JVS(3068)*UV(313)+JVS(3366)*UV(324)+JVS(3727)*UV(328)+JVS(3843)*UV(329)&\n                &+JVS(4251)*UV(336)+JVS(4594)*UV(339)+JVS(4688)*UV(340)+JVS(4838)*UV(342)+JVS(5186)*UV(345)+JVS(5615)&\n                &*UV(352)\n  JTUV(296) = JVS(58)*UV(7)+JVS(279)*UV(34)+JVS(676)*UV(83)+JVS(835)*UV(118)+JVS(1040)*UV(156)+JVS(2283)*UV(282)&\n                &+JVS(2317)*UV(283)+JVS(2639)*UV(296)+JVS(3367)*UV(324)+JVS(3502)*UV(325)+JVS(3562)*UV(326)+JVS(3728)&\n                &*UV(328)+JVS(4155)*UV(335)+JVS(4464)*UV(337)+JVS(4534)*UV(338)+JVS(4689)*UV(340)+JVS(5315)*UV(346)\n  JTUV(297) = JVS(280)*UV(34)+JVS(395)*UV(35)+JVS(1047)*UV(157)+JVS(1668)*UV(239)+JVS(1741)*UV(245)+JVS(2653)*UV(297)&\n                &+JVS(3956)*UV(333)+JVS(4156)*UV(335)+JVS(4596)*UV(339)+JVS(4690)*UV(340)+JVS(4940)*UV(344)+JVS(5188)&\n                &*UV(345)+JVS(5440)*UV(349)+JVS(5466)*UV(350)+JVS(5616)*UV(352)+JVS(5654)*UV(353)\n  JTUV(298) = JVS(396)*UV(35)+JVS(502)*UV(36)+JVS(2699)*UV(298)+JVS(3126)*UV(315)+JVS(3237)*UV(321)+JVS(3269)*UV(322)&\n                &+JVS(3293)*UV(323)+JVS(3639)*UV(327)+JVS(3844)*UV(329)+JVS(4254)*UV(336)+JVS(4465)*UV(337)+JVS(5189)&\n                &*UV(345)+JVS(5560)*UV(351)\n  JTUV(299) = JVS(397)*UV(35)+JVS(762)*UV(103)+JVS(975)*UV(145)+JVS(1193)*UV(180)+JVS(2727)*UV(299)+JVS(2755)*UV(301)&\n                &+JVS(2810)*UV(303)+JVS(2888)*UV(306)+JVS(2949)*UV(307)+JVS(2999)*UV(309)+JVS(3106)*UV(314)+JVS(3503)&\n                &*UV(325)+JVS(4157)*UV(335)+JVS(4466)*UV(337)+JVS(5190)*UV(345)\n  JTUV(300) = JVS(59)*UV(7)+JVS(281)*UV(34)+JVS(748)*UV(102)+JVS(1239)*UV(188)+JVS(2233)*UV(279)+JVS(2284)*UV(282)&\n                &+JVS(2318)*UV(283)+JVS(2508)*UV(292)+JVS(2614)*UV(295)+JVS(2700)*UV(298)+JVS(2742)*UV(300)+JVS(3127)&\n                &*UV(315)+JVS(3238)*UV(321)+JVS(3294)*UV(323)+JVS(3369)*UV(324)+JVS(3504)*UV(325)+JVS(3563)*UV(326)&\n                &+JVS(3729)*UV(328)+JVS(4158)*UV(335)+JVS(4467)*UV(337)+JVS(5318)*UV(346)\n  JTUV(301) = JVS(503)*UV(36)+JVS(842)*UV(119)+JVS(1133)*UV(171)+JVS(1139)*UV(172)+JVS(1202)*UV(182)+JVS(1224)*UV(185)&\n                &+JVS(1278)*UV(194)+JVS(1450)*UV(215)+JVS(1463)*UV(216)+JVS(2756)*UV(301)+JVS(2779)*UV(302)+JVS(3847)&\n                &*UV(329)+JVS(4159)*UV(335)+JVS(4468)*UV(337)+JVS(5192)*UV(345)\n  JTUV(302) = JVS(282)*UV(34)+JVS(398)*UV(35)+JVS(763)*UV(103)+JVS(819)*UV(115)+JVS(1558)*UV(227)+JVS(1940)*UV(261)&\n                &+JVS(2024)*UV(265)+JVS(2575)*UV(294)+JVS(2780)*UV(302)+JVS(2890)*UV(306)+JVS(3371)*UV(324)+JVS(3506)&\n                &*UV(325)+JVS(4160)*UV(335)+JVS(4469)*UV(337)+JVS(5193)*UV(345)+JVS(5564)*UV(351)\n  JTUV(303) = JVS(399)*UV(35)+JVS(764)*UV(103)+JVS(1203)*UV(182)+JVS(1279)*UV(194)+JVS(1399)*UV(210)+JVS(1730)*UV(244)&\n                &+JVS(1789)*UV(248)+JVS(1941)*UV(261)+JVS(2053)*UV(266)+JVS(2414)*UV(287)+JVS(2525)*UV(293)+JVS(2781)&\n                &*UV(302)+JVS(2811)*UV(303)+JVS(2891)*UV(306)+JVS(2951)*UV(307)+JVS(3507)*UV(325)+JVS(4161)*UV(335)&\n                &+JVS(4470)*UV(337)+JVS(5194)*UV(345)\n  JTUV(304) = JVS(283)*UV(34)+JVS(504)*UV(36)+JVS(971)*UV(144)+JVS(1114)*UV(168)+JVS(1266)*UV(192)+JVS(1309)*UV(199)&\n                &+JVS(1585)*UV(231)+JVS(1655)*UV(238)+JVS(1731)*UV(244)+JVS(2067)*UV(268)+JVS(2415)*UV(287)+JVS(2448)&\n                &*UV(288)+JVS(2577)*UV(294)+JVS(2826)*UV(304)+JVS(2840)*UV(305)+JVS(3001)*UV(309)+JVS(3108)*UV(314)&\n                &+JVS(3508)*UV(325)+JVS(3730)*UV(328)+JVS(3850)*UV(329)+JVS(4162)*UV(335)+JVS(4471)*UV(337)+JVS(5195)&\n                &*UV(345)+JVS(5321)*UV(346)\n  JTUV(305) = JVS(284)*UV(34)+JVS(505)*UV(36)+JVS(1007)*UV(150)+JVS(1162)*UV(175)+JVS(1231)*UV(187)+JVS(1390)*UV(209)&\n                &+JVS(1400)*UV(210)+JVS(1579)*UV(230)+JVS(1656)*UV(238)+JVS(2061)*UV(267)+JVS(2416)*UV(287)+JVS(2449)&\n                &*UV(288)+JVS(2578)*UV(294)+JVS(2827)*UV(304)+JVS(2841)*UV(305)+JVS(3002)*UV(309)+JVS(3109)*UV(314)&\n                &+JVS(3374)*UV(324)+JVS(3509)*UV(325)+JVS(3731)*UV(328)+JVS(3851)*UV(329)+JVS(4163)*UV(335)+JVS(4472)&\n                &*UV(337)+JVS(5196)*UV(345)+JVS(5322)*UV(346)\n  JTUV(306) = JVS(60)*UV(7)+JVS(400)*UV(35)+JVS(506)*UV(36)+JVS(1419)*UV(213)+JVS(2028)*UV(265)+JVS(2124)*UV(270)&\n                &+JVS(2285)*UV(282)+JVS(2894)*UV(306)+JVS(3510)*UV(325)+JVS(3647)*UV(327)+JVS(3852)*UV(329)+JVS(4473)&\n                &*UV(337)+JVS(5197)*UV(345)+JVS(5568)*UV(351)\n  JTUV(307) = JVS(61)*UV(7)+JVS(507)*UV(36)+JVS(2029)*UV(265)+JVS(2319)*UV(283)+JVS(2579)*UV(294)+JVS(2954)*UV(307)&\n                &+JVS(3375)*UV(324)+JVS(3511)*UV(325)+JVS(3732)*UV(328)+JVS(3853)*UV(329)+JVS(4474)*UV(337)+JVS(5198)&\n                &*UV(345)\n  JTUV(308) = JVS(62)*UV(7)+JVS(285)*UV(34)+JVS(401)*UV(35)+JVS(1214)*UV(184)+JVS(1464)*UV(216)+JVS(1792)*UV(248)&\n                &+JVS(2955)*UV(307)+JVS(2978)*UV(308)+JVS(3512)*UV(325)+JVS(3733)*UV(328)+JVS(4165)*UV(335)+JVS(4475)&\n                &*UV(337)+JVS(4784)*UV(341)+JVS(5199)*UV(345)+JVS(5324)*UV(346)+JVS(5570)*UV(351)\n  JTUV(309) = JVS(402)*UV(35)+JVS(508)*UV(36)+JVS(1732)*UV(244)+JVS(1775)*UV(247)+JVS(1833)*UV(253)+JVS(1914)*UV(259)&\n                &+JVS(2581)*UV(294)+JVS(3003)*UV(309)+JVS(3046)*UV(312)+JVS(3377)*UV(324)+JVS(3513)*UV(325)+JVS(3650)&\n                &*UV(327)+JVS(3855)*UV(329)+JVS(4476)*UV(337)+JVS(4785)*UV(341)+JVS(5200)*UV(345)+JVS(5571)*UV(351)\n  JTUV(310) = JVS(63)*UV(7)+JVS(286)*UV(34)+JVS(403)*UV(35)+JVS(976)*UV(145)+JVS(1509)*UV(222)+JVS(2068)*UV(268)&\n                &+JVS(2286)*UV(282)+JVS(2731)*UV(299)+JVS(2760)*UV(301)+JVS(3004)*UV(309)+JVS(3016)*UV(310)+JVS(3028)&\n                &*UV(311)+JVS(3110)*UV(314)+JVS(3378)*UV(324)+JVS(3514)*UV(325)+JVS(3735)*UV(328)+JVS(4167)*UV(335)&\n                &+JVS(4477)*UV(337)+JVS(5201)*UV(345)+JVS(5326)*UV(346)+JVS(5572)*UV(351)\n  JTUV(311) = JVS(64)*UV(7)+JVS(287)*UV(34)+JVS(404)*UV(35)+JVS(977)*UV(145)+JVS(1227)*UV(186)+JVS(1510)*UV(222)&\n                &+JVS(2062)*UV(267)+JVS(2069)*UV(268)+JVS(2287)*UV(282)+JVS(2732)*UV(299)+JVS(2761)*UV(301)+JVS(3005)&\n                &*UV(309)+JVS(3017)*UV(310)+JVS(3029)*UV(311)+JVS(3111)*UV(314)+JVS(3379)*UV(324)+JVS(3515)*UV(325)&\n                &+JVS(3736)*UV(328)+JVS(4168)*UV(335)+JVS(4478)*UV(337)+JVS(5327)*UV(346)+JVS(5573)*UV(351)\n  JTUV(312) = JVS(65)*UV(7)+JVS(181)*UV(32)+JVS(288)*UV(34)+JVS(405)*UV(35)+JVS(523)*UV(37)+JVS(531)*UV(38)+JVS(545)&\n                &*UV(40)+JVS(692)*UV(88)+JVS(923)*UV(134)+JVS(1997)*UV(264)+JVS(2032)*UV(265)+JVS(3049)*UV(312)+JVS(3516)&\n                &*UV(325)+JVS(3858)*UV(329)+JVS(4169)*UV(335)+JVS(4267)*UV(336)+JVS(4788)*UV(341)+JVS(5328)*UV(346)&\n                &+JVS(5408)*UV(348)+JVS(5574)*UV(351)\n  JTUV(313) = JVS(66)*UV(7)+JVS(289)*UV(34)+JVS(1734)*UV(244)+JVS(2288)*UV(282)+JVS(2320)*UV(283)+JVS(2584)*UV(294)&\n                &+JVS(2959)*UV(307)+JVS(3077)*UV(313)+JVS(3380)*UV(324)+JVS(3517)*UV(325)+JVS(3737)*UV(328)+JVS(4170)&\n                &*UV(335)+JVS(4480)*UV(337)+JVS(5204)*UV(345)+JVS(5329)*UV(346)\n  JTUV(314) = JVS(406)*UV(35)+JVS(509)*UV(36)+JVS(546)*UV(40)+JVS(820)*UV(115)+JVS(1844)*UV(254)+JVS(1998)*UV(264)&\n                &+JVS(2475)*UV(290)+JVS(2585)*UV(294)+JVS(3050)*UV(312)+JVS(3112)*UV(314)+JVS(3271)*UV(322)+JVS(3381)&\n                &*UV(324)+JVS(3518)*UV(325)+JVS(3738)*UV(328)+JVS(3860)*UV(329)+JVS(4481)*UV(337)+JVS(4789)*UV(341)&\n                &+JVS(5205)*UV(345)\n  JTUV(315) = JVS(67)*UV(7)+JVS(290)*UV(34)+JVS(836)*UV(118)+JVS(1041)*UV(156)+JVS(2289)*UV(282)+JVS(2321)*UV(283)&\n                &+JVS(3129)*UV(315)+JVS(3382)*UV(324)+JVS(3519)*UV(325)+JVS(3565)*UV(326)+JVS(3739)*UV(328)+JVS(4172)&\n                &*UV(335)+JVS(4482)*UV(337)+JVS(4536)*UV(338)+JVS(4706)*UV(340)+JVS(5331)*UV(346)\n  JTUV(316) = JVS(407)*UV(35)+JVS(532)*UV(38)+JVS(924)*UV(134)+JVS(994)*UV(148)+JVS(1048)*UV(157)+JVS(3148)*UV(316)&\n                &+JVS(4271)*UV(336)+JVS(4613)*UV(339)+JVS(4842)*UV(342)+JVS(4906)*UV(343)+JVS(4941)*UV(344)+JVS(5207)&\n                &*UV(345)+JVS(5374)*UV(347)+JVS(5410)*UV(348)+JVS(5441)*UV(349)+JVS(5467)*UV(350)+JVS(5619)*UV(352)&\n                &+JVS(5655)*UV(353)\n  JTUV(317) = JVS(291)*UV(34)+JVS(408)*UV(35)+JVS(1049)*UV(157)+JVS(1742)*UV(245)+JVS(3164)*UV(317)+JVS(3655)*UV(327)&\n                &+JVS(3957)*UV(333)+JVS(4173)*UV(335)+JVS(4272)*UV(336)+JVS(4537)*UV(338)+JVS(4614)*UV(339)+JVS(4708)&\n                &*UV(340)+JVS(4907)*UV(343)+JVS(4942)*UV(344)+JVS(5208)*UV(345)+JVS(5442)*UV(349)+JVS(5468)*UV(350)&\n                &+JVS(5577)*UV(351)+JVS(5620)*UV(352)+JVS(5656)*UV(353)\n  JTUV(318) = JVS(68)*UV(7)+JVS(292)*UV(34)+JVS(1240)*UV(188)+JVS(1814)*UV(251)+JVS(2290)*UV(282)+JVS(2322)*UV(283)&\n                &+JVS(2702)*UV(298)+JVS(3179)*UV(318)+JVS(3205)*UV(319)+JVS(3383)*UV(324)+JVS(3520)*UV(325)+JVS(3566)&\n                &*UV(326)+JVS(3740)*UV(328)+JVS(4174)*UV(335)+JVS(4483)*UV(337)+JVS(5332)*UV(346)\n  JTUV(319) = JVS(69)*UV(7)+JVS(293)*UV(34)+JVS(730)*UV(97)+JVS(1241)*UV(188)+JVS(1815)*UV(251)+JVS(2291)*UV(282)&\n                &+JVS(2323)*UV(283)+JVS(2510)*UV(292)+JVS(2616)*UV(295)+JVS(2703)*UV(298)+JVS(3131)*UV(315)+JVS(3206)&\n                &*UV(319)+JVS(3241)*UV(321)+JVS(3297)*UV(323)+JVS(3384)*UV(324)+JVS(3521)*UV(325)+JVS(3567)*UV(326)&\n                &+JVS(3741)*UV(328)+JVS(4175)*UV(335)+JVS(4484)*UV(337)+JVS(5333)*UV(346)\n  JTUV(320) = JVS(70)*UV(7)+JVS(294)*UV(34)+JVS(1242)*UV(188)+JVS(1735)*UV(244)+JVS(1755)*UV(246)+JVS(1816)*UV(251)&\n                &+JVS(2234)*UV(279)+JVS(2292)*UV(282)+JVS(2324)*UV(283)+JVS(2511)*UV(292)+JVS(3222)*UV(320)+JVS(3385)&\n                &*UV(324)+JVS(3522)*UV(325)+JVS(3568)*UV(326)+JVS(3742)*UV(328)+JVS(4176)*UV(335)+JVS(4485)*UV(337)&\n                &+JVS(5211)*UV(345)+JVS(5334)*UV(346)\n  JTUV(321) = JVS(71)*UV(7)+JVS(295)*UV(34)+JVS(719)*UV(95)+JVS(738)*UV(99)+JVS(1243)*UV(188)+JVS(2293)*UV(282)&\n                &+JVS(2325)*UV(283)+JVS(2705)*UV(298)+JVS(3243)*UV(321)+JVS(3386)*UV(324)+JVS(3523)*UV(325)+JVS(3743)&\n                &*UV(328)+JVS(4177)*UV(335)+JVS(4486)*UV(337)+JVS(5335)*UV(346)\n  JTUV(322) = JVS(72)*UV(7)+JVS(296)*UV(34)+JVS(864)*UV(124)+JVS(1036)*UV(155)+JVS(1151)*UV(173)+JVS(3134)*UV(315)&\n                &+JVS(3244)*UV(321)+JVS(3276)*UV(322)+JVS(3300)*UV(323)+JVS(3387)*UV(324)+JVS(3524)*UV(325)+JVS(3744)&\n                &*UV(328)+JVS(4178)*UV(335)+JVS(4487)*UV(337)+JVS(4791)*UV(341)+JVS(5213)*UV(345)+JVS(5336)*UV(346)\n  JTUV(323) = JVS(73)*UV(7)+JVS(297)*UV(34)+JVS(704)*UV(91)+JVS(742)*UV(100)+JVS(1244)*UV(188)+JVS(2294)*UV(282)&\n                &+JVS(2326)*UV(283)+JVS(2618)*UV(295)+JVS(3301)*UV(323)+JVS(3388)*UV(324)+JVS(3525)*UV(325)+JVS(3745)&\n                &*UV(328)+JVS(4179)*UV(335)+JVS(4488)*UV(337)+JVS(5337)*UV(346)\n  JTUV(324) = JVS(74)*UV(7)+JVS(298)*UV(34)+JVS(708)*UV(92)+JVS(890)*UV(129)+JVS(949)*UV(139)+JVS(978)*UV(145)+JVS(1152)&\n                &*UV(173)+JVS(1533)*UV(225)+JVS(1643)*UV(237)+JVS(1704)*UV(242)+JVS(1799)*UV(249)+JVS(1807)*UV(250)&\n                &+JVS(1852)*UV(255)+JVS(1874)*UV(256)+JVS(1887)*UV(257)+JVS(1923)*UV(260)+JVS(1952)*UV(262)+JVS(1986)&\n                &*UV(263)+JVS(2181)*UV(274)+JVS(2193)*UV(275)+JVS(2209)*UV(277)+JVS(2223)*UV(278)+JVS(2249)*UV(280)&\n                &+JVS(2260)*UV(281)+JVS(2327)*UV(283)+JVS(2467)*UV(289)+JVS(2483)*UV(291)+JVS(2512)*UV(292)+JVS(2587)&\n                &*UV(294)+JVS(2619)*UV(295)+JVS(2642)*UV(296)+JVS(2707)*UV(298)+JVS(2743)*UV(300)+JVS(2762)*UV(301)&\n                &+JVS(2961)*UV(307)+JVS(3006)*UV(309)+JVS(3018)*UV(310)+JVS(3030)*UV(311)+JVS(3082)*UV(313)+JVS(3113)&\n                &*UV(314)+JVS(3136)*UV(315)+JVS(3182)*UV(318)+JVS(3208)*UV(319)+JVS(3223)*UV(320)+JVS(3246)*UV(321)&\n                &+JVS(3278)*UV(322)+JVS(3302)*UV(323)+JVS(3389)*UV(324)+JVS(3526)*UV(325)+JVS(3572)*UV(326)+JVS(3746)&\n                &*UV(328)+JVS(4180)*UV(335)+JVS(4489)*UV(337)+JVS(4793)*UV(341)+JVS(5215)*UV(345)+JVS(5338)*UV(346)\n  JTUV(325) = JVS(409)*UV(35)+JVS(510)*UV(36)+JVS(696)*UV(89)+JVS(1472)*UV(217)+JVS(3527)*UV(325)+JVS(3663)*UV(327)&\n                &+JVS(3868)*UV(329)+JVS(4280)*UV(336)+JVS(4490)*UV(337)+JVS(4622)*UV(339)+JVS(4716)*UV(340)+JVS(4849)&\n                &*UV(342)+JVS(4909)*UV(343)+JVS(5216)*UV(345)+JVS(5412)*UV(348)+JVS(5585)*UV(351)+JVS(5626)*UV(352)\n  JTUV(326) = JVS(410)*UV(35)+JVS(511)*UV(36)+JVS(1565)*UV(228)+JVS(3390)*UV(324)+JVS(3528)*UV(325)+JVS(3573)*UV(326)&\n                &+JVS(3664)*UV(327)+JVS(3747)*UV(328)+JVS(3869)*UV(329)+JVS(4281)*UV(336)+JVS(4491)*UV(337)+JVS(4850)&\n                &*UV(342)+JVS(5217)*UV(345)+JVS(5586)*UV(351)+JVS(5627)*UV(352)\n  JTUV(327) = JVS(299)*UV(34)+JVS(609)*UV(64)+JVS(613)*UV(65)+JVS(1105)*UV(166)+JVS(1188)*UV(179)+JVS(3665)*UV(327)&\n                &+JVS(4182)*UV(335)+JVS(4282)*UV(336)+JVS(5218)*UV(345)+JVS(5587)*UV(351)\n  JTUV(328) = JVS(75)*UV(7)+JVS(300)*UV(34)+JVS(411)*UV(35)+JVS(512)*UV(36)+JVS(617)*UV(66)+JVS(668)*UV(80)+JVS(712)&\n                &*UV(93)+JVS(779)*UV(106)+JVS(796)*UV(110)+JVS(891)*UV(129)+JVS(899)*UV(130)+JVS(937)*UV(136)+JVS(979)&\n                &*UV(145)+JVS(1042)*UV(156)+JVS(1072)*UV(160)+JVS(1077)*UV(161)+JVS(1089)*UV(163)+JVS(1095)*UV(164)&\n                &+JVS(1120)*UV(169)+JVS(1245)*UV(188)+JVS(1341)*UV(203)+JVS(1465)*UV(216)+JVS(1511)*UV(222)+JVS(1534)&\n                &*UV(225)+JVS(1609)*UV(234)+JVS(1620)*UV(235)+JVS(1634)*UV(236)+JVS(1644)*UV(237)+JVS(1657)*UV(238)&\n                &+JVS(1705)*UV(242)+JVS(1800)*UV(249)+JVS(1808)*UV(250)+JVS(1853)*UV(255)+JVS(1875)*UV(256)+JVS(1888)&\n                &*UV(257)+JVS(1924)*UV(260)+JVS(1953)*UV(262)+JVS(1987)*UV(263)+JVS(2063)*UV(267)+JVS(2070)*UV(268)&\n                &+JVS(2147)*UV(272)+JVS(2160)*UV(273)+JVS(2182)*UV(274)+JVS(2194)*UV(275)+JVS(2210)*UV(277)+JVS(2224)&\n                &*UV(278)+JVS(2250)*UV(280)+JVS(2261)*UV(281)+JVS(2296)*UV(282)+JVS(2328)*UV(283)+JVS(2420)*UV(287)&\n                &+JVS(2453)*UV(288)+JVS(2468)*UV(289)+JVS(2484)*UV(291)+JVS(2513)*UV(292)+JVS(2588)*UV(294)+JVS(2620)&\n                &*UV(295)+JVS(2643)*UV(296)+JVS(2708)*UV(298)+JVS(2744)*UV(300)+JVS(2763)*UV(301)+JVS(2829)*UV(304)&\n                &+JVS(2843)*UV(305)+JVS(2900)*UV(306)+JVS(2962)*UV(307)+JVS(2983)*UV(308)+JVS(3007)*UV(309)+JVS(3019)&\n                &*UV(310)+JVS(3031)*UV(311)+JVS(3083)*UV(313)+JVS(3114)*UV(314)+JVS(3137)*UV(315)+JVS(3183)*UV(318)&\n                &+JVS(3209)*UV(319)+JVS(3224)*UV(320)+JVS(3247)*UV(321)+JVS(3279)*UV(322)+JVS(3303)*UV(323)+JVS(3391)&\n                &*UV(324)+JVS(3529)*UV(325)+JVS(3574)*UV(326)+JVS(3748)*UV(328)+JVS(3870)*UV(329)+JVS(4183)*UV(335)&\n                &+JVS(4492)*UV(337)+JVS(4546)*UV(338)+JVS(4718)*UV(340)+JVS(4797)*UV(341)+JVS(5219)*UV(345)+JVS(5341)&\n                &*UV(346)+JVS(5588)*UV(351)\n  JTUV(329) = JVS(76)*UV(7)+JVS(524)*UV(37)+JVS(1693)*UV(241)+JVS(3053)*UV(312)+JVS(3530)*UV(325)+JVS(3575)*UV(326)&\n                &+JVS(3871)*UV(329)+JVS(4493)*UV(337)+JVS(5220)*UV(345)\n  JTUV(330) = JVS(92)*UV(9)+JVS(100)*UV(10)+JVS(412)*UV(35)+JVS(657)*UV(77)+JVS(768)*UV(104)+JVS(2344)*UV(284)+JVS(3888)&\n                &*UV(330)+JVS(3917)*UV(331)+JVS(4285)*UV(336)+JVS(4946)*UV(344)+JVS(5221)*UV(345)+JVS(5443)*UV(349)&\n                &+JVS(5469)*UV(350)+JVS(5660)*UV(353)\n  JTUV(331) = JVS(601)*UV(62)+JVS(642)*UV(73)+JVS(1126)*UV(170)+JVS(1821)*UV(252)+JVS(2345)*UV(284)+JVS(3918)*UV(331)&\n                &+JVS(3937)*UV(332)+JVS(4186)*UV(335)+JVS(4495)*UV(337)+JVS(4799)*UV(341)+JVS(4854)*UV(342)+JVS(5344)&\n                &*UV(346)+JVS(5376)*UV(347)+JVS(5590)*UV(351)\n  JTUV(332) = JVS(93)*UV(9)+JVS(101)*UV(10)+JVS(413)*UV(35)+JVS(658)*UV(77)+JVS(769)*UV(104)+JVS(1127)*UV(170)+JVS(2346)&\n                &*UV(284)+JVS(3668)*UV(327)+JVS(3890)*UV(330)+JVS(3919)*UV(331)+JVS(3938)*UV(332)+JVS(4187)*UV(335)&\n                &+JVS(4287)*UV(336)+JVS(4948)*UV(344)+JVS(5445)*UV(349)+JVS(5471)*UV(350)+JVS(5591)*UV(351)+JVS(5662)&\n                &*UV(353)\n  JTUV(333) = JVS(414)*UV(35)+JVS(533)*UV(38)+JVS(926)*UV(134)+JVS(1050)*UV(157)+JVS(1744)*UV(245)+JVS(3963)*UV(333)&\n                &+JVS(4288)*UV(336)+JVS(4551)*UV(338)+JVS(4628)*UV(339)+JVS(4723)*UV(340)+JVS(4949)*UV(344)+JVS(5224)&\n                &*UV(345)+JVS(5418)*UV(348)+JVS(5630)*UV(352)+JVS(5663)*UV(353)\n  JTUV(334) = JVS(415)*UV(35)+JVS(539)*UV(39)+JVS(564)*UV(46)+JVS(566)*UV(47)+JVS(568)*UV(48)+JVS(570)*UV(49)+JVS(572)&\n                &*UV(50)+JVS(574)*UV(51)+JVS(578)*UV(53)+JVS(580)*UV(54)+JVS(599)*UV(61)+JVS(605)*UV(63)+JVS(662)*UV(78)&\n                &+JVS(671)*UV(81)+JVS(680)*UV(84)+JVS(683)*UV(85)+JVS(686)*UV(86)+JVS(689)*UV(87)+JVS(774)*UV(105)+JVS(1198)&\n                &*UV(181)+JVS(1473)*UV(217)+JVS(1566)*UV(228)+JVS(1745)*UV(245)+JVS(3531)*UV(325)+JVS(3750)*UV(328)&\n                &+JVS(4014)*UV(334)+JVS(4289)*UV(336)+JVS(4497)*UV(337)+JVS(4552)*UV(338)+JVS(4629)*UV(339)+JVS(4724)&\n                &*UV(340)+JVS(4801)*UV(341)+JVS(4857)*UV(342)+JVS(4917)*UV(343)+JVS(5225)*UV(345)+JVS(5346)*UV(346)&\n                &+JVS(5378)*UV(347)+JVS(5631)*UV(352)\n  JTUV(335) = JVS(301)*UV(34)+JVS(416)*UV(35)+JVS(586)*UV(56)+JVS(589)*UV(57)+JVS(594)*UV(59)+JVS(606)*UV(63)+JVS(621)&\n                &*UV(67)+JVS(669)*UV(80)+JVS(701)*UV(90)+JVS(787)*UV(108)+JVS(811)*UV(113)+JVS(815)*UV(114)+JVS(857)*UV(122)&\n                &+JVS(865)*UV(124)+JVS(873)*UV(126)+JVS(950)*UV(139)+JVS(1134)*UV(171)+JVS(1140)*UV(172)+JVS(1215)*UV(184)&\n                &+JVS(1297)*UV(197)+JVS(1342)*UV(203)+JVS(1420)*UV(213)+JVS(1426)*UV(214)+JVS(1482)*UV(218)+JVS(1621)&\n                &*UV(235)+JVS(1635)*UV(236)+JVS(1670)*UV(239)+JVS(1686)*UV(240)+JVS(1694)*UV(241)+JVS(1756)*UV(246)&\n                &+JVS(1793)*UV(248)+JVS(1822)*UV(252)+JVS(1889)*UV(257)+JVS(1915)*UV(259)+JVS(2083)*UV(269)+JVS(2183)&\n                &*UV(274)+JVS(2347)*UV(284)+JVS(2789)*UV(302)+JVS(2984)*UV(308)+JVS(3054)*UV(312)+JVS(3165)*UV(317)&\n                &+JVS(3280)*UV(322)+JVS(3392)*UV(324)+JVS(3532)*UV(325)+JVS(3576)*UV(326)+JVS(3670)*UV(327)+JVS(3751)&\n                &*UV(328)+JVS(3920)*UV(331)+JVS(3939)*UV(332)+JVS(4189)*UV(335)+JVS(4498)*UV(337)+JVS(4553)*UV(338)&\n                &+JVS(4802)*UV(341)+JVS(4858)*UV(342)+JVS(4918)*UV(343)+JVS(5226)*UV(345)+JVS(5347)*UV(346)+JVS(5379)&\n                &*UV(347)+JVS(5593)*UV(351)\n  JTUV(336) = JVS(417)*UV(35)+JVS(547)*UV(40)+JVS(693)*UV(88)+JVS(1427)*UV(214)+JVS(1483)*UV(218)+JVS(1695)*UV(241)&\n                &+JVS(2001)*UV(264)+JVS(2034)*UV(265)+JVS(2331)*UV(283)+JVS(3055)*UV(312)+JVS(3150)*UV(316)+JVS(3166)&\n                &*UV(317)+JVS(3533)*UV(325)+JVS(3577)*UV(326)+JVS(3671)*UV(327)+JVS(3892)*UV(330)+JVS(3940)*UV(332)&\n                &+JVS(3966)*UV(333)+JVS(4016)*UV(334)+JVS(4291)*UV(336)+JVS(5227)*UV(345)\n  JTUV(337) = JVS(77)*UV(7)+JVS(104)*UV(11)+JVS(110)*UV(13)+JVS(121)*UV(16)+JVS(127)*UV(18)+JVS(134)*UV(20)+JVS(140)&\n                &*UV(22)+JVS(153)*UV(25)+JVS(159)*UV(27)+JVS(302)*UV(34)+JVS(418)*UV(35)+JVS(513)*UV(36)+JVS(548)*UV(40)&\n                &+JVS(618)*UV(66)+JVS(635)*UV(71)+JVS(639)*UV(72)+JVS(643)*UV(73)+JVS(647)*UV(74)+JVS(709)*UV(92)+JVS(731)&\n                &*UV(97)+JVS(735)*UV(98)+JVS(739)*UV(99)+JVS(743)*UV(100)+JVS(749)*UV(102)+JVS(788)*UV(108)+JVS(803)*UV(111)&\n                &+JVS(807)*UV(112)+JVS(832)*UV(117)+JVS(837)*UV(118)+JVS(852)*UV(121)+JVS(861)*UV(123)+JVS(869)*UV(125)&\n                &+JVS(900)*UV(130)+JVS(905)*UV(131)+JVS(910)*UV(132)+JVS(915)*UV(133)+JVS(932)*UV(135)+JVS(938)*UV(136)&\n                &+JVS(985)*UV(146)+JVS(1024)*UV(153)+JVS(1037)*UV(155)+JVS(1068)*UV(159)+JVS(1073)*UV(160)+JVS(1078)*UV(161)&\n                &+JVS(1096)*UV(164)+JVS(1101)*UV(165)+JVS(1121)*UV(169)+JVS(1135)*UV(171)+JVS(1141)*UV(172)+JVS(1153)&\n                &*UV(173)+JVS(1159)*UV(174)+JVS(1183)*UV(178)+JVS(1194)*UV(180)+JVS(1204)*UV(182)+JVS(1228)*UV(186)&\n                &+JVS(1232)*UV(187)+JVS(1251)*UV(189)+JVS(1258)*UV(190)+JVS(1267)*UV(192)+JVS(1290)*UV(196)+JVS(1298)&\n                &*UV(197)+JVS(1310)*UV(199)+JVS(1356)*UV(204)+JVS(1364)*UV(205)+JVS(1369)*UV(206)+JVS(1374)*UV(207)&\n                &+JVS(1386)*UV(208)+JVS(1391)*UV(209)+JVS(1401)*UV(210)+JVS(1412)*UV(212)+JVS(1421)*UV(213)+JVS(1466)&\n                &*UV(216)+JVS(1474)*UV(217)+JVS(1512)*UV(222)+JVS(1518)*UV(223)+JVS(1525)*UV(224)+JVS(1543)*UV(226)&\n                &+JVS(1572)*UV(229)+JVS(1593)*UV(232)+JVS(1610)*UV(234)+JVS(1622)*UV(235)+JVS(1636)*UV(236)+JVS(1645)&\n                &*UV(237)+JVS(1687)*UV(240)+JVS(1706)*UV(242)+JVS(1720)*UV(243)+JVS(1736)*UV(244)+JVS(1757)*UV(246)&\n                &+JVS(1778)*UV(247)+JVS(1794)*UV(248)+JVS(1801)*UV(249)+JVS(1809)*UV(250)+JVS(1817)*UV(251)+JVS(1835)&\n                &*UV(253)+JVS(1846)*UV(254)+JVS(1854)*UV(255)+JVS(1876)*UV(256)+JVS(1890)*UV(257)+JVS(1907)*UV(258)&\n                &+JVS(1916)*UV(259)+JVS(1925)*UV(260)+JVS(1943)*UV(261)+JVS(1988)*UV(263)+JVS(2002)*UV(264)+JVS(2129)&\n                &*UV(270)+JVS(2139)*UV(271)+JVS(2148)*UV(272)+JVS(2161)*UV(273)+JVS(2184)*UV(274)+JVS(2195)*UV(275)&\n                &+JVS(2211)*UV(277)+JVS(2226)*UV(278)+JVS(2237)*UV(279)+JVS(2251)*UV(280)+JVS(2262)*UV(281)+JVS(2332)&\n                &*UV(283)+JVS(2348)*UV(284)+JVS(2371)*UV(285)+JVS(2391)*UV(286)+JVS(2422)*UV(287)+JVS(2455)*UV(288)&\n                &+JVS(2469)*UV(289)+JVS(2485)*UV(291)+JVS(2530)*UV(293)+JVS(2590)*UV(294)+JVS(2645)*UV(296)+JVS(2710)&\n                &*UV(298)+JVS(2735)*UV(299)+JVS(2745)*UV(300)+JVS(2790)*UV(302)+JVS(2818)*UV(303)+JVS(2830)*UV(304)&\n                &+JVS(2844)*UV(305)+JVS(2902)*UV(306)+JVS(2964)*UV(307)+JVS(2985)*UV(308)+JVS(3008)*UV(309)+JVS(3020)&\n                &*UV(310)+JVS(3032)*UV(311)+JVS(3085)*UV(313)+JVS(3115)*UV(314)+JVS(3139)*UV(315)+JVS(3151)*UV(316)&\n                &+JVS(3185)*UV(318)+JVS(3211)*UV(319)+JVS(3226)*UV(320)+JVS(3249)*UV(321)+JVS(3281)*UV(322)+JVS(3305)&\n                &*UV(323)+JVS(3393)*UV(324)+JVS(3534)*UV(325)+JVS(3578)*UV(326)+JVS(3753)*UV(328)+JVS(3875)*UV(329)&\n                &+JVS(3893)*UV(330)+JVS(3922)*UV(331)+JVS(3967)*UV(333)+JVS(4191)*UV(335)+JVS(4292)*UV(336)+JVS(4500)&\n                &*UV(337)+JVS(4555)*UV(338)+JVS(4632)*UV(339)+JVS(4727)*UV(340)+JVS(4804)*UV(341)+JVS(4860)*UV(342)&\n                &+JVS(4920)*UV(343)+JVS(5228)*UV(345)+JVS(5349)*UV(346)+JVS(5381)*UV(347)+JVS(5595)*UV(351)+JVS(5634)&\n                &*UV(352)\n  JTUV(338) = JVS(419)*UV(35)+JVS(653)*UV(76)+JVS(770)*UV(104)+JVS(797)*UV(110)+JVS(846)*UV(120)+JVS(1051)*UV(157)&\n                &+JVS(1746)*UV(245)+JVS(2349)*UV(284)+JVS(3167)*UV(317)+JVS(3535)*UV(325)+JVS(3754)*UV(328)+JVS(3923)&\n                &*UV(331)+JVS(3968)*UV(333)+JVS(4192)*UV(335)+JVS(4501)*UV(337)+JVS(4556)*UV(338)+JVS(4633)*UV(339)&\n                &+JVS(4728)*UV(340)+JVS(4861)*UV(342)+JVS(4921)*UV(343)+JVS(5229)*UV(345)+JVS(5350)*UV(346)+JVS(5382)&\n                &*UV(347)\n  JTUV(339) = JVS(420)*UV(35)+JVS(1052)*UV(157)+JVS(1106)*UV(166)+JVS(1189)*UV(179)+JVS(1428)*UV(214)+JVS(1475)*UV(217)&\n                &+JVS(1484)*UV(218)+JVS(1671)*UV(239)+JVS(1747)*UV(245)+JVS(2656)*UV(297)+JVS(3152)*UV(316)+JVS(3168)&\n                &*UV(317)+JVS(3674)*UV(327)+JVS(3969)*UV(333)+JVS(4019)*UV(334)+JVS(4294)*UV(336)+JVS(4557)*UV(338)&\n                &+JVS(4634)*UV(339)+JVS(4729)*UV(340)+JVS(4922)*UV(343)+JVS(4955)*UV(344)+JVS(5230)*UV(345)+JVS(5669)&\n                &*UV(353)\n  JTUV(340) = JVS(78)*UV(7)+JVS(303)*UV(34)+JVS(514)*UV(36)+JVS(540)*UV(39)+JVS(650)*UV(75)+JVS(665)*UV(79)+JVS(798)&\n                &*UV(110)+JVS(957)*UV(141)+JVS(961)*UV(142)+JVS(1043)*UV(156)+JVS(1097)*UV(164)+JVS(1199)*UV(181)+JVS(1208)&\n                &*UV(183)+JVS(1476)*UV(217)+JVS(1567)*UV(228)+JVS(1748)*UV(245)+JVS(1926)*UV(260)+JVS(2003)*UV(264)&\n                &+JVS(2036)*UV(265)+JVS(2201)*UV(276)+JVS(2299)*UV(282)+JVS(2333)*UV(283)+JVS(2476)*UV(290)+JVS(2623)&\n                &*UV(295)+JVS(2646)*UV(296)+JVS(2746)*UV(300)+JVS(2831)*UV(304)+JVS(2845)*UV(305)+JVS(3086)*UV(313)&\n                &+JVS(3140)*UV(315)+JVS(3169)*UV(317)+JVS(3250)*UV(321)+JVS(3306)*UV(323)+JVS(3536)*UV(325)+JVS(3579)&\n                &*UV(326)+JVS(3755)*UV(328)+JVS(3877)*UV(329)+JVS(4295)*UV(336)+JVS(4503)*UV(337)+JVS(4558)*UV(338)&\n                &+JVS(4635)*UV(339)+JVS(4730)*UV(340)+JVS(4807)*UV(341)+JVS(5231)*UV(345)+JVS(5598)*UV(351)\n  JTUV(341) = JVS(79)*UV(7)+JVS(167)*UV(29)+JVS(421)*UV(35)+JVS(515)*UV(36)+JVS(534)*UV(38)+JVS(549)*UV(40)+JVS(792)&\n                &*UV(109)+JVS(821)*UV(115)+JVS(893)*UV(129)+JVS(927)*UV(134)+JVS(953)*UV(140)+JVS(966)*UV(143)+JVS(1030)&\n                &*UV(154)+JVS(1090)*UV(163)+JVS(1107)*UV(166)+JVS(1110)*UV(167)+JVS(1176)*UV(177)+JVS(1190)*UV(179)&\n                &+JVS(1262)*UV(191)+JVS(1271)*UV(193)+JVS(1321)*UV(201)+JVS(1329)*UV(202)+JVS(1344)*UV(203)+JVS(1357)&\n                &*UV(204)+JVS(1406)*UV(211)+JVS(1477)*UV(217)+JVS(1488)*UV(219)+JVS(1492)*UV(220)+JVS(1505)*UV(221)&\n                &+JVS(1536)*UV(225)+JVS(1568)*UV(228)+JVS(1573)*UV(229)+JVS(1600)*UV(233)+JVS(1637)*UV(236)+JVS(1646)&\n                &*UV(237)+JVS(1696)*UV(241)+JVS(1707)*UV(242)+JVS(1855)*UV(255)+JVS(1955)*UV(262)+JVS(1989)*UV(263)&\n                &+JVS(2004)*UV(264)+JVS(2037)*UV(265)+JVS(2130)*UV(270)+JVS(2149)*UV(272)+JVS(2162)*UV(273)+JVS(2185)&\n                &*UV(274)+JVS(2202)*UV(276)+JVS(2212)*UV(277)+JVS(2334)*UV(283)+JVS(2350)*UV(284)+JVS(2477)*UV(290)&\n                &+JVS(2516)*UV(292)+JVS(2592)*UV(294)+JVS(2624)*UV(295)+JVS(2712)*UV(298)+JVS(2904)*UV(306)+JVS(3010)&\n                &*UV(309)+JVS(3058)*UV(312)+JVS(3117)*UV(314)+JVS(3153)*UV(316)+JVS(3228)*UV(320)+JVS(3395)*UV(324)&\n                &+JVS(3537)*UV(325)+JVS(3580)*UV(326)+JVS(3756)*UV(328)+JVS(3878)*UV(329)+JVS(3924)*UV(331)+JVS(4021)&\n                &*UV(334)+JVS(4195)*UV(335)+JVS(4504)*UV(337)+JVS(4559)*UV(338)+JVS(4731)*UV(340)+JVS(4808)*UV(341)&\n                &+JVS(4864)*UV(342)+JVS(4924)*UV(343)+JVS(5232)*UV(345)+JVS(5353)*UV(346)+JVS(5385)*UV(347)+JVS(5426)&\n                &*UV(348)+JVS(5452)*UV(349)+JVS(5478)*UV(350)+JVS(5599)*UV(351)+JVS(5638)*UV(352)\n  JTUV(342) = JVS(516)*UV(36)+JVS(595)*UV(59)+JVS(958)*UV(141)+JVS(995)*UV(148)+JVS(1209)*UV(183)+JVS(1485)*UV(218)&\n                &+JVS(1927)*UV(260)+JVS(2478)*UV(290)+JVS(2625)*UV(295)+JVS(2648)*UV(296)+JVS(3088)*UV(313)+JVS(3252)&\n                &*UV(321)+JVS(3396)*UV(324)+JVS(3538)*UV(325)+JVS(3581)*UV(326)+JVS(3879)*UV(329)+JVS(4196)*UV(335)&\n                &+JVS(4505)*UV(337)+JVS(4809)*UV(341)+JVS(4865)*UV(342)+JVS(5386)*UV(347)+JVS(5600)*UV(351)+JVS(5639)&\n                &*UV(352)\n  JTUV(343) = JVS(422)*UV(35)+JVS(517)*UV(36)+JVS(624)*UV(68)+JVS(1478)*UV(217)+JVS(2005)*UV(264)+JVS(3155)*UV(316)&\n                &+JVS(3170)*UV(317)+JVS(3539)*UV(325)+JVS(3880)*UV(329)+JVS(4197)*UV(335)+JVS(4506)*UV(337)+JVS(4561)&\n                &*UV(338)+JVS(4733)*UV(340)+JVS(4810)*UV(341)+JVS(4866)*UV(342)+JVS(4926)*UV(343)+JVS(5234)*UV(345)&\n                &+JVS(5355)*UV(346)+JVS(5387)*UV(347)+JVS(5428)*UV(348)+JVS(5601)*UV(351)+JVS(5640)*UV(352)\n  JTUV(344) = JVS(423)*UV(35)+JVS(771)*UV(104)+JVS(1053)*UV(157)+JVS(1429)*UV(214)+JVS(1673)*UV(239)+JVS(1749)*UV(245)&\n                &+JVS(1823)*UV(252)+JVS(2657)*UV(297)+JVS(3156)*UV(316)+JVS(3171)*UV(317)+JVS(3679)*UV(327)+JVS(3896)&\n                &*UV(330)+JVS(3944)*UV(332)+JVS(3974)*UV(333)+JVS(4299)*UV(336)+JVS(4960)*UV(344)+JVS(5235)*UV(345)\n  JTUV(345) = JVS(13)*UV(6)+JVS(80)*UV(7)+JVS(111)*UV(13)+JVS(115)*UV(14)+JVS(128)*UV(18)+JVS(131)*UV(19)+JVS(141)&\n                &*UV(22)+JVS(150)*UV(24)+JVS(160)*UV(27)+JVS(164)*UV(28)+JVS(182)*UV(32)+JVS(186)*UV(33)+JVS(304)*UV(34)&\n                &+JVS(424)*UV(35)+JVS(518)*UV(36)+JVS(525)*UV(37)+JVS(535)*UV(38)+JVS(541)*UV(39)+JVS(550)*UV(40)+JVS(552)&\n                &*UV(41)+JVS(556)*UV(43)+JVS(576)*UV(52)+JVS(592)*UV(58)+JVS(597)*UV(60)+JVS(619)*UV(66)+JVS(625)*UV(68)&\n                &+JVS(627)*UV(69)+JVS(631)*UV(70)+JVS(636)*UV(71)+JVS(640)*UV(72)+JVS(644)*UV(73)+JVS(648)*UV(74)+JVS(651)&\n                &*UV(75)+JVS(654)*UV(76)+JVS(663)*UV(78)+JVS(666)*UV(79)+JVS(672)*UV(81)+JVS(674)*UV(82)+JVS(677)*UV(83)&\n                &+JVS(681)*UV(84)+JVS(684)*UV(85)+JVS(687)*UV(86)+JVS(690)*UV(87)+JVS(694)*UV(88)+JVS(697)*UV(89)+JVS(702)&\n                &*UV(90)+JVS(705)*UV(91)+JVS(710)*UV(92)+JVS(713)*UV(93)+JVS(716)*UV(94)+JVS(720)*UV(95)+JVS(732)*UV(97)&\n                &+JVS(736)*UV(98)+JVS(740)*UV(99)+JVS(744)*UV(100)+JVS(746)*UV(101)+JVS(750)*UV(102)+JVS(775)*UV(105)&\n                &+JVS(785)*UV(107)+JVS(789)*UV(108)+JVS(793)*UV(109)+JVS(799)*UV(110)+JVS(804)*UV(111)+JVS(808)*UV(112)&\n                &+JVS(812)*UV(113)+JVS(816)*UV(114)+JVS(822)*UV(115)+JVS(825)*UV(116)+JVS(833)*UV(117)+JVS(838)*UV(118)&\n                &+JVS(843)*UV(119)+JVS(847)*UV(120)+JVS(853)*UV(121)+JVS(858)*UV(122)+JVS(862)*UV(123)+JVS(866)*UV(124)&\n                &+JVS(870)*UV(125)+JVS(874)*UV(126)+JVS(877)*UV(127)+JVS(884)*UV(128)+JVS(894)*UV(129)+JVS(901)*UV(130)&\n                &+JVS(906)*UV(131)+JVS(911)*UV(132)+JVS(916)*UV(133)+JVS(928)*UV(134)+JVS(933)*UV(135)+JVS(939)*UV(136)&\n                &+JVS(942)*UV(137)+JVS(946)*UV(138)+JVS(951)*UV(139)+JVS(954)*UV(140)+JVS(959)*UV(141)+JVS(962)*UV(142)&\n                &+JVS(967)*UV(143)+JVS(972)*UV(144)+JVS(986)*UV(146)+JVS(991)*UV(147)+JVS(996)*UV(148)+JVS(1002)*UV(149)&\n                &+JVS(1008)*UV(150)+JVS(1014)*UV(151)+JVS(1020)*UV(152)+JVS(1025)*UV(153)+JVS(1031)*UV(154)+JVS(1038)&\n                &*UV(155)+JVS(1044)*UV(156)+JVS(1064)*UV(158)+JVS(1069)*UV(159)+JVS(1074)*UV(160)+JVS(1079)*UV(161)&\n                &+JVS(1084)*UV(162)+JVS(1091)*UV(163)+JVS(1098)*UV(164)+JVS(1102)*UV(165)+JVS(1111)*UV(167)+JVS(1115)&\n                &*UV(168)+JVS(1122)*UV(169)+JVS(1128)*UV(170)+JVS(1154)*UV(173)+JVS(1160)*UV(174)+JVS(1163)*UV(175)&\n                &+JVS(1169)*UV(176)+JVS(1177)*UV(177)+JVS(1184)*UV(178)+JVS(1195)*UV(180)+JVS(1200)*UV(181)+JVS(1205)&\n                &*UV(182)+JVS(1210)*UV(183)+JVS(1216)*UV(184)+JVS(1225)*UV(185)+JVS(1229)*UV(186)+JVS(1233)*UV(187)&\n                &+JVS(1246)*UV(188)+JVS(1252)*UV(189)+JVS(1259)*UV(190)+JVS(1263)*UV(191)+JVS(1268)*UV(192)+JVS(1272)&\n                &*UV(193)+JVS(1280)*UV(194)+JVS(1285)*UV(195)+JVS(1291)*UV(196)+JVS(1299)*UV(197)+JVS(1307)*UV(198)&\n                &+JVS(1311)*UV(199)+JVS(1313)*UV(200)+JVS(1322)*UV(201)+JVS(1330)*UV(202)+JVS(1345)*UV(203)+JVS(1358)&\n                &*UV(204)+JVS(1365)*UV(205)+JVS(1370)*UV(206)+JVS(1375)*UV(207)+JVS(1387)*UV(208)+JVS(1392)*UV(209)&\n                &+JVS(1402)*UV(210)+JVS(1407)*UV(211)+JVS(1414)*UV(212)+JVS(1422)*UV(213)+JVS(1455)*UV(215)+JVS(1467)&\n                &*UV(216)+JVS(1479)*UV(217)+JVS(1489)*UV(219)+JVS(1493)*UV(220)+JVS(1506)*UV(221)+JVS(1513)*UV(222)&\n                &+JVS(1519)*UV(223)+JVS(1526)*UV(224)+JVS(1537)*UV(225)+JVS(1544)*UV(226)+JVS(1561)*UV(227)+JVS(1569)&\n                &*UV(228)+JVS(1574)*UV(229)+JVS(1581)*UV(230)+JVS(1587)*UV(231)+JVS(1594)*UV(232)+JVS(1601)*UV(233)&\n                &+JVS(1612)*UV(234)+JVS(1624)*UV(235)+JVS(1638)*UV(236)+JVS(1647)*UV(237)+JVS(1659)*UV(238)+JVS(1674)&\n                &*UV(239)+JVS(1688)*UV(240)+JVS(1708)*UV(242)+JVS(1721)*UV(243)+JVS(1737)*UV(244)+JVS(1750)*UV(245)&\n                &+JVS(1779)*UV(247)+JVS(1795)*UV(248)+JVS(1802)*UV(249)+JVS(1810)*UV(250)+JVS(1818)*UV(251)+JVS(1836)&\n                &*UV(253)+JVS(1847)*UV(254)+JVS(1856)*UV(255)+JVS(1878)*UV(256)+JVS(1892)*UV(257)+JVS(1908)*UV(258)&\n                &+JVS(1917)*UV(259)+JVS(1928)*UV(260)+JVS(1944)*UV(261)+JVS(1956)*UV(262)+JVS(1990)*UV(263)+JVS(2006)&\n                &*UV(264)+JVS(2038)*UV(265)+JVS(2058)*UV(266)+JVS(2064)*UV(267)+JVS(2071)*UV(268)+JVS(2086)*UV(269)&\n                &+JVS(2131)*UV(270)+JVS(2140)*UV(271)+JVS(2150)*UV(272)+JVS(2163)*UV(273)+JVS(2186)*UV(274)+JVS(2197)&\n                &*UV(275)+JVS(2203)*UV(276)+JVS(2213)*UV(277)+JVS(2228)*UV(278)+JVS(2238)*UV(279)+JVS(2264)*UV(281)&\n                &+JVS(2302)*UV(282)+JVS(2336)*UV(283)+JVS(2351)*UV(284)+JVS(2372)*UV(285)+JVS(2392)*UV(286)+JVS(2425)&\n                &*UV(287)+JVS(2458)*UV(288)+JVS(2479)*UV(290)+JVS(2487)*UV(291)+JVS(2517)*UV(292)+JVS(2531)*UV(293)&\n                &+JVS(2594)*UV(294)+JVS(2626)*UV(295)+JVS(2649)*UV(296)+JVS(2658)*UV(297)+JVS(2714)*UV(298)+JVS(2736)&\n                &*UV(299)+JVS(2748)*UV(300)+JVS(2765)*UV(301)+JVS(2793)*UV(302)+JVS(2819)*UV(303)+JVS(2833)*UV(304)&\n                &+JVS(2847)*UV(305)+JVS(2905)*UV(306)+JVS(2968)*UV(307)+JVS(2988)*UV(308)+JVS(3011)*UV(309)+JVS(3023)&\n                &*UV(310)+JVS(3035)*UV(311)+JVS(3089)*UV(313)+JVS(3118)*UV(314)+JVS(3143)*UV(315)+JVS(3157)*UV(316)&\n                &+JVS(3172)*UV(317)+JVS(3187)*UV(318)+JVS(3214)*UV(319)+JVS(3229)*UV(320)+JVS(3253)*UV(321)+JVS(3285)&\n                &*UV(322)+JVS(3309)*UV(323)+JVS(3397)*UV(324)+JVS(3540)*UV(325)+JVS(3582)*UV(326)+JVS(3680)*UV(327)&\n                &+JVS(3758)*UV(328)+JVS(3881)*UV(329)+JVS(3897)*UV(330)+JVS(3926)*UV(331)+JVS(3975)*UV(333)+JVS(4199)&\n                &*UV(335)+JVS(4300)*UV(336)+JVS(4508)*UV(337)+JVS(4563)*UV(338)+JVS(4640)*UV(339)+JVS(4735)*UV(340)&\n                &+JVS(4812)*UV(341)+JVS(4868)*UV(342)+JVS(4928)*UV(343)+JVS(4961)*UV(344)+JVS(5236)*UV(345)+JVS(5357)&\n                &*UV(346)+JVS(5389)*UV(347)+JVS(5430)*UV(348)+JVS(5603)*UV(351)+JVS(5642)*UV(352)+JVS(5675)*UV(353)\n  JTUV(346) = JVS(81)*UV(7)+JVS(107)*UV(12)+JVS(112)*UV(13)+JVS(124)*UV(17)+JVS(129)*UV(18)+JVS(137)*UV(21)+JVS(142)&\n                &*UV(22)+JVS(156)*UV(26)+JVS(161)*UV(27)+JVS(305)*UV(34)+JVS(519)*UV(36)+JVS(602)*UV(62)+JVS(622)*UV(67)&\n                &+JVS(632)*UV(70)+JVS(678)*UV(83)+JVS(706)*UV(91)+JVS(714)*UV(93)+JVS(721)*UV(95)+JVS(727)*UV(96)+JVS(780)&\n                &*UV(106)+JVS(826)*UV(116)+JVS(854)*UV(121)+JVS(878)*UV(127)+JVS(895)*UV(129)+JVS(907)*UV(131)+JVS(912)&\n                &*UV(132)+JVS(917)*UV(133)+JVS(934)*UV(135)+JVS(943)*UV(137)+JVS(947)*UV(138)+JVS(980)*UV(145)+JVS(987)&\n                &*UV(146)+JVS(1026)*UV(153)+JVS(1085)*UV(162)+JVS(1092)*UV(163)+JVS(1103)*UV(165)+JVS(1116)*UV(168)&\n                &+JVS(1136)*UV(171)+JVS(1142)*UV(172)+JVS(1164)*UV(175)+JVS(1170)*UV(176)+JVS(1178)*UV(177)+JVS(1185)&\n                &*UV(178)+JVS(1196)*UV(180)+JVS(1206)*UV(182)+JVS(1253)*UV(189)+JVS(1260)*UV(190)+JVS(1273)*UV(193)&\n                &+JVS(1292)*UV(196)+JVS(1300)*UV(197)+JVS(1346)*UV(203)+JVS(1359)*UV(204)+JVS(1366)*UV(205)+JVS(1371)&\n                &*UV(206)+JVS(1376)*UV(207)+JVS(1388)*UV(208)+JVS(1403)*UV(210)+JVS(1408)*UV(211)+JVS(1415)*UV(212)&\n                &+JVS(1423)*UV(213)+JVS(1468)*UV(216)+JVS(1520)*UV(223)+JVS(1527)*UV(224)+JVS(1538)*UV(225)+JVS(1545)&\n                &*UV(226)+JVS(1595)*UV(232)+JVS(1602)*UV(233)+JVS(1613)*UV(234)+JVS(1625)*UV(235)+JVS(1639)*UV(236)&\n                &+JVS(1648)*UV(237)+JVS(1660)*UV(238)+JVS(1675)*UV(239)+JVS(1689)*UV(240)+JVS(1697)*UV(241)+JVS(1722)&\n                &*UV(243)+JVS(1738)*UV(244)+JVS(1759)*UV(246)+JVS(1780)*UV(247)+JVS(1796)*UV(248)+JVS(1803)*UV(249)&\n                &+JVS(1811)*UV(250)+JVS(1819)*UV(251)+JVS(1837)*UV(253)+JVS(1848)*UV(254)+JVS(1857)*UV(255)+JVS(1879)&\n                &*UV(256)+JVS(1893)*UV(257)+JVS(1918)*UV(259)+JVS(1929)*UV(260)+JVS(1945)*UV(261)+JVS(1957)*UV(262)&\n                &+JVS(1991)*UV(263)+JVS(2059)*UV(266)+JVS(2065)*UV(267)+JVS(2072)*UV(268)+JVS(2132)*UV(270)+JVS(2141)&\n                &*UV(271)+JVS(2151)*UV(272)+JVS(2164)*UV(273)+JVS(2187)*UV(274)+JVS(2198)*UV(275)+JVS(2214)*UV(277)&\n                &+JVS(2229)*UV(278)+JVS(2239)*UV(279)+JVS(2254)*UV(280)+JVS(2265)*UV(281)+JVS(2352)*UV(284)+JVS(2373)&\n                &*UV(285)+JVS(2393)*UV(286)+JVS(2426)*UV(287)+JVS(2459)*UV(288)+JVS(2472)*UV(289)+JVS(2488)*UV(291)&\n                &+JVS(2518)*UV(292)+JVS(2532)*UV(293)+JVS(2595)*UV(294)+JVS(2627)*UV(295)+JVS(2650)*UV(296)+JVS(2715)&\n                &*UV(298)+JVS(2737)*UV(299)+JVS(2749)*UV(300)+JVS(2766)*UV(301)+JVS(2794)*UV(302)+JVS(2820)*UV(303)&\n                &+JVS(2834)*UV(304)+JVS(2848)*UV(305)+JVS(2906)*UV(306)+JVS(2969)*UV(307)+JVS(2989)*UV(308)+JVS(3012)&\n                &*UV(309)+JVS(3024)*UV(310)+JVS(3036)*UV(311)+JVS(3061)*UV(312)+JVS(3090)*UV(313)+JVS(3119)*UV(314)&\n                &+JVS(3144)*UV(315)+JVS(3188)*UV(318)+JVS(3215)*UV(319)+JVS(3230)*UV(320)+JVS(3254)*UV(321)+JVS(3286)&\n                &*UV(322)+JVS(3310)*UV(323)+JVS(3398)*UV(324)+JVS(3541)*UV(325)+JVS(3583)*UV(326)+JVS(3759)*UV(328)&\n                &+JVS(3882)*UV(329)+JVS(3927)*UV(331)+JVS(4200)*UV(335)+JVS(4509)*UV(337)+JVS(4564)*UV(338)+JVS(4736)&\n                &*UV(340)+JVS(4813)*UV(341)+JVS(4869)*UV(342)+JVS(4929)*UV(343)+JVS(5237)*UV(345)+JVS(5358)*UV(346)&\n                &+JVS(5390)*UV(347)+JVS(5604)*UV(351)\n  JTUV(347) = JVS(425)*UV(35)+JVS(728)*UV(96)+JVS(800)*UV(110)+JVS(848)*UV(120)+JVS(997)*UV(148)+JVS(1054)*UV(157)&\n                &+JVS(1486)*UV(218)+JVS(2353)*UV(284)+JVS(3158)*UV(316)+JVS(3928)*UV(331)+JVS(4201)*UV(335)+JVS(4510)&\n                &*UV(337)+JVS(4565)*UV(338)+JVS(4870)*UV(342)+JVS(4930)*UV(343)+JVS(5238)*UV(345)+JVS(5359)*UV(346)&\n                &+JVS(5391)*UV(347)\n  JTUV(348) = JVS(168)*UV(29)+JVS(183)*UV(32)+JVS(187)*UV(33)+JVS(426)*UV(35)+JVS(536)*UV(38)+JVS(698)*UV(89)+JVS(929)&\n                &*UV(134)+JVS(1108)*UV(166)+JVS(1191)*UV(179)+JVS(1698)*UV(241)+JVS(2008)*UV(264)+JVS(3062)*UV(312)&\n                &+JVS(3159)*UV(316)+JVS(3542)*UV(325)+JVS(3584)*UV(326)+JVS(3978)*UV(333)+JVS(4511)*UV(337)+JVS(4643)&\n                &*UV(339)+JVS(4815)*UV(341)+JVS(5239)*UV(345)+JVS(5433)*UV(348)+JVS(5645)*UV(352)\n  JTUV(349) = JVS(427)*UV(35)+JVS(659)*UV(77)+JVS(998)*UV(148)+JVS(1055)*UV(157)+JVS(1677)*UV(239)+JVS(1824)*UV(252)&\n                &+JVS(2659)*UV(297)+JVS(3160)*UV(316)+JVS(3173)*UV(317)+JVS(3684)*UV(327)+JVS(3900)*UV(330)+JVS(3948)&\n                &*UV(332)+JVS(4816)*UV(341)+JVS(5460)*UV(349)\n  JTUV(350) = JVS(428)*UV(35)+JVS(660)*UV(77)+JVS(999)*UV(148)+JVS(1056)*UV(157)+JVS(1678)*UV(239)+JVS(1825)*UV(252)&\n                &+JVS(2660)*UV(297)+JVS(3161)*UV(316)+JVS(3174)*UV(317)+JVS(3685)*UV(327)+JVS(3901)*UV(330)+JVS(3949)&\n                &*UV(332)+JVS(4817)*UV(341)+JVS(5487)*UV(350)\n  JTUV(351) = JVS(82)*UV(7)+JVS(118)*UV(15)+JVS(429)*UV(35)+JVS(520)*UV(36)+JVS(610)*UV(64)+JVS(614)*UV(65)+JVS(628)&\n                &*UV(69)+JVS(717)*UV(94)+JVS(781)*UV(106)+JVS(896)*UV(129)+JVS(955)*UV(140)+JVS(963)*UV(142)+JVS(981)&\n                &*UV(145)+JVS(1003)*UV(149)+JVS(1032)*UV(154)+JVS(1065)*UV(158)+JVS(1093)*UV(163)+JVS(1112)*UV(167)&\n                &+JVS(1130)*UV(170)+JVS(1179)*UV(177)+JVS(1186)*UV(178)+JVS(1211)*UV(183)+JVS(1264)*UV(191)+JVS(1274)&\n                &*UV(193)+JVS(1286)*UV(195)+JVS(1314)*UV(200)+JVS(1323)*UV(201)+JVS(1331)*UV(202)+JVS(1347)*UV(203)&\n                &+JVS(1360)*UV(204)+JVS(1409)*UV(211)+JVS(1424)*UV(213)+JVS(1430)*UV(214)+JVS(1490)*UV(219)+JVS(1494)&\n                &*UV(220)+JVS(1507)*UV(221)+JVS(1539)*UV(225)+JVS(1575)*UV(229)+JVS(1603)*UV(233)+JVS(1614)*UV(234)&\n                &+JVS(1626)*UV(235)+JVS(1640)*UV(236)+JVS(1649)*UV(237)+JVS(1710)*UV(242)+JVS(1781)*UV(247)+JVS(1812)&\n                &*UV(250)+JVS(1858)*UV(255)+JVS(1880)*UV(256)+JVS(1894)*UV(257)+JVS(1919)*UV(259)+JVS(1946)*UV(261)&\n                &+JVS(1958)*UV(262)+JVS(1992)*UV(263)+JVS(2088)*UV(269)+JVS(2133)*UV(270)+JVS(2152)*UV(272)+JVS(2165)&\n                &*UV(273)+JVS(2188)*UV(274)+JVS(2199)*UV(275)+JVS(2204)*UV(276)+JVS(2215)*UV(277)+JVS(2230)*UV(278)&\n                &+JVS(2255)*UV(280)+JVS(2266)*UV(281)+JVS(2473)*UV(289)+JVS(2480)*UV(290)+JVS(2489)*UV(291)+JVS(2519)&\n                &*UV(292)+JVS(2596)*UV(294)+JVS(2628)*UV(295)+JVS(2651)*UV(296)+JVS(2716)*UV(298)+JVS(2750)*UV(300)&\n                &+JVS(2767)*UV(301)+JVS(2907)*UV(306)+JVS(2970)*UV(307)+JVS(2990)*UV(308)+JVS(3013)*UV(309)+JVS(3025)&\n                &*UV(310)+JVS(3037)*UV(311)+JVS(3120)*UV(314)+JVS(3189)*UV(318)+JVS(3216)*UV(319)+JVS(3231)*UV(320)&\n                &+JVS(3287)*UV(322)+JVS(3399)*UV(324)+JVS(3543)*UV(325)+JVS(3585)*UV(326)+JVS(3686)*UV(327)+JVS(3761)&\n                &*UV(328)+JVS(3884)*UV(329)+JVS(3931)*UV(331)+JVS(3950)*UV(332)+JVS(4205)*UV(335)+JVS(4514)*UV(337)&\n                &+JVS(4874)*UV(342)+JVS(4934)*UV(343)+JVS(5242)*UV(345)+JVS(5363)*UV(346)+JVS(5395)*UV(347)+JVS(5436)&\n                &*UV(348)+JVS(5609)*UV(351)\n  JTUV(352) = JVS(430)*UV(35)+JVS(1000)*UV(148)+JVS(1057)*UV(157)+JVS(1480)*UV(217)+JVS(1680)*UV(239)+JVS(2662)*UV(297)&\n                &+JVS(3162)*UV(316)+JVS(3175)*UV(317)+JVS(3687)*UV(327)+JVS(3982)*UV(333)+JVS(4032)*UV(334)+JVS(4307)&\n                &*UV(336)+JVS(4819)*UV(341)+JVS(4875)*UV(342)+JVS(4935)*UV(343)+JVS(5243)*UV(345)+JVS(5396)*UV(347)&\n                &+JVS(5463)*UV(349)+JVS(5489)*UV(350)+JVS(5649)*UV(352)\n  JTUV(353) = JVS(431)*UV(35)+JVS(772)*UV(104)+JVS(1058)*UV(157)+JVS(1431)*UV(214)+JVS(1681)*UV(239)+JVS(1752)*UV(245)&\n                &+JVS(1826)*UV(252)+JVS(2663)*UV(297)+JVS(3163)*UV(316)+JVS(3176)*UV(317)+JVS(3688)*UV(327)+JVS(3903)&\n                &*UV(330)+JVS(3951)*UV(332)+JVS(3983)*UV(333)+JVS(4308)*UV(336)+JVS(5244)*UV(345)+JVS(5683)*UV(353)\n      \nEND SUBROUTINE JacTR_SP_Vec\n\n! End of JacTR_SP_Vec function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Jacobian\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_JacobianSP.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Sparse Jacobian Data Structures File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_JacobianSP.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_JacobianSP\n\n  PUBLIC\n  SAVE\n\n\n! Sparse Jacobian Data\n\n\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ &\n       1,  2,  3,  4,  4,  4,  4,  4,  5,  5,  6,  6, & ! index 1 - 12\n       6,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7, & ! index 13 - 24\n       7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7, & ! index 25 - 36\n       7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7, & ! index 37 - 48\n       7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7, & ! index 49 - 60\n       7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  7, & ! index 61 - 72\n       7,  7,  7,  7,  7,  7,  7,  7,  7,  7,  8,  8, & ! index 73 - 84\n       8,  9,  9,  9,  9,  9,  9,  9,  9, 10, 10, 10, & ! index 85 - 96\n      10, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, & ! index 97 - 108\n      13, 13, 13, 13, 14, 14, 14, 15, 15, 15, 16, 16, & ! index 109 - 120\n      16, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 20, & ! index 121 - 132\n      20, 20, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, & ! index 133 - 144\n      24, 24, 24, 24, 24, 24, 25, 25, 25, 26, 26, 26, & ! index 145 - 156\n      27, 27, 27, 27, 27, 28, 28, 28, 29, 29, 29, 29, & ! index 157 - 168\n      30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 32, 32, & ! index 169 - 180\n      32, 32, 32, 33, 33, 33, 33, 34, 34, 34, 34, 34, & ! index 181 - 192\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 193 - 204\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 205 - 216\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 217 - 228\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 229 - 240\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 241 - 252\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 253 - 264\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 265 - 276\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 277 - 288\n      34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 289 - 300\n      34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 35, 35, & ! index 301 - 312\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 313 - 324\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 325 - 336\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 337 - 348\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35 /) ! index up to 360\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ &\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 361 - 372\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 373 - 384\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 385 - 396\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 397 - 408\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 409 - 420\n      35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 36, & ! index 421 - 432\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 433 - 444\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 445 - 456\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 457 - 468\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 469 - 480\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 481 - 492\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 493 - 504\n      36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 505 - 516\n      36, 36, 36, 36, 37, 37, 37, 37, 37, 38, 38, 38, & ! index 517 - 528\n      38, 38, 38, 38, 38, 38, 38, 38, 39, 39, 39, 39, & ! index 529 - 540\n      39, 40, 40, 40, 40, 40, 40, 40, 40, 40, 41, 41, & ! index 541 - 552\n      42, 42, 43, 43, 44, 44, 45, 45, 45, 45, 46, 46, & ! index 553 - 564\n      47, 47, 48, 48, 49, 49, 50, 50, 51, 51, 52, 52, & ! index 565 - 576\n      53, 53, 54, 54, 55, 55, 55, 56, 56, 56, 57, 57, & ! index 577 - 588\n      57, 58, 58, 58, 59, 59, 59, 60, 60, 61, 61, 62, & ! index 589 - 600\n      62, 62, 63, 63, 63, 63, 64, 64, 64, 64, 65, 65, & ! index 601 - 612\n      65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 68, 68, & ! index 613 - 624\n      68, 69, 69, 69, 70, 70, 70, 70, 71, 71, 71, 71, & ! index 625 - 636\n      72, 72, 72, 72, 73, 73, 73, 73, 74, 74, 74, 74, & ! index 637 - 648\n      75, 75, 75, 76, 76, 76, 77, 77, 77, 77, 77, 77, & ! index 649 - 660\n      78, 78, 78, 79, 79, 79, 80, 80, 80, 81, 81, 81, & ! index 661 - 672\n      82, 82, 83, 83, 83, 83, 84, 84, 84, 85, 85, 85, & ! index 673 - 684\n      86, 86, 86, 87, 87, 87, 88, 88, 88, 88, 89, 89, & ! index 685 - 696\n      89, 89, 90, 90, 90, 90, 91, 91, 91, 91, 92, 92, & ! index 697 - 708\n      92, 92, 93, 93, 93, 93, 94, 94, 94, 95, 95, 95 /) ! index up to 720\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ &\n      95, 96, 96, 96, 96, 96, 96, 96, 97, 97, 97, 97, & ! index 721 - 732\n      98, 98, 98, 98, 99, 99, 99, 99,100,100,100,100, & ! index 733 - 744\n     101,101,102,102,102,102,103,103,103,103,103,103, & ! index 745 - 756\n     103,103,103,103,103,103,103,103,104,104,104,104, & ! index 757 - 768\n     104,104,104,104,105,105,105,106,106,106,106,106, & ! index 769 - 780\n     106,107,107,107,107,108,108,108,108,109,109,109, & ! index 781 - 792\n     109,110,110,110,110,110,110,110,111,111,111,111, & ! index 793 - 804\n     112,112,112,112,113,113,113,113,114,114,114,114, & ! index 805 - 816\n     115,115,115,115,115,115,116,116,116,116,117,117, & ! index 817 - 828\n     117,117,117,117,117,118,118,118,118,118,119,119, & ! index 829 - 840\n     119,119,119,120,120,120,120,120,121,121,121,121, & ! index 841 - 852\n     121,121,122,122,122,122,123,123,123,123,124,124, & ! index 853 - 864\n     124,124,125,125,125,125,126,126,126,126,127,127, & ! index 865 - 876\n     127,127,128,128,128,128,128,128,129,129,129,129, & ! index 877 - 888\n     129,129,129,129,129,129,129,129,130,130,130,130, & ! index 889 - 900\n     130,131,131,131,131,131,131,132,132,132,132,132, & ! index 901 - 912\n     133,133,133,133,133,134,134,134,134,134,134,134, & ! index 913 - 924\n     134,134,134,134,134,135,135,135,135,135,136,136, & ! index 925 - 936\n     136,136,136,137,137,137,137,138,138,138,138,139, & ! index 937 - 948\n     139,139,139,140,140,140,140,141,141,141,141,142, & ! index 949 - 960\n     142,142,142,143,143,143,143,144,144,144,144,144, & ! index 961 - 972\n     145,145,145,145,145,145,145,145,145,146,146,146, & ! index 973 - 984\n     146,146,146,147,147,147,147,148,148,148,148,148, & ! index 985 - 996\n     148,148,148,148,149,149,149,150,150,150,150,150, & ! index 997 - 1008\n     151,151,151,151,151,151,152,152,152,152,152,152, & ! index 1009 - 1020\n     153,153,153,153,153,153,154,154,154,154,154,154, & ! index 1021 - 1032\n     155,155,155,155,155,155,156,156,156,156,156,156, & ! index 1033 - 1044\n     157,157,157,157,157,157,157,157,157,157,157,157, & ! index 1045 - 1056\n     157,157,158,158,158,158,158,158,158,159,159,159, & ! index 1057 - 1068\n     159,160,160,160,160,160,161,161,161,161,161,162 /) ! index up to 1080\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_3 = (/ &\n     162,162,162,162,162,163,163,163,163,163,163,163, & ! index 1081 - 1092\n     163,164,164,164,164,164,165,165,165,165,165,166, & ! index 1093 - 1104\n     166,166,166,166,167,167,167,167,168,168,168,168, & ! index 1105 - 1116\n     169,169,169,169,169,169,170,170,170,170,170,170, & ! index 1117 - 1128\n     170,170,171,171,171,171,171,171,172,172,172,172, & ! index 1129 - 1140\n     172,172,173,173,173,173,173,173,173,173,173,173, & ! index 1141 - 1152\n     173,173,174,174,174,174,174,174,175,175,175,175, & ! index 1153 - 1164\n     176,176,176,176,176,176,177,177,177,177,177,177, & ! index 1165 - 1176\n     177,177,177,178,178,178,178,178,178,178,179,179, & ! index 1177 - 1188\n     179,179,179,180,180,180,180,180,181,181,181,181, & ! index 1189 - 1200\n     182,182,182,182,182,182,183,183,183,183,183,184, & ! index 1201 - 1212\n     184,184,184,184,185,185,185,185,185,185,185,185, & ! index 1213 - 1224\n     185,186,186,186,186,187,187,187,187,188,188,188, & ! index 1225 - 1236\n     188,188,188,188,188,188,188,188,188,188,189,189, & ! index 1237 - 1248\n     189,189,189,189,189,189,190,190,190,190,190,190, & ! index 1249 - 1260\n     191,191,191,191,192,192,192,192,193,193,193,193, & ! index 1261 - 1272\n     193,193,194,194,194,194,194,194,195,195,195,195, & ! index 1273 - 1284\n     195,195,196,196,196,196,196,196,196,197,197,197, & ! index 1285 - 1296\n     197,197,197,197,198,198,198,198,198,198,198,199, & ! index 1297 - 1308\n     199,199,199,200,200,200,201,201,201,201,201,201, & ! index 1309 - 1320\n     201,201,201,202,202,202,202,202,202,202,202,203, & ! index 1321 - 1332\n     203,203,203,203,203,203,203,203,203,203,203,203, & ! index 1333 - 1344\n     203,203,203,204,204,204,204,204,204,204,204,204, & ! index 1345 - 1356\n     204,204,204,204,205,205,205,205,205,205,206,206, & ! index 1357 - 1368\n     206,206,206,207,207,207,207,207,208,208,208,208, & ! index 1369 - 1380\n     208,208,208,208,208,208,208,208,209,209,209,209, & ! index 1381 - 1392\n     210,210,210,210,210,210,210,210,210,210,210,211, & ! index 1393 - 1404\n     211,211,211,211,211,212,212,212,212,212,212,212, & ! index 1405 - 1416\n     213,213,213,213,213,213,213,213,214,214,214,214, & ! index 1417 - 1428\n     214,214,214,215,215,215,215,215,215,215,215,215 /) ! index up to 1440\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_4 = (/ &\n     215,215,215,215,215,215,215,215,215,215,215,215, & ! index 1441 - 1452\n     215,215,215,215,216,216,216,216,216,216,216,216, & ! index 1453 - 1464\n     216,216,216,216,217,217,217,217,217,217,217,217, & ! index 1465 - 1476\n     217,217,217,217,218,218,218,218,218,218,219,219, & ! index 1477 - 1488\n     219,219,220,220,220,220,221,221,221,221,221,221, & ! index 1489 - 1500\n     221,221,221,221,221,221,221,222,222,222,222,222, & ! index 1501 - 1512\n     222,223,223,223,223,223,223,223,224,224,224,224, & ! index 1513 - 1524\n     224,224,224,225,225,225,225,225,225,225,225,225, & ! index 1525 - 1536\n     225,225,225,226,226,226,226,226,226,227,227,227, & ! index 1537 - 1548\n     227,227,227,227,227,227,227,227,227,227,227,227, & ! index 1549 - 1560\n     227,227,228,228,228,228,228,228,228,229,229,229, & ! index 1561 - 1572\n     229,229,229,230,230,230,230,230,230,231,231,231, & ! index 1573 - 1584\n     231,231,231,232,232,232,232,232,232,232,232,233, & ! index 1585 - 1596\n     233,233,233,233,233,233,233,234,234,234,234,234, & ! index 1597 - 1608\n     234,234,234,234,234,234,235,235,235,235,235,235, & ! index 1609 - 1620\n     235,235,235,235,235,235,236,236,236,236,236,236, & ! index 1621 - 1632\n     236,236,236,236,236,236,236,236,237,237,237,237, & ! index 1633 - 1644\n     237,237,237,237,237,238,238,238,238,238,238,238, & ! index 1645 - 1656\n     238,238,238,238,239,239,239,239,239,239,239,239, & ! index 1657 - 1668\n     239,239,239,239,239,239,239,239,239,239,239,239, & ! index 1669 - 1680\n     239,240,240,240,240,240,240,240,240,240,241,241, & ! index 1681 - 1692\n     241,241,241,241,241,241,242,242,242,242,242,242, & ! index 1693 - 1704\n     242,242,242,242,242,242,243,243,243,243,243,243, & ! index 1705 - 1716\n     243,243,243,243,243,243,244,244,244,244,244,244, & ! index 1717 - 1728\n     244,244,244,244,244,244,244,244,244,244,245,245, & ! index 1729 - 1740\n     245,245,245,245,245,245,245,245,245,245,245,245, & ! index 1741 - 1752\n     246,246,246,246,246,246,246,247,247,247,247,247, & ! index 1753 - 1764\n     247,247,247,247,247,247,247,247,247,247,247,247, & ! index 1765 - 1776\n     247,247,247,247,247,248,248,248,248,248,248,248, & ! index 1777 - 1788\n     248,248,248,248,248,248,248,248,249,249,249,249 /) ! index up to 1800\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_5 = (/ &\n     249,249,249,250,250,250,250,250,250,250,250,250, & ! index 1801 - 1812\n     251,251,251,251,251,251,251,252,252,252,252,252, & ! index 1813 - 1824\n     252,252,253,253,253,253,253,253,253,253,253,253, & ! index 1825 - 1836\n     253,254,254,254,254,254,254,254,254,254,254,254, & ! index 1837 - 1848\n     255,255,255,255,255,255,255,255,255,255,256,256, & ! index 1849 - 1860\n     256,256,256,256,256,256,256,256,256,256,256,256, & ! index 1861 - 1872\n     256,256,256,256,256,256,256,256,257,257,257,257, & ! index 1873 - 1884\n     257,257,257,257,257,257,257,257,257,257,258,258, & ! index 1885 - 1896\n     258,258,258,258,258,258,258,258,258,258,258,258, & ! index 1897 - 1908\n     258,259,259,259,259,259,259,259,259,259,259,260, & ! index 1909 - 1920\n     260,260,260,260,260,260,260,260,260,261,261,261, & ! index 1921 - 1932\n     261,261,261,261,261,261,261,261,261,261,261,261, & ! index 1933 - 1944\n     261,261,262,262,262,262,262,262,262,262,262,262, & ! index 1945 - 1956\n     262,262,263,263,263,263,263,263,263,263,263,263, & ! index 1957 - 1968\n     263,263,263,263,263,263,263,263,263,263,263,263, & ! index 1969 - 1980\n     263,263,263,263,263,263,263,263,263,263,263,263, & ! index 1981 - 1992\n     264,264,264,264,264,264,264,264,264,264,264,264, & ! index 1993 - 2004\n     264,264,264,264,265,265,265,265,265,265,265,265, & ! index 2005 - 2016\n     265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2017 - 2028\n     265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2029 - 2040\n     266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2041 - 2052\n     266,266,266,266,266,266,266,267,267,267,267,267, & ! index 2053 - 2064\n     267,268,268,268,268,268,268,268,269,269,269,269, & ! index 2065 - 2076\n     269,269,269,269,269,269,269,269,269,269,269,269, & ! index 2077 - 2088\n     270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2089 - 2100\n     270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2101 - 2112\n     270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2113 - 2124\n     270,270,270,270,270,270,270,270,270,271,271,271, & ! index 2125 - 2136\n     271,271,271,271,271,272,272,272,272,272,272,272, & ! index 2137 - 2148\n     272,272,272,272,273,273,273,273,273,273,273,273 /) ! index up to 2160\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_6 = (/ &\n     273,273,273,273,273,274,274,274,274,274,274,274, & ! index 2161 - 2172\n     274,274,274,274,274,274,274,274,274,274,274,274, & ! index 2173 - 2184\n     274,274,274,274,275,275,275,275,275,275,275,275, & ! index 2185 - 2196\n     275,275,275,276,276,276,276,276,277,277,277,277, & ! index 2197 - 2208\n     277,277,277,277,277,277,277,278,278,278,278,278, & ! index 2209 - 2220\n     278,278,278,278,278,278,278,278,278,278,279,279, & ! index 2221 - 2232\n     279,279,279,279,279,279,279,280,280,280,280,280, & ! index 2233 - 2244\n     280,280,280,280,280,280,280,280,280,280,280,281, & ! index 2245 - 2256\n     281,281,281,281,281,281,281,281,281,281,282,282, & ! index 2257 - 2268\n     282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2269 - 2280\n     282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2281 - 2292\n     282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2293 - 2304\n     283,283,283,283,283,283,283,283,283,283,283,283, & ! index 2305 - 2316\n     283,283,283,283,283,283,283,283,283,283,283,283, & ! index 2317 - 2328\n     283,283,283,283,283,283,283,283,283,283,283,284, & ! index 2329 - 2340\n     284,284,284,284,284,284,284,284,284,284,284,284, & ! index 2341 - 2352\n     284,285,285,285,285,285,285,285,285,285,285,285, & ! index 2353 - 2364\n     285,285,285,285,285,285,285,285,285,286,286,286, & ! index 2365 - 2376\n     286,286,286,286,286,286,286,286,286,286,286,286, & ! index 2377 - 2388\n     286,286,286,286,286,287,287,287,287,287,287,287, & ! index 2389 - 2400\n     287,287,287,287,287,287,287,287,287,287,287,287, & ! index 2401 - 2412\n     287,287,287,287,287,287,287,287,287,287,287,287, & ! index 2413 - 2424\n     287,287,287,288,288,288,288,288,288,288,288,288, & ! index 2425 - 2436\n     288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2437 - 2448\n     288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2449 - 2460\n     289,289,289,289,289,289,289,289,289,289,289,289, & ! index 2461 - 2472\n     289,290,290,290,290,290,290,290,291,291,291,291, & ! index 2473 - 2484\n     291,291,291,291,291,292,292,292,292,292,292,292, & ! index 2485 - 2496\n     292,292,292,292,292,292,292,292,292,292,292,292, & ! index 2497 - 2508\n     292,292,292,292,292,292,292,292,292,292,292,293 /) ! index up to 2520\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_7 = (/ &\n     293,293,293,293,293,293,293,293,293,293,293,293, & ! index 2521 - 2532\n     293,294,294,294,294,294,294,294,294,294,294,294, & ! index 2533 - 2544\n     294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2545 - 2556\n     294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2557 - 2568\n     294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2569 - 2580\n     294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2581 - 2592\n     294,294,294,294,295,295,295,295,295,295,295,295, & ! index 2593 - 2604\n     295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2605 - 2616\n     295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2617 - 2628\n     296,296,296,296,296,296,296,296,296,296,296,296, & ! index 2629 - 2640\n     296,296,296,296,296,296,296,296,296,296,296,297, & ! index 2641 - 2652\n     297,297,297,297,297,297,297,297,297,297,297,298, & ! index 2653 - 2664\n     298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2665 - 2676\n     298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2677 - 2688\n     298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2689 - 2700\n     298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2701 - 2712\n     298,298,298,298,299,299,299,299,299,299,299,299, & ! index 2713 - 2724\n     299,299,299,299,299,299,299,299,299,299,299,299, & ! index 2725 - 2736\n     299,299,300,300,300,300,300,300,300,300,300,300, & ! index 2737 - 2748\n     300,300,301,301,301,301,301,301,301,301,301,301, & ! index 2749 - 2760\n     301,301,301,301,301,301,301,302,302,302,302,302, & ! index 2761 - 2772\n     302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2773 - 2784\n     302,302,302,302,302,302,302,302,302,302,302,303, & ! index 2785 - 2796\n     303,303,303,303,303,303,303,303,303,303,303,303, & ! index 2797 - 2808\n     303,303,303,303,303,303,303,303,303,303,303,303, & ! index 2809 - 2820\n     303,304,304,304,304,304,304,304,304,304,304,304, & ! index 2821 - 2832\n     304,304,304,305,305,305,305,305,305,305,305,305, & ! index 2833 - 2844\n     305,305,305,305,305,306,306,306,306,306,306,306, & ! index 2845 - 2856\n     306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2857 - 2868\n     306,306,306,306,306,306,306,306,306,306,306,306 /) ! index up to 2880\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_8 = (/ &\n     306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2881 - 2892\n     306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2893 - 2904\n     306,306,306,307,307,307,307,307,307,307,307,307, & ! index 2905 - 2916\n     307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2917 - 2928\n     307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2929 - 2940\n     307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2941 - 2952\n     307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2953 - 2964\n     307,307,307,307,307,307,308,308,308,308,308,308, & ! index 2965 - 2976\n     308,308,308,308,308,308,308,308,308,308,308,308, & ! index 2977 - 2988\n     308,308,309,309,309,309,309,309,309,309,309,309, & ! index 2989 - 3000\n     309,309,309,309,309,309,309,309,309,309,309,309, & ! index 3001 - 3012\n     309,310,310,310,310,310,310,310,310,310,310,310, & ! index 3013 - 3024\n     310,311,311,311,311,311,311,311,311,311,311,311, & ! index 3025 - 3036\n     311,312,312,312,312,312,312,312,312,312,312,312, & ! index 3037 - 3048\n     312,312,312,312,312,312,312,312,312,312,312,312, & ! index 3049 - 3060\n     312,312,312,313,313,313,313,313,313,313,313,313, & ! index 3061 - 3072\n     313,313,313,313,313,313,313,313,313,313,313,313, & ! index 3073 - 3084\n     313,313,313,313,313,313,313,314,314,314,314,314, & ! index 3085 - 3096\n     314,314,314,314,314,314,314,314,314,314,314,314, & ! index 3097 - 3108\n     314,314,314,314,314,314,314,314,314,314,314,314, & ! index 3109 - 3120\n     315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3121 - 3132\n     315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3133 - 3144\n     315,316,316,316,316,316,316,316,316,316,316,316, & ! index 3145 - 3156\n     316,316,316,316,316,316,316,317,317,317,317,317, & ! index 3157 - 3168\n     317,317,317,317,317,317,317,317,318,318,318,318, & ! index 3169 - 3180\n     318,318,318,318,318,318,318,318,318,319,319,319, & ! index 3181 - 3192\n     319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3193 - 3204\n     319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3205 - 3216\n     320,320,320,320,320,320,320,320,320,320,320,320, & ! index 3217 - 3228\n     320,320,320,321,321,321,321,321,321,321,321,321 /) ! index up to 3240\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_9 = (/ &\n     321,321,321,321,321,321,321,321,321,321,321,321, & ! index 3241 - 3252\n     321,321,321,322,322,322,322,322,322,322,322,322, & ! index 3253 - 3264\n     322,322,322,322,322,322,322,322,322,322,322,322, & ! index 3265 - 3276\n     322,322,322,322,322,322,322,322,322,322,322,323, & ! index 3277 - 3288\n     323,323,323,323,323,323,323,323,323,323,323,323, & ! index 3289 - 3300\n     323,323,323,323,323,323,323,323,323,323,323,324, & ! index 3301 - 3312\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3313 - 3324\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3325 - 3336\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3337 - 3348\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3349 - 3360\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3361 - 3372\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3373 - 3384\n     324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3385 - 3396\n     324,324,324,325,325,325,325,325,325,325,325,325, & ! index 3397 - 3408\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3409 - 3420\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3421 - 3432\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3433 - 3444\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3445 - 3456\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3457 - 3468\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3469 - 3480\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3481 - 3492\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3493 - 3504\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3505 - 3516\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3517 - 3528\n     325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3529 - 3540\n     325,325,325,326,326,326,326,326,326,326,326,326, & ! index 3541 - 3552\n     326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3553 - 3564\n     326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3565 - 3576\n     326,326,326,326,326,326,326,326,326,327,327,327, & ! index 3577 - 3588\n     327,327,327,327,327,327,327,327,327,327,327,327 /) ! index up to 3600\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_10 = (/ &\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3601 - 3612\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3613 - 3624\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3625 - 3636\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3637 - 3648\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3649 - 3660\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3661 - 3672\n     327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3673 - 3684\n     327,327,327,327,328,328,328,328,328,328,328,328, & ! index 3685 - 3696\n     328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3697 - 3708\n     328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3709 - 3720\n     328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3721 - 3732\n     328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3733 - 3744\n     328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3745 - 3756\n     328,328,328,328,328,329,329,329,329,329,329,329, & ! index 3757 - 3768\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3769 - 3780\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3781 - 3792\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3793 - 3804\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3805 - 3816\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3817 - 3828\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3829 - 3840\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3841 - 3852\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3853 - 3864\n     329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3865 - 3876\n     329,329,329,329,329,329,329,329,330,330,330,330, & ! index 3877 - 3888\n     330,330,330,330,330,330,330,330,330,330,330,330, & ! index 3889 - 3900\n     330,330,330,331,331,331,331,331,331,331,331,331, & ! index 3901 - 3912\n     331,331,331,331,331,331,331,331,331,331,331,331, & ! index 3913 - 3924\n     331,331,331,331,331,331,331,331,332,332,332,332, & ! index 3925 - 3936\n     332,332,332,332,332,332,332,332,332,332,332,332, & ! index 3937 - 3948\n     332,332,332,333,333,333,333,333,333,333,333,333 /) ! index up to 3960\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_11 = (/ &\n     333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3961 - 3972\n     333,333,333,333,333,333,333,333,333,333,333,334, & ! index 3973 - 3984\n     334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3985 - 3996\n     334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3997 - 4008\n     334,334,334,334,334,334,334,334,334,334,334,334, & ! index 4009 - 4020\n     334,334,334,334,334,334,334,334,334,334,334,334, & ! index 4021 - 4032\n     334,335,335,335,335,335,335,335,335,335,335,335, & ! index 4033 - 4044\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4045 - 4056\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4057 - 4068\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4069 - 4080\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4081 - 4092\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4093 - 4104\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4105 - 4116\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4117 - 4128\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4129 - 4140\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4141 - 4152\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4153 - 4164\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4165 - 4176\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4177 - 4188\n     335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4189 - 4200\n     335,335,335,335,335,335,335,336,336,336,336,336, & ! index 4201 - 4212\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4213 - 4224\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4225 - 4236\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4237 - 4248\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4249 - 4260\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4261 - 4272\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4273 - 4284\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4285 - 4296\n     336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4297 - 4308\n     337,337,337,337,337,337,337,337,337,337,337,337 /) ! index up to 4320\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_12 = (/ &\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4321 - 4332\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4333 - 4344\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4345 - 4356\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4357 - 4368\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4369 - 4380\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4381 - 4392\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4393 - 4404\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4405 - 4416\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4417 - 4428\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4429 - 4440\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4441 - 4452\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4453 - 4464\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4465 - 4476\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4477 - 4488\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4489 - 4500\n     337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4501 - 4512\n     337,337,337,337,338,338,338,338,338,338,338,338, & ! index 4513 - 4524\n     338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4525 - 4536\n     338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4537 - 4548\n     338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4549 - 4560\n     338,338,338,338,338,338,338,338,338,338,338,339, & ! index 4561 - 4572\n     339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4573 - 4584\n     339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4585 - 4596\n     339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4597 - 4608\n     339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4609 - 4620\n     339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4621 - 4632\n     339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4633 - 4644\n     339,339,339,339,340,340,340,340,340,340,340,340, & ! index 4645 - 4656\n     340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4657 - 4668\n     340,340,340,340,340,340,340,340,340,340,340,340 /) ! index up to 4680\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_13 = (/ &\n     340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4681 - 4692\n     340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4693 - 4704\n     340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4705 - 4716\n     340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4717 - 4728\n     340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4729 - 4740\n     340,340,340,341,341,341,341,341,341,341,341,341, & ! index 4741 - 4752\n     341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4753 - 4764\n     341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4765 - 4776\n     341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4777 - 4788\n     341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4789 - 4800\n     341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4801 - 4812\n     341,341,341,341,341,341,341,341,342,342,342,342, & ! index 4813 - 4824\n     342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4825 - 4836\n     342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4837 - 4848\n     342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4849 - 4860\n     342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4861 - 4872\n     342,342,342,342,343,343,343,343,343,343,343,343, & ! index 4873 - 4884\n     343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4885 - 4896\n     343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4897 - 4908\n     343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4909 - 4920\n     343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4921 - 4932\n     343,343,343,343,344,344,344,344,344,344,344,344, & ! index 4933 - 4944\n     344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4945 - 4956\n     344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4957 - 4968\n     344,345,345,345,345,345,345,345,345,345,345,345, & ! index 4969 - 4980\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4981 - 4992\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4993 - 5004\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5005 - 5016\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5017 - 5028\n     345,345,345,345,345,345,345,345,345,345,345,345 /) ! index up to 5040\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_14 = (/ &\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5041 - 5052\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5053 - 5064\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5065 - 5076\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5077 - 5088\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5089 - 5100\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5101 - 5112\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5113 - 5124\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5125 - 5136\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5137 - 5148\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5149 - 5160\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5161 - 5172\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5173 - 5184\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5185 - 5196\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5197 - 5208\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5209 - 5220\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5221 - 5232\n     345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5233 - 5244\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5245 - 5256\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5257 - 5268\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5269 - 5280\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5281 - 5292\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5293 - 5304\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5305 - 5316\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5317 - 5328\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5329 - 5340\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5341 - 5352\n     346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5353 - 5364\n     346,347,347,347,347,347,347,347,347,347,347,347, & ! index 5365 - 5376\n     347,347,347,347,347,347,347,347,347,347,347,347, & ! index 5377 - 5388\n     347,347,347,347,347,347,347,347,347,348,348,348 /) ! index up to 5400\n  INTEGER, PARAMETER, DIMENSION(283) :: LU_IROW_15 = (/ &\n     348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5401 - 5412\n     348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5413 - 5424\n     348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5425 - 5436\n     348,348,349,349,349,349,349,349,349,349,349,349, & ! index 5437 - 5448\n     349,349,349,349,349,349,349,349,349,349,349,349, & ! index 5449 - 5460\n     349,349,349,349,350,350,350,350,350,350,350,350, & ! index 5461 - 5472\n     350,350,350,350,350,350,350,350,350,350,350,350, & ! index 5473 - 5484\n     350,350,350,350,350,350,351,351,351,351,351,351, & ! index 5485 - 5496\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5497 - 5508\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5509 - 5520\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5521 - 5532\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5533 - 5544\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5545 - 5556\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5557 - 5568\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5569 - 5580\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5581 - 5592\n     351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5593 - 5604\n     351,351,351,351,351,351,351,352,352,352,352,352, & ! index 5605 - 5616\n     352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5617 - 5628\n     352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5629 - 5640\n     352,352,352,352,352,352,352,352,352,352,353,353, & ! index 5641 - 5652\n     353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5653 - 5664\n     353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5665 - 5676\n     353,353,353,353,353,353,353 /) ! index up to 5683\n  INTEGER, PARAMETER, DIMENSION(5683) :: LU_IROW = (/&\n    LU_IROW_0, LU_IROW_1, LU_IROW_2, LU_IROW_3, LU_IROW_4, &\n    LU_IROW_5, LU_IROW_6, LU_IROW_7, LU_IROW_8, LU_IROW_9, &\n    LU_IROW_10, LU_IROW_11, LU_IROW_12, LU_IROW_13, LU_IROW_14, &\n    LU_IROW_15 /)\n\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ &\n       1,  2,  3,  4, 42, 44, 55, 73,  5,269,  6, 41, & ! index 1 - 12\n     345,  7, 66, 68, 71, 74, 90, 92,115,130,133,135, & ! index 13 - 24\n     139,159,169,173,182,194,198,213,216,235,238,240, & ! index 25 - 36\n     241,246,249,250,257,259,260,261,263,265,269,274, & ! index 37 - 48\n     275,276,277,280,281,283,287,290,291,296,300,306, & ! index 49 - 60\n     307,308,310,311,312,313,315,318,319,320,321,322, & ! index 61 - 72\n     323,324,328,329,337,340,341,345,346,351,  8, 45, & ! index 73 - 84\n     103,  9, 42, 44, 55, 73,252,330,332, 10, 42, 44, & ! index 85 - 96\n      55, 73,252,330,332, 11, 13,337, 12, 13,346, 13, & ! index 97 - 108\n     143,337,345,346, 14,276,345, 15,276,351, 16, 18, & ! index 109 - 120\n     337, 17, 18,346, 18, 19,337,345,346, 19,345, 20, & ! index 121 - 132\n      22,337, 21, 22,346, 22, 82,337,345,346, 23, 24, & ! index 133 - 144\n      24,187,192,199,209,345, 25, 27,337, 26, 27,346, & ! index 145 - 156\n      27,101,337,345,346, 28, 94,345, 29,166,341,348, & ! index 157 - 168\n      30,115,270,294, 31,107,128,151,152,215, 32,241, & ! index 169 - 180\n     312,345,348, 33, 89,345,348, 34, 45, 56, 57, 63, & ! index 181 - 192\n      67, 70, 80, 83, 90, 91, 93, 95,103,108,110,113, & ! index 193 - 204\n     114,116,121,122,124,126,127,132,133,135,137,138, & ! index 205 - 216\n     139,148,154,162,165,170,171,172,176,177,178,180, & ! index 217 - 228\n     182,184,189,190,193,196,197,205,206,207,211,212, & ! index 229 - 240\n     213,217,223,224,226,232,234,235,236,239,240,241, & ! index 241 - 252\n     243,245,246,249,250,253,254,257,259,260,263,269, & ! index 253 - 264\n     271,272,273,274,275,277,278,280,281,285,286,289, & ! index 265 - 276\n     291,293,296,297,300,302,304,305,308,310,311,312, & ! index 277 - 288\n     313,315,317,318,319,320,321,322,323,324,327,328, & ! index 289 - 300\n     335,337,340,345,346, 35, 42, 44, 49, 50, 55, 63, & ! index 301 - 312\n      64, 65, 68, 69, 76, 87, 94, 96,105,109,120,140, & ! index 313 - 324\n     142,149,154,158,163,166,167,168,175,179,181,183, & ! index 325 - 336\n     186,191,195,197,200,201,202,203,204,211,213,214, & ! index 337 - 348\n     216,217,218,219,220,221,222,225,228,229,234,235 /) ! index up to 360\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ &\n     236,237,240,242,246,248,251,252,255,256,257,261, & ! index 361 - 372\n     262,263,264,266,267,268,270,272,273,274,275,276, & ! index 373 - 384\n     277,278,280,281,284,289,290,291,292,294,297,298, & ! index 385 - 396\n     299,302,303,306,308,309,310,311,312,314,316,317, & ! index 397 - 408\n     325,326,328,330,332,333,334,335,336,337,338,339, & ! index 409 - 420\n     341,343,344,345,347,348,349,350,351,352,353, 36, & ! index 421 - 432\n      60, 68, 75, 79, 82,101,107,113,114,119,122,124, & ! index 433 - 444\n     126,127,132,139,143,144,146,147,150,153,159,167, & ! index 445 - 456\n     181,182,184,185,187,191,192,194,197,199,200,201, & ! index 457 - 468\n     204,208,209,210,215,216,220,221,225,227,230,231, & ! index 469 - 480\n     233,238,243,248,253,255,258,259,261,266,267,268, & ! index 481 - 492\n     269,270,276,285,286,287,290,294,295,298,301,304, & ! index 493 - 504\n     305,306,307,309,314,325,326,328,337,340,341,342, & ! index 505 - 516\n     343,345,346,351, 37,241,312,329,345, 38, 89,179, & ! index 517 - 528\n     241,264,312,316,333,341,345,348, 39,228,334,340, & ! index 529 - 540\n     345, 40,241,276,312,314,336,337,341,345, 41,345, & ! index 541 - 552\n      42, 96, 43,345, 44,284, 45,154,242,256, 46,334, & ! index 553 - 564\n      47,334, 48,334, 49,334, 50,334, 51,334, 52,345, & ! index 565 - 576\n      53,334, 54,334, 55, 96,284, 56,257,335, 57,274, & ! index 577 - 588\n     335, 58,200,345, 59,335,342, 60,345, 61,334, 62, & ! index 589 - 600\n     331,346, 63, 67,334,335, 64,179,327,351, 65,166, & ! index 601 - 612\n     327,351, 66,257,328,337,345, 67,335,346, 68,343, & ! index 613 - 624\n     345, 69,345,351, 70,234,345,346, 71,235,337,345, & ! index 625 - 636\n      72,213,337,345, 73,331,337,345, 74,257,337,345, & ! index 637 - 648\n      75,340,345, 76,338,345, 77,252,330,332,349,350, & ! index 649 - 660\n      78,334,345, 79,340,345, 80,328,335, 81,334,345, & ! index 661 - 672\n      82,345, 83,296,345,346, 84,334,345, 85,334,345, & ! index 673 - 684\n      86,334,345, 87,334,345, 88,312,336,345, 89,325, & ! index 685 - 696\n     345,348, 90,235,335,345, 91,323,345,346, 92,324, & ! index 697 - 708\n     337,345, 93,328,345,346, 94,345,351, 95,321,345 /) ! index up to 720\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ &\n     346, 42, 44, 55, 96,284,346,347, 97,319,337,345, & ! index 721 - 732\n      98,178,337,345, 99,321,337,345,100,323,337,345, & ! index 733 - 744\n     101,345,102,300,337,345,103,168,175,186,216,222, & ! index 745 - 756\n     248,251,266,267,268,299,302,303,104,252,284,330, & ! index 757 - 768\n     332,338,344,353,105,334,345,106,136,234,328,346, & ! index 769 - 780\n     351,107,159,184,345,108,335,337,345,109,233,341, & ! index 781 - 792\n     345, 76,110,328,338,340,345,347,111,277,337,345, & ! index 793 - 804\n     112,275,337,345,113,246,335,345,114,213,335,345, & ! index 805 - 816\n     115,194,302,314,341,345,116,189,345,346, 90,117, & ! index 817 - 828\n     235,236,335,337,345,118,296,315,337,345,119,230, & ! index 829 - 840\n     231,301,345,120,284,338,345,347, 58,121,200,337, & ! index 841 - 852\n     345,346,122,240,335,345,123,260,337,345,124,322, & ! index 853 - 864\n     335,345,125,250,337,345,126,197,335,345,127,212, & ! index 865 - 876\n     345,346,128,199,209,267,268,345,112,129,138,191, & ! index 877 - 888\n     275,324,328,337,341,345,346,351,130,274,328,337, & ! index 889 - 900\n     345,131,258,286,337,345,346,132,233,337,345,346, & ! index 901 - 912\n     133,230,337,345,346, 89,134,179,241,264,312,316, & ! index 913 - 924\n     325,333,341,345,348,135,231,337,345,346,136,234, & ! index 925 - 936\n     328,337,345,137,277,345,346,138,275,345,346,139, & ! index 937 - 948\n     324,335,345,140,341,345,351,141,340,342,345,142, & ! index 949 - 960\n     340,345,351,143,220,341,345,144,199,276,304,345, & ! index 961 - 972\n     145,186,299,310,311,324,328,346,351,121,146,200, & ! index 973 - 984\n     337,345,346,147,285,286,345,148,218,316,342,345, & ! index 985 - 996\n     347,349,350,352,149,345,351,150,209,276,305,345, & ! index 997 - 1008\n     151,168,175,187,192,345,152,168,175,187,192,345, & ! index 1009 - 1020\n     153,258,285,337,345,346,154,242,256,341,345,351, & ! index 1021 - 1032\n     155,240,246,322,337,345,156,296,315,328,340,345, & ! index 1033 - 1044\n     157,218,297,316,317,333,338,339,344,347,349,350, & ! index 1045 - 1056\n     352,353, 82,101,149,158,200,345,351,159,259,337, & ! index 1057 - 1068\n     345,160,278,328,337,345,161,273,328,337,345,138 /) ! index up to 1080\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_3 = (/ &\n     162,273,275,345,346,163,255,272,328,341,345,346, & ! index 1081 - 1092\n     351,164,328,337,340,345,165,196,337,345,346,166, & ! index 1093 - 1104\n     327,339,341,348,167,341,345,351,168,304,345,346, & ! index 1105 - 1116\n     169,272,274,328,337,345, 62,170,252,331,332,345, & ! index 1117 - 1128\n     346,351,171,230,301,335,337,346,172,231,301,335, & ! index 1129 - 1140\n     337,346,101,173,200,201,221,240,246,289,322,324, & ! index 1141 - 1152\n     337,345,174,223,224,232,337,345,175,305,345,346, & ! index 1153 - 1164\n     137,176,277,278,345,346,177,211,237,255,272,341, & ! index 1165 - 1176\n     345,346,351, 69, 98,178,337,345,346,351,179,327, & ! index 1177 - 1188\n     339,341,348,180,299,337,345,346,181,334,340,345, & ! index 1189 - 1200\n     182,301,303,337,345,346,183,340,342,345,351,184, & ! index 1201 - 1212\n     259,308,335,345,119,147,185,230,231,285,286,301, & ! index 1213 - 1224\n     345,186,311,337,345,187,305,337,345,188,249,250, & ! index 1225 - 1236\n     260,289,300,318,319,320,321,323,328,345,149,189, & ! index 1237 - 1248\n     200,220,337,345,346,351,168,190,304,337,345,346, & ! index 1249 - 1260\n     191,341,345,351,192,304,337,345,193,291,341,345, & ! index 1261 - 1272\n     346,351,194,230,231,301,303,345,143,195,220,341, & ! index 1273 - 1284\n     345,351,165,178,196,337,345,346,351,126,197,233, & ! index 1285 - 1296\n     335,337,345,346,174,198,223,224,232,337,345,199, & ! index 1297 - 1308\n     304,337,345,200,345,351, 82,101,149,158,200,201, & ! index 1309 - 1320\n     341,345,351,158,195,200,202,220,341,345,351,117, & ! index 1321 - 1332\n     158,195,200,202,203,220,235,236,328,335,337,341, & ! index 1333 - 1344\n     345,346,351, 82,101,116,149,189,200,204,220,337, & ! index 1345 - 1356\n     341,345,346,351,175,205,305,337,345,346,206,268, & ! index 1357 - 1368\n     337,345,346,207,267,337,345,346,131,147,208,243, & ! index 1369 - 1380\n     254,258,285,286,288,337,345,346,209,305,337,345, & ! index 1381 - 1392\n     209,210,223,226,271,276,303,305,337,345,346,211, & ! index 1393 - 1404\n     281,341,345,346,351,140,212,337,341,345,346,351, & ! index 1405 - 1416\n     114,213,306,335,337,345,346,351,214,335,336,339, & ! index 1417 - 1428\n     344,351,353,128,144,150,151,152,168,175,186,187 /) ! index up to 1440\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_4 = (/ &\n     192,199,209,215,230,231,267,268,276,301,304,305, & ! index 1441 - 1452\n     311,337,345,346,206,216,226,268,271,293,301,308, & ! index 1453 - 1464\n     328,337,345,346,181,217,228,325,334,337,339,340, & ! index 1465 - 1476\n     341,343,345,352,218,335,336,339,342,347,219,341, & ! index 1477 - 1488\n     345,351,220,341,345,351, 82,101,143,149,195,200, & ! index 1489 - 1500\n     202,220,221,269,341,345,351,222,310,311,328,337, & ! index 1501 - 1512\n     345,187,209,223,305,337,345,346,192,199,224,304, & ! index 1513 - 1524\n     337,345,346,111,137,191,225,277,324,328,337,341, & ! index 1525 - 1536\n     345,346,351,186,226,311,337,345,346,131,147,153, & ! index 1537 - 1548\n     194,227,230,231,258,285,286,288,301,302,303,337, & ! index 1549 - 1560\n     345,346,228,290,326,334,340,341,345,229,291,337, & ! index 1561 - 1572\n     341,345,351,209,230,276,305,337,345,199,231,276, & ! index 1573 - 1584\n     304,337,345,187,192,232,304,305,337,345,346,140, & ! index 1585 - 1596\n     212,233,337,341,345,346,351,109,136,233,234,246, & ! index 1597 - 1608\n     328,337,341,345,346,351, 71, 90,204,220,235,328, & ! index 1609 - 1620\n     335,337,341,345,346,351, 71,117,203,204,220,235, & ! index 1621 - 1632\n     236,328,335,337,341,345,346,351,237,281,324,328, & ! index 1633 - 1644\n     337,341,345,346,351,199,209,238,267,268,304,305, & ! index 1645 - 1656\n     328,337,345,346, 64, 65,166,179,239,252,269,297, & ! index 1657 - 1668\n     327,335,339,341,344,345,346,348,349,350,351,352, & ! index 1669 - 1680\n     353,122,146,200,240,335,337,345,346,351,241,290, & ! index 1681 - 1692\n     329,335,336,341,346,348,193,242,280,289,291,324, & ! index 1693 - 1704\n     328,337,341,345,346,351,128,192,199,209,243,267, & ! index 1705 - 1716\n     268,304,305,337,345,346,199,224,226,244,271,276, & ! index 1717 - 1728\n     287,303,304,309,311,313,320,337,345,346,110,245, & ! index 1729 - 1740\n     297,317,328,333,334,338,339,340,344,345,347,353, & ! index 1741 - 1752\n     113,246,320,335,337,345,346,125,180,182,206,216, & ! index 1753 - 1764\n     226,247,250,268,271,293,299,301,303,308,309,311, & ! index 1765 - 1776\n     328,337,345,346,351,172,205,231,248,253,276,301, & ! index 1777 - 1788\n     303,304,305,308,335,337,345,346,249,279,324,328 /) ! index up to 1800\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_5 = (/ &\n     337,345,346,125,250,290,324,328,337,345,346,351, & ! index 1801 - 1812\n     251,318,319,320,337,345,346,252,331,335,344,349, & ! index 1813 - 1824\n     350,353,172,231,253,276,301,304,309,335,337,345, & ! index 1825 - 1836\n     346,171,230,254,276,301,305,314,335,337,345,346, & ! index 1837 - 1848\n     167,255,281,324,328,337,341,345,346,351,162,176, & ! index 1849 - 1860\n     177,211,237,255,256,272,273,275,277,278,280,281, & ! index 1861 - 1872\n     289,324,328,337,341,345,346,351, 56, 74,111,225, & ! index 1873 - 1884\n     257,277,324,328,335,337,341,345,346,351,174,223, & ! index 1885 - 1896\n     224,232,243,258,267,268,285,286,304,305,337,345, & ! index 1897 - 1908\n     346,159,184,259,308,309,335,337,345,346,351,123, & ! index 1909 - 1920\n     260,290,324,328,337,340,342,345,346,180,182,207, & ! index 1921 - 1932\n     226,261,267,271,293,299,301,302,303,311,337,345, & ! index 1933 - 1944\n     346,351,193,219,229,262,291,324,328,337,341,345, & ! index 1945 - 1956\n     346,351, 82,101,137,138,143,149,158,160,167,176, & ! index 1957 - 1968\n     193,195,200,202,211,219,220,229,237,255,262,263, & ! index 1969 - 1980\n     275,277,278,281,291,324,328,337,341,345,346,351, & ! index 1981 - 1992\n     241,264,276,290,312,314,329,335,336,337,340,341, & ! index 1993 - 2004\n     343,345,346,348, 60, 88,107,159,184,194,201,221, & ! index 2005 - 2016\n     230,231,259,265,269,276,301,302,303,304,305,306, & ! index 2017 - 2028\n     307,308,309,312,335,336,337,340,341,345,346,351, & ! index 2029 - 2040\n     190,205,206,207,226,243,266,267,268,271,285,286, & ! index 2041 - 2052\n     303,304,305,311,337,345,346,267,305,311,328,345, & ! index 2053 - 2064\n     346,268,304,310,311,328,345,346,158,195,200,202, & ! index 2065 - 2076\n     203,220,235,236,269,328,335,337,341,345,346,351, & ! index 2077 - 2088\n      60, 82,101,143,185,194,195,198,200,210,220,221, & ! index 2089 - 2100\n     223,224,226,227,230,231,232,233,258,267,268,269, & ! index 2101 - 2112\n     270,271,276,285,286,288,301,302,303,304,305,306, & ! index 2113 - 2124\n     310,311,328,335,337,341,345,346,351,222,271,310, & ! index 2125 - 2136\n     311,328,337,345,346,211,237,272,281,324,328,337, & ! index 2137 - 2148\n     341,345,346,351,129,138,161,191,273,275,324,328 /) ! index up to 2160\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_6 = (/ &\n     337,341,345,346,351, 57,161,162,163,167,169,177, & ! index 2161 - 2172\n     211,237,255,272,273,274,275,281,324,328,335,337, & ! index 2173 - 2184\n     341,345,346,351,112,191,219,275,324,328,337,341, & ! index 2185 - 2196\n     345,346,351,276,340,341,345,351,111,191,219,277, & ! index 2197 - 2208\n     324,328,337,341,345,346,351, 66, 74,160,225,257, & ! index 2209 - 2220\n     277,278,324,328,335,337,341,345,346,351,249,279, & ! index 2221 - 2232\n     300,320,324,328,337,345,346,167,191,193,219,229, & ! index 2233 - 2244\n     262,280,289,291,324,328,337,341,345,346,351,167, & ! index 2245 - 2256\n     191,219,281,324,328,337,341,345,346,351,234,246, & ! index 2257 - 2268\n     249,250,260,272,273,275,277,278,279,281,282,289, & ! index 2269 - 2280\n     290,291,296,300,306,310,311,313,315,318,319,320, & ! index 2281 - 2292\n     321,323,324,328,335,337,340,341,342,345,346,351, & ! index 2293 - 2304\n     201,241,249,250,260,275,277,279,281,283,290,291, & ! index 2305 - 2316\n     296,300,307,313,315,318,319,320,321,323,324,328, & ! index 2317 - 2328\n     329,335,336,337,340,341,342,345,346,348,351, 44, & ! index 2329 - 2340\n      55, 96,284,330,331,332,335,337,338,341,345,346, & ! index 2341 - 2352\n     347,147,151,152,168,175,187,192,238,267,268,285, & ! index 2353 - 2364\n     286,304,305,310,311,328,337,345,346,147,151,152, & ! index 2365 - 2376\n     168,175,187,192,238,267,268,285,286,304,305,310, & ! index 2377 - 2388\n     311,328,337,345,346,144,192,198,199,223,224,231, & ! index 2389 - 2400\n     232,238,253,258,266,267,268,271,276,285,286,287, & ! index 2401 - 2412\n     301,303,304,305,309,310,311,328,335,337,340,341, & ! index 2413 - 2424\n     345,346,351,150,187,198,209,223,224,230,232,238, & ! index 2425 - 2436\n     254,266,267,268,271,276,285,286,288,301,303,304, & ! index 2437 - 2448\n     305,310,311,314,328,335,337,340,341,345,346,351, & ! index 2449 - 2460\n     167,191,219,280,289,291,324,328,337,341,345,346, & ! index 2461 - 2472\n     351,290,314,340,341,342,345,351,219,291,324,328, & ! index 2473 - 2484\n     337,341,345,346,351,160,176,178,219,251,256,262, & ! index 2485 - 2496\n     272,273,275,277,278,279,280,281,289,291,292,300, & ! index 2497 - 2508\n     318,319,320,324,328,335,337,341,345,346,351,145 /) ! index up to 2520\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_7 = (/ &\n     186,222,293,299,303,310,311,324,328,337,345,346, & ! index 2521 - 2532\n     351, 82,101,107,159,184,185,194,198,199,200,201, & ! index 2533 - 2544\n     209,215,223,224,227,230,231,232,238,244,247,250, & ! index 2545 - 2556\n     253,254,258,259,266,267,268,271,276,285,286,287, & ! index 2557 - 2568\n     288,290,293,294,299,301,302,303,304,305,307,308, & ! index 2569 - 2580\n     309,310,311,313,314,320,324,328,335,337,340,341, & ! index 2581 - 2592\n     342,345,346,351, 91,100,160,161,162,176,219,229, & ! index 2593 - 2604\n     251,262,273,275,277,278,279,291,295,300,318,319, & ! index 2605 - 2616\n     320,323,324,328,335,337,340,341,342,345,346,351, & ! index 2617 - 2628\n     173,183,200,201,221,240,246,269,289,291,296,320, & ! index 2629 - 2640\n     322,324,328,335,337,340,341,342,345,346,351,214, & ! index 2641 - 2652\n     297,335,336,339,344,345,349,350,351,352,353, 95, & ! index 2653 - 2664\n      97, 98, 99,102,125,130,161,162,165,169,178,188, & ! index 2665 - 2676\n     196,201,212,219,221,229,242,249,250,251,260,269, & ! index 2677 - 2688\n     272,273,274,275,279,280,281,289,290,291,298,300, & ! index 2689 - 2700\n     314,318,319,320,321,323,324,328,335,337,340,341, & ! index 2701 - 2712\n     342,345,346,351,180,190,205,206,207,226,267,268, & ! index 2713 - 2724\n     271,293,299,303,304,305,310,311,324,328,337,345, & ! index 2725 - 2736\n     346,351,102,142,201,300,324,328,337,340,341,345, & ! index 2737 - 2748\n     346,351,145,186,267,268,299,301,303,304,305,310, & ! index 2749 - 2760\n     311,324,328,337,345,346,351,171,190,207,226,230, & ! index 2761 - 2772\n     254,267,271,276,293,299,301,302,303,304,305,310, & ! index 2773 - 2784\n     311,314,324,328,335,337,340,341,345,346,351,186, & ! index 2785 - 2796\n     190,205,206,207,222,223,224,226,232,267,268,271, & ! index 2797 - 2808\n     293,299,303,304,305,310,311,324,328,337,345,346, & ! index 2809 - 2820\n     351,186,192,199,276,304,305,311,328,337,340,341, & ! index 2821 - 2832\n     345,346,351,186,187,209,276,304,305,311,328,337, & ! index 2833 - 2844\n     340,341,345,346,351, 70,106,113,126,127,132,136, & ! index 2845 - 2856\n     174,180,197,198,201,202,205,206,212,220,221,223, & ! index 2857 - 2868\n     224,232,233,234,246,254,258,262,266,267,268,269 /) ! index up to 2880\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_8 = (/ &\n     271,276,285,286,288,291,293,299,301,302,303,304, & ! index 2881 - 2892\n     305,306,310,311,314,320,324,328,335,337,340,341, & ! index 2893 - 2904\n     345,346,351,123,153,154,159,174,184,198,205,207, & ! index 2905 - 2916\n     215,223,224,230,231,232,242,243,248,253,256,258, & ! index 2917 - 2928\n     259,260,267,268,271,272,273,275,276,277,278,280, & ! index 2929 - 2940\n     281,285,286,287,289,290,291,293,299,301,303,304, & ! index 2941 - 2952\n     305,307,308,309,310,311,313,314,324,328,335,337, & ! index 2953 - 2964\n     340,341,342,345,346,351,248,253,276,301,303,304, & ! index 2965 - 2976\n     305,308,309,310,311,324,328,335,337,340,341,345, & ! index 2977 - 2988\n     346,351,135,144,168,192,199,222,231,276,299,303, & ! index 2989 - 3000\n     304,305,309,310,311,324,328,337,340,341,345,346, & ! index 3001 - 3012\n     351,222,276,310,311,324,328,337,340,341,345,346, & ! index 3013 - 3024\n     351,186,276,310,311,324,328,337,340,341,345,346, & ! index 3025 - 3036\n     351,109,191,220,233,255,276,281,290,309,310,311, & ! index 3037 - 3048\n     312,314,324,328,329,335,336,337,340,341,342,345, & ! index 3049 - 3060\n     346,348,351,244,271,276,287,295,300,301,303,304, & ! index 3061 - 3072\n     305,309,310,311,313,318,319,320,323,324,328,335, & ! index 3073 - 3084\n     337,340,341,342,345,346,351, 82,101,133,150,175, & ! index 3085 - 3096\n     187,209,219,222,229,230,262,276,291,299,303,304, & ! index 3097 - 3108\n     305,310,311,314,324,328,337,340,341,345,346,351, & ! index 3109 - 3120\n     118,251,279,292,296,298,300,314,315,318,319,320, & ! index 3121 - 3132\n     321,322,323,324,328,335,337,340,341,342,345,346, & ! index 3133 - 3144\n     351,148,218,316,335,336,337,339,341,342,343,344, & ! index 3145 - 3156\n     345,347,348,349,350,352,353,317,335,336,338,339, & ! index 3157 - 3168\n     340,343,344,345,349,350,352,353,251,269,318,319, & ! index 3169 - 3180\n     320,324,328,335,337,341,345,346,351, 97,130,142, & ! index 3181 - 3192\n     161,162,169,178,249,272,273,274,275,279,281,300, & ! index 3193 - 3204\n     318,319,320,324,328,335,337,340,341,345,346,351, & ! index 3205 - 3216\n     219,292,300,318,319,320,324,328,335,337,340,341, & ! index 3217 - 3228\n     345,346,351, 99,141,251,279,292,298,300,314,318 /) ! index up to 3240\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_9 = (/ &\n     319,320,321,322,323,324,328,335,337,340,341,342, & ! index 3241 - 3252\n     345,346,351,124,155,160,176,196,201,221,240,246, & ! index 3253 - 3264\n     269,277,278,292,298,300,314,318,319,320,321,322, & ! index 3265 - 3276\n     323,324,328,335,337,340,341,342,345,346,351,100, & ! index 3277 - 3288\n     141,251,279,292,298,300,314,318,319,320,321,322, & ! index 3289 - 3300\n     323,324,328,335,337,340,341,342,345,346,351, 92, & ! index 3301 - 3312\n     107,115,122,130,139,146,159,169,184,185,194,196, & ! index 3313 - 3324\n     200,208,209,227,230,231,240,243,244,247,249,250, & ! index 3325 - 3336\n     254,257,258,259,260,261,263,267,268,271,272,274, & ! index 3337 - 3348\n     275,276,277,278,279,280,281,285,286,287,288,289, & ! index 3349 - 3360\n     290,291,292,293,294,295,296,299,300,301,302,303, & ! index 3361 - 3372\n     304,305,307,308,309,310,311,313,314,315,318,319, & ! index 3373 - 3384\n     320,321,322,323,324,326,328,335,337,340,341,342, & ! index 3385 - 3396\n     345,346,351, 72, 80, 88, 89, 92, 93, 94,106,109, & ! index 3397 - 3408\n     112,114,122,123,127,130,136,137,138,139,140,146, & ! index 3409 - 3420\n     149,159,160,164,165,168,169,175,176,187,190,191, & ! index 3421 - 3432\n     192,196,197,199,200,205,206,207,208,209,210,211, & ! index 3433 - 3444\n     212,213,215,219,220,222,223,224,226,228,229,230, & ! index 3445 - 3456\n     231,233,234,235,236,240,243,244,246,247,249,250, & ! index 3457 - 3468\n     253,254,255,257,258,259,260,261,262,263,267,268, & ! index 3469 - 3480\n     270,271,272,273,274,275,276,277,278,279,280,281, & ! index 3481 - 3492\n     282,285,286,287,288,289,290,291,293,296,299,300, & ! index 3493 - 3504\n     301,302,303,304,305,306,307,308,309,310,311,312, & ! index 3505 - 3516\n     313,314,315,318,319,320,321,322,323,324,325,326, & ! index 3517 - 3528\n     328,329,334,335,336,337,338,340,341,342,343,345, & ! index 3529 - 3540\n     346,348,351, 83,118,123,124,149,155,156,165,196, & ! index 3541 - 3552\n     240,241,246,249,250,251,260,279,290,296,300,314, & ! index 3553 - 3564\n     315,318,319,320,321,322,323,324,326,328,329,335, & ! index 3565 - 3576\n     336,337,340,341,342,345,346,348,351, 45, 69, 94, & ! index 3577 - 3588\n     103,142,149,154,158,166,168,175,179,183,186,195 /) ! index up to 3600\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_10 = (/ &\n     200,202,204,214,216,218,220,222,225,226,242,248, & ! index 3601 - 3612\n     251,253,256,261,266,267,268,269,270,271,272,273, & ! index 3613 - 3624\n     275,276,277,278,280,281,285,286,288,289,291,292, & ! index 3625 - 3636\n     293,294,298,299,300,301,302,303,304,305,306,307, & ! index 3637 - 3648\n     308,309,310,311,313,314,317,318,319,320,321,322, & ! index 3649 - 3660\n     323,324,325,326,327,328,329,332,334,335,336,337, & ! index 3661 - 3672\n     338,339,340,341,342,343,344,345,346,347,348,349, & ! index 3673 - 3684\n     350,351,352,353, 52, 80, 92, 94,105,139,155,159, & ! index 3685 - 3696\n     164,181,228,234,235,236,240,246,249,250,251,257, & ! index 3697 - 3708\n     259,260,263,272,273,274,275,276,277,278,279,280, & ! index 3709 - 3720\n     281,283,289,290,291,292,295,296,300,304,305,307, & ! index 3721 - 3732\n     308,309,310,311,313,314,315,318,319,320,321,322, & ! index 3733 - 3744\n     323,324,326,328,329,334,335,336,337,338,340,341, & ! index 3745 - 3756\n     342,345,346,348,351, 60, 68, 75, 79, 82,101,107, & ! index 3757 - 3768\n     113,114,119,122,124,126,127,132,139,143,144,146, & ! index 3769 - 3780\n     147,150,153,159,167,181,182,184,185,187,191,192, & ! index 3781 - 3792\n     194,197,199,200,201,204,208,209,210,212,213,215, & ! index 3793 - 3804\n     216,220,221,223,225,226,227,230,231,233,238,240, & ! index 3805 - 3816\n     241,243,246,248,253,254,255,258,259,261,266,267, & ! index 3817 - 3828\n     268,269,270,271,276,277,281,285,286,287,288,290, & ! index 3829 - 3840\n     293,294,295,298,299,300,301,302,303,304,305,306, & ! index 3841 - 3852\n     307,308,309,310,311,312,313,314,318,319,320,321, & ! index 3853 - 3864\n     322,323,324,325,326,328,329,334,335,336,337,338, & ! index 3865 - 3876\n     340,341,342,343,345,346,348,351,170,252,284,330, & ! index 3877 - 3888\n     331,332,335,336,337,338,341,344,345,346,347,349, & ! index 3889 - 3900\n     350,351,353,  1,  2,  3, 44, 52, 62, 73, 77, 96, & ! index 3901 - 3912\n     104,170,252,284,330,331,332,335,336,337,338,341, & ! index 3913 - 3924\n     344,345,346,347,349,350,351,353,170,252,284,330, & ! index 3925 - 3936\n     331,332,335,336,337,338,341,344,345,346,347,349, & ! index 3937 - 3948\n     350,351,353, 76,120,245,284,297,317,328,329,330 /) ! index up to 3960\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_11 = (/ &\n     331,332,333,334,335,336,337,338,339,340,341,342, & ! index 3961 - 3972\n     343,344,345,346,347,348,349,350,351,352,353, 46, & ! index 3973 - 3984\n      47, 48, 49, 50, 51, 53, 54, 61, 63, 67, 78, 81, & ! index 3985 - 3996\n      84, 85, 86, 87,105,181,228,245,290,297,314,317, & ! index 3997 - 4008\n     324,326,328,329,333,334,335,336,337,338,339,340, & ! index 4009 - 4020\n     341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4021 - 4032\n     353, 56, 57, 59, 64, 65, 67, 70, 80, 83, 90, 91, & ! index 4033 - 4044\n      93, 95, 96,108,113,114,116,121,122,124,125,126, & ! index 4045 - 4056\n     127,132,133,135,137,138,139,140,154,162,163,165, & ! index 4057 - 4068\n     166,168,171,172,175,176,177,178,179,180,182,184, & ! index 4069 - 4080\n     186,189,190,193,196,197,200,203,205,206,207,211, & ! index 4081 - 4092\n     212,213,214,218,220,222,223,224,226,229,230,231, & ! index 4093 - 4104\n     232,233,234,235,236,237,239,240,241,242,243,246, & ! index 4105 - 4116\n     247,248,249,250,251,252,253,254,255,256,257,259, & ! index 4117 - 4128\n     260,261,262,263,266,267,268,269,271,272,273,274, & ! index 4129 - 4140\n     275,276,277,278,279,280,281,284,285,286,289,290, & ! index 4141 - 4152\n     291,293,296,297,299,300,301,302,303,304,305,306, & ! index 4153 - 4164\n     308,309,310,311,312,313,314,315,317,318,319,320, & ! index 4165 - 4176\n     321,322,323,324,326,327,328,329,330,331,332,334, & ! index 4177 - 4188\n     335,336,337,338,339,340,341,342,343,344,345,346, & ! index 4189 - 4200\n     347,348,349,350,351,352,353, 43, 52, 73, 84, 85, & ! index 4201 - 4212\n      86, 87,105,108,116,164,173,181,183,189,196,200, & ! index 4213 - 4224\n     201,214,217,218,220,221,228,239,240,241,244,246, & ! index 4225 - 4236\n     251,252,264,265,269,271,276,279,283,287,289,290, & ! index 4237 - 4248\n     291,292,295,296,297,298,300,301,302,303,304,305, & ! index 4249 - 4260\n     306,307,308,309,310,311,312,313,314,315,316,317, & ! index 4261 - 4272\n     318,319,320,321,322,323,324,325,326,327,328,329, & ! index 4273 - 4284\n     330,331,332,333,334,335,336,337,338,339,340,341, & ! index 4285 - 4296\n     342,343,344,345,346,347,348,349,350,351,352,353, & ! index 4297 - 4308\n      60, 72, 75, 79, 80, 82, 83, 88, 91, 93, 95, 97 /) ! index up to 4320\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_12 = (/ &\n      98, 99,100,101,102,105,106,108,111,112,115,116, & ! index 4321 - 4332\n     118,119,121,123,125,127,128,131,132,133,135,136, & ! index 4333 - 4344\n     137,138,143,144,145,146,147,149,150,151,152,153, & ! index 4345 - 4356\n     155,156,158,161,164,165,168,171,172,174,175,178, & ! index 4357 - 4368\n     180,181,182,185,186,187,188,189,190,192,194,195, & ! index 4369 - 4380\n     196,197,198,199,200,201,202,204,205,206,207,208, & ! index 4381 - 4392\n     209,210,212,213,216,217,219,220,221,222,223,224, & ! index 4393 - 4404\n     225,226,227,228,229,230,231,232,233,234,235,236, & ! index 4405 - 4416\n     238,240,243,246,248,249,250,251,253,254,255,257, & ! index 4417 - 4428\n     258,259,260,261,262,263,264,265,266,267,268,269, & ! index 4429 - 4440\n     270,271,272,273,274,275,276,277,278,279,280,281, & ! index 4441 - 4452\n     282,284,285,286,287,288,289,290,291,293,294,296, & ! index 4453 - 4464\n     298,299,300,301,302,303,304,305,306,307,308,309, & ! index 4465 - 4476\n     310,311,312,313,314,315,318,319,320,321,322,323, & ! index 4477 - 4488\n     324,325,326,328,329,330,331,332,334,335,336,337, & ! index 4489 - 4500\n     338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4501 - 4512\n     350,351,352,353, 46, 47, 48, 49, 50, 51, 61, 76, & ! index 4513 - 4524\n      84, 85, 86, 87,110,120,181,245,284,296,297,315, & ! index 4525 - 4536\n     317,318,319,320,321,322,323,324,326,328,329,330, & ! index 4537 - 4548\n     331,332,333,334,335,336,337,338,339,340,341,342, & ! index 4549 - 4560\n     343,344,345,346,347,348,349,350,351,352,353, 75, & ! index 4561 - 4572\n      79,141,142,156,164,166,179,181,183,214,218,228, & ! index 4573 - 4584\n     264,265,269,276,282,283,289,290,291,295,296,297, & ! index 4585 - 4596\n     300,301,302,303,304,305,306,307,308,309,310,311, & ! index 4597 - 4608\n     312,313,314,315,316,317,318,319,320,321,322,323, & ! index 4609 - 4620\n     324,325,326,327,328,329,332,333,334,335,336,337, & ! index 4621 - 4632\n     338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4633 - 4644\n     350,351,352,353,  3, 43, 46, 47, 48, 49, 50, 51, & ! index 4645 - 4656\n      61, 75, 76, 79, 84, 85, 86, 87,104,110,141,142, & ! index 4657 - 4668\n     156,157,164,181,183,218,228,245,252,264,265,269 /) ! index up to 4680\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_13 = (/ &\n     276,282,283,284,289,290,291,295,296,297,300,301, & ! index 4681 - 4692\n     302,303,304,305,306,307,308,309,310,311,312,313, & ! index 4693 - 4704\n     314,315,316,317,318,319,320,321,322,323,324,325, & ! index 4705 - 4716\n     326,328,329,330,331,332,333,334,335,336,337,338, & ! index 4717 - 4728\n     339,340,341,342,343,344,345,346,347,348,349,350, & ! index 4729 - 4740\n     351,352,353,109,140,166,167,179,191,193,201,202, & ! index 4741 - 4752\n     203,211,213,217,219,220,221,228,229,233,235,236, & ! index 4753 - 4764\n     237,240,242,246,255,257,259,262,269,274,275,276, & ! index 4765 - 4776\n     277,280,281,289,290,291,306,308,309,310,311,312, & ! index 4777 - 4788\n     314,320,322,323,324,325,326,327,328,329,331,332, & ! index 4789 - 4800\n     334,335,336,337,338,339,340,341,342,343,344,345, & ! index 4801 - 4812\n     346,347,348,349,350,351,352,353,  2, 53, 54, 59, & ! index 4813 - 4824\n      61, 77, 78, 81,105,141,148,157,183,218,252,284, & ! index 4825 - 4836\n     290,295,297,300,314,316,317,318,319,320,323,324, & ! index 4837 - 4848\n     325,326,328,329,330,331,332,333,334,335,336,337, & ! index 4849 - 4860\n     338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4861 - 4872\n     350,351,352,353, 46, 47, 48, 49, 50, 51, 53, 54, & ! index 4873 - 4884\n      61, 67, 68, 78, 81, 84, 85, 86, 87,120,181,217, & ! index 4885 - 4896\n     228,245,264,276,284,290,297,312,314,316,317,324, & ! index 4897 - 4908\n     325,326,328,329,330,331,332,333,334,335,336,337, & ! index 4909 - 4920\n     338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4921 - 4932\n     350,351,352,353,166,214,252,297,316,317,327,328, & ! index 4933 - 4944\n     329,330,331,332,333,334,335,336,337,338,339,340, & ! index 4945 - 4956\n     341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4957 - 4968\n     353, 41, 43, 52, 58, 60, 66, 68, 69, 70, 71, 72, & ! index 4969 - 4980\n      73, 74, 75, 76, 78, 79, 81, 82, 83, 84, 85, 86, & ! index 4981 - 4992\n      87, 88, 89, 90, 91, 92, 93, 94, 95, 97, 98, 99, & ! index 4993 - 5004\n     100,101,102,105,107,108,109,111,112,113,114,115, & ! index 5005 - 5016\n     116,117,118,119,120,122,123,124,125,126,127,128, & ! index 5017 - 5028\n     129,130,131,133,134,135,136,137,138,139,140,141 /) ! index up to 5040\n  INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_14 = (/ &\n     142,143,144,146,147,148,149,150,151,152,153,154, & ! index 5041 - 5052\n     155,156,158,159,160,161,162,163,164,167,168,169, & ! index 5053 - 5064\n     170,171,172,173,174,175,176,177,178,179,180,181, & ! index 5065 - 5076\n     182,183,184,185,186,187,188,189,190,191,192,193, & ! index 5077 - 5088\n     194,195,196,197,198,199,200,201,202,204,205,206, & ! index 5089 - 5100\n     207,208,209,210,211,212,213,216,217,218,219,220, & ! index 5101 - 5112\n     221,222,223,224,225,226,228,229,230,231,232,233, & ! index 5113 - 5124\n     234,235,236,237,238,239,240,241,242,243,244,245, & ! index 5125 - 5136\n     246,247,248,249,250,251,252,253,254,255,256,257, & ! index 5137 - 5148\n     258,259,260,261,262,263,264,265,266,267,268,269, & ! index 5149 - 5160\n     270,271,272,273,274,275,276,277,278,279,280,281, & ! index 5161 - 5172\n     282,283,284,285,286,287,288,289,290,291,292,293, & ! index 5173 - 5184\n     294,295,296,297,298,299,300,301,302,303,304,305, & ! index 5185 - 5196\n     306,307,308,309,310,311,312,313,314,315,316,317, & ! index 5197 - 5208\n     318,319,320,321,322,323,324,325,326,327,328,329, & ! index 5209 - 5220\n     330,331,332,333,334,335,336,337,338,339,340,341, & ! index 5221 - 5232\n     342,343,344,345,346,347,348,349,350,351,352,353, & ! index 5233 - 5244\n      62, 63, 67, 96,121,132,133,135,165,171,172,178, & ! index 5245 - 5256\n     180,182,189,190,196,197,200,205,206,207,212,213, & ! index 5257 - 5268\n     220,223,224,226,230,231,232,233,234,235,236,239, & ! index 5269 - 5280\n     240,241,243,246,249,250,252,253,254,257,259,260, & ! index 5281 - 5292\n     263,267,268,269,271,272,273,274,275,276,277,278, & ! index 5293 - 5304\n     279,280,281,284,285,286,289,290,291,293,296,297, & ! index 5305 - 5316\n     299,300,301,303,304,305,306,308,309,310,311,312, & ! index 5317 - 5328\n     313,314,315,318,319,320,321,322,323,324,326,327, & ! index 5329 - 5340\n     328,329,330,331,332,334,335,336,337,338,339,340, & ! index 5341 - 5352\n     341,342,343,344,345,346,347,348,349,350,351,352, & ! index 5353 - 5364\n     353, 53, 54, 61, 78, 81,105,218,284,316,330,331, & ! index 5365 - 5376\n     332,334,335,336,337,338,339,340,341,342,343,344, & ! index 5377 - 5388\n     345,346,347,348,349,350,351,352,353, 68, 89, 94 /) ! index up to 5400\n  INTEGER, PARAMETER, DIMENSION(283) :: LU_ICOL_15 = (/ &\n     134,166,179,241,264,276,290,312,314,316,324,325, & ! index 5401 - 5412\n     326,327,328,329,332,333,334,335,336,337,338,339, & ! index 5413 - 5424\n     340,341,342,343,344,345,346,347,348,349,350,351, & ! index 5425 - 5436\n     352,353,252,297,316,317,330,331,332,335,336,337, & ! index 5437 - 5448\n     338,339,340,341,342,343,344,345,346,347,348,349, & ! index 5449 - 5460\n     350,351,352,353,252,297,316,317,330,331,332,335, & ! index 5461 - 5472\n     336,337,338,339,340,341,342,343,344,345,346,347, & ! index 5473 - 5484\n     348,349,350,351,352,353, 69, 80, 94,108,124,126, & ! index 5485 - 5496\n     139,140,142,149,154,158,163,167,170,183,184,191, & ! index 5497 - 5508\n     193,195,197,200,202,204,211,213,214,218,219,220, & ! index 5509 - 5520\n     225,229,233,234,236,237,241,242,246,252,255,256, & ! index 5521 - 5532\n     257,259,261,262,263,267,269,270,271,272,273,274, & ! index 5533 - 5544\n     275,276,277,278,280,281,285,286,288,289,290,291, & ! index 5545 - 5556\n     292,293,294,298,299,300,301,302,303,304,305,306, & ! index 5557 - 5568\n     307,308,309,310,311,312,313,314,317,318,319,320, & ! index 5569 - 5580\n     321,322,323,324,325,326,327,328,329,331,332,334, & ! index 5581 - 5592\n     335,336,337,338,339,340,341,342,343,344,345,346, & ! index 5593 - 5604\n     347,348,349,350,351,352,353,141,183,290,295,297, & ! index 5605 - 5616\n     300,314,316,317,318,319,320,323,324,325,326,328, & ! index 5617 - 5628\n     329,333,334,335,336,337,338,339,340,341,342,343, & ! index 5629 - 5640\n     344,345,346,347,348,349,350,351,352,353,179,214, & ! index 5641 - 5652\n     252,297,316,317,327,328,329,330,331,332,333,334, & ! index 5653 - 5664\n     335,336,337,338,339,340,341,342,343,344,345,346, & ! index 5665 - 5676\n     347,348,349,350,351,352,353 /) ! index up to 5683\n  INTEGER, PARAMETER, DIMENSION(5683) :: LU_ICOL = (/&\n    LU_ICOL_0, LU_ICOL_1, LU_ICOL_2, LU_ICOL_3, LU_ICOL_4, &\n    LU_ICOL_5, LU_ICOL_6, LU_ICOL_7, LU_ICOL_8, LU_ICOL_9, &\n    LU_ICOL_10, LU_ICOL_11, LU_ICOL_12, LU_ICOL_13, LU_ICOL_14, &\n    LU_ICOL_15 /)\n\n  INTEGER, PARAMETER, DIMENSION(354) :: LU_CROW = (/ &\n       1,  2,  3,  4,  9, 11, 14, 83, 86, 94,102,105, & ! index 1 - 12\n     108,113,116,119,122,125,130,132,135,138,143,145, & ! index 13 - 24\n     151,154,157,162,165,169,173,179,184,188,306,432, & ! index 25 - 36\n     521,526,537,542,551,553,555,557,559,563,565,567, & ! index 37 - 48\n     569,571,573,575,577,579,581,584,587,590,593,596, & ! index 49 - 60\n     598,600,603,607,611,615,620,623,626,629,633,637, & ! index 61 - 72\n     641,645,649,652,655,661,664,667,670,673,675,679, & ! index 73 - 84\n     682,685,688,691,695,699,703,707,711,715,718,722, & ! index 85 - 96\n     729,733,737,741,745,747,751,765,773,776,782,786, & ! index 97 - 108\n     790,794,801,805,809,813,817,823,827,834,839,844, & ! index 109 - 120\n     849,855,859,863,867,871,875,879,885,897,902,908, & ! index 121 - 132\n     913,918,930,935,940,944,948,952,956,960,964,968, & ! index 133 - 144\n     973,982,988,992,1001,1004,1009,1015,1021,1027,1033,1039, & ! index 145 - 156\n     1045,1059,1066,1070,1075,1080,1086,1094,1099,1104,1109,1113, & ! index 157 - 168\n     1117,1123,1131,1137,1143,1155,1161,1165,1171,1180,1187,1192, & ! index 169 - 180\n     1197,1201,1207,1212,1217,1226,1230,1234,1247,1255,1261,1265, & ! index 181 - 192\n     1269,1275,1281,1287,1294,1301,1308,1312,1315,1324,1332,1348, & ! index 193 - 204\n     1361,1367,1372,1377,1389,1393,1404,1410,1417,1425,1432,1457, & ! index 205 - 216\n     1469,1481,1487,1491,1495,1508,1514,1521,1528,1540,1546,1563, & ! index 217 - 228\n     1570,1576,1582,1588,1596,1604,1615,1627,1641,1650,1661,1682, & ! index 229 - 240\n     1691,1699,1711,1723,1739,1753,1760,1782,1797,1804,1813,1820, & ! index 241 - 252\n     1827,1838,1849,1859,1881,1895,1910,1920,1930,1947,1959,1993, & ! index 253 - 264\n     2009,2041,2060,2066,2073,2089,2134,2142,2153,2166,2189,2200, & ! index 265 - 276\n     2205,2216,2231,2240,2256,2267,2305,2340,2354,2374,2394,2428, & ! index 277 - 288\n     2461,2474,2481,2490,2520,2534,2597,2629,2652,2664,2717,2739, & ! index 289 - 300\n     2751,2768,2796,2822,2836,2850,2908,2971,2991,3014,3026,3038, & ! index 301 - 312\n     3064,3092,3121,3146,3164,3177,3190,3217,3232,3256,3288,3312, & ! index 313 - 324\n     3400,3544,3586,3689,3762,3885,3904,3933,3952,3984,4034,4208, & ! index 325 - 336\n     4309,4517,4572,4649,4744,4821,4877,4937,4970,5245,5366,5398, & ! index 337 - 348\n     5439,5465,5491,5612,5651,5684 /) ! index up to 354\n\n  INTEGER, PARAMETER, DIMENSION(354) :: LU_DIAG = (/ &\n       1,  2,  3,  4,  9, 11, 14, 83, 86, 94,102,105, & ! index 1 - 12\n     108,113,116,119,122,125,130,132,135,138,143,145, & ! index 13 - 24\n     151,154,157,162,165,169,173,179,184,188,306,432, & ! index 25 - 36\n     521,526,537,542,551,553,555,557,559,563,565,567, & ! index 37 - 48\n     569,571,573,575,577,579,581,584,587,590,593,596, & ! index 49 - 60\n     598,600,603,607,611,615,620,623,626,629,633,637, & ! index 61 - 72\n     641,645,649,652,655,661,664,667,670,673,675,679, & ! index 73 - 84\n     682,685,688,691,695,699,703,707,711,715,718,725, & ! index 85 - 96\n     729,733,737,741,745,747,751,765,773,776,782,786, & ! index 97 - 108\n     790,795,801,805,809,813,817,823,828,834,839,844, & ! index 109 - 120\n     850,855,859,863,867,871,875,879,886,897,902,908, & ! index 121 - 132\n     913,919,930,935,940,944,948,952,956,960,964,968, & ! index 133 - 144\n     973,983,988,992,1001,1004,1009,1015,1021,1027,1033,1039, & ! index 145 - 156\n     1045,1062,1066,1070,1075,1081,1086,1094,1099,1104,1109,1113, & ! index 157 - 168\n     1117,1124,1131,1137,1144,1155,1161,1166,1171,1182,1187,1192, & ! index 169 - 180\n     1197,1201,1207,1212,1219,1226,1230,1234,1248,1256,1261,1265, & ! index 181 - 192\n     1269,1275,1282,1289,1295,1302,1308,1312,1320,1327,1337,1354, & ! index 193 - 204\n     1362,1367,1372,1379,1389,1394,1404,1411,1418,1425,1444,1458, & ! index 205 - 216\n     1470,1481,1487,1491,1503,1508,1516,1523,1531,1541,1550,1563, & ! index 217 - 228\n     1570,1577,1583,1590,1598,1607,1619,1633,1641,1652,1665,1685, & ! index 229 - 240\n     1691,1700,1715,1726,1740,1754,1766,1785,1797,1805,1813,1820, & ! index 241 - 252\n     1829,1840,1850,1865,1885,1900,1912,1921,1934,1950,1980,1994, & ! index 253 - 264\n     2020,2047,2060,2066,2081,2113,2135,2144,2157,2178,2192,2200, & ! index 265 - 276\n     2208,2222,2232,2246,2259,2279,2314,2343,2364,2385,2412,2445, & ! index 277 - 288\n     2465,2474,2482,2507,2523,2572,2613,2639,2653,2699,2727,2742, & ! index 289 - 300\n     2756,2780,2811,2826,2841,2894,2954,2978,3003,3016,3029,3049, & ! index 301 - 312\n     3077,3112,3129,3148,3164,3179,3206,3222,3243,3276,3301,3389, & ! index 313 - 324\n     3527,3573,3665,3748,3871,3888,3918,3938,3963,4014,4189,4291, & ! index 325 - 336\n     4500,4556,4634,4730,4808,4865,4926,4960,5236,5358,5391,5433, & ! index 337 - 348\n     5460,5487,5609,5649,5683,5684 /) ! index up to 354\n\n\nEND MODULE gckpp_JacobianSP\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_LinearAlgebra.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Linear Algebra Data and Routines File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_LinearAlgebra.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_LinearAlgebra\n\n  USE gckpp_Global, ONLY: DO_SLV\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n  IMPLICIT NONE\n\nCONTAINS\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! SPARSE_UTIL - SPARSE utility functions\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppDecomp( JVS, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse LU factorization\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER  :: IER\n      REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a\n      INTEGER  :: k, kk, j, jj\n\n      a = 0. ! mz_rs_20050606\n      IER = 0\n      DO k=1,NVAR\n        ! mz_rs_20050606: don't check if real value == 0\n        ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN\n        IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n              W( LU_ICOL(kk) ) = JVS(kk)\n        END DO\n        DO kk = LU_CROW(k), LU_DIAG(k)-1\n            j = LU_ICOL(kk)\n            a = -W(j) / JVS( LU_DIAG(j) )\n            W(j) = -a\n            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n               W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj)\n            END DO\n         END DO\n         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n            JVS(kk) = W( LU_ICOL(kk) )\n         END DO\n      END DO\n      \nEND SUBROUTINE KppDecomp\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppDecompCmplx( JVS, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse LU factorization, complex\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER        :: IER\n      COMPLEX(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a\n      REAL(kind=dp)  :: b = 0.0\n      INTEGER        :: k, kk, j, jj\n\n      IER = 0\n      DO k=1,NVAR\n        IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n              W( LU_ICOL(kk) ) = JVS(kk)\n        END DO\n        DO kk = LU_CROW(k), LU_DIAG(k)-1\n            j = LU_ICOL(kk)\n            a = -W(j) / JVS( LU_DIAG(j) )\n            W(j) = -a\n            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n               W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj)\n            END DO\n         END DO\n         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n            JVS(kk) = W( LU_ICOL(kk) )\n         END DO\n      END DO\n      \nEND SUBROUTINE KppDecompCmplx\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!    Sparse LU factorization, complex\n!   (Real and Imaginary parts are used instead of complex data type)     \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       :: IER\n      REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) \n      REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den\n      INTEGER       :: k, kk, j, jj\n\n      IER = 0\n      ar  = 0.0\n      DO k=1,NVAR\n        IF (  ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. &\n              ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) )  THEN\n            IER = k\n            RETURN\n        END IF\n        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n              WR( LU_ICOL(kk) ) = JVSR(kk)\n              WI( LU_ICOL(kk) ) = JVSI(kk)\n        END DO\n        DO kk = LU_CROW(k), LU_DIAG(k)-1\n            j = LU_ICOL(kk)\n            den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2\n            ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den\n            ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den\n            WR(j) = -ar\n            WI(j) = -ai\n            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n               WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj)\n               WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj)\n            END DO\n         END DO\n         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n            JVSR(kk) = WR( LU_ICOL(kk) )\n            JVSI(kk) = WI( LU_ICOL(kk) )\n         END DO\n      END DO\n\nEND SUBROUTINE KppDecompCmplxR\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveIndirect( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Sparse solve subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER  :: i, j\n      REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum\n\n      DO i=1,NVAR\n         DO j = LU_CROW(i), LU_DIAG(i)-1 \n             X(i) = X(i) - JVS(j)*X(LU_ICOL(j));\n         END DO  \n      END DO\n\n      DO i=NVAR,1,-1\n        sum = X(i);\n        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n          sum = sum - JVS(j)*X(LU_ICOL(j));\n        END DO\n        X(i) = sum/JVS(LU_DIAG(i));\n      END DO\n      \nEND SUBROUTINE KppSolveIndirect\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveTRIndirect( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Complex sparse solve transpose subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       :: i, j\n      REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR)\n\n      DO i=1,NVAR\n        X(i) = X(i)/JVS(LU_DIAG(i))\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n\n      DO i=NVAR, 1, -1\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_CROW(i),LU_DIAG(i)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n      \nEND SUBROUTINE KppSolveTRIndirect\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveCmplx( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Complex sparse solve subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER        :: i, j\n      COMPLEX(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum\n\n      DO i=1,NVAR\n         DO j = LU_CROW(i), LU_DIAG(i)-1 \n             X(i) = X(i) - JVS(j)*X(LU_ICOL(j));\n         END DO  \n      END DO\n\n      DO i=NVAR,1,-1\n        sum = X(i);\n        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n          sum = sum - JVS(j)*X(LU_ICOL(j));\n        END DO\n        X(i) = sum/JVS(LU_DIAG(i));\n      END DO\n      \nEND SUBROUTINE KppSolveCmplx\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Complex sparse solve subroutine using indirect addressing\n!   (Real and Imaginary parts are used instead of complex data type)     \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       ::  i, j\n      REAL(kind=dp) ::  JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den\n\n      DO i=1,NVAR\n         DO j = LU_CROW(i), LU_DIAG(i)-1 \n             XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j)))\n             XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j)))\n         END DO  \n      END DO\n\n      DO i=NVAR,1,-1\n        sumr = XR(i); sumi = XI(i)\n        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n            sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j)))\n            sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j)))\n        END DO\n        den   = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2\n        XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den\n        XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den\n      END DO\n      \nEND SUBROUTINE KppSolveCmplxR\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveTRCmplx( JVS, X )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!        Complex sparse solve transpose subroutine using indirect addressing\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER        :: i, j\n      COMPLEX(kind=dp) :: JVS(LU_NONZERO), X(NVAR)\n\n      DO i=1,NVAR\n        X(i) = X(i)/JVS(LU_DIAG(i))\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n\n      DO i=NVAR, 1, -1\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_CROW(i),LU_DIAG(i)-1\n          X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i)\n        END DO\n      END DO\n      \nEND SUBROUTINE KppSolveTRCmplx\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nSUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI )\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!   Complex sparse solve transpose subroutine using indirect addressing\n!   (Real and Imaginary parts are used instead of complex data type)     \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Parameters\n  USE gckpp_JacobianSP\n\n      INTEGER       ::  i, j\n      REAL(kind=dp) ::  JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den\n\n      DO i=1,NVAR\n        den   = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2\n        XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den\n        XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n          XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i))\n          XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i))\n        END DO\n      END DO\n\n      DO i=NVAR, 1, -1\n        ! subtract all nonzero elements in row i of JVS from X\n        DO j=LU_CROW(i),LU_DIAG(i)-1\n          XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i))\n          XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i))\n        END DO\n      END DO\n      \nEND SUBROUTINE KppSolveTRCmplxR\n\n\n!\n! Next few commented subroutines perform sparse big linear algebra\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE KppDecompBig( JVS, IP, IER )\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!        Sparse LU factorization\n!!        for the Runge Kutta (3n)x(3n) linear system\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!  USE gckpp_Parameters\n!  USE gckpp_JacobianSP\n!\n!      INTEGER  :: IP3(3), IER, IP(3,NVAR)\n!      REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3)\n!      INTEGER  :: k, kk, j, jj\n!\n!      a = 0.0d0\n!      IER = 0\n!      DO k=1,NVAR\n!        DO kk = LU_CROW(k), LU_CROW(k+1)-1\n!              W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk)\n!        END DO\n!        DO kk = LU_CROW(k), LU_DIAG(k)-1\n!            j = LU_ICOL(kk)\n!            E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) )\n!            ! CALL DGETRF(3,3,E,3,IP3,IER) \n!            CALL FAC3(E,IP3,IER)\n!            IF ( IER /= 0 )  RETURN\n!            ! a = W(j) / JVS( LU_DIAG(j) )\n!            a(1:3,1:3) = W( 1:3,1:3,j )\n!            ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) \n!            CALL SOL3('N',E,IP3,a(1,1))\n!            CALL SOL3('N',E,IP3,a(1,2))\n!            CALL SOL3('N',E,IP3,a(1,3))\n!            W(1:3,1:3,j) = a(1:3,1:3)\n!            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1\n!               W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) &\n!                        - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) )\n!            END DO\n!         END DO\n!         DO kk = LU_CROW(k), LU_CROW(k+1)-1\n!            JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) )\n!         END DO\n!      END DO\n!\n!      DO k=1,NVAR\n!         ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER)\n!         ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER)\n!         CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER)\n!         IF ( IER /= 0 )  RETURN\n!      END DO \n!      \n!END SUBROUTINE KppDecompBig\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE KppSolveBig( JVS, IP, X )\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!        Sparse solve subroutine using indirect addressing\n!!        for the Runge Kutta (3n)x(3n) linear system\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!  USE gckpp_Parameters\n!  USE gckpp_JacobianSP\n!\n!      INTEGER  :: i, j, k, m, IP3(3), IP(3,NVAR), IER\n!      REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3)\n!\n!      DO i=1,NVAR\n!        DO j = LU_CROW(i), LU_DIAG(i)-1 \n!          !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j)));\n!          DO k=1,3\n!            DO m=1,3\n!              X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j))\n!            END DO\n!          END DO\n!        END DO  \n!      END DO\n!\n!      DO i=NVAR,1,-1\n!        sum(1:3) = X(1:3,i);\n!        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1\n!          !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j)));\n!          DO k=1,3\n!            DO m=1,3\n!              sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j))\n!            END DO\n!          END DO\n!        END DO\n!        ! X(i) = sum/JVS(LU_DIAG(i));\n!        ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) \n!        ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum)\n!        CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum)\n!        X(1:3,i) = sum(1:3)\n!      END DO\n!      \n!END SUBROUTINE KppSolveBig\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE KppSolveBigTR( JVS, IP, X )\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!        Big sparse transpose solve using indirect addressing\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!  USE gckpp_Parameters\n!  USE gckpp_JacobianSP\n!\n!      INTEGER       :: i, j, k, m, IP(3,NVAR)\n!      REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR)\n!\n!      DO i=1,NVAR\n!        ! X(i) = X(i)/JVS(LU_DIAG(i))\n!        CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i))\n!        DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1\n!         !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) &\n!          !    - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) )\n!          DO k=1,3\n!            DO m=1,3\n!              X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i)\n!            END DO\n!          END DO\n!       END DO\n!      END DO\n!\n!      DO i=NVAR, 1, -1\n!        DO j=LU_CROW(i),LU_DIAG(i)-1\n!         !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) &\n!          !   - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) )\n!          DO k=1,3\n!            DO m=1,3\n!              X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i)\n!            END DO\n!          END DO\n!       END DO\n!      END DO\n!      \n!END SUBROUTINE KppSolveBigTR\n!\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE FAC3(A,IPVT,INFO)\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!     FAC3 FACTORS THE MATRIX A (3,3) BY\n!!           GAUSS ELIMINATION WITH PARTIAL PIVOTING\n!!     LINPACK - LIKE \n!!\n!!     Remove comments to perform pivoting\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!\n!      REAL(kind=dp) :: A(3,3)\n!      INTEGER       :: IPVT(3),INFO\n!!      INTEGER       :: L\n!!      REAL(kind=dp) :: t, dmax, da, TMP(3)\n!      REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0\n!\n!      info = 0\n!!      t = TINY(da)\n!!      \n!!      da = ABS(A(1,1)); L = 1\n!!      IF ( ABS(A(2,1))>da ) THEN\n!!        da = ABS(A(2,1)); L = 2\n!!        IF ( ABS(A(3,1))>da ) THEN\n!!          L = 3\n!!        END IF  \n!!      END IF  \n!!      IPVT(1)  = L\n!!      IF (L /=1 ) THEN\n!!         TMP(1:3) = A(L,1:3)\n!!         A(L,1:3) = A(1,1:3)\n!!         A(1,1:3) = TMP(1:3)\n!!      END IF\n!!      IF (ABS(A(1,1)) < t) THEN\n!!         info = 1\n!!         return\n!!      END IF   \n!!\n!      A(2,1) = A(2,1)/A(1,1)\n!      A(2,2) = A(2,2) - A(2,1)*A(1,2)\n!      A(2,3) = A(2,3) - A(2,1)*A(1,3)\n!      A(3,1) = A(3,1)/A(1,1)\n!      A(3,2) = A(3,2) - A(3,1)*A(1,2)\n!      A(3,3) = A(3,3) - A(3,1)*A(1,3)\n!      \n!!      IPVT(2)  = 2\n!!      IF (ABS(A(3,2))>ABS(A(2,2))) THEN\n!!         IPVT(2)  = 3\n!!         TMP(2:3) = A(3,2:3)\n!!         A(3,2:3) = A(2,2:3)\n!!         A(2,2:3) = TMP(2:3)\n!!      END IF\n!!      IF (ABS(A(2,2)) < t) THEN\n!!         info = 1\n!!         return\n!!      END IF   \n!!      \n!      A(3,2)   = A(3,2)/A(2,2)\n!      A(3,3)   = A(3,3) - A(3,2)*A(2,3)\n!      IPVT(3)  = 3\n!      \n!END SUBROUTINE FAC3\n!\n!\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!SUBROUTINE SOL3(Trans,A,IPVT,b)\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!!     SOL3 solves the system 3x3\n!!     A * x = b  or  trans(a) * x = b\n!!     using the factors computed by WGEFA.\n!!\n!!     Trans      = 'N'   to solve  A*x = b ,\n!!                = 'T'   to solve  transpose(A)*x = b\n!!     LINPACK - LIKE \n!!\n!!     Remove comments to use pivoting\n!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n!      CHARACTER     :: Trans\n!      REAL(kind=dp) :: a(3,3),b(3)\n!      INTEGER       :: IPVT(3)\n!!      INTEGER       :: L\n!!      REAL(kind=dp) :: TMP\n!      \n!      SELECT CASE (Trans)\n!\n!      CASE ('n','N')  !  Solve  A * x = b\n!\n!!     Solve  L*y = b\n!!         L = IPVT(1)\n!!         IF (L /= 1) THEN\n!!            TMP = B(1); B(1) = B(L); B(L) = TMP\n!!         END IF\n!         b(2) = b(2)-A(2,1)*b(1)\n!         b(3) = b(3)-A(3,1)*b(1)\n!         \n!!         L = IPVT(2)\n!!         IF (L /= 2) THEN\n!!            TMP = B(2); B(2) = B(L); B(L) = TMP\n!!         END IF\n!         b(3) = b(3)-A(3,2)*b(2)\n!\n!!     Solve  U*x = y\n!         b(3) = b(3)/A(3,3)\n!         b(2) = (b(2)-A(2,3)*b(3))/A(2,2)\n!         b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1)\n!      \n!      \n!      CASE ('t','T')  !  Solve transpose(A) * x = b\n!\n!!      Solve transpose(U)*y = b\n!         b(1) = b(1)/A(1,1)\n!         b(2) = (b(2)-A(1,2)*b(1))/A(2,2)\n!         b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3)\n!\n!!      Solve transpose(L)*x = y\n!         b(2) = b(2)-A(3,2)*b(3)\n!!         L = ipvt(2)\n!!         IF (L /= 2) THEN\n!!            TMP = B(2); B(2) = B(L); B(L) = TMP\n!!         END IF\n!         b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2)\n!!         L = ipvt(1)\n!!         IF (L /= 1) THEN\n!!            TMP = B(1); B(1) = B(L); B(L) = TMP\n!!         END IF\n!   \n!      END SELECT\n!\n!END SUBROUTINE SOL3\n\n! End of SPARSE_UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! KppSolve - sparse back substitution\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      X         - Vector for variables\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE KppSolve ( JVS, X )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! X - Vector for variables\n  REAL(kind=dp) :: X(NVAR)\n\nIF (DO_SLV(96)) &\n  X(96) = X(96)-JVS(722)*X(42)-JVS(723)*X(44)-JVS(724)*X(55)\nIF (DO_SLV(110)) &\n  X(110) = X(110)-JVS(794)*X(76)\nIF (DO_SLV(117)) &\n  X(117) = X(117)-JVS(827)*X(90)\nIF (DO_SLV(121)) &\n  X(121) = X(121)-JVS(849)*X(58)\nIF (DO_SLV(129)) &\n  X(129) = X(129)-JVS(885)*X(112)\nIF (DO_SLV(134)) &\n  X(134) = X(134)-JVS(918)*X(89)\nIF (DO_SLV(146)) &\n  X(146) = X(146)-JVS(982)*X(121)\nIF (DO_SLV(158)) &\n  X(158) = X(158)-JVS(1059)*X(82)-JVS(1060)*X(101)-JVS(1061)*X(149)\nIF (DO_SLV(162)) &\n  X(162) = X(162)-JVS(1080)*X(138)\nIF (DO_SLV(170)) &\n  X(170) = X(170)-JVS(1123)*X(62)\nIF (DO_SLV(173)) &\n  X(173) = X(173)-JVS(1143)*X(101)\nIF (DO_SLV(176)) &\n  X(176) = X(176)-JVS(1165)*X(137)\nIF (DO_SLV(178)) &\n  X(178) = X(178)-JVS(1180)*X(69)-JVS(1181)*X(98)\nIF (DO_SLV(185)) &\n  X(185) = X(185)-JVS(1217)*X(119)-JVS(1218)*X(147)\nIF (DO_SLV(189)) &\n  X(189) = X(189)-JVS(1247)*X(149)\nIF (DO_SLV(190)) &\n  X(190) = X(190)-JVS(1255)*X(168)\nIF (DO_SLV(195)) &\n  X(195) = X(195)-JVS(1281)*X(143)\nIF (DO_SLV(196)) &\n  X(196) = X(196)-JVS(1287)*X(165)-JVS(1288)*X(178)\nIF (DO_SLV(197)) &\n  X(197) = X(197)-JVS(1294)*X(126)\nIF (DO_SLV(198)) &\n  X(198) = X(198)-JVS(1301)*X(174)\nIF (DO_SLV(201)) &\n  X(201) = X(201)-JVS(1315)*X(82)-JVS(1316)*X(101)-JVS(1317)*X(149)-JVS(1318)*X(158)-JVS(1319)*X(200)\nIF (DO_SLV(202)) &\n  X(202) = X(202)-JVS(1324)*X(158)-JVS(1325)*X(195)-JVS(1326)*X(200)\nIF (DO_SLV(203)) &\n  X(203) = X(203)-JVS(1332)*X(117)-JVS(1333)*X(158)-JVS(1334)*X(195)-JVS(1335)*X(200)-JVS(1336)*X(202)\nIF (DO_SLV(204)) &\n  X(204) = X(204)-JVS(1348)*X(82)-JVS(1349)*X(101)-JVS(1350)*X(116)-JVS(1351)*X(149)-JVS(1352)*X(189)-JVS(1353)*X(200)\nIF (DO_SLV(205)) &\n  X(205) = X(205)-JVS(1361)*X(175)\nIF (DO_SLV(208)) &\n  X(208) = X(208)-JVS(1377)*X(131)-JVS(1378)*X(147)\nIF (DO_SLV(210)) &\n  X(210) = X(210)-JVS(1393)*X(209)\nIF (DO_SLV(212)) &\n  X(212) = X(212)-JVS(1410)*X(140)\nIF (DO_SLV(213)) &\n  X(213) = X(213)-JVS(1417)*X(114)\nIF (DO_SLV(215)) &\n  X(215) = X(215)-JVS(1432)*X(128)-JVS(1433)*X(144)-JVS(1434)*X(150)-JVS(1435)*X(151)-JVS(1436)*X(152)-JVS(1437)*X(168)&\n             &-JVS(1438)*X(175)-JVS(1439)*X(186)-JVS(1440)*X(187)-JVS(1441)*X(192)-JVS(1442)*X(199)-JVS(1443)*X(209)\nIF (DO_SLV(216)) &\n  X(216) = X(216)-JVS(1457)*X(206)\nIF (DO_SLV(217)) &\n  X(217) = X(217)-JVS(1469)*X(181)\nIF (DO_SLV(221)) &\n  X(221) = X(221)-JVS(1495)*X(82)-JVS(1496)*X(101)-JVS(1497)*X(143)-JVS(1498)*X(149)-JVS(1499)*X(195)-JVS(1500)*X(200)&\n             &-JVS(1501)*X(202)-JVS(1502)*X(220)\nIF (DO_SLV(223)) &\n  X(223) = X(223)-JVS(1514)*X(187)-JVS(1515)*X(209)\nIF (DO_SLV(224)) &\n  X(224) = X(224)-JVS(1521)*X(192)-JVS(1522)*X(199)\nIF (DO_SLV(225)) &\n  X(225) = X(225)-JVS(1528)*X(111)-JVS(1529)*X(137)-JVS(1530)*X(191)\nIF (DO_SLV(226)) &\n  X(226) = X(226)-JVS(1540)*X(186)\nIF (DO_SLV(227)) &\n  X(227) = X(227)-JVS(1546)*X(131)-JVS(1547)*X(147)-JVS(1548)*X(153)-JVS(1549)*X(194)\nIF (DO_SLV(230)) &\n  X(230) = X(230)-JVS(1576)*X(209)\nIF (DO_SLV(231)) &\n  X(231) = X(231)-JVS(1582)*X(199)\nIF (DO_SLV(232)) &\n  X(232) = X(232)-JVS(1588)*X(187)-JVS(1589)*X(192)\nIF (DO_SLV(233)) &\n  X(233) = X(233)-JVS(1596)*X(140)-JVS(1597)*X(212)\nIF (DO_SLV(234)) &\n  X(234) = X(234)-JVS(1604)*X(109)-JVS(1605)*X(136)-JVS(1606)*X(233)\nIF (DO_SLV(235)) &\n  X(235) = X(235)-JVS(1615)*X(71)-JVS(1616)*X(90)-JVS(1617)*X(204)-JVS(1618)*X(220)\nIF (DO_SLV(236)) &\n  X(236) = X(236)-JVS(1627)*X(71)-JVS(1628)*X(117)-JVS(1629)*X(203)-JVS(1630)*X(204)-JVS(1631)*X(220)-JVS(1632)*X(235)\nIF (DO_SLV(238)) &\n  X(238) = X(238)-JVS(1650)*X(199)-JVS(1651)*X(209)\nIF (DO_SLV(239)) &\n  X(239) = X(239)-JVS(1661)*X(64)-JVS(1662)*X(65)-JVS(1663)*X(166)-JVS(1664)*X(179)\nIF (DO_SLV(240)) &\n  X(240) = X(240)-JVS(1682)*X(122)-JVS(1683)*X(146)-JVS(1684)*X(200)\nIF (DO_SLV(242)) &\n  X(242) = X(242)-JVS(1699)*X(193)\nIF (DO_SLV(243)) &\n  X(243) = X(243)-JVS(1711)*X(128)-JVS(1712)*X(192)-JVS(1713)*X(199)-JVS(1714)*X(209)\nIF (DO_SLV(244)) &\n  X(244) = X(244)-JVS(1723)*X(199)-JVS(1724)*X(224)-JVS(1725)*X(226)\nIF (DO_SLV(245)) &\n  X(245) = X(245)-JVS(1739)*X(110)\nIF (DO_SLV(246)) &\n  X(246) = X(246)-JVS(1753)*X(113)\nIF (DO_SLV(247)) &\n  X(247) = X(247)-JVS(1760)*X(125)-JVS(1761)*X(180)-JVS(1762)*X(182)-JVS(1763)*X(206)-JVS(1764)*X(216)-JVS(1765)*X(226)\nIF (DO_SLV(248)) &\n  X(248) = X(248)-JVS(1782)*X(172)-JVS(1783)*X(205)-JVS(1784)*X(231)\nIF (DO_SLV(250)) &\n  X(250) = X(250)-JVS(1804)*X(125)\nIF (DO_SLV(253)) &\n  X(253) = X(253)-JVS(1827)*X(172)-JVS(1828)*X(231)\nIF (DO_SLV(254)) &\n  X(254) = X(254)-JVS(1838)*X(171)-JVS(1839)*X(230)\nIF (DO_SLV(255)) &\n  X(255) = X(255)-JVS(1849)*X(167)\nIF (DO_SLV(256)) &\n  X(256) = X(256)-JVS(1859)*X(162)-JVS(1860)*X(176)-JVS(1861)*X(177)-JVS(1862)*X(211)-JVS(1863)*X(237)-JVS(1864)*X(255)\nIF (DO_SLV(257)) &\n  X(257) = X(257)-JVS(1881)*X(56)-JVS(1882)*X(74)-JVS(1883)*X(111)-JVS(1884)*X(225)\nIF (DO_SLV(258)) &\n  X(258) = X(258)-JVS(1895)*X(174)-JVS(1896)*X(223)-JVS(1897)*X(224)-JVS(1898)*X(232)-JVS(1899)*X(243)\nIF (DO_SLV(259)) &\n  X(259) = X(259)-JVS(1910)*X(159)-JVS(1911)*X(184)\nIF (DO_SLV(260)) &\n  X(260) = X(260)-JVS(1920)*X(123)\nIF (DO_SLV(261)) &\n  X(261) = X(261)-JVS(1930)*X(180)-JVS(1931)*X(182)-JVS(1932)*X(207)-JVS(1933)*X(226)\nIF (DO_SLV(262)) &\n  X(262) = X(262)-JVS(1947)*X(193)-JVS(1948)*X(219)-JVS(1949)*X(229)\nIF (DO_SLV(263)) &\n  X(263) = X(263)-JVS(1959)*X(82)-JVS(1960)*X(101)-JVS(1961)*X(137)-JVS(1962)*X(138)-JVS(1963)*X(143)-JVS(1964)*X(149)&\n             &-JVS(1965)*X(158)-JVS(1966)*X(160)-JVS(1967)*X(167)-JVS(1968)*X(176)-JVS(1969)*X(193)-JVS(1970)*X(195)&\n             &-JVS(1971)*X(200)-JVS(1972)*X(202)-JVS(1973)*X(211)-JVS(1974)*X(219)-JVS(1975)*X(220)-JVS(1976)*X(229)&\n             &-JVS(1977)*X(237)-JVS(1978)*X(255)-JVS(1979)*X(262)\nIF (DO_SLV(264)) &\n  X(264) = X(264)-JVS(1993)*X(241)\nIF (DO_SLV(265)) &\n  X(265) = X(265)-JVS(2009)*X(60)-JVS(2010)*X(88)-JVS(2011)*X(107)-JVS(2012)*X(159)-JVS(2013)*X(184)-JVS(2014)*X(194)&\n             &-JVS(2015)*X(201)-JVS(2016)*X(221)-JVS(2017)*X(230)-JVS(2018)*X(231)-JVS(2019)*X(259)\nIF (DO_SLV(266)) &\n  X(266) = X(266)-JVS(2041)*X(190)-JVS(2042)*X(205)-JVS(2043)*X(206)-JVS(2044)*X(207)-JVS(2045)*X(226)-JVS(2046)*X(243)\nIF (DO_SLV(269)) &\n  X(269) = X(269)-JVS(2073)*X(158)-JVS(2074)*X(195)-JVS(2075)*X(200)-JVS(2076)*X(202)-JVS(2077)*X(203)-JVS(2078)*X(220)&\n             &-JVS(2079)*X(235)-JVS(2080)*X(236)\nIF (DO_SLV(270)) &\n  X(270) = X(270)-JVS(2089)*X(60)-JVS(2090)*X(82)-JVS(2091)*X(101)-JVS(2092)*X(143)-JVS(2093)*X(185)-JVS(2094)*X(194)&\n             &-JVS(2095)*X(195)-JVS(2096)*X(198)-JVS(2097)*X(200)-JVS(2098)*X(210)-JVS(2099)*X(220)-JVS(2100)*X(221)&\n             &-JVS(2101)*X(223)-JVS(2102)*X(224)-JVS(2103)*X(226)-JVS(2104)*X(227)-JVS(2105)*X(230)-JVS(2106)*X(231)&\n             &-JVS(2107)*X(232)-JVS(2108)*X(233)-JVS(2109)*X(258)-JVS(2110)*X(267)-JVS(2111)*X(268)-JVS(2112)*X(269)\nIF (DO_SLV(271)) &\n  X(271) = X(271)-JVS(2134)*X(222)\nIF (DO_SLV(272)) &\n  X(272) = X(272)-JVS(2142)*X(211)-JVS(2143)*X(237)\nIF (DO_SLV(273)) &\n  X(273) = X(273)-JVS(2153)*X(129)-JVS(2154)*X(138)-JVS(2155)*X(161)-JVS(2156)*X(191)\nIF (DO_SLV(274)) &\n  X(274) = X(274)-JVS(2166)*X(57)-JVS(2167)*X(161)-JVS(2168)*X(162)-JVS(2169)*X(163)-JVS(2170)*X(167)-JVS(2171)*X(169)&\n             &-JVS(2172)*X(177)-JVS(2173)*X(211)-JVS(2174)*X(237)-JVS(2175)*X(255)-JVS(2176)*X(272)-JVS(2177)*X(273)\nIF (DO_SLV(275)) &\n  X(275) = X(275)-JVS(2189)*X(112)-JVS(2190)*X(191)-JVS(2191)*X(219)\nIF (DO_SLV(277)) &\n  X(277) = X(277)-JVS(2205)*X(111)-JVS(2206)*X(191)-JVS(2207)*X(219)\nIF (DO_SLV(278)) &\n  X(278) = X(278)-JVS(2216)*X(66)-JVS(2217)*X(74)-JVS(2218)*X(160)-JVS(2219)*X(225)-JVS(2220)*X(257)-JVS(2221)*X(277)\nIF (DO_SLV(279)) &\n  X(279) = X(279)-JVS(2231)*X(249)\nIF (DO_SLV(280)) &\n  X(280) = X(280)-JVS(2240)*X(167)-JVS(2241)*X(191)-JVS(2242)*X(193)-JVS(2243)*X(219)-JVS(2244)*X(229)-JVS(2245)*X(262)\nIF (DO_SLV(281)) &\n  X(281) = X(281)-JVS(2256)*X(167)-JVS(2257)*X(191)-JVS(2258)*X(219)\nIF (DO_SLV(282)) &\n  X(282) = X(282)-JVS(2267)*X(234)-JVS(2268)*X(246)-JVS(2269)*X(249)-JVS(2270)*X(250)-JVS(2271)*X(260)-JVS(2272)*X(272)&\n             &-JVS(2273)*X(273)-JVS(2274)*X(275)-JVS(2275)*X(277)-JVS(2276)*X(278)-JVS(2277)*X(279)-JVS(2278)*X(281)\nIF (DO_SLV(283)) &\n  X(283) = X(283)-JVS(2305)*X(201)-JVS(2306)*X(241)-JVS(2307)*X(249)-JVS(2308)*X(250)-JVS(2309)*X(260)-JVS(2310)*X(275)&\n             &-JVS(2311)*X(277)-JVS(2312)*X(279)-JVS(2313)*X(281)\nIF (DO_SLV(284)) &\n  X(284) = X(284)-JVS(2340)*X(44)-JVS(2341)*X(55)-JVS(2342)*X(96)\nIF (DO_SLV(285)) &\n  X(285) = X(285)-JVS(2354)*X(147)-JVS(2355)*X(151)-JVS(2356)*X(152)-JVS(2357)*X(168)-JVS(2358)*X(175)-JVS(2359)*X(187)&\n             &-JVS(2360)*X(192)-JVS(2361)*X(238)-JVS(2362)*X(267)-JVS(2363)*X(268)\nIF (DO_SLV(286)) &\n  X(286) = X(286)-JVS(2374)*X(147)-JVS(2375)*X(151)-JVS(2376)*X(152)-JVS(2377)*X(168)-JVS(2378)*X(175)-JVS(2379)*X(187)&\n             &-JVS(2380)*X(192)-JVS(2381)*X(238)-JVS(2382)*X(267)-JVS(2383)*X(268)-JVS(2384)*X(285)\nIF (DO_SLV(287)) &\n  X(287) = X(287)-JVS(2394)*X(144)-JVS(2395)*X(192)-JVS(2396)*X(198)-JVS(2397)*X(199)-JVS(2398)*X(223)-JVS(2399)*X(224)&\n             &-JVS(2400)*X(231)-JVS(2401)*X(232)-JVS(2402)*X(238)-JVS(2403)*X(253)-JVS(2404)*X(258)-JVS(2405)*X(266)&\n             &-JVS(2406)*X(267)-JVS(2407)*X(268)-JVS(2408)*X(271)-JVS(2409)*X(276)-JVS(2410)*X(285)-JVS(2411)*X(286)\nIF (DO_SLV(288)) &\n  X(288) = X(288)-JVS(2428)*X(150)-JVS(2429)*X(187)-JVS(2430)*X(198)-JVS(2431)*X(209)-JVS(2432)*X(223)-JVS(2433)*X(224)&\n             &-JVS(2434)*X(230)-JVS(2435)*X(232)-JVS(2436)*X(238)-JVS(2437)*X(254)-JVS(2438)*X(266)-JVS(2439)*X(267)&\n             &-JVS(2440)*X(268)-JVS(2441)*X(271)-JVS(2442)*X(276)-JVS(2443)*X(285)-JVS(2444)*X(286)\nIF (DO_SLV(289)) &\n  X(289) = X(289)-JVS(2461)*X(167)-JVS(2462)*X(191)-JVS(2463)*X(219)-JVS(2464)*X(280)\nIF (DO_SLV(291)) &\n  X(291) = X(291)-JVS(2481)*X(219)\nIF (DO_SLV(292)) &\n  X(292) = X(292)-JVS(2490)*X(160)-JVS(2491)*X(176)-JVS(2492)*X(178)-JVS(2493)*X(219)-JVS(2494)*X(251)-JVS(2495)*X(256)&\n             &-JVS(2496)*X(262)-JVS(2497)*X(272)-JVS(2498)*X(273)-JVS(2499)*X(275)-JVS(2500)*X(277)-JVS(2501)*X(278)&\n             &-JVS(2502)*X(279)-JVS(2503)*X(280)-JVS(2504)*X(281)-JVS(2505)*X(289)-JVS(2506)*X(291)\nIF (DO_SLV(293)) &\n  X(293) = X(293)-JVS(2520)*X(145)-JVS(2521)*X(186)-JVS(2522)*X(222)\nIF (DO_SLV(294)) &\n  X(294) = X(294)-JVS(2534)*X(82)-JVS(2535)*X(101)-JVS(2536)*X(107)-JVS(2537)*X(159)-JVS(2538)*X(184)-JVS(2539)*X(185)&\n             &-JVS(2540)*X(194)-JVS(2541)*X(198)-JVS(2542)*X(199)-JVS(2543)*X(200)-JVS(2544)*X(201)-JVS(2545)*X(209)&\n             &-JVS(2546)*X(215)-JVS(2547)*X(223)-JVS(2548)*X(224)-JVS(2549)*X(227)-JVS(2550)*X(230)-JVS(2551)*X(231)&\n             &-JVS(2552)*X(232)-JVS(2553)*X(238)-JVS(2554)*X(244)-JVS(2555)*X(247)-JVS(2556)*X(250)-JVS(2557)*X(253)&\n             &-JVS(2558)*X(254)-JVS(2559)*X(258)-JVS(2560)*X(259)-JVS(2561)*X(266)-JVS(2562)*X(267)-JVS(2563)*X(268)&\n             &-JVS(2564)*X(271)-JVS(2565)*X(276)-JVS(2566)*X(285)-JVS(2567)*X(286)-JVS(2568)*X(287)-JVS(2569)*X(288)&\n             &-JVS(2570)*X(290)-JVS(2571)*X(293)\nIF (DO_SLV(295)) &\n  X(295) = X(295)-JVS(2597)*X(91)-JVS(2598)*X(100)-JVS(2599)*X(160)-JVS(2600)*X(161)-JVS(2601)*X(162)-JVS(2602)*X(176)&\n             &-JVS(2603)*X(219)-JVS(2604)*X(229)-JVS(2605)*X(251)-JVS(2606)*X(262)-JVS(2607)*X(273)-JVS(2608)*X(275)&\n             &-JVS(2609)*X(277)-JVS(2610)*X(278)-JVS(2611)*X(279)-JVS(2612)*X(291)\nIF (DO_SLV(296)) &\n  X(296) = X(296)-JVS(2629)*X(173)-JVS(2630)*X(183)-JVS(2631)*X(200)-JVS(2632)*X(201)-JVS(2633)*X(221)-JVS(2634)*X(240)&\n             &-JVS(2635)*X(246)-JVS(2636)*X(269)-JVS(2637)*X(289)-JVS(2638)*X(291)\nIF (DO_SLV(297)) &\n  X(297) = X(297)-JVS(2652)*X(214)\nIF (DO_SLV(298)) &\n  X(298) = X(298)-JVS(2664)*X(95)-JVS(2665)*X(97)-JVS(2666)*X(98)-JVS(2667)*X(99)-JVS(2668)*X(102)-JVS(2669)*X(125)&\n             &-JVS(2670)*X(130)-JVS(2671)*X(161)-JVS(2672)*X(162)-JVS(2673)*X(165)-JVS(2674)*X(169)-JVS(2675)*X(178)&\n             &-JVS(2676)*X(188)-JVS(2677)*X(196)-JVS(2678)*X(201)-JVS(2679)*X(212)-JVS(2680)*X(219)-JVS(2681)*X(221)&\n             &-JVS(2682)*X(229)-JVS(2683)*X(242)-JVS(2684)*X(249)-JVS(2685)*X(250)-JVS(2686)*X(251)-JVS(2687)*X(260)&\n             &-JVS(2688)*X(269)-JVS(2689)*X(272)-JVS(2690)*X(273)-JVS(2691)*X(274)-JVS(2692)*X(275)-JVS(2693)*X(279)&\n             &-JVS(2694)*X(280)-JVS(2695)*X(281)-JVS(2696)*X(289)-JVS(2697)*X(290)-JVS(2698)*X(291)\nIF (DO_SLV(299)) &\n  X(299) = X(299)-JVS(2717)*X(180)-JVS(2718)*X(190)-JVS(2719)*X(205)-JVS(2720)*X(206)-JVS(2721)*X(207)-JVS(2722)*X(226)&\n             &-JVS(2723)*X(267)-JVS(2724)*X(268)-JVS(2725)*X(271)-JVS(2726)*X(293)\nIF (DO_SLV(300)) &\n  X(300) = X(300)-JVS(2739)*X(102)-JVS(2740)*X(142)-JVS(2741)*X(201)\nIF (DO_SLV(301)) &\n  X(301) = X(301)-JVS(2751)*X(145)-JVS(2752)*X(186)-JVS(2753)*X(267)-JVS(2754)*X(268)-JVS(2755)*X(299)\nIF (DO_SLV(302)) &\n  X(302) = X(302)-JVS(2768)*X(171)-JVS(2769)*X(190)-JVS(2770)*X(207)-JVS(2771)*X(226)-JVS(2772)*X(230)-JVS(2773)*X(254)&\n             &-JVS(2774)*X(267)-JVS(2775)*X(271)-JVS(2776)*X(276)-JVS(2777)*X(293)-JVS(2778)*X(299)-JVS(2779)*X(301)\nIF (DO_SLV(303)) &\n  X(303) = X(303)-JVS(2796)*X(186)-JVS(2797)*X(190)-JVS(2798)*X(205)-JVS(2799)*X(206)-JVS(2800)*X(207)-JVS(2801)*X(222)&\n             &-JVS(2802)*X(223)-JVS(2803)*X(224)-JVS(2804)*X(226)-JVS(2805)*X(232)-JVS(2806)*X(267)-JVS(2807)*X(268)&\n             &-JVS(2808)*X(271)-JVS(2809)*X(293)-JVS(2810)*X(299)\nIF (DO_SLV(304)) &\n  X(304) = X(304)-JVS(2822)*X(186)-JVS(2823)*X(192)-JVS(2824)*X(199)-JVS(2825)*X(276)\nIF (DO_SLV(305)) &\n  X(305) = X(305)-JVS(2836)*X(186)-JVS(2837)*X(187)-JVS(2838)*X(209)-JVS(2839)*X(276)-JVS(2840)*X(304)\nIF (DO_SLV(306)) &\n  X(306) = X(306)-JVS(2850)*X(70)-JVS(2851)*X(106)-JVS(2852)*X(113)-JVS(2853)*X(126)-JVS(2854)*X(127)-JVS(2855)*X(132)&\n             &-JVS(2856)*X(136)-JVS(2857)*X(174)-JVS(2858)*X(180)-JVS(2859)*X(197)-JVS(2860)*X(198)-JVS(2861)*X(201)&\n             &-JVS(2862)*X(202)-JVS(2863)*X(205)-JVS(2864)*X(206)-JVS(2865)*X(212)-JVS(2866)*X(220)-JVS(2867)*X(221)&\n             &-JVS(2868)*X(223)-JVS(2869)*X(224)-JVS(2870)*X(232)-JVS(2871)*X(233)-JVS(2872)*X(234)-JVS(2873)*X(246)&\n             &-JVS(2874)*X(254)-JVS(2875)*X(258)-JVS(2876)*X(262)-JVS(2877)*X(266)-JVS(2878)*X(267)-JVS(2879)*X(268)&\n             &-JVS(2880)*X(269)-JVS(2881)*X(271)-JVS(2882)*X(276)-JVS(2883)*X(285)-JVS(2884)*X(286)-JVS(2885)*X(288)&\n             &-JVS(2886)*X(291)-JVS(2887)*X(293)-JVS(2888)*X(299)-JVS(2889)*X(301)-JVS(2890)*X(302)-JVS(2891)*X(303)&\n             &-JVS(2892)*X(304)-JVS(2893)*X(305)\nIF (DO_SLV(307)) &\n  X(307) = X(307)-JVS(2908)*X(123)-JVS(2909)*X(153)-JVS(2910)*X(154)-JVS(2911)*X(159)-JVS(2912)*X(174)-JVS(2913)*X(184)&\n             &-JVS(2914)*X(198)-JVS(2915)*X(205)-JVS(2916)*X(207)-JVS(2917)*X(215)-JVS(2918)*X(223)-JVS(2919)*X(224)&\n             &-JVS(2920)*X(230)-JVS(2921)*X(231)-JVS(2922)*X(232)-JVS(2923)*X(242)-JVS(2924)*X(243)-JVS(2925)*X(248)&\n             &-JVS(2926)*X(253)-JVS(2927)*X(256)-JVS(2928)*X(258)-JVS(2929)*X(259)-JVS(2930)*X(260)-JVS(2931)*X(267)&\n             &-JVS(2932)*X(268)-JVS(2933)*X(271)-JVS(2934)*X(272)-JVS(2935)*X(273)-JVS(2936)*X(275)-JVS(2937)*X(276)&\n             &-JVS(2938)*X(277)-JVS(2939)*X(278)-JVS(2940)*X(280)-JVS(2941)*X(281)-JVS(2942)*X(285)-JVS(2943)*X(286)&\n             &-JVS(2944)*X(287)-JVS(2945)*X(289)-JVS(2946)*X(290)-JVS(2947)*X(291)-JVS(2948)*X(293)-JVS(2949)*X(299)&\n             &-JVS(2950)*X(301)-JVS(2951)*X(303)-JVS(2952)*X(304)-JVS(2953)*X(305)\nIF (DO_SLV(308)) &\n  X(308) = X(308)-JVS(2971)*X(248)-JVS(2972)*X(253)-JVS(2973)*X(276)-JVS(2974)*X(301)-JVS(2975)*X(303)-JVS(2976)*X(304)&\n             &-JVS(2977)*X(305)\nIF (DO_SLV(309)) &\n  X(309) = X(309)-JVS(2991)*X(135)-JVS(2992)*X(144)-JVS(2993)*X(168)-JVS(2994)*X(192)-JVS(2995)*X(199)-JVS(2996)*X(222)&\n             &-JVS(2997)*X(231)-JVS(2998)*X(276)-JVS(2999)*X(299)-JVS(3000)*X(303)-JVS(3001)*X(304)-JVS(3002)*X(305)\nIF (DO_SLV(310)) &\n  X(310) = X(310)-JVS(3014)*X(222)-JVS(3015)*X(276)\nIF (DO_SLV(311)) &\n  X(311) = X(311)-JVS(3026)*X(186)-JVS(3027)*X(276)-JVS(3028)*X(310)\nIF (DO_SLV(312)) &\n  X(312) = X(312)-JVS(3038)*X(109)-JVS(3039)*X(191)-JVS(3040)*X(220)-JVS(3041)*X(233)-JVS(3042)*X(255)-JVS(3043)*X(276)&\n             &-JVS(3044)*X(281)-JVS(3045)*X(290)-JVS(3046)*X(309)-JVS(3047)*X(310)-JVS(3048)*X(311)\nIF (DO_SLV(313)) &\n  X(313) = X(313)-JVS(3064)*X(244)-JVS(3065)*X(271)-JVS(3066)*X(276)-JVS(3067)*X(287)-JVS(3068)*X(295)-JVS(3069)*X(300)&\n             &-JVS(3070)*X(301)-JVS(3071)*X(303)-JVS(3072)*X(304)-JVS(3073)*X(305)-JVS(3074)*X(309)-JVS(3075)*X(310)&\n             &-JVS(3076)*X(311)\nIF (DO_SLV(314)) &\n  X(314) = X(314)-JVS(3092)*X(82)-JVS(3093)*X(101)-JVS(3094)*X(133)-JVS(3095)*X(150)-JVS(3096)*X(175)-JVS(3097)*X(187)&\n             &-JVS(3098)*X(209)-JVS(3099)*X(219)-JVS(3100)*X(222)-JVS(3101)*X(229)-JVS(3102)*X(230)-JVS(3103)*X(262)&\n             &-JVS(3104)*X(276)-JVS(3105)*X(291)-JVS(3106)*X(299)-JVS(3107)*X(303)-JVS(3108)*X(304)-JVS(3109)*X(305)&\n             &-JVS(3110)*X(310)-JVS(3111)*X(311)\nIF (DO_SLV(315)) &\n  X(315) = X(315)-JVS(3121)*X(118)-JVS(3122)*X(251)-JVS(3123)*X(279)-JVS(3124)*X(292)-JVS(3125)*X(296)-JVS(3126)*X(298)&\n             &-JVS(3127)*X(300)-JVS(3128)*X(314)\nIF (DO_SLV(316)) &\n  X(316) = X(316)-JVS(3146)*X(148)-JVS(3147)*X(218)\nIF (DO_SLV(318)) &\n  X(318) = X(318)-JVS(3177)*X(251)-JVS(3178)*X(269)\nIF (DO_SLV(319)) &\n  X(319) = X(319)-JVS(3190)*X(97)-JVS(3191)*X(130)-JVS(3192)*X(142)-JVS(3193)*X(161)-JVS(3194)*X(162)-JVS(3195)*X(169)&\n             &-JVS(3196)*X(178)-JVS(3197)*X(249)-JVS(3198)*X(272)-JVS(3199)*X(273)-JVS(3200)*X(274)-JVS(3201)*X(275)&\n             &-JVS(3202)*X(279)-JVS(3203)*X(281)-JVS(3204)*X(300)-JVS(3205)*X(318)\nIF (DO_SLV(320)) &\n  X(320) = X(320)-JVS(3217)*X(219)-JVS(3218)*X(292)-JVS(3219)*X(300)-JVS(3220)*X(318)-JVS(3221)*X(319)\nIF (DO_SLV(321)) &\n  X(321) = X(321)-JVS(3232)*X(99)-JVS(3233)*X(141)-JVS(3234)*X(251)-JVS(3235)*X(279)-JVS(3236)*X(292)-JVS(3237)*X(298)&\n             &-JVS(3238)*X(300)-JVS(3239)*X(314)-JVS(3240)*X(318)-JVS(3241)*X(319)-JVS(3242)*X(320)\nIF (DO_SLV(322)) &\n  X(322) = X(322)-JVS(3256)*X(124)-JVS(3257)*X(155)-JVS(3258)*X(160)-JVS(3259)*X(176)-JVS(3260)*X(196)-JVS(3261)*X(201)&\n             &-JVS(3262)*X(221)-JVS(3263)*X(240)-JVS(3264)*X(246)-JVS(3265)*X(269)-JVS(3266)*X(277)-JVS(3267)*X(278)&\n             &-JVS(3268)*X(292)-JVS(3269)*X(298)-JVS(3270)*X(300)-JVS(3271)*X(314)-JVS(3272)*X(318)-JVS(3273)*X(319)&\n             &-JVS(3274)*X(320)-JVS(3275)*X(321)\nIF (DO_SLV(323)) &\n  X(323) = X(323)-JVS(3288)*X(100)-JVS(3289)*X(141)-JVS(3290)*X(251)-JVS(3291)*X(279)-JVS(3292)*X(292)-JVS(3293)*X(298)&\n             &-JVS(3294)*X(300)-JVS(3295)*X(314)-JVS(3296)*X(318)-JVS(3297)*X(319)-JVS(3298)*X(320)-JVS(3299)*X(321)&\n             &-JVS(3300)*X(322)\nIF (DO_SLV(324)) &\n  X(324) = X(324)-JVS(3312)*X(92)-JVS(3313)*X(107)-JVS(3314)*X(115)-JVS(3315)*X(122)-JVS(3316)*X(130)-JVS(3317)*X(139)&\n             &-JVS(3318)*X(146)-JVS(3319)*X(159)-JVS(3320)*X(169)-JVS(3321)*X(184)-JVS(3322)*X(185)-JVS(3323)*X(194)&\n             &-JVS(3324)*X(196)-JVS(3325)*X(200)-JVS(3326)*X(208)-JVS(3327)*X(209)-JVS(3328)*X(227)-JVS(3329)*X(230)&\n             &-JVS(3330)*X(231)-JVS(3331)*X(240)-JVS(3332)*X(243)-JVS(3333)*X(244)-JVS(3334)*X(247)-JVS(3335)*X(249)&\n             &-JVS(3336)*X(250)-JVS(3337)*X(254)-JVS(3338)*X(257)-JVS(3339)*X(258)-JVS(3340)*X(259)-JVS(3341)*X(260)&\n             &-JVS(3342)*X(261)-JVS(3343)*X(263)-JVS(3344)*X(267)-JVS(3345)*X(268)-JVS(3346)*X(271)-JVS(3347)*X(272)&\n             &-JVS(3348)*X(274)-JVS(3349)*X(275)-JVS(3350)*X(276)-JVS(3351)*X(277)-JVS(3352)*X(278)-JVS(3353)*X(279)&\n             &-JVS(3354)*X(280)-JVS(3355)*X(281)-JVS(3356)*X(285)-JVS(3357)*X(286)-JVS(3358)*X(287)-JVS(3359)*X(288)&\n             &-JVS(3360)*X(289)-JVS(3361)*X(290)-JVS(3362)*X(291)-JVS(3363)*X(292)-JVS(3364)*X(293)-JVS(3365)*X(294)&\n             &-JVS(3366)*X(295)-JVS(3367)*X(296)-JVS(3368)*X(299)-JVS(3369)*X(300)-JVS(3370)*X(301)-JVS(3371)*X(302)&\n             &-JVS(3372)*X(303)-JVS(3373)*X(304)-JVS(3374)*X(305)-JVS(3375)*X(307)-JVS(3376)*X(308)-JVS(3377)*X(309)&\n             &-JVS(3378)*X(310)-JVS(3379)*X(311)-JVS(3380)*X(313)-JVS(3381)*X(314)-JVS(3382)*X(315)-JVS(3383)*X(318)&\n             &-JVS(3384)*X(319)-JVS(3385)*X(320)-JVS(3386)*X(321)-JVS(3387)*X(322)-JVS(3388)*X(323)\nIF (DO_SLV(325)) &\n  X(325) = X(325)-JVS(3400)*X(72)-JVS(3401)*X(80)-JVS(3402)*X(88)-JVS(3403)*X(89)-JVS(3404)*X(92)-JVS(3405)*X(93)&\n             &-JVS(3406)*X(94)-JVS(3407)*X(106)-JVS(3408)*X(109)-JVS(3409)*X(112)-JVS(3410)*X(114)-JVS(3411)*X(122)&\n             &-JVS(3412)*X(123)-JVS(3413)*X(127)-JVS(3414)*X(130)-JVS(3415)*X(136)-JVS(3416)*X(137)-JVS(3417)*X(138)&\n             &-JVS(3418)*X(139)-JVS(3419)*X(140)-JVS(3420)*X(146)-JVS(3421)*X(149)-JVS(3422)*X(159)-JVS(3423)*X(160)&\n             &-JVS(3424)*X(164)-JVS(3425)*X(165)-JVS(3426)*X(168)-JVS(3427)*X(169)-JVS(3428)*X(175)-JVS(3429)*X(176)&\n             &-JVS(3430)*X(187)-JVS(3431)*X(190)-JVS(3432)*X(191)-JVS(3433)*X(192)-JVS(3434)*X(196)-JVS(3435)*X(197)&\n             &-JVS(3436)*X(199)-JVS(3437)*X(200)-JVS(3438)*X(205)-JVS(3439)*X(206)-JVS(3440)*X(207)-JVS(3441)*X(208)&\n             &-JVS(3442)*X(209)-JVS(3443)*X(210)-JVS(3444)*X(211)-JVS(3445)*X(212)-JVS(3446)*X(213)-JVS(3447)*X(215)&\n             &-JVS(3448)*X(219)-JVS(3449)*X(220)-JVS(3450)*X(222)-JVS(3451)*X(223)-JVS(3452)*X(224)-JVS(3453)*X(226)&\n             &-JVS(3454)*X(228)-JVS(3455)*X(229)-JVS(3456)*X(230)-JVS(3457)*X(231)-JVS(3458)*X(233)-JVS(3459)*X(234)&\n             &-JVS(3460)*X(235)-JVS(3461)*X(236)-JVS(3462)*X(240)-JVS(3463)*X(243)-JVS(3464)*X(244)-JVS(3465)*X(246)&\n             &-JVS(3466)*X(247)-JVS(3467)*X(249)-JVS(3468)*X(250)-JVS(3469)*X(253)-JVS(3470)*X(254)-JVS(3471)*X(255)&\n             &-JVS(3472)*X(257)-JVS(3473)*X(258)-JVS(3474)*X(259)-JVS(3475)*X(260)-JVS(3476)*X(261)-JVS(3477)*X(262)&\n             &-JVS(3478)*X(263)-JVS(3479)*X(267)-JVS(3480)*X(268)-JVS(3481)*X(270)-JVS(3482)*X(271)-JVS(3483)*X(272)&\n             &-JVS(3484)*X(273)-JVS(3485)*X(274)-JVS(3486)*X(275)-JVS(3487)*X(276)-JVS(3488)*X(277)-JVS(3489)*X(278)&\n             &-JVS(3490)*X(279)-JVS(3491)*X(280)-JVS(3492)*X(281)-JVS(3493)*X(282)-JVS(3494)*X(285)-JVS(3495)*X(286)&\n             &-JVS(3496)*X(287)-JVS(3497)*X(288)-JVS(3498)*X(289)-JVS(3499)*X(290)-JVS(3500)*X(291)-JVS(3501)*X(293)&\n             &-JVS(3502)*X(296)-JVS(3503)*X(299)-JVS(3504)*X(300)-JVS(3505)*X(301)-JVS(3506)*X(302)-JVS(3507)*X(303)&\n             &-JVS(3508)*X(304)-JVS(3509)*X(305)-JVS(3510)*X(306)-JVS(3511)*X(307)-JVS(3512)*X(308)-JVS(3513)*X(309)&\n             &-JVS(3514)*X(310)-JVS(3515)*X(311)-JVS(3516)*X(312)-JVS(3517)*X(313)-JVS(3518)*X(314)-JVS(3519)*X(315)&\n             &-JVS(3520)*X(318)-JVS(3521)*X(319)-JVS(3522)*X(320)-JVS(3523)*X(321)-JVS(3524)*X(322)-JVS(3525)*X(323)&\n             &-JVS(3526)*X(324)\nIF (DO_SLV(326)) &\n  X(326) = X(326)-JVS(3544)*X(83)-JVS(3545)*X(118)-JVS(3546)*X(123)-JVS(3547)*X(124)-JVS(3548)*X(149)-JVS(3549)*X(155)&\n             &-JVS(3550)*X(156)-JVS(3551)*X(165)-JVS(3552)*X(196)-JVS(3553)*X(240)-JVS(3554)*X(241)-JVS(3555)*X(246)&\n             &-JVS(3556)*X(249)-JVS(3557)*X(250)-JVS(3558)*X(251)-JVS(3559)*X(260)-JVS(3560)*X(279)-JVS(3561)*X(290)&\n             &-JVS(3562)*X(296)-JVS(3563)*X(300)-JVS(3564)*X(314)-JVS(3565)*X(315)-JVS(3566)*X(318)-JVS(3567)*X(319)&\n             &-JVS(3568)*X(320)-JVS(3569)*X(321)-JVS(3570)*X(322)-JVS(3571)*X(323)-JVS(3572)*X(324)\nIF (DO_SLV(327)) &\n  X(327) = X(327)-JVS(3586)*X(45)-JVS(3587)*X(69)-JVS(3588)*X(94)-JVS(3589)*X(103)-JVS(3590)*X(142)-JVS(3591)*X(149)&\n             &-JVS(3592)*X(154)-JVS(3593)*X(158)-JVS(3594)*X(166)-JVS(3595)*X(168)-JVS(3596)*X(175)-JVS(3597)*X(179)&\n             &-JVS(3598)*X(183)-JVS(3599)*X(186)-JVS(3600)*X(195)-JVS(3601)*X(200)-JVS(3602)*X(202)-JVS(3603)*X(204)&\n             &-JVS(3604)*X(214)-JVS(3605)*X(216)-JVS(3606)*X(218)-JVS(3607)*X(220)-JVS(3608)*X(222)-JVS(3609)*X(225)&\n             &-JVS(3610)*X(226)-JVS(3611)*X(242)-JVS(3612)*X(248)-JVS(3613)*X(251)-JVS(3614)*X(253)-JVS(3615)*X(256)&\n             &-JVS(3616)*X(261)-JVS(3617)*X(266)-JVS(3618)*X(267)-JVS(3619)*X(268)-JVS(3620)*X(269)-JVS(3621)*X(270)&\n             &-JVS(3622)*X(271)-JVS(3623)*X(272)-JVS(3624)*X(273)-JVS(3625)*X(275)-JVS(3626)*X(276)-JVS(3627)*X(277)&\n             &-JVS(3628)*X(278)-JVS(3629)*X(280)-JVS(3630)*X(281)-JVS(3631)*X(285)-JVS(3632)*X(286)-JVS(3633)*X(288)&\n             &-JVS(3634)*X(289)-JVS(3635)*X(291)-JVS(3636)*X(292)-JVS(3637)*X(293)-JVS(3638)*X(294)-JVS(3639)*X(298)&\n             &-JVS(3640)*X(299)-JVS(3641)*X(300)-JVS(3642)*X(301)-JVS(3643)*X(302)-JVS(3644)*X(303)-JVS(3645)*X(304)&\n             &-JVS(3646)*X(305)-JVS(3647)*X(306)-JVS(3648)*X(307)-JVS(3649)*X(308)-JVS(3650)*X(309)-JVS(3651)*X(310)&\n             &-JVS(3652)*X(311)-JVS(3653)*X(313)-JVS(3654)*X(314)-JVS(3655)*X(317)-JVS(3656)*X(318)-JVS(3657)*X(319)&\n             &-JVS(3658)*X(320)-JVS(3659)*X(321)-JVS(3660)*X(322)-JVS(3661)*X(323)-JVS(3662)*X(324)-JVS(3663)*X(325)&\n             &-JVS(3664)*X(326)\nIF (DO_SLV(328)) &\n  X(328) = X(328)-JVS(3689)*X(52)-JVS(3690)*X(80)-JVS(3691)*X(92)-JVS(3692)*X(94)-JVS(3693)*X(105)-JVS(3694)*X(139)&\n             &-JVS(3695)*X(155)-JVS(3696)*X(159)-JVS(3697)*X(164)-JVS(3698)*X(181)-JVS(3699)*X(228)-JVS(3700)*X(234)&\n             &-JVS(3701)*X(235)-JVS(3702)*X(236)-JVS(3703)*X(240)-JVS(3704)*X(246)-JVS(3705)*X(249)-JVS(3706)*X(250)&\n             &-JVS(3707)*X(251)-JVS(3708)*X(257)-JVS(3709)*X(259)-JVS(3710)*X(260)-JVS(3711)*X(263)-JVS(3712)*X(272)&\n             &-JVS(3713)*X(273)-JVS(3714)*X(274)-JVS(3715)*X(275)-JVS(3716)*X(276)-JVS(3717)*X(277)-JVS(3718)*X(278)&\n             &-JVS(3719)*X(279)-JVS(3720)*X(280)-JVS(3721)*X(281)-JVS(3722)*X(283)-JVS(3723)*X(289)-JVS(3724)*X(290)&\n             &-JVS(3725)*X(291)-JVS(3726)*X(292)-JVS(3727)*X(295)-JVS(3728)*X(296)-JVS(3729)*X(300)-JVS(3730)*X(304)&\n             &-JVS(3731)*X(305)-JVS(3732)*X(307)-JVS(3733)*X(308)-JVS(3734)*X(309)-JVS(3735)*X(310)-JVS(3736)*X(311)&\n             &-JVS(3737)*X(313)-JVS(3738)*X(314)-JVS(3739)*X(315)-JVS(3740)*X(318)-JVS(3741)*X(319)-JVS(3742)*X(320)&\n             &-JVS(3743)*X(321)-JVS(3744)*X(322)-JVS(3745)*X(323)-JVS(3746)*X(324)-JVS(3747)*X(326)\nIF (DO_SLV(329)) &\n  X(329) = X(329)-JVS(3762)*X(60)-JVS(3763)*X(68)-JVS(3764)*X(75)-JVS(3765)*X(79)-JVS(3766)*X(82)-JVS(3767)*X(101)&\n             &-JVS(3768)*X(107)-JVS(3769)*X(113)-JVS(3770)*X(114)-JVS(3771)*X(119)-JVS(3772)*X(122)-JVS(3773)*X(124)&\n             &-JVS(3774)*X(126)-JVS(3775)*X(127)-JVS(3776)*X(132)-JVS(3777)*X(139)-JVS(3778)*X(143)-JVS(3779)*X(144)&\n             &-JVS(3780)*X(146)-JVS(3781)*X(147)-JVS(3782)*X(150)-JVS(3783)*X(153)-JVS(3784)*X(159)-JVS(3785)*X(167)&\n             &-JVS(3786)*X(181)-JVS(3787)*X(182)-JVS(3788)*X(184)-JVS(3789)*X(185)-JVS(3790)*X(187)-JVS(3791)*X(191)&\n             &-JVS(3792)*X(192)-JVS(3793)*X(194)-JVS(3794)*X(197)-JVS(3795)*X(199)-JVS(3796)*X(200)-JVS(3797)*X(201)&\n             &-JVS(3798)*X(204)-JVS(3799)*X(208)-JVS(3800)*X(209)-JVS(3801)*X(210)-JVS(3802)*X(212)-JVS(3803)*X(213)&\n             &-JVS(3804)*X(215)-JVS(3805)*X(216)-JVS(3806)*X(220)-JVS(3807)*X(221)-JVS(3808)*X(223)-JVS(3809)*X(225)&\n             &-JVS(3810)*X(226)-JVS(3811)*X(227)-JVS(3812)*X(230)-JVS(3813)*X(231)-JVS(3814)*X(233)-JVS(3815)*X(238)&\n             &-JVS(3816)*X(240)-JVS(3817)*X(241)-JVS(3818)*X(243)-JVS(3819)*X(246)-JVS(3820)*X(248)-JVS(3821)*X(253)&\n             &-JVS(3822)*X(254)-JVS(3823)*X(255)-JVS(3824)*X(258)-JVS(3825)*X(259)-JVS(3826)*X(261)-JVS(3827)*X(266)&\n             &-JVS(3828)*X(267)-JVS(3829)*X(268)-JVS(3830)*X(269)-JVS(3831)*X(270)-JVS(3832)*X(271)-JVS(3833)*X(276)&\n             &-JVS(3834)*X(277)-JVS(3835)*X(281)-JVS(3836)*X(285)-JVS(3837)*X(286)-JVS(3838)*X(287)-JVS(3839)*X(288)&\n             &-JVS(3840)*X(290)-JVS(3841)*X(293)-JVS(3842)*X(294)-JVS(3843)*X(295)-JVS(3844)*X(298)-JVS(3845)*X(299)&\n             &-JVS(3846)*X(300)-JVS(3847)*X(301)-JVS(3848)*X(302)-JVS(3849)*X(303)-JVS(3850)*X(304)-JVS(3851)*X(305)&\n             &-JVS(3852)*X(306)-JVS(3853)*X(307)-JVS(3854)*X(308)-JVS(3855)*X(309)-JVS(3856)*X(310)-JVS(3857)*X(311)&\n             &-JVS(3858)*X(312)-JVS(3859)*X(313)-JVS(3860)*X(314)-JVS(3861)*X(318)-JVS(3862)*X(319)-JVS(3863)*X(320)&\n             &-JVS(3864)*X(321)-JVS(3865)*X(322)-JVS(3866)*X(323)-JVS(3867)*X(324)-JVS(3868)*X(325)-JVS(3869)*X(326)&\n             &-JVS(3870)*X(328)\nIF (DO_SLV(330)) &\n  X(330) = X(330)-JVS(3885)*X(170)-JVS(3886)*X(252)-JVS(3887)*X(284)\nIF (DO_SLV(331)) &\n  X(331) = X(331)-JVS(3904)*X(1)-JVS(3905)*X(2)-JVS(3906)*X(3)-JVS(3907)*X(44)-JVS(3908)*X(52)-JVS(3909)*X(62)-JVS(3910)&\n             &*X(73)-JVS(3911)*X(77)-JVS(3912)*X(96)-JVS(3913)*X(104)-JVS(3914)*X(170)-JVS(3915)*X(252)-JVS(3916)*X(284)&\n             &-JVS(3917)*X(330)\nIF (DO_SLV(332)) &\n  X(332) = X(332)-JVS(3933)*X(170)-JVS(3934)*X(252)-JVS(3935)*X(284)-JVS(3936)*X(330)-JVS(3937)*X(331)\nIF (DO_SLV(333)) &\n  X(333) = X(333)-JVS(3952)*X(76)-JVS(3953)*X(120)-JVS(3954)*X(245)-JVS(3955)*X(284)-JVS(3956)*X(297)-JVS(3957)*X(317)&\n             &-JVS(3958)*X(328)-JVS(3959)*X(329)-JVS(3960)*X(330)-JVS(3961)*X(331)-JVS(3962)*X(332)\nIF (DO_SLV(334)) &\n  X(334) = X(334)-JVS(3984)*X(46)-JVS(3985)*X(47)-JVS(3986)*X(48)-JVS(3987)*X(49)-JVS(3988)*X(50)-JVS(3989)*X(51)&\n             &-JVS(3990)*X(53)-JVS(3991)*X(54)-JVS(3992)*X(61)-JVS(3993)*X(63)-JVS(3994)*X(67)-JVS(3995)*X(78)-JVS(3996)&\n             &*X(81)-JVS(3997)*X(84)-JVS(3998)*X(85)-JVS(3999)*X(86)-JVS(4000)*X(87)-JVS(4001)*X(105)-JVS(4002)*X(181)&\n             &-JVS(4003)*X(228)-JVS(4004)*X(245)-JVS(4005)*X(290)-JVS(4006)*X(297)-JVS(4007)*X(314)-JVS(4008)*X(317)&\n             &-JVS(4009)*X(324)-JVS(4010)*X(326)-JVS(4011)*X(328)-JVS(4012)*X(329)-JVS(4013)*X(333)\nIF (DO_SLV(335)) &\n  X(335) = X(335)-JVS(4034)*X(56)-JVS(4035)*X(57)-JVS(4036)*X(59)-JVS(4037)*X(64)-JVS(4038)*X(65)-JVS(4039)*X(67)&\n             &-JVS(4040)*X(70)-JVS(4041)*X(80)-JVS(4042)*X(83)-JVS(4043)*X(90)-JVS(4044)*X(91)-JVS(4045)*X(93)-JVS(4046)&\n             &*X(95)-JVS(4047)*X(96)-JVS(4048)*X(108)-JVS(4049)*X(113)-JVS(4050)*X(114)-JVS(4051)*X(116)-JVS(4052)*X(121)&\n             &-JVS(4053)*X(122)-JVS(4054)*X(124)-JVS(4055)*X(125)-JVS(4056)*X(126)-JVS(4057)*X(127)-JVS(4058)*X(132)&\n             &-JVS(4059)*X(133)-JVS(4060)*X(135)-JVS(4061)*X(137)-JVS(4062)*X(138)-JVS(4063)*X(139)-JVS(4064)*X(140)&\n             &-JVS(4065)*X(154)-JVS(4066)*X(162)-JVS(4067)*X(163)-JVS(4068)*X(165)-JVS(4069)*X(166)-JVS(4070)*X(168)&\n             &-JVS(4071)*X(171)-JVS(4072)*X(172)-JVS(4073)*X(175)-JVS(4074)*X(176)-JVS(4075)*X(177)-JVS(4076)*X(178)&\n             &-JVS(4077)*X(179)-JVS(4078)*X(180)-JVS(4079)*X(182)-JVS(4080)*X(184)-JVS(4081)*X(186)-JVS(4082)*X(189)&\n             &-JVS(4083)*X(190)-JVS(4084)*X(193)-JVS(4085)*X(196)-JVS(4086)*X(197)-JVS(4087)*X(200)-JVS(4088)*X(203)&\n             &-JVS(4089)*X(205)-JVS(4090)*X(206)-JVS(4091)*X(207)-JVS(4092)*X(211)-JVS(4093)*X(212)-JVS(4094)*X(213)&\n             &-JVS(4095)*X(214)-JVS(4096)*X(218)-JVS(4097)*X(220)-JVS(4098)*X(222)-JVS(4099)*X(223)-JVS(4100)*X(224)&\n             &-JVS(4101)*X(226)-JVS(4102)*X(229)-JVS(4103)*X(230)-JVS(4104)*X(231)-JVS(4105)*X(232)-JVS(4106)*X(233)&\n             &-JVS(4107)*X(234)-JVS(4108)*X(235)-JVS(4109)*X(236)-JVS(4110)*X(237)-JVS(4111)*X(239)-JVS(4112)*X(240)&\n             &-JVS(4113)*X(241)-JVS(4114)*X(242)-JVS(4115)*X(243)-JVS(4116)*X(246)-JVS(4117)*X(247)-JVS(4118)*X(248)&\n             &-JVS(4119)*X(249)-JVS(4120)*X(250)-JVS(4121)*X(251)-JVS(4122)*X(252)-JVS(4123)*X(253)-JVS(4124)*X(254)&\n             &-JVS(4125)*X(255)-JVS(4126)*X(256)-JVS(4127)*X(257)-JVS(4128)*X(259)-JVS(4129)*X(260)-JVS(4130)*X(261)&\n             &-JVS(4131)*X(262)-JVS(4132)*X(263)-JVS(4133)*X(266)-JVS(4134)*X(267)-JVS(4135)*X(268)-JVS(4136)*X(269)&\n             &-JVS(4137)*X(271)-JVS(4138)*X(272)-JVS(4139)*X(273)-JVS(4140)*X(274)-JVS(4141)*X(275)-JVS(4142)*X(276)&\n             &-JVS(4143)*X(277)-JVS(4144)*X(278)-JVS(4145)*X(279)-JVS(4146)*X(280)-JVS(4147)*X(281)-JVS(4148)*X(284)&\n             &-JVS(4149)*X(285)-JVS(4150)*X(286)-JVS(4151)*X(289)-JVS(4152)*X(290)-JVS(4153)*X(291)-JVS(4154)*X(293)&\n             &-JVS(4155)*X(296)-JVS(4156)*X(297)-JVS(4157)*X(299)-JVS(4158)*X(300)-JVS(4159)*X(301)-JVS(4160)*X(302)&\n             &-JVS(4161)*X(303)-JVS(4162)*X(304)-JVS(4163)*X(305)-JVS(4164)*X(306)-JVS(4165)*X(308)-JVS(4166)*X(309)&\n             &-JVS(4167)*X(310)-JVS(4168)*X(311)-JVS(4169)*X(312)-JVS(4170)*X(313)-JVS(4171)*X(314)-JVS(4172)*X(315)&\n             &-JVS(4173)*X(317)-JVS(4174)*X(318)-JVS(4175)*X(319)-JVS(4176)*X(320)-JVS(4177)*X(321)-JVS(4178)*X(322)&\n             &-JVS(4179)*X(323)-JVS(4180)*X(324)-JVS(4181)*X(326)-JVS(4182)*X(327)-JVS(4183)*X(328)-JVS(4184)*X(329)&\n             &-JVS(4185)*X(330)-JVS(4186)*X(331)-JVS(4187)*X(332)-JVS(4188)*X(334)\nIF (DO_SLV(336)) &\n  X(336) = X(336)-JVS(4208)*X(43)-JVS(4209)*X(52)-JVS(4210)*X(73)-JVS(4211)*X(84)-JVS(4212)*X(85)-JVS(4213)*X(86)&\n             &-JVS(4214)*X(87)-JVS(4215)*X(105)-JVS(4216)*X(108)-JVS(4217)*X(116)-JVS(4218)*X(164)-JVS(4219)*X(173)&\n             &-JVS(4220)*X(181)-JVS(4221)*X(183)-JVS(4222)*X(189)-JVS(4223)*X(196)-JVS(4224)*X(200)-JVS(4225)*X(201)&\n             &-JVS(4226)*X(214)-JVS(4227)*X(217)-JVS(4228)*X(218)-JVS(4229)*X(220)-JVS(4230)*X(221)-JVS(4231)*X(228)&\n             &-JVS(4232)*X(239)-JVS(4233)*X(240)-JVS(4234)*X(241)-JVS(4235)*X(244)-JVS(4236)*X(246)-JVS(4237)*X(251)&\n             &-JVS(4238)*X(252)-JVS(4239)*X(264)-JVS(4240)*X(265)-JVS(4241)*X(269)-JVS(4242)*X(271)-JVS(4243)*X(276)&\n             &-JVS(4244)*X(279)-JVS(4245)*X(283)-JVS(4246)*X(287)-JVS(4247)*X(289)-JVS(4248)*X(290)-JVS(4249)*X(291)&\n             &-JVS(4250)*X(292)-JVS(4251)*X(295)-JVS(4252)*X(296)-JVS(4253)*X(297)-JVS(4254)*X(298)-JVS(4255)*X(300)&\n             &-JVS(4256)*X(301)-JVS(4257)*X(302)-JVS(4258)*X(303)-JVS(4259)*X(304)-JVS(4260)*X(305)-JVS(4261)*X(306)&\n             &-JVS(4262)*X(307)-JVS(4263)*X(308)-JVS(4264)*X(309)-JVS(4265)*X(310)-JVS(4266)*X(311)-JVS(4267)*X(312)&\n             &-JVS(4268)*X(313)-JVS(4269)*X(314)-JVS(4270)*X(315)-JVS(4271)*X(316)-JVS(4272)*X(317)-JVS(4273)*X(318)&\n             &-JVS(4274)*X(319)-JVS(4275)*X(320)-JVS(4276)*X(321)-JVS(4277)*X(322)-JVS(4278)*X(323)-JVS(4279)*X(324)&\n             &-JVS(4280)*X(325)-JVS(4281)*X(326)-JVS(4282)*X(327)-JVS(4283)*X(328)-JVS(4284)*X(329)-JVS(4285)*X(330)&\n             &-JVS(4286)*X(331)-JVS(4287)*X(332)-JVS(4288)*X(333)-JVS(4289)*X(334)-JVS(4290)*X(335)\nIF (DO_SLV(337)) &\n  X(337) = X(337)-JVS(4309)*X(60)-JVS(4310)*X(72)-JVS(4311)*X(75)-JVS(4312)*X(79)-JVS(4313)*X(80)-JVS(4314)*X(82)&\n             &-JVS(4315)*X(83)-JVS(4316)*X(88)-JVS(4317)*X(91)-JVS(4318)*X(93)-JVS(4319)*X(95)-JVS(4320)*X(97)-JVS(4321)&\n             &*X(98)-JVS(4322)*X(99)-JVS(4323)*X(100)-JVS(4324)*X(101)-JVS(4325)*X(102)-JVS(4326)*X(105)-JVS(4327)*X(106)&\n             &-JVS(4328)*X(108)-JVS(4329)*X(111)-JVS(4330)*X(112)-JVS(4331)*X(115)-JVS(4332)*X(116)-JVS(4333)*X(118)&\n             &-JVS(4334)*X(119)-JVS(4335)*X(121)-JVS(4336)*X(123)-JVS(4337)*X(125)-JVS(4338)*X(127)-JVS(4339)*X(128)&\n             &-JVS(4340)*X(131)-JVS(4341)*X(132)-JVS(4342)*X(133)-JVS(4343)*X(135)-JVS(4344)*X(136)-JVS(4345)*X(137)&\n             &-JVS(4346)*X(138)-JVS(4347)*X(143)-JVS(4348)*X(144)-JVS(4349)*X(145)-JVS(4350)*X(146)-JVS(4351)*X(147)&\n             &-JVS(4352)*X(149)-JVS(4353)*X(150)-JVS(4354)*X(151)-JVS(4355)*X(152)-JVS(4356)*X(153)-JVS(4357)*X(155)&\n             &-JVS(4358)*X(156)-JVS(4359)*X(158)-JVS(4360)*X(161)-JVS(4361)*X(164)-JVS(4362)*X(165)-JVS(4363)*X(168)&\n             &-JVS(4364)*X(171)-JVS(4365)*X(172)-JVS(4366)*X(174)-JVS(4367)*X(175)-JVS(4368)*X(178)-JVS(4369)*X(180)&\n             &-JVS(4370)*X(181)-JVS(4371)*X(182)-JVS(4372)*X(185)-JVS(4373)*X(186)-JVS(4374)*X(187)-JVS(4375)*X(188)&\n             &-JVS(4376)*X(189)-JVS(4377)*X(190)-JVS(4378)*X(192)-JVS(4379)*X(194)-JVS(4380)*X(195)-JVS(4381)*X(196)&\n             &-JVS(4382)*X(197)-JVS(4383)*X(198)-JVS(4384)*X(199)-JVS(4385)*X(200)-JVS(4386)*X(201)-JVS(4387)*X(202)&\n             &-JVS(4388)*X(204)-JVS(4389)*X(205)-JVS(4390)*X(206)-JVS(4391)*X(207)-JVS(4392)*X(208)-JVS(4393)*X(209)&\n             &-JVS(4394)*X(210)-JVS(4395)*X(212)-JVS(4396)*X(213)-JVS(4397)*X(216)-JVS(4398)*X(217)-JVS(4399)*X(219)&\n             &-JVS(4400)*X(220)-JVS(4401)*X(221)-JVS(4402)*X(222)-JVS(4403)*X(223)-JVS(4404)*X(224)-JVS(4405)*X(225)&\n             &-JVS(4406)*X(226)-JVS(4407)*X(227)-JVS(4408)*X(228)-JVS(4409)*X(229)-JVS(4410)*X(230)-JVS(4411)*X(231)&\n             &-JVS(4412)*X(232)-JVS(4413)*X(233)-JVS(4414)*X(234)-JVS(4415)*X(235)-JVS(4416)*X(236)-JVS(4417)*X(238)&\n             &-JVS(4418)*X(240)-JVS(4419)*X(243)-JVS(4420)*X(246)-JVS(4421)*X(248)-JVS(4422)*X(249)-JVS(4423)*X(250)&\n             &-JVS(4424)*X(251)-JVS(4425)*X(253)-JVS(4426)*X(254)-JVS(4427)*X(255)-JVS(4428)*X(257)-JVS(4429)*X(258)&\n             &-JVS(4430)*X(259)-JVS(4431)*X(260)-JVS(4432)*X(261)-JVS(4433)*X(262)-JVS(4434)*X(263)-JVS(4435)*X(264)&\n             &-JVS(4436)*X(265)-JVS(4437)*X(266)-JVS(4438)*X(267)-JVS(4439)*X(268)-JVS(4440)*X(269)-JVS(4441)*X(270)&\n             &-JVS(4442)*X(271)-JVS(4443)*X(272)-JVS(4444)*X(273)-JVS(4445)*X(274)-JVS(4446)*X(275)-JVS(4447)*X(276)&\n             &-JVS(4448)*X(277)-JVS(4449)*X(278)-JVS(4450)*X(279)-JVS(4451)*X(280)-JVS(4452)*X(281)-JVS(4453)*X(282)&\n             &-JVS(4454)*X(284)-JVS(4455)*X(285)-JVS(4456)*X(286)-JVS(4457)*X(287)-JVS(4458)*X(288)-JVS(4459)*X(289)&\n             &-JVS(4460)*X(290)-JVS(4461)*X(291)-JVS(4462)*X(293)-JVS(4463)*X(294)-JVS(4464)*X(296)-JVS(4465)*X(298)&\n             &-JVS(4466)*X(299)-JVS(4467)*X(300)-JVS(4468)*X(301)-JVS(4469)*X(302)-JVS(4470)*X(303)-JVS(4471)*X(304)&\n             &-JVS(4472)*X(305)-JVS(4473)*X(306)-JVS(4474)*X(307)-JVS(4475)*X(308)-JVS(4476)*X(309)-JVS(4477)*X(310)&\n             &-JVS(4478)*X(311)-JVS(4479)*X(312)-JVS(4480)*X(313)-JVS(4481)*X(314)-JVS(4482)*X(315)-JVS(4483)*X(318)&\n             &-JVS(4484)*X(319)-JVS(4485)*X(320)-JVS(4486)*X(321)-JVS(4487)*X(322)-JVS(4488)*X(323)-JVS(4489)*X(324)&\n             &-JVS(4490)*X(325)-JVS(4491)*X(326)-JVS(4492)*X(328)-JVS(4493)*X(329)-JVS(4494)*X(330)-JVS(4495)*X(331)&\n             &-JVS(4496)*X(332)-JVS(4497)*X(334)-JVS(4498)*X(335)-JVS(4499)*X(336)\nIF (DO_SLV(338)) &\n  X(338) = X(338)-JVS(4517)*X(46)-JVS(4518)*X(47)-JVS(4519)*X(48)-JVS(4520)*X(49)-JVS(4521)*X(50)-JVS(4522)*X(51)&\n             &-JVS(4523)*X(61)-JVS(4524)*X(76)-JVS(4525)*X(84)-JVS(4526)*X(85)-JVS(4527)*X(86)-JVS(4528)*X(87)-JVS(4529)&\n             &*X(110)-JVS(4530)*X(120)-JVS(4531)*X(181)-JVS(4532)*X(245)-JVS(4533)*X(284)-JVS(4534)*X(296)-JVS(4535)*X(297)&\n             &-JVS(4536)*X(315)-JVS(4537)*X(317)-JVS(4538)*X(318)-JVS(4539)*X(319)-JVS(4540)*X(320)-JVS(4541)*X(321)&\n             &-JVS(4542)*X(322)-JVS(4543)*X(323)-JVS(4544)*X(324)-JVS(4545)*X(326)-JVS(4546)*X(328)-JVS(4547)*X(329)&\n             &-JVS(4548)*X(330)-JVS(4549)*X(331)-JVS(4550)*X(332)-JVS(4551)*X(333)-JVS(4552)*X(334)-JVS(4553)*X(335)&\n             &-JVS(4554)*X(336)-JVS(4555)*X(337)\nIF (DO_SLV(339)) &\n  X(339) = X(339)-JVS(4572)*X(75)-JVS(4573)*X(79)-JVS(4574)*X(141)-JVS(4575)*X(142)-JVS(4576)*X(156)-JVS(4577)*X(164)&\n             &-JVS(4578)*X(166)-JVS(4579)*X(179)-JVS(4580)*X(181)-JVS(4581)*X(183)-JVS(4582)*X(214)-JVS(4583)*X(218)&\n             &-JVS(4584)*X(228)-JVS(4585)*X(264)-JVS(4586)*X(265)-JVS(4587)*X(269)-JVS(4588)*X(276)-JVS(4589)*X(282)&\n             &-JVS(4590)*X(283)-JVS(4591)*X(289)-JVS(4592)*X(290)-JVS(4593)*X(291)-JVS(4594)*X(295)-JVS(4595)*X(296)&\n             &-JVS(4596)*X(297)-JVS(4597)*X(300)-JVS(4598)*X(301)-JVS(4599)*X(302)-JVS(4600)*X(303)-JVS(4601)*X(304)&\n             &-JVS(4602)*X(305)-JVS(4603)*X(306)-JVS(4604)*X(307)-JVS(4605)*X(308)-JVS(4606)*X(309)-JVS(4607)*X(310)&\n             &-JVS(4608)*X(311)-JVS(4609)*X(312)-JVS(4610)*X(313)-JVS(4611)*X(314)-JVS(4612)*X(315)-JVS(4613)*X(316)&\n             &-JVS(4614)*X(317)-JVS(4615)*X(318)-JVS(4616)*X(319)-JVS(4617)*X(320)-JVS(4618)*X(321)-JVS(4619)*X(322)&\n             &-JVS(4620)*X(323)-JVS(4621)*X(324)-JVS(4622)*X(325)-JVS(4623)*X(326)-JVS(4624)*X(327)-JVS(4625)*X(328)&\n             &-JVS(4626)*X(329)-JVS(4627)*X(332)-JVS(4628)*X(333)-JVS(4629)*X(334)-JVS(4630)*X(335)-JVS(4631)*X(336)&\n             &-JVS(4632)*X(337)-JVS(4633)*X(338)\nIF (DO_SLV(340)) &\n  X(340) = X(340)-JVS(4649)*X(3)-JVS(4650)*X(43)-JVS(4651)*X(46)-JVS(4652)*X(47)-JVS(4653)*X(48)-JVS(4654)*X(49)&\n             &-JVS(4655)*X(50)-JVS(4656)*X(51)-JVS(4657)*X(61)-JVS(4658)*X(75)-JVS(4659)*X(76)-JVS(4660)*X(79)-JVS(4661)&\n             &*X(84)-JVS(4662)*X(85)-JVS(4663)*X(86)-JVS(4664)*X(87)-JVS(4665)*X(104)-JVS(4666)*X(110)-JVS(4667)*X(141)&\n             &-JVS(4668)*X(142)-JVS(4669)*X(156)-JVS(4670)*X(157)-JVS(4671)*X(164)-JVS(4672)*X(181)-JVS(4673)*X(183)&\n             &-JVS(4674)*X(218)-JVS(4675)*X(228)-JVS(4676)*X(245)-JVS(4677)*X(252)-JVS(4678)*X(264)-JVS(4679)*X(265)&\n             &-JVS(4680)*X(269)-JVS(4681)*X(276)-JVS(4682)*X(282)-JVS(4683)*X(283)-JVS(4684)*X(284)-JVS(4685)*X(289)&\n             &-JVS(4686)*X(290)-JVS(4687)*X(291)-JVS(4688)*X(295)-JVS(4689)*X(296)-JVS(4690)*X(297)-JVS(4691)*X(300)&\n             &-JVS(4692)*X(301)-JVS(4693)*X(302)-JVS(4694)*X(303)-JVS(4695)*X(304)-JVS(4696)*X(305)-JVS(4697)*X(306)&\n             &-JVS(4698)*X(307)-JVS(4699)*X(308)-JVS(4700)*X(309)-JVS(4701)*X(310)-JVS(4702)*X(311)-JVS(4703)*X(312)&\n             &-JVS(4704)*X(313)-JVS(4705)*X(314)-JVS(4706)*X(315)-JVS(4707)*X(316)-JVS(4708)*X(317)-JVS(4709)*X(318)&\n             &-JVS(4710)*X(319)-JVS(4711)*X(320)-JVS(4712)*X(321)-JVS(4713)*X(322)-JVS(4714)*X(323)-JVS(4715)*X(324)&\n             &-JVS(4716)*X(325)-JVS(4717)*X(326)-JVS(4718)*X(328)-JVS(4719)*X(329)-JVS(4720)*X(330)-JVS(4721)*X(331)&\n             &-JVS(4722)*X(332)-JVS(4723)*X(333)-JVS(4724)*X(334)-JVS(4725)*X(335)-JVS(4726)*X(336)-JVS(4727)*X(337)&\n             &-JVS(4728)*X(338)-JVS(4729)*X(339)\nIF (DO_SLV(341)) &\n  X(341) = X(341)-JVS(4744)*X(109)-JVS(4745)*X(140)-JVS(4746)*X(166)-JVS(4747)*X(167)-JVS(4748)*X(179)-JVS(4749)*X(191)&\n             &-JVS(4750)*X(193)-JVS(4751)*X(201)-JVS(4752)*X(202)-JVS(4753)*X(203)-JVS(4754)*X(211)-JVS(4755)*X(213)&\n             &-JVS(4756)*X(217)-JVS(4757)*X(219)-JVS(4758)*X(220)-JVS(4759)*X(221)-JVS(4760)*X(228)-JVS(4761)*X(229)&\n             &-JVS(4762)*X(233)-JVS(4763)*X(235)-JVS(4764)*X(236)-JVS(4765)*X(237)-JVS(4766)*X(240)-JVS(4767)*X(242)&\n             &-JVS(4768)*X(246)-JVS(4769)*X(255)-JVS(4770)*X(257)-JVS(4771)*X(259)-JVS(4772)*X(262)-JVS(4773)*X(269)&\n             &-JVS(4774)*X(274)-JVS(4775)*X(275)-JVS(4776)*X(276)-JVS(4777)*X(277)-JVS(4778)*X(280)-JVS(4779)*X(281)&\n             &-JVS(4780)*X(289)-JVS(4781)*X(290)-JVS(4782)*X(291)-JVS(4783)*X(306)-JVS(4784)*X(308)-JVS(4785)*X(309)&\n             &-JVS(4786)*X(310)-JVS(4787)*X(311)-JVS(4788)*X(312)-JVS(4789)*X(314)-JVS(4790)*X(320)-JVS(4791)*X(322)&\n             &-JVS(4792)*X(323)-JVS(4793)*X(324)-JVS(4794)*X(325)-JVS(4795)*X(326)-JVS(4796)*X(327)-JVS(4797)*X(328)&\n             &-JVS(4798)*X(329)-JVS(4799)*X(331)-JVS(4800)*X(332)-JVS(4801)*X(334)-JVS(4802)*X(335)-JVS(4803)*X(336)&\n             &-JVS(4804)*X(337)-JVS(4805)*X(338)-JVS(4806)*X(339)-JVS(4807)*X(340)\nIF (DO_SLV(342)) &\n  X(342) = X(342)-JVS(4821)*X(2)-JVS(4822)*X(53)-JVS(4823)*X(54)-JVS(4824)*X(59)-JVS(4825)*X(61)-JVS(4826)*X(77)&\n             &-JVS(4827)*X(78)-JVS(4828)*X(81)-JVS(4829)*X(105)-JVS(4830)*X(141)-JVS(4831)*X(148)-JVS(4832)*X(157)-JVS(4833)&\n             &*X(183)-JVS(4834)*X(218)-JVS(4835)*X(252)-JVS(4836)*X(284)-JVS(4837)*X(290)-JVS(4838)*X(295)-JVS(4839)*X(297)&\n             &-JVS(4840)*X(300)-JVS(4841)*X(314)-JVS(4842)*X(316)-JVS(4843)*X(317)-JVS(4844)*X(318)-JVS(4845)*X(319)&\n             &-JVS(4846)*X(320)-JVS(4847)*X(323)-JVS(4848)*X(324)-JVS(4849)*X(325)-JVS(4850)*X(326)-JVS(4851)*X(328)&\n             &-JVS(4852)*X(329)-JVS(4853)*X(330)-JVS(4854)*X(331)-JVS(4855)*X(332)-JVS(4856)*X(333)-JVS(4857)*X(334)&\n             &-JVS(4858)*X(335)-JVS(4859)*X(336)-JVS(4860)*X(337)-JVS(4861)*X(338)-JVS(4862)*X(339)-JVS(4863)*X(340)&\n             &-JVS(4864)*X(341)\nIF (DO_SLV(343)) &\n  X(343) = X(343)-JVS(4877)*X(46)-JVS(4878)*X(47)-JVS(4879)*X(48)-JVS(4880)*X(49)-JVS(4881)*X(50)-JVS(4882)*X(51)&\n             &-JVS(4883)*X(53)-JVS(4884)*X(54)-JVS(4885)*X(61)-JVS(4886)*X(67)-JVS(4887)*X(68)-JVS(4888)*X(78)-JVS(4889)&\n             &*X(81)-JVS(4890)*X(84)-JVS(4891)*X(85)-JVS(4892)*X(86)-JVS(4893)*X(87)-JVS(4894)*X(120)-JVS(4895)*X(181)&\n             &-JVS(4896)*X(217)-JVS(4897)*X(228)-JVS(4898)*X(245)-JVS(4899)*X(264)-JVS(4900)*X(276)-JVS(4901)*X(284)&\n             &-JVS(4902)*X(290)-JVS(4903)*X(297)-JVS(4904)*X(312)-JVS(4905)*X(314)-JVS(4906)*X(316)-JVS(4907)*X(317)&\n             &-JVS(4908)*X(324)-JVS(4909)*X(325)-JVS(4910)*X(326)-JVS(4911)*X(328)-JVS(4912)*X(329)-JVS(4913)*X(330)&\n             &-JVS(4914)*X(331)-JVS(4915)*X(332)-JVS(4916)*X(333)-JVS(4917)*X(334)-JVS(4918)*X(335)-JVS(4919)*X(336)&\n             &-JVS(4920)*X(337)-JVS(4921)*X(338)-JVS(4922)*X(339)-JVS(4923)*X(340)-JVS(4924)*X(341)-JVS(4925)*X(342)\nIF (DO_SLV(344)) &\n  X(344) = X(344)-JVS(4937)*X(166)-JVS(4938)*X(214)-JVS(4939)*X(252)-JVS(4940)*X(297)-JVS(4941)*X(316)-JVS(4942)*X(317)&\n             &-JVS(4943)*X(327)-JVS(4944)*X(328)-JVS(4945)*X(329)-JVS(4946)*X(330)-JVS(4947)*X(331)-JVS(4948)*X(332)&\n             &-JVS(4949)*X(333)-JVS(4950)*X(334)-JVS(4951)*X(335)-JVS(4952)*X(336)-JVS(4953)*X(337)-JVS(4954)*X(338)&\n             &-JVS(4955)*X(339)-JVS(4956)*X(340)-JVS(4957)*X(341)-JVS(4958)*X(342)-JVS(4959)*X(343)\nIF (DO_SLV(345)) &\n  X(345) = X(345)-JVS(4970)*X(41)-JVS(4971)*X(43)-JVS(4972)*X(52)-JVS(4973)*X(58)-JVS(4974)*X(60)-JVS(4975)*X(66)&\n             &-JVS(4976)*X(68)-JVS(4977)*X(69)-JVS(4978)*X(70)-JVS(4979)*X(71)-JVS(4980)*X(72)-JVS(4981)*X(73)-JVS(4982)&\n             &*X(74)-JVS(4983)*X(75)-JVS(4984)*X(76)-JVS(4985)*X(78)-JVS(4986)*X(79)-JVS(4987)*X(81)-JVS(4988)*X(82)&\n             &-JVS(4989)*X(83)-JVS(4990)*X(84)-JVS(4991)*X(85)-JVS(4992)*X(86)-JVS(4993)*X(87)-JVS(4994)*X(88)-JVS(4995)&\n             &*X(89)-JVS(4996)*X(90)-JVS(4997)*X(91)-JVS(4998)*X(92)-JVS(4999)*X(93)-JVS(5000)*X(94)-JVS(5001)*X(95)&\n             &-JVS(5002)*X(97)-JVS(5003)*X(98)-JVS(5004)*X(99)-JVS(5005)*X(100)-JVS(5006)*X(101)-JVS(5007)*X(102)-JVS(5008)&\n             &*X(105)-JVS(5009)*X(107)-JVS(5010)*X(108)-JVS(5011)*X(109)-JVS(5012)*X(111)-JVS(5013)*X(112)-JVS(5014)*X(113)&\n             &-JVS(5015)*X(114)-JVS(5016)*X(115)-JVS(5017)*X(116)-JVS(5018)*X(117)-JVS(5019)*X(118)-JVS(5020)*X(119)&\n             &-JVS(5021)*X(120)-JVS(5022)*X(122)-JVS(5023)*X(123)-JVS(5024)*X(124)-JVS(5025)*X(125)-JVS(5026)*X(126)&\n             &-JVS(5027)*X(127)-JVS(5028)*X(128)-JVS(5029)*X(129)-JVS(5030)*X(130)-JVS(5031)*X(131)-JVS(5032)*X(133)&\n             &-JVS(5033)*X(134)-JVS(5034)*X(135)-JVS(5035)*X(136)-JVS(5036)*X(137)-JVS(5037)*X(138)-JVS(5038)*X(139)&\n             &-JVS(5039)*X(140)-JVS(5040)*X(141)-JVS(5041)*X(142)-JVS(5042)*X(143)-JVS(5043)*X(144)-JVS(5044)*X(146)&\n             &-JVS(5045)*X(147)-JVS(5046)*X(148)-JVS(5047)*X(149)-JVS(5048)*X(150)-JVS(5049)*X(151)-JVS(5050)*X(152)&\n             &-JVS(5051)*X(153)-JVS(5052)*X(154)-JVS(5053)*X(155)-JVS(5054)*X(156)-JVS(5055)*X(158)-JVS(5056)*X(159)&\n             &-JVS(5057)*X(160)-JVS(5058)*X(161)-JVS(5059)*X(162)-JVS(5060)*X(163)-JVS(5061)*X(164)-JVS(5062)*X(167)&\n             &-JVS(5063)*X(168)-JVS(5064)*X(169)-JVS(5065)*X(170)-JVS(5066)*X(171)-JVS(5067)*X(172)-JVS(5068)*X(173)&\n             &-JVS(5069)*X(174)-JVS(5070)*X(175)-JVS(5071)*X(176)-JVS(5072)*X(177)-JVS(5073)*X(178)-JVS(5074)*X(179)&\n             &-JVS(5075)*X(180)-JVS(5076)*X(181)-JVS(5077)*X(182)-JVS(5078)*X(183)-JVS(5079)*X(184)-JVS(5080)*X(185)&\n             &-JVS(5081)*X(186)-JVS(5082)*X(187)-JVS(5083)*X(188)-JVS(5084)*X(189)-JVS(5085)*X(190)-JVS(5086)*X(191)&\n             &-JVS(5087)*X(192)-JVS(5088)*X(193)-JVS(5089)*X(194)-JVS(5090)*X(195)-JVS(5091)*X(196)-JVS(5092)*X(197)&\n             &-JVS(5093)*X(198)-JVS(5094)*X(199)-JVS(5095)*X(200)-JVS(5096)*X(201)-JVS(5097)*X(202)-JVS(5098)*X(204)&\n             &-JVS(5099)*X(205)-JVS(5100)*X(206)-JVS(5101)*X(207)-JVS(5102)*X(208)-JVS(5103)*X(209)-JVS(5104)*X(210)&\n             &-JVS(5105)*X(211)-JVS(5106)*X(212)-JVS(5107)*X(213)-JVS(5108)*X(216)-JVS(5109)*X(217)-JVS(5110)*X(218)&\n             &-JVS(5111)*X(219)-JVS(5112)*X(220)-JVS(5113)*X(221)-JVS(5114)*X(222)-JVS(5115)*X(223)-JVS(5116)*X(224)&\n             &-JVS(5117)*X(225)-JVS(5118)*X(226)-JVS(5119)*X(228)-JVS(5120)*X(229)-JVS(5121)*X(230)-JVS(5122)*X(231)&\n             &-JVS(5123)*X(232)-JVS(5124)*X(233)-JVS(5125)*X(234)-JVS(5126)*X(235)-JVS(5127)*X(236)-JVS(5128)*X(237)&\n             &-JVS(5129)*X(238)-JVS(5130)*X(239)-JVS(5131)*X(240)-JVS(5132)*X(241)-JVS(5133)*X(242)-JVS(5134)*X(243)&\n             &-JVS(5135)*X(244)-JVS(5136)*X(245)-JVS(5137)*X(246)-JVS(5138)*X(247)-JVS(5139)*X(248)-JVS(5140)*X(249)&\n             &-JVS(5141)*X(250)-JVS(5142)*X(251)-JVS(5143)*X(252)-JVS(5144)*X(253)-JVS(5145)*X(254)-JVS(5146)*X(255)&\n             &-JVS(5147)*X(256)-JVS(5148)*X(257)-JVS(5149)*X(258)-JVS(5150)*X(259)-JVS(5151)*X(260)-JVS(5152)*X(261)&\n             &-JVS(5153)*X(262)-JVS(5154)*X(263)-JVS(5155)*X(264)-JVS(5156)*X(265)-JVS(5157)*X(266)-JVS(5158)*X(267)&\n             &-JVS(5159)*X(268)-JVS(5160)*X(269)-JVS(5161)*X(270)-JVS(5162)*X(271)-JVS(5163)*X(272)-JVS(5164)*X(273)&\n             &-JVS(5165)*X(274)-JVS(5166)*X(275)-JVS(5167)*X(276)-JVS(5168)*X(277)-JVS(5169)*X(278)-JVS(5170)*X(279)&\n             &-JVS(5171)*X(280)-JVS(5172)*X(281)-JVS(5173)*X(282)-JVS(5174)*X(283)-JVS(5175)*X(284)-JVS(5176)*X(285)&\n             &-JVS(5177)*X(286)-JVS(5178)*X(287)-JVS(5179)*X(288)-JVS(5180)*X(289)-JVS(5181)*X(290)-JVS(5182)*X(291)&\n             &-JVS(5183)*X(292)-JVS(5184)*X(293)-JVS(5185)*X(294)-JVS(5186)*X(295)-JVS(5187)*X(296)-JVS(5188)*X(297)&\n             &-JVS(5189)*X(298)-JVS(5190)*X(299)-JVS(5191)*X(300)-JVS(5192)*X(301)-JVS(5193)*X(302)-JVS(5194)*X(303)&\n             &-JVS(5195)*X(304)-JVS(5196)*X(305)-JVS(5197)*X(306)-JVS(5198)*X(307)-JVS(5199)*X(308)-JVS(5200)*X(309)&\n             &-JVS(5201)*X(310)-JVS(5202)*X(311)-JVS(5203)*X(312)-JVS(5204)*X(313)-JVS(5205)*X(314)-JVS(5206)*X(315)&\n             &-JVS(5207)*X(316)-JVS(5208)*X(317)-JVS(5209)*X(318)-JVS(5210)*X(319)-JVS(5211)*X(320)-JVS(5212)*X(321)&\n             &-JVS(5213)*X(322)-JVS(5214)*X(323)-JVS(5215)*X(324)-JVS(5216)*X(325)-JVS(5217)*X(326)-JVS(5218)*X(327)&\n             &-JVS(5219)*X(328)-JVS(5220)*X(329)-JVS(5221)*X(330)-JVS(5222)*X(331)-JVS(5223)*X(332)-JVS(5224)*X(333)&\n             &-JVS(5225)*X(334)-JVS(5226)*X(335)-JVS(5227)*X(336)-JVS(5228)*X(337)-JVS(5229)*X(338)-JVS(5230)*X(339)&\n             &-JVS(5231)*X(340)-JVS(5232)*X(341)-JVS(5233)*X(342)-JVS(5234)*X(343)-JVS(5235)*X(344)\nIF (DO_SLV(346)) &\n  X(346) = X(346)-JVS(5245)*X(62)-JVS(5246)*X(63)-JVS(5247)*X(67)-JVS(5248)*X(96)-JVS(5249)*X(121)-JVS(5250)*X(132)&\n             &-JVS(5251)*X(133)-JVS(5252)*X(135)-JVS(5253)*X(165)-JVS(5254)*X(171)-JVS(5255)*X(172)-JVS(5256)*X(178)&\n             &-JVS(5257)*X(180)-JVS(5258)*X(182)-JVS(5259)*X(189)-JVS(5260)*X(190)-JVS(5261)*X(196)-JVS(5262)*X(197)&\n             &-JVS(5263)*X(200)-JVS(5264)*X(205)-JVS(5265)*X(206)-JVS(5266)*X(207)-JVS(5267)*X(212)-JVS(5268)*X(213)&\n             &-JVS(5269)*X(220)-JVS(5270)*X(223)-JVS(5271)*X(224)-JVS(5272)*X(226)-JVS(5273)*X(230)-JVS(5274)*X(231)&\n             &-JVS(5275)*X(232)-JVS(5276)*X(233)-JVS(5277)*X(234)-JVS(5278)*X(235)-JVS(5279)*X(236)-JVS(5280)*X(239)&\n             &-JVS(5281)*X(240)-JVS(5282)*X(241)-JVS(5283)*X(243)-JVS(5284)*X(246)-JVS(5285)*X(249)-JVS(5286)*X(250)&\n             &-JVS(5287)*X(252)-JVS(5288)*X(253)-JVS(5289)*X(254)-JVS(5290)*X(257)-JVS(5291)*X(259)-JVS(5292)*X(260)&\n             &-JVS(5293)*X(263)-JVS(5294)*X(267)-JVS(5295)*X(268)-JVS(5296)*X(269)-JVS(5297)*X(271)-JVS(5298)*X(272)&\n             &-JVS(5299)*X(273)-JVS(5300)*X(274)-JVS(5301)*X(275)-JVS(5302)*X(276)-JVS(5303)*X(277)-JVS(5304)*X(278)&\n             &-JVS(5305)*X(279)-JVS(5306)*X(280)-JVS(5307)*X(281)-JVS(5308)*X(284)-JVS(5309)*X(285)-JVS(5310)*X(286)&\n             &-JVS(5311)*X(289)-JVS(5312)*X(290)-JVS(5313)*X(291)-JVS(5314)*X(293)-JVS(5315)*X(296)-JVS(5316)*X(297)&\n             &-JVS(5317)*X(299)-JVS(5318)*X(300)-JVS(5319)*X(301)-JVS(5320)*X(303)-JVS(5321)*X(304)-JVS(5322)*X(305)&\n             &-JVS(5323)*X(306)-JVS(5324)*X(308)-JVS(5325)*X(309)-JVS(5326)*X(310)-JVS(5327)*X(311)-JVS(5328)*X(312)&\n             &-JVS(5329)*X(313)-JVS(5330)*X(314)-JVS(5331)*X(315)-JVS(5332)*X(318)-JVS(5333)*X(319)-JVS(5334)*X(320)&\n             &-JVS(5335)*X(321)-JVS(5336)*X(322)-JVS(5337)*X(323)-JVS(5338)*X(324)-JVS(5339)*X(326)-JVS(5340)*X(327)&\n             &-JVS(5341)*X(328)-JVS(5342)*X(329)-JVS(5343)*X(330)-JVS(5344)*X(331)-JVS(5345)*X(332)-JVS(5346)*X(334)&\n             &-JVS(5347)*X(335)-JVS(5348)*X(336)-JVS(5349)*X(337)-JVS(5350)*X(338)-JVS(5351)*X(339)-JVS(5352)*X(340)&\n             &-JVS(5353)*X(341)-JVS(5354)*X(342)-JVS(5355)*X(343)-JVS(5356)*X(344)-JVS(5357)*X(345)\nIF (DO_SLV(347)) &\n  X(347) = X(347)-JVS(5366)*X(53)-JVS(5367)*X(54)-JVS(5368)*X(61)-JVS(5369)*X(78)-JVS(5370)*X(81)-JVS(5371)*X(105)&\n             &-JVS(5372)*X(218)-JVS(5373)*X(284)-JVS(5374)*X(316)-JVS(5375)*X(330)-JVS(5376)*X(331)-JVS(5377)*X(332)&\n             &-JVS(5378)*X(334)-JVS(5379)*X(335)-JVS(5380)*X(336)-JVS(5381)*X(337)-JVS(5382)*X(338)-JVS(5383)*X(339)&\n             &-JVS(5384)*X(340)-JVS(5385)*X(341)-JVS(5386)*X(342)-JVS(5387)*X(343)-JVS(5388)*X(344)-JVS(5389)*X(345)&\n             &-JVS(5390)*X(346)\nIF (DO_SLV(348)) &\n  X(348) = X(348)-JVS(5398)*X(68)-JVS(5399)*X(89)-JVS(5400)*X(94)-JVS(5401)*X(134)-JVS(5402)*X(166)-JVS(5403)*X(179)&\n             &-JVS(5404)*X(241)-JVS(5405)*X(264)-JVS(5406)*X(276)-JVS(5407)*X(290)-JVS(5408)*X(312)-JVS(5409)*X(314)&\n             &-JVS(5410)*X(316)-JVS(5411)*X(324)-JVS(5412)*X(325)-JVS(5413)*X(326)-JVS(5414)*X(327)-JVS(5415)*X(328)&\n             &-JVS(5416)*X(329)-JVS(5417)*X(332)-JVS(5418)*X(333)-JVS(5419)*X(334)-JVS(5420)*X(335)-JVS(5421)*X(336)&\n             &-JVS(5422)*X(337)-JVS(5423)*X(338)-JVS(5424)*X(339)-JVS(5425)*X(340)-JVS(5426)*X(341)-JVS(5427)*X(342)&\n             &-JVS(5428)*X(343)-JVS(5429)*X(344)-JVS(5430)*X(345)-JVS(5431)*X(346)-JVS(5432)*X(347)\nIF (DO_SLV(349)) &\n  X(349) = X(349)-JVS(5439)*X(252)-JVS(5440)*X(297)-JVS(5441)*X(316)-JVS(5442)*X(317)-JVS(5443)*X(330)-JVS(5444)*X(331)&\n             &-JVS(5445)*X(332)-JVS(5446)*X(335)-JVS(5447)*X(336)-JVS(5448)*X(337)-JVS(5449)*X(338)-JVS(5450)*X(339)&\n             &-JVS(5451)*X(340)-JVS(5452)*X(341)-JVS(5453)*X(342)-JVS(5454)*X(343)-JVS(5455)*X(344)-JVS(5456)*X(345)&\n             &-JVS(5457)*X(346)-JVS(5458)*X(347)-JVS(5459)*X(348)\nIF (DO_SLV(350)) &\n  X(350) = X(350)-JVS(5465)*X(252)-JVS(5466)*X(297)-JVS(5467)*X(316)-JVS(5468)*X(317)-JVS(5469)*X(330)-JVS(5470)*X(331)&\n             &-JVS(5471)*X(332)-JVS(5472)*X(335)-JVS(5473)*X(336)-JVS(5474)*X(337)-JVS(5475)*X(338)-JVS(5476)*X(339)&\n             &-JVS(5477)*X(340)-JVS(5478)*X(341)-JVS(5479)*X(342)-JVS(5480)*X(343)-JVS(5481)*X(344)-JVS(5482)*X(345)&\n             &-JVS(5483)*X(346)-JVS(5484)*X(347)-JVS(5485)*X(348)-JVS(5486)*X(349)\nIF (DO_SLV(351)) &\n  X(351) = X(351)-JVS(5491)*X(69)-JVS(5492)*X(80)-JVS(5493)*X(94)-JVS(5494)*X(108)-JVS(5495)*X(124)-JVS(5496)*X(126)&\n             &-JVS(5497)*X(139)-JVS(5498)*X(140)-JVS(5499)*X(142)-JVS(5500)*X(149)-JVS(5501)*X(154)-JVS(5502)*X(158)&\n             &-JVS(5503)*X(163)-JVS(5504)*X(167)-JVS(5505)*X(170)-JVS(5506)*X(183)-JVS(5507)*X(184)-JVS(5508)*X(191)&\n             &-JVS(5509)*X(193)-JVS(5510)*X(195)-JVS(5511)*X(197)-JVS(5512)*X(200)-JVS(5513)*X(202)-JVS(5514)*X(204)&\n             &-JVS(5515)*X(211)-JVS(5516)*X(213)-JVS(5517)*X(214)-JVS(5518)*X(218)-JVS(5519)*X(219)-JVS(5520)*X(220)&\n             &-JVS(5521)*X(225)-JVS(5522)*X(229)-JVS(5523)*X(233)-JVS(5524)*X(234)-JVS(5525)*X(236)-JVS(5526)*X(237)&\n             &-JVS(5527)*X(241)-JVS(5528)*X(242)-JVS(5529)*X(246)-JVS(5530)*X(252)-JVS(5531)*X(255)-JVS(5532)*X(256)&\n             &-JVS(5533)*X(257)-JVS(5534)*X(259)-JVS(5535)*X(261)-JVS(5536)*X(262)-JVS(5537)*X(263)-JVS(5538)*X(267)&\n             &-JVS(5539)*X(269)-JVS(5540)*X(270)-JVS(5541)*X(271)-JVS(5542)*X(272)-JVS(5543)*X(273)-JVS(5544)*X(274)&\n             &-JVS(5545)*X(275)-JVS(5546)*X(276)-JVS(5547)*X(277)-JVS(5548)*X(278)-JVS(5549)*X(280)-JVS(5550)*X(281)&\n             &-JVS(5551)*X(285)-JVS(5552)*X(286)-JVS(5553)*X(288)-JVS(5554)*X(289)-JVS(5555)*X(290)-JVS(5556)*X(291)&\n             &-JVS(5557)*X(292)-JVS(5558)*X(293)-JVS(5559)*X(294)-JVS(5560)*X(298)-JVS(5561)*X(299)-JVS(5562)*X(300)&\n             &-JVS(5563)*X(301)-JVS(5564)*X(302)-JVS(5565)*X(303)-JVS(5566)*X(304)-JVS(5567)*X(305)-JVS(5568)*X(306)&\n             &-JVS(5569)*X(307)-JVS(5570)*X(308)-JVS(5571)*X(309)-JVS(5572)*X(310)-JVS(5573)*X(311)-JVS(5574)*X(312)&\n             &-JVS(5575)*X(313)-JVS(5576)*X(314)-JVS(5577)*X(317)-JVS(5578)*X(318)-JVS(5579)*X(319)-JVS(5580)*X(320)&\n             &-JVS(5581)*X(321)-JVS(5582)*X(322)-JVS(5583)*X(323)-JVS(5584)*X(324)-JVS(5585)*X(325)-JVS(5586)*X(326)&\n             &-JVS(5587)*X(327)-JVS(5588)*X(328)-JVS(5589)*X(329)-JVS(5590)*X(331)-JVS(5591)*X(332)-JVS(5592)*X(334)&\n             &-JVS(5593)*X(335)-JVS(5594)*X(336)-JVS(5595)*X(337)-JVS(5596)*X(338)-JVS(5597)*X(339)-JVS(5598)*X(340)&\n             &-JVS(5599)*X(341)-JVS(5600)*X(342)-JVS(5601)*X(343)-JVS(5602)*X(344)-JVS(5603)*X(345)-JVS(5604)*X(346)&\n             &-JVS(5605)*X(347)-JVS(5606)*X(348)-JVS(5607)*X(349)-JVS(5608)*X(350)\nIF (DO_SLV(352)) &\n  X(352) = X(352)-JVS(5612)*X(141)-JVS(5613)*X(183)-JVS(5614)*X(290)-JVS(5615)*X(295)-JVS(5616)*X(297)-JVS(5617)*X(300)&\n             &-JVS(5618)*X(314)-JVS(5619)*X(316)-JVS(5620)*X(317)-JVS(5621)*X(318)-JVS(5622)*X(319)-JVS(5623)*X(320)&\n             &-JVS(5624)*X(323)-JVS(5625)*X(324)-JVS(5626)*X(325)-JVS(5627)*X(326)-JVS(5628)*X(328)-JVS(5629)*X(329)&\n             &-JVS(5630)*X(333)-JVS(5631)*X(334)-JVS(5632)*X(335)-JVS(5633)*X(336)-JVS(5634)*X(337)-JVS(5635)*X(338)&\n             &-JVS(5636)*X(339)-JVS(5637)*X(340)-JVS(5638)*X(341)-JVS(5639)*X(342)-JVS(5640)*X(343)-JVS(5641)*X(344)&\n             &-JVS(5642)*X(345)-JVS(5643)*X(346)-JVS(5644)*X(347)-JVS(5645)*X(348)-JVS(5646)*X(349)-JVS(5647)*X(350)&\n             &-JVS(5648)*X(351)\nIF (DO_SLV(353)) &\n  X(353) = X(353)-JVS(5651)*X(179)-JVS(5652)*X(214)-JVS(5653)*X(252)-JVS(5654)*X(297)-JVS(5655)*X(316)-JVS(5656)*X(317)&\n             &-JVS(5657)*X(327)-JVS(5658)*X(328)-JVS(5659)*X(329)-JVS(5660)*X(330)-JVS(5661)*X(331)-JVS(5662)*X(332)&\n             &-JVS(5663)*X(333)-JVS(5664)*X(334)-JVS(5665)*X(335)-JVS(5666)*X(336)-JVS(5667)*X(337)-JVS(5668)*X(338)&\n             &-JVS(5669)*X(339)-JVS(5670)*X(340)-JVS(5671)*X(341)-JVS(5672)*X(342)-JVS(5673)*X(343)-JVS(5674)*X(344)&\n             &-JVS(5675)*X(345)-JVS(5676)*X(346)-JVS(5677)*X(347)-JVS(5678)*X(348)-JVS(5679)*X(349)-JVS(5680)*X(350)&\n             &-JVS(5681)*X(351)-JVS(5682)*X(352)\nIF (DO_SLV(353)) &\n  X(353) = X(353)/JVS(5683)\nIF (DO_SLV(352)) &\n  X(352) = (X(352)-JVS(5650)*X(353))/(JVS(5649))\nIF (DO_SLV(351)) &\n  X(351) = (X(351)-JVS(5610)*X(352)-JVS(5611)*X(353))/(JVS(5609))\nIF (DO_SLV(350)) &\n  X(350) = (X(350)-JVS(5488)*X(351)-JVS(5489)*X(352)-JVS(5490)*X(353))/(JVS(5487))\nIF (DO_SLV(349)) &\n  X(349) = (X(349)-JVS(5461)*X(350)-JVS(5462)*X(351)-JVS(5463)*X(352)-JVS(5464)*X(353))/(JVS(5460))\nIF (DO_SLV(348)) &\n  X(348) = (X(348)-JVS(5434)*X(349)-JVS(5435)*X(350)-JVS(5436)*X(351)-JVS(5437)*X(352)-JVS(5438)*X(353))/(JVS(5433))\nIF (DO_SLV(347)) &\n  X(347) = (X(347)-JVS(5392)*X(348)-JVS(5393)*X(349)-JVS(5394)*X(350)-JVS(5395)*X(351)-JVS(5396)*X(352)-JVS(5397)&\n             &*X(353))/(JVS(5391))\nIF (DO_SLV(346)) &\n  X(346) = (X(346)-JVS(5359)*X(347)-JVS(5360)*X(348)-JVS(5361)*X(349)-JVS(5362)*X(350)-JVS(5363)*X(351)-JVS(5364)*X(352)&\n             &-JVS(5365)*X(353))/(JVS(5358))\nIF (DO_SLV(345)) &\n  X(345) = (X(345)-JVS(5237)*X(346)-JVS(5238)*X(347)-JVS(5239)*X(348)-JVS(5240)*X(349)-JVS(5241)*X(350)-JVS(5242)*X(351)&\n             &-JVS(5243)*X(352)-JVS(5244)*X(353))/(JVS(5236))\nIF (DO_SLV(344)) &\n  X(344) = (X(344)-JVS(4961)*X(345)-JVS(4962)*X(346)-JVS(4963)*X(347)-JVS(4964)*X(348)-JVS(4965)*X(349)-JVS(4966)*X(350)&\n             &-JVS(4967)*X(351)-JVS(4968)*X(352)-JVS(4969)*X(353))/(JVS(4960))\nIF (DO_SLV(343)) &\n  X(343) = (X(343)-JVS(4927)*X(344)-JVS(4928)*X(345)-JVS(4929)*X(346)-JVS(4930)*X(347)-JVS(4931)*X(348)-JVS(4932)*X(349)&\n             &-JVS(4933)*X(350)-JVS(4934)*X(351)-JVS(4935)*X(352)-JVS(4936)*X(353))/(JVS(4926))\nIF (DO_SLV(342)) &\n  X(342) = (X(342)-JVS(4866)*X(343)-JVS(4867)*X(344)-JVS(4868)*X(345)-JVS(4869)*X(346)-JVS(4870)*X(347)-JVS(4871)*X(348)&\n             &-JVS(4872)*X(349)-JVS(4873)*X(350)-JVS(4874)*X(351)-JVS(4875)*X(352)-JVS(4876)*X(353))/(JVS(4865))\nIF (DO_SLV(341)) &\n  X(341) = (X(341)-JVS(4809)*X(342)-JVS(4810)*X(343)-JVS(4811)*X(344)-JVS(4812)*X(345)-JVS(4813)*X(346)-JVS(4814)*X(347)&\n             &-JVS(4815)*X(348)-JVS(4816)*X(349)-JVS(4817)*X(350)-JVS(4818)*X(351)-JVS(4819)*X(352)-JVS(4820)*X(353))&\n             &/(JVS(4808))\nIF (DO_SLV(340)) &\n  X(340) = (X(340)-JVS(4731)*X(341)-JVS(4732)*X(342)-JVS(4733)*X(343)-JVS(4734)*X(344)-JVS(4735)*X(345)-JVS(4736)*X(346)&\n             &-JVS(4737)*X(347)-JVS(4738)*X(348)-JVS(4739)*X(349)-JVS(4740)*X(350)-JVS(4741)*X(351)-JVS(4742)*X(352)&\n             &-JVS(4743)*X(353))/(JVS(4730))\nIF (DO_SLV(339)) &\n  X(339) = (X(339)-JVS(4635)*X(340)-JVS(4636)*X(341)-JVS(4637)*X(342)-JVS(4638)*X(343)-JVS(4639)*X(344)-JVS(4640)*X(345)&\n             &-JVS(4641)*X(346)-JVS(4642)*X(347)-JVS(4643)*X(348)-JVS(4644)*X(349)-JVS(4645)*X(350)-JVS(4646)*X(351)&\n             &-JVS(4647)*X(352)-JVS(4648)*X(353))/(JVS(4634))\nIF (DO_SLV(338)) &\n  X(338) = (X(338)-JVS(4557)*X(339)-JVS(4558)*X(340)-JVS(4559)*X(341)-JVS(4560)*X(342)-JVS(4561)*X(343)-JVS(4562)*X(344)&\n             &-JVS(4563)*X(345)-JVS(4564)*X(346)-JVS(4565)*X(347)-JVS(4566)*X(348)-JVS(4567)*X(349)-JVS(4568)*X(350)&\n             &-JVS(4569)*X(351)-JVS(4570)*X(352)-JVS(4571)*X(353))/(JVS(4556))\nIF (DO_SLV(337)) &\n  X(337) = (X(337)-JVS(4501)*X(338)-JVS(4502)*X(339)-JVS(4503)*X(340)-JVS(4504)*X(341)-JVS(4505)*X(342)-JVS(4506)*X(343)&\n             &-JVS(4507)*X(344)-JVS(4508)*X(345)-JVS(4509)*X(346)-JVS(4510)*X(347)-JVS(4511)*X(348)-JVS(4512)*X(349)&\n             &-JVS(4513)*X(350)-JVS(4514)*X(351)-JVS(4515)*X(352)-JVS(4516)*X(353))/(JVS(4500))\nIF (DO_SLV(336)) &\n  X(336) = (X(336)-JVS(4292)*X(337)-JVS(4293)*X(338)-JVS(4294)*X(339)-JVS(4295)*X(340)-JVS(4296)*X(341)-JVS(4297)*X(342)&\n             &-JVS(4298)*X(343)-JVS(4299)*X(344)-JVS(4300)*X(345)-JVS(4301)*X(346)-JVS(4302)*X(347)-JVS(4303)*X(348)&\n             &-JVS(4304)*X(349)-JVS(4305)*X(350)-JVS(4306)*X(351)-JVS(4307)*X(352)-JVS(4308)*X(353))/(JVS(4291))\nIF (DO_SLV(335)) &\n  X(335) = (X(335)-JVS(4190)*X(336)-JVS(4191)*X(337)-JVS(4192)*X(338)-JVS(4193)*X(339)-JVS(4194)*X(340)-JVS(4195)*X(341)&\n             &-JVS(4196)*X(342)-JVS(4197)*X(343)-JVS(4198)*X(344)-JVS(4199)*X(345)-JVS(4200)*X(346)-JVS(4201)*X(347)&\n             &-JVS(4202)*X(348)-JVS(4203)*X(349)-JVS(4204)*X(350)-JVS(4205)*X(351)-JVS(4206)*X(352)-JVS(4207)*X(353))&\n             &/(JVS(4189))\nIF (DO_SLV(334)) &\n  X(334) = (X(334)-JVS(4015)*X(335)-JVS(4016)*X(336)-JVS(4017)*X(337)-JVS(4018)*X(338)-JVS(4019)*X(339)-JVS(4020)*X(340)&\n             &-JVS(4021)*X(341)-JVS(4022)*X(342)-JVS(4023)*X(343)-JVS(4024)*X(344)-JVS(4025)*X(345)-JVS(4026)*X(346)&\n             &-JVS(4027)*X(347)-JVS(4028)*X(348)-JVS(4029)*X(349)-JVS(4030)*X(350)-JVS(4031)*X(351)-JVS(4032)*X(352)&\n             &-JVS(4033)*X(353))/(JVS(4014))\nIF (DO_SLV(333)) &\n  X(333) = (X(333)-JVS(3964)*X(334)-JVS(3965)*X(335)-JVS(3966)*X(336)-JVS(3967)*X(337)-JVS(3968)*X(338)-JVS(3969)*X(339)&\n             &-JVS(3970)*X(340)-JVS(3971)*X(341)-JVS(3972)*X(342)-JVS(3973)*X(343)-JVS(3974)*X(344)-JVS(3975)*X(345)&\n             &-JVS(3976)*X(346)-JVS(3977)*X(347)-JVS(3978)*X(348)-JVS(3979)*X(349)-JVS(3980)*X(350)-JVS(3981)*X(351)&\n             &-JVS(3982)*X(352)-JVS(3983)*X(353))/(JVS(3963))\nIF (DO_SLV(332)) &\n  X(332) = (X(332)-JVS(3939)*X(335)-JVS(3940)*X(336)-JVS(3941)*X(337)-JVS(3942)*X(338)-JVS(3943)*X(341)-JVS(3944)*X(344)&\n             &-JVS(3945)*X(345)-JVS(3946)*X(346)-JVS(3947)*X(347)-JVS(3948)*X(349)-JVS(3949)*X(350)-JVS(3950)*X(351)&\n             &-JVS(3951)*X(353))/(JVS(3938))\nIF (DO_SLV(331)) &\n  X(331) = (X(331)-JVS(3919)*X(332)-JVS(3920)*X(335)-JVS(3921)*X(336)-JVS(3922)*X(337)-JVS(3923)*X(338)-JVS(3924)*X(341)&\n             &-JVS(3925)*X(344)-JVS(3926)*X(345)-JVS(3927)*X(346)-JVS(3928)*X(347)-JVS(3929)*X(349)-JVS(3930)*X(350)&\n             &-JVS(3931)*X(351)-JVS(3932)*X(353))/(JVS(3918))\nIF (DO_SLV(330)) &\n  X(330) = (X(330)-JVS(3889)*X(331)-JVS(3890)*X(332)-JVS(3891)*X(335)-JVS(3892)*X(336)-JVS(3893)*X(337)-JVS(3894)*X(338)&\n             &-JVS(3895)*X(341)-JVS(3896)*X(344)-JVS(3897)*X(345)-JVS(3898)*X(346)-JVS(3899)*X(347)-JVS(3900)*X(349)&\n             &-JVS(3901)*X(350)-JVS(3902)*X(351)-JVS(3903)*X(353))/(JVS(3888))\nIF (DO_SLV(329)) &\n  X(329) = (X(329)-JVS(3872)*X(334)-JVS(3873)*X(335)-JVS(3874)*X(336)-JVS(3875)*X(337)-JVS(3876)*X(338)-JVS(3877)*X(340)&\n             &-JVS(3878)*X(341)-JVS(3879)*X(342)-JVS(3880)*X(343)-JVS(3881)*X(345)-JVS(3882)*X(346)-JVS(3883)*X(348)&\n             &-JVS(3884)*X(351))/(JVS(3871))\nIF (DO_SLV(328)) &\n  X(328) = (X(328)-JVS(3749)*X(329)-JVS(3750)*X(334)-JVS(3751)*X(335)-JVS(3752)*X(336)-JVS(3753)*X(337)-JVS(3754)*X(338)&\n             &-JVS(3755)*X(340)-JVS(3756)*X(341)-JVS(3757)*X(342)-JVS(3758)*X(345)-JVS(3759)*X(346)-JVS(3760)*X(348)&\n             &-JVS(3761)*X(351))/(JVS(3748))\nIF (DO_SLV(327)) &\n  X(327) = (X(327)-JVS(3666)*X(328)-JVS(3667)*X(329)-JVS(3668)*X(332)-JVS(3669)*X(334)-JVS(3670)*X(335)-JVS(3671)*X(336)&\n             &-JVS(3672)*X(337)-JVS(3673)*X(338)-JVS(3674)*X(339)-JVS(3675)*X(340)-JVS(3676)*X(341)-JVS(3677)*X(342)&\n             &-JVS(3678)*X(343)-JVS(3679)*X(344)-JVS(3680)*X(345)-JVS(3681)*X(346)-JVS(3682)*X(347)-JVS(3683)*X(348)&\n             &-JVS(3684)*X(349)-JVS(3685)*X(350)-JVS(3686)*X(351)-JVS(3687)*X(352)-JVS(3688)*X(353))/(JVS(3665))\nIF (DO_SLV(326)) &\n  X(326) = (X(326)-JVS(3574)*X(328)-JVS(3575)*X(329)-JVS(3576)*X(335)-JVS(3577)*X(336)-JVS(3578)*X(337)-JVS(3579)*X(340)&\n             &-JVS(3580)*X(341)-JVS(3581)*X(342)-JVS(3582)*X(345)-JVS(3583)*X(346)-JVS(3584)*X(348)-JVS(3585)*X(351))&\n             &/(JVS(3573))\nIF (DO_SLV(325)) &\n  X(325) = (X(325)-JVS(3528)*X(326)-JVS(3529)*X(328)-JVS(3530)*X(329)-JVS(3531)*X(334)-JVS(3532)*X(335)-JVS(3533)*X(336)&\n             &-JVS(3534)*X(337)-JVS(3535)*X(338)-JVS(3536)*X(340)-JVS(3537)*X(341)-JVS(3538)*X(342)-JVS(3539)*X(343)&\n             &-JVS(3540)*X(345)-JVS(3541)*X(346)-JVS(3542)*X(348)-JVS(3543)*X(351))/(JVS(3527))\nIF (DO_SLV(324)) &\n  X(324) = (X(324)-JVS(3390)*X(326)-JVS(3391)*X(328)-JVS(3392)*X(335)-JVS(3393)*X(337)-JVS(3394)*X(340)-JVS(3395)*X(341)&\n             &-JVS(3396)*X(342)-JVS(3397)*X(345)-JVS(3398)*X(346)-JVS(3399)*X(351))/(JVS(3389))\nIF (DO_SLV(323)) &\n  X(323) = (X(323)-JVS(3302)*X(324)-JVS(3303)*X(328)-JVS(3304)*X(335)-JVS(3305)*X(337)-JVS(3306)*X(340)-JVS(3307)*X(341)&\n             &-JVS(3308)*X(342)-JVS(3309)*X(345)-JVS(3310)*X(346)-JVS(3311)*X(351))/(JVS(3301))\nIF (DO_SLV(322)) &\n  X(322) = (X(322)-JVS(3277)*X(323)-JVS(3278)*X(324)-JVS(3279)*X(328)-JVS(3280)*X(335)-JVS(3281)*X(337)-JVS(3282)*X(340)&\n             &-JVS(3283)*X(341)-JVS(3284)*X(342)-JVS(3285)*X(345)-JVS(3286)*X(346)-JVS(3287)*X(351))/(JVS(3276))\nIF (DO_SLV(321)) &\n  X(321) = (X(321)-JVS(3244)*X(322)-JVS(3245)*X(323)-JVS(3246)*X(324)-JVS(3247)*X(328)-JVS(3248)*X(335)-JVS(3249)*X(337)&\n             &-JVS(3250)*X(340)-JVS(3251)*X(341)-JVS(3252)*X(342)-JVS(3253)*X(345)-JVS(3254)*X(346)-JVS(3255)*X(351))&\n             &/(JVS(3243))\nIF (DO_SLV(320)) &\n  X(320) = (X(320)-JVS(3223)*X(324)-JVS(3224)*X(328)-JVS(3225)*X(335)-JVS(3226)*X(337)-JVS(3227)*X(340)-JVS(3228)*X(341)&\n             &-JVS(3229)*X(345)-JVS(3230)*X(346)-JVS(3231)*X(351))/(JVS(3222))\nIF (DO_SLV(319)) &\n  X(319) = (X(319)-JVS(3207)*X(320)-JVS(3208)*X(324)-JVS(3209)*X(328)-JVS(3210)*X(335)-JVS(3211)*X(337)-JVS(3212)*X(340)&\n             &-JVS(3213)*X(341)-JVS(3214)*X(345)-JVS(3215)*X(346)-JVS(3216)*X(351))/(JVS(3206))\nIF (DO_SLV(318)) &\n  X(318) = (X(318)-JVS(3180)*X(319)-JVS(3181)*X(320)-JVS(3182)*X(324)-JVS(3183)*X(328)-JVS(3184)*X(335)-JVS(3185)*X(337)&\n             &-JVS(3186)*X(341)-JVS(3187)*X(345)-JVS(3188)*X(346)-JVS(3189)*X(351))/(JVS(3179))\nIF (DO_SLV(317)) &\n  X(317) = (X(317)-JVS(3165)*X(335)-JVS(3166)*X(336)-JVS(3167)*X(338)-JVS(3168)*X(339)-JVS(3169)*X(340)-JVS(3170)*X(343)&\n             &-JVS(3171)*X(344)-JVS(3172)*X(345)-JVS(3173)*X(349)-JVS(3174)*X(350)-JVS(3175)*X(352)-JVS(3176)*X(353))&\n             &/(JVS(3164))\nIF (DO_SLV(316)) &\n  X(316) = (X(316)-JVS(3149)*X(335)-JVS(3150)*X(336)-JVS(3151)*X(337)-JVS(3152)*X(339)-JVS(3153)*X(341)-JVS(3154)*X(342)&\n             &-JVS(3155)*X(343)-JVS(3156)*X(344)-JVS(3157)*X(345)-JVS(3158)*X(347)-JVS(3159)*X(348)-JVS(3160)*X(349)&\n             &-JVS(3161)*X(350)-JVS(3162)*X(352)-JVS(3163)*X(353))/(JVS(3148))\nIF (DO_SLV(315)) &\n  X(315) = (X(315)-JVS(3130)*X(318)-JVS(3131)*X(319)-JVS(3132)*X(320)-JVS(3133)*X(321)-JVS(3134)*X(322)-JVS(3135)*X(323)&\n             &-JVS(3136)*X(324)-JVS(3137)*X(328)-JVS(3138)*X(335)-JVS(3139)*X(337)-JVS(3140)*X(340)-JVS(3141)*X(341)&\n             &-JVS(3142)*X(342)-JVS(3143)*X(345)-JVS(3144)*X(346)-JVS(3145)*X(351))/(JVS(3129))\nIF (DO_SLV(314)) &\n  X(314) = (X(314)-JVS(3113)*X(324)-JVS(3114)*X(328)-JVS(3115)*X(337)-JVS(3116)*X(340)-JVS(3117)*X(341)-JVS(3118)*X(345)&\n             &-JVS(3119)*X(346)-JVS(3120)*X(351))/(JVS(3112))\nIF (DO_SLV(313)) &\n  X(313) = (X(313)-JVS(3078)*X(318)-JVS(3079)*X(319)-JVS(3080)*X(320)-JVS(3081)*X(323)-JVS(3082)*X(324)-JVS(3083)*X(328)&\n             &-JVS(3084)*X(335)-JVS(3085)*X(337)-JVS(3086)*X(340)-JVS(3087)*X(341)-JVS(3088)*X(342)-JVS(3089)*X(345)&\n             &-JVS(3090)*X(346)-JVS(3091)*X(351))/(JVS(3077))\nIF (DO_SLV(312)) &\n  X(312) = (X(312)-JVS(3050)*X(314)-JVS(3051)*X(324)-JVS(3052)*X(328)-JVS(3053)*X(329)-JVS(3054)*X(335)-JVS(3055)*X(336)&\n             &-JVS(3056)*X(337)-JVS(3057)*X(340)-JVS(3058)*X(341)-JVS(3059)*X(342)-JVS(3060)*X(345)-JVS(3061)*X(346)&\n             &-JVS(3062)*X(348)-JVS(3063)*X(351))/(JVS(3049))\nIF (DO_SLV(311)) &\n  X(311) = (X(311)-JVS(3030)*X(324)-JVS(3031)*X(328)-JVS(3032)*X(337)-JVS(3033)*X(340)-JVS(3034)*X(341)-JVS(3035)*X(345)&\n             &-JVS(3036)*X(346)-JVS(3037)*X(351))/(JVS(3029))\nIF (DO_SLV(310)) &\n  X(310) = (X(310)-JVS(3017)*X(311)-JVS(3018)*X(324)-JVS(3019)*X(328)-JVS(3020)*X(337)-JVS(3021)*X(340)-JVS(3022)*X(341)&\n             &-JVS(3023)*X(345)-JVS(3024)*X(346)-JVS(3025)*X(351))/(JVS(3016))\nIF (DO_SLV(309)) &\n  X(309) = (X(309)-JVS(3004)*X(310)-JVS(3005)*X(311)-JVS(3006)*X(324)-JVS(3007)*X(328)-JVS(3008)*X(337)-JVS(3009)*X(340)&\n             &-JVS(3010)*X(341)-JVS(3011)*X(345)-JVS(3012)*X(346)-JVS(3013)*X(351))/(JVS(3003))\nIF (DO_SLV(308)) &\n  X(308) = (X(308)-JVS(2979)*X(309)-JVS(2980)*X(310)-JVS(2981)*X(311)-JVS(2982)*X(324)-JVS(2983)*X(328)-JVS(2984)*X(335)&\n             &-JVS(2985)*X(337)-JVS(2986)*X(340)-JVS(2987)*X(341)-JVS(2988)*X(345)-JVS(2989)*X(346)-JVS(2990)*X(351))&\n             &/(JVS(2978))\nIF (DO_SLV(307)) &\n  X(307) = (X(307)-JVS(2955)*X(308)-JVS(2956)*X(309)-JVS(2957)*X(310)-JVS(2958)*X(311)-JVS(2959)*X(313)-JVS(2960)*X(314)&\n             &-JVS(2961)*X(324)-JVS(2962)*X(328)-JVS(2963)*X(335)-JVS(2964)*X(337)-JVS(2965)*X(340)-JVS(2966)*X(341)&\n             &-JVS(2967)*X(342)-JVS(2968)*X(345)-JVS(2969)*X(346)-JVS(2970)*X(351))/(JVS(2954))\nIF (DO_SLV(306)) &\n  X(306) = (X(306)-JVS(2895)*X(310)-JVS(2896)*X(311)-JVS(2897)*X(314)-JVS(2898)*X(320)-JVS(2899)*X(324)-JVS(2900)*X(328)&\n             &-JVS(2901)*X(335)-JVS(2902)*X(337)-JVS(2903)*X(340)-JVS(2904)*X(341)-JVS(2905)*X(345)-JVS(2906)*X(346)&\n             &-JVS(2907)*X(351))/(JVS(2894))\nIF (DO_SLV(305)) &\n  X(305) = (X(305)-JVS(2842)*X(311)-JVS(2843)*X(328)-JVS(2844)*X(337)-JVS(2845)*X(340)-JVS(2846)*X(341)-JVS(2847)*X(345)&\n             &-JVS(2848)*X(346)-JVS(2849)*X(351))/(JVS(2841))\nIF (DO_SLV(304)) &\n  X(304) = (X(304)-JVS(2827)*X(305)-JVS(2828)*X(311)-JVS(2829)*X(328)-JVS(2830)*X(337)-JVS(2831)*X(340)-JVS(2832)*X(341)&\n             &-JVS(2833)*X(345)-JVS(2834)*X(346)-JVS(2835)*X(351))/(JVS(2826))\nIF (DO_SLV(303)) &\n  X(303) = (X(303)-JVS(2812)*X(304)-JVS(2813)*X(305)-JVS(2814)*X(310)-JVS(2815)*X(311)-JVS(2816)*X(324)-JVS(2817)*X(328)&\n             &-JVS(2818)*X(337)-JVS(2819)*X(345)-JVS(2820)*X(346)-JVS(2821)*X(351))/(JVS(2811))\nIF (DO_SLV(302)) &\n  X(302) = (X(302)-JVS(2781)*X(303)-JVS(2782)*X(304)-JVS(2783)*X(305)-JVS(2784)*X(310)-JVS(2785)*X(311)-JVS(2786)*X(314)&\n             &-JVS(2787)*X(324)-JVS(2788)*X(328)-JVS(2789)*X(335)-JVS(2790)*X(337)-JVS(2791)*X(340)-JVS(2792)*X(341)&\n             &-JVS(2793)*X(345)-JVS(2794)*X(346)-JVS(2795)*X(351))/(JVS(2780))\nIF (DO_SLV(301)) &\n  X(301) = (X(301)-JVS(2757)*X(303)-JVS(2758)*X(304)-JVS(2759)*X(305)-JVS(2760)*X(310)-JVS(2761)*X(311)-JVS(2762)*X(324)&\n             &-JVS(2763)*X(328)-JVS(2764)*X(337)-JVS(2765)*X(345)-JVS(2766)*X(346)-JVS(2767)*X(351))/(JVS(2756))\nIF (DO_SLV(300)) &\n  X(300) = (X(300)-JVS(2743)*X(324)-JVS(2744)*X(328)-JVS(2745)*X(337)-JVS(2746)*X(340)-JVS(2747)*X(341)-JVS(2748)*X(345)&\n             &-JVS(2749)*X(346)-JVS(2750)*X(351))/(JVS(2742))\nIF (DO_SLV(299)) &\n  X(299) = (X(299)-JVS(2728)*X(303)-JVS(2729)*X(304)-JVS(2730)*X(305)-JVS(2731)*X(310)-JVS(2732)*X(311)-JVS(2733)*X(324)&\n             &-JVS(2734)*X(328)-JVS(2735)*X(337)-JVS(2736)*X(345)-JVS(2737)*X(346)-JVS(2738)*X(351))/(JVS(2727))\nIF (DO_SLV(298)) &\n  X(298) = (X(298)-JVS(2700)*X(300)-JVS(2701)*X(314)-JVS(2702)*X(318)-JVS(2703)*X(319)-JVS(2704)*X(320)-JVS(2705)*X(321)&\n             &-JVS(2706)*X(323)-JVS(2707)*X(324)-JVS(2708)*X(328)-JVS(2709)*X(335)-JVS(2710)*X(337)-JVS(2711)*X(340)&\n             &-JVS(2712)*X(341)-JVS(2713)*X(342)-JVS(2714)*X(345)-JVS(2715)*X(346)-JVS(2716)*X(351))/(JVS(2699))\nIF (DO_SLV(297)) &\n  X(297) = (X(297)-JVS(2654)*X(335)-JVS(2655)*X(336)-JVS(2656)*X(339)-JVS(2657)*X(344)-JVS(2658)*X(345)-JVS(2659)*X(349)&\n             &-JVS(2660)*X(350)-JVS(2661)*X(351)-JVS(2662)*X(352)-JVS(2663)*X(353))/(JVS(2653))\nIF (DO_SLV(296)) &\n  X(296) = (X(296)-JVS(2640)*X(320)-JVS(2641)*X(322)-JVS(2642)*X(324)-JVS(2643)*X(328)-JVS(2644)*X(335)-JVS(2645)*X(337)&\n             &-JVS(2646)*X(340)-JVS(2647)*X(341)-JVS(2648)*X(342)-JVS(2649)*X(345)-JVS(2650)*X(346)-JVS(2651)*X(351))&\n             &/(JVS(2639))\nIF (DO_SLV(295)) &\n  X(295) = (X(295)-JVS(2614)*X(300)-JVS(2615)*X(318)-JVS(2616)*X(319)-JVS(2617)*X(320)-JVS(2618)*X(323)-JVS(2619)*X(324)&\n             &-JVS(2620)*X(328)-JVS(2621)*X(335)-JVS(2622)*X(337)-JVS(2623)*X(340)-JVS(2624)*X(341)-JVS(2625)*X(342)&\n             &-JVS(2626)*X(345)-JVS(2627)*X(346)-JVS(2628)*X(351))/(JVS(2613))\nIF (DO_SLV(294)) &\n  X(294) = (X(294)-JVS(2573)*X(299)-JVS(2574)*X(301)-JVS(2575)*X(302)-JVS(2576)*X(303)-JVS(2577)*X(304)-JVS(2578)*X(305)&\n             &-JVS(2579)*X(307)-JVS(2580)*X(308)-JVS(2581)*X(309)-JVS(2582)*X(310)-JVS(2583)*X(311)-JVS(2584)*X(313)&\n             &-JVS(2585)*X(314)-JVS(2586)*X(320)-JVS(2587)*X(324)-JVS(2588)*X(328)-JVS(2589)*X(335)-JVS(2590)*X(337)&\n             &-JVS(2591)*X(340)-JVS(2592)*X(341)-JVS(2593)*X(342)-JVS(2594)*X(345)-JVS(2595)*X(346)-JVS(2596)*X(351))&\n             &/(JVS(2572))\nIF (DO_SLV(293)) &\n  X(293) = (X(293)-JVS(2524)*X(299)-JVS(2525)*X(303)-JVS(2526)*X(310)-JVS(2527)*X(311)-JVS(2528)*X(324)-JVS(2529)*X(328)&\n             &-JVS(2530)*X(337)-JVS(2531)*X(345)-JVS(2532)*X(346)-JVS(2533)*X(351))/(JVS(2523))\nIF (DO_SLV(292)) &\n  X(292) = (X(292)-JVS(2508)*X(300)-JVS(2509)*X(318)-JVS(2510)*X(319)-JVS(2511)*X(320)-JVS(2512)*X(324)-JVS(2513)*X(328)&\n             &-JVS(2514)*X(335)-JVS(2515)*X(337)-JVS(2516)*X(341)-JVS(2517)*X(345)-JVS(2518)*X(346)-JVS(2519)*X(351))&\n             &/(JVS(2507))\nIF (DO_SLV(291)) &\n  X(291) = (X(291)-JVS(2483)*X(324)-JVS(2484)*X(328)-JVS(2485)*X(337)-JVS(2486)*X(341)-JVS(2487)*X(345)-JVS(2488)*X(346)&\n             &-JVS(2489)*X(351))/(JVS(2482))\nIF (DO_SLV(290)) &\n  X(290) = (X(290)-JVS(2475)*X(314)-JVS(2476)*X(340)-JVS(2477)*X(341)-JVS(2478)*X(342)-JVS(2479)*X(345)-JVS(2480)&\n             &*X(351))/(JVS(2474))\nIF (DO_SLV(289)) &\n  X(289) = (X(289)-JVS(2466)*X(291)-JVS(2467)*X(324)-JVS(2468)*X(328)-JVS(2469)*X(337)-JVS(2470)*X(341)-JVS(2471)*X(345)&\n             &-JVS(2472)*X(346)-JVS(2473)*X(351))/(JVS(2465))\nIF (DO_SLV(288)) &\n  X(288) = (X(288)-JVS(2446)*X(301)-JVS(2447)*X(303)-JVS(2448)*X(304)-JVS(2449)*X(305)-JVS(2450)*X(310)-JVS(2451)*X(311)&\n             &-JVS(2452)*X(314)-JVS(2453)*X(328)-JVS(2454)*X(335)-JVS(2455)*X(337)-JVS(2456)*X(340)-JVS(2457)*X(341)&\n             &-JVS(2458)*X(345)-JVS(2459)*X(346)-JVS(2460)*X(351))/(JVS(2445))\nIF (DO_SLV(287)) &\n  X(287) = (X(287)-JVS(2413)*X(301)-JVS(2414)*X(303)-JVS(2415)*X(304)-JVS(2416)*X(305)-JVS(2417)*X(309)-JVS(2418)*X(310)&\n             &-JVS(2419)*X(311)-JVS(2420)*X(328)-JVS(2421)*X(335)-JVS(2422)*X(337)-JVS(2423)*X(340)-JVS(2424)*X(341)&\n             &-JVS(2425)*X(345)-JVS(2426)*X(346)-JVS(2427)*X(351))/(JVS(2412))\nIF (DO_SLV(286)) &\n  X(286) = (X(286)-JVS(2386)*X(304)-JVS(2387)*X(305)-JVS(2388)*X(310)-JVS(2389)*X(311)-JVS(2390)*X(328)-JVS(2391)*X(337)&\n             &-JVS(2392)*X(345)-JVS(2393)*X(346))/(JVS(2385))\nIF (DO_SLV(285)) &\n  X(285) = (X(285)-JVS(2365)*X(286)-JVS(2366)*X(304)-JVS(2367)*X(305)-JVS(2368)*X(310)-JVS(2369)*X(311)-JVS(2370)*X(328)&\n             &-JVS(2371)*X(337)-JVS(2372)*X(345)-JVS(2373)*X(346))/(JVS(2364))\nIF (DO_SLV(284)) &\n  X(284) = (X(284)-JVS(2344)*X(330)-JVS(2345)*X(331)-JVS(2346)*X(332)-JVS(2347)*X(335)-JVS(2348)*X(337)-JVS(2349)*X(338)&\n             &-JVS(2350)*X(341)-JVS(2351)*X(345)-JVS(2352)*X(346)-JVS(2353)*X(347))/(JVS(2343))\nIF (DO_SLV(283)) &\n  X(283) = (X(283)-JVS(2315)*X(290)-JVS(2316)*X(291)-JVS(2317)*X(296)-JVS(2318)*X(300)-JVS(2319)*X(307)-JVS(2320)*X(313)&\n             &-JVS(2321)*X(315)-JVS(2322)*X(318)-JVS(2323)*X(319)-JVS(2324)*X(320)-JVS(2325)*X(321)-JVS(2326)*X(323)&\n             &-JVS(2327)*X(324)-JVS(2328)*X(328)-JVS(2329)*X(329)-JVS(2330)*X(335)-JVS(2331)*X(336)-JVS(2332)*X(337)&\n             &-JVS(2333)*X(340)-JVS(2334)*X(341)-JVS(2335)*X(342)-JVS(2336)*X(345)-JVS(2337)*X(346)-JVS(2338)*X(348)&\n             &-JVS(2339)*X(351))/(JVS(2314))\nIF (DO_SLV(282)) &\n  X(282) = (X(282)-JVS(2280)*X(289)-JVS(2281)*X(290)-JVS(2282)*X(291)-JVS(2283)*X(296)-JVS(2284)*X(300)-JVS(2285)*X(306)&\n             &-JVS(2286)*X(310)-JVS(2287)*X(311)-JVS(2288)*X(313)-JVS(2289)*X(315)-JVS(2290)*X(318)-JVS(2291)*X(319)&\n             &-JVS(2292)*X(320)-JVS(2293)*X(321)-JVS(2294)*X(323)-JVS(2295)*X(324)-JVS(2296)*X(328)-JVS(2297)*X(335)&\n             &-JVS(2298)*X(337)-JVS(2299)*X(340)-JVS(2300)*X(341)-JVS(2301)*X(342)-JVS(2302)*X(345)-JVS(2303)*X(346)&\n             &-JVS(2304)*X(351))/(JVS(2279))\nIF (DO_SLV(281)) &\n  X(281) = (X(281)-JVS(2260)*X(324)-JVS(2261)*X(328)-JVS(2262)*X(337)-JVS(2263)*X(341)-JVS(2264)*X(345)-JVS(2265)*X(346)&\n             &-JVS(2266)*X(351))/(JVS(2259))\nIF (DO_SLV(280)) &\n  X(280) = (X(280)-JVS(2247)*X(289)-JVS(2248)*X(291)-JVS(2249)*X(324)-JVS(2250)*X(328)-JVS(2251)*X(337)-JVS(2252)*X(341)&\n             &-JVS(2253)*X(345)-JVS(2254)*X(346)-JVS(2255)*X(351))/(JVS(2246))\nIF (DO_SLV(279)) &\n  X(279) = (X(279)-JVS(2233)*X(300)-JVS(2234)*X(320)-JVS(2235)*X(324)-JVS(2236)*X(328)-JVS(2237)*X(337)-JVS(2238)*X(345)&\n             &-JVS(2239)*X(346))/(JVS(2232))\nIF (DO_SLV(278)) &\n  X(278) = (X(278)-JVS(2223)*X(324)-JVS(2224)*X(328)-JVS(2225)*X(335)-JVS(2226)*X(337)-JVS(2227)*X(341)-JVS(2228)*X(345)&\n             &-JVS(2229)*X(346)-JVS(2230)*X(351))/(JVS(2222))\nIF (DO_SLV(277)) &\n  X(277) = (X(277)-JVS(2209)*X(324)-JVS(2210)*X(328)-JVS(2211)*X(337)-JVS(2212)*X(341)-JVS(2213)*X(345)-JVS(2214)*X(346)&\n             &-JVS(2215)*X(351))/(JVS(2208))\nIF (DO_SLV(276)) &\n  X(276) = (X(276)-JVS(2201)*X(340)-JVS(2202)*X(341)-JVS(2203)*X(345)-JVS(2204)*X(351))/(JVS(2200))\nIF (DO_SLV(275)) &\n  X(275) = (X(275)-JVS(2193)*X(324)-JVS(2194)*X(328)-JVS(2195)*X(337)-JVS(2196)*X(341)-JVS(2197)*X(345)-JVS(2198)*X(346)&\n             &-JVS(2199)*X(351))/(JVS(2192))\nIF (DO_SLV(274)) &\n  X(274) = (X(274)-JVS(2179)*X(275)-JVS(2180)*X(281)-JVS(2181)*X(324)-JVS(2182)*X(328)-JVS(2183)*X(335)-JVS(2184)*X(337)&\n             &-JVS(2185)*X(341)-JVS(2186)*X(345)-JVS(2187)*X(346)-JVS(2188)*X(351))/(JVS(2178))\nIF (DO_SLV(273)) &\n  X(273) = (X(273)-JVS(2158)*X(275)-JVS(2159)*X(324)-JVS(2160)*X(328)-JVS(2161)*X(337)-JVS(2162)*X(341)-JVS(2163)*X(345)&\n             &-JVS(2164)*X(346)-JVS(2165)*X(351))/(JVS(2157))\nIF (DO_SLV(272)) &\n  X(272) = (X(272)-JVS(2145)*X(281)-JVS(2146)*X(324)-JVS(2147)*X(328)-JVS(2148)*X(337)-JVS(2149)*X(341)-JVS(2150)*X(345)&\n             &-JVS(2151)*X(346)-JVS(2152)*X(351))/(JVS(2144))\nIF (DO_SLV(271)) &\n  X(271) = (X(271)-JVS(2136)*X(310)-JVS(2137)*X(311)-JVS(2138)*X(328)-JVS(2139)*X(337)-JVS(2140)*X(345)-JVS(2141)&\n             &*X(346))/(JVS(2135))\nIF (DO_SLV(270)) &\n  X(270) = (X(270)-JVS(2114)*X(271)-JVS(2115)*X(276)-JVS(2116)*X(285)-JVS(2117)*X(286)-JVS(2118)*X(288)-JVS(2119)*X(301)&\n             &-JVS(2120)*X(302)-JVS(2121)*X(303)-JVS(2122)*X(304)-JVS(2123)*X(305)-JVS(2124)*X(306)-JVS(2125)*X(310)&\n             &-JVS(2126)*X(311)-JVS(2127)*X(328)-JVS(2128)*X(335)-JVS(2129)*X(337)-JVS(2130)*X(341)-JVS(2131)*X(345)&\n             &-JVS(2132)*X(346)-JVS(2133)*X(351))/(JVS(2113))\nIF (DO_SLV(269)) &\n  X(269) = (X(269)-JVS(2082)*X(328)-JVS(2083)*X(335)-JVS(2084)*X(337)-JVS(2085)*X(341)-JVS(2086)*X(345)-JVS(2087)*X(346)&\n             &-JVS(2088)*X(351))/(JVS(2081))\nIF (DO_SLV(268)) &\n  X(268) = (X(268)-JVS(2067)*X(304)-JVS(2068)*X(310)-JVS(2069)*X(311)-JVS(2070)*X(328)-JVS(2071)*X(345)-JVS(2072)&\n             &*X(346))/(JVS(2066))\nIF (DO_SLV(267)) &\n  X(267) = (X(267)-JVS(2061)*X(305)-JVS(2062)*X(311)-JVS(2063)*X(328)-JVS(2064)*X(345)-JVS(2065)*X(346))/(JVS(2060))\nIF (DO_SLV(266)) &\n  X(266) = (X(266)-JVS(2048)*X(267)-JVS(2049)*X(268)-JVS(2050)*X(271)-JVS(2051)*X(285)-JVS(2052)*X(286)-JVS(2053)*X(303)&\n             &-JVS(2054)*X(304)-JVS(2055)*X(305)-JVS(2056)*X(311)-JVS(2057)*X(337)-JVS(2058)*X(345)-JVS(2059)*X(346))&\n             &/(JVS(2047))\nIF (DO_SLV(265)) &\n  X(265) = (X(265)-JVS(2021)*X(269)-JVS(2022)*X(276)-JVS(2023)*X(301)-JVS(2024)*X(302)-JVS(2025)*X(303)-JVS(2026)*X(304)&\n             &-JVS(2027)*X(305)-JVS(2028)*X(306)-JVS(2029)*X(307)-JVS(2030)*X(308)-JVS(2031)*X(309)-JVS(2032)*X(312)&\n             &-JVS(2033)*X(335)-JVS(2034)*X(336)-JVS(2035)*X(337)-JVS(2036)*X(340)-JVS(2037)*X(341)-JVS(2038)*X(345)&\n             &-JVS(2039)*X(346)-JVS(2040)*X(351))/(JVS(2020))\nIF (DO_SLV(264)) &\n  X(264) = (X(264)-JVS(1995)*X(276)-JVS(1996)*X(290)-JVS(1997)*X(312)-JVS(1998)*X(314)-JVS(1999)*X(329)-JVS(2000)*X(335)&\n             &-JVS(2001)*X(336)-JVS(2002)*X(337)-JVS(2003)*X(340)-JVS(2004)*X(341)-JVS(2005)*X(343)-JVS(2006)*X(345)&\n             &-JVS(2007)*X(346)-JVS(2008)*X(348))/(JVS(1994))\nIF (DO_SLV(263)) &\n  X(263) = (X(263)-JVS(1981)*X(275)-JVS(1982)*X(277)-JVS(1983)*X(278)-JVS(1984)*X(281)-JVS(1985)*X(291)-JVS(1986)*X(324)&\n             &-JVS(1987)*X(328)-JVS(1988)*X(337)-JVS(1989)*X(341)-JVS(1990)*X(345)-JVS(1991)*X(346)-JVS(1992)*X(351))&\n             &/(JVS(1980))\nIF (DO_SLV(262)) &\n  X(262) = (X(262)-JVS(1951)*X(291)-JVS(1952)*X(324)-JVS(1953)*X(328)-JVS(1954)*X(337)-JVS(1955)*X(341)-JVS(1956)*X(345)&\n             &-JVS(1957)*X(346)-JVS(1958)*X(351))/(JVS(1950))\nIF (DO_SLV(261)) &\n  X(261) = (X(261)-JVS(1935)*X(267)-JVS(1936)*X(271)-JVS(1937)*X(293)-JVS(1938)*X(299)-JVS(1939)*X(301)-JVS(1940)*X(302)&\n             &-JVS(1941)*X(303)-JVS(1942)*X(311)-JVS(1943)*X(337)-JVS(1944)*X(345)-JVS(1945)*X(346)-JVS(1946)*X(351))&\n             &/(JVS(1934))\nIF (DO_SLV(260)) &\n  X(260) = (X(260)-JVS(1922)*X(290)-JVS(1923)*X(324)-JVS(1924)*X(328)-JVS(1925)*X(337)-JVS(1926)*X(340)-JVS(1927)*X(342)&\n             &-JVS(1928)*X(345)-JVS(1929)*X(346))/(JVS(1921))\nIF (DO_SLV(259)) &\n  X(259) = (X(259)-JVS(1913)*X(308)-JVS(1914)*X(309)-JVS(1915)*X(335)-JVS(1916)*X(337)-JVS(1917)*X(345)-JVS(1918)*X(346)&\n             &-JVS(1919)*X(351))/(JVS(1912))\nIF (DO_SLV(258)) &\n  X(258) = (X(258)-JVS(1901)*X(267)-JVS(1902)*X(268)-JVS(1903)*X(285)-JVS(1904)*X(286)-JVS(1905)*X(304)-JVS(1906)*X(305)&\n             &-JVS(1907)*X(337)-JVS(1908)*X(345)-JVS(1909)*X(346))/(JVS(1900))\nIF (DO_SLV(257)) &\n  X(257) = (X(257)-JVS(1886)*X(277)-JVS(1887)*X(324)-JVS(1888)*X(328)-JVS(1889)*X(335)-JVS(1890)*X(337)-JVS(1891)*X(341)&\n             &-JVS(1892)*X(345)-JVS(1893)*X(346)-JVS(1894)*X(351))/(JVS(1885))\nIF (DO_SLV(256)) &\n  X(256) = (X(256)-JVS(1866)*X(272)-JVS(1867)*X(273)-JVS(1868)*X(275)-JVS(1869)*X(277)-JVS(1870)*X(278)-JVS(1871)*X(280)&\n             &-JVS(1872)*X(281)-JVS(1873)*X(289)-JVS(1874)*X(324)-JVS(1875)*X(328)-JVS(1876)*X(337)-JVS(1877)*X(341)&\n             &-JVS(1878)*X(345)-JVS(1879)*X(346)-JVS(1880)*X(351))/(JVS(1865))\nIF (DO_SLV(255)) &\n  X(255) = (X(255)-JVS(1851)*X(281)-JVS(1852)*X(324)-JVS(1853)*X(328)-JVS(1854)*X(337)-JVS(1855)*X(341)-JVS(1856)*X(345)&\n             &-JVS(1857)*X(346)-JVS(1858)*X(351))/(JVS(1850))\nIF (DO_SLV(254)) &\n  X(254) = (X(254)-JVS(1841)*X(276)-JVS(1842)*X(301)-JVS(1843)*X(305)-JVS(1844)*X(314)-JVS(1845)*X(335)-JVS(1846)*X(337)&\n             &-JVS(1847)*X(345)-JVS(1848)*X(346))/(JVS(1840))\nIF (DO_SLV(253)) &\n  X(253) = (X(253)-JVS(1830)*X(276)-JVS(1831)*X(301)-JVS(1832)*X(304)-JVS(1833)*X(309)-JVS(1834)*X(335)-JVS(1835)*X(337)&\n             &-JVS(1836)*X(345)-JVS(1837)*X(346))/(JVS(1829))\nIF (DO_SLV(252)) &\n  X(252) = (X(252)-JVS(1821)*X(331)-JVS(1822)*X(335)-JVS(1823)*X(344)-JVS(1824)*X(349)-JVS(1825)*X(350)-JVS(1826)&\n             &*X(353))/(JVS(1820))\nIF (DO_SLV(251)) &\n  X(251) = (X(251)-JVS(1814)*X(318)-JVS(1815)*X(319)-JVS(1816)*X(320)-JVS(1817)*X(337)-JVS(1818)*X(345)-JVS(1819)&\n             &*X(346))/(JVS(1813))\nIF (DO_SLV(250)) &\n  X(250) = (X(250)-JVS(1806)*X(290)-JVS(1807)*X(324)-JVS(1808)*X(328)-JVS(1809)*X(337)-JVS(1810)*X(345)-JVS(1811)*X(346)&\n             &-JVS(1812)*X(351))/(JVS(1805))\nIF (DO_SLV(249)) &\n  X(249) = (X(249)-JVS(1798)*X(279)-JVS(1799)*X(324)-JVS(1800)*X(328)-JVS(1801)*X(337)-JVS(1802)*X(345)-JVS(1803)&\n             &*X(346))/(JVS(1797))\nIF (DO_SLV(248)) &\n  X(248) = (X(248)-JVS(1786)*X(253)-JVS(1787)*X(276)-JVS(1788)*X(301)-JVS(1789)*X(303)-JVS(1790)*X(304)-JVS(1791)*X(305)&\n             &-JVS(1792)*X(308)-JVS(1793)*X(335)-JVS(1794)*X(337)-JVS(1795)*X(345)-JVS(1796)*X(346))/(JVS(1785))\nIF (DO_SLV(247)) &\n  X(247) = (X(247)-JVS(1767)*X(250)-JVS(1768)*X(268)-JVS(1769)*X(271)-JVS(1770)*X(293)-JVS(1771)*X(299)-JVS(1772)*X(301)&\n             &-JVS(1773)*X(303)-JVS(1774)*X(308)-JVS(1775)*X(309)-JVS(1776)*X(311)-JVS(1777)*X(328)-JVS(1778)*X(337)&\n             &-JVS(1779)*X(345)-JVS(1780)*X(346)-JVS(1781)*X(351))/(JVS(1766))\nIF (DO_SLV(246)) &\n  X(246) = (X(246)-JVS(1755)*X(320)-JVS(1756)*X(335)-JVS(1757)*X(337)-JVS(1758)*X(345)-JVS(1759)*X(346))/(JVS(1754))\nIF (DO_SLV(245)) &\n  X(245) = (X(245)-JVS(1741)*X(297)-JVS(1742)*X(317)-JVS(1743)*X(328)-JVS(1744)*X(333)-JVS(1745)*X(334)-JVS(1746)*X(338)&\n             &-JVS(1747)*X(339)-JVS(1748)*X(340)-JVS(1749)*X(344)-JVS(1750)*X(345)-JVS(1751)*X(347)-JVS(1752)*X(353))&\n             &/(JVS(1740))\nIF (DO_SLV(244)) &\n  X(244) = (X(244)-JVS(1727)*X(271)-JVS(1728)*X(276)-JVS(1729)*X(287)-JVS(1730)*X(303)-JVS(1731)*X(304)-JVS(1732)*X(309)&\n             &-JVS(1733)*X(311)-JVS(1734)*X(313)-JVS(1735)*X(320)-JVS(1736)*X(337)-JVS(1737)*X(345)-JVS(1738)*X(346))&\n             &/(JVS(1726))\nIF (DO_SLV(243)) &\n  X(243) = (X(243)-JVS(1716)*X(267)-JVS(1717)*X(268)-JVS(1718)*X(304)-JVS(1719)*X(305)-JVS(1720)*X(337)-JVS(1721)*X(345)&\n             &-JVS(1722)*X(346))/(JVS(1715))\nIF (DO_SLV(242)) &\n  X(242) = (X(242)-JVS(1701)*X(280)-JVS(1702)*X(289)-JVS(1703)*X(291)-JVS(1704)*X(324)-JVS(1705)*X(328)-JVS(1706)*X(337)&\n             &-JVS(1707)*X(341)-JVS(1708)*X(345)-JVS(1709)*X(346)-JVS(1710)*X(351))/(JVS(1700))\nIF (DO_SLV(241)) &\n  X(241) = (X(241)-JVS(1692)*X(290)-JVS(1693)*X(329)-JVS(1694)*X(335)-JVS(1695)*X(336)-JVS(1696)*X(341)-JVS(1697)*X(346)&\n             &-JVS(1698)*X(348))/(JVS(1691))\nIF (DO_SLV(240)) &\n  X(240) = (X(240)-JVS(1686)*X(335)-JVS(1687)*X(337)-JVS(1688)*X(345)-JVS(1689)*X(346)-JVS(1690)*X(351))/(JVS(1685))\nIF (DO_SLV(239)) &\n  X(239) = (X(239)-JVS(1666)*X(252)-JVS(1667)*X(269)-JVS(1668)*X(297)-JVS(1669)*X(327)-JVS(1670)*X(335)-JVS(1671)*X(339)&\n             &-JVS(1672)*X(341)-JVS(1673)*X(344)-JVS(1674)*X(345)-JVS(1675)*X(346)-JVS(1676)*X(348)-JVS(1677)*X(349)&\n             &-JVS(1678)*X(350)-JVS(1679)*X(351)-JVS(1680)*X(352)-JVS(1681)*X(353))/(JVS(1665))\nIF (DO_SLV(238)) &\n  X(238) = (X(238)-JVS(1653)*X(267)-JVS(1654)*X(268)-JVS(1655)*X(304)-JVS(1656)*X(305)-JVS(1657)*X(328)-JVS(1658)*X(337)&\n             &-JVS(1659)*X(345)-JVS(1660)*X(346))/(JVS(1652))\nIF (DO_SLV(237)) &\n  X(237) = (X(237)-JVS(1642)*X(281)-JVS(1643)*X(324)-JVS(1644)*X(328)-JVS(1645)*X(337)-JVS(1646)*X(341)-JVS(1647)*X(345)&\n             &-JVS(1648)*X(346)-JVS(1649)*X(351))/(JVS(1641))\nIF (DO_SLV(236)) &\n  X(236) = (X(236)-JVS(1634)*X(328)-JVS(1635)*X(335)-JVS(1636)*X(337)-JVS(1637)*X(341)-JVS(1638)*X(345)-JVS(1639)*X(346)&\n             &-JVS(1640)*X(351))/(JVS(1633))\nIF (DO_SLV(235)) &\n  X(235) = (X(235)-JVS(1620)*X(328)-JVS(1621)*X(335)-JVS(1622)*X(337)-JVS(1623)*X(341)-JVS(1624)*X(345)-JVS(1625)*X(346)&\n             &-JVS(1626)*X(351))/(JVS(1619))\nIF (DO_SLV(234)) &\n  X(234) = (X(234)-JVS(1608)*X(246)-JVS(1609)*X(328)-JVS(1610)*X(337)-JVS(1611)*X(341)-JVS(1612)*X(345)-JVS(1613)*X(346)&\n             &-JVS(1614)*X(351))/(JVS(1607))\nIF (DO_SLV(233)) &\n  X(233) = (X(233)-JVS(1599)*X(337)-JVS(1600)*X(341)-JVS(1601)*X(345)-JVS(1602)*X(346)-JVS(1603)*X(351))/(JVS(1598))\nIF (DO_SLV(232)) &\n  X(232) = (X(232)-JVS(1591)*X(304)-JVS(1592)*X(305)-JVS(1593)*X(337)-JVS(1594)*X(345)-JVS(1595)*X(346))/(JVS(1590))\nIF (DO_SLV(231)) &\n  X(231) = (X(231)-JVS(1584)*X(276)-JVS(1585)*X(304)-JVS(1586)*X(337)-JVS(1587)*X(345))/(JVS(1583))\nIF (DO_SLV(230)) &\n  X(230) = (X(230)-JVS(1578)*X(276)-JVS(1579)*X(305)-JVS(1580)*X(337)-JVS(1581)*X(345))/(JVS(1577))\nIF (DO_SLV(229)) &\n  X(229) = (X(229)-JVS(1571)*X(291)-JVS(1572)*X(337)-JVS(1573)*X(341)-JVS(1574)*X(345)-JVS(1575)*X(351))/(JVS(1570))\nIF (DO_SLV(228)) &\n  X(228) = (X(228)-JVS(1564)*X(290)-JVS(1565)*X(326)-JVS(1566)*X(334)-JVS(1567)*X(340)-JVS(1568)*X(341)-JVS(1569)&\n             &*X(345))/(JVS(1563))\nIF (DO_SLV(227)) &\n  X(227) = (X(227)-JVS(1551)*X(230)-JVS(1552)*X(231)-JVS(1553)*X(258)-JVS(1554)*X(285)-JVS(1555)*X(286)-JVS(1556)*X(288)&\n             &-JVS(1557)*X(301)-JVS(1558)*X(302)-JVS(1559)*X(303)-JVS(1560)*X(337)-JVS(1561)*X(345)-JVS(1562)*X(346))&\n             &/(JVS(1550))\nIF (DO_SLV(226)) &\n  X(226) = (X(226)-JVS(1542)*X(311)-JVS(1543)*X(337)-JVS(1544)*X(345)-JVS(1545)*X(346))/(JVS(1541))\nIF (DO_SLV(225)) &\n  X(225) = (X(225)-JVS(1532)*X(277)-JVS(1533)*X(324)-JVS(1534)*X(328)-JVS(1535)*X(337)-JVS(1536)*X(341)-JVS(1537)*X(345)&\n             &-JVS(1538)*X(346)-JVS(1539)*X(351))/(JVS(1531))\nIF (DO_SLV(224)) &\n  X(224) = (X(224)-JVS(1524)*X(304)-JVS(1525)*X(337)-JVS(1526)*X(345)-JVS(1527)*X(346))/(JVS(1523))\nIF (DO_SLV(223)) &\n  X(223) = (X(223)-JVS(1517)*X(305)-JVS(1518)*X(337)-JVS(1519)*X(345)-JVS(1520)*X(346))/(JVS(1516))\nIF (DO_SLV(222)) &\n  X(222) = (X(222)-JVS(1509)*X(310)-JVS(1510)*X(311)-JVS(1511)*X(328)-JVS(1512)*X(337)-JVS(1513)*X(345))/(JVS(1508))\nIF (DO_SLV(221)) &\n  X(221) = (X(221)-JVS(1504)*X(269)-JVS(1505)*X(341)-JVS(1506)*X(345)-JVS(1507)*X(351))/(JVS(1503))\nIF (DO_SLV(220)) &\n  X(220) = (X(220)-JVS(1492)*X(341)-JVS(1493)*X(345)-JVS(1494)*X(351))/(JVS(1491))\nIF (DO_SLV(219)) &\n  X(219) = (X(219)-JVS(1488)*X(341)-JVS(1489)*X(345)-JVS(1490)*X(351))/(JVS(1487))\nIF (DO_SLV(218)) &\n  X(218) = (X(218)-JVS(1482)*X(335)-JVS(1483)*X(336)-JVS(1484)*X(339)-JVS(1485)*X(342)-JVS(1486)*X(347))/(JVS(1481))\nIF (DO_SLV(217)) &\n  X(217) = (X(217)-JVS(1471)*X(228)-JVS(1472)*X(325)-JVS(1473)*X(334)-JVS(1474)*X(337)-JVS(1475)*X(339)-JVS(1476)*X(340)&\n             &-JVS(1477)*X(341)-JVS(1478)*X(343)-JVS(1479)*X(345)-JVS(1480)*X(352))/(JVS(1470))\nIF (DO_SLV(216)) &\n  X(216) = (X(216)-JVS(1459)*X(226)-JVS(1460)*X(268)-JVS(1461)*X(271)-JVS(1462)*X(293)-JVS(1463)*X(301)-JVS(1464)*X(308)&\n             &-JVS(1465)*X(328)-JVS(1466)*X(337)-JVS(1467)*X(345)-JVS(1468)*X(346))/(JVS(1458))\nIF (DO_SLV(215)) &\n  X(215) = (X(215)-JVS(1445)*X(230)-JVS(1446)*X(231)-JVS(1447)*X(267)-JVS(1448)*X(268)-JVS(1449)*X(276)-JVS(1450)*X(301)&\n             &-JVS(1451)*X(304)-JVS(1452)*X(305)-JVS(1453)*X(311)-JVS(1454)*X(337)-JVS(1455)*X(345)-JVS(1456)*X(346))&\n             &/(JVS(1444))\nIF (DO_SLV(214)) &\n  X(214) = (X(214)-JVS(1426)*X(335)-JVS(1427)*X(336)-JVS(1428)*X(339)-JVS(1429)*X(344)-JVS(1430)*X(351)-JVS(1431)&\n             &*X(353))/(JVS(1425))\nIF (DO_SLV(213)) &\n  X(213) = (X(213)-JVS(1419)*X(306)-JVS(1420)*X(335)-JVS(1421)*X(337)-JVS(1422)*X(345)-JVS(1423)*X(346)-JVS(1424)&\n             &*X(351))/(JVS(1418))\nIF (DO_SLV(212)) &\n  X(212) = (X(212)-JVS(1412)*X(337)-JVS(1413)*X(341)-JVS(1414)*X(345)-JVS(1415)*X(346)-JVS(1416)*X(351))/(JVS(1411))\nIF (DO_SLV(211)) &\n  X(211) = (X(211)-JVS(1405)*X(281)-JVS(1406)*X(341)-JVS(1407)*X(345)-JVS(1408)*X(346)-JVS(1409)*X(351))/(JVS(1404))\nIF (DO_SLV(210)) &\n  X(210) = (X(210)-JVS(1395)*X(223)-JVS(1396)*X(226)-JVS(1397)*X(271)-JVS(1398)*X(276)-JVS(1399)*X(303)-JVS(1400)*X(305)&\n             &-JVS(1401)*X(337)-JVS(1402)*X(345)-JVS(1403)*X(346))/(JVS(1394))\nIF (DO_SLV(209)) &\n  X(209) = (X(209)-JVS(1390)*X(305)-JVS(1391)*X(337)-JVS(1392)*X(345))/(JVS(1389))\nIF (DO_SLV(208)) &\n  X(208) = (X(208)-JVS(1380)*X(243)-JVS(1381)*X(254)-JVS(1382)*X(258)-JVS(1383)*X(285)-JVS(1384)*X(286)-JVS(1385)*X(288)&\n             &-JVS(1386)*X(337)-JVS(1387)*X(345)-JVS(1388)*X(346))/(JVS(1379))\nIF (DO_SLV(207)) &\n  X(207) = (X(207)-JVS(1373)*X(267)-JVS(1374)*X(337)-JVS(1375)*X(345)-JVS(1376)*X(346))/(JVS(1372))\nIF (DO_SLV(206)) &\n  X(206) = (X(206)-JVS(1368)*X(268)-JVS(1369)*X(337)-JVS(1370)*X(345)-JVS(1371)*X(346))/(JVS(1367))\nIF (DO_SLV(205)) &\n  X(205) = (X(205)-JVS(1363)*X(305)-JVS(1364)*X(337)-JVS(1365)*X(345)-JVS(1366)*X(346))/(JVS(1362))\nIF (DO_SLV(204)) &\n  X(204) = (X(204)-JVS(1355)*X(220)-JVS(1356)*X(337)-JVS(1357)*X(341)-JVS(1358)*X(345)-JVS(1359)*X(346)-JVS(1360)&\n             &*X(351))/(JVS(1354))\nIF (DO_SLV(203)) &\n  X(203) = (X(203)-JVS(1338)*X(220)-JVS(1339)*X(235)-JVS(1340)*X(236)-JVS(1341)*X(328)-JVS(1342)*X(335)-JVS(1343)*X(337)&\n             &-JVS(1344)*X(341)-JVS(1345)*X(345)-JVS(1346)*X(346)-JVS(1347)*X(351))/(JVS(1337))\nIF (DO_SLV(202)) &\n  X(202) = (X(202)-JVS(1328)*X(220)-JVS(1329)*X(341)-JVS(1330)*X(345)-JVS(1331)*X(351))/(JVS(1327))\nIF (DO_SLV(201)) &\n  X(201) = (X(201)-JVS(1321)*X(341)-JVS(1322)*X(345)-JVS(1323)*X(351))/(JVS(1320))\nIF (DO_SLV(200)) &\n  X(200) = (X(200)-JVS(1313)*X(345)-JVS(1314)*X(351))/(JVS(1312))\nIF (DO_SLV(199)) &\n  X(199) = (X(199)-JVS(1309)*X(304)-JVS(1310)*X(337)-JVS(1311)*X(345))/(JVS(1308))\nIF (DO_SLV(198)) &\n  X(198) = (X(198)-JVS(1303)*X(223)-JVS(1304)*X(224)-JVS(1305)*X(232)-JVS(1306)*X(337)-JVS(1307)*X(345))/(JVS(1302))\nIF (DO_SLV(197)) &\n  X(197) = (X(197)-JVS(1296)*X(233)-JVS(1297)*X(335)-JVS(1298)*X(337)-JVS(1299)*X(345)-JVS(1300)*X(346))/(JVS(1295))\nIF (DO_SLV(196)) &\n  X(196) = (X(196)-JVS(1290)*X(337)-JVS(1291)*X(345)-JVS(1292)*X(346)-JVS(1293)*X(351))/(JVS(1289))\nIF (DO_SLV(195)) &\n  X(195) = (X(195)-JVS(1283)*X(220)-JVS(1284)*X(341)-JVS(1285)*X(345)-JVS(1286)*X(351))/(JVS(1282))\nIF (DO_SLV(194)) &\n  X(194) = (X(194)-JVS(1276)*X(230)-JVS(1277)*X(231)-JVS(1278)*X(301)-JVS(1279)*X(303)-JVS(1280)*X(345))/(JVS(1275))\nIF (DO_SLV(193)) &\n  X(193) = (X(193)-JVS(1270)*X(291)-JVS(1271)*X(341)-JVS(1272)*X(345)-JVS(1273)*X(346)-JVS(1274)*X(351))/(JVS(1269))\nIF (DO_SLV(192)) &\n  X(192) = (X(192)-JVS(1266)*X(304)-JVS(1267)*X(337)-JVS(1268)*X(345))/(JVS(1265))\nIF (DO_SLV(191)) &\n  X(191) = (X(191)-JVS(1262)*X(341)-JVS(1263)*X(345)-JVS(1264)*X(351))/(JVS(1261))\nIF (DO_SLV(190)) &\n  X(190) = (X(190)-JVS(1257)*X(304)-JVS(1258)*X(337)-JVS(1259)*X(345)-JVS(1260)*X(346))/(JVS(1256))\nIF (DO_SLV(189)) &\n  X(189) = (X(189)-JVS(1249)*X(200)-JVS(1250)*X(220)-JVS(1251)*X(337)-JVS(1252)*X(345)-JVS(1253)*X(346)-JVS(1254)&\n             &*X(351))/(JVS(1248))\nIF (DO_SLV(188)) &\n  X(188) = (X(188)-JVS(1235)*X(249)-JVS(1236)*X(250)-JVS(1237)*X(260)-JVS(1238)*X(289)-JVS(1239)*X(300)-JVS(1240)*X(318)&\n             &-JVS(1241)*X(319)-JVS(1242)*X(320)-JVS(1243)*X(321)-JVS(1244)*X(323)-JVS(1245)*X(328)-JVS(1246)*X(345))&\n             &/(JVS(1234))\nIF (DO_SLV(187)) &\n  X(187) = (X(187)-JVS(1231)*X(305)-JVS(1232)*X(337)-JVS(1233)*X(345))/(JVS(1230))\nIF (DO_SLV(186)) &\n  X(186) = (X(186)-JVS(1227)*X(311)-JVS(1228)*X(337)-JVS(1229)*X(345))/(JVS(1226))\nIF (DO_SLV(185)) &\n  X(185) = (X(185)-JVS(1220)*X(230)-JVS(1221)*X(231)-JVS(1222)*X(285)-JVS(1223)*X(286)-JVS(1224)*X(301)-JVS(1225)&\n             &*X(345))/(JVS(1219))\nIF (DO_SLV(184)) &\n  X(184) = (X(184)-JVS(1213)*X(259)-JVS(1214)*X(308)-JVS(1215)*X(335)-JVS(1216)*X(345))/(JVS(1212))\nIF (DO_SLV(183)) &\n  X(183) = (X(183)-JVS(1208)*X(340)-JVS(1209)*X(342)-JVS(1210)*X(345)-JVS(1211)*X(351))/(JVS(1207))\nIF (DO_SLV(182)) &\n  X(182) = (X(182)-JVS(1202)*X(301)-JVS(1203)*X(303)-JVS(1204)*X(337)-JVS(1205)*X(345)-JVS(1206)*X(346))/(JVS(1201))\nIF (DO_SLV(181)) &\n  X(181) = (X(181)-JVS(1198)*X(334)-JVS(1199)*X(340)-JVS(1200)*X(345))/(JVS(1197))\nIF (DO_SLV(180)) &\n  X(180) = (X(180)-JVS(1193)*X(299)-JVS(1194)*X(337)-JVS(1195)*X(345)-JVS(1196)*X(346))/(JVS(1192))\nIF (DO_SLV(179)) &\n  X(179) = (X(179)-JVS(1188)*X(327)-JVS(1189)*X(339)-JVS(1190)*X(341)-JVS(1191)*X(348))/(JVS(1187))\nIF (DO_SLV(178)) &\n  X(178) = (X(178)-JVS(1183)*X(337)-JVS(1184)*X(345)-JVS(1185)*X(346)-JVS(1186)*X(351))/(JVS(1182))\nIF (DO_SLV(177)) &\n  X(177) = (X(177)-JVS(1172)*X(211)-JVS(1173)*X(237)-JVS(1174)*X(255)-JVS(1175)*X(272)-JVS(1176)*X(341)-JVS(1177)*X(345)&\n             &-JVS(1178)*X(346)-JVS(1179)*X(351))/(JVS(1171))\nIF (DO_SLV(176)) &\n  X(176) = (X(176)-JVS(1167)*X(277)-JVS(1168)*X(278)-JVS(1169)*X(345)-JVS(1170)*X(346))/(JVS(1166))\nIF (DO_SLV(175)) &\n  X(175) = (X(175)-JVS(1162)*X(305)-JVS(1163)*X(345)-JVS(1164)*X(346))/(JVS(1161))\nIF (DO_SLV(174)) &\n  X(174) = (X(174)-JVS(1156)*X(223)-JVS(1157)*X(224)-JVS(1158)*X(232)-JVS(1159)*X(337)-JVS(1160)*X(345))/(JVS(1155))\nIF (DO_SLV(173)) &\n  X(173) = (X(173)-JVS(1145)*X(200)-JVS(1146)*X(201)-JVS(1147)*X(221)-JVS(1148)*X(240)-JVS(1149)*X(246)-JVS(1150)*X(289)&\n             &-JVS(1151)*X(322)-JVS(1152)*X(324)-JVS(1153)*X(337)-JVS(1154)*X(345))/(JVS(1144))\nIF (DO_SLV(172)) &\n  X(172) = (X(172)-JVS(1138)*X(231)-JVS(1139)*X(301)-JVS(1140)*X(335)-JVS(1141)*X(337)-JVS(1142)*X(346))/(JVS(1137))\nIF (DO_SLV(171)) &\n  X(171) = (X(171)-JVS(1132)*X(230)-JVS(1133)*X(301)-JVS(1134)*X(335)-JVS(1135)*X(337)-JVS(1136)*X(346))/(JVS(1131))\nIF (DO_SLV(170)) &\n  X(170) = (X(170)-JVS(1125)*X(252)-JVS(1126)*X(331)-JVS(1127)*X(332)-JVS(1128)*X(345)-JVS(1129)*X(346)-JVS(1130)&\n             &*X(351))/(JVS(1124))\nIF (DO_SLV(169)) &\n  X(169) = (X(169)-JVS(1118)*X(272)-JVS(1119)*X(274)-JVS(1120)*X(328)-JVS(1121)*X(337)-JVS(1122)*X(345))/(JVS(1117))\nIF (DO_SLV(168)) &\n  X(168) = (X(168)-JVS(1114)*X(304)-JVS(1115)*X(345)-JVS(1116)*X(346))/(JVS(1113))\nIF (DO_SLV(167)) &\n  X(167) = (X(167)-JVS(1110)*X(341)-JVS(1111)*X(345)-JVS(1112)*X(351))/(JVS(1109))\nIF (DO_SLV(166)) &\n  X(166) = (X(166)-JVS(1105)*X(327)-JVS(1106)*X(339)-JVS(1107)*X(341)-JVS(1108)*X(348))/(JVS(1104))\nIF (DO_SLV(165)) &\n  X(165) = (X(165)-JVS(1100)*X(196)-JVS(1101)*X(337)-JVS(1102)*X(345)-JVS(1103)*X(346))/(JVS(1099))\nIF (DO_SLV(164)) &\n  X(164) = (X(164)-JVS(1095)*X(328)-JVS(1096)*X(337)-JVS(1097)*X(340)-JVS(1098)*X(345))/(JVS(1094))\nIF (DO_SLV(163)) &\n  X(163) = (X(163)-JVS(1087)*X(255)-JVS(1088)*X(272)-JVS(1089)*X(328)-JVS(1090)*X(341)-JVS(1091)*X(345)-JVS(1092)*X(346)&\n             &-JVS(1093)*X(351))/(JVS(1086))\nIF (DO_SLV(162)) &\n  X(162) = (X(162)-JVS(1082)*X(273)-JVS(1083)*X(275)-JVS(1084)*X(345)-JVS(1085)*X(346))/(JVS(1081))\nIF (DO_SLV(161)) &\n  X(161) = (X(161)-JVS(1076)*X(273)-JVS(1077)*X(328)-JVS(1078)*X(337)-JVS(1079)*X(345))/(JVS(1075))\nIF (DO_SLV(160)) &\n  X(160) = (X(160)-JVS(1071)*X(278)-JVS(1072)*X(328)-JVS(1073)*X(337)-JVS(1074)*X(345))/(JVS(1070))\nIF (DO_SLV(159)) &\n  X(159) = (X(159)-JVS(1067)*X(259)-JVS(1068)*X(337)-JVS(1069)*X(345))/(JVS(1066))\nIF (DO_SLV(158)) &\n  X(158) = (X(158)-JVS(1063)*X(200)-JVS(1064)*X(345)-JVS(1065)*X(351))/(JVS(1062))\nIF (DO_SLV(157)) &\n  X(157) = (X(157)-JVS(1046)*X(218)-JVS(1047)*X(297)-JVS(1048)*X(316)-JVS(1049)*X(317)-JVS(1050)*X(333)-JVS(1051)*X(338)&\n             &-JVS(1052)*X(339)-JVS(1053)*X(344)-JVS(1054)*X(347)-JVS(1055)*X(349)-JVS(1056)*X(350)-JVS(1057)*X(352)&\n             &-JVS(1058)*X(353))/(JVS(1045))\nIF (DO_SLV(156)) &\n  X(156) = (X(156)-JVS(1040)*X(296)-JVS(1041)*X(315)-JVS(1042)*X(328)-JVS(1043)*X(340)-JVS(1044)*X(345))/(JVS(1039))\nIF (DO_SLV(155)) &\n  X(155) = (X(155)-JVS(1034)*X(240)-JVS(1035)*X(246)-JVS(1036)*X(322)-JVS(1037)*X(337)-JVS(1038)*X(345))/(JVS(1033))\nIF (DO_SLV(154)) &\n  X(154) = (X(154)-JVS(1028)*X(242)-JVS(1029)*X(256)-JVS(1030)*X(341)-JVS(1031)*X(345)-JVS(1032)*X(351))/(JVS(1027))\nIF (DO_SLV(153)) &\n  X(153) = (X(153)-JVS(1022)*X(258)-JVS(1023)*X(285)-JVS(1024)*X(337)-JVS(1025)*X(345)-JVS(1026)*X(346))/(JVS(1021))\nIF (DO_SLV(152)) &\n  X(152) = (X(152)-JVS(1016)*X(168)-JVS(1017)*X(175)-JVS(1018)*X(187)-JVS(1019)*X(192)-JVS(1020)*X(345))/(JVS(1015))\nIF (DO_SLV(151)) &\n  X(151) = (X(151)-JVS(1010)*X(168)-JVS(1011)*X(175)-JVS(1012)*X(187)-JVS(1013)*X(192)-JVS(1014)*X(345))/(JVS(1009))\nIF (DO_SLV(150)) &\n  X(150) = (X(150)-JVS(1005)*X(209)-JVS(1006)*X(276)-JVS(1007)*X(305)-JVS(1008)*X(345))/(JVS(1004))\nIF (DO_SLV(149)) &\n  X(149) = (X(149)-JVS(1002)*X(345)-JVS(1003)*X(351))/(JVS(1001))\nIF (DO_SLV(148)) &\n  X(148) = (X(148)-JVS(993)*X(218)-JVS(994)*X(316)-JVS(995)*X(342)-JVS(996)*X(345)-JVS(997)*X(347)-JVS(998)*X(349)&\n             &-JVS(999)*X(350)-JVS(1000)*X(352))/(JVS(992))\nIF (DO_SLV(147)) &\n  X(147) = (X(147)-JVS(989)*X(285)-JVS(990)*X(286)-JVS(991)*X(345))/(JVS(988))\nIF (DO_SLV(146)) &\n  X(146) = (X(146)-JVS(984)*X(200)-JVS(985)*X(337)-JVS(986)*X(345)-JVS(987)*X(346))/(JVS(983))\nIF (DO_SLV(145)) &\n  X(145) = (X(145)-JVS(974)*X(186)-JVS(975)*X(299)-JVS(976)*X(310)-JVS(977)*X(311)-JVS(978)*X(324)-JVS(979)*X(328)&\n             &-JVS(980)*X(346)-JVS(981)*X(351))/(JVS(973))\nIF (DO_SLV(144)) &\n  X(144) = (X(144)-JVS(969)*X(199)-JVS(970)*X(276)-JVS(971)*X(304)-JVS(972)*X(345))/(JVS(968))\nIF (DO_SLV(143)) &\n  X(143) = (X(143)-JVS(965)*X(220)-JVS(966)*X(341)-JVS(967)*X(345))/(JVS(964))\nIF (DO_SLV(142)) &\n  X(142) = (X(142)-JVS(961)*X(340)-JVS(962)*X(345)-JVS(963)*X(351))/(JVS(960))\nIF (DO_SLV(141)) &\n  X(141) = (X(141)-JVS(957)*X(340)-JVS(958)*X(342)-JVS(959)*X(345))/(JVS(956))\nIF (DO_SLV(140)) &\n  X(140) = (X(140)-JVS(953)*X(341)-JVS(954)*X(345)-JVS(955)*X(351))/(JVS(952))\nIF (DO_SLV(139)) &\n  X(139) = (X(139)-JVS(949)*X(324)-JVS(950)*X(335)-JVS(951)*X(345))/(JVS(948))\nIF (DO_SLV(138)) &\n  X(138) = (X(138)-JVS(945)*X(275)-JVS(946)*X(345)-JVS(947)*X(346))/(JVS(944))\nIF (DO_SLV(137)) &\n  X(137) = (X(137)-JVS(941)*X(277)-JVS(942)*X(345)-JVS(943)*X(346))/(JVS(940))\nIF (DO_SLV(136)) &\n  X(136) = (X(136)-JVS(936)*X(234)-JVS(937)*X(328)-JVS(938)*X(337)-JVS(939)*X(345))/(JVS(935))\nIF (DO_SLV(135)) &\n  X(135) = (X(135)-JVS(931)*X(231)-JVS(932)*X(337)-JVS(933)*X(345)-JVS(934)*X(346))/(JVS(930))\nIF (DO_SLV(134)) &\n  X(134) = (X(134)-JVS(920)*X(179)-JVS(921)*X(241)-JVS(922)*X(264)-JVS(923)*X(312)-JVS(924)*X(316)-JVS(925)*X(325)&\n             &-JVS(926)*X(333)-JVS(927)*X(341)-JVS(928)*X(345)-JVS(929)*X(348))/(JVS(919))\nIF (DO_SLV(133)) &\n  X(133) = (X(133)-JVS(914)*X(230)-JVS(915)*X(337)-JVS(916)*X(345)-JVS(917)*X(346))/(JVS(913))\nIF (DO_SLV(132)) &\n  X(132) = (X(132)-JVS(909)*X(233)-JVS(910)*X(337)-JVS(911)*X(345)-JVS(912)*X(346))/(JVS(908))\nIF (DO_SLV(131)) &\n  X(131) = (X(131)-JVS(903)*X(258)-JVS(904)*X(286)-JVS(905)*X(337)-JVS(906)*X(345)-JVS(907)*X(346))/(JVS(902))\nIF (DO_SLV(130)) &\n  X(130) = (X(130)-JVS(898)*X(274)-JVS(899)*X(328)-JVS(900)*X(337)-JVS(901)*X(345))/(JVS(897))\nIF (DO_SLV(129)) &\n  X(129) = (X(129)-JVS(887)*X(138)-JVS(888)*X(191)-JVS(889)*X(275)-JVS(890)*X(324)-JVS(891)*X(328)-JVS(892)*X(337)&\n             &-JVS(893)*X(341)-JVS(894)*X(345)-JVS(895)*X(346)-JVS(896)*X(351))/(JVS(886))\nIF (DO_SLV(128)) &\n  X(128) = (X(128)-JVS(880)*X(199)-JVS(881)*X(209)-JVS(882)*X(267)-JVS(883)*X(268)-JVS(884)*X(345))/(JVS(879))\nIF (DO_SLV(127)) &\n  X(127) = (X(127)-JVS(876)*X(212)-JVS(877)*X(345)-JVS(878)*X(346))/(JVS(875))\nIF (DO_SLV(126)) &\n  X(126) = (X(126)-JVS(872)*X(197)-JVS(873)*X(335)-JVS(874)*X(345))/(JVS(871))\nIF (DO_SLV(125)) &\n  X(125) = (X(125)-JVS(868)*X(250)-JVS(869)*X(337)-JVS(870)*X(345))/(JVS(867))\nIF (DO_SLV(124)) &\n  X(124) = (X(124)-JVS(864)*X(322)-JVS(865)*X(335)-JVS(866)*X(345))/(JVS(863))\nIF (DO_SLV(123)) &\n  X(123) = (X(123)-JVS(860)*X(260)-JVS(861)*X(337)-JVS(862)*X(345))/(JVS(859))\nIF (DO_SLV(122)) &\n  X(122) = (X(122)-JVS(856)*X(240)-JVS(857)*X(335)-JVS(858)*X(345))/(JVS(855))\nIF (DO_SLV(121)) &\n  X(121) = (X(121)-JVS(851)*X(200)-JVS(852)*X(337)-JVS(853)*X(345)-JVS(854)*X(346))/(JVS(850))\nIF (DO_SLV(120)) &\n  X(120) = (X(120)-JVS(845)*X(284)-JVS(846)*X(338)-JVS(847)*X(345)-JVS(848)*X(347))/(JVS(844))\nIF (DO_SLV(119)) &\n  X(119) = (X(119)-JVS(840)*X(230)-JVS(841)*X(231)-JVS(842)*X(301)-JVS(843)*X(345))/(JVS(839))\nIF (DO_SLV(118)) &\n  X(118) = (X(118)-JVS(835)*X(296)-JVS(836)*X(315)-JVS(837)*X(337)-JVS(838)*X(345))/(JVS(834))\nIF (DO_SLV(117)) &\n  X(117) = (X(117)-JVS(829)*X(235)-JVS(830)*X(236)-JVS(831)*X(335)-JVS(832)*X(337)-JVS(833)*X(345))/(JVS(828))\nIF (DO_SLV(116)) &\n  X(116) = (X(116)-JVS(824)*X(189)-JVS(825)*X(345)-JVS(826)*X(346))/(JVS(823))\nIF (DO_SLV(115)) &\n  X(115) = (X(115)-JVS(818)*X(194)-JVS(819)*X(302)-JVS(820)*X(314)-JVS(821)*X(341)-JVS(822)*X(345))/(JVS(817))\nIF (DO_SLV(114)) &\n  X(114) = (X(114)-JVS(814)*X(213)-JVS(815)*X(335)-JVS(816)*X(345))/(JVS(813))\nIF (DO_SLV(113)) &\n  X(113) = (X(113)-JVS(810)*X(246)-JVS(811)*X(335)-JVS(812)*X(345))/(JVS(809))\nIF (DO_SLV(112)) &\n  X(112) = (X(112)-JVS(806)*X(275)-JVS(807)*X(337)-JVS(808)*X(345))/(JVS(805))\nIF (DO_SLV(111)) &\n  X(111) = (X(111)-JVS(802)*X(277)-JVS(803)*X(337)-JVS(804)*X(345))/(JVS(801))\nIF (DO_SLV(110)) &\n  X(110) = (X(110)-JVS(796)*X(328)-JVS(797)*X(338)-JVS(798)*X(340)-JVS(799)*X(345)-JVS(800)*X(347))/(JVS(795))\nIF (DO_SLV(109)) &\n  X(109) = (X(109)-JVS(791)*X(233)-JVS(792)*X(341)-JVS(793)*X(345))/(JVS(790))\nIF (DO_SLV(108)) &\n  X(108) = (X(108)-JVS(787)*X(335)-JVS(788)*X(337)-JVS(789)*X(345))/(JVS(786))\nIF (DO_SLV(107)) &\n  X(107) = (X(107)-JVS(783)*X(159)-JVS(784)*X(184)-JVS(785)*X(345))/(JVS(782))\nIF (DO_SLV(106)) &\n  X(106) = (X(106)-JVS(777)*X(136)-JVS(778)*X(234)-JVS(779)*X(328)-JVS(780)*X(346)-JVS(781)*X(351))/(JVS(776))\nIF (DO_SLV(105)) &\n  X(105) = (X(105)-JVS(774)*X(334)-JVS(775)*X(345))/(JVS(773))\nIF (DO_SLV(104)) &\n  X(104) = (X(104)-JVS(766)*X(252)-JVS(767)*X(284)-JVS(768)*X(330)-JVS(769)*X(332)-JVS(770)*X(338)-JVS(771)*X(344)&\n             &-JVS(772)*X(353))/(JVS(765))\nIF (DO_SLV(103)) &\n  X(103) = (X(103)-JVS(752)*X(168)-JVS(753)*X(175)-JVS(754)*X(186)-JVS(755)*X(216)-JVS(756)*X(222)-JVS(757)*X(248)&\n             &-JVS(758)*X(251)-JVS(759)*X(266)-JVS(760)*X(267)-JVS(761)*X(268)-JVS(762)*X(299)-JVS(763)*X(302)-JVS(764)&\n             &*X(303))/(JVS(751))\nIF (DO_SLV(102)) &\n  X(102) = (X(102)-JVS(748)*X(300)-JVS(749)*X(337)-JVS(750)*X(345))/(JVS(747))\nIF (DO_SLV(101)) &\n  X(101) = (X(101)-JVS(746)*X(345))/(JVS(745))\nIF (DO_SLV(100)) &\n  X(100) = (X(100)-JVS(742)*X(323)-JVS(743)*X(337)-JVS(744)*X(345))/(JVS(741))\nIF (DO_SLV(99)) &\n  X(99) = (X(99)-JVS(738)*X(321)-JVS(739)*X(337)-JVS(740)*X(345))/(JVS(737))\nIF (DO_SLV(98)) &\n  X(98) = (X(98)-JVS(734)*X(178)-JVS(735)*X(337)-JVS(736)*X(345))/(JVS(733))\nIF (DO_SLV(97)) &\n  X(97) = (X(97)-JVS(730)*X(319)-JVS(731)*X(337)-JVS(732)*X(345))/(JVS(729))\nIF (DO_SLV(96)) &\n  X(96) = (X(96)-JVS(726)*X(284)-JVS(727)*X(346)-JVS(728)*X(347))/(JVS(725))\nIF (DO_SLV(95)) &\n  X(95) = (X(95)-JVS(719)*X(321)-JVS(720)*X(345)-JVS(721)*X(346))/(JVS(718))\nIF (DO_SLV(94)) &\n  X(94) = (X(94)-JVS(716)*X(345)-JVS(717)*X(351))/(JVS(715))\nIF (DO_SLV(93)) &\n  X(93) = (X(93)-JVS(712)*X(328)-JVS(713)*X(345)-JVS(714)*X(346))/(JVS(711))\nIF (DO_SLV(92)) &\n  X(92) = (X(92)-JVS(708)*X(324)-JVS(709)*X(337)-JVS(710)*X(345))/(JVS(707))\nIF (DO_SLV(91)) &\n  X(91) = (X(91)-JVS(704)*X(323)-JVS(705)*X(345)-JVS(706)*X(346))/(JVS(703))\nIF (DO_SLV(90)) &\n  X(90) = (X(90)-JVS(700)*X(235)-JVS(701)*X(335)-JVS(702)*X(345))/(JVS(699))\nIF (DO_SLV(89)) &\n  X(89) = (X(89)-JVS(696)*X(325)-JVS(697)*X(345)-JVS(698)*X(348))/(JVS(695))\nIF (DO_SLV(88)) &\n  X(88) = (X(88)-JVS(692)*X(312)-JVS(693)*X(336)-JVS(694)*X(345))/(JVS(691))\nIF (DO_SLV(87)) &\n  X(87) = (X(87)-JVS(689)*X(334)-JVS(690)*X(345))/(JVS(688))\nIF (DO_SLV(86)) &\n  X(86) = (X(86)-JVS(686)*X(334)-JVS(687)*X(345))/(JVS(685))\nIF (DO_SLV(85)) &\n  X(85) = (X(85)-JVS(683)*X(334)-JVS(684)*X(345))/(JVS(682))\nIF (DO_SLV(84)) &\n  X(84) = (X(84)-JVS(680)*X(334)-JVS(681)*X(345))/(JVS(679))\nIF (DO_SLV(83)) &\n  X(83) = (X(83)-JVS(676)*X(296)-JVS(677)*X(345)-JVS(678)*X(346))/(JVS(675))\nIF (DO_SLV(82)) &\n  X(82) = (X(82)-JVS(674)*X(345))/(JVS(673))\nIF (DO_SLV(81)) &\n  X(81) = (X(81)-JVS(671)*X(334)-JVS(672)*X(345))/(JVS(670))\nIF (DO_SLV(80)) &\n  X(80) = (X(80)-JVS(668)*X(328)-JVS(669)*X(335))/(JVS(667))\nIF (DO_SLV(79)) &\n  X(79) = (X(79)-JVS(665)*X(340)-JVS(666)*X(345))/(JVS(664))\nIF (DO_SLV(78)) &\n  X(78) = (X(78)-JVS(662)*X(334)-JVS(663)*X(345))/(JVS(661))\nIF (DO_SLV(77)) &\n  X(77) = (X(77)-JVS(656)*X(252)-JVS(657)*X(330)-JVS(658)*X(332)-JVS(659)*X(349)-JVS(660)*X(350))/(JVS(655))\nIF (DO_SLV(76)) &\n  X(76) = (X(76)-JVS(653)*X(338)-JVS(654)*X(345))/(JVS(652))\nIF (DO_SLV(75)) &\n  X(75) = (X(75)-JVS(650)*X(340)-JVS(651)*X(345))/(JVS(649))\nIF (DO_SLV(74)) &\n  X(74) = (X(74)-JVS(646)*X(257)-JVS(647)*X(337)-JVS(648)*X(345))/(JVS(645))\nIF (DO_SLV(73)) &\n  X(73) = (X(73)-JVS(642)*X(331)-JVS(643)*X(337)-JVS(644)*X(345))/(JVS(641))\nIF (DO_SLV(72)) &\n  X(72) = (X(72)-JVS(638)*X(213)-JVS(639)*X(337)-JVS(640)*X(345))/(JVS(637))\nIF (DO_SLV(71)) &\n  X(71) = (X(71)-JVS(634)*X(235)-JVS(635)*X(337)-JVS(636)*X(345))/(JVS(633))\nIF (DO_SLV(70)) &\n  X(70) = (X(70)-JVS(630)*X(234)-JVS(631)*X(345)-JVS(632)*X(346))/(JVS(629))\nIF (DO_SLV(69)) &\n  X(69) = (X(69)-JVS(627)*X(345)-JVS(628)*X(351))/(JVS(626))\nIF (DO_SLV(68)) &\n  X(68) = (X(68)-JVS(624)*X(343)-JVS(625)*X(345))/(JVS(623))\nIF (DO_SLV(67)) &\n  X(67) = (X(67)-JVS(621)*X(335)-JVS(622)*X(346))/(JVS(620))\nIF (DO_SLV(66)) &\n  X(66) = (X(66)-JVS(616)*X(257)-JVS(617)*X(328)-JVS(618)*X(337)-JVS(619)*X(345))/(JVS(615))\nIF (DO_SLV(65)) &\n  X(65) = (X(65)-JVS(612)*X(166)-JVS(613)*X(327)-JVS(614)*X(351))/(JVS(611))\nIF (DO_SLV(64)) &\n  X(64) = (X(64)-JVS(608)*X(179)-JVS(609)*X(327)-JVS(610)*X(351))/(JVS(607))\nIF (DO_SLV(63)) &\n  X(63) = (X(63)-JVS(604)*X(67)-JVS(605)*X(334)-JVS(606)*X(335))/(JVS(603))\nIF (DO_SLV(62)) &\n  X(62) = (X(62)-JVS(601)*X(331)-JVS(602)*X(346))/(JVS(600))\nIF (DO_SLV(61)) &\n  X(61) = (X(61)-JVS(599)*X(334))/(JVS(598))\nIF (DO_SLV(60)) &\n  X(60) = (X(60)-JVS(597)*X(345))/(JVS(596))\nIF (DO_SLV(59)) &\n  X(59) = (X(59)-JVS(594)*X(335)-JVS(595)*X(342))/(JVS(593))\nIF (DO_SLV(58)) &\n  X(58) = (X(58)-JVS(591)*X(200)-JVS(592)*X(345))/(JVS(590))\nIF (DO_SLV(57)) &\n  X(57) = (X(57)-JVS(588)*X(274)-JVS(589)*X(335))/(JVS(587))\nIF (DO_SLV(56)) &\n  X(56) = (X(56)-JVS(585)*X(257)-JVS(586)*X(335))/(JVS(584))\nIF (DO_SLV(55)) &\n  X(55) = (X(55)-JVS(582)*X(96)-JVS(583)*X(284))/(JVS(581))\nIF (DO_SLV(54)) &\n  X(54) = (X(54)-JVS(580)*X(334))/(JVS(579))\nIF (DO_SLV(53)) &\n  X(53) = (X(53)-JVS(578)*X(334))/(JVS(577))\nIF (DO_SLV(52)) &\n  X(52) = (X(52)-JVS(576)*X(345))/(JVS(575))\nIF (DO_SLV(51)) &\n  X(51) = (X(51)-JVS(574)*X(334))/(JVS(573))\nIF (DO_SLV(50)) &\n  X(50) = (X(50)-JVS(572)*X(334))/(JVS(571))\nIF (DO_SLV(49)) &\n  X(49) = (X(49)-JVS(570)*X(334))/(JVS(569))\nIF (DO_SLV(48)) &\n  X(48) = (X(48)-JVS(568)*X(334))/(JVS(567))\nIF (DO_SLV(47)) &\n  X(47) = (X(47)-JVS(566)*X(334))/(JVS(565))\nIF (DO_SLV(46)) &\n  X(46) = (X(46)-JVS(564)*X(334))/(JVS(563))\nIF (DO_SLV(45)) &\n  X(45) = (X(45)-JVS(560)*X(154)-JVS(561)*X(242)-JVS(562)*X(256))/(JVS(559))\nIF (DO_SLV(44)) &\n  X(44) = (X(44)-JVS(558)*X(284))/(JVS(557))\nIF (DO_SLV(43)) &\n  X(43) = (X(43)-JVS(556)*X(345))/(JVS(555))\nIF (DO_SLV(42)) &\n  X(42) = (X(42)-JVS(554)*X(96))/(JVS(553))\nIF (DO_SLV(41)) &\n  X(41) = (X(41)-JVS(552)*X(345))/(JVS(551))\nIF (DO_SLV(40)) &\n  X(40) = (X(40)-JVS(543)*X(241)-JVS(544)*X(276)-JVS(545)*X(312)-JVS(546)*X(314)-JVS(547)*X(336)-JVS(548)*X(337)&\n            &-JVS(549)*X(341)-JVS(550)*X(345))/(JVS(542))\nIF (DO_SLV(39)) &\n  X(39) = (X(39)-JVS(538)*X(228)-JVS(539)*X(334)-JVS(540)*X(340)-JVS(541)*X(345))/(JVS(537))\nIF (DO_SLV(38)) &\n  X(38) = (X(38)-JVS(527)*X(89)-JVS(528)*X(179)-JVS(529)*X(241)-JVS(530)*X(264)-JVS(531)*X(312)-JVS(532)*X(316)-JVS(533)&\n            &*X(333)-JVS(534)*X(341)-JVS(535)*X(345)-JVS(536)*X(348))/(JVS(526))\nIF (DO_SLV(37)) &\n  X(37) = (X(37)-JVS(522)*X(241)-JVS(523)*X(312)-JVS(524)*X(329)-JVS(525)*X(345))/(JVS(521))\nIF (DO_SLV(36)) &\n  X(36) = (X(36)-JVS(433)*X(60)-JVS(434)*X(68)-JVS(435)*X(75)-JVS(436)*X(79)-JVS(437)*X(82)-JVS(438)*X(101)-JVS(439)&\n            &*X(107)-JVS(440)*X(113)-JVS(441)*X(114)-JVS(442)*X(119)-JVS(443)*X(122)-JVS(444)*X(124)-JVS(445)*X(126)&\n            &-JVS(446)*X(127)-JVS(447)*X(132)-JVS(448)*X(139)-JVS(449)*X(143)-JVS(450)*X(144)-JVS(451)*X(146)-JVS(452)&\n            &*X(147)-JVS(453)*X(150)-JVS(454)*X(153)-JVS(455)*X(159)-JVS(456)*X(167)-JVS(457)*X(181)-JVS(458)*X(182)&\n            &-JVS(459)*X(184)-JVS(460)*X(185)-JVS(461)*X(187)-JVS(462)*X(191)-JVS(463)*X(192)-JVS(464)*X(194)-JVS(465)&\n            &*X(197)-JVS(466)*X(199)-JVS(467)*X(200)-JVS(468)*X(201)-JVS(469)*X(204)-JVS(470)*X(208)-JVS(471)*X(209)&\n            &-JVS(472)*X(210)-JVS(473)*X(215)-JVS(474)*X(216)-JVS(475)*X(220)-JVS(476)*X(221)-JVS(477)*X(225)-JVS(478)&\n            &*X(227)-JVS(479)*X(230)-JVS(480)*X(231)-JVS(481)*X(233)-JVS(482)*X(238)-JVS(483)*X(243)-JVS(484)*X(248)&\n            &-JVS(485)*X(253)-JVS(486)*X(255)-JVS(487)*X(258)-JVS(488)*X(259)-JVS(489)*X(261)-JVS(490)*X(266)-JVS(491)&\n            &*X(267)-JVS(492)*X(268)-JVS(493)*X(269)-JVS(494)*X(270)-JVS(495)*X(276)-JVS(496)*X(285)-JVS(497)*X(286)&\n            &-JVS(498)*X(287)-JVS(499)*X(290)-JVS(500)*X(294)-JVS(501)*X(295)-JVS(502)*X(298)-JVS(503)*X(301)-JVS(504)&\n            &*X(304)-JVS(505)*X(305)-JVS(506)*X(306)-JVS(507)*X(307)-JVS(508)*X(309)-JVS(509)*X(314)-JVS(510)*X(325)&\n            &-JVS(511)*X(326)-JVS(512)*X(328)-JVS(513)*X(337)-JVS(514)*X(340)-JVS(515)*X(341)-JVS(516)*X(342)-JVS(517)&\n            &*X(343)-JVS(518)*X(345)-JVS(519)*X(346)-JVS(520)*X(351))/(JVS(432))\nIF (DO_SLV(35)) &\n  X(35) = (X(35)-JVS(307)*X(42)-JVS(308)*X(44)-JVS(309)*X(49)-JVS(310)*X(50)-JVS(311)*X(55)-JVS(312)*X(63)-JVS(313)&\n            &*X(64)-JVS(314)*X(65)-JVS(315)*X(68)-JVS(316)*X(69)-JVS(317)*X(76)-JVS(318)*X(87)-JVS(319)*X(94)-JVS(320)*X(96)&\n            &-JVS(321)*X(105)-JVS(322)*X(109)-JVS(323)*X(120)-JVS(324)*X(140)-JVS(325)*X(142)-JVS(326)*X(149)-JVS(327)&\n            &*X(154)-JVS(328)*X(158)-JVS(329)*X(163)-JVS(330)*X(166)-JVS(331)*X(167)-JVS(332)*X(168)-JVS(333)*X(175)&\n            &-JVS(334)*X(179)-JVS(335)*X(181)-JVS(336)*X(183)-JVS(337)*X(186)-JVS(338)*X(191)-JVS(339)*X(195)-JVS(340)&\n            &*X(197)-JVS(341)*X(200)-JVS(342)*X(201)-JVS(343)*X(202)-JVS(344)*X(203)-JVS(345)*X(204)-JVS(346)*X(211)&\n            &-JVS(347)*X(213)-JVS(348)*X(214)-JVS(349)*X(216)-JVS(350)*X(217)-JVS(351)*X(218)-JVS(352)*X(219)-JVS(353)&\n            &*X(220)-JVS(354)*X(221)-JVS(355)*X(222)-JVS(356)*X(225)-JVS(357)*X(228)-JVS(358)*X(229)-JVS(359)*X(234)&\n            &-JVS(360)*X(235)-JVS(361)*X(236)-JVS(362)*X(237)-JVS(363)*X(240)-JVS(364)*X(242)-JVS(365)*X(246)-JVS(366)&\n            &*X(248)-JVS(367)*X(251)-JVS(368)*X(252)-JVS(369)*X(255)-JVS(370)*X(256)-JVS(371)*X(257)-JVS(372)*X(261)&\n            &-JVS(373)*X(262)-JVS(374)*X(263)-JVS(375)*X(264)-JVS(376)*X(266)-JVS(377)*X(267)-JVS(378)*X(268)-JVS(379)&\n            &*X(270)-JVS(380)*X(272)-JVS(381)*X(273)-JVS(382)*X(274)-JVS(383)*X(275)-JVS(384)*X(276)-JVS(385)*X(277)&\n            &-JVS(386)*X(278)-JVS(387)*X(280)-JVS(388)*X(281)-JVS(389)*X(284)-JVS(390)*X(289)-JVS(391)*X(290)-JVS(392)&\n            &*X(291)-JVS(393)*X(292)-JVS(394)*X(294)-JVS(395)*X(297)-JVS(396)*X(298)-JVS(397)*X(299)-JVS(398)*X(302)&\n            &-JVS(399)*X(303)-JVS(400)*X(306)-JVS(401)*X(308)-JVS(402)*X(309)-JVS(403)*X(310)-JVS(404)*X(311)-JVS(405)&\n            &*X(312)-JVS(406)*X(314)-JVS(407)*X(316)-JVS(408)*X(317)-JVS(409)*X(325)-JVS(410)*X(326)-JVS(411)*X(328)&\n            &-JVS(412)*X(330)-JVS(413)*X(332)-JVS(414)*X(333)-JVS(415)*X(334)-JVS(416)*X(335)-JVS(417)*X(336)-JVS(418)&\n            &*X(337)-JVS(419)*X(338)-JVS(420)*X(339)-JVS(421)*X(341)-JVS(422)*X(343)-JVS(423)*X(344)-JVS(424)*X(345)&\n            &-JVS(425)*X(347)-JVS(426)*X(348)-JVS(427)*X(349)-JVS(428)*X(350)-JVS(429)*X(351)-JVS(430)*X(352)-JVS(431)&\n            &*X(353))/(JVS(306))\nIF (DO_SLV(34)) &\n  X(34) = (X(34)-JVS(189)*X(45)-JVS(190)*X(56)-JVS(191)*X(57)-JVS(192)*X(63)-JVS(193)*X(67)-JVS(194)*X(70)-JVS(195)&\n            &*X(80)-JVS(196)*X(83)-JVS(197)*X(90)-JVS(198)*X(91)-JVS(199)*X(93)-JVS(200)*X(95)-JVS(201)*X(103)-JVS(202)&\n            &*X(108)-JVS(203)*X(110)-JVS(204)*X(113)-JVS(205)*X(114)-JVS(206)*X(116)-JVS(207)*X(121)-JVS(208)*X(122)&\n            &-JVS(209)*X(124)-JVS(210)*X(126)-JVS(211)*X(127)-JVS(212)*X(132)-JVS(213)*X(133)-JVS(214)*X(135)-JVS(215)&\n            &*X(137)-JVS(216)*X(138)-JVS(217)*X(139)-JVS(218)*X(148)-JVS(219)*X(154)-JVS(220)*X(162)-JVS(221)*X(165)&\n            &-JVS(222)*X(170)-JVS(223)*X(171)-JVS(224)*X(172)-JVS(225)*X(176)-JVS(226)*X(177)-JVS(227)*X(178)-JVS(228)&\n            &*X(180)-JVS(229)*X(182)-JVS(230)*X(184)-JVS(231)*X(189)-JVS(232)*X(190)-JVS(233)*X(193)-JVS(234)*X(196)&\n            &-JVS(235)*X(197)-JVS(236)*X(205)-JVS(237)*X(206)-JVS(238)*X(207)-JVS(239)*X(211)-JVS(240)*X(212)-JVS(241)&\n            &*X(213)-JVS(242)*X(217)-JVS(243)*X(223)-JVS(244)*X(224)-JVS(245)*X(226)-JVS(246)*X(232)-JVS(247)*X(234)&\n            &-JVS(248)*X(235)-JVS(249)*X(236)-JVS(250)*X(239)-JVS(251)*X(240)-JVS(252)*X(241)-JVS(253)*X(243)-JVS(254)&\n            &*X(245)-JVS(255)*X(246)-JVS(256)*X(249)-JVS(257)*X(250)-JVS(258)*X(253)-JVS(259)*X(254)-JVS(260)*X(257)&\n            &-JVS(261)*X(259)-JVS(262)*X(260)-JVS(263)*X(263)-JVS(264)*X(269)-JVS(265)*X(271)-JVS(266)*X(272)-JVS(267)&\n            &*X(273)-JVS(268)*X(274)-JVS(269)*X(275)-JVS(270)*X(277)-JVS(271)*X(278)-JVS(272)*X(280)-JVS(273)*X(281)&\n            &-JVS(274)*X(285)-JVS(275)*X(286)-JVS(276)*X(289)-JVS(277)*X(291)-JVS(278)*X(293)-JVS(279)*X(296)-JVS(280)&\n            &*X(297)-JVS(281)*X(300)-JVS(282)*X(302)-JVS(283)*X(304)-JVS(284)*X(305)-JVS(285)*X(308)-JVS(286)*X(310)&\n            &-JVS(287)*X(311)-JVS(288)*X(312)-JVS(289)*X(313)-JVS(290)*X(315)-JVS(291)*X(317)-JVS(292)*X(318)-JVS(293)&\n            &*X(319)-JVS(294)*X(320)-JVS(295)*X(321)-JVS(296)*X(322)-JVS(297)*X(323)-JVS(298)*X(324)-JVS(299)*X(327)&\n            &-JVS(300)*X(328)-JVS(301)*X(335)-JVS(302)*X(337)-JVS(303)*X(340)-JVS(304)*X(345)-JVS(305)*X(346))/(JVS(188))\nIF (DO_SLV(33)) &\n  X(33) = (X(33)-JVS(185)*X(89)-JVS(186)*X(345)-JVS(187)*X(348))/(JVS(184))\nIF (DO_SLV(32)) &\n  X(32) = (X(32)-JVS(180)*X(241)-JVS(181)*X(312)-JVS(182)*X(345)-JVS(183)*X(348))/(JVS(179))\nIF (DO_SLV(31)) &\n  X(31) = (X(31)-JVS(174)*X(107)-JVS(175)*X(128)-JVS(176)*X(151)-JVS(177)*X(152)-JVS(178)*X(215))/(JVS(173))\nIF (DO_SLV(30)) &\n  X(30) = (X(30)-JVS(170)*X(115)-JVS(171)*X(270)-JVS(172)*X(294))/(JVS(169))\nIF (DO_SLV(29)) &\n  X(29) = (X(29)-JVS(166)*X(166)-JVS(167)*X(341)-JVS(168)*X(348))/(JVS(165))\nIF (DO_SLV(28)) &\n  X(28) = (X(28)-JVS(163)*X(94)-JVS(164)*X(345))/(JVS(162))\nIF (DO_SLV(27)) &\n  X(27) = (X(27)-JVS(158)*X(101)-JVS(159)*X(337)-JVS(160)*X(345)-JVS(161)*X(346))/(JVS(157))\nIF (DO_SLV(26)) &\n  X(26) = (X(26)-JVS(155)*X(27)-JVS(156)*X(346))/(JVS(154))\nIF (DO_SLV(25)) &\n  X(25) = (X(25)-JVS(152)*X(27)-JVS(153)*X(337))/(JVS(151))\nIF (DO_SLV(24)) &\n  X(24) = (X(24)-JVS(146)*X(187)-JVS(147)*X(192)-JVS(148)*X(199)-JVS(149)*X(209)-JVS(150)*X(345))/(JVS(145))\nIF (DO_SLV(23)) &\n  X(23) = (X(23)-JVS(144)*X(24))/(JVS(143))\nIF (DO_SLV(22)) &\n  X(22) = (X(22)-JVS(139)*X(82)-JVS(140)*X(337)-JVS(141)*X(345)-JVS(142)*X(346))/(JVS(138))\nIF (DO_SLV(21)) &\n  X(21) = (X(21)-JVS(136)*X(22)-JVS(137)*X(346))/(JVS(135))\nIF (DO_SLV(20)) &\n  X(20) = (X(20)-JVS(133)*X(22)-JVS(134)*X(337))/(JVS(132))\nIF (DO_SLV(19)) &\n  X(19) = (X(19)-JVS(131)*X(345))/(JVS(130))\nIF (DO_SLV(18)) &\n  X(18) = (X(18)-JVS(126)*X(19)-JVS(127)*X(337)-JVS(128)*X(345)-JVS(129)*X(346))/(JVS(125))\nIF (DO_SLV(17)) &\n  X(17) = (X(17)-JVS(123)*X(18)-JVS(124)*X(346))/(JVS(122))\nIF (DO_SLV(16)) &\n  X(16) = (X(16)-JVS(120)*X(18)-JVS(121)*X(337))/(JVS(119))\nIF (DO_SLV(15)) &\n  X(15) = (X(15)-JVS(117)*X(276)-JVS(118)*X(351))/(JVS(116))\nIF (DO_SLV(14)) &\n  X(14) = (X(14)-JVS(114)*X(276)-JVS(115)*X(345))/(JVS(113))\nIF (DO_SLV(13)) &\n  X(13) = (X(13)-JVS(109)*X(143)-JVS(110)*X(337)-JVS(111)*X(345)-JVS(112)*X(346))/(JVS(108))\nIF (DO_SLV(12)) &\n  X(12) = (X(12)-JVS(106)*X(13)-JVS(107)*X(346))/(JVS(105))\nIF (DO_SLV(11)) &\n  X(11) = (X(11)-JVS(103)*X(13)-JVS(104)*X(337))/(JVS(102))\nIF (DO_SLV(10)) &\n  X(10) = (X(10)-JVS(95)*X(42)-JVS(96)*X(44)-JVS(97)*X(55)-JVS(98)*X(73)-JVS(99)*X(252)-JVS(100)*X(330)-JVS(101)*X(332))&\n            &/(JVS(94))\nIF (DO_SLV(9)) &\n  X(9) = (X(9)-JVS(87)*X(42)-JVS(88)*X(44)-JVS(89)*X(55)-JVS(90)*X(73)-JVS(91)*X(252)-JVS(92)*X(330)-JVS(93)*X(332))&\n           &/(JVS(86))\nIF (DO_SLV(8)) &\n  X(8) = (X(8)-JVS(84)*X(45)-JVS(85)*X(103))/(JVS(83))\nIF (DO_SLV(7)) &\n  X(7) = (X(7)-JVS(15)*X(66)-JVS(16)*X(68)-JVS(17)*X(71)-JVS(18)*X(74)-JVS(19)*X(90)-JVS(20)*X(92)-JVS(21)*X(115)&\n           &-JVS(22)*X(130)-JVS(23)*X(133)-JVS(24)*X(135)-JVS(25)*X(139)-JVS(26)*X(159)-JVS(27)*X(169)-JVS(28)*X(173)&\n           &-JVS(29)*X(182)-JVS(30)*X(194)-JVS(31)*X(198)-JVS(32)*X(213)-JVS(33)*X(216)-JVS(34)*X(235)-JVS(35)*X(238)&\n           &-JVS(36)*X(240)-JVS(37)*X(241)-JVS(38)*X(246)-JVS(39)*X(249)-JVS(40)*X(250)-JVS(41)*X(257)-JVS(42)*X(259)&\n           &-JVS(43)*X(260)-JVS(44)*X(261)-JVS(45)*X(263)-JVS(46)*X(265)-JVS(47)*X(269)-JVS(48)*X(274)-JVS(49)*X(275)&\n           &-JVS(50)*X(276)-JVS(51)*X(277)-JVS(52)*X(280)-JVS(53)*X(281)-JVS(54)*X(283)-JVS(55)*X(287)-JVS(56)*X(290)&\n           &-JVS(57)*X(291)-JVS(58)*X(296)-JVS(59)*X(300)-JVS(60)*X(306)-JVS(61)*X(307)-JVS(62)*X(308)-JVS(63)*X(310)&\n           &-JVS(64)*X(311)-JVS(65)*X(312)-JVS(66)*X(313)-JVS(67)*X(315)-JVS(68)*X(318)-JVS(69)*X(319)-JVS(70)*X(320)&\n           &-JVS(71)*X(321)-JVS(72)*X(322)-JVS(73)*X(323)-JVS(74)*X(324)-JVS(75)*X(328)-JVS(76)*X(329)-JVS(77)*X(337)&\n           &-JVS(78)*X(340)-JVS(79)*X(341)-JVS(80)*X(345)-JVS(81)*X(346)-JVS(82)*X(351))/(JVS(14))\nIF (DO_SLV(6)) &\n  X(6) = (X(6)-JVS(12)*X(41)-JVS(13)*X(345))/(JVS(11))\nIF (DO_SLV(5)) &\n  X(5) = (X(5)-JVS(10)*X(269))/(JVS(9))\nIF (DO_SLV(4)) &\n  X(4) = (X(4)-JVS(5)*X(42)-JVS(6)*X(44)-JVS(7)*X(55)-JVS(8)*X(73))/(JVS(4))\nIF (DO_SLV(3)) &\n  X(3) = X(3)/JVS(3)\nIF (DO_SLV(2)) &\n  X(2) = X(2)/JVS(2)\nIF (DO_SLV(1)) &\n  X(1) = X(1)/JVS(1)\n      \nEND SUBROUTINE KppSolve\n\n! End of KppSolve function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! KppSolveTR - sparse, transposed back substitution\n!   Arguments :\n!      JVS       - sparse Jacobian of variables\n!      X         - Vector for variables\n!      XX        - Vector for output variables\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE KppSolveTR ( JVS, X, XX )\n\n! JVS - sparse Jacobian of variables\n  REAL(kind=dp) :: JVS(LU_NONZERO)\n! X - Vector for variables\n  REAL(kind=dp) :: X(NVAR)\n! XX - Vector for output variables\n  REAL(kind=dp) :: XX(NVAR)\n\n  XX(1) = X(1)/JVS(1)\n  XX(2) = X(2)/JVS(2)\n  XX(3) = X(3)/JVS(3)\n  XX(4) = X(4)/JVS(4)\n  XX(5) = X(5)/JVS(9)\n  XX(6) = X(6)/JVS(11)\n  XX(7) = X(7)/JVS(14)\n  XX(8) = X(8)/JVS(83)\n  XX(9) = X(9)/JVS(86)\n  XX(10) = X(10)/JVS(94)\n  XX(11) = X(11)/JVS(102)\n  XX(12) = X(12)/JVS(105)\n  XX(13) = (X(13)-JVS(103)*XX(11)-JVS(106)*XX(12))/(JVS(108))\n  XX(14) = X(14)/JVS(113)\n  XX(15) = X(15)/JVS(116)\n  XX(16) = X(16)/JVS(119)\n  XX(17) = X(17)/JVS(122)\n  XX(18) = (X(18)-JVS(120)*XX(16)-JVS(123)*XX(17))/(JVS(125))\n  XX(19) = (X(19)-JVS(126)*XX(18))/(JVS(130))\n  XX(20) = X(20)/JVS(132)\n  XX(21) = X(21)/JVS(135)\n  XX(22) = (X(22)-JVS(133)*XX(20)-JVS(136)*XX(21))/(JVS(138))\n  XX(23) = X(23)/JVS(143)\n  XX(24) = (X(24)-JVS(144)*XX(23))/(JVS(145))\n  XX(25) = X(25)/JVS(151)\n  XX(26) = X(26)/JVS(154)\n  XX(27) = (X(27)-JVS(152)*XX(25)-JVS(155)*XX(26))/(JVS(157))\n  XX(28) = X(28)/JVS(162)\n  XX(29) = X(29)/JVS(165)\n  XX(30) = X(30)/JVS(169)\n  XX(31) = X(31)/JVS(173)\n  XX(32) = X(32)/JVS(179)\n  XX(33) = X(33)/JVS(184)\n  XX(34) = X(34)/JVS(188)\n  XX(35) = X(35)/JVS(306)\n  XX(36) = X(36)/JVS(432)\n  XX(37) = X(37)/JVS(521)\n  XX(38) = X(38)/JVS(526)\n  XX(39) = X(39)/JVS(537)\n  XX(40) = X(40)/JVS(542)\n  XX(41) = (X(41)-JVS(12)*XX(6))/(JVS(551))\n  XX(42) = (X(42)-JVS(5)*XX(4)-JVS(87)*XX(9)-JVS(95)*XX(10)-JVS(307)*XX(35))/(JVS(553))\n  XX(43) = X(43)/JVS(555)\n  XX(44) = (X(44)-JVS(6)*XX(4)-JVS(88)*XX(9)-JVS(96)*XX(10)-JVS(308)*XX(35))/(JVS(557))\n  XX(45) = (X(45)-JVS(84)*XX(8)-JVS(189)*XX(34))/(JVS(559))\n  XX(46) = X(46)/JVS(563)\n  XX(47) = X(47)/JVS(565)\n  XX(48) = X(48)/JVS(567)\n  XX(49) = (X(49)-JVS(309)*XX(35))/(JVS(569))\n  XX(50) = (X(50)-JVS(310)*XX(35))/(JVS(571))\n  XX(51) = X(51)/JVS(573)\n  XX(52) = X(52)/JVS(575)\n  XX(53) = X(53)/JVS(577)\n  XX(54) = X(54)/JVS(579)\n  XX(55) = (X(55)-JVS(7)*XX(4)-JVS(89)*XX(9)-JVS(97)*XX(10)-JVS(311)*XX(35))/(JVS(581))\n  XX(56) = (X(56)-JVS(190)*XX(34))/(JVS(584))\n  XX(57) = (X(57)-JVS(191)*XX(34))/(JVS(587))\n  XX(58) = X(58)/JVS(590)\n  XX(59) = X(59)/JVS(593)\n  XX(60) = (X(60)-JVS(433)*XX(36))/(JVS(596))\n  XX(61) = X(61)/JVS(598)\n  XX(62) = X(62)/JVS(600)\n  XX(63) = (X(63)-JVS(192)*XX(34)-JVS(312)*XX(35))/(JVS(603))\n  XX(64) = (X(64)-JVS(313)*XX(35))/(JVS(607))\n  XX(65) = (X(65)-JVS(314)*XX(35))/(JVS(611))\n  XX(66) = (X(66)-JVS(15)*XX(7))/(JVS(615))\n  XX(67) = (X(67)-JVS(193)*XX(34)-JVS(604)*XX(63))/(JVS(620))\n  XX(68) = (X(68)-JVS(16)*XX(7)-JVS(315)*XX(35)-JVS(434)*XX(36))/(JVS(623))\n  XX(69) = (X(69)-JVS(316)*XX(35))/(JVS(626))\n  XX(70) = (X(70)-JVS(194)*XX(34))/(JVS(629))\n  XX(71) = (X(71)-JVS(17)*XX(7))/(JVS(633))\n  XX(72) = X(72)/JVS(637)\n  XX(73) = (X(73)-JVS(8)*XX(4)-JVS(90)*XX(9)-JVS(98)*XX(10))/(JVS(641))\n  XX(74) = (X(74)-JVS(18)*XX(7))/(JVS(645))\n  XX(75) = (X(75)-JVS(435)*XX(36))/(JVS(649))\n  XX(76) = (X(76)-JVS(317)*XX(35))/(JVS(652))\n  XX(77) = X(77)/JVS(655)\n  XX(78) = X(78)/JVS(661)\n  XX(79) = (X(79)-JVS(436)*XX(36))/(JVS(664))\n  XX(80) = (X(80)-JVS(195)*XX(34))/(JVS(667))\n  XX(81) = X(81)/JVS(670)\n  XX(82) = (X(82)-JVS(139)*XX(22)-JVS(437)*XX(36))/(JVS(673))\n  XX(83) = (X(83)-JVS(196)*XX(34))/(JVS(675))\n  XX(84) = X(84)/JVS(679)\n  XX(85) = X(85)/JVS(682)\n  XX(86) = X(86)/JVS(685)\n  XX(87) = (X(87)-JVS(318)*XX(35))/(JVS(688))\n  XX(88) = X(88)/JVS(691)\n  XX(89) = (X(89)-JVS(185)*XX(33)-JVS(527)*XX(38))/(JVS(695))\n  XX(90) = (X(90)-JVS(19)*XX(7)-JVS(197)*XX(34))/(JVS(699))\n  XX(91) = (X(91)-JVS(198)*XX(34))/(JVS(703))\n  XX(92) = (X(92)-JVS(20)*XX(7))/(JVS(707))\n  XX(93) = (X(93)-JVS(199)*XX(34))/(JVS(711))\n  XX(94) = (X(94)-JVS(163)*XX(28)-JVS(319)*XX(35))/(JVS(715))\n  XX(95) = (X(95)-JVS(200)*XX(34))/(JVS(718))\n  XX(96) = (X(96)-JVS(320)*XX(35)-JVS(554)*XX(42)-JVS(582)*XX(55))/(JVS(725))\n  XX(97) = X(97)/JVS(729)\n  XX(98) = X(98)/JVS(733)\n  XX(99) = X(99)/JVS(737)\n  XX(100) = X(100)/JVS(741)\n  XX(101) = (X(101)-JVS(158)*XX(27)-JVS(438)*XX(36))/(JVS(745))\n  XX(102) = X(102)/JVS(747)\n  XX(103) = (X(103)-JVS(85)*XX(8)-JVS(201)*XX(34))/(JVS(751))\n  XX(104) = X(104)/JVS(765)\n  XX(105) = (X(105)-JVS(321)*XX(35))/(JVS(773))\n  XX(106) = X(106)/JVS(776)\n  XX(107) = (X(107)-JVS(174)*XX(31)-JVS(439)*XX(36))/(JVS(782))\n  XX(108) = (X(108)-JVS(202)*XX(34))/(JVS(786))\n  XX(109) = (X(109)-JVS(322)*XX(35))/(JVS(790))\n  XX(110) = (X(110)-JVS(203)*XX(34))/(JVS(795))\n  XX(111) = X(111)/JVS(801)\n  XX(112) = X(112)/JVS(805)\n  XX(113) = (X(113)-JVS(204)*XX(34)-JVS(440)*XX(36))/(JVS(809))\n  XX(114) = (X(114)-JVS(205)*XX(34)-JVS(441)*XX(36))/(JVS(813))\n  XX(115) = (X(115)-JVS(21)*XX(7)-JVS(170)*XX(30))/(JVS(817))\n  XX(116) = (X(116)-JVS(206)*XX(34))/(JVS(823))\n  XX(117) = X(117)/JVS(828)\n  XX(118) = X(118)/JVS(834)\n  XX(119) = (X(119)-JVS(442)*XX(36))/(JVS(839))\n  XX(120) = (X(120)-JVS(323)*XX(35))/(JVS(844))\n  XX(121) = (X(121)-JVS(207)*XX(34))/(JVS(850))\n  XX(122) = (X(122)-JVS(208)*XX(34)-JVS(443)*XX(36))/(JVS(855))\n  XX(123) = X(123)/JVS(859)\n  XX(124) = (X(124)-JVS(209)*XX(34)-JVS(444)*XX(36))/(JVS(863))\n  XX(125) = X(125)/JVS(867)\n  XX(126) = (X(126)-JVS(210)*XX(34)-JVS(445)*XX(36))/(JVS(871))\n  XX(127) = (X(127)-JVS(211)*XX(34)-JVS(446)*XX(36))/(JVS(875))\n  XX(128) = (X(128)-JVS(175)*XX(31))/(JVS(879))\n  XX(129) = X(129)/JVS(886)\n  XX(130) = (X(130)-JVS(22)*XX(7))/(JVS(897))\n  XX(131) = X(131)/JVS(902)\n  XX(132) = (X(132)-JVS(212)*XX(34)-JVS(447)*XX(36))/(JVS(908))\n  XX(133) = (X(133)-JVS(23)*XX(7)-JVS(213)*XX(34))/(JVS(913))\n  XX(134) = X(134)/JVS(919)\n  XX(135) = (X(135)-JVS(24)*XX(7)-JVS(214)*XX(34))/(JVS(930))\n  XX(136) = (X(136)-JVS(777)*XX(106))/(JVS(935))\n  XX(137) = (X(137)-JVS(215)*XX(34))/(JVS(940))\n  XX(138) = (X(138)-JVS(216)*XX(34)-JVS(887)*XX(129))/(JVS(944))\n  XX(139) = (X(139)-JVS(25)*XX(7)-JVS(217)*XX(34)-JVS(448)*XX(36))/(JVS(948))\n  XX(140) = (X(140)-JVS(324)*XX(35))/(JVS(952))\n  XX(141) = X(141)/JVS(956)\n  XX(142) = (X(142)-JVS(325)*XX(35))/(JVS(960))\n  XX(143) = (X(143)-JVS(109)*XX(13)-JVS(449)*XX(36))/(JVS(964))\n  XX(144) = (X(144)-JVS(450)*XX(36))/(JVS(968))\n  XX(145) = X(145)/JVS(973)\n  XX(146) = (X(146)-JVS(451)*XX(36))/(JVS(983))\n  XX(147) = (X(147)-JVS(452)*XX(36))/(JVS(988))\n  XX(148) = (X(148)-JVS(218)*XX(34))/(JVS(992))\n  XX(149) = (X(149)-JVS(326)*XX(35))/(JVS(1001))\n  XX(150) = (X(150)-JVS(453)*XX(36))/(JVS(1004))\n  XX(151) = (X(151)-JVS(176)*XX(31))/(JVS(1009))\n  XX(152) = (X(152)-JVS(177)*XX(31))/(JVS(1015))\n  XX(153) = (X(153)-JVS(454)*XX(36))/(JVS(1021))\n  XX(154) = (X(154)-JVS(219)*XX(34)-JVS(327)*XX(35)-JVS(560)*XX(45))/(JVS(1027))\n  XX(155) = X(155)/JVS(1033)\n  XX(156) = X(156)/JVS(1039)\n  XX(157) = X(157)/JVS(1045)\n  XX(158) = (X(158)-JVS(328)*XX(35))/(JVS(1062))\n  XX(159) = (X(159)-JVS(26)*XX(7)-JVS(455)*XX(36)-JVS(783)*XX(107))/(JVS(1066))\n  XX(160) = X(160)/JVS(1070)\n  XX(161) = X(161)/JVS(1075)\n  XX(162) = (X(162)-JVS(220)*XX(34))/(JVS(1081))\n  XX(163) = (X(163)-JVS(329)*XX(35))/(JVS(1086))\n  XX(164) = X(164)/JVS(1094)\n  XX(165) = (X(165)-JVS(221)*XX(34))/(JVS(1099))\n  XX(166) = (X(166)-JVS(166)*XX(29)-JVS(330)*XX(35)-JVS(612)*XX(65))/(JVS(1104))\n  XX(167) = (X(167)-JVS(331)*XX(35)-JVS(456)*XX(36))/(JVS(1109))\n  XX(168) = (X(168)-JVS(332)*XX(35)-JVS(752)*XX(103)-JVS(1010)*XX(151)-JVS(1016)*XX(152))/(JVS(1113))\n  XX(169) = (X(169)-JVS(27)*XX(7))/(JVS(1117))\n  XX(170) = (X(170)-JVS(222)*XX(34))/(JVS(1124))\n  XX(171) = (X(171)-JVS(223)*XX(34))/(JVS(1131))\n  XX(172) = (X(172)-JVS(224)*XX(34))/(JVS(1137))\n  XX(173) = (X(173)-JVS(28)*XX(7))/(JVS(1144))\n  XX(174) = X(174)/JVS(1155)\n  XX(175) = (X(175)-JVS(333)*XX(35)-JVS(753)*XX(103)-JVS(1011)*XX(151)-JVS(1017)*XX(152))/(JVS(1161))\n  XX(176) = (X(176)-JVS(225)*XX(34))/(JVS(1166))\n  XX(177) = (X(177)-JVS(226)*XX(34))/(JVS(1171))\n  XX(178) = (X(178)-JVS(227)*XX(34)-JVS(734)*XX(98))/(JVS(1182))\n  XX(179) = (X(179)-JVS(334)*XX(35)-JVS(528)*XX(38)-JVS(608)*XX(64)-JVS(920)*XX(134))/(JVS(1187))\n  XX(180) = (X(180)-JVS(228)*XX(34))/(JVS(1192))\n  XX(181) = (X(181)-JVS(335)*XX(35)-JVS(457)*XX(36))/(JVS(1197))\n  XX(182) = (X(182)-JVS(29)*XX(7)-JVS(229)*XX(34)-JVS(458)*XX(36))/(JVS(1201))\n  XX(183) = (X(183)-JVS(336)*XX(35))/(JVS(1207))\n  XX(184) = (X(184)-JVS(230)*XX(34)-JVS(459)*XX(36)-JVS(784)*XX(107))/(JVS(1212))\n  XX(185) = (X(185)-JVS(460)*XX(36))/(JVS(1219))\n  XX(186) = (X(186)-JVS(337)*XX(35)-JVS(754)*XX(103)-JVS(974)*XX(145))/(JVS(1226))\n  XX(187) = (X(187)-JVS(146)*XX(24)-JVS(461)*XX(36)-JVS(1012)*XX(151)-JVS(1018)*XX(152))/(JVS(1230))\n  XX(188) = X(188)/JVS(1234)\n  XX(189) = (X(189)-JVS(231)*XX(34)-JVS(824)*XX(116))/(JVS(1248))\n  XX(190) = (X(190)-JVS(232)*XX(34))/(JVS(1256))\n  XX(191) = (X(191)-JVS(338)*XX(35)-JVS(462)*XX(36)-JVS(888)*XX(129))/(JVS(1261))\n  XX(192) = (X(192)-JVS(147)*XX(24)-JVS(463)*XX(36)-JVS(1013)*XX(151)-JVS(1019)*XX(152))/(JVS(1265))\n  XX(193) = (X(193)-JVS(233)*XX(34))/(JVS(1269))\n  XX(194) = (X(194)-JVS(30)*XX(7)-JVS(464)*XX(36)-JVS(818)*XX(115))/(JVS(1275))\n  XX(195) = (X(195)-JVS(339)*XX(35))/(JVS(1282))\n  XX(196) = (X(196)-JVS(234)*XX(34)-JVS(1100)*XX(165))/(JVS(1289))\n  XX(197) = (X(197)-JVS(235)*XX(34)-JVS(340)*XX(35)-JVS(465)*XX(36)-JVS(872)*XX(126))/(JVS(1295))\n  XX(198) = (X(198)-JVS(31)*XX(7))/(JVS(1302))\n  XX(199) = (X(199)-JVS(148)*XX(24)-JVS(466)*XX(36)-JVS(880)*XX(128)-JVS(969)*XX(144))/(JVS(1308))\n  XX(200) = (X(200)-JVS(341)*XX(35)-JVS(467)*XX(36)-JVS(591)*XX(58)-JVS(851)*XX(121)-JVS(984)*XX(146)-JVS(1063)*XX(158)&\n              &-JVS(1145)*XX(173)-JVS(1249)*XX(189))/(JVS(1312))\n  XX(201) = (X(201)-JVS(342)*XX(35)-JVS(468)*XX(36)-JVS(1146)*XX(173))/(JVS(1320))\n  XX(202) = (X(202)-JVS(343)*XX(35))/(JVS(1327))\n  XX(203) = (X(203)-JVS(344)*XX(35))/(JVS(1337))\n  XX(204) = (X(204)-JVS(345)*XX(35)-JVS(469)*XX(36))/(JVS(1354))\n  XX(205) = (X(205)-JVS(236)*XX(34))/(JVS(1362))\n  XX(206) = (X(206)-JVS(237)*XX(34))/(JVS(1367))\n  XX(207) = (X(207)-JVS(238)*XX(34))/(JVS(1372))\n  XX(208) = (X(208)-JVS(470)*XX(36))/(JVS(1379))\n  XX(209) = (X(209)-JVS(149)*XX(24)-JVS(471)*XX(36)-JVS(881)*XX(128)-JVS(1005)*XX(150))/(JVS(1389))\n  XX(210) = (X(210)-JVS(472)*XX(36))/(JVS(1394))\n  XX(211) = (X(211)-JVS(239)*XX(34)-JVS(346)*XX(35)-JVS(1172)*XX(177))/(JVS(1404))\n  XX(212) = (X(212)-JVS(240)*XX(34)-JVS(876)*XX(127))/(JVS(1411))\n  XX(213) = (X(213)-JVS(32)*XX(7)-JVS(241)*XX(34)-JVS(347)*XX(35)-JVS(638)*XX(72)-JVS(814)*XX(114))/(JVS(1418))\n  XX(214) = (X(214)-JVS(348)*XX(35))/(JVS(1425))\n  XX(215) = (X(215)-JVS(178)*XX(31)-JVS(473)*XX(36))/(JVS(1444))\n  XX(216) = (X(216)-JVS(33)*XX(7)-JVS(349)*XX(35)-JVS(474)*XX(36)-JVS(755)*XX(103))/(JVS(1458))\n  XX(217) = (X(217)-JVS(242)*XX(34)-JVS(350)*XX(35))/(JVS(1470))\n  XX(218) = (X(218)-JVS(351)*XX(35)-JVS(993)*XX(148)-JVS(1046)*XX(157))/(JVS(1481))\n  XX(219) = (X(219)-JVS(352)*XX(35))/(JVS(1487))\n  XX(220) = (X(220)-JVS(353)*XX(35)-JVS(475)*XX(36)-JVS(965)*XX(143)-JVS(1250)*XX(189)-JVS(1283)*XX(195)-JVS(1328)&\n              &*XX(202)-JVS(1338)*XX(203)-JVS(1355)*XX(204))/(JVS(1491))\n  XX(221) = (X(221)-JVS(354)*XX(35)-JVS(476)*XX(36)-JVS(1147)*XX(173))/(JVS(1503))\n  XX(222) = (X(222)-JVS(355)*XX(35)-JVS(756)*XX(103))/(JVS(1508))\n  XX(223) = (X(223)-JVS(243)*XX(34)-JVS(1156)*XX(174)-JVS(1303)*XX(198)-JVS(1395)*XX(210))/(JVS(1516))\n  XX(224) = (X(224)-JVS(244)*XX(34)-JVS(1157)*XX(174)-JVS(1304)*XX(198))/(JVS(1523))\n  XX(225) = (X(225)-JVS(356)*XX(35)-JVS(477)*XX(36))/(JVS(1531))\n  XX(226) = (X(226)-JVS(245)*XX(34)-JVS(1396)*XX(210)-JVS(1459)*XX(216))/(JVS(1541))\n  XX(227) = (X(227)-JVS(478)*XX(36))/(JVS(1550))\n  XX(228) = (X(228)-JVS(357)*XX(35)-JVS(538)*XX(39)-JVS(1471)*XX(217))/(JVS(1563))\n  XX(229) = (X(229)-JVS(358)*XX(35))/(JVS(1570))\n  XX(230) = (X(230)-JVS(479)*XX(36)-JVS(840)*XX(119)-JVS(914)*XX(133)-JVS(1132)*XX(171)-JVS(1220)*XX(185)-JVS(1276)&\n              &*XX(194)-JVS(1445)*XX(215)-JVS(1551)*XX(227))/(JVS(1577))\n  XX(231) = (X(231)-JVS(480)*XX(36)-JVS(841)*XX(119)-JVS(931)*XX(135)-JVS(1138)*XX(172)-JVS(1221)*XX(185)-JVS(1277)&\n              &*XX(194)-JVS(1446)*XX(215)-JVS(1552)*XX(227))/(JVS(1583))\n  XX(232) = (X(232)-JVS(246)*XX(34)-JVS(1158)*XX(174)-JVS(1305)*XX(198))/(JVS(1590))\n  XX(233) = (X(233)-JVS(481)*XX(36)-JVS(791)*XX(109)-JVS(909)*XX(132)-JVS(1296)*XX(197))/(JVS(1598))\n  XX(234) = (X(234)-JVS(247)*XX(34)-JVS(359)*XX(35)-JVS(630)*XX(70)-JVS(778)*XX(106)-JVS(936)*XX(136))/(JVS(1607))\n  XX(235) = (X(235)-JVS(34)*XX(7)-JVS(248)*XX(34)-JVS(360)*XX(35)-JVS(634)*XX(71)-JVS(700)*XX(90)-JVS(829)*XX(117)&\n              &-JVS(1339)*XX(203))/(JVS(1619))\n  XX(236) = (X(236)-JVS(249)*XX(34)-JVS(361)*XX(35)-JVS(830)*XX(117)-JVS(1340)*XX(203))/(JVS(1633))\n  XX(237) = (X(237)-JVS(362)*XX(35)-JVS(1173)*XX(177))/(JVS(1641))\n  XX(238) = (X(238)-JVS(35)*XX(7)-JVS(482)*XX(36))/(JVS(1652))\n  XX(239) = (X(239)-JVS(250)*XX(34))/(JVS(1665))\n  XX(240) = (X(240)-JVS(36)*XX(7)-JVS(251)*XX(34)-JVS(363)*XX(35)-JVS(856)*XX(122)-JVS(1034)*XX(155)-JVS(1148)*XX(173))&\n              &/(JVS(1685))\n  XX(241) = (X(241)-JVS(37)*XX(7)-JVS(180)*XX(32)-JVS(252)*XX(34)-JVS(522)*XX(37)-JVS(529)*XX(38)-JVS(543)*XX(40)&\n              &-JVS(921)*XX(134))/(JVS(1691))\n  XX(242) = (X(242)-JVS(364)*XX(35)-JVS(561)*XX(45)-JVS(1028)*XX(154))/(JVS(1700))\n  XX(243) = (X(243)-JVS(253)*XX(34)-JVS(483)*XX(36)-JVS(1380)*XX(208))/(JVS(1715))\n  XX(244) = X(244)/JVS(1726)\n  XX(245) = (X(245)-JVS(254)*XX(34))/(JVS(1740))\n  XX(246) = (X(246)-JVS(38)*XX(7)-JVS(255)*XX(34)-JVS(365)*XX(35)-JVS(810)*XX(113)-JVS(1035)*XX(155)-JVS(1149)*XX(173)&\n              &-JVS(1608)*XX(234))/(JVS(1754))\n  XX(247) = X(247)/JVS(1766)\n  XX(248) = (X(248)-JVS(366)*XX(35)-JVS(484)*XX(36)-JVS(757)*XX(103))/(JVS(1785))\n  XX(249) = (X(249)-JVS(39)*XX(7)-JVS(256)*XX(34)-JVS(1235)*XX(188))/(JVS(1797))\n  XX(250) = (X(250)-JVS(40)*XX(7)-JVS(257)*XX(34)-JVS(868)*XX(125)-JVS(1236)*XX(188)-JVS(1767)*XX(247))/(JVS(1805))\n  XX(251) = (X(251)-JVS(367)*XX(35)-JVS(758)*XX(103))/(JVS(1813))\n  XX(252) = (X(252)-JVS(91)*XX(9)-JVS(99)*XX(10)-JVS(368)*XX(35)-JVS(656)*XX(77)-JVS(766)*XX(104)-JVS(1125)*XX(170)&\n              &-JVS(1666)*XX(239))/(JVS(1820))\n  XX(253) = (X(253)-JVS(258)*XX(34)-JVS(485)*XX(36)-JVS(1786)*XX(248))/(JVS(1829))\n  XX(254) = (X(254)-JVS(259)*XX(34)-JVS(1381)*XX(208))/(JVS(1840))\n  XX(255) = (X(255)-JVS(369)*XX(35)-JVS(486)*XX(36)-JVS(1087)*XX(163)-JVS(1174)*XX(177))/(JVS(1850))\n  XX(256) = (X(256)-JVS(370)*XX(35)-JVS(562)*XX(45)-JVS(1029)*XX(154))/(JVS(1865))\n  XX(257) = (X(257)-JVS(41)*XX(7)-JVS(260)*XX(34)-JVS(371)*XX(35)-JVS(585)*XX(56)-JVS(616)*XX(66)-JVS(646)*XX(74))&\n              &/(JVS(1885))\n  XX(258) = (X(258)-JVS(487)*XX(36)-JVS(903)*XX(131)-JVS(1022)*XX(153)-JVS(1382)*XX(208)-JVS(1553)*XX(227))/(JVS(1900))\n  XX(259) = (X(259)-JVS(42)*XX(7)-JVS(261)*XX(34)-JVS(488)*XX(36)-JVS(1067)*XX(159)-JVS(1213)*XX(184))/(JVS(1912))\n  XX(260) = (X(260)-JVS(43)*XX(7)-JVS(262)*XX(34)-JVS(860)*XX(123)-JVS(1237)*XX(188))/(JVS(1921))\n  XX(261) = (X(261)-JVS(44)*XX(7)-JVS(372)*XX(35)-JVS(489)*XX(36))/(JVS(1934))\n  XX(262) = (X(262)-JVS(373)*XX(35))/(JVS(1950))\n  XX(263) = (X(263)-JVS(45)*XX(7)-JVS(263)*XX(34)-JVS(374)*XX(35))/(JVS(1980))\n  XX(264) = (X(264)-JVS(375)*XX(35)-JVS(530)*XX(38)-JVS(922)*XX(134))/(JVS(1994))\n  XX(265) = (X(265)-JVS(46)*XX(7))/(JVS(2020))\n  XX(266) = (X(266)-JVS(376)*XX(35)-JVS(490)*XX(36)-JVS(759)*XX(103))/(JVS(2047))\n  XX(267) = (X(267)-JVS(377)*XX(35)-JVS(491)*XX(36)-JVS(760)*XX(103)-JVS(882)*XX(128)-JVS(1373)*XX(207)-JVS(1447)&\n              &*XX(215)-JVS(1653)*XX(238)-JVS(1716)*XX(243)-JVS(1901)*XX(258)-JVS(1935)*XX(261)-JVS(2048)*XX(266))&\n              &/(JVS(2060))\n  XX(268) = (X(268)-JVS(378)*XX(35)-JVS(492)*XX(36)-JVS(761)*XX(103)-JVS(883)*XX(128)-JVS(1368)*XX(206)-JVS(1448)&\n              &*XX(215)-JVS(1460)*XX(216)-JVS(1654)*XX(238)-JVS(1717)*XX(243)-JVS(1768)*XX(247)-JVS(1902)*XX(258)-JVS(2049)&\n              &*XX(266))/(JVS(2066))\n  XX(269) = (X(269)-JVS(10)*XX(5)-JVS(47)*XX(7)-JVS(264)*XX(34)-JVS(493)*XX(36)-JVS(1504)*XX(221)-JVS(1667)*XX(239)&\n              &-JVS(2021)*XX(265))/(JVS(2081))\n  XX(270) = (X(270)-JVS(171)*XX(30)-JVS(379)*XX(35)-JVS(494)*XX(36))/(JVS(2113))\n  XX(271) = (X(271)-JVS(265)*XX(34)-JVS(1397)*XX(210)-JVS(1461)*XX(216)-JVS(1727)*XX(244)-JVS(1769)*XX(247)-JVS(1936)&\n              &*XX(261)-JVS(2050)*XX(266)-JVS(2114)*XX(270))/(JVS(2135))\n  XX(272) = (X(272)-JVS(266)*XX(34)-JVS(380)*XX(35)-JVS(1088)*XX(163)-JVS(1118)*XX(169)-JVS(1175)*XX(177)-JVS(1866)&\n              &*XX(256))/(JVS(2144))\n  XX(273) = (X(273)-JVS(267)*XX(34)-JVS(381)*XX(35)-JVS(1076)*XX(161)-JVS(1082)*XX(162)-JVS(1867)*XX(256))/(JVS(2157))\n  XX(274) = (X(274)-JVS(48)*XX(7)-JVS(268)*XX(34)-JVS(382)*XX(35)-JVS(588)*XX(57)-JVS(898)*XX(130)-JVS(1119)*XX(169))&\n              &/(JVS(2178))\n  XX(275) = (X(275)-JVS(49)*XX(7)-JVS(269)*XX(34)-JVS(383)*XX(35)-JVS(806)*XX(112)-JVS(889)*XX(129)-JVS(945)*XX(138)&\n              &-JVS(1083)*XX(162)-JVS(1868)*XX(256)-JVS(1981)*XX(263)-JVS(2158)*XX(273)-JVS(2179)*XX(274))/(JVS(2192))\n  XX(276) = (X(276)-JVS(50)*XX(7)-JVS(114)*XX(14)-JVS(117)*XX(15)-JVS(384)*XX(35)-JVS(495)*XX(36)-JVS(544)*XX(40)&\n              &-JVS(970)*XX(144)-JVS(1006)*XX(150)-JVS(1398)*XX(210)-JVS(1449)*XX(215)-JVS(1578)*XX(230)-JVS(1584)*XX(231)&\n              &-JVS(1728)*XX(244)-JVS(1787)*XX(248)-JVS(1830)*XX(253)-JVS(1841)*XX(254)-JVS(1995)*XX(264)-JVS(2022)*XX(265)&\n              &-JVS(2115)*XX(270))/(JVS(2200))\n  XX(277) = (X(277)-JVS(51)*XX(7)-JVS(270)*XX(34)-JVS(385)*XX(35)-JVS(802)*XX(111)-JVS(941)*XX(137)-JVS(1167)*XX(176)&\n              &-JVS(1532)*XX(225)-JVS(1869)*XX(256)-JVS(1886)*XX(257)-JVS(1982)*XX(263))/(JVS(2208))\n  XX(278) = (X(278)-JVS(271)*XX(34)-JVS(386)*XX(35)-JVS(1071)*XX(160)-JVS(1168)*XX(176)-JVS(1870)*XX(256)-JVS(1983)&\n              &*XX(263))/(JVS(2222))\n  XX(279) = (X(279)-JVS(1798)*XX(249))/(JVS(2232))\n  XX(280) = (X(280)-JVS(52)*XX(7)-JVS(272)*XX(34)-JVS(387)*XX(35)-JVS(1701)*XX(242)-JVS(1871)*XX(256))/(JVS(2246))\n  XX(281) = (X(281)-JVS(53)*XX(7)-JVS(273)*XX(34)-JVS(388)*XX(35)-JVS(1405)*XX(211)-JVS(1642)*XX(237)-JVS(1851)*XX(255)&\n              &-JVS(1872)*XX(256)-JVS(1984)*XX(263)-JVS(2145)*XX(272)-JVS(2180)*XX(274))/(JVS(2259))\n  XX(282) = X(282)/JVS(2279)\n  XX(283) = (X(283)-JVS(54)*XX(7))/(JVS(2314))\n  XX(284) = (X(284)-JVS(389)*XX(35)-JVS(558)*XX(44)-JVS(583)*XX(55)-JVS(726)*XX(96)-JVS(767)*XX(104)-JVS(845)*XX(120))&\n              &/(JVS(2343))\n  XX(285) = (X(285)-JVS(274)*XX(34)-JVS(496)*XX(36)-JVS(989)*XX(147)-JVS(1023)*XX(153)-JVS(1222)*XX(185)-JVS(1383)&\n              &*XX(208)-JVS(1554)*XX(227)-JVS(1903)*XX(258)-JVS(2051)*XX(266)-JVS(2116)*XX(270))/(JVS(2364))\n  XX(286) = (X(286)-JVS(275)*XX(34)-JVS(497)*XX(36)-JVS(904)*XX(131)-JVS(990)*XX(147)-JVS(1223)*XX(185)-JVS(1384)&\n              &*XX(208)-JVS(1555)*XX(227)-JVS(1904)*XX(258)-JVS(2052)*XX(266)-JVS(2117)*XX(270)-JVS(2365)*XX(285))&\n              &/(JVS(2385))\n  XX(287) = (X(287)-JVS(55)*XX(7)-JVS(498)*XX(36)-JVS(1729)*XX(244))/(JVS(2412))\n  XX(288) = (X(288)-JVS(1385)*XX(208)-JVS(1556)*XX(227)-JVS(2118)*XX(270))/(JVS(2445))\n  XX(289) = (X(289)-JVS(276)*XX(34)-JVS(390)*XX(35)-JVS(1150)*XX(173)-JVS(1238)*XX(188)-JVS(1702)*XX(242)-JVS(1873)&\n              &*XX(256)-JVS(2247)*XX(280)-JVS(2280)*XX(282))/(JVS(2465))\n  XX(290) = (X(290)-JVS(56)*XX(7)-JVS(391)*XX(35)-JVS(499)*XX(36)-JVS(1564)*XX(228)-JVS(1692)*XX(241)-JVS(1806)*XX(250)&\n              &-JVS(1922)*XX(260)-JVS(1996)*XX(264)-JVS(2281)*XX(282)-JVS(2315)*XX(283))/(JVS(2474))\n  XX(291) = (X(291)-JVS(57)*XX(7)-JVS(277)*XX(34)-JVS(392)*XX(35)-JVS(1270)*XX(193)-JVS(1571)*XX(229)-JVS(1703)*XX(242)&\n              &-JVS(1951)*XX(262)-JVS(1985)*XX(263)-JVS(2248)*XX(280)-JVS(2282)*XX(282)-JVS(2316)*XX(283)-JVS(2466)*XX(289))&\n              &/(JVS(2482))\n  XX(292) = (X(292)-JVS(393)*XX(35))/(JVS(2507))\n  XX(293) = (X(293)-JVS(278)*XX(34)-JVS(1462)*XX(216)-JVS(1770)*XX(247)-JVS(1937)*XX(261))/(JVS(2523))\n  XX(294) = (X(294)-JVS(172)*XX(30)-JVS(394)*XX(35)-JVS(500)*XX(36))/(JVS(2572))\n  XX(295) = (X(295)-JVS(501)*XX(36))/(JVS(2613))\n  XX(296) = (X(296)-JVS(58)*XX(7)-JVS(279)*XX(34)-JVS(676)*XX(83)-JVS(835)*XX(118)-JVS(1040)*XX(156)-JVS(2283)*XX(282)&\n              &-JVS(2317)*XX(283))/(JVS(2639))\n  XX(297) = (X(297)-JVS(280)*XX(34)-JVS(395)*XX(35)-JVS(1047)*XX(157)-JVS(1668)*XX(239)-JVS(1741)*XX(245))/(JVS(2653))\n  XX(298) = (X(298)-JVS(396)*XX(35)-JVS(502)*XX(36))/(JVS(2699))\n  XX(299) = (X(299)-JVS(397)*XX(35)-JVS(762)*XX(103)-JVS(975)*XX(145)-JVS(1193)*XX(180)-JVS(1771)*XX(247)-JVS(1938)&\n              &*XX(261)-JVS(2524)*XX(293)-JVS(2573)*XX(294))/(JVS(2727))\n  XX(300) = (X(300)-JVS(59)*XX(7)-JVS(281)*XX(34)-JVS(748)*XX(102)-JVS(1239)*XX(188)-JVS(2233)*XX(279)-JVS(2284)*XX(282)&\n              &-JVS(2318)*XX(283)-JVS(2508)*XX(292)-JVS(2614)*XX(295)-JVS(2700)*XX(298))/(JVS(2742))\n  XX(301) = (X(301)-JVS(503)*XX(36)-JVS(842)*XX(119)-JVS(1133)*XX(171)-JVS(1139)*XX(172)-JVS(1202)*XX(182)-JVS(1224)&\n              &*XX(185)-JVS(1278)*XX(194)-JVS(1450)*XX(215)-JVS(1463)*XX(216)-JVS(1557)*XX(227)-JVS(1772)*XX(247)-JVS(1788)&\n              &*XX(248)-JVS(1831)*XX(253)-JVS(1842)*XX(254)-JVS(1939)*XX(261)-JVS(2023)*XX(265)-JVS(2119)*XX(270)-JVS(2413)&\n              &*XX(287)-JVS(2446)*XX(288)-JVS(2574)*XX(294))/(JVS(2756))\n  XX(302) = (X(302)-JVS(282)*XX(34)-JVS(398)*XX(35)-JVS(763)*XX(103)-JVS(819)*XX(115)-JVS(1558)*XX(227)-JVS(1940)&\n              &*XX(261)-JVS(2024)*XX(265)-JVS(2120)*XX(270)-JVS(2575)*XX(294))/(JVS(2780))\n  XX(303) = (X(303)-JVS(399)*XX(35)-JVS(764)*XX(103)-JVS(1203)*XX(182)-JVS(1279)*XX(194)-JVS(1399)*XX(210)-JVS(1559)&\n              &*XX(227)-JVS(1730)*XX(244)-JVS(1773)*XX(247)-JVS(1789)*XX(248)-JVS(1941)*XX(261)-JVS(2025)*XX(265)-JVS(2053)&\n              &*XX(266)-JVS(2121)*XX(270)-JVS(2414)*XX(287)-JVS(2447)*XX(288)-JVS(2525)*XX(293)-JVS(2576)*XX(294)-JVS(2728)&\n              &*XX(299)-JVS(2757)*XX(301)-JVS(2781)*XX(302))/(JVS(2811))\n  XX(304) = (X(304)-JVS(283)*XX(34)-JVS(504)*XX(36)-JVS(971)*XX(144)-JVS(1114)*XX(168)-JVS(1257)*XX(190)-JVS(1266)&\n              &*XX(192)-JVS(1309)*XX(199)-JVS(1451)*XX(215)-JVS(1524)*XX(224)-JVS(1585)*XX(231)-JVS(1591)*XX(232)-JVS(1655)&\n              &*XX(238)-JVS(1718)*XX(243)-JVS(1731)*XX(244)-JVS(1790)*XX(248)-JVS(1832)*XX(253)-JVS(1905)*XX(258)-JVS(2026)&\n              &*XX(265)-JVS(2054)*XX(266)-JVS(2067)*XX(268)-JVS(2122)*XX(270)-JVS(2366)*XX(285)-JVS(2386)*XX(286)-JVS(2415)&\n              &*XX(287)-JVS(2448)*XX(288)-JVS(2577)*XX(294)-JVS(2729)*XX(299)-JVS(2758)*XX(301)-JVS(2782)*XX(302)-JVS(2812)&\n              &*XX(303))/(JVS(2826))\n  XX(305) = (X(305)-JVS(284)*XX(34)-JVS(505)*XX(36)-JVS(1007)*XX(150)-JVS(1162)*XX(175)-JVS(1231)*XX(187)-JVS(1363)&\n              &*XX(205)-JVS(1390)*XX(209)-JVS(1400)*XX(210)-JVS(1452)*XX(215)-JVS(1517)*XX(223)-JVS(1579)*XX(230)-JVS(1592)&\n              &*XX(232)-JVS(1656)*XX(238)-JVS(1719)*XX(243)-JVS(1791)*XX(248)-JVS(1843)*XX(254)-JVS(1906)*XX(258)-JVS(2027)&\n              &*XX(265)-JVS(2055)*XX(266)-JVS(2061)*XX(267)-JVS(2123)*XX(270)-JVS(2367)*XX(285)-JVS(2387)*XX(286)-JVS(2416)&\n              &*XX(287)-JVS(2449)*XX(288)-JVS(2578)*XX(294)-JVS(2730)*XX(299)-JVS(2759)*XX(301)-JVS(2783)*XX(302)-JVS(2813)&\n              &*XX(303)-JVS(2827)*XX(304))/(JVS(2841))\n  XX(306) = (X(306)-JVS(60)*XX(7)-JVS(400)*XX(35)-JVS(506)*XX(36)-JVS(1419)*XX(213)-JVS(2028)*XX(265)-JVS(2124)*XX(270)&\n              &-JVS(2285)*XX(282))/(JVS(2894))\n  XX(307) = (X(307)-JVS(61)*XX(7)-JVS(507)*XX(36)-JVS(2029)*XX(265)-JVS(2319)*XX(283)-JVS(2579)*XX(294))/(JVS(2954))\n  XX(308) = (X(308)-JVS(62)*XX(7)-JVS(285)*XX(34)-JVS(401)*XX(35)-JVS(1214)*XX(184)-JVS(1464)*XX(216)-JVS(1774)*XX(247)&\n              &-JVS(1792)*XX(248)-JVS(1913)*XX(259)-JVS(2030)*XX(265)-JVS(2580)*XX(294)-JVS(2955)*XX(307))/(JVS(2978))\n  XX(309) = (X(309)-JVS(402)*XX(35)-JVS(508)*XX(36)-JVS(1732)*XX(244)-JVS(1775)*XX(247)-JVS(1833)*XX(253)-JVS(1914)&\n              &*XX(259)-JVS(2031)*XX(265)-JVS(2417)*XX(287)-JVS(2581)*XX(294)-JVS(2956)*XX(307)-JVS(2979)*XX(308))&\n              &/(JVS(3003))\n  XX(310) = (X(310)-JVS(63)*XX(7)-JVS(286)*XX(34)-JVS(403)*XX(35)-JVS(976)*XX(145)-JVS(1509)*XX(222)-JVS(2068)*XX(268)&\n              &-JVS(2125)*XX(270)-JVS(2136)*XX(271)-JVS(2286)*XX(282)-JVS(2368)*XX(285)-JVS(2388)*XX(286)-JVS(2418)*XX(287)&\n              &-JVS(2450)*XX(288)-JVS(2526)*XX(293)-JVS(2582)*XX(294)-JVS(2731)*XX(299)-JVS(2760)*XX(301)-JVS(2784)*XX(302)&\n              &-JVS(2814)*XX(303)-JVS(2895)*XX(306)-JVS(2957)*XX(307)-JVS(2980)*XX(308)-JVS(3004)*XX(309))/(JVS(3016))\n  XX(311) = (X(311)-JVS(64)*XX(7)-JVS(287)*XX(34)-JVS(404)*XX(35)-JVS(977)*XX(145)-JVS(1227)*XX(186)-JVS(1453)*XX(215)&\n              &-JVS(1510)*XX(222)-JVS(1542)*XX(226)-JVS(1733)*XX(244)-JVS(1776)*XX(247)-JVS(1942)*XX(261)-JVS(2056)*XX(266)&\n              &-JVS(2062)*XX(267)-JVS(2069)*XX(268)-JVS(2126)*XX(270)-JVS(2137)*XX(271)-JVS(2287)*XX(282)-JVS(2369)*XX(285)&\n              &-JVS(2389)*XX(286)-JVS(2419)*XX(287)-JVS(2451)*XX(288)-JVS(2527)*XX(293)-JVS(2583)*XX(294)-JVS(2732)*XX(299)&\n              &-JVS(2761)*XX(301)-JVS(2785)*XX(302)-JVS(2815)*XX(303)-JVS(2828)*XX(304)-JVS(2842)*XX(305)-JVS(2896)*XX(306)&\n              &-JVS(2958)*XX(307)-JVS(2981)*XX(308)-JVS(3005)*XX(309)-JVS(3017)*XX(310))/(JVS(3029))\n  XX(312) = (X(312)-JVS(65)*XX(7)-JVS(181)*XX(32)-JVS(288)*XX(34)-JVS(405)*XX(35)-JVS(523)*XX(37)-JVS(531)*XX(38)&\n              &-JVS(545)*XX(40)-JVS(692)*XX(88)-JVS(923)*XX(134)-JVS(1997)*XX(264)-JVS(2032)*XX(265))/(JVS(3049))\n  XX(313) = (X(313)-JVS(66)*XX(7)-JVS(289)*XX(34)-JVS(1734)*XX(244)-JVS(2288)*XX(282)-JVS(2320)*XX(283)-JVS(2584)&\n              &*XX(294)-JVS(2959)*XX(307))/(JVS(3077))\n  XX(314) = (X(314)-JVS(406)*XX(35)-JVS(509)*XX(36)-JVS(546)*XX(40)-JVS(820)*XX(115)-JVS(1844)*XX(254)-JVS(1998)*XX(264)&\n              &-JVS(2452)*XX(288)-JVS(2475)*XX(290)-JVS(2585)*XX(294)-JVS(2701)*XX(298)-JVS(2786)*XX(302)-JVS(2897)*XX(306)&\n              &-JVS(2960)*XX(307)-JVS(3050)*XX(312))/(JVS(3112))\n  XX(315) = (X(315)-JVS(67)*XX(7)-JVS(290)*XX(34)-JVS(836)*XX(118)-JVS(1041)*XX(156)-JVS(2289)*XX(282)-JVS(2321)&\n              &*XX(283))/(JVS(3129))\n  XX(316) = (X(316)-JVS(407)*XX(35)-JVS(532)*XX(38)-JVS(924)*XX(134)-JVS(994)*XX(148)-JVS(1048)*XX(157))/(JVS(3148))\n  XX(317) = (X(317)-JVS(291)*XX(34)-JVS(408)*XX(35)-JVS(1049)*XX(157)-JVS(1742)*XX(245))/(JVS(3164))\n  XX(318) = (X(318)-JVS(68)*XX(7)-JVS(292)*XX(34)-JVS(1240)*XX(188)-JVS(1814)*XX(251)-JVS(2290)*XX(282)-JVS(2322)&\n              &*XX(283)-JVS(2509)*XX(292)-JVS(2615)*XX(295)-JVS(2702)*XX(298)-JVS(3078)*XX(313)-JVS(3130)*XX(315))&\n              &/(JVS(3179))\n  XX(319) = (X(319)-JVS(69)*XX(7)-JVS(293)*XX(34)-JVS(730)*XX(97)-JVS(1241)*XX(188)-JVS(1815)*XX(251)-JVS(2291)*XX(282)&\n              &-JVS(2323)*XX(283)-JVS(2510)*XX(292)-JVS(2616)*XX(295)-JVS(2703)*XX(298)-JVS(3079)*XX(313)-JVS(3131)*XX(315)&\n              &-JVS(3180)*XX(318))/(JVS(3206))\n  XX(320) = (X(320)-JVS(70)*XX(7)-JVS(294)*XX(34)-JVS(1242)*XX(188)-JVS(1735)*XX(244)-JVS(1755)*XX(246)-JVS(1816)&\n              &*XX(251)-JVS(2234)*XX(279)-JVS(2292)*XX(282)-JVS(2324)*XX(283)-JVS(2511)*XX(292)-JVS(2586)*XX(294)-JVS(2617)&\n              &*XX(295)-JVS(2640)*XX(296)-JVS(2704)*XX(298)-JVS(2898)*XX(306)-JVS(3080)*XX(313)-JVS(3132)*XX(315)-JVS(3181)&\n              &*XX(318)-JVS(3207)*XX(319))/(JVS(3222))\n  XX(321) = (X(321)-JVS(71)*XX(7)-JVS(295)*XX(34)-JVS(719)*XX(95)-JVS(738)*XX(99)-JVS(1243)*XX(188)-JVS(2293)*XX(282)&\n              &-JVS(2325)*XX(283)-JVS(2705)*XX(298)-JVS(3133)*XX(315))/(JVS(3243))\n  XX(322) = (X(322)-JVS(72)*XX(7)-JVS(296)*XX(34)-JVS(864)*XX(124)-JVS(1036)*XX(155)-JVS(1151)*XX(173)-JVS(2641)*XX(296)&\n              &-JVS(3134)*XX(315)-JVS(3244)*XX(321))/(JVS(3276))\n  XX(323) = (X(323)-JVS(73)*XX(7)-JVS(297)*XX(34)-JVS(704)*XX(91)-JVS(742)*XX(100)-JVS(1244)*XX(188)-JVS(2294)*XX(282)&\n              &-JVS(2326)*XX(283)-JVS(2618)*XX(295)-JVS(2706)*XX(298)-JVS(3081)*XX(313)-JVS(3135)*XX(315)-JVS(3245)*XX(321)&\n              &-JVS(3277)*XX(322))/(JVS(3301))\n  XX(324) = (X(324)-JVS(74)*XX(7)-JVS(298)*XX(34)-JVS(708)*XX(92)-JVS(890)*XX(129)-JVS(949)*XX(139)-JVS(978)*XX(145)&\n              &-JVS(1152)*XX(173)-JVS(1533)*XX(225)-JVS(1643)*XX(237)-JVS(1704)*XX(242)-JVS(1799)*XX(249)-JVS(1807)*XX(250)&\n              &-JVS(1852)*XX(255)-JVS(1874)*XX(256)-JVS(1887)*XX(257)-JVS(1923)*XX(260)-JVS(1952)*XX(262)-JVS(1986)*XX(263)&\n              &-JVS(2146)*XX(272)-JVS(2159)*XX(273)-JVS(2181)*XX(274)-JVS(2193)*XX(275)-JVS(2209)*XX(277)-JVS(2223)*XX(278)&\n              &-JVS(2235)*XX(279)-JVS(2249)*XX(280)-JVS(2260)*XX(281)-JVS(2295)*XX(282)-JVS(2327)*XX(283)-JVS(2467)*XX(289)&\n              &-JVS(2483)*XX(291)-JVS(2512)*XX(292)-JVS(2528)*XX(293)-JVS(2587)*XX(294)-JVS(2619)*XX(295)-JVS(2642)*XX(296)&\n              &-JVS(2707)*XX(298)-JVS(2733)*XX(299)-JVS(2743)*XX(300)-JVS(2762)*XX(301)-JVS(2787)*XX(302)-JVS(2816)*XX(303)&\n              &-JVS(2899)*XX(306)-JVS(2961)*XX(307)-JVS(2982)*XX(308)-JVS(3006)*XX(309)-JVS(3018)*XX(310)-JVS(3030)*XX(311)&\n              &-JVS(3051)*XX(312)-JVS(3082)*XX(313)-JVS(3113)*XX(314)-JVS(3136)*XX(315)-JVS(3182)*XX(318)-JVS(3208)*XX(319)&\n              &-JVS(3223)*XX(320)-JVS(3246)*XX(321)-JVS(3278)*XX(322)-JVS(3302)*XX(323))/(JVS(3389))\n  XX(325) = (X(325)-JVS(409)*XX(35)-JVS(510)*XX(36)-JVS(696)*XX(89)-JVS(925)*XX(134)-JVS(1472)*XX(217))/(JVS(3527))\n  XX(326) = (X(326)-JVS(410)*XX(35)-JVS(511)*XX(36)-JVS(1565)*XX(228)-JVS(3390)*XX(324)-JVS(3528)*XX(325))/(JVS(3573))\n  XX(327) = (X(327)-JVS(299)*XX(34)-JVS(609)*XX(64)-JVS(613)*XX(65)-JVS(1105)*XX(166)-JVS(1188)*XX(179)-JVS(1669)&\n              &*XX(239))/(JVS(3665))\n  XX(328) = (X(328)-JVS(75)*XX(7)-JVS(300)*XX(34)-JVS(411)*XX(35)-JVS(512)*XX(36)-JVS(617)*XX(66)-JVS(668)*XX(80)&\n              &-JVS(712)*XX(93)-JVS(779)*XX(106)-JVS(796)*XX(110)-JVS(891)*XX(129)-JVS(899)*XX(130)-JVS(937)*XX(136)&\n              &-JVS(979)*XX(145)-JVS(1042)*XX(156)-JVS(1072)*XX(160)-JVS(1077)*XX(161)-JVS(1089)*XX(163)-JVS(1095)*XX(164)&\n              &-JVS(1120)*XX(169)-JVS(1245)*XX(188)-JVS(1341)*XX(203)-JVS(1465)*XX(216)-JVS(1511)*XX(222)-JVS(1534)*XX(225)&\n              &-JVS(1609)*XX(234)-JVS(1620)*XX(235)-JVS(1634)*XX(236)-JVS(1644)*XX(237)-JVS(1657)*XX(238)-JVS(1705)*XX(242)&\n              &-JVS(1743)*XX(245)-JVS(1777)*XX(247)-JVS(1800)*XX(249)-JVS(1808)*XX(250)-JVS(1853)*XX(255)-JVS(1875)*XX(256)&\n              &-JVS(1888)*XX(257)-JVS(1924)*XX(260)-JVS(1953)*XX(262)-JVS(1987)*XX(263)-JVS(2063)*XX(267)-JVS(2070)*XX(268)&\n              &-JVS(2082)*XX(269)-JVS(2127)*XX(270)-JVS(2138)*XX(271)-JVS(2147)*XX(272)-JVS(2160)*XX(273)-JVS(2182)*XX(274)&\n              &-JVS(2194)*XX(275)-JVS(2210)*XX(277)-JVS(2224)*XX(278)-JVS(2236)*XX(279)-JVS(2250)*XX(280)-JVS(2261)*XX(281)&\n              &-JVS(2296)*XX(282)-JVS(2328)*XX(283)-JVS(2370)*XX(285)-JVS(2390)*XX(286)-JVS(2420)*XX(287)-JVS(2453)*XX(288)&\n              &-JVS(2468)*XX(289)-JVS(2484)*XX(291)-JVS(2513)*XX(292)-JVS(2529)*XX(293)-JVS(2588)*XX(294)-JVS(2620)*XX(295)&\n              &-JVS(2643)*XX(296)-JVS(2708)*XX(298)-JVS(2734)*XX(299)-JVS(2744)*XX(300)-JVS(2763)*XX(301)-JVS(2788)*XX(302)&\n              &-JVS(2817)*XX(303)-JVS(2829)*XX(304)-JVS(2843)*XX(305)-JVS(2900)*XX(306)-JVS(2962)*XX(307)-JVS(2983)*XX(308)&\n              &-JVS(3007)*XX(309)-JVS(3019)*XX(310)-JVS(3031)*XX(311)-JVS(3052)*XX(312)-JVS(3083)*XX(313)-JVS(3114)*XX(314)&\n              &-JVS(3137)*XX(315)-JVS(3183)*XX(318)-JVS(3209)*XX(319)-JVS(3224)*XX(320)-JVS(3247)*XX(321)-JVS(3279)*XX(322)&\n              &-JVS(3303)*XX(323)-JVS(3391)*XX(324)-JVS(3529)*XX(325)-JVS(3574)*XX(326)-JVS(3666)*XX(327))/(JVS(3748))\n  XX(329) = (X(329)-JVS(76)*XX(7)-JVS(524)*XX(37)-JVS(1693)*XX(241)-JVS(1999)*XX(264)-JVS(2329)*XX(283)-JVS(3053)&\n              &*XX(312)-JVS(3530)*XX(325)-JVS(3575)*XX(326)-JVS(3667)*XX(327)-JVS(3749)*XX(328))/(JVS(3871))\n  XX(330) = (X(330)-JVS(92)*XX(9)-JVS(100)*XX(10)-JVS(412)*XX(35)-JVS(657)*XX(77)-JVS(768)*XX(104)-JVS(2344)*XX(284))&\n              &/(JVS(3888))\n  XX(331) = (X(331)-JVS(601)*XX(62)-JVS(642)*XX(73)-JVS(1126)*XX(170)-JVS(1821)*XX(252)-JVS(2345)*XX(284)-JVS(3889)&\n              &*XX(330))/(JVS(3918))\n  XX(332) = (X(332)-JVS(93)*XX(9)-JVS(101)*XX(10)-JVS(413)*XX(35)-JVS(658)*XX(77)-JVS(769)*XX(104)-JVS(1127)*XX(170)&\n              &-JVS(2346)*XX(284)-JVS(3668)*XX(327)-JVS(3890)*XX(330)-JVS(3919)*XX(331))/(JVS(3938))\n  XX(333) = (X(333)-JVS(414)*XX(35)-JVS(533)*XX(38)-JVS(926)*XX(134)-JVS(1050)*XX(157)-JVS(1744)*XX(245))/(JVS(3963))\n  XX(334) = (X(334)-JVS(415)*XX(35)-JVS(539)*XX(39)-JVS(564)*XX(46)-JVS(566)*XX(47)-JVS(568)*XX(48)-JVS(570)*XX(49)&\n              &-JVS(572)*XX(50)-JVS(574)*XX(51)-JVS(578)*XX(53)-JVS(580)*XX(54)-JVS(599)*XX(61)-JVS(605)*XX(63)-JVS(662)&\n              &*XX(78)-JVS(671)*XX(81)-JVS(680)*XX(84)-JVS(683)*XX(85)-JVS(686)*XX(86)-JVS(689)*XX(87)-JVS(774)*XX(105)&\n              &-JVS(1198)*XX(181)-JVS(1473)*XX(217)-JVS(1566)*XX(228)-JVS(1745)*XX(245)-JVS(3531)*XX(325)-JVS(3669)*XX(327)&\n              &-JVS(3750)*XX(328)-JVS(3872)*XX(329)-JVS(3964)*XX(333))/(JVS(4014))\n  XX(335) = (X(335)-JVS(301)*XX(34)-JVS(416)*XX(35)-JVS(586)*XX(56)-JVS(589)*XX(57)-JVS(594)*XX(59)-JVS(606)*XX(63)&\n              &-JVS(621)*XX(67)-JVS(669)*XX(80)-JVS(701)*XX(90)-JVS(787)*XX(108)-JVS(811)*XX(113)-JVS(815)*XX(114)-JVS(831)&\n              &*XX(117)-JVS(857)*XX(122)-JVS(865)*XX(124)-JVS(873)*XX(126)-JVS(950)*XX(139)-JVS(1134)*XX(171)-JVS(1140)&\n              &*XX(172)-JVS(1215)*XX(184)-JVS(1297)*XX(197)-JVS(1342)*XX(203)-JVS(1420)*XX(213)-JVS(1426)*XX(214)-JVS(1482)&\n              &*XX(218)-JVS(1621)*XX(235)-JVS(1635)*XX(236)-JVS(1670)*XX(239)-JVS(1686)*XX(240)-JVS(1694)*XX(241)-JVS(1756)&\n              &*XX(246)-JVS(1793)*XX(248)-JVS(1822)*XX(252)-JVS(1834)*XX(253)-JVS(1845)*XX(254)-JVS(1889)*XX(257)-JVS(1915)&\n              &*XX(259)-JVS(2000)*XX(264)-JVS(2033)*XX(265)-JVS(2083)*XX(269)-JVS(2128)*XX(270)-JVS(2183)*XX(274)-JVS(2225)&\n              &*XX(278)-JVS(2297)*XX(282)-JVS(2330)*XX(283)-JVS(2347)*XX(284)-JVS(2421)*XX(287)-JVS(2454)*XX(288)-JVS(2514)&\n              &*XX(292)-JVS(2589)*XX(294)-JVS(2621)*XX(295)-JVS(2644)*XX(296)-JVS(2654)*XX(297)-JVS(2709)*XX(298)-JVS(2789)&\n              &*XX(302)-JVS(2901)*XX(306)-JVS(2963)*XX(307)-JVS(2984)*XX(308)-JVS(3054)*XX(312)-JVS(3084)*XX(313)-JVS(3138)&\n              &*XX(315)-JVS(3149)*XX(316)-JVS(3165)*XX(317)-JVS(3184)*XX(318)-JVS(3210)*XX(319)-JVS(3225)*XX(320)-JVS(3248)&\n              &*XX(321)-JVS(3280)*XX(322)-JVS(3304)*XX(323)-JVS(3392)*XX(324)-JVS(3532)*XX(325)-JVS(3576)*XX(326)-JVS(3670)&\n              &*XX(327)-JVS(3751)*XX(328)-JVS(3873)*XX(329)-JVS(3891)*XX(330)-JVS(3920)*XX(331)-JVS(3939)*XX(332)-JVS(3965)&\n              &*XX(333)-JVS(4015)*XX(334))/(JVS(4189))\n  XX(336) = (X(336)-JVS(417)*XX(35)-JVS(547)*XX(40)-JVS(693)*XX(88)-JVS(1427)*XX(214)-JVS(1483)*XX(218)-JVS(1695)&\n              &*XX(241)-JVS(2001)*XX(264)-JVS(2034)*XX(265)-JVS(2331)*XX(283)-JVS(2655)*XX(297)-JVS(3055)*XX(312)-JVS(3150)&\n              &*XX(316)-JVS(3166)*XX(317)-JVS(3533)*XX(325)-JVS(3577)*XX(326)-JVS(3671)*XX(327)-JVS(3752)*XX(328)-JVS(3874)&\n              &*XX(329)-JVS(3892)*XX(330)-JVS(3921)*XX(331)-JVS(3940)*XX(332)-JVS(3966)*XX(333)-JVS(4016)*XX(334)-JVS(4190)&\n              &*XX(335))/(JVS(4291))\n  XX(337) = (X(337)-JVS(77)*XX(7)-JVS(104)*XX(11)-JVS(110)*XX(13)-JVS(121)*XX(16)-JVS(127)*XX(18)-JVS(134)*XX(20)&\n              &-JVS(140)*XX(22)-JVS(153)*XX(25)-JVS(159)*XX(27)-JVS(302)*XX(34)-JVS(418)*XX(35)-JVS(513)*XX(36)-JVS(548)&\n              &*XX(40)-JVS(618)*XX(66)-JVS(635)*XX(71)-JVS(639)*XX(72)-JVS(643)*XX(73)-JVS(647)*XX(74)-JVS(709)*XX(92)&\n              &-JVS(731)*XX(97)-JVS(735)*XX(98)-JVS(739)*XX(99)-JVS(743)*XX(100)-JVS(749)*XX(102)-JVS(788)*XX(108)-JVS(803)&\n              &*XX(111)-JVS(807)*XX(112)-JVS(832)*XX(117)-JVS(837)*XX(118)-JVS(852)*XX(121)-JVS(861)*XX(123)-JVS(869)&\n              &*XX(125)-JVS(892)*XX(129)-JVS(900)*XX(130)-JVS(905)*XX(131)-JVS(910)*XX(132)-JVS(915)*XX(133)-JVS(932)&\n              &*XX(135)-JVS(938)*XX(136)-JVS(985)*XX(146)-JVS(1024)*XX(153)-JVS(1037)*XX(155)-JVS(1068)*XX(159)-JVS(1073)&\n              &*XX(160)-JVS(1078)*XX(161)-JVS(1096)*XX(164)-JVS(1101)*XX(165)-JVS(1121)*XX(169)-JVS(1135)*XX(171)-JVS(1141)&\n              &*XX(172)-JVS(1153)*XX(173)-JVS(1159)*XX(174)-JVS(1183)*XX(178)-JVS(1194)*XX(180)-JVS(1204)*XX(182)-JVS(1228)&\n              &*XX(186)-JVS(1232)*XX(187)-JVS(1251)*XX(189)-JVS(1258)*XX(190)-JVS(1267)*XX(192)-JVS(1290)*XX(196)-JVS(1298)&\n              &*XX(197)-JVS(1306)*XX(198)-JVS(1310)*XX(199)-JVS(1343)*XX(203)-JVS(1356)*XX(204)-JVS(1364)*XX(205)-JVS(1369)&\n              &*XX(206)-JVS(1374)*XX(207)-JVS(1386)*XX(208)-JVS(1391)*XX(209)-JVS(1401)*XX(210)-JVS(1412)*XX(212)-JVS(1421)&\n              &*XX(213)-JVS(1454)*XX(215)-JVS(1466)*XX(216)-JVS(1474)*XX(217)-JVS(1512)*XX(222)-JVS(1518)*XX(223)-JVS(1525)&\n              &*XX(224)-JVS(1535)*XX(225)-JVS(1543)*XX(226)-JVS(1560)*XX(227)-JVS(1572)*XX(229)-JVS(1580)*XX(230)-JVS(1586)&\n              &*XX(231)-JVS(1593)*XX(232)-JVS(1599)*XX(233)-JVS(1610)*XX(234)-JVS(1622)*XX(235)-JVS(1636)*XX(236)-JVS(1645)&\n              &*XX(237)-JVS(1658)*XX(238)-JVS(1687)*XX(240)-JVS(1706)*XX(242)-JVS(1720)*XX(243)-JVS(1736)*XX(244)-JVS(1757)&\n              &*XX(246)-JVS(1778)*XX(247)-JVS(1794)*XX(248)-JVS(1801)*XX(249)-JVS(1809)*XX(250)-JVS(1817)*XX(251)-JVS(1835)&\n              &*XX(253)-JVS(1846)*XX(254)-JVS(1854)*XX(255)-JVS(1876)*XX(256)-JVS(1890)*XX(257)-JVS(1907)*XX(258)-JVS(1916)&\n              &*XX(259)-JVS(1925)*XX(260)-JVS(1943)*XX(261)-JVS(1954)*XX(262)-JVS(1988)*XX(263)-JVS(2002)*XX(264)-JVS(2035)&\n              &*XX(265)-JVS(2057)*XX(266)-JVS(2084)*XX(269)-JVS(2129)*XX(270)-JVS(2139)*XX(271)-JVS(2148)*XX(272)-JVS(2161)&\n              &*XX(273)-JVS(2184)*XX(274)-JVS(2195)*XX(275)-JVS(2211)*XX(277)-JVS(2226)*XX(278)-JVS(2237)*XX(279)-JVS(2251)&\n              &*XX(280)-JVS(2262)*XX(281)-JVS(2298)*XX(282)-JVS(2332)*XX(283)-JVS(2348)*XX(284)-JVS(2371)*XX(285)-JVS(2391)&\n              &*XX(286)-JVS(2422)*XX(287)-JVS(2455)*XX(288)-JVS(2469)*XX(289)-JVS(2485)*XX(291)-JVS(2515)*XX(292)-JVS(2530)&\n              &*XX(293)-JVS(2590)*XX(294)-JVS(2622)*XX(295)-JVS(2645)*XX(296)-JVS(2710)*XX(298)-JVS(2735)*XX(299)-JVS(2745)&\n              &*XX(300)-JVS(2764)*XX(301)-JVS(2790)*XX(302)-JVS(2818)*XX(303)-JVS(2830)*XX(304)-JVS(2844)*XX(305)-JVS(2902)&\n              &*XX(306)-JVS(2964)*XX(307)-JVS(2985)*XX(308)-JVS(3008)*XX(309)-JVS(3020)*XX(310)-JVS(3032)*XX(311)-JVS(3056)&\n              &*XX(312)-JVS(3085)*XX(313)-JVS(3115)*XX(314)-JVS(3139)*XX(315)-JVS(3151)*XX(316)-JVS(3185)*XX(318)-JVS(3211)&\n              &*XX(319)-JVS(3226)*XX(320)-JVS(3249)*XX(321)-JVS(3281)*XX(322)-JVS(3305)*XX(323)-JVS(3393)*XX(324)-JVS(3534)&\n              &*XX(325)-JVS(3578)*XX(326)-JVS(3672)*XX(327)-JVS(3753)*XX(328)-JVS(3875)*XX(329)-JVS(3893)*XX(330)-JVS(3922)&\n              &*XX(331)-JVS(3941)*XX(332)-JVS(3967)*XX(333)-JVS(4017)*XX(334)-JVS(4191)*XX(335)-JVS(4292)*XX(336))&\n              &/(JVS(4500))\n  XX(338) = (X(338)-JVS(419)*XX(35)-JVS(653)*XX(76)-JVS(770)*XX(104)-JVS(797)*XX(110)-JVS(846)*XX(120)-JVS(1051)*XX(157)&\n              &-JVS(1746)*XX(245)-JVS(2349)*XX(284)-JVS(3167)*XX(317)-JVS(3535)*XX(325)-JVS(3673)*XX(327)-JVS(3754)*XX(328)&\n              &-JVS(3876)*XX(329)-JVS(3894)*XX(330)-JVS(3923)*XX(331)-JVS(3942)*XX(332)-JVS(3968)*XX(333)-JVS(4018)*XX(334)&\n              &-JVS(4192)*XX(335)-JVS(4293)*XX(336)-JVS(4501)*XX(337))/(JVS(4556))\n  XX(339) = (X(339)-JVS(420)*XX(35)-JVS(1052)*XX(157)-JVS(1106)*XX(166)-JVS(1189)*XX(179)-JVS(1428)*XX(214)-JVS(1475)&\n              &*XX(217)-JVS(1484)*XX(218)-JVS(1671)*XX(239)-JVS(1747)*XX(245)-JVS(2656)*XX(297)-JVS(3152)*XX(316)-JVS(3168)&\n              &*XX(317)-JVS(3674)*XX(327)-JVS(3969)*XX(333)-JVS(4019)*XX(334)-JVS(4193)*XX(335)-JVS(4294)*XX(336)-JVS(4502)&\n              &*XX(337)-JVS(4557)*XX(338))/(JVS(4634))\n  XX(340) = (X(340)-JVS(78)*XX(7)-JVS(303)*XX(34)-JVS(514)*XX(36)-JVS(540)*XX(39)-JVS(650)*XX(75)-JVS(665)*XX(79)&\n              &-JVS(798)*XX(110)-JVS(957)*XX(141)-JVS(961)*XX(142)-JVS(1043)*XX(156)-JVS(1097)*XX(164)-JVS(1199)*XX(181)&\n              &-JVS(1208)*XX(183)-JVS(1476)*XX(217)-JVS(1567)*XX(228)-JVS(1748)*XX(245)-JVS(1926)*XX(260)-JVS(2003)*XX(264)&\n              &-JVS(2036)*XX(265)-JVS(2201)*XX(276)-JVS(2299)*XX(282)-JVS(2333)*XX(283)-JVS(2423)*XX(287)-JVS(2456)*XX(288)&\n              &-JVS(2476)*XX(290)-JVS(2591)*XX(294)-JVS(2623)*XX(295)-JVS(2646)*XX(296)-JVS(2711)*XX(298)-JVS(2746)*XX(300)&\n              &-JVS(2791)*XX(302)-JVS(2831)*XX(304)-JVS(2845)*XX(305)-JVS(2903)*XX(306)-JVS(2965)*XX(307)-JVS(2986)*XX(308)&\n              &-JVS(3009)*XX(309)-JVS(3021)*XX(310)-JVS(3033)*XX(311)-JVS(3057)*XX(312)-JVS(3086)*XX(313)-JVS(3116)*XX(314)&\n              &-JVS(3140)*XX(315)-JVS(3169)*XX(317)-JVS(3212)*XX(319)-JVS(3227)*XX(320)-JVS(3250)*XX(321)-JVS(3282)*XX(322)&\n              &-JVS(3306)*XX(323)-JVS(3394)*XX(324)-JVS(3536)*XX(325)-JVS(3579)*XX(326)-JVS(3675)*XX(327)-JVS(3755)*XX(328)&\n              &-JVS(3877)*XX(329)-JVS(3970)*XX(333)-JVS(4020)*XX(334)-JVS(4194)*XX(335)-JVS(4295)*XX(336)-JVS(4503)*XX(337)&\n              &-JVS(4558)*XX(338)-JVS(4635)*XX(339))/(JVS(4730))\n  XX(341) = (X(341)-JVS(79)*XX(7)-JVS(167)*XX(29)-JVS(421)*XX(35)-JVS(515)*XX(36)-JVS(534)*XX(38)-JVS(549)*XX(40)&\n              &-JVS(792)*XX(109)-JVS(821)*XX(115)-JVS(893)*XX(129)-JVS(927)*XX(134)-JVS(953)*XX(140)-JVS(966)*XX(143)&\n              &-JVS(1030)*XX(154)-JVS(1090)*XX(163)-JVS(1107)*XX(166)-JVS(1110)*XX(167)-JVS(1176)*XX(177)-JVS(1190)*XX(179)&\n              &-JVS(1262)*XX(191)-JVS(1271)*XX(193)-JVS(1284)*XX(195)-JVS(1321)*XX(201)-JVS(1329)*XX(202)-JVS(1344)*XX(203)&\n              &-JVS(1357)*XX(204)-JVS(1406)*XX(211)-JVS(1413)*XX(212)-JVS(1477)*XX(217)-JVS(1488)*XX(219)-JVS(1492)*XX(220)&\n              &-JVS(1505)*XX(221)-JVS(1536)*XX(225)-JVS(1568)*XX(228)-JVS(1573)*XX(229)-JVS(1600)*XX(233)-JVS(1611)*XX(234)&\n              &-JVS(1623)*XX(235)-JVS(1637)*XX(236)-JVS(1646)*XX(237)-JVS(1672)*XX(239)-JVS(1696)*XX(241)-JVS(1707)*XX(242)&\n              &-JVS(1855)*XX(255)-JVS(1877)*XX(256)-JVS(1891)*XX(257)-JVS(1955)*XX(262)-JVS(1989)*XX(263)-JVS(2004)*XX(264)&\n              &-JVS(2037)*XX(265)-JVS(2085)*XX(269)-JVS(2130)*XX(270)-JVS(2149)*XX(272)-JVS(2162)*XX(273)-JVS(2185)*XX(274)&\n              &-JVS(2196)*XX(275)-JVS(2202)*XX(276)-JVS(2212)*XX(277)-JVS(2227)*XX(278)-JVS(2252)*XX(280)-JVS(2263)*XX(281)&\n              &-JVS(2300)*XX(282)-JVS(2334)*XX(283)-JVS(2350)*XX(284)-JVS(2424)*XX(287)-JVS(2457)*XX(288)-JVS(2470)*XX(289)&\n              &-JVS(2477)*XX(290)-JVS(2486)*XX(291)-JVS(2516)*XX(292)-JVS(2592)*XX(294)-JVS(2624)*XX(295)-JVS(2647)*XX(296)&\n              &-JVS(2712)*XX(298)-JVS(2747)*XX(300)-JVS(2792)*XX(302)-JVS(2832)*XX(304)-JVS(2846)*XX(305)-JVS(2904)*XX(306)&\n              &-JVS(2966)*XX(307)-JVS(2987)*XX(308)-JVS(3010)*XX(309)-JVS(3022)*XX(310)-JVS(3034)*XX(311)-JVS(3058)*XX(312)&\n              &-JVS(3087)*XX(313)-JVS(3117)*XX(314)-JVS(3141)*XX(315)-JVS(3153)*XX(316)-JVS(3186)*XX(318)-JVS(3213)*XX(319)&\n              &-JVS(3228)*XX(320)-JVS(3251)*XX(321)-JVS(3283)*XX(322)-JVS(3307)*XX(323)-JVS(3395)*XX(324)-JVS(3537)*XX(325)&\n              &-JVS(3580)*XX(326)-JVS(3676)*XX(327)-JVS(3756)*XX(328)-JVS(3878)*XX(329)-JVS(3895)*XX(330)-JVS(3924)*XX(331)&\n              &-JVS(3943)*XX(332)-JVS(3971)*XX(333)-JVS(4021)*XX(334)-JVS(4195)*XX(335)-JVS(4296)*XX(336)-JVS(4504)*XX(337)&\n              &-JVS(4559)*XX(338)-JVS(4636)*XX(339)-JVS(4731)*XX(340))/(JVS(4808))\n  XX(342) = (X(342)-JVS(516)*XX(36)-JVS(595)*XX(59)-JVS(958)*XX(141)-JVS(995)*XX(148)-JVS(1209)*XX(183)-JVS(1485)&\n              &*XX(218)-JVS(1927)*XX(260)-JVS(2301)*XX(282)-JVS(2335)*XX(283)-JVS(2478)*XX(290)-JVS(2593)*XX(294)-JVS(2625)&\n              &*XX(295)-JVS(2648)*XX(296)-JVS(2713)*XX(298)-JVS(2967)*XX(307)-JVS(3059)*XX(312)-JVS(3088)*XX(313)-JVS(3142)&\n              &*XX(315)-JVS(3154)*XX(316)-JVS(3252)*XX(321)-JVS(3284)*XX(322)-JVS(3308)*XX(323)-JVS(3396)*XX(324)-JVS(3538)&\n              &*XX(325)-JVS(3581)*XX(326)-JVS(3677)*XX(327)-JVS(3757)*XX(328)-JVS(3879)*XX(329)-JVS(3972)*XX(333)-JVS(4022)&\n              &*XX(334)-JVS(4196)*XX(335)-JVS(4297)*XX(336)-JVS(4505)*XX(337)-JVS(4560)*XX(338)-JVS(4637)*XX(339)-JVS(4732)&\n              &*XX(340)-JVS(4809)*XX(341))/(JVS(4865))\n  XX(343) = (X(343)-JVS(422)*XX(35)-JVS(517)*XX(36)-JVS(624)*XX(68)-JVS(1478)*XX(217)-JVS(2005)*XX(264)-JVS(3155)&\n              &*XX(316)-JVS(3170)*XX(317)-JVS(3539)*XX(325)-JVS(3678)*XX(327)-JVS(3880)*XX(329)-JVS(3973)*XX(333)-JVS(4023)&\n              &*XX(334)-JVS(4197)*XX(335)-JVS(4298)*XX(336)-JVS(4506)*XX(337)-JVS(4561)*XX(338)-JVS(4638)*XX(339)-JVS(4733)&\n              &*XX(340)-JVS(4810)*XX(341)-JVS(4866)*XX(342))/(JVS(4926))\n  XX(344) = (X(344)-JVS(423)*XX(35)-JVS(771)*XX(104)-JVS(1053)*XX(157)-JVS(1429)*XX(214)-JVS(1673)*XX(239)-JVS(1749)&\n              &*XX(245)-JVS(1823)*XX(252)-JVS(2657)*XX(297)-JVS(3156)*XX(316)-JVS(3171)*XX(317)-JVS(3679)*XX(327)-JVS(3896)&\n              &*XX(330)-JVS(3925)*XX(331)-JVS(3944)*XX(332)-JVS(3974)*XX(333)-JVS(4024)*XX(334)-JVS(4198)*XX(335)-JVS(4299)&\n              &*XX(336)-JVS(4507)*XX(337)-JVS(4562)*XX(338)-JVS(4639)*XX(339)-JVS(4734)*XX(340)-JVS(4811)*XX(341)-JVS(4867)&\n              &*XX(342)-JVS(4927)*XX(343))/(JVS(4960))\n  XX(345) = (X(345)-JVS(13)*XX(6)-JVS(80)*XX(7)-JVS(111)*XX(13)-JVS(115)*XX(14)-JVS(128)*XX(18)-JVS(131)*XX(19)-JVS(141)&\n              &*XX(22)-JVS(150)*XX(24)-JVS(160)*XX(27)-JVS(164)*XX(28)-JVS(182)*XX(32)-JVS(186)*XX(33)-JVS(304)*XX(34)&\n              &-JVS(424)*XX(35)-JVS(518)*XX(36)-JVS(525)*XX(37)-JVS(535)*XX(38)-JVS(541)*XX(39)-JVS(550)*XX(40)-JVS(552)&\n              &*XX(41)-JVS(556)*XX(43)-JVS(576)*XX(52)-JVS(592)*XX(58)-JVS(597)*XX(60)-JVS(619)*XX(66)-JVS(625)*XX(68)&\n              &-JVS(627)*XX(69)-JVS(631)*XX(70)-JVS(636)*XX(71)-JVS(640)*XX(72)-JVS(644)*XX(73)-JVS(648)*XX(74)-JVS(651)&\n              &*XX(75)-JVS(654)*XX(76)-JVS(663)*XX(78)-JVS(666)*XX(79)-JVS(672)*XX(81)-JVS(674)*XX(82)-JVS(677)*XX(83)&\n              &-JVS(681)*XX(84)-JVS(684)*XX(85)-JVS(687)*XX(86)-JVS(690)*XX(87)-JVS(694)*XX(88)-JVS(697)*XX(89)-JVS(702)&\n              &*XX(90)-JVS(705)*XX(91)-JVS(710)*XX(92)-JVS(713)*XX(93)-JVS(716)*XX(94)-JVS(720)*XX(95)-JVS(732)*XX(97)&\n              &-JVS(736)*XX(98)-JVS(740)*XX(99)-JVS(744)*XX(100)-JVS(746)*XX(101)-JVS(750)*XX(102)-JVS(775)*XX(105)-JVS(785)&\n              &*XX(107)-JVS(789)*XX(108)-JVS(793)*XX(109)-JVS(799)*XX(110)-JVS(804)*XX(111)-JVS(808)*XX(112)-JVS(812)&\n              &*XX(113)-JVS(816)*XX(114)-JVS(822)*XX(115)-JVS(825)*XX(116)-JVS(833)*XX(117)-JVS(838)*XX(118)-JVS(843)&\n              &*XX(119)-JVS(847)*XX(120)-JVS(853)*XX(121)-JVS(858)*XX(122)-JVS(862)*XX(123)-JVS(866)*XX(124)-JVS(870)&\n              &*XX(125)-JVS(874)*XX(126)-JVS(877)*XX(127)-JVS(884)*XX(128)-JVS(894)*XX(129)-JVS(901)*XX(130)-JVS(906)&\n              &*XX(131)-JVS(911)*XX(132)-JVS(916)*XX(133)-JVS(928)*XX(134)-JVS(933)*XX(135)-JVS(939)*XX(136)-JVS(942)&\n              &*XX(137)-JVS(946)*XX(138)-JVS(951)*XX(139)-JVS(954)*XX(140)-JVS(959)*XX(141)-JVS(962)*XX(142)-JVS(967)&\n              &*XX(143)-JVS(972)*XX(144)-JVS(986)*XX(146)-JVS(991)*XX(147)-JVS(996)*XX(148)-JVS(1002)*XX(149)-JVS(1008)&\n              &*XX(150)-JVS(1014)*XX(151)-JVS(1020)*XX(152)-JVS(1025)*XX(153)-JVS(1031)*XX(154)-JVS(1038)*XX(155)-JVS(1044)&\n              &*XX(156)-JVS(1064)*XX(158)-JVS(1069)*XX(159)-JVS(1074)*XX(160)-JVS(1079)*XX(161)-JVS(1084)*XX(162)-JVS(1091)&\n              &*XX(163)-JVS(1098)*XX(164)-JVS(1102)*XX(165)-JVS(1111)*XX(167)-JVS(1115)*XX(168)-JVS(1122)*XX(169)-JVS(1128)&\n              &*XX(170)-JVS(1154)*XX(173)-JVS(1160)*XX(174)-JVS(1163)*XX(175)-JVS(1169)*XX(176)-JVS(1177)*XX(177)-JVS(1184)&\n              &*XX(178)-JVS(1195)*XX(180)-JVS(1200)*XX(181)-JVS(1205)*XX(182)-JVS(1210)*XX(183)-JVS(1216)*XX(184)-JVS(1225)&\n              &*XX(185)-JVS(1229)*XX(186)-JVS(1233)*XX(187)-JVS(1246)*XX(188)-JVS(1252)*XX(189)-JVS(1259)*XX(190)-JVS(1263)&\n              &*XX(191)-JVS(1268)*XX(192)-JVS(1272)*XX(193)-JVS(1280)*XX(194)-JVS(1285)*XX(195)-JVS(1291)*XX(196)-JVS(1299)&\n              &*XX(197)-JVS(1307)*XX(198)-JVS(1311)*XX(199)-JVS(1313)*XX(200)-JVS(1322)*XX(201)-JVS(1330)*XX(202)-JVS(1345)&\n              &*XX(203)-JVS(1358)*XX(204)-JVS(1365)*XX(205)-JVS(1370)*XX(206)-JVS(1375)*XX(207)-JVS(1387)*XX(208)-JVS(1392)&\n              &*XX(209)-JVS(1402)*XX(210)-JVS(1407)*XX(211)-JVS(1414)*XX(212)-JVS(1422)*XX(213)-JVS(1455)*XX(215)-JVS(1467)&\n              &*XX(216)-JVS(1479)*XX(217)-JVS(1489)*XX(219)-JVS(1493)*XX(220)-JVS(1506)*XX(221)-JVS(1513)*XX(222)-JVS(1519)&\n              &*XX(223)-JVS(1526)*XX(224)-JVS(1537)*XX(225)-JVS(1544)*XX(226)-JVS(1561)*XX(227)-JVS(1569)*XX(228)-JVS(1574)&\n              &*XX(229)-JVS(1581)*XX(230)-JVS(1587)*XX(231)-JVS(1594)*XX(232)-JVS(1601)*XX(233)-JVS(1612)*XX(234)-JVS(1624)&\n              &*XX(235)-JVS(1638)*XX(236)-JVS(1647)*XX(237)-JVS(1659)*XX(238)-JVS(1674)*XX(239)-JVS(1688)*XX(240)-JVS(1708)&\n              &*XX(242)-JVS(1721)*XX(243)-JVS(1737)*XX(244)-JVS(1750)*XX(245)-JVS(1758)*XX(246)-JVS(1779)*XX(247)-JVS(1795)&\n              &*XX(248)-JVS(1802)*XX(249)-JVS(1810)*XX(250)-JVS(1818)*XX(251)-JVS(1836)*XX(253)-JVS(1847)*XX(254)-JVS(1856)&\n              &*XX(255)-JVS(1878)*XX(256)-JVS(1892)*XX(257)-JVS(1908)*XX(258)-JVS(1917)*XX(259)-JVS(1928)*XX(260)-JVS(1944)&\n              &*XX(261)-JVS(1956)*XX(262)-JVS(1990)*XX(263)-JVS(2006)*XX(264)-JVS(2038)*XX(265)-JVS(2058)*XX(266)-JVS(2064)&\n              &*XX(267)-JVS(2071)*XX(268)-JVS(2086)*XX(269)-JVS(2131)*XX(270)-JVS(2140)*XX(271)-JVS(2150)*XX(272)-JVS(2163)&\n              &*XX(273)-JVS(2186)*XX(274)-JVS(2197)*XX(275)-JVS(2203)*XX(276)-JVS(2213)*XX(277)-JVS(2228)*XX(278)-JVS(2238)&\n              &*XX(279)-JVS(2253)*XX(280)-JVS(2264)*XX(281)-JVS(2302)*XX(282)-JVS(2336)*XX(283)-JVS(2351)*XX(284)-JVS(2372)&\n              &*XX(285)-JVS(2392)*XX(286)-JVS(2425)*XX(287)-JVS(2458)*XX(288)-JVS(2471)*XX(289)-JVS(2479)*XX(290)-JVS(2487)&\n              &*XX(291)-JVS(2517)*XX(292)-JVS(2531)*XX(293)-JVS(2594)*XX(294)-JVS(2626)*XX(295)-JVS(2649)*XX(296)-JVS(2658)&\n              &*XX(297)-JVS(2714)*XX(298)-JVS(2736)*XX(299)-JVS(2748)*XX(300)-JVS(2765)*XX(301)-JVS(2793)*XX(302)-JVS(2819)&\n              &*XX(303)-JVS(2833)*XX(304)-JVS(2847)*XX(305)-JVS(2905)*XX(306)-JVS(2968)*XX(307)-JVS(2988)*XX(308)-JVS(3011)&\n              &*XX(309)-JVS(3023)*XX(310)-JVS(3035)*XX(311)-JVS(3060)*XX(312)-JVS(3089)*XX(313)-JVS(3118)*XX(314)-JVS(3143)&\n              &*XX(315)-JVS(3157)*XX(316)-JVS(3172)*XX(317)-JVS(3187)*XX(318)-JVS(3214)*XX(319)-JVS(3229)*XX(320)-JVS(3253)&\n              &*XX(321)-JVS(3285)*XX(322)-JVS(3309)*XX(323)-JVS(3397)*XX(324)-JVS(3540)*XX(325)-JVS(3582)*XX(326)-JVS(3680)&\n              &*XX(327)-JVS(3758)*XX(328)-JVS(3881)*XX(329)-JVS(3897)*XX(330)-JVS(3926)*XX(331)-JVS(3945)*XX(332)-JVS(3975)&\n              &*XX(333)-JVS(4025)*XX(334)-JVS(4199)*XX(335)-JVS(4300)*XX(336)-JVS(4508)*XX(337)-JVS(4563)*XX(338)-JVS(4640)&\n              &*XX(339)-JVS(4735)*XX(340)-JVS(4812)*XX(341)-JVS(4868)*XX(342)-JVS(4928)*XX(343)-JVS(4961)*XX(344))&\n              &/(JVS(5236))\n  XX(346) = (X(346)-JVS(81)*XX(7)-JVS(107)*XX(12)-JVS(112)*XX(13)-JVS(124)*XX(17)-JVS(129)*XX(18)-JVS(137)*XX(21)&\n              &-JVS(142)*XX(22)-JVS(156)*XX(26)-JVS(161)*XX(27)-JVS(305)*XX(34)-JVS(519)*XX(36)-JVS(602)*XX(62)-JVS(622)&\n              &*XX(67)-JVS(632)*XX(70)-JVS(678)*XX(83)-JVS(706)*XX(91)-JVS(714)*XX(93)-JVS(721)*XX(95)-JVS(727)*XX(96)&\n              &-JVS(780)*XX(106)-JVS(826)*XX(116)-JVS(854)*XX(121)-JVS(878)*XX(127)-JVS(895)*XX(129)-JVS(907)*XX(131)&\n              &-JVS(912)*XX(132)-JVS(917)*XX(133)-JVS(934)*XX(135)-JVS(943)*XX(137)-JVS(947)*XX(138)-JVS(980)*XX(145)&\n              &-JVS(987)*XX(146)-JVS(1026)*XX(153)-JVS(1085)*XX(162)-JVS(1092)*XX(163)-JVS(1103)*XX(165)-JVS(1116)*XX(168)&\n              &-JVS(1129)*XX(170)-JVS(1136)*XX(171)-JVS(1142)*XX(172)-JVS(1164)*XX(175)-JVS(1170)*XX(176)-JVS(1178)*XX(177)&\n              &-JVS(1185)*XX(178)-JVS(1196)*XX(180)-JVS(1206)*XX(182)-JVS(1253)*XX(189)-JVS(1260)*XX(190)-JVS(1273)*XX(193)&\n              &-JVS(1292)*XX(196)-JVS(1300)*XX(197)-JVS(1346)*XX(203)-JVS(1359)*XX(204)-JVS(1366)*XX(205)-JVS(1371)*XX(206)&\n              &-JVS(1376)*XX(207)-JVS(1388)*XX(208)-JVS(1403)*XX(210)-JVS(1408)*XX(211)-JVS(1415)*XX(212)-JVS(1423)*XX(213)&\n              &-JVS(1456)*XX(215)-JVS(1468)*XX(216)-JVS(1520)*XX(223)-JVS(1527)*XX(224)-JVS(1538)*XX(225)-JVS(1545)*XX(226)&\n              &-JVS(1562)*XX(227)-JVS(1595)*XX(232)-JVS(1602)*XX(233)-JVS(1613)*XX(234)-JVS(1625)*XX(235)-JVS(1639)*XX(236)&\n              &-JVS(1648)*XX(237)-JVS(1660)*XX(238)-JVS(1675)*XX(239)-JVS(1689)*XX(240)-JVS(1697)*XX(241)-JVS(1709)*XX(242)&\n              &-JVS(1722)*XX(243)-JVS(1738)*XX(244)-JVS(1759)*XX(246)-JVS(1780)*XX(247)-JVS(1796)*XX(248)-JVS(1803)*XX(249)&\n              &-JVS(1811)*XX(250)-JVS(1819)*XX(251)-JVS(1837)*XX(253)-JVS(1848)*XX(254)-JVS(1857)*XX(255)-JVS(1879)*XX(256)&\n              &-JVS(1893)*XX(257)-JVS(1909)*XX(258)-JVS(1918)*XX(259)-JVS(1929)*XX(260)-JVS(1945)*XX(261)-JVS(1957)*XX(262)&\n              &-JVS(1991)*XX(263)-JVS(2007)*XX(264)-JVS(2039)*XX(265)-JVS(2059)*XX(266)-JVS(2065)*XX(267)-JVS(2072)*XX(268)&\n              &-JVS(2087)*XX(269)-JVS(2132)*XX(270)-JVS(2141)*XX(271)-JVS(2151)*XX(272)-JVS(2164)*XX(273)-JVS(2187)*XX(274)&\n              &-JVS(2198)*XX(275)-JVS(2214)*XX(277)-JVS(2229)*XX(278)-JVS(2239)*XX(279)-JVS(2254)*XX(280)-JVS(2265)*XX(281)&\n              &-JVS(2303)*XX(282)-JVS(2337)*XX(283)-JVS(2352)*XX(284)-JVS(2373)*XX(285)-JVS(2393)*XX(286)-JVS(2426)*XX(287)&\n              &-JVS(2459)*XX(288)-JVS(2472)*XX(289)-JVS(2488)*XX(291)-JVS(2518)*XX(292)-JVS(2532)*XX(293)-JVS(2595)*XX(294)&\n              &-JVS(2627)*XX(295)-JVS(2650)*XX(296)-JVS(2715)*XX(298)-JVS(2737)*XX(299)-JVS(2749)*XX(300)-JVS(2766)*XX(301)&\n              &-JVS(2794)*XX(302)-JVS(2820)*XX(303)-JVS(2834)*XX(304)-JVS(2848)*XX(305)-JVS(2906)*XX(306)-JVS(2969)*XX(307)&\n              &-JVS(2989)*XX(308)-JVS(3012)*XX(309)-JVS(3024)*XX(310)-JVS(3036)*XX(311)-JVS(3061)*XX(312)-JVS(3090)*XX(313)&\n              &-JVS(3119)*XX(314)-JVS(3144)*XX(315)-JVS(3188)*XX(318)-JVS(3215)*XX(319)-JVS(3230)*XX(320)-JVS(3254)*XX(321)&\n              &-JVS(3286)*XX(322)-JVS(3310)*XX(323)-JVS(3398)*XX(324)-JVS(3541)*XX(325)-JVS(3583)*XX(326)-JVS(3681)*XX(327)&\n              &-JVS(3759)*XX(328)-JVS(3882)*XX(329)-JVS(3898)*XX(330)-JVS(3927)*XX(331)-JVS(3946)*XX(332)-JVS(3976)*XX(333)&\n              &-JVS(4026)*XX(334)-JVS(4200)*XX(335)-JVS(4301)*XX(336)-JVS(4509)*XX(337)-JVS(4564)*XX(338)-JVS(4641)*XX(339)&\n              &-JVS(4736)*XX(340)-JVS(4813)*XX(341)-JVS(4869)*XX(342)-JVS(4929)*XX(343)-JVS(4962)*XX(344)-JVS(5237)*XX(345))&\n              &/(JVS(5358))\n  XX(347) = (X(347)-JVS(425)*XX(35)-JVS(728)*XX(96)-JVS(800)*XX(110)-JVS(848)*XX(120)-JVS(997)*XX(148)-JVS(1054)*XX(157)&\n              &-JVS(1486)*XX(218)-JVS(1751)*XX(245)-JVS(2353)*XX(284)-JVS(3158)*XX(316)-JVS(3682)*XX(327)-JVS(3899)*XX(330)&\n              &-JVS(3928)*XX(331)-JVS(3947)*XX(332)-JVS(3977)*XX(333)-JVS(4027)*XX(334)-JVS(4201)*XX(335)-JVS(4302)*XX(336)&\n              &-JVS(4510)*XX(337)-JVS(4565)*XX(338)-JVS(4642)*XX(339)-JVS(4737)*XX(340)-JVS(4814)*XX(341)-JVS(4870)*XX(342)&\n              &-JVS(4930)*XX(343)-JVS(4963)*XX(344)-JVS(5238)*XX(345)-JVS(5359)*XX(346))/(JVS(5391))\n  XX(348) = (X(348)-JVS(168)*XX(29)-JVS(183)*XX(32)-JVS(187)*XX(33)-JVS(426)*XX(35)-JVS(536)*XX(38)-JVS(698)*XX(89)&\n              &-JVS(929)*XX(134)-JVS(1108)*XX(166)-JVS(1191)*XX(179)-JVS(1676)*XX(239)-JVS(1698)*XX(241)-JVS(2008)*XX(264)&\n              &-JVS(2338)*XX(283)-JVS(3062)*XX(312)-JVS(3159)*XX(316)-JVS(3542)*XX(325)-JVS(3584)*XX(326)-JVS(3683)*XX(327)&\n              &-JVS(3760)*XX(328)-JVS(3883)*XX(329)-JVS(3978)*XX(333)-JVS(4028)*XX(334)-JVS(4202)*XX(335)-JVS(4303)*XX(336)&\n              &-JVS(4511)*XX(337)-JVS(4566)*XX(338)-JVS(4643)*XX(339)-JVS(4738)*XX(340)-JVS(4815)*XX(341)-JVS(4871)*XX(342)&\n              &-JVS(4931)*XX(343)-JVS(4964)*XX(344)-JVS(5239)*XX(345)-JVS(5360)*XX(346)-JVS(5392)*XX(347))/(JVS(5433))\n  XX(349) = (X(349)-JVS(427)*XX(35)-JVS(659)*XX(77)-JVS(998)*XX(148)-JVS(1055)*XX(157)-JVS(1677)*XX(239)-JVS(1824)&\n              &*XX(252)-JVS(2659)*XX(297)-JVS(3160)*XX(316)-JVS(3173)*XX(317)-JVS(3684)*XX(327)-JVS(3900)*XX(330)-JVS(3929)&\n              &*XX(331)-JVS(3948)*XX(332)-JVS(3979)*XX(333)-JVS(4029)*XX(334)-JVS(4203)*XX(335)-JVS(4304)*XX(336)-JVS(4512)&\n              &*XX(337)-JVS(4567)*XX(338)-JVS(4644)*XX(339)-JVS(4739)*XX(340)-JVS(4816)*XX(341)-JVS(4872)*XX(342)-JVS(4932)&\n              &*XX(343)-JVS(4965)*XX(344)-JVS(5240)*XX(345)-JVS(5361)*XX(346)-JVS(5393)*XX(347)-JVS(5434)*XX(348))&\n              &/(JVS(5460))\n  XX(350) = (X(350)-JVS(428)*XX(35)-JVS(660)*XX(77)-JVS(999)*XX(148)-JVS(1056)*XX(157)-JVS(1678)*XX(239)-JVS(1825)&\n              &*XX(252)-JVS(2660)*XX(297)-JVS(3161)*XX(316)-JVS(3174)*XX(317)-JVS(3685)*XX(327)-JVS(3901)*XX(330)-JVS(3930)&\n              &*XX(331)-JVS(3949)*XX(332)-JVS(3980)*XX(333)-JVS(4030)*XX(334)-JVS(4204)*XX(335)-JVS(4305)*XX(336)-JVS(4513)&\n              &*XX(337)-JVS(4568)*XX(338)-JVS(4645)*XX(339)-JVS(4740)*XX(340)-JVS(4817)*XX(341)-JVS(4873)*XX(342)-JVS(4933)&\n              &*XX(343)-JVS(4966)*XX(344)-JVS(5241)*XX(345)-JVS(5362)*XX(346)-JVS(5394)*XX(347)-JVS(5435)*XX(348)-JVS(5461)&\n              &*XX(349))/(JVS(5487))\n  XX(351) = (X(351)-JVS(82)*XX(7)-JVS(118)*XX(15)-JVS(429)*XX(35)-JVS(520)*XX(36)-JVS(610)*XX(64)-JVS(614)*XX(65)&\n              &-JVS(628)*XX(69)-JVS(717)*XX(94)-JVS(781)*XX(106)-JVS(896)*XX(129)-JVS(955)*XX(140)-JVS(963)*XX(142)-JVS(981)&\n              &*XX(145)-JVS(1003)*XX(149)-JVS(1032)*XX(154)-JVS(1065)*XX(158)-JVS(1093)*XX(163)-JVS(1112)*XX(167)-JVS(1130)&\n              &*XX(170)-JVS(1179)*XX(177)-JVS(1186)*XX(178)-JVS(1211)*XX(183)-JVS(1254)*XX(189)-JVS(1264)*XX(191)-JVS(1274)&\n              &*XX(193)-JVS(1286)*XX(195)-JVS(1293)*XX(196)-JVS(1314)*XX(200)-JVS(1323)*XX(201)-JVS(1331)*XX(202)-JVS(1347)&\n              &*XX(203)-JVS(1360)*XX(204)-JVS(1409)*XX(211)-JVS(1416)*XX(212)-JVS(1424)*XX(213)-JVS(1430)*XX(214)-JVS(1490)&\n              &*XX(219)-JVS(1494)*XX(220)-JVS(1507)*XX(221)-JVS(1539)*XX(225)-JVS(1575)*XX(229)-JVS(1603)*XX(233)-JVS(1614)&\n              &*XX(234)-JVS(1626)*XX(235)-JVS(1640)*XX(236)-JVS(1649)*XX(237)-JVS(1679)*XX(239)-JVS(1690)*XX(240)-JVS(1710)&\n              &*XX(242)-JVS(1781)*XX(247)-JVS(1812)*XX(250)-JVS(1858)*XX(255)-JVS(1880)*XX(256)-JVS(1894)*XX(257)-JVS(1919)&\n              &*XX(259)-JVS(1946)*XX(261)-JVS(1958)*XX(262)-JVS(1992)*XX(263)-JVS(2040)*XX(265)-JVS(2088)*XX(269)-JVS(2133)&\n              &*XX(270)-JVS(2152)*XX(272)-JVS(2165)*XX(273)-JVS(2188)*XX(274)-JVS(2199)*XX(275)-JVS(2204)*XX(276)-JVS(2215)&\n              &*XX(277)-JVS(2230)*XX(278)-JVS(2255)*XX(280)-JVS(2266)*XX(281)-JVS(2304)*XX(282)-JVS(2339)*XX(283)-JVS(2427)&\n              &*XX(287)-JVS(2460)*XX(288)-JVS(2473)*XX(289)-JVS(2480)*XX(290)-JVS(2489)*XX(291)-JVS(2519)*XX(292)-JVS(2533)&\n              &*XX(293)-JVS(2596)*XX(294)-JVS(2628)*XX(295)-JVS(2651)*XX(296)-JVS(2661)*XX(297)-JVS(2716)*XX(298)-JVS(2738)&\n              &*XX(299)-JVS(2750)*XX(300)-JVS(2767)*XX(301)-JVS(2795)*XX(302)-JVS(2821)*XX(303)-JVS(2835)*XX(304)-JVS(2849)&\n              &*XX(305)-JVS(2907)*XX(306)-JVS(2970)*XX(307)-JVS(2990)*XX(308)-JVS(3013)*XX(309)-JVS(3025)*XX(310)-JVS(3037)&\n              &*XX(311)-JVS(3063)*XX(312)-JVS(3091)*XX(313)-JVS(3120)*XX(314)-JVS(3145)*XX(315)-JVS(3189)*XX(318)-JVS(3216)&\n              &*XX(319)-JVS(3231)*XX(320)-JVS(3255)*XX(321)-JVS(3287)*XX(322)-JVS(3311)*XX(323)-JVS(3399)*XX(324)-JVS(3543)&\n              &*XX(325)-JVS(3585)*XX(326)-JVS(3686)*XX(327)-JVS(3761)*XX(328)-JVS(3884)*XX(329)-JVS(3902)*XX(330)-JVS(3931)&\n              &*XX(331)-JVS(3950)*XX(332)-JVS(3981)*XX(333)-JVS(4031)*XX(334)-JVS(4205)*XX(335)-JVS(4306)*XX(336)-JVS(4514)&\n              &*XX(337)-JVS(4569)*XX(338)-JVS(4646)*XX(339)-JVS(4741)*XX(340)-JVS(4818)*XX(341)-JVS(4874)*XX(342)-JVS(4934)&\n              &*XX(343)-JVS(4967)*XX(344)-JVS(5242)*XX(345)-JVS(5363)*XX(346)-JVS(5395)*XX(347)-JVS(5436)*XX(348)-JVS(5462)&\n              &*XX(349)-JVS(5488)*XX(350))/(JVS(5609))\n  XX(352) = (X(352)-JVS(430)*XX(35)-JVS(1000)*XX(148)-JVS(1057)*XX(157)-JVS(1480)*XX(217)-JVS(1680)*XX(239)-JVS(2662)&\n              &*XX(297)-JVS(3162)*XX(316)-JVS(3175)*XX(317)-JVS(3687)*XX(327)-JVS(3982)*XX(333)-JVS(4032)*XX(334)-JVS(4206)&\n              &*XX(335)-JVS(4307)*XX(336)-JVS(4515)*XX(337)-JVS(4570)*XX(338)-JVS(4647)*XX(339)-JVS(4742)*XX(340)-JVS(4819)&\n              &*XX(341)-JVS(4875)*XX(342)-JVS(4935)*XX(343)-JVS(4968)*XX(344)-JVS(5243)*XX(345)-JVS(5364)*XX(346)-JVS(5396)&\n              &*XX(347)-JVS(5437)*XX(348)-JVS(5463)*XX(349)-JVS(5489)*XX(350)-JVS(5610)*XX(351))/(JVS(5649))\n  XX(353) = (X(353)-JVS(431)*XX(35)-JVS(772)*XX(104)-JVS(1058)*XX(157)-JVS(1431)*XX(214)-JVS(1681)*XX(239)-JVS(1752)&\n              &*XX(245)-JVS(1826)*XX(252)-JVS(2663)*XX(297)-JVS(3163)*XX(316)-JVS(3176)*XX(317)-JVS(3688)*XX(327)-JVS(3903)&\n              &*XX(330)-JVS(3932)*XX(331)-JVS(3951)*XX(332)-JVS(3983)*XX(333)-JVS(4033)*XX(334)-JVS(4207)*XX(335)-JVS(4308)&\n              &*XX(336)-JVS(4516)*XX(337)-JVS(4571)*XX(338)-JVS(4648)*XX(339)-JVS(4743)*XX(340)-JVS(4820)*XX(341)-JVS(4876)&\n              &*XX(342)-JVS(4936)*XX(343)-JVS(4969)*XX(344)-JVS(5244)*XX(345)-JVS(5365)*XX(346)-JVS(5397)*XX(347)-JVS(5438)&\n              &*XX(348)-JVS(5464)*XX(349)-JVS(5490)*XX(350)-JVS(5611)*XX(351)-JVS(5650)*XX(352))/(JVS(5683))\n  XX(353) = XX(353)\n  XX(352) = XX(352)-JVS(5682)*XX(353)\n  XX(351) = XX(351)-JVS(5648)*XX(352)-JVS(5681)*XX(353)\n  XX(350) = XX(350)-JVS(5608)*XX(351)-JVS(5647)*XX(352)-JVS(5680)*XX(353)\n  XX(349) = XX(349)-JVS(5486)*XX(350)-JVS(5607)*XX(351)-JVS(5646)*XX(352)-JVS(5679)*XX(353)\n  XX(348) = XX(348)-JVS(5459)*XX(349)-JVS(5485)*XX(350)-JVS(5606)*XX(351)-JVS(5645)*XX(352)-JVS(5678)*XX(353)\n  XX(347) = XX(347)-JVS(5432)*XX(348)-JVS(5458)*XX(349)-JVS(5484)*XX(350)-JVS(5605)*XX(351)-JVS(5644)*XX(352)-JVS(5677)&\n              &*XX(353)\n  XX(346) = XX(346)-JVS(5390)*XX(347)-JVS(5431)*XX(348)-JVS(5457)*XX(349)-JVS(5483)*XX(350)-JVS(5604)*XX(351)-JVS(5643)&\n              &*XX(352)-JVS(5676)*XX(353)\n  XX(345) = XX(345)-JVS(5357)*XX(346)-JVS(5389)*XX(347)-JVS(5430)*XX(348)-JVS(5456)*XX(349)-JVS(5482)*XX(350)-JVS(5603)&\n              &*XX(351)-JVS(5642)*XX(352)-JVS(5675)*XX(353)\n  XX(344) = XX(344)-JVS(5235)*XX(345)-JVS(5356)*XX(346)-JVS(5388)*XX(347)-JVS(5429)*XX(348)-JVS(5455)*XX(349)-JVS(5481)&\n              &*XX(350)-JVS(5602)*XX(351)-JVS(5641)*XX(352)-JVS(5674)*XX(353)\n  XX(343) = XX(343)-JVS(4959)*XX(344)-JVS(5234)*XX(345)-JVS(5355)*XX(346)-JVS(5387)*XX(347)-JVS(5428)*XX(348)-JVS(5454)&\n              &*XX(349)-JVS(5480)*XX(350)-JVS(5601)*XX(351)-JVS(5640)*XX(352)-JVS(5673)*XX(353)\n  XX(342) = XX(342)-JVS(4925)*XX(343)-JVS(4958)*XX(344)-JVS(5233)*XX(345)-JVS(5354)*XX(346)-JVS(5386)*XX(347)-JVS(5427)&\n              &*XX(348)-JVS(5453)*XX(349)-JVS(5479)*XX(350)-JVS(5600)*XX(351)-JVS(5639)*XX(352)-JVS(5672)*XX(353)\n  XX(341) = XX(341)-JVS(4864)*XX(342)-JVS(4924)*XX(343)-JVS(4957)*XX(344)-JVS(5232)*XX(345)-JVS(5353)*XX(346)-JVS(5385)&\n              &*XX(347)-JVS(5426)*XX(348)-JVS(5452)*XX(349)-JVS(5478)*XX(350)-JVS(5599)*XX(351)-JVS(5638)*XX(352)-JVS(5671)&\n              &*XX(353)\n  XX(340) = XX(340)-JVS(4807)*XX(341)-JVS(4863)*XX(342)-JVS(4923)*XX(343)-JVS(4956)*XX(344)-JVS(5231)*XX(345)-JVS(5352)&\n              &*XX(346)-JVS(5384)*XX(347)-JVS(5425)*XX(348)-JVS(5451)*XX(349)-JVS(5477)*XX(350)-JVS(5598)*XX(351)-JVS(5637)&\n              &*XX(352)-JVS(5670)*XX(353)\n  XX(339) = XX(339)-JVS(4729)*XX(340)-JVS(4806)*XX(341)-JVS(4862)*XX(342)-JVS(4922)*XX(343)-JVS(4955)*XX(344)-JVS(5230)&\n              &*XX(345)-JVS(5351)*XX(346)-JVS(5383)*XX(347)-JVS(5424)*XX(348)-JVS(5450)*XX(349)-JVS(5476)*XX(350)-JVS(5597)&\n              &*XX(351)-JVS(5636)*XX(352)-JVS(5669)*XX(353)\n  XX(338) = XX(338)-JVS(4633)*XX(339)-JVS(4728)*XX(340)-JVS(4805)*XX(341)-JVS(4861)*XX(342)-JVS(4921)*XX(343)-JVS(4954)&\n              &*XX(344)-JVS(5229)*XX(345)-JVS(5350)*XX(346)-JVS(5382)*XX(347)-JVS(5423)*XX(348)-JVS(5449)*XX(349)-JVS(5475)&\n              &*XX(350)-JVS(5596)*XX(351)-JVS(5635)*XX(352)-JVS(5668)*XX(353)\n  XX(337) = XX(337)-JVS(4555)*XX(338)-JVS(4632)*XX(339)-JVS(4727)*XX(340)-JVS(4804)*XX(341)-JVS(4860)*XX(342)-JVS(4920)&\n              &*XX(343)-JVS(4953)*XX(344)-JVS(5228)*XX(345)-JVS(5349)*XX(346)-JVS(5381)*XX(347)-JVS(5422)*XX(348)-JVS(5448)&\n              &*XX(349)-JVS(5474)*XX(350)-JVS(5595)*XX(351)-JVS(5634)*XX(352)-JVS(5667)*XX(353)\n  XX(336) = XX(336)-JVS(4499)*XX(337)-JVS(4554)*XX(338)-JVS(4631)*XX(339)-JVS(4726)*XX(340)-JVS(4803)*XX(341)-JVS(4859)&\n              &*XX(342)-JVS(4919)*XX(343)-JVS(4952)*XX(344)-JVS(5227)*XX(345)-JVS(5348)*XX(346)-JVS(5380)*XX(347)-JVS(5421)&\n              &*XX(348)-JVS(5447)*XX(349)-JVS(5473)*XX(350)-JVS(5594)*XX(351)-JVS(5633)*XX(352)-JVS(5666)*XX(353)\n  XX(335) = XX(335)-JVS(4290)*XX(336)-JVS(4498)*XX(337)-JVS(4553)*XX(338)-JVS(4630)*XX(339)-JVS(4725)*XX(340)-JVS(4802)&\n              &*XX(341)-JVS(4858)*XX(342)-JVS(4918)*XX(343)-JVS(4951)*XX(344)-JVS(5226)*XX(345)-JVS(5347)*XX(346)-JVS(5379)&\n              &*XX(347)-JVS(5420)*XX(348)-JVS(5446)*XX(349)-JVS(5472)*XX(350)-JVS(5593)*XX(351)-JVS(5632)*XX(352)-JVS(5665)&\n              &*XX(353)\n  XX(334) = XX(334)-JVS(4188)*XX(335)-JVS(4289)*XX(336)-JVS(4497)*XX(337)-JVS(4552)*XX(338)-JVS(4629)*XX(339)-JVS(4724)&\n              &*XX(340)-JVS(4801)*XX(341)-JVS(4857)*XX(342)-JVS(4917)*XX(343)-JVS(4950)*XX(344)-JVS(5225)*XX(345)-JVS(5346)&\n              &*XX(346)-JVS(5378)*XX(347)-JVS(5419)*XX(348)-JVS(5592)*XX(351)-JVS(5631)*XX(352)-JVS(5664)*XX(353)\n  XX(333) = XX(333)-JVS(4013)*XX(334)-JVS(4288)*XX(336)-JVS(4551)*XX(338)-JVS(4628)*XX(339)-JVS(4723)*XX(340)-JVS(4856)&\n              &*XX(342)-JVS(4916)*XX(343)-JVS(4949)*XX(344)-JVS(5224)*XX(345)-JVS(5418)*XX(348)-JVS(5630)*XX(352)-JVS(5663)&\n              &*XX(353)\n  XX(332) = XX(332)-JVS(3962)*XX(333)-JVS(4187)*XX(335)-JVS(4287)*XX(336)-JVS(4496)*XX(337)-JVS(4550)*XX(338)-JVS(4627)&\n              &*XX(339)-JVS(4722)*XX(340)-JVS(4800)*XX(341)-JVS(4855)*XX(342)-JVS(4915)*XX(343)-JVS(4948)*XX(344)-JVS(5223)&\n              &*XX(345)-JVS(5345)*XX(346)-JVS(5377)*XX(347)-JVS(5417)*XX(348)-JVS(5445)*XX(349)-JVS(5471)*XX(350)-JVS(5591)&\n              &*XX(351)-JVS(5662)*XX(353)\n  XX(331) = XX(331)-JVS(3937)*XX(332)-JVS(3961)*XX(333)-JVS(4186)*XX(335)-JVS(4286)*XX(336)-JVS(4495)*XX(337)-JVS(4549)&\n              &*XX(338)-JVS(4721)*XX(340)-JVS(4799)*XX(341)-JVS(4854)*XX(342)-JVS(4914)*XX(343)-JVS(4947)*XX(344)-JVS(5222)&\n              &*XX(345)-JVS(5344)*XX(346)-JVS(5376)*XX(347)-JVS(5444)*XX(349)-JVS(5470)*XX(350)-JVS(5590)*XX(351)-JVS(5661)&\n              &*XX(353)\n  XX(330) = XX(330)-JVS(3917)*XX(331)-JVS(3936)*XX(332)-JVS(3960)*XX(333)-JVS(4185)*XX(335)-JVS(4285)*XX(336)-JVS(4494)&\n              &*XX(337)-JVS(4548)*XX(338)-JVS(4720)*XX(340)-JVS(4853)*XX(342)-JVS(4913)*XX(343)-JVS(4946)*XX(344)-JVS(5221)&\n              &*XX(345)-JVS(5343)*XX(346)-JVS(5375)*XX(347)-JVS(5443)*XX(349)-JVS(5469)*XX(350)-JVS(5660)*XX(353)\n  XX(329) = XX(329)-JVS(3959)*XX(333)-JVS(4012)*XX(334)-JVS(4184)*XX(335)-JVS(4284)*XX(336)-JVS(4493)*XX(337)-JVS(4547)&\n              &*XX(338)-JVS(4626)*XX(339)-JVS(4719)*XX(340)-JVS(4798)*XX(341)-JVS(4852)*XX(342)-JVS(4912)*XX(343)-JVS(4945)&\n              &*XX(344)-JVS(5220)*XX(345)-JVS(5342)*XX(346)-JVS(5416)*XX(348)-JVS(5589)*XX(351)-JVS(5629)*XX(352)-JVS(5659)&\n              &*XX(353)\n  XX(328) = XX(328)-JVS(3870)*XX(329)-JVS(3958)*XX(333)-JVS(4011)*XX(334)-JVS(4183)*XX(335)-JVS(4283)*XX(336)-JVS(4492)&\n              &*XX(337)-JVS(4546)*XX(338)-JVS(4625)*XX(339)-JVS(4718)*XX(340)-JVS(4797)*XX(341)-JVS(4851)*XX(342)-JVS(4911)&\n              &*XX(343)-JVS(4944)*XX(344)-JVS(5219)*XX(345)-JVS(5341)*XX(346)-JVS(5415)*XX(348)-JVS(5588)*XX(351)-JVS(5628)&\n              &*XX(352)-JVS(5658)*XX(353)\n  XX(327) = XX(327)-JVS(4182)*XX(335)-JVS(4282)*XX(336)-JVS(4624)*XX(339)-JVS(4796)*XX(341)-JVS(4943)*XX(344)-JVS(5218)&\n              &*XX(345)-JVS(5340)*XX(346)-JVS(5414)*XX(348)-JVS(5587)*XX(351)-JVS(5657)*XX(353)\n  XX(326) = XX(326)-JVS(3664)*XX(327)-JVS(3747)*XX(328)-JVS(3869)*XX(329)-JVS(4010)*XX(334)-JVS(4181)*XX(335)-JVS(4281)&\n              &*XX(336)-JVS(4491)*XX(337)-JVS(4545)*XX(338)-JVS(4623)*XX(339)-JVS(4717)*XX(340)-JVS(4795)*XX(341)-JVS(4850)&\n              &*XX(342)-JVS(4910)*XX(343)-JVS(5217)*XX(345)-JVS(5339)*XX(346)-JVS(5413)*XX(348)-JVS(5586)*XX(351)-JVS(5627)&\n              &*XX(352)\n  XX(325) = XX(325)-JVS(3663)*XX(327)-JVS(3868)*XX(329)-JVS(4280)*XX(336)-JVS(4490)*XX(337)-JVS(4622)*XX(339)-JVS(4716)&\n              &*XX(340)-JVS(4794)*XX(341)-JVS(4849)*XX(342)-JVS(4909)*XX(343)-JVS(5216)*XX(345)-JVS(5412)*XX(348)-JVS(5585)&\n              &*XX(351)-JVS(5626)*XX(352)\n  XX(324) = XX(324)-JVS(3526)*XX(325)-JVS(3572)*XX(326)-JVS(3662)*XX(327)-JVS(3746)*XX(328)-JVS(3867)*XX(329)-JVS(4009)&\n              &*XX(334)-JVS(4180)*XX(335)-JVS(4279)*XX(336)-JVS(4489)*XX(337)-JVS(4544)*XX(338)-JVS(4621)*XX(339)-JVS(4715)&\n              &*XX(340)-JVS(4793)*XX(341)-JVS(4848)*XX(342)-JVS(4908)*XX(343)-JVS(5215)*XX(345)-JVS(5338)*XX(346)-JVS(5411)&\n              &*XX(348)-JVS(5584)*XX(351)-JVS(5625)*XX(352)\n  XX(323) = XX(323)-JVS(3388)*XX(324)-JVS(3525)*XX(325)-JVS(3571)*XX(326)-JVS(3661)*XX(327)-JVS(3745)*XX(328)-JVS(3866)&\n              &*XX(329)-JVS(4179)*XX(335)-JVS(4278)*XX(336)-JVS(4488)*XX(337)-JVS(4543)*XX(338)-JVS(4620)*XX(339)-JVS(4714)&\n              &*XX(340)-JVS(4792)*XX(341)-JVS(4847)*XX(342)-JVS(5214)*XX(345)-JVS(5337)*XX(346)-JVS(5583)*XX(351)-JVS(5624)&\n              &*XX(352)\n  XX(322) = XX(322)-JVS(3300)*XX(323)-JVS(3387)*XX(324)-JVS(3524)*XX(325)-JVS(3570)*XX(326)-JVS(3660)*XX(327)-JVS(3744)&\n              &*XX(328)-JVS(3865)*XX(329)-JVS(4178)*XX(335)-JVS(4277)*XX(336)-JVS(4487)*XX(337)-JVS(4542)*XX(338)-JVS(4619)&\n              &*XX(339)-JVS(4713)*XX(340)-JVS(4791)*XX(341)-JVS(5213)*XX(345)-JVS(5336)*XX(346)-JVS(5582)*XX(351)\n  XX(321) = XX(321)-JVS(3275)*XX(322)-JVS(3299)*XX(323)-JVS(3386)*XX(324)-JVS(3523)*XX(325)-JVS(3569)*XX(326)-JVS(3659)&\n              &*XX(327)-JVS(3743)*XX(328)-JVS(3864)*XX(329)-JVS(4177)*XX(335)-JVS(4276)*XX(336)-JVS(4486)*XX(337)-JVS(4541)&\n              &*XX(338)-JVS(4618)*XX(339)-JVS(4712)*XX(340)-JVS(5212)*XX(345)-JVS(5335)*XX(346)-JVS(5581)*XX(351)\n  XX(320) = XX(320)-JVS(3242)*XX(321)-JVS(3274)*XX(322)-JVS(3298)*XX(323)-JVS(3385)*XX(324)-JVS(3522)*XX(325)-JVS(3568)&\n              &*XX(326)-JVS(3658)*XX(327)-JVS(3742)*XX(328)-JVS(3863)*XX(329)-JVS(4176)*XX(335)-JVS(4275)*XX(336)-JVS(4485)&\n              &*XX(337)-JVS(4540)*XX(338)-JVS(4617)*XX(339)-JVS(4711)*XX(340)-JVS(4790)*XX(341)-JVS(4846)*XX(342)-JVS(5211)&\n              &*XX(345)-JVS(5334)*XX(346)-JVS(5580)*XX(351)-JVS(5623)*XX(352)\n  XX(319) = XX(319)-JVS(3221)*XX(320)-JVS(3241)*XX(321)-JVS(3273)*XX(322)-JVS(3297)*XX(323)-JVS(3384)*XX(324)-JVS(3521)&\n              &*XX(325)-JVS(3567)*XX(326)-JVS(3657)*XX(327)-JVS(3741)*XX(328)-JVS(3862)*XX(329)-JVS(4175)*XX(335)-JVS(4274)&\n              &*XX(336)-JVS(4484)*XX(337)-JVS(4539)*XX(338)-JVS(4616)*XX(339)-JVS(4710)*XX(340)-JVS(4845)*XX(342)-JVS(5210)&\n              &*XX(345)-JVS(5333)*XX(346)-JVS(5579)*XX(351)-JVS(5622)*XX(352)\n  XX(318) = XX(318)-JVS(3205)*XX(319)-JVS(3220)*XX(320)-JVS(3240)*XX(321)-JVS(3272)*XX(322)-JVS(3296)*XX(323)-JVS(3383)&\n              &*XX(324)-JVS(3520)*XX(325)-JVS(3566)*XX(326)-JVS(3656)*XX(327)-JVS(3740)*XX(328)-JVS(3861)*XX(329)-JVS(4174)&\n              &*XX(335)-JVS(4273)*XX(336)-JVS(4483)*XX(337)-JVS(4538)*XX(338)-JVS(4615)*XX(339)-JVS(4709)*XX(340)-JVS(4844)&\n              &*XX(342)-JVS(5209)*XX(345)-JVS(5332)*XX(346)-JVS(5578)*XX(351)-JVS(5621)*XX(352)\n  XX(317) = XX(317)-JVS(3655)*XX(327)-JVS(3957)*XX(333)-JVS(4008)*XX(334)-JVS(4173)*XX(335)-JVS(4272)*XX(336)-JVS(4537)&\n              &*XX(338)-JVS(4614)*XX(339)-JVS(4708)*XX(340)-JVS(4843)*XX(342)-JVS(4907)*XX(343)-JVS(4942)*XX(344)-JVS(5208)&\n              &*XX(345)-JVS(5442)*XX(349)-JVS(5468)*XX(350)-JVS(5577)*XX(351)-JVS(5620)*XX(352)-JVS(5656)*XX(353)\n  XX(316) = XX(316)-JVS(4271)*XX(336)-JVS(4613)*XX(339)-JVS(4707)*XX(340)-JVS(4842)*XX(342)-JVS(4906)*XX(343)-JVS(4941)&\n              &*XX(344)-JVS(5207)*XX(345)-JVS(5374)*XX(347)-JVS(5410)*XX(348)-JVS(5441)*XX(349)-JVS(5467)*XX(350)-JVS(5619)&\n              &*XX(352)-JVS(5655)*XX(353)\n  XX(315) = XX(315)-JVS(3382)*XX(324)-JVS(3519)*XX(325)-JVS(3565)*XX(326)-JVS(3739)*XX(328)-JVS(4172)*XX(335)-JVS(4270)&\n              &*XX(336)-JVS(4482)*XX(337)-JVS(4536)*XX(338)-JVS(4612)*XX(339)-JVS(4706)*XX(340)-JVS(5206)*XX(345)-JVS(5331)&\n              &*XX(346)\n  XX(314) = XX(314)-JVS(3128)*XX(315)-JVS(3239)*XX(321)-JVS(3271)*XX(322)-JVS(3295)*XX(323)-JVS(3381)*XX(324)-JVS(3518)&\n              &*XX(325)-JVS(3564)*XX(326)-JVS(3654)*XX(327)-JVS(3738)*XX(328)-JVS(3860)*XX(329)-JVS(4007)*XX(334)-JVS(4171)&\n              &*XX(335)-JVS(4269)*XX(336)-JVS(4481)*XX(337)-JVS(4611)*XX(339)-JVS(4705)*XX(340)-JVS(4789)*XX(341)-JVS(4841)&\n              &*XX(342)-JVS(4905)*XX(343)-JVS(5205)*XX(345)-JVS(5330)*XX(346)-JVS(5409)*XX(348)-JVS(5576)*XX(351)-JVS(5618)&\n              &*XX(352)\n  XX(313) = XX(313)-JVS(3380)*XX(324)-JVS(3517)*XX(325)-JVS(3653)*XX(327)-JVS(3737)*XX(328)-JVS(3859)*XX(329)-JVS(4170)&\n              &*XX(335)-JVS(4268)*XX(336)-JVS(4480)*XX(337)-JVS(4610)*XX(339)-JVS(4704)*XX(340)-JVS(5204)*XX(345)-JVS(5329)&\n              &*XX(346)-JVS(5575)*XX(351)\n  XX(312) = XX(312)-JVS(3516)*XX(325)-JVS(3858)*XX(329)-JVS(4169)*XX(335)-JVS(4267)*XX(336)-JVS(4479)*XX(337)-JVS(4609)&\n              &*XX(339)-JVS(4703)*XX(340)-JVS(4788)*XX(341)-JVS(4904)*XX(343)-JVS(5203)*XX(345)-JVS(5328)*XX(346)-JVS(5408)&\n              &*XX(348)-JVS(5574)*XX(351)\n  XX(311) = XX(311)-JVS(3048)*XX(312)-JVS(3076)*XX(313)-JVS(3111)*XX(314)-JVS(3379)*XX(324)-JVS(3515)*XX(325)-JVS(3652)&\n              &*XX(327)-JVS(3736)*XX(328)-JVS(3857)*XX(329)-JVS(4168)*XX(335)-JVS(4266)*XX(336)-JVS(4478)*XX(337)-JVS(4608)&\n              &*XX(339)-JVS(4702)*XX(340)-JVS(4787)*XX(341)-JVS(5202)*XX(345)-JVS(5327)*XX(346)-JVS(5573)*XX(351)\n  XX(310) = XX(310)-JVS(3028)*XX(311)-JVS(3047)*XX(312)-JVS(3075)*XX(313)-JVS(3110)*XX(314)-JVS(3378)*XX(324)-JVS(3514)&\n              &*XX(325)-JVS(3651)*XX(327)-JVS(3735)*XX(328)-JVS(3856)*XX(329)-JVS(4167)*XX(335)-JVS(4265)*XX(336)-JVS(4477)&\n              &*XX(337)-JVS(4607)*XX(339)-JVS(4701)*XX(340)-JVS(4786)*XX(341)-JVS(5201)*XX(345)-JVS(5326)*XX(346)-JVS(5572)&\n              &*XX(351)\n  XX(309) = XX(309)-JVS(3046)*XX(312)-JVS(3074)*XX(313)-JVS(3377)*XX(324)-JVS(3513)*XX(325)-JVS(3650)*XX(327)-JVS(3734)&\n              &*XX(328)-JVS(3855)*XX(329)-JVS(4166)*XX(335)-JVS(4264)*XX(336)-JVS(4476)*XX(337)-JVS(4606)*XX(339)-JVS(4700)&\n              &*XX(340)-JVS(4785)*XX(341)-JVS(5200)*XX(345)-JVS(5325)*XX(346)-JVS(5571)*XX(351)\n  XX(308) = XX(308)-JVS(3376)*XX(324)-JVS(3512)*XX(325)-JVS(3649)*XX(327)-JVS(3733)*XX(328)-JVS(3854)*XX(329)-JVS(4165)&\n              &*XX(335)-JVS(4263)*XX(336)-JVS(4475)*XX(337)-JVS(4605)*XX(339)-JVS(4699)*XX(340)-JVS(4784)*XX(341)-JVS(5199)&\n              &*XX(345)-JVS(5324)*XX(346)-JVS(5570)*XX(351)\n  XX(307) = XX(307)-JVS(3375)*XX(324)-JVS(3511)*XX(325)-JVS(3648)*XX(327)-JVS(3732)*XX(328)-JVS(3853)*XX(329)-JVS(4262)&\n              &*XX(336)-JVS(4474)*XX(337)-JVS(4604)*XX(339)-JVS(4698)*XX(340)-JVS(5198)*XX(345)-JVS(5569)*XX(351)\n  XX(306) = XX(306)-JVS(3510)*XX(325)-JVS(3647)*XX(327)-JVS(3852)*XX(329)-JVS(4164)*XX(335)-JVS(4261)*XX(336)-JVS(4473)&\n              &*XX(337)-JVS(4603)*XX(339)-JVS(4697)*XX(340)-JVS(4783)*XX(341)-JVS(5197)*XX(345)-JVS(5323)*XX(346)-JVS(5568)&\n              &*XX(351)\n  XX(305) = XX(305)-JVS(2893)*XX(306)-JVS(2953)*XX(307)-JVS(2977)*XX(308)-JVS(3002)*XX(309)-JVS(3073)*XX(313)-JVS(3109)&\n              &*XX(314)-JVS(3374)*XX(324)-JVS(3509)*XX(325)-JVS(3646)*XX(327)-JVS(3731)*XX(328)-JVS(3851)*XX(329)-JVS(4163)&\n              &*XX(335)-JVS(4260)*XX(336)-JVS(4472)*XX(337)-JVS(4602)*XX(339)-JVS(4696)*XX(340)-JVS(5196)*XX(345)-JVS(5322)&\n              &*XX(346)-JVS(5567)*XX(351)\n  XX(304) = XX(304)-JVS(2840)*XX(305)-JVS(2892)*XX(306)-JVS(2952)*XX(307)-JVS(2976)*XX(308)-JVS(3001)*XX(309)-JVS(3072)&\n              &*XX(313)-JVS(3108)*XX(314)-JVS(3373)*XX(324)-JVS(3508)*XX(325)-JVS(3645)*XX(327)-JVS(3730)*XX(328)-JVS(3850)&\n              &*XX(329)-JVS(4162)*XX(335)-JVS(4259)*XX(336)-JVS(4471)*XX(337)-JVS(4601)*XX(339)-JVS(4695)*XX(340)-JVS(5195)&\n              &*XX(345)-JVS(5321)*XX(346)-JVS(5566)*XX(351)\n  XX(303) = XX(303)-JVS(2891)*XX(306)-JVS(2951)*XX(307)-JVS(2975)*XX(308)-JVS(3000)*XX(309)-JVS(3071)*XX(313)-JVS(3107)&\n              &*XX(314)-JVS(3372)*XX(324)-JVS(3507)*XX(325)-JVS(3644)*XX(327)-JVS(3849)*XX(329)-JVS(4161)*XX(335)-JVS(4258)&\n              &*XX(336)-JVS(4470)*XX(337)-JVS(4600)*XX(339)-JVS(4694)*XX(340)-JVS(5194)*XX(345)-JVS(5320)*XX(346)-JVS(5565)&\n              &*XX(351)\n  XX(302) = XX(302)-JVS(2890)*XX(306)-JVS(3371)*XX(324)-JVS(3506)*XX(325)-JVS(3643)*XX(327)-JVS(3848)*XX(329)-JVS(4160)&\n              &*XX(335)-JVS(4257)*XX(336)-JVS(4469)*XX(337)-JVS(4599)*XX(339)-JVS(4693)*XX(340)-JVS(5193)*XX(345)-JVS(5564)&\n              &*XX(351)\n  XX(301) = XX(301)-JVS(2779)*XX(302)-JVS(2889)*XX(306)-JVS(2950)*XX(307)-JVS(2974)*XX(308)-JVS(3070)*XX(313)-JVS(3370)&\n              &*XX(324)-JVS(3505)*XX(325)-JVS(3642)*XX(327)-JVS(3847)*XX(329)-JVS(4159)*XX(335)-JVS(4256)*XX(336)-JVS(4468)&\n              &*XX(337)-JVS(4598)*XX(339)-JVS(4692)*XX(340)-JVS(5192)*XX(345)-JVS(5319)*XX(346)-JVS(5563)*XX(351)\n  XX(300) = XX(300)-JVS(3069)*XX(313)-JVS(3127)*XX(315)-JVS(3204)*XX(319)-JVS(3219)*XX(320)-JVS(3238)*XX(321)-JVS(3270)&\n              &*XX(322)-JVS(3294)*XX(323)-JVS(3369)*XX(324)-JVS(3504)*XX(325)-JVS(3563)*XX(326)-JVS(3641)*XX(327)-JVS(3729)&\n              &*XX(328)-JVS(3846)*XX(329)-JVS(4158)*XX(335)-JVS(4255)*XX(336)-JVS(4467)*XX(337)-JVS(4597)*XX(339)-JVS(4691)&\n              &*XX(340)-JVS(4840)*XX(342)-JVS(5191)*XX(345)-JVS(5318)*XX(346)-JVS(5562)*XX(351)-JVS(5617)*XX(352)\n  XX(299) = XX(299)-JVS(2755)*XX(301)-JVS(2778)*XX(302)-JVS(2810)*XX(303)-JVS(2888)*XX(306)-JVS(2949)*XX(307)-JVS(2999)&\n              &*XX(309)-JVS(3106)*XX(314)-JVS(3368)*XX(324)-JVS(3503)*XX(325)-JVS(3640)*XX(327)-JVS(3845)*XX(329)-JVS(4157)&\n              &*XX(335)-JVS(4466)*XX(337)-JVS(5190)*XX(345)-JVS(5317)*XX(346)-JVS(5561)*XX(351)\n  XX(298) = XX(298)-JVS(3126)*XX(315)-JVS(3237)*XX(321)-JVS(3269)*XX(322)-JVS(3293)*XX(323)-JVS(3639)*XX(327)-JVS(3844)&\n              &*XX(329)-JVS(4254)*XX(336)-JVS(4465)*XX(337)-JVS(5189)*XX(345)-JVS(5560)*XX(351)\n  XX(297) = XX(297)-JVS(3956)*XX(333)-JVS(4006)*XX(334)-JVS(4156)*XX(335)-JVS(4253)*XX(336)-JVS(4535)*XX(338)-JVS(4596)&\n              &*XX(339)-JVS(4690)*XX(340)-JVS(4839)*XX(342)-JVS(4903)*XX(343)-JVS(4940)*XX(344)-JVS(5188)*XX(345)-JVS(5316)&\n              &*XX(346)-JVS(5440)*XX(349)-JVS(5466)*XX(350)-JVS(5616)*XX(352)-JVS(5654)*XX(353)\n  XX(296) = XX(296)-JVS(3125)*XX(315)-JVS(3367)*XX(324)-JVS(3502)*XX(325)-JVS(3562)*XX(326)-JVS(3728)*XX(328)-JVS(4155)&\n              &*XX(335)-JVS(4252)*XX(336)-JVS(4464)*XX(337)-JVS(4534)*XX(338)-JVS(4595)*XX(339)-JVS(4689)*XX(340)-JVS(5187)&\n              &*XX(345)-JVS(5315)*XX(346)\n  XX(295) = XX(295)-JVS(3068)*XX(313)-JVS(3366)*XX(324)-JVS(3727)*XX(328)-JVS(3843)*XX(329)-JVS(4251)*XX(336)-JVS(4594)&\n              &*XX(339)-JVS(4688)*XX(340)-JVS(4838)*XX(342)-JVS(5186)*XX(345)-JVS(5615)*XX(352)\n  XX(294) = XX(294)-JVS(3365)*XX(324)-JVS(3638)*XX(327)-JVS(3842)*XX(329)-JVS(4463)*XX(337)-JVS(5185)*XX(345)-JVS(5559)&\n              &*XX(351)\n  XX(293) = XX(293)-JVS(2571)*XX(294)-JVS(2726)*XX(299)-JVS(2777)*XX(302)-JVS(2809)*XX(303)-JVS(2887)*XX(306)-JVS(2948)&\n              &*XX(307)-JVS(3364)*XX(324)-JVS(3501)*XX(325)-JVS(3637)*XX(327)-JVS(3841)*XX(329)-JVS(4154)*XX(335)-JVS(4462)&\n              &*XX(337)-JVS(5184)*XX(345)-JVS(5314)*XX(346)-JVS(5558)*XX(351)\n  XX(292) = XX(292)-JVS(3124)*XX(315)-JVS(3218)*XX(320)-JVS(3236)*XX(321)-JVS(3268)*XX(322)-JVS(3292)*XX(323)-JVS(3363)&\n              &*XX(324)-JVS(3636)*XX(327)-JVS(3726)*XX(328)-JVS(4250)*XX(336)-JVS(5183)*XX(345)-JVS(5557)*XX(351)\n  XX(291) = XX(291)-JVS(2506)*XX(292)-JVS(2612)*XX(295)-JVS(2638)*XX(296)-JVS(2698)*XX(298)-JVS(2886)*XX(306)-JVS(2947)&\n              &*XX(307)-JVS(3105)*XX(314)-JVS(3362)*XX(324)-JVS(3500)*XX(325)-JVS(3635)*XX(327)-JVS(3725)*XX(328)-JVS(4153)&\n              &*XX(335)-JVS(4249)*XX(336)-JVS(4461)*XX(337)-JVS(4593)*XX(339)-JVS(4687)*XX(340)-JVS(4782)*XX(341)-JVS(5182)&\n              &*XX(345)-JVS(5313)*XX(346)-JVS(5556)*XX(351)\n  XX(290) = XX(290)-JVS(2570)*XX(294)-JVS(2697)*XX(298)-JVS(2946)*XX(307)-JVS(3045)*XX(312)-JVS(3361)*XX(324)-JVS(3499)&\n              &*XX(325)-JVS(3561)*XX(326)-JVS(3724)*XX(328)-JVS(3840)*XX(329)-JVS(4005)*XX(334)-JVS(4152)*XX(335)-JVS(4248)&\n              &*XX(336)-JVS(4460)*XX(337)-JVS(4592)*XX(339)-JVS(4686)*XX(340)-JVS(4781)*XX(341)-JVS(4837)*XX(342)-JVS(4902)&\n              &*XX(343)-JVS(5181)*XX(345)-JVS(5312)*XX(346)-JVS(5407)*XX(348)-JVS(5555)*XX(351)-JVS(5614)*XX(352)\n  XX(289) = XX(289)-JVS(2505)*XX(292)-JVS(2637)*XX(296)-JVS(2696)*XX(298)-JVS(2945)*XX(307)-JVS(3360)*XX(324)-JVS(3498)&\n              &*XX(325)-JVS(3634)*XX(327)-JVS(3723)*XX(328)-JVS(4151)*XX(335)-JVS(4247)*XX(336)-JVS(4459)*XX(337)-JVS(4591)&\n              &*XX(339)-JVS(4685)*XX(340)-JVS(4780)*XX(341)-JVS(5180)*XX(345)-JVS(5311)*XX(346)-JVS(5554)*XX(351)\n  XX(288) = XX(288)-JVS(2569)*XX(294)-JVS(2885)*XX(306)-JVS(3359)*XX(324)-JVS(3497)*XX(325)-JVS(3633)*XX(327)-JVS(3839)&\n              &*XX(329)-JVS(4458)*XX(337)-JVS(5179)*XX(345)-JVS(5553)*XX(351)\n  XX(287) = XX(287)-JVS(2568)*XX(294)-JVS(2944)*XX(307)-JVS(3067)*XX(313)-JVS(3358)*XX(324)-JVS(3496)*XX(325)-JVS(3838)&\n              &*XX(329)-JVS(4246)*XX(336)-JVS(4457)*XX(337)-JVS(5178)*XX(345)\n  XX(286) = XX(286)-JVS(2411)*XX(287)-JVS(2444)*XX(288)-JVS(2567)*XX(294)-JVS(2884)*XX(306)-JVS(2943)*XX(307)-JVS(3357)&\n              &*XX(324)-JVS(3495)*XX(325)-JVS(3632)*XX(327)-JVS(3837)*XX(329)-JVS(4150)*XX(335)-JVS(4456)*XX(337)-JVS(5177)&\n              &*XX(345)-JVS(5310)*XX(346)-JVS(5552)*XX(351)\n  XX(285) = XX(285)-JVS(2384)*XX(286)-JVS(2410)*XX(287)-JVS(2443)*XX(288)-JVS(2566)*XX(294)-JVS(2883)*XX(306)-JVS(2942)&\n              &*XX(307)-JVS(3356)*XX(324)-JVS(3494)*XX(325)-JVS(3631)*XX(327)-JVS(3836)*XX(329)-JVS(4149)*XX(335)-JVS(4455)&\n              &*XX(337)-JVS(5176)*XX(345)-JVS(5309)*XX(346)-JVS(5551)*XX(351)\n  XX(284) = XX(284)-JVS(3887)*XX(330)-JVS(3916)*XX(331)-JVS(3935)*XX(332)-JVS(3955)*XX(333)-JVS(4148)*XX(335)-JVS(4454)&\n              &*XX(337)-JVS(4533)*XX(338)-JVS(4684)*XX(340)-JVS(4836)*XX(342)-JVS(4901)*XX(343)-JVS(5175)*XX(345)-JVS(5308)&\n              &*XX(346)-JVS(5373)*XX(347)\n  XX(283) = XX(283)-JVS(3722)*XX(328)-JVS(4245)*XX(336)-JVS(4590)*XX(339)-JVS(4683)*XX(340)-JVS(5174)*XX(345)\n  XX(282) = XX(282)-JVS(3493)*XX(325)-JVS(4453)*XX(337)-JVS(4589)*XX(339)-JVS(4682)*XX(340)-JVS(5173)*XX(345)\n  XX(281) = XX(281)-JVS(2278)*XX(282)-JVS(2313)*XX(283)-JVS(2504)*XX(292)-JVS(2695)*XX(298)-JVS(2941)*XX(307)-JVS(3044)&\n              &*XX(312)-JVS(3203)*XX(319)-JVS(3355)*XX(324)-JVS(3492)*XX(325)-JVS(3630)*XX(327)-JVS(3721)*XX(328)-JVS(3835)&\n              &*XX(329)-JVS(4147)*XX(335)-JVS(4452)*XX(337)-JVS(4779)*XX(341)-JVS(5172)*XX(345)-JVS(5307)*XX(346)-JVS(5550)&\n              &*XX(351)\n  XX(280) = XX(280)-JVS(2464)*XX(289)-JVS(2503)*XX(292)-JVS(2694)*XX(298)-JVS(2940)*XX(307)-JVS(3354)*XX(324)-JVS(3491)&\n              &*XX(325)-JVS(3629)*XX(327)-JVS(3720)*XX(328)-JVS(4146)*XX(335)-JVS(4451)*XX(337)-JVS(4778)*XX(341)-JVS(5171)&\n              &*XX(345)-JVS(5306)*XX(346)-JVS(5549)*XX(351)\n  XX(279) = XX(279)-JVS(2277)*XX(282)-JVS(2312)*XX(283)-JVS(2502)*XX(292)-JVS(2611)*XX(295)-JVS(2693)*XX(298)-JVS(3123)&\n              &*XX(315)-JVS(3202)*XX(319)-JVS(3235)*XX(321)-JVS(3291)*XX(323)-JVS(3353)*XX(324)-JVS(3490)*XX(325)-JVS(3560)&\n              &*XX(326)-JVS(3719)*XX(328)-JVS(4145)*XX(335)-JVS(4244)*XX(336)-JVS(4450)*XX(337)-JVS(5170)*XX(345)-JVS(5305)&\n              &*XX(346)\n  XX(278) = XX(278)-JVS(2276)*XX(282)-JVS(2501)*XX(292)-JVS(2610)*XX(295)-JVS(2939)*XX(307)-JVS(3267)*XX(322)-JVS(3352)&\n              &*XX(324)-JVS(3489)*XX(325)-JVS(3628)*XX(327)-JVS(3718)*XX(328)-JVS(4144)*XX(335)-JVS(4449)*XX(337)-JVS(5169)&\n              &*XX(345)-JVS(5304)*XX(346)-JVS(5548)*XX(351)\n  XX(277) = XX(277)-JVS(2221)*XX(278)-JVS(2275)*XX(282)-JVS(2311)*XX(283)-JVS(2500)*XX(292)-JVS(2609)*XX(295)-JVS(2938)&\n              &*XX(307)-JVS(3266)*XX(322)-JVS(3351)*XX(324)-JVS(3488)*XX(325)-JVS(3627)*XX(327)-JVS(3717)*XX(328)-JVS(3834)&\n              &*XX(329)-JVS(4143)*XX(335)-JVS(4448)*XX(337)-JVS(4777)*XX(341)-JVS(5168)*XX(345)-JVS(5303)*XX(346)-JVS(5547)&\n              &*XX(351)\n  XX(276) = XX(276)-JVS(2409)*XX(287)-JVS(2442)*XX(288)-JVS(2565)*XX(294)-JVS(2776)*XX(302)-JVS(2825)*XX(304)-JVS(2839)&\n              &*XX(305)-JVS(2882)*XX(306)-JVS(2937)*XX(307)-JVS(2973)*XX(308)-JVS(2998)*XX(309)-JVS(3015)*XX(310)-JVS(3027)&\n              &*XX(311)-JVS(3043)*XX(312)-JVS(3066)*XX(313)-JVS(3104)*XX(314)-JVS(3350)*XX(324)-JVS(3487)*XX(325)-JVS(3626)&\n              &*XX(327)-JVS(3716)*XX(328)-JVS(3833)*XX(329)-JVS(4142)*XX(335)-JVS(4243)*XX(336)-JVS(4447)*XX(337)-JVS(4588)&\n              &*XX(339)-JVS(4681)*XX(340)-JVS(4776)*XX(341)-JVS(4900)*XX(343)-JVS(5167)*XX(345)-JVS(5302)*XX(346)-JVS(5406)&\n              &*XX(348)-JVS(5546)*XX(351)\n  XX(275) = XX(275)-JVS(2274)*XX(282)-JVS(2310)*XX(283)-JVS(2499)*XX(292)-JVS(2608)*XX(295)-JVS(2692)*XX(298)-JVS(2936)&\n              &*XX(307)-JVS(3201)*XX(319)-JVS(3349)*XX(324)-JVS(3486)*XX(325)-JVS(3625)*XX(327)-JVS(3715)*XX(328)-JVS(4141)&\n              &*XX(335)-JVS(4446)*XX(337)-JVS(4775)*XX(341)-JVS(5166)*XX(345)-JVS(5301)*XX(346)-JVS(5545)*XX(351)\n  XX(274) = XX(274)-JVS(2691)*XX(298)-JVS(3200)*XX(319)-JVS(3348)*XX(324)-JVS(3485)*XX(325)-JVS(3714)*XX(328)-JVS(4140)&\n              &*XX(335)-JVS(4445)*XX(337)-JVS(4774)*XX(341)-JVS(5165)*XX(345)-JVS(5300)*XX(346)-JVS(5544)*XX(351)\n  XX(273) = XX(273)-JVS(2177)*XX(274)-JVS(2273)*XX(282)-JVS(2498)*XX(292)-JVS(2607)*XX(295)-JVS(2690)*XX(298)-JVS(2935)&\n              &*XX(307)-JVS(3199)*XX(319)-JVS(3484)*XX(325)-JVS(3624)*XX(327)-JVS(3713)*XX(328)-JVS(4139)*XX(335)-JVS(4444)&\n              &*XX(337)-JVS(5164)*XX(345)-JVS(5299)*XX(346)-JVS(5543)*XX(351)\n  XX(272) = XX(272)-JVS(2176)*XX(274)-JVS(2272)*XX(282)-JVS(2497)*XX(292)-JVS(2689)*XX(298)-JVS(2934)*XX(307)-JVS(3198)&\n              &*XX(319)-JVS(3347)*XX(324)-JVS(3483)*XX(325)-JVS(3623)*XX(327)-JVS(3712)*XX(328)-JVS(4138)*XX(335)-JVS(4443)&\n              &*XX(337)-JVS(5163)*XX(345)-JVS(5298)*XX(346)-JVS(5542)*XX(351)\n  XX(271) = XX(271)-JVS(2408)*XX(287)-JVS(2441)*XX(288)-JVS(2564)*XX(294)-JVS(2725)*XX(299)-JVS(2775)*XX(302)-JVS(2808)&\n              &*XX(303)-JVS(2881)*XX(306)-JVS(2933)*XX(307)-JVS(3065)*XX(313)-JVS(3346)*XX(324)-JVS(3482)*XX(325)-JVS(3622)&\n              &*XX(327)-JVS(3832)*XX(329)-JVS(4137)*XX(335)-JVS(4242)*XX(336)-JVS(4442)*XX(337)-JVS(5162)*XX(345)-JVS(5297)&\n              &*XX(346)-JVS(5541)*XX(351)\n  XX(270) = XX(270)-JVS(3481)*XX(325)-JVS(3621)*XX(327)-JVS(3831)*XX(329)-JVS(4441)*XX(337)-JVS(5161)*XX(345)-JVS(5540)&\n              &*XX(351)\n  XX(269) = XX(269)-JVS(2112)*XX(270)-JVS(2636)*XX(296)-JVS(2688)*XX(298)-JVS(2880)*XX(306)-JVS(3178)*XX(318)-JVS(3265)&\n              &*XX(322)-JVS(3620)*XX(327)-JVS(3830)*XX(329)-JVS(4136)*XX(335)-JVS(4241)*XX(336)-JVS(4440)*XX(337)-JVS(4587)&\n              &*XX(339)-JVS(4680)*XX(340)-JVS(4773)*XX(341)-JVS(5160)*XX(345)-JVS(5296)*XX(346)-JVS(5539)*XX(351)\n  XX(268) = XX(268)-JVS(2111)*XX(270)-JVS(2363)*XX(285)-JVS(2383)*XX(286)-JVS(2407)*XX(287)-JVS(2440)*XX(288)-JVS(2563)&\n              &*XX(294)-JVS(2724)*XX(299)-JVS(2754)*XX(301)-JVS(2807)*XX(303)-JVS(2879)*XX(306)-JVS(2932)*XX(307)-JVS(3345)&\n              &*XX(324)-JVS(3480)*XX(325)-JVS(3619)*XX(327)-JVS(3829)*XX(329)-JVS(4135)*XX(335)-JVS(4439)*XX(337)-JVS(5159)&\n              &*XX(345)-JVS(5295)*XX(346)\n  XX(267) = XX(267)-JVS(2110)*XX(270)-JVS(2362)*XX(285)-JVS(2382)*XX(286)-JVS(2406)*XX(287)-JVS(2439)*XX(288)-JVS(2562)&\n              &*XX(294)-JVS(2723)*XX(299)-JVS(2753)*XX(301)-JVS(2774)*XX(302)-JVS(2806)*XX(303)-JVS(2878)*XX(306)-JVS(2931)&\n              &*XX(307)-JVS(3344)*XX(324)-JVS(3479)*XX(325)-JVS(3618)*XX(327)-JVS(3828)*XX(329)-JVS(4134)*XX(335)-JVS(4438)&\n              &*XX(337)-JVS(5158)*XX(345)-JVS(5294)*XX(346)-JVS(5538)*XX(351)\n  XX(266) = XX(266)-JVS(2405)*XX(287)-JVS(2438)*XX(288)-JVS(2561)*XX(294)-JVS(2877)*XX(306)-JVS(3617)*XX(327)-JVS(3827)&\n              &*XX(329)-JVS(4133)*XX(335)-JVS(4437)*XX(337)-JVS(5157)*XX(345)\n  XX(265) = XX(265)-JVS(4240)*XX(336)-JVS(4436)*XX(337)-JVS(4586)*XX(339)-JVS(4679)*XX(340)-JVS(5156)*XX(345)\n  XX(264) = XX(264)-JVS(4239)*XX(336)-JVS(4435)*XX(337)-JVS(4585)*XX(339)-JVS(4678)*XX(340)-JVS(4899)*XX(343)-JVS(5155)&\n              &*XX(345)-JVS(5405)*XX(348)\n  XX(263) = XX(263)-JVS(3343)*XX(324)-JVS(3478)*XX(325)-JVS(3711)*XX(328)-JVS(4132)*XX(335)-JVS(4434)*XX(337)-JVS(5154)&\n              &*XX(345)-JVS(5293)*XX(346)-JVS(5537)*XX(351)\n  XX(262) = XX(262)-JVS(1979)*XX(263)-JVS(2245)*XX(280)-JVS(2496)*XX(292)-JVS(2606)*XX(295)-JVS(2876)*XX(306)-JVS(3103)&\n              &*XX(314)-JVS(3477)*XX(325)-JVS(4131)*XX(335)-JVS(4433)*XX(337)-JVS(4772)*XX(341)-JVS(5153)*XX(345)-JVS(5536)&\n              &*XX(351)\n  XX(261) = XX(261)-JVS(3342)*XX(324)-JVS(3476)*XX(325)-JVS(3616)*XX(327)-JVS(3826)*XX(329)-JVS(4130)*XX(335)-JVS(4432)&\n              &*XX(337)-JVS(5152)*XX(345)-JVS(5535)*XX(351)\n  XX(260) = XX(260)-JVS(2271)*XX(282)-JVS(2309)*XX(283)-JVS(2687)*XX(298)-JVS(2930)*XX(307)-JVS(3341)*XX(324)-JVS(3475)&\n              &*XX(325)-JVS(3559)*XX(326)-JVS(3710)*XX(328)-JVS(4129)*XX(335)-JVS(4431)*XX(337)-JVS(5151)*XX(345)-JVS(5292)&\n              &*XX(346)\n  XX(259) = XX(259)-JVS(2019)*XX(265)-JVS(2560)*XX(294)-JVS(2929)*XX(307)-JVS(3340)*XX(324)-JVS(3474)*XX(325)-JVS(3709)&\n              &*XX(328)-JVS(3825)*XX(329)-JVS(4128)*XX(335)-JVS(4430)*XX(337)-JVS(4771)*XX(341)-JVS(5150)*XX(345)-JVS(5291)&\n              &*XX(346)-JVS(5534)*XX(351)\n  XX(258) = XX(258)-JVS(2109)*XX(270)-JVS(2404)*XX(287)-JVS(2559)*XX(294)-JVS(2875)*XX(306)-JVS(2928)*XX(307)-JVS(3339)&\n              &*XX(324)-JVS(3473)*XX(325)-JVS(3824)*XX(329)-JVS(4429)*XX(337)-JVS(5149)*XX(345)\n  XX(257) = XX(257)-JVS(2220)*XX(278)-JVS(3338)*XX(324)-JVS(3472)*XX(325)-JVS(3708)*XX(328)-JVS(4127)*XX(335)-JVS(4428)&\n              &*XX(337)-JVS(4770)*XX(341)-JVS(5148)*XX(345)-JVS(5290)*XX(346)-JVS(5533)*XX(351)\n  XX(256) = XX(256)-JVS(2495)*XX(292)-JVS(2927)*XX(307)-JVS(3615)*XX(327)-JVS(4126)*XX(335)-JVS(5147)*XX(345)-JVS(5532)&\n              &*XX(351)\n  XX(255) = XX(255)-JVS(1864)*XX(256)-JVS(1978)*XX(263)-JVS(2175)*XX(274)-JVS(3042)*XX(312)-JVS(3471)*XX(325)-JVS(3823)&\n              &*XX(329)-JVS(4125)*XX(335)-JVS(4427)*XX(337)-JVS(4769)*XX(341)-JVS(5146)*XX(345)-JVS(5531)*XX(351)\n  XX(254) = XX(254)-JVS(2437)*XX(288)-JVS(2558)*XX(294)-JVS(2773)*XX(302)-JVS(2874)*XX(306)-JVS(3337)*XX(324)-JVS(3470)&\n              &*XX(325)-JVS(3822)*XX(329)-JVS(4124)*XX(335)-JVS(4426)*XX(337)-JVS(5145)*XX(345)-JVS(5289)*XX(346)\n  XX(253) = XX(253)-JVS(2403)*XX(287)-JVS(2557)*XX(294)-JVS(2926)*XX(307)-JVS(2972)*XX(308)-JVS(3469)*XX(325)-JVS(3614)&\n              &*XX(327)-JVS(3821)*XX(329)-JVS(4123)*XX(335)-JVS(4425)*XX(337)-JVS(5144)*XX(345)-JVS(5288)*XX(346)\n  XX(252) = XX(252)-JVS(3886)*XX(330)-JVS(3915)*XX(331)-JVS(3934)*XX(332)-JVS(4122)*XX(335)-JVS(4238)*XX(336)-JVS(4677)&\n              &*XX(340)-JVS(4835)*XX(342)-JVS(4939)*XX(344)-JVS(5143)*XX(345)-JVS(5287)*XX(346)-JVS(5439)*XX(349)-JVS(5465)&\n              &*XX(350)-JVS(5530)*XX(351)-JVS(5653)*XX(353)\n  XX(251) = XX(251)-JVS(2494)*XX(292)-JVS(2605)*XX(295)-JVS(2686)*XX(298)-JVS(3122)*XX(315)-JVS(3177)*XX(318)-JVS(3234)&\n              &*XX(321)-JVS(3290)*XX(323)-JVS(3558)*XX(326)-JVS(3613)*XX(327)-JVS(3707)*XX(328)-JVS(4121)*XX(335)-JVS(4237)&\n              &*XX(336)-JVS(4424)*XX(337)-JVS(5142)*XX(345)\n  XX(250) = XX(250)-JVS(2270)*XX(282)-JVS(2308)*XX(283)-JVS(2556)*XX(294)-JVS(2685)*XX(298)-JVS(3336)*XX(324)-JVS(3468)&\n              &*XX(325)-JVS(3557)*XX(326)-JVS(3706)*XX(328)-JVS(4120)*XX(335)-JVS(4423)*XX(337)-JVS(5141)*XX(345)-JVS(5286)&\n              &*XX(346)\n  XX(249) = XX(249)-JVS(2231)*XX(279)-JVS(2269)*XX(282)-JVS(2307)*XX(283)-JVS(2684)*XX(298)-JVS(3197)*XX(319)-JVS(3335)&\n              &*XX(324)-JVS(3467)*XX(325)-JVS(3556)*XX(326)-JVS(3705)*XX(328)-JVS(4119)*XX(335)-JVS(4422)*XX(337)-JVS(5140)&\n              &*XX(345)-JVS(5285)*XX(346)\n  XX(248) = XX(248)-JVS(2925)*XX(307)-JVS(2971)*XX(308)-JVS(3612)*XX(327)-JVS(3820)*XX(329)-JVS(4118)*XX(335)-JVS(4421)&\n              &*XX(337)-JVS(5139)*XX(345)\n  XX(247) = XX(247)-JVS(2555)*XX(294)-JVS(3334)*XX(324)-JVS(3466)*XX(325)-JVS(4117)*XX(335)-JVS(5138)*XX(345)\n  XX(246) = XX(246)-JVS(2268)*XX(282)-JVS(2635)*XX(296)-JVS(2873)*XX(306)-JVS(3264)*XX(322)-JVS(3465)*XX(325)-JVS(3555)&\n              &*XX(326)-JVS(3704)*XX(328)-JVS(3819)*XX(329)-JVS(4116)*XX(335)-JVS(4236)*XX(336)-JVS(4420)*XX(337)-JVS(4768)&\n              &*XX(341)-JVS(5137)*XX(345)-JVS(5284)*XX(346)-JVS(5529)*XX(351)\n  XX(245) = XX(245)-JVS(3954)*XX(333)-JVS(4004)*XX(334)-JVS(4532)*XX(338)-JVS(4676)*XX(340)-JVS(4898)*XX(343)-JVS(5136)&\n              &*XX(345)\n  XX(244) = XX(244)-JVS(2554)*XX(294)-JVS(3064)*XX(313)-JVS(3333)*XX(324)-JVS(3464)*XX(325)-JVS(4235)*XX(336)-JVS(5135)&\n              &*XX(345)\n  XX(243) = XX(243)-JVS(1899)*XX(258)-JVS(2046)*XX(266)-JVS(2924)*XX(307)-JVS(3332)*XX(324)-JVS(3463)*XX(325)-JVS(3818)&\n              &*XX(329)-JVS(4115)*XX(335)-JVS(4419)*XX(337)-JVS(5134)*XX(345)-JVS(5283)*XX(346)\n  XX(242) = XX(242)-JVS(2683)*XX(298)-JVS(2923)*XX(307)-JVS(3611)*XX(327)-JVS(4114)*XX(335)-JVS(4767)*XX(341)-JVS(5133)&\n              &*XX(345)-JVS(5528)*XX(351)\n  XX(241) = XX(241)-JVS(1993)*XX(264)-JVS(2306)*XX(283)-JVS(3554)*XX(326)-JVS(3817)*XX(329)-JVS(4113)*XX(335)-JVS(4234)&\n              &*XX(336)-JVS(5132)*XX(345)-JVS(5282)*XX(346)-JVS(5404)*XX(348)-JVS(5527)*XX(351)\n  XX(240) = XX(240)-JVS(2634)*XX(296)-JVS(3263)*XX(322)-JVS(3331)*XX(324)-JVS(3462)*XX(325)-JVS(3553)*XX(326)-JVS(3703)&\n              &*XX(328)-JVS(3816)*XX(329)-JVS(4112)*XX(335)-JVS(4233)*XX(336)-JVS(4418)*XX(337)-JVS(4766)*XX(341)-JVS(5131)&\n              &*XX(345)-JVS(5281)*XX(346)\n  XX(239) = XX(239)-JVS(4111)*XX(335)-JVS(4232)*XX(336)-JVS(5130)*XX(345)-JVS(5280)*XX(346)\n  XX(238) = XX(238)-JVS(2361)*XX(285)-JVS(2381)*XX(286)-JVS(2402)*XX(287)-JVS(2436)*XX(288)-JVS(2553)*XX(294)-JVS(3815)&\n              &*XX(329)-JVS(4417)*XX(337)-JVS(5129)*XX(345)\n  XX(237) = XX(237)-JVS(1863)*XX(256)-JVS(1977)*XX(263)-JVS(2143)*XX(272)-JVS(2174)*XX(274)-JVS(4110)*XX(335)-JVS(4765)&\n              &*XX(341)-JVS(5128)*XX(345)-JVS(5526)*XX(351)\n  XX(236) = XX(236)-JVS(2080)*XX(269)-JVS(3461)*XX(325)-JVS(3702)*XX(328)-JVS(4109)*XX(335)-JVS(4416)*XX(337)-JVS(4764)&\n              &*XX(341)-JVS(5127)*XX(345)-JVS(5279)*XX(346)-JVS(5525)*XX(351)\n  XX(235) = XX(235)-JVS(1632)*XX(236)-JVS(2079)*XX(269)-JVS(3460)*XX(325)-JVS(3701)*XX(328)-JVS(4108)*XX(335)-JVS(4415)&\n              &*XX(337)-JVS(4763)*XX(341)-JVS(5126)*XX(345)-JVS(5278)*XX(346)\n  XX(234) = XX(234)-JVS(2267)*XX(282)-JVS(2872)*XX(306)-JVS(3459)*XX(325)-JVS(3700)*XX(328)-JVS(4107)*XX(335)-JVS(4414)&\n              &*XX(337)-JVS(5125)*XX(345)-JVS(5277)*XX(346)-JVS(5524)*XX(351)\n  XX(233) = XX(233)-JVS(1606)*XX(234)-JVS(2108)*XX(270)-JVS(2871)*XX(306)-JVS(3041)*XX(312)-JVS(3458)*XX(325)-JVS(3814)&\n              &*XX(329)-JVS(4106)*XX(335)-JVS(4413)*XX(337)-JVS(4762)*XX(341)-JVS(5124)*XX(345)-JVS(5276)*XX(346)-JVS(5523)&\n              &*XX(351)\n  XX(232) = XX(232)-JVS(1898)*XX(258)-JVS(2107)*XX(270)-JVS(2401)*XX(287)-JVS(2435)*XX(288)-JVS(2552)*XX(294)-JVS(2805)&\n              &*XX(303)-JVS(2870)*XX(306)-JVS(2922)*XX(307)-JVS(4105)*XX(335)-JVS(4412)*XX(337)-JVS(5123)*XX(345)-JVS(5275)&\n              &*XX(346)\n  XX(231) = XX(231)-JVS(1784)*XX(248)-JVS(1828)*XX(253)-JVS(2018)*XX(265)-JVS(2106)*XX(270)-JVS(2400)*XX(287)-JVS(2551)&\n              &*XX(294)-JVS(2921)*XX(307)-JVS(2997)*XX(309)-JVS(3330)*XX(324)-JVS(3457)*XX(325)-JVS(3813)*XX(329)-JVS(4104)&\n              &*XX(335)-JVS(4411)*XX(337)-JVS(5122)*XX(345)-JVS(5274)*XX(346)\n  XX(230) = XX(230)-JVS(1839)*XX(254)-JVS(2017)*XX(265)-JVS(2105)*XX(270)-JVS(2434)*XX(288)-JVS(2550)*XX(294)-JVS(2772)&\n              &*XX(302)-JVS(2920)*XX(307)-JVS(3102)*XX(314)-JVS(3329)*XX(324)-JVS(3456)*XX(325)-JVS(3812)*XX(329)-JVS(4103)&\n              &*XX(335)-JVS(4410)*XX(337)-JVS(5121)*XX(345)-JVS(5273)*XX(346)\n  XX(229) = XX(229)-JVS(1949)*XX(262)-JVS(1976)*XX(263)-JVS(2244)*XX(280)-JVS(2604)*XX(295)-JVS(2682)*XX(298)-JVS(3101)&\n              &*XX(314)-JVS(3455)*XX(325)-JVS(4102)*XX(335)-JVS(4409)*XX(337)-JVS(4761)*XX(341)-JVS(5120)*XX(345)-JVS(5522)&\n              &*XX(351)\n  XX(228) = XX(228)-JVS(3454)*XX(325)-JVS(3699)*XX(328)-JVS(4003)*XX(334)-JVS(4231)*XX(336)-JVS(4408)*XX(337)-JVS(4584)&\n              &*XX(339)-JVS(4675)*XX(340)-JVS(4760)*XX(341)-JVS(4897)*XX(343)-JVS(5119)*XX(345)\n  XX(227) = XX(227)-JVS(2104)*XX(270)-JVS(2549)*XX(294)-JVS(3328)*XX(324)-JVS(3811)*XX(329)-JVS(4407)*XX(337)\n  XX(226) = XX(226)-JVS(1725)*XX(244)-JVS(1765)*XX(247)-JVS(1933)*XX(261)-JVS(2045)*XX(266)-JVS(2103)*XX(270)-JVS(2722)&\n              &*XX(299)-JVS(2771)*XX(302)-JVS(2804)*XX(303)-JVS(3453)*XX(325)-JVS(3610)*XX(327)-JVS(3810)*XX(329)-JVS(4101)&\n              &*XX(335)-JVS(4406)*XX(337)-JVS(5118)*XX(345)-JVS(5272)*XX(346)\n  XX(225) = XX(225)-JVS(1884)*XX(257)-JVS(2219)*XX(278)-JVS(3609)*XX(327)-JVS(3809)*XX(329)-JVS(4405)*XX(337)-JVS(5117)&\n              &*XX(345)-JVS(5521)*XX(351)\n  XX(224) = XX(224)-JVS(1724)*XX(244)-JVS(1897)*XX(258)-JVS(2102)*XX(270)-JVS(2399)*XX(287)-JVS(2433)*XX(288)-JVS(2548)&\n              &*XX(294)-JVS(2803)*XX(303)-JVS(2869)*XX(306)-JVS(2919)*XX(307)-JVS(3452)*XX(325)-JVS(4100)*XX(335)-JVS(4404)&\n              &*XX(337)-JVS(5116)*XX(345)-JVS(5271)*XX(346)\n  XX(223) = XX(223)-JVS(1896)*XX(258)-JVS(2101)*XX(270)-JVS(2398)*XX(287)-JVS(2432)*XX(288)-JVS(2547)*XX(294)-JVS(2802)&\n              &*XX(303)-JVS(2868)*XX(306)-JVS(2918)*XX(307)-JVS(3451)*XX(325)-JVS(3808)*XX(329)-JVS(4099)*XX(335)-JVS(4403)&\n              &*XX(337)-JVS(5115)*XX(345)-JVS(5270)*XX(346)\n  XX(222) = XX(222)-JVS(2134)*XX(271)-JVS(2522)*XX(293)-JVS(2801)*XX(303)-JVS(2996)*XX(309)-JVS(3014)*XX(310)-JVS(3100)&\n              &*XX(314)-JVS(3450)*XX(325)-JVS(3608)*XX(327)-JVS(4098)*XX(335)-JVS(4402)*XX(337)-JVS(5114)*XX(345)\n  XX(221) = XX(221)-JVS(2016)*XX(265)-JVS(2100)*XX(270)-JVS(2633)*XX(296)-JVS(2681)*XX(298)-JVS(2867)*XX(306)-JVS(3262)&\n              &*XX(322)-JVS(3807)*XX(329)-JVS(4230)*XX(336)-JVS(4401)*XX(337)-JVS(4759)*XX(341)-JVS(5113)*XX(345)\n  XX(220) = XX(220)-JVS(1502)*XX(221)-JVS(1618)*XX(235)-JVS(1631)*XX(236)-JVS(1975)*XX(263)-JVS(2078)*XX(269)-JVS(2099)&\n              &*XX(270)-JVS(2866)*XX(306)-JVS(3040)*XX(312)-JVS(3449)*XX(325)-JVS(3607)*XX(327)-JVS(3806)*XX(329)-JVS(4097)&\n              &*XX(335)-JVS(4229)*XX(336)-JVS(4400)*XX(337)-JVS(4758)*XX(341)-JVS(5112)*XX(345)-JVS(5269)*XX(346)-JVS(5520)&\n              &*XX(351)\n  XX(219) = XX(219)-JVS(1948)*XX(262)-JVS(1974)*XX(263)-JVS(2191)*XX(275)-JVS(2207)*XX(277)-JVS(2243)*XX(280)-JVS(2258)&\n              &*XX(281)-JVS(2463)*XX(289)-JVS(2481)*XX(291)-JVS(2493)*XX(292)-JVS(2603)*XX(295)-JVS(2680)*XX(298)-JVS(3099)&\n              &*XX(314)-JVS(3217)*XX(320)-JVS(3448)*XX(325)-JVS(4399)*XX(337)-JVS(4757)*XX(341)-JVS(5111)*XX(345)-JVS(5519)&\n              &*XX(351)\n  XX(218) = XX(218)-JVS(3147)*XX(316)-JVS(3606)*XX(327)-JVS(4096)*XX(335)-JVS(4228)*XX(336)-JVS(4583)*XX(339)-JVS(4674)&\n              &*XX(340)-JVS(4834)*XX(342)-JVS(5110)*XX(345)-JVS(5372)*XX(347)-JVS(5518)*XX(351)\n  XX(217) = XX(217)-JVS(4227)*XX(336)-JVS(4398)*XX(337)-JVS(4756)*XX(341)-JVS(4896)*XX(343)-JVS(5109)*XX(345)\n  XX(216) = XX(216)-JVS(1764)*XX(247)-JVS(3605)*XX(327)-JVS(3805)*XX(329)-JVS(4397)*XX(337)-JVS(5108)*XX(345)\n  XX(215) = XX(215)-JVS(2546)*XX(294)-JVS(2917)*XX(307)-JVS(3447)*XX(325)-JVS(3804)*XX(329)\n  XX(214) = XX(214)-JVS(2652)*XX(297)-JVS(3604)*XX(327)-JVS(4095)*XX(335)-JVS(4226)*XX(336)-JVS(4582)*XX(339)-JVS(4938)&\n              &*XX(344)-JVS(5517)*XX(351)-JVS(5652)*XX(353)\n  XX(213) = XX(213)-JVS(3446)*XX(325)-JVS(3803)*XX(329)-JVS(4094)*XX(335)-JVS(4396)*XX(337)-JVS(4755)*XX(341)-JVS(5107)&\n              &*XX(345)-JVS(5268)*XX(346)-JVS(5516)*XX(351)\n  XX(212) = XX(212)-JVS(1597)*XX(233)-JVS(2679)*XX(298)-JVS(2865)*XX(306)-JVS(3445)*XX(325)-JVS(3802)*XX(329)-JVS(4093)&\n              &*XX(335)-JVS(4395)*XX(337)-JVS(5106)*XX(345)-JVS(5267)*XX(346)\n  XX(211) = XX(211)-JVS(1862)*XX(256)-JVS(1973)*XX(263)-JVS(2142)*XX(272)-JVS(2173)*XX(274)-JVS(3444)*XX(325)-JVS(4092)&\n              &*XX(335)-JVS(4754)*XX(341)-JVS(5105)*XX(345)-JVS(5515)*XX(351)\n  XX(210) = XX(210)-JVS(2098)*XX(270)-JVS(3443)*XX(325)-JVS(3801)*XX(329)-JVS(4394)*XX(337)-JVS(5104)*XX(345)\n  XX(209) = XX(209)-JVS(1393)*XX(210)-JVS(1443)*XX(215)-JVS(1515)*XX(223)-JVS(1576)*XX(230)-JVS(1651)*XX(238)-JVS(1714)&\n              &*XX(243)-JVS(2431)*XX(288)-JVS(2545)*XX(294)-JVS(2838)*XX(305)-JVS(3098)*XX(314)-JVS(3327)*XX(324)-JVS(3442)&\n              &*XX(325)-JVS(3800)*XX(329)-JVS(4393)*XX(337)-JVS(5103)*XX(345)\n  XX(208) = XX(208)-JVS(3326)*XX(324)-JVS(3441)*XX(325)-JVS(3799)*XX(329)-JVS(4392)*XX(337)-JVS(5102)*XX(345)\n  XX(207) = XX(207)-JVS(1932)*XX(261)-JVS(2044)*XX(266)-JVS(2721)*XX(299)-JVS(2770)*XX(302)-JVS(2800)*XX(303)-JVS(2916)&\n              &*XX(307)-JVS(3440)*XX(325)-JVS(4091)*XX(335)-JVS(4391)*XX(337)-JVS(5101)*XX(345)-JVS(5266)*XX(346)\n  XX(206) = XX(206)-JVS(1457)*XX(216)-JVS(1763)*XX(247)-JVS(2043)*XX(266)-JVS(2720)*XX(299)-JVS(2799)*XX(303)-JVS(2864)&\n              &*XX(306)-JVS(3439)*XX(325)-JVS(4090)*XX(335)-JVS(4390)*XX(337)-JVS(5100)*XX(345)-JVS(5265)*XX(346)\n  XX(205) = XX(205)-JVS(1783)*XX(248)-JVS(2042)*XX(266)-JVS(2719)*XX(299)-JVS(2798)*XX(303)-JVS(2863)*XX(306)-JVS(2915)&\n              &*XX(307)-JVS(3438)*XX(325)-JVS(4089)*XX(335)-JVS(4389)*XX(337)-JVS(5099)*XX(345)-JVS(5264)*XX(346)\n  XX(204) = XX(204)-JVS(1617)*XX(235)-JVS(1630)*XX(236)-JVS(3603)*XX(327)-JVS(3798)*XX(329)-JVS(4388)*XX(337)-JVS(5098)&\n              &*XX(345)-JVS(5514)*XX(351)\n  XX(203) = XX(203)-JVS(1629)*XX(236)-JVS(2077)*XX(269)-JVS(4088)*XX(335)-JVS(4753)*XX(341)\n  XX(202) = XX(202)-JVS(1336)*XX(203)-JVS(1501)*XX(221)-JVS(1972)*XX(263)-JVS(2076)*XX(269)-JVS(2862)*XX(306)-JVS(3602)&\n              &*XX(327)-JVS(4387)*XX(337)-JVS(4752)*XX(341)-JVS(5097)*XX(345)-JVS(5513)*XX(351)\n  XX(201) = XX(201)-JVS(2015)*XX(265)-JVS(2305)*XX(283)-JVS(2544)*XX(294)-JVS(2632)*XX(296)-JVS(2678)*XX(298)-JVS(2741)&\n              &*XX(300)-JVS(2861)*XX(306)-JVS(3261)*XX(322)-JVS(3797)*XX(329)-JVS(4225)*XX(336)-JVS(4386)*XX(337)-JVS(4751)&\n              &*XX(341)-JVS(5096)*XX(345)\n  XX(200) = XX(200)-JVS(1319)*XX(201)-JVS(1326)*XX(202)-JVS(1335)*XX(203)-JVS(1353)*XX(204)-JVS(1500)*XX(221)-JVS(1684)&\n              &*XX(240)-JVS(1971)*XX(263)-JVS(2075)*XX(269)-JVS(2097)*XX(270)-JVS(2543)*XX(294)-JVS(2631)*XX(296)-JVS(3325)&\n              &*XX(324)-JVS(3437)*XX(325)-JVS(3601)*XX(327)-JVS(3796)*XX(329)-JVS(4087)*XX(335)-JVS(4224)*XX(336)-JVS(4385)&\n              &*XX(337)-JVS(5095)*XX(345)-JVS(5263)*XX(346)-JVS(5512)*XX(351)\n  XX(199) = XX(199)-JVS(1442)*XX(215)-JVS(1522)*XX(224)-JVS(1582)*XX(231)-JVS(1650)*XX(238)-JVS(1713)*XX(243)-JVS(1723)&\n              &*XX(244)-JVS(2397)*XX(287)-JVS(2542)*XX(294)-JVS(2824)*XX(304)-JVS(2995)*XX(309)-JVS(3436)*XX(325)-JVS(3795)&\n              &*XX(329)-JVS(4384)*XX(337)-JVS(5094)*XX(345)\n  XX(198) = XX(198)-JVS(2096)*XX(270)-JVS(2396)*XX(287)-JVS(2430)*XX(288)-JVS(2541)*XX(294)-JVS(2860)*XX(306)-JVS(2914)&\n              &*XX(307)-JVS(4383)*XX(337)-JVS(5093)*XX(345)\n  XX(197) = XX(197)-JVS(2859)*XX(306)-JVS(3435)*XX(325)-JVS(3794)*XX(329)-JVS(4086)*XX(335)-JVS(4382)*XX(337)-JVS(5092)&\n              &*XX(345)-JVS(5262)*XX(346)-JVS(5511)*XX(351)\n  XX(196) = XX(196)-JVS(2677)*XX(298)-JVS(3260)*XX(322)-JVS(3324)*XX(324)-JVS(3434)*XX(325)-JVS(3552)*XX(326)-JVS(4085)&\n              &*XX(335)-JVS(4223)*XX(336)-JVS(4381)*XX(337)-JVS(5091)*XX(345)-JVS(5261)*XX(346)\n  XX(195) = XX(195)-JVS(1325)*XX(202)-JVS(1334)*XX(203)-JVS(1499)*XX(221)-JVS(1970)*XX(263)-JVS(2074)*XX(269)-JVS(2095)&\n              &*XX(270)-JVS(3600)*XX(327)-JVS(4380)*XX(337)-JVS(5090)*XX(345)-JVS(5510)*XX(351)\n  XX(194) = XX(194)-JVS(1549)*XX(227)-JVS(2014)*XX(265)-JVS(2094)*XX(270)-JVS(2540)*XX(294)-JVS(3323)*XX(324)-JVS(3793)&\n              &*XX(329)-JVS(4379)*XX(337)-JVS(5089)*XX(345)\n  XX(193) = XX(193)-JVS(1699)*XX(242)-JVS(1947)*XX(262)-JVS(1969)*XX(263)-JVS(2242)*XX(280)-JVS(4084)*XX(335)-JVS(4750)&\n              &*XX(341)-JVS(5088)*XX(345)-JVS(5509)*XX(351)\n  XX(192) = XX(192)-JVS(1441)*XX(215)-JVS(1521)*XX(224)-JVS(1589)*XX(232)-JVS(1712)*XX(243)-JVS(2360)*XX(285)-JVS(2380)&\n              &*XX(286)-JVS(2395)*XX(287)-JVS(2823)*XX(304)-JVS(2994)*XX(309)-JVS(3433)*XX(325)-JVS(3792)*XX(329)-JVS(4378)&\n              &*XX(337)-JVS(5087)*XX(345)\n  XX(191) = XX(191)-JVS(1530)*XX(225)-JVS(2156)*XX(273)-JVS(2190)*XX(275)-JVS(2206)*XX(277)-JVS(2241)*XX(280)-JVS(2257)&\n              &*XX(281)-JVS(2462)*XX(289)-JVS(3039)*XX(312)-JVS(3432)*XX(325)-JVS(3791)*XX(329)-JVS(4749)*XX(341)-JVS(5086)&\n              &*XX(345)-JVS(5508)*XX(351)\n  XX(190) = XX(190)-JVS(2041)*XX(266)-JVS(2718)*XX(299)-JVS(2769)*XX(302)-JVS(2797)*XX(303)-JVS(3431)*XX(325)-JVS(4083)&\n              &*XX(335)-JVS(4377)*XX(337)-JVS(5085)*XX(345)-JVS(5260)*XX(346)\n  XX(189) = XX(189)-JVS(1352)*XX(204)-JVS(4082)*XX(335)-JVS(4222)*XX(336)-JVS(4376)*XX(337)-JVS(5084)*XX(345)-JVS(5259)&\n              &*XX(346)\n  XX(188) = XX(188)-JVS(2676)*XX(298)-JVS(4375)*XX(337)-JVS(5083)*XX(345)\n  XX(187) = XX(187)-JVS(1440)*XX(215)-JVS(1514)*XX(223)-JVS(1588)*XX(232)-JVS(2359)*XX(285)-JVS(2379)*XX(286)-JVS(2429)&\n              &*XX(288)-JVS(2837)*XX(305)-JVS(3097)*XX(314)-JVS(3430)*XX(325)-JVS(3790)*XX(329)-JVS(4374)*XX(337)-JVS(5082)&\n              &*XX(345)\n  XX(186) = XX(186)-JVS(1439)*XX(215)-JVS(1540)*XX(226)-JVS(2521)*XX(293)-JVS(2752)*XX(301)-JVS(2796)*XX(303)-JVS(2822)&\n              &*XX(304)-JVS(2836)*XX(305)-JVS(3026)*XX(311)-JVS(3599)*XX(327)-JVS(4081)*XX(335)-JVS(4373)*XX(337)-JVS(5081)&\n              &*XX(345)\n  XX(185) = XX(185)-JVS(2093)*XX(270)-JVS(2539)*XX(294)-JVS(3322)*XX(324)-JVS(3789)*XX(329)-JVS(4372)*XX(337)-JVS(5080)&\n              &*XX(345)\n  XX(184) = XX(184)-JVS(1911)*XX(259)-JVS(2013)*XX(265)-JVS(2538)*XX(294)-JVS(2913)*XX(307)-JVS(3321)*XX(324)-JVS(3788)&\n              &*XX(329)-JVS(4080)*XX(335)-JVS(5079)*XX(345)-JVS(5507)*XX(351)\n  XX(183) = XX(183)-JVS(2630)*XX(296)-JVS(3598)*XX(327)-JVS(4221)*XX(336)-JVS(4581)*XX(339)-JVS(4673)*XX(340)-JVS(4833)&\n              &*XX(342)-JVS(5078)*XX(345)-JVS(5506)*XX(351)-JVS(5613)*XX(352)\n  XX(182) = XX(182)-JVS(1762)*XX(247)-JVS(1931)*XX(261)-JVS(3787)*XX(329)-JVS(4079)*XX(335)-JVS(4371)*XX(337)-JVS(5077)&\n              &*XX(345)-JVS(5258)*XX(346)\n  XX(181) = XX(181)-JVS(1469)*XX(217)-JVS(3698)*XX(328)-JVS(3786)*XX(329)-JVS(4002)*XX(334)-JVS(4220)*XX(336)-JVS(4370)&\n              &*XX(337)-JVS(4531)*XX(338)-JVS(4580)*XX(339)-JVS(4672)*XX(340)-JVS(4895)*XX(343)-JVS(5076)*XX(345)\n  XX(180) = XX(180)-JVS(1761)*XX(247)-JVS(1930)*XX(261)-JVS(2717)*XX(299)-JVS(2858)*XX(306)-JVS(4078)*XX(335)-JVS(4369)&\n              &*XX(337)-JVS(5075)*XX(345)-JVS(5257)*XX(346)\n  XX(179) = XX(179)-JVS(1664)*XX(239)-JVS(3597)*XX(327)-JVS(4077)*XX(335)-JVS(4579)*XX(339)-JVS(4748)*XX(341)-JVS(5074)&\n              &*XX(345)-JVS(5403)*XX(348)-JVS(5651)*XX(353)\n  XX(178) = XX(178)-JVS(1288)*XX(196)-JVS(2492)*XX(292)-JVS(2675)*XX(298)-JVS(3196)*XX(319)-JVS(4076)*XX(335)-JVS(4368)&\n              &*XX(337)-JVS(5073)*XX(345)-JVS(5256)*XX(346)\n  XX(177) = XX(177)-JVS(1861)*XX(256)-JVS(2172)*XX(274)-JVS(4075)*XX(335)-JVS(5072)*XX(345)\n  XX(176) = XX(176)-JVS(1860)*XX(256)-JVS(1968)*XX(263)-JVS(2491)*XX(292)-JVS(2602)*XX(295)-JVS(3259)*XX(322)-JVS(3429)&\n              &*XX(325)-JVS(4074)*XX(335)-JVS(5071)*XX(345)\n  XX(175) = XX(175)-JVS(1361)*XX(205)-JVS(1438)*XX(215)-JVS(2358)*XX(285)-JVS(2378)*XX(286)-JVS(3096)*XX(314)-JVS(3428)&\n              &*XX(325)-JVS(3596)*XX(327)-JVS(4073)*XX(335)-JVS(4367)*XX(337)-JVS(5070)*XX(345)\n  XX(174) = XX(174)-JVS(1301)*XX(198)-JVS(1895)*XX(258)-JVS(2857)*XX(306)-JVS(2912)*XX(307)-JVS(4366)*XX(337)-JVS(5069)&\n              &*XX(345)\n  XX(173) = XX(173)-JVS(2629)*XX(296)-JVS(4219)*XX(336)-JVS(5068)*XX(345)\n  XX(172) = XX(172)-JVS(1782)*XX(248)-JVS(1827)*XX(253)-JVS(4072)*XX(335)-JVS(4365)*XX(337)-JVS(5067)*XX(345)-JVS(5255)&\n              &*XX(346)\n  XX(171) = XX(171)-JVS(1838)*XX(254)-JVS(2768)*XX(302)-JVS(4071)*XX(335)-JVS(4364)*XX(337)-JVS(5066)*XX(345)-JVS(5254)&\n              &*XX(346)\n  XX(170) = XX(170)-JVS(3885)*XX(330)-JVS(3914)*XX(331)-JVS(3933)*XX(332)-JVS(5065)*XX(345)-JVS(5505)*XX(351)\n  XX(169) = XX(169)-JVS(2171)*XX(274)-JVS(2674)*XX(298)-JVS(3195)*XX(319)-JVS(3320)*XX(324)-JVS(3427)*XX(325)-JVS(5064)&\n              &*XX(345)\n  XX(168) = XX(168)-JVS(1255)*XX(190)-JVS(1437)*XX(215)-JVS(2357)*XX(285)-JVS(2377)*XX(286)-JVS(2993)*XX(309)-JVS(3426)&\n              &*XX(325)-JVS(3595)*XX(327)-JVS(4070)*XX(335)-JVS(4363)*XX(337)-JVS(5063)*XX(345)\n  XX(167) = XX(167)-JVS(1849)*XX(255)-JVS(1967)*XX(263)-JVS(2170)*XX(274)-JVS(2240)*XX(280)-JVS(2256)*XX(281)-JVS(2461)&\n              &*XX(289)-JVS(3785)*XX(329)-JVS(4747)*XX(341)-JVS(5062)*XX(345)-JVS(5504)*XX(351)\n  XX(166) = XX(166)-JVS(1663)*XX(239)-JVS(3594)*XX(327)-JVS(4069)*XX(335)-JVS(4578)*XX(339)-JVS(4746)*XX(341)-JVS(4937)&\n              &*XX(344)-JVS(5402)*XX(348)\n  XX(165) = XX(165)-JVS(1287)*XX(196)-JVS(2673)*XX(298)-JVS(3425)*XX(325)-JVS(3551)*XX(326)-JVS(4068)*XX(335)-JVS(4362)&\n              &*XX(337)-JVS(5253)*XX(346)\n  XX(164) = XX(164)-JVS(3424)*XX(325)-JVS(3697)*XX(328)-JVS(4218)*XX(336)-JVS(4361)*XX(337)-JVS(4577)*XX(339)-JVS(4671)&\n              &*XX(340)-JVS(5061)*XX(345)\n  XX(163) = XX(163)-JVS(2169)*XX(274)-JVS(4067)*XX(335)-JVS(5060)*XX(345)-JVS(5503)*XX(351)\n  XX(162) = XX(162)-JVS(1859)*XX(256)-JVS(2168)*XX(274)-JVS(2601)*XX(295)-JVS(2672)*XX(298)-JVS(3194)*XX(319)-JVS(4066)&\n              &*XX(335)-JVS(5059)*XX(345)\n  XX(161) = XX(161)-JVS(2155)*XX(273)-JVS(2167)*XX(274)-JVS(2600)*XX(295)-JVS(2671)*XX(298)-JVS(3193)*XX(319)-JVS(4360)&\n              &*XX(337)-JVS(5058)*XX(345)\n  XX(160) = XX(160)-JVS(1966)*XX(263)-JVS(2218)*XX(278)-JVS(2490)*XX(292)-JVS(2599)*XX(295)-JVS(3258)*XX(322)-JVS(3423)&\n              &*XX(325)-JVS(5057)*XX(345)\n  XX(159) = XX(159)-JVS(1910)*XX(259)-JVS(2012)*XX(265)-JVS(2537)*XX(294)-JVS(2911)*XX(307)-JVS(3319)*XX(324)-JVS(3422)&\n              &*XX(325)-JVS(3696)*XX(328)-JVS(3784)*XX(329)-JVS(5056)*XX(345)\n  XX(158) = XX(158)-JVS(1318)*XX(201)-JVS(1324)*XX(202)-JVS(1333)*XX(203)-JVS(1965)*XX(263)-JVS(2073)*XX(269)-JVS(3593)&\n              &*XX(327)-JVS(4359)*XX(337)-JVS(5055)*XX(345)-JVS(5502)*XX(351)\n  XX(157) = XX(157)-JVS(4670)*XX(340)-JVS(4832)*XX(342)\n  XX(156) = XX(156)-JVS(3550)*XX(326)-JVS(4358)*XX(337)-JVS(4576)*XX(339)-JVS(4669)*XX(340)-JVS(5054)*XX(345)\n  XX(155) = XX(155)-JVS(3257)*XX(322)-JVS(3549)*XX(326)-JVS(3695)*XX(328)-JVS(4357)*XX(337)-JVS(5053)*XX(345)\n  XX(154) = XX(154)-JVS(2910)*XX(307)-JVS(3592)*XX(327)-JVS(4065)*XX(335)-JVS(5052)*XX(345)-JVS(5501)*XX(351)\n  XX(153) = XX(153)-JVS(1548)*XX(227)-JVS(2909)*XX(307)-JVS(3783)*XX(329)-JVS(4356)*XX(337)-JVS(5051)*XX(345)\n  XX(152) = XX(152)-JVS(1436)*XX(215)-JVS(2356)*XX(285)-JVS(2376)*XX(286)-JVS(4355)*XX(337)-JVS(5050)*XX(345)\n  XX(151) = XX(151)-JVS(1435)*XX(215)-JVS(2355)*XX(285)-JVS(2375)*XX(286)-JVS(4354)*XX(337)-JVS(5049)*XX(345)\n  XX(150) = XX(150)-JVS(1434)*XX(215)-JVS(2428)*XX(288)-JVS(3095)*XX(314)-JVS(3782)*XX(329)-JVS(4353)*XX(337)-JVS(5048)&\n              &*XX(345)\n  XX(149) = XX(149)-JVS(1061)*XX(158)-JVS(1247)*XX(189)-JVS(1317)*XX(201)-JVS(1351)*XX(204)-JVS(1498)*XX(221)-JVS(1964)&\n              &*XX(263)-JVS(3421)*XX(325)-JVS(3548)*XX(326)-JVS(3591)*XX(327)-JVS(4352)*XX(337)-JVS(5047)*XX(345)-JVS(5500)&\n              &*XX(351)\n  XX(148) = XX(148)-JVS(3146)*XX(316)-JVS(4831)*XX(342)-JVS(5046)*XX(345)\n  XX(147) = XX(147)-JVS(1218)*XX(185)-JVS(1378)*XX(208)-JVS(1547)*XX(227)-JVS(2354)*XX(285)-JVS(2374)*XX(286)-JVS(3781)&\n              &*XX(329)-JVS(4351)*XX(337)-JVS(5045)*XX(345)\n  XX(146) = XX(146)-JVS(1683)*XX(240)-JVS(3318)*XX(324)-JVS(3420)*XX(325)-JVS(3780)*XX(329)-JVS(4350)*XX(337)-JVS(5044)&\n              &*XX(345)\n  XX(145) = XX(145)-JVS(2520)*XX(293)-JVS(2751)*XX(301)-JVS(4349)*XX(337)\n  XX(144) = XX(144)-JVS(1433)*XX(215)-JVS(2394)*XX(287)-JVS(2992)*XX(309)-JVS(3779)*XX(329)-JVS(4348)*XX(337)-JVS(5043)&\n              &*XX(345)\n  XX(143) = XX(143)-JVS(1281)*XX(195)-JVS(1497)*XX(221)-JVS(1963)*XX(263)-JVS(2092)*XX(270)-JVS(3778)*XX(329)-JVS(4347)&\n              &*XX(337)-JVS(5042)*XX(345)\n  XX(142) = XX(142)-JVS(2740)*XX(300)-JVS(3192)*XX(319)-JVS(3590)*XX(327)-JVS(4575)*XX(339)-JVS(4668)*XX(340)-JVS(5041)&\n              &*XX(345)-JVS(5499)*XX(351)\n  XX(141) = XX(141)-JVS(3233)*XX(321)-JVS(3289)*XX(323)-JVS(4574)*XX(339)-JVS(4667)*XX(340)-JVS(4830)*XX(342)-JVS(5040)&\n              &*XX(345)-JVS(5612)*XX(352)\n  XX(140) = XX(140)-JVS(1410)*XX(212)-JVS(1596)*XX(233)-JVS(3419)*XX(325)-JVS(4064)*XX(335)-JVS(4745)*XX(341)-JVS(5039)&\n              &*XX(345)-JVS(5498)*XX(351)\n  XX(139) = XX(139)-JVS(3317)*XX(324)-JVS(3418)*XX(325)-JVS(3694)*XX(328)-JVS(3777)*XX(329)-JVS(4063)*XX(335)-JVS(5038)&\n              &*XX(345)-JVS(5497)*XX(351)\n  XX(138) = XX(138)-JVS(1080)*XX(162)-JVS(1962)*XX(263)-JVS(2154)*XX(273)-JVS(3417)*XX(325)-JVS(4062)*XX(335)-JVS(4346)&\n              &*XX(337)-JVS(5037)*XX(345)\n  XX(137) = XX(137)-JVS(1165)*XX(176)-JVS(1529)*XX(225)-JVS(1961)*XX(263)-JVS(3416)*XX(325)-JVS(4061)*XX(335)-JVS(4345)&\n              &*XX(337)-JVS(5036)*XX(345)\n  XX(136) = XX(136)-JVS(1605)*XX(234)-JVS(2856)*XX(306)-JVS(3415)*XX(325)-JVS(4344)*XX(337)-JVS(5035)*XX(345)\n  XX(135) = XX(135)-JVS(2991)*XX(309)-JVS(4060)*XX(335)-JVS(4343)*XX(337)-JVS(5034)*XX(345)-JVS(5252)*XX(346)\n  XX(134) = XX(134)-JVS(5033)*XX(345)-JVS(5401)*XX(348)\n  XX(133) = XX(133)-JVS(3094)*XX(314)-JVS(4059)*XX(335)-JVS(4342)*XX(337)-JVS(5032)*XX(345)-JVS(5251)*XX(346)\n  XX(132) = XX(132)-JVS(2855)*XX(306)-JVS(3776)*XX(329)-JVS(4058)*XX(335)-JVS(4341)*XX(337)-JVS(5250)*XX(346)\n  XX(131) = XX(131)-JVS(1377)*XX(208)-JVS(1546)*XX(227)-JVS(4340)*XX(337)-JVS(5031)*XX(345)\n  XX(130) = XX(130)-JVS(2670)*XX(298)-JVS(3191)*XX(319)-JVS(3316)*XX(324)-JVS(3414)*XX(325)-JVS(5030)*XX(345)\n  XX(129) = XX(129)-JVS(2153)*XX(273)-JVS(5029)*XX(345)\n  XX(128) = XX(128)-JVS(1432)*XX(215)-JVS(1711)*XX(243)-JVS(4339)*XX(337)-JVS(5028)*XX(345)\n  XX(127) = XX(127)-JVS(2854)*XX(306)-JVS(3413)*XX(325)-JVS(3775)*XX(329)-JVS(4057)*XX(335)-JVS(4338)*XX(337)-JVS(5027)&\n              &*XX(345)\n  XX(126) = XX(126)-JVS(1294)*XX(197)-JVS(2853)*XX(306)-JVS(3774)*XX(329)-JVS(4056)*XX(335)-JVS(5026)*XX(345)-JVS(5496)&\n              &*XX(351)\n  XX(125) = XX(125)-JVS(1760)*XX(247)-JVS(1804)*XX(250)-JVS(2669)*XX(298)-JVS(4055)*XX(335)-JVS(4337)*XX(337)-JVS(5025)&\n              &*XX(345)\n  XX(124) = XX(124)-JVS(3256)*XX(322)-JVS(3547)*XX(326)-JVS(3773)*XX(329)-JVS(4054)*XX(335)-JVS(5024)*XX(345)-JVS(5495)&\n              &*XX(351)\n  XX(123) = XX(123)-JVS(1920)*XX(260)-JVS(2908)*XX(307)-JVS(3412)*XX(325)-JVS(3546)*XX(326)-JVS(4336)*XX(337)-JVS(5023)&\n              &*XX(345)\n  XX(122) = XX(122)-JVS(1682)*XX(240)-JVS(3315)*XX(324)-JVS(3411)*XX(325)-JVS(3772)*XX(329)-JVS(4053)*XX(335)-JVS(5022)&\n              &*XX(345)\n  XX(121) = XX(121)-JVS(982)*XX(146)-JVS(4052)*XX(335)-JVS(4335)*XX(337)-JVS(5249)*XX(346)\n  XX(120) = XX(120)-JVS(3953)*XX(333)-JVS(4530)*XX(338)-JVS(4894)*XX(343)-JVS(5021)*XX(345)\n  XX(119) = XX(119)-JVS(1217)*XX(185)-JVS(3771)*XX(329)-JVS(4334)*XX(337)-JVS(5020)*XX(345)\n  XX(118) = XX(118)-JVS(3121)*XX(315)-JVS(3545)*XX(326)-JVS(4333)*XX(337)-JVS(5019)*XX(345)\n  XX(117) = XX(117)-JVS(1332)*XX(203)-JVS(1628)*XX(236)-JVS(5018)*XX(345)\n  XX(116) = XX(116)-JVS(1350)*XX(204)-JVS(4051)*XX(335)-JVS(4217)*XX(336)-JVS(4332)*XX(337)-JVS(5017)*XX(345)\n  XX(115) = XX(115)-JVS(3314)*XX(324)-JVS(4331)*XX(337)-JVS(5016)*XX(345)\n  XX(114) = XX(114)-JVS(1417)*XX(213)-JVS(3410)*XX(325)-JVS(3770)*XX(329)-JVS(4050)*XX(335)-JVS(5015)*XX(345)\n  XX(113) = XX(113)-JVS(1753)*XX(246)-JVS(2852)*XX(306)-JVS(3769)*XX(329)-JVS(4049)*XX(335)-JVS(5014)*XX(345)\n  XX(112) = XX(112)-JVS(885)*XX(129)-JVS(2189)*XX(275)-JVS(3409)*XX(325)-JVS(4330)*XX(337)-JVS(5013)*XX(345)\n  XX(111) = XX(111)-JVS(1528)*XX(225)-JVS(1883)*XX(257)-JVS(2205)*XX(277)-JVS(4329)*XX(337)-JVS(5012)*XX(345)\n  XX(110) = XX(110)-JVS(1739)*XX(245)-JVS(4529)*XX(338)-JVS(4666)*XX(340)\n  XX(109) = XX(109)-JVS(1604)*XX(234)-JVS(3038)*XX(312)-JVS(3408)*XX(325)-JVS(4744)*XX(341)-JVS(5011)*XX(345)\n  XX(108) = XX(108)-JVS(4048)*XX(335)-JVS(4216)*XX(336)-JVS(4328)*XX(337)-JVS(5010)*XX(345)-JVS(5494)*XX(351)\n  XX(107) = XX(107)-JVS(2011)*XX(265)-JVS(2536)*XX(294)-JVS(3313)*XX(324)-JVS(3768)*XX(329)-JVS(5009)*XX(345)\n  XX(106) = XX(106)-JVS(2851)*XX(306)-JVS(3407)*XX(325)-JVS(4327)*XX(337)\n  XX(105) = XX(105)-JVS(3693)*XX(328)-JVS(4001)*XX(334)-JVS(4215)*XX(336)-JVS(4326)*XX(337)-JVS(4829)*XX(342)-JVS(5008)&\n              &*XX(345)-JVS(5371)*XX(347)\n  XX(104) = XX(104)-JVS(3913)*XX(331)-JVS(4665)*XX(340)\n  XX(103) = XX(103)-JVS(3589)*XX(327)\n  XX(102) = XX(102)-JVS(2668)*XX(298)-JVS(2739)*XX(300)-JVS(4325)*XX(337)-JVS(5007)*XX(345)\n  XX(101) = XX(101)-JVS(1060)*XX(158)-JVS(1143)*XX(173)-JVS(1316)*XX(201)-JVS(1349)*XX(204)-JVS(1496)*XX(221)-JVS(1960)&\n              &*XX(263)-JVS(2091)*XX(270)-JVS(2535)*XX(294)-JVS(3093)*XX(314)-JVS(3767)*XX(329)-JVS(4324)*XX(337)-JVS(5006)&\n              &*XX(345)\n  XX(100) = XX(100)-JVS(2598)*XX(295)-JVS(3288)*XX(323)-JVS(4323)*XX(337)-JVS(5005)*XX(345)\n  XX(99) = XX(99)-JVS(2667)*XX(298)-JVS(3232)*XX(321)-JVS(4322)*XX(337)-JVS(5004)*XX(345)\n  XX(98) = XX(98)-JVS(1181)*XX(178)-JVS(2666)*XX(298)-JVS(4321)*XX(337)-JVS(5003)*XX(345)\n  XX(97) = XX(97)-JVS(2665)*XX(298)-JVS(3190)*XX(319)-JVS(4320)*XX(337)-JVS(5002)*XX(345)\n  XX(96) = XX(96)-JVS(2342)*XX(284)-JVS(3912)*XX(331)-JVS(4047)*XX(335)-JVS(5248)*XX(346)\n  XX(95) = XX(95)-JVS(2664)*XX(298)-JVS(4046)*XX(335)-JVS(4319)*XX(337)-JVS(5001)*XX(345)\n  XX(94) = XX(94)-JVS(3406)*XX(325)-JVS(3588)*XX(327)-JVS(3692)*XX(328)-JVS(5000)*XX(345)-JVS(5400)*XX(348)-JVS(5493)&\n             &*XX(351)\n  XX(93) = XX(93)-JVS(3405)*XX(325)-JVS(4045)*XX(335)-JVS(4318)*XX(337)-JVS(4999)*XX(345)\n  XX(92) = XX(92)-JVS(3312)*XX(324)-JVS(3404)*XX(325)-JVS(3691)*XX(328)-JVS(4998)*XX(345)\n  XX(91) = XX(91)-JVS(2597)*XX(295)-JVS(4044)*XX(335)-JVS(4317)*XX(337)-JVS(4997)*XX(345)\n  XX(90) = XX(90)-JVS(827)*XX(117)-JVS(1616)*XX(235)-JVS(4043)*XX(335)-JVS(4996)*XX(345)\n  XX(89) = XX(89)-JVS(918)*XX(134)-JVS(3403)*XX(325)-JVS(4995)*XX(345)-JVS(5399)*XX(348)\n  XX(88) = XX(88)-JVS(2010)*XX(265)-JVS(3402)*XX(325)-JVS(4316)*XX(337)-JVS(4994)*XX(345)\n  XX(87) = XX(87)-JVS(4000)*XX(334)-JVS(4214)*XX(336)-JVS(4528)*XX(338)-JVS(4664)*XX(340)-JVS(4893)*XX(343)-JVS(4993)&\n             &*XX(345)\n  XX(86) = XX(86)-JVS(3999)*XX(334)-JVS(4213)*XX(336)-JVS(4527)*XX(338)-JVS(4663)*XX(340)-JVS(4892)*XX(343)-JVS(4992)&\n             &*XX(345)\n  XX(85) = XX(85)-JVS(3998)*XX(334)-JVS(4212)*XX(336)-JVS(4526)*XX(338)-JVS(4662)*XX(340)-JVS(4891)*XX(343)-JVS(4991)&\n             &*XX(345)\n  XX(84) = XX(84)-JVS(3997)*XX(334)-JVS(4211)*XX(336)-JVS(4525)*XX(338)-JVS(4661)*XX(340)-JVS(4890)*XX(343)-JVS(4990)&\n             &*XX(345)\n  XX(83) = XX(83)-JVS(3544)*XX(326)-JVS(4042)*XX(335)-JVS(4315)*XX(337)-JVS(4989)*XX(345)\n  XX(82) = XX(82)-JVS(1059)*XX(158)-JVS(1315)*XX(201)-JVS(1348)*XX(204)-JVS(1495)*XX(221)-JVS(1959)*XX(263)-JVS(2090)&\n             &*XX(270)-JVS(2534)*XX(294)-JVS(3092)*XX(314)-JVS(3766)*XX(329)-JVS(4314)*XX(337)-JVS(4988)*XX(345)\n  XX(81) = XX(81)-JVS(3996)*XX(334)-JVS(4828)*XX(342)-JVS(4889)*XX(343)-JVS(4987)*XX(345)-JVS(5370)*XX(347)\n  XX(80) = XX(80)-JVS(3401)*XX(325)-JVS(3690)*XX(328)-JVS(4041)*XX(335)-JVS(4313)*XX(337)-JVS(5492)*XX(351)\n  XX(79) = XX(79)-JVS(3765)*XX(329)-JVS(4312)*XX(337)-JVS(4573)*XX(339)-JVS(4660)*XX(340)-JVS(4986)*XX(345)\n  XX(78) = XX(78)-JVS(3995)*XX(334)-JVS(4827)*XX(342)-JVS(4888)*XX(343)-JVS(4985)*XX(345)-JVS(5369)*XX(347)\n  XX(77) = XX(77)-JVS(3911)*XX(331)-JVS(4826)*XX(342)\n  XX(76) = XX(76)-JVS(794)*XX(110)-JVS(3952)*XX(333)-JVS(4524)*XX(338)-JVS(4659)*XX(340)-JVS(4984)*XX(345)\n  XX(75) = XX(75)-JVS(3764)*XX(329)-JVS(4311)*XX(337)-JVS(4572)*XX(339)-JVS(4658)*XX(340)-JVS(4983)*XX(345)\n  XX(74) = XX(74)-JVS(1882)*XX(257)-JVS(2217)*XX(278)-JVS(4982)*XX(345)\n  XX(73) = XX(73)-JVS(3910)*XX(331)-JVS(4210)*XX(336)-JVS(4981)*XX(345)\n  XX(72) = XX(72)-JVS(3400)*XX(325)-JVS(4310)*XX(337)-JVS(4980)*XX(345)\n  XX(71) = XX(71)-JVS(1615)*XX(235)-JVS(1627)*XX(236)-JVS(4979)*XX(345)\n  XX(70) = XX(70)-JVS(2850)*XX(306)-JVS(4040)*XX(335)-JVS(4978)*XX(345)\n  XX(69) = XX(69)-JVS(1180)*XX(178)-JVS(3587)*XX(327)-JVS(4977)*XX(345)-JVS(5491)*XX(351)\n  XX(68) = XX(68)-JVS(3763)*XX(329)-JVS(4887)*XX(343)-JVS(4976)*XX(345)-JVS(5398)*XX(348)\n  XX(67) = XX(67)-JVS(3994)*XX(334)-JVS(4039)*XX(335)-JVS(4886)*XX(343)-JVS(5247)*XX(346)\n  XX(66) = XX(66)-JVS(2216)*XX(278)-JVS(4975)*XX(345)\n  XX(65) = XX(65)-JVS(1662)*XX(239)-JVS(4038)*XX(335)\n  XX(64) = XX(64)-JVS(1661)*XX(239)-JVS(4037)*XX(335)\n  XX(63) = XX(63)-JVS(3993)*XX(334)-JVS(5246)*XX(346)\n  XX(62) = XX(62)-JVS(1123)*XX(170)-JVS(3909)*XX(331)-JVS(5245)*XX(346)\n  XX(61) = XX(61)-JVS(3992)*XX(334)-JVS(4523)*XX(338)-JVS(4657)*XX(340)-JVS(4825)*XX(342)-JVS(4885)*XX(343)-JVS(5368)&\n             &*XX(347)\n  XX(60) = XX(60)-JVS(2009)*XX(265)-JVS(2089)*XX(270)-JVS(3762)*XX(329)-JVS(4309)*XX(337)-JVS(4974)*XX(345)\n  XX(59) = XX(59)-JVS(4036)*XX(335)-JVS(4824)*XX(342)\n  XX(58) = XX(58)-JVS(849)*XX(121)-JVS(4973)*XX(345)\n  XX(57) = XX(57)-JVS(2166)*XX(274)-JVS(4035)*XX(335)\n  XX(56) = XX(56)-JVS(1881)*XX(257)-JVS(4034)*XX(335)\n  XX(55) = XX(55)-JVS(724)*XX(96)-JVS(2341)*XX(284)\n  XX(54) = XX(54)-JVS(3991)*XX(334)-JVS(4823)*XX(342)-JVS(4884)*XX(343)-JVS(5367)*XX(347)\n  XX(53) = XX(53)-JVS(3990)*XX(334)-JVS(4822)*XX(342)-JVS(4883)*XX(343)-JVS(5366)*XX(347)\n  XX(52) = XX(52)-JVS(3689)*XX(328)-JVS(3908)*XX(331)-JVS(4209)*XX(336)-JVS(4972)*XX(345)\n  XX(51) = XX(51)-JVS(3989)*XX(334)-JVS(4522)*XX(338)-JVS(4656)*XX(340)-JVS(4882)*XX(343)\n  XX(50) = XX(50)-JVS(3988)*XX(334)-JVS(4521)*XX(338)-JVS(4655)*XX(340)-JVS(4881)*XX(343)\n  XX(49) = XX(49)-JVS(3987)*XX(334)-JVS(4520)*XX(338)-JVS(4654)*XX(340)-JVS(4880)*XX(343)\n  XX(48) = XX(48)-JVS(3986)*XX(334)-JVS(4519)*XX(338)-JVS(4653)*XX(340)-JVS(4879)*XX(343)\n  XX(47) = XX(47)-JVS(3985)*XX(334)-JVS(4518)*XX(338)-JVS(4652)*XX(340)-JVS(4878)*XX(343)\n  XX(46) = XX(46)-JVS(3984)*XX(334)-JVS(4517)*XX(338)-JVS(4651)*XX(340)-JVS(4877)*XX(343)\n  XX(45) = XX(45)-JVS(3586)*XX(327)\n  XX(44) = XX(44)-JVS(723)*XX(96)-JVS(2340)*XX(284)-JVS(3907)*XX(331)\n  XX(43) = XX(43)-JVS(4208)*XX(336)-JVS(4650)*XX(340)-JVS(4971)*XX(345)\n  XX(42) = XX(42)-JVS(722)*XX(96)\n  XX(41) = XX(41)-JVS(4970)*XX(345)\n  XX(40) = XX(40)\n  XX(39) = XX(39)\n  XX(38) = XX(38)\n  XX(37) = XX(37)\n  XX(36) = XX(36)\n  XX(35) = XX(35)\n  XX(34) = XX(34)\n  XX(33) = XX(33)\n  XX(32) = XX(32)\n  XX(31) = XX(31)\n  XX(30) = XX(30)\n  XX(29) = XX(29)\n  XX(28) = XX(28)\n  XX(27) = XX(27)\n  XX(26) = XX(26)\n  XX(25) = XX(25)\n  XX(24) = XX(24)\n  XX(23) = XX(23)\n  XX(22) = XX(22)\n  XX(21) = XX(21)\n  XX(20) = XX(20)\n  XX(19) = XX(19)\n  XX(18) = XX(18)\n  XX(17) = XX(17)\n  XX(16) = XX(16)\n  XX(15) = XX(15)\n  XX(14) = XX(14)\n  XX(13) = XX(13)\n  XX(12) = XX(12)\n  XX(11) = XX(11)\n  XX(10) = XX(10)\n  XX(9) = XX(9)\n  XX(8) = XX(8)\n  XX(7) = XX(7)\n  XX(6) = XX(6)\n  XX(5) = XX(5)\n  XX(4) = XX(4)\n  XX(3) = XX(3)-JVS(3906)*XX(331)-JVS(4649)*XX(340)\n  XX(2) = XX(2)-JVS(3905)*XX(331)-JVS(4821)*XX(342)\n  XX(1) = XX(1)-JVS(3904)*XX(331)\n      \nEND SUBROUTINE KppSolveTR\n\n! End of KppSolveTR function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! BLAS_UTIL - BLAS-LIKE utility functions\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n!--------------------------------------------------------------\n!\n! BLAS/LAPACK-like subroutines used by the integration algorithms\n! It is recommended to replace them by calls to the optimized\n!      BLAS/LAPACK library for your machine\n!\n!  (C) Adrian Sandu, Aug. 2004\n!      Virginia Polytechnic Institute and State University\n!--------------------------------------------------------------\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WCOPY(N,X,incX,Y,incY)\n!--------------------------------------------------------------\n!     copies a vector, x, to a vector, y:  y <- x\n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL  SCOPY(N,X,1,Y,1)   or   CALL  DCOPY(N,X,1,Y,1)\n!--------------------------------------------------------------\n!     USE gckpp_Precision\n      \n      INTEGER  :: i,incX,incY,M,MP1,N\n      REAL(kind=dp) :: X(N),Y(N)\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,8)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = X(i)\n        END DO\n        IF( N .LT. 8 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,8\n        Y(i) = X(i)\n        Y(i + 1) = X(i + 1)\n        Y(i + 2) = X(i + 2)\n        Y(i + 3) = X(i + 3)\n        Y(i + 4) = X(i + 4)\n        Y(i + 5) = X(i + 5)\n        Y(i + 6) = X(i + 6)\n        Y(i + 7) = X(i + 7)\n      END DO\n\n      END SUBROUTINE WCOPY\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY)\n!--------------------------------------------------------------\n!     constant times a vector plus a vector: y <- y + Alpha*x\n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SAXPY(N,Alpha,X,1,Y,1) or  CALL DAXPY(N,Alpha,X,1,Y,1)\n!--------------------------------------------------------------\n\n      INTEGER  :: i,incX,incY,M,MP1,N\n      REAL(kind=dp) :: X(N),Y(N),Alpha\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp\n\n      IF (Alpha .EQ. ZERO) RETURN\n      IF (N .LE. 0) RETURN\n\n      M = MOD(N,4)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = Y(i) + Alpha*X(i)\n        END DO\n        IF( N .LT. 4 ) RETURN\n      END IF\n      MP1 = M + 1\n      DO i = MP1,N,4\n        Y(i) = Y(i) + Alpha*X(i)\n        Y(i + 1) = Y(i + 1) + Alpha*X(i + 1)\n        Y(i + 2) = Y(i + 2) + Alpha*X(i + 2)\n        Y(i + 3) = Y(i + 3) + Alpha*X(i + 3)\n      END DO\n      \n      END SUBROUTINE WAXPY\n\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WSCAL(N,Alpha,X,incX)\n!--------------------------------------------------------------\n!     constant times a vector: x(1:N) <- Alpha*x(1:N) \n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SSCAL(N,Alpha,X,1) or  CALL DSCAL(N,Alpha,X,1)\n!--------------------------------------------------------------\n\n      INTEGER  :: i,incX,M,MP1,N\n      REAL(kind=dp)  :: X(N),Alpha\n      REAL(kind=dp), PARAMETER  :: ZERO=0.0_dp, ONE=1.0_dp\n\n      IF (Alpha .EQ. ONE) RETURN\n      IF (N .LE. 0) RETURN\n\n      M = MOD(N,5)\n      IF( M .NE. 0 ) THEN\n        IF (Alpha .EQ. (-ONE)) THEN\n          DO i = 1,M\n            X(i) = -X(i)\n          END DO\n        ELSEIF (Alpha .EQ. ZERO) THEN\n          DO i = 1,M\n            X(i) = ZERO\n          END DO\n        ELSE\n          DO i = 1,M\n            X(i) = Alpha*X(i)\n          END DO\n        END IF\n        IF( N .LT. 5 ) RETURN\n      END IF\n      MP1 = M + 1\n      IF (Alpha .EQ. (-ONE)) THEN\n        DO i = MP1,N,5\n          X(i)     = -X(i)\n          X(i + 1) = -X(i + 1)\n          X(i + 2) = -X(i + 2)\n          X(i + 3) = -X(i + 3)\n          X(i + 4) = -X(i + 4)\n        END DO\n      ELSEIF (Alpha .EQ. ZERO) THEN\n        DO i = MP1,N,5\n          X(i)     = ZERO\n          X(i + 1) = ZERO\n          X(i + 2) = ZERO\n          X(i + 3) = ZERO\n          X(i + 4) = ZERO\n        END DO\n      ELSE\n        DO i = MP1,N,5\n          X(i)     = Alpha*X(i)\n          X(i + 1) = Alpha*X(i + 1)\n          X(i + 2) = Alpha*X(i + 2)\n          X(i + 3) = Alpha*X(i + 3)\n          X(i + 4) = Alpha*X(i + 4)\n        END DO\n      END IF\n\n      END SUBROUTINE WSCAL\n\n!--------------------------------------------------------------\n      REAL(kind=dp) FUNCTION WLAMCH( C )\n!--------------------------------------------------------------\n!     returns epsilon machine\n!     after LAPACK\n!     replace this by the function from the optimized LAPACK implementation:\n!          CALL SLAMCH('E') or CALL DLAMCH('E')\n!--------------------------------------------------------------\n!      USE gckpp_Precision\n\n      CHARACTER ::  C\n      INTEGER    :: i\n      REAL(kind=dp), SAVE  ::  Eps\n      REAL(kind=dp)  ::  Suma\n      REAL(kind=dp), PARAMETER  ::  ONE=1.0_dp, HALF=0.5_dp\n      LOGICAL, SAVE   ::  First=.TRUE.\n\n!$OMP THREADPRIVATE( Eps, First )      \n\n      IF (First) THEN\n        First = .FALSE.\n        Eps = HALF**(16)\n        DO i = 17, 80\n          Eps = Eps*HALF\n          CALL WLAMCH_ADD(ONE,Eps,Suma)\n          IF (Suma.LE.ONE) GOTO 10\n        END DO\n        PRINT*,'ERROR IN WLAMCH. EPS < ',Eps\n        RETURN\n10      Eps = Eps*2\n        i = i-1      \n      END IF\n\n      WLAMCH = Eps\n\n      END FUNCTION WLAMCH\n     \n      SUBROUTINE WLAMCH_ADD( A, B, Suma )\n!      USE gckpp_Precision\n      \n      REAL(kind=dp) A, B, Suma\n      Suma = A + B\n\n      END SUBROUTINE WLAMCH_ADD\n!--------------------------------------------------------------\n\n\n!--------------------------------------------------------------\n      SUBROUTINE SET2ZERO(N,Y)\n!--------------------------------------------------------------\n!     copies zeros into the vector y:  y <- 0\n!     after BLAS\n!--------------------------------------------------------------\n      \n      INTEGER ::  i,M,MP1,N\n      REAL(kind=dp) ::  Y(N)\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0d0\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,8)\n      IF( M .NE. 0 ) THEN\n        DO i = 1,M\n          Y(i) = ZERO\n        END DO\n        IF( N .LT. 8 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,8\n        Y(i)     = ZERO\n        Y(i + 1) = ZERO\n        Y(i + 2) = ZERO\n        Y(i + 3) = ZERO\n        Y(i + 4) = ZERO\n        Y(i + 5) = ZERO\n        Y(i + 6) = ZERO\n        Y(i + 7) = ZERO\n      END DO\n\n      END SUBROUTINE SET2ZERO\n\n\n!--------------------------------------------------------------\n      REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) \n!--------------------------------------------------------------\n!     dot produce: wdot = x(1:N)*y(1:N) \n!     only for incX=incY=1\n!     after BLAS\n!     replace this by the function from the optimized BLAS implementation:\n!         CALL SDOT(N,X,1,Y,1) or  CALL DDOT(N,X,1,Y,1)\n!--------------------------------------------------------------\n!      USE messy_mecca_kpp_Precision\n!--------------------------------------------------------------\n      IMPLICIT NONE\n      INTEGER :: N, incX, incY\n      REAL(kind=dp) :: DX(N), DY(N) \n\n      INTEGER :: i, IX, IY, M, MP1, NS\n                                 \n      WDOT = 0.0D0 \n      IF (N .LE. 0) RETURN \n      IF (incX .EQ. incY) IF (incX-1) 5,20,60 \n!                                                                       \n!     Code for unequal or nonpositive increments.                       \n!                                                                       \n    5 IX = 1 \n      IY = 1 \n      IF (incX .LT. 0) IX = (-N+1)*incX + 1 \n      IF (incY .LT. 0) IY = (-N+1)*incY + 1 \n      DO i = 1,N \n        WDOT = WDOT + DX(IX)*DY(IY) \n        IX = IX + incX \n        IY = IY + incY \n      END DO \n      RETURN \n!                                                                       \n!     Code for both increments equal to 1.                              \n!                                                                       \n!     Clean-up loop so remaining vector length is a multiple of 5.      \n!                                                                       \n   20 M = MOD(N,5) \n      IF (M .EQ. 0) GO TO 40 \n      DO i = 1,M \n         WDOT = WDOT + DX(i)*DY(i) \n      END DO \n      IF (N .LT. 5) RETURN \n   40 MP1 = M + 1 \n      DO i = MP1,N,5 \n          WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) +  &\n                   DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4)                   \n      END DO \n      RETURN \n!                                                                       \n!     Code for equal, positive, non-unit increments.                    \n!                                                                       \n   60 NS = N*incX \n      DO i = 1,NS,incX \n        WDOT = WDOT + DX(i)*DY(i) \n      END DO \n\n      END FUNCTION WDOT                                          \n\n\n!--------------------------------------------------------------\n      SUBROUTINE WADD(N,X,Y,Z)\n!--------------------------------------------------------------\n!     adds two vectors: z <- x + y\n!     BLAS - like\n!--------------------------------------------------------------\n!     USE gckpp_Precision\n      \n      INTEGER :: i, M, MP1, N\n      REAL(kind=dp) :: X(N),Y(N),Z(N)\n\n      IF (N.LE.0) RETURN\n\n      M = MOD(N,5)\n      IF( M /= 0 ) THEN\n         DO i = 1,M\n            Z(i) = X(i) + Y(i)\n         END DO\n         IF( N < 5 ) RETURN\n      END IF    \n      MP1 = M+1\n      DO i = MP1,N,5\n         Z(i)     = X(i)     + Y(i)\n         Z(i + 1) = X(i + 1) + Y(i + 1)\n         Z(i + 2) = X(i + 2) + Y(i + 2)\n         Z(i + 3) = X(i + 3) + Y(i + 3)\n         Z(i + 4) = X(i + 4) + Y(i + 4)\n      END DO\n\n      END SUBROUTINE WADD\n      \n      \n      \n!--------------------------------------------------------------\n      SUBROUTINE WGEFA(N,A,Ipvt,info)\n!--------------------------------------------------------------\n!     WGEFA FACTORS THE MATRIX A (N,N) BY\n!           GAUSS ELIMINATION WITH PARTIAL PIVOTING\n!     LINPACK - LIKE \n!--------------------------------------------------------------\n!\n      INTEGER       :: N,Ipvt(N),info\n      REAL(kind=dp) :: A(N,N)\n      REAL(kind=dp) :: t, dmax, da\n      INTEGER       :: j,k,l\n      REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0\n\n      info = 0\n\nsize: IF (n > 1) THEN\n      \ncol:  DO k = 1, n-1\n\n!        find l = pivot index\n!        l = idamax(n-k+1,A(k,k),1) + k - 1\n         l = k; dmax = abs(A(k,k))\n         DO j = k+1,n\n            da = ABS(A(j,k))\n            IF (da > dmax) THEN\n              l = j; dmax = da\n            END IF\n         END DO\n         Ipvt(k) = l\n\n!        zero pivot implies this column already triangularized\n         IF (ABS(A(l,k)) < TINY(ZERO)) THEN\n            info = k\n            return\n         ELSE   \n            IF (l /= k) THEN\n               t = A(l,k); A(l,k) = A(k,k); A(k,k) = t\n            END IF\n            t = -ONE/A(k,k)\n            CALL WSCAL(n-k,t,A(k+1,k),1)\n            DO j = k+1, n\n               t = A(l,j)\n               IF (l /= k) THEN\n                  A(l,j) = A(k,j); A(k,j) = t\n               END IF\n               CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1)\n            END DO         \n         END IF\n         \n       END DO col\n       \n      END IF size\n      \n      Ipvt(N) = N\n      IF (ABS(A(N,N)) == ZERO) info = N\n      \n      END SUBROUTINE WGEFA\n\n\n!--------------------------------------------------------------\n      SUBROUTINE WGESL(Trans,N,A,Ipvt,b)\n!--------------------------------------------------------------\n!     WGESL solves the system\n!     a * x = b  or  trans(a) * x = b\n!     using the factors computed by WGEFA.\n!\n!     Trans      = 'N'   to solve  A*x = b ,\n!                = 'T'   to solve  transpose(A)*x = b\n!     LINPACK - LIKE \n!--------------------------------------------------------------\n\n      INTEGER       :: N,Ipvt(N)\n      CHARACTER     :: trans\n      REAL(kind=dp) :: A(N,N),b(N)\n      REAL(kind=dp) :: t\n      INTEGER       :: k,kb,l\n\n      \n      SELECT CASE (Trans)\n\n      CASE ('n','N')  !  Solve  A * x = b\n\n!        first solve  L*y = b\n         IF (n >= 2) THEN\n          DO k = 1, n-1\n            l = Ipvt(k)\n            t = b(l)\n            IF (l /= k) THEN\n               b(l) = b(k)\n               b(k) = t\n            END IF\n            CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1)\n          END DO\n         END IF\n!        now solve  U*x = y\n         DO kb = 1, n\n            k = n + 1 - kb\n            b(k) = b(k)/a(k,k)\n            t = -b(k)\n            CALL WAXPY(k-1,t,a(1,k),1,b(1),1)\n         END DO\n      \n      CASE ('t','T')  !  Solve transpose(A) * x = b\n\n!        first solve  trans(U)*y = b\n         DO k = 1, n\n            t = WDOT(k-1,a(1,k),1,b(1),1)\n            b(k) = (b(k) - t)/a(k,k)\n         END DO\n!        now solve trans(L)*x = y\n         IF (n >= 2) THEN\n         DO kb = 1, n-1\n            k = n - kb\n            b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1)\n            l = Ipvt(k)\n            IF (l /= k) THEN\n               t = b(l); b(l) = b(k); b(k) = t\n            END IF\n         END DO\n         END IF\n   \n      END SELECT\n\n      END SUBROUTINE WGESL\n! End of BLAS_UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_LinearAlgebra\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Model.F90",
    "content": "MODULE gckpp_Model\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  Completely defines the model gckpp\n!    by using all the associated modules\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  USE gckpp_Precision\n  USE gckpp_Parameters\n  USE gckpp_Global\n  USE gckpp_Function\n  USE gckpp_Integrator\n  USE gckpp_Rates\n  USE gckpp_Jacobian\n  USE gckpp_LinearAlgebra\n  USE gckpp_Monitor\n  USE gckpp_Util\n\nEND MODULE gckpp_Model\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Monitor.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Utility Data Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Monitor.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Monitor\n\n\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &\n     'CH2I2                           ','CH2IBr                          ','CH2ICl                          ', & ! index 1 - 3\n     'AERI                            ','AONITA                          ','BUTDI                           ', & ! index 4 - 6\n     'CO2                             ','INDIOL                          ','ISALA                           ', & ! index 7 - 9\n     'ISALC                           ','LBRO2H                          ','LBRO2N                          ', & ! index 10 - 12\n     'BRO2                            ','LISOPOH                         ','LISOPNO3                        ', & ! index 13 - 15\n     'LNRO2H                          ','LNRO2N                          ','NRO2                            ', & ! index 16 - 18\n     'NAP                             ','LTRO2H                          ','LTRO2N                          ', & ! index 19 - 21\n     'TRO2                            ','LVOCOA                          ','LVOC                            ', & ! index 22 - 24\n     'LXRO2H                          ','LXRO2N                          ','XRO2                            ', & ! index 25 - 27\n     'MSA                             ','SO4s                            ','SOAGX                           ', & ! index 28 - 30\n     'SOAIE                           ','PH2SO4                          ','PSO4AQ                          ', & ! index 31 - 33\n     'POx                             ','LOx                             ','PCO                             ', & ! index 34 - 36\n     'LCO                             ','PSO4                            ','LCH4                            ', & ! index 37 - 39\n     'PH2O2                           ','FURA                            ','I2O4                            ', & ! index 40 - 42\n     'CH3CCl3                         ','I2O2                            ','MONITA                          ', & ! index 43 - 45\n     'CCl4                            ','CFC11                           ','CFC12                           ', & ! index 46 - 48\n     'CFC113                          ','CFC114                          ','CFC115                          ', & ! index 49 - 51\n     'CH3I                            ','H1301                           ','H2402                           ', & ! index 52 - 54\n     'I2O3                            ','PINPAN                          ','LIMPAN                          ', & ! index 55 - 57\n     'TLFUONE                         ','BrNO2                           ','C2H2                            ', & ! index 58 - 60\n     'H1211                           ','INO                             ','N2O                             ', & ! index 61 - 63\n     'NIT                             ','NITs                            ','PINONIC                         ', & ! index 64 - 66\n     'N                               ','OCS                             ','ALK6                            ', & ! index 67 - 69\n     'ETHN                            ','BZCO3H                          ','HACTA                           ', & ! index 70 - 72\n     'HI                              ','PINO3H                          ','CHCl3                           ', & ! index 73 - 75\n     'Cl2O2                           ','IBr                             ','CH2Br2                          ', & ! index 76 - 78\n     'CH2Cl2                          ','MPN                             ','CHBr3                           ', & ! index 79 - 81\n     'TOLU                            ','ETNO3                           ','HCFC123                         ', & ! index 82 - 84\n     'HCFC141b                        ','HCFC142b                        ','HCFC22                          ', & ! index 85 - 87\n     'HMHP                            ','HMS                             ','BZPAN                           ' /) ! index up to 90\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ &\n     'IPRNO3                          ','MAP                             ','MENO3                           ', & ! index 91 - 93\n     'DMS                             ','NPRNO3                          ','OIO                             ', & ! index 94 - 96\n     'R4P                             ','R7P                             ','RA3P                            ', & ! index 97 - 99\n     'RB3P                            ','XYLE                            ','ALK4P                           ', & ! index 100 - 102\n     'IONITA                          ','ICl                             ','CH3Br                           ', & ! index 103 - 105\n     'ETO                             ','HMML                            ','HNO4                            ', & ! index 106 - 108\n     'C2H4                            ','ClOO                            ','APINP                           ', & ! index 109 - 111\n     'BPINP                           ','MEKPN                           ','PHAN                            ', & ! index 112 - 114\n     'PYAC                            ','RNO3                            ','BENZP                           ', & ! index 115 - 117\n     'ETP                             ','IDC                             ','OClO                            ', & ! index 118 - 120\n     'TLFUO2                          ','AROMPN                          ','PP                              ', & ! index 121 - 123\n     'PPN                             ','PRPN                            ','APAN                            ', & ! index 124 - 126\n     'BUTN                            ','IEPOXD                          ','BPINO                           ', & ! index 127 - 129\n     'LIMO2H                          ','MVKDH                           ','ACRO2                           ', & ! index 130 - 132\n     'HPALD1OO                        ','SO4                             ','HPALD2OO                        ', & ! index 133 - 135\n     'ETHP                            ','APINN                           ','BPINN                           ', & ! index 136 - 138\n     'PAN                             ','C4H6                            ','C3H8                            ', & ! index 139 - 141\n     'ALK4                            ','BENZ                            ','HPALD4                          ', & ! index 142 - 144\n     'INA                             ','AROMCHO                         ','IDCHP                           ', & ! index 145 - 147\n     'Br2                             ','EBZ                             ','HPALD3                          ', & ! index 148 - 150\n     'IEPOXA                          ','IEPOXB                          ','MCRDH                           ', & ! index 151 - 153\n     'HONIT                           ','RP                              ','EOH                             ', & ! index 154 - 156\n     'BrCl                            ','CSL                             ','MACR1OOH                        ', & ! index 157 - 159\n     'C96O2H                          ','BPINOOH                         ','BPINON                          ', & ! index 160 - 162\n     'LIMKB                           ','MP                              ','R7N1                            ', & ! index 163 - 165\n     'SALCAL                          ','LIMO                            ','IHN3                            ', & ! index 166 - 168\n     'LIMO3H                          ','I2                              ','C4HVP1                          ', & ! index 169 - 171\n     'C4HVP2                          ','RCOOH                           ','IDHDP                           ', & ! index 172 - 174\n     'IHN2                            ','C96N                            ','LIMNB                           ', & ! index 175 - 177\n     'R7O2                            ','SALAAL                          ','IDNOO                           ' /) ! index up to 180\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_2 = (/ &\n     'CH3Cl                           ','ICNOO                           ','C2H6                            ', & ! index 181 - 183\n     'MPAN                            ','MVKPC                           ','INPD                            ', & ! index 184 - 186\n     'RIPA                            ','ROH                             ','ZRO2                            ', & ! index 187 - 189\n     'ISOPNOO2                        ','MTPA                            ','RIPB                            ', & ! index 190 - 192\n     'PIN                             ','MCRENOL                         ','PHEN                            ', & ! index 193 - 195\n     'R7N2                            ','ACO3                            ','IDHPE                           ', & ! index 196 - 198\n     'RIPD                            ','TMB                             ','AROMP5                          ', & ! index 199 - 201\n     'MCT                             ','BENZO                           ','BALD                            ', & ! index 202 - 204\n     'ISOPNOO1                        ','IDHNDOO1                        ','IDHNDOO2                        ', & ! index 205 - 207\n     'MVKHC                           ','RIPC                            ','HPETHNL                         ', & ! index 208 - 210\n     'LIMN                            ','BUTO2                           ','GCO3                            ', & ! index 211 - 213\n     'N2O5                            ','ICHE                            ','MCRHNB                          ', & ! index 214 - 216\n     'H                               ','BrNO3                           ','MTPO                            ', & ! index 217 - 219\n     'STYR                            ','AROMP4                          ','INPB                            ', & ! index 220 - 222\n     'IHPOO1                          ','IHPOO2                          ','PINAL                           ', & ! index 223 - 225\n     'IHPNDOO                         ','MVKHCB                          ','CH4                             ', & ! index 226 - 228\n     'PIP                             ','HPALD1                          ','HPALD2                          ', & ! index 229 - 231\n     'IHPOO3                          ','ACR                             ','ETOO                            ', & ! index 232 - 234\n     'BZCO3                           ','BENZO2                          ','LIMKET                          ', & ! index 235 - 237\n     'HC5A                            ','HNO2                            ','AROMCO3                         ', & ! index 238 - 240\n     'CH3CHOO                         ','MONITU                          ','ICHOO                           ', & ! index 241 - 243\n     'ATOOH                           ','Cl2                             ','MEKCO3                          ', & ! index 244 - 246\n     'PROPNN                          ','MCRHN                           ','ALK4N1                          ', & ! index 247 - 249\n     'PRN1                            ','R4N2                            ','IONO                            ', & ! index 250 - 252\n     'MCROHOO                         ','MVKOHOO                         ','LIMAL                           ', & ! index 253 - 255\n     'MONITS                          ','PINO3                           ','ICPDH                           ', & ! index 256 - 258\n     'MACR1OO                         ','PO2                             ','ETHLN                           ', & ! index 259 - 261\n     'MYRCO                           ','AROMRO2                         ','H2O2                            ', & ! index 262 - 264\n     'HCOOH                           ','ITCN                            ','IHN4                            ', & ! index 265 - 267\n     'IHN1                            ','NPHEN                           ','GLYX                            ' /) ! index up to 270\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(86) :: SPC_NAMES_3 = (/ &\n     'IHPNBOO                         ','LIMKO2                          ','BPINOO2                         ', & ! index 271 - 273\n     'LIMO3                           ','BPINO2                          ','ISOP                            ', & ! index 274 - 276\n     'APINO2                          ','C96O2                           ','ALK4N2                          ', & ! index 277 - 279\n     'OLNN                            ','LIMO2                           ','MOH                             ', & ! index 280 - 282\n     'ACTA                            ','IO                              ','IEPOXBOO                        ', & ! index 283 - 285\n     'IEPOXAOO                        ','MCRHP                           ','MVKHP                           ', & ! index 286 - 288\n     'OLND                            ','PRPE                            ','PIO2                            ', & ! index 289 - 291\n     'MEK                             ','IDHNBOO                         ','MGLY                            ', & ! index 292 - 294\n     'ACET                            ','ETO2                            ','ClNO2                           ', & ! index 295 - 297\n     'RCHO                            ','IDN                             ','ALK4O2                          ', & ! index 298 - 300\n     'ICN                             ','MVKN                            ','ITHN                            ', & ! index 301 - 303\n     'IHOO4                           ','IHOO1                           ','GLYC                            ', & ! index 304 - 306\n     'HAC                             ','MACRNO2                         ','MACR                            ', & ! index 307 - 309\n     'INO2B                           ','INO2D                           ','CH2OO                           ', & ! index 310 - 312\n     'ATO2                            ','MVK                             ','OTHRO2                          ', & ! index 313 - 315\n     'HOBr                            ','ClNO3                           ','R4N1                            ', & ! index 316 - 318\n     'R4O2                            ','KO2                             ','A3O2                            ', & ! index 319 - 321\n     'RCO3                            ','B3O2                            ','MCO3                            ', & ! index 322 - 324\n     'CH2O                            ','ALD2                            ','HNO3                            ', & ! index 325 - 327\n     'MO2                             ','CO                              ','HOI                             ', & ! index 328 - 330\n     'I                               ','IONO2                           ','HOCl                            ', & ! index 331 - 333\n     'O1D                             ','NO2                             ','H2O                             ', & ! index 334 - 336\n     'HO2                             ','ClO                             ','HCl                             ', & ! index 337 - 339\n     'Cl                              ','O3                              ','Br                              ', & ! index 340 - 342\n     'O                               ','SALCCL                          ','OH                              ', & ! index 343 - 345\n     'NO                              ','BrO                             ','SO2                             ', & ! index 346 - 348\n     'BrSALA                          ','BrSALC                          ','NO3                             ', & ! index 349 - 351\n     'HBr                             ','SALACL                          ','H2                              ', & ! index 352 - 354\n     'N2                              ','O2                              ' /) ! index up to 356\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(356) :: SPC_NAMES = (/&\n    SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2, SPC_NAMES_3 /)\n\n  INTEGER, DIMENSION(1) :: LOOKAT\n  INTEGER, DIMENSION(1) :: MONITOR\n  CHARACTER(LEN=32), DIMENSION(1) :: SMASS\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &\n     'SALAAL + O3 + SO2 --> LOx + PSO4 + SO4 - SALAAL                                                     ', & ! index 1\n     '     SALAAL + HCl --> SALACL                                                                        ', & ! index 2\n     '    SALAAL + HNO3 --> NIT                                                                           ', & ! index 3\n     'SALCAL + O3 + SO2 --> SO4s + LOx - SALCAL                                                           ', & ! index 4\n     '     SALCAL + HCl --> SALCCL                                                                        ', & ! index 5\n     '    SALCAL + HNO3 --> NITs                                                                          ', & ! index 6\n     '       H2O2 + SO2 --> PSO4 + SO4                                                                    ', & ! index 7\n     '         O3 + SO2 --> LOx + PSO4 + SO4                                                              ', & ! index 8\n     '              SO2 --> PSO4 + SO4                                                                    ', & ! index 9\n     '       CH2O + SO2 --> HMS                                                                           ', & ! index 10\n     '              HMS --> CH2O + SO2                                                                    ', & ! index 11\n     '   HMS + OH + SO2 --> 2 PSO4AQ + 2 PSO4 + 2 SO4 + CH2O                                              ', & ! index 12\n     '          O3 + NO --> NO2 + O2                                                                      ', & ! index 13\n     '          O3 + OH --> LOx + HO2 + O2                                                                ', & ! index 14\n     '         HO2 + O3 --> LOx + OH + 2 O2                                                               ', & ! index 15\n     '         NO2 + O3 --> NO3 + O2                                                                      ', & ! index 16\n     '         MO2 + O3 --> LOx + CH2O + HO2 + O2                                                         ', & ! index 17\n     '             2 OH --> POx + H2O + O                                                                 ', & ! index 18\n     '             2 OH --> PH2O2 + H2O2                                                                  ', & ! index 19\n     '         HO2 + OH --> H2O + O2                                                                      ', & ! index 20\n     '        H2O2 + OH --> H2O + HO2                                                                     ', & ! index 21\n     '         HO2 + NO --> POx + NO2 + OH                                                                ', & ! index 22\n     '            2 HO2 --> PH2O2 + H2O2 + O2                                                             ', & ! index 23\n     '          CO + OH --> CO2 + LCO + HO2                                                               ', & ! index 24\n     '         CH4 + OH --> LCH4 + MO2 + H2O                                                              ', & ! index 25\n     '         MO2 + NO --> POx + CH2O + NO2 + HO2                                                        ', & ! index 26\n     '         MO2 + NO --> MENO3                                                                         ', & ! index 27\n     '        MO2 + HO2 --> MP + O2                                                                       ', & ! index 28\n     '            2 MO2 --> MOH + CH2O + O2                                                               ', & ! index 29\n     '            2 MO2 --> 2 CH2O + 2 HO2                                                                ' /) ! index up to 30\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &\n     '         MO2 + OH --> 0.13 MOH + 0.87 CH2O + 1.74 HO2                                               ', & ! index 31\n     '          MP + OH --> 0.3 CH2O + 0.7 MO2 + H2O + 0.3 OH                                             ', & ! index 32\n     '       ATOOH + OH --> 0.3 MGLY + 0.7 ATO2 + H2O + 0.3 OH                                            ', & ! index 33\n     '        CH2O + OH --> PCO + CO + H2O + HO2                                                          ', & ! index 34\n     '         NO2 + OH --> HNO3                                                                          ', & ! index 35\n     '        HNO3 + OH --> POx + H2O + NO3                                                               ', & ! index 36\n     '          OH + NO --> HNO2                                                                          ', & ! index 37\n     '        HNO2 + OH --> POx + NO2 + H2O                                                               ', & ! index 38\n     '        NO2 + HO2 --> HNO4                                                                          ', & ! index 39\n     '             HNO4 --> NO2 + HO2                                                                     ', & ! index 40\n     '        HNO4 + OH --> NO2 + H2O + O2                                                                ', & ! index 41\n     '        HO2 + NO3 --> LOx + NO2 + OH + O2                                                           ', & ! index 42\n     '         NO + NO3 --> 2 NO2                                                                         ', & ! index 43\n     '         OH + NO3 --> LOx + NO2 + HO2                                                               ', & ! index 44\n     '        NO2 + NO3 --> N2O5                                                                          ', & ! index 45\n     '             N2O5 --> NO2 + NO3                                                                     ', & ! index 46\n     '       HCOOH + OH --> CO2 + H2O + HO2                                                               ', & ! index 47\n     '         MOH + OH --> CH2O + HO2                                                                    ', & ! index 48\n     '        NO2 + NO3 --> 2 LOx + NO2 + NO + O2                                                         ', & ! index 49\n     '       CH2O + NO3 --> LOx + PCO + HNO3 + CO + HO2                                                   ', & ! index 50\n     '        ALD2 + OH --> 0.05 PCO + 0.95 MCO3 + 0.05 CH2O + 0.05 CO + H2O + 0.05 HO2                   ', & ! index 51\n     '       ALD2 + NO3 --> LOx + MCO3 + HNO3                                                             ', & ! index 52\n     '       MCO3 + NO2 --> PAN                                                                           ', & ! index 53\n     '              PAN --> MCO3 + NO2                                                                    ', & ! index 54\n     '         PAN + OH --> PCO + CH2O + CO + NO2                                                         ', & ! index 55\n     '        MCO3 + NO --> CO2 + POx + MO2 + NO2                                                         ', & ! index 56\n     '        C2H6 + OH --> ETO2 + H2O                                                                    ', & ! index 57\n     '        ETO2 + NO --> POx + ALD2 + NO2 + HO2                                                        ', & ! index 58\n     '        ETO2 + NO --> ETNO3                                                                         ', & ! index 59\n     '      OTHRO2 + NO --> POx + ALD2 + NO2 + HO2                                                        ' /) ! index up to 60\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &\n     '        C3H8 + OH --> B3O2                                                                          ', & ! index 61\n     '        C3H8 + OH --> A3O2                                                                          ', & ! index 62\n     '        A3O2 + NO --> POx + RCHO + NO2 + HO2                                                        ', & ! index 63\n     '        A3O2 + NO --> NPRNO3                                                                        ', & ! index 64\n     '         PO2 + NO --> POx + CH2O + ALD2 + NO2 + HO2                                                 ', & ! index 65\n     '        ALK6 + OH --> R7O2                                                                          ', & ! index 66\n     '       ALK6 + NO3 --> LOx + R7O2 + HNO3                                                             ', & ! index 67\n     '        R7O2 + NO --> POx + 0.25 MEK + 0.75 RCHO + 0.25 R4O2 + NO2 + 0.75 HO2                       ', & ! index 68\n     '        R7O2 + NO --> R7N2                                                                          ', & ! index 69\n     '       R7O2 + HO2 --> R7P                                                                           ', & ! index 70\n     '         R7P + OH --> 0.5 R7O2 + 0.5 RCHO + 0.5 OH                                                  ', & ! index 71\n     '        R7N2 + OH --> R7N1 + H2O                                                                    ', & ! index 72\n     '        R7N1 + NO --> 2 POx + 1.24 RCHO + 0.98 CH2O + 0.65 ALD2 + 2 NO2                             ', & ! index 73\n     '       R7N1 + HO2 --> R7N2                                                                          ', & ! index 74\n     '        C4H6 + OH --> BUTO2                                                                         ', & ! index 75\n     '       C4H6 + NO3 --> LOx + ACR + CH2O + NO2                                                        ', & ! index 76\n     '        C4H6 + O3 --> LOx + ACR + CH2O                                                              ', & ! index 77\n     '       BUTO2 + NO --> 0.942 POx + 0.058 BUTN + 0.73 ACR + 0.326 RCHO + 0.603 CH2O + 0.942 NO... etc.', & ! index 78\n     '      BUTO2 + HO2 --> 0.894 RCHO + 0.659 GLYC                                                       ', & ! index 79\n     '        BUTN + OH --> POx + PCO + GLYC + CH2O + CO + NO2 + HO2                                      ', & ! index 80\n     '         ACR + OH --> 0.255 ACRO2 + 0.68 ACO3 + 0.065 GLYX + 0.065 CH2O + 0.425 HO2                 ', & ! index 81\n     '       ACRO2 + NO --> POx + PCO + GLYC + CO + NO2 + HO2                                             ', & ! index 82\n     '      ACRO2 + HO2 --> PCO + GLYC + CO + HO2                                                         ', & ! index 83\n     '       ACO3 + HO2 --> PCO + 0.5 GLYC + CH2O + CO + 0.25 HO2 + 0.25 OH                               ', & ! index 84\n     '        ACO3 + NO --> POx + PCO + CH2O + CO + NO2 + HO2                                             ', & ! index 85\n     '       ACO3 + NO2 --> LOx + APAN                                                                    ', & ! index 86\n     '             APAN --> POx + ACO3 + NO2                                                              ', & ! index 87\n     '        APAN + OH --> 2 POx + PCO + GLYC + CO + NO3                                                 ', & ! index 88\n     '        ALK4 + OH --> R4O2                                                                          ', & ! index 89\n     '      ALK4O2 + NO --> POx + 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.1... etc.' /) ! index up to 90\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &\n     '      ALK4O2 + NO --> POx + ALK4N2                                                                  ', & ! index 91\n     '      ALK4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2                               ', & ! index 92\n     '        R4O2 + NO --> POx + 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.1... etc.', & ! index 93\n     '        R4O2 + NO --> POx + R4N2                                                                    ', & ! index 94\n     '        R4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2                               ', & ! index 95\n     '        ATO2 + NO --> POx + MCO3 + CH2O + NO2                                                       ', & ! index 96\n     '         KO2 + NO --> POx + 0.072 ALK4N2 + 0.919 MCO3 + 0.919 ALD2 + 0.928 NO2                      ', & ! index 97\n     '        B3O2 + NO --> POx + ACET + NO2 + HO2                                                        ', & ! index 98\n     '        B3O2 + NO --> IPRNO3                                                                        ', & ! index 99\n     '        PRN1 + NO --> POx + CH2O + ALD2 + 2 NO2                                                     ', & ! index 100\n     '       ALK4 + NO3 --> LOx + ALK4O2 + HNO3                                                           ', & ! index 101\n     '        R4N2 + OH --> R4N1 + H2O                                                                    ', & ! index 102\n     '      ALK4N2 + OH --> ALK4N1 + H2O                                                                  ', & ! index 103\n     '        ACTA + OH --> CO2 + MO2 + H2O                                                               ', & ! index 104\n     '        RCHO + OH --> RCO3 + H2O                                                                    ', & ! index 105\n     '       RCO3 + NO2 --> PPN                                                                           ', & ! index 106\n     '              PPN --> RCO3 + NO2                                                                    ', & ! index 107\n     '         PPN + OH --> PCO + ALD2 + CO + NO2                                                         ', & ! index 108\n     '        RCO3 + NO --> CO2 + POx + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + NO2                         ', & ! index 109\n     '       RCHO + NO3 --> LOx + RCO3 + HNO3                                                             ', & ! index 110\n     '        ACET + OH --> ATO2 + H2O                                                                    ', & ! index 111\n     '       A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 RCHO + 0.75 CH2O + HO2                             ', & ! index 112\n     '        PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.09 RCHO + 0.16 HAC + 1.25 CH2O + 0.5 ALD2 + HO2       ', & ! index 113\n     '       R4O2 + HO2 --> R4P                                                                           ', & ! index 114\n     '       R4N1 + HO2 --> R4N2                                                                          ', & ! index 115\n     '     ALK4O2 + HO2 --> ALK4P                                                                         ', & ! index 116\n     '     ALK4N1 + HO2 --> ALK4N2                                                                        ', & ! index 117\n     '       ATO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 CH2O + 0.15 OH                                  ', & ! index 118\n     '        KO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 ALD2 + 0.85 MO2 + 0.15 OH                       ', & ! index 119\n     '       B3O2 + HO2 --> RB3P                                                                          ' /) ! index up to 120\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &\n     '       PRN1 + HO2 --> PRPN                                                                          ', & ! index 121\n     '         MEK + OH --> KO2 + H2O                                                                     ', & ! index 122\n     '         KO2 + NO --> POx + 0.31 MEKCO3 + 0.07 R4N2 + 0.62 MCO3 + 0.31 CH2O + 0.62 ALD2 + 0.93 NO2  ', & ! index 123\n     '     MEKCO3 + NO2 --> LOx + MEKPN                                                                   ', & ! index 124\n     '            MEKPN --> POx + MEKCO3 + NO2                                                            ', & ! index 125\n     '       MEKPN + OH --> POx + PCO + GLYC + CO + NO2                                                   ', & ! index 126\n     '      MEKCO3 + NO --> CO2 + POx + ETOO + NO2                                                        ', & ! index 127\n     '     MEKCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 ETOO + 0.15 O3 + 0.44 OH    ', & ! index 128\n     '       ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2                             ', & ! index 129\n     '     OTHRO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2                             ', & ! index 130\n     '        MEK + NO3 --> LOx + KO2 + HNO3                                                              ', & ! index 131\n     '       R4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.35 MEK + 0.16 ACET + 0.13 RCHO + 0.16 OTHRO2 +... etc.', & ! index 132\n     '       R4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.58 RCHO + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 133\n     '     ALK4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.35 MEK + 0.16 ACET + 0.13 RCHO + 0.16 OTHRO2 +... etc.', & ! index 134\n     '     ALK4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.58 RCHO + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 135\n     '       ATO2 + MO2 --> 0.3 CO2 + 0.5 MOH + 0.5 MGLY + 0.2 HAC + 0.3 MCO3 + 0.5 CH2O + 0.3 HO2        ', & ! index 136\n     '        KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 MEK + 0.5 MCO3 + 0.75 CH2O + 0.5 ALD2 + 0.2... etc.', & ! index 137\n     '       B3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 ACET + 0.75 CH2O + HO2                             ', & ! index 138\n     '       PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 RCHO + 1.25 CH2O + 0.5 ALD2 + NO2 + 0.5 HO2        ', & ! index 139\n     '         EOH + OH --> ALD2 + HO2                                                                    ', & ! index 140\n     '         ROH + OH --> RCHO + HO2                                                                    ', & ! index 141\n     '           2 ETO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2                                                  ', & ! index 142\n     '         2 OTHRO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2                                                  ', & ! index 143\n     '       ETO2 + HO2 --> ETP                                                                           ', & ! index 144\n     '     OTHRO2 + HO2 --> ETP                                                                           ', & ! index 145\n     '       A3O2 + HO2 --> RA3P                                                                          ', & ! index 146\n     '        PO2 + HO2 --> PP                                                                            ', & ! index 147\n     '       RCO3 + HO2 --> 0.43 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.22 OTHRO2 + 0.03 A3O2 +... etc.', & ! index 148\n     '        PRPE + OH --> PO2                                                                           ', & ! index 149\n     '        PRPE + O3 --> 0.1 CO2 + LOx + 0.56 PCO + 0.1 CH4 + 0.12 CH3CHOO + 0.22 CH2OO + 0.5 C... etc.' /) ! index up to 150\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &\n     '        GLYC + OH --> 0.361 CO2 + 0.505 PCO + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O + 0.505 ... etc.', & ! index 151\n     '        GLYC + OH --> PCO + HCOOH + CO + OH                                                         ', & ! index 152\n     '        GLYC + OH --> 0.8 GCO3 + 0.2 GLYX + 0.2 HO2                                                 ', & ! index 153\n     '       GLYC + NO3 --> LOx + GCO3 + HNO3                                                             ', & ! index 154\n     '       GCO3 + NO2 --> LOx + PHAN                                                                    ', & ! index 155\n     '             PHAN --> POx + GCO3 + NO2                                                              ', & ! index 156\n     '        GCO3 + NO --> POx + CH2O + NO2 + HO2                                                        ', & ! index 157\n     '       GCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.56 HACTA + 0.44 CH2O + 0.44 HO2 + 0.15 O3 + 0.44 OH   ', & ! index 158\n     '       GCO3 + NO3 --> LOx + CH2O + NO2 + HO2                                                        ', & ! index 159\n     '        PHAN + OH --> POx + PCO + CH2O + CO + NO2                                                   ', & ! index 160\n     '       HACTA + OH --> CH2O + HO2                                                                    ', & ! index 161\n     '       PRPE + NO3 --> LOx + PRN1                                                                    ', & ! index 162\n     '        GLYX + OH --> 2 PCO + 2 CO + HO2                                                            ', & ! index 163\n     '        MGLY + OH --> PCO + MCO3 + CO                                                               ', & ! index 164\n     '       GLYX + NO3 --> LOx + 2 PCO + HNO3 + 2 CO + HO2                                               ', & ! index 165\n     '       MGLY + NO3 --> LOx + PCO + MCO3 + HNO3 + CO                                                  ', & ! index 166\n     '         HAC + OH --> MGLY + HO2                                                                    ', & ! index 167\n     '         HAC + OH --> 0.5 CO2 + 0.5 PCO + 0.5 HCOOH + 0.5 ACTA + 0.5 MO2 + 0.5 CO + OH              ', & ! index 168\n     '        PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH                                          ', & ! index 169\n     '         ETP + OH --> 0.36 OTHRO2 + 0.64 ALD2 + 0.64 OH                                             ', & ! index 170\n     '        RA3P + OH --> 0.64 RCHO + 0.36 A3O2 + 0.64 OH                                               ', & ! index 171\n     '        RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH                                            ', & ! index 172\n     '         R4P + OH --> 1.185 RCHO + 0.21 R4O2 + 0.79 OH                                              ', & ! index 173\n     '       ALK4P + OH --> 1.185 RCHO + 0.21 ALK4O2 + 0.79 OH                                            ', & ! index 174\n     '          RP + OH --> RCO3                                                                          ', & ! index 175\n     '          PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                              ', & ! index 176\n     '        LVOC + OH --> OH                                                                            ', & ! index 177\n     '         MAP + OH --> 0.22 CO2 + 0.78 MCO3 + 0.22 CH2O + 0.22 OH                                    ', & ! index 178\n     '       C2H6 + NO3 --> LOx + ETO2 + HNO3                                                             ', & ! index 179\n     '           2 MCO3 --> 2 CO2 + 2 MO2                                                                 ' /) ! index up to 180\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &\n     '       MCO3 + MO2 --> 0.9 CO2 + 0.1 ACTA + CH2O + 0.9 MO2 + 0.9 HO2                                 ', & ! index 181\n     '      R4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.271 MEK + 0.29 ACET + 0.255 RCHO + 0.29 OTHRO2 ... etc.', & ! index 182\n     '    ALK4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.271 MEK + 0.29 ACET + 0.255 RCHO + 0.29 OTHRO2 ... etc.', & ! index 183\n     '      ATO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MGLY + 0.9 MCO3 + 0.9 CH2O + 0.9 MO2                 ', & ! index 184\n     '       KO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MEK + 0.9 MCO3 + 0.9 ALD2 + 0.9 MO2                  ', & ! index 185\n     '      B3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ACET + 0.9 MO2 + 0.9 HO2                                 ', & ! index 186\n     '      R4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.613 RCHO + 0.27 R4O2 + 0.351 CH2O + 0.675 ALD... etc.', & ! index 187\n     '    ALK4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.613 RCHO + 0.27 R4O2 + 0.351 CH2O + 0.675 ALD... etc.', & ! index 188\n     '      PRN1 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 RCHO + 0.9 CH2O + 0.9 ALD2 + 0.9 MO2 + NO2           ', & ! index 189\n     '      ETO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2                                 ', & ! index 190\n     '    OTHRO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2                                 ', & ! index 191\n     '       PO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.035 RCHO + 0.065 HAC + 0.9 CH2O + 0.9 ALD2 + 0.... etc.', & ! index 192\n     '      A3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + RCHO + 0.9 MO2 + 0.9 HO2                                 ', & ! index 193\n     '      RCO3 + MCO3 --> 2 CO2 + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + MO2                             ', & ! index 194\n     '       RCO3 + MO2 --> CO2 + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + CH2O + HO2                        ', & ! index 195\n     '            2 NO3 --> 2 LOx + 2 NO2 + O2                                                            ', & ! index 196\n     '        MO2 + NO2 --> MPN                                                                           ', & ! index 197\n     '              MPN --> MO2 + NO2                                                                     ', & ! index 198\n     '         DMS + OH --> CH2O + MO2 + SO2                                                              ', & ! index 199\n     '         DMS + OH --> 0.25 MSA + MO2 + 0.75 SO2                                                     ', & ! index 200\n     '        DMS + NO3 --> LOx + CH2O + HNO3 + MO2 + SO2                                                 ', & ! index 201\n     '         OH + SO2 --> PH2SO4 + PSO4 + SO4 + HO2                                                     ', & ! index 202\n     '          O3 + Br --> BrO + O2                                                                      ', & ! index 203\n     '        HO2 + BrO --> HOBr + O2                                                                     ', & ! index 204\n     '         HO2 + Br --> HBr + O2                                                                      ', & ! index 205\n     '         OH + HBr --> H2O + Br                                                                      ', & ! index 206\n     '            2 BrO --> 2 LOx + 2 Br + O2                                                             ', & ! index 207\n     '            2 BrO --> 2 LOx + Br2 + O2                                                              ', & ! index 208\n     '         NO + BrO --> NO2 + Br                                                                      ', & ! index 209\n     '       BrNO3 + Br --> Br2 + NO3                                                                     ' /) ! index up to 210\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &\n     '         Br2 + OH --> POx + HOBr + Br                                                               ', & ! index 211\n     '         HOBr + O --> LOx + OH + BrO                                                                ', & ! index 212\n     '          O + HBr --> LOx + Br + OH                                                                 ', & ! index 213\n     '         OH + BrO --> LOx + HO2 + Br                                                                ', & ! index 214\n     '         Br + NO3 --> NO2 + BrO                                                                     ', & ! index 215\n     '        CH2O + Br --> PCO + CO + HO2 + HBr                                                          ', & ! index 216\n     '        ALD2 + Br --> MCO3 + HBr                                                                    ', & ! index 217\n     '        ACET + Br --> ATO2 + HBr                                                                    ', & ! index 218\n     '        C2H6 + Br --> ETO2 + HBr                                                                    ', & ! index 219\n     '        C3H8 + Br --> A3O2 + HBr                                                                    ', & ! index 220\n     '         NO2 + Br --> BrNO2                                                                         ', & ! index 221\n     '        NO2 + BrO --> BrNO3                                                                         ', & ! index 222\n     '       CHBr3 + OH --> 3 Br                                                                          ', & ! index 223\n     '      CH2Br2 + OH --> 2 Br                                                                          ', & ! index 224\n     '       CH3Br + OH --> H2O + HO2 + Br                                                                ', & ! index 225\n     '        O1D + H2O --> LOx + 2 OH                                                                    ', & ! index 226\n     '         O1D + N2 --> O + N2                                                                        ', & ! index 227\n     '         O1D + O2 --> O + O2                                                                        ', & ! index 228\n     '         O1D + H2 --> LOx + H + OH                                                                  ', & ! index 229\n     '        N2O + O1D --> LOx + 1.22 NO + 0.39 N2 + 0.39 O2                                             ', & ! index 230\n     '        CH4 + O1D --> LOx + LCH4 + 0.2 H + 0.25 CH2O + 0.75 MO2 + 0.2 HO2 + 0.75 OH + 0.05 H2       ', & ! index 231\n     '           O + O2 --> O3                                                                            ', & ! index 232\n     '           O3 + O --> 2 LOx + 2 O2                                                                  ', & ! index 233\n     '          OH + H2 --> H + H2O                                                                       ', & ! index 234\n     '           O + OH --> LOx + H + O2                                                                  ', & ! index 235\n     '          HO2 + O --> LOx + OH + O2                                                                 ', & ! index 236\n     '         O1D + O3 --> LOx + O + 1.5 O2                                                              ', & ! index 237\n     '          OCS + O --> LOx + PCO + CO + SO2                                                          ', & ! index 238\n     '         OCS + OH --> CO2 + SO2                                                                     ', & ! index 239\n     '          NO2 + O --> 2 LOx + NO + O2                                                               ' /) ! index up to 240\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &\n     '          O + NO3 --> 2 LOx + NO2 + O2                                                              ', & ! index 241\n     '           O + NO --> NO2                                                                           ', & ! index 242\n     '          NO2 + O --> NO3                                                                           ', & ! index 243\n     '         H2O2 + O --> LOx + HO2 + OH                                                                ', & ! index 244\n     '           H + O2 --> HO2                                                                           ', & ! index 245\n     '           H + O3 --> LOx + OH + O2                                                                 ', & ! index 246\n     '          H + HO2 --> 0.02 POx + 0.02 H2O + 0.02 O + 1.788 OH + 0.086 H2 + 0.086 O2                 ', & ! index 247\n     '           N + O2 --> POx + O + NO                                                                  ', & ! index 248\n     '           N + NO --> POx + O + N2                                                                  ', & ! index 249\n     '          N + NO2 --> N2O + O                                                                       ', & ! index 250\n     '          O + BrO --> 2 LOx + Br + O2                                                               ', & ! index 251\n     '         CH2O + O --> LOx + PCO + CO + HO2 + OH                                                     ', & ! index 252\n     '        O1D + HCl --> 0.66 LOx + 0.22 H + 0.22 ClO + 0.12 HCl + 0.66 Cl + 0.12 O + 0.66 OH          ', & ! index 253\n     '        O1D + HBr --> 0.6 LOx + 0.2 H + 0.6 Br + 0.2 O + 0.6 OH + 0.2 BrO + 0.2 HBr                 ', & ! index 254\n     '        Cl2 + O1D --> 0.25 Cl2 + 0.75 ClO + 0.75 Cl + 0.25 O                                        ', & ! index 255\n     '       CCl4 + O1D --> 0.21 CCl4 + 0.79 ClO + 2.37 Cl + 0.21 O                                       ', & ! index 256\n     '      CH3Cl + O1D --> 0.44 LOx + 0.1 CH3Cl + 0.09 H + 0.9 MO2 + 0.46 ClO + 0.35 Cl + 0.1 O          ', & ! index 257\n     '      CH3Br + O1D --> 0.56 LOx + MO2 + 0.56 Br + 0.44 BrO                                           ', & ! index 258\n     '     CH2Br2 + O1D --> 0.05 CH2Br2 + 0.95 Br + 0.05 O + 0.95 BrO                                     ', & ! index 259\n     '      CHBr3 + O1D --> 0.3 CHBr3 + 1.4 Br + 0.3 O + 0.7 BrO                                          ', & ! index 260\n     '     HCFC22 + O1D --> 0.19 LOx + 0.25 HCFC22 + 0.56 ClO + 0.19 Cl + 0.25 O + 0.05 OH                ', & ! index 261\n     '      CFC11 + O1D --> 0.1 CFC11 + 0.9 ClO + 1.8 Cl + 0.1 O                                          ', & ! index 262\n     '      CFC12 + O1D --> 0.14 CFC12 + 0.86 ClO + 0.86 Cl + 0.14 O                                      ', & ! index 263\n     '      H1211 + O1D --> 0.35 H1211 + 0.34 ClO + 0.31 Cl + 0.34 Br + 0.35 O + 0.31 BrO                 ', & ! index 264\n     '      H1301 + O1D --> 0.55 H1301 + 0.55 O + 0.45 BrO                                                ', & ! index 265\n     '   HCFC141b + O1D --> 0.31 HCFC141b + 0.69 ClO + 0.69 Cl + 0.31 O                                   ', & ! index 266\n     '   HCFC142b + O1D --> 0.35 HCFC142b + 0.65 ClO + 0.35 O                                             ', & ! index 267\n     '    HCFC123 + O1D --> 0.21 HCFC123 + 0.79 ClO + 0.79 Cl + 0.21 O                                    ', & ! index 268\n     '     CFC113 + O1D --> 0.1 LOx + 0.1 CFC113 + 0.8 ClO + 1.9 Cl + 0.1 O                               ', & ! index 269\n     '     CFC114 + O1D --> 0.05 LOx + 0.1 CFC114 + 0.85 ClO + 0.95 Cl + 0.1 O                            ' /) ! index up to 270\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &\n     '     CFC115 + O1D --> 0.14 CFC115 + 0.86 ClO + 0.14 O                                               ', & ! index 271\n     '      H2402 + O1D --> 0.25 H2402 + 0.75 Br + 0.25 O + 0.75 BrO                                      ', & ! index 272\n     '         Cl2 + OH --> POx + HOCl + Cl                                                               ', & ! index 273\n     '        MO2 + ClO --> LOx + ClOO + CH2O + HO2                                                       ', & ! index 274\n     '         ClO + OH --> LOx + HO2 + Cl                                                                ', & ! index 275\n     '         ClO + OH --> LOx + HCl + O2                                                                ', & ! index 276\n     '        OClO + OH --> LOx + HOCl + O2                                                               ', & ! index 277\n     '       Cl2O2 + OH --> LOx + ClOO + HOCl                                                             ', & ! index 278\n     '         HCl + OH --> H2O + Cl                                                                      ', & ! index 279\n     '        HOCl + OH --> H2O + ClO                                                                     ', & ! index 280\n     '       ClNO2 + OH --> POx + HOCl + NO2                                                              ', & ! index 281\n     '       ClNO3 + OH --> POx + HOCl + NO3                                                              ', & ! index 282\n     '       CH3Cl + OH --> H2O + HO2 + Cl                                                                ', & ! index 283\n     '      CH2Cl2 + OH --> HO2 + 2 Cl                                                                    ', & ! index 284\n     '       CHCl3 + OH --> HO2 + 3 Cl                                                                    ', & ! index 285\n     '     CH3CCl3 + OH --> H2O + 3 Cl                                                                    ', & ! index 286\n     '      HCFC22 + OH --> H2O + Cl                                                                      ', & ! index 287\n     '    HCFC141b + OH --> H2O + 2 Cl                                                                    ', & ! index 288\n     '    HCFC142b + OH --> H2O + Cl                                                                      ', & ! index 289\n     '     HCFC123 + OH --> H2O + 2 Cl                                                                    ', & ! index 290\n     '         CH4 + Cl --> LCH4 + MO2 + HCl                                                              ', & ! index 291\n     '        CH2O + Cl --> PCO + CO + HO2 + HCl                                                          ', & ! index 292\n     '          Cl + O3 --> ClO + O2                                                                      ', & ! index 293\n     '          Cl + H2 --> H + HCl                                                                       ', & ! index 294\n     '        H2O2 + Cl --> HO2 + HCl                                                                     ', & ! index 295\n     '         HO2 + Cl --> HCl + O2                                                                      ', & ! index 296\n     '         HO2 + Cl --> POx + ClO + OH                                                                ', & ! index 297\n     '          ClO + O --> 2 LOx + Cl + O2                                                               ', & ! index 298\n     '        HO2 + ClO --> HOCl + O2                                                                     ', & ! index 299\n     '         ClO + NO --> NO2 + Cl                                                                      ' /) ! index up to 300\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &\n     '        NO2 + ClO --> ClNO3                                                                         ', & ! index 301\n     '            2 ClO --> 2 LOx + Cl2 + O2                                                              ', & ! index 302\n     '            2 ClO --> 2 LOx + ClOO + Cl                                                             ', & ! index 303\n     '            2 ClO --> OClO + Cl                                                                     ', & ! index 304\n     '          Cl + O2 --> ClOO                                                                          ', & ! index 305\n     '             ClOO --> Cl + O2                                                                       ', & ! index 306\n     '            2 ClO --> Cl2O2                                                                         ', & ! index 307\n     '            Cl2O2 --> 2 ClO                                                                         ', & ! index 308\n     '        ClOO + Cl --> 0.1 POx + 0.95 Cl2 + 0.1 ClO + 0.95 O2                                        ', & ! index 309\n     '        ClO + BrO --> OClO + Br                                                                     ', & ! index 310\n     '        ClO + BrO --> 2 LOx + ClOO + Br                                                             ', & ! index 311\n     '        ClO + BrO --> 2 LOx + BrCl + O2                                                             ', & ! index 312\n     '        ClNO3 + O --> ClO + NO3                                                                     ', & ! index 313\n     '       ClNO3 + Cl --> Cl2 + NO3                                                                     ', & ! index 314\n     '       CH3Cl + Cl --> PCO + CO + HO2 + 2 HCl                                                        ', & ! index 315\n     '      CH2Cl2 + Cl --> PCO + CO + HO2 + HCl + 2 Cl                                                   ', & ! index 316\n     '       CHCl3 + Cl --> PCO + CO + HO2 + HCl + 3 Cl                                                   ', & ! index 317\n     '       HCOOH + Cl --> CO2 + H2O + HCl                                                               ', & ! index 318\n     '         MO2 + Cl --> POx + CH2O + HO2 + ClO                                                        ', & ! index 319\n     '          MP + Cl --> MO2 + HCl                                                                     ', & ! index 320\n     '        C2H6 + Cl --> ETO2 + HCl                                                                    ', & ! index 321\n     '        ETO2 + Cl --> POx + ALD2 + HO2 + ClO                                                        ', & ! index 322\n     '      OTHRO2 + Cl --> POx + ALD2 + HO2 + ClO                                                        ', & ! index 323\n     '         MOH + Cl --> CH2O + HO2 + HCl                                                              ', & ! index 324\n     '         EOH + Cl --> ALD2 + HCl                                                                    ', & ! index 325\n     '        ACTA + Cl --> CO2 + MO2 + HCl                                                               ', & ! index 326\n     '        C3H8 + Cl --> B3O2 + HCl                                                                    ', & ! index 327\n     '        C3H8 + Cl --> A3O2 + HCl                                                                    ', & ! index 328\n     '        ACET + Cl --> ATO2 + HCl                                                                    ', & ! index 329\n     '        ISOP + Cl --> 0.5 IHOO4 + 0.5 IHOO1 + HCl                                                   ' /) ! index up to 330\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &\n     '        ALK4 + Cl --> ALK4O2 + HCl                                                                  ', & ! index 331\n     '        PRPE + Cl --> PO2 + HCl                                                                     ', & ! index 332\n     '        PRPE + Br --> PO2 + HBr                                                                     ', & ! index 333\n     '           I + NO --> INO                                                                           ', & ! index 334\n     '            2 INO --> I2 + 2 NO                                                                     ', & ! index 335\n     '          I + NO2 --> IONO                                                                          ', & ! index 336\n     '             IONO --> I + NO2                                                                       ', & ! index 337\n     '           2 IONO --> I2 + 2 NO2                                                                    ', & ! index 338\n     '         I2 + NO3 --> I + IONO2                                                                     ', & ! index 339\n     '         IO + NO2 --> IONO2                                                                         ', & ! index 340\n     '            IONO2 --> IO + NO2                                                                      ', & ! index 341\n     '        I + IONO2 --> I2 + NO3                                                                      ', & ! index 342\n     '          I + BrO --> IO + Br                                                                       ', & ! index 343\n     '         IO + BrO --> 0.4 LOx + 0.8 OIO + 0.2 I + Br + 0.2 O2                                       ', & ! index 344\n     '         OIO + IO --> I2O3                                                                          ', & ! index 345\n     '            2 OIO --> I2O4                                                                          ', & ! index 346\n     '             I2O4 --> 2 OIO                                                                         ', & ! index 347\n     '         OIO + NO --> IO + NO2                                                                      ', & ! index 348\n     '         IO + ClO --> 0.88 LOx + 0.191 ICl + 0.56 OClO + 0.809 I + 0.249 Cl + 0.44 O2               ', & ! index 349\n     '           I + O3 --> IO + O2                                                                       ', & ! index 350\n     '          I + HO2 --> HI + O2                                                                       ', & ! index 351\n     '          I2 + OH --> POx + HOI + I                                                                 ', & ! index 352\n     '          HI + OH --> I + H2O                                                                       ', & ! index 353\n     '         HOI + OH --> IO + H2O                                                                      ', & ! index 354\n     '         IO + HO2 --> HOI + O2                                                                      ', & ! index 355\n     '          IO + NO --> I + NO2                                                                       ', & ! index 356\n     '             2 IO --> 0.6 I2O2 + 0.4 OIO + 0.4 I                                                    ', & ! index 357\n     '             I2O2 --> 0.996 OIO + 0.008 IO + 0.996 I                                                ', & ! index 358\n     '        CH3I + OH --> MO2 + I + H2O                                                                 ', & ! index 359\n     '       ETHLN + OH --> CO2 + CH2O + NO2                                                              ' /) ! index up to 360\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &\n     '      PROPNN + OH --> MGLY + NO2                                                                    ', & ! index 361\n     '       CH2OO + CO --> CO2 + LCO + CH2O                                                              ', & ! index 362\n     '       CH2OO + NO --> POx + CH2O + NO2                                                              ', & ! index 363\n     '      CH2OO + NO2 --> POx + CH2O + NO3                                                              ', & ! index 364\n     '      CH2OO + H2O --> 0.06 PH2O2 + 0.73 HMHP + 0.06 H2O2 + 0.21 HCOOH + 0.06 CH2O                   ', & ! index 365\n     '    CH2OO + 2 H2O --> 0.06 PH2O2 + 0.4 HMHP + 0.06 H2O2 + 0.54 HCOOH + 0.06 CH2O                    ', & ! index 366\n     '       CH2OO + O3 --> LOx + CH2O                                                                    ', & ! index 367\n     '      CH2OO + SO2 --> PH2SO4 + PSO4 + SO4 + CH2O                                                    ', & ! index 368\n     '     CH3CHOO + CO --> CO2 + LCO + ALD2                                                              ', & ! index 369\n     '     CH3CHOO + NO --> POx + ALD2 + NO2                                                              ', & ! index 370\n     '    CH3CHOO + NO2 --> POx + ALD2 + NO3                                                              ', & ! index 371\n     '    CH3CHOO + SO2 --> PH2SO4 + PSO4 + SO4 + ALD2                                                    ', & ! index 372\n     '    CH3CHOO + H2O --> PH2O2 + H2O2 + ALD2                                                           ', & ! index 373\n     '    CH3CHOO + H2O --> ACTA                                                                          ', & ! index 374\n     '       MTPA + NO3 --> LOx + 0.1 OLNN + 0.9 OLND                                                     ', & ! index 375\n     '       MTPO + NO3 --> LOx + 0.1 OLNN + 0.9 OLND                                                     ', & ! index 376\n     '       LIMO + NO3 --> LOx + 0.5 OLNN + 0.5 OLND                                                     ', & ! index 377\n     '        LIMO + OH --> LIMO2                                                                         ', & ! index 378\n     '        LIMO + O3 --> LOx + 0.15 PCO + 0.27 LIMAL + 0.15 AROMRO2 + 0.715 LIMO3 + 0.15 CO + 0.865 OH ', & ! index 379\n     '        MTPO + OH --> 0.15 BPINO2 + 0.15 APINO2 + 0.2 LIMO2 + 0.5 PIO2                              ', & ! index 380\n     '        MTPO + O3 --> LOx + 0.4 MYRCO + 0.5 AROMRO2 + 0.5 MEK + 0.5 ACET + 0.3 RCHO + 0.15 M... etc.', & ! index 381\n     '        MTPA + OH --> 0.255 BPINO2 + 0.67 APINO2 + 0.075 LIMO2                                      ', & ! index 382\n     '        MTPA + O3 --> LOx + 0.1 PCO + 0.2 BPINO + 0.2 PINAL + 0.1 BPINOO2 + 0.5 APINO2 + 0.1... etc.', & ! index 383\n     '     APINO2 + HO2 --> APINP                                                                         ', & ! index 384\n     '      APINO2 + NO --> 0.75 POx + 0.25 APINN + 0.75 PINAL + 0.75 NO2 + 0.75 HO2                      ', & ! index 385\n     '     APINO2 + NO3 --> LOx + PINAL + NO2 + HO2                                                       ', & ! index 386\n     '       APINP + OH --> 0.4 PINO3 + 0.6 APINO2                                                        ', & ! index 387\n     '       APINN + OH --> 0.5 POx + 0.5 C96N + 0.5 PINAL + 0.5 AROMRO2 + 0.5 CH2O + 0.5 NO2 + 0.5 HO2   ', & ! index 388\n     '      PINAL + NO3 --> LOx + PINO3 + HNO3                                                            ', & ! index 389\n     '       PINAL + OH --> PINO3                                                                         ' /) ! index up to 390\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &\n     '      PINO3 + HO2 --> 0.15 POx + 0.15 PINONIC + 0.41 PINO3H + 0.44 C96O2 + 0.15 O3 + 0.44 OH        ', & ! index 391\n     '       PINO3 + NO --> CO2 + POx + C96O2 + NO2                                                       ', & ! index 392\n     '      PINO3 + NO2 --> LOx + PINPAN                                                                  ', & ! index 393\n     '           PINPAN --> POx + PINO3 + NO2                                                             ', & ! index 394\n     '      PINO3 + NO3 --> CO2 + LOx + C96O2 + NO2                                                       ', & ! index 395\n     '      PINO3H + OH --> PINO3                                                                         ', & ! index 396\n     '     PINONIC + OH --> CO2 + C96O2                                                                   ', & ! index 397\n     '      C96O2 + HO2 --> C96O2H                                                                        ', & ! index 398\n     '       C96O2 + NO --> 0.84 POx + 0.16 C96N + 0.84 AROMRO2 + 0.42 MEK + 0.84 ACET + 0.84 RCO3... etc.', & ! index 399\n     '      C96O2 + NO3 --> LOx + AROMRO2 + 0.5 MEK + ACET + RCO3 + CH2O + NO2                            ', & ! index 400\n     '      C96O2 + MO2 --> 0.25 C96O2H + 0.75 AROMRO2 + 0.25 MOH + 0.375 MEK + 0.75 ACET + 0.75 R... etc.', & ! index 401\n     '      C96O2H + OH --> 0.5 AROMRO2 + 0.5 C96O2 + 0.25 MEK + 0.5 ACET + 0.5 RCO3 + 0.5 CH2O           ', & ! index 402\n     '        C96N + OH --> POx + 0.5 MONITS + 0.55 AROMRO2 + 0.3 MEK + 0.4 ACET + 0.4 RCO3 + 0.4 ... etc.', & ! index 403\n     '     BPINO2 + HO2 --> BPINP                                                                         ', & ! index 404\n     '      BPINO2 + NO --> 0.75 POx + 0.75 BPINO + 0.25 BPINN + 0.75 CH2O + 0.75 NO2 + 0.75 HO2          ', & ! index 405\n     '     BPINO2 + NO3 --> LOx + BPINO + CH2O + NO2 + HO2                                                ', & ! index 406\n     '       BPINN + OH --> 0.5 POx + 0.5 BPINO + 0.5 BPINON + 0.5 AROMRO2 + CH2O + 0.5 NO2 + 0.5 HO2     ', & ! index 407\n     '       BPINP + OH --> BPINO2                                                                        ', & ! index 408\n     '       BPINO + OH --> BPINOO2                                                                       ', & ! index 409\n     '    BPINOO2 + HO2 --> BPINOOH                                                                       ', & ! index 410\n     '     BPINOO2 + NO --> BPINON                                                                        ', & ! index 411\n     '     BPINOO2 + NO --> POx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + NO2 + HO2                 ', & ! index 412\n     '    BPINOO2 + MO2 --> 0.25 BPINOOH + 0.23 LIMO3 + 0.25 MOH + 0.4 ACET + 0.4 RCHO + 0.4 R4O2 ... etc.', & ! index 413\n     '    BPINOO2 + NO3 --> LOx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + NO2 + HO2                 ', & ! index 414\n     '     BPINOOH + OH --> BPINOO2                                                                       ', & ! index 415\n     '      BPINON + OH --> POx + 0.5 MONITS + 0.085 LIMO3 + 0.3 ACET + 0.3 RCHO + 0.3 R4O2 + 0.5 NO2     ', & ! index 416\n     '      LIMO2 + HO2 --> 0.37 LIMKET + 0.63 LIMAL                                                      ', & ! index 417\n     '       LIMO2 + NO --> 0.75 POx + 0.25 LIMN + 0.28 LIMKET + 0.47 LIMAL + 0.75 NO2 + 0.75 HO2         ', & ! index 418\n     '      LIMO2 + NO3 --> LOx + 0.37 LIMKET + 0.63 LIMAL + NO2 + HO2                                    ', & ! index 419\n     '       LIMAL + OH --> LIMO3                                                                         ' /) ! index up to 420\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &\n     '       LIMAL + O3 --> LOx + 0.3 LIMKB + 0.6 LIMO3 + 0.33 CH2OO + 0.67 CH2O + 0.6 OH                 ', & ! index 421\n     '      LIMAL + NO3 --> 2 LOx + LIMNB + AROMRO2                                                       ', & ! index 422\n     '      LIMKET + OH --> LIMKO2                                                                        ', & ! index 423\n     '      LIMKET + O3 --> LOx + 0.27 LIMKO2 + 0.73 LIMO3 + 0.865 OH                                     ', & ! index 424\n     '     LIMKET + NO3 --> 2 LOx + LIMNB + AROMRO2                                                       ', & ! index 425\n     '        LIMN + OH --> 0.5 POx + 0.5 LIMNB + 0.18 LIMKO2 + 0.32 LIMO3 + 0.5 NO2                      ', & ! index 426\n     '        LIMN + O3 --> 0.5 LOx + 0.5 LIMNB + 0.4 LIMO3 + CH2O + 0.5 NO2                              ', & ! index 427\n     '       LIMN + NO3 --> LOx + LIMNB + AROMRO2 + NO2                                                   ', & ! index 428\n     '      LIMKO2 + NO --> 0.84 POx + 0.84 LIMKB + 0.16 LIMNB + 0.84 NO2 + 0.84 HO2                      ', & ! index 429\n     '     LIMKO2 + HO2 --> LIMO3H                                                                        ', & ! index 430\n     '     LIMKO2 + NO3 --> LOx + LIMKB + NO2 + HO2                                                       ', & ! index 431\n     '     LIMKO2 + MO2 --> 0.75 LIMKB + 0.25 LIMO3H + 0.25 MOH + 0.75 CH2O + HO2                         ', & ! index 432\n     '       LIMKB + OH --> LIMO3                                                                         ', & ! index 433\n     '      LIMKB + NO3 --> LOx + LIMO3 + NO2                                                             ', & ! index 434\n     '       LIMNB + OH --> POx + 0.5 MONITS + 0.5 LIMO3 + 0.5 NO2                                        ', & ! index 435\n     '      LIMO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.15 LIMO2H + 0.41 LIMO3H + 0.44 RCHO + 0.352 R4... etc.', & ! index 436\n     '       LIMO3 + NO --> CO2 + POx + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + NO2                           ', & ! index 437\n     '      LIMO3 + NO2 --> LOx + LIMPAN                                                                  ', & ! index 438\n     '           LIMPAN --> POx + LIMO3 + NO2                                                             ', & ! index 439\n     '      LIMO3 + NO3 --> CO2 + LOx + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + NO2                           ', & ! index 440\n     '      LIMO3H + OH --> LIMO3                                                                         ', & ! index 441\n     '      LIMO2H + OH --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O                                       ', & ! index 442\n     '       PIO2 + HO2 --> PIP                                                                           ', & ! index 443\n     '        PIO2 + NO --> PIN                                                                           ', & ! index 444\n     '        PIO2 + NO --> POx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + NO2 + HO2               ', & ! index 445\n     '       PIO2 + NO3 --> LOx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + NO2 + HO2               ', & ! index 446\n     '         PIP + OH --> 0.78 MYRCO + 0.7 AROMRO2 + 0.3 ACET + 0.3 MVK + 0.1 CH2O + 0.3 OH             ', & ! index 447\n     '         PIP + O3 --> LOx + 0.78 MYRCO + 0.7 AROMRO2 + 0.3 ACET + 0.3 MVK + 0.1 CH2O + 0.3 OH       ', & ! index 448\n     '        PIP + NO3 --> LOx + 0.39 MYRCO + 0.35 AROMRO2 + 0.5 OLNN + 0.15 ACET + 0.15 MVK + 0.... etc.', & ! index 449\n     '         PIN + OH --> POx + 0.7 MONITU + 0.3 MYRCO + 0.7 AROMRO2 + 0.3 NO2                          ' /) ! index up to 450\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &\n     '         PIN + O3 --> 0.7 MONITU + 0.3 MYRCO + 0.7 AROMRO2 + 0.3 NO2                                ', & ! index 451\n     '        PIN + NO3 --> 0.35 MONITU + 0.15 MYRCO + 0.35 AROMRO2 + 0.5 OLNN + 1.15 NO2                 ', & ! index 452\n     '       MYRCO + OH --> AROMRO2 + MEK + 0.5 ACET + 0.5 GLYC + 0.5 MVK + 1.5 CH2O + HO2                ', & ! index 453\n     '       MYRCO + O3 --> LOx + AROMRO2 + MEK + 0.5 ACET + 0.5 GLYC + 0.5 MVK + 1.5 CH2O + OH           ', & ! index 454\n     '      MYRCO + NO3 --> LOx + 0.5 AROMRO2 + 0.5 OLNN + 0.5 MEK + 0.25 ACET + 0.25 GLYC + 0.25 ... etc.', & ! index 455\n     '     APINO2 + MO2 --> PINAL + 0.25 MOH + 0.75 CH2O + 1.75 HO2                                       ', & ! index 456\n     '    APINO2 + MCO3 --> 0.9 CO2 + PINAL + 0.1 ACTA + 0.9 MO2 + HO2                                    ', & ! index 457\n     '     BPINO2 + MO2 --> BPINO + 0.25 MOH + 1.75 CH2O + 1.75 HO2                                       ', & ! index 458\n     '    BPINO2 + MCO3 --> 0.9 CO2 + BPINO + 0.1 ACTA + CH2O + 0.9 MO2 + HO2                             ', & ! index 459\n     '      LIMO2 + MO2 --> 0.37 LIMKET + 0.63 LIMAL + 0.25 MOH + 0.75 CH2O + 1.75 HO2                    ', & ! index 460\n     '     LIMO2 + MCO3 --> 0.9 CO2 + 0.37 LIMKET + 0.63 LIMAL + 0.1 ACTA + 0.9 MO2 + HO2                 ', & ! index 461\n     '       PIO2 + MO2 --> 0.675 MYRCO + 0.25 MOH + 0.45 ACET + 0.45 MVK + 0.85 CH2O + 1.75 HO2          ', & ! index 462\n     '      PIO2 + MCO3 --> 0.9 CO2 + 0.675 MYRCO + 0.1 ACTA + 0.45 ACET + 0.45 MVK + 0.1 CH2O + 0... etc.', & ! index 463\n     '      PINO3 + MO2 --> 0.75 CO2 + 0.25 PINONIC + 0.75 C96O2 + CH2O + 0.75 HO2                        ', & ! index 464\n     '     PINO3 + MCO3 --> 2 CO2 + C96O2 + MO2                                                           ', & ! index 465\n     '      LIMO3 + MO2 --> 0.75 CO2 + 0.25 LIMO2H + 0.75 RCHO + 0.6 R4O2 + 0.75 MCO3 + 1.3 CH2O +... etc.', & ! index 466\n     '     LIMO3 + MCO3 --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + MO2                                 ', & ! index 467\n     '        OLNN + NO --> POx + MONITS + NO2 + HO2                                                      ', & ! index 468\n     '        OLND + NO --> POx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2                              ', & ! index 469\n     '       OLNN + HO2 --> 0.3 MONITU + 0.7 MONITS                                                       ', & ! index 470\n     '       OLND + HO2 --> 0.3 MONITU + 0.7 MONITS                                                       ', & ! index 471\n     '       OLNN + MO2 --> 0.3 MONITU + 0.7 MONITS + CH2O + 2 HO2                                        ', & ! index 472\n     '       OLND + MO2 --> 0.25 ROH + 0.15 MONITU + 0.35 MONITS + 0.25 MOH + 0.34 MEK + 0.93 RCHO... etc.', & ! index 473\n     '      OLNN + MCO3 --> CO2 + 0.3 MONITU + 0.7 MONITS + MO2 + HO2                                     ', & ! index 474\n     '      OLND + MCO3 --> 0.5 RCOOH + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 0.5 MO2 + NO2                ', & ! index 475\n     '       OLNN + NO3 --> LOx + 0.3 MONITU + 0.7 MONITS + NO2 + HO2                                     ', & ! index 476\n     '       OLND + NO3 --> LOx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2                              ', & ! index 477\n     '           2 OLNN --> 0.6 MONITU + 1.4 MONITS + HO2                                                 ', & ! index 478\n     '      OLNN + OLND --> 0.45 MONITU + 1.05 MONITS + 0.149 MEK + 0.64 RCHO + 0.202 CH2O + 0.5 N... etc.', & ! index 479\n     '           2 OLND --> 0.3 MONITU + 0.7 MONITS + 0.285 MEK + 1.21 RCHO + 0.504 CH2O + NO2            ' /) ! index up to 480\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &\n     '      MONITS + OH --> HONIT                                                                         ', & ! index 481\n     '      MONITU + OH --> HONIT                                                                         ', & ! index 482\n     '      MONITU + O3 --> LOx + HONIT                                                                   ', & ! index 483\n     '     MONITU + NO3 --> 2 LOx + HONIT                                                                 ', & ! index 484\n     '     MONITS + NO3 --> 2 LOx + HONIT                                                                 ', & ! index 485\n     '           IONITA --> INDIOL + POx + HNO3                                                           ', & ! index 486\n     '           MONITA --> INDIOL + POx + HNO3                                                           ', & ! index 487\n     '       HONIT + OH --> POx + HAC + NO3                                                               ', & ! index 488\n     '       MENO3 + OH --> POx + CH2O + NO2                                                              ', & ! index 489\n     '       ETNO3 + OH --> POx + ALD2 + NO2                                                              ', & ! index 490\n     '      IPRNO3 + OH --> POx + ACET + NO2                                                              ', & ! index 491\n     '      NPRNO3 + OH --> POx + RCHO + NO2                                                              ', & ! index 492\n     '        ISOP + O3 --> 0.407 CO2 + LOx + 0.407 PCO + 0.013 PH2O2 + 0.013 H2O2 + 0.416 MACR + ... etc.', & ! index 493\n     '        ISOP + OH --> LISOPOH + IHOO1                                                               ', & ! index 494\n     '        ISOP + OH --> LISOPOH + IHOO4                                                               ', & ! index 495\n     '        ISOP + OH --> LISOPOH + 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY... etc.', & ! index 496\n     '        ISOP + OH --> LISOPOH + 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY +... etc.', & ! index 497\n     '      IHOO1 + HO2 --> 0.937 RIPA + 0.063 MVK + 0.063 CH2O + 0.063 HO2 + 0.063 OH                    ', & ! index 498\n     '      IHOO1 + HO2 --> RIPC                                                                          ', & ! index 499\n     '      IHOO4 + HO2 --> 0.937 RIPB + 0.063 MACR + 0.063 CH2O + 0.063 HO2 + 0.063 OH                   ', & ! index 500\n     '      IHOO4 + HO2 --> RIPD                                                                          ', & ! index 501\n     '            IHOO1 --> MVK + CH2O + OH                                                               ', & ! index 502\n     '            IHOO1 --> 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY + 0.3 MCO... etc.', & ! index 503\n     '            IHOO4 --> MACR + CH2O + OH                                                              ', & ! index 504\n     '            IHOO4 --> 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY + 0.3 CH2O ... etc.', & ! index 505\n     '          2 IHOO1 --> 2 MVK + 2 CH2O + 2 HO2                                                        ', & ! index 506\n     '          2 IHOO4 --> 2 MACR + 2 CH2O + 2 HO2                                                       ', & ! index 507\n     '    IHOO4 + IHOO1 --> MACR + MVK + 2 CH2O + 2 HO2                                                   ', & ! index 508\n     '          2 IHOO1 --> PCO + HC5A + MVKHP + CO + HO2 + OH                                            ', & ! index 509\n     '          2 IHOO4 --> PCO + HC5A + MCRHP + CO + HO2 + OH                                            ' /) ! index up to 510\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &\n     '    IHOO4 + IHOO1 --> PCO + HC5A + 0.5 MCRHP + 0.5 MVKHP + CO + HO2 + OH                            ', & ! index 511\n     '      IHOO1 + MO2 --> MVK + 2 CH2O + 2 HO2                                                          ', & ! index 512\n     '      IHOO1 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MVKHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH             ', & ! index 513\n     '      IHOO4 + MO2 --> MACR + 2 CH2O + 2 HO2                                                         ', & ! index 514\n     '      IHOO4 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MCRHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH             ', & ! index 515\n     '       IHOO1 + NO --> POx + IHN2                                                                    ', & ! index 516\n     '       IHOO1 + NO --> POx + MVK + CH2O + NO2 + HO2                                                  ', & ! index 517\n     '       IHOO1 + NO --> POx + IHN4                                                                    ', & ! index 518\n     '       IHOO1 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH  ', & ! index 519\n     '       IHOO4 + NO --> POx + IHN3                                                                    ', & ! index 520\n     '       IHOO4 + NO --> POx + MACR + CH2O + NO2 + HO2                                                 ', & ! index 521\n     '       IHOO4 + NO --> POx + IHN1                                                                    ', & ! index 522\n     '       IHOO4 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH  ', & ! index 523\n     '      HPALD1 + OH --> 0.45 PCO + 0.15 IDC + 0.315 HPALD1OO + 0.085 ICHE + 0.33 MVKHP + 0.085... etc.', & ! index 524\n     '      HPALD2 + OH --> 0.37 PCO + 0.15 IDC + 0.315 HPALD2OO + 0.165 ICHE + 0.17 MCRHP + 0.165... etc.', & ! index 525\n     '      HPALD3 + OH --> 0.42 PCO + 0.58 ICHE + 0.19 MVKHP + 0.23 MVK + 0.42 CO + OH                   ', & ! index 526\n     '      HPALD4 + OH --> 0.23 PCO + 0.77 ICHE + 0.09 MCRHP + 0.14 MACR + 0.23 CO + OH                  ', & ! index 527\n     '        HC5A + OH --> 0.355 CO2 + 0.638 PCO + 0.068 IEPOXBOO + 0.294 IEPOXAOO + 0.158 MCRHP ... etc.', & ! index 528\n     '        ICHE + OH --> 1.5 PCO + 0.5 MGLY + 0.5 HAC + 0.5 CH2O + 1.5 CO + OH                         ', & ! index 529\n     '         IDC + OH --> PCO + MVKPC + CO + HO2                                                        ', & ! index 530\n     '        RIPA + OH --> 0.005 LVOC + 0.345 IHPOO1 + 0.655 IHPOO3                                      ', & ! index 531\n     '        RIPA + OH --> 0.005 LVOC + 0.67 IEPOXA + 0.33 IEPOXB + OH                                   ', & ! index 532\n     '        RIPB + OH --> 0.005 LVOC + 0.345 IHPOO2 + 0.655 IHPOO3                                      ', & ! index 533\n     '        RIPB + OH --> 0.005 LVOC + 0.68 IEPOXA + 0.32 IEPOXB + OH                                   ', & ! index 534\n     '        RIPA + OH --> 0.005 LVOC + 0.25 PCO + 0.125 MVKHP + 0.75 IHOO1 + 0.125 MVK + 0.25 CO... etc.', & ! index 535\n     '        RIPB + OH --> 0.005 LVOC + 0.33 PCO + 0.16 ICHOO + 0.165 MCRHP + 0.51 IHOO4 + 0.165 ... etc.', & ! index 536\n     '        RIPC + OH --> 0.005 LVOC + 0.036 PCO + 0.255 IEPOXD + 0.009 HPALD3 + 0.018 HPETHNL +... etc.', & ! index 537\n     '        RIPD + OH --> 0.005 LVOC + 0.054 PCO + 0.595 IEPOXD + 0.009 HPALD4 + 0.255 IHPOO2 + ... etc.', & ! index 538\n     '           IHPOO1 --> 0.824 IDHPE + 0.176 ICPDH + OH                                                ', & ! index 539\n     '      IHPOO1 + NO --> POx + 0.284 HPETHNL + 0.716 MCRHP + 0.284 HAC + 0.716 CH2O + NO2 + HO2        ' /) ! index up to 540\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &\n     '      IHPOO1 + NO --> POx + ITHN                                                                    ', & ! index 541\n     '     IHPOO1 + HO2 --> 0.725 IDHDP + 0.135 HPETHNL + 0.14 MCRHP + 0.135 HAC + 0.14 CH2O + 0.2... etc.', & ! index 542\n     '           IHPOO2 --> 0.452 IDHPE + 0.548 ICPDH + OH                                                ', & ! index 543\n     '      IHPOO2 + NO --> POx + 0.294 ATOOH + 0.706 MVKHP + 0.294 GLYC + 0.706 CH2O + NO2 + HO2         ', & ! index 544\n     '      IHPOO2 + NO --> POx + ITHN                                                                    ', & ! index 545\n     '     IHPOO2 + HO2 --> 0.725 IDHDP + 0.135 ATOOH + 0.14 MVKHP + 0.135 GLYC + 0.14 CH2O + 0.27... etc.', & ! index 546\n     '           IHPOO3 --> IDHPE                                                                         ', & ! index 547\n     '      IHPOO3 + NO --> POx + GLYC + HAC + NO2 + OH                                                   ', & ! index 548\n     '      IHPOO3 + NO --> POx + ITHN                                                                    ', & ! index 549\n     '     IHPOO3 + HO2 --> 0.35 IDHDP + 0.65 GLYC + 0.65 HAC + 1.3 OH                                    ', & ! index 550\n     '      IEPOXD + OH --> 0.75 ICHE + 0.25 ICHOO + 0.75 HO2                                             ', & ! index 551\n     '      IEPOXA + OH --> ICHE + HO2                                                                    ', & ! index 552\n     '      IEPOXA + OH --> 0.33 IEPOXBOO + 0.67 IEPOXAOO                                                 ', & ! index 553\n     '      IEPOXB + OH --> ICHE + HO2                                                                    ', & ! index 554\n     '      IEPOXB + OH --> 0.19 IEPOXBOO + 0.81 IEPOXAOO                                                 ', & ! index 555\n     '         IEPOXAOO --> IDCHP + HO2                                                                   ', & ! index 556\n     '         IEPOXAOO --> PCO + MVKDH + CO + OH                                                         ', & ! index 557\n     '   IEPOXAOO + HO2 --> 0.13 PCO + 0.13 MVKDH + 0.35 ICPDH + 0.52 MGLY + 0.52 GLYC + 0.13 CO +... etc.', & ! index 558\n     '    IEPOXAOO + NO --> POx + 0.2 PCO + 0.2 MVKDH + 0.8 MGLY + 0.8 GLYC + 0.2 CO + NO2 + HO2          ', & ! index 559\n     '    IEPOXAOO + NO --> POx + ITCN                                                                    ', & ! index 560\n     '         IEPOXBOO --> IDCHP + HO2                                                                   ', & ! index 561\n     '         IEPOXBOO --> PCO + MCRDH + CO + OH                                                         ', & ! index 562\n     '    IEPOXBOO + NO --> POx + 0.2 PCO + 0.2 MCRDH + 0.8 GLYX + 0.8 HAC + 0.2 CO + NO2 + HO2           ', & ! index 563\n     '    IEPOXBOO + NO --> POx + ITCN                                                                    ', & ! index 564\n     '   IEPOXBOO + HO2 --> 0.13 PCO + 0.13 MCRDH + 0.35 ICPDH + 0.52 GLYX + 0.52 HAC + 0.13 CO + ... etc.', & ! index 565\n     '      ICHOO + HO2 --> 0.52 PCO + 0.13 MVKHC + 0.35 ICPDH + 0.52 HAC + 0.65 CH2O + 0.52 CO + ... etc.', & ! index 566\n     '       ICHOO + NO --> POx + ITCN                                                                    ', & ! index 567\n     '       ICHOO + NO --> POx + 0.8 PCO + 0.2 MVKHC + 0.8 HAC + CH2O + 0.8 CO + NO2 + HO2               ', & ! index 568\n     '            ICHOO --> 2 PCO + HAC + 2 CO + HO2 + OH                                                 ', & ! index 569\n     '    HPALD1OO + NO --> CO2 + POx + MVK + NO2 + OH                                                    ' /) ! index up to 570\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &\n     '   HPALD1OO + HO2 --> CO2 + MVK + 2 OH                                                              ', & ! index 571\n     '    HPALD2OO + NO --> CO2 + POx + MACR + NO2 + OH                                                   ', & ! index 572\n     '   HPALD2OO + HO2 --> CO2 + MACR + 2 OH                                                             ', & ! index 573\n     '        IHN2 + OH --> ISOPNOO1                                                                      ', & ! index 574\n     '        IHN2 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2                                               ', & ! index 575\n     '        IHN3 + OH --> ISOPNOO2                                                                      ', & ! index 576\n     '        IHN3 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2                                               ', & ! index 577\n     '        IHN1 + OH --> IEPOXD + NO2                                                                  ', & ! index 578\n     '        IHN1 + OH --> IDHNDOO1                                                                      ', & ! index 579\n     '        IHN4 + OH --> IEPOXD + NO2                                                                  ', & ! index 580\n     '        IHN4 + OH --> IDHNDOO2                                                                      ', & ! index 581\n     '        IHN1 + OH --> 0.6 PCO + 0.6 MCRHNB + 0.4 ICN + 0.6 CO + 0.4 HO2 + 0.6 OH                    ', & ! index 582\n     '        IHN4 + OH --> 0.6 PCO + 0.4 ICN + 0.6 MVKN + 0.6 CO + 0.4 HO2 + 0.6 OH                      ', & ! index 583\n     '         ISOPNOO1 --> ITCN + HO2                                                                    ', & ! index 584\n     '   ISOPNOO1 + HO2 --> 0.059 MCRHN + 0.482 ITHN + 0.459 GLYC + 0.459 HAC + 0.059 CH2O + 0.459... etc.', & ! index 585\n     '    ISOPNOO1 + NO --> POx + 0.272 MCRHN + 0.728 GLYC + 0.728 HAC + 0.272 CH2O + 1.728 NO2 + ... etc.', & ! index 586\n     '    ISOPNOO1 + NO --> POx + IDN                                                                     ', & ! index 587\n     '         ISOPNOO2 --> ITCN + HO2                                                                    ', & ! index 588\n     '   ISOPNOO2 + HO2 --> 0.599 MVKN + 0.401 ITHN + 0.599 CH2O + 0.599 HO2 + 0.599 OH                   ', & ! index 589\n     '    ISOPNOO2 + NO --> POx + MVKN + CH2O + NO2 + HO2                                                 ', & ! index 590\n     '    ISOPNOO2 + NO --> POx + IDN                                                                     ', & ! index 591\n     '         IDHNDOO1 --> ITCN + HO2                                                                    ', & ! index 592\n     '         IDHNDOO2 --> ITCN + HO2                                                                    ', & ! index 593\n     '   IDHNDOO1 + HO2 --> 0.031 MCRHNB + 0.551 PROPNN + 0.418 ITHN + 0.551 GLYC + 0.031 CH2O + 0... etc.', & ! index 594\n     '    IDHNDOO1 + NO --> POx + 0.065 MCRHNB + 0.935 PROPNN + 0.935 GLYC + 0.065 CH2O + NO2 + HO2       ', & ! index 595\n     '    IDHNDOO1 + NO --> POx + IDN                                                                     ', & ! index 596\n     '   IDHNDOO2 + HO2 --> 0.441 ETHLN + 0.065 MVKN + 0.494 ITHN + 0.441 HAC + 0.065 CH2O + 0.506... etc.', & ! index 597\n     '    IDHNDOO2 + NO --> POx + 0.858 ETHLN + 0.142 MVKN + 0.858 HAC + 0.142 CH2O + NO2 + HO2           ', & ! index 598\n     '    IDHNDOO2 + NO --> POx + IDN                                                                     ', & ! index 599\n     '    IDHNBOO + HO2 --> 0.094 MCRHNB + 0.242 PROPNN + 0.033 ETHLN + 0.01 MVKN + 0.621 ITHN + 0... etc.' /) ! index up to 600\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ &\n     '     IDHNBOO + NO --> POx + 0.355 MCRHNB + 0.546 PROPNN + 0.071 ETHLN + 0.028 MVKN + 0.546 G... etc.', & ! index 601\n     '     IDHNBOO + NO --> POx + IDN                                                                     ', & ! index 602\n     '       ISOP + NO3 --> LISOPNO3 + LOx + 0.465 INO2B + 0.535 INO2D                                    ', & ! index 603\n     '      INO2B + HO2 --> 0.473 INPB + 0.048 MACR + 0.479 MVK + 0.527 CH2O + 0.527 NO2 + 0.527 OH       ', & ! index 604\n     '      INO2D + HO2 --> INPD                                                                          ', & ! index 605\n     '          2 INO2B --> 0.07 INPB + 0.07 ICN + 0.123 MACR + 1.737 MVK + 1.86 CH2O + 1.86 NO2          ', & ! index 606\n     '    INO2B + INO2D --> 0.474 INA + 0.399 INPB + 0.032 IHN1 + 0.532 ICN + 0.019 MACR + 0.544 M... etc.', & ! index 607\n     '          2 INO2D --> 0.34 INA + 0.127 IHN4 + 0.671 IHN1 + 0.862 ICN + 0.064 HO2                    ', & ! index 608\n     '      INO2D + MO2 --> 0.244 INA + 0.057 IHN4 + 0.298 IHN1 + 0.355 MOH + 0.401 ICN + 0.645 CH... etc.', & ! index 609\n     '      INO2B + MO2 --> 0.355 INPB + 0.034 MOH + 0.034 ICN + 0.028 MACR + 0.583 MVK + 1.577 CH... etc.', & ! index 610\n     '     INO2B + MCO3 --> CO2 + 0.097 MACR + 0.903 MVK + CH2O + MO2 + NO2                               ', & ! index 611\n     '     INO2D + MCO3 --> CO2 + 0.841 INA + 0.159 ICN + MO2 + 0.159 HO2                                 ', & ! index 612\n     '      INO2B + NO3 --> LOx + 0.097 MACR + 0.903 MVK + CH2O + 2 NO2                                   ', & ! index 613\n     '      INO2D + NO3 --> LOx + 0.841 INA + 0.159 ICN + NO2 + 0.159 HO2                                 ', & ! index 614\n     '       INO2B + NO --> POx + 0.096 MACR + 0.904 MVK + CH2O + 2 NO2                                   ', & ! index 615\n     '       INO2B + NO --> POx + IDN                                                                     ', & ! index 616\n     '       INO2D + NO --> POx + 0.841 INA + 0.159 ICN + NO2 + 0.159 HO2                                 ', & ! index 617\n     '       INO2D + NO --> POx + IDN                                                                     ', & ! index 618\n     '         INA + O2 --> ICN + HO2                                                                     ', & ! index 619\n     '              INA --> IDHNBOO                                                                       ', & ! index 620\n     '        INPB + OH --> 0.67 IHPNBOO + 0.33 IDHNBOO                                                   ', & ! index 621\n     '        INPD + OH --> IHPNDOO                                                                       ', & ! index 622\n     '        INPB + OH --> ITHN + OH                                                                     ', & ! index 623\n     '        INPD + OH --> ITHN + OH                                                                     ', & ! index 624\n     '        INPD + OH --> ICHE + NO2                                                                    ', & ! index 625\n     '        INPB + OH --> INO2B                                                                         ', & ! index 626\n     '        INPD + OH --> INO2D                                                                         ', & ! index 627\n     '        INPD + OH --> ICN + OH                                                                      ', & ! index 628\n     '          IHPNDOO --> ITCN + OH                                                                     ', & ! index 629\n     '          IHPNBOO --> 0.5 ITCN + 0.5 ITHN + OH                                                      ' /) ! index up to 630\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ &\n     '    IHPNBOO + HO2 --> 0.249 HPETHNL + 0.06 MCRHNB + 0.009 ATOOH + 0.589 PROPNN + 0.051 ETHLN... etc.', & ! index 631\n     '    IHPNDOO + HO2 --> 0.471 HPETHNL + 0.073 MCRHNB + 0.054 ATOOH + 0.471 PROPNN + 0.054 ETHL... etc.', & ! index 632\n     '     IHPNBOO + NO --> POx + 0.303 HPETHNL + 0.17 MCRHNB + 0.013 ATOOH + 0.687 PROPNN + 0.064... etc.', & ! index 633\n     '     IHPNBOO + NO --> POx + IDN                                                                     ', & ! index 634\n     '     IHPNDOO + NO --> POx + 0.59 HPETHNL + 0.291 MCRHNB + 0.07 ATOOH + 0.59 PROPNN + 0.07 ET... etc.', & ! index 635\n     '     IHPNDOO + NO --> POx + IDN                                                                     ', & ! index 636\n     '         ICN + OH --> ICHE + NO2                                                                    ', & ! index 637\n     '         ICN + OH --> 0.539 PCO + 0.461 ICNOO + 0.378 MCRHNB + 0.161 MVKN + 0.539 CO + 0.295... etc.', & ! index 638\n     '       ICNOO + NO --> 0.429 CO2 + POx + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN +... etc.', & ! index 639\n     '      ICNOO + HO2 --> 0.429 CO2 + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN + 0.33 ... etc.', & ! index 640\n     '         IDN + OH --> 0.435 IDNOO + 0.565 ITHN + 0.565 NO2                                          ', & ! index 641\n     '       IDNOO + NO --> POx + PROPNN + 0.89 ETHLN + 0.11 GLYC + 1.11 NO2 + 0.89 HO2                   ', & ! index 642\n     '      IDNOO + HO2 --> 0.82 PROPNN + 0.73 ETHLN + 0.18 IDN + 0.09 GLYC + 0.09 NO2 + 0.73 HO2 ... etc.', & ! index 643\n     '         MVK + OH --> MVKOHOO                                                                       ', & ! index 644\n     '         MVK + O3 --> LOx + 0.28 PCO + 0.045 PH2O2 + 0.075 PYAC + 0.045 H2O2 + 0.545 MGLY + ... etc.', & ! index 645\n     '        MACR + OH --> 0.036 PCO + 0.036 ATOOH + 0.964 MCROHOO + 0.036 CO + 0.036 HO2                ', & ! index 646\n     '        MACR + OH --> MACR1OO                                                                       ', & ! index 647\n     '        MACR + O3 --> LOx + 0.12 PCO + 0.88 MGLY + 0.88 CH2OO + 0.12 MCO3 + 0.12 CH2O + 0.12... etc.', & ! index 648\n     '       MACR + NO3 --> LOx + 0.68 PCO + 0.68 PROPNN + 0.32 MACR1OO + 0.32 HNO3 + 0.68 CO + 0.68 OH   ', & ! index 649\n     '        MVKN + OH --> 0.69 POx + 0.241 PYAC + 0.29 MVKHCB + 0.449 HCOOH + 0.449 MGLY + 0.04 ... etc.', & ! index 650\n     '       MVKHP + OH --> 0.53 MVKHC + 0.47 MVKHCB + OH                                                 ', & ! index 651\n     '       MCRHP + OH --> 0.23 CO2 + 0.77 PCO + 0.23 ATOOH + 0.77 HAC + 0.77 CO + OH                    ', & ! index 652\n     '       MCRHN + OH --> MACRNO2                                                                       ', & ! index 653\n     '      MCRHNB + OH --> 0.75 CO2 + 0.25 PCO + PROPNN + 0.25 CO + OH                                   ', & ! index 654\n     '      C4HVP1 + NO --> POx + MVKOHOO + NO2                                                           ', & ! index 655\n     '     C4HVP1 + HO2 --> MVKOHOO + OH                                                                  ', & ! index 656\n     '     C4HVP1 + NO2 --> MVKN                                                                          ', & ! index 657\n     '      C4HVP2 + NO --> POx + MCROHOO + NO2                                                           ', & ! index 658\n     '     C4HVP2 + HO2 --> MCROHOO + OH                                                                  ', & ! index 659\n     '     C4HVP2 + NO2 --> MCRHN                                                                         ' /) ! index up to 660\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ &\n     '     MCRENOL + OH --> 0.097 CO2 + 0.75 PCO + 0.653 PYAC + 0.063 MVKHCB + 0.187 HCOOH + 0.187... etc.', & ! index 661\n     '       MVKPC + OH --> PCO + MGLY + CO + OH                                                          ', & ! index 662\n     '       MVKDH + OH --> 0.6 MVKHC + 0.4 MVKHCB + HO2                                                  ', & ! index 663\n     '      MVKHCB + OH --> PCO + MGLY + CO + OH                                                          ', & ! index 664\n     '       MVKHC + OH --> 2 PCO + MCO3 + 2 CO + HO2                                                     ', & ! index 665\n     '       MCRDH + OH --> 0.84 PCO + 0.16 MVKHCB + 0.84 HAC + 0.84 CO + HO2                             ', & ! index 666\n     '    MVKOHOO + HO2 --> 0.255 MVKHC + 0.335 MVKHP + 0.05 MGLY + 0.36 GLYC + 0.36 MCO3 + 0.05 C... etc.', & ! index 667\n     '     MVKOHOO + NO --> POx + 0.242 MGLY + 0.758 GLYC + 0.758 MCO3 + 0.242 CH2O + NO2 + 0.242 HO2     ', & ! index 668\n     '     MVKOHOO + NO --> POx + MVKN                                                                    ', & ! index 669\n     '    MCROHOO + HO2 --> 0.507 PCO + 0.41 MCRHP + 0.083 MGLY + 0.507 HAC + 0.083 CH2O + 0.507 C... etc.', & ! index 670\n     '    MACR1OO + HO2 --> 0.5 CO2 + 0.13 POx + 0.325 PCO + 0.5 MACR1OOH + 0.175 MCO3 + 0.5 CH2O ... etc.', & ! index 671\n     '    MACR1OOH + OH --> 0.41 CO2 + 0.488 PCO + 0.098 HMML + 0.165 MACR1OO + 0.488 HAC + 0.087 ... etc.', & ! index 672\n     '          MCROHOO --> PCO + HAC + CO + OH                                                           ', & ! index 673\n     '     MCROHOO + NO --> POx + 0.86 PCO + 0.14 MGLY + 0.86 HAC + 0.14 CH2O + 0.86 CO + NO2 + 0.86 HO2  ', & ! index 674\n     '     MCROHOO + NO --> POx + MCRHN                                                                   ', & ! index 675\n     '     MACR1OO + NO --> CO2 + POx + 0.65 PCO + 0.35 MCO3 + CH2O + 0.65 MO2 + 0.65 CO + NO2            ', & ! index 676\n     '    MACR1OO + NO2 --> MPAN                                                                          ', & ! index 677\n     '    MACRNO2 + HO2 --> 0.5 CO2 + 0.13 POx + 0.13 MCRHNB + 0.37 MCRHN + 0.5 HAC + 0.5 NO2 + 0.... etc.', & ! index 678\n     '     MACRNO2 + NO --> CO2 + POx + HAC + 2 NO2                                                       ', & ! index 679\n     '    MACRNO2 + NO2 --> MPAN + NO2                                                                    ', & ! index 680\n     '    MACRNO2 + NO3 --> CO2 + LOx + HAC + 2 NO2                                                       ', & ! index 681\n     '    MACRNO2 + MO2 --> 0.7 CO2 + 0.3 MCRHNB + 0.7 HAC + CH2O + 0.7 NO2 + 0.7 HO2                     ', & ! index 682\n     '             MPAN --> MACR1OO + NO2                                                                 ', & ! index 683\n     '        MPAN + OH --> POx + 0.25 PCO + 0.75 HMML + 0.25 HAC + 0.25 CO + NO3                         ', & ! index 684\n     '        HMML + OH --> PCO + 0.3 HCOOH + 0.7 MGLY + 0.3 MCO3 + CO + 0.7 OH                           ', & ! index 685\n     '       ICPDH + OH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 0.5 HO2 + 0.5 OH             ', & ! index 686\n     '       IDCHP + OH --> 0.888 PCO + 0.444 MVKPC + 0.318 MVKHC + 0.126 MVKHCB + 0.032 IEPOXBOO ... etc.', & ! index 687\n     '       IDHDP + OH --> 0.667 IDHPE + 0.333 ICPDH + OH                                                ', & ! index 688\n     '       IDHPE + OH --> CO2 + 0.571 MCRHP + 0.429 MVKHP + OH                                          ', & ! index 689\n     '        ITCN + OH --> PCO + 0.25 MCRHP + 0.75 MVKHP + CO + NO2                                      ' /) ! index up to 690\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_23 = (/ &\n     '        ITHN + OH --> 0.041 ICNOO + 0.022 MCRENOL + 0.9 ITCN + 0.037 IDHNBOO + 0.022 CH2O + ... etc.', & ! index 691\n     '      ETHLN + NO3 --> LOx + MCO3 + HNO3 + NO2                                                       ', & ! index 692\n     '        PYAC + OH --> CO2 + MCO3                                                                    ', & ! index 693\n     '        HMHP + OH --> 0.5 HCOOH + 0.5 CH2O + 0.5 HO2 + 0.5 OH                                       ', & ! index 694\n     '       MCO3 + HO2 --> 0.5 CO2 + 0.13 POx + 0.37 MAP + 0.13 ACTA + 0.5 MO2 + 0.13 O3 + 0.5 OH        ', & ! index 695\n     '     HPETHNL + OH --> PCO + CH2O + CO + OH                                                          ', & ! index 696\n     '     HPETHNL + OH --> GLYX + OH                                                                     ', & ! index 697\n     '         NAP + OH --> NRO2 + OH                                                                     ', & ! index 698\n     '       NRO2 + HO2 --> LNRO2H + HO2                                                                  ', & ! index 699\n     '        NRO2 + NO --> LNRO2N + NO                                                                   ', & ! index 700\n     '       RCOOH + OH --> CO2 + ETO2 + H2O                                                              ', & ! index 701\n     '        STYR + OH --> 0.3 ZRO2 + 0.7 BALD + 0.7 AROMRO2 + CH2O + 0.7 HO2                            ', & ! index 702\n     '       STYR + NO3 --> LOx + BALD + AROMRO2 + CH2O + NO2                                             ', & ! index 703\n     '        STYR + O3 --> LOx + 0.18 PCO + 0.1 BENZ + 0.62 BALD + 0.28 BENZO2 + 0.5 CH2OO + 0.5 ... etc.', & ! index 704\n     '         EBZ + OH --> 0.18 CSL + 0.07 ZRO2 + 0.4 AROMP5 + 0.8 AROMP4 + 0.813 AROMRO2 + 0.25 ... etc.', & ! index 705\n     '        EBZ + NO3 --> LOx + BALD + AROMRO2 + CH2O + HNO3                                            ', & ! index 706\n     '         TMB + OH --> 0.12 PCO + 0.15 TLFUONE + 0.03 CSL + 0.5 RCOOH + 0.05 ZRO2 + 0.6 AROMP... etc.', & ! index 707\n     '        TMB + NO3 --> LOx + 0.4 AROMP5 + BALD + AROMRO2 + HNO3                                      ', & ! index 708\n     '        ZRO2 + NO --> 0.89 POx + 0.11 RNO3 + 0.89 BALD + 0.89 NO2 + HO2                             ', & ! index 709\n     '       ZRO2 + HO2 --> BALD + OH                                                                     ', & ! index 710\n     '        RNO3 + OH --> POx + BALD + NO2 + HO2                                                        ', & ! index 711\n     '        C2H4 + O3 --> LOx + CH2OO + CH2O                                                            ', & ! index 712\n     '        C2H4 + OH --> ETOO                                                                          ', & ! index 713\n     '        C2H2 + OH --> 0.364 PCO + 0.364 HCOOH + 0.636 GLYX + 0.364 CO + 0.364 HO2 + 0.636 OH        ', & ! index 714\n     '       ETOO + HO2 --> ETHP                                                                          ', & ! index 715\n     '        ETOO + NO --> 0.995 POx + 0.005 ETHN + 0.995 ETO + 0.995 NO2                                ', & ! index 716\n     '       ETOO + NO3 --> LOx + ETO + NO2                                                               ', & ! index 717\n     '       ETOO + MO2 --> 0.6 ETO + 0.2 ETHP + 0.2 MOH + 0.2 GLYC + 0.8 CH2O + 0.6 HO2                  ', & ! index 718\n     '              ETO --> 2 CH2O + HO2                                                                  ', & ! index 719\n     '         ETO + O2 --> GLYC + HO2                                                                    ' /) ! index up to 720\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_24 = (/ &\n     '        ETHN + OH --> POx + GLYC + NO2                                                              ', & ! index 721\n     '        ETHP + OH --> ETOO                                                                          ', & ! index 722\n     '        ETHP + OH --> GLYC + OH                                                                     ', & ! index 723\n     '        BENZ + OH --> BRO2 + 0.2 PCO + 0.54 PHEN + 0.55 AROMP4 + 0.46 AROMRO2 + 0.18 GLYX + ... etc.', & ! index 724\n     '        TOLU + OH --> TRO2 + 0.27 PCO + 0.19 CSL + 0.3 AROMP5 + 0.06 BALD + 0.68 AROMP4 + 0.... etc.', & ! index 725\n     '        XYLE + OH --> XRO2 + 0.3 PCO + 0.15 CSL + 0.45 RCOOH + 0.56 AROMP5 + 0.06 BALD + 0.2... etc.', & ! index 726\n     '    AROMRO2 + HO2 --> HO2 + OH                                                                      ', & ! index 727\n     '     AROMRO2 + NO --> POx + NO2 + HO2                                                               ', & ! index 728\n     '    AROMRO2 + NO3 --> LOx + NO2 + HO2                                                               ', & ! index 729\n     '    AROMRO2 + MO2 --> CH2O + 2 HO2                                                                  ', & ! index 730\n     '   AROMRO2 + MCO3 --> CO2 + MO2 + HO2                                                               ', & ! index 731\n     '     TLFUONE + OH --> TLFUO2                                                                        ', & ! index 732\n     '      TLFUO2 + NO --> POx + AROMCHO + NO2 + HO2                                                     ', & ! index 733\n     '     TLFUO2 + HO2 --> AROMCHO                                                                       ', & ! index 734\n     '     AROMCHO + OH --> AROMCO3                                                                       ', & ! index 735\n     '     AROMCO3 + NO --> 2 CO2 + POx + RCO3 + NO2                                                      ', & ! index 736\n     '    AROMCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 RCO3 + 0.15 O3 + 0.44 OH    ', & ! index 737\n     '    AROMCO3 + NO2 --> LOx + AROMPN                                                                  ', & ! index 738\n     '           AROMPN --> POx + AROMCO3 + NO2                                                           ', & ! index 739\n     '      AROMPN + OH --> POx + 2 PCO + MCO3 + CH2O + 2 CO + NO2                                        ', & ! index 740\n     '        PHEN + OH --> 0.8 MCT + 0.06 BENZO + 0.18 AROMP4 + 0.14 AROMRO2 + 0.06 GLYX + 0.8 HO2       ', & ! index 741\n     '       PHEN + NO3 --> 1.258 LOx + 0.742 BENZO + 0.258 NPHEN + 0.742 HNO3                            ', & ! index 742\n     '         CSL + OH --> 0.44 AROMP5 + 0.727 MCT + 0.073 BENZO + 0.2 AROMRO2 + 0.727 HO2               ', & ! index 743\n     '        CSL + NO3 --> 1.5 LOx + 0.44 AROMP5 + 0.3 BENZO + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3        ', & ! index 744\n     '         MCT + OH --> 0.3 BENZO + 1.05 AROMP4 + 0.7 AROMRO2                                         ', & ! index 745\n     '         MCT + O3 --> LOx + AROMP4 + GLYC + HO2 + OH                                                ', & ! index 746\n     '        MCT + NO3 --> 1.5 LOx + 0.3 BENZO + 0.3 AROMP4 + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3         ', & ! index 747\n     '        BALD + OH --> BZCO3                                                                         ', & ! index 748\n     '       BALD + NO3 --> LOx + BZCO3 + HNO3                                                            ', & ! index 749\n     '      BZCO3 + HO2 --> 0.35 CO2 + 0.15 POx + 0.65 BZCO3H + 0.15 BENZP + 0.2 BENZO2 + 0.15 O3 + 0.2 OH' /) ! index up to 750\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ &\n     '       BZCO3 + NO --> CO2 + POx + BENZO2 + NO2                                                      ', & ! index 751\n     '      BZCO3 + NO2 --> LOx + BZPAN                                                                   ', & ! index 752\n     '      BZCO3H + OH --> BZCO3                                                                         ', & ! index 753\n     '            BZPAN --> POx + BZCO3 + NO2                                                             ', & ! index 754\n     '       BZPAN + OH --> CO2 + POx + BENZP + NO2                                                       ', & ! index 755\n     '     BENZO2 + NO2 --> POx + BENZO + NO3                                                             ', & ! index 756\n     '      BENZO2 + NO --> POx + BENZO + NO2                                                             ', & ! index 757\n     '     BENZO2 + NO3 --> LOx + BENZO + NO2                                                             ', & ! index 758\n     '     BENZO2 + HO2 --> BENZP                                                                         ', & ! index 759\n     '       BENZP + OH --> BENZO2                                                                        ', & ! index 760\n     '       BENZO + O3 --> LOx + BENZO2                                                                  ', & ! index 761\n     '      BENZO + NO2 --> LOx + NPHEN                                                                   ', & ! index 762\n     '       NPHEN + OH --> POx + 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.15 CO + 0.5 NO2                    ', & ! index 763\n     '      NPHEN + NO3 --> 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.5 HNO3 + 0.15 CO + NO2                   ', & ! index 764\n     '     BENZO2 + MO2 --> BENZO + CH2O + HO2                                                            ', & ! index 765\n     '      BZCO3 + MO2 --> CO2 + BENZO2 + CH2O + HO2                                                     ', & ! index 766\n     '      AROMP4 + OH --> 0.26 PCO + 0.43 RCOOH + 0.26 HCOOH + 0.6 GLYX + 0.33 RCO3 + 0.26 CO + ... etc.', & ! index 767\n     '      AROMP4 + O3 --> LOx + 0.5 PCO + 0.5 HCOOH + 0.6 GLYX + 0.9 GLYC + 0.5 CO + 0.1 HO2 + 0.1 OH   ', & ! index 768\n     '           AROMP4 --> 0.2 GLYX + 1.2 RCHO + 0.2 HO2                                                 ', & ! index 769\n     '      AROMP5 + OH --> 0.25 PCO + 0.52 RCOOH + 0.1 HCOOH + 0.15 ACTA + 0.6 MGLY + 0.33 RCO3 +... etc.', & ! index 770\n     '      AROMP5 + O3 --> LOx + 0.5 PCO + 0.2 HCOOH + 0.3 ACTA + 0.6 MGLY + 0.95 GLYC + 0.5 CO +... etc.', & ! index 771\n     '           AROMP5 --> 0.05 PCO + 0.2 MGLY + 1.15 RCHO + 0.2 ALK4O2 + 0.05 CO + 0.2 HO2              ', & ! index 772\n     '       BRO2 + HO2 --> LBRO2H + HO2                                                                  ', & ! index 773\n     '        BRO2 + NO --> LBRO2N + NO                                                                   ', & ! index 774\n     '       TRO2 + HO2 --> LTRO2H + HO2                                                                  ', & ! index 775\n     '        TRO2 + NO --> LTRO2N + NO                                                                   ', & ! index 776\n     '       XRO2 + HO2 --> LXRO2H + HO2                                                                  ', & ! index 777\n     '        XRO2 + NO --> LXRO2N + NO                                                                   ', & ! index 778\n     '        MO2 + NO3 --> LOx + CH2O + NO2 + HO2                                                        ', & ! index 779\n     '        FURA + OH --> BUTDI                                                                         ' /) ! index up to 780\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ &\n     '              HO2 --> H2O                                                                           ', & ! index 781\n     '              NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3                                                 ', & ! index 782\n     '              NO3 --> LOx + HNO3                                                                    ', & ! index 783\n     '              NO3 --> LOx + NIT                                                                     ', & ! index 784\n     '              NO3 --> LOx + NITs                                                                    ', & ! index 785\n     '       N2O5 + H2O --> LOx + 2 HNO3                                                                  ', & ! index 786\n     '       N2O5 + HCl --> LOx + ClNO2 + HNO3                                                            ', & ! index 787\n     '             N2O5 --> LOx + 2 HNO3                                                                  ', & ! index 788\n     '    N2O5 + SALACL --> LOx + ClNO2 + HNO3                                                            ', & ! index 789\n     '    N2O5 + SALCCL --> LOx + ClNO2 + HNO3                                                            ', & ! index 790\n     '      OH + SALACL --> 0.5 Cl2                                                                       ', & ! index 791\n     '      SALCCL + OH --> 0.5 Cl2                                                                       ', & ! index 792\n     '      BrNO3 + H2O --> HOBr + HNO3                                                                   ', & ! index 793\n     '      BrNO3 + HCl --> LOx + BrCl + HNO3                                                             ', & ! index 794\n     '      ClNO3 + H2O --> HNO3 + HOCl                                                                   ', & ! index 795\n     '      ClNO3 + HCl --> LOx + Cl2 + HNO3                                                              ', & ! index 796\n     '      ClNO3 + HBr --> LOx + BrCl + HNO3                                                             ', & ! index 797\n     '   ClNO3 + BrSALA --> LOx + BrCl + HNO3                                                             ', & ! index 798\n     '   ClNO3 + BrSALC --> LOx + BrCl + HNO3                                                             ', & ! index 799\n     '   ClNO3 + SALACL --> LOx + Cl2 + HNO3                                                              ', & ! index 800\n     '   ClNO3 + SALCCL --> LOx + Cl2 + HNO3                                                              ', & ! index 801\n     '   ClNO2 + SALACL --> LOx + HNO2 + Cl2                                                              ', & ! index 802\n     '   ClNO2 + SALCCL --> LOx + HNO2 + Cl2                                                              ', & ! index 803\n     '      ClNO2 + HCl --> LOx + HNO2 + Cl2                                                              ', & ! index 804\n     '   ClNO2 + BrSALA --> LOx + BrCl + HNO2                                                             ', & ! index 805\n     '   ClNO2 + BrSALC --> LOx + BrCl + HNO2                                                             ', & ! index 806\n     '      ClNO2 + HBr --> LOx + BrCl + HNO2                                                             ', & ! index 807\n     '       HOCl + HCl --> LOx + Cl2 + H2O                                                               ', & ! index 808\n     '       HOCl + HBr --> LOx + BrCl + H2O                                                              ', & ! index 809\n     '    HOCl + SALACL --> LOx + Cl2 + H2O                                                               ' /) ! index up to 810\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_27 = (/ &\n     '    HOCl + SALCCL --> LOx + Cl2 + H2O                                                               ', & ! index 811\n     '       HOCl + SO2 --> LOx + PSO4 + SO4 + HCl                                                        ', & ! index 812\n     '       HOBr + HBr --> LOx + Br2 + H2O                                                               ', & ! index 813\n     '       HOBr + HCl --> LOx + BrCl + H2O                                                              ', & ! index 814\n     '    HOBr + SALACL --> LOx + BrCl + H2O                                                              ', & ! index 815\n     '    HOBr + SALCCL --> LOx + BrCl + H2O                                                              ', & ! index 816\n     '    HOBr + BrSALA --> LOx + Br2                                                                     ', & ! index 817\n     '    HOBr + BrSALC --> LOx + Br2                                                                     ', & ! index 818\n     '       HOBr + SO2 --> LOx + PSO4 + SO4 + HBr                                                        ', & ! index 819\n     '         O3 + HBr --> HOBr                                                                          ', & ! index 820\n     '      O3 + BrSALA --> HOBr                                                                          ', & ! index 821\n     '      O3 + BrSALC --> HOBr                                                                          ', & ! index 822\n     '              HBr --> BrSALA                                                                        ', & ! index 823\n     '              HBr --> BrSALC                                                                        ', & ! index 824\n     '               HI --> AERI                                                                          ', & ! index 825\n     '               HI --> ISALA                                                                         ', & ! index 826\n     '               HI --> ISALC                                                                         ', & ! index 827\n     '              HOI --> ISALA + LOx                                                                   ', & ! index 828\n     '              HOI --> ISALC + LOx                                                                   ', & ! index 829\n     '             I2O2 --> 2 AERI + 2 LOx                                                                ', & ! index 830\n     '             I2O2 --> 2 ISALA + 2 LOx                                                               ', & ! index 831\n     '             I2O2 --> 2 ISALC + 2 LOx                                                               ', & ! index 832\n     '             I2O3 --> 2 AERI + 3 LOx                                                                ', & ! index 833\n     '             I2O3 --> 2 ISALA + 3 LOx                                                               ', & ! index 834\n     '             I2O3 --> 2 ISALC + 3 LOx                                                               ', & ! index 835\n     '             I2O4 --> 2 AERI + 4 LOx                                                                ', & ! index 836\n     '             I2O4 --> 2 ISALA + 4 LOx                                                               ', & ! index 837\n     '             I2O4 --> 2 ISALC + 4 LOx                                                               ', & ! index 838\n     '             IONO --> ISALA + LOx + HNO2                                                            ', & ! index 839\n     '             IONO --> ISALC + LOx + HNO2                                                            ' /) ! index up to 840\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_28 = (/ &\n     '            IONO2 --> ISALA + LOx + HNO3                                                            ', & ! index 841\n     '            IONO2 --> ISALC + LOx + HNO3                                                            ', & ! index 842\n     '      IONO2 + H2O --> HNO3 + HOI                                                                    ', & ! index 843\n     '    IONO + BrSALA --> LOx + IBr + HNO2                                                              ', & ! index 844\n     '    IONO + BrSALC --> LOx + IBr + HNO2                                                              ', & ! index 845\n     '    IONO + SALACL --> LOx + ICl + HNO2                                                              ', & ! index 846\n     '    IONO + SALCCL --> LOx + ICl + HNO2                                                              ', & ! index 847\n     '   IONO2 + BrSALA --> LOx + IBr + HNO3                                                              ', & ! index 848\n     '   IONO2 + BrSALC --> LOx + IBr + HNO3                                                              ', & ! index 849\n     '   IONO2 + SALACL --> LOx + ICl + HNO3                                                              ', & ! index 850\n     '   IONO2 + SALCCL --> LOx + ICl + HNO3                                                              ', & ! index 851\n     '     HOI + BrSALA --> LOx + IBr                                                                     ', & ! index 852\n     '     HOI + BrSALC --> LOx + IBr                                                                     ', & ! index 853\n     '     HOI + SALACL --> LOx + ICl                                                                     ', & ! index 854\n     '     HOI + SALCCL --> LOx + ICl                                                                     ', & ! index 855\n     '             GLYX --> SOAGX                                                                         ', & ! index 856\n     '             MGLY --> 1.5 SOAGX                                                                     ', & ! index 857\n     '           IEPOXA --> SOAIE                                                                         ', & ! index 858\n     '           IEPOXB --> SOAIE                                                                         ', & ! index 859\n     '           IEPOXD --> SOAIE                                                                         ', & ! index 860\n     '             LVOC --> LVOCOA                                                                        ', & ! index 861\n     '             MVKN --> LOx + IONITA                                                                  ', & ! index 862\n     '             R4N2 --> LOx + IONITA                                                                  ', & ! index 863\n     '           MONITS --> LOx + MONITA                                                                  ', & ! index 864\n     '           MONITU --> LOx + MONITA                                                                  ', & ! index 865\n     '            HONIT --> LOx + MONITA                                                                  ', & ! index 866\n     '             PYAC --> 1.5 SOAGX                                                                     ', & ! index 867\n     '             HMML --> 0.8 SOAIE                                                                     ', & ! index 868\n     '             IHN1 --> LOx + IONITA                                                                  ', & ! index 869\n     '             IHN2 --> LOx + IONITA                                                                  ' /) ! index up to 870\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_29 = (/ &\n     '             IHN3 --> LOx + IONITA                                                                  ', & ! index 871\n     '             IHN4 --> LOx + IONITA                                                                  ', & ! index 872\n     '             ICHE --> SOAIE                                                                         ', & ! index 873\n     '             INPD --> LOx + IONITA                                                                  ', & ! index 874\n     '             INPB --> LOx + IONITA                                                                  ', & ! index 875\n     '              IDN --> 2 LOx + IONITA                                                                ', & ! index 876\n     '             ITCN --> LOx + IONITA                                                                  ', & ! index 877\n     '             ITHN --> LOx + IONITA                                                                  ', & ! index 878\n     '           MCRHNB --> LOx + IONITA                                                                  ', & ! index 879\n     '            MCRHN --> LOx + IONITA                                                                  ', & ! index 880\n     '            NPHEN --> AONITA                                                                        ', & ! index 881\n     '               O3 --> O + O2                                                                        ', & ! index 882\n     '               O3 --> O1D + O2                                                                      ', & ! index 883\n     '               O2 --> 2 POx + 2 O                                                                   ', & ! index 884\n     '              NO2 --> O + NO                                                                        ', & ! index 885\n     '             H2O2 --> 2 OH                                                                          ', & ! index 886\n     '               MP --> CH2O + HO2 + OH                                                               ', & ! index 887\n     '             CH2O --> PCO + H + CO + HO2                                                            ', & ! index 888\n     '             CH2O --> PCO + CO + H2                                                                 ', & ! index 889\n     '             HNO3 --> NO2 + OH                                                                      ', & ! index 890\n     '             HNO2 --> OH + NO                                                                       ', & ! index 891\n     '             HNO4 --> POx + OH + NO3                                                                ', & ! index 892\n     '             HNO4 --> NO2 + HO2                                                                     ', & ! index 893\n     '              NO3 --> NO2 + O                                                                       ', & ! index 894\n     '              NO3 --> 2 LOx + NO + O2                                                               ', & ! index 895\n     '             N2O5 --> NO2 + NO3                                                                     ', & ! index 896\n     '             ALD2 --> 0.88 PCO + 0.12 MCO3 + 0.88 MO2 + 0.88 CO + HO2                               ', & ! index 897\n     '             ALD2 --> PCO + CH4 + CO                                                                ', & ! index 898\n     '              PAN --> 0.3 CO2 + 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.7 NO2 + 0.3 NO3                    ', & ! index 899\n     '             APAN --> POx + ACO3 + NO2                                                              ' /) ! index up to 900\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_30 = (/ &\n     '              ACR --> 0.7 PCO + 0.4 C2H4 + 0.3 ACO3 + 0.3 CH2O + 0.7 CO + 0.3 HO2                   ', & ! index 901\n     '          AROMCHO --> PCO + MCO3 + CH2O + CO + HO2                                                  ', & ! index 902\n     '             RCHO --> PCO + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + CO + HO2                          ', & ! index 903\n     '             ACET --> MCO3 + MO2                                                                    ', & ! index 904\n     '             ACET --> PCO + 2 MO2 + CO                                                              ', & ! index 905\n     '              MEK --> 0.415 OTHRO2 + 0.06 A3O2 + 0.15 RCO3 + 0.23 B3O2 + 0.85 MCO3 + 0.15 MO2       ', & ! index 906\n     '             GLYC --> PCO + 0.1 MOH + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH                            ', & ! index 907\n     '             GLYX --> 2 PCO + 2 CO + 2 HO2                                                          ', & ! index 908\n     '             GLYX --> 2 PCO + 2 CO + H2                                                             ', & ! index 909\n     '             GLYX --> PCO + CH2O + CO                                                               ', & ! index 910\n     '             MGLY --> PCO + MCO3 + CO + HO2                                                         ', & ! index 911\n     '              MVK --> PCO + PRPE + CO                                                               ', & ! index 912\n     '              MVK --> PCO + MCO3 + CH2O + CO + HO2                                                  ', & ! index 913\n     '              MVK --> RCO3 + MO2                                                                    ', & ! index 914\n     '             MACR --> PCO + MCO3 + CH2O + CO + HO2                                                  ', & ! index 915\n     '              HAC --> MCO3 + CH2O + HO2                                                             ', & ! index 916\n     '             PRPN --> RCHO + NO2 + HO2 + OH                                                         ', & ! index 917\n     '              ETP --> ALD2 + HO2 + OH                                                               ', & ! index 918\n     '             RA3P --> RCHO + HO2 + OH                                                               ', & ! index 919\n     '             RB3P --> ACET + HO2 + OH                                                               ', & ! index 920\n     '              R4P --> 1.5 RCHO + HO2 + OH                                                           ', & ! index 921\n     '              R7P --> RCHO + HO2 + OH                                                               ', & ! index 922\n     '            ALK4P --> 1.5 RCHO + HO2 + OH                                                           ', & ! index 923\n     '               PP --> CH2O + ALD2 + HO2 + OH                                                        ', & ! index 924\n     '               RP --> ALD2 + MO2 + HO2 + OH                                                         ', & ! index 925\n     '             R4N2 --> 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.19 B3O2... etc.', & ! index 926\n     '             R7N2 --> POx + 1.558 RCHO + 0.326 RCO3 + 0.326 MCO3 + 0.348 ALD2 + NO2 + 0.326 HO2     ', & ! index 927\n     '             RNO3 --> POx + BALD + NO2 + H2O + HO2                                                  ', & ! index 928\n     '           ALK4N2 --> 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.19 B3O2... etc.', & ! index 929\n     '              MAP --> CO2 + MO2 + OH                                                                ' /) ! index up to 930\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_31 = (/ &\n     '              Br2 --> 2 Br                                                                          ', & ! index 931\n     '              BrO --> Br + O                                                                        ', & ! index 932\n     '             HOBr --> LOx + Br + OH                                                                 ', & ! index 933\n     '            BrNO3 --> Br + NO3                                                                      ', & ! index 934\n     '            BrNO3 --> NO2 + BrO                                                                     ', & ! index 935\n     '            BrNO2 --> NO2 + Br                                                                      ', & ! index 936\n     '            CHBr3 --> 3 Br                                                                          ', & ! index 937\n     '           CH2Br2 --> 2 Br                                                                          ', & ! index 938\n     '            CH3Br --> MO2 + Br                                                                      ', & ! index 939\n     '            CH3Cl --> MO2 + Cl                                                                      ', & ! index 940\n     '           CH2Cl2 --> 2 Cl                                                                          ', & ! index 941\n     '             BrCl --> Cl + Br                                                                       ', & ! index 942\n     '              Cl2 --> 2 Cl                                                                          ', & ! index 943\n     '              ClO --> Cl + O                                                                        ', & ! index 944\n     '             OClO --> ClO + O                                                                       ', & ! index 945\n     '            Cl2O2 --> 2 LOx + ClOO + Cl                                                             ', & ! index 946\n     '            ClNO2 --> NO2 + Cl                                                                      ', & ! index 947\n     '            ClNO3 --> Cl + NO3                                                                      ', & ! index 948\n     '            ClNO3 --> NO2 + ClO                                                                     ', & ! index 949\n     '             HOCl --> LOx + Cl + OH                                                                 ', & ! index 950\n     '          CH3CCl3 --> 3 Cl                                                                          ', & ! index 951\n     '             CCl4 --> 4 Cl                                                                          ', & ! index 952\n     '            CFC11 --> 3 Cl                                                                          ', & ! index 953\n     '            CFC12 --> 2 Cl                                                                          ', & ! index 954\n     '           CFC113 --> 3 Cl                                                                          ', & ! index 955\n     '           CFC114 --> 2 Cl                                                                          ', & ! index 956\n     '           CFC115 --> Cl                                                                            ', & ! index 957\n     '          HCFC123 --> 2 Cl                                                                          ', & ! index 958\n     '         HCFC141b --> 2 Cl                                                                          ', & ! index 959\n     '         HCFC142b --> Cl                                                                            ' /) ! index up to 960\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_32 = (/ &\n     '           HCFC22 --> Cl                                                                            ', & ! index 961\n     '            H1301 --> Br                                                                            ', & ! index 962\n     '            H1211 --> Cl + Br                                                                       ', & ! index 963\n     '            H2402 --> 2 Br                                                                          ', & ! index 964\n     '             ClOO --> Cl + O2                                                                       ', & ! index 965\n     '               I2 --> 2 I                                                                           ', & ! index 966\n     '              HOI --> LOx + I + OH                                                                  ', & ! index 967\n     '               IO --> I + O                                                                         ', & ! index 968\n     '              OIO --> 2 LOx + I + O2                                                                ', & ! index 969\n     '              INO --> I + NO                                                                        ', & ! index 970\n     '             IONO --> I + NO2                                                                       ', & ! index 971\n     '            IONO2 --> I + NO3                                                                       ', & ! index 972\n     '             I2O2 --> OIO + I                                                                       ', & ! index 973\n     '             CH3I --> I                                                                             ', & ! index 974\n     '            CH2I2 --> 2 I                                                                           ', & ! index 975\n     '           CH2ICl --> I + Cl                                                                        ', & ! index 976\n     '           CH2IBr --> I + Br                                                                        ', & ! index 977\n     '             I2O4 --> 2 OIO                                                                         ', & ! index 978\n     '             I2O3 --> OIO + IO                                                                      ', & ! index 979\n     '              IBr --> I + Br                                                                        ', & ! index 980\n     '              ICl --> I + Cl                                                                        ', & ! index 981\n     '              MPN --> POx + CH2O + HO2 + NO3                                                        ', & ! index 982\n     '              MPN --> MO2 + NO2                                                                     ', & ! index 983\n     '            ATOOH --> MCO3 + CH2O + OH                                                              ', & ! index 984\n     '              N2O --> POx + O1D + N2                                                                ', & ! index 985\n     '              OCS --> PCO + CO + SO2                                                                ', & ! index 986\n     '              SO4 --> 2 OH + SO2                                                                    ', & ! index 987\n     '               NO --> POx + N + O                                                                   ', & ! index 988\n     '              PIP --> RCHO + HO2 + OH                                                               ', & ! index 989\n     '            ETHLN --> PCO + CH2O + CO + NO2 + HO2                                                   ' /) ! index up to 990\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_33 = (/ &\n     '           MONITS --> MEK + NO2                                                                     ', & ! index 991\n     '           MONITU --> RCHO + NO2                                                                    ', & ! index 992\n     '            HONIT --> HAC + NO2                                                                     ', & ! index 993\n     '             NITs --> LOx + HNO2                                                                    ', & ! index 994\n     '             NITs --> NO2                                                                           ', & ! index 995\n     '              NIT --> LOx + HNO2                                                                    ', & ! index 996\n     '              NIT --> NO2                                                                           ', & ! index 997\n     '            MENO3 --> POx + CH2O + NO2 + HO2                                                        ', & ! index 998\n     '            ETNO3 --> POx + ALD2 + NO2 + HO2                                                        ', & ! index 999\n     '           IPRNO3 --> POx + ACET + NO2 + HO2                                                        ', & ! index 1000\n     '           NPRNO3 --> POx + RCHO + NO2 + HO2                                                        ', & ! index 1001\n     '             HMHP --> CH2O + 2 OH                                                                   ', & ! index 1002\n     '          HPETHNL --> PCO + CH2O + CO + HO2 + OH                                                    ', & ! index 1003\n     '             PYAC --> CO2 + MCO3 + HO2                                                              ', & ! index 1004\n     '           PROPNN --> MCO3 + CH2O + NO2                                                             ', & ! index 1005\n     '            MVKHC --> PCO + MCO3 + CH2O + CO + HO2                                                  ', & ! index 1006\n     '           MVKHCB --> 0.5 PCO + 0.5 GLYX + 0.5 MGLY + 0.5 MCO3 + 0.5 CO + 1.5 HO2                   ', & ! index 1007\n     '            MVKHP --> 0.47 MGLY + 0.53 GLYC + 0.53 MCO3 + 0.47 CH2O + 0.47 HO2 + OH                 ', & ! index 1008\n     '            MVKPC --> 0.571 PCO + 0.429 GLYX + 0.571 MGLY + 0.429 MCO3 + 0.571 CO + 0.571 HO2 + OH  ', & ! index 1009\n     '          MCRENOL --> 0.875 PCO + 0.75 PYAC + 0.125 GLYX + 0.125 MGLY + 0.125 MCO3 + 0.875 C... etc.', & ! index 1010\n     '            MCRHP --> 0.77 PCO + 0.23 MGLY + 0.77 HAC + 0.23 CH2O + 0.77 CO + HO2 + OH              ', & ! index 1011\n     '         MACR1OOH --> 1.238 CO2 + 0.25 MACR1OOH + 0.262 MCO3 + 0.75 CH2O + 0.488 MO2 + 0.75 OH      ', & ! index 1012\n     '             MVKN --> 0.3 ETHLN + 0.69 GLYC + 1.01 MCO3 + 0.7 NO2 + 0.29 HO2 + 0.01 OH              ', & ! index 1013\n     '            MCRHN --> PCO + HAC + CO + NO2 + HO2                                                    ', & ! index 1014\n     '           MCRHNB --> PCO + PROPNN + CO + HO2 + OH                                                  ', & ! index 1015\n     '             RIPA --> MVK + CH2O + HO2 + OH                                                         ', & ! index 1016\n     '             RIPB --> MACR + CH2O + HO2 + OH                                                        ', & ! index 1017\n     '             RIPC --> HC5A + HO2 + OH                                                               ', & ! index 1018\n     '             RIPD --> HC5A + HO2 + OH                                                               ', & ! index 1019\n     '           HPALD1 --> 0.888 PCO + 0.112 IDC + 0.224 C4HVP1 + 0.112 MVKPC + 0.552 MCRENOL + 0... etc.' /) ! index up to 1020\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_34 = (/ &\n     '           HPALD2 --> 0.818 PCO + 0.182 IDC + 0.182 C4HVP2 + 0.182 MVKPC + 0.454 MCRENOL + 0... etc.', & ! index 1021\n     '           HPALD3 --> PCO + MVK + CO + HO2 + OH                                                     ', & ! index 1022\n     '           HPALD4 --> PCO + MACR + CO + HO2 + OH                                                    ', & ! index 1023\n     '             IHN1 --> 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH        ', & ! index 1024\n     '             IHN2 --> MVK + CH2O + NO2 + HO2                                                        ', & ! index 1025\n     '             IHN3 --> MACR + CH2O + NO2 + HO2                                                       ', & ! index 1026\n     '             IHN4 --> 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH        ', & ! index 1027\n     '             INPB --> 0.097 MACR + 0.903 MVK + CH2O + NO2 + 0.33 HO2 + 0.67 OH                      ', & ! index 1028\n     '             INPD --> 0.841 INA + 0.159 ICN + 0.159 HO2 + OH                                        ', & ! index 1029\n     '             INPD --> 0.159 IHOO4 + 0.841 IHOO1 + NO2                                               ', & ! index 1030\n     '              ICN --> 0.839 PCO + 0.161 IDC + 0.068 C4HVP1 + 0.128 C4HVP2 + 0.162 MVKPC + 0.... etc.', & ! index 1031\n     '              IDN --> 0.222 INA + 0.223 ICN + 0.5 GLYC + 0.5 HAC + 0.005 MACR + 0.05 MVK + 0... etc.', & ! index 1032\n     '            ICPDH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 1.5 HO2 + 0.5 OH             ', & ! index 1033\n     '            ICPDH --> 0.163 PCO + 0.163 MCRDH + 0.133 MVKHCB + 0.586 GLYX + 0.118 MGLY + 0.1... etc.', & ! index 1034\n     '            IDHDP --> 0.75 ICPDH + 0.25 GLYC + 0.25 HAC + 0.75 HO2 + 1.25 OH                        ', & ! index 1035\n     '            IDHPE --> 0.571 GLYX + 0.429 MGLY + 0.429 GLYC + 0.571 HAC + HO2 + OH                   ', & ! index 1036\n     '            IDCHP --> PCO + 0.454 MVKPC + 0.391 MVKHC + 0.155 MVKHCB + CO + 1.454 HO2 + 0.546 OH    ', & ! index 1037\n     '             ITHN --> 0.5 MCRHN + 0.15 ETHLN + 0.05 MVKN + 0.3 GLYC + 0.45 HAC + 0.55 CH2O +... etc.', & ! index 1038\n     '             ITHN --> 0.5 HPETHNL + 0.05 ATOOH + 0.15 MCRHP + 0.35 GLYC + 0.8 HAC + 0.15 CH2... etc.', & ! index 1039\n     '             ITCN --> MGLY + GLYC + NO2 + OH                                                        ', & ! index 1040\n     '             ITCN --> PCO + 0.5 MCRHP + 0.5 MVKHP + CO + NO2 + HO2                                  ', & ! index 1041\n     '             ETHP --> ETO + OH                                                                      ', & ! index 1042\n     '             BALD --> PCO + BENZO2 + CO + HO2                                                       ', & ! index 1043\n     '           BZCO3H --> CO2 + BENZO2 + OH                                                             ', & ! index 1044\n     '            BENZP --> BENZO                                                                         ', & ! index 1045\n     '            NPHEN --> CO2 + PCO + AROMP4 + HNO2 + CO + HO2                                          ', & ! index 1046\n     '              PPN --> 0.3 POx + 0.7 RCO3 + 0.7 NO2 + 0.3 NO3                                        ', & ! index 1047\n     '            APINP --> PINAL + HO2 + OH                                                              ', & ! index 1048\n     '            PINAL --> PCO + C96O2 + CO + HO2                                                        ', & ! index 1049\n     '           PINO3H --> CO2 + C96O2 + OH                                                              ' /) ! index up to 1050\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(8) :: EQN_NAMES_35 = (/ &\n     '          PINONIC --> CO2 + C96O2 + OH                                                              ', & ! index 1051\n     '           C96O2H --> AROMRO2 + 0.5 MEK + ACET + RCO3 + CH2O + OH                                   ', & ! index 1052\n     '            BPINP --> BPINO + CH2O + HO2 + OH                                                       ', & ! index 1053\n     '          BPINOOH --> 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + HO2 + OH                        ', & ! index 1054\n     '           LIMO3H --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + OH                                  ', & ! index 1055\n     '           LIMO2H --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + OH                                  ', & ! index 1056\n     '              PIP --> 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + HO2 + OH                      ', & ! index 1057\n     '            LIMAL --> PCO + 0.9 LIMO3 + CO + HO2                                                    ' /) ! index up to 1058\n  CHARACTER(LEN=100), PARAMETER, DIMENSION(1058) :: EQN_NAMES = (/&\n    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &\n    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &\n    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, &\n    EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, &\n    EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22, EQN_NAMES_23, EQN_NAMES_24, &\n    EQN_NAMES_25, EQN_NAMES_26, EQN_NAMES_27, EQN_NAMES_28, EQN_NAMES_29, &\n    EQN_NAMES_30, EQN_NAMES_31, EQN_NAMES_32, EQN_NAMES_33, EQN_NAMES_34, &\n    EQN_NAMES_35 /)\n\n  CHARACTER(LEN=32), PARAMETER, DIMENSION(7) :: FAM_NAMES = (/ &\n     'POx                             ','LOx                             ','PCO                             ', & ! index 1 - 3\n     'LCO                             ','PSO4                            ','LCH4                            ', & ! index 4 - 6\n     'PH2O2                           ' /) ! index up to 7\n\n! Begin inlined code from F90_DATA\n\n! End inlined code from F90_DATA\n\n\nEND MODULE gckpp_Monitor\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Parameters.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Parameter Module File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Parameters.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Parameters\n\n  USE gckpp_Precision\n  PUBLIC\n  SAVE\n\n\n! NSPEC - Number of chemical species\n  INTEGER, PARAMETER :: NSPEC = 356 \n! NVAR - Number of Variable species\n  INTEGER, PARAMETER :: NVAR = 353 \n! NFAM - Number of Prod/Loss Families\n  INTEGER, PARAMETER :: NFAM = 7 \n! NVARACT - Number of Active species\n  INTEGER, PARAMETER :: NVARACT = 322 \n! NFIX - Number of Fixed species\n  INTEGER, PARAMETER :: NFIX = 3 \n! NREACT - Number of reactions\n  INTEGER, PARAMETER :: NREACT = 1058 \n! NVARST - Starting of variables in conc. vect.\n  INTEGER, PARAMETER :: NVARST = 1 \n! NFIXST - Starting of fixed in conc. vect.\n  INTEGER, PARAMETER :: NFIXST = 354 \n! NONZERO - Number of nonzero entries in Jacobian\n  INTEGER, PARAMETER :: NONZERO = 4401 \n! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian\n  INTEGER, PARAMETER :: LU_NONZERO = 5683 \n! CNVAR - (NVAR+1) Number of elements in compressed row format\n  INTEGER, PARAMETER :: CNVAR = 354 \n! NLOOKAT - Number of species to look at\n  INTEGER, PARAMETER :: NLOOKAT = 0 \n! NMONITOR - Number of species to monitor\n  INTEGER, PARAMETER :: NMONITOR = 0 \n! NMASS - Number of atoms to check mass balance\n  INTEGER, PARAMETER :: NMASS = 1 \n\n! Index declaration for variable species in C and VAR\n!   VAR(ind_spc) = C(ind_spc)\n\n  INTEGER, PARAMETER :: ind_CH2I2 = 1 \n  INTEGER, PARAMETER :: ind_CH2IBr = 2 \n  INTEGER, PARAMETER :: ind_CH2ICl = 3 \n  INTEGER, PARAMETER :: ind_AERI = 4 \n  INTEGER, PARAMETER :: ind_AONITA = 5 \n  INTEGER, PARAMETER :: ind_BUTDI = 6 \n  INTEGER, PARAMETER :: ind_CO2 = 7 \n  INTEGER, PARAMETER :: ind_INDIOL = 8 \n  INTEGER, PARAMETER :: ind_ISALA = 9 \n  INTEGER, PARAMETER :: ind_ISALC = 10 \n  INTEGER, PARAMETER :: ind_LBRO2H = 11 \n  INTEGER, PARAMETER :: ind_LBRO2N = 12 \n  INTEGER, PARAMETER :: ind_BRO2 = 13 \n  INTEGER, PARAMETER :: ind_LISOPOH = 14 \n  INTEGER, PARAMETER :: ind_LISOPNO3 = 15 \n  INTEGER, PARAMETER :: ind_LNRO2H = 16 \n  INTEGER, PARAMETER :: ind_LNRO2N = 17 \n  INTEGER, PARAMETER :: ind_NRO2 = 18 \n  INTEGER, PARAMETER :: ind_NAP = 19 \n  INTEGER, PARAMETER :: ind_LTRO2H = 20 \n  INTEGER, PARAMETER :: ind_LTRO2N = 21 \n  INTEGER, PARAMETER :: ind_TRO2 = 22 \n  INTEGER, PARAMETER :: ind_LVOCOA = 23 \n  INTEGER, PARAMETER :: ind_LVOC = 24 \n  INTEGER, PARAMETER :: ind_LXRO2H = 25 \n  INTEGER, PARAMETER :: ind_LXRO2N = 26 \n  INTEGER, PARAMETER :: ind_XRO2 = 27 \n  INTEGER, PARAMETER :: ind_MSA = 28 \n  INTEGER, PARAMETER :: ind_SO4s = 29 \n  INTEGER, PARAMETER :: ind_SOAGX = 30 \n  INTEGER, PARAMETER :: ind_SOAIE = 31 \n  INTEGER, PARAMETER :: ind_PH2SO4 = 32 \n  INTEGER, PARAMETER :: ind_PSO4AQ = 33 \n  INTEGER, PARAMETER :: ind_POx = 34 \n  INTEGER, PARAMETER :: ind_LOx = 35 \n  INTEGER, PARAMETER :: ind_PCO = 36 \n  INTEGER, PARAMETER :: ind_LCO = 37 \n  INTEGER, PARAMETER :: ind_PSO4 = 38 \n  INTEGER, PARAMETER :: ind_LCH4 = 39 \n  INTEGER, PARAMETER :: ind_PH2O2 = 40 \n  INTEGER, PARAMETER :: ind_FURA = 41 \n  INTEGER, PARAMETER :: ind_I2O4 = 42 \n  INTEGER, PARAMETER :: ind_CH3CCl3 = 43 \n  INTEGER, PARAMETER :: ind_I2O2 = 44 \n  INTEGER, PARAMETER :: ind_MONITA = 45 \n  INTEGER, PARAMETER :: ind_CCl4 = 46 \n  INTEGER, PARAMETER :: ind_CFC11 = 47 \n  INTEGER, PARAMETER :: ind_CFC12 = 48 \n  INTEGER, PARAMETER :: ind_CFC113 = 49 \n  INTEGER, PARAMETER :: ind_CFC114 = 50 \n  INTEGER, PARAMETER :: ind_CFC115 = 51 \n  INTEGER, PARAMETER :: ind_CH3I = 52 \n  INTEGER, PARAMETER :: ind_H1301 = 53 \n  INTEGER, PARAMETER :: ind_H2402 = 54 \n  INTEGER, PARAMETER :: ind_I2O3 = 55 \n  INTEGER, PARAMETER :: ind_PINPAN = 56 \n  INTEGER, PARAMETER :: ind_LIMPAN = 57 \n  INTEGER, PARAMETER :: ind_TLFUONE = 58 \n  INTEGER, PARAMETER :: ind_BrNO2 = 59 \n  INTEGER, PARAMETER :: ind_C2H2 = 60 \n  INTEGER, PARAMETER :: ind_H1211 = 61 \n  INTEGER, PARAMETER :: ind_INO = 62 \n  INTEGER, PARAMETER :: ind_N2O = 63 \n  INTEGER, PARAMETER :: ind_NIT = 64 \n  INTEGER, PARAMETER :: ind_NITs = 65 \n  INTEGER, PARAMETER :: ind_PINONIC = 66 \n  INTEGER, PARAMETER :: ind_N = 67 \n  INTEGER, PARAMETER :: ind_OCS = 68 \n  INTEGER, PARAMETER :: ind_ALK6 = 69 \n  INTEGER, PARAMETER :: ind_ETHN = 70 \n  INTEGER, PARAMETER :: ind_BZCO3H = 71 \n  INTEGER, PARAMETER :: ind_HACTA = 72 \n  INTEGER, PARAMETER :: ind_HI = 73 \n  INTEGER, PARAMETER :: ind_PINO3H = 74 \n  INTEGER, PARAMETER :: ind_CHCl3 = 75 \n  INTEGER, PARAMETER :: ind_Cl2O2 = 76 \n  INTEGER, PARAMETER :: ind_IBr = 77 \n  INTEGER, PARAMETER :: ind_CH2Br2 = 78 \n  INTEGER, PARAMETER :: ind_CH2Cl2 = 79 \n  INTEGER, PARAMETER :: ind_MPN = 80 \n  INTEGER, PARAMETER :: ind_CHBr3 = 81 \n  INTEGER, PARAMETER :: ind_TOLU = 82 \n  INTEGER, PARAMETER :: ind_ETNO3 = 83 \n  INTEGER, PARAMETER :: ind_HCFC123 = 84 \n  INTEGER, PARAMETER :: ind_HCFC141b = 85 \n  INTEGER, PARAMETER :: ind_HCFC142b = 86 \n  INTEGER, PARAMETER :: ind_HCFC22 = 87 \n  INTEGER, PARAMETER :: ind_HMHP = 88 \n  INTEGER, PARAMETER :: ind_HMS = 89 \n  INTEGER, PARAMETER :: ind_BZPAN = 90 \n  INTEGER, PARAMETER :: ind_IPRNO3 = 91 \n  INTEGER, PARAMETER :: ind_MAP = 92 \n  INTEGER, PARAMETER :: ind_MENO3 = 93 \n  INTEGER, PARAMETER :: ind_DMS = 94 \n  INTEGER, PARAMETER :: ind_NPRNO3 = 95 \n  INTEGER, PARAMETER :: ind_OIO = 96 \n  INTEGER, PARAMETER :: ind_R4P = 97 \n  INTEGER, PARAMETER :: ind_R7P = 98 \n  INTEGER, PARAMETER :: ind_RA3P = 99 \n  INTEGER, PARAMETER :: ind_RB3P = 100 \n  INTEGER, PARAMETER :: ind_XYLE = 101 \n  INTEGER, PARAMETER :: ind_ALK4P = 102 \n  INTEGER, PARAMETER :: ind_IONITA = 103 \n  INTEGER, PARAMETER :: ind_ICl = 104 \n  INTEGER, PARAMETER :: ind_CH3Br = 105 \n  INTEGER, PARAMETER :: ind_ETO = 106 \n  INTEGER, PARAMETER :: ind_HMML = 107 \n  INTEGER, PARAMETER :: ind_HNO4 = 108 \n  INTEGER, PARAMETER :: ind_C2H4 = 109 \n  INTEGER, PARAMETER :: ind_ClOO = 110 \n  INTEGER, PARAMETER :: ind_APINP = 111 \n  INTEGER, PARAMETER :: ind_BPINP = 112 \n  INTEGER, PARAMETER :: ind_MEKPN = 113 \n  INTEGER, PARAMETER :: ind_PHAN = 114 \n  INTEGER, PARAMETER :: ind_PYAC = 115 \n  INTEGER, PARAMETER :: ind_RNO3 = 116 \n  INTEGER, PARAMETER :: ind_BENZP = 117 \n  INTEGER, PARAMETER :: ind_ETP = 118 \n  INTEGER, PARAMETER :: ind_IDC = 119 \n  INTEGER, PARAMETER :: ind_OClO = 120 \n  INTEGER, PARAMETER :: ind_TLFUO2 = 121 \n  INTEGER, PARAMETER :: ind_AROMPN = 122 \n  INTEGER, PARAMETER :: ind_PP = 123 \n  INTEGER, PARAMETER :: ind_PPN = 124 \n  INTEGER, PARAMETER :: ind_PRPN = 125 \n  INTEGER, PARAMETER :: ind_APAN = 126 \n  INTEGER, PARAMETER :: ind_BUTN = 127 \n  INTEGER, PARAMETER :: ind_IEPOXD = 128 \n  INTEGER, PARAMETER :: ind_BPINO = 129 \n  INTEGER, PARAMETER :: ind_LIMO2H = 130 \n  INTEGER, PARAMETER :: ind_MVKDH = 131 \n  INTEGER, PARAMETER :: ind_ACRO2 = 132 \n  INTEGER, PARAMETER :: ind_HPALD1OO = 133 \n  INTEGER, PARAMETER :: ind_SO4 = 134 \n  INTEGER, PARAMETER :: ind_HPALD2OO = 135 \n  INTEGER, PARAMETER :: ind_ETHP = 136 \n  INTEGER, PARAMETER :: ind_APINN = 137 \n  INTEGER, PARAMETER :: ind_BPINN = 138 \n  INTEGER, PARAMETER :: ind_PAN = 139 \n  INTEGER, PARAMETER :: ind_C4H6 = 140 \n  INTEGER, PARAMETER :: ind_C3H8 = 141 \n  INTEGER, PARAMETER :: ind_ALK4 = 142 \n  INTEGER, PARAMETER :: ind_BENZ = 143 \n  INTEGER, PARAMETER :: ind_HPALD4 = 144 \n  INTEGER, PARAMETER :: ind_INA = 145 \n  INTEGER, PARAMETER :: ind_AROMCHO = 146 \n  INTEGER, PARAMETER :: ind_IDCHP = 147 \n  INTEGER, PARAMETER :: ind_Br2 = 148 \n  INTEGER, PARAMETER :: ind_EBZ = 149 \n  INTEGER, PARAMETER :: ind_HPALD3 = 150 \n  INTEGER, PARAMETER :: ind_IEPOXA = 151 \n  INTEGER, PARAMETER :: ind_IEPOXB = 152 \n  INTEGER, PARAMETER :: ind_MCRDH = 153 \n  INTEGER, PARAMETER :: ind_HONIT = 154 \n  INTEGER, PARAMETER :: ind_RP = 155 \n  INTEGER, PARAMETER :: ind_EOH = 156 \n  INTEGER, PARAMETER :: ind_BrCl = 157 \n  INTEGER, PARAMETER :: ind_CSL = 158 \n  INTEGER, PARAMETER :: ind_MACR1OOH = 159 \n  INTEGER, PARAMETER :: ind_C96O2H = 160 \n  INTEGER, PARAMETER :: ind_BPINOOH = 161 \n  INTEGER, PARAMETER :: ind_BPINON = 162 \n  INTEGER, PARAMETER :: ind_LIMKB = 163 \n  INTEGER, PARAMETER :: ind_MP = 164 \n  INTEGER, PARAMETER :: ind_R7N1 = 165 \n  INTEGER, PARAMETER :: ind_SALCAL = 166 \n  INTEGER, PARAMETER :: ind_LIMO = 167 \n  INTEGER, PARAMETER :: ind_IHN3 = 168 \n  INTEGER, PARAMETER :: ind_LIMO3H = 169 \n  INTEGER, PARAMETER :: ind_I2 = 170 \n  INTEGER, PARAMETER :: ind_C4HVP1 = 171 \n  INTEGER, PARAMETER :: ind_C4HVP2 = 172 \n  INTEGER, PARAMETER :: ind_RCOOH = 173 \n  INTEGER, PARAMETER :: ind_IDHDP = 174 \n  INTEGER, PARAMETER :: ind_IHN2 = 175 \n  INTEGER, PARAMETER :: ind_C96N = 176 \n  INTEGER, PARAMETER :: ind_LIMNB = 177 \n  INTEGER, PARAMETER :: ind_R7O2 = 178 \n  INTEGER, PARAMETER :: ind_SALAAL = 179 \n  INTEGER, PARAMETER :: ind_IDNOO = 180 \n  INTEGER, PARAMETER :: ind_CH3Cl = 181 \n  INTEGER, PARAMETER :: ind_ICNOO = 182 \n  INTEGER, PARAMETER :: ind_C2H6 = 183 \n  INTEGER, PARAMETER :: ind_MPAN = 184 \n  INTEGER, PARAMETER :: ind_MVKPC = 185 \n  INTEGER, PARAMETER :: ind_INPD = 186 \n  INTEGER, PARAMETER :: ind_RIPA = 187 \n  INTEGER, PARAMETER :: ind_ROH = 188 \n  INTEGER, PARAMETER :: ind_ZRO2 = 189 \n  INTEGER, PARAMETER :: ind_ISOPNOO2 = 190 \n  INTEGER, PARAMETER :: ind_MTPA = 191 \n  INTEGER, PARAMETER :: ind_RIPB = 192 \n  INTEGER, PARAMETER :: ind_PIN = 193 \n  INTEGER, PARAMETER :: ind_MCRENOL = 194 \n  INTEGER, PARAMETER :: ind_PHEN = 195 \n  INTEGER, PARAMETER :: ind_R7N2 = 196 \n  INTEGER, PARAMETER :: ind_ACO3 = 197 \n  INTEGER, PARAMETER :: ind_IDHPE = 198 \n  INTEGER, PARAMETER :: ind_RIPD = 199 \n  INTEGER, PARAMETER :: ind_TMB = 200 \n  INTEGER, PARAMETER :: ind_AROMP5 = 201 \n  INTEGER, PARAMETER :: ind_MCT = 202 \n  INTEGER, PARAMETER :: ind_BENZO = 203 \n  INTEGER, PARAMETER :: ind_BALD = 204 \n  INTEGER, PARAMETER :: ind_ISOPNOO1 = 205 \n  INTEGER, PARAMETER :: ind_IDHNDOO1 = 206 \n  INTEGER, PARAMETER :: ind_IDHNDOO2 = 207 \n  INTEGER, PARAMETER :: ind_MVKHC = 208 \n  INTEGER, PARAMETER :: ind_RIPC = 209 \n  INTEGER, PARAMETER :: ind_HPETHNL = 210 \n  INTEGER, PARAMETER :: ind_LIMN = 211 \n  INTEGER, PARAMETER :: ind_BUTO2 = 212 \n  INTEGER, PARAMETER :: ind_GCO3 = 213 \n  INTEGER, PARAMETER :: ind_N2O5 = 214 \n  INTEGER, PARAMETER :: ind_ICHE = 215 \n  INTEGER, PARAMETER :: ind_MCRHNB = 216 \n  INTEGER, PARAMETER :: ind_H = 217 \n  INTEGER, PARAMETER :: ind_BrNO3 = 218 \n  INTEGER, PARAMETER :: ind_MTPO = 219 \n  INTEGER, PARAMETER :: ind_STYR = 220 \n  INTEGER, PARAMETER :: ind_AROMP4 = 221 \n  INTEGER, PARAMETER :: ind_INPB = 222 \n  INTEGER, PARAMETER :: ind_IHPOO1 = 223 \n  INTEGER, PARAMETER :: ind_IHPOO2 = 224 \n  INTEGER, PARAMETER :: ind_PINAL = 225 \n  INTEGER, PARAMETER :: ind_IHPNDOO = 226 \n  INTEGER, PARAMETER :: ind_MVKHCB = 227 \n  INTEGER, PARAMETER :: ind_CH4 = 228 \n  INTEGER, PARAMETER :: ind_PIP = 229 \n  INTEGER, PARAMETER :: ind_HPALD1 = 230 \n  INTEGER, PARAMETER :: ind_HPALD2 = 231 \n  INTEGER, PARAMETER :: ind_IHPOO3 = 232 \n  INTEGER, PARAMETER :: ind_ACR = 233 \n  INTEGER, PARAMETER :: ind_ETOO = 234 \n  INTEGER, PARAMETER :: ind_BZCO3 = 235 \n  INTEGER, PARAMETER :: ind_BENZO2 = 236 \n  INTEGER, PARAMETER :: ind_LIMKET = 237 \n  INTEGER, PARAMETER :: ind_HC5A = 238 \n  INTEGER, PARAMETER :: ind_HNO2 = 239 \n  INTEGER, PARAMETER :: ind_AROMCO3 = 240 \n  INTEGER, PARAMETER :: ind_CH3CHOO = 241 \n  INTEGER, PARAMETER :: ind_MONITU = 242 \n  INTEGER, PARAMETER :: ind_ICHOO = 243 \n  INTEGER, PARAMETER :: ind_ATOOH = 244 \n  INTEGER, PARAMETER :: ind_Cl2 = 245 \n  INTEGER, PARAMETER :: ind_MEKCO3 = 246 \n  INTEGER, PARAMETER :: ind_PROPNN = 247 \n  INTEGER, PARAMETER :: ind_MCRHN = 248 \n  INTEGER, PARAMETER :: ind_ALK4N1 = 249 \n  INTEGER, PARAMETER :: ind_PRN1 = 250 \n  INTEGER, PARAMETER :: ind_R4N2 = 251 \n  INTEGER, PARAMETER :: ind_IONO = 252 \n  INTEGER, PARAMETER :: ind_MCROHOO = 253 \n  INTEGER, PARAMETER :: ind_MVKOHOO = 254 \n  INTEGER, PARAMETER :: ind_LIMAL = 255 \n  INTEGER, PARAMETER :: ind_MONITS = 256 \n  INTEGER, PARAMETER :: ind_PINO3 = 257 \n  INTEGER, PARAMETER :: ind_ICPDH = 258 \n  INTEGER, PARAMETER :: ind_MACR1OO = 259 \n  INTEGER, PARAMETER :: ind_PO2 = 260 \n  INTEGER, PARAMETER :: ind_ETHLN = 261 \n  INTEGER, PARAMETER :: ind_MYRCO = 262 \n  INTEGER, PARAMETER :: ind_AROMRO2 = 263 \n  INTEGER, PARAMETER :: ind_H2O2 = 264 \n  INTEGER, PARAMETER :: ind_HCOOH = 265 \n  INTEGER, PARAMETER :: ind_ITCN = 266 \n  INTEGER, PARAMETER :: ind_IHN4 = 267 \n  INTEGER, PARAMETER :: ind_IHN1 = 268 \n  INTEGER, PARAMETER :: ind_NPHEN = 269 \n  INTEGER, PARAMETER :: ind_GLYX = 270 \n  INTEGER, PARAMETER :: ind_IHPNBOO = 271 \n  INTEGER, PARAMETER :: ind_LIMKO2 = 272 \n  INTEGER, PARAMETER :: ind_BPINOO2 = 273 \n  INTEGER, PARAMETER :: ind_LIMO3 = 274 \n  INTEGER, PARAMETER :: ind_BPINO2 = 275 \n  INTEGER, PARAMETER :: ind_ISOP = 276 \n  INTEGER, PARAMETER :: ind_APINO2 = 277 \n  INTEGER, PARAMETER :: ind_C96O2 = 278 \n  INTEGER, PARAMETER :: ind_ALK4N2 = 279 \n  INTEGER, PARAMETER :: ind_OLNN = 280 \n  INTEGER, PARAMETER :: ind_LIMO2 = 281 \n  INTEGER, PARAMETER :: ind_MOH = 282 \n  INTEGER, PARAMETER :: ind_ACTA = 283 \n  INTEGER, PARAMETER :: ind_IO = 284 \n  INTEGER, PARAMETER :: ind_IEPOXBOO = 285 \n  INTEGER, PARAMETER :: ind_IEPOXAOO = 286 \n  INTEGER, PARAMETER :: ind_MCRHP = 287 \n  INTEGER, PARAMETER :: ind_MVKHP = 288 \n  INTEGER, PARAMETER :: ind_OLND = 289 \n  INTEGER, PARAMETER :: ind_PRPE = 290 \n  INTEGER, PARAMETER :: ind_PIO2 = 291 \n  INTEGER, PARAMETER :: ind_MEK = 292 \n  INTEGER, PARAMETER :: ind_IDHNBOO = 293 \n  INTEGER, PARAMETER :: ind_MGLY = 294 \n  INTEGER, PARAMETER :: ind_ACET = 295 \n  INTEGER, PARAMETER :: ind_ETO2 = 296 \n  INTEGER, PARAMETER :: ind_ClNO2 = 297 \n  INTEGER, PARAMETER :: ind_RCHO = 298 \n  INTEGER, PARAMETER :: ind_IDN = 299 \n  INTEGER, PARAMETER :: ind_ALK4O2 = 300 \n  INTEGER, PARAMETER :: ind_ICN = 301 \n  INTEGER, PARAMETER :: ind_MVKN = 302 \n  INTEGER, PARAMETER :: ind_ITHN = 303 \n  INTEGER, PARAMETER :: ind_IHOO4 = 304 \n  INTEGER, PARAMETER :: ind_IHOO1 = 305 \n  INTEGER, PARAMETER :: ind_GLYC = 306 \n  INTEGER, PARAMETER :: ind_HAC = 307 \n  INTEGER, PARAMETER :: ind_MACRNO2 = 308 \n  INTEGER, PARAMETER :: ind_MACR = 309 \n  INTEGER, PARAMETER :: ind_INO2B = 310 \n  INTEGER, PARAMETER :: ind_INO2D = 311 \n  INTEGER, PARAMETER :: ind_CH2OO = 312 \n  INTEGER, PARAMETER :: ind_ATO2 = 313 \n  INTEGER, PARAMETER :: ind_MVK = 314 \n  INTEGER, PARAMETER :: ind_OTHRO2 = 315 \n  INTEGER, PARAMETER :: ind_HOBr = 316 \n  INTEGER, PARAMETER :: ind_ClNO3 = 317 \n  INTEGER, PARAMETER :: ind_R4N1 = 318 \n  INTEGER, PARAMETER :: ind_R4O2 = 319 \n  INTEGER, PARAMETER :: ind_KO2 = 320 \n  INTEGER, PARAMETER :: ind_A3O2 = 321 \n  INTEGER, PARAMETER :: ind_RCO3 = 322 \n  INTEGER, PARAMETER :: ind_B3O2 = 323 \n  INTEGER, PARAMETER :: ind_MCO3 = 324 \n  INTEGER, PARAMETER :: ind_CH2O = 325 \n  INTEGER, PARAMETER :: ind_ALD2 = 326 \n  INTEGER, PARAMETER :: ind_HNO3 = 327 \n  INTEGER, PARAMETER :: ind_MO2 = 328 \n  INTEGER, PARAMETER :: ind_CO = 329 \n  INTEGER, PARAMETER :: ind_HOI = 330 \n  INTEGER, PARAMETER :: ind_I = 331 \n  INTEGER, PARAMETER :: ind_IONO2 = 332 \n  INTEGER, PARAMETER :: ind_HOCl = 333 \n  INTEGER, PARAMETER :: ind_O1D = 334 \n  INTEGER, PARAMETER :: ind_NO2 = 335 \n  INTEGER, PARAMETER :: ind_H2O = 336 \n  INTEGER, PARAMETER :: ind_HO2 = 337 \n  INTEGER, PARAMETER :: ind_ClO = 338 \n  INTEGER, PARAMETER :: ind_HCl = 339 \n  INTEGER, PARAMETER :: ind_Cl = 340 \n  INTEGER, PARAMETER :: ind_O3 = 341 \n  INTEGER, PARAMETER :: ind_Br = 342 \n  INTEGER, PARAMETER :: ind_O = 343 \n  INTEGER, PARAMETER :: ind_SALCCL = 344 \n  INTEGER, PARAMETER :: ind_OH = 345 \n  INTEGER, PARAMETER :: ind_NO = 346 \n  INTEGER, PARAMETER :: ind_BrO = 347 \n  INTEGER, PARAMETER :: ind_SO2 = 348 \n  INTEGER, PARAMETER :: ind_BrSALA = 349 \n  INTEGER, PARAMETER :: ind_BrSALC = 350 \n  INTEGER, PARAMETER :: ind_NO3 = 351 \n  INTEGER, PARAMETER :: ind_HBr = 352 \n  INTEGER, PARAMETER :: ind_SALACL = 353 \n\n! Index declaration for fixed species in C\n!   C(ind_spc)\n\n  INTEGER, PARAMETER :: ind_H2 = 354 \n  INTEGER, PARAMETER :: ind_N2 = 355 \n  INTEGER, PARAMETER :: ind_O2 = 356 \n\n! Index declaration for fixed species in FIX\n!    FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc)\n\n  INTEGER, PARAMETER :: indf_H2 = 1 \n  INTEGER, PARAMETER :: indf_N2 = 2 \n  INTEGER, PARAMETER :: indf_O2 = 3 \n\nEND MODULE gckpp_Parameters\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Precision.F90",
    "content": "\nMODULE gckpp_Precision\n\n!\n! Definition of different levels of accuracy\n! for REAL variables using KIND parameterization\n!\n! KPP SP - Single precision kind\n  INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30)\n! KPP DP - Double precision kind\n  INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300)\n! KPP QP - Quadruple precision kind\n  INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400)\n\nEND MODULE gckpp_Precision\n\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Rates.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! The Reaction Rates File\n! \n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n! \n! File                 : gckpp_Rates.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Rates\n\n  USE gckpp_Parameters\n  USE gckpp_Global\n  IMPLICIT NONE\n  INTEGER, PARAMETER :: ASSOC = 1, DISSOC = 2\n\n  PRIVATE :: ARR_abc_dp, ARR_abc_sp\n  INTERFACE ARR_abc\n     MODULE PROCEDURE ARR_abc_dp\n     MODULE PROCEDURE ARR_abc_sp\n  END INTERFACE ARR_abc\n\n  PRIVATE :: ARR_ab_dp, ARR_ab_sp\n  INTERFACE ARR_ab\n     MODULE PROCEDURE ARR_ab_dp\n     MODULE PROCEDURE ARR_ab_sp\n  END INTERFACE ARR_ab\n\n  PRIVATE :: ARR_ac_dp, ARR_ac_sp\n  INTERFACE ARR_ac\n     MODULE PROCEDURE ARR_ac_dp\n     MODULE PROCEDURE ARR_ac_sp\n  END INTERFACE ARR_ac\n\n  PRIVATE :: EP2_dp, EP2_sp\n  INTERFACE EP2\n     MODULE PROCEDURE EP2_dp\n     MODULE PROCEDURE EP2_sp\n  END INTERFACE EP2\n\n  PRIVATE :: EP3_dp, EP3_sp\n  INTERFACE EP3\n     MODULE PROCEDURE EP3_dp\n     MODULE PROCEDURE EP3_sp\n  END INTERFACE EP3\n\n  PRIVATE :: FALL_dp, FALL_sp\n  INTERFACE FALL\n     MODULE PROCEDURE FALL_dp\n     MODULE PROCEDURE FALL_sp\n  END INTERFACE FALL\n\n  PRIVATE :: k3rd_jpl_dp, k3rd_jpl_sp\n  INTERFACE k3rd_jpl\n     MODULE PROCEDURE k3rd_jpl_dp\n     MODULE PROCEDURE k3rd_jpl_sp\n  END INTERFACE k3rd_jpl\n\n  PRIVATE :: k3rd_jpl_activation_dp, k3rd_jpl_activation_sp\n  INTERFACE  k3rd_jpl_activation\n     MODULE PROCEDURE  k3rd_jpl_activation_dp\n     MODULE PROCEDURE  k3rd_jpl_activation_sp\n  END INTERFACE  k3rd_jpl_activation\n\n  PRIVATE :: k3rd_iupac_dp, k3rd_iupac_sp\n  INTERFACE k3rd_iupac\n     MODULE PROCEDURE k3rd_iupac_dp\n     MODULE PROCEDURE k3rd_iupac_sp\n  END INTERFACE k3rd_iupac\n\nCONTAINS\n\n\n\n! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  User-defined Rate Law functions\n!\n!  NOTE: For computational efficiency, we have created duplicate rate law\n!  routines here that take either all single precision or all double precision\n!  arguments.  Explicit casts to DBLE are skipped in the functions that take\n!  all double precision arguments (as this removes unneeded computations).\n!\n!  These functions are overloaded by INTERFACE statements, which are located\n!  in file UserRateLawsInterfaces.f90.  The UserRateLawsInterfaces.f90 file\n!  will be in-lined into the top of the gckpp_Rates module.\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  FUNCTION ARR_abc_dp( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0, c0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0, c0\n    REAL(kind=dp) :: k\n    k = a0 * EXP(-b0/TEMP) * (TEMP/300.0_dp)**C0\n  END FUNCTION ARR_abc_dp\n\n  FUNCTION ARR_abc_sp( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0, c0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0, c0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * EXP(-DBLE(b0)/TEMP) * (TEMP/300.0_dp)**DBLE(c0)\n  END FUNCTION ARR_abc_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION ARR_ab_dp( a0, b0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0\n    REAL(kind=dp) :: k\n    k = a0 * EXP(-b0/TEMP)\n  END FUNCTION ARR_ab_dp\n\n  FUNCTION ARR_ab_sp( a0, b0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, b0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * EXP(-DBLE(b0)/TEMP)\n  END FUNCTION ARR_ab_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION ARR_ac_dp( a0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, c0 (dp args)\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(kind=dp) :: k\n    k = a0 * (TEMP/300.0_dp)**C0\n  END FUNCTION ARR_ac_dp\n\n  FUNCTION ARR_ac_sp( a0, c0 ) RESULT( k )\n    ! Arrhenius function, for nonzero a0, c0 (sp args)\n    REAL(sp), INTENT(IN) :: a0, c0\n    REAL(kind=dp) :: k\n    k = DBLE(a0) * (TEMP/300.0_dp)**DBLE(c0)\n  END FUNCTION ARR_ac_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION EP2_dp( a0, c0, a2, c2, a3, c3 ) RESULT( k )\n    ! EP2 function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a0, c0, a2, c2, a3, c3\n    REAL(dp) :: k0, k2, k3\n    REAL(kind=dp) :: k\n    k0 = a0 * EXP(-c0/temp)\n    k2 = a2 * EXP(-c2/temp)\n    k3 = a3 * EXP(-c3/temp)\n    k3 = k3 * CFACTOR * 1.0E6_dp\n    k  = k0 + k3/(1.0_dp + k3/k2)\n  END FUNCTION EP2_dp\n\n  FUNCTION EP2_sp( a0, c0, a2, c2, a3, c3 ) RESULT( k )\n    ! EP2 function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a0, c0, a2, c2, a3, c3\n    REAL(dp) :: k0, k2, k3\n    REAL(kind=dp) :: k\n    k0 = DBLE(a0) * EXP(-DBLE(c0)/TEMP)\n    k2 = DBLE(a2) * EXP(-DBLE(c2)/TEMP)\n    k3 = DBLE(a3) * EXP(-DBLE(c3)/TEMP)\n    k3 = k3 * CFACTOR * 1.0E6_dp\n    k  = k0 + K3/(1.0_dp + k3/k2)\n  END FUNCTION EP2_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION EP3_dp( a1, c1, a2, c2) RESULT( k )\n    ! EP3 function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a1, c1, a2, c2\n    REAL(dp) :: k1, k2\n    REAL(kind=dp) :: k\n    k1 = a1 * EXP(-c1/TEMP)\n    k2 = a2 * EXP(-c2/TEMP)\n    k  = k1 + k2*(1.0E6_dp * CFACTOR)\n  END FUNCTION EP3_dp\n\n  FUNCTION EP3_sp( a1, c1, a2, c2 ) RESULT( k )\n    ! EP3 function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a1, c1, a2, c2\n    REAL(dp) :: k1, k2\n    REAL(kind=dp) :: k\n    k1 = DBLE(a1) * EXP(-DBLE(c1)/TEMP)\n    k2 = DBLE(a2) * EXP(-DBLE(c2)/TEMP)\n    k  = k1 + k2*(1.0E6_dp * CFACTOR)\n  END FUNCTION EP3_sp\n\n  !---------------------------------------------------------------------------\n\n  FUNCTION FALL_dp( a0, b0, c0, a1, b1, c1, cf ) RESULT( k )\n    ! FALL function, for saprc99 and saprcnov (dp args)\n    REAL(dp), INTENT(IN) :: a0, b0, c0, a1, b1, c1, cf\n    REAL(dp) :: k0, k1\n    REAL(kind=dp) :: k\n    k0 = a0 * EXP(-b0/TEMP) * (TEMP/300.0_dp)**c0\n    k1 = a1 * EXP(-b1/TEMP) * (TEMP/300.0_dp)**c1\n    k0 = k0 * CFACTOR * 1.0E6_dp\n    k1 = k0 / k1\n    k  = (k0/(1.0_dp+k1)) * cf**(1.0_dp/(1.0_dp+(LOG10(k1))**2))\n  END FUNCTION FALL_dp\n\n  FUNCTION FALL_sp( a0, b0, c0, a1, b1, c1, cf ) RESULT( k )\n    ! FALL function, for saprc99 and saprcnov (sp args)\n    REAL(sp), INTENT(IN) :: a0, b0, c0, a1, b1, c1, cf\n    REAL(dp) :: k0, k1\n    REAL(kind=dp) :: k\n    k0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0)\n    k1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1)\n    k0 = k0 * CFACTOR * 1.0E6_dp\n    k1 = k0 / k1\n    k  = (k0/(1.0_dp+k1)) * DBLE(cf)**(1.0_dp/(1.0_dp+(LOG10(k1))**2))\n  END FUNCTION FALL_sp\n\n  !---------------------------------------------------------------------------\n\n  ! JPL (jpldataeval.jpl.nasa.gov) three-body reaction formula:\n  \n  REAL(dp) FUNCTION k3rd_jpl_dp(cair,k0_300K,n,kinf_300K,m,fc) ! dp args\n    INTRINSIC LOG10\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)\n    REAL(dp) :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help  = 300._dp/temp\n    k0_T     = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T   = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio  = k0_T/kinf_T\n    k3rd_jpl_dp = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))\n  END FUNCTION k3rd_jpl_dp\n\n  REAL(kind=dp) FUNCTION k3rd_jpl_sp(cair,k0_300K,n,kinf_300K,m,fc) ! sp args\n    INTRINSIC LOG10\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: fc        ! broadening factor (usually fc=0.6)\n    REAL(sp) :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help  = 300._dp/temp\n    k0_T     = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T   = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio  = k0_T/kinf_T\n    k3rd_jpl_sp = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2))\n  END FUNCTION k3rd_jpl_sp\n\n  ! --------------------------------------------------------------------------\n\n  ! JPL (jpldataeval.jpl.nasa.gov) termolecular chemical activation reaction:\n\n  FUNCTION k3rd_jpl_activation_dp(cair,k0_298K,n,kinf_298K,m,A,B) ! dp args\n    INTRINSIC :: LOG10\n    REAL(dp), DIMENSION(2) :: k3rd_jpl_activation_dp\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_298K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_298K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: A         ! for k_int\n    REAL(dp), INTENT(IN) :: B         ! for k_int\n    REAL(dp)             :: zt_help, k0_TM, kinf_T, k_ratio, k_f, k_int, k_fCA\n    zt_help = 298./temp\n    k0_TM   = k0_298K   * zt_help**n * cair ! k_0   at current T * M\n    kinf_T  = kinf_298K * zt_help**m        ! k_inf at current T\n    k_ratio = k0_TM/kinf_T\n    k_f     = k0_TM/(1.+k_ratio)*0.6**(1./(1.+LOG10(k_ratio)**2))\n    k_int   = A * exp(-B/temp)\n    k_fCA   = k_int * (1. - k_f/kinf_T)\n    k3rd_jpl_activation_dp(ASSOC)  = k_f\n    k3rd_jpl_activation_dp(DISSOC) = k_fCA\n  END FUNCTION k3rd_jpl_activation_dp\n\n  FUNCTION k3rd_jpl_activation_sp(cair,k0_298K,n,kinf_298K,m,A,B) ! sp args\n    INTRINSIC :: LOG10\n    REAL(kind=dp), DIMENSION(2) :: k3rd_jpl_activation_sp\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_298K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_298K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: A         ! for k_int\n    REAL(sp), INTENT(IN) :: B         ! for k_int\n    REAL(sp)             :: zt_help, k0_TM, kinf_T, k_ratio, k_f, k_int, k_fCA\n    zt_help = 298./temp\n    k0_TM   = k0_298K   * zt_help**n * cair ! k_0   at current T * M\n    kinf_T  = kinf_298K * zt_help**m        ! k_inf at current T\n    k_ratio = k0_TM/kinf_T\n    k_f     = k0_TM/(1.+k_ratio)*0.6**(1./(1.+LOG10(k_ratio)**2))\n    k_int   = A * exp(-B/temp)\n    k_fCA   = k_int * (1. - k_f/kinf_T)\n    k3rd_jpl_activation_sp(ASSOC)  = k_f\n    k3rd_jpl_activation_sp(DISSOC) = k_fCA\n  END FUNCTION k3rd_jpl_activation_sp\n\n  ! --------------------------------------------------------------------------\n\n  ! IUPAC (iupac.pole-ether.fr) three-body reaction formula:\n\n  REAL(dp) FUNCTION k3rd_iupac_dp(cair,k0_300K,n,kinf_300K,m,fc) ! dp args\n    INTRINSIC :: LOG10\n    REAL(dp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(dp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(dp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(dp), INTENT(IN) :: fc        ! broadening factor (e.g. 0.45 or 0.6...)\n    REAL(dp)             :: nu        ! N\n    REAL(dp)             :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help = 300._dp/temp\n    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio = k0_T/kinf_T\n    nu      = 0.75-1.27*LOG10(fc)\n    k3rd_iupac_dp = k0_T/(1._dp+k_ratio)* &\n      fc**(1._dp/(1._dp+(LOG10(k_ratio)/nu)**2))\n  END FUNCTION k3rd_iupac_dp\n\n  REAL(kind=dp) FUNCTION k3rd_iupac_sp(cair,k0_300K,n,kinf_300K,m,fc) ! sp args\n    INTRINSIC :: LOG10\n    REAL(sp), INTENT(IN) :: cair      ! air concentration [molecules/cm3]\n    REAL(sp), INTENT(IN) :: k0_300K   ! low pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: n         ! exponent for low pressure limit\n    REAL(sp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K\n    REAL(sp), INTENT(IN) :: m         ! exponent for high pressure limit\n    REAL(sp), INTENT(IN) :: fc        ! broadening factor (e.g. 0.45 or 0.6...)\n    REAL(sp)             :: nu        ! N\n    REAL(sp)             :: zt_help, k0_T, kinf_T, k_ratio\n    zt_help = 300._dp/temp\n    k0_T    = k0_300K   * zt_help**(n) * cair ! k_0   at current T\n    kinf_T  = kinf_300K * zt_help**(m)        ! k_inf at current T\n    k_ratio = k0_T/kinf_T\n    nu      = 0.75-1.27*LOG10(fc)\n    k3rd_iupac_sp = k0_T/(1._dp+k_ratio)* &\n      fc**(1._dp/(1._dp+(LOG10(k_ratio)/nu)**2))\n  END FUNCTION k3rd_iupac_sp\n\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!  End of User-defined Rate Law functions\n!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! End Rate Law Functions from KPP_HOME/util/UserRateLaws\n\n\n! Begin inlined code from F90_RATES\n\n\n  ! All rates are included in fullchem_RateLawFuncs.F90, which\n  ! gets referenced directly from subroutine Update_Rconst.\n\n! End inlined code from F90_RATES\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Update_SUN - update SUN light using TIME\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n  SUBROUTINE Update_SUN()\n    USE gckpp_Parameters\n    USE gckpp_Global\n\n    IMPLICIT NONE\n\n    REAL(kind=dp) :: SunRise, SunSet\n    REAL(kind=dp) :: Thour, Tlocal, Ttmp \n    ! PI - Value of pi\n    REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0\n    \n    SunRise = 4.5_dp \n    SunSet  = 19.5_dp \n    Thour = TIME/3600.0_dp \n    Tlocal = Thour - (INT(Thour)/24)*24\n\n    IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN\n       Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise)\n       IF (Ttmp.GT.0) THEN\n          Ttmp =  Ttmp*Ttmp\n       ELSE\n          Ttmp = -Ttmp*Ttmp\n       END IF\n       SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp \n    ELSE\n       SUN = 0.0_dp \n    END IF\n\n END SUBROUTINE Update_SUN\n\n! End of Update_SUN function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\nSUBROUTINE Update_RCONST ( YIN )\n\n! Begin inlined code from F90_RCONST_USE\n\n\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (11 Jun 2021)\n  USE fullchem_RateLawFuncs\n\n! End inlined code from F90_RCONST_USE\n\n! YIN - Optional input concentrations of variable species\n  REAL(kind=dp), OPTIONAL :: YIN(NVAR)\n\n! Y - Concentrations of species (local)\n  REAL(kind=dp) :: Y(NSPEC)\n\n! Ensure local Y array is filled with variable and constant concentrations\n  Y(1:NSPEC) = C(1:NSPEC)\n\n! Update local Y array if variable concentrations are provided\n  if (present(YIN)) Y(1:NVAR) = YIN(1:NVAR)\n\n\n\n! Begin inlined code from F90_RCONST\n\n\n! End inlined code from F90_RCONST\n\n  RCONST(1) = (K_MT(1))\n  RCONST(2) = (K_MT(2))\n  RCONST(3) = (K_MT(3))\n  RCONST(4) = (K_MT(4))\n  RCONST(5) = (K_MT(5))\n  RCONST(6) = (K_MT(6))\n  RCONST(7) = (K_CLD(1))\n  RCONST(8) = (K_CLD(2))\n  RCONST(9) = (K_CLD(3))\n  RCONST(10) = (K_CLD(4))\n  RCONST(11) = (K_CLD(5))\n  RCONST(12) = (K_CLD(6))\n  RCONST(13) = (GCARR_ac(3.00d-12,-1500.0d0))\n  RCONST(14) = (GCARR_ac(1.70d-12,-940.0d0))\n  RCONST(15) = (GCARR_ac(1.00d-14,-490.0d0))\n  RCONST(16) = (GCARR_ac(1.20d-13,-2450.0d0))\n  RCONST(17) = (GCARR_ac(2.90d-16,-1000.0d0))\n  RCONST(18) = (1.80d-12)\n  RCONST(19) = (GCJPLPR_aba(6.90d-31,1.0d+00,2.6d-11,0.6d0))\n  RCONST(20) = (GCARR_ac(4.80d-11,250.0d0))\n  RCONST(21) = (1.80d-12)\n  RCONST(22) = (GCARR_ac(3.44d-12,260.0d0))\n  RCONST(23) = (GC_HO2HO2_acac(3.00d-13,460.0d0,2.1d-33,920.0d0))\n  RCONST(24) = (GCJPLPR_abab(6.9d-33,2.1d0,1.1d-12,-1.3d0,0.6d0)+GCJPLAC_ababac(6.9d-33,2.1d0,1.1d-12,-1.3d0,1.85d-13,&\n                 &-6.5d1,0.6d0))\n  RCONST(25) = (GCARR_ac(2.45d-12,-1775.0d0))\n  RCONST(26) = (GC_RO2NO_B1_ac(2.80d-12,300.0d0))\n  RCONST(27) = (GC_RO2NO_A1_ac(2.80d-12,300.0d0))\n  RCONST(28) = (GCARR_ac(4.10d-13,750.0d0))\n  RCONST(29) = (GC_TBRANCH_1_acac(9.50d-14,390.0d0,2.62d1,-1130.0d0))\n  RCONST(30) = (GC_TBRANCH_1_acac(9.50d-14,390.0d0,4.0d-2,1130.0d0))\n  RCONST(31) = (1.60d-10)\n  RCONST(32) = (GCARR_ac(3.80d-12,200.0d0))\n  RCONST(33) = (GCARR_ac(3.80d-12,200.0d0))\n  RCONST(34) = (GCARR_ac(5.50d-12,125.0d0))\n  RCONST(35) = (GCJPLPR_aba(1.80d-30,3.0d+00,2.8d-11,0.6d0))\n  RCONST(36) = (GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0)+GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,2.4d2,&\n                 &0.6d0))\n  RCONST(37) = (GCJPLPR_abab(7.00d-31,2.6d+00,3.60d-11,0.1d0,0.6d0))\n  RCONST(38) = (GCARR_ac(3.00d-12,250.0d0))\n  RCONST(39) = (GCJPLPR_abab(1.90d-31,3.4d+00,4.0d-12,0.3d0,0.6d0))\n  RCONST(40) = (GCJPLPR_abcabc(9.05d-05,3.4d0,-10900.0d0,1.90d15,0.3d0,-10900.0d0,0.6d0))\n  RCONST(41) = (GCARR_ac(4.50d-13,610.0d0))\n  RCONST(42) = (3.50d-12)\n  RCONST(43) = (GCARR_ac(1.70d-11,125.0d0))\n  RCONST(44) = (2.00d-11)\n  RCONST(45) = (GCJPLPR_abab(2.40d-30,3.0d+00,1.6d-12,-0.1d0,0.6d0))\n  RCONST(46) = (GCJPLPR_abcabc(4.14d-04,3.0d0,-10840.0d0,2.76d14,-0.1d0,-10840.0d0,0.6d0))\n  RCONST(47) = (4.00d-13)\n  RCONST(48) = (GCARR_ac(2.90d-12,-345.0d0))\n  RCONST(49) = (GCARR_ac(4.35d-14,-1335.0d0))\n  RCONST(50) = (5.80d-16)\n  RCONST(51) = (GCARR_ac(4.63d-12,350.0d0))\n  RCONST(52) = (GCARR_ac(1.40d-12,-1900.0d0))\n  RCONST(53) = (GCJPLPR_abab(7.30d-29,4.1d+00,9.5d-12,1.6d0,0.6d0))\n  RCONST(54) = (GCJPLEQ_acabab(9.00d-29,14000.0d0,7.3d-29,4.1d0,9.5d-12,1.6d0,0.6d0))\n  RCONST(55) = (3.00d-14)\n  RCONST(56) = (GCARR_ac(8.10d-12,270.0d0))\n  RCONST(57) = (GCARR_ac(7.66d-12,-1020.0d0))\n  RCONST(58) = (GC_RO2NO_B2_aca(2.60d-12,365.0d0,2.0d0))\n  RCONST(59) = (GC_RO2NO_A2_aca(2.60d-12,365.0d0,2.0d0))\n  RCONST(60) = (GCARR_ac(2.60d-12,365.0d0))\n  RCONST(61) = (GCARR_abc(8.54d-13,1.54d0,-19.0d0))\n  RCONST(62) = (GCARR_abc(1.97d-12,1.23d0,-675.0d0))\n  RCONST(63) = (GC_RO2NO_B2_aca(2.90d-12,350.0d0,3.0d0))\n  RCONST(64) = (GC_RO2NO_A2_aca(2.90d-12,350.0d0,3.0d0))\n  RCONST(65) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(66) = (GCARR_ac(2.00d-11,-359.0d0))\n  RCONST(67) = (6.0d-17)\n  RCONST(68) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,7.0d0))\n  RCONST(69) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,7.0d0))\n  RCONST(70) = (3.0d-12)\n  RCONST(71) = (1.00d-11)\n  RCONST(72) = (4.00d-12)\n  RCONST(73) = (GCARR_ac(4.20d-12,180.0d0))\n  RCONST(74) = (GCARR_ac(7.40d-13,700.0d0))\n  RCONST(75) = (GCARR_ac(1.48d-11,448.0d0))\n  RCONST(76) = (1.03d-13)\n  RCONST(77) = (GCARR_ac(1.34d-14,-2283.0d0))\n  RCONST(78) = (GCARR_ac(2.70d-12,360.0d0))\n  RCONST(79) = (GCARR_ac(1.82d-13,1300d0))\n  RCONST(80) = (3.59d-11)\n  RCONST(81) = (2.00d-11)\n  RCONST(82) = (GCARR_ac(2.70d-12,360.0d0))\n  RCONST(83) = (GCARR_ac(1.51d-13,1300.0d0))\n  RCONST(84) = (GCARR_ac(5.2d-13,980.0d0))\n  RCONST(85) = (GCARR_ac(7.5d-12,290.0d0))\n  RCONST(86) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0))\n  RCONST(87) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0))\n  RCONST(88) = (1.47d-11)\n  RCONST(89) = (GCARR_ac(9.10d-12,-405.0d0))\n  RCONST(90) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,4.5d0))\n  RCONST(91) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,4.5d0))\n  RCONST(92) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(93) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,4.5d0))\n  RCONST(94) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,4.5d0))\n  RCONST(95) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(96) = (GCARR_ac(2.90d-12,300.0d0))\n  RCONST(97) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(98) = (GC_RO2NO_B2_aca(2.70d-12,360.0d0,3.0d0))\n  RCONST(99) = (GC_RO2NO_A2_aca(2.70d-12,360.0d0,3.0d0))\n  RCONST(100) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(101) = (GCARR_ac(2.80d-12,-3280.0d0))\n  RCONST(102) = (1.60d-12)\n  RCONST(103) = (1.60d-12)\n  RCONST(104) = (GCARR_ac(3.15d-14,920.0d0))\n  RCONST(105) = (GCARR_ac(6.00d-12,410.0d0))\n  RCONST(106) = (GCJPLPR_abab(9.00d-28,8.9d0,7.7d-12,0.2d0,0.6d0))\n  RCONST(107) = (GCJPLEQ_acabab(9.00d-29,14000.0d0,9.00d-28,8.9d0,7.7d-12,0.2d0,0.6d0))\n  RCONST(108) = (1.27d-12)\n  RCONST(109) = (GCARR_ac(6.70d-12,340.0d0))\n  RCONST(110) = (6.50d-15)\n  RCONST(111) = (1.33d-13+3.82d-11*exp(-2000.0d0/TEMP))\n  RCONST(112) = (5.92d-13)\n  RCONST(113) = (5.92d-13)\n  RCONST(114) = (GCARR_ac(7.40d-13,700.0d0))\n  RCONST(115) = (GCARR_ac(7.40d-13,700.0d0))\n  RCONST(116) = (GCARR_ac(7.40d-13,700.0d0))\n  RCONST(117) = (GCARR_ac(7.40d-13,700.0d0))\n  RCONST(118) = (GCARR_ac(8.60d-13,700.0d0))\n  RCONST(119) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,4.0d0))\n  RCONST(120) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0))\n  RCONST(121) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0))\n  RCONST(122) = (GCARR_ac(1.50d-12,-90.0d0))\n  RCONST(123) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(124) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0))\n  RCONST(125) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0))\n! RCONST(126) = constant rate coefficient\n  RCONST(127) = (GCARR_ac(7.50d-12,290.0d0))\n  RCONST(128) = (GCARR_ac(5.20d-13,980.0d0))\n  RCONST(129) = (3.00d-13)\n  RCONST(130) = (3.00d-13)\n  RCONST(131) = (8.00d-16)\n  RCONST(132) = (8.37d-14)\n  RCONST(133) = (8.37d-14)\n  RCONST(134) = (8.37d-14)\n  RCONST(135) = (8.37d-14)\n  RCONST(136) = (GCARR_ac(7.50d-13,500.0d0))\n  RCONST(137) = (8.37d-14)\n  RCONST(138) = (8.37d-14)\n  RCONST(139) = (8.37d-14)\n  RCONST(140) = (3.35d-12)\n  RCONST(141) = (GCARR_ac(4.40d-12,70.0d0))\n  RCONST(142) = (6.80d-14)\n  RCONST(143) = (6.80d-14)\n  RCONST(144) = (GCARR_ac(7.50d-13,700.0d0))\n  RCONST(145) = (GCARR_ac(7.50d-13,700.0d0))\n  RCONST(146) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0))\n  RCONST(147) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0))\n  RCONST(148) = (GCARR_ac(4.30d-13,1040.0d0))\n  RCONST(149) = (GCJPLPR_abab(4.60d-27,4.0d0,2.6d-11,1.3d0,0.5d0))\n  RCONST(150) = (GCARR_ac(6.50d-15,-1900.0d0))\n  RCONST(151) = (GC_GLYCOH_A_a(8.00d-12))\n  RCONST(152) = (GC_GLYCOH_B_a(8.00d-12))\n  RCONST(153) = (1.0d-11)\n  RCONST(154) = (GCARR_ac(1.44d-12,-1862.0d0))\n  RCONST(155) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0))\n  RCONST(156) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0))\n  RCONST(157) = (GCARR_ac(7.5d-12,290d0))\n  RCONST(158) = (GCARR_ac(5.2d-13,980d0))\n  RCONST(159) = (4.0d-12)\n  RCONST(160) = (1.12d-12)\n  RCONST(161) = (2.73d-12)\n  RCONST(162) = (GCARR_ac(4.59d-13,-1156.0d0))\n  RCONST(163) = (GCARR_ac(3.10d-12,340.0d0))\n  RCONST(164) = (GCARR_ac(1.90d-12,575.0d0))\n  RCONST(165) = (GC_GLYXNO3_ac(1.40d-12,-1860.0d0))\n  RCONST(166) = (GCARR_ac(3.36d-12,-1860.0d0))\n  RCONST(167) = (GC_HACOH_A_ac(2.00d-12,320.0d0))\n  RCONST(168) = (GC_HACOH_B_ac(2.00d-12,320.0d0))\n  RCONST(169) = (GCARR_ac(8.78d-12,200.0d0))\n  RCONST(170) = (GCARR_ac(5.18d-12,200.0d0))\n  RCONST(171) = (GCARR_ac(5.18d-12,200.0d0))\n  RCONST(172) = (GCARR_ac(8.78d-12,200.0d0))\n  RCONST(173) = (GCARR_ac(8.78d-12,200.0d0))\n  RCONST(174) = (GCARR_ac(8.78d-12,200.0d0))\n  RCONST(175) = (GCARR_ac(6.13d-13,200.0d0))\n  RCONST(176) = (GCARR_ac(8.78d-12,200.0d0))\n  RCONST(177) = (GCARR_ac(4.82d-11,-400.0d0))\n  RCONST(178) = (3.00d-14)\n  RCONST(179) = (1.40d-18)\n  RCONST(180) = (GCARR_ac(2.90d-12,500.0d0))\n  RCONST(181) = (GCARR_ac(2.00d-12,500.0d0))\n  RCONST(182) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(183) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(184) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(185) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(186) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(187) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(188) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(189) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(190) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(191) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(192) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(193) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(194) = (GCARR_ac(2.50d-12,500.0d0))\n  RCONST(195) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(196) = (GCARR_ac(8.50d-13,-2450.0d0))\n  RCONST(197) = (GCJPLPR_abab(1.00d-30,4.8d+00,7.2d-12,2.1d0,0.6d0))\n  RCONST(198) = (GCJPLPR_abcabc(1.05d-02,4.8d+00,-11234.0d0,7.58d16,2.1d0,-11234.0d0,0.6d0))\n  RCONST(199) = (GCARR_ac(1.20d-11,-280.0d0))\n  RCONST(200) = (GC_DMSOH_acac(8.20d-39,5376.0d0,1.05d-5,3644.0d0))\n  RCONST(201) = (GCARR_ac(1.90d-13,530.0d0))\n  RCONST(202) = (GCJPLPR_abab(2.90d-31,4.1d+00,1.7d-12,-0.2d0,0.6d0))\n  RCONST(203) = (GCARR_ac(1.60d-11,-780.0d0))\n  RCONST(204) = (GCARR_ac(4.50d-12,460.0d0))\n  RCONST(205) = (GCARR_ac(4.80d-12,-310.0d0))\n  RCONST(206) = (GCARR_ac(5.50d-12,200.0d0))\n  RCONST(207) = (GCARR_ac(2.40d-12,40.0d0))\n  RCONST(208) = (GCARR_ac(2.80d-14,860.0d0))\n  RCONST(209) = (GCARR_ac(8.80d-12,260.0d0))\n  RCONST(210) = (4.90d-11)\n  RCONST(211) = (GCARR_ac(2.10d-11,240.0d0))\n  RCONST(212) = (GCARR_ac(1.20d-10,-430.0d0))\n  RCONST(213) = (GCARR_ac(5.80d-12,-1500.0d0))\n  RCONST(214) = (GCARR_ac(1.70d-11,250.0d0))\n  RCONST(215) = (1.60d-11)\n  RCONST(216) = (GCARR_ac(1.70d-11,-800.0d0))\n  RCONST(217) = (GCARR_ac(1.80d-11,-460.0d0))\n  RCONST(218) = (GCARR_ac(1.66d-10,-7000.0d0))\n  RCONST(219) = (GCARR_ac(2.36d-10,-6411.0d0))\n  RCONST(220) = (GCARR_ac(8.77d-11,-4330.0d0))\n  RCONST(221) = (GCJPLPR_aba(4.20d-31,2.4d0,2.7d-11,0.6d0))\n  RCONST(222) = (GCJPLPR_abab(5.40d-31,3.1d0,6.5d-12,2.9d0,0.6d0))\n  RCONST(223) = (GCARR_ac(9.00d-13,-360.0d0))\n  RCONST(224) = (GCARR_ac(2.00d-12,-840.0d0))\n  RCONST(225) = (GCARR_ac(1.42d-12,-1150.0d0))\n  RCONST(226) = (GCARR_ac(1.63d-10,60.0d0))\n  RCONST(227) = (GCARR_ac(2.15d-11,110.0d0))\n  RCONST(228) = (GCARR_ac(3.30d-11,55.0d0))\n  RCONST(229) = (1.20d-10)\n  RCONST(230) = (GCARR_ac(1.19d-10,20.0d0))\n  RCONST(231) = (1.75d-10)\n  RCONST(232) = (GCARR_ab(6.00d-34,2.4d0)*NUMDEN)\n  RCONST(233) = (GCARR_ac(8.00d-12,-2060.0d0))\n  RCONST(234) = (GCARR_ac(2.80d-12,-1800.0d0))\n  RCONST(235) = (GCARR_ac(1.80d-11,180.0d0))\n  RCONST(236) = (GCARR_ac(3.00d-11,200.0d0))\n  RCONST(237) = (2.40d-10)\n  RCONST(238) = (GCARR_ac(2.10d-11,-2200.0d0))\n  RCONST(239) = (GCARR_ac(7.20d-14,-1070.0d0))\n  RCONST(240) = (GCJPLAC_ababac(3.4d-31,1.6d0,2.3d-11,0.2d0,5.3d-12,2.0d2,0.6d0))\n  RCONST(241) = (1.30d-11)\n  RCONST(242) = (GCJPLPR_aba(9.00d-32,1.5d+00,3.0d-11,0.6d0))\n  RCONST(243) = (GCJPLPR_abab(3.4d-31,1.6d0,2.3d-11,0.2d0,0.6d0))\n  RCONST(244) = (GCARR_ac(1.40d-12,-2000.0d0))\n  RCONST(245) = (GCJPLPR_abab(5.30d-32,1.8d+00,9.5d-11,-0.4d0,0.6d0))\n  RCONST(246) = (GCARR_ac(1.40d-10,-470.0d0))\n  RCONST(247) = (8.05d-11)\n  RCONST(248) = (GCARR_ac(3.30d-12,-3150.0d0))\n  RCONST(249) = (GCARR_ac(2.10d-11,100.0d0))\n  RCONST(250) = (GCARR_ac(5.80d-12,220.0d0))\n  RCONST(251) = (GCARR_ac(1.90d-11,230.0d0))\n  RCONST(252) = (GCARR_ac(3.40d-11,-1600.0d0))\n  RCONST(253) = (1.50d-10)\n  RCONST(254) = (1.50d-10)\n  RCONST(255) = (2.70d-10)\n  RCONST(256) = (3.30d-10)\n  RCONST(257) = (2.60d-10)\n  RCONST(258) = (1.80d-10)\n  RCONST(259) = (2.70d-10)\n  RCONST(260) = (6.60d-10)\n  RCONST(261) = (1.02d-10)\n  RCONST(262) = (2.30d-10)\n  RCONST(263) = (1.40d-10)\n  RCONST(264) = (1.50d-10)\n  RCONST(265) = (1.00d-10)\n  RCONST(266) = (2.60d-10)\n  RCONST(267) = (2.00d-10)\n  RCONST(268) = (2.00d-10)\n  RCONST(269) = (2.32d-10)\n  RCONST(270) = (GCARR_ac(1.30d-10,25.0d0))\n  RCONST(271) = (GCARR_ac(5.40d-11,30.0d0))\n  RCONST(272) = (GCARR_ac(1.60d-10,0.0d0))\n  RCONST(273) = (GCARR_ac(2.60d-12,-1100.0d0))\n  RCONST(274) = (GCARR_ac(1.80d-11,-600.0d0))\n  RCONST(275) = (GCARR_ac(7.40d-12,270.0d0))\n  RCONST(276) = (GCARR_ac(6.00d-13,230.0d0))\n  RCONST(277) = (GCARR_ac(1.40d-12,600.0d0))\n  RCONST(278) = (GCARR_ac(6.00d-13,670.0d0))\n  RCONST(279) = (GCARR_ac(1.80d-12,-250.0d0))\n  RCONST(280) = (GCARR_ac(3.00d-12,-500.0d0))\n  RCONST(281) = (GCARR_ac(2.40d-12,-1250.0d0))\n  RCONST(282) = (GCARR_ac(1.20d-12,-330.0d0))\n  RCONST(283) = (GCARR_ac(1.96d-12,-1200.0d0))\n  RCONST(284) = (GCARR_ac(1.92d-12,-880.0d0))\n  RCONST(285) = (GCARR_ac(2.20d-12,-920.0d0))\n  RCONST(286) = (GCARR_ac(1.64d-12,-1520.0d0))\n  RCONST(287) = (GCARR_ac(9.20d-13,-1560.0d0))\n  RCONST(288) = (GCARR_ac(1.25d-12,-1600.0d0))\n  RCONST(289) = (GCARR_ac(1.30d-12,-1770.0d0))\n  RCONST(290) = (GCARR_ac(7.40d-13,-900.0d0))\n  RCONST(291) = (GCARR_ac(7.10d-12,-1270.0d0))\n  RCONST(292) = (GCARR_ac(8.10d-11,-30.0d0))\n  RCONST(293) = (GCARR_ac(2.30d-11,-200.0d0))\n  RCONST(294) = (GCARR_ac(3.05d-11,-2270.0d0))\n  RCONST(295) = (GCARR_ac(1.10d-11,-980.0d0))\n  RCONST(296) = (GCARR_ac(1.40d-11,270.0d0))\n  RCONST(297) = (GCARR_ac(3.60d-11,-375.0d0))\n  RCONST(298) = (GCARR_ac(2.80d-11,85.0d0))\n  RCONST(299) = (GCARR_ac(2.60d-12,290.0d0))\n  RCONST(300) = (GCARR_ac(6.40d-12,290.0d0))\n  RCONST(301) = (GCJPLPR_abab(1.80d-31,3.4d+00,1.50d-11,1.9d0,0.6d0))\n  RCONST(302) = (GCARR_ac(1.00d-12,-1590.0d0))\n  RCONST(303) = (GCARR_ac(3.00d-11,-2450.0d0))\n  RCONST(304) = (GCARR_ac(3.50d-13,-1370.0d0))\n  RCONST(305) = (GCJPLPR_aba(2.20d-33,3.1d+00,1.8d-10,0.6d0))\n  RCONST(306) = (GCJPLEQ_acabab(6.60d-25,2502.0d0,2.20d-33,3.1d+00,1.8d-10,0.0d0,0.6d0))\n  RCONST(307) = (GCJPLPR_abab(1.90d-32,3.6d+00,3.7d-12,1.6d0,0.6d0))\n  RCONST(308) = (GCJPLEQ_acabab(2.16d-27,8537.0d0,1.90d-32,3.6d+00,3.7d-12,1.6d0,0.6d0))\n  RCONST(309) = (2.42d-10)\n  RCONST(310) = (GCARR_ac(9.50d-13,550.0d0))\n  RCONST(311) = (GCARR_ac(2.30d-12,260.0d0))\n  RCONST(312) = (GCARR_ac(4.10d-13,290.0d0))\n  RCONST(313) = (GCARR_ac(3.60d-12,-840.0d0))\n  RCONST(314) = (GCARR_ac(6.50d-12,135.0d0))\n  RCONST(315) = (GCARR_ac(2.03d-11,-1110.0d0))\n  RCONST(316) = (GCARR_ac(7.40d-12,-910.0d0))\n  RCONST(317) = (GCARR_ac(3.30d-12,-990.0d0))\n  RCONST(318) = (2.00d-13)\n  RCONST(319) = (1.60d-10)\n  RCONST(320) = (5.7d-11)\n  RCONST(321) = (GCARR_ac(7.2d-11,-70.0d0))\n  RCONST(322) = (7.4d-11)\n  RCONST(323) = (7.4d-11)\n  RCONST(324) = (5.5d-11)\n  RCONST(325) = (9.6d-11)\n  RCONST(326) = (2.8d-14)\n  RCONST(327) = (GCARR_ac(6.54d-11,60.0d0))\n  RCONST(328) = (GCARR_ac(8.12d-11,-90.0d0))\n  RCONST(329) = (GCARR_ac(1.63d-11,-610.0d0))\n  RCONST(330) = (GCARR_ac(7.60d-11,500.0d0))\n  RCONST(331) = (2.05d-10)\n  RCONST(332) = (GCJPLPR_aa(4.00d-28,2.8d-10,0.6d0))\n  RCONST(333) = (3.60d-12)\n  RCONST(334) = (GCJPLPR_aba(1.80d-32,1.0d0,1.70d-11,0.6d0))\n  RCONST(335) = (GCARR_ac(8.40d-11,-2620.0d0))\n  RCONST(336) = (GCJPLPR_aba(3.00d-31,1.0d0,6.6d-11,0.6d0))\n  RCONST(337) = (GCARR_ac(9.94d+17,-11859.0d0))\n  RCONST(338) = (GCARR_ac(2.90d-11,-2600.0d0))\n  RCONST(339) = (1.50d-12)\n  RCONST(340) = (GCJPLPR_abab(7.50d-31,3.5d0,7.6d-12,1.5d0,0.6d0))\n  RCONST(341) = (GCARR_ac(2.10d+15,-13670.0d0))\n  RCONST(342) = (GCARR_ac(9.10d-11,-146.0d0))\n  RCONST(343) = (1.20d-11)\n  RCONST(344) = (GCARR_ac(5.50d-12,760.0d0))\n  RCONST(345) = (1.00d-10)\n  RCONST(346) = (1.50d-10)\n  RCONST(347) = (3.80d-02)\n  RCONST(348) = (GCARR_ac(1.10d-12,542.0d0))\n  RCONST(349) = (GCARR_ac(4.82d-12,280.0d0))\n  RCONST(350) = (GCARR_ac(2.00d-11,-830.0d0))\n  RCONST(351) = (GCARR_ac(1.50d-11,-1090.0d0))\n  RCONST(352) = (1.80d-10)\n  RCONST(353) = (3.00d-11)\n  RCONST(354) = (5.00d-12)\n  RCONST(355) = (GCARR_ac(1.30d-11,570.0d0))\n  RCONST(356) = (GCARR_ac(8.60d-12,230.0d0))\n  RCONST(357) = (GCARR_ac(1.50d-11,500.0d0))\n  RCONST(358) = (GCARR_ac(2.51d+14,-9770.0d0))\n  RCONST(359) = (GCARR_ac(2.90d-12,-1100.0d0))\n  RCONST(360) = (2.40d-12)\n  RCONST(361) = (6.70d-13)\n  RCONST(362) = (1.20d-15)\n  RCONST(363) = (1.00d-14)\n  RCONST(364) = (4.25d-12)\n  RCONST(365) = (2.80d-16)\n  RCONST(366) = (GCARR_ac(2.88d-35,1391.0d0))\n  RCONST(367) = (1.40d-12)\n  RCONST(368) = (3.80d-11)\n  RCONST(369) = (1.20d-15)\n  RCONST(370) = (1.00d-14)\n  RCONST(371) = (4.25d-12)\n  RCONST(372) = (2.65d-11)\n  RCONST(373) = (6.00d-18)\n  RCONST(374) = (1.00d-17)\n  RCONST(375) = (GCARR_ac(8.33d-13,490.0d0))\n  RCONST(376) = (GCARR_ac(8.33d-13,490.0d0))\n  RCONST(377) = (1.22d-11)\n  RCONST(378) = (GCARR_ac(4.20d-11,401.0d0))\n  RCONST(379) = (GCARR_ac(2.95d-15,-783.0d0))\n  RCONST(380) = (GCARR_ac(1.21d-11,440.0d0))\n  RCONST(381) = (GCARR_ac(2.7d-15,-520.0d0))\n  RCONST(382) = (GCARR_ac(1.34d-11,410.0d0))\n  RCONST(383) = (GCARR_ac(8.22d-16,-640.0d0))\n  RCONST(384) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(385) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(386) = (2.3d-12)\n  RCONST(387) = (1.83d-11)\n  RCONST(388) = (5.50d-12)\n  RCONST(389) = (2.0d-14)\n  RCONST(390) = (GCARR_ac(5.2d-12,600.0d0))\n  RCONST(391) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(392) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(393) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0))\n  RCONST(394) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0))\n  RCONST(395) = (2.3d-12)\n  RCONST(396) = (9.73d-12)\n  RCONST(397) = (6.65d-12)\n  RCONST(398) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(399) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(400) = (2.3d-12)\n  RCONST(401) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(402) = (2.6d-11)\n  RCONST(403) = (2.88d-12)\n  RCONST(404) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(405) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(406) = (2.3d-12)\n  RCONST(407) = (4.7d-12)\n  RCONST(408) = (1.33d-11)\n  RCONST(409) = (1.55d-11)\n  RCONST(410) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(411) = (GCARR_ac(4.32d-13,360.0d0))\n  RCONST(412) = (GCARR_ac(2.27d-12,360.0d0))\n  RCONST(413) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(414) = (2.3d-12)\n  RCONST(415) = (8.59d-11)\n  RCONST(416) = (3.24d-12)\n  RCONST(417) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(418) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(419) = (2.3d-12)\n  RCONST(420) = (1.1d-10)\n  RCONST(421) = (8.3d-18)\n  RCONST(422) = (2.6d-13)\n  RCONST(423) = (9.97d-11)\n  RCONST(424) = (1.5d-16)\n  RCONST(425) = (9.4d-12)\n  RCONST(426) = (1.1d-10)\n  RCONST(427) = (8.3d-18)\n  RCONST(428) = (2.6d-13)\n  RCONST(429) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(430) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(431) = (2.3d-12)\n  RCONST(432) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(433) = (3.6d-11)\n  RCONST(434) = (GCARR_ac(1.22d-11,-1862.0d0))\n  RCONST(435) = (6.3d-12)\n  RCONST(436) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(437) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(438) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0))\n  RCONST(439) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0))\n  RCONST(440) = (2.3d-12)\n  RCONST(441) = (9.73d-12)\n  RCONST(442) = (6.65d-12)\n  RCONST(443) = (GCARR_ac(2.66d-13,1300.0d0))\n  RCONST(444) = (GCARR_ac(6.75d-13,360.0d0))\n  RCONST(445) = (GCARR_ac(2.03d-12,360.0d0))\n  RCONST(446) = (2.3d-12)\n  RCONST(447) = (GCARR_ac(6.05d-12,440.0d0))\n  RCONST(448) = (GCARR_ac(1.35d-15,-520.0d0))\n  RCONST(449) = (GCARR_ac(1.06d-12,490.0d0))\n  RCONST(450) = (GCARR_ac(6.05d-12,440.0d0))\n  RCONST(451) = (GCARR_ac(1.35d-15,-520.0d0))\n  RCONST(452) = (GCARR_ac(1.06d-12,490.0d0))\n  RCONST(453) = (GCARR_ac(6.05d-12,440.0d0))\n  RCONST(454) = (GCARR_ac(1.35d-15,-520.0d0))\n  RCONST(455) = (GCARR_ac(1.06d-12,490.0d0))\n  RCONST(456) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(457) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(458) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(459) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(460) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(461) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(462) = (GCARR_ac(3.75d-13,500.0d0))\n  RCONST(463) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(464) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(465) = (GCARR_ac(3.75d-14,500.0d0))\n  RCONST(466) = (GCARR_ac(1.87d-12,500.0d0))\n  RCONST(467) = (GCARR_ac(3.75d-14,500.0d0))\n  RCONST(468) = (4.00d-12)\n  RCONST(469) = (4.00d-12)\n  RCONST(470) = (GCARR_ac(1.66d-13,1300.0d0))\n  RCONST(471) = (GCARR_ac(1.66d-13,1300.0d0))\n  RCONST(472) = (GCARR_ac(1.60d-13,708.0d0))\n  RCONST(473) = (GCARR_ac(9.68d-14,708.0d0))\n  RCONST(474) = (GCARR_ac(8.85d-13,765.0d0))\n  RCONST(475) = (GCARR_ac(5.37d-13,765.0d0))\n  RCONST(476) = (1.20d-12)\n  RCONST(477) = (1.20d-12)\n  RCONST(478) = (GCARR_ac(7.00d-14,1000.0d0))\n  RCONST(479) = (GCARR_ac(4.25d-14,1000.0d0))\n  RCONST(480) = (GCARR_ac(2.96d-14,1000.0d0))\n  RCONST(481) = (4.80d-12)\n  RCONST(482) = (7.29d-11)\n  RCONST(483) = (1.67d-16)\n  RCONST(484) = (GCARR_ac(3.15d-13,-448.0d0))\n  RCONST(485) = (GCARR_ac(3.15d-13,-448.0d0))\n  RCONST(486) = (2.78d-04)\n  RCONST(487) = (2.78d-04)\n  RCONST(488) = (GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0)+GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,&\n                  &2.4d2,0.6d0))\n  RCONST(489) = (GCARR_ac(8.00d-13,-1000.0d0))\n  RCONST(490) = (GCARR_ac(1.00d-12,-490.0d0))\n  RCONST(491) = (GCARR_ac(1.20d-12,-320.0d0))\n  RCONST(492) = (7.10d-13)\n  RCONST(493) = (GCARR_ac(1.10d-14,-2000.0d0))\n  RCONST(494) = (GC_ISO1(1.7d-11,3.90d2,9.33d-2,5.05d15,-1.22d4,1.79d14,-8.830d3))\n  RCONST(495) = (GC_ISO1(1.0d-11,3.90d2,2.26d-1,2.22d9,-7.160d3,1.75d14,-9.054d3))\n  RCONST(496) = (GC_ISO2(1.7d-11,3.90d2,9.33d-2,5.05d15,-1.22d4,1.79d14,-8.830d3))\n  RCONST(497) = (GC_ISO2(1.0d-11,3.90d2,2.26d-1,2.22d9,-7.160d3,1.75d14,-9.054d3))\n  RCONST(498) = (ARRPLUS_abde(2.12d-13,-1300d0,1.1644d0,-7.0485d-4))\n  RCONST(499) = (ARRPLUS_abde(2.12d-13,-1300d0,-0.1644d0,7.0485d-4))\n  RCONST(500) = (ARRPLUS_abde(2.12d-13,-1300d0,1.2038d0,-9.0435d-4))\n  RCONST(501) = (ARRPLUS_abde(2.12d-13,-1300d0,-0.2038d0,9.0435d-4))\n  RCONST(502) = (ARRPLUS_abde(1.04d11,9.746d3,1.1644d0,-7.0485d-4))\n  RCONST(503) = (TUNPLUS_abcde(5.05d15,-1.22d4,1.0d8,-0.0128d0,5.1242d-5))\n  RCONST(504) = (ARRPLUS_abde(1.88d11,9.752d3,1.2038d0,-9.0435d-4))\n  RCONST(505) = (TUNPLUS_abcde(2.22d9,-7.160d3,1.0d8,-0.0306d0,1.1346d-4))\n  RCONST(506) = (ARRPLUS_ade(6.92d-14,1.1644d0,-7.0485d-4))\n  RCONST(507) = (ARRPLUS_ade(5.74d-12,1.2038d0,-9.0435d-4))\n  RCONST(508) = (ARRPLUS_ade(1.54d-12,2.3682d0,-1.6092d-3))\n  RCONST(509) = (ARRPLUS_ade(2.49d-12,-0.1644d0,7.0485d-4))\n  RCONST(510) = (ARRPLUS_ade(3.94d-12,-0.2038d0,9.0435d-4))\n  RCONST(511) = (ARRPLUS_ade(1.54d-12,-0.3682d0,1.6092d-3))\n  RCONST(512) = (ARRPLUS_ade(2.0d-12,1.1644d0,-7.0485d-4))\n  RCONST(513) = (ARRPLUS_ade(2.0d-12,-0.1644d0,7.0485d-4))\n  RCONST(514) = (ARRPLUS_ade(2.0d-12,1.2038d0,-9.0435d-4))\n  RCONST(515) = (ARRPLUS_ade(2.0d-12,-0.2038d0,9.0435d-4))\n  RCONST(516) = (GC_NIT(2.7d-12,3.50d2,1.19d0,6.0d0,1.1644d0,7.05d-4))\n  RCONST(517) = (GC_ALK(2.7d-12,3.50d2,1.19d0,6.0d0,1.1644d0,7.05d-4))\n  RCONST(518) = (GC_NIT(2.7d-12,3.50d2,1.421d0,6.0d0,-0.1644d0,-7.05d-4))\n  RCONST(519) = (GC_ALK(2.7d-12,3.50d2,1.421d0,6.0d0,-0.1644d0,-7.05d-4))\n  RCONST(520) = (GC_NIT(2.7d-12,3.50d2,1.297d0,6.0d0,1.2038d0,9.04d-4))\n  RCONST(521) = (GC_ALK(2.7d-12,3.50d2,1.297d0,6.0d0,1.2038d0,9.04d-4))\n  RCONST(522) = (GC_NIT(2.7d-12,3.50d2,1.421d0,6.0d0,-0.2038d0,-9.04d-4))\n  RCONST(523) = (GC_ALK(2.7d-12,3.50d2,1.421d0,6.0d0,-0.2038d0,-9.04d-4))\n  RCONST(524) = (GCARR_ac(1.17d-11,450.0d0))\n  RCONST(525) = (GCARR_ac(1.17d-11,450.0d0))\n  RCONST(526) = (GCARR_ac(2.20d-11,390.0d0))\n  RCONST(527) = (GCARR_ac(3.50d-11,390.0d0))\n  RCONST(528) = (GCARR_ac(4.64d-12,650.0d0))\n  RCONST(529) = (GCARR_ac(9.85d-12,410.0d0))\n  RCONST(530) = (GCARR_ac(3.00d-12,650.0d0))\n  RCONST(531) = (GCARR_ac(2.47d-12,390.0d0))\n  RCONST(532) = (GC_EPO_a(1.62d-11,3.90d2,4.77d-21))\n  RCONST(533) = (GCARR_ac(4.35d-12,390.0d0))\n  RCONST(534) = (GC_EPO_a(2.85d-11,390.0d0,4.77d-21))\n  RCONST(535) = (GCARR_ac(6.10d-12,200.0d0))\n  RCONST(536) = (GCARR_ac(4.10d-12,200.0d0))\n  RCONST(537) = (GCARR_ac(3.53d-11,390.0d0))\n  RCONST(538) = (GCARR_ac(3.53d-11,390.0d0))\n  RCONST(539) = (GCARR_ac(1.59d+13,-10000.0d0))\n  RCONST(540) = (GC_ALK(2.7d-12,3.50d2,2.1d0,9.0d0,1.0d0,0.0d0))\n  RCONST(541) = (GC_NIT(2.7d-12,3.50d2,2.1d0,9.0d0,1.0d0,0.0d0))\n  RCONST(542) = (GCARR_ac(2.47d-13,1300.0d0))\n  RCONST(543) = (GCARR_ac(2.91d+13,-10000.0d0))\n  RCONST(544) = (GC_ALK(2.7d-12,3.50d2,2.315d0,9.0d0,1.0d0,0.0d0))\n  RCONST(545) = (GC_NIT(2.7d-12,3.50d2,2.315d0,9.0d0,1.0d0,0.0d0))\n  RCONST(546) = (GCARR_ac(2.47d-13,1300.0d0))\n  RCONST(547) = (GCARR_ac(1.875d+13,-10000.0d0))\n  RCONST(548) = (GC_ALK(2.7d-12,3.50d2,3.079d0,9.0d0,1.0d0,0.0d0))\n  RCONST(549) = (GC_NIT(2.7d-12,3.50d2,3.079d0,9.0d0,1.0d0,0.0d0))\n  RCONST(550) = (GCARR_ac(2.47d-13,1300.0d0))\n  RCONST(551) = (GCARR_ac(3.22d-11,-400.0d0))\n  RCONST(552) = (GCARR_ac(1.05d-11,-400.0d0))\n  RCONST(553) = (GC_EPO_a(5.82d-11,-4.00d2,1.14d-20))\n  RCONST(554) = (GCARR_ac(8.25d-12,-400.0d0))\n  RCONST(555) = (GC_EPO_a(3.75d-11,-4.00d2,8.91d-21))\n  RCONST(556) = (GCARR_ac(1.875d+13,-10000.0d0))\n  RCONST(557) = (GCARR_ac(1.0d+7,-5000.0d0))\n  RCONST(558) = (GCARR_ac(2.38d-13,1300.0d0))\n  RCONST(559) = (GC_ALK(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0))\n  RCONST(560) = (GC_NIT(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0))\n  RCONST(561) = (GCARR_ac(1.875d+13,-10000.0d0))\n  RCONST(562) = (GCARR_ac(1.0d+7,-5000.0d0))\n  RCONST(563) = (GC_ALK(2.7d-12,3.50d2,16.463d0,8.0d0,1.0d0,0.0d0))\n  RCONST(564) = (GC_NIT(2.7d-12,3.50d2,16.463d0,8.0d0,1.0d0,0.0d0))\n  RCONST(565) = (GCARR_ac(2.38d-13,1300.0d0))\n  RCONST(566) = (GCARR_ac(2.38d-13,1300.0d0))\n  RCONST(567) = (GC_NIT(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0))\n  RCONST(568) = (GC_ALK(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0))\n  RCONST(569) = (GCARR_ac(1.875d+13,-10000.0d0))\n  RCONST(570) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(571) = (GCARR_ac(2.38d-13,1300.0d0))\n  RCONST(572) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(573) = (GCARR_ac(2.38d-13,1300.0d0))\n  RCONST(574) = (GCARR_ac(7.14d-12,390.0d0))\n  RCONST(575) = (GC_EPO_a(6.30d-12,390.0d0,1.62d-19))\n  RCONST(576) = (GCARR_ac(1.02d-11,390.0d0))\n  RCONST(577) = (GC_EPO_a(1.05d-11,390.0d0,2.49d-19))\n  RCONST(578) = (GC_EPO_a(1.55d-11,390.0d0,2.715d-19))\n  RCONST(579) = (GCARR_ac(2.04d-11,390.0d0))\n  RCONST(580) = (GC_EPO_a(9.52d-12,390.0d0,2.715d-19))\n  RCONST(581) = (GCARR_ac(2.95d-11,390.0d0))\n  RCONST(582) = (GCARR_ac(7.5d-12,20.0d0))\n  RCONST(583) = (GCARR_ac(7.5d-12,20.0d0))\n  RCONST(584) = (GCARR_ac(1.875d+13,-10000.0d0))\n  RCONST(585) = (GCARR_ac(2.60d-13,1300.0d0))\n  RCONST(586) = (GC_ALK(2.7d-12,350.0d0,6.32d0,11.0d0,1.0d0,0.0d0))\n  RCONST(587) = (GC_NIT(2.7d-12,350.0d0,6.32d0,11.0d0,1.0d0,0.0d0))\n  RCONST(588) = (GCARR_ac(1.875d+13,-10000.0d0))\n  RCONST(589) = (GCARR_ac(2.60d-13,1300.0d0))\n  RCONST(590) = (GC_ALK(2.7d-12,350.0d0,7.941d0,11.0d0,1.0d0,0.0d0))\n  RCONST(591) = (GC_NIT(2.7d-12,350.0d0,7.941d0,11.0d0,1.0d0,0.0d0))\n  RCONST(592) = (GCARR_ac(1.256d+13,-10000.0d0))\n  RCONST(593) = (GCARR_ac(5.092d+12,-10000.0d0))\n  RCONST(594) = (GCARR_ac(2.60d-13,1300.0d0))\n  RCONST(595) = (GC_ALK(2.7d-12,350.0d0,4.712d0,11.0d0,1.0d0,0.0d0))\n  RCONST(596) = (GC_NIT(2.7d-12,350.0d0,4.712d0,11.0d0,1.0d0,0.0d0))\n  RCONST(597) = (GCARR_ac(2.60d-13,1300.0d0))\n  RCONST(598) = (GC_ALK(2.7d-12,350.0d0,2.258d0,11.0d0,1.0d0,0.0d0))\n  RCONST(599) = (GC_NIT(2.7d-12,350.0d0,2.258d0,11.0d0,1.0d0,0.0d0))\n  RCONST(600) = (GCARR_ac(2.60d-13,1300.0d0))\n  RCONST(601) = (GC_ALK(2.7d-12,350.0d0,1.851d0,11.0d0,1.0d0,0.0d0))\n  RCONST(602) = (GC_NIT(2.7d-12,350.0d0,1.851d0,11.0d0,1.0d0,0.0d0))\n  RCONST(603) = (GCARR_ac(2.95d-12,-450.0d0))\n  RCONST(604) = (GCARR_ac(2.47d-13,1300.0d0))\n  RCONST(605) = (GCARR_ac(2.47d-13,1300.0d0))\n  RCONST(606) = (1.61d-12)\n  RCONST(607) = (2.56d-12)\n  RCONST(608) = (3.71d-12)\n  RCONST(609) = (1.18d-12)\n  RCONST(610) = (2.80d-13)\n  RCONST(611) = (1.92d-12)\n  RCONST(612) = (7.71d-12)\n  RCONST(613) = (2.3d-12)\n  RCONST(614) = (2.3d-12)\n  RCONST(615) = (GC_ALK(2.7d-12,350.0d0,12.915d0,9.0d0,1.0d0,0.0d0))\n  RCONST(616) = (GC_NIT(2.7d-12,350.0d0,12.915d0,9.0d0,1.0d0,0.0d0))\n  RCONST(617) = (GC_ALK(2.7d-12,350.0d0,1.412d0,9.0d0,1.0d0,0.0d0))\n  RCONST(618) = (GC_NIT(2.7d-12,350.0d0,1.412d0,9.0d0,1.0d0,0.0d0))\n  RCONST(619) = (GCARR_ac(2.50d-14,-300.0d0))\n  RCONST(620) = (GCARR_ac(1.00d+20,-10000.0d0))\n  RCONST(621) = (GCARR_ac(5.88d-12,390.0d0))\n  RCONST(622) = (GCARR_ac(1.61d-11,390.0d0))\n  RCONST(623) = (GC_EPO_a(4.471d-12,390.0d0,2.28d-20))\n  RCONST(624) = (GC_EPO_a(8.77d-12,390.0d0,2.185d-20))\n  RCONST(625) = (GC_EPO_a(1.493d-11,390.0d0,2.715d-19))\n  RCONST(626) = (GCARR_ac(2.278d-12,200.0d0))\n  RCONST(627) = (GCARR_ac(3.40d-12,200.0d0))\n  RCONST(628) = (GCARR_ac(7.50d-12,20.0d0))\n  RCONST(629) = (GCARR_ac(6.55d+12,-10000.0d0))\n  RCONST(630) = (GCARR_ac(8.72d+12,-10000.0d0))\n  RCONST(631) = (GCARR_ac(2.64d-13,1300.0d0))\n  RCONST(632) = (GCARR_ac(2.64d-13,1300.0d0))\n  RCONST(633) = (GC_ALK(2.7d-12,350.0d0,6.092d0,12.0d0,1.0d0,0.0d0))\n  RCONST(634) = (GC_NIT(2.7d-12,350.0d0,6.092d0,12.0d0,1.0d0,0.0d0))\n  RCONST(635) = (GC_ALK(2.7d-12,350.0d0,4.383d0,12.0d0,1.0d0,0.0d0))\n  RCONST(636) = (GC_NIT(2.7d-12,350.0d0,4.383d0,12.0d0,1.0d0,0.0d0))\n  RCONST(637) = (GC_EPO_a(2.97d-12,390.0d0,2.715d-19))\n  RCONST(638) = (GCARR_ac(9.35d-12,390.0d0))\n  RCONST(639) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(640) = (GCARR_ac(2.54d-13,1300.0d0))\n  RCONST(641) = (GCARR_ac(1.00d-11,0.0d0))\n  RCONST(642) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(643) = (GCARR_ac(2.71d-13,1300.0d0))\n  RCONST(644) = (GCARR_ac(2.60d-12,610.0d0))\n  RCONST(645) = (GCARR_ac(8.50d-16,-1520.0d0))\n  RCONST(646) = (GCARR_ac(4.40d-12,380.0d0))\n  RCONST(647) = (GCARR_ac(2.70d-12,470.0d0))\n  RCONST(648) = (GCARR_ac(1.50d-15,-2110.0d0))\n  RCONST(649) = (GCARR_ac(1.80d-13,-1190.0d0))\n  RCONST(650) = (GCARR_ac(1.24d-12,380.0d0))\n  RCONST(651) = (5.77d-11)\n  RCONST(652) = (GCARR_ac(2.70d-12,470.0d0))\n  RCONST(653) = (GCARR_ac(1.39d-11,380.0d0))\n  RCONST(654) = (GCARR_ac(2.70d-12,470.0d0))\n  RCONST(655) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(656) = (GCARR_ac(1.93d-13,1300.0d0))\n  RCONST(657) = (9.00d-12)\n  RCONST(658) = (GCARR_ac(2.70d-12,350.0d0))\n  RCONST(659) = (GCARR_ac(1.93d-13,1300.0d0))\n  RCONST(660) = (9.00d-12)\n  RCONST(661) = (GCARR_ac(3.71d-12,983.0d0))\n  RCONST(662) = (GCARR_ac(5.00d-12,470.0d0))\n  RCONST(663) = (GCARR_ac(8.70d-12,70.0d0))\n  RCONST(664) = (GCARR_ac(5.00d-12,470.0d0))\n  RCONST(665) = (GCARR_ac(2.00d-12,70.0d0))\n  RCONST(666) = (GCARR_ac(2.4d-11,70.0d0))\n  RCONST(667) = (GCARR_ac(2.12d-13,1300.0d0))\n  RCONST(668) = (GC_ALK(2.7d-12,350.0d0,4.573d0,6.0d0,1.0d0,0.0d0))\n  RCONST(669) = (GC_NIT(2.7d-12,350.0d0,4.573d0,6.0d0,1.0d0,0.0d0))\n  RCONST(670) = (GCARR_ac(2.12d-13,1300.0d0))\n  RCONST(671) = (GCARR_ac(3.14d-12,580.0d0))\n  RCONST(672) = (1.66d-11)\n  RCONST(673) = (GCARR_ac(2.90d+7,-5297.0d0))\n  RCONST(674) = (GC_ALK(2.7d-12,350.0d0,2.985d0,6.0d0,1.0d0,0.0d0))\n  RCONST(675) = (GC_NIT(2.7d-12,350.0d0,2.985d0,6.0d0,1.0d0,0.0d0))\n  RCONST(676) = (GCARR_ac(8.7d-12,290.0d0))\n  RCONST(677) = (GC_PAN_acac(2.591d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0))\n  RCONST(678) = (GCARR_ac(3.14d-12,580.0d0))\n  RCONST(679) = (GCARR_ac(7.50d-12,290.0d0))\n  RCONST(680) = (GC_PAN_acac(2.591d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0))\n  RCONST(681) = (4.00d-12)\n  RCONST(682) = (GCARR_ac(2.9d-12,500.0d0))\n  RCONST(683) = (GCARR_ac(1.58d+16,-13500.0d0))\n  RCONST(684) = (2.90d-11)\n  RCONST(685) = (4.33d-12)\n  RCONST(686) = (1.00d-11)\n  RCONST(687) = (2.25d-11)\n  RCONST(688) = (3.00d-12)\n  RCONST(689) = (3.00d-12)\n  RCONST(690) = (1.00d-11)\n  RCONST(691) = (3.00d-12)\n  RCONST(692) = (GCARR_ac(1.40d-12,-1860.0d0))\n  RCONST(693) = (8.00d-13)\n  RCONST(694) = (GCARR_ac(1.30d-12,500.0d0))\n  RCONST(695) = (GCARR_ac(3.14d-12,580.0d0))\n  RCONST(696) = (GCARR_ac(1.55d-12,340.0d0))\n  RCONST(697) = (2.91d-11)\n  RCONST(698) = (GCARR_ac(1.56d-11,117.0d0))\n  RCONST(699) = (GCARR_ac(1.40d-12,700.0d0))\n  RCONST(700) = (GCARR_ac(2.60d-12,350.0d0))\n  RCONST(701) = (1.20d-12)\n  RCONST(702) = (5.8d-11)\n  RCONST(703) = (1.5d-12)\n  RCONST(704) = (1.7d-17)\n  RCONST(705) = (7.0d-12)\n  RCONST(706) = (1.2d-16)\n  RCONST(707) = (3.92d-11)\n  RCONST(708) = (1.4d-15)\n  RCONST(709) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(710) = (GCARR_ac(1.5d-13,1310.0d0))\n  RCONST(711) = (7.16d-11)\n  RCONST(712) = (GCARR_ac(1.20d-14,-2630.0d0))\n  RCONST(713) = (GCJPLPR_abab(1.10d-28,3.5d+00,8.4d-12,1.75d0,0.5d0))\n  RCONST(714) = (GCJPLPR_abab(5.50d-30,0.0d0,8.3d-13,-2.0d0,0.5d0))\n  RCONST(715) = (GCARR_ac(1.53d-13,1300.0d0))\n  RCONST(716) = (GCARR_ac(2.7d-12,360.0d0))\n  RCONST(717) = (2.3d-12)\n  RCONST(718) = (6.00d-13)\n  RCONST(719) = (GCARR_ac(9.5d+13,-5988.0d0))\n  RCONST(720) = (GCARR_ac(2.5d-14,-300.0d0))\n  RCONST(721) = (8.40d-13)\n  RCONST(722) = (GCARR_ac(1.90d-12,190.0d0))\n  RCONST(723) = (1.38d-11)\n  RCONST(724) = (GCARR_ac(2.3d-12,-193.0d0))\n  RCONST(725) = (GCARR_ac(1.8d-12,340.0d0))\n  RCONST(726) = (1.7d-11)\n  RCONST(727) = (2.91d-13*EXP(1300.0d0/TEMP)*0.82d0)\n  RCONST(728) = (GCARR_ac(2.60d-12,365.0d0))\n  RCONST(729) = (2.30d-12)\n  RCONST(730) = (GCARR_ac(1.70d-14,220.0d0))\n  RCONST(731) = (GCARR_ac(4.20d-14,220.0d0))\n  RCONST(732) = (6.9d-11)\n  RCONST(733) = (GCARR_abc(2.7d-12,0.0d0,360.0d0))\n  RCONST(734) = (GCARR_abc(2.05d-13,0.0d0,1300.0d0))\n! RCONST(735) = constant rate coefficient\n  RCONST(736) = (GCARR_abc(7.50d-12,0.0d0,290.0d0))\n  RCONST(737) = (GCARR_abc(5.20d-13,0.0d0,980.0d0))\n  RCONST(738) = (GC_PAN_acac(3.28d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0))\n  RCONST(739) = (GC_PAN_abab(1.10d-5,-10100.0d0,1.90d+17,-14100.0d0,0.3d0)*0.67d0)\n  RCONST(740) = (1.0d-14)\n  RCONST(741) = (GCARR_ac(4.70d-13,1220.0d0))\n  RCONST(742) = (3.8d-12)\n  RCONST(743) = (4.7d-11)\n  RCONST(744) = (1.4d-11)\n  RCONST(745) = (2.0d-11)\n  RCONST(746) = (9.2d-18)\n  RCONST(747) = (9.9d-11)\n  RCONST(748) = (GCARR_ac(5.90d-12,225.0d0))\n  RCONST(749) = (2.4d-15)\n  RCONST(750) = (GCARR_ac(1.10d-11,340.0d0))\n  RCONST(751) = (GCARR_ac(7.50d-12,290.0d0))\n  RCONST(752) = (GC_PAN_acac(3.28d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0))\n  RCONST(753) = (4.66d-12)\n  RCONST(754) = (GC_PAN_abab(1.10d-5,-10100.0d0,1.90d+17,-14100.0d0,0.3d0)*0.67d0)\n  RCONST(755) = (1.06d-12)\n  RCONST(756) = (7.00d-12)\n  RCONST(757) = (GCARR_ac(2.670d-12,365.0d0))\n  RCONST(758) = (2.30d-12)\n  RCONST(759) = (GCARR_ac(2.24d-13,1300.0d0))\n  RCONST(760) = (3.60d-12)\n  RCONST(761) = (2.86d-13)\n  RCONST(762) = (2.08d-12)\n  RCONST(763) = (3.47d-12)\n  RCONST(764) = (2.60d-12)\n  RCONST(765) = (GCARR_ac(2.670d-13,365.0d0))\n  RCONST(766) = (GCARR_ac(2.670d-12,365.0d0))\n  RCONST(767) = (5.0d-11)\n  RCONST(768) = (8.0d-16)\n  RCONST(769) = (1.5d-3)\n  RCONST(770) = (5.0d-11)\n  RCONST(771) = (8.0d-16)\n  RCONST(772) = (1.5d-3)\n  RCONST(773) = (GCARR_ac(1.40d-12,700.0d0))\n  RCONST(774) = (GCARR_ac(2.60d-12,350.0d0))\n  RCONST(775) = (GCARR_ac(1.40d-12,700.0d0))\n  RCONST(776) = (GCARR_ac(2.60d-12,350.0d0))\n  RCONST(777) = (GCARR_ac(1.40d-12,700.0d0))\n  RCONST(778) = (GCARR_ac(2.60d-12,350.0d0))\n  RCONST(779) = (1.20d-12)\n  RCONST(780) = (GCARR_ac(1.32d-11,334.0d0))\n  RCONST(781) = (HO2uptk1stOrd(State_Het))\n  RCONST(782) = (NO2uptk1stOrdAndCloud(State_Het))\n  RCONST(783) = (NO3uptk1stOrdAndCloud(State_Het))\n  RCONST(784) = (NO3hypsisClonSALA(State_Het))\n  RCONST(785) = (NO3hypsisClonSALC(State_Het))\n  RCONST(786) = (N2O5uptkByH2O(State_Het))\n  RCONST(787) = (N2O5uptkByStratHCl(State_Het))\n  RCONST(788) = (N2O5uptkByCloud(State_Het))\n  RCONST(789) = (N2O5uptkBySALACl(State_Het))\n  RCONST(790) = (N2O5uptkBySALCCl(State_Het))\n  RCONST(791) = (OHuptkBySALACl(State_Het))\n  RCONST(792) = (OHuptkBySALCCl(State_Het))\n  RCONST(793) = (BrNO3uptkByH2O(State_Het))\n  RCONST(794) = (BrNO3uptkByHCl(State_Het))\n  RCONST(795) = (ClNO3uptkByH2O(State_Het))\n  RCONST(796) = (ClNO3uptkByHCl(State_Het))\n  RCONST(797) = (ClNO3uptkByHBr(State_Het))\n  RCONST(798) = (ClNO3uptkByBrSALA(State_Het))\n  RCONST(799) = (ClNO3uptkByBrSALC(State_Het))\n  RCONST(800) = (ClNO3uptkBySALACL(State_Het))\n  RCONST(801) = (ClNO3uptkBySALCCL(State_Het))\n  RCONST(802) = (ClNO2uptkBySALACL(State_Het))\n  RCONST(803) = (ClNO2uptkBySALCCL(State_Het))\n  RCONST(804) = (ClNO2uptkByHCl(State_Het))\n  RCONST(805) = (ClNO2uptkByBrSALA(State_Het))\n  RCONST(806) = (ClNO2uptkByBrSALC(State_Het))\n  RCONST(807) = (ClNO2uptkByHBr(State_Het))\n  RCONST(808) = (HOClUptkByHCl(State_Het))\n  RCONST(809) = (HOClUptkByHBr(State_Het))\n  RCONST(810) = (HOClUptkBySALACL(State_Het))\n  RCONST(811) = (HOClUptkBySALCCL(State_Het))\n  RCONST(812) = (HOClUptkByHSO3m(State_Het)+HOClUptkBySO3mm(State_Het)+SRHOCl)\n  RCONST(813) = (HOBrUptkByHBr(State_Het))\n  RCONST(814) = (HOBrUptkByHCl(State_Het))\n  RCONST(815) = (HOBrUptkBySALACL(State_Het))\n  RCONST(816) = (HOBrUptkBySALCCL(State_Het))\n  RCONST(817) = (HOBrUptkByBrSALA(State_Het))\n  RCONST(818) = (HOBrUptkByBrSALC(State_Het))\n  RCONST(819) = (HOBrUptkByHSO3m(State_Het)+HOBrUptkBySO3mm(State_Het)+SRHOBr)\n  RCONST(820) = (O3uptkByHBr(State_Het))\n  RCONST(821) = (O3uptkByBrSALA(State_Het))\n  RCONST(822) = (O3uptkByBrSALC(State_Het))\n  RCONST(823) = (HBrUptkBySALA(State_Het))\n  RCONST(824) = (HBrUptkBySALC(State_Het))\n  RCONST(825) = (IuptkBySulf1stOrd(SR_MW(ind_HI),0.10_dp,State_Het))\n  RCONST(826) = (IuptkBySALA1stOrd(SR_MW(ind_HI),0.10_dp,State_Het))\n  RCONST(827) = (IuptkBySALC1stOrd(SR_MW(ind_HI),0.10_dp,State_Het))\n  RCONST(828) = (IuptkByAlkSALA1stOrd(SR_MW(ind_HOI),0.01_dp,State_Het))\n  RCONST(829) = (IuptkByAlkSALC1stOrd(SR_MW(ind_HOI),0.01_dp,State_Het))\n  RCONST(830) = (IuptkBySulf1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het))\n  RCONST(831) = (IuptkBySALA1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het))\n  RCONST(832) = (IuptkBySALC1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het))\n  RCONST(833) = (IuptkBySulf1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het))\n  RCONST(834) = (IuptkBySALA1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het))\n  RCONST(835) = (IuptkBySALC1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het))\n  RCONST(836) = (IuptkBySulf1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het))\n  RCONST(837) = (IuptkBySALA1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het))\n  RCONST(838) = (IuptkBySALC1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het))\n  RCONST(839) = (IuptkByAlkSALA1stOrd(SR_MW(ind_IONO),0.02_dp,State_Het))\n  RCONST(840) = (IuptkByAlkSALC1stOrd(SR_MW(ind_IONO),0.02_dp,State_Het))\n  RCONST(841) = (IuptkByAlkSALA1stOrd(SR_MW(ind_IONO2),0.01_dp,State_Het))\n  RCONST(842) = (IuptkByAlkSALC1stOrd(SR_MW(ind_IONO2),0.01_dp,State_Het))\n  RCONST(843) = (IONO2uptkByH2O(State_Het))\n  RCONST(844) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het))\n  RCONST(845) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het))\n  RCONST(846) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het))\n  RCONST(847) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het))\n  RCONST(848) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het))\n  RCONST(849) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het))\n  RCONST(850) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het))\n  RCONST(851) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het))\n  RCONST(852) = (IbrkdnByAcidBrSALA(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het))\n  RCONST(853) = (IbrkdnByAcidBrSALC(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het))\n  RCONST(854) = (IbrkdnByAcidSALACl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het))\n  RCONST(855) = (IbrkdnByAcidSALCCl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het))\n  RCONST(856) = (GLYXuptk1stOrd(SR_MW(ind_GLYX),State_Het))\n  RCONST(857) = (MGLYuptk1stOrd(SR_MW(ind_MGLY),State_Het))\n  RCONST(858) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXA),.FALSE.,State_Het))\n  RCONST(859) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXB),.FALSE.,State_Het))\n  RCONST(860) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXD),.FALSE.,State_Het))\n  RCONST(861) = (VOCuptk1stOrd(SR_MW(ind_LVOC),1.0_dp,State_Het))\n  RCONST(862) = (VOCuptk1stOrd(SR_MW(ind_MVKN),5.0E-3_dp,State_Het))\n  RCONST(863) = (VOCuptk1stOrd(SR_MW(ind_R4N2),5.0E-3_dp,State_Het))\n  RCONST(864) = (VOCuptk1stOrd(SR_MW(ind_MONITS),1.0E-2_dp,State_Het))\n  RCONST(865) = (VOCuptk1stOrd(SR_MW(ind_MONITU),1.0E-2_dp,State_Het))\n  RCONST(866) = (VOCuptk1stOrd(SR_MW(ind_HONIT),1.0E-2_dp,State_Het))\n  RCONST(867) = (MGLYuptk1stOrd(SR_MW(ind_PYAC),State_Het))\n  RCONST(868) = (IEPOXuptk1stOrd(SR_MW(ind_HMML),.TRUE.,State_Het))\n  RCONST(869) = (VOCuptk1stOrd(SR_MW(ind_IHN1),5.0E-3_dp,State_Het))\n  RCONST(870) = (VOCuptk1stOrd(SR_MW(ind_IHN2),5.0E-2_dp,State_Het))\n  RCONST(871) = (VOCuptk1stOrd(SR_MW(ind_IHN3),5.0E-3_dp,State_Het))\n  RCONST(872) = (VOCuptk1stOrd(SR_MW(ind_IHN4),5.0E-3_dp,State_Het))\n  RCONST(873) = (IEPOXuptk1stOrd(SR_MW(ind_ICHE),.FALSE.,State_Het))\n  RCONST(874) = (VOCuptk1stOrd(SR_MW(ind_INPD),5.0E-3_dp,State_Het))\n  RCONST(875) = (VOCuptk1stOrd(SR_MW(ind_INPB),5.0E-3_dp,State_Het))\n  RCONST(876) = (VOCuptk1stOrd(SR_MW(ind_IDN),5.0E-3_dp,State_Het))\n  RCONST(877) = (VOCuptk1stOrd(SR_MW(ind_ITCN),5.0E-3_dp,State_Het))\n  RCONST(878) = (VOCuptk1stOrd(SR_MW(ind_ITHN),5.0E-3_dp,State_Het))\n  RCONST(879) = (VOCuptk1stOrd(SR_MW(ind_MCRHNB),5.0E-3_dp,State_Het))\n  RCONST(880) = (VOCuptk1stOrd(SR_MW(ind_MCRHN),5.0E-3_dp,State_Het))\n  RCONST(881) = (VOCuptk1stOrd(SR_MW(ind_NPHEN),1.0E-2_dp,State_Het))\n  RCONST(882) = (PHOTOL(2))\n  RCONST(883) = (PHOTOL(3))\n  RCONST(884) = (PHOTOL(1))\n  RCONST(885) = (PHOTOL(11))\n  RCONST(886) = (PHOTOL(9))\n  RCONST(887) = (PHOTOL(10))\n  RCONST(888) = (PHOTOL(7))\n  RCONST(889) = (PHOTOL(8))\n  RCONST(890) = (PHOTOL(16))\n  RCONST(891) = (PHOTOL(15))\n  RCONST(892) = (PHOTOL(17))\n  RCONST(893) = (PHOTOL(18))\n  RCONST(894) = (PHOTOL(12))\n  RCONST(895) = (PHOTOL(13))\n  RCONST(896) = (PHOTOL(14))\n  RCONST(897) = (PHOTOL(61))\n  RCONST(898) = (PHOTOL(62))\n  RCONST(899) = (PHOTOL(59))\n  RCONST(900) = (PHOTOL(59))\n  RCONST(901) = (PHOTOL(66))\n  RCONST(902) = (PHOTOL(70))\n  RCONST(903) = (PHOTOL(70))\n  RCONST(904) = (PHOTOL(76))\n  RCONST(905) = (PHOTOL(77))\n  RCONST(906) = (PHOTOL(69))\n  RCONST(907) = (PHOTOL(68))\n  RCONST(908) = (PHOTOL(72))\n  RCONST(909) = (PHOTOL(73))\n  RCONST(910) = (PHOTOL(74))\n  RCONST(911) = (PHOTOL(71))\n  RCONST(912) = (PHOTOL(63))\n  RCONST(913) = (PHOTOL(64))\n  RCONST(914) = (PHOTOL(65))\n  RCONST(915) = (PHOTOL(66))\n  RCONST(916) = (PHOTOL(75))\n  RCONST(917) = (PHOTOL(79))\n  RCONST(918) = (PHOTOL(80))\n  RCONST(919) = (PHOTOL(81))\n  RCONST(920) = (PHOTOL(82))\n  RCONST(921) = (PHOTOL(83))\n  RCONST(922) = (PHOTOL(83))\n  RCONST(923) = (PHOTOL(83))\n  RCONST(924) = (PHOTOL(84))\n  RCONST(925) = (PHOTOL(85))\n  RCONST(926) = (PHOTOL(98))\n  RCONST(927) = (PHOTOL(98))\n  RCONST(928) = (PHOTOL(98))\n  RCONST(929) = (PHOTOL(98))\n  RCONST(930) = (PHOTOL(99))\n  RCONST(931) = (PHOTOL(23))\n  RCONST(932) = (PHOTOL(28))\n  RCONST(933) = (PHOTOL(32))\n  RCONST(934) = (PHOTOL(29))\n  RCONST(935) = (PHOTOL(30))\n  RCONST(936) = (PHOTOL(31))\n  RCONST(937) = (PHOTOL(56))\n  RCONST(938) = (PHOTOL(55))\n  RCONST(939) = (PHOTOL(50))\n  RCONST(940) = (PHOTOL(43))\n  RCONST(941) = (PHOTOL(45))\n  RCONST(942) = (PHOTOL(33))\n  RCONST(943) = (PHOTOL(22))\n  RCONST(944) = (PHOTOL(27))\n  RCONST(945) = (PHOTOL(25))\n  RCONST(946) = (PHOTOL(26))\n  RCONST(947) = (PHOTOL(21))\n  RCONST(948) = (PHOTOL(19))\n  RCONST(949) = (PHOTOL(20))\n  RCONST(950) = (PHOTOL(24))\n  RCONST(951) = (PHOTOL(44))\n  RCONST(952) = (PHOTOL(42))\n  RCONST(953) = (PHOTOL(37))\n  RCONST(954) = (PHOTOL(38))\n  RCONST(955) = (PHOTOL(39))\n  RCONST(956) = (PHOTOL(40))\n  RCONST(957) = (PHOTOL(41))\n  RCONST(958) = (PHOTOL(47))\n  RCONST(959) = (PHOTOL(48))\n  RCONST(960) = (PHOTOL(49))\n  RCONST(961) = (PHOTOL(46))\n  RCONST(962) = (PHOTOL(53))\n  RCONST(963) = (PHOTOL(51))\n  RCONST(964) = (PHOTOL(54))\n  RCONST(965) = (PHOTOL(101))\n  RCONST(966) = (PHOTOL(114))\n  RCONST(967) = (PHOTOL(115))\n  RCONST(968) = (PHOTOL(116))\n  RCONST(969) = (PHOTOL(117))\n  RCONST(970) = (PHOTOL(118))\n  RCONST(971) = (PHOTOL(119))\n  RCONST(972) = (PHOTOL(120))\n  RCONST(973) = (PHOTOL(121))\n  RCONST(974) = (PHOTOL(122))\n  RCONST(975) = (PHOTOL(123))\n  RCONST(976) = (PHOTOL(124))\n  RCONST(977) = (PHOTOL(125))\n  RCONST(978) = (PHOTOL(126))\n  RCONST(979) = (PHOTOL(127))\n  RCONST(980) = (PHOTOL(128))\n  RCONST(981) = (PHOTOL(129))\n  RCONST(982) = (PHOTOL(103))\n  RCONST(983) = (PHOTOL(104))\n  RCONST(984) = (PHOTOL(97))\n  RCONST(985) = (PHOTOL(36))\n  RCONST(986) = (PHOTOL(34))\n  RCONST(987) = (PHOTOL(100))\n  RCONST(988) = (PHOTOL(6))\n  RCONST(989) = (PHOTOL(105))\n  RCONST(990) = (PHOTOL(107))\n  RCONST(991) = (PHOTOL(111))\n  RCONST(992) = (PHOTOL(112))\n  RCONST(993) = (PHOTOL(113))\n  RCONST(994) = (PHOTOL(130))\n  RCONST(995) = (PHOTOL(131))\n  RCONST(996) = (PHOTOL(132))\n  RCONST(997) = (PHOTOL(133))\n  RCONST(998) = (PHOTOL(134))\n  RCONST(999) = (PHOTOL(135))\n  RCONST(1000) = (PHOTOL(136))\n  RCONST(1001) = (PHOTOL(137))\n  RCONST(1002) = (PHOTOL(86))\n  RCONST(1003) = (PHOTOL(87))\n  RCONST(1004) = (PHOTOL(88))\n  RCONST(1005) = (PHOTOL(89))\n  RCONST(1006) = (PHOTOL(90))\n  RCONST(1007) = (PHOTOL(91))\n  RCONST(1008) = (PHOTOL(92))\n  RCONST(1009) = (PHOTOL(93))\n  RCONST(1010) = (PHOTOL(94))\n  RCONST(1011) = (PHOTOL(95))\n  RCONST(1012) = (PHOTOL(96))\n  RCONST(1013) = (PHOTOL(108))\n  RCONST(1014) = (PHOTOL(109))\n  RCONST(1015) = (PHOTOL(110))\n  RCONST(1016) = (PHOTOL(138))\n  RCONST(1017) = (PHOTOL(139))\n  RCONST(1018) = (PHOTOL(140))\n  RCONST(1019) = (PHOTOL(141))\n  RCONST(1020) = (PHOTOL(142))\n  RCONST(1021) = (PHOTOL(143))\n  RCONST(1022) = (PHOTOL(144))\n  RCONST(1023) = (PHOTOL(145))\n  RCONST(1024) = (PHOTOL(146))\n  RCONST(1025) = (PHOTOL(147))\n  RCONST(1026) = (PHOTOL(148))\n  RCONST(1027) = (PHOTOL(149))\n  RCONST(1028) = (PHOTOL(150))\n  RCONST(1029) = (PHOTOL(151))\n  RCONST(1030) = (PHOTOL(152))\n  RCONST(1031) = (PHOTOL(106))\n  RCONST(1032) = (PHOTOL(78))\n  RCONST(1033) = (PHOTOL(153))\n  RCONST(1034) = (PHOTOL(154))\n  RCONST(1035) = (PHOTOL(155))\n  RCONST(1036) = (PHOTOL(156))\n  RCONST(1037) = (PHOTOL(157))\n  RCONST(1038) = (PHOTOL(158))\n  RCONST(1039) = (PHOTOL(159))\n  RCONST(1040) = (PHOTOL(160))\n  RCONST(1041) = (PHOTOL(161))\n  RCONST(1042) = (PHOTOL(162))\n  RCONST(1043) = (PHOTOL(163))\n  RCONST(1044) = (PHOTOL(164))\n  RCONST(1045) = (PHOTOL(165))\n  RCONST(1046) = (PHOTOL(166))\n  RCONST(1047) = (PHOTOL(167))\n  RCONST(1048) = (PHOTOL(168))\n  RCONST(1049) = (PHOTOL(169))\n  RCONST(1050) = (PHOTOL(170))\n  RCONST(1051) = (PHOTOL(171))\n  RCONST(1052) = (PHOTOL(172))\n  RCONST(1053) = (PHOTOL(173))\n  RCONST(1054) = (PHOTOL(174))\n  RCONST(1055) = (PHOTOL(175))\n  RCONST(1056) = (PHOTOL(176))\n  RCONST(1057) = (PHOTOL(105))\n  RCONST(1058) = (PHOTOL(177))\n\nEND SUBROUTINE UPDATE_RCONST\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n! \n! Update_PHOTO - function to update photolytical rate constants\n!   Arguments :\n! \n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Update_PHOTO ( )\n\n\n! Begin inlined code from F90_RCONST_USE\n\n\n  ! Inline an include file containing rate law definitions, which\n  ! will be inserted directly into subroutine Update_Rconst().\n  ! This is necessary as a workaround for KPP not being able to\n  ! include very large files ( > 200000 chars) directly.\n  !  -- Bob Yantosca (11 Jun 2021)\n  USE fullchem_RateLawFuncs\n\n! End inlined code from F90_RCONST_USE\n\n\n! Begin inlined code from F90_RCONST\n\n\n! End inlined code from F90_RCONST\n\n  RCONST(882) = (PHOTOL(2))\n  RCONST(883) = (PHOTOL(3))\n  RCONST(884) = (PHOTOL(1))\n  RCONST(885) = (PHOTOL(11))\n  RCONST(886) = (PHOTOL(9))\n  RCONST(887) = (PHOTOL(10))\n  RCONST(888) = (PHOTOL(7))\n  RCONST(889) = (PHOTOL(8))\n  RCONST(890) = (PHOTOL(16))\n  RCONST(891) = (PHOTOL(15))\n  RCONST(892) = (PHOTOL(17))\n  RCONST(893) = (PHOTOL(18))\n  RCONST(894) = (PHOTOL(12))\n  RCONST(895) = (PHOTOL(13))\n  RCONST(896) = (PHOTOL(14))\n  RCONST(897) = (PHOTOL(61))\n  RCONST(898) = (PHOTOL(62))\n  RCONST(899) = (PHOTOL(59))\n  RCONST(900) = (PHOTOL(59))\n  RCONST(901) = (PHOTOL(66))\n  RCONST(902) = (PHOTOL(70))\n  RCONST(903) = (PHOTOL(70))\n  RCONST(904) = (PHOTOL(76))\n  RCONST(905) = (PHOTOL(77))\n  RCONST(906) = (PHOTOL(69))\n  RCONST(907) = (PHOTOL(68))\n  RCONST(908) = (PHOTOL(72))\n  RCONST(909) = (PHOTOL(73))\n  RCONST(910) = (PHOTOL(74))\n  RCONST(911) = (PHOTOL(71))\n  RCONST(912) = (PHOTOL(63))\n  RCONST(913) = (PHOTOL(64))\n  RCONST(914) = (PHOTOL(65))\n  RCONST(915) = (PHOTOL(66))\n  RCONST(916) = (PHOTOL(75))\n  RCONST(917) = (PHOTOL(79))\n  RCONST(918) = (PHOTOL(80))\n  RCONST(919) = (PHOTOL(81))\n  RCONST(920) = (PHOTOL(82))\n  RCONST(921) = (PHOTOL(83))\n  RCONST(922) = (PHOTOL(83))\n  RCONST(923) = (PHOTOL(83))\n  RCONST(924) = (PHOTOL(84))\n  RCONST(925) = (PHOTOL(85))\n  RCONST(926) = (PHOTOL(98))\n  RCONST(927) = (PHOTOL(98))\n  RCONST(928) = (PHOTOL(98))\n  RCONST(929) = (PHOTOL(98))\n  RCONST(930) = (PHOTOL(99))\n  RCONST(931) = (PHOTOL(23))\n  RCONST(932) = (PHOTOL(28))\n  RCONST(933) = (PHOTOL(32))\n  RCONST(934) = (PHOTOL(29))\n  RCONST(935) = (PHOTOL(30))\n  RCONST(936) = (PHOTOL(31))\n  RCONST(937) = (PHOTOL(56))\n  RCONST(938) = (PHOTOL(55))\n  RCONST(939) = (PHOTOL(50))\n  RCONST(940) = (PHOTOL(43))\n  RCONST(941) = (PHOTOL(45))\n  RCONST(942) = (PHOTOL(33))\n  RCONST(943) = (PHOTOL(22))\n  RCONST(944) = (PHOTOL(27))\n  RCONST(945) = (PHOTOL(25))\n  RCONST(946) = (PHOTOL(26))\n  RCONST(947) = (PHOTOL(21))\n  RCONST(948) = (PHOTOL(19))\n  RCONST(949) = (PHOTOL(20))\n  RCONST(950) = (PHOTOL(24))\n  RCONST(951) = (PHOTOL(44))\n  RCONST(952) = (PHOTOL(42))\n  RCONST(953) = (PHOTOL(37))\n  RCONST(954) = (PHOTOL(38))\n  RCONST(955) = (PHOTOL(39))\n  RCONST(956) = (PHOTOL(40))\n  RCONST(957) = (PHOTOL(41))\n  RCONST(958) = (PHOTOL(47))\n  RCONST(959) = (PHOTOL(48))\n  RCONST(960) = (PHOTOL(49))\n  RCONST(961) = (PHOTOL(46))\n  RCONST(962) = (PHOTOL(53))\n  RCONST(963) = (PHOTOL(51))\n  RCONST(964) = (PHOTOL(54))\n  RCONST(965) = (PHOTOL(101))\n  RCONST(966) = (PHOTOL(114))\n  RCONST(967) = (PHOTOL(115))\n  RCONST(968) = (PHOTOL(116))\n  RCONST(969) = (PHOTOL(117))\n  RCONST(970) = (PHOTOL(118))\n  RCONST(971) = (PHOTOL(119))\n  RCONST(972) = (PHOTOL(120))\n  RCONST(973) = (PHOTOL(121))\n  RCONST(974) = (PHOTOL(122))\n  RCONST(975) = (PHOTOL(123))\n  RCONST(976) = (PHOTOL(124))\n  RCONST(977) = (PHOTOL(125))\n  RCONST(978) = (PHOTOL(126))\n  RCONST(979) = (PHOTOL(127))\n  RCONST(980) = (PHOTOL(128))\n  RCONST(981) = (PHOTOL(129))\n  RCONST(982) = (PHOTOL(103))\n  RCONST(983) = (PHOTOL(104))\n  RCONST(984) = (PHOTOL(97))\n  RCONST(985) = (PHOTOL(36))\n  RCONST(986) = (PHOTOL(34))\n  RCONST(987) = (PHOTOL(100))\n  RCONST(988) = (PHOTOL(6))\n  RCONST(989) = (PHOTOL(105))\n  RCONST(990) = (PHOTOL(107))\n  RCONST(991) = (PHOTOL(111))\n  RCONST(992) = (PHOTOL(112))\n  RCONST(993) = (PHOTOL(113))\n  RCONST(994) = (PHOTOL(130))\n  RCONST(995) = (PHOTOL(131))\n  RCONST(996) = (PHOTOL(132))\n  RCONST(997) = (PHOTOL(133))\n  RCONST(998) = (PHOTOL(134))\n  RCONST(999) = (PHOTOL(135))\n  RCONST(1000) = (PHOTOL(136))\n  RCONST(1001) = (PHOTOL(137))\n  RCONST(1002) = (PHOTOL(86))\n  RCONST(1003) = (PHOTOL(87))\n  RCONST(1004) = (PHOTOL(88))\n  RCONST(1005) = (PHOTOL(89))\n  RCONST(1006) = (PHOTOL(90))\n  RCONST(1007) = (PHOTOL(91))\n  RCONST(1008) = (PHOTOL(92))\n  RCONST(1009) = (PHOTOL(93))\n  RCONST(1010) = (PHOTOL(94))\n  RCONST(1011) = (PHOTOL(95))\n  RCONST(1012) = (PHOTOL(96))\n  RCONST(1013) = (PHOTOL(108))\n  RCONST(1014) = (PHOTOL(109))\n  RCONST(1015) = (PHOTOL(110))\n  RCONST(1016) = (PHOTOL(138))\n  RCONST(1017) = (PHOTOL(139))\n  RCONST(1018) = (PHOTOL(140))\n  RCONST(1019) = (PHOTOL(141))\n  RCONST(1020) = (PHOTOL(142))\n  RCONST(1021) = (PHOTOL(143))\n  RCONST(1022) = (PHOTOL(144))\n  RCONST(1023) = (PHOTOL(145))\n  RCONST(1024) = (PHOTOL(146))\n  RCONST(1025) = (PHOTOL(147))\n  RCONST(1026) = (PHOTOL(148))\n  RCONST(1027) = (PHOTOL(149))\n  RCONST(1028) = (PHOTOL(150))\n  RCONST(1029) = (PHOTOL(151))\n  RCONST(1030) = (PHOTOL(152))\n  RCONST(1031) = (PHOTOL(106))\n  RCONST(1032) = (PHOTOL(78))\n  RCONST(1033) = (PHOTOL(153))\n  RCONST(1034) = (PHOTOL(154))\n  RCONST(1035) = (PHOTOL(155))\n  RCONST(1036) = (PHOTOL(156))\n  RCONST(1037) = (PHOTOL(157))\n  RCONST(1038) = (PHOTOL(158))\n  RCONST(1039) = (PHOTOL(159))\n  RCONST(1040) = (PHOTOL(160))\n  RCONST(1041) = (PHOTOL(161))\n  RCONST(1042) = (PHOTOL(162))\n  RCONST(1043) = (PHOTOL(163))\n  RCONST(1044) = (PHOTOL(164))\n  RCONST(1045) = (PHOTOL(165))\n  RCONST(1046) = (PHOTOL(166))\n  RCONST(1047) = (PHOTOL(167))\n  RCONST(1048) = (PHOTOL(168))\n  RCONST(1049) = (PHOTOL(169))\n  RCONST(1050) = (PHOTOL(170))\n  RCONST(1051) = (PHOTOL(171))\n  RCONST(1052) = (PHOTOL(172))\n  RCONST(1053) = (PHOTOL(173))\n  RCONST(1054) = (PHOTOL(174))\n  RCONST(1055) = (PHOTOL(175))\n  RCONST(1056) = (PHOTOL(176))\n  RCONST(1057) = (PHOTOL(105))\n  RCONST(1058) = (PHOTOL(177))\n      \nEND SUBROUTINE Update_PHOTO\n\n! End of Update_PHOTO function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nEND MODULE gckpp_Rates\n\n"
  },
  {
    "path": "KPP/fullchem/gckpp_Util.F90",
    "content": "! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Auxiliary Routines File\n!\n! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor\n!       (https:/github.com/KineticPreProcessor/KPP\n! KPP is distributed under GPL, the general public licence\n!       (http://www.gnu.org/copyleft/gpl.html)\n! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech\n!     With important contributions from:\n!        M. Damian,   Villanova University, Philadelphia, PA, USA\n!        R. Sander,   Max-Planck Institute for Chemistry, Mainz, Germany\n!        M. Long,     Renaissance Fiber, LLC, North Carolina, USA\n!        H. Lin,      Harvard University, Cambridge, MA, USA\n!        R. Yantosca, Harvard University, Cambridge, MA, USA\n!\n! File                 : gckpp_Util.F90\n! Equation file        : gckpp.kpp\n! Output root filename : gckpp\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\nMODULE gckpp_Util\n\n  USE gckpp_Parameters\n  IMPLICIT NONE\n\nCONTAINS\n\n\n\n! Begin inlined code from F90_UTIL\n\n! End inlined code from F90_UTIL\n\n! Begin Utility Functions from KPP_HOME/util/util\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! UTIL - Utility functions\n!   Arguments :\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! ****************************************************************\n!\n! InitSaveData - Opens the data file for writing\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE InitSaveData ()\n\n      USE gckpp_Parameters\n\n      open(10, file='gckpp.dat')\n\n      END SUBROUTINE InitSaveData\n\n! End of InitSaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! SaveData - Write LOOKAT species in the data file\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE SaveData ()\n\n      USE gckpp_Global\n      USE gckpp_Monitor\n\n      INTEGER i\n\n      WRITE(10,999) (TIME-TSTART)/3600.D0,  &\n      (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT)\n 999  FORMAT(E24.16,100(1X,E24.16))\n\n      END SUBROUTINE SaveData\n\n! End of SaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! CloseSaveData - Close the data file\n!   Parameters :\n!\n! ****************************************************************\n\n      SUBROUTINE CloseSaveData ()\n\n      USE gckpp_Parameters\n\n      CLOSE(10)\n\n      END SUBROUTINE CloseSaveData\n\n! End of CloseSaveData function\n! ****************************************************************\n\n! ****************************************************************\n!\n! GenerateMatlab - Generates MATLAB file to load the data file\n!   Parameters :\n!                It will have a character string to prefix each\n!                species name with.\n!\n! ****************************************************************\n\n      SUBROUTINE GenerateMatlab ( PREFIX )\n\n      USE gckpp_Parameters\n      USE gckpp_Global\n      USE gckpp_Monitor\n\n\n      CHARACTER(LEN=8) PREFIX\n      INTEGER i\n\n      open(20, file='gckpp.m')\n      write(20,*) 'load gckpp.dat;'\n      write(20,990) PREFIX\n990   FORMAT(A1,'c = gckpp;')\n      write(20,*) 'clear gckpp;'\n      write(20,991) PREFIX, PREFIX\n991   FORMAT(A1,'t=',A1,'c(:,1);')\n      write(20,992) PREFIX\n992   FORMAT(A1,'c(:,1)=[];')\n\n      do i=1,NLOOKAT\n        write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i\n993     FORMAT(A1,A6,' = ',A1,'c(:,',I2,');')\n      end do\n\n      CLOSE(20)\n\n      END SUBROUTINE GenerateMatlab\n\n! End of GenerateMatlab function\n! ****************************************************************\n\n\n! ****************************************************************\n!\n! Integrator_Update_Options - determine whether to call Update_RCONST,\n!    Update_PHOTO, and Update_SUN from within the integrator\n!\n!   Parameters:\n!    option (input)\n!        = -1 :  Do not call Update_* functions within the integrator\n!        =  0 :  Status quo: Call whichever functions are normally called\n!        =  1 :  Call Update_RCONST from within the integrator\n!        =  2 :  Call Update_PHOTO from within the integrator\n!        =  3 :  Call Update_RCONST and Update_PHOTO from within the int.\n!        =  4 :  Call Update_SUN from within the integrator\n!        =  5 :  Call Update_SUN and Update_RCONST from within the int.\n!        =  6 :  not implemented\n!        =  7 :  not implemented\n!\n!    Do_Update_RCONST (output):\n!        =T : Calls Update_RCONST from within the integrator\n!        =F : Does not call UPDATE_RCONST from w/in the int.\n!\n!    Do_Update_PHOTO (output):\n!        =T : Calls Update_PHOTO from within the integrator\n!        =F : Does not call UPDATE_PHOTO from w/in the int.\n!\n!    Do_Update_SUN (output):\n!        =T : Calls Update_SUN from within the integrator\n!        =F : Does not call UPDATE_SUN from w/in the int.\n!\n! ****************************************************************\n\n      SUBROUTINE Integrator_Update_Options( option,            &\n                                            Do_Update_RConst,  &\n                                            Do_Update_Photo,   &\n                                            Do_Update_Sun     )\n\n      !~~~> Input variables\n      INTEGER, INTENT(IN)  :: option\n\n      !~~~> Output variables\n      LOGICAL, INTENT(OUT) :: Do_Update_RCONST\n      LOGICAL, INTENT(OUT) :: Do_Update_PHOTO\n      LOGICAL, INTENT(OUT) :: Do_Update_SUN\n\n      ! Option -1: turn off all Update_* calls within the integrator\n      IF ( option == -1 ) THEN\n         Do_Update_RCONST = .FALSE.\n         Do_Update_PHOTO  = .FALSE.\n         Do_Update_SUN    = .FALSE.\n         RETURN\n      ENDIF\n\n      ! Otherwise determine from the value passed\n      Do_Update_RCONST = ( IAND( option, 1 ) > 0 )\n      Do_Update_PHOTO  = ( IAND( option, 2 ) > 0 )\n      Do_Update_SUN    = ( IAND( option, 4 ) > 0 )\n\n      END SUBROUTINE Integrator_Update_Options\n\n! End of Integrator_Update_Options function\n! ****************************************************************\n! End Utility Functions from KPP_HOME/util/util\n! End of UTIL function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Shuffle_user2kpp - function to copy concentrations from USER to KPP\n!   Arguments :\n!      V_USER    - Concentration of variable species in USER's order\n!      V         - Concentrations of variable species (local)\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Shuffle_user2kpp ( V_USER, V )\n\n! V_USER - Concentration of variable species in USER's order\n  REAL(kind=dp) :: V_USER(NVAR)\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n\n  V(321) = V_USER(1)\n  V(233) = V_USER(2)\n  V(132) = V_USER(3)\n  V(197) = V_USER(4)\n  V(295) = V_USER(5)\n  V(283) = V_USER(6)\n  V(4) = V_USER(7)\n  V(326) = V_USER(8)\n  V(142) = V_USER(9)\n  V(249) = V_USER(10)\n  V(279) = V_USER(11)\n  V(300) = V_USER(12)\n  V(102) = V_USER(13)\n  V(69) = V_USER(14)\n  V(5) = V_USER(15)\n  V(126) = V_USER(16)\n  V(146) = V_USER(17)\n  V(263) = V_USER(18)\n  V(221) = V_USER(19)\n  V(201) = V_USER(20)\n  V(122) = V_USER(21)\n  V(240) = V_USER(22)\n  V(313) = V_USER(23)\n  V(244) = V_USER(24)\n  V(323) = V_USER(25)\n  V(204) = V_USER(26)\n  V(143) = V_USER(27)\n  V(203) = V_USER(28)\n  V(236) = V_USER(29)\n  V(117) = V_USER(30)\n  V(342) = V_USER(31)\n  V(148) = V_USER(32)\n  V(157) = V_USER(33)\n  V(59) = V_USER(34)\n  V(218) = V_USER(35)\n  V(347) = V_USER(36)\n  V(13) = V_USER(37)\n  V(349) = V_USER(38)\n  V(350) = V_USER(39)\n  V(6) = V_USER(40)\n  V(127) = V_USER(41)\n  V(212) = V_USER(42)\n  V(235) = V_USER(43)\n  V(71) = V_USER(44)\n  V(90) = V_USER(45)\n  V(60) = V_USER(46)\n  V(109) = V_USER(47)\n  V(183) = V_USER(48)\n  V(141) = V_USER(49)\n  V(140) = V_USER(50)\n  V(171) = V_USER(51)\n  V(172) = V_USER(52)\n  V(46) = V_USER(53)\n  V(47) = V_USER(54)\n  V(48) = V_USER(55)\n  V(49) = V_USER(56)\n  V(50) = V_USER(57)\n  V(51) = V_USER(58)\n  V(78) = V_USER(59)\n  V(79) = V_USER(60)\n  V(1) = V_USER(61)\n  V(2) = V_USER(62)\n  V(3) = V_USER(63)\n  V(325) = V_USER(64)\n  V(312) = V_USER(65)\n  V(105) = V_USER(66)\n  V(43) = V_USER(67)\n  V(241) = V_USER(68)\n  V(181) = V_USER(69)\n  V(52) = V_USER(70)\n  V(228) = V_USER(71)\n  V(81) = V_USER(72)\n  V(75) = V_USER(73)\n  V(340) = V_USER(74)\n  V(245) = V_USER(75)\n  V(76) = V_USER(76)\n  V(297) = V_USER(77)\n  V(317) = V_USER(78)\n  V(338) = V_USER(79)\n  V(110) = V_USER(80)\n  V(329) = V_USER(81)\n  V(7) = V_USER(82)\n  V(158) = V_USER(83)\n  V(94) = V_USER(84)\n  V(149) = V_USER(85)\n  V(156) = V_USER(86)\n  V(261) = V_USER(87)\n  V(70) = V_USER(88)\n  V(136) = V_USER(89)\n  V(83) = V_USER(90)\n  V(106) = V_USER(91)\n  V(234) = V_USER(92)\n  V(296) = V_USER(93)\n  V(118) = V_USER(94)\n  V(41) = V_USER(95)\n  V(213) = V_USER(96)\n  V(306) = V_USER(97)\n  V(270) = V_USER(98)\n  V(217) = V_USER(99)\n  V(61) = V_USER(100)\n  V(53) = V_USER(101)\n  V(54) = V_USER(102)\n  V(336) = V_USER(103)\n  V(264) = V_USER(104)\n  V(307) = V_USER(105)\n  V(72) = V_USER(106)\n  V(352) = V_USER(107)\n  V(238) = V_USER(108)\n  V(84) = V_USER(109)\n  V(85) = V_USER(110)\n  V(86) = V_USER(111)\n  V(87) = V_USER(112)\n  V(339) = V_USER(113)\n  V(265) = V_USER(114)\n  V(73) = V_USER(115)\n  V(88) = V_USER(116)\n  V(107) = V_USER(117)\n  V(89) = V_USER(118)\n  V(239) = V_USER(119)\n  V(327) = V_USER(120)\n  V(108) = V_USER(121)\n  V(337) = V_USER(122)\n  V(316) = V_USER(123)\n  V(333) = V_USER(124)\n  V(330) = V_USER(125)\n  V(154) = V_USER(126)\n  V(230) = V_USER(127)\n  V(133) = V_USER(128)\n  V(231) = V_USER(129)\n  V(135) = V_USER(130)\n  V(150) = V_USER(131)\n  V(144) = V_USER(132)\n  V(210) = V_USER(133)\n  V(331) = V_USER(134)\n  V(170) = V_USER(135)\n  V(44) = V_USER(136)\n  V(55) = V_USER(137)\n  V(42) = V_USER(138)\n  V(77) = V_USER(139)\n  V(215) = V_USER(140)\n  V(243) = V_USER(141)\n  V(104) = V_USER(142)\n  V(301) = V_USER(143)\n  V(182) = V_USER(144)\n  V(258) = V_USER(145)\n  V(119) = V_USER(146)\n  V(147) = V_USER(147)\n  V(174) = V_USER(148)\n  V(293) = V_USER(149)\n  V(206) = V_USER(150)\n  V(207) = V_USER(151)\n  V(198) = V_USER(152)\n  V(299) = V_USER(153)\n  V(180) = V_USER(154)\n  V(151) = V_USER(155)\n  V(286) = V_USER(156)\n  V(152) = V_USER(157)\n  V(285) = V_USER(158)\n  V(128) = V_USER(159)\n  V(268) = V_USER(160)\n  V(175) = V_USER(161)\n  V(168) = V_USER(162)\n  V(267) = V_USER(163)\n  V(305) = V_USER(164)\n  V(304) = V_USER(165)\n  V(271) = V_USER(166)\n  V(226) = V_USER(167)\n  V(223) = V_USER(168)\n  V(224) = V_USER(169)\n  V(232) = V_USER(170)\n  V(145) = V_USER(171)\n  V(8) = V_USER(172)\n  V(62) = V_USER(173)\n  V(310) = V_USER(174)\n  V(311) = V_USER(175)\n  V(222) = V_USER(176)\n  V(186) = V_USER(177)\n  V(284) = V_USER(178)\n  V(103) = V_USER(179)\n  V(252) = V_USER(180)\n  V(332) = V_USER(181)\n  V(91) = V_USER(182)\n  V(9) = V_USER(183)\n  V(10) = V_USER(184)\n  V(276) = V_USER(185)\n  V(205) = V_USER(186)\n  V(190) = V_USER(187)\n  V(266) = V_USER(188)\n  V(303) = V_USER(189)\n  V(320) = V_USER(190)\n  V(11) = V_USER(191)\n  V(12) = V_USER(192)\n  V(167) = V_USER(193)\n  V(281) = V_USER(194)\n  V(111) = V_USER(195)\n  V(137) = V_USER(196)\n  V(225) = V_USER(197)\n  V(56) = V_USER(198)\n  V(66) = V_USER(199)\n  V(74) = V_USER(200)\n  V(160) = V_USER(201)\n  V(176) = V_USER(202)\n  V(129) = V_USER(203)\n  V(138) = V_USER(204)\n  V(112) = V_USER(205)\n  V(161) = V_USER(206)\n  V(162) = V_USER(207)\n  V(255) = V_USER(208)\n  V(211) = V_USER(209)\n  V(237) = V_USER(210)\n  V(163) = V_USER(211)\n  V(177) = V_USER(212)\n  V(57) = V_USER(213)\n  V(130) = V_USER(214)\n  V(169) = V_USER(215)\n  V(262) = V_USER(216)\n  V(193) = V_USER(217)\n  V(277) = V_USER(218)\n  V(257) = V_USER(219)\n  V(278) = V_USER(220)\n  V(275) = V_USER(221)\n  V(273) = V_USER(222)\n  V(272) = V_USER(223)\n  V(274) = V_USER(224)\n  V(14) = V_USER(225)\n  V(15) = V_USER(226)\n  V(16) = V_USER(227)\n  V(17) = V_USER(228)\n  V(20) = V_USER(229)\n  V(21) = V_USER(230)\n  V(24) = V_USER(231)\n  V(23) = V_USER(232)\n  V(25) = V_USER(233)\n  V(26) = V_USER(234)\n  V(309) = V_USER(235)\n  V(259) = V_USER(236)\n  V(159) = V_USER(237)\n  V(308) = V_USER(238)\n  V(92) = V_USER(239)\n  V(324) = V_USER(240)\n  V(153) = V_USER(241)\n  V(194) = V_USER(242)\n  V(248) = V_USER(243)\n  V(216) = V_USER(244)\n  V(287) = V_USER(245)\n  V(253) = V_USER(246)\n  V(202) = V_USER(247)\n  V(246) = V_USER(248)\n  V(292) = V_USER(249)\n  V(113) = V_USER(250)\n  V(93) = V_USER(251)\n  V(294) = V_USER(252)\n  V(328) = V_USER(253)\n  V(282) = V_USER(254)\n  V(45) = V_USER(255)\n  V(256) = V_USER(256)\n  V(242) = V_USER(257)\n  V(164) = V_USER(258)\n  V(184) = V_USER(259)\n  V(80) = V_USER(260)\n  V(28) = V_USER(261)\n  V(191) = V_USER(262)\n  V(219) = V_USER(263)\n  V(314) = V_USER(264)\n  V(131) = V_USER(265)\n  V(208) = V_USER(266)\n  V(227) = V_USER(267)\n  V(288) = V_USER(268)\n  V(302) = V_USER(269)\n  V(254) = V_USER(270)\n  V(185) = V_USER(271)\n  V(67) = V_USER(272)\n  V(63) = V_USER(273)\n  V(214) = V_USER(274)\n  V(19) = V_USER(275)\n  V(64) = V_USER(276)\n  V(65) = V_USER(277)\n  V(346) = V_USER(278)\n  V(335) = V_USER(279)\n  V(351) = V_USER(280)\n  V(269) = V_USER(281)\n  V(95) = V_USER(282)\n  V(18) = V_USER(283)\n  V(343) = V_USER(284)\n  V(334) = V_USER(285)\n  V(341) = V_USER(286)\n  V(120) = V_USER(289)\n  V(68) = V_USER(290)\n  V(345) = V_USER(291)\n  V(96) = V_USER(292)\n  V(289) = V_USER(293)\n  V(280) = V_USER(294)\n  V(315) = V_USER(295)\n  V(139) = V_USER(296)\n  V(114) = V_USER(297)\n  V(195) = V_USER(298)\n  V(291) = V_USER(299)\n  V(229) = V_USER(300)\n  V(260) = V_USER(301)\n  V(123) = V_USER(302)\n  V(124) = V_USER(303)\n  V(250) = V_USER(304)\n  V(247) = V_USER(305)\n  V(290) = V_USER(306)\n  V(125) = V_USER(307)\n  V(115) = V_USER(308)\n  V(318) = V_USER(309)\n  V(251) = V_USER(310)\n  V(319) = V_USER(311)\n  V(97) = V_USER(312)\n  V(178) = V_USER(313)\n  V(165) = V_USER(314)\n  V(98) = V_USER(315)\n  V(196) = V_USER(316)\n  V(99) = V_USER(317)\n  V(100) = V_USER(318)\n  V(298) = V_USER(319)\n  V(322) = V_USER(320)\n  V(173) = V_USER(321)\n  V(187) = V_USER(322)\n  V(192) = V_USER(323)\n  V(209) = V_USER(324)\n  V(199) = V_USER(325)\n  V(116) = V_USER(326)\n  V(188) = V_USER(327)\n  V(155) = V_USER(328)\n  V(179) = V_USER(329)\n  V(166) = V_USER(330)\n  V(353) = V_USER(331)\n  V(344) = V_USER(332)\n  V(348) = V_USER(337)\n  V(134) = V_USER(338)\n  V(29) = V_USER(339)\n  V(30) = V_USER(340)\n  V(31) = V_USER(341)\n  V(220) = V_USER(342)\n  V(58) = V_USER(343)\n  V(121) = V_USER(344)\n  V(200) = V_USER(345)\n  V(82) = V_USER(346)\n  V(22) = V_USER(347)\n  V(101) = V_USER(348)\n  V(27) = V_USER(349)\n  V(32) = V_USER(350)\n  V(33) = V_USER(351)\n  V(189) = V_USER(352)\n\nEND SUBROUTINE Shuffle_user2kpp\n\n! End of Shuffle_user2kpp function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! Shuffle_kpp2user - function to restore concentrations from KPP to USER\n!   Arguments :\n!      V         - Concentrations of variable species (local)\n!      V_USER    - Concentration of variable species in USER's order\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Shuffle_kpp2user ( V, V_USER )\n\n! V - Concentrations of variable species (local)\n  REAL(kind=dp) :: V(NVAR)\n! V_USER - Concentration of variable species in USER's order\n  REAL(kind=dp) :: V_USER(NVAR)\n\n  V_USER(1) = V(321)\n  V_USER(2) = V(233)\n  V_USER(3) = V(132)\n  V_USER(4) = V(197)\n  V_USER(5) = V(295)\n  V_USER(6) = V(283)\n  V_USER(7) = V(4)\n  V_USER(8) = V(326)\n  V_USER(9) = V(142)\n  V_USER(10) = V(249)\n  V_USER(11) = V(279)\n  V_USER(12) = V(300)\n  V_USER(13) = V(102)\n  V_USER(14) = V(69)\n  V_USER(15) = V(5)\n  V_USER(16) = V(126)\n  V_USER(17) = V(146)\n  V_USER(18) = V(263)\n  V_USER(19) = V(221)\n  V_USER(20) = V(201)\n  V_USER(21) = V(122)\n  V_USER(22) = V(240)\n  V_USER(23) = V(313)\n  V_USER(24) = V(244)\n  V_USER(25) = V(323)\n  V_USER(26) = V(204)\n  V_USER(27) = V(143)\n  V_USER(28) = V(203)\n  V_USER(29) = V(236)\n  V_USER(30) = V(117)\n  V_USER(31) = V(342)\n  V_USER(32) = V(148)\n  V_USER(33) = V(157)\n  V_USER(34) = V(59)\n  V_USER(35) = V(218)\n  V_USER(36) = V(347)\n  V_USER(37) = V(13)\n  V_USER(38) = V(349)\n  V_USER(39) = V(350)\n  V_USER(40) = V(6)\n  V_USER(41) = V(127)\n  V_USER(42) = V(212)\n  V_USER(43) = V(235)\n  V_USER(44) = V(71)\n  V_USER(45) = V(90)\n  V_USER(46) = V(60)\n  V_USER(47) = V(109)\n  V_USER(48) = V(183)\n  V_USER(49) = V(141)\n  V_USER(50) = V(140)\n  V_USER(51) = V(171)\n  V_USER(52) = V(172)\n  V_USER(53) = V(46)\n  V_USER(54) = V(47)\n  V_USER(55) = V(48)\n  V_USER(56) = V(49)\n  V_USER(57) = V(50)\n  V_USER(58) = V(51)\n  V_USER(59) = V(78)\n  V_USER(60) = V(79)\n  V_USER(61) = V(1)\n  V_USER(62) = V(2)\n  V_USER(63) = V(3)\n  V_USER(64) = V(325)\n  V_USER(65) = V(312)\n  V_USER(66) = V(105)\n  V_USER(67) = V(43)\n  V_USER(68) = V(241)\n  V_USER(69) = V(181)\n  V_USER(70) = V(52)\n  V_USER(71) = V(228)\n  V_USER(72) = V(81)\n  V_USER(73) = V(75)\n  V_USER(74) = V(340)\n  V_USER(75) = V(245)\n  V_USER(76) = V(76)\n  V_USER(77) = V(297)\n  V_USER(78) = V(317)\n  V_USER(79) = V(338)\n  V_USER(80) = V(110)\n  V_USER(81) = V(329)\n  V_USER(82) = V(7)\n  V_USER(83) = V(158)\n  V_USER(84) = V(94)\n  V_USER(85) = V(149)\n  V_USER(86) = V(156)\n  V_USER(87) = V(261)\n  V_USER(88) = V(70)\n  V_USER(89) = V(136)\n  V_USER(90) = V(83)\n  V_USER(91) = V(106)\n  V_USER(92) = V(234)\n  V_USER(93) = V(296)\n  V_USER(94) = V(118)\n  V_USER(95) = V(41)\n  V_USER(96) = V(213)\n  V_USER(97) = V(306)\n  V_USER(98) = V(270)\n  V_USER(99) = V(217)\n  V_USER(100) = V(61)\n  V_USER(101) = V(53)\n  V_USER(102) = V(54)\n  V_USER(103) = V(336)\n  V_USER(104) = V(264)\n  V_USER(105) = V(307)\n  V_USER(106) = V(72)\n  V_USER(107) = V(352)\n  V_USER(108) = V(238)\n  V_USER(109) = V(84)\n  V_USER(110) = V(85)\n  V_USER(111) = V(86)\n  V_USER(112) = V(87)\n  V_USER(113) = V(339)\n  V_USER(114) = V(265)\n  V_USER(115) = V(73)\n  V_USER(116) = V(88)\n  V_USER(117) = V(107)\n  V_USER(118) = V(89)\n  V_USER(119) = V(239)\n  V_USER(120) = V(327)\n  V_USER(121) = V(108)\n  V_USER(122) = V(337)\n  V_USER(123) = V(316)\n  V_USER(124) = V(333)\n  V_USER(125) = V(330)\n  V_USER(126) = V(154)\n  V_USER(127) = V(230)\n  V_USER(128) = V(133)\n  V_USER(129) = V(231)\n  V_USER(130) = V(135)\n  V_USER(131) = V(150)\n  V_USER(132) = V(144)\n  V_USER(133) = V(210)\n  V_USER(134) = V(331)\n  V_USER(135) = V(170)\n  V_USER(136) = V(44)\n  V_USER(137) = V(55)\n  V_USER(138) = V(42)\n  V_USER(139) = V(77)\n  V_USER(140) = V(215)\n  V_USER(141) = V(243)\n  V_USER(142) = V(104)\n  V_USER(143) = V(301)\n  V_USER(144) = V(182)\n  V_USER(145) = V(258)\n  V_USER(146) = V(119)\n  V_USER(147) = V(147)\n  V_USER(148) = V(174)\n  V_USER(149) = V(293)\n  V_USER(150) = V(206)\n  V_USER(151) = V(207)\n  V_USER(152) = V(198)\n  V_USER(153) = V(299)\n  V_USER(154) = V(180)\n  V_USER(155) = V(151)\n  V_USER(156) = V(286)\n  V_USER(157) = V(152)\n  V_USER(158) = V(285)\n  V_USER(159) = V(128)\n  V_USER(160) = V(268)\n  V_USER(161) = V(175)\n  V_USER(162) = V(168)\n  V_USER(163) = V(267)\n  V_USER(164) = V(305)\n  V_USER(165) = V(304)\n  V_USER(166) = V(271)\n  V_USER(167) = V(226)\n  V_USER(168) = V(223)\n  V_USER(169) = V(224)\n  V_USER(170) = V(232)\n  V_USER(171) = V(145)\n  V_USER(172) = V(8)\n  V_USER(173) = V(62)\n  V_USER(174) = V(310)\n  V_USER(175) = V(311)\n  V_USER(176) = V(222)\n  V_USER(177) = V(186)\n  V_USER(178) = V(284)\n  V_USER(179) = V(103)\n  V_USER(180) = V(252)\n  V_USER(181) = V(332)\n  V_USER(182) = V(91)\n  V_USER(183) = V(9)\n  V_USER(184) = V(10)\n  V_USER(185) = V(276)\n  V_USER(186) = V(205)\n  V_USER(187) = V(190)\n  V_USER(188) = V(266)\n  V_USER(189) = V(303)\n  V_USER(190) = V(320)\n  V_USER(191) = V(11)\n  V_USER(192) = V(12)\n  V_USER(193) = V(167)\n  V_USER(194) = V(281)\n  V_USER(195) = V(111)\n  V_USER(196) = V(137)\n  V_USER(197) = V(225)\n  V_USER(198) = V(56)\n  V_USER(199) = V(66)\n  V_USER(200) = V(74)\n  V_USER(201) = V(160)\n  V_USER(202) = V(176)\n  V_USER(203) = V(129)\n  V_USER(204) = V(138)\n  V_USER(205) = V(112)\n  V_USER(206) = V(161)\n  V_USER(207) = V(162)\n  V_USER(208) = V(255)\n  V_USER(209) = V(211)\n  V_USER(210) = V(237)\n  V_USER(211) = V(163)\n  V_USER(212) = V(177)\n  V_USER(213) = V(57)\n  V_USER(214) = V(130)\n  V_USER(215) = V(169)\n  V_USER(216) = V(262)\n  V_USER(217) = V(193)\n  V_USER(218) = V(277)\n  V_USER(219) = V(257)\n  V_USER(220) = V(278)\n  V_USER(221) = V(275)\n  V_USER(222) = V(273)\n  V_USER(223) = V(272)\n  V_USER(224) = V(274)\n  V_USER(225) = V(14)\n  V_USER(226) = V(15)\n  V_USER(227) = V(16)\n  V_USER(228) = V(17)\n  V_USER(229) = V(20)\n  V_USER(230) = V(21)\n  V_USER(231) = V(24)\n  V_USER(232) = V(23)\n  V_USER(233) = V(25)\n  V_USER(234) = V(26)\n  V_USER(235) = V(309)\n  V_USER(236) = V(259)\n  V_USER(237) = V(159)\n  V_USER(238) = V(308)\n  V_USER(239) = V(92)\n  V_USER(240) = V(324)\n  V_USER(241) = V(153)\n  V_USER(242) = V(194)\n  V_USER(243) = V(248)\n  V_USER(244) = V(216)\n  V_USER(245) = V(287)\n  V_USER(246) = V(253)\n  V_USER(247) = V(202)\n  V_USER(248) = V(246)\n  V_USER(249) = V(292)\n  V_USER(250) = V(113)\n  V_USER(251) = V(93)\n  V_USER(252) = V(294)\n  V_USER(253) = V(328)\n  V_USER(254) = V(282)\n  V_USER(255) = V(45)\n  V_USER(256) = V(256)\n  V_USER(257) = V(242)\n  V_USER(258) = V(164)\n  V_USER(259) = V(184)\n  V_USER(260) = V(80)\n  V_USER(261) = V(28)\n  V_USER(262) = V(191)\n  V_USER(263) = V(219)\n  V_USER(264) = V(314)\n  V_USER(265) = V(131)\n  V_USER(266) = V(208)\n  V_USER(267) = V(227)\n  V_USER(268) = V(288)\n  V_USER(269) = V(302)\n  V_USER(270) = V(254)\n  V_USER(271) = V(185)\n  V_USER(272) = V(67)\n  V_USER(273) = V(63)\n  V_USER(274) = V(214)\n  V_USER(275) = V(19)\n  V_USER(276) = V(64)\n  V_USER(277) = V(65)\n  V_USER(278) = V(346)\n  V_USER(279) = V(335)\n  V_USER(280) = V(351)\n  V_USER(281) = V(269)\n  V_USER(282) = V(95)\n  V_USER(283) = V(18)\n  V_USER(284) = V(343)\n  V_USER(285) = V(334)\n  V_USER(286) = V(341)\n  V_USER(289) = V(120)\n  V_USER(290) = V(68)\n  V_USER(291) = V(345)\n  V_USER(292) = V(96)\n  V_USER(293) = V(289)\n  V_USER(294) = V(280)\n  V_USER(295) = V(315)\n  V_USER(296) = V(139)\n  V_USER(297) = V(114)\n  V_USER(298) = V(195)\n  V_USER(299) = V(291)\n  V_USER(300) = V(229)\n  V_USER(301) = V(260)\n  V_USER(302) = V(123)\n  V_USER(303) = V(124)\n  V_USER(304) = V(250)\n  V_USER(305) = V(247)\n  V_USER(306) = V(290)\n  V_USER(307) = V(125)\n  V_USER(308) = V(115)\n  V_USER(309) = V(318)\n  V_USER(310) = V(251)\n  V_USER(311) = V(319)\n  V_USER(312) = V(97)\n  V_USER(313) = V(178)\n  V_USER(314) = V(165)\n  V_USER(315) = V(98)\n  V_USER(316) = V(196)\n  V_USER(317) = V(99)\n  V_USER(318) = V(100)\n  V_USER(319) = V(298)\n  V_USER(320) = V(322)\n  V_USER(321) = V(173)\n  V_USER(322) = V(187)\n  V_USER(323) = V(192)\n  V_USER(324) = V(209)\n  V_USER(325) = V(199)\n  V_USER(326) = V(116)\n  V_USER(327) = V(188)\n  V_USER(328) = V(155)\n  V_USER(329) = V(179)\n  V_USER(330) = V(166)\n  V_USER(331) = V(353)\n  V_USER(332) = V(344)\n  V_USER(337) = V(348)\n  V_USER(338) = V(134)\n  V_USER(339) = V(29)\n  V_USER(340) = V(30)\n  V_USER(341) = V(31)\n  V_USER(342) = V(220)\n  V_USER(343) = V(58)\n  V_USER(344) = V(121)\n  V_USER(345) = V(200)\n  V_USER(346) = V(82)\n  V_USER(347) = V(22)\n  V_USER(348) = V(101)\n  V_USER(349) = V(27)\n  V_USER(350) = V(32)\n  V_USER(351) = V(33)\n  V_USER(352) = V(189)\n\nEND SUBROUTINE Shuffle_kpp2user\n\n! End of Shuffle_kpp2user function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n!\n! GetMass - compute total mass of selected atoms\n!   Arguments :\n!      CL        - Concentration of all species (local)\n!      Mass      - value of mass balance\n!\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE GetMass ( CL, Mass )\n\n! CL - Concentration of all species (local)\n  REAL(kind=dp) :: CL(NSPEC)\n! Mass - value of mass balance\n  REAL(kind=dp) :: Mass(1)\n\n\nEND SUBROUTINE GetMass\n\n! End of GetMass function\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n! Get_OHreactivity - returns the OH reactivity\n! The OH reactivity is defined as the inverse of its lifetime.\n! This routine was auto-generated using script OHreact_parser.py.\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nSUBROUTINE Get_OHreactivity ( CC, RR, OHreact )\n\n! CC - Concentrations of species (local)\n  REAL(kind=dp) :: CC(NSPEC)\n! RR - reaction rates (local)\n  REAL(kind=dp) :: RR(NREACT)\n! OHreact - OH reactivity [s-1]\n  REAL(kind=dp) :: OHreact\n\n  OHreact = RR(12)*CC(89) + RR(14)*CC(341) + 2*RR(18) + 2*RR(19) + RR(20)*CC(337) &\n          + RR(21)*CC(264) + RR(24)*CC(329) + RR(25)*CC(228) + RR(31)*CC(328) + RR(32)*CC(164) &\n          + RR(33)*CC(244) + RR(34)*CC(325) + RR(35)*CC(335) + RR(36)*CC(327) + RR(37)*CC(346) &\n          + RR(38)*CC(239) + RR(41)*CC(108) + RR(44)*CC(351) + RR(47)*CC(265) + RR(48)*CC(282) &\n          + RR(51)*CC(326) + RR(55)*CC(139) + RR(57)*CC(183) + RR(61)*CC(141) + RR(62)*CC(141) &\n          + RR(66)*CC(69) + RR(71)*CC(98) + RR(72)*CC(196) + RR(75)*CC(140) + RR(80)*CC(127) &\n          + RR(81)*CC(233) + RR(88)*CC(126) + RR(89)*CC(142) + RR(102)*CC(251) + RR(103)*CC(279) &\n          + RR(104)*CC(283) + RR(105)*CC(298) + RR(108)*CC(124) + RR(111)*CC(295) + RR(122)*CC(292) &\n          + RR(126)*CC(113) + RR(140)*CC(156) + RR(141)*CC(188) + RR(149)*CC(290) + RR(151)*CC(306) &\n          + RR(152)*CC(306) + RR(153)*CC(306) + RR(160)*CC(114) + RR(161)*CC(72) + RR(163)*CC(270) &\n          + RR(164)*CC(294) + RR(167)*CC(307) + RR(168)*CC(307) + RR(169)*CC(125) + RR(170)*CC(118) &\n          + RR(171)*CC(99) + RR(172)*CC(100) + RR(173)*CC(97) + RR(174)*CC(102) + RR(175)*CC(155) &\n          + RR(176)*CC(123) + RR(177)*CC(24) + RR(178)*CC(92) + RR(199)*CC(94) + RR(200)*CC(94) &\n          + RR(202)*CC(348) + RR(206)*CC(352) + RR(211)*CC(148) + RR(214)*CC(347) + RR(223)*CC(81) &\n          + RR(224)*CC(78) + RR(225)*CC(105) + RR(234)*CC(354) + RR(235)*CC(343) + RR(239)*CC(68) &\n          + RR(273)*CC(245) + RR(275)*CC(338) + RR(276)*CC(338) + RR(277)*CC(120) + RR(278)*CC(76) &\n          + RR(279)*CC(339) + RR(280)*CC(333) + RR(281)*CC(297) + RR(282)*CC(317) + RR(283)*CC(181) &\n          + RR(284)*CC(79) + RR(285)*CC(75) + RR(286)*CC(43) + RR(287)*CC(87) + RR(288)*CC(85) &\n          + RR(289)*CC(86) + RR(290)*CC(84) + RR(352)*CC(170) + RR(353)*CC(73) + RR(354)*CC(330) &\n          + RR(359)*CC(52) + RR(360)*CC(261) + RR(361)*CC(247) + RR(378)*CC(167) + RR(380)*CC(219) &\n          + RR(382)*CC(191) + RR(387)*CC(111) + RR(388)*CC(137) + RR(390)*CC(225) + RR(396)*CC(74) &\n          + RR(397)*CC(66) + RR(402)*CC(160) + RR(403)*CC(176) + RR(407)*CC(138) + RR(408)*CC(112) &\n          + RR(409)*CC(129) + RR(415)*CC(161) + RR(416)*CC(162) + RR(420)*CC(255) + RR(423)*CC(237) &\n          + RR(426)*CC(211) + RR(433)*CC(163) + RR(435)*CC(177) + RR(441)*CC(169) + RR(442)*CC(130) &\n          + RR(447)*CC(229) + RR(450)*CC(193) + RR(453)*CC(262) + RR(481)*CC(256) + RR(482)*CC(242) &\n          + RR(488)*CC(154) + RR(489)*CC(93) + RR(490)*CC(83) + RR(491)*CC(91) + RR(492)*CC(95) &\n          + RR(494)*CC(276) + RR(495)*CC(276) + RR(496)*CC(276) + RR(497)*CC(276) + RR(524)*CC(230) &\n          + RR(525)*CC(231) + RR(526)*CC(150) + RR(527)*CC(144) + RR(528)*CC(238) + RR(529)*CC(215) &\n          + RR(530)*CC(119) + RR(531)*CC(187) + RR(532)*CC(187) + RR(533)*CC(192) + RR(534)*CC(192) &\n          + RR(535)*CC(187) + RR(536)*CC(192) + RR(537)*CC(209) + RR(538)*CC(199) + RR(551)*CC(128) &\n          + RR(552)*CC(151) + RR(553)*CC(151) + RR(554)*CC(152) + RR(555)*CC(152) + RR(574)*CC(175) &\n          + RR(575)*CC(175) + RR(576)*CC(168) + RR(577)*CC(168) + RR(578)*CC(268) + RR(579)*CC(268) &\n          + RR(580)*CC(267) + RR(581)*CC(267) + RR(582)*CC(268) + RR(583)*CC(267) + RR(621)*CC(222) &\n          + RR(622)*CC(186) + RR(623)*CC(222) + RR(624)*CC(186) + RR(625)*CC(186) + RR(626)*CC(222) &\n          + RR(627)*CC(186) + RR(628)*CC(186) + RR(637)*CC(301) + RR(638)*CC(301) + RR(641)*CC(299) &\n          + RR(644)*CC(314) + RR(646)*CC(309) + RR(647)*CC(309) + RR(650)*CC(302) + RR(651)*CC(288) &\n          + RR(652)*CC(287) + RR(653)*CC(248) + RR(654)*CC(216) + RR(661)*CC(194) + RR(662)*CC(185) &\n          + RR(663)*CC(131) + RR(664)*CC(227) + RR(665)*CC(208) + RR(666)*CC(153) + RR(672)*CC(159) &\n          + RR(684)*CC(184) + RR(685)*CC(107) + RR(686)*CC(258) + RR(687)*CC(147) + RR(688)*CC(174) &\n          + RR(689)*CC(198) + RR(690)*CC(266) + RR(691)*CC(303) + RR(693)*CC(115) + RR(694)*CC(88) &\n          + RR(696)*CC(210) + RR(697)*CC(210) + RR(698)*CC(19) + RR(701)*CC(173) + RR(702)*CC(220) &\n          + RR(705)*CC(149) + RR(707)*CC(200) + RR(711)*CC(116) + RR(713)*CC(109) + RR(714)*CC(60) &\n          + RR(721)*CC(70) + RR(722)*CC(136) + RR(723)*CC(136) + RR(724)*CC(143) + RR(725)*CC(82) &\n          + RR(726)*CC(101) + RR(732)*CC(58) + RR(735)*CC(146) + RR(740)*CC(122) + RR(741)*CC(195) &\n          + RR(743)*CC(158) + RR(745)*CC(202) + RR(748)*CC(204) + RR(753)*CC(71) + RR(755)*CC(90) &\n          + RR(760)*CC(117) + RR(763)*CC(269) + RR(767)*CC(221) + RR(770)*CC(201) + RR(780)*CC(41) &\n          + RR(791)*CC(353) + RR(792)*CC(344)\n\nEND SUBROUTINE Get_OHreactivity\n! End of Get_OHreactivity subroutine\n! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nEND MODULE gckpp_Util\n"
  },
  {
    "path": "KPP/fullchem/rateLawUtilFuncs.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: rateLawUtilFuncs\n!\n! !DESCRIPTION: Provides common functions for computing reaction rates.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE rateLawUtilFuncs\n!\n! !USES:\n!\n  USE gckpp_Global\n  USE gckpp_Precision\n\n  IMPLICIT NONE\n  PUBLIC\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: coth\n!\n! !DEFINED PARAMETERS:\n!\n  ! Minimum heterogeneous chemistry lifetime and reaction rate\n  REAL(dp), PRIVATE, PARAMETER :: HET_MIN_LIFE = 1.e-3_dp\n  REAL(dp), PRIVATE, PARAMETER :: HET_MIN_RATE = 1.0_dp / HET_MIN_LIFE\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\nCONTAINS\n\n  !#########################################################################\n  !#####                   ARRHENIUS FUNCTIONS                         #####\n  !#########################################################################\n\n  FUNCTION GCARR_ab( a0, b0 ) RESULT( k )\n    ! Arrhenius function, skipping computation of EXP( c0/T ),\n    ! which evaluates to 1 when c0=0.  This avoids excess CPU\n    ! cycles. (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, b0\n    REAL(dp)             :: k\n    !\n    k = a0 * K300_OVER_TEMP**b0\n  END FUNCTION GCARR_ab\n\n  FUNCTION GCARR_ac( a0, c0 ) RESULT( k )\n    ! Arrhenius function, skipping computation of ( 300/T )**b0,\n    ! which evaluates to 1 when b0=0.  This avoids excess CPU\n    ! cycles (bmy, 12/18/20)\n    !\n    REAL(dp), INTENT(IN) :: a0, c0\n    REAL(dp)             :: k\n    !\n    k = a0 * EXP( c0 / TEMP )\n  END FUNCTION GCARR_ac\n\n  FUNCTION GCARR_abc( a0, b0, c0 ) RESULT( k )\n    ! Arrhenius function, using all 3 terms.\n    ! Use this when a0, b0, c0 are all nonzero.\n    !\n    REAL(dp), INTENT(IN) :: a0, b0, c0\n    REAL(dp)             :: k\n    !\n    k = a0 * EXP( c0 / TEMP ) * K300_OVER_TEMP**b0\n  END FUNCTION GCARR_abc\n\n  !#########################################################################\n  !#####         COMMON FUNCTIONS FOR COMPUTING UPTAKE RATES           #####\n  !#########################################################################\n\n  FUNCTION Ars_L1k( area, radius, gamma, srMw ) RESULT( k )\n    !\n    ! Calculates the 1st-order loss rate of species on wet aerosol surface.\n    !\n    REAL(dp), INTENT(IN) :: area, radius, gamma, srMw\n    REAL(dp)             :: k,    dfkg\n    !\n    ! If gamma or radius is very small, set rate to zero and return\n    IF ( gamma < 1.0e-30_dp .or. radius < 1.0e-30_dp ) THEN\n       k = 0.0_dp\n       RETURN\n    ENDIF\n    !\n    ! DFKG = Gas phase diffusion coeff [cm2/s] (order of 0.1)\n    dfkg = ( 9.45E+17_dp / NUMDEN ) * SR_TEMP *                              &\n           SQRT( 3.472E-2_dp + 1.0_dp / ( srMw * srMw ) )\n    !\n    ! Compute ArsL1k according to the formula listed above\n    k = area / ( (radius / dfkg) + 2.749064E-4_dp * srMw / (gamma * SR_TEMP) )\n  END FUNCTION Ars_L1k\n\n  FUNCTION kIIR1Ltd( concGas, concEduct, kISource ) RESULT( kII )\n    !\n    ! Determine removal rates for both species in an uptake reaction.\n    ! - Assume that the 1st reactant (concGas) is limiting.\n    ! - Assume that the 2nd reactant (concEduct) is \"abundant\".\n    ! - Calculate the overall rate (kII) based only on the uptake\n    !   rate of the first reactant.\n    ! NOTE: Rewritten for computational efficiency (bmy, 5/13/21)\n    !\n    REAL(dp), INTENT(IN) :: concGas, concEduct, kISource\n    REAL(dp)             :: kIGas,   kIEduct,   lifeA,   lifeB, kII\n    !\n    kIGas   = 0.0_dp\n    kIEduct = 0.0_dp\n    kII     = 0.0_dp\n    !\n    ! Prevent div by zero.  Now use 1.0 as the error trap for concEduct.\n    ! 100 and 1e-8 (the previous criteria) were too large and too small,\n    ! respectively.  See https://github.com/geoschem/geos-chem/issues/1115.\n    !  -- Seb Eastham, Bob Yantosca (09 Feb 2022)\n    IF ( concEduct < 1.0_dp                              ) RETURN\n    IF ( .not. Is_SafeDiv( concGas*kISource, concEduct ) ) RETURN\n    !\n    ! Compute rates\n    kIGas   = kISource\n    kIEduct = kIGas * concGas / concEduct\n    kII     = kIGas           / concEduct\n    !\n    ! Enforce a minimum lifetime?\n    IF ( kIGas > 0.0_dp ) THEN\n       !\n       ! Calculate lifetime of each reactant against removal\n       lifeA = SafeDiv( 1.0_dp, kIGas,   0.0_dp )\n       lifeB = SafeDiv( 1.0_dp, kIEduct, 0.0_dp )\n       !\n       ! Check if either lifetime is \"too short\"\n       IF ( ( lifeA < lifeB ) .and. ( lifeA < HET_MIN_LIFE ) ) THEN\n          kII = SafeDiv( HET_MIN_RATE, concEduct, 0.0_dp )\n       ELSE IF ( lifeB < HET_MIN_LIFE ) THEN\n          kII = SafeDiv( HET_MIN_RATE, concGas, 0.0_dp )\n       ENDIF\n    ENDIF\n  END FUNCTION kIIR1Ltd\n\n  FUNCTION CloudHet( H, srMw, gamLiq, gamIce, brLiq, brIce ) RESULT( kHet )\n    !\n    ! Function CloudHet calculates the loss frequency (1/s) of gas species\n    ! due to heterogeneous chemistry on clouds in a partially cloudy grid\n    ! cell. The function uses the \"entrainment limited uptake\" equations of\n    ! Holmes et al. (2019). Both liquid and ice water clouds are treated.\n    !\n    ! For gasses that are that are consumed in multiple aqueous reactions\n    ! with different products, CloudHet can provide the loss frequency for\n    ! each reaction branch using the branch ratios (branchLiq, branchIce).\n    !\n    ! Reference:\n    ! Holmes, C.D., Bertram, T. H., Confer, K. L., Ronan, A. C., Wirks,\n    !   C. K., Graham, K. A., Shah, V. (2019) The role of clouds in the\n    !   tropospheric NOx cycle: a new modeling approach for cloud chemistry\n    !   and its global implications, Geophys. Res. Lett. 46, 4980-4990,\n    !   https://doi.org/10.1029/2019GL081990\n    !\n    TYPE(HetState), INTENT(IN) :: H              ! Hetchem State object\n    REAL(dp),       INTENT(IN) :: srMw           ! SQRT( mol wt [g/mole] )\n    REAL(dp),       INTENT(IN) :: gamLiq         ! Rxn prob, liquid [1]\n    REAL(dp),       INTENT(IN) :: gamIce         ! Rxn prob, ice [1]\n    REAL(dp),       INTENT(IN) :: brLiq          ! Frac of reactant consumed\n    REAL(dp),       INTENT(IN) :: brIce          !  in liq & ice branches [0-1]\n    REAL(dp)                   :: kHet           ! Grid-avg loss frequency [1/s]\n    !\n    REAL(dp),       PARAMETER  :: tauc = 3600.0_dp\n    REAL(dp)                   :: kI, gam, rd, area\n    REAL(dp)                   :: kk, ff, xx, branch, kIb, ktmp\n    LOGICAL                    :: isCloud\n\n    ! If cloud fraction < 0.0001 (0.01%) or there is zero cloud surface\n    ! area, then return zero uptake\n    IF ( ( H%CldFr < 0.0001_dp ) .or. ( H%aLiq + H%aIce <= 0.0_dp ) ) THEN\n       kHet = 0.0_dp\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Loss frequency inside cloud\n    !\n    ! Assume both water and ice phases are inside the same cloud, so mass\n    ! transport to both phases works in parallel (additive)\n    !-----------------------------------------------------------------------\n\n    ! initialize\n    kI   = 0.0_dp\n    kIb  = 0.0_dp\n    ktmp = 0.0_dp\n    kHet = 0.0_dp\n\n    !-----------------------------------------------------------------------\n    ! Liquid branch (skip if the liquid branching ratio is zero)\n    !-----------------------------------------------------------------------\n    IF ( brLiq > 0.0_dp ) THEN\n\n       ! Convert grid-average cloud condensate surface area density\n       ! to in-cloud surface area density\n       area = SafeDiv( H%aLiq, H%CldFr, 0.0_dp )\n\n       ! Skip if no area\n       IF ( area > 0.0_dp ) THEN\n\n          ! In-cloud loss frequency [1/s]\n          ktmp = Ars_L1K( area, H%rLiq, gamLiq, srMw )\n          kI   = kI + ktmp\n\n          ! In-cloud loss frequency for liquid rxn branch [1/s]\n          kIb  = kIb + ( ktmp * brLiq )\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------\n    ! Ice branch (skip if the ice branching ratio is zero)\n    !------------------------------------------------------------------\n    IF ( brIce > 0.0_dp ) THEN\n\n       ! Convert grid-average cloud condensate surface area density\n       ! to in-cloud surface area density\n       area = SafeDiv( H%aIce, H%CldFr, 0.0_dp )\n\n       ! Skip if no area\n       IF ( area > 0.0_dp ) THEN\n\n          ! In-cloud loss frequency [1/s]\n          ktmp = Ars_L1K( area, H%rIce, gamIce, srMw )\n          kI   = kI + ktmp\n\n          ! In-continue loud loss frequency for ice rxn branch [1/s]\n          kIb  = kIb + ( ktmp * brIce )\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------\n    ! Mean branch ratio for reaction of interest in cloud\n    ! (averaged over ice and liquid)\n    !\n    ! If the division can't be done, set kHet = 0 and return\n    !------------------------------------------------------------------\n    branch = SafeDiv( kiB, kI, 0.0_dp )\n    IF ( .not. branch > 0.0_dp ) THEN\n       kHet = 0.0_dp\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Grid-average loss frequency\n    !\n    ! EXACT expression for entrainment-limited uptake\n    !------------------------------------------------------------------------\n\n    ! Ratio (in cloud) of heterogeneous loss to detrainment, s/s\n    kk = kI * tauc\n\n    ! Ratio of volume inside to outside cloud\n    ! ff has a range [0,+inf], so cap it at 1e30\n    ff = SafeDiv( H%CldFr, H%ClearFr, 1.0e+30_dp )\n    ff = MIN( ff, 1.0e+30_dp )\n\n    ! Ratio of mass inside to outside cloud\n    ! xx has range [0,+inf], but ff is capped at 1e30, so shouldn't overflow.\n    xx =     ( ff        - kk        - 1.0_dp       ) / 2.0_dp +             &\n         SQRT( 1.0_dp    + ff*ff     + kk*kk                   +             &\n               2.0_dp*ff + 2.0_dp*kk - 2.0_dp*ff*kk ) / 2.0_dp\n\n    ! Do not let xx go negative, as this can cause numerical instability.\n    ! See https://github.com/geoschem/geos-chem/issues/1205\n    xx = MAX( xx, 0.0_dp )\n\n    ! Overall heterogeneous loss rate, grid average, 1/s\n    ! kHet = kI * xx / ( 1d0 + xx )\n    !  Since the expression ( xx / (1+xx) ) may behave badly when xx>>1,\n    !  use the equivalent 1 / (1 + 1/x) with an upper bound on 1/x\n    kHet = kI / ( 1.0_dp + SafeDiv( 1.0_dp, xx, 1.0e+30_dp ) )\n\n    ! Overall loss rate in a particular reaction branch, 1/s\n    kHet = kHet * branch\n  END FUNCTION CloudHet\n\n  SUBROUTINE Cld_Params( AD, CLDF, FRLAND, FROCEAN, QI, QL, T, H )\n    !\n    ! Returns ice and liquid cloud parameters (based on State_Met)\n    ! for cloud particles.\n    !\n    ! References:\n    !  Heymsfield, A. J., Winker, D., Avery, M., et al. (2014). Relationships\n    !   between ice water content and volume extinction coefficient from in\n    !   situ observations for temperatures from 0° to –86°C: implications\n    !   for spaceborne lidar retrievals. Journal of Applied Meteorology and\n    !   Climatology, 53(2), 479–505. https://doi.org/10.1175/JAMC-D-13-087.1\n    !\n    !  Schmitt, C. G., & Heymsfield, A. J. (2005). Total Surface Area Estimates\n    !   for Individual Ice Particles and Particle Populations. Journal of\n    !   Applied Meteorology, 44(4), 467–474. https://doi.org/10.1175/JAM2209.1\n    !\n    REAL(dp),       INTENT(IN)    :: AD          ! Air mass [kg]\n    REAL(dp),       INTENT(IN)    :: CLDF        ! Cloud fraction [1]\n    REAL(dp),       INTENT(IN)    :: FRLAND      ! Land fraction [1]\n    REAL(dp),       INTENT(IN)    :: FROCEAN     ! Ocean fraction [1]\n    REAL(dp),       INTENT(IN)    :: QI          ! Ice mixing ratio [kg/kg]\n    REAL(dp),       INTENT(IN)    :: QL          ! Liquid mixing ratio [kg/kg]\n    REAL(dp),       INTENT(IN)    :: T           ! Temperature [K]\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(HetState), INTENT(INOUT) :: H           ! Hetchem State object\n!\n! !REMARKS:\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n    ! Cloud droplet radius in continental warm clouds [cm]\n    REAL(dp), PARAMETER :: CLDR_CONT = 6.0e-4_dp\n\n    ! Cloud droplet radius in marine warm clouds [cm]\n    REAL(dp), PARAMETER :: CLDR_MARI = 10.0e-4_dp\n\n    ! Ice cloud droplet radius [cm]\n    REAL(dp), PARAMETER :: CLDR_ICE  = 38.5e-4_dp\n\n    ! Density of H2O liquid [kg/cm3]\n    REAL(dp), PARAMETER :: DENS_LIQ  = 0.001_dp\n\n    ! Density of H2O ice [kg/cm3]\n    REAL(dp), PARAMETER :: DENS_ICE  = 0.91e-3_dp\n!\n! !LOCAL VARIABLES:\n!\n    REAL(dp) :: alpha, beta\n\n    !=======================================================================\n    ! CLD_PARAMS begins here!\n    !=======================================================================\n\n    ! Exit if there is no cloud\n    IF ( ( QL + QI <= 0.0_dp ) .or. ( CLDF <= 0.0_dp ) ) THEN\n       H%rLiq = CLDR_CONT\n       H%rIce = CLDR_ICE\n       H%ALiq = 0.0_dp\n       H%VLiq = 0.0_dp\n       H%AIce = 0.0_dp\n       H%VIce = 0.0_dp\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! In GC 12.0 and earlier, the liquid water volume was set to zero at\n    ! temperatures colder than 258K and over land ice (Antarctica &\n    ! Greenland). That was likely legacy code from GEOS-4, which provided\n    ! no information on cloud phase. As of GC 12.0, all met data sources\n    ! provide explicit liquid and ice condensate amounts, so we use those\n    ! as provided. (C.D. Holmes)\n    !\n    ! Liquid water clouds\n    !\n    ! Droplets are spheres, so\n    ! Surface area = 3 * Volume / Radius\n    !\n    ! Surface area density = Surface area / Grid volume\n    !-----------------------------------------------------------------------\n    IF ( FRLAND > FROCEAN ) THEN\n       H%rLiq = CLDR_CONT      ! Continental cloud droplet radius [cm]\n    ELSE\n       H%rLiq = CLDR_MARI      ! Marine cloud droplet radius [cm]\n\n    ENDIF\n\n    ! get the volume of cloud condensate [cm3(condensate)/cm3(air)]\n    ! QL is [g/g]\n    H%VLiq = QL * AD / DENS_LIQ / H%vAir\n    H%VIce = QI * AD / DENS_ICE / H%vAir\n    H%ALiq = 3.0_dp * H%vLiq / H%rLiq\n\n    !-----------------------------------------------------------------------\n    ! Ice water clouds\n    !\n    ! Surface area calculation requires information about ice crystal size\n    ! and shape, which is a function of temperature. Use Heymsfield (2014)\n    ! empirical relationships between temperature, effective radius,\n    ! surface area and ice water content.\n    !\n    ! Schmitt and Heymsfield (2005) found that ice surface area is about\n    ! 9 times its cross-sectional area.\n    !\n    ! For any shape,\n    !   Cross section area = pi * (Effective Radius)^2, so\n    !   Cross section area = 3 * Volume / ( 4 * Effective Radius ).\n    !\n    ! Thus, for ice\n    !   Surface area = 9 * Cross section area\n    !                = 2.25 * 3 * Volume / Effective Radius\n    ! (C.D. Holmes)\n    !-----------------------------------------------------------------------\n\n    ! Heymsfield (2014) ice size parameters\n    IF ( T < 202.0_dp ) THEN          ! -71 C\n       alpha = 83.3_dp\n       beta  = 0.0184_dp\n    ELSE IF ( T < 217.0_dp ) THEN     ! -56 C\n       alpha = 9.1744e+4_dp\n       beta  = 0.117_dp\n    ELSE\n       alpha = 308.4_dp\n       beta  = 0.0152_dp\n    ENDIF\n\n    ! Effective radius, cm\n    H%rIce = 0.5_dp * alpha * EXP( beta * ( T - 273.15_dp ) ) / 1e+4_dp\n\n    ! Ice surface area density, cm2/cm3\n    H%aIce = 3.0_dp * H%vIce / H%rIce * 2.25_dp\n\n  END SUBROUTINE Cld_Params\n\n  !#########################################################################\n  !#####         COMMON FUNCTIONS FOR COMPUTING UPTAKE RATES           #####\n  !#########################################################################\n\n  FUNCTION coth( x ) RESULT( f_x )\n    !\n    ! Hyperbolic cotangent = [1 + exp(-2x)] / [1 - exp(-2x)]\n    !\n    REAL(dp), INTENT(IN) :: x\n    REAL(dp)             :: y, f_x\n    !\n    y   = EXP( -2.0_dp * x )\n    f_x = ( 1.0_dp + y ) / ( 1.0_dp - y )\n  END FUNCTION coth\n\n  FUNCTION ReactoDiff_Corr( radius, l ) RESULT( corr )\n    !\n    ! For x = radius / l, correction =  COTH( x ) - ( 1/x )\n    ! Correction approaches 1 as x becomes large, corr(x>1000)~1\n    ! Correction approaches x/3 as x goes towards 0\n    !\n    REAL(dp), INTENT(IN)  :: l, radius           ! [cm] and [cm]\n    REAL(dp)              :: x, corr\n    !\n    x = radius / l\n    IF ( x > 1000.0_dp ) THEN\n       corr = 1.0_dp\n       RETURN\n    ENDIF\n    IF ( x < 0.1_dp ) THEN\n       corr = x / 3.0_dp;\n       RETURN\n    ENDIF\n    corr = coth(x) - ( 1.0_dp / x )\n  END FUNCTION ReactoDiff_Corr\n\n  !#########################################################################\n  !#####   COMMON FUNCTIONS FOR ENFORCING SAFE NUMERICAL OPERATIONS    #####\n  !#########################################################################\n\n  FUNCTION SafeDiv( num, denom, alt ) RESULT( quot )\n    !\n    ! Performs \"safe division\", that is to prevent overflow, underlow,\n    ! NaN, or infinity errors.  An alternate value is returned if the\n    ! division cannot be performed.\n    REAL(dp), INTENT(IN) :: num, denom, alt\n    REAL(dp)             :: ediff, quot\n    !\n    ! Exponent difference (base 2)\n    ! For REAL*8, max exponent = 1024 and min = -1021\n    ediff = EXPONENT( num ) - EXPONENT( denom )\n    !\n    IF ( ediff > 1023 .OR. denom == 0.0_dp ) THEN\n       quot = alt\n    ELSE IF ( ediff < -1020 ) THEN\n       quot = 0.0_dp\n    ELSE\n       quot = num / denom\n    ENDIF\n  END FUNCTION SafeDiv\n\n  FUNCTION Is_SafeDiv( num, denom ) RESULT( safe )\n    !\n    ! Returns TRUE if a division can be performed safely.\n    REAL(dp), INTENT(IN) :: num, denom\n    LOGICAL              :: safe\n    REAL(dp)             :: ediff\n    !\n    ! Exponent difference (base 2)\n    ! For REAL*8, max exponent = 1024 and min = -1021\n    safe  = .TRUE.\n    ediff = EXPONENT( num ) - EXPONENT( denom )\n    !\n    IF ( ediff < -1020 .or. ediff > 1023 .or. denom == 0.0_dp ) THEN\n       safe = .FALSE.\n    ENDIF\n  END FUNCTION Is_SafeDiv\n\n  FUNCTION IsSafeExp( x ) RESULT( safe )\n    !\n    ! Returns TRUE if an exponential can be performed safely\n    !\n    REAL(dp), INTENT(IN) :: x\n    LOGICAL              :: safe\n    !\n    ! Note EXP( 708 ) = 8.2e+307 and EXP( -708 ) = 3.3e-308, which are\n    ! very close to the maximum representable values at double precision.\n    safe = ( ABS( x ) < 709.0_dp )\n  END FUNCTION IsSafeExp\n\n  FUNCTION SafeExp( x, alt ) RESULT( y )\n    !\n    ! Performs a \"safe exponential\", that is to prevent overflow, underflow,\n    ! underlow, NaN, or infinity errors when taking the value EXP( x ).  An\n    ! alternate value is returned if the exponential cannot be performed.\n    !\n    REAL(dp), INTENT(IN) :: x, alt\n    REAL(dp)             :: y\n    !\n    y = alt\n    IF ( ABS( X ) < 709.0_dp ) y = EXP( x )\n  END FUNCTION SafeExp\n!EOC\nEND MODULE rateLawUtilFuncs\n"
  },
  {
    "path": "KPP/stubs/stub_Hg_HetStateFuncs.F90",
    "content": "MODULE Hg_HetStateFuncs\n  !\n  ! Stub module to avoid compilation errors\n  !\n  IMPLICIT NONE\n  PRIVATE\n  !\n  PUBLIC :: Hg_SetStateHet\n  !\nCONTAINS\n  !\n  SUBROUTINE Hg_SetStateHet( I,          J,          L,                       &\n                             Input_Opt,  State_Chm,  State_Met,               &\n                             fracOrgAer, H,          RC                      )\n    !\n    ! Stub routine to avoid compilation errors\n    !\n\n    USE GcKpp_Global,     ONLY : HetState\n    USE GcKpp_Precision\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Met_Mod,    ONLY : MetState\n    !\n    INTEGER,        INTENT(IN)    :: I\n    INTEGER,        INTENT(IN)    :: J\n    INTEGER,        INTENT(IN)    :: L\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(ChmState), INTENT(IN)    :: State_Chm\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    REAL(sp),       INTENT(IN)    :: fracOrgAer\n    TYPE(HetState), INTENT(INOUT) :: H\n    INTEGER,        INTENT(OUT)   :: RC\n    !\n    RC = 0\n  END SUBROUTINE Hg_SetStateHet\n  !\nEND MODULE Hg_HetStateFuncs\n"
  },
  {
    "path": "KPP/stubs/stub_aciduptake_DustChemFuncs.F90",
    "content": "MODULE aciduptake_DustChemFuncs\n  !\n  ! Stub routine for GeosCore/fullchem_mod.F90\n  !\n  IMPLICIT NONE\n  PRIVATE\n  !\n  PUBLIC :: aciduptake_InitDustChem\n  !\nCONTAINS\n  !\n  SUBROUTINE aciduptake_InitDustChem( RC )\n    !\n    ! Stub routine for GeosCore/fullchem_mod.F90,\n    !\n    INTEGER, INTENT(INOUT) :: RC   ! Success or failure\n    !\n    RC = 0\n  END SUBROUTINE aciduptake_InitDustChem\n  !\nEND MODULE aciduptake_DustChemFuncs\n"
  },
  {
    "path": "KPP/stubs/stub_carbon_Funcs.F90",
    "content": "MODULE carbon_Funcs\n  ! Stub module for KPP/carbon/carbon_Funcs.F90 needed to satisfy\n  ! compile-time dependencies for non-carbon chemistry mechanisms.\n\n  USE gckpp_Precision\n  USE gckpp_Parameters\n  USE gckpp_Global\n  USE Precision_Mod,   ONLY : fp\n  USE rateLawUtilFuncs\n\nCONTAINS\n\n  !------------------------------------------------------------\n  SUBROUTINE carbon_ConvertKgToMolecCm3( I, J, L, State_Chm, State_Met )\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n    INTEGER,        INTENT(IN) :: I, J, L\n    TYPE(MetState), INTENT(IN) :: State_Met\n    TYPE(ChmState), INTENT(IN) :: State_Chm\n  END SUBROUTINE carbon_ConvertKgToMolecCm3\n\n  !------------------------------------------------------------\n  SUBROUTINE carbon_ComputeRateConstants(                       &\n             I,             J,                 L,               &\n             ConcClMnd,     ConcOHMnd,         LCH4_in_Strat,   &\n             LCO_in_Strat,  OHdiurnalFac,      PCO_fr_CH4_use,  &\n             PCO_fr_CH4,    PCO_fr_NMVOC_use,  PCO_fr_NMVOC,    &\n             PCO_in_Strat,  dtChem,            State_Chm,       &\n             State_Met                                         )\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n    INTEGER,        INTENT(IN) :: I, J, L\n    REAL(fp),       INTENT(IN) :: ConcClMnd\n    REAL(fp),       INTENT(IN) :: ConcOHmnd\n    REAL(fp),       INTENT(IN) :: LCH4_in_Strat\n    REAL(fp),       INTENT(IN) :: LCO_in_Strat\n    REAL(fp),       INTENT(IN) :: OHdiurnalFac\n    LOGICAL,        INTENT(IN) :: PCO_fr_CH4_use\n    REAL(fp),       INTENT(IN) :: PCO_fr_CH4\n    LOGICAL,        INTENT(IN) :: PCO_fr_NMVOC_use\n    REAL(fp),       INTENT(IN) :: PCO_fr_NMVOC\n    REAL(fp),       INTENT(IN) :: PCO_in_Strat\n    REAL(fp),       INTENT(IN) :: dtChem\n    TYPE(ChmState), INTENT(IN) :: State_Chm\n    TYPE(MetState), INTENT(IN) :: State_Met\n  END SUBROUTINE carbon_ComputeRateConstants\n  \n  !------------------------------------------------------------\n  SUBROUTINE carbon_ConvertMolecCm3ToKg( I, J, L, State_Chm, State_Met )\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n  END SUBROUTINE carbon_ConvertMolecCm3ToKg\n  \n  !------------------------------------------------------------\n  SUBROUTINE carbon_InitCarbonKPPFuncs( kgmolec_CH4, kgmolec_CO, kgmolec_CO2, RC )\n    USE ErrCode_Mod\n    USE State_Chm_Mod,  ONLY : Ind_\n    REAL(fp), INTENT(IN)  :: kgmolec_CH4\n    REAL(fp), INTENT(IN)  :: kgmolec_CO\n    REAL(fp), INTENT(IN)  :: kgmolec_CO2\n    INTEGER,  INTENT(OUT) :: RC\n  END SUBROUTINE carbon_InitCarbonKPPFuncs\n\n  !------------------------------------------------------------\n  SUBROUTINE carbon_CleanupCarbonKPPFuncs( RC )\n    USE ErrCode_Mod\n    INTEGER,  INTENT(OUT) :: RC\n  END SUBROUTINE carbon_CleanupCarbonKPPFuncs\n\n  !------------------------------------------------------------\n  FUNCTION carbon_Get_COfromCH4_Flux( dtChem ) RESULT ( flux )\n    REAL(dp), INTENT(IN) :: dtChem\n    REAL(dp)             :: flux\n  END FUNCTION carbon_Get_COfromCH4_Flux\n\n  !------------------------------------------------------------\n  FUNCTION carbon_Get_COfromNMVOC_Flux( dtChem ) RESULT ( flux )\n    REAL(dp), INTENT(IN) :: dtChem\n    REAL(dp)             :: flux\n  END FUNCTION carbon_Get_COfromNMVOC_Flux\n\nEND MODULE carbon_Funcs\n"
  },
  {
    "path": "KPP/stubs/stub_fullchem_AutoReduceFuncs.F90",
    "content": "#ifdef KPP_INTEGRATOR_AUTOREDUCE\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: stub_fullchem_AutoReduceFuncs\n!\n! !DESCRIPTION: Stub routines corresponding to fullchem_AutoReduceFuncs.F90.\n!  This allows us to satisfy compilation requirements for fullchem_mod.F90\n!  when building other KPP mechanisms (e.g. Hg, carbon, etc.)\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE fullchem_AutoReduceFuncs\n!\n! !USES:\n!\n  IMPLICIT NONE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: fullchem_AR_KeepHalogensActive\n  PUBLIC :: fullchem_AR_SetKeepActive\n  PUBLIC :: fullchem_AR_UpdateKppDiags\n!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n  SUBROUTINE fullchem_AR_KeepHalogensActive( doPrint )\n    !\n    ! Sets halogen species to \"fast\" for the rosenbrock_autoreduce integrator.\n    !\n    LOGICAL, INTENT(IN) :: doPrint\n    !\n  END SUBROUTINE fullchem_AR_KeepHalogensActive\n  !\n  SUBROUTINE fullchem_AR_SetKeepActive( option ) \n    !\n    ! Abstracts setting the rosenbrock_autoreduce keepActive flag\n    ! out of fullchem_mod.F90\n    !\n    LOGICAL, INTENT(IN) :: option\n    !\n  END SUBROUTINE fullchem_AR_SetKeepActive\n  !\n  SUBROUTINE fullchem_AR_UpdateKppDiags( I, J, L, RSTATE, State_Diag )\n    !\n    ! Updates KPP diagnostics for the rosenbrock_autoreduce solver\n    ! \n    USE gckpp_Precision\n    USE State_Diag_Mod, ONLY : DgnState\n    !\n    INTEGER,        INTENT(IN)    :: I, J, L\n    REAL(dp),       INTENT(IN)    :: RSTATE(20)\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag\n    !\n  END SUBROUTINE fullchem_AR_UpdateKppDiags\n\n  SUBROUTINE fullchem_AR_SetIntegratorOptions( Input_Opt, State_Chm,         &\n                                               State_Met, FirstChem,         &\n                                               I,         J,         L,      &\n                                               ICNTRL,    RCNTRL )\n    !\n    USE gckpp_Parameters\n    USE gckpp_Precision\n    USE Input_Opt_Mod, ONLY : OptInput\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n    !\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(ChmState), INTENT(IN)    :: State_Chm\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    LOGICAL,        INTENT(IN)    :: FirstChem\n    INTEGER,        INTENT(IN)    :: I, J, L\n    INTEGER,        INTENT(INOUT) :: ICNTRL(20)\n    REAL(dp),       INTENT(INOUT) :: RCNTRL(20)\n  END SUBROUTINE fullchem_AR_SetIntegratorOptions\n!EOC\nEND MODULE fullchem_AutoReduceFuncs\n#endif\n"
  },
  {
    "path": "KPP/stubs/stub_fullchem_HetStateFuncs.F90",
    "content": "MODULE fullchem_HetStateFuncs\n  !\n  ! Contains stub routines to satisfy compilation requirements in\n  ! fullchem_mod.F90 when building other KPP-based mechanisms.\n  !\n  IMPLICIT NONE\n  PRIVATE\n  !\n  PUBLIC :: fullchem_SetStateHet\n  !\nCONTAINS\n  !\n  SUBROUTINE fullChem_SetStateHet( I,         J,         L,                  &\n                                   id_SALA,   id_SALAAL, id_SALC,            &\n                                   id_SALCAL, Input_Opt, State_Chm,          &\n                                   State_Met, H,         RC                 )\n    !\n    ! Stub routine to avoid compilation errors\n    !\n    USE GcKpp_Global,     ONLY : HetState\n    USE GcKpp_Precision\n    USE Input_Opt_Mod,    ONLY : OptInput\n    USE State_Chm_Mod,    ONLY : ChmState\n    USE State_Met_Mod,    ONLY : MetState\n    !\n    INTEGER,        INTENT(IN)    :: I\n    INTEGER,        INTENT(IN)    :: J\n    INTEGER,        INTENT(IN)    :: L\n    INTEGER,        INTENT(IN)    :: id_SALA\n    INTEGER,        INTENT(IN)    :: id_SALAAL\n    INTEGER,        INTENT(IN)    :: id_SALC\n    INTEGER,        INTENT(IN)    :: id_SALCAL\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(ChmState), INTENT(IN)    :: State_Chm\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    TYPE(HetState), INTENT(INOUT) :: H\n    INTEGER,        INTENT(OUT)   :: RC\n    !\n    RC = 0\n  END SUBROUTINE fullchem_SetStateHet\n  !\nEND MODULE fullchem_HetStateFuncs\n"
  },
  {
    "path": "KPP/stubs/stub_fullchem_SulfurChemFuncs.F90",
    "content": "MODULE fullchem_SulfurChemFuncs\n  !\n  ! Stub module for GeosCore/fullchem_mod.F90\n  ! This allows us to satisfy compilation dependencies for the \"fullchem\"\n  ! mechanism when compiling other mechanisms (e.g. Hg)\n  !\n  IMPLICIT NONE\n  PUBLIC\n  !\nCONTAINS\n  !\n  SUBROUTINE fullchem_ConvertAlkToEquiv()\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_ConvertAlkToEquiv\n    !\n  END SUBROUTINE fullchem_ConvertAlkToEquiv\n  !\n  SUBROUTINE fullchem_ConvertEquivToAlk()\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_ConvertEquivToAlk\n    !\n  END SUBROUTINE fullchem_ConvertEquivToAlk\n  !\n  SUBROUTINE fullchem_HetDropChem( I,         J,         L,                  &\n                                   Input_Opt, State_Met, State_Chm          )\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_HetDropChem\n    !\n    USE gckpp_Precision, ONLY : dp\n    USE Input_Opt_Mod,   ONLY : OptInput\n    USE State_Chm_Mod,   ONLY : ChmState\n    USE State_Met_Mod,   ONLY : MetState\n    !\n    INTEGER,        INTENT(IN)    :: I, J, L\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt\n    TYPE(MetState), INTENT(IN)    :: State_Met\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm\n  END SUBROUTINE fullchem_HetDropChem\n  !\n  SUBROUTINE fullchem_InitSulfurChem( RC )\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_InitSulfurChem\n    !\n    INTEGER, INTENT(OUT) :: RC\n    !\n    RC = 0\n  END SUBROUTINE fullchem_InitSulfurChem\n  !\n  SUBROUTINE fullchem_SulfurAqChem( I,         J,          L,                &\n                                    Input_Opt, State_Chm,  State_Grid,       &\n                                    State_Met, RC                           )\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_SulfurAqChem\n    !\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Met_Mod,  ONLY : MetState\n    USE State_Grid_Mod, ONLY : GrdState\n    !\n    INTEGER,        INTENT(IN)    :: I, J, L    ! Lon, lat, level indices\n    TYPE(MetState), INTENT(IN)    :: State_Met  ! Meteorology State object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt  ! Input Options object\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm  ! Chemistry State object\n    INTEGER,        INTENT(OUT)   :: RC         ! Success or failure\n    !\n    RC = 0\n  END SUBROUTINE fullchem_SulfurAqChem\n  !\n  SUBROUTINE fullchem_SulfurCldChem( I,         J,         L,                &\n                                     Input_Opt,  State_Chm, State_Diag,      &\n                                     State_Grid, State_Met, size_res,        &\n                                     RC                                     )\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_SulfurCldChem\n    !\n    USE Input_Opt_Mod,      ONLY : OptInput\n    USE State_Chm_Mod,      ONLY : ChmState\n    USE State_Diag_Mod,     ONLY : DgnState\n    USE State_Grid_Mod,     ONLY : GrdState\n    USE State_Met_Mod,      ONLY : MetState\n    !\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n    INTEGER,        INTENT(IN)    :: I, J, L\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n    LOGICAL,        INTENT(OUT)   :: size_res    ! Should we call HetDropChem?\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n    !\n    !\n    RC       = 0\n    size_res = .FALSE.\n  END SUBROUTINE fullchem_SulfurCldChem\n  !\n  SUBROUTINE fullchem_UpdateHSO3mAndSO3mm( I,         J,         L,          &\n                                           State_Chm, State_Het, State_Met  )\n    !\n    ! Stub for GeosCore/fullchem_mod.F90:fullchem_UpdateHSO3mAndSO3mm\n    !\n    USE gckpp_Global,  ONLY : HetState\n    USE State_Chm_Mod, ONLY : ChmState\n    USE State_Met_Mod, ONLY : MetState\n    !\n    INTEGER,        INTENT(IN) :: I, J, L\n    TYPE(ChmState), INTENT(IN) :: State_Chm\n    TYPE(HetState), INTENT(IN) :: State_Het\n    TYPE(MetState), INTENT(IN) :: State_Met\n  END SUBROUTINE fullchem_UpdateHSO3mAndSO3mm\n  !\nEND MODULE fullchem_SulfurChemFuncs\n"
  },
  {
    "path": "LICENSE.txt",
    "content": "############################################################################\n###     License Agreement for GEOS-Chem, HEMCO, and Related Software     ###\n###     (The MIT License, http://opensource.org/licenses/MIT)            ###\n############################################################################\n\nCopyright (c) 2017-2023 Developers of GEOS-Chem, HEMCO, and Related Software\n\nPermission is hereby granted, free of charge, to any person obtaining a copy\nof this software and associated documentation files (the \"Software\"), to deal\nin the Software without restriction, including without limitation the rights\nto use, copy, modify, merge, publish, distribute, sublicense, and/or sell\ncopies of the Software, and to permit persons to whom the Software is\nfurnished to do so, subject to the following conditions:\n\nThe above copyright notice and this permission notice shall be included in all\ncopies or substantial portions of the Software.\n\nTHE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\nIMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\nFITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\nAUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\nLIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\nOUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE\nSOFTWARE.\n\n   NOTE: Please see the AUTHORS.txt file (in this folder) for the list of\n   Developers of GEOS-Chem, HEMCO and Related Software.  This list will\n   be updated frequently, such as at each major GEOS-Chem release.\n\n#############################################################################\n###           License agreements for third-party code packages            ###\n###           used by GEOS-Chem, HEMCO, and Related Software              ###\n#############################################################################\n\nLinked list code (used in v11-02 and later versions):\n-----------------------------------------------------------------------------\n\n   Copyright © 2005 Arjen Markus <arjenmarkus@sourceforge.net>\n   http://flibs.sourceforge.net/linked_list.html\n\nRRTM/RRTMG Copyright and Disclaimer:\n-----------------------------------------------------------------------------\n\n   Copyright © 2002-2010, Atmospheric and Environmental Research, Inc.\n   (AER, Inc.). This software may be used, copied, or redistributed as long\n   as it is not sold and this copyright notice is reproduced on each copy made.\n   This model is provided as is without any express or implied warranties.\n   http://rtweb.aer.com/rrtm_frame.html\n\n\nFortran hash table code (used in 12.7.0 and later):\nhttps://github.com/pdebuyl/fortran_hash_table\n-----------------------------------------------------------------------------\n\n   Copyright (c) 2018, Pierre de Buyl\n\n   Redistribution and use in source and binary forms, with or without\n   modification, are permitted provided that the following conditions are\n   met:\n\n   1. Redistributions of source code must retain the above copyright\n   notice, this list of conditions and the following disclaimer.\n\n   2. Redistributions in binary form must reproduce the above copyright\n   notice, this list of conditions and the following disclaimer in the\n   documentation and/or other materials provided with the distribution.\n\n   3. Neither the name of the copyright holder nor the names of its\n   contributors may be used to endorse or promote products derived from\n   this software without specific prior written permission.\n\n   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\n   \"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\n   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\n   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT\n   HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,\n   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT\n   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\n   DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\n   THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n   (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\n   OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n\n\nModular Earth Submodel System (MESSy) tools:\n-----------------------------------------------------------------------------\n\n   See https://messy-interface.org/licence/conditions/\n\n\nQFYAML: Quick Fortran YAML\n------------------------------------------------------------------------------\n\n  See GPLv3 License text under The KineticPreProcessor (KPP).\n\n\nFAST-J, FAST-JX, Cloud-J, and developments:\n------------------------------------------------------------------------------\n\n   Fast-J code, including developments such as Cloud-J, is distributed under\n   GNU General Public License version 3.0 (GPLv3).\n   https://www.ess.uci.edu/researchgrp/prather/scholar_software\n\n   See GPLv3 License text under the KPP section.\n\n\nThe Kinetic PreProcessor (KPP)\n------------------------------------------------------------------------------\n\n   KPP - symbolic chemistry Kinetics PreProcessor\n         (http://www.cs.vt.edu/~asandu/Software/KPP)\n   KPP is distributed under GPL, the general public licence\n         (http://www.gnu.org/copyleft/gpl.html)\n     (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa\n     (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech\n         with contributions from:\n         R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany\n\n                       GNU GENERAL PUBLIC LICENSE\n                          Version 3, 29 June 2007\n\n    Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>\n    Everyone is permitted to copy and distribute verbatim copies\n    of this license document, but changing it is not allowed.\n\n                               Preamble\n\n     The GNU General Public License is a free, copyleft license for\n   software and other kinds of works.\n\n     The licenses for most software and other practical works are designed\n   to take away your freedom to share and change the works.  By contrast,\n   the GNU General Public License is intended to guarantee your freedom to\n   share and change all versions of a program--to make sure it remains free\n   software for all its users.  We, the Free Software Foundation, use the\n   GNU General Public License for most of our software; it applies also to\n   any other work released this way by its authors.  You can apply it to\n   your programs, too.\n\n     When we speak of free software, we are referring to freedom, not\n   price.  Our General Public Licenses are designed to make sure that you\n   have the freedom to distribute copies of free software (and charge for\n   them if you wish), that you receive source code or can get it if you\n   want it, that you can change the software or use pieces of it in new\n   free programs, and that you know you can do these things.\n\n     To protect your rights, we need to prevent others from denying you\n   these rights or asking you to surrender the rights.  Therefore, you have\n   certain responsibilities if you distribute copies of the software, or if\n   you modify it: responsibilities to respect the freedom of others.\n\n     For example, if you distribute copies of such a program, whether\n   gratis or for a fee, you must pass on to the recipients the same\n   freedoms that you received.  You must make sure that they, too, receive\n   or can get the source code.  And you must show them these terms so they\n   know their rights.\n\n     Developers that use the GNU GPL protect your rights with two steps:\n   (1) assert copyright on the software, and (2) offer you this License\n   giving you legal permission to copy, distribute and/or modify it.\n\n     For the developers' and authors' protection, the GPL clearly explains\n   that there is no warranty for this free software.  For both users' and\n   authors' sake, the GPL requires that modified versions be marked as\n   changed, so that their problems will not be attributed erroneously to\n   authors of previous versions.\n\n     Some devices are designed to deny users access to install or run\n   modified versions of the software inside them, although the manufacturer\n   can do so.  This is fundamentally incompatible with the aim of\n   protecting users' freedom to change the software.  The systematic\n   pattern of such abuse occurs in the area of products for individuals to\n   use, which is precisely where it is most unacceptable.  Therefore, we\n   have designed this version of the GPL to prohibit the practice for those\n   products.  If such problems arise substantially in other domains, we\n   stand ready to extend this provision to those domains in future versions\n   of the GPL, as needed to protect the freedom of users.\n\n     Finally, every program is threatened constantly by software patents.\n   States should not allow patents to restrict development and use of\n   software on general-purpose computers, but in those that do, we wish to\n   avoid the special danger that patents applied to a free program could\n   make it effectively proprietary.  To prevent this, the GPL assures that\n   patents cannot be used to render the program non-free.\n\n     The precise terms and conditions for copying, distribution and\n   modification follow.\n\n                          TERMS AND CONDITIONS\n\n     0. Definitions.\n\n     \"This License\" refers to version 3 of the GNU General Public License.\n\n     \"Copyright\" also means copyright-like laws that apply to other kinds of\n   works, such as semiconductor masks.\n\n     \"The Program\" refers to any copyrightable work licensed under this\n   License.  Each licensee is addressed as \"you\".  \"Licensees\" and\n   \"recipients\" may be individuals or organizations.\n\n     To \"modify\" a work means to copy from or adapt all or part of the work\n   in a fashion requiring copyright permission, other than the making of an\n   exact copy.  The resulting work is called a \"modified version\" of the\n   earlier work or a work \"based on\" the earlier work.\n\n     A \"covered work\" means either the unmodified Program or a work based\n   on the Program.\n\n     To \"propagate\" a work means to do anything with it that, without\n   permission, would make you directly or secondarily liable for\n   infringement under applicable copyright law, except executing it on a\n   computer or modifying a private copy.  Propagation includes copying,\n   distribution (with or without modification), making available to the\n   public, and in some countries other activities as well.\n\n     To \"convey\" a work means any kind of propagation that enables other\n   parties to make or receive copies.  Mere interaction with a user through\n   a computer network, with no transfer of a copy, is not conveying.\n\n     An interactive user interface displays \"Appropriate Legal Notices\"\n   to the extent that it includes a convenient and prominently visible\n   feature that (1) displays an appropriate copyright notice, and (2)\n   tells the user that there is no warranty for the work (except to the\n   extent that warranties are provided), that licensees may convey the\n   work under this License, and how to view a copy of this License.  If\n   the interface presents a list of user commands or options, such as a\n   menu, a prominent item in the list meets this criterion.\n\n     1. Source Code.\n\n     The \"source code\" for a work means the preferred form of the work\n   for making modifications to it.  \"Object code\" means any non-source\n   form of a work.\n\n     A \"Standard Interface\" means an interface that either is an official\n   standard defined by a recognized standards body, or, in the case of\n   interfaces specified for a particular programming language, one that\n   is widely used among developers working in that language.\n\n     The \"System Libraries\" of an executable work include anything, other\n   than the work as a whole, that (a) is included in the normal form of\n   packaging a Major Component, but which is not part of that Major\n   Component, and (b) serves only to enable use of the work with that\n   Major Component, or to implement a Standard Interface for which an\n   implementation is available to the public in source code form.  A\n   \"Major Component\", in this context, means a major essential component\n   (kernel, window system, and so on) of the specific operating system\n   (if any) on which the executable work runs, or a compiler used to\n   produce the work, or an object code interpreter used to run it.\n\n     The \"Corresponding Source\" for a work in object code form means all\n   the source code needed to generate, install, and (for an executable\n   work) run the object code and to modify the work, including scripts to\n   control those activities.  However, it does not include the work's\n   System Libraries, or general-purpose tools or generally available free\n   programs which are used unmodified in performing those activities but\n   which are not part of the work.  For example, Corresponding Source\n   includes interface definition files associated with source files for\n   the work, and the source code for shared libraries and dynamically\n   linked subprograms that the work is specifically designed to require,\n   such as by intimate data communication or control flow between those\n   subprograms and other parts of the work.\n\n     The Corresponding Source need not include anything that users\n   can regenerate automatically from other parts of the Corresponding\n   Source.\n\n     The Corresponding Source for a work in source code form is that\n   same work.\n\n     2. Basic Permissions.\n\n     All rights granted under this License are granted for the term of\n   copyright on the Program, and are irrevocable provided the stated\n   conditions are met.  This License explicitly affirms your unlimited\n   permission to run the unmodified Program.  The output from running a\n   covered work is covered by this License only if the output, given its\n   content, constitutes a covered work.  This License acknowledges your\n   rights of fair use or other equivalent, as provided by copyright law.\n\n     You may make, run and propagate covered works that you do not\n   convey, without conditions so long as your license otherwise remains\n   in force.  You may convey covered works to others for the sole purpose\n   of having them make modifications exclusively for you, or provide you\n   with facilities for running those works, provided that you comply with\n   the terms of this License in conveying all material for which you do\n   not control copyright.  Those thus making or running the covered works\n   for you must do so exclusively on your behalf, under your direction\n   and control, on terms that prohibit them from making any copies of\n   your copyrighted material outside their relationship with you.\n\n     Conveying under any other circumstances is permitted solely under\n   the conditions stated below.  Sublicensing is not allowed; section 10\n   makes it unnecessary.\n\n     3. Protecting Users' Legal Rights From Anti-Circumvention Law.\n\n     No covered work shall be deemed part of an effective technological\n   measure under any applicable law fulfilling obligations under article\n   11 of the WIPO copyright treaty adopted on 20 December 1996, or\n   similar laws prohibiting or restricting circumvention of such\n   measures.\n\n     When you convey a covered work, you waive any legal power to forbid\n   circumvention of technological measures to the extent such circumvention\n   is effected by exercising rights under this License with respect to\n   the covered work, and you disclaim any intention to limit operation or\n   modification of the work as a means of enforcing, against the work's\n   users, your or third parties' legal rights to forbid circumvention of\n   technological measures.\n\n     4. Conveying Verbatim Copies.\n\n     You may convey verbatim copies of the Program's source code as you\n   receive it, in any medium, provided that you conspicuously and\n   appropriately publish on each copy an appropriate copyright notice;\n   keep intact all notices stating that this License and any\n   non-permissive terms added in accord with section 7 apply to the code;\n   keep intact all notices of the absence of any warranty; and give all\n   recipients a copy of this License along with the Program.\n\n     You may charge any price or no price for each copy that you convey,\n   and you may offer support or warranty protection for a fee.\n\n     5. Conveying Modified Source Versions.\n\n     You may convey a work based on the Program, or the modifications to\n   produce it from the Program, in the form of source code under the\n   terms of section 4, provided that you also meet all of these conditions:\n\n       a) The work must carry prominent notices stating that you modified\n       it, and giving a relevant date.\n\n       b) The work must carry prominent notices stating that it is\n       released under this License and any conditions added under section\n       7.  This requirement modifies the requirement in section 4 to\n       \"keep intact all notices\".\n\n       c) You must license the entire work, as a whole, under this\n       License to anyone who comes into possession of a copy.  This\n       License will therefore apply, along with any applicable section 7\n       additional terms, to the whole of the work, and all its parts,\n       regardless of how they are packaged.  This License gives no\n       permission to license the work in any other way, but it does not\n       invalidate such permission if you have separately received it.\n\n       d) If the work has interactive user interfaces, each must display\n       Appropriate Legal Notices; however, if the Program has interactive\n       interfaces that do not display Appropriate Legal Notices, your\n       work need not make them do so.\n\n     A compilation of a covered work with other separate and independent\n   works, which are not by their nature extensions of the covered work,\n   and which are not combined with it such as to form a larger program,\n   in or on a volume of a storage or distribution medium, is called an\n   \"aggregate\" if the compilation and its resulting copyright are not\n   used to limit the access or legal rights of the compilation's users\n   beyond what the individual works permit.  Inclusion of a covered work\n   in an aggregate does not cause this License to apply to the other\n   parts of the aggregate.\n\n     6. Conveying Non-Source Forms.\n\n     You may convey a covered work in object code form under the terms\n   of sections 4 and 5, provided that you also convey the\n   machine-readable Corresponding Source under the terms of this License,\n   in one of these ways:\n\n       a) Convey the object code in, or embodied in, a physical product\n       (including a physical distribution medium), accompanied by the\n       Corresponding Source fixed on a durable physical medium\n       customarily used for software interchange.\n\n       b) Convey the object code in, or embodied in, a physical product\n       (including a physical distribution medium), accompanied by a\n       written offer, valid for at least three years and valid for as\n       long as you offer spare parts or customer support for that product\n       model, to give anyone who possesses the object code either (1) a\n       copy of the Corresponding Source for all the software in the\n       product that is covered by this License, on a durable physical\n       medium customarily used for software interchange, for a price no\n       more than your reasonable cost of physically performing this\n       conveying of source, or (2) access to copy the\n       Corresponding Source from a network server at no charge.\n\n       c) Convey individual copies of the object code with a copy of the\n       written offer to provide the Corresponding Source.  This\n       alternative is allowed only occasionally and noncommercially, and\n       only if you received the object code with such an offer, in accord\n       with subsection 6b.\n\n       d) Convey the object code by offering access from a designated\n       place (gratis or for a charge), and offer equivalent access to the\n       Corresponding Source in the same way through the same place at no\n       further charge.  You need not require recipients to copy the\n       Corresponding Source along with the object code.  If the place to\n       copy the object code is a network server, the Corresponding Source\n       may be on a different server (operated by you or a third party)\n       that supports equivalent copying facilities, provided you maintain\n       clear directions next to the object code saying where to find the\n       Corresponding Source.  Regardless of what server hosts the\n       Corresponding Source, you remain obligated to ensure that it is\n       available for as long as needed to satisfy these requirements.\n\n       e) Convey the object code using peer-to-peer transmission, provided\n       you inform other peers where the object code and Corresponding\n       Source of the work are being offered to the general public at no\n       charge under subsection 6d.\n\n     A separable portion of the object code, whose source code is excluded\n   from the Corresponding Source as a System Library, need not be\n   included in conveying the object code work.\n\n     A \"User Product\" is either (1) a \"consumer product\", which means any\n   tangible personal property which is normally used for personal, family,\n   or household purposes, or (2) anything designed or sold for incorporation\n   into a dwelling.  In determining whether a product is a consumer product,\n   doubtful cases shall be resolved in favor of coverage.  For a particular\n   product received by a particular user, \"normally used\" refers to a\n   typical or common use of that class of product, regardless of the status\n   of the particular user or of the way in which the particular user\n   actually uses, or expects or is expected to use, the product.  A product\n   is a consumer product regardless of whether the product has substantial\n   commercial, industrial or non-consumer uses, unless such uses represent\n   the only significant mode of use of the product.\n\n     \"Installation Information\" for a User Product means any methods,\n   procedures, authorization keys, or other information required to install\n   and execute modified versions of a covered work in that User Product from\n   a modified version of its Corresponding Source.  The information must\n   suffice to ensure that the continued functioning of the modified object\n   code is in no case prevented or interfered with solely because\n   modification has been made.\n\n     If you convey an object code work under this section in, or with, or\n   specifically for use in, a User Product, and the conveying occurs as\n   part of a transaction in which the right of possession and use of the\n   User Product is transferred to the recipient in perpetuity or for a\n   fixed term (regardless of how the transaction is characterized), the\n   Corresponding Source conveyed under this section must be accompanied\n   by the Installation Information.  But this requirement does not apply\n   if neither you nor any third party retains the ability to install\n   modified object code on the User Product (for example, the work has\n   been installed in ROM).\n\n     The requirement to provide Installation Information does not include a\n   requirement to continue to provide support service, warranty, or updates\n   for a work that has been modified or installed by the recipient, or for\n   the User Product in which it has been modified or installed.  Access to a\n   network may be denied when the modification itself materially and\n   adversely affects the operation of the network or violates the rules and\n   protocols for communication across the network.\n\n     Corresponding Source conveyed, and Installation Information provided,\n   in accord with this section must be in a format that is publicly\n   documented (and with an implementation available to the public in\n   source code form), and must require no special password or key for\n   unpacking, reading or copying.\n\n     7. Additional Terms.\n\n     \"Additional permissions\" are terms that supplement the terms of this\n   License by making exceptions from one or more of its conditions.\n   Additional permissions that are applicable to the entire Program shall\n   be treated as though they were included in this License, to the extent\n   that they are valid under applicable law.  If additional permissions\n   apply only to part of the Program, that part may be used separately\n   under those permissions, but the entire Program remains governed by\n   this License without regard to the additional permissions.\n\n     When you convey a copy of a covered work, you may at your option\n   remove any additional permissions from that copy, or from any part of\n   it.  (Additional permissions may be written to require their own\n   removal in certain cases when you modify the work.)  You may place\n   additional permissions on material, added by you to a covered work,\n   for which you have or can give appropriate copyright permission.\n\n     Notwithstanding any other provision of this License, for material you\n   add to a covered work, you may (if authorized by the copyright holders of\n   that material) supplement the terms of this License with terms:\n\n       a) Disclaiming warranty or limiting liability differently from the\n       terms of sections 15 and 16 of this License; or\n\n       b) Requiring preservation of specified reasonable legal notices or\n       author attributions in that material or in the Appropriate Legal\n       Notices displayed by works containing it; or\n\n       c) Prohibiting misrepresentation of the origin of that material, or\n       requiring that modified versions of such material be marked in\n       reasonable ways as different from the original version; or\n\n       d) Limiting the use for publicity purposes of names of licensors or\n       authors of the material; or\n\n       e) Declining to grant rights under trademark law for use of some\n       trade names, trademarks, or service marks; or\n\n       f) Requiring indemnification of licensors and authors of that\n       material by anyone who conveys the material (or modified versions of\n       it) with contractual assumptions of liability to the recipient, for\n       any liability that these contractual assumptions directly impose on\n       those licensors and authors.\n\n     All other non-permissive additional terms are considered \"further\n   restrictions\" within the meaning of section 10.  If the Program as you\n   received it, or any part of it, contains a notice stating that it is\n   governed by this License along with a term that is a further\n   restriction, you may remove that term.  If a license document contains\n   a further restriction but permits relicensing or conveying under this\n   License, you may add to a covered work material governed by the terms\n   of that license document, provided that the further restriction does\n   not survive such relicensing or conveying.\n\n     If you add terms to a covered work in accord with this section, you\n   must place, in the relevant source files, a statement of the\n   additional terms that apply to those files, or a notice indicating\n   where to find the applicable terms.\n\n     Additional terms, permissive or non-permissive, may be stated in the\n   form of a separately written license, or stated as exceptions;\n   the above requirements apply either way.\n\n     8. Termination.\n\n     You may not propagate or modify a covered work except as expressly\n   provided under this License.  Any attempt otherwise to propagate or\n   modify it is void, and will automatically terminate your rights under\n   this License (including any patent licenses granted under the third\n   paragraph of section 11).\n\n     However, if you cease all violation of this License, then your\n   license from a particular copyright holder is reinstated (a)\n   provisionally, unless and until the copyright holder explicitly and\n   finally terminates your license, and (b) permanently, if the copyright\n   holder fails to notify you of the violation by some reasonable means\n   prior to 60 days after the cessation.\n\n     Moreover, your license from a particular copyright holder is\n   reinstated permanently if the copyright holder notifies you of the\n   violation by some reasonable means, this is the first time you have\n   received notice of violation of this License (for any work) from that\n   copyright holder, and you cure the violation prior to 30 days after\n   your receipt of the notice.\n\n     Termination of your rights under this section does not terminate the\n   licenses of parties who have received copies or rights from you under\n   this License.  If your rights have been terminated and not permanently\n   reinstated, you do not qualify to receive new licenses for the same\n   material under section 10.\n\n     9. Acceptance Not Required for Having Copies.\n\n     You are not required to accept this License in order to receive or\n   run a copy of the Program.  Ancillary propagation of a covered work\n   occurring solely as a consequence of using peer-to-peer transmission\n   to receive a copy likewise does not require acceptance.  However,\n   nothing other than this License grants you permission to propagate or\n   modify any covered work.  These actions infringe copyright if you do\n   not accept this License.  Therefore, by modifying or propagating a\n   covered work, you indicate your acceptance of this License to do so.\n\n     10. Automatic Licensing of Downstream Recipients.\n\n     Each time you convey a covered work, the recipient automatically\n   receives a license from the original licensors, to run, modify and\n   propagate that work, subject to this License.  You are not responsible\n   for enforcing compliance by third parties with this License.\n\n     An \"entity transaction\" is a transaction transferring control of an\n   organization, or substantially all assets of one, or subdividing an\n   organization, or merging organizations.  If propagation of a covered\n   work results from an entity transaction, each party to that\n   transaction who receives a copy of the work also receives whatever\n   licenses to the work the party's predecessor in interest had or could\n   give under the previous paragraph, plus a right to possession of the\n   Corresponding Source of the work from the predecessor in interest, if\n   the predecessor has it or can get it with reasonable efforts.\n\n     You may not impose any further restrictions on the exercise of the\n   rights granted or affirmed under this License.  For example, you may\n   not impose a license fee, royalty, or other charge for exercise of\n   rights granted under this License, and you may not initiate litigation\n   (including a cross-claim or counterclaim in a lawsuit) alleging that\n   any patent claim is infringed by making, using, selling, offering for\n   sale, or importing the Program or any portion of it.\n\n     11. Patents.\n\n     A \"contributor\" is a copyright holder who authorizes use under this\n   License of the Program or a work on which the Program is based.  The\n   work thus licensed is called the contributor's \"contributor version\".\n\n     A contributor's \"essential patent claims\" are all patent claims\n   owned or controlled by the contributor, whether already acquired or\n   hereafter acquired, that would be infringed by some manner, permitted\n   by this License, of making, using, or selling its contributor version,\n   but do not include claims that would be infringed only as a\n   consequence of further modification of the contributor version.  For\n   purposes of this definition, \"control\" includes the right to grant\n   patent sublicenses in a manner consistent with the requirements of\n   this License.\n\n     Each contributor grants you a non-exclusive, worldwide, royalty-free\n   patent license under the contributor's essential patent claims, to\n   make, use, sell, offer for sale, import and otherwise run, modify and\n   propagate the contents of its contributor version.\n\n     In the following three paragraphs, a \"patent license\" is any express\n   agreement or commitment, however denominated, not to enforce a patent\n   (such as an express permission to practice a patent or covenant not to\n   sue for patent infringement).  To \"grant\" such a patent license to a\n   party means to make such an agreement or commitment not to enforce a\n   patent against the party.\n\n     If you convey a covered work, knowingly relying on a patent license,\n   and the Corresponding Source of the work is not available for anyone\n   to copy, free of charge and under the terms of this License, through a\n   publicly available network server or other readily accessible means,\n   then you must either (1) cause the Corresponding Source to be so\n   available, or (2) arrange to deprive yourself of the benefit of the\n   patent license for this particular work, or (3) arrange, in a manner\n   consistent with the requirements of this License, to extend the patent\n   license to downstream recipients.  \"Knowingly relying\" means you have\n   actual knowledge that, but for the patent license, your conveying the\n   covered work in a country, or your recipient's use of the covered work\n   in a country, would infringe one or more identifiable patents in that\n   country that you have reason to believe are valid.\n\n     If, pursuant to or in connection with a single transaction or\n   arrangement, you convey, or propagate by procuring conveyance of, a\n   covered work, and grant a patent license to some of the parties\n   receiving the covered work authorizing them to use, propagate, modify\n   or convey a specific copy of the covered work, then the patent license\n   you grant is automatically extended to all recipients of the covered\n   work and works based on it.\n\n     A patent license is \"discriminatory\" if it does not include within\n   the scope of its coverage, prohibits the exercise of, or is\n   conditioned on the non-exercise of one or more of the rights that are\n   specifically granted under this License.  You may not convey a covered\n   work if you are a party to an arrangement with a third party that is\n   in the business of distributing software, under which you make payment\n   to the third party based on the extent of your activity of conveying\n   the work, and under which the third party grants, to any of the\n   parties who would receive the covered work from you, a discriminatory\n   patent license (a) in connection with copies of the covered work\n   conveyed by you (or copies made from those copies), or (b) primarily\n   for and in connection with specific products or compilations that\n   contain the covered work, unless you entered into that arrangement,\n   or that patent license was granted, prior to 28 March 2007.\n\n     Nothing in this License shall be construed as excluding or limiting\n   any implied license or other defenses to infringement that may\n   otherwise be available to you under applicable patent law.\n\n     12. No Surrender of Others' Freedom.\n\n     If conditions are imposed on you (whether by court order, agreement or\n   otherwise) that contradict the conditions of this License, they do not\n   excuse you from the conditions of this License.  If you cannot convey a\n   covered work so as to satisfy simultaneously your obligations under this\n   License and any other pertinent obligations, then as a consequence you may\n   not convey it at all.  For example, if you agree to terms that obligate you\n   to collect a royalty for further conveying from those to whom you convey\n   the Program, the only way you could satisfy both those terms and this\n   License would be to refrain entirely from conveying the Program.\n\n     13. Use with the GNU Affero General Public License.\n\n     Notwithstanding any other provision of this License, you have\n   permission to link or combine any covered work with a work licensed\n   under version 3 of the GNU Affero General Public License into a single\n   combined work, and to convey the resulting work.  The terms of this\n   License will continue to apply to the part which is the covered work,\n   but the special requirements of the GNU Affero General Public License,\n   section 13, concerning interaction through a network will apply to the\n   combination as such.\n\n     14. Revised Versions of this License.\n\n     The Free Software Foundation may publish revised and/or new versions of\n   the GNU General Public License from time to time.  Such new versions will\n   be similar in spirit to the present version, but may differ in detail to\n   address new problems or concerns.\n\n     Each version is given a distinguishing version number.  If the\n   Program specifies that a certain numbered version of the GNU General\n   Public License \"or any later version\" applies to it, you have the\n   option of following the terms and conditions either of that numbered\n   version or of any later version published by the Free Software\n   Foundation.  If the Program does not specify a version number of the\n   GNU General Public License, you may choose any version ever published\n   by the Free Software Foundation.\n\n     If the Program specifies that a proxy can decide which future\n   versions of the GNU General Public License can be used, that proxy's\n   public statement of acceptance of a version permanently authorizes you\n   to choose that version for the Program.\n\n     Later license versions may give you additional or different\n   permissions.  However, no additional obligations are imposed on any\n   author or copyright holder as a result of your choosing to follow a\n   later version.\n\n     15. Disclaimer of Warranty.\n\n     THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY\n   APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT\n   HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM \"AS IS\" WITHOUT WARRANTY\n   OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,\n   THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR\n   PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM\n   IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF\n   ALL NECESSARY SERVICING, REPAIR OR CORRECTION.\n\n     16. Limitation of Liability.\n\n     IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING\n   WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS\n   THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY\n   GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE\n   USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF\n   DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD\n   PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),\n   EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF\n   SUCH DAMAGES.\n\n     17. Interpretation of Sections 15 and 16.\n\n     If the disclaimer of warranty and limitation of liability provided\n   above cannot be given local legal effect according to their terms,\n   reviewing courts shall apply local law that most closely approximates\n   an absolute waiver of all civil liability in connection with the\n   Program, unless a warranty or assumption of liability accompanies a\n   copy of the Program in return for a fee.\n\n                        END OF TERMS AND CONDITIONS\n\n               How to Apply These Terms to Your New Programs\n\n     If you develop a new program, and you want it to be of the greatest\n   possible use to the public, the best way to achieve this is to make it\n   free software which everyone can redistribute and change under these terms.\n\n     To do so, attach the following notices to the program.  It is safest\n   to attach them to the start of each source file to most effectively\n   state the exclusion of warranty; and each file should have at least\n   the \"copyright\" line and a pointer to where the full notice is found.\n\n       <one line to give the program's name and a brief idea of what it does.>\n       Copyright (C) <year>  <name of author>\n\n       This program is free software: you can redistribute it and/or modify\n       it under the terms of the GNU General Public License as published by\n       the Free Software Foundation, either version 3 of the License, or\n       (at your option) any later version.\n\n       This program is distributed in the hope that it will be useful,\n       but WITHOUT ANY WARRANTY; without even the implied warranty of\n       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n       GNU General Public License for more details.\n\n       You should have received a copy of the GNU General Public License\n       along with this program.  If not, see <https://www.gnu.org/licenses/>.\n\n   Also add information on how to contact you by electronic and paper mail.\n\n     If the program does terminal interaction, make it output a short\n   notice like this when it starts in an interactive mode:\n\n       <program>  Copyright (C) <year>  <name of author>\n       This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.\n       This is free software, and you are welcome to redistribute it\n       under certain conditions; type `show c' for details.\n\n   The hypothetical commands `show w' and `show c' should show the appropriate\n   parts of the General Public License.  Of course, your program's commands\n   might be different; for a GUI interface, you would use an \"about box\".\n\n     You should also get your employer (if you work as a programmer) or school,\n   if any, to sign a \"copyright disclaimer\" for the program, if necessary.\n   For more information on this, and how to apply and follow the GNU GPL, see\n   <https://www.gnu.org/licenses/>.\n\n     The GNU General Public License does not permit incorporating your program\n   into proprietary programs.  If your program is a subroutine library, you\n   may consider it more useful to permit linking proprietary applications with\n   the library.  If this is what you want to do, use the GNU Lesser General\n   Public License instead of this License.  But first, please read\n   <https://www.gnu.org/licenses/why-not-lgpl.html>.\n\n\nMAPL (used by GCHP and the interface to the NASA-GEOS model):\n-----------------------------------------------------------------------------\n\n                           Apache License\n                      Version 2.0, January 2004\n                      http://www.apache.org/licenses/\n\n   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION\n\n   1. Definitions.\n\n      \"License\" shall mean the terms and conditions for use, reproduction, and\n      distribution as defined by Sections 1 through 9 of this document.\n\n      \"Licensor\" shall mean the copyright owner or entity authorized by the copyright\n      owner that is granting the License.\n\n      \"Legal Entity\" shall mean the union of the acting entity and all other entities\n      that control, are controlled by, or are under common control with that entity.\n      For the purposes of this definition, \"control\" means (i) the power, direct or\n      indirect, to cause the direction or management of such entity, whether by\n      contract or otherwise, or (ii) ownership of fifty percent (50%) or more of the\n      outstanding shares, or (iii) beneficial ownership of such entity.\n\n      \"You\" (or \"Your\") shall mean an individual or Legal Entity exercising\n      permissions granted by this License.\n\n      \"Source\" form shall mean the preferred form for making modifications, including\n      but not limited to software source code, documentation source, and configuration\n      files.\n\n      \"Object\" form shall mean any form resulting from mechanical transformation or\n      translation of a Source form, including but not limited to compiled object code,\n      generated documentation, and conversions to other media types.\n\n      \"Work\" shall mean the work of authorship, whether in Source or Object form, made\n      available under the License, as indicated by a copyright notice that is included\n      in or attached to the work (an example is provided in the Appendix below).\n\n      \"Derivative Works\" shall mean any work, whether in Source or Object form, that\n      is based on (or derived from) the Work and for which the editorial revisions,\n      annotations, elaborations, or other modifications represent, as a whole, an\n      original work of authorship. For the purposes of this License, Derivative Works\n      shall not include works that remain separable from, or merely link (or bind by\n      name) to the interfaces of, the Work and Derivative Works thereof.\n\n      \"Contribution\" shall mean any work of authorship, including the original version\n      of the Work and any modifications or additions to that Work or Derivative Works\n      thereof, that is intentionally submitted to Licensor for inclusion in the Work\n      by the copyright owner or by an individual or Legal Entity authorized to submit\n      on behalf of the copyright owner. For the purposes of this definition,\n      \"submitted\" means any form of electronic, verbal, or written communication sent\n      to the Licensor or its representatives, including but not limited to\n      communication on electronic mailing lists, source code control systems, and\n      issue tracking systems that are managed by, or on behalf of, the Licensor for\n      the purpose of discussing and improving the Work, but excluding communication\n      that is conspicuously marked or otherwise designated in writing by the copyright\n      owner as \"Not a Contribution.\"\n\n      \"Contributor\" shall mean Licensor and any individual or Legal Entity on behalf\n      of whom a Contribution has been received by Licensor and subsequently\n      incorporated within the Work.\n\n   2. Grant of Copyright License.\n\n      Subject to the terms and conditions of this License, each Contributor hereby\n      grants to You a perpetual, worldwide, non-exclusive, no-charge, royalty-free,\n      irrevocable copyright license to reproduce, prepare Derivative Works of,\n      publicly display, publicly perform, sublicense, and distribute the Work and such\n      Derivative Works in Source or Object form.\n\n   3. Grant of Patent License.\n\n      Subject to the terms and conditions of this License, each Contributor hereby\n      grants to You a perpetual, worldwide, non-exclusive, no-charge, royalty-free,\n      irrevocable (except as stated in this section) patent license to make, have\n      made, use, offer to sell, sell, import, and otherwise transfer the Work, where\n      such license applies only to those patent claims licensable by such Contributor\n      that are necessarily infringed by their Contribution(s) alone or by combination\n      of their Contribution(s) with the Work to which such Contribution(s) was\n      submitted. If You institute patent litigation against any entity (including a\n      cross-claim or counterclaim in a lawsuit) alleging that the Work or a\n      Contribution incorporated within the Work constitutes direct or contributory\n      patent infringement, then any patent licenses granted to You under this License\n      for that Work shall terminate as of the date such litigation is filed.\n\n   4. Redistribution.\n\n      You may reproduce and distribute copies of the Work or Derivative Works\n      thereof in any medium, with or without modifications, and in Source or Object\n      form, provided that You meet the following conditions:\n\n      (a) You must give any other recipients of the Work or Derivative Works a\n         copy of this License; and\n\n      (b) You must cause any modified files to carry prominent notices stating that\n         You changed the files; and\n\n      (c) You must retain, in the Source form of any Derivative Works that You\n         distribute, all copyright, patent, trademark, and attribution notices from\n         the Source form of the Work, excluding those notices that do not pertain\n         to any part of the Derivative Works; and\n\n      (d) If the Work includes a \"NOTICE\" text file as part of its distribution,\n         then any Derivative Works that You distribute must include a readable copy\n         of the attribution notices contained within such NOTICE file, excluding\n         those notices that do not pertain to any part of the Derivative Works, in\n         at least one of the following places: within a NOTICE text file\n         distributed as part of the Derivative Works; within the Source form or\n         documentation, if provided along with the Derivative Works; or, within a\n         display generated by the Derivative Works, if and wherever such\n         third-party notices normally appear. The contents of the NOTICE file are\n         for informational purposes only and do not modify the License. You may add\n         Your own attribution notices within Derivative Works that You distribute,\n         alongside or as an addendum to the NOTICE text from the Work, provided\n         that such additional attribution notices cannot be construed as modifying\n         the License.\n\n      You may add Your own copyright statement to Your modifications and may\n      provide additional or different license terms and conditions for use,\n      reproduction, or distribution of Your modifications, or for any such\n      Derivative Works as a whole, provided Your use, reproduction, and\n      distribution of the Work otherwise complies with the conditions stated in\n      this License.\n\n   5. Submission of Contributions.\n\n      Unless You explicitly state otherwise, any Contribution intentionally\n      submitted for inclusion in the Work by You to the Licensor shall be under the\n      terms and conditions of this License, without any additional terms or\n      conditions. Notwithstanding the above, nothing herein shall supersede or\n      modify the terms of any separate license agreement you may have executed with\n      Licensor regarding such Contributions.\n\n   6. Trademarks.\n\n      This License does not grant permission to use the trade names, trademarks,\n      service marks, or product names of the Licensor, except as required for\n      reasonable and customary use in describing the origin of the Work and\n      reproducing the content of the NOTICE file.\n\n   7. Disclaimer of Warranty.\n\n      Unless required by applicable law or agreed to in writing, Licensor provides\n      the Work (and each Contributor provides its Contributions) on an \"AS IS\"\n      BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or\n      implied, including, without limitation, any warranties or conditions of\n      TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A PARTICULAR\n      PURPOSE. You are solely responsible for determining the appropriateness of\n      using or redistributing the Work and assume any risks associated with Your\n      exercise of permissions under this License.\n\n   8. Limitation of Liability.\n\n      In no event and under no legal theory, whether in tort (including\n      negligence), contract, or otherwise, unless required by applicable law (such\n      as deliberate and grossly negligent acts) or agreed to in writing, shall any\n      Contributor be liable to You for damages, including any direct, indirect,\n      special, incidental, or consequential damages of any character arising as a\n      result of this License or out of the use or inability to use the Work\n      (including but not limited to damages for loss of goodwill, work stoppage,\n      computer failure or malfunction, or any and all other commercial damages or\n      losses), even if such Contributor has been advised of the possibility of such\n      damages.\n\n   9. Accepting Warranty or Additional Liability.\n\n      While redistributing the Work or Derivative Works thereof, You may choose to\n      offer, and charge a fee for, acceptance of support, warranty, indemnity, or\n      other liability obligations and/or rights consistent with this License.\n      However, in accepting such obligations, You may act only on Your own behalf\n      and on Your sole responsibility, not on behalf of any other Contributor, and\n      only if You agree to indemnify, defend, and hold each Contributor harmless\n      for any liability incurred by, or claims asserted against, such Contributor\n      by reason of your accepting any such warranty or additional liability.\n\n   END OF TERMS AND CONDITIONS\n\n   APPENDIX: How to apply the Apache License to your work\n\n   To apply the Apache License to your work, attach the following boilerplate\n   notice with the fields enclosed by brackets \"[]\" replaced with your own\n   identifying information. (Don't include the brackets!) The text should be\n   enclosed in the appropriate comment syntax for the file format. We also\n   recommend that a file or class name and description of purpose be included on\n   the same \"printed page\" as the copyright notice for easier identification within\n   third-party archives.\n\n      NASA Docket No. GSC-15,354-1, and identified as \"GEOS-5 GCM Modeling Software”\n\n      “Copyright © 2008 United States Government as represented by the Administrator\n      of the National Aeronautics and Space Administration. All Rights Reserved.”\n\n      Licensed under the Apache License, Version 2.0 (the \"License\"); you may not use\n      this file except in compliance with the License. You may obtain a copy of the\n      License at\n\n      http://www.apache.org/licenses/LICENSE-2.0\n\n      Unless required by applicable law or agreed to in writing, software distributed\n      under the License is distributed on an \"AS IS\" BASIS, WITHOUT WARRANTIES OR\n      CONDITIONS OF ANY KIND, either express or implied. See the License for the\n      specific language governing permissions and limitations under\n      the License.\n\n\n   NASA OPEN SOURCE SOFTWARE AGREEMENT\n\n   NASA OPEN SOURCE AGREEMENT VERSION 1.3\n\n   THIS OPEN  SOURCE  AGREEMENT  (\"AGREEMENT\") DEFINES  THE  RIGHTS  OF USE,\n   REPRODUCTION,  DISTRIBUTION,  MODIFICATION AND REDISTRIBUTION OF CERTAIN\n   COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT AS\n   REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW (\"GOVERNMENT AGENCY\").\n   THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT AGENCY, IS AN\n   INTENDED  THIRD-PARTY  BENEFICIARY  OF  ALL  SUBSEQUENT DISTRIBUTIONS OR\n   REDISTRIBUTIONS  OF THE  SUBJECT  SOFTWARE.  ANYONE WHO USES, REPRODUCES,\n   DISTRIBUTES, MODIFIES  OR REDISTRIBUTES THE SUBJECT SOFTWARE, AS DEFINED\n   HEREIN, OR ANY PART THEREOF,  IS,  BY THAT ACTION, ACCEPTING IN FULL THE\n   RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN THIS AGREEMENT.\n\n   Government Agency: National Aeronautics and Space Administration\n   Government Agency Original Software Designation: GSC-15354-1\n   Government Agency Original Software Title:  GEOS-5 GCM Modeling Software\n   User Registration Requested.  Please Visit http://opensource.gsfc.nasa.gov\n   Government Agency Point of Contact for Original Software:\n               Dale Hithon, SRA Assistant, (301) 286-2691\n\n   1. DEFINITIONS\n\n   A.  \"Contributor\" means Government Agency, as the developer of the\n   Original Software, and any entity that makes a Modification.\n\n   B.  \"Covered Patents\" mean patent claims licensable by a Contributor\n   that are necessarily infringed by the use or sale of its Modification\n   alone or when combined with the Subject Software.\n\n   C.  \"Display\" means the showing of a copy of the Subject Software,\n   either directly or by means of an image, or any other device.\n\n   D.  \"Distribution\" means conveyance or transfer of the Subject Software,\n   regardless of means, to another.\n\n   E.  \"Larger Work\" means computer software that combines Subject\n   Software, or portions thereof, with software separate from the Subject\n   Software that is not governed by the terms of this Agreement.\n\n   F.  \"Modification\" means any alteration of, including addition to\n   or deletion from, the substance or structure of either the Original\n   Software or Subject Software, and includes derivative works, as that\n   term is defined in the Copyright Statute, 17 USC 101.  However, the act\n   of including Subject Software as part of a Larger Work does not in and\n   of itself constitute a Modification.\n\n   G.  \"Original Software\" means the computer software first released under\n   this Agreement by Government Agency with Government Agency designation\n   GSC-15354-1 and entitled GEOS-5 GCM Modeling Software, including source\n   code, object code and accompanying documentation, if any.\n\n   H.  \"Recipient\" means anyone who acquires the Subject Software under\n   this Agreement, including all Contributors.\n\n   I.  \"Redistribution\" means Distribution of the Subject Software after a\n   Modification has been made.\n\n   J.  \"Reproduction\" means the making of a counterpart, image or copy of\n   the Subject Software.\n\n   K.  \"Sale\" means the exchange of the Subject Software for money or\n   equivalent value.\n\n   L.  \"Subject Software\" means the Original Software, Modifications, or\n   any respective parts thereof.\n\n   M.  \"Use\" means the application or employment of the Subject Software\n   for any purpose.\n\n\n\n   2. GRANT OF RIGHTS\n\n   A.  Under Non-Patent Rights: Subject to the terms and conditions of this\n   Agreement, each Contributor, with respect to its own contribution to\n   the Subject Software, hereby grants to each Recipient a non-exclusive,\n   world-wide, royalty-free license to engage in the following activities\n   pertaining to the Subject Software:\n\n   1. Use\n   2. Distribution\n   3. Reproduction\n   4. Modification\n   5. Redistribution\n   6. Display\n\n   B.  Under Patent Rights: Subject to the terms and conditions of this\n   Agreement, each Contributor, with respect to its own contribution to\n   the Subject Software, hereby grants to each Recipient under Covered\n   Patents a non-exclusive, world-wide, royalty-free license to engage in\n   the following activities pertaining to the Subject Software:\n\n   1. Use\n   2. Distribution\n   3. Reproduction\n   4. Sale\n   5. Offer for Sale\n\n   C.  The rights granted under Paragraph B. also apply to the combination\n   of a Contributor's Modification and the Subject Software if, at the\n   time the Modification is added by the Contributor, the addition of\n   such Modification causes the combination to be covered by the Covered\n   Patents.  It does not apply to any other combinations that include a\n   Modification.\n\n   D.  The rights granted in Paragraphs A. and B. allow the Recipient to\n   sublicense those same rights.  Such sublicense must be under the same\n   terms and conditions of this Agreement.\n\n\n   3. OBLIGATIONS OF RECIPIENT\n\n   A.  Distribution or Redistribution of the Subject Software must be made\n   under this Agreement except for additions covered under paragraph 3H.\n\n   1.  Whenever a Recipient distributes or redistributes the Subject\n   Software, a copy of this Agreement must be included with each copy of\n   the Subject Software; and\n\n   2.  If Recipient distributes or redistributes the Subject Software in\n   any form other than source code, Recipient must also make the source\n   code freely available, and must provide with each copy of the Subject\n   Software information on how to obtain the source code in a reasonable\n   manner on or through a medium customarily used for software exchange.\n\n   B.  Each Recipient must ensure that the following copyright notice\n   appears prominently in the Subject Software:\n\n   Copyright © 2003-2018 United States Government as represented by the\n   Administrator of the National Aeronautics and Space Administration.  All\n   Rights Reserved.\n\n   C.  Each Contributor must characterize its alteration of the Subject\n   Software as a Modification and must identify itself as the originator\n   of its Modification in a manner that reasonably allows subsequent\n   Recipients to identify the originator of the Modification.  In\n   fulfillment of these requirements, Contributor must include a file\n   (e.g., a change log file) that describes the alterations made and\n   the date of the alterations, identifies Contributor as originator of\n   the alterations, and consents to characterization of the alterations\n   as a Modification, for example, by including a statement that the\n   Modification is derived, directly or indirectly, from Original Software\n   provided by Government Agency. Once consent is granted, it may not\n   thereafter be revoked.\n\n   D.  A Contributor may add its own copyright notice to the Subject\n   Software.  Once a copyright notice has been added to the Subject\n   Software, a Recipient may not remove it without the express permission\n   of the Contributor who added the notice.\n\n   E.  A Recipient may not make any representation in the Subject Software\n   or in any promotional, advertising or other material that may be\n   construed as an endorsement by Government Agency or by any prior\n   Recipient of any product or service provided by Recipient, or that may\n   seek to obtain commercial advantage by the fact of Government Agency's\n   or a prior Recipient's participation in this Agreement.\n\n   F.  In an effort to track usage and maintain accurate records of\n   the Subject Software, each Recipient, upon receipt of the Subject\n   Software, is requested to register with Government Agency by visiting\n   the following website: http://opensource.gsfc.nasa.gov.  Recipient's\n   name and personal information shall be used for statistical purposes\n   only. Once a Recipient makes a Modification available, it is requested\n   that the Recipient inform Government Agency at the web site provided\n   above how to access the Modification.\n\n   G.  Each Contributor represents that its Modification is believed to\n   be Contributor's original creation and does not violate any existing\n   agreements, regulations, statutes or rules, and further that Contributor\n   has sufficient rights to grant the rights conveyed by this Agreement.\n\n   H.  A Recipient may choose to offer, and to charge a fee for, warranty,\n   support, indemnity and/or liability obligations to one or more other\n   Recipients of the Subject Software.  A Recipient may do so, however,\n   only on its own behalf and not on behalf of Government Agency or any\n   other Recipient.  Such a Recipient must make it absolutely clear that\n   any such warranty, support, indemnity and/or liability obligation is\n   offered by that Recipient alone.  Further, such Recipient agrees to\n   indemnify Government Agency and every other Recipient for any liability\n   incurred by them as a result of warranty, support, indemnity and/or\n   liability offered by such Recipient.\n\n   I.  A Recipient may create a Larger Work by combining Subject Software\n   with separate software not governed by the terms of this agreement\n   and distribute the Larger Work as a single product. In such case, the\n   Recipient must make sure Subject Software, or portions thereof, included\n   in the Larger Work is subject to this Agreement.\n\n   J.  Notwithstanding any provisions contained herein, Recipient is hereby\n   put on notice that export of any goods or technical data from the United\n   States may require some form of export license from the U.S. Government.\n   Failure to obtain necessary export licenses may result in criminal\n   liability under U.S. laws.  Government Agency neither represents that a\n   license shall not be required nor that, if required, it shall be issued.\n   Nothing granted herein provides any such export license.\n\n   4. DISCLAIMER OF WARRANTIES AND LIABILITIES; WAIVER AND INDEMNIFICATION\n\n   A. No Warranty: THE SUBJECT SOFTWARE IS PROVIDED \"AS IS\" WITHOUT\n   ANY WARRANTY OF ANY KIND, EITHER EXPRESSED, IMPLIED, OR STATUTORY,\n   INCLUDING, BUT NOT LIMITED TO, ANY WARRANTY THAT THE SUBJECT\n   SOFTWARE WILL CONFORM TO SPECIFICATIONS, ANY IMPLIED WARRANTIES OF\n   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR FREEDOM FROM\n   INFRINGEMENT, ANY WARRANTY THAT THE SUBJECT SOFTWARE WILL BE ERROR FREE,\n   OR ANY WARRANTY THAT DOCUMENTATION, IF PROVIDED, WILL CONFORM TO THE\n   SUBJECT SOFTWARE. THIS AGREEMENT DOES NOT, IN ANY MANNER, CONSTITUTE AN\n   ENDORSEMENT BY GOVERNMENT AGENCY OR ANY PRIOR RECIPIENT OF ANY RESULTS,\n   RESULTING DESIGNS, HARDWARE, SOFTWARE PRODUCTS OR ANY OTHER APPLICATIONS\n   RESULTING FROM USE OF THE SUBJECT SOFTWARE. FURTHER, GOVERNMENT AGENCY\n   DISCLAIMS ALL WARRANTIES AND LIABILITIES REGARDING THIRD-PARTY SOFTWARE,\n   IF PRESENT IN THE ORIGINAL SOFTWARE, AND DISTRIBUTES IT \"AS IS.\"\n\n   B. Waiver and Indemnity: RECIPIENT AGREES TO WAIVE ANY AND ALL\n   CLAIMS AGAINST THE UNITED STATES GOVERNMENT, ITS CONTRACTORS AND\n   SUBCONTRACTORS, AS WELL AS ANY PRIOR RECIPIENT.  IF RECIPIENT'S USE\n   OF THE SUBJECT SOFTWARE RESULTS IN ANY LIABILITIES, DEMANDS, DAMAGES,\n   EXPENSES OR LOSSES ARISING FROM SUCH USE, INCLUDING ANY DAMAGES FROM\n   PRODUCTS BASED ON, OR RESULTING FROM, RECIPIENT'S USE OF THE SUBJECT\n   SOFTWARE, RECIPIENT SHALL INDEMNIFY AND HOLD HARMLESS THE UNITED STATES\n   GOVERNMENT, ITS CONTRACTORS AND SUBCONTRACTORS, AS WELL AS ANY PRIOR\n   RECIPIENT, TO THE EXTENT PERMITTED BY LAW.  RECIPIENT'S SOLE REMEDY FOR\n   ANY SUCH MATTER SHALL BE THE IMMEDIATE, UNILATERAL TERMINATION OF THIS\n   AGREEMENT.\n\n   5. GENERAL TERMS\n\n   A.  Termination: This Agreement and the rights granted hereunder will\n   terminate automatically if a Recipient fails to comply with these terms\n   and conditions, and fails to cure such noncompliance within thirty\n   (30) days of becoming aware of such noncompliance.  Upon termination,\n   a Recipient agrees to immediately cease use and distribution of the\n   Subject Software.  All sublicenses to the Subject Software properly\n   granted by the breaching Recipient shall survive any such termination of\n   this Agreement.\n\n   B.  Severability: If any provision of this Agreement is invalid or\n   unenforceable under applicable law, it shall not affect the validity or\n   enforceability of the remainder of the terms of this Agreement.\n\n   C.  Applicable Law: This Agreement shall be subject to United States\n   federal law only for all purposes, including, but not limited to,\n   determining the validity of this Agreement, the meaning of its\n   provisions and the rights, obligations and remedies of the parties.\n\n   D.  Entire Understanding: This Agreement constitutes the entire\n   understanding and agreement of the parties relating to release of the\n   Subject Software and may not be superseded, modified or amended except\n   by further written agreement duly executed by the parties.\n\n   E. Binding Authority: By accepting and using the Subject Software under\n   this Agreement, a Recipient affirms its authority to bind the Recipient\n   to all terms and conditions of this Agreement and that that Recipient\n   hereby agrees to all terms and conditions herein.\n\n   F. Point of Contact: Any Recipient contact with Government Agency is to\n   be directed to the designated representative as follows:  Dale Hithon,\n   SRA Assistant, (301) 286-2691.\n\n\nSMVGEAR chemical solver (used in GEOS-Chem v10-01 and prior versions):\n-----------------------------------------------------------------------------\n\n   *********************************************************************\n   ************        WRITTEN BY MARK JACOBSON (1993)      ************\n   ***             (C) COPYRIGHT, 1993 BY MARK Z. JACOBSON           ***\n   ***       U.S. COPYRIGHT OFFICE REGISTRATION NO. TXu 670-279      ***\n   ***                         (650) 723-6836                        ***\n   *********************************************************************\n"
  },
  {
    "path": "NcdfUtil/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.nc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*"
  },
  {
    "path": "NcdfUtil/CMakeLists.txt",
    "content": "add_library(NcdfUtil STATIC EXCLUDE_FROM_ALL\n\tm_do_err_out.F90\n\tm_netcdf_io_checks.F90\n\tm_netcdf_io_close.F90\n\tm_netcdf_io_create.F90\n\tm_netcdf_io_define.F90\n\tm_netcdf_io_get_dimlen.F90\n\tm_netcdf_io_handle_err.F90\n\tm_netcdf_io_open.F90\n\tm_netcdf_io_read.F90\n\tm_netcdf_io_readattr.F90\n\tm_netcdf_io_write.F90\n\tncdf_mod.F90\n)\ntarget_link_libraries(NcdfUtil\n\tPUBLIC JulDay\n)\n\n"
  },
  {
    "path": "NcdfUtil/README.md",
    "content": "# NcdfUtil: NetCDF Utility routines for GEOS-Chem\n\nThis folder contains netCDF utiliity routines for GEOS-Chem.\n\n## Contents\n\n- `CMakeLists.txt`: CMake build file\n- `charpak_mod.F90`: Copy of `Headers/charpak_mod.F90`, used locally.\n- `julday_mod.F90`: Copy of `Headers/julday_mod.F90`, used locally.\n- `m_do_err_out.F90`: Error handling module\n- `m_netcdf_io_checks.F90`: Error checking routines\n- `m_netcdf_io_close.F90`: Routines to close netCDF files\n- `m_netcdf_io_create.F90`: Routines to create netCDF files\n- `m_netcdf_io_define.F90`: Routines to define netCDF variables\n- `m_netcdf_io_get_dimlen.F90`: Reoutines\n- `m_netcdf_io_handle_err.F90`: Error checking routines\n- `m_netcdf_io_open.F90`: Routines for opening netCDF files\n- `m_netcdf_io_readattr.F90`: Routines for reading netCDF attributes\n- `m_netcdf_io_read.F90`: Routines for reading data to a netCDF file\n- `m_netcdf_io_write.F90`: Routines for writing data to a netCDF file\n- `ncdf_mod.F90`: Convenience routines for netCDF handling\n- `TestNcdfUtil.F90`: Test program \n\n## Scripts\n\nWe have now moved netCDF utility scripts (such as `isCoards` and `nc_chunk.pl`) to a separate Github repository.  You may download them from https://github.com/geoschem/netcdf-scripts.\n\n\n\n"
  },
  {
    "path": "NcdfUtil/TestNcdfUtil.F90",
    "content": "!------------------------------------------------------------------------------\n!       NcdfUtilities: by Harvard Atmospheric Chemistry Modeling Group        !\n!                      and NASA/GSFC, SIVO, Code 610.3                        !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: TestNcdfUtil.F90\n!\n! !DESCRIPTION: Program TestNcdfUtilities.F90 is the standalone driver that\n!  tests if the libNcUtils.a file was built correctly.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nPROGRAM TestNcdfUtil\n!\n! !USES:\n!\n  ! Modules for netCDF write\n  USE m_netcdf_io_define\n  USE m_netcdf_io_create\n  USE m_netcdf_io_write\n\n  ! Modules for netCDF read\n  USE m_netcdf_io_open\n  USE m_netcdf_io_get_dimlen\n  USE m_netcdf_io_read\n  USE m_netcdf_io_readattr\n  USE m_netcdf_io_close\n\n  IMPLICIT NONE\n\n  ! netCDF include files\n# include \"netcdf.inc\"\n\n!\n! !BUGS:\n!  None known at this time\n!\n! !SEE ALSO:\n!  m_do_err_out.F90\n!  m_netcdf_io_checks.F90\n!  m_netcdf_io_close.F90\n!  m_netcdf_io_create.F90\n!  m_netcdf_io_define.F90\n!  m_netcdf_io_get_dimlen.F90\n!  m_netcdf_io_handle_err.F90\n!  m_netcdf_io_open.F90\n!  m_netcdf_io_read.F90\n!  m_netcdf_io_write.F90\n!\n! !SYSTEM ROUTINES:\n!  None\n!\n! !REMARKS:\n!  netCDF library modules originally written by Jules Kouatchou, GSFC\n!  and re-packaged into NcdfUtilities by Bob Yantosca, Harvard Univ.\n\n! !REVISION HISTORY:\n!  03 Jul 2008 - R. Yantosca (Harvard University) - Initial version\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n  ! Global private variables\n  INTEGER, PARAMETER :: ILONG  = 72              ! # of longitude grid points\n  INTEGER, PARAMETER :: ILAT   = 46              ! # of latitude  grid points\n  INTEGER, PARAMETER :: IVERT  = 55              ! # of altitude  levels\n  INTEGER, PARAMETER :: ITIME  = 1               ! # of times\n  INTEGER, PARAMETER :: ICHAR1 = 2               ! # of times\n  INTEGER, PARAMETER :: ICHAR2 = 20              ! # of times\n  INTEGER            :: pCt                      ! # of passed tests\n  INTEGER            :: tCt                      ! # of total tests\n  INTEGER            :: I                        ! Loop index\n  INTEGER            :: longdeg, latdeg          ! For longdat, latdat\n  REAL*8             :: longDat(ILONG)           ! Longitude data\n  REAL*8             :: latDat (ILAT )           ! Latitude data\n  REAL*8             :: levDat (IVERT)           ! Altitude data\n  INTEGER            :: timeDat(ITIME)           ! Time data\n\n  ! Initialize\n  pCt = 0\n  tCt = 0\n\n  ! Longitude data\n  longdeg = 360.0 / REAL( ILONG )\n  if ( mod( 360, ILONG) /= 0 ) longdeg = longdeg + 1\n  do i = 1, ILONG\n     longDat(i) = i*longdeg\n  enddo\n\n  ! Writing latitude data point\n  latdeg  = 180.0 / REAL( ILAT )\n  if ( mod( 180, ILAT ) /= 0 ) latdeg = latdeg + 1\n  do i = 1, ilong\n     latDat(i) = -90 + (i-0.5)*latdeg\n  enddo\n\n  ! Pressure\n  do i = 1, IVERT\n     levDat(i) = 1000.00 - (i-1)*(920.00/IVERT)\n  enddo\n\n  ! Time data\n  do i = 1, ITIME\n     timeDat(i) = 0\n  enddo\n\n  ! Echo info\n  WRITE( 6, '(a)' ) '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'\n  WRITE( 6, '(a)' ) '%%%  Testing libNcdfUtilities.a  %%%'\n  WRITE( 6, '(a)' ) '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'\n\n  ! Create a netCDF file\n  CALL TestNcdfCreate\n\n  ! And try to read it back\n  CALL TestNcdfRead\n!BOC\n\nCONTAINS\n\n!EOC\n!------------------------------------------------------------------------------\n!       NcdfUtilities: by Harvard Atmospheric Chemistry Modeling Group        !\n!                      and NASA/GSFC, SIVO, Code 610.3                        !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TestNcdfCreate\n!\n! !DESCRIPTION: Subroutine TestNcdfCreate creates a netCDF file\n!  named \\texttt{my\\_filename.nc} with the following variables:\n!\n!  \\begin{description}\n!  \\item[PSF] Surface pressure (2D variable)\n!  \\item[KEL] Temperature (3D variable)\n!  \\end{description}\n!\n!  Fake values are used for the data.  An unlimited dimension is employed\n!  to write out several records of kel.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TestNcdfCreate\n!\n! !REVISION HISTORY:\n!  03 Jul 2008 - R. Yantosca (Harvard University) - Initial version\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! For netCDF file I/O\n    INTEGER             :: idLon,    idLat,   idLev,   idTime\n    INTEGER             :: idChar1,  idChar2\n    INTEGER             :: fId,      vId,     omode,   i\n    INTEGER             :: ct1d(1),  ct2d(2), ct3d(3), ct4d(4)\n    INTEGER             :: st1d(1),  st2d(2), st3d(3), st4d(4)\n    INTEGER             :: var1(1),  var2(2), var3(3), var4(4)\n    CHARACTER(LEN=255)  :: units,    delta_t, begin_d\n    CHARACTER(LEN=255)  :: begin_t,  incr\n\n    ! \"Fake\" data arrays\n    REAL*4              :: PS( ILONG, ILAT,        ITIME )  ! surface pressure\n    REAL*4              :: T ( ILONG, ILAT, IVERT, ITIME )  ! temperature\n    CHARACTER           :: DESC( ICHAR1, ICHAR2          )  ! Description\n!\n! !DEFINED PARAMETERS:\n!\n    LOGICAL, PARAMETER  :: COMPRESS = .TRUE.                ! Use compression\n\n    !=========================================================================\n    ! Create the netCDF file\n    !=========================================================================\n\n    ! Echo info\n    WRITE( 6, '(a)' ) '=== Begin netCDF file creation test ==='\n\n    CALL NcCr_Wr( fId, 'my_filename.nc' )\n\n    ! Turn filling off\n    CALL NcSetFill( fId, NF_NOFILL, omode )\n\n    !=========================================================================\n    ! Define the dimensions\n    !=========================================================================\n\n    ! Time dimension\n    WRITE( 6, '(a)' ) 'Writing time  (dim     ) to netCDF file'\n    CALL NcDef_Dimension( fId, 'time',     ITIME,  idTime )\n\n    ! Altitude dimension\n    WRITE( 6, '(a)' ) 'Writing lev   (dim     ) to netCDF file'\n    CALL NcDef_Dimension( fId, 'lev',      IVERT,  idLev )\n\n    ! Latitude dimension\n    WRITE( 6, '(a)' ) 'Writing lat   (dim     ) to netCDF file'\n    CALL NcDef_Dimension( fId, 'lat',      ILAT ,  idLat )\n\n    ! Longitude dimension\n    WRITE( 6, '(a)' ) 'Writing lon   (dim     ) to netCDF file'\n    CALL NcDef_Dimension( fId, 'lon',      ILONG,  idLon )\n\n    ! Character dimension 1\n    WRITE( 6, '(a)' ) 'Writing cdim1 (dim     ) to netCDF file'\n    CALL NcDef_Dimension( fId, 'cdim1', ICHAR1, idChar1 )\n\n    ! Character dimension 1\n    WRITE( 6, '(a)' ) 'Writing cdim2 (dim     ) to netCDF file'\n    CALL NcDef_Dimension( fId, 'cdim2', ICHAR2, idChar2 )\n\n    !=========================================================================\n    ! Define the variables and variable attributes\n    ! for COARDS compliance and GAMAP compliance\n    !=========================================================================\n    CALL NcDef_Glob_Attributes( fId, 'Title',       'NcdfUtilities test file' )\n    CALL NcDef_Glob_Attributes( fId, 'History',     'test file - 24 Jan 2011' )\n    CALL NcDef_Glob_Attributes( fId, 'Conventions', 'COARDS'                  )\n    CALL NcDef_Glob_Attributes( fId, 'Model',       'GEOS4'                   )\n    CALL NcDef_Glob_Attributes( fId, 'Nlayers',     '55'                      )\n    CALL NcDef_Glob_Attributes( fId, 'Start_Date',  '20110101'                )\n    CALL NcDef_Glob_Attributes( fId, 'Start_Time',  '00:00:00.0'              )\n    CALL NcDef_Glob_Attributes( fId, 'End_Date',    '20110101'                )\n    CALL NcDef_Glob_Attributes( fId, 'End_Time',    '23:59:59.0'              )\n    CALL NcDef_Glob_Attributes( fId, 'Delta_Lon',   '5'                       )\n    CALL NcDef_Glob_Attributes( fId, 'Delta_Lat',   '4'                       )\n    CALL NcDef_Glob_Attributes( fId, 'Delta_time',  '000000'                  )\n    CALL NcDef_Glob_Attributes( fId, 'Format',      'netCDF-3'                )\n    CALL NcDef_Glob_Attributes( fId, 'valid_range', (/ -1e15, +1e15 /)        )\n    CALL NcDef_Glob_Attributes( fId, 'id_number',   1                         )\n\n    !=========================================================================\n    ! Define the variables and variable attributes\n    !=========================================================================\n\n    ! Time index array (hardwire date to 2011/01/01)\n    var1    = (/ idTime /)\n    units   = 'minutes since 2011-01-01 00:00:00 GMT'\n    delta_t = '0000-00-00 00:00:00'\n    begin_d = '20110101'\n    begin_t = '000000'\n    incr    = '000000'\n    CALL NcDef_Variable      ( fId, 'time', NF_INT,  1, var1, vId, COMPRESS )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name',      'time'           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',          TRIM( units   )  )\n    CALL NcDef_Var_Attributes( fId, vId, 'delta_t',        TRIM( delta_t )  )\n    CALL NcDef_Var_Attributes( fId, vId, 'begin_date',     TRIM( begin_d )  )\n    CALL NcDef_Var_Attributes( fId, vId, 'begin_time',     TRIM( begin_t )  )\n    CALL NcDef_Var_Attributes( fId, vId, 'time_increment', TRIM( incr    )  )\n\n    ! Define vertical (pressure) variable\n    var1 = (/ idLev /)\n    CALL NcDef_Variable( fId, 'lev', NF_DOUBLE, 1, var1, vId, COMPRESS )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'Pressure'       )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'hPa'            )\n\n    ! Define latitude variable\n    var1 = (/ idLat /)\n    CALL NcDef_Variable( fId, 'lat', NF_DOUBLE, 1, var1, vId, COMPRESS )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'Latitude'       )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'degrees_north'  )\n\n    ! Define longitude variable\n    var1 = (/ idLon /)\n    CALL NcDef_Variable( fId, 'lon', NF_DOUBLE, 1, var1, vId, COMPRESS )\n    CALL NcDef_Var_Attributes( fId, vId,  'long_name', 'Longitude'     )\n    CALL NcDef_Var_Attributes( fId, vId,  'units',     'degrees_east'  )\n\n    ! Define surface pressure variable\n    var3 = (/ idLon, idLat, idTime /)\n    CALL NcDef_Variable      ( fId, 'PS', NF_FLOAT, 3, var3, vId, COMPRESS    )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name',      'Surface Pressure' )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',          'hPa'              )\n    CALL NcDef_Var_Attributes( fId, vId, 'gamap_category', 'GMAO-2D'          )\n    CALL NcDef_Var_Attributes( fId, vId, 'missing_value',   1e15              )\n    CALL NcDef_Var_Attributes( fId, vId, '_FillValue',      1e15              )\n    CALL NcDef_Var_Attributes( fId, vId, 'valid_range',     (/-1e15, +1e15/)  )\n\n    !=========================================================================\n    ! %%% TEST RE-OPENING OF DEFINE MODE %%%\n    !=========================================================================\n    CALL NcEnd_Def( fId )\n    WRITE( 6, '(a)' ) 'Testing re-opening of define mode'\n    CALL NcBegin_Def( fId )\n\n    ! Define temperature variable\n    var4 = (/ idLon, idLat, idLev, idTime /)\n    CALL NcDef_Variable      ( fId, 'T', NF_FLOAT, 4, var4, vId, COMPRESS     )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name',      'Temperature'      )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',          'K'                )\n    CALL NcDef_Var_Attributes( fId, vId, 'gamap_category', 'GMAO-3D$'         )\n    CALL NcDef_Var_Attributes( fId, vId, 'missing_value',   1e15              )\n    CALL NcDef_Var_Attributes( fId, vId, '_FillValue',      1e15              )\n    CALL NcDef_Var_Attributes( fId, vId, 'valid_range',     (/-1e15, +1e15/)  )\n\n\n    ! Define description variable\n    var2 = (/ idChar1, idChar2 /)\n    CALL NcDef_Variable      ( fId, 'DESC', NF_CHAR, 2, var2, vId, COMPRESS   )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name',      'Description'      )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',          '1'                )\n    CALL NcDef_Var_Attributes( fId, vId, 'gamap_category', 'none'             )\n\n    !=========================================================================\n    ! %%% END OF DEFINITION SECTION %%%\n    ! %%% NOW WRITE DATA TO FILE    %%%\n    !=========================================================================\n    CALL NcEnd_def( fId )\n\n    ! Write longitude\n    WRITE( 6, '(a)' ) 'Writing lon   (1D array) to netCDF file'\n    st1d = (/ 1     /)\n    ct1d = (/ ILONG /)\n    CALL NcWr( longDat, fId, 'lon', st1d, ct1d )\n\n    ! Write latitude\n    WRITE( 6, '(a)' ) 'Writing lat   (1D array) to netCDF file'\n    st1d = (/ 1    /)\n    ct1d = (/ ILAT /)\n    CALL NcWr( latDat, fId, 'lat', st1d, ct1d )\n\n    ! Write pressure levels\n    WRITE( 6, '(a)' ) 'Writing lev   (1D array) to netCDF file'\n    st1d = (/ 1     /)\n    ct1d = (/ IVERT /)\n    CALL NcWr( levDat, fId, 'lev', st1d, ct1d )\n\n    ! Write pressure levels\n    WRITE( 6, '(a)' ) 'Writing time  (1D array) to netCDF file'\n    st1d = (/ 1     /)\n    ct1d = (/ ITIME /)\n    CALL NcWr( timeDat, fId, 'time', st1d, ct1d )\n\n    ! Write surface pressure (w/ fake values)\n    WRITE( 6, '(a)' ) 'Writing PS    (3D array) to netCDF file'\n    PS    = 1e0\n    st3d = (/ 1,     1,   1      /)\n    ct3d = (/ ILONG, ILAT, ITIME /)\n    CALL NcWr( PS, fId, 'PS', st3d, ct3d )\n\n    ! Write temperature (w/ fake values)\n    WRITE( 6, '(a)' ) 'Writing T     (4D array) to netCDF file'\n    T    = 1e0\n    st4d = (/ 1,     1,    1,     1     /)\n    ct4d = (/ ILONG, ILAT, IVERT, ITIME /)\n    CALL NcWr( T, fId, 'T', st4d, ct4d )\n\n    ! Initialzie the character array\n    DO i = 1, ICHAR2\n       DESC(1,i) = ACHAR(64+I)\n       DESC(2,i) = ACHAR(96+I)\n    ENDDO\n\n    ! Write temperature (w/ fake values)\n    WRITE( 6, '(a)' ) 'Writing DESC  (2D char ) to netCDF file'\n    st2d = (/ 1,      1      /)\n    ct2d = (/ ICHAR1, ICHAR2 /)\n    CALL NcWr( DESC, fId, 'DESC', st2d, ct2d )\n\n    !=========================================================================\n    ! Close the netCDF file\n    !=========================================================================\n    CALL NcCl( fId )\n\n    ! Echo info\n    WRITE( 6, '(a)' ) '=== End netCDF file creation test ==='\n\n  END SUBROUTINE TestNcdfCreate\n!EOC\n!------------------------------------------------------------------------------\n!       NcdfUtilities: by Harvard Atmospheric Chemistry Modeling Group        !\n!                      and NASA/GSFC, SIVO, Code 610.3                        !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TestNcdfRead\n!\n! !DESCRIPTION: Routine TestNcdfRead extracts the following fields from\n!  the netCDF file \\texttt{my\\_filename.nc}:\n!\n!  \\begin{description}\n!  \\item[PSF] Surface pressure (2D variable)\n!  \\item[KEL] Temperature (3D variable).\n!  \\end{description}\n!\n!  Note that the file \\texttt{my\\_filename.nc} was created with fake data\n!  values by subroutine TestNcdfCreate.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TestNcdfRead\n!\n! !REVISION HISTORY:\n!  03 Jul 2008 - R. Yantosca (Harvard University) - Initial version\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER                :: fId,     rc,      XDim,    CDim1\n    INTEGER                :: YDim,    ZDim,    TDim,    CDim2\n    INTEGER                :: ct1d(1), ct2d(2), ct3d(3), ct4d(4)\n    INTEGER                :: st1d(1), st2d(2), st3d(3), st4d(4)\n    CHARACTER(LEN=255)     :: attValue\n    REAL*4                 :: attValR4\n\n    ! Arrays\n    REAL*4                 :: valid(2)\n    REAL*8,    ALLOCATABLE :: lon(:),  lat(:),  lev(:)\n    INTEGER,   ALLOCATABLE :: time(:)\n    REAL*4,    ALLOCATABLE :: PS(:,:,:)\n    REAL*4,    ALLOCATABLE :: T(:,:,:,:)\n    CHARACTER, ALLOCATABLE :: DESC(:,:)\n\n    !=========================================================================\n    ! Open the netCDF file\n    !=========================================================================\n\n    ! Echo info\n    WRITE( 6, '(a)' ) '=== Begin netCDF file reading test ==='\n\n    CALL Ncop_Rd( fId, 'my_filename.nc' )\n\n    !=========================================================================\n    ! Get the dimensions\n    !=========================================================================\n    CALL Ncget_Dimlen( fId, 'lon',   XDim  )\n    CALL Ncget_Dimlen( fId, 'lat',   YDim  )\n    CALL Ncget_Dimlen( fId, 'lev',   ZDim  )\n    CALL Ncget_Dimlen( fId, 'time',  TDim  )\n    CALL Ncget_Dimlen( fId, 'cdim1', CDim1 )\n    CALL Ncget_Dimlen( fId, 'cdim2', CDim2 )\n\n    rc = XDim - ILONG\n    CALL Check( 'Reading lon   (dim  )  back from netCDF file', rc, pCt, tCt )\n\n    rc = YDim - ILAT\n    CALL Check( 'Reading lat   (dim  )  back from netCDF file', rc, pCt, tCt )\n\n    rc = ZDim - IVERT\n    CALL Check( 'Reading lev   (dim  )  back from netCDF file', rc, pCt, tCt )\n\n    rc = TDim - ITIME\n    CALL Check( 'Reading time  (dim  )  back from netCDF file', rc, pCt, tCt )\n\n    rc = CDim1 - ICHAR1\n    CALL Check( 'Reading cdim1 (dim  )  back from netCDF file', rc, pCt, tCt )\n\n    rc = CDim2 - ICHAR2\n    CALL Check( 'Reading cdim2 (dim  )  back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the LON variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( lon( XDim ) )\n    st1d = (/ 1    /)\n    ct1d = (/ XDim /)\n    CALL NcRd( lon, fId, 'lon', st1d, ct1d )\n\n    ! Equality test\n    rc = SUM( lon - longDat )\n    CALL Check( 'Reading lon   (array)  back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the LAT variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( lat( YDim ) )\n    st1d = (/ 1    /)\n    ct1d = (/ YDim /)\n    CALL NcRd( lat, fId, 'lat', st1d, ct1d )\n\n    ! Equality test\n    rc = SUM( lat - latDat )\n    CALL Check( 'Reading lat   (array)  back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the LEV variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( lev( ZDim ) )\n    st1d = (/ 1    /)\n    ct1d = (/ ZDim /)\n    CALL NcRd( lev, fId, 'lev', st1d, ct1d )\n\n    ! Equality test\n    rc = SUM( lev - levDat )\n    CALL Check( 'Reading lev   (array)  back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the TIME variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( time( TDim ) )\n    st1d = (/ 1    /)\n    ct1d = (/ TDim /)\n    CALL NcRd( time, fId, 'time', st1d, ct1d )\n\n    ! Equality test\n    rc = SUM( time - timeDat )\n    CALL Check( 'Reading time  (array)  back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the PS variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( ps( XDim, YDim, TDim ) )\n    st3d = (/ 1,    1,    1    /)\n    ct3d = (/ XDim, YDim, TDim /)\n    CALL NcRd( ps, fId, 'PS', st3d, ct3d )\n\n    ! Equality test\n    rc = SUM( PS ) - SIZE( PS )\n    CALL Check( 'Reading PS             back from netCDF file', rc, pCt, tCt )\n\n    ! Read units attribute\n    CALL NcGet_Var_Attributes( fId, 'PS', 'units', attValue )\n    IF ( TRIM( attValue ) == 'hPa' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading PS:units       back from netCDF file', rc, pCt, tCt )\n\n    ! Read long_name attribute\n    CALL NcGet_Var_Attributes( fId, 'PS', 'long_name', attValue )\n    IF ( TRIM( attValue ) == 'Surface Pressure' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading PS:long_name   back from netCDF file', rc, pCt, tCt )\n\n    ! Read _FillValue attribute\n    CALL NcGet_Var_Attributes( fId, 'PS', '_FillValue', attValR4 )\n    IF ( attValR4 == 1e15 ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading PS:_FillValue  back from netCDF file', rc, pCt, tCt )\n\n    ! Read valid_range attribute\n    CALL NcGet_Var_Attributes( fId, 'PS', 'valid_range', valid )\n    IF ( valid(1) == -1e15 .and. valid(2) == 1e15 ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading PS:valid_range back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the T variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( T( XDim, YDim, ZDim, TDim ) )\n    st4d = (/ 1,    1,    1,    1    /)\n    ct4d = (/ XDim, YDim, ZDim, TDim /)\n    CALL NcRd( T, fId, 'T', st4d, ct4d )\n\n    ! Equality test\n    rc = SUM( t ) - SIZE( t )\n    CALL Check( 'Reading T              back from netCDF file', rc, pCt, tCt )\n\n    ! Read units attribute\n    CALL NcGet_Var_Attributes( fId, 'T', 'units', attValue )\n    IF ( TRIM( attValue ) == 'K' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading T:units        back from netCDF file', rc, pCt, tCt )\n\n    ! Read long_name\n    CALL NcGet_Var_Attributes( fId, 'T', 'long_name', attValue )\n    IF ( TRIM( attValue ) == 'Temperature' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading T:long_name    back from netCDF file', rc, pCt, tCt )\n\n    ! Read _FillValue attribute\n    CALL NcGet_Var_Attributes( fId, 'T', '_FillValue', attValR4 )\n    IF ( attValR4 == 1e15 ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading T:_FillValue   back from netCDF file', rc, pCt, tCt )\n\n    ! Read valid_range attribute\n    CALL NcGet_Var_Attributes( fId, 'T', 'valid_range', valid )\n    IF ( valid(1) == -1e15 .and. valid(2) == 1e15 ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading T:valid_range  back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read the DESC variable\n    !=========================================================================\n\n    ! Read data\n    ALLOCATE( DESC( CDim1, CDim2 ) )\n    st2d = (/ 1,    1      /)\n    ct2d = (/ CDim1, CDim2 /)\n    CALL NcRd( DESC, fId, 'DESC', st2d, ct2d )\n\n    ! Check that DESC was read properly\n    rc = 0\n    DO i = 1, ICHAR2\n       IF ( ICHAR( DESC(1,i) ) - 64 /= I ) rc = 1\n       IF ( ICHAR( DESC(2,i) ) - 96 /= I ) rc = 1\n    ENDDO\n    CALL Check( 'Reading DESC           back from netCDF file', rc, pCt, tCt )\n\n    ! Read units attribute\n    CALL NcGet_Var_Attributes( fId, 'DESC', 'units', attValue )\n    IF ( TRIM( attValue ) == '1' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading DESC:units     back from netCDF file', rc, pCt, tCt )\n\n    ! Read long_name attribute\n    CALL NcGet_Var_Attributes( fId, 'T', 'long_name', attValue )\n    IF ( TRIM( attValue ) == 'Temperature' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading DESC:long_name back from netCDF file', rc, pCt, tCt )\n\n    !=========================================================================\n    ! Read global attributes\n    !=========================================================================\n\n    ! Read title attribute\n    CALL NcGet_Glob_Attributes( fId, 'Title', attValue )\n    IF ( TRIM( attValue ) == 'NcdfUtilities test file' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading title          back from netCDF file', rc, pCt, tCt )\n\n    ! Read start_date\n    CALL NcGet_Glob_Attributes( fId, 'Start_Date', attValue )\n    IF ( TRIM( attValue ) == '20110101' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading start_date     back from netCDF file', rc, pCt, tCt )\n\n    ! Read start_time\n    CALL NcGet_Glob_Attributes( fId, 'Start_Time', attValue )\n    IF ( TRIM( attValue ) == '00:00:00.0' ) THEN\n       rc = 0\n    ELSE\n       rc = -1\n    ENDIF\n    CALL Check( 'Reading start_time     back from netCDF file', rc, pCt, tCt )\n\n    ! Close netCDF file\n    CALL NcCl( fId )\n\n    ! Cleanup\n    IF ( ALLOCATED( lon  ) ) DEALLOCATE( lon  )\n    IF ( ALLOCATED( lat  ) ) DEALLOCATE( lat  )\n    IF ( ALLOCATED( lev  ) ) DEALLOCATE( lev  )\n    IF ( ALLOCATED( time ) ) DEALLOCATE( time )\n    IF ( ALLOCATED( PS   ) ) DEALLOCATE( PS   )\n    IF ( ALLOCATED( T    ) ) DEALLOCATE( T    )\n\n    ! Echo info\n    WRITE( 6, '(a)' ) '=== End of netCDF file read test! ==='\n\n  END SUBROUTINE TestNcdfRead\n!EOC\n!------------------------------------------------------------------------------\n!       NcdfUtilities: by Harvard Atmospheric Chemistry Modeling Group        !\n!                      and NASA/GSFC, SIVO, Code 610.3                        !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Check\n!\n! !DESCRIPTION: Subroutine that prints \"PASSED\" or \"FAILED\" after each test.\n!  Also increments the various counters of passed or failed tests.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Check( msg, rc, passCt, totCt )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: msg     ! message to print\n    INTEGER,          INTENT(IN)    :: rc      ! Return code\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: passCt  ! # of passed tests\n    INTEGER,          INTENT(INOUT) :: totCt   ! # of total tests\n!\n! !REVISION HISTORY:\n!  03 Jul 2008 - R. Yantosca (Harvard University) - Initial version\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: s\n\n    ! length of message\n    s = LEN( msg )\n\n    IF ( rc == 0 ) THEN\n       WRITE( 6, '(a)' ) msg // REPEAT( '.', 55-s ) // 'PASSED'\n       passCt = passCt + 1\n    ELSE\n       WRITE( 6, '(a)' ) msg // REPEAT( '.', 55-s ) // 'FAILED'\n    ENDIF\n\n    totCt = totCt + 1\n\n  END SUBROUTINE Check\n!EOC\n\nEND PROGRAM TestNcdfUtil\n\n"
  },
  {
    "path": "NcdfUtil/charpak_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: charpak_mod.F90\n!\n! !DESCRIPTION: Module CHARPAK\\_MOD contains routines from the CHARPAK\n!  string and character manipulation package used by GEOS-Chem.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE Charpak_Mod\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: CleanText\n  PUBLIC  :: CntMat\n  PUBLIC  :: CopyTxt\n  PUBLIC  :: CStrip\n  PUBLIC  :: IsDigit\n  PUBLIC  :: ReadOneLine\n  PUBLIC  :: StrRepl\n  PUBLIC  :: StrSplit\n  PUBLIC  :: StrSqueeze\n  PUBLIC  :: To_UpperCase\n  PUBLIC  :: TranLc\n  PUBLIC  :: TranUc\n  PUBLIC  :: Txtext\n  PUBLIC  :: WordWrapPrint\n  PUBLIC  :: Unique\n!\n! !PRIVATE MEMBER FUNCTIONS\n!\n!\n! !REMARKS:\n!  CHARPAK routines by Robert D. Stewart, 1992.  Subsequent modifications\n!  made for GEOS-CHEM by Bob Yantosca (1998, 2002, 2004).\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS\n!\n  ! Maximum string length\n  INTEGER, PARAMETER, PUBLIC :: MAXSTRLEN = 500\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CntMat\n!\n! !DESCRIPTION: Counts the number of characters in str1 that match\n!  a character in str2.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CntMat( Str1, Str2, Imat, Locations )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) ::  Str1             ! Text to scan\n    CHARACTER(LEN=*), INTENT(IN) ::  Str2             ! Character to match\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: imat             ! Number of matches\n    INTEGER,          OPTIONAL    :: Locations(255)   ! Positions of matches\n!\n! !REVISION HISTORY:\n!     DATE:   JAN. 6, 1995\n!     AUTHOR: R.D. STEWART\n!     COMMENTS: Revised slightly (2-5-1996) so that trailing\n!               blanks in str1 are ignored.  Revised again\n!               on 3-6-1996.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: L1, L2, i, j\n    LOGICAL :: again\n\n    ! Arrays\n    INTEGER :: TmpLocations(255)\n\n    ! Initialize\n    TmpLocations = 0\n    L1           = MAX(1,LEN_TRIM(str1))\n    L2           = LEN(str2)\n    imat         = 0\n\n    DO i=1,L1\n       again = .true.\n       j = 1\n       DO WHILE (again)\n          IF (str2(j:j).EQ.str1(i:i)) THEN\n             imat               = imat+1\n             TmpLocations(imat) = i\n             again              = .false.\n          ELSEIF (j.LT.L2) THEN\n             j=j+1\n          ELSE\n             again = .false.\n          ENDIF\n       ENDDO\n    ENDDO\n\n    ! Return positions where matches occured (OPTIONAL)\n    IF ( PRESENT( Locations ) ) Locations = TmpLocations\n\n  END SUBROUTINE CntMat\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CopyTxt\n!\n! !DESCRIPTION: Write all of the characters in str1 into variable\n!               str2 beginning at column, col.  If the length of str1\n!               + col is longer than the number of characters str2\n!               can store, some characters will not be transfered to\n!               str2.  Any characters already existing in str2 will\n!               will be overwritten.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CopyTxt( col, str1, str2 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)    :: col\n    CHARACTER(LEN=*), INTENT(IN)    :: str1\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: str2\n!\n! !REVISION HISTORY:\n!     DATE:   DEC. 24, 1993\n!     AUTHOR: R.D. STEWART\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: ilt1,i1,i,j,ic\n\n    i1 = LEN(str2)\n    IF (i1.GT.0) THEN\n       ilt1 = LEN(str1)\n       IF (ilt1.GT.0) THEN\n          ic = MAX0(col,1)\n          i = 1\n          j = ic\n          DO WHILE ((i.LE.ilt1).and.(j.LE.i1))\n             str2(j:j) = str1(i:i)\n             i = i + 1\n             j = ic + (i-1)\n          ENDDO\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE CopyTxt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Cstrip\n!\n! !DESCRIPTION: Strip blanks and null characters for the variable TEXT.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CStrip( text, KeepSpaces )\n!\n! !INPUT PARAMETERS:\n!\n    LOGICAL,          OPTIONAL      :: KeepSpaces ! If =T, then keep spaces\n                                                  !  but skip all other\n                                                  !  non-printing chars\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: TEXT       ! Text to be modified\n!\n! !REMARKS:\n!  The original \"text\" is destroyed upon exit.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: May 19, 1992\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER          :: ilen, iasc, icnt, i, Start\n    CHARACTER(LEN=1) :: ch\n\n    ! Default: Skip space characters\n    Start = 32\n\n    ! If KEEPSPACES=T then skip all non-printing characters,\n    ! but keep space characters. (bmy, 1/30/18)\n    IF ( PRESENT( KeepSpaces ) ) THEN\n       IF ( KeepSpaces ) Start = 31\n    ENDIF\n\n    ilen = LEN(text)\n    IF (ilen.GT.1) THEN\n       icnt = 1\n       DO i=1,ilen\n          iasc = ICHAR(text(i:i))\n\n          ! Keep characters between these limits\n          IF ( ( iasc > Start ).AND. (iasc < 255 ) ) THEN\n             ch = text(i:i)\n             text(icnt:icnt) = ch\n             icnt = icnt + 1\n          ENDIF\n       ENDDO\n       ! Fill remainder of text with blanks\n       DO i=icnt,ilen\n          text(i:i) = ' '\n       ENDDO\n    ENDIF\n\n  END SUBROUTINE CStrip\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: IsDigit\n!\n! !DESCRIPTION: Returned as true if ch is a numeric character (i.e., one of\n!  the numbers from 0 to 9).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION IsDigit( ch ) RESULT( lnum )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=1), INTENT(IN) :: ch\n!\n! !RETURN VALUE:\n!\n    LOGICAL                      :: lnum\n!\n! !REMARKS:\n!  NOTE: Changed name from ISNUM to ISDIGIT (bmy, 7/15/04)\n!\n! !REVISION HISTORY:\n!     DATE:   NOV. 11, 1993\n!     AUTHOR: R.D. STEWART\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER iasc\n\n    iasc = ICHAR(ch)\n    lnum = .FALSE.\n    IF ((iasc.GE.48).AND.(iasc.LE.57)) THEN\n       lnum = .TRUE.\n    ENDIF\n\n  END FUNCTION IsDigit\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: StrRepl\n!\n! !DESCRIPTION: Subroutine StrRepl replaces all instances of PATTERN within\n!  a string STR with replacement text REPLTXT.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE StrRepl( Str, Pattern, ReplTxt )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: Pattern   ! Pattern to search for\n    CHARACTER(LEN=*), INTENT(IN)    :: ReplTxt   ! Text to replace\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: Str       ! String to be manipulated\n!\n! !REMARKS:\n!  PATTERN and REPLTXT can now have a different number of characters.\n!\n! !REVISION HISTORY:\n!  25 Jun 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Local variables\n    INTEGER :: I1, I2\n\n    !=================================================================\n    ! StrRepl begins here!\n    !=================================================================\n    DO\n\n       ! I1 is the first character that matches the search pattern;\n       ! it must be 1 or larger.  Otherwise exit the routine.\n       I1 = INDEX( Str, Pattern )\n       IF ( I1 < 1 ) RETURN\n\n       ! Replace the text.  I2 is the starting position of the\n       ! string following the point of text replacement.\n       I2 = I1 + LEN( Pattern )\n       Str = Str(1:I1-1) // ReplTxt // Str(I2:)\n\n    ENDDO\n\n  END SUBROUTINE StrRepl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: StrSplit\n!\n! !DESCRIPTION: Subroutine STRSPLIT returns substrings in a string, separated\n!  by a separator character (similar to IDL's StrSplit function).  This is\n!  mainly a convenience wrapper for CHARPAK routine TxtExt.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE StrSplit( Str, Sep, Result, N_SubStrs )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: STR           ! String to be searched\n    CHARACTER(LEN=1), INTENT(IN)  :: SEP           ! Separator character\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT) :: Result(255)   ! Returned substrings\n    INTEGER,          OPTIONAL    :: N_SubStrs     ! # of substrings\n!\n! !REVISION HISTORY:\n!  11 Jul 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: I, IFLAG, COL\n    CHARACTER(LEN=2047) :: WORD\n\n    !=======================================================================\n    ! STRSPLIT begins here!\n    !=======================================================================\n\n    ! Initialize\n    I         = 0\n    COL       = 1\n    IFLAG     = 0\n    RESULT(:) = ''\n\n    ! Loop until all matches found, or end of string\n    DO WHILE ( IFLAG == 0 )\n\n       ! Look for strings beteeen separator string\n       CALL TXTEXT ( SEP, TRIM( STR ), COL, WORD, IFLAG )\n\n       ! Store substrings in RESULT array\n       I         = I + 1\n       RESULT(I) = TRIM( WORD )\n\n    ENDDO\n\n    ! Optional argument: return # of substrings found\n    IF ( PRESENT( N_SUBSTRS ) ) N_SUBSTRS = I\n\n  END SUBROUTINE StrSplit\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: StrSqueeze\n!\n! !DESCRIPTION: Subroutine STRSQUEEZE strips white space from both ends of a\n!  string.  White space in the middle of the string (i.e. between characters)\n!  will be preserved as-is.  Somewhat similar (though not exactly) to IDL's\n!  STRCOMPRESS function.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE StrSqueeze( Str )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(INOUT) :: Str   ! String to be squeezed\n!\n! !REVISION HISTORY:\n!  11 Jul 2002 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! STRSQUEEZE begins here!\n    !=================================================================\n    Str = ADJUSTR( TRIM( Str ) )\n    Str = ADJUSTL( TRIM( Str ) )\n\n  END SUBROUTINE StrSqueeze\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TranLc\n!\n! !DESCRIPTION: Tranlate a character variable to all lowercase letters.\n!               Non-alphabetic characters are not affected.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TranLc( text )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*) :: text\n!\n! !REMARKS:\n!  The original \"text\" is destroyed.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: May 19, 1992\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: iasc,i,ilen\n\n    ilen = LEN(text)\n    DO I=1,ilen\n       iasc = ICHAR(text(i:i))\n       IF ((iasc.GT.64).AND.(iasc.LT.91)) THEN\n          text(i:i) = CHAR(iasc+32)\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE TRANLC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TranUc\n!\n! !DESCRIPTION: Tranlate a character variable to all upper case letters.\n!               Non-alphabetic characters are not affected.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TranUc( text )\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*) :: text\n!\n! !REMARKS:\n!  The original \"text\" is destroyed.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: May 19, 1992\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: iasc,i,ilen\n\n    ilen = LEN(text)\n    DO i=1,ilen\n       iasc = ICHAR(text(i:i))\n       IF ((iasc.GT.96).AND.(iasc.LT.123)) THEN\n          text(i:i) = CHAR(iasc-32)\n       ENDIF\n    ENDDO\n\n  END SUBROUTINE TRANUC\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TxtExt\n!\n! !DESCRIPTION: TxtExt extracts a sequence of characters from\n!               text and transfers them to word.  The extraction\n!               procedure uses a set of character \"delimiters\"\n!               to denote the desired sequence of characters.\n!               For example if ch=' ', the first character sequence\n!               bracketed by blank spaces will be returned in word.\n!               The extraction procedure begins in column, col,\n!               of TEXT.  If text(col:col) = ch (any character in\n!               the character string), the text is returned beginning\n!               with col+1 in text (i.e., the first match with ch\n!               is ignored).\n!\\\\\n!\\\\\n!               After completing the extraction, col is incremented to\n!               the location of the first character following the\n!               end of the extracted text.\n!\\\\\n!\\\\\n!               A status flag is also returned with the following\n!               meaning(s)\n!\\\\\n!\\\\\n!               IF iflg = -1, found a text block, but no more characters\n!                             are available in TEXT\n!                  iflg = 0,  task completed sucessfully (normal term)\n!                  iflg = 1,  ran out of text before finding a block of\n!                             text.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TxtExt(ch,text,col,word,iflg)\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)    :: ch,text\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: col\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT)   :: word\n    INTEGER                         :: iflg\n!\n! !REMARKS:\n!  TxtExt is short for Text Extraction.  This routine provides a set of\n!  powerful line-by-line text search and extraction capabilities in\n!  standard FORTRAN.\n!\n! !REVISION HISTORY:\n!      AUTHOR: Robert D. Stewart\n!        DATE: Jan. 1st, 1995\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: Tmax,T1,T2,imat\n    LOGICAL :: again,prev\n\n    ! Length of text\n    Tmax = LEN(text)\n\n    ! Fill Word with blanks\n    WORD = REPEAT( ' ', LEN( WORD ) )\n\n    IF (col.GT.Tmax) THEN\n       ! Text does not contain any characters past Tmax.\n       ! Reset col to one and return flag = {error condition}\n       iflg = 1\n       col = 1\n    ELSEIF (col.EQ.Tmax) THEN\n       ! End of TEXT reached\n       CALL CntMat(ch,text(Tmax:Tmax),imat)\n       IF (imat.EQ.0) THEN\n          ! Copy character into Word and set col=1\n          CALL CopyTxt(1,Text(Tmax:Tmax),Word)\n          col = 1\n          iflg = -1\n       ELSE\n          ! Same error condition as if col.GT.Tmax\n          iflg = 1\n       ENDIF\n    ELSE\n       ! Make sure column is not less than 1\n       IF (col.LT.1) col=1\n       CALL CntMat(ch,text(col:col),imat)\n       IF (imat.GT.0) THEN\n          prev=.true.\n       ELSE\n          prev=.false.\n       ENDIF\n       T1=col\n       T2 = T1\n\n       again = .true.\n       DO WHILE (again)\n          ! Check for a match with a character in ch\n          CALL CntMat(ch,text(T2:T2),imat)\n          IF (imat.GT.0) THEN\n             ! Current character in TEXT matches one (or more) of the\n             ! characters in ch.\n             IF (prev) THEN\n                IF (T2.LT.Tmax) THEN\n                   ! Keep searching for a block of text\n                   T2=T2+1\n                   T1=T2\n                ELSE\n                   ! Did not find any text blocks before running\n                   ! out of characters in TEXT.\n                   again=.false.\n                   iflg=1\n                ENDIF\n             ELSE\n                 ! Previous character did not match ch, so terminate.\n                 ! NOTE: This is \"NORMAL\" termination of the loop\n                again=.false.\n                T2=T2-1\n                iflg = 0\n             ENDIF\n          ELSEIF (T2.LT.Tmax) THEN\n             ! Add a letter to the current block of text\n             prev = .false.\n             T2=T2+1\n          ELSE\n             ! Reached the end of the characters in TEXT before reaching\n             ! another delimiting character.  A text block was identified\n             ! however.\n             again=.false.\n             iflg=-1\n          ENDIF\n       ENDDO\n\n       IF (iflg.EQ.0) THEN\n          ! Copy characters into WORD and set col for return\n          CALL CopyTxt(1,Text(T1:T2),Word)\n          col = T2+1\n       ELSE\n          ! Copy characters into WORD and set col for return\n          CALL CopyTxt(1,Text(T1:T2),Word)\n          col = 1\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE TxtExt\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: To_Uppercase\n!\n! !DESCRIPTION: Converts a string to uppercase, so that we can reliably\n!  do string matching.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION To_UpperCase( Text ) RESULT( UpCaseText )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: Text         ! Input test\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=255)           :: UpCaseText   ! Output text, uppercase\n!\n! !REMARKS:\n!  Code originally from routine TRANUC (Author: R. D. Stewart, 19 May 1992)\n!\n! !REVISION HISTORY:\n!  26 Jun 2017 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER :: C, Ascii\n\n    !=======================================================================\n    ! Convert to uppercase\n    !=======================================================================\n\n    ! Initialize\n    UpCaseText = Text\n\n    ! Loop over all characters\n    DO C = 1, LEN_TRIM( UpCaseText )\n\n       ! Get the ASCII code for each character\n       Ascii = ICHAR( UpCaseText(C:C) )\n\n       ! If lowercase, convert to uppercase\n       IF ( Ascii > 96 .and. Ascii < 123 ) THEN\n          UpCaseText(C:C) = CHAR( Ascii - 32 )\n       ENDIF\n    ENDDO\n\n  END FUNCTION To_UpperCase\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ReadOneLine\n!\n! !DESCRIPTION: Subroutine READ\\_ONE\\_LINE reads a line from the input file.\n!  If the global variable VERBOSE is set, the line will be printed to stdout.\n!  READ\\_ONE\\_LINE can trap an unexpected EOF if LOCATION is passed.\n!  Otherwise, it will pass a logical flag back to the calling routine,\n!  where the error trapping will be done.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION ReadOneLine( fId, EndOfFile, IoStatus, Squeeze ) RESULT( Line )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)      :: fId        ! File unit number\n    LOGICAL, OPTIONAL        :: Squeeze    ! Call Strsqueeze?\n!\n! !OUTPUT PARAMETERS:\n!\n    LOGICAL, INTENT(OUT)     :: EndOfFile  ! Denotes EOF condition\n    INTEGER, INTENT(OUT)     :: IoStatus   ! I/O status code\n!\n! !RETURN VALUE:\n!\n    CHARACTER(LEN=MAXSTRLEN) :: Line       ! Single line from the input file\n!\n! !REMARKS:\n!  Mostly used by routines in the History/ folder.\n!\n! !REVISION HISTORY:\n!  16 Jun 2017 - R. Yantosca - Initial version, based on GEOS-Chem\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! Initialize\n    !=================================================================\n    EndOfFile = .FALSE.\n    IoStatus  = 0\n    Line      = ''\n\n    !=================================================================\n    ! Read data from the file\n    !=================================================================\n\n    ! Read a line from the file\n    READ( fId, '(a)', IOSTAT=IoStatus ) Line\n\n    ! IO Status < 0: EOF condition\n    IF ( IoStatus < 0 ) THEN\n       EndOfFile = .TRUE.\n       RETURN\n    ENDIF\n\n    ! If desired, call StrSqueeze to strip leading and trailing blanks\n    IF ( PRESENT( Squeeze ) ) THEN\n       IF ( Squeeze ) THEN\n          CALL StrSqueeze( Line )\n       ENDIF\n    ENDIF\n\n  END FUNCTION ReadOneLine\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CleanText\n!\n! !DESCRIPTION: Strips commas, apostrophes, spaces, and tabs from a string.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION CleanText( Str ) RESULT( CleanStr )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: Str        ! Original string\n!\n! !RETURN VALUE\n!\n    CHARACTER(LEN=255)           :: CleanStr   ! Cleaned-up string\n!\n! !REMARKS:\n!  Mostly used by routines in the History/ folder.\n!\n! !REVISION HISTORY:\n!  06 Jan 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Initialize\n    CleanStr = Str\n\n    ! Strip out non-printing characters (e.g. tabs)\n    CALL CStrip    ( CleanStr           )\n\n    ! Remove commas and quotes\n    CALL StrRepl   ( CleanStr, \",\", \" \" )\n    CALL StrRepl   ( CleanStr, \"'\", \" \" )\n\n    ! Remove leading and trailing spaces\n    CALL StrSqueeze( CleanStr           )\n\n  END FUNCTION CleanText\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: WordWrapPrint\n!\n! !DESCRIPTION: Prints a text string wrapped to a specified line width.\n!  Useful for displaying error and warning messages.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE WordWrapPrint( Text, LineWidth, Delimiter )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN) :: Text        ! Text to print\n    INTEGER,          INTENT(IN) :: LineWidth   ! Width (characters) of lines\n    CHARACTER(LEN=1), OPTIONAL   :: Delimiter   ! Delimiter between words\n!\n! !REMARKS:\n!  The default DELIMITER is the space (\" \") character.\n!\n! !REVISION HISTORY:\n!  20 Dec 2015 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER          :: C, S, B, Matches, Length\n\n    ! Arrays\n    INTEGER          :: BreakPts(100)\n    INTEGER          :: SpaceLoc(500)\n\n    ! Strings\n    CHARACTER(LEN=1) :: Delim\n\n    !=======================================================================\n    ! WordWrapPrint begins here!\n    !=======================================================================\n\n    ! SpaceLoc is the array of where delimiters (usually the \" \"\n    ! character) occur in the text, and S is its index.\n    S           = 1\n    SpaceLoc    = 0\n\n    ! BreakPts is the array of where line breaks occur\n    ! and B is its index.\n    BreakPts    = 0\n    B           = 1\n    BreakPts(B) = 1\n\n    ! Delimiter for separating words (will be the space character by default)\n    IF ( PRESENT( Delimiter ) ) THEN\n       Delim = Delimiter\n    ELSE\n       Delim = ' '\n    ENDIF\n\n    ! Find the Location of spaces in the text\n    CALL CntMat( Text, ' ', Matches, SpaceLoc )\n\n    ! Loop through the number of matches\n    DO\n\n       ! Move to the next delimiter location\n       S = S + 1\n\n       ! Compute the length of the line\n       Length = SpaceLoc(S) - BreakPts(B)\n\n       ! If the length of this segment is greater than the requested\n       ! line length, store the position of this line break\n       IF ( Length > LineWidth ) THEN\n          B           = B             + 1\n          BreakPts(B) = SpaceLoc(S-1) + 1\n       ENDIF\n\n       ! If we have exceeded the number of delimiters in the text, then set\n       ! the last breakpoint at the end of the text and exit the loop.\n       IF ( S > Matches ) THEN\n          B           = B + 1\n          BreakPts(B) = LEN_TRIM( Text ) + 1\n          EXIT\n       ENDIF\n\n    ENDDO\n\n    ! Print each line\n    DO C = 1, B-1\n       WRITE( 6, '(a)' ) Text( BreakPts(C):BreakPts(C+1)-1 )\n    ENDDO\n\n  END SUBROUTINE WordWrapPrint\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Unique\n!\n! !DESCRIPTION: Returns only the unique values in a vector of strings.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Unique( vec, vec_unique )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),              INTENT(IN)    :: vec(:)\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), ALLOCATABLE, INTENT(INOUT) :: vec_unique(:)\n!\n! !AUTHOR:\n!  Jacob Williams (jacob@degenerateconic.com)\n!  Source code at: http://degenerateconic.com/unique/\n!  Modified for string handling by Bob Yantosca\n!\n! !REVISION HISTORY:\n!  See the subsequent Git history with the gitk browser!\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    integer :: i,num\n    logical,dimension(size(vec)) :: mask\n\n    mask = .false.\n\n    ! Loop over all elements\n    do i = 1, SIZE( vec )\n\n       ! Assume that all valid array elements are located\n       ! contiguously  Exit upon the encountering the\n       ! first null character. (bmy, 7/23/19)\n       IF ( LEN_TRIM( vec(I) ) == 0 ) EXIT\n\n       !count the number of occurrences of this element:\n       num = count( vec(i)==vec )\n\n       if (num==1) then\n          !there is only one, flag it:\n          mask(i) = .true.\n       else\n          !flag this value only if it hasn't already been flagged:\n          if (.not. any(vec(i)==vec .and. mask) ) mask(i) = .true.\n       end if\n\n    end do\n\n    !return only flagged elements:\n    IF ( ALLOCATED(  vec_unique ) ) DEALLOCATE( vec_unique )\n    ALLOCATE( vec_unique(count(mask)) )\n    vec_unique = PACK( vec, mask )\n\n    !if you also need it sorted, then do so.\n    ! For example, with slatec routine:\n    !call ISORT (vec_unique, [0], size(vec_unique), 1)\n\n  END SUBROUTINE Unique\n!EOC\nEND MODULE CharPak_Mod\n"
  },
  {
    "path": "NcdfUtil/julday_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: julday_mod.F90\n!\n! !DESCRIPTION: Module JULDAY\\_MOD contains routines used to convert from\n!  month/day/year to Astronomical Julian Date and back again.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE JULDAY_MOD\n!\n! !USES:\n!\n  USE PRECISION_MOD    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: JULDAY\n  PUBLIC  :: CALDATE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: MINT\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: JulDay\n!\n! !DESCRIPTION: Function JULDAY returns the astronomical Julian day.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION JULDAY( YYYY, MM, DD ) RESULT( JULIANDAY )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: YYYY        ! Year (must be in 4-digit format!)\n    INTEGER, INTENT(IN) :: MM          ! Month (1-12)\n    REAL*8,  INTENT(IN) :: DD          ! Day of month (may be fractional!)\n!\n! !RETURN VALUE:\n!\n    REAL*8              :: JULIANDAY   ! Astronomical Julian Date\n!\n! !REMARKS:\n!  (1) Algorithm taken from \"Practical Astronomy With Your Calculator\",\n!       Third Edition, by Peter Duffett-Smith, Cambridge UP, 1992.\n!  (2) Requires the external function MINT.F.\n!  (3) JulDay will compute the correct Julian day for any BC or AD date.\n!  (4) For BC dates, subtract 1 from the year and append a minus sign.\n!       For example, 1 BC is 0, 2 BC is -1, etc.  This is necessary for\n!       the algorithm.\n!\n! !REVISION HISTORY:\n!  26 Nov 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER             :: YEAR1, MONTH1\n    REAL*8              :: X1, A, B, C, D\n    LOGICAL             :: ISGREGORIAN\n\n    !==================================================================\n    ! JULDAY begins here!\n    !\n    ! Follow algorithm from Peter Duffett-Smith (1992)\n    !==================================================================\n\n    ! Compute YEAR and MONTH1\n    IF ( ( MM == 1 ) .OR. ( MM == 2 ) ) THEN\n       YEAR1  = YYYY  - 1\n       MONTH1 = MM    + 12\n    ELSE\n       YEAR1  = YYYY\n       MONTH1 = MM\n    ENDIF\n\n    ! Compute the \"A\" term.\n    X1 = DBLE( YEAR1 ) / 100.0d0\n    A  = MINT( X1 )\n\n    ! The Gregorian calendar begins on 10 October 1582\n    ! Any dates prior to this will be in the Julian calendar\n    IF ( YYYY > 1582 ) THEN\n       ISGREGORIAN = .TRUE.\n    ELSE\n       IF ( ( YYYY   == 1582 )  .AND. &\n            ( MONTH1 >= 10   )  .AND. &\n            ( DD     >= 15.0 ) ) THEN\n          ISGREGORIAN = .TRUE.\n       ELSE\n          ISGREGORIAN = .FALSE.\n       ENDIF\n    ENDIF\n\n    ! Compute the \"B\" term according to Gregorian or Julian calendar\n    IF ( ISGREGORIAN ) THEN\n       B = 2.0d0 - A + MINT( A / 4.0d0 )\n    ELSE\n       B = 0.0d0\n    ENDIF\n\n    ! Compute the \"C\" term for BC dates (YEAR1 <= 0 )\n    ! or AD dates (YEAR1 > 0)\n    IF ( YEAR1 < 0 ) THEN\n       X1 = ( 365.25d0 * YEAR1 ) - 0.75d0\n       C  = MINT( X1 )\n    ELSE\n       X1 = 365.25d0 * YEAR1\n       C  = MINT( X1 )\n    ENDIF\n\n    ! Compute the \"D\" term\n    X1 = 30.6001d0 * DBLE( MONTH1 + 1 )\n    D  = MINT( X1 )\n\n    ! Add the terms to get the Julian Day number\n    JULIANDAY = B + C + D + DD + 1720994.5d0\n\n  END FUNCTION JULDAY\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Mint\n!\n! !DESCRIPTION: Function MINT is the modified integer function.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION MINT( X ) RESULT ( VALUE )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8, INTENT(IN) :: X\n!\n! !RETURN VALUE:\n!\n    REAL*8             :: VALUE\n!\n! !REMARKS:\n!  The modified integer function is defined as follows:\n!\n!            { -INT( ABS( X ) )   for X < 0\n!     MINT = {\n!            {  INT( ABS( X ) )   for X >= 0\n!\n! !REVISION HISTORY:\n!  20 Nov 2001 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    IF ( X < 0d0 ) THEN\n       VALUE = -INT( ABS( X ) )\n    ELSE\n       VALUE =  INT( ABS( X ) )\n    ENDIF\n\n  END FUNCTION MINT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: CalDate\n!\n! !DESCRIPTION: Subroutine CALDATE converts an astronomical Julian day to\n!  the YYYYMMDD and HHMMSS format.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE CALDATE( JULIANDAY, YYYYMMDD, HHMMSS )\n!\n! !INPUT PARAMETERS:\n!\n    REAL*8,  INTENT(IN)  :: JULIANDAY  ! Astronomical Julian Date\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: YYYYMMDD   ! Date in YYYY/MM/DD format\n    INTEGER, INTENT(OUT) :: HHMMSS     ! Time in hh:mm:ss format\n!\n! !REMARKS:\n!   Algorithm taken from \"Practical Astronomy With Your Calculator\",\n!   Third Edition, by Peter Duffett-Smith, Cambridge UP, 1992.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    REAL*4               :: HH, MM, SS\n    REAL*8               :: A, B, C, D, DAY, E, F\n    REAL*8               :: FDAY, G, I, J, JD, M, Y\n\n    !=================================================================\n    ! CALDATE begins here!\n    ! See \"Practical astronomy with your calculator\", Peter Duffett-\n    ! Smith 1992, for an explanation of the following algorithm.\n    !=================================================================\n    JD = JULIANDAY + 0.5d0\n    I  = INT( JD )\n    F  = JD - INT( I )\n\n    IF ( I > 2299160d0 ) THEN\n       A = INT( ( I - 1867216.25d0 ) / 36524.25d0 )\n       B = I + 1 + A - INT( A / 4 )\n    ELSE\n       B = I\n    ENDIF\n\n    C = B + 1524d0\n\n    D = INT( ( C - 122.1d0 ) / 365.25d0 )\n\n    E = INT( 365.25d0 * D )\n\n    G = INT( ( C - E ) / 30.6001d0 )\n\n    ! DAY is the day number\n    DAY  = C - E + F - INT( 30.6001d0 * G )\n\n    ! FDAY is the fractional day number\n    FDAY = DAY - INT( DAY )\n\n    ! M is the month number\n    IF ( G < 13.5d0 ) THEN\n       M = G - 1d0\n    ELSE\n       M = G - 13d0\n    ENDIF\n\n    ! Y is the year number\n    IF ( M > 2.5d0 ) THEN\n       Y = D - 4716d0\n    ELSE\n       Y = D - 4715d0\n    ENDIF\n\n    ! Year-month-day value\n    YYYYMMDD = ( INT( Y ) * 10000 ) + ( INT( M ) * 100 ) + INT( DAY )\n\n    ! Hour-minute-second value\n    ! NOTE: HH, MM, SS are REAL*4 to avoid numerical roundoff errors\n    HH     = FDAY * 24d0\n    MM     = ( HH - INT( HH ) ) * 60d0\n    SS     = ( MM - INT( MM ) ) * 60d0\n    !------------------------------------------------------------------\n    ! NOTE: Some times (like 40min = 0.6666 hrs) will cause a roundoff\n    ! error that will make the minutes eg. 39.9999 instead of 40.\n    ! For now put in a kludge to rectify this situation.\n    IF ( INT(SS) == 59 ) THEN\n       SS = 0.0e0\n       MM = NINT( MM )\n    ENDIF\n    !---------------------------------------------------------------\n    HHMMSS = ( INT( HH ) * 10000 ) + ( INT( MM ) * 100 ) + INT( SS )\n\n  END SUBROUTINE CALDATE\n!EOC\nEND MODULE JULDAY_MOD\n"
  },
  {
    "path": "NcdfUtil/m_do_err_out.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_do_err_out.F90\n!\n! !INTERFACE:\n!\nmodule m_Do_Err_Out\n!\n  implicit none\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  public  Do_Err_Out\n!\n! !DESCRIPTION: Provides a routine to print an error message and exit the code.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Do_Err_Out\n!\n! !INTERFACE:\n!\n  subroutine Do_Err_Out  &\n       (err_msg, err_do_stop, err_num_ints, err_int1, err_int2,  &\n       err_num_reals, err_real1, err_real2)\n!\n    implicit none\n!\n! !INPUT PARAMETERS:\n!!     err_msg       : error message to be printed out\n!!     err_do_stop   : do stop on error?\n!!     err_num_ints  : number of integers to be printed out (0, 1, or 2)\n!!     err_int1      : integer 1 to print out\n!!     err_int2      : integer 2 to print out\n!!     err_num_reals : number of reals to be printed out (0, 1, or 2)\n!!     err_real1     : real 1 to print out\n!!     err_real2     : real 2 to print out\n    character (len=*), intent(in) :: err_msg\n    logical          , intent(in) :: err_do_stop\n    integer          , intent(in) :: err_num_ints\n    integer          , intent(in) :: err_int1\n    integer          , intent(in) :: err_int2\n    integer          , intent(in) :: err_num_reals\n    real*8           , intent(in) :: err_real1\n    real*8           , intent(in) :: err_real2\n!\n! !DESCRIPTION: Outputs error messages, and exits if requested.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REMARKS:\n!  NOTE: SHOULD PROPAGATE ERROR CODE TO MAIN PROGRAM LEVEL!\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n\n    ! Write separator\n    WRITE( 6, '(/,a,/)' ) REPEAT( '!', 79 )\n\n    ! Write error message\n    WRITE( 6,'(a)' ) TRIM( err_msg )\n\n    ! Write error codes\n    IF ( err_num_ints == 1 ) THEN\n       WRITE( 6,'(i10)'   ) err_int1\n    ELSE IF ( err_num_ints == 2 ) then\n       WRITE( 6, '(2i10)' ) err_int1, err_int2\n    ENDIF\n\n    IF ( err_num_reals == 1 ) THEN\n       WRITE( 6, '(f13.6  )' ) err_real1\n    ELSE IF ( err_num_reals == 2 ) THEN\n       WRITE( 6, '(2f13.6 )' ) err_real1, err_real2\n    ENDIF\n\n    ! Write separator\n    WRITE( 6, '(/,a,/)' ) REPEAT( '!', 79 )\n\n    ! Flush the buffer\n    CALL Flush( 6 )\n\n    ! Stop with error (if requested)\n    ! NOTE: We should pass back the error code to the main routine\n    IF ( err_do_stop ) THEN\n        WRITE( 6, '(a,/)' ) 'Code stopped from DO_ERR_OUT '               // &\n                            '(in module NcdfUtil/m_do_err_out.F90) '\n        WRITE( 6, '(a)'   ) 'This is an error that was encountered '      // &\n                            'in one of the netCDF I/O modules,'\n        WRITE( 6, '(a)'   ) 'which indicates an error in writing to '     // &\n                            'or reading from a netCDF file!'\n\n        ! Write separator\n        WRITE( 6, '(/,a,/)' ) REPEAT( '!', 79 )\n\n        ! Flush stdout buffer\n        CALL Flush( 6 )\n\n        ! NOTE: Should not exit but pass error code up\n        ! work on this for a future version\n        CALL Exit( 999 )\n    ENDIF\n\n    RETURN\n\n  end subroutine Do_Err_Out\n!EOC\nend module m_Do_Err_Out\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_checks.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_checks.F90\n!\n! !INTERFACE:\n!\nmodule m_netcdf_io_checks\n!\n  implicit none\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  public  Ncdoes_Udim_Exist\n  public  Ncdoes_Var_Exist\n  public  Ncdoes_Attr_Exist\n!\n! !DESCRIPTION: Routines to check if a netCDF file contains a specified\n!  variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !FUNCTION: Ncdoes_Udim_Exist\n!\n! !INTERFACE:\n!\n  function Ncdoes_Udim_Exist (ncid)\n!\n    use netCDF\n!\n! !INPUT PARAMETERS:\n!!  ncid : netCDF file id to check\n    integer, intent (in)   :: ncid\n!\n! !DESCRIPTION: Checks a given netCDF file to see if it contains an\n!  unlimited dimension.\n!\\\\\n!\\\\\n! !RETURN VALUE:\n    logical :: Ncdoes_Udim_Exist\n!\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    integer :: ierr, udim_id\n\n    Ncdoes_Udim_Exist = .false.\n    ierr = NF90_Inquire(ncid, unlimitedDimId=udim_id)\n    IF ( ierr /= NF90_NOERR ) Ncdoes_Udim_Exist = .true.\n\n  end function Ncdoes_Udim_Exist\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !FUNCTION: Ncdoes_Var_Exist\n!\n! !INTERFACE:\n!\n  function Ncdoes_Var_Exist (ncid, varname)\n!\n    use netCDF\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id       to check\n!!  varname : netCDF variable name to check\n    integer,           intent (in)   :: ncid\n    character (len=*), intent (in)   :: varname\n!\n! !DESCRIPTION: Checks a given netCDF file to see if a given netCDF variable\n!  exists in it.\n!\\\\\n!\\\\\n! !RETURN VALUE:\n    logical :: Ncdoes_Var_Exist\n!\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    integer :: ierr\n    integer :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n    Ncdoes_Var_Exist = .false.\n    if (ierr == NF90_NOERR) Ncdoes_Var_Exist = .true.\n\n  end function Ncdoes_Var_Exist\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !FUNCTION: Ncdoes_Attr_Exist\n!\n! !INTERFACE:\n!\n  function Ncdoes_Attr_Exist(ncid, varname, attname, attType)\n!\n    use netCDF\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id       to check\n!!  varname : netCDF variable name to check\n!!  attname : netCDF attribute name to check\n    integer,           intent (in)   :: ncid\n    character (len=*), intent (in)   :: varname\n    character (len=*), intent (in)   :: attname\n!\n! !OUTPUT PARAMETERS:\n!\n!! attType  : Attribute type.  This value is will be set to one of the\n!! following: NF_BYTE, NF_CHAR, NF_SHORT, NF_INT, NF_FLOAT, or NF_DOUBLE.\n    INTEGER,           INTENT(OUT)   :: attType\n!\n! !DESCRIPTION: Checks a given netCDF file to see if a given netCDF variable\n!  exists in it.\n!\\\\\n!\\\\\n! !RETURN VALUE:\n    logical :: Ncdoes_Attr_Exist\n!\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    INTEGER :: ierr, varId, attLen, attNum\n\n    ! Init\n    Ncdoes_Attr_Exist = .false.\n    attType           = -1\n\n    ! First check the variable\n    ierr = NF90_Inq_Varid (ncid, varname, varid)\n\n    ! Check the attribute if variable was found\n    IF ( ierr == NF90_NOERR ) THEN\n       ierr = NF90_Inquire_Attribute( ncId,    varId,  attName,  &\n                                      attType, attLen, attNum   )\n       IF ( ierr == NF90_NOERR ) THEN\n          NcDoes_Attr_Exist = .TRUE.\n       ENDIF\n    ENDIF\n\n    return\n\n  end function Ncdoes_Attr_Exist\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !FUNCTION: Ncdoes_Dim_Exist\n!\n! !INTERFACE:\n!\n  function Ncdoes_Dim_Exist (ncid, dimname )\n!\n    use netCDF\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id        to check\n!!  dimname : netCDF dimenison name to check\n    integer,           intent (in)   :: ncid\n    character (len=*), intent (in)   :: dimname\n!\n! !DESCRIPTION: Checks a given netCDF file to see if a given netCDF variable\n!  exists in it.\n!\\\\\n!\\\\\n! !RETURN VALUE:\n    logical :: Ncdoes_Dim_Exist\n!\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    integer :: ierr\n    integer :: dimid\n\n    ! First check the variable\n    ierr = NF90_Inq_Dimid(ncid, dimname, dimid)\n\n    ! Check the attribute if variable was found\n    Ncdoes_Dim_Exist = .false.\n    if (ierr == NF90_NOERR) Ncdoes_Dim_Exist = .true.\n\n    return\n\n  end function Ncdoes_Dim_Exist\n!EOC\nend module m_netcdf_io_checks\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_close.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE:  m_netcdf_io_close.F90\n!\n! !INTERFACE:\n!\nmodule m_netcdf_io_close\n!\n  implicit none\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  public  Nccl\n  public  Nccl_Noerr\n!\n! !DESCRIPTION: Routines to close a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nccl\n!\n! !INTERFACE:\n!\n  subroutine Nccl (ncid)\n!\n! !USES:\n!\n    use m_do_err_out\n!\n    implicit none\n!\n    include \"netcdf.inc\"\n!\n! !INPUT PARAMETERS:\n!!  ncid : netCDF file id\n    integer, intent (in)   :: ncid\n!\n! !DESCRIPTION: Closes a netCDF file with file id ncid.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr = Nf_Close (ncid)\n\n    if (ierr /= NF_NOERR) then\n       err_msg = 'In Nccl:  ' // Nf_Strerror (ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    return\n\n  end subroutine Nccl\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nccl_Noerr\n!\n! !INTERFACE:\n!\n  subroutine Nccl_Noerr (ncid)\n!\n    implicit none\n!\n    include \"netcdf.inc\"\n!\n! !INPUT PARAMETERS:\n!!  ncid : netCDF file id\n    integer, intent (in)   :: ncid\n!\n! !DESCRIPTION: Closes a netCDF file (with file id ncid) if it is open and\n!  suppresses Ncclos error messages/exit if it is not.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    integer             :: ierr\n!\n    ierr = Nf_Close (ncid)\n\n    return\n\n  end subroutine Nccl_Noerr\n!EOC\nend module m_netcdf_io_close\n\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_create.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_create.F90\n!\n! !INTERFACE:\n!\nmodule m_netcdf_io_create\n!\n  implicit none\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  public  Nccr_Wr\n  public  Ncdo_Sync\n!\n! !DESCRIPTION: Routines for creating and syncronizing netCDF files.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nccr_Wr\n!\n! !INTERFACE:\n!\n  subroutine Nccr_Wr (ncid, filname, WRITE_NC4)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!   ncid    : opened netCDF file id\n!   filname : name of netCDF file to open for writing\n    integer          , intent(INOUT) :: ncid\n    character (len=*), intent(IN)    :: filname\n    LOGICAL, OPTIONAL, INTENT(IN)    :: WRITE_NC4\n!\n! !DESCRIPTION: Creates a netCDF file for writing and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REMARKS:\n!  If the netCDF4 library is used, then the NF90_CLOBBER flag will write\n!  a classic (i.e. netCDF3) file.  Use OR(NF_NETCDF4,NF_CLASSIC_MODEL) to\n!  create netCDF-4 file that supports compression and uses \"classic\"\n!  netcdf data model (no groups, no user-defined types)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=128) :: err_msg\n    integer             :: ierr\n    INTEGER             :: mode\n    LOGICAL             :: TMP_NC4\n!\n    ! Save the value of the optional WRITE_NC4 variable in\n    ! a local shadow variable (bmy, 11/7/11)\n    IF ( PRESENT( WRITE_NC4 ) ) THEN\n       TMP_NC4 = WRITE_NC4\n    ELSE\n       TMP_NC4 = .FALSE.\n    ENDIF\n\n    IF ( TMP_NC4 ) THEN\n#ifdef NC_HAS_COMPRESSION )\n       mode = IOR( NF90_NETCDF4, NF90_CLASSIC_MODEL )       ! netCDF4 file\n       ierr = NF90_Create(filname, mode, ncid)              !  w/ compression\n#else\n       ierr = NF90_Create(filname, NF90_64BIT_OFFSET, ncid) ! netCDF4 file\n                                                            !  w/o compression\n#endif\n    ELSE\n       ierr = NF90_Create(filname, NF90_CLOBBER, ncid)      ! netCDF3 file\n    ENDIF\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Nccr_Wr, cannot create:  ' // Trim (filname)\n       call Do_Err_Out (err_msg, .true., 0, 0, 0, 0 , 0.0d0, 0.0d0)\n    end if\n\n    return\n\n  end subroutine Nccr_Wr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncdo_Sync\n!\n! !INTERFACE:\n!\n  subroutine Ncdo_Sync (ncid)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid : netCDF file id\n    integer, intent(in)   :: ncid\n!\n! !DESCRIPTION: Synchronizes a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=128) :: err_msg\n    integer             :: ierr\n!\n    ierr = NF90_Sync (ncid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncdo_Sync:  ' // NF90_Strerror (ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncdo_Sync\n!EOC\nend module m_netcdf_io_create\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_define.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_define.F90\n!\n! !INTERFACE:\n!\nMODULE m_netcdf_io_define\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: NcDef_Dimension\n  PUBLIC :: NcDef_Variable\n  PUBLIC :: NcSetFill\n  PUBLIC :: NcEnd_Def\n  PUBLIC :: NcBegin_Def\n\n  PUBLIC :: NcDef_glob_attributes\n  INTERFACE NcDef_glob_attributes\n     MODULE PROCEDURE NcDef_glob_attributes_c\n     MODULE PROCEDURE NcDef_glob_attributes_i\n     MODULE PROCEDURE NcDef_glob_attributes_r4\n     MODULE PROCEDURE NcDef_glob_attributes_r8\n     MODULE PROCEDURE NcDef_glob_attributes_i_arr\n     MODULE PROCEDURE NcDef_glob_attributes_r4_arr\n     MODULE PROCEDURE NcDef_glob_attributes_r8_arr\n  END INTERFACE NcDef_glob_attributes\n\n  PUBLIC :: NcDef_var_attributes\n  INTERFACE NcDef_var_attributes\n     MODULE PROCEDURE NcDef_var_attributes_c\n     MODULE PROCEDURE NcDef_var_attributes_i\n     MODULE PROCEDURE NcDef_var_attributes_r4\n     MODULE PROCEDURE NcDef_var_attributes_r8\n     MODULE PROCEDURE NcDef_var_attributes_i_arr\n     MODULE PROCEDURE NcDef_var_attributes_r4_arr\n     MODULE PROCEDURE NcDef_var_attributes_r8_arr\n  END INTERFACE NcDef_var_attributes\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: NcDef_glob_attributes_c\n  PRIVATE :: NcDef_glob_attributes_i\n  PRIVATE :: NcDef_glob_attributes_r4\n  PRIVATE :: NcDef_glob_attributes_r8\n  PRIVATE :: NcDef_glob_attributes_i_arr\n  PRIVATE :: NcDef_glob_attributes_r4_arr\n  PRIVATE :: NcDef_glob_attributes_r8_arr\n  PRIVATE :: NcDef_var_attributes_c\n  PRIVATE :: NcDef_var_attributes_i\n  PRIVATE :: NcDef_var_attributes_r4\n  PRIVATE :: NcDef_var_attributes_r8\n  PRIVATE :: NcDef_var_attributes_i_arr\n  PRIVATE :: NcDef_var_attributes_r4_arr\n  PRIVATE :: NcDef_var_attributes_r8_arr\n!\n! !DESCRIPTION: Provides netCDF utility routines to define dimensions,\n!  variables and attributes.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_dimension\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_dimension(ncid,name,len,id,unlimited)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid  : netCDF file id\n!!  name  : dimension name\n!!  len   : dimension number\n    CHARACTER (LEN=*), INTENT(IN)  :: name\n    INTEGER,           INTENT(IN)  :: ncid, len\n    LOGICAL, OPTIONAL, INTENT(IN)  :: unlimited\n!\n! !OUTPUT PARAMETERS:\n!!  id    : dimension id\n    INTEGER,           INTENT(OUT) :: id\n\n    INTEGER  :: len0\n!\n! !DESCRIPTION: Defines dimension.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou and Maharaj Bhat\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (len=512) :: err_msg\n    INTEGER :: ierr\n\n    ! If unlimited variable is present and true,\n    ! then make this dimension unlimited\n    len0 = len\n    if (present(unlimited)) then\n       if (unlimited) then\n          len0 = NF90_UNLIMITED\n       endif\n    endif\n\n    ierr = NF90_Def_Dim(ncid, name, len0, id)\n\n    IF (ierr.ne.NF90_NOERR) then\n       err_msg = 'NF90_Def_Dim: can not define dimension : '// Trim (name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_dimension\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_variable\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_variable(ncid, name, xtype, ndims, dims, var_id, compress)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n!!  ncid   : netCDF file id\n!!  name   : name of the variable\n!!  type   : type of the variable\n!!           (NF90_FLOAT,  NF90_CHAR, NF90_INT,\n!!            NF90_DOUBLE, NF90_BYTE, NF90_SHORT)\n!!  ndims  : number of dimensions of the variable\n!!  dims   : netCDF dimension id of the variable\n    CHARACTER (LEN=*), INTENT(IN)  :: name\n    INTEGER,           INTENT(IN)  :: ncid, ndims\n    INTEGER,           INTENT(IN)  :: dims(ndims)\n    INTEGER,           INTENT(IN)  :: xtype\n    LOGICAL, OPTIONAL, INTENT(IN)  :: compress\n!\n! !OUTPUT PARAMETERS:\n!\n!!  varid  : netCDF variable id returned by NF90_DEF_VAR\n    INTEGER,           INTENT(OUT) :: var_id\n!\n! !DESCRIPTION: Defines a netCDF variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou and Maharaj Bhat\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    logical            :: doStop\n\n#ifdef NC_HAS_COMPRESSION\n    !=====================================================================\n    ! Create a compressed (deflated) netCDF variable\n    !\n    ! NOTE: We need to block this out with an #ifdef because some\n    ! netCDF installations might lack the deflation capability,\n    ! which would cause a compile-time error. (bmy, 3/1/17)\n    !========================================================================\n    IF ( PRESENT( Compress ) ) then\n\n       !------------------------------------------------------------------\n       ! If COMPRESS is passed as an optional argument, and is TRUE,\n       ! then define the variable with deflate_level=1.  Higher values\n       ! of deflate_level yield minimal additiional benefit.\n       !\n       ! ALSO NOTE: Newer versions of netCDF balk when you try to compress\n       ! a scalar variable.  This generates an annoying warning message.\n       ! To avoid this, only compress array variables. (bmy, 11/30/20)\n       !-------------------------------------------------------------------\n       IF ( Compress .and. ndims > 0 ) THEN\n\n          ! Create deflated variable\n          ierr = NF90_Def_Var( ncid, name, xtype, dims, var_id,              &\n                               shuffle=.TRUE., deflate_level=1 )\n\n          ! Check for errors.\n          ! No message will be generated if the error is simply that the\n          ! file is not netCDF-4 (as netCDF-3 doesn't support compression)\n          IF ( (ierr.ne.NF90_NOERR) .and. (ierr.ne.NF90_ENOTNC4)) THEN\n\n             ! Errors enabling compression will not halt the program\n             doStop = .False.\n\n             ! Print error\n             err_msg = 'NF90_Def_Var: can not create compressed variable : '//&\n                        Trim(name)\n             CALL Do_Err_Out (err_msg, doStop, 0, 0, 0, 0, 0.0d0, 0.0d0)\n          END IF\n\n          ! Return successfully\n          RETURN\n       ENDIF\n    ENDIF\n#endif\n\n    !========================================================================\n    ! Create an uncompressed netCDF variable if:\n    ! (1) COMPRESS is not passed as an optional argument\n    ! (2) COMPRESS is passed as an optional argument but is FALSE\n    ! (3) The variable is a scalar (ndims == 0)\n    !========================================================================\n    ierr = NF90_Def_Var( ncid, name, xtype, dims, var_id )\n    IF ( ierr /= NF90_NOERR ) THEN\n       err_msg = 'NF90_Def_Var_Deflate: can not create variable : '// &\n            Trim (name)\n       CALL Do_Err_Out (err_msg, doStop, 0, 0, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n  END SUBROUTINE NcDef_variable\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_c(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  var_id  : netCDF variable id\n!!  att_name: attribute name\n!!  att_val : attribute value\n    CHARACTER (LEN=*), INTENT(IN) :: att_name, att_val\n    INTEGER,           INTENT(IN) :: ncid,     var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: CHARACTER.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr = NF90_Put_Att(ncid, var_id, att_name, att_val)\n\n    IF (ierr /= NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_c: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_c\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes_i\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_i(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  var_id  : netCDF variable id\n!!  att_name: attribute name\n!!  att_val : attribute value\n    INTEGER,           INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid, var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: INTEGER.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: mylen, ierr\n!\n    ierr  = NF90_Put_Att( ncid, var_id, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_i: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_i\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes_r4\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_r4(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  var_id  : netCDF variable id\n!!  att_name: attribute name\n!!  att_val : attribute value\n    REAL*4,            INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid, var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: REAL*4.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, var_id, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_r4: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes_r8\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_r8(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  var_id  : netCDF variable id\n!!  att_name: attribute name\n!!  att_val : attribute value\n    REAL*8,            INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid, var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: REAL*4.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, var_id, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_r8: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes_i_arr\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_i_arr(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  var_id  : netCDF variable id\n!!  att_name: attribute name\n!!  att_val : attribute value\n    INTEGER,           INTENT(IN) :: att_val(:)\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid, var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: INTEGER vector.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, var_id, att_name, att_val )\n\n    iF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_i_arr: can not define attribute : ' &\n            // TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_i_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes_r4_arr\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_r4_arr(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  var_id  : netCDF variable id\n!!  att_name: attribute name\n!!  att_val : attribute value\n    REAL*4,            INTENT(IN) :: att_val(:)\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid, var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: REAL*4 vector\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, var_id, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_r4_arr: can not define attribute : ' &\n                    // TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_r4_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_var_attributes_r8_arr\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_var_attributes_r8_arr(ncid, var_id, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!    ncid    : netCDF file id\n!!    var_id  : netCDF variable id\n!!    att_name: attribute name\n!!    att_val : attribute value\n    REAL*8,            INTENT(IN) :: att_val(:)\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid, var_id\n!\n! !DESCRIPTION: Defines a netCDF variable attribute of type: REAL*8 vector\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou and Maharaj Bhat\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, var_id, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_var_attributes_r4_arr: can not define attribute : '&\n                     // Trim (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_var_attributes_r8_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_c\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_c(ncid, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  att_name: attribute name\n!!  att_val : attribute value\n!\n    CHARACTER (LEN=*), INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Defines global attributes of type: CHARACTER\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr = NF90_Put_Att(ncid, NF90_GLOBAL, att_name, att_val)\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_c: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_c\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_i\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_i(ncid, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!    ncid    : netCDF file id\n!!    att_name: attribute name\n!!    att_val : attribute value\n!\n    INTEGER,           INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: NCID\n!\n! !DESCRIPTION: Defines global attributes of type: INTEGER\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, NF90_GLOBAL, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_i: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_i\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_r4\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_r4(ncid, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  att_name: attribute name\n!!  att_val : attribute value\n!\n    REAL*4,            INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Defines global attributes of type: REAL*4\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, NF90_GLOBAL, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_r4: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_r4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_r8\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_r8(ncid, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!    ncid    : netCDF file id\n!!    att_name: attribute name\n!!    att_val : attribute value\n!\n    REAL*8,            INTENT(IN) :: att_val\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Defines global attributes of type: REAL*4\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, NF90_GLOBAL, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_r8: can not define attribute : ' // &\n            TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_r8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_i_arr\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_i_arr(ncid, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!    ncid    : netCDF file id\n!!    att_name: attribute name\n!!    att_val : attribute value\n!\n    INTEGER,           INTENT(IN) :: att_val(:)\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Defines global attributes of type: INTEGER vector\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, NF90_GLOBAL, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_i_arr: can not define attribute : ' &\n            // Trim (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_i_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_r4_arr\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_r4_arr(ncid,att_name,att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  att_name: attribute name\n!!  att_val : attribute value\n!\n    REAL*4,            INTENT(IN) :: att_val(:)\n    CHARACTER (LEN=*), INTENT(IN) :: att_name\n    INTEGER,           INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Defines global attributes of type: REAL*4 vector\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, NF90_GLOBAL, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_r4_arr: can not define attribute : ' &\n              // TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_r4_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcDef_glob_attributes_r8_arr\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcDef_glob_attributes_r8_arr(ncid, att_name, att_val)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid    : netCDF file id\n!!  att_name: attribute name\n!!  att_val : attribute value\n!\n    REAL*8,            intent(in) :: att_val(:)\n    character (len=*), intent(in) :: att_name\n    integer,           intent(in) :: ncid\n!\n! !DESCRIPTION: Defines global attributes of type: REAL*8 vector\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca( based on code by Jules Kouatchou)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr  = NF90_Put_Att( ncid, NF90_GLOBAL, att_name, att_val )\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NcDef_glob_attributes_r8_arr: can not define attribute : ' &\n            // TRIM (att_name)\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcDef_glob_attributes_r8_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcSetFill\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcSetFill(ncid, ifill, omode)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN   ) :: ncid, ifill\n    INTEGER, INTENT(INOUT) :: omode\n!\n! !DESCRIPTION: Sets fill method.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr = NF90_Set_Fill(ncid, ifill, omode)\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NF90_Set_FIll: Error in omode  '\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcSetFill\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcEnd_Def\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcEnd_Def(ncid)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Ends definitions of variables and their attributes.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER (LEN=512) :: err_msg\n    INTEGER             :: ierr\n!\n    ierr = NF90_Enddef(ncid)\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NF90_EndDef: Error in closing netCDF define mode!'\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcEnd_def\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcBegin_Def\n!\n! !INTERFACE:\n!\n  SUBROUTINE NcBegin_Def(ncid)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: ncid\n!\n! !DESCRIPTION: Opens (or re-opens) netCDF define mode, where variables\n!  and attributes can be defined.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr = NF90_Redef (ncid)\n\n    IF (ierr.ne.NF90_NOERR) THEN\n       err_msg = 'NF90_ReDef: Error in opening netCDF define mode!'\n       CALL Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    END IF\n\n  END SUBROUTINE NcBegin_Def\n!EOC\nEND MODULE m_netcdf_io_define\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_get_dimlen.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_get_dimlen\n!\n! !INTERFACE:\n!\nMODULE m_netcdf_io_get_dimlen\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: Ncget_Dimlen\n  PUBLIC :: Ncget_Unlim_Dimlen\n!\n! !DESCRIPTION: Provides routines to obtain the length of a given dimension.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncget_Dimlen\n!\n! !INTERFACE:\n!\n  SUBROUTINE Ncget_Dimlen(ncid, dim_name, dim_len)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  dim_name : netCDF dimension name\n!!  ncid     : netCDF file id\n    character (len=*), intent(in) :: dim_name\n    integer,           intent(in) :: ncid\n!\n! !OUTPUT PARAMETERS:\n!!  dim_len: netCDF dimension length\n    integer,           intent(out)   :: dim_len\n!\n! !DESCRIPTION: Returns the length of a given netCDF dimension.\n!               If err\\_stop is set to FALSE, -1 is returned if\n!               the given dimension cannot be found. Otherwise,\n!               an error is prompted and the program stops.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER(len=512) :: err_msg\n    INTEGER            :: dimid\n    INTEGER            :: ierr\n\n    ierr = NF90_Inq_Dimid(ncid, dim_name, dimid)\n\n    IF (ierr /= NF90_NOERR ) THEN\n       err_msg = 'In Ncget_Dimlen #1:  ' // TRIM(dim_name) // &\n                 ', ' // NF90_Strerror (ierr)\n       CALL Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ierr = NF90_Inquire_Dimension(ncid, dimid, len=dim_len)\n\n    IF (ierr /= NF90_NOERR) THEN\n       err_msg = 'In Ncget_Dimlen #2:  ' // NF90_Strerror (ierr)\n       CALL Do_Err_Out (err_msg, .true., 2, ncid, dimid, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n  END SUBROUTINE Ncget_Dimlen\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncget_Unlim_Dimlen\n!\n! !INTERFACE:\n!\n  SUBROUTINE Ncget_Unlim_Dimlen (ncid, udim_len)\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id\n    INTEGER, INTENT(IN)  :: ncid\n!\n! !OUTPUT PARAMETERS:\n!!  udim_len : netCDF unlimited dimension length\n    INTEGER, INTENT(OUT) :: udim_len\n!\n! !DESCRIPTION: Returns the length of the unlimited netCDF dimension.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    CHARACTER(len=512) :: err_msg\n    INTEGER            :: ierr, udim_id\n\n    udim_len = -1\n    ierr = NF90_Inquire(ncid, unlimitedDimId=udim_id)\n    IF ( ierr /= NF90_NOERR ) THEN\n       ierr = NF90_Inquire_Dimension( ncid, udim_id, len=udim_len )\n    ENDIF\n\n  END SUBROUTINE Ncget_Unlim_Dimlen\n!EOC\nEND MODULE m_netcdf_io_get_dimlen\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_handle_err.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE:  m_netcdf_io_handle_err.F90\n!\n! !INTERFACE:\n!\nmodule m_netcdf_io_handle_err\n!\n  implicit none\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  public  Nchandle_Err\n!\n! !DESCRIPTION: Provides a routine to handle error messages.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nchandle_Err\n!\n! !INTERFACE:\n!\n  subroutine Nchandle_Err (ierr)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!   ierr : netCDF error number\n    integer, intent (in)   :: ierr\n!\n! !DESCRIPTION: Handles netCDF errors. Prints out a message and then exit.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n!\n    err_msg = 'In Nchandle_Err:  ' // NF90_Strerror (ierr)\n\n    call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n\n    return\n\n  end subroutine Nchandle_Err\n!EOC\nend module m_netcdf_io_handle_err\n\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_open.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_open.F90\n!\n! !INTERFACE:\n!\nmodule m_netcdf_io_open\n!\n  implicit none\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  public  Ncop_Rd\n  public  Ncop_Wr\n!\n! !DESCRIPTION: Routines to open a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-----------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncop_Rd\n!\n! !INTERFACE:\n!\n  subroutine Ncop_Rd (ncid, filname)\n!\n! !USES:\n!\n    USE netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  filname : name of netCDF file to open for reading\n    character (len=*), intent (in)    :: filname\n!\n! !OUTPUT PARAMETERS:\n!!  ncid    : opened netCDF file id\n    integer          , intent (out)   :: ncid\n!\n! !DESCRIPTION: Opens a netCDF file for reading and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n!\n    ierr = Nf90_Open( filname, NF90_NOWRITE, ncid )\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncop_Rd, cannot open:  ' // Trim (filname)\n       call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncop_Rd\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncop_Wr\n!\n! !INTERFACE:\n!\n  subroutine Ncop_Wr (ncid, filname)\n!\n! !USES:\n!\n    USE netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  filname : name of netCDF file to open for reading\n    character (len=*), intent (in)    :: filname\n!\n! !OUTPUT PARAMETERS:\n!!  ncid    : opened netCDF file id\n    integer          , intent (out)   :: ncid\n!\n! !DESCRIPTION: Opens a netCDF file for reading/writing and does some\n!  error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n!\n    ierr = Nf90_Open (filname, NF90_WRITE, ncid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncop_Rd, cannot open:  ' // Trim (filname)\n       call Do_Err_Out (err_msg, .true., 0, 0, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    return\n\n  end subroutine Ncop_Wr\n!EOC\n!------------------------------------------------------------------------\nend module m_netcdf_io_open\n\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_read.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_read\n!\n! !INTERFACE:\n!\nMODULE m_netcdf_io_read\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  ! Public interface\n  PUBLIC :: NcRd\n\n  ! Private methods overloaded by public interface\n  ! (see below for info about these routines & the arguments they take)\n  INTERFACE NcRd\n     MODULE PROCEDURE Ncrd_Scal\n     MODULE PROCEDURE Ncrd_Scal_Int\n     MODULE PROCEDURE Ncrd_1d_R8\n     MODULE PROCEDURE Ncrd_1d_R4\n     MODULE PROCEDURE Ncrd_1d_Int\n     MODULE PROCEDURE Ncrd_1d_Char\n     MODULE PROCEDURE Ncrd_2d_R8\n     MODULE PROCEDURE Ncrd_2d_R4\n     MODULE PROCEDURE Ncrd_2d_Int\n     MODULE PROCEDURE Ncrd_2d_Char\n     MODULE PROCEDURE Ncrd_3d_R8\n     MODULE PROCEDURE Ncrd_3d_R4\n     MODULE PROCEDURE Ncrd_3d_Int\n     MODULE PROCEDURE Ncrd_4d_R8\n     MODULE PROCEDURE Ncrd_4d_R4\n     MODULE PROCEDURE Ncrd_4d_Int\n     MODULE PROCEDURE Ncrd_5d_R8\n     MODULE PROCEDURE Ncrd_5d_R4\n     MODULE PROCEDURE Ncrd_6d_R8\n     MODULE PROCEDURE Ncrd_6d_R4\n     MODULE PROCEDURE Ncrd_7d_R8\n     MODULE PROCEDURE Ncrd_7d_R4\n  END INTERFACE NcRd\n!\n! !DESCRIPTION: Routines for reading variables in a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_Scal\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_Scal(varrd_scal, ncid, varname)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid       : netCDF file id to read variable from\n!!  varname    : netCDF variable name\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_scal : variable to fill\n    real*8           , intent(out)  :: varrd_scal\n!\n! !DESCRIPTION: Reads in a netCDF scalar variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n    real*4              :: varrd_scal_tmp\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_Scal #1:  ' // Trim (varname) // &\n            ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_scal_tmp)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_Scal #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n    varrd_scal = varrd_scal_tmp\n\n  end subroutine Ncrd_Scal\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_Scal_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_Scal_Int(varrd_scali, ncid, varname)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid       : netCDF file id to read variable from\n!!  varname    : netCDF variable name\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_scali : integer variable to fill\n    integer          , intent(out)  :: varrd_scali\n!\n! !DESCRIPTION: Reads in a netCDF integer scalar variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_Scal_Int #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_scali)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_Scal_Int #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_Scal_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_1d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_1d_R8(varrd_1d, ncid, varname, strt1d, cnt1d, err_stop, stat)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varrd_1d where\n!!             the first of the data values will be read\n!!  cnt1d    : varrd_1d dimension\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt1d(1)\n    integer          , intent(in)   :: cnt1d (1)\n    logical, optional, intent(in)   :: err_stop\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_1d : array to fill\n    real*8           , intent(out)  :: varrd_1d(cnt1d(1))\n    integer, optional, intent(out)  :: stat\n!\n! !DESCRIPTION: Reads in a 1D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n    logical             :: dostop\n\n    ! set dostop flag\n    dostop = .true.\n    if ( present ( err_stop ) ) dostop = err_stop\n\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       if ( dostop ) then\n          err_msg = 'In Ncrd_1d_R8 #1:  ' // Trim (varname) // &\n               ', ' // NF90_Strerror(ierr)\n          call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n       else\n          varrd_1d(:) = -999d0\n          if ( present ( stat ) ) stat = 1\n          return\n       end if\n    end if\n\n    ierr =  NF90_Get_Var(ncid, varid, varrd_1d, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       if ( dostop ) then\n          err_msg = 'In Ncrd_1d_R8 #2:  ' // NF90_Strerror(ierr)\n          call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n       else\n          varrd_1d(:) = -999d0\n          if ( present ( stat ) ) stat = 2\n          return\n       endif\n    end if\n\n    ! set stat to 0 (= success)\n    if ( present ( stat ) ) stat = 0\n\n  end subroutine Ncrd_1d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_1d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_1d_R4(varrd_1d, ncid, varname, strt1d, cnt1d, err_stop, stat)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varrd_1d where\n!!             the first of the data values will be read\n!!  cnt1d    : varrd_1d dimension\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt1d(1)\n    integer          , intent(in)   :: cnt1d (1)\n    logical, optional, intent(in)   :: err_stop\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_1d : array to fill\n    real*4           , intent(out)  :: varrd_1d(cnt1d(1))\n    integer, optional, intent(out)  :: stat\n!\n! !DESCRIPTION: Reads in a 1D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n    logical             :: dostop\n\n    ! set dostop flag\n    dostop = .true.\n    if ( present ( err_stop ) ) dostop = err_stop\n\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       if ( dostop ) then\n          err_msg = 'In Ncrd_1d_R4 #1:  ' // Trim (varname) // &\n                     ', ' // NF90_Strerror(ierr)\n          call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n       else\n          varrd_1d(:) = -999.0\n          if ( present ( stat ) ) stat = 1\n          return\n       end if\n    end if\n\n    ierr =  NF90_Get_Var(ncid, varid, varrd_1d, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       if ( dostop ) then\n          err_msg = 'In Ncrd_1d_R4 #2:  ' // NF90_Strerror(ierr)\n          call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n       else\n          varrd_1d(:) = -999.0\n          if ( present ( stat ) ) stat = 2\n          return\n       endif\n    end if\n\n    ! set stat to 0 (= success)\n    if ( present ( stat ) ) stat = 0\n    return\n\n  end subroutine Ncrd_1d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_1d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_1d_Int(varrd_1di, ncid,     varname, strt1d, &\n                         cnt1d,     err_stop, stat)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varrd_1di where\n!!             the first of the data values will be read\n!!  cnt1d    : varrd_1di dimension\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt1d(1)\n    integer          , intent(in)   :: cnt1d (1)\n    logical, optional, intent(in)   :: err_stop\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_1di : intger array to fill\n    integer          , intent(out)  :: varrd_1di(cnt1d(1))\n    integer, optional, intent(out)  :: stat\n!\n! !DESCRIPTION: Reads in a 1D netCDF integer array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n    logical             :: dostop\n\n    ! set dostop flag\n    dostop = .true.\n    if ( present ( err_stop ) ) dostop = err_stop\n\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       if ( dostop ) then\n          err_msg = 'In Ncrd_1d_Int #1:  ' // Trim (varname) // &\n                    ', ' // NF90_Strerror(ierr)\n          call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n       else\n          varrd_1di(:) = -999\n          if ( present ( stat ) ) stat = 1\n          return\n       end if\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_1di, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       if ( dostop ) then\n          err_msg = 'In Ncrd_1d_Int #2:  ' // NF90_Strerror(ierr)\n          call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n       else\n          varrd_1di(:) = -999\n          if ( present ( stat ) ) stat = 2\n          return\n       endif\n    end if\n\n      ! set stat to 0 (= success)\n      if ( present ( stat ) ) stat = 0\n\n    return\n\n  end subroutine Ncrd_1d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_2d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_2d_R8(varrd_2d, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varrd_2d where\n!!               the first of the data values will be read\n!!  cnt2d    : varrd_2d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt2d(2)\n    integer          , intent(in)   :: cnt2d (2)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_2d : array to fill\n    real*8           , intent(out)  :: varrd_2d(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Reads in a 2D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_R8 #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_2d, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_R8 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_2d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_2d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_2d_R4(varrd_2d, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varrd_2d where\n!!             the first of the data values will be read\n!!  cnt2d    : varrd_2d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt2d(2)\n    integer          , intent(in)   :: cnt2d (2)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_2d : array to fill\n    real*4           , intent(out)  :: varrd_2d(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Reads in a 2D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_R4 #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_2d, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_2d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_2d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_2d_Int(varrd_2di, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varrd_2d where\n!!             the first of the data values will be read\n!!  cnt2d    : varrd_2di dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt2d(2)\n    integer          , intent(in)   :: cnt2d (2)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_2di : intger array to fill\n    integer          , intent(out)  :: varrd_2di(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Reads in a 2D netCDF integer array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_Int #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_2di, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_Int #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_2d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_3d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_3d_R8(varrd_3d, ncid, varname, strt3d, cnt3d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varrd_3d where\n!!               the first of the data values will be read\n!!  cnt3d    : varrd_3d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt3d(3)\n    integer          , intent(in)   :: cnt3d (3)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_3d : array to fill\n    real*8           , intent(out)  :: varrd_3d(cnt3d(1), cnt3d(2), &\n                                                cnt3d(3))\n!\n! !DESCRIPTION: Reads in a 3D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_R8 #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_3d, start=strt3d, count=cnt3d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_R8 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_3d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_3d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_3d_R4(varrd_3d, ncid, varname, strt3d, cnt3d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varrd_3d where\n!!             the first of the data values will be read\n!!  cnt3d    : varrd_3d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt3d(3)\n    integer          , intent(in)   :: cnt3d (3)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_3d : array to fill\n    real*4           , intent(out)  :: varrd_3d(cnt3d(1), cnt3d(2), &\n                                                cnt3d(3))\n!\n! !DESCRIPTION: Reads in a 3D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_R4 #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_3d, start=strt3d, count=cnt3d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_3d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_3d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_3d_Int(varrd_3di, ncid, varname, strt3d, cnt3d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varrd_3d where\n!!             the first of the data values will be read\n!!  cnt3d    : varrd_3di dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt3d(3)\n    integer          , intent(in)   :: cnt3d (3)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_3di : intger array to fill\n    integer          , intent(out)  :: varrd_3di(cnt3d(1), cnt3d(2), &\n                                                 cnt3d(3))\n!\n! !DESCRIPTION: Reads in a 3D netCDF integer array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_Int #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_3di, start=strt3d, count=cnt3d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_Int #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_3d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_4d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_4d_R8(varrd_4d, ncid, varname, strt4d, cnt4d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n    implicit none\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt4d   : vector specifying the index in varrd_4d where\n!!             the first of the data values will be read\n!!  cnt4d    : varrd_4d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt4d(4)\n    integer          , intent(in)   :: cnt4d (4)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_4d : array to fill\n    real*8           , intent(out)  :: varrd_4d(cnt4d(1), cnt4d(2), &\n                                                cnt4d(3), cnt4d(4))\n!\n! !DESCRIPTION: Reads in a 4D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_4d_R8 #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr =  NF90_Get_Var(ncid, varid, varrd_4d, start=strt4d, count=cnt4d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_4d_R8 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_4d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_4d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_4d_R4(varrd_4d, ncid, varname, strt4d, cnt4d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt4d   : vector specifying the index in varrd_4d where\n!!             the first of the data values will be read\n!!  cnt4d    : varrd_4d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt4d(4)\n    integer          , intent(in)   :: cnt4d (4)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_4d : array to fill\n    real*4           , intent(out)  :: varrd_4d(cnt4d(1), cnt4d(2), &\n                                                cnt4d(3), cnt4d(4))\n!\n! !DESCRIPTION: Reads in a 4D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_4d_R4 #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr =  NF90_Get_Var(ncid, varid, varrd_4d, start=strt4d, count=cnt4d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_4d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_4d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_4d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_4d_Int (varrd_4di, ncid, varname, strt4d, cnt4d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varrd_3d where\n!!             the first of the data values will be read\n!!  cnt3d    : varrd_3di dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt4d(4)\n    integer          , intent(in)   :: cnt4d (4)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_3di : intger array to fill\n    integer          , intent(out)  :: varrd_4di(cnt4d(1), cnt4d(2), &\n                                                 cnt4d(3), cnt4d(4))\n!\n! !DESCRIPTION: Reads in a 3D netCDF integer array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_Int #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_4di, start=strt4d, count=cnt4d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_3d_Int #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_4d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_5d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_5d_R8(varrd_5d, ncid, varname, strt5d, cnt5d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt5d   : vector specifying the index in varrd_5d where\n!!             the first of the data values will be read\n!!  cnt5d    : varrd_5d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt5d(5)\n    integer          , intent(in)   :: cnt5d (5)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_5d : array to fill\n    real*8         , intent(out)  :: varrd_5d(cnt5d(1), cnt5d(2), &\n                                              cnt5d(3), cnt5d(4), &\n                                              cnt5d(5))\n!\n! !DESCRIPTION: Reads in a 5D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n        err_msg = 'In Ncrd_5d_R8 #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n        call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n     end if\n\n     ierr = NF90_Get_Var(ncid, varid, varrd_5d, start=strt5d, count=cnt5d)\n\n     if (ierr /= NF90_NOERR) then\n        err_msg = 'In Ncrd_5d_R8 #2:  ' // NF90_Strerror(ierr)\n        call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n     end if\n\n  end subroutine Ncrd_5d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_5d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_5d_R4(varrd_5d, ncid, varname, strt5d, cnt5d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt5d   : vector specifying the index in varrd_5d where\n!!             the first of the data values will be read\n!!  cnt5d    : varrd_5d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt5d(5)\n    integer          , intent(in)   :: cnt5d (5)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_5d : array to fill\n    real*4          , intent(out)  :: varrd_5d(cnt5d(1), cnt5d(2), &\n                                                cnt5d(3), cnt5d(4), &\n                                                cnt5d(5))\n!\n! !DESCRIPTION: Reads in a 5D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_5d_R4 #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_5d, start=strt5d, count=cnt5d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_5d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_5d_R4\n!EOC\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_6d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_6d_R8(varrd_6d, ncid, varname, strt6d, cnt6d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt5d   : vector specifying the index in varrd_5d where\n!!               the first of the data values will be read\n!!  cnt5d    : varrd_5d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt6d(6)\n    integer          , intent(in)   :: cnt6d (6)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_5d : array to fill\n    real*8         , intent(out)  :: varrd_6d(cnt6d(1), cnt6d(2), &\n                                              cnt6d(3), cnt6d(4), &\n                                              cnt6d(5), cnt6d(6))\n!\n! !DESCRIPTION: Reads in a 5D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_6d_R8 #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_6d, start=strt6d, count=cnt6d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_6d_R8 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_6d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_6d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_6d_R4(varrd_6d, ncid, varname, strt6d, cnt6d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt5d   : vector specifying the index in varrd_5d where\n!!             the first of the data values will be read\n!!  cnt5d    : varrd_5d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt6d(6)\n    integer          , intent(in)   :: cnt6d (6)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_5d : array to fill\n    real*4          , intent(out)  :: varrd_6d(cnt6d(1), cnt6d(2), &\n                                               cnt6d(3), cnt6d(4), &\n                                               cnt6d(5), cnt6d(6))\n!\n! !DESCRIPTION: Reads in a 5D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if ( ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_6d_R4 #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_6d, start=strt6d, count=cnt6d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_6d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_6d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_7d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_7d_R8(varrd_7d, ncid, varname, strt7d, cnt7d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt7d   : vector specifying the index in varrd_7d where\n!!             the first of the data values will be read\n!!  cnt7d    : varrd_7d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt7d(7)\n    integer          , intent(in)   :: cnt7d (7)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_5d : array to fill\n    real*8           , intent(out)  :: varrd_7d(cnt7d(1), cnt7d(2), &\n                                                cnt7d(3), cnt7d(4), &\n                                                cnt7d(5), cnt7d(6), &\n                                                cnt7d(7))\n!\n! !DESCRIPTION: Reads in a 7D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_7d_R8 #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_7d, start=strt7d, count=cnt7d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_7d_R8 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_7d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_7d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_7d_R4(varrd_7d, ncid, varname, strt7d, cnt7d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt7d   : vector specifying the index in varrd_7d where\n!!             the first of the data values will be read\n!!  cnt7d    : varrd_7d dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt7d(7)\n    integer          , intent(in)   :: cnt7d (7)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_7d : array to fill\n    real*4          , intent(out)  :: varrd_7d(cnt7d(1), cnt7d(2), &\n                                               cnt7d(3), cnt7d(4), &\n                                               cnt7d(5), cnt7d(6), &\n                                               cnt7d(7))\n!\n! !DESCRIPTION: Reads in a 7D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_7d_R4 #1:  ' // Trim (varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_7d, start=strt7d, count=cnt7d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_7d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_7d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_1d_Char\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_1d_Char(varrd_1dc, ncid, varname, strt1d, cnt1d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varrd_1dc where\n!!             the first of the data values will be read\n!!  cnt1d    : varrd_1dc dimension\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt1d(1)\n    integer          , intent(in)   :: cnt1d (1)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_1dc : intger array to fill\n    character (len=1), intent(out)  :: varrd_1dc(cnt1d(1))\n!\n! !DESCRIPTION: Reads in a 1D netCDF character array and does some error\n!  checking.\n!\\\\\n!\\\\ !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_1d_Char #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_1dc, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_1d_Char #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_1d_Char\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncrd_2d_Char\n!\n! !INTERFACE:\n!\n  subroutine Ncrd_2d_Char(varrd_2dc, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to read array input data from\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varrd_2dc where\n!!             the first of the data values will be read\n!!  cnt2d    : varrd_2dc dimensions\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt2d(2)\n    integer          , intent(in)   :: cnt2d (2)\n!\n! !OUTPUT PARAMETERS:\n!!  varrd_2dc : charcter array to fill\n    character        , intent(out)  :: varrd_2dc(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Reads in a 2D netCDF character array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character (len=512) :: err_msg\n    integer             :: ierr\n    integer             :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_Char #1:  ' // Trim (varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Get_Var(ncid, varid, varrd_2dc, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncrd_2d_Char #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out (err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncrd_2d_Char\n!EOC\nend module m_netcdf_io_read\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_readattr.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: m_netcdf_io_readattr.F90\n!\n! !INTERFACE:\n!\nMODULE m_netcdf_io_readattr\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC :: NcGet_Var_Attributes\n  INTERFACE NcGet_Var_Attributes\n     MODULE PROCEDURE NcGet_Var_Attr_C\n     MODULE PROCEDURE NcGet_Var_Attr_C_nostop\n     MODULE PROCEDURE NcGet_Var_Attr_I4\n     MODULE PROCEDURE NcGet_Var_Attr_R4\n     MODULE PROCEDURE NcGet_Var_Attr_R8\n     MODULE PROCEDURE NcGet_Var_Attr_I4_arr\n     MODULE PROCEDURE NcGet_Var_Attr_R4_arr\n     MODULE PROCEDURE NcGet_Var_Attr_R8_arr\n  END INTERFACE\n\n  PUBLIC :: NcGet_Glob_Attributes\n  INTERFACE NcGet_Glob_Attributes\n     MODULE PROCEDURE NcGet_Glob_Attr_C\n     MODULE PROCEDURE NcGet_Glob_Attr_I4\n     MODULE PROCEDURE NcGet_Glob_Attr_R4\n     MODULE PROCEDURE NcGet_Glob_Attr_R8\n     MODULE PROCEDURE NcGet_Glob_Attr_I4_arr\n     MODULE PROCEDURE NcGet_Glob_Attr_R4_arr\n     MODULE PROCEDURE NcGet_Glob_Attr_R8_arr\n  END INTERFACE\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: NcGet_Var_Attr_C\n  PRIVATE :: NcGet_Var_Attr_I4\n  PRIVATE :: NcGet_Var_Attr_R4\n  PRIVATE :: NcGet_Var_Attr_R8\n  PRIVATE :: NcGet_Var_Attr_I4_arr\n  PRIVATE :: NcGet_Var_Attr_R4_arr\n  PRIVATE :: NcGet_Var_Attr_R8_arr\n  PRIVATE :: NcGet_Glob_Attr_C\n  PRIVATE :: NcGet_Glob_Attr_I4\n  PRIVATE :: NcGet_Glob_Attr_R4\n  PRIVATE :: NcGet_Glob_Attr_R8\n  PRIVATE :: NcGet_Glob_Attr_I4_arr\n  PRIVATE :: NcGet_Glob_Attr_R4_arr\n  PRIVATE :: NcGet_Glob_Attr_R8_arr\n!\n! !DESCRIPTION: Provides netCDF utility routines to read both netCDF\n!  variable attributes and global attributes.  Individual routines for\n!  reading attributes of different types are overloaded with F90\n!  interfaces.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_C\n!\n! !DESCRIPTION: Returns a variable attribute of type CHARACTER.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_C( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName    ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (CHARACTER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId, EC\n\n    ! Zero return value\n    attValue = ''\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_C: ' // TRIM( varName )        // &\n                 ', '                   // NF90_Strerror( status )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    ENDIF\n\n    !  Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_C: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_C\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_I4\n!\n! !DESCRIPTION: Returns a variable attribute of type INTEGER*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_I4( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName    ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (INTEGER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = 0\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_I4: ' // TRIM( varName )        // &\n                 ', '                   // NF90_Strerror( status )\n       CALL Do_Err_Out ( errMsg, .TRUE., 1, fId, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_I4: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_I4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_R4\n!\n! !DESCRIPTION: Returns a variable attribute of type REAL*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_R4( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName    ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*4,           INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (REAL*4 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = 0e0\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R4: ' // TRIM( varName )        // &\n                 ', '                   // NF90_Strerror( status )\n       CALL Do_Err_Out ( errMsg, .TRUE., 1, fId, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R4: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_R8\n!\n! !DESCRIPTION: Returns a variable attribute of type REAL*8.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_R8( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName    ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,           INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (REAL*4 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = 0d0\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R8: ' // TRIM( varName )        // &\n                 ', '                   // NF90_Strerror( status )\n       CALL Do_Err_Out ( errMsg, .TRUE., 1, fId, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R8: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_I4_arr\n!\n! !DESCRIPTION: Returns a vector variable attribute of type INTEGER*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_I4_arr( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId          ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName      ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName      ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: attValue(:)  ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (INTEGER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = 0\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_I4_arr: ' // TRIM( varName )        // &\n                 ', '                        // NF90_Strerror( status )\n       CALL Do_Err_Out ( errMsg, .TRUE., 1, fId, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_I4_arr: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_I4_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_R4_arr\n!\n! !DESCRIPTION: Returns a vector variable attribute of type REAL*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_R4_arr( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId          ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName      ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName      ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*4,           INTENT(OUT) :: attValue(:)  ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (REAL*4 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = 0e0\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R4_arr: ' // TRIM( varName )        // &\n                 ', '                        // NF90_Strerror( status )\n       CALL Do_Err_Out ( errMsg, .TRUE., 1, fId, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R4_arr: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_R4_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_R8_arr\n!\n! !DESCRIPTION: Returns a vector variable attribute of type REAL*8.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_R8_arr( fid, varName, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId          ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName      ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName      ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,           INTENT(OUT) :: attValue(:)  ! Attribute value\n!\n! !DESCRIPTION: Reads a variable attribute (REAL*4 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = 0d0\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R8_arr: ' // TRIM( varName )        // &\n                 ', '                        // NF90_Strerror( status )\n       CALL Do_Err_Out ( errMsg, .TRUE., 1, fId, 0, 0, 0.0d0, 0.0d0)\n    ENDIF\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Var_Attr_R8_arr: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Var_Attr_R8_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_C\n!\n! !DESCRIPTION: Returns a variable attribute of type CHARACTER.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_C( fid, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (CHARACTER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = ''\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_C: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_C\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_I4\n!\n! !DESCRIPTION: Returns a variable attribute of type INTEGER*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_I4( fid, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (INTEGER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = 0\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_I4: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_I4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_R4\n!\n! !DESCRIPTION: Returns a variable attribute of type REAL*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_R4( fid, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*4,           INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (REAL*4 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = 0e0\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_R4: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_R8\n!\n! !DESCRIPTION: Returns a variable attribute of type REAL*8.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_R8( fid, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,           INTENT(OUT) :: attValue   ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (REAL*8 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = 0d0\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_R8: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_I4_arr\n!\n! !DESCRIPTION: Returns a variable attribute of type INTEGER*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_I4_arr( fid, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId          ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName      ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: attValue(:)  ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (INTEGER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = 0\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_I4_arr: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_I4_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_R4_arr\n!\n! !DESCRIPTION: Returns a variable attribute of type REAL*4.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_R4_arr( fid, attName, attValue )\n!\n! !USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId          ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName      ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*4,           INTENT(OUT) :: attValue(:)  ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (REAL*4 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = 0e0\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_R4_arr: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_R4_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Glob_Attr_R8\n!\n! !DESCRIPTION: Returns a variable attribute of type REAL*8.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Glob_Attr_R8_arr( fid, attName, attValue )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId          ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: attName      ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    REAL*8,           INTENT(OUT) :: attValue(:)  ! Attribute value\n!\n! !DESCRIPTION: Reads a global attribute (REAL*8 type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg, varName\n    INTEGER            :: status\n\n    ! Zero return value\n    attValue = 0d0\n\n    ! Get the attribute\n    status = NF90_Get_Att( fId, NF90_GLOBAL, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       errMsg = 'In NcGet_Glob_Attr_R8_arr: cannot read attribute : ' // &\n                 TRIM( attName )\n       CALL Do_Err_Out( errMsg, .TRUE., 0, 0, 0, 0, 0.0d0, 0.0d0 )\n    endif\n\n  END SUBROUTINE NcGet_Glob_Attr_R8_arr\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: NcGet_Var_Attr_C_nostop\n!\n! !DESCRIPTION: Returns a variable attribute of type CHARACTER.  Similar\n!  to NcGet_Var_Attr_C, but does not stop upon error,  Instead, a status\n!  flag is passed back to the calling routine.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NcGet_Var_Attr_C_nostop( fId, varName, attName, attValue, RC )\n!\n! USES:\n!\n    USE netCDF\n    USE m_do_err_out\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId        ! netCDF file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: varName    ! netCDF variable name\n    CHARACTER(LEN=*), INTENT(IN)  :: attName    ! Name of variable attribute\n!\n! !OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(OUT) :: attValue   ! Attribute value\n    INTEGER,          INTENT(OUT) :: RC         ! Success or failure?\n!\n! !DESCRIPTION: Reads a variable attribute (CHARACTER type) from a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Bob Yantosca (based on code by Jules Kouatchou and Maharaj Bhat)\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=512) :: errMsg\n    INTEGER            :: status, vId\n\n    ! Zero return value\n    attValue = ''\n\n    ! Check if VARNAME is a valid variable\n    status = NF90_Inq_VarId( fId, varName, vId )\n\n    ! Exit w/ error message if VARNAME is not valid\n    IF ( status /= NF90_NOERR ) THEN\n       RC = status\n       RETURN\n    ENDIF\n\n    !  Get the attribute\n    status = NF90_Get_Att( fId, vId, attName, attValue )\n\n    ! Exit w/ error message if unsuccessful\n    IF ( status /= NF90_NOERR ) THEN\n       RC = status\n       RETURN\n    ENDIF\n\n  END SUBROUTINE NcGet_Var_Attr_C_nostop\n!EOC\nEND MODULE m_netcdf_io_readattr\n"
  },
  {
    "path": "NcdfUtil/m_netcdf_io_write.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE:  m_netcdf_io_write\n!\n! !INTERFACE:\n!\nMODULE m_netcdf_io_write\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  ! Public interface\n  PUBLIC :: NcWr\n\n  ! Private methods overloaded by public interface\n  ! (see below for info about these routines & the arguments they take)\n  INTERFACE NcWr\n     MODULE PROCEDURE Ncwr_Scal_R4\n     MODULE PROCEDURE Ncwr_Scal_R8\n     MODULE PROCEDURE Ncwr_Scal_Int\n     MODULE PROCEDURE Ncwr_1d_R8\n     MODULE PROCEDURE Ncwr_1d_R4\n     MODULE PROCEDURE Ncwr_1d_Int\n     MODULE PROCEDURE Ncwr_1d_Char\n     MODULE PROCEDURE Ncwr_2d_R8\n     MODULE PROCEDURE Ncwr_2d_R4\n     MODULE PROCEDURE Ncwr_2d_Int\n     MODULE PROCEDURE Ncwr_2d_Char\n     MODULE PROCEDURE Ncwr_3d_R8\n     MODULE PROCEDURE Ncwr_3d_R4\n     MODULE PROCEDURE Ncwr_3d_Int\n     MODULE PROCEDURE Ncwr_4d_R8\n     MODULE PROCEDURE Ncwr_4d_R4\n     MODULE PROCEDURE Ncwr_4d_Int\n     MODULE PROCEDURE Ncwr_5d_R8\n     MODULE PROCEDURE Ncwr_5d_R4\n     MODULE PROCEDURE Ncwr_6d_R8\n     MODULE PROCEDURE Ncwr_6d_R4\n  END INTERFACE NcWr\n!\n! !DESCRIPTION: Routines for writing variables in a netCDF file.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_Scal_R4\n!\n! !INTERFACE:\n!\n  subroutine NcWr_Scal_R4(varwr_scal, ncid, varname)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid       : netCDF file id to write variable to\n!!  varname    : netCDF variable name\n!!  varwr_scal : variable to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    real*4          , intent(in)   :: varwr_scal\n!\n! !DESCRIPTION: Writes out a netCDF real scalar variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_VarId(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_Scal_R4 #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = Nf90_Put_Var(ncid, varid, varwr_scal)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_Scal+R4 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_Scal_R4\n\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_Scal_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_Scal_R8(varwr_scal, ncid, varname)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid       : netCDF file id to write variable to\n!!  varname    : netCDF variable name\n!!  varwr_scal : variable to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    real*8          , intent(in)   :: varwr_scal\n!\n! !DESCRIPTION: Writes out a netCDF real scalar variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_Scal_R8 #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_scal)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_Scal_R8 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_Scal_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_Scal_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_Scal_Int(varwr_scali, ncid, varname)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid       : netCDF file id to write variable to\n!!  varname    : netCDF variable name\n!!  varwr_scali : integer variable to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: varwr_scali\n!\n! !DESCRIPTION: Writes out a netCDF integer scalar variable.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_Scal_Int #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_scali)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_Scal_Int #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_Scal_Int\n!EOC\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_1d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_1d_R8(varwr_1d, ncid, varname, strt1d, cnt1d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varwr_1d where\n!!             the first of the data values will be written\n!!  cnt1d    : varwr_1d dimension\n!!  varwr_1d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt1d(1)\n    integer         , intent(in)   :: cnt1d (1)\n    real*8          , intent(in)   :: varwr_1d(cnt1d(1))\n!\n! !DESCRIPTION: Writes out a 1D netCDF real array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_R8 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_1d, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_R8 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_1d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_1d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_1d_R4(varwr_1d, ncid, varname, strt1d, cnt1d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varwr_1d where\n!!             the first of the data values will be written\n!!  cnt1d    : varwr_1d dimension\n!!  varwr_1d : array to write out\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt1d(1)\n    integer          , intent(in)   :: cnt1d (1)\n    real*4           , intent(in)   :: varwr_1d(cnt1d(1))\n!\n! !DESCRIPTION: Writes out a 1D netCDF real array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_R4 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_1d, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_R4 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_1d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_1d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_1d_Int(varwr_1di, ncid, varname, strt1d, cnt1d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varwr_1di where\n!!             the first of the data values will be written\n!!  cnt1d    : varwr_1di dimension\n!!  varwr_1di : intger array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt1d(1)\n    integer         , intent(in)   :: cnt1d (1)\n    integer         , intent(in)   :: varwr_1di(cnt1d(1))\n!\n! !DESCRIPTION: Writes out a 1D netCDF integer array and does some error\n! checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_Int #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_1di, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_Int #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_1d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_2d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_2d_R8(varwr_2d, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varwr_2d where\n!!             the first of the data values will be written\n!!  cnt2d    : varwr_2d dimensions\n!!  varwr_2d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt2d(2)\n    integer         , intent(in)   :: cnt2d (2)\n    real*8          , intent(in)   :: varwr_2d(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Writes out a 2D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid (ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_R8 #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_2d, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_R8 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_2d_R8\n!EOC\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_2d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_2d_R4(varwr_2d, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varwr_2d where\n!!             the first of the data values will be written\n!!  cnt2d    : varwr_2d dimensions\n!!  varwr_2d : array to write out\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt2d(2)\n    integer          , intent(in)   :: cnt2d (2)\n    real*4           , intent(in)   :: varwr_2d(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Writes out a 2D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_R4 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_2d, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_R4 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_2d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_2d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_2d_Int(varwr_2di, ncid, varname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt2d   : vector specifying the index in varwr_2di where\n!!             the first of the data values will be written\n!!  cnt2d    : varwr_2di dimensions\n!!  varwr_2di : intger array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt2d(2)\n    integer         , intent(in)   :: cnt2d (2)\n    integer         , intent(in)   :: varwr_2di(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Writes out a 2D netCDF integer array and does some error\n!   checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_Int #1:  ' // Trim(varname) //  &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_2di, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_Int #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_2d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_3d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_3d_R8(varwr_3d, ncid, varname, strt3d, cnt3d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varwr_3d where\n!!             the first of the data values will be written\n!!  cnt3d    : varwr_3d dimensions\n!!  varwr_3d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt3d(3)\n    integer         , intent(in)   :: cnt3d (3)\n    real*8          , intent(in)   :: varwr_3d(cnt3d(1), cnt3d(2), cnt3d(3))\n!\n! !DESCRIPTION: Writes out a 3D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_3d_R8 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_3d, start=strt3d, count=cnt3d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_3d_R8 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_3d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_3d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_3d_R4(varwr_3d, ncid, varname, strt3d, cnt3d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varwr_3d where\n!!             the first of the data values will be written\n!!  cnt3d    : varwr_3d dimensions\n!!  varwr_3d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt3d(3)\n    integer         , intent(in)   :: cnt3d (3)\n    real*4          , intent(in)   :: varwr_3d(cnt3d(1), cnt3d(2), cnt3d(3))\n!\n! !DESCRIPTION: Writes out a 3D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_3d_R4 #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_3d, start=strt3d, count=cnt3d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_3d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_3d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_3d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_3d_Int(varwr_3di, ncid, varname, strt3d, cnt3d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varwr_3di where\n!!             the first of the data values will be written\n!!  cnt3d    : varwr_3di dimensions\n!!  varwr_3di : intger array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt3d(3)\n    integer         , intent(in)   :: cnt3d (3)\n    integer         , intent(in)   :: varwr_3di(cnt3d(1), cnt3d(2), cnt3d(3))\n!\n! !DESCRIPTION: Writes out a 3D netCDF integer array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_3d_Int #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_3di, start=strt3d, count=cnt3d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_3d_Int #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_3d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_4d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_4d_R8(varwr_4d, ncid, varname, strt4d, cnt4d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt4d   : vector specifying the index in varwr_4d where\n!!             the first of the data values will be written\n!!  cnt4d    : varwr_4d dimensions\n!!  varwr_4d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt4d(4)\n    integer         , intent(in)   :: cnt4d (4)\n    real*8          , intent(in)   :: varwr_4d(cnt4d(1), cnt4d(2), &\n                                               cnt4d(3), cnt4d(4))\n!\n! !DESCRIPTION: Writes out a 4D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_4d_R8 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_4d, start=strt4d, count=cnt4d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_4d_R8 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_4d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_4d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_4d_R4(varwr_4d, ncid, varname, strt4d, cnt4d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt4d   : vector specifying the index in varwr_4d where\n!!             the first of the data values will be written\n!!  cnt4d    : varwr_4d dimensions\n!!  varwr_4d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt4d(4)\n    integer         , intent(in)   :: cnt4d (4)\n    real*4          , intent(in)   :: varwr_4d(cnt4d(1), cnt4d(2), &\n                                               cnt4d(3), cnt4d(4))\n!\n! !DESCRIPTION: Writes out a 4D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_4d_R4 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_4d, start=strt4d, count=cnt4d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_4d_R4 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_4d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_4d_Int\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_4d_Int(varwr_4di, ncid, varname, strt4d, cnt4d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt3d   : vector specifying the index in varwr_3di where\n!!             the first of the data values will be written\n!!  cnt3d    : varwr_3di dimensions\n!!  varwr_3di : intger array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt4d(4)\n    integer         , intent(in)   :: cnt4d (4)\n    integer         , intent(in)   :: varwr_4di(cnt4d(1), cnt4d(2), &\n                                                cnt4d(3), cnt4d(4))\n!\n! !DESCRIPTION: Writes out a 3D netCDF integer array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_4d_Int #1:  ' // Trim(varname) // &\n                  ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_4di, start=strt4d, count=cnt4d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_4d_Int #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_4d_Int\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_5d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_5d_R8(varwr_5d, ncid, varname, strt5d, cnt5d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt5d   : vector specifying the index in varwr_5d where\n!!             the first of the data values will be written\n!!  cnt5d    : varwr_5d dimensions\n!!  varwr_5d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt5d(5)\n    integer         , intent(in)   :: cnt5d (5)\n    real*8          , intent(in)   :: varwr_5d(cnt5d(1), cnt5d(2), &\n                                               cnt5d(3), cnt5d(4), &\n                                               cnt5d(5))\n!\n! !DESCRIPTION: Writes out a 5D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_5d_R8 #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_5d, start=strt5d, count=cnt5d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_5d_R8 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_5d_R8\n!EOC\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_5d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_5d_R4(varwr_5d, ncid, varname, strt5d, cnt5d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt5d   : vector specifying the index in varwr_5d where\n!!             the first of the data values will be written\n!!  cnt5d    : varwr_5d dimensions\n!!  varwr_5d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt5d(5)\n    integer         , intent(in)   :: cnt5d (5)\n    real*4          , intent(in)   :: varwr_5d(cnt5d(1), cnt5d(2), &\n                                               cnt5d(3), cnt5d(4), &\n                                               cnt5d(5))\n!\n! !DESCRIPTION: Writes out a 5D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid (ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_5d_R4 #1:  ' // Trim(varname) // &\n                 ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_5d, start=strt5d, count=cnt5d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_5d_R4 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_5d_R4\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_6d_R8\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_6d_R8(varwr_6d, ncid, varname, strt6d, cnt6d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt6d   : vector specifying the index in varwr_6d where\n!!             the first of the data values will be written\n!!  cnt6d    : varwr_6d dimensions\n!!  varwr_6d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt6d(6)\n    integer         , intent(in)   :: cnt6d (6)\n    real*8          , intent(in)   :: varwr_6d(cnt6d(1), cnt6d(2), &\n                                               cnt6d(3), cnt6d(4), &\n                                               cnt6d(5), cnt6d(6))\n!\n! !DESCRIPTION: Writes out a 6D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_6d_R8 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_6d, start=strt6d, count=cnt6d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_6d_R8 #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_6d_R8\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_6d_R4\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_6d_R4(varwr_6d, ncid, varname, strt6d, cnt6d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt6d   : vector specifying the index in varwr_6d where\n!!             the first of the data values will be written\n!!  cnt6d    : varwr_6d dimensions\n!!  varwr_6d : array to write out\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: varname\n    integer         , intent(in)   :: strt6d(6)\n    integer         , intent(in)   :: cnt6d (6)\n    real*4          , intent(in)   :: varwr_6d(cnt6d(1), cnt6d(2), &\n                                               cnt6d(3), cnt6d(4), &\n                                               cnt6d(5), cnt6d(6))\n!\n! !DESCRIPTION: Writes out a 6D netCDF real array and does some error checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_6d_R4 #1:  ' // Trim(varname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_6d, start=strt6d, count=cnt6d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_6d_R4 #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_6d_R4\n!EOC\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_1d_Char\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_1d_Char(varwr_1dc, ncid, varname, strt1d, cnt1d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write array output data to\n!!  varname  : netCDF variable name for array\n!!  strt1d   : vector specifying the index in varwr_1dc where\n!!             the first of the data values will be written\n!!  cnt1d    : varwr_1dc dimension\n!!  varwr_1dc : intger array to write out\n    integer          , intent(in)   :: ncid\n    character (len=*), intent(in)   :: varname\n    integer          , intent(in)   :: strt1d(1)\n    integer          , intent(in)   :: cnt1d (1)\n    character (len=1), intent(in)   :: varwr_1dc(cnt1d(1))\n!\n! !DESCRIPTION: Writes out a 1D netCDF character array and does some error\n!   checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: varid\n!\n    ierr = NF90_Inq_Varid(ncid, varname, varid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_Char #1:  ' // Trim(varname) // &\n                 ', ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, varid, varwr_1dc, start=strt1d, count=cnt1d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_1d_Char #2:  ' // NF90_strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, varid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_1d_Char\n!EOC\n!-------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Ncwr_2d_Char\n!\n! !INTERFACE:\n!\n  subroutine Ncwr_2d_Char(char_2d, ncid, tvarname, strt2d, cnt2d)\n!\n! !USES:\n!\n    use netCDF\n    use m_do_err_out\n!\n! !INPUT PARAMETERS:\n!!  ncid     : netCDF file id to write text to\n!!  tvarname : netCDF variable name for text\n!!  strt2d   : vector specifying the index in char_2d where\n!!             the first of the data values will be written\n!!  cnt2d    : char_2d dimensions\n!!  char_2d  : text to write\n    integer         , intent(in)   :: ncid\n    character(len=*), intent(in)   :: tvarname\n    integer         , intent(in)   :: strt2d(2)\n    integer         , intent(in)   :: cnt2d (2)\n    character(len=1), intent(in)   :: char_2d(cnt2d(1), cnt2d(2))\n!\n! !DESCRIPTION: Writes out a 2D netCDF character array and does some error\n!  checking.\n!\\\\\n!\\\\\n! !AUTHOR:\n!  John Tannahill (LLNL) and Jules Kouatchou\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!-------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n    character(len=512) :: err_msg\n    integer            :: ierr\n    integer            :: tvarid\n!\n    ierr = NF90_Inq_Varid(ncid, tvarname, tvarid)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_Char #1:  ' // Trim(tvarname) // &\n                  ', ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 1, ncid, 0, 0, 0.0d0, 0.0d0)\n    end if\n\n    ierr = NF90_Put_Var(ncid, tvarid, char_2d, start=strt2d, count=cnt2d)\n\n    if (ierr /= NF90_NOERR) then\n       err_msg = 'In Ncwr_2d_Char #2:  ' // NF90_Strerror(ierr)\n       call Do_Err_Out(err_msg, .true., 2, ncid, tvarid, 0, 0.0d0, 0.0d0)\n    end if\n\n  end subroutine Ncwr_2d_Char\n!EOC\nend module m_netcdf_io_write\n"
  },
  {
    "path": "NcdfUtil/ncdf_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: ncdf_mod.F90\n!\n! !DESCRIPTION: Module NCDF\\_MOD contains routines to read data from\n! netCDF files.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE NCDF_MOD\n!\n! !USES:\n!\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: NC_OPEN\n  PUBLIC  :: NC_APPEND\n  PUBLIC  :: NC_CREATE\n  PUBLIC  :: NC_SET_DEFMODE\n  PUBLIC  :: NC_VAR_DEF\n  PUBLIC  :: NC_VAR_CHUNK\n  PUBLIC  :: NC_VAR_WRITE\n  PUBLIC  :: NC_CLOSE\n  PUBLIC  :: NC_READ_TIME\n  PUBLIC  :: NC_READ_TIME_YYYYMMDDhhmm\n  PUBLIC  :: NC_READ_VAR\n  PUBLIC  :: NC_READ_ARR\n  PUBLIC  :: NC_GET_REFDATETIME\n  PUBLIC  :: NC_GET_GRID_EDGES\n  PUBLIC  :: NC_GET_SIGMA_LEVELS\n  PUBLIC  :: NC_WRITE\n  PUBLIC  :: NC_ISMODELLEVEL\n  PUBLIC  :: NC_ISSIGMALEVEL\n  PUBLIC  :: GET_TAU0\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: GET_TIDX\n  PRIVATE :: TIMEUNIT_CHECK\n  PRIVATE :: NC_WRITE_3D\n  PRIVATE :: NC_WRITE_4D\n  PRIVATE :: NC_VAR_WRITE_INT_1D\n  PRIVATE :: NC_VAR_WRITE_INT_2D\n  PRIVATE :: NC_VAR_WRITE_INT_3D\n  PRIVATE :: NC_VAR_WRITE_INT_4D\n  PRIVATE :: NC_VAR_WRITE_R4_1D\n  PRIVATE :: NC_VAR_WRITE_R4_2D\n  PRIVATE :: NC_VAR_WRITE_R4_3D\n  PRIVATE :: NC_VAR_WRITE_R4_4D\n  PRIVATE :: NC_VAR_WRITE_R8_0D\n  PRIVATE :: NC_VAR_WRITE_R8_1D\n  PRIVATE :: NC_VAR_WRITE_R8_2D\n  PRIVATE :: NC_VAR_WRITE_R8_3D\n  PRIVATE :: NC_VAR_WRITE_R8_4D\n  PRIVATE :: NC_READ_VAR_SP\n  PRIVATE :: NC_READ_VAR_DP\n  PRIVATE :: NC_GET_GRID_EDGES_SP\n  PRIVATE :: NC_GET_GRID_EDGES_DP\n  PRIVATE :: NC_GET_GRID_EDGES_C\n  PRIVATE :: NC_GET_SIGMA_LEVELS_SP\n  PRIVATE :: NC_GET_SIGMA_LEVELS_DP\n  PRIVATE :: NC_GET_SIGMA_LEVELS_C\n  PRIVATE :: NC_GET_SIG_FROM_HYBRID\n!\n! !REMARKS:\n!  This file is based on code from NASA/GSFC, SIVO, Code 610.3\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !MODULE INTERFACES:\n!\n  INTERFACE NC_WRITE\n     MODULE PROCEDURE NC_WRITE_3D\n     MODULE PROCEDURE NC_WRITE_4D\n  END INTERFACE NC_WRITE\n\n  INTERFACE NC_READ_VAR\n     MODULE PROCEDURE NC_READ_VAR_SP\n     MODULE PROCEDURE NC_READ_VAR_DP\n  END INTERFACE NC_READ_VAR\n\n  INTERFACE NC_GET_GRID_EDGES\n     MODULE PROCEDURE NC_GET_GRID_EDGES_SP\n     MODULE PROCEDURE NC_GET_GRID_EDGES_DP\n  END INTERFACE NC_GET_GRID_EDGES\n\n  INTERFACE NC_GET_SIGMA_LEVELS\n     MODULE PROCEDURE NC_GET_SIGMA_LEVELS_SP\n     MODULE PROCEDURE NC_GET_SIGMA_LEVELS_DP\n  END INTERFACE NC_GET_SIGMA_LEVELS\n\n  INTERFACE NC_VAR_WRITE\n     MODULE PROCEDURE NC_VAR_WRITE_INT_0D\n     MODULE PROCEDURE NC_VAR_WRITE_INT_1D\n     MODULE PROCEDURE NC_VAR_WRITE_INT_2D\n     MODULE PROCEDURE NC_VAR_WRITE_INT_3D\n     MODULE PROCEDURE NC_VAR_WRITE_INT_4D\n     MODULE PROCEDURE NC_VAR_WRITE_R4_0D\n     MODULE PROCEDURE NC_VAR_WRITE_R4_1D\n     MODULE PROCEDURE NC_VAR_WRITE_R4_2D\n     MODULE PROCEDURE NC_VAR_WRITE_R4_3D\n     MODULE PROCEDURE NC_VAR_WRITE_R4_4D\n     MODULE PROCEDURE NC_VAR_WRITE_R8_0D\n     MODULE PROCEDURE NC_VAR_WRITE_R8_1D\n     MODULE PROCEDURE NC_VAR_WRITE_R8_2D\n     MODULE PROCEDURE NC_VAR_WRITE_R8_3D\n     MODULE PROCEDURE NC_VAR_WRITE_R8_4D\n  END INTERFACE NC_VAR_WRITE\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Open\n!\n! !DESCRIPTION: Simple wrapper routine to open the given netCDF file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_OPEN( FileName, fID )\n!\n! !USES:\n!\n    USE m_netcdf_io_open\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: FileName\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: fID\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n    !=================================================================\n    ! NC_OPEN begins here\n    !=================================================================\n\n    ! Open netCDF file\n    CALL Ncop_Rd( fId, TRIM( FileName ) )\n\n  END SUBROUTINE NC_OPEN\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Append\n!\n! !DESCRIPTION: Simple wrapper routine to open the given netCDF file.\n!  for appending extra values along a record dimension.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_APPEND( FileName, fID, nTime )\n!\n! !USES:\n!\n    USE m_netcdf_io_get_dimlen\n    USE m_netcdf_io_open\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: FileName\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT) :: fID\n    INTEGER,          OPTIONAL    :: nTime\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: RC, vId\n\n    !=================================================================\n    ! NC_APPEND begins here\n    !=================================================================\n\n    ! Open netCDF file\n    CALL NcOp_Wr( fId, TRIM(FileName) )\n\n    ! Also return the number of time slices so that we can\n    ! append to an existing file w/o clobbering any data\n    IF ( PRESENT( nTime ) ) THEN\n       CALL Ncget_Unlim_Dimlen( fId, nTime )\n    ENDIF\n\n  END SUBROUTINE NC_APPEND\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Close\n!\n! !DESCRIPTION: Simple wrapper routine to close the given lun.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_CLOSE( fID )\n!\n! !USES:\n!\n    USE m_netcdf_io_close\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN   ) :: fID\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=================================================================\n    ! NC_CLOSE begins here\n    !=================================================================\n\n    CALL NcCl( fID )\n\n  END SUBROUTINE NC_CLOSE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Set_DefMode\n!\n! !DESCRIPTION: Toggles netCDF define mode on or off.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Nc_Set_DefMode( fId, On, Off )\n!\n! !USES:\n!\n    USE m_netcdf_io_define\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: fId   ! netCDF file ID\n    LOGICAL, OPTIONAL   :: On    ! On=T   will turn on  netCDF define mode\n    LOGICAL, OPTIONAL   :: Off   ! Off=T  will turn off netCDF define mdoe\n!\n! !REMARKS:\n!  This is a convenience wrapper for routines NcBegin_Def and NcEnd_Def in\n!  NcdfUtil module m_netcdf_define_mod.F90.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! If the ON switch is passed then ...\n    IF ( PRESENT( On ) ) THEN\n\n       ! Turn define mode on\n       IF ( On ) THEN\n          CALL NcBegin_Def( fId )\n          RETURN\n       ENDIF\n\n       ! Else turn define mode off\n       CALL NcEnd_Def( fId )\n       RETURN\n    ENDIF\n\n    ! If the OFF switch is passed then ,,,\n    IF ( PRESENT( Off ) ) THEN\n\n       ! Turn define mode off\n       IF ( Off ) THEN\n          CALL NcEnd_Def( fId )\n          RETURN\n       ENDIF\n\n       ! Else turn define mode on\n       CALL NcBegin_Def( fId )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE Nc_Set_DefMode\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Read_Time\n!\n! !DESCRIPTION: Subroutine NC\\_READ\\_TIME reads the time variable of the\n! given fID and returns the time slices and unit.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_READ_TIME( fID,     nTime,        timeUnit, &\n                           timeVec, timeCalendar, RC       )\n!\n! !USES:\n!\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_get_dimlen\n    USE m_netcdf_io_read\n    USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   )            :: fID\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(  OUT)            :: nTime\n    CHARACTER(LEN=*), INTENT(  OUT)            :: timeUnit\n    REAL*8,           POINTER,       OPTIONAL  :: timeVec(:)\n    CHARACTER(LEN=*), INTENT(  OUT), OPTIONAL  :: timeCalendar\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)            :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: hasTime\n    CHARACTER(LEN=255)     :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255)     :: a_name             ! netCDF attribute name\n    CHARACTER(LEN=255)     :: a_val              ! netCDF attribute value\n    INTEGER                :: st1d(1), ct1d(1)   ! For 1D arrays\n\n    ! Arrays\n    REAL*8 , ALLOCATABLE   :: tmpTime(:)\n\n    !=================================================================\n    ! NC_READ_TIME begins here\n    !=================================================================\n\n    ! Init\n    RC      = 0\n    nTime   = 0\n    hasTime = .FALSE.\n\n    ! Variable name\n    v_name = \"time\"\n\n    ! Check if dimension \"time\" exist\n    hasTime = Ncdoes_Dim_Exist( fID, TRIM(v_name) )\n\n    ! If time dim not found, also check for dimension \"date\"\n    IF ( .NOT. hasTime ) THEN\n       v_name   = \"date\"\n       hasTime = Ncdoes_Dim_Exist( fID, TRIM(v_name) )\n    ENDIF\n\n    ! Return here if no time variable defined\n    IF ( .NOT. hasTime ) RETURN\n\n    ! Get dimension length\n    CALL Ncget_Dimlen( fID, TRIM(v_name), nTime )\n\n    ! Read time/date units attribute\n    a_name = \"units\"\n    CALL NcGet_Var_Attributes( fID,          TRIM(v_name), &\n                               TRIM(a_name), timeUnit     )\n\n    ! Read time vector from file.\n    IF ( PRESENT(timeVec) ) THEN\n       IF ( ASSOCIATED(timeVec) ) DEALLOCATE ( timeVec)\n       ALLOCATE ( tmpTime(nTime) )\n       ALLOCATE ( timeVec(nTime) )\n       st1d = (/ 1     /)\n       ct1d = (/ nTime /)\n       CALL NcRd( tmpTime, fID, TRIM(v_name), st1d, ct1d )\n       timevec(:) = tmpTime\n       DEALLOCATE(tmpTime)\n    ENDIF\n\n    ! Read calendar attribute\n    IF ( PRESENT( timeCalendar ) ) THEN\n\n       ! We now get the status variable RC.  This will allow program\n       ! flow to continue if the \"time:calendar\" attribute is not found.\n       CALL NcGet_Var_Attributes( fId, v_name, 'calendar', timeCalendar, RC )\n\n       ! If \"time:calendar\" is found, then throw an error for\n       ! climatological calendars without leap years.\n       IF ( RC == 0 ) THEN\n        SELECT CASE( TRIM( v_name ) )\n          CASE( '360_day', '365_day', '366_day', 'all_leap',                 &\n                'allleap', 'no_leap', 'noleap'                              )\n             WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n             WRITE( 6, '(a  )' ) 'HEMCO does not support calendar type '  // &\n                                 TRIM( v_name )\n             WRITE( 6, '(/,a)' )  'HEMCO supports the following calendars:'\n             WRITE( 6, '(a)'   )  ' - standard (i.e. mixed gregorian/julian)'\n             WRITE( 6, '(a)'   )  ' - gregorian'\n             WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n             RC = -1\n          CASE DEFAULT\n             ! Do nothing\n        END SELECT\n       ENDIF\n\n       ! Reset RC so that we won't halt execution elsewhere\n       RC = 0\n    ENDIF\n\n  END SUBROUTINE NC_READ_TIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Read_Var_Sp\n!\n! !DESCRIPTION: Subroutine NC\\_READ\\_VAR\\_SP reads the given variable from the\n! given fID and returns the corresponding variable values and units.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_READ_VAR_SP( fID, Var, nVar, varUnit, varVec, RC )\n!\n! !USES:\n!\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_get_dimlen\n    USE m_netcdf_io_read\n    USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   )            :: fID\n    CHARACTER(LEN=*), INTENT(IN   )            :: var\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(  OUT)            :: nVar\n    CHARACTER(LEN=*), INTENT(  OUT)            :: varUnit\n    REAL*4,           POINTER                  :: varVec(:)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)            :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL                :: hasVar\n    CHARACTER(LEN=255)     :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255)     :: a_name             ! netCDF attribute name\n    CHARACTER(LEN=255)     :: a_val              ! netCDF attribute value\n    INTEGER                :: a_type             ! netCDF attribute type\n    INTEGER                :: st1d(1), ct1d(1)   ! For 1D arrays\n    INTEGER                :: I\n\n    ! Init\n    RC      = 0\n    nVar    = 0\n    hasVar  = .FALSE.\n\n    ! Variable name\n    v_name = var\n\n    ! Check if variable exists\n    hasVar = Ncdoes_Dim_Exist( fID, TRIM(v_name) )\n\n    ! Return here if variable not defined\n    IF ( .NOT. hasVar ) RETURN\n\n    ! Get dimension length\n    CALL Ncget_Dimlen( fID, TRIM(v_name), nVar )\n\n    ! Read vector from file.\n    IF ( ASSOCIATED( VarVec ) ) DEALLOCATE(VarVec)\n    ALLOCATE ( VarVec(nVar) )\n    st1d = (/ 1    /)\n    ct1d = (/ nVar /)\n    CALL NcRd( VarVec, fID, TRIM(v_name), st1d, ct1d )\n\n    ! Read units attribute. If unit attribute does not exist, return\n    ! empty string (dimensionless vertical coordinates do not require\n    ! a units attribute).\n    a_name  = \"units\"\n    hasVar  = Ncdoes_Attr_Exist( fId, TRIM(v_name), TRIM(a_name), a_type )\n    IF ( .NOT. hasVar ) THEN\n       varUnit = ''\n    ELSE\n       CALL NcGet_Var_Attributes( fID,          TRIM(v_name), &\n                                  TRIM(a_name), varUnit     )\n\n       ! Check if the last character of VarUnit is the ASCII null character\n       ! (\"\\0\", ASCII value = 0), which is used to denote the end of a string.\n       ! The ASCII null character may be introduced if the netCDF file was\n       ! written using a language other than Fortran.  The compiler might\n       ! interpret the null character as part of the string instead of as\n       ! an empty space.  If the null space is there, then replace it with\n       ! a Fortran empty string value (''). (bmy, 7/17/18)\n       I = LEN_TRIM( VarUnit )\n       IF ( ICHAR( VarUnit(I:I) ) == 0 ) THEN\n          VarUnit(I:I) = ''\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE NC_READ_VAR_SP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Read_Var_Dp\n!\n! !DESCRIPTION: Subroutine NC\\_READ\\_VAR\\_DP reads the given variable from the\n! given fID and returns the corresponding variable values and units.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_READ_VAR_DP( fID, Var, nVar, varUnit, varVec, RC )\n!\n! !USES:\n!\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_get_dimlen\n    USE m_netcdf_io_read\n    USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   )            :: fID\n    CHARACTER(LEN=*), INTENT(IN   )            :: var\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(  OUT)            :: nVar\n    CHARACTER(LEN=*), INTENT(  OUT)            :: varUnit\n    REAL*8,           POINTER                  :: varVec(:)\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)            :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL                :: hasVar\n    CHARACTER(LEN=255)     :: v_name             ! netCDF variable name\n    CHARACTER(LEN=255)     :: a_name             ! netCDF attribute name\n    CHARACTER(LEN=255)     :: a_val              ! netCDF attribute value\n    INTEGER                :: a_type             ! netCDF attribute type\n    INTEGER                :: st1d(1), ct1d(1)   ! For 1D arrays\n    INTEGER                :: I\n\n    ! Init\n    RC      = 0\n    nVar    = 0\n    hasVar  = .FALSE.\n\n    ! Variable name\n    v_name = var\n\n    ! Check if variable exists\n    hasVar = Ncdoes_Dim_Exist( fID, TRIM(v_name) )\n\n    ! Return here if variable not defined\n    IF ( .NOT. hasVar ) RETURN\n\n    ! Get dimension length\n    CALL Ncget_Dimlen( fID, TRIM(v_name), nVar )\n\n    ! Read vector from file.\n    IF ( ASSOCIATED( VarVec ) ) DEALLOCATE( VarVec )\n    ALLOCATE ( VarVec(nVar) )\n    st1d = (/ 1    /)\n    ct1d = (/ nVar /)\n    CALL NcRd( VarVec, fID, TRIM(v_name), st1d, ct1d )\n\n    ! Read units attribute. If unit attribute does not exist, return\n    ! empty string (dimensionless vertical coordinates do not require\n    ! a units attribute).\n    a_name  = \"units\"\n    hasVar  = Ncdoes_Attr_Exist( fId, TRIM(v_name), TRIM(a_name), a_type )\n    IF ( .NOT. hasVar ) THEN\n       varUnit = ''\n    ELSE\n       CALL NcGet_Var_Attributes( fID,          TRIM(v_name), &\n                                  TRIM(a_name), varUnit     )\n\n       ! Check if the last character of VarUnit is the ASCII null character\n       ! (\"\\0\", ASCII value = 0), which is used to denote the end of a string.\n       ! The ASCII null character may be introduced if the netCDF file was\n       ! written using a language other than Fortran.  The compiler might\n       ! interpret the null character as part of the string instead of as\n       ! an empty space.  If the null space is there, then replace it with\n       ! a Fortran empty string value (''). (bmy, 7/17/18)\n       I = LEN_TRIM( VarUnit )\n       IF ( ICHAR( VarUnit(I:I) ) == 0 ) THEN\n          VarUnit(I:I) = ''\n       ENDIF\n    ENDIF\n\n  END SUBROUTINE NC_READ_VAR_DP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Read_Arr\n!\n! !DESCRIPTION: Routine NC\\_READ\\_ARR reads variable ncVar into a 4-D array\n! (lon,lat,lev,time). Domain boundaries can be provided by input arguments\n! lon1,lon2, lat1,lat2, lev1,lev2, and time1,time2. The level and time bounds\n! are optional and can be set to zero (lev1=0 and/or time1=0) for data with\n! undefined level/time coordinates.\n!\\\\\n!\\\\\n! The default behavior for time slices is to read all slices (time1:time2),\n! and pass all of them to the output array. It is also possible to assign\n! specific weights (wgt1 and wgt2) to the two time slices time1 and time2,\n! respectively. In this case, only those two slices will be read and merged\n! using the given weights. The output array will then contain only one time\n! dimension. Negative weights are currently not supported and will be ignored,\n! e.g. providing negative weights has the same effect as providing no weights\n! at all.\n!\\\\\n!\\\\\n! If the passed variable contains attribute names `offset` and/or\n! `scale\\_factor`, those operations will be applied to the data array\n! before returning it.\n!\\\\\n!\\\\\n! Missing values in the netCDF file are replaced with value 'MissVal'\n! (default = 0). Currently, the routine identifies attributes 'missing\\_value'\n! and '\\_FillValue' as missing values.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_READ_ARR( fID,    ncVar,   lon1,    lon2,  lat1,  &\n                          lat2,   lev1,    lev2,    time1, time2, &\n                          ncArr,  VarUnit, MissVal, wgt1,  wgt2,  &\n                          ArbIdx, RC                               )\n!\n! !USES:\n!\n    USE CharPak_Mod,  ONLY : TRANLC\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_get_dimlen\n    USE m_netcdf_io_read\n    USE m_netcdf_io_readattr\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)            :: fID\n    CHARACTER(LEN=*), INTENT(IN)            :: ncVar        ! variable to read\n    INTEGER,          INTENT(IN)            :: lon1,  lon2\n    INTEGER,          INTENT(IN)            :: lat1,  lat2\n    INTEGER,          INTENT(IN)            :: lev1,  lev2\n    INTEGER,          INTENT(IN)            :: time1, time2\n    REAL*4,           INTENT(IN ), OPTIONAL :: MissVal\n    REAL*4,           INTENT(IN ), OPTIONAL :: wgt1\n    REAL*4,           INTENT(IN ), OPTIONAL :: wgt2\n    INTEGER,          INTENT(IN ), OPTIONAL :: ArbIdx      ! Index of arbitrary additional dimension (-1 if none)\n!\n! !OUTPUT PARAMETERS:\n!\n    ! Array to write data\n    REAL*4,           POINTER               :: ncArr(:,:,:,:)\n\n    ! Optional output\n    CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: VarUnit\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    ! Error handling\n    INTEGER,          INTENT(INOUT)         :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !=================================================================\n    ! Variable declarations\n    !=================================================================\n\n    ! Data arrays\n    CHARACTER(LEN=255)     :: v_name    ! netCDF variable name\n    CHARACTER(LEN=255)     :: a_name    ! netCDF attribute name\n    CHARACTER(LEN=255)     :: a_val     ! netCDF attribute value\n    INTEGER                :: a_type    ! netCDF attribute type\n    REAL*8                 :: corr      ! netCDF attribute value\n\n    ! Arrays for netCDF start and count values\n    INTEGER                :: I, nRead, l1, l2\n    INTEGER                :: ndims\n    INTEGER                :: nlon,  nlat, nlev, ntime, arbdim\n    INTEGER                :: nclev, nctime\n    INTEGER                :: s1, s2, s3, s4, s5\n    INTEGER                :: n1, n2, n3, n4, n5\n    INTEGER                :: nt, st, tdim, sti, nti\n    INTEGER                :: st2d(2), ct2d(2)   ! For 2D arrays\n    INTEGER                :: st3d(3), ct3d(3)   ! For 3D arrays\n    INTEGER                :: st4d(4), ct4d(4)   ! For 4D arrays\n    INTEGER                :: st5d(5), ct5d(5)   ! For 5D arrays\n\n    ! Temporary arrays\n    REAL*4, ALLOCATABLE    :: TMPARR_5D(:,:,:,:,:)\n    REAL*4, ALLOCATABLE    :: WGTARR_5D(:,:,:,:,:)\n    REAL*4, ALLOCATABLE    :: TMPARR_4D(:,:,:,:)\n    REAL*4, ALLOCATABLE    :: WGTARR_4D(:,:,:,:)\n    REAL*4, ALLOCATABLE    :: TMPARR_3D(:,:,:)\n    REAL*4, ALLOCATABLE    :: WGTARR_3D(:,:,:)\n    REAL*4, ALLOCATABLE    :: TMPARR_2D(:,:)\n\n    ! Logicals\n    LOGICAL                :: FlipZ\n    LOGICAL                :: ReadAtt\n\n    ! Missing value\n    REAL*8                 :: miss8\n    REAL*4                 :: miss4\n    REAL*4                 :: MissValue\n\n    ! Weights\n    LOGICAL                :: ApplyWeights\n    REAL*4                 :: weight1, weight2\n\n    ! For error handling\n    CHARACTER(LEN=255)     :: LOC, MSG\n\n    !=================================================================\n    ! NC_READ_ARR begins here\n    !=================================================================\n\n    !-----------------------------------------------------------------\n    ! Initialize\n    !-----------------------------------------------------------------\n\n    ! For error handling\n    LOC = 'NC_READ_ARR (\"ncdf_mod.F\")'\n\n    ! Eventually deallocate output array\n    IF ( ASSOCIATED ( ncArr ) ) DEALLOCATE ( ncArr )\n\n    ! weights to be applied to time1 and time2 (if any):\n    weight1 = -999.0\n    weight2 = -999.0\n    IF(PRESENT(wgt1)) weight1 = wgt1\n    IF(PRESENT(wgt2)) weight2 = wgt2\n\n    ! apply weights?\n    IF ( time1 > 0 .AND. weight1 >= 0.0 ) THEN\n       ApplyWeights = .TRUE.\n    ELSE\n       ApplyWeights = .FALSE.\n    ENDIF\n\n    ! # of horizontal dimensions to read\n    nLon = lon2 - lon1 + 1\n    nLat = lat2 - lat1 + 1\n\n    ! # of vertical levels\n    FlipZ = .FALSE. ! Flip z-axis?\n    l1    = lev1    ! Lower level to be read\n    l2    = lev2    ! Upper level to be read\n    IF ( lev1 > 0 ) THEN\n\n       ! Check if we need to flip the vertical axis\n       IF ( lev1 > lev2 ) THEN\n          FlipZ = .TRUE.\n          l1    = lev2\n          l2    = lev1\n       ENDIF\n\n       ! Number of levels to be read\n       nLev = l2 - l1 + 1\n\n    ! no vertical levels:\n    ELSE\n       nLev = 0\n    ENDIF\n\n    ! # of time slices\n    ! read all time slices time1:time2:\n    IF ( time1 > 0 .AND. weight1 < 0.0 ) THEN\n       ntime = time2 - time1 + 1\n    ! Interpolate amongs 2 time slices:\n    ELSEIF ( ApplyWeights ) THEN\n       ntime = 1\n    ! no time dimension:\n    ELSE\n       ntime = 0\n    ENDIF\n\n    ! # of arbitrary other dimensions\n    arbdim = -1\n    IF ( PRESENT(ArbIdx) ) THEN\n       IF ( ArbIdx > 0 ) THEN\n          arbdim = ArbIdx\n       ENDIF\n    ENDIF\n\n    ! Set dimensions of output array\n    ! --> must have at least dimension 1\n    nclev  = max(nlev ,1)\n    nctime = max(ntime,1)\n\n    ! set total number of dimensions to be read. This is at least 2 and\n    ! at most 5.\n    ndims = 2\n    if ( nlev   > 0 ) ndims = ndims + 1\n    if ( ntime  > 0 ) ndims = ndims + 1\n    if ( arbdim > 0 ) ndims = ndims + 1\n\n    !----------------------------------------\n    ! Read array\n    !----------------------------------------\n\n    ! Variable name\n    v_name = TRIM(ncVar)\n\n    ! Allocate the output array\n    ALLOCATE ( ncArr( nLon, nLat, ncLev, ncTime ) )\n    ncArr = 0.0\n\n    ! Define number of required reads and time dimension on temporary array\n    nRead = 1\n    IF ( ntime > 0 ) THEN\n       IF ( ApplyWeights ) THEN\n          nRead = 2\n          nt    = 2\n       ELSE\n          nRead = 1\n          nt    = ntime\n       ENDIF\n    ENDIF\n\n    !----------------------------------------\n    ! Read 5D array:\n    IF ( ndims == 5 ) THEN\n\n       ! Allocate array. If time weights are applied, the two\n       ! time slices are read into TMPARR_5D and then temporarily\n       ! stored in WGTARR_5D. Same applies to 4D and 3D below.\n       ! (ckeller, 01/09/17)\n       IF ( ApplyWeights ) THEN\n          ALLOCATE ( TMPARR_5D( nlon, nlat, nlev, 1, 1 ) )\n          TMPARR_5D = 0.0\n          ALLOCATE ( WGTARR_5D( nlon, nlat, nlev, nt, 1 ) )\n          WGTARR_5D = 0.0\n       ELSE\n          ALLOCATE ( TMPARR_5D( nlon, nlat, nlev, nt, 1 ) )\n          TMPARR_5D = 0.0\n       ENDIF\n\n       ! Set default start/end indeces\n       s1 = lon1\n       n1 = nlon\n       s2 = lat1\n       n2 = nlat\n       s3 = l1\n       n3 = nlev\n       s5 = arbdim\n       n5 = 1\n\n       ! Read arrays from file\n       DO I = 1, nRead\n\n          ! time index\n          IF ( .NOT. ApplyWeights ) THEN\n             s4 = time1\n             n4 = ntime\n          ELSE\n             IF ( I == 1 ) THEN\n                s4 = time1\n             ELSE\n                s4 = time2\n             ENDIF\n             n4 = 1\n          ENDIF\n\n          st5d = (/ s1, s2, s3, s4, s5 /)\n          ct5d = (/ n1, n2, n3, n4, n5 /)\n          CALL NcRd( TMPARR_5D, fId, TRIM(v_name), st5d, ct5d )\n\n          ! Eventually pass time weighted arrays to temporary array\n          IF ( ApplyWeights ) THEN\n             WGTARR_5D(:,:,:,I,:) = TMPARR_5D(:,:,:,1,:)\n          ENDIF\n\n       ENDDO\n\n       ! Pass to output array. Eventually apply time weights.\n       IF ( ApplyWeights ) THEN\n          ncArr(:,:,:,1) = WGTARR_5D(:,:,:,1,1) * weight1 &\n                         + WGTARR_5D(:,:,:,2,1) * weight2\n       ELSE\n          ncArr(:,:,:,:) = TMPARR_5D(:,:,:,:,1)\n       ENDIF\n\n       ! Cleanup\n       DEALLOCATE(TMPARR_5D)\n       IF(ALLOCATED(WGTARR_5D)) DEALLOCATE(WGTARR_5D)\n    ENDIF\n\n    !----------------------------------------\n    ! Read 4D array:\n    ! This can be:\n    ! - lon,lat,lev,time\n    ! - lon,lat,lev,arb\n    ! - lon,lat,time,arb\n    IF ( ndims == 4 ) THEN\n\n       ! Allocate temporary array\n       s1    = lon1\n       n1    = nlon\n       s2    = lat1\n       n2    = nlat\n       tdim  = -1\n\n       ! 3rd and 4th dim\n\n       ! lev is defined\n       IF ( nlev > 0 ) THEN\n          s3   = l1\n          n3   = nlev\n          ! plus time...\n          IF ( ntime > 0 ) THEN\n             n4   = nt\n             tdim = 4\n          ! ... or plus arbitrary dim\n          ELSE\n             s4 = arbdim\n             n4 = 1\n          ENDIF\n\n       ! lev not defined: time + arbitrary dim\n       ELSE\n          n3 = nt\n          tdim = 3\n          s4 = arbdim\n          n4 = 1\n       ENDIF\n\n       IF ( ApplyWeights ) THEN\n          ALLOCATE ( WGTARR_4D(n1,n2,n3,n4) )\n          WGTARR_4D = 0.0\n          IF ( tdim == 3 ) THEN\n             ALLOCATE ( TMPARR_4D(n1,n2,1,n4) )\n             TMPARR_4D = 0.0\n          ELSEIF ( tdim == 4 ) THEN\n             ALLOCATE ( TMPARR_4D(n1,n2,n3,1) )\n             TMPARR_4D = 0.0\n          ENDIF\n\n       ELSE\n          ALLOCATE ( TMPARR_4D(n1,n2,n3,n4) )\n          TMPARR_4D = 0.0\n       ENDIF\n\n       ! Read arrays from file\n       DO I = 1, nRead\n\n          ! time index\n          IF ( .NOT. ApplyWeights ) THEN\n             sti = time1\n             nti = ntime\n          ELSE\n             IF ( I == 1 ) THEN\n                sti = time1\n             ELSE\n                sti = time2\n             ENDIF\n             nti = 1\n          ENDIF\n\n          ! need to adjust time index: this is either 3rd or 4th dimension:\n          IF ( tdim == 3 ) THEN\n             s3 = sti\n             n3 = nti\n          ELSEIF ( tdim == 4 ) THEN\n             s4 = sti\n             n4 = nti\n          ENDIF\n\n          st4d = (/ s1, s2, s3, s4 /)\n          ct4d = (/ n1, n2, n3, n4 /)\n\n          ! Read data from disk\n          CALL NcRd( TMPARR_4D, fId, TRIM(v_name), st4d, ct4d )\n\n          ! Eventually pass time weighted arrays to temporary array\n          IF ( ApplyWeights ) THEN\n             IF ( tdim == 3 ) THEN\n                WGTARR_4D(:,:,I,:) = TMPARR_4D(:,:,1,:)\n             ELSEIF ( tdim == 4 ) THEN\n                WGTARR_4D(:,:,:,I) = TMPARR_4D(:,:,:,1)\n             ENDIF\n          ENDIF\n       ENDDO\n\n       ! Pass to output array. Eventually apply time weights.\n       IF ( ApplyWeights ) THEN\n          IF ( tdim == 3 ) THEN\n             ncArr(:,:,:,1) = WGTARR_4D(:,:,1,:) * weight1 &\n                            + WGTARR_4D(:,:,2,:) * weight2\n          ELSEIF ( tdim == 4 ) THEN\n             ncArr(:,:,:,1) = WGTARR_4D(:,:,:,1) * weight1 &\n                            + WGTARR_4D(:,:,:,2) * weight2\n          ENDIF\n       ELSE\n          ncArr(:,:,:,:) = TMPARR_4D(:,:,:,:)\n       ENDIF\n\n       ! Cleanup\n       DEALLOCATE(TMPARR_4D)\n       IF(ALLOCATED(WGTARR_4D)) DEALLOCATE(WGTARR_4D)\n    ENDIF\n\n    !----------------------------------------\n    ! Read 3D array:\n    ! This can be:\n    ! - lon,lat,lev\n    ! - lon,lat,time\n    ! - lon,lat,arb\n    IF ( ndims == 3 ) THEN\n\n       ! Allocate temporary array\n       s1    = lon1\n       n1    = nlon\n       s2    = lat1\n       n2    = nlat\n       tdim  = -1\n\n       ! 3rd dim:\n       ! - lev is defined:\n       IF ( nlev > 0 ) THEN\n          s3   = l1\n          n3   = nlev\n       ! - time is defined:\n       ELSEIF ( ntime > 0 ) THEN\n          n3   = nt\n          tdim = 3\n       ! - arbitrary dimension is defined:\n       ELSEIF ( arbdim > 0 ) THEN\n          s3   = arbdim\n          n3   = 1\n       ENDIF\n\n       IF ( ApplyWeights ) THEN\n          ALLOCATE ( TMPARR_3D(n1,n2,1) )\n          TMPARR_3D = 0.0\n          ALLOCATE ( WGTARR_3D(n1,n2,n3) )\n          WGTARR_3D = 0.0\n       ELSE\n          ALLOCATE ( TMPARR_3D(n1,n2,n3) )\n          TMPARR_3D = 0.0\n       ENDIF\n\n       ! Read arrays from file\n       DO I = 1, nRead\n\n          ! time index\n          IF ( tdim  == 3 ) THEN\n             IF ( .NOT. ApplyWeights ) THEN\n                s3 = time1\n                n3 = ntime\n             ELSE\n                IF ( I == 1 ) THEN\n                   s3 = time1\n                ELSE\n                   s3 = time2\n                ENDIF\n                n3 = 1\n             ENDIF\n          ENDIF\n\n          st3d = (/ s1, s2, s3 /)\n          ct3d = (/ n1, n2, n3 /)\n          CALL NcRd( TMPARR_3D, fId, TRIM(v_name), st3d, ct3d )\n\n          ! Eventually pass time weighted arrays to temporary array\n          IF ( ApplyWeights ) THEN\n           WGTARR_3D(:,:,I) = TMPARR_3D(:,:,1)\n          ENDIF\n\n       ENDDO\n\n       ! Pass to output array. Eventually apply time weights.\n       IF ( ApplyWeights ) THEN\n          ncArr(:,:,1,1) = WGTARR_3D(:,:,1) * weight1 &\n                         + WGTARR_3D(:,:,2) * weight2\n       ELSE\n          IF ( tdim == 3 ) THEN\n             ncArr(:,:,1,:) = TMPARR_3D(:,:,:)\n          ELSE\n             ncArr(:,:,:,1) = TMPARR_3D(:,:,:)\n          ENDIF\n       ENDIF\n\n       ! Cleanup\n       IF(ALLOCATED(TMPARR_3D)) DEALLOCATE(TMPARR_3D)\n       IF(ALLOCATED(WGTARR_3D)) DEALLOCATE(WGTARR_3D)\n    ENDIF\n\n    !----------------------------------------\n    ! Read a 2D array (lon and lat only):\n    IF ( ndims == 2 ) THEN\n       ALLOCATE ( TMPARR_2D( nLon, nLat ) )\n       TMPARR_2D = 0.0\n       st2d      = (/ lon1, lat1 /)\n       ct2d      = (/ nlon, nlat /)\n       CALL NcRd( TMPARR_2D, fId, TRIM(v_name), st2d, ct2d )\n       ncArr(:,:,1,1) = TMPARR_2D(:,:)\n       DEALLOCATE(TMPARR_2D)\n    ENDIF\n\n    ! ------------------------------------------\n    ! Eventually apply scale / offset factors\n    ! ------------------------------------------\n\n    ! Check for scale factor\n    a_name  = \"scale_factor\"\n    ReadAtt = Ncdoes_Attr_Exist( fId, TRIM(v_name), TRIM(a_name), a_type )\n\n    IF ( ReadAtt ) THEN\n       CALL NcGet_Var_Attributes(fId,TRIM(v_name),TRIM(a_name),corr)\n       ncArr(:,:,:,:) = ncArr(:,:,:,:) * corr\n    ENDIF\n\n    ! Check for offset factor\n    a_name  = \"add_offset\"\n    ReadAtt = Ncdoes_Attr_Exist( fId, TRIM(v_name), TRIM(a_name), a_type )\n\n    IF ( ReadAtt ) THEN\n       CALL NcGet_Var_Attributes(fId,TRIM(v_name),TRIM(a_name),corr)\n       ncArr(:,:,:,:) = ncArr(:,:,:,:) + corr\n    ENDIF\n\n    ! ------------------------------------------\n    ! Check for filling values\n    ! NOTE: Test for REAL*4 and REAL*8\n    ! ------------------------------------------\n\n    ! Define missing value\n    IF ( PRESENT(MissVal) ) THEN\n       MissValue = MissVal\n    ELSE\n       MissValue = 0.0\n    ENDIF\n\n    ! 1: 'missing_value'\n    a_name  = \"missing_value\"\n    ReadAtt = Ncdoes_Attr_Exist( fId, TRIM(v_name), TRIM(a_name), a_type )\n    IF ( ReadAtt ) THEN\n       IF ( a_type == NF90_REAL ) THEN\n          CALL NcGet_Var_Attributes( fId, TRIM(v_name), TRIM(a_name), miss4 )\n          WHERE ( ncArr == miss4 )\n             ncArr = MissValue\n          END WHERE\n       ELSE IF ( a_type == NF90_DOUBLE ) THEN\n          CALL NcGet_Var_Attributes( fId, TRIM(v_name), TRIM(a_name), miss8 )\n          miss4 = REAL( miss8 )\n          WHERE ( ncArr == miss4 )\n             ncArr = MissValue\n          END WHERE\n       ENDIF\n    ENDIF\n\n    ! 2: '_FillValue'\n    a_name  = \"_FillValue\"\n    ReadAtt = Ncdoes_Attr_Exist( fId, TRIM(v_name), TRIM(a_name), a_type )\n    IF ( ReadAtt ) THEN\n       IF ( a_type == NF90_REAL ) THEN\n          CALL NcGet_Var_Attributes( fId, TRIM(v_name), TRIM(a_name), miss4 )\n          WHERE ( ncArr == miss4 )\n             ncArr = MissValue\n          END WHERE\n       ELSE IF ( a_type == NF90_DOUBLE ) THEN\n          CALL NcGet_Var_Attributes( fId, TRIM(v_name), TRIM(a_name), miss8 )\n          miss4 = REAL( miss8 )\n          WHERE ( ncArr == miss4 )\n             ncArr = MissValue\n          END WHERE\n       ENDIF\n    ENDIF\n\n    ! ------------------------------------------\n    ! Flip z-axis if needed\n    ! ------------------------------------------\n    IF ( FlipZ ) THEN\n       ncArr(:,:,:,:) = ncArr(:,:,ncLev:1:-1,:)\n    ENDIF\n\n    ! ----------------------------\n    ! Read optional arguments\n    ! ----------------------------\n\n    ! Read units\n    IF ( PRESENT(VarUnit) )THEN\n       a_name = \"units\"\n       CALL NcGet_Var_Attributes(fId,TRIM(v_name),TRIM(a_name),a_val)\n       VarUnit = TRIM(a_val)\n\n       ! Check if the last character of VarUnit is the ASCII null character\n       ! (\"\\0\", ASCII value = 0), which is used to denote the end of a string.\n       ! The ASCII null character may be introduced if the netCDF file was\n       ! written using a language other than Fortran.  The compiler might\n       ! interpret the null character as part of the string instead of as\n       ! an empty space.  If the null space is there, then replace it with\n       ! a Fortran empty string value (''). (bmy, 7/17/18)\n       I = LEN_TRIM( VarUnit )\n       IF ( ICHAR( VarUnit(I:I) ) == 0 ) THEN\n          VarUnit(I:I) = ''\n       ENDIF\n    ENDIF\n\n    !=================================================================\n    ! Cleanup and quit\n    !=================================================================\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE NC_READ_ARR\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Read_Time_yyyymmddhhmm\n!\n! !DESCRIPTION: Returns a vector containing the datetimes (YYYYMMDDhhmm) of\n! all time slices in the netCDF file.\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_READ_TIME_YYYYMMDDhhmm( fID,              nTime,    &\n                                        all_YYYYMMDDhhmm, timeUnit, &\n                                        refYear,          RC )\n!\n! !USES:\n!\n    USE JULDAY_MOD, ONLY : JULDAY, CALDATE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   )           :: fID\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*8,           POINTER                 :: all_YYYYMMDDhhmm(:)\n    CHARACTER(LEN=*), INTENT(  OUT), OPTIONAL :: timeUnit\n    INTEGER,          INTENT(  OUT), OPTIONAL :: refYear\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)           :: nTime\n    INTEGER,          INTENT(INOUT)           :: RC\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    CHARACTER(LEN=255)  :: ncUnit, cal\n    INTEGER             :: refYr, refMt, refDy, refHr, refMn, refSc\n    INTEGER             :: T, YYYYMMDD, hhmmss\n    REAL*8              :: realrefDy, refJulday, tJulday\n\n    ! Pointers\n    REAL*8,   POINTER   :: tVec(:)\n\n    !=================================================================\n    ! NC_READ_TIME_YYYYMMDDhhmm begins here\n    !=================================================================\n\n    ! Init values\n    RC = 0\n    tVec => NULL()\n    IF ( PRESENT(TimeUnit) ) TimeUnit = ''\n    IF ( PRESENT(refYear ) ) refYear  = 0\n\n    ! Read time vector\n    CALL NC_READ_TIME ( fID,          nTime,            ncUnit,              &\n                        timeVec=tVec, timeCalendar=cal, RC=RC               )\n    IF ( RC/=0 ) THEN\n       WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n       WRITE( 6, '(a)'   ) 'Error encountered in NC_READ_TIME (ncdf_mod.F90)'\n       WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n       RETURN\n    ENDIF\n\n    ! If nTime is zero, return here!\n    IF ( nTime == 0 ) RETURN\n\n    ! Get reference date in julian days\n    CALL NC_GET_REFDATETIME ( ncUnit, refYr, refMt, &\n                              refDy,  refHr, refMn, refSc, RC )\n    IF ( RC /= 0 ) RETURN\n    realrefDy =         refDy              &\n              + ( MAX(0,refHr) / 24d0    ) &\n              + ( MAX(0,refMn) / 1440d0  ) &\n              + ( MAX(0,refSc) / 86400d0 )\n    refJulday = JULDAY ( refYr, refMt, realrefDy )\n\n    ! NOTE: It seems that there is an issue with reference dates\n    ! between 1800 and 1901: the respective time stamps all seem to\n    ! be off by one day (this problem doesn't appear for netCDF files\n    ! with reference date zero, i.e. hours since 1-1-1)!\n    ! I'm not sure what causes this problem, but adding one day to\n    ! reference dates that lie between 1600 and 1900 seems to fix the\n    ! problem.\n    ! TODO: requires more testing!\n    IF ( refYr <= 1900 .AND. refYr >= 1600 ) THEN\n       refJulday = refJulday + 1.0\n       !PRINT *, 'Reference julian day increased by one day!!!'\n    ENDIF\n\n    ! Get calendar dates\n    IF ( ASSOCIATED ( all_YYYYMMDDhhmm ) ) DEALLOCATE( all_YYYYMMDDhhmm )\n    ALLOCATE( all_YYYYMMDDhhmm(nTime) )\n    all_YYYYMMDDhhmm = 0.0d0\n\n    ! Construct julian date for every available time slice. Make sure it is\n    ! in the proper 'units', e.g. in days, hours or minutes, depending on\n    ! the reference unit.\n    DO T = 1, nTime\n       tJulDay = tVec(T)\n       IF ( refHr >= 0 ) tJulday = tJulday / 24.d0\n       IF ( refMn >= 0 ) tJulday = tJulday / 60.d0\n       IF ( refSc >= 0 ) tJulday = tJulday / 60.d0\n       tJulday = tJulday + refJulday\n       CALL CALDATE ( tJulday, YYYYMMDD, hhmmss )\n       all_YYYYMMDDhhmm(T) = ( DBLE( YYYYMMDD ) * 1d4   ) + &\n                             ( DBLE( hhmmss     / 100 ) )\n    ENDDO\n\n    ! Cleanup\n    IF ( ASSOCIATED( tVec ) ) DEALLOCATE( tVec )\n\n    ! Return\n    IF ( PRESENT(timeUnit) ) timeUnit = ncUnit\n    IF ( PRESENT(refYear ) ) refYear  = refYr\n    RC = 0\n\n  END SUBROUTINE NC_READ_TIME_YYYYMMDDhhmm\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_RefDateTime\n!\n! !DESCRIPTION: Returns the reference datetime (tYr / tMt / tDy / tHr /\n! tMn ) of the provided time unit. For now, supported formats are\n! \"days since YYYY-MM-DD\", \"hours since YYYY-MM-DD HH:MM:SS\", and\n! \"minutes since YYYY-MM-DD HH:NN:SS\". For times in days since refdate,\n! the returned reference hour rHr is set to -1. The same applies for the\n! reference minute for units in days / hours since XXX.\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_REFDATETIME( tUnit, tYr, tMt, tDy, tHr, tMn, tSc, RC )\n!\n! !USES:\n!\n    USE CHARPAK_MOD, ONLY : TRANLC\n!\n! !INPUT PARAMETERS:\n!\n    ! Required\n    CHARACTER(LEN=*), INTENT( IN)    :: tUnit\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(OUT)    :: tYr\n    INTEGER,          INTENT(OUT)    :: tMt\n    INTEGER,          INTENT(OUT)    :: tDy\n    INTEGER,          INTENT(OUT)    :: tHr\n    INTEGER,          INTENT(OUT)    :: tMn\n    INTEGER,          INTENT(OUT)    :: tSc\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT)  :: RC\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)    :: LOC, MSG\n    CHARACTER(LEN=255)    :: MIRRUNIT\n    INTEGER               :: TTYPE, STAT, L1, L2\n    INTEGER               :: MINLEN, STRLEN, I\n\n    !=================================================================\n    ! NC_GET_REFDATETIME starts here\n    !=================================================================\n\n    ! Init\n    LOC = 'NC_GET_REFDATETIME (ncdf_mod.F)'\n\n    ! ----------------------------------------------------------------------\n    ! Determine time unit type\n    ! ----------------------------------------------------------------------\n\n    ! Mirror time unit and convert to lower case\n    MIRRUNIT = tUnit\n    CALL TRANLC( MIRRUNIT )\n\n    ! Check for reference time unit '(days, hours, minutes) since ...'\n    ! Set beginning of reference date according to the unit and define\n    ! minimum string length required by unit.\n\n    ! 'days since YYYY-M-D'\n    IF ( MIRRUNIT(1:10) == 'days since' ) THEN\n       TTYPE  = 1\n       L1     = 12\n       MINLEN = 19\n\n    ! 'hours since YYYY-M-D h:m:s'\n    ELSEIF ( MIRRUNIT(1:11) == 'hours since' ) THEN\n       TTYPE  = 2\n       L1     = 13\n       MINLEN = 26\n\n    ! 'minutes since YYYY-M-D h:m:s'\n    ELSEIF ( MIRRUNIT(1:13) == 'minutes since' ) THEN\n       TTYPE  = 3\n       L1     = 15\n       MINLEN = 28\n\n    ! 'seconds since YYYY-M-D h:m:s'\n    ELSEIF ( MIRRUNIT(1:13) == 'seconds since' ) THEN\n       TTYPE  = 4\n       L1     = 15\n       MINLEN = 28\n\n    ! Return w/ error otherwise\n    ELSE\n       PRINT *, 'Invalid time unit: ' // TRIM(tUnit)\n       RC = -999; RETURN\n    ENDIF\n\n    ! Check if time string is long enough or not\n    STRLEN = LEN(tUnit)\n    IF ( STRLEN < MINLEN ) THEN\n       PRINT *, 'Time unit string too short: ' // TRIM(tUnit)\n       RC = -999; RETURN\n    ENDIF\n\n    ! ----------------------------------------------------------------------\n    ! Determine reference time/date\n    ! Get the year, month, day and hour from the string\n    ! '... since YYYY-MM-DD hh:mm:ss\n\n    ! Read reference year, i.e. from beginning of date string until\n    ! first separator sign (-).\n    DO I=L1,STRLEN\n       IF(tUnit(I:I) == '-') EXIT\n    ENDDO\n    L2 = I-1\n\n    READ( tUnit(L1:L2),'(i4)', IOSTAT=STAT ) tYr\n    IF ( STAT /= 0 ) THEN\n       PRINT *, 'Invalid year in ' // TRIM(tUnit)\n       RC = -999; RETURN\n    ENDIF\n\n    ! Advance in date string: now read reference month.\n    L1 = L2 + 2\n    DO I=L1,STRLEN\n       IF(tUnit(I:I) == '-') EXIT\n    ENDDO\n    L2 = I-1\n    READ( tUnit(L1:L2), '(i2)', IOSTAT=STAT ) tMt\n    IF ( STAT /= 0 ) THEN\n       PRINT *, 'Invalid month in ' // TRIM(tUnit)\n       RC = -999; RETURN\n    ENDIF\n\n    ! Advance in date string: now read reference day.\n    L1 = L2 + 2\n    DO I=L1,STRLEN\n       IF(tUnit(I:I) == ' ') EXIT\n    ENDDO\n    L2 = I-1\n    READ( tUnit(L1:L2), '(i2)', IOSTAT=STAT ) tDy\n    IF ( STAT /= 0 ) THEN\n       PRINT *, 'Invalid day in ' // TRIM(tUnit)\n       RC = -999; RETURN\n    ENDIF\n\n    ! Get reference hour only if 'hours/minutes/seconds since'.\n    IF ( TTYPE > 1 ) THEN\n\n       ! Reference hour\n       L1 = L2 + 2\n       DO I=L1,STRLEN\n          IF(tUnit(I:I) == ':') EXIT\n       ENDDO\n       L2 = I-1\n       READ( tUnit(L1:L2), '(i2)', IOSTAT=STAT ) tHr\n       IF ( STAT /= 0 ) THEN\n          PRINT *, 'Invalid hour in ', TRIM(tUnit)\n          RC = -999; RETURN\n       ENDIF\n\n    ELSE\n       ! Set reference hour to -1\n       tHr = -1\n    ENDIF\n\n    ! Get reference minute only if 'minutes since...'\n    IF ( TTYPE>2 ) THEN\n\n       ! Reference minute\n       L1 = L2 + 2\n       DO I=L1,STRLEN\n          IF(tUnit(I:I) == ':') EXIT\n       ENDDO\n       L2 = I-1\n       READ( tUnit(L1:L2), '(i2)', IOSTAT=STAT ) tMn\n       IF ( STAT /= 0 ) THEN\n          PRINT *, 'Invalid minute in ', TRIM(tUnit)\n          RC = -999; RETURN\n       ENDIF\n\n    ELSE\n       ! Set reference minute to -1\n       tMn = -1\n    ENDIF\n\n    ! Get reference minute only if 'seconds since...'\n    IF ( TTYPE>3 ) THEN\n\n       ! Reference second\n       L1 = L2 + 2\n       DO I=L1,STRLEN\n          IF(tUnit(I:I) == ':') EXIT\n       ENDDO\n       L2 = I-1\n       READ( tUnit(L1:L2), '(i2)', IOSTAT=STAT ) tSc\n       IF ( STAT /= 0 ) THEN\n          PRINT *, 'Invalid second in ', TRIM(tUnit)\n          RC = -999; RETURN\n       ENDIF\n\n    ELSE\n       ! Set reference second to -1\n       tSc = -1\n    ENDIF\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE NC_GET_REFDATETIME\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Tidx\n!\n! !DESCRIPTION: Routine GET\\_TIDX returns the index with the specified time\n! for a given time vector.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GET_TIDX( TDIM, TIMEVEC,  TTYPE, TOFFSET, &\n                       YEAR, MONTH,    DAY,   HOUR,    &\n                       TIDX, TDIMREAD, RC )\n!\n! !INPUT PARAMETERS:\n!\n    ! Required\n    INTEGER, INTENT(   IN)           :: TDIM\n    INTEGER, INTENT(   IN)           :: TTYPE\n    REAL*8,  INTENT(   IN)           :: TOFFSET\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(INOUT)           :: TIMEVEC(TDIM)\n    INTEGER, INTENT(INOUT)           :: YEAR\n    INTEGER, INTENT(INOUT)           :: MONTH\n    INTEGER, INTENT(INOUT)           :: DAY\n    INTEGER, INTENT(INOUT)           :: HOUR\n    INTEGER, INTENT(INOUT)           :: RC\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(  OUT)           :: TIDX\n    INTEGER, INTENT(  OUT)           :: TDIMREAD\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER                :: II, iiDiff, minDiff\n    REAL*8                 :: TAU\n    CHARACTER(LEN=255)     :: MSG, LOC\n\n    !=================================================================\n    ! GET_TIDX starts here\n    !=================================================================\n\n    ! Init\n    LOC = 'GET_TIDX (ncdf_mod.F)'\n    TIDX = 0\n    minDiff = -999\n\n    !-----------------------------------------------------------------\n    ! If year is given, compare netcdf-tau against desired tau\n    !-----------------------------------------------------------------\n    IF ( YEAR > 0 ) THEN\n\n       ! Restrict month, day and hour to valid values\n       MONTH = MIN ( MAX( 1, MONTH ), 12 )\n       DAY   = MIN ( MAX( 1, DAY   ), 31 )\n       HOUR  = MIN ( MAX( 0, HOUR  ), 23 )\n\n       ! Read desired tau => hours relative to G-C reference time\n       TAU = GET_TAU0( MONTH, DAY, YEAR, HOUR )\n\n       ! Convert to 'hours since ...' if unit is 'days since ...'\n       IF ( TTYPE == 2 ) THEN\n          TIMEVEC(:) = TIMEVEC(:) * 24\n       ENDIF\n\n       ! Convert time stamps to hours since G-C reference time\n       TIMEVEC(:) = TIMEVEC(:) + INT(TOFFSET)\n\n       ! Compare wanted tau to tau's of ncdf-file.\n       ! Loop over all time stamps and check which one is closest\n       ! to the specified one. Print a warning if time stamps don't\n       ! match!\n       DO II = 1, TDIM\n\n          ! Difference between time stamps\n          iiDiff = ABS( TIMEVEC(II) - INT(TAU) )\n\n          ! Check if this is closest time stamp so far, and save this\n          ! index and difference\n          IF ( iiDiff < minDiff .OR. II == 1 ) THEN\n             minDiff = iiDiff\n             TIDX    = II\n          ENDIF\n\n          ! Exit loop if difference is zero\n          IF ( minDiff == 0 ) EXIT\n\n       ENDDO\n\n       ! Warning if time stamps did not match\n       IF ( minDiff /= 0 ) THEN\n          PRINT *, 'In NCDF_MOD: Time stamp not found ' // &\n                   'take closest timestamp!'\n       ENDIF\n\n       ! Set number of time stamps to be read to 1\n       TDIMREAD = 1\n\n    !-----------------------------------------------------------------\n    ! If only month is given, assume netCDF file to contain monthly\n    ! data and pick the desired month.\n    !-----------------------------------------------------------------\n    ELSEIF ( MONTH > 0 ) THEN\n\n       ! Check if it's indeed monthly data:\n       IF ( TDIM /= 12 ) THEN\n          PRINT *, 'Array is not monthly '\n          RC = -999; RETURN\n       ENDIF\n\n       ! Set time index to specified month\n       TIDX = MONTH\n\n       ! Set number of time stamps to be read to 1\n       TDIMREAD = 1\n\n    !-----------------------------------------------------------------\n    ! If hour is given, assume netCDF file to contain hourly data\n    ! and pick the desired hour.\n    !-----------------------------------------------------------------\n    ELSEIF ( HOUR >= 0 ) THEN\n\n       ! Check if it's indeed hourly data:\n       IF ( TDIM /= 24 ) THEN\n          PRINT *, 'Array is not hourly'\n          RC = -999; RETURN\n       ENDIF\n\n       ! Set time index to specified hour (+1 since hour 0 is idx 1)\n       TIDX = HOUR + 1\n\n       ! Set number of time stamps to be read to 1\n       TDIMREAD = 1\n\n    !-----------------------------------------------------------------\n    ! Otherwise, read all time dimensions\n    !-----------------------------------------------------------------\n    ELSE\n       TIDX     = 1\n       TDIMREAD = TDIM\n    ENDIF\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE GET_TIDX\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: TimeUnit_Check\n!\n! !DESCRIPTION: Makes a validity check of the passed unit string.\n! Supported formats are \"days since YYYY-MM-DD\" (TIMETYPE=1) and\n! \"hours since YYYY-MM-DD HH:MM:SS\" (TIMETYPE=2).\n!\\\\\n!\\\\\n! The output argument TOFFSET gives the offset of the ncdf reference\n! time relative to Geos-Chem reference time (in hours).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE TIMEUNIT_CHECK( TIMEUNIT, TIMETYPE, TOFFSET, FILENAME, RC )\n!\n! !USES:\n!\n    USE CHARPAK_MOD, ONLY : TRANLC\n!\n! !INPUT PARAMETERS:\n!\n    ! Required\n    CHARACTER(LEN=*), INTENT(IN  )  :: TIMEUNIT\n    CHARACTER(LEN=*), INTENT(IN  )  :: FILENAME\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(  OUT) :: TIMETYPE\n    REAL*8,           INTENT(  OUT) :: TOFFSET\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: RC\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    CHARACTER(LEN=255)    :: LOC, MSG\n    CHARACTER(LEN=255)    :: MIRRUNIT\n    INTEGER               :: STAT, L1, L2\n    INTEGER               :: TTYPE\n    INTEGER               :: YYYY, MM, DD, HH\n    INTEGER               :: STRLEN\n\n    !=================================================================\n    ! TIMEUNIT_CHECK starts here\n    !=================================================================\n\n    ! Init\n    LOC = 'TIMEUNIT_CHECK (ncdf_mod.F)'\n\n    ! Check length of time unit string. This must be at least 21\n    ! (\"days since YYYY:MM:DD\" is of length 21)\n    STRLEN = LEN(TIMEUNIT)\n    IF ( STRLEN < 21 ) THEN\n       PRINT *, 'Time unit string too short: ' // TRIM(FILENAME)\n       RC = -999; RETURN\n    ENDIF\n\n    ! ----------------------------------------------------------------------\n    ! Determine time unit type\n    ! ----------------------------------------------------------------------\n\n    ! Mirror time unit and convert to lower case\n    MIRRUNIT = TIMEUNIT\n    CALL TRANLC( MIRRUNIT )\n\n    ! Check for 'hours since'. If true, set TTYPE to 1 and set the\n    ! begin of the effective date string to 12. Also check if the time\n    ! string is at least of length 25, which is required for this\n    ! unit.\n    IF ( MIRRUNIT(1:11) == 'hours since' ) THEN\n       TTYPE = 1\n       L1    = 13\n       IF ( STRLEN < 25 ) THEN\n          PRINT *, 'Time unit string too short: ' // TRIM(FILENAME)\n          RC = -999; RETURN\n       ENDIF\n\n    ! Check for 'days since'. If true, set TTYPE to 2 and set the\n    ! begin of the effective date string to 11.\n    ELSEIF ( MIRRUNIT(1:10) == 'days since' ) THEN\n       TTYPE = 2\n       L1    = 12\n    ELSE\n       ! Return w/ error\n       PRINT *, 'Invalid time unit in', TRIM(FILENAME)\n       RC = -999; RETURN\n    ENDIF\n\n    ! ----------------------------------------------------------------------\n    ! Determine reference time/date\n    ! Get the year, month, day and hour from the string\n    ! '... since YYYY-MM-DD hh:mm:ss\n    ! ----------------------------------------------------------------------\n\n    ! Read reference year, i.e. first four integers\n    L2 = L1 + 3\n    READ( TIMEUNIT(L1:L2),'(i4)', IOSTAT=STAT ) YYYY\n    IF ( STAT /= 0 ) THEN\n       PRINT *, 'Invalid year in ', TRIM(TIMEUNIT), &\n            ' in file'             , TRIM(FILENAME)\n       RC = -999; RETURN\n    ENDIF\n\n    ! Read reference month. Typically, the month is represented by\n    ! two characters, i.e. 1 is 01, etc.\n    L1 = L2 + 2\n    L2 = L1 + 1\n    READ( TIMEUNIT(L1:L2), '(i2)', IOSTAT=STAT ) MM\n    ! Also check for the case where the month is only one character:\n    IF ( STAT /= 0 ) THEN\n       L2 = L1\n       READ( TIMEUNIT(L1:L2), '(i2)', IOSTAT=STAT ) MM\n       IF ( STAT /= 0 ) THEN\n          PRINT *, 'Invalid month in ', TRIM(TIMEUNIT), &\n                   ' in file'         , TRIM(FILENAME)\n          RC = -999; RETURN\n       ENDIF\n    ENDIF\n\n    ! Reference day. Typically, the day is represented by two\n    ! characters, i.e. 1 is 01, etc.\n    L1 = L2 + 2\n    L2 = L1 + 1\n    READ( TIMEUNIT(L1:L2), '(i2)', IOSTAT=STAT ) DD\n    ! Also check for the case where the day is only one character:\n    IF ( STAT /= 0 ) THEN\n       L2 = L1\n       READ( TIMEUNIT(L1:L2), '(i2)', IOSTAT=STAT ) DD\n       IF ( STAT /= 0 ) THEN\n          PRINT *, 'Invalid day in ', TRIM(TIMEUNIT), &\n                   ' in file'       , TRIM(FILENAME)\n          RC = -999; RETURN\n       ENDIF\n    ENDIF\n\n    ! Get reference hour only if 'hours since...'\n    IF ( TTYPE == 1 ) THEN\n\n       ! Reference hour\n       L1 = L2 + 2\n       L2 = L1 + 1\n       READ( TIMEUNIT(L1:L2), '(i2)', IOSTAT=STAT ) HH\n       IF ( STAT /= 0 ) THEN\n          L2 = L1\n          READ( TIMEUNIT(L1:L2), '(i2)', IOSTAT=STAT ) HH\n          IF ( STAT /= 0 ) THEN\n             PRINT *, 'Invalid hour in ', TRIM(TIMEUNIT), &\n                      ' in file'            , TRIM(FILENAME)\n             RC = -999; RETURN\n          ENDIF\n       ENDIF\n\n    ELSE\n       ! Set reference hour to 0\n       HH = 0\n\n    ENDIF\n\n    ! Get reference tau relative to G-C reference time, i.e. the\n    ! offset of the netCDF reference time to the G-C reference time.\n    ! This is hours since G-C reftime.\n    TOFFSET = GET_TAU0( MM, DD, YYYY, HH )\n\n    ! Remove one day if TOFFSET is negative, i.e. if the netCDF\n    ! reference time is older than G-C reference time. We have to do\n    ! this because GET_TAU0 does count the last day in this case!\n    IF ( TOFFSET < 0d0 ) THEN\n       TOFFSET = TOFFSET + 24d0\n    ENDIF\n\n    ! Output argument\n    TIMETYPE = TTYPE\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE TIMEUNIT_CHECK\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Grid_Edges_Sp\n!\n! !DESCRIPTION: Routine to get the longitude or latitude edges. If the edge\n! cannot be read from the netCDF file, they are calculated from the provided\n! grid midpoints. Use the axis input argument to discern between longitude\n! (axis 1) and latitude (axis 2).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_GRID_EDGES_SP( fID, AXIS, MID, NMID, EDGE, NEDGE, RC )\n!\n! !USES:\n!\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    INTEGER,          INTENT(IN   ) :: AXIS            ! 1=lon, 2=lat\n    REAL*4,           INTENT(IN   ) :: MID(NMID)       ! midpoints\n    INTEGER,          INTENT(IN   ) :: NMID            ! # of midpoints\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*4,           POINTER       :: EDGE(:)         ! edges\n    INTEGER,          INTENT(INOUT) :: NEDGE           ! # of edges\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !======================================================================\n    ! NC_GET_GRID_EDGES_SP begins here\n    !======================================================================\n\n    CALL NC_GET_GRID_EDGES_C( fID, AXIS, NMID, NEDGE, RC, &\n                              MID4=MID,  EDGE4=EDGE )\n\n  END SUBROUTINE NC_GET_GRID_EDGES_SP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Grid_Edges_Dp\n!\n! !DESCRIPTION: Routine to get the longitude or latitude edges. If the edge\n! cannot be read from the netCDF file, they are calculated from the provided\n! grid midpoints. Use the axis input argument to discern between longitude\n! (axis 1) and latitude (axis 2).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_GRID_EDGES_DP( fID, AXIS, MID, NMID, EDGE, NEDGE, RC )\n!\n! !USES:\n!\n    IMPLICIT NONE\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    INTEGER,          INTENT(IN   ) :: AXIS            ! 1=lon, 2=lat\n    REAL*8,           INTENT(IN   ) :: MID(NMID)       ! midpoints\n    INTEGER,          INTENT(IN   ) :: NMID            ! # of midpoints\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*8,           POINTER       :: EDGE(:)         ! edges\n    INTEGER,          INTENT(INOUT) :: NEDGE           ! # of edges\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !======================================================================\n    ! NC_GET_GRID_EDGES_DP begins here\n    !======================================================================\n\n    CALL NC_GET_GRID_EDGES_C( fID, AXIS, NMID, NEDGE, RC, &\n                              MID8=MID,  EDGE8=EDGE )\n\n  END SUBROUTINE NC_GET_GRID_EDGES_DP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Grid_Edges_C\n!\n! !DESCRIPTION: Routine to get the longitude or latitude edges. If the edge\n! cannot be read from the netCDF file, they are calculated from the provided\n! grid midpoints. Use the axis input argument to discern between longitude\n! (axis 1) and latitude (axis 2).\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_GRID_EDGES_C( fID, AXIS, NMID, NEDGE, RC, &\n                                  MID4, MID8, EDGE4, EDGE8 )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    INTEGER,          INTENT(IN   ) :: AXIS            ! 1=lon, 2=lat\n    REAL*4, OPTIONAL, INTENT(IN   ) :: MID4(NMID)       ! midpoints\n    REAL*8, OPTIONAL, INTENT(IN   ) :: MID8(NMID)       ! midpoints\n    INTEGER,          INTENT(IN   ) :: NMID            ! # of midpoints\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*4, OPTIONAL, POINTER       :: EDGE4(:)         ! edges\n    REAL*8, OPTIONAL, POINTER       :: EDGE8(:)         ! edges\n    INTEGER,          INTENT(INOUT) :: NEDGE           ! # of edges\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL              :: PoleMid\n    INTEGER              :: I, AS\n    CHARACTER(LEN=255)   :: ncVar, ThisUnit\n\n    !======================================================================\n    ! NC_GET_GRID_EDGES_DP begins here\n    !======================================================================\n\n    ! Error trap: edge and mid must be same kind\n    IF ( PRESENT(EDGE4) ) THEN\n       IF ( .NOT. PRESENT(MID4) ) THEN\n          PRINT *, 'If you provide EDGE4, you must also provide MID4'\n          RC = -999\n          RETURN\n       ENDIF\n    ELSEIF ( PRESENT(EDGE8) ) THEN\n       IF ( .NOT. PRESENT(MID8) ) THEN\n          PRINT *, 'If you provide EDGE8, you must also provide MID8'\n          RC = -999\n          RETURN\n       ENDIF\n    ELSE\n       PRINT *, 'EDGE4 or EDGE8 must be given'\n       RC = -999\n       RETURN\n    ENDIF\n\n    ! Try to read edges from ncdf file\n    IF ( AXIS == 1 ) THEN\n       ncVar = 'lon_edge'\n    ELSEIF ( AXIS == 2 ) THEN\n       ncVar = 'lat_edge'\n    ENDIF\n\n    IF ( PRESENT(EDGE4) ) THEN\n       CALL NC_READ_VAR( fID, TRIM(ncVar), nEdge, ThisUnit, Edge4, RC )\n    ELSE\n       CALL NC_READ_VAR( fID, TRIM(ncVar), nEdge, ThisUnit, Edge8, RC )\n    ENDIF\n    IF ( RC /= 0 ) RETURN\n\n    ! Also try 'XXX_edges'\n    IF ( nEdge == 0 ) THEN\n       IF ( AXIS == 1 ) THEN\n          ncVar = 'lon_edges'\n       ELSEIF ( AXIS == 2 ) THEN\n          ncVar = 'lat_edges'\n       ENDIF\n       IF ( PRESENT(EDGE4) ) THEN\n          CALL NC_READ_VAR( fID, 'lon_edges', nEdge, ThisUnit, Edge4, RC )\n       ELSE\n          CALL NC_READ_VAR( fID, 'lon_edges', nEdge, ThisUnit, Edge8, RC )\n       ENDIF\n       IF ( RC /= 0 ) RETURN\n    ENDIF\n\n    ! Sanity check if edges are read from files: dimension must be nlon + 1!\n    IF ( nEdge > 0 ) THEN\n       IF ( nEdge /= (nMid + 1) ) THEN\n          PRINT *, 'Edge has incorrect length!'\n          RC = -999; RETURN\n       ENDIF\n\n    ! If not read from file, calculate from provided lon midpoints.\n    ELSE\n\n       nEdge = nMid + 1\n       IF ( PRESENT(EDGE4) ) THEN\n          IF ( ASSOCIATED ( Edge4 ) ) DEALLOCATE( Edge4 )\n          ALLOCATE ( Edge4(nEdge), STAT=AS )\n          IF ( AS /= 0 ) THEN\n             PRINT *, 'Edge alloc. error in NC_GET_LON_EDGES (ncdf_mod.F90)'\n             RC = -999; RETURN\n          ENDIF\n          Edge4 = 0.0\n       ELSE\n          IF ( ASSOCIATED ( Edge8 ) ) DEALLOCATE( Edge8 )\n          ALLOCATE ( Edge8(nEdge), STAT=AS )\n          IF ( AS /= 0 ) THEN\n             PRINT *, 'Edge alloc. error in NC_GET_LON_EDGES (ncdf_mod.F90)'\n             RC = -999; RETURN\n          ENDIF\n          Edge8 = 0.0d0\n       ENDIF\n\n       ! Get leftmost edge by extrapolating from first two midpoints.\n       ! Error trap: for latitude axis, first edge must not be below -90!\n       IF ( PRESENT(EDGE4) ) THEN\n          Edge4(1) = Mid4(1) - ( (Mid4(2) - Mid4(1) ) / 2.0 )\n          IF ( Edge4(1) < -90.0 .AND. AXIS == 2 ) Edge4(1) = -90.0\n       ELSE\n          Edge8(1) = Mid8(1) - ( (Mid8(2) - Mid8(1) ) / 2.0d0 )\n          IF ( Edge8(1) < -90.0d0 .AND. AXIS == 2 ) Edge8(1) = -90.0d0\n       ENDIF\n\n       ! Calculate second edge. We need to catch the case where the first\n       ! latitude mid-point is -90 (this is the case for GEOS-5 generic\n       ! grids...). In that case, the second edge is put in the middle of\n       ! the first two mid points (e.g. between -90 and -89). In all other\n       ! case, we calculate it from the previously calculated left edge.\n       IF ( PRESENT(EDGE4) ) THEN\n          IF ( Mid4(1) == Edge4(1) ) THEN\n             Edge4(2) = Mid4(1) + ( Mid4(2) - Mid4(1) ) / 2.0\n             PoleMid  = .TRUE.\n          ELSE\n             Edge4(2) = Mid4(1) + Mid4(1) - Edge4(1)\n             PoleMid  = .FALSE.\n          ENDIF\n\n          ! Sequentially calculate the right edge from the previously\n          ! calculated left edge.\n          DO I = 2, nMid\n             Edge4(I+1) = Mid4(I) + Mid4(I) - Edge4(I)\n          ENDDO\n\n          ! Error check: max. lat edge must not exceed +90!\n          IF ( Edge4(nMId+1) > 90.01 .AND. AXIS == 2 ) THEN\n             IF ( PoleMid ) THEN\n                Edge4(nMid+1) = 90.0\n             ELSE\n                PRINT *, 'Uppermost latitude edge above 90 deg north!'\n                PRINT *, Edge4\n                RC = -999; RETURN\n             ENDIF\n          ENDIF\n\n       ! Real8\n       ELSE\n          IF ( Mid8(1) == Edge8(1) ) THEN\n             Edge8(2) = Mid8(1) + ( Mid8(2) - Mid8(1) ) / 2.0d0\n             PoleMid  = .TRUE.\n          ELSE\n             Edge8(2) = Mid8(1) + Mid8(1) - Edge8(1)\n             PoleMid  = .FALSE.\n          ENDIF\n\n          ! Sequentially calculate the right edge from the previously\n          ! calculated left edge.\n          DO I = 2, nMid\n             Edge8(I+1) = Mid8(I) + Mid8(I) - Edge8(I)\n          ENDDO\n\n          ! Error check: max. lat edge must not exceed +90!\n          IF ( Edge8(nMId+1) > 90.01d0 .AND. AXIS == 2 ) THEN\n             IF ( PoleMid ) THEN\n                Edge8(nMid+1) = 90.0d0\n             ELSE\n                PRINT *, 'Uppermost latitude edge above 90 deg north!'\n                PRINT *, Edge8\n                RC = -999; RETURN\n             ENDIF\n          ENDIF\n       ENDIF\n    ENDIF\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE NC_GET_GRID_EDGES_C\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Sigma_Levels_Sp\n!\n! !DESCRIPTION: Wrapper routine to get the sigma levels in single precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_SIGMA_LEVELS_SP( fID,  ncFile, levName, lon1, lon2, lat1, &\n                                     lat2, lev1,   lev2,    time, SigLev, dir, RC )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    CHARACTER(LEN=*), INTENT(IN   ) :: ncFile          ! ncFile\n    CHARACTER(LEN=*), INTENT(IN   ) :: levName         ! variable name\n    INTEGER,          INTENT(IN   ) :: lon1            ! lon lower bound\n    INTEGER,          INTENT(IN   ) :: lon2            ! lon upper bound\n    INTEGER,          INTENT(IN   ) :: lat1            ! lat lower bound\n    INTEGER,          INTENT(IN   ) :: lat2            ! lat upper bound\n    INTEGER,          INTENT(IN   ) :: lev1            ! lev lower bound\n    INTEGER,          INTENT(IN   ) :: lev2            ! lev upper bound\n    INTEGER,          INTENT(IN   ) :: time            ! time index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*4,           POINTER       :: SigLev(:,:,:)   ! sigma levels\n    INTEGER,          INTENT(INOUT) :: dir             ! axis direction (1=up;-1=down)\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  CALL NC_GET_SIGMA_LEVELS_C( fID,  ncFile, levName, lon1, lon2, lat1, &\n                              lat2, lev1,   lev2,    time, dir,  RC,   &\n                              SigLev4=SigLev )\n\n  END SUBROUTINE NC_GET_SIGMA_LEVELS_SP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Sigma_Levels_Dp\n!\n! !DESCRIPTION: Wrapper routine to get the sigma levels in double precision.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_SIGMA_LEVELS_DP( fID,  ncFile, levName, lon1, lon2, lat1, &\n                                     lat2, lev1,   lev2,    time, SigLev, dir, RC )\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    CHARACTER(LEN=*), INTENT(IN   ) :: ncFile          ! ncFile\n    CHARACTER(LEN=*), INTENT(IN   ) :: levName         ! variable name\n    INTEGER,          INTENT(IN   ) :: lon1            ! lon lower bound\n    INTEGER,          INTENT(IN   ) :: lon2            ! lon upper bound\n    INTEGER,          INTENT(IN   ) :: lat1            ! lat lower bound\n    INTEGER,          INTENT(IN   ) :: lat2            ! lat upper bound\n    INTEGER,          INTENT(IN   ) :: lev1            ! lev lower bound\n    INTEGER,          INTENT(IN   ) :: lev2            ! lev upper bound\n    INTEGER,          INTENT(IN   ) :: time            ! time index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*8,           POINTER       :: SigLev(:,:,:)   ! sigma levels\n    INTEGER,          INTENT(INOUT) :: dir             ! axis direction (1=up;-1=down)\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n  CALL NC_GET_SIGMA_LEVELS_C( fID,  ncFile, levName, lon1, lon2, lat1, &\n                              lat2, lev1,   lev2,    time, dir,  RC,   &\n                              SigLev8=SigLev )\n\n  END SUBROUTINE NC_GET_SIGMA_LEVELS_DP\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Sigma_Levels_C\n!\n! !DESCRIPTION: Routine to get the sigma levels from the netCDF file\n! within the given grid bounds and for the given time index. This routine\n! attempts to construct the 3D sigma values from provided variable levName.\n! The vertical coordinate system is determined based upon the variable\n! attribute \"standard\\_name\".\n!\\\\\n!\\\\\n! For now, only hybrid sigma coordinate systems are supported, and the\n! standard\\_name attribute must follow CF conventions and be set to\n! \"atmosphere\\_hybrid\\_sigma\\_pressure\\_coordinate\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_SIGMA_LEVELS_C( fID,  ncFile, levName, lon1, lon2, lat1, &\n                                    lat2, lev1,   lev2,    time, dir,  RC,   &\n                                    SigLev4, SigLev8 )\n!\n! !USES:\n!\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    CHARACTER(LEN=*), INTENT(IN   ) :: ncFile          ! ncFile\n    CHARACTER(LEN=*), INTENT(IN   ) :: levName         ! variable name\n    INTEGER,          INTENT(IN   ) :: lon1            ! lon lower bound\n    INTEGER,          INTENT(IN   ) :: lon2            ! lon upper bound\n    INTEGER,          INTENT(IN   ) :: lat1            ! lat lower bound\n    INTEGER,          INTENT(IN   ) :: lat2            ! lat upper bound\n    INTEGER,          INTENT(IN   ) :: lev1            ! lev lower bound\n    INTEGER,          INTENT(IN   ) :: lev2            ! lev upper bound\n    INTEGER,          INTENT(IN   ) :: time            ! time index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(  OUT) :: dir             ! axis direction (1=up;-1=down)\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n    REAL*4, OPTIONAL, POINTER       :: SigLev4(:,:,:)  ! sigma levels w/in\n    REAL*8, OPTIONAL, POINTER       :: SigLev8(:,:,:)  ! specified boundaries\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL            :: found\n    INTEGER            :: a_type    ! netCDF attribute type\n\n    ! Straings\n    CHARACTER(LEN=255) :: stdname\n    CHARACTER(LEN=255) :: a_name    ! netCDF attribute name\n    CHARACTER(LEN=255) :: a_val     ! netCDF attribute value\n\n    !========================================================================\n    ! NC_GET_SIGMA_LEVELS begins here\n    !========================================================================\n\n    ! Initialize\n    RC = 0\n\n    !------------------------------------------------------------------------\n    ! Test that the level index variable exists\n    !------------------------------------------------------------------------\n    found = Ncdoes_Var_Exist( fID, TRIM(levName) )\n    IF ( .not. found ) THEN\n       WRITE(*,*) 'Cannot find level variable ',                             &\n                  TRIM(levName), ' in ', TRIM(ncFile), '!'\n       RC = -999\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Look for the \"standard_name\" or \"long_name\" attribute,\n    ! which will be used to identify the vertical coordinate\n    !------------------------------------------------------------------------\n\n    ! First look for \"standard_name\"\n    a_name = \"standard_name\"\n    found  = NcDoes_Attr_Exist( fId, TRIM(levName), TRIM(a_name), a_type )\n\n    ! If not found, then look for \"long_name\"\n    IF ( .not. found ) THEN\n       a_name = \"long_name\"\n       found  = NcDoes_Attr_Exist( fId, TRIM(levName), TRIM(a_name), a_type )\n\n       ! If neither attribute is found, then exit with error\n       IF ( .not. found ) THEN\n          WRITE(*,*) 'Cannot find level attribute ', TRIM(a_name),           &\n               ' in variable ', TRIM(levName), ' - File: ', TRIM(ncFile), '!'\n          RC = -999\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Read the \"standard_name\" or \"long_name\" attribute (whichever is found)\n    CALL NcGet_Var_Attributes( fID, TRIM(levName), TRIM(a_name), a_val )\n\n    !------------------------------------------------------------------------\n    ! Call functions to calculate sigma levels depending on the coordinate\n    ! system.\n    !------------------------------------------------------------------------\n    IF ( TRIM(a_val) == 'atmosphere_hybrid_sigma_pressure_coordinate' ) THEN\n\n       IF ( PRESENT( SigLev4 ) ) THEN\n\n          ! Return 4-byte real array\n          CALL NC_GET_SIG_FROM_HYBRID( fID,  levName, lon1, lon2,            &\n                                       lat1, lat2,    lev1, lev2,            &\n                                       time, dir,     RC,   SigLev4=SigLev4 )\n       ELSE IF ( PRESENT( SigLev8 ) ) THEN\n\n          ! Return 8-byte real array\n          CALL NC_GET_SIG_FROM_HYBRID( fID,  levName, lon1, lon2,            &\n                                       lat1, lat2,    lev1, lev2,            &\n                                       time,  dir,    RC,   SigLev8=SigLev8 )\n       ELSE\n\n          ! Othrwise exit with error\n          WRITE(*,*) 'SigLev array is missing!'\n          RC = -999\n          RETURN\n       ENDIF\n       IF ( RC /= 0 ) RETURN\n\n    ELSE\n\n       ! NOTE: for now, only hybrid sigma coordinates are supported!\n       ! So exit with error if we get this far\n       WRITE(*,*) 'Invalid level standard name: ', TRIM(stdname),            &\n            ' in ', TRIM(ncFile)\n       RC = -999\n       RETURN\n    ENDIF\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE NC_GET_SIGMA_LEVELS_C\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Get_Sig_From_Hybrid\n!\n! !DESCRIPTION: Calculates the sigma level field for a hybrid sigma coordinate\n! system:\n!\n! sigma(i,j,l,t) = ( a(l) * p0 + b(l) * ps(i,j,t) ) / ps(i,j,t)\n!\n! or (p0=1):\n!\n! sigma(i,j,l,t) = ( ap(l) + b(l) * ps(i,j,t) ) / ps(i,j,t)\n!\n! where sigma are the sigma levels, ap and bp are the hybrid sigma coordinates,\n! p0 is the constant reference pressure, and ps is the surface pressure. The\n! variable names of ap, p0, bp, and ps are taken from level attribute\n! `formula\\_terms`.\n!\\\\\n!\\\\\n! The direction of the vertical coordinate system is determined from attribute\n! `positive` (up or down) or - if not found - from the b values, whereby it is\n! assumed that the higher b value is found at the surface. The return argument\n! dir is set to 1 for upward coordinates (level 1 is surface level) and -1 for\n! downward coordinates (level 1 is top of atmosphere).\n!\\\\\n!\\\\\n! !REMARKS:\n! Example of valid netCDF meta-data: The attributes `standard\\_name` and\n! `formula\\_terms` are required, as is the 3D surface pressure field.\n!\n! double lev(lev) ;\\\\\n!        lev:standard_name = \"atmosphere_hybrid_sigma_pressure_coordinate\" ;\\\\\n!        lev:units = \"level\" ;\\\\\n!        lev:positive = \"down\" ;\\\\\n!        lev:formula_terms = \"ap: hyam b: hybm ps: PS\" ;\\\\\n! double hyam(nhym) ;\\\\\n!        hyam:long_name = \"hybrid A coefficient at layer midpoints\" ;\\\\\n!        hyam:units = \"hPa\" ;\\\\\n! double hybm(nhym) ;\\\\\n!        hybm:long_name = \"hybrid B coefficient at layer midpoints\" ;\\\\\n!        hybm:units = \"1\" ;\\\\\n! double time(time) ;\\\\\n!        time:standard_name = \"time\" ;\\\\\n!        time:units = \"days since 2000-01-01 00:00:00\" ;\\\\\n!        time:calendar = \"standard\" ;\\\\\n! double PS(time, lat, lon) ;\\\\\n!        PS:long_name = \"surface pressure\" ;\\\\\n!        PS:units = \"hPa\" ;\\\\\n!\n! !INTERFACE:\n!\n  SUBROUTINE NC_GET_SIG_FROM_HYBRID ( fID,  levName, lon1,   lon2, lat1,     &\n                                      lat2, lev1,    lev2,   time, dir,      &\n                                      RC,   sigLev4, sigLev8                )\n!\n! !USES:\n!\n  USE m_netcdf_io_checks\n  USE m_netcdf_io_get_dimlen\n  USE m_netcdf_io_read\n  USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN   ) :: fID             ! Ncdf File ID\n    CHARACTER(LEN=*), INTENT(IN   ) :: levName         ! variable name\n    INTEGER,          INTENT(IN   ) :: lon1            ! lon lower bound\n    INTEGER,          INTENT(IN   ) :: lon2            ! lon upper bound\n    INTEGER,          INTENT(IN   ) :: lat1            ! lat lower bound\n    INTEGER,          INTENT(IN   ) :: lat2            ! lat upper bound\n    INTEGER,          INTENT(IN   ) :: lev1            ! lev lower bound\n    INTEGER,          INTENT(IN   ) :: lev2            ! lev upper bound\n    INTEGER,          INTENT(IN   ) :: time            ! time index\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    REAL*4, OPTIONAL, POINTER       :: SigLev4(:,:,:)  ! sigma levels w/in\n    REAL*8, OPTIONAL, POINTER       :: SigLev8(:,:,:)  ! specified boundaries\n    INTEGER,          INTENT(  OUT) :: dir             ! axis direction (1=up;-1=down)\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: I, J, l1, l2, AS\n    INTEGER              :: nlev, nlat, nlon\n    INTEGER              :: nlevs\n    INTEGER              :: st1d(1), ct1d(1)\n    LOGICAL              :: ok\n    REAL*4, POINTER      :: a(:)\n    REAL*4, POINTER      :: b(:)\n    REAL*4, POINTER      :: ps(:,:,:,:)\n    REAL*8               :: p0\n    CHARACTER(LEN=255)   :: formula, ThisUnit\n    CHARACTER(LEN=255)   :: aname, bname, psname, p0name\n    CHARACTER(LEN=255)   :: a_name    ! netCDF attribute name\n    INTEGER              :: a_type    ! netCDF attribute type\n\n    !======================================================================\n    ! NC_GET_SIG_FROM_HYBRID begins here\n    !======================================================================\n\n    ! Init\n    p0 = -999.d0\n    a  => NULL()\n    b  => NULL()\n    ps => NULL()\n\n    ! Get desired grid dimensions.\n    nlon = lon2 - lon1 + 1\n    nlat = lat2 - lat1 + 1\n    nlev = lev2 - lev1 + 1\n\n    ! Get dimension length\n    CALL Ncget_Dimlen ( fID, TRIM(LevName), nlevs )\n\n    ! Sanity check\n    IF ( nlevs < nlev ) THEN\n       WRITE(*,*) TRIM(LevName), ' is only of length ', nlevs, ' - required is: ', nlev\n       RC = -999\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Get formula and parse variable names (ap, bp, p0, ps)\n    !------------------------------------------------------------------------\n\n    ! Get formula\n    a_name = \"formula_terms\"\n    IF ( .NOT. NcDoes_Attr_Exist ( fID,          TRIM(levName),            &\n                                   TRIM(a_name), a_type         ) ) THEN\n       WRITE(*,*) 'Cannot find attribute ', TRIM(a_name), ' in variable ', &\n                  TRIM(levName)\n       RC = -999\n       RETURN\n    ENDIF\n    CALL NcGet_Var_Attributes( fID, TRIM(levName), TRIM(a_name), formula )\n\n    ! Get variable names\n    !-------------------\n    I = INDEX( formula, 'a:' )\n    IF ( I > 0 ) THEN\n       CALL GetVarFromFormula( formula, 'a:',  aname, RC )\n       IF ( RC /= 0 ) RETURN\n       CALL GetVarFromFormula( formula, 'p0:', p0name, RC )\n       IF ( RC /= 0 ) RETURN\n    ELSE\n       CALL GetVarFromFormula( formula, 'ap:', aname, RC )\n       IF ( RC /= 0 ) RETURN\n       p0 = 1.0d0\n    ENDIF\n    IF ( RC /= 0 ) RETURN\n\n    CALL GetVarFromFormula( formula, 'b:', bname, RC )\n    IF ( RC /= 0 ) RETURN\n\n    CALL GetVarFromFormula( formula, 'ps:', psname, RC )\n    IF ( RC /= 0 ) RETURN\n\n    !------------------------------------------------------------------------\n    ! Read variables from file.\n    !------------------------------------------------------------------------\n\n    ALLOCATE ( a(nlevs), b(nlevs) )\n    st1d = (/ 1     /)\n    ct1d = (/ nlevs /)\n\n    ! read a\n    !-------\n    IF ( .NOT. Ncdoes_Var_Exist( fID, TRIM(aname) ) ) THEN\n       WRITE(*,*) 'Cannot find variable ', TRIM(aname), '!'\n       RC = -999\n       RETURN\n    ENDIF\n    CALL NcRd( a, fID, TRIM(aname), st1d, ct1d )\n\n    ! eventually read p0\n    !-------------------\n    IF ( p0 < 0.0d0 ) THEN\n       IF ( .NOT. Ncdoes_Var_Exist( fID, TRIM(p0name) ) ) THEN\n          WRITE(*,*) 'Cannot find variable ', TRIM(p0name), '!'\n          RC = -999\n          RETURN\n       ENDIF\n    CALL NcRd( p0, fID, TRIM(p0name) )\n    ENDIF\n\n    ! read b\n    !-------\n    IF ( .NOT. Ncdoes_Var_Exist( fID, TRIM(bname) ) ) THEN\n       WRITE(*,*) 'Cannot find variable ', TRIM(bname), '!'\n       RC = -999\n       RETURN\n    ENDIF\n    CALL NcRd( b, fID, TRIM(bname), st1d, ct1d )\n\n    ! Read ps\n    !--------\n    CALL NC_READ_ARR( fID, TRIM(psname), lon1, lon2, lat1, &\n                      lat2, 0, 0, time,  time, ps, VarUnit=thisUnit, RC=RC )\n    IF ( RC /= 0 ) RETURN\n\n    !------------------------------------------------------------------------\n    ! Determine positive axis ('up' or 'down')\n    ! Try to read it from the netCDF meta data (attribute `positive`). If not\n    ! found, determine it from b values (b value at surface higher than at\n    ! top of atmosphere).\n    !------------------------------------------------------------------------\n    a_name = \"positive\"\n    IF ( NcDoes_Attr_Exist( fID, TRIM(levName), TRIM(a_name), a_type ) ) THEN\n       CALL NcGet_Var_Attributes( fID, TRIM(levName), TRIM(a_name), formula )\n       IF ( TRIM(formula) == 'up' ) THEN\n          dir = 1\n       ELSEIF ( TRIM(formula) == 'down' ) THEN\n          dir = -1\n       ELSE\n          WRITE(*,*) 'level attribute `positive` must be `up` ', &\n                     'or `down`, instead: ', TRIM(formula)\n          RC = -999\n          RETURN\n       ENDIF\n\n    ! determine direction from b values.\n    ELSE\n\n       IF ( b(1) > b(nlevs) ) THEN\n          dir = 1\n       ELSE\n          dir = -1\n       ENDIF\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Determine vertical indeces to be used. It is possible to calculate\n    ! the pressure only for a given number of layers (as specified by input\n    ! arguments lev1 and lev2). Assume those are always from bottom to top,\n    ! i.e. counting `upwards`.\n    !------------------------------------------------------------------------\n\n    IF ( dir == -1 ) THEN\n       l1 = nlevs - lev2 + 1\n       l2 = nlevs - lev1 + 1\n    ELSE\n       l1 = lev1\n       l2 = lev2\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! Calculate sigma values at grid edges\n    !------------------------------------------------------------------------\n\n    IF ( PRESENT(SigLev4) ) THEN\n       IF ( ASSOCIATED(SigLev4) ) DEALLOCATE(SigLev4)\n       ALLOCATE(SigLev4(nlon,nlat,nlev),STAT=AS)\n    ELSEIF ( PRESENT(SigLev8) ) THEN\n       IF ( ASSOCIATED(SigLev8) ) DEALLOCATE(SigLev8)\n       ALLOCATE(SigLev8(nlon,nlat,nlev),STAT=AS)\n    ELSE\n       WRITE(*,*) 'SigLev must be provided!'\n       RC = -999\n       RETURN\n    ENDIF\n    IF ( AS /= 0 ) THEN\n       WRITE(*,*) 'Cannot allocate SigLev!'\n       RC = -999\n       RETURN\n    ENDIF\n\n    DO J=1,nlat\n    DO I=1,nlon\n       IF ( PRESENT(SigLev4) ) THEN\n          SigLev4(i,j,:) = ( ( a(l1:l2) * p0 ) + ( b(l1:l2) * ps(i,j,1,1) ) ) &\n                        / ps(i,j,1,1)\n       ELSE\n          SigLev8(i,j,:) = ( ( a(l1:l2) * p0 ) + ( b(l1:l2) * ps(i,j,1,1) ) ) &\n                        / ps(i,j,1,1)\n       ENDIF\n    ENDDO\n    ENDDO\n\n    ! Cleanup\n    IF ( ASSOCIATED(a ) ) DEALLOCATE(a )\n    IF ( ASSOCIATED(b ) ) DEALLOCATE(b )\n    IF ( ASSOCIATED(ps) ) DEALLOCATE(ps)\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE NC_GET_SIG_FROM_HYBRID\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: GetVarFromFormula\n!\n! !DESCRIPTION: helper function to extract the variable name from a vertical\n! coordinate formula.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE GetVarFromFormula ( formula, inname, outname, RC )\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN   ) :: formula\n    CHARACTER(LEN=*), INTENT(IN   ) :: inname\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(  OUT) :: outname\n    INTEGER,          INTENT(INOUT) :: RC              ! Return code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER              :: I, J, IDX, LN\n\n    !======================================================================\n    ! GetVarFromFormula begins here\n    !======================================================================\n\n    ! maximum length\n    LN = LEN(TRIM(formula))\n\n    ! Get start index of string\n    !--------------------------\n    I = INDEX( TRIM(formula), TRIM(inname) )\n    IF ( I <= 0 ) THEN\n       WRITE(*,*) 'Cannot extract ', TRIM(inname), ' from ', TRIM(formula)\n       RC = -999\n       RETURN\n    ENDIF\n\n    ! The variable name follows the formula string plus one space!\n    I = I + LEN(inname) + 1\n\n    outname = ''\n    IDX = 1\n    DO J = I, LN\n       IF ( formula(J:J) == ' ' ) EXIT\n       outname(IDX:IDX) = formula(J:J)\n       IDX = IDX + 1\n    ENDDO\n\n    ! Return w/ success\n    RC = 0\n\n  END SUBROUTINE GetVarFromFormula\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Write_3d\n!\n! !DESCRIPTION: Routine to write time slices of 2D fields into netCDF.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_WRITE_3D( ncFile,  I,  J,    T,  N,   lon, lat, &\n                          time,    timeUnit, ncVars,  ncUnits,  &\n                          ncLongs, ncShorts, ncArrays            )\n!\n! !USES:\n!\n    USE m_netcdf_io_close\n    USE m_netcdf_io_define\n    USE m_netcdf_io_write\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: ncFile             ! file path+name\n    INTEGER,          INTENT(IN)  :: I                  ! # of lons\n    INTEGER,          INTENT(IN)  :: J                  ! # of lats\n    INTEGER,          INTENT(IN)  :: T                  ! # of time slices\n    INTEGER,          INTENT(IN)  :: N                  ! # of vars\n    REAL*4,           INTENT(IN)  :: lon(I)             ! longitude\n    REAL*4,           INTENT(IN)  :: lat(J)             ! latitude\n    REAL*4,           INTENT(IN)  :: time(T)            ! time\n    CHARACTER(LEN=*), INTENT(IN)  :: timeUnit           ! time unit\n    CHARACTER(LEN=*), INTENT(IN)  :: ncVars(N)          ! nc variables\n    CHARACTER(LEN=*), INTENT(IN)  :: ncUnits(N)         ! var units\n    CHARACTER(LEN=*), INTENT(IN)  :: ncLongs(N)         ! var long names\n    CHARACTER(LEN=*), INTENT(IN)  :: ncShorts(N)        ! var short names\n    REAL*4, TARGET,   INTENT(IN)  :: ncArrays(I,J,T,N)  ! var arrays\n!\n! !REMARKS:\n!  Created with the ncCodeRead script of the NcdfUtilities package,\n!  with subsequent hand-editing.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: fId, II\n    REAL*4, POINTER    :: tmpArr(:,:,:) => NULL()\n\n    !======================================================================\n    ! NC_WRITE_3D begins here\n    !======================================================================\n\n    CALL NC_DEFINE(ncFile=ncFile, nLon=I,            nLat=J,         &\n                   nTime=T,       timeUnit=timeUnit, ncVars=ncVars,  &\n                   ncUnits=ncUnits,ncLongs=ncLongs,ncShorts=ncShorts,&\n                   fId=fId )\n\n    CALL NC_WRITE_DIMS( fID=fId, lon=lon, lat=lat, time=time )\n\n    DO II = 1, N\n       tmpArr => ncArrays(:,:,:,II)\n       CALL NC_WRITE_DATA_3D ( fId, ncVars(II), tmpArr )\n       tmpArr => NULL()\n    ENDDO\n\n    CALL NcCl( fId )\n\n  END SUBROUTINE NC_WRITE_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Write_4d\n!\n! !DESCRIPTION: Routine to write time slices of 3D fields into netCDF.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_WRITE_4D (ncFile,  I, J, L, T, N, lon, lat, lev, &\n                          time,    timeUnit, ncVars,  ncUnits,   &\n                          ncLongs, ncShorts, ncArrays             )\n!\n! !USES:\n!\n    USE m_netcdf_io_create\n    USE m_netcdf_io_close\n    USE m_netcdf_io_define\n    USE m_netcdf_io_write\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN)  :: ncFile   ! file path+name\n    INTEGER,          INTENT(IN)  :: I        ! # of lons\n    INTEGER,          INTENT(IN)  :: J        ! # of lats\n    INTEGER,          INTENT(IN)  :: L        ! # of levs\n    INTEGER,          INTENT(IN)  :: T        ! # of time slices\n    INTEGER,          INTENT(IN)  :: N        ! # of vars\n    REAL*4,           INTENT(IN)  :: lon(:)   ! longitude\n    REAL*4,           INTENT(IN)  :: lat(:)   ! latitude\n    REAL*4,           INTENT(IN)  :: lev(:)   ! levels\n    REAL*4,           INTENT(IN)  :: time(:)  ! time\n    CHARACTER(LEN=*), INTENT(IN)  :: timeUnit ! time unit\n    CHARACTER(LEN=*), INTENT(IN)  :: ncVars(:)    ! nc variables\n    CHARACTER(LEN=*), INTENT(IN)  :: ncUnits(:)   ! var units\n    CHARACTER(LEN=*), INTENT(IN)  :: ncLongs(:)   ! var long names\n    CHARACTER(LEN=*), INTENT(IN)  :: ncShorts(:)  ! var short names\n    REAL*4, TARGET,   INTENT(IN)  :: ncArrays(:,:,:,:,:)  ! var arrays\n!\n! !REMARKS:\n!  Created with the ncCodeRead script of the NcdfUtilities package,\n!  with subsequent hand-editing.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER            :: II, fID\n    REAL*4, POINTER    :: tmpArr(:,:,:,:) => NULL()\n\n    !======================================================================\n    ! NC_WRITE begins here\n    !======================================================================\n\n    CALL NC_DEFINE(ncFile=ncFile, nLon=I, nLat=J, nLev=L,            &\n                   nTime=T,  timeUnit=timeUnit, ncVars=ncVars,       &\n                   ncUnits=ncUnits,ncLongs=ncLongs,ncShorts=ncShorts,&\n                   fId=fId )\n\n    CALL NC_WRITE_DIMS( fID=fId, lon=lon, lat=lat, time=time, lev=lev)\n\n    DO II = 1, size(ncVars)\n       tmpArr => ncArrays(:,:,:,:,II)\n       CALL NC_WRITE_DATA_4D ( fId, ncVars(II), tmpArr )\n       tmpArr => NULL()\n    ENDDO\n\n    CALL NcCl( fId )\n\n  END SUBROUTINE NC_WRITE_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Define\n!\n! !DESCRIPTION: Routine to define the variables and attributes of a netCDF\n!  file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_DEFINE( ncFile,   nLon,    nLat,    nLev,    nTime,          &\n                        timeUnit, ncVars,  ncUnits, ncLongs, ncShorts, fId  )\n!\n! !USES:\n!\n    USE m_netcdf_io_close\n    USE m_netcdf_io_create\n    USE m_netcdf_io_define\n    USE m_netcdf_io_write\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*),   INTENT(IN   )  :: ncFile      ! ncdf file path + name\n    INTEGER,            INTENT(IN   )  :: nLon        ! # of lons\n    INTEGER,            INTENT(IN   )  :: nLat        ! # of lats\n    INTEGER, OPTIONAL,  INTENT(IN   )  :: nLev        ! # of levels\n    INTEGER,            INTENT(IN   )  :: nTime       ! # of time stamps\n    CHARACTER(LEN=*),   INTENT(IN   )  :: timeUnit    ! time unit\n    CHARACTER(LEN=*),   INTENT(IN   )  :: ncVars(:)   ! ncdf variables\n    CHARACTER(LEN=*),   INTENT(IN   )  :: ncUnits(:)  ! var units\n    CHARACTER(LEN=*),   INTENT(IN   )  :: ncLongs(:)  ! var long names\n    CHARACTER(LEN=*),   INTENT(IN   )  :: ncShorts(:) ! var short names\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,            INTENT(  OUT)  :: fId      ! netCDF file ID\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Declare netCDF variable ID and fill mode\n    INTEGER            :: vId\n    INTEGER            :: omode\n\n    ! Variables for netCDF dimensions\n    INTEGER            :: id_lon\n    INTEGER            :: id_lat\n    INTEGER            :: id_time\n    INTEGER            :: id_lev\n\n    ! Character strings\n    CHARACTER(LEN=255) :: v_name      ! netCDF variable name\n    CHARACTER(LEN=255) :: a_name      ! netCDF attribute name\n    CHARACTER(LEN=255) :: a_val       ! netCDF attribute value\n    CHARACTER(LEN=3  ) :: idstr       ! tracer ID string\n\n    ! Arrays for netCDF dimension IDs\n    INTEGER            :: var1d(1)    ! For 1D arrays\n    INTEGER            :: var3d(3)    ! For 3D arrays\n    INTEGER            :: var4d(4)    ! For 4D arrays\n\n    ! Other variables\n    INTEGER            :: I\n\n    !=================================================================\n    ! %%%%% NETCDF DEFINITION SECTION %%%%%\n    !=================================================================\n\n    ! Initialize the variable ID counter\n    vId = 0\n\n    ! Open filename\n    CALL NcCr_Wr( fId, TRIM(ncFile) )\n\n    ! Turn filling off\n    CALL NcSetFill( fId, NF90_NOFILL, omode )\n\n    !--------------------------------\n    ! GLOBAL ATTRIBUTES\n    !--------------------------------\n\n    ! Define the title global attribute\n    a_name = \"Title\"\n    a_val  = \"Field generated by ncdf_util.F\"\n    CALL NcDef_Glob_Attributes( fId, TRIM(a_name), TRIM(a_val) )\n\n    ! Define the history global attribute\n    a_name = \"History\"\n    a_val  = \"Initial version\"\n    CALL NcDef_Glob_Attributes( fId, TRIM(a_name), TRIM(a_val) )\n\n    ! Define the conventions global attribute\n    a_name = \"Conventions\"\n    a_val  = \"COARDS\"\n    CALL NcDef_Glob_Attributes( fId, TRIM(a_name), TRIM(a_val) )\n\n    ! Define the format global attribute\n    a_name = \"Format\"\n    a_val  = \"netCDF-3\"\n    CALL NcDef_Glob_Attributes( fId, TRIM(a_name), TRIM(a_val) )\n\n    !--------------------------------\n    ! DIMENSIONS\n    !--------------------------------\n\n    ! Define lon dimension\n    v_name = \"lon\"\n    CALL NcDef_Dimension( fId, TRIM(v_name), nlon, id_lon )\n\n    ! Define lat dimension\n    v_name = \"lat\"\n    CALL NcDef_Dimension( fId, TRIM(v_name), nlat, id_lat )\n\n    ! Define lev dimension\n    IF ( PRESENT(nlev) ) THEN\n       v_name = \"lev\"\n       CALL NcDef_Dimension( fId, TRIM(v_name), nlev, id_lev )\n    ENDIF\n\n    ! Define time dimension\n    v_name = \"time\"\n    CALL NcDef_Dimension( fId, TRIM(v_name), ntime, id_time, unlimited=.true. )\n\n    !--------------------------------\n    ! VARIABLE: lon\n    !--------------------------------\n\n    ! Define the \"lon\" variable\n    v_name = \"lon\"\n    var1d = (/ id_lon /)\n    CALL NcDef_Variable( fId, TRIM(v_name), NF90_FLOAT, 1, var1d, vId )\n\n    ! Define the \"lon:long_name\" attribute\n    a_name = \"long_name\"\n    a_val  = \"Longitude\"\n    CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val) )\n\n    ! Define the \"lon:units\" attribute\n    a_name = \"units\"\n    a_val  = \"degrees_east\"\n    CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val) )\n\n    !--------------------------------\n    ! VARIABLE: lat\n    !--------------------------------\n\n    ! Define the \"lat\" variable\n    v_name = \"lat\"\n    var1d = (/ id_lat /)\n    CALL NcDef_Variable( fId, TRIM(v_name), NF90_FLOAT, 1, var1d, vId )\n\n    ! Define the \"lat:long_name\" attribute\n    a_name = \"long_name\"\n    a_val  = \"Latitude\"\n    CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val) )\n\n    ! Define the \"lat:units\" attribute\n    a_name = \"units\"\n    a_val  = \"degrees_north\"\n    CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val) )\n\n    !--------------------------------\n    ! VARIABLE: lev\n    !--------------------------------\n\n    IF ( PRESENT(nlev) ) THEN\n\n       ! Define the \"levels\" variable\n       v_name = \"lev\"\n       var1d = (/ id_lev /)\n       CALL NcDef_Variable( fId, TRIM(v_name), NF90_INT, 1, var1d, vId )\n\n       ! Define the \"time:long_name\" attribute\n       a_name = \"long_name\"\n       a_val  = \"Levels\"\n       CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val))\n\n       ! Define the \"time:units\" attribute\n       a_name = \"units\"\n       a_val  = \"unitless\"\n       CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val))\n    ENDIF\n\n    !--------------------------------\n    ! VARIABLE: time\n    !--------------------------------\n\n    ! Define the \"time\" variable\n    v_name = \"time\"\n    var1d = (/ id_time /)\n    CALL NcDef_Variable( fId, TRIM(v_name), NF90_INT, 1, var1d, vId )\n\n    ! Define the \"time:long_name\" attribute\n    a_name = \"long_name\"\n    a_val  = \"Time\"\n    CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val) )\n\n    ! Define the \"time:units\" attribute\n    a_name = \"units\"\n    a_val  = trim(timeUnit)\n    CALL NcDef_Var_Attributes( fId, vId, TRIM(a_name), TRIM(a_val) )\n\n    !--------------------------------\n    ! Define variables\n    !--------------------------------\n\n    DO I = 1, SIZE(ncVars)\n\n       v_name = TRIM(ncVars(I))\n       IF ( PRESENT(nlev) ) THEN\n          var4d = (/ id_lon, id_lat, id_lev, id_time /)\n          CALL NcDef_Variable(fId,TRIM(v_name),NF90_DOUBLE,4,var4d,vId)\n       ELSE\n          var3d = (/ id_lon, id_lat, id_time /)\n          CALL NcDef_Variable(fId,TRIM(v_name),NF90_DOUBLE,3,var3d,vId)\n       ENDIF\n\n       ! Define the long_name attribute\n       a_name = \"long_name\"\n       a_val  = TRIM(ncLongs(I))\n       CALL NcDef_Var_Attributes(fId, vId, TRIM(a_name), TRIM(a_val) )\n\n       ! Define the short_name attribute\n       a_name = \"short_name\"\n       a_val  = TRIM(ncShorts(I))\n       CALL NcDef_Var_Attributes(fId, vId, TRIM(a_name), TRIM(a_val) )\n\n       ! Define the units attribute\n       a_name = \"units\"\n       a_val  = TRIM(ncUnits(I))\n       CALL NcDef_Var_Attributes(fId, vId, TRIM(a_name), TRIM(a_val) )\n    ENDDO\n\n    !=================================================================\n    ! %%%%% END OF NETCDF DEFINITION SECTION %%%%%\n    !=================================================================\n    CALL NcEnd_Def( fId )\n\n  END SUBROUTINE NC_DEFINE\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Write_Dims\n!\n! !DESCRIPTION: Routine to write dimension arrays to a netCDF file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_WRITE_DIMS( fID, lon, lat, time, lev )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: fId\n!\n! !INPUT PARAMETERS:\n!\n    REAL*4,           INTENT(IN   ) :: lon(:)\n    REAL*4,           INTENT(IN   ) :: lat(:)\n    REAL*4,           INTENT(IN   ) :: time(:)\n    REAL*4, OPTIONAL, INTENT(IN   ) :: lev(:)\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Character strings\n    CHARACTER(LEN=255) :: v_name             ! netCDF variable name\n\n    ! Arrays for netCDF start and count values\n    INTEGER            :: st1d(1), ct1d(1)   ! For 1D arrays\n    INTEGER            :: v_size\n\n    !=================================================================\n    ! Define lon/lat\n    !=================================================================\n\n    ! Write lon to netCDF file\n    v_name = \"lon\"\n    v_size = size( lon, 1 )\n    st1d   = (/ 1      /)\n    ct1d   = (/ v_size /)\n    CALL NcWr( lon, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Write lat to netCDF file\n    v_name = \"lat\"\n    v_size = size( lat, 1 )\n    st1d   = (/ 1      /)\n    ct1d   = (/ v_size /)\n    CALL NcWr( lat, fId, TRIM(v_name), st1d, ct1d )\n\n    ! Write lev to netCDF file\n    IF ( PRESENT(lev) ) THEN\n       v_name = \"lev\"\n       v_size = size( lev, 1 )\n       st1d   = (/ 1      /)\n       ct1d   = (/ v_size /)\n       CALL NcWr( lev, fId, TRIM(v_name), st1d, ct1d )\n    ENDIF\n\n    ! Write passed time integer to netCDF file\n    v_name = \"time\"\n    v_size = size( time, 1 )\n    st1d   = (/ 1      /)\n    ct1d   = (/ v_size /)\n    CALL NcWr( time, fId, TRIM(v_name), st1d, ct1d )\n\n  END SUBROUTINE NC_WRITE_DIMS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Nrite_Data_3d\n!\n! !DESCRIPTION: Routine to write a 3-D array to a netCDF file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_WRITE_DATA_3D ( fID, ncVar, Array )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: fId\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN   ) :: ncVar\n    REAL*4,           POINTER       :: Array(:,:,:)\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays for netCDF start and count values\n    INTEGER            :: st3d(3), ct3d(3)   ! For 3D arrays\n\n    !=================================================================\n    ! Write data to netCDF file\n    !=================================================================\n\n    st3d = (/ 1, 1, 1 /)\n    ct3d = (/ size(array,1), size(array,2), size(array,3) /)\n    CALL NcWr( ARRAY, fId, TRIM(ncVar), st3d, ct3d )\n\n  END SUBROUTINE NC_WRITE_DATA_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Write_Data_4d\n!\n! !DESCRIPTION: Routine to write a 4-D array to a netCDF file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_WRITE_DATA_4D ( fID, ncVar, Array )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: fId\n!\n! !INPUT PARAMETERS:\n!\n    CHARACTER(LEN=*), INTENT(IN   ) :: ncVar\n    REAL*4,           POINTER       :: Array(:,:,:,:)\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays for netCDF start and count values\n    INTEGER            :: st4d(4), ct4d(4)   ! For 4D arrays\n\n    !=================================================================\n    ! Write data to netCDF file\n    !=================================================================\n\n    st4d   = (/ 1, 1, 1, 1 /)\n    ct4d   = (/ size(array,1), size(array,2), &\n                  size(array,3), size(array,4)   /)\n    CALL NcWr( ARRAY, fId, TRIM(ncVar), st4d, ct4d )\n\n  END SUBROUTINE NC_WRITE_DATA_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Create\n!\n! !DESCRIPTION: Creates a new netCDF file and defines several global\n!  attributes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Nc_Create( NcFile,      Title,          nLon,                   &\n                        nLat,        nLev,           nTime,                  &\n                        fId,         lonID,          latId,                  &\n                        levId,       timeId,         VarCt,                  &\n                        Create_NC4,  KeepDefMode,    NcFormat,               &\n                        Conventions, History,        ProdDateTime,           &\n                        Reference,   Contact,        nIlev,                  &\n                        iLevId,      StartTimeStamp, EndTimeStamp,           &\n                        nBounds,     boundsId                               )\n!\n! !USES:\n!\n    USE m_netcdf_io_create\n    USE m_netcdf_io_define\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    ! Required arguments\n    CHARACTER(LEN=*), INTENT(IN   )  :: ncFile         ! ncdf file path + name\n    CHARACTER(LEN=*), INTENT(IN   )  :: title          ! ncdf file title\n    INTEGER,          INTENT(IN   )  :: nLon           ! # of lons\n    INTEGER,          INTENT(IN   )  :: nLat           ! # of lats\n    INTEGER,          INTENT(IN   )  :: nLev           ! # of level midpoints\n    INTEGER,          INTENT(IN   )  :: nTime          ! # of times\n    INTEGER,          OPTIONAL       :: nILev          ! # of level interfaces\n\n    ! Optional arguments (mostly global attributes)\n    LOGICAL,          OPTIONAL       :: Create_Nc4     ! Save as netCDF-4\n    LOGICAL,          OPTIONAL       :: KeepDefMode    ! If = T, then don't\n                                                       !  exit define mode\n    CHARACTER(LEN=*), OPTIONAL       :: NcFormat       ! e.g. netCDF-4\n    CHARACTER(LEN=*), OPTIONAL       :: Conventions    ! e.g. COARDS, CF, etc.\n    CHARACTER(LEN=*), OPTIONAL       :: History        ! History glob attribute\n    CHARACTER(LEN=*), OPTIONAL       :: ProdDateTime   ! Time/date of production\n    CHARACTER(LEN=*), OPTIONAL       :: Reference      ! Reference string\n    CHARACTER(LEN=*), OPTIONAL       :: Contact        ! People to contact\n    CHARACTER(LEN=*), OPTIONAL       :: StartTimeStamp ! Timestamps at start\n    CHARACTER(LEN=*), OPTIONAL       :: EndTimeStamp   !  and end of simulation\n    INTEGER,          OPTIONAL       :: nBounds        ! # of bounds\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(  OUT)  :: fId            ! file id\n    INTEGER,          INTENT(  OUT)  :: lonId          ! lon  dimension id\n    INTEGER,          INTENT(  OUT)  :: latId          ! lat  dimension id\n    INTEGER,          INTENT(  OUT)  :: levId          ! lev  dimension id\n    INTEGER,          INTENT(  OUT)  :: timeId         ! time dimension id\n    INTEGER,          INTENT(  OUT)  :: VarCt          ! variable counter\n    INTEGER,          OPTIONAL       :: ilevId         ! ilev dimension id\n    INTEGER,          OPTIONAL       :: boundsId       ! bounds dimension id\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: omode\n    LOGICAL            :: Save_As_Nc4\n    LOGICAL            :: QuitDefMode\n\n    ! Strings\n    CHARACTER(LEN=255) :: ThisHistory\n    CHARACTER(LEN=255) :: ThisNcFormat\n    CHARACTER(LEN=255) :: ThisConv\n    CHARACTER(LEN=255) :: ThisPdt\n    CHARACTER(LEN=255) :: ThisReference\n    CHARACTER(LEN=255) :: ThisContact\n    CHARACTER(LEN=255) :: ThisStartTimeStamp\n    CHARACTER(LEN=255) :: ThisEndTimeStamp\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Create file as NetCDF4?\n    IF ( PRESENT( Create_Nc4 ) ) THEN\n       Save_As_Nc4 = Create_Nc4\n    ELSE\n       Save_As_Nc4 = .FALSE.\n    ENDIF\n\n    ! Should we exit netCDF define mode before leaving this routine?\n    IF ( PRESENT( KeepDefMode ) ) THEN\n       QuitDefMode = ( .not. KeepDefMode )\n    ELSE\n       QuitDefMode = .TRUE.\n    ENDIF\n\n    ! History global attribute\n    IF ( PRESENT( History ) ) THEN\n       ThisHistory = TRIM( History )\n    ELSE\n       ThisHistory = 'Created by routine NC_CREATE (in ncdf_mod.F90)'\n    ENDIF\n\n    ! NetCDF format global attribute\n    IF ( PRESENT( NcFormat ) ) Then\n       ThisNcFormat = NcFormat\n    ELSE\n       IF ( Save_As_Nc4 ) THEN\n          ThisNcFormat = 'NetCDF-4'\n       ELSE\n          ThisNcFormat = 'NetCDF-3'\n       ENDIF\n    ENDIF\n\n    ! Conventions global attribute (assume COARDS)\n    IF ( PRESENT( Conventions ) ) THEN\n       ThisConv = TRIM( Conventions )\n    ELSE\n       ThisConv = 'COARDS'\n    ENDIF\n\n    ! Conventions global attribute (assume COARDS)\n    IF ( PRESENT( ProdDateTime ) ) THEN\n       ThisPdt= TRIM( ProdDateTime )\n    ENDIF\n\n    ! Conventions global attribute (assume COARDS)\n    IF ( PRESENT( Reference ) ) THEN\n       ThisReference = TRIM( Reference )\n    ELSE\n       ThisReference = ''\n    ENDIF\n\n    ! Contact\n    IF ( PRESENT( Contact ) ) THEN\n       ThisContact = TRIM( Contact )\n    ELSE\n       ThisContact = ''\n    ENDIF\n\n    ! Starting date and time of the simulation\n    IF ( PRESENT( StartTimeStamp ) ) THEN\n       ThisStartTimeStamp = TRIM( StartTimeStamp )\n    ELSE\n       ThisStartTimeStamp = ''\n    ENDIF\n\n    ! Ending date and time of the simulation\n    IF ( PRESENT( EndTimeStamp ) ) THEN\n       ThisEndTimeStamp = TRIM( EndTimeStamp )\n    ELSE\n       ThisEndTimeStamp = ''\n    ENDIF\n\n    !=======================================================================\n    ! Open the file\n    !=======================================================================\n\n    ! Open filename.  Save file in netCDF-4 format if requested by user.\n    CALL NcCr_Wr( fId, TRIM( ncFile ), Save_As_Nc4 )\n\n    ! Turn filling off\n    CALL NcSetFill( fId, NF90_NOFILL, omode )\n\n    !=======================================================================\n    ! Set global attributes\n    !=======================================================================\n\n    ! These attributes are required for COARDS or CF conventions\n    CALL NcDef_Glob_Attributes(  fId, 'title',        TRIM( Title         ) )\n    CALL NcDef_Glob_Attributes(  fId, 'history',      TRIM( ThisHistory   ) )\n    CALL NcDef_Glob_Attributes(  fId, 'format',       TRIM( ThisNcFormat  ) )\n    CALL NcDef_Glob_Attributes(  fId, 'conventions',  TRIM( ThisConv      ) )\n\n    ! These attributes are optional\n    IF ( PRESENT( ProdDateTime ) ) THEN\n     CALL NcDef_Glob_Attributes( fId, 'ProdDateTime', TRIM( ThisPdt       ) )\n    ENDIF\n\n    IF ( PRESENT( Reference ) ) THEN\n     CALL NcDef_Glob_Attributes( fId, 'reference',    TRIM( ThisReference ) )\n    ENDIF\n\n    IF ( PRESENT( Contact ) ) THEN\n     CALL NcDef_Glob_Attributes( fId, 'contact',      TRIM( ThisContact   ) )\n    ENDIF\n\n    IF ( PRESENT( StartTimeStamp ) ) THEN\n     CALL NcDef_Glob_Attributes( fId, 'simulation_start_date_and_time',      &\n                                       TRIM( ThisStartTimeStamp   )         )\n    ENDIF\n\n    IF ( PRESENT( EndTimeStamp ) ) THEN\n     CALL NcDef_Glob_Attributes( fId, 'simulation_end_date_and_time',        &\n                                       TRIM( ThisEndTimeStamp )             )\n    ENDIF\n\n    !=======================================================================\n    ! Set dimensions\n    !=======================================================================\n\n    ! Time\n    CALL NcDef_Dimension( fId, 'time', nTime, TimeId, unlimited=.true. )\n\n    ! Level midpoints\n    IF ( nLev > 0 ) THEN\n       CALL NcDef_Dimension( fId, 'lev',  nLev,  levId  )\n    ELSE\n       levId = -1\n    ENDIF\n\n    ! Optional ILev dimension: level interfaces\n    IF ( PRESENT( nIlev ) .and. PRESENT( iLevId ) ) THEN\n       IF ( nILev > 0 ) THEN\n          CALL NcDef_Dimension( fId, 'ilev', nIlev, iLevId )\n       ELSE\n          iLevId = -1\n       ENDIF\n    ENDIF\n\n    ! Lat and lon\n    CALL NcDef_Dimension( fId, 'lat',  nLat,  latId  )\n    CALL NcDef_Dimension( fId, 'lon',  nLon,  lonId  )\n\n    ! Optional ILev dimension: level interfaces\n    IF ( PRESENT( nBounds ) .and. PRESENT( boundsId ) ) THEN\n       IF ( nBounds > 0 ) THEN\n          CALL NcDef_Dimension( fId, 'nb', nBounds, boundsId )\n       ELSE\n          boundsId = -1\n       ENDIF\n    ENDIF\n\n    ! Close definition section\n    IF ( QuitDefMode ) THEN\n       CALL NcEnd_Def( fId )\n    ENDIF\n\n    ! Initialize variable counter\n    VarCt = -1\n\n  END SUBROUTINE Nc_Create\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Def\n!\n! !DESCRIPTION: Defines a new netCDF variable along with its attributes.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_Var_Def( fId,       lonId,        latId,        levId,       &\n                         TimeId,    VarName,      VarLongName,  VarUnit,     &\n                         DataType,  VarCt,        DefMode,      Compress,    &\n                         AddOffset, MissingValue, ScaleFactor,  Calendar,    &\n                         Axis,      StandardName, FormulaTerms, AvgMethod,   &\n                         Positive,  iLevId,       nUpdates,     boundsId,    &\n                         bounds                                             )\n!\n! !USES:\n!\n    USE m_netcdf_io_create\n    USE m_netcdf_io_define\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    ! Required inputs\n    INTEGER,          INTENT(IN   ) :: fId          ! file ID\n    INTEGER,          INTENT(IN   ) :: lonId        ! ID of lon      (X) dim\n    INTEGER,          INTENT(IN   ) :: latId        ! ID of lat      (Y) dim\n    INTEGER,          INTENT(IN   ) :: levId        ! ID of lev ctr  (Z) dim\n    INTEGER,          INTENT(IN   ) :: TimeId       ! ID of time     (T) dim\n    CHARACTER(LEN=*), INTENT(IN   ) :: VarName      ! Variable name\n    CHARACTER(LEN=*), INTENT(IN   ) :: VarLongName  ! Long name description\n    CHARACTER(LEN=*), INTENT(IN   ) :: VarUnit      ! Units\n    INTEGER,          INTENT(IN   ) :: DataType     ! 1=Int, 4=float, 8=double\n\n    ! Optional inputs\n    LOGICAL,          OPTIONAL      :: DefMode      ! Toggles define mode\n    LOGICAL,          OPTIONAL      :: Compress     ! Toggles compression\n    REAL*4,           OPTIONAL      :: AddOffset    ! Add offset attribute\n    REAL*4,           OPTIONAL      :: MissingValue ! Missing value attribute\n    REAL*4,           OPTIONAL      :: ScaleFactor  ! Scale factor attribute\n    CHARACTER(LEN=*), OPTIONAL      :: Calendar     ! Calendar for time var\n    CHARACTER(LEN=*), OPTIONAL      :: Axis         ! Axis for index vars\n    CHARACTER(LEN=*), OPTIONAL      :: StandardName ! Standard name attribute\n    CHARACTER(LEN=*), OPTIONAL      :: FormulaTerms ! Formula for vert coords\n    CHARACTER(LEN=*), OPTIONAL      :: AvgMethod    ! Averaging method\n    CHARACTER(LEN=*), OPTIONAL      :: Positive     ! Positive dir (up or down)\n    INTEGER,          OPTIONAL      :: iLevId       ! ID of lev edge (I) dim\n    REAL*4,           OPTIONAL      :: nUpdates     ! # of updates (for time-\n                                                    !  averaged fields only)\n    INTEGER,          OPTIONAL      :: boundsId     ! ID of bounds   (B) dim\n    CHARACTER(LEN=*), OPTIONAL      :: bounds       ! Specify a bounds variable\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    INTEGER,          INTENT(INOUT) :: VarCt        ! variable counter\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER, ALLOCATABLE :: VarDims(:)\n\n    ! Scalars\n    INTEGER              :: nDim,      Pos\n    INTEGER              :: NF90_TYPE, tmpIlevId, tmpBoundsId\n    LOGICAL              :: isDefMode\n\n    ! Strings\n    CHARACTER(LEN=80)    :: Att\n\n    !=======================================================================\n    ! Initialize\n    !=======================================================================\n\n    ! Assume file is not in define mode unless explicitly told otherwise\n    IF ( PRESENT( DefMode ) ) THEN\n       isDefMode = DefMode\n    ELSE\n       isDefMode = .FALSE.\n    ENDIF\n\n    ! Test if iLevId (dimension for level interfaces) is present\n    IF ( PRESENT( iLevId ) ) THEN\n       tmpIlevId = iLevId\n    ELSE\n       tmpIlevId = -1\n    ENDIF\n\n    ! Test if iLevId (dimension for level interfaces) is present\n    IF ( PRESENT( boundsId ) ) THEN\n       tmpBoundsId = boundsId\n    ELSE\n       tmpBoundsId = -1\n    ENDIF\n\n    !=======================================================================\n    ! DEFINE VARIABLE\n    !=======================================================================\n\n    ! Reopen definition section, if necessary\n    IF ( .not. isDefMode ) CALL NcBegin_Def( fId )\n\n    VarCt = VarCt + 1\n\n    ! number of dimensions\n    nDim = 0\n    IF ( lonId       >= 0 ) nDim = nDim + 1\n    IF ( latId       >= 0 ) nDim = nDim + 1\n    IF ( levId       >= 0 ) nDim = nDim + 1\n    IF ( tmpIlevId   >= 0 ) nDim = nDim + 1\n    if ( timeId      >= 0 ) nDim = nDim + 1\n    if ( tmpBoundsId >= 0 ) nDim = nDim + 1\n\n    ! write dimensions\n    ! NOTE: Need to put bounds before lon & lat so that it will be\n    ! defined in the proper order for the COARDS/CF conventions\n    ALLOCATE( VarDims(nDim) )\n    Pos = 1\n    IF ( tmpBoundsId >= 0 ) THEN\n       VarDims(Pos) = tmpBoundsId\n       Pos          = Pos + 1\n    ENDIF\n    IF ( lonId >= 0 ) THEN\n       VarDims(Pos) = lonId\n       Pos          = Pos + 1\n    ENDIF\n    IF ( latId >= 0 ) THEN\n       VarDims(Pos) = latId\n       Pos          = Pos + 1\n    ENDIF\n    IF ( levId >= 0 ) THEN\n       VarDims(Pos) = levId\n       Pos          = Pos + 1\n    ENDIF\n    IF ( tmpIlevId >= 0 ) THEN\n       VarDims(Pos) = tmpIlevId\n       Pos          = Pos + 1\n    ENDIF\n    IF ( timeId >= 0 ) THEN\n       VarDims(Pos) = timeId\n       Pos          = Pos + 1\n    ENDIF\n\n    ! Set data type\n    IF ( DataType == 1 ) THEN\n       NF90_TYPE = NF90_INT\n    ELSEIF ( DataType == 4 ) THEN\n       NF90_TYPE = NF90_FLOAT\n    ELSEIF ( DataType == 8 ) THEN\n       NF90_TYPE = NF90_DOUBLE\n    ELSE\n       NF90_TYPE = NF90_FLOAT\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Define variable\n    !-----------------------------------------------------------------------\n    CALL NcDef_Variable( fId,  TRIM(VarName), NF90_TYPE,                     &\n                         nDim, VarDims,       VarCt,      Compress          )\n    DEALLOCATE( VarDims )\n\n    !-----------------------------------------------------------------------\n    ! Define variable atttibutes (some are optional)\n    !-----------------------------------------------------------------------\n\n    ! long_name (reuired)\n    Att = 'long_name'\n    CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(VarLongName) )\n\n    ! units (requited)\n    Att = 'units'\n    CALL NcDef_Var_Attributes(  fId, VarCt, TRIM(Att),  TRIM(VarUnit) )\n\n    ! add_offset (optional)\n    IF ( PRESENT( AddOffset ) ) THEN\n       Att = 'add_offset'\n       CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), AddOffset )\n    ENDIF\n\n    ! scale_factor (optional)\n    IF ( PRESENT( ScaleFactor ) ) THEN\n       Att = 'scale_factor'\n       CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), ScaleFactor )\n    ENDIF\n\n    ! missing_value (optional but recommended)\n    IF ( PRESENT( MissingValue ) ) THEN\n       Att = '_FillValue'\n       CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att),  MissingValue )\n    ENDIF\n\n    ! calendar (only used for time) -- skip if null string\n    IF ( PRESENT( Calendar ) ) THEN\n       IF ( LEN_TRIM( Calendar ) > 0 ) THEN\n          Att = 'calendar'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(Calendar) )\n       ENDIF\n    ENDIF\n\n    ! axis (only used for index variables) -- skip if null string\n    IF ( PRESENT( Axis ) ) THEN\n       IF ( LEN_TRIM( Axis ) > 0 ) THEN\n          Att = 'axis'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(Axis) )\n       ENDIF\n    ENDIF\n\n    ! averaging_method (optional) -- skip if null string\n    IF ( PRESENT( AvgMethod ) ) THEN\n       IF ( LEN_TRIM( AvgMethod ) > 0 ) THEN\n          Att = 'averaging_method'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(AvgMethod) )\n       ENDIF\n    ENDIF\n\n    ! averaging_method (optional) -- skip if null string\n    IF ( PRESENT( Positive ) ) THEN\n       IF ( LEN_TRIM( Positive ) > 0 ) THEN\n          Att = 'positive'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(Positive) )\n       ENDIF\n    ENDIF\n\n    ! Standard name (optional) -- skip if null string\n    IF ( PRESENT( StandardName ) ) THEN\n       IF ( LEN_TRIM( StandardName ) > 0 ) THEN\n          Att = 'standard_name'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(StandardName))\n       ENDIF\n    ENDIF\n\n    ! Formula terms (optional) -- skip if null string\n    IF ( PRESENT( FormulaTerms ) ) THEN\n       IF ( LEN_TRIM( FormulaTerms ) > 0 ) THEN\n          Att = 'formula_terms'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(FormulaTerms))\n       ENDIF\n    ENDIF\n\n    ! Number of updates\n    IF ( PRESENT( nUpdates ) ) THEN\n       IF ( nUpdates > 0.0 ) THEN\n          Att = 'number_of_updates'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), nUpdates )\n       ENDIF\n    ENDIF\n\n    ! Specify a variable that contains bounds information\n    IF ( PRESENT( bounds ) ) THEN\n       IF ( LEN_TRIM( bounds ) > 0 ) THEN\n          Att = 'bounds'\n          CALL NcDef_Var_Attributes( fId, VarCt, TRIM(Att), TRIM(bounds) )\n       ENDIF\n    ENDIF\n\n    ! Close definition section, if necessary\n    IF ( .not. isDefMode ) CALL NcEnd_Def( fId )\n\n  END SUBROUTINE NC_Var_Def\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Chunk\n!\n! !DESCRIPTION: Turns on chunking for a netCDF variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE Nc_Var_Chunk( fId, vId, ChunkSizes, RC )\n!\n! !USES:\n!\n    USE netCDF\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)  :: fId            ! NetCDF file ID\n    INTEGER, INTENT(IN)  :: vId            ! NetCDF variable ID\n    INTEGER, INTENT(IN)  :: ChunkSizes(:)  ! NetCDF chunk sizes for each dim\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER, INTENT(OUT) :: RC             ! Success or failure?\n!\n! !REMARKS:\n!  RC will return an error (nonzero) status if chunking cannot be activated.\n!  Most often, this is because support for netCDF-4 compression is disabled,\n!  or if the netCDF file is not a netCDF-4 file.  In this case, RC will have\n!  an error code of -111.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n#if defined( NC_HAS_COMPRESSION )\n\n    ! Turn on chunking for this variable\n    ! But only if the netCDF library supports it\n    RC = NF90_Def_Var_Chunking( fId, vId, NF90_CHUNKED, ChunkSizes )\n\n#else\n\n    ! Otherwise return success\n    RC = 0\n\n#endif\n\n  END SUBROUTINE Nc_Var_Chunk\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_R8_0d\n!\n! !DESCRIPTION: Writes data of a 0-D double precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R8_0D( fId, VarName, Var )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId           ! file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: VarName       ! variable name\n    REAL(kind=8)                  :: Var           ! Variable to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Write to netCDF file\n    CALL NcWr( Var, fId, VarName )\n\n  END SUBROUTINE NC_VAR_WRITE_R8_0d\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_R8_1d\n!\n! !DESCRIPTION: Writes data of a 1-D double precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R8_1D( fId, VarName, Arr1D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId           ! file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: VarName       ! variable name\n    REAL(kind=8),     POINTER     :: Arr1D(:)      ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St1d(1), Ct1d(1)\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    St1d(1) = 1\n    Ct1d(1) = SIZE( Arr1d, 1 )\n\n    ! Write to netCDF file\n    CALL NcWr( Arr1d, fId, VarName, St1d, Ct1d )\n\n  END SUBROUTINE NC_VAR_WRITE_R8_1D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_R8_2d\n!\n! !DESCRIPTION: Writes data of a 2-D double precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R8_2D( fId, VarName, Arr2D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    REAL(kind=8),     POINTER    :: Arr2D(:,:)     ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St2d(2), Ct2d(2)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 2\n    DO I =1, nDim\n       St2d(I) = 1\n       Ct2d(I) = SIZE( Arr2d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr2d, fId, VarName, St2d, Ct2d )\n\n  END SUBROUTINE NC_VAR_WRITE_R8_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_R8_3D\n!\n! !DESCRIPTION: Writes data of a 3-D double precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R8_3D( fId, VarName, Arr3D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    REAL(kind=8),     POINTER    :: Arr3D(:,:,:)   ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St3d(3), Ct3d(3)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 3\n    DO I = 1, nDim\n       St3d(I) = 1\n       Ct3d(I) = SIZE( Arr3d, I )\n    ENDDO\n\n    ! Write data to netCDF file\n    CALL NcWr( Arr3d, fId, VarName, St3d, Ct3d )\n\n  END SUBROUTINE NC_VAR_WRITE_R8_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_r8_4d\n!\n! !DESCRIPTION: Writes data of a 4-D double precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R8_4D( fId, VarName, Arr4D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    REAL(kind=8),     POINTER    :: Arr4D(:,:,:,:) ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St4d(4), Ct4d(4)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 4\n    DO I = 1, nDim\n       St4d(I) = 1\n       Ct4d(I) = SIZE( Arr4d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr4d, fId, VarName, St4d, Ct4d )\n\n  END SUBROUTINE NC_VAR_WRITE_R8_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_R4_0d\n!\n! !DESCRIPTION: Writes data of a 0-D single-precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R4_0d( fId, VarName, Var )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId           ! file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: VarName       ! variable name\n    REAL(kind=4)                  :: Var           ! Variable to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Write to netCDF file\n    CALL NcWr( Var, fId, VarName )\n\n  END SUBROUTINE NC_VAR_WRITE_R4_0D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_r4_1d\n!\n! !DESCRIPTION: Writes data of a single precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R4_1D( fId, VarName, Arr1D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    REAL(kind=4),     POINTER    :: Arr1D(:)       ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St1d(1), Ct1d(1)\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    St1d(1) = 1\n    Ct1d(1) = SIZE( Arr1d, 1 )\n\n    ! Write to netCDF file\n    CALL NcWr( Arr1d, fId, VarName, St1d, Ct1d )\n\n  END SUBROUTINE NC_VAR_WRITE_R4_1D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_r4_2D\n!\n! !DESCRIPTION: Writes data of a 2-D single precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R4_2D( fId, VarName, Arr2D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    REAL(kind=4),     POINTER    :: Arr2D(:,:)     ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St2d(2), Ct2d(2)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 2\n    DO I = 1, nDim\n       St2d(I) = 1\n       Ct2d(I) = SIZE( Arr2d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr2d, fId, VarName, St2d, Ct2d )\n\n  END SUBROUTINE NC_VAR_WRITE_R4_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_r4_3d\n!\n! !DESCRIPTION: Writes data of a 3-D single precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R4_3D( fId, VarName, Arr3D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: VarName        ! variable name\n    REAL(kind=4),     POINTER     :: Arr3D(:,:,:)   ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St3d(3), Ct3d(3)\n\n    ! Scalars\n    INTEGER :: I, nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 3\n    DO I = 1, nDim\n       St3d(I) = 1\n       Ct3d(I) = SIZE( Arr3d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr3d, fId, VarName, St3d, Ct3d )\n\n  END SUBROUTINE NC_VAR_WRITE_R4_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_r4_4d\n!\n! !DESCRIPTION: Writes data of a 4-D single precision variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_R4_4D( fId, VarName, Arr4D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    REAL(kind=4),     POINTER    :: Arr4D(:,:,:,:) ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St4d(4), Ct4d(4)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    nDim = 4\n    DO I = 1, nDim\n       St4d(I) = 1\n       Ct4d(I) = SIZE( Arr4d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr4d, fId, VarName, St4d, Ct4d )\n\n  END SUBROUTINE NC_VAR_WRITE_R4_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_Int_0d\n!\n! !DESCRIPTION: Writes data of a 0-D integer variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_INT_0d( fId, VarName, Var )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN)  :: fId           ! file ID\n    CHARACTER(LEN=*), INTENT(IN)  :: VarName       ! variable name\n    INTEGER                       :: Var           ! Variable to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Write to netCDF file\n    CALL NcWr( Var, fId, VarName )\n\n  END SUBROUTINE NC_VAR_WRITE_INT_0D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_int_1d\n!\n! !DESCRIPTION: Writes data of an 1-D integer variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_INT_1D( fId, VarName, Arr1D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    INTEGER,          POINTER    :: Arr1D(:)       ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St1d(1), Ct1d(1)\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    St1d(1) = 1\n    Ct1d(1) = SIZE( Arr1d, 1 )\n\n    ! Write to netCDF file\n    CALL NcWr( Arr1d, fId, VarName, St1d, Ct1d )\n\n  END SUBROUTINE NC_VAR_WRITE_INT_1D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_int_2d\n!\n! !DESCRIPTION: writes data of an 2-D integer variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_INT_2D( fId, VarName, Arr2D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    INTEGER,          POINTER    :: Arr2D(:,:)     ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St2d(2), Ct2d(2)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 2\n    DO I = 1, nDim\n       St2d(I) = 1\n       Ct2d(I) = SIZE( Arr2d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr2d, fId, VarName, St2d, Ct2d )\n\n  END SUBROUTINE NC_VAR_WRITE_INT_2D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_int_3d\n!\n! !DESCRIPTION: writes data of an 3-D integer variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_INT_3D( fId, VarName, Arr3D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    INTEGER,          POINTER    :: Arr3D(:,:,:)   ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St3d(3), Ct3d(3)\n\n    ! Scalars\n    INTEGER :: I,       nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 3\n    DO I = 1, nDim\n       St3d(I) = 1\n       Ct3d(I) = SIZE( Arr3d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr3d, fId, trim(VarName), St3d, Ct3d )\n\n  END SUBROUTINE NC_VAR_WRITE_INT_3D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_Var_Write_int_4d\n!\n! !DESCRIPTION: writes data of an 4-Dinteger variable.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE NC_VAR_WRITE_INT_4D( fId, VarName, Arr4D )\n!\n! !USES:\n!\n    USE m_netcdf_io_write\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fId            ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: VarName        ! variable name\n    INTEGER,          POINTER    :: Arr4D(:,:,:,:) ! array to be written\n!\n! !REMARKS:\n!  Assumes that you have:\n!  (1) A netCDF library (either v3 or v4) installed on your system\n!  (2) The NcdfUtilities package (from Bob Yantosca) source code\n!                                                                             .\n!  Although this routine was generated automatically, some further\n!  hand-editing may be required.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Arrays\n    INTEGER :: St4d(4), Ct4d(4)\n\n    ! Scalars\n    INTEGER :: I, nDim\n\n    !--------------------------------\n    ! WRITE DATA\n    !--------------------------------\n\n    ! Set start & count arrays\n    nDim = 4\n    DO I = 1, nDim\n       St4d(I) = 1\n       Ct4d(I) = SIZE( Arr4d, I )\n    ENDDO\n\n    ! Write to netCDF file\n    CALL NcWr( Arr4d, fId, VarName, St4d, Ct4d )\n\n  END SUBROUTINE NC_VAR_WRITE_INT_4D\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Get_Tau0\n!\n! !DESCRIPTION: Function GET\\_TAU0\\_6A returns the corresponding TAU0 value\n!  for the first day of a given MONTH of a given YEAR.  This is necessary to\n!  index monthly mean binary punch files, which are used as input to GEOS-Chem.\n!\\\\\n!\\\\\n!  This function takes 3 mandatory arguments (MONTH, DAY, YEAR) and 3\n!  optional arguments (HOUR, MIN, SEC).  It is intended to replace the current\n!  2-argument version of GET\\_TAU0.  The advantage being that GET\\_TAU0\\_6A\n!  can compute a TAU0 for any date and time in the GEOS-Chem epoch, rather\n!  than just the first day of each month.  Overload this w/ an interface so\n!  that the user can also choose the version of GET\\_TAU0 w/ 2 arguments\n!  (MONTH, YEAR), which is the prior version.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION GET_TAU0( MONTH, DAY, YEAR, HOUR, MIN, SEC ) RESULT( THIS_TAU0 )\n!\n! !USES:\n!\n    USE JULDAY_MOD, ONLY : JULDAY\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN)           :: MONTH\n    INTEGER, INTENT(IN)           :: DAY\n    INTEGER, INTENT(IN)           :: YEAR\n    INTEGER, INTENT(IN), OPTIONAL :: HOUR\n    INTEGER, INTENT(IN), OPTIONAL :: MIN\n    INTEGER, INTENT(IN), OPTIONAL :: SEC\n!\n! !RETURN VALUE:\n!\n    REAL*8                        :: THIS_TAU0   ! TAU0 timestamp\n!\n! !REMARKS:\n!  TAU0 is hours elapsed since 00:00 GMT on 01 Jan 1985.\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    INTEGER :: TMP_HOUR, TMP_MIN, TMP_SEC\n    REAL*8  :: DAYS\n\n    !=======================================================================\n    ! GET_TAU0 begins here!\n    !=======================================================================\n\n    ! Error checking\n    IF ( MONTH < 1 .or. MONTH > 12 ) THEN\n       WRITE( 6, 100 )\n100    FORMAT( 'Invalid MONTH selection!  STOP in GET_TAU0 (ncdf_mod.F90)!' )\n       STOP\n    ENDIF\n\n    ! Error checking\n    IF ( DAY < 1 .or. DAY > 31 ) THEN\n       WRITE( 6, 110 )\n110    FORMAT( 'Invalid DAY selection!  STOP in GET_TAU0 (ncdf_mod.F90)!' )\n       STOP\n    ENDIF\n\n    ! If HOUR isn't passed, default to 0\n    IF ( PRESENT( HOUR ) ) THEN\n       TMP_HOUR = HOUR\n    ELSE\n       TMP_HOUR = 0\n    ENDIF\n\n    ! If MIN isn't passed, default to 0\n    IF ( PRESENT( MIN ) ) THEN\n       TMP_MIN = MIN\n    ELSE\n       TMP_MIN = 0\n    ENDIF\n\n    ! If SEC isn't passed, default to 0\n    IF ( PRESENT( SEC ) ) THEN\n       TMP_SEC = SEC\n    ELSE\n       TMP_SEC = 0\n    ENDIF\n\n    ! Number of days since midnight on 1/1/1985\n    THIS_TAU0 = JULDAY( YEAR, MONTH, DBLE( DAY ) ) - 2446066.5d0\n\n    ! Multiply by 24 to get hours since 1/1/1985\n    ! Also add in the hours elapsed since midnight on this date\n    THIS_TAU0 = ( THIS_TAU0 * 24d0 ) + ( TMP_HOUR         ) + &\n                ( TMP_MIN   / 60d0 ) + ( TMP_SEC / 3600d0 )\n\n  END FUNCTION GET_TAU0\n!EOC\n!------------------------------------------------------------------------------\n!       NcdfUtilities: by Harvard Atmospheric Chemistry Modeling Group        !\n!                      and NASA/GFSC, SIVO, Code 610.3                        !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_IsModelLevel\n!\n! !DESCRIPTION: Function NC\\_IsModelLevel returns true if (and only if) the\n!  long name of the level variable name of the given file ID contains the\n!  character \"GEOS-Chem level\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION NC_IsModelLevel( fID, lev_name ) RESULT ( IsModelLevel )\n!\n! !USES:\n!\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fID        ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: lev_name   ! level variable name\n!\n! !RETURN VALUE:\n!\n    LOGICAL                      :: IsModelLevel\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    LOGICAL                :: HasLngN\n    CHARACTER(LEN=255)     :: a_name, LngName\n    INTEGER                :: a_type\n\n    !=======================================================================\n    ! NC_IsModelLevel begins here!\n    !=======================================================================\n\n    ! Init\n    IsModelLevel = .FALSE.\n\n    ! Check if there is a long_name attribute\n    a_name = \"long_name\"\n    HasLngN = Ncdoes_Attr_Exist ( fId, TRIM(lev_name), TRIM(a_name), a_type )\n\n    ! Only if attribute exists...\n    IF ( HasLngN ) THEN\n       ! Read attribute\n       CALL NcGet_Var_Attributes( fID, TRIM(lev_name), TRIM(a_name), LngName )\n\n       ! See if this is a GEOS-Chem model level\n       IF ( INDEX( TRIM(LngName), \"GEOS-Chem level\" ) > 0 ) THEN\n          IsModelLevel = .TRUE.\n       ENDIF\n    ENDIF\n\n  END FUNCTION NC_IsModelLevel\n!EOC\n!------------------------------------------------------------------------------\n!       NcdfUtilities: by Harvard Atmospheric Chemistry Modeling Group        !\n!                      and NASA/GFSC, SIVO, Code 610.3                        !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Nc_IsSigmaLevel\n!\n! !DESCRIPTION: Function NC\\_IsSigmaLevels returns true if (and only if) the\n!  long name of the level variable name of the given file ID contains the\n!  character \"atmospheric_hybrid_sigma_pressure_coordinate\".\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION NC_IsSigmaLevel( fID, lev_name ) RESULT ( IsSigmaLevel )\n!\n! !USES:\n!\n    USE m_netcdf_io_checks\n    USE m_netcdf_io_readattr\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,          INTENT(IN) :: fID        ! file ID\n    CHARACTER(LEN=*), INTENT(IN) :: lev_name   ! level variable name\n!\n! !RETURN VALUE:\n!\n    LOGICAL                      :: IsSigmaLevel\n!\n! !REVISION HISTORY:\n!  See https://github.com/geoschem/ncdfutil for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: found\n    INTEGER                :: a_type\n\n    ! Strings\n    CHARACTER(LEN=255)     :: a_name\n    CHARACTER(LEN=255)     :: a_val\n\n    !=======================================================================\n    ! NC_IsSigmaLevel begins here!\n    !=======================================================================\n\n    ! Initialize\n    IsSigmaLevel = .FALSE.\n\n    ! Check if there is a long_name attribute\n    a_name = \"standard_name\"\n    found  = Ncdoes_Attr_Exist( fId, TRIM(lev_name), TRIM(a_name), a_type )\n\n    ! First check if the \"standard_name\" attribute exists\n    IF ( found ) THEN\n\n       ! Read \"standard_name\" attribute\n       CALL NcGet_Var_Attributes( fID, TRIM(lev_name), TRIM(a_name), a_val )\n\n    ELSE\n\n       ! If the \"standard_name\" attribute isn't found, try \"long_name\"\n       a_name = \"long_name\"\n       found = Ncdoes_Attr_Exist( fId, TRIM(lev_name), TRIM(a_name), a_type )\n\n       ! Read \"long_name\" attribute\n       IF ( found ) THEN\n          CALL NcGet_Var_Attributes( fID, TRIM(lev_name), TRIM(a_name), a_val )\n       ENDIF\n    ENDIF\n\n    ! Test if the attribute value indicates a hybrid sigma-pressure grid\n    IF ( INDEX( TRIM( a_val ),                                               &\n         \"atmospheric_hybrid_sigma_pressure_coordinate\" ) > 0 ) THEN\n       IsSigmaLevel = .TRUE.\n    ENDIF\n\n  END FUNCTION NC_IsSigmaLevel\n!EOC\nEND MODULE NCDF_MOD\n"
  },
  {
    "path": "ObsPack/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "ObsPack/CMakeLists.txt",
    "content": "add_library(ObsPack STATIC EXCLUDE_FROM_ALL\n    obspack_mod.F90\n)\ntarget_link_libraries(ObsPack\n\tPUBLIC GeosUtil\n)"
  },
  {
    "path": "ObsPack/obspack_mod.F90",
    "content": "!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !MODULE: obspack_mod.F90\n!\n! !DESCRIPTION: Module OBSPACK\\_MOD contains variables and routines\n!  which to sample a GEOS-Chem model simulation for in situ observations\n!  contained in an ObsPack file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\nMODULE ObsPack_Mod\n!\n! !USES:\n!\n  USE Precision_Mod    ! For GEOS-Chem Precision (fp)\n\n  IMPLICIT NONE\n  PRIVATE\n!\n! !PUBLIC MEMBER FUNCTIONS:\n!\n  PUBLIC  :: ObsPack_Init\n  PUBLIC  :: ObsPack_Cleanup\n  PUBLIC  :: ObsPack_Sample\n  PUBLIC  :: ObsPack_Write_Output\n  PUBLIC  :: ObsPack_SpeciesMap_Init\n  PUBLIC  :: ObsPack_SpeciesMap_Cleanup\n!\n! !PRIVATE MEMBER FUNCTIONS:\n!\n  PRIVATE :: ObsPack_Read_Input\n  PRIVATE :: ObsPack_Get_Indices\n  PRIVATE :: Seconds_Since_1970\n!\n! !AUTHOR:\n!  Andrew Jacobson (NOAA); andy.jacobson@noaa.gov\n!  Andrew Schuh (Colorado State University), aschuh@colostate.edu\n!\n! !REMARKS:\n!  NOTE: All ObsPack variables are saved as fields of State_Diag,\n!  which will also facilitate using ObsPack in other model contexts.\n!  Right now this has only been validated with GEOS-Chem \"Classic\", though.\n!\n! !REVISION HISTORY:\n!  04 Jun 2015 - A. Jacobson - Adapted from v10.1 planeflight_mod.f, following\n!                              similar work done in v9.2 by Andrew Schuh.\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !DEFINED PARAMETERS:\n!\n  INTEGER, PARAMETER :: CHAR_LEN_OBS  = 200  ! Length of ObsPack ID strings\n  INTEGER, PARAMETER :: CHAR_LEN_SPEC = 31   ! Length of species names\n\nCONTAINS\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: obspack_init\n!\n! !DESCRIPTION: Subroutine OBSPACK\\_INIT reads information from\n!  the input ObsPack file in order to initialize the obspack\n!  diagnostic.  It allocates memory in the obs array.  If this\n!  structure is already allocated, the routine presumes that the\n!  current samples need to be written out before the new ObsPack\n!  information is read.  In that case, OBSPACK\\_WRITE\\_OUTPUT is\n!  called.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_Init( yyyymmdd, hhmmss, Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,      ONLY : Debug_Msg\n    USE File_Mod,       ONLY : File_Exists\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Diag_Mod, ONLY : DgnState\n    USE Time_Mod,       ONLY : Expand_Date\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: yyyymmdd    ! Current date\n    INTEGER,        INTENT(IN)    :: hhmmss      ! Current time\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag   ! Chemistry State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY\n!  05 Dec 2018 - R. Yantosca - Implemented into the standard GEOS-Chem code\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: N\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !=======================================================================\n    ! OBSPACK_INIT begins here\n    !=======================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at ObsPack_Init (in module ObsPack/obspack_mod.F90'\n\n    ! Assume that there are ObsPack data for today\n    State_Diag%Do_ObsPack = .TRUE.\n\n    IF ( Input_Opt%Verbose ) THEN\n       CALL DEBUG_MSG( '### OBSPACK_INIT: starting' )\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! If obs array is already allocated, assume that we need to\n    ! write out existing results before reading new input.  This\n    ! could happen in a multi-day run with daily input files.\n    !-----------------------------------------------------------------------\n    IF ( ASSOCIATED( State_Diag%ObsPack_Id ) ) THEN\n\n       ! Write any remaining ObsPack data to disk, and immediately\n       ! thereafter free the ObsPack pointer fields of State_Diag\n       CALL ObsPack_Write_Output( Input_Opt, State_Diag, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"ObsPack_Write_Output\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Reset the number of observations\n    State_Diag%ObsPack_nObs = 0\n\n    !-----------------------------------------------------------------------\n    ! Form input and output file names with daily timestamps.\n    ! Example: flask_input.2011063000_2011070100.nc and\n    ! flask_output.2011063000_2011070100.nc. The current\n    ! implementation uses today's time for the first timestamp, and\n    ! today's time plus 24 hours for the second.  We could also use\n    ! the IVALb and IVALe times, if the input files have been\n    ! processed accordingly\n    !-----------------------------------------------------------------------\n    State_Diag%ObsPack_InFile  = TRIM( Input_Opt%ObsPack_InputFile  )\n    State_Diag%ObsPack_OutFile = TRIM( Input_Opt%ObsPack_OutputFile )\n\n    ! Replace YYYYMMDD with date and time\n    CALL Expand_Date( State_Diag%ObsPack_InFile,  yyyymmdd, hhmmss )\n    CALL Expand_Date( State_Diag%ObsPack_OutFile, yyyymmdd, hhmmss )\n\n    ! If we can't find a ObsPack file for today's date, return\n    IF ( .NOT. FILE_EXISTS( TRIM( State_Diag%ObsPack_InFile ) ) ) THEN\n       State_Diag%Do_ObsPack = .FALSE.\n       State_Diag%ObsPack_nObs = 0\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Get the list of lon/lat/alt at which to save out GEOS-Chem data\n    !-----------------------------------------------------------------------\n    CALL ObsPack_Read_Input( Input_Opt, State_Diag, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"ObsPack_Write_Output\"!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    !-----------------------------------------------------------------------\n    ! Print info about diagnostics that will be saved out\n    !-----------------------------------------------------------------------\n    IF ( Input_Opt%amIRoot ) THEN\n\n       ! Print info\n       WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n       WRITE( 6, 100     ) yyyymmdd\n       WRITE( 6, 110     ) TRIM( State_Diag%ObsPack_InFile  )\n       WRITE( 6, 120     ) TRIM( State_Diag%ObsPack_OutFile )\n       WRITE( 6, 130     ) State_Diag%ObsPack_nObs\n       WRITE( 6, 140     ) State_Diag%ObsPack_nSpecies\n       WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n\n       ! FORMAT statements\n 100   FORMAT( 'OBSPACK for date ',     i8  )\n 110   FORMAT( '-> Input file     : ', a   )\n 120   FORMAT( '-> Output file    : ', a   )\n 130   FORMAT( '-> # observations : ', i10 )\n 140   FORMAT( '-> # species/obs  : ', i10 )\n\n    ENDIF\n\n  END SUBROUTINE OBSPACK_INIT\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: obspack_read_input\n!\n! !DESCRIPTION: Subroutine OBSPACK\\_READ\\_INPUT allocates space\n!  for variables in the input file, and reads those data into the\n!  module arrays.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_Read_Input( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE CharPak_Mod,            ONLY : charArr2Str, cStrip\n    USE ErrCode_Mod\n    USE File_Mod,               ONLY : File_Exists\n    USE Input_Opt_Mod,          ONLY : OptInput\n    USE netCDF\n    USE State_Diag_Mod,         ONLY : DgnState\n    USE m_netcdf_io_open,       ONLY : Ncop_Rd\n    USE m_netcdf_io_get_dimlen, ONLY : Ncget_Dimlen\n    USE m_netcdf_io_read\n    USE m_netcdf_io_close,      ONLY : Nccl\n    USE m_netcdf_io_checks,     ONLY : NcDoes_Var_Exist\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  We read in all data available in the input file,\n!  but it is possible that there are observations that\n!  fall outside the IVALb-IVALe time period.\n!\n!  NOTE: Starting in ObsPack v6, \"time_components\" indicates the start-time\n!  of the sampling interval, not the center time.  For the center time, we\n!  need to read the \"time\" variable.  The \"time\" variable represents the\n!  center of the averaging window in all OBSPACK data versions.  Therefore,\n!  we need to skip reading the \"time_components\" netCDF variable, and\n!  we don't need to allocate the \"central_time\" work array.  Changes to the\n!  code will be commented out with \"%%% FIX FOR OBSPACK V6 DATA\" tags.\n!     -- Andy Jacobson and Bob Yantosca (26 Feb 2021)\n!\n! !REVISION HISTORY:\n!  05 Jun 2015 - A. Jacobson - first version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL              :: It_Exists,  Window_Start_Time\n    INTEGER              :: fId,        vId\n    INTEGER              :: N,          nObs\n    INTEGER              :: nSpecies\n    REAL(fp)             :: tsDyn,      halfTsDyn\n\n    ! Arrays\n    INTEGER, ALLOCATABLE :: tmp_int(:)\n    INTEGER              :: st1d(1),    ct1d(1)\n    INTEGER              :: st2d(2),    ct2d(2)\n\n    ! Strings\n    CHARACTER(LEN=30 )   :: varName\n    CHARACTER(LEN=512)   :: ErrMsg\n    CHARACTER(LEN=255)   :: ThisLoc\n    CHARACTER(LEN=255)   :: comment\n\n    !=======================================================================\n    ! OBSPACK_READ_INPUT begins here\n    !=======================================================================\n\n    ! Initialize\n    RC                = GC_SUCCESS\n    Window_Start_Time = .TRUE.\n    tsDyn             = DBLE( Input_Opt%Ts_Dyn )\n    halfTsDyn         = tsDyn * 0.5_fp\n    ErrMsg            = ''\n    ThisLoc           = &\n     ' -> at ObsPack_Read_Input (in module ObsPack/obspack_mod.F90)'\n\n    !=======================================================================\n    ! If obs array is already allocated, assume that we need to\n    ! write out existing results before reading new input.  This\n    ! could happen in a multi-day run with daily input files.\n    !=======================================================================\n    IF ( ASSOCIATED( State_Diag%ObsPack_Id ) ) THEN\n       CALL ObsPack_Write_Output( Input_Opt, State_Diag, RC )\n       IF ( RC /= GC_SUCCESS ) THEN\n          ErrMsg = 'Error encountered in \"ObsPack_Write_Output\"!'\n          CALL GC_Error( ErrMsg, RC, ThisLoc )\n          RETURN\n       ENDIF\n    ENDIF\n\n    !=======================================================================\n    ! Exit if we are not on the root core\n    !\n    ! Or for MPI (e.g. WRF-GC), gather inforamation here from all cores\n    !=======================================================================\n    IF ( .not. Input_Opt%amIRoot ) RETURN\n\n    !=======================================================================\n    ! Get the number of observations in the input netCDF file\n    !=======================================================================\n\n    ! If the file exists, open it.  Save the file ID to State_Diag.\n    CALL Ncop_Rd( fId, State_Diag%ObsPack_InFile )\n    State_Diag%ObsPack_fId = fId\n\n    ! Get the # of observations in the file (and save it to State_Diag).\n    CALL Ncget_Dimlen( fId, 'obs', nObs )\n    State_Diag%ObsPack_nObs = nObs\n\n    !=======================================================================\n    ! Allocate the relevant fields of State_Diag\n    !=======================================================================\n\n    ALLOCATE( State_Diag%ObsPack_CharArray( CHAR_LEN_OBS, nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_CharArray', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_CharArray = ACHAR(0)  ! NULL byte\n\n    ALLOCATE( State_Diag%ObsPack_ID( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Id', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Id = ''\n\n    ALLOCATE( State_Diag%ObsPack_nSamples( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_nSamples', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_nSamples = 0\n\n    ALLOCATE( State_Diag%ObsPack_Strategy( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Strategy', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    ALLOCATE( State_Diag%ObsPack_Latitude( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Latitude', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Latitude = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_Longitude( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Longitude', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Longitude = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_Altitude( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Altitude', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Altitude = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_Ival_Start( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Ival_Start', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Ival_Start = 0.0_f8\n\n    ALLOCATE( State_Diag%ObsPack_Ival_Center( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Ival_Center', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Ival_Center = 0.0_f8\n\n    ALLOCATE( State_Diag%ObsPack_Ival_End( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Ival_End', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Ival_End = 0.0_f8\n\n    ALLOCATE( State_Diag%ObsPack_U( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_U', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_U = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_V( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_V', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_V = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_BLH( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_BLH', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_BLH = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_Q( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Q', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Q = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_P( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_P', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_P = 0.0_f4\n\n    ALLOCATE( State_Diag%ObsPack_T( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_T', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_T = 0.0_f4\n\n    nSpecies = State_Diag%ObsPack_nSpecies\n    ALLOCATE( State_Diag%ObsPack_Species( nObs, nSpecies ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_nSpecies', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Species = 0.0_f4\n\n    ! Work array (for time)\n    ALLOCATE( tmp_int( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'obspack_mod.F:central_time', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n\n    !=======================================================================\n    ! Read input information from the netCDF file:\n    !=======================================================================\n\n    !----------------------------\n    ! Read coordinate arrays\n    !----------------------------\n    st1d = (/ 1    /)\n    ct1d = (/ nObs /)\n\n    varName = 'latitude'\n    CALL NcRd( State_Diag%ObsPack_Latitude,  fId, TRIM(varName), st1d, ct1d )\n\n    varName = 'longitude'\n    CALL NcRd( State_Diag%ObsPack_Longitude, fId, TRIM(varName), st1d, ct1d )\n\n    varName = 'altitude'\n    CALL NcRd( State_Diag%ObsPack_Altitude,  fId, TRIM(varName), st1d, ct1d )\n\n    ! First check if the \"CT_sampling_strategy\" variable exists.\n    ! If it does not, assume hourly sampling (strategy value = 2).\n    varName = 'CT_sampling_strategy'\n    It_Exists = NcDoes_Var_Exist( fId, varName )\n    IF ( It_Exists ) THEN\n       CALL NcRd( State_Diag%ObsPack_Strategy,  fId, TRIM(varName), st1d, ct1d)\n    ELSE\n       ErrMsg = 'Could not find \"CT_sampling_strategy\" in file: '         // &\n                TRIM( State_Diag%ObsPack_InFile )                         // &\n                '.  Will use hourly sampling by default.'\n       CALL GC_Warning( ErrMsg, RC, ThisLoc )\n       State_Diag%ObsPack_Strategy = 2\n    ENDIF\n\n    !----------------------------\n    ! Read time\n    ! (seconds since 1970)\n    !----------------------------\n    varName = 'time'\n    CALL NcRd( tmp_int, fId, TRIM(varName), st1d, ct1d )\n\n    ! Look for time:comment string, as this will determine if \"time\" is\n    ! the start time or midpoint time of the averaging window.\n    ! If the comment is not found, we time = start fo the averaging window.\n    RC = NF90_Inq_Varid( fId, varName, vId )\n    RC = NF90_Get_Att( fId, vId, \"comment\", comment )\n    IF ( RC == NF90_NOERR ) THEN\n       N = INDEX( comment, 'middle of the averaging interval' )\n       IF ( N > 0 ) THEN\n          Window_Start_Time = .FALSE.\n       ELSE\n          N = INDEX( comment, 'midpoint of the averaging interval' )\n          IF ( N > 0 ) Window_Start_Time = .FALSE.\n       ENDIF\n    ENDIF\n\n    ! Assign the values from \"time\" to the proper tracking array\n    ! which will be used to define the bounds of the sample window\n    IF ( Window_Start_Time ) THEN\n       State_Diag%ObsPack_Ival_Start  = tmp_int\n       IF ( Input_Opt%amIRoot ) WRITE( 6, 50 ) 'start'\n    ELSE\n       State_Diag%ObsPack_Ival_Center = tmp_int\n       IF ( Input_Opt%amIRoot ) WRITE( 6, 50 ) 'midpoint'\n    ENDIF\n 50 FORMAT( '     - OBSPACK: \"time\" indicates ', a, ' of sample window' )\n\n    !----------------------------\n    ! Read ID string\n    !----------------------------\n    st2d = (/ 1,            1    /)\n    ct2d = (/ CHAR_LEN_OBS, nObs /)\n\n    varName = 'obspack_id'\n    CALL NcRd( State_Diag%ObsPack_CharArray, fId, TRIM(varName), st2d, ct2d )\n\n    ! Convert character array (needed to read strings from netCDF)\n    ! to a string.  Also strip white space (e.g. tab characters).\n    DO N = 1, nObs\n       State_Diag%ObsPack_Id(N) = charArr2Str(                               &\n            State_Diag%ObsPack_CharArray(:,N), CHAR_LEN_OBS                 )\n       CALL CStrip( State_Diag%ObsPack_Id(N), KeepSpaces=.TRUE. )\n    ENDDO\n\n    ! Close input netCDF file\n    CALL NcCl( fId )\n    State_Diag%ObsPack_fId = fId\n\n    !=======================================================================\n    ! Fill sampling window start and end times\n    !=======================================================================\n    DO N = 1, nObs\n\n       !-----------------------\n       ! Test for valid data\n       !-----------------------\n       IF ( State_Diag%ObsPack_Longitude(N) <    -180.0_f4 .or.              &\n            State_Diag%ObsPack_Longitude(N) >     180.0_f4 .or.              &\n            State_Diag%ObsPack_Latitude(N)  <     -90.0_f4 .or.              &\n            State_Diag%ObsPack_Latitude(N)  >      90.0_f4 .or.              &\n            State_Diag%ObsPack_Altitude(N)  <   -1000.0_f4 .or.              &\n            State_Diag%ObsPack_Altitude(N)  >  200000.0_f4 ) THEN\n\n          ! Write an error message if the data is bad\n          ErrMsg = '\"WARNING!  Bad coordinates on obs with ObsPack_id: '\n          WRITE( 6, '(2a)' ) TRIM( ErrMsg                      ),            &\n                             TRIM( State_Diag%ObsPack_id(N) )\n\n          WRITE (6,'(\"  -  lon \",f12.4,\", lat \",f12.4,\", alt \",f12.4,\".\")')              &\n             State_Diag%ObsPack_Longitude(N),                                &\n             State_Diag%ObsPack_Latitude(N),                                 &\n             State_Diag%ObsPack_Altitude(N)\n\n          ! Mark that the data will be skipped\n          State_Diag%ObsPack_strategy(N) = 0\n       ENDIF\n\n       !====================================================================\n       ! Construct the sampling intervals from the center time\n       !====================================================================\n\n       ! Pick the start and end time of the averaging interval\n       ! depending on the averaging strategy listed in the file\n       SELECT CASE ( State_Diag%ObsPack_Strategy(N) )\n\n          !------------------\n          ! DO-NOT-SAMPLE\n          ! set start > end\n          !------------------\n          CASE( 0 )\n\n             IF ( Window_Start_Time ) THEN\n                State_Diag%ObsPack_Ival_Center(N) =                          &\n                     State_Diag%ObsPack_Ival_Start(N)  - 1.0_f8\n             ELSE\n                State_Diag%ObsPack_Ival_Start(N) =                           &\n                     State_Diag%ObsPack_Ival_Center(N) + 1.0_f8\n             ENDIF\n\n             State_Diag%ObsPack_Ival_End(N) =                                &\n                  State_Diag%ObsPack_Ival_Center(N)    - 1.0_f8\n\n\n          !------------------\n          ! 4-hour window\n          !------------------\n          CASE( 1 )\n\n             IF ( Window_Start_Time ) THEN\n                State_Diag%ObsPack_Ival_Center(N) =                          &\n                     State_Diag%ObsPack_Ival_Start(N)  + 7200.0_f8\n             ELSE\n                State_Diag%ObsPack_Ival_Start(N) =                           &\n                     State_Diag%ObsPack_Ival_Center(N) - 7200.0_f8\n             ENDIF\n\n             State_Diag%ObsPack_Ival_End(N) =                                &\n                  State_Diag%ObsPack_Ival_Center(N)    + 7200.0_f8\n\n          !------------------\n          ! 1-hour window\n          !------------------\n          CASE( 2 )\n\n             IF ( Window_Start_Time ) THEN\n                State_Diag%ObsPack_Ival_Center(N) =                          &\n                     State_Diag%ObsPack_Ival_Start(N)  + 1800.0_f8\n             ELSE\n                State_Diag%ObsPack_Ival_Start(N) =                           &\n                     State_Diag%ObsPack_Ival_Center(N) - 1800.0_f8\n             ENDIF\n\n             State_Diag%ObsPack_Ival_End(N) =                                &\n                  State_Diag%ObsPack_Ival_center(N)    + 1800.0_f8\n\n          !------------------\n          ! 90-minute window\n          !------------------\n          CASE( 3 )\n\n             IF ( Window_Start_Time ) THEN\n                State_Diag%ObsPack_Ival_Center(N) =                           &\n                     State_Diag%ObsPack_Ival_Start(N)  + 2700.0_f8\n             ELSE\n\n                State_Diag%ObsPack_Ival_Start(N) =                           &\n                     State_Diag%ObsPack_Ival_Center(N) - 2700.0_f8\n             ENDIF\n\n             State_Diag%ObsPack_Ival_End(N) =                                &\n                  State_Diag%ObsPack_Ival_Center(N)    + 2700.0_f8\n\n\n          !---------------------\n          ! Instaneous Sampling\n          !---------------------\n          CASE( 4 )\n\n             IF ( Window_Start_Time ) THEN\n                State_Diag%ObsPack_Ival_Center(N) =                          &\n                     State_Diag%ObsPack_Ival_Start(N)\n             ELSE\n                State_Diag%ObsPack_Ival_Start(N) =                           &\n                     State_Diag%ObsPack_Ival_Center(N)\n             ENDIF\n\n             State_Diag%ObsPack_Ival_End(N) =                                &\n                  State_Diag%ObsPack_Ival_Center(N)\n\n             ! Extend the averaging interval end to capture data points\n             ! that are within half a dynamic timestep of the day's end\n             IF ( State_Diag%ObsPack_Ival_End(N) + tsDyn > 86400.0 ) THEN\n                State_Diag%ObsPack_Ival_End(N) =                             &\n                     State_Diag%ObsPack_Ival_End(N) + halfTsDyn\n             ENDIF\n\n          !------------------\n          ! Exit w/ error\n          !------------------\n          CASE DEFAULT\n             ErrMsg = 'Observation with ObsPack_id: '                     // &\n                      TRIM( ADJUSTL( State_Diag%ObsPack_id(N) ) )         // &\n                      ' has an unknown or invalid sampling strategy!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n\n       END SELECT\n    ENDDO\n\n    !========================================================================\n    ! Cleanup and quit\n    !========================================================================\n    IF ( ALLOCATED( tmp_int ) ) THEN\n       DEALLOCATE( tmp_int, STAT=RC )\n       CALL GC_CheckVar( 'tmp_int', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n  END SUBROUTINE ObsPack_Read_Input\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ObsPack_Cleanup\n!\n! !DESCRIPTION: Subroutine ObsPack\\_CLEANUP deallocates all ObsPack\n!  fields of State_Diag.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n SUBROUTINE ObsPack_Cleanup( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n   USE ErrCode_Mod\n   USE Input_Opt_Mod,  ONLY : OptInput\n   USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,         INTENT(OUT)  :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  05 Jun 2015 - A. Jacobson - first version\n!  05 Dec 2018 - R. Yantosca - Implemented into GEOS-Chem standard code\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    !=======================================================================\n    ! Deallocate ObsPack variables\n    !=======================================================================\n   IF ( ASSOCIATED( State_Diag%ObsPack_CharArray ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_CharArray, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_CharArray', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_CharArray => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Id ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Id, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Id', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Id => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_nSamples ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_nSamples, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_nSamples', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_nSamples => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Strategy ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Strategy, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Strategy', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Strategy => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Latitude ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Latitude, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Latitude', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Latitude => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Longitude ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Longitude, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Longitude', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Longitude => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Altitude ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Altitude, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Altitude', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Altitude => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Ival_Start ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Ival_Start, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Ival_Start', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Ival_Start => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Ival_Center ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Ival_Center, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Ival_Center', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Ival_Center => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Ival_End ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Ival_End, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Ival_End', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Ival_End => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_U ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_U, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_U', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_U => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_V ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_V, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_V', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_V => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_BLH ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_BLH, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_BLH', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_BLH => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Q ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Q, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Q', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Q => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_P ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_P, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_P', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_P => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_T ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_T, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_T', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_T => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Species ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Species, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Species', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Species => NULL()\n    ENDIF\n\n  END SUBROUTINE ObsPack_Cleanup\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: obspack_write_output\n!\n! !DESCRIPTION: Subroutine ObsPack\\_WRITE\\_OUTPUT computes window averages\n!  and writes data to an output file.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_Write_Output( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE netCDF\n    USE State_Diag_Mod, ONLY : DgnState\n    USE Time_Mod,       ONLY : Get_NHMSb\n    USE Time_Mod,       ONLY : Get_NHMSe\n    USE Time_Mod,       ONLY : Get_NYMDb\n    USE Time_Mod,       ONLY : Get_NYMDe\n    USE Time_Mod,       ONLY : System_Timestamp\n    USE Time_Mod,       ONLY : Ymd_Extract\n\n    ! NetCDF modules\n    USE m_netcdf_io_define\n    USE m_netcdf_io_create\n    USE m_netcdf_io_write\n    USE m_netcdf_io_close\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostic State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REVISION HISTORY:\n!  05 Jun 2015 - A. Jacobson - First version\n!  06 Dec 2018 - R. Yantosca - Implemented into the standard GEOS-Chem code\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES\n!\n    ! Scalars\n    INTEGER               :: fId,        nObs,       nSpecies\n    INTEGER               :: ymd,        hms,        omode\n    INTEGER               :: yr,         mo,         da\n    INTEGER               :: hr,         mn,         sc\n    INTEGER               :: vid,        nSamples\n    INTEGER               :: N,          S\n    INTEGER               :: dId_obs,    dId_spec\n    INTEGER               :: dId_obslen, dId_speclen\n\n    ! Arrays\n    INTEGER               :: st1d(1),    ct1d(1),    dims_1d(1)\n    INTEGER               :: st2d(2),    ct2d(2),    dims_2d(2)\n    INTEGER,  ALLOCATABLE :: aveStart(:)\n    INTEGER,  ALLOCATABLE :: aveEnd(:)\n    REAL(f8), ALLOCATABLE :: aveTime(:)\n\n    ! Pointers\n    REAL(f4), POINTER     :: ptr1d(:)\n\n    ! Strings\n    CHARACTER(LEN=31)     :: varName\n    CHARACTER(LEN=255)    :: attVal\n    CHARACTER(LEN=255)    :: ThisLoc\n    CHARACTER(LEN=512)    :: ErrMsg\n\n    !=======================================================================\n    ! ObsPack_Write_Output begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC       =  GC_SUCCESS\n    ErrMsg   = ''\n    ThisLoc  = ' -> at ObsPack_Write_Output (in module Obspack/obspack_mod.F90)'\n    fId      = 0\n    vId      = 0\n    ptr1d    => NULL()\n\n    ! Exit if no ObsPack observations are found\n    nObs = State_Diag%ObsPack_nObs\n    IF ( nObs == 0 ) RETURN\n\n    ! Number of species to save out per observation\n    nSpecies = State_Diag%ObsPack_nSpecies\n\n    !=======================================================================\n    ! Allocate temporary arrays\n    !=======================================================================\n\n    ! Cast averaging interval start to integer\n    ALLOCATE( aveStart( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'obspack_mod.F90:aveStart', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    aveStart = State_Diag%ObsPack_Ival_Start\n\n    ! Cast averaging interval end to integer\n    ALLOCATE( aveEnd( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'obspack_mod.F90:aveEnd', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    aveEnd = State_Diag%ObsPack_Ival_End\n\n    ! Compute averaging interval\n    ALLOCATE( aveTime( nObs ), STAT=RC )\n    CALL GC_CheckVar( 'obspack_mod.F90:aveTime', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    aveTime = State_Diag%ObsPack_Ival_End - State_Diag%ObsPack_Ival_Start\n\n    !=======================================================================\n    ! Compute averages\n    !=======================================================================\n    !$OMP PARALLEL DO               &\n    !$OMP DEFAULT( SHARED         ) &\n    !$OMP PRIVATE( N, S, nSamples )\n    DO N = 1, nObs\n\n       ! Number of GEOS-Chem samples for each observation\n       nSamples = State_Diag%ObsPack_nSamples(N)\n\n       ! Compute averages of all GEOS-Chem samples for each observation\n       ! Only compute averages if there are samples\n       IF ( nSamples > 0 ) THEN\n\n          ! Met field quantities\n          State_Diag%ObsPack_U(N)   = State_Diag%ObsPack_U(N)   / nSamples\n          State_Diag%ObsPack_V(N)   = State_Diag%ObsPack_V(N)   / nSamples\n          State_Diag%ObsPack_BLH(N) = State_Diag%ObsPack_BLH(N) / nSamples\n          State_Diag%ObsPack_Q(N)   = State_Diag%ObsPack_Q(N)   / nSamples\n          State_Diag%ObsPack_T(N)   = State_Diag%ObsPack_T(N)   / nSamples\n          State_Diag%ObsPack_P(N)   = State_Diag%ObsPack_P(N)   / nSamples\n\n          ! Species concentrations\n          DO S = 1, State_Diag%ObsPack_nSpecies\n             State_Diag%ObsPack_Species(N,S) =                               &\n             State_Diag%ObsPack_Species(N,S) / nSamples\n          ENDDO\n       ENDIF\n    ENDDO\n    !$OMP END PARALLEL DO\n\n    !=======================================================================\n    ! Open netCDF file for output\n    !=======================================================================\n\n    ! Print info\n    IF ( Input_Opt%amIRoot ) THEN\n       WRITE( 6, 100 ) TRIM( State_Diag%ObsPack_OutFile )\n100    FORMAT( '     - OBSPACK: Writing file ', a )\n    ENDIF\n\n    ! Create netCDF file and save the file ID in State_Diag\n    CALL NcCr_Wr( fId, State_Diag%ObsPack_OutFile, WRITE_NC4=.TRUE. )\n    State_Diag%ObsPack_fId = fId\n\n    ! Trap potential errors\n    IF ( State_Diag%ObsPack_fId < 0 ) THEN\n       ErrMsg = 'Invalid netCDF file Id!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Turn filling off\n    CALL NcSetFill( fId, NF90_NOFILL, omode )\n\n    !=======================================================================\n    ! Define dimensions of netCDF variables\n    !=======================================================================\n\n    ! Number of observations\n    varName = 'obs'\n    CALL NcDef_Dimension( fId, TRIM(varName), NF90_UNLIMITED,  dId_obs   )\n\n    ! Number of species\n    varName = 'species'\n    CALL NcDef_Dimension( fId, TRIM(varName), nSpecies,      dId_spec    )\n\n    ! Character length of ObsPack Id strings\n    varName = 'char_len_obs'\n    CALL NcDef_Dimension( fId, TRIM(varName), CHAR_LEN_OBS,  dId_obslen  )\n\n    !=======================================================================\n    ! Set global attributes\n    !=======================================================================\n\n    ! History\n    attVal = 'GEOS-Chem simulation'\n    CALL NcDef_Glob_Attributes( fId, 'history', TRIM(attVal) )\n\n    ! Conventions\n    CALL NcDef_Glob_Attributes( fId, 'conventions', 'CF-1.4'  )\n\n    ! Reference\n    attVal= 'www.geos-chem.org; wiki.geos-chem.org'\n    CALL NcDef_Glob_Attributes( fId, 'references', TRIM(attVal)  )\n\n    ! Model start date\n    ymd = GET_NYMDb()\n    hms = GET_NHMSb()\n    CALL Ymd_Extract( ymd, yr, mo, da )\n    CALL Ymd_Extract( hms, hr, mn, sc )\n    WRITE( attVal, 150 ) yr, mo, da, hr, mn, sc\n150 FORMAT( i4.4,\"/\",i2.2,\"/\",i2.2,\" \",i2.2,\":\",i2.2,\":\",i2.2, \" UTC\" )\n    CALL NcDef_Glob_Attributes( fId, 'model_start_date',  TRIM(attVal) )\n\n    ! Model end date\n    ymd = GET_NYMDe()\n    hms = GET_NHMSe()\n    CALL Ymd_Extract( ymd, yr, mo, da )\n    CALL Ymd_Extract( hms, hr, mn, sc )\n    WRITE( attVal, 150 ) yr,mo,da,hr,mn,sc\n    CALL NcDef_Glob_Attributes( fId, 'model_end_date', TRIM(attVal) )\n\n    !=======================================================================\n    ! Define variables and attributes\n    ! NOTE: Dimension order is row-major (i.e. the reverse of Fortran)\n    !=======================================================================\n\n    ! Dimension arrays\n    dims_1d = (/             dId_obs /)\n    dims_2d = (/ dId_obslen, dId_obs /)\n\n    ! ID\n    varName = 'obspack_id'\n    CALL NcDef_Variable      ( fId, TRIM(varName), NF90_CHAR, 2, dims_2d, vId)\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'obspack_id'           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     '1'                    )\n\n    ! # of samples\n    varName = 'nsamples'\n    CALL NcDef_Variable( fId, TRIM(varName), NF90_INT, 1, dims_1d, vId       )\n    attVal = 'no. of model samples'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     '1'                    )\n    attVal = 'Number of discrete model samples in average'\n    CALL NcDef_Var_Attributes( fId, vId, 'comment',   TRIM(attVal)           )\n\n    ! Averaging interval\n    varName =  'averaging_interval'\n    CALL NcDef_Variable( fId, TRIM(varName), NF90_INT, 1, dims_1d, vId       )\n    attVal = 'Amount of model time over which this observation is averaged'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'seconds'              )\n\n    ! Averaging interval start time\n    varName = 'averaging_interval_start'\n    CALL NcDef_Variable( fId, TRIM(varName), NF90_INT, 1, dims_1d, vId       )\n    attVal = 'Start of averaging interval'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    attVal = 'seconds since 1970-01-01 00:00:00 UTC'\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'calendar',  'standard'             )\n\n    ! Averaging interval end time\n    varName = 'averaging_interval_end'\n    CALL NcDef_Variable( fId, TRIM(varName), NF90_INT, 1, dims_1d, vId       )\n    attVal = 'End of averaging interval'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    attVal = 'seconds since 1970-01-01 00:00:00 UTC'\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'calendar',  'standard'             )\n\n    ! Longitude\n    CALL NcDef_Variable( fId, 'lon', NF90_FLOAT, 1, dims_1d, vId             )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'longitude'            )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'degrees_east'         )\n\n    ! Latitude\n    CALL NcDef_Variable( fId, 'lat', NF90_FLOAT, 1, dims_1d, vId             )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'latitude'             )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'degrees_north'        )\n\n!    ! Altitude\n!    CALL NcDef_Variable( fId, 'height', NF90_FLOAT, 1, dims_1d, vId          )\n!    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'longitude'            )\n!    CALL NcDef_Var_Attributes( fId, vId, 'units',     'degrees_east'         )\n\n    ! U-wind\n    CALL NcDef_Variable( fId, 'u', NF90_FLOAT, 1, dims_1d, vId               )\n    attVal = 'Zonal component of wind'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'm s^-1'               )\n\n    ! V-wind\n    CALL NcDef_Variable( fId, 'v', NF90_FLOAT, 1, dims_1d, vId               )\n    attVal = 'Meridional component of wind'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'm s^-1'               )\n\n    ! Boundary layer height\n    CALL NcDef_Variable( fId, 'blh', NF90_FLOAT, 1, dims_1d, vId             )\n    attVal = 'Boundary layer height'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'm'                    )\n\n    ! Specific humidity\n    CALL NcDef_Variable( fId, 'q', NF90_FLOAT, 1, dims_1d, vId               )\n    attVal = 'mass_fraction_of_water_inair'\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)           )\n    attVal = 'g water (kg air)^-1'\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     TRIM(attVal)           )\n\n    ! Pressure\n    CALL NcDef_Variable( fId, 'pressure', NF90_FLOAT, 1, dims_1d, vId        )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'pressure'             )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'hPa'                  )\n\n    ! Temperature\n    CALL NcDef_Variable( fId, 'temperature', NF90_FLOAT, 1, dims_1d, vId     )\n    CALL NcDef_Var_Attributes( fId, vId, 'long_name', 'temperature'          )\n    CALL NcDef_Var_Attributes( fId, vId, 'units',     'K'                    )\n\n    ! Species concentration\n    DO S = 1, State_Diag%ObsPack_nSpecies\n       varName  = State_Diag%ObsPack_Species_Name(S)\n       attVal = State_Diag%ObsPack_Species_LName(S)\n       CALL NcDef_Variable( fId, TRIM(varName), NF90_FLOAT, 1, dims_1d, vId  )\n       CALL NcDef_Var_Attributes( fId, vId, 'long_name', TRIM(attVal)        )\n       CALL NcDef_Var_Attributes( fId, vId, 'units',     'mol mol-1'         )\n       CALL NcDef_Var_Attributes( fId, vId, '_FillValue', -1e34              )\n\n    ENDDO\n\n    ! End the definition section\n    CALL NcEnd_def( fId )\n\n    !=======================================================================\n    ! Write variables to disk\n    ! NOTE: Dimension order is row-major (i.e. the reverse of Fortran)\n    !=======================================================================\n\n    !---------------------------------------\n    ! Write 2-D variables\n    !---------------------------------------\n    st2d    = (/ 1,            1    /)\n    ct2d    = (/ CHAR_LEN_OBS, nObs /)\n\n    varName = 'obspack_id'\n    CALL NcWr(State_Diag%ObsPack_CharArray, fId, TRIM(varName), st2d, ct2d  )\n\n    !---------------------------------------\n    ! Write 1-D variables\n    !---------------------------------------\n    st1d = (/ 1    /)\n    ct1d = (/ nObs /)\n\n    varName = 'nsamples'\n    CALL NcWr( State_Diag%ObsPack_nSamples, fId, TRIM(varName), st1d, ct1d  )\n\n    varname = 'averaging_interval'\n    CALL NcWr( aveTime,                     fId, TRIM(varName), st1d, ct1d  )\n\n    varname = 'averaging_interval_start'\n    CALL NcWr( aveStart,                    fId, TRIM(varName), st1d, ct1d  )\n\n    varname = 'averaging_interval_end'\n    CALL NcWr( aveEnd,                      fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'lon'\n    CALL NcWr( State_Diag%ObsPack_Longitude,fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'lat'\n    CALL NcWr( State_Diag%ObsPack_Latitude, fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'u'\n    CALL NcWr( State_Diag%ObsPack_U,        fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'v'\n    CALL NcWr( State_Diag%ObsPack_V,        fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'blh'\n    CALL NcWr( State_Diag%ObsPack_BLH,      fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'q'\n    CALL NcWr( State_Diag%ObsPack_Q,        fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'pressure'\n    CALL NcWr( State_Diag%ObsPack_P,        fId, TRIM(varName), st1d, ct1d  )\n\n    varName = 'temperature'\n    CALL NcWr( State_Diag%ObsPack_T,        fId, TRIM(varName), st1d, ct1d  )\n\n    !---------------------------------------\n    ! Write species concentrations\n    !---------------------------------------\n    DO S = 1, State_Diag%ObsPack_nSpecies\n       varName =  State_Diag%ObsPack_Species_Name(S)\n       ptr1d   => State_Diag%ObsPack_Species(:,S)\n       CALL NcWr( ptr1d, fId, TRIM(varName), st1d, ct1d  )\n       ptr1d   => NULL()\n    ENDDO\n\n    ! Close the netCDF file\n    CALL NcCl( fId )\n\n    !=======================================================================\n    ! Cleanup and quit\n    !=======================================================================\n    IF ( ALLOCATED( aveStart ) ) THEN\n       DEALLOCATE( aveStart, STAT=RC )\n       CALL GC_CheckVar( 'obspack_mod.F90:aveStart', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( aveEnd ) ) THEN\n       DEALLOCATE( aveEnd, STAT=RC )\n       CALL GC_CheckVar( 'obspack_mod.F90:aveEnd', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    IF ( ALLOCATED( aveTime ) ) THEN\n       DEALLOCATE( aveTime, STAT=RC )\n       CALL GC_CheckVar( 'obspack_mod.F90:aveTime', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n    ENDIF\n\n    CALL ObsPack_Cleanup( Input_Opt, State_Diag, RC )\n    IF ( RC /= GC_SUCCESS ) THEN\n       ErrMsg = 'Error encountered in \"ObsPack_Cleanup!\"'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n  END SUBROUTINE ObsPack_Write_Output\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ObsPack_Sample\n!\n! !DESCRIPTION: Subroutine ObsPack\\_Sample performs the model sampling\n!  and saves concentrations to locations corresponding to a flight track.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_Sample( yyyymmdd,   hhmmss,     Input_Opt, State_Chm, &\n                             State_Diag, State_Grid, State_Met, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Error_Mod,      ONLY : Debug_Msg\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n    USE Time_Mod,       ONLY : Ymd_Extract\n    USE Timers_Mod,     ONLY : Timer_End,   Timer_Start\n    USE UnitConv_Mod,   ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)    :: yyyymmdd    ! Current date\n    INTEGER,        INTENT(IN)    :: hhmmss      ! Current time\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n    TYPE(GrdState), INTENT(IN)    :: State_Grid  ! Grid State object\n    TYPE(MetState), INTENT(IN)    :: State_Met   ! Meteorology State object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  08 Jun 2015 - A. Jacobson, A. Schuh - imported from Andrew Schuh's\n!                                        ct_mod.F, itself modified from\n!                                        planeflight_mod.F\n!  03 Mar 2017 - A. Jacobson - Update to v11 (get species in \"v/v dry\")\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL             :: doSample,       endOfDay\n    LOGICAL             :: prtLog,         validObs\n    INTEGER             :: I,              J,         L\n    INTEGER             :: N,              R,         S\n    INTEGER             :: Yr,             Mo,        Da\n    INTEGER             :: Hr,             Mn,        Sc\n    REAL(f8)            :: HalfTsDyn,      Interval,  Tomorrow\n    REAL(f8)            :: TsStart,        TsDyn,     TsEnd\n    REAL(f8)            :: TsEndPlusTsDyn\n\n    ! Strings\n    CHARACTER(LEN=255)  :: ErrMsg,         ThisLoc\n\n    !========================================================================\n    ! ObsPack_Sample begins here\n    !========================================================================\n\n    ! Initialize\n    RC        =  GC_SUCCESS\n    TsDyn     = DBLE( Input_Opt%TS_DYN )\n    HalfTsDyn = tsDyn * 0.5_f8\n    ErrMsg    = ''\n    ThisLoc   = ' -> at ObsPack_Sample (in module ObsPack/obspack_mod.F90)'\n    prtLog    = (Input_Opt%amIRoot .and. ( .not. Input_Opt%ObsPack_Quiet ) )\n\n    ! Return if ObsPack sampling is turned off (perhaps\n    ! because there are no data at this time).\n    IF ( .not. State_Diag%Do_ObsPack ) RETURN\n\n    !========================================================================\n    ! Unit conversion\n    !========================================================================\n\n    ! Halt diags timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Diagnostics\", RC )\n    ENDIF\n\n    ! Verify that incoming State_Chm%Species units are mol/mol dry air.\n    IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN\n       ErrMsg = 'Not all species are in \"mol/mol dry\" units!'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! Start diags timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Diagnostics\", RC )\n    ENDIF\n\n    !========================================================================\n    ! Sample the GEOS-Chem data corresponding to this location & time\n    !========================================================================\n\n    ! Extract date and time into components\n    CALL Ymd_Extract( yyyymmdd, Yr, Mo, Da )\n    CALL Ymd_Extract( hhmmss,   Hr, Mn, Sc )\n\n    ! Compute elapsed seconds since 1970 at model date/time\n    TsEnd          = Seconds_Since_1970( Yr, Mo, Da, Hr, Mn, Sc )\n    TsStart        = TsEnd - TsDyn\n    TsEndPlusTsDyn = TsEnd + TsDyn\n\n    ! Compute elapsed seconds since 1970 at the start of the next day\n    Tomorrow       = Seconds_Since_1970( Yr, Mo, Da, 0, 0, 0 ) + 86400.0_f8\n\n    ! Are we within 1 model timestep of the next model day?\n    endOfDay       = ( ( Tomorrow - TsEnd ) <= TsDyn )\n\n    ! Logfile header\n    IF ( prtLog ) THEN\n       WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n       WRITE( 6, 100     ) Yr, Mo, Da, Hr, Mn, Sc\n 100   FORMAT( 'OBSPACK SAMPLING at ', i4,   '/', i2.2, '/', i2.2,           &\n               ' ',                    i2.2, ':', i2.2, ':', i2.2           )\n       WRITE( 6, '(/,a)' ) ' Obs # ID string'\n       WRITE( 6, '(a)'   ) '------ -----------------'\n\n    ENDIF\n\n    ! Loop over observations\n    DO N = 1, State_Diag%ObsPack_nObs\n\n       !initializing flag for whether sampling should occur at this timestep\n       doSample = .FALSE.\n       validObs = .TRUE.\n\n       SELECT CASE( State_Diag%ObsPack_Strategy(N) )\n\n          !-------------------------------------------------------------------\n          ! Skip observation if the sampling strategy says to do so\n          !-------------------------------------------------------------------\n          CASE( 0 )\n             CYCLE\n\n          !------------------------------------------------------------------\n          ! Time-averaging sampling strategies:\n          ! 1: 4-hour averaging window\n          ! 2: 1-hour averaging window\n          ! 3: 90-min averaging window\n          !------------------------------------------------------------------\n          CASE( 1:3 )\n\n             ! If the averaging window completely covers the dynamic\n             ! timestep, then take the sample\n             IF ( State_Diag%ObsPack_Ival_Start(N) <= TsStart        .and.   &\n                  State_Diag%ObsPack_Ival_End(N)   >= TsEnd        )  THEN\n                doSample = .TRUE.\n\n             ! If the averaging window spans past the end of the UTC date.\n             ! take the sample but truncate the averaging interval accordingly\n             ELSE IF ( State_Diag%ObsPack_Ival_Start(N) > TsStart    .and.   &\n                       State_Diag%ObsPack_Ival_End(N)   > TsEnd      .and.   &\n                       MOD( TsEndPlusTsDyn, 86400.0_fp ) == 0      )  THEN\n                doSample                       = .TRUE.\n                State_Diag%ObsPack_Ival_End(N) = TsEndPlusTsDyn\n\n             ENDIF\n\n          !------------------------------------------------------------------\n          ! Instantaneous sampling strategies\n          ! 4: Choose the closest timestep\n          !------------------------------------------------------------------\n          CASE( 4 )\n             \n             ! Take the sample if it lies within 1/2 of a model dynamic\n             ! timestep on either side of the current model time\n             Interval = TsEnd - State_Diag%ObsPack_Ival_Center(N)\n             doSample = ( -Interval <= HalfTsDyn .and. Interval < HalfTsDyn )\n\n             ! EDGE CASE: If we are on the last timestep before the end\n             ! of the model day, then also include data points that lie\n             ! within 1/2 model timestep of the end of the model day.\n             IF ( endOfDay .and. .not. doSample ) THEN\n                Interval = Tomorrow - State_Diag%ObsPack_Ival_Center(N)\n                doSample = ( Interval <= HalfTsDyn )\n             ENDIF\n\n          CASE DEFAULT\n             ErrMsg = &\n              \"Sample Strategy not implemented in ObsPack_Sample Subroutine\"\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n       END SELECT\n\n       !---------------------------------------------------------------------\n       ! If sampling strategy time-step conditions are met,\n       ! sample at these times\n       !---------------------------------------------------------------------\n       IF ( doSample ) THEN\n\n          ! Return grid box indices for the chemistry region\n          CALL ObsPack_Get_Indices( N,         State_Diag, State_Grid,       &\n                                    State_Met, I,          J,                &\n                                    L,         validObs,   RC               )\n\n          ! Trap potential errors\n          IF ( RC /= GC_SUCCESS ) THEN\n             ErrMsg = 'Error encountered in \"ObsPack_Get_Indices\"!'\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! If the observation location is not valid (i.e. if it is outside\n          ! of a nested-grid domain) then go to the next observation\n          IF ( .not. validObs ) THEN\n             doSample = .FALSE.\n             CYCLE\n          ENDIF\n\n          ! Print the observations that are sampled here (valid obs only)\n          IF ( prtLog ) THEN\n             WRITE( 6, '(i6,1x,a)' ) N, TRIM( State_Diag%ObsPack_Id(N) )\n          ENDIF\n\n          !------------------------\n          ! Update sample counter\n          !------------------------\n          State_Diag%ObsPack_nSamples(N) = State_Diag%ObsPack_nSamples(N) + 1\n\n          !------------------------\n          ! Archive species\n          !------------------------\n\n          ! Loop over the # of requested species\n          DO R = 1, State_Diag%ObsPack_nSpecies\n\n             ! Get the proper index for State_Chm%Species\n             S = State_Diag%ObsPack_Species_Ind(R)\n\n             ! Add the species concentration\n             State_Diag%ObsPack_Species(N,R) =                               &\n             State_Diag%ObsPack_Species(N,R) + State_Chm%Species(S)%Conc(I,J,L)\n          ENDDO\n\n          !-----------------------\n          ! Archive met fields\n          !-----------------------\n          State_Diag%ObsPack_U(N)   = State_Diag%ObsPack_U(N)                &\n                                    + State_Met%U(I,J,L)\n\n          State_Diag%ObsPack_V(N)   = State_Diag%ObsPack_V(N)                &\n                                    + State_Met%V(I,J,L)\n\n          State_Diag%ObsPack_BLH(N) = State_Diag%ObsPack_BLH(N)              &\n                                    + State_Met%PBLH(I,J)\n\n          State_Diag%ObsPack_Q(N)   = State_Diag%ObsPack_Q(N)                &\n                                    + State_Met%SPHU(I,J,L)\n\n          State_Diag%ObsPack_P(N)   = State_Diag%ObsPack_P(N)                &\n                                    + State_Met%PMID(I,J,L)\n\n          State_Diag%ObsPack_T(N)   = State_Diag%ObsPack_T(N)                &\n                                    + State_Met%T(I,J,L)\n\n       ENDIF\n    ENDDO\n\n    ! Logfile footer\n    IF ( prtLog ) THEN\n       WRITE( 6, '(a,/)' ) REPEAT( '=', 79 )\n    ENDIF\n\n    !========================================================================\n    ! Cleanup and quit\n    !========================================================================\n\n    ! Halt diags timer (so that unit conv can be timed separately)\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_End( \"Diagnostics\", RC )\n    ENDIF\n\n    ! Start diags timer again\n    IF ( Input_Opt%useTimers ) THEN\n       CALL Timer_Start( \"Diagnostics\", RC )\n    ENDIF\n\n  END SUBROUTINE ObsPack_Sample\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ObsPack_Get_Grid_Indices\n!\n! !DESCRIPTION: Subroutine ObsPack\\_GET\\_GRID\\_INDICES returns the\n!  grid box indices (I, J, L) corresponding to the input point\n!  defined by longitude, latitude, altitude.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_Get_Indices( iObs,      State_Diag, State_Grid,         &\n                                  State_Met, I,          J,                  &\n                                  L,         validObs,   RC                 )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE State_Diag_Mod, ONLY : DgnState\n    USE State_Grid_Mod, ONLY : GrdState\n    USE State_Met_Mod,  ONLY : MetState\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER,        INTENT(IN)  :: iObs         ! ObsPack Observation number\n    TYPE(DgnState), INTENT(IN)  :: State_Diag   ! Diagnostics State object\n    TYPE(GrdState), INTENT(IN)  :: State_Grid   ! Grid State object\n    TYPE(MetState), INTENT(IN)  :: State_Met    ! Meteorology State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT) :: I, J, L      ! Lon, lat, level indices\n    LOGICAL,        INTENT(OUT) :: validObs     ! Is obs inside model grid?\n    INTEGER,        INTENT(OUT) :: RC           ! Success or failure?\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  5 Jun 2015 - A. Jacobson - First version\n!  3 Mar 2017 - A. Jacobson - Update to v11 (use State_Met%BXHEIGHT instead of my own hypsometry)\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    INTEGER            :: idx, I0, J0\n    REAL(f8)           :: Z\n\n    ! Strings\n    CHARACTER(LEN=255) :: ErrMsg, ThisLoc\n\n    !========================================================================\n    ! ObsPack_Get_Indices begins here!\n    !========================================================================\n\n    ! Initialize\n    RC       = GC_SUCCESS\n    validObs = .TRUE.\n    ErrMsg   = ''\n    ThisLoc  = ' -> at ObsPack_Get_Indices (in module ObsPack/obspack_mod.F90'\n    \n    !------------------------------------------------------------------------\n    ! Exit with error if the observations have invalid lon/lat/alt values\n    !------------------------------------------------------------------------\n    IF ( State_Diag%ObsPack_Longitude(iObs) <    -180.0_f8   .or.            &\n         State_Diag%ObsPack_Longitude(iObs) >     180.0_f8   .or.            &\n         State_Diag%ObsPack_Latitude(iObs)  <     -90.0_f8   .or.            &\n         State_Diag%ObsPack_Latitude(iObs)  >      90.0_f8   .or.            &\n         State_Diag%ObsPack_Altitude(iObs)  <   -1000.0_f8   .or.            &\n         State_Diag%ObsPack_Altitude(iObs)  >  200000.0_f8 ) THEN\n\n       ! Print error message and exit\n       I = -1\n       J = -1\n       L = -1\n       CALL GC_Error( ErrMsg, Rc, ThisLoc )\n       RETURN\n    ENDIF\n\n    !------------------------------------------------------------------------\n    ! For nested grids, make sure the observation lies within the grid\n    ! domain.  Otherwise this will result in an out-of-bounds error.\n    !------------------------------------------------------------------------\n    IF ( State_Grid%NestedGrid ) THEN\n       IF ( State_Diag%ObsPack_Longitude(iObs) < State_Grid%XMin   .or.      &\n            State_Diag%ObsPack_Longitude(iObs) > State_Grid%XMax   .or.      &\n            State_Diag%ObsPack_Latitude(iObs)  < State_Grid%YMin   .or.      &\n            State_Diag%ObsPack_Latitude(iObs)  > State_Grid%YMax ) THEN\n          validObs = .FALSE.\n          RETURN\n       ENDIF\n    ENDIF\n\n    ! Added correct definitions for I and J based on nested regions\n    ! (lds, 8/25/11)\n    I0 = State_Grid%XMinOffset\n    J0 = State_Grid%YMinOffset\n\n    !------------------------------------------------------------------------\n    ! Find I corresponding to the ObsPack longitude value\n    !------------------------------------------------------------------------\n    I = INT( ( State_Diag%ObsPack_Longitude(iObs) + 180.0_f8                 &\n                                                  - ( I0 * State_Grid%DX ) ) &\n                                                  / State_Grid%DX + 1.5d0  )\n\n    ! Handle date line correctly (bmy, 4/23/04)\n    IF ( I > State_Grid%NX ) I = I - State_Grid%NX\n\n    !------------------------------------------------------------------------\n    ! Find J corresponding to the ObsPack latitude value\n    !------------------------------------------------------------------------\n    J = INT( ( State_Diag%ObsPack_Latitude(iObs)  +  90.0_f8                 &\n                                                  - ( J0 * State_Grid%DY ) ) &\n                                                  / State_Grid%DY + 1.5d0  )\n\n    !------------------------------------------------------------------------\n    ! Find L corresponding to the ObsPack altitude value\n    ! ObsPack altitude variable defined as MASL, so Z\n    ! starts at surface height\n    !------------------------------------------------------------------------\n    Z = State_Met%PHIS(I,J) ! units [m]\n    DO L = 1, State_Grid%NZ\n       Z = Z + State_Met%BXHEIGHT(I,J,L)\n       IF ( Z >= State_Diag%ObsPack_Altitude(iObs) ) RETURN\n    ENDDO\n\n    !========================================================================\n    ! Issue error message if we get here.\n    !========================================================================\n    !WRITE (6,*) 'At I,J =',i,j\n    !FLUSH(6)\n\n    Z = State_Met%PHIS(I,J) ! units [m]\n    DO L = 1,State_Grid%NZ\n       Z = Z + State_Met%BXHEIGHT(I,J,L)\n       WRITE (6,*) L,' bxheight and z:', State_Met%BXHEIGHT(I,J,L), Z\n    ENDDO\n    WRITE( ErrMsg, 100 ) State_Diag%ObsPack_Altitude(iObs), Z,               &\n                         State_Diag%ObsPack_Latitude(iObs),                  &\n                         State_Diag%ObsPack_Longitude\n100 FORMAT( \"Altitude \", f11.4, \"m exceeds TOA of \", f11.4,                  &\n            \"m at \",     f11.4, \"N,\",                f11.4, \"E\"             )\n\n    CALL GC_Error( ErrMsg, RC, ThisLoc )\n\n  END SUBROUTINE ObsPack_Get_Indices\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: Seconds_Since_1970\n!\n! !DESCRIPTION: Computes the seconds that have elapsed since 1970/01/01\n!  at 00:00 UTC.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  FUNCTION Seconds_Since_1970( Year, Month,  Day,                            &\n                               Hour, Minute, Second ) RESULT( Elapsed_Sec )\n!\n! !USES:\n!\n    USE Julday_Mod, ONLY : Julday\n!\n! !INPUT PARAMETERS:\n!\n    INTEGER, INTENT(IN) :: Year, Month, Day       ! Current date\n    INTEGER, INTENT(IN) :: Hour, Minute, Second   ! Current time\n!\n! !RETURN VALUE:\n!\n    REAL(f8)            :: Elapsed_Sec            ! Elapsed seconds since\n                                                  ! 1970/01/01 00:00 UTC\n!\n! !REMARKS:\n!\n! !REVISION HISTORY:\n!  06 Dec 2018 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    REAL(f8) :: FracDay, Jsec\n\n    !=======================================================================\n    ! Seconds_Since_1970 begins here!\n    !=======================================================================\n\n    ! Compute the fractional day\n    FracDay = DBLE( Day ) + ( DBLE( Hour   ) /    24.0_f8 )  +               &\n                            ( DBLE( Minute ) /  1440.0_f8 )  +               &\n                            ( DBLE( Second ) / 86400.0_f8 )\n\n    ! Compute the Astronomical Julian Date (in decimal days)\n    ! and then convert the result to seconds.\n    JSec = JulDay( Year, Month, FracDay ) * 86400.0_f8\n\n    ! Compute the Elapsed seconds since 1970/01/01 by subtracting the\n    ! Astronomical Julian Date at 1970/01/01 00:00 UTC converted to seconds.\n    ! Just keep the integer part, since we are dealing in integral seconds.\n    ! NINT ensures that we round up in case there is underflow.\n    Elapsed_Sec = NINT( JSec - 210866760000.0_f8 )\n\n  END FUNCTION Seconds_Since_1970\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ObsPack_SpeciesMap_Init\n!\n! !DESCRIPTION: Gets the index, name, and long name for each requested\n!  ObsPack species from the GEOS-Chem Species Database.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_SpeciesMap_Init( Input_Opt, State_Chm, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE Species_Mod,    ONLY : Species\n    USE State_Chm_Mod,  ONLY : ChmState, Ind_\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(ChmState), INTENT(INOUT) :: State_Chm   ! Chemistry State object\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine can be called at the model initialization stage.\n!  (unlike ObsPack_Init, which is called every time a new input file is read).\n!\n! !REVISION HISTORY:\n!  04 Jan 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n!\n! !LOCAL VARIABLES:\n!\n    ! Scalars\n    LOGICAL                :: WildCard\n    INTEGER                :: N,       nSpc,     R\n\n    ! Strings\n    CHARACTER(LEN=255)     :: ErrMsg,  ThisLoc,  SpcName\n\n    ! Objects\n    TYPE(Species), POINTER :: ThisSpc\n\n    !=======================================================================\n    ! ObsPack_SpeciesMap_Innit begins here!\n    !=======================================================================\n\n    ! Initialize\n    RC      = GC_SUCCESS\n    ErrMsg  =''\n    ThisLoc =                                                                &\n     ' -> at ObsPack_SpeciesMap_Init (in module Obspack/obspack_mod.F90)'\n\n    !=======================================================================\n    ! Allocate appropriate fields of State_Diag\n    !=======================================================================\n\n    ! Number of species that will be saved to ObsPack output\n    ! (accounting for any wildcards)\n    IF ( TRIM( Input_Opt%ObsPack_SpcName(1) ) == '?ADV?' ) THEN\n       State_Diag%ObsPack_nSpecies = State_Chm%nAdvect\n       WildCard                    = .TRUE.\n    ELSE\n       State_Diag%ObsPack_nSpecies = Input_Opt%ObsPack_nSpc\n       WildCard                    = .FALSE.\n    ENDIF\n\n    ! Save in a shadow variable\n    nSpc = State_Diag%ObsPack_nSpecies\n\n    ! Trap potential errors\n    IF ( nSpc < 1 ) THEN\n       ErrMsg = 'OBSPACK: No valid species found!  Exiting...'\n       CALL GC_Error( ErrMsg, RC, ThisLoc )\n       RETURN\n    ENDIF\n\n    ! ObsPack species index\n    ALLOCATE( State_Diag%ObsPack_Species_Ind( nSpc ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Species_Ind', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Species_Ind = 0\n\n    ! ObsPack species name\n    ALLOCATE( State_Diag%ObsPack_Species_Name( nSpc ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Species_Name', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Species_Name = ''\n\n    ! ObsPack species long-name\n    ALLOCATE( State_Diag%ObsPack_Species_LName( nSpc ), STAT=RC )\n    CALL GC_CheckVar( 'State_Diag%ObsPack_Species_LName', 0, RC )\n    IF ( RC /= GC_SUCCESS ) RETURN\n    State_Diag%ObsPack_Species_LName = ''\n\n    !=======================================================================\n    ! Map species: for each ObsPack requested species, find the\n    ! corresponding entry in the GEOS-Chem Species Database.\n    !=======================================================================\n    IF ( WildCard ) THEN\n\n       !--------------------------------------------------------------\n       ! Take all advected species if the ?ADV? wildcard is found\n       !--------------------------------------------------------------\n\n       ! Loop over all advected species\n       DO R = 1, State_Chm%nAdvect\n\n          ! Get the overall species index\n          N = State_Chm%Map_Advect(R)\n\n          ! Point to the relevant entry in the species database\n          ThisSpc => State_Chm%SpcData(N)%Info\n\n          ! Save metadata from species database to ObsPack arrays\n          State_Diag%ObsPack_Species_Ind(R)   = N\n          State_Diag%ObsPack_Species_Name(R)  = TRIM( ThisSpc%Name     )\n          State_Diag%ObsPack_Species_LName(R) = TRIM( ThisSpc%FullName )\n\n          ! Free pointer\n          ThisSpc => NULL()\n       ENDDO\n\n    ELSE\n\n       !--------------------------------------------------------------\n       ! Otherwise look up individual species names\n       !--------------------------------------------------------------\n       DO R = 1, State_Diag%ObsPack_nSpecies\n\n          ! Get the species index\n          N = Ind_( Input_Opt%ObsPack_SpcName(R) )\n\n          ! If the species isn't found, exit with error\n          IF ( N < 0 ) THEN\n             ErrMsg = 'Could not find species database info for the '     // &\n                      'ObsPack requested species: '                       // &\n                      TRIM( Input_Opt%ObsPack_SpcName(R) )\n             CALL GC_Error( ErrMsg, RC, ThisLoc )\n             RETURN\n          ENDIF\n\n          ! Point to the relevant entry in the species database\n          ThisSpc => State_Chm%SpcData(N)%Info\n\n          ! Save metadata from species database to ObsPack arrays\n          State_Diag%ObsPack_Species_Ind(R)   = N\n          State_Diag%ObsPack_Species_Name(R)  = TRIM( ThisSpc%Name     )\n          State_Diag%ObsPack_Species_LName(R) = TRIM( ThisSpc%FullName )\n\n          ! Free pointer\n          ThisSpc => NULL()\n\n       ENDDO\n    ENDIF\n\n    !=======================================================================\n    ! Print output of Obspack requested species names\n    !=======================================================================\n    IF ( Input_Opt%amIRoot .and. ( .not. Input_Opt%ObsPack_Quiet ) ) THEN\n\n       ! Header\n       WRITE( 6, '(/,a)' ) REPEAT( '=', 79 )\n       WRITE( 6, '(a,/)' ) 'OBSPACK: Species that will be saved as output'\n       WRITE( 6, 100     )\n       WRITE( 6, 110     )\n\n       ! Species info\n       DO R = 1, State_Diag%ObsPack_nSpecies\n          WRITE( 6, 120 ) State_Diag%ObsPack_Species_Ind(R),                 &\n                          State_Diag%ObsPack_Species_Name(R)(1:31),          &\n                          State_Diag%ObsPack_Species_Lname(R)(1:45)\n       ENDDO\n\n       ! FORMAT statements\n 100   FORMAT( ' Index  Name', 29x, 'Long name' )\n 110   FORMAT( '------  ----', 29x, '---------' )\n 120   FORMAT( i6, 2x, a31, 2x, a40 )\n\n       ! Footer\n       WRITE( 6, '(a,/)'   ) REPEAT( '=', 79 )\n    ENDIF\n\n  END SUBROUTINE ObsPack_SpeciesMap_Init\n!EOC\n!------------------------------------------------------------------------------\n!                  GEOS-Chem Global Chemical Transport Model                  !\n!------------------------------------------------------------------------------\n!BOP\n!\n! !IROUTINE: ObsPack_SpeciesMap_Cleanup\n!\n! !DESCRIPTION: Deallocates and frees fields of State\\_Diag that are\n!  relevant to the ObsPack species mapping.\n!\\\\\n!\\\\\n! !INTERFACE:\n!\n  SUBROUTINE ObsPack_SpeciesMap_Cleanup( Input_Opt, State_Diag, RC )\n!\n! !USES:\n!\n    USE ErrCode_Mod\n    USE Input_Opt_Mod,  ONLY : OptInput\n    USE State_Chm_Mod,  ONLY : ChmState\n    USE State_Diag_Mod, ONLY : DgnState\n!\n! !INPUT PARAMETERS:\n!\n    TYPE(OptInput), INTENT(IN)    :: Input_Opt   ! Input Options object\n!\n! !INPUT/OUTPUT PARAMETERS:\n!\n    TYPE(DgnState), INTENT(INOUT) :: State_Diag  ! Diagnostics State object\n!\n! !OUTPUT PARAMETERS:\n!\n    INTEGER,        INTENT(OUT)   :: RC          ! Success or failure?\n!\n! !REMARKS:\n!  This routine can be called at the overall model finalization stage\n!  (unlike ObsPack_Cleanup, which is called every time a file is written).\n!\n! !REVISION HISTORY:\n!  04 Jan 2019 - R. Yantosca - Initial version\n!  See https://github.com/geoschem/geos-chem for complete history\n!EOP\n!------------------------------------------------------------------------------\n!BOC\n\n    !=======================================================================\n    ! ObsPack_SpeciesMap_Cleanup begins here!\n    !=======================================================================\n\n    ! Assume success\n    RC = GC_SUCCESS\n\n    ! Deallocate arrays\n    IF ( ASSOCIATED( State_Diag%ObsPack_Species_Ind ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Species_Ind, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Species_Ind', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Species_Ind => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Species_Name ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Species_Name, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Species_Name', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Species_Name => NULL()\n    ENDIF\n\n    IF ( ASSOCIATED( State_Diag%ObsPack_Species_Lname ) ) THEN\n       DEALLOCATE( State_Diag%ObsPack_Species_LName, STAT=RC )\n       CALL GC_CheckVar( 'State_Diag%ObsPack_Species_LName', 2, RC )\n       IF ( RC /= GC_SUCCESS ) RETURN\n       State_Diag%ObsPack_Species_Name => NULL()\n    ENDIF\n\n  END SUBROUTINE ObsPack_SpeciesMap_Cleanup\n!EOC\nEND MODULE ObsPack_Mod\n"
  },
  {
    "path": "PKUCPL/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\ngeos\ngeostomas\ngeosapm\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\ncore.*\n"
  },
  {
    "path": "PKUCPL/PKUCPL.F90",
    "content": "      PROGRAM MAIN\n\n!-------------------------------------------------------------------------------\n! PKUCPL.f95 provides utility to interrupt the normal DO-Loop of main.f\n! and wait for a dispatcher to coordinate runs. (yanyy,6/18/14)\n!-------------------------------------------------------------------------------\n\n!Define variables\n      IMPLICIT NONE\n      CHARACTER*8      :: strarg\n      CHARACTER        :: arg\n      INTEGER          :: narg, iarg\n      REAL*8           :: interval=0.5\n      INTEGER,EXTERNAL :: ifsleep, ifnotend\n      INTEGER,EXTERNAL :: ifsleeps, ifnotends\n      LOGICAL          :: ifdone=.FALSE., ifnest(3)=.FALSE.\n      CHARACTER*400    :: command,sed,combash\n      CHARACTER*400    :: rundir,lockdir,codedir,pkucpl\n\n      CALL getarg(2,codedir)\n      CALL getarg(3,rundir)\n      pkucpl = TRIM(codedir) // \"PKUCPL/PKUCPL.sh\"\n      lockdir = TRIM(rundir) // \"lock/\"\n      sed=\"sed '7c rundir='\"\n      CALL getarg(1,strarg)\n      narg=LEN_TRIM(ADJUSTL(strarg))\n\n      DO iarg=1,narg\n      arg=strarg(iarg:iarg)\n\n      SELECT CASE(arg)\n      CASE(\"c\")\n              ifnest(1)=.true.\n      CASE(\"n\")\n              ifnest(2)=.true.\n      CASE(\"e\")\n              ifnest(3)=.true.\n      CASE DEFAULT\n      END SELECT\n\n      ENDDO\n\n      WRITE(combash,'(A,A)') TRIM(sed) // TRIM(rundir) // TRIM('' ) // TRIM(pkucpl)\n      CALL SYSTEM(combash)\n      WRITE(command,'(A,A)') TRIM(pkucpl) // \" -\",TRIM(ADJUSTL(strarg))\n      CALL SYSTEM(command)\n\n      DO WHILE( ifnotends(ifnest,lockdir) == 1 )\n      DO WHILE( ifsleeps(ifnest,lockdir) == 1 &\n               .AND. ifnotends(ifnest,lockdir) == 1 )\n            CALL SLEEP(interval)\n      ENDDO\n         PRINT *,\"Get done signal-----------\"\n         PRINT *,\"------------------Let GEOS-Chem go--------------\"\n         CALL TOUCH_RM(ifnest)\n      ENDDO\n\n      PRINT *,\"Congratulation! The simulations is complete----------\"\n      CALL SYSTEM(\"date\")\n\n!------------------------------------------------------------------------\n!      Begin Subroutine Here\n!------------------------------------------------------------------------\n\n      CONTAINS\n\n      SUBROUTINE TOUCH_RM(ifnest)\n      IMPLICIT NONE\n      LOGICAL, INTENT(IN)   :: ifnest(3)\n\n      CALL SYSTEM(\"rm \" // TRIM(lockdir) // \"done*done\")\n      CALL SYSTEM(\"touch \" // TRIM(lockdir) // \"key.GLOBAL.key\")\n\n      IF (ifnest(1)) THEN\n           CALL SYSTEM(\"touch \" // TRIM(lockdir) // \"key.NESTED_CH.key\")\n      END IF\n      IF (ifnest(2)) THEN\n           CALL SYSTEM(\"touch \" // TRIM(lockdir) // \"key.NESTED_NA.key\")\n      END IF\n      IF (ifnest(3)) THEN\n           CALL SYSTEM(\"touch \" // TRIM(lockdir) // \"key.NESTED_EU.key\")\n      ENDIF\n\n      END SUBROUTINE TOUCH_RM\n!                      End Subtouine Touch_rm\n!-----------------------------------------------------------------------\n\n      END PROGRAM MAIN\n!                     End Program Main\n!-----------------------------------------------------------------------\n\n\n\n!-----------------------------------------------------------------------\n!              Begin Funtion Here\n!-----------------------------------------------------------------------\n\n      FUNCTION ifsleeps(ifnest,lockdir) RESULT(ifsleep)\n      IMPLICIT NONE\n      LOGICAL, INTENT(IN)    :: ifnest(3)\n      INTEGER                :: ifsleep\n      LOGICAL                :: done_global=.FALSE.\n      LOGICAL                :: done_nest(3)=.FALSE.,ifdone=.FALSE.\n      CHARACTER*200          :: lockdir, done(4)\n\n      done(1) = trim(lockdir) // \"done.GLOBAL.done\"\n      done(2) = trim(lockdir) // \"done.NESTED_CH.done\"\n      done(3) = trim(lockdir) // \"done.NESTED_NA.done\"\n      done(4) = trim(lockdir) // \"done.NESTED_EU.done\"\n\n      INQUIRE( FILE=TRIM(done(1)),EXIST=done_global )\n      INQUIRE( FILE=TRIM(done(2)),EXIST=done_nest(1) )\n      INQUIRE( FILE=TRIM(done(3)),EXIST=done_nest(2) )\n      INQUIRE( FILE=TRIM(done(4)),EXIST=done_nest(3) )\n      ifdone=done_global .AND. (ifnest(1) .EQV. done_nest(1)) .AND. &\n                               (ifnest(2) .EQV. done_nest(2)) .AND. &\n                               (ifnest(3) .EQV. done_nest(3))\n      IF (ifdone) THEN\n              ifsleep= 0\n      ELSE\n              ifsleep= 1\n      END IF\n      RETURN\n      END FUNCTION ifsleeps\n\n!----------------------------------------------------------------------\n\n      FUNCTION ifnotends(ifnest,lockdir) RESULT(ifnotend)\n      IMPLICIT NONE\n      LOGICAL, INTENT(IN) :: ifnest(3)\n      LOGICAL             :: ifend=.false.\n      INTEGER             :: ifnotend\n      LOGICAL             :: check(3)=.false.,end_global=.false.\n      CHARACTER*200       :: lockdir, endrun(4)\n\n      endrun(1) = trim(lockdir) // \"end.GLOBAL.end\"\n      endrun(2) = trim(lockdir) // \"end.NESTED_CH.end\"\n      endrun(3) = trim(lockdir) // \"end.NESTED_NA.end\"\n      endrun(4) = trim(lockdir) // \"end.NESTED_EU.end\"\n\n      INQUIRE( FILE=TRIM(endrun(1)),EXIST=end_global )\n      INQUIRE( FILE=TRIM(endrun(2)),EXIST=check(1) )\n      INQUIRE( FILE=TRIM(endrun(3)),EXIST=check(2) )\n      INQUIRE( FILE=TRIM(endrun(4)),EXIST=check(3) )\n      ifend=end_global .AND. (ifnest(1) .EQV. check(1)) .AND. &\n                             (ifnest(2) .EQV. check(2)) .AND. &\n                             (ifnest(3) .EQV. check(3))\n\n      IF (ifend) THEN\n              ifnotend = 0\n      ELSE\n              ifnotend = 1\n      ENDIF\n      RETURN\n      END FUNCTION ifnotends\n\n!-------------------------------------------------------------------------\n!      End Function\n!-------------------------------------------------------------------------\n"
  },
  {
    "path": "PKUCPL/PKUCPL.sh",
    "content": "#!/bin/bash\n#Record the beginning time\ndate\ndeclare -i count=0\n\n#Set the two-way coupled run dir and executable\n#rundir=\"template_dir_to_be_replaced_automatically_later\"\nrundir='/data/users/yanyy/v11/twoway_test/'\ndir_nested_NA=\"NA/\"\ndir_nested_CH=\"CH/\"\ndir_nested_EU=\"EU/\"\ndir_2x25=\"2x25/\"\ndir_4x5=\"4x5/\"\n\n\nmkdir $rundir/lock/\nrm -f $rundir/lock/*\n\nmkdir $rundir/exchange/\nrm -f $rundir/exchange/*\n\n#Options for two-way coupled runs\nwhile getopts \":24cne\" optname\ndo\n\tcase $optname in\n\t\tc)\n\t\t\tif [ \"$count\" == 0 ];then\n\t\t\t\tnested1=\"NESTED_CH\"\n\t\t\t\tnested1_dir=$rundir$dir_nested_CH\n\t\t\t\tcount=1\n\t\t\telif [ \"$count\" == 1 ];then\n\t\t\t\tnested2=\"NESTED_CH\"\n\t\t\t\tnested2_dir=$rundir$dir_nested_CH\n\t\t\t\tcount=2\n\t\t\telif [ \"$count\" == 2 ];then\n\t\t\t\tnested3=\"NESTED_CH\"\n\t\t\t\tnested3_dir=$rundir$dir_nested_CH\n\t\t\t\tcount=3\n\t\t\tfi\n\t\t\t;;\n\t\tn)\n\t\t\tif [ \"$count\" == 0 ];then\n\t\t\t\tnested1=\"NESTED_NA\"\n\t\t\t\tnested1_dir=$rundir$dir_nested_NA\n\t\t\t\tcount=1\n\t\t\telif [ \"$count\" == 1 ];then\n\t\t\t\tnested2=\"NESTED_NA\"\n\t\t\t\tnested2_dir=$rundir$dir_nested_NA\n\t\t\t\tcount=2\n\t\t\telif [ \"$count\" == 2 ];then\n\t\t\t\tnested3=\"NESTED_NA\"\n\t\t\t\tnested3_dir=$rundir$dir_nested_NA\n\t\t\t\tcount=3\n\t\t\tfi\n\t\t\t;;\n                e)\n\t\t\tif [ \"$count\" == 0 ];then\n\t\t\t\tnested1=\"NESTED_EU\"\n                                nested1_dir=$rundir$dir_nested_EU\n\t\t\t\tcount=1\n\t\t\telif [ \"$count\" == 1 ];then\n\t\t\t\tnested2=\"NESTED_EU\"\n\t\t\t\tnested2_dir=$rundir$dir_nested_EU\n\t\t\t\tcount=2\n\t\t\telif [ \"$count\" == 2 ];then\n\t\t\t\tnested3=\"NESTED_EU\"\n\t\t\t\tnested3_dir=$rundir$dir_nested_EU\n\t\t\t\tcount=3\n\t\t\tfi\n\t\t\t;;\n\t\t2)\n\t\t\tglobal_dir=$rundir$dir_2x25\n\t\t\t;;\n\t\t4)\n\t\t\tglobal_dir=$rundir$dir_4x5\n\t\t\t;;\n\t\t*)\n\t\t\techo \"unknown arguement\"\n\t\t\techo 'usage : ./run.sh [ -c ] [ -n ] [ -e ] '\n\t\t\texit 1\n\t\t\t;;\n\tesac\ndone\n\necho \"                 GLOBAL is exchanging with $nested1 $nested2 $nested3\"\n\npushd $global_dir\necho \"  @dir: $global_dir\"\n./gcclassic > log.gcclassic &\npopd\n\nif [ \"$count\" == 1 ] || [ \"$count\" == 2 ] || [ \"$count\" == 3 ];then\n\tpushd $nested1_dir\n\techo \"  @dir: $nested1_dir\"\n\t./gcclassic > log.gcclassic &\n\tpopd\nfi\nif [ \"$count\" == 2 ] || [ \"$count\" == 3 ];then\n\tpushd $nested2_dir\n\techo \"  @dir:$nested2_dir\"\n\t./gcclassic > log.gcclassic &\n\tpopd\nfi\nif [ \"$count\" == 3 ];then\n\tpushd $nested3_dir\n\techo \"  @dir: $nested3_dir\"\n\t./gcclassic > log.gcclassic &\n\tpopd\nfi\n\n"
  },
  {
    "path": "PKUCPL/README",
    "content": "README -- PeKing University CouPLer version 1 (PKUCPL)  -- Yan Y.-Y. 2014/06/23\n\n\nNOTE:     Users can couple a global model with any numbers of nested models, see below\n          *** Currently works with GEOS-5 met data (4x5, 2x2.5, 0.5x0.667)\n\n\nPKUCPL/:\n---------\n\n- Twoway.compile.sh -> Bash script to compile the two-way coupled modeling\n\n- geos/      -> contains the executable 'geos' compiled for global model\n- geosch/    -> contains the executable 'geos' compiled for nested model in Asia\n- geosna/    -> contains the executable 'geos' compiled for nested model in North America\n- geoseu/    -> contains the executable 'geos' compiled for nested model in Europe\n\n- PKUCPL.f95 -> modulate the normal DO-Loop of GeosCore/main.F, to coordinate all models\n\n- PKUCPL.sh  -> provide utility to run models in the right directories\n                *** Users can modify the run dir -- normally needs to be done once\n\n- run        -> outputted from PKUCPL.f95 and PKUCPL.sh, to modulate all models\n                *** Users need to execute this file to finally activate the two-way coupled simulation\n                Some examples:\n                ./run 2cne codedir rundir: couple global model (2x2.5) with three nested models in Asia, North America and Europe\n                ./run 2cn codedir rundir : couple global model (2x2.5) with three nested models in Asia and North America\n                ./run 2c  codedir rundir : couple global model (2x2.5) with three nested models in Asia\n                ./run 2n  codedir rundir : couple global model (2x2.5) with three nested models in North America\n                ./run 2e  codedir rundir : couple global model (2x2.5) with three nested models in Europe\n                ./run 4cne codedir rundir: couple global model (4x5) with three nested models in Asia, North America and Europe\n                ./run 4cn codedir rundir : couple global model (4x5) with three nested models in Asia and North America\n                ./run 4c  codedir rundir : couple global model (4x5) with three nested models in Asia\n                ./run 4n  codedir rundir : couple global model (4x5) with three nested models in North America\n                ./run 4e  codedir rundir : couple global model (4x5) with three nested models in Europe\n                *** rundir is the run directory for two-way coupled simulation; codedir is the directory for code sources\n\n\nAdditional code modification:\n-----------------------------\n\n- GeosCore/main.F              -> add the code of initialization, exchange, cleanup for two-way coupled model\n- GeosCore/exchange_mod.F      -> new file: contain variables & routines for data exchange across all models, in a two-way framework\n- GeosCore/Makefile            -> add code to compile exchange_mod.F\n- GeosUtil/time_mod.F          -> add code to define the timestep for data exchange between models\n- Makefile_header.mk           -> add options to compile for two-way coupled model\n\n\nExample run dir:\n--------------\n\n- run.v9-02.geos5.twoway/      -> master run directory, inside which there are:\n\n  - 2x25/                      -> run directory for global mdel\n    - run_global               -> batch job script to submit global model\n  - CH/                        -> run directory for nested model in Aisa\n    - run_nested               -> batch job script to submit nested CH model\n  - NA/                        -> run directory for nested model in North America\n    - run_nested               -> batch job script to submit nested NA model\n  - EU/                        -> run directory for nested model in Europe\n    - run_nested               -> batch job script to submit nested EU model\n  - lock/                      -> directory for ancillary files communicating run imformation between models\n                                  Example files inside:\n                                    done*done: to pause a model and wait for data update\n                                    key*key  : to continue a model after all necessary data update\n  - exchange/                  -> temporary directory to contain data for exchange between models\n\n\nBatch job script:\n---------------\n\n- run_twoway                   -> batch job script to do two-way coupled simulation\n\n\n\nSetup steps:\n---------------\n\n 1. set up the run directories\n       * e.g., master run dir      : /home/yanyy/geoschem/run/run.v9-02.geos5.twoway/\n               run for Global 2x2.5: /home/yanyy/geoschem/run/run.v9-02.geos5.twoway/2x25/\n               run for Asia nested : /home/yanyy/geoschem/run/run.v9-02.geos5.twoway/CH/\n\n 2. set up the batch job script in run directories\n\n 3. go to PKUCPL/ in the code directory\n\n 4. make sure the run directories for individual models defined in PKUCPL.sh are consistent with the setup at the 1st step\n       * No need to change the variable 'rundir' in PKUCPL.sh -- It will be automatically corrected later\n\n 5. compile for two-way coupled model: ./Twoway.compile.sh\n       * This step generates the executables for all global/nested models, and an additional executable 'run' as a coupling master\n\n 6. copy the executable 'run' and the batch job script 'run_twoway' to the master run directory\n\n 7. go to the master run directory, and submit the batch job script 'run_twoway' for two-way simulation: qsub run_twoway\n\n"
  },
  {
    "path": "PKUCPL/Twoway.compile.sh",
    "content": "#!/bin/bash\n\n#Record the beginning time for compiling\ndate\ndeclare -i account=0\n\n#Set the two-way coupled run (used in Makefile_header.mk)\nCOUPLE=\"COUPLE=yes\"\n#COUPLECH=\"COUPLECH=4x5ch\"\n#COUPLENA=\"COUPLENA=4x5na\"\n#COUPLEEU=\"COUPLEEU=4x5eu\"\nCOUPLECH=\"COUPLECH=2x25ch\"\nCOUPLENA=\"COUPLENA=2x25na\"\n#COUPLEEU=\"COUPLEEU=2x25eu\"\n\n#Set the nesting option\nNESTEU=\"NEST=eu\"\nNESTNA=\"NEST=na\"\nNESTCH=\"NEST=ch\"\n\n#Set the MET input\nMET=\"MET=geos5\"\n\nPRE=\"PRECISION=4\"\n\n#Set the CHEM input\nCHEM='CHEM=TROPCHEM'\n\n#Set the GRID input\nGRID=\"GRID=2x25\"\n#GRID=\"GRID=4x5\"\nGRIDNEST=\"GRID=05x0666\"\n\n#Set the name for geos\ngeos=\"geos\"\ngeosna=\"geosna\"\ngeoseu=\"geoseu\"\ngeosch=\"geosch\"\n\n#Option for making\noption=\"-j4\"\n\n#Set the code dir and run dir\ndir_code=\"/data/users/yanyy/v11/Code_dir/twoway_test/\"\ndir_coupler=\"PKUCPL/\"\ndir_geos=\"geos/\"\ndir_geosna=\"geosna/\"\ndir_geoseu=\"geoseu/\"\ndir_geosch=\"geosch/\"\ndir_bin=\"bin/\"\ndir_compile='Twoway.compile.sh'\n\n#Compile the code for nested model in Aisa\nif [ ${#COUPLECH} != 0 ]; then\nrm -f $dir_code$dir_coupler$dir_geosch$geos\ncd $dir_code\nmake realclean\nmake $option $MET $CHEM $GRIDNEST $NESTCH $COUPLE $COUPLECH #$PRE\ncp $dir_code$dir_bin$geos $dir_code$dir_coupler$dir_geosch\nfi\n\n#Compile the code for nested model in North America\nif [ ${#COUPLENA} != 0 ]; then\nrm -f $dir_code$dir_coupler$dir_geosna$geos\ncd $dir_code\nmake realclean\nmake $option $MET $CHEM $GRIDNEST $NESTNA $COUPLE $COUPLENA #$PRE\ncp $dir_code$dir_bin$geos $dir_code$dir_coupler$dir_geosna\nfi\n\n#Compile the code for nested model in Europe\nif [ ${#COUPLEEU} != 0 ]; then\nrm -f $dir_code$dir_coupler$dir_geoseu$geos\ncd $dir_code\nmake realclean\nmake $option $MET $CHEM $GRIDNEST $NESTEU $COUPLE $COUPLEEU #$PRE\ncp $dir_code$dir_bin$geos $dir_code$dir_coupler$dir_geoseu\nfi\n\n#Compile the code for global model\nrm -f $dir_code$dir_coupler$dir_geos$geos\ncd $dir_code\nmake realclean\nmake $option $MET $CHEM $GRID $COUPLE $COUPLENA $COUPLECH $COUPLEEU # $PRE\ncp $dir_code$dir_bin$geos $dir_code$dir_coupler$dir_geos\n\n#Compile the PKUCPL\ncd $dir_code$dir_coupler\nrm -f PKUCPL.o run\n#ifort -O2 -o run PKUCPL.F90\nifort -g -check bounds -traceback -o run PKUCPL.F90\n\n"
  },
  {
    "path": "PKUCPL/run_twoway",
    "content": "#!/bin/bash\n#PBS -V\n##PBS -N run_twoway\n#PBS -j oe\n##PBS -m yanyy09@163.com\n#PBS -l nodes=1:ppn=1\n\nulimit -c 0\nulimit -s unlimited\nulimit -f unlimited\n#export KMP_STACKSIZE=unlimited\nexport KMP_STACKSIZE=100000000\n\n# OMP_NUM_THREADS = number of ppn divided by number of global/nested models\nexport OMP_NUM_THREADS=8\n\ncodedir=/home/yanyy/geoschem/run/src/Code.v9-02.two-way/\nrundir=/home/yanyy/geoschem/run.v9-02.geos5.twoway/\n\ncd $rundir\n\ndate\nrun 2cne $codedir $rundir > run.log\ndate\n\n"
  },
  {
    "path": "README.md",
    "content": "[![Release](https://img.shields.io/github/v/release/geoschem/geos-chem?label=Latest%20Release)](http://wiki.geos-chem.org/GEOS-Chem_versions)\n[![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.1343546.svg)](https://doi.org/10.5281/zenodo.1343546)\n[![License](https://img.shields.io/badge/License-MIT-blue.svg)](https://github.com/geoschem/geos-chem/blob/master/LICENSE.txt)\n\n## Description\n\nThis repository contains the __GEOS-Chem science codebase__.  Included in this repository are:\n\n  * The source code for GEOS-Chem science routines;\n  * Scripts to create GEOS-Chem run directories;\n  * Template configuration files that specify run-time options;\n  * Scripts to run GEOS-Chem tests;\n  * Driver routines (e.g. `main.F90`) that enable GEOS-Chem to be run in several different implementations (as GEOS-Chem \"Classic\", as GCHP, etc.)\n\n### Version 12.9.3 and prior\n\nGEOS-Chem 12.9.3 was the last version in which this \"Science Codebase\" repository was used in a standalone manner.\n\n### Version 13.0.0 and later\n\nGEOS-Chem 13.0.0 and later versions use this \"Science Codebase\" repository as a  submodule within the [GCClassic](https://github.com/geoschem/GCClassic) and [GCHP](https://github.com/geoschem/GCHP) repositories.\n\nReleases for GEOS-Chem 13.0.0 and later versions will be issued at the [GCClassic](https://github.com/geoschem/GCClassic) and [GCHP](https://github.com/geoschem/GCHP) Github repositories. We will also tag and release the corresponding versions at this repository for the sake of completeness.\n\n## User Manuals\n\nEach implementation of GEOS-Chem has its own manual page.  For more information, please see:\n\n* __GEOS-Chem \"Classic\":__ [https://geos-chem.readthedocs.io](https://geos-chem.readthedocs.io)\n\n* __GCHP:__ [https://gchp.readthedocs.io](https://gchp.readthedocs.io)\n\n* __WRF-GC:__ [http://wrf.geos-chem.org](http:/wrf.geos-chem.org)\n\n* __Other documentation:__ [View related documentation @ Read TheDocs](https://geos-chem.readthedocs.io/en/latest/geos-chem-shared-docs/supplemental-guides/related-docs.html)\n\n## About GEOS-Chem\n\nGEOS-Chem is a global 3-D model of atmospheric chemistry driven by meteorological input from the Goddard Earth Observing System (GEOS) of the [NASA Global Modeling and Assimilation Office](http://gmao.gsfc.nasa.gov/). It is applied by [research groups around the world](http://geos-chem.org/people.html) to a wide range of atmospheric composition problems. Scientific direction of the model is provided by the international [GEOS-Chem Steering Committee](http://geos-chem.org/steering-committee.html) and by [User Working Groups](http://geos-chem.org/working-groups.html). The model is managed by the [GEOS-Chem Support Team](http://geos-chem.org/support-team.html), based at Harvard University and Washington University with support from the US NASA Earth Science Division, the Canadian National and Engineering Research Council, and the Nanjing University of Information Sciences and Technology.\n\nGEOS-Chem is a grass-roots open-access model owned by its [users](http://geos-chem.org/people.html), and ownership implies some responsibilities as listed in our [welcome page for new users](http://geos-chem.org/welcome.html).\n"
  },
  {
    "path": "run/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "run/CESM/HEMCO_Config.rc",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See The HEMCO User's Guide for file details:\n#    http://wiki.geos-chem.org/The_HEMCO_User%27s_Guide\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        /glade/campaign/cesm/cesmdata/cseg/inputdata/atm/cam/geoschem/emis/ExtData/HEMCO\nGCAPSCENARIO:                not_used\nGCAPVERTRES:                 47\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> HEMCO_RESTART          :       false\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> CEDSv2                 :       true     # 1750-2019\n    --> CEDS_GBDMAPS           :       false    # 1970-2017\n    --> CEDS_GBDMAPS_byFuelType:       false    # 1970-2017\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAPv3                 :       false    # 2000-2018\n    --> GEIA_NH3               :       true     # 1990\n    --> SEABIRD_NH3            :       true     # 1990\n    --> POET_EOH               :       false    # 1985\n    --> TZOMPASOSA_C2H6        :       true     # 2010\n    --> XIAO_C3H8              :       true     # 1985\n    --> LIANG_BROMOCARB        :       true     # 2000\n    --> ORDONEZ_IODOCARB       :       true     # 2000\n    --> GT_Chlorine            :       true     # 1960-2014\n    --> DECAYING_PLANTS        :       true     # 1985\n    --> AFCID                  :       true     # 2015\n# ----- AIRCRAFT EMISSIONS ----------------------------------------------------\n# There are 3 switches:\n#\n#  1. AEIC2019_DAILY selects daily AEIC 2019 emissions.  For most simulations,\n#     this is not recommended due to the amount of computational overhead\n#     that will be incurred in regridding.  But this may be useful for\n#     research purposes.  Recommended setting: \"AEIC2019_DAILY: false\".\n#\n#  2. AEIC2019_MONMEAN selects monthly-mean AEIC 2019 emisisons, which will\n#     incur much less computational overhaead.  This option should suffice\n#     for most simulations.  Recommended setting \"AEIC2019_MONMEAN: true\".\n#\n#  3. AEIC_SCALE_1990_2019: If \"false\", the AEIC 2019 data from the year\n#     2019 alone will be used.  This will yield a \"best estimate\" of\n#     aviation emisssion. This could be important because simply scaling\n#     aviation emissions up and down is rather nonphysical.  But if\n#     AEIC_SCALE_1990_2019 is set to true, then aviation emissions for\n#     1990 to 2019 are estimated by:\n#\n#     a. Scaling ALL aviation emissions based on the growth in fuelburn\n#        from 1990 to 2019* estimated by Lee et al. (2021); and\n#\n#     b. Scaling aviation NOx emissions by an additional factor to reflect\n#        the changes in the NOx emissions index over the same period as\n#        reported by Lee et al. (2021).\n#\n#     Recommended setting: \"AEIC_SCALE_1990_2019: true\"\n#\n# See additional notes in the AEIC scale factor section below.\n#------------------------------------------------------------------------------\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       true     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       true     # Scale to year in 1990-2019\n# ----- SHIP EMISSIONS --------------------------------------------------------\n    --> SHIP                   :       true\n    --> CEDSv2_SHIP            :       true     # 1750-2017\n    --> CEDS_GBDMAPS_SHIP      :       false    # 1970-2017\n    --> CEDS_GBDMAPS_SHIP_byFuelType:  false    # 1970-2017\n    --> HTAPv3_SHIP            :       false    # 2000-2018\n    --> ICOADS_SHIP            :       false    # 2002\n    --> ARCTAS_SHIP            :       false    # 2008\n    --> CORBETT_SHIP           :       false    # 1985\n# ----- RCP FUTURE EMISSIONS --------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- CMIP6 ANTHRO EMISSIONS / BOUNDARY CONDITIONS --------------------------\n#   Set GCAPSCENARIO (e.g., HIST, SSP585) above in SECTION SETTINGS\n    --> CMIP6_SFC_BC           :       false    # 1750-2100\n    --> CMIP6_SFC_LAND_ANTHRO  :       false    # 1850-2100\n    --> CMIP6_AIRCRAFT         :       false    # 1850-2100\n    --> CMIP6_SHIP             :       false    # 1850-2100\n# ----- BIOMASS BURNING EMISSIONS ---------------------------------------------\n    --> QFED2                  :       false    # 2000-2020\n    --> GFAS                   :       false    # 2003-2021\n    --> BB4MIPS                :       false    # 1850-2100\n    --> GFED4_CLIMATOLOGY      :       false    # If true, turn off GFED ext below\n# ----- OFFLINE EMISSIONS -----------------------------------------------------\n# To use online emissions instead set the offline emissions to 'false' and the\n# corresponding HEMCO extension to 'on':\n#   OFFLINE_DUST        - DustL23M\n#   OFFLINE_BIOGENICVOC - MEGAN\n#   OFFLINE_SEASALT     - SeaSalt\n#   OFFLINE_SOILNOX     - SoilNOx\n#\n# NOTE: When switching between offline and online emissions, make sure to also\n# update ExtNr and Cat in HEMCO_Diagn.rc to properly save out emissions for\n# any affected species.\n#------------------------------------------------------------------------------\n    --> OFFLINE_DUST           :       false   # 1980-2019\n    --> OFFLINE_BIOGENICVOC    :       false   # 1980-2020\n    --> OFFLINE_SEASALT        :       false   # 1980-2019\n    -->  CalcBrSeasalt         :       false\n    --> OFFLINE_SOILNOX        :       true    # 1980-2020\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> UVALBEDO               :       true     # 1985\n    --> CCM_STRAT_Bry          :       false    # 2007\n    --> GMI_OH                 :       false    # 2005\n    --> GMI_PROD_LOSS          :       false    # 2005\n    --> OMOC_RATIO             :       true     # 2010\n    --> GMD_SFC_CH4            :       true     # 1979-2020\n    --> CMIP6_SFC_CH4          :       false    # 1750-1978\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n    --> RRTMG                  :       false    # 2002\n    --> SfcVMR                 :       true     # 1750-2014\n    --> OCEAN_O3_DRYDEP        :       true     # 1985\n# -----------------------------------------------------------------------------\n100     Custom                 : off   -\n101     SeaFlux                : on    DMS/ACET/ALD2/MENO3/ETNO3/MOH\n102     ParaNOx                : off   NO/NO2/O3/HNO3\n    --> LUT data format        :       nc\n    --> LUT source dir         :       $ROOT/PARANOX/v2015-02\n103     LightNOx               : off   NO\n    --> LightningClimatology   :       off\n    --> CDF table              :       $ROOT/LIGHTNOX/v2014-07/light_dist.ott2010.dat\n104     SoilNOx                : off   NO\n    --> Use fertilizer NOx     :       true\n#ewl: Use BRSALA or BrSALA, BrSALC or BRSALC. Did this change in standard model?\n107     SeaSalt                : off   SALA/SALC/SALACL/SALCCL/SALAAL/SALCAL/BrSALA/BrSALC/MOPO/MOPI\n    --> SALA lower radius      :       0.01\n    --> SALA upper radius      :       0.5\n    --> SALC lower radius      :       0.5\n    --> SALC upper radius      :       8.0\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       5.0\n    --> Model sea salt Br-     :       true\n    --> Br- mass ratio         :       2.11e-3\n108     MEGAN                  : off   ISOP/ACET/PRPE/C2H4/ALD2/MOH/EOH/MTPA/MTPO/LIMO/SESQ/SOAP/SOAS\n    --> Isoprene scaling       :       1.0\n    --> CO2 inhibition         :       true\n    --> CO2 conc (ppmv)        :       390.0\n    --> Isoprene to SOAP       :       0.015\n    --> Isoprene to SOAS       :       0.015\n    --> Monoterp to SOAP       :       0.050\n    --> Monoterp to SOAS       :       0.050\n    --> Othrterp to SOAP       :       0.050\n    --> Othrterp to SOAS       :       0.050\n# For CESM: (1) use bc_a4 and pom_a4 instead of BCPO, BCPI, OCPO, and OCPI in GFED, and\n# (2) add scaling for bc_a4 and pom_a4\n111     GFED                   : on    NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/bc_a4/pom_a4/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6\n    --> GFED4                  :       true\n    --> GFED_daily             :       false\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n    --> Scaling_NAP            :       2.75e-4\n    --> Scaling_bc_a4          :       1.0\n    --> Scaling_pom_a4         :       1.4\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> fraction POG1          :       0.49\n    --> CO to SOAP             :       0.013\n    --> GFED_subgrid_coag      :       false\n#see the note near scale factor 281 for the source of this emis factor\n114     FINN                   : off   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP/STYR/EBZ/TMB/ROH/RCOOH/RCHO/ACTA/EOH/HCOOH/ISOP/MACR/MVK/MOH/R4N2/FURA\n    --> FINN_daily             :       false\n    --> Scaling_CO             :       1.0\n    --> Scaling_SOAP           :       0.013\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> FINN_subgrid_coag      :       false\n117     Volcano                : on    SO2\n    --> Volcano_Source         :       AeroCom\n    --> Volcano_Table          :       $ROOT/VOLCANO/v2024-04/$YYYY/$MM/so2_volcanic_emissions_Carns.$YYYY$MM$DD.rc\n    --> Volcano_Climatology    :       $ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc\n120     Inorg_Iodine           : on    HOI/I2\n    --> Emit HOI               :       true\n    --> Emit I2                :       true\n125     DustL23M               : off   DSTbin1/DSTbin2/DSTbin3/DSTbin4/DSTbin5/DSTbin6/DSTbin7\n    --> Mass tuning factor     :       -999.0\n#see the note near scale factor 281 for the source of this emis factor\n126     DustAlk                : off   DSTALbin1/DSTALbin2/DSTALbin3/DSTALbin4/DSTALbin5/DSTALbin6/DSTALbin7\n# ----- EXTENSIONS FOR TOMAS SIMULATIONS ONLY----------------------------------\n130     TOMAS_Jeagle           : off   SS01/SS02/SS03/SS04/SS05/SS06/SS07/SS08/SS09/SS10/SS11/SS12/SS13/SS14/SS15/SS16/SS17/SS18/SS19/SS20/SS21/SS22/SS23/SS24/SS25/SS26/SS27/SS28/SS29/SS30/SS31/SS32/SS33/SS34/SS35/SS36/SS37/SS38/SS39/SS40\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       1.0\n    --> Model sea salt Br-     :       false\n    --> Br- mass ratio         :       2.11e-3\n131     TOMAS_DustDead         : off   DUST01/DUST02/DUST03/DUST04/DUST05/DUST06/DUST07/DUST08/DUST09/DUST10/DUST11/DUST12/DUST13/DUST14/DUST15/DUST16/DUST17/DUST18/DUST19/DUST20/DUST21/DUST22/DUST23/DUST24/DUST25/DUST26/DUST27/DUST28/DUST29/DUST30/DUST31/DUST32/DUST33/DUST34/DUST35/DUST36/DUST37/DUST38/DUST39/DUST40\n    --> Mass tuning factor     :       4.7586e-4\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# --- APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_NO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NOx 1989-2014/1/1/0 RF xy kg/m2/s NO   25/1002/115    1 30\n0 APEI_CO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO  1989-2014/1/1/0 RF xy kg/m2/s CO   26/52/1002     1 30\n0 APEI_SOAP -                                   -   -               -  -  -       SOAP 26/52/1002/280 1 30\n0 APEI_SO2  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc SOx 1989-2014/1/1/0 RF xy kg/m2/s SO2  60/1002        1 30\n0 APEI_SO4  -                                   -   -               -  -  -       SO4  60/65/1002     1 30\n0 APEI_pFe  -                                   -   -               -  -  -       pFe  60/68/1002     1 30\n0 APEI_NH3  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NH3 1989-2014/1/1/0 RF xy kg/m2/s NH3  1002           1 30\n0 APEI_BCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPI 70/1002        1 30\n0 APEI_BCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPO 71/1002        1 30\n0 APEI_OCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPI 72/1002        1 30\n0 APEI_OCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPO 73/1002        1 30\n0 APEI_POG1 -                                       -    -          -  -  -       POG1 74/76/1002     1 30\n0 APEI_POG2 -                                       -    -          -  -  -       POG2 74/77/1002     1 30\n)))APEI\n\n#==============================================================================\n# --- EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #1007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_BCPI__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__afdustPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__afdustPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__afdustPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__afdustPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__afdustPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__afdustPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__agACET             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__agALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__agALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__agBENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_C2H4__agETH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__agETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__agETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__agFORM             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_PRPE__agIOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__agKET               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__agMEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__agNH3               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_PRPE__agOLE              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__agPAR              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_C3H8__agPRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_TOLU__agTOL              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__agXYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__airportsACET       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__airportsACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__airportsALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__airportsALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__airportsBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__airportsCO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__airportsSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__airportsETH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__airportsETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__airportsETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__airportsFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__airportsHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__airportsIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__airportsKET         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__airportsMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NO__airportsNO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__airportsNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__airportsOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__airportsPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__airportsPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__airportsPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__airportsPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__airportsPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__airportsPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__airportsPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__airportsPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__airportsSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__airportspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__airportsSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__airportsTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__airportsXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonptACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__nonptCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__nonptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__nonptHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HCL        2016/1-12/1/0      R  xy   kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__nonptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonroadACET        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonroadACROLEIN    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonroadALD2        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonroadALDX        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonroadBENZ        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__nonroadCO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonroadSOAP        -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonroadETH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonroadETHA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonroadETOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonroadFORM        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__nonroadHONO        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadIOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonroadKET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonroadMEOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonroadNH3          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonroadNO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonroadNO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonroadPAR         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonroadPNA         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonroadPNH4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonroadPNO3         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonroadPOC         -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonroadPOC         -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonroadPRPA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonroadPSO4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonroadSO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonroadspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonroadSULF         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonroadTOL         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonroadXYLMN       $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__npogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__npogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__npogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__npogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__npogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__npogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__npogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__npogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__npogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__npogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__npogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__npogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__npogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__npogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__npogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__npogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__npogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__npogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__npogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__npogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__npogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__npogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__npogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__npogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__npogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__npogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__npogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__npogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__npogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__npogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__npogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__npogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__npogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroadACET         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroadACROLEIN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroadALD2         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroadALDX         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroadBENZ         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroadCO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroadSOAP         -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroadETH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroadETHA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroadETOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroadFORM         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroadHONO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroadIOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroadKET           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroadMEOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroadNH3           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroadNO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroadNO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroadOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroadPAR          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroadPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroadPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroadPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroadPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroadPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroadPRPA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroadPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroadSO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroadpFe           -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroadTOL          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroadXYLMN        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_caACET      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_caACROLEIN  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_caALD2      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_caALDX      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_caBENZ      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_caCO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP_onroad__caSOAP      -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_caETH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_caETHA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_caETOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_caFORM      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_caHONO      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caIOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_caKET        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_caMEOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_caNH3        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_caNO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_caNO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_caPAR       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_caPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_caPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_caPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_caPRPA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_caPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_caSO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_capFe        -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroad_caTOL       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_caXYLMN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__railACET           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__railACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__railALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__railALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__railBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__railCO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__railSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__railETH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__railETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__railETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__railFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__railHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__railIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__railKET             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__railMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__railNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__railNO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__railNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__railOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__railPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__railPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__railPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__railPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__railPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__railPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__railPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__railPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__railSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__railpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__railSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__railTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__railXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__rwcACET            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__rwcACROLEIN        $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__rwcALD2            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__rwcALDX            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__rwcBENZ            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__rwcCL2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__rwcCO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__rwcSOAP            -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__rwcETH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__rwcETHA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__rwcETOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__rwcFORM            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__rwcHONO            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__rwcIOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__rwcKET              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__rwcMEOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__rwcNH3              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__rwcNO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__rwcNO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__rwcOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__rwcPAR             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__rwcPNA             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__rwcPNH4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__rwcPNO3             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__rwcPOC             -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__rwcPOC             -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__rwcPRPA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__rwcPSO4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__rwcSO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__rwcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__rwcSULF             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__rwcTOL             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__rwcXYLMN           $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c1c2ACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c1c2ALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c1c2ALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c1c2BENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c1c2CO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__clc2SOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c1c2ETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c1c2ETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c1c2ETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c1c2FORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c1c2HONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2IOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c1c2KET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c1c2MEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c1c2NH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c1c2NO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c1c2NO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2OLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c1c2PAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c1c2PNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c1c2PNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c1c2PNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__clc2POC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__clc2POC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c1c2PRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c1c2PSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c1c2SO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__clcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c1c2SULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c1c2TOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c1c2XYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c3ACET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c3ALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c3ALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c3BENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c3CO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__c3SOAP             -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c3ETH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c3ETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c3ETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c3FORM             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c3HONO             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c3IOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c3KET               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c3MEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c3NH3               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c3NO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c3NO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c3OLE              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c3PAR              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c3PNA              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c3PNH4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c3PNO3              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__c3POC              -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__c3POC              -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c3PRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c3PSO4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c3SO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__c2pFe               -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c3SULF              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c3TOL              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c3XYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__pteguACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__pteguACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__pteguALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__pteguALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__pteguBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__pteguCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__pteguCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__pteguSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__pteguETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__pteguETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__pteguETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__pteguFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__pteguHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__pteguHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__pteguIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__pteguKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__pteguMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__pteguNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__pteguNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__pteguNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__pteguOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__pteguPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__pteguPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__pteguPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__pteguPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__pteguPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__pteguPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__pteguPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__pteguPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__pteguSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptegupFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__pteguSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__pteguTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__pteguXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptogHCL             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO         2002-2020/1-12/1/0 RF xyz  kgNO2/m2/s NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptnonipmACET       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptnonipmACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptnonipmALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptnonipmALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptnonipmBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptnonipmCL2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CL2        2002-2020/1-12/1/0 R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptnonipmCO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptnonipmSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptnonipmETH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptnonipmETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptnonipmETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptnonipmFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptnonipmHCL         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HCL        2002-2020/1-12/1/0 R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptnonipmHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptnonipmKET         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptnonipmMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptnonipmNH3         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptnonipmNO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptnonipmNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptnonipmPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptnonipmPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptnonipmPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptnonipmPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptnonipmPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptnonipmPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptnonipmSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptnonipmpFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptnonipmSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptnonipmTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptnonipmXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_canACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_canALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_canALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_canBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_canCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_canSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_canETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_canETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_canETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_canFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_canHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_canKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_canMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_canNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_canNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_canNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_canPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_canPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_canPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_canPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_canPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_canPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_canSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_canpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_canSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_canTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_canXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_mexACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_mexALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_mexALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_mexBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_mexCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_mexSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_mexETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_mexETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_mexETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_mexFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_mexHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_mexKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_mexMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_mexNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_mexNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_mexNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_mexPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_mexPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_mexPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_mexPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_mexPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_mexPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_mexSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_mexpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_mexSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_mexTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_mexXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othafdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othafdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othafdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othafdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othafdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othafdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__otharACET          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__otharALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__otharALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__otharBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__otharCO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__otharSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__otharETH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__otharETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__otharETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__otharFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__otharHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__otharIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__otharKET            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__otharMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__otharNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__otharNO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__otharNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__otharOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__otharPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__otharPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__otharPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__otharPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__otharPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__otharPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__otharPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__otharPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__otharSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__otharpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__otharSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__otharTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__otharXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othptdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__othptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__othptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__othptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__othptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__othptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__othptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__othptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__othptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__othptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__othptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__othptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__othptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__othptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__othptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__othptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__othptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__othptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__othptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__othptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__othptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__othptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__othptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__othptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__othptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__othptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__othptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n# ------------------------\n#  Cars\n# ------------------------\n0 DICE_CARS_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CO      2013/1/1/0 C xy g/m2/yr  CO    26/1008         1 60\n0 DICE_CARS_SOAP  -                                                                 -       -          - -  -        SOAP  26/1008/280     1 60\n0 DICE_CARS_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  NO      2013/1/1/0 C xy g/m2/yr  NO    25/30/1008      1 60\n0 DICE_CARS_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALK4    2013/1/1/0 C xy g/m2/yr  ALK4  26/1008         1 60\n0 DICE_CARS_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ISOP    2013/1/1/0 C xy g/m2/yr  ISOP  26/1008         1 60\n0 DICE_CARS_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ACET    2013/1/1/0 C xy g/m2/yr  ACET  26/1008         1 60\n0 DICE_CARS_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  MEK     2013/1/1/0 C xy g/m2/yr  MEK   26/1008         1 60\n0 DICE_CARS_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALD2    2013/1/1/0 C xy g/m2/yr  ALD2  26/1008         1 60\n0 DICE_CARS_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  RCHO    2013/1/1/0 C xy g/m2/yr  RCHO  26/1008         1 60\n0 DICE_CARS_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  PRPE    2013/1/1/0 C xy g/m2/yr  PRPE  26/1008         1 60\n0 DICE_CARS_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CH2O    2013/1/1/0 C xy g/m2/yr  CH2O  26/1008         1 60\n0 DICE_CARS_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  SO2     2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008      1 60\n0 DICE_CARS_SO4   -                                                                 -       -          - -  -        SO4   31/63/1008      1 60\n0 DICE_CARS_pFe   -                                                                 -       -          - -  -        pFe   31/78/66/1008   1 60\n0 DICE_CARS_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  C2H4    2013/1/1/0 C xy g/m2/yr  C2H4  26/1008         1 60\n0 DICE_CARS_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BENZ    2013/1/1/0 C xy g/m2/yr  BENZ  26/1008         1 60\n0 DICE_CARS_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  TOLU    2013/1/1/0 C xy g/m2/yr  TOLU  26/1008         1 60\n0 DICE_CARS_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  XYLE    2013/1/1/0 C xy g/m2/yr  XYLE  26/1008         1 60\n0 DICE_CARS_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BC      2013/1/1/0 C xy g/m2/yr  BCPI  70/1008         1 60\n0 DICE_CARS_BCPO  -                                                                 -       -          - -  -        BCPO  71/1008         1 60\n0 DICE_CARS_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  OC      2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/330     1 60\n0 DICE_CARS_OCPO  -                                                                 -       -          - -  -        OCPO  73/1008/330     1 60\n0 DICE_CARS_POG1  -                                                                 -       -          - -  -        POG1  74/76/1008/330  1 60\n0 DICE_CARS_POG2  -                                                                 -       -          - -  -        POG2  74/77/1008/330  1 60\n\n# ------------------------\n#  Motorcycles\n# ------------------------\n0 DICE_MOTORCYCLES_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CO     2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_MOTORCYCLES_SOAP  -                                                                        -      -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_MOTORCYCLES_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  NO     2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_MOTORCYCLES_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  SO2    2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_MOTORCYCLES_SO4   -                                                                        -      -          - -  -        SO4   31/63/1008       1 60\n0 DICE_MOTORCYCLES_pFe   -                                                                        -      -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_MOTORCYCLES_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALK4   2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_MOTORCYCLES_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  MEK    2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_MOTORCYCLES_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALD2   2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_MOTORCYCLES_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  PRPE   2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_MOTORCYCLES_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CH2O   2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_MOTORCYCLES_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BENZ   2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_MOTORCYCLES_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  TOLU   2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_MOTORCYCLES_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BC     2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_MOTORCYCLES_BCPO  -                                                                        -      -          - -  -        BCPO  71/1008          1 60\n0 DICE_MOTORCYCLES_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  OC     2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_MOTORCYCLES_OCPO  -                                                                        -      -          - -  -        OCPO  73/1008          1 60\n0 DICE_MOTORCYCLES_POG1  -                                                                        -      -          -  - -        POG1  74/76/1008       1 60\n0 DICE_MOTORCYCLES_POG2  -                                                                        -      -          -  - -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Backup generators\n# ------------------------\n0 DICE_BACKUPGEN_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CO   2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_BACKUPGEN_SOAP  -                                                                          -    -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_BACKUPGEN_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO   2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_BACKUPGEN_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO2  2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       1 60\n0 DICE_BACKUPGEN_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  SO2  2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_BACKUPGEN_SO4   -                                                                          -    -          - -  -        SO4   31/63/1008       1 60\n0 DICE_BACKUPGEN_pFe   -                                                                          -    -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_BACKUPGEN_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ACET 2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_BACKUPGEN_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MEK  2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_BACKUPGEN_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ALD2 2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_BACKUPGEN_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  RCHO 2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_BACKUPGEN_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MVK  2013/1/1/0 C xy g/m2/yr  MVK   26/1008          1 60\n0 DICE_BACKUPGEN_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MACR 2013/1/1/0 C xy g/m2/yr  MACR  26/1008          1 60\n0 DICE_BACKUPGEN_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CH2O 2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n#0 DICE_BACKUPGEN_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MGLY 2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          1 60\n#0 DICE_BACKUPGEN_GLYX $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  GLYX 2013/1/1/0 C xy g/m2/yr  GLYX  26/1008          1 60\n0 DICE_BACKUPGEN_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  C2H4 2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          1 60\n0 DICE_BACKUPGEN_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BENZ 2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_BACKUPGEN_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  TOLU 2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_BACKUPGEN_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  XYLE 2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_BACKUPGEN_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BC   2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_BACKUPGEN_BCPO  -                                                                          -    -          - -  -        BCPO  71/1008          1 60\n0 DICE_BACKUPGEN_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  OC   2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_BACKUPGEN_OCPO  -                                                                          -    -          - -  -        OCPO  73/1008          1 60\n0 DICE_BACKUPGEN_POG1  -                                                                          -    -          - -  -        POG1  74/76/1008       1 60\n0 DICE_BACKUPGEN_POG2  -                                                                          -    -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Charcoal production\n# ------------------------\n0 DICE_CHARCOALPROD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008/320      1 60\n0 DICE_CHARCOALPROD_SOAP  -                                                                                -     -          - -  -        SOAP  26/1008/280/320  1 60\n0 DICE_CHARCOALPROD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008/320   1 60\n0 DICE_CHARCOALPROD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008/320         1 60\n0 DICE_CHARCOALPROD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008/320      1 60\n0 DICE_CHARCOALPROD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008/320      1 60\n0 DICE_CHARCOALPROD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008/320      1 60\n0 DICE_CHARCOALPROD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPO  -                                                                                -     -          - -  -        BCPO  71/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPO  -                                                                                -     -          - -  -        OCPO  73/1008/320      1 60\n0 DICE_CHARCOALPROD_POG1  -                                                                                -     -          - -  -        POG1  74/76/1008/320   1 60\n0 DICE_CHARCOALPROD_POG2  -                                                                                -     -          - -  -        POG2  74/77/1008/320   1 60\n\n# ------------------------\n#  Flaring of natural gas\n# ------------------------\n0 DICE_GASFLARE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_GASFLARE_SOAP  -                                                                       -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_GASFLARE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_GASFLARE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_GASFLARE_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_GASFLARE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_GASFLARE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_GASFLARE_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_GASFLARE_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_GASFLARE_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_GASFLARE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_GASFLARE_BCPO  -                                                                       -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_GASFLARE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_GASFLARE_OCPO  -                                                                       -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_GASFLARE_POG1  -                                                                       -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_GASFLARE_POG2  -                                                                       -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Ag waste burning for energy\n# ------------------------------\n0 DICE_AGBURNING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_AGBURNING_SOAP  -                                                                                       -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_AGBURNING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_AGBURNING_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_AGBURNING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_AGBURNING_SO4   -                                                                                       -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_AGBURNING_pFe   -                                                                                       -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_AGBURNING_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_AGBURNING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_AGBURNING_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_AGBURNING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          2 60\n0 DICE_AGBURNING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_AGBURNING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_AGBURNING_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_AGBURNING_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MACR  2013/1/1/0 C xy g/m2/yr  MACR  26/1008          2 60\n0 DICE_AGBURNING_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_AGBURNING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          2 60\n0 DICE_AGBURNING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_AGBURNING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_AGBURNING_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_AGBURNING_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_AGBURNING_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_AGBURNING_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_AGBURNING_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_AGBURNING_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_AGBURNING_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_AGBURNING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_AGBURNING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_AGBURNING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_AGBURNING_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_AGBURNING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_AGBURNING_BCPO  -                                                                                       -     -          - -  g/m2/yr  BCPO  71/1008          2 60\n0 DICE_AGBURNING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_AGBURNING_OCPO  -                                                                                       -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_AGBURNING_POG1  -                                                                                       -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_AGBURNING_POG2  -                                                                                       -     -          - -  -        POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Charcoal use\n# ------------------------------\n0 DICE_CHARCOALUSE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_CHARCOALUSE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_CHARCOALUSE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_CHARCOALUSE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_CHARCOALUSE_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_CHARCOALUSE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_CHARCOALUSE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_CHARCOALUSE_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_CHARCOALUSE_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n0 DICE_CHARCOALUSE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_CHARCOALUSE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_CHARCOALUSE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_CHARCOALUSE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_CHARCOALUSE_POG1  -                                                                         -     -          - - -         POG1  74/76/1008       2 60\n0 DICE_CHARCOALUSE_POG2  -                                                                         -     -          - - -         POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Kerosene use\n# ------------------------------\n0 DICE_KEROSENE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_KEROSENE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_KEROSENE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_KEROSENE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_KEROSENE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_KEROSENE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_KEROSENE_POG1  -                                                                         -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_KEROSENE_POG2  -                                                                         -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Artisanal oil refining\n# ------------------------------\n0 DICE_OILREFINING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_OILREFINING_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_OILREFINING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_OILREFINING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_OILREFINING_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       1 60\n0 DICE_OILREFINING_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_OILREFINING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_OILREFINING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_OILREFINING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_OILREFINING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_OILREFINING_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  RCHO  2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_OILREFINING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          1 60\n0 DICE_OILREFINING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_OILREFINING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          1 60\n0 DICE_OILREFINING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_OILREFINING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_OILREFINING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_OILREFINING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_OILREFINING_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_OILREFINING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_OILREFINING_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_OILREFINING_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_OILREFINING_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       1 60\n\n# --------------------------\n#  Household fuelwood use\n# --------------------------\n0 DICE_HOUSEFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_HOUSEFUELWOOD_SOAP  -                                                                                   -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_HOUSEFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO4   -                                                                                   -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_HOUSEFUELWOOD_pFe   -                                                                                   -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_HOUSEFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_HOUSEFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPO  -                                                                                   -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPO  -                                                                                   -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_HOUSEFUELWOOD_POG1  -                                                                                   -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_HOUSEFUELWOOD_POG2  -                                                                                   -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------\n#  Commercial (other) fuelwood use\n# ---------------------------------\n0 DICE_OTHERFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_OTHERFUELWOOD_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_OTHERFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_OTHERFUELWOOD_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_OTHERFUELWOOD_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_OTHERFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_OTHERFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_OTHERFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_OTHERFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_OTHERFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_OTHERFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_OTHERFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_OTHERFUELWOOD_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_OTHERFUELWOOD_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1201/1008/70         1 60\n0 AF_EDGAR_BCPO_POW -                                                    -       -               -  -  -       BCPO 1201/1008/71         1 60\n0 AF_EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1202/1008/70         1 60\n0 AF_EDGAR_BCPO_ENG -                                                    -       -               -  -  -       BCPO 1202/1008/71         1 60\n0 AF_EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1203/1008/70         1 60\n0 AF_EDGAR_BCPO_IND -                                                    -       -               -  -  -       BCPO 1203/1008/71         1 60\n0 AF_EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1205/1008/70         1 60\n0 AF_EDGAR_BCPO_TNG -                                                    -       -               -  -  -       BCPO 1205/1008/71         1 60\n0 AF_EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1211/1008/70         1 60\n0 AF_EDGAR_BCPO_SWD -                                                    -       -               -  -  -       BCPO 1211/1008/71         1 60\n\n0 AF_EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1201/26/52/1008      1 60\n0 AF_EDGAR_SOAP_POW -                                                    -       -               -  -  -       SOAP 1201/26/52/1008/280  1 60\n0 AF_EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1202/26/52/1008      1 60\n0 AF_EDGAR_SOAP_ENG -                                                    -       -               -  -  -       SOAP 1202/26/52/1008/280  1 60\n0 AF_EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1203/26/52/1008      1 60\n0 AF_EDGAR_SOAP_IND -                                                    -       -               -  -  -       SOAP 1203/26/52/1008/280  1 60\n0 AF_EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1205/26/52/1008      1 60\n0 AF_EDGAR_SOAP_TNG -                                                    -       -               -  -  -       SOAP 1205/26/52/1008/280  1 60\n0 AF_EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1207/26/52/1008      1 60\n0 AF_EDGAR_SOAP_PPA -                                                    -       -               -  -  -       SOAP 1207/26/52/1008/280  1 60\n0 AF_EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1211/26/52/1008      1 60\n0 AF_EDGAR_SOAP_SWD -                                                    -       -               -  -  -       SOAP 1211/26/52/1008/280  1 60\n\n0 AF_EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1201/25/115/1008     1 60\n0 AF_EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1202/25/115/1008     1 60\n0 AF_EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1203/25/115/1008     1 60\n0 AF_EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1205/25/115/1008     1 60\n0 AF_EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1207/25/115/1008     1 60\n0 AF_EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1208/25/115/1008     1 60\n0 AF_EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1211/25/115/1008     1 60\n\n0 AF_EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1201/1008            1 60\n0 AF_EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1202/1008            1 60\n0 AF_EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1203/1008            1 60\n0 AF_EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1205/1008            1 60\n0 AF_EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1207/1008            1 60\n0 AF_EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1208/1008            1 60\n0 AF_EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1210/1008            1 60\n0 AF_EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1211/1008            1 60\n\n0 AF_EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1201/1008/72         1 60\n0 AF_EDGAR_OCPO_POW -                                                    -       -               -  -  -       OCPO 1201/1008/73         1 60\n0 AF_EDGAR_POG1_POW -                                                    -       -               -  -  -       POG1 1201/1008/74/76      1 60\n0 AF_EDGAR_POG2_POW -                                                    -       -               -  -  -       POG2 1201/1008/74/77      1 60\n0 AF_EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1202/1008/72         1 60\n0 AF_EDGAR_OCPO_ENG -                                                    -       -               -  -  -       OCPO 1202/1008/73         1 60\n0 AF_EDGAR_POG1_ENG -                                                    -       -               -  -  -       POG1 1202/1008/74/76      1 60\n0 AF_EDGAR_POG2_ENG -                                                    -       -               -  -  -       POG2 1202/1008/74/77      1 60\n0 AF_EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1203/1008/72         1 60\n0 AF_EDGAR_OCPO_IND -                                                    -       -               -  -  -       OCPO 1203/1008/73         1 60\n0 AF_EDGAR_POG1_IND -                                                    -       -               -  -  -       POG1 1203/1008/74/76      1 60\n0 AF_EDGAR_POG2_IND -                                                    -       -               -  -  -       POG2 1203/1008/74/77      1 60\n0 AF_EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1205/1008/72         1 60\n0 AF_EDGAR_OCPO_TNG -                                                    -       -               -  -  -       OCPO 1205/1008/73         1 60\n0 AF_EDGAR_POG1_TNG -                                                    -       -               -  -  -       POG1 1205/1008/74/76      1 60\n0 AF_EDGAR_POG2_TNG -                                                    -       -               -  -  -       POG2 1205/1008/74/77      1 60\n0 AF_EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1211/1008/72         1 60\n0 AF_EDGAR_OCPO_SWD -                                                    -       -               -  -  -       OCPO 1211/1008/73         1 60\n0 AF_EDGAR_POG1_SWD -                                                    -       -               -  -  -       POG1 1211/1008/74/76      1 60\n0 AF_EDGAR_POG2_SWD -                                                    -       -               -  -  -       POG2 1211/1008/74/77      1 60\n\n0 AF_EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1201/1008            1 60\n0 AF_EDGAR_SO4_POW  -                                                    -       -               -  -  -       SO4  1201/1008/63         1 60\n0 AF_EDGAR_pFe_POW  -                                                    -       -               -  -  -       pFe  1201/1008/66         1 60\n0 AF_EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1202/1008            1 60\n0 AF_EDGAR_SO4_ENG  -                                                    -       -               -  -  -       SO4  1202/1008/63         1 60\n0 AF_EDGAR_pFe_ENG  -                                                    -       -               -  -  -       pFe  1202/1008/66         1 60\n0 AF_EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1203/1008            1 60\n0 AF_EDGAR_SO4_IND  -                                                    -       -               -  -  -       SO4  1203/1008/63         1 60\n0 AF_EDGAR_pFe_IND  -                                                    -       -               -  -  -       pFe  1203/1008/66         1 60\n0 AF_EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1205/1008            1 60\n0 AF_EDGAR_SO4_TNG  -                                                    -       -               -  -  -       SO4  1205/1008/63         1 60\n0 AF_EDGAR_pFe_TNG  -                                                    -       -               -  -  -       pFe  1205/1008/66         1 60\n0 AF_EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1207/1008            1 60\n0 AF_EDGAR_SO4_PPA  -                                                    -       -               -  -  -       SO4  1207/1008/63         1 60\n0 AF_EDGAR_pFe_PPA  -                                                    -       -               -  -  -       pFe  1207/1008/66         1 60\n0 AF_EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1211/1008            1 60\n0 AF_EDGAR_SO4_SWD  -                                                    -       -               -  -  -       SO4  1211/1008/63         1 60\n0 AF_EDGAR_pFe_SWD  -                                                    -       -               -  -  -       pFe  1211/1008/66         1 60\n)))DICE_Africa\n\n#==============================================================================\n# --- CEDS v2 ---\n#\n# %%% This is the default global inventory. You may select either CEDS,\n# EDGAR, HTAPv3 or CMIP6_SFC_LAND_ANTHRO for the global base emissions %%%\n#\n# NOTE: CO2 and CH4 are excluded in CEDS emissions for fullchem simulations.\n#\n# Note for CESM:\n# Scaling of enegy and industrial sectors is applied the same way\n# as in the GEOS-Chem offline model except for aerosols SO2, SO4,\n# black and organic carbon. These species use scaling\n# for CESM developed by Louisa Emmons. See scaling section titled\n# \"CEDS to CAM-Chem scale factors\" for reference.\n#==============================================================================\n(((CEDSv2\n0 CEDS_NO_AGR     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_agr            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2401                1 5\n0 CEDS_NO_ENE     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s NO    2406/706/315        1 5\n0 CEDS_NO_IND     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s NO    2407/707/316        1 5\n0 CEDS_NO_TRA     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_tra            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2411/711            1 5\n0 CEDS_NO_RCO     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_rco            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2409/709            1 5\n0 CEDS_NO_SLV     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_slv            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2407/707            1 5\n0 CEDS_NO_WST     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_wst            1750-2019/1-12/1/0 C xy   kg/m2/s NO    25                  1 5\n\n0 CEDS_CO_AGR     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_agr            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2401                1 5\n0 CEDS_SOAP_AGR   -                                                                    -                 -                  - -    -       SOAP  280/2401            1 5\n0 CEDS_CO_ENE     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s CO    2406/706/315        1 5\n0 CEDS_SOAP_ENE   -                                                                    -                 -                  - -    -       SOAP  280/2406/706/315    1 5\n0 CEDS_CO_IND     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s CO    2407/707/316        1 5\n0 CEDS_SOAP_IND   -                                                                    -                 -                  - -    -       SOAP  280/2407/707/316    1 5\n0 CEDS_CO_TRA     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_tra            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2411/711            1 5\n0 CEDS_SOAP_TRA   -                                                                    -                 -                  - -    -       SOAP  280/2411/711        1 5\n0 CEDS_CO_RCO     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_rco            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2409/709            1 5\n0 CEDS_SOAP_RCO   -                                                                    -                 -                  - -    -       SOAP  280/2409/709        1 5\n0 CEDS_CO_SLV     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_slv            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2407/707            1 5\n0 CEDS_SOAP_SLV   -                                                                    -                 -                  - -    -       SOAP  280/2407/707        1 5\n0 CEDS_CO_WST     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_wst            1750-2019/1-12/1/0 C xy   kg/m2/s CO    26                  1 5\n0 CEDS_SOAP_WST   -                                                                    -                 -                  - -    -       SOAP  26/280              1 5\n\n# Note for CESM: Apply SO4 to so4_a1\n0 CEDS_SO2_AGR    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_agr           1750-2019/1-12/1/0 C xy   kg/m2/s SO2    2401                1 5\n0 CEDS_SO4_AGR    -                                                                    -                 -                  - -    -       so4_a1 8902/2401           1 5\n0 CEDS_pFe_AGR    -                                                                    -                 -                  - -    -       pFe    66/2401             1 5\n0 CEDS_SO2_ENE    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s SO2    2406/706/315        1 5\n0 CEDS_SO4_ENE    -                                                                    -                 -                  - -    -       so4_a1 8907/2406/706/315   1 5\n0 CEDS_pFe_ENE    -                                                                    -                 -                  - -    -       pFe    66/2406/706/315     1 5\n0 CEDS_SO2_IND    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s SO2    2407/707/316        1 5\n0 CEDS_SO4_IND    -                                                                    -                 -                  - -    -       so4_a1 8908/2407/707/316   1 5\n0 CEDS_pFe_IND    -                                                                    -                 -                  - -    -       pFe    66/2407/707/316     1 5\n0 CEDS_SO2_TRA    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_tra           1750-2019/1-12/1/0 C xy   kg/m2/s SO2    2411/711            1 5\n0 CEDS_SO4_TRA    -                                                                    -                 -                  - -    -       so4_a1 8906/2411/711       1 5\n0 CEDS_pFe_TRA    -                                                                    -                 -                  - -    -       pFe    66/2411/711         1 5\n0 CEDS_SO2_RCO    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_rco           1750-2019/1-12/1/0 C xy   kg/m2/s SO2    2409/709            1 5\n0 CEDS_SO4_RCO    -                                                                    -                 -                  - -    -       so4_a1 8905/2409/709       1 5\n0 CEDS_pFe_RCO    -                                                                    -                 -                  - -    -       pFe    66/2409/709         1 5\n0 CEDS_SO2_SLV    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_slv           1750-2019/1-12/1/0 C xy   kg/m2/s SO2    2407/707            1 5\n0 CEDS_SO4_SLV    -                                                                    -                 -                  - -    -       so4_a1 8904/2407/707       1 5\n0 CEDS_pFe_SLV    -                                                                    -                 -                  - -    -       pFe    66/2407/707         1 5\n0 CEDS_SO2_WST    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_wst           1750-2019/1-12/1/0 C xy   kg/m2/s SO2    -                   1 5\n0 CEDS_SO4_WST    -                                                                    -                 -                  - -    -       so4_a1 8903                1 5\n0 CEDS_pFe_WST    -                                                                    -                 -                  - -    -       pFe    66                  1 5\nch\n\n0 CEDS_NH3_AGR    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_agr           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2401                1 5\n0 CEDS_NH3_ENE    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s NH3   2406/706/315        1 5\n0 CEDS_NH3_IND    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s NH3   2407/707/316        1 5\n0 CEDS_NH3_TRA    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_tra           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2411/711            1 5\n0 CEDS_NH3_RCO    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_rco           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2409/709            1 5\n0 CEDS_NH3_SLV    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_slv           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2407/707            1 5\n0 CEDS_NH3_WST    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_wst           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   -                   1 5\n\n#-----------------------------------------------------\n# AEROSOL NUMBER EMISSIONS FOR CEDS in CESM - hplin 8/11/22\n# note shp emiss in ship section\n#-----------------------------------------------------\n\n0 CEDS_SO4n_AGR   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_agr           1750-2019/1-12/1/0 C xy   kg/m2/s num_a1  8902/2401/8014         1 5\n0 CEDS_SO4n_ENE   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s num_a1  8907/2406/706/315/8011 1 5\n0 CEDS_SO4n_IND   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s num_a1  8908/2407/707/316/8011 1 5\n0 CEDS_SO4n_TRA   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_tra           1750-2019/1-12/1/0 C xy   kg/m2/s num_a2  8906/2411/711/8022     1 5\n0 CEDS_SO4n_RCO   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_rco           1750-2019/1-12/1/0 C xy   kg/m2/s num_a2  8905/2407/709/8022     1 5\n0 CEDS_SO4n_SLV   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_slv           1750-2019/1-12/1/0 C xy   kg/m2/s num_a1  8904/2407/707/8014     1 5\n0 CEDS_SO4n_WST   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_wst           1750-2019/1-12/1/0 C xy   kg/m2/s num_a1  8903/8014              1 5\n\n# BC emiss are classified as a4 for all anthro\n0 CEDS_BCn_AGR    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_agr            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/2401/8041         1 5\n0 CEDS_BCn_ENE    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_ene            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/2406/706/315/8041 1 5\n0 CEDS_BCn_IND    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_ind            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/2407/707/316/8041 1 5\n0 CEDS_BCn_TRA    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_tra            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/2411/711/8041     1 5\n0 CEDS_BCn_RCO    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_rco            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/2409/709/8041     1 5\n0 CEDS_BCn_SLV    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_slv            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/2407/707/8041     1 5\n0 CEDS_BCn_WST    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_wst            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8920/8041              1 5\n\n# OC emiss are classified as a4 for all anthro\n0 CEDS_OCn_AGR    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_agr            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/2401/8042         1 5\n0 CEDS_OCn_ENE    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_ene            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/2406/706/315/8042 1 5\n0 CEDS_OCn_IND    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_ind            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/2407/707/316/8042 1 5\n0 CEDS_OCn_TRA    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_tra            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/2411/711/8042     1 5\n0 CEDS_OCn_RCO    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_rco            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/2409/709/8042     1 5\n0 CEDS_OCn_SLV    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_slv            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/2407/707/8042     1 5\n0 CEDS_OCn_WST    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_wst            1750-2019/1-12/1/0 C xy   kg/m2/s num_a4  8930/8042              1 5\n\n#-----------------------------------------------------\n# // end AEROSOL NUMBER EMISSIONS FOR CEDS in CESM\n#-----------------------------------------------------\n\n# Note for CESM: Apply BCPI to bc_a4\n0 CEDS_BCPI_AGR   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_agr            1750-2019/1-12/1/0 C xy   kg/m2/s bc_a4  8920/2401             1 5\n0 CEDS_BCPI_ENE   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s bc_a4  8920/2406/706/315     1 5\n0 CEDS_BCPI_IND   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s bc_a4  8920/2407/707/316     1 5\n0 CEDS_BCPI_TRA   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_tra            1750-2019/1-12/1/0 C xy   kg/m2/s bc_a4  8920/2411/711         1 5\n0 CEDS_BCPI_RCO   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_rco            1750-2019/1-12/1/0 C xy   kg/m2/s bc_a4  8920/2409/709         1 5\n0 CEDS_BCPI_SLV   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_slv            1750-2019/1-12/1/0 C xy   kg/m2/s bc_a4  8920/2407/707         1 5\n0 CEDS_BCPI_WST   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_wst            1750-2019/1-12/1/0 C xy   kg/m2/s bc_a4  8920                  1 5\n\n# Note for CESM: Apply OCPI to pom_a4\n0 CEDS_OCPI_AGR   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_agr            1750-2019/1-12/1/0 C xy   kg/m2/s pom_a4 8930/2401           1 5\n0 CEDS_POG1_AGR   -                                                                    -                 -                  - -    -       POG1   74/76/2401          1 5\n0 CEDS_POG2_AGR   -                                                                    -                 -                  - -    -       POG2   74/77/2401          1 5\n0 CEDS_OCPI_ENE   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s pom_a4 8930/2406/706/315   1 5\n0 CEDS_POG1_ENE   -                                                                    -                 -                  - -    -       POG1   74/76/2406/706/315  1 5\n0 CEDS_POG2_ENE   -                                                                    -                 -                  - -    -       POG2   74/77/2406/706/315  1 5\n0 CEDS_OCPI_IND   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s pom_a4 8930/2407/707/316   1 5\n0 CEDS_POG1_IND   -                                                                    -                 -                  - -    -       POG1   74/76/2407/707/316  1 5\n0 CEDS_POG2_IND   -                                                                    -                 -                  - -    -       POG2   74/77/2407/707/316  1 5\n0 CEDS_OCPI_TRA   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_tra            1750-2019/1-12/1/0 C xy   kg/m2/s pom_a4 8930/2411/711       1 5\n0 CEDS_POG1_TRA   -                                                                    -                 -                  - -    -       POG1   74/76/2411/711      1 5\n0 CEDS_POG2_TRA   -                                                                    -                 -                  - -    -       POG2   74/77/2411/711      1 5\n0 CEDS_OCPI_RCO   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_rco            1750-2019/1-12/1/0 C xy   kg/m2/s pom_a4 8930/2409/709       1 5\n0 CEDS_POG1_RCO   -                                                                    -                 -                  - -    -       POG1   74/76/2409/709      1 5\n0 CEDS_POG2_RCO   -                                                                    -                 -                  - -    -       POG2   74/77/2409/709      1 5\n0 CEDS_OCPI_SLV   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_slv            1750-2019/1-12/1/0 C xy   kg/m2/s pom_a4 8930/2407/707       1 5\n0 CEDS_POG1_SLV   -                                                                    -                 -                  - -    -       POG1   74/76/2407/707      1 5\n0 CEDS_POG2_SLV   -                                                                    -                 -                  - -    -       POG2   74/77/2407/707      1 5\n0 CEDS_OCPI_WST   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_wst            1750-2019/1-12/1/0 C xy   kg/m2/s pom_a4 8930                1 5\n0 CEDS_POG1_WST   -                                                                    -                 -                  - -    -       POG1   74/76               1 5\n0 CEDS_POG2_WST   -                                                                    -                 -                  - -    -       POG2   74/77               1 5\n\n# NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2401             1 5\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -    -       EOH   91/2401             1 5\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -    -       ROH   92/2401             1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2406/706/315     1 5\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -    -       EOH   91/2406/706/315     1 5\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -    -       ROH   92/2406/706/315     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2407/707/316     1 5\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -    -       EOH   91/2407/707/316     1 5\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -    -       ROH   92/2407/707/316     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2411/711         1 5\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -    -       EOH   91/2411/711         1 5\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -    -       ROH   92/2411/711         1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2409/709         1 5\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -    -       EOH   91/2409/709         1 5\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -    -       ROH   92/2409/709         1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2407/707         1 5\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -    -       EOH   91/2407/707         1 5\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -    -       ROH   92/2407/707         1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   26/90               1 5\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -    -       EOH   26/91               1 5\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -    -       ROH   26/92               1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2401                1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2406/706/315        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2407/707/316        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2411/711            1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2409/709            1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2407/707            1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  26                  1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2401                1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2406/706/315        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2407/707/316        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2411/711            1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2409/709            1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2407/707            1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  26                  1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2401                1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2406/706/315        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2407/707/316        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2411/711            1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2409/709            1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2407/707            1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  26                  1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2401                1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2406/706/315        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2407/707/316        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2411/711            1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2409/709            1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2407/707            1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  26                  1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2401                1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2406/706/315        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2407/707/316        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2411/711            1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2409/709            1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2407/707            1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  26                  1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2401                1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2406/706/315        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2407/707/316        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2411/711            1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2409/709            1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2407/707            1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  26                  1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2401                1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2406/706/315        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2407/707/316        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2411/711            1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2409/709            1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2407/707            1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  26                  1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2401                1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2406/706/315        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2407/707/316        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2411/711            1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2409/709            1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2407/707            1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  26                  1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2401                1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2406/706/315        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2407/707/316        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2411/711            1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2409/709            1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2407/707            1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  26                  1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2401                1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2406/706/315        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2407/707/316        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2411/711            1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2409/709            1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2407/707            1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  26                  1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2401                1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2406/706/315        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2407/707/316        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2411/711            1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2409/709            1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2407/707            1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  26                  1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2401                1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s MEK   2406/706/315        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s MEK   2407/707/316        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2411/711            1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2409/709            1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2407/707            1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   26                  1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2401                1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2406/706/315        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2407/707/316        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2411/711            1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2409/709            1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2407/707            1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n\n0 CEDS_TMB_AGR    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_agr           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_ENE    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/315              1 5\n0 CEDS_TMB_IND    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/316              1 5\n0 CEDS_TMB_TRA    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_tra           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_RCO    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_rco           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_SLV    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_slv           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_WST    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_wst           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n\n0 CEDS_OTH_AGR    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_agr     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_ENE    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_ene     1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/315               1 5\n0 CEDS_OTH_IND    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_ind     1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/316               1 5\n0 CEDS_OTH_TRA    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_tra     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_RCO    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_rco     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_SLV    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_slv     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_WST    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_wst     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n)))CEDSv2\n\n#==============================================================================\n# --- CEDS GBD-MAPS ---\n#\n# NOTES:\n#  -- Reference: McDuffie et al. (2020, Earth System Science Data)\n#  -- Anthropogenic source sectors: agriculture, energy, industry, road transport,\n#       non-road/off-road transport, residential, commercial, other energy use,\n#       solvents, waste, international shipping\n#  -- Fuel categories: the combustion of total coal, solid biofuel, liquid oil\n#       and gas, and all remaining sources\n#       **To use, enable CEDS_byFuelType and CEDS_SHIP_byFuelType**\n#==============================================================================\n(((CEDS_GBDMAPS\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS.rc\n)))CEDS_GBDMAPS\n\n(((CEDS_GBDMAPS_byFuelType\n(((.not.CEDS_GBDMAPS\n(((.not.CEDSv2\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS_byFuelType.rc\n))).not.CEDSv2\n))).not.CEDS_GBDMAPS\n)))CEDS_GBDMAPS_byFuelType\n\n#==============================================================================\n# --- CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_NO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n\n0 CMIP6_CO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_AGR   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_ENE   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_IND   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_TRA   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_RCO   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_SLV   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_WST   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n\n0 CMIP6_SO2_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_AGR    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_AGR    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_ENE    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_ENE    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_IND    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_IND    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_TRA    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_TRA    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_RCO    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_RCO    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_SLV    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_SLV    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_WST    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_WST    -                                                                            -                 -                  - -  -          pFe   66        1 5\n\n0 CMIP6_NH3_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_agr           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ene           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ind           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_tra           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_rco           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_slv           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_wst           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n\n0 CMIP6_BCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_AGR   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_ENE   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_IND   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_TRA   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_RCO   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_SLV   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_WST   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n\n0 CMIP6_OCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_AGR   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_AGR   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_AGR   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_ENE   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_ENE   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_ENE   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_IND   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_IND   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_IND   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_TRA   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_TRA   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_TRA   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_RCO   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_RCO   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_RCO   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_SLV   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_SLV   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_SLV   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_WST   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_WST   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_WST   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n\n# Comment out CO2 for fullchem simulations: CO2 not advected\n#0 CMIP6_CO2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n\n# Comment out CH4 for fullchem simulations: do not use CH4 emissions\n# CMIP6 CH4 emissions are only available for 1970-2014\n#0 CMIP6_CH4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_agr           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ene           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ind           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_tra           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_rco           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_slv           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_wst           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_AGR    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_AGR    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_ENE    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_ENE    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_IND    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_IND    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_TRA    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_TRA    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_RCO    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_RCO    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_SLV    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_SLV    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_WST    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_WST    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n\n0 CMIP6_C2H6_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n\n0 CMIP6_C3H8_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n\n0 CMIP6_C4H10_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C5H12_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_agr 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ene 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ind 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_tra 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_rco 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_slv 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_wst 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C6H14_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C2H4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n\n0 CMIP6_PRPE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n\n0 CMIP6_C2H2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n\n0 CMIP6_BENZ_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_agr          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ene          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ind          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_tra          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_rco          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_slv          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_wst          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n\n0 CMIP6_TOLU_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_agr          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ene          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ind          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_tra          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_rco          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_slv          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_wst          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n\n0 CMIP6_XYLE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n\n0 CMIP6_CH2O_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_agr          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ene          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ind          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_tra          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_rco          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_slv          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_wst          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n\n0 CMIP6_ALD2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n\n0 CMIP6_MEK_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n\n0 CMIP6_HCOOH_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_agr         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ene         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ind         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_tra         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_rco         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_slv         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_wst         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_NO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   NO    -        20 1\n0 CMIP6_AIR_CO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    CO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   CO    -        20 1\n0 CMIP6_AIR_SOAP   -                                                                                -                 -                  - -   -         SOAP  280      20 1\n0 CMIP6_AIR_SO2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    SO2_air           1750-2100/1-12/1/0 C xyz kg/m2/s   SO2   -        20 1\n0 CMIP6_AIR_SO4    -                                                                                -                 -                  - -   -         SO4   63       20 1\n0 CMIP6_AIR_pFe    -                                                                                -                 -                  - -   -         pFe   66       20 1\n0 CMIP6_AIR_ACET   -                                                                                -                 -                  - -   -         ACET  601      20 1\n0 CMIP6_AIR_ALD2   -                                                                                -                 -                  - -   -         ALD2  602      20 1\n0 CMIP6_AIR_ALK4   -                                                                                -                 -                  - -   -         ALK4  603      20 1\n0 CMIP6_AIR_C2H6   -                                                                                -                 -                  - -   -         C2H6  604      20 1\n0 CMIP6_AIR_C3H8   -                                                                                -                 -                  - -   -         C3H8  605      20 1\n0 CMIP6_AIR_CH2O   -                                                                                -                 -                  - -   -         CH2O  606      20 1\n0 CMIP6_AIR_PRPE   -                                                                                -                 -                  - -   -         PRPE  607      20 1\n0 CMIP6_AIR_MACR   -                                                                                -                 -                  - -   -         MACR  608      20 1\n0 CMIP6_AIR_RCHO   -                                                                                -                 -                  - -   -         RCHO  609      20 1\n0 CMIP6_AIR_NH3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NH3_air           1750-2100/1-12/1/0 C xyz kg/m2/s   NH3   -        20 1\n# Assume all BC/OC is BCPI/OCPI\n0 CMIP6_AIR_BCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    BC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   BCPI  -        20 1\n0 CMIP6_AIR_OCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    OC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   OCPI  -        20 1\n0 CMIP6_AIR_POG1   -                                                                                -                 -                  - -  -          POG1  74/76    20 1\n0 CMIP6_AIR_POG2   -                                                                                -                 -                  - -  -          POG2  74/77    20 1\n\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EDGAR v4.3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# The following emissions are not included in EDGAR and will be added:\n#  * Wiedinmyer et al. (2014) global trash emissions\n#  * CEDS VOC emissions\n#\n# Aviation and shipping emissions from EDGAR are not included here.\n# We also do not include the following sources:\n#  - Soil emissions of NOx (SOL). These emissions are calculated via the\n#    SoilNOx extension.\n#  - Open biomass burning (AWB). These emissions are obtained from\n#    GFED, QFED, FINN, or GFAS.\n#==============================================================================\n(((EDGARv43\n0  EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1201/70         1 2\n0  EDGAR_BCPO_POW -                                                    -       -               - -  -       BCPO 1201/71         1 2\n0  EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1202/70         1 2\n0  EDGAR_BCPO_ENG -                                                    -       -               - -  -       BCPO 1202/71         1 2\n0  EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1203/70         1 2\n0  EDGAR_BCPO_IND -                                                    -       -               - -  -       BCPO 1203/71         1 2\n0  EDGAR_BCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TRO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1204/70         1 2\n0  EDGAR_BCPO_TRO -                                                    -       -               - -  -       BCPO 1204/71         1 2\n0  EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1205/70         1 2\n0  EDGAR_BCPO_TNG -                                                    -       -               - -  -       BCPO 1205/71         1 2\n0  EDGAR_BCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.RCO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1206/70         1 2\n0  EDGAR_BCPO_RCO -                                                    -       -               - -  -       BCPO 1206/71         1 2\n0  EDGAR_BCPI_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.PPA.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1207/70         1 2\n0  EDGAR_BCPO_PPA -                                                    -       -               - -  -       BCPO 1207/71         1 2\n#0 EDGAR_BCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.AWB.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1209/70         1 2\n#0 EDGAR_BCPO_AWB -                                                    -       -               - -  -       BCPO 1209/71         1 2\n0  EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1211/70         1 2\n0  EDGAR_BCPO_SWD -                                                    -       -               - -  -       BCPO 1211/71         1 2\n0  EDGAR_BCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.FFF.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1212/70         1 2\n0  EDGAR_BCPO_FFF -                                                    -       -               - -  -       BCPO 1212/71         1 2\n0  EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1201/26/52      1 2\n0  EDGAR_SOAP_POW -                                                    -       -               - -  -       SOAP 1201/26/52/280  1 2\n0  EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1202/26/52      1 2\n0  EDGAR_SOAP_ENG -                                                    -       -               - -  -       SOAP 1202/26/52/280  1 2\n0  EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1203/26/52      1 2\n0  EDGAR_SOAP_IND -                                                    -       -               - -  -       SOAP 1203/26/52/280  1 2\n0  EDGAR_CO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1204/26/52      1 2\n0  EDGAR_SOAP_TRO -                                                    -       -               - -  -       SOAP 1204/26/52/280  1 2\n0  EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1205/26/52      1 2\n0  EDGAR_SOAP_TNG -                                                    -       -               - -  -       SOAP 1205/26/52/280  1 2\n0  EDGAR_CO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1206/26/52      1 2\n0  EDGAR_SOAP_RCO -                                                    -       -               - -  -       SOAP 1206/26/52/280  1 2\n0  EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1207/26/52      1 2\n0  EDGAR_SOAP_PPA -                                                    -       -               - -  -       SOAP 1207/26/52/280  1 2\n#0 EDGAR_CO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1209/26/52      1 2\n#0 EDGAR_SOAP_AWB -                                                    -       -               - -  -       SOAP 1209/26/52/280  1 2\n0  EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1211/26/52      1 2\n0  EDGAR_SOAP_SWD -                                                    -       -               - -  -       SOAP 1211/26/52/280  1 2\n0  EDGAR_CO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1212/26/52      1 2\n0  EDGAR_SOAP_FFF -                                                    -       -               - -  -       SOAP 1212/26/52/280  1 2\n0  EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1201            1 2\n0  EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1202            1 2\n0  EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1203            1 2\n0  EDGAR_NH3_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TRO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1204            1 2\n0  EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1205            1 2\n0  EDGAR_NH3_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.RCO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1206            1 2\n0  EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1207            1 2\n0  EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1208            1 2\n#0 EDGAR_NH3_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AWB.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1209            1 2\n0  EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1210            1 2\n0  EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1211            1 2\n0  EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1201/25/115     1 2\n0  EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1202/25/115     1 2\n0  EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1203/25/115     1 2\n0  EDGAR_NO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TRO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1204/25/115     1 2\n0  EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1205/25/115     1 2\n0  EDGAR_NO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.RCO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1206/25/115     1 2\n0  EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1207/25/115     1 2\n0  EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1208/25/115     1 2\n#0 EDGAR_NO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AWB.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1209/25/115     1 2\n#0 EDGAR_NO_SOL   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SOL.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1210/25/115     1 2\n0  EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1211/25/115     1 2\n0  EDGAR_NO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.FFF.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1212/25/115     1 2\n0  EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1201/72         1 2\n0  EDGAR_OCPO_POW -                                                    -       -               - -  -       OCPO 1201/73         1 2\n0  EDGAR_POG1_POW -                                                    -       -               - -  -       POG1 1201/74/76      1 2\n0  EDGAR_POG2_POW -                                                    -       -               - -  -       POG2 1201/74/77      1 2\n0  EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1202/72         1 2\n0  EDGAR_OCPO_ENG -                                                    -       -               - -  -       OCPO 1202/73         1 2\n0  EDGAR_POG1_ENG -                                                    -       -               - -  -       POG1 1202/74/76      1 2\n0  EDGAR_POG2_ENG -                                                    -       -               - -  -       POG2 1202/74/77      1 2\n0  EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1203/72         1 2\n0  EDGAR_OCPO_IND -                                                    -       -               - -  -       OCPO 1203/73         1 2\n0  EDGAR_POG1_IND -                                                    -       -               - -  -       POG1 1203/74/76      1 2\n0  EDGAR_POG2_IND -                                                    -       -               - -  -       POG2 1203/74/77      1 2\n0  EDGAR_OCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TRO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1204/72         1 2\n0  EDGAR_OCPO_TRO -                                                    -       -               - -  -       OCPO 1204/73         1 2\n0  EDGAR_POG1_TRO -                                                    -       -               - -  -       POG1 1204/74/76      1 2\n0  EDGAR_POG2_TRO -                                                    -       -               - -  -       POG2 1204/74/77      1 2\n0  EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1205/72         1 2\n0  EDGAR_OCPO_TNG -                                                    -       -               - -  -       OCPO 1205/73         1 2\n0  EDGAR_POG1_TNG -                                                    -       -               - -  -       POG1 1205/74/76      1 2\n0  EDGAR_POG2_TNG -                                                    -       -               - -  -       POG2 1205/74/77      1 2\n0  EDGAR_OCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.RCO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1206/72         1 2\n0  EDGAR_OCPO_RCO -                                                    -       -               - -  -       OCPO 1206/73         1 2\n0  EDGAR_POG1_RCO -                                                    -       -               - -  -       POG1 1206/74/76      1 2\n0  EDGAR_POG2_RCO -                                                    -       -               - -  -       POG2 1206/74/77      1 2\n#0 EDGAR_OCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.AWB.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1209/72         1 2\n#0 EDGAR_OCPO_AWB -                                                    -       -               - -  -       OCPO 1209/73         1 2\n#0 EDGAR_POG1_AWB -                                                    -       -               - -  -       POG1 1209/74/76      1 2\n#0 EDGAR_POG2_AWB -                                                    -       -               - -  -       POG2 1209/74/77      1 2\n0  EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1211/72         1 2\n0  EDGAR_OCPO_SWD -                                                    -       -               - -  -       OCPO 1211/73         1 2\n0  EDGAR_POG1_SWD -                                                    -       -               - -  -       POG1 1211/74/76      1 2\n0  EDGAR_POG2_SWD -                                                    -       -               - -  -       POG2 1211/74/77      1 2\n0  EDGAR_OCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.FFF.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1212/72         1 2\n0  EDGAR_OCPO_FFF -                                                    -       -               - -  -       OCPO 1212/73         1 2\n0  EDGAR_POG1_FFF -                                                    -       -               - -  -       POG1 1212/74/76      1 2\n0  EDGAR_POG2_FFF -                                                    -       -               - -  -       POG2 1212/74/77      1 2\n0  EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1201            1 2\n0  EDGAR_SO4_POW  -                                                    -       -               - -  -       SO4  1201/63         1 2\n0  EDGAR_pFe_POW  -                                                    -       -               - -  -       pFe  1201/66         1 2\n0  EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1202            1 2\n0  EDGAR_SO4_ENG  -                                                    -       -               - -  -       SO4  1202/63         1 2\n0  EDGAR_pFe_ENG  -                                                    -       -               - -  -       pFe  1202/66         1 2\n0  EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1203            1 2\n0  EDGAR_SO4_IND  -                                                    -       -               - -  -       SO4  1203/63         1 2\n0  EDGAR_pFe_IND  -                                                    -       -               - -  -       pFe  1203/66         1 2\n0  EDGAR_SO2_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TRO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1204            1 2\n0  EDGAR_SO4_TRO  -                                                    -       -               - -  -       SO4  1204/63         1 2\n0  EDGAR_pFe_TRO  -                                                    -       -               - -  -       pFe  1204/66         1 2\n0  EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1205            1 2\n0  EDGAR_SO4_TNG  -                                                    -       -               - -  -       SO4  1205/63         1 2\n0  EDGAR_pFe_TNG  -                                                    -       -               - -  -       pFe  1205/66         1 2\n0  EDGAR_SO2_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.RCO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1206            1 2\n0  EDGAR_SO4_RCO  -                                                    -       -               - -  -       SO4  1206/63         1 2\n0  EDGAR_pFe_RCO  -                                                    -       -               - -  -       pFe  1206/66         1 2\n0  EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1207            1 2\n0  EDGAR_SO4_PPA  -                                                    -       -               - -  -       SO4  1207/63         1 2\n0  EDGAR_pFe_PPA  -                                                    -       -               - -  -       pFe  1207/66         1 2\n#0 EDGAR_SO2_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.AWB.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1209            1 2\n#0 EDGAR_SO4_AWB  -                                                    -       -               - -  -       SO4  1209/63         1 2\n#0 EDGAR_pFe_AWB  -                                                    -       -               - -  -       pFe  1209/66         1 2\n0  EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1211            1 2\n0  EDGAR_SO4_SWD  -                                                    -       -               - -  -       SO4  1211/63         1 2\n0  EDGAR_pFe_SWD  -                                                    -       -               - -  -       pFe  1211/66         1 2\n0  EDGAR_SO2_FFF  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.FFF.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1212            1 2\n0  EDGAR_SO4_FFF  -                                                    -       -               - -  -       SO4  1212/63         1 2\n0  EDGAR_pFe_FFF  -                                                    -       -               - -  -       pFe  1212/66         1 2\n\n#==============================================================================\n# --- NAP ANTHROPOGENIC EMISSIONS: approximate from EDGAR BENZ ---\n#\n# NOTE: Although this data comes from EDGAR version 2, we are storing it\n# in the EDGARv42 data path for convenience.\n#==============================================================================\n0 EDGAR_NAP $ROOT/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc BENZ 1985/1/1/0 C xy kgC/m2/s NAP 80/81/82/43 1 2\n\n#==============================================================================\n# --- Wiedinmyer et al. (2014) global trash emissions to be added to EDGAR ---\n#==============================================================================\n0 TRASH_CO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CO    2008/1/1/0 C xy kg/m2/s  CO    -     1 2\n0 TRASH_SOAP  -                                                       -     -          - -  -        SOAP  280   1 2\n0 TRASH_NO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NO    2008/1/1/0 C xy kg/m2/s  NO    -     1 2\n0 TRASH_SO2   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  SO2   2008/1/1/0 C xy kg/m2/s  SO2   78    1 2\n0 TRASH_SO4   -                                                       -     -          - -  -        SO4   63    1 2\n0 TRASH_pFe   -                                                       -     -          - -  -        pFe   78/66 1 2\n0 TRASH_BCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BC    2008/1/1/0 C xy kg/m2/s  BCPI  70    1 2\n0 TRASH_BCPO  -                                                       -     -          - -  -        BCPO  71    1 2\n0 TRASH_OCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  OC    2008/1/1/0 C xy kg/m2/s  OCPI  72    1 2\n0 TRASH_OCPO  -                                                       -     -          - -  -        OCPO  73    1 2\n0 TRASH_POG1  -                                                       -     -          - -  -        POG1  74/76 1 2\n0 TRASH_POG2  -                                                       -     -          - -  -        POG2  74/77 1 2\n0 TRASH_NH3   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NH3   2008/1/1/0 C xy kg/m2/s  NH3   -     1 2\n\n#==============================================================================\n# --- CEDS VOC emissions to be added to EDGAR ---\n#==============================================================================\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n)))EDGARv43\n\n#==============================================================================\n# --- HTAP v3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# ==> HTAPv3 ship emissions are listed in the ship emissions section below\n#==============================================================================\n(((HTAPv3\n0 HTAPv3_NO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_IND  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_WST  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_CO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_AGR -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_ENE -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_IND  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_IND -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_TRA -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_RCO -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_SLV -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_WST  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_WST -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_SO2_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_AGR 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_AGR  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_AGR  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_ENE 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_ENE  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_ENE  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_IND 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_IND  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_IND  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_TRA 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_TRA  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_TRA  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_RCO 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_RCO  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_RCO  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_SLV 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_SLV  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_SLV  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_WST 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_WST  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_WST  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_NH3_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_AGR 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_ENE 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_IND 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_TRA 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_RCO 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_SLV 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_WST 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_BCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_AGR -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_ENE -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_IND  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_IND -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_TRA -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_RCO -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_SLV -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_WST  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_WST -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_OCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_AGR -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_AGR -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_AGR -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_ENE -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_ENE -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_ENE -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_IND  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_IND -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_IND -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_IND -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_TRA -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_TRA -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_TRA -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_RCO -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_RCO -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_RCO -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_SLV -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_SLV -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_SLV -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_WST  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_WST -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_WST -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_WST -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n#\n# Use CEDSv2 for species that are not in the HTAPv3 inventory\n# NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n)))HTAPv3\n\n#==============================================================================\n# --- GEIA NH3 from natural sources ---\n#==============================================================================\n(((GEIA_NH3\n0 GEIA_NH3_NATU $ROOT/NH3/v2019-08/NH3_geos.2x25.nc         NH3_NATU     1990/1-12/1/0 C xy  kg/m2/s NH3 - 3 1\n)))GEIA_NH3\n\n#==============================================================================\n# --- NH3 from arctic seabirds ---\n# Source: Riddick et al., 2012, NERC Environmental Information Data Centre\n#==============================================================================\n(((SEABIRD_NH3\n0 SEABIRD_NH3   $ROOT/NH3/v2018-04/NH3_Arctic_seabirds.nc  NH3_SEABIRDS 1990/1-12/1/0 C xy  kg/m2/s NH3 - 30 1\n)))SEABIRD_NH3\n\n#==============================================================================\n# --- POET EOH ---\n#==============================================================================\n(((POET_EOH\n0 POET_EOH $ROOT/POET/v2017-03/POET_EOH.geos.2x25.nc EOH 1985/1/1/0 C xy kgC/m2/s EOH 26/47 1 1\n)))POET_EOH\n\n#==============================================================================\n# --- 2010 Global fossil fuel and biofuel emissions of C2H6 (Tzompa-Sosa et al. (2017) ---\n#\n# NOTES:\n# - These C2H6 emissions are used in place of CEDS\n#==============================================================================\n(((TZOMPASOSA_C2H6\n0 C2H6_2010_oilgas   $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc ANTHR_C2H6   2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n0 C2H6_2010_biofuel  $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc BIOFUEL_C2H6 2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n)))TZOMPASOSA_C2H6\n\n#==============================================================================\n# --- Xiao et al., JGR, 2008 ---\n#\n# NOTES:\n# - Xiao et al. C3H8 emissions are used in place of CEDS\n# - Priority is set to 10 to overwrite CEDS, but not newer regional inventories (e.g. EPA/NEI)\n#==============================================================================\n(((XIAO_C3H8\n0 XIAO_C3H8    $ROOT/XIAO/v2014-09/C3H8_C2H6_ngas.geos.1x1.nc C3H8         1985/1/1/0 C xy kgC/m2/s C3H8 6/7/26/22/46 1 10\n0 BIOFUEL_C3H8 $ROOT/BIOFUEL/v2019-08/biofuel.geos.2x25.nc    BIOFUEL_C3H8 1985/1/1/0 C xy kgC/m2/s C3H8 46           1 10\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Very-short-lived (VSL) bromocarbon emissions (cf. Qing Liang) ---\n#==============================================================================\n(((LIANG_BROMOCARB\n0 LIANG_CHBR3  $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CHBr3_emission  2000/1/1/0 C xy kg/m2/s CHBr3  39 1 1\n0 LIANG_CH2BR2 $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CH2Br2_emission 2000/1/1/0 C xy kg/m2/s CH2Br2 -  1 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Very-short-lived (VSL) iodocarbon emissions (cf. Carlos Ordonez) ---\n#==============================================================================\n(((ORDONEZ_IODOCARB\n0 ORDONEZ_CH3I   $ROOT/IODINE/v2020-02/CH3I_monthly_emissions_Ordonez_2012_COARDS.nc   CH3I   2000/1-12/1/0 C xy kg/m2/s CH3I   - 1 1\n0 ORDONEZ_CH2I2  $ROOT/IODINE/v2020-02/CH2I2_monthly_emissions_Ordonez_2012_COARDS.nc  CH2I2  2000/1-12/1/0 C xy kg/m2/s CH2I2  - 1 1\n0 ORDONEZ_CH2ICL $ROOT/IODINE/v2020-02/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.nc CH2ICl 2000/1-12/1/0 C xy kg/m2/s CH2ICl - 1 1\n0 ORDONEZ_CH2IBR $ROOT/IODINE/v2020-02/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc CH2IBr 2000/1-12/1/0 C xy kg/m2/s CH2IBr - 1 1\n)))ORDONEZ_IODOCARB\n\n#==============================================================================\n# --- GT_Chlorine ---\n#\n# Emission inventory for HCl and particulate Cl from continental sources\n#\n# Reference:\n#  Zhang, B., & Liu, P., et al (2022). Global Emissions of Hydrogen Chloride\n#  and Particulate Chloride from Continental Sources. Environmental Science &\n#  Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634\n#\n# Notes:\n# - The HCl emission from open biomass burning (HCL_BIO, HCL_AGR) used the same\n#   activity data for GFED4 (1998-2014) and BB4CMIP (1960-2014). If your\n#   emission inventory for open biomass burning has already include HCl\n#   emissions, shut down either of them to avoid the duplicated emission sources\n# - Emissions of particulate Cl are added as HCl as ISORROPIA will reparition\n#   Cl between particle phase and gas phase.\n#==============================================================================\n(((GT_Chlorine\n0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 HCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n)))GT_Chlorine\n\n#==============================================================================\n# --- Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAPv3 for SO2 and ICOADS should be used for CO and NO.\n# ==> Ship NO emissions are used by PARANOx and the extension number must be\n#     adjusted accordingly. If PARANOx is turned off, set the ExtNr back to\n#     zero.\n#==============================================================================\n(((SHIP\n\n(((ARCTAS_SHIP\n0  ARCTAS_SHIP_SO2     $ROOT/ARCTAS_SHIP/v2014-07/ARCTAS_ship.generic.1x1.nc           SO2             2008/1/1/0             C xy kg/m2/s  SO2  11/19        10 1\n)))ARCTAS_SHIP\n\n(((ICOADS_SHIP\n0 ICOADS_SHIP_SO2      $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc                SO2             2002/1-12/1/0          C xy kg/m2/s  SO2  11/15/60     10 2\n0 ICOADS_SHIP_CO       $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc                CO              2002/1-12/1/0          C xy kg/m2/s  CO   6/10         10 2\n0 ICOADS_SHIP_SOAP     -                                                               -               -                      - -  -        SOAP 6/10/280     10 2\n)))ICOADS_SHIP\n\n(((CORBETT_SHIP\n0 CORBETT_SHIP_SO2     $ROOT/CORBETT_SHIP/v2014-07/CORBETT_ship.geos.1x1.nc            SO2_SHIP        1985/1-12/1/0          C xy kg/m2/s  SO2  -            10 3\n)))CORBETT_SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_CO_SHP   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc  CO_SHP  2000-2018/1-12/1/0 C xy kg/m2/s CO    26     10 4\n0 HTAPv3_SOAP_SHP -                                                       -       -                  - -  -       SOAP  26/280 10 4\n0 HTAPv3_SO2_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc SO2_SHP 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -      10 4\n0 HTAPv3_SO4_SHP  -                                                       -       -                  - -  -       SO4   63     10 4\n0 HTAPv3_pFe_SHP  -                                                       -       -                  - -  -       pFe   66     10 4\n0 HTAPv3_NH3_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc NH3_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -      10 4\n0 HTAPv3_BCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc  BC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70     10 4\n0 HTAPv3_BCPO_SHP -                                                       -       -                  - -  -       BCPO  71     10 4\n0 HTAPv3_OCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc  OC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72     10 4\n0 HTAPv3_OCPO_SHP -                                                       -       -                  - -  -       OCPO  73     10 4\n# Use CEDSv2 ship emissions for species not in HTAPv3\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_shp           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 4\n0 CEDS_EOH_SHP    -                                                                    -                 -                  - -  -       EOH   26/91  10 4\n0 CEDS_ROH_SHP    -                                                                    -                 -                  - -  -       ROH   26/92  10 4\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 4\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_shp          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 4\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 4\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_shp          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 4\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 4\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_shp          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 4\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_shp          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 4\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_shp          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 4\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_shp          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 4\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_shp          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 4\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_shp           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 4\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_shp         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 4\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_shp           1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 4\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_shp     1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 4\n)))HTAPv3_SHIP\n\n(((CEDSv2_SHIP\n0 CEDS_CO_SHP     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_shp            1750-2019/1-12/1/0 C xy kg/m2/s CO    26     10 5\n0 CEDS_SOAP_SHP   -                                                                    -                 -                  - -  -       SOAP  26/280 10 5\n0 CEDS_SO2_SHP    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_shp           1750-2019/1-12/1/0 C xy kg/m2/s SO2   -      10 5\n0 CEDS_SO4_SHP    -                                                                    -                 -                  - -  -       SO4   63     10 5\n0 CEDS_pFe_SHP    -                                                                    -                 -                  - -  -       pFe   66     10 5\n0 CEDS_NH3_SHP    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_shp           1750-2019/1-12/1/0 C xy kg/m2/s NH3   -      10 5\n0 CEDS_BCPI_SHP   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_shp            1750-2019/1-12/1/0 C xy kg/m2/s BCPI  70     10 5\n0 CEDS_BCPO_SHP   -                                                                    -                 -                  - -  -       BCPO  71     10 5\n0 CEDS_OCPI_SHP   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_shp            1750-2019/1-12/1/0 C xy kg/m2/s OCPI  72     10 5\n0 CEDS_OCPO_SHP   -                                                                    -                 -                  - -  -       OCPO  73     10 5\n0 CEDS_POG1_SHP   -                                                                    -                 -                  - -  -       POG1  74/76  10 5\n0 CEDS_POG2_SHP   -                                                                    -                 -                  - -  -       POG2  74/77  10 5\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_shp           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 5\n0 CEDS_EOH_SHP    -                                                                    -                 -                  - -  -       EOH   26/91  10 5\n0 CEDS_ROH_SHP    -                                                                    -                 -                  - -  -       ROH   26/92  10 5\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 5\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_shp          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 5\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 5\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_shp          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 5\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 5\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_shp          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 5\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_shp          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 5\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_shp          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 5\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_shp          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 5\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_shp          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 5\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_shp           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 5\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_shp         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_shp           1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_shp     1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 5\n\n#-----------------------------------------------------\n# AEROSOL NUMBER EMISSIONS FOR CEDS in CESM - hplin 8/11/22\n#-----------------------------------------------------\n0 CEDS_SO4n_SHP   $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_shp           1750-2019/1-12/1/0 C xy kg/m2/s num_a1 8909/8013 1 5\n0 CEDS_BCn_SHP    $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_shp            1750-2019/1-12/1/0 C xy kg/m2/s num_a4 8920/8041 1 5\n0 CEDS_OCn_SHP    $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_shp            1750-2019/1-12/1/0 C xy kg/m2/s num_a4 8920/8041 1 5\n#-----------------------------------------------------\n# // end AEROSOL NUMBER EMISSIONS FOR CEDS in CESM\n#-----------------------------------------------------\n\n\n)))CEDSv2_SHIP\n\n(((CEDS_GBDMAPS_SHIP\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS_SHIP.rc\n)))CEDS_GBDMAPS_SHIP\n\n(((CEDS_SHIP_byFuelType\n(((.not.CEDS_GBDMAPS_SHIP\n(((.not.CEDSv2_SHIP\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBD-MAPS_SHIP_byFuelType.rc\n))).not.CEDSv2_SHIP\n))).not.CEDS_GBDMAPS_SHIP\n)))CEDS_SHIP_byFuelType\n\n#==============================================================================\n# --- CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_CO_SHP     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CO_shp            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        10 5\n0 CMIP6_SOAP_SHP   -                                                                     -                 -                  - -  -          SOAP  26/280    10 5\n0 CMIP6_SO2_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            SO2_shp           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         10 5\n0 CMIP6_SO4_SHP    -                                                                     -                 -                  - -  -          SO4   63        10 5\n0 CMIP6_pFe_SHP    -                                                                     -                 -                  - -  -          pFe   66        10 5\n0 CMIP6_NH3_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            NH3_shp           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         10 5\n0 CMIP6_BCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        10 5\n0 CMIP6_BCPO_SHP   -                                                                     -                 -                  - -  -          BCPO  71        10 5\n0 CMIP6_OCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            OC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        10 5\n0 CMIP6_OCPO_SHP   -                                                                     -                 -                  - -  -          OCPO  73        10 5\n0 CMIP6_POG1_SHP   -                                                                     -                 -                  - -  -          POG1  74/76     10 5\n0 CMIP6_POG2_SHP   -                                                                     -                 -                  - -  -          POG2  74/77     10 5\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            EOH_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     10 5\n0 CMIP6_EOH_SHP    -                                                                     -                 -                  - -  -          EOH   26/91     10 5\n0 CMIP6_ROH_SHP    -                                                                     -                 -                  - -  -          ROH   26/92     10 5\n0 CMIP6_C2H6_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H6_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        10 5\n0 CMIP6_C3H8_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C3H8_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        10 5\n0 CMIP6_C4H10_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_butanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C5H12_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_pentanes_shp 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C6H14_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_hexanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C2H4_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H4_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        10 5\n0 CMIP6_PRPE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            PRPE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        10 5\n0 CMIP6_C2H2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        10 5\n0 CMIP6_BENZ_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BENZ_shp          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        10 5\n0 CMIP6_TOLU_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            TOLU_shp          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        10 5\n0 CMIP6_XYLE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            XYLE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        10 5\n0 CMIP6_CH2O_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CH2O_shp          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        10 5\n0 CMIP6_ALD2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALD2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        10 5\n0 CMIP6_MEK_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            MEK_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        10 5\n0 CMIP6_HCOOH_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            HCOOH_shp         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        10 5\n)))CMIP6_SHIP\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED ON ###\n#\n# Cosine(SZA) will be read from the restart file.  Use the PARANOX extension\n# number (# 102) to specify these quantities and the NEI emissions.\n# This will make sure everything will be passed to the HEMCO PARANOX extension\n# rather than sending them into the base emissions.\n#------------------------------------------------------------------------------\n(((ParaNOx\n\n(((ICOADS_SHIP\n102  ICOADS_SHIP_NO $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc NO 2002/1-12/1/0 C xy kg/m2/s NO 1/5 10 1\n)))ICOADS_SHIP\n\n(((HTAPv3_SHIP\n102 HTAPv3_NO_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDSv2_SHIP\n102 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDSv2_SHIP\n\n(((CEDS_GBDMAPS_SHIP\n102 CEDS_NO_SHP $ROOT/CEDS/v2020-08/$YYYY/NO-em-total-anthro_CEDS_$YYYY.nc NO_shp 1970-2017/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDS_GBDMAPS_SHIP\n\n)))ParaNOx\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED OFF ###\n#\n# Use extension # 0 to specify these emissions.  This will put them\n# into the base emissions rather than sending them through PARANOX.\n#------------------------------------------------------------------------------\n(((.not.ParaNOx\n\n(((ICOADS_SHIP\n0 ICOADS_SHIP_NO $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc             NO     2002/1-12/1/0      C xy kg/m2/s NO 1/5  10 1\n)))ICOADS_SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_NO_SHIP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDSv2_SHIP\n0 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDSv2_SHIP\n\n(((CEDS_GBDMAPS_SHIP\n0 CEDS_NO_SHP $ROOT/CEDS/v2020-08/$YYYY/NO-em-total-anthro_CEDS_$YYYY.nc      NO_shp 1970-2017/1-12/1/0 C xy kg/m2/s NO 25   10 5\n)))CEDS_GBDMAPS_SHIP\n\n(((CMIP6_SHIP\n102 CMIP6_NO_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_shp 1750-2100/1-12/1/0 C xy kg/m2/s NO 25   10 5\n)))CMIP6_SHIP\n\n))).not.ParaNOx\n\n)))SHIP\n\n#==============================================================================\n# --- AEIC 2019 aircraft emissions (daily & monthly mean) ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#\n# Notes for CESM:\n# (1) Map to species so4_a1 for SO4 instead of SO4\n# (2) Add SO4n and map to species num_a1 with custom scaling\n# (3) Change BCPI/OCPI to BC/OC and map to species bc_a4 and pom_a4\n# (4) Add BCn and OCn and map to num_a4 for both with custom scaling\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_NO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO       * C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_DAILY_NO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO2      * C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_DAILY_HONO $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HONO     * C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_DAILY_CO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO       * C xyz kg/m2/s CO   241         20 1\n0 AEIC19_DAILY_SOAP -                                                                 -        - - -   -       SOAP 241/280     20 1\n0 AEIC19_DAILY_SO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN * C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_DAILY_pFe  -                                                                 -        - - -   -       pFe  241/111/66  20 1\n0 AEIC19_DAILY_SO4  -                                                                 -        - - -   -       so4_a1 241/112   20 1\n0 AEIC19_DAILY_SO4n -                                                                 -        - - -   -       num_a1 8011/241/112 20 1\n0 AEIC19_DAILY_H2O  -                                                                 -        - - -   -       H2O  241/120     20 1\n0 AEIC19_DAILY_BC   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc BC       * C xyz kg/m2/s bc_a4  241       20 1\n0 AEIC19_DAILY_BCn  -                                                                 -        - - -   -       num_a4 8041/241  20 1\n0 AEIC19_DAILY_OC   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc OC       * C xyz kg/m2/s pom_a4 241       20 1\n0 AEIC19_DAILY_OCn  -                                                                 -        - - -   -       num_a4 8042/241  20 1\n0 AEIC19_DAILY_POG1 -                                                                 -        - - -   -       POG1 241/74/76   20 1\n0 AEIC19_DAILY_POG2 -                                                                 -        - - -   -       POG2 241/74/77   20 1\n0 AEIC19_DAILY_ACET $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HC       * C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_DAILY_ALD2 -                                                                 -        - - -   -       ALD2 241/114/102 20 1\n0 AEIC19_DAILY_ALK4 -                                                                 -        - - -   -       ALK4 241/114/103 20 1\n0 AEIC19_DAILY_C2H6 -                                                                 -        - - -   -       C2H6 241/114/104 20 1\n0 AEIC19_DAILY_C3H8 -                                                                 -        - - -   -       C3H8 241/114/105 20 1\n0 AEIC19_DAILY_CH2O -                                                                 -        - - -   -       CH2O 241/114/106 20 1\n0 AEIC19_DAILY_PRPE -                                                                 -        - - -   -       PRPE 241/114/107 20 1\n0 AEIC19_DAILY_MACR -                                                                 -        - - -   -       MACR 241/114/108 20 1\n0 AEIC19_DAILY_RCHO -                                                                 -        - - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_NO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO       * C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_MONMEAN_NO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO2      * C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_MONMEAN_HONO $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HONO     * C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_MONMEAN_CO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO       * C xyz kg/m2/s CO   241         20 1\n0 AEIC19_MONMEAN_SOAP -                                                                          -        - - -   -       SOAP 241/280     20 1\n0 AEIC19_MONMEAN_SO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN * C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_MONMEAN_pFe  -                                                                          -        - - -   -       pFe  241/111/66  20 1\n0 AEIC19_MONMEAN_SO4  -                                                                          -        - - -   -       so4_a1 241/112   20 1\n0 AEIC19_MONMEAN_SO4n -                                                                          -        - - -   -       num_a1 8011/241/112 20 1\n0 AEIC19_MONMEAN_H2O  -                                                                          -        - - -   -       H2O  241/120     20 1\n0 AEIC19_MONMEAN_BC   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc BC       * C xyz kg/m2/s bc_a4  241       20 1\n0 AEIC19_MONMEAN_BCn  -                                                                          -        - - -   -       num_a4 8041/241  20 1\n0 AEIC19_MONMEAN_OC   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc OC       * C xyz kg/m2/s pom_a4 241       20 1\n0 AEIC19_MONMEAN_OCn  -                                                                          -        - - -   -       num_a4 8042/241  20 1\n0 AEIC19_MONMEAN_POG1 -                                                                          -        - - -   -       POG1 241/74/76   20 1\n0 AEIC19_MONMEAN_POG2 -                                                                          -        - - -   -       POG2 241/74/77   20 1\n0 AEIC19_MONMEAN_ACET $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HC       * C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_MONMEAN_ALD2 -                                                                          -        - - -   -       ALD2 241/114/102 20 1\n0 AEIC19_MONMEAN_ALK4 -                                                                          -        - - -   -       ALK4 241/114/103 20 1\n0 AEIC19_MONMEAN_C2H6 -                                                                          -        - - -   -       C2H6 241/114/104 20 1\n0 AEIC19_MONMEAN_C3H8 -                                                                          -        - - -   -       C3H8 241/114/105 20 1\n0 AEIC19_MONMEAN_CH2O -                                                                          -        - - -   -       CH2O 241/114/106 20 1\n0 AEIC19_MONMEAN_PRPE -                                                                          -        - - -   -       PRPE 241/114/107 20 1\n0 AEIC19_MONMEAN_MACR -                                                                          -        - - -   -       MACR 241/114/108 20 1\n0 AEIC19_MONMEAN_RCHO -                                                                          -        - - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- Emissions from decaying plants ---\n#==============================================================================\n(((DECAYING_PLANTS\n0 ALD2_PLANTDECAY $ROOT/ALD2/v2017-03/resp.geos.2x25.nc HET_RESP 1985/1-12/1/0 C xy kgC/m2/s ALD2 85/41 3 1\n0 EOH_PLANTDECAY  -                                     -        -             - -  -        EOH  86/47 3 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CH4     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP3PD_NOx     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NOx_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP3PD_CO      $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP3PD_SOAP    -                                                                                        -      -               -  -  -        SOAP  280   1 1\n0 RCP3PD_BCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_BC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP3PD_OCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_OC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP3PD_POG1    -                                                                                        -      -               -  -  -        POG1  74/76 1 1\n0 RCP3PD_POG2    -                                                                                        -      -               -  -  -        POG2  74/77 1 1\n0 RCP3PD_SO2     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_SO2_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP3PD_pFe     -                                                                                        -      -               -  -  -        pFe   66    1 1\n0 RCP3PD_NH3     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NH3_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP3PD_C2H2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_acetylene_2005-2100_23474_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP3PD_CH2O    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_formaldehyde_2005-2100_23474.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP3PD_BENZ    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_benzene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP3PD_TOLU    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_toluene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP3PD_XYLE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_xylene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP3PD_ALD2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_other_aldehydes_2005-2100_23474_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP3PD_ALK4__A $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_butanes_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__B $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_pentanes_2005-2100_23474_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__C $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_23474_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ACET    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_ketones_2005-2100_23474_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP3PD_MEK     -                                                                                        -      -               -  -  -        MEK   50/48 1 1\n0 RCP3PD_C2H6    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethane_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP3PD_C2H4    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP3PD_C3H8    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propane_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP3PD_PRPE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP3PD_HCOOH   $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_acids_2005-2100_23474.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CH4     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP45_NOx     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NOx_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP45_CO      $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP45_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP45_BCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_BC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP45_OCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_OC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP45_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP45_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP45_SO2     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_SO2_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP45_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP45_NH3     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NH3_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP45_C2H2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_acetylene_2005-2100_27424_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP45_CH2O    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_formaldehyde_2005-2100_27424.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP45_BENZ    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_benzene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP45_TOLU    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_toluene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP45_XYLE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_xylene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP45_ALD2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_other_aldehydes_2005-2100_27424_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP45_ALK4__A $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_butanes_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__B $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_pentanes_2005-2100_27424_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__C $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_27424_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ACET    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_ketones_2005-2100_27424_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP45_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP45_C2H6    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethane_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP45_C2H4    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP45_C3H8    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propane_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP45_PRPE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP45_HCOOH   $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_acids_2005-2100_27424.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CH4     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP60_NOx     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NOx_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP60_CO      $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP60_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP60_BCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_BC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP60_OCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_OC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP60_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP60_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP60_SO2     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_SO2_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP60_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP60_NH3     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NH3_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP60_C2H2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_acetylene_2005-2100_43190_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP60_CH2O    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_formaldehyde_2005-2100_43190.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP60_BENZ    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_benzene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP60_TOLU    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_toluene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP60_XYLE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_xylene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP60_ALD2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_other_aldehydes_2005-2100_43190_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP60_ALK4__A $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_butanes_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__B $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_pentanes_2005-2100_43190_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__C $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43190_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ACET    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_ketones_2005-2100_43190_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP60_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP60_C2H6    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethane_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP60_C2H4    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP60_C3H8    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propane_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP60_PRPE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP60_HCOOH   $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_acids_2005-2100_43190.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CH4     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP85_NOx     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NOx_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP85_CO      $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP85_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP85_BCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_BC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP85_OCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_OC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP85_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP85_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP85_SO2     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_SO2_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP80_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP85_NH3     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NH3_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP85_C2H2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_acetylene_2005-2100_43533_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP85_CH2O    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_formaldehyde_2005-2100_43533.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP85_BENZ    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_benzene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP85_TOLU    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_toluene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP85_XYLE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_xylene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP85_ALD2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_other_aldehydes_2005-2100_43533_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP85_ALK4__A $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_butanes_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__B $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_pentanes_2005-2100_43533_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__C $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43533_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ACET    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_ketones_2005-2100_43533_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP85_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP85_C2H6    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethane_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP85_C2H4    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP85_C3H8    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propane_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP85_PRPE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP85_HCOOH   $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_acids_2005-2100_43533.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_85\n\n#==============================================================================\n# --- QFED2 biomass burning (v2.5r1) ---\n#\n# Note: Use EF instead of EFY when using CESM\n#==============================================================================\n(((QFED2\n0 QFED_ACET_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s ACET 75/311        5 2\n0 QFED_ACET_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s ACET 75/312        5 2\n0 QFED_ALD2_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s ALD2 75/311        5 2\n0 QFED_ALD2_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s ALD2 75/312        5 2\n0 QFED_ALK4_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s ALK4 75/311        5 2\n0 QFED_ALK4_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s ALK4 75/312        5 2\n0 QFED_BCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s BCPI 70/75/311     5 2\n0 QFED_BCPO_PBL  -                                                                 -       -                             -   -             -       BCPO 71/75/311     5 2\n0 QFED_BCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s BCPI 70/75/312     5 2\n0 QFED_BCPO_FT   -                                                                 -       -                             -   -             -       BCPO 71/75/312     5 2\n0 QFED_OCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s OCPI 72/75/311     5 2\n0 QFED_OCPO_PBL  -                                                                 -       -                             -   -             -       OCPO 73/75/311     5 2\n0 QFED_POG1_PBL  -                                                                 -       -                             -   -             -       POG1 74/76/75/311  5 2\n0 QFED_POG2_PBL  -                                                                 -       -                             -   -             -       POG2 74/77/75/311  5 2\n0 QFED_OCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s OCPI 72/75/312     5 2\n0 QFED_OCPO_FT   -                                                                 -       -                             -   -             -       OCPO 73/75/312     5 2\n0 QFED_POG1_FT   -                                                                 -       -                             -   -             -       POG1 74/76/75/312  5 2\n0 QFED_POG2_FT   -                                                                 -       -                             -   -             -       POG2 74/77/75/312  5 2\n0 QFED_C2H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s C2H6 75/311        5 2\n0 QFED_C2H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s C2H6 75/312        5 2\n0 QFED_C3H8_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s C3H8 75/311        5 2\n0 QFED_C3H8_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s C3H8 75/312        5 2\n0 QFED_CH2O_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s CH2O 75/311        5 2\n0 QFED_CH2O_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s CH2O 75/312        5 2\n0 QFED_CH4_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s CH4  75/311        5 2\n0 QFED_CH4_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s CH4  75/312        5 2\n0 QFED_CO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s CO   54/75/311     5 2\n0 QFED_SOAP_PBL  -                                                                 -       -                             -   -             -       SOAP 54/75/281/311 5 2\n0 QFED_CO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s CO   54/75/312     5 2\n0 QFED_SOAP_FT   -                                                                 -       -                             -   -             -       SOAP 54/75/281/312 5 2\n0 QFED_CO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s CO2  75/311        5 2\n0 QFED_CO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s CO2  75/312        5 2\n0 QFED_MEK_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s MEK  75/311        5 2\n0 QFED_MEK_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s MEK  75/312        5 2\n0 QFED_NH3_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s NH3  75/311        5 2\n0 QFED_NH3_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s NH3  75/312        5 2\n0 QFED_NO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s NO   75/311        5 2\n0 QFED_NO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s NO   75/312        5 2\n0 QFED_SO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s SO2  75/311        5 2\n0 QFED_pFe_PBL   -                                                                 -       -                             -   -             -       pFe  75/311/66     5 2\n0 QFED_SO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s SO2  75/312        5 2\n0 QFED_pFe_FT    -                                                                 -       -                             -   -             -       pF3  75/312/66     5 2\n0 QFED_C3H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=1:PBL     kg/m2/s PRPE 75/311        5 2\n0 QFED_C3H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF  xyL=PBL:5500m kg/m2/s PRPE 75/312        5 2\n)))QFED2\n\n#==============================================================================\n# --- GFAS biomass burning ---\n#==============================================================================\n(((GFAS\n0 GFAS_CO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO   75       5 3\n0 GFAS_SOAP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SOAP 75/281   5 3\n0 GFAS_CH3OH $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch3ohfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s MOH  75       5 3\n0 GFAS_NO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc noxfire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NO   75       5 3\n0 GFAS_BCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPI 70/75    5 3\n0 GFAS_BCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPO 71/75    5 3\n0 GFAS_OCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPI 72/75    5 3\n0 GFAS_OCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPO 73/75    5 3\n0 GFAS_POG1  -                                          -             -                     - -             -       POG1 74/76/75 5 3\n0 GFAS_POG2  -                                          -             -                     - -             -       POG2 74/77/75 5 3\n0 GFAS_CO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc co2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO2  75       5 3\n0 GFAS_CH4   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch4fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH4  75       5 3\n0 GFAS_SO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SO2  75       5 3\n0 GFAS_pFe   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s pFe  75/66    5 3\n0 GFAS_NH3   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc nh3fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NH3  75       5 3\n0 GFAS_ACET  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ACET 75       5 3\n0 GFAS_ALD2  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALD2 75       5 3\n0 GFAS_ALK4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkanesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALK4 75       5 3\n0 GFAS_PRPE1 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkenesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_PRPE2 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_C2H6  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H6 75       5 3\n0 GFAS_C3H8  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C3H8 75       5 3\n0 GFAS_CH2O  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch2ofire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH2O 75       5 3\n0 GFAS_C2H4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H4 75       5 3\n0 GFAS_ISOP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c5h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ISOP 75       5 3\n0 GFAS_DMS   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6sfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s DMS  75       5 3\n0 GFAS_TOLU  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c7h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s TOLU 75       5 3\n0 GFAS_BENZ  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c6h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BENZ 75       5 3\n0 GFAS_XYLE  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c8h10fire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s XYLE 75       5 3\n)))GFAS\n\n#==============================================================================\n# --- BB4MIPs biomass burning ---\n#==============================================================================\n(((BB4MIPS\n# 75 is time-of-day scaling\n0 CMIP6_BB_CO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CO    75       5 3\n0 CMIP6_BB_SOAP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SOAP  75/281   5 3\n0 CMIP6_BB_NO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NO    75       5 3\n0 CMIP6_BB_BCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPI  70/75    5 3\n0 CMIP6_BB_BCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPO  71/75    5 3\n0 CMIP6_BB_OCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPI  72/75    5 3\n0 CMIP6_BB_OCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPO  73/75    5 3\n0 CMIP6_BB_POG1    -                                                          -          -                  - -         -       POG1  74/76/75 5 3\n0 CMIP6_BB_POG2    -                                                          -          -                  - -         -       POG2  74/77/75 5 3\n0 CMIP6_BB_SO2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 SO2_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SO2   75       5 3\n0 CMIP6_BB_pFe     -                                                          -          -                  - -         -       pFe   75/66    5 3\n0 CMIP6_BB_NH3     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NH3_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NH3   75       5 3\n0 CMIP6_BB_ALD2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALD2_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALD2  75       5 3\n0 CMIP6_BB_ALK4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALK4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALK4  75       5 3\n0 CMIP6_BB_PRPE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 PRPE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s PRPE  75       5 3\n0 CMIP6_BB_C2H6    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H6_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H6  75       5 3\n0 CMIP6_BB_C3H8    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C3H8_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C3H8  75       5 3\n0 CMIP6_BB_CH2O    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH2O_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CH2O  75       5 3\n0 CMIP6_BB_C2H4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H4  75       5 3\n0 CMIP6_BB_ISOP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ISOP_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ISOP  75       5 3\n0 CMIP6_BB_DMS     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 DMS_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s DMS   75       5 3\n0 CMIP6_BB_TOLU    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 TOLU_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s TOLU  75       5 3\n0 CMIP6_BB_BENZ    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BENZ_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BENZ  75       5 3\n0 CMIP6_BB_XYLE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 XYLE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s XYLE  75       5 3\n0 CMIP6_BB_H2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 H2_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s H2    75       5 3\n0 CMIP6_BB_MTPA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MONOT_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MTPA  75       5 3\n#0 CMIP6_BB_MTPO    -                                                         -          -                  - -             -   MTPO  75       5 3\n#0 CMIP6_BB_LIMO    -                                                         -          -                  - -             -   LIMO  75       5 3\n0 CMIP6_BB_EOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 EOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s EOH   75       5 3\n0 CMIP6_BB_MOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MOH   75       5 3\n0 CMIP6_BB_ACET    -                                                          -          -                  - -             -   ACET  79/75    5 3\n0 CMIP6_BB_MGLY    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MGLY_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MGLY  75       5 3\n0 CMIP6_BB_ACTA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ACTA_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ACTA  75       5 3\n0 CMIP6_BB_HCN     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCN_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCN   75       5 3\n0 CMIP6_BB_HCOOH   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCOOH_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCOOH 75       5 3\n0 CMIP6_BB_MEK     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MEK_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MEK   75       5 3\n)))BB4MIPS\n\n#==============================================================================\n# --- GFED4 biomass burning emissions climatology\n# NOTE:\n# - These emissions were generated for 2010-2019 using the GFED extension\n#   in a 0.5x0.625 HEMCO 3.6.1 standalone simulation.\n#==============================================================================\n(((GFED4_CLIMATOLOGY\n0 GFED4_CLIM_ACET  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s ACET - 5 1\n0 GFED4_CLIM_ALD2  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALD2 2019/1-12/1/0 C xy kg/m2/s ALD2 - 5 1\n0 GFED4_CLIM_ALK4  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALK4 2019/1-12/1/0 C xy kg/m2/s ALK4 - 5 1\n0 GFED4_CLIM_BCPI  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1\n0 GFED4_CLIM_BCPO  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1\n0 GFED4_CLIM_BENZ  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BENZ 2019/1-12/1/0 C xy kg/m2/s BENZ - 5 1\n0 GFED4_CLIM_C2H6  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C2H6 2019/1-12/1/0 C xy kg/m2/s C2H6 - 5 1\n0 GFED4_CLIM_C3H8  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C3H8 2019/1-12/1/0 C xy kg/m2/s C3H8 - 5 1\n0 GFED4_CLIM_CH2O  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s CH2O - 5 1\n0 GFED4_CLIM_CO    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_CO   2019/1-12/1/0 C xy kg/m2/s CO   - 5 1\n0 GFED4_CLIM_EOH   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_EOH  2019/1-12/1/0 C xy kg/m2/s EOH  - 5 1\n0 GFED4_CLIM_MEK   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_MEK  2019/1-12/1/0 C xy kg/m2/s MEK  - 5 1\n0 GFED4_CLIM_NO    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_NO   2019/1-12/1/0 C xy kg/m2/s NO   - 5 1\n0 GFED4_CLIM_OCPI  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1\n0 GFED4_CLIM_OCPO  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1\n0 GFED4_CLIM_PRPE  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_PRPE 2019/1-12/1/0 C xy kg/m2/s PRPE - 5 1\n0 GFED4_CLIM_SO2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SO2  2019/1-12/1/0 C xy kg/m2/s SO2  - 5 1\n0 GFED4_CLIM_SOAP  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1\n0 GFED4_CLIM_TOLU  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_TOLU 2019/1-12/1/0 C xy kg/m2/s TOLU - 5 1\n0 GFED4_CLIM_XYLE  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_XYLE 2019/1-12/1/0 C xy kg/m2/s XYLE - 5 1\n)))GFED4_CLIMATOLOGY\n\n#==============================================================================\n# --- Anthropogenic Fugitive, Combustion and Industrial Dust ---\n# (Philip et al., 2017, ERL)\n#==============================================================================\n(((AFCID\n0 PM25FINE_1 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DST1 -    1 1\n0 PM25FINE_2 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DST1 1009 1 2\n0 PM25FINE_3 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DST1 1010 1 3\n)))AFCID\n\n#==============================================================================\n# --- Offline dust emissions ---\n#\n# NOTE: Use flag C if running in CESM\n#==============================================================================\n(((OFFLINE_DUST\n(((.not.DustL23M\n0 EMIS_DSTbin1 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin1 621 3 2\n0 EMIS_DSTbin2 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin2 622 3 2\n0 EMIS_DSTbin3 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin3 623 3 2\n0 EMIS_DSTbin4 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin4 624 3 2\n0 EMIS_DSTbin5 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin5 625 3 2\n0 EMIS_DSTbin6 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin6 626 3 2\n0 EMIS_DSTbin7 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* C xy kg/m2/s DSTbin7 627 3 2\n))).not.DustL23M\n)))OFFLINE_DUST\n\n#==============================================================================\n# --- Offline biogenic VOC emissions ---\n# NOTE: Use flag C if running in CESM\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n0 BIOGENIC_ACET      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ACET_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s ACET -   4 2\n0 BIOGENIC_ALD2      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ALD2_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s ALD2 -   4 2\n0 BIOGENIC_C2H4      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc C2H4_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s C2H4 -   4 2\n0 BIOGENIC_EOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc EOH_MEGAN     1980-2022/1-12/1-31/* C xy kg/m2/s EOH  -   4 2\n0 BIOGENIC_ISOP      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ISOP_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s ISOP -   4 2\n0 BIOGENIC_ISOP_SOAP -                                                                          -             -                     - -  -       SOAP 610 4 2\n0 BIOGENIC_ISOP_SOAS -                                                                          -             -                     - -  -       SOAS 610 4 2\n0 BIOGENIC_LIMO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc LIMO_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s LIMO -   4 2\n0 BIOGENIC_LIMO_SOAP -                                                                          -             -                     - -  -       SOAP 611 4 2\n0 BIOGENIC_LIMO_SOAS -                                                                          -             -                     - -  -       SOAS 611 4 2\n0 BIOGENIC_MOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MOH_MEGAN     1980-2022/1-12/1-31/* C xy kg/m2/s MOH  -   4 2\n0 BIOGENIC_MTPA      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPA_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s MTPA -   4 2\n0 BIOGENIC_MTPA_SOAP -                                                                          -             -                     - -  -       SOAP 611 4 2\n0 BIOGENIC_MTPA_SOAS -                                                                          -             -                     - -  -       SOAS 611 4 2\n0 BIOGENIC_MTPO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPO_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s MTPO -   4 2\n0 BIOGENIC_MTPO_SOAP -                                                                          -             -                     - -  -       SOAP 611 4 2\n0 BIOGENIC_MTPO_SOAS -                                                                          -             -                     - -  -       SOAS 611 4 2\n0 BIOGENIC_PRPE      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc PRPE_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s PRPE -   4 2\n0 BIOGENIC_SESQ      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc SESQ_MEGAN    1980-2022/1-12/1-31/* C xy kg/m2/s SESQ -   4 2\n0 BIOGENIC_SESQ_SOAP -                                                                          -             -                     - -  -       SOAP 612 4 2\n0 BIOGENIC_SESQ_SOAS -                                                                          -             -                     - -  -       SOAS 612 4 2\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt emissions ---\n# Note: Seasalt emissions in GEOS-Chem within CESM are generally handled by MAM4.\n# However, it does not include emissions of SSA alkalinity, chlorine, and bromine.\n#\n# If OFFLINE_SEASALT is used in GEOS-Chem within CESM, SALA and SALC will not be\n# emitted by HEMCO, but the offline emissions will be used to scale for AL/Cl/Br.\n# Alternatively, do not use OFFLINE_SEASALT and scale emissions within chemistry.F90.\n# The latter approach is preferred but not implemented, so we scale the offline\n# emissions for now.\n#\n# This means that the below entries differ from GEOS-Chem \"Classic\" and others\n# by not having SALA / SALC entries. (hplin, 5/23/23)\n#\n# NOTE: Use flag C if running in CESM\n#==============================================================================\n(((OFFLINE_SEASALT\n(((.not.SeaSalt\n0 SEASALT_SALAAL  $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/0.5x0.625/$YYYY/$MM/seasalt_05.$YYYY$MM$DD.nc SALA_TOTAL   1980-2021/1-12/1-31/* C xy kg/m2/s SALAAL  615 3 2\n0 SEASALT_SALACL  -                                                                            -            -                     - -  -       SALACL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALA  -                                                                            -            -                     - -  -       BrSALA  617 3 2\n)))CalcBrSeasalt\n0 SEASALT_SALCAL  $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/0.5x0.625/$YYYY/$MM/seasalt_05.$YYYY$MM$DD.nc SALC_TOTAL   1980-2021/1-12/1-31/* C xy kg/m2/s SALCAL  615 3 2\n0 SEASALT_SALCCL  -                                                                            -            -                     - -  -       SALCCL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALC  -                                                                            -            -                     - -  -       BrSALC  617 3 2\n)))CalcBrSeasalt\n))).not.SeaSalt\n)))OFFLINE_SEASALT\n\n#==============================================================================\n# --- Offline soil NOx emissions ---\n# NOTE: Use flag C if running in CESM\n#==============================================================================\n(((OFFLINE_SOILNOX\n(((.not.SoilNOx\n0 SOILNOX_NO  $ROOT/OFFLINE_SOILNOX/${RUNDIR_OFFLINE_SOILNOX_DIR}/0.5x0.625/$YYYY/$MM/soilnox_05.$YYYY$MM$DD.nc SOIL_NOx 1980-2022/1-12/1-31/* C xy kg/m2/s NO - 3 2\n))).not.SoilNOx\n)))OFFLINE_SOILNOX\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n#==============================================================================\n(((SeaFlux\n#101 CH3I_SEAWATER  $ROOT/CH3I/v2014-07/ocean_ch3i.geos.4x5.nc               CH3I_OCEAN 1985/1-12/1/0 C xy kg/m3  CH3I  -  1 1\n101 DMS_SEAWATER    $ROOT/DMS/v2015-07/DMS_lana.geos.1x1.nc                  DMS_OCEAN  1985/1-12/1/0 C xy kg/m3  DMS   -  1 1\n101 ACET_SEAWATER   $ROOT/ACET/v2014-07/ACET_seawater.generic.1x1.nc         ACET       2005/1/1/0    C xy kgC/m3 ACET  40 1 1\n101 ALD2_SEAWATER   $ROOT/ALD2/v2017-03/ALD2_seawater.geos.2x25.nc           ALD2       2006/1-12/1/0 C xy kgC/m3 ALD2  41 1 1\n101 MENO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         MENO3      2006/1-12/1/0 C xy kg/m3  MENO3 -  1 1\n101 ETNO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         ETNO3      2006/1-12/1/0 C xy kg/m3  ETNO3 -  1 1\n101 MOH_SEAWATER    $ROOT/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc MOH        2005/1/1/0    C xy kg/m3  MOH   -  1 1\n)))SeaFlux\n\n#==============================================================================\n# --- SOILNOX emissions (Extension 104) ---\n#==============================================================================\n(((SoilNOx\n104 DEP_RESERVOIR_DEFAULT $ROOT/SOILNOX/v2014-07/DepReservoirDefault.nc                 DEP_RESERVOIR 2013/7/1/0        C  xy kg/m3 NO - 1 1\n(((HEMCO_RESTART\n104 PFACTOR               ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           PFACTOR       $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DRYPERIOD             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           DRYPERIOD     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 GWET_PREV             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           GWET_PREV     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DEP_RESERVOIR         ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           DEP_RESERVOIR $YYYY/$MM/$DD/$HH EY xy kg/m3 NO - 1 1\n)))HEMCO_RESTART\n104 SOILNOX_FERT          $ROOT/SOILNOX/v2014-07/soilNOx.fert_res.generic.05x05.nc      FERT          2000/1-12/1-31/0  C  xy kg/m3 NO - 1 1\n104 SOILNOX_LANDK1        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K01  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK2        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K02  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK3        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K03  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK4        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K04  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK5        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K05  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK6        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K06  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK7        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K07  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK8        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K08  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK9        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K09  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK10       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K10  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK11       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K11  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK12       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K12  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK13       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K13  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK14       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K14  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK15       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K15  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK16       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K16  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK17       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K17  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK18       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K18  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK19       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K19  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK20       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K20  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK21       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K21  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK22       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K22  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK23       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K23  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK24       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K24  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_ARID          $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       ARID          2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_NONARID       $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       NON_ARID      2000/1/1/0        C  xy 1     NO - 1 1\n)))SoilNOx\n\n#==============================================================================\n# --- Dust emissions using DEAD model (Extension 131) ---\n#==============================================================================\n(((TOMAS_DustDead\n131 DEAD_EF_GEO     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      EF_GEO   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_LF_DRY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      LF_DRY   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_MF_CACO3   $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CaCO3 1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_CLY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CLY   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_SND     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_SND   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_SFC_TYP    $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      SFC_TYP  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_GOC_SRC    $ROOT/DUST_DEAD/v2019-06/GOCART_src_fn.geos.2x25.nc  GOC_SRC  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_VAI        $ROOT/DUST_DEAD/v2019-06/dst_tvbds.geos.2x25.nc      VAI      1985/1-12/1/0 C xy unitless *    -    1 1\n)))TOMAS_DustDead\n\n#==============================================================================\n# --- Sea salt emissions (Extensions 107 and 130)\n#\n# MODIS Chlorophyll-A fields used for emissions of marine organic aerosols\n#==============================================================================\n(((SeaSalt\n107 MODIS_CHLR  $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS    2005-2014/1-12/1/0 C    xy 1 * - 1 1\n107 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1980-2020/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#107 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))SeaSalt\n(((TOMAS_Jeagle\n130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS 2005-2014/1-12/1/0 C xy 1 * - 1 1\n130 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1984-2017/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))TOMAS_Jeagle\n\n#==============================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#\n# NOTE: These are the base emissions, which will be converted to kgC/m2/s by\n# HEMCO. The specified species (OCPI/ISOP/ACET) are required for proper unit\n# conversion. Since netCDF files are already in mass carbon (ug(C)), the only\n# important thing is to specify a VOC with a specified MW of 12g/mol.\n# This is the case for OCPI, ISOP and ACET.\n#\n# We don't need to read EF maps for acetone, a-pinene or myrcene. We now\n# compute those values in the MEGAN extension.\n#==============================================================================\n(((MEGAN\n(((HEMCO_RESTART\n108  T_DAVG                       ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_DAVG                  $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  T_PREVDAY                    ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_PREVDAY               $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  LAI_PREVDAY                  ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                LAI_PREVDAY             $YYYY/$MM/$DD/$HH EY xy 1        * - 1 1\n108  PARDR_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDR_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n108  PARDF_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDF_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n)))HEMCO_RESTART\n108  MEGAN_AEF_ISOP               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ISOPRENE            1985/1/1/0        C xy kgC/m2/s * 61 1 1\n108  MEGAN_AEF_MBOX               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MBO                 1985/1/1/0        C xy kgC/m2/s * 64 1 1\n#108 MEGAN_AEF_APIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ALPHA_PINENE        1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_BPIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_BETA_PINENE         1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_CARE               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_CARENE              1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_LIMO               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_LIMONENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n#108 MEGAN_AEF_MYRC               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MYRCENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_OCIM               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_OCIMENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_SABI               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_SABINENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  CLM4_PFT_BARE                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BARE                2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_SHRB      $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_SHRB      2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_ARCT_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_ARCT_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_NARC_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_NARC_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C4_GRSS             $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C4_GRSS             2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_CROP                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_CROP                2000/1/1/0        C xy 1        * -  1 1\n)))MEGAN\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTES:\n# - These are the base emissions in kgDM/m2/s\n# - If a year is not available, you may use the GFED4_CLIMATOLOGY option instead\n#==============================================================================\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       1997-2022/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       1997-2022/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       1997-2022/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       1997-2022/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       1997-2022/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       1997-2022/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_subgrid_coag\n111 FINN_DAILY_NUMBER   $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc   number   2002-2016/1-12/1/0   RF xy unitless  * - 1 1\n)))GFED_subgrid_coag\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2003-2022/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2003-2022/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n#==============================================================================\n# --- FINN v1.5 biomass burning emissions (Extension 114)\n#==============================================================================\n(((.not.FINN_daily\n114 FINN_VEGTYP1       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype1 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP2       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype2 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP3       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype3 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP4       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype4 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP5       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype5 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP9       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype9 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n))).not.FINN_daily\n\n(((FINN_daily\n114 FINN_DAILY_VEGTYP1 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype1 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP2 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype2 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP3 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype3 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP4 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype4 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP5 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype5 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP9 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype9 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n\n(((FINN_subgrid_coag\n114 FINN_DAILY_NUMBER  $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc     number        2002-2016/1-12/1/0 RF xy unitless * - 1 1\n)))FINN_subgrid_coag\n\n)))FINN_daily\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- UV albedo, for photolysis (cf Hermann & Celarier, 1997) ---\n#==============================================================================\n(((UVALBEDO\n* UV_ALBEDO $ROOT/UVALBEDO/v2019-06/uvalbedo.geos.2x25.nc UVALBD 1985/1-12/1/0 C xy percent * - 1 1\n)))UVALBEDO\n\n#==============================================================================\n# --- Stratospheric Bry data from the CCM model  ---\n#==============================================================================\n(((CCM_STRAT_Bry\n* GEOSCCM_Br_DAY      $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_DAY     $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_DAY     $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_DAY   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_DAY     $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_DAY    $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br_NIGHT    $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_NIGHT   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_NIGHT   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_NIGHT $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_NIGHT   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_NIGHT  $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n)))CCM_STRAT_Bry\n\n#==============================================================================\n#--- Archived GMI OH concentrations ---\n#==============================================================================\n(((GMI_OH\n* GMI_OH            $ROOT/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc             species 2005/1-12/1/0 C xyz v/v   *        - 1  1\n)))GMI_OH\n\n#==============================================================================\n#--- GMI chemistry: prod/loss rates ---\n#\n# Used for linearized mesospheric chemistry\n#==============================================================================\n(((GMI_PROD_LOSS\n* GMI_LOSS_A3O2       $ROOT/GMI/v2015-02/gmi.clim.A3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   A3O2     - 1  1\n* GMI_PROD_A3O2       $ROOT/GMI/v2015-02/gmi.clim.A3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s A3O2     - 1  1\n* GMI_LOSS_ACET       $ROOT/GMI/v2015-02/gmi.clim.ACET.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACET     - 1  1\n* GMI_PROD_ACET       $ROOT/GMI/v2015-02/gmi.clim.ACET.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACET     - 1  1\n* GMI_LOSS_ACTA       $ROOT/GMI/v2015-02/gmi.clim.ACTA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACTA     - 1  1\n* GMI_PROD_ACTA       $ROOT/GMI/v2015-02/gmi.clim.ACTA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACTA     - 1  1\n* GMI_LOSS_ALD2       $ROOT/GMI/v2015-02/gmi.clim.ALD2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALD2     - 1  1\n* GMI_PROD_ALD2       $ROOT/GMI/v2015-02/gmi.clim.ALD2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALD2     - 1  1\n* GMI_LOSS_ALK4       $ROOT/GMI/v2015-02/gmi.clim.ALK4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALK4     - 1  1\n* GMI_PROD_ALK4       $ROOT/GMI/v2015-02/gmi.clim.ALK4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALK4     - 1  1\n* GMI_LOSS_ATO2       $ROOT/GMI/v2015-02/gmi.clim.ATO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ATO2     - 1  1\n* GMI_PROD_ATO2       $ROOT/GMI/v2015-02/gmi.clim.ATO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ATO2     - 1  1\n* GMI_LOSS_B3O2       $ROOT/GMI/v2015-02/gmi.clim.B3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   B3O2     - 1  1\n* GMI_PROD_B3O2       $ROOT/GMI/v2015-02/gmi.clim.B3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s B3O2     - 1  1\n#* GMI_LOSS_Br        $ROOT/GMI/v2015-02/gmi.clim.Br.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Br       - 1  1\n#* GMI_PROD_Br        $ROOT/GMI/v2015-02/gmi.clim.Br.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Br       - 1  1\n#* GMI_LOSS_BrCl      $ROOT/GMI/v2015-02/gmi.clim.BrCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   BrCl     - 1  1\n#* GMI_PROD_BrCl      $ROOT/GMI/v2015-02/gmi.clim.BrCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s BrCl     - 1  1\n#* GMI_LOSS_BrO       $ROOT/GMI/v2015-02/gmi.clim.BrO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   BrO      - 1  1\n#* GMI_PROD_BrO       $ROOT/GMI/v2015-02/gmi.clim.BrO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s BrO      - 1  1\n#* GMI_LOSS_BrNO3     $ROOT/GMI/v2015-02/gmi.clim.BrONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   BrNO3    - 1  1\n#* GMI_PROD_BrNO3     $ROOT/GMI/v2015-02/gmi.clim.BrONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s BrNO3    - 1  1\n* GMI_LOSS_C2H6       $ROOT/GMI/v2015-02/gmi.clim.C2H6.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C2H6     - 1  1\n* GMI_PROD_C2H6       $ROOT/GMI/v2015-02/gmi.clim.C2H6.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C2H6     - 1  1\n* GMI_LOSS_C3H8       $ROOT/GMI/v2015-02/gmi.clim.C3H8.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C3H8     - 1  1\n* GMI_PROD_C3H8       $ROOT/GMI/v2015-02/gmi.clim.C3H8.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C3H8     - 1  1\n* GMI_LOSS_CCl4       $ROOT/GMI/v2015-02/gmi.clim.CCl4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CCl4     - 1  1\n* GMI_PROD_CCl4       $ROOT/GMI/v2015-02/gmi.clim.CCl4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CCl4     - 1  1\n#* GMI_LOSS_H1202     $ROOT/GMI/v2015-02/gmi.clim.CF2Br2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   H1202    - 1  1\n#* GMI_PROD_H1202     $ROOT/GMI/v2015-02/gmi.clim.CF2Br2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s H1202    - 1  1\n* GMI_LOSS_CFC12      $ROOT/GMI/v2015-02/gmi.clim.CF2Cl2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC12    - 1  1\n* GMI_PROD_CFC12      $ROOT/GMI/v2015-02/gmi.clim.CF2Cl2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC12    - 1  1\n* GMI_LOSS_H1211      $ROOT/GMI/v2015-02/gmi.clim.CF2ClBr.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   H1211    - 1  1\n* GMI_PROD_H1211      $ROOT/GMI/v2015-02/gmi.clim.CF2ClBr.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s H1211    - 1  1\n#* GMI_LOSS_H1311     $ROOT/GMI/v2015-02/gmi.clim.CF3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H1311    - 1  1\n#* GMI_PROD_H1311     $ROOT/GMI/v2015-02/gmi.clim.CF3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H1311    - 1  1\n* GMI_LOSS_CFC113     $ROOT/GMI/v2015-02/gmi.clim.CFC113.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC113   - 1  1\n* GMI_PROD_CFC113     $ROOT/GMI/v2015-02/gmi.clim.CFC113.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC113   - 1  1\n* GMI_LOSS_CFC114     $ROOT/GMI/v2015-02/gmi.clim.CFC114.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC114   - 1  1\n* GMI_PROD_CFC114     $ROOT/GMI/v2015-02/gmi.clim.CFC114.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC114   - 1  1\n* GMI_LOSS_CFC115     $ROOT/GMI/v2015-02/gmi.clim.CFC115.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC115   - 1  1\n* GMI_PROD_CFC115     $ROOT/GMI/v2015-02/gmi.clim.CFC115.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC115   - 1  1\n* GMI_LOSS_CFC11      $ROOT/GMI/v2015-02/gmi.clim.CFCl3.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CFC11    - 1  1\n* GMI_PROD_CFC11      $ROOT/GMI/v2015-02/gmi.clim.CFCl3.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CFC11    - 1  1\n* GMI_LOSS_CH2O       $ROOT/GMI/v2015-02/gmi.clim.CH2O.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CH2O     - 1  1\n* GMI_PROD_CH2O       $ROOT/GMI/v2015-02/gmi.clim.CH2O.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CH2O     - 1  1\n#* GMI_LOSS_CH3Br     $ROOT/GMI/v2015-02/gmi.clim.CH3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Br    - 1  1\n#* GMI_PROD_CH3Br     $ROOT/GMI/v2015-02/gmi.clim.CH3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Br    - 1  1\n* GMI_LOSS_CH3CCl3    $ROOT/GMI/v2015-02/gmi.clim.CH3CCl3.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   CH3CCl3  - 1  1\n* GMI_PROD_CH3CCl3    $ROOT/GMI/v2015-02/gmi.clim.CH3CCl3.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s CH3CCl3  - 1  1\n* GMI_LOSS_CH3Cl      $ROOT/GMI/v2015-02/gmi.clim.CH3Cl.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Cl    - 1  1\n* GMI_PROD_CH3Cl      $ROOT/GMI/v2015-02/gmi.clim.CH3Cl.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Cl    - 1  1\n* GMI_LOSS_CH4        $ROOT/GMI/v2015-02/gmi.clim.CH4.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   CH4      - 1  1\n* GMI_PROD_CH4        $ROOT/GMI/v2015-02/gmi.clim.CH4.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s CH4      - 1  1\n* GMI_LOSS_CO         $ROOT/GMI/v2015-02/gmi.clim.CO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   CO       - 1  1\n* GMI_PROD_CO         $ROOT/GMI/v2015-02/gmi.clim.CO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s CO       - 1  1\n* GMI_LOSS_Cl         $ROOT/GMI/v2015-02/gmi.clim.Cl.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Cl       - 1  1\n* GMI_PROD_Cl         $ROOT/GMI/v2015-02/gmi.clim.Cl.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Cl       - 1  1\n* GMI_LOSS_Cl2        $ROOT/GMI/v2015-02/gmi.clim.Cl2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   Cl2      - 1  1\n* GMI_PROD_Cl2        $ROOT/GMI/v2015-02/gmi.clim.Cl2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s Cl2      - 1  1\n* GMI_LOSS_Cl2O2      $ROOT/GMI/v2015-02/gmi.clim.Cl2O2.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   Cl2O2    - 1  1\n* GMI_PROD_Cl2O2      $ROOT/GMI/v2015-02/gmi.clim.Cl2O2.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s Cl2O2    - 1  1\n* GMI_LOSS_ClO        $ROOT/GMI/v2015-02/gmi.clim.ClO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ClO      - 1  1\n* GMI_PROD_ClO        $ROOT/GMI/v2015-02/gmi.clim.ClO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ClO      - 1  1\n* GMI_LOSS_ClONO2     $ROOT/GMI/v2015-02/gmi.clim.ClONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   ClONO2   - 1  1\n* GMI_PROD_ClONO2     $ROOT/GMI/v2015-02/gmi.clim.ClONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s ClONO2   - 1  1\n* GMI_LOSS_EOH        $ROOT/GMI/v2015-02/gmi.clim.EOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   EOH      - 1  1\n* GMI_PROD_EOH        $ROOT/GMI/v2015-02/gmi.clim.EOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s EOH      - 1  1\n* GMI_LOSS_ETO2       $ROOT/GMI/v2015-02/gmi.clim.ETO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ETO2     - 1  1\n* GMI_PROD_ETO2       $ROOT/GMI/v2015-02/gmi.clim.ETO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ETO2     - 1  1\n* GMI_LOSS_ETP        $ROOT/GMI/v2015-02/gmi.clim.ETP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ETP      - 1  1\n* GMI_PROD_ETP        $ROOT/GMI/v2015-02/gmi.clim.ETP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ETP      - 1  1\n* GMI_LOSS_GCO3       $ROOT/GMI/v2015-02/gmi.clim.GCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GCO3     - 1  1\n* GMI_PROD_GCO3       $ROOT/GMI/v2015-02/gmi.clim.GCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GCO3     - 1  1\n* GMI_LOSS_GLYC       $ROOT/GMI/v2015-02/gmi.clim.GLYC.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYC     - 1  1\n* GMI_PROD_GLYC       $ROOT/GMI/v2015-02/gmi.clim.GLYC.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYC     - 1  1\n* GMI_LOSS_GLYX       $ROOT/GMI/v2015-02/gmi.clim.GLYX.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYX     - 1  1\n* GMI_PROD_GLYX       $ROOT/GMI/v2015-02/gmi.clim.GLYX.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYX     - 1  1\n* GMI_LOSS_GP         $ROOT/GMI/v2015-02/gmi.clim.GP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   GP       - 1  1\n* GMI_PROD_GP         $ROOT/GMI/v2015-02/gmi.clim.GP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s GP       - 1  1\n* GMI_LOSS_GPAN       $ROOT/GMI/v2015-02/gmi.clim.GPAN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GPAN     - 1  1\n* GMI_PROD_GPAN       $ROOT/GMI/v2015-02/gmi.clim.GPAN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GPAN     - 1  1\n* GMI_LOSS_H          $ROOT/GMI/v2015-02/gmi.clim.H.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   H        - 1  1\n* GMI_PROD_H          $ROOT/GMI/v2015-02/gmi.clim.H.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s H        - 1  1\n* GMI_LOSS_H2         $ROOT/GMI/v2015-02/gmi.clim.H2.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   H2       - 1  1\n* GMI_PROD_H2         $ROOT/GMI/v2015-02/gmi.clim.H2.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s H2       - 1  1\n* GMI_LOSS_H2402      $ROOT/GMI/v2015-02/gmi.clim.H2402.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H2402    - 1  1\n* GMI_PROD_H2402      $ROOT/GMI/v2015-02/gmi.clim.H2402.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H2402    - 1  1\n* GMI_LOSS_H2O        $ROOT/GMI/v2015-02/gmi.clim.H2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   H2O      - 1  1\n* GMI_PROD_H2O        $ROOT/GMI/v2015-02/gmi.clim.H2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s H2O      - 1  1\n* GMI_LOSS_H2O2       $ROOT/GMI/v2015-02/gmi.clim.H2O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   H2O2     - 1  1\n* GMI_PROD_H2O2       $ROOT/GMI/v2015-02/gmi.clim.H2O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s H2O2     - 1  1\n* GMI_LOSS_HAC        $ROOT/GMI/v2015-02/gmi.clim.HAC.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HAC      - 1  1\n* GMI_PROD_HAC        $ROOT/GMI/v2015-02/gmi.clim.HAC.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HAC      - 1  1\n#* GMI_LOSS_HBr       $ROOT/GMI/v2015-02/gmi.clim.HBr.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HBr      - 1  1\n#* GMI_PROD_HBr       $ROOT/GMI/v2015-02/gmi.clim.HBr.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HBr      - 1  1\n* GMI_LOSS_HCFC141b   $ROOT/GMI/v2015-02/gmi.clim.HCFC141b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC141b - 1  1\n* GMI_PROD_HCFC141b   $ROOT/GMI/v2015-02/gmi.clim.HCFC141b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC141b - 1  1\n* GMI_LOSS_HCFC142b   $ROOT/GMI/v2015-02/gmi.clim.HCFC142b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC142b - 1  1\n* GMI_PROD_HCFC142b   $ROOT/GMI/v2015-02/gmi.clim.HCFC142b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC142b - 1  1\n* GMI_LOSS_HCFC22     $ROOT/GMI/v2015-02/gmi.clim.HCFC22.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   HCFC22   - 1  1\n* GMI_PROD_HCFC22     $ROOT/GMI/v2015-02/gmi.clim.HCFC22.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s HCFC22   - 1  1\n* GMI_LOSS_HCOOH      $ROOT/GMI/v2015-02/gmi.clim.HCOOH.geos5.2x25.20170108.nc loss    2005/1-12/1/0 C xyz s-1   HCOOH    - 1  1\n* GMI_PROD_HCOOH      $ROOT/GMI/v2015-02/gmi.clim.HCOOH.geos5.2x25.20170108.nc prod    2005/1-12/1/0 C xyz v/v/s HCOOH    - 1  1\n* GMI_LOSS_HCl        $ROOT/GMI/v2015-02/gmi.clim.HCl.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HCl      - 1  1\n* GMI_PROD_HCl        $ROOT/GMI/v2015-02/gmi.clim.HCl.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HCl      - 1  1\n* GMI_LOSS_HNO2       $ROOT/GMI/v2015-02/gmi.clim.HNO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO2     - 1  1\n* GMI_PROD_HNO2       $ROOT/GMI/v2015-02/gmi.clim.HNO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO2     - 1  1\n* GMI_LOSS_HNO3       $ROOT/GMI/v2015-02/gmi.clim.HNO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO3     - 1  1\n* GMI_PROD_HNO3       $ROOT/GMI/v2015-02/gmi.clim.HNO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO3     - 1  1\n* GMI_LOSS_HNO4       $ROOT/GMI/v2015-02/gmi.clim.HNO4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO4     - 1  1\n* GMI_PROD_HNO4       $ROOT/GMI/v2015-02/gmi.clim.HNO4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO4     - 1  1\n* GMI_LOSS_HO2        $ROOT/GMI/v2015-02/gmi.clim.HO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HO2      - 1  1\n* GMI_PROD_HO2        $ROOT/GMI/v2015-02/gmi.clim.HO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HO2      - 1  1\n#* GMI_LOSS_HOBr      $ROOT/GMI/v2015-02/gmi.clim.HOBr.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOBr     - 1  1\n#* GMI_PROD_HOBr      $ROOT/GMI/v2015-02/gmi.clim.HOBr.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOBr     - 1  1\n* GMI_LOSS_HOCl       $ROOT/GMI/v2015-02/gmi.clim.HOCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOCl     - 1  1\n* GMI_PROD_HOCl       $ROOT/GMI/v2015-02/gmi.clim.HOCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOCl     - 1  1\n* GMI_LOSS_IALD       $ROOT/GMI/v2015-02/gmi.clim.IALD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IALD     - 1  1\n* GMI_PROD_IALD       $ROOT/GMI/v2015-02/gmi.clim.IALD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IALD     - 1  1\n* GMI_LOSS_IAO2       $ROOT/GMI/v2015-02/gmi.clim.IAO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IAO2     - 1  1\n* GMI_PROD_IAO2       $ROOT/GMI/v2015-02/gmi.clim.IAO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IAO2     - 1  1\n* GMI_LOSS_IAP        $ROOT/GMI/v2015-02/gmi.clim.IAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   IAP      - 1  1\n* GMI_PROD_IAP        $ROOT/GMI/v2015-02/gmi.clim.IAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s IAP      - 1  1\n* GMI_LOSS_INO2       $ROOT/GMI/v2015-02/gmi.clim.INO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INO2     - 1  1\n* GMI_PROD_INO2       $ROOT/GMI/v2015-02/gmi.clim.INO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INO2     - 1  1\n* GMI_LOSS_INPN       $ROOT/GMI/v2015-02/gmi.clim.INPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INPN     - 1  1\n* GMI_PROD_INPN       $ROOT/GMI/v2015-02/gmi.clim.INPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INPN     - 1  1\n* GMI_LOSS_ISN1       $ROOT/GMI/v2015-02/gmi.clim.ISN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISN1     - 1  1\n* GMI_PROD_ISN1       $ROOT/GMI/v2015-02/gmi.clim.ISN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISN1     - 1  1\n* GMI_LOSS_ISNP       $ROOT/GMI/v2015-02/gmi.clim.ISNP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISNP     - 1  1\n* GMI_PROD_ISNP       $ROOT/GMI/v2015-02/gmi.clim.ISNP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISNP     - 1  1\n* GMI_LOSS_ISOP       $ROOT/GMI/v2015-02/gmi.clim.ISOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISOP     - 1  1\n* GMI_PROD_ISOP       $ROOT/GMI/v2015-02/gmi.clim.ISOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISOP     - 1  1\n* GMI_LOSS_KO2        $ROOT/GMI/v2015-02/gmi.clim.KO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   KO2      - 1  1\n* GMI_PROD_KO2        $ROOT/GMI/v2015-02/gmi.clim.KO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s KO2      - 1  1\n* GMI_LOSS_MACR       $ROOT/GMI/v2015-02/gmi.clim.MACR.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MACR     - 1  1\n* GMI_PROD_MACR       $ROOT/GMI/v2015-02/gmi.clim.MACR.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MACR     - 1  1\n* GMI_LOSS_MAN2       $ROOT/GMI/v2015-02/gmi.clim.MAN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAN2     - 1  1\n* GMI_PROD_MAN2       $ROOT/GMI/v2015-02/gmi.clim.MAN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAN2     - 1  1\n* GMI_LOSS_MAO3       $ROOT/GMI/v2015-02/gmi.clim.MAO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAO3     - 1  1\n* GMI_PROD_MAO3       $ROOT/GMI/v2015-02/gmi.clim.MAO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAO3     - 1  1\n* GMI_LOSS_MAOP       $ROOT/GMI/v2015-02/gmi.clim.MAOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAOP     - 1  1\n* GMI_PROD_MAOP       $ROOT/GMI/v2015-02/gmi.clim.MAOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAOP     - 1  1\n* GMI_LOSS_MAP        $ROOT/GMI/v2015-02/gmi.clim.MAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MAP      - 1  1\n* GMI_PROD_MAP        $ROOT/GMI/v2015-02/gmi.clim.MAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MAP      - 1  1\n* GMI_LOSS_MCO3       $ROOT/GMI/v2015-02/gmi.clim.MCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MCO3     - 1  1\n* GMI_PROD_MCO3       $ROOT/GMI/v2015-02/gmi.clim.MCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MCO3     - 1  1\n* GMI_LOSS_MEK        $ROOT/GMI/v2015-02/gmi.clim.MEK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MEK      - 1  1\n* GMI_PROD_MEK        $ROOT/GMI/v2015-02/gmi.clim.MEK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MEK      - 1  1\n* GMI_LOSS_MGLY       $ROOT/GMI/v2015-02/gmi.clim.MGLY.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MGLY     - 1  1\n* GMI_PROD_MGLY       $ROOT/GMI/v2015-02/gmi.clim.MGLY.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MGLY     - 1  1\n* GMI_LOSS_MO2        $ROOT/GMI/v2015-02/gmi.clim.MO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MO2      - 1  1\n* GMI_PROD_MO2        $ROOT/GMI/v2015-02/gmi.clim.MO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MO2      - 1  1\n* GMI_LOSS_MOH        $ROOT/GMI/v2015-02/gmi.clim.MOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MOH      - 1  1\n* GMI_PROD_MOH        $ROOT/GMI/v2015-02/gmi.clim.MOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MOH      - 1  1\n* GMI_LOSS_MP         $ROOT/GMI/v2015-02/gmi.clim.MP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   MP       - 1  1\n* GMI_PROD_MP         $ROOT/GMI/v2015-02/gmi.clim.MP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s MP       - 1  1\n* GMI_LOSS_MRO2       $ROOT/GMI/v2015-02/gmi.clim.MRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MRO2     - 1  1\n* GMI_PROD_MRO2       $ROOT/GMI/v2015-02/gmi.clim.MRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MRO2     - 1  1\n* GMI_LOSS_MRP        $ROOT/GMI/v2015-02/gmi.clim.MRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MRP      - 1  1\n* GMI_PROD_MRP        $ROOT/GMI/v2015-02/gmi.clim.MRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MRP      - 1  1\n* GMI_LOSS_MVK        $ROOT/GMI/v2015-02/gmi.clim.MVK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MVK      - 1  1\n* GMI_PROD_MVK        $ROOT/GMI/v2015-02/gmi.clim.MVK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MVK      - 1  1\n* GMI_LOSS_MVN2       $ROOT/GMI/v2015-02/gmi.clim.MVN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MVN2     - 1  1\n* GMI_PROD_MVN2       $ROOT/GMI/v2015-02/gmi.clim.MVN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MVN2     - 1  1\n* GMI_LOSS_N          $ROOT/GMI/v2015-02/gmi.clim.N.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   N        - 1  1\n* GMI_PROD_N          $ROOT/GMI/v2015-02/gmi.clim.N.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s N        - 1  1\n* GMI_LOSS_N2O        $ROOT/GMI/v2015-02/gmi.clim.N2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   N2O      - 1  1\n* GMI_PROD_N2O        $ROOT/GMI/v2015-02/gmi.clim.N2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s N2O      - 1  1\n* GMI_LOSS_N2O5       $ROOT/GMI/v2015-02/gmi.clim.N2O5.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   N2O5     - 1  1\n* GMI_PROD_N2O5       $ROOT/GMI/v2015-02/gmi.clim.N2O5.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s N2O5     - 1  1\n* GMI_LOSS_NO         $ROOT/GMI/v2015-02/gmi.clim.NO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   NO       - 1  1\n* GMI_PROD_NO         $ROOT/GMI/v2015-02/gmi.clim.NO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s NO       - 1  1\n* GMI_LOSS_NO2        $ROOT/GMI/v2015-02/gmi.clim.NO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO2      - 1  1\n* GMI_PROD_NO2        $ROOT/GMI/v2015-02/gmi.clim.NO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO2      - 1  1\n* GMI_LOSS_NO3        $ROOT/GMI/v2015-02/gmi.clim.NO3.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO3      - 1  1\n* GMI_PROD_NO3        $ROOT/GMI/v2015-02/gmi.clim.NO3.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO3      - 1  1\n* GMI_LOSS_NOx        $ROOT/GMI/v2015-02/gmi.clim.NOx.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NOx      - 1  1\n* GMI_PROD_NOx        $ROOT/GMI/v2015-02/gmi.clim.NOx.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NOx      - 1  1\n* GMI_LOSS_O          $ROOT/GMI/v2015-02/gmi.clim.O.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   O        - 1  1\n* GMI_PROD_O          $ROOT/GMI/v2015-02/gmi.clim.O.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s O        - 1  1\n* GMI_LOSS_O1D        $ROOT/GMI/v2015-02/gmi.clim.O1D.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   O1D      - 1  1\n* GMI_PROD_O1D        $ROOT/GMI/v2015-02/gmi.clim.O1D.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s O1D      - 1  1\n* GMI_LOSS_O3         $ROOT/GMI/v2015-02/gmi.clim.O3.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   O3       - 1  1\n* GMI_PROD_O3         $ROOT/GMI/v2015-02/gmi.clim.O3.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s O3       - 1  1\n* GMI_LOSS_OClO       $ROOT/GMI/v2015-02/gmi.clim.OClO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   OClO     - 1  1\n* GMI_PROD_OClO       $ROOT/GMI/v2015-02/gmi.clim.OClO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s OClO     - 1  1\n* GMI_LOSS_OH         $ROOT/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   OH       - 1  1\n* GMI_PROD_OH         $ROOT/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s OH       - 1  1\n* GMI_LOSS_Ox         $ROOT/GMI/v2015-02/gmi.clim.Ox.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Ox       - 1  1\n* GMI_PROD_Ox         $ROOT/GMI/v2015-02/gmi.clim.Ox.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Ox       - 1  1\n* GMI_LOSS_PAN        $ROOT/GMI/v2015-02/gmi.clim.PAN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PAN      - 1  1\n* GMI_PROD_PAN        $ROOT/GMI/v2015-02/gmi.clim.PAN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PAN      - 1  1\n* GMI_LOSS_NPMN       $ROOT/GMI/v2015-02/gmi.clim.NPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   NPMN     - 1  1\n* GMI_PROD_NPMN       $ROOT/GMI/v2015-02/gmi.clim.NPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s NPMN     - 1  1\n* GMI_LOSS_IPMN       $ROOT/GMI/v2015-02/gmi.clim.IPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IPMN     - 1  1\n* GMI_PROD_IPMN       $ROOT/GMI/v2015-02/gmi.clim.IPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IPMN     - 1  1\n* GMI_LOSS_PO2        $ROOT/GMI/v2015-02/gmi.clim.PO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PO2      - 1  1\n* GMI_PROD_PO2        $ROOT/GMI/v2015-02/gmi.clim.PO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PO2      - 1  1\n* GMI_LOSS_PP         $ROOT/GMI/v2015-02/gmi.clim.PP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   PP       - 1  1\n* GMI_PROD_PP         $ROOT/GMI/v2015-02/gmi.clim.PP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s PP       - 1  1\n* GMI_LOSS_PPN        $ROOT/GMI/v2015-02/gmi.clim.PPN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PPN      - 1  1\n* GMI_PROD_PPN        $ROOT/GMI/v2015-02/gmi.clim.PPN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PPN      - 1  1\n* GMI_LOSS_PRN1       $ROOT/GMI/v2015-02/gmi.clim.PRN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRN1     - 1  1\n* GMI_PROD_PRN1       $ROOT/GMI/v2015-02/gmi.clim.PRN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRN1     - 1  1\n* GMI_LOSS_PRPE       $ROOT/GMI/v2015-02/gmi.clim.PRPE.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPE     - 1  1\n* GMI_PROD_PRPE       $ROOT/GMI/v2015-02/gmi.clim.PRPE.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPE     - 1  1\n* GMI_LOSS_PRPN       $ROOT/GMI/v2015-02/gmi.clim.PRPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPN     - 1  1\n* GMI_PROD_PRPN       $ROOT/GMI/v2015-02/gmi.clim.PRPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPN     - 1  1\n* GMI_LOSS_R4N1       $ROOT/GMI/v2015-02/gmi.clim.R4N1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N1     - 1  1\n* GMI_PROD_R4N1       $ROOT/GMI/v2015-02/gmi.clim.R4N1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N1     - 1  1\n* GMI_LOSS_R4N2       $ROOT/GMI/v2015-02/gmi.clim.R4N2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N2     - 1  1\n* GMI_PROD_R4N2       $ROOT/GMI/v2015-02/gmi.clim.R4N2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N2     - 1  1\n* GMI_LOSS_R4O2       $ROOT/GMI/v2015-02/gmi.clim.R4O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4O2     - 1  1\n* GMI_PROD_R4O2       $ROOT/GMI/v2015-02/gmi.clim.R4O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4O2     - 1  1\n* GMI_LOSS_R4P        $ROOT/GMI/v2015-02/gmi.clim.R4P.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   R4P      - 1  1\n* GMI_PROD_R4P        $ROOT/GMI/v2015-02/gmi.clim.R4P.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s R4P      - 1  1\n* GMI_LOSS_RA3P       $ROOT/GMI/v2015-02/gmi.clim.RA3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RA3P     - 1  1\n* GMI_PROD_RA3P       $ROOT/GMI/v2015-02/gmi.clim.RA3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RA3P     - 1  1\n* GMI_LOSS_RB3P       $ROOT/GMI/v2015-02/gmi.clim.RB3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RB3P     - 1  1\n* GMI_PROD_RB3P       $ROOT/GMI/v2015-02/gmi.clim.RB3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RB3P     - 1  1\n* GMI_LOSS_RCHO       $ROOT/GMI/v2015-02/gmi.clim.RCHO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCHO     - 1  1\n* GMI_PROD_RCHO       $ROOT/GMI/v2015-02/gmi.clim.RCHO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCHO     - 1  1\n* GMI_LOSS_RCO3       $ROOT/GMI/v2015-02/gmi.clim.RCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCO3     - 1  1\n* GMI_PROD_RCO3       $ROOT/GMI/v2015-02/gmi.clim.RCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCO3     - 1  1\n* GMI_LOSS_RCOOH      $ROOT/GMI/v2015-02/gmi.clim.RCOOH.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   RCOOH    - 1  1\n* GMI_PROD_RCOOH      $ROOT/GMI/v2015-02/gmi.clim.RCOOH.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s RCOOH    - 1  1\n* GMI_LOSS_RIO1       $ROOT/GMI/v2015-02/gmi.clim.RIO1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIO1     - 1  1\n* GMI_PROD_RIO1       $ROOT/GMI/v2015-02/gmi.clim.RIO1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIO1     - 1  1\n* GMI_LOSS_RIPA       $ROOT/GMI/v2015-02/gmi.clim.RIPA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPA     - 1  1\n* GMI_PROD_RIPA       $ROOT/GMI/v2015-02/gmi.clim.RIPA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPA     - 1  1\n* GMI_LOSS_RIPB       $ROOT/GMI/v2015-02/gmi.clim.RIPB.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPB     - 1  1\n* GMI_PROD_RIPB       $ROOT/GMI/v2015-02/gmi.clim.RIPB.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPB     - 1  1\n* GMI_LOSS_RIPD       $ROOT/GMI/v2015-02/gmi.clim.RIPD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPD     - 1  1\n* GMI_PROD_RIPD       $ROOT/GMI/v2015-02/gmi.clim.RIPD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPD     - 1  1\n* GMI_LOSS_ROH        $ROOT/GMI/v2015-02/gmi.clim.ROH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ROH      - 1  1\n* GMI_PROD_ROH        $ROOT/GMI/v2015-02/gmi.clim.ROH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ROH      - 1  1\n* GMI_LOSS_RP         $ROOT/GMI/v2015-02/gmi.clim.RP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   RP       - 1  1\n* GMI_PROD_RP         $ROOT/GMI/v2015-02/gmi.clim.RP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s RP       - 1  1\n* GMI_LOSS_VRO2       $ROOT/GMI/v2015-02/gmi.clim.VRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   VRO2     - 1  1\n* GMI_PROD_VRO2       $ROOT/GMI/v2015-02/gmi.clim.VRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s VRO2     - 1  1\n* GMI_LOSS_VRP        $ROOT/GMI/v2015-02/gmi.clim.VRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   VRP      - 1  1\n* GMI_PROD_VRP        $ROOT/GMI/v2015-02/gmi.clim.VRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s VRP      - 1  1\n)))GMI_PROD_LOSS\n\n#==============================================================================\n# --- Spatially varying OM/OC ---\n#==============================================================================\n(((OMOC_RATIO\n* OMOC_DJF $ROOT/OMOC/v2018-01/OMOC.DJF.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_MAM $ROOT/OMOC/v2018-01/OMOC.MAM.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_JJA $ROOT/OMOC/v2018-01/OMOC.JJA.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_SON $ROOT/OMOC/v2018-01/OMOC.SON.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n)))OMOC_RATIO\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- NOAA GMD monthly mean surface CH4 ---\n# NOTE: Turn off in CESM since GHGs are prescribed from CAM\n#==============================================================================\n(((GMD_SFC_CH4\n* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2023-10/monthly.gridded.surface.methane.1975-2022.1x1.nc SFC_CH4 1975-2022/1-12/1/0 RY xy ppbv * - 1 1\n)))GMD_SFC_CH4\n\n#==============================================================================\n# --- CMIP6 monthly mean surface CH4 ---\n# NOTE: This is only used if NOAA data is unavailable (pre 1979)\n#==============================================================================\n(((CMIP6_SFC_CH4\n* CMIP6_Sfc_CH4  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH4 1750-1978/1-12/1/0 EY xy ppbv * - 1 1\n)))CMIP6_SFC_CH4\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n# (4) Use flag C if running in CESM\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 C xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Inputs for the RRTMG radiative transfer model ---\n#\n# NOTE: The 2 x 2.5 albedo fields and emissivity fields will produce\n# differences at the level of numerical noise when comparing output to\n# simulations from prior versions (esp. when running at 4 x 5 resolution).\n# You might see larger differences w/r/t prior verisons for a few grid boxes\n# along the coastline of Antarctica, where the difference in resolution\n# and regridding will be more apparent in the sharp transition from ice to\n# ocean.  If this is a problem, you can use the data files at 4x5 resolution\n# for 4x5 RRTMG simulations.\n#\n# ALSO NOTE: The algorithm that HEMCO uses to select each time slice is\n# likely different than what was implemented when reading the old bpch\n# data from disk.  This can also cause differences when comparing to\n# prior versions.\n#==============================================================================\n(((RRTMG\n* MODIS_ALBDFNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDFVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_01 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band01  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_02 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band02  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_03 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band03  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_04 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band04  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_05 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band05  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_06 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band06  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_07 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band07  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_08 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band08  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_09 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band09  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_10 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band10  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_11 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band11  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_12 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band12  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_13 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band13  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_14 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band14  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_15 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band15  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_16 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band16  2002/1-12/1-31/0 C xy  1    * - 1 1\n* TES_CLIM_CCL4  $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CCl4            2000/1/1/0       C xyz ppbv * - 1 1\n* TES_CLIM_CFC11 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CFC11           2000/1/1/0       C xyz ppbv * - 1 1\n* TES_CLIM_CFC12 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CFC12           2000/1/1/0       C xyz ppbv * - 1 1\n* TES_CLIM_CFC22 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CFC22           2000/1/1/0       C xyz ppbv * - 1 1\n* TES_CLIM_CH4   $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CH4             2000/1/1/0       C xyz ppbv * - 1 1\n* TES_CLIM_N2O   $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      N2O             2000/1/1/0       C xyz ppbv * - 1 1\n)))RRTMG\n\n(((SfcVMR\n#==============================================================================\n# --- CMIP6 files ---\n#\n# Use core CMIP6 observationally constrained data from Meinshausen et al. (2017) GMD\n#==============================================================================\n* SfcVMR_CH3Cl  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Cl  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH2Cl2 $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH2Cl2 1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CHCl3  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CHCl3  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH3Br  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Br  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n\n#==============================================================================\n# --- WMO-2018 files (GMI) ---\n#==============================================================================\n* SfcVMR_CCl4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CCl4        1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC113   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC113      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC114   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC114      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC115   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC115      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC11    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC11       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC12    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC12       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Br   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Br       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CH3CCl3  $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3CCl3     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Cl   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Cl       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH4         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1211    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1211       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1301    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1301       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H2402    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc C2BR2F4     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC141b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC141b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC142b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC142b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC22   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC22      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_N2O      $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc N2O         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n\n#==============================================================================\n# --- Dummy files with a single surface concentration (for OCS and H2) ---\n#==============================================================================\n* SfcVMR_OCS  $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS 1985/1/1/0  C xy ppbv * - 1 1\n* SfcVMR_H2   $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2  1985/1/1/0  C xy ppbv * - 1 1\n)))SfcVMR\n\n(((CMIP6_SFC_BC\n\n#==============================================================================\n# --- CMIP6 surface boundary conditions for 1750-2100                       ---\n#==============================================================================\n\n# Commented-out tracers do not exist in GEOS-Chem yet\n# * SfcVMR_C2F6       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C2F6          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C3F8       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C3F8          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C4F10      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C4F10         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C5F12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C5F12         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C6F14      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C6F14         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C7F16      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C7F16         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C8F18      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C8F18         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_CC4F8      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CC4F8         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CCl4       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CCl4          1750-2100/1-12/1/0 RY xy v/v CCl4     802 1 1\n# * SfcVMR_CF4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CF4           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CFC11      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC11         1750-2100/1-12/1/0 RY xy v/v CFC11    802 1 1\n*   SfcVMR_CFC113     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC113        1750-2100/1-12/1/0 RY xy v/v CFC113   802 1 1\n*   SfcVMR_CFC114     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC114        1750-2100/1-12/1/0 RY xy v/v CFC114   802 1 1\n*   SfcVMR_CFC115     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC115        1750-2100/1-12/1/0 RY xy v/v CFC115   802 1 1\n*   SfcVMR_CFC12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC12         1750-2100/1-12/1/0 RY xy v/v CFC12    802 1 1\n*   SfcVMR_CH2Cl2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH2Cl2        1750-2100/1-12/1/0 RY xy v/v CH2Cl2   802 1 1\n*   SfcVMR_CH3Br      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Br         1750-2100/1-12/1/0 RY xy v/v CH3Br    802 1 1\n*   SfcVMR_CH3CCl3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3CCl3       1750-2100/1-12/1/0 RY xy v/v CH3CCl3  802 1 1\n*   SfcVMR_CH3Cl      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Cl         1750-2100/1-12/1/0 RY xy v/v CH3Cl    802 1 1\n*   SfcVMR_CH4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH4           1750-2100/1-12/1/0 RY xy v/v CH4      802 1 1\n*   SfcVMR_CHCl3      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CHCl3         1750-2100/1-12/1/0 RY xy v/v CHCl3    802 1 1\n# * SfcVMR_CO2        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CO2           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_H1211      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1211         1750-2100/1-12/1/0 RY xy v/v H1211    802 1 1\n*   SfcVMR_H1301      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1301         1750-2100/1-12/1/0 RY xy v/v H1301    802 1 1\n*   SfcVMR_H2402      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H2402         1750-2100/1-12/1/0 RY xy v/v H2402    802 1 1\n#   SFC_BC_HCFC123 <- exists in UCX with lifetime of 2 years but has no surface boundary conditions; 200-600 pptv in https://doi.org/10.1021/es802308m\n*   SfcVMR_HCFC141b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC141b      1750-2100/1-12/1/0 RY xy v/v HCFC141b 802 1 1\n*   SfcVMR_HCFC142b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC142b      1750-2100/1-12/1/0 RY xy v/v HCFC142b 802 1 1\n*   SfcVMR_HCFC22     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC22        1750-2100/1-12/1/0 RY xy v/v HCFC22   802 1 1\n# * SfcVMR_HFC125     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC125        1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC134a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC134a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC143a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC143a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC152a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC152a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC227ea   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC227ea      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC23      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC23         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC236fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC236fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC245fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC245fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC32      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC32         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC365mfc  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC365mfc     1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC4310mee $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC4310mee    1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_N2O        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   N2O           1750-2100/1-12/1/0 RY xy v/v N2O      802 1 1\n# * SfcVMR_NF3        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   NF3           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SF6        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SF6           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SO2F2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SO2F2         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n\n#==============================================================================\n# -- Not part of CMIP6 experimental design; use GEOS-Chem defaults\n#==============================================================================\n* SfcVMR_OCS          $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS           1985/1/1/0          C xy ppbv *         - 1 1\n* SfcVMR_H2           $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2            1985/1/1/0          C xy ppbv *         - 1 1\n\n)))CMIP6_SFC_BC\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((XIAO_C3H8\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n7  LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n25 EDGAR_TODNOX $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless 1\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019)\n#==============================================================================\n33 PKU_pow_NOx              0.94/0.93/0.93/0.92/0.93/0.96/0.98/0.99/0.98/1.00/1.05/1.03/1.01/1.04/1.05/1.05/1.07/1.06/1.05/1.05/1.03/1.01/0.99/0.96 - - - xy unitless 1 1009\n34 PKU_pow_SO2              0.92/0.91/0.90/0.89/0.90/0.93/0.97/0.98/0.99/1.02/1.07/1.04/1.03/1.06/1.06/1.07/1.10/1.10/1.06/1.05/1.03/1.01/0.99/0.93 - - - xy unitless 1 1009\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 1009\n\n# These scale factors undo (Oper=-1) the global diurnal scale factors over China (Mask=1009)\n36 EDGAR_TODNOX_UNDO $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless -1 1009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 1009\n\n#==============================================================================\n# --- Day-of-week scale factors ---\n# ==> data is Sun/Mon/.../Sat\n#==============================================================================\n(((XIAO_C3H8\n22 GEIA_DOW_HC  0.671/1.1102/1.1102/1.1102/1.1102/1.1102/0.768 - - - xy unitless 1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Seasonal scale factors ---\n#==============================================================================\n(((DICE_Africa\n# from GEIA:\n30 GEIA_SEASON_NOX  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc NOXrat 1985/1-12/1/0 C xy unitless 1\n31 GEIA_SEASON_SO2  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc SO2rat 1985/1-12/1/0 C xy unitless 1\n)))DICE_Africa\n\n#==============================================================================\n# --- For Bromocarbons ---\n#==============================================================================\n(((LIANG_BROMOCARB\n39 BROMOCARB_SEASON $ROOT/BROMINE/v2015-02/BromoCarb_Season.nc CHXBRY_scale 2000/1-12/1/0 C xy unitless 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Scale factors used for species conversions ---\n#==============================================================================\n\n# Units carbon to species conversions\n# Factor = # carbon atoms * MW carbon) / MW species\n40 CtoACET MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n41 CtoALD2 MATH:44.06/(2.0*12.0)   - - - xy unitless 1\n42 CtoALK4 MATH:58.12/(4.3*12.0)   - - - xy unitless 1\n43 CtoBENZ MATH:78.12/(6.0*12.0)   - - - xy unitless 1\n44 CtoC2H4 MATH:28.05/(2.0*12.0)   - - - xy unitless 1\n45 CtoC2H6 MATH:30.08/(2.0*12.0)   - - - xy unitless 1\n46 CtoC3H8 MATH:44.11/(3.0*12.0)   - - - xy unitless 1\n47 CtoEOH  MATH:46.07/(2.0*12.0)   - - - xy unitless 1\n48 CtoMEK  MATH:72.11/(4.0*12.0)   - - - xy unitless 1\n49 CtoPRPE MATH:42.09/(3.0*12.0)   - - - xy unitless 1\n55 CtoTOLU MATH:92.15/(7.0*12.0)   - - - xy unitless 1\n56 CtoXYLE MATH:106.18/(8.0*12.0)  - - - xy unitless 1\n59 CtoC2H2 MATH:26.04/(2.0*12.0)   - - - xy unitless 1\n61 CtoISOP MATH:68.13/(5.0*12.0)   - - - xy unitless 1\n62 CtoMTPA MATH:136.26/(10.0*12.0) - - - xy unitless 1\n64 CtoMBOX MATH:86.13/(5.0*12.0)   - - - xy unitless 1\n67 CtoSESQ MATH:204.4/(15.0*12.0)  - - - xy unitless 1\n83 CtoMACR MATH:70.10/(4.0*12.0)   - - - xy unitless 1\n84 CtoRCHO MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n\n# VOC speciations\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n50 KET2MEK    0.25  - - - xy unitless 1\n51 KET2ACET   0.75  - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n# RCP acids to HCOOH conversion\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n57 RCP_HCOOHfraction 0.25     - - - xy unitless 1\n58 RCP_ACIDStoHCOOH  0.779661 - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n# SOx to SO2 conversion (Chin et al., 2000)\n60 SOX2SO2_GLOBAL 0.986  - - - xy unitless 1\n63 SO2toSO4       0.031  - - - xy unitless 1\n65 SO2toSO4_APEI  0.014  - - - xy unitless 1\n66 SO2toPFe       1.0e-3 - - - xy unitless 1\n68 SO2toPFe_APEI  4.7e-4 - - - xy unitless 1\n69 SO2toPFe_NEI   1.0e-3 - - - xy unitless 1\n78 SO2FRAC        0.969  - - - xy unitless 1\n\n# Carbon aerosols: speciation of hydrophilic and hydrophobic fractions\n# (Fractions applied to the biomass burning extensions (GFED or FINN) are\n#  specified separately in the extensions section.)\n70 BC2BCPI  0.2  - - - xy unitless 1\n71 BC2BCPO  0.8  - - - xy unitless 1\n72 OC2OCPI  0.5  - - - xy unitless 1\n73 OC2OCPO  0.5  - - - xy unitless 1\n74 POGSCAL  1.27 - - - xy unitless 1\n76 SV2POG1  0.49 - - - xy unitless 1\n77 SV2POG2  0.51 - - - xy unitless 1\n\n(((BB4MIPS\n# Convert MOH to ACET emissions for CMIP6 Scenarios\n79 MOH2ACET 0.2094649 - - - xy unitless 1\n)))BB4MIPS\n\n# Convert CEDS total alchohols to methanol, ethanol, and other alcohols following Chen et al. (2019, ACP)\n90 VOC1toMOH 0.5   - - - xy 1 1\n91 VOC1toEOH 0.375 - - - xy 1 1\n92 VOC1toROH 0.125 - - - xy 1 1\n\n# NOx/NO2 to NO conversion\n115 NO2toNO  6.521739e-1 - -  - xy unitless 1\n\n# SOA-Precursor scale factors\n#\n# From Kim, P.S., et. al. 2015 \"Sources, seasonality, and trends\n# of southeast US aerosol: ...\"\n#   AVOCs and BBVOCs are emitted in proportion to CO, with an emission ratio of\n#     0.069 g AVOC (g CO)−1 (Hayes et al., 2015) and\n#     0.013 g BBVOC (g CO)−1 (Cubison et al., 2011).\n#   They are both oxidized by OH in the model ... to generate SOA.\n280 COtoSOAP_anth 0.069 - - - xy 1 1\n281 COtoSOAP_burn 0.013 - - - xy 1 1\n\n#==============================================================================\n# --- QFED2 diurnal scale factors ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n(((QFED2.or.GFAS.or.BB4MIPS\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n)))QFED2.or.GFAS.or.BB4MIPS\n\n#==============================================================================\n# --- NAP scale factors ---\n#\n# Get anthropogenic (FF) NAP emissions by scaling BENZ emissions with the\n# following factor. Factor is ratio of TgC NAP to TgC BENZ emissions\n# or equivalently, molec C NAP to molec C BENZ. Scaling should produce\n# about 0.09 TgC NAP/year, consistent with non-BB,BF emissions predicted\n# by Zhang and Tao 2009 Atm Env\n# Based on year 2000 1x1 inv  (hotp 11/14/09)\n#REAL*8, PARAMETER    :: NAPTOBENZSCALE = 0.06861d0\n\n# NAPTOTSCAL: factor to scale total NAP emissions to POA (hotp 7/24/09)\n#REAL*8, PARAMETER    :: NAPTOTALSCALE = 66.09027d0\n\n# = CO emissions * emissions ratio of mol NAP / mol CO\n# * kg C / mol NAP * mol CO / kg CO\n# mmol NAP / mol CO = 0.025 g NAP/ kg DM /\n#              ( 78 g CO/ kg DM ) * 28 g CO / mol CO\n#            / ( 128 g NAP / mol NAP ) *1000 mmol/mol\n# scale emissions down if appropriate to remove the\n# effect of VOC ox on CO emission\n# EF for NAP from Andreae and Merlet 2001 Glob Biog Cyc\n# EF for CO  from Andreae and Merlet 2001 Glob Biog Cyc\n#BIOFUEL_KG(N,:,:) = BIOFUEL_KG(IDBFCO,:,:) * 0.0701d-3\n#                  * 120d0 / 28d0 * COSCALEDOWN\n#==============================================================================\n(((EDGARv43\n80 NAPEMISS   1.0     - - - xy unitless 1\n81 NAPTOTSCAL 66.09   - - - xy unitless 1\n82 BENZTONAP  6.86e-2 - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- BIOGENIC EMISSIONS FROM DRY LEAF MATTER ---\n#\n# Use yield of 40ug/dDW.\n# Assume organic matter has molecular formula CH2O (MW 30.03), which\n#  means 0.4 gC / g plant\n# ALD2 MW = 44.05 g/mole ==> 0.55 gC/g ALD2\n#  Therefore 40ug (ALD2) / g (plant) ==> 55 ug C in ALD2 / gC plant\n# EOH MW = 46 g/mole ==> 0.52 gC/g EOH\n#  Therefore 40ug (EOH)  / g (plant) ==> 52 ug C in EOH  / gC plant\n#==============================================================================\n(((DECAYING_PLANTS\n85 YIELD_RESP_ALD2 55.0e-6 - - - xy unitless 1\n86 YIELD_RESP_EOH  52.0e-6 - - - xy unitless 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#==============================================================================\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n# Conversions from AEIC2019 inventory quantities to individual species\n101 AEICACET 3.693477e-3 - - - xy unitless 1\n102 AEICALD2 4.271822e-2 - - - xy unitless 1\n103 AEICALK4 2.137911e-1 - - - xy unitless 1\n104 AEICC2H6 5.214505e-3 - - - xy unitless 1\n105 AEICC3H8 7.808710e-4 - - - xy unitless 1\n106 AEICCH2O 1.230811e-1 - - - xy unitless 1\n107 AEICPRPE 1.780418e-1 - - - xy unitless 1\n108 AEICMACR 5.362609e-2 - - - xy unitless 1\n109 AEICRCHO 3.676944e-2 - - - xy unitless 1\n111 AEICSO2  1.176000e-3 - - - xy unitless 1\n112 AEICSO4  3.600000e-5 - - - xy unitless 1\n113 AEICBC   3.000000e-5 - - - xy unitless 1\n114 AEICHC   1.160000e+0 - - - xy unitless 1\n120 FB2H2O   1.231000e+0 - - - xy unitless 1\n\n#------------------------------------------------------------------------------\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Increase\n# from 2018 to 2019 is estimated based on the growth from 2017 to 2018.\n# Lee et al. (2021) only covers 1990 to 2018, so to get to 2019 it is\n# assumed that the growth from 2017 to 2018 is the same as that from 2018\n# to 2019. So the formula is something like:\n#\n# Emissions of CO  in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down. For NOx, the same procedure is applied but with an additional\n# factor to account for changes in NOx EI:\n#\n# Emissions of NOx in 2009 = [ AEIC 2019 emissions of NOx\n#                          *   (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          *   (Lee 2009 fuel burn / Lee 2018 fuel burn) ]\n#                          * [ (Lee 2017 NOx EI    / Lee 2018 NOx EI)\n#                          *   (Lee 2009 NOx EI    / Lee 2018 NOx EI)    ]\n#\n# In this case though the Lee et al 2018 and 2017 NOx EIs are identical.\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC_SCALE_1990_2019\n240 AC_EINOX   0.852/0.852/0.852/0.859/0.866/0.873/0.881/0.888/0.896/0.903/0.911/0.916/0.922/0.927/0.932/0.937/0.950/0.962/0.974/0.987/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000 - 1990-2019/1/1/0 C xy 1 1\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n240 AC_EINOX  1.000000e+0 - -  - xy 1 1\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n(((CMIP6_AIRCRAFT\n# Conversions for SO2 to HCs taken from AEIC\n601 CMIP6_SO2_TO_ACET 3.140712 - -  - xy unitless 1\n602 CMIP6_SO2_TO_ALD2 36.32502 - -  - xy unitless 1\n603 CMIP6_SO2_TO_ALK4 181.7952 - -  - xy unitless 1\n604 CMIP6_SO2_TO_C2H6 4.434103 - -  - xy unitless 1\n605 CMIP6_SO2_TO_C3H8 0.664006 - -  - xy unitless 1\n606 CMIP6_SO2_TO_CH2O 104.6608 - -  - xy unitless 1\n607 CMIP6_SO2_TO_PRPE 151.3961 - -  - xy unitless 1\n608 CMIP6_SO2_TO_MACR 45.60042 - -  - xy unitless 1\n609 CMIP6_SO2_TO_RCHO 31.26653 - -  - xy unitless 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EPA NEI day-of-week scale factors ---\n#==============================================================================\n(((NEI2016_MONMEAN\n210 NEI99_DOW_NOX   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc NOX  1999/1-12/WD/0 C xy 1 1\n211 NEI99_DOW_CO    $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO   1999/1-12/WD/0 C xy 1 1\n212 NEI99_DOW_ALK4  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ALK4 1999/1-12/WD/0 C xy 1 1\n213 NEI99_DOW_ACET  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ACET 1999/1-12/WD/0 C xy 1 1\n214 NEI99_DOW_MEK   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MEK  1999/1-12/WD/0 C xy 1 1\n215 NEI99_DOW_PRPE  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc PRPE 1999/1-12/WD/0 C xy 1 1\n216 NEI99_DOW_C3H8  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C3H8 1999/1-12/WD/0 C xy 1 1\n217 NEI99_DOW_C2H6  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C2H6 1999/1-12/WD/0 C xy 1 1\n218 NEI99_DOW_SO2   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO2  1999/1-12/WD/0 C xy 1 1\n219 NEI99_DOW_SO4   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO4  1999/1-12/WD/0 C xy 1 1\n220 NEI99_DOW_MSA   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MSA  1999/1-12/WD/0 C xy 1 1\n221 NEI99_DOW_BCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc BCPI 1999/1-12/WD/0 C xy 1 1\n222 NEI99_DOW_OCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc OCPI 1999/1-12/WD/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- EPA NEI2016 annual scale factors ---\n#\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n#\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#==============================================================================\n(((NEI2016_MONMEAN\n251 NEI2016_NOx_YRSCALE  2.341/2.213/2.083/1.989/1.879/1.768/1.651/1.539/1.448/1.407/1.345/1.282/1.224/1.135/1.000/0.943/0.895/0.840/0.785 - 2002-2020/1/1/0 C xy 1 1\n252 NEI2016_CO_YRSCALE   1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n253 NEI2016_NH3_YRSCALE  0.996/0.999/1.002/1.005/1.043/1.082/1.100/1.088/1.077/1.012/0.957/0.954/0.899/0.950/1.000/1.052/1.051/1.050/1.049 - 2002-2020/1/1/0 C xy 1 1\n254 NEI2016_VOC_YRSCALE  1.314/1.285/1.255/1.223/1.234/1.246/1.148/1.135/1.154/1.175/1.153/1.131/1.110/1.067/1.000/0.970/0.956/0.941/0.926 - 2002-2020/1/1/0 C xy 1 1\n255 NEI2016_SO2_YRSCALE  4.773/4.701/4.626/4.625/4.171/3.717/3.273/2.879/2.446/2.038/1.591/1.525/1.469/1.237/1.000/0.767/0.735/0.641/0.583 - 2002-2020/1/1/0 C xy 1 1\n256 NEI2016_PM25_YRSCALE 1.120/1.140/1.159/1.178/1.213/1.248/1.202/1.195/1.190/1.192/1.153/1.115/1.077/1.040/1.000/0.964/0.961/0.958/0.955 - 2002-2020/1/1/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- GFAS scale factors ---\n#==============================================================================\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#==============================================================================\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016), emit 35% of QFED\n# emissions above the PBL.\n#==============================================================================\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n#==============================================================================\n# --- CEDS vertical partitioning ---\n#==============================================================================\n(((CEDSv2.or.CEDS_GBDMAPS\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDSv2.or.CEDS_GBDMAPS\n\n#==============================================================================\n# --- DICE-Africa ---\n#==============================================================================\n(((DICE_Africa\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n320 DICE_CP_SF    0.20 - - - xy 1 1\n\n# Car emissions of OCPI and OCPO scale factor to address a factor of 7 overestimate\n# in car OC emissions that results from incorrect emission factors used in the original inventory\n330 DICE_CAR_OC_SF    0.14 - - - xy 1 1\n)))DICE_Africa\n\n#==============================================================================\n# --- Offline biogenic VOC scale factors ---\n#\n# Isoprene      : 1.5% mass yield SOAP, 1.5% mass yield SOAS\n# Monoterpenes  : 5.0% mass yield SOAP, 5.0% mass yield SOAS\n# Other terpenes: 5.0% mass yield SOAP, 5.0% mass yield SOAS\n#  --> Need to multiply by 1.133 to convert from carbon basis to mass basis\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n610 ISOPtoSOA 0.0170 - - - xy 1 1\n611 MONOtoSOA 0.0567 - - - xy 1 1\n612 OTHRtoSOA 0.0567 - - - xy 1 1\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt scale factors ---\n#\n# NOTES:\n# - Sea salt alkalinity and chloride values obtained from hcox_seasalt_mod.F90\n# - BrContent obtained from '--> Br- mass ratio' in SeaSalt extension above\n#==============================================================================\n(((OFFLINE_SEASALT\n615 SSAlkalinity 1.0     - - - xy 1 1\n616 SSChloride   0.5504  - - - xy 1 1\n617 BrContent    2.11e-3 - - - xy 1 1\n)))OFFLINE_SEASALT\n\n#==============================================================================\n# --- CEDS to CAM-Chem scale factors ---\n#\n# NOTES:\n#  Reference: Table S4. Emmons, L. K., Schwantes, R. H., Orlando, J. J.,\n#    Tyndall, G., Kinnison, D., Lamarque, J.‐F., et al. (2020).\n#    The Chemistry Mechanism in the Community Earth System Model version 2 (CESM2).\n#    Journal of Advances in Modeling Earth Systems, 12, e2019MS001882.\n#    https://doi.org/10.1029/2019MS001882\n#\n# CEDS sectors: (from CEDS readme)\n# sector    Description                                                              SO4_aX SF#         SO4_NUM SF#     BC_NUM SF#    POM_NUM SF#\n#   0: AGR  Non-combustion agricultural sector                                          8902                8014\n#   1: ENE  Energy transformation and extraction                                        8907                8011\n#   2: IND  Industrial combustion and processes                                         8908                8011\n#   3: TRA  Surface Transportation (Road, Rail, Other)                                  8906                8022         --8041--      --8042--\n#   4: RCO  Residential, commercial, and other                                          8905                8022\n#   5: SLV  Solvents                                                                    8904                8014\n#   6: WST  Waste disposal and handling                                                 8903                8014\n#   7: SHP  International shipping (including VOCs from oil tanker loading/leakage)     8909                8013\n#=============================================================================\n8902 CESM_SO4a1_AGR  0.025    - - - xy 1 1\n8903 CESM_SO4a1_WST  0.025    - - - xy 1 1\n8904 CESM_SO4a1_SLV  0.025    - - - xy 1 1\n8905 CESM_SO4a2_RCO  0.025    - - - xy 1 1\n8906 CESM_SO4a2_TRA  0.025    - - - xy 1 1\n8907 CESM_SO4a1_ENE  0.025    - - - xy 1 1\n8908 CESM_SO4a1_IND  0.025    - - - xy 1 1\n8909 CESM_SO4a1_SHP  0.025    - - - xy 1 1\n\n8910 CESM_CH3CHOCH3  0.2      - - - xy 1 1\n8911 CESM_MEK        0.8      - - - xy 1 1\n8912 CESM_HCOOH      0.5      - - - xy 1 1\n8913 CESM_CH3COOH    0.5      - - - xy 1 1\n\n# BC/OC\n8920 CESM_BCa4_ANTH  1.0      - - - xy 1 1\n8921 CESM_BCa4_BB    1.0      - - - xy 1 1\n8922 CESM_BCa4_AIR   1.0      - - - xy 1 1\n\n8930 CESM_POMa4_ANTH 1.4      - - - xy 1 1\n8931 CESM_POMa4_BB   1.4      - - - xy 1 1\n\n# Does not seem to be in CEDS, have to look closer later (hplin, 8/6/20)\n8985 CESM_SO4a1_BB   0.025    - - - xy 1 1\n8986 CESM_SO4a1_VOL  0.5      - - - xy 1 1\n8987 CESM_SO4a2_VOL  0.5      - - - xy 1 1\n\n# Convert CEDS total alcohols to methanol and ethanol following Emmons et al. (2020, JAMES)\n8990 CESM_VOC1toMOH 0.15 - - - xy 1 1\n8991 CESM_VOC1toEOH 0.85 - - - xy 1 1\n\n#-----------------------------------------\n# AEROSOL NUMBER EMISSIONS FOR CEDS\n# Based on Emmons et al., 2020 CESM2\n#-----------------------------------------\n# sector    Description\n#   0: AGR  Non-combustion agricultural sector\n#   1: ENE  Energy transformation and extraction\n#   2: IND  Industrial combustion and processes\n#   3: TRA  Surface Transportation (Road, Rail, Other)\n#   4: RCO  Residential, commercial, and other\n#   5: SLV  Solvents\n#   6: WST  Waste disposal and handling\n#   7: SHP  International shipping (including VOCs from oil tanker loading/leakage)\n# The scaling is performed ON TOP of original bins to convert aerosol mass to aerosol number\n#\n#     Enumber = Emass * (1 / ( pi/6 * rho * D_emit^3 ))\n#\n#              kg/m2/s               kg/m3   um^3=10^-18 m^3\n#             =  1/m2/s\n#\n# where pi = 3.1415926\n#       rho = specdens_amode(SM,M) --> species corresponding to the given aerosol mode\n#       D_emit is dependent by sector\n#\n#  WARNING: THE FOLLOWING FACTORS ARE APPLIED ON TOP OF THE EXISTING CESM SCALE FACTORS FOR CEDS (i.e. 0.025)\n#  THUS THEY SHOULD ALWAYS BE USED IN COMBINATION, e.g., 908/8001\n#\n# Refer to the parameter table in Emmons et al., 2020 SUPPLEMENT\n#\n#     1/(3.1415926/6*1770*(0.261e-6)**3)\n8011  CESM_SO4a1toNUM_ENE_IND 6.068853e16  - - - xy 1 1\n8013  CESM_SO4a1toNUM_SHP     6.068853e16  - - - xy 1 1\n#     1/(3.1415926/6*1770*(0.134e-6)**3)\n#  BB, Volcano, Agr, Wst, Solvents\n8013  CESM_SO4a1toNUM_BB_VOL  4.484497e17  - - - xy 1 1\n8014  CESM_SO4a1toNUM_AG_WS   4.484497e17  - - - xy 1 1\n#     1/(3.1415926/6*1770*(0.0504e-6)**3)\n8021  CESM_SO4a2toNUM_VOL     8.428233e18  - - - xy 1 1\n#     1/(3.1415926/6*1770*(0.0504e-6)**3)\n8022  CESM_SO4a2toNUM_RES_TRA 8.428233e18  - - - xy 1 1\n\n# BC total anthro, BB, aircraft\n#     1/(3.1415926/6*1770*(0.134e-6)**3)\n8041  CESM_BCa4toNUM          4.484497e17  - - - xy 1 1\n#     1/(3.1415926/6*1000*(0.134e-6)**3)\n8042  CESM_OCa4toNUM          7.937559e17  - - - xy 1 1\n\n)))EMISSIONS\n\n#==============================================================================\n# Scale the CMIP6 values in pptv to ppbv\n#==============================================================================\n801 pptv2ppbv  0.001      - - - xy 1 1\n802 vv2ppbv    1000000000 - - - xy 1 1\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43.or.DICE_Africa\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43.or.DICE_Africa\n\n(((CEDSv2\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDSv2 ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDSv2 ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDSv2\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\n(((APEI\n1002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc                  MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n(((NEI2016_MONMEAN\n1007 CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc                      MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n1008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc       LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n1009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n\n(((AFCID\n1010 INDIA_MASK  $ROOT/MASKS/v2019-05/India_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  67/7/99/39\n)))AFCID\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/CESM/HISTORY.rc",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem full chemistry simulations               ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# This HISTORY.rc file is specific for running GEOS-Chem within the\n# Community Earth System Model (CESM)\n#\n# There are two steps to configure GEOS-Chem \"History\" diagnostics in CESM:\n#\n# 1) Uncomment the names of the diagnostics you wish to output in this file.\n#    Make sure the collections they are included in are also uncommented in the\n#    COLLECTIONS list at the top of the file.\n#\n# 2) Write the names of the diagnostics you wish to output into the 'finclX'\n#    namelist variable in CESM case file 'user_nl_cam'. Use that file instead\n#    of this one to configure averaging/instantaneous, frequency, duration,\n#    and other collection features in the same way as other CESM outputs.\n#\n# Important notes:\n#\n# 1) Collection name, frequency, duration, and mode in this file are ignored.\n#    CESM diagnostic collections and their attributes must be specified in\n#    file 'user_nl_cam' within the CESM case directory.\n#\n# 2) Mixing ratio diagnostics are always available without using this file.\n#    For example, you may output ozone mixing ratio by specifying\n#    'O3' in CESM file 'user_nl_cam' rather than 'SpeciesConcVV_O3'.\n#    The SpeciesConc collection is therefore excluded. Note that the CESM\n#    mixing ratio diagnostics are computed from State_Chm%Species(N)%Conc\n#    rather than State_Diag%SpeciesConc.\n#\n# 3) Diagnostic name wildcards (e.g. ?ADV?) are NOT available for use in CESM.\n#    All diagnostic tags, such as 'O2' in 'JVAL_O2', must be written out\n#    explicitly.\n#\n# 4) Many physical/chemical processes in CESM are handled outside of GEOS-Chem,\n#    such as wet deposition and advection. GEOS-Chem diagnostics computed in\n#    those components are therefore not available and are excluded in this file.\n#\n#============================================================================\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./IGNORED_USE_user_nl_cam\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Metrics',\n             #'AerosolMass',\n             #'Aerosols',\n             #'Budget',\n             ##'ConcAboveSfc',\n             #'ConcAfterChem',\n             #'DryDep',\n             'JValues',\n             #'KppDiags',\n\t     #'KppARDiags',\n             'ProdLoss',\n             #'RxnRates',\n\t     #'RxnConst',\n             'StateChm',\n             #'StateMet',\n             #'StateMetLevEdge',\n             #'StratBM',\n             #'UVFlux',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% Metrics %%%%%\n#\n# Diagnostics for chemistry metrics such as global mean OH concentration,\n# MCF lifetime, and CH4 lifetime.\n#\n# This diagnostic collection should always be left on.\n# Use the run-directory script ./metrics_fullchem.py to print results.\n#\n# Available for full-chemistry and CH4 simulations only.\n#==============================================================================\n  Metrics.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  Metrics.frequency:          {FREQUENCY}\n  Metrics.duration:           {DURATION}\n  Metrics.mode:               'time-averaged'\n  Metrics.fields:             'AirMassColumnFull             ',\n                              'LossOHbyCH4columnTrop         ',\n                              'LossOHbyMCFcolumnTrop         ',\n                              'OHwgtByAirMassColumnFull      ',\n::\n#==============================================================================\n# %%%%% AerosolMass %%%%%\n#\n# Aerosol and PM2.5 mass\n#==============================================================================\n  AerosolMass.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AerosolMass.frequency:      {FREQUENCY}\n  AerosolMass.duration:       {DURATION}\n  AerosolMass.mode:           'time-averaged'\n  AerosolMass.fields:         'AerMassASOA          ',\n                              'AerMassBC            ',\n                              'AerMassINDIOL        ',\n                              'AerMassLVOCOA        ',\n                              'AerMassNH4           ',\n                              'AerMassNIT           ',\n                              'AerMassOPOA          ',\n                              'AerMassPOA           ',\n                              'AerMassSAL           ',\n                              'AerMassSO4           ',\n                              'AerMassSOAGX         ',\n                              'AerMassSOAIE         ',\n                              'AerMassTSOA          ',\n                              'BetaNO               ',\n                              #'PM25                ', # duplicate name in CESM\n                              'TotalBiogenicOA      ',\n                              'TotalOA              ',\n                              'TotalOC              ',\n::\n#==============================================================================\n# %%%%% Aerosols %%%%%\n#\n# Aerosol optical depth, surface area, number density, and hygroscopic growth\n#==============================================================================\n  Aerosols.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  Aerosols.frequency:         {FREQUENCY}\n  Aerosols.duration:          {DURATION}\n  Aerosols.mode:              'time-averaged'\n  Aerosols.fields:            'AODHygWL1_SO4                 ',\n                              'AODHygWL1_BCPI                ',\n                              'AODHygWL1_OCPI                ',\n                              'AODHygWL1_SALA                ',\n                              'AODHygWL1_SALC                ',\n                              'AODDust                       ',\n                              'AODDustWL1_bin1               ',\n                              'AODDustWL1_bin2               ',\n                              'AODDustWL1_bin3               ',\n                              'AODDustWL1_bin4               ',\n                              'AODDustWL1_bin5               ',\n                              'AODDustWL1_bin6               ',\n                              'AODDustWL1_bin7               ',\n                              'AODSOAfromAqIsopreneWL1       ',\n                              'AODStratLiquidAerWL1          ',\n                              'AODPolarStratCloudWL1         ',\n                              'AerHygroscopicGrowth_SO4      ',\n                              'AerHygroscopicGrowth_BCPI     ',\n                              'AerHygroscopicGrowth_OCPI     ',\n                              'AerHygroscopicGrowth_SALA     ',\n                              'AerHygroscopicGrowth_SALC     ',\n                              'AerNumDensityStratLiquid      ',\n                              'AerNumDensityStratParticulate ',\n                              'AerAqueousVolume              ',\n                              'AerSurfAreaDust               ',\n                              'AerSurfAreaHyg_SO4            ',\n                              'AerSurfAreaHyg_BCPI           ',\n                              'AerSurfAreaHyg_OCPI           ',\n                              'AerSurfAreaHyg_SALA           ',\n                              'AerSurfAreaHyg_SALC           ',\n                              'AerSurfAreaStratLiquid        ',\n                              'AerSurfAreaPolarStratCloud    ',\n                              'Chem_AeroAreaMDUST1           ',\n                              'Chem_AeroAreaMDUST2           ',\n                              'Chem_AeroAreaMDUST3           ',\n                              'Chem_AeroAreaMDUST4           ',\n                              'Chem_AeroAreaMDUST5           ',\n                              'Chem_AeroAreaMDUST6           ',\n                              'Chem_AeroAreaMDUST7           ',\n                              'Chem_AeroAreaSULF             ',\n                              'Chem_AeroAreaBC               ',\n                              'Chem_AeroAreaOC               ',\n                              'Chem_AeroAreaSSA              ',\n                              'Chem_AeroAreaSSC              ',\n                              'Chem_AeroAreaBGSULF           ',\n                              'Chem_AeroAreaICEI             ',\n                              'Chem_AeroRadiMDUST1           ',\n                              'Chem_AeroRadiMDUST2           ',\n                              'Chem_AeroRadiMDUST3           ',\n                              'Chem_AeroRadiMDUST4           ',\n                              'Chem_AeroRadiMDUST5           ',\n                              'Chem_AeroRadiMDUST6           ',\n                              'Chem_AeroRadiMDUST7           ',\n                              'Chem_AeroRadiSULF             ',\n                              'Chem_AeroRadiBC               ',\n                              'Chem_AeroRadiOC               ',\n                              'Chem_AeroRadiSSA              ',\n                              'Chem_AeroRadiSSC              ',\n                              'Chem_AeroRadiBGSULF           ',\n                              'Chem_AeroRadiICEI             ',\n                              'Chem_WetAeroAreaMDUST1        ',\n                              'Chem_WetAeroAreaMDUST2        ',\n                              'Chem_WetAeroAreaMDUST3        ',\n                              'Chem_WetAeroAreaMDUST4        ',\n                              'Chem_WetAeroAreaMDUST5        ',\n                              'Chem_WetAeroAreaMDUST6        ',\n                              'Chem_WetAeroAreaMDUST7        ',\n                              'Chem_WetAeroAreaSULF          ',\n                              'Chem_WetAeroAreaBC            ',\n                              'Chem_WetAeroAreaOC            ',\n                              'Chem_WetAeroAreaSSA           ',\n                              'Chem_WetAeroAreaSSC           ',\n                              'Chem_WetAeroAreaBGSULF        ',\n                              'Chem_WetAeroAreaICEI          ',\n                              'Chem_WetAeroRadiMDUST1        ',\n                              'Chem_WetAeroRadiMDUST2        ',\n                              'Chem_WetAeroRadiMDUST3        ',\n                              'Chem_WetAeroRadiMDUST4        ',\n                              'Chem_WetAeroRadiMDUST5        ',\n                              'Chem_WetAeroRadiMDUST6        ',\n                              'Chem_WetAeroRadiMDUST7        ',\n                              'Chem_WetAeroRadiSULF          ',\n                              'Chem_WetAeroRadiBC            ',\n                              'Chem_WetAeroRadiOC            ',\n                              'Chem_WetAeroRadiSSA           ',\n                              'Chem_WetAeroRadiSSC           ',\n                              'Chem_WetAeroRadiBGSULF        ',\n                              'Chem_WetAeroRadiICEI          ',\n                              'Chem_StatePSC                 ',\n                              'Chem_KhetiSLAN2O5H2O          ',\n                              'Chem_KhetiSLAN2O5HCl          ',\n                              'Chem_KhetiSLAClNO3H2O         ',\n                              'Chem_KhetiSLAClNO3HCl         ',\n                              'Chem_KhetiSLAClNO3HBr         ',\n                              'Chem_KhetiSLABrNO3H2O         ',\n                              'Chem_KhetiSLABrNO3HCl         ',\n                              'Chem_KhetiSLAHOClHCl          ',\n                              'Chem_KhetiSLAHOClHBr          ',\n                              'Chem_KhetiSLAHOBrHCl          ',\n                              'Chem_KhetiSLAHOBrHBr          ',\n::\n#==============================================================================\n# %%%%% Budget %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# This diagnostic is avaiable for all advected species.\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    {FREQUENCY}\n  Budget.duration:     {DURATION}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetChemistryFull_O3            ',\n                       'BudgetChemistryTrop_O3            ',\n                       'BudgetChemistryPBL_O3             ',\n                       'BudgetChemistryLevs1to35_O3       ',\n::\n#==============================================================================\n# %%%%% ConcAboveSfc %%%%%\n#\n# Concentrations of O3 and HNO3 at a user-specified altitude above\n# the surface, such as 10m.  Set the desired output altitude in meters\n# in the deposition settings in geoschem_config.yml.\n#\n# NOTES:\n# (1) This collection requires dry deposition to be turned on.\n# (2) All of the fields in the collection must be turned on.\n# (3) This collection is best used with mode \"instantaneous\".\n#==============================================================================\n  ConcAboveSfc.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAboveSfc.frequency:     {FREQUENCY}\n  ConcAboveSfc.duration:      {DURATION}\n  ConcAboveSfc.mode:          'instantaneous'\n  ConcAboveSfc.fields:        'DryDepRaALT1               ',\n                              'DryDepVelForALT1_O3        ',\n                              'DryDepVelForALT1_HNO3      ',\n                              'SpeciesConcALT1_O3         ',\n                              'SpeciesConcALT1_HNO3       ',\n::\n#==============================================================================\n# %%%%% ConcAfterChem %%%%%\n#\n# Concentrations of OH, HO2, O1D, O3P immediately after exiting the KPP solver\n# or OH after the CH4 specialty-simulation chemistry routine.\n#\n# OH:       Available for all full-chemistry simulations and CH4 specialty sim\n# HO2:      Available for all full-chemistry simulations\n# O1D, O3P: Availalbe for full-chemistry simulations using UCX mechanism\n#==============================================================================\n  ConcAfterChem.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAfterChem.frequency:    {FREQUENCY}\n  ConcAfterChem.duration:     {DURATION}\n  ConcAfterChem.mode:         'time-averaged'\n  ConcAfterChem.fields:       'OHconcAfterChem               ',\n                              'HO2concAfterChem              ',\n                              'O1DconcAfterChem              ',\n                              'O3PconcAfterChem              ',\n::\n#==============================================================================\n# %%%%% JValues %%%%%\n#\n# Photolysis rates (from the photolysis module)\n#==============================================================================\n  JValues.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  JValues.frequency:          {FREQUENCY}\n  JValues.duration:           {DURATION}\n  JValues.mode:               'time-averaged'\n  JValues.fields:         'JvalO3O3P       ',\n                          'JvalO3O1D       ',\n                          'Jval_ACET       ',\n                          'Jval_ALD2       ',\n                          'Jval_APINP      ',\n                          'Jval_ATOOH      ',\n                          'Jval_BALD       ',\n                          'Jval_BENZP      ',\n                          'Jval_BPINOOH    ',\n                          'Jval_BPINP      ',\n                          'Jval_Br2        ',\n                          'Jval_BrCl       ',\n                          'Jval_BrNO3      ',\n                          'Jval_BrNO2      ',\n                          'Jval_BrO        ',\n                          'Jval_BZCO3H     ',\n                          'Jval_C96O2H     ',\n                          'Jval_CCl4       ',\n                          'Jval_CFC11      ',\n                          'Jval_CFC12      ',\n                          'Jval_CFC113     ',\n                          'Jval_CFC114     ',\n                          'Jval_CFC115     ',\n                          'Jval_CH2Br2     ',\n                          'Jval_CH2Cl2     ',\n                          'Jval_CH2I2      ',\n                          'Jval_CH2IBr     ',\n                          'Jval_CH2ICl     ',\n                          'Jval_CH2O       ',\n                          'Jval_CH3Br      ',\n                          'Jval_CH3Cl      ',\n                          'Jval_CH3CCl3    ',\n                          'Jval_CH3I       ',\n                          'Jval_CHBr3      ',\n                          'Jval_Cl2        ',\n                          'Jval_Cl2O2      ',\n                          'Jval_ClNO2      ',\n                          'Jval_ClNO3      ',\n                          'Jval_ClO        ',\n                          'Jval_ClOO       ',\n                          'Jval_ETHLN      ',\n                          'Jval_ETHP       ',\n                          'Jval_ETNO3      ',\n                          'Jval_ETP        ',\n                          'Jval_GLYC       ',\n                          'Jval_GLYX       ',\n                          'Jval_HAC        ',\n                          'Jval_H2O2       ',\n                          'Jval_HCFC123    ',\n                          'Jval_HCFC141b   ',\n                          'Jval_HCFC142b   ',\n                          'Jval_HCFC22     ',\n                          'Jval_H1211      ',\n                          'Jval_H1301      ',\n                          'Jval_H2402      ',\n                          'Jval_HMHP       ',\n                          'Jval_HNO2       ',\n                          'Jval_HNO3       ',\n                          'Jval_HNO4       ',\n                          'Jval_HOBr       ',\n                          'Jval_HOCl       ',\n                          'Jval_HONIT      ',\n                          'Jval_HOI        ',\n                          'Jval_HPALD1     ',\n                          'Jval_HPALD2     ',\n                          'Jval_HPALD3     ',\n                          'Jval_HPALD4     ',\n                          'Jval_HPETHNL    ',\n                          'Jval_I2         ',\n                          'Jval_I2O2       ',\n                          'Jval_I2O3       ',\n                          'Jval_I2O4       ',\n                          'Jval_IBr        ',\n                          'Jval_ICl        ',\n                          'Jval_ICN        ',\n                          'Jval_ICPDH      ',\n                          'Jval_IDN        ',\n                          'Jval_IDCHP      ',\n                          'Jval_IDHDP      ',\n                          'Jval_IDHPE      ',\n                          'Jval_IHN1       ',\n                          'Jval_IHN2       ',\n                          'Jval_IHN3       ',\n                          'Jval_IHN4       ',\n                          'Jval_INO        ',\n                          'Jval_INPB       ',\n                          'Jval_INPD       ',\n                          'Jval_ITCN       ',\n                          'Jval_ITHN       ',\n                          'Jval_IO         ',\n                          'Jval_IONO       ',\n                          'Jval_IONO2      ',\n                          'Jval_IPRNO3     ',\n                          'Jval_LIMAL      ',\n                          'Jval_LIMO2H     ',\n                          'Jval_LIMO3H     ',\n                          'Jval_MACR       ',\n                          'Jval_MACR1OOH   ',\n                          'Jval_MAP        ',\n                          'Jval_MCRENOL    ',\n                          'Jval_MCRHN      ',\n                          'Jval_MCRHNB     ',\n                          'Jval_MCRHP      ',\n                          'Jval_MEK        ',\n                          'Jval_MENO3      ',\n                          'Jval_MGLY       ',\n                          'Jval_MVK        ',\n                          'Jval_MP         ',\n                          'Jval_MPN        ',\n                          'Jval_MONITS     ',\n                          'Jval_MONITU     ',\n                          'Jval_MVKHC      ',\n                          'Jval_MVKHCB     ',\n                          'Jval_MVKHP      ',\n                          'Jval_MVKN       ',\n                          'Jval_MVKPC      ',\n                          'Jval_N2O        ',\n                          'Jval_N2O5       ',\n                          'Jval_NIT        ',\n                          'Jval_NITs       ',\n                          'Jval_NO         ',\n                          'Jval_NO2        ',\n                          'Jval_NO3        ',\n                          'Jval_NPHEN      ',\n\t\t\t  'Jval_NPRNO3     ',\n                          'Jval_O2         ',\n                          'Jval_O3         ',\n                          'Jval_OClO       ',\n                          'Jval_OCS        ',\n                          'Jval_OIO        ',\n                          'Jval_PAN        ',\n                          'Jval_PINAL      ',\n                          'Jval_PINO3H     ',\n                          'Jval_PINONIC    ',\n                          'Jval_PIP        ',\t\t  \n                          'Jval_PP         ',\n                          'Jval_PPN        ',\n                          'Jval_PROPNN     ',\n                          'Jval_PRPN       ',\n                          'Jval_PYAC       ',\n                          'Jval_R4P        ',\n                          'Jval_R4N2       ',\n                          'Jval_RA3P       ',\n                          'Jval_RB3P       ',\n                          'Jval_RCHO       ',\n                          'Jval_RIPA       ',\n                          'Jval_RIPB       ',\n                          'Jval_RIPC       ',\n                          'Jval_RIPD       ',\n                          'Jval_RP         ',\n                          'Jval_SO4        ',\n::\n#==============================================================================\n# %%%%% UVFlux %%%%%\n#\n# UV fluxes (from the photolysis module)\n#==============================================================================\n  UVFlux.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  UVFlux.frequency:          {FREQUENCY}\n  UVFlux.duration:           {DURATION}\n  UVFlux.mode:               'time-averaged'\n  UVFlux.fields:             'UVFluxNet_574nm        ',\n                              'UVFluxNet_380nm        ',\n                              'UVFluxNet_333nm        ',\n                              'UVFluxNet_316nm        ',\n                              'UVFluxNet_310nm        ',\n                              'UVFluxNet_303nm        ',\n                              'UVFluxNet_295nm        ',\n                              'UVFluxNet_277nm        ',\n                              'UVFluxNet_267nm        ',\n                              'UVFluxNet_261nm        ',\n                              'UVFluxNet_214nm        ',\n                              'UVFluxNet_211nm        ',\n                              'UVFluxNet_208nm        ',\n                              'UVFluxNet_202nm        ',\n                              'UVFluxNet_196nm        ',\n                              'UVFluxNet_193nm        ',\n                              'UVFluxNet_191nm        ',\n                              'UVFluxNet_187nm        ',\n                              'UVFluxDirect_574nm     ',\n                              'UVFluxDirect_380nm     ',\n                              'UVFluxDirect_333nm     ',\n                              'UVFluxDirect_316nm     ',\n                              'UVFluxDirect_310nm     ',\n                              'UVFluxDirect_303nm     ',\n                              'UVFluxDirect_295nm     ',\n                              'UVFluxDirect_277nm     ',\n                              'UVFluxDirect_267nm     ',\n                              'UVFluxDirect_261nm     ',\n                              'UVFluxDirect_214nm     ',\n                              'UVFluxDirect_211nm     ',\n                              'UVFluxDirect_208nm     ',\n                              'UVFluxDirect_202nm     ',\n                              'UVFluxDirect_196nm     ',\n                              'UVFluxDirect_193nm     ',\n                              'UVFluxDirect_191nm     ',\n                              'UVFluxDirect_187nm     ',\n                              'UVFluxDiffuse_574nm    ',\n                              'UVFluxDiffuse_380nm    ',\n                              'UVFluxDiffuse_333nm    ',\n                              'UVFluxDiffuse_316nm    ',\n                              'UVFluxDiffuse_310nm    ',\n                              'UVFluxDiffuse_303nm    ',\n                              'UVFluxDiffuse_295nm    ',\n                              'UVFluxDiffuse_277nm    ',\n                              'UVFluxDiffuse_267nm    ',\n                              'UVFluxDiffuse_261nm    ',\n                              'UVFluxDiffuse_214nm    ',\n                              'UVFluxDiffuse_211nm    ',\n                              'UVFluxDiffuse_208nm    ',\n                              'UVFluxDiffuse_202nm    ',\n                              'UVFluxDiffuse_196nm    ',\n                              'UVFluxDiffuse_193nm    ',\n                              'UVFluxDiffuse_191nm    ',\n                              'UVFluxDiffuse_187nm    ',\n::\n#==============================================================================\n# %%%%% KppDiags %%%%%\n#\n# Diagnostics from the KPP solver.\n#==============================================================================\n  KppDiags.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.frequency:         {FREQUENCY}\n  KppDiags.duration:          {DURATION}\n  KppDiags.mode:              'time-averaged'\n  KppDiags.fields:            'KppIntCounts                  ',\n                              'KppJacCounts                  ',\n                              'KppTotSteps                   ',\n                              'KppAccSteps                   ',\n                              'KppRejSteps                   ',\n                              'KppLuDecomps                  ',\n                              'KppSubsts                     ',\n                              'KppSmDecomps                  ',\n                              #'KppNegatives                  ',\n                              #'KppNegatives0                 ',\n                              'KppTime                       ',\n::\n#==============================================================================\n# %%%%% KppARDiags %%%%%\n#\n# Diagnostics from the KPP solver when auto-reduction solver is used.\n#==============================================================================\n  KppARDiags.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  KppARDiags.frequency:       {FREQUENCY}\n  KppARDiags.duration:        {DURATION}\n  KppARDiags.mode:            'time-averaged'\n  KppARDiags.fields:          'KppAutoReducerNVAR            ',\n                              'KppAutoReduceThres            ',\n                              'KppcNONZERO                   ',\n::\n#==============================================================================\n# %%%%% ProdLoss %%%%%\n#\n# Chemical production and loss rates\n#==============================================================================\n  ProdLoss.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:         {FREQUENCY}\n  ProdLoss.duration:          {DURATION}\n  ProdLoss.mode:              'time-averaged'\n  ProdLoss.fields:            'Prod_Ox                       ',\n                              'Prod_SO4                      ',\n                              'Prod_CO                       ',\n                              'Prod_H2O2                     ',\n                              'Loss_CH4                      ',\n                              'Loss_CO                       ',\n                              'Loss_Ox                       ',\n                              'ProdBCPIfromBCPO              ',\n                              'ProdOCPIfromOCPO              ',\n                              'ProdSO4fromH2O2inCloud        ',\n                              'ProdSO4fromO2inCloudMetal     ',\n                              'ProdSO4fromO3inCloud          ',\n                              'ProdSO4fromO3inSeaSalt        ',\n                              'ProdSO4fromHOBrInCloud        ',\n                              'ProdSO4fromSRO3               ',\n                              'ProdSO4fromSRHObr             ',\n                              'ProdSO4fromO3s                ',\n                              'LossHNO3onSeaSalt             ',\n                              'ProdCOfromCH4                 ',\n                              'ProdCOfromNMVOC               ',\n::\n#==============================================================================\n# %%%%% RxnRates %%%%%\n#\n# Archives chemical reaction rates from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnRate_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#==============================================================================\n  RxnRates.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  RxnRates.frequency:  {FREQUENCY}\n  RxnRates.duration:   {DURATION}\n  RxnRates.mode:       'time-averaged'\n  RxnRates.fields:     'RxnRate_EQ0001                           ',\n                       'RxnRate_EQ0002                           ',\n::\n#==============================================================================\n# %%%%% RxnConst %%%%%\n#\n# Archives chemical reaction rates constants from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnConst_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#\n# The units of reaction rate constants vary according to the number of reactants\n# in the reaction.\n#==============================================================================\n  RxnConst.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  RxnConst.frequency:  {FREQUENCY}\n  RxnConst.duration:   {DURATION}\n  RxnConst.mode:       'time-averaged'\n  RxnConst.fields:     'RxnConst_EQ0001                          ',\n                       'RxnConst_EQ0002                          ',\n::\n#==============================================================================\n# %%%%% StateChm %%%%%\n#\n# Fields of the State_Chm object (see also Aerosols collection)\n#==============================================================================\n  StateChm.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateChm.frequency:         {FREQUENCY}\n  StateChm.duration:          {DURATION}\n  StateChm.mode:              'time-averaged'\n  StateChm.fields:            'Chem_IsorropAeropHAccum       ',\n                              'Chem_IsorropAeropHCoarse      ',\n                              'Chem_IsorropHplusAccum        ',\n                              'Chem_IsorropHplusCoarse       ',\n                              'Chem_IsorropAeroH2OAccum      ',\n                              'Chem_IsorropAeroH2OCoarse     ',\n                              'Chem_IsorropSulfate           ',\n                              'Chem_IsorropNitrateAccum      ',\n                              'Chem_IsorropNitrateCoarse     ',\n                              'Chem_IsorropChlorideAccum     ',\n                              'Chem_IsorropChlorideCoarse    ',\n                              'Chem_IsorropBisulfate         ',\n                              'Chem_pHCloud                  ',\n                              'Chem_isCloud                  ',\n                              'Chem_SSAlkAccumMode           ',\n                              'Chem_SSAlkCoarseMode          ',\n                              'Chem_HSO3AQ                   ',\n                              'Chem_SO3AQ                    ',\n                              'Chem_fupdateHOBr              ',\n                              'Chem_GammaN2O5overall         ',\n                              'Chem_GammaN2O5fine            ',\n                              'Chem_YieldClNO2fine           ',\n::\n#==============================================================================\n# %%%%% StateMet %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection). All\n# 3D fields are centered in the grid box, i.e. not at level edges. Vertical\n# dimension size is one more than 3D fields in the StateMetLevEdge collection.\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         {FREQUENCY}\n  StateMet.duration:          {DURATION}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_CONVDEPTH                 ',\n                              'Met_DELP                      ',\n                              'Met_DELPDRY                   ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FLASHDENS                 ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n                              'FracOfTimeInTrop              ',\n::\n#==============================================================================\n# %%%%% StateMetLevEdge %%%%%\n#\n# State_Met arrays that are defined on grid box level edges. Vertical dimension\n# size is one more than 3D fields in the StateMet collection.\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   {FREQUENCY}\n  StateMetLevEdge.duration:    {DURATION}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n"
  },
  {
    "path": "run/CESM/geoschem_config.yml",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for GCHP simulations using the KPP \"fullchem\" mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: fullchem\n  start_date: 20000101 000000\n  end_date: 20000101 010000\n  chem_inputs_dir: ./\n  species_database_file: ./species_database.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n    linear_chemistry_aloft:\n      activate: true\n      use_linoz_for_O3: true\n    active_strat_H2O:\n      activate: true\n      use_static_bnd_cond: true\n    gamma_HO2: 0.2\n    autoreduce_solver:\n      activate: false\n      use_target_threshold:\n        activate: true\n        oh_tuning_factor: 0.00005\n        no2_tuning_factor: 0.0001\n      use_absolute_threshold:\n        scale_by_pressure: true\n        absolute_threshold: 100.0\n      keep_halogens_active: false\n      append_in_internal_timestep: false\n\n  photolysis:\n    activate: true\n    cloud-j:\n      cloudj_input_dir: /see/namelist/file\n      verbose: false\n      num_levs_with_cloud: 22\n      cloud_scheme_flag: 3\n      opt_depth_increase_factor: 1.050\n      min_top_inserted_cloud_OD: 0.005\n      cloud_overlap_correlation: 0.33\n      num_cloud_overlap_blocks: 6\n      sphere_correction: 1\n      num_wavelength_bins: 18\n      use_H2O_UV_absorption: true\n    overhead_O3:\n      use_online_O3_from_model: true\n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n    photolyze_nitrate_aerosol:\n      activate: true\n      NITs_Jscale: 100.0\n      NIT_Jscale: 100.0\n      percent_channel_A_HONO: 66.667\n      percent_channel_B_NO2: 33.333\n\n  dry_deposition:\n    activate: true\n    CO2_effect:\n      activate: false\n      CO2_level: 600.0\n      reference_CO2_level: 380.0\n    diag_alt_above_sfc_in_m: 10\n\n  wet_deposition:\n    activate: true\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: true\n\n  convection:\n    activate: false\n\n  rrtmg_rad_transfer_model:\n    activate: false\n    aod_wavelengths_in_nm:\n      - 550\n    longwave_fluxes: false\n    shortwave_fluxes: false\n    clear_sky_flux: false\n    all_sky_flux: false\n\n  transport:\n    transported_species:\n      - ACET\n      - ACR\n      - ACTA\n      - AERI\n      - ALD2\n      - ALK4\n      - ALK4N2\n      - ALK4P\n      - ALK6\n      - AONITA\n      - APAN\n      - APINN\n      - APINP\n      - AROMCHO\n      - AROMP4\n      - AROMP5\n      - AROMPN\n      - ASOA1\n      - ASOA2\n      - ASOA3\n      - ASOAN\n      - ASOG1\n      - ASOG2\n      - ASOG3\n      - ATOOH\n      - BALD\n      - BCPI\n      - BCPO\n      - BENZ\n      - BENZP\n      - BPINN\n      - BPINO\n      - BPINON\n      - BPINOOH\n      - BPINP\n      - Br\n      - Br2\n      - BrCl\n      - BrNO2\n      - BrNO3\n      - BrO\n      - BrSALA\n      - BrSALC\n      - BUTDI\n      - BUTN\n      - BZCO3H\n      - BZPAN\n      - C2H2\n      - C2H4\n      - C2H6\n      - C3H8\n      - C4H6\n      - C96N\n      - C96O2H\n      - CCl4\n      - CFC11\n      - CFC113\n      - CFC114\n      - CFC115\n      - CFC12\n      - CH2Br2\n      - CH2Cl2\n      - CH2I2\n      - CH2IBr\n      - CH2ICl\n      - CH2O\n      - CH3Br\n      - CH3CCl3\n      - CH3Cl\n      - CH3I\n      - CH4\n      - CHBr3\n      - CHCl3\n      - Cl\n      - Cl2\n      - Cl2O2\n      - ClNO2\n      - ClNO3\n      - ClO\n      - ClOO\n      - CLOCK\n      - CO\n      - CSL\n      - DMS\n      - DSTbin1\n      - DSTbin2\n      - DSTbin3\n      - DSTbin4\n      - DSTbin5\n      - DSTbin6\n      - DSTbin7\n      - EBZ      \n      - EOH\n      - ETHLN\n      - ETHN\n      - ETHP\n      - ETNO3\n      - ETP\n      - FURA\n      - GLYC\n      - GLYX\n      - H1211\n      - H1301\n      - H2402\n      - H2O\n      - H2O2\n      - HAC\n      - HACTA\n      - HBr\n      - HC5A\n      - HCFC123\n      - HCFC141b\n      - HCFC142b\n      - HCFC22\n      - HCl\n      - HCOOH\n      - HI\n      - HMHP\n      - HMML\n      - HMS\n      - HNO2\n      - HNO3\n      - HNO4\n      - HOBr\n      - HOCl\n      - HOI\n      - HONIT\n      - HPALD1\n      - HPALD2\n      - HPALD3\n      - HPALD4\n      - HPETHNL\n      - I\n      - I2\n      - I2O2\n      - I2O3\n      - I2O4\n      - IBr\n      - ICHE\n      - ICl\n      - ICN\n      - ICPDH\n      - IDC\n      - IDCHP\n      - IDHDP\n      - IDHPE\n      - IDN\n      - IEPOXA\n      - IEPOXB\n      - IEPOXD\n      - IHN1\n      - IHN2\n      - IHN3\n      - IHN4\n      - INDIOL\n      - INO\n      - INPB\n      - INPD\n      - IO\n      - IONITA\n      - IONO\n      - IONO2\n      - IPRNO3\n      - ISALA\n      - ISALC\n      - ISOP\n      - ITCN\n      - ITHN\n      - LIMAL\n      - LIMKB\n      - LIMKET\n      - LIMN\n      - LIMNB\n      - LIMO\n      - LIMO2H\n      - LIMO3H\n      - LIMPAN\n      - LVOC\n      - LVOCOA\n      - MACR\n      - MACR1OOH\n      - MAP\n      - MCRDH\n      - MCRENOL\n      - MCRHN\n      - MCRHNB\n      - MCRHP\n      - MCT\n      - MEK\n      - MEKPN\n      - MENO3\n      - MGLY\n      - MOH\n      - MONITA\n      - MONITS\n      - MONITU\n      - MP\n      - MPAN\n      - MPN\n      - MSA\n      - MTPA\n      - MTPO\n      - MVK\n      - MVKDH\n      - MVKHC\n      - MVKHCB\n      - MVKHP\n      - MVKN\n      - MVKPC\n      - MYRCO\n      - N2O\n      - N2O5\n      - NH3\n      - NH4\n      - NIT\n      - NITs\n      - 'NO'\n      - NO2\n      - NO3\n      - NPHEN\n      - NPRNO3\n      - O3\n      - OClO\n      - OCPI\n      - OCPO\n      - OCS\n      - OIO\n      - PAN\n      - pFe\n      - PHAN\n      - PHEN\n      - PIN\n      - PINAL\n      - PINO3H\n      - PINONIC\n      - PINPAN\n      - PIP\n      - PP\n      - PPN\n      - PROPNN\n      - PRPE\n      - PRPN\n      - PYAC\n      - R4N2\n      - R4P\n      - R7N2\n      - R7P\n      - RA3P\n      - RB3P\n      - RCHO\n      - RCOOH\n      - RIPA\n      - RIPB\n      - RIPC\n      - RIPD\n      - RNO3\n      - RP\n      - SALA\n      - SALAAL\n      - SALACL\n      - SALC\n      - SALCAL\n      - SALCCL\n      - SO2\n      - SO4\n      - SO4s\n      - SOAGX\n      - SOAIE\n      - STYR\n      - TLFUONE\n      - TMB\n      - TOLU\n      - TSOA0\n      - TSOA1\n      - TSOA2\n      - TSOA3\n      - TSOG0\n      - TSOG1\n      - TSOG2\n      - TSOG3\n      - XYLE\n\n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: /see/namelist/file\n\n  carbon:\n    activate: true\n    brown_carbon: false\n    enhance_black_carbon_absorption:\n      activate: true\n      hydrophilic: 1.5\n      hydrophobic: 1.0\n\n  complex_SOA:\n    activate:  true\n    semivolatile_POA: false\n\n  dust:\n    activate: true\n    acid_uptake_on_dust: false\n\n  sea_salt:\n    activate: true\n    SALA_radius_bin_in_um: [0.01, 0.5]\n    SALC_radius_bin_in_um: [0.5,  8.0]\n    marine_organic_aerosols: false\n\n  stratosphere:\n    settle_strat_aerosol: true\n    polar_strat_clouds:\n      activate: true\n      het_chem: true\n    allow_homogeneous_NAT: false\n    NAT_supercooling_req_in_K: 3.0\n    supersat_factor_req_for_ice_nucl: 1.2\n    calc_strat_aod: true\n\n  sulfate:\n    activate: true\n    metal_cat_SO2_oxidation: true\n"
  },
  {
    "path": "run/CESM/util/README",
    "content": "Use dep_data_file.cdl to generate the netcdf file for inputting Henry's Law coefficients\nand molectular weights to CESM for use in deposition. This file must be updated every time\na new wet or dry deposited species is added to GEOS-Chem. Once created, the netcdf file\nshould be renamed to include GEOS-Chem version number and data created, and then copied\nto the location set in cam/bld/namelist_files/namelist_defaults_cam.xml.\n\nInstructions to using ncgen:\nncgen x.cdl          # checks syntax\nncgen -b x.cdl       # writes x.nc\nncgen -o y.nc x.cdl  # writes y.nc\n\nNotes:\n- Added OX since shr_drydep_mod maps dry deposited species O3 to OX in the deposition file.\n  Parameters for OX are the same as O3.\n"
  },
  {
    "path": "run/CESM/util/dep_data_file.cdl",
    "content": "netcdf drydep_tables {\ndimensions:\n  n_species_table = 168;\n  NHen  = 6;\n  chars = 16;\nvariables:\n\n  char species_name_table(n_species_table,chars);\n    species_name_table:long_name = \"names of species in dry deposition tables\" ;\n  double dfoxd(n_species_table);\n    dfoxd:long_name = \"data for foxd (reactivity factor for oxidation)\";\n  double dheff(n_species_table,NHen);\n    dheff:long_name = \"data for effective Henry's Law coefficient\";\n  double mol_wghts(n_species_table);\n    mol_wghts:long_name = \"species molecular mass\";\n    mol_wghts:units = \"grams/mole\";\n\n// global attributes:\n\n  :Created_by = \"Elizabeth Lundgren (Harvard University), Haipeng Lin (Harvard University)\";\n  :Source = \"GEOS-Chem version 14.3 gas-phase and aerosol dry or wet deposited species\";\n\ndata:\n\n// care has been taken to list gas-phase species first and aerosols (including gaseous SOA)\n// at the end.\n\n  species_name_table =\n         \"ACET            \",\n         \"ACTA            \",\n         \"ALD2            \",\n         \"AROMP4          \",\n         \"AROMP5          \",\n         \"ATOOH           \",\n         \"BALD            \",\n         \"BENZP           \",\n         \"BR2             \",\n         \"BRCL            \",\n         \"BRNO3           \",\n         \"BZCO3H          \",\n         \"BZPAN           \",\n         \"CH2O            \",\n         \"CL2             \",\n         \"CLNO2           \",\n         \"CLNO3           \",\n         \"CLO             \",\n         \"CLOO            \",\n         \"CSL             \",\n         \"EOH             \",\n         \"ETHLN           \",\n         \"ETHN            \",\n         \"ETHP            \",\n         \"ETNO3           \",\n         \"ETP             \",\n         \"FURA            \",\n         \"GLYC            \",\n         \"GLYX            \",\n         \"H2O2            \",\n         \"HAC             \",\n         \"HBR             \",\n         \"HC5A            \",\n         \"HCL             \",\n         \"HCOOH           \",\n         \"HI              \",\n         \"HMHP            \",\n         \"HMML            \",\n         \"HNO3            \",\n         \"HOBR            \",\n         \"HOCL            \",\n         \"HOI             \",\n         \"HONIT           \",\n         \"HPALD1          \",\n         \"HPALD2          \",\n         \"HPALD3          \",\n         \"HPALD4          \",\n         \"HPETHNL         \",\n         \"I2              \",\n         \"I2O2            \",\n         \"I2O3            \",\n         \"I2O4            \",\n         \"IBR             \",\n         \"ICHE            \",\n         \"ICL             \",\n         \"ICN             \",\n         \"ICPDH           \",\n         \"IDC             \",\n         \"IDCHP           \",\n         \"IDHDP           \",\n         \"IDHPE           \",\n         \"IDN             \",\n         \"IEPOXA          \",\n         \"IEPOXB          \",\n         \"IEPOXD          \",\n         \"IHN1            \",\n         \"IHN2            \",\n         \"IHN3            \",\n         \"IHN4            \",\n         \"INPB            \",\n         \"INPD            \",\n         \"IONO            \",\n         \"IONO2           \",\n         \"IPRNO3          \",\n         \"ITCN            \",\n         \"ITHN            \",\n         \"LIMO            \",\n         \"LVOC            \",\n         \"LVOCOA          \",\n         \"MACR            \",\n         \"MACR1OOH        \",\n         \"MAP             \",\n         \"MCRDH           \",\n         \"MCRENOL         \",\n         \"MCRHN           \",\n         \"MCRHNB          \",\n         \"MCRHP           \",\n         \"MCT             \",\n         \"MEK             \",\n         \"MENO3           \",\n         \"MGLY            \",\n         \"MOH             \",\n         \"MONITS          \",\n         \"MONITU          \",\n         \"MP              \",\n         \"MPAN            \",\n         \"MPN             \",\n         \"MTPA            \",\n         \"MTPO            \",\n         \"MVK             \",\n         \"MVKDH           \",\n         \"MVKHC           \",\n         \"MVKHCB          \",\n         \"MVKHP           \",\n         \"MVKN            \",\n         \"MVKPC           \",\n         \"N2O5            \",\n         \"NH3             \",\n         \"NO2             \",\n         \"NPHEN           \",\n         \"NPRNO3          \",\n         \"O3              \",\n         \"OX              \",\n         \"PAN             \",\n         \"PHEN            \",\n         \"PP              \",\n         \"PPN             \",\n         \"PROPNN          \",\n         \"PRPN            \",\n         \"PRPE            \",\n         \"PYAC            \",\n         \"R4N2            \",\n         \"R4P             \",\n         \"RA3P            \",\n         \"RB3P            \",\n         \"RIPA            \",\n         \"RIPB            \",\n         \"RIPC            \",\n         \"RIPD            \",\n         \"RP              \",\n         \"SO2             \",\n         \"AERI            \",\n         \"AONITA          \",\n         \"ASOA1           \",\n         \"ASOA2           \",\n         \"ASOA3           \",\n         \"ASOAN           \",\n         \"ASOG1           \",\n         \"ASOG2           \",\n         \"ASOG3           \",\n         \"BRSALA          \",\n         \"BRSALC          \",\n         \"INDIOL          \",\n         \"IONITA          \",\n         \"ISALA           \",\n         \"ISALC           \",\n         \"MONITA          \",\n         \"MSA             \",\n         \"NH4             \",\n         \"NIT             \",\n         \"NITS            \",\n         \"SALAAL          \",\n         \"SALACL          \",\n         \"SALCAL          \",\n         \"SALCCL          \",\n         \"SO4             \",\n         \"SO4S            \",\n         \"SOAGX           \",\n         \"SOAIE           \",\n         \"TSOA0           \",\n         \"TSOA1           \",\n         \"TSOA2           \",\n         \"TSOA3           \",\n         \"TSOG0           \",\n         \"TSOG1           \",\n         \"TSOG2           \",\n         \"TSOG3           \",\n         \"PFE             \" ;\n\n// dfoxd (reactivity factor for oxidation)\n\n  dfoxd =\n        1.       // ACET\n       ,1.       // ACTA\n       ,1.       // ALD2\n       ,1.       // AROMP4\n       ,1.       // AROMP5\n       ,1.       // ATOOH\n       ,1.       // BALD\n       ,1.       // BENZP\n       ,1.e-36   // BR2\n       ,1.e-36   // BRCL\n       ,1.e-36   // BRNO3\n       ,1.       // BZCO3H\n       ,1.       // BZPAN\n       ,1.       // CH2O\n       ,1.e-36   // CL2\n       ,1.e-36   // CLNO2\n       ,1.e-36   // CLNO3\n       ,1.e-36   // CLO\n       ,1.e-36   // CLOO\n       ,1.       // CSL\n       ,1.e-36   // EOH\n       ,1        // ETHLN\n       ,.1       // ETHN\n       ,.1       // ETHP\n       ,.1       // ETNO3\n       ,1.       // ETP\n       ,1.       // FURA\n       ,1.       // GLYC\n       ,1.       // GLYX\n       ,1.       // H2O2\n       ,1.       // HAC\n       ,1.e-36   // HBR\n       ,1.e-36   // HC5A\n       ,1.e-36   // HCL\n       ,1.       // HCOOH\n       ,1.e-36   // HI\n       ,1.       // HMHP\n       ,1.       // HMML\n       ,1.e-36   // HNO3\n       ,1.e-36   // HOBR\n       ,1.e-36   // HOCL\n       ,1.e-36   // HOI\n       ,1.       // HONIT\n       ,1.e-36   // HPALD1\n       ,1.e-36   // HPALD2\n       ,1.e-36   // HPALD3\n       ,1.e-36   // HPALD4\n       ,1.       // HPETHNL\n       ,1.e-36   // I2\n       ,1.e-36   // I2O2\n       ,1.e-36   // I2O3\n       ,1.e-36   // I2O4\n       ,1.e-36   // IBR\n       ,1.       // ICHE\n       ,1.e-36   // ICL\n       ,1.       // ICN\n       ,1.       // ICPDH\n       ,1.e-36   // IDC\n       ,1.       // IDCHP\n       ,1.       // IDHDP\n       ,1.       // IDHPE\n       ,1.       // IDN\n       ,1.       // IEPOXA\n       ,1.       // IEPOXB\n       ,1.       // IEPOXD\n       ,1.       // IHN1\n       ,1.       // IHN2\n       ,1.       // IHN3\n       ,1.       // IHN4\n       ,1.       // INPB\n       ,1.       // INPD\n       ,1.e-36   // IONO\n       ,1.e-36   // IONO2\n       ,.1       // IPRNO3\n       ,1.       // ITCN\n       ,1.       // ITHN\n       ,1.e-36   // LIMO\n       ,1.       // LVOC\n       ,1.e-36   // LVOCOA\n       ,1        // MACR\n       ,1        // MACR1OOH\n       ,1        // MAP\n       ,1        // MCRDH\n       ,1        // MCRENOL\n       ,1        // MCRHN\n       ,1        // MCRHNB\n       ,1        // MCRHP\n       ,1        // MCT\n       ,1.e-36   // MEK\n       ,.1       // MENO3\n       ,1.       // MGLY\n       ,1.       // MOH\n       ,1.       // MONITS\n       ,1.       // MONITU\n       ,1.e-36   // MP\n       ,1.       // MPAN\n       ,1.e-36   // MPN\n       ,1.e-36   // MTPA\n       ,1.e-36   // MTPO\n       ,1.       // MVK\n       ,1.       // MVKDH\n       ,1.       // MVKHC\n       ,1.       // MVKHCB\n       ,1.       // MVKHP\n       ,1.       // MVKN\n       ,1.       // MVKPC\n       ,1.e-36   // N2O5\n       ,1.e-36   // NH3\n       ,.1       // NO2\n       ,1.       // NPHEN\n       ,.1       // NPRNO3\n       ,1.       // O3\n       ,1.       // OX\n       ,1.       // PAN\n       ,1.       // PHEN\n       ,1.       // PP\n       ,1.       // PPN\n       ,1.       // PROPNN\n       ,1.e-36   // PRPE\n       ,1.       // PRPN\n       ,1.       // PYAC\n       ,1.       // R4N2\n       ,1.       // R4P\n       ,1.       // RA3P\n       ,1.       // RB3P\n       ,1.       // RIPA\n       ,1.       // RIPB\n       ,1.       // RIPC\n       ,1.       // RIPD\n       ,1.       // RP\n       ,1.e-36   // SO2\n       ,1.e-36   // AERI\n       ,1.e-36   // AONITA\n       ,1.e-36   // ASOA1\n       ,1.e-36   // ASOA2\n       ,1.e-36   // ASOA3\n       ,1.e-36   // ASOAN\n       ,1.e-36   // ASOG1\n       ,1.e-36   // ASOG2\n       ,1.e-36   // ASOG3\n       ,1.e-36   // BRSALA\n       ,1.e-36   // BRSALC\n       ,1.e-36   // INDIOL\n       ,1.e-36   // IONITA\n       ,1.e-36   // ISALA\n       ,1.e-36   // ISALC\n       ,1.e-36   // MONITA\n       ,1.e-36   // MSA\n       ,1.e-36   // NH4\n       ,1.e-36   // NIT\n       ,1.e-36   // NITS\n       ,1.e-36   // SALAAL\n       ,1.e-36   // SALACL\n       ,1.e-36   // SALCAL\n       ,1.e-36   // SALCCL\n       ,1.e-36   // SO4\n       ,1.e-36   // SO4S\n       ,1.e-36   // SOAGX\n       ,1.e-36   // SOAIE\n       ,1.e-36   // TSOA0\n       ,1.e-36   // TSOA1\n       ,1.e-36   // TSOA2\n       ,1.e-36   // TSOA3\n       ,1.e-36   // TSOG0\n       ,1.e-36   // TSOG1\n       ,1.e-36   // TSOG2\n       ,1.e-36   // TSOG3\n       ,1.e-36 ; // PFE\n\n// dheff: Effective Henry Law coefficients.\n// Use species_database.yml: Henry_K0, Henry_CR, 0., 0., 0., 0.,\n// According to Fritz et al. (GMD 2022), aerosols not found will use\n// coefficients from HNO3.\n\n dheff =\n       27.399999618530273      ,   5500.0, 0., 0., 0., 0.,  // ACET\n       4050.0000000000000      ,   6200.0, 0., 0., 0., 0.,  // ACTA\n       13.199999809265137      ,   5900.0, 0., 0., 0., 0.,  // ALD2\n       410000.00000000000      ,   7500.0, 0., 0., 0., 0.,  // AROMP4\n       2000000.0000000000      ,   7500.0, 0., 0., 0., 0.,  // AROMP5\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // ATOOH\n       38.000000000000000      ,   5500.0, 0., 0., 0., 0.,  // BALD\n       2900.0000000000000      ,   6800.0, 0., 0., 0., 0.,  // BENZP\n      0.75999999046325684      ,   3720.0, 0., 0., 0., 0.,  // BR2\n      0.97000002861022949      ,   5600.0, 0., 0., 0., 0.,  // BRCL\n       0.00000000000000        ,      0.0, 0., 0., 0., 0.,  // BRNO3\n       24000.000000000000      ,      0.0, 0., 0., 0., 0.,  // BZCO3H\n       70.000000000000000      ,   4600.0, 0., 0., 0., 0.,  // BZPAN\n       3240.0000000000000      ,   6800.0, 0., 0., 0., 0.,  // CH2O\n       9.2000000178813934E-002 ,   2000.0, 0., 0., 0., 0.,  // CL2\n       0.00000000000000        ,      0.0, 0., 0., 0., 0.,  // CLNO2\n       1.0000000200408773E+020 ,      0.0, 0., 0., 0., 0.,  // CLNO3\n       0.00000000000000        ,      0.0, 0., 0., 0., 0.,  // CLO\n       1.0000000000000000      ,   3500.0, 0., 0., 0., 0.,  // CLOO\n       420.00000000000000      ,   8500.0, 0., 0., 0., 0.,  // CSL\n       193.00000000000000      ,   6400.0, 0., 0., 0., 0.,  // EOH\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // ETHLN\n       39000.000000000000      ,   8600.0, 0., 0., 0., 0.,  // ETHN\n       650000.00000000000      ,   8800.0, 0., 0., 0., 0.,  // ETHP\n       1.6000000238418579      ,   5400.0, 0., 0., 0., 0.,  // ETNO3\n       334.00000000000000      ,   6000.0, 0., 0., 0., 0.,  // ETP\n       1.8000000000000000E-001 ,   6100.0, 0., 0., 0., 0.,  // FURA\n       41500.000000000000      ,   4600.0, 0., 0., 0., 0.,  // GLYC\n       415000.00000000000      ,   7500.0, 0., 0., 0., 0.,  // GLYX\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0.,  // H2O2\n       7800.0000000000000      ,      0.0, 0., 0., 0., 0.,  // HAC\n       71000003706880.000      ,  10200.0, 0., 0., 0., 0.,  // HBR\n       7800.0000000000000      ,      0.0, 0., 0., 0., 0.,  // HC5A\n       62999998464.000000      ,   9000.0, 0., 0., 0., 0.,  // HCL\n       8920.0000000000000      ,   6100.0, 0., 0., 0., 0.,  // HCOOH\n       74299998208000.000      ,   3187.2, 0., 0., 0., 0.,  // HI\n       1300000.0000000000      ,   5200.0, 0., 0., 0., 0.,  // HMHP\n       120000.00000000000      ,   7200.0, 0., 0., 0., 0.,  // HMML\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0.,  // HNO3\n       1300.0000000000000      ,   4000.0, 0., 0., 0., 0.,  // HOBR\n       650.00000000000000      ,   5900.0, 0., 0., 0., 0.,  // HOCL\n       15400.000000000000      ,   8371.0, 0., 0., 0., 0.,  // HOI\n       26900000931840.000      ,   5487.0, 0., 0., 0., 0.,  // HONIT\n       40000.000000000000      ,      0.0, 0., 0., 0., 0.,  // HPALD1\n       40000.000000000000      ,      0.0, 0., 0., 0., 0.,  // HPALD2\n       40000.000000000000      ,      0.0, 0., 0., 0., 0.,  // HPALD3\n       40000.000000000000      ,      0.0, 0., 0., 0., 0.,  // HPALD4\n       41000.000000000000      ,   4600.0, 0., 0., 0., 0.,  // HPETHNL\n       2.7000000476837158      ,   7507.4, 0., 0., 0., 0.,  // I2\n       1.0000000200408773E+020 ,  18900.0, 0., 0., 0., 0.,  // I2O2\n       1.0000000200408773E+020 ,  13400.0, 0., 0., 0., 0.,  // I2O3\n       1.0000000200408773E+020 ,  13400.0, 0., 0., 0., 0.,  // I2O4\n       24.000000000000000      ,   4916.7, 0., 0., 0., 0.,  // IBR\n       80000000.000000000      ,      0.0, 0., 0., 0., 0.,  // ICHE\n       111.00000000000000      ,   2105.5, 0., 0., 0., 0.,  // ICL\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // ICN\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // ICPDH\n       40000.000000000000      ,      0.0, 0., 0., 0., 0.,  // IDC\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // IDCHP\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // IDHDP\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // IDHPE\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // IDN\n       80000000.000000000      ,      0.0, 0., 0., 0., 0.,  // IEPOXA\n       80000000.000000000      ,      0.0, 0., 0., 0., 0.,  // IEPOXB\n       80000000.000000000      ,      0.0, 0., 0., 0., 0.,  // IEPOXD\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // IHN1\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // IHN2\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // IHN3\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // IHN4\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // INPB\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // INPD\n      0.30000001192092896      ,   7240.4, 0., 0., 0., 0.,  // IONO\n       1.0000000200408773E+020 ,   3980.0, 0., 0., 0., 0.,  // IONO2\n      0.79000002145767212      ,   5400.0, 0., 0., 0., 0.,  // IPRNO3\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // ITCN\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // ITHN\n       7.0000000298023224E-002 ,      0.0, 0., 0., 0., 0.,  // LIMO\n       100000000.00000000      ,   7200.0, 0., 0., 0., 0.,  // LVOC\n       0.00000000000000        ,      0.0, 0., 0., 0., 0.,  // LVOCOA\n       4.8600001335144043      ,   4300.0, 0., 0., 0., 0.,  // MACR\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // MACR1OOH\n       840.00000000000000      ,   5300.0, 0., 0., 0., 0.,  // MAP\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MCRDH\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // MCRENOL\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // MCRHN\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // MCRHNB\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MCRHP\n       420.00000000000000      ,   8500.0, 0., 0., 0., 0.,  // MCT\n       18.200000000000000      ,   5700.0, 0., 0., 0., 0.,  // MEK\n       11.000000000000000      ,   4700.0, 0., 0., 0., 0.,  // MENO3\n       32400.000000000000      ,   6200.0, 0., 0., 0., 0.,  // MGLY\n       203.00000000000000      ,   5600.0, 0., 0., 0., 0.,  // MOH\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // MONITS\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // MONITU\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // MP\n       1.7200000286102295      ,      0.0, 0., 0., 0., 0.,  // MPAN\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // MPN\n       4.8999998718500137E-002 ,      0.0, 0., 0., 0., 0.,  // MTPA\n       4.8999998718500137E-002 ,      0.0, 0., 0., 0., 0.,  // MTPO\n       26.299999237060547      ,   4800.0, 0., 0., 0., 0.,  // MVK\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MVKDH\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MVKHC\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MVKHCB\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MVKHP\n       17000.000000000000      ,   9200.0, 0., 0., 0., 0.,  // MVKN\n       1400000.0000000000      ,   7200.0, 0., 0., 0., 0.,  // MVKPC\n       0.0000000000000000      ,      0.0, 0., 0., 0., 0.,  // N2O5\n       3300000.0000000000      ,   4100.0, 0., 0., 0., 0.,  // NH3\n       0.0000000000000000      ,      0.0, 0., 0., 0., 0.,  // NO2\n       2300.0000000000000      ,      0.0, 0., 0., 0., 0.,  // NPHEN\n       1.1000000238418579      ,   5500.0, 0., 0., 0., 0.,  // NPRNO3\n       1.0132499970495701E-002 ,   2800.0, 0., 0., 0., 0.,  // O3\n       1.0132499970495701E-002 ,   2800.0, 0., 0., 0., 0.,  // OX\n       2.940000572204590       ,   5700.0, 0., 0., 0., 0.,  // PAN\n       2800.0000000000000      ,   2700.0, 0., 0., 0., 0.,  // PHEN\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // PP\n       2.9400000572204590      ,      0.0, 0., 0., 0., 0.,  // PPN\n       1000.0000000000000      ,      0.0, 0., 0., 0., 0.,  // PROPNN\n       7.4000000000000000E-003 ,   3400.0, 0., 0., 0., 0.,  // PRPE\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // PRPN\n       314000.00000000000      ,   5100.0, 0., 0., 0., 0.,  // PYAC\n       1.0000000000000000      ,   5800.0, 0., 0., 0., 0.,  // R4N2\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // R4P\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // RA3P\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // RB3P\n       1700000.0000000000      ,      0.0, 0., 0., 0., 0.,  // RIPA\n       1700000.0000000000      ,      0.0, 0., 0., 0., 0.,  // RIPB\n       1700000.0000000000      ,      0.0, 0., 0., 0., 0.,  // RIPC\n       1700000.0000000000      ,      0.0, 0., 0., 0., 0.,  // RIPD\n       294.00000000000000      ,   5200.0, 0., 0., 0., 0.,  // RP\n       1.36e+00, 3100., 1.30e-02,   1960., 6.6e-08, 1500.,  // SO2 - uses CAM-chem params as GC handling is special\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // AERI\n       2900.0000000000000      ,   6800.0, 0., 0., 0., 0., // AONITA\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // ASOA1\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // ASOA2\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // ASOA3\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // ASOAN\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // ASOG1\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // ASOG2\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // ASOG3\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // BRSALA\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // BRSALC\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // INDIOL\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // IONITA\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // ISALA\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // ISALC\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // MONITA\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // MSA\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // NH4\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // NIT\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // NITS\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // SALAAL\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // SALACL\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // SALCAL\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // SALCCL\n       1.36e+00, 3100., 1.30e-02,   1960., 6.6e-08, 1500., // SO4\n       1.36e+00, 3100., 1.30e-02,   1960., 6.6e-08, 1500., // SO4S\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // SOAGX\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // SOAIE\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // TSOA0\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // TSOA1\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // TSOA2\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0., // TSOA3\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // TSOG0\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // TSOG1\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // TSOG2\n       100000.00000000000      ,   6039.0, 0., 0., 0., 0., // TSOG3\n       83000.000000000000      ,   7400.0, 0., 0., 0., 0. ; // PFE\n\n\n  mol_wghts =\n         ,58.090000000000003   // ACET\n         ,60.060000000000002   // ACTA\n         ,44.060000000000002   // ALD2\n         ,68.079999999999998   // AROMP4\n         ,98.099999999999994   // AROMP5\n         ,90.090000000000003   // ATOOH\n         ,106.12000000000000   // BALD\n         ,110.11000000000000   // BENZP\n         ,159.80000000000001   // BR2\n         ,115.45000000000000   // BRCL\n         ,141.91000000000000   // BRNO3\n         ,138.12000000000000   // BZCO3H\n         ,183.12000000000000   // BZPAN\n         ,30.030000000000001   // CH2O\n         ,70.900000000000006   // CL2\n         ,81.450000000000003   // CLNO2\n         ,97.450000000000003   // CLNO3\n         ,51.450000000000003   // CLO\n         ,67.450000000000003   // CLOO\n         ,108.14000000000000   // CSL\n         ,46.070000000000000   // EOH\n         ,105.06000000000000   // ETHLN\n         ,107.06999999999999   // ETHN\n         ,78.069999999999993   // ETHP\n         ,91.079999999999998   // ETNO3\n         ,62.079999999999998   // ETP\n         ,68.070000000000000   // FURA\n         ,60.060000000000002   // GLYC\n         ,58.039999999999999   // GLYX\n         ,34.020000000000003   // H2O2\n         ,74.079999999999998   // HAC\n         ,80.909999999999997   // HBR\n         ,100.13000000000000   // HC5A\n         ,36.450000000000003   // HCL\n         ,46.030000000000001   // HCOOH\n         ,127.91000000000000   // HI\n         ,64.049999999999997   // HMHP\n         ,102.09999999999999   // HMML\n         ,63.009999999999998   // HNO3\n         ,96.909999999999997   // HOBR\n         ,52.450000000000003   // HOCL\n         ,143.88999999999999   // HOI\n         ,215.00000000000000   // HONIT\n         ,116.13000000000000   // HPALD1\n         ,116.13000000000000   // HPALD2\n         ,116.13000000000000   // HPALD3\n         ,116.13000000000000   // HPALD4\n         ,76.060000000000002   // HPETHNL\n         ,253.80000000000001   // I2\n         ,285.80000000000001   // I2O2\n         ,301.80000000000001   // I2O3\n         ,317.80000000000001   // I2O4\n         ,206.90000000000001   // IBR\n         ,116.13000000000000   // ICHE\n         ,162.44999999999999   // ICL\n         ,145.13000000000000   // ICN\n         ,150.15000000000001   // ICPDH\n         ,98.109999999999999   // IDC\n         ,148.13000000000000   // IDCHP\n         ,168.16999999999999   // IDHDP\n         ,150.15000000000001   // IDHPE\n         ,192.15000000000001   // IDN\n         ,106.14000000000000   // IEPOXA\n         ,106.14000000000000   // IEPOXB\n         ,106.14000000000000   // IEPOXD\n         ,147.15000000000001   // IHN1\n         ,147.15000000000001   // IHN2\n         ,147.15000000000001   // IHN3\n         ,147.15000000000001   // IHN4\n         ,163.15000000000001   // INPB\n         ,163.15000000000001   // INPD\n         ,172.91000000000000   // IONO\n         ,188.91000000000000   // IONO2\n         ,105.11000000000000   // IPRNO3\n         ,195.15000000000000   // ITCN\n         ,197.16999999999999   // ITHN\n         ,136.25999999999999   // LIMO\n         ,154.19000000000000   // LVOC\n         ,154.19000000000000   // LVOCOA\n         ,70.099999999999994   // MACR\n         ,102.09999999999999   // MACR1OOH\n         ,76.060000000000002   // MAP\n         ,104.12000000000000   // MCRDH\n         ,86.099999999999994   // MCRENOL\n         ,149.11000000000001   // MCRHN\n         ,149.11000000000001   // MCRHNB\n         ,120.12000000000000   // MCRHP\n         ,124.00000000000000   // MCT\n         ,72.110000000000000   // MEK\n         ,77.049999999999997   // MENO3\n         ,72.069999999999993   // MGLY\n         ,32.049999999999997   // MOH\n         ,215.28000000000000   // MONITS\n         ,215.28000000000000   // MONITU\n         ,48.050000000000000   // MP\n         ,147.09999999999999   // MPAN\n         ,93.050000000000000   // MPN\n         ,136.25999999999999   // MTPA\n         ,136.25999999999999   // MTPO\n         ,70.090000000000003   // MVK\n         ,105.13000000000000   // MVKDH\n         ,102.09999999999999   // MVKHC\n         ,102.09999999999999   // MVKHCB\n         ,120.12000000000000   // MVKHP\n         ,149.12000000000000   // MVKN\n         ,118.09999999999999   // MVKPC\n         ,108.02000000000000   // N2O5\n         ,17.039999999999999   // NH3\n         ,46.009999999999998   // NO2\n         ,139.11000000000001   // NPHEN\n         ,105.11000000000000   // NPRNO3\n         ,48.000000000000000   // O3\n         ,48.000000000000000   // OX\n         ,121.06000000000000   // PAN\n         ,94.109999999999999   // PHEN\n         ,92.109999999999999   // PP\n         ,135.08000000000001   // PPN\n         ,119.08000000000000   // PROPNN\n         ,42.090000000000000   // PRPE\n         ,137.11000000000001   // PRPN\n         ,88.069999999999993   // PYAC\n         ,119.09999999999999   // R4N2\n         ,90.140000000000001   // R4P\n         ,76.109999999999999   // RA3P\n         ,76.109999999999999   // RB3P\n         ,118.15000000000001   // RIPA\n         ,118.15000000000001   // RIPB\n         ,118.15000000000001   // RIPC\n         ,118.15000000000001   // RIPD\n         ,90.090000000000003   // RP\n         ,64.040000000000006   // SO2\n         ,126.90000000000000   // AERI\n         ,189.12000000000000   // AONITA\n         ,150.00000000000000   // ASOA1\n         ,150.00000000000000   // ASOA2\n         ,150.00000000000000   // ASOA3\n         ,150.00000000000000   // ASOAN\n         ,150.00000000000000   // ASOG1\n         ,150.00000000000000   // ASOG2\n         ,150.00000000000000   // ASOG3\n         ,79.900000000000000   // BRSALA\n         ,79.900000000000000   // BRSALC\n         ,102.00000000000000   // INDIOL\n         ,14.010000000000000   // IONITA\n         ,126.90000000000000   // ISALA\n         ,126.90000000000000   // ISALC\n         ,14.010000000000000   // MONITA\n         ,96.100000000000000   // MSA\n         ,18.050000000000000   // NH4\n         ,62.010000000000000   // NIT\n         ,31.400000000000000   // NITS\n         ,31.400000000000000   // SALAAL\n         ,35.450000000000000   // SALACL\n         ,31.400000000000000   // SALCAL\n         ,35.450000000000000   // SALCCL\n         ,31.400000000000000   // SO4\n         ,31.400000000000000   // SO4S\n         ,58.040000000000000   // SOAGX\n         ,118.15000000000000   // SOAIE\n         ,150.00000000000000   // TSOA0\n         ,150.00000000000000   // TSOA1\n         ,150.00000000000000   // TSOA2\n         ,150.00000000000000   // TSOA3\n         ,150.00000000000000   // TSOG0\n         ,150.00000000000000   // TSOG1\n         ,150.00000000000000   // TSOG2\n         ,150.00000000000000   // TSOG3\n         ,55.850000000000000 ; // PFE\n\n}"
  },
  {
    "path": "run/GCClassic/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.Hg",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n# ----- NESTED GRID FIELDS ----------------------------------------------------\n    --> GC_BCs                 :       ${RUNDIR_USE_BCs}\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> MACFARLANE             :       true     # 2000-2019\n    --> ZHAOZHANG              :       false    # 2010\n    --> CHAKRABORTY            :       false    # 2010\n    --> EMISS_CONTROLS         :       false    # 2010\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> AMAP_COMB              :       false    # 2010\n    --> AMAP_INDS              :       false    # 2010\n    --> AMAP_INTW              :       false    # 2010\n    --> GMA_ASGM               :       true     # 2015\n    --> GMA_POWERGEN           :       true     # 2015\n    --> GMA_INDS               :       true     # 2015\n    --> GMA_INTW               :       true     # 2015\n    --> WHET                   :       false    # 2010\n    --> STREETS                :       false    # 2015\n    --> ARTISANAL              :       false    # 1985\n    --> NATURAL                :       false    # 1985\n    --> MCHgMAP_NATURAL        :       true     # 2010-2020\n    --> MCHgMAP_BB_GFED        :       false    # 2010-2020\n    --> MCHgMAP_BB_FINN        :       true     # 2010-2020\n    --> SOILDIST               :       true     # 1985\n    --> QFED2                  :       false    # 2000-2020\n    --> EDGAR_TOT              :       false    # 1970-2012\n    --> EDGAR_CEM              :       false    # 1970-2012\n    --> EDGAR_CHLOR            :       false    # 1970-2012\n    --> EDGAR_COMB_A           :       false    # 1970-2012\n    --> EDGAR_COMB_B           :       false    # 1970-2012\n    --> EDGAR_GLASS            :       false    # 1970-2012\n    --> EDGAR_GOLDA            :       false    # 1970-2012\n    --> EDGAR_GOLDB            :       false    # 1970-2012\n    --> EDGAR_IRO              :       false    # 1970-2012\n    --> EDGAR_NFEOTH           :       false    # 1970-2012\n    --> EDGAR_SHIP             :       false    # 1970-2012\n    --> EDGAR_TRO              :       false    # 1970-2012\n    --> EDGAR_WASTE            :       false    # 1970-2012\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OXIDANT_FIELDS         :       true     # 2010-2019\n    --> OCEAN_Hg               :       true     # 1985,2003,2009\n    --> TOMS_SBUV_O3           :       true     # 1971-2010\n    --> LHALOGENCHEM           :       true\n    --> LHGAQCHEM              :       true\n    --> LOHO3CHEM              :       false\n    --> LRED_INPLUME           :       false\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n# -----------------------------------------------------------------------------\n# NOTE: Changing these options will require a change in reduction rate in order\n#       to maintain agreement with observations. Please see wiki for details\n#       http://wiki.seas.harvard.edu/geos-chem/index.php/Mercury\n# -----------------------------------------------------------------------------\n111     GFED              : off   Hg0\n    --> GFED4             :       false\n    --> GFED_daily        :       false\n    --> GFED_3hourly      :       false\n    --> Scaling_CO        :       1.05\n    --> Scaling_NAP       :       2.75e-4\n    --> hydrophilic BC    :       0.2\n    --> hydrophilic OC    :       0.5\n    --> fraction POG1     :       0.49\n114     FINN              : off   Hg0\n    --> FINN_daily        :       false\n    --> Scaling_CO        :       1.0\n    --> hydrophilic BC    :       0.2\n    --> hydrophilic OC    :       0.5\n    --> Scaling_Hg0       :       7.16e-7\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# NOTE: HgP emissions must be added as Hg2 emissions under the Species column\n#==============================================================================\n\n#==============================================================================\n# --- GMA 2018 emissions ---\n#\n#  NOTES:\n#  - HgP emissions are added to Hg2 emissions!\n#  - Hg2 and HgP emissions are 0 everywhere for ASGM source and are not read\n#==============================================================================\n(((GMA_ASGM\n0 GMA_ASGM_HG0     $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_0_asgm 2015/1/1/0 C xy kg/m2/s Hg0    - 8 1\n#0 GMA_ASGM_HG2     $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_2_asgm 2015/1/1/0 C xy *       HgCl2  - 8 1\n#0 GMA_ASGM_HGP     $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_p_asgm 2015/1/1/0 C xy *       Hg2ClP - 8 1\n)))GMA_ASGM\n\n(((GMA_INDS\n0 GMA_IND_HG0      $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_0_inds 2015/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 GMA_IND_HG2      $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_2_inds 2015/1/1/0 C xy *       HgCl2  - 1 1\n0 GMA_IND_HGP      $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_p_inds 2015/1/1/0 C xy *       Hg2ClP - 1 1\n)))GMA_INDS\n\n(((GMA_INTW\n0 GMA_INTW_HG0     $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_0_intw 2015/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 GMA_INTW_HG2     $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_2_intw 2015/1/1/0 C xy *       HgCl2  - 1 1\n0 GMA_INTW_HGP     $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_p_intw 2015/1/1/0 C xy *       Hg2ClP - 1 1\n)))GMA_INTW\n\n(((GMA_POWERGEN\n0 GMA_POWERGEN_HG0 $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_0_pg   2015/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 GMA_POWERGEN_HG2 $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_2_pg   2015/1/1/0 C xy *       HgCl2  - 1 1\n0 GMA_POWERGEN_HGP $ROOT/MERCURY/v2022-10/GMA_emissions_Hg.0.25x0.25.2015.nc emi_hg_p_pg   2015/1/1/0 C xy *       Hg2ClP - 1 1\n)))GMA_POWERGEN\n\n#==============================================================================\n# --- AMAP/UNEP emissions ---\n#==============================================================================\n(((AMAP_COMB\n0 AMAP_COMB_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 AMAP_COMB_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  - 1 1\n0 AMAP_COMB_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP - 1 1\n)))AMAP_COMB\n\n(((AMAP_INDS\n0 AMAP_INDS_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 AMAP_INDS_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  - 1 1\n0 AMAP_INDS_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP - 1 1\n)))AMAP_INDS\n\n(((AMAP_INTW\n0 AMAP_INTW_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 AMAP_INTW_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  - 1 1\n0 AMAP_INTW_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP - 1 1\n)))AMAP_INTW\n\n#==============================================================================\n# --- MacFarlane et al. 2022 Australian emissions                ---\n#==============================================================================\n\n(((MACFARLANE\n0 AUS_BLKCOAL_HG0    $ROOT/MERCURY/v2025-01/MACFARLANE/BlackCoalEmissions_kgm2s.nc               Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_BLKCOAL_HG2    $ROOT/MERCURY/v2025-01/MACFARLANE/BlackCoalEmissions_kgm2s.nc               Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_BLKCOAL_HGP    $ROOT/MERCURY/v2025-01/MACFARLANE/BlackCoalEmissions_kgm2s.nc               HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_BRNCOAL_HG0    $ROOT/MERCURY/v2025-01/MACFARLANE/BrownCoalEmissions_kgm2s.nc               Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_BRNCOAL_HG2    $ROOT/MERCURY/v2025-01/MACFARLANE/BrownCoalEmissions_kgm2s.nc               Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_BRNCOAL_HGP    $ROOT/MERCURY/v2025-01/MACFARLANE/BrownCoalEmissions_kgm2s.nc               HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_CEMENT_HG0     $ROOT/MERCURY/v2025-01/MACFARLANE/CementEmissions_kgm2s.nc                  Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_CEMENT_HG2     $ROOT/MERCURY/v2025-01/MACFARLANE/CementEmissions_kgm2s.nc                  Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_CEMENT_HGP     $ROOT/MERCURY/v2025-01/MACFARLANE/CementEmissions_kgm2s.nc                  HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_CHLOR_HG0      $ROOT/MERCURY/v2025-01/MACFARLANE/ChlorAlkaliEmissions_kgm2s.nc             Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_CHLOR_HG2      $ROOT/MERCURY/v2025-01/MACFARLANE/ChlorAlkaliEmissions_kgm2s.nc             Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_CHLOR_HGP      $ROOT/MERCURY/v2025-01/MACFARLANE/ChlorAlkaliEmissions_kgm2s.nc             HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_COPPER_HG0     $ROOT/MERCURY/v2025-01/MACFARLANE/CopperEmissions_kgm2s.nc                  Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_COPPER_HG2     $ROOT/MERCURY/v2025-01/MACFARLANE/CopperEmissions_kgm2s.nc                  Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_COPPER_HGP     $ROOT/MERCURY/v2025-01/MACFARLANE/CopperEmissions_kgm2s.nc                  HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_CREM_HG0       $ROOT/MERCURY/v2025-01/MACFARLANE/CremationEmissions_kgm2s.nc               Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_CREM_HG2       $ROOT/MERCURY/v2025-01/MACFARLANE/CremationEmissions_kgm2s.nc               Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_CREM_HGP       $ROOT/MERCURY/v2025-01/MACFARLANE/CremationEmissions_kgm2s.nc               HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_FERROUS_HG0    $ROOT/MERCURY/v2025-01/MACFARLANE/FerrousMetalEmissions_kgm2s.nc            Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_FERROUS_HG2    $ROOT/MERCURY/v2025-01/MACFARLANE/FerrousMetalEmissions_kgm2s.nc            Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_FERROUS_HGP    $ROOT/MERCURY/v2025-01/MACFARLANE/FerrousMetalEmissions_kgm2s.nc            HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_GOLD_HG0       $ROOT/MERCURY/v2025-01/MACFARLANE/GoldEmissions_kgm2s.nc                    Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_GOLD_HG2       $ROOT/MERCURY/v2025-01/MACFARLANE/GoldEmissions_kgm2s.nc                    Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_GOLD_HGP       $ROOT/MERCURY/v2025-01/MACFARLANE/GoldEmissions_kgm2s.nc                    HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_LEAD_HG0       $ROOT/MERCURY/v2025-01/MACFARLANE/LeadEmissions_kgm2s.nc                    Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_LEAD_HG2       $ROOT/MERCURY/v2025-01/MACFARLANE/LeadEmissions_kgm2s.nc                    Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_LEAD_HGP       $ROOT/MERCURY/v2025-01/MACFARLANE/LeadEmissions_kgm2s.nc                    HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_OILREF_HG0     $ROOT/MERCURY/v2025-01/MACFARLANE/OilRefiningEmissions_kgm2s.nc             Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_OILREF_HG2     $ROOT/MERCURY/v2025-01/MACFARLANE/OilRefiningEmissions_kgm2s.nc             Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_OILREF_HGP     $ROOT/MERCURY/v2025-01/MACFARLANE/OilRefiningEmissions_kgm2s.nc             HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_OTHIND_HG0     $ROOT/MERCURY/v2025-01/MACFARLANE/OtherIndustryEmissions_kgm2s.nc           Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_OTHIND_HG2     $ROOT/MERCURY/v2025-01/MACFARLANE/OtherIndustryEmissions_kgm2s.nc           Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_OTHIND_HGP     $ROOT/MERCURY/v2025-01/MACFARLANE/OtherIndustryEmissions_kgm2s.nc           HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_NONFERROUS_HG0 $ROOT/MERCURY/v2025-01/MACFARLANE/NonFerrousMetalEmissions_kgm2s.nc         Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_NONFERROUS_HG2 $ROOT/MERCURY/v2025-01/MACFARLANE/NonFerrousMetalEmissions_kgm2s.nc         Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_NONFERROUS_HGP $ROOT/MERCURY/v2025-01/MACFARLANE/NonFerrousMetalEmissions_kgm2s.nc         HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_REFPETR_HG0    $ROOT/MERCURY/v2025-01/MACFARLANE/RefinedPetroleumProductEmissions_kgm2s.nc Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_REFPETR_HG2    $ROOT/MERCURY/v2025-01/MACFARLANE/RefinedPetroleumProductEmissions_kgm2s.nc Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_REFPETR_HGP    $ROOT/MERCURY/v2025-01/MACFARLANE/RefinedPetroleumProductEmissions_kgm2s.nc HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_WASTE_HG0      $ROOT/MERCURY/v2025-01/MACFARLANE/WasteEmissions_kgm2s.nc                   Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_WASTE_HG2      $ROOT/MERCURY/v2025-01/MACFARLANE/WasteEmissions_kgm2s.nc                   Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_WASTE_HGP      $ROOT/MERCURY/v2025-01/MACFARLANE/WasteEmissions_kgm2s.nc                   HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_ZINC_HG0       $ROOT/MERCURY/v2025-01/MACFARLANE/ZincEmissions_kgm2s.nc                    Hg0 2000-2019/1/1/0 C xy kg/m2/s Hg0      1010 1 3\n0 AUS_ZINC_HG2       $ROOT/MERCURY/v2025-01/MACFARLANE/ZincEmissions_kgm2s.nc                    Hg2 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n0 AUS_ZINC_HGP       $ROOT/MERCURY/v2025-01/MACFARLANE/ZincEmissions_kgm2s.nc                    HgP 2000-2019/1/1/0 C xy kg/m2/s HGCL2 13/1010 1 3\n)))MACFARLANE\n\n#==============================================================================\n# --- Yanxu Zhang et al. 2015 and Zhao et al. 2015 China emissions totals ---\n#==============================================================================\n\n(((ZHAOZHANG\n\n(((AMAP_COMB\n0 AMAP_COMB_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    3/1006 1 3\n0 AMAP_COMB_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  4/1006 1 3\n0 AMAP_COMB_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP 5/1006 1 3\n)))AMAP_COMB\n\n(((AMAP_INDS\n0 AMAP_INDS_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0   3/1006 1 3\n0 AMAP_INDS_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2 4/1006 1 3\n0 AMAP_INDS_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP 5/1006 1 3\n)))AMAP_INDS\n\n(((AMAP_INTW\n0 AMAP_INTW_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    3/1006 1 3\n0 AMAP_INTW_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  4/1006 1 3\n0 AMAP_INTW_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP 5/1006 1 3\n)))AMAP_INTW\n\n)))ZHAOZHANG\n\n#==============================================================================\n# --- Chakraborty et al. 2013 India emissions totals ---\n#==============================================================================\n\n(((CHAKRABORTY\n\n(((AMAP_COMB\n0 AMAP_COMB_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    6/1007 1 3\n0 AMAP_COMB_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  7/1007 1 3\n0 AMAP_COMB_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP 8/1007 1 3\n)))AMAP_COMB\n\n(((AMAP_INDS\n0 AMAP_INDS_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    6/1007 1 3\n0 AMAP_INDS_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  7/1007 1 3\n0 AMAP_INDS_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP 8/1007 1 3\n)))AMAP_INDS\n\n(((AMAP_INTW\n0 AMAP_INTW_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    6/1007 1 3\n0 AMAP_INTW_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc Hg2 2010/1/1/0 C xy *       HgCl2  7/1007 1 3\n0 AMAP_INTW_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc HgP 2010/1/1/0 C xy *       Hg2ClP 8/1007 1 3\n)))AMAP_INTW\n\n)))CHAKRABORTY\n\n#==============================================================================\n# WHET emissions inventory\n#==============================================================================\n\n(((WHET\n0 WHET_HG0 $ROOT/MERCURY/v2018-04/WHET_Hg0.geos.1x1.2010_final.nc Hg0 2010/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 WHET_HG2 $ROOT/MERCURY/v2018-04/WHET_Hg2.geos.1x1.2010_final.nc Hg2 2010/1/1/0 C xy *       HgCl2  - 1 1\n0 WHET_HGP $ROOT/MERCURY/v2018-04/WHET_HgP.geos.1x1.2010_final.nc HgP 2010/1/1/0 C xy *       Hg2ClP - 1 1\n)))WHET\n\n#==============================================================================\n# Streets et al. 2019 emissions inventory\n#==============================================================================\n\n(((STREETS\n0 STREETS_HG0 $ROOT/MERCURY/v2021-09/Streets/Streets2019_Hg.nc Hg0 2015/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 STREETS_HG2 $ROOT/MERCURY/v2021-09/Streets/Streets2019_Hg.nc Hg2 2015/1/1/0 C xy *       HgCl2  - 1 1\n0 STREETS_HGP $ROOT/MERCURY/v2021-09/Streets/Streets2019_Hg.nc HgP 2015/1/1/0 C xy *       Hg2ClP - 1 1\n)))STREETS\n\n#==============================================================================\n# EDGAR emissions inventory\n# Either use total (all sectors) or individual sectors, but not both\n#==============================================================================\n\n(((EDGAR_TOT\n0 EDGAR_TOT_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_totals_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 EDGAR_TOT_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_totals_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy *       HgCl2  - 1 1\n0 EDGAR_TOT_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_totals_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy *       Hg2ClP - 1 1\n)))EDGAR_TOT\n\n(((EDGAR_CEM\n0 EDGAR_CEM_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_cement_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 EDGAR_CEM_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_cement_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy *       HgCl2  - 1 1\n0 EDGAR_CEM_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_cement_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy *       Hg2ClP - 1 1\n)))EDGAR_CEM\n\n(((EDGAR_CHLOR\n0 EDGAR_CHLOR_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_chlor_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy kg/m2/s Hg0   - 1 1\n0 EDGAR_CHLOR_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_chlor_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy *       HgCl2 - 1 1\n)))EDGAR_CHLOR\n\n(((EDGAR_COMB_A\n0 EDGAR_COMB_A_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_comb_power_ind_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 EDGAR_COMB_A_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_comb_power_ind_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy *       HgCl2  - 1 1\n0 EDGAR_COMB_A_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_comb_power_ind_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy *       Hg2ClP - 1 1\n)))EDGAR_COMB_A\n\n(((EDGAR_COMB_B\n0 EDGAR_COMB_B_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_comb_res_oth_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy kg/m2/s Hg0    - 1 1\n0 EDGAR_COMB_B_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_comb_res_oth_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy *       HgCl2  - 1 1\n0 EDGAR_COMB_B_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_comb_res_oth_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy *       Hg2ClP - 1 1\n)))EDGAR_COMB_B\n\n(((EDGAR_GLASS\n0 EDGAR_GLASS_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_glass_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_GLASS_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_glass_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_GLASS_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_glass_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_GLASS\n\n(((EDGAR_GOLDA\n0 EDGAR_GOLDA_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_gold_A_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0 - 1 1\n)))EDGAR_GOLDA\n\n(((EDGAR_GOLDB\n0 EDGAR_GOLDB_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_gold_L_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_GOLDB_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_gold_L_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_GOLDB_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_gold_L_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_GOLDB\n\n(((EDGAR_IRO\n0 EDGAR_IRO_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_Iro_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_IRO_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_Iro_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_IRO_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_Iro_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_IRO\n\n(((EDGAR_NFEOTH\n0 EDGAR_NFEOTH_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_nfe_oth_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_NFEOTH_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_nfe_oth_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_NFEOTH_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_nfe_oth_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_NFEOTH\n\n(((EDGAR_SHIP\n0 EDGAR_SHIP_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_shipping_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_SHIP_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_shipping_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_SHIP_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_shipping_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_SHIP\n\n(((EDGAR_TRO\n0 EDGAR_TRO_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_tro_roa_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_TRO_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_tro_roa_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_TRO_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_tro_roa_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_TRO\n\n(((EDGAR_WASTE\n0 EDGAR_WASTE_HG0 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_waste_$YYYY_Hg.nc emi_hg_g 1970-2012/1/1/0 C xy * Hg0    - 1 1\n0 EDGAR_WASTE_HG2 $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_waste_$YYYY_Hg.nc emi_hg_d 1970-2012/1/1/0 C xy * HgCl2  - 1 1\n0 EDGAR_WASTE_HGP $ROOT/MERCURY/v2020-07/EDGAR/$YYYY/EDGAR_waste_$YYYY_Hg.nc emi_hg_p 1970-2012/1/1/0 C xy * Hg2ClP - 1 1\n)))EDGAR_WASTE\n\n#==============================================================================\n# --- Emissions Controls for Coal Fired Power Plants  ---\n# Only applies to US, Canada, EU, and China\n# NOTE: Should only be used with the AMAP/UNEP 2010 emissions (AMAP_COMB,\n#       AMAP_INDS, AMAP_CONT set to true)\n# See Yanxu Zhang et al. 2016 for details\n#==============================================================================\n\n(((EMISS_CONTROLS\n0 NPRI2011_HG0 $ROOT/MERCURY/v2014-09/NPRI2011/Hg0.NPRI_2011_def_spec.025x03125.nc Hg0 2011/1/1/0 C xy kg/m2/s Hg0    10/1008 1 2\n0 NPRI2011_HG2 $ROOT/MERCURY/v2014-09/NPRI2011/Hg2.NPRI_2011_def_spec.025x03125.nc Hg2 2011/1/1/0 C xy *       HgCl2  9/1008  1 2\n0 NPRI2011_HGP $ROOT/MERCURY/v2014-09/NPRI2011/HgP.NPRI_2011_def_spec.025x03125.nc HgP 2011/1/1/0 C xy *       Hg2ClP 1008    1 2\n0 EU_CONT_HG0  $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc               Hg0 2010/1/1/0 C xy kg/m2/s Hg0    11/1009 1 3\n0 EU_INDS_HG0  $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc               Hg0 2010/1/1/0 C xy kg/m2/s Hg0    1009    1 3\n0 EU_INTW_HG0  $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc               Hg0 2010/1/1/0 C xy kg/m2/s Hg0    1009    1 3\n0 EU_CONT_HG2  $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc               Hg2 2010/1/1/0 C xy *       HgCl2  9/1009  1 3\n0 EU_INDS_HG2  $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc               Hg2 2010/1/1/0 C xy *       HgCl2  1009    1 3\n0 EU_INTW_HG2  $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc               Hg2 2010/1/1/0 C xy *       HgCl2  1009    1 3\n0 EU_COMB_HGP  $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc               HgP 2010/1/1/0 C xy *       Hg2ClP 1009    1 3\n0 EU_INTW_HGP  $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc               HgP 2010/1/1/0 C xy *       Hg2ClP 1009    1 3\n0 EU_INDS_HGP  $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc               HgP 2010/1/1/0 C xy *       Hg2ClP 1009    1 3\n0 CHN_CONT_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc               Hg0 2010/1/1/0 C xy kg/m2/s Hg0    12/1006 1 4\n0 CHN_INDS_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc               Hg0 2010/1/1/0 C xy kg/m2/s Hg0    1006    1 4\n0 CHN_INTW_HG0 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc               Hg0 2010/1/1/0 C xy kg/m2/s Hg0    1006    1 4\n0 CHN_CONT_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc               Hg2 2010/1/1/0 C xy *       HgCl2  9/1006  1 4\n0 CHN_INDS_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc               Hg2 2010/1/1/0 C xy *       HgCl2  1006    1 4\n0 CHN_INTW_HG2 $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc               Hg2 2010/1/1/0 C xy *       HgCl2  1006    1 4\n0 CHN_COMB_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_comb.0.5x0.5.2010.nc               HgP 2010/1/1/0 C xy *       Hg2ClP 1006    1 4\n0 CHN_INDS_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_inds.0.5x0.5.2010.nc               HgP 2010/1/1/0 C xy *       Hg2ClP 1006    1 4\n0 CHN_INTW_HGP $ROOT/MERCURY/v2014-09/AMAP/AMAP_intw.0.5x0.5.2010.nc               HgP 2010/1/1/0 C xy *       Hg2ClP 1006    1 4\n0 NEI2011_HG0  $ROOT/MERCURY/v2014-09/NEI2011/US_NEI2011_Hg0.geos5.05x0666.nc      Hg0 2010/1/1/0 C xy kg/m2/s Hg0    1005    1 5\n0 NEI2011_HG2  $ROOT/MERCURY/v2014-09/NEI2011/US_NEI2011_Hg2.geos5.05x0666.nc      Hg2 2010/1/1/0 C xy *       HgCl2  1005    1 5\n0 NEI2011_HGP  $ROOT/MERCURY/v2014-09/NEI2011/US_NEI2011_HgP.geos5.05x0666.nc      HgP 2010/1/1/0 C xy *       Hg2ClP 1005    1 5\n)))EMISS_CONTROLS\n\n#==============================================================================\n# --- Artisanal mining ---\n#==============================================================================\n(((ARTISANAL\n0 ARTISANAL_HG0 $ROOT/MERCURY/v2014-09/ARTISANAL/artisanal.geos.4x5.nc Hg0 1985/1/1/0 C xy kg/m2/s Hg0 1 8 1\n)))ARTISANAL\n\n#==============================================================================\n# --- Natural emissions ---\n#==============================================================================\n(((NATURAL\n0 NATURAL_HG0 $ROOT/MERCURY/v2014-09/NATURAL/newnatural.geos.4x5.nc Hg0 1985/1/1/0 C xy kg/m2/s Hg0 2 3 1\n)))NATURAL\n\n#==============================================================================\n# --- MCHgMAP natural emissions ---\n#     Dastoor et al. 2025\n#     https://doi.org/10.5194/gmd-18-2747-2025\n#==============================================================================\n(((MCHgMAP_NATURAL\n0 RockWeathering_Hg0 $ROOT/MERCURY/v2025-06/GeogenicEmissions/Hg_geogenic.kgm2s.nc4 Hg_rock_weathering_emission 2010-2020/1/1/0 C xy kg/m2/s Hg0 - 3 1\n0 Volcanic_Hg0       $ROOT/MERCURY/v2025-06/GeogenicEmissions/Hg_geogenic.kgm2s.nc4 Hg_volcanic_emission        2010-2020/1/1/0 C xy kg/m2/s Hg0 - 3 1\n)))MCHgMAP_NATURAL\n\n#==============================================================================\n# --- Soil distribution factor (pointer is imported in mercury_mod.F) ---\n#\n# NOTE: Here we use the 4x5 GEOS-FP file, but users may want to change this\n# for other met fields and resolutions.\n#==============================================================================\n(((SOILDIST\n0 HG0_SOILDIST $ROOT/MERCURY/v2014-09/SOIL/soilHg.presentday.v11-01.geosfp.4x5.nc HG0_DIST 1985/1/1/0 C xy unitless * - 1 1\n)))SOILDIST\n\n#==============================================================================\n# --- QFED2 biomass burning ---\n#==============================================================================\n(((QFED2\n0 QFED_Hg_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s Hg0  54/75/311 5 2\n0 QFED_Hg_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s Hg0  54/75/312 5 2\n)))QFED2\n\n#==============================================================================\n# --- MCHgMAP (GFED) biomass burning (90% Hg0,10% HgP) ---\n#     Dastoor et al. 2025\n#     https://doi.org/10.5194/gmd-18-2747-2025\n#==============================================================================\n(((MCHgMAP_BB_GFED\n0 GFED_Hg0      $ROOT/MERCURY/v2025-06/BioBurn_emissions_GFED4s/$YYYY/Hg_wildfire_monthly_gfed4s_flux_$YYYY$MM.nc4 Hg0 2010-2020/1-12/1-31/0 C xy kg/m2/s Hg0    - 12 1\n0 GFED_HgP      $ROOT/MERCURY/v2025-06/BioBurn_emissions_GFED4s/$YYYY/Hg_wildfire_monthly_gfed4s_flux_$YYYY$MM.nc4 HgP 2010-2020/1-12/1-31/0 C xy kg/m2/s Hg2ClP - 12 1\n)))MCHgMAP_BB_GFED\n\n#==============================================================================\n# --- MCHgMAP (FINN) biomass burning (90% Hg0,10% HgP) ---\n#     Dastoor et al. 2025\n#     https://doi.org/10.5194/gmd-18-2747-2025\n#==============================================================================\n(((MCHgMAP_BB_FINN\n0 FINN_Hg0      $ROOT/MERCURY/v2025-06/BioBurn_emissions_FINN2p5/$YYYY/Hg_wildfire_monthly_finn_flux_$YYYY$MM.nc Hg0 2010-2020/1-12/1-31/0 C xy kg/m2/s Hg0    - 12 1\n0 FINN_HgP      $ROOT/MERCURY/v2025-06/BioBurn_emissions_FINN2p5/$YYYY/Hg_wildfire_monthly_finn_flux_$YYYY$MM.nc HgP 2010-2020/1-12/1-31/0 C xy kg/m2/s Hg2ClP - 12 1\n)))MCHgMAP_BB_FINN\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTE: These are the base emissions in kgDM/m2/s.\n#==============================================================================\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n#==============================================================================\n# --- FINN v1.5 biomass burning emissions (Extension 114)\n#==============================================================================\n(((.not.FINN_daily\n114 FINN_VEGTYP1       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype1 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP2       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype2 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP3       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype3 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP4       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype4 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP5       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype5 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP9       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype9 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n))).not.FINN_daily\n\n(((FINN_daily\n114 FINN_DAILY_VEGTYP1 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype1 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP2 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype2 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP3 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype3 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP4 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype4 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP5 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype5 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP9 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype9 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n)))FINN_daily\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_                 ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?       $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY              ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY            $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* OCEAN_Hg0            ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_OceanHg0          $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* OCEAN_Hg2            ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_OceanHg2          $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* OCEAN_HgP            ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_OceanHgP          $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SNOW_HG_OCEAN        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SnowHgOcean       $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SNOW_HG_LAND         ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SnowHgLand        $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SNOW_HG_OCEAN_STORED ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SnowHgOceanStored $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SNOW_HG_LAND_STORED  ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SnowHgLandStored  $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- GEOS-Chem boundary condition file ---\n#==============================================================================\n(((GC_BCs\n* BC_  $ROOT/SAMPLE_BCs/v2019-05/tropchem/GEOSChem.BoundaryConditions.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesBC_?ADV?  1900-2100/1-12/1-31/* EFY xyz 1 * - 1 1\n)))GC_BCs\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Oxidant fields (from GEOS-Chem 10-yr benchmark output) ---\n#==============================================================================\n(((OXIDANT_FIELDS\n\n# --- Oxidant fields [molec/cm3], for 2010-2019 ---\n# Consider supplying other years as necessary\n${RUNDIR_Hg_GLOBAL_Br}\n${RUNDIR_Hg_GLOBAL_BrO}\n${RUNDIR_Hg_GLOBAL_CH4}\n${RUNDIR_Hg_GLOBAL_Cl}\n${RUNDIR_Hg_GLOBAL_ClO}\n${RUNDIR_Hg_GLOBAL_CO}\n${RUNDIR_Hg_GLOBAL_HO2}\n${RUNDIR_Hg_GLOBAL_NO}\n${RUNDIR_Hg_GLOBAL_NO2}\n${RUNDIR_Hg_GLOBAL_O3}\n${RUNDIR_Hg_GLOBAL_OH}\n\n# --- Aerosol optical depths [unitless], for 2010-2019 ---\n# Consider supplying other years as necessary\n${RUNDIR_Hg_GLOBAL_AOD_BC}     \n${RUNDIR_Hg_GLOBAL_AOD_BGSULF} \n${RUNDIR_Hg_GLOBAL_AOD_DST1}   \n${RUNDIR_Hg_GLOBAL_AOD_DST2}   \n${RUNDIR_Hg_GLOBAL_AOD_DST3}   \n${RUNDIR_Hg_GLOBAL_AOD_DST4}   \n${RUNDIR_Hg_GLOBAL_AOD_DST5}   \n${RUNDIR_Hg_GLOBAL_AOD_DST6}   \n${RUNDIR_Hg_GLOBAL_AOD_DST7}  \n${RUNDIR_Hg_GLOBAL_AOD_ICEI}   \n${RUNDIR_Hg_GLOBAL_AOD_OC}     \n${RUNDIR_Hg_GLOBAL_AOD_SO4}\n${RUNDIR_Hg_GLOBAL_AOD_SSA}    \n${RUNDIR_Hg_GLOBAL_AOD_SSC}    \n\n# --- Aerosol areas [cm2/cm3], for 2010-2019 ---\n# Consider supplying other years as necessary\n${RUNDIR_Hg_GLOBAL_AREA_BC}     \n${RUNDIR_Hg_GLOBAL_AREA_BGSULF} \n${RUNDIR_Hg_GLOBAL_AREA_DST1}   \n${RUNDIR_Hg_GLOBAL_AREA_DST2}   \n${RUNDIR_Hg_GLOBAL_AREA_DST3}   \n${RUNDIR_Hg_GLOBAL_AREA_DST4}   \n${RUNDIR_Hg_GLOBAL_AREA_DST5}   \n${RUNDIR_Hg_GLOBAL_AREA_DST6}   \n${RUNDIR_Hg_GLOBAL_AREA_DST7}  \n${RUNDIR_Hg_GLOBAL_AREA_ICEI}   \n${RUNDIR_Hg_GLOBAL_AREA_OC}     \n${RUNDIR_Hg_GLOBAL_AREA_SO4}\n${RUNDIR_Hg_GLOBAL_AREA_SSA}    \n${RUNDIR_Hg_GLOBAL_AREA_SSC}   \n\n# --- Aerosol radii [cm], for 2010-2019 ---\n# Consider supplying other years as necessary\n${RUNDIR_Hg_GLOBAL_RADI_BC}     \n${RUNDIR_Hg_GLOBAL_RADI_BGSULF} \n${RUNDIR_Hg_GLOBAL_RADI_DST1}   \n${RUNDIR_Hg_GLOBAL_RADI_DST2}   \n${RUNDIR_Hg_GLOBAL_RADI_DST3}   \n${RUNDIR_Hg_GLOBAL_RADI_DST4}   \n${RUNDIR_Hg_GLOBAL_RADI_DST5}   \n${RUNDIR_Hg_GLOBAL_RADI_DST6}   \n${RUNDIR_Hg_GLOBAL_RADI_DST7}  \n${RUNDIR_Hg_GLOBAL_RADI_ICEI}   \n${RUNDIR_Hg_GLOBAL_RADI_OC}     \n${RUNDIR_Hg_GLOBAL_RADI_SO4}\n${RUNDIR_Hg_GLOBAL_RADI_SSA}    \n${RUNDIR_Hg_GLOBAL_RADI_SSC}\n\n# --- Other fields ---\n# fOA and RH (2016) and ocean_conc (2007) are unitless; PM25 (2016) is in [ug/m3]\n# Consider supplying other years as necessary\n${RUNDIR_Hg_GLOBAL_fOA}\n${RUNDIR_Hg_GLOBAL_OCEAN}\n${RUNDIR_Hg_GLOBAL_PM25}\n${RUNDIR_Hg_GLOBAL_RH}\n)))OXIDANT_FIELDS\n\n#==============================================================================\n# --- Data for the ocean mercury module ---\n#==============================================================================\n(((OCEAN_Hg\n* OCEAN_CHLA    $ROOT/CHLA/v2014-07/Chl_2003.geos.1x1.nc               CHLA    2003/1-12/1/0 C xy kg/m3 * - 1 1\n* OCEAN_CHLA_A  $ROOT/MERCURY/v2014-09/OCEAN/CHL_ocn_2009.geos.2x25.nc CHLO_A  2009/1-12/1/0 C xy 1     * - 1 1\n* OCEAN_EKMAN_V $ROOT/MERCURY/v2014-09/OCEAN/ekman_upvel.geos.2x25.nc  EKMAN_V 1985/1-12/1/0 C xy m/s   * - 1 1\n* OCEAN_MLD     $ROOT/MERCURY/v2014-09/OCEAN/MLD_DReqDT.geos.2x25.nc   MLD     1985/1-12/1/0 C xy m     * - 1 1\n* OCEAN_NPP     $ROOT/MERCURY/v2014-09/OCEAN/NPP_2003.geos.2x25.nc     NPP     2003/1-12/1/0 C xy kg/m2 * - 1 1\n* OCEAN_NPP_A   $ROOT/MERCURY/v2014-09/OCEAN/NPP_ocn_2009.geos.2x25.nc NPP_A   2009/1-12/1/0 C xy 1     * - 1 1\n* OCEAN_dMLD1   $ROOT/MERCURY/v2014-09/OCEAN/dMLD1_DreqDT.geos.2x25.nc dMLD1   1985/1-12/1/0 C xy cm/s  * - 1 1\n* OCEAN_dMLD2   $ROOT/MERCURY/v2014-09/OCEAN/dMLD2_DreqDT.geos.2x25.nc dMLD2   1985/1-12/1/0 C xy cm/s  * - 1 1\n)))OCEAN_Hg\n\n#==============================================================================\n# --- TOMS/SBUV overhead ozone columns ---\n#==============================================================================\n(((TOMS_SBUV_O3\n* TOMS_O3_COL $ROOT/TOMS_SBUV/v2015-03/TOMS_O3col_$YYYY.geos.1x1.nc       TOMS     1971-2010/1-12/1/0 C xy dobsons * - 1 1\n* TOMS_O3_PD  $ROOT/TOMS_SBUV/v2015-03/TOMS_O3col_presentday.geos.2x25.nc TOMS_PD  1985/1-12/1/0      C xy dobsons * - 1 1\n* TOMS_O3_LT  $ROOT/TOMS_SBUV/v2015-03/TOMS_O3col_longterm.geos.2x25.nc   TOMS_LT  1985/1-12/1/0      C xy dobsons * - 1 1\n)))TOMS_SBUV_O3\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n# --- Scale factors for anthropogenic, artisinal, and soil emissions ---\n1  ARTISANALSCALE 0.75    - - - xy 1 1\n2  SOILSCALE      0.5     - - - xy 1 1\n3  ZHANGZHAO_0    1.120   - - - xy 1 1\n4  ZHANGZHAO_2    2.467   - - - xy 1 1\n5  ZHANGZHAO_P    0.557   - - - xy 1 1\n6  CHAKRABORTY_0  1.401   - - - xy 1 1\n7  CHAKRABORTY_2  2.120   - - - xy 1 1\n8  CHAKRABORTY_P  2.856   - - - xy 1 1\n9  EMISSCONT_2    0.5     - - - xy 1 1\n10 NPRI_CONT_0    1.343   - - - xy 1 1\n11 EU_CONT_0      1.396   - - - xy 1 1\n12 CHN_CONT_0     1.400   - - - xy 1 1\n13 HgCl2_to_Hg    0.7403  - - - xy 1 1\n54 COtoHg0_BB     7.16e-7 - - - xy 1 1\n\n#==============================================================================\n# --- QFED2 diurnal scale factors ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n\n#==============================================================================\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016), emit 35% of QFED\n# emissions above the PBL.\n#==============================================================================\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\n1005 USA_MASK       $ROOT/MASKS/v2014-07/USA_mask.geos.1x1.nc         MASK 1985/1/1/0 C xy 1 1 -140/10/-40/70\n1006 CHINA_MASK     $ROOT/MASKS/v2014-07/China_mask.generic.1x1.nc    MASK 1985/1/1/0 C xy 1 1 70/15/125/50\n1007 INDIA_MASK     $ROOT/MASKS/v2014-07/India_mask.generic.1x1.nc    MASK 1985/1/1/0 C xy 1 1 65/5/100/35\n1008 CANADA_MASK    $ROOT/MASKS/v2014-07/Canada_mask.gen.1x1.nc       MASK 2000/1/1/0 C xy 1 1 -130/45/-50/85\n1009 EUROPE_MASK    $ROOT/MASKS/v2014-07/EU_mask.generic.1x1.nc       MASK 1985/1/1/0 C xy 1 1 20/35/50/80\n1010 AUSTRALIA_MASK $ROOT/MASKS/v2025-01/AU_mask.generic.0.25x0.25.nc MASK 1985/1/1/0 C xy 1 1 110/-45/155/-10\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.POPs",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              2\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OXIDANT_FIELDS         :       true     # 2010-2019\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n#------------------------------------------------------------------------------\n1002    GC_POPs                : on    POPG_${RUNDIR_POP_SPC}/POPPOCPO_${RUNDIR_POP_SPC}/POPPBCPO_${RUNDIR_POP_SPC}\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n(((EMISSIONS\n\n#==============================================================================\n# --- GEOS-Chem POPs emissions (Extension 1002) ---\n#==============================================================================\n(((GC_POPs\n1002 TOT_POP     $ROOT/POPs/v2015-08/${RUNDIR_POP_SPC}_wildfredist.generic.1x1.nc PG_SRCE__POPG  2004/1/1/0         C xy  kg/m2/s * - 1 1\n1002 SURF_POP    $ROOT/POPs/v2015-08/${RUNDIR_POP_SPC}_soil_conc.geos5.4x5.nc     IJ_AVG_S__POPG 2009/1/1/0         C xy  1       * - 1 1\n1002 SOIL_CARBON $ROOT/POPs/v2015-08/GTMM_carbon.generic.1x1.nc     SOIL_CARBON    1985/1/1/0         C xy  1       * - 1 1\n${RUNDIR_GLOBAL_OC}\n${RUNDIR_GLOBAL_BC}\n)))GC_POPs\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Oxidant fields --\n#==============================================================================\n(((OXIDANT_FIELDS\n${RUNDIR_GLOBAL_O3}\n${RUNDIR_GLOBAL_OH}\n)))OXIDANT_FIELDS\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.TransportTracers",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> EDGARv42_SF6           :       true     # 1970-2008\n    --> OCEAN_CH3I             :       true\n    --> CEDS_01x01             :       true     # 1980-2019\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAP                   :       false    # 2008-2010\n    --> UNIFORM_CO             :       true\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n#------------------------------------------------------------------------------\n100     GC_Rn-Pb-Be            : on    Rn222/Be7/Be7s/Be10/Be10s\n# ----- Always Leave Extension 100 turned on.  Furthermore:\n# ----- Turning on  ZHANG_Rn222 will use Zhang et al [2020] Rn222 emissions\n# ----- Turning off ZHANG_Rn222 will use default emissions (Jacob et al [1997])\n101     ZHANG_Rn222            : on    Rn222\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# SF6 emissions from EDGAR v4.2\n#==============================================================================\n(((EDGARv42_SF6\n0 EDGAR_SF6  $ROOT/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc emi_sf6 1970-2008/1/1/0 C xy kg/m2/s SF6 - 1 1\n)))EDGARv42_SF6\n\n#==============================================================================\n# CH3I emitted over the oceans at rate of 1 molec/cm2/s\n#==============================================================================\n(((OCEAN_CH3I\n0 SRC_2D_CH3I 1.0 - - - xy molec/cm2/s CH3I 1000 1 1\n)))OCEAN_CH3I\n\n#==============================================================================\n# Anthropogenic CO 25-day and 50-day tracers\n#\n# Choose CEDS, EDGAR, or HTAP\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_CO_25_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_agr  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_AGR   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ene  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_ENE   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ind  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_IND   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_tra  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_TRA   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_rco  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_RCO   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_slv  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_SLV   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_wst  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_WST   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_shp  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_SHP   -                                                   -       -                  - -  -       CO_50 26 1 5\n)))CEDS_01x01\n\n(((EDGARv43\n0  EDGAR_CO_25_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1201/26/52 1/2 2\n0  EDGAR_CO_50_POW -                                                    -       -               - -  -       CO_50 1201/26/52 1/2 2\n0  EDGAR_CO_25_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1202/26/52 1/2 2\n0  EDGAR_CO_50_ENG -                                                    -       -               - -  -       CO_50 1202/26/52 1/2 2\n0  EDGAR_CO_25_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1203/26/52 1/2 2\n0  EDGAR_CO_50_IND -                                                    -       -               - -  -       CO_50 1203/26/52 1/2 2\n0  EDGAR_CO_25_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1204/26/52 1/2 2\n0  EDGAR_CO_50_TRO -                                                    -       -               - -  -       CO_50 1204/26/52 1/2 2\n0  EDGAR_CO_25_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1205/26/52 1/2 2\n0  EDGAR_CO_50_TNG -                                                    -       -               - -  -       CO_50 1205/26/52 1/2 2\n0  EDGAR_CO_25_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1206/26/52 1/2 2\n0  EDGAR_CO_50_RCO -                                                    -       -               - -  -       CO_50 1206/26/52 1/2 2\n0  EDGAR_CO_25_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1207/26/52 1/2 2\n0  EDGAR_CO_50_PPA -                                                    -       -               - -  -       CO_50 1207/26/52 1/2 2\n#0 EDGAR_CO_25_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1209/26/52 1/2 2\n#0 EDGAR_CO_50_AWB -                                                    -       -               - -  -       CO_50 1209/26/52 1/2 2\n0  EDGAR_CO_25_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1211/26/52 1/2 2\n0  EDGAR_CO_50_SWD -                                                    -       -               - -  -       CO_50 1211/26/52 1/2 2\n0  EDGAR_CO_25_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1212/26/52 1/2 2\n0  EDGAR_CO_50_FFF -                                                    -       -               - -  -       CO_50 1211/26/52 1/2 2\n)))EDGARv43\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Zhang et al [2021] Rn222 emissions ---\n# --- cf https://acp.copernicus.org/articles/21/1861/2021/ ---\n#==============================================================================\n(((ZHANG_Rn222\n101 ZHANG_Rn222_EMIS $ROOT/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc rnemis 2001/1-12/1/0 C xy kg/m2/s Rn222 - 1 1\n)))ZHANG_Rn222\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((HTAP\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n28 LIQFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2008-2010/1/1/0 C xy 1 -1\n)))HTAP\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# --- VOC speciations ---\n#==============================================================================\n(((EDGARv43\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43\n\n)))EMISSIONS\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n(((OCEAN_CH3I\n${RUNDIR_OCEAN_MASK}\n)))OCEAN_CH3I\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.aerosol",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n# See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n    --> HEMCO_RESTART          :       true\n# ----- NESTED GRID FIELDS ----------------------------------------------------\n    --> GC_BCs                 :       ${RUNDIR_USE_BCs}\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> CEDS_01x01             :       ${RUNDIR_USE_CEDS}    # 1980-2019\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAPv3                 :       false    # 2000-2018\n    --> GEIA_NH3               :       true     # 1990\n    --> SEABIRD_NH3            :       true     # 1990\n    --> DECAYING_PLANTS        :       true     # 1985\n    --> AFCID                  :       true     # 2015\n# ----- AIRCRAFT EMISSIONS ----------------------------------------------------\n# There are 3 switches:\n#\n#  1. AEIC2019_DAILY selects daily AEIC 2019 emissions.  For most simulations,\n#     this is not recommended due to the amount of computational overhead\n#     that will be incurred in regridding.  But this may be useful for\n#     research purposes.  Recommended setting: \"AEIC2019_DAILY: false\".\n#\n#  2. AEIC2019_MONMEAN selects monthly-mean AEIC 2019 emisisons, which will\n#     incur much less computational overhaead.  This option should suffice\n#     for most simulations.  Recommended setting \"AEIC2019_MONMEAN: true\".\n#\n#  3. AEIC_SCALE_1990_2019: If \"false\", the AEIC 2019 data from the year\n#     2019 alone will be used.  This will yield a \"best estimate\" of\n#     aviation emisssion. This could be important because simply scaling\n#     aviation emissions up and down is rather nonphysical.  But if\n#     AEIC_SCALE_1990_2019 is set to true, then aviation emissions for\n#     1990 to 2019 are estimated by:\n#\n#     a. Scaling ALL aviation emissions based on the growth in fuelburn\n#        from 1990 to 2019* estimated by Lee et al. (2021)\n#\n#     Recommended setting: \"AEIC_SCALE_1990_2019: true\"\n#\n# See additional notes in the AEIC scale factor section below.\n#------------------------------------------------------------------------------\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       ${RUNDIR_USE_AEIC}     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       ${RUNDIR_USE_AEIC}     # Scale to year in 1990-2019\n# ----- SHIP EMISSIONS --------------------------------------------------------\n    --> SHIP                   :       true\n    --> CEDS_01x01_SHIP        :       ${RUNDIR_USE_CEDS}    # 1980-2019\n    --> HTAPv3_SHIP            :       false    # 2000-2018\n# ----- RCP FUTURE EMISSIONS --------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- CMIP6 ANTHRO EMISSIONS / BOUNDARY CONDITIONS --------------------------\n#   Set GCAPSCENARIO (e.g., HIST, SSP585) above in SECTION SETTINGS\n    --> CMIP6_SFC_BC           :       ${RUNDIR_CMIP6_FIELDS}    # 1750-2100\n    --> CMIP6_SFC_LAND_ANTHRO  :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> CMIP6_AIRCRAFT         :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> CMIP6_SHIP             :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n# ----- BIOMASS BURNING EMISSIONS ---------------------------------------------\n    --> QFED2                  :       false    # 2000-2020\n    --> GFAS                   :       false    # 2003-2021\n    --> BB4MIPS                :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> GFED4_CLIMATOLOGY      :       false    # If true, turn off GFED ext below\n    --> FINNv25                :       false    # 2012-2023\n# ----- OFFLINE EMISSIONS -----------------------------------------------------\n# To use online emissions instead set the offline emissions to 'false' and the\n# corresponding HEMCO extension to 'on':\n#   OFFLINE_DUST        - DustL23M\n#   OFFLINE_BIOGENICVOC - MEGAN\n#   OFFLINE_SEASALT     - SeaSalt\n#   OFFLINE_SOILNOX     - SoilNOx\n#\n# NOTE: When switching between offline and online emissions, make sure to also\n# update ExtNr and Cat in HEMCO_Diagn.rc to properly save out emissions for\n# any affected species.\n#------------------------------------------------------------------------------\n    --> OFFLINE_DUST           :       ${RUNDIR_OFFLINE_DUST}    # 1980-2019\n    --> OFFLINE_BIOGENICVOC    :       ${RUNDIR_OFFLINE_BIOVOC}    # 1980-2020\n    --> OFFLINE_SEASALT        :       ${RUNDIR_OFFLINE_SEASALT}    # 1980-2019\n    -->  CalcBrSeasalt         :       false\n    --> OFFLINE_SOILNOX        :       ${RUNDIR_OFFLINE_SOILNOX}    # 1980-2020\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> UVALBEDO               :       true     # 1985\n    --> OMOC_RATIO             :       false    # 2010\n    --> OXIDANT_FIELDS         :       true     # 2010-2019\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n    --> RRTMG                  :       ${RUNDIR_USE_RRTMG}    # 2002\n# -----------------------------------------------------------------------------\n100     Custom                 : off   -\n101     SeaFlux                : on    DMS\n107     SeaSalt                : ${RUNDIR_SEASALT_EXT}   SALA/SALC/SALACL/SALCCL/SALAAL/SALCAL/BrSALA/BrSALC/MOPO/MOPI\n    --> SALA lower radius      :       0.01\n    --> SALA upper radius      :       0.5\n    --> SALC lower radius      :       0.5\n    --> SALC upper radius      :       8.0\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       5.0\n    --> Model sea salt Br-     :       false\n    --> Br- mass ratio         :       2.11e-3\n108     MEGAN                  : ${RUNDIR_MEGAN_EXT}   ISOP/ACET/PRPE/C2H4/ALD2/MOH/EOH/MTPA/MTPO/LIMO/SESQ/SOAP/SOAS\n    --> Isoprene scaling       :       1.0\n    --> CO2 inhibition         :       true\n    --> CO2 conc (ppmv)        :       390.0\n    --> Isoprene to SOAP       :       0.015\n    --> Isoprene to SOAS       :       0.015\n    --> Monoterp to SOAP       :       0.050\n    --> Monoterp to SOAS       :       0.050\n    --> Othrterp to SOAP       :       0.050\n    --> Othrterp to SOAS       :       0.050\n111     GFED                   : ${RUNDIR_GFED_EXT}   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO\n    --> GFED4                  :       true\n    --> GFED_daily             :       false\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n    --> Scaling_NAP            :       2.75e-4\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> fraction POG1          :       0.49\n    --> CO to SOAP             :       0.013\n    --> GFED_subgrid_coag      :       false\n117     Volcano                : on    SO2\n    --> Volcano_Source         :       AeroCom\n    --> Volcano_Table          :       ${RUNDIR_VOLC_TABLE}\n    --> Volcano_Climatology    :       ${RUNDIR_VOLC_CLIMATOLOGY}\n125     DustL23M               : on    TDST/DSTbin1/DSTbin2/DSTbin3/DSTbin4/DSTbin5/DSTbin6/DSTbin7\n    --> Mass tuning factor     :       ${RUNDIR_DUSTL23M_TF}\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# --- APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_SOAP $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO  1989-2014/1/1/0 RF xy kg/m2/s CO   26/52/1002/280 1 30\n0 APEI_SO2  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc SOx 1989-2014/1/1/0 RF xy kg/m2/s SO2  60/1002        1 30\n0 APEI_SO4  -                                   -   -               -  -  -       SO4  60/65/1002     1 30\n0 APEI_pFe  -                                   -   -               -  -  -       pFe  60/68/1002     1 30\n0 APEI_NH3  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NH3 1989-2014/1/1/0 RF xy kg/m2/s NH3  1002           1 30\n0 APEI_BCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPI 70/1002        1 30\n0 APEI_BCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPO 71/1002        1 30\n0 APEI_OCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPI 72/1002        1 30\n0 APEI_OCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPO 73/1002        1 30\n)))APEI\n\n#==============================================================================\n# --- EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #1007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_BCPI__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__afdustPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__afdustPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__afdustPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_SO4__afdustPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__agACET             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__agALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__agALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__agBENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_C2H4__agETH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__agETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__agETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__agFORM             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_PRPE__agIOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__agKET               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__agMEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__agNH3               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_PRPE__agOLE              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__agPAR              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_C3H8__agPRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_TOLU__agTOL              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__agXYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__airportsACET       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__airportsACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__airportsALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__airportsALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__airportsBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__airportsCO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__airportsSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__airportsETH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__airportsETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__airportsETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__airportsFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__airportsHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__airportsIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__airportsKET         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__airportsMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NO__airportsNO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__airportsNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__airportsOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__airportsPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__airportsPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__airportsPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__airportsPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__airportsPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__airportsPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__airportsSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__airportspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__airportsSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__airportsTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__airportsXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonptACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__nonptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__nonptCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__nonptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__nonptHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HCL        2016/1-12/1/0      R  xy   kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__nonptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__nonptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonroadACET        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonroadACROLEIN    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__nonroadALD2        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonroadALDX        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonroadBENZ        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__nonroadCO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonroadSOAP        -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonroadETH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonroadETHA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonroadETOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonroadFORM        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__nonroadHONO        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadIOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonroadKET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonroadMEOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonroadNH3          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonroadNO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonroadNO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonroadPAR         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonroadPNA         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonroadPNH4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonroadPNO3         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__nonroadPRPA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonroadPSO4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonroadSO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonroadspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonroadSULF         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonroadTOL         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonroadXYLMN       $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__npogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__npogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__npogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__npogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__npogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__npogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__npogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__npogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__npogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__npogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__npogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__npogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__npogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__npogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__npogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__npogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__npogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__npogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__npogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__npogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__npogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__npogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__npogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__npogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__npogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__npogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__npogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__npogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__npogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__npogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__npogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroadACET         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroadACROLEIN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__onroadALD2         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroadALDX         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroadBENZ         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroadCO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroadSOAP         -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroadETH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroadETHA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroadETOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroadFORM         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroadHONO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroadIOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroadKET           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroadMEOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroadNH3           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroadNO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroadNO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroadOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroadPAR          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroadPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroadPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroadPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__onroadPRPA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroadPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroadSO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroadpFe           -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroadTOL          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroadXYLMN        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_caACET      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_caACROLEIN  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_caALD2      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_caALDX      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_caBENZ      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_caCO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP_onroad__caSOAP      -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_caETH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_caETHA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_caETOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_caFORM      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_caHONO      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caIOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_caKET        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_caMEOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_caNH3        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_caNO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_caNO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_caPAR       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_caPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_caPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_caPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__onroad_caPRPA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_caPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_caSO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_capFe        -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroad_caTOL       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_caXYLMN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__railACET           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__railACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__railALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__railALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__railBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__railCO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__railSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__railETH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__railETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__railETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__railFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__railHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__railIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__railKET             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__railMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__railNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__railNO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__railNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__railOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__railPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__railPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__railPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__railPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__railPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__railPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__railSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__railpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__railSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__railTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__railXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__rwcACET            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__rwcACROLEIN        $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__rwcALD2            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__rwcALDX            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__rwcBENZ            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__rwcCL2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__rwcCO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__rwcSOAP            -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__rwcETH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__rwcETHA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__rwcETOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__rwcFORM            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__rwcHONO            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__rwcIOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__rwcKET              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__rwcMEOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__rwcNH3              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__rwcNO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__rwcNO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__rwcOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__rwcPAR             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__rwcPNA             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__rwcPNH4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__rwcPNO3             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__rwcPRPA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__rwcPSO4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__rwcSO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__rwcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__rwcSULF             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__rwcTOL             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__rwcXYLMN           $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c1c2ACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c1c2ALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c1c2ALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c1c2BENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c1c2CO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__clc2SOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c1c2ETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c1c2ETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c1c2ETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c1c2FORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c1c2HONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2IOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c1c2KET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c1c2MEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c1c2NH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c1c2NO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c1c2NO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2OLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c1c2PAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c1c2PNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c1c2PNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c1c2PNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__c1c2PRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c1c2PSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c1c2SO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__clcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c1c2SULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c1c2TOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c1c2XYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c3ACET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c3ALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c3ALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c3BENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c3CO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__c3SOAP             -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c3ETH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c3ETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c3ETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c3FORM             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c3HONO             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c3IOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c3KET               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c3MEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c3NH3               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c3NO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c3NO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c3OLE              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c3PAR              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c3PNA              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c3PNH4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c3PNO3              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__c3PRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c3PSO4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c3SO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__c2pFe               -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c3SULF              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c3TOL              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c3XYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__pteguACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__pteguACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__pteguALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__pteguALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__pteguBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__pteguCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__pteguCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__pteguSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__pteguETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__pteguETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__pteguETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__pteguFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__pteguHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__pteguHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__pteguIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__pteguKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__pteguMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__pteguNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__pteguNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__pteguNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__pteguOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__pteguPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__pteguPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__pteguPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__pteguPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__pteguPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__pteguPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__pteguSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptegupFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__pteguSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__pteguTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__pteguXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__ptogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptogHCL             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO         2002-2020/1-12/1/0 RF xyz  kgNO2/m2/s NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__ptogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptnonipmACET       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptnonipmACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__ptnonipmALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptnonipmALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptnonipmBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptnonipmCL2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CL2        2002-2020/1-12/1/0 R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptnonipmCO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptnonipmSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptnonipmETH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptnonipmETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptnonipmETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptnonipmFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptnonipmHCL         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HCL        2002-2020/1-12/1/0 R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptnonipmHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptnonipmKET         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptnonipmMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptnonipmNH3         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptnonipmNO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptnonipmNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptnonipmPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptnonipmPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptnonipmPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptnonipmPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__ptnonipmPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptnonipmPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptnonipmSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptnonipmpFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptnonipmSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptnonipmTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptnonipmXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_canACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_canALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_canALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_canBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_canCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_canSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_canETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_canETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_canETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_canFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_canHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_canKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_canMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_canNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_canNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_canNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_canPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_canPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_canPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_canPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__onroad_canPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_canPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_canSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_canpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_canSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_canTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_canXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_mexACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    MACR   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_mexALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_mexALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_mexBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_mexCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_mexSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_mexETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_mexETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_mexETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_mexFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_mexHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_mexKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_mexMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_mexNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_mexNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_mexNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_mexPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_mexPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_mexPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_mexPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__onroad_mexPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_mexPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_mexSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_mexpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_mexSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_mexTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_mexXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othafdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othafdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othafdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_SO4__othafdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__otharACET          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__otharALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__otharALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__otharBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__otharCO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__otharSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__otharETH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__otharETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__otharETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__otharFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__otharHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__otharIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__otharKET            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__otharMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__otharNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__otharNO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__otharNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__otharOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__otharPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__otharPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__otharPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__otharPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__otharPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__otharPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__otharSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__otharpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__otharSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__otharTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__otharXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_SO4__othptdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__othptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__othptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__othptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__othptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__othptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__othptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__othptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__othptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__othptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__othptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__othptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__othptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__othptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__othptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__othptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__othptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__othptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__othptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__othptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_C3H8__othptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__othptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__othptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__othptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__othptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__othptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__othptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n# ------------------------\n#  Cars\n# ------------------------\n0 DICE_CARS_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CO      2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280     1 60\n0 DICE_CARS_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  SO2     2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008      1 60\n0 DICE_CARS_SO4   -                                                                 -       -          - -  -        SO4   31/63/1008      1 60\n0 DICE_CARS_pFe   -                                                                 -       -          - -  -        pFe   31/78/66/1008   1 60\n0 DICE_CARS_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BC      2013/1/1/0 C xy g/m2/yr  BCPI  70/1008         1 60\n0 DICE_CARS_BCPO  -                                                                 -       -          - -  -        BCPO  71/1008         1 60\n0 DICE_CARS_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  OC      2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/330     1 60\n0 DICE_CARS_OCPO  -                                                                 -       -          - -  -        OCPO  73/1008/330     1 60\n\n# ------------------------\n#  Motorcycles\n# ------------------------\n0 DICE_MOTORCYCLES_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CO     2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      1 60\n0 DICE_MOTORCYCLES_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  SO2    2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_MOTORCYCLES_SO4   -                                                                        -      -          - -  -        SO4   31/63/1008       1 60\n0 DICE_MOTORCYCLES_pFe   -                                                                        -      -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_MOTORCYCLES_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BC     2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_MOTORCYCLES_BCPO  -                                                                        -      -          - -  -        BCPO  71/1008          1 60\n0 DICE_MOTORCYCLES_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  OC     2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_MOTORCYCLES_OCPO  -                                                                        -      -          - -  -        OCPO  73/1008          1 60\n\n# ------------------------\n#  Backup generators\n# ------------------------\n0 DICE_BACKUPGEN_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CO   2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      1 60\n0 DICE_BACKUPGEN_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  SO2  2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_BACKUPGEN_SO4   -                                                                          -    -          - -  -        SO4   31/63/1008       1 60\n0 DICE_BACKUPGEN_pFe   -                                                                          -    -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_BACKUPGEN_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BC   2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_BACKUPGEN_BCPO  -                                                                          -        -          - -  -    BCPO  71/1008          1 60\n0 DICE_BACKUPGEN_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  OC   2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_BACKUPGEN_OCPO  -                                                                          -        -          - -  -    OCPO  73/1008          1 60\n\n# ------------------------\n#  Charcoal production\n# ------------------------\n0 DICE_CHARCOALPROD_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280/320  1 60\n0 DICE_CHARCOALPROD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008/320         1 60\n0 DICE_CHARCOALPROD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPO  -                                                                                -     -          - -  -        BCPO  71/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPO  -                                                                                -     -          - -  -        OCPO  73/1008/320      1 60\n\n# ------------------------\n#  Flaring of natural gas\n# ------------------------\n0 DICE_GASFLARE_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      1 60\n0 DICE_GASFLARE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_GASFLARE_BCPO  -                                                                       -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_GASFLARE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_GASFLARE_OCPO  -                                                                       -     -          - -  -        OCPO  73/1008          1 60\n\n# ------------------------------\n#  Ag waste burning for energy\n# ------------------------------\n0 DICE_AGBURNING_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      2 60\n0 DICE_AGBURNING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_AGBURNING_SO4   -                                                                                       -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_AGBURNING_pFe   -                                                                                       -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_AGBURNING_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_AGBURNING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_AGBURNING_BCPO  -                                                                                       -     -          - -  g/m2/yr  BCPO  71/1008          2 60\n0 DICE_AGBURNING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_AGBURNING_OCPO  -                                                                                       -     -          - -  g/m2/yr  OCPO  73/1008          2 60\n\n# ------------------------------\n#  Charcoal use\n# ------------------------------\n0 DICE_CHARCOALUSE_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      2 60\n0 DICE_CHARCOALUSE_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_CHARCOALUSE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_CHARCOALUSE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_CHARCOALUSE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_CHARCOALUSE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          2 60\n\n# ------------------------------\n#  Kerosene use\n# ------------------------------\n0 DICE_KEROSENE_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      1 60\n0 DICE_KEROSENE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_KEROSENE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_KEROSENE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_KEROSENE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          1 60\n\n# ------------------------------\n#  Artisanal oil refining\n# ------------------------------\n0 DICE_OILREFINING_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      1 60\n0 DICE_OILREFINING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_OILREFINING_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       1 60\n0 DICE_OILREFINING_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_OILREFINING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_OILREFINING_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_OILREFINING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_OILREFINING_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          1 60\n\n# --------------------------\n#  Household fuelwood use\n# --------------------------\n0 DICE_HOUSEFUELWOOD_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      2 60\n0 DICE_HOUSEFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO4   -                                                                                   -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_HOUSEFUELWOOD_pFe   -                                                                                   -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_HOUSEFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_HOUSEFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPO  -                                                                                   -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPO  -                                                                                   -     -          - -  -        OCPO  73/1008          2 60\n\n# ---------------------------------\n#  Commercial (other) fuelwood use\n# ---------------------------------\n0 DICE_OTHERFUELWOOD_SOAP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  SOAP  26/1008/280      2 60\n0 DICE_OTHERFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_OTHERFUELWOOD_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_OTHERFUELWOOD_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_OTHERFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_OTHERFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1201/1008/70         1 60\n0 AF_EDGAR_BCPO_POW -                                                    -       -               -  -  -       BCPO 1201/1008/71         1 60\n0 AF_EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1202/1008/70         1 60\n0 AF_EDGAR_BCPO_ENG -                                                    -       -               -  -  -       BCPO 1202/1008/71         1 60\n0 AF_EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1203/1008/70         1 60\n0 AF_EDGAR_BCPO_IND -                                                    -       -               -  -  -       BCPO 1203/1008/71         1 60\n0 AF_EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1205/1008/70         1 60\n0 AF_EDGAR_BCPO_TNG -                                                    -       -               -  -  -       BCPO 1205/1008/71         1 60\n0 AF_EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1211/1008/70         1 60\n0 AF_EDGAR_BCPO_SWD -                                                    -       -               -  -  -       BCPO 1211/1008/71         1 60\n\n0 AF_EDGAR_SOAP_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s SOAP 1201/26/52/1008/280  1 60\n0 AF_EDGAR_SOAP_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s SOAP 1202/26/52/1008/280  1 60\n0 AF_EDGAR_SOAP_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s SOAP 1203/26/52/1008/280  1 60\n0 AF_EDGAR_SOAP_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s SOAP 1205/26/52/1008/280  1 60\n0 AF_EDGAR_SOAP_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s SOAP 1207/26/52/1008/280  1 60\n0 AF_EDGAR_SOAP_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s SOAP 1211/26/52/1008/280  1 60\n\n0 AF_EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1201/1008            1 60\n0 AF_EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1202/1008            1 60\n0 AF_EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1203/1008            1 60\n0 AF_EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1205/1008            1 60\n0 AF_EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1207/1008            1 60\n0 AF_EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1208/1008            1 60\n0 AF_EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1210/1008            1 60\n0 AF_EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1211/1008            1 60\n\n0 AF_EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1201/1008/72         1 60\n0 AF_EDGAR_OCPO_POW -                                                    -       -               -  -  -       OCPO 1201/1008/73         1 60\n0 AF_EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1202/1008/72         1 60\n0 AF_EDGAR_OCPO_ENG -                                                    -       -               -  -  -       OCPO 1202/1008/73         1 60\n0 AF_EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1203/1008/72         1 60\n0 AF_EDGAR_OCPO_IND -                                                    -       -               -  -  -       OCPO 1203/1008/73         1 60\n0 AF_EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1205/1008/72         1 60\n0 AF_EDGAR_OCPO_TNG -                                                    -       -               -  -  -       OCPO 1205/1008/73         1 60\n0 AF_EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1211/1008/72         1 60\n0 AF_EDGAR_OCPO_SWD -                                                    -       -               -  -  -       OCPO 1211/1008/73         1 60\n\n0 AF_EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1201/1008            1 60\n0 AF_EDGAR_SO4_POW  -                                                    -       -               -  -  -       SO4  1201/1008/63         1 60\n0 AF_EDGAR_pFe_POW  -                                                    -       -               -  -  -       pFe  1201/1008/66         1 60\n0 AF_EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1202/1008            1 60\n0 AF_EDGAR_SO4_ENG  -                                                    -       -               -  -  -       SO4  1202/1008/63         1 60\n0 AF_EDGAR_pFe_ENG  -                                                    -       -               -  -  -       pFe  1202/1008/66         1 60\n0 AF_EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1203/1008            1 60\n0 AF_EDGAR_SO4_IND  -                                                    -       -               -  -  -       SO4  1203/1008/63         1 60\n0 AF_EDGAR_pFe_IND  -                                                    -       -               -  -  -       pFe  1203/1008/66         1 60\n0 AF_EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1205/1008            1 60\n0 AF_EDGAR_SO4_TNG  -                                                    -       -               -  -  -       SO4  1205/1008/63         1 60\n0 AF_EDGAR_pFe_TNG  -                                                    -       -               -  -  -       pFe  1205/1008/66         1 60\n0 AF_EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1207/1008            1 60\n0 AF_EDGAR_SO4_PPA  -                                                    -       -               -  -  -       SO4  1207/1008/63         1 60\n0 AF_EDGAR_pFe_PPA  -                                                    -       -               -  -  -       pFe  1207/1008/66         1 60\n0 AF_EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1211/1008            1 60\n0 AF_EDGAR_SO4_SWD  -                                                    -       -               -  -  -       SO4  1211/1008/63         1 60\n0 AF_EDGAR_pFe_SWD  -                                                    -       -               -  -  -       pFe  1211/1008/66         1 60\n)))DICE_Africa\n\n\n#==============================================================================\n# --- CEDS_01x01 ---\n#\n# %%% This is the default global inventory.                            %%%\n# %%% You may select either CEDS, EDGAR, HTAP or CMIP6_SFC_LAND_ANTHRO %%%\n# %%% for the global base emissions.                                   %%%\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_SOAP_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_agr            1980-2019/1-12/1/0 C xy   kg/m2/s SOAP  280/2401             1 5\n0 CEDS_SOAP_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s SOAP  280/2406/706/315     1 5\n0 CEDS_SOAP_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s SOAP  280/2407/707/316     1 5\n0 CEDS_SOAP_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_tra            1980-2019/1-12/1/0 C xy   kg/m2/s SOAP  280/2411/711         1 5\n0 CEDS_SOAP_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_rco            1980-2019/1-12/1/0 C xy   kg/m2/s SOAP  280/2409/709         1 5\n0 CEDS_SOAP_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_slv            1980-2019/1-12/1/0 C xy   kg/m2/s SOAP  280/2407/707         1 5\n0 CEDS_SOAP_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_wst            1980-2019/1-12/1/0 C xy   kg/m2/s SOAP  26/280               1 5\n\n0 CEDS_SO2_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_agr           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2401                 1 5\n0 CEDS_SO4_AGR    -                                                             -                 -                  - -    -       SO4   63/2401              1 5\n0 CEDS_pFe_AGR    -                                                             -                 -                  - -    -       pFe   66/2401              1 5\n0 CEDS_SO2_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s SO2   2406/706/315         1 5\n0 CEDS_SO4_ENE    -                                                             -                 -                  - -    -       SO4   63/2406/706/315      1 5\n0 CEDS_pFe_ENE    -                                                             -                 -                  - -    -       pFe   66/2406/706/315      1 5\n0 CEDS_SO2_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s SO2   2407/707/316         1 5\n0 CEDS_SO4_IND    -                                                             -                 -                  - -    -       SO4   63/2407/707/316      1 5\n0 CEDS_pFe_IND    -                                                             -                 -                  - -    -       pFe   66/2407/707/316      1 5\n0 CEDS_SO2_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_tra           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2411/711             1 5\n0 CEDS_SO4_TRA    -                                                             -                 -                  - -    -       SO4   63/2411/711          1 5\n0 CEDS_pFe_TRA    -                                                             -                 -                  - -    -       pFe   66/2411/711          1 5\n0 CEDS_SO2_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_rco           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2409/709             1 5\n0 CEDS_SO4_RCO    -                                                             -                 -                  - -    -       SO4   63/2409/709          1 5\n0 CEDS_pFe_RCO    -                                                             -                 -                  - -    -       pFe   66/2409/709          1 5\n0 CEDS_SO2_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_slv           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2407/707             1 5\n0 CEDS_SO4_SLV    -                                                             -                 -                  - -    -       SO4   63/2407/707          1 5\n0 CEDS_pFe_SLV    -                                                             -                 -                  - -    -       pFe   66/2407/707          1 5\n0 CEDS_SO2_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_wst           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   -                    1 5\n0 CEDS_SO4_WST    -                                                             -                 -                  - -    -       SO4   63                   1 5\n0 CEDS_pFe_WST    -                                                             -                 -                  - -    -       pFe   66                   1 5\n\n0 CEDS_NH3_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_agr           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2401                 1 5\n0 CEDS_NH3_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s NH3   2406/706/315         1 5\n0 CEDS_NH3_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s NH3   2407/707/316         1 5\n0 CEDS_NH3_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_tra           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2411/711             1 5\n0 CEDS_NH3_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_rco           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2409/709             1 5\n0 CEDS_NH3_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_slv           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2407/707             1 5\n0 CEDS_NH3_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_wst           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   -                    1 5\n\n0 CEDS_BCPI_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_agr            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2401              1 5\n0 CEDS_BCPO_AGR   -                                                             -                 -                  - -    -       BCPO  71/2401              1 5\n0 CEDS_BCPI_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2406/706/315      1 5\n0 CEDS_BCPO_ENE   -                                                             -                 -                  - -    -       BCPO  71/2406/706/315      1 5\n0 CEDS_BCPI_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2407/707/316      1 5\n0 CEDS_BCPO_IND   -                                                             -                 -                  - -    -       BCPO  71/2407/707/316      1 5\n0 CEDS_BCPI_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_tra            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2411/711          1 5\n0 CEDS_BCPO_TRA   -                                                             -                 -                  - -    -       BCPO  71/2411/711          1 5\n0 CEDS_BCPI_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_rco            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2409/709          1 5\n0 CEDS_BCPO_RCO   -                                                             -                 -                  - -    -       BCPO  71/2409/709          1 5\n0 CEDS_BCPI_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_slv            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2407/707          1 5\n0 CEDS_BCPO_SLV   -                                                             -                 -                  - -    -       BCPO  71/2407/707          1 5\n0 CEDS_BCPI_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_wst            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70                   1 5\n0 CEDS_BCPO_WST   -                                                             -                 -                  - -    -       BCPO  71                   1 5\n\n0 CEDS_OCPI_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_agr            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2401              1 5\n0 CEDS_OCPO_AGR   -                                                             -                 -                  - -    -       OCPO  73/2401              1 5\n0 CEDS_OCPI_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2406/706/315      1 5\n0 CEDS_OCPO_ENE   -                                                             -                 -                  - -    -       OCPO  73/2406/706/315      1 5\n0 CEDS_OCPI_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2407/707/316      1 5\n0 CEDS_OCPO_IND   -                                                             -                 -                  - -    -       OCPO  73/2407/707/316      1 5\n0 CEDS_OCPI_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_tra            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2411/711          1 5\n0 CEDS_OCPO_TRA   -                                                             -                 -                  - -    -       OCPO  73/2411/711          1 5\n0 CEDS_OCPI_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_rco            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2409/709          1 5\n0 CEDS_OCPO_RCO   -                                                             -                 -                  - -    -       OCPO  73/2409/709          1 5\n0 CEDS_OCPI_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_slv            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2407/707          1 5\n0 CEDS_OCPO_SLV   -                                                             -                 -                  - -    -       OCPO  73/2407/707          1 5\n0 CEDS_OCPI_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_wst            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72                   1 5\n0 CEDS_OCPO_WST   -                                                             -                 -                  - -    -       OCPO  73                   1 5\n)))CEDS_01x01\n\n#==============================================================================\n# --- CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_SOAP_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n0 CMIP6_SOAP_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n0 CMIP6_SOAP_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n0 CMIP6_SOAP_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n0 CMIP6_SOAP_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n0 CMIP6_SOAP_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n0 CMIP6_SOAP_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    1 5\n\n0 CMIP6_SO2_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_AGR    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_AGR    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_ENE    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_ENE    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_IND    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_IND    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_TRA    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_TRA    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_RCO    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_RCO    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_SLV    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_SLV    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_WST    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_WST    -                                                                            -                 -                  - -  -          pFe   66        1 5\n\n0 CMIP6_NH3_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_agr           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ene           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ind           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_tra           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_rco           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_slv           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_wst           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n\n0 CMIP6_BCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_AGR   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_ENE   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_IND   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_TRA   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_RCO   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_SLV   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_WST   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n\n0 CMIP6_OCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_AGR   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_OCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_ENE   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_OCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_IND   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_OCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_TRA   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_OCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_RCO   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_OCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_SLV   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_OCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_WST   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_SOAP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4    CO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   SOAP  280      20 1\n0 CMIP6_AIR_SO2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4    SO2_air           1750-2100/1-12/1/0 C xyz kg/m2/s   SO2   -        20 1\n0 CMIP6_AIR_SO4    -                                                                                -                 -                  - -   -         SO4   63       20 1\n0 CMIP6_AIR_pFe    -                                                                                -                 -                  - -   -         pFe   66       20 1\n0 CMIP6_AIR_NH3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4    NH3_air           1750-2100/1-12/1/0 C xyz kg/m2/s   NH3   -        20 1\n# Assume all BC/OC is BCPI/OCPI\n0 CMIP6_AIR_BCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4      BC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   BCPI  -        20 1\n0 CMIP6_AIR_OCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4      OC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   OCPI  -        20 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EDGAR v4.3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# The following emissions are not included in EDGAR and will be added:\n#  * Wiedinmyer et al. (2014) global trash emissions\n#  * CEDS VOC emissions\n#\n# Aviation and shipping emissions from EDGAR are not included here.\n# We also do not include the following sources:\n#  - Soil emissions of NOx (SOL). These emissions are calculated via the\n#    SoilNOx extension.\n#  - Open biomass burning (AWB). These emissions are obtained from\n#    GFED, QFED, FINN, or GFAS.\n#==============================================================================\n(((EDGARv43\n0  EDGAR_SOAP_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1201/26/52/280  1 2\n0  EDGAR_SOAP_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1202/26/52/280  1 2\n0  EDGAR_SOAP_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1203/26/52/280  1 2\n0  EDGAR_SOAP_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1204/26/52/280  1 2\n0  EDGAR_SOAP_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1205/26/52/280  1 2\n0  EDGAR_SOAP_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1206/26/52/280  1 2\n0  EDGAR_SOAP_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1207/26/52/280  1 2\n#0 EDGAR_SOAP_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1209/26/52/280  1 2\n0  EDGAR_SOAP_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s SOAP 1211/26/52/280  1 2\n0  EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1201            1 2\n0  EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1202            1 2\n0  EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1203            1 2\n0  EDGAR_NH3_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TRO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1204            1 2\n0  EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1205            1 2\n0  EDGAR_NH3_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.RCO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1206            1 2\n0  EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1207            1 2\n0  EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1208            1 2\n#0 EDGAR_NH3_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AWB.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1209            1 2\n0  EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1210            1 2\n0  EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1211            1 2\n0  EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1201/72         1 2\n0  EDGAR_OCPO_POW -                                                    -       -               - -  -       OCPO 1201/73         1 2\n0  EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1202/72         1 2\n0  EDGAR_OCPO_ENG -                                                    -       -               - -  -       OCPO 1202/73         1 2\n0  EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1203/72         1 2\n0  EDGAR_OCPO_IND -                                                    -       -               - -  -       OCPO 1203/73         1 2\n0  EDGAR_OCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TRO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1204/72         1 2\n0  EDGAR_OCPO_TRO -                                                    -       -               - -  -       OCPO 1204/73         1 2\n0  EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1205/72         1 2\n0  EDGAR_OCPO_TNG -                                                    -       -               - -  -       OCPO 1205/73         1 2\n0  EDGAR_OCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.RCO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1206/72         1 2\n0  EDGAR_OCPO_RCO -                                                    -       -               - -  -       OCPO 1206/73         1 2\n#0 EDGAR_OCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.AWB.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1209/72         1 2\n#0 EDGAR_OCPO_AWB -                                                    -       -               - -  -       OCPO 1209/73         1 2\n0  EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1211/72         1 2\n0  EDGAR_OCPO_SWD -                                                    -       -               - -  -       OCPO 1211/73         1 2\n0  EDGAR_OCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.FFF.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1212/72         1 2\n0  EDGAR_OCPO_FFF -                                                    -       -               - -  -       OCPO 1212/73         1 2\n0  EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1201            1 2\n0  EDGAR_SO4_POW  -                                                    -       -               - -  -       SO4  1201/63         1 2\n0  EDGAR_pFe_POW  -                                                    -       -               - -  -       pFe  1201/66         1 2\n0  EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1202            1 2\n0  EDGAR_SO4_ENG  -                                                    -       -               - -  -       SO4  1202/63         1 2\n0  EDGAR_pFe_ENG  -                                                    -       -               - -  -       pFe  1202/66         1 2\n0  EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1203            1 2\n0  EDGAR_SO4_IND  -                                                    -       -               - -  -       SO4  1203/63         1 2\n0  EDGAR_pFe_IND  -                                                    -       -               - -  -       pFe  1203/66         1 2\n0  EDGAR_SO2_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TRO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1204            1 2\n0  EDGAR_SO4_TRO  -                                                    -       -               - -  -       SO4  1204/63         1 2\n0  EDGAR_pFe_TRO  -                                                    -       -               - -  -       pFe  1204/66         1 2\n0  EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1205            1 2\n0  EDGAR_SO4_TNG  -                                                    -       -               - -  -       SO4  1205/63         1 2\n0  EDGAR_pFe_TNG  -                                                    -       -               - -  -       pFe  1205/66         1 2\n0  EDGAR_SO2_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.RCO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1206            1 2\n0  EDGAR_SO4_RCO  -                                                    -       -               - -  -       SO4  1206/63         1 2\n0  EDGAR_pFe_RCO  -                                                    -       -               - -  -       pFe  1206/66         1 2\n0  EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1207            1 2\n0  EDGAR_SO4_PPA  -                                                    -       -               - -  -       SO4  1207/63         1 2\n0  EDGAR_pFe_PPA  -                                                    -       -               - -  -       pFe  1207/66         1 2\n#0 EDGAR_SO2_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.AWB.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1209            1 2\n#0 EDGAR_SO4_AWB  -                                                    -       -               - -  -       SO4  1209/63         1 2\n#0 EDGAR_pFe_AWB  -                                                    -       -               - -  -       pFe  1209/66         1 2\n0  EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1211            1 2\n0  EDGAR_SO4_SWD  -                                                    -       -               - -  -       SO4  1211/63         1 2\n0  EDGAR_pFe_SWD  -                                                    -       -               - -  -       pFe  1211/66         1 2\n0  EDGAR_SO2_FFF  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.FFF.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1212            1 2\n0  EDGAR_SO4_FFF  -                                                    -       -               - -  -       SO4  1212/63         1 2\n0  EDGAR_pFe_FFF  -                                                    -       -               - -  -       pFe  1212/66         1 2\n\n#==============================================================================\n# --- NAP ANTHROPOGENIC EMISSIONS: approximate from EDGAR BENZ ---\n#\n# NOTE: Although this data comes from EDGAR version 2, we are storing it\n# in the EDGARv42 data path for convenience.\n#==============================================================================\n0 EDGAR_NAP $ROOT/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc BENZ 1985/1/1/0 C xy kgC/m2/s NAP 80/81/82 1 2\n\n#==============================================================================\n# --- Wiedinmyer et al. (2014) global trash emissions to be added to EDGAR ---\n#==============================================================================\n0 TRASH_SOAP  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CO    2008/1/1/0 C xy kg/m2/s  SOAP  280   1 30\n0 TRASH_SO2   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  SO2   2008/1/1/0 C xy kg/m2/s  SO2   78    1 30\n0 TRASH_SO4   -                                                       -     -          - -  -        SO4   63    1 30\n0 TRASH_pFe   -                                                       -     -          - -  -        pFe   78/66 1 30\n0 TRASH_NH3   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NH3   2008/1/1/0 C xy kg/m2/s  NH3   -     1 30\n0 TRASH_BCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BC    2008/1/1/0 C xy kg/m2/s  BCPI  70    1 30\n0 TRASH_BCPO  -                                                       -     -          - -  -        BCPO  71    1 30\n0 TRASH_OCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  OC    2008/1/1/0 C xy kg/m2/s  OCPI  72    1 30\n0 TRASH_OCPO  -                                                       -     -          - -  -        OCPO  73    1 30\n\n)))EDGARv43\n\n#==============================================================================\n# --- HTAP v3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# ==> HTAPv3 ship emissions are listed in the ship emissions section below\n#==============================================================================\n(((HTAPv3\n0 HTAPv3_SOAP_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SOAP_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SOAP_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_IND  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SOAP_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SOAP_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SOAP_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SOAP_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_WST  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280   1 4\n0 HTAPv3_SO2_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_AGR 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_AGR  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_AGR  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_ENE 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_ENE  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_ENE  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_IND 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_IND  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_IND  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_TRA 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_TRA  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_TRA  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_RCO 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_RCO  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_RCO  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_SLV 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_SLV  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_SLV  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_WST 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_WST  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_WST  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_NH3_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_AGR 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_ENE 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_IND 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_TRA 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_RCO 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_SLV 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_WST 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_BCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_AGR -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_ENE -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_IND  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_IND -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_TRA -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_RCO -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_SLV -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_WST  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_WST -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_OCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_AGR -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_AGR -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_AGR -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_ENE -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_ENE -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_ENE -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_IND  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_IND -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_IND -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_IND -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_TRA -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_TRA -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_TRA -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_RCO -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_RCO -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_RCO -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_SLV -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_SLV -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_SLV -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_WST  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_WST -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_WST -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_WST -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n)))HTAPv3\n\n#==============================================================================\n# --- GEIA NH3 from natural sources ---\n#==============================================================================\n(((GEIA_NH3\n0 GEIA_NH3_NATU $ROOT/NH3/v2019-08/NH3_geos.2x25.nc         NH3_NATU     1990/1-12/1/0 C xy  kg/m2/s NH3 - 3 1\n)))GEIA_NH3\n\n#==============================================================================\n# --- NH3 from arctic seabirds ---\n# Source: Riddick et al., 2012, NERC Environmental Information Data Centre\n#==============================================================================\n(((SEABIRD_NH3\n0 SEABIRD_NH3   $ROOT/NH3/v2018-04/NH3_Arctic_seabirds.nc  NH3_SEABIRDS 1990/1-12/1/0 C xy  kg/m2/s NH3 - 30 1\n)))SEABIRD_NH3\n\n#==============================================================================\n# --- Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAP for SO2 and ICOADS should be used for CO and NO.\n#==============================================================================\n(((SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_SOAP_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc  CO_SHP  2000-2018/1-12/1/0 C xy kg/m2/s SOAP  26/280 10 4\n0 HTAPv3_SO2_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc SO2_SHP 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -      10 4\n0 HTAPv3_SO4_SHP  -                                                       -       -                  - -  -       SO4   63     10 4\n0 HTAPv3_pFe_SHP  -                                                       -       -                  - -  -       pFe   66     10 4\n0 HTAPv3_NH3_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc NH3_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -      10 4\n0 HTAPv3_BCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc  BC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70     10 4\n0 HTAPv3_BCPO_SHP -                                                       -       -                  - -  -       BCPO  71     10 4\n0 HTAPv3_OCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc  OC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72     10 4\n0 HTAPv3_OCPO_SHP -                                                       -       -                  - -  -       OCPO  73     10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_SOAP_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_shp            1980-2019/1-12/1/0 C xy kg/m2/s SOAP  26/280 10 5\n0 CEDS_SO2_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_shp           1980-2019/1-12/1/0 C xy kg/m2/s SO2   -      10 5\n0 CEDS_SO4_SHP    -                                                             -                 -                  - -  -       SO4   63     10 5\n0 CEDS_pFe_SHP    -                                                             -                 -                  - -  -       pFe   66     10 5\n0 CEDS_NH3_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_shp           1980-2019/1-12/1/0 C xy kg/m2/s NH3   -      10 5\n0 CEDS_BCPI_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_shp            1980-2019/1-12/1/0 C xy kg/m2/s BCPI  70     10 5\n0 CEDS_BCPO_SHP   -                                                             -                 -                  - -  -       BCPO  71     10 5\n0 CEDS_OCPI_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_shp            1980-2019/1-12/1/0 C xy kg/m2/s OCPI  72     10 5\n0 CEDS_OCPO_SHP   -                                                             -                 -                  - -  -       OCPO  73     10 5\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_shp           1980-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 5\n0 CEDS_EOH_SHP    -                                                             -                 -                  - -  -       EOH   26/91  10 5\n0 CEDS_ROH_SHP    -                                                             -                 -                  - -  -       ROH   26/92  10 5\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 5\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_shp          1980-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 5\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_shp  1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_shp 1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_shp  1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 5\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_shp          1980-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 5\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 5\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_shp          1980-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 5\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_shp          1980-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 5\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_shp          1980-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 5\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_shp          1980-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 5\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_shp          1980-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 5\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_shp           1980-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 5\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_shp         1980-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n)))CEDS_01x01_SHIP\n\n#==============================================================================\n# --- CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_SOAP_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CO_shp            1750-2100/1-12/1/0 C xy kg/m2/s    SOAP  26/280    10 5\n0 CMIP6_SO2_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            SO2_shp           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         10 5\n0 CMIP6_SO4_SHP    -                                                                     -                 -                  - -  -          SO4   63        10 5\n0 CMIP6_pFe_SHP    -                                                                     -                 -                  - -  -          pFe   66        10 5\n0 CMIP6_NH3_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            NH3_shp           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         10 5\n0 CMIP6_BCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        10 5\n0 CMIP6_BCPO_SHP   -                                                                     -                 -                  - -  -          BCPO  71        10 5\n0 CMIP6_OCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            OC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        10 5\n0 CMIP6_OCPO_SHP   -                                                                     -                 -                  - -  -          OCPO  73        10 5\n)))CMIP6_SHIP\n\n)))SHIP\n\n#==============================================================================\n# --- AEIC 2019 aircraft emissions ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_SOAP $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO       2019/1-12/1-31/0 C xyz kg/m2/s SOAP 241/280     20 1\n0 AEIC19_DAILY_SO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN 2019/1-12/1-31/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_DAILY_pFe  -                                                                 -        -                - -   -       pFe  241/111/66  20 1\n0 AEIC19_DAILY_SO4  -                                                                 -        -                - -   -       SO4  241/112     20 1\n0 AEIC19_DAILY_BCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc BC       2019/1-12/1-31/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_DAILY_OCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc OC       2019/1-12/1-31/0 C xyz kg/m2/s OCPI 241         20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_SOAP $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO       2019/1-12/1/0 C xyz kg/m2/s SOAP 241/280     20 1\n0 AEIC19_MONMEAN_SO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_MONMEAN_pFe  -                                                                          -        -             - -   -       pFe  241/111/66  20 1\n0 AEIC19_MONMEAN_SO4  -                                                                          -        -             - -   -       SO4  241/112     20 1\n0 AEIC19_MONMEAN_BCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc BC       2019/1-12/1/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_MONMEAN_OCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc OC       2019/1-12/1/0 C xyz kg/m2/s OCPI 241         20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_SOAP $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SOAP 280 1 1\n0 RCP3PD_BCPO $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_BC_2005-2100_23474.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO -   1 1\n0 RCP3PD_OCPO $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_OC_2005-2100_23474.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO -   1 1\n0 RCP3PD_SO2  $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_SO2_2005-2100_23474.nc ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2  -   1 1\n0 RCP3PD_pFe  -                                                             -      -               -  -  -        pFe  66  1 1\n0 RCP3PD_NH3  $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NH3_2005-2100_23474.nc ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3  -   1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_SOAP  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SOAP 280 1 1\n0 RCP45_BCPO  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_BC_2005-2100_27424.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO -   1 1\n0 RCP45_OCPO  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_OC_2005-2100_27424.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO -   1 1\n0 RCP45_SO2   $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_SO2_2005-2100_27424.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2  -   1 1\n0 RCP45_pFe   -                                                             -      -               -  -  -        pFe  66  1 1\n0 RCP45_NH3   $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NH3_2005-2100_27424.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3  -   1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_SOAP  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SOAP 280 1 1\n0 RCP60_BCPO  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_BC_2005-2100_43190.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO -   1 1\n0 RCP60_OCPO  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_OC_2005-2100_43190.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO -   1 1\n0 RCP60_SO2   $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_SO2_2005-2100_43190.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2  -   1 1\n0 RCP60_pFe   -                                                             -      -               -  -  -        pFe  66  1 1\n0 RCP60_NH3   $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NH3_2005-2100_43190.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3  -   1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_SOAP  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SOAP 280 1 1\n0 RCP85_BCPO  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_BC_2005-2100_43533.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO -   1 1\n0 RCP85_OCPO  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_OC_2005-2100_43533.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO -   1 1\n0 RCP85_SO2   $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_SO2_2005-2100_43533.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2  -   1 1\n0 RCP85_pFe   -                                                             -      -               -  -  -        pFe  66  1 1\n0 RCP85_NH3   $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NH3_2005-2100_43533.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3  -   1 1\n)))RCP_85\n\n#==============================================================================\n# --- QFED2 biomass burning (v2.5r1) ---\n#==============================================================================\n(((QFED2\n0 QFED_BCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s BCPI 70/75/311     5 2\n0 QFED_BCPO_PBL  -                                                                 -       -                             -   -             -       BCPO 71/75/311     5 2\n0 QFED_BCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s BCPI 70/75/312     5 2\n0 QFED_BCPO_FT   -                                                                 -       -                             -   -             -       BCPO 71/75/312     5 2\n0 QFED_OCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s OCPI 72/75/311     5 2\n0 QFED_OCPO_PBL  -                                                                 -       -                             -   -             -       OCPO 73/75/311     5 2\n0 QFED_OCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s OCPI 72/75/312     5 2\n0 QFED_OCPO_FT   -                                                                 -       -                             -   -             -       OCPO 73/75/312     5 2\n0 QFED_SOAP_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s SOAP 54/75/281/311 5 2\n0 QFED_SOAP_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s SOAP 54/75/281/312 5 2\n0 QFED_NH3_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NH3  75/311        5 2\n0 QFED_NH3_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NH3  75/312        5 2\n0 QFED_SO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s SO2  75/311        5 2\n0 QFED_pFe_PBL   -                                                                 -       -                             -   -             -       pFe  75/311/66     5 2\n0 QFED_SO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s SO2  75/312        5 2\n0 QFED_pFe_FT    -                                                                 -       -                             -   -             -       pF3  75/312/66     5 2\n)))QFED2\n\n#==============================================================================\n# --- GFAS biomass burning ---\n#==============================================================================\n(((GFAS\n0 GFAS_SOAP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SOAP 75/281 5 3\n0 GFAS_BCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPI 70/75  5 3\n0 GFAS_BCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPO 71/75  5 3\n0 GFAS_OCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPI 72/75  5 3\n0 GFAS_OCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPO 73/75  5 3\n0 GFAS_SO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SO2  75     5 3\n0 GFAS_pFe   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s pFe  75/66  5 3\n0 GFAS_NH3   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc nh3fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NH3  75     5 3\n0 GFAS_DMS   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6sfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s DMS  75     5 3\n)))GFAS\n\n(((EMISSIONS\n\n#==============================================================================\n# --- FINNv2.5 biomass burning ---\n# Uses dataset derived with combined fire detection from MODIS and VIIRS.\n# Data downloaded from: https://rda.ucar.edu/datasets/d312009/dataaccess/\n# Uses FINN emissions processed for MOZART for multiple species not processed\n#       for general use (not specific to any model) or for GEOS-Chem.\n#       Naming convention of inventory developers preserved for traceability.\n# Description of development of data available here:\n#       https://gmd.copernicus.org/articles/16/3873/2023/\n#==============================================================================\n(((FINNv25\n0 FINNv25_SOAP  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_CO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_CO              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s SOAP   75/281 5 3\n0 FINNv25_BCPI  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_BC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_BC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BCPI   75/70  5 3\n0 FINNv25_BCPO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_BC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_BC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BCPO   75/71  5 3\n0 FINNv25_OCPI  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_OC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_OC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s OCPI   75/72  5 3\n0 FINNv25_OCPO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_OC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_OC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s OCPO   75/73  5 3\n0 FINNv25_SO2   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_SO2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc             fire_modisviirs_SO2             2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s SO2    75     5 3\n0 FINNv25_NH3   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-NH3_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc      fire_modisviirs_MOZART-NH3      2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NH3    75     5 3\n0 FINNv25_ACET  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-ACET_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-ACET   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ACET   75     5 3\n0 FINNv25_ALK4  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-ALK4_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-ALK4   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ALK4   75     5 3\n0 FINNv25_PRPE  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-PRPE_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-PRPE   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s PRPE   75     5 3\n0 FINNv25_C2H2  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H2   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H2   75     5 3\n0 FINNv25_C2H4  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H4_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H4   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H4   75     5 3\n0 FINNv25_C2H6  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H6_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H6   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H6   75     5 3\n0 FINNv25_C3H8  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C3H8_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C3H8   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C3H8   75     5 3\n0 FINNv25_CH2O  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-CH2O_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-CH2O   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CH2O   75     5 3\n0 FINNv25_ISOP  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-ISOP_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-ISOP     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ISOP   75     5 3\n0 FINNv25_BENZ  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-BENZ_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-BENZ   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BENZ   75     5 3\n0 FINNv25_TOLU  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-TOLU_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-TOLU   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s TOLU   75     5 3\n0 FINNv25_XYLE  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-XYLE_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-XYLE   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s XYLE   75     5 3\n0 FINNv25_GLYC  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-GLYC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-GLYC   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s GLYC   75     5 3\n0 FINNv25_MGLY  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-MGLY_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-MGLY   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MGLY   75     5 3\n0 FINNv25_HAC   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-HAC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_GEOSCHEM-HAC    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HAC    75     5 3\n0 FINNv25_MEK   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-MEK_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_GEOSCHEM-MEK    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MEK    75     5 3\n0 FINNv25_HCOOH $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-HCOOH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_MOZART-HCOOH    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HCOOH  75     5 3\n0 FINNv25_HONO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-HONO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-HONO     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HNO2   75     5 3\n0 FINNv25_ALD2  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3CHO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_MOZART-CH3CHO   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ALD2   75     5 3\n0 FINNv25_EOH   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-C2H5OH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_MOZART-C2H5OH   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s EOH    75     5 3\n0 FINNv25_MOH   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3OH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_MOZART-CH3OH    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MOH    75     5 3\n0 FINNv25_ACTA  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3COOH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc  fire_modisviirs_MOZART-CH3COOH  2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ACTA   75     5 3\n0 FINNv25_MVK   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-MVK_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc      fire_modisviirs_MOZART-MVK      2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MVK    75     5 3\n0 FINNv25_MACR  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-MACR_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-MACR     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MACR   75     5 3\n)))FINNv25\n\n#==============================================================================\n# --- BB4MIPs biomass burning ---\n#==============================================================================\n(((BB4MIPS\n# 75 is time-of-day scaling\n0 CMIP6_BB_SOAP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SOAP  75/281 5 3\n0 CMIP6_BB_BCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPI  70/75  5 3\n0 CMIP6_BB_BCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPO  71/75  5 3\n0 CMIP6_BB_OCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPI  72/75  5 3\n0 CMIP6_BB_OCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPO  73/75  5 3\n0 CMIP6_BB_SO2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 SO2_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SO2   75     5 3\n0 CMIP6_BB_pFe     -                                                          -          -                  - -         -       pFe   75/66  5 3\n0 CMIP6_BB_NH3     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NH3_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NH3   75     5 3\n0 CMIP6_BB_DMS     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 DMS_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s DMS   75     5 3\n)))BB4MIPS\n\n#==============================================================================\n# --- GFED4 biomass burning emissions climatology\n# NOTE: These emissions were generated for 2010-2019 using the GFED extension\n# in a 0.5x0.625 HEMCO 3.6.1 standalone simulation.\n#==============================================================================\n(((GFED4_CLIMATOLOGY\n0 GFED4_CLIM_BCPI  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1\n0 GFED4_CLIM_BCPO  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1\n0 GFED4_CLIM_OCPI  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1\n0 GFED4_CLIM_OCPO  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1\n0 GFED4_CLIM_SO2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SO2  2019/1-12/1/0 C xy kg/m2/s SO2  - 5 1\n0 GFED4_CLIM_SOAP  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1\n)))GFED4_CLIMATOLOGY\n\n#==============================================================================\n# --- Anthropogenic Fugitive, Combustion and Industrial Dust ---\n# (Philip et al., 2017, ERL)\n#==============================================================================\n(((AFCID\n0 PM25FINE_1_bin1 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631    1 1\n0 PM25FINE_1_bin2 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632    1 1\n0 PM25FINE_1_bin3 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633    1 1\n0 PM25FINE_1_bin4 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634    1 1\n0 PM25FINE_2_bin1 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631/1009 1 2\n0 PM25FINE_2_bin2 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632/1009 1 2\n0 PM25FINE_2_bin3 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633/1009 1 2\n0 PM25FINE_2_bin4 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634/1009 1 2\n0 PM25FINE_3_bin1 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631/1010 1 3\n0 PM25FINE_3_bin2 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632/1010 1 3\n0 PM25FINE_3_bin3 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633/1010 1 3\n0 PM25FINE_3_bin4 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634/1010 1 3\n)))AFCID\n\n#==============================================================================\n# --- Offline dust emissions ---\n#==============================================================================\n(((OFFLINE_DUST\n(((.not.DustL23M\n0 EMIS_DSTbin1 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin1 621 3 2\n0 EMIS_DSTbin2 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin2 622 3 2\n0 EMIS_DSTbin3 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin3 623 3 2\n0 EMIS_DSTbin4 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin4 624 3 2\n0 EMIS_DSTbin5 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin5 625 3 2\n0 EMIS_DSTbin6 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin6 626 3 2\n0 EMIS_DSTbin7 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin7 627 3 2\n))).not.DustL23M\n)))OFFLINE_DUST\n\n#==============================================================================\n# --- Offline biogenic VOC emissions ---\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n0 BIOGENIC_ACET      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ACET_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ACET -   4 2\n0 BIOGENIC_ALD2      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ALD2_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ALD2 -   4 2\n0 BIOGENIC_C2H4      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc C2H4_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s C2H4 -   4 2\n0 BIOGENIC_EOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc EOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s EOH  -   4 2\n0 BIOGENIC_ISOP      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ISOP_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ISOP -   4 2\n0 BIOGENIC_ISOP_SOAP -                                                                                                            -             -                     -   -  -       SOAP 610 4 2\n0 BIOGENIC_ISOP_SOAS -                                                                                                            -             -                     -   -  -       SOAS 610 4 2\n0 BIOGENIC_LIMO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc LIMO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s LIMO -   4 2\n0 BIOGENIC_LIMO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_LIMO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s MOH  -   4 2\n0 BIOGENIC_MTPA      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MTPA_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPA -   4 2\n0 BIOGENIC_MTPA_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPA_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MTPO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MTPO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPO -   4 2\n0 BIOGENIC_MTPO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_PRPE      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc PRPE_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s PRPE -   4 2\n0 BIOGENIC_SESQ      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SESQ_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s SESQ -   4 2\n0 BIOGENIC_SESQ_SOAP -                                                                                                            -             -                     -   -  -       SOAP 612 4 2\n0 BIOGENIC_SESQ_SOAS -                                                                                                            -             -                     -   -  -       SOAS 612 4 2\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt emissions ---\n#==============================================================================\n(((OFFLINE_SEASALT\n(((.not.SeaSalt\n0 SEASALT_SALA    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SALA_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALA    -   3 2\n0 SEASALT_SALAAL  -                                                                                                              -            -                     -   -  -       SALAAL  615 3 2\n0 SEASALT_SALACL  -                                                                                                              -            -                     -   -  -       SALACL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALA  -                                                                                                              -            -                     -   -  -       BrSALA  617 3 2\n)))CalcBrSeasalt\n0 SEASALT_SALC    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SALC_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALC    -   3 2\n0 SEASALT_SALCAL  -                                                                                                              -            -                     -   -  -       SALCAL  615 3 2\n0 SEASALT_SALCCL  -                                                                                                              -            -                     -   -  -       SALCCL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALC  -                                                                                                              -            -                     -   -  -       BrSALC  617 3 2\n)))CalcBrSeasalt\n))).not.SeaSalt\n)))OFFLINE_SEASALT\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n#==============================================================================\n(((SeaFlux\n101 DMS_SEAWATER    $ROOT/DMS/v2015-07/DMS_lana.geos.1x1.nc          DMS_OCEAN  1985/1-12/1/0 C xy kg/m3  DMS  -  1 1\n101 ACET_SEAWATER   $ROOT/ACET/v2014-07/ACET_seawater.generic.1x1.nc ACET       2005/1/1/0    C xy kgC/m3 ACET 40 1 1\n)))SeaFlux\n\n#===========================================================================\n# --- External fields needed for online DustL23M (Extension 125) ---\n#===========================================================================\n(((DustL23M\n125 L23M_A_bare       $ROOT/DustL23M/v2025-07/LandCover/MCD12C1.LC.$YYYY.0.1.nc4           LC_bare       1998-2022/1/1/0    C xy 1           * - 1 1\n125 L23M_A_veg        $ROOT/DustL23M/v2025-07/LandCover/MCD12C1.LC.$YYYY.0.1.nc4           LC_veg        1998-2022/1/1/0    C xy 1           * - 1 1\n125 L23M_Csah         $ROOT/DustL23M/v2025-07/scale/DustL23_scale_025x03125_scaleSAv2.nc4  scale         2000/1/1/0         C xy 1           * - 1 1\n125 L23M_LAI          $ROOT/DustL23M/v2025-07/LandCover/XLAI_025x025_$YYYY_MonMean.nc4     LAI           2000-2020/1-12/1/0 C xy 1           * - 1 1\n125 L23M_fclay        $ROOT/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4             f_clay        2000/1/1/0         C xy 1           * - 1 1\n125 L23M_BD           $ROOT/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4             bulk_density  2000/1/1/0         C xy kg-soil/m3  * - 1 1\n125 L23M_poros        $ROOT/DustL23M/v2025-07/poros/MERRA2.const_2d_lnd_Nx.poros.nc4       poros         1980/1/1/0         C xy 1           * - 1 1\n125 L23M_roughness_r  $ROOT/DustL23M/v2025-07/roughness/Surf_roughness_min_rocks_1997.nc4  roughness_r   1997/1/1/0         C xy m           * - 1 1\n)))DustL23M\n\n#==============================================================================\n# --- Sea salt emissions (Extension 107)\n#\n# MODIS Chlorophyll-A fields used for emissions of marine organic aerosols\n#==============================================================================\n(((SeaSalt\n107 MODIS_CHLR  $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS    2005-2014/1-12/1/0 C    xy 1 * - 1 1\n107 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1980-2020/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#107 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))SeaSalt\n\n#==============================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#\n# NOTE: These are the base emissions, which will be converted to kgC/m2/s by\n# HEMCO. The specified species (OCPI/ISOP/ACET) are required for proper unit\n# conversion. Since netCDF files are already in mass carbon (ug(C)), the only\n# important thing is to specify a VOC with a specified MW of 12g/mol.\n# This is the case for OCPI, ISOP and ACET.\n#\n# We don't need to read EF maps for acetone, a-pinene or myrcene. We now\n# compute those values in the MEGAN extension.\n#==============================================================================\n(((MEGAN\n(((HEMCO_RESTART\n108  T_DAVG                       ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_DAVG                  $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  T_PREVDAY                    ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_PREVDAY               $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  LAI_PREVDAY                  ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                LAI_PREVDAY             $YYYY/$MM/$DD/$HH EY xy 1        * - 1 1\n108  PARDR_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDR_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n108  PARDF_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDF_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n)))HEMCO_RESTART\n108  MEGAN_AEF_ISOP               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ISOPRENE            1985/1/1/0        C xy kgC/m2/s * 61 1 1\n108  MEGAN_AEF_MBOX               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MBO                 1985/1/1/0        C xy kgC/m2/s * 64 1 1\n#108 MEGAN_AEF_APIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ALPHA_PINENE        1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_BPIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_BETA_PINENE         1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_CARE               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_CARENE              1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_LIMO               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_LIMONENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n#108 MEGAN_AEF_MYRC               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MYRCENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_OCIM               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_OCIMENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_SABI               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_SABINENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  CLM4_PFT_BARE                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BARE                2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_SHRB      $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_SHRB      2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_ARCT_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_ARCT_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_NARC_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_NARC_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C4_GRSS             $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C4_GRSS             2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_CROP                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_CROP                2000/1/1/0        C xy 1        * -  1 1\n)))MEGAN\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTES:\n# - These are the base emissions in kgDM/m2/s\n# - If a year is not available, you may use the GFED4_CLIMATOLOGY option instead\n#==============================================================================\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_subgrid_coag\n111 FINN_DAILY_NUMBER   $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc   number   2002-2016/1-12/1/0   RF xy unitless  * - 1 1\n)))GFED_subgrid_coag\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* WETDEP_N       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_WetDepNitrogen $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* DRYDEP_N       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_DryDepNitrogen $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SO2_AFTERCHEM  ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SO2AfterChem   $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* H2O2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_H2O2AfterChem  $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* AEROH2O_SNA    ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_AeroH2OSNA     $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* ORVCSESQ       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCsesq       $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* STATE_PSC      ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_StatePSC       $YYYY/$MM/$DD/$HH EY   xyz count * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- GEOS-Chem boundary condition file ---\n#==============================================================================\n(((GC_BCs\n* BC_  $ROOT/SAMPLE_BCs/GC_14.3.0/fullchem/GEOSChem.BoundaryConditions.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesBC_?ADV?  1900-2100/1-12/1-31/* EFY xyz 1 * - 1 1\n)))GC_BCs\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- UV albedo, for photolysis (cf Hermann & Celarier, 1997) ---\n#==============================================================================\n(((UVALBEDO\n* UV_ALBEDO $ROOT/UVALBEDO/v2019-06/uvalbedo.geos.2x25.nc UVALBD 1985/1-12/1/0 C xy percent * - 1 1\n)))UVALBEDO\n\n#==============================================================================\n# --- Spatially varying OM/OC ---\n#==============================================================================\n(((OMOC_RATIO\n* OMOC_DJF $ROOT/OMOC/v2018-01/OMOC.DJF.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_MAM $ROOT/OMOC/v2018-01/OMOC.MAM.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_JJA $ROOT/OMOC/v2018-01/OMOC.JJA.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_SON $ROOT/OMOC/v2018-01/OMOC.SON.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n)))OMOC_RATIO\n\n#==============================================================================\n# --- Oxidant fields for offline aerosols ---\n#\n# (needed for chemistry, not used for emission calculation)\n#==============================================================================\n(((OXIDANT_FIELDS\n${RUNDIR_PH2O2}\n${RUNDIR_JH2O2}\n${RUNDIR_GLOBAL_ACTA}\n${RUNDIR_GLOBAL_HCl}\n${RUNDIR_GLOBAL_HCOOH}\n${RUNDIR_GLOBAL_HNO3}\n${RUNDIR_GLOBAL_NIT}\n${RUNDIR_GLOBAL_NO3}\n${RUNDIR_GLOBAL_O3}\n${RUNDIR_GLOBAL_OH}\n)))OXIDANT_FIELDS\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Inputs for the RRTMG radiative transfer model ---\n#\n# NOTE: The 2 x 2.5 albedo fields and emissivity fields will produce\n# differences at the level of numerical noise when comparing output to\n# simulations from prior versions (esp. when running at 4 x 5 resolution).\n# You might see larger differences w/r/t prior verisons for a few grid boxes\n# along the coastline of Antarctica, where the difference in resolution\n# and regridding will be more apparent in the sharp transition from ice to\n# ocean.  If this is a problem, you can use the data files at 4x5 resolution\n# for 4x5 RRTMG simulations.\n#\n# ALSO NOTE: The algorithm that HEMCO uses to select each time slice is\n# likely different than what was implemented when reading the old bpch\n# data from disk.  This can also cause differences when comparing to\n# prior versions.\n#==============================================================================\n(((RRTMG\n* MODIS_ALBDFNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDFVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_01 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band01  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_02 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band02  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_03 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band03  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_04 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band04  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_05 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band05  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_06 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band06  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_07 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band07  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_08 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band08  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_09 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band09  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_10 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band10  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_11 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band11  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_12 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band12  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_13 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band13  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_14 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band14  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_15 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band15  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_16 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band16  2002/1-12/1-31/0 C xy  1    * - 1 1\n${RUNDIR_TES_CLIM_CCL4}\n${RUNDIR_TES_CLIM_CFC11}\n${RUNDIR_TES_CLIM_CFC12}\n${RUNDIR_TES_CLIM_CFC22}\n${RUNDIR_TES_CLIM_CH4}\n${RUNDIR_TES_CLIM_N2O}\n)))RRTMG\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((XIAO_C3H8\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n7  LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n25 EDGAR_TODNOX $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless 1\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019)\n#==============================================================================\n33 PKU_pow_NOx              0.94/0.93/0.93/0.92/0.93/0.96/0.98/0.99/0.98/1.00/1.05/1.03/1.01/1.04/1.05/1.05/1.07/1.06/1.05/1.05/1.03/1.01/0.99/0.96 - - - xy unitless 1 1009\n34 PKU_pow_SO2              0.92/0.91/0.90/0.89/0.90/0.93/0.97/0.98/0.99/1.02/1.07/1.04/1.03/1.06/1.06/1.07/1.10/1.10/1.06/1.05/1.03/1.01/0.99/0.93 - - - xy unitless 1 1009\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 1009\n\n# These scale factors undo (Oper=-1) the global diurnal scale factors over China (Mask=1009)\n36 EDGAR_TODNOX_UNDO $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless -1 1009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 1009\n\n#==============================================================================\n# --- Day-of-week scale factors ---\n# ==> data is Sun/Mon/.../Sat\n#==============================================================================\n(((XIAO_C3H8\n22 GEIA_DOW_HC  0.671/1.1102/1.1102/1.1102/1.1102/1.1102/0.768 - - - xy unitless 1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Seasonal scale factors ---\n#==============================================================================\n(((DICE_Africa\n# from GEIA:\n30 GEIA_SEASON_NOX  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc NOXrat 1985/1-12/1/0 C xy unitless 1\n31 GEIA_SEASON_SO2  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc SO2rat 1985/1-12/1/0 C xy unitless 1\n)))DICE_Africa\n\n#==============================================================================\n# --- For Bromocarbons ---\n#==============================================================================\n(((LIANG_BROMOCARB\n39 BROMOCARB_SEASON $ROOT/BROMINE/v2015-02/BromoCarb_Season.nc CHXBRY_scale 2000/1-12/1/0 C xy unitless 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Scale factors used for species conversions ---\n#==============================================================================\n\n# Units carbon to species conversions\n# Factor = # carbon atoms * MW carbon) / MW species\n40 CtoACET MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n41 CtoALD2 MATH:44.06/(2.0*12.0)   - - - xy unitless 1\n42 CtoALK4 MATH:58.12/(4.3*12.0)   - - - xy unitless 1\n43 CtoBENZ MATH:78.12/(6.0*12.0)   - - - xy unitless 1\n44 CtoC2H4 MATH:28.05/(2.0*12.0)   - - - xy unitless 1\n45 CtoC2H6 MATH:30.08/(2.0*12.0)   - - - xy unitless 1\n46 CtoC3H8 MATH:46.08/(3.0*12.0)   - - - xy unitless 1\n47 CtoEOH  MATH:46.06/(2.0*12.0)   - - - xy unitless 1\n48 CtoMEK  MATH:72.11/(4.0*12.0)   - - - xy unitless 1\n49 CtoPRPE MATH:42.09/(3.0*12.0)   - - - xy unitless 1\n55 CtoTOLU MATH:92.15/(7.0*12.0)   - - - xy unitless 1\n56 CtoXYLE MATH:106.18/(8.0*12.0)  - - - xy unitless 1\n59 CtoC2H2 MATH:26.04/(2.0*12.0)   - - - xy unitless 1\n61 CtoISOP MATH:68.13/(5.0*12.0)   - - - xy unitless 1\n62 CtoMTPA MATH:136.26/(10.0*12.0) - - - xy unitless 1\n64 CtoMBOX MATH:86.13/(5.0*12.0)   - - - xy unitless 1\n67 CtoSESQ MATH:204.4/(15.0*12.0)  - - - xy unitless 1\n\n# VOC speciations\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n50 KET2MEK    0.25  - - - xy unitless 1\n51 KET2ACET   0.75  - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n# RCP acids to HCOOH conversion\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n57 RCP_HCOOHfraction 0.25     - - - xy unitless 1\n58 RCP_ACIDStoHCOOH  0.779661 - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n# SOx to SO2 conversion (Chin et al., 2000)\n60 SOX2SO2_GLOBAL 0.986  - - - xy unitless 1\n63 SO2toSO4       0.031  - - - xy unitless 1\n65 SO2toSO4_APEI  0.014  - - - xy unitless 1\n66 SO2toPFe       1.0e-3 - - - xy unitless 1\n68 SO2toPFe_APEI  4.7e-4 - - - xy unitless 1\n69 SO2toPFe_NEI   1.0e-3 - - - xy unitless 1\n78 SO2FRAC        0.969  - - - xy unitless 1\n\n# Carbon aerosols: speciation of hydrophilic and hydrophobic fractions\n# (Fractions applied to the biomass burning extensions (GFED or FINN) are\n#  specified separately in the extensions section.)\n70 BC2BCPI  0.2  - - - xy unitless 1\n71 BC2BCPO  0.8  - - - xy unitless 1\n72 OC2OCPI  0.5  - - - xy unitless 1\n73 OC2OCPO  0.5  - - - xy unitless 1\n74 POGSCAL  1.27 - - - xy unitless 1\n76 SV2POG1  0.49 - - - xy unitless 1\n77 SV2POG2  0.51 - - - xy unitless 1\n\n# Convert CEDS total alchohols to methanol, ethanol, and other alcohols following Chen et al. (2019, ACP)\n90 VOC1toMOH 0.5   - - - xy 1 1\n91 VOC1toEOH 0.375 - - - xy 1 1\n92 VOC1toROH 0.125 - - - xy 1 1\n\n# NOx/NO2 to NO conversion\n115 NO2toNO  6.521739e-1 - -  - xy unitless 1\n\n# SOA-Precursor scale factors\n#\n# From Kim, P.S., et. al. 2015 \"Sources, seasonality, and trends\n# of southeast US aerosol: ...\"\n#   AVOCs and BBVOCs are emitted in proportion to CO, with an emission ratio of\n#     0.069 g AVOC (g CO)−1 (Hayes et al., 2015) and\n#     0.013 g BBVOC (g CO)−1 (Cubison et al., 2011).\n#   They are both oxidized by OH in the model ... to generate SOA.\n280 COtoSOAP_anth 0.069 - - - xy 1 1\n281 COtoSOAP_burn 0.013 - - - xy 1 1\n\n#==============================================================================\n# --- QFED2 diurnal scale factors ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n(((QFED2.or.GFAS.or.BB4MIPS\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n)))QFED2.or.GFAS.or.BB4MIPS\n\n#==============================================================================\n# --- NAP scale factors ---\n#\n# Get anthropogenic (FF) NAP emissions by scaling BENZ emissions with the\n# following factor. Factor is ratio of TgC NAP to TgC BENZ emissions\n# or equivalently, molec C NAP to molec C BENZ. Scaling should produce\n# about 0.09 TgC NAP/year, consistent with non-BB,BF emissions predicted\n# by Zhang and Tao 2009 Atm Env\n# Based on year 2000 1x1 inv  (hotp 11/14/09)\n#REAL*8, PARAMETER    :: NAPTOBENZSCALE = 0.06861d0\n\n# NAPTOTSCAL: factor to scale total NAP emissions to POA (hotp 7/24/09)\n#REAL*8, PARAMETER    :: NAPTOTALSCALE = 66.09027d0\n\n# = CO emissions * emissions ratio of mol NAP / mol CO\n# * kg C / mol NAP * mol CO / kg CO\n# mmol NAP / mol CO = 0.025 g NAP/ kg DM /\n#              ( 78 g CO/ kg DM ) * 28 g CO / mol CO\n#            / ( 128 g NAP / mol NAP ) *1000 mmol/mol\n# scale emissions down if appropriate to remove the\n# effect of VOC ox on CO emission\n# EF for NAP from Andreae and Merlet 2001 Glob Biog Cyc\n# EF for CO  from Andreae and Merlet 2001 Glob Biog Cyc\n#BIOFUEL_KG(N,:,:) = BIOFUEL_KG(IDBFCO,:,:) * 0.0701d-3\n#                  * 120d0 / 28d0 * COSCALEDOWN\n#==============================================================================\n(((EDGARv43\n80 NAPEMISS   1.0     - - - xy unitless 1\n81 NAPTOTSCAL 66.09   - - - xy unitless 1\n82 BENZTONAP  6.86e-2 - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- BIOGENIC EMISSIONS FROM DRY LEAF MATTER ---\n#\n# Use yield of 40ug/dDW.\n# Assume organic matter has molecular formula CH2O (MW 30.03), which\n#  means 0.4 gC / g plant\n# ALD2 MW = 44.05 g/mole ==> 0.55 gC/g ALD2\n#  Therefore 40ug (ALD2) / g (plant) ==> 55 ug C in ALD2 / gC plant\n# EOH MW = 46 g/mole ==> 0.52 gC/g EOH\n#  Therefore 40ug (EOH)  / g (plant) ==> 52 ug C in EOH  / gC plant\n#==============================================================================\n(((DECAYING_PLANTS\n85 YIELD_RESP_ALD2 55.0e-6 - - - xy unitless 1\n86 YIELD_RESP_EOH  52.0e-6 - - - xy unitless 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#==============================================================================\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n# Conversions from AEIC2019 inventory quantities to individual species\n111 AEICSO2  1.176000e-3 - - - xy unitless 1\n112 AEICSO4  3.600000e-5 - - - xy unitless 1\n\n#------------------------------------------------------------------------------\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Increase\n# from 2018 to 2019 is estimated based on the growth from 2017 to 2018.\n# Lee et al. (2021) only covers 1990 to 2018, so to get to 2019 it is\n# assumed that the growth from 2017 to 2018 is the same as that from 2018\n# to 2019. So the formula is something like:\n#\n# Emissions of CO  in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down.\n#\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC_SCALE_1990_2019\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n#==============================================================================\n# --- EPA NEI day-of-week scale factors ---\n#==============================================================================\n(((NEI2016_MONMEAN\n210 NEI99_DOW_NOX   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc NOX  1999/1-12/WD/0 C xy 1 1\n211 NEI99_DOW_CO    $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO   1999/1-12/WD/0 C xy 1 1\n212 NEI99_DOW_ALK4  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ALK4 1999/1-12/WD/0 C xy 1 1\n213 NEI99_DOW_ACET  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ACET 1999/1-12/WD/0 C xy 1 1\n214 NEI99_DOW_MEK   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MEK  1999/1-12/WD/0 C xy 1 1\n215 NEI99_DOW_PRPE  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc PRPE 1999/1-12/WD/0 C xy 1 1\n216 NEI99_DOW_C3H8  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C3H8 1999/1-12/WD/0 C xy 1 1\n217 NEI99_DOW_C2H6  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C2H6 1999/1-12/WD/0 C xy 1 1\n218 NEI99_DOW_SO2   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO2  1999/1-12/WD/0 C xy 1 1\n219 NEI99_DOW_SO4   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO4  1999/1-12/WD/0 C xy 1 1\n220 NEI99_DOW_MSA   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MSA  1999/1-12/WD/0 C xy 1 1\n221 NEI99_DOW_BCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc BCPI 1999/1-12/WD/0 C xy 1 1\n222 NEI99_DOW_OCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc OCPI 1999/1-12/WD/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- EPA NEI2016 annual scale factors ---\n#\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n#\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#==============================================================================\n(((NEI2016_MONMEAN\n251 NEI2016_NOx_YRSCALE  2.341/2.213/2.083/1.989/1.879/1.768/1.651/1.539/1.448/1.407/1.345/1.282/1.224/1.135/1.000/0.943/0.895/0.840/0.785 - 2002-2020/1/1/0 C xy 1 1\n252 NEI2016_CO_YRSCALE   1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n253 NEI2016_NH3_YRSCALE  0.996/0.999/1.002/1.005/1.043/1.082/1.100/1.088/1.077/1.012/0.957/0.954/0.899/0.950/1.000/1.052/1.051/1.050/1.049 - 2002-2020/1/1/0 C xy 1 1\n254 NEI2016_VOC_YRSCALE  1.314/1.285/1.255/1.223/1.234/1.246/1.148/1.135/1.154/1.175/1.153/1.131/1.110/1.067/1.000/0.970/0.956/0.941/0.926 - 2002-2020/1/1/0 C xy 1 1\n255 NEI2016_SO2_YRSCALE  4.773/4.701/4.626/4.625/4.171/3.717/3.273/2.879/2.446/2.038/1.591/1.525/1.469/1.237/1.000/0.767/0.735/0.641/0.583 - 2002-2020/1/1/0 C xy 1 1\n256 NEI2016_PM25_YRSCALE 1.120/1.140/1.159/1.178/1.213/1.248/1.202/1.195/1.190/1.192/1.153/1.115/1.077/1.040/1.000/0.964/0.961/0.958/0.955 - 2002-2020/1/1/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- GFAS scale factors ---\n#==============================================================================\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#==============================================================================\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016), emit 35% of QFED\n# emissions above the PBL.\n#==============================================================================\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n#==============================================================================\n# --- CEDS vertical partitioning ---\n#==============================================================================\n(((CEDS_01x01\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDS_01x01\n\n#==============================================================================\n# --- DICE-Africa ---\n#==============================================================================\n(((DICE_Africa\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n320 DICE_CP_SF    0.20 - - - xy 1 1\n\n# Car emissions of OCPI and OCPO scale factor to address a factor of 7 overestimate\n# in car OC emissions that results from incorrect emission factors used in the original inventory\n330 DICE_CAR_OC_SF    0.14 - - - xy 1 1\n)))DICE_Africa\n\n#==============================================================================\n# --- Offline biogenic VOC scale factors ---\n#\n# Isoprene      : 1.5% mass yield SOAP, 1.5% mass yield SOAS\n# Monoterpenes  : 5.0% mass yield SOAP, 5.0% mass yield SOAS\n# Other terpenes: 5.0% mass yield SOAP, 5.0% mass yield SOAS\n#  --> Need to multiply by 1.133 to convert from carbon basis to mass basis\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n610 ISOPtoSOA 0.0170 - - - xy 1 1\n611 MONOtoSOA 0.0567 - - - xy 1 1\n612 OTHRtoSOA 0.0567 - - - xy 1 1\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt scale factors ---\n#\n# NOTES:\n# - Sea salt alkalinity and chloride values obtained from hcox_seasalt_mod.F90\n# - BrContent obtained from '--> Br- mass ratio' in SeaSalt extension above\n#==============================================================================\n(((OFFLINE_SEASALT\n615 SSAlkalinity 1.0     - - - xy 1 1\n616 SSChloride   0.5504  - - - xy 1 1\n617 BrContent    2.11e-3 - - - xy 1 1\n)))OFFLINE_SEASALT\n\n(((OFFLINE_DUST\n621 mfrac_DSTbin1    3.344e-4  - - - xy 1 1\n622 mfrac_DSTbin2    1.593e-3  - - - xy 1 1\n623 mfrac_DSTbin3    1.194e-2  - - - xy 1 1\n624 mfrac_DSTbin4    3.430e-2  - - - xy 1 1\n625 mfrac_DSTbin5    1.248e-1  - - - xy 1 1\n626 mfrac_DSTbin6    2.573e-1  - - - xy 1 1\n627 mfrac_DSTbin7    5.698e-1  - - - xy 1 1\n)))OFFLINE_DUST\n\n(((AFCID\n630 half_AFCID       0.5       - - - xy 1 1\n631 mfrac_bin1       6.944e-3  - - - xy 1 1\n632 mfrac_bin2       3.307e-2  - - - xy 1 1\n633 mfrac_bin3       2.478e-1  - - - xy 1 1\n634 mfrac_bin4       7.121e-1  - - - xy 1 1\n)))AFCID\n\n)))EMISSIONS\n\n#==============================================================================\n# Scale the CMIP6 values in pptv to ppbv\n#==============================================================================\n801 pptv2ppbv  0.001      - - - xy 1 1\n802 vv2ppbv    1000000000 - - - xy 1 1\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43.or.DICE_Africa\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43.or.DICE_Africa\n\n(((CEDS_01x01\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDSv2 ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDSv2 ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDS_01x01\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\n(((APEI\n1002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc                  MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n(((NEI2016_MONMEAN\n1007 CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc                      MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n1008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc       LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n1009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n\n(((AFCID\n1010 INDIA_MASK  $ROOT/MASKS/v2019-05/India_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  67/7/99/39\n)))AFCID\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             2\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\nMask fractions:              false\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species   Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true      ${RUNDIR_MET_AVAIL}\n    --> CHEMISTRY_INPUT        :       true\n    --> USE_CH4_DATA           :       true\n    --> USE_CO_DATA            :       true\n    --> USE_CO2_DATA           :       true\n    --> USE_OCS_DATA           :       true     # 2012-2016\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n    --> HEMCO_RESTART          :       true\n# ----- NESTED GRID FIELDS ----------------------------------------------------\n    --> GC_BCs                 :       ${RUNDIR_USE_BCs}\n# ----- CH4 INVENTORIES AND DATA ----------------------------------------------\n# ..... Regional Inventories .........\n    --> GHGI_v2                :       false    # 2012-2018\n    --> GHGI_v2_Express_Ext    :       true     # 2012-2020\n    --> Scarpelli_Canada       :       true     # 2018\n    --> Scarpelli_Mexico       :       true     # 2015\n# ..... Global Inventories ...........\n    --> GFEIv3                 :       true     # 2020\n    --> GRPI                   :       true     # 2022\n    --> EDGARv8                :       true     # 2010-2022\n    --> QFED2                  :       false    # 2009-2015\n    --> JPL_WETCHARTS          :       true     # 2010\n    --> LPJ_MERRA2             :       false    # 2018-2023\n    --> SEEPS                  :       true     # 2012\n    --> LAKES                  :       false    # 2009-2015\n    --> RESERVOIRS             :       true     # 2022\n    --> CAMS_TERMITES          :       true     # 2000\n    --> MeMo_SOIL_ABSORPTION   :       true     # 1990-2009 or clim.\n    --> CMIP6_SFC_LAND_ANTHRO  :       false    # 1850-2100\n    --> CMIP6_SHIP             :       false    # 1850-2100\n    --> BB4MIPS                :       false    # 1850-2100\n# ..... Non-Emissions Data ...........\n    --> CH4_LOSS_FREQ          :       true     # 1985\n    --> GLOBAL_CL              :       true     # 2010-2019\n# ----- CO and CO2-only INVENTORIES AND DATA ----------------------------------\n# ..... Global inventories ...........\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       true     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       true     # Scale to year in 1990-2019\n    --> CEDS_01x01             :       true     # 1980-2019\n    --> HTAP                   :       false    # 2008-2010\n    --> FOSSIL_ODIAC           :       true     # 2000-2018\n    --> FOSSIL_CDIAC           :       false    # 1980-2014\n    --> OCEAN_EXCH_TAKA09      :       false    # 2000\n    --> OCEAN_EXCH_SCALED      :       true     # 2000-2013\n    --> BBIO_DIURNAL           :       false    # 1985\n    --> BBIO_SIB3              :       true     # 2006-2010\n    --> NET_TERR_EXCH          :       true     # 2000\n    --> CO2CORR                :       true     # 2000-2018\n    --> FINNv25                :       false    # 2012-2023  \n# ..... Regional inventories .........\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ..... Non-emissions data ...........\n    --> CO2_COPROD             :       true     # 2004-2009\n    --> PROD_CO_CH4            :       true     # 2010-2019\n    --> PROD_CO_NMVOC          :       true     # 2010-2019\n    --> GMI_PROD_LOSS          :       true     # 2005\n    --> GMD_SFC_CH4            :       true     # 1979-2020\n    --> CMIP6_SFC_CH4          :       false    # 1750-1978\n# ..... Ship emissions ...............\n    --> SHIP                   :       true\n    --> CEDS_01x01_SHIP        :       true     # 1980-2019\n    --> HTAP_SHIP              :       false    # 2000-2018\n#------ OCS FLUX DATA ---------------------------------------------------------\n    --> OCS_ANTHRO_FLUX        :       true     # 2012-2016\n    --> OCS_BIOMASS_FLUX       :       true     # 2012-2016\n    --> OCS_MISSING_OCEAN_FLUX :       true     # 2012-2016\n    --> OCS_OCEAN_FLUX         :       true     # 2012-2016\n# ----- FUTURE EMISSIONS ------------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n    --> GLOBAL_OH_GC14         :       false    # 2010-2019\n    --> GLOBAL_OH_GCv5         :       true     # 1985 (recommended for CH4)\n# ----- Options for analytical inversions -------------------------------------\n    --> AnalyticalInversion    :       false\n    --> UseTotalPriorEmis      :       false    # Skips global/regional inventories\n    --> Emis_PosteriorSF       :       false    # Apply posterior scale factors to total emis?\n# -----------------------------------------------------------------------------\n111     GFED                   : on    CH4/CO/CO2\n    --> GFED4                  :       true\n    --> GFED_daily             :       true\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                        CH4 EMISSIONS                               %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n(((USE_CH4_DATA\n\n#==============================================================================\n# ---Total CH4 emissions (all sectors) from prior simulation ---\n#==============================================================================\n(((UseTotalPriorEmis\n\n(((Emis_PosteriorSF\n0 CH4_Emis_Prior ../../prior_run/OutputDir/HEMCO_sa_diagnostics.$YYYY$MM$DD0000.nc EmisCH4_Total $YYYY/$MM/$DD/0 C xy kg/m2/s CH4 3 1 500\n)))Emis_PosteriorSF\n\n(((.not.Emis_PosteriorSF\n0 CH4_Emis_Prior ../../prior_run/OutputDir/HEMCO_sa_diagnostics.$YYYY$MM$DD0000.nc EmisCH4_Total $YYYY/$MM/$DD/0 C xy kg/m2/s CH4 - 1 500\n))).not.Emis_PosteriorSF\n\n)))UseTotalPriorEmis\n\n(((.not.UseTotalPriorEmis\n\n#==============================================================================\n# --- CH4: Gridded GHGI v2 (Maasakkers et al., submitted to ES&T, 2023) ---\n#\n# NOTES:\n# - This is the main Gridded GHGI v2 dataset based off the US GHGI\n#   published in 2020\n# - Use Hier=100 to add to Canada and Mexico regional inventories\n# - Make sure to include offshore/coastal emissions (Hier=1 to add to EDGAR,\n#   Hier=5 to add to GFEI; mask=1009) ###\n#==============================================================================\n(((GHGI_v2\n### Oil ###\n0 GHGI_OIL_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Exploration   2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 51/1008 1 100\n0 GHGI_COAST_OIL_EXPLORATION  -                                                                    -                                            -                  -   -  -           CH4 51/1009 1 5\n0 GHGI_OIL_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Production    2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 52/1008 1 100\n0 GHGI_COAST_OIL_PRODUCTION   -                                                                    -                                            -                  -   -  -           CH4 52/1009 1 5\n0 GHGI_OIL_REFINING           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Refining      2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 53/1008 1 100\n0 GHGI_COAST_OIL_REFINING     -                                                                    -                                            -                  -   -  -           CH4 53/1009 1 5\n0 GHGI_OIL_TRANSPORT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Transport     2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 54/1008 1 100\n0 GHGI_COAST_OIL_TRANSPORT    -                                                                    -                                            -                  -   -  -           CH4 54/1009 1 5\n\n### Gas ###\n0 GHGI_GAS_DISTRIBUTION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Distribution        2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    2 100\n0 GHGI_COAST_GAS_DISTRIBUTION -                                                                    -                                            -                  -   -  -           CH4 1009    2 5\n0 GHGI_GAS_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Exploration         2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 55/1008 2 100\n0 GHGI_COAST_GAS_EXPLORATION  -                                                                    -                                            -                  -   -  -           CH4 55/1009 2 5\n0 GHGI_GAS_PROCESSING         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Processing          2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    2 100\n0 GHGI_COAST_GAS_PROCESSING   -                                                                    -                                            -                  -   -  -           CH4 1009    2 5\n0 GHGI_GAS_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Production          2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 56/1008 2 100\n0 GHGI_COAST_GAS_PRODUCTION   -                                                                    -                                            -                  -   -  -           CH4 56/1009 2 5\n0 GHGI_GAS_TRANSMISSION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_TransmissionStorage 2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    2 100\n0 GHGI_COAST_GAS_TRANSMISSION -                                                                    -                                            -                  -   -  -           CH4 1009    2 5\n\n### Coal ###\n0 GHGI_COAL_UNDERGROUND       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Underground_Coal                2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    3 100\n0 GHGI_COAST_COAL_UNDERGROUND -                                                                    -                                            -                  -   -  -           CH4 1009    3 5\n0 GHGI_COAL_SURFACE           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Surface_Coal                    2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    3 100\n0 GHGI_COAST_COAL_SURFACE     -                                                                    -                                            -                  -   -  -           CH4 1009    3 5\n0 GHGI_COAL_ABANDONED         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Abandoned_Coal                  2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    3 100\n0 GHGI_COAST_COAL_ABANDONED   -                                                                    -                                            -                  -   -  -           CH4 1009    3 5\n\n### Livestock ###\n0 GHGI_LIVESTOCK_ENT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3A_Enteric_Fermentation              2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    4 100\n0 GHGI_COAST_LIVESTOCK_ENT    -                                                                    -                                            -                  -   -  -           CH4 1009    4 1\n0 GHGI_LIVESTOCK_MAN          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3B_Manure_Management                 2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 57/1008 4 100\n0 GHGI_COAST_LIVESTOCK_MAN    -                                                                    -                                            -                  -   -  -           CH4 57/1009 4 1\n\n### Landfills ###\n0 GHGI_LANDFILLS_IND          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_Industrial             2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    5 100\n0 GHGI_COAST_LANDFILLS_IND    -                                                                    -                                            -                  -   -  -           CH4 1009    5 1\n0 GHGI_LANDFILLS_MSW          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_MSW                    2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    5 100\n0 GHGI_COAST_LANDFILLS_MSW    -                                                                    -                                            -                  -   -  -           CH4 1009    5 1\n0 GHGI_LANDFILLS_COMP         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5B1_Composting                       2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    5 100\n0 GHGI_COAST_LANDFILLS_COMP   -                                                                    -                                            -                  -   -  -           CH4 1009    5 1\n\n### Wastewater ###\n0 GHGI_WASTEWATER_DOM         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Domestic     2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    6 100\n0 GHGI_COAST_WASTEWATER_DOM   -                                                                    -                                            -                  -   -  -           CH4 1009    6 1\n0 GHGI_WASTEWATER_IND         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Industrial   2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    6 100\n0 GHGI_COAST_WASTEWATER_IND   -                                                                    -                                            -                  -   -  -           CH4 1009    6 1\n\n### Rice ###\n0 GHGI_RICE                   $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3C_Rice_Cultivation                  2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 58/1008 7 100\n0 GHGI_COAST_RICE             -                                                                    -                                            -                  -   -  -           CH4 58/1009 7 1\n\n### Other Anthro ###\n0 GHGI_OTHER_MCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Mobile                 2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_MCOMB      -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n0 GHGI_OTHER_SCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Stationary             2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 50/1008 8 100\n0 GHGI_COAST_OTHER_SCOMB      -                                                                    -                                            -                  -   -  -           CH4 50/1009 8 1\n0 GHGI_OTHER_PIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2B8_Industry_Petrochemical           2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_PIND       -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n0 GHGI_OTHER_FIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2C2_Industry_Ferroalloy              2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_FIND       -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n0 GHGI_OTHER_BURN             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3F_Field_Burning                     2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 59/1008 8 100\n0 GHGI_COAST_OTHER_BURN       -                                                                    -                                            -                  -   -  -           CH4 59/1009 8 1\n0 GHGI_OTHER_ABOG             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2ab_Abandoned_Oil_Gas              2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_ABOG       -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n)))GHGI_v2\n\n#=======================================================================================\n# --- CH4: Gridded GHGI v2 Express Extension (Maasakkers et al., submitted to ES&T, 2023) ---\n#\n# NOTES:\n# - Based off the US GHGI published in 2022.\n# - Uses annual source-specific spatial patterns from 2012-2018 from the main\n#   dataset to quickly incorporate more recent national methane emission estimates.\n# - Emissions for years after 2018 follow the 2018 spatial patterns.\n# - Make sure to include offshore/coastal emissions (Hier=1 to add to EDGAR,\n#   Hier=5 to add to GFEI; mask=1009) ###\n#=======================================================================================\n(((GHGI_v2_Express_Ext\n(((.not.GHGI_v2\n### Oil ###\n0 GHGI_EE_OIL_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Exploration   2012-2020/1-12/1/0 C xy molec/cm2/s CH4 51/1008 1 100\n0 GHGI_EE_COAST_OIL_EXPLORATION  -                                                                                      -                                            -                  - -  -           CH4 51/1009 1 5\n0 GHGI_EE_OIL_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Production    2012-2020/1-12/1/0 C xy molec/cm2/s CH4 52/1008 1 100\n0 GHGI_EE_COAST_OIL_PRODUCTION   -                                                                                      -                                            -                  - -  -           CH4 52/1009 1 5\n0 GHGI_EE_OIL_REFINING           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Refining      2012-2020/1-12/1/0 C xy molec/cm2/s CH4 53/1008 1 100\n0 GHGI_EE_COAST_OIL_REFINING     -                                                                                      -                                            -                  - -  -           CH4 53/1009 1 5\n0 GHGI_EE_OIL_TRANSPORT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Transport     2012-2020/1-12/1/0 C xy molec/cm2/s CH4 54/1008 1 100\n0 GHGI_EE_COAST_OIL_TRANSPORT    -                                                                                      -                                            -                  - -  -           CH4 54/1009 1 5\n\n### Gas ###\n0 GHGI_EE_GAS_DISTRIBUTION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Distribution        2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n0 GHGI_EE_COAST_GAS_DISTRIBUTION -                                                                                      -                                            -                  - -  -           CH4 1009    2 5\n0 GHGI_EE_GAS_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Exploration         2012-2020/1-12/1/0 C xy molec/cm2/s CH4 55/1008 2 100\n0 GHGI_EE_COAST_GAS_EXPLORATION  -                                                                                      -                                            -                  - -  -           CH4 55/1009 2 5\n0 GHGI_EE_GAS_PROCESSING         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Processing          2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n0 GHGI_EE_COAST_GAS_PROCESSING   -                                                                                      -                                            -                  - -  -           CH4 1009    2 5\n0 GHGI_EE_GAS_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Production          2012-2020/1-12/1/0 C xy molec/cm2/s CH4 56/1008 2 100\n0 GHGI_EE_COAST_GAS_PRODUCTION   -                                                                                      -                                            -                  - -  -           CH4 56/1009 2 5\n0 GHGI_EE_GAS_TRANSMISSION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_TransmissionStorage 2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n0 GHGI_EE_COAST_GAS_TRANSMISSION -                                                                                      -                                            -                  - -  -           CH4 1009    2 5\n0 GHGI_EE_GAS_POSTMETER          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_Supp_1B2b_PostMeter                  2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n\n### Coal ###\n0 GHGI_EE_COAL_UNDERGROUND       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Underground_Coal                2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    3 100\n0 GHGI_EE_COAST_COAL_UNDERGROUND -                                                                                      -                                            -                  - -  -           CH4 1009    3 5\n0 GHGI_EE_COAL_SURFACE           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Surface_Coal                    2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    3 100\n0 GHGI_EE_COAST_COAL_SURFACE     -                                                                                      -                                            -                  - -  -           CH4 1009    3 5\n0 GHGI_EE_COAL_ABANDONED         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Abandoned_Coal                  2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    3 100\n0 GHGI_EE_COAST_COAL_ABANDONED   -                                                                                      -                                            -                  - -  -           CH4 1009    3 5\n\n### Livestock ###\n0 GHGI_EE_LIVESTOCK_ENT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3A_Enteric_Fermentation              2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    4 100\n0 GHGI_EE_COAST_LIVESTOCK_ENT    -                                                                                      -                                            -                  - -  -           CH4 1009    4 1\n0 GHGI_EE_LIVESTOCK_MAN          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3B_Manure_Management                 2012-2020/1-12/1/0 C xy molec/cm2/s CH4 57/1008 4 100\n0 GHGI_EE_COAST_LIVESTOCK_MAN    -                                                                                      -                                            -                  - -  -           CH4 57/1009 4 1\n\n### Landfills ###\n0 GHGI_EE_LANDFILLS_IND          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_Industrial             2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    5 100\n0 GHGI_EE_COAST_LANDFILLS_IND    -                                                                                      -                                            -                  - -  -           CH4 1009    5 1\n0 GHGI_EE_LANDFILLS_MSW          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_MSW                    2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    5 100\n0 GHGI_EE_COAST_LANDFILLS_MSW    -                                                                                      -                                            -                  - -  -           CH4 1009    5 1\n0 GHGI_EE_LANDFILLS_COMP         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5B1_Composting                       2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    5 100\n0 GHGI_EE_COAST_LANDFILLS_COMP   -                                                                                      -                                            -                  - -  -           CH4 1009    5 1\n\n### Wastewater ###\n0 GHGI_EE_WASTEWATER_DOM         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Domestic     2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    6 100\n0 GHGI_EE_COAST_WASTEWATER_DOM   -                                                                                      -                                            -                  - -  -           CH4 1009    6 1\n0 GHGI_EE_WASTEWATER_IND         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Industrial   2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    6 100\n0 GHGI_EE_COAST_WASTEWATER_IND   -                                                                                      -                                            -                  - -  -           CH4 1009    6 1\n\n### Rice ###\n0 GHGI_EE_RICE                   $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3C_Rice_Cultivation                  2012-2020/1-12/1/0 C xy molec/cm2/s CH4 58/1008 7 100\n0 GHGI_EE_COAST_RICE             -                                                                                      -                                            -                  - -  -           CH4 58/1009 7 1\n\n### Other Anthro ###\n0 GHGI_EE_OTHER_MCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Mobile                 2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_MCOMB      -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n0 GHGI_EE_OTHER_SCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Stationary             2012-2020/1-12/1/0 C xy molec/cm2/s CH4 50/1008 8 100\n0 GHGI_EE_COAST_OTHER_SCOMB      -                                                                                      -                                            -                  - -  -           CH4 50/1009 8 1\n0 GHGI_EE_OTHER_PIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2B8_Industry_Petrochemical           2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_PIND       -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n0 GHGI_EE_OTHER_FIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2C2_Industry_Ferroalloy              2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_FIND       -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n0 GHGI_EE_OTHER_BURN             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3F_Field_Burning                     2012-2020/1-12/1/0 C xy molec/cm2/s CH4 59/1008 8 100\n0 GHGI_EE_COAST_OTHER_BURN       -                                                                                      -                                            -                  - -  -           CH4 59/1009 8 1\n0 GHGI_EE_OTHER_ABOG             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2ab_Abandoned_Oil_Gas              2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_ABOG       -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n))).not.GHGI_v2\n)))GHGI_v2_Express_Ext\n\n#==============================================================================\n# --- CH4: Mexico emissions (Scarpelli et. al, Environ. Res. Lett., 2020) ---\n#\n# NOTES:\n# - Use Hier=100 to add to Canada and USA regional inventories\n# - Make sure to include offshore/coastal emissions\n#   (Hier=1 to add to EDGAR, Hier=5 to add to GFEI)\n#==============================================================================\n(((Scarpelli_Mexico\n0 MEX_OIL               $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_oil_2015.nc          emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    1 100\n0 MEX_OIL_COAST         -                                                                    -        -          - -  -           CH4 1010    1 5\n0 MEX_GAS               $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_gas_2015.nc          emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    2 100\n0 MEX_GAS_COAST         -                                                                    -        -          - -  -           CH4 1010    2 5\n0 MEX_COAL              $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_coal_2015.nc         emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    3 100\n0 MEX_COAL_COAST        -                                                                    -        -          - -  -           CH4 1010    3 5\n0 MEX_LIVESTOCK_A       $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_A_2015.nc  emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    4 100\n0 MEX_LIVESTOCK_A_COAST -                                                                    -        -          - -  -           CH4 1010    4 1\n0 MEX_LIVESTOCK_B       $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_B_2015.nc  emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 10/1001 4 100\n0 MEX_LIVESTOCK_B_COAST -                                                                    -        -          - -  -           CH4 10/1010 4 1\n0 MEX_LANDFILLS         $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_landfill_2015.nc     emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    5 100\n0 MEX_LANDFILLS_COAST   -                                                                    -        -          - -  -           CH4 1010    5 1\n0 MEX_WASTEWATER        $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_waste_2015.nc        emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    6 100\n0 MEX_WASTEWATER_COAST  -                                                                    -        -          - -  -           CH4 1010    6 1\n0 MEX_RICE              $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_rice_2015.nc         emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 11/1001 7 100\n0 MEX_RICE_COAST        -                                                                    -        -          - -  -           CH4 11/1010 7 1\n0 MEX_OTHER             $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_other_anthro_2015.nc emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    8 100\n0 MEX_OTHER_COAST       -                                                                    -        -          - -  -           CH4 1010    8 1\n)))Scarpelli_Mexico\n\n#==============================================================================\n# --- CH4: Canada emissions (Scarpelli et al., Environ. Res. Lett., 2022) ---\n#\n# NOTES:\n# - Use Hier=100 to add to USA and Mexico regional inventories\n# - Make sure to include offshore/coastal emissions\n#   (Hier=1 to add to EDGAR, Hier=5 to add to GFEI)\n#==============================================================================\n(((Scarpelli_Canada\n0 CAN_OIL_GAS_COMBUSTION        $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_combustion_2018.nc  oil_gas_combustion_total  2018/1/1/0 C xy kg/m2/s CH4 1002 1/2 100\n0 CAN_OIL_GAS_COMBUSTION_COAST  -                                                                        -                         -          - -  -       CH4 1011 1/2 5\n0 CAN_OIL_GAS_LEAKAGE           $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_leakage_2018.nc     oil_gas_leakage_total     2018/1/1/0 C xy kg/m2/s CH4 1002 1/2 100\n0 CAN_OIL_GAS_LEAKAGE_COAST     -                                                                        -                         -          - -  -       CH4 1011 1/2 5\n0 CAN_OIL_GAS_VENT_FLARE        $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_vent_flare_2018.nc  oil_gas_vent_flare_total  2018/1/1/0 C xy kg/m2/s CH4 1002 1/2 100\n0 CAN_OIL_GAS_VENT_FLARE_COAST  -                                                                        -                         -          - -  -       CH4 1011 1/2 5\n0 CAN_COAL                      $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_coal_2018.nc                coal_total                2018/1/1/0 C xy kg/m2/s CH4 1002 3   100\n0 CAN_COAL_COAST                -                                                                        -                         -          - -  -       CH4 1011 3   5\n0 CAN_LIVESTOCK                 $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_livestock_2018.nc           livestock_total           2018/1/1/0 C xy kg/m2/s CH4 1002 4   100\n0 CAN_LIVESTOCK_COAST           -                                                                        -                         -          - -  -       CH4 1011 4   1\n0 CAN_SOLID_WASTE               $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_solid_waste_2018.nc         solid_waste_total         2018/1/1/0 C xy kg/m2/s CH4 1002 5   100\n0 CAN_SOLID_WASTE_COAST         -                                                                        -                         -          - -  -       CH4 1011 5   1\n0 CAN_WASTEWATER                $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_wastewater_2018.nc          wastewater_total          2018/1/1/0 C xy kg/m2/s CH4 1002 6   100\n0 CAN_WASTEWATER_COAST          -                                                                        -                         -          - -  -       CH4 1011 6   1\n0 CAN_OTHER                     $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_other_minor_sources_2018.nc other_minor_sources_total 2018/1/1/0 C xy kg/m2/s CH4 1002 8   100\n0 CAN_OTHER_COAST               -                                                                        -                         -          - -  -       CH4 1011 8   1\n)))Scarpelli_Canada\n\n#==============================================================================\n# --- CH4: Global Fuel Exploitation Inventory (GFEI v3, Scarpelli et al., 2025) ---\n#\n# This inventory will replace EDGAR (oil, gas, & coal)\n#==============================================================================\n(((GFEIv3\n0 GFEI_CH4_OIL  $ROOT/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Oil_All.nc  Oil_All 2020/1/1/0 C xy kg/m2/s CH4 -  1 5\n0 GFEI_CH4_GAS  $ROOT/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Gas_All.nc  Gas_All 2020/1/1/0 C xy kg/m2/s CH4 -  2 5\n0 GFEI_CH4_COAL $ROOT/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Coal.nc     Coal    2020/1/1/0 C xy kg/m2/s CH4 -  3 5\n)))GFEIv3\n\n#==============================================================================\n# --- Global Rice Patty Inventory (GRPI, Zichong Chen et al., 2025) ---\n#\n# This inventory will replace EDGAR (rice)\n#==============================================================================\n(((GRPI\n0 GRPI_CH4_RICE $ROOT/CH4/v2025-01/GRPI/GRPI_01x01.nc emi_ch4 2022/1-12/1/0 C xy kg/m2/s CH4 -  7 5\n)))GRPI\n\n#==============================================================================\n# --- CH4: EDGAR v8.0 emissions ---\n#\n# NOTES:\n# - EDGAR v8 livestock emissions have unexplained hotspots and no seasonality.\n#   Use EDGAR v7 emissions for that sector instead.\n#==============================================================================\n(((EDGARv8\n### Oil ###\n0 EDGAR8_CH4_PRO_OIL             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_PRO_OIL_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 1 1\n0 EDGAR8_CH4_REF_TRF             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_REF_TRF_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 1 1\n\n### Gas ###\n0 EDGAR8_CH4_PRO_GAS             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_PRO_GAS_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 2 1\n\n### Coal ###\n0 EDGAR8_CH4_PRO_COAL            $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_PRO_COAL_flx.nc         emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 3 1\n\n### Livestock (from EDGAR v7) ###\n0 EDGAR7_CH4_LIVESTOCK__4A       $ROOT/CH4/v2023-04/EDGARv7/$YYYY/v7.0_FT2021_CH4_$YYYY_ENF.0.1x0.1.nc              emi_ch4 2010-2021/1-12/1/0 C xy kg/m2/s CH4 24 4 1\n0 EDGAR7_CH4_LIVESTOCK__4B       $ROOT/CH4/v2023-04/EDGARv7/$YYYY/v7.0_FT2021_CH4_$YYYY_MNM.0.1x0.1.nc              emi_ch4 2010-2021/1-12/1/0 C xy kg/m2/s CH4 28 4 1\n\n### Landfills ###\n0 EDGAR8_CH4_SWD_LDF             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_LDF_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 5 1\n\n### Wastewater ###\n0 EDGAR8_CH4_WWT                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_WWT_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 6 1\n\n### Rice ###\n0 EDGAR8_CH4_AGS                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AGS_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 7 1\n\n### Other Anthro ###\n0 EDGAR8_CH4_ENE                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_ENE_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_IND                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IND_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Aviation_CDS    $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Aviation_CDS_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Aviation_CRS    $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Aviation_CRS_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Aviation_LTO    $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Aviation_LTO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TRO                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TRO_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Other           $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Other_flx.nc        emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Ship            $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Ship_flx.nc         emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_RCO                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_RCO_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_CHE                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_CHE_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_IRO                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IRO_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n# Comment out to avoid double counting with GFED\n#0 EDGAR8_CH4_AWB                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_SWD_INC             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_INC_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n)))EDGARv8\n\n#==============================================================================\n# --- CH4: CEDS (historical) or Shared Socioeconomic Pathways (future) ---\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_CH4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_agr 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 4 1\n0 CMIP6_CH4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_ene 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 2 1\n0 CMIP6_CH4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_ind 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 CMIP6_CH4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_tra 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 CMIP6_CH4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_rco 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 2 1\n0 CMIP6_CH4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_slv 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 CMIP6_CH4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_wst 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 5 1\n)))CMIP6_SFC_LAND_ANTHRO\n(((CMIP6_SHIP\n0 CMIP6_CH4_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_shp 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n)))CMIP6_SHIP\n\n#==============================================================================\n# --- CH4: BB4MIPs historical / SSP future biomass burning inventories ---\n#==============================================================================\n(((BB4MIPS\n0 CMIP6_BB_CH4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_bbn 1750-2015/1-12/1/0 C xyL=1:PBL kg/m2/s CH4 75 9 1\n)))BB4MIPS\n\n#==============================================================================\n# --- CH4: QFED2 biomass burning ---\n#\n# Use QFED v2.4r8 for CH4. The data in QFED/v2014-09 are for v2.4r5 and have\n# been found to be buggy for CH4 (same emissions on each day).\n#==============================================================================\n(((QFED2\n0 QFED_CH4   $ROOT/CH4/v2017-10/QFED/QFEDv2.4r8.emis_ch4.$YYYY.nc              emi_ch4 2009-2015/1-12/1-31/0 C xy molec/cm2/s CH4 -  9 2\n)))QFED2\n\n#==============================================================================\n# --- JPL WetCHARTs v1.0 wetland emissions ---\n#\n# Reference: Bloom et al., https://doi.org/10.3334/ORNLDAAC/1502\n# Use updated files (v2024-01); these are COARDS-compliant.\n#==============================================================================\n(((JPL_WETCHARTS\n0 JPLW_CH4  $ROOT/CH4/v2024-01/JPL_WetCharts/HEensemble/JPL_WetCharts_2010-2019.Ensemble_Mean.0.5x0.5.nc emi_ch4 2010/1-12/1/0 C xy molec/cm2/s CH4 - 10 1\n)))JPL_WETCHARTS\n\n#==============================================================================\n# ---  LPJ MERRA-2 wetland emissions ---\n#\n# Reference: East et al., https://agupubs.onlinelibrary.wiley.com/doi/full/10.1029/2024GL108494\n#==============================================================================\n(((LPJ_MERRA2\n0 LPJ_CH4 $ROOT/CH4/v2025-09/LPJ_MERRA2/LPJ_MERRA2_$YYYY_0.5x0.5.nc emis_ch4 2018-2023/1-12/1/0 C xy kg/m2/s CH4 - 10 2\n)))LPJ_MERRA2\n\n#==============================================================================\n# --- CH4: Geological Seeps ---\n#==============================================================================\n(((SEEPS\n0 CH4_SEEPS $ROOT/CH4/v2020-04/Seeps/Etiope_CH4GeologicalEmis_ScaledToHmiel.1x1.nc emi_ch4 2012/1/1/0 C xy kg/m2/s CH4 - 11 1\n)))SEEPS\n\n#==============================================================================\n# --- CH4: Emissions from Lakes (Maasakkers et al., 2019) ---\n#==============================================================================\n(((LAKES\n0 CH4_LAKES $ROOT/CH4/v2022-11/Lakes/Maasakkers_Lakes_$YYYY.01x01.nc emi_ch4 $YYYY/1-12/1/0 C xy molec/cm2/s CH4 - 12 1\n)))LAKES\n\n#==============================================================================\n# --- Emissions from Hydroelectric Reservoirs (Delwich et al., 2022) ---\n#\n# Use updated files (v2024-01); these are COARDS-compliant.\n#==============================================================================\n(((RESERVOIRS\n0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc     CH4emis 2022/1-12/1/0 C xy kg/m2/s CH4 1500 15 1\n0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1-12/1/0 C xy kg/m2/s CH4 1500 15 1\n)))RESERVOIRS\n\n#==============================================================================\n# --- CH4: Termites from CAMS-GLOB-TERM.v1.1 ---\n#==============================================================================\n(((CAMS_TERMITES\n0 CH4_TERMITES $ROOT/CH4/v2026-02/CAMS_Termites/CAMS-GLOB-TERM_v1.1_methane_2000.nc CH4 2000/1-12/1/0 C xy kg/m2/s CH4 - 13 1\n)))CAMS_TERMITES\n\n#==============================================================================\n# --- CH4: Soil absorption from MeMo model (Murguia-Flores et al. 2018, GMD) ---\n#\n# - Multiply soil absorption by -1 to get a \"negative\" flux\n#==============================================================================\n(((MeMo_SOIL_ABSORPTION\n# Climatology\n0 CH4_SOILABSORB $ROOT/CH4/v2019-10/MeMo_SoilAbs/MeMo_CH4uptake_Climatology.nc CH4uptake 2009/1-12/1/0 C xy kg/m2/s CH4 1 14 2\n\n# 1990-2009\n#0 CH4_SOILABSORB $ROOT/CH4/v2019-10/MeMo_SoilAbs/MeMo_CH4uptake_1990-2009.nc CH4uptake 1990-2009/1-12/1/0 C xy kg/m2/s CH4 1 14 2\n)))MeMo_SOIL_ABSORPTION\n\n#==============================================================================\n# --- CH4: RCP future emission scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CH4 $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CH4  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CH4  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CH4  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_85\n\n))).not.UseTotalPriorEmis\n\n)))USE_CH4_DATA\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                        CO EMISSIONS                                %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n(((USE_CO_DATA\n\n#==============================================================================\n# --- CO: APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_CO    $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO 1989-2014/1/1/0 RF xy kg/m2/s CO    26/52/2002      1 30\n)))APEI\n\n#==============================================================================\n# --- CO: EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #2007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_CO__airportsCO   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__nonptCO      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__nonroadCO    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__npogCO       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroadCO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroad_caCO  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__railCO       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__c1c2CO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__c3CO         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__pteguCO      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__ptogCO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__ptnonipmCO   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroad_canCO $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroad_mexCO $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__otharCO      $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__othptCO      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- CO: DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n0 DICE_CARS_CO          $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc                       CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_MOTORCYCLES_CO   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc                CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_BACKUPGEN_CO     $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc              CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_CHARCOALPROD_CO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc        CO 2013/1/1/0 C xy g/m2/yr CO 26/2008/320 1 60\n0 DICE_GASFLARE_CO      $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc                 CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_AGBURNING_CO     $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n0 DICE_CHARCOALUSE_CO   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc               CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n0 DICE_KEROSENE_CO      $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc               CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_OILREFINING_CO   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc         CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_HOUSEFUELWOOD_CO $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc     CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n0 DICE_OTHERFUELWOOD_CO $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc         CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_CO_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1201/26/52/2008 1 60\n0 AF_EDGAR_CO_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1202/26/52/2008 1 60\n0 AF_EDGAR_CO_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1203/26/52/2008 1 60\n0 AF_EDGAR_CO_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1205/26/52/2008 1 60\n0 AF_EDGAR_CO_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1207/26/52/2008 1 60\n0 AF_EDGAR_CO_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1211/26/52/2008 1 60\n)))DICE_Africa\n\n#==============================================================================\n# --- CO: CEDS_01x01 ---\n#\n# %%% This is the default global inventory.                            %%%\n# %%% You may select either CEDS, EDGAR, HTAP or CMIP6_SFC_LAND_ANTHRO %%%\n# %%% for the global base emissions.                                   %%%\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_CO_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_agr  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2401         1 5\n0 CEDS_CO_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s CO 2406/706/315 1 5\n0 CEDS_CO_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s CO 2407/707/316 1 5\n0 CEDS_CO_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_tra  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2411/711     1 5\n0 CEDS_CO_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_rco  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2409/709     1 5\n0 CEDS_CO_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_slv  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2407/707     1 5\n0 CEDS_CO_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_wst  1980-2019/1-12/1/0 C xy   kg/m2/s CO 26           1 5\n)))CEDS_01x01\n\n#==============================================================================\n# --- CO: CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_CO_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_agr 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_ene 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_ind 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_tra 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_rco 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_slv 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_wst 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CO: CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_CO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO 26 20 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- CO: HTAP v2 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAP for the global base emissions %%%\n#\n# ==> HTAP ship emissions are listed in the ship emissions section below\n# ==> Disable aircraft emissions and get them from AEIC instead.\n#==============================================================================\n(((HTAP\n0 HTAP_CO_IND   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_INDUSTRY.generic.01x01.nc    emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n0 HTAP_CO_POW   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_ENERGY.generic.01x01.nc      emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n0 HTAP_CO_RES   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_RESIDENTIAL.generic.01x01.nc emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n0 HTAP_CO_TRA   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_TRANSPORT.generic.01x01.nc   emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n#0 HTAP_CO_AIR1  $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_AIR_LTO.generic.01x01.nc     emi_co 2008-2010/1/1/0    C xy kg/m2/s CO 506/528/26 1 4\n#0 HTAP_CO_AIR2  $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_AIR_CDS.generic.01x01.nc     emi_co 2008-2010/1/1/0    C xy kg/m2/s CO 506/528/26 1 4\n#0 HTAP_CO_AIR3  $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_AIR_CRS.generic.01x01.nc     emi_co 2008-2010/1/1/0    C xy kg/m2/s CO 506/528/26 1 4\n)))HTAP\n\n#==============================================================================\n# --- CO: Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAP for SO2 and ICOADS should be used for CO and NO.\n# ==> Ship NO emissions are used by PARANOx and the extension number must be\n#     adjusted accordingly. If PARANOx is turned off, set the ExtNr back to\n#     zero.\n#==============================================================================\n(((SHIP\n\n(((HTAP_SHIP\n0 HTAP_SHIP_CO  $ROOT/HTAP/v2015-03/EDGAR_HTAP_CO_SHIPS.generic.01x01.nc CO 2008-2010/1/1/0 C xy kg/m2/s CO 506/528 10 4\n)))HTAP_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_CO_SHP $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc CO_shp 1980-2019/1-12/1/0 C xy kg/m2/s CO 26 10 5\n)))CEDS_01x01_SHIP\n\n#==============================================================================\n# --- CO: CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n# the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_CO_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_shp 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 10 5\n)))CMIP6_SHIP\n\n)))SHIP\n\n#==============================================================================\n# --- CO: AEIC 2019 aircraft emissions ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_CO    $ROOT/AEIC2019/v2022-03/2019/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO 2019/1-12/1-31/0 C xyz kg/m2/s CO 241 20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_CO  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO 2019/1-12/1/0 C xyz kg/m2/s CO 241 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- CO: RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CO $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CO  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CO  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CO  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_85\n\n#==============================================================================\n# --- CO biomass burning (base emissions) ---\n#==============================================================================\n\n# --- QFED2 (v2.5r1) ---\n(((QFED2\n0 QFED_CO_PBL $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF xyL=1:PBL     kg/m2/s CO 54/75/311 5 2\n0 QFED_CO_FT  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF xyL=PBL:5500m kg/m2/s CO 54/75/312 5 2\n)))QFED2\n\n# --- GFAS ---\n(((GFAS\n0 GFAS_CO $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO 75 5 3\n)))GFAS\n\n# --- FINNv2.5 biomass burning ---\n(((FINNv25\n0 FINNv25_CO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_CO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc  fire_modisviirs_CO  2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CO 75 5 3\n)))FINNv25\n\n# --- BB4MIPs ---\n(((BB4MIPS\n0 CMIP6_BB_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn 1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CO 75 5 3\n)))BB4MIPS\n\n)))USE_CO_DATA\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                        CO2 EMISSIONS                               %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n(((USE_CO2_DATA\n\n#==============================================================================\n# --- CO2: FOSSIL FUEL EMISSIONS ---\n#\n# National CO2 fossil fuel emissions exclude international shipping and aviation\n# Carbon Dioxide Information Analysis Center (CDIAC) 1x1 national emissions\n# (Andres et al., 2011)\n# Open-source Data Inventory of Anthropogenic CO2 (ODIAC) 1x1 national emissions\n# (Oda & Maksyutov, 2011)\n#\n# ---> Recommended option: ODIAC (set FOSSIL_ODIAC = true)\n#      ODIAC updated to v2019 by J. Fisher and Y. Cao, 12/2019\n#==============================================================================\n(((FOSSIL_CDIAC\n0 FOSSILCO2_CDIAC   $ROOT/CO2/v2014-09/FOSSIL/CDIAC_v2014.monthly.generic.1x1.nc CO2 1980-2014/1-12/1/0 C xy kg/m2/s CO2 440/441/480 1 1\n)))FOSSIL_CDIAC\n\n(((FOSSIL_ODIAC\n0 FOSSILCO2_ODIAC   $ROOT/CO2/v2022-11/FOSSIL/ODIAC_CO2.monthly.generic.1x1.nc   CO2 2000-2018/1-12/1/0 C xy kg/m2/s CO2 440/441/480 1 2\n)))FOSSIL_ODIAC\n\n#==============================================================================\n# --- CO2: OCEAN EXCHANGE EMISSIONS ---\n#\n# Ocean uptake/emission from Takahashi et al. (2009) and earlier works.\n# Climatological exchange for 2000 (-1.4 PgC/yr) or scaled ocean exchange, which\n# accounts for changing atmospheric CO2 (as in the paper) are now available.\n#\n# ---> Recommended option: scaled ocean exchange (set OCEAN_EXCH_SCALED = true)\n#==============================================================================\n(((OCEAN_EXCH_TAKA09\n0 OCEANCO2_TAKA_ANNUAL    $ROOT/CO2/v2022-11/OCEAN/Taka2009_CO2_Annual.nc      CO2 2000/1/1/0    C xy kg/m2/s CO2   - 2 1\n0 OCEANCO2_TAKA_MONTHLY   $ROOT/CO2/v2022-11/OCEAN/Taka2009_CO2_Monthly.nc     CO2 2000/1-12/1/0 C xy kg/m2/s CO2   - 2 2\n)))OCEAN_EXCH_TAKA09\n\n(((OCEAN_EXCH_SCALED\n0 OCEANCO2_SCALED_MONTHLY  $ROOT/CO2/v2022-11/OCEAN/Scaled_Ocean_CO2_monthly.nc CO2 2000-2013/1-12/1/0 C xy kg/m2/s CO2   - 2 3\n)))OCEAN_EXCH_SCALED\n\n#==============================================================================\n# --- CO2: BALANCED BIOSPHERE EXCHANGE ---\n#\n# These emissions have a seasonal cycle of uptake/emission but have a net\n# annual uptake of close to zero (balanced).\n# CASA model daily emissions for a single year at coarse resolution have a\n# diurnal cycle imposed (Olsen & Randerson, 2004)\n# SiB3 emissions are from Nick Parazoo (Messerschmidt et al., 2011) for\n# 2006-2010.\n#\n# ---> Recommended option: SiB3 (set BBIO_SIB3 = true)\n#==============================================================================\n(((BBIO_DIURNAL\n0 BBIOCO2_DIURNAL $ROOT/CO2/v2014-09/BBIO/BBIO_diurnal_CO2.nc CO2 1985/1-12/1-31/0-23 C xy kg/m2/s CO2 - 3 1\n)))BBIO_DIURNAL\n\n(((BBIO_SIB3\n0 SIB_BBIO_CO2    $ROOT/CO2/v2022-11/BIO/SiB3_3hr_NEP.nc CO2 2006-2010/1-12/1-31/0-23 C xy kg/m2/s CO2 - 3 1\n)))BBIO_SIB3\n\n#==============================================================================\n# --- CO2: NET TERRESTRIAL EXCHANGE ---\n#\n# TransCom annual net/residual terrestrial biosperhic CO2 (Baker et al., 2006)\n#\n# ---> Recommended for use in forward modelling, optional for\n#      inversion/assimilation\n#==============================================================================\n(((NET_TERR_EXCH\n0 CO2_NET_TERRESTRIAL  $ROOT/CO2/v2022-11/BIO/Net_terrestrial_exch_5.29Pg.generic.1x1.nc CO2 2000/1/1/0 C xy kg/m2/s CO2   - 5 1\n)))NET_TERR_EXCH\n\n#==============================================================================\n# --- CO2: SHIP EMISSIONS ---\n#==============================================================================\n(((SHIP\n\n(((ICOADS_SHIP\n# The spatial distribution is scaled with global annual scale factors #50\n0 ICOADS_CO2_SHIP    $ROOT/ICOADS_SHIP/v2014-07/ICOADS_ship_CO2_2004.generic.1x1.nc CO2 2004/1-12/1/0 C xy kg/m2/s CO2 50 6 1\n)))ICOADS_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_CO2_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO2_0.1x0.1_$YYYY.nc  CO2_shp  1980-2019/1-12/1/0 C xy kg/m2/s CO2 - 6 1\n)))CEDS_01x01_SHIP\n)))SHIP\n\n#==============================================================================\n# --- CO2: AEIC 2019 aircraft emissions ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_CO2  $ROOT/AEIC2019/v2022-03/2019/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN 2019/1-12/1-31/0 C xyz kg/m2/s CO2 241/260 20 1\n)))AEIC2019_DAILY\n\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_CO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s CO2 241/260 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- CO2: SURFACE CORRECTION FOR CO OXIDATION ---\n#\n# These emissions will be subtracted!\n# Fossil fuel CO and CH4 are based on the national distribution scaled with #10.\n# Biogenic CH4 data is converted to CO2 using scale factor #20.\n# Isoprene and monoterpene are converted from kgC to kgCO2 by scale factor #21.\n# Approach is described in Nassar et al. (2010)\n#\n# ---> Recommended for use if chemical production (above) is turned on\n#\n# Now multiply by scale factor of -1.0 (#1 in scale factor section below)\n# to make these emissions negative, so that they will be subtracted.\n===============================================================================\n(((CO2CORR\n0 FOSSILCO2_MONTHLY $ROOT/CO2/v2022-11/FOSSIL/ODIAC_CO2.monthly.generic.1x1.nc CO2     2000-2018/1-12/1/0 C xy kg/m2/s CO2 410/440/441/480/1 8 1\n0 CO2_LIVESTOCK     $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_004 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_WASTE         $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_005 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_RICE          $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_007 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_WETLANDS      $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_010 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_NATURAL       $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_012 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_ISOPRENE      $ROOT/CO2/v2022-11/CHEM/Isoprene-2004.geos.2x25.nc         ISOP    2004/1-12/1/0      C xy kg/m2/s CO2 421/430/1         8 1\n0 CO2_MONOTERP      $ROOT/CO2/v2022-11/CHEM/Monoterpene-2004.geos.2x25.nc      MONOT   2004/1-12/1/0      C xy kg/m2/s CO2 421/430/1         8 1\n)))CO2CORR\n\n)))USE_CO2_DATA\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                OCS FLUXES (cf Kevin Bowman/JPL)                    %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n(((USE_OCS_DATA\n\n(((OCS_ANTHRO_FLUX\n0 OCS_ANTHRO $ROOT/OCS_FLUX/v2022-11/anthro_v3/v3_anthro/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 1 1\n)))OCS_ANTHRO_FLUX\n\n(((OCS_BIOMASS_FLUX\n0 OCS_BIOMASS $ROOT/OCS_FLUX/v2022-11/Biomassburn/CMSV2-CO2-GFED3-ZC/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 2 1\n)))OCS_BIOMASS_FLUX\n\n(((OCS_MISSING_OCEAN_FLUX\n0 OCS_MISSING_OCEAN $ROOT/OCS_FLUX/v2022-11/MissingOcean/LUKAI/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 3 1\n)))OCS_MISSING_OCEAN_FLUX\n\n(((OCS_OCEAN_FLUX\n0 OCS_OCEAN $ROOT/OCS_FLUX/v2022-11/OceanCOS/Kettle/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 4 1\n)))OCS_OCEAN_FLUX\n\n)))USE_OCS_DATA\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTE: These are the base emissions in kgDM/m2/s.\n#==============================================================================\n\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- GEOS-Chem boundary condition file ---\n#==============================================================================\n(((GC_BCs\n* BC_ $ROOT/SAMPLE_BCs/v2021-07/CH4/GEOSChem.BoundaryConditions.$YYYY$MM$DD_0000z.nc4 SpeciesBC_?ADV? 1900-2100/1-12/1-31/* EFY xyz 1 * - 1 1\n)))GC_BCs\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Chemistry inputs ---\n#==============================================================================\n(((CHEMISTRY_INPUT\n\n#------------------------------------------------------------------------------\n# --- Global OH fields ---\n#------------------------------------------------------------------------------\n\n(((USE_CH4_DATA.or.USE_CO_DATA\n\n# --- OH from GEOS-Chem v5-07 [kg/m3], needed for CH4/IMI ---\n(((GLOBAL_OH_GCv5\n* GLOBAL_OH  $ROOT/OH/v2022-11/v5-07-08/OH_3Dglobal.geos5.72L.4x5.nc OH  1985/1-12/1/0 C xyz kg/m3 * 2 1 1\n)))GLOBAL_OH_GCv5\n\n# --- OH from the last 10-yr benchmark [mol/mol dry] ---\n(((GLOBAL_OH_GC14\n(((.not.GLOBAL_OH_GCv5\n${RUNDIR_GLOBAL_OH}\n))).not.GLOBAL_OH_GCv5\n)))GLOBAL_OH_GC14\n\n)))USE_CH4_DATA.or.USE_CO_DATA\n\n#------------------------------------------------------------------------------\n# --- Quantities needed for CH4 chemistry ---\n#------------------------------------------------------------------------------\n\n(((USE_CH4_DATA\n\n# --- Global CH4 loss frequencies [1/s] -----------\n(((CH4_LOSS_FREQ\n${RUNDIR_CH4_LOSS}\n)))CH4_LOSS_FREQ\n\n# --- Global Cl [mol/mol dry air] ---\n(((GLOBAL_CL\n${RUNDIR_GLOBAL_Cl}\n)))GLOBAL_CL\n\n)))USE_CH4_DATA\n\n#------------------------------------------------------------------------------\n# --- Quantities needed for CO chemistry ---\n#------------------------------------------------------------------------------\n(((USE_CO_DATA\n\n# -- P(CO) from CH4 and NMVOC from the last 10-yr benchmark [molec/cm3/s] ---\n(((PROD_CO_CH4\n${RUNDIR_PCO_CH4}\n)))PROD_CO_CH4\n(((PROD_CO_NMVOC\n${RUNDIR_PCO_NMVOC}\n)))PROD_CO_NMVOC\n\n# --- GMI chemistry: prod/loss rates (for strato-/mesosphere) ---\n# --- Units: prod [v/v/s]; loss [1/s]                         ---\n(((GMI_PROD_LOSS\n* GMI_LOSS_CO    $ROOT/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc  loss  2005/1-12/1/0 C xyz s-1     CO - 1 1\n* GMI_PROD_CO    $ROOT/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc  prod  2005/1-12/1/0 C xyz v/v/s   CO - 1 1\n)))GMI_PROD_LOSS\n\n)))USE_CO_DATA\n\n#------------------------------------------------------------------------------\n# --- Quantities needed for CO2 chemistry ---\n#------------------------------------------------------------------------------\n(((USE_CO2_DATA\n\n# --- CHEMICAL PRODUCTION FROM CO OXIDATION ------\n# --- Recommended for use in forward modelling ---\n# --- Optional for inversion/assimilation --------\n(((CO2_COPROD\n${RUNDIR_CO2_COPROD}\n)))CO2_COPROD\n\n)))USE_CO2_DATA\n\n)))CHEMISTRY_INPUT\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n#------------------------------------------------------------------------------\n# --- Multiply by -1 to get a \"negative\" flux.\n#------------------------------------------------------------------------------\n1 NEGATIVE -1.0 - - - xy 1 1\n\n#------------------------------------------------------------------------------\n# --- Perturbation factors ---\n#\n# Default scaling factor of 1.0 for OH field, which will be changed for Jacobian and posterior OptimizeOH run\n#------------------------------------------------------------------------------\n2 OH_pert_factor  1.0 - - - xy 1 1\n\n#==============================================================================\n# --- Scale factors for posterior run ---\n#\n# Entries below are provided for examples only. Add your own here!\n#==============================================================================\n(((Emis_PosteriorSF\n3 EMIS_SF    gridded_posterior.nc  ScaleFactor 2000/1/1/0         C xy 1 1\n)))Emis_PosteriorSF\n\n#==============================================================================\n# --- Scale factors for analytical inversions ---\n#==============================================================================\n(((AnalyticalInversion\n4 SCALE_PERT      ./gridded_pert_scale_1.nc          scale    2000/1/1/0 C xy 1 1\n\n# Add perturbations to individual state vector element (N) following this format\n# Start scale factor ID at 3000 to avoid conflicts with other SFs/masks\n#300N SCALE_ELEM_000N ./StateVector.nc StateVector 2000/1/1/0 C xy 1 1 N\n\n)))AnalyticalInversion\n\n(((EMISSIONS\n#==============================================================================\n# --- CH4: Seasonal scaling factors ----\n#==============================================================================\n(((USE_CH4_DATA\n\n#------------------------------------------------------------------------------\n# --- GHGI monthly scaling factors ---\n#------------------------------------------------------------------------------\n(((GHGI_v2.or.GHGI_v2_Express_Ext\n50 GHGI_OTH_STA_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1A_Combustion_Stationary           2012-2018/1-12/1/0 C xy 1 1\n51 GHGI_OIL_EXP_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Exploration 2012-2018/1-12/1/0 C xy 1 1\n52 GHGI_OIL_PRD_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Production  2012-2018/1-12/1/0 C xy 1 1\n53 GHGI_OIL_REF_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Refining    2012-2018/1-12/1/0 C xy 1 1\n54 GHGI_OIL_TRA_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Transport   2012-2018/1-12/1/0 C xy 1 1\n55 GHGI_GAS_EXP_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2b_Natural_Gas_Exploration       2012-2018/1-12/1/0 C xy 1 1\n56 GHGI_GAS_PRD_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2b_Natural_Gas_Production        2012-2018/1-12/1/0 C xy 1 1\n57 GHGI_LIV_MAN_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_3B_Manure_Management               2012-2018/1-12/1/0 C xy 1 1\n58 GHGI_RIC_CUL_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_3C_Rice_Cultivation                2012-2018/1-12/1/0 C xy 1 1\n59 GHGI_OTH_BUR_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_3F_Field_Burning                   2012-2018/1-12/1/0 C xy 1 1\n)))GHGI_v2.or.GHGI_v2_Express_Ext\n\n#------------------------------------------------------------------------------\n# --- Scarpelli_Mexico manure & rice scale factors ---\n#------------------------------------------------------------------------------\n(((Scarpelli_Mexico\n10 MANURE_SF $ROOT/CH4/v2017-10/Seasonal_SF/EMICH4_Manure_ScalingFactors.WithClimatology.nc  sf_ch4 2008-2016/1-12/1/0 C xy 1 1\n11 RICE_SF   $ROOT/CH4/v2017-10/Seasonal_SF/EMICH4_Rice_ScalingFactors.SetMissing.nc         sf_ch4 2012/1-12/1/0      C xy 1 1\n)))Scarpelli_Mexico\n\n#------------------------------------------------------------------------------\n# --- Seasonality for EDGAR livestock emissions ---\n#------------------------------------------------------------------------------\n(((EDGARv8\n24 EDGAR_SEASONAL_SF_ENF  $ROOT/CH4/v2023-04/EDGARv6_SF/EDGARv6_CH4_MonthlyScaleFactors_ENF.0.1x0.1.nc  sf_ch4 2018/1-12/1/0 C xy 1 1\n28 EDGAR_SEASONAL_SF_MNM  $ROOT/CH4/v2023-04/EDGARv6_SF/EDGARv6_CH4_MonthlyScaleFactors_MNM.0.1x0.1.nc  sf_ch4 2018/1-12/1/0 C xy 1 1\n)))EDGARv8\n\n)))USE_CH4_DATA\n\n#==============================================================================\n# --- Scale factors for CO2 emissions ---\n#==============================================================================\n(((USE_CO2_DATA\n\n#------------------------------------------------------------------------------\n# --- FOSSIL FUEL CO2 SURFACE CORRECTION FACTOR ---\n#\n# Fossil fuel CO2 emissions must be scaled down to avoid counting emissions\n# already accounted for by CO and CH4 oxidation to CO2.\n#\n# The necssary annual reduction in emissions related to fossil fuels is\n# determined as:  global C mass from FF (CO+CH4) / global C mass from FF CO2\n#\n# Note: GEOS-Chem v8-03-02 to v9-02, assumed: 0.0489 for all years but that\n# value seems to correspond to mid-1980s fossil fuel combustion since CO\n# emissions have held constant (Granier et al., 2011) while CO2 has risen.\n#\n# All scale factors for years 2000-2013 lumped into a single entry\n#------------------------------------------------------------------------------\n(((CO2CORR\n#410 CO2_FOSSFUEL_CORR 0.0489 - - - xy 1 1\n\n## CO2 scale factors from CO oxidation by decade (comment out for now)\n##410 CO2_FOSSFUEL_CORR 0.052815/0.054486/0.054902/0.055107/0.053166/0.051611/0.050065/0.048803/0.047060/0.046041 - 1980-1989/1/1/0 C xy 1 1\n##410 CO2_FOSSFUEL_CORR 0.045816/0.045153/0.045541/0.045556/0.044800/0.043875/0.042910/0.042206/0.042257/0.042468 - 1990-1999/1/1/0 C xy 1 1\n##410 CO2_FOSSFUEL_CORR 0.041495/0.040525/0.040125/0.037853/0.035957/0.034686/0.033538/0.032771/0.031961/0.032118 - 2000-2009/1/1/0 C xy 1 1\n##410 CO2_FOSSFUEL_CORR 0.030622/0.029674/0.029029/0.028355                                                       - 2010-2013/1/1/0 C xy 1 1\n\n410 CO2_FOSSFUEL_CORR 0.041495/0.040525/0.040125/0.037853/0.035957/0.034686/0.033538/0.032771/0.031961/0.032118/0.030622/0.029674/0.029029/0.028355 - 2000-2013/1/1/0 C xy 1 1\n)))CO2CORR\n\n# -----------------------------------------------------------------------------\n# --- CO2 conversion factors ---\n# -----------------------------------------------------------------------------\n420 CH4TOCO2  2.75   - - - xy 1 1\n421 CTOCO2    3.6667 - - - xy 1 1\n430 NMHCSCALE 0.3333 - - - xy 1 1\n\n#------------------------------------------------------------------------------\n# --- National fossil fuel CO2 scale factors (Nassar et al, 2013) ---\n#------------------------------------------------------------------------------\n(((FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n440 CO2_DIURNAL $ROOT/CO2/v2015-04/FOSSIL/TIMES_diurnal_scale_factors.nc diurnal_scale_factors 2006/1/1/1-24 C xy 1 1\n441 CO2_WEEKLY  $ROOT/CO2/v2015-04/FOSSIL/TIMES_weekly_scale_factors.nc  weekly_scale_factors  2006/1/WD/0   C xy 1 1\n)))FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n\n#------------------------------------------------------------------------------\n# --- DOMESTIC AVIATION SURFACE CORRECTION FACTOR ---\n#\n# Regional scale factors slightly less than 1 remove surface contribution from\n# domestic aviation in national fossil fuel emisisons, which should instead be\n# counted in the air as a 3D field. This scale factor should be applied to the\n# main/national fossil fuel emission field if using avaition emissions.\n#------------------------------------------------------------------------------\n(((FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n480 AVIATION_SURF_CORR $ROOT/CO2/v2022-11/FOSSIL/Aviation_SurfCorr_SclFac.1x1.nc CO2 2004/1/1/0 C xy 1 1\n)))FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n\n)))USE_CO2_DATA\n\n#==============================================================================\n# --- Scale factors for CO emissions ---\n#==============================================================================\n(((USE_CO_DATA\n\n#------------------------------------------------------------------------------\n# --- Diurnal scale factors for CO ---\n#------------------------------------------------------------------------------\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy 1 1\n\n#------------------------------------------------------------------------------\n# --- Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019) ---\n#\n# Also need to undo (Oper=-1) the global diurnal scale factors over China\n#------------------------------------------------------------------------------\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 2009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 2009\n\n#------------------------------------------------------------------------------\n# --- Account for CO production by VOCs ---\n#------------------------------------------------------------------------------\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n#------------------------------------------------------------------------------\n# --- DICE-Africa ---\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n#------------------------------------------------------------------------------\n(((DICE_Africa\n320 DICE_CP_SF    0.20 - - - xy 1 1\n)))DICE_Africa\n\n#------------------------------------------------------------------------------\n# --- CO: HTAP Annual scale factors ---\n#------------------------------------------------------------------------------\n(((HTAP\n506 LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n507 LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n509 LIQFUEL_2006      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2006/1/1/0      C xy 1 -1\n510 LIQFUEL_2002      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2002/1/1/0      C xy 1 -1\n528 LIQFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2008-2010/1/1/0 C xy 1 -1\n)))HTAP\n\n)))USE_CO_DATA\n\n#==============================================================================\n# --- Scale factors for OCS emissions ---\n#==============================================================================\n(((USE_OCS_DATA\n\n#------------------------------------------------------------------------------\n# --- S to OCS ratio ---\n#------------------------------------------------------------------------------\n70 StoOCS  MATH:60.07/32.06 - - - xy unitless 1\n\n)))USE_OCS_DATA\n\n#==============================================================================\n# --- Inventory-specific scale factors ---\n#==============================================================================\n\n#------------------------------------------------------------------------------\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Lee et al.\n# (2021) only covers 1990 to 2018, so to get to 2019 it is assumed that the\n# growth from 2017 to 2018 is the same as that from 2018 to 2019.\n# So the formula is something like:\n#\n# Emissions of CO in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down.\n#\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n# If applying 1990-2019 scale factors\n(((AEIC_SCALE_1990_2019\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n\n# Assume 3.159 kg CO2 from every kg of fuel burned\n# cf Hileman, Stratton, & Donohoo, _J. Propul. Power_, 26(6), 1184–1196, 2010.\n260 AEIC19_FBtoCO2 3.159 - - - xy unitless 1\n\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n#------------------------------------------------------------------------------\n# --- CEDS vertical partitioning ---\n#------------------------------------------------------------------------------\n(((CEDS_01x01\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDS_01x01\n\n#------------------------------------------------------------------------------\n# --- GFAS scale factors ---\n#------------------------------------------------------------------------------\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#------------------------------------------------------------------------------\n# --- EPA NEI2016 (monthly-mean inventory) scale factors ---\n#------------------------------------------------------------------------------\n(((NEI2016_MONMEAN\n\n# Weekday/Weekend scale factors\n211 NEI99_DOW_CO $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO 1999/1-12/WD/0  C xy 1 1\n\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n252 NEI2016_CO_YRSCALE 1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n\n)))NEI2016_MONMEAN\n\n#------------------------------------------------------------------------------\n# --- QFED2 diurnal scale factors ---\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#------------------------------------------------------------------------------\n(((QFED2.or.GFAS.or.BB4MIPS\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n)))QFED2.or.GFAS.or.BB4MIPS\n\n#------------------------------------------------------------------------------\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016),\n# emit 35% of QFED emissions above the PBL.\n#------------------------------------------------------------------------------\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n(((CEDS_01x01\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDS_01x01\n\n)))EMISSIONS\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Masks used for CH4 simulation emissions ---\n#==============================================================================\n(((USE_CH4_DATA\n\n(((Scarpelli_Mexico\n1001 MEX_MASK          $ROOT/MASKS/v2024-04/Mexico_Mask.01x01.nc        MASK 2000/1/1/0 C xy 1 1 -118/17/-95/33\n1010 MEX_MASK_MIRROR   $ROOT/MASKS/v2024-04/Mexico_Mask_Mirror.01x01.nc MASK 2000/1/1/0 C xy 1 1 -118/17/-95/33\n)))Scarpelli_Mexico\n\n(((Scarpelli_Canada\n1002 CAN_MASK          $ROOT/MASKS/v2024-04/Canada_Mask.01x01.nc        MASK 2000/1/1/0 C xy 1 1 -141/40/-52/85\n1011 CAN_MASK_MIRROR   $ROOT/MASKS/v2024-04/Canada_Mask_Mirror.01x01.nc MASK 2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))Scarpelli_Canada\n\n(((GHGI_v2.or.GHGI_v2_Express_Ext\n1008 CONUS_MASK        $ROOT/MASKS/v2024-04/CONUS_Mask.01x01.nc         MASK 2000/1/1/0 C xy 1 1 -140/20/-50/60\n1009 CONUS_MASK_MIRROR $ROOT/MASKS/v2024-04/CONUS_Mask_Mirror.01x01.nc  MASK 2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))GHGI_v2.or.GHGI_v2_Express_Ext\n\n)))USE_CH4_DATA\n\n#==============================================================================\n# --- Masks used for CO and CO2 simulation emissions ---\n#==============================================================================\n(((USE_CO_DATA.or.USE_CO2_DATA\n\n(((APEI\n2002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc            MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n# Renamed to avoid a namespace collision w/ GHGI mask above!!!\n(((NEI2016_MONMEAN\n2007 NEI_CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc            MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n2008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n)))USE_CO_DATA.or.USE_CO2_DATA\n\n#==============================================================================\n# --- Masks used for CH4, CO and CO2 simulation emissions ---\n#==============================================================================\n(((CEDS_01x01\n2009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc          MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n)))CEDS_01x01\n\n(((RESERVOIRS\n1500 SEASONAL_RES_MASK $ROOT/CH4/v2024-01/ResME/reservoir_mask.01x01.nc Mask 2022/1-12/1/0 C xy 1 1 -180/-90/180/90\n)))RESERVOIRS\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n###############################################################################\n### REFERENCES\n###############################################################################\n#\n# Andres. R.J., J.S Gregg, L. Losey, G. Marland, T.A. Boden (2011), Montly,\n# global emissions of carbon dioxide from fossil fuel consumption, Tellus 63B,\n# 309-327.\n#\n# Baker, D.F. et al. (2006) TransCom3 inversion intercomparison: Impact of\n# transport model errors on the interannual variability of regional CO2 fluxes,\n# 1998-2003, Global Biogeochem., Cy., 20, GB1002, doi:10.29/2004GB002439.\n#\n# Endresen, O. et al. (2007), A historical reconstuctino of ships fuel\n# consuption and emissions, J. Geophys. Res., 112, D12301,\n# doi:10.1029/2006JD007630.\n#\n# Granier, C. et al. (2011), Evolution of anthropogenic and biomass burning\n# emissions of air pollutants at global and regional scales during the 1980-2010\n# period, Climatic Change, 109:163-190, doi:10.1007/s10584-011-0154-1.\n#\n# Keller, C.A., M.S. Long, R.M. Yantosca, A.M. DaSilva, S. Pawson, D.J. Jacob\n# (2014), HEMCO v1.0: a versatile, ESMF-compliant component for calculating\n# emissions in atmospheric models, Geosci., Model Dev., 7, 1409?1417,\n# doi:10.5194/gmd-7-1409-2014.\n#\n# Messerschmidt, J., N. Parazoo, N.M. Deutscher, C. Roehl, T. Warneke, P.O.\n# Wennberg, and D. Wunch (2012) Evaluation of atmosphere-biosphere exchange\n# estimations with TCCON measurements, Atmos. Chem. Phys. Discussions, 12,\n# 12759-12800, doi:10.5194/acpd-12-12759-2012.\n#\n# Nassar, R., D.B.A. Jones, P. Suntharalingam, J.M. Chen, R.J. Andres, K.J.\n# Wecht, R.M. Yantosca, S.S. Kulawik, K.W. Bowman, J.R. Worden, T. Machida and\n# H. Matsueda (2010), Modeling global atmospheric CO2 with improved emission\n# inventories and CO2 production from the oxidation of other carbon species,\n# Geoscientific Model Development, 3, 689-716.\n#\n# Nassar, R., L. Napier-Linton, K.R. Gurney, R.J. Andres, T. Oda, F.R. Vogel,\n# F. Deng (2013), Improving the temporal and spatial distribution of CO2\n# emissions from global fossil fuel emission datasets, Journal of Geophysical\n# Research: Atmospheres, 118, 917-933, doi:10.1029/2012JD018196.\n#\n# Oda, T. and S. Maksyutov (2011), A very high-resolution (1 km x 1 km) global\n# fossil fuel CO2 emission inventory derived using a point source database and\n# satellite observations of nighttime lights, Atmos. Chem. Phys., 11, 543?556,\n# doi:10.5194/acp-11-543-2011.\n#\n# Olsen, S.C. and J.T. Randerson (2004), Differences between surface and column\n# atmospheric CO2 and implications for carbon cycle research, J. Geophys. Res.\n# 109, D02301, doi:10.1029/2003JD003968.\n#\n# Olsen, S.C., D.J. Weubbles, B. Owen (2013) Comparison of global 3-D aviation\n# datasets, Atmos. Chem. Phys., 13, 429?441, doi:10.5194/acp-13-429-2013.\n#\n# Simone, N., M. Stettler, S. Eastham, S. Barrett, Aviation Emissions Inventory\n# Code (AEIC ) User Manual (R1), Laboratory for Aviation and the Environment,\n# Massachusetts Institute of Technology, January 2013, Report No:\n# LAE-2013-001-N,\n# www.LAE.MIT.edu.\n#\n# Takahashi, T., et al. (2009), Climatological mean and decadal change in\n# surface ocean pCO2, and net sea-air CO2 flux over the global oceans, Deep-Sea\n# Res. II, 56(8?10), 554?577, doi:10.1016/j.dsr2.2008.12.009.\n#\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n    --> HEMCO_RESTART          :       true\n# ----- NESTED GRID FIELDS ----------------------------------------------------\n    --> GC_BCs                 :       ${RUNDIR_USE_BCs}\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> CEDS_01x01             :       ${RUNDIR_USE_CEDS}    # 1980-2019\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAPv3                 :       false    # 2000-2018\n    --> GEIA_NH3               :       true     # 1990\n    --> SEABIRD_NH3            :       true     # 1990\n    --> POET_EOH               :       false    # 1985\n    --> TZOMPASOSA_C2H6        :       ${RUNDIR_USE_TSC2H6}    # 2010\n    --> XIAO_C3H8              :       ${RUNDIR_USE_XIAOC3H8}    # 1985\n    --> LIANG_BROMOCARB        :       true     # 2000\n    --> ORDONEZ_IODOCARB       :       true     # 2000\n    --> GT_Chlorine            :       true     # 1960-2014\n    --> DECAYING_PLANTS        :       true     # 1985\n    --> AFCID                  :       true     # 2015\n# ----- AIRCRAFT EMISSIONS ----------------------------------------------------\n# There are 3 switches:\n#\n#  1. AEIC2019_DAILY selects daily AEIC 2019 emissions.  For most simulations,\n#     this is not recommended due to the amount of computational overhead\n#     that will be incurred in regridding.  But this may be useful for\n#     research purposes.  Recommended setting: \"AEIC2019_DAILY: false\".\n#\n#  2. AEIC2019_MONMEAN selects monthly-mean AEIC 2019 emisisons, which will\n#     incur much less computational overhaead.  This option should suffice\n#     for most simulations.  Recommended setting \"AEIC2019_MONMEAN: true\".\n#\n#  3. AEIC_SCALE_1990_2019: If \"false\", the AEIC 2019 data from the year\n#     2019 alone will be used.  This will yield a \"best estimate\" of\n#     aviation emisssion. This could be important because simply scaling\n#     aviation emissions up and down is rather nonphysical.  But if\n#     AEIC_SCALE_1990_2019 is set to true, then aviation emissions for\n#     1990 to 2019 are estimated by:\n#\n#     a. Scaling ALL aviation emissions based on the growth in fuelburn\n#        from 1990 to 2019* estimated by Lee et al. (2021); and\n#\n#     b. Scaling aviation NOx emissions by an additional factor to reflect\n#        the changes in the NOx emissions index over the same period as\n#        reported by Lee et al. (2021).\n#\n#     Recommended setting: \"AEIC_SCALE_1990_2019: true\"\n#\n# See additional notes in the AEIC scale factor section below.\n#------------------------------------------------------------------------------\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       ${RUNDIR_USE_AEIC}     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       ${RUNDIR_USE_AEIC}     # Scale to year in 1990-2019\n# ----- SHIP EMISSIONS --------------------------------------------------------\n    --> SHIP                   :       true\n    --> CEDS_01x01_SHIP        :       ${RUNDIR_USE_CEDS}    # 1980-2019\n    --> HTAPv3_SHIP            :       false    # 2000-2018\n# ----- RCP FUTURE EMISSIONS --------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- CMIP6 ANTHRO EMISSIONS / BOUNDARY CONDITIONS --------------------------\n#   Set GCAPSCENARIO (e.g., HIST, SSP585) above in SECTION SETTINGS\n    --> CMIP6_SFC_BC           :       ${RUNDIR_CMIP6_FIELDS}    # 1750-2100\n    --> CMIP6_SFC_LAND_ANTHRO  :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> CMIP6_AIRCRAFT         :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> CMIP6_SHIP             :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n# ----- BIOMASS BURNING EMISSIONS ---------------------------------------------\n    --> QFED2                  :       false    # 2000-2020\n    --> GFAS                   :       false    # 2003-2021\n    --> BB4MIPS                :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> GFED4_CLIMATOLOGY      :       false    # If true, turn off GFED ext below\n    --> FINNv25                :       false    # 2012-2023\n# ----- OFFLINE EMISSIONS -----------------------------------------------------\n# To use online emissions instead set the offline emissions to 'false' and the\n# corresponding HEMCO extension to 'on':\n#   OFFLINE_DUST        - DustL23M\n#   OFFLINE_BIOGENICVOC - MEGAN\n#   OFFLINE_SEASALT     - SeaSalt\n#   OFFLINE_SOILNOX     - SoilNOx\n#\n# NOTE: When switching between offline and online emissions, make sure to also\n# update ExtNr and Cat in HEMCO_Diagn.rc to properly save out emissions for\n# any affected species.\n#------------------------------------------------------------------------------\n    --> OFFLINE_DUST           :       ${RUNDIR_OFFLINE_DUST}    # 1980-2019\n    --> OFFLINE_BIOGENICVOC    :       ${RUNDIR_OFFLINE_BIOVOC}    # 1980-2020\n    --> OFFLINE_SEASALT        :       ${RUNDIR_OFFLINE_SEASALT}    # 1980-2019\n    -->  CalcBrSeasalt         :       true\n    --> OFFLINE_SOILNOX        :       ${RUNDIR_OFFLINE_SOILNOX}    # 1980-2020\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> UVALBEDO               :       true     # 1985\n    --> CCM_STRAT_Bry          :       true     # 2007\n    --> GMI_OH                 :       true     # 2005\n    --> GMI_PROD_LOSS          :       true     # 2005\n    --> OMOC_RATIO             :       false    # 2010\n    --> GMD_SFC_CH4            :       ${RUNDIR_USE_GMDCH4}    # 1975-2022\n    --> CMIP6_SFC_CH4          :       false    # 1750-1978\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n    --> RRTMG                  :       ${RUNDIR_USE_RRTMG}    # 2002\n    --> SfcVMR                 :       ${RUNDIR_USE_SFCVMR}    # 1750-2014\n    --> OCEAN_O3_DRYDEP        :       true     # 1985\n# -----------------------------------------------------------------------------\n100     Custom                 : off   -\n101     SeaFlux                : on    DMS/ACET/ALD2/MENO3/ETNO3/MOH\n102     ParaNOx                : ${RUNDIR_PARANOX_EXT}   NO/NO2/O3/HNO3\n    --> LUT data format        :       nc\n    --> LUT source dir         :       $ROOT/PARANOX/v2015-02\n103     LightNOx               : on    NO\n    --> LightningClimatology   :       ${RUNDIR_LIGHTNOX_CLIM}\n    --> CDF table              :       $ROOT/LIGHTNOX/v2014-07/light_dist.ott2010.dat\n104     SoilNOx                : ${RUNDIR_SOILNOX_EXT}   NO\n    --> UseSoilTemperature     :       false\n    --> Use fertilizer NOx     :       true\n107     SeaSalt                : ${RUNDIR_SEASALT_EXT}   SALA/SALC/SALACL/SALCCL/SALAAL/SALCAL/BrSALA/BrSALC/MOPO/MOPI\n    --> SALA lower radius      :       0.01\n    --> SALA upper radius      :       0.5\n    --> SALC lower radius      :       0.5\n    --> SALC upper radius      :       8.0\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       5.0\n    --> Model sea salt Br-     :       true\n    --> Br- mass ratio         :       2.11e-3\n108     MEGAN                  : ${RUNDIR_MEGAN_EXT}    ISOP/ACET/PRPE/C2H4/ALD2/MOH/EOH/MTPA/MTPO/LIMO/SESQ/SOAP/SOAS\n    --> Isoprene scaling       :       1.0\n    --> CO2 inhibition         :       true\n    --> CO2 conc (ppmv)        :       390.0\n    --> Isoprene to SOAP       :       0.015\n    --> Isoprene to SOAS       :       0.015\n    --> Monoterp to SOAP       :       0.050\n    --> Monoterp to SOAS       :       0.050\n    --> Othrterp to SOAP       :       0.050\n    --> Othrterp to SOAS       :       0.050\n111     GFED                   : ${RUNDIR_GFED_EXT}   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6\n    --> GFED4                  :       true\n    --> GFED_daily             :       false\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n    --> Scaling_NAP            :       2.75e-4\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> fraction POG1          :       0.49\n    --> CO to SOAP             :       0.013\n    --> GFED_subgrid_coag      :       false\n117     Volcano                : on    SO2\n    --> Volcano_Source         :       AeroCom\n    --> Volcano_Table          :       ${RUNDIR_VOLC_TABLE}\n    --> Volcano_Climatology    :       ${RUNDIR_VOLC_CLIMATOLOGY}\n120     Inorg_Iodine           : on    HOI/I2\n    --> Emit HOI               :       true\n    --> Emit I2                :       true\n125     DustL23M               : ${RUNDIR_DUSTL23M_EXT}   TDST/DSTbin1/DSTbin2/DSTbin3/DSTbin4/DSTbin5/DSTbin6/DSTbin7\n    --> Mass tuning factor     :       ${RUNDIR_DUSTL23M_TF}\n#see the note near scale factor 281 for the source of this emis factor\n126     DustAlk                : ${RUNDIR_DUSTALK_EXT}   DSTALbin1/DSTALbin2/DSTALbin3/DSTALbin4/DSTALbin5/DSTALbin6/DSTALbin7\n# ----- EXTENSIONS FOR TOMAS SIMULATIONS ONLY----------------------------------\n130     TOMAS_Jeagle           : ${RUNDIR_TOMAS_SEASALT}   SS01/SS02/SS03/SS04/SS05/SS06/SS07/SS08/SS09/SS10/SS11/SS12/SS13/SS14/SS15/SS16/SS17/SS18/SS19/SS20/SS21/SS22/SS23/SS24/SS25/SS26/SS27/SS28/SS29/SS30/SS31/SS32/SS33/SS34/SS35/SS36/SS37/SS38/SS39/SS40\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       1.0\n    --> Model sea salt Br-     :       false\n    --> Br- mass ratio         :       2.11e-3\n131     TOMAS_DustDead         : ${RUNDIR_TOMAS_DUSTDEAD}   DUST01/DUST02/DUST03/DUST04/DUST05/DUST06/DUST07/DUST08/DUST09/DUST10/DUST11/DUST12/DUST13/DUST14/DUST15/DUST16/DUST17/DUST18/DUST19/DUST20/DUST21/DUST22/DUST23/DUST24/DUST25/DUST26/DUST27/DUST28/DUST29/DUST30/DUST31/DUST32/DUST33/DUST34/DUST35/DUST36/DUST37/DUST38/DUST39/DUST40\n    --> Mass tuning factor     :       ${RUNDIR_DUSTDEAD_TF}\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# --- APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_NO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NOx 1989-2014/1/1/0 RF xy kg/m2/s NO   25/1002/115    1 30\n0 APEI_CO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO  1989-2014/1/1/0 RF xy kg/m2/s CO   26/52/1002     1 30\n0 APEI_SOAP -                                   -   -               -  -  -       SOAP 26/52/1002/280 1 30\n0 APEI_SO2  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc SOx 1989-2014/1/1/0 RF xy kg/m2/s SO2  60/1002        1 30\n0 APEI_SO4  -                                   -   -               -  -  -       SO4  60/65/1002     1 30\n0 APEI_pFe  -                                   -   -               -  -  -       pFe  60/68/1002     1 30\n0 APEI_NH3  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NH3 1989-2014/1/1/0 RF xy kg/m2/s NH3  1002           1 30\n0 APEI_BCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPI 70/1002        1 30\n0 APEI_BCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPO 71/1002        1 30\n0 APEI_OCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPI 72/1002        1 30\n0 APEI_OCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPO 73/1002        1 30\n0 APEI_POG1 -                                       -    -          -  -  -       POG1 74/76/1002     1 30\n0 APEI_POG2 -                                       -    -          -  -  -       POG2 74/77/1002     1 30\n)))APEI\n\n#==============================================================================\n# --- EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #1007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_BCPI__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__afdustPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__afdustPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__afdustPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__afdustPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__afdustPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__afdustPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__agACET             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__agALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__agALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__agBENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_C2H4__agETH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__agETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__agETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__agFORM             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_PRPE__agIOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__agKET               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__agMEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__agNH3               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_PRPE__agOLE              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__agPAR              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_C3H8__agPRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_TOLU__agTOL              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__agXYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__airportsACET       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__airportsACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__airportsALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__airportsALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__airportsBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__airportsCO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__airportsSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__airportsETH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__airportsETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__airportsETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__airportsFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__airportsHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__airportsIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__airportsKET         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__airportsMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NO__airportsNO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__airportsNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__airportsOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__airportsPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__airportsPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__airportsPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__airportsPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__airportsPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__airportsPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__airportsPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__airportsPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__airportsSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__airportspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__airportsSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__airportsTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__airportsXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonptACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__nonptCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__nonptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__nonptHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HCL        2016/1-12/1/0      R  xy   kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__nonptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonroadACET        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonroadACROLEIN    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonroadALD2        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonroadALDX        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonroadBENZ        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__nonroadCO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonroadSOAP        -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonroadETH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonroadETHA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonroadETOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonroadFORM        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__nonroadHONO        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadIOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonroadKET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonroadMEOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonroadNH3          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonroadNO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonroadNO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonroadPAR         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonroadPNA         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonroadPNH4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonroadPNO3         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonroadPOC         -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonroadPOC         -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonroadPRPA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonroadPSO4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonroadSO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonroadspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonroadSULF         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonroadTOL         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonroadXYLMN       $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__npogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__npogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__npogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__npogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__npogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__npogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__npogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__npogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__npogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__npogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__npogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__npogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__npogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__npogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__npogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__npogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__npogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__npogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__npogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__npogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__npogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__npogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__npogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__npogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__npogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__npogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__npogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__npogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__npogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__npogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__npogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__npogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__npogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroadACET         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroadACROLEIN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroadALD2         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroadALDX         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroadBENZ         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroadCO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroadSOAP         -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroadETH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroadETHA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroadETOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroadFORM         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroadHONO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroadIOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroadKET           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroadMEOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroadNH3           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroadNO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroadNO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroadOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroadPAR          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroadPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroadPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroadPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroadPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroadPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroadPRPA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroadPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroadSO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroadpFe           -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroadTOL          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroadXYLMN        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_caACET      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_caACROLEIN  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_caALD2      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_caALDX      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_caBENZ      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_caCO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP_onroad__caSOAP      -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_caETH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_caETHA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_caETOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_caFORM      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_caHONO      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caIOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_caKET        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_caMEOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_caNH3        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_caNO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_caNO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_caPAR       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_caPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_caPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_caPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_caPRPA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_caPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_caSO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_capFe        -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroad_caTOL       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_caXYLMN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__railACET           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__railACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__railALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__railALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__railBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__railCO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__railSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__railETH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__railETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__railETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__railFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__railHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__railIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__railKET             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__railMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__railNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__railNO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__railNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__railOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__railPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__railPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__railPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__railPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__railPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__railPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__railPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__railPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__railSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__railpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__railSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__railTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__railXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__rwcACET            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__rwcACROLEIN        $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__rwcALD2            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__rwcALDX            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__rwcBENZ            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__rwcCL2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__rwcCO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__rwcSOAP            -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__rwcETH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__rwcETHA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__rwcETOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__rwcFORM            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__rwcHONO            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__rwcIOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__rwcKET              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__rwcMEOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__rwcNH3              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__rwcNO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__rwcNO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__rwcOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__rwcPAR             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__rwcPNA             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__rwcPNH4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__rwcPNO3             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__rwcPOC             -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__rwcPOC             -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__rwcPRPA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__rwcPSO4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__rwcSO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__rwcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__rwcSULF             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__rwcTOL             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__rwcXYLMN           $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c1c2ACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c1c2ALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c1c2ALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c1c2BENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c1c2CO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__clc2SOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c1c2ETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c1c2ETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c1c2ETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c1c2FORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c1c2HONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2IOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c1c2KET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c1c2MEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c1c2NH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c1c2NO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c1c2NO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2OLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c1c2PAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c1c2PNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c1c2PNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c1c2PNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__clc2POC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__clc2POC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c1c2PRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c1c2PSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c1c2SO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__clcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c1c2SULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c1c2TOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c1c2XYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c3ACET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c3ALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c3ALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c3BENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c3CO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__c3SOAP             -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c3ETH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c3ETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c3ETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c3FORM             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c3HONO             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c3IOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c3KET               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c3MEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c3NH3               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c3NO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c3NO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c3OLE              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c3PAR              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c3PNA              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c3PNH4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c3PNO3              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__c3POC              -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__c3POC              -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c3PRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c3PSO4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c3SO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__c2pFe               -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c3SULF              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c3TOL              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c3XYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__pteguACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__pteguACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__pteguALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__pteguALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__pteguBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__pteguCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__pteguCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__pteguSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__pteguETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__pteguETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__pteguETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__pteguFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__pteguHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__pteguHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__pteguIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__pteguKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__pteguMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__pteguNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__pteguNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__pteguNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__pteguOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__pteguPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__pteguPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__pteguPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__pteguPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__pteguPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__pteguPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__pteguPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__pteguPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__pteguSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptegupFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__pteguSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__pteguTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__pteguXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptogHCL             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO         2002-2020/1-12/1/0 RF xyz  kgNO2/m2/s NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptnonipmACET       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptnonipmACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptnonipmALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptnonipmALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptnonipmBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptnonipmCL2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CL2        2002-2020/1-12/1/0 R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptnonipmCO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptnonipmSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptnonipmETH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptnonipmETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptnonipmETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptnonipmFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptnonipmHCL         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HCL        2002-2020/1-12/1/0 R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptnonipmHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptnonipmKET         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptnonipmMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptnonipmNH3         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptnonipmNO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptnonipmNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptnonipmPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptnonipmPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptnonipmPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptnonipmPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptnonipmPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptnonipmPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptnonipmSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptnonipmpFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptnonipmSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptnonipmTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptnonipmXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_canACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_canALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_canALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_canBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_canCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_canSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_canETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_canETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_canETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_canFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_canHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_canKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_canMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_canNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_canNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_canNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_canPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_canPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_canPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_canPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_canPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_canPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_canSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_canpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_canSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_canTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_canXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_mexACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_mexALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_mexALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_mexBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_mexCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_mexSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_mexETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_mexETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_mexETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_mexFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_mexHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_mexKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_mexMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_mexNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_mexNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_mexNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_mexPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_mexPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_mexPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_mexPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_mexPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_mexPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_mexSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_mexpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_mexSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_mexTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_mexXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othafdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othafdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othafdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othafdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othafdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othafdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__otharACET          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__otharALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__otharALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__otharBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__otharCO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__otharSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__otharETH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__otharETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__otharETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__otharFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__otharHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__otharIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__otharKET            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__otharMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__otharNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__otharNO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__otharNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__otharOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__otharPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__otharPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__otharPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__otharPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__otharPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__otharPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__otharPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__otharPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__otharSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__otharpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__otharSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__otharTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__otharXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othptdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__othptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__othptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__othptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__othptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__othptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__othptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__othptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__othptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__othptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__othptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__othptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__othptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__othptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__othptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__othptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__othptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__othptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__othptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__othptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__othptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__othptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__othptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__othptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__othptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__othptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__othptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n# ------------------------\n#  Cars\n# ------------------------\n0 DICE_CARS_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CO      2013/1/1/0 C xy g/m2/yr  CO    26/1008         1 60\n0 DICE_CARS_SOAP  -                                                                 -       -          - -  -        SOAP  26/1008/280     1 60\n0 DICE_CARS_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  NO      2013/1/1/0 C xy g/m2/yr  NO    25/30/1008      1 60\n0 DICE_CARS_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALK4    2013/1/1/0 C xy g/m2/yr  ALK4  26/1008         1 60\n0 DICE_CARS_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ISOP    2013/1/1/0 C xy g/m2/yr  ISOP  26/1008         1 60\n0 DICE_CARS_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ACET    2013/1/1/0 C xy g/m2/yr  ACET  26/1008         1 60\n0 DICE_CARS_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  MEK     2013/1/1/0 C xy g/m2/yr  MEK   26/1008         1 60\n0 DICE_CARS_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALD2    2013/1/1/0 C xy g/m2/yr  ALD2  26/1008         1 60\n0 DICE_CARS_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  RCHO    2013/1/1/0 C xy g/m2/yr  RCHO  26/1008         1 60\n0 DICE_CARS_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  PRPE    2013/1/1/0 C xy g/m2/yr  PRPE  26/1008         1 60\n0 DICE_CARS_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CH2O    2013/1/1/0 C xy g/m2/yr  CH2O  26/1008         1 60\n0 DICE_CARS_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  SO2     2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008      1 60\n0 DICE_CARS_SO4   -                                                                 -       -          - -  -        SO4   31/63/1008      1 60\n0 DICE_CARS_pFe   -                                                                 -       -          - -  -        pFe   31/78/66/1008   1 60\n0 DICE_CARS_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  C2H4    2013/1/1/0 C xy g/m2/yr  C2H4  26/1008         1 60\n0 DICE_CARS_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BENZ    2013/1/1/0 C xy g/m2/yr  BENZ  26/1008         1 60\n0 DICE_CARS_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  TOLU    2013/1/1/0 C xy g/m2/yr  TOLU  26/1008         1 60\n0 DICE_CARS_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  XYLE    2013/1/1/0 C xy g/m2/yr  XYLE  26/1008         1 60\n0 DICE_CARS_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BC      2013/1/1/0 C xy g/m2/yr  BCPI  70/1008         1 60\n0 DICE_CARS_BCPO  -                                                                 -       -          - -  -        BCPO  71/1008         1 60\n0 DICE_CARS_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  OC      2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/330     1 60\n0 DICE_CARS_OCPO  -                                                                 -       -          - -  -        OCPO  73/1008/330     1 60\n0 DICE_CARS_POG1  -                                                                 -       -          - -  -        POG1  74/76/1008/330  1 60\n0 DICE_CARS_POG2  -                                                                 -       -          - -  -        POG2  74/77/1008/330  1 60\n\n# ------------------------\n#  Motorcycles\n# ------------------------\n0 DICE_MOTORCYCLES_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CO     2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_MOTORCYCLES_SOAP  -                                                                        -      -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_MOTORCYCLES_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  NO     2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_MOTORCYCLES_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  SO2    2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_MOTORCYCLES_SO4   -                                                                        -      -          - -  -        SO4   31/63/1008       1 60\n0 DICE_MOTORCYCLES_pFe   -                                                                        -      -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_MOTORCYCLES_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALK4   2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_MOTORCYCLES_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  MEK    2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_MOTORCYCLES_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALD2   2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_MOTORCYCLES_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  PRPE   2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_MOTORCYCLES_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CH2O   2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_MOTORCYCLES_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BENZ   2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_MOTORCYCLES_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  TOLU   2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_MOTORCYCLES_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BC     2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_MOTORCYCLES_BCPO  -                                                                        -      -          - -  -        BCPO  71/1008          1 60\n0 DICE_MOTORCYCLES_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  OC     2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_MOTORCYCLES_OCPO  -                                                                        -      -          - -  -        OCPO  73/1008          1 60\n0 DICE_MOTORCYCLES_POG1  -                                                                        -      -          -  - -        POG1  74/76/1008       1 60\n0 DICE_MOTORCYCLES_POG2  -                                                                        -      -          -  - -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Backup generators\n# ------------------------\n0 DICE_BACKUPGEN_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CO   2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_BACKUPGEN_SOAP  -                                                                          -    -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_BACKUPGEN_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO   2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_BACKUPGEN_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO2  2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       1 60\n0 DICE_BACKUPGEN_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  SO2  2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_BACKUPGEN_SO4   -                                                                          -    -          - -  -        SO4   31/63/1008       1 60\n0 DICE_BACKUPGEN_pFe   -                                                                          -    -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_BACKUPGEN_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ACET 2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_BACKUPGEN_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MEK  2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_BACKUPGEN_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ALD2 2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_BACKUPGEN_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  RCHO 2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_BACKUPGEN_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MVK  2013/1/1/0 C xy g/m2/yr  MVK   26/1008          1 60\n0 DICE_BACKUPGEN_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MACR 2013/1/1/0 C xy g/m2/yr  MACR  26/1008          1 60\n0 DICE_BACKUPGEN_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CH2O 2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n#0 DICE_BACKUPGEN_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MGLY 2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          1 60\n#0 DICE_BACKUPGEN_GLYX $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  GLYX 2013/1/1/0 C xy g/m2/yr  GLYX  26/1008          1 60\n0 DICE_BACKUPGEN_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  C2H4 2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          1 60\n0 DICE_BACKUPGEN_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BENZ 2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_BACKUPGEN_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  TOLU 2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_BACKUPGEN_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  XYLE 2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_BACKUPGEN_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BC   2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_BACKUPGEN_BCPO  -                                                                          -    -          - -  -        BCPO  71/1008          1 60\n0 DICE_BACKUPGEN_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  OC   2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_BACKUPGEN_OCPO  -                                                                          -    -          - -  -        OCPO  73/1008          1 60\n0 DICE_BACKUPGEN_POG1  -                                                                          -    -          - -  -        POG1  74/76/1008       1 60\n0 DICE_BACKUPGEN_POG2  -                                                                          -    -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Charcoal production\n# ------------------------\n0 DICE_CHARCOALPROD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008/320      1 60\n0 DICE_CHARCOALPROD_SOAP  -                                                                                -     -          - -  -        SOAP  26/1008/280/320  1 60\n0 DICE_CHARCOALPROD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008/320   1 60\n0 DICE_CHARCOALPROD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008/320         1 60\n0 DICE_CHARCOALPROD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008/320      1 60\n0 DICE_CHARCOALPROD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008/320      1 60\n0 DICE_CHARCOALPROD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008/320      1 60\n0 DICE_CHARCOALPROD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPO  -                                                                                -     -          - -  -        BCPO  71/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPO  -                                                                                -     -          - -  -        OCPO  73/1008/320      1 60\n0 DICE_CHARCOALPROD_POG1  -                                                                                -     -          - -  -        POG1  74/76/1008/320   1 60\n0 DICE_CHARCOALPROD_POG2  -                                                                                -     -          - -  -        POG2  74/77/1008/320   1 60\n\n# ------------------------\n#  Flaring of natural gas\n# ------------------------\n0 DICE_GASFLARE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_GASFLARE_SOAP  -                                                                       -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_GASFLARE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_GASFLARE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_GASFLARE_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_GASFLARE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_GASFLARE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_GASFLARE_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_GASFLARE_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_GASFLARE_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_GASFLARE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_GASFLARE_BCPO  -                                                                       -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_GASFLARE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_GASFLARE_OCPO  -                                                                       -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_GASFLARE_POG1  -                                                                       -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_GASFLARE_POG2  -                                                                       -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Ag waste burning for energy\n# ------------------------------\n0 DICE_AGBURNING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_AGBURNING_SOAP  -                                                                                       -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_AGBURNING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_AGBURNING_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_AGBURNING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_AGBURNING_SO4   -                                                                                       -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_AGBURNING_pFe   -                                                                                       -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_AGBURNING_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_AGBURNING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_AGBURNING_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_AGBURNING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          2 60\n0 DICE_AGBURNING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_AGBURNING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_AGBURNING_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_AGBURNING_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MACR  2013/1/1/0 C xy g/m2/yr  MACR  26/1008          2 60\n0 DICE_AGBURNING_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_AGBURNING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          2 60\n0 DICE_AGBURNING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_AGBURNING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_AGBURNING_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_AGBURNING_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_AGBURNING_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_AGBURNING_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_AGBURNING_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_AGBURNING_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_AGBURNING_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_AGBURNING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_AGBURNING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_AGBURNING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_AGBURNING_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_AGBURNING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_AGBURNING_BCPO  -                                                                                       -     -          - -  g/m2/yr  BCPO  71/1008          2 60\n0 DICE_AGBURNING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_AGBURNING_OCPO  -                                                                                       -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_AGBURNING_POG1  -                                                                                       -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_AGBURNING_POG2  -                                                                                       -     -          - -  -        POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Charcoal use\n# ------------------------------\n0 DICE_CHARCOALUSE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_CHARCOALUSE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_CHARCOALUSE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_CHARCOALUSE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_CHARCOALUSE_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_CHARCOALUSE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_CHARCOALUSE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_CHARCOALUSE_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_CHARCOALUSE_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n0 DICE_CHARCOALUSE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_CHARCOALUSE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_CHARCOALUSE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_CHARCOALUSE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_CHARCOALUSE_POG1  -                                                                         -     -          - - -         POG1  74/76/1008       2 60\n0 DICE_CHARCOALUSE_POG2  -                                                                         -     -          - - -         POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Kerosene use\n# ------------------------------\n0 DICE_KEROSENE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_KEROSENE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_KEROSENE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_KEROSENE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_KEROSENE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_KEROSENE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_KEROSENE_POG1  -                                                                         -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_KEROSENE_POG2  -                                                                         -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Artisanal oil refining\n# ------------------------------\n0 DICE_OILREFINING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_OILREFINING_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_OILREFINING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_OILREFINING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_OILREFINING_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       1 60\n0 DICE_OILREFINING_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_OILREFINING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_OILREFINING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_OILREFINING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_OILREFINING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_OILREFINING_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  RCHO  2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_OILREFINING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          1 60\n0 DICE_OILREFINING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_OILREFINING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          1 60\n0 DICE_OILREFINING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_OILREFINING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_OILREFINING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_OILREFINING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_OILREFINING_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_OILREFINING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_OILREFINING_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_OILREFINING_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_OILREFINING_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       1 60\n\n# --------------------------\n#  Household fuelwood use\n# --------------------------\n0 DICE_HOUSEFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_HOUSEFUELWOOD_SOAP  -                                                                                   -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_HOUSEFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO4   -                                                                                   -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_HOUSEFUELWOOD_pFe   -                                                                                   -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_HOUSEFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_HOUSEFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPO  -                                                                                   -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPO  -                                                                                   -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_HOUSEFUELWOOD_POG1  -                                                                                   -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_HOUSEFUELWOOD_POG2  -                                                                                   -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------\n#  Commercial (other) fuelwood use\n# ---------------------------------\n0 DICE_OTHERFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_OTHERFUELWOOD_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_OTHERFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_OTHERFUELWOOD_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_OTHERFUELWOOD_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_OTHERFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_OTHERFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_OTHERFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_OTHERFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_OTHERFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_OTHERFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_OTHERFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_OTHERFUELWOOD_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_OTHERFUELWOOD_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1201/1008/70         1 60\n0 AF_EDGAR_BCPO_POW -                                                    -       -               -  -  -       BCPO 1201/1008/71         1 60\n0 AF_EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1202/1008/70         1 60\n0 AF_EDGAR_BCPO_ENG -                                                    -       -               -  -  -       BCPO 1202/1008/71         1 60\n0 AF_EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1203/1008/70         1 60\n0 AF_EDGAR_BCPO_IND -                                                    -       -               -  -  -       BCPO 1203/1008/71         1 60\n0 AF_EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1205/1008/70         1 60\n0 AF_EDGAR_BCPO_TNG -                                                    -       -               -  -  -       BCPO 1205/1008/71         1 60\n0 AF_EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1211/1008/70         1 60\n0 AF_EDGAR_BCPO_SWD -                                                    -       -               -  -  -       BCPO 1211/1008/71         1 60\n\n0 AF_EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1201/26/52/1008      1 60\n0 AF_EDGAR_SOAP_POW -                                                    -       -               -  -  -       SOAP 1201/26/52/1008/280  1 60\n0 AF_EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1202/26/52/1008      1 60\n0 AF_EDGAR_SOAP_ENG -                                                    -       -               -  -  -       SOAP 1202/26/52/1008/280  1 60\n0 AF_EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1203/26/52/1008      1 60\n0 AF_EDGAR_SOAP_IND -                                                    -       -               -  -  -       SOAP 1203/26/52/1008/280  1 60\n0 AF_EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1205/26/52/1008      1 60\n0 AF_EDGAR_SOAP_TNG -                                                    -       -               -  -  -       SOAP 1205/26/52/1008/280  1 60\n0 AF_EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1207/26/52/1008      1 60\n0 AF_EDGAR_SOAP_PPA -                                                    -       -               -  -  -       SOAP 1207/26/52/1008/280  1 60\n0 AF_EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1211/26/52/1008      1 60\n0 AF_EDGAR_SOAP_SWD -                                                    -       -               -  -  -       SOAP 1211/26/52/1008/280  1 60\n\n0 AF_EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1201/25/115/1008     1 60\n0 AF_EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1202/25/115/1008     1 60\n0 AF_EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1203/25/115/1008     1 60\n0 AF_EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1205/25/115/1008     1 60\n0 AF_EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1207/25/115/1008     1 60\n0 AF_EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1208/25/115/1008     1 60\n0 AF_EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1211/25/115/1008     1 60\n\n0 AF_EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1201/1008            1 60\n0 AF_EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1202/1008            1 60\n0 AF_EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1203/1008            1 60\n0 AF_EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1205/1008            1 60\n0 AF_EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1207/1008            1 60\n0 AF_EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1208/1008            1 60\n0 AF_EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1210/1008            1 60\n0 AF_EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1211/1008            1 60\n\n0 AF_EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1201/1008/72         1 60\n0 AF_EDGAR_OCPO_POW -                                                    -       -               -  -  -       OCPO 1201/1008/73         1 60\n0 AF_EDGAR_POG1_POW -                                                    -       -               -  -  -       POG1 1201/1008/74/76      1 60\n0 AF_EDGAR_POG2_POW -                                                    -       -               -  -  -       POG2 1201/1008/74/77      1 60\n0 AF_EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1202/1008/72         1 60\n0 AF_EDGAR_OCPO_ENG -                                                    -       -               -  -  -       OCPO 1202/1008/73         1 60\n0 AF_EDGAR_POG1_ENG -                                                    -       -               -  -  -       POG1 1202/1008/74/76      1 60\n0 AF_EDGAR_POG2_ENG -                                                    -       -               -  -  -       POG2 1202/1008/74/77      1 60\n0 AF_EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1203/1008/72         1 60\n0 AF_EDGAR_OCPO_IND -                                                    -       -               -  -  -       OCPO 1203/1008/73         1 60\n0 AF_EDGAR_POG1_IND -                                                    -       -               -  -  -       POG1 1203/1008/74/76      1 60\n0 AF_EDGAR_POG2_IND -                                                    -       -               -  -  -       POG2 1203/1008/74/77      1 60\n0 AF_EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1205/1008/72         1 60\n0 AF_EDGAR_OCPO_TNG -                                                    -       -               -  -  -       OCPO 1205/1008/73         1 60\n0 AF_EDGAR_POG1_TNG -                                                    -       -               -  -  -       POG1 1205/1008/74/76      1 60\n0 AF_EDGAR_POG2_TNG -                                                    -       -               -  -  -       POG2 1205/1008/74/77      1 60\n0 AF_EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1211/1008/72         1 60\n0 AF_EDGAR_OCPO_SWD -                                                    -       -               -  -  -       OCPO 1211/1008/73         1 60\n0 AF_EDGAR_POG1_SWD -                                                    -       -               -  -  -       POG1 1211/1008/74/76      1 60\n0 AF_EDGAR_POG2_SWD -                                                    -       -               -  -  -       POG2 1211/1008/74/77      1 60\n\n0 AF_EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1201/1008            1 60\n0 AF_EDGAR_SO4_POW  -                                                    -       -               -  -  -       SO4  1201/1008/63         1 60\n0 AF_EDGAR_pFe_POW  -                                                    -       -               -  -  -       pFe  1201/1008/66         1 60\n0 AF_EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1202/1008            1 60\n0 AF_EDGAR_SO4_ENG  -                                                    -       -               -  -  -       SO4  1202/1008/63         1 60\n0 AF_EDGAR_pFe_ENG  -                                                    -       -               -  -  -       pFe  1202/1008/66         1 60\n0 AF_EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1203/1008            1 60\n0 AF_EDGAR_SO4_IND  -                                                    -       -               -  -  -       SO4  1203/1008/63         1 60\n0 AF_EDGAR_pFe_IND  -                                                    -       -               -  -  -       pFe  1203/1008/66         1 60\n0 AF_EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1205/1008            1 60\n0 AF_EDGAR_SO4_TNG  -                                                    -       -               -  -  -       SO4  1205/1008/63         1 60\n0 AF_EDGAR_pFe_TNG  -                                                    -       -               -  -  -       pFe  1205/1008/66         1 60\n0 AF_EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1207/1008            1 60\n0 AF_EDGAR_SO4_PPA  -                                                    -       -               -  -  -       SO4  1207/1008/63         1 60\n0 AF_EDGAR_pFe_PPA  -                                                    -       -               -  -  -       pFe  1207/1008/66         1 60\n0 AF_EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1211/1008            1 60\n0 AF_EDGAR_SO4_SWD  -                                                    -       -               -  -  -       SO4  1211/1008/63         1 60\n0 AF_EDGAR_pFe_SWD  -                                                    -       -               -  -  -       pFe  1211/1008/66         1 60\n)))DICE_Africa\n\n#==============================================================================\n# --- CEDS_01x01 ---\n#\n# %%% This is the default global inventory.                            %%%\n# %%% You may select either CEDS, EDGAR, HTAP or CMIP6_SFC_LAND_ANTHRO %%%\n# %%% for the global base emissions.                                   %%%\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_NO_AGR     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_agr            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2401                1 5\n0 CEDS_NO_ENE     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s NO    2401/706/315        1 5\n0 CEDS_NO_IND     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s NO    2407/707/316        1 5\n0 CEDS_NO_TRA     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_tra            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2411/711            1 5\n0 CEDS_NO_RCO     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_rco            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2409/709            1 5\n0 CEDS_NO_SLV     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_slv            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2407/707            1 5\n0 CEDS_NO_WST     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_wst            1980-2019/1-12/1/0 C xy   kg/m2/s NO    25                  1 5\n\n0 CEDS_CO_AGR     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_agr            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2401                1 5\n0 CEDS_SOAP_AGR   -                                                             -                 -                  - -    -       SOAP  280/2401            1 5\n0 CEDS_CO_ENE     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s CO    2406/706/315        1 5\n0 CEDS_SOAP_ENE   -                                                             -                 -                  - -    -       SOAP  280/2406/706/315    1 5\n0 CEDS_CO_IND     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s CO    2407/707/316        1 5\n0 CEDS_SOAP_IND   -                                                             -                 -                  - -    -       SOAP  280/2407/707/316    1 5\n0 CEDS_CO_TRA     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_tra            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2411/711            1 5\n0 CEDS_SOAP_TRA   -                                                             -                 -                  - -    -       SOAP  280/2411/711        1 5\n0 CEDS_CO_RCO     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_rco            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2409/709            1 5\n0 CEDS_SOAP_RCO   -                                                             -                 -                  - -    -       SOAP  280/2409/709        1 5\n0 CEDS_CO_SLV     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_slv            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2407/707            1 5\n0 CEDS_SOAP_SLV   -                                                             -                 -                  - -    -       SOAP  280/2407/707        1 5\n0 CEDS_CO_WST     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_wst            1980-2019/1-12/1/0 C xy   kg/m2/s CO    26                  1 5\n0 CEDS_SOAP_WST   -                                                             -                 -                  - -    -       SOAP  26/280              1 5\n\n0 CEDS_SO2_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_agr           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2401                1 5\n0 CEDS_SO4_AGR    -                                                             -                 -                  - -    -       SO4   63/2401             1 5\n0 CEDS_pFe_AGR    -                                                             -                 -                  - -    -       pFe   66/2401             1 5\n0 CEDS_SO2_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s SO2   2406/706/315        1 5\n0 CEDS_SO4_ENE    -                                                             -                 -                  - -    -       SO4   63/2406/706/315     1 5\n0 CEDS_pFe_ENE    -                                                             -                 -                  - -    -       pFe   66/2406/706/315     1 5\n0 CEDS_SO2_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s SO2   2407/707/316        1 5\n0 CEDS_SO4_IND    -                                                             -                 -                  - -    -       SO4   63/2407/707/316     1 5\n0 CEDS_pFe_IND    -                                                             -                 -                  - -    -       pFe   66/2407/707/316     1 5\n0 CEDS_SO2_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_tra           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2411/711            1 5\n0 CEDS_SO4_TRA    -                                                             -                 -                  - -    -       SO4   63/2411/711         1 5\n0 CEDS_pFe_TRA    -                                                             -                 -                  - -    -       pFe   66/2411/711         1 5\n0 CEDS_SO2_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_rco           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2409/709            1 5\n0 CEDS_SO4_RCO    -                                                             -                 -                  - -    -       SO4   63/2409/709         1 5\n0 CEDS_pFe_RCO    -                                                             -                 -                  - -    -       pFe   66/2409/709         1 5\n0 CEDS_SO2_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_slv           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2407/707            1 5\n0 CEDS_SO4_SLV    -                                                             -                 -                  - -    -       SO4   63/2407/707         1 5\n0 CEDS_pFe_SLV    -                                                             -                 -                  - -    -       pFe   66/2407/707         1 5\n0 CEDS_SO2_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_wst           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   -                   1 5\n0 CEDS_SO4_WST    -                                                             -                 -                  - -    -       SO4   63                  1 5\n0 CEDS_pFe_WST    -                                                             -                 -                  - -    -       pFe   66                  1 5\n\n0 CEDS_NH3_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_agr           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2401                1 5\n0 CEDS_NH3_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s NH3   2406/706/315        1 5\n0 CEDS_NH3_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s NH3   2407/707/316        1 5\n0 CEDS_NH3_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_tra           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2411/711            1 5\n0 CEDS_NH3_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_rco           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2409/709            1 5\n0 CEDS_NH3_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_slv           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2407/707            1 5\n0 CEDS_NH3_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_wst           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   -                   1 5\n\n0 CEDS_BCPI_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_agr            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2401             1 5\n0 CEDS_BCPO_AGR   -                                                             -                 -                  - -    -       BCPO  71/2401             1 5\n0 CEDS_BCPI_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2406/706/315     1 5\n0 CEDS_BCPO_ENE   -                                                             -                 -                  - -    -       BCPO  71/2406/706/315     1 5\n0 CEDS_BCPI_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2407/707/316     1 5\n0 CEDS_BCPO_IND   -                                                             -                 -                  - -    -       BCPO  71/2407/707/316     1 5\n0 CEDS_BCPI_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_tra            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2411/711         1 5\n0 CEDS_BCPO_TRA   -                                                             -                 -                  - -    -       BCPO  71/2411/711         1 5\n0 CEDS_BCPI_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_rco            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2409/709         1 5\n0 CEDS_BCPO_RCO   -                                                             -                 -                  - -    -       BCPO  71/2409/709         1 5\n0 CEDS_BCPI_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_slv            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2407/707         1 5\n0 CEDS_BCPO_SLV   -                                                             -                 -                  - -    -       BCPO  71/2407/707         1 5\n0 CEDS_BCPI_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_wst            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70                  1 5\n0 CEDS_BCPO_WST   -                                                             -                 -                  - -    -       BCPO  71                  1 5\n\n0 CEDS_OCPI_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_agr            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2401             1 5\n0 CEDS_OCPO_AGR   -                                                             -                 -                  - -    -       OCPO  73/2401             1 5\n0 CEDS_POG1_AGR   -                                                             -                 -                  - -    -       POG1  74/76/2401          1 5\n0 CEDS_POG2_AGR   -                                                             -                 -                  - -    -       POG2  74/77/2401          1 5\n0 CEDS_OCPI_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2406/706/315     1 5\n0 CEDS_OCPO_ENE   -                                                             -                 -                  - -    -       OCPO  73/2406/706/315     1 5\n0 CEDS_POG1_ENE   -                                                             -                 -                  - -    -       POG1  74/76/2406/706/315  1 5\n0 CEDS_POG2_ENE   -                                                             -                 -                  - -    -       POG2  74/76/2406/706/315  1 5\n0 CEDS_OCPI_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2407/707/316     1 5\n0 CEDS_OCPO_IND   -                                                             -                 -                  - -    -       OCPO  73/2407/707/316     1 5\n0 CEDS_POG1_IND   -                                                             -                 -                  - -    -       POG1  74/76/2407/707/316  1 5\n0 CEDS_POG2_IND   -                                                             -                 -                  - -    -       POG2  74/77/2407/707/316  1 5\n0 CEDS_OCPI_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_tra            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2411/711         1 5\n0 CEDS_OCPO_TRA   -                                                             -                 -                  - -    -       OCPO  73/2411/711         1 5\n0 CEDS_POG1_TRA   -                                                             -                 -                  - -    -       POG1  74/76/2411/711      1 5\n0 CEDS_POG2_TRA   -                                                             -                 -                  - -    -       POG2  74/77/2411/711      1 5\n0 CEDS_OCPI_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_rco            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2409/709         1 5\n0 CEDS_OCPO_RCO   -                                                             -                 -                  - -    -       OCPO  73/2409/709         1 5\n0 CEDS_POG1_RCO   -                                                             -                 -                  - -    -       POG1  74/76/2409/709      1 5\n0 CEDS_POG2_RCO   -                                                             -                 -                  - -    -       POG2  74/77/2409/709      1 5\n0 CEDS_OCPI_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_slv            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2407/707         1 5\n0 CEDS_OCPO_SLV   -                                                             -                 -                  - -    -       OCPO  73/2407/707         1 5\n0 CEDS_POG1_SLV   -                                                             -                 -                  - -    -       POG1  74/76/2407/707      1 5\n0 CEDS_POG2_SLV   -                                                             -                 -                  - -    -       POG2  74/77/2407/707      1 5\n0 CEDS_OCPI_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_wst            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72                  1 5\n0 CEDS_OCPO_WST   -                                                             -                 -                  - -    -       OCPO  73                  1 5\n0 CEDS_POG1_WST   -                                                             -                 -                  - -    -       POG1  74/76               1 5\n0 CEDS_POG2_WST   -                                                             -                 -                  - -    -       POG2  74/77               1 5\n\n# NOTE: EOH files in CEDS/v2024-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_agr           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2401             1 5\n0 CEDS_EOH_AGR    -                                                             -                 -                  - -    -       EOH   91/2401             1 5\n0 CEDS_ROH_AGR    -                                                             -                 -                  - -    -       ROH   92/2401             1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2406/706/315     1 5\n0 CEDS_EOH_ENE    -                                                             -                 -                  - -    -       EOH   91/2406/706/315     1 5\n0 CEDS_ROH_ENE    -                                                             -                 -                  - -    -       ROH   92/2406/706/315     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2407/707/316     1 5\n0 CEDS_EOH_IND    -                                                             -                 -                  - -    -       EOH   91/2407/707/316     1 5\n0 CEDS_ROH_IND    -                                                             -                 -                  - -    -       ROH   92/2407/707/316     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_tra           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2411/711         1 5\n0 CEDS_EOH_TRA    -                                                             -                 -                  - -    -       EOH   91/2411/711         1 5\n0 CEDS_ROH_TRA    -                                                             -                 -                  - -    -       ROH   92/2411/711         1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_rco           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2409/709         1 5\n0 CEDS_EOH_RCO    -                                                             -                 -                  - -    -       EOH   91/2409/709         1 5\n0 CEDS_ROH_RCO    -                                                             -                 -                  - -    -       ROH   92/2409/709         1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_slv           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2407/707         1 5\n0 CEDS_EOH_SLV    -                                                             -                 -                  - -    -       EOH   91/2407/707         1 5\n0 CEDS_ROH_SLV    -                                                             -                 -                  - -    -       ROH   92/2407/707         1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_wst           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90                  1 5\n0 CEDS_EOH_WST    -                                                             -                 -                  - -    -       EOH   91                  1 5\n0 CEDS_ROH_WST    -                                                             -                 -                  - -    -       ROH   92                  1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2401                1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2406/706/315        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2407/707/316        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2411/711            1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2409/709            1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2407/707            1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  26                  1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2401                1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2406/706/315        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2407/707/316        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2411/711            1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2409/709            1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2407/707            1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  26                  1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_agr  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_tra  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_rco  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_slv  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_wst  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_agr 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_ene 1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_ind 1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_tra 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_rco 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_slv 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_wst 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_agr  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2401                1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2406/706/315        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2407/707/316        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_tra  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2411/711            1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_rco  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2409/709            1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_slv  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2407/707            1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_wst  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  26                  1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2401                1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2406/706/315        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2407/707/316        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2411/711            1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2409/709            1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2407/707            1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  26                  1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_agr          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2401                1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2406/706/315        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2407/707/316        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_tra          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2411/711            1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_rco          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2409/709            1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_slv          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2407/707            1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_wst          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  26                  1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2401                1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2406/706/315        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2407/707/316        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2411/711            1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2409/709            1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2407/707            1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  26                  1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_agr          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2401                1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2406/706/315        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2407/707/316        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_tra          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2411/711            1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_rco          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2409/709            1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_slv          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2407/707            1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_wst          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  26                  1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_agr          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2401                1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2406/706/315        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2407/707/316        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_tra          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2411/711            1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_rco          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2409/709            1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_slv          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2407/707            1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_wst          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  26                  1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_agr          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2401                1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2406/706/315        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2407/707/316        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_tra          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2411/711            1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_rco          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2409/709            1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_slv          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2407/707            1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_wst          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  26                  1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_agr          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2401                1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2406/706/315        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2407/707/316        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_tra          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2411/711            1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_rco          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2409/709            1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_slv          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2407/707            1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_wst          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  26                  1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_agr          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2401                1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2406/706/315        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2407/707/316        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_tra          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2411/711            1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_rco          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2409/709            1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_slv          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2407/707            1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_wst          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  26                  1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_agr           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2401                1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s MEK   2406/706/315        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s MEK   2407/707/316        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_tra           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2411/711            1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_rco           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2409/709            1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_slv           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2407/707            1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_wst           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   26                  1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_agr         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2401                1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_ene         1980-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2406/706/315        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_ind         1980-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2407/707/316        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_tra         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2411/711            1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_rco         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2409/709            1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_slv         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2407/707            1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_wst         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n#\n# TMB and OTHER_VOC are absent from the CEDS 0.1 x 0.1 emissions.\n# Read the previous CEDSv2 data for these instead.\n#\n0 CEDS_TMB_AGR    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_agr        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2401                1 5\n0 CEDS_TMB_ENE    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_ene        1980-2019/1-12/1/0 C xyL* kg/m2/s TMB   2406/706/315        1 5\n0 CEDS_TMB_IND    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_ind        1980-2019/1-12/1/0 C xyL* kg/m2/s TMB   2407/707/316        1 5\n0 CEDS_TMB_TRA    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_tra        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2411/711            1 5\n0 CEDS_TMB_RCO    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_rco        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2409/709            1 5\n0 CEDS_TMB_SLV    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_slv        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2407/707            1 5\n0 CEDS_TMB_WST    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_wst        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   26                  1 5\n\n0 CEDS_OTH_AGR    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_agr  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2401                1 5\n0 CEDS_OTH_ENE    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2406/706/315        1 5\n0 CEDS_OTH_IND    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2407/707/316        1 5\n0 CEDS_OTH_TRA    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_tra  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2411/711            1 5\n0 CEDS_OTH_RCO    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_rco  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2409/709            1 5\n0 CEDS_OTH_SLV    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_slv  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2407/707            1 5\n0 CEDS_OTH_WST    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_wst  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  26                  1 5\n)))CEDS_01x01\n\n#==============================================================================\n# --- CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_NO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n\n0 CMIP6_CO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_AGR   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_ENE   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_IND   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_TRA   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_RCO   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_SLV   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_WST   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n\n0 CMIP6_SO2_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_AGR    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_AGR    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_ENE    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_ENE    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_IND    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_IND    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_TRA    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_TRA    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_RCO    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_RCO    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_SLV    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_SLV    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_WST    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_WST    -                                                                            -                 -                  - -  -          pFe   66        1 5\n\n0 CMIP6_NH3_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_agr           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ene           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ind           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_tra           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_rco           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_slv           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_wst           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n\n0 CMIP6_BCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_AGR   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_ENE   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_IND   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_TRA   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_RCO   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_SLV   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_WST   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n\n0 CMIP6_OCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_AGR   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_AGR   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_AGR   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_ENE   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_ENE   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_ENE   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_IND   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_IND   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_IND   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_TRA   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_TRA   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_TRA   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_RCO   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_RCO   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_RCO   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_SLV   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_SLV   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_SLV   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_WST   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_WST   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_WST   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n\n# Comment out CO2 for fullchem simulations: CO2 not advected\n#0 CMIP6_CO2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n\n# Comment out CH4 for fullchem simulations: do not use CH4 emissions\n# CMIP6 CH4 emissions are only available for 1970-2014\n#0 CMIP6_CH4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_agr           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ene           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ind           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_tra           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_rco           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_slv           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_wst           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_AGR    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_AGR    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_ENE    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_ENE    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_IND    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_IND    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_TRA    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_TRA    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_RCO    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_RCO    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_SLV    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_SLV    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_WST    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_WST    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n\n0 CMIP6_C2H6_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n\n0 CMIP6_C3H8_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n\n0 CMIP6_C4H10_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C5H12_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_agr 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ene 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ind 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_tra 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_rco 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_slv 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_wst 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C6H14_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n\n0 CMIP6_C2H4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n\n0 CMIP6_PRPE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n\n0 CMIP6_C2H2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n\n0 CMIP6_BENZ_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_agr          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ene          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ind          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_tra          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_rco          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_slv          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_wst          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n\n0 CMIP6_TOLU_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_agr          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ene          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ind          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_tra          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_rco          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_slv          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_wst          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n\n0 CMIP6_XYLE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n\n0 CMIP6_CH2O_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_agr          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ene          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ind          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_tra          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_rco          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_slv          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_wst          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n\n0 CMIP6_ALD2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n\n0 CMIP6_MEK_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n\n0 CMIP6_HCOOH_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_agr         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ene         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ind         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_tra         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_rco         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_slv         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_wst         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_NO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   NO    -        20 1\n0 CMIP6_AIR_CO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    CO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   CO    -        20 1\n0 CMIP6_AIR_SOAP   -                                                                                -                 -                  - -   -         SOAP  280      20 1\n0 CMIP6_AIR_SO2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    SO2_air           1750-2100/1-12/1/0 C xyz kg/m2/s   SO2   -        20 1\n0 CMIP6_AIR_SO4    -                                                                                -                 -                  - -   -         SO4   63       20 1\n0 CMIP6_AIR_pFe    -                                                                                -                 -                  - -   -         pFe   66       20 1\n0 CMIP6_AIR_ACET   -                                                                                -                 -                  - -   -         ACET  601      20 1\n0 CMIP6_AIR_ALD2   -                                                                                -                 -                  - -   -         ALD2  602      20 1\n0 CMIP6_AIR_ALK4   -                                                                                -                 -                  - -   -         ALK4  603      20 1\n0 CMIP6_AIR_C2H6   -                                                                                -                 -                  - -   -         C2H6  604      20 1\n0 CMIP6_AIR_C3H8   -                                                                                -                 -                  - -   -         C3H8  605      20 1\n0 CMIP6_AIR_CH2O   -                                                                                -                 -                  - -   -         CH2O  606      20 1\n0 CMIP6_AIR_PRPE   -                                                                                -                 -                  - -   -         PRPE  607      20 1\n0 CMIP6_AIR_MACR   -                                                                                -                 -                  - -   -         MACR  608      20 1\n0 CMIP6_AIR_RCHO   -                                                                                -                 -                  - -   -         RCHO  609      20 1\n0 CMIP6_AIR_NH3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NH3_air           1750-2100/1-12/1/0 C xyz kg/m2/s   NH3   -        20 1\n# Assume all BC/OC is BCPI/OCPI\n0 CMIP6_AIR_BCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    BC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   BCPI  -        20 1\n0 CMIP6_AIR_OCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    OC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   OCPI  -        20 1\n0 CMIP6_AIR_POG1   -                                                                                -                 -                  - -  -          POG1  74/76    20 1\n0 CMIP6_AIR_POG2   -                                                                                -                 -                  - -  -          POG2  74/77    20 1\n\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EDGAR v4.3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# The following emissions are not included in EDGAR and will be added:\n#  * Wiedinmyer et al. (2014) global trash emissions\n#  * CEDS VOC emissions\n#\n# Aviation and shipping emissions from EDGAR are not included here.\n# We also do not include the following sources:\n#  - Soil emissions of NOx (SOL). These emissions are calculated via the\n#    SoilNOx extension.\n#  - Open biomass burning (AWB). These emissions are obtained from\n#    GFED, QFED, FINN, or GFAS.\n#==============================================================================\n(((EDGARv43\n0  EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1201/70         1 2\n0  EDGAR_BCPO_POW -                                                    -       -               - -  -       BCPO 1201/71         1 2\n0  EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1202/70         1 2\n0  EDGAR_BCPO_ENG -                                                    -       -               - -  -       BCPO 1202/71         1 2\n0  EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1203/70         1 2\n0  EDGAR_BCPO_IND -                                                    -       -               - -  -       BCPO 1203/71         1 2\n0  EDGAR_BCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TRO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1204/70         1 2\n0  EDGAR_BCPO_TRO -                                                    -       -               - -  -       BCPO 1204/71         1 2\n0  EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1205/70         1 2\n0  EDGAR_BCPO_TNG -                                                    -       -               - -  -       BCPO 1205/71         1 2\n0  EDGAR_BCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.RCO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1206/70         1 2\n0  EDGAR_BCPO_RCO -                                                    -       -               - -  -       BCPO 1206/71         1 2\n0  EDGAR_BCPI_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.PPA.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1207/70         1 2\n0  EDGAR_BCPO_PPA -                                                    -       -               - -  -       BCPO 1207/71         1 2\n#0 EDGAR_BCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.AWB.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1209/70         1 2\n#0 EDGAR_BCPO_AWB -                                                    -       -               - -  -       BCPO 1209/71         1 2\n0  EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1211/70         1 2\n0  EDGAR_BCPO_SWD -                                                    -       -               - -  -       BCPO 1211/71         1 2\n0  EDGAR_BCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.FFF.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1212/70         1 2\n0  EDGAR_BCPO_FFF -                                                    -       -               - -  -       BCPO 1212/71         1 2\n0  EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1201/26/52      1 2\n0  EDGAR_SOAP_POW -                                                    -       -               - -  -       SOAP 1201/26/52/280  1 2\n0  EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1202/26/52      1 2\n0  EDGAR_SOAP_ENG -                                                    -       -               - -  -       SOAP 1202/26/52/280  1 2\n0  EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1203/26/52      1 2\n0  EDGAR_SOAP_IND -                                                    -       -               - -  -       SOAP 1203/26/52/280  1 2\n0  EDGAR_CO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1204/26/52      1 2\n0  EDGAR_SOAP_TRO -                                                    -       -               - -  -       SOAP 1204/26/52/280  1 2\n0  EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1205/26/52      1 2\n0  EDGAR_SOAP_TNG -                                                    -       -               - -  -       SOAP 1205/26/52/280  1 2\n0  EDGAR_CO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1206/26/52      1 2\n0  EDGAR_SOAP_RCO -                                                    -       -               - -  -       SOAP 1206/26/52/280  1 2\n0  EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1207/26/52      1 2\n0  EDGAR_SOAP_PPA -                                                    -       -               - -  -       SOAP 1207/26/52/280  1 2\n#0 EDGAR_CO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1209/26/52      1 2\n#0 EDGAR_SOAP_AWB -                                                    -       -               - -  -       SOAP 1209/26/52/280  1 2\n0  EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1211/26/52      1 2\n0  EDGAR_SOAP_SWD -                                                    -       -               - -  -       SOAP 1211/26/52/280  1 2\n0  EDGAR_CO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1212/26/52      1 2\n0  EDGAR_SOAP_FFF -                                                    -       -               - -  -       SOAP 1212/26/52/280  1 2\n0  EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1201            1 2\n0  EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1202            1 2\n0  EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1203            1 2\n0  EDGAR_NH3_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TRO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1204            1 2\n0  EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1205            1 2\n0  EDGAR_NH3_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.RCO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1206            1 2\n0  EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1207            1 2\n0  EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1208            1 2\n#0 EDGAR_NH3_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AWB.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1209            1 2\n0  EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1210            1 2\n0  EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1211            1 2\n0  EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1201/25/115     1 2\n0  EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1202/25/115     1 2\n0  EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1203/25/115     1 2\n0  EDGAR_NO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TRO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1204/25/115     1 2\n0  EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1205/25/115     1 2\n0  EDGAR_NO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.RCO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1206/25/115     1 2\n0  EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1207/25/115     1 2\n0  EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1208/25/115     1 2\n#0 EDGAR_NO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AWB.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1209/25/115     1 2\n#0 EDGAR_NO_SOL   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SOL.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1210/25/115     1 2\n0  EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1211/25/115     1 2\n0  EDGAR_NO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.FFF.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1212/25/115     1 2\n0  EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1201/72         1 2\n0  EDGAR_OCPO_POW -                                                    -       -               - -  -       OCPO 1201/73         1 2\n0  EDGAR_POG1_POW -                                                    -       -               - -  -       POG1 1201/74/76      1 2\n0  EDGAR_POG2_POW -                                                    -       -               - -  -       POG2 1201/74/77      1 2\n0  EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1202/72         1 2\n0  EDGAR_OCPO_ENG -                                                    -       -               - -  -       OCPO 1202/73         1 2\n0  EDGAR_POG1_ENG -                                                    -       -               - -  -       POG1 1202/74/76      1 2\n0  EDGAR_POG2_ENG -                                                    -       -               - -  -       POG2 1202/74/77      1 2\n0  EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1203/72         1 2\n0  EDGAR_OCPO_IND -                                                    -       -               - -  -       OCPO 1203/73         1 2\n0  EDGAR_POG1_IND -                                                    -       -               - -  -       POG1 1203/74/76      1 2\n0  EDGAR_POG2_IND -                                                    -       -               - -  -       POG2 1203/74/77      1 2\n0  EDGAR_OCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TRO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1204/72         1 2\n0  EDGAR_OCPO_TRO -                                                    -       -               - -  -       OCPO 1204/73         1 2\n0  EDGAR_POG1_TRO -                                                    -       -               - -  -       POG1 1204/74/76      1 2\n0  EDGAR_POG2_TRO -                                                    -       -               - -  -       POG2 1204/74/77      1 2\n0  EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1205/72         1 2\n0  EDGAR_OCPO_TNG -                                                    -       -               - -  -       OCPO 1205/73         1 2\n0  EDGAR_POG1_TNG -                                                    -       -               - -  -       POG1 1205/74/76      1 2\n0  EDGAR_POG2_TNG -                                                    -       -               - -  -       POG2 1205/74/77      1 2\n0  EDGAR_OCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.RCO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1206/72         1 2\n0  EDGAR_OCPO_RCO -                                                    -       -               - -  -       OCPO 1206/73         1 2\n0  EDGAR_POG1_RCO -                                                    -       -               - -  -       POG1 1206/74/76      1 2\n0  EDGAR_POG2_RCO -                                                    -       -               - -  -       POG2 1206/74/77      1 2\n#0 EDGAR_OCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.AWB.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1209/72         1 2\n#0 EDGAR_OCPO_AWB -                                                    -       -               - -  -       OCPO 1209/73         1 2\n#0 EDGAR_POG1_AWB -                                                    -       -               - -  -       POG1 1209/74/76      1 2\n#0 EDGAR_POG2_AWB -                                                    -       -               - -  -       POG2 1209/74/77      1 2\n0  EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1211/72         1 2\n0  EDGAR_OCPO_SWD -                                                    -       -               - -  -       OCPO 1211/73         1 2\n0  EDGAR_POG1_SWD -                                                    -       -               - -  -       POG1 1211/74/76      1 2\n0  EDGAR_POG2_SWD -                                                    -       -               - -  -       POG2 1211/74/77      1 2\n0  EDGAR_OCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.FFF.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1212/72         1 2\n0  EDGAR_OCPO_FFF -                                                    -       -               - -  -       OCPO 1212/73         1 2\n0  EDGAR_POG1_FFF -                                                    -       -               - -  -       POG1 1212/74/76      1 2\n0  EDGAR_POG2_FFF -                                                    -       -               - -  -       POG2 1212/74/77      1 2\n0  EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1201            1 2\n0  EDGAR_SO4_POW  -                                                    -       -               - -  -       SO4  1201/63         1 2\n0  EDGAR_pFe_POW  -                                                    -       -               - -  -       pFe  1201/66         1 2\n0  EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1202            1 2\n0  EDGAR_SO4_ENG  -                                                    -       -               - -  -       SO4  1202/63         1 2\n0  EDGAR_pFe_ENG  -                                                    -       -               - -  -       pFe  1202/66         1 2\n0  EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1203            1 2\n0  EDGAR_SO4_IND  -                                                    -       -               - -  -       SO4  1203/63         1 2\n0  EDGAR_pFe_IND  -                                                    -       -               - -  -       pFe  1203/66         1 2\n0  EDGAR_SO2_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TRO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1204            1 2\n0  EDGAR_SO4_TRO  -                                                    -       -               - -  -       SO4  1204/63         1 2\n0  EDGAR_pFe_TRO  -                                                    -       -               - -  -       pFe  1204/66         1 2\n0  EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1205            1 2\n0  EDGAR_SO4_TNG  -                                                    -       -               - -  -       SO4  1205/63         1 2\n0  EDGAR_pFe_TNG  -                                                    -       -               - -  -       pFe  1205/66         1 2\n0  EDGAR_SO2_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.RCO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1206            1 2\n0  EDGAR_SO4_RCO  -                                                    -       -               - -  -       SO4  1206/63         1 2\n0  EDGAR_pFe_RCO  -                                                    -       -               - -  -       pFe  1206/66         1 2\n0  EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1207            1 2\n0  EDGAR_SO4_PPA  -                                                    -       -               - -  -       SO4  1207/63         1 2\n0  EDGAR_pFe_PPA  -                                                    -       -               - -  -       pFe  1207/66         1 2\n#0 EDGAR_SO2_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.AWB.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1209            1 2\n#0 EDGAR_SO4_AWB  -                                                    -       -               - -  -       SO4  1209/63         1 2\n#0 EDGAR_pFe_AWB  -                                                    -       -               - -  -       pFe  1209/66         1 2\n0  EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1211            1 2\n0  EDGAR_SO4_SWD  -                                                    -       -               - -  -       SO4  1211/63         1 2\n0  EDGAR_pFe_SWD  -                                                    -       -               - -  -       pFe  1211/66         1 2\n0  EDGAR_SO2_FFF  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.FFF.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1212            1 2\n0  EDGAR_SO4_FFF  -                                                    -       -               - -  -       SO4  1212/63         1 2\n0  EDGAR_pFe_FFF  -                                                    -       -               - -  -       pFe  1212/66         1 2\n\n#==============================================================================\n# --- NAP ANTHROPOGENIC EMISSIONS: approximate from EDGAR BENZ ---\n#\n# NOTE: Although this data comes from EDGAR version 2, we are storing it\n# in the EDGARv42 data path for convenience.\n#==============================================================================\n0 EDGAR_NAP $ROOT/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc BENZ 1985/1/1/0 C xy kgC/m2/s NAP 80/81/82/43 1 2\n\n#==============================================================================\n# --- Wiedinmyer et al. (2014) global trash emissions to be added to EDGAR ---\n#==============================================================================\n0 TRASH_CO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CO    2008/1/1/0 C xy kg/m2/s  CO    -     1 2\n0 TRASH_SOAP  -                                                       -     -          - -  -        SOAP  280   1 2\n0 TRASH_NO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NO    2008/1/1/0 C xy kg/m2/s  NO    -     1 2\n0 TRASH_SO2   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  SO2   2008/1/1/0 C xy kg/m2/s  SO2   78    1 2\n0 TRASH_SO4   -                                                       -     -          - -  -        SO4   63    1 2\n0 TRASH_pFe   -                                                       -     -          - -  -        pFe   78/66 1 2\n0 TRASH_BCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BC    2008/1/1/0 C xy kg/m2/s  BCPI  70    1 2\n0 TRASH_BCPO  -                                                       -     -          - -  -        BCPO  71    1 2\n0 TRASH_OCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  OC    2008/1/1/0 C xy kg/m2/s  OCPI  72    1 2\n0 TRASH_OCPO  -                                                       -     -          - -  -        OCPO  73    1 2\n0 TRASH_POG1  -                                                       -     -          - -  -        POG1  74/76 1 2\n0 TRASH_POG2  -                                                       -     -          - -  -        POG2  74/77 1 2\n0 TRASH_NH3   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NH3   2008/1/1/0 C xy kg/m2/s  NH3   -     1 2\n\n#==============================================================================\n# --- CEDS VOC emissions to be added to EDGAR ---\n#==============================================================================\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n)))EDGARv43\n\n#==============================================================================\n# --- HTAP v3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# ==> HTAPv3 ship emissions are listed in the ship emissions section below\n#==============================================================================\n(((HTAPv3\n0 HTAPv3_NO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_IND  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_WST  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_CO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_AGR -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_ENE -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_IND  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_IND -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_TRA -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_RCO -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_SLV -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_WST  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_WST -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_SO2_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_AGR 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_AGR  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_AGR  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_ENE 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_ENE  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_ENE  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_IND 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_IND  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_IND  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_TRA 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_TRA  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_TRA  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_RCO 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_RCO  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_RCO  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_SLV 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_SLV  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_SLV  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_WST 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_WST  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_WST  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_NH3_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_AGR 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_ENE 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_IND 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_TRA 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_RCO 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_SLV 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_WST 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_BCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_AGR -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_ENE -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_IND  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_IND -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_TRA -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_RCO -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_SLV -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_WST  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_WST -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_OCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_AGR -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_AGR -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_AGR -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_ENE -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_ENE -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_ENE -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_IND  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_IND -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_IND -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_IND -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_TRA -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_TRA -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_TRA -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_RCO -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_RCO -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_RCO -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_SLV -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_SLV -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_SLV -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_WST  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_WST -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_WST -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_WST -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n#\n# Use CEDSv2 for species that are not in the HTAPv3 inventory\n# NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n)))HTAPv3\n\n#==============================================================================\n# --- GEIA NH3 from natural sources ---\n#==============================================================================\n(((GEIA_NH3\n0 GEIA_NH3_NATU $ROOT/NH3/v2019-08/NH3_geos.2x25.nc         NH3_NATU     1990/1-12/1/0 C xy  kg/m2/s NH3 - 3 1\n)))GEIA_NH3\n\n#==============================================================================\n# --- NH3 from arctic seabirds ---\n# Source: Riddick et al., 2012, NERC Environmental Information Data Centre\n#==============================================================================\n(((SEABIRD_NH3\n0 SEABIRD_NH3   $ROOT/NH3/v2018-04/NH3_Arctic_seabirds.nc  NH3_SEABIRDS 1990/1-12/1/0 C xy  kg/m2/s NH3 - 30 1\n)))SEABIRD_NH3\n\n#==============================================================================\n# --- POET EOH ---\n#==============================================================================\n(((POET_EOH\n0 POET_EOH $ROOT/POET/v2017-03/POET_EOH.geos.2x25.nc EOH 1985/1/1/0 C xy kgC/m2/s EOH 26/47 1 1\n)))POET_EOH\n\n#==============================================================================\n# --- 2010 Global fossil fuel and biofuel emissions of C2H6 (Tzompa-Sosa et al. (2017) ---\n#\n# NOTES:\n# - These C2H6 emissions are used in place of CEDS\n#==============================================================================\n(((TZOMPASOSA_C2H6\n0 C2H6_2010_oilgas   $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc ANTHR_C2H6   2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n0 C2H6_2010_biofuel  $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc BIOFUEL_C2H6 2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n)))TZOMPASOSA_C2H6\n\n#==============================================================================\n# --- Xiao et al., JGR, 2008 ---\n#\n# NOTES:\n# - Xiao et al. C3H8 emissions are used in place of CEDS\n# - Priority is set to 10 to overwrite CEDS, but not newer regional inventories (e.g. EPA/NEI)\n#==============================================================================\n(((XIAO_C3H8\n0 XIAO_C3H8    $ROOT/XIAO/v2014-09/C3H8_C2H6_ngas.geos.1x1.nc C3H8         1985/1/1/0 C xy kgC/m2/s C3H8 6/7/26/22/46 1 10\n0 BIOFUEL_C3H8 $ROOT/BIOFUEL/v2019-08/biofuel.geos.2x25.nc    BIOFUEL_C3H8 1985/1/1/0 C xy kgC/m2/s C3H8 46           1 10\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Very-short-lived (VSL) bromocarbon emissions (cf. Qing Liang) ---\n#==============================================================================\n(((LIANG_BROMOCARB\n0 LIANG_CHBR3  $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CHBr3_emission  2000/1/1/0 C xy kg/m2/s CHBr3  39 1 1\n0 LIANG_CH2BR2 $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CH2Br2_emission 2000/1/1/0 C xy kg/m2/s CH2Br2 -  1 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Very-short-lived (VSL) iodocarbon emissions (cf. Carlos Ordonez) ---\n#==============================================================================\n(((ORDONEZ_IODOCARB\n0 ORDONEZ_CH3I   $ROOT/IODINE/v2020-02/CH3I_monthly_emissions_Ordonez_2012_COARDS.nc   CH3I   2000/1-12/1/0 C xy kg/m2/s CH3I   - 1 1\n0 ORDONEZ_CH2I2  $ROOT/IODINE/v2020-02/CH2I2_monthly_emissions_Ordonez_2012_COARDS.nc  CH2I2  2000/1-12/1/0 C xy kg/m2/s CH2I2  - 1 1\n0 ORDONEZ_CH2ICL $ROOT/IODINE/v2020-02/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.nc CH2ICl 2000/1-12/1/0 C xy kg/m2/s CH2ICl - 1 1\n0 ORDONEZ_CH2IBR $ROOT/IODINE/v2020-02/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc CH2IBr 2000/1-12/1/0 C xy kg/m2/s CH2IBr - 1 1\n)))ORDONEZ_IODOCARB\n\n#==============================================================================\n# --- GT_Chlorine ---\n#\n# Emission inventory for HCl and particulate Cl from continental sources\n#\n# Reference:\n#  Zhang, B., & Liu, P., et al (2022). Global Emissions of Hydrogen Chloride\n#  and Particulate Chloride from Continental Sources. Environmental Science &\n#  Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634 \n#\n# Notes:\n# - The HCl emission from open biomass burning (HCL_BIO, HCL_AGR) used the same\n#   activity data for GFED4 (1998-2014) and BB4CMIP (1960-2014). If your\n#   emission inventory for open biomass burning has already include HCl\n#   emissions, shut down either of them to avoid the duplicated emission sources\n# - Emissions of particulate Cl are added as HCl as ISORROPIA will reparition\n#   Cl between particle phase and gas phase. \n#==============================================================================\n(((GT_Chlorine\n0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 HCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n)))GT_Chlorine\n\n#==============================================================================\n# --- Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAPv3 for SO2 and ICOADS should be used for CO and NO.\n# ==> Ship NO emissions are used by PARANOx and the extension number must be\n#     adjusted accordingly. If PARANOx is turned off, set the ExtNr back to\n#     zero.\n#==============================================================================\n(((SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_CO_SHP   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc  CO_SHP  2000-2018/1-12/1/0 C xy kg/m2/s CO    26     10 4\n0 HTAPv3_SOAP_SHP -                                                       -       -                  - -  -       SOAP  26/280 10 4\n0 HTAPv3_SO2_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc SO2_SHP 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -      10 4\n0 HTAPv3_SO4_SHP  -                                                       -       -                  - -  -       SO4   63     10 4\n0 HTAPv3_pFe_SHP  -                                                       -       -                  - -  -       pFe   66     10 4\n0 HTAPv3_NH3_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc NH3_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -      10 4\n0 HTAPv3_BCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc  BC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70     10 4\n0 HTAPv3_BCPO_SHP -                                                       -       -                  - -  -       BCPO  71     10 4\n0 HTAPv3_OCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc  OC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72     10 4\n0 HTAPv3_OCPO_SHP -                                                       -       -                  - -  -       OCPO  73     10 4\n# Use CEDSv2 ship emissions for species not in HTAPv3\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_shp           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 4\n0 CEDS_EOH_SHP    -                                                                    -                 -                  - -  -       EOH   26/91  10 4\n0 CEDS_ROH_SHP    -                                                                    -                 -                  - -  -       ROH   26/92  10 4\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 4\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_shp          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 4\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 4\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 4\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_shp          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 4\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 4\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_shp          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 4\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_shp          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 4\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_shp          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 4\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_shp          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 4\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_shp          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 4\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_shp           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 4\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_shp         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 4\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_shp           1750-2019/1-12/1/0 C xy kg/m2/s TMB   26     10 4\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_shp     1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_CO_SHP     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_shp            1980-2019/1-12/1/0 C xy kg/m2/s CO    26     10 5\n0 CEDS_SOAP_SHP   -                                                             -                 -                  - -  -       SOAP  26/280 10 5\n0 CEDS_SO2_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_shp           1980-2019/1-12/1/0 C xy kg/m2/s SO2   -      10 5\n0 CEDS_SO4_SHP    -                                                             -                 -                  - -  -       SO4   63     10 5\n0 CEDS_pFe_SHP    -                                                             -                 -                  - -  -       pFe   66     10 5\n0 CEDS_NH3_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_shp           1980-2019/1-12/1/0 C xy kg/m2/s NH3   -      10 5\n0 CEDS_BCPI_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_shp            1980-2019/1-12/1/0 C xy kg/m2/s BCPI  70     10 5\n0 CEDS_BCPO_SHP   -                                                             -                 -                  - -  -       BCPO  71     10 5\n0 CEDS_OCPI_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_shp            1980-2019/1-12/1/0 C xy kg/m2/s OCPI  72     10 5\n0 CEDS_OCPO_SHP   -                                                             -                 -                  - -  -       OCPO  73     10 5\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_shp           1980-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 5\n0 CEDS_EOH_SHP    -                                                             -                 -                  - -  -       EOH   26/91  10 5\n0 CEDS_ROH_SHP    -                                                             -                 -                  - -  -       ROH   26/92  10 5\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 5\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_shp          1980-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 5\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_shp  1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_shp 1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_shp  1980-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 5\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 5\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_shp          1980-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 5\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 5\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_shp          1980-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 5\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_shp          1980-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 5\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_shp          1980-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 5\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_shp          1980-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 5\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_shp          1980-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 5\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_shp           1980-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 5\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_shp         1980-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n#\n# TMB and OTHER_VOC are absent from the CEDS 0.1 x 0.1 emissions.\n# Read the previous CEDSv2 data for these instead.\n#\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc        TMB_shp       1980-2019/1-12/1/0 C xy kg/m2/s TMB   26     10 5\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc  OTHER_VOC_shp 1980-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 5\n)))CEDS_01x01_SHIP\n\n#==============================================================================\n# --- CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_CO_SHP     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CO_shp            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        10 5\n0 CMIP6_SOAP_SHP   -                                                                     -                 -                  - -  -          SOAP  26/280    10 5\n0 CMIP6_SO2_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            SO2_shp           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         10 5\n0 CMIP6_SO4_SHP    -                                                                     -                 -                  - -  -          SO4   63        10 5\n0 CMIP6_pFe_SHP    -                                                                     -                 -                  - -  -          pFe   66        10 5\n0 CMIP6_NH3_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            NH3_shp           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         10 5\n0 CMIP6_BCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        10 5\n0 CMIP6_BCPO_SHP   -                                                                     -                 -                  - -  -          BCPO  71        10 5\n0 CMIP6_OCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            OC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        10 5\n0 CMIP6_OCPO_SHP   -                                                                     -                 -                  - -  -          OCPO  73        10 5\n0 CMIP6_POG1_SHP   -                                                                     -                 -                  - -  -          POG1  74/76     10 5\n0 CMIP6_POG2_SHP   -                                                                     -                 -                  - -  -          POG2  74/77     10 5\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            EOH_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     10 5\n0 CMIP6_EOH_SHP    -                                                                     -                 -                  - -  -          EOH   26/91     10 5\n0 CMIP6_ROH_SHP    -                                                                     -                 -                  - -  -          ROH   26/92     10 5\n0 CMIP6_C2H6_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H6_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        10 5\n0 CMIP6_C3H8_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C3H8_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        10 5\n0 CMIP6_C4H10_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_butanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C5H12_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_pentanes_shp 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C6H14_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_hexanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        10 5\n0 CMIP6_C2H4_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H4_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        10 5\n0 CMIP6_PRPE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            PRPE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        10 5\n0 CMIP6_C2H2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        10 5\n0 CMIP6_BENZ_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BENZ_shp          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        10 5\n0 CMIP6_TOLU_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            TOLU_shp          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        10 5\n0 CMIP6_XYLE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            XYLE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        10 5\n0 CMIP6_CH2O_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CH2O_shp          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        10 5\n0 CMIP6_ALD2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALD2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        10 5\n0 CMIP6_MEK_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            MEK_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        10 5\n0 CMIP6_HCOOH_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            HCOOH_shp         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        10 5\n)))CMIP6_SHIP\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED ON ###\n#\n# Cosine(SZA) will be read from the restart file.  Use the PARANOX extension\n# number (# 102) to specify these quantities and the NEI emissions.\n# This will make sure everything will be passed to the HEMCO PARANOX extension\n# rather than sending them into the base emissions.\n#------------------------------------------------------------------------------\n(((ParaNOx\n\n(((HTAPv3_SHIP\n102 HTAPv3_NO_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n102 CEDS_NO_SHP $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc NO_shp 1980-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDS_01x01_SHIP\n\n)))ParaNOx\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED OFF ###\n#\n# Use extension # 0 to specify these emissions.  This will put them\n# into the base emissions rather than sending them through PARANOX.\n#------------------------------------------------------------------------------\n(((.not.ParaNOx\n\n(((HTAPv3_SHIP\n0 HTAPv3_NO_SHIP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_NO_SHP $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc NO_shp 1980-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDS_01x01_SHIP\n\n(((CMIP6_SHIP\n102 CMIP6_NO_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_shp 1750-2100/1-12/1/0 C xy kg/m2/s NO 25   10 5\n)))CMIP6_SHIP\n\n))).not.ParaNOx\n\n)))SHIP\n\n#==============================================================================\n# --- AEIC 2019 aircraft emissions (daily & monthly mean) ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_NO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO       2019/1-12/1-31/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_DAILY_NO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO2      2019/1-12/1-31/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_DAILY_HONO $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HONO     2019/1-12/1-31/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_DAILY_CO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO       2019/1-12/1-31/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_DAILY_SOAP -                                                                 -        -                - -   -       SOAP 241/280     20 1\n0 AEIC19_DAILY_SO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN 2019/1-12/1-31/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_DAILY_pFe  -                                                                 -        -                - -   -       pFe  241/111/66  20 1\n0 AEIC19_DAILY_SO4  -                                                                 -        -                - -   -       SO4  241/112     20 1\n0 AEIC19_DAILY_H2O  -                                                                 -        -                - -   -       H2O  241/120     20 1\n0 AEIC19_DAILY_BCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc BC       2019/1-12/1-31/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_DAILY_OCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc OC       2019/1-12/1-31/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_DAILY_POG1 -                                                                 -        -                - -   -       POG1 241/74/76   20 1\n0 AEIC19_DAILY_POG2 -                                                                 -        -                - -   -       POG2 241/74/77   20 1\n0 AEIC19_DAILY_ACET $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HC       2019/1-12/1-31/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_DAILY_ALD2 -                                                                 -        -                - -   -       ALD2 241/114/102 20 1\n0 AEIC19_DAILY_ALK4 -                                                                 -        -                - -   -       ALK4 241/114/103 20 1\n0 AEIC19_DAILY_C2H6 -                                                                 -        -                - -   -       C2H6 241/114/104 20 1\n0 AEIC19_DAILY_C3H8 -                                                                 -        -                - -   -       C3H8 241/114/105 20 1\n0 AEIC19_DAILY_CH2O -                                                                 -        -                - -   -       CH2O 241/114/106 20 1\n0 AEIC19_DAILY_PRPE -                                                                 -        -                - -   -       PRPE 241/114/107 20 1\n0 AEIC19_DAILY_MACR -                                                                 -        -                - -   -       MACR 241/114/108 20 1\n0 AEIC19_DAILY_RCHO -                                                                 -        -                - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_NO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO       2019/1-12/1/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_MONMEAN_NO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO2      2019/1-12/1/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_MONMEAN_HONO $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HONO     2019/1-12/1/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_MONMEAN_CO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO       2019/1-12/1/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_MONMEAN_SOAP -                                                                          -        -             - -   -       SOAP 241/280     20 1\n0 AEIC19_MONMEAN_SO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_MONMEAN_pFe  -                                                                          -        -             - -   -       pFe  241/111/66  20 1\n0 AEIC19_MONMEAN_SO4  -                                                                          -        -             - -   -       SO4  241/112     20 1\n0 AEIC19_MONMEAN_H2O  -                                                                          -        -             - -   -       H2O  241/120     20 1\n0 AEIC19_MONMEAN_BCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc BC       2019/1-12/1/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_MONMEAN_OCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc OC       2019/1-12/1/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_MONMEAN_POG1 -                                                                          -        -             - -   -       POG1 241/74/76   20 1\n0 AEIC19_MONMEAN_POG2 -                                                                          -        -             - -   -       POG2 241/74/77   20 1\n0 AEIC19_MONMEAN_ACET $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HC       2019/1-12/1/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_MONMEAN_ALD2 -                                                                          -        -             - -   -       ALD2 241/114/102 20 1\n0 AEIC19_MONMEAN_ALK4 -                                                                          -        -             - -   -       ALK4 241/114/103 20 1\n0 AEIC19_MONMEAN_C2H6 -                                                                          -        -             - -   -       C2H6 241/114/104 20 1\n0 AEIC19_MONMEAN_C3H8 -                                                                          -        -             - -   -       C3H8 241/114/105 20 1\n0 AEIC19_MONMEAN_CH2O -                                                                          -        -             - -   -       CH2O 241/114/106 20 1\n0 AEIC19_MONMEAN_PRPE -                                                                          -        -             - -   -       PRPE 241/114/107 20 1\n0 AEIC19_MONMEAN_MACR -                                                                          -        -             - -   -       MACR 241/114/108 20 1\n0 AEIC19_MONMEAN_RCHO -                                                                          -        -             - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- Emissions from decaying plants ---\n#==============================================================================\n(((DECAYING_PLANTS\n0 ALD2_PLANTDECAY $ROOT/ALD2/v2017-03/resp.geos.2x25.nc HET_RESP 1985/1-12/1/0 C xy kgC/m2/s ALD2 85/41 3 1\n0 EOH_PLANTDECAY  -                                     -        -             - -  -        EOH  86/47 3 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CH4     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP3PD_NOx     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NOx_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP3PD_CO      $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP3PD_SOAP    -                                                                                        -      -               -  -  -        SOAP  280   1 1\n0 RCP3PD_BCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_BC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP3PD_OCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_OC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP3PD_POG1    -                                                                                        -      -               -  -  -        POG1  74/76 1 1\n0 RCP3PD_POG2    -                                                                                        -      -               -  -  -        POG2  74/77 1 1\n0 RCP3PD_SO2     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_SO2_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP3PD_pFe     -                                                                                        -      -               -  -  -        pFe   66    1 1\n0 RCP3PD_NH3     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NH3_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP3PD_C2H2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_acetylene_2005-2100_23474_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP3PD_CH2O    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_formaldehyde_2005-2100_23474.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP3PD_BENZ    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_benzene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP3PD_TOLU    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_toluene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP3PD_XYLE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_xylene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP3PD_ALD2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_other_aldehydes_2005-2100_23474_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP3PD_ALK4__A $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_butanes_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__B $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_pentanes_2005-2100_23474_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__C $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_23474_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ACET    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_ketones_2005-2100_23474_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP3PD_MEK     -                                                                                        -      -               -  -  -        MEK   50/48 1 1\n0 RCP3PD_C2H6    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethane_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP3PD_C2H4    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP3PD_C3H8    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propane_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP3PD_PRPE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP3PD_HCOOH   $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_acids_2005-2100_23474.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CH4     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP45_NOx     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NOx_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP45_CO      $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP45_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP45_BCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_BC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP45_OCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_OC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP45_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP45_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP45_SO2     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_SO2_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP45_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP45_NH3     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NH3_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP45_C2H2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_acetylene_2005-2100_27424_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP45_CH2O    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_formaldehyde_2005-2100_27424.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP45_BENZ    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_benzene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP45_TOLU    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_toluene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP45_XYLE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_xylene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP45_ALD2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_other_aldehydes_2005-2100_27424_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP45_ALK4__A $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_butanes_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__B $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_pentanes_2005-2100_27424_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__C $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_27424_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ACET    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_ketones_2005-2100_27424_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP45_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP45_C2H6    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethane_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP45_C2H4    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP45_C3H8    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propane_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP45_PRPE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP45_HCOOH   $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_acids_2005-2100_27424.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CH4     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP60_NOx     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NOx_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP60_CO      $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP60_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP60_BCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_BC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP60_OCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_OC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP60_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP60_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP60_SO2     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_SO2_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP60_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP60_NH3     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NH3_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP60_C2H2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_acetylene_2005-2100_43190_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP60_CH2O    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_formaldehyde_2005-2100_43190.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP60_BENZ    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_benzene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP60_TOLU    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_toluene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP60_XYLE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_xylene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP60_ALD2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_other_aldehydes_2005-2100_43190_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP60_ALK4__A $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_butanes_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__B $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_pentanes_2005-2100_43190_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__C $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43190_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ACET    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_ketones_2005-2100_43190_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP60_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP60_C2H6    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethane_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP60_C2H4    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP60_C3H8    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propane_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP60_PRPE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP60_HCOOH   $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_acids_2005-2100_43190.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CH4     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP85_NOx     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NOx_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP85_CO      $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP85_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP85_BCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_BC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP85_OCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_OC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP85_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP85_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP85_SO2     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_SO2_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP80_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP85_NH3     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NH3_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP85_C2H2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_acetylene_2005-2100_43533_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP85_CH2O    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_formaldehyde_2005-2100_43533.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP85_BENZ    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_benzene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP85_TOLU    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_toluene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP85_XYLE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_xylene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP85_ALD2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_other_aldehydes_2005-2100_43533_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP85_ALK4__A $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_butanes_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__B $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_pentanes_2005-2100_43533_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__C $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43533_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ACET    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_ketones_2005-2100_43533_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP85_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP85_C2H6    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethane_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP85_C2H4    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP85_C3H8    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propane_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP85_PRPE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP85_HCOOH   $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_acids_2005-2100_43533.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_85\n\n#==============================================================================\n# --- QFED2 biomass burning (v2.5r1) ---\n#==============================================================================\n(((QFED2\n0 QFED_ACET_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ACET 75/311        5 2\n0 QFED_ACET_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ACET 75/312        5 2\n0 QFED_ALD2_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ALD2 75/311        5 2\n0 QFED_ALD2_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ALD2 75/312        5 2\n0 QFED_ALK4_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ALK4 75/311        5 2\n0 QFED_ALK4_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ALK4 75/312        5 2\n0 QFED_BCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s BCPI 70/75/311     5 2\n0 QFED_BCPO_PBL  -                                                                 -       -                             -   -             -       BCPO 71/75/311     5 2\n0 QFED_BCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s BCPI 70/75/312     5 2\n0 QFED_BCPO_FT   -                                                                 -       -                             -   -             -       BCPO 71/75/312     5 2\n0 QFED_OCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s OCPI 72/75/311     5 2\n0 QFED_OCPO_PBL  -                                                                 -       -                             -   -             -       OCPO 73/75/311     5 2\n0 QFED_POG1_PBL  -                                                                 -       -                             -   -             -       POG1 74/76/75/311  5 2\n0 QFED_POG2_PBL  -                                                                 -       -                             -   -             -       POG2 74/77/75/311  5 2\n0 QFED_OCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s OCPI 72/75/312     5 2\n0 QFED_OCPO_FT   -                                                                 -       -                             -   -             -       OCPO 73/75/312     5 2\n0 QFED_POG1_FT   -                                                                 -       -                             -   -             -       POG1 74/76/75/312  5 2\n0 QFED_POG2_FT   -                                                                 -       -                             -   -             -       POG2 74/77/75/312  5 2\n0 QFED_C2H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s C2H6 75/311        5 2\n0 QFED_C2H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s C2H6 75/312        5 2\n0 QFED_C3H8_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s C3H8 75/311        5 2\n0 QFED_C3H8_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s C3H8 75/312        5 2\n0 QFED_CH2O_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CH2O 75/311        5 2\n0 QFED_CH2O_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CH2O 75/312        5 2\n0 QFED_CH4_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CH4  75/311        5 2\n0 QFED_CH4_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CH4  75/312        5 2\n0 QFED_CO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CO   54/75/311     5 2\n0 QFED_SOAP_PBL  -                                                                 -       -                             -   -             -       SOAP 54/75/281/311 5 2\n0 QFED_CO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CO   54/75/312     5 2\n0 QFED_SOAP_FT   -                                                                 -       -                             -   -             -       SOAP 54/75/281/312 5 2\n0 QFED_CO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CO2  75/311        5 2\n0 QFED_CO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CO2  75/312        5 2\n0 QFED_MEK_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s MEK  75/311        5 2\n0 QFED_MEK_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s MEK  75/312        5 2\n0 QFED_NH3_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NH3  75/311        5 2\n0 QFED_NH3_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NH3  75/312        5 2\n0 QFED_NO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NO   75/311        5 2\n0 QFED_NO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NO   75/312        5 2\n0 QFED_SO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s SO2  75/311        5 2\n0 QFED_pFe_PBL   -                                                                 -       -                             -   -             -       pFe  75/311/66     5 2\n0 QFED_SO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s SO2  75/312        5 2\n0 QFED_pFe_FT    -                                                                 -       -                             -   -             -       pF3  75/312/66     5 2\n0 QFED_C3H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s PRPE 75/311        5 2\n0 QFED_C3H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s PRPE 75/312        5 2\n)))QFED2\n\n#==============================================================================\n# --- GFAS biomass burning ---\n#==============================================================================\n(((GFAS\n0 GFAS_CO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO   75       5 3\n0 GFAS_SOAP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SOAP 75/281   5 3\n0 GFAS_CH3OH $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch3ohfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s MOH  75       5 3\n0 GFAS_NO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc noxfire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NO   75       5 3\n0 GFAS_BCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPI 70/75    5 3\n0 GFAS_BCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPO 71/75    5 3\n0 GFAS_OCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPI 72/75    5 3\n0 GFAS_OCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPO 73/75    5 3\n0 GFAS_POG1  -                                          -             -                     - -             -       POG1 74/76/75 5 3\n0 GFAS_POG2  -                                          -             -                     - -             -       POG2 74/77/75 5 3\n0 GFAS_CO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc co2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO2  75       5 3\n0 GFAS_CH4   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch4fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH4  75       5 3\n0 GFAS_SO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SO2  75       5 3\n0 GFAS_pFe   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s pFe  75/66    5 3\n0 GFAS_NH3   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc nh3fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NH3  75       5 3\n0 GFAS_ACET  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ACET 75       5 3\n0 GFAS_ALD2  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALD2 75       5 3\n0 GFAS_ALK4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkanesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALK4 75       5 3\n0 GFAS_PRPE1 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkenesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_PRPE2 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_C2H6  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H6 75       5 3\n0 GFAS_C3H8  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C3H8 75       5 3\n0 GFAS_CH2O  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch2ofire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH2O 75       5 3\n0 GFAS_C2H4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H4 75       5 3\n0 GFAS_ISOP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c5h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ISOP 75       5 3\n0 GFAS_DMS   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6sfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s DMS  75       5 3\n0 GFAS_TOLU  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c7h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s TOLU 75       5 3\n0 GFAS_BENZ  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c6h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BENZ 75       5 3\n0 GFAS_XYLE  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c8h10fire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s XYLE 75       5 3\n)))GFAS\n\n#==============================================================================\n# --- FINNv2.5 biomass burning ---\n# Uses dataset derived with combined fire detection from MODIS and VIIRS.\n# Data downloaded from: https://rda.ucar.edu/datasets/d312009/dataaccess/\n# Uses FINN emissions processed for MOZART for multiple species not processed\n#       for general use (not specific to any model) or for GEOS-Chem.\n#       Naming convention of inventory developers preserved for traceability.\n# Description of development of data available here:\n#       https://gmd.copernicus.org/articles/16/3873/2023/\n#==============================================================================\n(((FINNv25\n0 FINNv25_CO    $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_CO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_CO              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CO     75     5 3\n0 FINNv25_SOAP  -                                                                                                                     -                               -                     -  -  -                SOAP   75/281 5 3\n0 FINNv25_NO    $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_NO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_NO              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NO     75     5 3\n0 FINNv25_NO2   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_NO2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc             fire_modisviirs_NO2             2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NO2    75     5 3\n0 FINNv25_BCPI  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_BC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_BC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BCPI   75/70  5 3\n0 FINNv25_BCPO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_BC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_BC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BCPO   75/71  5 3\n0 FINNv25_OCPI  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_OC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_OC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s OCPI   75/72  5 3\n0 FINNv25_OCPO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_OC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_OC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s OCPO   75/73  5 3\n0 FINNv25_SO2   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_SO2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc             fire_modisviirs_SO2             2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s SO2    75     5 3\n0 FINNv25_pFe   -                                                                                                                     -                               -                     -  -  -                pFe    75/66  5 3\n0 FINNv25_NH3   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-NH3_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc      fire_modisviirs_MOZART-NH3      2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NH3    75     5 3\n0 FINNv25_ACET  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-ACET_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-ACET   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ACET   75     5 3\n0 FINNv25_ALK4  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-ALK4_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-ALK4   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ALK4   75     5 3\n0 FINNv25_PRPE  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-PRPE_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-PRPE   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s PRPE   75     5 3\n0 FINNv25_C2H2  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H2   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H2   75     5 3\n0 FINNv25_C2H4  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H4_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H4   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H4   75     5 3\n0 FINNv25_C2H6  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H6_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H6   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H6   75     5 3\n0 FINNv25_C3H8  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C3H8_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C3H8   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C3H8   75     5 3\n0 FINNv25_CH2O  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-CH2O_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-CH2O   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CH2O   75     5 3\n0 FINNv25_ISOP  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-ISOP_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-ISOP     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ISOP   75     5 3\n0 FINNv25_BENZ  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-BENZ_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-BENZ   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BENZ   75     5 3\n0 FINNv25_TOLU  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-TOLU_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-TOLU   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s TOLU   75     5 3\n0 FINNv25_XYLE  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-XYLE_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-XYLE   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s XYLE   75     5 3\n0 FINNv25_GLYC  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-GLYC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-GLYC   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s GLYC   75     5 3\n0 FINNv25_MGLY  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-MGLY_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-MGLY   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MGLY   75     5 3\n0 FINNv25_HAC   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-HAC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_GEOSCHEM-HAC    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HAC    75     5 3\n0 FINNv25_MEK   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-MEK_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_GEOSCHEM-MEK    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MEK    75     5 3\n0 FINNv25_HCOOH $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-HCOOH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_MOZART-HCOOH    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HCOOH  75     5 3\n0 FINNv25_HONO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-HONO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-HONO     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HNO2   75     5 3\n0 FINNv25_ALD2  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3CHO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_MOZART-CH3CHO   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ALD2   75     5 3\n0 FINNv25_EOH   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-C2H5OH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_MOZART-C2H5OH   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s EOH    75     5 3\n0 FINNv25_MOH   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3OH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_MOZART-CH3OH    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MOH    75     5 3\n0 FINNv25_ACTA  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3COOH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc  fire_modisviirs_MOZART-CH3COOH  2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ACTA   75     5 3\n0 FINNv25_MVK   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-MVK_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc      fire_modisviirs_MOZART-MVK      2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MVK    75     5 3\n0 FINNv25_MACR  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-MACR_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-MACR     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MACR   75     5 3\n)))FINNv25\n\n#==============================================================================\n# --- BB4MIPs biomass burning ---\n#==============================================================================\n(((BB4MIPS\n# 75 is time-of-day scaling\n0 CMIP6_BB_CO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CO    75       5 3\n0 CMIP6_BB_SOAP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SOAP  75/281   5 3\n0 CMIP6_BB_NO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NO    75       5 3\n0 CMIP6_BB_BCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPI  70/75    5 3\n0 CMIP6_BB_BCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPO  71/75    5 3\n0 CMIP6_BB_OCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPI  72/75    5 3\n0 CMIP6_BB_OCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPO  73/75    5 3\n0 CMIP6_BB_POG1    -                                                          -          -                  - -         -       POG1  74/76/75 5 3\n0 CMIP6_BB_POG2    -                                                          -          -                  - -         -       POG2  74/77/75 5 3\n0 CMIP6_BB_SO2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 SO2_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SO2   75       5 3\n0 CMIP6_BB_pFe     -                                                          -          -                  - -         -       pFe   75/66    5 3\n0 CMIP6_BB_NH3     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NH3_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NH3   75       5 3\n0 CMIP6_BB_ALD2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALD2_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALD2  75       5 3\n0 CMIP6_BB_ALK4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALK4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALK4  75       5 3\n0 CMIP6_BB_PRPE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 PRPE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s PRPE  75       5 3\n0 CMIP6_BB_C2H6    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H6_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H6  75       5 3\n0 CMIP6_BB_C3H8    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C3H8_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C3H8  75       5 3\n0 CMIP6_BB_CH2O    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH2O_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CH2O  75       5 3\n0 CMIP6_BB_C2H4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H4  75       5 3\n0 CMIP6_BB_ISOP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ISOP_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ISOP  75       5 3\n0 CMIP6_BB_DMS     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 DMS_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s DMS   75       5 3\n0 CMIP6_BB_TOLU    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 TOLU_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s TOLU  75       5 3\n0 CMIP6_BB_BENZ    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BENZ_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BENZ  75       5 3\n0 CMIP6_BB_XYLE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 XYLE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s XYLE  75       5 3\n0 CMIP6_BB_H2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 H2_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s H2    75       5 3\n0 CMIP6_BB_MTPA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MONOT_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MTPA  75       5 3\n#0 CMIP6_BB_MTPO    -                                                         -          -                  - -             -   MTPO  75       5 3\n#0 CMIP6_BB_LIMO    -                                                         -          -                  - -             -   LIMO  75       5 3\n0 CMIP6_BB_EOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 EOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s EOH   75       5 3\n0 CMIP6_BB_MOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MOH   75       5 3\n0 CMIP6_BB_ACET    -                                                          -          -                  - -             -   ACET  79/75    5 3\n0 CMIP6_BB_MGLY    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MGLY_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MGLY  75       5 3\n0 CMIP6_BB_ACTA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ACTA_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ACTA  75       5 3\n0 CMIP6_BB_HCN     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCN_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCN   75       5 3\n0 CMIP6_BB_HCOOH   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCOOH_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCOOH 75       5 3\n0 CMIP6_BB_MEK     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MEK_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MEK   75       5 3\n)))BB4MIPS\n\n#==============================================================================\n# --- GFED4 biomass burning emissions climatology\n# NOTE:\n# - These emissions were generated for 2010-2019 using the GFED extension\n#   in a 0.5x0.625 HEMCO 3.6.1 standalone simulation.\n#==============================================================================\n(((GFED4_CLIMATOLOGY\n0 GFED4_CLIM_ACET   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACET  2023/1-12/1/0 C xy kg/m2/s ACET  - 5 1\n0 GFED4_CLIM_ACR    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACR   2023/1-12/1/0 C xy kg/m2/s ACR   - 5 1\n0 GFED4_CLIM_ACTA   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACTA  2023/1-12/1/0 C xy kg/m2/s ACTA  - 5 1\n0 GFED4_CLIM_ALD2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ALD2  2023/1-12/1/0 C xy kg/m2/s ALD2  - 5 1\n0 GFED4_CLIM_ALK4   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ALK4  2023/1-12/1/0 C xy kg/m2/s ALK4  - 5 1\n0 GFED4_CLIM_BCPI   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPI  2023/1-12/1/0 C xy kg/m2/s BCPI  - 5 1\n0 GFED4_CLIM_BCPO   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPO  2023/1-12/1/0 C xy kg/m2/s BCPO  - 5 1\n0 GFED4_CLIM_BENZ   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BENZ  2023/1-12/1/0 C xy kg/m2/s BENZ  - 5 1\n0 GFED4_CLIM_C2H2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H2  2023/1-12/1/0 C xy kg/m2/s C2H2  - 5 1\n0 GFED4_CLIM_C2H4   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H4  2023/1-12/1/0 C xy kg/m2/s C2H4  - 5 1\n0 GFED4_CLIM_C2H6   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H6  2023/1-12/1/0 C xy kg/m2/s C2H6  - 5 1\n0 GFED4_CLIM_C3H8   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C3H8  2023/1-12/1/0 C xy kg/m2/s C3H8  - 5 1\n0 GFED4_CLIM_C4H6   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C4H6  2023/1-12/1/0 C xy kg/m2/s C4H6  - 5 1\n0 GFED4_CLIM_CH2O   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_CH2O  2023/1-12/1/0 C xy kg/m2/s CH2O  - 5 1\n0 GFED4_CLIM_CO     $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_CO    2023/1-12/1/0 C xy kg/m2/s CO    - 5 1\n0 GFED4_CLIM_EOH    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_EOH   2023/1-12/1/0 C xy kg/m2/s EOH   - 5 1\n0 GFED4_CLIM_FURA   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_FURA  2023/1-12/1/0 C xy kg/m2/s FURA  - 5 1\n0 GFED4_CLIM_GLYX   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_GLYX  2023/1-12/1/0 C xy kg/m2/s GLYX  - 5 1\n0 GFED4_CLIM_HCOOH  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_HCOOH 2023/1-12/1/0 C xy kg/m2/s HCOOH - 5 1\n0 GFED4_CLIM_ISOP   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ISOP  2023/1-12/1/0 C xy kg/m2/s ISOP  - 5 1\n0 GFED4_CLIM_MEK    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MEK   2023/1-12/1/0 C xy kg/m2/s MEK   - 5 1\n0 GFED4_CLIM_MGLY   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MGLY  2023/1-12/1/0 C xy kg/m2/s MGLY  - 5 1\n0 GFED4_CLIM_MOH    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MOH   2023/1-12/1/0 C xy kg/m2/s MOH   - 5 1\n0 GFED4_CLIM_MVK    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MVK   2023/1-12/1/0 C xy kg/m2/s MVK   - 5 1\n0 GFED4_CLIM_MTPA   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MTPA  2023/1-12/1/0 C xy kg/m2/s MTPA  - 5 1\n0 GFED4_CLIM_NAP    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NAP   2023/1-12/1/0 C xy kg/m2/s NAP   - 5 1\n0 GFED4_CLIM_NH3    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NH3   2023/1-12/1/0 C xy kg/m2/s NH3   - 5 1\n0 GFED4_CLIM_NO     $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NO    2023/1-12/1/0 C xy kg/m2/s NO    - 5 1\n0 GFED4_CLIM_OCPI   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPI  2023/1-12/1/0 C xy kg/m2/s OCPI  - 5 1\n0 GFED4_CLIM_OCPO   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPO  2023/1-12/1/0 C xy kg/m2/s OCPO  - 5 1\n0 GFED4_CLIM_PHEN   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_PHEN  2023/1-12/1/0 C xy kg/m2/s PHEN  - 5 1\n0 GFED4_CLIM_POG1   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_POG1  2023/1-12/1/0 C xy kg/m2/s POG1  - 5 1\n0 GFED4_CLIM_POG2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_POG2  2023/1-12/1/0 C xy kg/m2/s POG2  - 5 1\n0 GFED4_CLIM_PRPE   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_PRPE  2023/1-12/1/0 C xy kg/m2/s PRPE  - 5 1\n0 GFED4_CLIM_RCHO   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_RCHO  2023/1-12/1/0 C xy kg/m2/s RCHO  - 5 1\n0 GFED4_CLIM_SO2    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SO2   2023/1-12/1/0 C xy kg/m2/s SO2   - 5 1\n0 GFED4_CLIM_SOAP   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SOAP  2023/1-12/1/0 C xy kg/m2/s SOAP  - 5 1\n0 GFED4_CLIM_STYR   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_STYR  2023/1-12/1/0 C xy kg/m2/s STRY  - 5 1\n0 GFED4_CLIM_TOLU   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_TOLU  2023/1-12/1/0 C xy kg/m2/s TOLU  - 5 1\n0 GFED4_CLIM_XYLE   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_XYLE  2023/1-12/1/0 C xy kg/m2/s XYLE  - 5 1\n)))GFED4_CLIMATOLOGY\n\n#==============================================================================\n# --- Anthropogenic Fugitive, Combustion and Industrial Dust ---\n# (Philip et al., 2017, ERL)\n#==============================================================================\n(((AFCID\n0 PM25FINE_1_bin1 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631    1 1\n0 PM25FINE_1_bin2 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632    1 1\n0 PM25FINE_1_bin3 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633    1 1\n0 PM25FINE_1_bin4 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634    1 1\n0 PM25FINE_2_bin1 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631/1009 1 2\n0 PM25FINE_2_bin2 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632/1009 1 2\n0 PM25FINE_2_bin3 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633/1009 1 2\n0 PM25FINE_2_bin4 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634/1009 1 2\n0 PM25FINE_3_bin1 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631/1010 1 3\n0 PM25FINE_3_bin2 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632/1010 1 3\n0 PM25FINE_3_bin3 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633/1010 1 3\n0 PM25FINE_3_bin4 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634/1010 1 3\n)))AFCID\n\n#==============================================================================\n# --- Offline dust emissions ---\n#==============================================================================\n(((OFFLINE_DUST\n(((.not.DustL23M\n0 EMIS_DSTbin1 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin1 621 3 2\n0 EMIS_DSTbin2 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin2 622 3 2\n0 EMIS_DSTbin3 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin3 623 3 2\n0 EMIS_DSTbin4 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin4 624 3 2\n0 EMIS_DSTbin5 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin5 625 3 2\n0 EMIS_DSTbin6 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin6 626 3 2\n0 EMIS_DSTbin7 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin7 627 3 2\n))).not.DustL23M\n)))OFFLINE_DUST\n\n#==============================================================================\n# --- Offline biogenic VOC emissions ---\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n0 BIOGENIC_ACET      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ACET_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ACET -   4 2\n0 BIOGENIC_ALD2      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ALD2_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ALD2 -   4 2\n0 BIOGENIC_C2H4      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc C2H4_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s C2H4 -   4 2\n0 BIOGENIC_EOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc EOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s EOH  -   4 2\n0 BIOGENIC_ISOP      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ISOP_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ISOP -   4 2\n0 BIOGENIC_ISOP_SOAP -                                                                                                            -             -                     -   -  -       SOAP 610 4 2\n0 BIOGENIC_ISOP_SOAS -                                                                                                            -             -                     -   -  -       SOAS 610 4 2\n0 BIOGENIC_LIMO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc LIMO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s LIMO -   4 2\n0 BIOGENIC_LIMO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_LIMO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s MOH  -   4 2\n0 BIOGENIC_MTPA      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MTPA_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPA -   4 2\n0 BIOGENIC_MTPA_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPA_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MTPO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MTPO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPO -   4 2\n0 BIOGENIC_MTPO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_PRPE      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc PRPE_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s PRPE -   4 2\n0 BIOGENIC_SESQ      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SESQ_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s SESQ -   4 2\n0 BIOGENIC_SESQ_SOAP -                                                                                                            -             -                     -   -  -       SOAP 612 4 2\n0 BIOGENIC_SESQ_SOAS -                                                                                                            -             -                     -   -  -       SOAS 612 4 2\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt emissions ---\n#==============================================================================\n(((OFFLINE_SEASALT\n(((.not.SeaSalt\n0 SEASALT_SALA    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SALA_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALA    -   3 2\n0 SEASALT_SALAAL  -                                                                                                              -            -                     -   -  -       SALAAL  615 3 2\n0 SEASALT_SALACL  -                                                                                                              -            -                     -   -  -       SALACL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALA  -                                                                                                              -            -                     -   -  -       BrSALA  617 3 2\n)))CalcBrSeasalt\n0 SEASALT_SALC    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SALC_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALC    -   3 2\n0 SEASALT_SALCAL  -                                                                                                              -            -                     -   -  -       SALCAL  615 3 2\n0 SEASALT_SALCCL  -                                                                                                              -            -                     -   -  -       SALCCL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALC  -                                                                                                              -            -                     -   -  -       BrSALC  617 3 2\n)))CalcBrSeasalt\n))).not.SeaSalt\n)))OFFLINE_SEASALT\n\n#==============================================================================\n# --- Offline soil NOx emissions ---\n#==============================================================================\n(((OFFLINE_SOILNOX\n(((.not.SoilNOx\n0 SOILNOX_NO  $ROOT/OFFLINE_SOILNOX/${RUNDIR_OFFLINE_SOILNOX_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/soilnox_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SOIL_NOx 1980-2022/1-12/1-31/* EFY xy kg/m2/s NO - 3 2\n))).not.SoilNOx\n)))OFFLINE_SOILNOX\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n#==============================================================================\n(((SeaFlux\n#101 CH3I_SEAWATER  $ROOT/CH3I/v2014-07/ocean_ch3i.geos.4x5.nc               CH3I_OCEAN 1985/1-12/1/0 C xy kg/m3  CH3I  -  1 1\n101 DMS_SEAWATER    $ROOT/DMS/v2015-07/DMS_lana.geos.1x1.nc                  DMS_OCEAN  1985/1-12/1/0 C xy kg/m3  DMS   -  1 1\n101 ACET_SEAWATER   $ROOT/ACET/v2014-07/ACET_seawater.generic.1x1.nc         ACET       2005/1/1/0    C xy kgC/m3 ACET  40 1 1\n101 ALD2_SEAWATER   $ROOT/ALD2/v2017-03/ALD2_seawater.geos.2x25.nc           ALD2       2006/1-12/1/0 C xy kgC/m3 ALD2  41 1 1\n101 MENO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         MENO3      2006/1-12/1/0 C xy kg/m3  MENO3 -  1 1\n101 ETNO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         ETNO3      2006/1-12/1/0 C xy kg/m3  ETNO3 -  1 1\n101 MOH_SEAWATER    $ROOT/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc MOH        2005/1/1/0    C xy kg/m3  MOH   -  1 1\n)))SeaFlux\n\n#==============================================================================\n# --- SOILNOX emissions (Extension 104) ---\n#==============================================================================\n(((SoilNOx\n104 DEP_RESERVOIR_DEFAULT $ROOT/SOILNOX/v2014-07/DepReservoirDefault.nc                 DEP_RESERVOIR 2013/7/1/0        C  xy kg/m3 NO - 1 1\n(((HEMCO_RESTART\n104 PFACTOR               ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           PFACTOR       $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DRYPERIOD             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           DRYPERIOD     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 GWET_PREV             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           GWET_PREV     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DEP_RESERVOIR         ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           DEP_RESERVOIR $YYYY/$MM/$DD/$HH EY xy kg/m3 NO - 1 1\n)))HEMCO_RESTART\n104 SOILNOX_FERT          $ROOT/SOILNOX/v2014-07/soilNOx.fert_res.generic.05x05.nc      FERT          2000/1-12/1-31/0  C  xy kg/m3 NO - 1 1\n104 SOILNOX_LANDK1        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K01  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK2        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K02  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK3        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K03  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK4        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K04  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK5        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K05  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK6        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K06  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK7        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K07  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK8        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K08  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK9        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K09  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK10       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K10  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK11       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K11  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK12       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K12  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK13       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K13  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK14       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K14  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK15       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K15  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK16       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K16  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK17       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K17  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK18       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K18  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK19       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K19  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK20       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K20  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK21       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K21  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK22       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K22  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK23       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K23  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK24       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K24  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_ARID          $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       ARID          2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_NONARID       $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       NON_ARID      2000/1/1/0        C  xy 1     NO - 1 1\n)))SoilNOx\n\n#===========================================================================\n# --- External fields needed for online DustL23M (Extension 125) ---\n#===========================================================================\n(((DustL23M\n125 L23M_A_bare       $ROOT/DustL23M/v2025-07/LandCover/MCD12C1.LC.$YYYY.0.1.nc4           LC_bare       1998-2022/1/1/0    C xy 1           * - 1 1\n125 L23M_A_veg        $ROOT/DustL23M/v2025-07/LandCover/MCD12C1.LC.$YYYY.0.1.nc4           LC_veg        1998-2022/1/1/0    C xy 1           * - 1 1\n125 L23M_Csah         $ROOT/DustL23M/v2025-07/scale/DustL23_scale_025x03125_scaleSAv2.nc4  scale         2000/1/1/0         C xy 1           * - 1 1\n125 L23M_LAI          $ROOT/DustL23M/v2025-07/LandCover/XLAI_025x025_$YYYY_MonMean.nc4     LAI           2000-2020/1-12/1/0 C xy 1           * - 1 1\n125 L23M_fclay        $ROOT/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4             f_clay        2000/1/1/0         C xy 1           * - 1 1\n125 L23M_BD           $ROOT/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4             bulk_density  2000/1/1/0         C xy kg-soil/m3  * - 1 1\n125 L23M_poros        $ROOT/DustL23M/v2025-07/poros/MERRA2.const_2d_lnd_Nx.poros.nc4       poros         1980/1/1/0         C xy 1           * - 1 1\n125 L23M_roughness_r  $ROOT/DustL23M/v2025-07/roughness/Surf_roughness_min_rocks_1997.nc4  roughness_r   1997/1/1/0         C xy m           * - 1 1\n)))DustL23M\n\n#==============================================================================\n# --- Sea salt emissions (Extensions 107 and 130)\n#\n# MODIS Chlorophyll-A fields used for emissions of marine organic aerosols\n#==============================================================================\n(((SeaSalt\n107 MODIS_CHLR  $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS    2005-2014/1-12/1/0 C    xy 1 * - 1 1\n107 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1980-2020/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#107 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))SeaSalt\n(((TOMAS_Jeagle\n130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS 2005-2014/1-12/1/0 C xy 1 * - 1 1\n130 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1984-2017/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))TOMAS_Jeagle\n\n#==============================================================================\n# --- Dust emissions using DEAD model (Extension 131) ---\n#==============================================================================\n(((TOMAS_DustDead\n131 DEAD_EF_GEO     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      EF_GEO   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_LF_DRY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      LF_DRY   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_MF_CACO3   $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CaCO3 1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_CLY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CLY   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_SND     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_SND   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_SFC_TYP    $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      SFC_TYP  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_GOC_SRC    $ROOT/DUST_DEAD/v2019-06/GOCART_src_fn.geos.2x25.nc  GOC_SRC  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_VAI        $ROOT/DUST_DEAD/v2019-06/dst_tvbds.geos.2x25.nc      VAI      1985/1-12/1/0 C xy unitless *    -    1 1\n)))TOMAS_DustDead\n\n#==============================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#\n# NOTE: These are the base emissions, which will be converted to kgC/m2/s by\n# HEMCO. The specified species (OCPI/ISOP/ACET) are required for proper unit\n# conversion. Since netCDF files are already in mass carbon (ug(C)), the only\n# important thing is to specify a VOC with a specified MW of 12g/mol.\n# This is the case for OCPI, ISOP and ACET.\n#\n# We don't need to read EF maps for acetone, a-pinene or myrcene. We now\n# compute those values in the MEGAN extension.\n#==============================================================================\n(((MEGAN\n(((HEMCO_RESTART\n108  T_DAVG                       ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_DAVG                  $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  T_PREVDAY                    ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_PREVDAY               $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  LAI_PREVDAY                  ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                LAI_PREVDAY             $YYYY/$MM/$DD/$HH EY xy 1        * - 1 1\n108  PARDR_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDR_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n108  PARDF_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDF_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n)))HEMCO_RESTART\n108  MEGAN_AEF_ISOP               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ISOPRENE            1985/1/1/0        C xy kgC/m2/s * 61 1 1\n108  MEGAN_AEF_MBOX               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MBO                 1985/1/1/0        C xy kgC/m2/s * 64 1 1\n#108 MEGAN_AEF_APIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ALPHA_PINENE        1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_BPIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_BETA_PINENE         1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_CARE               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_CARENE              1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_LIMO               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_LIMONENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n#108 MEGAN_AEF_MYRC               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MYRCENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_OCIM               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_OCIMENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_SABI               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_SABINENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  CLM4_PFT_BARE                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BARE                2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_SHRB      $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_SHRB      2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_ARCT_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_ARCT_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_NARC_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_NARC_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C4_GRSS             $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C4_GRSS             2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_CROP                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_CROP                2000/1/1/0        C xy 1        * -  1 1\n)))MEGAN\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTES:\n# - These are the base emissions in kgDM/m2/s\n# - If a year is not available, you may use the GFED4_CLIMATOLOGY option instead\n#==============================================================================\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_subgrid_coag\n111 FINN_DAILY_NUMBER   $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc   number   2002-2016/1-12/1/0   RF xy unitless  * - 1 1\n)))GFED_subgrid_coag\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* KPP_HVALUE     ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_KPPHvalue      $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* WETDEP_N       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_WetDepNitrogen $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* DRYDEP_N       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_DryDepNitrogen $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SO2_AFTERCHEM  ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SO2AfterChem   $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* H2O2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_H2O2AfterChem  $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* AEROH2O_SNA    ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_AeroH2OSNA     $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* ORVCSESQ       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCsesq       $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* JOH            ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JOH            $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* JNO2           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JNO2           $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* STATE_PSC      ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_StatePSC       $YYYY/$MM/$DD/$HH EY   xyz count * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- GEOS-Chem boundary condition file ---\n#==============================================================================\n(((GC_BCs\n* BC_  $ROOT/SAMPLE_BCs/GC_14.3.0/fullchem/GEOSChem.BoundaryConditions.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesBC_?ADV? 1900-2100/1-12/1-31/* EFY xyz 1 * - 1 1\n)))GC_BCs\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- UV albedo, for photolysis (cf Hermann & Celarier, 1997) ---\n#==============================================================================\n(((UVALBEDO\n* UV_ALBEDO $ROOT/UVALBEDO/v2019-06/uvalbedo.geos.2x25.nc UVALBD 1985/1-12/1/0 C xy percent * - 1 1\n)))UVALBEDO\n\n#==============================================================================\n# --- Stratospheric Bry data from the CCM model  ---\n#==============================================================================\n(((CCM_STRAT_Bry\n* GEOSCCM_Br_DAY      $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_DAY     $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_DAY     $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_DAY   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_DAY     $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_DAY    $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br_NIGHT    $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_NIGHT   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_NIGHT   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_NIGHT $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_NIGHT   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_NIGHT  $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n)))CCM_STRAT_Bry\n\n#==============================================================================\n#--- Archived GMI OH concentrations ---\n#==============================================================================\n(((GMI_OH\n* GMI_OH            $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OH.geos5.2x25.nc             species 2005/1-12/1/0 C xyz v/v   *        - 1  1\n)))GMI_OH\n\n#==============================================================================\n#--- GMI chemistry: prod/loss rates ---\n#\n# Used for linearized mesospheric chemistry\n#==============================================================================\n(((GMI_PROD_LOSS\n* GMI_LOSS_A3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.A3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   A3O2     - 1  1\n* GMI_PROD_A3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.A3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s A3O2     - 1  1\n* GMI_LOSS_ACET       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACET.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACET     - 1  1\n* GMI_PROD_ACET       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACET.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACET     - 1  1\n* GMI_LOSS_ACTA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACTA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACTA     - 1  1\n* GMI_PROD_ACTA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACTA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACTA     - 1  1\n* GMI_LOSS_ALD2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALD2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALD2     - 1  1\n* GMI_PROD_ALD2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALD2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALD2     - 1  1\n* GMI_LOSS_ALK4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALK4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALK4     - 1  1\n* GMI_PROD_ALK4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALK4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALK4     - 1  1\n* GMI_LOSS_ATO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ATO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ATO2     - 1  1\n* GMI_PROD_ATO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ATO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ATO2     - 1  1\n* GMI_LOSS_B3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.B3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   B3O2     - 1  1\n* GMI_PROD_B3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.B3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s B3O2     - 1  1\n#* GMI_LOSS_Br        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Br.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Br       - 1  1\n#* GMI_PROD_Br        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Br.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Br       - 1  1\n#* GMI_LOSS_BrCl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   BrCl     - 1  1\n#* GMI_PROD_BrCl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s BrCl     - 1  1\n#* GMI_LOSS_BrO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   BrO      - 1  1\n#* GMI_PROD_BrO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s BrO      - 1  1\n#* GMI_LOSS_BrNO3     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   BrNO3    - 1  1\n#* GMI_PROD_BrNO3     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s BrNO3    - 1  1\n* GMI_LOSS_C2H6       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C2H6.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C2H6     - 1  1\n* GMI_PROD_C2H6       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C2H6.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C2H6     - 1  1\n* GMI_LOSS_C3H8       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C3H8.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C3H8     - 1  1\n* GMI_PROD_C3H8       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C3H8.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C3H8     - 1  1\n* GMI_LOSS_CCl4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CCl4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CCl4     - 1  1\n* GMI_PROD_CCl4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CCl4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CCl4     - 1  1\n#* GMI_LOSS_H1202     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Br2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   H1202    - 1  1\n#* GMI_PROD_H1202     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Br2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s H1202    - 1  1\n* GMI_LOSS_CFC12      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Cl2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC12    - 1  1\n* GMI_PROD_CFC12      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Cl2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC12    - 1  1\n* GMI_LOSS_H1211      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2ClBr.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   H1211    - 1  1\n* GMI_PROD_H1211      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2ClBr.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s H1211    - 1  1\n#* GMI_LOSS_H1311     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H1311    - 1  1\n#* GMI_PROD_H1311     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H1311    - 1  1\n* GMI_LOSS_CFC113     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC113.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC113   - 1  1\n* GMI_PROD_CFC113     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC113.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC113   - 1  1\n* GMI_LOSS_CFC114     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC114.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC114   - 1  1\n* GMI_PROD_CFC114     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC114.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC114   - 1  1\n* GMI_LOSS_CFC115     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC115.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC115   - 1  1\n* GMI_PROD_CFC115     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC115.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC115   - 1  1\n* GMI_LOSS_CFC11      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFCl3.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CFC11    - 1  1\n* GMI_PROD_CFC11      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFCl3.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CFC11    - 1  1\n* GMI_LOSS_CH2O       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH2O.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CH2O     - 1  1\n* GMI_PROD_CH2O       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH2O.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CH2O     - 1  1\n#* GMI_LOSS_CH3Br     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Br    - 1  1\n#* GMI_PROD_CH3Br     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Br    - 1  1\n* GMI_LOSS_CH3CCl3    $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3CCl3.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   CH3CCl3  - 1  1\n* GMI_PROD_CH3CCl3    $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3CCl3.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s CH3CCl3  - 1  1\n* GMI_LOSS_CH3Cl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Cl.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Cl    - 1  1\n* GMI_PROD_CH3Cl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Cl.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Cl    - 1  1\n* GMI_LOSS_CH4        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH4.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   CH4      - 1  1\n* GMI_PROD_CH4        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH4.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s CH4      - 1  1\n* GMI_LOSS_CO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   CO       - 1  1\n* GMI_PROD_CO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s CO       - 1  1\n* GMI_LOSS_Cl         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Cl       - 1  1\n* GMI_PROD_Cl         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Cl       - 1  1\n* GMI_LOSS_Cl2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   Cl2      - 1  1\n* GMI_PROD_Cl2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s Cl2      - 1  1\n* GMI_LOSS_Cl2O2      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2O2.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   Cl2O2    - 1  1\n* GMI_PROD_Cl2O2      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2O2.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s Cl2O2    - 1  1\n* GMI_LOSS_ClO        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ClO      - 1  1\n* GMI_PROD_ClO        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ClO      - 1  1\n* GMI_LOSS_ClONO2     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   ClONO2   - 1  1\n* GMI_PROD_ClONO2     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s ClONO2   - 1  1\n* GMI_LOSS_EOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.EOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   EOH      - 1  1\n* GMI_PROD_EOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.EOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s EOH      - 1  1\n* GMI_LOSS_ETO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ETO2     - 1  1\n* GMI_PROD_ETO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ETO2     - 1  1\n* GMI_LOSS_ETP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ETP      - 1  1\n* GMI_PROD_ETP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ETP      - 1  1\n* GMI_LOSS_GCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GCO3     - 1  1\n* GMI_PROD_GCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GCO3     - 1  1\n* GMI_LOSS_GLYC       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYC.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYC     - 1  1\n* GMI_PROD_GLYC       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYC.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYC     - 1  1\n* GMI_LOSS_GLYX       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYX.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYX     - 1  1\n* GMI_PROD_GLYX       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYX.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYX     - 1  1\n* GMI_LOSS_GP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   GP       - 1  1\n* GMI_PROD_GP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s GP       - 1  1\n* GMI_LOSS_GPAN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GPAN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GPAN     - 1  1\n* GMI_PROD_GPAN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GPAN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GPAN     - 1  1\n* GMI_LOSS_H          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   H        - 1  1\n* GMI_PROD_H          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s H        - 1  1\n* GMI_LOSS_H2         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   H2       - 1  1\n* GMI_PROD_H2         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s H2       - 1  1\n* GMI_LOSS_H2402      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2402.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H2402    - 1  1\n* GMI_PROD_H2402      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2402.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H2402    - 1  1\n* GMI_LOSS_H2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   H2O      - 1  1\n* GMI_PROD_H2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s H2O      - 1  1\n* GMI_LOSS_H2O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   H2O2     - 1  1\n* GMI_PROD_H2O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s H2O2     - 1  1\n* GMI_LOSS_HAC        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HAC.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HAC      - 1  1\n* GMI_PROD_HAC        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HAC.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HAC      - 1  1\n#* GMI_LOSS_HBr       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HBr.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HBr      - 1  1\n#* GMI_PROD_HBr       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HBr.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HBr      - 1  1\n* GMI_LOSS_HCFC141b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC141b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC141b - 1  1\n* GMI_PROD_HCFC141b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC141b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC141b - 1  1\n* GMI_LOSS_HCFC142b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC142b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC142b - 1  1\n* GMI_PROD_HCFC142b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC142b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC142b - 1  1\n* GMI_LOSS_HCFC22     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC22.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   HCFC22   - 1  1\n* GMI_PROD_HCFC22     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC22.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s HCFC22   - 1  1\n* GMI_LOSS_HCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCOOH.geos5.2x25.20170108.nc loss    2005/1-12/1/0 C xyz s-1   HCOOH    - 1  1\n* GMI_PROD_HCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCOOH.geos5.2x25.20170108.nc prod    2005/1-12/1/0 C xyz v/v/s HCOOH    - 1  1\n* GMI_LOSS_HCl        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCl.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HCl      - 1  1\n* GMI_PROD_HCl        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCl.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HCl      - 1  1\n* GMI_LOSS_HNO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO2     - 1  1\n* GMI_PROD_HNO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO2     - 1  1\n* GMI_LOSS_HNO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO3     - 1  1\n* GMI_PROD_HNO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO3     - 1  1\n* GMI_LOSS_HNO4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO4     - 1  1\n* GMI_PROD_HNO4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO4     - 1  1\n* GMI_LOSS_HO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HO2      - 1  1\n* GMI_PROD_HO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HO2      - 1  1\n#* GMI_LOSS_HOBr      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOBr.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOBr     - 1  1\n#* GMI_PROD_HOBr      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOBr.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOBr     - 1  1\n* GMI_LOSS_HOCl       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOCl     - 1  1\n* GMI_PROD_HOCl       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOCl     - 1  1\n* GMI_LOSS_IALD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IALD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IALD     - 1  1\n* GMI_PROD_IALD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IALD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IALD     - 1  1\n* GMI_LOSS_IAO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IAO2     - 1  1\n* GMI_PROD_IAO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IAO2     - 1  1\n* GMI_LOSS_IAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   IAP      - 1  1\n* GMI_PROD_IAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s IAP      - 1  1\n* GMI_LOSS_INO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INO2     - 1  1\n* GMI_PROD_INO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INO2     - 1  1\n* GMI_LOSS_INPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INPN     - 1  1\n* GMI_PROD_INPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INPN     - 1  1\n* GMI_LOSS_ISN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISN1     - 1  1\n* GMI_PROD_ISN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISN1     - 1  1\n* GMI_LOSS_ISNP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISNP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISNP     - 1  1\n* GMI_PROD_ISNP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISNP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISNP     - 1  1\n* GMI_LOSS_ISOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISOP     - 1  1\n* GMI_PROD_ISOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISOP     - 1  1\n* GMI_LOSS_KO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.KO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   KO2      - 1  1\n* GMI_PROD_KO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.KO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s KO2      - 1  1\n* GMI_LOSS_MACR       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MACR.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MACR     - 1  1\n* GMI_PROD_MACR       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MACR.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MACR     - 1  1\n* GMI_LOSS_MAN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAN2     - 1  1\n* GMI_PROD_MAN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAN2     - 1  1\n* GMI_LOSS_MAO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAO3     - 1  1\n* GMI_PROD_MAO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAO3     - 1  1\n* GMI_LOSS_MAOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAOP     - 1  1\n* GMI_PROD_MAOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAOP     - 1  1\n* GMI_LOSS_MAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MAP      - 1  1\n* GMI_PROD_MAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MAP      - 1  1\n* GMI_LOSS_MCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MCO3     - 1  1\n* GMI_PROD_MCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MCO3     - 1  1\n* GMI_LOSS_MEK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MEK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MEK      - 1  1\n* GMI_PROD_MEK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MEK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MEK      - 1  1\n* GMI_LOSS_MGLY       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MGLY.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MGLY     - 1  1\n* GMI_PROD_MGLY       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MGLY.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MGLY     - 1  1\n* GMI_LOSS_MO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MO2      - 1  1\n* GMI_PROD_MO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MO2      - 1  1\n* GMI_LOSS_MOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MOH      - 1  1\n* GMI_PROD_MOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MOH      - 1  1\n* GMI_LOSS_MP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   MP       - 1  1\n* GMI_PROD_MP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s MP       - 1  1\n* GMI_LOSS_MRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MRO2     - 1  1\n* GMI_PROD_MRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MRO2     - 1  1\n* GMI_LOSS_MRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MRP      - 1  1\n* GMI_PROD_MRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MRP      - 1  1\n* GMI_LOSS_MVK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MVK      - 1  1\n* GMI_PROD_MVK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MVK      - 1  1\n* GMI_LOSS_MVN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MVN2     - 1  1\n* GMI_PROD_MVN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MVN2     - 1  1\n* GMI_LOSS_N          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   N        - 1  1\n* GMI_PROD_N          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s N        - 1  1\n* GMI_LOSS_N2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   N2O      - 1  1\n* GMI_PROD_N2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s N2O      - 1  1\n* GMI_LOSS_N2O5       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O5.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   N2O5     - 1  1\n* GMI_PROD_N2O5       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O5.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s N2O5     - 1  1\n* GMI_LOSS_NO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   NO       - 1  1\n* GMI_PROD_NO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s NO       - 1  1\n* GMI_LOSS_NO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO2      - 1  1\n* GMI_PROD_NO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO2      - 1  1\n* GMI_LOSS_NO3        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO3.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO3      - 1  1\n* GMI_PROD_NO3        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO3.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO3      - 1  1\n* GMI_LOSS_NOx        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NOx.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NOx      - 1  1\n* GMI_PROD_NOx        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NOx.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NOx      - 1  1\n* GMI_LOSS_O          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   O        - 1  1\n* GMI_PROD_O          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s O        - 1  1\n* GMI_LOSS_O1D        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O1D.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   O1D      - 1  1\n* GMI_PROD_O1D        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O1D.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s O1D      - 1  1\n* GMI_LOSS_O3         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O3.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   O3       - 1  1\n* GMI_PROD_O3         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O3.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s O3       - 1  1\n* GMI_LOSS_OClO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OClO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   OClO     - 1  1\n* GMI_PROD_OClO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OClO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s OClO     - 1  1\n* GMI_LOSS_OH         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OH.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   OH       - 1  1\n* GMI_PROD_OH         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OH.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s OH       - 1  1\n* GMI_LOSS_Ox         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Ox.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Ox       - 1  1\n* GMI_PROD_Ox         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Ox.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Ox       - 1  1\n* GMI_LOSS_PAN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PAN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PAN      - 1  1\n* GMI_PROD_PAN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PAN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PAN      - 1  1\n* GMI_LOSS_NPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   NPMN     - 1  1\n* GMI_PROD_NPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s NPMN     - 1  1\n* GMI_LOSS_IPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IPMN     - 1  1\n* GMI_PROD_IPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IPMN     - 1  1\n* GMI_LOSS_PO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PO2      - 1  1\n* GMI_PROD_PO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PO2      - 1  1\n* GMI_LOSS_PP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   PP       - 1  1\n* GMI_PROD_PP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s PP       - 1  1\n* GMI_LOSS_PPN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PPN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PPN      - 1  1\n* GMI_PROD_PPN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PPN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PPN      - 1  1\n* GMI_LOSS_PRN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRN1     - 1  1\n* GMI_PROD_PRN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRN1     - 1  1\n* GMI_LOSS_PRPE       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPE.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPE     - 1  1\n* GMI_PROD_PRPE       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPE.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPE     - 1  1\n* GMI_LOSS_PRPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPN     - 1  1\n* GMI_PROD_PRPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPN     - 1  1\n* GMI_LOSS_R4N1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N1     - 1  1\n* GMI_PROD_R4N1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N1     - 1  1\n* GMI_LOSS_R4N2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N2     - 1  1\n* GMI_PROD_R4N2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N2     - 1  1\n* GMI_LOSS_R4O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4O2     - 1  1\n* GMI_PROD_R4O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4O2     - 1  1\n* GMI_LOSS_R4P        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4P.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   R4P      - 1  1\n* GMI_PROD_R4P        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4P.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s R4P      - 1  1\n* GMI_LOSS_RA3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RA3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RA3P     - 1  1\n* GMI_PROD_RA3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RA3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RA3P     - 1  1\n* GMI_LOSS_RB3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RB3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RB3P     - 1  1\n* GMI_PROD_RB3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RB3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RB3P     - 1  1\n* GMI_LOSS_RCHO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCHO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCHO     - 1  1\n* GMI_PROD_RCHO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCHO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCHO     - 1  1\n* GMI_LOSS_RCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCO3     - 1  1\n* GMI_PROD_RCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCO3     - 1  1\n* GMI_LOSS_RCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCOOH.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   RCOOH    - 1  1\n* GMI_PROD_RCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCOOH.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s RCOOH    - 1  1\n* GMI_LOSS_RIO1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIO1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIO1     - 1  1\n* GMI_PROD_RIO1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIO1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIO1     - 1  1\n* GMI_LOSS_RIPA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPA     - 1  1\n* GMI_PROD_RIPA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPA     - 1  1\n* GMI_LOSS_RIPB       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPB.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPB     - 1  1\n* GMI_PROD_RIPB       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPB.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPB     - 1  1\n* GMI_LOSS_RIPD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPD     - 1  1\n* GMI_PROD_RIPD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPD     - 1  1\n* GMI_LOSS_ROH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ROH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ROH      - 1  1\n* GMI_PROD_ROH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ROH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ROH      - 1  1\n* GMI_LOSS_RP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   RP       - 1  1\n* GMI_PROD_RP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s RP       - 1  1\n* GMI_LOSS_VRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   VRO2     - 1  1\n* GMI_PROD_VRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s VRO2     - 1  1\n* GMI_LOSS_VRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   VRP      - 1  1\n* GMI_PROD_VRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s VRP      - 1  1\n)))GMI_PROD_LOSS\n\n#==============================================================================\n# --- Spatially varying OM/OC ---\n#==============================================================================\n(((OMOC_RATIO\n* OMOC_DJF $ROOT/OMOC/v2018-01/OMOC.DJF.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_MAM $ROOT/OMOC/v2018-01/OMOC.MAM.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_JJA $ROOT/OMOC/v2018-01/OMOC.JJA.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_SON $ROOT/OMOC/v2018-01/OMOC.SON.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n)))OMOC_RATIO\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- NOAA GMD monthly mean surface CH4 ---\n#==============================================================================\n(((GMD_SFC_CH4\n* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2023-10/monthly.gridded.surface.methane.1975-2022.1x1.nc SFC_CH4 1975-2022/1-12/1/0 RY xy ppbv * - 1 1\n)))GMD_SFC_CH4\n\n#==============================================================================\n# --- CMIP6 monthly mean surface CH4 ---\n# NOTE: This is only used if NOAA data is unavailable (pre 1979)\n#==============================================================================\n(((CMIP6_SFC_CH4\n* CMIP6_Sfc_CH4  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH4 1750-1978/1-12/1/0 EY xy ppbv * - 1 1\n)))CMIP6_SFC_CH4\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Inputs for the RRTMG radiative transfer model ---\n#\n# NOTE: The 2 x 2.5 albedo fields and emissivity fields will produce\n# differences at the level of numerical noise when comparing output to\n# simulations from prior versions (esp. when running at 4 x 5 resolution).\n# You might see larger differences w/r/t prior verisons for a few grid boxes\n# along the coastline of Antarctica, where the difference in resolution\n# and regridding will be more apparent in the sharp transition from ice to\n# ocean.  If this is a problem, you can use the data files at 4x5 resolution\n# for 4x5 RRTMG simulations.\n#\n# ALSO NOTE: The algorithm that HEMCO uses to select each time slice is\n# likely different than what was implemented when reading the old bpch\n# data from disk.  This can also cause differences when comparing to\n# prior versions.\n#==============================================================================\n(((RRTMG\n* MODIS_ALBDFNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDFVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_01 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band01  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_02 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band02  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_03 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band03  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_04 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band04  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_05 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band05  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_06 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band06  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_07 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band07  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_08 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band08  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_09 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band09  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_10 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band10  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_11 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band11  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_12 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band12  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_13 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band13  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_14 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band14  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_15 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band15  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_16 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band16  2002/1-12/1-31/0 C xy  1    * - 1 1\n${RUNDIR_TES_CLIM_CCL4}\n${RUNDIR_TES_CLIM_CFC11}\n${RUNDIR_TES_CLIM_CFC12}\n${RUNDIR_TES_CLIM_CFC22}\n${RUNDIR_TES_CLIM_CH4}\n${RUNDIR_TES_CLIM_N2O}\n)))RRTMG\n\n(((SfcVMR\n#==============================================================================\n# --- CMIP6 files ---\n#\n# Use core CMIP6 observationally constrained data from Meinshausen et al. (2017) GMD\n#==============================================================================\n* SfcVMR_CH3Cl  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Cl  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH2Cl2 $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH2Cl2 1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CHCl3  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CHCl3  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH3Br  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Br  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n\n#==============================================================================\n# --- WMO-2018 files (GMI) ---\n#==============================================================================\n* SfcVMR_CCl4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CCl4        1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC113   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC113      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC114   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC114      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC115   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC115      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC11    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC11       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC12    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC12       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Br   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Br       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CH3CCl3  $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3CCl3     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Cl   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Cl       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH4         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1211    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1211       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1301    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1301       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H2402    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc C2BR2F4     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC141b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC141b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC142b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC142b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC22   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC22      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_N2O      $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc N2O         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n\n#==============================================================================\n# --- Dummy files with a single surface concentration (for OCS and H2) ---\n#==============================================================================\n* SfcVMR_OCS  $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS 1985/1/1/0  C xy ppbv * - 1 1\n* SfcVMR_H2   $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2  1985/1/1/0  C xy ppbv * - 1 1\n)))SfcVMR\n\n(((CMIP6_SFC_BC\n\n#==============================================================================\n# --- CMIP6 surface boundary conditions for 1750-2100                       ---\n#==============================================================================\n\n# Commented-out tracers do not exist in GEOS-Chem yet\n# * SfcVMR_C2F6       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C2F6          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C3F8       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C3F8          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C4F10      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C4F10         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C5F12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C5F12         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C6F14      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C6F14         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C7F16      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C7F16         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C8F18      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C8F18         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_CC4F8      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CC4F8         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CCl4       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CCl4          1750-2100/1-12/1/0 RY xy v/v CCl4     802 1 1\n# * SfcVMR_CF4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CF4           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CFC11      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC11         1750-2100/1-12/1/0 RY xy v/v CFC11    802 1 1\n*   SfcVMR_CFC113     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC113        1750-2100/1-12/1/0 RY xy v/v CFC113   802 1 1\n*   SfcVMR_CFC114     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC114        1750-2100/1-12/1/0 RY xy v/v CFC114   802 1 1\n*   SfcVMR_CFC115     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC115        1750-2100/1-12/1/0 RY xy v/v CFC115   802 1 1\n*   SfcVMR_CFC12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC12         1750-2100/1-12/1/0 RY xy v/v CFC12    802 1 1\n*   SfcVMR_CH2Cl2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH2Cl2        1750-2100/1-12/1/0 RY xy v/v CH2Cl2   802 1 1\n*   SfcVMR_CH3Br      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Br         1750-2100/1-12/1/0 RY xy v/v CH3Br    802 1 1\n*   SfcVMR_CH3CCl3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3CCl3       1750-2100/1-12/1/0 RY xy v/v CH3CCl3  802 1 1\n*   SfcVMR_CH3Cl      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Cl         1750-2100/1-12/1/0 RY xy v/v CH3Cl    802 1 1\n*   SfcVMR_CH4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH4           1750-2100/1-12/1/0 RY xy v/v CH4      802 1 1\n*   SfcVMR_CHCl3      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CHCl3         1750-2100/1-12/1/0 RY xy v/v CHCl3    802 1 1\n# * SfcVMR_CO2        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CO2           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_H1211      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1211         1750-2100/1-12/1/0 RY xy v/v H1211    802 1 1\n*   SfcVMR_H1301      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1301         1750-2100/1-12/1/0 RY xy v/v H1301    802 1 1\n*   SfcVMR_H2402      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H2402         1750-2100/1-12/1/0 RY xy v/v H2402    802 1 1\n#   SFC_BC_HCFC123 <- exists in UCX with lifetime of 2 years but has no surface boundary conditions; 200-600 pptv in https://doi.org/10.1021/es802308m\n*   SfcVMR_HCFC141b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC141b      1750-2100/1-12/1/0 RY xy v/v HCFC141b 802 1 1\n*   SfcVMR_HCFC142b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC142b      1750-2100/1-12/1/0 RY xy v/v HCFC142b 802 1 1\n*   SfcVMR_HCFC22     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC22        1750-2100/1-12/1/0 RY xy v/v HCFC22   802 1 1\n# * SfcVMR_HFC125     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC125        1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC134a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC134a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC143a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC143a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC152a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC152a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC227ea   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC227ea      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC23      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC23         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC236fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC236fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC245fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC245fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC32      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC32         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC365mfc  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC365mfc     1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC4310mee $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC4310mee    1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_N2O        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   N2O           1750-2100/1-12/1/0 RY xy v/v N2O      802 1 1\n# * SfcVMR_NF3        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   NF3           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SF6        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SF6           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SO2F2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SO2F2         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n\n#==============================================================================\n# -- Not part of CMIP6 experimental design; use GEOS-Chem defaults\n#==============================================================================\n* SfcVMR_OCS          $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS           1985/1/1/0          C xy ppbv *         - 1 1\n* SfcVMR_H2           $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2            1985/1/1/0          C xy ppbv *         - 1 1\n\n)))CMIP6_SFC_BC\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((XIAO_C3H8\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n7  LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n25 EDGAR_TODNOX $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless 1\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019)\n#==============================================================================\n33 PKU_pow_NOx              0.94/0.93/0.93/0.92/0.93/0.96/0.98/0.99/0.98/1.00/1.05/1.03/1.01/1.04/1.05/1.05/1.07/1.06/1.05/1.05/1.03/1.01/0.99/0.96 - - - xy unitless 1 1009\n34 PKU_pow_SO2              0.92/0.91/0.90/0.89/0.90/0.93/0.97/0.98/0.99/1.02/1.07/1.04/1.03/1.06/1.06/1.07/1.10/1.10/1.06/1.05/1.03/1.01/0.99/0.93 - - - xy unitless 1 1009\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 1009\n\n# These scale factors undo (Oper=-1) the global diurnal scale factors over China (Mask=1009)\n36 EDGAR_TODNOX_UNDO $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless -1 1009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 1009\n\n#==============================================================================\n# --- Day-of-week scale factors ---\n# ==> data is Sun/Mon/.../Sat\n#==============================================================================\n(((XIAO_C3H8\n22 GEIA_DOW_HC  0.671/1.1102/1.1102/1.1102/1.1102/1.1102/0.768 - - - xy unitless 1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Seasonal scale factors ---\n#==============================================================================\n(((DICE_Africa\n# from GEIA:\n30 GEIA_SEASON_NOX  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc NOXrat 1985/1-12/1/0 C xy unitless 1\n31 GEIA_SEASON_SO2  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc SO2rat 1985/1-12/1/0 C xy unitless 1\n)))DICE_Africa\n\n#==============================================================================\n# --- For Bromocarbons ---\n#==============================================================================\n(((LIANG_BROMOCARB\n39 BROMOCARB_SEASON $ROOT/BROMINE/v2015-02/BromoCarb_Season.nc CHXBRY_scale 2000/1-12/1/0 C xy unitless 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Scale factors used for species conversions ---\n#==============================================================================\n\n# Units carbon to species conversions\n# Factor = # carbon atoms * MW carbon) / MW species\n40 CtoACET MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n41 CtoALD2 MATH:44.06/(2.0*12.0)   - - - xy unitless 1\n42 CtoALK4 MATH:58.12/(4.3*12.0)   - - - xy unitless 1\n43 CtoBENZ MATH:78.12/(6.0*12.0)   - - - xy unitless 1\n44 CtoC2H4 MATH:28.05/(2.0*12.0)   - - - xy unitless 1\n45 CtoC2H6 MATH:30.08/(2.0*12.0)   - - - xy unitless 1\n46 CtoC3H8 MATH:44.11/(3.0*12.0)   - - - xy unitless 1\n47 CtoEOH  MATH:46.07/(2.0*12.0)   - - - xy unitless 1\n48 CtoMEK  MATH:72.11/(4.0*12.0)   - - - xy unitless 1\n49 CtoPRPE MATH:42.09/(3.0*12.0)   - - - xy unitless 1\n55 CtoTOLU MATH:92.15/(7.0*12.0)   - - - xy unitless 1\n56 CtoXYLE MATH:106.18/(8.0*12.0)  - - - xy unitless 1\n59 CtoC2H2 MATH:26.04/(2.0*12.0)   - - - xy unitless 1\n61 CtoISOP MATH:68.13/(5.0*12.0)   - - - xy unitless 1\n62 CtoMTPA MATH:136.26/(10.0*12.0) - - - xy unitless 1\n64 CtoMBOX MATH:86.13/(5.0*12.0)   - - - xy unitless 1\n67 CtoSESQ MATH:204.4/(15.0*12.0)  - - - xy unitless 1\n83 CtoMACR MATH:70.10/(4.0*12.0)   - - - xy unitless 1\n84 CtoRCHO MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n\n# VOC speciations\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n50 KET2MEK    0.25  - - - xy unitless 1\n51 KET2ACET   0.75  - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n# RCP acids to HCOOH conversion\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n57 RCP_HCOOHfraction 0.25     - - - xy unitless 1\n58 RCP_ACIDStoHCOOH  0.779661 - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n# SOx to SO2 conversion (Chin et al., 2000)\n60 SOX2SO2_GLOBAL 0.986  - - - xy unitless 1\n63 SO2toSO4       0.031  - - - xy unitless 1\n65 SO2toSO4_APEI  0.014  - - - xy unitless 1\n66 SO2toPFe       1.0e-3 - - - xy unitless 1\n68 SO2toPFe_APEI  4.7e-4 - - - xy unitless 1\n69 SO2toPFe_NEI   1.0e-3 - - - xy unitless 1\n78 SO2FRAC        0.969  - - - xy unitless 1\n\n# Carbon aerosols: speciation of hydrophilic and hydrophobic fractions\n# (Fractions applied to the biomass burning extensions (GFED or FINN) are\n#  specified separately in the extensions section.)\n70 BC2BCPI  0.2  - - - xy unitless 1\n71 BC2BCPO  0.8  - - - xy unitless 1\n72 OC2OCPI  0.5  - - - xy unitless 1\n73 OC2OCPO  0.5  - - - xy unitless 1\n74 POGSCAL  1.27 - - - xy unitless 1\n76 SV2POG1  0.49 - - - xy unitless 1\n77 SV2POG2  0.51 - - - xy unitless 1\n\n(((BB4MIPS\n# Convert MOH to ACET emissions for CMIP6 Scenarios\n79 MOH2ACET 0.2094649 - - - xy unitless 1\n)))BB4MIPS\n\n# Convert CEDS total alchohols to methanol, ethanol, and other alcohols following Chen et al. (2019, ACP)\n90 VOC1toMOH 0.5   - - - xy 1 1\n91 VOC1toEOH 0.375 - - - xy 1 1\n92 VOC1toROH 0.125 - - - xy 1 1\n\n# NOx/NO2 to NO conversion\n115 NO2toNO  6.521739e-1 - -  - xy unitless 1\n\n# SOA-Precursor scale factors\n#\n# From Kim, P.S., et. al. 2015 \"Sources, seasonality, and trends\n# of southeast US aerosol: ...\"\n#   AVOCs and BBVOCs are emitted in proportion to CO, with an emission ratio of\n#     0.069 g AVOC (g CO)−1 (Hayes et al., 2015) and\n#     0.013 g BBVOC (g CO)−1 (Cubison et al., 2011).\n#   They are both oxidized by OH in the model ... to generate SOA.\n280 COtoSOAP_anth 0.069 - - - xy 1 1\n281 COtoSOAP_burn 0.013 - - - xy 1 1\n\n#==============================================================================\n# --- Diurnal scale factors for biomass burning ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n\n#==============================================================================\n# --- NAP scale factors ---\n#\n# Get anthropogenic (FF) NAP emissions by scaling BENZ emissions with the\n# following factor. Factor is ratio of TgC NAP to TgC BENZ emissions\n# or equivalently, molec C NAP to molec C BENZ. Scaling should produce\n# about 0.09 TgC NAP/year, consistent with non-BB,BF emissions predicted\n# by Zhang and Tao 2009 Atm Env\n# Based on year 2000 1x1 inv  (hotp 11/14/09)\n#REAL*8, PARAMETER    :: NAPTOBENZSCALE = 0.06861d0\n\n# NAPTOTSCAL: factor to scale total NAP emissions to POA (hotp 7/24/09)\n#REAL*8, PARAMETER    :: NAPTOTALSCALE = 66.09027d0\n\n# = CO emissions * emissions ratio of mol NAP / mol CO\n# * kg C / mol NAP * mol CO / kg CO\n# mmol NAP / mol CO = 0.025 g NAP/ kg DM /\n#              ( 78 g CO/ kg DM ) * 28 g CO / mol CO\n#            / ( 128 g NAP / mol NAP ) *1000 mmol/mol\n# scale emissions down if appropriate to remove the\n# effect of VOC ox on CO emission\n# EF for NAP from Andreae and Merlet 2001 Glob Biog Cyc\n# EF for CO  from Andreae and Merlet 2001 Glob Biog Cyc\n#BIOFUEL_KG(N,:,:) = BIOFUEL_KG(IDBFCO,:,:) * 0.0701d-3\n#                  * 120d0 / 28d0 * COSCALEDOWN\n#==============================================================================\n(((EDGARv43\n80 NAPEMISS   1.0     - - - xy unitless 1\n81 NAPTOTSCAL 66.09   - - - xy unitless 1\n82 BENZTONAP  6.86e-2 - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- BIOGENIC EMISSIONS FROM DRY LEAF MATTER ---\n#\n# Use yield of 40ug/dDW.\n# Assume organic matter has molecular formula CH2O (MW 30.03), which\n#  means 0.4 gC / g plant\n# ALD2 MW = 44.05 g/mole ==> 0.55 gC/g ALD2\n#  Therefore 40ug (ALD2) / g (plant) ==> 55 ug C in ALD2 / gC plant\n# EOH MW = 46 g/mole ==> 0.52 gC/g EOH\n#  Therefore 40ug (EOH)  / g (plant) ==> 52 ug C in EOH  / gC plant\n#==============================================================================\n(((DECAYING_PLANTS\n85 YIELD_RESP_ALD2 55.0e-6 - - - xy unitless 1\n86 YIELD_RESP_EOH  52.0e-6 - - - xy unitless 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#==============================================================================\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n# Conversions from AEIC2019 inventory quantities to individual species\n101 AEICACET 3.693477e-3 - - - xy unitless 1\n102 AEICALD2 4.271822e-2 - - - xy unitless 1\n103 AEICALK4 2.137911e-1 - - - xy unitless 1\n104 AEICC2H6 5.214505e-3 - - - xy unitless 1\n105 AEICC3H8 7.808710e-4 - - - xy unitless 1\n106 AEICCH2O 1.230811e-1 - - - xy unitless 1\n107 AEICPRPE 1.780418e-1 - - - xy unitless 1\n108 AEICMACR 5.362609e-2 - - - xy unitless 1\n109 AEICRCHO 3.676944e-2 - - - xy unitless 1\n111 AEICSO2  1.176000e-3 - - - xy unitless 1\n112 AEICSO4  3.600000e-5 - - - xy unitless 1\n113 AEICBC   3.000000e-5 - - - xy unitless 1\n114 AEICHC   1.160000e+0 - - - xy unitless 1\n120 FB2H2O   1.231000e+0 - - - xy unitless 1\n\n#------------------------------------------------------------------------------\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Increase\n# from 2018 to 2019 is estimated based on the growth from 2017 to 2018.\n# Lee et al. (2021) only covers 1990 to 2018, so to get to 2019 it is\n# assumed that the growth from 2017 to 2018 is the same as that from 2018\n# to 2019. So the formula is something like:\n#\n# Emissions of CO  in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down. For NOx, the same procedure is applied but with an additional\n# factor to account for changes in NOx EI:\n#\n# Emissions of NOx in 2009 = [ AEIC 2019 emissions of NOx\n#                          *   (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          *   (Lee 2009 fuel burn / Lee 2018 fuel burn) ]\n#                          * [ (Lee 2017 NOx EI    / Lee 2018 NOx EI)\n#                          *   (Lee 2009 NOx EI    / Lee 2018 NOx EI)    ]\n#\n# In this case though the Lee et al 2018 and 2017 NOx EIs are identical.\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC_SCALE_1990_2019\n240 AC_EINOX   0.852/0.852/0.852/0.859/0.866/0.873/0.881/0.888/0.896/0.903/0.911/0.916/0.922/0.927/0.932/0.937/0.950/0.962/0.974/0.987/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000 - 1990-2019/1/1/0 C xy 1 1\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n240 AC_EINOX  1.000000e+0 - -  - xy 1 1\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n(((CMIP6_AIRCRAFT\n# Conversions for SO2 to HCs taken from AEIC\n601 CMIP6_SO2_TO_ACET 3.140712 - -  - xy unitless 1\n602 CMIP6_SO2_TO_ALD2 36.32502 - -  - xy unitless 1\n603 CMIP6_SO2_TO_ALK4 181.7952 - -  - xy unitless 1\n604 CMIP6_SO2_TO_C2H6 4.434103 - -  - xy unitless 1\n605 CMIP6_SO2_TO_C3H8 0.664006 - -  - xy unitless 1\n606 CMIP6_SO2_TO_CH2O 104.6608 - -  - xy unitless 1\n607 CMIP6_SO2_TO_PRPE 151.3961 - -  - xy unitless 1\n608 CMIP6_SO2_TO_MACR 45.60042 - -  - xy unitless 1\n609 CMIP6_SO2_TO_RCHO 31.26653 - -  - xy unitless 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EPA NEI day-of-week scale factors ---\n#==============================================================================\n(((NEI2016_MONMEAN\n210 NEI99_DOW_NOX   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc NOX  1999/1-12/WD/0 C xy 1 1\n211 NEI99_DOW_CO    $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO   1999/1-12/WD/0 C xy 1 1\n212 NEI99_DOW_ALK4  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ALK4 1999/1-12/WD/0 C xy 1 1\n213 NEI99_DOW_ACET  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ACET 1999/1-12/WD/0 C xy 1 1\n214 NEI99_DOW_MEK   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MEK  1999/1-12/WD/0 C xy 1 1\n215 NEI99_DOW_PRPE  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc PRPE 1999/1-12/WD/0 C xy 1 1\n216 NEI99_DOW_C3H8  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C3H8 1999/1-12/WD/0 C xy 1 1\n217 NEI99_DOW_C2H6  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C2H6 1999/1-12/WD/0 C xy 1 1\n218 NEI99_DOW_SO2   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO2  1999/1-12/WD/0 C xy 1 1\n219 NEI99_DOW_SO4   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO4  1999/1-12/WD/0 C xy 1 1\n220 NEI99_DOW_MSA   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MSA  1999/1-12/WD/0 C xy 1 1\n221 NEI99_DOW_BCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc BCPI 1999/1-12/WD/0 C xy 1 1\n222 NEI99_DOW_OCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc OCPI 1999/1-12/WD/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- EPA NEI2016 annual scale factors ---\n#\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n#\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#==============================================================================\n(((NEI2016_MONMEAN\n251 NEI2016_NOx_YRSCALE  2.341/2.213/2.083/1.989/1.879/1.768/1.651/1.539/1.448/1.407/1.345/1.282/1.224/1.135/1.000/0.943/0.895/0.840/0.785 - 2002-2020/1/1/0 C xy 1 1\n252 NEI2016_CO_YRSCALE   1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n253 NEI2016_NH3_YRSCALE  0.996/0.999/1.002/1.005/1.043/1.082/1.100/1.088/1.077/1.012/0.957/0.954/0.899/0.950/1.000/1.052/1.051/1.050/1.049 - 2002-2020/1/1/0 C xy 1 1\n254 NEI2016_VOC_YRSCALE  1.314/1.285/1.255/1.223/1.234/1.246/1.148/1.135/1.154/1.175/1.153/1.131/1.110/1.067/1.000/0.970/0.956/0.941/0.926 - 2002-2020/1/1/0 C xy 1 1\n255 NEI2016_SO2_YRSCALE  4.773/4.701/4.626/4.625/4.171/3.717/3.273/2.879/2.446/2.038/1.591/1.525/1.469/1.237/1.000/0.767/0.735/0.641/0.583 - 2002-2020/1/1/0 C xy 1 1\n256 NEI2016_PM25_YRSCALE 1.120/1.140/1.159/1.178/1.213/1.248/1.202/1.195/1.190/1.192/1.153/1.115/1.077/1.040/1.000/0.964/0.961/0.958/0.955 - 2002-2020/1/1/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- GFAS scale factors ---\n#==============================================================================\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#==============================================================================\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016), emit 35% of QFED\n# emissions above the PBL.\n#==============================================================================\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n#==============================================================================\n# --- CEDS vertical partitioning ---\n#==============================================================================\n(((CEDS_01x01\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDS_01x01\n\n#==============================================================================\n# --- DICE-Africa ---\n#==============================================================================\n(((DICE_Africa\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n320 DICE_CP_SF    0.20 - - - xy 1 1\n\n# Car emissions of OCPI and OCPO scale factor to address a factor of 7 overestimate\n# in car OC emissions that results from incorrect emission factors used in the original inventory\n330 DICE_CAR_OC_SF    0.14 - - - xy 1 1\n)))DICE_Africa\n\n#==============================================================================\n# --- Offline biogenic VOC scale factors ---\n#\n# Isoprene      : 1.5% mass yield SOAP, 1.5% mass yield SOAS\n# Monoterpenes  : 5.0% mass yield SOAP, 5.0% mass yield SOAS\n# Other terpenes: 5.0% mass yield SOAP, 5.0% mass yield SOAS\n#  --> Need to multiply by 1.133 to convert from carbon basis to mass basis\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n610 ISOPtoSOA 0.0170 - - - xy 1 1\n611 MONOtoSOA 0.0567 - - - xy 1 1\n612 OTHRtoSOA 0.0567 - - - xy 1 1\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt scale factors ---\n#\n# NOTES:\n# - Sea salt alkalinity and chloride values obtained from hcox_seasalt_mod.F90\n# - BrContent obtained from '--> Br- mass ratio' in SeaSalt extension above\n#==============================================================================\n(((OFFLINE_SEASALT\n615 SSAlkalinity 1.0     - - - xy 1 1\n616 SSChloride   0.5504  - - - xy 1 1\n617 BrContent    2.11e-3 - - - xy 1 1\n)))OFFLINE_SEASALT\n\n(((OFFLINE_DUST\n621 mfrac_DSTbin1    3.344e-4  - - - xy 1 1\n622 mfrac_DSTbin2    1.593e-3  - - - xy 1 1\n623 mfrac_DSTbin3    1.194e-2  - - - xy 1 1\n624 mfrac_DSTbin4    3.430e-2  - - - xy 1 1\n625 mfrac_DSTbin5    1.248e-1  - - - xy 1 1\n626 mfrac_DSTbin6    2.573e-1  - - - xy 1 1\n627 mfrac_DSTbin7    5.698e-1  - - - xy 1 1\n)))OFFLINE_DUST\n\n(((AFCID\n630 half_AFCID       0.5       - - - xy 1 1\n631 mfrac_bin1       6.944e-3  - - - xy 1 1\n632 mfrac_bin2       3.307e-2  - - - xy 1 1\n633 mfrac_bin3       2.478e-1  - - - xy 1 1\n634 mfrac_bin4       7.121e-1  - - - xy 1 1\n)))AFCID\n\n)))EMISSIONS\n\n#==============================================================================\n# Scale the CMIP6 values in pptv to ppbv\n#==============================================================================\n801 pptv2ppbv  0.001      - - - xy 1 1\n802 vv2ppbv    1000000000 - - - xy 1 1\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43.or.DICE_Africa\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43.or.DICE_Africa\n\n(((CEDS_01x01\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDS_01x01\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\n(((APEI\n1002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc                  MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n(((NEI2016_MONMEAN\n1007 CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc                      MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n1008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc       LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n1009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n\n(((AFCID\n1010 INDIA_MASK  $ROOT/MASKS/v2019-05/India_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  67/7/99/39\n)))AFCID\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gcap2_metfields",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc.gcap2_metfields\n#\n# !DESCRIPTION: Contains configuration information for GCAP2 meteorology fields\n#  in HEMCO.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:    ${RUNDIR_DATA_ROOT}/HEMCO\nMETDIR:  ${RUNDIR_MET_DIR}\nRUNID:   ${RUNDIR_GCAP2_RUNID}\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n\n# --- CN fields ---\n* FRLAKE    $METDIR/TOPO                                       flake       */1/1/0                         C   xy  1  * -  1 1\n* FRLAND    $METDIR/TOPO                                       fgrnd       */1/1/0                         C   xy  1  * -  1 1\n* FRLANDIC  $METDIR/TOPO                                       fgice       */1/1/0                         C   xy  1  * -  1 1\n* FROCEAN   $METDIR/TOPO                                       focean      */1/1/0                         C   xy  1  * -  1 1\n* PHIS      $METDIR/TOPO                                       zatmo       */1/1/0                         C   xy  1  * -  1 1\n\n# --- aijh2 fields ---\n* ALBEDO     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     ALBEDO      1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* CLDTOT     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     CLDTOT      1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* EFLUX      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     EFLUX       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* FRSEAICE   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* FRSNO      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSNO       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* GWETTOP    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     GWETTOP     1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* GWETROOT   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     GWETROOT    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* HFLUX      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     HFLUX       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* LAI        $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     LAI         1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PARDF      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PARDF       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PARDR      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PARDR       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PBLH       $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PBLH        1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PRECANV    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PRECANV     1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PRECCON    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PRECCON     1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PRECLSC    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PRECLSC     1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PRECSNO    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PRECSNO     1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* PRECTOT    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     PRECTOT     1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* QV2M       $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     QV2M        1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SLP        $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     SLP         1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SNODP      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     SNODP       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SNOMAS     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     SNOMAS      1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SWGDN      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     SWGDN       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* T2M        $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     T2M         1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* TO3        $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     TO3         1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* TROPPT     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     TROPPT      1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* TS         $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     TS          1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* U10M       $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     U10M        1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* USTAR      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     USTAR       1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* V10M       $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     V10M        1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* Z0M        $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     Z0M         1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* FLASH_DENS $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FLASH_DENS  1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* CONV_DEPTH $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     CTH         1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n\n# --- aijleh6 fields ---\n* CMFMC      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijleh6$RUNID.nc4   CMFMC       1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* PFICU      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijleh6$RUNID.nc4   PFICU       1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* PFILSAN    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijleh6$RUNID.nc4   PFILSAN     1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* PFLCU      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijleh6$RUNID.nc4   PFLCU       1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* PFLLSAN    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijleh6$RUNID.nc4   PFLLSAN     1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n\n# --- aijlh6 fields ---\n* DTRAIN     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    DTRAIN      1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* OMEGA      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    OMEGA       1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* RH         $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    RH          1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* U          $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    U           1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* V          $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    V           1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* CLOUD      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    CLOUD       1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* OPTDEPTH   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    OPTDEPTH    1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* QI         $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    QI          1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* QL         $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    QL          1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* TAUCLI     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    TAUCLI      1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* TAUCLW     $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    TAUCLW      1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* DQRCU      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    DQRCU       1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* DQRLSAN    $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    DQRLSAN     1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* REEVAPCN   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    REEVAPCN    1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n* REEVAPLS   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6$RUNID.nc4    REEVAPLS    1851-2099/1-12/1-31/*/+90minute RFY xyz 1  * -  1 1\n\n# --- aijh6i/aijlh6i fields ---\n* PS           $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh6i$RUNID.nc4  PS          1851-2099/1-12/1-31/*           RFY xy  1  * -  1 1\n* SPHU         $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6i$RUNID.nc4 QV          1851-2099/1-12/1-31/*           RFY xyz 1  * -  1 1\n* TMPU         $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6i$RUNID.nc4 T           1851-2099/1-12/1-31/*           RFY xyz 1  * -  1 1\n\n* PS_NEXTDAY   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh6i$RUNID.nc4  PS          1851-2099/1-12/1-31/1/+1day     RFY xy  1  * -  1 1\n* SPHU_NEXTDAY $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6i$RUNID.nc4 QV          1851-2099/1-12/1-31/1/+1day     RFY xyz 1  * -  1 1\n* TMPU_NEXTDAY $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijlh6i$RUNID.nc4 T           1851-2099/1-12/1-31/1/+1day     RFY xyz 1  * -  1 1\n\n# --- Not used by GEOS-Chem ---\n#* EVAP      $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n#* GRN       $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE00   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE10   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE20   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE30   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE40   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE50   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE60   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE70   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE80   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n* SEAICE90   $METDIR/$YYYY/$MM/$YYYY$MM$DD.aijh2$RUNID.nc4     FRSEAICE    1851-2099/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n\n### END SECTION BASE EMISSIONS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gmao_metfields",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for GMAO meteorology fields\n#  in HEMCO.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:     ${RUNDIR_DATA_ROOT}/HEMCO\nMETDIR:   ${RUNDIR_MET_DIR}\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n\n# --- CN fields ---\n* FRLAKE    $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC        FRLAKE   */1/1/0               C xy  1  * -  1 1\n* FRLAND    $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC        FRLAND   */1/1/0               C xy  1  * -  1 1\n* FRLANDIC  $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC        FRLANDIC */1/1/0               C xy  1  * -  1 1\n* FROCEAN   $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC        FROCEAN  */1/1/0               C xy  1  * -  1 1\n* PHIS      $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC        PHIS     */1/1/0               C xy  1  * -  1 1\n\n# --- A1 fields ---\n* ALBEDO    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     ALBEDO   1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* CLDTOT    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     CLDTOT   1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* EFLUX     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     EFLUX    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* EVAP      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     EVAP     1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* FRSEAICE  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     FRSEAICE 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* FRSNO     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     FRSNO    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* GRN       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     GRN      1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* GWETROOT  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     GWETROOT 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* GWETTOP   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     GWETTOP  1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* HFLUX     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     HFLUX    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* LAI       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     LAI      1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PARDF     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PARDF    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PARDR     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PARDR    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PBLH      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PBLH     1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECANV   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PRECANV  1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECCON   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PRECCON  1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECLSC   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PRECLSC  1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECSNO   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PRECSNO  1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECTOT   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     PRECTOT  1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* QV2M      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     QV2M     1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE00  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE00 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE10  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE10 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE20  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE20 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE30  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE30 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE40  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE40 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE50  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE50 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE60  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE60 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE70  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE70 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE80  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE80 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE90  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SEAICE90 1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SLP       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SLP      1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SNODP     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SNODP    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SNOMAS    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SNOMAS   1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SWGDN     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     SWGDN    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* TO3       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     TO3      1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* TROPPT    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     TROPPT   1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* TS        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     TS       1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* T2M       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     T2M      1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* U10M      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     U10M     1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* USTAR     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     USTAR    1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* V10M      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     V10M     1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* Z0M       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.$RES.$NC     Z0M      1900-2100/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n\n# --- A3cld fields ---\n* CLOUD     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.$RES.$NC  CLOUD    1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* OPTDEPTH  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.$RES.$NC  OPTDEPTH 1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* QI        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.$RES.$NC  QI       1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* QL        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.$RES.$NC  QL       1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* TAUCLI    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.$RES.$NC  TAUCLI   1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* TAUCLW    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.$RES.$NC  TAUCLW   1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- A3dyn fields ---\n* DTRAIN    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.$RES.$NC  DTRAIN   1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* OMEGA     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.$RES.$NC  OMEGA    1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* RH        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.$RES.$NC  RH       1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* U         $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.$RES.$NC  U        1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* V         $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.$RES.$NC  V        1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- A3mstC fields ---\n* DQRCU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.$RES.$NC DQRCU    1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* DQRLSAN   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.$RES.$NC DQRLSAN  1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* REEVAPCN  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.$RES.$NC REEVAPCN 1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* REEVAPLS  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.$RES.$NC REEVAPLS 1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- A3mstE fields ---\n* CMFMC     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.$RES.$NC CMFMC    1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFICU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.$RES.$NC PFICU    1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFILSAN   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.$RES.$NC PFILSAN  1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFLCU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.$RES.$NC PFLCU    1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFLLSAN   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.$RES.$NC PFLLSAN  1900-2100/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- I3 fields ---\n* PS       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.$RES.$NC     PS        1900-2100/1-12/1-31/*           EFY xy  1  * -  1 1\n* SPHU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.$RES.$NC     QV        1900-2100/1-12/1-31/*           EFY xyz 1  * -  1 1\n* TMPU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.$RES.$NC     T         1900-2100/1-12/1-31/*           EFY xyz 1  * -  1 1\n\n* PS_NEXTDAY   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.$RES.$NC PS        1900-2100/1-12/1-31/1/+1day     EFY xy  1  * -  1 1\n* SPHU_NEXTDAY $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.$RES.$NC QV        1900-2100/1-12/1-31/1/+1day     EFY xyz 1  * -  1 1\n* TMPU_NEXTDAY $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.$RES.$NC T         1900-2100/1-12/1-31/1/+1day     EFY xyz 1  * -  1 1\n\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n#\n# Native-resolution lightning flash rates constrained to LIS/OTD climatology\n# and convective depth are now prescribed as offline meteorology.\n#                                                    --Lee Murray (16 Jan 2019)\n#==============================================================================\n(((LightNOx\n(((.not.LightningClimatology\n* FLASH_DENS $ROOT/OFFLINE_LIGHTNING/${RUNDIR_LIGHTNOX_DIR}/${RUNDIR_METLIGHTNING}/$YYYY/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_$YYYY_$MM.nc4  LDENS 1900-2100/1-12/1-31/0-23/+90minute RFY3 xy  1  * -  1 1\n* CONV_DEPTH $ROOT/OFFLINE_LIGHTNING/${RUNDIR_LIGHTNOX_DIR}/${RUNDIR_METLIGHTNING}/$YYYY/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_$YYYY_$MM.nc4  CTH   1900-2100/1-12/1-31/0-23/+90minute RFY3 xy  1  * -  1 1\n))).not.LightningClimatology\n\n(((LightningClimatology\n* FLASH_DENS $ROOT/OFFLINE_LIGHTNING/v2020-03/${RUNDIR_METLIGHTNING}/CLIM/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_${RUNDIR_MET_LCLIM}.ymonmean.nc4  LDENS 2019/1-12/1/0 C xy  1  * -  1 1\n* CONV_DEPTH $ROOT/OFFLINE_LIGHTNING/v2020-03/${RUNDIR_METLIGHTNING}/CLIM/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_${RUNDIR_MET_LCLIM}.ymonmean.nc4  CTH   2019/1-12/1/0 C xy  1  * -  1 1\n)))LightningClimatology\n)))LightNOx\n\n#==============================================================================\n# --- Fields for soil NOx emissions (Extension 104) ---\n#==============================================================================\n(((SoilNOx\n(((UseSoilTemperature\n* TSOIL1    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1soil.$RES.$NC     TSOIL1   1980-2100/1-12/1-31/*/+30minute RFY xy  1  * -  1 1\n)))UseSoilTemperature\n)))SoilNOx\n\n### END SECTION BASE EMISSIONS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gmao_metfields_0125",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for GMAO meteorology fields\n#  in HEMCO.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:        ${RUNDIR_DATA_ROOT}/HEMCO\nMETDIR:      ${RUNDIR_DATA_ROOT}/GEOS_0.25x0.3125/GEOS_FP\nHIGHRES:     ${RUNDIR_DATA_ROOT}/GEOS_0.125x0.15625/GEOS_FP_DerivedWinds\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n\n# --- CN fields ---\n* FRLAKE    $METDIR/$CNYR/01/$MET.$CNYR0101.CN.025x03125.$NC        FRLAKE   */1/1/0               C xy  1  * -  1 1\n* FRLAND    $METDIR/$CNYR/01/$MET.$CNYR0101.CN.025x03125.$NC        FRLAND   */1/1/0               C xy  1  * -  1 1\n* FRLANDIC  $METDIR/$CNYR/01/$MET.$CNYR0101.CN.025x03125.$NC        FRLANDIC */1/1/0               C xy  1  * -  1 1\n* FROCEAN   $METDIR/$CNYR/01/$MET.$CNYR0101.CN.025x03125.$NC        FROCEAN  */1/1/0               C xy  1  * -  1 1\n* PHIS      $METDIR/$CNYR/01/$MET.$CNYR0101.CN.025x03125.$NC        PHIS     */1/1/0               C xy  1  * -  1 1\n\n# --- A1 fields ---\n* ALBEDO    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     ALBEDO   1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* CLDTOT    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     CLDTOT   1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* EFLUX     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     EFLUX    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* EVAP      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     EVAP     1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* FRSEAICE  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     FRSEAICE 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* FRSNO     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     FRSNO    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* GRN       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     GRN      1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* GWETROOT  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     GWETROOT 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* GWETTOP   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     GWETTOP  1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* HFLUX     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     HFLUX    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* LAI       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     LAI      1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* LWGNT     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     LWGNT    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PARDF     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PARDF    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PARDR     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PARDR    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PBLH      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PBLH     1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECANV   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PRECANV  1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECCON   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PRECCON  1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECLSC   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PRECLSC  1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECSNO   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PRECSNO  1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* PRECTOT   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     PRECTOT  1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* QV2M      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     QV2M     1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE00  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE00 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE10  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE10 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE20  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE20 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE30  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE30 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE40  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE40 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE50  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE50 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE60  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE60 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE70  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE70 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE80  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE80 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SEAICE90  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SEAICE90 1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SLP       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SLP      1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SNODP     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SNODP    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SNOMAS    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SNOMAS   1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* SWGDN     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     SWGDN    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* TO3       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     TO3      1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* TROPPT    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     TROPPT   1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* TS        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     TS       1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* T2M       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     T2M      1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* U10M      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     U10M     1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* USTAR     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     USTAR    1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* V10M      $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     V10M     1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n* Z0M       $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1.025x03125.$NC     Z0M      1980-2021/1-12/1-31/*/+30minute EFY xy  1  * -  1 1\n\n# --- A3cld fields ---\n* CLOUD     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.025x03125.$NC  CLOUD    1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* OPTDEPTH  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.025x03125.$NC  OPTDEPTH 1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* QI        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.025x03125.$NC  QI       1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* QL        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.025x03125.$NC  QL       1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* TAUCLI    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.025x03125.$NC  TAUCLI   1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* TAUCLW    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3cld.025x03125.$NC  TAUCLW   1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- A3dyn fields ---\n* DTRAIN    $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.025x03125.$NC  DTRAIN   1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* OMEGA     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.025x03125.$NC  OMEGA    1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* RH        $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3dyn.025x03125.$NC  RH       1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- A3mstC fields ---\n* DQRCU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.025x03125.$NC DQRCU    1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* DQRLSAN   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.025x03125.$NC DQRLSAN  1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* REEVAPCN  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.025x03125.$NC REEVAPCN 1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* REEVAPLS  $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstC.025x03125.$NC REEVAPLS 1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- A3mstE fields ---\n* CMFMC     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.025x03125.$NC CMFMC    1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFICU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.025x03125.$NC PFICU    1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFILSAN   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.025x03125.$NC PFILSAN  1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFLCU     $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.025x03125.$NC PFLCU    1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n* PFLLSAN   $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A3mstE.025x03125.$NC PFLLSAN  1980-2021/1-12/1-31/*/+90minute EFY xyz 1  * -  1 1\n\n# --- I3 fields ---\n* TMPU         $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.025x03125.$NC T         1980-2021/1-12/1-31/*           EFY xyz 1  * -  1 1\n* TMPU_NEXTDAY $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.I3.025x03125.$NC T         1980-2021/1-12/1-31/1/+1day     EFY xyz 1  * -  1 1\n\n# --- 0.125x0.15625 fields ---\n* U            $HIGHRES/Y$YYYY/M$MM/D$DD/GEOS.fp.asm.A1dyn.$RES.$YYYY$MM$DD.nc4  UA  2021-2023/1-12/1-31/*           EFY xyz 1  * -  1 1\n* V            $HIGHRES/Y$YYYY/M$MM/D$DD/GEOS.fp.asm.A1dyn.$RES.$YYYY$MM$DD.nc4  VA  2021-2023/1-12/1-31/*           EFY xyz 1  * -  1 1\n* PS           $HIGHRES/Y$YYYY/M$MM/D$DD/GEOS.fp.asm.I1dyn.$RES.$YYYY$MM$DD.nc4  PS  2021-2023/1-12/1-31/*           EFY xy  1  * -  1 1\n* SPHU         $HIGHRES/Y$YYYY/M$MM/D$DD/GEOS.fp.asm.I1dyn.$RES.$YYYY$MM$DD.nc4  QV  2021-2023/1-12/1-31/*           EFY xyz 1  * -  1 1\n\n* PS_NEXTDAY   $HIGHRES/Y$YYYY/M$MM/D$DD/GEOS.fp.asm.I1dyn.$RES.$YYYY$MM$DD.nc4  PS  2021-2023/1-12/1-31/*/+1day     EFY xy  1  * -  1 1\n* SPHU_NEXTDAY $HIGHRES/Y$YYYY/M$MM/D$DD/GEOS.fp.asm.I1dyn.$RES.$YYYY$MM$DD.nc4  QV  2021-2023/1-12/1-31/*/+1day     EFY xyz 1  * -  1 1\n\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n#\n# Native-resolution lightning flash rates constrained to LIS/OTD climatology\n# and convective depth are now prescribed as offline meteorology.\n#                                                    --Lee Murray (16 Jan 2019)\n#\n# These fields are currently not available for 0.125x0.15625 resolution\n# (M. Sulprizio, 27 Mar 2025)\n#==============================================================================\n(((LightNOx\n(((.not.LightningClimatology\n* FLASH_DENS $ROOT/OFFLINE_LIGHTNING/${RUNDIR_LIGHTNOX_DIR}/$MET/$YYYY/FLASH_CTH_$MET_0.25x0.3125_$YYYY_$MM.nc4  LDENS 1980-2021/1-12/1-31/0-23/+90minute RFY3 xy  1  * -  1 1\n* CONV_DEPTH $ROOT/OFFLINE_LIGHTNING/${RUNDIR_LIGHTNOX_DIR}/$MET/$YYYY/FLASH_CTH_$MET_0.25x0.3125_$YYYY_$MM.nc4  CTH   1980-2021/1-12/1-31/0-23/+90minute RFY3 xy  1  * -  1 1\n))).not.LightningClimatology\n\n(((LightningClimatology\n* FLASH_DENS $ROOT/OFFLINE_LIGHTNING/v2020-03/$MET/CLIM/FLASH_CTH_$MET_0.25x0.3125_2014-2019.ymonmean.nc4  LDENS 2019/1-12/1/0 C xy  1  * -  1 1\n* CONV_DEPTH $ROOT/OFFLINE_LIGHTNING/v2020-03/$MET/CLIM/FLASH_CTH_$MET_0.25x0.3125_2014-2019.ymonmean.nc4  CTH   2019/1-12/1/0 C xy  1  * -  1 1\n)))LightningClimatology\n)))LightNOx\n\n### END SECTION BASE EMISSIONS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.metals",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> CA_Metal               :       true\n    --> NEI2011_Metal          :       true\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n#------------------------------------------------------------------------------\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# --- CANADA Trace Metal Inventory ---\n#==============================================================================\n(((CA_Metal\n0 CAN_Al_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Al 2011-2013/1-12/1-31/0-23 R xy kg/m2/s AlF1 1002/782/801     1 1\n0 CAN_Al_F2  -                                                                          -  -                        - -  -       AlF2 1002/782/802     1 1\n0 CAN_As_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2013/CA_HeavyMetal_0.1x0.1_2013.nc      As 2011-2013/1-12/1-31/0-23 R xy kg/m2/s AsF1 1002/801         1 1\n0 CAN_As_F2  -                                                                          -  -                        - -  -       AsF2 1002/802         1 1\n0 CAN_Ca_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Ca 2011-2013/1-12/1-31/0-23 R xy kg/m2/s CaF1 1002/787/801     1 1\n0 CAN_Ca_F2  -                                                                          -  -                        - -  -       CaF2 1002/787/802     1 1\n0 CAN_Ca_C3  -                                                                          -  -                        - -  -       CaC3 1002/787/800/803 1 1\n0 CAN_Ca_C4  -                                                                          -  -                        - -  -       CaC4 1002/787/800/804 1 1\n0 CAN_Cd_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2013/CA_HeavyMetal_0.1x0.1_2013.nc      Cd 2011-2013/1-12/1-31/0-23 R xy kg/m2/s CdF1 1002/801         1 1\n0 CAN_Cd_F2  -                                                                          -  -                        - -  -       CdF2 1002/802         1 1\n0 CAN_Fe_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Fe 2011-2013/1-12/1-31/0-23 R xy kg/m2/s FeF1 1002/781/801     1 1\n0 CAN_Fe_F2  -                                                                          -  -                        - -  -       FeF2 1002/781/802     1 1\n0 CAN_K_F1   $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc K  2011-2013/1-12/1-31/0-23 R xy kg/m2/s  KF1 1002/785/801     1 1\n0 CAN_K_F2   -                                                                          -  -                        - -  -        KF2 1002/785/802     1 1\n0 CAN_K_C3   -                                                                          -  -                        - -  -        KC3 1002/785/800/803 1 1\n0 CAN_K_C4   -                                                                          -  -                        - -  -        KC4 1002/785/800/804 1 1\n0 CAN_Mg_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Mg 2011-2013/1-12/1-31/0-23 R xy kg/m2/s MgF1 1002/784/801     1 1\n0 CAN_Mg_F2  -                                                                          -  -                        - -  -       MgF2 1002/784/802     1 1\n0 CAN_Mg_C3  -                                                                          -  -                        - -  -       MgC3 1002/784/800/803 1 1\n0 CAN_Mg_C4  -                                                                          -  -                        - -  -       MgC4 1002/784/800/804 1 1\n0 CAN_Mn_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Mn 2011-2013/1-12/1-31/0-23 R xy kg/m2/s MnF1 1002/788/801     1 1\n0 CAN_Mn_F2  -                                                                          -  -                        - -  -       MnF2 1002/788/802     1 1\n0 CAN_Ni_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2013/CA_HeavyMetal_0.1x0.1_2013.nc      Ni 2011-2013/1-12/1-31/0-23 R xy kg/m2/s NiF1 1002/801         1 1\n0 CAN_Ni_F2  -                                                                          -  -                        - -  -       NiF2 1002/802         1 1\n0 CAN_Pb_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2013/CA_HeavyMetal_0.1x0.1_2013.nc      Pb 2011-2013/1-12/1-31/0-23 R xy kg/m2/s PbF1 1002/801         1 1\n0 CAN_Pb_F2  -                                                                          -  -                        - -  -       PbF2 1002/802         1 1\n0 CAN_Si_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Si 2011-2013/1-12/1-31/0-23 R xy kg/m2/s SiF1 1002/786/801     1 1\n0 CAN_Si_F2  -                                                                          -  -                        - -  -       SiF2 1002/786/802     1 1\n0 CAN_Ti_F1  $ROOT/TRACE_METALS/v2021-06/Canada/2011/$MM/CA_Crust_0.1x0.1_2011$MM$DD.nc Ti 2011-2013/1-12/1-31/0-23 R xy kg/m2/s TiF1 1002/783/801     1 1\n0 CAN_Ti_F2  -                                                                          -  -                        - -  -       TiF2 1002/783/802     1 1\n)))CA_Metal\n\n#==============================================================================\n# --- NEI 2011 Trace Metal Inventory ---\n#==============================================================================\n(((NEI2011_Metal\n#\n# Surface inventory\n#\n0 NEI11_SURFACE_Al_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Al 2011-2013/1-12/1-31/0-23 R xy kg/m2/s AlF1 1007/801     2 1\n0 NEI11_SURFACE_AL_F2 -                                                                        -  -                        - -  -       AlF2 1007/802     2 1\n0 NEI11_SURFACE_As_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc As 2011-2013/1-12/1-31/0-23 R xy kg/m2/s AsF1 1007/801     2 1\n0 NEI11_SURFACE_As_F2 -                                                                        -  -                        - -  -       AsF2 1007/802     2 1\n0 NEI11_SURFACE_Ca_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Ca 2011-2013/1-12/1-31/0-23 R xy kg/m2/s CaF1 1007/801     2 1\n0 NEI11_SURFACE_Ca_F2 -                                                                        -  -                        - -  -       CaF2 1007/802     2 1\n0 NEI11_SURFACE_Ca_C3 -                                                                        -  -                        - -  -       CaC3 1007/787/803 2 1\n0 NEI11_SURFACE_Ca_C4 -                                                                        -  -                        - -  -       CaC4 1007/787/804 2 1\n0 NEI11_SURFACE_Cd_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Cd 2011-2013/1-12/1-31/0-23 R xy kg/m2/s CdF1 1007/801     2 1\n0 NEI11_SURFACE_Cd_F2 -                                                                        -  -                        - -  -       CdF2 1007/802     2 1\n0 NEI11_SURFACE_Fe_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Fe 2011-2013/1-12/1-31/0-23 R xy kg/m2/s FeF1 1007/801     2 1\n0 NEI11_SURFACE_Fe_F2 -                                                                        -  -                        - -  -       FeF2 1007/802     2 1\n0 NEI11_SURFACE_K_F1  $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc K  2011-2013/1-12/1-31/0-23 R xy kg/m2/s  KF1 1007/801     2 1\n0 NEI11_SURFACE_K_F2  -                                                                        -  -                        - -  -        KF2 1007/802     2 1\n0 NEI11_SURFACE_K_C3  -                                                                        -  -                        - -  -        KC3 1007/785/803 2 1\n0 NEI11_SURFACE_K_C4  -                                                                        -  -                        - -  -        KC4 1007/785/804 2 1\n0 NEI11_SURFACE_Mg_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Mg 2011-2013/1-12/1-31/0-23 R xy kg/m2/s MgF1 1007/801     2 1\n0 NEI11_SURFACE_Mg_F2 -                                                                        -  -                        - -  -       MgF2 1007/802     2 1\n0 NEI11_SURFACE_Mg_C3 -                                                                        -  -                        - -  -       MgC3 1007/784/803 2 1\n0 NEI11_SURFACE_Mg_C4 -                                                                        -  -                        - -  -       MgC4 1007/784/804 2 1\n0 NEI11_SURFACE_Mn_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Mn 2011-2013/1-12/1-31/0-23 R xy kg/m2/s MnF1 1007/801     2 1\n0 NEI11_SURFACE_Mn_F2 -                                                                        -  -                        - -  -       MnF2 1007/802     2 1\n0 NEI11_SURFACE_Ni_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Ni 2011-2013/1-12/1-31/0-23 R xy kg/m2/s NiF1 1007/801     2 1\n0 NEI11_SURFACE_Ni_F2 -                                                                        -  -                        - -  -       NiF2 1007/802     2 1\n0 NEI11_SURFACE_Pb_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Pb 2011-2013/1-12/1-31/0-23 R xy kg/m2/s PbF1 1007/801     2 1\n0 NEI11_SURFACE_Pb_F2 -                                                                        -  -                        - -  -       PbF2 1007/802     2 1\n0 NEI11_SURFACE_Si_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Si 2011-2013/1-12/1-31/0-23 R xy kg/m2/s SiF1 1007/801     2 1\n0 NEI11_SURFACE_Si_F2 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Si 2011-2013/1-12/1-31/0-23 R xy kg/m2/s SiF2 1007/802     2 1\n0 NEI11_SURFACE_Ti_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Ti 2011-2013/1-12/1-31/0-23 R xy kg/m2/s TiF1 1007/801     2 1\n0 NEI11_SURFACE_Ti_F2 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_0.1x0.1_2011$MM$DD_all.nc Ti 2011-2013/1-12/1-31/0-23 R xy kg/m2/s TiF2 1007/802     2 1\n#\n# Electric Generating Units (ptegu)\n#\n0 NEI11_INLN_PTEGU_Al_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Al 2011-2013/1-12/1-31/0-23 R xy kg/m2/s AlF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Al_F2 -                                                                                -  -                        - -  -       AlF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_As_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc As 2011-2013/1-12/1-31/0-23 R xy kg/m2/s AsF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_As_F2 -                                                                                -  -                        - -  -       AsF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Ca_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Ca 2011-2013/1-12/1-31/0-23 R xy kg/m2/s CaF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Ca_F2 -                                                                                -  -                        - -  -       CaF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Cd_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Cd 2011-2013/1-12/1-31/0-23 R xy kg/m2/s CdF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Cd_F2 -                                                                                -  -                        - -  -       CdF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Fe_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Fe 2011-2013/1-12/1-31/0-23 R xy kg/m2/s FeF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Fe_F2 -                                                                                -  -                        - -  -       FeF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_K_F1  $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc PK 2011-2013/1-12/1-31/0-23 R xy kg/m2/s  KF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_K_F2  -                                                                                -  -                        - -  -        KF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Mg_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Mg 2011-2013/1-12/1-31/0-23 R xy kg/m2/s MgF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Mg_F2 -                                                                                -  -                        - -  -       MgF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Mn_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Mn 2011-2013/1-12/1-31/0-23 R xy kg/m2/s MnF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Mn_F2 -                                                                                -  -                        - -  -       MnF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Ni_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Ni 2011-2013/1-12/1-31/0-23 R xy kg/m2/s NiF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Ni_F2 -                                                                                -  -                        - -  -       NiF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Pb_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Pb 2011-2013/1-12/1-31/0-23 R xy kg/m2/s PbF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Pb_F2 -                                                                                -  -                        - -  -       PbF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Si_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Si 2011-2013/1-12/1-31/0-23 R xy kg/m2/s SiF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Si_F2 -                                                                                -  -                        - -  -       SiF2 1007/802 3 1\n0 NEI11_INLN_PTEGU_Ti_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2011$MM$DD_ptegu.nc Ti 2011-2013/1-12/1-31/0-23 R xy kg/m2/s TiF1 1007/801 3 1\n0 NEI11_INLN_PTEGU_Ti_F2 -                                                                                -  -                        - -  -       TiF2 1007/802 3 1\n#\n# Non-EGU PM (non industrial pm; ptnonipm)\n#\n0 NEI11_INLN_PTNONIPM_Al_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Al 2011-2013/1-12/1-31/0-23 E xy kg/m2/s AlF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Al_F2 -                                                                                   -  -                        - -  -       AlF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_As_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc As 2011-2013/1-12/1-31/0-23 E xy kg/m2/s AsF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_As_F2 -                                                                                   -  -                        - -  -       AsF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Ca_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Ca 2011-2013/1-12/1-31/0-23 E xy kg/m2/s CaF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Ca_F2 -                                                                                   -  -                        - -  -       CaF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Cd_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Cd 2011-2013/1-12/1-31/0-23 E xy kg/m2/s CdF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Cd_F2 -                                                                                   -  -                        - -  -       CdF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Fe_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Fe 2011-2013/1-12/1-31/0-23 E xy kg/m2/s FeF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Fe_F2 -                                                                                   -  -                        - -  -       FeF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_K_F1  $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc PK 2011-2013/1-12/1-31/0-23 E xy kg/m2/s  KF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_K_F2  -                                                                                   -  -                        - -  -        KF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Mg_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Mg 2011-2013/1-12/1-31/0-23 E xy kg/m2/s MgF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Mg_F2 -                                                                                   -  -                        - -  -       MgF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Mn_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Mn 2011-2013/1-12/1-31/0-23 E xy kg/m2/s MnF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Mn_F2 -                                                                                   -  -                        - -  -       MnF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Ni_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Ni 2011-2013/1-12/1-31/0-23 E xy kg/m2/s NiF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Ni_F2 -                                                                                   -  -                        - -  -       NiF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Pb_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Pb 2011-2013/1-12/1-31/0-23 E xy kg/m2/s PbF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Pb_F2 -                                                                                   -  -                        - -  -       PbF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Si_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Si 2011-2013/1-12/1-31/0-23 E xy kg/m2/s SiF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Si_F2 -                                                                                   -  -                        - -  -       SiF2 1007/802 4 1\n0 NEI11_INLN_PTNONIPM_Ti_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_ptnonipm.nc Ti 2011-2013/1-12/1-31/0-23 E xy kg/m2/s TiF1 1007/801 4 1\n0 NEI11_INLN_PTNONIPM_Ti_F2 -                                                                                   -  -                        - -  -       TiF2 1007/802 4 1\n#\n# Oil & Gas\n#\n0 NEI11_INLN_PTOILGAS_Al_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Al 2011-2013/1-12/1-31/0-23 E xy kg/m2/s AlF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Al_F2 -                                                                                    -  -                        - -  -       AlF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_As_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc As 2011-2013/1-12/1-31/0-23 E xy kg/m2/s AsF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_As_F2 -                                                                                    -  -                        - -  -       AsF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Ca_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Ca 2011-2013/1-12/1-31/0-23 E xy kg/m2/s CaF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Ca_F2 -                                                                                    -  -                        - -  -       CaF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Cd_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Cd 2011-2013/1-12/1-31/0-23 E xy kg/m2/s CdF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Cd_F2 -                                                                                    -  -                        - -  -       CdF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Fe_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Fe 2011-2013/1-12/1-31/0-23 E xy kg/m2/s FeF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Fe_F2 -                                                                                    -  -                        - -  -       FeF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_K_F1  $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc PK 2011-2013/1-12/1-31/0-23 E xy kg/m2/s  KF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_K_F2  -                                                                                    -  -                        - -  -        KF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Mg_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Mg 2011-2013/1-12/1-31/0-23 E xy kg/m2/s MgF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Mg_F2 -                                                                                    -  -                        - -  -       MgF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Mn_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Mn 2011-2013/1-12/1-31/0-23 E xy kg/m2/s MnF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Mn_F2 -                                                                                    -  -                        - -  -       MnF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Ni_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Ni 2011-2013/1-12/1-31/0-23 E xy kg/m2/s NiF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Ni_F2 -                                                                                    -  -                        - -  -       NiF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Pb_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Pb 2011-2013/1-12/1-31/0-23 E xy kg/m2/s PbF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Pb_F2 -                                                                                    -  -                        - -  -       PbF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Si_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Si 2011-2013/1-12/1-31/0-23 E xy kg/m2/s SiF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Si_F2 -                                                                                    -  -                        - -  -       SiF2 1007/802 5 1\n0 NEI11_INLN_PTOILGAS_Ti_F1 $ROOT/TRACE_METALS/v2021-06/USA/2011/$MM/NEI11_stack_0.1x0.1_2013$MM$DD_pt_oilgas.nc Ti 2011-2013/1-12/1-31/0-23 E xy kg/m2/s TiF1 1007/801 5 1\n0 NEI11_INLN_PTOILGAS_Ti_F2 -                                                                                    -  -                        - -  -       TiF2 1007/802 5 1\n\n)))NEI2011_Metal\n\n)))EMISSIONS\n\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Metal fractions in anthropogenic fugitive dust (jxu, Nov 30, 2018)---\n# Based on IMPROVE and CSN observations\n#==============================================================================\n(((CA_Metal.or.NEI2011_Metal\n781 Fe_DST 0.0876    - - - xy 1 1\n782 Al_DST 0.0732    - - - xy 1 1\n783 Ti_DST 0.0062    - - - xy 1 1\n784 Mg_DST 0.0147    - - - xy 1 1\n785 K_DST 0.0445     - - - xy 1 1\n786 SI_DST 0.1992    - - - xy 1 1\n787 CA_DST 0.0673    - - - xy 1 1\n788 Mn_DST 0.0015    - - - xy 1 1\n789 As_DST 0.000067  - - - xy 1 1\n790 Cd_DST 0.0000067 - - - xy 1 1\n791 Pb_DST 0.00065   - - - xy 1 1\n792 Ni_DST 0.000146  - - - xy 1 1\n)))CA_Metal.or.NEI2011_Metal\n\n#==============================================================================\n# --- Coarse/Fine metal scaling factor (jxu, Dec 30, 2018)---\n# Based on Li Zhang JGR, 2015\n# bin sizes in radius (note PM2.5 is diameter, so bin1 + 38% bin2 = PM25; 62% bin2 + bin3 + bin4 = coarse)\n# bin1 (0.7µm)= 0.0766; bin2 (1.4µm) = 0.1924; bin3 (2.4µm)= 0.3491; bin4 (4.5µm) = 0.3819\n# note that bin3 in coarse actually includes the coarse fraction in bin2\n#==============================================================================\n(((CA_Metal.or.NEI2011_Metal\n800 CoarseFine   5.67  - - - xy 1 1\n801 bin1infine   0.518 - - - xy 1 1\n802 bin2infine   0.482 - - - xy 1 1\n803 bin3incoarse 0.55  - - - xy 1 1\n804 bin4incoarse 0.45  - - - xy 1 1\n)))CA_Metal.or.NEI2011_Metal\n\n)))EMISSIONS\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n(((EMISSIONS\n\n(((CA_Metal\n1002 CANADA_MASK $ROOT/MASKS/v2014-07/Canada_mask.geos.1x1.nc          MASK     2000/1/1/0 C xy unitless 1 -141/40/-52/85\n)))CA_Metal\n\n(((NEI2011_Metal\n1007 NEI11_MASK  $ROOT/MASKS/v2014-07/USA_LANDMASK_NEI2011_0.1x0.1.nc  LANDMASK 2000/1/1/0 C xy 1        1 -140/20/-50/60\n)))NEI2011_Metal\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.tagO3",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                ${RUNDIR_GCAP2_SCENARIO}\nGCAPVERTRES:                 ${RUNDIR_GCAP2_VERTRES}\nLogfile:                     *\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       true     ${RUNDIR_MET_AVAIL}\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       true\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> O3_PROD_LOSS           :       true     # 2010-2019\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n    --> OCEAN_O3_DRYDEP        :       true     # 1985\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- O3 production and loss rates ---\n#==============================================================================\n(((CHEMISTRY_INPUT\n(((O3_PROD_LOSS\n${RUNDIR_O3_PROD}\n${RUNDIR_O3_LOSS}\n)))O3_PROD_LOSS\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.Hg",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for the Hg simulation).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  Use the gitk browser to view the Git history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name               Spec ExtNr Cat Hier Dim  OutUnit  LongName\n\n###############################################################################\n#####   Hg0 emissions                                                     #####\n###############################################################################\nEmisHg0_Total      Hg0     -1    -1   -1   2   kg/m2/s  Hg0_emission_flux_from_all_sectors\nEmisHg0_Anthro     Hg0      0     1   -1   2   kg/m2/s  Hg0_emission_flux_from_anthropogenic\nEmisHg0_ASGM       Hg0      0     8   -1   2   kg/m2/s  Hg0_emission_flux_from_ASGM\nEmisHg0_BioBurn    Hg0      111  -1   -1   2   kg/m2/s  Hg0_emission_flux_from_biomass_burning\nEmisHg0_Natural    Hg0      0     3   -1   2   kg/m2/s  Hg0_emission_flux_from_natural_sources\n\n###############################################################################\n#####   Hg2 emissions                                                     #####\n###############################################################################\n# Note ASGM Hg2 emissions are 0, so anthro=total in default configuration\nEmisHgCl2_Anthro   HgCl2    0    -1   -1   2  kg/m2/s  HgCl2_emission_flux_from_anthropogenic\n\n###############################################################################\n#####   HgP emissions                                                     #####\n###############################################################################\n# Note ASGM Hg2 emissions are 0, so anthro=total in default configuration\nEmisHg2ClP_Anthro  Hg2ClP   0    -1   -1   2  kg/m2/s  Hg2ClP_emission_flux_from_anthropogenic\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.POPs",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for POPs simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  13 Mar 2019 - M. Sulprizio- Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name                Spec         ExtNr Cat Hier Dim OutUnit    LongName\nEmisPOPG              POPG_${RUNDIR_POP_SPC}     1002  -1  -1   2   kg/m2/s    Primary_emission_of_POPG\nEmisPOPPOCPO          POPPOCPO_${RUNDIR_POP_SPC} 1002  -1  -1   2   kg/m2/s    Primary_emission_of_POPPOCPO\nEmisPOPPBCPO          POPPBCPO_${RUNDIR_POP_SPC} 1002  -1  -1   2   kg/m2/s    Primary_emission_of_POPPBCPO\nEmisPOPGfromSoil      -1           1002  -1  -1   2   kg/m2/s    Secondary_emission_of_POPG_from_soil\nEmisPOPGfromLake      -1           1002  -1  -1   2   kg/m2/s    Secondary_emission_of_POPG_from_lakes\nEmisPOPGfromLeaf      -1           1002  -1  -1   2   kg/m2/s    Secondary_emission_of_POPG_from_leaves\nFluxPOPGfromSoilToAir -1           1002  -1  -1   2   ng/m2/day  Secondary_(positive)_flux_of_POPG_from_soils_to_air\nFluxPOPGfromAirToSoil -1           1002  -1  -1   2   ng/m2/day  Secondary_(negative)_flux_of_POPG_from_air_to_soils\nFluxPOPGfromLakeToAir -1           1002  -1  -1   2   ng/m2/day  Secondary_(positive)_flux_of_POPG_from_lakes_to_air\nFluxPOPGfromAirToLake -1           1002  -1  -1   2   ng/m2/day  Secondary_(negative)_flux_of_POPG_from_air_to_lakes\nFluxPOPGfromLeafToAir -1           1002  -1  -1   2   ng/m2/day  Secondary_(positive)_flux_of_POPG_from_leaves_to_air \nFluxPOPGfromAirtoLeaf -1           1002  -1  -1   2   ng/m2/day  Secondary_(negative)_flux_of_POPG_from_air_to_leaves\nFugacitySoilToAir     -1           1002  -1  -1   2   1          Fugacity_ratio_soil_to_air\nFugacityLakeToAir     -1           1002  -1  -1   2   1          Fugacity_ratio_soil_to_air\nFugacityLeafToAir     -1           1002  -1  -1   2   1          Fugacity_ratio__to_air\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.TransportTracers",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for TransportTracers simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name               Spec              ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####  Rn222 emissions                                                    #####\n###############################################################################\nEmisRn_Soil          Rn222             100    -1  -1   2   kg/m2/s\n\n###############################################################################\n#####  Be emissions                                                       #####\n###############################################################################\nEmisBe7_Cosmic       Be7               100    -1  -1   3   kg/m2/s\nEmisBe7s_Cosmic      Be7s              100    -1  -1   3   kg/m2/s\nEmisBe10_Cosmic      Be10              100    -1  -1   3   kg/m2/s\nEmisBe10s_Cosmic     Be10s             100    -1  -1   3   kg/m2/s\n\n###############################################################################\n#####  Transport tracer emissions                                         #####\n###############################################################################\nEmisSF6              SF6                -1    -1  -1   2   kg/m2/s\nEmisCH3I             CH3I               -1    -1  -1   2   kg/m2/s\nEmisCO_25            CO_25              -1    -1  -1   2   kg/m2/s\nEmisCO_50            CO_50              -1    -1  -1   2   kg/m2/s\n\n#EOC"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.aerosol",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for aerosol-only simulation).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#  30 Jan 2019 - R. Yantosca - Changed units to kg/m2/s\n#  08 Feb 2019 - R. Yantosca - Validated that all sectors sum to the total\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name             Spec  ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####  BCPI and BCPO emissions                                            ##### \n###############################################################################\nEmisBCPI_Total     BCPI   -1     -1  -1   3   kg/m2/s  BCPI_emission_flux_from_all_sectors\nEmisBCPI_Aircraft  BCPI   0      20  -1   3   kg/m2/s  BCPI_emission_flux_from_aircraft\nEmisBCPI_Anthro    BCPI   0      1   -1   3   kg/m2/s  BCPI_emission_flux_from_anthropogenic\nEmisBCPI_BioBurn   BCPI   111    -1  -1   2   kg/m2/s  BCPI_emission_flux_from_biomass_burning\nEmisBCPI_Ship      BCPI   0      10  -1   2   kg/m2/s  BCPI_emission_flux_from_ships\nEmisBCPO_Total     BCPO   -1     -1  -1   3   kg/m2/s  BCPO_emission_flux_from_all_sectors\nEmisBCPO_Anthro    BCPO   0      1   -1   3   kg/m2/s  BCPO_emission_flux_from_anthropogenic\nEmisBCPO_BioBurn   BCPO   111    -1  -1   2   kg/m2/s  BCPO_emission_flux_from_biomass_burning\nEmisBCPO_Ship      BCPO   0      10  -1   2   kg/m2/s  BCPO_emission_flux_from_ships\n\n###############################################################################\n#####  DMS emissions                                                      ##### \n###############################################################################\nEmisDMS_Ocean      DMS    101    -1  -1   2   kg/m2/s  DMS_emission_flux_from_ocean\n\n###############################################################################\n#####  Dust emissions                                                     ##### \n###############################################################################\n# NOTE: Uncomment EmisDST_Total if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n#EmisDST_Total         TDST      -1     -1  -1   2   kg/m2/s  Total_dust_emission_flux_from_natural_sources\nEmisDSTbin1_Total     DSTbin1   -1     -1  -1   2   kg/m2/s  DSTbin1_emission_flux_from_all_sectors\nEmisDSTbin1_Anthro    DSTbin1   0      1   -1   2   kg/m2/s  DSTbin1_emission_flux_from_anthropogenic\nEmisDSTbin1_Natural   DSTbin1   0      3   -1   2   kg/m2/s  DSTbin1_emission_flux_from_natural_sources\nEmisDSTbin2_Total     DSTbin2   -1     -1  -1   2   kg/m2/s  DSTbin2_emission_flux_from_all_sectors\nEmisDSTbin2_Anthro    DSTbin2   0      1   -1   2   kg/m2/s  DSTbin2_emission_flux_from_anthropogenic\nEmisDSTbin2_Natural   DSTbin2   0      3   -1   2   kg/m2/s  DSTbin2_emission_flux_from_natural_sources\nEmisDSTbin3_Total     DSTbin3   -1     -1  -1   2   kg/m2/s  DSTbin3_emission_flux_from_all_sectors\nEmisDSTbin3_Anthro    DSTbin3   0      1   -1   2   kg/m2/s  DSTbin3_emission_flux_from_anthropogenic\nEmisDSTbin3_Natural   DSTbin3   0      3   -1   2   kg/m2/s  DSTbin3_emission_flux_from_natural_sources\nEmisDSTbin4_Total     DSTbin4   -1     -1  -1   2   kg/m2/s  DSTbin4_emission_flux_from_all_sectors\nEmisDSTbin4_Anthro    DSTbin4   0      1   -1   2   kg/m2/s  DSTbin4_emission_flux_from_anthropogenic\nEmisDSTbin4_Natural   DSTbin4   0      3   -1   2   kg/m2/s  DSTbin4_emission_flux_from_natural_sources\nEmisDSTbin5_Natural   DSTbin5   0      3   -1   2   kg/m2/s  DSTbin5_emission_flux_from_natural_sources\nEmisDSTbin6_Natural   DSTbin6   0      3   -1   2   kg/m2/s  DSTbin6_emission_flux_from_natural_sources\nEmisDSTbin7_Natural   DSTbin7   0      3   -1   2   kg/m2/s  DSTbin7_emission_flux_from_natural_sources\n\n###############################################################################\n#####  LIMO emissions                                                     #####\n###############################################################################\nEmisLIMO_Biogenic  LIMO   0      3   -1   2   kg/m2/s  LIMO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPA emissions                                                     #####\n###############################################################################\nEmisMTPA_Total     MTPA   -1     -1  -1   3   kg/m2/s  MTPA_emission_flux_from_all_sectors\nEmisMTPA_BioBurn   MTPA   111    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biomass_burning\nEmisMTPA_Biogenic  MTPA   0      3   -1   2   kg/m2/s  MTPA_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPO emissions                                                     #####\n###############################################################################\nEmisMTPO_Biogenic  MTPO   0      3   -1   2   kg/m2/s  MTPO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  NH3 emissions                                                      #####\n###############################################################################\nEmisNH3_Total      NH3    -1     -1  -1   3   kg/m2/s  NH3_emission_flux_from_all_sectors\nEmisNH3_Anthro     NH3    0      1   -1   3   kg/m2/s  NH3_emission_flux_from_anthropogenic\nEmisNH3_BioBurn    NH3    111    -1  -1   2   kg/m2/s  NH3_emission_flux_from_biomass_burning\nEmisNH3_Natural    NH3    0      3   -1   2   kg/m2/s  NH3_emission_flux_from_natural_sources\nEmisNH3_Seabirds   NH3    0      30  -1   2   kg/m2/s  NH3_emission_flux_from_seabirds\nEmisNH3_Ship       NH3    0      10  -1   2   kg/m2/s  NH3_emission_flux_from_ships\n\n###############################################################################\n#####  OCPI and OCPO emissions                                            ##### \n###############################################################################\nEmisOCPI_Total     OCPI   -1     -1  -1   3   kg/m2/s  OCPI_emission_flux_from_all_sectors\nEmisOCPI_Aircraft  OCPI   0      20  -1   3   kg/m2/s  OCPI_emission_flux_from_aircraft\nEmisOCPI_Anthro    OCPI   0      1   -1   3   kg/m2/s  OCPI_emission_flux_from_anthropogenic\nEmisOCPI_BioBurn   OCPI   111    -1  -1   2   kg/m2/s  OCPI_emission_flux_from_biomass_burning\nEmisOCPI_Ship      OCPI   0      10  -1   2   kg/m2/s  OCPI_emission_flux_from_ships\nEmisOCPO_Total     OCPO   -1     -1  -1   3   kg/m2/s  OCPO_emission_flux_from_all_sectors\nEmisOCPO_Anthro    OCPO   0      1   -1   3   kg/m2/s  OCPO_emission_flux_from_anthropogenic\nEmisOCPO_BioBurn   OCPO   111    -1  -1   2   kg/m2/s  OCPO_emission_flux_from_biomass_burning\nEmisOCPO_Ship      OCPO   0      10  -1   2   kg/m2/s  OCPO_emission_flux_from_ships\n\n###############################################################################\n#####  pFe emissions                                                      ##### \n###############################################################################\nEmispFe_Total      pFe    -1     -1  -1   3   kg/m2/s  pFe_emission_flux_from_all_sectors\nEmispFe_Anthro     pFe    0      1   -1   3   kg/m2/s  pFe_emission_flux_from_anthropogenic\nEmispFe_BioBurn    pFe    111    -1  -1   2   kg/m2/s  pFe_emission_flux_from_GFED_inventory\nEmispFe_Ship       pFe    0      10  -1   2   kg/m2/s  pFe_emission_flux_from_ships\n\n###############################################################################\n#####  SESQ emissions                                                     #####\n###############################################################################\n# SESQ is not an active species in GEOS-Chem; disable for now\n#EmisSESQ_Biogenic  SESQ   0      3   -1   2   kg/m2/s  SESQ_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  Sea salt emissions                                                 ##### \n###############################################################################\nEmisSALA_Natural    SALA   0      3   -1   2   kg/m2/s  SALA_emission_flux_from_natural_sources\nEmisSALC_Natural    SALC   0      3   -1   2   kg/m2/s  SALC_emission_flux_from_natural_sources\nEmisSALAAL_Natural  SALAAL 0      3   -1   2   kg/m2/s  SALAAL_emission_flux_from_natural_sources\nEmisSALACL_Natural  SALACL 0      3   -1   2   kg/m2/s  SALACL_emission_flux_from_natural_sources\nEmisSALCAL_Natural  SALCAL 0      3   -1   2   kg/m2/s  SALCAL_emission_flux_from_natural_sources\nEmisSALCCL_Natural  SALCCL 0      3   -1   2   kg/m2/s  SALCCL_emission_flux_from_natural_sources\n\n###############################################################################\n#####  SO2 emissions                                                      ##### \n###############################################################################\nEmisSO2_Total      SO2    -1     -1  -1   3   kg/m2/s  SO2_emission_flux_from_all_sectors\nEmisSO2_Aircraft   SO2    0      20  -1   3   kg/m2/s  SO2_emission_flux_from_aircraft\nEmisSO2_Anthro     SO2    0      1   -1   3   kg/m2/s  SO2_emission_flux_from_anthropogenic\nEmisSO2_BioBurn    SO2    111    -1  -1   2   kg/m2/s  SO2_emission_flux_from_biomass_burning\nEmisSO2_VolcErupt  SO2    117    51  -1   3   kg/m2/s  SO2_emission_flux_from_eruptive_volcano\nEmisSO2_VolcDegas  SO2    117    52  -1   3   kg/m2/s  SO2_emission_flux_from_noneruptive_volcano\nEmisSO2_Ship       SO2    0      10  -1   2   kg/m2/s  SO2_emission_flux_from_ships\n\n###############################################################################\n#####  SO4 emissions                                                      ##### \n###############################################################################\nEmisSO4_Total      SO4    -1     -1  -1   3   kg/m2/s  SO4_emission_flux_from_all_sectors\nEmisSO4_Aircraft   SO4    0      20  -1   3   kg/m2/s  SO4_emission_flux_from_aircraft\nEmisSO4_Anthro     SO4    0      1   -1   3   kg/m2/s  SO4_emission_flux_from_anthropogenic\nEmisSO4_Ship       SO4    0      10  -1   2   kg/m2/s  SO4_emission_flux_from_ship\n\n###############################################################################\n#####  SOAP sources                                                       ##### \n###############################################################################\nEmisSOAP_Total     SOAP   -1     -1  -1   3   kg/m2/s  SOAP_emission_flux_from_all_sectors\nEmisSOAP_Aircraft  SOAP   0      20  -1   3   kg/m2/s  SOAP_emission_flux_from_aircraft\nEmisSOAP_Anthro    SOAP   0      1   -1   3   kg/m2/s  SOAP_emission_flux_from_anthropogenic\nEmisSOAP_Biogenic  SOAP   0      3   -1   2   kg/m2/s  SOAP_emission_flux_from_monoterpenes\nEmisSOAP_BioBurn   SOAP   111    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biomass_burning\nEmisSOAP_Ship      SOAP   0      10  -1   2   kg/m2/s  SOAP_emission_flux_from_ships\n\n###############################################################################\n#####  SOAS sources                                                       ##### \n###############################################################################\nEmisSOAS_Biogenic  SOAS   0      3   -1   2   kg/m2/s  SOAS_emission_flux_from_biogenic_sources\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.aerosol.onlineE",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO.\n#  (for aerosol-only simulations with ModelE meteorology).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#  30 Jan 2019 - R. Yantosca - Changed units to kg/m2/s\n#  08 Feb 2019 - R. Yantosca - Validated that all sectors sum to the total\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name             Spec  ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####  BCPI and BCPO emissions                                            ##### \n###############################################################################\nEmisBCPI_Total     BCPI   -1     -1  -1   3   kg/m2/s  BCPI_emission_flux_from_all_sectors\nEmisBCPI_Aircraft  BCPI   0      20  -1   3   kg/m2/s  BCPI_emission_flux_from_aircraft\nEmisBCPI_Anthro    BCPI   0      1   -1   3   kg/m2/s  BCPI_emission_flux_from_anthropogenic\nEmisBCPI_BioBurn   BCPI   111    -1  -1   2   kg/m2/s  BCPI_emission_flux_from_biomass_burning\nEmisBCPI_Ship      BCPI   0      10  -1   2   kg/m2/s  BCPI_emission_flux_from_ships\nEmisBCPO_Total     BCPO   -1     -1  -1   2   kg/m2/s  BCPO_emission_flux_from_all_sectors\nEmisBCPO_Anthro    BCPO   0      1   -1   2   kg/m2/s  BCPO_emission_flux_from_anthropogenic\nEmisBCPO_BioBurn   BCPO   111    -1  -1   2   kg/m2/s  BCPO_emission_flux_from_biomass_burning\nEmisBCPO_Ship      BCPO   0      10  -1   2   kg/m2/s  BCPO_emission_flux_from_ships\n\n###############################################################################\n#####  DMS emissions                                                      ##### \n###############################################################################\nEmisDMS_Ocean      DMS    101    -1  -1   2   kg/m2/s  DMS_emission_flux_from_ocean\n\n###############################################################################\n#####  Dust emissions                                                     ##### \n###############################################################################\nEmisDST1_Total     DST1   -1     -1  -1   2   kg/m2/s  DST1_emission_flux_from_all_sectors\nEmisDST1_Anthro    DST1   0      1   -1   2   kg/m2/s  DST1_emission_flux_from_anthropogenic\nEmisDST1_Natural   DST1   105    -1  -1   2   kg/m2/s  DST1_emission_flux_from_natural_sources\nEmisDST2_Natural   DST2   105    -1  -1   2   kg/m2/s  DST2_emission_flux_from_natural_sources\nEmisDST3_Natural   DST3   105    -1  -1   2   kg/m2/s  DST3_emission_flux_from_natural_sources\nEmisDST4_Natural   DST4   105    -1  -1   2   kg/m2/s  DST4_emission_flux_from_natural_sources\n\n###############################################################################\n#####  LIMO emissions                                                     #####\n###############################################################################\nEmisLIMO_Biogenic  LIMO   108    -1  -1   2   kg/m2/s  LIMO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPA emissions                                                     #####\n###############################################################################\nEmisMTPA_Total     MTPA   -1     -1  -1   3   kg/m2/s  MTPA_emission_flux_from_all_sectors\nEmisMTPA_BioBurn   MTPA   111    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biomass_burning\nEmisMTPA_Biogenic  MTPA   108    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPO emissions                                                     #####\n###############################################################################\nEmisMTPO_Biogenic  MTPO   108    -1  -1   2   kg/m2/s  MTPO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  NH3 emissions                                                      #####\n###############################################################################\nEmisNH3_Total      NH3    -1     -1  -1   2   kg/m2/s  NH3_emission_flux_from_all_sectors\nEmisNH3_Anthro     NH3    0      1   -1   2   kg/m2/s  NH3_emission_flux_from_anthropogenic\nEmisNH3_BioBurn    NH3    111    -1  -1   2   kg/m2/s  NH3_emission_flux_from_biomass_burning\nEmisNH3_Natural    NH3    0      3   -1   2   kg/m2/s  NH3_emission_flux_from_natural_sources\nEmisNH3_Seabirds   NH3    0      30  -1   2   kg/m2/s  NH3_emission_flux_from_seabirds\nEmisNH3_Ship       NH3    0      10  -1   2   kg/m2/s  NH3_emission_flux_from_ships\n\n###############################################################################\n#####  OCPI and OCPO emissions                                            ##### \n###############################################################################\nEmisOCPI_Total     OCPI   -1     -1  -1   3   kg/m2/s  OCPI_emission_flux_from_all_sectors\nEmisOCPI_Aircraft  OCPI   0      20  -1   3   kg/m2/s  OCPI_emission_flux_from_aircraft\nEmisOCPI_Anthro    OCPI   0      1   -1   2   kg/m2/s  OCPI_emission_flux_from_anthropogenic\nEmisOCPI_BioBurn   OCPI   111    -1  -1   2   kg/m2/s  OCPI_emission_flux_from_biomass_burning\nEmisOCPI_Ship      OCPI   0      10  -1   2   kg/m2/s  OCPI_emission_flux_from_ships\nEmisOCPO_Total     OCPO   -1     -1  -1   2   kg/m2/s  OCPO_emission_flux_from_all_sectors\nEmisOCPO_Anthro    OCPO   0      1   -1   2   kg/m2/s  OCPO_emission_flux_from_anthropogenic\nEmisOCPO_BioBurn   OCPO   111    -1  -1   2   kg/m2/s  OCPO_emission_flux_from_biomass_burning\nEmisOCPO_Ship      OCPO   0      10  -1   2   kg/m2/s  OCPO_emission_flux_from_ships\n\n###############################################################################\n#####  pFe emissions                                                      ##### \n###############################################################################\nEmispFe_Total      pFe    -1     -1  -1   3   kg/m2/s  pFe_emission_flux_from_all_sectors\nEmispFe_Anthro     pFe    0      1   -1   3   kg/m2/s  pFe_emission_flux_from_anthropogenic\nEmispFe_BioBurn    pFe    111    -1  -1   2   kg/m2/s  pFe_emission_flux_from_GFED_inventory\nEmispFe_Ship       pFe    0      10  -1   2   kg/m2/s  pFe_emission_flux_from_ships\n\n###############################################################################\n#####  SESQ emissions                                                     #####\n###############################################################################\n# SESQ is not an active species in GEOS-Chem; disable for now\n#EmisSESQ_Biogenic  SESQ   108    -1  -1   2   kg/m2/s  SESQ_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  Sea salt emissions                                                 ##### \n###############################################################################\nEmisSALA_Natural    SALA   107    -1  -1   2   kg/m2/s  SALA_emission_flux_from_natural_sources\nEmisSALC_Natural    SALC   107    -1  -1   2   kg/m2/s  SALC_emission_flux_from_natural_sources\nEmisSALAAL_Natural  SALAAL 107    -1  -1   2   kg/m2/s  SALAAL_emission_flux_from_natural_sources\nEmisSALACL_Natural  SALACL 107    -1  -1   2   kg/m2/s  SALACL_emission_flux_from_natural_sources\nEmisSALCAL_Natural  SALCAL 107    -1  -1   2   kg/m2/s  SALCAL_emission_flux_from_natural_sources\nEmisSALCCL_Natural  SALCCL 107    -1  -1   2   kg/m2/s  SALCCL_emission_flux_from_natural_sources\n\n###############################################################################\n#####  SO2 emissions                                                      ##### \n###############################################################################\nEmisSO2_Total      SO2    -1     -1  -1   3   kg/m2/s  SO2_emission_flux_from_all_sectors\nEmisSO2_Aircraft   SO2    0      20  -1   3   kg/m2/s  SO2_emission_flux_from_aircraft\nEmisSO2_Anthro     SO2    0      1   -1   3   kg/m2/s  SO2_emission_flux_from_anthropogenic\nEmisSO2_BioBurn    SO2    111    -1  -1   2   kg/m2/s  SO2_emission_flux_from_biomass_burning\nEmisSO2_VolcErupt  SO2    117    51  -1   3   kg/m2/s  SO2_emission_flux_from_eruptive_volcano\nEmisSO2_VolcDegas  SO2    117    52  -1   3   kg/m2/s  SO2_emission_flux_from_noneruptive_volcano\nEmisSO2_Ship       SO2    0      10  -1   2   kg/m2/s  SO2_emission_flux_from_ships\n\n###############################################################################\n#####  SO4 emissions                                                      ##### \n###############################################################################\nEmisSO4_Total      SO4    -1     -1  -1   3   kg/m2/s  SO4_emission_flux_from_all_sectors\nEmisSO4_Aircraft   SO4    0      20  -1   3   kg/m2/s  SO4_emission_flux_from_aircraft\nEmisSO4_Anthro     SO4    0      1   -1   3   kg/m2/s  SO4_emission_flux_from_anthropogenic\nEmisSO4_Ship       SO4    0      10  -1   2   kg/m2/s  SO4_emission_flux_from_ship\n\n###############################################################################\n#####  SOAP sources                                                       ##### \n###############################################################################\nEmisSOAP_Total     SOAP   -1     -1  -1   3   kg/m2/s  SOAP_emission_flux_from_all_sectors\nEmisSOAP_Aircraft  SOAP   0      20  -1   3   kg/m2/s  SOAP_emission_flux_from_aircraft\nEmisSOAP_Anthro    SOAP   0      1   -1   3   kg/m2/s  SOAP_emission_flux_from_anthropogenic\nEmisSOAP_Biogenic  SOAP   108    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_monoterpenes\nEmisSOAP_BioBurn   SOAP   111    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biomass_burning\nEmisSOAP_Ship      SOAP   0      10  -1   2   kg/m2/s  SOAP_emission_flux_from_ships\n\n###############################################################################\n#####  SOAS sources                                                       ##### \n###############################################################################\nEmisSOAS_Biogenic  SOAS   108    -1  -1   2   kg/m2/s  SOAS_emission_flux_from_biogenic_sources\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.carbon",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc\n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for carbon gases simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name               Spec  ExtNr  Cat Hier Dim  OutUnit  LongName\n\n###############################################################################\n#####  CH4 sources                                                        #####\n###############################################################################\nEmisCH4_Total         CH4     -1   -1   -1   2  kg/m2/s  CH4_emissions_from_all_sectors\nEmisCH4_Oil           CH4      0    1   -1   2  kg/m2/s  CH4_emissions_from_oil\nEmisCH4_Gas           CH4      0    2   -1   2  kg/m2/s  CH4_emissions_from_gas\nEmisCH4_Coal          CH4      0    3   -1   2  kg/m2/s  CH4_emissions_from_coal\nEmisCH4_Livestock     CH4      0    4   -1   2  kg/m2/s  CH4_emissions_from_livestock\nEmisCH4_Landfills     CH4      0    5   -1   2  kg/m2/s  CH4_emissions_from_landfills\nEmisCH4_Wastewater    CH4      0    6   -1   2  kg/m2/s  CH4_emissions_from_wastewater\nEmisCH4_Rice          CH4      0    7   -1   2  kg/m2/s  CH4_emissions_from_rice\nEmisCH4_OtherAnth     CH4      0    8   -1   2  kg/m2/s  CH4_emissions_from_other_anthropogenic_sources\nEmisCH4_BiomassBurn   CH4    111   -1   -1   2  kg/m2/s  CH4_emissions_from_biomass_burning\nEmisCH4_Wetlands      CH4      0   10   -1   2  kg/m2/s  CH4_emissions_from_wetlands\nEmisCH4_Seeps         CH4      0   11   -1   2  kg/m2/s  CH4_emissions_from_geological_seeps\nEmisCH4_Lakes         CH4      0   12   -1   2  kg/m2/s  CH4_emissions_from_lakes\nEmisCH4_Termites      CH4      0   13   -1   2  kg/m2/s  CH4_emissions_from_termites\nEmisCH4_SoilAbsorb    CH4      0   14   -1   2  kg/m2/s  CH4_emissions_from_soil_absorption\nEmisCH4_Reservoirs    CH4      0   15   -1   2  kg/m2/s  CH4_emissions_from_hydroelectric_reservoirs\n\n###############################################################################\n#####  CO sources                                                         #####\n###############################################################################\nEmisCO_Total          CO      -1   -1   -1   3  kg/m2/s  CO_emission_flux_from_all_sectors\nEmisCO_Aircraft       CO       0   20   -1   3  kg/m2/s  CO_emission_flux_from_aircraft\nEmisCO_Anthro         CO       0    1   -1   3  kg/m2/s  CO_emission_flux_from_anthropogenic\nEmisCO_BiomassBurn    CO     111   -1   -1   2  kg/m2/s  CO_emission_flux_from_biomass_burning\nEmisCO_Ship           CO       0   10   -1   2  kg/m2/s  CO_emission_flux_from_ships\n\n###############################################################################\n#####  CO2 sources                                                        #####\n###############################################################################\nEmisCO2_Total         CO2      0   -1   -1   3  kg/m2/s  CO2_total_emissions\nEmisCO2_FossilFuel    CO2      0    1   -1   2  kg/m2/s  CO2_anthropogenic_emissions\nEmisCO2_Ocean         CO2      0    2   -1   2  kg/m2/s  CO2_ocean_emissions\nEmisCO2_BalBiosph     CO2      0    3   -1   2  kg/m2/s  CO2_balanced_biosphere\nEmisCO2_NetTerrExch   CO2      0    5   -1   2  kg/m2/s  CO2_net_terrestrial_exchange\nEmisCO2_Ship          CO2      0    6   -1   2  kg/m2/s  CO2_ship_emissions\nEmisCO2_Aviation      CO2      0    7   -1   3  kg/m2/s  CO2_aviation_emissions\nEmisCO2_CO2SurfCorr   CO2      0    8   -1   2  kg/m2/s  CO2_surface_correction_for_CO_oxidation\nEmisCO2_BiomassBurn   CO2    111   -1   -1   2  kg/m2/s  CO2_biomass_burning_emissions_from_GFED4\n\n###############################################################################\n#####  OCS sources                                                        #####\n###############################################################################\nEmisOCS_Total         OCS      0   -1   -1   2  kg/m2/s  OCS_emission_flux_from_all_sectors\nEmisOCS_Anthro        OCS      0    1   -1   2  kg/m2/s  OCS_emission_flux_from_anthropogenic\nEmisOCS_BiomassBurn   OCS      0    2   -1   2  kg/m2/s  OCS_emission_flux_from_biomass_burning\nEmisOCS_MissingOcean  OCS      0    3   -1   2  kg/m2/s  OCS_emission_flux_from_missing_ocean\nEmisOCS_Ocean         OCS      0    4   -1   2  kg/m2/s  OCS_emission_flux_from_ocean\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc\n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for fullchem simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  The INVENTORY DIAGNOSTICS (starting with \"Inv\")  are only needed for\n#  benchmark simulations, and can be left commented out for production runs.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name             Spec   ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####   ACET emissions                                                    #####\n###############################################################################\nEmisACET_Total      ACET   -1     -1  -1   3   kg/m2/s  ACET_emission_flux_from_all_sectors\nEmisACET_BioBurn    ACET   111    -1  -1   2   kg/m2/s  ACET_emission_flux_from_biomass_burning\nEmisACET_Biogenic   ACET   0      4   -1   2   kg/m2/s  ACET_emission_flux_from_biogenic_sources\nEmisACET_Ocean      ACET   101    -1  -1   2   kg/m2/s  ACET_emission_flux_from_ocean\n\n###############################################################################\n#####  ACR emissions                                                      #####\n###############################################################################\nEmisACR_Total       ACR    -1     -1  -1   3   kg/m2/s  ACR_emission_flux_from_all_sectors\nEmisACR_BioBurn     ACR    111    -1  -1   2   kg/m2/s  ACR_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  ACTA emissions                                                     #####\n###############################################################################\nEmisACTA_Total      ACTA   -1     -1  -1   3   kg/m2/s  ACTA_emission_flux_from_all_sectors\nEmisACTA_BioBurn    ACTA   111    -1  -1   2   kg/m2/s  ACTA_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  ALD2 emissions                                                     #####\n###############################################################################\nEmisALD2_Total      ALD2   -1     -1  -1   3   kg/m2/s  ALD2_emission_flux_from_all_sectors\nEmisALD2_Anthro     ALD2   0      1   -1   3   kg/m2/s  ALD2_emission_flux_from_anthropogenic\nEmisALD2_BioBurn    ALD2   111    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_biomass_burning\nEmisALD2_Biogenic   ALD2   0      4   -1   2   kg/m2/s  ALD2_emission_flux_from_biogenic_sources\nEmisALD2_Ocean      ALD2   101    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_ocean\nEmisALD2_PlantDecay ALD2   0      3   -1   2   kg/m2/s  ALD2_emission_flux_from_decaying_plants\nEmisALD2_Ship       ALD2   0      10  -1   2   kg/m2/s  ALD2_emission_flux_from_ships\n\n###############################################################################\n#####  ALK4 emissions                                                     #####\n###############################################################################\nEmisALK4_Total     ALK4   -1     -1  -1   3   kg/m2/s  ALK4_emission_flux_from_all_sectors\nEmisALK4_Aircraft  ALK4   0      20  -1   3   kg/m2/s  ALK4_emission_flux_from_aircraft\nEmisALK4_Anthro    ALK4   0      1   -1   3   kg/m2/s  ALK4_emission_flux_from_anthropogenic\nEmisALK4_BioBurn   ALK4   111    -1  -1   2   kg/m2/s  ALK4_emission_flux_from_biomass_burning\nEmisALK4_Ship      ALK4   0      10  -1   2   kg/m2/s  ALK4_emission_flux_from_ships\n\n###############################################################################\n#####  ALK6 emissions                                                     #####\n###############################################################################\nEmisALK6_Total     ALK6   -1     -1  -1   3   kg/m2/s  ALK6_emission_flux_from_all_sectors\nEmisALK6_Anthro    ALK6   0      1   -1   3   kg/m2/s  ALK6_emission_flux_from_anthropogenic\nEmisALK6_Ship      ALK6   0      10  -1   2   kg/m2/s  ALK6_emission_flux_from_ships\n\n###############################################################################\n#####  BCPI and BCPO emissions                                            #####\n###############################################################################\nEmisBCPI_Total     BCPI   -1     -1  -1   3   kg/m2/s  BCPI_emission_flux_from_all_sectors\nEmisBCPI_Aircraft  BCPI   0      20  -1   3   kg/m2/s  BCPI_emission_flux_from_aircraft\nEmisBCPI_Anthro    BCPI   0      1   -1   3   kg/m2/s  BCPI_emission_flux_from_anthropogenic\nEmisBCPI_BioBurn   BCPI   111    -1  -1   2   kg/m2/s  BCPI_emission_flux_from_biomass_burning\nEmisBCPI_Ship      BCPI   0      10  -1   2   kg/m2/s  BCPI_emission_flux_from_ships\nEmisBCPO_Total     BCPO   -1     -1  -1   3   kg/m2/s  BCPO_emission_flux_from_all_sectors\nEmisBCPO_Anthro    BCPO   0      1   -1   3   kg/m2/s  BCPO_emission_flux_from_anthropogenic\nEmisBCPO_BioBurn   BCPO   111    -1  -1   2   kg/m2/s  BCPO_emission_flux_from_biomass_burning\nEmisBCPO_Ship      BCPO   0      10  -1   2   kg/m2/s  BCPO_emission_flux_from_ships\n\n###############################################################################\n#####  BENZ emissions                                                     #####\n###############################################################################\nEmisBENZ_Total     BENZ   -1     -1  -1   3   kg/m2/s  BENZ_emission_flux_from_all_sectors\nEmisBENZ_Anthro    BENZ   0      1   -1   3   kg/m2/s  BENZ_emission_flux_from_anthropogenic\nEmisBENZ_BioBurn   BENZ   111    -1  -1   2   kg/m2/s  BENZ_emission_flux_from_biomass_burning\nEmisBENZ_Ship      BENZ   0      10  -1   2   kg/m2/s  BENZ_emission_flux_from_ships\n\n###############################################################################\n#####  C2H2 emissions                                                    ######\n###############################################################################\nEmisC2H2_Total     C2H2   -1     -1  -1   3   kg/m2/s  C2H2_emission_flux_from_all_sectors\nEmisC2H2_Anthro    C2H2   0      1   -1   3   kg/m2/s  C2H2_emission_flux_from_anthropogenic\nEmisC2H2_BioBurn   C2H2   111    -1  -1   2   kg/m2/s  C2H2_emission_flux_from_biomass_burning\nEmisC2H2_Ship      C2H2   0      10  -1   2   kg/m2/s  C2H2_emission_flux_from_ships\n\n###############################################################################\n#####  C2H4 emissions                                                    ######\n###############################################################################\nEmisC2H4_Total     C2H4   -1     -1  -1   3   kg/m2/s  C2H4_emission_flux_from_all_sectors\nEmisC2H4_Anthro    C2H4   0      1   -1   3   kg/m2/s  C2H4_emission_flux_from_anthropogenic\nEmisC2H4_BioBurn   C2H4   111    -1  -1   2   kg/m2/s  C2H4_emission_flux_from_biomass_burning\nEmisC2H4_Biogenic  C2H4   0      4   -1   2   kg/m2/s  C2H4_emission_flux_from_biogenic_sources\nEmisC2H4_Ship      C2H4   0      10  -1   2   kg/m2/s  C2H4_emission_flux_from_ships\n\n###############################################################################\n#####  C2H6 emissions                                                    ######\n###############################################################################\nEmisC2H6_Total     C2H6   -1     -1  -1   3   kg/m2/s  C2H6_emission_flux_from_all_sectors\nEmisC2H6_Aircraft  C2H6   0      20  -1   3   kg/m2/s  C2H6_emission_flux_from_aircraft\nEmisC2H6_Anthro    C2H6   0      1   -1   3   kg/m2/s  C2H6_emission_flux_from_anthropogenic\nEmisC2H6_BioBurn   C2H6   111    -1  -1   2   kg/m2/s  C2H6_emission_flux_from_biomass_burning\nEmisC2H6_Ship      C2H6   0      10  -1   2   kg/m2/s  C2H6_emission_flux_from_ships\n\n###############################################################################\n#####  C3H8 emissions                                                     #####\n###############################################################################\nEmisC3H8_Total     C3H8   -1     -1  -1   3   kg/m2/s  C3H8_emission_flux_from_all_sectors\nEmisC3H8_Aircraft  C3H8   0      20  -1   3   kg/m2/s  C3H8_emission_flux_from_aircraft\nEmisC3H8_Anthro    C3H8   0      1   -1   3   kg/m2/s  C3H8_emission_flux_from_anthropogenic\nEmisC3H8_BioBurn   C3H8   111    -1  -1   2   kg/m2/s  C3H8_emission_flux_from_biomass_burning\nEmisC3H8_Ship      C3H8   0      10  -1   2   kg/m2/s  C3H8_emission_flux_from_ships\n\n###############################################################################\n#####  C4H6 emissions                                                     #####\n###############################################################################\nEmisC4H6_Total     C4H6   -1     -1  -1   3   kg/m2/s  C4H6_emission_flux_from_all_sectors\nEmisC4H6_BioBurn   C4H6   111    -1  -1   2   kg/m2/s  C4H6_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  CH2Br2 emissions                                                   #####\n###############################################################################\nEmisCH2Br2_Ocean   CH2Br2 0      1   -1   2   kg/m2/s  CH2Br2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2I2 emissions                                                   #####\n###############################################################################\nEmisCH2I2_Ocean    CH2I2  0     1    -1   2   kg/m2/s  CH2I2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2ICl emissions                                                   #####\n###############################################################################\nEmisCH2ICl_Ocean   CH2ICl 0     1    -1   2   kg/m2/s  CH2ICl_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2IBr emissions                                                   #####\n###############################################################################\nEmisCH2IBr_Ocean   CH2IBr 0     1    -1   2   kg/m2/s  CH2IBr_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2O emissions                                                     #####\n###############################################################################\nEmisCH2O_Total     CH2O   -1     -1  -1   3   kg/m2/s  CH2O_emission_flux_from_all_sectors\nEmisCH2O_Aircraft  CH2O   0      20  -1   3   kg/m2/s  CH2O_emission_flux_from_aircraft\nEmisCH2O_Anthro    CH2O   0      1   -1   3   kg/m2/s  CH2O_emission_flux_from_anthropogenic\nEmisCH2O_BioBurn   CH2O   111    -1  -1   2   kg/m2/s  CH2O_emission_flux_from_biomass_burning\nEmisCH2O_Ship      CH2O   0      10  -1   2   kg/m2/s  CH2O_emission_flux_from_ships\n\n###############################################################################\n#####  CH3I emissions                                                   #####\n###############################################################################\nEmisCH3I_Ocean     CH3I   0     1    -1   2   kg/m2/s  CH3I_emission_flux_from_ocean\n\n###############################################################################\n#####  CH4 emissions                                                      #####\n###############################################################################\n# Zero for now, so comment out\n#EmisCH4_Total      CH4    -1     -1  -1   3   kg/m2/s  CH4_emission_flux_from_all_sectors\n#EmisCH4_Anthro     CH4    0      1   -1   3   kg/m2/s  CH4_emission_flux_from_anthropogenic\n#EmisCH4_BioBurn    CH4    0      5   -1   2   kg/m2/s  CH4_emission_flux_from_biomass_burning\n#EmisCH4_Ship       CH4    0      10  -1   2   kg/m2/s  CH4_emission_flux_from_ships\n\n###############################################################################\n#####  CHBr3 emissions                                                    #####\n###############################################################################\nEmisCHBr3_Ocean    CHBr3  0      1   -1   2   kg/m2/s  CHBr3_emission_flux_from_ocean\n\n###############################################################################\n#####  CO emissions                                                       #####\n###############################################################################\nEmisCO_Total       CO     -1     -1  -1   3   kg/m2/s  CO_emission_flux_from_all_sectors\nEmisCO_Aircraft    CO     0      20  -1   3   kg/m2/s  CO_emission_flux_from_aircraft\nEmisCO_Anthro      CO     0      1   -1   3   kg/m2/s  CO_emission_flux_from_anthropogenic\nEmisCO_BioBurn     CO     111    -1  -1   2   kg/m2/s  CO_emission_flux_from_biomass_burning\nEmisCO_Ship        CO     0      10  -1   2   kg/m2/s  CO_emission_flux_from_ships\n\n###############################################################################\n#####  CO2 emissions                                                      #####\n###############################################################################\nEmisCO2_Total      CO2    -1     -1  -1   3   kg/m2/s  CO2_emission_flux_from_all_sectors\nEmisCO2_Anthro     CO2    0      1   -1   3   kg/m2/s  CO2_emission_flux_from_anthropogenic\nEmisCO2_BioBurn    CO2    0      5   -1   2   kg/m2/s  CO2_emission_flux_from_biomass_burning\nEmisCO2_Ship       CO2    0      10  -1   2   kg/m2/s  CO2_emission_flux_from_ships\n\n###############################################################################\n#####  DMS emissions                                                      #####\n###############################################################################\nEmisDMS_Ocean      DMS    101    -1  -1   2   kg/m2/s  DMS_emission_flux_from_ocean\n\n###############################################################################\n#####  Dust emissions                                                     #####\n###############################################################################\n# NOTE: Uncomment EmisDST_Total if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n#EmisDST_Total         TDST      -1     -1  -1   2   kg/m2/s  Total_dust_emission_flux_from_natural_sources\nEmisDSTbin1_Total     DSTbin1   -1     -1  -1   2   kg/m2/s  DSTbin1_emission_flux_from_all_sectors\nEmisDSTbin1_Anthro    DSTbin1   0      1   -1   2   kg/m2/s  DSTbin1_emission_flux_from_anthropogenic\nEmisDSTbin1_Natural   DSTbin1   0      3   -1   2   kg/m2/s  DSTbin1_emission_flux_from_natural_sources\nEmisDSTbin2_Total     DSTbin2   -1     -1  -1   2   kg/m2/s  DSTbin2_emission_flux_from_all_sectors\nEmisDSTbin2_Anthro    DSTbin2   0      1   -1   2   kg/m2/s  DSTbin2_emission_flux_from_anthropogenic\nEmisDSTbin2_Natural   DSTbin2   0      3   -1   2   kg/m2/s  DSTbin2_emission_flux_from_natural_sources\nEmisDSTbin3_Total     DSTbin3   -1     -1  -1   2   kg/m2/s  DSTbin3_emission_flux_from_all_sectors\nEmisDSTbin3_Anthro    DSTbin3   0      1   -1   2   kg/m2/s  DSTbin3_emission_flux_from_anthropogenic\nEmisDSTbin3_Natural   DSTbin3   0      3   -1   2   kg/m2/s  DSTbin3_emission_flux_from_natural_sources\nEmisDSTbin4_Total     DSTbin4   -1     -1  -1   2   kg/m2/s  DSTbin4_emission_flux_from_all_sectors\nEmisDSTbin4_Anthro    DSTbin4   0      1   -1   2   kg/m2/s  DSTbin4_emission_flux_from_anthropogenic\nEmisDSTbin4_Natural   DSTbin4   0      3   -1   2   kg/m2/s  DSTbin4_emission_flux_from_natural_sources\nEmisDSTbin5_Natural   DSTbin5   0      3   -1   2   kg/m2/s  DSTbin5_emission_flux_from_natural_sources\nEmisDSTbin6_Natural   DSTbin6   0      3   -1   2   kg/m2/s  DSTbin6_emission_flux_from_natural_sources\nEmisDSTbin7_Natural   DSTbin7   0      3   -1   2   kg/m2/s  DSTbin7_emission_flux_from_natural_sources\n\n###############################################################################\n#####  EOH emissions                                                      #####\n###############################################################################\nEmisEOH_Total      EOH    -1     -1  -1   3   kg/m2/s  EOH_emission_flux_from_all_sectors\nEmisEOH_Anthro     EOH    0      1   -1   3   kg/m2/s  EOH_emission_flux_from_anthropogenic\nEmisEOH_BioBurn    EOH    111    -1  -1   2   kg/m2/s  EOH_emission_flux_from_biomass_burning\nEmisEOH_Biogenic   EOH    0      4   -1   2   kg/m2/s  EOH_emission_flux_from_biogenic_sources\nEmisEOH_PlantDecay EOH    0      3   -1   2   kg/m2/s  EOH_emission_flux_from_decaying_plants\nEmisEOH_Ship       EOH    0      10  -1   2   kg/m2/s  EOH_emission_flux_from_ships\n\n###############################################################################\n#####  ETNO3 emissions                                                    #####\n###############################################################################\nEmisETNO3_Ocean    ETNO3  101    -1  -1   2   kg/m2/s  ETNO3_emission_flux_from_ocean\n\n###############################################################################\n#####  FURA emissions                                                      #####\n###############################################################################\nEmisFURA_Total     FURA    -1    -1  -1   3   kg/m2/s  FURA_emission_flux_from_all_sectors\nEmisFURA_BioBurn   FURA   111    -1  -1   2   kg/m2/s  FURA_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  GLYX emissions                                                     #####\n###############################################################################\nEmisGLYX_Total     GLYX   -1     -1  -1   3   kg/m2/s  GLYX_emission_flux_from_all_sectors\nEmisGLYX_BioBurn   GLYX   111    -1  -1   2   kg/m2/s  GLYX_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  H2O emissions                                                      #####\n###############################################################################\nEmisH2O_Aircraft   H2O    0      20  -1   3   kg/m2/s  H2O_emission_flux_from_aircraft\n\n###############################################################################\n#####  HCl emissions                                                      #####\n###############################################################################\nEmisHCl_Total      HCl    0      -1  -1   3   kg/m2/s  HCl_emission_flux_from_all_sectors\nEmisHCl_Anthro     HCl    0      1   -1   3   kg/m2/s  HCl_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  HCOOH sources                                                      #####\n###############################################################################\nEmisHCOOH_Total    HCOOH  -1     -1  -1   3   kg/m2/s  HCOOH_emission_flux_from_all_sectors\nEmisHCOOH_Anthro   HCOOH  0      1   -1   3   kg/m2/s  HCOOH_emission_flux_from_anthropogenic\nEmisHCOOH_BioBurn  HCOOH  111    -1  -1   2   kg/m2/s  HCOOH_emission_flux_from_biomass_burning\nEmisHCOOH_Ship     HCOOH  0      10  -1   2   kg/m2/s  HCOOH_emission_flux_from_ship\n\n###############################################################################\n#####  HNO3 emissions                                                     #####\n###############################################################################\nEmisHNO3_Ship      HNO3   102    -1  -1   2   kg/m2/s  HNO3_emission_flux_from_ships\n\n###############################################################################\n#####  HONO emissions                                                     #####\n###############################################################################\nEmisHONO_Aircraft  HONO   0      20  -1   3   kg/m2/s  HONO_emission_flux_from_aircraft\n\n###############################################################################\n#####  ISOP emissions                                                     #####\n###############################################################################\nEmisISOP_Total     ISOP   -1     -1  -1   3   kg/m2/s  ISOP_emission_flux_from_all_sectors\nEmisISOP_BioBurn   ISOP   111    -1  -1   2   kg/m2/s  ISOP_emission_flux_from_biomass_burning\nEmisISOP_Biogenic  ISOP   0      4   -1   2   kg/m2/s  ISOP_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  LIMO emissions                                                     #####\n###############################################################################\nEmisLIMO_Biogenic  LIMO   0      4   -1   2   kg/m2/s  LIMO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MACR emissions                                                     #####\n###############################################################################\nEmisMACR_Total     MACR   -1     -1  -1   3   kg/m2/s  MACR_emission_flux_from_all_sectors\nEmisMACR_Aircraft  MACR   0      20  -1   3   kg/m2/s  MACR_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  MEK emissions                                                      #####\n###############################################################################\nEmisMEK_Total      MEK    -1     -1  -1   3   kg/m2/s  MEK_emission_flux_from_all_sectors\nEmisMEK_Anthro     MEK    0      1   -1   3   kg/m2/s  MEK_emission_flux_from_anthropogenic\nEmisMEK_BioBurn    MEK    111    -1  -1   2   kg/m2/s  MEK_emission_flux_from_biomass_burning\nEmisMEK_Ship       MEK    0      10  -1   2   kg/m2/s  MEK_emission_flux_from_ships\n\n###############################################################################\n#####  MENO3 emissions                                                    #####\n###############################################################################\nEmisMENO3_Ocean    MENO3  101    -1  -1   2   kg/m2/s  MENO3_emission_flux_from_ocean\n\n###############################################################################\n#####  MGLY emissions                                                     #####\n###############################################################################\nEmisMGLY_Total     MGLY   -1     -1  -1   3   kg/m2/s  MGLY_emission_flux_from_all_sectors\nEmisMGLY_BioBurn   MGLY   111    -1  -1   2   kg/m2/s  MGLY_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  MOH emissions                                                      #####\n###############################################################################\nEmisMOH_Total      MOH    -1     -1  -1   3   kg/m2/s  MOH_emission_flux_from_all_sectors\nEmisMOH_Anthro     MOH    0      1   -1   3   kg/m2/s  MOH_emission_flux_from_anthropogenic\nEmisMOH_BioBurn    MOH    111    -1  -1   2   kg/m2/s  MOH_emission_flux_from_biomass_burning\nEmisMOH_Biogenic   MOH    0      4   -1   2   kg/m2/s  MOH_emission_flux_from_biogenic_sources\nEmisMOH_Ocean      MOH    101    -1  -1   2   kg/m2/s  MOH_emission_flux_from_ocean\nEmisMOH_Ship       MOH    0      10  -1   2   kg/m2/s  MOH_emission_flux_from_ships\n\n###############################################################################\n#####  MTPA emissions                                                     #####\n###############################################################################\nEmisMTPA_Total     MTPA   -1     -1  -1   3   kg/m2/s  MTPA_emission_flux_from_all_sectors\nEmisMTPA_BioBurn   MTPA   111    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biomass_burning\nEmisMTPA_Biogenic  MTPA   0      4   -1   2   kg/m2/s  MTPA_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPO emissions                                                     #####\n###############################################################################\nEmisMTPO_Total     MTPO   -1     -1  -1   3   kg/m2/s  MTPO_emission_flux_from_all_sectors\nEmisMTPO_Biogenic  MTPO   0      4   -1   2   kg/m2/s  MTPO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MVK emissions                                                      #####\n###############################################################################\nEmisMVK_Total     MVK    -1     -1  -1   3   kg/m2/s  MVK_emission_flux_from_all_sectors\nEmisMVK_BioBurn   MVK    111    -1  -1   2   kg/m2/s  MVK_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NAP emissions                                                      #####\n###############################################################################\nEmisNAP_Total      NAP    -1     -1  -1   3   kg/m2/s  NAP_emission_flux_from_all_sectors\nEmisNAP_Anthro     NAP    0      1   -1   3   kg/m2/s  NAP_emission_flux_from_anthropogenic\nEmisNAP_BioBurn    NAP    111    -1  -1   2   kg/m2/s  NAP_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NH3 emissions                                                      #####\n###############################################################################\nEmisNH3_Total      NH3    -1     -1  -1   3   kg/m2/s  NH3_emission_flux_from_all_sectors\nEmisNH3_Anthro     NH3    0      1   -1   3   kg/m2/s  NH3_emission_flux_from_anthropogenic\nEmisNH3_BioBurn    NH3    111    -1  -1   2   kg/m2/s  NH3_emission_flux_from_biomass_burning\nEmisNH3_Natural    NH3    0      3   -1   2   kg/m2/s  NH3_emission_flux_from_natural_sources\nEmisNH3_Seabirds   NH3    0      30  -1   2   kg/m2/s  NH3_emission_flux_from_seabirds\nEmisNH3_Ship       NH3    0      10  -1   2   kg/m2/s  NH3_emission_flux_from_ships\n\n###############################################################################\n#####  NO emissions                                                       #####\n#####                                                                     #####\n##### - Separate fertilizer NOx emissions are only available when the     #####\n#####   SoilNOx extension is enabled                                      #####\n###############################################################################\nEmisNO_Total       NO     -1     -1  -1   3   kg/m2/s  NO_emission_flux_from_all_sectors\nEmisNO_Aircraft    NO     0      20  -1   3   kg/m2/s  NO_emission_flux_from_aircraft\nEmisNO_Anthro      NO     0      1   -1   3   kg/m2/s  NO_emission_flux_from_anthropogenic\nEmisNO_BioBurn     NO     111    -1  -1   2   kg/m2/s  NO_emission_flux_from_biomass_burning\nEmisNO_Lightning   NO     103    -1  -1   3   kg/m2/s  NO_emission_flux_from_lightning\nEmisNO_Ship        NO     102    -1  -1   2   kg/m2/s  NO_emission_flux_from_ships\nEmisNO_Soil        NO     0      3   -1   2   kg/m2/s  NO_emission_flux_from_soil_including_fertilizer\n#EmisNO_Fert        -1     104    -1  -1   2   kg/m2/s  NO_emission_flux_from_fertilizer_only\n\n###############################################################################\n#####  NO2 emissions                                                      #####\n###############################################################################\nEmisNO2_Total      NO2    -1     -1  -1   3   kg/m2/s  NO2_emission_flux_from_all_sectors\nEmisNO2_Aircraft   NO2    0      20  -1   3   kg/m2/s  NO2_emission_flux_from_aircraft\nEmisNO2_Ship       NO2    102    -1  -1   2   kg/m2/s  NO2_emission_flux_from_ships\n\n###############################################################################\n#####  O3 emissions                                                       #####\n###############################################################################\nEmisO3_Ship        O3     102    -1  -1   2   kg/m2/s  O3_emission_flux_from_ships\n\n###############################################################################\n#####  OCPI and OCPO emissions                                            #####\n###############################################################################\nEmisOCPI_Total     OCPI   -1     -1  -1   3   kg/m2/s  OCPI_emission_flux_from_all_sectors\nEmisOCPI_Aircraft  OCPI   0      20  -1   3   kg/m2/s  OCPI_emission_flux_from_aircraft\nEmisOCPI_Anthro    OCPI   0      1   -1   3   kg/m2/s  OCPI_emission_flux_from_anthropogenic\nEmisOCPI_BioBurn   OCPI   111    -1  -1   2   kg/m2/s  OCPI_emission_flux_from_biomass_burning\nEmisOCPI_Ship      OCPI   0      10  -1   2   kg/m2/s  OCPI_emission_flux_from_ships\nEmisOCPO_Total     OCPO   -1     -1  -1   3   kg/m2/s  OCPO_emission_flux_from_all_sectors\nEmisOCPO_Anthro    OCPO   0      1   -1   3   kg/m2/s  OCPO_emission_flux_from_anthropogenic\nEmisOCPO_BioBurn   OCPO   111    -1  -1   2   kg/m2/s  OCPO_emission_flux_from_biomass_burning\nEmisOCPO_Ship      OCPO   0      10  -1   2   kg/m2/s  OCPO_emission_flux_from_ships\n\n###############################################################################\n#####  pFe emissions                                                      #####\n###############################################################################\nEmispFe_Total      pFe    -1     -1  -1   3   kg/m2/s  pFe_emission_flux_from_all_sectors\nEmispFe_Anthro     pFe    0      1   -1   3   kg/m2/s  pFe_emission_flux_from_anthropogenic\nEmispFe_Ship       pFe    0      10  -1   2   kg/m2/s  pFe_emission_flux_from_ships\n\n###############################################################################\n#####  PHEN emissions                                                      #####\n###############################################################################\nEmisPHEN_Total     PHEN    -1    -1  -1   3   kg/m2/s  PHEN_emission_flux_from_all_sectors\nEmisPHEN_BioBurn   PHEN   111    -1  -1   2   kg/m2/s  PHEN_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  POG1 and POG2 emissions                                            #####\n###############################################################################\nEmisPOG1_Total     POG1   -1     -1  -1   3   kg/m2/s  POG1_emission_flux_from_all_sectors\nEmisPOG1_Anthro    POG1   0      1   -1   3   kg/m2/s  POG1_emission_flux_from_anthropogenic\nEmisPOG1_BioBurn   POG1   111    -1  -1   2   kg/m2/s  POG1_emission_flux_from_GFED_inventory\nEmisPOG2_Total     POG2   -1     -1  -1   3   kg/m2/s  POG2_emission_flux_from_all_sectors\nEmisPOG2_Anthro    POG2   0      1   -1   3   kg/m2/s  POG2_emission_flux_from_anthropogenic\nEmisPOG2_BioBurn   POG2   111    -1  -1   2   kg/m2/s  POG2_emission_flux_from_GFED_inventory\n\n###############################################################################\n#####  PRPE emissions                                                     #####\n###############################################################################\nEmisPRPE_Total     PRPE   -1     -1  -1   3   kg/m2/s  PRPE_emission_flux_from_all_sectors\nEmisPRPE_Aircraft  PRPE   0      20  -1   3   kg/m2/s  PRPE_emission_flux_from_aircraft\nEmisPRPE_Anthro    PRPE   0      1   -1   3   kg/m2/s  PRPE_emission_flux_from_anthropogenic\nEmisPRPE_BioBurn   PRPE   111    -1  -1   2   kg/m2/s  PRPE_emission_flux_from_biomass_burning\nEmisPRPE_Biogenic  PRPE   0      4   -1   2   kg/m2/s  PRPE_emission_flux_from_biogenic_sources\nEmisPRPE_Ship      PRPE   0      10  -1   2   kg/m2/s  PRPE_emission_flux_from_ships\n\n###############################################################################\n#####  RCHO emissions                                                     #####\n###############################################################################\nEmisRCHO_Total     RCHO   -1     -1  -1   3   kg/m2/s  RCHO_emission_flux_from_all_sectors\nEmisRCHO_Aircraft  RCHO   0      20  -1   3   kg/m2/s  RCHO_emission_flux_from_aircraft\nEmisRCHO_BioBurn   RCHO   111    -1  -1   2   kg/m2/s  RCHO_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  SESQ emissions                                                     #####\n###############################################################################\n# SESQ is not an active species in GEOS-Chem; disable for now\n#EmisSESQ_Biogenic  SESQ   0      4   -1   2   kg/m2/s  SESQ_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  Sea salt emissions                                                 #####\n###############################################################################\nEmisSALA_Natural     SALA  0      3   -1   2   kg/m2/s  SALA_emission_flux_from_natural_sources\nEmisBrSALA_Natural BrSALA  0      3   -1   2   kg/m2/s  BrSALA_emission_flux_from_natural_sources\nEmisSALAAL_Natural SALAAL  0      3   -1   2   kg/m2/s  SALAAL_emission_flux_from_natural_sources\nEmisSALACL_Natural SALACL  0      3   -1   2   kg/m2/s  SALACL_emission_flux_from_natural_sources\nEmisSALC_Natural     SALC  0      3   -1   2   kg/m2/s  SALC_emission_flux_from_natural_sources\nEmisBrSALC_Natural BrSALC  0      3   -1   2   kg/m2/s  BrSALC_emission_flux_from_natural_sources\nEmisSALCAL_Natural SALCAL  0      3   -1   2   kg/m2/s  SALCAL_emission_flux_from_natural_sources\nEmisSALCCL_Natural SALCCL  0      3   -1   2   kg/m2/s  SALCCL_emission_flux_from_natural_sources\n\n###############################################################################\n#####  SO2 emissions                                                      #####\n###############################################################################\nEmisSO2_Total      SO2    -1     -1  -1   3   kg/m2/s  SO2_emission_flux_from_all_sectors\nEmisSO2_Aircraft   SO2    0      20  -1   3   kg/m2/s  SO2_emission_flux_from_aircraft\nEmisSO2_Anthro     SO2    0      1   -1   3   kg/m2/s  SO2_emission_flux_from_anthropogenic\nEmisSO2_BioBurn    SO2    111    -1  -1   2   kg/m2/s  SO2_emission_flux_from_biomass_burning\nEmisSO2_VolcErupt  SO2    117    51  -1   3   kg/m2/s  SO2_emission_flux_from_eruptive_volcano\nEmisSO2_VolcDegas  SO2    117    52  -1   3   kg/m2/s  SO2_emission_flux_from_noneruptive_volcano\nEmisSO2_Ship       SO2    0      10  -1   2   kg/m2/s  SO2_emission_flux_from_ships\n\n###############################################################################\n#####  SO4 emissions                                                      #####\n###############################################################################\nEmisSO4_Total      SO4    -1     -1  -1   3   kg/m2/s  SO4_emission_flux_from_all_sectors\nEmisSO4_Aircraft   SO4    0      20  -1   3   kg/m2/s  SO4_emission_flux_from_aircraft\nEmisSO4_Anthro     SO4    0      1   -1   3   kg/m2/s  SO4_emission_flux_from_anthropogenic\nEmisSO4_Ship       SO4    0      10  -1   2   kg/m2/s  SO4_emission_flux_from_ship\n\n###############################################################################\n#####  SOAP sources                                                       #####\n###############################################################################\nEmisSOAP_Total     SOAP   -1     -1  -1   3   kg/m2/s  SOAP_emission_flux_from_all_sectors\nEmisSOAP_Aircraft  SOAP   0      20  -1   3   kg/m2/s  SOAP_emission_flux_from_aircraft\nEmisSOAP_Anthro    SOAP   0      1   -1   3   kg/m2/s  SOAP_emission_flux_from_anthropogenic\nEmisSOAP_Biogenic  SOAP   0      4   -1   2   kg/m2/s  SOAP_emission_flux_from_biogenic_sources\nEmisSOAP_BioBurn   SOAP   111    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biomass_burning\nEmisSOAP_Ship      SOAP   0      10  -1   2   kg/m2/s  SOAP_emission_flux_from_ships\n\n###############################################################################\n#####  SOAS sources                                                       #####\n###############################################################################\nEmisSOAS_Biogenic  SOAS   0      4   -1   2   kg/m2/s  SOAS_emission_flux_from_biogenic_sources\n\n##############################################################################\n#####  STYR emissions                                                     #####\n###############################################################################\nEmisSTYR_Total     STYR   -1     -1  -1   3   kg/m2/s  STYR_emission_flux_from_all_sectors\nEmisSTYR_BioBurn   STYR   111    -1  -1   2   kg/m2/s  STYR_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  TMB emissions                                                      #####\n###############################################################################\nEmisTMB_Total      TMB    -1     -1  -1   3   kg/m2/s  TMB_emission_flux_from_all_sectors\nEmisTMB_Anthro     TMB    0      1   -1   3   kg/m2/s  TMB_emission_flux_from_anthropogenic\nEmisTMB_Ship       TMB    0      10  -1   2   kg/m2/s  TMB_emission_flux_from_ships\n\n###############################################################################\n#####  TOLU emissions                                                     #####\n###############################################################################\nEmisTOLU_Total     TOLU   -1     -1  -1   3   kg/m2/s  TOLU_emission_flux_from_all_sectors\nEmisTOLU_Anthro    TOLU   0      1   -1   3   kg/m2/s  TOLU_emission_flux_from_anthropogenic\nEmisTOLU_BioBurn   TOLU   111    -1  -1   2   kg/m2/s  TOLU_emission_flux_from_biomass_burning\nEmisTOLU_Ship      TOLU   0      10  -1   2   kg/m2/s  TOLU_emission_flux_from_ships\n\n###############################################################################\n#####  XYLE emissions                                                     #####\n###############################################################################\nEmisXYLE_Total     XYLE   -1     -1  -1   3   kg/m2/s  XYLE_emission_flux_from_all_sectors\nEmisXYLE_Anthro    XYLE   0      1   -1   3   kg/m2/s  XYLE_emission_flux_from_anthropogenic\nEmisXYLE_BioBurn   XYLE   111    -1  -1   2   kg/m2/s  XYLE_emission_flux_from_biomass_burning\nEmisXYLE_Ship      XYLE   0      10  -1   2   kg/m2/s  XYLE_emission_flux_from_ships\n\n###############################################################################\n#####  Additional diagnostics saved out via HEMCO extensions              #####\n###############################################################################\n\n#=============================\n# LIGHTNOX extension\n#=============================\nHcoLightningFlashRate_Total     -1 103 -1 -1 2 flashes/min/km2 Total_lightning_flash_rate\nHcoLightningFlashRate_IntraCld  -1 103 -1 -1 2 flashes/min/km2 Intra-cloud_lightning_flash_rate\nHcoLightningFlashRate_CldGround -1 103 -1 -1 2 flashes/min/km2 Cloud-ground_lightning_flash_rate\nHcoConvectiveCloudTopHeight     -1 103 -1 -1 2 level           Convective_cloud_top_height\n\n###############################################################################\n#####  INVENTORY DIAGNOSTICS, needed for benchmarking simulations only    #####\n#####  Listed in same order as HEMCO_Config.rc                            #####\n#####  (You can comment these out for production runs, to save memory)    #####\n###############################################################################\n\n#=============================\n# CEDS\n#=============================\n#InvCEDS_ALD2         ALD2   0    1   5   3   kg/m2/s  ALD2_emission_flux_from_CEDS_inventory\n#InvCEDS_ALK4         ALK4   0    1   5   3   kg/m2/s  ALK4_emission_flux_from_CEDS_inventory\n#InvCEDS_ALK6         ALK6   0    1   5   3   kg/m2/s  ALK6_emission_flux_from_CEDS_inventory\n#InvCEDS_BCPI         BCPI   0    1   5   3   kg/m2/s  BCPI_emission_flux_from_CEDS_inventory\n#InvCEDS_BCPO         BCPO   0    1   5   3   kg/m2/s  BCPO_emission_flux_from_CEDS_inventory\n#InvCEDS_BENZ         BENZ   0    1   5   3   kg/m2/s  BENZ_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H2         C2H2   0    1   5   3   kg/m2/s  C2H2_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H4         C2H4   0    1   5   3   kg/m2/s  C2H4_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H6         C2H6   0    1   5   3   kg/m2/s  C2H6_emission_flux_from_CEDS_inventory\n#InvCEDS_C3H8         C3H8   0    1   5   3   kg/m2/s  C3H8_emission_flux_from_CEDS_inventory\n#InvCEDS_CH2O         CH2O   0    1   5   3   kg/m2/s  CH2O_emission_flux_from_CEDS_inventory\n#InvCEDS_CO           CO     0    1   5   3   kg/m2/s  CO_emission_flux_from_CEDS_inventory\n#InvCEDS_MOH          MOH    0    1   5   3   kg/m2/s  MOH_emission_flux_from_CEDS_inventory\n#InvCEDS_EOH          EOH    0    1   5   3   kg/m2/s  EOH_emission_flux_from_CEDS_inventory\n#InvCEDS_ROH          ROH    0    1   5   3   kg/m2/s  ROH_emission_flux_from_CEDS_inventory\n#InvCEDS_HCOOH        HCOOH  0    1   5   3   kg/m2/s  HCOOH_emission_flux_from_CEDS_inventory\n#InvCEDS_MEK          MEK    0    1   5   3   kg/m2/s  MEK_emission_flux_from_CEDS_inventory\n#InvCEDS_NH3          NH3    0    1   5   3   kg/m2/s  NH3_emission_flux_from_CEDS_inventory\n#InvCEDS_NO           NO     0    1   5   3   kg/m2/s  NO_emission_flux_from_CEDS_inventory\n#InvCEDS_OCPI         OCPI   0    1   5   3   kg/m2/s  OCPI_emission_flux_from_CEDS_inventory\n#InvCEDS_OCPO         OCPO   0    1   5   3   kg/m2/s  OCPO_emission_flux_from_CEDS_inventory\n#InvCEDS_pFe          pFe    0    1   5   3   kg/m2/s  pFe_emission_flux_from_CEDS_inventory\n#InvCEDS_POG1         POG1   0    1   5   3   kg/m2/s  POG1_emission_flux_from_CEDS_inventory\n#InvCEDS_POG2         POG2   0    1   5   3   kg/m2/s  POG2_emission_flux_from_CEDS_inventory\n#InvCEDS_PRPE         PRPE   0    1   5   3   kg/m2/s  PRPE_emission_flux_from_CEDS_inventory\n#InvCEDS_SO2          SO2    0    1   5   3   kg/m2/s  SO2_emission_flux_from_CEDS_inventory\n#InvCEDS_SO4          SO4    0    1   5   3   kg/m2/s  SO4_emission_flux_from_CEDS_inventory\n#InvCEDS_SOAP         SOAP   0    1   5   3   kg/m2/s  SOAP_emission_flux_from_CEDS_inventory\n#InvCEDS_TMB          TMB    0    1   5   3   kg/m2/s  TMB_emission_flux_from_CEDS_inventory\n#InvCEDS_TOLU         TOLU   0    1   5   3   kg/m2/s  TOLU_emission_flux_from_CEDS_inventory\n#InvCEDS_XYLE         XYLE   0    1   5   3   kg/m2/s  XYLE_emission_flux_from_CEDS_inventory\n\n#=============================\n# GEIA_NH3\n#=============================\n#InvGEIAnatural_NH3   NH3    0    3   1   2   kg/m2/s  NH3_emission_flux_from_GEIA_natural_source\n\n#=============================\n# Seabirds\n#=============================\n#InvSEABIRDS_NH3      NH3    0    30  1   2   kg/m2/s  NH3_emission_flux_from_arctic_seabirds\n\n#=============================\n# C2H62010\n#=============================\n#InvC2H62010_C2H6     C2H6   0    1   100 2   kg/m2/s  C2H6_from_C2H62010_anthropogenic_inventory\n\n#=============================\n# XIAO_C3H8\n#=============================\n#InvXIAO_C3H8         C3H8   0    1   10  2   kg/m2/s  C3H8_from_XIAO_anthropogenic_inventory\n\n#=============================\n# LIANG_BROMOCARB\n#=============================\n#InvLIANG_CH2Br2      CH2Br2 0    1   1   2   kg/m2/s  CH2Br2_emission_flux_from_LIANG_BROMOCARB_inventory\n#InvLIANG_CHBr3       CHBr3  0    1   1   2   kg/m2/s  CHBr3_emission_flux_from_LIANG_BROMOCARB_inventory\n\n#=============================\n# ORDONEZ_IODOCARB\n#=============================\n#InvORDONEZ_CH2I2     CH2I2  0    1   1   2   kg/m2/s  CH2I2_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH2ICl    CH2ICl 0    1   1   2   kg/m2/s  CH2ICl_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH2IBr    CH2IBr 0    1   1   2   kg/m2/s  CH2IBr_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH3I      CH3I   0    1   1   2   kg/m2/s  CH3I_emission_flux_from_ORDONEZ_IODOCARB_inventory\n\n#=============================\n# GT_Chlorine\n#=============================\n#InvGTChlorine_HCl    HCl    0    1   1   2   kg/m2/s  HCl_emission_flux_from_GT_Chlorine_inventory\n\n#=============================\n# CEDS_SHIP\n#=============================\n#InvCEDSship_ALD2     ALD2   0    10  5   2   kg/m2/s  ALD2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_ALK4     ALK4   0    10  5   2   kg/m2/s  ALK4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_ALK6     ALK6   0    10  5   2   kg/m2/s  ALK4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BCPI     BCPI   0    10  5   2   kg/m2/s  BCPI_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BCPO     BCPO   0    10  5   2   kg/m2/s  BCPO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BENZ     BENZ   0    10  5   2   kg/m2/s  BENZ_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H2     C2H2   0    10  5   2   kg/m2/s  C2H2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H4     C2H4   0    10  5   2   kg/m2/s  C2H4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H6     C2H6   0    10  5   2   kg/m2/s  C2H6_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C3H8     C3H8   0    10  5   2   kg/m2/s  C3H8_emission_flux_from_CEDSship_inventory\n#InvCEDSship_CH2O     CH2O   0    10  5   2   kg/m2/s  CH2O_emission_flux_from_CEDSship_inventory\n#InvCEDSship_CO       CO     0    10  5   2   kg/m2/s  CO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_EOH      EOH    0    10  5   2   kg/m2/s  EOH_emission_flux_from_CEDSship_inventory\n#InvCEDSship_HCOOH    HCOOH  0    10  5   2   kg/m2/s  HCOOH_emission_flux_from_CEDSship_inventory\n#InvCEDSship_MEK      MEK    0    10  5   2   kg/m2/s  MEK_emission_flux_from_CEDSship_inventory\n#InvCEDSship_NH3      NH3    0    10  5   2   kg/m2/s  NH3_emission_flux_from_CEDSship_inventory\n#InvCEDSship_pFe      pFe    0    10  5   2   kg/m2/s  pFe_emission_flux_from_CEDSship_inventory\n#InvCEDSship_PRPE     PRPE   0    10  5   2   kg/m2/s  PRPE_emission_flux_from_CEDSship_inventory\n#InvCEDSship_OCPI     OCPI   0    10  5   2   kg/m2/s  OCPI_emission_flux_from_CEDSship_inventory\n#InvCEDSship_OCPO     OCPO   0    10  5   2   kg/m2/s  OCPO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SO2      SO2    0    10  5   2   kg/m2/s  SO2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SO4      SO4    0    10  5   2   kg/m2/s  SO4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SOAP     SOAP   0    10  5   2   kg/m2/s  SOAP_emission_flux_from_CEDSship_inventory\n#InvCEDSship_TMB      TMB    0    10  5   2   kg/m2/s  TMB_emission_flux_from_CEDSship_inventory\n#InvCEDSship_TOLU     TOLU   0    10  5   2   kg/m2/s  TOLU_emission_flux_from_CEDSship_inventory\n#InvCEDSship_XYLE     XYLE   0    10  5   2   kg/m2/s  XYLE_emission_flux_from_CEDSship_inventory\n\n#=============================\n# AEIC\n#=============================\n#InvAEIC_ACET         ACET   0    20  1   3   kg/m2/s  ACET_emission_flux_from_AEIC_inventory\n#InvAEIC_ALD2         ALD2   0    20  1   3   kg/m2/s  ALD2_emission_flux_from_AEIC_inventory\n#InvAEIC_ALK4         ALK4   0    20  1   3   kg/m2/s  ALK4_emission_flux_from_AEIC_inventory\n#InvAEIC_BCPI         BCPI   0    20  1   3   kg/m2/s  BCPI_emission_flux_from_AEIC_inventory\n#InvAEIC_C2H6         C2H6   0    20  1   3   kg/m2/s  C2H6_emission_flux_from_AEIC_inventory\n#InvAEIC_C3H8         C3H8   0    20  1   3   kg/m2/s  C3H8_emission_flux_from_AEIC_inventory\n#InvAEIC_CH2O         CH2O   0    20  1   3   kg/m2/s  CH2O_emission_flux_from_AEIC_inventory\n#InvAEIC_CO           CO     0    20  1   3   kg/m2/s  CO_emission_flux_from_AEIC_inventory\n#InvAEIC_HONO         HONO   0    20  1   3   kg/m2/s  HONO_emission_flux_from_AEIC_inventory\n#InvAEIC_MACR         MACR   0    20  1   3   kg/m2/s  MACR_emission_flux_from_AEIC_inventory\n#InvAEIC_NO           NO     0    20  1   3   kg/m2/s  NO_emission_flux_from_AEIC_inventory\n#InvAEIC_NO2          NO2    0    20  1   3   kg/m2/s  NO2_emission_flux_from_AEIC_inventory\n#InvAEIC_OCPI         OCPI   0    20  1   3   kg/m2/s  OCPI_emission_flux_from_AEIC_inventory\n#InvAEIC_PRPE         PRPE   0    20  1   3   kg/m2/s  PRPE_emission_flux_from_AEIC_inventory\n#InvAEIC_RCHO         RCHO   0    20  1   3   kg/m2/s  RCHO_emission_flux_from_AEIC_inventory\n#InvAEIC_SO2          SO2    0    20  1   3   kg/m2/s  SO2_emission_flux_from_AEIC_inventory\n#InvAEIC_SO4          SO4    0    20  1   3   kg/m2/s  SO4_emission_flux_from_AEIC_inventory\n#InvAEIC_SOAP         SOAP   0    20  1   3   kg/m2/s  SOAP_emission_flux_from_AEIC_inventory\n\n#=============================\n# Decaying plants\n#=============================\n#InvPLANTDECAY_ALD2   ALD2   0    3   1   2   kg/m2/s  ALD2_emission_flux_from_PLANTDECAY_inventory\n#InvPLANTDECAY_EOH    EOH    0    3   1   2   kg/m2/s  EOH_emission_flux_from_PLANTDECAY_inventory\n\n#=============================\n# AFCID emissions\n#=============================\n#InvAFCID_DST1        DST1   0    1  -1   2   kg/m2/s  DST1_emission_flux_from_AFCID_inventory\n\n#=============================\n# Seaflux extension\n#=============================\n#InvSeaFlux_ACET      ACET   101  -1  -1  2   kg/m2/s  ACET_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_ALD2      ALD2   101  -1  -1  2   kg/m2/s  ALD2_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_DMS       DMS    101  -1  -1  2   kg/m2/s  DMS_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_ETNO3     ETNO3  101  -1  -1  2   kg/m2/s  ETNO3_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_MENO3     MENO3  101  -1  -1  2   kg/m2/s  MENO3_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_MOH       MOH    101  -1  -1  2   kg/m2/s  MOH_emission_flux_from_SeaFlux_extension\n\n#=============================\n# PARANOX extension\n#=============================\n#InvPARANOX_HNO3      HNO3   102  -1  -1  2   kg/m2/s  HNO3_emission_flux_from_PARANOX_extension\n#InvPARANOX_NO        NO     102  -1  -1  2   kg/m2/s  NO_emission_flux_from_PARANOX_extension\n#InvPARANOX_NO2       NO2    102  -1  -1  2   kg/m2/s  NO2_emission_flux_from_PARANOX_extension\n#InvPARANOX_O3        O3     102  -1  -1  2   kg/m2/s  O3_emission_flux_from_PARANOX_extension\n\n#=============================\n# LIGHTNOX extension\n#=============================\n#InvLIGHTNOX_NO       NO     103  -1  -1  3   kg/m2/s  NO_emission_flux_from_lightning_extension\n\n#=============================\n# SOILNOX extension\n#=============================\n#InvSOILNOX_NO        NO     104  -1  -1  2   kg/m2/s  NO_emission_flux_from_SOINOX_extension_including_soil_and_fertilizer_emissions\n\n#=============================\n# DustL23M (dust) Extension\n#=============================\n# NOTE: Uncomment InvDustL23M_TDST if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n##InvDustL23M_TDST            TDST      125  -1  -1  2   kg/m2/s  Total_dust_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin1         DSTbin1   125  -1  -1  2   kg/m2/s  DSTbin1_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin2         DSTbin2   125  -1  -1  2   kg/m2/s  DSTbin2_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin3         DSTbin3   125  -1  -1  2   kg/m2/s  DSTbin3_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin4         DSTbin4   125  -1  -1  2   kg/m2/s  DSTbin4_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin5         DSTbin5   125  -1  -1  2   kg/m2/s  DSTbin5_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin6         DSTbin6   125  -1  -1  2   kg/m2/s  DSTbin6_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin7         DSTbin7   125  -1  -1  2   kg/m2/s  DSTbin7_emission_flux_from_DustL23M_extension\n\n#===================================\n# DEAD (dust) Extension, for TOMAS\n#===================================\n#InvDEAD_DST1         DST1   131  -1  -1  2   kg/m2/s  DST1_emission_flux_from_DEAD_extension\n#InvDEAD_DST2         DST2   131  -1  -1  2   kg/m2/s  DST2_emission_flux_from_DEAD_extension\n#InvDEAD_DST3         DST3   131  -1  -1  2   kg/m2/s  DST3_emission_flux_from_DEAD_extension\n#InvDEAD_DST4         DST4   131  -1  -1  2   kg/m2/s  DST4_emission_flux_from_DEAD_extension\n\n#=============================\n# SeaSalt extension\n#=============================\n#InvSeaSalt_BrSALA    BrSALA 107  -1  -1  2   kg/m2/s  BrSALA_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_BrSALC    BrSALC 107  -1  -1  2   kg/m2/s  BrSALC_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALA      SALA   107  -1  -1  2   kg/m2/s  SALA_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALC      SALC   107  -1  -1  2   kg/m2/s  SALC_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALAAL    SALAAL 107  -1  -1  2   kg/m2/s  SALAAL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALACL    SALACL 107  -1  -1  2   kg/m2/s  SALACL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALCAL    SALCAL 107  -1  -1  2   kg/m2/s  SALAAL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALCCL    SALCCL 107  -1  -1  2   kg/m2/s  SALCCL_emission_flux_from_SeaSalt_extension\n\n#=============================\n# MEGAN Extension\n#=============================\n#InvMEGAN_ALD2        ALD2   108   -1 -1  2   kg/m2/s  ALD2_biogenic_emission_flux_from_MEGAN_extension\n# C2H4 is not an active species in GEOS-Chem; disable for now\n##InvMEGAN_C2H4        C2H4   108   -1 -1  2   kg/m2/s  C2H4_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_EOH         EOH    108   -1 -1  2   kg/m2/s  EOH_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ISOP        ISOP   108   -1 -1  2   kg/m2/s  ISOP_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_LIMO        LIMO   108   -1 -1  2   kg/m2/s  LIMO_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MTPA        MTPA   108   -1 -1  2   kg/m2/s  MTPA_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MTPO        MTPO   108   -1 -1  2   kg/m2/s  MTPO_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_PRPE        PRPE   108   -1 -1  2   kg/m2/s  PRPE_biogenic_emission_flux_from_MEGAN_extension\n# SESQ is not an active species in GEOS-Chem; disable for now\n##InvMEGAN_SESQ        SESQ   108   -1 -1  2   kg/m2/s  SESQ_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_SOAP        SOAP   108   -1 -1  2   kg/m2/s  SOAP_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_SOAS        SOAS   108   -1 -1  2   kg/m2/s  SOAS_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET        ACET   108   -1 -1  2   kg/m2/s  ACET_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_MONO   -1     108   -1 -1  2   kg/m2/s  Acetone_from_monoterpenes_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_MBOX   -1     108   -1 -1  2   kg/m2/s  Acetone_from_methyl_butenol_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_DIRECT -1     108   -1 -1  2   kg/m2/s  Direct_acetone_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MOH          MOH    108  -1  -1  2   kg/m2/s  Methanol_emission_flux_from_MEGAN_extension\n#InvMEGAN_APIN         -1     108  -1  -1  2   kg/m2/s  Alpha_pinene_emission_flux_from_MEGAN_extension\n#InvMEGAN_BPIN         -1     108  -1  -1  2   kg/m2/s  Beta_pinene_acid_emission_flux_from_MEGAN_extension\n#InvMEGAN_SABI         -1     108  -1  -1  2   kg/m2/s  Sabinene_emission_flux_from_MEGAN_extension\n#InvMEGAN_MYRC         -1     108  -1  -1  2   kg/m2/s  Mycrene_emission_flux_from_MEGAN_extension\n#InvMEGAN_CARE         -1     108  -1  -1  2   kg/m2/s  3_Carene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OCIM         -1     108  -1  -1  2   kg/m2/s  Ocimene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OMON         -1     108  -1  -1  2   kg/m2/s  Other_monoterpene_emission_flux_from_MEGAN_extension\n#InvMEGAN_MONX         -1     108  -1  -1  2   kg/m2/s  Total_monoterpene_emission_flux_from_MEGAN_extension\n#InvMEGAN_FARN         -1     108  -1  -1  2   kg/m2/s  alpha_Farnesene_emission_flux_from_MEGAN_extension\n#InvMEGAN_BCAR         -1     108  -1  -1  2   kg/m2/s  beta_caryophyllene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OSQT         -1     108  -1  -1  2   kg/m2/s  Other_sesquiterpenes_emission_flux_from_MEGAN_extension\n#InvMEGAN_MBOX         -1     108  -1  -1  2   kg/m2/s  Methyl_butenol_emission_flux_from_MEGAN_extension\n#InvMEGAN_FAXX         -1     108  -1  -1  2   kg/m2/s  Formic_acid_emission_flux_from_MEGAN_extension\n#InvMEGAN_AAXX         -1     108  -1  -1  2   kg/m2/s  Acetic_acid_emission_flux_from_MEGAN_extension\n\n#=============================\n# GFED Extension\n#=============================\n#InvGFED_ACET         ACET   111  -1  -1  2   kg/m2/s  ACET_emission_flux_from_GFED_extension\n#InvGFED_ACR          ACR    111  -1  -1  2   kg/m2/s  ACR_emission_flux_from_GFED_extension\n#InvGFED_ACTA         ACTA   111  -1  -1  2   kg/m2/s  ACTA_emission_flux_from_GFED_extension\n#InvGFED_ALD2         ALD2   111  -1  -1  2   kg/m2/s  ALD2_emission_flux_from_GFED_extension\n#InvGFED_ALK4         ALK4   111  -1  -1  2   kg/m2/s  ALK4_emission_flux_from_GFED_extension\n#InvGFED_BCPI         BCPI   111  -1  -1  2   kg/m2/s  BCPI_emission_flux_from_GFED_extension\n#InvGFED_BCPO         BCPO   111  -1  -1  2   kg/m2/s  BCPO_emission_flux_from_GFED_extension\n#InvGFED_BENZ         BENZ   111  -1  -1  2   kg/m2/s  BENZ_emission_flux_from_GFED_extension\n#InvGFED_C2H6         C2H6   111  -1  -1  2   kg/m2/s  C2H6_emission_flux_from_GFED_extension\n#InvGFED_C3H8         C3H8   111  -1  -1  2   kg/m2/s  C3H8_emission_flux_from_GFED_extension\n#InvGFED_C4H6         C4H6   111  -1  -1  2   kg/m2/s  C4H6_emission_flux_from_GFED_extension\n#InvGFED_CH2O         CH2O   111  -1  -1  2   kg/m2/s  CH2O_emission_flux_from_GFED_extension\n#InvGFED_CO           CO     111  -1  -1  2   kg/m2/s  CO_emission_flux_from_GFED_extension\n#InvGFED_EOH          EOH    111  -1  -1  2   kg/m2/s  EOH_emission_flux_from_GFED_extension\n#InvGFED_FURA         FURA   111  -1  -1  2   kg/m2/s  FURA_emission_flux_from_GFED_extension\n#InvGFED_GLYX         GLYX   111  -1  -1  2   kg/m2/s  GLYX_emission_flux_from_GFED_extension\n#InvGFED_HCOOH        HCOOH  111  -1  -1  2   kg/m2/s  HCOOH_emission_flux_from_GFED_extension\n#InvGFED_ISOP         ISOP   111  -1  -1  2   kg/m2/s  ISOP_emission_flux_from_GFED_extension\n#InvGFED_MEK          MEK    111  -1  -1  2   kg/m2/s  MEK_emission_flux_from_GFED_extension\n#InvGFED_MVK          MVK    111  -1  -1  2   kg/m2/s  MVK_emission_flux_from_GFED_extension\n#InvGFED_MGLY         MGLY   111  -1  -1  2   kg/m2/s  MGLY_emission_flux_from_GFED_extension\n#InvGFED_MOH          MOH    111  -1  -1  2   kg/m2/s  MOH_emission_flux_from_GFED_extension\n#InvGFED_MTPA         MTP    111  -1  -1  2   kg/m2/s  MTPA_emission_flux_from_GFED_extension\n#InvGFED_MVK          MVK    111  -1  -1  2   kg/m2/s  MVK_emission_flux_from_GFED_extension\n#InvGFED_NAP          NAP    111  -1  -1  2   kg/m2/s  NAP_emission_flux_from_GFED_extension\n#InvGFED_NH3          NH3    111  -1  -1  2   kg/m2/s  NH3_emission_flux_from_GFED_extension\n#InvGFED_NO           NO     111  -1  -1  2   kg/m2/s  NO_emission_flux_from_GFED_extension\n#InvGFED_OCPI         OCPI   111  -1  -1  2   kg/m2/s  OCPI_emission_flux_from_GFED_extension\n#InvGFED_OCPO         OCPO   111  -1  -1  2   kg/m2/s  OCPO_emission_flux_from_GFED_extension\n#InvGFED_PHEN         PHEN   111  -1  -1  2   kg/m2/s  PHEN_emission_flux_from_GFED_extension\n#InvGFED_POG1         POG1   111  -1  -1  2   kg/m2/s  POG1_emission_flux_from_GFED_extension\n#InvGFED_POG2         POG2   111  -1  -1  2   kg/m2/s  POG2_emission_flux_from_GFED_extension\n#InvGFED_PRPE         PRPE   111  -1  -1  2   kg/m2/s  PRPE_emission_flux_from_GFED_extension\n#InvGFED_RCHO         RCHO   111  -1  -1  2   kg/m2/s  RCHO_emission_flux_from_GFED_extension\n#InvGFED_SO2          SO2    111  -1  -1  2   kg/m2/s  SO2_emission_flux_from_GFED_extension\n#InvGFED_SOAP         SOAP   111  -1  -1  2   kg/m2/s  SOAP_emission_flux_from_GFED_extension\n#InvGFED_STYR         STYR   111  -1  -1  2   kg/m2/s  STYR_emission_flux_from_GFED_extension\n#InvGFED_TOLU         TOLU   111  -1  -1  2   kg/m2/s  TOLU_emission_flux_from_GFED_extension\n#InvGFED_XYLE         ACET   111  -1  -1  2   kg/m2/s  XYLE_emission_flux_from_GFED_extension\n\n#=============================\n# Volcano extension\n#=============================\n#InvVOLCANOerupt_SO2  SO2    117  51  -1  3   kg/m2/s  SO2_eruptive_emission_flux_from_Volcano_extension\n#InvVOLCANOdegas_SO2  SO2    117  52  -1  3   kg/m2/s  SO2_degassing_emission_flux_from_Volcano_extension\n\n#=============================\n# INORG_IODINE Extension\n#=============================\n#InvIODINE_HOI        HOI    120  -1  -1  2   kg/m2/s  HOI_emission_flux_from_INORG_IODINE_extension\n#InvIODINE_I2         I2     120  -1  -1  2   kg/m2/s  I2_emission_flux_from_INORG_IODINE_extension\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem.onlineE",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc\n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for fullchem simulations with ModelE metoerology).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name             Spec   ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####   ACET emissions                                                    #####\n###############################################################################\nEmisACET_Total     ACET   -1     -1  -1   3   kg/m2/s  ACET_emission_flux_from_all_sectors\nEmisACET_BioBurn   ACET   111    -1  -1   2   kg/m2/s  ACET_emission_flux_from_biomass_burning\nEmisACET_Biogenic  ACET   108    -1  -1   2   kg/m2/s  ACET_emission_flux_from_biogenic_sources\nEmisACET_Ocean     ACET   101    -1  -1   2   kg/m2/s  ACET_emission_flux_from_ocean\n\n###############################################################################\n#####  ALD2 emissions                                                     #####\n###############################################################################\nEmisALD2_Total      ALD2   -1     -1  -1   3   kg/m2/s  ALD2_emission_flux_from_all_sectors\nEmisALD2_Anthro     ALD2   0      1   -1   3   kg/m2/s  ALD2_emission_flux_from_anthropogenic\nEmisALD2_BioBurn    ALD2   111    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_biomass_burning\nEmisALD2_Biogenic   ALD2   108    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_biogenic_sources\nEmisALD2_Ocean      ALD2   101    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_ocean\nEmisALD2_PlantDecay ALD2   0      3   -1   2   kg/m2/s  ALD2_emission_flux_from_decaying_plants\nEmisALD2_Ship       ALD2   0      10  -1   2   kg/m2/s  ALD2_emission_flux_from_ships\n\n###############################################################################\n#####  ALK4 emissions                                                     #####\n###############################################################################\nEmisALK4_Total     ALK4   -1     -1  -1   3   kg/m2/s  ALK4_emission_flux_from_all_sectors\nEmisALK4_Aircraft  ALK4   0      20  -1   3   kg/m2/s  ALK4_emission_flux_from_aircraft\nEmisALK4_Anthro    ALK4   0      1   -1   3   kg/m2/s  ALK4_emission_flux_from_anthropogenic\nEmisALK4_BioBurn   ALK4   111    -1  -1   2   kg/m2/s  ALK4_emission_flux_from_biomass_burning\nEmisALK4_Ship      ALK4   0      10  -1   2   kg/m2/s  ALK4_emission_flux_from_ships\n\n###############################################################################\n#####  BCPI and BCPO emissions                                            #####\n###############################################################################\nEmisBCPI_Total     BCPI   -1     -1  -1   3   kg/m2/s  BCPI_emission_flux_from_all_sectors\nEmisBCPI_Aircraft  BCPI   0      20  -1   3   kg/m2/s  BCPI_emission_flux_from_aircraft\nEmisBCPI_Anthro    BCPI   0      1   -1   3   kg/m2/s  BCPI_emission_flux_from_anthropogenic\nEmisBCPI_BioBurn   BCPI   111    -1  -1   2   kg/m2/s  BCPI_emission_flux_from_biomass_burning\nEmisBCPI_Ship      BCPI   0      10  -1   2   kg/m2/s  BCPI_emission_flux_from_ships\nEmisBCPO_Total     BCPO   -1     -1  -1   2   kg/m2/s  BCPO_emission_flux_from_all_sectors\nEmisBCPO_Anthro    BCPO   0      1   -1   2   kg/m2/s  BCPO_emission_flux_from_anthropogenic\nEmisBCPO_BioBurn   BCPO   111    -1  -1   2   kg/m2/s  BCPO_emission_flux_from_biomass_burning\nEmisBCPO_Ship      BCPO   0      10  -1   2   kg/m2/s  BCPO_emission_flux_from_ships\n\n###############################################################################\n#####  BENZ emissions                                                     #####\n###############################################################################\nEmisBENZ_Total     BENZ   -1     -1  -1   3   kg/m2/s  BENZ_emission_flux_from_all_sectors\nEmisBENZ_Anthro    BENZ   0      1   -1   3   kg/m2/s  BENZ_emission_flux_from_anthropogenic\nEmisBENZ_BioBurn   BENZ   111    -1  -1   2   kg/m2/s  BENZ_emission_flux_from_biomass_burning\nEmisBENZ_Ship      BENZ   0      10  -1   2   kg/m2/s  BENZ_emission_flux_from_ships\n\n###############################################################################\n#####  C2H2 emissions                                                    ######\n###############################################################################\nEmisC2H2_Total     C2H2   -1     -1  -1   3   kg/m2/s  C2H2_emission_flux_from_all_sectors\nEmisC2H2_Anthro    C2H2   0      1   -1   3   kg/m2/s  C2H2_emission_flux_from_anthropogenic\nEmisC2H2_BioBurn   C2H2   111    -1  -1   2   kg/m2/s  C2H2_emission_flux_from_biomass_burning\nEmisC2H2_Ship      C2H2   0      10  -1   2   kg/m2/s  C2H2_emission_flux_from_ships\n\n###############################################################################\n#####  C2H4 emissions                                                    ######\n###############################################################################\nEmisC2H4_Total     C2H4   -1     -1  -1   3   kg/m2/s  C2H4_emission_flux_from_all_sectors\nEmisC2H4_Anthro    C2H4   0      1   -1   3   kg/m2/s  C2H4_emission_flux_from_anthropogenic\nEmisC2H4_BioBurn   C2H4   111    -1  -1   2   kg/m2/s  C2H4_emission_flux_from_biomass_burning\nEmisC2H4_Biogenic  C2H4   108    -1  -1   2   kg/m2/s  C2H4_emission_flux_from_biogenic_sources\nEmisC2H4_Ship      C2H4   0      10  -1   2   kg/m2/s  C2H4_emission_flux_from_ships\n\n###############################################################################\n#####  C2H6 emissions                                                    ######\n###############################################################################\nEmisC2H6_Total     C2H6   -1     -1  -1   3   kg/m2/s  C2H6_emission_flux_from_all_sectors\nEmisC2H6_Aircraft  C2H6   0      20  -1   3   kg/m2/s  C2H6_emission_flux_from_aircraft\nEmisC2H6_Anthro    C2H6   0      1   -1   3   kg/m2/s  C2H6_emission_flux_from_anthropogenic\nEmisC2H6_BioBurn   C2H6   111    -1  -1   2   kg/m2/s  C2H6_emission_flux_from_biomass_burning\nEmisC2H6_Ship      C2H6   0      10  -1   2   kg/m2/s  C2H6_emission_flux_from_ships\n\n###############################################################################\n#####  C3H8 emissions                                                     #####\n###############################################################################\nEmisC3H8_Total     C3H8   -1     -1  -1   3   kg/m2/s  C3H8_emission_flux_from_all_sectors\nEmisC3H8_Aircraft  C3H8   0      20  -1   3   kg/m2/s  C3H8_emission_flux_from_aircraft\nEmisC3H8_Anthro    C3H8   0      1   -1   3   kg/m2/s  C3H8_emission_flux_from_anthropogenic\nEmisC3H8_BioBurn   C3H8   111    -1  -1   2   kg/m2/s  C3H8_emission_flux_from_biomass_burning\nEmisC3H8_Ship      C3H8   0      10  -1   2   kg/m2/s  C3H8_emission_flux_from_ships\n\n###############################################################################\n#####  CH2Br2 emissions                                                   #####\n###############################################################################\nEmisCH2Br2_Ocean   CH2Br2 0      1   -1   2   kg/m2/s  CH2Br2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2I2 emissions                                                   #####\n###############################################################################\nEmisCH2I2_Ocean    CH2I2  0     1    -1   2   kg/m2/s  CH2I2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2ICl emissions                                                   #####\n###############################################################################\nEmisCH2ICl_Ocean   CH2ICl 0     1    -1   2   kg/m2/s  CH2ICl_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2IBr emissions                                                   #####\n###############################################################################\nEmisCH2IBr_Ocean   CH2IBr 0     1    -1   2   kg/m2/s  CH2IBr_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2O emissions                                                     #####\n###############################################################################\nEmisCH2O_Total     CH2O   -1     -1  -1   3   kg/m2/s  CH2O_emission_flux_from_all_sectors\nEmisCH2O_Aircraft  CH2O   0      20  -1   3   kg/m2/s  CH2O_emission_flux_from_aircraft\nEmisCH2O_Anthro    CH2O   0      1   -1   3   kg/m2/s  CH2O_emission_flux_from_anthropogenic\nEmisCH2O_BioBurn   CH2O   111    -1  -1   2   kg/m2/s  CH2O_emission_flux_from_biomass_burning\nEmisCH2O_Ship      CH2O   0      10  -1   2   kg/m2/s  CH2O_emission_flux_from_ships\n\n###############################################################################\n#####  CH3I emissions                                                   #####\n###############################################################################\nEmisCH3I_Ocean     CH3I   0     1    -1   2   kg/m2/s  CH3I_emission_flux_from_ocean\n\n###############################################################################\n#####  CH4 emissions                                                      #####\n###############################################################################\n# Zero for now, so comment out\n#EmisCH4_Total      CH4    -1     -1  -1   3   kg/m2/s  CH4_emission_flux_from_all_sectors\n#EmisCH4_Anthro     CH4    0      1   -1   3   kg/m2/s  CH4_emission_flux_from_anthropogenic\n#EmisCH4_BioBurn    CH4    0      5   -1   2   kg/m2/s  CH4_emission_flux_from_biomass_burning\n#EmisCH4_Ship       CH4    0      10  -1   2   kg/m2/s  CH4_emission_flux_from_ships\n\n###############################################################################\n#####  CHBr3 emissions                                                    #####\n###############################################################################\nEmisCHBr3_Ocean    CHBr3  0      1   -1   2   kg/m2/s  CHBr3_emission_flux_from_ocean\n\n###############################################################################\n#####  CO emissions                                                       #####\n###############################################################################\nEmisCO_Total       CO     -1     -1  -1   3   kg/m2/s  CO_emission_flux_from_all_sectors\nEmisCO_Aircraft    CO     0      20  -1   3   kg/m2/s  CO_emission_flux_from_aircraft\nEmisCO_Anthro      CO     0      1   -1   3   kg/m2/s  CO_emission_flux_from_anthropogenic\nEmisCO_BioBurn     CO     111    -1  -1   2   kg/m2/s  CO_emission_flux_from_biomass_burning\nEmisCO_Ship        CO     0      10  -1   2   kg/m2/s  CO_emission_flux_from_ships\n\n###############################################################################\n#####  CO2 emissions                                                      #####\n###############################################################################\nEmisCO2_Total      CO2    -1     -1  -1   3   kg/m2/s  CO2_emission_flux_from_all_sectors\nEmisCO2_Anthro     CO2    0      1   -1   3   kg/m2/s  CO2_emission_flux_from_anthropogenic\nEmisCO2_BioBurn    CO2    0      5   -1   2   kg/m2/s  CO2_emission_flux_from_biomass_burning\nEmisCO2_Ship       CO2    0      10  -1   2   kg/m2/s  CO2_emission_flux_from_ships\n\n###############################################################################\n#####  DMS emissions                                                      #####\n###############################################################################\nEmisDMS_Ocean      DMS    101    -1  -1   2   kg/m2/s  DMS_emission_flux_from_ocean\n\n###############################################################################\n#####  Dust emissions                                                     #####\n###############################################################################\n# NOTE: Uncomment EmisDST_Total if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n#EmisDST_Total         TDST      -1     -1  -1   2   kg/m2/s  Total_dust_emission_flux_from_natural_sources\nEmisDSTbin1_Total     DSTbin1   -1     -1  -1   2   kg/m2/s  DSTbin1_emission_flux_from_all_sectors\nEmisDSTbin1_Anthro    DSTbin1   0      1   -1   2   kg/m2/s  DSTbin1_emission_flux_from_anthropogenic\nEmisDSTbin1_Natural   DSTbin1   0      3   -1   2   kg/m2/s  DSTbin1_emission_flux_from_natural_sources\nEmisDSTbin2_Total     DSTbin2   -1     -1  -1   2   kg/m2/s  DSTbin2_emission_flux_from_all_sectors\nEmisDSTbin2_Anthro    DSTbin2   0      1   -1   2   kg/m2/s  DSTbin2_emission_flux_from_anthropogenic\nEmisDSTbin2_Natural   DSTbin2   0      3   -1   2   kg/m2/s  DSTbin2_emission_flux_from_natural_sources\nEmisDSTbin3_Total     DSTbin3   -1     -1  -1   2   kg/m2/s  DSTbin3_emission_flux_from_all_sectors\nEmisDSTbin3_Anthro    DSTbin3   0      1   -1   2   kg/m2/s  DSTbin3_emission_flux_from_anthropogenic\nEmisDSTbin3_Natural   DSTbin3   0      3   -1   2   kg/m2/s  DSTbin3_emission_flux_from_natural_sources\nEmisDSTbin4_Total     DSTbin4   -1     -1  -1   2   kg/m2/s  DSTbin4_emission_flux_from_all_sectors\nEmisDSTbin4_Anthro    DSTbin4   0      1   -1   2   kg/m2/s  DSTbin4_emission_flux_from_anthropogenic\nEmisDSTbin4_Natural   DSTbin4   0      3   -1   2   kg/m2/s  DSTbin4_emission_flux_from_natural_sources\nEmisDSTbin5_Natural   DSTbin5   0      3   -1   2   kg/m2/s  DSTbin5_emission_flux_from_natural_sources\nEmisDSTbin6_Natural   DSTbin6   0      3   -1   2   kg/m2/s  DSTbin6_emission_flux_from_natural_sources\nEmisDSTbin7_Natural   DSTbin7   0      3   -1   2   kg/m2/s  DSTbin7_emission_flux_from_natural_sources\n\n###############################################################################\n#####  EOH emissions                                                      #####\n###############################################################################\nEmisEOH_Total      EOH    -1     -1  -1   3   kg/m2/s  EOH_emission_flux_from_all_sectors\nEmisEOH_Anthro     EOH    0      1   -1   3   kg/m2/s  EOH_emission_flux_from_anthropogenic\nEmisEOH_BioBurn    EOH    111    -1  -1   2   kg/m2/s  EOH_emission_flux_from_biomass_burning\nEmisEOH_Biogenic   EOH    108    -1  -1   2   kg/m2/s  EOH_emission_flux_from_biogenic_sources\nEmisEOH_PlantDecay EOH    0      3   -1   2   kg/m2/s  EOH_emission_flux_from_decaying_plants\nEmisEOH_Ship       EOH    0      10  -1   2   kg/m2/s  EOH_emission_flux_from_ships\n\n###############################################################################\n#####  ETNO3 emissions                                                    #####\n###############################################################################\nEmisETNO3_Ocean    ETNO3  101    -1  -1   2   kg/m2/s  ETNO3_emission_flux_from_ocean\n\n###############################################################################\n#####  H2O emissions                                                      #####\n###############################################################################\nEmisH2O_Aircraft   H2O    0      20  -1   3   kg/m2/s  H2O_emission_flux_from_aircraft\n\n###############################################################################\n#####  HCOOH sources                                                      #####\n###############################################################################\nEmisHCOOH_Total    HCOOH  -1     -1  -1   3   kg/m2/s  HCOOH_emission_flux_from_all_sectors\nEmisHCOOH_Anthro   HCOOH  0      1   -1   3   kg/m2/s  HCOOH_emission_flux_from_anthropogenic\nEmisHCOOH_Ship     HCOOH  0      10  -1   2   kg/m2/s  HCOOH_emission_flux_from_ship\n\n###############################################################################\n#####  HNO3 emissions                                                     #####\n###############################################################################\nEmisHNO3_Ship      HNO3   102    -1  -1   2   kg/m2/s  HNO3_emission_flux_from_ships\n\n###############################################################################\n#####  HONO emissions                                                     #####\n###############################################################################\nEmisHONO_Aircraft  HONO   0      20  -1   3   kg/m2/s  HONO_emission_flux_from_aircraft\n\n###############################################################################\n#####  ISOP emissions                                                     #####\n###############################################################################\nEmisISOP_Total     ISOP   -1     -1  -1   3   kg/m2/s  ISOP_emission_flux_from_all_sectors\nEmisISOP_Biogenic  ISOP   108    -1  -1   2   kg/m2/s  ISOP_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  LIMO emissions                                                     #####\n###############################################################################\nEmisLIMO_Biogenic  LIMO   108    -1  -1   2   kg/m2/s  LIMO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MACR emissions                                                     #####\n###############################################################################\nEmisMACR_Total     MACR   -1     -1  -1   3   kg/m2/s  MACR_emission_flux_from_all_sectors\nEmisMACR_Aircraft  MACR   0      20  -1   3   kg/m2/s  MACR_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  MEK emissions                                                      #####\n###############################################################################\nEmisMEK_Total      MEK    -1     -1  -1   3   kg/m2/s  MEK_emission_flux_from_all_sectors\nEmisMEK_Anthro     MEK    0      1   -1   3   kg/m2/s  MEK_emission_flux_from_anthropogenic\nEmisMEK_BioBurn    MEK    111    -1  -1   2   kg/m2/s  MEK_emission_flux_from_biomass_burning\nEmisMEK_Ship       MEK    0      10  -1   2   kg/m2/s  MEK_emission_flux_from_ships\n\n###############################################################################\n#####  MENO3 emissions                                                    #####\n###############################################################################\nEmisMENO3_Ocean    MENO3  101    -1  -1   2   kg/m2/s  MENO3_emission_flux_from_ocean\n\n###############################################################################\n#####  MGLY emissions                                                     #####\n###############################################################################\n# Zero for now, so comment out\n#EmisMGLY_Total     MGLY   -1     -1  -1   3   kg/m2/s  MGLY_emission_flux_from_all_sectors\n#EmisMGLY_Anthro    MGLY   0      1   -1   3   kg/m2/s  MGLY_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  MOH emissions                                                      #####\n###############################################################################\nEmisMOH_Total      MOH    -1     -1  -1   3   kg/m2/s  MOH_emission_flux_from_all_sectors\nEmisMOH_Anthro     MOH    0      1   -1   3   kg/m2/s  MOH_emission_flux_from_anthropogenic\nEmisMOH_BioBurn    MOH    111    -1  -1   2   kg/m2/s  MOH_emission_flux_from_biomass_burning\nEmisMOH_Biogenic   MOH    108    -1  -1   2   kg/m2/s  MOH_emission_flux_from_biogenic_sources\nEmisMOH_Ocean      MOH    101    -1  -1   2   kg/m2/s  MOH_emission_flux_from_ocean\nEmisMOH_Ship       MOH    0      10  -1   2   kg/m2/s  MOH_emission_flux_from_ships\n\n###############################################################################\n#####  MTPA emissions                                                     #####\n###############################################################################\nEmisMTPA_Total     MTPA   -1     -1  -1   3   kg/m2/s  MTPA_emission_flux_from_all_sectors\nEmisMTPA_BioBurn   MTPA   111    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biomass_burning\nEmisMTPA_Biogenic  MTPA   108    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPO emissions                                                     #####\n###############################################################################\nEmisMTPO_Biogenic  MTPO   108    -1  -1   2   kg/m2/s  MTPO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  NAP emissions                                                      #####\n###############################################################################\nEmisNAP_Total      NAP    -1     -1  -1   3   kg/m2/s  NAP_emission_flux_from_all_sectors\nEmisNAP_Anthro     NAP    0      1   -1   3   kg/m2/s  NAP_emission_flux_from_anthropogenic\nEmisNAP_BioBurn    NAP    111    -1  -1   2   kg/m2/s  NAP_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NH3 emissions                                                      #####\n###############################################################################\nEmisNH3_Total      NH3    -1     -1  -1   3   kg/m2/s  NH3_emission_flux_from_all_sectors\nEmisNH3_Anthro     NH3    0      1   -1   3   kg/m2/s  NH3_emission_flux_from_anthropogenic\nEmisNH3_BioBurn    NH3    111    -1  -1   2   kg/m2/s  NH3_emission_flux_from_biomass_burning\nEmisNH3_Natural    NH3    0      3   -1   2   kg/m2/s  NH3_emission_flux_from_natural_sources\nEmisNH3_Seabirds   NH3    0      30  -1   2   kg/m2/s  NH3_emission_flux_from_seabirds\nEmisNH3_Ship       NH3    0      10  -1   2   kg/m2/s  NH3_emission_flux_from_ships\n\n###############################################################################\n#####  NO emissions                                                       #####\n#####                                                                     #####\n##### - Separate fertilizer NOx emissions are only available when the     #####\n#####   SoilNOx extension is enabled                                      #####\n###############################################################################\nEmisNO_Total       NO     -1     -1  -1   3   kg/m2/s  NO_emission_flux_from_all_sectors\nEmisNO_Aircraft    NO     0      20  -1   3   kg/m2/s  NO_emission_flux_from_aircraft\nEmisNO_Anthro      NO     0      1   -1   3   kg/m2/s  NO_emission_flux_from_anthropogenic\nEmisNO_BioBurn     NO     111    -1  -1   2   kg/m2/s  NO_emission_flux_from_biomass_burning\nEmisNO_Lightning   NO     103    -1  -1   3   kg/m2/s  NO_emission_flux_from_lightning\nEmisNO_Ship        NO     102    -1  -1   2   kg/m2/s  NO_emission_flux_from_ships\nEmisNO_Soil        NO     104    -1  -1   2   kg/m2/s  NO_emission_flux_from_soil_including_fertilizer\n#EmisNO_Fert        -1     104    -1  -1   2   kg/m2/s  NO_emission_flux_from_fertilizer_only\n\n###############################################################################\n#####  NO2 emissions                                                      #####\n###############################################################################\nEmisNO2_Total      NO2    -1     -1  -1   3   kg/m2/s  NO2_emission_flux_from_all_sectors\nEmisNO2_Aircraft   NO2    0      20  -1   3   kg/m2/s  NO2_emission_flux_from_aircraft\nEmisNO2_Ship       NO2    102    -1  -1   2   kg/m2/s  NO2_emission_flux_from_ships\n\n###############################################################################\n#####  O3 emissions                                                       #####\n###############################################################################\nEmisO3_Ship        O3     102    -1  -1   2   kg/m2/s  O3_emission_flux_from_ships\n\n###############################################################################\n#####  OCPI and OCPO emissions                                            #####\n###############################################################################\nEmisOCPI_Total     OCPI   -1     -1  -1   3   kg/m2/s  OCPI_emission_flux_from_all_sectors\nEmisOCPI_Aircraft  OCPI   0      20  -1   3   kg/m2/s  OCPI_emission_flux_from_aircraft\nEmisOCPI_Anthro    OCPI   0      1   -1   3   kg/m2/s  OCPI_emission_flux_from_anthropogenic\nEmisOCPI_BioBurn   OCPI   111    -1  -1   2   kg/m2/s  OCPI_emission_flux_from_biomass_burning\nEmisOCPI_Ship      OCPI   0      10  -1   2   kg/m2/s  OCPI_emission_flux_from_ships\nEmisOCPO_Total     OCPO   -1     -1  -1   3   kg/m2/s  OCPO_emission_flux_from_all_sectors\nEmisOCPO_Anthro    OCPO   0      1   -1   3   kg/m2/s  OCPO_emission_flux_from_anthropogenic\nEmisOCPO_BioBurn   OCPO   111    -1  -1   2   kg/m2/s  OCPO_emission_flux_from_biomass_burning\nEmisOCPO_Ship      OCPO   0      10  -1   2   kg/m2/s  OCPO_emission_flux_from_ships\n\n###############################################################################\n#####  pFe emissions                                                      #####\n###############################################################################\nEmispFe_Total      pFe    -1     -1  -1   3   kg/m2/s  pFe_emission_flux_from_all_sectors\nEmispFe_Anthro     pFe    0      1   -1   3   kg/m2/s  pFe_emission_flux_from_anthropogenic\nEmispFe_Ship       pFe    0      10  -1   2   kg/m2/s  pFe_emission_flux_from_ships\n\n###############################################################################\n#####  POG1 and POG2 emissions                                            #####\n###############################################################################\nEmisPOG1_Total     POG1   -1     -1  -1   3   kg/m2/s  POG1_emission_flux_from_all_sectors\nEmisPOG1_Anthro    POG1   0      1   -1   3   kg/m2/s  POG1_emission_flux_from_anthropogenic\nEmisPOG1_BioBurn   POG1   111    -1  -1   2   kg/m2/s  POG1_emission_flux_from_GFED_inventory\nEmisPOG2_Total     POG2   -1     -1  -1   3   kg/m2/s  POG2_emission_flux_from_all_sectors\nEmisPOG2_Anthro    POG2   0      1   -1   3   kg/m2/s  POG2_emission_flux_from_anthropogenic\nEmisPOG2_BioBurn   POG2   111    -1  -1   2   kg/m2/s  POG2_emission_flux_from_GFED_inventory\n\n###############################################################################\n#####  PRPE emissions                                                     #####\n###############################################################################\nEmisPRPE_Total     PRPE   -1     -1  -1   3   kg/m2/s  PRPE_emission_flux_from_all_sectors\nEmisPRPE_Aircraft  PRPE   0      20  -1   3   kg/m2/s  PRPE_emission_flux_from_aircraft\nEmisPRPE_Anthro    PRPE   0      1   -1   3   kg/m2/s  PRPE_emission_flux_from_anthropogenic\nEmisPRPE_BioBurn   PRPE   111    -1  -1   2   kg/m2/s  PRPE_emission_flux_from_biomass_burning\nEmisPRPE_Biogenic  PRPE   108    -1  -1   2   kg/m2/s  PRPE_emission_flux_from_biogenic_sources\nEmisPRPE_Ship      PRPE   0      10  -1   2   kg/m2/s  PRPE_emission_flux_from_ships\n\n###############################################################################\n#####  RCHO emissions                                                     #####\n###############################################################################\nEmisRCHO_Total     RCHO   -1     -1  -1   3   kg/m2/s  RCHO_emission_flux_from_all_sectors\nEmisRCHO_Aircraft  RCHO   0      20  -1   3   kg/m2/s  RCHO_emission_flux_from_aircraft\n\n###############################################################################\n#####  SESQ emissions                                                     #####\n###############################################################################\n# SESQ is not an active species in GEOS-Chem; disable for now\n#EmisSESQ_Biogenic  SESQ   108    -1  -1   2   kg/m2/s  SESQ_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  Sea salt emissions                                                 #####\n###############################################################################\nEmisSALA_Natural     SALA  107    -1  -1   2   kg/m2/s  SALA_emission_flux_from_natural_sources\nEmisBrSALA_Natural BrSALA  107    -1  -1   2   kg/m2/s  BrSALA_emission_flux_from_natural_sources\nEmisSALAAL_Natural SALAAL  107    -1  -1   2   kg/m2/s  SALAAL_emission_flux_from_natural_sources\nEmisSALACL_Natural SALACL  107    -1  -1   2   kg/m2/s  SALACL_emission_flux_from_natural_sources\nEmisSALC_Natural     SALC  107    -1  -1   2   kg/m2/s  SALC_emission_flux_from_natural_sources\nEmisBrSALC_Natural BrSALC  107    -1  -1   2   kg/m2/s  BrSALC_emission_flux_from_natural_sources\nEmisSALCAL_Natural SALCAL  107    -1  -1   2   kg/m2/s  SALCAL_emission_flux_from_natural_sources\nEmisSALCCL_Natural SALCCL  107    -1  -1   2   kg/m2/s  SALCCL_emission_flux_from_natural_sources\n\n###############################################################################\n#####  SO2 emissions                                                      #####\n###############################################################################\nEmisSO2_Total      SO2    -1     -1  -1   3   kg/m2/s  SO2_emission_flux_from_all_sectors\nEmisSO2_Aircraft   SO2    0      20  -1   3   kg/m2/s  SO2_emission_flux_from_aircraft\nEmisSO2_Anthro     SO2    0      1   -1   3   kg/m2/s  SO2_emission_flux_from_anthropogenic\nEmisSO2_BioBurn    SO2    111    -1  -1   2   kg/m2/s  SO2_emission_flux_from_biomass_burning\nEmisSO2_VolcErupt  SO2    117    51  -1   3   kg/m2/s  SO2_emission_flux_from_eruptive_volcano\nEmisSO2_VolcDegas  SO2    117    52  -1   3   kg/m2/s  SO2_emission_flux_from_noneruptive_volcano\nEmisSO2_Ship       SO2    0      10  -1   2   kg/m2/s  SO2_emission_flux_from_ships\n\n###############################################################################\n#####  SO4 emissions                                                      #####\n###############################################################################\nEmisSO4_Total      SO4    -1     -1  -1   3   kg/m2/s  SO4_emission_flux_from_all_sectors\nEmisSO4_Aircraft   SO4    0      20  -1   3   kg/m2/s  SO4_emission_flux_from_aircraft\nEmisSO4_Anthro     SO4    0      1   -1   3   kg/m2/s  SO4_emission_flux_from_anthropogenic\nEmisSO4_Ship       SO4    0      10  -1   2   kg/m2/s  SO4_emission_flux_from_ship\n\n###############################################################################\n#####  SOAP sources                                                       #####\n###############################################################################\nEmisSOAP_Total     SOAP   -1     -1  -1   3   kg/m2/s  SOAP_emission_flux_from_all_sectors\nEmisSOAP_Aircraft  SOAP   0      20  -1   3   kg/m2/s  SOAP_emission_flux_from_aircraft\nEmisSOAP_Anthro    SOAP   0      1   -1   3   kg/m2/s  SOAP_emission_flux_from_anthropogenic\nEmisSOAP_Biogenic  SOAP   108    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biogenic_sources\nEmisSOAP_BioBurn   SOAP   111    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biomass_burning\nEmisSOAP_Ship      SOAP   0      10  -1   2   kg/m2/s  SOAP_emission_flux_from_ships\n\n###############################################################################\n#####  SOAS sources                                                       #####\n###############################################################################\nEmisSOAS_Biogenic  SOAS   108    -1  -1   2   kg/m2/s  SOAS_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  TOLU emissions                                                     #####\n###############################################################################\nEmisTOLU_Total     TOLU   -1     -1  -1   3   kg/m2/s  TOLU_emission_flux_from_all_sectors\nEmisTOLU_Anthro    TOLU   0      1   -1   3   kg/m2/s  TOLU_emission_flux_from_anthropogenic\nEmisTOLU_BioBurn   TOLU   111    -1  -1   2   kg/m2/s  TOLU_emission_flux_from_biomass_burning\nEmisTOLU_Ship      TOLU   0      10  -1   2   kg/m2/s  TOLU_emission_flux_from_ships\n\n###############################################################################\n#####  XYLE emissions                                                     #####\n###############################################################################\nEmisXYLE_Total     XYLE   -1     -1  -1   3   kg/m2/s  XYLE_emission_flux_from_all_sectors\nEmisXYLE_Anthro    XYLE   0      1   -1   3   kg/m2/s  XYLE_emission_flux_from_anthropogenic\nEmisXYLE_BioBurn   XYLE   111    -1  -1   2   kg/m2/s  XYLE_emission_flux_from_biomass_burning\nEmisXYLE_Ship      XYLE   0      10  -1   2   kg/m2/s  XYLE_emission_flux_from_ships\n\n###############################################################################\n#####  Additional diagnostics saved out via HEMCO extensions              #####\n###############################################################################\n\n#=============================\n# LIGHTNOX extension\n#=============================\nHcoLightningFlashRate_Total     -1 103 -1 -1 2 flashes/min/km2 Total_lightning_flash_rate\nHcoLightningFlashRate_IntraCld  -1 103 -1 -1 2 flashes/min/km2 Intra-cloud_lightning_flash_rate\nHcoLightningFlashRate_CldGround -1 103 -1 -1 2 flashes/min/km2 Cloud-ground_lightning_flash_rate\nHcoConvectiveCloudTopHeight     -1 103 -1 -1 2 level           Convective_cloud_top_height\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.metals",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for trace metals simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name    Spec ExtNr Cat Hier Dim OutUnit  LongName\n#\n# Aluminum\n#\nEmisAlF1  AlF1  0    -1  -1   2   kg/m2/s  Aluminum emissions from dust (Reff = 0.7 um)\nEmisAlF2  AlF2  0    -1  -1   2   kg/m2/s  Aluminum emissions from dust (Reff = 1.4 um)\n#\n# Arsenic\n#\nEmisAsF1  AsF1  0    -1  -1   2   kg/m2/s  Arsenic emissions from dust (Reff = 0.7 um)\nEmisAsF2  AsF1  0    -1  -1   2   kg/m2/s  Arsenic emissions from dust (Reff = 1.4 um)\n#\n# Calcium\n#\nEmisCaF1  CaF1  0    -1  -1   2   kg/m2/s  Calcium emissions from dust (Reff = 0.7 um)\nEmisCaF2  CaF2  0    -1  -1   2   kg/m2/s  Calcium emissions from dust (Reff = 1.4 um)\nEmisCaC3  CaC3  0    -1  -1   2   kg/m2/s  Calcium emissions from dust (Reff = 2.4 um)\nEmisCaC4  CaC4  0    -1  -1   2   kg/m2/s  Calcium emissions from dust (Reff = 4.5 um)\n#\n# Cadmium\n#\nEmisCdF1  CdF1  0    -1  -1   2   kg/m2/s  Cadmium emissions from dust (Reff = 0.7 um)\nEmisCdF2  CdF2  0    -1  -1   2   kg/m2/s  Cadmium emissions from dust (Reff = 1.4 um)\n#\n# Iron\n#\nEmisFeF1  FeF1  0    -1  -1   2   kg/m2/s  Iron emissions from dust (Reff = 0.7 um)\nEmisFeF2  FeF2  0    -1  -1   2   kg/m2/s  Iron emissions from dust (Reff = 1.4 um)\n#\n# Potassium\n#\nEmisKF1   KF1   0    -1  -1   2   kg/m2/s  Potassium emissions from dust (Reff = 0.7 um)\nEmisKF2   KF2   0    -1  -1   2   kg/m2/s  Potassium emissions from dust (Reff = 1.4 um)\nEmisKC3   KC3   0    -1  -1   2   kg/m2/s  Potassium emissions from dust (Reff = 2.4 um)\nEmisKC4   KC4   0    -1  -1   2   kg/m2/s  Potassium emissions from dust (Reff = 4.5 um)\n#\n# Magnesium\n#\nEmisMgF1  MgF1  0    -1  -1   2   kg/m2/s  Magnesium emissions from dust (Reff = 0.7 um)\nEmisMgF2  MgF2  0    -1  -1   2   kg/m2/s  Magnesium emissions from dust (Reff = 1.4 um)\nEmisMgC3  MgC3  0    -1  -1   2   kg/m2/s  Magnesium emissions from dust (Reff = 2.4 um)\nEmisMgC4  MgC4  0    -1  -1   2   kg/m2/s  Magnesium emissions from dust (Reff = 4.5 um)\n#\n# Manganese\n#\nEmisMnF1  MnF1  0    -1  -1   2   kg/m2/s  Manganese emissions from dust (Reff = 0.7 um)\nEmisMnF2  MnF2  0    -1  -1   2   kg/m2/s  Manganese emissions from dust (Reff = 1.4 um)\n#\n# Nickel\n#\nEmisNiF1  NiF1  0    -1  -1   2   kg/m2/s  Nickel emissions from dust (Reff = 0.7 um)\nEmisNiF2  NiF2  0    -1  -1   2   kg/m2/s  Nickel emissions from dust (Reff = 1.4 um)\n#\n# Lead\n#\nEmisPbF1  PbF1  0    -1  -1   2   kg/m2/s  Lead emissions from dust (Reff = 0.7 um)\nEmisPbF2  PbF2  0    -1  -1   2   kg/m2/s  Lead emissions from dust (Reff = 1.4 um)\n#\n# Silicon\n#\nEmisSiF1  SiF1  0    -1  -1   2   kg/m2/s  Silicon emissions from dust (Reff = 0.7 um)\nEmisSiF2  SiF2  0    -1  -1   2   kg/m2/s  Silicon emissions from dust (Reff = 1.4 um)\n#\n# Titanium\n#\nEmisTiF1  SiF1  0    -1  -1   2   kg/m2/s  Titanium emissions from dust (Reff = 0.7 um)\nEmisTiF2  SiF2  0    -1  -1   2   kg/m2/s  Titanium emissions from dust (Reff = 1.4 um)\n#EOC"
  },
  {
    "path": "run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.tagO3",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for tagO3 simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  13 Mar 2019 - M. Sulprizio- Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name              Spec   ExtNr Cat Hier Dim OutUnit  LongName\n\nEmisO3_Total        O3     -1    -1  -1   3   kg/m2/s  O3_emission_flux_from_all_sectors\n\n#EOC\n"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.Hg",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem Hg specialty simulations                 ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             #'MercuryChem',\n             #'MercuryEmis',\n             #'MercuryOcean',\n             'SpeciesConc',\n             #'Budget',\n             #'CloudConvFlux',\n             #'DryDep',\n\t     #'KppDiags',\n             #'ProdLoss',\n\t     #'RxnConst',\n\t     #'RxnRates',\n             #'SatDiagn',\n             #'SatDiagnEdge',\n             #'StateMet',\n             #'StateMetLevEdge',\n             #'WetLossConv',\n             #'WetLossLS',\n             #'BoundaryConditions',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          'End',\n  Restart.duration:           'End',\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Chem_KPPHvalue                 ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n                              'Chem_OceanHg0                  ',\n                              'Chem_OceanHg2                  ',\n                              'Chem_OceanHgP                  ',\n                              'Chem_SnowHgOcean               ',\n                              'Chem_SnowHgLand                ',\n                              'Chem_SnowHgOceanStored         ',\n                              'Chem_SnowHgLandStored          ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',\n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#\n# Available for all simulations\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#\n# Available for all simuations that have dry-depositing species\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n                              #'DryDepChm_?DRY?              ',\n                              #'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE MercuryChem COLLECTION %%%%%\n#\n# Concentration and prod/loss diagnostics for mercury species\n#==============================================================================\n  MercuryChem.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  MercuryChem.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  MercuryChem.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  MercuryChem.mode:           'time-averaged'\n  MercuryChem.fields:         'HgBrAfterChem                 ',\n                              'HgClAfterChem                 ',\n                              'HgOHAfterChem                 ',\n                              'HgBrOAfterChem                ',\n                              'HgClOAfterChem                ',\n                              'HgOHOAfterChem                ',\n                              'Hg2GToHg2P                    ',\n                              'Hg2PToHg2G                    ',\n                              'Hg2GasToHg2StrP               ',\n                              'Hg2GasToSSA                   ',\n::\n#==============================================================================\n# %%%%% THE MercuryEmis COLLECTION %%%%%\n#\n# Concentration and prod/loss diagnostics for mercury species that are\n# not archived by HEMCO.\n#==============================================================================\n  MercuryEmis.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  MercuryEmis.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  MercuryEmis.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  MercuryEmis.mode:           'time-averaged'\n  MercuryEmis.fields:         'EmisHg0land                   ',\n                              'EmisHg0ocean                  ',\n                              'EmisHg0snow                   ',\n                              'EmisHg0soil                   ',\n::\n#==============================================================================\n# %%%%% THE MercuryOcean COLLECTION %%%%%\n#\n# Oceanic masses and fluxes of mercury species\n#==============================================================================\n  MercuryOcean.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  MercuryOcean.frequency:     ${RUNDIR_HIST_TIME_AVG_FREQ}\n  MercuryOcean.duration:      ${RUNDIR_HIST_TIME_AVG_DUR}\n  MercuryOcean.mode:          'time-averaged'\n  MercuryOcean.fields:        'FluxHg0fromAirToOcean         ',\n                              'FluxHg0fromOceanToAir         ',\n                              'FluxHg2HgPfromAirToOcean      ',\n                              'FluxHg2toDeepOcean            ',\n                              'FluxOCtoDeepOcean             ',\n                              'MassHg0inOcean                ',\n                              'MassHg2inOcean                ',\n                              'MassHgPinOcean                ',\n                              'MassHgTotalInOcean            ',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Chemical production and loss rates\n#==============================================================================\n  ProdLoss.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ProdLoss.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  ProdLoss.mode:              'time-averaged'\n  ProdLoss.fields:            'Prod_?PRD?                    ',\n::\n#==============================================================================\n# %%%%% THE KppDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver.\n#==============================================================================\n  KppDiags.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  KppDiags.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  KppDiags.mode:              'time-averaged'\n  KppDiags.fields:            'KppIntCounts                  ',\n                              'KppJacCounts                  ',\n                              'KppTotSteps                   ',\n                              'KppAccSteps                   ',\n                              'KppRejSteps                   ',\n                              'KppLuDecomps                  ',\n                              'KppSubsts                     ',\n                              'KppSmDecomps                  ',\n                              'KppTime                       ',\n::\n#==============================================================================\n# %%%%% THE RxnConst COLLECTION %%%%%\n#\n# Archives chemical reaction rates constants from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnConst_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#\n# The units of reaction rate constants vary according to the number of\n# reactants in the reaction.\n#==============================================================================\n  RxnConst.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  RxnConst.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RxnConst.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  RxnConst.mode:              'time-averaged'\n  RxnConst.fields:            'RxnConst_EQ0001                ',\n                              'RxnConst_EQ0002                ',\n                              # ... add others as needed ...\n::\n#==============================================================================\n# %%%%% THE RxnRates COLLECTION %%%%%\n#\n# Archives chemical reaction rates from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnRate_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#==============================================================================\n  RxnRates.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  RxnRates.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RxnRates.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  RxnRates.mode:              'time-averaged'\n  RxnRates.fields:            'RxnRate_EQ0001                 ',\n                              'RxnRate_EQ0002                 ',\n                              # ... add others as needed ...\n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_Hg0               ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnWetLossLS_Hg0          ',\n                              'SatDiagnWetLossConv_Hg0        ',\n                              'SatDiagnJval_Hg0               ',\n                              'SatDiagnDryDep_Hg0             ',\n                              'SatDiagnOHreactivity           ',\n                              'SatDiagnColEmis_Hg0            ',\n                              'SatDiagnSurfFlux_Hg0           ',\n                              'SatDiagnColEmis_CH2O           ',\n                              'SatDiagnSurfFlux_CH2O          ',\n                              'SatDiagnColEmis_NO             ',\n                              'SatDiagnSurfFlux_NO            ',\n                              'SatDiagnProd_?PRD?             ',\n                              'SatDiagnLoss_?LOS?             ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges) during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                  ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossConv.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#==============================================================================\n# Loss due to rainout and washout (per deposited species)\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossLS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossLS.mode:             'time-averaged'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::\n#==============================================================================\n# %%%%% THE BoundaryConditions COLLECTION %%%%%\n#\n# GEOS-Chem boundary conditions for use in nested grid simulations\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  BoundaryConditions.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  BoundaryConditions.frequency:  00000000 030000\n  BoundaryConditions.duration:   00000001 000000\n  BoundaryConditions.mode:       'instantaneous'\n  BoundaryConditions.fields:     'SpeciesBC_?ADV?             ',\n::"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.POPs",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem POPs specialty simulations               ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             #'POPS',\n             'SpeciesConc',\n             #'Budget',\n             #'CloudConvFlux',\n             #'DryDep',\n             #'StateMet',\n             #'StateMetLevEdge',\n             #'WetLossConv',\n             #'WetLossLS',\n             #'BoundaryConditions',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          'End',\n  Restart.duration:           'End',\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',\n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n                              #'DryDepChm_?DRY?              ',\n                              #'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE POPS COLLECTION %%%%%\n#\n# Emissions, fluxes, and chemical prod/loss for persistent organic pollutants\n#==============================================================================\n  POPS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  POPS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  POPS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  POPS.mode:             'time-averaged'\n  POPS.fields:           'LossPOPPOCPObyGasPhase             ',\n                         'ProdPOPPOCPOfromGasPhase           ',\n                         'LossPOPPBCPObyGasPhase             ',\n                         'ProdPOPPBCPOfromGasPhase           ',\n                         'ProdPOPGfromOH                     ',\n                         'ProdPOPPOCPOfromO3                 ',\n                         'ProdPOPPOCPIfromO3                 ',\n                         'ProdPOPPBCPIfromO3                 ',\n                         'ProdPOPPBCPOfromO3                 ',\n                         'ProdPOPPOCPOfromNO3                ',\n                         'ProdPOPPOCPIfromNO3                ',\n                         'ProdPOPPBCPIfromNO3                ',\n                         'ProdPOPPBCPOfromNO3                ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossConv.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#==============================================================================\n# Loss due to rainout and washout (per deposited species)\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossLS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossLS.mode:             'time-averaged'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::\n#==============================================================================\n# %%%%% THE BoundaryConditions COLLECTION %%%%%\n#\n# GEOS-Chem boundary conditions for use in nested grid simulations\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  BoundaryConditions.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  BoundaryConditions.frequency:  00000000 030000\n  BoundaryConditions.duration:   00000001 000000\n  BoundaryConditions.mode:       'instantaneous'\n  BoundaryConditions.fields:     'SpeciesBC_?ADV?             ',\n::"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.TransportTracers",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem Transport Tracers simulations            ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             'RadioNuclide',\n             'SpeciesConc',\n             #'Budget',\n             'CloudConvFlux',\n             'DryDep',\n\t     #'SatDiagn',\n\t     #'SatDiagnEdge',\n             'StateMet',\n             'StateMetLevEdge',\n             'WetLossConv',\n             'WetLossLS',\n             'AdvFluxVert',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          'End',\n  Restart.duration:           'End',\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',\n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n                              #'DryDepChm_?DRY?              ',\n                              #'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE RadioNuclide COLLECTION %%%%%\n#\n# Radioactive production and decay of radionuclide species\n#==============================================================================\n  RadioNuclide.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  RadioNuclide.frequency:     ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RadioNuclide.duration:      ${RUNDIR_HIST_TIME_AVG_DUR}\n  RadioNuclide.mode:          'time-averaged'\n  RadioNuclide.fields:        'PbFromRnDecay                 ',  \n                              'RadDecay_Rn222                ',  \n                              'RadDecay_Pb210                ',  \n                              'RadDecay_Pb210s               ',  \n                              'RadDecay_Be7                  ',  \n                              'RadDecay_Be7s                 ',  \n                              'RadDecay_Be10                 ',  \n                              'RadDecay_Be10s                ', \n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_Rn222             ',\n                              'SatDiagnConc_Pb210             ',\n                              'SatDiagnConc_Be7               ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnTAir                   ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnWetLossLS_Pb210        ',\n                              'SatDiagnWetLossConv_Pb210      ',\n                              'SatDiagnWetLossLS_Be7          ',\n                              'SatDiagnWetLossConv_Be7        ',\n                              'SatDiagnDryDep_Pb210           ',\n                              'SatDiagnDryDep_Be7             ',\n                              'SatDiagnDryDepVel_Pb210        ',\n                              'SatDiagnDryDepVel_Be7          ',\n                              'SatDiagnOHreactivity           ',\n                              'SatDiagnColEmis_Rn222          ',\n                              'SatDiagnSurfFlux_Rn222         ',\n                              'SatDiagnColEmis_Pb210          ',\n                              'SatDiagnSurfFlux_Pb210         ',\n                              'SatDiagnColEmis_Be7            ',\n                              'SatDiagnSurfFlux_Be7           ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges)  during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                  ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossConv.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#==============================================================================\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossLS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossLS.mode:             'time-averaged'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::\n#==============================================================================\n# %%%%% THE AdvFluxVert COLLECTION %%%%%\n#\n# Diagnostics for evaluating transport, including age of air [s]\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  AdvFluxVert.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AdvFluxVert.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  AdvFluxVert.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  AdvFluxVert.mode:           'time-averaged'\n  AdvFluxVert.fields:         'AdvFluxVert_?ADV?             ',\n::\n"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.aerosol",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem aerosol-only specialty simulations       ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             'SpeciesConc',\n             #'Budget',\n             #'AerosolMass',\n             #'Aerosols',\n             #'CloudConvFlux',\n             #'DryDep',\n             #'ProdLoss',\n\t     #'SatDiagn',\n\t     #'SatDiagnEdge',\n             #'StateChm',\n             #'StateMet',\n             #'StateMetLevEdge',\n             #'WetLossConv',\n             #'WetLossLS',\n             #'BoundaryConditions',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          'End',\n  Restart.duration:           'End',\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Chem_AeroH2OSNA                ',\n                              'Chem_H2O2AfterChem             ',\n                              'Chem_SO2AfterChem              ',\n                              'Chem_DryDepNitrogen            ',\n                              'Chem_WetDepNitrogen            ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',\n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE AerosolMass COLLECTION %%%%%\n#\n# Aerosol and PM2.5 mass\n#==============================================================================\n  AerosolMass.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AerosolMass.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  AerosolMass.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  AerosolMass.mode:           'time-averaged'\n  AerosolMass.fields:         'AerMassBC                    ',\n                              'AerMassNH4                   ',\n                              'AerMassNIT                   ',\n                              'AerMassSAL                   ',\n                              'AerMassSO4                   ',\n                              'PM25                         ',\n                              'PM10                         ',\n                              'TotalOA                      ',\n                              'TotalOC                      ',\n::\n#==============================================================================\n# %%%%% The Aerosols COLLECTION %%%%%\n#\n# Aerosol optical depth, surface area, number density, and hygroscopic growth\n#==============================================================================\n  Aerosols.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  Aerosols.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Aerosols.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  Aerosols.mode:              'time-averaged'\n  Aerosols.fields:            'AODDust                       ',\n                              'AODDustWL1_?DUSTBIN?          ',\n                              'AODHygWL1_?HYG?               ',\n                              'AODSOAfromAqIsopreneWL1       ',\n                              'AODStratLiquidAerWL1          ',\n                              'AODPolarStratCloudWL1         ',\n                              'AerHygroscopicGrowth_?HYG?    ',\n                              'AerNumDensityStratLiquid      ',\n                              'AerNumDensityStratParticulate ',\n                              'AerAqueousVolume              ',\n                              'AerSurfAreaDust               ',\n                              'AerSurfAreaHyg_?HYG?          ',\n                              'AerSurfAreaStratLiquid        ',\n                              'AerSurfAreaPolarStratCloud    ',\n                              'Chem_AeroAreaMDUST1           ',\n                              'Chem_AeroAreaMDUST2           ',\n                              'Chem_AeroAreaMDUST3'          ',\n                              'Chem_AeroAreaMDUST4           ',\n                              'Chem_AeroAreaMDUST5           ',\n                              'Chem_AeroAreaMDUST6           ',\n                              'Chem_AeroAreaMDUST7           ',\n                              'Chem_AeroAreaSULF             ',\n                              'Chem_AeroAreaBC               ',\n                              'Chem_AeroAreaOC               ',\n                              'Chem_AeroAreaSSA              ',\n                              'Chem_AeroAreaSSC              ',\n                              'Chem_AeroRadiMDUST1           ',\n                              'Chem_AeroRadiMDUST2           ',\n                              'Chem_AeroRadiMDUST3           ',\n                              'Chem_AeroRadiMDUST4           ',\n                              'Chem_AeroRadiMDUST5           ',\n                              'Chem_AeroRadiMDUST6           ',\n                              'Chem_AeroRadiMDUST7           ',\n                              'Chem_AeroRadiSULF             ',\n                              'Chem_AeroRadiBC               ',\n                              'Chem_AeroRadiOC               ',\n                              'Chem_AeroRadiSSA              ',\n                              'Chem_AeroRadiSSC              ',\n                              'Chem_WetAeroAreaMDUST1        ',\n                              'Chem_WetAeroAreaMDUST2        ',\n                              'Chem_WetAeroAreaMDUST3        ',\n                              'Chem_WetAeroAreaMDUST4        ',\n                              'Chem_WetAeroAreaMDUST5        ',\n                              'Chem_WetAeroAreaMDUST6        ',\n                              'Chem_WetAeroAreaMDUST7        ',\n                              'Chem_WetAeroAreaSULF          ',\n                              'Chem_WetAeroAreaBC            ',\n                              'Chem_WetAeroAreaOC            ',\n                              'Chem_WetAeroAreaSSA           ',\n                              'Chem_WetAeroAreaSSC           ',\n                              'Chem_WetAeroRadiMDUST1        ',\n                              'Chem_WetAeroRadiMDUST2        ',\n                              'Chem_WetAeroRadiMDUST3        ',\n                              'Chem_WetAeroRadiMDUST4        ',\n                              'Chem_WetAeroRadiMDUST5        ',\n                              'Chem_WetAeroRadiMDUST6        ',\n                              'Chem_WetAeroRadiMDUST7        ',\n                              'Chem_WetAeroRadiSULF          ',\n                              'Chem_WetAeroRadiBC            ',\n                              'Chem_WetAeroRadiOC            ',\n                              'Chem_WetAeroRadiSSA           ',\n                              'Chem_WetAeroRadiSSC           ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n                              #'DryDepChm_?DRY?              ',\n                              #'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Chemical production and loss rates\n#==============================================================================\n  ProdLoss.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ProdLoss.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  ProdLoss.mode:              'time-averaged'\n  ProdLoss.fields:            'ProdBCPIfromBCPO              ',\n                              'ProdOCPIfromOCPO              ',\n\t\t\t      'ProdSO2fromDMSandOH           ',\n\t\t\t      'ProdSO2fromDMSandNO3          ',\n\t\t\t      'ProdSO2fromDMS                ',\n\t\t\t      'ProdMSAfromDMS                ',\n\t\t\t      'ProdSO4fromGasPhase           ',\n                              'ProdSO4fromH2O2inCloud        ',\n#                             'ProdSO4fromO2inCloudMetal     ',\n                              'ProdSO4fromO3inCloud          ',\n                              'ProdSO4fromO3inSeaSalt        ',\n                              'ProdSO4fromSRO3               ',\n                              'ProdSO4fromO3s                ',\n                              'LossHNO3onSeaSalt             ',\n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_BCPI              ',\n                              'SatDiagnConc_BCPO              ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnPEdge                  ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnTAir                   ',\n                              'SatDiagnSLP                    ',\n                              'SatDiagnSPHU                   ',\n                              'SatDiagnTS                     ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnWetLossLS_BCPI         ',\n                              'SatDiagnWetLossConv_BCPI       ',\n                              'SatDiagnDryDep_BCPI            ',\n                              'SatDiagnDryDepVel_BCPI         ',\n                              'SatDiagnColEmis_BCPI           ',\n                              'SatDiagnSurfFlux_BCPI          ',\n                              'SatDiagnProd_?PRD?             ',\n                              'SatDiagnLoss_?LOS?             ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges) during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                  ',\n::\n#==============================================================================\n# %%%%% THE StateChm COLLECTION %%%%%\n#\n# Fields of the State_Chm object (see also Aerosols collection)\n#==============================================================================\n  StateChm.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateChm.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateChm.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateChm.mode:              'time-averaged'\n  StateChm.fields:            'Chem_IsorropAeropHAccum       ',\n                              'Chem_IsorropAeropHCoarse      ',\n                              'Chem_IsorropHplusAccum        ',\n                              'Chem_IsorropHplusCoarse       ',\n                              'Chem_IsorropAeroH2OAccum      ',\n                              'Chem_IsorropAeroH2OCoarse     ',\n                              'Chem_IsorropSulfate           ',\n                              'Chem_IsorropNitrateAccum      ',\n                              'Chem_IsorropNitrateCoarse     ',\n                              'Chem_IsorropChlorideAccum     ',\n                              'Chem_IsorropChlorideCoarse    ',\n                              'Chem_IsorropBisulfate         ',\n                              'Chem_pHCloud                  ',\n                              'Chem_isCloud                  ',\n                              'Chem_SSAlkAccumMode           ',\n                              'Chem_SSAlkCoarseMode          ',\n                              'Chem_HSO3AQ                   ',\n                              'Chem_SO3AQ                    ',\n                              'Chem_fupdateHOBr              ',\n                              'Chem_GammaN2O5overall         ',\n                              'Chem_GammaN2O5fine            ',\n                              'Chem_YieldClNO2fine           ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossConv.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#==============================================================================\n# Loss due to rainout and washout (per deposited species)\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossLS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossLS.mode:             'time-averaged'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::\n#==============================================================================\n# %%%%% THE BoundaryConditions COLLECTION %%%%%\n#\n# GEOS-Chem boundary conditions for use in nested grid simulations\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  BoundaryConditions.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  BoundaryConditions.frequency:  00000000 030000\n  BoundaryConditions.duration:   00000001 000000\n  BoundaryConditions.mode:       'instantaneous'\n  BoundaryConditions.fields:     'SpeciesBC_?ADV?             ',\n::"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.carbon",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem carbon simulation                        ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             'SpeciesConc',\n             #'Budget',\n             #'CloudConvFlux',\n             #'ConcAfterChem',\n             #'KppDiags',\n             'ProdLoss',\n             #'RxnConst',\n             #'RxnRates',\n             #'SatDiagn',\n             #'SatDiagnEdge',\n             'StateMet',\n             'StateMetLevEdge',\n             #'BoundaryConditions',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          ${RUNDIR_HIST_TIME_AVG_FREQ},\n  Restart.duration:           ${RUNDIR_HIST_TIME_AVG_FREQ},\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE KppDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver.\n#\n# NOTE: The carbon simulation uses the Forward Euler (feuler) solver, which\n# has no internal timestepping loop.  Therefore many of these diagnostics\n# will have little or no variation across grid boxes.\n#==============================================================================\n  KppDiags.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  KppDiags.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  KppDiags.mode:              'time-averaged'\n  KppDiags.fields:            'KppIntCounts                  ',\n                              'KppJacCounts                  ',\n                              'KppTotSteps                   ',\n                              'KppAccSteps                   ',\n                              'KppRejSteps                   ',\n                              'KppLuDecomps                  ',\n                              'KppSubsts                     ',\n                              'KppSmDecomps                  ',\n                              'KppTime                       ',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Production and loss fields from the carbon simulation via KPP\n#==============================================================================\n  ProdLoss.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ProdLoss.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  ProdLoss.mode:             'time-averaged'\n  ProdLoss.fields:           'ProdCOfromCH4                  ',\n                             'ProdCOfromNMVOC                ',\n                             'ProdCO2fromCO                  ',\n::\n#==============================================================================\n# %%%%% THE RxnConst COLLECTION %%%%%\n#\n# Archives chemical reaction rates constants from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnConst_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#\n# The units of reaction rate constants vary according to the number of\n# reactants in the reaction.\n#==============================================================================\n  RxnConst.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  RxnConst.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RxnConst.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  RxnConst.mode:              'time-averaged'\n  RxnConst.fields:            'RxnConst_EQ0001                ',\n                              'RxnConst_EQ0002                ',\n                              'RxnConst_EQ0003                ',\n                              'RxnConst_EQ0004                ',\n                              'RxnConst_EQ0005                ',\n                              'RxnConst_EQ0006                ',\n                              'RxnConst_EQ0007                ',\n                              'RxnConst_EQ0008                ',\n::\n#==============================================================================\n# %%%%% THE RxnRates COLLECTION %%%%%\n#\n# Archives chemical reaction rates from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnRate_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#==============================================================================\n  RxnRates.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  RxnRates.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RxnRates.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  RxnRates.mode:              'time-averaged'\n  RxnRates.fields:            'RxnRate_EQ0001                 ',\n                              'RxnRate_EQ0002                 ',\n                              'RxnRate_EQ0003                 ',\n                              'RxnRate_EQ0004                 ',\n                              'RxnRate_EQ0005                 ',\n                              'RxnRate_EQ0006                 ',\n                              'RxnRate_EQ0007                 ',\n                              'RxnRate_EQ0008                 ',\n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_CH4               ',\n                              'SatDiagnConc_CO                ',\n                              'SatDiagnConc_CO2               ',\n                              'SatDiagnConc_OCS               ',\n                              'SatDiagnOH                     ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnColEmis_CH4            ',\n                              'SatDiagnSurfFlux_CH4           ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges) during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                  ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_PEDGE                     ',\n                               #'Met_CMFMC                     ',\n                               #'Met_PEDGEDRY                  ',\n                               #'Met_PFICU                     ',\n                               #'Met_PFILSAN                   ',\n                               #'Met_PFLCU                     ',\n                               #'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE BoundaryConditions COLLECTION %%%%%\n#\n# GEOS-Chem boundary conditions for use in nested grid simulations\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  BoundaryConditions.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  BoundaryConditions.frequency:  00000000 030000\n  BoundaryConditions.duration:   00000001 000000\n  BoundaryConditions.mode:       'instantaneous'\n  BoundaryConditions.fields:     'SpeciesBC_?ADV?             ',\n::"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem full chemistry simulations               ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             'Metrics',\n             'SpeciesConc',\n             #'AdvFluxVert',\n             #'AerosolMass',\n             #'Aerosols',\n             ##'Budget',\n             ##'CloudConvFlux',\n             ##'ConcAboveSfc',\n             ##'ConcAfterChem',\n             #'DryDep',\n             #'JValues',\n             ##'KppDiags',\n             ##'KppARDiags',\n             ##'ProdLoss',\n             ##'RRTMG',\n             ##'RxnRates',\n             ##'RxnConst',\n             ##'SatDiagn',\n             ##'SatDiagnEdge',\n             ##'StateChm',\n             #'StateMet',\n             ##'StateMetLevEdge',\n             ##'StratBM',\n             ##'Tomas',\n             ##'UVFlux',\n             ##'WetLossConv',\n             ##'WetLossLS',\n             ##'BoundaryConditions',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          ${RUNDIR_HIST_INST_FREQ}\n  Restart.duration:           ${RUNDIR_HIST_INST_DUR}\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Chem_AeroH2OSNA                ',\n                              'Chem_ORVCsesq                  ',\n                              'Chem_H2O2AfterChem             ',\n                              'Chem_JOH                       ',\n                              'Chem_JNO2                      ',\n                              'Chem_SO2AfterChem              ',\n                              'Chem_DryDepNitrogen            ',\n                              'Chem_WetDepNitrogen            ',\n                              'Chem_KPPHvalue                 ',\n                              'Chem_StatePSC                  ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE Metrics COLLECTION %%%%%\n#\n# Diagnostics for chemistry metrics such as global mean OH concentration,\n# MCF lifetime, and CH4 lifetime.\n#\n# This diagnostic collection should always be left on.\n# Use the run-directory script ./metrics_fullchem.py to print results.\n#==============================================================================\n  Metrics.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  Metrics.frequency:          'End',\n  Metrics.duration:           'End',\n  Metrics.mode:               'time-averaged'\n  Metrics.fields:             'AirMassColumnFull             ',\n                              'LossOHbyCH4columnTrop         ',\n                              'LossOHbyMCFcolumnTrop         ',\n                              'OHwgtByAirMassColumnFull      ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              ##'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE AdvFluxVert COLLECTION %%%%%\n#\n# GEOS-Chem vertical mass flux of species in kg/s (default = O3 only)\n#==============================================================================\n  AdvFluxVert.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AdvFluxVert.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  AdvFluxVert.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  AdvFluxVert.mode:           'time-averaged'\n  AdvFluxVert.fields:         'AdvFluxVert_O3                 ',\n::\n#==============================================================================\n# %%%%% THE AerosolMass COLLECTION %%%%%\n#\n# Aerosol and PM2.5 mass\n#==============================================================================\n  AerosolMass.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AerosolMass.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  AerosolMass.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  AerosolMass.mode:           'time-averaged'\n  AerosolMass.fields:         'AerMassASOA                  ',\n                              'AerMassBC                    ',\n                              'AerMassHMS                   ',\n                              'AerMassINDIOL                ',\n                              'AerMassLVOCOA                ',\n                              'AerMassNH4                   ',\n                              'AerMassNIT                   ',\n                              'AerMassOPOA                  ',\n                              'AerMassPOA                   ',\n                              'AerMassSAL                   ',\n                              'AerMassSO4                   ',\n                              'AerMassSOAGX                 ',\n                              'AerMassSOAIE                 ',\n                              'AerMassTSOA                  ',\n                              'BetaNO                       ',\n                              'PM25                         ',\n                              'PM10                         ',\n                              'TotalBiogenicOA              ',\n                              'TotalOA                      ',\n                              'TotalOC                      ',\n::\n#==============================================================================\n# %%%%% The Aerosols COLLECTION %%%%%\n#\n# Aerosol optical depth, surface area, number density, and hygroscopic growth\n#==============================================================================\n  Aerosols.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  Aerosols.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Aerosols.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  Aerosols.mode:              'time-averaged'\n  Aerosols.fields:            'AODDust                       ',\n                              'AODDustWL1_?DUSTBIN?          ',\n                              'AODHygWL1_?HYG?               ',\n                              'AODSOAfromAqIsopreneWL1       ',\n                              'AODStratLiquidAerWL1          ',\n                              'AODPolarStratCloudWL1         ',\n                              'AerHygroscopicGrowth_?HYG?    ',\n                              'AerNumDensityStratLiquid      ',\n                              'AerNumDensityStratParticulate ',\n                              'AerAqueousVolume              ',\n                              'AerSurfAreaDust               ',\n                              'AerSurfAreaHyg_?HYG?          ',\n                              'AerSurfAreaStratLiquid        ',\n                              'AerSurfAreaPolarStratCloud    ',\n                              'Chem_AeroAreaMDUST1           ',\n                              'Chem_AeroAreaMDUST2           ',\n                              'Chem_AeroAreaMDUST3           ',\n                              'Chem_AeroAreaMDUST4           ',\n                              'Chem_AeroAreaMDUST5           ',\n                              'Chem_AeroAreaMDUST6           ',\n                              'Chem_AeroAreaMDUST7           ',\n                              'Chem_AeroAreaSULF             ',\n                              'Chem_AeroAreaBC               ',\n                              'Chem_AeroAreaOC               ',\n                              'Chem_AeroAreaSSA              ',\n                              'Chem_AeroAreaSSC              ',\n                              #'Chem_AeroAreaBGSULF           ',\n                              #'Chem_AeroAreaICEI             ',\n                              'Chem_AeroRadiMDUST1           ',\n                              'Chem_AeroRadiMDUST2           ',\n                              'Chem_AeroRadiMDUST3           ',\n                              'Chem_AeroRadiMDUST4           ',\n                              'Chem_AeroRadiMDUST5           ',\n                              'Chem_AeroRadiMDUST6           ',\n                              'Chem_AeroRadiMDUST7           ',\n                              'Chem_AeroRadiSULF             ',\n                              'Chem_AeroRadiBC               ',\n                              'Chem_AeroRadiOC               ',\n                              'Chem_AeroRadiSSA              ',\n                              'Chem_AeroRadiSSC              ',\n                              #'Chem_AeroRadiBGSULF           ',\n                              #'Chem_AeroRadiICEI             ',\n                              'Chem_WetAeroAreaMDUST1        ',\n                              'Chem_WetAeroAreaMDUST2        ',\n                              'Chem_WetAeroAreaMDUST3        ',\n                              'Chem_WetAeroAreaMDUST4        ',\n                              'Chem_WetAeroAreaMDUST5        ',\n                              'Chem_WetAeroAreaMDUST6        ',\n                              'Chem_WetAeroAreaMDUST7        ',\n                              'Chem_WetAeroAreaSULF          ',\n                              'Chem_WetAeroAreaBC            ',\n                              'Chem_WetAeroAreaOC            ',\n                              'Chem_WetAeroAreaSSA           ',\n                              'Chem_WetAeroAreaSSC           ',\n                              #'Chem_WetAeroAreaBGSULF        ',\n                              #'Chem_WetAeroAreaICEI          ',\n                              'Chem_WetAeroRadiMDUST1        ',\n                              'Chem_WetAeroRadiMDUST2        ',\n                              'Chem_WetAeroRadiMDUST3        ',\n                              'Chem_WetAeroRadiMDUST4        ',\n                              'Chem_WetAeroRadiMDUST5        ',\n                              'Chem_WetAeroRadiMDUST6        ',\n                              'Chem_WetAeroRadiMDUST7        ',\n                              'Chem_WetAeroRadiSULF          ',\n                              'Chem_WetAeroRadiBC            ',\n                              'Chem_WetAeroRadiOC            ',\n                              'Chem_WetAeroRadiSSA           ',\n                              'Chem_WetAeroRadiSSC           ',\n                              #'Chem_WetAeroRadiBGSULF        ',\n                              #'Chem_WetAeroRadiICEI          ',\n                              #'Chem_StatePSC                 ',\n                              #'Chem_KhetiSLAN2O5H2O          ',\n                              #'Chem_KhetiSLAN2O5HCl          ',\n                              #'Chem_KhetiSLAClNO3H2O         ',\n                              #'Chem_KhetiSLAClNO3HCl         ',\n                              #'Chem_KhetiSLAClNO3HBr         ',\n                              #'Chem_KhetiSLABrNO3H2O         ',\n                              #'Chem_KhetiSLABrNO3HCl         ',\n                              #'Chem_KhetiSLAHOClHCl          ',\n                              #'Chem_KhetiSLAHOClHBr          ',\n                              #'Chem_KhetiSLAHOBrHCl          ',\n                              #'Chem_KhetiSLAHOBrHBr          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',\n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE ConcAboveSfc COLLECTION %%%%%\n#\n# Concentrations of O3 and HNO3 at a user-specified altitude above\n# the surface, such as 10m.  Set the desired output altitude in meters\n# in the deposition settings in geoschem_config.yml.\n#\n# NOTES:\n# (1) This collection requires dry deposition to be turned on.\n# (2) All of the fields in the collection must be turned on.\n# (3) This collection is best used with mode \"instantaneous\".\n#==============================================================================\n  ConcAboveSfc.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAboveSfc.frequency:     ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ConcAboveSfc.duration:      ${RUNDIR_HIST_TIME_AVG_DUR}\n  ConcAboveSfc.mode:          'instantaneous'\n  ConcAboveSfc.fields:        'DryDepRaALT1                  ',\n                              'DryDepVelForALT1_?DRYALT?     ',\n                              'SpeciesConcALT1_?DRYALT?      ',\n::\n#==============================================================================\n# %%%%% THE ConcAfterChem COLLECTION %%%%%\n#\n# Concentrations of OH, HO2, O1D, O3P immediately after exiting the KPP solver\n#==============================================================================\n  ConcAfterChem.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAfterChem.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ConcAfterChem.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  ConcAfterChem.mode:         'time-averaged'\n  ConcAfterChem.fields:       'OHconcAfterChem               ',\n                              'HO2concAfterChem              ',\n                              'O1DconcAfterChem              ',\n                              'O3PconcAfterChem              ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDep_?DRY?                  ',\n                              'DryDepVel_?DRY?               ',\n                              ##'DryDepChm_?DRY?              ',\n                              ##'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE JValues COLLECTION %%%%%\n#\n# Photolysis rates (from the photolysis module)\n#==============================================================================\n  JValues.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  JValues.frequency:          ${RUNDIR_HIST_TIME_AVG_FREQ}\n  JValues.duration:           ${RUNDIR_HIST_TIME_AVG_DUR}\n  JValues.mode:               'time-averaged'\n  JValues.fields:             'Jval_?PHO?                    ',\n                              'JvalO3O1D                     ',\n                              'JvalO3O3P                     ',\n::\n#==============================================================================\n# %%%%% THE UVFlux COLLECTION %%%%%\n#\n# UV fluxes (from the photolysis module)\n#==============================================================================\n  UVFlux.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  UVFlux.frequency:          ${RUNDIR_HIST_TIME_AVG_FREQ}\n  UVFlux.duration:           ${RUNDIR_HIST_TIME_AVG_DUR}\n  UVFlux.mode:               'time-averaged'\n  UVFlux.fields:             'UVFluxDiffuse_?UVFLX?         ',\n                             'UVFluxDirect_?UVFLX?          ',\n                             'UVFluxNet_?UVFLX?             ',\n::\n#==============================================================================\n# %%%%% THE KppDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver.\n#==============================================================================\n  KppDiags.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  KppDiags.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  KppDiags.mode:              'time-averaged'\n  KppDiags.fields:            'KppIntCounts                  ',\n                              'KppJacCounts                  ',\n                              'KppTotSteps                   ',\n                              'KppAccSteps                   ',\n                              'KppRejSteps                   ',\n                              'KppLuDecomps                  ',\n                              'KppSubsts                     ',\n                              'KppSmDecomps                  ',\n                              'KppTime                       ',\n                              #'KppNegatives                  ',\n                              #'KppNegatives0                 ',\n::\n#==============================================================================\n# %%%%% THE KppARDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver when auto-reduction solver is used.\n#==============================================================================\n  KppARDiags.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  KppARDiags.frequency:       ${RUNDIR_HIST_TIME_AVG_FREQ}\n  KppARDiags.duration:        ${RUNDIR_HIST_TIME_AVG_DUR}\n  KppARDiags.mode:            'time-averaged'\n  KppARDiags.fields:          'KppAutoReducerNVAR            ',\n                              'KppAutoReduceThres            ',\n                              'KppcNONZERO                   ',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Chemical production and loss rates\n#==============================================================================\n  ProdLoss.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ProdLoss.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  ProdLoss.mode:              'time-averaged'\n  ProdLoss.fields:            'Prod_?PRD?                    ',\n                              'ProdBCPIfromBCPO              ',\n                              'ProdOCPIfromOCPO              ',\n                              'ProdHMSfromSO2andHCHOinCloud  ',\n                              'ProdSO2andHCHOfromHMSinCloud  ',\n                              'ProdSO4fromHMSinCloud         ',\n                              'ProdSO4fromH2O2inCloud        ',\n                              'ProdSO4fromO2inCloudMetal     ',\n                              'ProdSO4fromO3inCloud          ',\n                              'ProdSO4fromO3inSeaSalt        ',\n                              'ProdSO4fromHOBrInCloud        ',\n                              'ProdSO4fromSRO3               ',\n                              'ProdSO4fromSRHObr             ',\n                              'ProdSO4fromO3s                ',\n                              'Loss_?LOS?                    ',\n                              'LossHNO3onSeaSalt             ',\n                              'ProdCOfromCH4                 ',\n                              'ProdCOfromNMVOC               ',\n::\n#==============================================================================\n# %%%%% THE RRTMG COLLECTION %%%%%\n#\n# Outputs for different species from the RRTMG radiative transfer model:\n# (See http://wiki.geos-chem.org/Coupling_GEOS-Chem_with_RRTMG)\n#\n#    0=BA (Baseline    )  1=O3 (Ozone          )   2=ME (Methane   )\n#    3=SU (Sulfate     )  4=NI (Nitrate        )   5=AM (Ammonium  )\n#    6=BC (Black carbon)  7=OA (Organic aerosol)   8=SS (Sea Salt  )\n#    9=DU (Mineral dust) 10=PM (All part. matter) 12=ST (Strat aer., UCX only)\n#\n# NOTES:\n# (1) Only request diagnostics you need to reduce the overall run time.\n# (2) The ?RRTMG? wildcard includes all output except ST (strat aerosols).\n#     However, if ST is included explicitly for one diagnostic then it\n#     will be included for all others that use the wildcard.\n# (3) Only enable ST if running with UCX.\n# (4) Optics diagnostics have a reduced set of output species (no BASE, O3, ME)\n#==============================================================================\n  RRTMG.template:             '%y4%m2%d2_%h2%n2z.nc4',\n  RRTMG.frequency:            ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RRTMG.duration:             ${RUNDIR_HIST_TIME_AVG_DUR}\n  RRTMG.mode:                 'time-averaged'\n  RRTMG.fields:               'RadClrSkyLWSurf_BASE   ',\n                              'RadClrSkyLWSurf_O3     ',\n                              'RadClrSkyLWSurf_ME     ',\n                              'RadClrSkyLWSurf_SU     ',\n                              'RadClrSkyLWSurf_NI     ',\n                              'RadClrSkyLWSurf_AM     ',\n                              'RadClrSkyLWSurf_BC     ',\n                              'RadClrSkyLWSurf_OA     ',\n                              'RadClrSkyLWSurf_SS     ',\n                              'RadClrSkyLWSurf_DU     ',\n                              'RadClrSkyLWSurf_PM     ',\n                              #'RadClrSkyLWSurf_ST     ',\n                              'RadAllSkyLWSurf_?RRTMG?',\n                              'RadClrSkySWSurf_?RRTMG?',\n                              'RadAllSkySWSurf_?RRTMG?',\n                              'RadClrSkyLWTOA_?RRTMG? ',\n                              'RadAllSkyLWTOA_?RRTMG? ',\n                              'RadClrSkySWTOA_?RRTMG? ',\n                              'RadAllSkySWTOA_?RRTMG? ',\n                              'RadAODWL1_SU          ',\n                              'RadAODWL1_NI          ',\n                              'RadAODWL1_AM          ',\n                              'RadAODWL1_BC          ',\n                              'RadAODWL1_OA          ',\n                              'RadAODWL1_SS          ',\n                              'RadAODWL1_DU          ',\n                              'RadAODWL1_PM          ',\n                              #'RadAODWL1_ST          ',\n                              'RadSSAWL1_SU          ',\n                              'RadSSAWL1_NI          ',\n                              'RadSSAWL1_AM          ',\n                              'RadSSAWL1_BC          ',\n                              'RadSSAWL1_OA          ',\n                              'RadSSAWL1_SS          ',\n                              'RadSSAWL1_DU          ',\n                              'RadSSAWL1_PM          ',\n                              #'RadSSAWL1_ST          ',\n                              'RadAsymWL1_SU         ',\n                              'RadAsymWL1_NI         ',\n                              'RadAsymWL1_AM         ',\n                              'RadAsymWL1_BC         ',\n                              'RadAsymWL1_OA         ',\n                              'RadAsymWL1_SS         ',\n                              'RadAsymWL1_DU         ',\n                              'RadAsymWL1_PM         ',\n                              #'RadAsymWL1_ST         ',\n::\n#==============================================================================\n# %%%%% THE RxnRates COLLECTION %%%%%\n#\n# Archives chemical reaction rates from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnRate_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#==============================================================================\n  RxnRates.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  RxnRates.frequency:  ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RxnRates.duration:   ${RUNDIR_HIST_TIME_AVG_DUR}\n  RxnRates.mode:       'time-averaged'\n  RxnRates.fields:     'RxnRate_EQ0001                           ',\n                       'RxnRate_EQ0002                           ',\n::\n#==============================================================================\n# %%%%% THE RxnConst COLLECTION %%%%%\n#\n# Archives chemical reaction rates constants from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnConst_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#\n# The units of reaction rate constants vary according to the number of reactants\n# in the reaction.\n#==============================================================================\n  RxnConst.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  RxnConst.frequency:  ${RUNDIR_HIST_TIME_AVG_FREQ}\n  RxnConst.duration:   ${RUNDIR_HIST_TIME_AVG_DUR}\n  RxnConst.mode:       'time-averaged'\n  RxnConst.fields:     'RxnConst_EQ0001                          ',\n                       'RxnConst_EQ0002                          ',\n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_ISOP              ',\n                              'SatDiagnConc_CH2O              ',\n                              'SatDiagnConc_MVK               ',\n                              'SatDiagnConc_MACR              ',\n                              'SatDiagnConc_MOH               ',\n                              'SatDiagnConc_CO                ',\n                              'SatDiagnConc_NO                ',\n                              'SatDiagnConc_NO2               ',\n                              'SatDiagnConc_NO3               ',\n                              'SatDiagnConc_O3                ',\n                              'SatDiagnConc_HO2               ',\n                              'SatDiagnOH                     ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnTAir                   ',\n                              'SatDiagnGWETROOT               ',\n                              'SatDiagnGWETTOP                ',\n                              'SatDiagnPARDR                  ',\n                              'SatDiagnPARDF                  ',\n                              'SatDiagnPRECTOT                ',\n                              'SatDiagnSLP                    ',\n                              'SatDiagnSPHU                   ',\n                              'SatDiagnTS                     ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnWetLossLS_CH2O         ',\n                              'SatDiagnWetLossConv_CH2O       ',\n                              'SatDiagnJval_CH2O              ',\n                              'SatDiagnJval_NO2               ',\n                              'SatDiagnJval_NO3               ',\n                              'SatDiagnJval_O3                ',\n                              'SatDiagnJvalO3O1D              ',\n                              'SatDiagnJvalO3O3P              ',\n                              'SatDiagnDryDep_CH2O            ',\n                              'SatDiagnDryDep_NO2             ',\n                              'SatDiagnDryDep_O3              ',\n                              'SatDiagnDryDepVel_CH2O         ',\n                              'SatDiagnDryDepVel_NO2          ',\n                              'SatDiagnDryDepVel_O3           ',\n                              'SatDiagnOHreactivity           ',\n                              'SatDiagnColEmis_ISOP           ',\n                              'SatDiagnSurfFlux_ISOP          ',\n                              'SatDiagnColEmis_CH2O           ',\n                              'SatDiagnSurfFlux_CH2O          ',\n                              'SatDiagnColEmis_NO             ',\n                              'SatDiagnSurfFlux_NO            ',\n                              'SatDiagnProd_?PRD?             ',\n                              'SatDiagnLoss_?LOS?             ',\n                              'SatDiagnRxnRate_EQ0385         ',\n                              'SatDiagnRxnRate_EQ0386         ',\n                              'SatDiagnRxnRate_EQ0387         ',\n                              'SatDiagnRxnRate_EQ0388         ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges) during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                   ',\n::\n#==============================================================================\n# %%%%% THE StateChm COLLECTION %%%%%\n#\n# Fields of the State_Chm object (see also Aerosols collection)\n#==============================================================================\n  StateChm.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateChm.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateChm.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateChm.mode:              'time-averaged'\n  StateChm.fields:            'Chem_IsorropAeropHAccum       ',\n                              'Chem_IsorropAeropHCoarse      ',\n                              'Chem_IsorropHplusAccum        ',\n                              'Chem_IsorropHplusCoarse       ',\n                              'Chem_IsorropAeroH2OAccum      ',\n                              'Chem_IsorropAeroH2OCoarse     ',\n                              'Chem_IsorropSulfate           ',\n                              'Chem_IsorropNitrateAccum      ',\n                              'Chem_IsorropNitrateCoarse     ',\n                              'Chem_IsorropChlorideAccum     ',\n                              'Chem_IsorropChlorideCoarse    ',\n                              'Chem_IsorropBisulfate         ',\n                              'Chem_pHCloud                  ',\n                              'Chem_isCloud                  ',\n                              'Chem_SSAlkAccumMode           ',\n                              'Chem_SSAlkCoarseMode          ',\n                              'Chem_HSO3AQ                   ',\n                              'Chem_SO3AQ                    ',\n                              'Chem_fupdateHOBr              ',\n                              'Chem_GammaN2O5overall         ',\n                              'Chem_GammaN2O5fine            ',\n                              'Chem_YieldClNO2fine           ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_CONVDEPTH                 ',\n                              'Met_DELP                      ',\n                              'Met_DELPDRY                   ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FLASHDENS                 ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n                              'FracOfTimeInTrop              ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE StratBM COLLECTION %%%%%\n#\n# Fields needed for GEOS-Chem 10-year stratospheric benchmarks\n#==============================================================================\n  StratBM.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StratBM.frequency:      00000000 010000\n  StratBM.duration:       00000001 000000\n  StratBM.mode:           'time-averaged'\n  StratBM.fields:         'SpeciesConcVV_NO2                 ',\n                          'SpeciesConcVV_O3                  ',\n                          'SpeciesConcVV_ClO                 ',\n                          'Met_PSC2WET                       ',\n                          'Met_BXHEIGHT                      ',\n                          'Met_AIRDEN                        ',\n                          'Met_AD                            ',\n::\n#==============================================================================\n# %%%%% THE Tomas Microphysics Rate COLLECTION %%%%%\n#\n# Tomas microphysics rates\n#==============================================================================\n  Tomas.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Tomas.format:         'CFIO',\n  Tomas.timestampStart: .true.\n  Tomas.monthly:        0\n  Tomas.frequency:      00000100 000000\n  Tomas.duration:       00000100 000000\n  Tomas.mode:           'time-averaged'\n  Tomas.fields:         'TomasH2SO4mass_bin01     ',\n                        'TomasH2SO4mass_bin02     ',\n                        'TomasH2SO4mass_bin03     ',\n                        'TomasH2SO4mass_bin04     ',\n                        'TomasH2SO4mass_bin05     ',\n                        'TomasH2SO4mass_bin06     ',\n                        'TomasH2SO4mass_bin07     ',\n                        'TomasH2SO4mass_bin08     ',\n                        'TomasH2SO4mass_bin09     ',\n                        'TomasH2SO4mass_bin10     ',\n                        'TomasH2SO4mass_bin11     ',\n                        'TomasH2SO4mass_bin12     ',\n                        'TomasH2SO4mass_bin13     ',\n                        'TomasH2SO4mass_bin14     ',\n                        'TomasH2SO4mass_bin15     ',\n                        'TomasH2SO4number_bin01     ',\n                        'TomasH2SO4number_bin02     ',\n                        'TomasH2SO4number_bin03     ',\n                        'TomasH2SO4number_bin04     ',\n                        'TomasH2SO4number_bin05     ',\n                        'TomasH2SO4number_bin06     ',\n                        'TomasH2SO4number_bin07     ',\n                        'TomasH2SO4number_bin08     ',\n                        'TomasH2SO4number_bin09     ',\n                        'TomasH2SO4number_bin10     ',\n                        'TomasH2SO4number_bin11     ',\n                        'TomasH2SO4number_bin12     ',\n                        'TomasH2SO4number_bin13     ',\n                        'TomasH2SO4number_bin14     ',\n                        'TomasH2SO4number_bin15     ',\n                        'TomasCOAGmass_bin01     ',\n                        'TomasCOAGmass_bin02     ',\n                        'TomasCOAGmass_bin03     ',\n                        'TomasCOAGmass_bin04     ',\n                        'TomasCOAGmass_bin05     ',\n                        'TomasCOAGmass_bin06     ',\n                        'TomasCOAGmass_bin07     ',\n                        'TomasCOAGmass_bin08     ',\n                        'TomasCOAGmass_bin09     ',\n                        'TomasCOAGmass_bin10     ',\n                        'TomasCOAGmass_bin11     ',\n                        'TomasCOAGmass_bin12     ',\n                        'TomasCOAGmass_bin13     ',\n                        'TomasCOAGmass_bin14     ',\n                        'TomasCOAGmass_bin15     ',\n                        'TomasCOAGnumber_bin01     ',\n                        'TomasCOAGnumber_bin02     ',\n                        'TomasCOAGnumber_bin03     ',\n                        'TomasCOAGnumber_bin04     ',\n                        'TomasCOAGnumber_bin05     ',\n                        'TomasCOAGnumber_bin06     ',\n                        'TomasCOAGnumber_bin07     ',\n                        'TomasCOAGnumber_bin08     ',\n                        'TomasCOAGnumber_bin09     ',\n                        'TomasCOAGnumber_bin10     ',\n                        'TomasCOAGnumber_bin11     ',\n                        'TomasCOAGnumber_bin12     ',\n                        'TomasCOAGnumber_bin13     ',\n                        'TomasCOAGnumber_bin14     ',\n                        'TomasCOAGnumber_bin15     ',\n                        'TomasNUCRATEFN          ',\n                        'TomasNUCLmass_bin01     ',\n                        'TomasNUCLmass_bin02     ',\n                        'TomasNUCLmass_bin03     ',\n                        'TomasNUCLmass_bin04     ',\n                        'TomasNUCLmass_bin05     ',\n                        'TomasNUCLmass_bin06     ',\n                        'TomasNUCLmass_bin07     ',\n                        'TomasNUCLmass_bin08     ',\n                        'TomasNUCLmass_bin09     ',\n                        'TomasNUCLmass_bin10     ',\n                        'TomasNUCLmass_bin11     ',\n                        'TomasNUCLmass_bin12     ',\n                        'TomasNUCLmass_bin13     ',\n                        'TomasNUCLmass_bin14     ',\n                        'TomasNUCLmass_bin15     ',\n                        'TomasNUCLnumber_bin01     ',\n                        'TomasNUCLnumber_bin02     ',\n                        'TomasNUCLnumber_bin03     ',\n                        'TomasNUCLnumber_bin04     ',\n                        'TomasNUCLnumber_bin05     ',\n                        'TomasNUCLnumber_bin06     ',\n                        'TomasNUCLnumber_bin07     ',\n                        'TomasNUCLnumber_bin08     ',\n                        'TomasNUCLnumber_bin09     ',\n                        'TomasNUCLnumber_bin10     ',\n                        'TomasNUCLnumber_bin11     ',\n                        'TomasNUCLnumber_bin12     ',\n                        'TomasNUCLnumber_bin13     ',\n                        'TomasNUCLnumber_bin14     ',\n                        'TomasNUCLnumber_bin15     ',\n                        'TomasNUCRATEnumber_bin01     ',\n                        'TomasNUCRATEnumber_bin02     ',\n                        'TomasNUCRATEnumber_bin03     ',\n                        'TomasNUCRATEnumber_bin04     ',\n                        'TomasNUCRATEnumber_bin05     ',\n                        'TomasNUCRATEnumber_bin06     ',\n                        'TomasNUCRATEnumber_bin07     ',\n                        'TomasNUCRATEnumber_bin08     ',\n                        'TomasNUCRATEnumber_bin09     ',\n                        'TomasNUCRATEnumber_bin10     ',\n                        'TomasNUCRATEnumber_bin11     ',\n                        'TomasNUCRATEnumber_bin12     ',\n                        'TomasNUCRATEnumber_bin13     ',\n                        'TomasNUCRATEnumber_bin14     ',\n                        'TomasNUCRATEnumber_bin15     ',\n                        'TomasAQOXmass_bin01     ',\n                        'TomasAQOXmass_bin02     ',\n                        'TomasAQOXmass_bin03     ',\n                        'TomasAQOXmass_bin04     ',\n                        'TomasAQOXmass_bin05     ',\n                        'TomasAQOXmass_bin06     ',\n                        'TomasAQOXmass_bin07     ',\n                        'TomasAQOXmass_bin08     ',\n                        'TomasAQOXmass_bin09     ',\n                        'TomasAQOXmass_bin10     ',\n                        'TomasAQOXmass_bin11     ',\n                        'TomasAQOXmass_bin12     ',\n                        'TomasAQOXmass_bin13     ',\n                        'TomasAQOXmass_bin14     ',\n                        'TomasAQOXmass_bin15     ',\n                        'TomasAQOXnumber_bin01     ',\n                        'TomasAQOXnumber_bin02     ',\n                        'TomasAQOXnumber_bin03     ',\n                        'TomasAQOXnumber_bin04     ',\n                        'TomasAQOXnumber_bin05     ',\n                        'TomasAQOXnumber_bin06     ',\n                        'TomasAQOXnumber_bin07     ',\n                        'TomasAQOXnumber_bin08     ',\n                        'TomasAQOXnumber_bin09     ',\n                        'TomasAQOXnumber_bin10     ',\n                        'TomasAQOXnumber_bin11     ',\n                        'TomasAQOXnumber_bin12     ',\n                        'TomasAQOXnumber_bin13     ',\n                        'TomasAQOXnumber_bin14     ',\n                        'TomasAQOXnumber_bin15     ',\n                        'TomasMNFIXmass_bin01     ',\n                        'TomasMNFIXmass_bin02     ',\n                        'TomasMNFIXmass_bin03     ',\n                        'TomasMNFIXmass_bin04     ',\n                        'TomasMNFIXmass_bin05     ',\n                        'TomasMNFIXmass_bin06     ',\n                        'TomasMNFIXmass_bin07     ',\n                        'TomasMNFIXmass_bin08     ',\n                        'TomasMNFIXmass_bin09     ',\n                        'TomasMNFIXmass_bin10     ',\n                        'TomasMNFIXmass_bin11     ',\n                        'TomasMNFIXmass_bin12     ',\n                        'TomasMNFIXmass_bin13     ',\n                        'TomasMNFIXmass_bin14     ',\n                        'TomasMNFIXmass_bin15     ',\n                        'TomasMNFIXnumber_bin01     ',\n                        'TomasMNFIXnumber_bin02     ',\n                        'TomasMNFIXnumber_bin03     ',\n                        'TomasMNFIXnumber_bin04     ',\n                        'TomasMNFIXnumber_bin05     ',\n                        'TomasMNFIXnumber_bin06     ',\n                        'TomasMNFIXnumber_bin07     ',\n                        'TomasMNFIXnumber_bin08     ',\n                        'TomasMNFIXnumber_bin09     ',\n                        'TomasMNFIXnumber_bin10     ',\n                        'TomasMNFIXnumber_bin11     ',\n                        'TomasMNFIXnumber_bin12     ',\n                        'TomasMNFIXnumber_bin13     ',\n                        'TomasMNFIXnumber_bin14     ',\n                        'TomasMNFIXnumber_bin15     ',\n                        'TomasMNFIXh2so4mass_bin01     ',\n                        'TomasMNFIXh2so4mass_bin02     ',\n                        'TomasMNFIXh2so4mass_bin03     ',\n                        'TomasMNFIXh2so4mass_bin04     ',\n                        'TomasMNFIXh2so4mass_bin05     ',\n                        'TomasMNFIXh2so4mass_bin06     ',\n                        'TomasMNFIXh2so4mass_bin07     ',\n                        'TomasMNFIXh2so4mass_bin08     ',\n                        'TomasMNFIXh2so4mass_bin09     ',\n                        'TomasMNFIXh2so4mass_bin10     ',\n                        'TomasMNFIXh2so4mass_bin11     ',\n                        'TomasMNFIXh2so4mass_bin12     ',\n                        'TomasMNFIXh2so4mass_bin13     ',\n                        'TomasMNFIXh2so4mass_bin14     ',\n                        'TomasMNFIXh2so4mass_bin15     ',\n                        'TomasMNFIXh2so4number_bin01     ',\n                        'TomasMNFIXh2so4number_bin02     ',\n                        'TomasMNFIXh2so4number_bin03     ',\n                        'TomasMNFIXh2so4number_bin04     ',\n                        'TomasMNFIXh2so4number_bin05     ',\n                        'TomasMNFIXh2so4number_bin06     ',\n                        'TomasMNFIXh2so4number_bin07     ',\n                        'TomasMNFIXh2so4number_bin08     ',\n                        'TomasMNFIXh2so4number_bin09     ',\n                        'TomasMNFIXh2so4number_bin10     ',\n                        'TomasMNFIXh2so4number_bin11     ',\n                        'TomasMNFIXh2so4number_bin12     ',\n                        'TomasMNFIXh2so4number_bin13     ',\n                        'TomasMNFIXh2so4number_bin14     ',\n                        'TomasMNFIXh2so4number_bin15     ',\n                        'TomasMNFIXcoagmass_bin01     ',\n                        'TomasMNFIXcoagmass_bin02     ',\n                        'TomasMNFIXcoagmass_bin03     ',\n                        'TomasMNFIXcoagmass_bin04     ',\n                        'TomasMNFIXcoagmass_bin05     ',\n                        'TomasMNFIXcoagmass_bin06     ',\n                        'TomasMNFIXcoagmass_bin07     ',\n                        'TomasMNFIXcoagmass_bin08     ',\n                        'TomasMNFIXcoagmass_bin09     ',\n                        'TomasMNFIXcoagmass_bin10     ',\n                        'TomasMNFIXcoagmass_bin11     ',\n                        'TomasMNFIXcoagmass_bin12     ',\n                        'TomasMNFIXcoagmass_bin13     ',\n                        'TomasMNFIXcoagmass_bin14     ',\n                        'TomasMNFIXcoagmass_bin15     ',\n                        'TomasMNFIXcoagnumber_bin01     ',\n                        'TomasMNFIXcoagnumber_bin02     ',\n                        'TomasMNFIXcoagnumber_bin03     ',\n                        'TomasMNFIXcoagnumber_bin04     ',\n                        'TomasMNFIXcoagnumber_bin05     ',\n                        'TomasMNFIXcoagnumber_bin06     ',\n                        'TomasMNFIXcoagnumber_bin07     ',\n                        'TomasMNFIXcoagnumber_bin08     ',\n                        'TomasMNFIXcoagnumber_bin09     ',\n                        'TomasMNFIXcoagnumber_bin10     ',\n                        'TomasMNFIXcoagnumber_bin11     ',\n                        'TomasMNFIXcoagnumber_bin12     ',\n                        'TomasMNFIXcoagnumber_bin13     ',\n                        'TomasMNFIXcoagnumber_bin14     ',\n                        'TomasMNFIXcoagnumber_bin15     ',\n                        'TomasMNFIXaqoxmass_bin01     ',\n                        'TomasMNFIXaqoxmass_bin02     ',\n                        'TomasMNFIXaqoxmass_bin03     ',\n                        'TomasMNFIXaqoxmass_bin04     ',\n                        'TomasMNFIXaqoxmass_bin05     ',\n                        'TomasMNFIXaqoxmass_bin06     ',\n                        'TomasMNFIXaqoxmass_bin07     ',\n                        'TomasMNFIXaqoxmass_bin08     ',\n                        'TomasMNFIXaqoxmass_bin09     ',\n                        'TomasMNFIXaqoxmass_bin10     ',\n                        'TomasMNFIXaqoxmass_bin11     ',\n                        'TomasMNFIXaqoxmass_bin12     ',\n                        'TomasMNFIXaqoxmass_bin13     ',\n                        'TomasMNFIXaqoxmass_bin14     ',\n                        'TomasMNFIXaqoxmass_bin15     ',\n                        'TomasMNFIXaqoxnumber_bin01     ',\n                        'TomasMNFIXaqoxnumber_bin02     ',\n                        'TomasMNFIXaqoxnumber_bin03     ',\n                        'TomasMNFIXaqoxnumber_bin04     ',\n                        'TomasMNFIXaqoxnumber_bin05     ',\n                        'TomasMNFIXaqoxnumber_bin06     ',\n                        'TomasMNFIXaqoxnumber_bin07     ',\n                        'TomasMNFIXaqoxnumber_bin08     ',\n                        'TomasMNFIXaqoxnumber_bin09     ',\n                        'TomasMNFIXaqoxnumber_bin10     ',\n                        'TomasMNFIXaqoxnumber_bin11     ',\n                        'TomasMNFIXaqoxnumber_bin12     ',\n                        'TomasMNFIXaqoxnumber_bin13     ',\n                        'TomasMNFIXaqoxnumber_bin14     ',\n                        'TomasMNFIXaqoxnumber_bin15     ',\n                        'TomasMNFIXezwat1mass_bin01     ',\n                        'TomasMNFIXezwat1mass_bin02     ',\n                        'TomasMNFIXezwat1mass_bin03     ',\n                        'TomasMNFIXezwat1mass_bin04     ',\n                        'TomasMNFIXezwat1mass_bin05     ',\n                        'TomasMNFIXezwat1mass_bin06     ',\n                        'TomasMNFIXezwat1mass_bin07     ',\n                        'TomasMNFIXezwat1mass_bin08     ',\n                        'TomasMNFIXezwat1mass_bin09     ',\n                        'TomasMNFIXezwat1mass_bin10     ',\n                        'TomasMNFIXezwat1mass_bin11     ',\n                        'TomasMNFIXezwat1mass_bin12     ',\n                        'TomasMNFIXezwat1mass_bin13     ',\n                        'TomasMNFIXezwat1mass_bin14     ',\n                        'TomasMNFIXezwat1mass_bin15     ',\n                        'TomasMNFIXezwat1number_bin01     ',\n                        'TomasMNFIXezwat1number_bin02     ',\n                        'TomasMNFIXezwat1number_bin03     ',\n                        'TomasMNFIXezwat1number_bin04     ',\n                        'TomasMNFIXezwat1number_bin05     ',\n                        'TomasMNFIXezwat1number_bin06     ',\n                        'TomasMNFIXezwat1number_bin07     ',\n                        'TomasMNFIXezwat1number_bin08     ',\n                        'TomasMNFIXezwat1number_bin09     ',\n                        'TomasMNFIXezwat1number_bin10     ',\n                        'TomasMNFIXezwat1number_bin11     ',\n                        'TomasMNFIXezwat1number_bin12     ',\n                        'TomasMNFIXezwat1number_bin13     ',\n                        'TomasMNFIXezwat1number_bin14     ',\n                        'TomasMNFIXezwat1number_bin15     ',\n                        'TomasMNFIXezwat2mass_bin01     ',\n                        'TomasMNFIXezwat2mass_bin02     ',\n                        'TomasMNFIXezwat2mass_bin03     ',\n                        'TomasMNFIXezwat2mass_bin04     ',\n                        'TomasMNFIXezwat2mass_bin05     ',\n                        'TomasMNFIXezwat2mass_bin06     ',\n                        'TomasMNFIXezwat2mass_bin07     ',\n                        'TomasMNFIXezwat2mass_bin08     ',\n                        'TomasMNFIXezwat2mass_bin09     ',\n                        'TomasMNFIXezwat2mass_bin10     ',\n                        'TomasMNFIXezwat2mass_bin11     ',\n                        'TomasMNFIXezwat2mass_bin12     ',\n                        'TomasMNFIXezwat2mass_bin13     ',\n                        'TomasMNFIXezwat2mass_bin14     ',\n                        'TomasMNFIXezwat2mass_bin15     ',\n                        'TomasMNFIXezwat2number_bin01     ',\n                        'TomasMNFIXezwat2number_bin02     ',\n                        'TomasMNFIXezwat2number_bin03     ',\n                        'TomasMNFIXezwat2number_bin04     ',\n                        'TomasMNFIXezwat2number_bin05     ',\n                        'TomasMNFIXezwat2number_bin06     ',\n                        'TomasMNFIXezwat2number_bin07     ',\n                        'TomasMNFIXezwat2number_bin08     ',\n                        'TomasMNFIXezwat2number_bin09     ',\n                        'TomasMNFIXezwat2number_bin10     ',\n                        'TomasMNFIXezwat2number_bin11     ',\n                        'TomasMNFIXezwat2number_bin12     ',\n                        'TomasMNFIXezwat2number_bin13     ',\n                        'TomasMNFIXezwat2number_bin14     ',\n                        'TomasMNFIXezwat2number_bin15     ',\n                        'TomasMNFIXezwat3mass_bin01     ',\n                        'TomasMNFIXezwat3mass_bin02     ',\n                        'TomasMNFIXezwat3mass_bin03     ',\n                        'TomasMNFIXezwat3mass_bin04     ',\n                        'TomasMNFIXezwat3mass_bin05     ',\n                        'TomasMNFIXezwat3mass_bin06     ',\n                        'TomasMNFIXezwat3mass_bin07     ',\n                        'TomasMNFIXezwat3mass_bin08     ',\n                        'TomasMNFIXezwat3mass_bin09     ',\n                        'TomasMNFIXezwat3mass_bin10     ',\n                        'TomasMNFIXezwat3mass_bin11     ',\n                        'TomasMNFIXezwat3mass_bin12     ',\n                        'TomasMNFIXezwat3mass_bin13     ',\n                        'TomasMNFIXezwat3mass_bin14     ',\n                        'TomasMNFIXezwat3mass_bin15     ',\n                        'TomasMNFIXezwat3number_bin01     ',\n                        'TomasMNFIXezwat3number_bin02     ',\n                        'TomasMNFIXezwat3number_bin03     ',\n                        'TomasMNFIXezwat3number_bin04     ',\n                        'TomasMNFIXezwat3number_bin05     ',\n                        'TomasMNFIXezwat3number_bin06     ',\n                        'TomasMNFIXezwat3number_bin07     ',\n                        'TomasMNFIXezwat3number_bin08     ',\n                        'TomasMNFIXezwat3number_bin09     ',\n                        'TomasMNFIXezwat3number_bin10     ',\n                        'TomasMNFIXezwat3number_bin11     ',\n                        'TomasMNFIXezwat3number_bin12     ',\n                        'TomasMNFIXezwat3number_bin13     ',\n                        'TomasMNFIXezwat3number_bin14     ',\n                        'TomasMNFIXezwat3number_bin15     ',\n                        'TomasMNFIXcheck1mass_bin01     ',\n                        'TomasMNFIXcheck1mass_bin02     ',\n                        'TomasMNFIXcheck1mass_bin03     ',\n                        'TomasMNFIXcheck1mass_bin04     ',\n                        'TomasMNFIXcheck1mass_bin05     ',\n                        'TomasMNFIXcheck1mass_bin06     ',\n                        'TomasMNFIXcheck1mass_bin07     ',\n                        'TomasMNFIXcheck1mass_bin08     ',\n                        'TomasMNFIXcheck1mass_bin09     ',\n                        'TomasMNFIXcheck1mass_bin10     ',\n                        'TomasMNFIXcheck1mass_bin11     ',\n                        'TomasMNFIXcheck1mass_bin12     ',\n                        'TomasMNFIXcheck1mass_bin13     ',\n                        'TomasMNFIXcheck1mass_bin14     ',\n                        'TomasMNFIXcheck1mass_bin15     ',\n                        'TomasMNFIXcheck1number_bin01     ',\n                        'TomasMNFIXcheck1number_bin02     ',\n                        'TomasMNFIXcheck1number_bin03     ',\n                        'TomasMNFIXcheck1number_bin04     ',\n                        'TomasMNFIXcheck1number_bin05     ',\n                        'TomasMNFIXcheck1number_bin06     ',\n                        'TomasMNFIXcheck1number_bin07     ',\n                        'TomasMNFIXcheck1number_bin08     ',\n                        'TomasMNFIXcheck1number_bin09     ',\n                        'TomasMNFIXcheck1number_bin10     ',\n                        'TomasMNFIXcheck1number_bin11     ',\n                        'TomasMNFIXcheck1number_bin12     ',\n                        'TomasMNFIXcheck1number_bin13     ',\n                        'TomasMNFIXcheck1number_bin14     ',\n                        'TomasMNFIXcheck1number_bin15     ',\n                        'TomasMNFIXcheck2mass_bin01     ',\n                        'TomasMNFIXcheck2mass_bin02     ',\n                        'TomasMNFIXcheck2mass_bin03     ',\n                        'TomasMNFIXcheck2mass_bin04     ',\n                        'TomasMNFIXcheck2mass_bin05     ',\n                        'TomasMNFIXcheck2mass_bin06     ',\n                        'TomasMNFIXcheck2mass_bin07     ',\n                        'TomasMNFIXcheck2mass_bin08     ',\n                        'TomasMNFIXcheck2mass_bin09     ',\n                        'TomasMNFIXcheck2mass_bin10     ',\n                        'TomasMNFIXcheck2mass_bin11     ',\n                        'TomasMNFIXcheck2mass_bin12     ',\n                        'TomasMNFIXcheck2mass_bin13     ',\n                        'TomasMNFIXcheck2mass_bin14     ',\n                        'TomasMNFIXcheck2mass_bin15     ',\n                        'TomasMNFIXcheck2number_bin01     ',\n                        'TomasMNFIXcheck2number_bin02     ',\n                        'TomasMNFIXcheck2number_bin03     ',\n                        'TomasMNFIXcheck2number_bin04     ',\n                        'TomasMNFIXcheck2number_bin05     ',\n                        'TomasMNFIXcheck2number_bin06     ',\n                        'TomasMNFIXcheck2number_bin07     ',\n                        'TomasMNFIXcheck2number_bin08     ',\n                        'TomasMNFIXcheck2number_bin09     ',\n                        'TomasMNFIXcheck2number_bin10     ',\n                        'TomasMNFIXcheck2number_bin11     ',\n                        'TomasMNFIXcheck2number_bin12     ',\n                        'TomasMNFIXcheck2number_bin13     ',\n                        'TomasMNFIXcheck2number_bin14     ',\n                        'TomasMNFIXcheck2number_bin15     ',\n                        'TomasMNFIXcheck3mass_bin01     ',\n                        'TomasMNFIXcheck3mass_bin02     ',\n                        'TomasMNFIXcheck3mass_bin03     ',\n                        'TomasMNFIXcheck3mass_bin04     ',\n                        'TomasMNFIXcheck3mass_bin05     ',\n                        'TomasMNFIXcheck3mass_bin06     ',\n                        'TomasMNFIXcheck3mass_bin07     ',\n                        'TomasMNFIXcheck3mass_bin08     ',\n                        'TomasMNFIXcheck3mass_bin09     ',\n                        'TomasMNFIXcheck3mass_bin10     ',\n                        'TomasMNFIXcheck3mass_bin11     ',\n                        'TomasMNFIXcheck3mass_bin12     ',\n                        'TomasMNFIXcheck3mass_bin13     ',\n                        'TomasMNFIXcheck3mass_bin14     ',\n                        'TomasMNFIXcheck3mass_bin15     ',\n                        'TomasMNFIXcheck3number_bin01     ',\n                        'TomasMNFIXcheck3number_bin02     ',\n                        'TomasMNFIXcheck3number_bin03     ',\n                        'TomasMNFIXcheck3number_bin04     ',\n                        'TomasMNFIXcheck3number_bin05     ',\n                        'TomasMNFIXcheck3number_bin06     ',\n                        'TomasMNFIXcheck3number_bin07     ',\n                        'TomasMNFIXcheck3number_bin08     ',\n                        'TomasMNFIXcheck3number_bin09     ',\n                        'TomasMNFIXcheck3number_bin10     ',\n                        'TomasMNFIXcheck3number_bin11     ',\n                        'TomasMNFIXcheck3number_bin12     ',\n                        'TomasMNFIXcheck3number_bin13     ',\n                        'TomasMNFIXcheck3number_bin14     ',\n                        'TomasMNFIXcheck3number_bin15     ',\n                        'TomasSOAmass_bin01     ',\n                        'TomasSOAmass_bin02     ',\n                        'TomasSOAmass_bin03     ',\n                        'TomasSOAmass_bin04     ',\n                        'TomasSOAmass_bin05     ',\n                        'TomasSOAmass_bin06     ',\n                        'TomasSOAmass_bin07     ',\n                        'TomasSOAmass_bin08     ',\n                        'TomasSOAmass_bin09     ',\n                        'TomasSOAmass_bin10     ',\n                        'TomasSOAmass_bin11     ',\n                        'TomasSOAmass_bin12     ',\n                        'TomasSOAmass_bin13     ',\n                        'TomasSOAmass_bin14     ',\n                        'TomasSOAmass_bin15     ',\n                        'TomasSOAnumber_bin01     ',\n                        'TomasSOAnumber_bin02     ',\n                        'TomasSOAnumber_bin03     ',\n                        'TomasSOAnumber_bin04     ',\n                        'TomasSOAnumber_bin05     ',\n                        'TomasSOAnumber_bin06     ',\n                        'TomasSOAnumber_bin07     ',\n                        'TomasSOAnumber_bin08     ',\n                        'TomasSOAnumber_bin09     ',\n                        'TomasSOAnumber_bin10     ',\n                        'TomasSOAnumber_bin11     ',\n                        'TomasSOAnumber_bin12     ',\n                        'TomasSOAnumber_bin13     ',\n                        'TomasSOAnumber_bin14     ',\n                        'TomasSOAnumber_bin15     ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossConv.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n##==============================================================================\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossLS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossLS.mode:             'time-averaged'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::\n#==============================================================================\n# %%%%% THE BoundaryConditions COLLECTION %%%%%\n#\n# GEOS-Chem boundary conditions for use in nested grid simulations\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  BoundaryConditions.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  BoundaryConditions.frequency:  00000000 030000\n  BoundaryConditions.duration:   00000001 000000\n  BoundaryConditions.mode:       'instantaneous'\n  BoundaryConditions.fields:     'SpeciesBC_?ADV?             ',\n::\n"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.metals",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem trace metals simulations                 ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)      ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             'SpeciesConc',\n             #'Budget',\n             #'CloudConvFlux',\n             #'DryDep',\n             #'SatDiagn',\n             #'SatDiagnEdge',\n             #'StateMet',\n             #'StateMetLevEdge',\n             #'WetLossConv',\n             #'WetLossLS',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          'End',\n  Restart.duration:           'End',\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#\n# Available for all simulations\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',\n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n                              #'DryDepChm_?DRY?              ',\n                              #'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_AlF1              ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnWetLossLS_AlF1         ',\n                              'SatDiagnWetLossConv_AlF1       ',\n                              'SatDiagnDryDep_AlF1            ',\n                              'SatDiagnDryDepVel_AlF1         ',\n                              'SatDiagnColEmis_AlF1           ',\n                              'SatDiagnSurfFlux_AlF1          ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges) during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                  ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossConv.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#==============================================================================\n# Loss due to rainout and washout (per deposited species)\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.frequency:        ${RUNDIR_HIST_TIME_AVG_FREQ}\n  WetLossLS.duration:         ${RUNDIR_HIST_TIME_AVG_DUR}\n  WetLossLS.mode:             'time-averaged'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::\n#==============================================================================\n# %%%%% THE AdvFluxVert COLLECTION %%%%%\n#\n# Diagnostics for evaluating transport, including age of air [s]\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  AdvFluxVert.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AdvFluxVert.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  AdvFluxVert.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  AdvFluxVert.mode:           'time-averaged'\n  AdvFluxVert.fields:         'AdvFluxVert_?ADV?             ',\n::\n"
  },
  {
    "path": "run/GCClassic/HISTORY.rc.templates/HISTORY.rc.tagO3",
    "content": "###############################################################################\n###  HISTORY.rc file for GEOS-Chem tagged O3 specialty simulations          ###\n###  Contact: GEOS-Chem Support Team (geos-chem-support@g.harvard.edu)     ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem\n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./OutputDir/GEOSChem\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To enable a collection, remove the \"#\" character in front of its name. The\n# Restart collection should always be turned on.\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'Restart',\n             'SpeciesConc',\n             #'Budget',\n             #'CloudConvFlux',\n             #'ConcAboveSfc',\n             #'DryDep',\n             #'ProdLoss',\n             #'SatDiagn',\n             #'SatDiagnEdge',\n             #'StateMet',\n             #'StateMetLevEdge',\n             #'BoundaryConditions',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE Restart COLLECTION %%%%%\n#\n# GEOS-Chem restart file fields\n#==============================================================================\n  Restart.filename:           './Restarts/GEOSChem.Restart.%y4%m2%d2_%h2%n2z.nc4',\n  Restart.frequency:          'End',\n  Restart.duration:           'End',\n  Restart.mode:               'instantaneous'\n  Restart.fields:             'SpeciesRst_?ALL?               ',\n                              'Met_DELPDRY                    ',\n                              'Met_BXHEIGHT                   ',\n                              'Met_TropLev                    ',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = all species)\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.frequency:      ${RUNDIR_HIST_TIME_AVG_FREQ}\n  SpeciesConc.duration:       ${RUNDIR_HIST_TIME_AVG_DUR}\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_?ALL?           ',\n                              #'SpeciesConcMND_?ALL?          ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#\n# Available for all simulations\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  Budget.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  Budget.mode:         'time-averaged'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',\n                       'BudgetEmisDryDepTrop_?ADV?           ',\n                       'BudgetEmisDryDepPBL_?ADV?            ',\n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetTransportFull_?ADV?            ',\n                       'BudgetTransportTrop_?ADV?            ',\n                       'BudgetTransportPBL_?ADV?             ',\n                       'BudgetTransportLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',\n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',\n                       'BudgetConvectionLevs1to35_?ADV?      ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    ${RUNDIR_HIST_TIME_AVG_FREQ}\n  CloudConvFlux.duration:     ${RUNDIR_HIST_TIME_AVG_DUR}\n  CloudConvFlux.mode:         'time-averaged'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE ConcAboveSfc COLLECTION %%%%%\n#\n# Concentrations of O3 species at a user-specified altitude above\n# the surface, such as 10m.  Set the desired output altitude in meters\n# in the deposition settings in geoschem_config.yml.\n#\n# NOTES:\n# (1) This collection requires dry deposition to be turned on.\n# (2) All of the fields in the collection must be turned on.\n# (3) This collection is best used with mode \"instantaneous\".\n#==============================================================================\n  ConcAboveSfc.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAboveSfc.frequency:     ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ConcAboveSfc.duration:      ${RUNDIR_HIST_TIME_AVG_DUR}\n  ConcAboveSfc.mode:          'instantaneous'\n  ConcAboveSfc.fields:        'DryDepRaALT1                  ',\n                              'DryDepVelForALT1_?DRYALT?     ',\n                              'SpeciesConcALT1_?DRYALT?      ',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           ${RUNDIR_HIST_TIME_AVG_FREQ}\n  DryDep.duration:            ${RUNDIR_HIST_TIME_AVG_DUR}\n  DryDep.mode:                'time-averaged'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n                              #'DryDepChm_?DRY?              ',\n                              #'DryDepMix_?DRY?              ',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Chemical production and loss rates\n#\n# Available for full-chemistry, aerosol-only, and tagO3 simulations\n#==============================================================================\n  ProdLoss.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  ProdLoss.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  ProdLoss.mode:              'time-averaged'\n  ProdLoss.fields:            'Prod_?PRD?                    ',\n                              'Loss_?LOS?                    ',\n::\n#==============================================================================\n# %%%%% THE SatDiagn COLLECTION %%%%%\n#\n# GEOS-Chem data during satellite overpass\n#==============================================================================\n  SatDiagn.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagn.format:            'CFIO',\n  SatDiagn.frequency:         00000001 000000\n  SatDiagn.duration:          00000100 000000\n  SatDiagn.hrrange:           11.98 15.02\n  SatDiagn.mode:              'time-averaged'\n  SatDiagn.fields:            'SatDiagnConc_O3                ',\n                              'SatDiagnRH                     ',\n                              'SatDiagnAirDen                 ',\n                              'SatDiagnBoxHeight              ',\n                              'SatDiagnPEdge                  ',\n                              'SatDiagnTROPP                  ',\n                              'SatDiagnPBLHeight              ',\n                              'SatDiagnPBLTop                 ',\n                              'SatDiagnPBLTOPL                ',\n                              'SatDiagnPMID                   ',\n                              'SatDiagnMODISLAI               ',\n                              'SatDiagnDryDep_O3              ',\n                              'SatDiagnDryDepVel_O3           ',\n                              'SatDiagnColEmis_O3             ',\n                              'SatDiagnSurfFlux_O3            ',\n::\n#==============================================================================\n# %%%%% THE SatDiagnEdge COLLECTION %%%%%\n#\n# GEOS-Chem data (on level edges) during satellite overpass\n#==============================================================================\n  SatDiagnEdge.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  SatDiagnEdge.format:        'CFIO',\n  SatDiagnEdge.frequency:     00000001 000000\n  SatDiagnEdge.duration:      00000100 000000\n  SatDiagnEdge.hrrange:       11.98 15.02\n  SatDiagnEdge.mode:          'time-averaged'\n  SatDiagnEdge.fields:        'SatDiagnPEDGE                  ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMet.duration:          ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMet.mode:              'time-averaged'\n  StateMet.fields:            'Met_AD                        ',\n                              'Met_AIRDEN                    ',\n                              'Met_AIRVOL                    ',\n                              'Met_ALBD                      ',\n                              'Met_AVGW                      ',\n                              'Met_BXHEIGHT                  ',\n                              'Met_ChemGridLev               ',\n                              'Met_CLDF                      ',\n                              'Met_CLDFRC                    ',\n                              'Met_CLDTOPS                   ',\n                              'Met_DELP                      ',\n                              'Met_DQRCU                     ',\n                              'Met_DQRLSAN                   ',\n                              'Met_DTRAIN                    ',\n                              'Met_EFLUX                     ',\n                              'Met_FRCLND                    ',\n                              'Met_FRLAKE                    ',\n                              'Met_FRLAND                    ',\n                              'Met_FRLANDICE                 ',\n                              'Met_FROCEAN                   ',\n                              'Met_FRSEAICE                  ',\n                              'Met_FRSNOW                    ',\n                              'Met_GWETROOT                  ',\n                              'Met_GWETTOP                   ',\n                              'Met_HFLUX                     ',\n                              'Met_LAI                       ',\n                              'Met_PARDR                     ',\n                              'Met_PARDF                     ',\n                              'Met_PBLTOPL                   ',\n                              'Met_PBLH                      ',\n                              'Met_PHIS                      ',\n                              'Met_PMID                      ',\n                              'Met_PMIDDRY                   ',\n                              'Met_PRECANV                   ',\n                              'Met_PRECCON                   ',\n                              'Met_PRECLSC                   ',\n                              'Met_PRECTOT                   ',\n                              'Met_PS1DRY                    ',\n                              'Met_PS1WET                    ',\n                              'Met_PS2DRY                    ',\n                              'Met_PS2WET                    ',\n                              'Met_PSC2WET                   ',\n                              'Met_PSC2DRY                   ',\n                              'Met_QI                        ',\n                              'Met_QL                        ',\n                              'Met_OMEGA                     ',\n                              'Met_OPTD                      ',\n                              'Met_REEVAPCN                  ',\n                              'Met_REEVAPLS                  ',\n                              'Met_SLP                       ',\n                              'Met_SNODP                     ',\n                              'Met_SNOMAS                    ',\n                              'Met_SPHU                      ',\n                              'Met_SPHU1                     ',\n                              'Met_SPHU2                     ',\n                              'Met_SUNCOS                    ',\n                              'Met_SUNCOSmid                 ',\n                              'Met_SWGDN                     ',\n                              'Met_T                         ',\n                              'Met_TAUCLI                    ',\n                              'Met_TAUCLW                    ',\n                              'Met_THETA                     ',\n                              'Met_TMPU1                     ',\n                              'Met_TMPU2                     ',\n                              'Met_TO3                       ',\n                              'Met_TropHt                    ',\n                              'Met_TropLev                   ',\n                              'Met_TropP                     ',\n                              'Met_TS                        ',\n                              'Met_TSKIN                     ',\n                              'Met_TV                        ',\n                              'Met_U                         ',\n                              'Met_U10M                      ',\n                              'Met_USTAR                     ',\n                              'Met_UVALBEDO                  ',\n                              'Met_V                         ',\n                              'Met_V10M                      ',\n                              'Met_Z0                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   ${RUNDIR_HIST_TIME_AVG_FREQ}\n  StateMetLevEdge.duration:    ${RUNDIR_HIST_TIME_AVG_DUR}\n  StateMetLevEdge.mode:        'time-averaged'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE BoundaryConditions COLLECTION %%%%%\n#\n# GEOS-Chem boundary conditions for use in nested grid simulations\n#\n# NOTE: Do not change the BoundaryConditions.frequency setting below,\n# because GEOS-Chem nested-grid simulations expect to read boundary\n# condition data at 3 hour intervals.\n#==============================================================================\n  BoundaryConditions.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  BoundaryConditions.frequency:  00000000 030000\n  BoundaryConditions.duration:   00000001 000000\n  BoundaryConditions.mode:       'instantaneous'\n  BoundaryConditions.fields:     'SpeciesBC_?ADV?             ',\n::"
  },
  {
    "path": "run/GCClassic/README.md",
    "content": "# This run directory is for GEOS-Chem Classic.\n\n## For instructions on setting up, compiling, and running GEOS-Chem Classic, see:\n\n  - https://geos-chem.readthedocs.org\n\n## For additional information about GEOS-Chem, see:\n\n  - http://wiki.geos-chem.org\n\n  - http://geos-chem.org\n\n## For help with GEOS-Chem Classic, see:\n\n  - https://geos-chem.readthedocs.io/en/latest/reference/SUPPORT.html\n\n  - https://geos-chem.readthedocs.io/en/latest/reference/CONTRIBUTING.html\n\n"
  },
  {
    "path": "run/GCClassic/archiveRun.sh",
    "content": "#!/bin/bash\n\n# Script to archive files after a run. \n# \n# Argument: archive directory name (can be non-existent)\n#\n# Example usage: ./archiveRun.sh 1mon_24hrDiag\n#\n# All output files are copied, including output data (OutputDir/*.nc4), \n# log files (*.log, slurm-*), config files (*.rc, *.yml), \n# run files (*.run, *.env, setCommonRunSettings.sh), and restarts. \n# Files are stored in subdirectories within the archive directory.\n#\n# NOTE: Clean the run directory AFTER archiving with './cleanupRunDir.sh'\n# if you plan on doing another run. Otherwise previous run files will also\n# be archived if this script is called again.\n\n# Initial version: Lizzie Lundgren - 7/12/2018\n\n# Customize this script as needed to best fit your workflow.\n\n# Check that directory name passed\nif [[ $# == 1 ]]; then\n    archivedir=$1\nelse\n   echo \"Usage: ./archiveRun.sh {ArchiveDirName}\"\n   exit \nfi\n\n# Check that directory does not already exist\nif [ -d \"${archivedir}\" ]; then\n   echo \"Warning: Directory ${archivedir} already exists.\"\n   echo \"Remove or rename that directory, or choose a different name.\"\n   exit 1\nfi\n\n# Function to move files and subdirs in directory except if string match\n# ( arg1 : source, arg2 : target, arg3 : exclude string )\nmovefiles () {\n   numMoved=0\n   for item in $1/*; do\n      if [[ $(basename $item) == $3 ]]; then\n         continue\n      elif [[ -e $item ]]; then\n         if [[ -d $item ]]; then\n            echo \"   -> $2/$(basename $item)/\"\n         else\n            echo \"   -> $2/$(basename $item)\"\n         fi\n         mv $item $2\n         numMoved=$numMoved+1\n      fi\n   done\n   if [[ $numMoved == \"0\" ]]; then\n      echo \"   Warning: No files to move from $1\" \n   fi\n}\n\n# Function to copy all files matching string (arg2) to directory (arg1)\n# ( arg1 : source, arg2 : target )\ncopyfiles () {\n   for file in $1; do\n      if [ -e $file ]; then\n         echo \"   -> $2/$file\"\n         cp -rt $2 $file\n      else\n         echo \"   Warning: $file not found\"\n      fi\n   done\n}\n\n# Make Archive directory\necho \"Archiving files to directory $1\"\nmkdir -p ${archivedir}\nmkdir -p ${archivedir}/Logs\n\n# Copy files\necho \"Copying files...\"\ncopyfiles \"*.yml\"              ${archivedir}\ncopyfiles \"*.rc\"               ${archivedir}\ncopyfiles \"*.run\"              ${archivedir}\ncopyfiles \"*.sh\"               ${archivedir}\ncopyfiles \"*.env\"              ${archivedir}\ncopyfiles \"*.log\"              ${archivedir}/Logs\ncopyfiles \"slurm-*\"            ${archivedir}/Logs\ncopyfiles \"build_info/\"        ${archivedir}\ncopyfiles \"BenchmarkResults/\"  ${archivedir}\ncopyfiles \"OutputDir/\"         ${archivedir}\ncopyfiles \"CreateRunDirLogs/\"  ${archivedir}\n\nprintf \"WARNING: Restart files are not archived. Copy manually if you would like to store restarts in the archive directory.\"\nprintf \"Complete!\\n\"\n\nexit 0\n"
  },
  {
    "path": "run/GCClassic/createRunDir.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: createRunDir.sh\n#\n# !DESCRIPTION: Creates a GEOS-Chem Classic run directory.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./createRunDir.sh [rundirname]\n#\n# !REMARKS:\n#  If optional run directory name argument is not passed then the user\n#  will be prompted to enter a name interactively, or choose to use the\n#  default name gc_{grid_display}_{met}_{sim_name}_{sim_extra_option}.\n#\n# !REVISION HISTORY:\n#  Initial version: M. Sulprizio, 6/24/2020 (based off GCHP/createRunDir.sh)\n#  See the subsequent Git history with the gitk browser!\n#------------------------------------------------------------------------------\n#BOC\n\n# Directory with GEOS-Chem Classic rundir scripts (i.e. this dir)\n# Current directory\nsrcrundir=$(pwd -P)\ncd ${srcrundir}\n\n# GEOS-Chem \"science codebase\" directory\ncd ../..\ngcdir=$(pwd -P)\n\n# GCClassic \"wrapper\" directory\ncd ../../\nwrapperdir=$(pwd -P)\n\n# Return to directory w/ GEOS-Chem Classic rundir scripts\ncd ${srcrundir}\n\n# Source common bash functions from scripts in the run/shared folder\n. ${gcdir}/run/shared/setupConfigFiles.sh      # Config file editing\n. ${gcdir}/run/GCClassic/setupForRestarts.sh   # Functions for restart files\n. ${gcdir}/run/shared/newUserRegistration.sh   # 1st-time user registration\n. ${gcdir}/run/shared/singleCarbonSpecies.sh   # Single carbon species setup\n\n# Initialize run directory variables\nRUNDIR_VARS=\"\"\nRUNDIR_VARS+=\"RUNDIR_GC_MODE='GCClassic'\\n\"\n\n# Define separator lines\nthickline=\"\\n===========================================================\\n\"\nthinline=\"\\n-----------------------------------------------------------\\n\"\n\nprintf \"${thickline}GEOS-CHEM RUN DIRECTORY CREATION${thickline}\"\n\n#-----------------------------------------------------------------\n# Export data root path in ~/.geoschem/config if file exists\n#-----------------------------------------------------------------\nif [[ -f ${HOME}/.geoschem/config ]]; then\n    source ${HOME}/.geoschem/config\n    if [[ ! -d ${GC_DATA_ROOT} ]]; then\n\tprintf \"\\nWarning: Default root data directory does not exist!\"\n        printf \"\\nSet new path below or manually edit ${HOME}/.geoschem/config.\\n\"\n    fi\nelse\n    printf \"${thinline}Define path to ExtData.\"\n    printf \"\\nThis will be stored in ${HOME}/.geoschem/config for future automatic use.${thinline}\"\n    mkdir -p ${HOME}/.geoschem\nfi\n\n#-----------------------------------------------------------------\n# One-time configuration of data root path in ~/.geoschem/config\n#-----------------------------------------------------------------\nif [[ -z \"${GC_DATA_ROOT}\" ]]; then\n    printf \"${thinline}Enter path for ExtData:${thinline}\"\n    valid_path=0\n    while [ \"$valid_path\" -eq 0 ]; do\n\tread -e -p \"${USER_PROMPT}\" extdata\n\tif [[ ${extdata} = \"q\" ]]; then\n\t    printf \"\\nExiting.\\n\"\n\t    exit 1\n\telif [[ ! -d ${extdata} ]]; then\n            printf \"\\nERROR: ${extdata} does not exist. Enter a new path or hit q to quit.\\n\"\n\telse\n\t    valid_path=1\n\t    echo \"export GC_DATA_ROOT=${extdata}\" >> ${HOME}/.geoschem/config\n            source ${HOME}/.geoschem/config\n\tfi\n    done\nfi\n\nRUNDIR_VARS+=\"RUNDIR_DATA_ROOT=$GC_DATA_ROOT\\n\"\n\n# --------------------------------------------------------------\n# registration for first time users\n# --------------------------------------------------------------\n[[ -z \"${GC_USER_REGISTERED}\" ]] && registerNewUser \"gcc\"\n\n#-----------------------------------------------------------------\n# Ask user to select simulation type\n#-----------------------------------------------------------------\nprintf \"${thinline}Choose simulation type:${thinline}\"\nprintf \"   1. Full chemistry\\n\"\nprintf \"   2. Aerosols only\\n\"\nprintf \"   3. Carbon\\n\"\nprintf \"   4. Hg\\n\"\nprintf \"   5. POPs\\n\"\nprintf \"   6. Tagged O3\\n\"\nprintf \"   7. TransportTracers\\n\"\nprintf \"   8. Trace metals\\n\"\nvalid_sim=0\nwhile [ \"${valid_sim}\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" sim_num\n    valid_sim=1\n    if [[ ${sim_num} = \"1\" ]]; then\n\tsim_name=fullchem\n    elif [[ ${sim_num} = \"2\" ]]; then\n\tsim_name=aerosol\n    elif [[ ${sim_num} = \"3\" ]]; then\n\tsim_name=carbon\n    elif [[ ${sim_num} = \"4\" ]]; then\n\tsim_name=Hg\n    elif [[ ${sim_num} = \"5\" ]]; then\n\tsim_name=POPs\n    elif [[ ${sim_num} = \"6\" ]]; then\n\tsim_name=tagO3\n    elif [[ ${sim_num} = \"7\" ]]; then\n\tsim_name=TransportTracers\n    elif [[ ${sim_num} = \"8\" ]]; then\n\tsim_name=metals\n    else\n        valid_sim=0\n\tprintf \"Invalid simulation option. Try again.\\n\"\n    fi\ndone\n\nRUNDIR_VARS+=\"RUNDIR_SIM_NAME=$sim_name\\n\"\n\n#-----------------------------------------------------------------\n# Ask user to specify full-chemistry simulation options\n#-----------------------------------------------------------------\nsim_extra_option=none\n\n# Ask user to specify full chemistry simulation options\nif [[ ${sim_name} = \"fullchem\" ]]; then\n\n    printf \"${thinline}Choose additional simulation option:${thinline}\"\n    printf \"  1. Standard\\n\"\n    printf \"  2. Benchmark\\n\"\n    printf \"  3. Complex SOA\\n\"\n    printf \"  4. Marine POA\\n\"\n    printf \"  5. Acid uptake on dust\\n\"\n    printf \"  6. TOMAS\\n\"\n    printf \"  7. APM\\n\"\n    printf \"  8. RRTMG\\n\"\n    valid_sim_option=0\n    while [ \"${valid_sim_option}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" sim_option\n\tvalid_sim_option=1\n\tif [[ ${sim_option} = \"1\" ]]; then\n\t    sim_extra_option=none\n\telif [[ ${sim_option} = \"2\" ]]; then\n\t    sim_extra_option=\"benchmark\"\n\telif [[ ${sim_option} = \"3\" ]]; then\n\t    printf \"${thinline}Choose complex SOA option:${thinline}\"\n\t    printf \"  1. Complex SOA\\n\"\n\t    printf \"  2. Complex SOA with semivolatile POA\\n\"\n\t    valid_soa=0\n\t    while [ \"${valid_soa}\" -eq 0 ]; do\n\t\tread -p \"${USER_PROMPT}\" soa_option\n\t\tvalid_soa=1\n\t\tif [[ ${soa_option} = \"1\" ]]; then\n\t\t    sim_extra_option=\"complexSOA\"\n\t\telif [[ ${soa_option} = \"2\" ]]; then\n\t\t    sim_extra_option=\"complexSOA_SVPOA\"\n\t\telse\n\t\t    valid_soa=0\n\t\t    printf \"Invalid complex SOA option.Try again.\\n\"\n\t\tfi\n\t    done\n\telif [[ ${sim_option} = \"4\" ]]; then\n\t    sim_extra_option=\"marinePOA\"\n\telif [[ ${sim_option} = \"5\" ]]; then\n\t    sim_extra_option=\"aciduptake\"\n\telif [[ ${sim_option} = \"6\" ]]; then\n\t    printf \"${thinline}Choose TOMAS option:${thinline}\"\n\t    printf \"  1. TOMAS with 15 bins\\n\"\n\t    printf \"  2. TOMAS with 40 bins\\n\"\n\t    valid_tomas=0\n\t    while [ \"${valid_tomas}\" -eq 0 ]; do\n\t\tread -p \"${USER_PROMPT}\" tomas_option\n\t\tvalid_tomas=1\n\t\tif [[ ${tomas_option} = \"1\" ]]; then\n\t\t    sim_extra_option=\"TOMAS15\"\n\t\telif [[ ${tomas_option} = \"2\" ]]; then\n\t\t    sim_extra_option=\"TOMAS40\"\n\t\telse\n\t\t    valid_tomas=0\n\t\t    printf \"Invalid TOMAS option. Try again.\\n\"\n\t\tfi\n\t    done\n\telif [[ ${sim_option} = \"7\" ]]; then\n\t    sim_extra_option=\"APM\"\n\telif [[ ${sim_option} = \"8\" ]]; then\n\t    sim_extra_option=\"RRTMG\"\n\telse\n\t    valid_sim_option=0\n\t    printf \"Invalid simulation option. Try again.\\n\"\n\tfi\n    done\n\n# Currently no transport tracer extra options\nelif [[ ${sim_name} = \"TransportTracers\" ]]; then\n    sim_extra_option=none\n\n# Ask user to specify POPs simulation options\nelif [[ ${sim_name} = \"POPs\" ]]; then\n    printf \"${thinline}Choose POPs type:${thinline}\"\n    printf \"  1. BaP\\n\"\n    printf \"  2. PHE\\n\"\n    printf \"  3. PYR\\n\"\n    valid_pops=0\n    while [ \"${valid_pops}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" pops_num\n\tvalid_pops=1\n\tif [[ ${pops_num} = \"1\" ]]; then\n\t    sim_extra_option=\"BaP\"\n\telif [[ ${pops_num} = \"2\" ]]; then\n\t    sim_extra_option=\"PHE\"\n\telif [[ ${pops_num} = \"3\" ]]; then\n\t    sim_extra_option=\"PYR\"\n\telse\n\t    valid_pops=0\n\t    printf \"Invalid POPs type. Try again.\\n\"\n\tfi\n    done\n\n# Ask user to specify carbon simulation options\nelif [[ \"x${sim_name}\" == \"xcarbon\" ]]; then\n    printf \"${thinline}Do you wish to use a single advected species?${thinline}\"\n    printf \"  1. Use all species\\n\"\n    printf \"  2. Use CH4 only\\n\"\n    printf \"  3. Use CO2 only\\n\"\n    printf \"  4. Use CO only\\n\"\n    printf \"  5. Use OCS only\\n\"\n    valid=0\n    while [ \"${valid}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" prompt\n\tvalid=1\n\tif [[ \"x${prompt}\" == \"x1\" ]]; then\n\t    sim_extra_option=\"none\"\n\telif [[ \"x${prompt}\" == \"x2\" ]]; then\n\t    sim_extra_option=\"CH4\"\n\telif [[ \"x${prompt}\" == \"x3\" ]]; then\n\t    sim_extra_option=\"CO2\"\n\telif [[ \"x${prompt}\" == \"x4\" ]]; then\n\t    sim_extra_option=\"CO\"\n\telif [[ \"x${prompt}\" == \"x5\" ]]; then\n\t    sim_extra_option=\"OCS\"\n\telse\n\t    valid=0\n\t    printf \"Invalid selection. Try again.\\n\"\n\tfi\n    done\nfi\n\nRUNDIR_VARS+=\"RUNDIR_SIM_EXTRA_OPTION=$sim_extra_option\\n\"\n\n# Determine settings based on simulation type\nSettingsDir=\"${gcdir}/run/shared/settings\"\nif [[ ${sim_extra_option} == \"BaP\" ]]; then\n    RUNDIR_VARS+=\"$(cat ${SettingsDir}/POPs_BaP.txt)\\n\"\nelif [[ ${sim_extra_option} == \"PHE\" ]]; then\n    RUNDIR_VARS+=\"$(cat ${SettingsDir}/POPs_PHE.txt)\\n\"\nelif [[ ${sim_extra_option} == \"PYR\" ]]; then\n    RUNDIR_VARS+=\"$(cat ${SettingsDir}/POPs_PYR.txt)\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"benchmark\"  ]] || \\\n   [[ ${sim_extra_option} =~ \"complexSOA\" ]] || \\\n   [[ ${sim_extra_option} == \"APM\"        ]]; then\n    RUNDIR_VARS+=\"RUNDIR_COMPLEX_SOA='true '\\n\"\n    if [[ ${sim_extra_option} == \"complexSOA_SVPOA\" ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_SVPOA='true '\\n\"\n    else\n\tRUNDIR_VARS+=\"RUNDIR_SVPOA='false'\\n\"\n    fi\nelse\n    RUNDIR_VARS+=\"RUNDIR_COMPLEX_SOA='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SVPOA='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"aciduptake\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_DUSTALK_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_ACID_UPTAKE='true '\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_DUSTALK_EXT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_ACID_UPTAKE='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"marinePOA\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_MARINE_POA='true '\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_MARINE_POA='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"RRTMG\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_RRTMG_OPTS='true '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_RRTMG='true '\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_RRTMG_OPTS='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_RRTMG='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_USE_NLPBL='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_ONLINE_O3='false'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_USE_NLPBL='true '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_ONLINE_O3='true '\\n\"\nfi\n\n#-----------------------------------------------------------------\n# Ask user to select meteorology source\n#-----------------------------------------------------------------\nprintf \"${thinline}Choose meteorology source:${thinline}\"\nprintf \"  1. MERRA-2 (Recommended)\\n\"\nprintf \"  2. GEOS-FP \\n\"\nprintf \"  3. GEOS-IT \\n\"\nprintf \"  4. GISS ModelE2.1 (GCAP 2.0)\\n\"\n\nvalid_met=0\nwhile [ \"${valid_met}\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" met_num\n    valid_met=1\n    if [[ ${met_num} = \"1\" ]]; then\n\tmet=\"merra2\"\n\tshared_met_settings=${gcdir}/run/shared/settings/merra2.txt\n\tRUNDIR_VARS+=\"RUNDIR_MET_FIELD_CONFIG='HEMCO_Config.rc.gmao_metfields'\\n\"\n    elif [[ ${met_num} = \"2\" ]]; then\n\tmet=\"geosfp\"\n\tshared_met_settings=${gcdir}/run/shared/settings/geosfp/geosfp.nonadv_preprocessed_ll.txt\n\tRUNDIR_VARS+=\"RUNDIR_MET_FIELD_CONFIG='HEMCO_Config.rc.gmao_metfields'\\n\"\n\n\t# Print warning about GEOS-FP and require user to acknowledge it.\n\tfp_msg=\"WARNING: The convection scheme used to generate archived GEOS-FP meteorology \\nfiles changed from RAS to Grell-Freitas starting June 1 2020 with impact on \\nvertical transport. Discussion and analysis of the impact is available at \\ngithub.com/geoschem/geos-chem/issues/1409. To fix this issue, different GEOS-Chem \\nconvection schemes are called based on simulation start time. This ensures \\ncomparability in GEOS-Chem runs using GEOS-FP fields generated using the RAS \\nconvection scheme and fields generated using Grell-Freitas, but only if the \\nsimulation does not cross the June 1 2020 boundary. We therefore recommend \\nsplitting up GEOS-FP runs in time such that a single simulation does not span \\nthis date. For example, configure one run to end on June 1 2020 and then use \\nits output restart to start another run on June 1. Alternatively consider using \\nMERRA2 which was entirely generated with RAS, or GEOS-IT which was entirely \\ngenerated with Grell-Freitas. If you wish to use a GEOS-FP meteorology year \\ndifferent from your simulation year please create a GEOS-Chem GitHub issue for \\nassistance to avoid accidentally using zero convective precipitation flux.\\n\"\n\tprintf \"\\n${fp_msg}\\n\"\n\tprintf \"This warning will be printed to run directory file warnings.txt.\\n\"\n\tprintf \"${thinline}Enter y to acknowledge and proceed, or q to quit:${thinline}\"\n\tvalid_fp_accept=0\n\twhile [ \"${valid_fp_accept}\" -eq 0 ]; do\n\t    read -p \"${USER_PROMPT}\" fp_accept\n\t    valid_fp_accept=1\n\t    if [[ ${fp_accept} = \"y\" ]]; then\n\t\tx=0\n\t    elif [[ ${fp_accept} = \"q\" ]]; then\n\t\texit\n\t    else\n\t\tvalid_fp_accept=0\n\t\tprintf \"Invalid option. Try again.\\n\"\n\t    fi\n\tdone\n\n    elif [[ ${met_num} = \"3\" ]]; then\n\tmet=\"geosit\"\n\tshared_met_settings=${gcdir}/run/shared/settings/geosit/geosit.preprocessed_ll.txt\n\tRUNDIR_VARS+=\"RUNDIR_MET_FIELD_CONFIG='HEMCO_Config.rc.gmao_metfields'\\n\"\n    elif [[ ${met_num} = \"4\" ]]; then\n\tmet=\"ModelE2.1\"\n\tshared_met_settings=${gcdir}/run/shared/settings/modele2.1.txt\n\tRUNDIR_VARS+=\"RUNDIR_MET_FIELD_CONFIG='HEMCO_Config.rc.gcap2_metfields'\\n\"\n    else\n\tvalid_met=0\n\tprintf \"Invalid meteorology option. Try again.\\n\"\n    fi\ndone\n\nif [[ ${met} = \"ModelE2.1\" ]]; then\n    printf \"${thinline}Choose scenario (presently available years in parentheses):${thinline}\"\n    printf \"  1. Historical (1851-1860; 2001-2014)\\n\"\n    printf \"  2. Historical nudged to MERRA-2 (2001-2014)\\n\"\n    printf \"  3. SSP1-1.9 (2040-2049; 2090-2099)\\n\"\n    printf \"  4. SSP1-2.6 (2040-2049; 2090-2099)\\n\"\n    printf \"  5. SSP4-3.4 (2040-2049; 2090-2099)\\n\"\n    printf \"  6. SSP2-4.5 (2040-2049; 2090-2099)\\n\"\n    printf \"  7. SSP4-6.0 (2040-2049; 2090-2099)\\n\"\n    printf \"  8. SSP3-7.0 (2040-2049; 2090-2099)\\n\"\n    printf \"  9. SSP5-8.5 (2040-2049; 2090-2099)\\n\"\n\n    valid_scen=0\n    while [ \"${valid_scen}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" scen_num\n\tvalid_scen=1\n\tif [[ ${scen_num} = \"1\" ]]; then\n\t    scenario=\"HIST\"\n\t    runid=\"E213f10aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 1851-1860; 2001-2014'\\n\"\n\telif [[ ${scen_num} = \"2\" ]]; then\n\t    scenario=\"HIST\"\n\t    runid=\"E213f10aF40oQ40nudge\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2001-2014'\\n\"\n\telif [[ ${scen_num} = \"3\" ]]; then\n\t    scenario=\"SSP119\"\n\t    runid=\"E213SSP119aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telif [[ ${scen_num} = \"4\" ]]; then\n\t    scenario=\"SSP126\"\n\t    runid=\"E213SSP126aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telif [[ ${scen_num} = \"5\" ]]; then\n\t    scenario=\"SSP434\"\n\t    runid=\"E213SSP434aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telif [[ ${scen_num} = \"6\" ]]; then\n\t    scenario=\"SSP245\"\n\t    runid=\"E213SSP245aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telif [[ ${scen_num} = \"7\" ]]; then\n\t    scenario=\"SSP460\"\n\t    runid=\"E213SSP460aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telif [[ ${scen_num} = \"8\" ]]; then\n\t    scenario=\"SSP370\"\n\t    runid=\"E213SSP370aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telif [[ ${scen_num} = \"9\" ]]; then\n\t    scenario=\"SSP585\"\n\t    runid=\"E213SSP585aF40oQ40\"\n            gissres=\"F40\"\n\t    vertres=\"40L\"\n\t    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 2040-2049; 2090-2099'\\n\"\n\telse\n  \t    valid_scen=0\n\t    printf \"Invalid GCAP 2.0 scenario. Try again.\\n\"\n\tfi\n\tRUNDIR_VARS+=\"RUNDIR_GCAP2_SCENARIO='$scenario'\\n\"\n        RUNDIR_VARS+=\"RUNDIR_GISS_RES='$gissres'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_GCAP2_VERTRES='$vertres'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_GCAP2_RUNID='$runid'\\n\"\n    done\n\n    RUNDIR_VARS+=\"RUNDIR_USE_AEIC='false'\\n\"\n\n    # Define the volcano paths for the HEMCO_Config.rc file\n    # NOTE: Benchmark simulations always use the climatological emissions!\n    if [[ \"x${sim_name}\" == \"xfullchem\" ]]  ||  \\\n       [[ \"x${sim_name}\" == \"xaerosol\"  ]]; then\n        RUNDIR_VARS+=\"RUNDIR_VOLC_CLIMATOLOGY='\\$ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc'\\n\"\n\n\tif [[ \"x${sim_extra_option}\" == \"xbenchmark\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_VOLC_TABLE='\\$ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc'\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_VOLC_TABLE='\\$ROOT/VOLCANO/v2024-04/\\$YYYY/\\$MM/so2_volcanic_emissions_Carns.\\$YYYY\\$MM\\$DD.rc'\\n\"\n\tfi\n    fi\n\nelse\n    RUNDIR_VARS+=\"RUNDIR_GCAP2_SCENARIO='not_used'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_GISS_RES='not_used'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_GCAP2_VERTRES='not_used'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_GCAP2_RUNID='not_used'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_MET_AVAIL='# 1980-2021'\\n\"\n\n    RUNDIR_VARS+=\"RUNDIR_USE_AEIC='true'\\n\"\n\n    # Define the volcano paths for the HEMCO_Config.rc file\n    # NOTE: Benchmark simulations always use the climatological emissions!\n    if [[ \"x${sim_name}\" == \"xfullchem\" ]]  ||  \\\n       [[ \"x${sim_name}\" == \"xaerosol\"  ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_VOLC_CLIMATOLOGY='\\$ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc'\\n\"\n\n\tif [[ \"x${sim_extra_option}\" == \"xbenchmark\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_VOLC_TABLE='\\$ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc'\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_VOLC_TABLE='\\$ROOT/VOLCANO/v2024-04/\\$YYYY/\\$MM/so2_volcanic_emissions_Carns.\\$YYYY\\$MM\\$DD.rc'\\n\"\n\tfi\n    fi\n\n fi\n\n# Turn off MEGAN for the aerosol-only simulation\nif [[ \"x${sim_name}\" == \"xaerosol\"  ]]; then\n    RUNDIR_VARS+=\"RUNDIR_MEGAN_EXT='off'\\n\"\nfi\n\n#-----------------------------------------------------------------\n# Ask user to select horizontal resolution\n#-----------------------------------------------------------------\nprintf \"${thinline}Choose horizontal resolution:${thinline}\"\nif [[ \"x${met}\" == \"xModelE2.1\" || \"x${met}\" == \"xModelE2.2\" ]]; then\n    printf \"  1. 4.0  x 5.0 *\\n\"\n    printf \"  2. 2.0  x 2.5\\n\"\n    printf \"  3. 0.5  x 0.625 *\\n\"\n    printf \"  4. 0.25 x 0.3125 *${thinline}\"\n    printf \"  \\n* Will be interpolated online via FlexGrid from native 2.0 x 2.5 resolution\\n\"\nelif [[ ${met} = \"geosit\" ]]; then\n    printf \"  1. 4.0  x 5.0\\n\"\n    printf \"  2. 2.0  x 2.5\\n\"\n    if [[ \"${sim_name}\" = \"TransportTracers\" ]]; then\n\tprintf \"  3. 0.5  x 0.625\\n\"\n    fi\nelse\n    printf \"  1. 4.0  x 5.0\\n\"\n    printf \"  2. 2.0  x 2.5\\n\"\n    printf \"  3. 0.5  x 0.625\\n\"\n    if [[ \"x${met}\" == \"xgeosfp\" ]]; then\n\tprintf \"  4. 0.25 x 0.3125\\n\"\n\tprintf \"  5. 0.125 x 0.15625\\n\"\n    fi\nfi\n\nvalid_res=0\nwhile [ \"${valid_res}\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" res_num\n    valid_res=1\n    if [[ \"x${res_num}\" == \"x1\" ]]; then\n\tgrid_res='4x5'\n\tRUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/4x5.txt)\\n\"\n    elif [[ \"x${res_num}\" == \"x2\" ]]; then\n\tgrid_res='2x25'\n\tRUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/2x25.txt)\\n\"\n    elif [[ \"x${res_num}\" == \"x3\" ]]; then\n\tgrid_res='05x0625'\n\tgrid_res_long='0.5x0.625'\n\tRUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/05x0625.txt)\\n\"\n    elif [[ \"x${met}\" == \"xgeosfp\" ]] && [[ \"x${res_num}\" == \"x4\" ]]; then\n\tgrid_res='025x03125'\n\tgrid_res_long='0.25x0.3125'\n\tRUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/025x03125.txt)\\n\"\n    elif [[ \"x${met}\" == \"xgeosfp\" ]] && [[ \"x${res_num}\" == \"x5\" ]]; then\n\tgrid_res='0125x015625'\n\tgrid_res_long='0.125x0.15625'\n\tRUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/0125x015625.txt)\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_MET_FIELD_CONFIG='HEMCO_Config.rc.gmao_metfields_0125'\\n\"\n    else\n\tvalid_res=0\n\tprintf \"Invalid horizontal resolution option.\\n\"\n\tprintf \"Please make another selection.\\n\"\n    fi\ndone\n\nif [[ \"${met}\" != \"geosit\" ]] && [[ \"${grid_res}\" = \"05x0625\" || \"${grid_res}\" = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]]; then\n    printf \"${thinline}Choose horizontal grid domain:${thinline}\"\n    printf \"  1. Global\\n\"\n    printf \"  2. Asia\\n\"\n    printf \"  3. Europe\\n\"\n    printf \"  4. North America\\n\"\n    if [[ \"${grid_res}\" = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]]; then\n\tprintf \"  5. South America\\n\"\n\tprintf \"  6. Africa\\n\"\n    fi\n    if [[ \"${grid_res}\" = \"025x03125\" ]]; then\n\tprintf \"  7. Middle East\\n\"\n\tprintf \"  8. Oceania\\n\"\n\tprintf \"  9. Russia\\n\"\n    fi\n    valid_domain=0\n    while [ \"${valid_domain}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" domain_num\n\tvalid_domain=1\n\tif [[ ${domain_num} = \"1\" ]]; then\n\t    RUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/global_grid.txt)\\n\"\n\t    RUNDIR_VARS+=\"RUNDIR_GRID_HALF_POLAR='true '\\n\"\n\t    nested_sim=\"F\"\n\telse\n\t    RUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/nested_grid.txt)\\n\"\n\t    nested_sim=\"T\"\n\n\t    # Asia\n\t    if [[ ${domain_num} = \"2\" ]]; then\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='AS'\\n\"\n\t\tgrid_nest=\"AS\"\n\t        if [[ ${grid_res} = \"05x0625\" ]]; then\n\t            RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[ 60.0, 150.0]'\\n\"\n\t\t    RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[-11.0,  55.0]'\\n\"\n\t\telif [[ ${grid_res} = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]]; then\n\t            RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[ 70.0, 140.0]'\\n\"\n\t\t    RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[ 15.0,  55.0]'\\n\"\n\t\tfi\n\n\t    # Europe\n\t    elif [[ ${domain_num} = \"3\" ]]; then\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='EU'\\n\"\n\t        grid_nest=\"EU\"\n\t        if [[ ${grid_res} = \"05x0625\" ]]; then\n\t            RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-30.0, 50.0]'\\n\"\n\t\t    RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[ 30.0, 70.0]'\\n\"\n\t\telif [[ ${grid_res} = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]]; then\n\t            RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-15.0,  40.0 ]'\\n\"\n\t\t    RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[ 32.75, 61.25]'\\n\"\n\t\tfi\n\n\t    # North America\n\t    elif [[ ${domain_num} = \"4\" ]]; then\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='NA'\\n\"\n\t\tgrid_nest=\"NA\"\n\t        if [[ ${grid_res} = \"05x0625\" ]]; then\n\t            RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-140.0, -40.0]'\\n\"\n\t\t    RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[  10.0,  70.0]'\\n\"\n\t\telif [[ ${grid_res} = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]]; then\n\t            RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-130.0,  -60.0]'\\n\"\n\t\t    RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[   9.75,  60.0]'\\n\"\n\t\tfi\n\n\t    # South America (0.25 and 0.125 resolutions only)\n\t    elif [[ ${grid_res} = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]] && [[ ${domain_num} = \"5\" ]]; then\n\t\tgrid_nest=\"SA\"\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='SA'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-87.8125, -31.25]'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[-59.0,     16.0]'\\n\"\n\n\t    # Africa (0.25 and 0.125 resolutions only)\n\t    elif [[ ${grid_res} = \"025x03125\" ]] || [[ ${grid_res} = \"0125x015625\" ]] && [[ ${domain_num} = \"6\" ]]; then\n\t\tgrid_nest=\"AF\"\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='AF'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-20.0, 52.8125]'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[-37.0, 40.0]'\\n\"\n\n\t    # Middle East (0.25 resolution only)\n\t    elif [[ ${grid_res} = \"025x03125\" ]] && [[ ${domain_num} = \"7\" ]]; then\n\t\tgrid_nest=\"ME\"\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='ME'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[-20.0, 70.0]'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[ 12.0, 44.0]'\\n\"\n\n\t    # Oceania (0.25 resolution only)\n\t    elif [[ ${grid_res} = \"025x03125\" ]] && [[ ${domain_num} = \"8\" ]]; then\n\t\tgrid_nest=\"OC\"\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='OC'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[110.0, 180.0]'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[-50.0,   5.0]'\\n\"\n\n\t    # Russia (0.25 resolution only)\n\t    elif [[ ${grid_res} = \"025x03125\" ]] && [[ ${domain_num} = \"9\" ]]; then\n\t\tgrid_nest=\"RU\"\n\t\tRUNDIR_VARS+=\"RUNDIR_GRID_DOMAIN_NAME='RU'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LON_RANGE='[20.0,  180.0]'\\n\"\n\t        RUNDIR_VARS+=\"RUNDIR_GRID_LAT_RANGE='[41.0,   83.0]'\\n\"\n\n\t    else\n  \t\tvalid_domain=0\n\t\tprintf \"Invalid horizontal grid domain option. Try again.\\n\"\n\t    fi\n        fi\n    done\nelse\n    RUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/global_grid.txt)\\n\"\n    if [[ ${met} = \"ModelE2.1\" ]] || [[ ${met} = \"ModelE2.2\" ]]; then\n        if [[ \"$grid_res\" == \"4x5\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_GRID_HALF_POLAR='true '\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_GRID_HALF_POLAR='false'\\n\"\n\tfi\n    else\n\tRUNDIR_VARS+=\"RUNDIR_GRID_HALF_POLAR='true '\\n\"\n    fi\nfi\n\nRUNDIR_VARS+=\"$(cat ${shared_met_settings})\\n\"   # shared_met_settings needs to be included after RUNDIR_GRID_DIR is defined\n\n# Set timesteps according to grid resolution\nif [[ ${grid_res} = \"05x0625\" ]] || [[ ${grid_res} = \"025x03125\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_TRANSPORT_TS='300'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_CHEMISTRY_TS='600'\\n\"\nelif  [[ ${grid_res} = \"0125x015625\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_TRANSPORT_TS='150'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_CHEMISTRY_TS='300'\\n\"\nelse\n    if [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_TRANSPORT_TS='1800'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_CHEMISTRY_TS='3600'\\n\"\n    else\n\tRUNDIR_VARS+=\"RUNDIR_TRANSPORT_TS='600'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_CHEMISTRY_TS='1200'\\n\"\n    fi\nfi\n\n#-----------------------------------------------------------------\n# Is International Date Line an edge or midpoint?\n#-----------------------------------------------------------------\n\nif [[ ${met} = \"ModelE2.1\" ]] || [[ ${met} = \"ModelE2.2\" ]] ; then\n    if [[ \"$grid_res\" == \"2x25\" ]]; then\n\t# Native GISS fine resolution\n\tRUNDIR_VARS+=\"RUNDIR_CENTER_LON_180='false'\\n\"\n    else\n        # FlexGrid re-gridded resolutions\n\tRUNDIR_VARS+=\"RUNDIR_CENTER_LON_180='true '\\n\"\n    fi\nelse\n    # All GMAO products\n    RUNDIR_VARS+=\"RUNDIR_CENTER_LON_180='true '\\n\"\nfi\n\n#----------------------------------------------------------------------------\n# Horizontal resolution-dependent settings: Dust tuning\n#----------------------------------------------------------------------------\n\nif [[ ${met} = \"ModelE2.1\" ]]; then\n\n    # -----------------------------------------------------------------------\n    # If using GCAP / ModelE2.1 meteorology fields:\n    #\n    # Current scale factors are based on U10 and V10, while the latest\n    # implementation of DEAD is using USTAR.  This may cause 10 times\n    # larger dust emissions than if properly scaled.\n    #\n    # TODO: The dust tuning factors will need to be rescaled\n    # for the ModelE2.1 meteorology, as we are retiring DustDead.\n    # ----------------------------------------------------------------------\n    if [[ \"$runid\" == \"E213f10aF40oQ40nudge\" ]]; then\n        if [[ \"$grid_res\" ==  \"4x5\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.00474046'\\n\"\n        elif [[ \"$grid_res\" == \"2x25\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.00243979'\\n\"\n        elif [[ \"$grid_res\" == \"05x0625\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.00276896'\\n\"\n        elif [[ \"$grid_res\" == \"025x03125\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.00254319'\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n  \tfi\n    else\n        if [[ \"$grid_res\" ==  \"4x5\" ]]; then\n            RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.03564873'\\n\"\n        elif [[ \"$grid_res\" == \"2x25\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.01050036'\\n\"\n        elif [[ \"$grid_res\" == \"05x0625\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.01340854'\\n\"\n        elif [[ \"$grid_res\" == \"025x03125\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='0.01066495'\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\tfi\n    fi\nelse\n    #------------------------------------------------------------------------\n    # If using NASA GMAO meteorology fields:\n    #------------------------------------------------------------------------\n    RUNDIR_VARS+=\"RUNDIR_GISS_RES='not_used'\\n\"\n    if [[ \"x${sim_name}\" == \"xfullchem\" || \\\n\t  \"x${sim_name}\" == \"xaerosol\"     ]]; then\n\t\n\tif [[ \"x${sim_extra_option}\" == \"xTOMAS15\" || \\\n\t      \"x${sim_extra_option}\" == \"xTOMAS40\"    ]]; then\n\n\t    #-------------------------------------------------------------\n\t    # TOMAS simulations use the HEMCO TOMAS_DustDead extension.\n\t    # Use the scaling factors previously computed for the\n\t    # DustDead extension here.\n\t    #-------------------------------------------------------------\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='-999.0e0'\\n\"\n\n\t    # GEOS-FP\n\t    if [[ \"x${met}\" == \"xgeosfp\" ]]; then\n\t\tif [[ \"x${grid_res}\" == \"x4x5\" ]]; then\n \t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='4.8632e-5'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x2x25\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='3.8197e-5'\\n\"\n\t\telse\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\t\tfi\n\n\t    # GEOS-IT\n\t    elif [[ \"x${met}\" == \"xgeosit\" ]]; then\n\t\tif [[ \"x${grid_res}\" == \"x4x5\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='3.8656e-5'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x2x25\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='3.1132e-5'\\n\" \n\t\telse\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\t\tfi\n\n\t    # MERRA-2\n\t    elif [[ \"x${met}\" == \"xmerra2\" ]]; then\n\t\tif [[ \"x${grid_res}\" == \"x4x5\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='5.6659e-5'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x2x25\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='4.5412e-5'\\n\"\n\t\telse\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\t\tfi\n\n\t    # Other met fields have no tuning factors defined yet\n\t    else\n\t\tRUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\t    fi\n\n\telse\n\n\t    #-------------------------------------------------------------\n\t    # Fullchem simulations (non-TOMAS) and aerosol-only simulations\n\t    # use the HEMCO DustL23M extension.  Dandan Zhang (@1Dandan)\n\t    # has computed mass tuning factors for each combination of\n\t    # met fields and horizontal resolution.  For more info, see:\n            # https://github.com/geoschem/geos-chem/pull/2946#issuecomment-3304249852\n\t    #-------------------------------------------------------------\n\n\t    # The DustDead extension is not used, set a missing value\n\t    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\t    \n\t    # GEOS-FP\n\t    if [[ \"x${met}\" == \"xgeosfp\" ]]; then\n\t\tif [[ \"x${grid_res}\" == \"x4x5\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='8.830E-03'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x2x25\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='4.862E-03'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x025x03125\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='2.832E-03'\\n\"\n\t\tfi\n\n\t    # GEOS-IT\n\t    elif [[ \"x${met}\" == \"xgeosit\" ]]; then\n\t\tif [[ \"x${grid_res}\" == \"x4x5\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='6.639E-03'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x2x25\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='3.662E-03'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x05x0625\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='2.411E-03'\\n\"\n\t\tfi\n\n\t    # MERRA-2\n\t    elif [[ \"x${met}\" == \"xmerra2\" ]]; then\n\t\tif [[ \"x${grid_res}\" == \"x4x5\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='1.047E-02'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x2x25\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='5.750E-03'\\n\"\n\t\telif [[ \"x${grid_res}\" == \"x05x0625\" ]]; then\n\t\t    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='3.758E-03'\\n\"\n\t\tfi\n\n\t    # Other met fields have no tuning factors defined yet\n\t    else\n\t\tRUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='-999.0e0'\\n\"\n\t    fi\n\tfi\n\t\t\n    else\n\t#--------------------------------------------------------------------\n\t# Simulations other than fullchem/aerosol do not use dust,\n\t# so set missing values for the tuning factors\n\t#--------------------------------------------------------------------\n\tRUNDIR_VARS+=\"RUNDIR_DUSTDEAD_TF='-999.0e0'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_DUSTL23M_TF='-999.0e0'\\n\"\n    fi\nfi\n\n#-----------------------------------------------------------------\n# Ask user to select vertical resolution\n#-----------------------------------------------------------------\nprintf \"${thinline}Choose number of levels:${thinline}\"\n\nif [[ ${met} = \"geosfp\" ]] || [[ ${met} = \"merra2\" || ${met} = \"geosit\" ]]; then\n    printf \"  1. 72 (native)\\n\"\n    printf \"  2. 47 (reduced)\\n\"\n    grid_lev=\"\"\n    valid_lev=0\n    while [ \"${valid_lev}\" -eq 0 ]; do\n        read -p \"${USER_PROMPT}\" lev_num\n        valid_lev=1\n        if [[ ${lev_num} = \"1\" ]]; then\n            RUNDIR_VARS+=\"RUNDIR_GRID_NLEV='72'\\n\"\n        elif [[ ${lev_num} = \"2\" ]]; then\n\t    grid_lev=\"47L\"\n\t    RUNDIR_VARS+=\"RUNDIR_GRID_NLEV='47'\\n\"\n        else\n            valid_lev=0\n            printf \"Invalid vertical resolution option. Try again.\\n\"\n        fi\n    done\nfi\n\nif [[ ${met} = \"ModelE2.1\" ]]; then\n    printf \"  1. 40 (native)\\n\"\n    valid_lev=0\n    while [ \"${valid_lev}\" -eq 0 ]; do\n        read -p \"${USER_PROMPT}\" lev_num\n        valid_lev=1\n        if [[ ${lev_num} = \"1\" ]]; then\n            RUNDIR_VARS+=\"RUNDIR_GRID_NLEV='40'\\n\"\n        else\n            valid_lev=0\n            printf \"Invalid vertical resolution option. Try again.\\n\"\n        fi\n    done\nfi\n\nif [[ ${met} = \"ModelE2.2\" ]]; then\n    printf \"  1. 102 (native)\\n\"\n    printf \"  2. 74 (reduced)\\n\"\n    valid_lev=0\n    while [ \"${valid_lev}\" -eq 0 ]; do\n        read -p \"${USER_PROMPT}\" lev_num\n        valid_lev=1\n        if [[ ${lev_num} = \"1\" ]]; then\n            RUNDIR_VARS+=\"RUNDIR_GRID_NLEV='102'\\n\"\n        elif [[ ${lev_num} = \"2\" ]]; then\n            RUNDIR_VARS+=\"RUNDIR_GRID_NLEV='74'\\n\"\n        else\n            valid_lev=0\n            printf \"Invalid vertical resolution option. Try again.\\n\"\n        fi\n    done\nfi\n\n#-----------------------------------------------------------------\n# Ask user to define path where directory will be created\n#-----------------------------------------------------------------\nprintf \"${thinline}Enter path where the run directory will be created:${thinline}\"\nvalid_path=0\nwhile [ \"$valid_path\" -eq 0 ]; do\n    read -e -p \"${USER_PROMPT}\" rundir_path\n\n    # Test for quitting\n    if [[ \"x${rundir_path}\" == \"xq\" ]]; then\n\tprintf \"\\nExiting.\\n\"\n\texit 1\n    fi\n\n    # Expand $rundir_path to an absolute path.\n    # Also replace ~ with $HOME.\n    rundir_path=\"${rundir_path/#\\~/$HOME}\"\n    rundir_path=$(realpath \"${rundir_path}\")\n    echo \"Expanding to ${rundir_path}\"\n\n    # If this is just a new directory within an existing one,\n    # give the user the option to proceed\n    if [[ ! -d ${rundir_path} ]]; then\n        if [[ -d $(dirname ${rundir_path} ) ]]; then\n            printf \"\\nWarning: ${rundir_path} does not exist,\\nbut the parent directory does.\\nWould you like to make this directory? (y/n/q)\\n\"\n            read -p \"${USER_PROMPT}\" mk_rundir\n            if [[ \"x${mk_rundir}\" == \"xy\" ]]; then\n                mkdir $rundir_path\n\t    elif [[ \"x${mk_rundir}\" == \"xq\" ]]; then\n\t\tprintf \"\\nExiting.\\n\"\n\t\texit 1\n            fi\n        fi\n    fi\n\n    # Ask user to supply a new path again\n    if [[ ! -d ${rundir_path} ]]; then\n        printf \"\\nERROR: ${rundir_path} does not exist. Enter a new path or hit q to quit.\\n\"\n    else\n\tvalid_path=1\n    fi\ndone\n\n#-----------------------------------------------------------------\n# Ask user to define run directory name if not passed as argument\n#-----------------------------------------------------------------\nif [ -z \"$1\" ]; then\n    printf \"${thinline}Enter run directory name, or press return to use default:\\n\\n\"\n    printf \"NOTE: This will be a subfolder of the path you entered above.${thinline}\"\n    read -e -p \"${USER_PROMPT}\" rundir_name\n    if [[ -z \"${rundir_name}\" ]]; then\n\tgrid_display=\"${grid_res}\"\n        [[ \"x${grid_nest}\" != \"x\" ]] && grid_display+=\"_${grid_nest}\"\n\t[[ \"x${grid_lev}\"  != \"x\" ]] && grid_display+=\"_${grid_lev}\"\n\tif [[ \"x${sim_extra_option}\" = \"xnone\" ]]; then\n\t    rundir_name=gc_${grid_display}_${met}_${sim_name}\n\telse\n\t    rundir_name=gc_${grid_display}_${met}_${sim_name}_${sim_extra_option}\n\tfi\n\tprintf \"  -- Using default directory name ${rundir_name}\"\n    fi\nelse\n    rundir_name=$1\nfi\n\n#-----------------------------------------------------------------\n# Ask user for a new run directory name if specified one exists\n#-----------------------------------------------------------------\nrundir=${rundir_path}/${rundir_name}\nvalid_rundir=0\nwhile [ \"${valid_rundir}\" -eq 0 ]; do\n    if [[ -d ${rundir} ]]; then\n\tprintf \"\\nWARNING: ${rundir} already exists.\\n\"\n        printf \"Enter a different run directory name, or q to quit:\\n\"\n\tread -e -p \"${USER_PROMPT}\" new_rundir\n\tif [[ ${new_rundir} = \"q\" ]]; then\n\t    printf \"Exiting.\\n\"\n\t    exit 1\n\telse\n\t    rundir=${rundir_path}/${new_rundir}\n\tfi\n    else\n        valid_rundir=1\n    fi\ndone\n\n#-----------------------------------------------------------------\n# Create run directory\n#-----------------------------------------------------------------\n\nmkdir -p ${rundir}\nmkdir -p ${rundir}/Restarts\n\n# Copy run directory files and subdirectories\ncp ${gcdir}/run/shared/cleanRunDir.sh       ${rundir}\ncp ${gcdir}/run/shared/download_data.py     ${rundir}\ncp ${gcdir}/run/shared/download_data.yml    ${rundir}\ncp ./getRunInfo                             ${rundir}\ncp ./archiveRun.sh                          ${rundir}\ncp ./README.md                              ${rundir}\ncp ./gitignore                              ${rundir}/.gitignore\n\n# Use data downloader that points to GCAP2 restart files\nif [[ ${met} = \"ModelE2.1\" ]] || [[ ${met} = \"ModelE2.2\" ]]; then\n  cp ${gcdir}/run/shared/download_data.gcap2.40L.yml ${rundir}/download_data.yml\nfi\n\n# Copy the OH metrics Python script to the rundir (fullchem only)\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    cp -r ${gcdir}/run/shared/metrics.py  ${rundir}\n    chmod 744 ${rundir}/metrics.py\nfi\n\n# Set permissions\nchmod 744 ${rundir}/cleanRunDir.sh\nchmod 744 ${rundir}/archiveRun.sh\n\n# Copy species database\ncp -r ${gcdir}/run/shared/species_database.yml ${rundir}\n\n# Append APM or TOMAS species to species database\n# Also copy APM input files to the run directory\nif [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n    cat ${gcdir}/run/shared/species_database_tomas.yml >> ${rundir}/species_database.yml\nelif [[ ${sim_extra_option} =~ \"APM\" ]]; then\n    cat ${gcdir}/run/shared/species_database_apm.yml >> ${rundir}/species_database.yml\n    cp ${gcdir}/run/shared/apm_tmp.dat ${rundir}/apm_tmp.dat\n    cp ${gcdir}/run/shared/input.apm   ${rundir}/input.apm\nfi\n\n# If benchmark simulation, put run script in directory\nif [[ \"x${sim_extra_option}\" == \"xbenchmark\" ]]; then\n    scriptDir=\"./runScriptSamples/operational_examples/harvard_cannon\"\n    cp ${scriptDir}/geoschem.benchmark.run ${rundir}\n    chmod 744 ${rundir}/geoschem.benchmark.run\nfi\n\n# Create symbolic link to code directory\nln -s ${wrapperdir} ${rundir}/CodeDir\nln -s ${wrapperdir}/run/GCClassic/runScriptSamples ${rundir}/runScriptSamples\n\n#--------------------------------------------------------------------\n# Navigate to run directory and set up input files\n#--------------------------------------------------------------------\ncd ${rundir}\n\n# Special handling for start/end date based on simulation so that\n# start year/month/day matches default initial restart file.\nif [[ \"x${grid_res}\" = \"x0125x015625\" ]]; then\n    startdate='20230101'\n    enddate='20230201'\nelif [[ \"x${sim_name}\" == \"xHg\"   ||\n      \"x${sim_name}\" == \"xcarbon\" ||\n      \"x${sim_name}\" == \"xTransportTracers\" ]]; then\n    startdate='20190101'\n    enddate='20190201'\nelif [[ \"x${sim_name}\" == \"xmetals\" ]]; then\n    startdate='20110101'\n    enddate='20110201'\nelse\n    startdate='20190701'\n    enddate='20190801'\nfi\n\nif [[ ${met} = \"ModelE2.1\" ]] || [[ ${met} = \"ModelE2.2\" ]]; then\n    if [[ \"$scenario\" == \"HIST\" ]]; then\n\tstartdate='20050701'\n\tenddate='20050801'\n    else\n\tstartdate='20900701'\n\tenddate='20900801'\n    fi\nfi\nRUNDIR_VARS+=\"RUNDIR_SIM_START_DATE=$startdate\\n\"\nRUNDIR_VARS+=\"RUNDIR_SIM_END_DATE=$enddate\\n\"\nRUNDIR_VARS+=\"RUNDIR_SIM_START_TIME='000000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_SIM_END_TIME='000000'\\n\"\n\n# Use monthly diagnostics by default\nRUNDIR_VARS+=\"RUNDIR_HIST_TIME_AVG_DUR='00000100 000000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_TIME_AVG_FREQ='00000100 000000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_INST_DUR='00000100 000000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_INST_FREQ='00000100 000000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_MONTHLY_DIAG='1'\\n\"\n\n# Turn on GEOS-Chem timers for benchmark simulations\nif [[ \"${sim_extra_option}\" == \"benchmark\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_USE_GCCLASSIC_TIMERS='true '\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_USE_GCCLASSIC_TIMERS='false'\\n\"\nfi\n\n# Disable PARANOX for 0.25 x 0.3125 and finer grids\n# See: https://github.com/geoschem/geos-chem/issues/3009\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    if [[ \"x${grid_res}\" == \"x0125x015625\" ]]  ||   \\\n       [[ \"x${grid_res}\" == \"x025x03125\"   ]]; then\n       RUNDIR_VARS+=\"RUNDIR_PARANOX_EXT='off'\\n\"\n    else\n       RUNDIR_VARS+=\"RUNDIR_PARANOX_EXT='on '\\n\"\n    fi\nfi\n\n# Assign appropriate file paths and settings in HEMCO_Config.rc\nif [[ ${met} = \"ModelE2.1\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_DUSTDEAD_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_MEGAN_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SOILNOX_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_DUST='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_BIOVOC='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SOILNOX='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='off'\\n\"\n    RUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/gcap2_hemco.txt)\\n\"\nelse\n    if [[ \"${sim_extra_option}\" == \"benchmark\" ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_DUSTDEAD_EXT='off '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_DUSTL23M_EXT='on '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_MEGAN_EXT='on '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='on '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_SOILNOX_EXT='on '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_DUST='false'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_BIOVOC='false'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='false'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_SOILNOX='false'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='off'\\n\"\n    else\n\tif [[ \"${sim_extra_option}\" == \"marinePOA\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='on '\\n\"\n\t    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='false'\\n\"\n\t    RUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='off'\\n\"\n\t    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='true '\\n\"\n\t    if [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n\t\tRUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='on '\\n\"\n\t    else\n\t\tRUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n\t    fi\n\tfi\n\tif [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='on '\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='off'\\n\"\n\tfi\n\tRUNDIR_VARS+=\"RUNDIR_DUSTDEAD_EXT='off'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_DUSTL23M_EXT='off'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_MEGAN_EXT='off'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_SOILNOX_EXT='off'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_BIOVOC='true '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_SOILNOX='true '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_DUST='true '\\n\"\n    fi\n    RUNDIR_VARS+=\"$(cat ${gcdir}/run/shared/settings/gmao_hemco.txt)\\n\"\nfi\n\n#--------------------------------------------------------------------\n# Determine if we are to read the restart file as REAL*8 or not\n#\n# 1. fullchem+benchmark and 72L : Read as REAL*8 via GEOS-Chem\n# 2. TransportTracers and 72L   : Read as REAL*8 via GEOS-Chem\n# 3. Everything else            : Read as REAL*4 via HEMCO\n#--------------------------------------------------------------------\nreal8='false'\nif [[ \"x${sim_name}\"         == \"xfullchem\"              && \\\n      \"x${sim_extra_option}\" == \"xbenchmark\"         ]]  || \\\n   [[ \"x${sim_name}\"         == \"xTransportTracers\"  ]]; then\n    real8='true'\nfi\nif [[ \"x${grid_lev}\" == \"x47L\" ]]; then\n    real8='false'\nfi\nRUNDIR_VARS+=\"RUNDIR_READ_RESTART_AS_REAL8='${real8}'\\n\"\n\n#--------------------------------------------------------------------\n# Replace settings in config files with RUNDIR variables\n#--------------------------------------------------------------------\n\n# Define a subdirectory for rundir configuration files\nrundir_config_dirname=CreateRunDirLogs\nmkdir -p ${rundir}/${rundir_config_dirname}\n\n# Save RUNDIR variables to a file in the rundirConfig folder\nrundir_config_logname=rundir_vars.txt\nrundir_config_log=${rundir}/${rundir_config_dirname}/${rundir_config_logname}\necho -e \"$RUNDIR_VARS\" > ${rundir_config_log}\n#sort -o ${rundir_config_log} ${rundir_config_log}\n\n# Initialize run directory\n# NOTE: This also copies configuration files to the run directory!\n${srcrundir}/init_rd.sh ${rundir_config_log}\n\n#--------------------------------------------------------------------\n# Print run directory setup info to screen\n#--------------------------------------------------------------------\n\nprintf \"\\n  -- See ${rundir_config_dirname}/${rundir_config_logname} for summary of default run directory settings\"\nprintf \"\\n  -- This run directory has been set up to start on ${startdate}\"\nprintf \"\\n  -- A restart file for this date has been copied to the Restarts subdirectory\"\nprintf \"\\n  -- You may add more restart files using format GEOSChem.Restart.YYYYMMDD_HHmmz.nc4\"\nprintf \"\\n  -- Change simulation start and end dates in configuration file geoschem_config.yml\"\nprintf \"\\n  -- Default frequency and duration of diagnostics are set to monthly\"\nprintf \"\\n  -- Modify diagnostic settings in HISTORY.rc and HEMCO_Config.rc\\n\"\n\nif [[ \"x${nested_sim}\" == \"xT\" ]]; then\n    printf \"\\n  -- Nested-grid simulations use regional high-reoslution met fields\"\n    printf \"\\n     by default. GEOS-Chem may also use a custom domain in which case\"\n    printf \"\\n     global high-resolution met fields or custom cropped met fields\"\n    printf \"\\n     can be used.\\n\"\nfi\n\n#--------------------------------------------------------------------\n# Copy sample restart file to run directory\n# Bash functions used here are from ./setupForRestarts.sh\n#--------------------------------------------------------------------\n\n# Parse the download_data.yml file, which returns variable declarations\n# prefixed by \"RUNDIR_\", such as: RUNDIR_restarts_root=\"GEOSCHEM_RESTARTS\"\nif [[ \"x${met}\" == \"xModelE2.1\" || \"x${met}\" == \"xModelE2.2\" ]]; then\n    config_file=\"${gcdir}/run/shared/download_data.gcap2.40L.yml\"\nelse\n    config_file=\"${gcdir}/run/shared/download_data.yml\"\nfi\nconfig=$(parseYaml \"${config_file}\" \"RUNDIR_\")\n\n# Export environment variables to be used by rundir scripts\nfor var in ${config[@]}; do\n    setRestartEnvVar \"${var}\"\ndone\n\n# Root paths for restarts\n# Check the Linux Kernel version to see if we are on the AWS cloud.\n# If we are, define the command to copy the restart file from s3://gcgrid\nis_aws=$(uname -r | grep aws)\nrst_root=$(getRemoteRoot \"${is_aws}\")\ns3_cp=$(getS3CopyCmd \"${is_aws}\")\nloc_root=\"${rundir}/Restarts\"\n\n# Copy the proper restart file to the run directory Restarts/ folder\ncopyRestartToRunDir \"${sim_name}\" \"${sim_extra_option}\" \\\n\t\t    \"${rst_root}\" \"${loc_root}\"\n\n# Change time cycle flags in HEMCO_Config.rc for those simulations\n# in which the restart files do not contain all species\nsetEFYOtoEYinHemcoConfig \"${sim_name}\" \"${sim_extra_option}\"\n\n# Unset environment variables used by rundir scripts\nfor var in ${config[@]}; do\n    unsetRestartEnvVar \"${var}\"\ndone\n\n#--------------------------------------------------------------------\n# Other setup tasks\n#--------------------------------------------------------------------\n\n# Call function to setup configuration files with settings common between\n# GEOS-Chem Classic and GCHP. This script mainly now adds species to\n# input_options.yml and modifies diagnostic output based on simulation type.\nif [[ \"x${sim_name}\" = \"xfullchem\" ]]; then\n    set_common_settings \"${sim_extra_option}\" \"GCClassic\"\nfi\n\n# If necessary, edit config files for a carbon single species simulation\nif [[ \"x${sim_name}\" == \"xcarbon\" ]]; then\n    if [[ \"x${sim_extra_option}\" != \"xnone\" ]]; then\n\tsingleCarbonSpecies \"${sim_extra_option}\" \"${rundir}\"\n    fi\nfi\n\n# Add nested grid region to met field file path and name to avoid reading\n# global files\nif [[ \"x${nested_sim}\" == \"xT\" ]]; then\n\n    if [[ \"x${grid_res}\" = \"x0125x015625\" ]]; then\n\thco_met='HEMCO_Config.rc.gmao_metfields_0125'\n\tsed_ie \"s|GEOS_0.25x0.3125|GEOS_0.25x0.3125_${grid_nest}|\" $hco_met\n\tsed_ie \"s|025x03125.\\$NC|025x03125.${grid_nest}.\\$NC|\" $hco_met\n    else\n\thco_met='HEMCO_Config.rc.gmao_metfields'\n    fi\n    sed_ie \"s|GEOS_${grid_res_long}|GEOS_${grid_res_long}_${grid_nest}|\" $hco_met\n    sed_ie \"s|\\$RES|\\$RES.${grid_nest}|\" $hco_met\n\nfi\n\n#--------------------------------------------------------------------\n# Navigate back to source code directory\n#--------------------------------------------------------------------\ncd ${srcrundir}\n\n#----------------------------------------------------------------------\n# Archive repository version in run directory file rundir.version\n#----------------------------------------------------------------------\n\n# Get info about the current commit in geoschem/geos-chem\ncd ${gcdir}\nremote_url=$(git config --get remote.origin.url)\ncode_branch=$(git rev-parse --abbrev-ref HEAD)\nlast_commit=$(git log -n 1 --pretty=format:\"%s\")\ncommit_date=$(git log -n 1 --pretty=format:\"%cd\")\ncommit_user=$(git log -n 1 --pretty=format:\"%cn\")\ncommit_hash=$(git log -n 1 --pretty=format:\"%h\")\ncd ${srcrundir}\n\n# Write commit info to a version log\nversion_log=${rundir}/${rundir_config_dirname}/rundir.version\nprintf   \" This run directory was created with:\"        >  ${version_log}\nprintf \"\\n ${srcrundir}/createRunDir.sh.\\n\"             >> ${version_log}\nprintf \"\\n GEOS-Chem repository version information:\\n\" >> ${version_log}\nprintf \"\\n  Remote URL: ${remote_url}\"                  >> ${version_log}\nprintf \"\\n  Branch: ${code_branch}\"                     >> ${version_log}\nprintf \"\\n  Commit: ${last_commit}\"                     >> ${version_log}\nprintf \"\\n  Date: ${commit_date}\"                       >> ${version_log}\nprintf \"\\n  User: ${commit_user}\"                       >> ${version_log}\nprintf \"\\n  Hash: ${commit_hash}\\n\"                     >> ${version_log}\n\n#-----------------------------------------------------------------\n# Ask user whether to track run directory changes with git\n#-----------------------------------------------------------------\nprintf \"${thinline}Do you want to track run directory changes with git? (y/n)${thinline}\"\nvalid_response=0\nwhile [ \"$valid_response\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" enable_git\n    if [[ \"x${enable_git}\" == \"xy\" ]]; then\n\tcd ${rundir}\n\tprintf \"\\n\\nChanges to the following run directory files are tracked by git:\\n\\n\" >> ${version_log}\n\tprintf \"\\n\"\n\tgit init\n\tgit add *.rc *.sh *.yml *.py geoschem_config.yml getRunInfo\n\t[[ -f geoschem.benchmark.run         ]] && git add geoschem.benchmark.run\n\t[[ -f geoschem.run                   ]] && git add geoschem.run\n\t[[ -f HEMCO_Config.rc.gmao_metfields ]] && git add HEMCO_Config.rc.gmao_metfields\n\t[[ -f ${rundir_config_log}           ]] && git add ${rundir_config_log}\n\tprintf \" \" >> ${version_log}\n\tgit commit -m \"Initial run directory\" >> ${version_log}\n\tcd ${srcrundir}\n\tvalid_response=1\n    elif [[ ${enable_git} = \"n\" ]]; then\n\tvalid_response=1\n    else\n\tprintf \"Input not recognized. Try again.\\n\"\n    fi\ndone\n\n#-----------------------------------------------------------------\n# Ask user whether to build the KPP-standalone box model\n#-----------------------------------------------------------------\nenable_kppsa=\"\"\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    printf \"${thinline}Do you want to build the KPP-Standalone Box Model? (y/n)${thinline}\"\n    valid_response=0\n    while [ \"$valid_response\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" enable_kppsa\n\tif [[ \"x${enable_kppsa}\" == \"xy\" ]]; then\n\t    cp -r ${gcdir}/run/shared/kpp_standalone_interface.yml  ${rundir}\n\t    chmod 644 ${rundir}/kpp_standalone_interface.yml\n\t    valid_response=1\n\telif [[ \"x${enable_kppsa}\" = \"xn\" ]]; then\n\t    valid_response=1\n\telse\n\t    printf \"Input not recognized. Try again.\\n\"\n\tfi\n    done\nfi\n\n#---------------------------------------------------------------------------\n# Add reminders to compile with CMake options for simulations that need them\n#---------------------------------------------------------------------------\nhdr=\"\\n>>>> REMINDER: You must compile with options:\"\nftr=\"<<<<\\n\"\nEXTRA_CMAKE_OPTIONS=\"\"\n[[ \"x${sim_name}\" == \"xcarbon\" ]] && EXTRA_CMAKE_OPTIONS=\"-DMECH=carbon \"\n[[ \"x${sim_name}\" == \"xHg\"     ]] && EXTRA_CMAKE_OPTIONS=\"-DMECH=Hg -DFASTJX=y \"\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    [[ \"x${sim_extra_option}\" == \"xAPM\"     ]] && EXTRA_CMAKE_OPTIONS=\"-DAPM=y \"\n    [[ \"x${sim_extra_option}\" == \"xRRTMG\"   ]] && EXTRA_CMAKE_OPTIONS=\"-DRRTMG=y \"\n    [[ \"x${sim_extra_option}\" == \"xTOMAS15\" ]] && EXTRA_CMAKE_OPTIONS=\"-DTOMAS=y -DTOMAS_BINS=15 \"\n    [[ \"x${sim_extra_option}\" == \"xTOMAS40\" ]] && EXTRA_CMAKE_OPTIONS=\"-DTOMAS=y -DTOMAS_BINS=40 \"\nfi\n[[ \"x${enable_kppsa}\" == \"xy\" ]] && EXTRA_CMAKE_OPTIONS+=\"-DKPPSA=y\"\n\n# Add to RUNDIR_VARS\nRUNDIR_VARS+=\"EXTRA_CMAKE_OPTIONS=${EXTRA_CMAKE_OPTIONS}\"\n\n# Print a reminder to compile with extra CMake options, if necessary\n[[ \"x${EXTRA_CMAKE_OPTIONS}\" != \"x\" ]] && printf \"${hdr} ${EXTRA_CMAKE_OPTIONS} ${ftr}\"\n\n#---------------------------------------------------------------------------\n# Create build directory README file\n#---------------------------------------------------------------------------\nmkdir -p \"${rundir}/build\"\nmsg=\"To build GEOS-Chem, type:\\n\\n\"\nmsg+=\"$ cmake ../CodeDir\\n\"\nmsg+=\"$ cmake . -DRUNDIR=.. ${EXTRA_CMAKE_OPTIONS}\\n\"\nmsg+=\"$ make -j\\n\"\nmsg+=\"$ make install\\n\"\nprintf \"${msg}\" > ${rundir}/build/README\nunset msg\n\n#-----------------------------------------------------------------\n# Add the version info to the top of the rundir configuration log\n#-----------------------------------------------------------------\n\n# Add a caveat that these rundir settings only go with this commit\nprintf \"\\n\\n IMPORTANT: ONLY USE THESE RUNDIR SETTINGS WITH THIS COMMIT!\\n\" >> ${version_log}\n\n# Add a \"# \" characters to the front of each line so we can use\n# it as a comment heading for ${rundir_config_logname}\nsed 's/^/# /' ${version_log} > tmp.txt\nmv tmp.txt ${version_log}\n\n# Add the version log to the top of the rundir config log\ncat ${version_log} ${rundir_config_log} > tmp.txt\nmv tmp.txt ${rundir_config_log}\n\n# Remove the version log\nrm -rf ${version_log}\n\n# Save the updated rundir_vars file to the git repo\nif [[ \"x${enable_git}\" == \"xy\" ]]; then\n    if [[ -f ${rundir_config_log} ]]; then\n\tcd ${rundir}\n\tgit add ${rundir_config_log}\n\tgit commit -m \"Update header of ${rundir_config_dirname}/${rundir_config_logname}\" > /dev/null\n\tcd ${srcrundir}\n    fi\nfi\n\n#-----------------------------------------------------------------\n# Create and populate warnings file\n#-----------------------------------------------------------------\nif [[ $met == \"geosfp\" ]]; then\n   echo -e ${fp_msg} > ${rundir}/warnings.txt\nfi\n\n#-----------------------------------------------------------------\n# Done!\n#-----------------------------------------------------------------\nprintf \"\\nCreated ${rundir}\\n\"\n\nexit 0\n"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.Hg",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the KPP \"Hg\" mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  photolysis:\n    activate: true\n    cloud-j:\n      cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2025-01-Hg/\n      num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV}\n      cloud_scheme_flag: 3\n      opt_depth_increase_factor: 1.050\n      min_top_inserted_cloud_OD: 0.005\n      cloud_overlap_correlation: 0.33\n      num_cloud_overlap_blocks: 6\n      sphere_correction: 1\n      num_wavelength_bins: 18\n      use_H2O_UV_absorption: true\n    fast-jx:\n      fastjx_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/FAST_JX/v2024-05-Hg/\n    overhead_O3:\n      use_online_O3_from_model: ${RUNDIR_USE_ONLINE_O3}\n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      -  Hg0\n      -  HgBr\n      -  HgBrNO2\n      -  HgBrHO2\n      -  HgBrBrO\n      -  HgBrClO\n      -  HgBrOH\n      -  HgBr2\n      -  HgCl\n      -  HgClNO2\n      -  HgClHO2\n      -  HgClClO\n      -  HgClBrO\n      -  HgClBr\n      -  HgClOH\n      -  HgOH\n      -  HgOHNO2\n      -  HgOHHO2\n      -  HgOHClO\n      -  HgOHBrO\n      -  HgOHOH\n      -  HgCl2\n      -  Hg2ClP\n      -  Hg2ORGP\n      -  Hg2STRP\n\n  wet_deposition:\n    activate: true\n    \n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2025-03/\n\n#============================================================================\n# Settings specific to the Hg simulation\n#============================================================================\nHg_simulation_options:\n\n  sources:\n    use_dynamic_ocean_Hg: false\n    use_preindustrial_Hg: false\n    use_arctic_river_Hg: true\n\n  chemistry:\n    tie_HgIIaq_reduction_to_UVB: true\n\n  # NOTE: GTMM is currently, we look to the Hg & POPs community\n  # to take the lead in restoring it. (bmy, 04 Apr 2022)\n  GTMM_soil_model:\n    activate: false\n    restart_file: N/A\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - Hg0\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.POPs",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the POPs mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: false\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      - POPG_${RUNDIR_POP_SPC}\n      - POPPOCPO_${RUNDIR_POP_SPC}\n      - POPPOCPI_${RUNDIR_POP_SPC}\n      - POPPBCPO_${RUNDIR_POP_SPC}\n      - POPPBCPI_${RUNDIR_POP_SPC}\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings specific to the POPs simulation\n#============================================================================\nPOPs_simulation_options:\n  POP_type: ${RUNDIR_POP_SPC}\n  chemistry_processing: true\n  POP_XMW: ${RUNDIR_POP_XMW}\n  POP_KOA: ${RUNDIR_POP_KOA}\n  POP_KBC: ${RUNDIR_POP_KBC}\n  POP_K_POPG_OH: ${RUNDIR_POP_K_POPG_OH}\n  POP_K_POPP_O3A: ${RUNDIR_POP_K_POPP_O3A}\n  POP_K_POPP_O3B: ${RUNDIR_POP_K_POPP_O3B}\n  POP_HSTAR: ${RUNDIR_POP_HSTAR}\n  POP_DEL_H: ${RUNDIR_POP_DEL_H}\n  POP_DEL_Hw: ${RUNDIR_POP_DEL_Hw}\n  \n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - POPG_${RUNDIR_POP_SPC}\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD\n"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.TransportTracers",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the TransportTracers mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true    \n  \n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      -  Rn222\n      -  Pb210\n      -  Pb210s\n      -  Be7\n      -  Be7s\n      -  Be10\n      -  Be10s\n      -  aoa\n      -  aoa_bl\n      -  aoa_nh\n      -  CH3I\n      -  CO_25\n      -  CO_50\n      -  e90\n      -  e90_n\n      -  e90_s\n      -  nh_5\n      -  nh_50\n      -  PassiveTracer\n      -  SF6\n      -  st80_25\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - Rn222\n      - Pb210\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD\n"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.aerosol",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the aerosols-only mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: false\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  photolysis:\n    overhead_O3:\n      use_online_O3_from_model: false\n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n\n  rrtmg_rad_transfer_model:           # This menu is only used to specify the\n    aod_wavelengths_in_nm:            # AOD wavelength.  RRTMG can only be\n      - 550                           # called from a fullchem simulation.\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      - BCPI\n      - BCPO\n      - DMS\n      - DSTbin1\n      - DSTbin2\n      - DSTbin3\n      - DSTbin4\n      - DSTbin5\n      - DSTbin6\n      - DSTbin7\n      - H2O2\n      - MSA\n      - NH3\n      - NH4\n      - NIT\n      - NITs\n      - OCPI\n      - OCPO\n      - pFe\n      - SALA\n      - SALAAL\n      - SALACL\n      - SALC\n      - SALCAL\n      - SALCCL\n      - SO2\n      - SO4\n      - SO4s\n      - SOAP\n      - SOAS\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2025-03/\n\n  carbon:\n    activate: true\n    brown_carbon: false\n    enhance_black_carbon_absorption:\n      activate: true\n      hydrophilic: 1.5\n      hydrophobic: 1.0\n\n  dust:\n    activate: true\n\n  sea_salt:\n    activate: true\n    SALA_radius_bin_in_um: [0.01, 0.5]\n    SALC_radius_bin_in_um: [0.5,  8.0]\n\n  sulfate:\n    activate: true\n    metal_cat_SO2_oxidation: true\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - BCPI\n      \n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD\n"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.carbon",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the KPP carbon mechanism.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      - CH4\n      - CO\n      - CO2\n      - OCS\n\n#============================================================================\n# Options for CH4\n#============================================================================\nCH4_options:\n\n  use_observational_operators:\n    AIRS: false\n    GOSAT: false\n    TCCON: false\n\n  analytical_inversion:\n    perturb_CH4_boundary_conditions: false\n    CH4_boundary_condition_ppb_increase_NSEW: [0.0, 0.0, 0.0, 0.0]\n\n#============================================================================\n# Options for CO\n#============================================================================\nCO_options:\n  use_archived_PCO_from_CH4: true\n  use_archived_PCO_from_NMVOC: true\n\n#============================================================================\n# Options for CO2\n#============================================================================\nCO2_options:\n\n  sources:\n    use_archived_PCO2_from_CO: true\n\n  tagged_species:\n    tag_bio_and_ocean_CO2: false\n    tag_land_fossil_fuel_CO2: false\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - CH4\n      - CO\n      - CO2\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.fullchem",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the KPP \"fullchem\" mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n  radiation_timestep_in_s: 10800\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n    linear_chemistry_aloft:\n      activate: true\n      use_linoz_for_O3: true\n    active_strat_H2O:\n      activate: true\n      use_static_bnd_cond: true\n    gamma_HO2: 0.2\n    autoreduce_solver:\n      activate: false\n      use_target_threshold:\n        activate: true\n        oh_tuning_factor: 0.00005\n        no2_tuning_factor: 0.0001\n      use_absolute_threshold:\n        scale_by_pressure: true\n        absolute_threshold: 100.0\n      keep_halogens_active: false\n      append_in_internal_timestep: false\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    CO2_effect:\n      activate: false\n      CO2_level: 600.0\n      reference_CO2_level: 380.0\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  photolysis:\n    activate: true\n    cloud-j:\n      cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2025-01/\n      verbose: false\n      num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV}\n      cloud_scheme_flag: 3\n      opt_depth_increase_factor: 1.050\n      min_top_inserted_cloud_OD: 0.005\n      cloud_overlap_correlation: 0.33\n      num_cloud_overlap_blocks: 6\n      sphere_correction: 1\n      num_wavelength_bins: 18\n      use_H2O_UV_absorption: true\n    overhead_O3:\n      use_online_O3_from_model: ${RUNDIR_USE_ONLINE_O3}\n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n    photolyze_nitrate_aerosol:\n      activate: true\n      NITs_Jscale: 100.0\n      NIT_Jscale: 100.0\n      percent_channel_A_HONO: 66.667\n      percent_channel_B_NO2: 33.333\n\n  rrtmg_rad_transfer_model:\n    activate: ${RUNDIR_USE_RRTMG}\n    aod_wavelengths_in_nm:\n      - 550\n    longwave_fluxes: ${RUNDIR_RRTMG_OPTS}\n    shortwave_fluxes: ${RUNDIR_RRTMG_OPTS}\n    clear_sky_flux: ${RUNDIR_RRTMG_OPTS}\n    all_sky_flux: ${RUNDIR_RRTMG_OPTS}\n    fixed_dyn_heating: false\n    seasonal_fdh: false\n    read_dyn_heating: false\n    co2_ppmv: 390.0\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      - ACET\n      - ACTA\n      - ACR\n      - AERI\n      - ALD2\n      - ALK4\n      - ALK4N2\n      - ALK4P\n      - ALK6\n      - AONITA\n      - APAN\n      - APINP\n      - APINN\n      - AROMCHO\n      - AROMP4\n      - AROMP5\n      - AROMPN\n      - ATOOH\n      - BALD\n      - BCPI\n      - BCPO\n      - BENZ\n      - BENZP\n      - BPINO\n      - BPINN\n      - BPINP\n      - BPINOOH\n      - BPINON\n      - Br\n      - Br2\n      - BrCl\n      - BrNO2\n      - BrNO3\n      - BrO\n      - BrSALA\n      - BrSALC\n      - BUTDI\n      - BUTN\n      - BZCO3H\n      - BZPAN\n      - C96O2H\n      - C96N\n      - C2H2\n      - C2H4\n      - C2H6\n      - C3H8\n      - C4H6\n      - CCl4\n      - CFC11\n      - CFC113\n      - CFC114\n      - CFC115\n      - CFC12\n      - CH2Br2\n      - CH2Cl2\n      - CH2I2\n      - CH2IBr\n      - CH2ICl\n      - CH2O\n      - CH3Br\n      - CH3CCl3\n      - CH3Cl\n      - CH3I\n      - CH4\n      - CHBr3\n      - CHCl3\n      - Cl\n      - Cl2\n      - Cl2O2\n      - ClNO2\n      - ClNO3\n      - ClO\n      - ClOO\n      - CLOCK\n      - CO\n      - CSL\n      - DMS\n      - DSTbin1\n      - DSTbin2\n      - DSTbin3\n      - DSTbin4\n      - DSTbin5\n      - DSTbin6\n      - DSTbin7\n      - EBZ\n      - EOH\n      - ETHLN\n      - ETHN\n      - ETHP\n      - ETNO3\n      - ETP\n      - FURA\n      - GLYC\n      - GLYX\n      - HACTA\n      - H1211\n      - H1301\n      - H2402\n      - H2O\n      - H2O2\n      - HAC\n      - HBr\n      - HC5A\n      - HCFC123\n      - HCFC141b\n      - HCFC142b\n      - HCFC22\n      - HCl\n      - HCOOH\n      - HI\n      - HMHP\n      - HMML\n      - HMS\n      - HNO2\n      - HNO3\n      - HNO4\n      - HOBr\n      - HOCl\n      - HOI\n      - HONIT\n      - HPALD1\n      - HPALD2\n      - HPALD3\n      - HPALD4\n      - HPETHNL\n      - I\n      - I2\n      - I2O2\n      - I2O3\n      - I2O4\n      - IBr\n      - ICHE\n      - ICl\n      - ICN\n      - ICPDH\n      - IDC\n      - IDCHP\n      - IDHDP\n      - IDHPE\n      - IDN\n      - IEPOXA\n      - IEPOXB\n      - IEPOXD\n      - IHN1\n      - IHN2\n      - IHN3\n      - IHN4\n      - INDIOL\n      - INO\n      - INPB\n      - INPD\n      - IO\n      - IONITA\n      - IONO\n      - IONO2\n      - IPRNO3\n      - ISALA\n      - ISALC\n      - ISOP\n      - ITCN\n      - ITHN\n      - LIMAL\n      - LIMKB\n      - LIMKET\n      - LIMN\n      - LIMNB\n      - LIMO\n      - LIMO2H\n      - LIMO3H\n      - LIMPAN\n      - LVOC\n      - LVOCOA\n      - MACR\n      - MACR1OOH\n      - MAP\n      - MCRDH\n      - MCRENOL\n      - MCRHN\n      - MCRHNB\n      - MCRHP\n      - MCT\n      - MEK\n      - MEKPN\n      - MENO3\n      - MGLY\n      - MOH\n      - MONITA\n      - MONITS\n      - MONITU\n      - MP\n      - MPAN\n      - MPN\n      - MSA\n      - MTPA\n      - MTPO\n      - MVK\n      - MVKDH\n      - MVKHC\n      - MVKHCB\n      - MVKHP\n      - MVKN\n      - MVKPC\n      - MYRCO\n      - N2O\n      - N2O5\n      - NH3\n      - NH4\n      - NIT\n      - NITs\n      - 'NO'\n      - NO2\n      - NO3\n      - NPHEN\n      - NPRNO3\n      - O3\n      - OClO\n      - OCPI\n      - OCPO\n      - OCS\n      - OIO\n      - PAN\n      - pFe\n      - PHAN\n      - PHEN\n      - PIN\n      - PINAL\n      - PINONIC\n      - PINO3H\n      - PINPAN\n      - PIP\n      - PP\n      - PPN\n      - PROPNN\n      - PRPE\n      - PRPN\n      - PYAC\n      - R4N2\n      - R4P\n      - R7N2\n      - R7P\n      - RA3P\n      - RB3P\n      - RCHO\n      - RCOOH\n      - RIPA\n      - RIPB\n      - RIPC\n      - RIPD\n      - RNO3\n      - RP\n      - SALA\n      - SALAAL\n      - SALACL\n      - SALC\n      - SALCAL\n      - SALCCL\n      - SO2\n      - SO4\n      - SO4s\n      - SOAGX\n      - SOAIE\n      - SOAP\n      - SOAS\n      - STYR\n      - TLFUONE\n      - TMB\n      - TOLU\n      - XYLE\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2025-03/\n\n  carbon:\n    activate: true\n    brown_carbon: false\n    enhance_black_carbon_absorption:\n      activate: true\n      hydrophilic: 1.5\n      hydrophobic: 1.0\n\n  complex_SOA:\n    activate:  ${RUNDIR_COMPLEX_SOA}\n    semivolatile_POA: ${RUNDIR_SVPOA}\n\n  dust:\n    activate: true\n    acid_uptake_on_dust: ${RUNDIR_ACID_UPTAKE}\n\n  sea_salt:\n    activate: true\n    SALA_radius_bin_in_um: [0.01, 0.5]\n    SALC_radius_bin_in_um: [0.5,  8.0]\n    marine_organic_aerosols: ${RUNDIR_MARINE_POA}\n\n  stratosphere:\n    settle_strat_aerosol: true\n    polar_strat_clouds:\n      activate: true\n      het_chem: true\n    allow_homogeneous_NAT: false\n    NAT_supercooling_req_in_K: 3.0\n    supersat_factor_req_for_ice_nucl: 1.2\n    calc_strat_aod: true\n\n  sulfate:\n    activate: true\n    metal_cat_SO2_oxidation: true\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - CO\n      - 'NO'\n      - O3\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD\n"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.metals",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the metals mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      - AlF1\n      - AlF2\n      - AsF1\n      - AsF2\n      - CaF1\n      - CaF2\n      - CaC3\n      - CaC4\n      - CdF1\n      - CdF2\n      - FeF1\n      - FeF2\n      - KF1\n      - KF2\n      - KC3\n      - KC4\n      - MgF1\n      - MgF2\n      - MgC3\n      - MgC4\n      - MnF1\n      - MnF2\n      - NiF1\n      - NiF2\n      - PbF1\n      - PbF2\n      - SiF1\n      - SiF2\n      - TiF1\n      - TiF2\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - AlF1\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD"
  },
  {
    "path": "run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.tagO3",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the tagged O3 mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  start_date: [${RUNDIR_SIM_START_DATE}, ${RUNDIR_SIM_START_TIME}]\n  end_date: [${RUNDIR_SIM_END_DATE}, ${RUNDIR_SIM_END_TIME}]\n  root_data_dir: ${RUNDIR_DATA_ROOT}\n  met_field: ${RUNDIR_MET}\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n  use_gcclassic_timers: ${RUNDIR_USE_GCCLASSIC_TIMERS}\n  read_restart_as_real8: ${RUNDIR_READ_RESTART_AS_REAL8}\n\n#============================================================================\n# Grid settings\n#============================================================================\ngrid:\n  resolution: ${RUNDIR_GRID_RES_LONG}\n  number_of_levels: ${RUNDIR_GRID_NLEV}\n  longitude:\n    range: ${RUNDIR_GRID_LON_RANGE}\n    center_at_180: ${RUNDIR_CENTER_LON_180}\n  latitude:\n    range: ${RUNDIR_GRID_LAT_RANGE}\n    half_size_polar_boxes: ${RUNDIR_GRID_HALF_POLAR}\n  nested_grid_simulation:\n    activate: ${RUNDIR_GRID_NESTED_SIM}\n    buffer_zone_NSEW: ${RUNDIR_GRID_BUFFER_ZONE}\n\n#============================================================================\n# Timesteps settings\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    gcclassic_tpcore:                 # GEOS-Chem Classic only\n      activate: true                  # GEOS-Chem Classic only\n      fill_negative_values: true      # GEOS-Chem Classic only\n      iord_jord_kord: [3, 3, 7]       # GEOS-Chem Classic only\n    transported_species:\n      - O3\n      - O3Strat\n      - O3ut\n      - O3mt\n      - O3row\n      - O3pcbl\n      - O3nabl\n      - O3atbl\n      - O3eubl\n      - O3afbl\n      - O3asbl\n      - O3init\n      - O3usa\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_input_for_testing.20190701.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - O3\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: ./OutputDir/plane.log.YYYYMMDD"
  },
  {
    "path": "run/GCClassic/getRunInfo",
    "content": "#!/usr/bin/perl -w\n\n#EOC\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: getRunInfo\n#\n# !DESCRIPTION: This script extracts information from the geoschem_config.yml\n#  file and prints the result. The input arguments are (1) the location of file\n#  geoschem_config.yml, and (2) the ID of run information to be extracted.\n#  Mapping  between ID and geoschem_config.yml information are is as follows:\n#  0:START, 1:END, 3:STARTDATE, 4:ENDDATE.\n#\\\\\n#\\\\\n# !USES:\n#\nrequire 5.003;                   # Need this version of Perl or newer\nuse English;                     # Use English language\nuse Carp;                        # Get detailed error messages\nuse strict;                      # Use \"IMPLICIT NONE\" syntax\n#\n# !PUBLIC MEMBER FUNCTIONS\n#  &getRunInfo\n# \n# !CALLING SEQUENCE:\n#  getRunInfo RUNDIR ID\n#    where RUNDIR is the path location of geoschem_config.yml and ID is the \n#    ID of the run information to retrieve\n#\n# !REMARKS:\n#  Designed for use with the root-level Makefile in a run directory when\n#  using the unit test or a run directory copied from UnitTest.\n#                                                                             .\n#  ID value   Information returned\n#  -------------------------------------------------------------------\n#  1          Start date & time   (in YYYYMMDDhhmm format           )\n#  2          End   date & time   (in YYYYMMDDhhmm format           )\n#  3          Start date only     (in YYYYMMDD format               )\n#  4          End   date only     (in YYYYMMDD format               )\n#  5          Simulation name\n#  6          RRTMG setting\n#\n# !REVISION HISTORY: \n#  06 Apr 2015 - E. Lundgren - Initial version\n#EOP\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !IROUTINE: getRunInfo\n#\n# !DESCRIPTION: Extracts run information from geoschem_config.yml.\n#\\\\\n#\\\\\n# !INTERFACE:\n#\nsub getInfo($$) {\n#\n# !INPUT PARAMETERS:\n#\n  my ( $rundir, $id ) = @_;\n#\n# !CALLING SEQUENCE:\n#  &getInfo( $rundir, $id );\n#\n# !REVISION HISTORY:\n#  06 Apr 2015 - E. Lundgren - Initial version\n#  27 Apr 2015 - M. Sulprizio- Now use YYYYMMDDhhmm format for start/end time\n#  31 Mar 2015 - E. Lundgren - Add special case of soa_svpoa\n#  22 May 2017 - R. Yantosca - For HEMCO standalone, convert YYYY-MM-DD to\n#                              YYYYMMDD and hh:mm:ss to hhmmss\n#  19 Sep 2017 - R. Yantosca - Add options to return start & end time in just\n#                              YYYYMMDD format (e.g. for use in filenames)\n#  05 Nov 2018 - M. Sulprizio- Add options to return start & end time in hhmm\n#                              format for use in filenames\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n#\n# !LOCAL VARIABLES:\n#\n  # Scalars\n  my $runstr  = \"\"; \n  my $line    = \"\";\n  my $runinfo = \"\";\n\n  # Arrays\n  my @linestrings   = ();\n  my @dates         = ();\n  my @times         = ();\n  my @runinfoarray  = ();\n\n  # Make sure that an geoschem_config.yml file is found; otherwise print a \"\";\n  if ( -f \"$rundir/geoschem_config.yml\" ) {\n  \n    # Get start run time if $id is 1 or 3, end run time if $id is 2 or 4\n    if ( $id == 1 || $id == 2 || $id == 3 || $id == 4 )  {\n        \n      if    ( $id == 1 || $id == 3 ) { $runstr = \"start\"; }\n      elsif ( $id == 2 || $id == 4 ) { $runstr = \"end\";   }\n   \n      # Grep for date & time in geoschem_config.yml\n      $line = qx( grep \"$runstr.*YYYYMMDD\" $rundir/geoschem_config.yml );\n      chomp( $line );\n  \n      # Split by spaces\n      @linestrings = split( ' ', $line );\n  \n      # Place start and end times into YYYYMMDDhhmm format (ID = 1 or 2)\n      # or just YYYYMMDD format (ID = 3 or 4)\n      $runinfo = \"$linestrings[4]$linestrings[5]\";\n      if    ( $id == 1 || $id == 2 ) { $runinfo = substr( $runinfo, 0, 12 ); } \n      elsif ( $id == 3 || $id == 4 ) { $runinfo = substr( $runinfo, 0, 8  ); }\n\n    } elsif ( $id == 5 ) {\n\n      # Grep for line in geoschem_config.yml\n      $line = qx( grep \"name\" $rundir/geoschem_config.yml );\n      chomp( $line );\n\n      # Split by spaces\n      @linestrings = split( ' ', $line );\n      \n      # Extract the simulation name\n      $runinfo = \"$linestrings[3]\";\n      \n    } elsif ( $id == 6 ) {\n\n      # Grep for line in geoschem_config.yml\n      $line = qx( grep \"Turn on RRTMG\" $rundir/geoschem_config.yml );\n      chomp( $line );\n\n      # Split by spaces\n      @linestrings = split( ' ', $line );\n\n      # Extract the simulation name\n      $runinfo = \"$linestrings[4]\";\n\n    } \n\n  } elsif ( -f \"$rundir/HEMCO_sa_Config.rc\" ) {\n\n    # Get start run time if $id is 1 or 3, end run time if $id is 2 or 4\n    if ( $id == 1 || $id == 2 || $id == 3 || $id == 4 ) {\n\n      if ( -f \"$rundir/HEMCO_sa_Time.rc\" ) {\n\n\tif ( $id == 1 || $id == 3 ) { $runstr = \"START\"; }\n\tif ( $id == 2 || $id == 4 ) { $runstr = \"END\";   }\n\n\t# Grep for start and date\n\t$line = qx( grep \"$runstr\" $rundir/HEMCO_sa_Time.rc );\n        chomp( $line );\n\n        # Split by spaces\n        @linestrings = split( ' ', $line );\n\n\t# Translatet YYYY-MM-DD into YYYYMMDD\n\t# and hh:mm:ss to hhmmss\n\t@dates = split( '-', $linestrings[1] );\n\t@times = split( ':', $linestrings[2] );\n\n        # Return start and end times in YYYYMMDDhhmm format (ID = 1 or 2)\n\t# or just YYYYMMDD format (ID = 3 or 4)\n\tif ( $id == 1 || $id == 2 ) { \n \t  $runinfo = \"$dates[0]$dates[1]$dates[2]$times[0]$times[1]\";\n        } elsif ( $id == 3 || $id == 4 ) {\n\t  $runinfo = \"$dates[0]$dates[1]$dates[2]\";\n        }\n      }\n\n    } elsif ( $id == 5 ) {\n\n      # Hardcode simulation name; it doesn't matter for HEMCO SA\n      $runinfo = \"standard\";\n      \n    }\n\n  }\n\n  # Print the result\n  print \"$runinfo\";\n  \n  return(0)\n}\n#EOP\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !IROUTINE: main\n#\n# !DESCRIPTION: Driver routine for the getRunInfo script.\n#\\\\\n#\\\\\n# !INTERFACE:\n#\nsub main() {\n#\n# !CALLING SEQUENCE:\n#  getRunInfo DIR ID\n#\n# !REVISION HISTORY:\n#  07 Apr 2015 - E. Lundgren - Initial version\n#  20 Sep 2017 - R. Yantosca - ID can now be from 0-8\n#  05 Nov 2018 - M. Sulprizio- ID can now be from 0-10\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n#\n# !LOCAL VARIABLES:\n#\n  my $nArgs = scalar( @ARGV );\n  my $msg   = \"\";\n\n  # Exits with an error message if the ID argument is not within valid range\n  if ( $nArgs >= 0 && $nArgs <= 10 ) {\n    &getInfo( @ARGV ); \n  } else { \n    $msg = \"getRunInfo: $ARGV[1] is an invalid value for the ID argument!\";\n    print \"$msg\"; \n    exit(1);    \n  }\n  return ( 0 );\n}\n\n#------------------------------------------------------------------------------\n\n# Call the main program\nmain();\n\n# Return normally\nexit(0);\n#EOC\n"
  },
  {
    "path": "run/GCClassic/gitignore",
    "content": "*.[oax]\n*~*\njob.*\nlog.*\n*.log\nslurm*\ndiaginfo.dat\ntracerinfo.dat\ngeos\ncore.*\ninitial_GEOSChem_rst*\nGEOSChem.Restart.*\nHEMCO_restart.*\nOutputDir/GEOSChem.*nc4*\nOutputDir/HEMCO_diagnostics*\nCodeDir\nbuild\nPlots\nResults\nBenchmarkResults\nrundir.version\nrunScriptSamples\nREADME\n"
  },
  {
    "path": "run/GCClassic/init_rd.sh",
    "content": "#!/bin/bash\nDESCRIPTION=\"\"\"Initialize the current working directory as a run directory (minimal file set). \n\nusage: \n   init_rd.sh FILE...\n      FILE...: Files defining variables used to initialize run directory. The\n               rightmost file has the highest precedence.\n               \n               Each FILE is sourced and the loaded variables are used to\n               fill the run directory templates using envsubst.\n\n   init_rd.sh --rundir-vars\n      Lists all the RUNDIR variables found in the templates.\n\n   init_rd.sh [-h] [--help]\n      Prints this help message.\n\"\"\"\nif [[ ( $* == --help ) ||  ( $* == -h ) || $# -eq 0 ]]; then \n   echo \"$DESCRIPTION\"\n   exit 0\nfi \n\nset -e\n\nTHIS_SCRIPTS_DIRECTORY=$(realpath $(dirname \"$0\"))\n\nif [[ ( $* == --rundir-vars ) ]]; then \n   grep -roh 'RUNDIR_[A-Z_][A-Z_]*' $THIS_SCRIPTS_DIRECTORY | grep -v 'RUNDIR_VARS' |  sort | uniq\n   exit 0\nfi \n\nfunction get_rundir_vars_list() {\n   sed -n 's#^\\s*\\([A-Za-z0-9_][A-Za-z0-9_]*\\)=.*#\\1#p'\n}\n\n# Source given files, and build variable list\nvariables=\nfor envfile in \"$@\"; do\n   source $envfile\n   variables+=\"$(cat $envfile | get_rundir_vars_list) \"\n   export $variables\ndone\n# Source a second time to resolve dependent variables\nfor envfile in \"$@\"; do\n   source $envfile\n   export $variables\ndone\nvariables=$(echo $variables | sort | uniq)\nenvsubst_list=\"$(printf '${%s} ' $variables)\"\n\nCOPY_LIST=\"\"\"\nHEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.${RUNDIR_SIM_NAME}\n\"\"\"\n\nSUBST_LIST=\"\"\"\ngeoschem_config.yml.templates/geoschem_config.yml.${RUNDIR_SIM_NAME}\nHEMCO_Config.rc.templates/HEMCO_Config.rc.${RUNDIR_SIM_NAME}\nHISTORY.rc.templates/HISTORY.rc.${RUNDIR_SIM_NAME}\nHEMCO_Config.rc.templates/${RUNDIR_MET_FIELD_CONFIG}\n\"\"\"\n\nfunction filename_with_suffixes_removed() {\n   basename $(basename $1 .${RUNDIR_SIM_NAME}) .template\n}\n\n# Copy files in COPY_LIST to cwd\nfor fpath in $COPY_LIST; do\n   cp $THIS_SCRIPTS_DIRECTORY/$fpath $(filename_with_suffixes_removed $fpath)\ndone\n\n# Make OutputDir\nmkdir -p OutputDir\n\n# Copy and make substitutions for each file in SUBST_LIST\nfor fpath in $SUBST_LIST; do\n   envsubst \"$envsubst_list\" < $THIS_SCRIPTS_DIRECTORY/$fpath > $(filename_with_suffixes_removed $fpath)\ndone\n\n# Make links\nunlink runScriptSamples\nln -s $THIS_SCRIPTS_DIRECTORY/runScriptSamples runScriptSamples\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/README",
    "content": "Contact:\nGEOS-Chem Support Team at Harvard University\ngeos-chem-support@g.harvard.edu"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc10_cannon_rocky.env",
    "content": "###############################################################################\n# gcclassic.rocky+gnu10.minimal.env\n#\n# Environment file for GCClassic + Rocky Linux + GNU Compiler Collection 10.2.0\n#\n# Does not include any Spack-built modules, only FASRC-built modules.\n# Useful for running in the Cannon queues, or to start fresh Spack builds.\n###############################################################################\n\n# Display message (if we are in a terminal window)\nif [[ $- = *i* ]] ; then\n  echo \"Loading modules for GEOS-Chem Classic, please wait ...\"\nfi\n\n#==============================================================================\n# Unload all previously-unloaded software\n#==============================================================================\n\n# Unload packages loaded with \"module load\"\nmodule purge\n\n# Unload packages loaded with \"spack load\"\nif [[ \"x${SPACK_ROOT}\" != \"x\" ]]; then\n    which spack &> /dev/null || spack unload --all\nfi\n\n#==============================================================================\n# Load FASRC-built software packages for Rocky Linux and GNU 10.2.0\n#==============================================================================\nif [[ $- = *i* ]] ; then\n  echo \"... Loading FASRC-built software, please wait ...\"\nfi\n\n# Load FASRC-built modules\nmodule load gcc/10.2.0-fasrc01             # gcc / g++ / gfortran\nmodule load openmpi/4.1.0-fasrc01          # MPI\nmodule load netcdf-c/4.8.0-fasrc01         # netcdf-c\nmodule load netcdf-fortran/4.5.3-fasrc01   # netcdf-fortran\nmodule load flex/2.6.4-fasrc01             # Flex lexer (needed for KPP)\nmodule load cmake/3.25.2-fasrc01           # CMake (needed to compile)\n\n# Additional FASRC-built modules\n# Uncomment if you need to use these\n#module load IDL/8.7.2-fasrc01               # IDL language (needed for GAMAP)\n##module load R/4.2.2-fasrc01                # R language\n##module load matlab/R2022b-fasrc01          # matlab language\n\n#==============================================================================\n# Environment variables and related settings\n# (NOTE: Lmod will define <module>_HOME variables for each loaded module\n#==============================================================================\n\n# Make all files world-readable by default\numask 022\n\n# Set number of threads for OpenMP.  If running in a SLURM environment,\n# use the number of requested cores.  Otherwise use 8 cores for OpenMP.\nif [[ \"x${SLURM_CPUS_PER_TASK}\" == \"x\" ]]; then\n    export OMP_NUM_THREADS=8\nelse\n    export OMP_NUM_THREADS=\"${SLURM_CPUS_PER_TASK}\"\nfi\n\n# Max out the stacksize memory limit\nexport OMP_STACKSIZE=\"500m\"\n\n# Compilers\nexport CC=\"gcc\"\nexport CXX=\"g++\"\nexport FC=\"gfortran\"\nexport F77=\"${FC}\"\n\n# netCDF\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n   export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_C_ROOT=\"${NETCDF_HOME}\"\nexport NETCDF_FORTRAN_ROOT=\"${NETCDF_FORTRAN_HOME}\"\n\n# KPP 3.0.0+\nexport KPP_FLEX_LIB_DIR=\"${FLEX_HOME}/lib64\"\n\n# If you are using GEOS-Chem 12.6.0 or earlier,\n# uncomment these lines and source this file again.\n#export GC_INCLUDE=$NETCDF_INCLUDE\n#export GC_BIN=$NETCDF_HOME/bin\n#export GC_LIB=$NETCDF_LIB\n#export GC_F_INCLUDE=$NETCDF_FORTRAN_INCLUDE\n#export GC_F_LIB=$NETCDF_FORTRAN_LIB\n#export GC_F_BIN=$NETCDF_FORTRAN_HOME/bin\n\n#==============================================================================\n# Set limits\n#==============================================================================\n\nulimit -c unlimited   # coredumpsize\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\n\n#==============================================================================\n# Print information\n#==============================================================================\n\nmodule list\n\necho \"\"\necho \"Environment:\"\necho \"\"\necho \"CC                  : ${CC}\"\necho \"CXX                 : ${CXX}\"\necho \"FC                  : ${FC}\"\necho \"KPP_FLEX_LIB_DIR    : ${KPP_FLEX_LIB_DIR}\"\necho \"NETCDF_HOME         : ${NETCDF_HOME}\"\necho \"NETCDF_FORTRAN_HOME : ${NETCDF_FORTRAN_HOME}\"\necho \"OMP_NUM_THREADS     : ${OMP_NUM_THREADS}\"\necho \"\"\necho \"Done sourcing ${BASH_SOURCE[0]}\"\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc12_cannon_rocky.env",
    "content": "###############################################################################\n# gcclassic.rocky+gnu12.minimal.env\n#\n# Environment file for GCClassic + Rocky Linux + GNU Compiler Collection 12.2.0\n#\n# Does not include any Spack-built modules, only FASRC-built modules.\n# Useful for running in the Cannon queues, or to start fresh Spack builds.\n###############################################################################\n\n# Display message (if we are in a terminal window)\nif [[ $- = *i* ]] ; then\n  echo \"Loading modules for GEOS-Chem Classic, please wait ...\"\nfi\n\n#==============================================================================\n# Unload all previously-unloaded software\n#==============================================================================\n\n# Unload packages loaded with \"module load\"\nmodule purge\n\n# Unload packages loaded with \"spack load\"\nif [[ \"x${SPACK_ROOT}\" != \"x\" ]]; then\n    which spack &> /dev/null || spack unload --all\nfi\n\n#==============================================================================\n# Load FASRC-built software packages for Rocky Linux and GNU 12.2.0\n#==============================================================================\nif [[ $- = *i* ]] ; then\n  echo \"... Loading FASRC-built software, please wait ...\"\nfi\n\n# FASRC-built modules needed for GEOS-Chem\nmodule load gcc/12.2.0-fasrc01             # gcc / g++ / gfortran\nmodule load openmpi/4.1.4-fasrc01          # MPI\nmodule load netcdf-c/4.9.2-fasrc01         # netcdf-c\nmodule load netcdf-fortran/4.6.0-fasrc02   # netcdf-fortran\nmodule load flex/2.6.4-fasrc01             # Flex lexer (needed for KPP)\nmodule load cmake/3.25.2-fasrc01           # CMake (needed to compile)\n\n# Additional FASRC-built modules\n# Uncomment if you need to use these\n#module load IDL/8.7.2-fasrc01              # IDL language (needed for GAMAP)\n#module load R/4.2.2-fasrc01                # R language\n#module load matlab/R2022b-fasrc01          # matlab language\n\n#==============================================================================\n# Environment variables and related settings\n# (NOTE: Lmod will define <module>_HOME variables for each loaded module)\n#==============================================================================\n\n# Make all files world-readable by default\numask 022\n\n# Set number of threads for OpenMP.  If running in a SLURM environment,\n# use the number of requested cores.  Otherwise use 8 cores for OpenMP.\nif [[ \"x${SLURM_CPUS_PER_TASK}\" == \"x\" ]]; then\n    export OMP_NUM_THREADS=8\nelse\n    export OMP_NUM_THREADS=\"${SLURM_CPUS_PER_TASK}\"\nfi\n\n# Max out the stacksize memory limit\nexport OMP_STACKSIZE=\"500m\"\n\n# Compilers\nexport CC=\"gcc\"\nexport CXX=\"g++\"\nexport FC=\"gfortran\"\nexport F77=\"${FC}\"\n\n# netCDF\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n    export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_C_ROOT=\"${NETCDF_HOME}\"\nexport NETCDF_FORTRAN_ROOT=${NETCDF_FORTRAN_HOME}\n\n# KPP 3.0.0+\nexport KPP_FLEX_LIB_DIR=${FLEX_HOME}/lib64\n\n# If you are using GEOS-Chem 12.6.0 or earlier,\n# uncomment these lines and source this file again.\n#export GC_INCLUDE=$NETCDF_INCLUDE\n#export GC_BIN=$NETCDF_HOME/bin\n#export GC_LIB=$NETCDF_LIB\n#export GC_F_INCLUDE=$NETCDF_FORTRAN_INCLUDE\n#export GC_F_LIB=$NETCDF_FORTRAN_LIB\n#export GC_F_BIN=$NETCDF_FORTRAN_HOME/bin\n\n#==============================================================================\n# Set limits\n#==============================================================================\n\nulimit -c unlimited   # coredumpsize\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\n\n#==============================================================================\n# Print information\n#==============================================================================\n\nmodule list\n\necho \"\"\necho \"Environment:\"\necho \"\"\necho \"CC                  : ${CC}\"\necho \"CXX                 : ${CXX}\"\necho \"FC                  : ${FC}\"\necho \"KPP_FLEX_LIB_DIR    : ${KPP_FLEX_LIB_DIR}\"\necho \"MPI_HOME            : ${MPI_HOME}\"\necho \"NETCDF_HOME         : ${NETCDF_HOME}\"\necho \"NETCDF_FORTRAN_HOME : ${NETCDF_FORTRAN_HOME}\"\necho \"OMP_NUM_THREADS     : ${OMP_NUM_THREADS}\"\necho \"\"\necho \"Done sourcing ${BASH_SOURCE[0]}\"\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc14_cannon_rocky.env",
    "content": "###############################################################################\n# gcclassic.rocky+gnu14.minimal.env\n#\n# Environment file for GCClassic + Rocky Linux + GNU Compiler Collection 10.4.0\n#\n# Does not include any Spack-built modules, only FASRC-built modules.\n# Useful for running in the Cannon queues, or to start fresh Spack builds.\n###############################################################################\n\n# Display message (if we are in a terminal window)\nif [[ $- = *i* ]] ; then\n  echo \"Loading modules for GEOS-Chem Classic, please wait ...\"\nfi\n\n#==============================================================================\n# Unload all previously-unloaded software\n#==============================================================================\n\n# Unload packages loaded with \"module load\"\nmodule purge\n\n# Unload packages loaded with \"spack load\"\nif [[ \"x${SPACK_ROOT}\" != \"x\" ]]; then\n    which spack &> /dev/null || spack unload --all\nfi\n\n#==============================================================================\n# Load FASRC-built software packages for Rocky Linux and GNU 10.2.0\n#==============================================================================\nif [[ $- = *i* ]] ; then\n  echo \"... Loading FASRC-built software, please wait ...\"\nfi\n\n# Load FASRC-built modules\nmodule load gcc/14.2.0-fasrc01             # gcc / g++ / gfortran\nmodule load openmpi/5.0.5-fasrc01          # MPI\nmodule load netcdf-c/4.9.2-fasrc06         # netcdf-c\nmodule load netcdf-fortran/4.6.1-fasrc04   # netcdf-fortran\nmodule load flex/2.6.4-fasrc01             # Flex lexer (needed for KPP)\nmodule load cmake/3.25.2-fasrc01           # CMake (needed to compile)\n\n# Additional FASRC-built modules\n# Uncomment if you need to use these\n#module load IDL/8.7.2-fasrc01               # IDL language (needed for GAMAP)\n##module load R/4.2.2-fasrc01                # R language\n##module load matlab/R2022b-fasrc01          # matlab language\n\n#==============================================================================\n# Environment variables and related settings\n# (NOTE: Lmod will define <module>_HOME variables for each loaded module\n#==============================================================================\n\n# Make all files world-readable by default\numask 022\n\n# Set number of threads for OpenMP.  If running in a SLURM environment,\n# use the number of requested cores.  Otherwise use 8 cores for OpenMP.\nif [[ \"x${SLURM_CPUS_PER_TASK}\" == \"x\" ]]; then\n    export OMP_NUM_THREADS=8\nelse\n    export OMP_NUM_THREADS=\"${SLURM_CPUS_PER_TASK}\"\nfi\n\n# Max out the stacksize memory limit\nexport OMP_STACKSIZE=\"500m\"\n\n# Compilers\nexport CC=\"gcc\"\nexport CXX=\"g++\"\nexport FC=\"gfortran\"\nexport F77=\"${FC}\"\n\n# netCDF\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n   export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_C_ROOT=\"${NETCDF_HOME}\"\nexport NETCDF_FORTRAN_ROOT=\"${NETCDF_FORTRAN_HOME}\"\n\n# KPP 3.0.0+\nexport KPP_FLEX_LIB_DIR=\"${FLEX_HOME}/lib64\"\n\n# If you are using GEOS-Chem 12.6.0 or earlier,\n# uncomment these lines and source this file again.\n#export GC_INCLUDE=$NETCDF_INCLUDE\n#export GC_BIN=$NETCDF_HOME/bin\n#export GC_LIB=$NETCDF_LIB\n#export GC_F_INCLUDE=$NETCDF_FORTRAN_INCLUDE\n#export GC_F_LIB=$NETCDF_FORTRAN_LIB\n#export GC_F_BIN=$NETCDF_FORTRAN_HOME/bin\n\n#==============================================================================\n# Set limits\n#==============================================================================\n\n#ulimit -c unlimited   # coredumpsize\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\n\n#==============================================================================\n# Print information\n#==============================================================================\n\nmodule list\n\necho \"\"\necho \"Environment:\"\necho \"\"\necho \"CC                  : ${CC}\"\necho \"CXX                 : ${CXX}\"\necho \"FC                  : ${FC}\"\necho \"KPP_FLEX_LIB_DIR    : ${KPP_FLEX_LIB_DIR}\"\necho \"NETCDF_HOME         : ${NETCDF_HOME}\"\necho \"NETCDF_FORTRAN_HOME : ${NETCDF_FORTRAN_HOME}\"\necho \"OMP_NUM_THREADS     : ${OMP_NUM_THREADS}\"\necho \"\"\necho \"Done sourcing ${BASH_SOURCE[0]}\"\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/geoschem.benchmark.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 48\n#SBATCH -N 1\n#SBATCH -t 0-5:00\n#SBATCH -p sapphire,huce_cascade,seas_compute,shared\n#SBATCH --mem=16000\n#SBATCH --mail-type=END\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: geoschem.benchmark.run\n#\n# !DESCRIPTION: This bash script submits a 1-month benchmark simulation\n#  to the SLURM scheduler.\n#\\\\\n#\\\\\n# !REMARKS:\n#  Designed to be used with the gc_4x5_merra2_fullchem_benchmark folder\n#  generated by the ./createRunDir.sh script.  To use this script, you must\n#  first compile GEOS-Chem with CMake to create the gcclassic executable.\n#\n#  NOTES:\n#  (1) This script is customized for the Harvard \"Cannon\" cluster.  If you\n#      are running a benchmark on a different machine, you can edit this\n#      script accordingly.\n#\n#  (2) SBATCH --exclusive will request an entire node, to prevent backfilling\n#      jobs from affecting timing results.  If you don't need the timing info,\n#      then you can delete this.\n#\n# !CALLING SEQUENCE:\n#  To submit run to the SLURM queue system:\n#   sbatch geoschem.benchmark.run\n#\n#  To run interactively:\n#   ./geoschem.benchmark.run\n#\n# !REVISION HISTORY:\n#  Type 'gitk' at the prompt to browse the revision history.\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n#-------------------------------------------------\n# Initialize\n#-------------------------------------------------\n\n# Define GEOS-Chem log file\nlog=GC.log\n\n#-------------------------------------------------\n# Start the simulation\n#-------------------------------------------------\n\n# Run GEOS-Chem and pipe output to log\nsrun -c $OMP_NUM_THREADS time -p ./gcclassic >> $log\n\n# Echo end time\necho '===> Run ended at' `date` >> $log\n\n#-------------------------------------------------\n# Clean up\n#-------------------------------------------------\n\n# Echo info from computational cores to log file for displaying results\nnodeName=`uname -n`\necho \"# of CPUs: $OMP_NUM_THREADS\"\necho \"NodeName : $nodeName\"\ngrep \"vendor_id\"  /proc/cpuinfo\ngrep \"model name\" /proc/cpuinfo\ngrep \"cpu MHz\"    /proc/cpuinfo\n\n# Clear variable\nunset log\nunset nodename\n\n# Exit normally\nexit 0\n#EOC\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/geoschem.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 8\n#SBATCH -N 1\n#SBATCH -t 0-12:00\n#SBATCH -p sapphire,huce_cascade,seas_compute,shared\n#SBATCH --mem=15000\n#SBATCH --mail-type=END\n\n###############################################################################\n### Sample GEOS-Chem Classic run script for Harvard Cannon (using SLURM).\n###\n### If you are running a nested-grid simulation at fine resolution, you\n### will likely need to request additional memory, cores, and time.\n###\n### -c           : Requests this many cores\n### -N           : Requests a single node\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n# Run GEOS_Chem.  The \"time\" command will return CPU and wall times.\n# Stdout and stderr will be directed to the \"GC.log\" log file\n# (you can change the log file name below if you wish)\nsrun -c $OMP_NUM_THREADS time -p ./gcclassic >> GC.log\n\n# Exit normally\nexit 0\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/geoschem.vtune-hotspots.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 48\n#SBATCH -N 1\n#SBATCH -t 0-12:00\n#SBATCH --exclusive\n#SBATCH -p huce_cascade,shared\n#SBATCH --mem=15000\n#SBATCH --mail-type=END\n\n###############################################################################\n### Sample GEOS-Chem Classic run script for Harvard Cannon (using SLURM).\n###\n### If you are running a nested-grid simulation at fine resolution, you\n### will likely need to request additional memory, cores, and time.\n###\n### -c           : Requests this many cores\n### -N           : Requests a single node\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Load the GNU 12.2.0 environment\nsource CodeDir/run/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc12_cannon_rocky.env\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n# Run GEOS_Chem and collect hotspot information with Intel VTune\nsrun -c $OMP_NUM_THREADS vtune -collect hotspots -- ./gcclassic > GC.log\n\n# Exit with return code\nexit $?\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/geoschem.vtune-perf-snapshot.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 48\n#SBATCH -N 1\n#SBATCH -t 0-12:00\n#SBATCH --exclusive\n#SBATCH -p huce_cascade,shared\n#SBATCH --mem=15000\n#SBATCH --mail-type=END\n\n###############################################################################\n### Sample GEOS-Chem Classic run script for Harvard Cannon (using SLURM).\n###\n### If you are running a nested-grid simulation at fine resolution, you\n### will likely need to request additional memory, cores, and time.\n###\n### -c           : Requests this many cores\n### -N           : Requests a single node\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Load the GNU 12.2.0 environment\nsource CodeDir/run/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc12_cannon_rocky.env\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n# Run GEOS_Chem and collect microarchitectural information with Intel VTune\nsrun -c $OMP_NUM_THREADS vtune -collect performance-snapshot -- ./gcclassic > GC.log\n\n# Exit with return code\nexit $?\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/geoschem.vtune-threading.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 48\n#SBATCH -N 1\n#SBATCH -t 0-12:00\n#SBATCH --exclusive\n#SBATCH -p huce_cascade,shared\n#SBATCH --mem=15000\n#SBATCH --mail-type=END\n\n###############################################################################\n### Sample GEOS-Chem Classic run script for Harvard Cannon (using SLURM).\n###\n### If you are running a nested-grid simulation at fine resolution, you\n### will likely need to request additional memory, cores, and time.\n###\n### -c           : Requests this many cores\n### -N           : Requests a single node\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Load the GNU 12.2.0 environment\nsource CodeDir/run/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc12_cannon_rocky.env\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n# Run GEOS_Chem and collect microarchitectural information with Intel VTune\n# -knob stack-size=0 specifies unlimited stack size\nsrun -c $OMP_NUM_THREADS vtune -collect threading -knob stack-size=0 -- ./gcclassic > GC.log\n\n# Exit with return code\nexit $?\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/geoschem.vtune-uarch-explore.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 48\n#SBATCH -N 1\n#SBATCH -t 0-12:00\n#SBATCH --exclusive\n#SBATCH -p huce_cascade,shared\n#SBATCH --mem=15000\n#SBATCH --mail-type=END\n\n###############################################################################\n### Sample GEOS-Chem Classic run script for Harvard Cannon (using SLURM).\n###\n### If you are running a nested-grid simulation at fine resolution, you\n### will likely need to request additional memory, cores, and time.\n###\n### -c           : Requests this many cores\n### -N           : Requests a single node\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Load the GNU 12.2.0 environment\nsource CodeDir/run/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc12_cannon_rocky.env\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n# Run GEOS_Chem and collect microarchitectural information with Intel VTune\nsrun -c $OMP_NUM_THREADS vtune -collect uarch-exploration -- ./gcclassic > GC.log\n\n# Exit with return code\nexit $?\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/parallelTest.sh",
    "content": "#!/bin/bash\n\n#SBATCH -c 24\n#SBATCH -N 1\n#SBATCH -t 0-03:00\n#SBATCH -p sapphire,huce_cascade,seas_compute,shared\n#SBATCH --mem=30000\n#SBATCH --mail-type=END\n\n#############################################################################\n### parallelTest.sh\n###\n### Performs a 1-hour GCClassic parallel test on Cannon within a \n### freshly-created run directory.  Uses 24 and 13 cores, which seems\n### to reveal most parallelization issues.  Useful for when you only\n### want to run a single parallel test instead of a whole suite of tests.\n#############################################################################\n\n#============================================================================\n# %%% User-configurable settings %%%\n#============================================================================\nallCores=24                         # Run w/ same # cores as in #SBATCH -c\nfewerCores=13                       # Run with fewer cores   \nhhmm=\"0100\"                         # Duration of run in hhmm\nresultsLog=\"parallel.results.log\"   # Logfile for results\n\n#============================================================================\n# %%% Bash functions %%%\n#============================================================================\n\nfunction get_subdir_name() {\n    #========================================================================\n    # Returns the subdirectory of OutputDir (or Restarts) where files\n    # corresponding to a certain number of cores will be moved.\n    #\n    # 1st argument: Number of cores\n    #========================================================================\n    printf \"${1}_cores\"\n    return 0\n}\n\n\nfunction find_restart_file() {\n\n    #========================================================================\n    # Returns the path of a GEOS-Chem restart file in a subdirectory\n    #\n    # 1st argument: Subdirectory (obtained from get_subdir_name)\n    #========================================================================\n    r=$(ls -1 -tr \"Restarts/${1}\" | grep \"GEOS\" | grep \"${hhmm}\" | head -1)\n    printf \"Restarts/${1}/${r}\"\n    return 0\n}\n\n\nfunction get_logfile_name() {\n    #========================================================================\n    # Returns the log file name corresponding to the number of cores\n    #\n    # 1st argument: Number of cores\n    #========================================================================\n    subdir=$(get_subdir_name \"${1}\")\n    printf \"parallel.${subdir}.log\"\n    return 0\n}\n\n\nfunction score_parallel_test() {\n    #========================================================================\n    # Determines if the parallelization test was successful by checking\n    # that the restart files from both runs are bitwise identical.\n    #\n    # 1st argument: Folder where the 24 core restart file is located.\n    # 2nd argument: Folder where the 13 core restart file is located.\n    # 3rd argument: Name of the log file to print results\n    #========================================================================\n\n    # Arguments\n    subDir1=$(get_subdir_name \"${1}\")\n    subDir2=$(get_subdir_name \"${2}\")\n    results=\"${3}\"\n\n    # Restart file names from both parallel test runs\n    rstFile1=$(find_restart_file \"${subDir1}\")\n    rstFile2=$(find_restart_file \"${subDir2}\")\n\n    # Exit if eiher restart file does not exist\n    [[ ! -f \"${rstFile1}\" ]] && return 1\n    [[ ! -f \"${rstFile2}\" ]] && return 1\n\n    # Remove the results log if it exists\n    [[ -f \"${results}\" ]] && rm -f \"${results}\"\n\n    # If the files are bitwise identical then the pqarallel test is successful\n    diff \"${rstFile1}\" \"${rstFile2}\"\n    if [[ $? -eq 0 ]]; then\n\tprintf \"\\n\\nParallel test result: PASS\\n\" >> \"${results}\"\n\tdate                                      >> \"${results}\"\n\treturn 0\n    fi\n    printf \"\\n\\nParallel test result: FAIL\\n\"     >> \"${results}\"\n    date                                          >> \"${results}\"\n    return 1\n}\n\n\nfunction edit_config_files() {\n\n    #========================================================================\n    # Edits start times, end times, frequency, and duration in the various\n    # run directory configuration files.\n    #========================================================================\n\n    # Replace ending time in geoschem_config.yml\n    sed -i -e \"s/20190801, ....../20190701, ${hhmm}00/\" geoschem_config.yml\n    sed -i -e \"s/20190201, ....../20190101, ${hhmm}00/\" geoschem_config.yml\n    sed -i -e \"s/20190201, ....../20190101, ${hhmm}00/\" geoschem_config.yml\n    sed -i -e \"s/20130201, ....../20130101, ${hhmm}00/\" geoschem_config.yml\n    sed -i -e \"s/20110201, ....../20110101, ${hhmm}00/\" geoschem_config.yml\n\n    # Replace freq & duration in HISTORY.rc\n    sed -i -e \"s/00000100 ....../00000000 ${hhmm}00/\" HISTORY.rc\n\n    # Change time cycle flag in HEMCO_Config.rc from EFYO to CYS,\n    # to allow missing species to be set a default value.\n    # Also make sure that \n    sed -i -e \"s/EFYO/CYS/\"            HEMCO_Config.rc  # GC_RESTART\n    sed -i -e \"s/EFY xyz 1/CYS xyz 1/\" HEMCO_Config.rc  # GC_BCs\n    \n    # Make sure we get a HEMCO_diagnostics file in the output\n    sed -i -e \"s/DiagnFreq:                   Monthly/DiagnFreq:                   End/\" HEMCO_Config.rc\n    \n    # Return success\n    return 0\n}\n\n\nfunction move_files() {\n\n    #========================================================================\n    # Moves diagnostic or restart files to a subdirectory\n    #\n    # 1st argument: Directory name (\"OutputDir\" or \"Restarts\")\n    #========================================================================\n\n    # Arguments\n    dirName=\"${1}\"\n    subDir=\"${2}\"\n    runLog=\"${3}\"\n    \n    # Make the folder if it does not exist\n    [[ ! -d \"${dirName}/${subDir}\" ]] && mkdir -p \"${dirName}/${subDir}\"\n\n    # Restart files have end timestamp; diagnostics have start timestamp\n    [[ \"x${dirName}\" == \"xRestarts\" ]] && stamp=\"${hhmm}\" || stamp=\"0000\"\n\t\n    # Move ouptut\n    for file in ${dirName}/*${stamp}*.nc*; do\n\tfile=\"${file/${dirName}\\/}\"\n\tsrcFile=\"${dirName}/${file}\"\n\ttrgFile=\"${dirName}/${subDir}/${file}\"\n\techo \"Moving ${srcFile} to ${trgFile}\" >> \"${runLog}\"\n\tmv \"${srcFile}\" \"${trgFile}\"\n    done\n}\n\n\nfunction run_gcclassic() {\n\n    #========================================================================\n    # Runs a GEOS-Chem Classic simulation with the specified number of\n    # OpenMP cores.  Copies diagnostics and restart files to the proper\n    # subdirectory in order to facilitate comparison.\n    #\n    # 1st argument: Number of cores for OpenMP\n    #========================================================================\n\n    # Get the log file and subdirectory names from the # of cores\n    runLog=$(get_logfile_name \"${1}\")\n    subDir=$(get_subdir_name \"${1}\")\n    \n    # Remove any leftover files in the run dir\n    ./cleanRunDir.sh --no-interactive  >> \"${runLog}\"\n\n    # Run GEOS-Chem Classic\n    export OMP_NUM_THREADS=\"${1}\"\n    export OMP_STACKSIZE=\"500m\"\n    echo \"Now using ${OMP_NUM_THREADS} cores\" >> \"${runLog}\"\n    srun -c ${OMP_NUM_THREADS} ./gcclassic    >> \"${runLog}\"\n\n    # Move files to the proper subdirectory for later comparison\n    move_files \"OutputDir\" \"${subDir}\" \"${runLog}\"\n    move_files \"Restarts\"  \"${subDir}\" \"${runLog}\"\n\n    # Return success\n    return 0\n}\n\n\nfunction main() {\n    \n    #========================================================================\n    # Performs a parallelization test with the settings specified above.\n    #========================================================================\n\n    # Error check\n    if [[ ! -f ./gcclassic ]]; then\n\techo \"Error...Could not find gcclassic executable!\" >> $results\n\texit 1\n    fi\n\n    # Perform the Parallel test\n    edit_config_files                                  \n    run_gcclassic       \"${allCores}\"\n    run_gcclassic       \"${fewerCores}\" \n    score_parallel_test \"${allCores}\" \"${fewerCores}\" \"${resultsLog}\"\n    return $?\n}\n\n\n#============================================================================\n# Call the main program and return its status\n#============================================================================\nmain $@\nexit $?\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/msu_orion/README",
    "content": "Contact:\nLizzie Lundgren\nGEOS-Chem Support Team at Harvard University\ngeos-chem-support@g.harvard.edu"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/msu_orion/gcclassic.carbon.build",
    "content": "#!/bin/bash\n\n# For MSU Orion cluster\n#SBATCH --time 00:05:00\n#SBATCH --nodes=1 --ntasks-per-node=12\n#SBATCH --mem 3G\n#SBATCH --job-name=gcclassic.build\n\n# Assumes file or symbolic link gcclassic.env is in run directory\nsource gcclassic.env\ncd build\ncmake ../CodeDir -DRUNDIR=.. -DMECH=carbon\nmake -j\nmake install\ncd ..\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/msu_orion/gcclassic.intel-2022.2.1.env",
    "content": "\n# Environment file to load before building and running GEOS-Chem Classic\n# on the MSU Orion cluster\n# - Lizzie Lundgren, GEOS-Chem Support Team, 27Jan2025\n\nmodule purge\n\n# Modules need to build and run GEOS-Chem Classic\nmodule load intel-oneapi-compilers/2022.2.1\nmodule load intel-oneapi-mpi/2021.7.1\nmodule load hdf5/1.12.2\nmodule load netcdf-c/4.9.0\nmodule load netcdf-fortran/4.6.0\n\n## Other potentially useful modules for analyses and code development\n#module load intel-oneapi-mkl/2022.2.1\n#module load hdf4/4.2.16\n#module load r/4.2.2\n#module load nco/5.0.1\n#module load udunits/2.2.28\n#module load zlib/1.2.13\n#module load nco/5.0.1\n#module load libszip/2.1.1\n#module load ffmpeg/4.4.1\n#module load ncl/6.6.2\n#module load gdal/3.5.3\n#module load gmt/6.2.0\n#module load ghostscript/9.56.1\n#module load imagemagick/7.0.8-7\n#module load contrib noaatools\n#module load python/3.10.8\n#module load ncview\n\n# Environment variables and settings needed for GEOS-Chem Classic\nexport CC=icx\nexport CXX=icx\nexport FC=ifort\nexport F77=${FC}\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n   export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_C_ROOT=\"${NETCDF_HOME}\"\nexport NETCDF_FORTRAN_ROOT=\"${NETCDF_FORTRAN_HOME}\"\n\n# Require memory settings\nulimit -c unlimited   # coredumpsize\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\nexport OMP_STACKSIZE=500m"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/msu_orion/gcclassic.run",
    "content": "#!/bin/bash\n\n#SBATCH -c 24\n#SBATCH -N 1\n#SBATCH -t 0-00:30\n#SBATCH --mem=15G\n#SBATCH --qos=batch\n\n###############################################################################\n### Sample GEOS-Chem Classic run script for Harvard Cannon (using SLURM).\n###\n### If you are running a nested-grid simulation at fine resolution, you\n### will likely need to request additional memory, cores, and time.\n###\n### -c           : Requests this many cores\n### -N           : Requests a single node\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Set the proper # of threads for OpenMP\n# SLURM_CPUS_PER_TASK ensures this matches the number you set with -c above\nexport OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\n\n# Run GEOS_Chem\n./gcclassic >> GC.log\n\n# Exit normally\nexit 0\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/nasa_discover/README",
    "content": "Contact:\nLizzie Lundgren\nGEOS-Chem Support Team at Harvard University\ngeos-chem-support@g.harvard.edu"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcclassic.build",
    "content": "#!/bin/bash\n\n# For discover\n#SBATCH --time 00:05:00\n#SBATCH --nodes=1 --ntasks-per-node=12\n#SBATCH --mem 3G\n#SBATCH --job-name=gcclassic.build\n#SBATCH --constraint=mil\n#SBATCH --account=s____\n\n# Assumes file or symbolic link gcclassic.env is in run directory\nsource gcclassic.env\ncd build\ncmake ../CodeDir -DRUNDIR=..\nmake -j\nmake install\ncd ..\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcclassic.run",
    "content": "#!/bin/bash\n\n# For use on NASA discover cluster. Edit prior to run.\n#SBATCH --time 00:10:00\n#SBATCH --nodes=1 --ntasks-per-node=24\n#SBATCH --mem 10G\n#SBATCH --job-name=gcclassic.run\n#SBATCH --constraint=mil\n#SBATCH --account=s____\n##SBATCH --exclusive\n##SBATCH --qos=debug\n##SBATCH --qos=long\n\n\n# Assume file or symbolic link gcclassic.env exists in run directory\nsource gcclassic.env\n./gcclassic > GC.log\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/nasa_discover/geoschem.SLES15.stack-gcc-12.3.0.env",
    "content": "#!/bin/bash\n\n# Use this environment with GC-Classic, GCHP, and ESMF on SLES15, e.g. milan ('ssh discover-mil')\n# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17 \n\nmodule purge\n\nmodule use /discover/swdev/gmao_SIteam/modulefiles-SLES15\nmodule use /discover/swdev/jcsda/spack-stack/scu17/modulefiles\nmodule load ecflow/5.11.4\n\nmodule use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-gcc-12.3.0/install/modulefiles/Core\nmodule load stack-gcc/12.3.0\nmodule load stack-openmpi/4.1.6\n\nmodule load stack-python/3.10.13\nmodule load cmake/3.28.2\nmodule load git/2.42.0\nmodule load netcdf-fortran/4.6.1\n\numask 022\n\nexport CC=gcc\nexport CXX=g++\nexport FC=gfortran\n\n# MPI\nexport MPI_ROOT=${MPI_HOME}\n\n# For ESMF\nexport ESMF_COMPILER=gfortran\nexport ESMF_COMM=openmpi  \nexport ESMF_DIR=/gpfsm/dnb06/projects/p113/ewlundgr/GCHP/ESMF\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_SLES15_stack-gcc-12.3.0\n\n# For GCHP\nexport ESMF_ROOT=${ESMF_INSTALL_PREFIX}\n\nulimit -l unlimited\nulimit -u 50000\nulimit -v unlimited\nulimit -s unlimited\nOMP_STACKSIZE=500m\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/nasa_discover/geoschem.SLES15.stack-intel-2021.10.0.env",
    "content": "#!/bin/bash\n\n# Use this environment with GC-Classic, GCHP, and ESMF on SLES15, e.g. milan ('ssh discover-mil')\n# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17\n\nmodule purge\n\nmodule use /discover/swdev/gmao_SIteam/modulefiles-SLES15\nmodule use /discover/swdev/jcsda/spack-stack/scu17/modulefiles\nmodule load ecflow/5.11.4\n\nmodule use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-intel-2021.10.0/install/modulefiles/Core\nmodule load stack-intel/2021.10.0\nmodule load stack-intel-oneapi-mpi/2021.10.0\n\nmodule load stack-python/3.10.13\nmodule load cmake/3.28.2\nmodule load git/2.42.0\nmodule load netcdf-fortran/4.6.1\n\numask 022\n\nexport CC=icc\nexport CXX=icpc\nexport FC=ifort\n\n# MPI\nexport MPI_ROOT=${MPI_HOME}\n\n# For ESMF\nexport ESMF_COMPILER=intel\nexport ESMF_COMM=intelmpi\nexport ESMF_DIR=/gpfsm/dnb06/projects/p113/ewlundgr/GCHP/ESMF\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_SLES15_stack-intel-2021.10.0\n\n# For GCHP\nexport ESMF_ROOT=${ESMF_INSTALL_PREFIX}\n\nulimit -l unlimited\nulimit -u 50000\nulimit -v unlimited\nulimit -s unlimited\nOMP_STACKSIZE=500m\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/ncar_derecho/gcclassic.intel2024.env",
    "content": "# Environment file to load before building the GCClassic executable\n# on the Derecho cluster\n# - Samuel Akinjole, Drexel University, 27May2025\n\nmodule purge\n\n#Load relevant modules\nmodule load intel/2024.2.1\nmodule load hdf5/1.12.3\nmodule load netcdf/4.9.2\nmodule load cmake/3.26.6\nmodule load nco/5.3.1\nmodule load cdo/2.4.4\n\n\n#Selecting compilers (specifying environment variables)\nexport CC=icc\nexport CXX=icpc\nexport FC=ifort\n\n\n\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/ncar_derecho/geoschem.run",
    "content": "#!/bin/bash\n\n# Sample script for use on the NCAR Derecho Cluster. Edit before running.\n\n#PBS -N Project_title (e.g GCClassic run)\n#PBS -A Project_ID\n#PBS -j oe\n#PBS -k eod\n#PBS -m abe\n#PBS -M user@domain.edu\n#PBS -q main\n#PBS -l walltime=1:30:00\n## Request 128 CPUS for 128 threads and large memory nodes\n#PBS -l select=1:ncpus=128:ompthreads=128:mem=230GB\n\n#Load the modules with the environment file before compiling GCClassic\nsource gcclassic.intel2024.env\n\n# An optional step, and can be commented out if not using scratch:\nexport TMPDIR=/glade/derecho/scratch/$USER/tmp/$PBS_JOBID\nmkdir -p $TMPDIR\ncd \"$TMPDIR\"\n\n# Copy necessary input files from permanent storage\ncp -r /glade/work/$USER/rundirs/gc_4x5_merra2_fullchem/*  .\n\n### Run OpenMP program\nulimit -s unlimited\nexport OMP_STACKSIZE=500m\n\n\n#-------------------------------------------------\n# Initialize\n#-------------------------------------------------\n\n# Define GEOS-Chem log file\nlog=GC.log\n\n#-------------------------------------------------\n# Start the simulation\n#-------------------------------------------------\n\n# Run GEOS-Chem and pipe output to log\ntime -p ./gcclassic > $log 2>&1\n\n\n# Echo end time\necho '===> Run ended at' `date` >> $log\n\n#-------------------------------------------------\n# Clean up\n#-------------------------------------------------\n\n# Clear variable\nunset log\n\n# Copy necessary output files back (an optional step and can be commented out)\ncp -r ./OutputDir/* /glade/work/$USER/rundirs/gc_4x5_merra2_fullchem/OutputDir/\ncp -r ./Restarts/* /glade/work/$USER/rundirs/gc_4x5_merra2_fullchem/Restarts/\ncp -r ./GC.log /glade/work/$USER/rundirs/gc_4x5_merra2_fullchem/GC.log\n\n# Exit normally\nexit 0\n#EOC\n\n\n\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/york_viking/README",
    "content": "Contact:\nKillian Murphy at The University of York\nkillian.murphy@york.ac.uk\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/york_viking/gcclassic.intel.2021b.viking.env",
    "content": "#!/usr/bin/env bash\n\n#===============================================================================\n# Load modules\n#===============================================================================\nmodule purge\nmodule load toolchain/intel/2021b\nmodule load devel/CMake/3.22.1-GCCcore-11.2.0\nmodule load tools/git/2.33.1-GCCcore-11.2.0-nodocs\nmodule load data/netCDF/4.8.1-iimpi-2021b\nmodule load data/netCDF-Fortran/4.5.3-iimpi-2021b\nmodule load data/netCDF-C++4/4.3.1-iimpi-2021b\nmodule load lang/flex/2.6.4-GCCcore-11.2.0\nmodule load lang/Bison/3.7.6-GCCcore-11.2.0\n\n#===============================================================================\n# Set environment variables\n#===============================================================================\nexport CC=\"icc\"\nexport CXX=\"icpc\"\nexport FC=\"ifort\"\n"
  },
  {
    "path": "run/GCClassic/runScriptSamples/operational_examples/york_viking/gcclassic.intel.sbatch",
    "content": "#!/usr/bin/env bash\n#===============================================================================\n#SBATCH --job-name=GC-CLASSIC_JOB_NAME\n#SBATCH --mail-user=USER@york.ac.uk\n#SBATCH --mail-type=ALL\n#SBATCH --account=YOUR-VIKING-ACCOUNT-CODE\n#SBATCH --output=%x_%j.log\n#-------------------------------------------------------------------------------\n#SBATCH --partition=nodes\n#SBATCH --ntasks=1\n#SBATCH --cpus-per-task=20\n#SBATCH --mem=40G\n#SBATCH --time=JOB_TIME\n#===============================================================================\nset -e\n\n# SET UP CLEAN MODULES:\nsource runScriptSamples/operational_examples/york_viking/gcclassic.intel.2021b.viking.env\n\n# SET OPENMP VARIABLES:\nexport OMP_NUM_THREADS=\"${SLURM_CPUS_PER_TASK}\"\nexport OMP_STACKSIZE=500m\n\n# CHANGE USER LIMITS:\nulimit -s unlimited\n\n# RUN GC CLASSIC:\nsrun ./gcclassic\n"
  },
  {
    "path": "run/GCClassic/setupForRestarts.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: setupForRestarts.sh\n#\n# !DESCRIPTION: Contains bash functions for copying GEOS-Chem Classic\n#  restart files from a remote location to the run directory.  The restart\n#  file paths are read from the relevant download_data.yml file so that\n#  these paths can be updated in a single location.\n#\\\\\n#\\\\\n# !REVISION HISTORY:\n#  25 Nov 2023 - Initial version - R. Yantosca\n#  See the Git history for additional updates\n#------------------------------------------------------------------------------\n#BOC\n\nfunction parseYaml() {\n    #========================================================================\n    # Portable bash YAML parser by Stefan Farestam\n    # See: stackoverflow.com/questions/5014632/how-can-i-parse-a-yaml-file-from-a-linux-shell-script\n    #\n    # 1st argument: YAML file to be parsed\n    #\n    # Usage: list=$(parse_yaml myfile.yaml)\n    #========================================================================\n    local prefix=$2\n    local s='[[:space:]]*' w='[a-zA-Z0-9_]*' fs=$(echo @|tr @ '\\034')\n    sed -ne \"s|^\\($s\\):|\\1|\" \\\n         -e \"s|^\\($s\\)\\($w\\)$s:$s[\\\"']\\(.*\\)[\\\"']$s\\$|\\1$fs\\2$fs\\3|p\" \\\n         -e \"s|^\\($s\\)\\($w\\)$s:$s\\(.*\\)$s\\$|\\1$fs\\2$fs\\3|p\"  $1 |\n    awk -F$fs '{\n       indent = length($1)/2;\n       vname[indent] = $2;\n       for (i in vname) {if (i > indent) {delete vname[i]}}\n       if (length($3) > 0) {\n          vn=\"\"; for (i=0; i<indent; i++) {vn=(vn)(vname[i])(\"_\")}\n          printf(\"%s%s%s=\\\"%s\\\"\\n\", \"'$prefix'\",vn, $2, $3);\n       }\n    }'\n    return $?\n}\n\n\nfunction removeQuotes() {\n    #========================================================================\n    # Removes double quotes from a string\n    #\n    # 1st argument: String to be parsed\n    #========================================================================\n    echo ${1//\\\"/}\n    return $?\n}\n\n\nfunction join() {\n    #========================================================================\n    # Joins a directory with a file name and prints the result\n    #\n    # 1st argument: Directory\n    # 2nd argument: File\n    #========================================================================\n    dir=$(removeQuotes \"${1}\")\n    file=$(removeQuotes \"${2}\")\n    path=\"${dir}/${file}\"\n    echo $path\n    return $?\n}\n\n\nfunction setRestartEnvVar() {\n    #========================================================================\n    # Exports environment variables for restart files that can\n    # be used in createRunDir.sh and setupForRestarts.sh\n    #\n    # 1st argument: One line of output from parseYaml\n    #========================================================================\n    if [[ \"x${1}\" =~ \"RUNDIR_restarts_\" ]]; then\n        export \"${1}\"\n    fi\n    return $?\n}\n\nfunction unsetRestartEnvVar() {\n    #========================================================================\n    # Unsets environment variables defined by setRestartEnvVar\n    #\n    # 1st argument: One line of output from parseYaml\n    #========================================================================\n    if [[ \"x${1}\" =~ \"RUNDIR_restarts_\" ]]; then\n        array=(${1//\\=/ })\n        unset \"${array[0]}\"\n    fi\n    return $?\n}\n\n\nfunction getRemoteRoot() {\n    #========================================================================\n    # Returns the remote root directory for restart files\n    # (i.e. all restart files are stored in subdirs of this dir)\n    #\n    # 1st argument: Are we on the AWS cloud?\n    #========================================================================\n\n    # Remote root path on AWS cloud\n    if [[ \"x${1}\" != \"x\" ]]; then\n        echo $(removeQuotes \"s3://gcgrid/${RUNDIR_restarts_root}\")\n\treturn $?\n    fi\n\n    # Remote root path on a local cluster\n    echo $(removeQuotes \"${GC_DATA_ROOT}/${RUNDIR_restarts_root}\")\n    return $?\n}\n\n\nfunction getS3CopyCmd() {\n    #========================================================================\n    # Returns the AWS \"s3 cp\" command to be used\n    #\n    # 1st argument: Are we on the AWS cloud?\n    #========================================================================\n\n    # We are on the AWS cloud\n    if [[ \"x${1}\" != \"x\" ]]; then\n        echo \"aws s3 cp --request-payer requester \"\n        return $?\n    fi\n\n    # We are not on the AWS cloud\n    echo \"\"\n    return $?\n}\n\n\nfunction getAerosolLocal() {\n    #========================================================================\n    # Returns local restart file path for the aerosol simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_aerosol_local}\")\n    return $?\n}\n\n\nfunction getAerosolRemote() {\n    #========================================================================\n    # Returns remote restart file path for the aerosol simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_aerosol_remote}\")\n    return $?\n}\n\n\nfunction getCarbonLocal() {\n    #========================================================================\n    # Returns local restart file path for the carbon simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_carbon_local}\")\n    return $?\n}\n\n\nfunction getCarbonRemote() {\n    #========================================================================\n    # Returns remote restart file path for the carbon simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_carbon_remote}\")\n    return $?\n}\n\nfunction getFullchemLocal() {\n    #========================================================================\n    # Returns local restart file path for fullchem simulations\n    #\n    # 1st argument: sim_extra_option\n    # 2nd argument: Local restart file directory\n    #========================================================================\n\n    # TOMAS15\n    if [[ \"x${1}\" == \"xTOMAS15\" ]]; then\n        echo $(join \"${2}\" \"${RUNDIR_restarts_tomas15_local}\")\n        return $?\n    fi\n\n    # TOMAS40\n    if [[ \"x${1}\" == \"xTOMAS40\" ]]; then\n        echo $(join \"${2}\" \"${RUNDIR_restarts_tomas40_local}\")\n        return $?\n    fi\n\n    # Default fullchem\n    echo $(join \"${2}\" \"${RUNDIR_restarts_fullchem_local}\")\n    return $?\n}\n\n\nfunction getFullchemRemote() {\n    #========================================================================\n    # Returns local restart file path for fullchem simulations\n    #\n    # 1st argument: sim_extra_option\n    # 2nd argument: Local restart file directory\n    #========================================================================\n\n    # TOMAS15\n    if [[ \"x${1}\" == \"xTOMAS15\" ]]; then\n       echo $(join \"${2}\" \"${RUNDIR_restarts_tomas15_remote}\")\n       return $?\n    fi\n\n    # TOMAS40\n    if [[ \"x${1}\" == \"xTOMAS40\" ]]; then\n        echo $(join \"${2}\" \"${RUNDIR_restarts_tomas40_remote}\")\n        return $?\n    fi\n\n    # Default fullchem\n    echo $(join \"${2}\" \"${RUNDIR_restarts_fullchem_remote}\")\n    return $?\n}\n\n\nfunction getMercuryLocal() {\n    #========================================================================\n    # Returns local restart file path for the mercury simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_mercury_local}\")\n    return $?\n}\n\n\nfunction getMercuryRemote() {\n    #========================================================================\n    # Returns remote restart file path for the mercury simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_mercury_remote}\")\n    return $?\n}\n\n\nfunction getMetalsLocal() {\n    #========================================================================\n    # Returns local restart file path for the metals simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_metals_local}\")\n    return $?\n}\n\nfunction getMetalsRemote() {\n    #========================================================================\n    # Returns remote restart file path for the metals simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_metals_remote}\")\n    return $?\n}\n\n\nfunction getPOPsLocal() {\n    #========================================================================\n    # Returns local restart file path for the POPs simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_pops_local}\")\n    return $?\n}\n\n\nfunction getPOPsRemote() {\n    #========================================================================\n    # Returns remote restart file path for the POPs simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_pops_remote}\")\n    return $?\n}\n\nfunction getTagO3Local() {\n    #========================================================================\n    # Returns local restart file path for the TagO3 simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_tago3_local}\")\n    return $?\n}\n\n\nfunction getTagO3Remote() {\n    #========================================================================\n    # Returns remote restart file path for the TagO3 simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_tago3_remote}\")\n    return $?\n}\n\n\nfunction getTracersLocal() {\n    #========================================================================\n    # Returns local restart file path for the TransportTracers simulation\n    #\n    # 1st argument: Local restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_transporttracers_local}\")\n    return $?\n}\n\n\nfunction getTracersRemote() {\n    #========================================================================\n    # Returns remote restart file path for the TransportTracers simulation\n    #\n    # 1st argument: Remote restart file directory\n    #========================================================================\n    echo $(join \"${1}\" \"${RUNDIR_restarts_transporttracers_remote}\")\n    return $?\n}\n\n\nfunction copyRemoteToLocal() {\n    #========================================================================\n    # Copy the remote restart file to the local run directory.\n    #\n    remote_rst=\"${1}\"   # 1st argument: Remote restart file path\n    local_rst=\"${2}\"    # 2nd argument: Local restart file path\n    is_aws=\"${3}\"       # 3rd argument: Are we on the AWS cloud?\n    s3_cp=\"${4}\"        # 4th argument: AWS \"s3 cp\" command to execute\n    #========================================================================\n\n    # If we are on AWS, copy the remote restart file from s3://gcgrid\n    if [[ \"x${is_aws}\" != \"x\" ]]; then\n        ${s3_cp} \"${remote_rst}\" \"${local_rst}\"\n        return $?\n    fi\n\n    # Otherwise copy the remote restart file from the remote root directory\n    if [[ -f \"${remote_rst}\" ]]; then\n        cp \"${remote_rst}\" \"${local_rst}\"\n        return $?\n    fi\n\n    # Otherwise note that the sample restart file was not found\n    printf \"\\n  -- The following sample restart provided for this simulation was not found:\"\n    printf \"\\n     ${remote_rst}\"\n    printf \"\\n     You will need to provide this initial restart file or disable\"\n    printf \"\\n     GC_RESTARTS in HEMCO_Config.rc to initialize your simulation\"\n    printf \"\\n     with default background species concentrations.\\n\"\n    return $?\n}\n\n\nfunction setEFYOtoEYinHemcoConfig() {\n    #========================================================================\n    # Sample restarts for several simulations do not contain all species.\n    # For those simulations, print a warning and change the time\n    # cycle option in HEMCO config so that we do not force an error\n    # if not found (i.e. EFYO --> EY)\n    #\n    sim_name=\"${1}\"           # 1st argument: Simulation name\n    sim_extra_option=\"${2}\"   # 2nd argument: Simulation extra option\n    #========================================================================\n\n    if [[ \"x${sim_extra_option}\" == \"xaciduptake\"       ||\n          \"x${sim_extra_option}\" == \"xmarinePOA\"        ||\n          \"x${sim_extra_option}\" == \"xcomplexSOA_SVPOA\" ||\n          \"x${sim_extra_option}\" == \"xAPM\"              ||\n          \"x${sim_name}\"         == \"xPOPs\"             ||\n          \"x${sim_name}\"         == \"xtagO3\"        ]]; then\n        old=\"SpeciesRst_?ALL?    \\$YYYY/\\$MM/\\$DD/\\$HH EFYO\"\n        new=\"SpeciesRst_?ALL?    \\$YYYY/\\$MM/\\$DD/\\$HH EY  \"\n        sed_ie \"s|${old}|${new}|\" HEMCO_Config.rc\n\n        printf \"\\n  -- The sample restart provided for this simulation may not\"\n        printf \"\\n     contain all species defined in this simulation. Missing\"\n        printf \"\\n     species will be assigned default background concentrations.\"\n        printf \"\\n     Check your GEOS-Chem log file for details. As always, it\"\n        printf \"\\n     is recommended that you spin up your simulation to ensure\"\n        printf \"\\n     proper initial conditions.\\n\"\n    fi\n    return $?\n}\n\n\nfunction copyRestartToRunDir() {\n    #========================================================================\n    # Copies a restart file to a run directory for a given\n    # GEOS-Chem Classic simulation.\n    #\n    sim_name=\"${1}\"           # 1st argument: Simulation name\n    sim_extra_option=\"${2}\"   # 2nd argument: Extra option for simulation\n    rst_root=\"${3}\"           # 3rd argument: Remote restart file dir\n    loc_root=\"${4}\"           # 4th argument: Local restart file dir\n    #========================================================================\n\n    # Determine the remote and local restart file paths for each simulation\n    if [[ \"x${sim_name}\" == \"xaerosol\" ]]; then\n        remote_rst=$(getAerosolRemote \"${rst_root}\")\n        local_rst=$(getAerosolLocal \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xcarbon\" ]]; then\n        remote_rst=$(getCarbonRemote \"${rst_root}\")\n\tlocal_rst=$(getCarbonLocal \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n        # NOTE: Also handles TOMAS40 and TOMAS15\n        remote_rst=$(getFullchemRemote \"${sim_extra_option}\" \"${rst_root}\")\n        local_rst=$(getFullchemLocal \"${sim_extra_option}\" \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xmetals\" ]]; then\n        remote_rst=$(getMetalsRemote \"${rst_root}\")\n        local_rst=$(getMetalsLocal \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xHg\" ]]; then\n        remote_rst=$(getMercuryRemote \"${rst_root}\")\n        local_rst=$(getMercuryLocal \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xPOPs\" ]]; then\n        remote_rst=$(getPOPsRemote \"${rst_root}\")\n        local_rst=$(getPOPsLocal \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xtagO3\" ]]; then\n        remote_rst=$(getTagO3Remote \"${rst_root}\")\n        local_rst=$(getTagO3Local \"${loc_root}\")\n\n    elif [[ \"x${sim_name}\" == \"xTransportTracers\" ]]; then\n        remote_rst=$(getTracersRemote \"${rst_root}\")\n        local_rst=$(getTracersLocal \"${loc_root}\")\n\n    fi\n\n    # Copy the restart file to the run directory (for AWS or on a local server)\n    copyRemoteToLocal \"${remote_rst}\" \"${local_rst}\" \"${is_aws}\" \"${s3_cp}\"\n    return $?\n}\n"
  },
  {
    "path": "run/GCHP/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "run/GCHP/CAP.rc.template",
    "content": "ROOT_NAME: GCHP\nROOT_CF: GCHP.rc\nHIST_CF: HISTORY.rc\n\nBEG_DATE:     19600101 000000\nEND_DATE:     22000101 000000\nJOB_SGMT:     ${RUNDIR_SIM_DUR_YYYYMMDD} ${RUNDIR_SIM_DUR_HHmmSS}\n\nHEARTBEAT_DT:  600\n\nMAPL_ENABLE_TIMERS: YES\nMAPL_ENABLE_MEMUTILS: YES\nPRINTSPEC: 0  # (0: OFF, 1: IMPORT & EXPORT, 2: IMPORT, 3: EXPORT)\nUSE_SHMEM: 0\nREVERSE_TIME: 0\nUSE_EXTDATA2G: .FALSE.\n"
  },
  {
    "path": "run/GCHP/ESMF.rc",
    "content": "logKindFlag: ESMF_LOGKIND_NONE\n\n# ESMF_LOGKIND options for ESMF logging. Options include:\n#    ESMF_LOGKIND_NONE           - no ESMF logging\n#    ESMF_LOGKIND_SINGLE         - one log file (ESMF_LogFile)\n#    ESMF_LOGKIND_MULTI          - one log file per core (PET#.ESMF_LogFile)\n#    ESMF_LOGKIND_MULTI_ON_ERROR - one log file per core if error (PET#.ESMF_LogFile))\n"
  },
  {
    "path": "run/GCHP/ExtData.rc.templates/ExtData.rc.TransportTracers",
    "content": "Ext_AllowExtrap: .true.\n#\nPrimaryExports%%\n#--------|-------|------|------------|---------------|--------|-------|---------------------|\n# Export |       |      |            |___ Refresh ___|____ Factors ___|___ External File ___|\n# Name   | Units | Clim |Conservative| Time Template | Offset | Scale | Variable | Template |\n#--------|-------|------|------------|---------------|--------|-------|----------|----------|\n#\n# Notes:\n# Units should be in single quotes if they contain whitespace\n# Climatology should be Y if the file contains monthly climatology; otherwise it should be N\n# Conservative should be Y if units imply mass conservation dependency on regrid method (e.g. value per area)\n# Refresh Time Template should be:\n#    1. - if the file contains time-invariant constants\n#    2. prefixed with F if no time interpolation between data reads (F = fixed)\n#    3. 0 if data should be kept up-to-date at all times\n#    4. 0:HHMMSS if data occurs in file with frequency HHMMSS and should be updated at that frequency\n#    5. %y4-%m2-%d2T%h2:00:00, with any tokens replaced by appropriate constant time value, if multiple time\n#       values are in the same file. Note that including an F prefix indicates the data should be treated\n#       as constant until the next refresh time. Omission of the F prefix will time-interpolate between\n#       the values.\n# Minimize whitespace wherever possible to avoid surpassing the ESMF read buffer character limit,\n# applicable only for uncommented lines.\n#\n###############################################################################\n###\n### Meteorology data\n###\n###############################################################################\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS}\n#\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n# Not used but included in Chem_Registry.rc import list\n#==============================================================================\nFLASH_DENS 1 N N - none none LDENS /dev/null\nCONV_DEPTH 1 N N - none none CTH   /dev/null\n\n###############################################################################\n###\n### Land data (not handled by HEMCO)\n###\n###############################################################################\n#\n#==============================================================================\n# Olson land types\n#==============================================================================\n# Use conservative fraction regridding to extract land type fraction\nOLSON00 1 N F;0  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON01 1 N F;1  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON02 1 N F;2  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON03 1 N F;3  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON04 1 N F;4  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON05 1 N F;5  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON06 1 N F;6  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON07 1 N F;7  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON08 1 N F;8  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON09 1 N F;9  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON10 1 N F;10 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON11 1 N F;11 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON12 1 N F;12 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON13 1 N F;13 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON14 1 N F;14 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON15 1 N F;15 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON16 1 N F;16 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON17 1 N F;17 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON18 1 N F;18 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON19 1 N F;19 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON20 1 N F;20 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON21 1 N F;21 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON22 1 N F;22 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON23 1 N F;23 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON24 1 N F;24 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON25 1 N F;25 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON26 1 N F;26 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON27 1 N F;27 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON28 1 N F;28 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON29 1 N F;29 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON30 1 N F;30 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON31 1 N F;31 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON32 1 N F;32 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON33 1 N F;33 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON34 1 N F;34 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON35 1 N F;35 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON36 1 N F;36 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON37 1 N F;37 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON38 1 N F;38 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON39 1 N F;39 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON40 1 N F;40 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON41 1 N F;41 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON42 1 N F;42 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON43 1 N F;43 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON44 1 N F;44 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON45 1 N F;45 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON46 1 N F;46 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON47 1 N F;47 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON48 1 N F;48 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON49 1 N F;49 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON50 1 N F;50 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON51 1 N F;51 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON52 1 N F;52 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON53 1 N F;53 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON54 1 N F;54 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON55 1 N F;55 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON56 1 N F;56 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON57 1 N F;57 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON58 1 N F;58 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON59 1 N F;59 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON60 1 N F;60 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON61 1 N F;61 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON62 1 N F;62 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON63 1 N F;63 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON64 1 N F;64 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON65 1 N F;65 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON66 1 N F;66 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON67 1 N F;67 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON68 1 N F;68 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON69 1 N F;69 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON70 1 N F;70 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON71 1 N F;71 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON72 1 N F;72 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n#\n#==============================================================================\n# Yuan-processed MODIS Leaf Area Index\n#==============================================================================\n#\n# Use file with land type stored as 3rd dimension to speed up file read\nXLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI ./HcoDir/Yuan_XLAI/v2021-06/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n#\n###############################################################################\n###\n### HEMCO Base Emissions (Update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# SF6 emissions from EDGAR v4.2\n#==============================================================================\nEDGAR_SF6 1 N Y F%y4-01-01T00:00:00 none none emi_sf6 ./HcoDir/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc\n#\n#==============================================================================\n# --- EDGAR v4.3 (EDGARv4.3) ---\n# EDGARv4.3 is turned off by default in HEMCO_Config.rc\n#==============================================================================\nEDGAR_CO_25_POW  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc\nEDGAR_CO_25_ENG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc\nEDGAR_CO_25_IND  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc\nEDGAR_CO_25_TRO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc\nEDGAR_CO_25_TNG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc\nEDGAR_CO_25_RCO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc\nEDGAR_CO_25_PPA  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc\n#EDGAR_CO_25_AWB kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc\nEDGAR_CO_25_SWD  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc\nEDGAR_CO_25_FFF  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc\n#\n#==============================================================================\n# --- CEDS (CEDS_01x01) ---\n#==============================================================================\nCEDS_CO_25_AGR    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_agr   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_ENE    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ene   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_IND    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ind   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_TRA    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_tra   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_RCO    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_rco   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_SLV    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_slv   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_WST    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_wst   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_25_SHP    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_shp   ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\n\n#\n###############################################################################\n###\n### HEMCO Extensions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\nZHANG_Rn222_EMIS  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none rnemis   ./HcoDir/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc\n#\n###############################################################################\n###\n### HEMCO Non-Emissions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\nTIMEZONES count Y V 2017-%m2-01T00:00:00 none none UTC_OFFSET ./HcoDir/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc\n#\n###############################################################################\n###\n### HEMCO Scale Factors (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- annual scale factors ---\n#==============================================================================\nLIQFUEL_THISYR     1 N Y F%y4-01-01T00:00:00   none none COscalar  ./HcoDir/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\nLIQFUEL_2008_2010  1 N Y F%y4-01-01T00:00:00   none none COscalar  ./HcoDir/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\n#\n#==============================================================================\n# --- seasonal scale factors ---\n#==============================================================================\n# --- From EDGAR 4.3.1 ---\nPOW 1 Y Y F2010-%m2-01T00:00:00 none none POW ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nENG 1 Y Y F2010-%m2-01T00:00:00 none none ENG ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nIND 1 Y Y F2010-%m2-01T00:00:00 none none IND ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nTRO 1 Y Y F2010-%m2-01T00:00:00 none none TRO ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nTNG 1 Y Y F2010-%m2-01T00:00:00 none none TNG ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nRCO 1 Y Y F2010-%m2-01T00:00:00 none none RCO ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nPPA 1 Y Y F2010-%m2-01T00:00:00 none none PPA ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nAGR 1 Y Y F2010-%m2-01T00:00:00 none none AGR ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nAWB 1 Y Y F2010-%m2-01T00:00:00 none none AWB ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nSOL 1 Y Y F2010-%m2-01T00:00:00 none none SOL ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nSWD 1 Y Y F2010-%m2-01T00:00:00 none none SWD ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nFFF 1 Y Y F2010-%m2-01T00:00:00 none none FFF ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\n#\n###############################################################################\n###\n### Masks (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# Country/region masks\n#==============================================================================\n# See meteorology section for OCEAN_MASK\n#\n%%\n\nDerivedExports%%\n# ---------|---------|--------------------------------------------|\n#  Export  | Primary |_________________ Mask _____________________|\n#  Name    |  Name   |    Name    |           Expression          |    \n# ---------|---------|------------|-------------------------------|\n# ---------|---------|------------|-------------------------------|\n${RUNDIR_MET_EXTDATA_DERIVED_EXPORTS}\n%%\n"
  },
  {
    "path": "run/GCHP/ExtData.rc.templates/ExtData.rc.carbon",
    "content": "Ext_AllowExtrap: .true.\n#\nPrimaryExports%%\n#--------|-------|------|------------|---------------|--------|-------|---------------------|\n# Export |       |      |            |___ Refresh ___|____ Factors ___|___ External File ___|\n# Name   | Units | Clim |Conservative| Time Template | Offset | Scale | Variable | Template |\n#--------|-------|------|------------|---------------|--------|-------|----------|----------|\n#\n# Notes:\n# Units should be in single quotes if they contain whitespace\n# Climatology should be Y if the file contains monthly climatology; otherwise it should be N\n# Conservative should be Y if units imply mass conservation dependency on regrid method (e.g. value per area)\n# Refresh Time Template should be:\n#    1. - if the file contains time-invariant constants\n#    2. prefixed with F if no time interpolation between data reads (F = fixed)\n#    3. 0 if data should be kept up-to-date at all times\n#    4. 0:HHMMSS if data occurs in file with frequency HHMMSS and should be updated at that frequency\n#    5. %y4-%m2-%d2T%h2:00:00, with any tokens replaced by appropriate constant time value, if multiple time\n#       values are in the same file. Note that including an F prefix indicates the data should be treated\n#       as constant until the next refresh time. Omission of the F prefix will time-interpolate between\n#       the values.\n# Minimize whitespace wherever possible to avoid surpassing the ESMF read buffer character limit,\n# applicable only for uncommented lines.\n#\n###############################################################################\n###\n### Meteorology data\n###\n###############################################################################\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS}\n\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n# Not used but included in Chem_Registry.rc import list\n#==============================================================================\nFLASH_DENS 1 N N - none none LDENS /dev/null\nCONV_DEPTH 1 N N - none none CTH   /dev/null\n\n###############################################################################\n###\n### Land data (not handled by HEMCO)\n###\n###############################################################################\n#\n#==============================================================================\n# Olson land types\n#==============================================================================\n# Use conservative fraction regridding to extract land type fraction\nOLSON00 1 N F;0  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON01 1 N F;1  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON02 1 N F;2  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON03 1 N F;3  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON04 1 N F;4  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON05 1 N F;5  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON06 1 N F;6  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON07 1 N F;7  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON08 1 N F;8  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON09 1 N F;9  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON10 1 N F;10 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON11 1 N F;11 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON12 1 N F;12 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON13 1 N F;13 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON14 1 N F;14 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON15 1 N F;15 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON16 1 N F;16 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON17 1 N F;17 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON18 1 N F;18 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON19 1 N F;19 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON20 1 N F;20 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON21 1 N F;21 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON22 1 N F;22 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON23 1 N F;23 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON24 1 N F;24 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON25 1 N F;25 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON26 1 N F;26 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON27 1 N F;27 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON28 1 N F;28 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON29 1 N F;29 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON30 1 N F;30 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON31 1 N F;31 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON32 1 N F;32 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON33 1 N F;33 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON34 1 N F;34 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON35 1 N F;35 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON36 1 N F;36 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON37 1 N F;37 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON38 1 N F;38 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON39 1 N F;39 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON40 1 N F;40 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON41 1 N F;41 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON42 1 N F;42 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON43 1 N F;43 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON44 1 N F;44 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON45 1 N F;45 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON46 1 N F;46 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON47 1 N F;47 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON48 1 N F;48 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON49 1 N F;49 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON50 1 N F;50 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON51 1 N F;51 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON52 1 N F;52 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON53 1 N F;53 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON54 1 N F;54 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON55 1 N F;55 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON56 1 N F;56 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON57 1 N F;57 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON58 1 N F;58 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON59 1 N F;59 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON60 1 N F;60 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON61 1 N F;61 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON62 1 N F;62 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON63 1 N F;63 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON64 1 N F;64 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON65 1 N F;65 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON66 1 N F;66 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON67 1 N F;67 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON68 1 N F;68 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON69 1 N F;69 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON70 1 N F;70 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON71 1 N F;71 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON72 1 N F;72 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n#\n#==============================================================================\n# Yuan-processed MODIS Leaf Area Index\n#==============================================================================\n#\n# Use file with land type stored as 3rd dimension to speed up file read\nXLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI ./HcoDir/Yuan_XLAI/v2021-06/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n#\n###############################################################################\n###\n### HEMCO Base Emissions (Update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n#==============================================================================\n# %%%%% CH4 emissions %%%%%\n#==============================================================================\n\n# --- UseTotalPriorEmis ---\n#CH4_Emis_Prior kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none EmisCH4_Total ../../prior_run/OutputDir/GEOSChem.Emissions.%y4%m2%d2_0000z.nc4\n\n# --- Gridded GHGI v2 Express Extension (Maasakkers et al., ES&T, 2023) ---\n# Include scaling to convert molecules/cm2/s to kg/m2/s\nGHGI_EE_OIL_EXPLORATION   kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Exploration   ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OIL_PRODUCTION    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Production    ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OIL_REFINING      kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Refining      ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OIL_TRANSPORT     kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Transport     ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_GAS_DISTRIBUTION  kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Distribution        ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_GAS_EXPLORATION   kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Exploration         ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_GAS_PROCESSING    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Processing          ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_GAS_PRODUCTION    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Production          ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_GAS_TRANSMISSION  kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_TransmissionStorage ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_GAS_POSTMETER     kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_Supp_1B2b_PostMeter                  ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_COAL_UNDERGROUND  kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B1a_Underground_Coal                ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_COAL_SURFACE      kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B1a_Surface_Coal                    ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_COAL_ABANDONED    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B1a_Abandoned_Coal                  ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_LIVESTOCK_ENT     kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3A_Enteric_Fermentation              ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_LIVESTOCK_MAN     kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3B_Manure_Management                 ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_LANDFILLS_IND     kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5A1_Landfills_Industrial             ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_LANDFILLS_MSW     kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5A1_Landfills_MSW                    ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_LANDFILLS_COMP    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5B1_Composting                       ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_WASTEWATER_DOM    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5D_Wastewater_Treatment_Domestic     ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_WASTEWATER_IND    kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5D_Wastewater_Treatment_Industrial   ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_RICE              kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3C_Rice_Cultivation                  ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OTHER_MCOMB       kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1A_Combustion_Mobile                 ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OTHER_SCOMB       kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1A_Combustion_Stationary             ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OTHER_PIND        kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_2B8_Industry_Petrochemical           ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OTHER_FIND        kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_2C2_Industry_Ferroalloy              ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OTHER_BURN        kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3F_Field_Burning                     ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\nGHGI_EE_OTHER_ABOG        kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2ab_Abandoned_Oil_Gas              ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc\n\n# --- Scarpelli Mexico ---\n# Include scaling to convert molecules/cm2/s to kg/m2/s\nMEX_OIL          kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_oil_2015.nc\nMEX_GAS          kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_gas_2015.nc\nMEX_COAL         kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_coal_2015.nc\nMEX_LIVESTOCK_A  kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_A_2015.nc\nMEX_LIVESTOCK_B  kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_B_2015.nc\nMEX_LANDFILLS    kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_landfill_2015.nc\nMEX_WASTEWATER   kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_waste_2015.nc\nMEX_RICE         kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_rice_2015.nc\nMEX_OTHER        kg/m2/s N Y - none 2.66350462E-22 emis_ch4  ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_other_anthro_2015.nc\n\n# --- Scarpelli Canada ---\nCAN_OIL_GAS_COMBUSTION  kg/m2/s N Y - none none  oil_gas_combustion_total   ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_combustion_2018.nc\nCAN_OIL_GAS_LEAKAGE     kg/m2/s N Y - none none  oil_gas_leakage_total      ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_leakage_2018.nc\nCAN_OIL_GAS_VENT_FLARE  kg/m2/s N Y - none none  oil_gas_vent_flare_total   ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_vent_flare_2018.nc\nCAN_COAL                kg/m2/s N Y - none none  coal_total                 ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_coal_2018.nc\nCAN_LIVESTOCK           kg/m2/s N Y - none none  livestock_total            ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_livestock_2018.nc\nCAN_SOLID_WASTE         kg/m2/s N Y - none none  solid_waste_total          ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_solid_waste_2018.nc\nCAN_WASTEWATER          kg/m2/s N Y - none none  wastewater_total           ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_wastewater_2018.nc\nCAN_OTHER               kg/m2/s N Y - none none  other_minor_sources_total  ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_other_minor_sources_2018.nc\n\n# --- GFEI ---\nGFEI_CH4_OIL  kg/m2/s N Y - none none Oil_All  ./HcoDir/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Oil_All.nc\nGFEI_CH4_GAS  kg/m2/s N Y - none none Gas_All  ./HcoDir/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Gas_All.nc\nGFEI_CH4_COAL kg/m2/s N Y - none none Coal     ./HcoDir/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Coal.nc\n\n# --- GRPI ---\nGRPI_CH4_RICE kg/m2/s N Y F2022-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2025-01/GRPI/GRPI_01x01.nc\n\n# --- EDGAR v8.0 ---\nEDGAR8_CH4_PRO_OIL             kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_PRO_OIL_flx.nc         \nEDGAR8_CH4_REF_TRF             kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_REF_TRF_flx.nc         \nEDGAR8_CH4_PRO_GAS             kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_PRO_GAS_flx.nc         \nEDGAR8_CH4_PRO_COAL            kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_PRO_COAL_flx.nc        \n##EDGAR8_CH4_ENF                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_ENF_flx.nc             \n##EDGAR8_CH4_MNM                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_MNM_flx.nc             \nEDGAR8_CH4_SWD_LDF             kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_SWD_LDF_flx.nc         \nEDGAR8_CH4_WWT                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_WWT_flx.nc             \nEDGAR8_CH4_AGS                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_AGS_flx.nc             \nEDGAR8_CH4_ENE                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_ENE_flx.nc             \nEDGAR8_CH4_IND                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_IND_flx.nc             \nEDGAR8_CH4_TNR_Aviation_CDS    kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_TNR_Aviation_CDS_flx.nc\nEDGAR8_CH4_TNR_Aviation_CRS    kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_TNR_Aviation_CRS_flx.nc\nEDGAR8_CH4_TNR_Aviation_LTO    kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_TNR_Aviation_LTO_flx.nc\nEDGAR8_CH4_TRO                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_TRO_flx.nc             \nEDGAR8_CH4_TNR_Other           kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_TNR_Other_flx.nc       \nEDGAR8_CH4_TNR_Ship            kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_TNR_Ship_flx.nc        \nEDGAR8_CH4_RCO                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_RCO_flx.nc             \nEDGAR8_CH4_CHE                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_CHE_flx.nc             \nEDGAR8_CH4_IRO                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_IRO_flx.nc             \n\n# --- EDGAR v7 livestock ---\nEDGAR7_CH4_LIVESTOCK__4A      kg/m2/s N Y F%y4-01-01T00:00:00  none none  emi_ch4  ./HcoDir/CH4/v2023-04/EDGARv7/%y4/v7.0_FT2021_CH4_%y4_ENF.0.1x0.1.nc\nEDGAR7_CH4_LIVESTOCK__4B      kg/m2/s N Y F%y4-01-01T00:00:00  none none  emi_ch4  ./HcoDir/CH4/v2023-04/EDGARv7/%y4/v7.0_FT2021_CH4_%y4_MNM.0.1x0.1.nc\n\n## Comment out to avoid double counting with GFED\n##EDGAR8_CH4_AWB                 kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_AWB_flx.nc             \nEDGAR8_CH4_SWD_INC             kg/m2/s N Y F%y4-%m2-01T00:00:00  none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_SWD_INC_flx.nc         \n\n# --- CH4: CEDS (historical) or Shared Socioeconomic Pathways (future) ---\n# --- NOTE: This is only for GCAP2 meteorology, so we can comment out  ---\n##CMIP6_CH4_AGR  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_agr  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_ENE  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_ene  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_IND  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_ind  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_TRA  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_tra  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_RCO  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_rco  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_SLV  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_slv  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_WST  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_wst  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n##CMIP6_CH4_SHP  kg/m2/s N Y %y4-%m2-01T00:00:00  none none  CH4_shp  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n\n# --- CH4: BB4MIPs historical / SSP future biomass burning inventories ---\n# CMIP6_BB_CH4 %y4-%m2-01T00:00:00 none none  CH4_shp  ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4\n\n# --- JPL WetCHARTs v1.0 (Bloom et al., https://doi.org/10.3334/ORNLDAAC/1502) ---\n# Include scaling to convert molecules/cm2/s to kg/m2/s\nJPLW_CH4  kg/m2/s Y Y F2010-%m2-01T00:00:00 none 2.66350462E-22 emi_ch4  ./HcoDir/CH4/v2024-01/JPL_WetCharts/HEensemble/JPL_WetCharts_2010-2019.Ensemble_Mean.0.5x0.5.nc\n\n# --- LPJ MERRA2 (East et al., https://doi.org/10.1029/2024GL108494) ---\nLPJ_CH4  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emis_ch4 ./HcoDir/CH4/v2025-09/LPJ_MERRA2/LPJ_MERRA2_%y4_0.5x0.5.nc\n\n# --- Geological seeps ---\nCH4_SEEPS kg/m2/s N Y - none none  emi_ch4  ./HcoDir/CH4/v2020-04/Seeps/Etiope_CH4GeologicalEmis_ScaledToHmiel.1x1.nc\n\n# --- Emissions from reservoirs (Delwich et al 2022) ---\nCH4_RES_DAM kg/m2/s N Y - none none CH4emis  ./HcoDir/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc\nCH4_RES_SFC kg/m2/s N Y - none none CH4emis  ./HcoDir/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc\n\n# --- Emissions from termites (CAMS-GLOB-TERM.v1.1) ---\nCH4_TERMITES kg/m2/s Y Y F2000-%m2-01T00:00:00 none none  CH4  ./HcoDir/CH4/v2026-02/CAMS_Termites/CAMS-GLOB-TERM_v1.1_methane_2000.nc\n\n# --- Soil absorption fro MeMo model (Murguia-Flores et al. 2018, GMD) ---\n#\n# Note: Use climatology by default\nCH4_SOILABSORB kg/m2/s  2009 Y F%y4-%m2-01T00:00:00 none none  CH4uptake  ./HcoDir/CH4/v2019-10/MeMo_SoilAbs/MeMo_CH4uptake_Climatology.nc\n#\n# Annual emissions are disabled by default\n#CH4_SOILABSORB kg/m2/s N    Y F%y4-%m2-01T00:00:00 none none  CH4uptake  ./HcoDir/CH4/v2019-10/MeMo_SoilAbs/MeMo_CH4uptake_1990-2009.nc\n\n#==============================================================================\n# %%%%% CO emissions %%%%%\n#==============================================================================\n\n# --- AEIC 2019 aircraft (AEIC) ---\nAEIC19_MONMEAN_CO kg/m2/s Y Y F2019-%m2-01T00:00:00 none none CO ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\n#\n##AEIC19_DAILY_CO   kg/m2/s Y Y F%y4-%m2-%d2T00:00:00 none none CO ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\n\n# --- CEDS 0.1 x 0.1 ---\nCEDS_CO_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_agr ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ene ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ind ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_tra ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_rco ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_slv ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_wst ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_shp ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\n\n#==============================================================================\n# --- CO2 emissions ---\n#==============================================================================\n\n# --- CO2 Fossil Fuel ---\nFOSSILCO2_ODIAC  kg/m2/s N Y  F%y4-%m2-01T00:00:00 none none CO2 ./HcoDir/CO2/v2022-11/FOSSIL/ODIAC_CO2.monthly.generic.1x1.nc\n\n# --- CO2 Ocean Exchange ---\nOCEANCO2_SCALED_MONTHLY kg/m2/s N  Y F%y4-%m2-01T00:00:00 none none CO2 ./HcoDir/CO2/v2022-11/OCEAN/Scaled_Ocean_CO2_monthly.nc\n\n# --- Balanced biosphere exchange ---\nSIB_BBIO_CO2 kg/m2/s N Y F%y4-%m2-%d2T%h2:00:00 none none CO2 ./HcoDir/CO2/v2022-11/BIO/SiB3_3hr_NEP.nc\n\n# --- Net Terrestrial Exchange ---\nCO2_NET_TERRESTRIAL kg/m2/s N Y - none none CO2 ./HcoDir/CO2/v2022-11/BIO/Net_terrestrial_exch_5.29Pg.generic.1x1.nc\n\n# --- CO2 Ship Emissions ---\nCEDS_CO2_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO2_shp ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO2_0.1x0.1_%y4.nc\n\n# --- CO2: AEIC 2019 aircraft emissions ---\nAEIC19_MONMEAN_CO2 kg/m2/s Y Y F2019-%m2-01T00:00:00 none none FUELBURN ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\n\n# --- CO2: Surface correction for CO oxidation ---\nFOSSILCO2_MONTHLY kg/m/s N Y F%y4-%m2-01T01:00:00 none none CO2     ./HcoDir/CO2/v2022-11/FOSSIL/ODIAC_CO2.monthly.generic.1x1.nc\nCO2_LIVESTOCK     kg/m/s Y Y F2004-%m2-01T01:00:00 none none CH4_004 ./HcoDir/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc\nCO2_WASTE         kg/m/s Y Y F2004-%m2-01T01:00:00 none none CH4_005 ./HcoDir/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc\nCO2_RICE          kg/m/s Y Y F2004-%m2-01T01:00:00 none none CH4_007 ./HcoDir/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc\nCO2_WETLANDS      kg/m/s Y Y F2004-%m2-01T01:00:00 none none CH4_010 ./HcoDir/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc\nCO2_NATURAL       kg/m/s Y Y F2004-%m2-01T01:00:00 none none CH4_012 ./HcoDir/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc\nCO2_ISOPRENE      kg/m/s Y Y F2004-%m2-01T01:00:00 none none ISOP    ./HcoDir/CO2/v2022-11/CHEM/Isoprene-2004.geos.2x25.nc\nCO2_MONOTERP      kg/m/s Y Y F2004-%m2-01T01:00:00 none none MONOT   ./HcoDir/CO2/v2022-11/CHEM/Monoterpene-2004.geos.2x25.nc\n\n# --- CO2 production from CO ---\nCO2_COPROD        kgC/m3/s N Y F%y4-%m2-01T00:00:00 none none LCO  ./HcoDir/CO2/v2024-01/CHEM/CO2_prod_rates.GEOS5.2x25.72L.nc\n\n#==============================================================================\n# --- OCS emission fluxes ---\n#==============================================================================\nOCS_ANTHRO        kgS/km2/s N Y F%y4-%m2-01T00:00:00 none 1.0e-6 COS_Flux ./HcoDir/OCS_FLUX/v2022-11/anthro_v3/v3_anthro/%y4/%m2.nc\nOCS_BIOMASS       kgS/km2/s N Y F%y4-%m2-01T00:00:00 none 1.0e-6 COS_Flux ./HcoDir/OCS_FLUX/v2022-11/Biomassburn/CMSV2-CO2-GFED3-ZC/%y4/%m2.nc\nOCS_MISSING_OCEAN kgS/km2/s N Y F%y4-%m2-01T00:00:00 none 1.0e-6 COS_Flux ./HcoDir/OCS_FLUX/v2022-11/MissingOcean/LUKAI/%y4/%m2.nc\nOCS_OCEAN         kgS/km2/s N Y F%y4-%m2-01T00:00:00 none 1.0e-6 COS_Flux ./HcoDir/OCS_FLUX/v2022-11/OceanCOS/Kettle/%y4/%m2.nc\n\n###############################################################################\n###\n### HEMCO Extension Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n# --- GFED4 (Extension 111)---\nGFED_TEMP kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_TEMP ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_AGRI kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_AGRI ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_DEFO kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_DEFO ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_BORF kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_BORF ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_PEAT kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_PEAT ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_SAVA kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_SAVA ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\n\n# --- GFED_daily scale factors ---\nGFED_FRAC_DAY 1 N Y %y4-%m2-%d2T00:00:00 none none GFED_FRACDAY ./HcoDir/GFED4/v2023-03/%y4/GFED4_dailyfrac_gen.025x025.%y4%m2.nc\n\n# --- GFED_3hourly --\n#GFED_FRAC_3HOUR 1 N Y %y4-%m2-01T%h2:00:00 none none GFED_FRAC3HR ./HcoDir/GFED4/v2023-03/%y4/GFED4_3hrfrac_gen.025x025.%y4%m2.nc\n\n\n###############################################################################\n###\n### HEMCO Non-Emissions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n# --- Time zones (offset to UTC) ---\nTIMEZONES count Y V 2017-%m2-01T00:00:00 none none UTC_OFFSET ./HcoDir/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc\n\n# --- OH from the latest 10-year benchmark ---\n##GLOBAL_OH kg/m3 N N %y4-%m2-01T00:00:00       none none SpeciesConc_OH ./HcoDir/GCClassic_Output/14.0.0/%y4/GEOSChem.SpeciesConc.%y4%m201_0000z.nc4\n\n# --- OH from GEOS-Chem v5-07-08 (used for CH4/IMI) ---\nGLOBAL_OH kg/m3 1985 Y F%y4-%m2-01T00:00:00 none none OH ./HcoDir/OH/v2022-11/v5-07-08/OH_3Dglobal.geos5.72L.4x5.nc\n\n# --- Global Cl concentrations ---\nGLOBAL_Cl mol/mol N Y F%y4-%m2-01T00:00:00  none none SpeciesConc_Cl ./HcoDir/CH4/v2024-01/GCC_14_Output/%y4/GEOSChem.SpeciesConc.%y4%m201_0000z.nc4\n\n# --- Stratospheric L(CO) from GMI ---\nCH4_LOSS s-1 1985 Y F%y4-%m2-01T00:00:00 none none CH4loss ./HcoDir/CH4/v2024-01/GC_CH4_LOSS/GCC14_72LM.ch4loss.4x5.nc4\n\n# --- P(CO) from CH4 and NMVOC from the last 10-yr benchmark ---\nPCO_CH4    molec/cm3/s N Y F%y4-%m2-01T00:00:00 none none ProdCOfromCH4   ./HcoDir/CH4/v2024-01/GCC_14_Output/%y4/GEOSChem.ProdLoss.%y4%m201_0000z.nc4\nPCO_NMVOC  molec/cm3/s N Y F%y4-%m2-01T00:00:00 none none ProdCOfromNMVOC ./HcoDir/CH4/v2024-01/GCC_14_Output/%y4/GEOSChem.ProdLoss.%y4%m201_0000z.nc4\n\n#--- GMI chemistry: prod/loss rates (GMI_PROD_LOSS) ---\nGMI_LOSS_CO  s-1   2005 Y F%y4-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc\nGMI_PROD_CO  v/v/s 2005 Y F%y4-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc\n\n###############################################################################\n###\n### HEMCO Scale Factors (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n#==============================================================================\n# %%%%% Scale factors for CH4 emissions %%%%%\n#==============================================================================\n\n# --- GHGI seasonal scale factors ---\nGHGI_OTH_STA_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1A_Combustion_Stationary           ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\nGHGI_OIL_EXP_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1B2a_Petroleum_Systems_Exploration ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\nGHGI_OIL_PRD_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1B2a_Petroleum_Systems_Production  ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\nGHGI_OIL_REF_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1B2a_Petroleum_Systems_Refining    ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\nGHGI_OIL_TRA_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1B2a_Petroleum_Systems_Transport   ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc \nGHGI_GAS_EXP_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1B2b_Natural_Gas_Exploration       ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc \nGHGI_GAS_PRD_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_1B2b_Natural_Gas_Production        ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\nGHGI_LIV_MAN_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_3B_Manure_Management               ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc \nGHGI_RIC_CUL_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_3C_Rice_Cultivation                ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\nGHGI_OTH_BUR_SF  1 N Y F%y4-%m2-01T00:00:00 none none monthly_scale_factor_3F_Field_Burning                   ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_%y4.nc\n\n# --- Scarpelli_Mexico manure and rice scale factors ---\nMANURE_SF  1 N    Y F%y4-%m2-01T00:00:00 none none sf_ch4 ./HcoDir/CH4/v2017-10/Seasonal_SF/EMICH4_Manure_ScalingFactors.WithClimatology.nc\nRICE_SF    1 2012 Y F%y4-%m2-01T00:00:00 none none sf_ch4 ./HcoDir/CH4/v2017-10/Seasonal_SF/EMICH4_Rice_ScalingFactors.SetMissing.nc\n\n# --- Seasonal scale factors for EDGARv7 ---\nEDGAR_SEASONAL_SF_ENF 1 2018 Y F%y4-%m2-01T00:00:00 none none sf_ch4 ./HcoDir/CH4/v2023-04/EDGARv6_SF/EDGARv6_CH4_MonthlyScaleFactors_ENF.0.1x0.1.nc\nEDGAR_SEASONAL_SF_MNM 1 2018 Y F%y4-%m2-01T00:00:00 none none sf_ch4 ./HcoDir/CH4/v2023-04/EDGARv6_SF/EDGARv6_CH4_MonthlyScaleFactors_MNM.0.1x0.1.nc\n\n#==============================================================================\n# %%%%% Scale factors for CO emissions %%%%%\n#==============================================================================\n\n# --- CEDS vertical partitioning ---\nENERGY_LEVS   1 N Y - none none g_energy   ./HcoDir/VerticalScaleFactors/v2021-05/gc_layers.nc\nINDUSTRY_LEVS 1 N Y - none none g_industry ./HcoDir/VerticalScaleFactors/v2021-05/gc_layers.nc\nSHIP_LEVS     1 N Y - none none cmv_c3     ./HcoDir/VerticalScaleFactors/v2021-05/gc_layers.nc\n\n#==============================================================================\n# %%%%% Scale factors for CO2 emissions %%%%%\n#==============================================================================\n\n# --- National fossil fuel CO2 scale factors (Nassar et al, 2013) ---\nCO2_DIURNAL 1 N Y F2006-01-01T%h2:00:00 none none diurnal_scale_factors ./HcoDir/CO2/v2015-04/FOSSIL/TIMES_diurnal_scale_factors.nc\nCO2_WEEKLY  1 D Y F2006-01-%d2T00:00:00 none none weekly_scale_factors  ./HcoDir/CO2/v2015-04/FOSSIL/TIMES_weekly_scale_factors.nc\n\n# --- Domestic aviation surface correction factor ---\nAVIATION_SURF_CORR      1       Y  Y F2004-01-01T00:00:00  none none CO2 ./HcoDir/CO2/v2022-11/FOSSIL/Aviation_SurfCorr_SclFac.1x1.nc\n\n#========================================================\n# --- Scale factors for OH ---\n#========================================================\n#OH_pert_factor 1 N Y - none none oh_scale ./gridded_perturbation_oh_scale.nc\n\n#==============================================================================\n# --- Scale factors for posterior run ---\n#==============================================================================\n#EMIS_SF 1 N Y -   none none ScaleFactor gridded_posterior.nc\n\n#==============================================================================\n# --- Scale factors for analytical inversions ---\n#==============================================================================\n# Add perturbations to individual state vector element (N) following this format\n#SCALE_PERT       1 N Y 2000-01-01T00:00:00 none none scale       ./gridded_pert_scale_1.nc\n#SCALE_ELEM_000N  1 N Y 2000-01-01T00:00:00 none none StateVector ./StateVector.nc\n\n###############################################################################\n###\n### Masks (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n# Comment these lines if you are not using Scarpelli_Mexico\nMEX_MASK          1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/Mexico_Mask.01x01.nc\nMEX_MASK_MIRROR   1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/Mexico_Mask_Mirror.01x01.nc\n\n# Comment these lines if you are not using Scarpelli_Canada\nCAN_MASK          1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/Canada_Mask.01x01.nc\nCAN_MASK_MIRROR   1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/Canada_Mask_Mirror.01x01.nc\n\n# Comment these lines if you are not using GHGI_v2/GHGIv2_Express_Ext\nCONUS_MASK        1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/CONUS_Mask.01x01.nc\nCONUS_MASK_MIRROR 1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/CONUS_Mask_Mirror.01x01.nc\n\n# Comment these lines if you are not using any of the CEDS inventories\nCHINA_MASK        1 N Y - none none MASK ./HcoDir/MASKS/v2018-09/China_mask.generic.1x1.nc\n\n# For CH4 reservoir emissions from ResME\nSEASONAL_RES_MASK 1 Y Y F2022-%m2-01T00:00:00 none none Mask ./HcoDir/CH4/v2024-01/ResME/reservoir_mask.01x01.nc\n%%\n\nDerivedExports%%\n# ---------|---------|--------------------------------------------|\n#  Export  | Primary |_________________ Mask _____________________|\n#  Name    |  Name   |    Name    |           Expression          |\n# ---------|---------|------------|-------------------------------|\n# ---------|---------|------------|-------------------------------|\n${RUNDIR_MET_EXTDATA_DERIVED_EXPORTS}\n%%\n"
  },
  {
    "path": "run/GCHP/ExtData.rc.templates/ExtData.rc.fullchem",
    "content": "Ext_AllowExtrap: .true.\n#\nPrimaryExports%%\n#--------|-------|------|------------|---------------|--------|-------|---------------------|\n# Export |       |      |            |___ Refresh ___|____ Factors ___|___ External File ___|\n# Name   | Units | Clim |Conservative| Time Template | Offset | Scale | Variable | Template |\n#--------|-------|------|------------|---------------|--------|-------|----------|----------|\n#\n# Notes:\n# Units should be in single quotes if they contain whitespace\n# Climatology should be Y if the file contains monthly climatology; otherwise it should be N\n# Conservative should be Y if units imply mass conservation dependency on regrid method (e.g. value per area)\n# Refresh Time Template should be:\n#    1. - if the file contains time-invariant constants\n#    2. prefixed with F if no time interpolation between data reads (F = fixed)\n#    3. 0 if data should be kept up-to-date at all times\n#    4. 0:HHMMSS if data occurs in file with frequency HHMMSS and should be updated at that frequency\n#    5. %y4-%m2-%d2T%h2:00:00, with any tokens replaced by appropriate constant time value, if multiple time\n#       values are in the same file. Note that including an F prefix indicates the data should be treated\n#       as constant until the next refresh time. Omission of the F prefix will time-interpolate between\n#       the values.\n# Minimize whitespace wherever possible to avoid surpassing the ESMF read buffer character limit,\n# applicable only for uncommented lines.\n#\n###############################################################################\n###\n### Meteorology data\n###\n###############################################################################\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS}\n#\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n# These fields are stored in State_Met, along with the other met fields\n# Lines below are commented/uncommented by setCommonRunSettings.sh based\n# on setting in HEMCO_Config.rc.\n#==============================================================================\n#FLASH_DENS 1 N Y F0;013000 none none LDENS ./HcoDir/OFFLINE_LIGHTNING/${RUNDIR_LIGHTNOX_DIR}/${RUNDIR_METLIGHTNING}/%y4/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_%y4_%m2.nc4\n#CONV_DEPTH 1 N Y F0;013000 none none CTH   ./HcoDir/OFFLINE_LIGHTNING/${RUNDIR_LIGHTNOX_DIR}/${RUNDIR_METLIGHTNING}/%y4/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_%y4_%m2.nc4\n\n# Climatology option\nFLASH_DENS 1 Y Y F1980-%m2-01T00:00:00 none none LDENS ./HcoDir/OFFLINE_LIGHTNING/v2020-03/${RUNDIR_METLIGHTNING}/CLIM/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_${RUNDIR_MET_LCLIM}.ymonmean.nc4\nCONV_DEPTH 1 Y Y F1980-%m2-01T00:00:00 none none CTH   ./HcoDir/OFFLINE_LIGHTNING/v2020-03/${RUNDIR_METLIGHTNING}/CLIM/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_${RUNDIR_MET_LCLIM}.ymonmean.nc4\n#\n#==============================================================================\n# --- Fields for soil NOx emissions (Extension 104) ---\n# These fields are stored in State_Met, along with the other met fields\n# Manually uncomment this line is UseSoilTemperature is true in HEMCO config.\n#==============================================================================\n#TSOIL1 1 N Y F0;003000 none none TSOIL1   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1soil.025x03125.nc\n#\n#==============================================================================\n# --- Fields for RRTMG ---\n# Dynamical heating data is only read in when RRTMG FDH/SEFDH is used and\n# must be generated in a reference (companion) run. The time after P at\n# the end should be the RRTMG time step (3 hours by default)\n#==============================================================================\nDynHeating 1 N N F%y4-%m2-%d2T%h2:00:00 none none DynHeating ./DynHeating/GEOSChem.DynHeating.%y4%m2%d2_%h2%n2z.nc4 2000-01-01T00:00:00P03:00\n#\n###############################################################################\n###\n### Land data (not handled by HEMCO)\n###\n###############################################################################\n#\n#==============================================================================\n# Olson land types\n#==============================================================================\n# Use conservative fraction regridding to extract land type fraction\nOLSON00 1 N F;0  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON01 1 N F;1  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON02 1 N F;2  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON03 1 N F;3  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON04 1 N F;4  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON05 1 N F;5  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON06 1 N F;6  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON07 1 N F;7  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON08 1 N F;8  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON09 1 N F;9  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON10 1 N F;10 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON11 1 N F;11 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON12 1 N F;12 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON13 1 N F;13 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON14 1 N F;14 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON15 1 N F;15 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON16 1 N F;16 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON17 1 N F;17 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON18 1 N F;18 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON19 1 N F;19 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON20 1 N F;20 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON21 1 N F;21 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON22 1 N F;22 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON23 1 N F;23 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON24 1 N F;24 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON25 1 N F;25 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON26 1 N F;26 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON27 1 N F;27 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON28 1 N F;28 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON29 1 N F;29 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON30 1 N F;30 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON31 1 N F;31 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON32 1 N F;32 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON33 1 N F;33 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON34 1 N F;34 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON35 1 N F;35 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON36 1 N F;36 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON37 1 N F;37 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON38 1 N F;38 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON39 1 N F;39 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON40 1 N F;40 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON41 1 N F;41 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON42 1 N F;42 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON43 1 N F;43 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON44 1 N F;44 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON45 1 N F;45 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON46 1 N F;46 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON47 1 N F;47 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON48 1 N F;48 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON49 1 N F;49 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON50 1 N F;50 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON51 1 N F;51 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON52 1 N F;52 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON53 1 N F;53 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON54 1 N F;54 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON55 1 N F;55 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON56 1 N F;56 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON57 1 N F;57 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON58 1 N F;58 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON59 1 N F;59 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON60 1 N F;60 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON61 1 N F;61 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON62 1 N F;62 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON63 1 N F;63 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON64 1 N F;64 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON65 1 N F;65 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON66 1 N F;66 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON67 1 N F;67 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON68 1 N F;68 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON69 1 N F;69 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON70 1 N F;70 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON71 1 N F;71 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON72 1 N F;72 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n#\n#==============================================================================\n# Yuan-processed MODIS Leaf Area Index\n#==============================================================================\n#\n# Use file with land type stored as 3rd dimension to speed up file read\nXLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI ./HcoDir/Yuan_XLAI/v2021-06/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n#\n###############################################################################\n###\n### HEMCO Base Emissions (Update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- APEI Canada (APEI) ---\n# APEI is off by default in HEMCO_Config.rc\n#==============================================================================\n#APEI_NO   kg/m2/s N Y F%y4-01-01T00:00:00 none none NOx ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_CO   kg/m2/s N Y F%y4-01-01T00:00:00 none none CO  ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_SO2  kg/m2/s N Y F%y4-01-01T00:00:00 none none SOx ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_NH3  kg/m2/s N Y F%y4-01-01T00:00:00 none none NH3 ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_BCPI kg/m2/s N Y F%y4-01-01T00:00:00 none none EC  ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_BCPO kg/m2/s N Y F%y4-01-01T00:00:00 none none EC  ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_OCPI kg/m2/s N Y F%y4-01-01T00:00:00 none none OC  ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#APEI_OCPO kg/m2/s N Y F%y4-01-01T00:00:00 none none OC  ./HcoDir/APEI/v2016-11/APEI.0.1x0.1.nc\n#\n#==============================================================================\n# --- EPA NEI2016 USA monthly mean (NEI2016_MONMEAN) ---\n# NEI2016_MONMEAN is off by default in HEMCO_Config.rc\n#==============================================================================\n#EPA16_BCPI__afdustPEC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__afdustPEC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__afdustPNA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_NH4__afdustPNH4          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_NIT__afdustPNO3          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__afdustPOC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__afdustPOC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_SO4__afdustPSO4          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_ACET__agACET             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__agALD2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__agALDX             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__agBENZ             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__agETH              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__agETHA             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_EOH__agETOH              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__agFORM             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__agIOLE             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_MEK__agKET               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_MOH__agMEOH              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_NH3__agNH3               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__agOLE              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__agPAR              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__agPRPA             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__agTOL              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__agXYLMN            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_%m2.ncf\n#EPA16_ACET__airportsACET       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_MACR__airportsACROLEIN   kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__airportsALD2       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__airportsALDX       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__airportsBENZ       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_CO__airportsCO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__airportsETH        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__airportsETHA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_EOH__airportsETOH        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__airportsFORM       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__airportsHONO       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__airportsIOLE       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_MEK__airportsKET         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_MOH__airportsMEOH        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_NO__airportsNO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_NO2__airportsNO2         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__airportsOLE        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__airportsPAR        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__airportsPEC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__airportsPEC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__airportsPNA        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_NH4__airportsPNH4        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_NIT__airportsPNO3        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__airportsPOC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__airportsPOC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__airportsPRPA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_SO4__airportsPSO4        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_SO2__airportsSO2         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_SO4__airportsSULF        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__airportsTOL        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__airportsXYLMN      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_%m2.ncf\n#EPA16_ACET__nonptACET          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_MACR__nonptACROLEIN      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__nonptALD2          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__nonptALDX          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__nonptBENZ          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_Cl2__nonptCL2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CL2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_CO__nonptCO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__nonptETH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__nonptETHA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_EOH__nonptETOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__nonptFORM          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_HCl__nonptHCL            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HCL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__nonptHONO          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__nonptIOLE          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_MEK__nonptKET            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_MOH__nonptMEOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_NH3__nonptNH3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_NO__nonptNO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_NO2__nonptNO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__nonptOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__nonptPAR           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__nonptPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__nonptPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__nonptPNA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_NH4__nonptPNH4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_NIT__nonptPNO3           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__nonptPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__nonptPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__nonptPRPA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_SO4__nonptPSO4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_SO2__nonptSO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_SO4__nonptSULF           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__nonptTOL           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__nonptXYLMN         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_%m2.ncf\n#EPA16_ACET__nonroadACET        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_MACR__nonroadACROLEIN    kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__nonroadALD2        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__nonroadALDX        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__nonroadBENZ        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_CO__nonroadCO            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__nonroadETH         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__nonroadETHA        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_EOH__nonroadETOH         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__nonroadFORM        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__nonroadHONO        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__nonroadIOLE        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_MEK__nonroadKET          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_MOH__nonroadMEOH         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_NH3__nonroadNH3          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_NO__nonroadNO            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_NO2__nonroadNO2          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__nonroadOLE         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__nonroadPAR         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__nonroadPEC         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__nonroadPEC         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__nonroadPNA         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_NH4__nonroadPNH4         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_NIT__nonroadPNO3         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__nonroadPOC         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__nonroadPOC         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__nonroadPRPA        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_SO4__nonroadPSO4         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_SO2__nonroadSO2          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_SO4__nonroadSULF         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__nonroadTOL         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__nonroadXYLMN       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_%m2.ncf\n#EPA16_ACET__npogACET           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_MACR__npogACROLEIN       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__npogALD2           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__npogALDX           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__npogBENZ           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_Cl2__npogCL2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CL2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_CO__npogCO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__npogETH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__npogETHA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_EOH__npogETOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__npogFORM           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__npogHONO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__npogIOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_MEK__npogKET             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_MOH__npogMEOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_NH3__npogNH3             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_NO__npogNO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_NO2__npogNO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__npogOLE            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__npogPAR            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__npogPEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__npogPEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__npogPNA            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_NH4__npogPNH4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_NIT__npogPNO3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__npogPOC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__npogPOC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__npogPRPA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_SO4__npogPSO4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_SO2__npogSO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_SO4__npogSULF            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__npogTOL            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__npogXYLMN          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_%m2.ncf\n#EPA16_ACET__onroadACET         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_MACR__onroadACROLEIN     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__onroadALD2         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__onroadALDX         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__onroadBENZ         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_CO__onroadCO             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__onroadETH          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__onroadETHA         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_EOH__onroadETOH          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__onroadFORM         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__onroadHONO         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroadIOLE         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_MEK__onroadKET           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_MOH__onroadMEOH          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_NH3__onroadNH3           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_NO__onroadNO             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_NO2__onroadNO2           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroadOLE          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__onroadPAR          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__onroadPEC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__onroadPEC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__onroadPNA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_NH4__onroadPNH4          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_NIT__onroadPNO3          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__onroadPOC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__onroadPOC          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__onroadPRPA         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_SO4__onroadPSO4          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_SO2__onroadSO2           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__onroadTOL          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__onroadXYLMN        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_%m2.ncf\n#EPA16_ACET__onroad_caACET      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_MACR__onroad_caACROLEIN  kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__onroad_caALD2      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__onroad_caALDX      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__onroad_caBENZ      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_CO__onroad_caCO          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__onroad_caETH       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__onroad_caETHA      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_EOH__onroad_caETOH       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__onroad_caFORM      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__onroad_caHONO      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroad_caIOLE      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_MEK__onroad_caKET        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_MOH__onroad_caMEOH       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_NH3__onroad_caNH3        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_NO__onroad_caNO          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_NO2__onroad_caNO2        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroad_caOLE       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__onroad_caPAR       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__onroad_caPEC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__onroad_caPEC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__onroad_caPNA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_NH4__onroad_caPNH4       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_NIT__onroad_caPNO3       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__onroad_caPOC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__onroad_caPOC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__onroad_caPRPA      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_SO4__onroad_caPSO4       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_SO2__onroad_caSO2        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__onroad_caTOL       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__onroad_caXYLMN     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_%m2.ncf\n#EPA16_ACET__railACET           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_MACR__railACROLEIN       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__railALD2           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__railALDX           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__railBENZ           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_CO__railCO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__railETH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__railETHA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_EOH__railETOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__railFORM           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__railHONO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__railIOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_MEK__railKET             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_MOH__railMEOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_NH3__railNH3             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_NO__railNO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_NO2__railNO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__railOLE            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__railPAR            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__railPEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__railPEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__railPNA            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_NH4__railPNH4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_NIT__railPNO3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__railPOC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__railPOC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__railPRPA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_SO4__railPSO4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_SO2__railSO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_SO4__railSULF            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__railTOL            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__railXYLMN          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_%m2.ncf\n#EPA16_ACET__rwcACET            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_MACR__rwcACROLEIN        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__rwcALD2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__rwcALDX            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__rwcBENZ            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_Cl2__rwcCL2              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CL2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_CO__rwcCO                kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__rwcETH             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__rwcETHA            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_EOH__rwcETOH             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__rwcFORM            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__rwcHONO            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__rwcIOLE            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_MEK__rwcKET              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_MOH__rwcMEOH             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_NH3__rwcNH3              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_NO__rwcNO                kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_NO2__rwcNO2              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__rwcOLE             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__rwcPAR             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__rwcPEC             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__rwcPEC             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__rwcPNA             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_NH4__rwcPNH4             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_NIT__rwcPNO3             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__rwcPOC             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__rwcPOC             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__rwcPRPA            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_SO4__rwcPSO4             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_SO2__rwcSO2              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_SO4__rwcSULF             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__rwcTOL             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__rwcXYLMN           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_%m2.ncf\n#EPA16_ACET__c1c2ACET           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALD2__c1c2ALD2           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_RCHO__c1c2ALDX           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_BENZ__c1c2BENZ           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_CO__c1c2CO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H4__c1c2ETH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H6__c1c2ETHA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_EOH__c1c2ETOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_CH2O__c1c2FORM           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO2__c1c2HONO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__c1c2IOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_MEK__c1c2KET             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_MOH__c1c2MEOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH3__c1c2NH3             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO__c1c2NO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO2__c1c2NO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__c1c2OLE            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALK4__c1c2PAR            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPI__c1c2PEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPO__c1c2PEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO4__c1c2PNA            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH4__c1c2PNH4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NIT__c1c2PNO3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPI__c1c2POC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPO__c1c2POC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_C3H8__c1c2PRPA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__c1c2PSO4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO2__c1c2SO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__c1c2SULF            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_TOLU__c1c2TOL            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_XYLE__c1c2XYLMN          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_ACET__c3ACET             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALD2__c3ALD2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_RCHO__c3ALDX             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_BENZ__c3BENZ             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_CO__c3CO                 kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H4__c3ETH              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H6__c3ETHA             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_EOH__c3ETOH              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_CH2O__c3FORM             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO2__c3HONO             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__c3IOLE             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_MEK__c3KET               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_MOH__c3MEOH              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH3__c3NH3               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO__c3NO                 kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO2__c3NO2               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__c3OLE              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALK4__c3PAR              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPI__c3PEC              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPO__c3PEC              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO4__c3PNA              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH4__c3PNH4              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_NIT__c3PNO3              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPI__c3POC              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPO__c3POC              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_C3H8__c3PRPA             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__c3PSO4              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO2__c3SO2               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__c3SULF              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_TOLU__c3TOL              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_XYLE__c3XYLMN            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_%m2.ncf\n#EPA16_ACET__pteguACET          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_MACR__pteguACROLEIN      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALD2__pteguALD2          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_RCHO__pteguALDX          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_BENZ__pteguBENZ          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_Cl2__pteguCL2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CL2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_CO__pteguCO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H4__pteguETH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H6__pteguETHA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_EOH__pteguETOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_CH2O__pteguFORM          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_HCl__pteguHCL            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HCL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO2__pteguHONO          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__pteguIOLE          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_MEK__pteguKET            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_MOH__pteguMEOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH3__pteguNH3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO__pteguNO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO2__pteguNO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__pteguOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALK4__pteguPAR           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPI__pteguPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPO__pteguPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO4__pteguPNA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH4__pteguPNH4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_NIT__pteguPNO3           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPI__pteguPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPO__pteguPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_C3H8__pteguPRPA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__pteguPSO4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO2__pteguSO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__pteguSULF           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_TOLU__pteguTOL           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_XYLE__pteguXYLMN         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_%m2.ncf\n#EPA16_ACET__ptogACET           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_MACR__ptogACROLEIN       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALD2__ptogALD2           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_RCHO__ptogALDX           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_BENZ__ptogBENZ           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_Cl2__ptogCL2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CL2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_CO__ptogCO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H4__ptogETH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H6__ptogETHA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_EOH__ptogETOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_CH2O__ptogFORM           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_HCl__ptogHCL             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HCL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO2__ptogHONO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__ptogIOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_MEK__ptogKET             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_MOH__ptogMEOH            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH3__ptogNH3             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO__ptogNO               kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO2__ptogNO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__ptogOLE            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALK4__ptogPAR            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPI__ptogPEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPO__ptogPEC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO4__ptogPNA            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH4__ptogPNH4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NIT__ptogPNO3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPI__ptogPOC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPO__ptogPOC            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_C3H8__ptogPRPA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__ptogPSO4            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO2__ptogSO2             kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__ptogSULF            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_TOLU__ptogTOL            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_XYLE__ptogXYLMN          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_ACET__ptnonipmACET       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_MACR__ptnonipmACROLEIN   kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALD2__ptnonipmALD2       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_RCHO__ptnonipmALDX       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_BENZ__ptnonipmBENZ       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_Cl2__ptnonipmCL2         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CL2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_CO__ptnonipmCO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H4__ptnonipmETH        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_C2H6__ptnonipmETHA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_EOH__ptnonipmETOH        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_CH2O__ptnonipmFORM       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_HCl__ptnonipmHCL         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HCL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO2__ptnonipmHONO       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__ptnonipmIOLE       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_MEK__ptnonipmKET         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_MOH__ptnonipmMEOH        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH3__ptnonipmNH3         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO__ptnonipmNO           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NO2__ptnonipmNO2         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_PRPE__ptnonipmOLE        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_ALK4__ptnonipmPAR        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPI__ptnonipmPEC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_BCPO__ptnonipmPEC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_HNO4__ptnonipmPNA        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NH4__ptnonipmPNH4        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_NIT__ptnonipmPNO3        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPI__ptnonipmPOC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_OCPO__ptnonipmPOC        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_C3H8__ptnonipmPRPA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__ptnonipmPSO4        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO2__ptnonipmSO2         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_SO4__ptnonipmSULF        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_TOLU__ptnonipmTOL        kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_XYLE__ptnonipmXYLMN      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_%m2.ncf\n#EPA16_ACET__onroad_canACET     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__onroad_canALD2     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__onroad_canALDX     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__onroad_canBENZ     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_CO__onroad_canCO         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__onroad_canETH      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__onroad_canETHA     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_EOH__onroad_canETOH      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__onroad_canFORM     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__onroad_canHONO     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroad_canIOLE     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_MEK__onroad_canKET       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_MOH__onroad_canMEOH      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_NH3__onroad_canNH3       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_NO__onroad_canNO         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_NO2__onroad_canNO2       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroad_canOLE      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__onroad_canPAR      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__onroad_canPEC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__onroad_canPEC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__onroad_canPNA      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_NH4__onroad_canPNH4      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_NIT__onroad_canPNO3      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__onroad_canPOC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__onroad_canPOC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__onroad_canPRPA     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_SO4__onroad_canPSO4      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_SO2__onroad_canSO2       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_SO4__onroad_canSULF      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__onroad_canTOL      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__onroad_canXYLMN    kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_%m2.ncf\n#EPA16_ACET__onroad_mexACET     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_MACR__onroad_mexACROLEIN kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACROLEIN   ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__onroad_mexALD2     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__onroad_mexALDX     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__onroad_mexBENZ     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_CO__onroad_mexCO         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__onroad_mexETH      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__onroad_mexETHA     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_EOH__onroad_mexETOH      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__onroad_mexFORM     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__onroad_mexHONO     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroad_mexIOLE     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_MEK__onroad_mexKET       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_MOH__onroad_mexMEOH      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_NH3__onroad_mexNH3       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_NO__onroad_mexNO         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_NO2__onroad_mexNO2       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__onroad_mexOLE      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__onroad_mexPAR      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__onroad_mexPEC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__onroad_mexPEC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__onroad_mexPNA      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_NH4__onroad_mexPNH4      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_NIT__onroad_mexPNO3      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__onroad_mexPOC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__onroad_mexPOC      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__onroad_mexPRPA     kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_SO4__onroad_mexPSO4      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_SO2__onroad_mexSO2       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_SO4__onroad_mexSULF      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__onroad_mexTOL      kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__onroad_mexXYLMN    kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__othafdustPEC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__othafdustPEC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__othafdustPNA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_NH4__othafdustPNH4       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_NIT__othafdustPNO3       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__othafdustPOC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__othafdustPOC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_SO4__othafdustPSO4       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_ACET__otharACET          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__otharALD2          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__otharALDX          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__otharBENZ          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_CO__otharCO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__otharETH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__otharETHA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_EOH__otharETOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__otharFORM          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__otharHONO          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__otharIOLE          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_MEK__otharKET            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_MOH__otharMEOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_NH3__otharNH3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_NO__otharNO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_NO2__otharNO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__otharOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__otharPAR           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__otharPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__otharPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__otharPNA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_NH4__otharPNH4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_NIT__otharPNO3           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__otharPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__otharPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__otharPRPA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_SO4__otharPSO4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_SO2__otharSO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_SO4__otharSULF           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__otharTOL           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__otharXYLMN         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__othptdustPEC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__othptdustPEC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__othptdustPNA       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_NH4__othptdustPNH4       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_NIT__othptdustPNO3       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__othptdustPOC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__othptdustPOC       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_SO4__othptdustPSO4       kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_%m2.ncf\n#EPA16_ACET__othptACET          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ACET       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_ALD2__othptALD2          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALD2       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_RCHO__othptALDX          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ALDX       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_BENZ__othptBENZ          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none BENZ       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_CO__othptCO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none CO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_C2H4__othptETH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETH        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_C2H6__othptETHA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETHA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_EOH__othptETOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none ETOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_CH2O__othptFORM          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none FORM       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_HNO2__othptHONO          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none HONO       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__othptIOLE          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none IOLE       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_MEK__othptKET            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none KET        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_MOH__othptMEOH           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none MEOH       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_NH3__othptNH3            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NH3        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_NO__othptNO              kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO         ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_NO2__othptNO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none NO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_PRPE__othptOLE           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none OLE        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_ALK4__othptPAR           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PAR        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_BCPI__othptPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_BCPO__othptPEC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PEC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_HNO4__othptPNA           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNA        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_NH4__othptPNH4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNH4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_NIT__othptPNO3           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PNO3       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_OCPI__othptPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_OCPO__othptPOC           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none POC        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_C3H8__othptPRPA          kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PRPA       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_SO4__othptPSO4           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none PSO4       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_SO2__othptSO2            kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SO2        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_SO4__othptSULF           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none SULF       ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_TOLU__othptTOL           kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none TOL        ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#EPA16_XYLE__othptXYLMN         kg/m2/s  Y Y F2016-%m2-01T00:00:00 none none XYLMN      ./HcoDir/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_%m2.ncf\n#\n#==============================================================================\n# --- DICE-Africa emission inventory (DICE_Africa) ---\n# DICE_Africa is off by default in HEMCO_Config.rc\n#==============================================================================\n## Scale factors convert from g/m2/yr to kg/m2/s\n##\n## --- Cars ---\n#DICE_CARS_CO   g/m2/yr N Y - none 3.171e-11 CO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_NO   g/m2/yr N Y - none 3.171e-11 NO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_ALK4 g/m2/yr N Y - none 3.171e-11 ALK4 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_ISOP g/m2/yr N Y - none 3.171e-11 ISOP ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_ACET g/m2/yr N Y - none 3.171e-11 ACET ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_MEK  g/m2/yr N Y - none 3.171e-11 MEK  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_ALD2 g/m2/yr N Y - none 3.171e-11 ALD2 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_RCHO g/m2/yr N Y - none 3.171e-11 RCHO ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_PRPE g/m2/yr N Y - none 3.171e-11 PRPE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_CH2O g/m2/yr N Y - none 3.171e-11 CH2O ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_SO2  g/m2/yr N Y - none 3.171e-11 SO2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_C2H4 g/m2/yr N Y - none 3.171e-11 C2H4 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_BENZ g/m2/yr N Y - none 3.171e-11 BENZ ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_TOLU g/m2/yr N Y - none 3.171e-11 TOLU ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_XYLE g/m2/yr N Y - none 3.171e-11 XYLE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_BCPI g/m2/yr N Y - none 3.171e-11 BC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n#DICE_CARS_OCPI g/m2/yr N Y - none 3.171e-11 OC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc\n##\n## --- Motorcycles ---\n#DICE_MOTORCYCLES_CO   g/m2/yr N Y - none 3.171e-11 CO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_NO   g/m2/yr N Y - none 3.171e-11 NO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_SO2  g/m2/yr N Y - none 3.171e-11 SO2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_ALK4 g/m2/yr N Y - none 3.171e-11 ALK4 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_MEK  g/m2/yr N Y - none 3.171e-11 MEK  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_ALD2 g/m2/yr N Y - none 3.171e-11 ALD2 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_PRPE g/m2/yr N Y - none 3.171e-11 PRPE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_CH2O g/m2/yr N Y - none 3.171e-11 CH2O ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_BENZ g/m2/yr N Y - none 3.171e-11 BENZ ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_TOLU g/m2/yr N Y - none 3.171e-11 TOLU ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_BCPI g/m2/yr N Y - none 3.171e-11 BC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n#DICE_MOTORCYCLES_OCPI g/m2/yr N Y - none 3.171e-11 OC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc\n##\n## --- Backup generators ---\n#DICE_BACKUPGEN_CO   g/m2/yr N Y - none 3.171e-11 CO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_NO   g/m2/yr N Y - none 3.171e-11 NO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_NO2  g/m2/yr N Y - none 3.171e-11 NO2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_SO2  g/m2/yr N Y - none 3.171e-11 SO2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_ACET g/m2/yr N Y - none 3.171e-11 ACET ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_MEK  g/m2/yr N Y - none 3.171e-11 MEK  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_ALD2 g/m2/yr N Y - none 3.171e-11 ALD2 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_RCHO g/m2/yr N Y - none 3.171e-11 RCHO ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_MVK  g/m2/yr N Y - none 3.171e-11 MVK  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_MACR g/m2/yr N Y - none 3.171e-11 MACR ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_CH2O g/m2/yr N Y - none 3.171e-11 CH2O ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_C2H4 g/m2/yr N Y - none 3.171e-11 C2H4 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_BENZ g/m2/yr N Y - none 3.171e-11 BENZ ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_TOLU g/m2/yr N Y - none 3.171e-11 TOLU ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_XYLE g/m2/yr N Y - none 3.171e-11 XYLE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_BCPI g/m2/yr N Y - none 3.171e-11 BC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n#DICE_BACKUPGEN_OCPI g/m2/yr N Y - none 3.171e-11 OC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc\n##\n## --- Charcoal production ---\n#DICE_CHARCOALPROD_CO    g/m2/yr N Y - none 3.171e-11 CO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_NO    g/m2/yr N Y - none 3.171e-11 NO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_NH3   g/m2/yr N Y - none 3.171e-11 NH3   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_PRPE  g/m2/yr N Y - none 3.171e-11 PRPE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_CH2O  g/m2/yr N Y - none 3.171e-11 CH2O  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_C2H6  g/m2/yr N Y - none 3.171e-11 C2H6  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_HAC   g/m2/yr N Y - none 3.171e-11 HAC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_C2H2  g/m2/yr N Y - none 3.171e-11 C2H2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_C2H4  g/m2/yr N Y - none 3.171e-11 C2H4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_TOLU  g/m2/yr N Y - none 3.171e-11 TOLU  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_HCOOH g/m2/yr N Y - none 3.171e-11 HCOOH ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_MOH   g/m2/yr N Y - none 3.171e-11 MOH   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n##\n#DICE_CHARCOALPROD_BCPI  g/m2/yr N Y - none 3.171e-11 BC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n#DICE_CHARCOALPROD_OCPI  g/m2/yr N Y - none 3.171e-11 OC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc\n##\n## --- Flaring of natural gas ---\n#DICE_GASFLARE_CO   g/m2/yr N Y - none 3.171e-11 CO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_NO   g/m2/yr N Y - none 3.171e-11 NO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_ALK4 g/m2/yr N Y - none 3.171e-11 ALK4 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_ALD2 g/m2/yr N Y - none 3.171e-11 ALD2 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_PRPE g/m2/yr N Y - none 3.171e-11 PRPE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_CH2O g/m2/yr N Y - none 3.171e-11 CH2O ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_BENZ g/m2/yr N Y - none 3.171e-11 BENZ ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_TOLU g/m2/yr N Y - none 3.171e-11 TOLU ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_XYLE g/m2/yr N Y - none 3.171e-11 XYLE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_BCPI g/m2/yr N Y - none 3.171e-11 BC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n#DICE_GASFLARE_OCPI g/m2/yr N Y - none 3.171e-11 OC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc\n##\n## --- Ag waste burning for energy ---\n#DICE_AGBURNING_CO    g/m2/yr N Y - none 3.171e-11 CO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_NO    g/m2/yr N Y - none 3.171e-11 NO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_NO2   g/m2/yr N Y - none 3.171e-11 NO2   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_SO2   g/m2/yr N Y - none 3.171e-11 SO2   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_NH3   g/m2/yr N Y - none 3.171e-11 NH3   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_ALK4  g/m2/yr N Y - none 3.171e-11 ALK4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_ISOP  g/m2/yr N Y - none 3.171e-11 ISOP  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_ACET  g/m2/yr N Y - none 3.171e-11 ACET  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_MEK   g/m2/yr N Y - none 3.171e-11 MEK   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_ALD2  g/m2/yr N Y - none 3.171e-11 ALD2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_MVK   g/m2/yr N Y - none 3.171e-11 MVK   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_MACR  g/m2/yr N Y - none 3.171e-11 MACR  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_PRPE  g/m2/yr N Y - none 3.171e-11 PRPE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_C3H8  g/m2/yr N Y - none 3.171e-11 C3H8  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_CH2O  g/m2/yr N Y - none 3.171e-11 CH2O  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_C2H6  g/m2/yr N Y - none 3.171e-11 C2H6  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_HAC   g/m2/yr N Y - none 3.171e-11 HAC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_GLYC  g/m2/yr N Y - none 3.171e-11 GLYC  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_MOH   g/m2/yr N Y - none 3.171e-11 MOH   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_C2H2  g/m2/yr N Y - none 3.171e-11 C2H2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_C2H4  g/m2/yr N Y - none 3.171e-11 C2H4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_BENZ  g/m2/yr N Y - none 3.171e-11 BENZ  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_TOLU  g/m2/yr N Y - none 3.171e-11 TOLU  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_XYLE  g/m2/yr N Y - none 3.171e-11 XYLE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_HCOOH g/m2/yr N Y - none 3.171e-11 HCOOH ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_BCPI  g/m2/yr N Y - none 3.171e-11 BC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n#DICE_AGBURNING_OCPI  g/m2/yr N Y - none 3.171e-11 OC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc\n##\n## --- Charcoal use ---\n#DICE_CHARCOALUSE_CO    g/m2/yr N Y - none 3.171e-11 CO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_NO    g/m2/yr N Y - none 3.171e-11 NO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_ALK4  g/m2/yr N Y - none 3.171e-11 ALK4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_NH3   g/m2/yr N Y - none 3.171e-11 NH3   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_PRPE  g/m2/yr N Y - none 3.171e-11 PRPE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_CH2O  g/m2/yr N Y - none 3.171e-11 CH2O  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_C2H6  g/m2/yr N Y - none 3.171e-11 C2H6  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_C2H2  g/m2/yr N Y - none 3.171e-11 C2H2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_C2H4  g/m2/yr N Y - none 3.171e-11 C2H4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_HCOOH g/m2/yr N Y - none 3.171e-11 HCOOH ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_MOH   g/m2/yr N Y - none 3.171e-11 MOH   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_BCPI  g/m2/yr N Y - none 3.171e-11 BC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n#DICE_CHARCOALUSE_OCPI  g/m2/yr N Y - none 3.171e-11 OC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc\n##\n## --- Kerosene use ---\n#DICE_KEROSENE_CO   g/m2/yr N Y - none 3.171e-11 CO ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc\n#DICE_KEROSENE_BCPI g/m2/yr N Y - none 3.171e-11 BC ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc\n#DICE_KEROSENE_OCPI g/m2/yr N Y - none 3.171e-11 OC ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc\n##\n## --- Artisanal oil refining ---\n#DICE_OILREFINING_CO   g/m2/yr N Y - none 3.171e-11 CO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_NO   g/m2/yr N Y - none 3.171e-11 NO   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_SO2  g/m2/yr N Y - none 3.171e-11 SO2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_ALK4 g/m2/yr N Y - none 3.171e-11 ALK4 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_ACET g/m2/yr N Y - none 3.171e-11 ACET ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_MEK  g/m2/yr N Y - none 3.171e-11 MEK  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_ALD2 g/m2/yr N Y - none 3.171e-11 ALD2 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_RCHO g/m2/yr N Y - none 3.171e-11 RCHO ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_C3H8 g/m2/yr N Y - none 3.171e-11 C3H8 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_CH2O g/m2/yr N Y - none 3.171e-11 CH2O ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_C2H6 g/m2/yr N Y - none 3.171e-11 C2H6 ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_BENZ g/m2/yr N Y - none 3.171e-11 BENZ ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_TOLU g/m2/yr N Y - none 3.171e-11 TOLU ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_XYLE g/m2/yr N Y - none 3.171e-11 XYLE ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_BCPI g/m2/yr N Y - none 3.171e-11 BC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n#DICE_OILREFINING_OCPI g/m2/yr N Y - none 3.171e-11 OC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc\n##\n## --- Household fuelwood use ---\n#DICE_HOUSEFUELWOOD_CO    g/m2/yr N Y - none 3.171e-11 CO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_NO    g/m2/yr N Y - none 3.171e-11 NO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_NO2   g/m2/yr N Y - none 3.171e-11 NO2   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_SO2   g/m2/yr N Y - none 3.171e-11 SO2   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_NH3   g/m2/yr N Y - none 3.171e-11 NH3   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_ALK4  g/m2/yr N Y - none 3.171e-11 ALK4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_ISOP  g/m2/yr N Y - none 3.171e-11 ISOP  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_MEK   g/m2/yr N Y - none 3.171e-11 MEK   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_ALD2  g/m2/yr N Y - none 3.171e-11 ALD2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_MVK   g/m2/yr N Y - none 3.171e-11 MVK   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_PRPE  g/m2/yr N Y - none 3.171e-11 PRPE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_CH2O  g/m2/yr N Y - none 3.171e-11 CH2O  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_C2H6  g/m2/yr N Y - none 3.171e-11 C2H6  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_HAC   g/m2/yr N Y - none 3.171e-11 HAC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_GLYC  g/m2/yr N Y - none 3.171e-11 GLYC  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_MOH   g/m2/yr N Y - none 3.171e-11 MOH   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_C2H2  g/m2/yr N Y - none 3.171e-11 C2H2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_C2H4  g/m2/yr N Y - none 3.171e-11 C2H4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_BENZ  g/m2/yr N Y - none 3.171e-11 BENZ  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_TOLU  g/m2/yr N Y - none 3.171e-11 TOLU  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_XYLE  g/m2/yr N Y - none 3.171e-11 XYLE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_HCOOH g/m2/yr N Y - none 3.171e-11 HCOOH ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_BCPI  g/m2/yr N Y - none 3.171e-11 BC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_HOUSEFUELWOOD_OCPI  g/m2/yr N Y - none 3.171e-11 OC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc\n##\n## --- Commercial (other) fuelwood use ---\n#DICE_OTHERFUELWOOD_CO    g/m2/yr N Y - none 3.171e-11 CO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_NO    g/m2/yr N Y - none 3.171e-11 NO    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_NO2   g/m2/yr N Y - none 3.171e-11 NO2   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_SO2   g/m2/yr N Y - none 3.171e-11 SO2   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_NH3   g/m2/yr N Y - none 3.171e-11 NH3   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_ALK4  g/m2/yr N Y - none 3.171e-11 ALK4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_ISOP  g/m2/yr N Y - none 3.171e-11 ISOP  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_MEK   g/m2/yr N Y - none 3.171e-11 MEK   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_ALD2  g/m2/yr N Y - none 3.171e-11 ALD2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_MVK   g/m2/yr N Y - none 3.171e-11 MVK   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_PRPE  g/m2/yr N Y - none 3.171e-11 PRPE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_CH2O  g/m2/yr N Y - none 3.171e-11 CH2O  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_C2H6  g/m2/yr N Y - none 3.171e-11 C2H6  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_HAC   g/m2/yr N Y - none 3.171e-11 HAC   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_GLYC  g/m2/yr N Y - none 3.171e-11 GLYC  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_MOH   g/m2/yr N Y - none 3.171e-11 MOH   ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_C2H2  g/m2/yr N Y - none 3.171e-11 C2H2  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_C2H4  g/m2/yr N Y - none 3.171e-11 C2H4  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_BENZ  g/m2/yr N Y - none 3.171e-11 BENZ  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_TOLU  g/m2/yr N Y - none 3.171e-11 TOLU  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_XYLE  g/m2/yr N Y - none 3.171e-11 XYLE  ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_HCOOH g/m2/yr N Y - none 3.171e-11 HCOOH ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_BCPI  g/m2/yr N Y - none 3.171e-11 BC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n#DICE_OTHERFUELWOOD_OCPI  g/m2/yr N Y - none 3.171e-11 OC    ./HcoDir/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc\n##\n##  --- Efficient Combusions Emissions from EDGARv43    ---\n##  --- This covers sectors not included in DICE-Africa ---\n#AF_EDGAR_BCPI_POW kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc\n#AF_EDGAR_BCPO_POW kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc\n#AF_EDGAR_BCPI_ENG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc\n#AF_EDGAR_BCPO_ENG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc\n#AF_EDGAR_BCPI_IND kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc\n#AF_EDGAR_BCPO_IND kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc\n#AF_EDGAR_BCPI_TNG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc\n#AF_EDGAR_BCPO_TNG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc\n#AF_EDGAR_BCPI_SWD kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc\n#AF_EDGAR_BCPO_SWD kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc\n#AF_EDGAR_CO_POW   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc\n#AF_EDGAR_CO_ENG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc\n#AF_EDGAR_CO_IND   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc\n#AF_EDGAR_CO_TNG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc\n#AF_EDGAR_CO_PPA   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc\n#AF_EDGAR_CO_SWD   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc\n#AF_EDGAR_NO_POW   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc\n#AF_EDGAR_NO_ENG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc\n#AF_EDGAR_NO_IND   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc\n#AF_EDGAR_NO_TNG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc\n#AF_EDGAR_NO_PPA   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc\n#AF_EDGAR_NO_AGR   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc\n#AF_EDGAR_NO_SWD   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc\n#AF_EDGAR_NH3_POW  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc\n#AF_EDGAR_NH3_ENG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc\n#AF_EDGAR_NH3_IND  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc\n#AF_EDGAR_NH3_TNG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc\n#AF_EDGAR_NH3_PPA  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc\n#AF_EDGAR_NH3_AGR  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc\n#AF_EDGAR_NH3_SOL  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc\n#AF_EDGAR_NH3_SWD  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc\n#AF_EDGAR_OCPI_POW kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc\n#AF_EDGAR_OCPI_ENG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc\n#AF_EDGAR_OCPI_IND kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc\n#AF_EDGAR_OCPI_TNG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc\n#AF_EDGAR_OCPI_SWD kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc\n#AF_EDGAR_SO2_POW  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc\n#AF_EDGAR_SO2_ENG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc\n#AF_EDGAR_SO2_IND  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc\n#AF_EDGAR_SO2_TNG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc\n#AF_EDGAR_SO2_PPA  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc\n#AF_EDGAR_SO2_SWD  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc\n#\n#==============================================================================\n# --- CEDS_01x01 ---\n#==============================================================================\n#\nCEDS_NO_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_NO_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_NO_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_NO_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_NO_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_NO_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_NO_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\n#\nCEDS_CO_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_CO_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\n#\nCEDS_SO2_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_SO2_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_SO2_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_SO2_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_SO2_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_SO2_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_SO2_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\n#\nCEDS_NH3_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_NH3_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_NH3_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_NH3_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_NH3_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_NH3_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_NH3_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\n#\nCEDS_BCPI_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_BCPI_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_BCPI_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_BCPI_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_BCPI_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_BCPI_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_BCPI_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\n#\nCEDS_OCPI_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_OCPI_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_OCPI_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_OCPI_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_OCPI_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_OCPI_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_OCPI_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\n#\nCEDS_MOH_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_MOH_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_MOH_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_MOH_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_MOH_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_MOH_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_MOH_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\n#\nCEDS_C2H6_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C2H6_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C2H6_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C2H6_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C2H6_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C2H6_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C2H6_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\n#\nCEDS_C3H8_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C3H8_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C3H8_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C3H8_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C3H8_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C3H8_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C3H8_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\n#\nCEDS_C4H10_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C4H10_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C4H10_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C4H10_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C4H10_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C4H10_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C4H10_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\n#\nCEDS_C5H12_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C5H12_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C5H12_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C5H12_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C5H12_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C5H12_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C5H12_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\n#\nCEDS_C6H14_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C6H14_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C6H14_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C6H14_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C6H14_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C6H14_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C6H14_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\n#\nCEDS_C2H4_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_C2H4_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_C2H4_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_C2H4_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_C2H4_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_C2H4_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_C2H4_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\n#\nCEDS_PRPE_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_PRPE_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_PRPE_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_PRPE_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_PRPE_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_PRPE_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_PRPE_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\n#\nCEDS_C2H2_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_C2H2_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_C2H2_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_C2H2_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_C2H2_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_C2H2_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_C2H2_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\n#\nCEDS_BENZ_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_BENZ_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\n#\nCEDS_TOLU_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_TOLU_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\n#\nCEDS_XYLE_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_XYLE_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\n#\nCEDS_CH2O_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_CH2O_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_CH2O_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_CH2O_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_CH2O_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_CH2O_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_CH2O_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\n#\nCEDS_ALD2_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_ALD2_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_ALD2_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_ALD2_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_ALD2_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_ALD2_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_ALD2_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\n#\nCEDS_MEK_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_MEK_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_MEK_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_MEK_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_MEK_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_MEK_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_MEK_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\n#\nCEDS_HCOOH_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_agr  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\nCEDS_HCOOH_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_ene  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\nCEDS_HCOOH_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_ind  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\nCEDS_HCOOH_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_tra  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\nCEDS_HCOOH_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_rco  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\nCEDS_HCOOH_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_slv  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\nCEDS_HCOOH_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_wst  ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\n#\nCEDS_TMB_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_agr  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_TMB_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_ene  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_TMB_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_ind  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_TMB_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_tra  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_TMB_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_rco  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_TMB_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_slv  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_TMB_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_wst  ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\n#\nCEDS_OTH_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_agr  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_ene  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_ind  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_tra  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_rco  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_slv  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_wst  ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\n#\n#==============================================================================\n# --- EDGAR v4.3 (EDGARv43) ---\n# EDGARv4.3 is off by default in HEMCO_Config.rc\n#==============================================================================\n#EDGAR_BCPI_POW kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc\n#EDGAR_BCPI_ENG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc\n#EDGAR_BCPI_IND kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc\n#EDGAR_BCPI_TRO kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.TRO.0.1x0.1.nc\n#EDGAR_BCPI_TNG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc\n#EDGAR_BCPI_RCO kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.RCO.0.1x0.1.nc\n#EDGAR_BCPI_PPA kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.PPA.0.1x0.1.nc\n#EDGAR_BCPI_AWB kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.AWB.0.1x0.1.nc\n#EDGAR_BCPI_SWD kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc\n#EDGAR_BCPI_FFF kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_bc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.BC.FFF.0.1x0.1.nc\n#EDGAR_CO_POW   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc\n#EDGAR_CO_ENG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc\n#EDGAR_CO_IND   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc\n#EDGAR_CO_TRO   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc\n#EDGAR_CO_TNG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc\n#EDGAR_CO_RCO   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc\n#EDGAR_CO_PPA   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc\n#EDGAR_CO_AWB   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc\n#EDGAR_CO_SWD   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc\n#EDGAR_CO_FFF   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc\n#EDGAR_NH3_POW  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc\n#EDGAR_NH3_ENG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc\n#EDGAR_NH3_IND  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc\n#EDGAR_NH3_TRO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.TRO.0.1x0.1.nc\n#EDGAR_NH3_TNG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc\n#EDGAR_NH3_RCO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.RCO.0.1x0.1.nc\n#EDGAR_NH3_PPA  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc\n#EDGAR_NH3_AGR  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc\n#EDGAR_NH3_AWB  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.AWB.0.1x0.1.nc\n#EDGAR_NH3_SOL  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc\n#EDGAR_NH3_SWD  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nh3 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc\n#EDGAR_NO_POW   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc\n#EDGAR_NO_ENG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc\n#EDGAR_NO_IND   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc\n#EDGAR_NO_TRO   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.TRO.0.1x0.1.nc\n#EDGAR_NO_TNG   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc\n#EDGAR_NO_RCO   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.RCO.0.1x0.1.nc\n#EDGAR_NO_PPA   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc\n#EDGAR_NO_AGR   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc\n#EDGAR_NO_AWB   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.AWB.0.1x0.1.nc\n#EDGAR_NO_SOL   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.SOL.0.1x0.1.nc\n#EDGAR_NO_SWD   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc\n#EDGAR_NO_FFF   kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_nox ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.NOx.FFF.0.1x0.1.nc\n#EDGAR_OCPI_POW kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc\n#EDGAR_OCPI_ENG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc\n#EDGAR_OCPI_IND kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc\n#EDGAR_OCPI_TRO kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.TRO.0.1x0.1.nc\n#EDGAR_OCPI_TNG kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc\n#EDGAR_OCPI_RCO kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.RCO.0.1x0.1.nc\n#EDGAR_OCPI_AWB kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.AWB.0.1x0.1.nc\n#EDGAR_OCPI_SWD kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc\n#EDGAR_OCPI_FFF kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_oc  ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.OC.FFF.0.1x0.1.nc\n#EDGAR_SO2_POW  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc\n#EDGAR_SO2_ENG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc\n#EDGAR_SO2_IND  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc\n#EDGAR_SO2_TRO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.TRO.0.1x0.1.nc\n#EDGAR_SO2_TNG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc\n#EDGAR_SO2_RCO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.RCO.0.1x0.1.nc\n#EDGAR_SO2_PPA  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc\n#EDGAR_SO2_AWB  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.AWB.0.1x0.1.nc\n#EDGAR_SO2_SWD  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc\n#EDGAR_SO2_FFF  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_so2 ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.SO2.FFF.0.1x0.1.nc\n#\n#==============================================================================\n# --- NAP Anthropogenic (EDGAR_NAP) ---\n# EDGAR_NAP is off by default in HEMCO_Config.rc\n#==============================================================================\n#EDGAR_NAP kgC/m2/s N Y - none none BENZ ./HcoDir/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc\n#\n#==============================================================================\n# --- Wiedinmyer et al. 2014 global trash (TRASH) to be added to EDGAR ---\n#==============================================================================\n# Scale factors convert from kg/m2/s to kgC/m2/s for VOCs\n#\nTRASH_CO   kg/m2/s N Y - none none CO  ./HcoDir/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc\nTRASH_NO   kg/m2/s N Y - none none NO  ./HcoDir/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc\nTRASH_SO2  kg/m2/s N Y - none none SO2 ./HcoDir/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc\nTRASH_NH3  kg/m2/s N Y - none none NH3 ./HcoDir/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc\nTRASH_BCPI kg/m2/s N Y - none none BC  ./HcoDir/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc\nTRASH_OCPI kg/m2/s N Y - none none OC  ./HcoDir/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc\n#\n#==============================================================================\n# --- HTAP v3 (HTAPv3) ---\n# HTAPv3 is off by default in HEMCO_Config.rc; Make sure to uncomment\n# these entries if you activate HTAPv3 or HTAPv3_SHIP in HEMCO_Config.rc\n#==============================================================================\n## HTAPv3\n#HTAPv3_BCPI_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_AGR  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_BCPI_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_ENE  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_BCPI_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_IND  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_BCPI_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_TRA  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_BCPI_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_RCO  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_BCPI_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_SLV  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_BCPI_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_WST  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_CO_AGR    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_AGR  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_CO_ENE    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ENE  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_CO_IND    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_IND  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_CO_TRA    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_TRA  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_CO_RCO    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_RCO  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_CO_SLV    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_SLV  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_CO_WST    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_WST  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_NH3_AGR   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_AGR ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NH3_ENE   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_ENE ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NH3_IND   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_IND ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NH3_TRA   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_TRA ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NH3_RCO   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_RCO ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NH3_SLV   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_SLV ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NH3_WST   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_WST ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NO_ENE    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_ENE  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_NO_IND    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_IND  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_NO_TRA    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_TRA  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_NO_RCO    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_RCO  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_NO_SLV    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_SLV  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_NO_WST    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_WST  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_AGR  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_ENE  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_IND  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_TRA  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_TRA  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_RCO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_RCO  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_SLV  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_SLV  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_WST  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_NO_AGR    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_AGR  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_SO2_AGR   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_AGR ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#HTAPv3_SO2_ENE   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_ENE ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#HTAPv3_SO2_IND   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_IND ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#HTAPv3_SO2_TRA   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_TRA ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#HTAPv3_SO2_RCO   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_RCO ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#HTAPv3_SO2_SLV   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_SLV ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#HTAPv3_SO2_WST   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_WST ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n## HTAPv3_SHIP\n#HTAPv3_BCPI_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_SHP  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_BC_0.1x0.1_%y4.nc\n#HTAPv3_CO_SHP    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_SHP  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_CO_0.1x0.1_%y4.nc\n#HTAPv3_NH3_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_SHP ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NH3_0.1x0.1_%y4.nc\n#HTAPv3_NO_SHP    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_SHP  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_NO_0.1x0.1_%y4.nc\n#HTAPv3_OCPI_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_SHP  ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_OC_0.1x0.1_%y4.nc\n#HTAPv3_SO2_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_SHP ./HcoDir/HTAPv3/v2022-12/%y4/HTAPv3_SO2_0.1x0.1_%y4.nc\n#\n#==============================================================================\n# --- GEIA (GEIA_NH3) ---\n#==============================================================================\nGEIA_NH3_NATU kg/m2/s Y Y F1990-%m2-01T00:00:00 none none NH3_NATU ./HcoDir/NH3/v2019-08/NH3_geos.2x25.nc\n#\n#==============================================================================\n# --- Arctic seabirds (SEABIRD_NH3) ---\n#==============================================================================\nSEABIRD_NH3 kg/m2/s Y Y F1990-%m2-01T00:00:00 none none NH3_SEABIRDS ./HcoDir/NH3/v2018-04/NH3_Arctic_seabirds.nc\n#\n#==============================================================================\n# --- POET EOH (POET_EOH) ---\n#==============================================================================\nPOET_EOH kgC/m2/s Y Y - none none EOH ./HcoDir/POET/v2017-03/POET_EOH.geos.2x25.nc\n#\n#==============================================================================\n# --- 2010 Global C2H6 fossil fuel and biofuel (TZOMPASOSA_C2H6) ---\n#==============================================================================\nC2H6_2010_oilgas  kgC/m2/s Y Y F2010-%m2-01T00:00:00 none none ANTHR_C2H6   ./HcoDir/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010%m2.2x25.nc\nC2H6_2010_biofuel kgC/m2/s Y Y F2010-%m2-01T00:00:00 none none BIOFUEL_C2H6 ./HcoDir/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010%m2.2x25.nc\n#\n#==============================================================================\n# --- Xiao et al., JGR, 2008 (XIAO_C3H8) ---\n#==============================================================================\nXIAO_C3H8    kgC/m2/s N Y - none none C3H8         ./HcoDir/XIAO/v2014-09/C3H8_C2H6_ngas.geos.1x1.nc\nBIOFUEL_C3H8 kgC/m2/s N Y - none none BIOFUEL_C3H8 ./HcoDir/BIOFUEL/v2019-08/biofuel.geos.2x25.nc\n#\n#==============================================================================\n# --- Very-short-lived bromocarbon (LIANG_BROMOCARB) ---\n#==============================================================================\nLIANG_CHBR3  kg/m2/s N Y - none none CHBr3_emission  ./HcoDir/BROMINE/v2015-02/Bromocarb_Liang2010.nc\nLIANG_CH2BR2 kg/m2/s N Y - none none CH2Br2_emission ./HcoDir/BROMINE/v2015-02/Bromocarb_Liang2010.nc\n#\n#==============================================================================\n# --- Very-short-lived iodocarbon (ORDONEZ_IODOCARB) ---\n#==============================================================================\nORDONEZ_CH3I   kg/m2/s Y Y F2000-%m2-01T00:00:00 none none CH3I   ./HcoDir/IODINE/v2020-02/CH3I_monthly_emissions_Ordonez_2012_COARDS.nc\nORDONEZ_CH2I2  kg/m2/s Y Y F2000-%m2-01T00:00:00 none none CH2I2  ./HcoDir/IODINE/v2020-02/CH2I2_monthly_emissions_Ordonez_2012_COARDS.nc\nORDONEZ_CH2ICL kg/m2/s Y Y F2000-%m2-01T00:00:00 none none CH2ICl ./HcoDir/IODINE/v2020-02/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.nc\nORDONEZ_CH2IBR kg/m2/s Y Y F2000-%m2-01T00:00:00 none none CH2IBr ./HcoDir/IODINE/v2020-02/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc\n#\n#==============================================================================\n# --- GT_Chlorine ---\n#==============================================================================\nHCL_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCl_ene   ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nHCL_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCl_ind   ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nHCL_RES  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCl_res   ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nHCL_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCl_wstop ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nHCL_BIO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCl_bbop  ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nHCL_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCl_agri  ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nPCL_ENE  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none pCl_ene   ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nPCL_IND  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none pCl_ind   ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nPCL_RES  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none pCl_res   ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nPCL_WST  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none pCl_wstop ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nPCL_BIO  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none pCl_bbop  ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\nPCL_AGR  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none pCl_agri  ./HcoDir/GT_Chlorine/v2024-05/GT_Chlorine_01_01_%y4_V1.0.0.nc\n#\n#==============================================================================\n# --- Ship emissions (SHIP) ---\n#==============================================================================\nCEDS_NO_SHP    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NO_shp            ./HcoDir/CEDS/v2024-06/%y4/CEDS_NO_0.1x0.1_%y4.nc\nCEDS_CO_SHP    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_shp            ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\nCEDS_SO2_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none SO2_shp           ./HcoDir/CEDS/v2024-06/%y4/CEDS_SO2_0.1x0.1_%y4.nc\nCEDS_NH3_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none NH3_shp           ./HcoDir/CEDS/v2024-06/%y4/CEDS_NH3_0.1x0.1_%y4.nc\nCEDS_BCPI_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BC_shp            ./HcoDir/CEDS/v2024-06/%y4/CEDS_BC_0.1x0.1_%y4.nc\nCEDS_OCPI_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OC_shp            ./HcoDir/CEDS/v2024-06/%y4/CEDS_OC_0.1x0.1_%y4.nc\nCEDS_MOH_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none EOH_shp           ./HcoDir/CEDS/v2024-06/%y4/CEDS_EOH_0.1x0.1_%y4.nc\nCEDS_C2H6_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H6_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H6_0.1x0.1_%y4.nc\nCEDS_C3H8_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C3H8_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_C3H8_0.1x0.1_%y4.nc\nCEDS_C4H10_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_butanes_shp  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_butanes_0.1x0.1_%y4.nc\nCEDS_C5H12_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_pentanes_shp ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_pentanes_0.1x0.1_%y4.nc\nCEDS_C6H14_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALK4_hexanes_shp  ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALK4_hexanes_0.1x0.1_%y4.nc\nCEDS_C2H4_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H4_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H4_0.1x0.1_%y4.nc\nCEDS_PRPE_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none PRPE_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_PRPE_0.1x0.1_%y4.nc\nCEDS_C2H2_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none C2H2_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_C2H2_0.1x0.1_%y4.nc\nCEDS_BENZ_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none BENZ_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_BENZ_0.1x0.1_%y4.nc\nCEDS_TOLU_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TOLU_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_TOLU_0.1x0.1_%y4.nc\nCEDS_XYLE_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none XYLE_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_XYLE_0.1x0.1_%y4.nc\nCEDS_CH2O_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_CH2O_0.1x0.1_%y4.nc\nCEDS_ALD2_SHP  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_shp          ./HcoDir/CEDS/v2024-06/%y4/CEDS_ALD2_0.1x0.1_%y4.nc\nCEDS_MEK_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_shp           ./HcoDir/CEDS/v2024-06/%y4/CEDS_MEK_0.1x0.1_%y4.nc\nCEDS_HCOOH_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_shp         ./HcoDir/CEDS/v2024-06/%y4/CEDS_HCOOH_0.1x0.1_%y4.nc\n#\n# TMB and OTHER_VOC are absent from the CEDS 0.1 x 0.1 emissions.\n# Read the previous CEDSv2 data for these instead.\n#\nCEDS_TMB_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_shp           ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_OTH_SHP   kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_shp     ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc\n#\n# --- if not ParaNOx ---\n# --- if EMEP_SHIP and not ParaNOx ---\n# ParaNOx is on by default in HEMCO_Config.rc. Fill out the sections above if turning off.\n#\n#==============================================================================\n# --- AEIC 2019 aircraft (AEIC) ---\n#\n# kg -> kgC scale factor is applied in HEMCO,\n# and therefore is unnecessary in ExtData.rc\n#==============================================================================\n# Daily data\nAEIC19_DAILY_NO     kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none NO       ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_NO2    kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none NO2      ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_HONO   kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none HONO     ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_CO     kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none CO       ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_SO2    kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none FUELBURN ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_BCPI   kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none BC       ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_OCPI   kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none OC       ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\nAEIC19_DAILY_ACET   kg/m2/s 2019 Y F%y4-%m2-%d2T00:00:00 none none HC       ./HcoDir/AEIC2019/v2022-03/2019/%m2/AEIC_2019%m2%d2.0.5x0.625.36L.nc\n# Monthly data\nAEIC19_MONMEAN_NO   kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none NO       ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_NO2  kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none NO2      ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_HONO kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none HONO     ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_CO   kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none CO       ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_SO2  kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none FUELBURN ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_BCPI kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none BC       ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_OCPI kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none OC       ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\nAEIC19_MONMEAN_ACET kg/m2/s Y    Y F2019-%m2-01T00:00:00 none none HC       ./HcoDir/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019%m2.0.5x0.625.36L.nc\n#\n#==============================================================================\n# --- Emissions from decaying plants (DECAYING_PLANTS) ---\n#==============================================================================\nALD2_PLANTDECAY kgC/m2/s Y Y F1985-%m2-01T00:00:00 none none HET_RESP ./HcoDir/ALD2/v2017-03/resp.geos.2x25.nc\nEOH_PLANTDECAY  kgC/m2/s Y Y F1985-%m2-01T00:00:00 none none HET_RESP ./HcoDir/ALD2/v2017-03/resp.geos.2x25.nc\n#\n#==============================================================================\n# --- RCP 3PD future emissions scenarios (RCP_3PD) ---\n# RCP_3PD is off by default in HEMCO_Config.rc\n#==============================================================================\n#RCP3PD_CH4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc\n#RCP3PD_NOx  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_NOx_2005-2100_23474.nc\n#RCP3PD_CO   kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc\n#RCP3PD_BCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_BC_2005-2100_23474.nc\n#RCP3PD_OCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_OC_2005-2100_23474.nc\n#RCP3PD_SO2  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_SO2_2005-2100_23474.nc\n#RCP3PD_NH3  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_NH3_2005-2100_23474.nc\n#RCP3PD_C2H2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_acetylene_2005-2100_23474_kgC.nc\n#RCP3PD_CH2O kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_formaldehyde_2005-2100_23474.nc\n#RCP3PD_BENZ kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_benzene_2005-2100_23474_kgC.nc\n#RCP3PD_TOLU kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_toluene_2005-2100_23474_kgC.nc\n#RCP3PD_XYLE kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_xylene_2005-2100_23474_kgC.nc\n#RCP3PD_ALD2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_other_aldehydes_2005-2100_23474_kgC.nc\n#\n#RCP3PD_ALK4__A kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_butanes_2005-2100_23474_kgC.nc\n#RCP3PD_ALK4__B kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_pentanes_2005-2100_23474_kgC.nc\n#RCP3PD_ALK4__C kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_23474_kgC.nc\n#\n#RCP3PD_ACET  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_ketones_2005-2100_23474_kgC.nc\n#RCP3PD_C2H6  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethane_2005-2100_23474_kgC.nc\n#RCP3PD_C2H4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethene_2005-2100_23474_kgC.nc\n#RCP3PD_C3H8  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_propane_2005-2100_23474_kgC.nc\n#RCP3PD_PRPE  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_propene_2005-2100_23474_kgC.nc\n#RCP3PD_HCOOH kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_acids_2005-2100_23474.nc\n#\n#==============================================================================\n# --- RCP 45 future emissions scenarios (RCP_45) ---\n# RCP_45 is off by default in HEMCO_Config.rc\n#==============================================================================\n#RCP45_CH4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc\n#RCP45_NOx  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_NOx_2005-2100_27424.nc\n#RCP45_CO   kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc\n#RCP45_BCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_BC_2005-2100_27424.nc\n#RCP45_OCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_OC_2005-2100_27424.nc\n#RCP45_SO2  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_SO2_2005-2100_27424.nc\n#RCP45_NH3  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_NH3_2005-2100_27424.nc\n#RCP45_C2H2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_acetylene_2005-2100_27424_kgC.nc\n#RCP45_CH2O kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_formaldehyde_2005-2100_27424.nc\n#RCP45_BENZ kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_benzene_2005-2100_27424_kgC.nc\n#RCP45_TOLU kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_toluene_2005-2100_27424_kgC.nc\n#RCP45_XYLE kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_xylene_2005-2100_27424_kgC.nc\n#RCP45_ALD2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_other_aldehydes_2005-2100_27424_kgC.nc\n#\n#RCP45_ALK4__A kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_butanes_2005-2100_27424_kgC.nc\n#RCP45_ALK4__B kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_pentanes_2005-2100_27424_kgC.nc\n#RCP45_ALK4__C kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_27424_kgC.nc\n#\n#RCP45_ACET  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_total_ketones_2005-2100_27424_kgC.nc\n#RCP45_C2H6  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_ethane_2005-2100_27424_kgC.nc\n#RCP45_C2H4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_ethene_2005-2100_27424_kgC.nc\n#RCP45_C3H8  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_propane_2005-2100_27424_kgC.nc\n#RCP45_PRPE  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_propene_2005-2100_27424_kgC.nc\n#RCP45_HCOOH kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_45/RCPs_anthro_total_acids_2005-2100_27424.nc\n#\n#==============================================================================\n# --- RCP 60 future emissions scenarios (RCP_60) ---\n# RCP_60 is off by default in HEMCO_Config.rc\n#==============================================================================\n#RCP60_CH4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc\n#RCP60_NOx  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_NOx_2005-2100_43190.nc\n#RCP60_CO   kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc\n#RCP60_BCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_BC_2005-2100_43190.nc\n#RCP60_OCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_OC_2005-2100_43190.nc\n#RCP60_SO2  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_SO2_2005-2100_43190.nc\n#RCP60_NH3  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_NH3_2005-2100_43190.nc\n#RCP60_C2H2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_acetylene_2005-2100_43190_kgC.nc\n#RCP60_CH2O kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_formaldehyde_2005-2100_43190.nc\n#RCP60_BENZ kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_benzene_2005-2100_43190_kgC.nc\n#RCP60_TOLU kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_toluene_2005-2100_43190_kgC.nc\n#RCP60_XYLE kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_xylene_2005-2100_43190_kgC.nc\n#RCP60_ALD2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_other_aldehydes_2005-2100_43190_kgC.nc\n#\n#RCP60_ALK4__A kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_butanes_2005-2100_43190_kgC.nc\n#RCP60_ALK4__B kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_pentanes_2005-2100_43190_kgC.nc\n#RCP60_ALK4__C kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43190_kgC.nc\n#\n#RCP60_ACET  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_total_ketones_2005-2100_43190_kgC.nc\n#RCP60_C2H6  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_ethane_2005-2100_43190_kgC.nc\n#RCP60_C2H4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_ethene_2005-2100_43190_kgC.nc\n#RCP60_C3H8  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_propane_2005-2100_43190_kgC.nc\n#RCP60_PRPE  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_propene_2005-2100_43190_kgC.nc\n#RCP60_HCOOH kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_60/RCPs_anthro_total_acids_2005-2100_43190.nc\n#\n#==============================================================================\n# --- RCP 85 future emissions scenarios (RCP_85) ---\n# RCP_85 is off by default in HEMCO_Config.rc\n#==============================================================================\n#RCP85_CH4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc\n#RCP85_NOx  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_NOx_2005-2100_43533.nc\n#RCP85_CO   kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc\n#RCP85_BCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_BC_2005-2100_43533.nc\n#RCP85_OCPO kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_OC_2005-2100_43533.nc\n#RCP85_SO2  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_SO2_2005-2100_43533.nc\n#RCP85_NH3  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_NH3_2005-2100_43533.nc\n#RCP85_C2H2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_acetylene_2005-2100_43533_kgC.nc\n#RCP85_CH2O kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_formaldehyde_2005-2100_43533.nc\n#RCP85_BENZ kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_benzene_2005-2100_43533_kgC.nc\n#RCP85_TOLU kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_toluene_2005-2100_43533_kgC.nc\n#RCP85_XYLE kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_xylene_2005-2100_43533_kgC.nc\n#RCP85_ALD2 kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_other_aldehydes_2005-2100_43533_kgC.nc\n#\n#RCP85_ALK4__A kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_butanes_2005-2100_43533_kgC.nc\n#RCP85_ALK4__B kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_pentanes_2005-2100_43533_kgC.nc\n#RCP85_ALK4__C kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43533_kgC.nc\n#\n#RCP85_ACET  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_total_ketones_2005-2100_43533_kgC.nc\n#RCP85_C2H6  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_ethane_2005-2100_43533_kgC.nc\n#RCP85_C2H4  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_ethene_2005-2100_43533_kgC.nc\n#RCP85_C3H8  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_propane_2005-2100_43533_kgC.nc\n#RCP85_PRPE  kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_propene_2005-2100_43533_kgC.nc\n#RCP85_HCOOH kg/m2/s N Y %y4-01-01T00:00:00 none none ACCMIP ./HcoDir/RCP/v2020-07/RCP_85/RCPs_anthro_total_acids_2005-2100_43533.nc\n#\n#==============================================================================\n# --- QFED2 biomass burning (QFED2) ---\n# QFED2 is off by default in HEMCO_Config.rc; fill in this section if turning on\n#==============================================================================\n#\n#==============================================================================\n# --- GFAS biomass burning (GFAS) ---\n# GFAS is off by default in HEMCO_Config.rc; fill in this section if turning on\n#==============================================================================\n#GFAS_CO    kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none cofire        ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_SOAP  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none cofire        ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_CH3OH kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none ch3ohfire     ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_NO    kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none noxfire       ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_BCPI  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none bcfire        ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_BCPO  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none bcfire        ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_OCPI  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none ocfire        ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_OCPO  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none ocfire        ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_CO2   kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none co2fire       ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_CH4   kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none ch4fire       ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_SO2   kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none so2fire       ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_pFe   kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none so2fire       ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_NH3   kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none nh3fire       ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_ACET  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c3h6ofire     ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_ALD2  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c2h4ofire     ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_ALK4  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none hialkanesfire ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_PRPE1 kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none hialkenesfire ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_PRPE2 kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c3h6fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_C2H6  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c2h6fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_C3H8  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c3h8fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_CH2O  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none ch2ofire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_C2H4  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c2h4fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_ISOP  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c5h8fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_DMS   kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c2h6sfire     ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_TOLU  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c7h8fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_BENZ  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c6h6fire      ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_XYLE  kg/m2/s N Y F%y4-%m2-%d2T00:00:00 none none c8h10fire     ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#GFAS_EMITL m       N Y F%y4-%m2-%d2T00:00:00 none none mami          ./HcoDir/GFAS/v2018-09/%y4/GFAS_%y4%m2.nc\n#\n#==============================================================================\n# --- GFED4 climatology ---\n# GFED4_CLIMATOLOGY is off by default in HEMCO_Config.rc; fill in this section if turning on\n#==============================================================================\n#\n#==============================================================================\n# --- Anthropogenic dust emissions (AFCID)---\n#==============================================================================\nPM25FINE_1_bin1 kg/m2/s Y Y 2015-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc\nPM25FINE_1_bin2 kg/m2/s Y Y 2015-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc\nPM25FINE_1_bin3 kg/m2/s Y Y 2015-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc\nPM25FINE_1_bin4 kg/m2/s Y Y 2015-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc\nPM25FINE_2_bin1 kg/m2/s Y Y 2012-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc\nPM25FINE_2_bin2 kg/m2/s Y Y 2012-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc\nPM25FINE_2_bin3 kg/m2/s Y Y 2012-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc\nPM25FINE_2_bin4 kg/m2/s Y Y 2012-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc\nPM25FINE_3_bin1 kg/m2/s Y Y 2013-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc\nPM25FINE_3_bin2 kg/m2/s Y Y 2013-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc\nPM25FINE_3_bin3 kg/m2/s Y Y 2013-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc\nPM25FINE_3_bin4 kg/m2/s Y Y 2013-%m2-01T00:00:00 none none PM25FINE ./HcoDir/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc\n#\n#==============================================================================\n# --- Offline dust emissions (OFFLINE_DUST)---\n#==============================================================================\nEMIS_DSTbin1 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\nEMIS_DSTbin2 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\nEMIS_DSTbin3 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\nEMIS_DSTbin4 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\nEMIS_DSTbin5 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\nEMIS_DSTbin6 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\nEMIS_DSTbin7 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EMIS ./HcoDir/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/%y4/%m2/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.%y4%m2%d2.nc\n#\n#==============================================================================\n# --- Offline biogenic VOC emissions (OFFLINE_BIOGENICVOC) ---\n#==============================================================================\nBIOGENIC_ACET kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none ACET_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_ALD2 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none ALD2_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_C2H4 kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none C2H4_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_EOH  kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none EOH_MEGAN  ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_ISOP kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none ISOP_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_PRPE kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none PRPE_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_SOAP kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none SOAP_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_SOAS kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none SOAS_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_MOH  kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none MOH_MEGAN  ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_MTPA kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none MTPA_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_MTPO kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none MTPO_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_LIMO kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none LIMO_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nBIOGENIC_SESQ kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none SESQ_MEGAN ./HcoDir/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\n#\n#==============================================================================\n# --- Offline sea salt emissions (OFFLINE_SEASALT) ---\n#==============================================================================\nSEASALT_SALA kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none SALA_TOTAL ./HcoDir/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\nSEASALT_SALC kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none SALC_TOTAL ./HcoDir/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\n#\n#SEASALT_Br2    kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none Br2_TOTAL    ./HcoDir/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\n#SEASALT_BrSALA kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none BrSALA_TOTAL ./HcoDir/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\n#SEASALT_BrSALC kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none BrSALC_TOTAL ./HcoDir/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\n#\n#==============================================================================\n# --- Offline soil NOx emissions (OFFLINE_SOILNOX) ---\n#==============================================================================\nSOILNOX_NO kg/m2/s N Y %y4-%m2-%d2T%h2:00:00 none none SOIL_NOx ./HcoDir/OFFLINE_SOILNOX/${RUNDIR_OFFLINE_SOILNOX_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/%y4/%m2/soilnox_${RUNDIR_OFFLINE_EMIS_LAT_RES}.%y4%m2%d2.nc\n#\n###############################################################################\n###\n### HEMCO Extension Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n# CH3I_SEAWATER is commented out by default in HEMCO_Config.rc\n#==============================================================================\n#CH3I_SEAWATER kg/m3 Y Y F1985-%m2-01T00:00:00 none none CH3I_OCEAN ./HcoDir/CH3I/v2014-07/ocean_ch3i.geos.4x5.nc\nDMS_SEAWATER   kg/m3 Y Y F1985-%m2-01T00:00:00 none none DMS_OCEAN  ./HcoDir/DMS/v2015-07/DMS_lana.geos.1x1.nc\n#\nACET_SEAWATER kg/m3 N Y - none none ACET ./HcoDir/ACET/v2014-07/ACET_seawater.generic.1x1.nc\n#\nALD2_SEAWATER  kg/m3 Y Y F2006-%m2-01T00:00:00 none none ALD2  ./HcoDir/ALD2/v2017-03/ALD2_seawater.geos.2x25.nc\nMENO3_SEAWATER kg/m3 Y Y F2006-%m2-01T00:00:00 none none MENO3 ./HcoDir/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc\nETNO3_SEAWATER kg/m3 Y Y F2006-%m2-01T00:00:00 none none ETNO3 ./HcoDir/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc\n#\nMOH_SEAWATER kgC/m3 N Y - none none MOH ./HcoDir/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc\n#\n#==============================================================================\n# --- SOILNOX emissions (Extension 104) ---\n#==============================================================================\nDEP_RESERVOIR_DEFAULT kg/m3  N Y - none none DEP_RESERVOIR ./HcoDir/SOILNOX/v2014-07/DepReservoirDefault.nc\nSOILNOX_LANDK1  1 N Y - none none LANDFRAC_K01 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK2  1 N Y - none none LANDFRAC_K02 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK3  1 N Y - none none LANDFRAC_K03 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK4  1 N Y - none none LANDFRAC_K04 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK5  1 N Y - none none LANDFRAC_K05 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK6  1 N Y - none none LANDFRAC_K06 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK7  1 N Y - none none LANDFRAC_K07 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK8  1 N Y - none none LANDFRAC_K08 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK9  1 N Y - none none LANDFRAC_K09 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK10 1 N Y - none none LANDFRAC_K10 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK11 1 N Y - none none LANDFRAC_K11 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK12 1 N Y - none none LANDFRAC_K12 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK13 1 N Y - none none LANDFRAC_K13 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK14 1 N Y - none none LANDFRAC_K14 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK15 1 N Y - none none LANDFRAC_K15 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK16 1 N Y - none none LANDFRAC_K16 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK17 1 N Y - none none LANDFRAC_K17 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK18 1 N Y - none none LANDFRAC_K18 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK19 1 N Y - none none LANDFRAC_K19 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK20 1 N Y - none none LANDFRAC_K20 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK21 1 N Y - none none LANDFRAC_K21 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK22 1 N Y - none none LANDFRAC_K22 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK23 1 N Y - none none LANDFRAC_K23 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK24 1 N Y - none none LANDFRAC_K24 ./HcoDir/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc\n#\nSOILNOX_ARID    1 N Y - none none ARID     ./HcoDir/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc\nSOILNOX_NONARID 1 N Y - none none NON_ARID ./HcoDir/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc\n#\nSOILNOX_FERT kg/m3 N Y 2000-%m2-%d2T00:00:00 none none FERT ./HcoDir/SOILNOX/v2014-07/soilNOx.fert_res.generic.05x05.time_corrected_for_GCHP.nc\n#\n#===========================================================================\n# --- External fields needed for online DustL23M (Extension 125) ---\n#===========================================================================\nL23M_A_bare      1      N Y %y4-01-01T00:00:00   none none LC_bare      ./HcoDir/DustL23M/v2025-07/LandCover/MCD12C1.LC.%y4.0.1.nc4\nL23M_A_veg       1      N Y %y4-01-01T00:00:00   none none LC_veg       ./HcoDir/DustL23M/v2025-07/LandCover/MCD12C1.LC.%y4.0.1.nc4\nL23M_Csah        1      N Y F2000-01-01T00:00:00 none none scale        ./HcoDir/DustL23M/v2025-07/scale/DustL23_scale_025x03125_scaleSAv2.nc4\nL23M_LAI         1      N Y %y4-%m2-01T00:00:00  none none LAI          ./HcoDir/DustL23M/v2025-07/LandCover/XLAI_025x025_%y4_MonMean.nc4\nL23M_fclay       1      N Y F2000-01-01T00:00:00 none none f_clay       ./HcoDir/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4\nL23M_BD          kg/m3  N Y F2000-01-01T00:00:00 none none bulk_density ./HcoDir/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4\nL23M_poros       1      N Y F1980-01-01T00:00:00 none none poros        ./HcoDir/DustL23M/v2025-07/poros/MERRA2.const_2d_lnd_Nx.poros.nc4\nL23M_roughness_r m      N Y F1997-01-01T00:00:00 none none roughness_r  ./HcoDir/DustL23M/v2025-07/roughness/Surf_roughness_min_rocks_1997.nc4\n#\n#==============================================================================\n# --- Dust emissions using DEAD model (Extension 131) ---\n#==============================================================================\nDEAD_EF_GEO   factor   N Y - none none EF_GEO   ./HcoDir/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc\nDEAD_LF_DRY   factor   N Y - none none LF_DRY   ./HcoDir/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc\nDEAD_MF_CACO3 fraction N Y - none none MF_CaCO3 ./HcoDir/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc\nDEAD_MF_CLY   fraction N Y - none none MF_CLY   ./HcoDir/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc\nDEAD_MF_SND   fraction N Y - none none MF_SND   ./HcoDir/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc\nDEAD_SFC_TYP  count    N V - none none SFC_TYP  ./HcoDir/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc\n#\nDEAD_GOC_SRC 1 N Y - none none GOC_SRC  ./HcoDir/DUST_DEAD/v2019-06/GOCART_src_fn.geos.2x25.nc\n#\nDEAD_VAI 1 Y Y 1985-%m2-01T00:00:00 none none VAI ./HcoDir/DUST_DEAD/v2019-06/dst_tvbds.geos.2x25.nc\n#\n#==============================================================================\n# --- Sea salt emissions (Extension 107)\n#==============================================================================\nMODIS_CHLR  mg_m-3 N Y F%y4-%m2-01T00:00:00  none none MODIS    ./HcoDir/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.%y4.nc\nMULTISEAICE 1      N Y F%y4-%m2-%d2T00:00:00 none none FRSEAICE ./HcoDir/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.%y4.nc\n#\n#==============================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#==============================================================================\nMEGAN_AEF_ISOP kgC/m2/s N Y - none none AEF_ISOPRENE     ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_MBOX kgC/m2/s N Y - none none AEF_MBO          ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_APIN kgC/m2/s N Y - none none AEF_ALPHA_PINENE ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_BPIN kgC/m2/s N Y - none none AEF_BETA_PINENE  ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_CARE kgC/m2/s N Y - none none AEF_CARENE       ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_LIMO kgC/m2/s N Y - none none AEF_LIMONENE     ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_MYRC kgC/m2/s N Y - none none AEF_MYRCENE      ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_OCIM kgC/m2/s N Y - none none AEF_OCIMENE      ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\nMEGAN_AEF_SABI kgC/m2/s N Y - none none AEF_SABINENE     ./HcoDir/MEGAN/v2020-02/MEGAN2.1_EF.geos.025x03125.nc\n#\nCLM4_PFT_NDLF_EVGN_TMPT_TREE 1 N Y - none none PFT_NDLF_EVGN_TMPT_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_NDLF_EVGN_BORL_TREE 1 N Y - none none PFT_NDLF_EVGN_BORL_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_NDLF_DECD_BORL_TREE 1 N Y - none none PFT_NDLF_DECD_BORL_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_EVGN_TROP_TREE 1 N Y - none none PFT_BDLF_EVGN_TROP_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_EVGN_TMPT_TREE 1 N Y - none none PFT_BDLF_EVGN_TMPT_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_DECD_TROP_TREE 1 N Y - none none PFT_BDLF_DECD_TROP_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_DECD_TMPT_TREE 1 N Y - none none PFT_BDLF_DECD_TMPT_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_DECD_BORL_TREE 1 N Y - none none PFT_BDLF_DECD_BORL_TREE ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_EVGN_SHRB      1 N Y - none none PFT_BDLF_EVGN_SHRB      ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_DECD_TMPT_SHRB 1 N Y - none none PFT_BDLF_DECD_TMPT_SHRB ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_BDLF_DECD_BORL_SHRB 1 N Y - none none PFT_BDLF_DECD_BORL_SHRB ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\n#\nCLM4_PFT_BARE         1 N Y - none none PFT_BARE         ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_C3_ARCT_GRSS 1 N Y - none none PFT_C3_ARCT_GRSS ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_C3_NARC_GRSS 1 N Y - none none PFT_C3_NARC_GRSS ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_C4_GRSS      1 N Y - none none PFT_C4_GRSS      ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\nCLM4_PFT_CROP         1 N Y - none none PFT_CROP         ./HcoDir/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc\n#\nMEGAN_ORVC 1 Y Y F1990-%m2-01T00:00:00 none none OCPI ./HcoDir/SOA/v2014-07/NVOC.geos.1x1.nc\n#\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n#==============================================================================\n# --- GFED4 ---\nGFED_TEMP kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_TEMP ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_AGRI kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_AGRI ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_DEFO kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_DEFO ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_BORF kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_BORF ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_PEAT kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_PEAT ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\nGFED_SAVA kgDM/m2/s N Y F%y4-%m2-01T00:00:00 none none DM_SAVA ./HcoDir/GFED4/v2023-03/%y4/GFED4_gen.025x025.%y4%m2.nc\n#\n# --- GFED_daily ---\nGFED_FRAC_DAY 1 N Y %y4-%m2-%d2T00:00:00 none none GFED_FRACDAY ./HcoDir/GFED4/v2023-03/%y4/GFED4_dailyfrac_gen.025x025.%y4%m2.nc\n#\n# --- GFED_3hourly ---\nGFED_FRAC_3HOUR 1 N Y %y4-%m2-01T%h2:00:00 none none GFED_FRAC3HR ./HcoDir/GFED4/v2023-03/%y4/GFED4_3hrfrac_gen.025x025.%y4%m2.nc\n#\n#==============================================================================\n# --- FINN v2.5 biomass burning emissions (Extension 114)\n# FINN is off by default in HEMCO_Config.rc; fill in this section if turning on\n#==============================================================================\n#\n###############################################################################\n###\n### HEMCO Non-Emissions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\nTIMEZONES count Y V 2017-%m2-01T00:00:00 none none UTC_OFFSET ./HcoDir/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc\n#\n#==============================================================================\n# --- UV albedo (UVALBEDO) ---\n#==============================================================================\nUV_ALBEDO 1 Y Y 1985-%m2-01T00:00:00 none none UVALBD ./HcoDir/UVALBEDO/v2019-06/uvalbedo.geos.2x25.nc\n#\n#==============================================================================\n# --- Stratospheric Bry data from the CCM model (CCM_STRAT_Bry) ---\n#==============================================================================\nGEOSCCM_Br_DAY      pptv  Y Y F2007-%m2-01T00:00:00 none none BR     ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.day.nc\nGEOSCCM_Br2_DAY     pptv  Y Y F2007-%m2-01T00:00:00 none none BRCL   ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.day.nc\nGEOSCCM_BrO_DAY     pptv  Y Y F2007-%m2-01T00:00:00 none none BRO    ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.day.nc\nGEOSCCM_BrNO3_DAY   pptv  Y Y F2007-%m2-01T00:00:00 none none BRONO2 ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.day.nc\nGEOSCCM_HBr_DAY     pptv  Y Y F2007-%m2-01T00:00:00 none none HBR    ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.day.nc\nGEOSCCM_HOBr_DAY    pptv  Y Y F2007-%m2-01T00:00:00 none none HOBR   ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.day.nc\nGEOSCCM_Br_NIGHT    pptv  Y Y F2007-%m2-01T00:00:00 none none BR     ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.night.nc\nGEOSCCM_Br2_NIGHT   pptv  Y Y F2007-%m2-01T00:00:00 none none BRCL   ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.night.nc\nGEOSCCM_BrO_NIGHT   pptv  Y Y F2007-%m2-01T00:00:00 none none BRO    ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.night.nc\nGEOSCCM_BrNO3_NIGHT pptv  Y Y F2007-%m2-01T00:00:00 none none BRONO2 ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.night.nc\nGEOSCCM_HBr_NIGHT   pptv  Y Y F2007-%m2-01T00:00:00 none none HBR    ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.night.nc\nGEOSCCM_HOBr_NIGHT  pptv  Y Y F2007-%m2-01T00:00:00 none none HOBR   ./HcoDir/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007%m2.night.nc\n#\n#==============================================================================\n#--- Archived GMI OH concentrations (GMI_OH) ---\n#==============================================================================\nGMI_OH v/v Y N 2005-%m2-01T00:00:00 none none species ./HcoDir/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc\n#\n#==============================================================================\n#--- GMI chemistry: prod/loss rates (GMI_PROD_LOSS) ---\n#==============================================================================\nGMI_LOSS_A3O2   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.A3O2.geos5.2x25.nc\nGMI_PROD_A3O2   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.A3O2.geos5.2x25.nc\nGMI_LOSS_ACET   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ACET.geos5.2x25.nc\nGMI_PROD_ACET   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ACET.geos5.2x25.nc\nGMI_LOSS_ACTA   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ACTA.geos5.2x25.nc\nGMI_PROD_ACTA   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ACTA.geos5.2x25.nc\nGMI_LOSS_ALD2   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ALD2.geos5.2x25.nc\nGMI_PROD_ALD2   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ALD2.geos5.2x25.nc\nGMI_LOSS_ALK4   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ALK4.geos5.2x25.nc\nGMI_PROD_ALK4   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ALK4.geos5.2x25.nc\nGMI_LOSS_ATO2   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ATO2.geos5.2x25.nc\nGMI_PROD_ATO2   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ATO2.geos5.2x25.nc\nGMI_LOSS_B3O2   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.B3O2.geos5.2x25.nc\nGMI_PROD_B3O2   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.B3O2.geos5.2x25.nc\nGMI_LOSS_Br     s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.Br.geos5.2x25.nc\nGMI_PROD_Br     v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.Br.geos5.2x25.nc\nGMI_LOSS_BrCl   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.BrCl.geos5.2x25.nc\nGMI_PROD_BrCl   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.BrCl.geos5.2x25.nc\nGMI_LOSS_BrO    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.BrO.geos5.2x25.nc\nGMI_PROD_BrO    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.BrO.geos5.2x25.nc\nGMI_LOSS_BrNO3  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.BrONO2.geos5.2x25.nc\nGMI_PROD_BrNO3  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.BrONO2.geos5.2x25.nc\nGMI_LOSS_C2H6   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.C2H6.geos5.2x25.nc\nGMI_PROD_C2H6   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.C2H6.geos5.2x25.nc\nGMI_LOSS_C3H8   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.C3H8.geos5.2x25.nc\nGMI_PROD_C3H8   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.C3H8.geos5.2x25.nc\nGMI_LOSS_CCl4   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CCl4.geos5.2x25.nc\nGMI_PROD_CCl4   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CCl4.geos5.2x25.nc\nGMI_LOSS_H1202  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CF2Br2.geos5.2x25.nc\nGMI_PROD_H1202  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CF2Br2.geos5.2x25.nc\nGMI_LOSS_CFC12  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CF2Cl2.geos5.2x25.nc\nGMI_PROD_CFC12  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CF2Cl2.geos5.2x25.nc\nGMI_LOSS_H1211  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CF2ClBr.geos5.2x25.nc\nGMI_PROD_H1211  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CF2ClBr.geos5.2x25.nc\nGMI_LOSS_H1311  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CF3Br.geos5.2x25.nc\nGMI_PROD_H1311  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CF3Br.geos5.2x25.nc\nGMI_LOSS_CFC113 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CFC113.geos5.2x25.nc\nGMI_PROD_CFC113 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CFC113.geos5.2x25.nc\nGMI_LOSS_CFC114 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CFC114.geos5.2x25.nc\nGMI_PROD_CFC114 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CFC114.geos5.2x25.nc\nGMI_LOSS_CFC115 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CFC115.geos5.2x25.nc\nGMI_PROD_CFC115 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CFC115.geos5.2x25.nc\nGMI_LOSS_CFC11  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CFCl3.geos5.2x25.nc\nGMI_PROD_CFC11  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CFCl3.geos5.2x25.nc\nGMI_LOSS_CH2O   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CH2O.geos5.2x25.nc\nGMI_PROD_CH2O   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CH2O.geos5.2x25.nc\nGMI_LOSS_CH3Br  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CH3Br.geos5.2x25.nc\nGMI_PROD_CH3Br  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CH3Br.geos5.2x25.nc\n#\nGMI_LOSS_CH3CCl3 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CH3CCl3.geos5.2x25.nc\nGMI_PROD_CH3CCl3 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CH3CCl3.geos5.2x25.nc\n#\nGMI_LOSS_CH3Cl s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CH3Cl.geos5.2x25.nc\nGMI_PROD_CH3Cl v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CH3Cl.geos5.2x25.nc\nGMI_LOSS_CH4   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CH4.geos5.2x25.nc\nGMI_PROD_CH4   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CH4.geos5.2x25.nc\nGMI_LOSS_CO    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.CO.geos5.2x25.nc\nGMI_PROD_CO    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.CO.geos5.2x25.nc\nGMI_LOSS_Cl    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.Cl.geos5.2x25.nc\nGMI_PROD_Cl    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.Cl.geos5.2x25.nc\nGMI_LOSS_Cl2   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.Cl2.geos5.2x25.nc\nGMI_PROD_Cl2   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.Cl2.geos5.2x25.nc\nGMI_LOSS_Cl2O2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.Cl2O2.geos5.2x25.nc\nGMI_PROD_Cl2O2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.Cl2O2.geos5.2x25.nc\nGMI_LOSS_ClO   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ClO.geos5.2x25.nc\nGMI_PROD_ClO   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ClO.geos5.2x25.nc\n#\nGMI_LOSS_ClONO2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ClONO2.geos5.2x25.nc\nGMI_PROD_ClONO2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ClONO2.geos5.2x25.nc\n#\nGMI_LOSS_EOH   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.EOH.geos5.2x25.nc\nGMI_PROD_EOH   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.EOH.geos5.2x25.nc\nGMI_LOSS_ETO2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ETO2.geos5.2x25.nc\nGMI_PROD_ETO2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ETO2.geos5.2x25.nc\nGMI_LOSS_ETP   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ETP.geos5.2x25.nc\nGMI_PROD_ETP   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ETP.geos5.2x25.nc\nGMI_LOSS_GCO3  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.GCO3.geos5.2x25.nc\nGMI_PROD_GCO3  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.GCO3.geos5.2x25.nc\nGMI_LOSS_GLYC  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.GLYC.geos5.2x25.nc\nGMI_PROD_GLYC  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.GLYC.geos5.2x25.nc\nGMI_LOSS_GLYX  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.GLYX.geos5.2x25.nc\nGMI_PROD_GLYX  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.GLYX.geos5.2x25.nc\nGMI_LOSS_GP    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.GP.geos5.2x25.nc\nGMI_PROD_GP    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.GP.geos5.2x25.nc\nGMI_LOSS_GPAN  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.GPAN.geos5.2x25.nc\nGMI_PROD_GPAN  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.GPAN.geos5.2x25.nc\nGMI_LOSS_H     s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.H.geos5.2x25.nc\nGMI_PROD_H     v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.H.geos5.2x25.nc\nGMI_LOSS_H2    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.H2.geos5.2x25.nc\nGMI_PROD_H2    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.H2.geos5.2x25.nc\nGMI_LOSS_H2402 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.H2402.geos5.2x25.nc\nGMI_PROD_H2402 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.H2402.geos5.2x25.nc\nGMI_LOSS_H2O   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.H2O.geos5.2x25.nc\nGMI_PROD_H2O   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.H2O.geos5.2x25.nc\nGMI_LOSS_H2O2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.H2O2.geos5.2x25.nc\nGMI_PROD_H2O2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.H2O2.geos5.2x25.nc\nGMI_LOSS_HAC   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HAC.geos5.2x25.nc\nGMI_PROD_HAC   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HAC.geos5.2x25.nc\nGMI_LOSS_HBr   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HBr.geos5.2x25.nc\nGMI_PROD_HBr   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HBr.geos5.2x25.nc\n#\nGMI_LOSS_HCFC141b s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HCFC141b.geos5.2x25.nc\nGMI_PROD_HCFC141b v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HCFC141b.geos5.2x25.nc\nGMI_LOSS_HCFC142b s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HCFC142b.geos5.2x25.nc\nGMI_PROD_HCFC142b v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HCFC142b.geos5.2x25.nc\n#\nGMI_LOSS_HCFC22 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HCFC22.geos5.2x25.nc\nGMI_PROD_HCFC22 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HCFC22.geos5.2x25.nc\n#\nGMI_LOSS_HCOOH s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HCOOH.geos5.2x25.20170108.nc\nGMI_PROD_HCOOH v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HCOOH.geos5.2x25.20170108.nc\n#\nGMI_LOSS_HCl  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HCl.geos5.2x25.nc\nGMI_PROD_HCl  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HCl.geos5.2x25.nc\nGMI_LOSS_HNO2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HNO2.geos5.2x25.nc\nGMI_PROD_HNO2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HNO2.geos5.2x25.nc\nGMI_LOSS_HNO3 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HNO3.geos5.2x25.nc\nGMI_PROD_HNO3 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HNO3.geos5.2x25.nc\nGMI_LOSS_HNO4 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HNO4.geos5.2x25.nc\nGMI_PROD_HNO4 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HNO4.geos5.2x25.nc\nGMI_LOSS_HO2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HO2.geos5.2x25.nc\nGMI_PROD_HO2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HO2.geos5.2x25.nc\nGMI_LOSS_HOBr s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HOBr.geos5.2x25.nc\nGMI_PROD_HOBr v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HOBr.geos5.2x25.nc\nGMI_LOSS_HOCl s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.HOCl.geos5.2x25.nc\nGMI_PROD_HOCl v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.HOCl.geos5.2x25.nc\nGMI_LOSS_IALD s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.IALD.geos5.2x25.nc\nGMI_PROD_IALD v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.IALD.geos5.2x25.nc\nGMI_LOSS_IAO2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.IAO2.geos5.2x25.nc\nGMI_PROD_IAO2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.IAO2.geos5.2x25.nc\nGMI_LOSS_IAP  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.IAP.geos5.2x25.nc\nGMI_PROD_IAP  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.IAP.geos5.2x25.nc\nGMI_LOSS_INO2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.INO2.geos5.2x25.nc\nGMI_PROD_INO2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.INO2.geos5.2x25.nc\nGMI_LOSS_INPN s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.INPN.geos5.2x25.nc\nGMI_PROD_INPN v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.INPN.geos5.2x25.nc\nGMI_LOSS_ISN1 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ISN1.geos5.2x25.nc\nGMI_PROD_ISN1 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ISN1.geos5.2x25.nc\nGMI_LOSS_ISNP s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ISNP.geos5.2x25.nc\nGMI_PROD_ISNP v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ISNP.geos5.2x25.nc\nGMI_LOSS_ISOP s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ISOP.geos5.2x25.nc\nGMI_PROD_ISOP v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ISOP.geos5.2x25.nc\nGMI_LOSS_KO2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.KO2.geos5.2x25.nc\nGMI_PROD_KO2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.KO2.geos5.2x25.nc\nGMI_LOSS_MACR s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MACR.geos5.2x25.nc\nGMI_PROD_MACR v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MACR.geos5.2x25.nc\nGMI_LOSS_MAN2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MAN2.geos5.2x25.nc\nGMI_PROD_MAN2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MAN2.geos5.2x25.nc\nGMI_LOSS_MAO3 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MAO3.geos5.2x25.nc\nGMI_PROD_MAO3 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MAO3.geos5.2x25.nc\nGMI_LOSS_MAOP s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MAOP.geos5.2x25.nc\nGMI_PROD_MAOP v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MAOP.geos5.2x25.nc\nGMI_LOSS_MAP  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MAP.geos5.2x25.nc\nGMI_PROD_MAP  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MAP.geos5.2x25.nc\nGMI_LOSS_MCO3 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MCO3.geos5.2x25.nc\nGMI_PROD_MCO3 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MCO3.geos5.2x25.nc\nGMI_LOSS_MEK  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MEK.geos5.2x25.nc\nGMI_PROD_MEK  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MEK.geos5.2x25.nc\nGMI_LOSS_MGLY s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MGLY.geos5.2x25.nc\nGMI_PROD_MGLY v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MGLY.geos5.2x25.nc\nGMI_LOSS_MO2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MO2.geos5.2x25.nc\nGMI_PROD_MO2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MO2.geos5.2x25.nc\nGMI_LOSS_MOH  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MOH.geos5.2x25.nc\nGMI_PROD_MOH  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MOH.geos5.2x25.nc\nGMI_LOSS_MP   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MP.geos5.2x25.nc\nGMI_PROD_MP   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MP.geos5.2x25.nc\nGMI_LOSS_MRO2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MRO2.geos5.2x25.nc\nGMI_PROD_MRO2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MRO2.geos5.2x25.nc\nGMI_LOSS_MRP  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MRP.geos5.2x25.nc\nGMI_PROD_MRP  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MRP.geos5.2x25.nc\nGMI_LOSS_MVK  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MVK.geos5.2x25.nc\nGMI_PROD_MVK  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MVK.geos5.2x25.nc\nGMI_LOSS_MVN2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.MVN2.geos5.2x25.nc\nGMI_PROD_MVN2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.MVN2.geos5.2x25.nc\nGMI_LOSS_N    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.N.geos5.2x25.nc\nGMI_PROD_N    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.N.geos5.2x25.nc\nGMI_LOSS_N2O  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.N2O.geos5.2x25.nc\nGMI_PROD_N2O  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.N2O.geos5.2x25.nc\nGMI_LOSS_N2O5 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.N2O5.geos5.2x25.nc\nGMI_PROD_N2O5 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.N2O5.geos5.2x25.nc\nGMI_LOSS_NO   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.NO.geos5.2x25.nc\nGMI_PROD_NO   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.NO.geos5.2x25.nc\nGMI_LOSS_NO2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.NO2.geos5.2x25.nc\nGMI_PROD_NO2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.NO2.geos5.2x25.nc\nGMI_LOSS_NO3  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.NO3.geos5.2x25.nc\nGMI_PROD_NO3  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.NO3.geos5.2x25.nc\nGMI_LOSS_NOx  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.NOx.geos5.2x25.nc\nGMI_PROD_NOx  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.NOx.geos5.2x25.nc\nGMI_LOSS_O    s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.O.geos5.2x25.nc\nGMI_PROD_O    v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.O.geos5.2x25.nc\nGMI_LOSS_O1D  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.O1D.geos5.2x25.nc\nGMI_PROD_O1D  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.O1D.geos5.2x25.nc\nGMI_LOSS_O3   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.O3.geos5.2x25.nc\nGMI_PROD_O3   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.O3.geos5.2x25.nc\nGMI_LOSS_OClO s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.OClO.geos5.2x25.nc\nGMI_PROD_OClO v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.OClO.geos5.2x25.nc\nGMI_LOSS_OH   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc\nGMI_PROD_OH   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc\nGMI_LOSS_Ox   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.Ox.geos5.2x25.nc\nGMI_PROD_Ox   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.Ox.geos5.2x25.nc\nGMI_LOSS_PAN  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PAN.geos5.2x25.nc\nGMI_PROD_PAN  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PAN.geos5.2x25.nc\nGMI_LOSS_NPMN s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.NPMN.geos5.2x25.nc\nGMI_PROD_NPMN v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.NPMN.geos5.2x25.nc\nGMI_LOSS_IPMN s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.IPMN.geos5.2x25.nc\nGMI_PROD_IPMN v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.IPMN.geos5.2x25.nc\nGMI_LOSS_PO2  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PO2.geos5.2x25.nc\nGMI_PROD_PO2  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PO2.geos5.2x25.nc\nGMI_LOSS_PP   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PP.geos5.2x25.nc\nGMI_PROD_PP   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PP.geos5.2x25.nc\nGMI_LOSS_PPN  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PPN.geos5.2x25.nc\nGMI_PROD_PPN  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PPN.geos5.2x25.nc\nGMI_LOSS_PRN1 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PRN1.geos5.2x25.nc\nGMI_PROD_PRN1 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PRN1.geos5.2x25.nc\nGMI_LOSS_PRPE s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PRPE.geos5.2x25.nc\nGMI_PROD_PRPE v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PRPE.geos5.2x25.nc\nGMI_LOSS_PRPN s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.PRPN.geos5.2x25.nc\nGMI_PROD_PRPN v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.PRPN.geos5.2x25.nc\nGMI_LOSS_R4N1 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.R4N1.geos5.2x25.nc\nGMI_PROD_R4N1 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.R4N1.geos5.2x25.nc\nGMI_LOSS_R4N2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.R4N2.geos5.2x25.nc\nGMI_PROD_R4N2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.R4N2.geos5.2x25.nc\nGMI_LOSS_R4O2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.R4O2.geos5.2x25.nc\nGMI_PROD_R4O2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.R4O2.geos5.2x25.nc\nGMI_LOSS_R4P  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.R4P.geos5.2x25.nc\nGMI_PROD_R4P  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.R4P.geos5.2x25.nc\nGMI_LOSS_RA3P s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RA3P.geos5.2x25.nc\nGMI_PROD_RA3P v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RA3P.geos5.2x25.nc\nGMI_LOSS_RB3P s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RB3P.geos5.2x25.nc\nGMI_PROD_RB3P v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RB3P.geos5.2x25.nc\nGMI_LOSS_RCHO s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RCHO.geos5.2x25.nc\nGMI_PROD_RCHO v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RCHO.geos5.2x25.nc\nGMI_LOSS_RCO3 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RCO3.geos5.2x25.nc\nGMI_PROD_RCO3 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RCO3.geos5.2x25.nc\n#\nGMI_LOSS_RCOOH s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RCOOH.geos5.2x25.nc\nGMI_PROD_RCOOH v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RCOOH.geos5.2x25.nc\n#\nGMI_LOSS_RIO1 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RIO1.geos5.2x25.nc\nGMI_PROD_RIO1 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RIO1.geos5.2x25.nc\nGMI_LOSS_RIPA s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RIPA.geos5.2x25.nc\nGMI_PROD_RIPA v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RIPA.geos5.2x25.nc\nGMI_LOSS_RIPB s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RIPB.geos5.2x25.nc\nGMI_PROD_RIPB v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RIPB.geos5.2x25.nc\nGMI_LOSS_RIPD s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RIPD.geos5.2x25.nc\nGMI_PROD_RIPD v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RIPD.geos5.2x25.nc\nGMI_LOSS_ROH  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.ROH.geos5.2x25.nc\nGMI_PROD_ROH  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.ROH.geos5.2x25.nc\nGMI_LOSS_RP   s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.RP.geos5.2x25.nc\nGMI_PROD_RP   v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.RP.geos5.2x25.nc\nGMI_LOSS_VRO2 s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.VRO2.geos5.2x25.nc\nGMI_PROD_VRO2 v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.VRO2.geos5.2x25.nc\nGMI_LOSS_VRP  s-1   Y Y F2000-%m2-01T00:00:00 none none loss ./HcoDir/GMI/v2015-02/gmi.clim.VRP.geos5.2x25.nc\nGMI_PROD_VRP  v/v/s Y Y F2000-%m2-01T00:00:00 none none prod ./HcoDir/GMI/v2015-02/gmi.clim.VRP.geos5.2x25.nc\n#\n#==============================================================================\n# --- Spatially varying OM/OC (OMOC_RATIO) ---\n#==============================================================================\n#OMOC_DJF 1 N Y - none none OMOC ./HcoDir/OMOC/v2018-01/OMOC.DJF.01x01.nc\n#OMOC_MAM 1 N Y - none none OMOC ./HcoDir/OMOC/v2018-01/OMOC.MAM.01x01.nc\n#OMOC_JJA 1 N Y - none none OMOC ./HcoDir/OMOC/v2018-01/OMOC.JJA.01x01.nc\n#OMOC_SON 1 N Y - none none OMOC ./HcoDir/OMOC/v2018-01/OMOC.SON.01x01.nc\n#\n#==============================================================================\n# --- NOAA GMD monthly mean surface CH4 (GMD_SFC_CH4) ---\n#==============================================================================\nNOAA_GMD_CH4 ppbv N Y F%y4-%m2-01T00:00:00 none none SFC_CH4 ./HcoDir/NOAA_GMD/v2023-10/monthly.gridded.surface.methane.1975-2022.1x1.nc\n#\n#==============================================================================\n# --- CMIP6 monthly mean surface CH4 (pre 1970) (CMIP6_SFC_CH4) ---\n#==============================================================================\n#CMIP6_Sfc_CH4 ppbv N Y F%y4-%m2-01T00:00:00 none none CH4 ./HcoDir/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_%y4.2x25.nc\n#\n#==============================================================================\n# --- RRTMG (RRTMG) ---\n#==============================================================================\nMODIS_ALBDFNIR 1 N Y F2002-%m2-%d2T00:00:00 none none ALBDFNIR ./HcoDir/RRTMG/v2018-11/modis_surf_albedo.2x25.nc\nMODIS_ALBDFVIS 1 N Y F2002-%m2-%d2T00:00:00 none none ALBDFVIS ./HcoDir/RRTMG/v2018-11/modis_surf_albedo.2x25.nc\nMODIS_ALBDRNIR 1 N Y F2002-%m2-%d2T00:00:00 none none ALBDRNIR ./HcoDir/RRTMG/v2018-11/modis_surf_albedo.2x25.nc\nMODIS_ALBDRVIS 1 N Y F2002-%m2-%d2T00:00:00 none none ALBDRVIS ./HcoDir/RRTMG/v2018-11/modis_surf_albedo.2x25.nc\n#\nMODIS_EMISSIVITY_01 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band01 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_02 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band02 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_03 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band03 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_04 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band04 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_05 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band05 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_06 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band06 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_07 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band07 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_08 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band08 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_09 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band09 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_10 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band10 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_11 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band11 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_12 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band12 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_13 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band13 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_14 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band14 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_15 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band15 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\nMODIS_EMISSIVITY_16 1 N Y F2002-%m2-%d2T00:00:00 none none RTEMISS_band16 ./HcoDir/RRTMG/v2018-11/modis_emissivity.2x25.nc\n#\nTES_CLIM_CCL4  ppbv N Y - none none CCl4  ./HcoDir/RRTMG/v2018-11/species_clim_profiles.2x25.nc\nTES_CLIM_CFC11 ppbv N Y - none none CFC11 ./HcoDir/RRTMG/v2018-11/species_clim_profiles.2x25.nc\nTES_CLIM_CFC12 ppbv N Y - none none CFC12 ./HcoDir/RRTMG/v2018-11/species_clim_profiles.2x25.nc\nTES_CLIM_CFC22 ppbv N Y - none none CFC22 ./HcoDir/RRTMG/v2018-11/species_clim_profiles.2x25.nc\nTES_CLIM_CH4   ppbv N Y - none none CH4   ./HcoDir/RRTMG/v2018-11/species_clim_profiles.2x25.nc\nTES_CLIM_N2O   ppbv N Y - none none N2O   ./HcoDir/RRTMG/v2018-11/species_clim_profiles.2x25.nc\n#\n# Dynamical heating rates from a previous reference (baseline) simulation\nDynHeating Kday-1 N N F%y4-%m2-%d2T%h2:00:00 none none DynHeating ./Heating_Baseline/GEOSChem.DynHeating.%y4%m2%d2_%h2%n2z.nc4 2000-01-01T00:00:00P03:00\n#\n#==============================================================================\n# --- Surface VMR (SfcVMR) ---\n#==============================================================================\nSfcVMR_CH3Cl  ppbv N Y F%y4-%m2-01T00:00:00 none none CH3Cl  ./HcoDir/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_%y4.2x25.nc\nSfcVMR_CH2Cl2 ppbv N Y F%y4-%m2-01T00:00:00 none none CH2Cl2 ./HcoDir/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_%y4.2x25.nc\nSfcVMR_CHCl3  ppbv N Y F%y4-%m2-01T00:00:00 none none CHCl3  ./HcoDir/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_%y4.2x25.nc\nSfcVMR_CH3Br  ppbv N Y F%y4-%m2-01T00:00:00 none none CH3Br  ./HcoDir/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_%y4.2x25.nc\n#\nSfcVMR_CCl4     v/v  N Y F%y4-%m2-01T00:00:00 none none CCl4     ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_CFC113   v/v  N Y F%y4-%m2-01T00:00:00 none none CFC113   ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_CFC114   v/v  N Y F%y4-%m2-01T00:00:00 none none CFC114   ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_CFC115   v/v  N Y F%y4-%m2-01T00:00:00 none none CFC115   ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_CFC11    v/v  N Y F%y4-%m2-01T00:00:00 none none CFC11    ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_CFC12    v/v  N Y F%y4-%m2-01T00:00:00 none none CFC12    ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_CH3CCl3  v/v  N Y F%y4-%m2-01T00:00:00 none none CH3CCl3  ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_H1211    v/v  N Y F%y4-%m2-01T00:00:00 none none H1211    ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_H1301    v/v  N Y F%y4-%m2-01T00:00:00 none none H1301    ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_H2402    v/v  N Y F%y4-%m2-01T00:00:00 none none C2BR2F4  ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_HCFC141b v/v  N Y F%y4-%m2-01T00:00:00 none none HCFC141b ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_HCFC142b v/v  N Y F%y4-%m2-01T00:00:00 none none HCFC142b ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_HCFC22   v/v  N Y F%y4-%m2-01T00:00:00 none none HCFC22   ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\nSfcVMR_N2O      v/v  N Y F%y4-%m2-01T00:00:00 none none N2O      ./HcoDir/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_%y4.2x25.nc\n#\nSfcVMR_OCS ppbv N Y - none none OCS ./HcoDir/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc\nSfcVMR_H2  ppbv N Y - none none H2  ./HcoDir/SfcFix/v2019-12/surface_VMR_H2.2x25.nc\n#\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#==============================================================================\nsurf_salinity 1 N Y - none none s_mn ./HcoDir/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc\n#\nsurf_iodide   1 Y Y F1970-%m2-01T00:00:00 none none Ensemble_Monthly_mean ./HcoDir/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc\n#\n###############################################################################\n###\n### HEMCO Scale Factors (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- annual scale factors ---\n#==============================================================================\n# Need DC0360xPC0181_CFnnnnx6C.bin\nLIQFUEL_THISYR    1 N Y F%y4-01-01T00:00:00  none none COscalar  ./HcoDir/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\nLIQFUEL_1985      1 N Y F1985-01-01T00:00:00 none none COscalar  ./HcoDir/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\n#\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\nEDGAR_TODNOX 1 N Y F2000-01-01T%h2:00:00 none none NOXscale ./HcoDir/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc\nEDGAR_TODNOX_UNDO 1 N Y F2000-01-01T%h2:00:00 none none NOXscale ./HcoDir/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc\n#\n#==============================================================================\n# --- Seasonal scale factors ---\n#==============================================================================\n# --- From GEIA ---\nGEIA_SEASON_NOX 1 Y Y F1985-%m2-01T00:00:00 none none NOXrat ./HcoDir/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc\nGEIA_SEASON_SO2 1 Y Y F1985-%m2-01T00:00:00 none none SO2rat ./HcoDir/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc\n#\n# --- From Bromocarbons ---\nBROMOCARB_SEASON 1 Y Y F2000-%m2-01T00:00:00 none none CHXBRY_scale ./HcoDir/BROMINE/v2015-02/BromoCarb_Season.nc\n#\n# --- From EDGAR 4.3.1 ---\nPOW 1 Y Y F2010-%m2-01T00:00:00 none none POW ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nENG 1 Y Y F2010-%m2-01T00:00:00 none none ENG ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nIND 1 Y Y F2010-%m2-01T00:00:00 none none IND ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nTRO 1 Y Y F2010-%m2-01T00:00:00 none none TRO ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nTNG 1 Y Y F2010-%m2-01T00:00:00 none none TNG ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nRCO 1 Y Y F2010-%m2-01T00:00:00 none none RCO ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nPPA 1 Y Y F2010-%m2-01T00:00:00 none none PPA ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nAGR 1 Y Y F2010-%m2-01T00:00:00 none none AGR ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nAWB 1 Y Y F2010-%m2-01T00:00:00 none none AWB ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nSOL 1 Y Y F2010-%m2-01T00:00:00 none none SOL ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nSWD 1 Y Y F2010-%m2-01T00:00:00 none none SWD ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nFFF 1 Y Y F2010-%m2-01T00:00:00 none none FFF ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\n#\n#==============================================================================\n# --- NEI 2005 scale factors ---\n#==============================================================================\nNEI99_DOW_NOX  1 D N F1999-%m2-01T00:00:00 none none NOX  ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_CO   1 D N F1999-%m2-01T00:00:00 none none CO   ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_ALK4 1 D N F1999-%m2-01T00:00:00 none none ALK4 ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_ACET 1 D N F1999-%m2-01T00:00:00 none none ACET ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_MEK  1 D N F1999-%m2-01T00:00:00 none none MEK  ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_PRPE 1 D N F1999-%m2-01T00:00:00 none none PRPE ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_C3H8 1 D N F1999-%m2-01T00:00:00 none none C3H8 ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_C2H6 1 D N F1999-%m2-01T00:00:00 none none C2H6 ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_SO2  1 D N F1999-%m2-01T00:00:00 none none SO2  ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_SO4  1 D N F1999-%m2-01T00:00:00 none none SO4  ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_MSA  1 D N F1999-%m2-01T00:00:00 none none MSA  ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_BCPI 1 D N F1999-%m2-01T00:00:00 none none BCPI ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\nNEI99_DOW_OCPI 1 D N F1999-%m2-01T00:00:00 none none OCPI ./HcoDir/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc\n#\n#==============================================================================\n# --- CEDS vertical partitioning ---\n#==============================================================================\nENERGY_LEVS   1 N Y - none none g_energy   ./HcoDir/VerticalScaleFactors/v2021-05/gc_layers.nc\nINDUSTRY_LEVS 1 N Y - none none g_industry ./HcoDir/VerticalScaleFactors/v2021-05/gc_layers.nc\nSHIP_LEVS     1 N Y - none none cmv_c3     ./HcoDir/VerticalScaleFactors/v2021-05/gc_layers.nc\n#\n###############################################################################\n###\n### Masks (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# Country/region masks\n#==============================================================================\nCANADA_MASK 1 N Y - none none MASK ./HcoDir/MASKS/v2018-09/Canada_mask.geos.1x1.nc\nCONUS_MASK  1 N Y - none none MASK ./HcoDir/MASKS/v2018-09/CONUS_Mask.01x01.nc\nCHINA_MASK  1 N Y - none none MASK ./HcoDir/MASKS/v2018-09/China_mask.generic.1x1.nc\nINDIA_MASK  1 N Y - none none MASK ./HcoDir/MASKS/v2019-05/India_mask.generic.1x1.nc\nAFRICA_MASK 1 N Y - none none LANDMASK ./HcoDir/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc\n#\n%%\n\nDerivedExports%%\n# ---------|---------|--------------------------------------------|\n#  Export  | Primary |_________________ Mask _____________________|\n#  Name    |  Name   |    Name    |           Expression          |\n# ---------|---------|------------|-------------------------------|\n# ---------|---------|------------|-------------------------------|\n${RUNDIR_MET_EXTDATA_DERIVED_EXPORTS}\n%%\n"
  },
  {
    "path": "run/GCHP/ExtData.rc.templates/ExtData.rc.tagO3",
    "content": "Ext_AllowExtrap: .true.\n#\nPrimaryExports%%\n#--------|-------|------|------------|---------------|--------|-------|---------------------|\n# Export |       |      |            |___ Refresh ___|____ Factors ___|___ External File ___|\n# Name   | Units | Clim |Conservative| Time Template | Offset | Scale | Variable | Template |\n#--------|-------|------|------------|---------------|--------|-------|----------|----------|\n#\n# Notes:\n# Units should be in single quotes if they contain whitespace\n# Climatology should be Y if the file contains monthly climatology; otherwise it should be N\n# Conservative should be Y if units imply mass conservation dependency on regrid method (e.g. value per area)\n# Refresh Time Template should be:\n#    1. - if the file contains time-invariant constants\n#    2. prefixed with F if no time interpolation between data reads (F = fixed)\n#    3. 0 if data should be kept up-to-date at all times\n#    4. 0:HHMMSS if data occurs in file with frequency HHMMSS and should be updated at that frequency\n#    5. %y4-%m2-%d2T%h2:00:00, with any tokens replaced by appropriate constant time value, if multiple time\n#       values are in the same file. Note that including an F prefix indicates the data should be treated\n#       as constant until the next refresh time. Omission of the F prefix will time-interpolate between\n#       the values.\n# Minimize whitespace wherever possible to avoid surpassing the ESMF read buffer character limit,\n# applicable only for uncommented lines.\n#\n###############################################################################\n###\n### Meteorology data\n###\n###############################################################################\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS}\n#\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n# Not used but included in Chem_Registry.rc import list\n#==============================================================================\nFLASH_DENS 1 N N - none none LDENS /dev/null\nCONV_DEPTH 1 N N - none none CTH   /dev/null\n\n###############################################################################\n###\n### Land data (not handled by HEMCO)\n###\n###############################################################################\n#\n#==============================================================================\n# Olson land types\n#==============================================================================\n# Use conservative fraction regridding to extract land type fraction\nOLSON00 1 N F;0  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON01 1 N F;1  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON02 1 N F;2  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON03 1 N F;3  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON04 1 N F;4  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON05 1 N F;5  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON06 1 N F;6  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON07 1 N F;7  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON08 1 N F;8  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON09 1 N F;9  - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON10 1 N F;10 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON11 1 N F;11 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON12 1 N F;12 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON13 1 N F;13 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON14 1 N F;14 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON15 1 N F;15 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON16 1 N F;16 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON17 1 N F;17 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON18 1 N F;18 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON19 1 N F;19 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON20 1 N F;20 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON21 1 N F;21 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON22 1 N F;22 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON23 1 N F;23 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON24 1 N F;24 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON25 1 N F;25 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON26 1 N F;26 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON27 1 N F;27 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON28 1 N F;28 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON29 1 N F;29 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON30 1 N F;30 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON31 1 N F;31 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON32 1 N F;32 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON33 1 N F;33 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON34 1 N F;34 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON35 1 N F;35 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON36 1 N F;36 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON37 1 N F;37 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON38 1 N F;38 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON39 1 N F;39 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON40 1 N F;40 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON41 1 N F;41 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON42 1 N F;42 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON43 1 N F;43 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON44 1 N F;44 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON45 1 N F;45 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON46 1 N F;46 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON47 1 N F;47 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON48 1 N F;48 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON49 1 N F;49 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON50 1 N F;50 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON51 1 N F;51 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON52 1 N F;52 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON53 1 N F;53 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON54 1 N F;54 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON55 1 N F;55 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON56 1 N F;56 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON57 1 N F;57 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON58 1 N F;58 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON59 1 N F;59 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON60 1 N F;60 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON61 1 N F;61 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON62 1 N F;62 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON63 1 N F;63 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON64 1 N F;64 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON65 1 N F;65 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON66 1 N F;66 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON67 1 N F;67 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON68 1 N F;68 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON69 1 N F;69 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON70 1 N F;70 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON71 1 N F;71 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON72 1 N F;72 - none none OLSON ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n#\n# Alternatively read files containing land type masks. This implementation needs further testing to assess relative performance.\n#OLSON00 1 N Y - none none LANDTYPE00 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON01 1 N Y - none none LANDTYPE01 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON02 1 N Y - none none LANDTYPE02 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON03 1 N Y - none none LANDTYPE03 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON04 1 N Y - none none LANDTYPE04 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON05 1 N Y - none none LANDTYPE05 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON06 1 N Y - none none LANDTYPE06 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON07 1 N Y - none none LANDTYPE07 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON08 1 N Y - none none LANDTYPE08 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON09 1 N Y - none none LANDTYPE09 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON10 1 N Y - none none LANDTYPE10 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON11 1 N Y - none none LANDTYPE11 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON12 1 N Y - none none LANDTYPE12 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON13 1 N Y - none none LANDTYPE13 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON14 1 N Y - none none LANDTYPE14 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON15 1 N Y - none none LANDTYPE15 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON16 1 N Y - none none LANDTYPE16 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON17 1 N Y - none none LANDTYPE17 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON18 1 N Y - none none LANDTYPE18 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON19 1 N Y - none none LANDTYPE19 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON20 1 N Y - none none LANDTYPE20 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON21 1 N Y - none none LANDTYPE21 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON22 1 N Y - none none LANDTYPE22 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON23 1 N Y - none none LANDTYPE23 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON24 1 N Y - none none LANDTYPE24 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON25 1 N Y - none none LANDTYPE25 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON26 1 N Y - none none LANDTYPE26 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON27 1 N Y - none none LANDTYPE27 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON28 1 N Y - none none LANDTYPE28 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON29 1 N Y - none none LANDTYPE29 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON30 1 N Y - none none LANDTYPE30 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON31 1 N Y - none none LANDTYPE31 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON32 1 N Y - none none LANDTYPE32 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON33 1 N Y - none none LANDTYPE33 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON34 1 N Y - none none LANDTYPE34 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON35 1 N Y - none none LANDTYPE35 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON36 1 N Y - none none LANDTYPE36 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON37 1 N Y - none none LANDTYPE37 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON38 1 N Y - none none LANDTYPE38 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON39 1 N Y - none none LANDTYPE39 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON40 1 N Y - none none LANDTYPE40 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON41 1 N Y - none none LANDTYPE41 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON42 1 N Y - none none LANDTYPE42 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON43 1 N Y - none none LANDTYPE43 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON44 1 N Y - none none LANDTYPE44 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON45 1 N Y - none none LANDTYPE45 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON46 1 N Y - none none LANDTYPE46 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON47 1 N Y - none none LANDTYPE47 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON48 1 N Y - none none LANDTYPE48 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON49 1 N Y - none none LANDTYPE49 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON50 1 N Y - none none LANDTYPE50 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON51 1 N Y - none none LANDTYPE51 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON52 1 N Y - none none LANDTYPE52 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON53 1 N Y - none none LANDTYPE53 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON54 1 N Y - none none LANDTYPE54 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON55 1 N Y - none none LANDTYPE55 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON56 1 N Y - none none LANDTYPE56 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON57 1 N Y - none none LANDTYPE57 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON58 1 N Y - none none LANDTYPE58 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON59 1 N Y - none none LANDTYPE59 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON60 1 N Y - none none LANDTYPE60 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON61 1 N Y - none none LANDTYPE61 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON62 1 N Y - none none LANDTYPE62 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON63 1 N Y - none none LANDTYPE63 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON64 1 N Y - none none LANDTYPE64 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON65 1 N Y - none none LANDTYPE65 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON66 1 N Y - none none LANDTYPE66 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON67 1 N Y - none none LANDTYPE67 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON68 1 N Y - none none LANDTYPE68 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON69 1 N Y - none none LANDTYPE69 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON70 1 N Y - none none LANDTYPE70 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON71 1 N Y - none none LANDTYPE71 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#OLSON72 1 N Y - none none LANDTYPE72 ./HcoDir/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc\n#\n#==============================================================================\n# Yuan-processed MODIS Leaf Area Index\n#==============================================================================\n#\n# Use file with land type stored as 3rd dimension to speed up file read\nXLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI ./HcoDir/Yuan_XLAI/v2021-06/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n#\n###############################################################################\n###\n### HEMCO Non-Emissions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n#\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\nTIMEZONES count Y V 2017-%m2-01T00:00:00 none none UTC_OFFSET ./HcoDir/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc\n#\n#==============================================================================\n#--- Prod/Loss rates from the fullchem simulation ---\n#==============================================================================\nO3_PROD  1  N Y F%y4-%m2-01T00:00:00 none none Prod_Ox ./HcoDir/GCClassic_Output/14.0.0/%y4/GEOSChem.ProdLoss.%y4%m201_0000z.nc4\nO3_LOSS  1  N Y F%y4-%m2-01T00:00:00 none none Loss_Ox ./HcoDir/GCClassic_Output/14.0.0/%y4/GEOSChem.ProdLoss.%y4%m201_0000z.nc4\n#\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#==============================================================================\nsurf_salinity 1 N Y - none none s_mn ./HcoDir/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc\n#\nsurf_iodide   1 Y Y F1970-%m2-01T00:00:00 none none Ensemble_Monthly_mean ./HcoDir/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc\n#\n###############################################################################\n###\n### HEMCO Scale Factors (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n###############################################################################\n###\n### Masks (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n%%\n\nDerivedExports%%\n# ---------|---------|--------------------------------------------|\n#  Export  | Primary |_________________ Mask _____________________|\n#  Name    |  Name   |    Name    |           Expression          |\n# ---------|---------|------------|-------------------------------|\n# ---------|---------|------------|-------------------------------|\n%%\n"
  },
  {
    "path": "run/GCHP/ExtData2G.yaml.templates/extdata.yaml.TransportTracers",
    "content": "######################################################################\nCollections:\n######################################################################\n  #-------------------------------------------------------------------\n  # Meteorology collections\n  #-------------------------------------------------------------------\n  MERRA2.A3dyn.05x0625.nc4:\n    template: ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3dyn.05x0625.nc4\n  MERRA2.I3.05x0625.nc4:\n    template: ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\n  MERRA2.A1.05x0625.nc4:\n    template: ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n  MERRA2.A3cld.05x0625.nc4:\n    template: ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\n  MERRA2.A3mstC.05x0625.nc4:\n    template: ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstC.05x0625.nc4\n  MERRA2.A3mstE.05x0625.nc4:\n    template: ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstE.05x0625.nc4\n  MERRA2.20150101.CN.05x0625.nc4:\n    template: ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\n\n  #-------------------------------------------------------------------\n  # Land map and LAI collections\n  #-------------------------------------------------------------------\n  Olson_2001_Land_Map.025x025.generic.nc:\n    template: ./ChemDir/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n  Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc:\n    template: ./HcoDir/Yuan_XLAI/v2021-06/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n\n  #-------------------------------------------------------------------\n  # SF6, CO, and Rn222 emissions collections\n  #-------------------------------------------------------------------\n  EDGAR_v42_SF6_IPCC_2.generic.01x01.nc:\n    template: ./HcoDir/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc\n  EDGAR_v43.CO.ENG.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc\n  EDGAR_v43.CO.FFF.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc\n  EDGAR_v43.CO.IND.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc\n  EDGAR_v43.CO.POW.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc\n  EDGAR_v43.CO.PPA.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc\n  EDGAR_v43.CO.RCO.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc\n  EDGAR_v43.CO.SWD.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc\n  EDGAR_v43.CO.TNG.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc\n  EDGAR_v43.CO.TRO.0.1x0.1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc\n  CEDS_CO_0.1x0.1_%y4.nc:\n    template: ./HcoDir/CEDS/v2024-06/%y4/CEDS_CO_0.1x0.1_%y4.nc\n  Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc:\n    template: ./HcoDir/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc\n\n  #-------------------------------------------------------------------\n  # Timezones collection\n  #-------------------------------------------------------------------\n  timezones_vohra_2017_0.1x0.1.nc:\n    template: ./HcoDir/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc\n\n  #-------------------------------------------------------------------\n  # Scale factors collections\n  #-------------------------------------------------------------------\n  AnnualScalar.geos.1x1.nc:\n    template: ./HcoDir/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\n  EDGAR_v43.Seasonal.1x1.nc:\n    template: ./HcoDir/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\n\n######################################################################\n# Samplings (rules for data read and interpolation)\n######################################################################\nSamplings:\n  #-------------------------------------------------------------------\n  # Sampling rules for dynamic meteorology\n  #-------------------------------------------------------------------\n  offset_1hr30min_nointerp:\n    update_offset: PT1H30M\n    time_interpolation: False\n\n  offset_30min_nointerp:\n    update_offset: PT30M\n    time_interpolation: False\n\n  offset_10min_interp:\n    update_offset: PT10M\n    time_interpolation: True\n\n  #-------------------------------------------------------------------\n  # Sampling rule for constants\n  #-------------------------------------------------------------------\n  constant:\n    extrapolation: persist_closest\n\n  #-------------------------------------------------------------------\n  # Sampling rule for monthly and daily\n  #-------------------------------------------------------------------\n  monthly_nointerp:\n    update_frequency: P1M\n    extrapolation: clim\n    time_interpolation: False\n    update_reference_time: '0'\n\n  annual_nointerp:\n    update_frequency: P1Y\n    extrapolation: clim\n    time_interpolation: False\n    update_reference_time: '0'\n\n  #-------------------------------------------------------------------\n  # Sampling rule for daily with interpolation\n  #-------------------------------------------------------------------\n  daily_interp:\n    update_frequency: PT24H\n    time_interpolation: True\n    update_reference_time: '0'\n\n######################################################################\n# Exports (each entry is equivalent to one row in ExtData.rc)\n######################################################################\nExports:\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.A3dyn.05x0625.nc4:\n  #-------------------------------------------------------------------\n  DTRAIN:\n    collection: MERRA2.A3dyn.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: DTRAIN\n  OMEGA:\n    collection: MERRA2.A3dyn.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: OMEGA\n  RH:\n    collection: MERRA2.A3dyn.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: RH\n  UA;VA:\n    collection: MERRA2.A3dyn.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: U;V\n\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.I3.05x0625.nc4:\n  #-------------------------------------------------------------------\n  PS1:\n    collection: MERRA2.I3.05x0625.nc4\n    linear_transformation:\n      - 0.0\n      - 0.01\n    regrid: CONSERVE\n    variable: PS\n  PS2:\n    collection: MERRA2.I3.05x0625.nc4\n    linear_transformation:\n      - 0.0\n      - 0.01\n    regrid: CONSERVE\n    sample: offset_10min_interp\n    variable: PS\n  SPHU1:\n    collection: MERRA2.I3.05x0625.nc4\n    regrid: CONSERVE\n    variable: QV\n  SPHU2:\n    collection: MERRA2.I3.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_10min_interp\n    variable: QV\n  TMPU1:\n    collection: MERRA2.I3.05x0625.nc4\n    regrid: CONSERVE\n    variable: T\n  TMPU2:\n    collection: MERRA2.I3.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_10min_interp\n    variable: T\n\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.A1.05x0625.nc4:\n  #-------------------------------------------------------------------\n  ALBD:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: ALBEDO\n  CLDFRC:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: CLDTOT\n  EFLUX:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: EFLUX\n  EVAP:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: EVAP\n  FRSEAICE:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: FRSEAICE\n  FRSNO:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: FRSNO\n  GRN:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: GRN\n  GWETROOT:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: GWETROOT\n  GWETTOP:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: GWETTOP\n  HFLUX:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: HFLUX\n  LAI:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: LAI\n  PARDF:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PARDF\n  PARDR:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PARDR\n  PBLH:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PBLH\n  PRECANV:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PRECANV\n  PRECCON:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PRECCON\n  PRECLSC:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PRECLSC\n  PRECSNO:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PRECSNO\n  PRECTOT:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: PRECTOT\n  QV2M:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: QV2M\n  RADSWG:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SWGDN\n  SEAICE00:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE00\n  SEAICE10:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE10\n  SEAICE20:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE20\n  SEAICE30:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE30\n  SEAICE40:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE40\n  SEAICE50:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE50\n  SEAICE60:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE60\n  SEAICE70:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE70\n  SEAICE80:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE80\n  SEAICE90:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SEAICE90\n  SLP:\n    collection: MERRA2.A1.05x0625.nc4\n    linear_transformation:\n      - 0.0\n      - 0.01\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SLP\n  SNODP:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SNODP\n  SNOMAS:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: SNOMAS\n  TO3:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: TO3\n  TROPP:\n    collection: MERRA2.A1.05x0625.nc4\n    linear_transformation:\n      - 0.0\n      - 0.01\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: TROPPT\n  TS:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: T2M\n  TSKIN:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: TS\n  U10M:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: U10M\n  USTAR:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: USTAR\n  V10M:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: V10M\n  Z0:\n    collection: MERRA2.A1.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_30min_nointerp\n    variable: Z0M\n\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.A3cld.05x0625.nc4:\n  #-------------------------------------------------------------------\n  CLDF:\n    collection: MERRA2.A3cld.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: CLOUD\n  OPTDEP:\n    collection: MERRA2.A3cld.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: OPTDEPTH\n  QI:\n    collection: MERRA2.A3cld.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: QI\n  QL:\n    collection: MERRA2.A3cld.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: QL\n  TAUCLI:\n    collection: MERRA2.A3cld.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: TAUCLI\n  TAUCLW:\n    collection: MERRA2.A3cld.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: TAUCLW\n\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.A3mstC.05x0625.nc4:\n  #-------------------------------------------------------------------\n  REEVAPCN:\n    collection: MERRA2.A3mstC.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: REEVAPCN\n  REEVAPLS:\n    collection: MERRA2.A3mstC.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: REEVAPLS\n  DQRCU:\n    collection: MERRA2.A3mstC.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: DQRCU\n  DQRLSAN:\n    collection: MERRA2.A3mstC.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: DQRLSAN\n\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.A3mstE.05x0625.nc4:\n  #-------------------------------------------------------------------\n  CMFMC:\n    collection: MERRA2.A3mstE.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: CMFMC\n  PFICU:\n    collection: MERRA2.A3mstE.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: PFICU\n  PFILSAN:\n    collection: MERRA2.A3mstE.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: PFILSAN\n  PFLCU:\n    collection: MERRA2.A3mstE.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: PFLCU\n  PFLLSAN:\n    collection: MERRA2.A3mstE.05x0625.nc4\n    regrid: CONSERVE\n    sample: offset_1hr30min_nointerp\n    variable: PFLLSAN\n\n  #-------------------------------------------------------------------\n  # Fields from MERRA2.20150101.CN.05x0625.nc4:\n  #-------------------------------------------------------------------\n  FRLAKE:\n    collection: MERRA2.20150101.CN.05x0625.nc4\n    regrid: CONSERVE\n    sample: constant\n    variable: FRLAKE\n  FRLAND:\n    collection: MERRA2.20150101.CN.05x0625.nc4\n    regrid: CONSERVE\n    sample: constant\n    variable: FRLAND\n  FRLANDIC:\n    collection: MERRA2.20150101.CN.05x0625.nc4\n    regrid: CONSERVE\n    sample: constant\n    variable: FRLANDIC\n  FROCEAN:\n    collection: MERRA2.20150101.CN.05x0625.nc4\n    regrid: CONSERVE\n    sample: constant\n    variable: FROCEAN\n  OCEAN_MASK:\n    collection: MERRA2.20150101.CN.05x0625.nc4\n    regrid: CONSERVE\n    sample: constant\n    variable: FROCEAN\n  PHIS:\n    collection: MERRA2.20150101.CN.05x0625.nc4\n    regrid: CONSERVE\n    sample: constant\n    variable: PHIS\n\n  #-------------------------------------------------------------------\n  # Fields from Olson land map\n  #-------------------------------------------------------------------\n  OLSON00:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;0\n    sample: constant\n    variable: OLSON\n  OLSON01:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;1\n    sample: constant\n    variable: OLSON\n  OLSON02:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;2\n    sample: constant\n    variable: OLSON\n  OLSON03:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;3\n    sample: constant\n    variable: OLSON\n  OLSON04:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;4\n    sample: constant\n    variable: OLSON\n  OLSON05:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;5\n    sample: constant\n    variable: OLSON\n  OLSON06:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;6\n    sample: constant\n    variable: OLSON\n  OLSON07:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;7\n    sample: constant\n    variable: OLSON\n  OLSON08:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;8\n    sample: constant\n    variable: OLSON\n  OLSON09:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;9\n    sample: constant\n    variable: OLSON\n  OLSON10:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;10\n    sample: constant\n    variable: OLSON\n  OLSON11:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;11\n    sample: constant\n    variable: OLSON\n  OLSON12:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;12\n    sample: constant\n    variable: OLSON\n  OLSON13:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;13\n    sample: constant\n    variable: OLSON\n  OLSON14:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;14\n    sample: constant\n    variable: OLSON\n  OLSON15:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;15\n    sample: constant\n    variable: OLSON\n  OLSON16:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;16\n    sample: constant\n    variable: OLSON\n  OLSON17:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;17\n    sample: constant\n    variable: OLSON\n  OLSON18:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;18\n    sample: constant\n    variable: OLSON\n  OLSON19:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;19\n    sample: constant\n    variable: OLSON\n  OLSON20:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;20\n    sample: constant\n    variable: OLSON\n  OLSON21:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;21\n    sample: constant\n    variable: OLSON\n  OLSON22:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;22\n    sample: constant\n    variable: OLSON\n  OLSON23:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;23\n    sample: constant\n    variable: OLSON\n  OLSON24:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;24\n    sample: constant\n    variable: OLSON\n  OLSON25:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;25\n    sample: constant\n    variable: OLSON\n  OLSON26:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;26\n    sample: constant\n    variable: OLSON\n  OLSON27:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;27\n    sample: constant\n    variable: OLSON\n  OLSON28:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;28\n    sample: constant\n    variable: OLSON\n  OLSON29:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;29\n    sample: constant\n    variable: OLSON\n  OLSON30:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;30\n    sample: constant\n    variable: OLSON\n  OLSON31:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;31\n    sample: constant\n    variable: OLSON\n  OLSON32:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;32\n    sample: constant\n    variable: OLSON\n  OLSON33:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;33\n    sample: constant\n    variable: OLSON\n  OLSON34:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;34\n    sample: constant\n    variable: OLSON\n  OLSON35:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;35\n    sample: constant\n    variable: OLSON\n  OLSON36:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;36\n    sample: constant\n    variable: OLSON\n  OLSON37:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;37\n    sample: constant\n    variable: OLSON\n  OLSON38:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;38\n    sample: constant\n    variable: OLSON\n  OLSON39:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;39\n    sample: constant\n    variable: OLSON\n  OLSON40:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;40\n    sample: constant\n    variable: OLSON\n  OLSON41:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;41\n    sample: constant\n    variable: OLSON\n  OLSON42:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;42\n    sample: constant\n    variable: OLSON\n  OLSON43:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;43\n    sample: constant\n    variable: OLSON\n  OLSON44:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;44\n    sample: constant\n    variable: OLSON\n  OLSON45:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;45\n    sample: constant\n    variable: OLSON\n  OLSON46:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;46\n    sample: constant\n    variable: OLSON\n  OLSON47:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;47\n    sample: constant\n    variable: OLSON\n  OLSON48:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;48\n    sample: constant\n    variable: OLSON\n  OLSON49:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;49\n    sample: constant\n    variable: OLSON\n  OLSON50:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;50\n    sample: constant\n    variable: OLSON\n  OLSON51:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;51\n    sample: constant\n    variable: OLSON\n  OLSON52:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;52\n    sample: constant\n    variable: OLSON\n  OLSON53:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;53\n    sample: constant\n    variable: OLSON\n  OLSON54:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;54\n    sample: constant\n    variable: OLSON\n  OLSON55:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;55\n    sample: constant\n    variable: OLSON\n  OLSON56:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;56\n    sample: constant\n    variable: OLSON\n  OLSON57:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;57\n    sample: constant\n    variable: OLSON\n  OLSON58:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;58\n    sample: constant\n    variable: OLSON\n  OLSON59:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;59\n    sample: constant\n    variable: OLSON\n  OLSON60:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;60\n    sample: constant\n    variable: OLSON\n  OLSON61:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;61\n    sample: constant\n    variable: OLSON\n  OLSON62:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;62\n    sample: constant\n    variable: OLSON\n  OLSON63:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;63\n    sample: constant\n    variable: OLSON\n  OLSON64:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;64\n    sample: constant\n    variable: OLSON\n  OLSON65:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;65\n    sample: constant\n    variable: OLSON\n  OLSON66:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;66\n    sample: constant\n    variable: OLSON\n  OLSON67:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;67\n    sample: constant\n    variable: OLSON\n  OLSON68:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;68\n    sample: constant\n    variable: OLSON\n  OLSON69:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;69\n    sample: constant\n    variable: OLSON\n  OLSON70:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;70\n    sample: constant\n    variable: OLSON\n  OLSON71:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;71\n    sample: constant\n    variable: OLSON\n  OLSON72:\n    collection: Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;72\n    sample: constant\n    variable: OLSON\n\n  #-------------------------------------------------------------------\n  # Fields from Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc:\n  #-------------------------------------------------------------------\n  XLAIMULTI:\n    collection: Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n    regrid: CONSERVE\n    sample: daily_interp\n    variable: XLAIMULTI\n\n  #-------------------------------------------------------------------\n  # Fields from EDGAR_v42_SF6_IPCC_2.generic.01x01.nc:\n  #-------------------------------------------------------------------\n  EDGAR_SF6:\n    collection: EDGAR_v42_SF6_IPCC_2.generic.01x01.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_sf6\n\n  #-------------------------------------------------------------------\n  # Fields from EDGAR_v43.CO.***.0.1x0.1.nc:\n  #-------------------------------------------------------------------\n  EDGAR_CO_25_ENG:\n    collection: EDGAR_v43.CO.ENG.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_FFF:\n    collection: EDGAR_v43.CO.FFF.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_IND:\n    collection: EDGAR_v43.CO.IND.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_POW:\n    collection: EDGAR_v43.CO.POW.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_PPA:\n    collection: EDGAR_v43.CO.PPA.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_RCO:\n    collection: EDGAR_v43.CO.RCO.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_SWD:\n    collection: EDGAR_v43.CO.SWD.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_TNG:\n    collection: EDGAR_v43.CO.TNG.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n  EDGAR_CO_25_TRO:\n    collection: EDGAR_v43.CO.TRO.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: emi_co\n\n  #-------------------------------------------------------------------\n  # Fields from CEDS_CO_0.1x0.1_%y4.nc:\n  #-------------------------------------------------------------------\n  CEDS_CO_25_AGR:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_agr\n  CEDS_CO_25_ENE:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_ene\n  CEDS_CO_25_IND:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_ind\n  CEDS_CO_25_RCO:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_rco\n  CEDS_CO_25_SHP:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_shp\n  CEDS_CO_25_SLV:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_slv\n  CEDS_CO_25_TRA:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_tra\n  CEDS_CO_25_WST:\n    collection: CEDS_CO_0.1x0.1_%y4.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: CO_wst\n\n  #-------------------------------------------------------------------\n  # Fields from Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc:\n  #-------------------------------------------------------------------\n  ZHANG_Rn222_EMIS:\n    collection: Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: rnemis\n\n  #-------------------------------------------------------------------\n  # Fields from timezones_vohra_2017_0.1x0.1.nc:\n  #-------------------------------------------------------------------\n  TIMEZONES:\n    collection: timezones_vohra_2017_0.1x0.1.nc\n    regrid: VOTE\n    sample: monthly_nointerp\n    variable: UTC_OFFSET\n\n  #-------------------------------------------------------------------\n  # Fields from AnnualScalar.geos.1x1.nc:\n  #-------------------------------------------------------------------\n  LIQFUEL_2008_2010:\n    collection: AnnualScalar.geos.1x1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: COscalar\n  LIQFUEL_THISYR:\n    collection: AnnualScalar.geos.1x1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: COscalar\n\n  #-------------------------------------------------------------------\n  # Fields from EDGAR_v43.Seasonal.1x1.nc:\n  #-------------------------------------------------------------------\n  AGR:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: annual_nointerp\n    variable: AGR\n  AWB:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: AW\n  ENG:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: ENG\n  FFF:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: FFF\n  IND:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: IND\n  POW:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: POW\n  PPA:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: PPA\n  RCO:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: RCO\n  SOL:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: SOL\n  SWD:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: SWD\n  TNG:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: TNG\n  TRO:\n    collection: EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: monthly_nointerp\n    variable: TRO\n\n  #-------------------------------------------------------------------\n  # Fields from /dev/null\n  #-------------------------------------------------------------------\n  CONV_DEPTH:\n    collection: /dev/null\n    variable: CONV_DEPTH\n  FLASH_DENS:\n    collection: /dev/null\n    variable: FLASH_DENS\n"
  },
  {
    "path": "run/GCHP/GCHP.rc.template",
    "content": "# Atmospheric Model Configuration Parameters\n# ------------------------------------------\nNX: 1\nNY: 6\n\nGCHP.GRID_TYPE: Cubed-Sphere\nGCHP.GRIDNAME: PE24x144-CF\nGCHP.NF: 6\nGCHP.IM_WORLD: 24\nGCHP.IM: 24\nGCHP.JM: 144\nGCHP.LM: 72\n\n# For stretched grid\n#GCHP.STRETCH_FACTOR: 2.0\n#GCHP.TARGET_LON: 242.0\n#GCHP.TARGET_LAT: 37.0\n\n# For FV advection do not use grid comp name prefix\nIM: 24\nJM: 144\nLM: 72\n\nGEOSChem_CTM: 1\n\n# Settings for vertical direction of imported met-fields\n# (false for processed files, true for raw GMAO files)\n#-----------------------------------------------------------------------\nMET_WIND_IS_TOP_DOWN: ${RUNDIR_MET_WIND_IS_TOP_DOWN}\nMET_HUMIDITY_IS_TOP_DOWN: ${RUNDIR_MET_HUMIDITY_IS_TOP_DOWN}\nMET_NONADVECTION_IS_TOP_DOWN: ${RUNDIR_MET_NONADVECTION_IS_TOP_DOWN}\n\n# Settings for using mass flux in advection\n# Note: mass flux top down setting not used if not using mass fluxes\n#-----------------------------------------------------------------------\nIMPORT_MASS_FLUX_FROM_EXTDATA: ${RUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA}\nMET_MASS_FLUX_IS_TOP_DOWN: ${RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN}\n\n# Toggle to use total pressure (1) or dry pressure (0) in advection\n#-----------------------------------------------------------------------\nUSE_TOTAL_AIR_PRESSURE_IN_ADVECTION: ${RUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION}\n\n# Use native mass fluxes (0) or convert to dry air mass flux (1)\n# This switch is ignored if computing mass fluxes from winds.\n#-----------------------------------------------------------------------\nCORRECT_MASS_FLUX_FOR_HUMIDITY: 1\n\n# Print mass time series in advection (0=false, 1=true)\n#-----------------------------------------------------------------------\nPRINT_MASS_IN_ADVECTION: 0\n\n# Use ExtData2G? (.true. or .false.)\n#-----------------------------------------------------------------------\nUSE_EXTDATA2G: .false.\n\n# Use when running a perturbation\n# scenario with RRTMG's FDH or SEFDH\n# options. Set to 0 to CALCULATE dynamical\n# heating rates, set to 1 to READ rates\n# calculated from the reference scenario\nIMPORT_DYN_HEATING: 0\n\nAdvCore_Advection: 1\n\tDYCORE: OFF\n  HEARTBEAT_DT: 600\n\nSOLAR_DT:    600\nIRRAD_DT:    600\nRUN_DT:      600\nGCHPchem_DT: 1200\nRRTMG_DT:    10800\nDYNAMICS_DT: 600\n\nSOLARAvrg: 0\nIRRADAvrg: 0\n\nGCHPchem_REFERENCE_TIME: 121000\n\n# Print Resource Parameters (0: Non-Default values, 1: ALL values)\n#-----------------------------------------------------------------\nPRINTRC: 0\n\nPARALLEL_READFORCING: 0\n\n# Set the number of parallel I/O processes to use when reading restarts.\n# Try something from 6 to 24 if reading a large restart file and have\n# poor performance\n#---------------------------------------------------------------\nNUM_READERS: 1\n\n# Set the number of parallel I/O processes to use when writing restarts.\n# Try something from 6 to 24 if writing a large restart file and have\n# poor performance\n#---------------------------------------------------------------\nNUM_WRITERS: 1\n\n# Active observer when desired\n# ----------------------------\nBKG_FREQUENCY: 0\n\n# Enable bootstrapping restart file fields missing from restart\n#-----------------------------------------------------------------\nMAPL_ENABLE_BOOTSTRAP: YES\n\n# Require all species in initial restart file (1 = yes; else no)\n#-----------------------------------------------------------------\nINITIAL_RESTART_SPECIES_REQUIRED: 0\n\n# Settings for production of restart files\n#---------------------------------------------------------------\n# Record frequency (HHMMSS, or monthly) : Frequency of restart file write\n#                                         Can exceed 24 hours (e.g. 1680000 for 7 days)\n# Record ref date (YYYYMMDD): Reference date; set to before sim start date\n# Record ref time (HHMMSS)  : Reference time \nRECORD_FREQUENCY: 240000\nRECORD_REF_DATE: 20000101\nRECORD_REF_TIME: 000000\n\n# Chemistry/AEROSOL Model Restart Files\n# -------------------------------------\nGCHPchem_INTERNAL_RESTART_FILE:     gchp_restart.nc4\nGCHPchem_INTERNAL_RESTART_TYPE:     pnc4\nGCHPchem_INTERNAL_CHECKPOINT_FILE:  Restarts/gcchem_internal_checkpoint\nGCHPchem_INTERNAL_CHECKPOINT_TYPE:  pnc4\n\n# GCHP dynamics (FV3) does not use a restart file because its internal state is empty\n#DYN_INTERNAL_RESTART_FILE:    fvcore_internal_rst\n#DYN_INTERNAL_RESTART_TYPE:    pbinary\n#DYN_INTERNAL_CHECKPOINT_FILE: Restarts/fvcore_internal_checkpoint\n#DYN_INTERNAL_CHECKPOINT_TYPE: pbinary\n#DYN_INTERNAL_HEADER:          1\n\nRUN_PHASES:           1\n\n#\n# %%% HEMCO configuration file %%%\n#\nHEMCO_CONFIG:         HEMCO_Config.rc\n\n#\n# %%% Log file names for redirecting stdout %%%\n#\nSTDOUT_LOGFILE:       PET%%%%%.GEOSCHEMchem.log\nSTDOUT_LOGLUN:        700\n\n#\n# %%% Memory debug print level (integer 0 to 3; 0=none, 3=highest)\n#\nMEMORY_DEBUG_LEVEL:   0\n\n#\n# %%% Option to write restart files via o-server\n# %%% This should only be necessary with certain MPI stacks. Try changing\n# %%% this to true if writing checkpoints causes the run to hang.\n#\nWRITE_RESTART_BY_OSERVER: NO\n\n#\n# %%% Advection settings\n#\nEXCLUDE_ADVECTION_TRACERS: NO\n\n#\n# %%% Adjoint variables\n#\n# MODEL_PHASE indicates forward model (FORWARD) or adjoint model (ADJOINT)\nMODEL_PHASE: FORWARD\n# FD_TYPE:             GLOBAL\n# FD_STEP:             0\n# FD_SPEC:             CO2\n# #FD_LAT:              44.65\n# #FD_LON:              -63.58\n# IFD:                 3\n# JFD:                56\n# LFD:                 1\n\n# CF_IMIN:             2\n# CF_IMAX:             5\n# CF_JMIN:            55\n# CF_JMAX:            58\n# CF_LMIN:             1\n# CF_LMAX:             4\n\n\n"
  },
  {
    "path": "run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.TransportTracers",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       false\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       false\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> EDGARv42_SF6           :       true     # 1970-2008\n    --> OCEAN_CH3I             :       true\n    --> CEDS_01x01             :       true     # 1980-2019\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAP                   :       false    # 2008-2010\n    --> UNIFORM_CO             :       true\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OLSON_LANDMAP          :       false    # 1985\n    --> YUAN_MODIS_LAI         :       false    # 2000-2020\n#------------------------------------------------------------------------------\n100     GC_Rn-Pb-Be            : on    Rn222/Be7/Be7s/Be10/Be10s\n# ----- Always Leave Extension 100 turned on.  Furthermore:\n# ----- Turning on  ZHANG_Rn222 will use Zhang et al [2020] Rn222 emissions\n# ----- Turning off ZHANG_Rn222 will use default emissions (Jacob et al [1997])\n101     ZHANG_Rn222            : on    Rn222\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# SF6 emissions from EDGAR v4.2\n#==============================================================================\n(((EDGARv42_SF6\n0 EDGAR_SF6  $ROOT/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc emi_sf6 1970-2008/1/1/0 C xy kg/m2/s SF6 - 1 1\n)))EDGARv42_SF6\n\n#==============================================================================\n# CH3I emitted over the oceans at rate of 1 molec/cm2/s\n#==============================================================================\n(((OCEAN_CH3I\n0 SRC_2D_CH3I 1.0 - - - xy molec/cm2/s CH3I 1000 1 1\n)))OCEAN_CH3I\n\n#==============================================================================\n# Anthropogenic CO 25-day and 50-day tracers\n#\n# Choose CEDS, EDGAR, or HTAP\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_CO_25_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_agr  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_AGR   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ene  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_ENE   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ind  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_IND   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_tra  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_TRA   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_rco  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_RCO   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_slv  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_SLV   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_wst  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_WST   -                                                   -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_shp  1980-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_SHP   -                                                   -       -                  - -  -       CO_50 26 1 5\n)))CEDS_01x01\n\n(((EDGARv43\n0  EDGAR_CO_25_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1201/26/52 1/2 2\n0  EDGAR_CO_50_POW -                                                    -       -               - -  -       CO_50 1201/26/52 1/2 2\n0  EDGAR_CO_25_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1202/26/52 1/2 2\n0  EDGAR_CO_50_ENG -                                                    -       -               - -  -       CO_50 1202/26/52 1/2 2\n0  EDGAR_CO_25_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1203/26/52 1/2 2\n0  EDGAR_CO_50_IND -                                                    -       -               - -  -       CO_50 1203/26/52 1/2 2\n0  EDGAR_CO_25_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1204/26/52 1/2 2\n0  EDGAR_CO_50_TRO -                                                    -       -               - -  -       CO_50 1204/26/52 1/2 2\n0  EDGAR_CO_25_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1205/26/52 1/2 2\n0  EDGAR_CO_50_TNG -                                                    -       -               - -  -       CO_50 1205/26/52 1/2 2\n0  EDGAR_CO_25_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1206/26/52 1/2 2\n0  EDGAR_CO_50_RCO -                                                    -       -               - -  -       CO_50 1206/26/52 1/2 2\n0  EDGAR_CO_25_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1207/26/52 1/2 2\n0  EDGAR_CO_50_PPA -                                                    -       -               - -  -       CO_50 1207/26/52 1/2 2\n#0 EDGAR_CO_25_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1209/26/52 1/2 2\n#0 EDGAR_CO_50_AWB -                                                    -       -               - -  -       CO_50 1209/26/52 1/2 2\n0  EDGAR_CO_25_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1211/26/52 1/2 2\n0  EDGAR_CO_50_SWD -                                                    -       -               - -  -       CO_50 1211/26/52 1/2 2\n0  EDGAR_CO_25_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1212/26/52 1/2 2\n0  EDGAR_CO_50_FFF -                                                    -       -               - -  -       CO_50 1211/26/52 1/2 2\n)))EDGARv43\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Zhang et al [2021] Rn222 emissions ---\n# --- cf https://acp.copernicus.org/articles/21/1861/2021/ ---\n#==============================================================================\n(((ZHANG_Rn222\n101 ZHANG_Rn222_EMIS $ROOT/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc rnemis 2001/1-12/1/0 C xy kg/m2/s Rn222 - 1 1\n)))ZHANG_Rn222\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((HTAP\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n28 LIQFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2008-2010/1/1/0 C xy 1 -1\n)))HTAP\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# --- VOC speciations ---\n#==============================================================================\n(((EDGARv43\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43\n\n)))EMISSIONS\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n(((OCEAN_CH3I\n${RUNDIR_OCEAN_MASK}\n)))OCEAN_CH3I\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                not_used\nGCAPVERTRES:                 not_used\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             2\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\nMask fractions:              false\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species   Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       false\n    --> CHEMISTRY_INPUT        :       true\n    --> USE_CH4_DATA           :       true\n    --> USE_CO_DATA            :       true\n    --> USE_CO2_DATA           :       true\n    --> USE_OCS_DATA           :       true     # 2012-2016\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       false\n    --> HEMCO_RESTART          :       false\n# ----- NESTED GRID FIELDS ----------------------------------------------------\n    --> GC_BCs                 :       false\n# ----- CH4 INVENTORIES AND DATA ----------------------------------------------\n# ..... Regional Inventories .........\n    --> GHGI_v2                :       false    # 2012-2018\n    --> GHGI_v2_Express_Ext    :       true     # 2012-2020\n    --> Scarpelli_Canada       :       true     # 2018\n    --> Scarpelli_Mexico       :       true     # 2015\n# ..... Global Inventories ...........\n    --> GFEIv3                 :       true     # 2020\n    --> GRPI                   :       true     # 2022\n    --> EDGARv8                :       true     # 2010-2022\n    --> QFED2                  :       false    # 2009-2015\n    --> JPL_WETCHARTS          :       true     # 2010\n    --> LPJ_MERRA2             :       false    # 2018-2023\n    --> SEEPS                  :       true     # 2012\n    --> LAKES                  :       false    # 2009-2015\n    --> RESERVOIRS             :       true     # 2022\n    --> CAMS_TERMITES          :       true     # 2000\n    --> MeMo_SOIL_ABSORPTION   :       true     # 1990-2009 or clim.\n    --> CMIP6_SFC_LAND_ANTHRO  :       false    # 1850-2100\n    --> CMIP6_SHIP             :       false    # 1850-2100\n    --> BB4MIPS                :       false    # 1850-2100\n# ..... Non-Emissions Data ...........\n    --> CH4_LOSS_FREQ          :       true     # 1985\n    --> GLOBAL_CL              :       true     # 2010-2019\n# ----- CO and CO2-only INVENTORIES AND DATA ----------------------------------\n# ..... Global inventories ...........\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       true     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       true     # Scale to year in 1990-2019\n    --> CEDS_01x01             :       true     # 1980-2019\n    --> HTAP                   :       false    # 2008-2010\n    --> FOSSIL_ODIAC           :       true     # 2000-2018\n    --> FOSSIL_CDIAC           :       false    # 1980-2014\n    --> OCEAN_EXCH_TAKA09      :       false    # 2000\n    --> OCEAN_EXCH_SCALED      :       true     # 2000-2013\n    --> BBIO_DIURNAL           :       false    # 1985\n    --> BBIO_SIB3              :       true     # 2006-2010\n    --> NET_TERR_EXCH          :       true     # 2000\n    --> CO2CORR                :       true     # 2000-2018\n    --> FINNv25                :       false    # 2012-2023  \n# ..... Regional inventories .........\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ..... Non-emissions data ...........\n    --> CO2_COPROD             :       true     # 2004-2009\n    --> PROD_CO_CH4            :       true     # 2010-2019\n    --> PROD_CO_NMVOC          :       true     # 2010-2019\n    --> GMI_PROD_LOSS          :       true     # 2005\n    --> GMD_SFC_CH4            :       true     # 1979-2020\n    --> CMIP6_SFC_CH4          :       false    # 1750-1978\n# ..... Ship emissions ...............\n    --> SHIP                   :       true\n    --> CEDS_01x01_SHIP        :       true     # 1980-2019\n    --> HTAP_SHIP              :       false    # 2000-2018\n#------ OCS FLUX DATA ---------------------------------------------------------\n    --> OCS_ANTHRO_FLUX        :       true     # 2012-2016\n    --> OCS_BIOMASS_FLUX       :       true     # 2012-2016\n    --> OCS_MISSING_OCEAN_FLUX :       true     # 2012-2016\n    --> OCS_OCEAN_FLUX         :       true     # 2012-2016\n# ----- FUTURE EMISSIONS ------------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OLSON_LANDMAP          :       false    # 1985\n    --> YUAN_MODIS_LAI         :       false    # 2000-2020\n    --> GLOBAL_OH_GC14         :       false    # 2010-2019\n    --> GLOBAL_OH_GCv5         :       true     # 1985 (recommended for CH4)\n# ----- Options for analytical inversions -------------------------------------\n    --> AnalyticalInversion    :       false\n    --> UseTotalPriorEmis      :       false    # Skips global/regional inventories\n    --> Emis_PosteriorSF       :       false    # Apply posterior scale factors to total emis?\n# -----------------------------------------------------------------------------\n111     GFED                   : on    CH4/CO/CO2\n    --> GFED4                  :       true\n    --> GFED_daily             :       true\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                        CH4 EMISSIONS                               %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n(((USE_CH4_DATA\n\n#==============================================================================\n# ---Total CH4 emissions (all sectors) from prior simulation ---\n#==============================================================================\n(((UseTotalPriorEmis\n\n(((Emis_PosteriorSF\n0 CH4_Emis_Prior ../../prior_run/OutputDir/GEOSChem.Emissions.$YYYY$MM$DD_0000z.nc4 EmisCH4_Total $YYYY/$MM/$DD/0 C xy kg/m2/s CH4 3 1 500\n)))Emis_PosteriorSF\n\n(((.not.Emis_PosteriorSF\n0 CH4_Emis_Prior ../../prior_run/OutputDir/GEOSChem.Emissions.$YYYY$MM$DD_0000z.nc4 EmisCH4_Total $YYYY/$MM/$DD/0 C xy kg/m2/s CH4 - 1 500\n))).not.Emis_PosteriorSF\n\n)))UseTotalPriorEmis\n\n(((.not.UseTotalPriorEmis\n\n#==============================================================================\n# --- CH4: Gridded GHGI v2 (Maasakkers et al., submitted to ES&T, 2023) ---\n#\n# NOTES:\n# - This is the main Gridded GHGI v2 dataset based off the US GHGI\n#   published in 2020\n# - Use Hier=100 to add to Canada and Mexico regional inventories\n# - Make sure to include offshore/coastal emissions (Hier=1 to add to EDGAR,\n#   Hier=5 to add to GFEI; mask=1009) ###\n#==============================================================================\n(((GHGI_v2\n### Oil ###\n0 GHGI_OIL_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Exploration   2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 51/1008 1 100\n0 GHGI_COAST_OIL_EXPLORATION  -                                                                    -                                            -                  -   -  -           CH4 51/1009 1 5\n0 GHGI_OIL_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Production    2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 52/1008 1 100\n0 GHGI_COAST_OIL_PRODUCTION   -                                                                    -                                            -                  -   -  -           CH4 52/1009 1 5\n0 GHGI_OIL_REFINING           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Refining      2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 53/1008 1 100\n0 GHGI_COAST_OIL_REFINING     -                                                                    -                                            -                  -   -  -           CH4 53/1009 1 5\n0 GHGI_OIL_TRANSPORT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Transport     2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 54/1008 1 100\n0 GHGI_COAST_OIL_TRANSPORT    -                                                                    -                                            -                  -   -  -           CH4 54/1009 1 5\n\n### Gas ###\n0 GHGI_GAS_DISTRIBUTION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Distribution        2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    2 100\n0 GHGI_COAST_GAS_DISTRIBUTION -                                                                    -                                            -                  -   -  -           CH4 1009    2 5\n0 GHGI_GAS_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Exploration         2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 55/1008 2 100\n0 GHGI_COAST_GAS_EXPLORATION  -                                                                    -                                            -                  -   -  -           CH4 55/1009 2 5\n0 GHGI_GAS_PROCESSING         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Processing          2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    2 100\n0 GHGI_COAST_GAS_PROCESSING   -                                                                    -                                            -                  -   -  -           CH4 1009    2 5\n0 GHGI_GAS_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Production          2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 56/1008 2 100\n0 GHGI_COAST_GAS_PRODUCTION   -                                                                    -                                            -                  -   -  -           CH4 56/1009 2 5\n0 GHGI_GAS_TRANSMISSION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_TransmissionStorage 2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    2 100\n0 GHGI_COAST_GAS_TRANSMISSION -                                                                    -                                            -                  -   -  -           CH4 1009    2 5\n\n### Coal ###\n0 GHGI_COAL_UNDERGROUND       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Underground_Coal                2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    3 100\n0 GHGI_COAST_COAL_UNDERGROUND -                                                                    -                                            -                  -   -  -           CH4 1009    3 5\n0 GHGI_COAL_SURFACE           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Surface_Coal                    2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    3 100\n0 GHGI_COAST_COAL_SURFACE     -                                                                    -                                            -                  -   -  -           CH4 1009    3 5\n0 GHGI_COAL_ABANDONED         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Abandoned_Coal                  2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    3 100\n0 GHGI_COAST_COAL_ABANDONED   -                                                                    -                                            -                  -   -  -           CH4 1009    3 5\n\n### Livestock ###\n0 GHGI_LIVESTOCK_ENT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3A_Enteric_Fermentation              2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    4 100\n0 GHGI_COAST_LIVESTOCK_ENT    -                                                                    -                                            -                  -   -  -           CH4 1009    4 1\n0 GHGI_LIVESTOCK_MAN          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3B_Manure_Management                 2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 57/1008 4 100\n0 GHGI_COAST_LIVESTOCK_MAN    -                                                                    -                                            -                  -   -  -           CH4 57/1009 4 1\n\n### Landfills ###\n0 GHGI_LANDFILLS_IND          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_Industrial             2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    5 100\n0 GHGI_COAST_LANDFILLS_IND    -                                                                    -                                            -                  -   -  -           CH4 1009    5 1\n0 GHGI_LANDFILLS_MSW          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_MSW                    2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    5 100\n0 GHGI_COAST_LANDFILLS_MSW    -                                                                    -                                            -                  -   -  -           CH4 1009    5 1\n0 GHGI_LANDFILLS_COMP         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5B1_Composting                       2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    5 100\n0 GHGI_COAST_LANDFILLS_COMP   -                                                                    -                                            -                  -   -  -           CH4 1009    5 1\n\n### Wastewater ###\n0 GHGI_WASTEWATER_DOM         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Domestic     2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    6 100\n0 GHGI_COAST_WASTEWATER_DOM   -                                                                    -                                            -                  -   -  -           CH4 1009    6 1\n0 GHGI_WASTEWATER_IND         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Industrial   2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    6 100\n0 GHGI_COAST_WASTEWATER_IND   -                                                                    -                                            -                  -   -  -           CH4 1009    6 1\n\n### Rice ###\n0 GHGI_RICE                   $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3C_Rice_Cultivation                  2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 58/1008 7 100\n0 GHGI_COAST_RICE             -                                                                    -                                            -                  -   -  -           CH4 58/1009 7 1\n\n### Other Anthro ###\n0 GHGI_OTHER_MCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Mobile                 2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_MCOMB      -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n0 GHGI_OTHER_SCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Stationary             2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 50/1008 8 100\n0 GHGI_COAST_OTHER_SCOMB      -                                                                    -                                            -                  -   -  -           CH4 50/1009 8 1\n0 GHGI_OTHER_PIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2B8_Industry_Petrochemical           2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_PIND       -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n0 GHGI_OTHER_FIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2C2_Industry_Ferroalloy              2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_FIND       -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n0 GHGI_OTHER_BURN             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3F_Field_Burning                     2012-2018/1-12/1/0 EFY xy molec/cm2/s CH4 59/1008 8 100\n0 GHGI_COAST_OTHER_BURN       -                                                                    -                                            -                  -   -  -           CH4 59/1009 8 1\n0 GHGI_OTHER_ABOG             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2ab_Abandoned_Oil_Gas              2012-2018/1/1/0    EFY xy molec/cm2/s CH4 1008    8 100\n0 GHGI_COAST_OTHER_ABOG       -                                                                    -                                            -                  -   -  -           CH4 1009    8 1\n)))GHGI_v2\n\n#=======================================================================================\n# --- CH4: Gridded GHGI v2 Express Extension (Maasakkers et al., submitted to ES&T, 2023) ---\n#\n# NOTES:\n# - Based off the US GHGI published in 2022.\n# - Uses annual source-specific spatial patterns from 2012-2018 from the main\n#   dataset to quickly incorporate more recent national methane emission estimates.\n# - Emissions for years after 2018 follow the 2018 spatial patterns.\n# - Make sure to include offshore/coastal emissions (Hier=1 to add to EDGAR,\n#   Hier=5 to add to GFEI; mask=1009) ###\n#=======================================================================================\n(((GHGI_v2_Express_Ext\n(((.not.GHGI_v2\n### Oil ###\n0 GHGI_EE_OIL_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Exploration   2012-2020/1-12/1/0 C xy molec/cm2/s CH4 51/1008 1 100\n0 GHGI_EE_COAST_OIL_EXPLORATION  -                                                                                      -                                            -                  - -  -           CH4 51/1009 1 5\n0 GHGI_EE_OIL_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Production    2012-2020/1-12/1/0 C xy molec/cm2/s CH4 52/1008 1 100\n0 GHGI_EE_COAST_OIL_PRODUCTION   -                                                                                      -                                            -                  - -  -           CH4 52/1009 1 5\n0 GHGI_EE_OIL_REFINING           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Refining      2012-2020/1-12/1/0 C xy molec/cm2/s CH4 53/1008 1 100\n0 GHGI_EE_COAST_OIL_REFINING     -                                                                                      -                                            -                  - -  -           CH4 53/1009 1 5\n0 GHGI_EE_OIL_TRANSPORT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2a_Petroleum_Systems_Transport     2012-2020/1-12/1/0 C xy molec/cm2/s CH4 54/1008 1 100\n0 GHGI_EE_COAST_OIL_TRANSPORT    -                                                                                      -                                            -                  - -  -           CH4 54/1009 1 5\n\n### Gas ###\n0 GHGI_EE_GAS_DISTRIBUTION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Distribution        2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n0 GHGI_EE_COAST_GAS_DISTRIBUTION -                                                                                      -                                            -                  - -  -           CH4 1009    2 5\n0 GHGI_EE_GAS_EXPLORATION        $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Exploration         2012-2020/1-12/1/0 C xy molec/cm2/s CH4 55/1008 2 100\n0 GHGI_EE_COAST_GAS_EXPLORATION  -                                                                                      -                                            -                  - -  -           CH4 55/1009 2 5\n0 GHGI_EE_GAS_PROCESSING         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Processing          2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n0 GHGI_EE_COAST_GAS_PROCESSING   -                                                                                      -                                            -                  - -  -           CH4 1009    2 5\n0 GHGI_EE_GAS_PRODUCTION         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_Production          2012-2020/1-12/1/0 C xy molec/cm2/s CH4 56/1008 2 100\n0 GHGI_EE_COAST_GAS_PRODUCTION   -                                                                                      -                                            -                  - -  -           CH4 56/1009 2 5\n0 GHGI_EE_GAS_TRANSMISSION       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2b_Natural_Gas_TransmissionStorage 2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n0 GHGI_EE_COAST_GAS_TRANSMISSION -                                                                                      -                                            -                  - -  -           CH4 1009    2 5\n0 GHGI_EE_GAS_POSTMETER          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_Supp_1B2b_PostMeter                  2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    2 100\n\n### Coal ###\n0 GHGI_EE_COAL_UNDERGROUND       $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Underground_Coal                2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    3 100\n0 GHGI_EE_COAST_COAL_UNDERGROUND -                                                                                      -                                            -                  - -  -           CH4 1009    3 5\n0 GHGI_EE_COAL_SURFACE           $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Surface_Coal                    2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    3 100\n0 GHGI_EE_COAST_COAL_SURFACE     -                                                                                      -                                            -                  - -  -           CH4 1009    3 5\n0 GHGI_EE_COAL_ABANDONED         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B1a_Abandoned_Coal                  2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    3 100\n0 GHGI_EE_COAST_COAL_ABANDONED   -                                                                                      -                                            -                  - -  -           CH4 1009    3 5\n\n### Livestock ###\n0 GHGI_EE_LIVESTOCK_ENT          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3A_Enteric_Fermentation              2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    4 100\n0 GHGI_EE_COAST_LIVESTOCK_ENT    -                                                                                      -                                            -                  - -  -           CH4 1009    4 1\n0 GHGI_EE_LIVESTOCK_MAN          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3B_Manure_Management                 2012-2020/1-12/1/0 C xy molec/cm2/s CH4 57/1008 4 100\n0 GHGI_EE_COAST_LIVESTOCK_MAN    -                                                                                      -                                            -                  - -  -           CH4 57/1009 4 1\n\n### Landfills ###\n0 GHGI_EE_LANDFILLS_IND          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_Industrial             2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    5 100\n0 GHGI_EE_COAST_LANDFILLS_IND    -                                                                                      -                                            -                  - -  -           CH4 1009    5 1\n0 GHGI_EE_LANDFILLS_MSW          $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5A1_Landfills_MSW                    2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    5 100\n0 GHGI_EE_COAST_LANDFILLS_MSW    -                                                                                      -                                            -                  - -  -           CH4 1009    5 1\n0 GHGI_EE_LANDFILLS_COMP         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5B1_Composting                       2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    5 100\n0 GHGI_EE_COAST_LANDFILLS_COMP   -                                                                                      -                                            -                  - -  -           CH4 1009    5 1\n\n### Wastewater ###\n0 GHGI_EE_WASTEWATER_DOM         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Domestic     2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    6 100\n0 GHGI_EE_COAST_WASTEWATER_DOM   -                                                                                      -                                            -                  - -  -           CH4 1009    6 1\n0 GHGI_EE_WASTEWATER_IND         $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_5D_Wastewater_Treatment_Industrial   2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    6 100\n0 GHGI_EE_COAST_WASTEWATER_IND   -                                                                                      -                                            -                  - -  -           CH4 1009    6 1\n\n### Rice ###\n0 GHGI_EE_RICE                   $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3C_Rice_Cultivation                  2012-2020/1-12/1/0 C xy molec/cm2/s CH4 58/1008 7 100\n0 GHGI_EE_COAST_RICE             -                                                                                      -                                            -                  - -  -           CH4 58/1009 7 1\n\n### Other Anthro ###\n0 GHGI_EE_OTHER_MCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Mobile                 2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_MCOMB      -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n0 GHGI_EE_OTHER_SCOMB            $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1A_Combustion_Stationary             2012-2020/1-12/1/0 C xy molec/cm2/s CH4 50/1008 8 100\n0 GHGI_EE_COAST_OTHER_SCOMB      -                                                                                      -                                            -                  - -  -           CH4 50/1009 8 1\n0 GHGI_EE_OTHER_PIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2B8_Industry_Petrochemical           2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_PIND       -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n0 GHGI_EE_OTHER_FIND             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_2C2_Industry_Ferroalloy              2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_FIND       -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n0 GHGI_EE_OTHER_BURN             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_3F_Field_Burning                     2012-2020/1-12/1/0 C xy molec/cm2/s CH4 59/1008 8 100\n0 GHGI_EE_COAST_OTHER_BURN       -                                                                                      -                                            -                  - -  -           CH4 59/1009 8 1\n0 GHGI_EE_OTHER_ABOG             $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_$YYYY.nc  emi_ch4_1B2ab_Abandoned_Oil_Gas              2012-2020/1/1/0    C xy molec/cm2/s CH4 1008    8 100\n0 GHGI_EE_COAST_OTHER_ABOG       -                                                                                      -                                            -                  - -  -           CH4 1009    8 1\n))).not.GHGI_v2\n)))GHGI_v2_Express_Ext\n\n#==============================================================================\n# --- CH4: Mexico emissions (Scarpelli et. al, Environ. Res. Lett., 2020) ---\n#\n# NOTES:\n# - Use Hier=100 to add to Canada and USA regional inventories\n# - Make sure to include offshore/coastal emissions\n#   (Hier=1 to add to EDGAR, Hier=5 to add to GFEI)\n#==============================================================================\n(((Scarpelli_Mexico\n0 MEX_OIL               $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_oil_2015.nc          emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    1 100\n0 MEX_OIL_COAST         -                                                                    -        -          - -  -           CH4 1010    1 5\n0 MEX_GAS               $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_gas_2015.nc          emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    2 100\n0 MEX_GAS_COAST         -                                                                    -        -          - -  -           CH4 1010    2 5\n0 MEX_COAL              $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_coal_2015.nc         emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    3 100\n0 MEX_COAL_COAST        -                                                                    -        -          - -  -           CH4 1010    3 5\n0 MEX_LIVESTOCK_A       $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_A_2015.nc  emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    4 100\n0 MEX_LIVESTOCK_A_COAST -                                                                    -        -          - -  -           CH4 1010    4 1\n0 MEX_LIVESTOCK_B       $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_B_2015.nc  emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 10/1001 4 100\n0 MEX_LIVESTOCK_B_COAST -                                                                    -        -          - -  -           CH4 10/1010 4 1\n0 MEX_LANDFILLS         $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_landfill_2015.nc     emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    5 100\n0 MEX_LANDFILLS_COAST   -                                                                    -        -          - -  -           CH4 1010    5 1\n0 MEX_WASTEWATER        $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_waste_2015.nc        emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    6 100\n0 MEX_WASTEWATER_COAST  -                                                                    -        -          - -  -           CH4 1010    6 1\n0 MEX_RICE              $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_rice_2015.nc         emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 11/1001 7 100\n0 MEX_RICE_COAST        -                                                                    -        -          - -  -           CH4 11/1010 7 1\n0 MEX_OTHER             $ROOT/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_other_anthro_2015.nc emis_ch4 2015/1/1/0 C xy molec/cm2/s CH4 1001    8 100\n0 MEX_OTHER_COAST       -                                                                    -        -          - -  -           CH4 1010    8 1\n)))Scarpelli_Mexico\n\n#==============================================================================\n# --- CH4: Canada emissions (Scarpelli et al., Environ. Res. Lett., 2022) ---\n#\n# NOTES:\n# - Use Hier=100 to add to USA and Mexico regional inventories\n# - Make sure to include offshore/coastal emissions\n#   (Hier=1 to add to EDGAR, Hier=5 to add to GFEI)\n#==============================================================================\n(((Scarpelli_Canada\n0 CAN_OIL_GAS_COMBUSTION        $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_combustion_2018.nc  oil_gas_combustion_total  2018/1/1/0 C xy kg/m2/s CH4 1002 1/2 100\n0 CAN_OIL_GAS_COMBUSTION_COAST  -                                                                        -                         -          - -  -       CH4 1011 1/2 5\n0 CAN_OIL_GAS_LEAKAGE           $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_leakage_2018.nc     oil_gas_leakage_total     2018/1/1/0 C xy kg/m2/s CH4 1002 1/2 100\n0 CAN_OIL_GAS_LEAKAGE_COAST     -                                                                        -                         -          - -  -       CH4 1011 1/2 5\n0 CAN_OIL_GAS_VENT_FLARE        $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_vent_flare_2018.nc  oil_gas_vent_flare_total  2018/1/1/0 C xy kg/m2/s CH4 1002 1/2 100\n0 CAN_OIL_GAS_VENT_FLARE_COAST  -                                                                        -                         -          - -  -       CH4 1011 1/2 5\n0 CAN_COAL                      $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_coal_2018.nc                coal_total                2018/1/1/0 C xy kg/m2/s CH4 1002 3   100\n0 CAN_COAL_COAST                -                                                                        -                         -          - -  -       CH4 1011 3   5\n0 CAN_LIVESTOCK                 $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_livestock_2018.nc           livestock_total           2018/1/1/0 C xy kg/m2/s CH4 1002 4   100\n0 CAN_LIVESTOCK_COAST           -                                                                        -                         -          - -  -       CH4 1011 4   1\n0 CAN_SOLID_WASTE               $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_solid_waste_2018.nc         solid_waste_total         2018/1/1/0 C xy kg/m2/s CH4 1002 5   100\n0 CAN_SOLID_WASTE_COAST         -                                                                        -                         -          - -  -       CH4 1011 5   1\n0 CAN_WASTEWATER                $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_wastewater_2018.nc          wastewater_total          2018/1/1/0 C xy kg/m2/s CH4 1002 6   100\n0 CAN_WASTEWATER_COAST          -                                                                        -                         -          - -  -       CH4 1011 6   1\n0 CAN_OTHER                     $ROOT/CH4/v2022-01/Scarpelli_Canada/can_emis_other_minor_sources_2018.nc other_minor_sources_total 2018/1/1/0 C xy kg/m2/s CH4 1002 8   100\n0 CAN_OTHER_COAST               -                                                                        -                         -          - -  -       CH4 1011 8   1\n)))Scarpelli_Canada\n\n#==============================================================================\n# --- CH4: Global Fuel Exploitation Inventory (GFEI v3, Scarpelli et al., 2025) ---\n#\n# This inventory will replace EDGAR (oil, gas, & coal)\n#==============================================================================\n(((GFEIv3\n0 GFEI_CH4_OIL  $ROOT/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Oil_All.nc  Oil_All 2020/1/1/0 C xy kg/m2/s CH4 -  1 5\n0 GFEI_CH4_GAS  $ROOT/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Gas_All.nc  Gas_All 2020/1/1/0 C xy kg/m2/s CH4 -  2 5\n0 GFEI_CH4_COAL $ROOT/CH4/v2025-08/GFEIv3/Global_Fuel_Exploitation_Inventory_v3_2020_Coal.nc     Coal    2020/1/1/0 C xy kg/m2/s CH4 -  3 5\n)))GFEIv3\n\n#==============================================================================\n# --- Global Rice Patty Inventory (GRPI, Zichong Chen et al., 2025) ---\n#\n# This inventory will replace EDGAR (rice)\n#==============================================================================\n(((GRPI\n0 GRPI_CH4_RICE $ROOT/CH4/v2025-01/GRPI/GRPI_01x01.nc emi_ch4 2022/1-12/1/0 C xy kg/m2/s CH4 -  7 5\n)))GRPI\n\n#==============================================================================\n# --- CH4: EDGAR v8.0 emissions ---\n#\n# NOTES:\n# - EDGAR v8 livestock emissions have unexplained hotspots and no seasonality.\n#   Use EDGAR v7 emissions for that sector instead.\n#==============================================================================\n(((EDGARv8\n### Oil ###\n0 EDGAR8_CH4_PRO_OIL             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_PRO_OIL_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 1 1\n0 EDGAR8_CH4_REF_TRF             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_REF_TRF_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 1 1\n\n### Gas ###\n0 EDGAR8_CH4_PRO_GAS             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_PRO_GAS_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 2 1\n\n### Coal ###\n0 EDGAR8_CH4_PRO_COAL            $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_PRO_COAL_flx.nc         emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 3 1\n\n### Livestock (from EDGAR v7) ###\n0 EDGAR7_CH4_LIVESTOCK__4A       $ROOT/CH4/v2023-04/EDGARv7/$YYYY/v7.0_FT2021_CH4_$YYYY_ENF.0.1x0.1.nc              emi_ch4 2010-2021/1-12/1/0 C xy kg/m2/s CH4 24 4 1\n0 EDGAR7_CH4_LIVESTOCK__4B       $ROOT/CH4/v2023-04/EDGARv7/$YYYY/v7.0_FT2021_CH4_$YYYY_MNM.0.1x0.1.nc              emi_ch4 2010-2021/1-12/1/0 C xy kg/m2/s CH4 28 4 1\n\n### Landfills ###\n0 EDGAR8_CH4_SWD_LDF             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_LDF_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 5 1\n\n### Wastewater ###\n0 EDGAR8_CH4_WWT                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_WWT_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 6 1\n\n### Rice ###\n0 EDGAR8_CH4_AGS                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AGS_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 7 1\n\n### Other Anthro ###\n0 EDGAR8_CH4_ENE                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_ENE_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_IND                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IND_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Aviation_CDS    $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Aviation_CDS_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Aviation_CRS    $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Aviation_CRS_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Aviation_LTO    $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Aviation_LTO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TRO                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TRO_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Other           $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Other_flx.nc        emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_TNR_Ship            $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_TNR_Ship_flx.nc         emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_RCO                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_RCO_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_CHE                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_CHE_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_IRO                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IRO_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n# Comment out to avoid double counting with GFED\n#0 EDGAR8_CH4_AWB                 $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc              emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 EDGAR8_CH4_SWD_INC             $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_INC_flx.nc          emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n)))EDGARv8\n\n#==============================================================================\n# --- CH4: CEDS (historical) or Shared Socioeconomic Pathways (future) ---\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_CH4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_agr 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 4 1\n0 CMIP6_CH4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_ene 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 2 1\n0 CMIP6_CH4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_ind 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 CMIP6_CH4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_tra 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 CMIP6_CH4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_rco 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 2 1\n0 CMIP6_CH4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_slv 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n0 CMIP6_CH4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_wst 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 5 1\n)))CMIP6_SFC_LAND_ANTHRO\n(((CMIP6_SHIP\n0 CMIP6_CH4_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_shp 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 8 1\n)))CMIP6_SHIP\n\n#==============================================================================\n# --- CH4: BB4MIPs historical / SSP future biomass burning inventories ---\n#==============================================================================\n(((BB4MIPS\n0 CMIP6_BB_CH4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH4_bbn 1750-2015/1-12/1/0 C xyL=1:PBL kg/m2/s CH4 75 9 1\n)))BB4MIPS\n\n#==============================================================================\n# --- CH4: QFED2 biomass burning ---\n#\n# Use QFED v2.4r8 for CH4. The data in QFED/v2014-09 are for v2.4r5 and have\n# been found to be buggy for CH4 (same emissions on each day).\n#==============================================================================\n(((QFED2\n0 QFED_CH4   $ROOT/CH4/v2017-10/QFED/QFEDv2.4r8.emis_ch4.$YYYY.nc              emi_ch4 2009-2015/1-12/1-31/0 C xy molec/cm2/s CH4 -  9 2\n)))QFED2\n\n#==============================================================================\n# --- JPL WetCHARTs v1.0 wetland emissions ---\n#\n# Reference: Bloom et al., https://doi.org/10.3334/ORNLDAAC/1502\n# Use updated files (v2024-01); these are COARDS-compliant.\n#==============================================================================\n(((JPL_WETCHARTS\n0 JPLW_CH4  $ROOT/CH4/v2024-01/JPL_WetCharts/HEensemble/JPL_WetCharts_2010-2019.Ensemble_Mean.0.5x0.5.nc emi_ch4 2010/1-12/1/0 C xy molec/cm2/s CH4 - 10 1\n)))JPL_WETCHARTS\n\n#==============================================================================\n# ---  LPJ MERRA-2 wetland emissions ---\n#\n# Reference: East et al., https://agupubs.onlinelibrary.wiley.com/doi/full/10.1029/2024GL108494\n#==============================================================================\n(((LPJ_MERRA2\n0 LPJ_CH4 $ROOT/CH4/v2025-09/LPJ_MERRA2/LPJ_MERRA2_$YYYY_0.5x0.5.nc emis_ch4 2018-2023/1-12/1/0 C xy kg/m2/s CH4 - 10 2\n)))LPJ_MERRA2\n\n#==============================================================================\n# --- CH4: Geological Seeps ---\n#==============================================================================\n(((SEEPS\n0 CH4_SEEPS $ROOT/CH4/v2020-04/Seeps/Etiope_CH4GeologicalEmis_ScaledToHmiel.1x1.nc emi_ch4 2012/1/1/0 C xy kg/m2/s CH4 - 11 1\n)))SEEPS\n\n#==============================================================================\n# --- CH4: Emissions from Lakes (Maasakkers et al., 2019) ---\n#==============================================================================\n(((LAKES\n0 CH4_LAKES $ROOT/CH4/v2022-11/Lakes/Maasakkers_Lakes_$YYYY.01x01.nc emi_ch4 $YYYY/1-12/1/0 C xy molec/cm2/s CH4 - 12 1\n)))LAKES\n\n#==============================================================================\n# --- Emissions from Hydroelectric Reservoirs (Delwich et al., 2022) ---\n#\n# Use updated files (v2024-01); these are COARDS-compliant.\n#==============================================================================\n(((RESERVOIRS\n0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc     CH4emis 2022/1-12/1/0 C xy kg/m2/s CH4 1500 15 1\n0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1-12/1/0 C xy kg/m2/s CH4 1500 15 1\n)))RESERVOIRS\n\n#==============================================================================\n# --- CH4: Termites from CAMS-GLOB-TERM.v1.1 ---\n#==============================================================================\n(((CAMS_TERMITES\n0 CH4_TERMITES $ROOT/CH4/v2026-02/CAMS_Termites/CAMS-GLOB-TERM_v1.1_methane_2000.nc CH4 2000/1-12/1/0 C xy kg/m2/s CH4 - 13 1\n)))CAMS_TERMITES\n\n#==============================================================================\n# --- CH4: Soil absorption from MeMo model (Murguia-Flores et al. 2018, GMD) ---\n#\n# - Multiply soil absorption by -1 to get a \"negative\" flux\n#==============================================================================\n(((MeMo_SOIL_ABSORPTION\n# Climatology\n0 CH4_SOILABSORB $ROOT/CH4/v2019-10/MeMo_SoilAbs/MeMo_CH4uptake_Climatology.nc CH4uptake 2009/1-12/1/0 C xy kg/m2/s CH4 1 14 2\n\n# 1990-2009\n#0 CH4_SOILABSORB $ROOT/CH4/v2019-10/MeMo_SoilAbs/MeMo_CH4uptake_1990-2009.nc CH4uptake 1990-2009/1-12/1/0 C xy kg/m2/s CH4 1 14 2\n)))MeMo_SOIL_ABSORPTION\n\n#==============================================================================\n# --- CH4: RCP future emission scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CH4 $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CH4  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CH4  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CH4  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4 - 1 1\n)))RCP_85\n\n))).not.UseTotalPriorEmis\n\n)))USE_CH4_DATA\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                        CO EMISSIONS                                %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n(((USE_CO_DATA\n\n#==============================================================================\n# --- CO: APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_CO    $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO 1989-2014/1/1/0 RF xy kg/m2/s CO    26/52/2002      1 30\n)))APEI\n\n#==============================================================================\n# --- CO: EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #2007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_CO__airportsCO   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__nonptCO      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__nonroadCO    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__npogCO       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroadCO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroad_caCO  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__railCO       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__c1c2CO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__c3CO         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__pteguCO      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__ptogCO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__ptnonipmCO   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO  2002-2020/1-12/1/0 RF xyz  kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroad_canCO $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__onroad_mexCO $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__otharCO      $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n0 EPA16_CO__othptCO      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO  2002-2020/1-12/1/0 RF xy   kg/m2/s CO 26/211/252/2007 1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- CO: DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n0 DICE_CARS_CO          $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc                       CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_MOTORCYCLES_CO   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc                CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_BACKUPGEN_CO     $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc              CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_CHARCOALPROD_CO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc        CO 2013/1/1/0 C xy g/m2/yr CO 26/2008/320 1 60\n0 DICE_GASFLARE_CO      $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc                 CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_AGBURNING_CO     $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n0 DICE_CHARCOALUSE_CO   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc               CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n0 DICE_KEROSENE_CO      $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc               CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_OILREFINING_CO   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc         CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     1 60\n0 DICE_HOUSEFUELWOOD_CO $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc     CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n0 DICE_OTHERFUELWOOD_CO $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc         CO 2013/1/1/0 C xy g/m2/yr CO 26/2008     2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_CO_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1201/26/52/2008 1 60\n0 AF_EDGAR_CO_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1202/26/52/2008 1 60\n0 AF_EDGAR_CO_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1203/26/52/2008 1 60\n0 AF_EDGAR_CO_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1205/26/52/2008 1 60\n0 AF_EDGAR_CO_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1207/26/52/2008 1 60\n0 AF_EDGAR_CO_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO 1211/26/52/2008 1 60\n)))DICE_Africa\n\n#==============================================================================\n# --- CO: CEDS_01x01 ---\n#\n# %%% This is the default global inventory.                            %%%\n# %%% You may select either CEDS, EDGAR, HTAP or CMIP6_SFC_LAND_ANTHRO %%%\n# %%% for the global base emissions.                                   %%%\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_CO_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_agr  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2401         1 5\n0 CEDS_CO_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s CO 2406/706/315 1 5\n0 CEDS_CO_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s CO 2407/707/316 1 5\n0 CEDS_CO_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_tra  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2411/711     1 5\n0 CEDS_CO_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_rco  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2409/709     1 5\n0 CEDS_CO_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_slv  1980-2019/1-12/1/0 C xy   kg/m2/s CO 2407/707     1 5\n0 CEDS_CO_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc  CO_wst  1980-2019/1-12/1/0 C xy   kg/m2/s CO 26           1 5\n)))CEDS_01x01\n\n#==============================================================================\n# --- CO: CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_CO_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_agr 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_ene 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_ind 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_tra 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_rco 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_slv 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n0 CMIP6_CO_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_wst 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CO: CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_CO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO 26 20 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- CO: HTAP v2 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAP for the global base emissions %%%\n#\n# ==> HTAP ship emissions are listed in the ship emissions section below\n# ==> Disable aircraft emissions and get them from AEIC instead.\n#==============================================================================\n(((HTAP\n0 HTAP_CO_IND   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_INDUSTRY.generic.01x01.nc    emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n0 HTAP_CO_POW   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_ENERGY.generic.01x01.nc      emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n0 HTAP_CO_RES   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_RESIDENTIAL.generic.01x01.nc emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n0 HTAP_CO_TRA   $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_TRANSPORT.generic.01x01.nc   emi_co 2008-2010/1-12/1/0 C xy kg/m2/s CO 506/528/26 1 4\n#0 HTAP_CO_AIR1  $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_AIR_LTO.generic.01x01.nc     emi_co 2008-2010/1/1/0    C xy kg/m2/s CO 506/528/26 1 4\n#0 HTAP_CO_AIR2  $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_AIR_CDS.generic.01x01.nc     emi_co 2008-2010/1/1/0    C xy kg/m2/s CO 506/528/26 1 4\n#0 HTAP_CO_AIR3  $ROOT/HTAP/v2015-03/CO/EDGAR_HTAP_CO_AIR_CRS.generic.01x01.nc     emi_co 2008-2010/1/1/0    C xy kg/m2/s CO 506/528/26 1 4\n)))HTAP\n\n#==============================================================================\n# --- CO: Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAP for SO2 and ICOADS should be used for CO and NO.\n# ==> Ship NO emissions are used by PARANOx and the extension number must be\n#     adjusted accordingly. If PARANOx is turned off, set the ExtNr back to\n#     zero.\n#==============================================================================\n(((SHIP\n\n(((HTAP_SHIP\n0 HTAP_SHIP_CO  $ROOT/HTAP/v2015-03/EDGAR_HTAP_CO_SHIPS.generic.01x01.nc CO 2008-2010/1/1/0 C xy kg/m2/s CO 506/528 10 4\n)))HTAP_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_CO_SHP $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc CO_shp 1980-2019/1-12/1/0 C xy kg/m2/s CO 26 10 5\n)))CEDS_01x01_SHIP\n\n#==============================================================================\n# --- CO: CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n# the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_CO_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_shp 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 10 5\n)))CMIP6_SHIP\n\n)))SHIP\n\n#==============================================================================\n# --- CO: AEIC 2019 aircraft emissions ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_CO    $ROOT/AEIC2019/v2022-03/2019/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO 2019/1-12/1-31/0 C xyz kg/m2/s CO 241 20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_CO  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO 2019/1-12/1/0 C xyz kg/m2/s CO 241 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- CO: RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CO $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CO  $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CO  $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CO  $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc  ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s CO - 1 1\n)))RCP_85\n\n#==============================================================================\n# --- CO biomass burning (base emissions) ---\n#==============================================================================\n\n# --- QFED2 (v2.5r1) ---\n(((QFED2\n0 QFED_CO_PBL $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF xyL=1:PBL     kg/m2/s CO 54/75/311 5 2\n0 QFED_CO_FT  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EF xyL=PBL:5500m kg/m2/s CO 54/75/312 5 2\n)))QFED2\n\n# --- GFAS ---\n(((GFAS\n0 GFAS_CO $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO 75 5 3\n)))GFAS\n\n# --- FINNv2.5 biomass burning ---\n(((FINNv25\n0 FINNv25_CO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_CO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc  fire_modisviirs_CO  2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CO 75 5 3\n)))FINNv25\n\n# --- BB4MIPs ---\n(((BB4MIPS\n0 CMIP6_BB_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn 1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CO 75 5 3\n)))BB4MIPS\n\n)))USE_CO_DATA\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                        CO2 EMISSIONS                               %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n(((USE_CO2_DATA\n\n#==============================================================================\n# --- CO2: FOSSIL FUEL EMISSIONS ---\n#\n# National CO2 fossil fuel emissions exclude international shipping and aviation\n# Carbon Dioxide Information Analysis Center (CDIAC) 1x1 national emissions\n# (Andres et al., 2011)\n# Open-source Data Inventory of Anthropogenic CO2 (ODIAC) 1x1 national emissions\n# (Oda & Maksyutov, 2011)\n#\n# ---> Recommended option: ODIAC (set FOSSIL_ODIAC = true)\n#      ODIAC updated to v2019 by J. Fisher and Y. Cao, 12/2019\n#==============================================================================\n(((FOSSIL_CDIAC\n0 FOSSILCO2_CDIAC   $ROOT/CO2/v2014-09/FOSSIL/CDIAC_v2014.monthly.generic.1x1.nc CO2 1980-2014/1-12/1/0 C xy kg/m2/s CO2 440/441/480 1 1\n)))FOSSIL_CDIAC\n\n(((FOSSIL_ODIAC\n0 FOSSILCO2_ODIAC   $ROOT/CO2/v2022-11/FOSSIL/ODIAC_CO2.monthly.generic.1x1.nc   CO2 2000-2018/1-12/1/0 C xy kg/m2/s CO2 440/441/480 1 2\n)))FOSSIL_ODIAC\n\n#==============================================================================\n# --- CO2: OCEAN EXCHANGE EMISSIONS ---\n#\n# Ocean uptake/emission from Takahashi et al. (2009) and earlier works.\n# Climatological exchange for 2000 (-1.4 PgC/yr) or scaled ocean exchange, which\n# accounts for changing atmospheric CO2 (as in the paper) are now available.\n#\n# ---> Recommended option: scaled ocean exchange (set OCEAN_EXCH_SCALED = true)\n#==============================================================================\n(((OCEAN_EXCH_TAKA09\n0 OCEANCO2_TAKA_ANNUAL    $ROOT/CO2/v2022-11/OCEAN/Taka2009_CO2_Annual.nc      CO2 2000/1/1/0    C xy kg/m2/s CO2   - 2 1\n0 OCEANCO2_TAKA_MONTHLY   $ROOT/CO2/v2022-11/OCEAN/Taka2009_CO2_Monthly.nc     CO2 2000/1-12/1/0 C xy kg/m2/s CO2   - 2 2\n)))OCEAN_EXCH_TAKA09\n\n(((OCEAN_EXCH_SCALED\n0 OCEANCO2_SCALED_MONTHLY  $ROOT/CO2/v2022-11/OCEAN/Scaled_Ocean_CO2_monthly.nc CO2 2000-2013/1-12/1/0 C xy kg/m2/s CO2   - 2 3\n)))OCEAN_EXCH_SCALED\n\n#==============================================================================\n# --- CO2: BALANCED BIOSPHERE EXCHANGE ---\n#\n# These emissions have a seasonal cycle of uptake/emission but have a net\n# annual uptake of close to zero (balanced).\n# CASA model daily emissions for a single year at coarse resolution have a\n# diurnal cycle imposed (Olsen & Randerson, 2004)\n# SiB3 emissions are from Nick Parazoo (Messerschmidt et al., 2011) for\n# 2006-2010.\n#\n# ---> Recommended option: SiB3 (set BBIO_SIB3 = true)\n#==============================================================================\n(((BBIO_DIURNAL\n0 BBIOCO2_DIURNAL $ROOT/CO2/v2014-09/BBIO/BBIO_diurnal_CO2.nc CO2 1985/1-12/1-31/0-23 C xy kg/m2/s CO2 - 3 1\n)))BBIO_DIURNAL\n\n(((BBIO_SIB3\n0 SIB_BBIO_CO2    $ROOT/CO2/v2022-11/BIO/SiB3_3hr_NEP.nc CO2 2006-2010/1-12/1-31/0-23 C xy kg/m2/s CO2 - 3 1\n)))BBIO_SIB3\n\n#==============================================================================\n# --- CO2: NET TERRESTRIAL EXCHANGE ---\n#\n# TransCom annual net/residual terrestrial biosperhic CO2 (Baker et al., 2006)\n#\n# ---> Recommended for use in forward modelling, optional for\n#      inversion/assimilation\n#==============================================================================\n(((NET_TERR_EXCH\n0 CO2_NET_TERRESTRIAL  $ROOT/CO2/v2022-11/BIO/Net_terrestrial_exch_5.29Pg.generic.1x1.nc CO2 2000/1/1/0 C xy kg/m2/s CO2   - 5 1\n)))NET_TERR_EXCH\n\n#==============================================================================\n# --- CO2: SHIP EMISSIONS ---\n#==============================================================================\n(((SHIP\n\n(((ICOADS_SHIP\n# The spatial distribution is scaled with global annual scale factors #50\n0 ICOADS_CO2_SHIP    $ROOT/ICOADS_SHIP/v2014-07/ICOADS_ship_CO2_2004.generic.1x1.nc CO2 2004/1-12/1/0 C xy kg/m2/s CO2 50 6 1\n)))ICOADS_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_CO2_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO2_0.1x0.1_$YYYY.nc  CO2_shp  1980-2019/1-12/1/0 C xy kg/m2/s CO2 - 6 1\n)))CEDS_01x01_SHIP\n)))SHIP\n\n#==============================================================================\n# --- CO2: AEIC 2019 aircraft emissions ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_CO2  $ROOT/AEIC2019/v2022-03/2019/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN 2019/1-12/1-31/0 C xyz kg/m2/s CO2 241/260 20 1\n)))AEIC2019_DAILY\n\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_CO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s CO2 241/260 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- CO2: SURFACE CORRECTION FOR CO OXIDATION ---\n#\n# These emissions will be subtracted!\n# Fossil fuel CO and CH4 are based on the national distribution scaled with #10.\n# Biogenic CH4 data is converted to CO2 using scale factor #20.\n# Isoprene and monoterpene are converted from kgC to kgCO2 by scale factor #21.\n# Approach is described in Nassar et al. (2010)\n#\n# ---> Recommended for use if chemical production (above) is turned on\n#\n# Now multiply by scale factor of -1.0 (#1 in scale factor section below)\n# to make these emissions negative, so that they will be subtracted.\n===============================================================================\n(((CO2CORR\n0 FOSSILCO2_MONTHLY $ROOT/CO2/v2022-11/FOSSIL/ODIAC_CO2.monthly.generic.1x1.nc CO2     2000-2018/1-12/1/0 C xy kg/m2/s CO2 410/440/441/480/1 8 1\n0 CO2_LIVESTOCK     $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_004 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_WASTE         $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_005 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_RICE          $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_007 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_WETLANDS      $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_010 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_NATURAL       $ROOT/CO2/v2022-11/CHEM/CH4_source.geos.2x25.nc            CH4_012 2004/1-12/1/0      C xy kg/m2/s CO2 420/1             8 1\n0 CO2_ISOPRENE      $ROOT/CO2/v2022-11/CHEM/Isoprene-2004.geos.2x25.nc         ISOP    2004/1-12/1/0      C xy kg/m2/s CO2 421/430/1         8 1\n0 CO2_MONOTERP      $ROOT/CO2/v2022-11/CHEM/Monoterpene-2004.geos.2x25.nc      MONOT   2004/1-12/1/0      C xy kg/m2/s CO2 421/430/1         8 1\n)))CO2CORR\n\n)))USE_CO2_DATA\n\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n#%%%%%                OCS FLUXES (cf Kevin Bowman/JPL)                    %%%%%\n#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n\n(((USE_OCS_DATA\n\n(((OCS_ANTHRO_FLUX\n0 OCS_ANTHRO $ROOT/OCS_FLUX/v2022-11/anthro_v3/v3_anthro/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 1 1\n)))OCS_ANTHRO_FLUX\n\n(((OCS_BIOMASS_FLUX\n0 OCS_BIOMASS $ROOT/OCS_FLUX/v2022-11/Biomassburn/CMSV2-CO2-GFED3-ZC/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 2 1\n)))OCS_BIOMASS_FLUX\n\n(((OCS_MISSING_OCEAN_FLUX\n0 OCS_MISSING_OCEAN $ROOT/OCS_FLUX/v2022-11/MissingOcean/LUKAI/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 3 1\n)))OCS_MISSING_OCEAN_FLUX\n\n(((OCS_OCEAN_FLUX\n0 OCS_OCEAN $ROOT/OCS_FLUX/v2022-11/OceanCOS/Kettle/$YYYY/$MM.nc COS_Flux 2012-2016/1-12/1/0 C xy kgS/km2/s OCS 70 4 1\n)))OCS_OCEAN_FLUX\n\n)))USE_OCS_DATA\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTE: These are the base emissions in kgDM/m2/s.\n#==============================================================================\n\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- Meteorology fields ---\n#==============================================================================\n(((METEOROLOGY\n\n>>>include ${RUNDIR_MET_FIELD_CONFIG}\n\n)))METEOROLOGY\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- GEOS-Chem boundary condition file ---\n#==============================================================================\n(((GC_BCs\n* BC_ $ROOT/SAMPLE_BCs/v2021-07/CH4/GEOSChem.BoundaryConditions.$YYYY$MM$DD_0000z.nc4 SpeciesBC_?ADV? 1900-2100/1-12/1-31/* EFY xyz 1 * - 1 1\n)))GC_BCs\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Chemistry inputs ---\n#==============================================================================\n(((CHEMISTRY_INPUT\n\n#------------------------------------------------------------------------------\n# --- Global OH fields ---\n#------------------------------------------------------------------------------\n\n(((USE_CH4_DATA.or.USE_CO_DATA\n\n# --- OH from GEOS-Chem v5-07 [kg/m3], needed for CH4/IMI ---\n(((GLOBAL_OH_GCv5\n* GLOBAL_OH  $ROOT/OH/v2022-11/v5-07-08/OH_3Dglobal.geos5.72L.4x5.nc OH  1985/1-12/1/0 C xyz kg/m3 * 2 1 1\n)))GLOBAL_OH_GCv5\n\n# --- OH from the last 10-yr benchmark [mol/mol dry] ---\n(((GLOBAL_OH_GC14\n(((.not.GLOBAL_OH_GCv5\n${RUNDIR_GLOBAL_OH}\n))).not.GLOBAL_OH_GCv5\n)))GLOBAL_OH_GC14\n\n)))USE_CH4_DATA.or.USE_CO_DATA\n\n#------------------------------------------------------------------------------\n# --- Quantities needed for CH4 chemistry ---\n#------------------------------------------------------------------------------\n\n(((USE_CH4_DATA\n\n# --- Global CH4 loss frequencies [1/s] -----------\n(((CH4_LOSS_FREQ\n${RUNDIR_CH4_LOSS}\n)))CH4_LOSS_FREQ\n\n# --- Global Cl [mol/mol dry air] ---\n(((GLOBAL_CL\n${RUNDIR_GLOBAL_Cl}\n)))GLOBAL_CL\n\n)))USE_CH4_DATA\n\n#------------------------------------------------------------------------------\n# --- Quantities needed for CO chemistry ---\n#------------------------------------------------------------------------------\n(((USE_CO_DATA\n\n# -- P(CO) from CH4 and NMVOC from the last 10-yr benchmark [molec/cm3/s] ---\n(((PROD_CO_CH4\n${RUNDIR_PCO_CH4}\n)))PROD_CO_CH4\n(((PROD_CO_NMVOC\n${RUNDIR_PCO_NMVOC}\n)))PROD_CO_NMVOC\n\n# --- GMI chemistry: prod/loss rates (for strato-/mesosphere) ---\n# --- Units: prod [v/v/s]; loss [1/s]                         ---\n(((GMI_PROD_LOSS\n* GMI_LOSS_CO    $ROOT/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc  loss  2005/1-12/1/0 C xyz s-1     CO - 1 1\n* GMI_PROD_CO    $ROOT/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc  prod  2005/1-12/1/0 C xyz v/v/s   CO - 1 1\n)))GMI_PROD_LOSS\n\n)))USE_CO_DATA\n\n#------------------------------------------------------------------------------\n# --- Quantities needed for CO2 chemistry ---\n#------------------------------------------------------------------------------\n(((USE_CO2_DATA\n\n# --- CHEMICAL PRODUCTION FROM CO OXIDATION ------\n# --- Recommended for use in forward modelling ---\n# --- Optional for inversion/assimilation --------\n(((CO2_COPROD\n${RUNDIR_CO2_COPROD}\n)))CO2_COPROD\n\n)))USE_CO2_DATA\n\n)))CHEMISTRY_INPUT\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n#------------------------------------------------------------------------------\n# --- Multiply by -1 to get a \"negative\" flux.\n#------------------------------------------------------------------------------\n1 NEGATIVE -1.0 - - - xy 1 1\n\n#------------------------------------------------------------------------------\n# --- Perturbation factors ---\n#\n# Default scaling factor of 1.0 for OH field, which will be changed for Jacobian and posterior OptimizeOH run\n#==============================================================================\n2 OH_pert_factor  1.0 - - - xy 1 1\n\n#==============================================================================\n# --- Scale factors for posterior run ---\n#\n# Entries below are provided for examples only. Add your own here!\n#==============================================================================\n(((Emis_PosteriorSF\n3 EMIS_SF    gridded_posterior.nc  ScaleFactor 2000/1/1/0         C xy 1 1\n)))Emis_PosteriorSF\n\n#==============================================================================\n# --- Scale factors for analytical inversions ---\n#==============================================================================\n(((AnalyticalInversion\n4 SCALE_PERT      ./gridded_pert_scale_1.nc          scale    2000/1/1/0 C xy 1 1\n\n# Add perturbations to individual state vector element (N) following this format\n# Start scale factor ID at 3000 to avoid conflicts with other SFs/masks\n#300N SCALE_ELEM_000N ./StateVector.nc StateVector 2000/1/1/0 C xy 1 1 N\n\n)))AnalyticalInversion\n\n(((EMISSIONS\n#==============================================================================\n# --- CH4: Seasonal scaling factors ----\n#==============================================================================\n(((USE_CH4_DATA\n\n#------------------------------------------------------------------------------\n# --- GHGI monthly scaling factors ---\n#------------------------------------------------------------------------------\n(((GHGI_v2.or.GHGI_v2_Express_Ext\n50 GHGI_OTH_STA_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1A_Combustion_Stationary           2012-2018/1-12/1/0 C xy 1 1\n51 GHGI_OIL_EXP_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Exploration 2012-2018/1-12/1/0 C xy 1 1\n52 GHGI_OIL_PRD_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Production  2012-2018/1-12/1/0 C xy 1 1\n53 GHGI_OIL_REF_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Refining    2012-2018/1-12/1/0 C xy 1 1\n54 GHGI_OIL_TRA_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2a_Petroleum_Systems_Transport   2012-2018/1-12/1/0 C xy 1 1\n55 GHGI_GAS_EXP_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2b_Natural_Gas_Exploration       2012-2018/1-12/1/0 C xy 1 1\n56 GHGI_GAS_PRD_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_1B2b_Natural_Gas_Production        2012-2018/1-12/1/0 C xy 1 1\n57 GHGI_LIV_MAN_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_3B_Manure_Management               2012-2018/1-12/1/0 C xy 1 1\n58 GHGI_RIC_CUL_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_3C_Rice_Cultivation                2012-2018/1-12/1/0 C xy 1 1\n59 GHGI_OTH_BUR_SF  $ROOT/CH4/v2023-07/Gridded_GHGI_v2/Gridded_GHGI_Methane_v2_Monthly_Scale_Factors_$YYYY.nc monthly_scale_factor_3F_Field_Burning                   2012-2018/1-12/1/0 C xy 1 1\n)))GHGI_v2.or.GHGI_v2_Express_Ext\n\n#------------------------------------------------------------------------------\n# --- Scarpelli_Mexico manure & rice scale factors ---\n#------------------------------------------------------------------------------\n(((Scarpelli_Mexico\n10 MANURE_SF $ROOT/CH4/v2017-10/Seasonal_SF/EMICH4_Manure_ScalingFactors.WithClimatology.nc  sf_ch4 2008-2016/1-12/1/0 C xy 1 1\n11 RICE_SF   $ROOT/CH4/v2017-10/Seasonal_SF/EMICH4_Rice_ScalingFactors.SetMissing.nc         sf_ch4 2012/1-12/1/0      C xy 1 1\n)))Scarpelli_Mexico\n\n#------------------------------------------------------------------------------\n# --- Seasonality for EDGAR livestock emissions ---\n#------------------------------------------------------------------------------\n(((EDGARv8\n24 EDGAR_SEASONAL_SF_ENF  $ROOT/CH4/v2023-04/EDGARv6_SF/EDGARv6_CH4_MonthlyScaleFactors_ENF.0.1x0.1.nc  sf_ch4 2018/1-12/1/0 C xy 1 1\n28 EDGAR_SEASONAL_SF_MNM  $ROOT/CH4/v2023-04/EDGARv6_SF/EDGARv6_CH4_MonthlyScaleFactors_MNM.0.1x0.1.nc  sf_ch4 2018/1-12/1/0 C xy 1 1\n)))EDGARv8\n\n)))USE_CH4_DATA\n\n#==============================================================================\n# --- Scale factors for CO2 emissions ---\n#==============================================================================\n(((USE_CO2_DATA\n\n#------------------------------------------------------------------------------\n# --- FOSSIL FUEL CO2 SURFACE CORRECTION FACTOR ---\n#\n# Fossil fuel CO2 emissions must be scaled down to avoid counting emissions\n# already accounted for by CO and CH4 oxidation to CO2.\n#\n# The necssary annual reduction in emissions related to fossil fuels is\n# determined as:  global C mass from FF (CO+CH4) / global C mass from FF CO2\n#\n# Note: GEOS-Chem v8-03-02 to v9-02, assumed: 0.0489 for all years but that\n# value seems to correspond to mid-1980s fossil fuel combustion since CO\n# emissions have held constant (Granier et al., 2011) while CO2 has risen.\n#\n# All scale factors for years 2000-2013 lumped into a single entry\n#------------------------------------------------------------------------------\n(((CO2CORR\n#410 CO2_FOSSFUEL_CORR 0.0489 - - - xy 1 1\n\n## CO2 scale factors from CO oxidation by decade (comment out for now)\n##410 CO2_FOSSFUEL_CORR 0.052815/0.054486/0.054902/0.055107/0.053166/0.051611/0.050065/0.048803/0.047060/0.046041 - 1980-1989/1/1/0 C xy 1 1\n##410 CO2_FOSSFUEL_CORR 0.045816/0.045153/0.045541/0.045556/0.044800/0.043875/0.042910/0.042206/0.042257/0.042468 - 1990-1999/1/1/0 C xy 1 1\n##410 CO2_FOSSFUEL_CORR 0.041495/0.040525/0.040125/0.037853/0.035957/0.034686/0.033538/0.032771/0.031961/0.032118 - 2000-2009/1/1/0 C xy 1 1\n##410 CO2_FOSSFUEL_CORR 0.030622/0.029674/0.029029/0.028355                                                       - 2010-2013/1/1/0 C xy 1 1\n\n410 CO2_FOSSFUEL_CORR 0.041495/0.040525/0.040125/0.037853/0.035957/0.034686/0.033538/0.032771/0.031961/0.032118/0.030622/0.029674/0.029029/0.028355 - 2000-2013/1/1/0 C xy 1 1\n)))CO2CORR\n\n# -----------------------------------------------------------------------------\n# --- CO2 conversion factors ---\n# -----------------------------------------------------------------------------\n420 CH4TOCO2  2.75   - - - xy 1 1\n421 CTOCO2    3.6667 - - - xy 1 1\n430 NMHCSCALE 0.3333 - - - xy 1 1\n\n#------------------------------------------------------------------------------\n# --- National fossil fuel CO2 scale factors (Nassar et al, 2013) ---\n#------------------------------------------------------------------------------\n(((FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n440 CO2_DIURNAL $ROOT/CO2/v2015-04/FOSSIL/TIMES_diurnal_scale_factors.nc diurnal_scale_factors 2006/1/1/1-24 C xy 1 1\n441 CO2_WEEKLY  $ROOT/CO2/v2015-04/FOSSIL/TIMES_weekly_scale_factors.nc  weekly_scale_factors  2006/1/WD/0   C xy 1 1\n)))FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n\n#------------------------------------------------------------------------------\n# --- DOMESTIC AVIATION SURFACE CORRECTION FACTOR ---\n#\n# Regional scale factors slightly less than 1 remove surface contribution from\n# domestic aviation in national fossil fuel emisisons, which should instead be\n# counted in the air as a 3D field. This scale factor should be applied to the\n# main/national fossil fuel emission field if using avaition emissions.\n#------------------------------------------------------------------------------\n(((FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n480 AVIATION_SURF_CORR $ROOT/CO2/v2022-11/FOSSIL/Aviation_SurfCorr_SclFac.1x1.nc CO2 2004/1/1/0 C xy 1 1\n)))FOSSIL_CDIAC.or.FOSSIL_ODIAC.or.CO2CORR\n\n)))USE_CO2_DATA\n\n#==============================================================================\n# --- Scale factors for CO emissions ---\n#==============================================================================\n(((USE_CO_DATA\n\n#------------------------------------------------------------------------------\n# --- Diurnal scale factors for CO ---\n#------------------------------------------------------------------------------\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy 1 1\n\n#------------------------------------------------------------------------------\n# --- Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019) ---\n#\n# Also need to undo (Oper=-1) the global diurnal scale factors over China\n#------------------------------------------------------------------------------\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 2009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 2009\n\n#------------------------------------------------------------------------------\n# --- Account for CO production by VOCs ---\n#------------------------------------------------------------------------------\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n#------------------------------------------------------------------------------\n# --- DICE-Africa ---\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n#------------------------------------------------------------------------------\n(((DICE_Africa\n320 DICE_CP_SF    0.20 - - - xy 1 1\n)))DICE_Africa\n\n#------------------------------------------------------------------------------\n# --- CO: HTAP Annual scale factors ---\n#------------------------------------------------------------------------------\n(((HTAP\n506 LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n507 LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n509 LIQFUEL_2006      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2006/1/1/0      C xy 1 -1\n510 LIQFUEL_2002      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2002/1/1/0      C xy 1 -1\n528 LIQFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2008-2010/1/1/0 C xy 1 -1\n)))HTAP\n\n)))USE_CO_DATA\n\n#==============================================================================\n# --- Scale factors for OCS emissions ---\n#==============================================================================\n(((USE_OCS_DATA\n\n#------------------------------------------------------------------------------\n# --- S to OCS ratio ---\n#------------------------------------------------------------------------------\n70 StoOCS  MATH:60.07/32.06 - - - xy unitless 1\n\n)))USE_OCS_DATA\n\n#==============================================================================\n# --- Inventory-specific scale factors ---\n#==============================================================================\n\n#------------------------------------------------------------------------------\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Lee et al.\n# (2021) only covers 1990 to 2018, so to get to 2019 it is assumed that the\n# growth from 2017 to 2018 is the same as that from 2018 to 2019.\n# So the formula is something like:\n#\n# Emissions of CO in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down.\n#\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n# If applying 1990-2019 scale factors\n(((AEIC_SCALE_1990_2019\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n\n# Assume 3.159 kg CO2 from every kg of fuel burned\n# cf Hileman, Stratton, & Donohoo, _J. Propul. Power_, 26(6), 1184–1196, 2010.\n260 AEIC19_FBtoCO2 3.159 - - - xy unitless 1\n\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n#------------------------------------------------------------------------------\n# --- CEDS vertical partitioning ---\n#------------------------------------------------------------------------------\n(((CEDS_01x01\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDS_01x01\n\n#------------------------------------------------------------------------------\n# --- GFAS scale factors ---\n#------------------------------------------------------------------------------\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#------------------------------------------------------------------------------\n# --- EPA NEI2016 (monthly-mean inventory) scale factors ---\n#------------------------------------------------------------------------------\n(((NEI2016_MONMEAN\n\n# Weekday/Weekend scale factors\n211 NEI99_DOW_CO $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO 1999/1-12/WD/0  C xy 1 1\n\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n252 NEI2016_CO_YRSCALE 1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n\n)))NEI2016_MONMEAN\n\n#------------------------------------------------------------------------------\n# --- QFED2 diurnal scale factors ---\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#------------------------------------------------------------------------------\n(((QFED2.or.GFAS.or.BB4MIPS\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n)))QFED2.or.GFAS.or.BB4MIPS\n\n#------------------------------------------------------------------------------\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016),\n# emit 35% of QFED emissions above the PBL.\n#------------------------------------------------------------------------------\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n(((CEDS_01x01\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDS_01x01\n\n)))EMISSIONS\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Masks used for CH4 simulation emissions ---\n#==============================================================================\n(((USE_CH4_DATA\n\n(((Scarpelli_Mexico\n1001 MEX_MASK          $ROOT/MASKS/v2024-04/Mexico_Mask.01x01.nc        MASK 2000/1/1/0 C xy 1 1 -118/17/-95/33\n1010 MEX_MASK_MIRROR   $ROOT/MASKS/v2024-04/Mexico_Mask_Mirror.01x01.nc MASK 2000/1/1/0 C xy 1 1 -118/17/-95/33\n)))Scarpelli_Mexico\n\n(((Scarpelli_Canada\n1002 CAN_MASK          $ROOT/MASKS/v2024-04/Canada_Mask.01x01.nc        MASK 2000/1/1/0 C xy 1 1 -141/40/-52/85\n1011 CAN_MASK_MIRROR   $ROOT/MASKS/v2024-04/Canada_Mask_Mirror.01x01.nc MASK 2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))Scarpelli_Canada\n\n(((GHGI_v2.or.GHGI_v2_Express_Ext\n1008 CONUS_MASK        $ROOT/MASKS/v2024-04/CONUS_Mask.01x01.nc         MASK 2000/1/1/0 C xy 1 1 -140/20/-50/60\n1009 CONUS_MASK_MIRROR $ROOT/MASKS/v2024-04/CONUS_Mask_Mirror.01x01.nc  MASK 2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))GHGI_v2.or.GHGI_v2_Express_Ext\n\n)))USE_CH4_DATA\n\n#==============================================================================\n# --- Masks used for CO and CO2 simulation emissions ---\n#==============================================================================\n(((USE_CO_DATA.or.USE_CO2_DATA\n\n(((APEI\n2002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc            MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n# Renamed to avoid a namespace collision w/ GHGI mask above!!!\n(((NEI2016_MONMEAN\n2007 NEI_CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc            MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n2008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n)))USE_CO_DATA.or.USE_CO2_DATA\n\n#==============================================================================\n# --- Masks used for CH4, CO and CO2 simulation emissions ---\n#==============================================================================\n(((CEDS_01x01\n2009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc          MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n)))CEDS_01x01\n\n(((RESERVOIRS\n1500 SEASONAL_RES_MASK $ROOT/CH4/v2024-01/ResME/reservoir_mask.01x01.nc Mask 2022/1-12/1/0 C xy 1 1 -180/-90/180/90\n)))RESERVOIRS\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n###############################################################################\n### REFERENCES\n###############################################################################\n#\n# Andres. R.J., J.S Gregg, L. Losey, G. Marland, T.A. Boden (2011), Montly,\n# global emissions of carbon dioxide from fossil fuel consumption, Tellus 63B,\n# 309-327.\n#\n# Baker, D.F. et al. (2006) TransCom3 inversion intercomparison: Impact of\n# transport model errors on the interannual variability of regional CO2 fluxes,\n# 1998-2003, Global Biogeochem., Cy., 20, GB1002, doi:10.29/2004GB002439.\n#\n# Endresen, O. et al. (2007), A historical reconstuctino of ships fuel\n# consuption and emissions, J. Geophys. Res., 112, D12301,\n# doi:10.1029/2006JD007630.\n#\n# Granier, C. et al. (2011), Evolution of anthropogenic and biomass burning\n# emissions of air pollutants at global and regional scales during the 1980-2010\n# period, Climatic Change, 109:163-190, doi:10.1007/s10584-011-0154-1.\n#\n# Keller, C.A., M.S. Long, R.M. Yantosca, A.M. DaSilva, S. Pawson, D.J. Jacob\n# (2014), HEMCO v1.0: a versatile, ESMF-compliant component for calculating\n# emissions in atmospheric models, Geosci., Model Dev., 7, 1409?1417,\n# doi:10.5194/gmd-7-1409-2014.\n#\n# Messerschmidt, J., N. Parazoo, N.M. Deutscher, C. Roehl, T. Warneke, P.O.\n# Wennberg, and D. Wunch (2012) Evaluation of atmosphere-biosphere exchange\n# estimations with TCCON measurements, Atmos. Chem. Phys. Discussions, 12,\n# 12759-12800, doi:10.5194/acpd-12-12759-2012.\n#\n# Nassar, R., D.B.A. Jones, P. Suntharalingam, J.M. Chen, R.J. Andres, K.J.\n# Wecht, R.M. Yantosca, S.S. Kulawik, K.W. Bowman, J.R. Worden, T. Machida and\n# H. Matsueda (2010), Modeling global atmospheric CO2 with improved emission\n# inventories and CO2 production from the oxidation of other carbon species,\n# Geoscientific Model Development, 3, 689-716.\n#\n# Nassar, R., L. Napier-Linton, K.R. Gurney, R.J. Andres, T. Oda, F.R. Vogel,\n# F. Deng (2013), Improving the temporal and spatial distribution of CO2\n# emissions from global fossil fuel emission datasets, Journal of Geophysical\n# Research: Atmospheres, 118, 917-933, doi:10.1029/2012JD018196.\n#\n# Oda, T. and S. Maksyutov (2011), A very high-resolution (1 km x 1 km) global\n# fossil fuel CO2 emission inventory derived using a point source database and\n# satellite observations of nighttime lights, Atmos. Chem. Phys., 11, 543?556,\n# doi:10.5194/acp-11-543-2011.\n#\n# Olsen, S.C. and J.T. Randerson (2004), Differences between surface and column\n# atmospheric CO2 and implications for carbon cycle research, J. Geophys. Res.\n# 109, D02301, doi:10.1029/2003JD003968.\n#\n# Olsen, S.C., D.J. Weubbles, B. Owen (2013) Comparison of global 3-D aviation\n# datasets, Atmos. Chem. Phys., 13, 429?441, doi:10.5194/acp-13-429-2013.\n#\n# Simone, N., M. Stettler, S. Eastham, S. Barrett, Aviation Emissions Inventory\n# Code (AEIC ) User Manual (R1), Laboratory for Aviation and the Environment,\n# Massachusetts Institute of Technology, January 2013, Report No:\n# LAE-2013-001-N,\n# www.LAE.MIT.edu.\n#\n# Takahashi, T., et al. (2009), Climatological mean and decadal change in\n# surface ocean pCO2, and net sea-air CO2 flux over the global oceans, Deep-Sea\n# Res. II, 56(8?10), 554?577, doi:10.1016/j.dsr2.2008.12.009.\n#\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nGCAPSCENARIO:                not_used\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       false\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       false\n    --> HEMCO_RESTART          :       false\n# ----- NESTED GRID FIELDS ----------------------------------------------------\n    --> GC_BCs                 :       false\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> CEDS_01x01             :       ${RUNDIR_USE_CEDS}    # 1980-2019\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAPv3                 :       false    # 2000-2018\n    --> GEIA_NH3               :       true     # 1990\n    --> SEABIRD_NH3            :       true     # 1990\n    --> POET_EOH               :       false    # 1985\n    --> TZOMPASOSA_C2H6        :       ${RUNDIR_USE_TSC2H6}    # 2010\n    --> XIAO_C3H8              :       ${RUNDIR_USE_XIAOC3H8}    # 1985\n    --> LIANG_BROMOCARB        :       true     # 2000\n    --> ORDONEZ_IODOCARB       :       true     # 2000\n    --> GT_Chlorine            :       true     # 1960-2014\n    --> DECAYING_PLANTS        :       true     # 1985\n    --> AFCID                  :       true     # 2015\n# ----- AIRCRAFT EMISSIONS ----------------------------------------------------\n# There are 3 switches:\n#\n#  1. AEIC2019_DAILY selects daily AEIC 2019 emissions.  For most simulations,\n#     this is not recommended due to the amount of computational overhead\n#     that will be incurred in regridding.  But this may be useful for\n#     research purposes.  Recommended setting: \"AEIC2019_DAILY: false\".\n#\n#  2. AEIC2019_MONMEAN selects monthly-mean AEIC 2019 emisisons, which will\n#     incur much less computational overhaead.  This option should suffice\n#     for most simulations.  Recommended setting \"AEIC2019_MONMEAN: true\".\n#\n#  3. AEIC_SCALE_1990_2019: If \"false\", the AEIC 2019 data from the year\n#     2019 alone will be used.  This will yield a \"best estimate\" of\n#     aviation emisssion. This could be important because simply scaling\n#     aviation emissions up and down is rather nonphysical.  But if\n#     AEIC_SCALE_1990_2019 is set to true, then aviation emissions for\n#     1990 to 2019 are estimated by:\n#\n#     a. Scaling ALL aviation emissions based on the growth in fuelburn\n#        from 1990 to 2019* estimated by Lee et al. (2021); and\n#\n#     b. Scaling aviation NOx emissions by an additional factor to reflect\n#        the changes in the NOx emissions index over the same period as\n#        reported by Lee et al. (2021).\n#\n#     Recommended setting: \"AEIC_SCALE_1990_2019: true\"\n#\n# See additional notes in the AEIC scale factor section below.\n#------------------------------------------------------------------------------\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       ${RUNDIR_USE_AEIC}     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       ${RUNDIR_USE_AEIC}     # Scale to year in 1990-2019\n# ----- SHIP EMISSIONS --------------------------------------------------------\n    --> SHIP                   :       true\n    --> CEDS_01x01_SHIP        :       ${RUNDIR_USE_CEDS}    # 1980-2019\n    --> HTAPv3_SHIP            :       false    # 2000-2018\n# ----- RCP FUTURE EMISSIONS --------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- CMIP6 ANTHRO EMISSIONS / BOUNDARY CONDITIONS --------------------------\n#   Set GCAPSCENARIO (e.g., HIST, SSP585) above in SECTION SETTINGS\n    --> CMIP6_SFC_BC           :       ${RUNDIR_CMIP6_FIELDS}    # 1750-2100\n    --> CMIP6_SFC_LAND_ANTHRO  :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> CMIP6_AIRCRAFT         :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> CMIP6_SHIP             :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n# ----- BIOMASS BURNING EMISSIONS ---------------------------------------------\n    --> QFED2                  :       false    # 2000-2020\n    --> GFAS                   :       false    # 2003-2021\n    --> BB4MIPS                :       ${RUNDIR_CMIP6_FIELDS}    # 1850-2100\n    --> GFED4_CLIMATOLOGY      :       false    # If true, turn off GFED ext below\n    --> FINNv25                :       false    # 2012-2023\n# ----- OFFLINE EMISSIONS -----------------------------------------------------\n# To use online emissions instead set the offline emissions to 'false' and the\n# corresponding HEMCO extension to 'on':\n#   OFFLINE_DUST        - DustL23M\n#   OFFLINE_BIOGENICVOC - MEGAN\n#   OFFLINE_SEASALT     - SeaSalt\n#   OFFLINE_SOILNOX     - SoilNOx\n#\n# NOTE: When switching between offline and online emissions, make sure to also\n# update ExtNr and Cat in HEMCO_Diagn.rc to properly save out emissions for\n# any affected species.\n#------------------------------------------------------------------------------\n    --> OFFLINE_DUST           :       ${RUNDIR_OFFLINE_DUST}    # 1980-2019\n    --> OFFLINE_BIOGENICVOC    :       ${RUNDIR_OFFLINE_BIOVOC}    # 1980-2020\n    --> OFFLINE_SEASALT        :       ${RUNDIR_OFFLINE_SEASALT}    # 1980-2019\n    -->  CalcBrSeasalt         :       true\n    --> OFFLINE_SOILNOX        :       ${RUNDIR_OFFLINE_SOILNOX}    # 1980-2020\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> UVALBEDO               :       true     # 1985\n    --> CCM_STRAT_Bry          :       true     # 2007\n    --> GMI_OH                 :       true     # 2005\n    --> GMI_PROD_LOSS          :       true     # 2005\n    --> OMOC_RATIO             :       false    # 2010\n    --> GMD_SFC_CH4            :       ${RUNDIR_USE_GMDCH4}    # 1975-2022\n    --> CMIP6_SFC_CH4          :       false    # 1750-1978\n    --> OLSON_LANDMAP          :       false    # 1985\n    --> YUAN_MODIS_LAI         :       false    # 2000-2020\n    --> RRTMG                  :       ${RUNDIR_USE_RRTMG}    # 2002\n    --> SfcVMR                 :       ${RUNDIR_USE_SFCVMR}    # 1750-2014\n    --> OCEAN_O3_DRYDEP        :       true     # 1985\n# -----------------------------------------------------------------------------\n100     Custom                 : off   -\n101     SeaFlux                : on    DMS/ACET/ALD2/MENO3/ETNO3/MOH\n102     ParaNOx                : on    NO/NO2/O3/HNO3\n    --> LUT data format        :       txt\n    --> LUT source dir         :       $ROOT/PARANOX/v2015-02\n103     LightNOx               : on    NO\n    --> LightningClimatology   :       ${RUNDIR_LIGHTNOX_CLIM}\n    --> CDF table              :       $ROOT/LIGHTNOX/v2014-07/light_dist.ott2010.dat\n104     SoilNOx                : ${RUNDIR_SOILNOX_EXT}   NO\n    --> UseSoilTemperature     :       false\n    --> Use fertilizer NOx     :       true\n107     SeaSalt                : ${RUNDIR_SEASALT_EXT}   SALA/SALC/SALACL/SALCCL/SALAAL/SALCAL/BrSALA/BrSALC/MOPO/MOPI\n    --> SALA lower radius      :       0.01\n    --> SALA upper radius      :       0.5\n    --> SALC lower radius      :       0.5\n    --> SALC upper radius      :       8.0\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       5.0\n    --> Model sea salt Br-     :       true\n    --> Br- mass ratio         :       2.11e-3\n108     MEGAN                  : ${RUNDIR_MEGAN_EXT}    ISOP/ACET/PRPE/C2H4/ALD2/MOH/EOH/MTPA/MTPO/LIMO/SESQ/SOAP/SOAS\n    --> Isoprene scaling       :       1.0\n    --> CO2 inhibition         :       true\n    --> CO2 conc (ppmv)        :       390.0\n    --> Isoprene to SOAP       :       0.015\n    --> Isoprene to SOAS       :       0.015\n    --> Monoterp to SOAP       :       0.050\n    --> Monoterp to SOAS       :       0.050\n    --> Othrterp to SOAP       :       0.050\n    --> Othrterp to SOAS       :       0.050\n111     GFED                   : ${RUNDIR_GFED_EXT}   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6\n    --> GFED4                  :       true\n    --> GFED_daily             :       false\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n    --> Scaling_NAP            :       2.75e-4\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> fraction POG1          :       0.49\n    --> CO to SOAP             :       0.013\n    --> GFED_subgrid_coag      :       false\n117     Volcano                : on    SO2\n    --> Volcano_Source         :       AeroCom\n    --> Volcano_Table          :       ${RUNDIR_VOLC_TABLE}\n    --> Volcano_Climatology    :       ${RUNDIR_VOLC_CLIMATOLOGY}\n120     Inorg_Iodine           : on    HOI/I2\n    --> Emit HOI               :       true\n    --> Emit I2                :       true\n125     DustL23M               : ${RUNDIR_DUSTL23M_EXT}   TDST/DSTbin1/DSTbin2/DSTbin3/DSTbin4/DSTbin5/DSTbin6/DSTbin7\n    --> Mass tuning factor     :       ${RUNDIR_DUSTL23M_TF}\n#see the note near scale factor 281 for the source of this emis factor\n126     DustAlk                : ${RUNDIR_DUSTALK_EXT}   DSTALbin1/DSTALbin2/DSTALbin3/DSTALbin4/DSTALbin5/DSTALbin6/DSTALbin7\n# ----- EXTENSIONS FOR TOMAS SIMULATIONS ONLY----------------------------------\n130     TOMAS_Jeagle           : ${RUNDIR_TOMAS_SEASALT}   SS01/SS02/SS03/SS04/SS05/SS06/SS07/SS08/SS09/SS10/SS11/SS12/SS13/SS14/SS15/SS16/SS17/SS18/SS19/SS20/SS21/SS22/SS23/SS24/SS25/SS26/SS27/SS28/SS29/SS30/SS31/SS32/SS33/SS34/SS35/SS36/SS37/SS38/SS39/SS40\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       1.0\n    --> Model sea salt Br-     :       false\n    --> Br- mass ratio         :       2.11e-3\n131     TOMAS_DustDead         : ${RUNDIR_TOMAS_DUSTDEAD}   DUST01/DUST02/DUST03/DUST04/DUST05/DUST06/DUST07/DUST08/DUST09/DUST10/DUST11/DUST12/DUST13/DUST14/DUST15/DUST16/DUST17/DUST18/DUST19/DUST20/DUST21/DUST22/DUST23/DUST24/DUST25/DUST26/DUST27/DUST28/DUST29/DUST30/DUST31/DUST32/DUST33/DUST34/DUST35/DUST36/DUST37/DUST38/DUST39/DUST40\n    --> Mass tuning factor     :       ${RUNDIR_DUSTDEAD_TF}\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# --- APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_NO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NOx 1989-2014/1/1/0 RF xy kg/m2/s NO   25/1002/115    1 30\n0 APEI_CO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO  1989-2014/1/1/0 RF xy kg/m2/s CO   26/52/1002     1 30\n0 APEI_SOAP -                                   -   -               -  -  -       SOAP 26/52/1002/280 1 30\n0 APEI_SO2  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc SOx 1989-2014/1/1/0 RF xy kg/m2/s SO2  60/1002        1 30\n0 APEI_SO4  -                                   -   -               -  -  -       SO4  60/65/1002     1 30\n0 APEI_pFe  -                                   -   -               -  -  -       pFe  60/68/1002     1 30\n0 APEI_NH3  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NH3 1989-2014/1/1/0 RF xy kg/m2/s NH3  1002           1 30\n0 APEI_BCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPI 70/1002        1 30\n0 APEI_BCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPO 71/1002        1 30\n0 APEI_OCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPI 72/1002        1 30\n0 APEI_OCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPO 73/1002        1 30\n0 APEI_POG1 -                                       -    -          -  -  -       POG1 74/76/1002     1 30\n0 APEI_POG2 -                                       -    -          -  -  -       POG2 74/77/1002     1 30\n)))APEI\n\n#==============================================================================\n# --- EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #1007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_BCPI__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__afdustPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__afdustPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__afdustPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__afdustPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__afdustPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__afdustPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__agACET             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__agALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__agALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__agBENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_C2H4__agETH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__agETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__agETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__agFORM             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_PRPE__agIOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__agKET               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__agMEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__agNH3               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_PRPE__agOLE              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__agPAR              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_C3H8__agPRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_TOLU__agTOL              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__agXYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__airportsACET       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__airportsACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__airportsALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__airportsALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__airportsBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__airportsCO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__airportsSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__airportsETH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__airportsETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__airportsETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__airportsFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__airportsHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__airportsIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__airportsKET         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__airportsMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NO__airportsNO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__airportsNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__airportsOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__airportsPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__airportsPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__airportsPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__airportsPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__airportsPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__airportsPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__airportsPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__airportsPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__airportsSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__airportspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__airportsSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__airportsTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__airportsXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonptACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__nonptCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__nonptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__nonptHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HCL        2016/1-12/1/0      R  xy   kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__nonptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonroadACET        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonroadACROLEIN    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonroadALD2        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonroadALDX        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonroadBENZ        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__nonroadCO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonroadSOAP        -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonroadETH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonroadETHA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonroadETOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonroadFORM        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__nonroadHONO        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadIOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonroadKET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonroadMEOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonroadNH3          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonroadNO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonroadNO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonroadPAR         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonroadPNA         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonroadPNH4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonroadPNO3         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonroadPOC         -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonroadPOC         -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonroadPRPA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonroadPSO4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonroadSO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonroadspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonroadSULF         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonroadTOL         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonroadXYLMN       $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__npogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__npogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__npogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__npogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__npogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__npogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__npogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__npogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__npogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__npogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__npogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__npogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__npogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__npogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__npogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__npogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__npogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__npogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__npogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__npogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__npogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__npogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__npogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__npogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__npogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__npogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__npogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__npogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__npogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__npogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__npogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__npogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__npogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroadACET         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroadACROLEIN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroadALD2         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroadALDX         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroadBENZ         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroadCO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroadSOAP         -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroadETH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroadETHA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroadETOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroadFORM         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroadHONO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroadIOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroadKET           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroadMEOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroadNH3           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroadNO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroadNO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroadOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroadPAR          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroadPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroadPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroadPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroadPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroadPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroadPRPA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroadPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroadSO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroadpFe           -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroadTOL          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroadXYLMN        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_caACET      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_caACROLEIN  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_caALD2      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_caALDX      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_caBENZ      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_caCO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP_onroad__caSOAP      -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_caETH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_caETHA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_caETOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_caFORM      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_caHONO      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caIOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_caKET        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_caMEOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_caNH3        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_caNO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_caNO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_caPAR       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_caPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_caPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_caPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_caPRPA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_caPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_caSO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_capFe        -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroad_caTOL       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_caXYLMN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__railACET           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__railACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__railALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__railALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__railBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__railCO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__railSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__railETH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__railETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__railETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__railFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__railHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__railIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__railKET             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__railMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__railNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__railNO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__railNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__railOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__railPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__railPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__railPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__railPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__railPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__railPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__railPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__railPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__railSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__railpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__railSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__railTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__railXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__rwcACET            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__rwcACROLEIN        $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__rwcALD2            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__rwcALDX            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__rwcBENZ            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__rwcCL2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__rwcCO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__rwcSOAP            -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__rwcETH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__rwcETHA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__rwcETOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__rwcFORM            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__rwcHONO            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__rwcIOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__rwcKET              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__rwcMEOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__rwcNH3              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__rwcNO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__rwcNO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__rwcOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__rwcPAR             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__rwcPNA             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__rwcPNH4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__rwcPNO3             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__rwcPOC             -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__rwcPOC             -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__rwcPRPA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__rwcPSO4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__rwcSO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__rwcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__rwcSULF             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__rwcTOL             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__rwcXYLMN           $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c1c2ACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c1c2ALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c1c2ALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c1c2BENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c1c2CO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__clc2SOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c1c2ETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c1c2ETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c1c2ETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c1c2FORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c1c2HONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2IOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c1c2KET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c1c2MEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c1c2NH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c1c2NO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c1c2NO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2OLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c1c2PAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c1c2PNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c1c2PNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c1c2PNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__clc2POC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__clc2POC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c1c2PRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c1c2PSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c1c2SO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__clcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c1c2SULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c1c2TOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c1c2XYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c3ACET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c3ALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c3ALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c3BENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c3CO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__c3SOAP             -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c3ETH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c3ETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c3ETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c3FORM             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c3HONO             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c3IOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c3KET               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c3MEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c3NH3               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c3NO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c3NO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c3OLE              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c3PAR              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c3PNA              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c3PNH4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c3PNO3              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__c3POC              -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__c3POC              -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c3PRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c3PSO4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c3SO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__c2pFe               -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c3SULF              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c3TOL              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c3XYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__pteguACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__pteguACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__pteguALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__pteguALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__pteguBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__pteguCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__pteguCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__pteguSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__pteguETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__pteguETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__pteguETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__pteguFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__pteguHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__pteguHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__pteguIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__pteguKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__pteguMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__pteguNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__pteguNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__pteguNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__pteguOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__pteguPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__pteguPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__pteguPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__pteguPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__pteguPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__pteguPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__pteguPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__pteguPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__pteguSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptegupFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__pteguSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__pteguTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__pteguXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptogHCL             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO         2002-2020/1-12/1/0 RF xyz  kgNO2/m2/s NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptnonipmACET       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptnonipmACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptnonipmALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptnonipmALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptnonipmBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptnonipmCL2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CL2        2002-2020/1-12/1/0 R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptnonipmCO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptnonipmSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptnonipmETH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptnonipmETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptnonipmETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptnonipmFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptnonipmHCL         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HCL        2002-2020/1-12/1/0 R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptnonipmHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptnonipmKET         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptnonipmMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptnonipmNH3         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptnonipmNO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptnonipmNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptnonipmPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptnonipmPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptnonipmPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptnonipmPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptnonipmPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptnonipmPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptnonipmSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptnonipmpFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptnonipmSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptnonipmTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptnonipmXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_canACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_canALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_canALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_canBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_canCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_canSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_canETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_canETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_canETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_canFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_canHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_canKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_canMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_canNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_canNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_canNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_canPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_canPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_canPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_canPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_canPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_canPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_canSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_canpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_canSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_canTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_canXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_mexACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_mexALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_mexALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_mexBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_mexCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_mexSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_mexETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_mexETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_mexETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_mexFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_mexHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_mexKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_mexMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_mexNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_mexNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_mexNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_mexPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_mexPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_mexPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_mexPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_mexPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_mexPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_mexSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_mexpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_mexSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_mexTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_mexXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othafdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othafdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othafdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othafdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othafdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othafdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__otharACET          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__otharALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__otharALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__otharBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__otharCO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__otharSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__otharETH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__otharETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__otharETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__otharFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__otharHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__otharIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__otharKET            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__otharMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__otharNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__otharNO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__otharNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__otharOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__otharPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__otharPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__otharPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__otharPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__otharPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__otharPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__otharPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__otharPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__otharSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__otharpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__otharSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__otharTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__otharXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othptdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__othptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__othptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__othptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__othptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__othptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__othptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__othptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__othptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__othptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__othptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__othptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__othptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__othptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__othptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__othptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__othptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__othptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__othptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__othptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__othptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__othptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__othptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__othptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__othptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__othptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__othptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n# ------------------------\n#  Cars\n# ------------------------\n0 DICE_CARS_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CO      2013/1/1/0 C xy g/m2/yr  CO    26/1008         1 60\n0 DICE_CARS_SOAP  -                                                                 -       -          - -  -        SOAP  26/1008/280     1 60\n0 DICE_CARS_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  NO      2013/1/1/0 C xy g/m2/yr  NO    25/30/1008      1 60\n0 DICE_CARS_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALK4    2013/1/1/0 C xy g/m2/yr  ALK4  26/1008         1 60\n0 DICE_CARS_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ISOP    2013/1/1/0 C xy g/m2/yr  ISOP  26/1008         1 60\n0 DICE_CARS_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ACET    2013/1/1/0 C xy g/m2/yr  ACET  26/1008         1 60\n0 DICE_CARS_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  MEK     2013/1/1/0 C xy g/m2/yr  MEK   26/1008         1 60\n0 DICE_CARS_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALD2    2013/1/1/0 C xy g/m2/yr  ALD2  26/1008         1 60\n0 DICE_CARS_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  RCHO    2013/1/1/0 C xy g/m2/yr  RCHO  26/1008         1 60\n0 DICE_CARS_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  PRPE    2013/1/1/0 C xy g/m2/yr  PRPE  26/1008         1 60\n0 DICE_CARS_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CH2O    2013/1/1/0 C xy g/m2/yr  CH2O  26/1008         1 60\n0 DICE_CARS_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  SO2     2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008      1 60\n0 DICE_CARS_SO4   -                                                                 -       -          - -  -        SO4   31/63/1008      1 60\n0 DICE_CARS_pFe   -                                                                 -       -          - -  -        pFe   31/78/66/1008   1 60\n0 DICE_CARS_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  C2H4    2013/1/1/0 C xy g/m2/yr  C2H4  26/1008         1 60\n0 DICE_CARS_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BENZ    2013/1/1/0 C xy g/m2/yr  BENZ  26/1008         1 60\n0 DICE_CARS_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  TOLU    2013/1/1/0 C xy g/m2/yr  TOLU  26/1008         1 60\n0 DICE_CARS_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  XYLE    2013/1/1/0 C xy g/m2/yr  XYLE  26/1008         1 60\n0 DICE_CARS_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BC      2013/1/1/0 C xy g/m2/yr  BCPI  70/1008         1 60\n0 DICE_CARS_BCPO  -                                                                 -       -          - -  -        BCPO  71/1008         1 60\n0 DICE_CARS_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  OC      2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/330     1 60\n0 DICE_CARS_OCPO  -                                                                 -       -          - -  -        OCPO  73/1008/330     1 60\n0 DICE_CARS_POG1  -                                                                 -       -          - -  -        POG1  74/76/1008/330  1 60\n0 DICE_CARS_POG2  -                                                                 -       -          - -  -        POG2  74/77/1008/330  1 60\n\n# ------------------------\n#  Motorcycles\n# ------------------------\n0 DICE_MOTORCYCLES_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CO     2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_MOTORCYCLES_SOAP  -                                                                        -      -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_MOTORCYCLES_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  NO     2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_MOTORCYCLES_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  SO2    2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_MOTORCYCLES_SO4   -                                                                        -      -          - -  -        SO4   31/63/1008       1 60\n0 DICE_MOTORCYCLES_pFe   -                                                                        -      -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_MOTORCYCLES_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALK4   2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_MOTORCYCLES_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  MEK    2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_MOTORCYCLES_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALD2   2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_MOTORCYCLES_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  PRPE   2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_MOTORCYCLES_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CH2O   2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_MOTORCYCLES_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BENZ   2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_MOTORCYCLES_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  TOLU   2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_MOTORCYCLES_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BC     2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_MOTORCYCLES_BCPO  -                                                                        -      -          - -  -        BCPO  71/1008          1 60\n0 DICE_MOTORCYCLES_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  OC     2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_MOTORCYCLES_OCPO  -                                                                        -      -          - -  -        OCPO  73/1008          1 60\n0 DICE_MOTORCYCLES_POG1  -                                                                        -      -          -  - -        POG1  74/76/1008       1 60\n0 DICE_MOTORCYCLES_POG2  -                                                                        -      -          -  - -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Backup generators\n# ------------------------\n0 DICE_BACKUPGEN_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CO   2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_BACKUPGEN_SOAP  -                                                                          -    -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_BACKUPGEN_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO   2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_BACKUPGEN_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO2  2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       1 60\n0 DICE_BACKUPGEN_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  SO2  2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_BACKUPGEN_SO4   -                                                                          -    -          - -  -        SO4   31/63/1008       1 60\n0 DICE_BACKUPGEN_pFe   -                                                                          -    -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_BACKUPGEN_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ACET 2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_BACKUPGEN_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MEK  2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_BACKUPGEN_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ALD2 2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_BACKUPGEN_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  RCHO 2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_BACKUPGEN_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MVK  2013/1/1/0 C xy g/m2/yr  MVK   26/1008          1 60\n0 DICE_BACKUPGEN_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MACR 2013/1/1/0 C xy g/m2/yr  MACR  26/1008          1 60\n0 DICE_BACKUPGEN_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CH2O 2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n#0 DICE_BACKUPGEN_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MGLY 2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          1 60\n#0 DICE_BACKUPGEN_GLYX $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  GLYX 2013/1/1/0 C xy g/m2/yr  GLYX  26/1008          1 60\n0 DICE_BACKUPGEN_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  C2H4 2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          1 60\n0 DICE_BACKUPGEN_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BENZ 2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_BACKUPGEN_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  TOLU 2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_BACKUPGEN_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  XYLE 2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_BACKUPGEN_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BC   2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_BACKUPGEN_BCPO  -                                                                          -    -          - -  -        BCPO  71/1008          1 60\n0 DICE_BACKUPGEN_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  OC   2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_BACKUPGEN_OCPO  -                                                                          -    -          - -  -        OCPO  73/1008          1 60\n0 DICE_BACKUPGEN_POG1  -                                                                          -    -          - -  -        POG1  74/76/1008       1 60\n0 DICE_BACKUPGEN_POG2  -                                                                          -    -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Charcoal production\n# ------------------------\n0 DICE_CHARCOALPROD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008/320      1 60\n0 DICE_CHARCOALPROD_SOAP  -                                                                                -     -          - -  -        SOAP  26/1008/280/320  1 60\n0 DICE_CHARCOALPROD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008/320   1 60\n0 DICE_CHARCOALPROD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008/320         1 60\n0 DICE_CHARCOALPROD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008/320      1 60\n0 DICE_CHARCOALPROD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008/320      1 60\n0 DICE_CHARCOALPROD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008/320      1 60\n0 DICE_CHARCOALPROD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPO  -                                                                                -     -          - -  -        BCPO  71/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPO  -                                                                                -     -          - -  -        OCPO  73/1008/320      1 60\n0 DICE_CHARCOALPROD_POG1  -                                                                                -     -          - -  -        POG1  74/76/1008/320   1 60\n0 DICE_CHARCOALPROD_POG2  -                                                                                -     -          - -  -        POG2  74/77/1008/320   1 60\n\n# ------------------------\n#  Flaring of natural gas\n# ------------------------\n0 DICE_GASFLARE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_GASFLARE_SOAP  -                                                                       -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_GASFLARE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_GASFLARE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_GASFLARE_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_GASFLARE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_GASFLARE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_GASFLARE_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_GASFLARE_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_GASFLARE_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_GASFLARE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_GASFLARE_BCPO  -                                                                       -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_GASFLARE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_GASFLARE_OCPO  -                                                                       -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_GASFLARE_POG1  -                                                                       -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_GASFLARE_POG2  -                                                                       -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Ag waste burning for energy\n# ------------------------------\n0 DICE_AGBURNING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_AGBURNING_SOAP  -                                                                                       -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_AGBURNING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_AGBURNING_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_AGBURNING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_AGBURNING_SO4   -                                                                                       -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_AGBURNING_pFe   -                                                                                       -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_AGBURNING_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_AGBURNING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_AGBURNING_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_AGBURNING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          2 60\n0 DICE_AGBURNING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_AGBURNING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_AGBURNING_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_AGBURNING_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MACR  2013/1/1/0 C xy g/m2/yr  MACR  26/1008          2 60\n0 DICE_AGBURNING_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_AGBURNING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          2 60\n0 DICE_AGBURNING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_AGBURNING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_AGBURNING_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_AGBURNING_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_AGBURNING_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_AGBURNING_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_AGBURNING_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_AGBURNING_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_AGBURNING_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_AGBURNING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_AGBURNING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_AGBURNING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_AGBURNING_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_AGBURNING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_AGBURNING_BCPO  -                                                                                       -     -          - -  g/m2/yr  BCPO  71/1008          2 60\n0 DICE_AGBURNING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_AGBURNING_OCPO  -                                                                                       -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_AGBURNING_POG1  -                                                                                       -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_AGBURNING_POG2  -                                                                                       -     -          - -  -        POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Charcoal use\n# ------------------------------\n0 DICE_CHARCOALUSE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_CHARCOALUSE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_CHARCOALUSE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_CHARCOALUSE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_CHARCOALUSE_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_CHARCOALUSE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_CHARCOALUSE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_CHARCOALUSE_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_CHARCOALUSE_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n0 DICE_CHARCOALUSE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_CHARCOALUSE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_CHARCOALUSE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_CHARCOALUSE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_CHARCOALUSE_POG1  -                                                                         -     -          - - -         POG1  74/76/1008       2 60\n0 DICE_CHARCOALUSE_POG2  -                                                                         -     -          - - -         POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Kerosene use\n# ------------------------------\n0 DICE_KEROSENE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_KEROSENE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_KEROSENE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_KEROSENE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_KEROSENE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_KEROSENE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_KEROSENE_POG1  -                                                                         -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_KEROSENE_POG2  -                                                                         -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Artisanal oil refining\n# ------------------------------\n0 DICE_OILREFINING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_OILREFINING_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_OILREFINING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_OILREFINING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_OILREFINING_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       1 60\n0 DICE_OILREFINING_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_OILREFINING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_OILREFINING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_OILREFINING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_OILREFINING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_OILREFINING_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  RCHO  2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_OILREFINING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          1 60\n0 DICE_OILREFINING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_OILREFINING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          1 60\n0 DICE_OILREFINING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_OILREFINING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_OILREFINING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_OILREFINING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_OILREFINING_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_OILREFINING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_OILREFINING_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_OILREFINING_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_OILREFINING_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       1 60\n\n# --------------------------\n#  Household fuelwood use\n# --------------------------\n0 DICE_HOUSEFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_HOUSEFUELWOOD_SOAP  -                                                                                   -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_HOUSEFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO4   -                                                                                   -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_HOUSEFUELWOOD_pFe   -                                                                                   -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_HOUSEFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_HOUSEFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPO  -                                                                                   -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPO  -                                                                                   -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_HOUSEFUELWOOD_POG1  -                                                                                   -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_HOUSEFUELWOOD_POG2  -                                                                                   -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------\n#  Commercial (other) fuelwood use\n# ---------------------------------\n0 DICE_OTHERFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_OTHERFUELWOOD_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_OTHERFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_OTHERFUELWOOD_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_OTHERFUELWOOD_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_OTHERFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_OTHERFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_OTHERFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_OTHERFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_OTHERFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_OTHERFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_OTHERFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_OTHERFUELWOOD_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_OTHERFUELWOOD_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1201/1008/70         1 60\n0 AF_EDGAR_BCPO_POW -                                                    -       -               -  -  -       BCPO 1201/1008/71         1 60\n0 AF_EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1202/1008/70         1 60\n0 AF_EDGAR_BCPO_ENG -                                                    -       -               -  -  -       BCPO 1202/1008/71         1 60\n0 AF_EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1203/1008/70         1 60\n0 AF_EDGAR_BCPO_IND -                                                    -       -               -  -  -       BCPO 1203/1008/71         1 60\n0 AF_EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1205/1008/70         1 60\n0 AF_EDGAR_BCPO_TNG -                                                    -       -               -  -  -       BCPO 1205/1008/71         1 60\n0 AF_EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1211/1008/70         1 60\n0 AF_EDGAR_BCPO_SWD -                                                    -       -               -  -  -       BCPO 1211/1008/71         1 60\n\n0 AF_EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1201/26/52/1008      1 60\n0 AF_EDGAR_SOAP_POW -                                                    -       -               -  -  -       SOAP 1201/26/52/1008/280  1 60\n0 AF_EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1202/26/52/1008      1 60\n0 AF_EDGAR_SOAP_ENG -                                                    -       -               -  -  -       SOAP 1202/26/52/1008/280  1 60\n0 AF_EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1203/26/52/1008      1 60\n0 AF_EDGAR_SOAP_IND -                                                    -       -               -  -  -       SOAP 1203/26/52/1008/280  1 60\n0 AF_EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1205/26/52/1008      1 60\n0 AF_EDGAR_SOAP_TNG -                                                    -       -               -  -  -       SOAP 1205/26/52/1008/280  1 60\n0 AF_EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1207/26/52/1008      1 60\n0 AF_EDGAR_SOAP_PPA -                                                    -       -               -  -  -       SOAP 1207/26/52/1008/280  1 60\n0 AF_EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1211/26/52/1008      1 60\n0 AF_EDGAR_SOAP_SWD -                                                    -       -               -  -  -       SOAP 1211/26/52/1008/280  1 60\n\n0 AF_EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1201/25/115/1008     1 60\n0 AF_EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1202/25/115/1008     1 60\n0 AF_EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1203/25/115/1008     1 60\n0 AF_EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1205/25/115/1008     1 60\n0 AF_EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1207/25/115/1008     1 60\n0 AF_EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1208/25/115/1008     1 60\n0 AF_EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1211/25/115/1008     1 60\n\n0 AF_EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1201/1008            1 60\n0 AF_EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1202/1008            1 60\n0 AF_EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1203/1008            1 60\n0 AF_EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1205/1008            1 60\n0 AF_EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1207/1008            1 60\n0 AF_EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1208/1008            1 60\n0 AF_EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1210/1008            1 60\n0 AF_EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1211/1008            1 60\n\n0 AF_EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1201/1008/72         1 60\n0 AF_EDGAR_OCPO_POW -                                                    -       -               -  -  -       OCPO 1201/1008/73         1 60\n0 AF_EDGAR_POG1_POW -                                                    -       -               -  -  -       POG1 1201/1008/74/76      1 60\n0 AF_EDGAR_POG2_POW -                                                    -       -               -  -  -       POG2 1201/1008/74/77      1 60\n0 AF_EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1202/1008/72         1 60\n0 AF_EDGAR_OCPO_ENG -                                                    -       -               -  -  -       OCPO 1202/1008/73         1 60\n0 AF_EDGAR_POG1_ENG -                                                    -       -               -  -  -       POG1 1202/1008/74/76      1 60\n0 AF_EDGAR_POG2_ENG -                                                    -       -               -  -  -       POG2 1202/1008/74/77      1 60\n0 AF_EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1203/1008/72         1 60\n0 AF_EDGAR_OCPO_IND -                                                    -       -               -  -  -       OCPO 1203/1008/73         1 60\n0 AF_EDGAR_POG1_IND -                                                    -       -               -  -  -       POG1 1203/1008/74/76      1 60\n0 AF_EDGAR_POG2_IND -                                                    -       -               -  -  -       POG2 1203/1008/74/77      1 60\n0 AF_EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1205/1008/72         1 60\n0 AF_EDGAR_OCPO_TNG -                                                    -       -               -  -  -       OCPO 1205/1008/73         1 60\n0 AF_EDGAR_POG1_TNG -                                                    -       -               -  -  -       POG1 1205/1008/74/76      1 60\n0 AF_EDGAR_POG2_TNG -                                                    -       -               -  -  -       POG2 1205/1008/74/77      1 60\n0 AF_EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1211/1008/72         1 60\n0 AF_EDGAR_OCPO_SWD -                                                    -       -               -  -  -       OCPO 1211/1008/73         1 60\n0 AF_EDGAR_POG1_SWD -                                                    -       -               -  -  -       POG1 1211/1008/74/76      1 60\n0 AF_EDGAR_POG2_SWD -                                                    -       -               -  -  -       POG2 1211/1008/74/77      1 60\n\n0 AF_EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1201/1008            1 60\n0 AF_EDGAR_SO4_POW  -                                                    -       -               -  -  -       SO4  1201/1008/63         1 60\n0 AF_EDGAR_pFe_POW  -                                                    -       -               -  -  -       pFe  1201/1008/66         1 60\n0 AF_EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1202/1008            1 60\n0 AF_EDGAR_SO4_ENG  -                                                    -       -               -  -  -       SO4  1202/1008/63         1 60\n0 AF_EDGAR_pFe_ENG  -                                                    -       -               -  -  -       pFe  1202/1008/66         1 60\n0 AF_EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1203/1008            1 60\n0 AF_EDGAR_SO4_IND  -                                                    -       -               -  -  -       SO4  1203/1008/63         1 60\n0 AF_EDGAR_pFe_IND  -                                                    -       -               -  -  -       pFe  1203/1008/66         1 60\n0 AF_EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1205/1008            1 60\n0 AF_EDGAR_SO4_TNG  -                                                    -       -               -  -  -       SO4  1205/1008/63         1 60\n0 AF_EDGAR_pFe_TNG  -                                                    -       -               -  -  -       pFe  1205/1008/66         1 60\n0 AF_EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1207/1008            1 60\n0 AF_EDGAR_SO4_PPA  -                                                    -       -               -  -  -       SO4  1207/1008/63         1 60\n0 AF_EDGAR_pFe_PPA  -                                                    -       -               -  -  -       pFe  1207/1008/66         1 60\n0 AF_EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1211/1008            1 60\n0 AF_EDGAR_SO4_SWD  -                                                    -       -               -  -  -       SO4  1211/1008/63         1 60\n0 AF_EDGAR_pFe_SWD  -                                                    -       -               -  -  -       pFe  1211/1008/66         1 60\n)))DICE_Africa\n\n#==============================================================================\n# --- CEDS_01x01 ---\n#\n# %%% This is the default global inventory.                            %%%\n# %%% You may select either CEDS, EDGAR, HTAP or CMIP6_SFC_LAND_ANTHRO %%%\n# %%% for the global base emissions.                                   %%%\n#==============================================================================\n(((CEDS_01x01\n0 CEDS_NO_AGR     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_agr            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2401                1 5\n0 CEDS_NO_ENE     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s NO    2401/706/315        1 5\n0 CEDS_NO_IND     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s NO    2407/707/316        1 5\n0 CEDS_NO_TRA     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_tra            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2411/711            1 5\n0 CEDS_NO_RCO     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_rco            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2409/709            1 5\n0 CEDS_NO_SLV     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_slv            1980-2019/1-12/1/0 C xy   kg/m2/s NO    2407/707            1 5\n0 CEDS_NO_WST     $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc            NO_wst            1980-2019/1-12/1/0 C xy   kg/m2/s NO    25                  1 5\n\n0 CEDS_CO_AGR     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_agr            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2401                1 5\n0 CEDS_SOAP_AGR   -                                                             -                 -                  - -    -       SOAP  280/2401            1 5\n0 CEDS_CO_ENE     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s CO    2406/706/315        1 5\n0 CEDS_SOAP_ENE   -                                                             -                 -                  - -    -       SOAP  280/2406/706/315    1 5\n0 CEDS_CO_IND     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s CO    2407/707/316        1 5\n0 CEDS_SOAP_IND   -                                                             -                 -                  - -    -       SOAP  280/2407/707/316    1 5\n0 CEDS_CO_TRA     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_tra            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2411/711            1 5\n0 CEDS_SOAP_TRA   -                                                             -                 -                  - -    -       SOAP  280/2411/711        1 5\n0 CEDS_CO_RCO     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_rco            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2409/709            1 5\n0 CEDS_SOAP_RCO   -                                                             -                 -                  - -    -       SOAP  280/2409/709        1 5\n0 CEDS_CO_SLV     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_slv            1980-2019/1-12/1/0 C xy   kg/m2/s CO    2407/707            1 5\n0 CEDS_SOAP_SLV   -                                                             -                 -                  - -    -       SOAP  280/2407/707        1 5\n0 CEDS_CO_WST     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_wst            1980-2019/1-12/1/0 C xy   kg/m2/s CO    26                  1 5\n0 CEDS_SOAP_WST   -                                                             -                 -                  - -    -       SOAP  26/280              1 5\n\n0 CEDS_SO2_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_agr           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2401                1 5\n0 CEDS_SO4_AGR    -                                                             -                 -                  - -    -       SO4   63/2401             1 5\n0 CEDS_pFe_AGR    -                                                             -                 -                  - -    -       pFe   66/2401             1 5\n0 CEDS_SO2_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s SO2   2406/706/315        1 5\n0 CEDS_SO4_ENE    -                                                             -                 -                  - -    -       SO4   63/2406/706/315     1 5\n0 CEDS_pFe_ENE    -                                                             -                 -                  - -    -       pFe   66/2406/706/315     1 5\n0 CEDS_SO2_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s SO2   2407/707/316        1 5\n0 CEDS_SO4_IND    -                                                             -                 -                  - -    -       SO4   63/2407/707/316     1 5\n0 CEDS_pFe_IND    -                                                             -                 -                  - -    -       pFe   66/2407/707/316     1 5\n0 CEDS_SO2_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_tra           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2411/711            1 5\n0 CEDS_SO4_TRA    -                                                             -                 -                  - -    -       SO4   63/2411/711         1 5\n0 CEDS_pFe_TRA    -                                                             -                 -                  - -    -       pFe   66/2411/711         1 5\n0 CEDS_SO2_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_rco           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2409/709            1 5\n0 CEDS_SO4_RCO    -                                                             -                 -                  - -    -       SO4   63/2409/709         1 5\n0 CEDS_pFe_RCO    -                                                             -                 -                  - -    -       pFe   66/2409/709         1 5\n0 CEDS_SO2_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_slv           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   2407/707            1 5\n0 CEDS_SO4_SLV    -                                                             -                 -                  - -    -       SO4   63/2407/707         1 5\n0 CEDS_pFe_SLV    -                                                             -                 -                  - -    -       pFe   66/2407/707         1 5\n0 CEDS_SO2_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_wst           1980-2019/1-12/1/0 C xy   kg/m2/s SO2   -                   1 5\n0 CEDS_SO4_WST    -                                                             -                 -                  - -    -       SO4   63                  1 5\n0 CEDS_pFe_WST    -                                                             -                 -                  - -    -       pFe   66                  1 5\n\n0 CEDS_NH3_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_agr           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2401                1 5\n0 CEDS_NH3_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s NH3   2406/706/315        1 5\n0 CEDS_NH3_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s NH3   2407/707/316        1 5\n0 CEDS_NH3_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_tra           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2411/711            1 5\n0 CEDS_NH3_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_rco           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2409/709            1 5\n0 CEDS_NH3_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_slv           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   2407/707            1 5\n0 CEDS_NH3_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_wst           1980-2019/1-12/1/0 C xy   kg/m2/s NH3   -                   1 5\n\n0 CEDS_BCPI_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_agr            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2401             1 5\n0 CEDS_BCPO_AGR   -                                                             -                 -                  - -    -       BCPO  71/2401             1 5\n0 CEDS_BCPI_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2406/706/315     1 5\n0 CEDS_BCPO_ENE   -                                                             -                 -                  - -    -       BCPO  71/2406/706/315     1 5\n0 CEDS_BCPI_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2407/707/316     1 5\n0 CEDS_BCPO_IND   -                                                             -                 -                  - -    -       BCPO  71/2407/707/316     1 5\n0 CEDS_BCPI_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_tra            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2411/711         1 5\n0 CEDS_BCPO_TRA   -                                                             -                 -                  - -    -       BCPO  71/2411/711         1 5\n0 CEDS_BCPI_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_rco            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2409/709         1 5\n0 CEDS_BCPO_RCO   -                                                             -                 -                  - -    -       BCPO  71/2409/709         1 5\n0 CEDS_BCPI_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_slv            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2407/707         1 5\n0 CEDS_BCPO_SLV   -                                                             -                 -                  - -    -       BCPO  71/2407/707         1 5\n0 CEDS_BCPI_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_wst            1980-2019/1-12/1/0 C xy   kg/m2/s BCPI  70                  1 5\n0 CEDS_BCPO_WST   -                                                             -                 -                  - -    -       BCPO  71                  1 5\n\n0 CEDS_OCPI_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_agr            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2401             1 5\n0 CEDS_OCPO_AGR   -                                                             -                 -                  - -    -       OCPO  73/2401             1 5\n0 CEDS_POG1_AGR   -                                                             -                 -                  - -    -       POG1  74/76/2401          1 5\n0 CEDS_POG2_AGR   -                                                             -                 -                  - -    -       POG2  74/77/2401          1 5\n0 CEDS_OCPI_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_ene            1980-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2406/706/315     1 5\n0 CEDS_OCPO_ENE   -                                                             -                 -                  - -    -       OCPO  73/2406/706/315     1 5\n0 CEDS_POG1_ENE   -                                                             -                 -                  - -    -       POG1  74/76/2406/706/315  1 5\n0 CEDS_POG2_ENE   -                                                             -                 -                  - -    -       POG2  74/76/2406/706/315  1 5\n0 CEDS_OCPI_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_ind            1980-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2407/707/316     1 5\n0 CEDS_OCPO_IND   -                                                             -                 -                  - -    -       OCPO  73/2407/707/316     1 5\n0 CEDS_POG1_IND   -                                                             -                 -                  - -    -       POG1  74/76/2407/707/316  1 5\n0 CEDS_POG2_IND   -                                                             -                 -                  - -    -       POG2  74/77/2407/707/316  1 5\n0 CEDS_OCPI_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_tra            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2411/711         1 5\n0 CEDS_OCPO_TRA   -                                                             -                 -                  - -    -       OCPO  73/2411/711         1 5\n0 CEDS_POG1_TRA   -                                                             -                 -                  - -    -       POG1  74/76/2411/711      1 5\n0 CEDS_POG2_TRA   -                                                             -                 -                  - -    -       POG2  74/77/2411/711      1 5\n0 CEDS_OCPI_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_rco            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2409/709         1 5\n0 CEDS_OCPO_RCO   -                                                             -                 -                  - -    -       OCPO  73/2409/709         1 5\n0 CEDS_POG1_RCO   -                                                             -                 -                  - -    -       POG1  74/76/2409/709      1 5\n0 CEDS_POG2_RCO   -                                                             -                 -                  - -    -       POG2  74/77/2409/709      1 5\n0 CEDS_OCPI_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_slv            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2407/707         1 5\n0 CEDS_OCPO_SLV   -                                                             -                 -                  - -    -       OCPO  73/2407/707         1 5\n0 CEDS_POG1_SLV   -                                                             -                 -                  - -    -       POG1  74/76/2407/707      1 5\n0 CEDS_POG2_SLV   -                                                             -                 -                  - -    -       POG2  74/77/2407/707      1 5\n0 CEDS_OCPI_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_wst            1980-2019/1-12/1/0 C xy   kg/m2/s OCPI  72                  1 5\n0 CEDS_OCPO_WST   -                                                             -                 -                  - -    -       OCPO  73                  1 5\n0 CEDS_POG1_WST   -                                                             -                 -                  - -    -       POG1  74/76               1 5\n0 CEDS_POG2_WST   -                                                             -                 -                  - -    -       POG2  74/77               1 5\n\n# NOTE: EOH files in CEDS/v2024-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_agr           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2401             1 5\n0 CEDS_EOH_AGR    -                                                             -                 -                  - -    -       EOH   91/2401             1 5\n0 CEDS_ROH_AGR    -                                                             -                 -                  - -    -       ROH   92/2401             1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2406/706/315     1 5\n0 CEDS_EOH_ENE    -                                                             -                 -                  - -    -       EOH   91/2406/706/315     1 5\n0 CEDS_ROH_ENE    -                                                             -                 -                  - -    -       ROH   92/2406/706/315     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2407/707/316     1 5\n0 CEDS_EOH_IND    -                                                             -                 -                  - -    -       EOH   91/2407/707/316     1 5\n0 CEDS_ROH_IND    -                                                             -                 -                  - -    -       ROH   92/2407/707/316     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_tra           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2411/711         1 5\n0 CEDS_EOH_TRA    -                                                             -                 -                  - -    -       EOH   91/2411/711         1 5\n0 CEDS_ROH_TRA    -                                                             -                 -                  - -    -       ROH   92/2411/711         1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_rco           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2409/709         1 5\n0 CEDS_EOH_RCO    -                                                             -                 -                  - -    -       EOH   91/2409/709         1 5\n0 CEDS_ROH_RCO    -                                                             -                 -                  - -    -       ROH   92/2409/709         1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_slv           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2407/707         1 5\n0 CEDS_EOH_SLV    -                                                             -                 -                  - -    -       EOH   91/2407/707         1 5\n0 CEDS_ROH_SLV    -                                                             -                 -                  - -    -       ROH   92/2407/707         1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_wst           1980-2019/1-12/1/0 C xy   kg/m2/s MOH   90                  1 5\n0 CEDS_EOH_WST    -                                                             -                 -                  - -    -       EOH   91                  1 5\n0 CEDS_ROH_WST    -                                                             -                 -                  - -    -       ROH   92                  1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2401                1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2406/706/315        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2407/707/316        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2411/711            1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2409/709            1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  2407/707            1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C2H6  26                  1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2401                1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2406/706/315        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2407/707/316        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2411/711            1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2409/709            1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  2407/707            1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C3H8  26                  1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_agr  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_tra  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_rco  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_slv  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_wst  1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_agr 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_ene 1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_ind 1980-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_tra 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_rco 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_slv 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_wst 1980-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_agr  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2401                1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2406/706/315        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2407/707/316        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_tra  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2411/711            1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_rco  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2409/709            1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_slv  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2407/707            1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_wst  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  26                  1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2401                1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2406/706/315        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2407/707/316        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2411/711            1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2409/709            1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  2407/707            1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C2H4  26                  1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_agr          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2401                1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2406/706/315        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2407/707/316        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_tra          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2411/711            1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_rco          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2409/709            1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_slv          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  2407/707            1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_wst          1980-2019/1-12/1/0 C xy   kg/m2/s PRPE  26                  1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_agr          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2401                1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2406/706/315        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2407/707/316        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_tra          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2411/711            1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_rco          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2409/709            1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_slv          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  2407/707            1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_wst          1980-2019/1-12/1/0 C xy   kg/m2/s C2H2  26                  1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_agr          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2401                1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2406/706/315        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2407/707/316        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_tra          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2411/711            1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_rco          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2409/709            1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_slv          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  2407/707            1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_wst          1980-2019/1-12/1/0 C xy   kg/m2/s BENZ  26                  1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_agr          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2401                1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2406/706/315        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2407/707/316        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_tra          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2411/711            1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_rco          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2409/709            1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_slv          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  2407/707            1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_wst          1980-2019/1-12/1/0 C xy   kg/m2/s TOLU  26                  1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_agr          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2401                1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2406/706/315        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2407/707/316        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_tra          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2411/711            1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_rco          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2409/709            1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_slv          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  2407/707            1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_wst          1980-2019/1-12/1/0 C xy   kg/m2/s XYLE  26                  1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_agr          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2401                1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2406/706/315        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2407/707/316        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_tra          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2411/711            1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_rco          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2409/709            1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_slv          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  2407/707            1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_wst          1980-2019/1-12/1/0 C xy   kg/m2/s CH2O  26                  1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_agr          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2401                1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_ene          1980-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2406/706/315        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_ind          1980-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2407/707/316        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_tra          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2411/711            1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_rco          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2409/709            1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_slv          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  2407/707            1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_wst          1980-2019/1-12/1/0 C xy   kg/m2/s ALD2  26                  1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_agr           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2401                1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_ene           1980-2019/1-12/1/0 C xyL* kg/m2/s MEK   2406/706/315        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_ind           1980-2019/1-12/1/0 C xyL* kg/m2/s MEK   2407/707/316        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_tra           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2411/711            1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_rco           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2409/709            1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_slv           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   2407/707            1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_wst           1980-2019/1-12/1/0 C xy   kg/m2/s MEK   26                  1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_agr         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2401                1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_ene         1980-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2406/706/315        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_ind         1980-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2407/707/316        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_tra         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2411/711            1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_rco         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2409/709            1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_slv         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2407/707            1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_wst         1980-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n#\n# TMB and OTHER_VOC are absent from the CEDS 0.1 x 0.1 emissions.\n# Read the previous CEDSv2 data for these instead.\n#\n0 CEDS_TMB_AGR    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_agr        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2401                1 5\n0 CEDS_TMB_ENE    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_ene        1980-2019/1-12/1/0 C xyL* kg/m2/s TMB   2406/706/315        1 5\n0 CEDS_TMB_IND    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_ind        1980-2019/1-12/1/0 C xyL* kg/m2/s TMB   2407/707/316        1 5\n0 CEDS_TMB_TRA    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_tra        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2411/711            1 5\n0 CEDS_TMB_RCO    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_rco        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2409/709            1 5\n0 CEDS_TMB_SLV    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_slv        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   2407/707            1 5\n0 CEDS_TMB_WST    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc       TMB_wst        1980-2019/1-12/1/0 C xy   kg/m2/s TMB   26                  1 5\n\n0 CEDS_OTH_AGR    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_agr  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2401                1 5\n0 CEDS_OTH_ENE    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ene  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2406/706/315        1 5\n0 CEDS_OTH_IND    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ind  1980-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2407/707/316        1 5\n0 CEDS_OTH_TRA    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_tra  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2411/711            1 5\n0 CEDS_OTH_RCO    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_rco  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2409/709            1 5\n0 CEDS_OTH_SLV    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_slv  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  2407/707            1 5\n0 CEDS_OTH_WST    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_wst  1980-2019/1-12/1/0 C xy   kg/m2/s ALK6  26                  1 5\n)))CEDS_01x01\n\n#==============================================================================\n# --- CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_NO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n\n0 CMIP6_CO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_AGR   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_ENE   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_IND   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_TRA   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_RCO   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_SLV   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_WST   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n\n0 CMIP6_SO2_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_AGR    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_AGR    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_ENE    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_ENE    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_IND    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_IND    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_TRA    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_TRA    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_RCO    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_RCO    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_SLV    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_SLV    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_WST    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_WST    -                                                                            -                 -                  - -  -          pFe   66        1 5\n\n0 CMIP6_NH3_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_agr           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ene           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ind           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_tra           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_rco           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_slv           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_wst           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n\n0 CMIP6_BCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_AGR   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_ENE   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_IND   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_TRA   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_RCO   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_SLV   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_WST   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n\n0 CMIP6_OCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_AGR   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_AGR   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_AGR   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_ENE   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_ENE   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_ENE   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_IND   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_IND   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_IND   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_TRA   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_TRA   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_TRA   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_RCO   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_RCO   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_RCO   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_SLV   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_SLV   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_SLV   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_WST   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_WST   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_WST   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n\n# Comment out CO2 for fullchem simulations: CO2 not advected\n#0 CMIP6_CO2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n\n# Comment out CH4 for fullchem simulations: do not use CH4 emissions\n# CMIP6 CH4 emissions are only available for 1970-2014\n#0 CMIP6_CH4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_agr           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ene           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ind           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_tra           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_rco           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_slv           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_wst           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_AGR    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_AGR    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_ENE    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_ENE    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_IND    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_IND    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_TRA    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_TRA    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_RCO    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_RCO    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_SLV    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_SLV    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_WST    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_WST    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n\n0 CMIP6_C2H6_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n\n0 CMIP6_C3H8_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n\n0 CMIP6_C4H10_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C5H12_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_agr 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ene 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ind 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_tra 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_rco 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_slv 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_wst 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C6H14_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n0 CMIP6_C6H14_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        1 5\n\n0 CMIP6_C2H4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n\n0 CMIP6_PRPE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n\n0 CMIP6_C2H2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n\n0 CMIP6_BENZ_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_agr          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ene          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ind          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_tra          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_rco          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_slv          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_wst          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n\n0 CMIP6_TOLU_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_agr          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ene          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ind          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_tra          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_rco          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_slv          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_wst          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n\n0 CMIP6_XYLE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n\n0 CMIP6_CH2O_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_agr          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ene          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ind          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_tra          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_rco          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_slv          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_wst          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n\n0 CMIP6_ALD2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n\n0 CMIP6_MEK_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n\n0 CMIP6_HCOOH_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_agr         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ene         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ind         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_tra         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_rco         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_slv         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_wst         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_NO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   NO    -        20 1\n0 CMIP6_AIR_CO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    CO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   CO    -        20 1\n0 CMIP6_AIR_SOAP   -                                                                                -                 -                  - -   -         SOAP  280      20 1\n0 CMIP6_AIR_SO2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    SO2_air           1750-2100/1-12/1/0 C xyz kg/m2/s   SO2   -        20 1\n0 CMIP6_AIR_SO4    -                                                                                -                 -                  - -   -         SO4   63       20 1\n0 CMIP6_AIR_pFe    -                                                                                -                 -                  - -   -         pFe   66       20 1\n0 CMIP6_AIR_ACET   -                                                                                -                 -                  - -   -         ACET  601      20 1\n0 CMIP6_AIR_ALD2   -                                                                                -                 -                  - -   -         ALD2  602      20 1\n0 CMIP6_AIR_ALK4   -                                                                                -                 -                  - -   -         ALK4  603      20 1\n0 CMIP6_AIR_C2H6   -                                                                                -                 -                  - -   -         C2H6  604      20 1\n0 CMIP6_AIR_C3H8   -                                                                                -                 -                  - -   -         C3H8  605      20 1\n0 CMIP6_AIR_CH2O   -                                                                                -                 -                  - -   -         CH2O  606      20 1\n0 CMIP6_AIR_PRPE   -                                                                                -                 -                  - -   -         PRPE  607      20 1\n0 CMIP6_AIR_MACR   -                                                                                -                 -                  - -   -         MACR  608      20 1\n0 CMIP6_AIR_RCHO   -                                                                                -                 -                  - -   -         RCHO  609      20 1\n0 CMIP6_AIR_NH3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NH3_air           1750-2100/1-12/1/0 C xyz kg/m2/s   NH3   -        20 1\n# Assume all BC/OC is BCPI/OCPI\n0 CMIP6_AIR_BCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    BC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   BCPI  -        20 1\n0 CMIP6_AIR_OCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    OC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   OCPI  -        20 1\n0 CMIP6_AIR_POG1   -                                                                                -                 -                  - -  -          POG1  74/76    20 1\n0 CMIP6_AIR_POG2   -                                                                                -                 -                  - -  -          POG2  74/77    20 1\n\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EDGAR v4.3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# The following emissions are not included in EDGAR and will be added:\n#  * Wiedinmyer et al. (2014) global trash emissions\n#  * CEDS VOC emissions\n#\n# Aviation and shipping emissions from EDGAR are not included here.\n# We also do not include the following sources:\n#  - Soil emissions of NOx (SOL). These emissions are calculated via the\n#    SoilNOx extension.\n#  - Open biomass burning (AWB). These emissions are obtained from\n#    GFED, QFED, FINN, or GFAS.\n#==============================================================================\n(((EDGARv43\n0  EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1201/70         1 2\n0  EDGAR_BCPO_POW -                                                    -       -               - -  -       BCPO 1201/71         1 2\n0  EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1202/70         1 2\n0  EDGAR_BCPO_ENG -                                                    -       -               - -  -       BCPO 1202/71         1 2\n0  EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1203/70         1 2\n0  EDGAR_BCPO_IND -                                                    -       -               - -  -       BCPO 1203/71         1 2\n0  EDGAR_BCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TRO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1204/70         1 2\n0  EDGAR_BCPO_TRO -                                                    -       -               - -  -       BCPO 1204/71         1 2\n0  EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1205/70         1 2\n0  EDGAR_BCPO_TNG -                                                    -       -               - -  -       BCPO 1205/71         1 2\n0  EDGAR_BCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.RCO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1206/70         1 2\n0  EDGAR_BCPO_RCO -                                                    -       -               - -  -       BCPO 1206/71         1 2\n0  EDGAR_BCPI_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.PPA.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1207/70         1 2\n0  EDGAR_BCPO_PPA -                                                    -       -               - -  -       BCPO 1207/71         1 2\n#0 EDGAR_BCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.AWB.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1209/70         1 2\n#0 EDGAR_BCPO_AWB -                                                    -       -               - -  -       BCPO 1209/71         1 2\n0  EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1211/70         1 2\n0  EDGAR_BCPO_SWD -                                                    -       -               - -  -       BCPO 1211/71         1 2\n0  EDGAR_BCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.FFF.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1212/70         1 2\n0  EDGAR_BCPO_FFF -                                                    -       -               - -  -       BCPO 1212/71         1 2\n0  EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1201/26/52      1 2\n0  EDGAR_SOAP_POW -                                                    -       -               - -  -       SOAP 1201/26/52/280  1 2\n0  EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1202/26/52      1 2\n0  EDGAR_SOAP_ENG -                                                    -       -               - -  -       SOAP 1202/26/52/280  1 2\n0  EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1203/26/52      1 2\n0  EDGAR_SOAP_IND -                                                    -       -               - -  -       SOAP 1203/26/52/280  1 2\n0  EDGAR_CO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1204/26/52      1 2\n0  EDGAR_SOAP_TRO -                                                    -       -               - -  -       SOAP 1204/26/52/280  1 2\n0  EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1205/26/52      1 2\n0  EDGAR_SOAP_TNG -                                                    -       -               - -  -       SOAP 1205/26/52/280  1 2\n0  EDGAR_CO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1206/26/52      1 2\n0  EDGAR_SOAP_RCO -                                                    -       -               - -  -       SOAP 1206/26/52/280  1 2\n0  EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1207/26/52      1 2\n0  EDGAR_SOAP_PPA -                                                    -       -               - -  -       SOAP 1207/26/52/280  1 2\n#0 EDGAR_CO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1209/26/52      1 2\n#0 EDGAR_SOAP_AWB -                                                    -       -               - -  -       SOAP 1209/26/52/280  1 2\n0  EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1211/26/52      1 2\n0  EDGAR_SOAP_SWD -                                                    -       -               - -  -       SOAP 1211/26/52/280  1 2\n0  EDGAR_CO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1212/26/52      1 2\n0  EDGAR_SOAP_FFF -                                                    -       -               - -  -       SOAP 1212/26/52/280  1 2\n0  EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1201            1 2\n0  EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1202            1 2\n0  EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1203            1 2\n0  EDGAR_NH3_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TRO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1204            1 2\n0  EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1205            1 2\n0  EDGAR_NH3_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.RCO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1206            1 2\n0  EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1207            1 2\n0  EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1208            1 2\n#0 EDGAR_NH3_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AWB.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1209            1 2\n0  EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1210            1 2\n0  EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1211            1 2\n0  EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1201/25/115     1 2\n0  EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1202/25/115     1 2\n0  EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1203/25/115     1 2\n0  EDGAR_NO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TRO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1204/25/115     1 2\n0  EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1205/25/115     1 2\n0  EDGAR_NO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.RCO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1206/25/115     1 2\n0  EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1207/25/115     1 2\n0  EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1208/25/115     1 2\n#0 EDGAR_NO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AWB.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1209/25/115     1 2\n#0 EDGAR_NO_SOL   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SOL.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1210/25/115     1 2\n0  EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1211/25/115     1 2\n0  EDGAR_NO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.FFF.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1212/25/115     1 2\n0  EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1201/72         1 2\n0  EDGAR_OCPO_POW -                                                    -       -               - -  -       OCPO 1201/73         1 2\n0  EDGAR_POG1_POW -                                                    -       -               - -  -       POG1 1201/74/76      1 2\n0  EDGAR_POG2_POW -                                                    -       -               - -  -       POG2 1201/74/77      1 2\n0  EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1202/72         1 2\n0  EDGAR_OCPO_ENG -                                                    -       -               - -  -       OCPO 1202/73         1 2\n0  EDGAR_POG1_ENG -                                                    -       -               - -  -       POG1 1202/74/76      1 2\n0  EDGAR_POG2_ENG -                                                    -       -               - -  -       POG2 1202/74/77      1 2\n0  EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1203/72         1 2\n0  EDGAR_OCPO_IND -                                                    -       -               - -  -       OCPO 1203/73         1 2\n0  EDGAR_POG1_IND -                                                    -       -               - -  -       POG1 1203/74/76      1 2\n0  EDGAR_POG2_IND -                                                    -       -               - -  -       POG2 1203/74/77      1 2\n0  EDGAR_OCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TRO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1204/72         1 2\n0  EDGAR_OCPO_TRO -                                                    -       -               - -  -       OCPO 1204/73         1 2\n0  EDGAR_POG1_TRO -                                                    -       -               - -  -       POG1 1204/74/76      1 2\n0  EDGAR_POG2_TRO -                                                    -       -               - -  -       POG2 1204/74/77      1 2\n0  EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1205/72         1 2\n0  EDGAR_OCPO_TNG -                                                    -       -               - -  -       OCPO 1205/73         1 2\n0  EDGAR_POG1_TNG -                                                    -       -               - -  -       POG1 1205/74/76      1 2\n0  EDGAR_POG2_TNG -                                                    -       -               - -  -       POG2 1205/74/77      1 2\n0  EDGAR_OCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.RCO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1206/72         1 2\n0  EDGAR_OCPO_RCO -                                                    -       -               - -  -       OCPO 1206/73         1 2\n0  EDGAR_POG1_RCO -                                                    -       -               - -  -       POG1 1206/74/76      1 2\n0  EDGAR_POG2_RCO -                                                    -       -               - -  -       POG2 1206/74/77      1 2\n#0 EDGAR_OCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.AWB.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1209/72         1 2\n#0 EDGAR_OCPO_AWB -                                                    -       -               - -  -       OCPO 1209/73         1 2\n#0 EDGAR_POG1_AWB -                                                    -       -               - -  -       POG1 1209/74/76      1 2\n#0 EDGAR_POG2_AWB -                                                    -       -               - -  -       POG2 1209/74/77      1 2\n0  EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1211/72         1 2\n0  EDGAR_OCPO_SWD -                                                    -       -               - -  -       OCPO 1211/73         1 2\n0  EDGAR_POG1_SWD -                                                    -       -               - -  -       POG1 1211/74/76      1 2\n0  EDGAR_POG2_SWD -                                                    -       -               - -  -       POG2 1211/74/77      1 2\n0  EDGAR_OCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.FFF.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1212/72         1 2\n0  EDGAR_OCPO_FFF -                                                    -       -               - -  -       OCPO 1212/73         1 2\n0  EDGAR_POG1_FFF -                                                    -       -               - -  -       POG1 1212/74/76      1 2\n0  EDGAR_POG2_FFF -                                                    -       -               - -  -       POG2 1212/74/77      1 2\n0  EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1201            1 2\n0  EDGAR_SO4_POW  -                                                    -       -               - -  -       SO4  1201/63         1 2\n0  EDGAR_pFe_POW  -                                                    -       -               - -  -       pFe  1201/66         1 2\n0  EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1202            1 2\n0  EDGAR_SO4_ENG  -                                                    -       -               - -  -       SO4  1202/63         1 2\n0  EDGAR_pFe_ENG  -                                                    -       -               - -  -       pFe  1202/66         1 2\n0  EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1203            1 2\n0  EDGAR_SO4_IND  -                                                    -       -               - -  -       SO4  1203/63         1 2\n0  EDGAR_pFe_IND  -                                                    -       -               - -  -       pFe  1203/66         1 2\n0  EDGAR_SO2_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TRO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1204            1 2\n0  EDGAR_SO4_TRO  -                                                    -       -               - -  -       SO4  1204/63         1 2\n0  EDGAR_pFe_TRO  -                                                    -       -               - -  -       pFe  1204/66         1 2\n0  EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1205            1 2\n0  EDGAR_SO4_TNG  -                                                    -       -               - -  -       SO4  1205/63         1 2\n0  EDGAR_pFe_TNG  -                                                    -       -               - -  -       pFe  1205/66         1 2\n0  EDGAR_SO2_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.RCO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1206            1 2\n0  EDGAR_SO4_RCO  -                                                    -       -               - -  -       SO4  1206/63         1 2\n0  EDGAR_pFe_RCO  -                                                    -       -               - -  -       pFe  1206/66         1 2\n0  EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1207            1 2\n0  EDGAR_SO4_PPA  -                                                    -       -               - -  -       SO4  1207/63         1 2\n0  EDGAR_pFe_PPA  -                                                    -       -               - -  -       pFe  1207/66         1 2\n#0 EDGAR_SO2_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.AWB.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1209            1 2\n#0 EDGAR_SO4_AWB  -                                                    -       -               - -  -       SO4  1209/63         1 2\n#0 EDGAR_pFe_AWB  -                                                    -       -               - -  -       pFe  1209/66         1 2\n0  EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1211            1 2\n0  EDGAR_SO4_SWD  -                                                    -       -               - -  -       SO4  1211/63         1 2\n0  EDGAR_pFe_SWD  -                                                    -       -               - -  -       pFe  1211/66         1 2\n0  EDGAR_SO2_FFF  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.FFF.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1212            1 2\n0  EDGAR_SO4_FFF  -                                                    -       -               - -  -       SO4  1212/63         1 2\n0  EDGAR_pFe_FFF  -                                                    -       -               - -  -       pFe  1212/66         1 2\n\n#==============================================================================\n# --- NAP ANTHROPOGENIC EMISSIONS: approximate from EDGAR BENZ ---\n#\n# NOTE: Although this data comes from EDGAR version 2, we are storing it\n# in the EDGARv42 data path for convenience.\n#==============================================================================\n0 EDGAR_NAP $ROOT/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc BENZ 1985/1/1/0 C xy kgC/m2/s NAP 80/81/82/43 1 2\n\n#==============================================================================\n# --- Wiedinmyer et al. (2014) global trash emissions to be added to EDGAR ---\n#==============================================================================\n0 TRASH_CO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CO    2008/1/1/0 C xy kg/m2/s  CO    -     1 2\n0 TRASH_SOAP  -                                                       -     -          - -  -        SOAP  280   1 2\n0 TRASH_NO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NO    2008/1/1/0 C xy kg/m2/s  NO    -     1 2\n0 TRASH_SO2   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  SO2   2008/1/1/0 C xy kg/m2/s  SO2   78    1 2\n0 TRASH_SO4   -                                                       -     -          - -  -        SO4   63    1 2\n0 TRASH_pFe   -                                                       -     -          - -  -        pFe   78/66 1 2\n0 TRASH_BCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BC    2008/1/1/0 C xy kg/m2/s  BCPI  70    1 2\n0 TRASH_BCPO  -                                                       -     -          - -  -        BCPO  71    1 2\n0 TRASH_OCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  OC    2008/1/1/0 C xy kg/m2/s  OCPI  72    1 2\n0 TRASH_OCPO  -                                                       -     -          - -  -        OCPO  73    1 2\n0 TRASH_POG1  -                                                       -     -          - -  -        POG1  74/76 1 2\n0 TRASH_POG2  -                                                       -     -          - -  -        POG2  74/77 1 2\n0 TRASH_NH3   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NH3   2008/1/1/0 C xy kg/m2/s  NH3   -     1 2\n\n#==============================================================================\n# --- CEDS VOC emissions to be added to EDGAR ---\n#==============================================================================\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26        1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n)))EDGARv43\n\n#==============================================================================\n# --- HTAP v3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# ==> HTAPv3 ship emissions are listed in the ship emissions section below\n#==============================================================================\n(((HTAPv3\n0 HTAPv3_NO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_IND  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_WST  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_CO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_AGR -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_ENE -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_IND  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_IND -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_TRA -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_RCO -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_SLV -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_WST  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_WST -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_SO2_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_AGR 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_AGR  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_AGR  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_ENE 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_ENE  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_ENE  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_IND 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_IND  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_IND  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_TRA 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_TRA  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_TRA  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_RCO 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_RCO  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_RCO  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_SLV 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_SLV  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_SLV  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_WST 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_WST  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_WST  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_NH3_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_AGR 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_ENE 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_IND 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_TRA 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_RCO 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_SLV 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_WST 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_BCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_AGR -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_ENE -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_IND  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_IND -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_TRA -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_RCO -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_SLV -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_WST  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_WST -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_OCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_AGR -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_AGR -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_AGR -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_ENE -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_ENE -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_ENE -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_IND  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_IND -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_IND -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_IND -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_TRA -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_TRA -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_TRA -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_RCO -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_RCO -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_RCO -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_SLV -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_SLV -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_SLV -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_WST  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_WST -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_WST -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_WST -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n#\n# Use CEDSv2 for species that are not in the HTAPv3 inventory\n# NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26    1 4\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n)))HTAPv3\n\n#==============================================================================\n# --- GEIA NH3 from natural sources ---\n#==============================================================================\n(((GEIA_NH3\n0 GEIA_NH3_NATU $ROOT/NH3/v2019-08/NH3_geos.2x25.nc         NH3_NATU     1990/1-12/1/0 C xy  kg/m2/s NH3 - 3 1\n)))GEIA_NH3\n\n#==============================================================================\n# --- NH3 from arctic seabirds ---\n# Source: Riddick et al., 2012, NERC Environmental Information Data Centre\n#==============================================================================\n(((SEABIRD_NH3\n0 SEABIRD_NH3   $ROOT/NH3/v2018-04/NH3_Arctic_seabirds.nc  NH3_SEABIRDS 1990/1-12/1/0 C xy  kg/m2/s NH3 - 30 1\n)))SEABIRD_NH3\n\n#==============================================================================\n# --- POET EOH ---\n#==============================================================================\n(((POET_EOH\n0 POET_EOH $ROOT/POET/v2017-03/POET_EOH.geos.2x25.nc EOH 1985/1/1/0 C xy kgC/m2/s EOH 26/47 1 1\n)))POET_EOH\n\n#==============================================================================\n# --- 2010 Global fossil fuel and biofuel emissions of C2H6 (Tzompa-Sosa et al. (2017) ---\n#\n# NOTES:\n# - These C2H6 emissions are used in place of CEDS\n#==============================================================================\n(((TZOMPASOSA_C2H6\n0 C2H6_2010_oilgas   $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc ANTHR_C2H6   2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n0 C2H6_2010_biofuel  $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc BIOFUEL_C2H6 2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n)))TZOMPASOSA_C2H6\n\n#==============================================================================\n# --- Xiao et al., JGR, 2008 ---\n#\n# NOTES:\n# - Xiao et al. C3H8 emissions are used in place of CEDS\n# - Priority is set to 10 to overwrite CEDS, but not newer regional inventories (e.g. EPA/NEI)\n#==============================================================================\n(((XIAO_C3H8\n0 XIAO_C3H8    $ROOT/XIAO/v2014-09/C3H8_C2H6_ngas.geos.1x1.nc C3H8         1985/1/1/0 C xy kgC/m2/s C3H8 6/7/26/22/46 1 10\n0 BIOFUEL_C3H8 $ROOT/BIOFUEL/v2019-08/biofuel.geos.2x25.nc    BIOFUEL_C3H8 1985/1/1/0 C xy kgC/m2/s C3H8 46           1 10\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Very-short-lived (VSL) bromocarbon emissions (cf. Qing Liang) ---\n#==============================================================================\n(((LIANG_BROMOCARB\n0 LIANG_CHBR3  $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CHBr3_emission  2000/1/1/0 C xy kg/m2/s CHBr3  39 1 1\n0 LIANG_CH2BR2 $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CH2Br2_emission 2000/1/1/0 C xy kg/m2/s CH2Br2 -  1 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Very-short-lived (VSL) iodocarbon emissions (cf. Carlos Ordonez) ---\n#==============================================================================\n(((ORDONEZ_IODOCARB\n0 ORDONEZ_CH3I   $ROOT/IODINE/v2020-02/CH3I_monthly_emissions_Ordonez_2012_COARDS.nc   CH3I   2000/1-12/1/0 C xy kg/m2/s CH3I   - 1 1\n0 ORDONEZ_CH2I2  $ROOT/IODINE/v2020-02/CH2I2_monthly_emissions_Ordonez_2012_COARDS.nc  CH2I2  2000/1-12/1/0 C xy kg/m2/s CH2I2  - 1 1\n0 ORDONEZ_CH2ICL $ROOT/IODINE/v2020-02/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.nc CH2ICl 2000/1-12/1/0 C xy kg/m2/s CH2ICl - 1 1\n0 ORDONEZ_CH2IBR $ROOT/IODINE/v2020-02/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc CH2IBr 2000/1-12/1/0 C xy kg/m2/s CH2IBr - 1 1\n)))ORDONEZ_IODOCARB\n\n#==============================================================================\n# --- GT_Chlorine ---\n#\n# Emission inventory for HCl and particulate Cl from continental sources\n#\n# Reference:\n#  Zhang, B., & Liu, P., et al (2022). Global Emissions of Hydrogen Chloride\n#  and Particulate Chloride from Continental Sources. Environmental Science &\n#  Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634 \n#\n# Notes:\n# - The HCl emission from open biomass burning (HCL_BIO, HCL_AGR) used the same\n#   activity data for GFED4 (1998-2014) and BB4CMIP (1960-2014). If your\n#   emission inventory for open biomass burning has already include HCl\n#   emissions, shut down either of them to avoid the duplicated emission sources\n# - Emissions of particulate Cl are added as HCl as ISORROPIA will reparition\n#   Cl between particle phase and gas phase. \n#==============================================================================\n(((GT_Chlorine\n0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 HCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n)))GT_Chlorine\n\n#==============================================================================\n# --- Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAPv3 for SO2 and ICOADS should be used for CO and NO.\n# ==> Ship NO emissions are used by PARANOx and the extension number must be\n#     adjusted accordingly. If PARANOx is turned off, set the ExtNr back to\n#     zero.\n#==============================================================================\n(((SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_CO_SHP   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc  CO_SHP  2000-2018/1-12/1/0 C xy kg/m2/s CO    26     10 4\n0 HTAPv3_SOAP_SHP -                                                       -       -                  - -  -       SOAP  26/280 10 4\n0 HTAPv3_SO2_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc SO2_SHP 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -      10 4\n0 HTAPv3_SO4_SHP  -                                                       -       -                  - -  -       SO4   63     10 4\n0 HTAPv3_pFe_SHP  -                                                       -       -                  - -  -       pFe   66     10 4\n0 HTAPv3_NH3_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc NH3_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -      10 4\n0 HTAPv3_BCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc  BC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70     10 4\n0 HTAPv3_BCPO_SHP -                                                       -       -                  - -  -       BCPO  71     10 4\n0 HTAPv3_OCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc  OC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72     10 4\n0 HTAPv3_OCPO_SHP -                                                       -       -                  - -  -       OCPO  73     10 4\n# Use CEDSv2 ship emissions for species not in HTAPv3\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_shp           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 4\n0 CEDS_EOH_SHP    -                                                                    -                 -                  - -  -       EOH   26/91  10 4\n0 CEDS_ROH_SHP    -                                                                    -                 -                  - -  -       ROH   26/92  10 4\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 4\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_shp          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 4\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 4\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 4\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_shp          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 4\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 4\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_shp          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 4\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_shp          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 4\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_shp          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 4\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_shp          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 4\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_shp          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 4\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_shp           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 4\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_shp         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 4\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_shp           1750-2019/1-12/1/0 C xy kg/m2/s TMB   26     10 4\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_shp     1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_CO_SHP     $ROOT/CEDS/v2024-06/$YYYY/CEDS_CO_0.1x0.1_$YYYY.nc            CO_shp            1980-2019/1-12/1/0 C xy kg/m2/s CO    26     10 5\n0 CEDS_SOAP_SHP   -                                                             -                 -                  - -  -       SOAP  26/280 10 5\n0 CEDS_SO2_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_SO2_0.1x0.1_$YYYY.nc           SO2_shp           1980-2019/1-12/1/0 C xy kg/m2/s SO2   -      10 5\n0 CEDS_SO4_SHP    -                                                             -                 -                  - -  -       SO4   63     10 5\n0 CEDS_pFe_SHP    -                                                             -                 -                  - -  -       pFe   66     10 5\n0 CEDS_NH3_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_NH3_0.1x0.1_$YYYY.nc           NH3_shp           1980-2019/1-12/1/0 C xy kg/m2/s NH3   -      10 5\n0 CEDS_BCPI_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BC_0.1x0.1_$YYYY.nc            BC_shp            1980-2019/1-12/1/0 C xy kg/m2/s BCPI  70     10 5\n0 CEDS_BCPO_SHP   -                                                             -                 -                  - -  -       BCPO  71     10 5\n0 CEDS_OCPI_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_OC_0.1x0.1_$YYYY.nc            OC_shp            1980-2019/1-12/1/0 C xy kg/m2/s OCPI  72     10 5\n0 CEDS_OCPO_SHP   -                                                             -                 -                  - -  -       OCPO  73     10 5\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_EOH_0.1x0.1_$YYYY.nc           EOH_shp           1980-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 5\n0 CEDS_EOH_SHP    -                                                             -                 -                  - -  -       EOH   26/91  10 5\n0 CEDS_ROH_SHP    -                                                             -                 -                  - -  -       ROH   26/92  10 5\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H6_0.1x0.1_$YYYY.nc          C2H6_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 5\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C3H8_0.1x0.1_$YYYY.nc          C3H8_shp          1980-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 5\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_butanes_0.1x0.1_$YYYY.nc  ALK4_butanes_shp  1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_pentanes_0.1x0.1_$YYYY.nc ALK4_pentanes_shp 1980-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALK4_hexanes_0.1x0.1_$YYYY.nc  ALK4_hexanes_shp  1980-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 5\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H4_0.1x0.1_$YYYY.nc          C2H4_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 5\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_PRPE_0.1x0.1_$YYYY.nc          PRPE_shp          1980-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 5\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_C2H2_0.1x0.1_$YYYY.nc          C2H2_shp          1980-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 5\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_BENZ_0.1x0.1_$YYYY.nc          BENZ_shp          1980-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 5\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_TOLU_0.1x0.1_$YYYY.nc          TOLU_shp          1980-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 5\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_XYLE_0.1x0.1_$YYYY.nc          XYLE_shp          1980-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 5\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_CH2O_0.1x0.1_$YYYY.nc          CH2O_shp          1980-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 5\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2024-06/$YYYY/CEDS_ALD2_0.1x0.1_$YYYY.nc          ALD2_shp          1980-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 5\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2024-06/$YYYY/CEDS_MEK_0.1x0.1_$YYYY.nc           MEK_shp           1980-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 5\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2024-06/$YYYY/CEDS_HCOOH_0.1x0.1_$YYYY.nc         HCOOH_shp         1980-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n#\n# TMB and OTHER_VOC are absent from the CEDS 0.1 x 0.1 emissions.\n# Read the previous CEDSv2 data for these instead.\n#\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc        TMB_shp       1980-2019/1-12/1/0 C xy kg/m2/s TMB   26     10 5\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc  OTHER_VOC_shp 1980-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 5\n)))CEDS_01x01_SHIP\n\n#==============================================================================\n# --- CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_CO_SHP     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CO_shp            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        10 5\n0 CMIP6_SOAP_SHP   -                                                                     -                 -                  - -  -          SOAP  26/280    10 5\n0 CMIP6_SO2_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            SO2_shp           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         10 5\n0 CMIP6_SO4_SHP    -                                                                     -                 -                  - -  -          SO4   63        10 5\n0 CMIP6_pFe_SHP    -                                                                     -                 -                  - -  -          pFe   66        10 5\n0 CMIP6_NH3_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            NH3_shp           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         10 5\n0 CMIP6_BCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        10 5\n0 CMIP6_BCPO_SHP   -                                                                     -                 -                  - -  -          BCPO  71        10 5\n0 CMIP6_OCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            OC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        10 5\n0 CMIP6_OCPO_SHP   -                                                                     -                 -                  - -  -          OCPO  73        10 5\n0 CMIP6_POG1_SHP   -                                                                     -                 -                  - -  -          POG1  74/76     10 5\n0 CMIP6_POG2_SHP   -                                                                     -                 -                  - -  -          POG2  74/77     10 5\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            EOH_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     10 5\n0 CMIP6_EOH_SHP    -                                                                     -                 -                  - -  -          EOH   26/91     10 5\n0 CMIP6_ROH_SHP    -                                                                     -                 -                  - -  -          ROH   26/92     10 5\n0 CMIP6_C2H6_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H6_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        10 5\n0 CMIP6_C3H8_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C3H8_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        10 5\n0 CMIP6_C4H10_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_butanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C5H12_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_pentanes_shp 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C6H14_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_hexanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK6  26        10 5\n0 CMIP6_C2H4_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H4_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        10 5\n0 CMIP6_PRPE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            PRPE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        10 5\n0 CMIP6_C2H2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        10 5\n0 CMIP6_BENZ_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BENZ_shp          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        10 5\n0 CMIP6_TOLU_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            TOLU_shp          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        10 5\n0 CMIP6_XYLE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            XYLE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        10 5\n0 CMIP6_CH2O_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CH2O_shp          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        10 5\n0 CMIP6_ALD2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALD2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        10 5\n0 CMIP6_MEK_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            MEK_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        10 5\n0 CMIP6_HCOOH_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            HCOOH_shp         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        10 5\n)))CMIP6_SHIP\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED ON ###\n#\n# Cosine(SZA) will be read from the restart file.  Use the PARANOX extension\n# number (# 102) to specify these quantities and the NEI emissions.\n# This will make sure everything will be passed to the HEMCO PARANOX extension\n# rather than sending them into the base emissions.\n#------------------------------------------------------------------------------\n(((ParaNOx\n\n(((HTAPv3_SHIP\n102 HTAPv3_NO_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n102 CEDS_NO_SHP $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc NO_shp 1980-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDS_01x01_SHIP\n\n)))ParaNOx\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED OFF ###\n#\n# Use extension # 0 to specify these emissions.  This will put them\n# into the base emissions rather than sending them through PARANOX.\n#------------------------------------------------------------------------------\n(((.not.ParaNOx\n\n(((HTAPv3_SHIP\n0 HTAPv3_NO_SHIP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDS_01x01_SHIP\n0 CEDS_NO_SHP $ROOT/CEDS/v2024-06/$YYYY/CEDS_NO_0.1x0.1_$YYYY.nc NO_shp 1980-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDS_01x01_SHIP\n\n(((CMIP6_SHIP\n102 CMIP6_NO_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_shp 1750-2100/1-12/1/0 C xy kg/m2/s NO 25   10 5\n)))CMIP6_SHIP\n\n))).not.ParaNOx\n\n)))SHIP\n\n#==============================================================================\n# --- AEIC 2019 aircraft emissions (daily & monthly mean) ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_NO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO       2019/1-12/1-31/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_DAILY_NO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO2      2019/1-12/1-31/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_DAILY_HONO $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HONO     2019/1-12/1-31/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_DAILY_CO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO       2019/1-12/1-31/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_DAILY_SOAP -                                                                 -        -                - -   -       SOAP 241/280     20 1\n0 AEIC19_DAILY_SO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN 2019/1-12/1-31/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_DAILY_pFe  -                                                                 -        -                - -   -       pFe  241/111/66  20 1\n0 AEIC19_DAILY_SO4  -                                                                 -        -                - -   -       SO4  241/112     20 1\n0 AEIC19_DAILY_H2O  -                                                                 -        -                - -   -       H2O  241/120     20 1\n0 AEIC19_DAILY_BCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc BC       2019/1-12/1-31/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_DAILY_OCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc OC       2019/1-12/1-31/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_DAILY_POG1 -                                                                 -        -                - -   -       POG1 241/74/76   20 1\n0 AEIC19_DAILY_POG2 -                                                                 -        -                - -   -       POG2 241/74/77   20 1\n0 AEIC19_DAILY_ACET $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HC       2019/1-12/1-31/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_DAILY_ALD2 -                                                                 -        -                - -   -       ALD2 241/114/102 20 1\n0 AEIC19_DAILY_ALK4 -                                                                 -        -                - -   -       ALK4 241/114/103 20 1\n0 AEIC19_DAILY_C2H6 -                                                                 -        -                - -   -       C2H6 241/114/104 20 1\n0 AEIC19_DAILY_C3H8 -                                                                 -        -                - -   -       C3H8 241/114/105 20 1\n0 AEIC19_DAILY_CH2O -                                                                 -        -                - -   -       CH2O 241/114/106 20 1\n0 AEIC19_DAILY_PRPE -                                                                 -        -                - -   -       PRPE 241/114/107 20 1\n0 AEIC19_DAILY_MACR -                                                                 -        -                - -   -       MACR 241/114/108 20 1\n0 AEIC19_DAILY_RCHO -                                                                 -        -                - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_NO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO       2019/1-12/1/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_MONMEAN_NO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO2      2019/1-12/1/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_MONMEAN_HONO $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HONO     2019/1-12/1/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_MONMEAN_CO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO       2019/1-12/1/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_MONMEAN_SOAP -                                                                          -        -             - -   -       SOAP 241/280     20 1\n0 AEIC19_MONMEAN_SO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_MONMEAN_pFe  -                                                                          -        -             - -   -       pFe  241/111/66  20 1\n0 AEIC19_MONMEAN_SO4  -                                                                          -        -             - -   -       SO4  241/112     20 1\n0 AEIC19_MONMEAN_H2O  -                                                                          -        -             - -   -       H2O  241/120     20 1\n0 AEIC19_MONMEAN_BCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc BC       2019/1-12/1/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_MONMEAN_OCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc OC       2019/1-12/1/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_MONMEAN_POG1 -                                                                          -        -             - -   -       POG1 241/74/76   20 1\n0 AEIC19_MONMEAN_POG2 -                                                                          -        -             - -   -       POG2 241/74/77   20 1\n0 AEIC19_MONMEAN_ACET $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HC       2019/1-12/1/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_MONMEAN_ALD2 -                                                                          -        -             - -   -       ALD2 241/114/102 20 1\n0 AEIC19_MONMEAN_ALK4 -                                                                          -        -             - -   -       ALK4 241/114/103 20 1\n0 AEIC19_MONMEAN_C2H6 -                                                                          -        -             - -   -       C2H6 241/114/104 20 1\n0 AEIC19_MONMEAN_C3H8 -                                                                          -        -             - -   -       C3H8 241/114/105 20 1\n0 AEIC19_MONMEAN_CH2O -                                                                          -        -             - -   -       CH2O 241/114/106 20 1\n0 AEIC19_MONMEAN_PRPE -                                                                          -        -             - -   -       PRPE 241/114/107 20 1\n0 AEIC19_MONMEAN_MACR -                                                                          -        -             - -   -       MACR 241/114/108 20 1\n0 AEIC19_MONMEAN_RCHO -                                                                          -        -             - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- Emissions from decaying plants ---\n#==============================================================================\n(((DECAYING_PLANTS\n0 ALD2_PLANTDECAY $ROOT/ALD2/v2017-03/resp.geos.2x25.nc HET_RESP 1985/1-12/1/0 C xy kgC/m2/s ALD2 85/41 3 1\n0 EOH_PLANTDECAY  -                                     -        -             - -  -        EOH  86/47 3 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CH4     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP3PD_NOx     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NOx_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP3PD_CO      $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP3PD_SOAP    -                                                                                        -      -               -  -  -        SOAP  280   1 1\n0 RCP3PD_BCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_BC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP3PD_OCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_OC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP3PD_POG1    -                                                                                        -      -               -  -  -        POG1  74/76 1 1\n0 RCP3PD_POG2    -                                                                                        -      -               -  -  -        POG2  74/77 1 1\n0 RCP3PD_SO2     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_SO2_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP3PD_pFe     -                                                                                        -      -               -  -  -        pFe   66    1 1\n0 RCP3PD_NH3     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NH3_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP3PD_C2H2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_acetylene_2005-2100_23474_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP3PD_CH2O    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_formaldehyde_2005-2100_23474.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP3PD_BENZ    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_benzene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP3PD_TOLU    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_toluene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP3PD_XYLE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_xylene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP3PD_ALD2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_other_aldehydes_2005-2100_23474_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP3PD_ALK4__A $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_butanes_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__B $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_pentanes_2005-2100_23474_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__C $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_23474_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ACET    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_ketones_2005-2100_23474_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP3PD_MEK     -                                                                                        -      -               -  -  -        MEK   50/48 1 1\n0 RCP3PD_C2H6    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethane_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP3PD_C2H4    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP3PD_C3H8    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propane_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP3PD_PRPE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP3PD_HCOOH   $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_acids_2005-2100_23474.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CH4     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP45_NOx     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NOx_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP45_CO      $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP45_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP45_BCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_BC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP45_OCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_OC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP45_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP45_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP45_SO2     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_SO2_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP45_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP45_NH3     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NH3_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP45_C2H2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_acetylene_2005-2100_27424_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP45_CH2O    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_formaldehyde_2005-2100_27424.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP45_BENZ    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_benzene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP45_TOLU    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_toluene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP45_XYLE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_xylene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP45_ALD2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_other_aldehydes_2005-2100_27424_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP45_ALK4__A $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_butanes_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__B $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_pentanes_2005-2100_27424_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__C $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_27424_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ACET    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_ketones_2005-2100_27424_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP45_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP45_C2H6    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethane_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP45_C2H4    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP45_C3H8    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propane_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP45_PRPE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP45_HCOOH   $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_acids_2005-2100_27424.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CH4     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP60_NOx     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NOx_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP60_CO      $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP60_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP60_BCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_BC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP60_OCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_OC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP60_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP60_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP60_SO2     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_SO2_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP60_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP60_NH3     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NH3_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP60_C2H2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_acetylene_2005-2100_43190_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP60_CH2O    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_formaldehyde_2005-2100_43190.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP60_BENZ    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_benzene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP60_TOLU    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_toluene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP60_XYLE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_xylene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP60_ALD2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_other_aldehydes_2005-2100_43190_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP60_ALK4__A $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_butanes_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__B $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_pentanes_2005-2100_43190_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__C $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43190_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ACET    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_ketones_2005-2100_43190_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP60_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP60_C2H6    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethane_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP60_C2H4    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP60_C3H8    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propane_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP60_PRPE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP60_HCOOH   $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_acids_2005-2100_43190.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CH4     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP85_NOx     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NOx_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP85_CO      $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP85_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP85_BCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_BC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP85_OCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_OC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP85_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP85_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP85_SO2     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_SO2_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP80_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP85_NH3     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NH3_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP85_C2H2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_acetylene_2005-2100_43533_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP85_CH2O    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_formaldehyde_2005-2100_43533.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP85_BENZ    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_benzene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP85_TOLU    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_toluene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP85_XYLE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_xylene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP85_ALD2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_other_aldehydes_2005-2100_43533_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP85_ALK4__A $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_butanes_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__B $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_pentanes_2005-2100_43533_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__C $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43533_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ACET    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_ketones_2005-2100_43533_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP85_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP85_C2H6    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethane_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP85_C2H4    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP85_C3H8    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propane_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP85_PRPE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP85_HCOOH   $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_acids_2005-2100_43533.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_85\n\n#==============================================================================\n# --- QFED2 biomass burning (v2.5r1) ---\n#==============================================================================\n(((QFED2\n0 QFED_ACET_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ACET 75/311        5 2\n0 QFED_ACET_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ACET 75/312        5 2\n0 QFED_ALD2_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ALD2 75/311        5 2\n0 QFED_ALD2_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ALD2 75/312        5 2\n0 QFED_ALK4_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ALK4 75/311        5 2\n0 QFED_ALK4_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ALK4 75/312        5 2\n0 QFED_BCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s BCPI 70/75/311     5 2\n0 QFED_BCPO_PBL  -                                                                 -       -                             -   -             -       BCPO 71/75/311     5 2\n0 QFED_BCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s BCPI 70/75/312     5 2\n0 QFED_BCPO_FT   -                                                                 -       -                             -   -             -       BCPO 71/75/312     5 2\n0 QFED_OCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s OCPI 72/75/311     5 2\n0 QFED_OCPO_PBL  -                                                                 -       -                             -   -             -       OCPO 73/75/311     5 2\n0 QFED_POG1_PBL  -                                                                 -       -                             -   -             -       POG1 74/76/75/311  5 2\n0 QFED_POG2_PBL  -                                                                 -       -                             -   -             -       POG2 74/77/75/311  5 2\n0 QFED_OCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s OCPI 72/75/312     5 2\n0 QFED_OCPO_FT   -                                                                 -       -                             -   -             -       OCPO 73/75/312     5 2\n0 QFED_POG1_FT   -                                                                 -       -                             -   -             -       POG1 74/76/75/312  5 2\n0 QFED_POG2_FT   -                                                                 -       -                             -   -             -       POG2 74/77/75/312  5 2\n0 QFED_C2H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s C2H6 75/311        5 2\n0 QFED_C2H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s C2H6 75/312        5 2\n0 QFED_C3H8_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s C3H8 75/311        5 2\n0 QFED_C3H8_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s C3H8 75/312        5 2\n0 QFED_CH2O_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CH2O 75/311        5 2\n0 QFED_CH2O_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CH2O 75/312        5 2\n0 QFED_CH4_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CH4  75/311        5 2\n0 QFED_CH4_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CH4  75/312        5 2\n0 QFED_CO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CO   54/75/311     5 2\n0 QFED_SOAP_PBL  -                                                                 -       -                             -   -             -       SOAP 54/75/281/311 5 2\n0 QFED_CO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CO   54/75/312     5 2\n0 QFED_SOAP_FT   -                                                                 -       -                             -   -             -       SOAP 54/75/281/312 5 2\n0 QFED_CO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CO2  75/311        5 2\n0 QFED_CO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CO2  75/312        5 2\n0 QFED_MEK_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s MEK  75/311        5 2\n0 QFED_MEK_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s MEK  75/312        5 2\n0 QFED_NH3_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NH3  75/311        5 2\n0 QFED_NH3_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NH3  75/312        5 2\n0 QFED_NO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NO   75/311        5 2\n0 QFED_NO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NO   75/312        5 2\n0 QFED_SO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s SO2  75/311        5 2\n0 QFED_pFe_PBL   -                                                                 -       -                             -   -             -       pFe  75/311/66     5 2\n0 QFED_SO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s SO2  75/312        5 2\n0 QFED_pFe_FT    -                                                                 -       -                             -   -             -       pF3  75/312/66     5 2\n0 QFED_C3H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s PRPE 75/311        5 2\n0 QFED_C3H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s PRPE 75/312        5 2\n)))QFED2\n\n#==============================================================================\n# --- GFAS biomass burning ---\n#==============================================================================\n(((GFAS\n0 GFAS_CO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO   75       5 3\n0 GFAS_SOAP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SOAP 75/281   5 3\n0 GFAS_CH3OH $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch3ohfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s MOH  75       5 3\n0 GFAS_NO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc noxfire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NO   75       5 3\n0 GFAS_BCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPI 70/75    5 3\n0 GFAS_BCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPO 71/75    5 3\n0 GFAS_OCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPI 72/75    5 3\n0 GFAS_OCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPO 73/75    5 3\n0 GFAS_POG1  -                                          -             -                     - -             -       POG1 74/76/75 5 3\n0 GFAS_POG2  -                                          -             -                     - -             -       POG2 74/77/75 5 3\n0 GFAS_CO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc co2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO2  75       5 3\n0 GFAS_CH4   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch4fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH4  75       5 3\n0 GFAS_SO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SO2  75       5 3\n0 GFAS_pFe   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s pFe  75/66    5 3\n0 GFAS_NH3   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc nh3fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NH3  75       5 3\n0 GFAS_ACET  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ACET 75       5 3\n0 GFAS_ALD2  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALD2 75       5 3\n0 GFAS_ALK4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkanesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALK4 75       5 3\n0 GFAS_PRPE1 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkenesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_PRPE2 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_C2H6  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H6 75       5 3\n0 GFAS_C3H8  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C3H8 75       5 3\n0 GFAS_CH2O  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch2ofire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH2O 75       5 3\n0 GFAS_C2H4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H4 75       5 3\n0 GFAS_ISOP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c5h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ISOP 75       5 3\n0 GFAS_DMS   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6sfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s DMS  75       5 3\n0 GFAS_TOLU  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c7h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s TOLU 75       5 3\n0 GFAS_BENZ  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c6h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BENZ 75       5 3\n0 GFAS_XYLE  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c8h10fire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s XYLE 75       5 3\n)))GFAS\n\n#==============================================================================\n# --- FINNv2.5 biomass burning ---\n# Uses dataset derived with combined fire detection from MODIS and VIIRS.\n# Data downloaded from: https://rda.ucar.edu/datasets/d312009/dataaccess/\n# Uses FINN emissions processed for MOZART for multiple species not processed\n#       for general use (not specific to any model) or for GEOS-Chem.\n#       Naming convention of inventory developers preserved for traceability.\n# Description of development of data available here:\n#       https://gmd.copernicus.org/articles/16/3873/2023/\n#==============================================================================\n(((FINNv25\n0 FINNv25_CO    $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_CO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_CO              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CO     75     5 3\n0 FINNv25_SOAP  -                                                                                                                     -                               -                     -  -  -                SOAP   75/281 5 3\n0 FINNv25_NO    $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_NO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_NO              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NO     75     5 3\n0 FINNv25_NO2   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_NO2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc             fire_modisviirs_NO2             2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NO2    75     5 3\n0 FINNv25_BCPI  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_BC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_BC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BCPI   75/70  5 3\n0 FINNv25_BCPO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_BC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_BC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BCPO   75/71  5 3\n0 FINNv25_OCPI  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_OC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_OC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s OCPI   75/72  5 3\n0 FINNv25_OCPO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_OC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc              fire_modisviirs_OC              2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s OCPO   75/73  5 3\n0 FINNv25_SO2   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_SO2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc             fire_modisviirs_SO2             2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s SO2    75     5 3\n0 FINNv25_pFe   -                                                                                                                     -                               -                     -  -  -                pFe    75/66  5 3\n0 FINNv25_NH3   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-NH3_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc      fire_modisviirs_MOZART-NH3      2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s NH3    75     5 3\n0 FINNv25_ACET  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-ACET_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-ACET   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ACET   75     5 3\n0 FINNv25_ALK4  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-ALK4_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-ALK4   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ALK4   75     5 3\n0 FINNv25_PRPE  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-PRPE_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-PRPE   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s PRPE   75     5 3\n0 FINNv25_C2H2  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H2_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H2   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H2   75     5 3\n0 FINNv25_C2H4  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H4_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H4   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H4   75     5 3\n0 FINNv25_C2H6  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C2H6_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C2H6   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C2H6   75     5 3\n0 FINNv25_C3H8  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-C3H8_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-C3H8   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s C3H8   75     5 3\n0 FINNv25_CH2O  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-CH2O_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-CH2O   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s CH2O   75     5 3\n0 FINNv25_ISOP  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-ISOP_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-ISOP     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ISOP   75     5 3\n0 FINNv25_BENZ  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-BENZ_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-BENZ   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s BENZ   75     5 3\n0 FINNv25_TOLU  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-TOLU_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-TOLU   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s TOLU   75     5 3\n0 FINNv25_XYLE  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-XYLE_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-XYLE   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s XYLE   75     5 3\n0 FINNv25_GLYC  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-GLYC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-GLYC   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s GLYC   75     5 3\n0 FINNv25_MGLY  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-MGLY_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_GEOSCHEM-MGLY   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MGLY   75     5 3\n0 FINNv25_HAC   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-HAC_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_GEOSCHEM-HAC    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HAC    75     5 3\n0 FINNv25_MEK   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_GEOSCHEM-MEK_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_GEOSCHEM-MEK    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MEK    75     5 3\n0 FINNv25_HCOOH $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-HCOOH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_MOZART-HCOOH    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HCOOH  75     5 3\n0 FINNv25_HONO  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-HONO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-HONO     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s HNO2   75     5 3\n0 FINNv25_ALD2  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3CHO_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_MOZART-CH3CHO   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ALD2   75     5 3\n0 FINNv25_EOH   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-C2H5OH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc   fire_modisviirs_MOZART-C2H5OH   2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s EOH    75     5 3\n0 FINNv25_MOH   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3OH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc    fire_modisviirs_MOZART-CH3OH    2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MOH    75     5 3\n0 FINNv25_ACTA  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-CH3COOH_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc  fire_modisviirs_MOZART-CH3COOH  2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s ACTA   75     5 3\n0 FINNv25_MVK   $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-MVK_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc      fire_modisviirs_MOZART-MVK      2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MVK    75     5 3\n0 FINNv25_MACR  $ROOT/FINNv25/v2025-06/$YYYY/emissions-finnv2.5modvrs_MOZART-MACR_bb_surface_daily_$YYYY0101-$YYYY1231_0.1x0.1.nc     fire_modisviirs_MOZART-MACR     2012-2023/1-12/1-31/0 EF xy molecules/cm^2/s MACR   75     5 3\n)))FINNv25\n\n#==============================================================================\n# --- BB4MIPs biomass burning ---\n#==============================================================================\n(((BB4MIPS\n# 75 is time-of-day scaling\n0 CMIP6_BB_CO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CO    75       5 3\n0 CMIP6_BB_SOAP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SOAP  75/281   5 3\n0 CMIP6_BB_NO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NO    75       5 3\n0 CMIP6_BB_BCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPI  70/75    5 3\n0 CMIP6_BB_BCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPO  71/75    5 3\n0 CMIP6_BB_OCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPI  72/75    5 3\n0 CMIP6_BB_OCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPO  73/75    5 3\n0 CMIP6_BB_POG1    -                                                          -          -                  - -         -       POG1  74/76/75 5 3\n0 CMIP6_BB_POG2    -                                                          -          -                  - -         -       POG2  74/77/75 5 3\n0 CMIP6_BB_SO2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 SO2_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SO2   75       5 3\n0 CMIP6_BB_pFe     -                                                          -          -                  - -         -       pFe   75/66    5 3\n0 CMIP6_BB_NH3     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NH3_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NH3   75       5 3\n0 CMIP6_BB_ALD2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALD2_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALD2  75       5 3\n0 CMIP6_BB_ALK4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALK4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALK4  75       5 3\n0 CMIP6_BB_PRPE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 PRPE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s PRPE  75       5 3\n0 CMIP6_BB_C2H6    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H6_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H6  75       5 3\n0 CMIP6_BB_C3H8    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C3H8_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C3H8  75       5 3\n0 CMIP6_BB_CH2O    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH2O_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CH2O  75       5 3\n0 CMIP6_BB_C2H4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H4  75       5 3\n0 CMIP6_BB_ISOP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ISOP_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ISOP  75       5 3\n0 CMIP6_BB_DMS     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 DMS_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s DMS   75       5 3\n0 CMIP6_BB_TOLU    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 TOLU_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s TOLU  75       5 3\n0 CMIP6_BB_BENZ    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BENZ_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BENZ  75       5 3\n0 CMIP6_BB_XYLE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 XYLE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s XYLE  75       5 3\n0 CMIP6_BB_H2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 H2_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s H2    75       5 3\n0 CMIP6_BB_MTPA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MONOT_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MTPA  75       5 3\n#0 CMIP6_BB_MTPO    -                                                         -          -                  - -             -   MTPO  75       5 3\n#0 CMIP6_BB_LIMO    -                                                         -          -                  - -             -   LIMO  75       5 3\n0 CMIP6_BB_EOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 EOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s EOH   75       5 3\n0 CMIP6_BB_MOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MOH   75       5 3\n0 CMIP6_BB_ACET    -                                                          -          -                  - -             -   ACET  79/75    5 3\n0 CMIP6_BB_MGLY    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MGLY_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MGLY  75       5 3\n0 CMIP6_BB_ACTA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ACTA_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ACTA  75       5 3\n0 CMIP6_BB_HCN     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCN_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCN   75       5 3\n0 CMIP6_BB_HCOOH   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCOOH_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCOOH 75       5 3\n0 CMIP6_BB_MEK     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MEK_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MEK   75       5 3\n)))BB4MIPS\n\n#==============================================================================\n# --- GFED4 biomass burning emissions climatology\n# NOTE:\n# - These emissions were generated for 2010-2019 using the GFED extension\n#   in a 0.5x0.625 HEMCO 3.6.1 standalone simulation.\n#==============================================================================\n(((GFED4_CLIMATOLOGY\n0 GFED4_CLIM_ACET   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACET  2023/1-12/1/0 C xy kg/m2/s ACET  - 5 1\n0 GFED4_CLIM_ACR    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACR   2023/1-12/1/0 C xy kg/m2/s ACR   - 5 1\n0 GFED4_CLIM_ACTA   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACTA  2023/1-12/1/0 C xy kg/m2/s ACTA  - 5 1\n0 GFED4_CLIM_ALD2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ALD2  2023/1-12/1/0 C xy kg/m2/s ALD2  - 5 1\n0 GFED4_CLIM_ALK4   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ALK4  2023/1-12/1/0 C xy kg/m2/s ALK4  - 5 1\n0 GFED4_CLIM_BCPI   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPI  2023/1-12/1/0 C xy kg/m2/s BCPI  - 5 1\n0 GFED4_CLIM_BCPO   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPO  2023/1-12/1/0 C xy kg/m2/s BCPO  - 5 1\n0 GFED4_CLIM_BENZ   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BENZ  2023/1-12/1/0 C xy kg/m2/s BENZ  - 5 1\n0 GFED4_CLIM_C2H2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H2  2023/1-12/1/0 C xy kg/m2/s C2H2  - 5 1\n0 GFED4_CLIM_C2H4   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H4  2023/1-12/1/0 C xy kg/m2/s C2H4  - 5 1\n0 GFED4_CLIM_C2H6   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H6  2023/1-12/1/0 C xy kg/m2/s C2H6  - 5 1\n0 GFED4_CLIM_C3H8   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C3H8  2023/1-12/1/0 C xy kg/m2/s C3H8  - 5 1\n0 GFED4_CLIM_C4H6   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C4H6  2023/1-12/1/0 C xy kg/m2/s C4H6  - 5 1\n0 GFED4_CLIM_CH2O   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_CH2O  2023/1-12/1/0 C xy kg/m2/s CH2O  - 5 1\n0 GFED4_CLIM_CO     $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_CO    2023/1-12/1/0 C xy kg/m2/s CO    - 5 1\n0 GFED4_CLIM_EOH    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_EOH   2023/1-12/1/0 C xy kg/m2/s EOH   - 5 1\n0 GFED4_CLIM_FURA   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_FURA  2023/1-12/1/0 C xy kg/m2/s FURA  - 5 1\n0 GFED4_CLIM_GLYX   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_GLYX  2023/1-12/1/0 C xy kg/m2/s GLYX  - 5 1\n0 GFED4_CLIM_HCOOH  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_HCOOH 2023/1-12/1/0 C xy kg/m2/s HCOOH - 5 1\n0 GFED4_CLIM_ISOP   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ISOP  2023/1-12/1/0 C xy kg/m2/s ISOP  - 5 1\n0 GFED4_CLIM_MEK    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MEK   2023/1-12/1/0 C xy kg/m2/s MEK   - 5 1\n0 GFED4_CLIM_MGLY   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MGLY  2023/1-12/1/0 C xy kg/m2/s MGLY  - 5 1\n0 GFED4_CLIM_MOH    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MOH   2023/1-12/1/0 C xy kg/m2/s MOH   - 5 1\n0 GFED4_CLIM_MVK    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MVK   2023/1-12/1/0 C xy kg/m2/s MVK   - 5 1\n0 GFED4_CLIM_MTPA   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MTPA  2023/1-12/1/0 C xy kg/m2/s MTPA  - 5 1\n0 GFED4_CLIM_NAP    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NAP   2023/1-12/1/0 C xy kg/m2/s NAP   - 5 1\n0 GFED4_CLIM_NH3    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NH3   2023/1-12/1/0 C xy kg/m2/s NH3   - 5 1\n0 GFED4_CLIM_NO     $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NO    2023/1-12/1/0 C xy kg/m2/s NO    - 5 1\n0 GFED4_CLIM_OCPI   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPI  2023/1-12/1/0 C xy kg/m2/s OCPI  - 5 1\n0 GFED4_CLIM_OCPO   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPO  2023/1-12/1/0 C xy kg/m2/s OCPO  - 5 1\n0 GFED4_CLIM_PHEN   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_PHEN  2023/1-12/1/0 C xy kg/m2/s PHEN  - 5 1\n0 GFED4_CLIM_POG1   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_POG1  2023/1-12/1/0 C xy kg/m2/s POG1  - 5 1\n0 GFED4_CLIM_POG2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_POG2  2023/1-12/1/0 C xy kg/m2/s POG2  - 5 1\n0 GFED4_CLIM_PRPE   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_PRPE  2023/1-12/1/0 C xy kg/m2/s PRPE  - 5 1\n0 GFED4_CLIM_RCHO   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_RCHO  2023/1-12/1/0 C xy kg/m2/s RCHO  - 5 1\n0 GFED4_CLIM_SO2    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SO2   2023/1-12/1/0 C xy kg/m2/s SO2   - 5 1\n0 GFED4_CLIM_SOAP   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SOAP  2023/1-12/1/0 C xy kg/m2/s SOAP  - 5 1\n0 GFED4_CLIM_STYR   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_STYR  2023/1-12/1/0 C xy kg/m2/s STRY  - 5 1\n0 GFED4_CLIM_TOLU   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_TOLU  2023/1-12/1/0 C xy kg/m2/s TOLU  - 5 1\n0 GFED4_CLIM_XYLE   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_XYLE  2023/1-12/1/0 C xy kg/m2/s XYLE  - 5 1\n)))GFED4_CLIMATOLOGY\n\n#==============================================================================\n# --- Anthropogenic Fugitive, Combustion and Industrial Dust ---\n# (Philip et al., 2017, ERL)\n#==============================================================================\n(((AFCID\n0 PM25FINE_1_bin1 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631    1 1\n0 PM25FINE_1_bin2 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632    1 1\n0 PM25FINE_1_bin3 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633    1 1\n0 PM25FINE_1_bin4 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634    1 1\n0 PM25FINE_2_bin1 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631/1009 1 2\n0 PM25FINE_2_bin2 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632/1009 1 2\n0 PM25FINE_2_bin3 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633/1009 1 2\n0 PM25FINE_2_bin4 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634/1009 1 2\n0 PM25FINE_3_bin1 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin1 630/631/1010 1 3\n0 PM25FINE_3_bin2 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin2 630/632/1010 1 3\n0 PM25FINE_3_bin3 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin3 630/633/1010 1 3\n0 PM25FINE_3_bin4 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DSTbin4 630/634/1010 1 3\n)))AFCID\n\n#==============================================================================\n# --- Offline dust emissions ---\n#==============================================================================\n(((OFFLINE_DUST\n(((.not.DustL23M\n0 EMIS_DSTbin1 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin1 621 3 2\n0 EMIS_DSTbin2 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin2 622 3 2\n0 EMIS_DSTbin3 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin3 623 3 2\n0 EMIS_DSTbin4 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin4 624 3 2\n0 EMIS_DSTbin5 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin5 625 3 2\n0 EMIS_DSTbin6 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin6 626 3 2\n0 EMIS_DSTbin7 $ROOT/OFFLINE_DUST/v2025-03/${RUNDIR_OFFLINE_EMIS_RES}/${RUNDIR_MET}/$YYYY/$MM/dust_emissions_${RUNDIR_OFFLINE_EMIS_LAT_RES}.${RUNDIR_MET}.$YYYY$MM$DD.nc EMIS 1980-2022/1-12/1-31/* EFY xy kg/m2/s DSTbin7 627 3 2\n))).not.DustL23M\n)))OFFLINE_DUST\n\n#==============================================================================\n# --- Offline biogenic VOC emissions ---\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n0 BIOGENIC_ACET      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ACET_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ACET -   4 2\n0 BIOGENIC_ALD2      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ALD2_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ALD2 -   4 2\n0 BIOGENIC_C2H4      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc C2H4_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s C2H4 -   4 2\n0 BIOGENIC_EOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc EOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s EOH  -   4 2\n0 BIOGENIC_ISOP      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc ISOP_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ISOP -   4 2\n0 BIOGENIC_ISOP_SOAP -                                                                                                            -             -                     -   -  -       SOAP 610 4 2\n0 BIOGENIC_ISOP_SOAS -                                                                                                            -             -                     -   -  -       SOAS 610 4 2\n0 BIOGENIC_LIMO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc LIMO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s LIMO -   4 2\n0 BIOGENIC_LIMO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_LIMO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s MOH  -   4 2\n0 BIOGENIC_MTPA      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MTPA_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPA -   4 2\n0 BIOGENIC_MTPA_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPA_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MTPO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc MTPO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPO -   4 2\n0 BIOGENIC_MTPO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_PRPE      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc PRPE_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s PRPE -   4 2\n0 BIOGENIC_SESQ      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SESQ_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s SESQ -   4 2\n0 BIOGENIC_SESQ_SOAP -                                                                                                            -             -                     -   -  -       SOAP 612 4 2\n0 BIOGENIC_SESQ_SOAS -                                                                                                            -             -                     -   -  -       SOAS 612 4 2\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt emissions ---\n#==============================================================================\n(((OFFLINE_SEASALT\n(((.not.SeaSalt\n0 SEASALT_SALA    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SALA_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALA    -   3 2\n0 SEASALT_SALAAL  -                                                                                                              -            -                     -   -  -       SALAAL  615 3 2\n0 SEASALT_SALACL  -                                                                                                              -            -                     -   -  -       SALACL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALA  -                                                                                                              -            -                     -   -  -       BrSALA  617 3 2\n)))CalcBrSeasalt\n0 SEASALT_SALC    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SALC_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALC    -   3 2\n0 SEASALT_SALCAL  -                                                                                                              -            -                     -   -  -       SALCAL  615 3 2\n0 SEASALT_SALCCL  -                                                                                                              -            -                     -   -  -       SALCCL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALC  -                                                                                                              -            -                     -   -  -       BrSALC  617 3 2\n)))CalcBrSeasalt\n))).not.SeaSalt\n)))OFFLINE_SEASALT\n\n#==============================================================================\n# --- Offline soil NOx emissions ---\n#==============================================================================\n(((OFFLINE_SOILNOX\n(((.not.SoilNOx\n0 SOILNOX_NO  $ROOT/OFFLINE_SOILNOX/${RUNDIR_OFFLINE_SOILNOX_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/soilnox_${RUNDIR_OFFLINE_EMIS_LAT_RES}.$YYYY$MM$DD.nc SOIL_NOx 1980-2022/1-12/1-31/* EFY xy kg/m2/s NO - 3 2\n))).not.SoilNOx\n)))OFFLINE_SOILNOX\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n#==============================================================================\n(((SeaFlux\n#101 CH3I_SEAWATER  $ROOT/CH3I/v2014-07/ocean_ch3i.geos.4x5.nc               CH3I_OCEAN 1985/1-12/1/0 C xy kg/m3  CH3I  -  1 1\n101 DMS_SEAWATER    $ROOT/DMS/v2015-07/DMS_lana.geos.1x1.nc                  DMS_OCEAN  1985/1-12/1/0 C xy kg/m3  DMS   -  1 1\n101 ACET_SEAWATER   $ROOT/ACET/v2014-07/ACET_seawater.generic.1x1.nc         ACET       2005/1/1/0    C xy kgC/m3 ACET  40 1 1\n101 ALD2_SEAWATER   $ROOT/ALD2/v2017-03/ALD2_seawater.geos.2x25.nc           ALD2       2006/1-12/1/0 C xy kgC/m3 ALD2  41 1 1\n101 MENO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         MENO3      2006/1-12/1/0 C xy kg/m3  MENO3 -  1 1\n101 ETNO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         ETNO3      2006/1-12/1/0 C xy kg/m3  ETNO3 -  1 1\n101 MOH_SEAWATER    $ROOT/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc MOH        2005/1/1/0    C xy kg/m3  MOH   -  1 1\n)))SeaFlux\n\n#==============================================================================\n# --- SOILNOX emissions (Extension 104) ---\n#==============================================================================\n(((SoilNOx\n104 DEP_RESERVOIR_DEFAULT $ROOT/SOILNOX/v2014-07/DepReservoirDefault.nc                 DEP_RESERVOIR 2013/7/1/0        C  xy kg/m3 NO - 1 1\n(((HEMCO_RESTART\n104 PFACTOR               ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           PFACTOR       $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DRYPERIOD             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           DRYPERIOD     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 GWET_PREV             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           GWET_PREV     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DEP_RESERVOIR         ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                           DEP_RESERVOIR $YYYY/$MM/$DD/$HH EY xy kg/m3 NO - 1 1\n)))HEMCO_RESTART\n104 SOILNOX_FERT          $ROOT/SOILNOX/v2014-07/soilNOx.fert_res.generic.05x05.nc      FERT          2000/1-12/1-31/0  C  xy kg/m3 NO - 1 1\n104 SOILNOX_LANDK1        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K01  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK2        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K02  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK3        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K03  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK4        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K04  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK5        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K05  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK6        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K06  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK7        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K07  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK8        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K08  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK9        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K09  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK10       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K10  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK11       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K11  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK12       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K12  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK13       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K13  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK14       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K14  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK15       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K15  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK16       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K16  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK17       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K17  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK18       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K18  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK19       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K19  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK20       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K20  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK21       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K21  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK22       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K22  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK23       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K23  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK24       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K24  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_ARID          $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       ARID          2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_NONARID       $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       NON_ARID      2000/1/1/0        C  xy 1     NO - 1 1\n)))SoilNOx\n\n#===========================================================================\n# --- External fields needed for online DustL23M (Extension 125) ---\n#===========================================================================\n(((DustL23M\n125 L23M_A_bare       $ROOT/DustL23M/v2025-07/LandCover/MCD12C1.LC.$YYYY.0.1.nc4           LC_bare       1998-2022/1/1/0    C xy 1           * - 1 1\n125 L23M_A_veg        $ROOT/DustL23M/v2025-07/LandCover/MCD12C1.LC.$YYYY.0.1.nc4           LC_veg        1998-2022/1/1/0    C xy 1           * - 1 1\n125 L23M_Csah         $ROOT/DustL23M/v2025-07/scale/DustL23_scale_025x03125_scaleSAv2.nc4  scale         2000/1/1/0         C xy 1           * - 1 1\n125 L23M_LAI          $ROOT/DustL23M/v2025-07/LandCover/XLAI_025x025_$YYYY_MonMean.nc4     LAI           2000-2020/1-12/1/0 C xy 1           * - 1 1\n125 L23M_fclay        $ROOT/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4             f_clay        2000/1/1/0         C xy 1           * - 1 1\n125 L23M_BD           $ROOT/DustL23M/v2025-07/GSDE/GSDE_clay-sand-silt_0.1.nc4             bulk_density  2000/1/1/0         C xy kg-soil/m3  * - 1 1\n125 L23M_poros        $ROOT/DustL23M/v2025-07/poros/MERRA2.const_2d_lnd_Nx.poros.nc4       poros         1980/1/1/0         C xy 1           * - 1 1\n125 L23M_roughness_r  $ROOT/DustL23M/v2025-07/roughness/Surf_roughness_min_rocks_1997.nc4  roughness_r   1997/1/1/0         C xy m           * - 1 1\n)))DustL23M\n\n#==============================================================================\n# --- Sea salt emissions (Extensions 107 and 130)\n#\n# MODIS Chlorophyll-A fields used for emissions of marine organic aerosols\n#==============================================================================\n(((SeaSalt\n107 MODIS_CHLR  $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS    2005-2014/1-12/1/0 C    xy 1 * - 1 1\n107 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1980-2020/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#107 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))SeaSalt\n(((TOMAS_Jeagle\n130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS 2005-2014/1-12/1/0 C xy 1 * - 1 1\n130 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1984-2017/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))TOMAS_Jeagle\n\n#==============================================================================\n# --- Dust emissions using DEAD model (Extension 131) ---\n#==============================================================================\n(((TOMAS_DustDead\n131 DEAD_EF_GEO     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      EF_GEO   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_LF_DRY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      LF_DRY   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_MF_CACO3   $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CaCO3 1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_CLY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CLY   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_SND     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_SND   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_SFC_TYP    $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      SFC_TYP  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_GOC_SRC    $ROOT/DUST_DEAD/v2019-06/GOCART_src_fn.geos.2x25.nc  GOC_SRC  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_VAI        $ROOT/DUST_DEAD/v2019-06/dst_tvbds.geos.2x25.nc      VAI      1985/1-12/1/0 C xy unitless *    -    1 1\n)))TOMAS_DustDead\n\n#==============================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#\n# NOTE: These are the base emissions, which will be converted to kgC/m2/s by\n# HEMCO. The specified species (OCPI/ISOP/ACET) are required for proper unit\n# conversion. Since netCDF files are already in mass carbon (ug(C)), the only\n# important thing is to specify a VOC with a specified MW of 12g/mol.\n# This is the case for OCPI, ISOP and ACET.\n#\n# We don't need to read EF maps for acetone, a-pinene or myrcene. We now\n# compute those values in the MEGAN extension.\n#==============================================================================\n(((MEGAN\n(((HEMCO_RESTART\n108  T_DAVG                       ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_DAVG                  $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  T_PREVDAY                    ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_PREVDAY               $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  LAI_PREVDAY                  ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                LAI_PREVDAY             $YYYY/$MM/$DD/$HH EY xy 1        * - 1 1\n108  PARDR_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDR_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n108  PARDF_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDF_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n)))HEMCO_RESTART\n108  MEGAN_AEF_ISOP               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ISOPRENE            1985/1/1/0        C xy kgC/m2/s * 61 1 1\n108  MEGAN_AEF_MBOX               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MBO                 1985/1/1/0        C xy kgC/m2/s * 64 1 1\n#108 MEGAN_AEF_APIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ALPHA_PINENE        1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_BPIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_BETA_PINENE         1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_CARE               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_CARENE              1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_LIMO               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_LIMONENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n#108 MEGAN_AEF_MYRC               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MYRCENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_OCIM               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_OCIMENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_SABI               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_SABINENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  CLM4_PFT_BARE                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BARE                2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_SHRB      $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_SHRB      2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_ARCT_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_ARCT_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_NARC_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_NARC_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C4_GRSS             $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C4_GRSS             2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_CROP                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_CROP                2000/1/1/0        C xy 1        * -  1 1\n)))MEGAN\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTES:\n# - These are the base emissions in kgDM/m2/s\n# - If a year is not available, you may use the GFED4_CLIMATOLOGY option instead\n#==============================================================================\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_subgrid_coag\n111 FINN_DAILY_NUMBER   $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc   number   2002-2016/1-12/1/0   RF xy unitless  * - 1 1\n)))GFED_subgrid_coag\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* KPP_HVALUE     ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_KPPHvalue      $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* WETDEP_N       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_WetDepNitrogen $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* DRYDEP_N       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_DryDepNitrogen $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* SO2_AFTERCHEM  ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SO2AfterChem   $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* H2O2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_H2O2AfterChem  $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* AEROH2O_SNA    ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_AeroH2OSNA     $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* ORVCSESQ       ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCsesq       $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n* JOH            ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JOH            $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* JNO2           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JNO2           $YYYY/$MM/$DD/$HH EY   xy  1 * - 1 1\n* STATE_PSC      ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_StatePSC       $YYYY/$MM/$DD/$HH EY   xyz count * - 1 1\n)))GC_RESTART\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- UV albedo, for photolysis (cf Hermann & Celarier, 1997) ---\n#==============================================================================\n(((UVALBEDO\n* UV_ALBEDO $ROOT/UVALBEDO/v2019-06/uvalbedo.geos.2x25.nc UVALBD 1985/1-12/1/0 C xy percent * - 1 1\n)))UVALBEDO\n\n#==============================================================================\n# --- Stratospheric Bry data from the CCM model  ---\n#==============================================================================\n(((CCM_STRAT_Bry\n* GEOSCCM_Br_DAY      $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_DAY     $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_DAY     $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_DAY   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_DAY     $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_DAY    $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.day.nc   HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br_NIGHT    $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_NIGHT   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_NIGHT   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_NIGHT $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_NIGHT   $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_NIGHT  $ROOT/${RUNDIR_Bry_DIR}/GEOSCCM_Bry.2007$MM.night.nc HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n)))CCM_STRAT_Bry\n\n#==============================================================================\n#--- Archived GMI OH concentrations ---\n#==============================================================================\n(((GMI_OH\n* GMI_OH            $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OH.geos5.2x25.nc             species 2005/1-12/1/0 C xyz v/v   *        - 1  1\n)))GMI_OH\n\n#==============================================================================\n#--- GMI chemistry: prod/loss rates ---\n#\n# Used for linearized mesospheric chemistry\n#==============================================================================\n(((GMI_PROD_LOSS\n* GMI_LOSS_A3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.A3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   A3O2     - 1  1\n* GMI_PROD_A3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.A3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s A3O2     - 1  1\n* GMI_LOSS_ACET       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACET.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACET     - 1  1\n* GMI_PROD_ACET       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACET.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACET     - 1  1\n* GMI_LOSS_ACTA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACTA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACTA     - 1  1\n* GMI_PROD_ACTA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ACTA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACTA     - 1  1\n* GMI_LOSS_ALD2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALD2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALD2     - 1  1\n* GMI_PROD_ALD2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALD2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALD2     - 1  1\n* GMI_LOSS_ALK4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALK4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALK4     - 1  1\n* GMI_PROD_ALK4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ALK4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALK4     - 1  1\n* GMI_LOSS_ATO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ATO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ATO2     - 1  1\n* GMI_PROD_ATO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ATO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ATO2     - 1  1\n* GMI_LOSS_B3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.B3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   B3O2     - 1  1\n* GMI_PROD_B3O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.B3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s B3O2     - 1  1\n#* GMI_LOSS_Br        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Br.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Br       - 1  1\n#* GMI_PROD_Br        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Br.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Br       - 1  1\n#* GMI_LOSS_BrCl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   BrCl     - 1  1\n#* GMI_PROD_BrCl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s BrCl     - 1  1\n#* GMI_LOSS_BrO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   BrO      - 1  1\n#* GMI_PROD_BrO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s BrO      - 1  1\n#* GMI_LOSS_BrNO3     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   BrNO3    - 1  1\n#* GMI_PROD_BrNO3     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.BrONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s BrNO3    - 1  1\n* GMI_LOSS_C2H6       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C2H6.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C2H6     - 1  1\n* GMI_PROD_C2H6       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C2H6.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C2H6     - 1  1\n* GMI_LOSS_C3H8       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C3H8.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C3H8     - 1  1\n* GMI_PROD_C3H8       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.C3H8.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C3H8     - 1  1\n* GMI_LOSS_CCl4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CCl4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CCl4     - 1  1\n* GMI_PROD_CCl4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CCl4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CCl4     - 1  1\n#* GMI_LOSS_H1202     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Br2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   H1202    - 1  1\n#* GMI_PROD_H1202     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Br2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s H1202    - 1  1\n* GMI_LOSS_CFC12      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Cl2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC12    - 1  1\n* GMI_PROD_CFC12      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2Cl2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC12    - 1  1\n* GMI_LOSS_H1211      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2ClBr.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   H1211    - 1  1\n* GMI_PROD_H1211      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF2ClBr.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s H1211    - 1  1\n#* GMI_LOSS_H1311     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H1311    - 1  1\n#* GMI_PROD_H1311     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CF3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H1311    - 1  1\n* GMI_LOSS_CFC113     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC113.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC113   - 1  1\n* GMI_PROD_CFC113     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC113.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC113   - 1  1\n* GMI_LOSS_CFC114     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC114.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC114   - 1  1\n* GMI_PROD_CFC114     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC114.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC114   - 1  1\n* GMI_LOSS_CFC115     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC115.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC115   - 1  1\n* GMI_PROD_CFC115     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFC115.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC115   - 1  1\n* GMI_LOSS_CFC11      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFCl3.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CFC11    - 1  1\n* GMI_PROD_CFC11      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CFCl3.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CFC11    - 1  1\n* GMI_LOSS_CH2O       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH2O.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CH2O     - 1  1\n* GMI_PROD_CH2O       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH2O.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CH2O     - 1  1\n#* GMI_LOSS_CH3Br     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Br    - 1  1\n#* GMI_PROD_CH3Br     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Br    - 1  1\n* GMI_LOSS_CH3CCl3    $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3CCl3.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   CH3CCl3  - 1  1\n* GMI_PROD_CH3CCl3    $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3CCl3.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s CH3CCl3  - 1  1\n* GMI_LOSS_CH3Cl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Cl.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Cl    - 1  1\n* GMI_PROD_CH3Cl      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH3Cl.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Cl    - 1  1\n* GMI_LOSS_CH4        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH4.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   CH4      - 1  1\n* GMI_PROD_CH4        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CH4.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s CH4      - 1  1\n* GMI_LOSS_CO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   CO       - 1  1\n* GMI_PROD_CO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.CO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s CO       - 1  1\n* GMI_LOSS_Cl         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Cl       - 1  1\n* GMI_PROD_Cl         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Cl       - 1  1\n* GMI_LOSS_Cl2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   Cl2      - 1  1\n* GMI_PROD_Cl2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s Cl2      - 1  1\n* GMI_LOSS_Cl2O2      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2O2.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   Cl2O2    - 1  1\n* GMI_PROD_Cl2O2      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Cl2O2.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s Cl2O2    - 1  1\n* GMI_LOSS_ClO        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ClO      - 1  1\n* GMI_PROD_ClO        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ClO      - 1  1\n* GMI_LOSS_ClONO2     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   ClONO2   - 1  1\n* GMI_PROD_ClONO2     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ClONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s ClONO2   - 1  1\n* GMI_LOSS_EOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.EOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   EOH      - 1  1\n* GMI_PROD_EOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.EOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s EOH      - 1  1\n* GMI_LOSS_ETO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ETO2     - 1  1\n* GMI_PROD_ETO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ETO2     - 1  1\n* GMI_LOSS_ETP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ETP      - 1  1\n* GMI_PROD_ETP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ETP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ETP      - 1  1\n* GMI_LOSS_GCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GCO3     - 1  1\n* GMI_PROD_GCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GCO3     - 1  1\n* GMI_LOSS_GLYC       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYC.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYC     - 1  1\n* GMI_PROD_GLYC       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYC.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYC     - 1  1\n* GMI_LOSS_GLYX       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYX.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYX     - 1  1\n* GMI_PROD_GLYX       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GLYX.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYX     - 1  1\n* GMI_LOSS_GP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   GP       - 1  1\n* GMI_PROD_GP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s GP       - 1  1\n* GMI_LOSS_GPAN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GPAN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GPAN     - 1  1\n* GMI_PROD_GPAN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.GPAN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GPAN     - 1  1\n* GMI_LOSS_H          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   H        - 1  1\n* GMI_PROD_H          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s H        - 1  1\n* GMI_LOSS_H2         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   H2       - 1  1\n* GMI_PROD_H2         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s H2       - 1  1\n* GMI_LOSS_H2402      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2402.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H2402    - 1  1\n* GMI_PROD_H2402      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2402.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H2402    - 1  1\n* GMI_LOSS_H2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   H2O      - 1  1\n* GMI_PROD_H2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s H2O      - 1  1\n* GMI_LOSS_H2O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   H2O2     - 1  1\n* GMI_PROD_H2O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.H2O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s H2O2     - 1  1\n* GMI_LOSS_HAC        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HAC.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HAC      - 1  1\n* GMI_PROD_HAC        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HAC.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HAC      - 1  1\n#* GMI_LOSS_HBr       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HBr.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HBr      - 1  1\n#* GMI_PROD_HBr       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HBr.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HBr      - 1  1\n* GMI_LOSS_HCFC141b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC141b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC141b - 1  1\n* GMI_PROD_HCFC141b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC141b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC141b - 1  1\n* GMI_LOSS_HCFC142b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC142b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC142b - 1  1\n* GMI_PROD_HCFC142b   $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC142b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC142b - 1  1\n* GMI_LOSS_HCFC22     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC22.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   HCFC22   - 1  1\n* GMI_PROD_HCFC22     $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCFC22.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s HCFC22   - 1  1\n* GMI_LOSS_HCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCOOH.geos5.2x25.20170108.nc loss    2005/1-12/1/0 C xyz s-1   HCOOH    - 1  1\n* GMI_PROD_HCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCOOH.geos5.2x25.20170108.nc prod    2005/1-12/1/0 C xyz v/v/s HCOOH    - 1  1\n* GMI_LOSS_HCl        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCl.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HCl      - 1  1\n* GMI_PROD_HCl        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HCl.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HCl      - 1  1\n* GMI_LOSS_HNO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO2     - 1  1\n* GMI_PROD_HNO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO2     - 1  1\n* GMI_LOSS_HNO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO3     - 1  1\n* GMI_PROD_HNO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO3     - 1  1\n* GMI_LOSS_HNO4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO4     - 1  1\n* GMI_PROD_HNO4       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HNO4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO4     - 1  1\n* GMI_LOSS_HO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HO2      - 1  1\n* GMI_PROD_HO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HO2      - 1  1\n#* GMI_LOSS_HOBr      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOBr.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOBr     - 1  1\n#* GMI_PROD_HOBr      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOBr.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOBr     - 1  1\n* GMI_LOSS_HOCl       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOCl     - 1  1\n* GMI_PROD_HOCl       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.HOCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOCl     - 1  1\n* GMI_LOSS_IALD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IALD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IALD     - 1  1\n* GMI_PROD_IALD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IALD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IALD     - 1  1\n* GMI_LOSS_IAO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IAO2     - 1  1\n* GMI_PROD_IAO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IAO2     - 1  1\n* GMI_LOSS_IAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   IAP      - 1  1\n* GMI_PROD_IAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s IAP      - 1  1\n* GMI_LOSS_INO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INO2     - 1  1\n* GMI_PROD_INO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INO2     - 1  1\n* GMI_LOSS_INPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INPN     - 1  1\n* GMI_PROD_INPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.INPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INPN     - 1  1\n* GMI_LOSS_ISN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISN1     - 1  1\n* GMI_PROD_ISN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISN1     - 1  1\n* GMI_LOSS_ISNP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISNP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISNP     - 1  1\n* GMI_PROD_ISNP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISNP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISNP     - 1  1\n* GMI_LOSS_ISOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISOP     - 1  1\n* GMI_PROD_ISOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ISOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISOP     - 1  1\n* GMI_LOSS_KO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.KO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   KO2      - 1  1\n* GMI_PROD_KO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.KO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s KO2      - 1  1\n* GMI_LOSS_MACR       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MACR.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MACR     - 1  1\n* GMI_PROD_MACR       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MACR.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MACR     - 1  1\n* GMI_LOSS_MAN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAN2     - 1  1\n* GMI_PROD_MAN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAN2     - 1  1\n* GMI_LOSS_MAO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAO3     - 1  1\n* GMI_PROD_MAO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAO3     - 1  1\n* GMI_LOSS_MAOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAOP     - 1  1\n* GMI_PROD_MAOP       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAOP     - 1  1\n* GMI_LOSS_MAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MAP      - 1  1\n* GMI_PROD_MAP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MAP      - 1  1\n* GMI_LOSS_MCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MCO3     - 1  1\n* GMI_PROD_MCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MCO3     - 1  1\n* GMI_LOSS_MEK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MEK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MEK      - 1  1\n* GMI_PROD_MEK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MEK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MEK      - 1  1\n* GMI_LOSS_MGLY       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MGLY.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MGLY     - 1  1\n* GMI_PROD_MGLY       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MGLY.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MGLY     - 1  1\n* GMI_LOSS_MO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MO2      - 1  1\n* GMI_PROD_MO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MO2      - 1  1\n* GMI_LOSS_MOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MOH      - 1  1\n* GMI_PROD_MOH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MOH      - 1  1\n* GMI_LOSS_MP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   MP       - 1  1\n* GMI_PROD_MP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s MP       - 1  1\n* GMI_LOSS_MRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MRO2     - 1  1\n* GMI_PROD_MRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MRO2     - 1  1\n* GMI_LOSS_MRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MRP      - 1  1\n* GMI_PROD_MRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MRP      - 1  1\n* GMI_LOSS_MVK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MVK      - 1  1\n* GMI_PROD_MVK        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MVK      - 1  1\n* GMI_LOSS_MVN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MVN2     - 1  1\n* GMI_PROD_MVN2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.MVN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MVN2     - 1  1\n* GMI_LOSS_N          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   N        - 1  1\n* GMI_PROD_N          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s N        - 1  1\n* GMI_LOSS_N2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   N2O      - 1  1\n* GMI_PROD_N2O        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s N2O      - 1  1\n* GMI_LOSS_N2O5       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O5.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   N2O5     - 1  1\n* GMI_PROD_N2O5       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.N2O5.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s N2O5     - 1  1\n* GMI_LOSS_NO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   NO       - 1  1\n* GMI_PROD_NO         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s NO       - 1  1\n* GMI_LOSS_NO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO2      - 1  1\n* GMI_PROD_NO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO2      - 1  1\n* GMI_LOSS_NO3        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO3.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO3      - 1  1\n* GMI_PROD_NO3        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NO3.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO3      - 1  1\n* GMI_LOSS_NOx        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NOx.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NOx      - 1  1\n* GMI_PROD_NOx        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NOx.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NOx      - 1  1\n* GMI_LOSS_O          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   O        - 1  1\n* GMI_PROD_O          $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s O        - 1  1\n* GMI_LOSS_O1D        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O1D.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   O1D      - 1  1\n* GMI_PROD_O1D        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O1D.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s O1D      - 1  1\n* GMI_LOSS_O3         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O3.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   O3       - 1  1\n* GMI_PROD_O3         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.O3.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s O3       - 1  1\n* GMI_LOSS_OClO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OClO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   OClO     - 1  1\n* GMI_PROD_OClO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OClO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s OClO     - 1  1\n* GMI_LOSS_OH         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OH.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   OH       - 1  1\n* GMI_PROD_OH         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.OH.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s OH       - 1  1\n* GMI_LOSS_Ox         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Ox.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Ox       - 1  1\n* GMI_PROD_Ox         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.Ox.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Ox       - 1  1\n* GMI_LOSS_PAN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PAN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PAN      - 1  1\n* GMI_PROD_PAN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PAN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PAN      - 1  1\n* GMI_LOSS_NPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   NPMN     - 1  1\n* GMI_PROD_NPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.NPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s NPMN     - 1  1\n* GMI_LOSS_IPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IPMN     - 1  1\n* GMI_PROD_IPMN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.IPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IPMN     - 1  1\n* GMI_LOSS_PO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PO2      - 1  1\n* GMI_PROD_PO2        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PO2      - 1  1\n* GMI_LOSS_PP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   PP       - 1  1\n* GMI_PROD_PP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s PP       - 1  1\n* GMI_LOSS_PPN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PPN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PPN      - 1  1\n* GMI_PROD_PPN        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PPN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PPN      - 1  1\n* GMI_LOSS_PRN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRN1     - 1  1\n* GMI_PROD_PRN1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRN1     - 1  1\n* GMI_LOSS_PRPE       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPE.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPE     - 1  1\n* GMI_PROD_PRPE       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPE.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPE     - 1  1\n* GMI_LOSS_PRPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPN     - 1  1\n* GMI_PROD_PRPN       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.PRPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPN     - 1  1\n* GMI_LOSS_R4N1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N1     - 1  1\n* GMI_PROD_R4N1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N1     - 1  1\n* GMI_LOSS_R4N2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N2     - 1  1\n* GMI_PROD_R4N2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4N2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N2     - 1  1\n* GMI_LOSS_R4O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4O2     - 1  1\n* GMI_PROD_R4O2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4O2     - 1  1\n* GMI_LOSS_R4P        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4P.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   R4P      - 1  1\n* GMI_PROD_R4P        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.R4P.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s R4P      - 1  1\n* GMI_LOSS_RA3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RA3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RA3P     - 1  1\n* GMI_PROD_RA3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RA3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RA3P     - 1  1\n* GMI_LOSS_RB3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RB3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RB3P     - 1  1\n* GMI_PROD_RB3P       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RB3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RB3P     - 1  1\n* GMI_LOSS_RCHO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCHO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCHO     - 1  1\n* GMI_PROD_RCHO       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCHO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCHO     - 1  1\n* GMI_LOSS_RCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCO3     - 1  1\n* GMI_PROD_RCO3       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCO3     - 1  1\n* GMI_LOSS_RCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCOOH.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   RCOOH    - 1  1\n* GMI_PROD_RCOOH      $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RCOOH.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s RCOOH    - 1  1\n* GMI_LOSS_RIO1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIO1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIO1     - 1  1\n* GMI_PROD_RIO1       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIO1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIO1     - 1  1\n* GMI_LOSS_RIPA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPA     - 1  1\n* GMI_PROD_RIPA       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPA     - 1  1\n* GMI_LOSS_RIPB       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPB.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPB     - 1  1\n* GMI_PROD_RIPB       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPB.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPB     - 1  1\n* GMI_LOSS_RIPD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPD     - 1  1\n* GMI_PROD_RIPD       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RIPD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPD     - 1  1\n* GMI_LOSS_ROH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ROH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ROH      - 1  1\n* GMI_PROD_ROH        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.ROH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ROH      - 1  1\n* GMI_LOSS_RP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   RP       - 1  1\n* GMI_PROD_RP         $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.RP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s RP       - 1  1\n* GMI_LOSS_VRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   VRO2     - 1  1\n* GMI_PROD_VRO2       $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s VRO2     - 1  1\n* GMI_LOSS_VRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   VRP      - 1  1\n* GMI_PROD_VRP        $ROOT/${RUNDIR_GMI_DIR}/gmi.clim.VRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s VRP      - 1  1\n)))GMI_PROD_LOSS\n\n#==============================================================================\n# --- Spatially varying OM/OC ---\n#==============================================================================\n(((OMOC_RATIO\n* OMOC_DJF $ROOT/OMOC/v2018-01/OMOC.DJF.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_MAM $ROOT/OMOC/v2018-01/OMOC.MAM.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_JJA $ROOT/OMOC/v2018-01/OMOC.JJA.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_SON $ROOT/OMOC/v2018-01/OMOC.SON.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n)))OMOC_RATIO\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- NOAA GMD monthly mean surface CH4 ---\n#==============================================================================\n(((GMD_SFC_CH4\n* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2023-10/monthly.gridded.surface.methane.1975-2022.1x1.nc SFC_CH4 1975-2022/1-12/1/0 RY xy ppbv * - 1 1\n)))GMD_SFC_CH4\n\n#==============================================================================\n# --- CMIP6 monthly mean surface CH4 ---\n# NOTE: This is only used if NOAA data is unavailable (pre 1979)\n#==============================================================================\n(((CMIP6_SFC_CH4\n* CMIP6_Sfc_CH4  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH4 1750-1978/1-12/1/0 EY xy ppbv * - 1 1\n)))CMIP6_SFC_CH4\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Inputs for the RRTMG radiative transfer model ---\n#\n# NOTE: The 2 x 2.5 albedo fields and emissivity fields will produce\n# differences at the level of numerical noise when comparing output to\n# simulations from prior versions (esp. when running at 4 x 5 resolution).\n# You might see larger differences w/r/t prior verisons for a few grid boxes\n# along the coastline of Antarctica, where the difference in resolution\n# and regridding will be more apparent in the sharp transition from ice to\n# ocean.  If this is a problem, you can use the data files at 4x5 resolution\n# for 4x5 RRTMG simulations.\n#\n# ALSO NOTE: The algorithm that HEMCO uses to select each time slice is\n# likely different than what was implemented when reading the old bpch\n# data from disk.  This can also cause differences when comparing to\n# prior versions.\n#==============================================================================\n(((RRTMG\n* MODIS_ALBDFNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDFVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_01 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band01  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_02 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band02  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_03 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band03  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_04 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band04  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_05 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band05  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_06 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band06  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_07 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band07  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_08 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band08  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_09 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band09  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_10 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band10  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_11 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band11  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_12 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band12  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_13 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band13  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_14 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band14  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_15 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band15  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_16 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band16  2002/1-12/1-31/0 C xy  1    * - 1 1\n${RUNDIR_TES_CLIM_CCL4}\n${RUNDIR_TES_CLIM_CFC11}\n${RUNDIR_TES_CLIM_CFC12}\n${RUNDIR_TES_CLIM_CFC22}\n${RUNDIR_TES_CLIM_CH4}\n${RUNDIR_TES_CLIM_N2O}\n)))RRTMG\n\n(((SfcVMR\n#==============================================================================\n# --- CMIP6 files ---\n#\n# Use core CMIP6 observationally constrained data from Meinshausen et al. (2017) GMD\n#==============================================================================\n* SfcVMR_CH3Cl  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Cl  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH2Cl2 $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH2Cl2 1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CHCl3  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CHCl3  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH3Br  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Br  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n\n#==============================================================================\n# --- WMO-2018 files (GMI) ---\n#==============================================================================\n* SfcVMR_CCl4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CCl4        1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC113   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC113      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC114   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC114      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC115   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC115      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC11    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC11       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC12    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC12       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Br   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Br       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CH3CCl3  $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3CCl3     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Cl   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Cl       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH4         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1211    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1211       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1301    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1301       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H2402    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc C2BR2F4     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC141b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC141b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC142b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC142b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC22   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC22      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_N2O      $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc N2O         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n\n#==============================================================================\n# --- Dummy files with a single surface concentration (for OCS and H2) ---\n#==============================================================================\n* SfcVMR_OCS  $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS 1985/1/1/0  C xy ppbv * - 1 1\n* SfcVMR_H2   $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2  1985/1/1/0  C xy ppbv * - 1 1\n)))SfcVMR\n\n(((CMIP6_SFC_BC\n\n#==============================================================================\n# --- CMIP6 surface boundary conditions for 1750-2100                       ---\n#==============================================================================\n\n# Commented-out tracers do not exist in GEOS-Chem yet\n# * SfcVMR_C2F6       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C2F6          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C3F8       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C3F8          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C4F10      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C4F10         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C5F12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C5F12         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C6F14      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C6F14         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C7F16      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C7F16         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C8F18      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C8F18         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_CC4F8      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CC4F8         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CCl4       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CCl4          1750-2100/1-12/1/0 RY xy v/v CCl4     802 1 1\n# * SfcVMR_CF4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CF4           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CFC11      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC11         1750-2100/1-12/1/0 RY xy v/v CFC11    802 1 1\n*   SfcVMR_CFC113     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC113        1750-2100/1-12/1/0 RY xy v/v CFC113   802 1 1\n*   SfcVMR_CFC114     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC114        1750-2100/1-12/1/0 RY xy v/v CFC114   802 1 1\n*   SfcVMR_CFC115     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC115        1750-2100/1-12/1/0 RY xy v/v CFC115   802 1 1\n*   SfcVMR_CFC12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC12         1750-2100/1-12/1/0 RY xy v/v CFC12    802 1 1\n*   SfcVMR_CH2Cl2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH2Cl2        1750-2100/1-12/1/0 RY xy v/v CH2Cl2   802 1 1\n*   SfcVMR_CH3Br      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Br         1750-2100/1-12/1/0 RY xy v/v CH3Br    802 1 1\n*   SfcVMR_CH3CCl3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3CCl3       1750-2100/1-12/1/0 RY xy v/v CH3CCl3  802 1 1\n*   SfcVMR_CH3Cl      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Cl         1750-2100/1-12/1/0 RY xy v/v CH3Cl    802 1 1\n*   SfcVMR_CH4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH4           1750-2100/1-12/1/0 RY xy v/v CH4      802 1 1\n*   SfcVMR_CHCl3      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CHCl3         1750-2100/1-12/1/0 RY xy v/v CHCl3    802 1 1\n# * SfcVMR_CO2        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CO2           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_H1211      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1211         1750-2100/1-12/1/0 RY xy v/v H1211    802 1 1\n*   SfcVMR_H1301      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1301         1750-2100/1-12/1/0 RY xy v/v H1301    802 1 1\n*   SfcVMR_H2402      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H2402         1750-2100/1-12/1/0 RY xy v/v H2402    802 1 1\n#   SFC_BC_HCFC123 <- exists in UCX with lifetime of 2 years but has no surface boundary conditions; 200-600 pptv in https://doi.org/10.1021/es802308m\n*   SfcVMR_HCFC141b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC141b      1750-2100/1-12/1/0 RY xy v/v HCFC141b 802 1 1\n*   SfcVMR_HCFC142b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC142b      1750-2100/1-12/1/0 RY xy v/v HCFC142b 802 1 1\n*   SfcVMR_HCFC22     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC22        1750-2100/1-12/1/0 RY xy v/v HCFC22   802 1 1\n# * SfcVMR_HFC125     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC125        1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC134a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC134a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC143a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC143a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC152a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC152a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC227ea   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC227ea      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC23      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC23         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC236fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC236fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC245fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC245fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC32      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC32         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC365mfc  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC365mfc     1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC4310mee $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC4310mee    1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_N2O        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   N2O           1750-2100/1-12/1/0 RY xy v/v N2O      802 1 1\n# * SfcVMR_NF3        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   NF3           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SF6        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SF6           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SO2F2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SO2F2         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n\n#==============================================================================\n# -- Not part of CMIP6 experimental design; use GEOS-Chem defaults\n#==============================================================================\n* SfcVMR_OCS          $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS           1985/1/1/0          C xy ppbv *         - 1 1\n* SfcVMR_H2           $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2            1985/1/1/0          C xy ppbv *         - 1 1\n\n)))CMIP6_SFC_BC\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((XIAO_C3H8\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n7  LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n25 EDGAR_TODNOX $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless 1\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019)\n#==============================================================================\n33 PKU_pow_NOx              0.94/0.93/0.93/0.92/0.93/0.96/0.98/0.99/0.98/1.00/1.05/1.03/1.01/1.04/1.05/1.05/1.07/1.06/1.05/1.05/1.03/1.01/0.99/0.96 - - - xy unitless 1 1009\n34 PKU_pow_SO2              0.92/0.91/0.90/0.89/0.90/0.93/0.97/0.98/0.99/1.02/1.07/1.04/1.03/1.06/1.06/1.07/1.10/1.10/1.06/1.05/1.03/1.01/0.99/0.93 - - - xy unitless 1 1009\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 1009\n\n# These scale factors undo (Oper=-1) the global diurnal scale factors over China (Mask=1009)\n36 EDGAR_TODNOX_UNDO $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless -1 1009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 1009\n\n#==============================================================================\n# --- Day-of-week scale factors ---\n# ==> data is Sun/Mon/.../Sat\n#==============================================================================\n(((XIAO_C3H8\n22 GEIA_DOW_HC  0.671/1.1102/1.1102/1.1102/1.1102/1.1102/0.768 - - - xy unitless 1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Seasonal scale factors ---\n#==============================================================================\n(((DICE_Africa\n# from GEIA:\n30 GEIA_SEASON_NOX  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc NOXrat 1985/1-12/1/0 C xy unitless 1\n31 GEIA_SEASON_SO2  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc SO2rat 1985/1-12/1/0 C xy unitless 1\n)))DICE_Africa\n\n#==============================================================================\n# --- For Bromocarbons ---\n#==============================================================================\n(((LIANG_BROMOCARB\n39 BROMOCARB_SEASON $ROOT/BROMINE/v2015-02/BromoCarb_Season.nc CHXBRY_scale 2000/1-12/1/0 C xy unitless 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Scale factors used for species conversions ---\n#==============================================================================\n\n# Units carbon to species conversions\n# Factor = # carbon atoms * MW carbon) / MW species\n40 CtoACET MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n41 CtoALD2 MATH:44.06/(2.0*12.0)   - - - xy unitless 1\n42 CtoALK4 MATH:58.12/(4.3*12.0)   - - - xy unitless 1\n43 CtoBENZ MATH:78.12/(6.0*12.0)   - - - xy unitless 1\n44 CtoC2H4 MATH:28.05/(2.0*12.0)   - - - xy unitless 1\n45 CtoC2H6 MATH:30.08/(2.0*12.0)   - - - xy unitless 1\n46 CtoC3H8 MATH:44.11/(3.0*12.0)   - - - xy unitless 1\n47 CtoEOH  MATH:46.07/(2.0*12.0)   - - - xy unitless 1\n48 CtoMEK  MATH:72.11/(4.0*12.0)   - - - xy unitless 1\n49 CtoPRPE MATH:42.09/(3.0*12.0)   - - - xy unitless 1\n55 CtoTOLU MATH:92.15/(7.0*12.0)   - - - xy unitless 1\n56 CtoXYLE MATH:106.18/(8.0*12.0)  - - - xy unitless 1\n59 CtoC2H2 MATH:26.04/(2.0*12.0)   - - - xy unitless 1\n61 CtoISOP MATH:68.13/(5.0*12.0)   - - - xy unitless 1\n62 CtoMTPA MATH:136.26/(10.0*12.0) - - - xy unitless 1\n64 CtoMBOX MATH:86.13/(5.0*12.0)   - - - xy unitless 1\n67 CtoSESQ MATH:204.4/(15.0*12.0)  - - - xy unitless 1\n83 CtoMACR MATH:70.10/(4.0*12.0)   - - - xy unitless 1\n84 CtoRCHO MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n\n# VOC speciations\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n50 KET2MEK    0.25  - - - xy unitless 1\n51 KET2ACET   0.75  - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n# RCP acids to HCOOH conversion\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n57 RCP_HCOOHfraction 0.25     - - - xy unitless 1\n58 RCP_ACIDStoHCOOH  0.779661 - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n# SOx to SO2 conversion (Chin et al., 2000)\n60 SOX2SO2_GLOBAL 0.986  - - - xy unitless 1\n63 SO2toSO4       0.031  - - - xy unitless 1\n65 SO2toSO4_APEI  0.014  - - - xy unitless 1\n66 SO2toPFe       1.0e-3 - - - xy unitless 1\n68 SO2toPFe_APEI  4.7e-4 - - - xy unitless 1\n69 SO2toPFe_NEI   1.0e-3 - - - xy unitless 1\n78 SO2FRAC        0.969  - - - xy unitless 1\n\n# Carbon aerosols: speciation of hydrophilic and hydrophobic fractions\n# (Fractions applied to the biomass burning extensions (GFED or FINN) are\n#  specified separately in the extensions section.)\n70 BC2BCPI  0.2  - - - xy unitless 1\n71 BC2BCPO  0.8  - - - xy unitless 1\n72 OC2OCPI  0.5  - - - xy unitless 1\n73 OC2OCPO  0.5  - - - xy unitless 1\n74 POGSCAL  1.27 - - - xy unitless 1\n76 SV2POG1  0.49 - - - xy unitless 1\n77 SV2POG2  0.51 - - - xy unitless 1\n\n(((BB4MIPS\n# Convert MOH to ACET emissions for CMIP6 Scenarios\n79 MOH2ACET 0.2094649 - - - xy unitless 1\n)))BB4MIPS\n\n# Convert CEDS total alchohols to methanol, ethanol, and other alcohols following Chen et al. (2019, ACP)\n90 VOC1toMOH 0.5   - - - xy 1 1\n91 VOC1toEOH 0.375 - - - xy 1 1\n92 VOC1toROH 0.125 - - - xy 1 1\n\n# NOx/NO2 to NO conversion\n115 NO2toNO  6.521739e-1 - -  - xy unitless 1\n\n# SOA-Precursor scale factors\n#\n# From Kim, P.S., et. al. 2015 \"Sources, seasonality, and trends\n# of southeast US aerosol: ...\"\n#   AVOCs and BBVOCs are emitted in proportion to CO, with an emission ratio of\n#     0.069 g AVOC (g CO)−1 (Hayes et al., 2015) and\n#     0.013 g BBVOC (g CO)−1 (Cubison et al., 2011).\n#   They are both oxidized by OH in the model ... to generate SOA.\n280 COtoSOAP_anth 0.069 - - - xy 1 1\n281 COtoSOAP_burn 0.013 - - - xy 1 1\n\n#==============================================================================\n# --- Diurnal scale factors for biomass burning ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n\n#==============================================================================\n# --- NAP scale factors ---\n#\n# Get anthropogenic (FF) NAP emissions by scaling BENZ emissions with the\n# following factor. Factor is ratio of TgC NAP to TgC BENZ emissions\n# or equivalently, molec C NAP to molec C BENZ. Scaling should produce\n# about 0.09 TgC NAP/year, consistent with non-BB,BF emissions predicted\n# by Zhang and Tao 2009 Atm Env\n# Based on year 2000 1x1 inv  (hotp 11/14/09)\n#REAL*8, PARAMETER    :: NAPTOBENZSCALE = 0.06861d0\n\n# NAPTOTSCAL: factor to scale total NAP emissions to POA (hotp 7/24/09)\n#REAL*8, PARAMETER    :: NAPTOTALSCALE = 66.09027d0\n\n# = CO emissions * emissions ratio of mol NAP / mol CO\n# * kg C / mol NAP * mol CO / kg CO\n# mmol NAP / mol CO = 0.025 g NAP/ kg DM /\n#              ( 78 g CO/ kg DM ) * 28 g CO / mol CO\n#            / ( 128 g NAP / mol NAP ) *1000 mmol/mol\n# scale emissions down if appropriate to remove the\n# effect of VOC ox on CO emission\n# EF for NAP from Andreae and Merlet 2001 Glob Biog Cyc\n# EF for CO  from Andreae and Merlet 2001 Glob Biog Cyc\n#BIOFUEL_KG(N,:,:) = BIOFUEL_KG(IDBFCO,:,:) * 0.0701d-3\n#                  * 120d0 / 28d0 * COSCALEDOWN\n#==============================================================================\n(((EDGARv43\n80 NAPEMISS   1.0     - - - xy unitless 1\n81 NAPTOTSCAL 66.09   - - - xy unitless 1\n82 BENZTONAP  6.86e-2 - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- BIOGENIC EMISSIONS FROM DRY LEAF MATTER ---\n#\n# Use yield of 40ug/dDW.\n# Assume organic matter has molecular formula CH2O (MW 30.03), which\n#  means 0.4 gC / g plant\n# ALD2 MW = 44.05 g/mole ==> 0.55 gC/g ALD2\n#  Therefore 40ug (ALD2) / g (plant) ==> 55 ug C in ALD2 / gC plant\n# EOH MW = 46 g/mole ==> 0.52 gC/g EOH\n#  Therefore 40ug (EOH)  / g (plant) ==> 52 ug C in EOH  / gC plant\n#==============================================================================\n(((DECAYING_PLANTS\n85 YIELD_RESP_ALD2 55.0e-6 - - - xy unitless 1\n86 YIELD_RESP_EOH  52.0e-6 - - - xy unitless 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#==============================================================================\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n# Conversions from AEIC2019 inventory quantities to individual species\n101 AEICACET 3.693477e-3 - - - xy unitless 1\n102 AEICALD2 4.271822e-2 - - - xy unitless 1\n103 AEICALK4 2.137911e-1 - - - xy unitless 1\n104 AEICC2H6 5.214505e-3 - - - xy unitless 1\n105 AEICC3H8 7.808710e-4 - - - xy unitless 1\n106 AEICCH2O 1.230811e-1 - - - xy unitless 1\n107 AEICPRPE 1.780418e-1 - - - xy unitless 1\n108 AEICMACR 5.362609e-2 - - - xy unitless 1\n109 AEICRCHO 3.676944e-2 - - - xy unitless 1\n111 AEICSO2  1.176000e-3 - - - xy unitless 1\n112 AEICSO4  3.600000e-5 - - - xy unitless 1\n113 AEICBC   3.000000e-5 - - - xy unitless 1\n114 AEICHC   1.160000e+0 - - - xy unitless 1\n120 FB2H2O   1.231000e+0 - - - xy unitless 1\n\n#------------------------------------------------------------------------------\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Increase\n# from 2018 to 2019 is estimated based on the growth from 2017 to 2018.\n# Lee et al. (2021) only covers 1990 to 2018, so to get to 2019 it is\n# assumed that the growth from 2017 to 2018 is the same as that from 2018\n# to 2019. So the formula is something like:\n#\n# Emissions of CO  in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down. For NOx, the same procedure is applied but with an additional\n# factor to account for changes in NOx EI:\n#\n# Emissions of NOx in 2009 = [ AEIC 2019 emissions of NOx\n#                          *   (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          *   (Lee 2009 fuel burn / Lee 2018 fuel burn) ]\n#                          * [ (Lee 2017 NOx EI    / Lee 2018 NOx EI)\n#                          *   (Lee 2009 NOx EI    / Lee 2018 NOx EI)    ]\n#\n# In this case though the Lee et al 2018 and 2017 NOx EIs are identical.\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC_SCALE_1990_2019\n240 AC_EINOX   0.852/0.852/0.852/0.859/0.866/0.873/0.881/0.888/0.896/0.903/0.911/0.916/0.922/0.927/0.932/0.937/0.950/0.962/0.974/0.987/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000 - 1990-2019/1/1/0 C xy 1 1\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n240 AC_EINOX  1.000000e+0 - -  - xy 1 1\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n(((CMIP6_AIRCRAFT\n# Conversions for SO2 to HCs taken from AEIC\n601 CMIP6_SO2_TO_ACET 3.140712 - -  - xy unitless 1\n602 CMIP6_SO2_TO_ALD2 36.32502 - -  - xy unitless 1\n603 CMIP6_SO2_TO_ALK4 181.7952 - -  - xy unitless 1\n604 CMIP6_SO2_TO_C2H6 4.434103 - -  - xy unitless 1\n605 CMIP6_SO2_TO_C3H8 0.664006 - -  - xy unitless 1\n606 CMIP6_SO2_TO_CH2O 104.6608 - -  - xy unitless 1\n607 CMIP6_SO2_TO_PRPE 151.3961 - -  - xy unitless 1\n608 CMIP6_SO2_TO_MACR 45.60042 - -  - xy unitless 1\n609 CMIP6_SO2_TO_RCHO 31.26653 - -  - xy unitless 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EPA NEI day-of-week scale factors ---\n#==============================================================================\n(((NEI2016_MONMEAN\n210 NEI99_DOW_NOX   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc NOX  1999/1-12/WD/0 C xy 1 1\n211 NEI99_DOW_CO    $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO   1999/1-12/WD/0 C xy 1 1\n212 NEI99_DOW_ALK4  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ALK4 1999/1-12/WD/0 C xy 1 1\n213 NEI99_DOW_ACET  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ACET 1999/1-12/WD/0 C xy 1 1\n214 NEI99_DOW_MEK   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MEK  1999/1-12/WD/0 C xy 1 1\n215 NEI99_DOW_PRPE  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc PRPE 1999/1-12/WD/0 C xy 1 1\n216 NEI99_DOW_C3H8  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C3H8 1999/1-12/WD/0 C xy 1 1\n217 NEI99_DOW_C2H6  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C2H6 1999/1-12/WD/0 C xy 1 1\n218 NEI99_DOW_SO2   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO2  1999/1-12/WD/0 C xy 1 1\n219 NEI99_DOW_SO4   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO4  1999/1-12/WD/0 C xy 1 1\n220 NEI99_DOW_MSA   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MSA  1999/1-12/WD/0 C xy 1 1\n221 NEI99_DOW_BCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc BCPI 1999/1-12/WD/0 C xy 1 1\n222 NEI99_DOW_OCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc OCPI 1999/1-12/WD/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- EPA NEI2016 annual scale factors ---\n#\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n#\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#==============================================================================\n(((NEI2016_MONMEAN\n251 NEI2016_NOx_YRSCALE  2.341/2.213/2.083/1.989/1.879/1.768/1.651/1.539/1.448/1.407/1.345/1.282/1.224/1.135/1.000/0.943/0.895/0.840/0.785 - 2002-2020/1/1/0 C xy 1 1\n252 NEI2016_CO_YRSCALE   1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n253 NEI2016_NH3_YRSCALE  0.996/0.999/1.002/1.005/1.043/1.082/1.100/1.088/1.077/1.012/0.957/0.954/0.899/0.950/1.000/1.052/1.051/1.050/1.049 - 2002-2020/1/1/0 C xy 1 1\n254 NEI2016_VOC_YRSCALE  1.314/1.285/1.255/1.223/1.234/1.246/1.148/1.135/1.154/1.175/1.153/1.131/1.110/1.067/1.000/0.970/0.956/0.941/0.926 - 2002-2020/1/1/0 C xy 1 1\n255 NEI2016_SO2_YRSCALE  4.773/4.701/4.626/4.625/4.171/3.717/3.273/2.879/2.446/2.038/1.591/1.525/1.469/1.237/1.000/0.767/0.735/0.641/0.583 - 2002-2020/1/1/0 C xy 1 1\n256 NEI2016_PM25_YRSCALE 1.120/1.140/1.159/1.178/1.213/1.248/1.202/1.195/1.190/1.192/1.153/1.115/1.077/1.040/1.000/0.964/0.961/0.958/0.955 - 2002-2020/1/1/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- GFAS scale factors ---\n#==============================================================================\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#==============================================================================\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016), emit 35% of QFED\n# emissions above the PBL.\n#==============================================================================\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n#==============================================================================\n# --- CEDS vertical partitioning ---\n#==============================================================================\n(((CEDS_01x01\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDS_01x01\n\n#==============================================================================\n# --- DICE-Africa ---\n#==============================================================================\n(((DICE_Africa\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n320 DICE_CP_SF    0.20 - - - xy 1 1\n\n# Car emissions of OCPI and OCPO scale factor to address a factor of 7 overestimate\n# in car OC emissions that results from incorrect emission factors used in the original inventory\n330 DICE_CAR_OC_SF    0.14 - - - xy 1 1\n)))DICE_Africa\n\n#==============================================================================\n# --- Offline biogenic VOC scale factors ---\n#\n# Isoprene      : 1.5% mass yield SOAP, 1.5% mass yield SOAS\n# Monoterpenes  : 5.0% mass yield SOAP, 5.0% mass yield SOAS\n# Other terpenes: 5.0% mass yield SOAP, 5.0% mass yield SOAS\n#  --> Need to multiply by 1.133 to convert from carbon basis to mass basis\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n610 ISOPtoSOA 0.0170 - - - xy 1 1\n611 MONOtoSOA 0.0567 - - - xy 1 1\n612 OTHRtoSOA 0.0567 - - - xy 1 1\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt scale factors ---\n#\n# NOTES:\n# - Sea salt alkalinity and chloride values obtained from hcox_seasalt_mod.F90\n# - BrContent obtained from '--> Br- mass ratio' in SeaSalt extension above\n#==============================================================================\n(((OFFLINE_SEASALT\n615 SSAlkalinity 1.0     - - - xy 1 1\n616 SSChloride   0.5504  - - - xy 1 1\n617 BrContent    2.11e-3 - - - xy 1 1\n)))OFFLINE_SEASALT\n\n(((OFFLINE_DUST\n621 mfrac_DSTbin1    3.344e-4  - - - xy 1 1\n622 mfrac_DSTbin2    1.593e-3  - - - xy 1 1\n623 mfrac_DSTbin3    1.194e-2  - - - xy 1 1\n624 mfrac_DSTbin4    3.430e-2  - - - xy 1 1\n625 mfrac_DSTbin5    1.248e-1  - - - xy 1 1\n626 mfrac_DSTbin6    2.573e-1  - - - xy 1 1\n627 mfrac_DSTbin7    5.698e-1  - - - xy 1 1\n)))OFFLINE_DUST\n\n(((AFCID\n630 half_AFCID       0.5       - - - xy 1 1\n631 mfrac_bin1       6.944e-3  - - - xy 1 1\n632 mfrac_bin2       3.307e-2  - - - xy 1 1\n633 mfrac_bin3       2.478e-1  - - - xy 1 1\n634 mfrac_bin4       7.121e-1  - - - xy 1 1\n)))AFCID\n\n)))EMISSIONS\n\n#==============================================================================\n# Scale the CMIP6 values in pptv to ppbv\n#==============================================================================\n801 pptv2ppbv  0.001      - - - xy 1 1\n802 vv2ppbv    1000000000 - - - xy 1 1\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43.or.DICE_Africa\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43.or.DICE_Africa\n\n(((CEDS_01x01\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDS ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDS_01x01\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\n(((APEI\n1002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc                  MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n(((NEI2016_MONMEAN\n1007 CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc                      MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n1008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc       LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n1009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n\n(((AFCID\n1010 INDIA_MASK  $ROOT/MASKS/v2019-05/India_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  67/7/99/39\n)))AFCID\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.tagO3",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See hemco.readthedocs.io for more information.\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        ${RUNDIR_DATA_ROOT}/HEMCO\nLogfile:                     *\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     0\nWarnings:                    1\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       false\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       false\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> O3_PROD_LOSS           :       true     # 2010-2019\n    --> OLSON_LANDMAP          :       false    # 1985\n    --> YUAN_MODIS_LAI         :       false    # 2000-2020\n    --> OCEAN_O3_DRYDEP        :       true     # 1985\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- O3 production and loss rates ---\n#==============================================================================\n(((CHEMISTRY_INPUT\n(((O3_PROD_LOSS\n${RUNDIR_O3_PROD}\n${RUNDIR_O3_LOSS}\n)))O3_PROD_LOSS\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.TransportTracers",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for TransportTracers simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name               Spec              ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####  Rn222 emissions                                                    #####\n###############################################################################\nEmisRn_Soil          Rn222             100    -1  -1   2   kg/m2/s\n\n###############################################################################\n#####  Be emissions                                                       #####\n###############################################################################\nEmisBe7_Cosmic       Be7               100    -1  -1   3   kg/m2/s\nEmisBe7s_Cosmic      Be7s              100    -1  -1   3   kg/m2/s\nEmisBe10_Cosmic      Be10              100    -1  -1   3   kg/m2/s\nEmisBe10s_Cosmic     Be10s             100    -1  -1   3   kg/m2/s\n\n###############################################################################\n#####  Transport tracer emissions                                         #####\n###############################################################################\nEmisSF6              SF6                -1    -1  -1   2   kg/m2/s\nEmisCH3I             CH3I               -1    -1  -1   2   kg/m2/s\nEmisCO_25            CO_25              -1    -1  -1   2   kg/m2/s\nEmisCO_50            CO_50              -1    -1  -1   2   kg/m2/s\n\n#EOC"
  },
  {
    "path": "run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.carbon",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc\n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for carbon gases simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name               Spec  ExtNr  Cat Hier Dim  OutUnit  LongName\n\n###############################################################################\n#####  CH4 sources                                                        #####\n###############################################################################\nEmisCH4_Total         CH4     -1   -1   -1   2  kg/m2/s  CH4_emissions_from_all_sectors\nEmisCH4_Oil           CH4      0    1   -1   2  kg/m2/s  CH4_emissions_from_oil\nEmisCH4_Gas           CH4      0    2   -1   2  kg/m2/s  CH4_emissions_from_gas\nEmisCH4_Coal          CH4      0    3   -1   2  kg/m2/s  CH4_emissions_from_coal\nEmisCH4_Livestock     CH4      0    4   -1   2  kg/m2/s  CH4_emissions_from_livestock\nEmisCH4_Landfills     CH4      0    5   -1   2  kg/m2/s  CH4_emissions_from_landfills\nEmisCH4_Wastewater    CH4      0    6   -1   2  kg/m2/s  CH4_emissions_from_wastewater\nEmisCH4_Rice          CH4      0    7   -1   2  kg/m2/s  CH4_emissions_from_rice\nEmisCH4_OtherAnth     CH4      0    8   -1   2  kg/m2/s  CH4_emissions_from_other_anthropogenic_sources\nEmisCH4_BiomassBurn   CH4    111   -1   -1   2  kg/m2/s  CH4_emissions_from_biomass_burning\nEmisCH4_Wetlands      CH4      0   10   -1   2  kg/m2/s  CH4_emissions_from_wetlands\nEmisCH4_Seeps         CH4      0   11   -1   2  kg/m2/s  CH4_emissions_from_geological_seeps\nEmisCH4_Lakes         CH4      0   12   -1   2  kg/m2/s  CH4_emissions_from_lakes\nEmisCH4_Termites      CH4      0   13   -1   2  kg/m2/s  CH4_emissions_from_termites\nEmisCH4_SoilAbsorb    CH4      0   14   -1   2  kg/m2/s  CH4_emissions_from_soil_absorption\nEmisCH4_Reservoirs    CH4      0   15   -1   2  kg/m2/s  CH4_emissions_from_hydroelectric_reservoirs\n\n###############################################################################\n#####  CO sources                                                         #####\n###############################################################################\nEmisCO_Total          CO      -1   -1   -1   3  kg/m2/s  CO_emission_flux_from_all_sectors\nEmisCO_Aircraft       CO       0   20   -1   3  kg/m2/s  CO_emission_flux_from_aircraft\nEmisCO_Anthro         CO       0    1   -1   3  kg/m2/s  CO_emission_flux_from_anthropogenic\nEmisCO_BiomassBurn    CO     111   -1   -1   2  kg/m2/s  CO_emission_flux_from_biomass_burning\nEmisCO_Ship           CO       0   10   -1   2  kg/m2/s  CO_emission_flux_from_ships\n\n###############################################################################\n#####  CO2 sources                                                        #####\n###############################################################################\nEmisCO2_Total         CO2      0   -1   -1   3  kg/m2/s  CO2_total_emissions\nEmisCO2_FossilFuel    CO2      0    1   -1   2  kg/m2/s  CO2_anthropogenic_emissions\nEmisCO2_Ocean         CO2      0    2   -1   2  kg/m2/s  CO2_ocean_emissions\nEmisCO2_BalBiosph     CO2      0    3   -1   2  kg/m2/s  CO2_balanced_biosphere\nEmisCO2_NetTerrExch   CO2      0    5   -1   2  kg/m2/s  CO2_net_terrestrial_exchange\nEmisCO2_Ship          CO2      0    6   -1   2  kg/m2/s  CO2_ship_emissions\nEmisCO2_Aviation      CO2      0    7   -1   3  kg/m2/s  CO2_aviation_emissions\nEmisCO2_CO2SurfCorr   CO2      0    8   -1   2  kg/m2/s  CO2_surface_correction_for_CO_oxidation\nEmisCO2_BiomassBurn   CO2    111   -1   -1   2  kg/m2/s  CO2_biomass_burning_emissions_from_GFED4\n\n###############################################################################\n#####  OCS sources                                                        #####\n###############################################################################\nEmisOCS_Total         OCS      0   -1   -1   2  kg/m2/s  OCS_emission_flux_from_all_sectors\nEmisOCS_Anthro        OCS      0    1   -1   2  kg/m2/s  OCS_emission_flux_from_anthropogenic\nEmisOCS_BiomassBurn   OCS      0    2   -1   2  kg/m2/s  OCS_emission_flux_from_biomass_burning\nEmisOCS_MissingOcean  OCS      0    3   -1   2  kg/m2/s  OCS_emission_flux_from_missing_ocean\nEmisOCS_Ocean         OCS      0    4   -1   2  kg/m2/s  OCS_emission_flux_from_ocean\n"
  },
  {
    "path": "run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc\n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for fullchem simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n#  The INVENTORY DIAGNOSTICS (starting with \"Inv\")  are only needed for\n#  benchmark simulations, and can be left commented out for production runs.\n#\n#  NOTES FOR BIOMASS BURNING:\n#  1. For GFED extension,    set ExtNr = 111, Cat = -1, Hier = -1.\n#  2. For offline emissions, set ExtNr = 0,   Cat =  5, Hier = -1\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name             Spec   ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####   ACET emissions                                                    #####\n###############################################################################\nEmisACET_Total      ACET   -1     -1  -1   3   kg/m2/s  ACET_emission_flux_from_all_sectors\nEmisACET_BioBurn    ACET   111    -1  -1   2   kg/m2/s  ACET_emission_flux_from_biomass_burning\nEmisACET_Biogenic   ACET   0      4   -1   2   kg/m2/s  ACET_emission_flux_from_biogenic_sources\nEmisACET_Ocean      ACET   101    -1  -1   2   kg/m2/s  ACET_emission_flux_from_ocean\n\n###############################################################################\n#####  ACR emissions                                                      #####\n###############################################################################\nEmisACR_Total       ACR    -1     -1  -1   3   kg/m2/s  ACR_emission_flux_from_all_sectors\nEmisACR_BioBurn     ACR    111    -1  -1   2   kg/m2/s  ACR_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  ACTA emissions                                                     #####\n###############################################################################\nEmisACTA_Total      ACTA   -1     -1  -1   3   kg/m2/s  ACTA_emission_flux_from_all_sectors\nEmisACTA_BioBurn    ACTA   111    -1  -1   2   kg/m2/s  ACTA_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  ALD2 emissions                                                     #####\n###############################################################################\nEmisALD2_Total      ALD2   -1     -1  -1   3   kg/m2/s  ALD2_emission_flux_from_all_sectors\nEmisALD2_Anthro     ALD2   0      1   -1   3   kg/m2/s  ALD2_emission_flux_from_anthropogenic\nEmisALD2_BioBurn    ALD2   111    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_biomass_burning\nEmisALD2_Biogenic   ALD2   0      4   -1   2   kg/m2/s  ALD2_emission_flux_from_biogenic_sources\nEmisALD2_Ocean      ALD2   101    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_ocean\nEmisALD2_PlantDecay ALD2   0      3   -1   2   kg/m2/s  ALD2_emission_flux_from_decaying_plants\nEmisALD2_Ship       ALD2   0      10  -1   2   kg/m2/s  ALD2_emission_flux_from_ships\n\n###############################################################################\n#####  ALK4 emissions                                                     #####\n###############################################################################\nEmisALK4_Total     ALK4   -1     -1  -1   3   kg/m2/s  ALK4_emission_flux_from_all_sectors\nEmisALK4_Aircraft  ALK4   0      20  -1   3   kg/m2/s  ALK4_emission_flux_from_aircraft\nEmisALK4_Anthro    ALK4   0      1   -1   3   kg/m2/s  ALK4_emission_flux_from_anthropogenic\nEmisALK4_BioBurn   ALK4   111    -1  -1   2   kg/m2/s  ALK4_emission_flux_from_biomass_burning\nEmisALK4_Ship      ALK4   0      10  -1   2   kg/m2/s  ALK4_emission_flux_from_ships\n\n###############################################################################\n#####  ALK6 emissions                                                     #####\n###############################################################################\nEmisALK6_Total     ALK6   -1     -1  -1   3   kg/m2/s  ALK6_emission_flux_from_all_sectors\nEmisALK6_Anthro    ALK6   0      1   -1   3   kg/m2/s  ALK6_emission_flux_from_anthropogenic\nEmisALK6_Ship      ALK6   0      10  -1   2   kg/m2/s  ALK6_emission_flux_from_ships\n\n###############################################################################\n#####  BCPI and BCPO emissions                                            #####\n###############################################################################\nEmisBCPI_Total     BCPI   -1     -1  -1   3   kg/m2/s  BCPI_emission_flux_from_all_sectors\nEmisBCPI_Aircraft  BCPI   0      20  -1   3   kg/m2/s  BCPI_emission_flux_from_aircraft\nEmisBCPI_Anthro    BCPI   0      1   -1   3   kg/m2/s  BCPI_emission_flux_from_anthropogenic\nEmisBCPI_BioBurn   BCPI   111    -1  -1   2   kg/m2/s  BCPI_emission_flux_from_biomass_burning\nEmisBCPI_Ship      BCPI   0      10  -1   2   kg/m2/s  BCPI_emission_flux_from_ships\nEmisBCPO_Total     BCPO   -1     -1  -1   3   kg/m2/s  BCPO_emission_flux_from_all_sectors\nEmisBCPO_Anthro    BCPO   0      1   -1   3   kg/m2/s  BCPO_emission_flux_from_anthropogenic\nEmisBCPO_BioBurn   BCPO   111    -1  -1   2   kg/m2/s  BCPO_emission_flux_from_biomass_burning\nEmisBCPO_Ship      BCPO   0      10  -1   2   kg/m2/s  BCPO_emission_flux_from_ships\n\n###############################################################################\n#####  BENZ emissions                                                     #####\n###############################################################################\nEmisBENZ_Total     BENZ   -1     -1  -1   3   kg/m2/s  BENZ_emission_flux_from_all_sectors\nEmisBENZ_Anthro    BENZ   0      1   -1   3   kg/m2/s  BENZ_emission_flux_from_anthropogenic\nEmisBENZ_BioBurn   BENZ   111    -1  -1   2   kg/m2/s  BENZ_emission_flux_from_biomass_burning\nEmisBENZ_Ship      BENZ   0      10  -1   2   kg/m2/s  BENZ_emission_flux_from_ships\n\n###############################################################################\n#####  C2H2 emissions                                                    ######\n###############################################################################\nEmisC2H2_Total     C2H2   -1     -1  -1   3   kg/m2/s  C2H2_emission_flux_from_all_sectors\nEmisC2H2_Anthro    C2H2   0      1   -1   3   kg/m2/s  C2H2_emission_flux_from_anthropogenic\nEmisC2H2_BioBurn   C2H2   111    -1  -1   2   kg/m2/s  C2H2_emission_flux_from_biomass_burning\nEmisC2H2_Ship      C2H2   0      10  -1   2   kg/m2/s  C2H2_emission_flux_from_ships\n\n###############################################################################\n#####  C2H4 emissions                                                    ######\n###############################################################################\nEmisC2H4_Total     C2H4   -1     -1  -1   3   kg/m2/s  C2H4_emission_flux_from_all_sectors\nEmisC2H4_Anthro    C2H4   0      1   -1   3   kg/m2/s  C2H4_emission_flux_from_anthropogenic\nEmisC2H4_BioBurn   C2H4   111    -1  -1   2   kg/m2/s  C2H4_emission_flux_from_biomass_burning\nEmisC2H4_Biogenic  C2H4   0      4   -1   2   kg/m2/s  C2H4_emission_flux_from_biogenic_sources\nEmisC2H4_Ship      C2H4   0      10  -1   2   kg/m2/s  C2H4_emission_flux_from_ships\n\n###############################################################################\n#####  C2H6 emissions                                                    ######\n###############################################################################\nEmisC2H6_Total     C2H6   -1     -1  -1   3   kg/m2/s  C2H6_emission_flux_from_all_sectors\nEmisC2H6_Aircraft  C2H6   0      20  -1   3   kg/m2/s  C2H6_emission_flux_from_aircraft\nEmisC2H6_Anthro    C2H6   0      1   -1   3   kg/m2/s  C2H6_emission_flux_from_anthropogenic\nEmisC2H6_BioBurn   C2H6   111    -1  -1   2   kg/m2/s  C2H6_emission_flux_from_biomass_burning\nEmisC2H6_Ship      C2H6   0      10  -1   2   kg/m2/s  C2H6_emission_flux_from_ships\n\n###############################################################################\n#####  C3H8 emissions                                                     #####\n###############################################################################\nEmisC3H8_Total     C3H8   -1     -1  -1   3   kg/m2/s  C3H8_emission_flux_from_all_sectors\nEmisC3H8_Aircraft  C3H8   0      20  -1   3   kg/m2/s  C3H8_emission_flux_from_aircraft\nEmisC3H8_Anthro    C3H8   0      1   -1   3   kg/m2/s  C3H8_emission_flux_from_anthropogenic\nEmisC3H8_BioBurn   C3H8   111    -1  -1   2   kg/m2/s  C3H8_emission_flux_from_biomass_burning\nEmisC3H8_Ship      C3H8   0      10  -1   2   kg/m2/s  C3H8_emission_flux_from_ships\n\n###############################################################################\n#####  C4H6 emissions                                                     #####\n###############################################################################\nEmisC4H6_Total     C4H6   -1     -1  -1   3   kg/m2/s  C4H6_emission_flux_from_all_sectors\nEmisC4H6_BioBurn   C4H6   111    -1  -1   2   kg/m2/s  C4H6_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  CH2Br2 emissions                                                   #####\n###############################################################################\nEmisCH2Br2_Ocean   CH2Br2 0      1   -1   2   kg/m2/s  CH2Br2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2I2 emissions                                                   #####\n###############################################################################\nEmisCH2I2_Ocean    CH2I2  0     1    -1   2   kg/m2/s  CH2I2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2ICl emissions                                                   #####\n###############################################################################\nEmisCH2ICl_Ocean   CH2ICl 0     1    -1   2   kg/m2/s  CH2ICl_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2IBr emissions                                                   #####\n###############################################################################\nEmisCH2IBr_Ocean   CH2IBr 0     1    -1   2   kg/m2/s  CH2IBr_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2O emissions                                                     #####\n###############################################################################\nEmisCH2O_Total     CH2O   -1     -1  -1   3   kg/m2/s  CH2O_emission_flux_from_all_sectors\nEmisCH2O_Aircraft  CH2O   0      20  -1   3   kg/m2/s  CH2O_emission_flux_from_aircraft\nEmisCH2O_Anthro    CH2O   0      1   -1   3   kg/m2/s  CH2O_emission_flux_from_anthropogenic\nEmisCH2O_BioBurn   CH2O   111    -1  -1   2   kg/m2/s  CH2O_emission_flux_from_biomass_burning\nEmisCH2O_Ship      CH2O   0      10  -1   2   kg/m2/s  CH2O_emission_flux_from_ships\n\n###############################################################################\n#####  CH3I emissions                                                   #####\n###############################################################################\nEmisCH3I_Ocean     CH3I   0     1    -1   2   kg/m2/s  CH3I_emission_flux_from_ocean\n\n###############################################################################\n#####  CH4 emissions                                                      #####\n###############################################################################\n# Zero for now, so comment out\n#EmisCH4_Total      CH4    -1     -1  -1   3   kg/m2/s  CH4_emission_flux_from_all_sectors\n#EmisCH4_Anthro     CH4    0      1   -1   3   kg/m2/s  CH4_emission_flux_from_anthropogenic\n#EmisCH4_BioBurn    CH4    0      5   -1   2   kg/m2/s  CH4_emission_flux_from_biomass_burning\n#EmisCH4_Ship       CH4    0      10  -1   2   kg/m2/s  CH4_emission_flux_from_ships\n\n###############################################################################\n#####  CHBr3 emissions                                                    #####\n###############################################################################\nEmisCHBr3_Ocean    CHBr3  0      1   -1   2   kg/m2/s  CHBr3_emission_flux_from_ocean\n\n###############################################################################\n#####  CO emissions                                                       #####\n###############################################################################\nEmisCO_Total       CO     -1     -1  -1   3   kg/m2/s  CO_emission_flux_from_all_sectors\nEmisCO_Aircraft    CO     0      20  -1   3   kg/m2/s  CO_emission_flux_from_aircraft\nEmisCO_Anthro      CO     0      1   -1   3   kg/m2/s  CO_emission_flux_from_anthropogenic\nEmisCO_BioBurn     CO     111    -1  -1   2   kg/m2/s  CO_emission_flux_from_biomass_burning\nEmisCO_Ship        CO     0      10  -1   2   kg/m2/s  CO_emission_flux_from_ships\n\n###############################################################################\n#####  CO2 emissions                                                      #####\n###############################################################################\nEmisCO2_Total      CO2    -1     -1  -1   3   kg/m2/s  CO2_emission_flux_from_all_sectors\nEmisCO2_Anthro     CO2    0      1   -1   3   kg/m2/s  CO2_emission_flux_from_anthropogenic\nEmisCO2_BioBurn    CO2    0      5   -1   2   kg/m2/s  CO2_emission_flux_from_biomass_burning\nEmisCO2_Ship       CO2    0      10  -1   2   kg/m2/s  CO2_emission_flux_from_ships\n\n###############################################################################\n#####  DMS emissions                                                      #####\n###############################################################################\nEmisDMS_Ocean      DMS    101    -1  -1   2   kg/m2/s  DMS_emission_flux_from_ocean\n\n###############################################################################\n#####  Dust emissions                                                     #####\n###############################################################################\n# NOTE: Uncomment EmisDST_Total if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n#EmisDST_Total         TDST      -1     -1  -1   2   kg/m2/s  Total_dust_emission_flux_from_natural_sources\nEmisDSTbin1_Total     DSTbin1   -1     -1  -1   2   kg/m2/s  DSTbin1_emission_flux_from_all_sectors\nEmisDSTbin1_Anthro    DSTbin1   0      1   -1   2   kg/m2/s  DSTbin1_emission_flux_from_anthropogenic\nEmisDSTbin1_Natural   DSTbin1   0      3   -1   2   kg/m2/s  DSTbin1_emission_flux_from_natural_sources\nEmisDSTbin2_Total     DSTbin2   -1     -1  -1   2   kg/m2/s  DSTbin2_emission_flux_from_all_sectors\nEmisDSTbin2_Anthro    DSTbin2   0      1   -1   2   kg/m2/s  DSTbin2_emission_flux_from_anthropogenic\nEmisDSTbin2_Natural   DSTbin2   0      3   -1   2   kg/m2/s  DSTbin2_emission_flux_from_natural_sources\nEmisDSTbin3_Total     DSTbin3   -1     -1  -1   2   kg/m2/s  DSTbin3_emission_flux_from_all_sectors\nEmisDSTbin3_Anthro    DSTbin3   0      1   -1   2   kg/m2/s  DSTbin3_emission_flux_from_anthropogenic\nEmisDSTbin3_Natural   DSTbin3   0      3   -1   2   kg/m2/s  DSTbin3_emission_flux_from_natural_sources\nEmisDSTbin4_Total     DSTbin4   -1     -1  -1   2   kg/m2/s  DSTbin4_emission_flux_from_all_sectors\nEmisDSTbin4_Anthro    DSTbin4   0      1   -1   2   kg/m2/s  DSTbin4_emission_flux_from_anthropogenic\nEmisDSTbin4_Natural   DSTbin4   0      3   -1   2   kg/m2/s  DSTbin4_emission_flux_from_natural_sources\nEmisDSTbin5_Natural   DSTbin5   0      3   -1   2   kg/m2/s  DSTbin5_emission_flux_from_natural_sources\nEmisDSTbin6_Natural   DSTbin6   0      3   -1   2   kg/m2/s  DSTbin6_emission_flux_from_natural_sources\nEmisDSTbin7_Natural   DSTbin7   0      3   -1   2   kg/m2/s  DSTbin7_emission_flux_from_natural_sources\n\n###############################################################################\n#####  EOH emissions                                                      #####\n###############################################################################\nEmisEOH_Total      EOH    -1     -1  -1   3   kg/m2/s  EOH_emission_flux_from_all_sectors\nEmisEOH_Anthro     EOH    0      1   -1   3   kg/m2/s  EOH_emission_flux_from_anthropogenic\nEmisEOH_BioBurn    EOH    111    -1  -1   2   kg/m2/s  EOH_emission_flux_from_biomass_burning\nEmisEOH_Biogenic   EOH    0      4   -1   2   kg/m2/s  EOH_emission_flux_from_biogenic_sources\nEmisEOH_PlantDecay EOH    0      3   -1   2   kg/m2/s  EOH_emission_flux_from_decaying_plants\nEmisEOH_Ship       EOH    0      10  -1   2   kg/m2/s  EOH_emission_flux_from_ships\n\n###############################################################################\n#####  ETNO3 emissions                                                    #####\n###############################################################################\nEmisETNO3_Ocean    ETNO3  101    -1  -1   2   kg/m2/s  ETNO3_emission_flux_from_ocean\n\n###############################################################################\n#####  FURA emissions                                                      #####\n###############################################################################\nEmisFURA_Total     FURA    -1    -1  -1   3   kg/m2/s  FURA_emission_flux_from_all_sectors\nEmisFURA_BioBurn   FURA   111    -1  -1   2   kg/m2/s  FURA_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  GLYX emissions                                                     #####\n###############################################################################\nEmisGLYX_Total     GLYX   -1     -1  -1   3   kg/m2/s  GLYX_emission_flux_from_all_sectors\nEmisGLYX_BioBurn   GLYX   111    -1  -1   2   kg/m2/s  GLYX_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  H2O emissions                                                      #####\n###############################################################################\nEmisH2O_Aircraft   H2O    0      20  -1   3   kg/m2/s  H2O_emission_flux_from_aircraft\n\n###############################################################################\n#####  HCl emissions                                                      #####\n###############################################################################\nEmisHCl_Total      HCl    0      -1  -1   3   kg/m2/s  HCl_emission_flux_from_all_sectors\nEmisHCl_Anthro     HCl    0      1   -1   3   kg/m2/s  HCl_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  HCOOH sources                                                      #####\n###############################################################################\nEmisHCOOH_Total    HCOOH  -1     -1  -1   3   kg/m2/s  HCOOH_emission_flux_from_all_sectors\nEmisHCOOH_Anthro   HCOOH  0      1   -1   3   kg/m2/s  HCOOH_emission_flux_from_anthropogenic\nEmisHCOOH_BioBurn  HCOOH  111    -1  -1   2   kg/m2/s  HCOOH_emission_flux_from_biomass_burning\nEmisHCOOH_Ship     HCOOH  0      10  -1   2   kg/m2/s  HCOOH_emission_flux_from_ship\n\n###############################################################################\n#####  HNO3 emissions                                                     #####\n###############################################################################\nEmisHNO3_Ship      HNO3   102    -1  -1   2   kg/m2/s  HNO3_emission_flux_from_ships\n\n###############################################################################\n#####  HONO emissions                                                     #####\n###############################################################################\nEmisHONO_Aircraft  HONO   0      20  -1   3   kg/m2/s  HONO_emission_flux_from_aircraft\n\n###############################################################################\n#####  ISOP emissions                                                     #####\n###############################################################################\nEmisISOP_Total     ISOP   -1     -1  -1   3   kg/m2/s  ISOP_emission_flux_from_all_sectors\nEmisISOP_BioBurn   ISOP   111    -1  -1   2   kg/m2/s  ISOP_emission_flux_from_biomass_burning\nEmisISOP_Biogenic  ISOP   0      4   -1   2   kg/m2/s  ISOP_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  LIMO emissions                                                     #####\n###############################################################################\nEmisLIMO_Biogenic  LIMO   0      4   -1   2   kg/m2/s  LIMO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MACR emissions                                                     #####\n###############################################################################\nEmisMACR_Total     MACR   -1     -1  -1   3   kg/m2/s  MACR_emission_flux_from_all_sectors\nEmisMACR_Aircraft  MACR   0      20  -1   3   kg/m2/s  MACR_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  MEK emissions                                                      #####\n###############################################################################\nEmisMEK_Total      MEK    -1     -1  -1   3   kg/m2/s  MEK_emission_flux_from_all_sectors\nEmisMEK_Anthro     MEK    0      1   -1   3   kg/m2/s  MEK_emission_flux_from_anthropogenic\nEmisMEK_BioBurn    MEK    111    -1  -1   2   kg/m2/s  MEK_emission_flux_from_biomass_burning\nEmisMEK_Ship       MEK    0      10  -1   2   kg/m2/s  MEK_emission_flux_from_ships\n\n###############################################################################\n#####  MENO3 emissions                                                    #####\n###############################################################################\nEmisMENO3_Ocean    MENO3  101    -1  -1   2   kg/m2/s  MENO3_emission_flux_from_ocean\n\n###############################################################################\n#####  MGLY emissions                                                     #####\n###############################################################################\nEmisMGLY_Total     MGLY   -1     -1  -1   3   kg/m2/s  MGLY_emission_flux_from_all_sectors\nEmisMGLY_BioBurn   MGLY   111    -1  -1   2   kg/m2/s  MGLY_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  MOH emissions                                                      #####\n###############################################################################\nEmisMOH_Total      MOH    -1     -1  -1   3   kg/m2/s  MOH_emission_flux_from_all_sectors\nEmisMOH_Anthro     MOH    0      1   -1   3   kg/m2/s  MOH_emission_flux_from_anthropogenic\nEmisMOH_BioBurn    MOH    111    -1  -1   2   kg/m2/s  MOH_emission_flux_from_biomass_burning\nEmisMOH_Biogenic   MOH    0      4   -1   2   kg/m2/s  MOH_emission_flux_from_biogenic_sources\nEmisMOH_Ocean      MOH    101    -1  -1   2   kg/m2/s  MOH_emission_flux_from_ocean\nEmisMOH_Ship       MOH    0      10  -1   2   kg/m2/s  MOH_emission_flux_from_ships\n\n###############################################################################\n#####  MTPA emissions                                                     #####\n###############################################################################\nEmisMTPA_Total     MTPA   -1     -1  -1   3   kg/m2/s  MTPA_emission_flux_from_all_sectors\nEmisMTPA_BioBurn   MTPA   111    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biomass_burning\nEmisMTPA_Biogenic  MTPA   0      4   -1   2   kg/m2/s  MTPA_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPO emissions                                                     #####\n###############################################################################\nEmisMTPO_Total     MTPO   -1     -1  -1   3   kg/m2/s  MTPO_emission_flux_from_all_sectors\nEmisMTPO_Biogenic  MTPO   0      4   -1   2   kg/m2/s  MTPO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MVK emissions                                                      #####\n###############################################################################\nEmisMVK_Total     MVK    -1     -1  -1   3   kg/m2/s  MVK_emission_flux_from_all_sectors\nEmisMVK_BioBurn   MVK    111    -1  -1   2   kg/m2/s  MVK_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NAP emissions                                                      #####\n###############################################################################\nEmisNAP_Total      NAP    -1     -1  -1   3   kg/m2/s  NAP_emission_flux_from_all_sectors\nEmisNAP_Anthro     NAP    0      1   -1   3   kg/m2/s  NAP_emission_flux_from_anthropogenic\nEmisNAP_BioBurn    NAP    111    -1  -1   2   kg/m2/s  NAP_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NH3 emissions                                                      #####\n###############################################################################\nEmisNH3_Total      NH3    -1     -1  -1   3   kg/m2/s  NH3_emission_flux_from_all_sectors\nEmisNH3_Anthro     NH3    0      1   -1   3   kg/m2/s  NH3_emission_flux_from_anthropogenic\nEmisNH3_BioBurn    NH3    111    -1  -1   2   kg/m2/s  NH3_emission_flux_from_biomass_burning\nEmisNH3_Natural    NH3    0      3   -1   2   kg/m2/s  NH3_emission_flux_from_natural_sources\nEmisNH3_Seabirds   NH3    0      30  -1   2   kg/m2/s  NH3_emission_flux_from_seabirds\nEmisNH3_Ship       NH3    0      10  -1   2   kg/m2/s  NH3_emission_flux_from_ships\n\n###############################################################################\n#####  NO emissions                                                       #####\n#####                                                                     #####\n##### - Separate fertilizer NOx emissions are only available when the     #####\n#####   SoilNOx extension is enabled                                      #####\n###############################################################################\nEmisNO_Total       NO     -1     -1  -1   3   kg/m2/s  NO_emission_flux_from_all_sectors\nEmisNO_Aircraft    NO     0      20  -1   3   kg/m2/s  NO_emission_flux_from_aircraft\nEmisNO_Anthro      NO     0      1   -1   3   kg/m2/s  NO_emission_flux_from_anthropogenic\nEmisNO_BioBurn     NO     111    -1  -1   2   kg/m2/s  NO_emission_flux_from_biomass_burning\nEmisNO_Lightning   NO     103    -1  -1   3   kg/m2/s  NO_emission_flux_from_lightning\nEmisNO_Ship        NO     102    -1  -1   2   kg/m2/s  NO_emission_flux_from_ships\nEmisNO_Soil        NO     0      3   -1   2   kg/m2/s  NO_emission_flux_from_soil_including_fertilizer\n#EmisNO_Fert        -1     104    -1  -1   2   kg/m2/s  NO_emission_flux_from_fertilizer_only\n\n###############################################################################\n#####  NO2 emissions                                                      #####\n###############################################################################\nEmisNO2_Total      NO2    -1     -1  -1   3   kg/m2/s  NO2_emission_flux_from_all_sectors\nEmisNO2_Aircraft   NO2    0      20  -1   3   kg/m2/s  NO2_emission_flux_from_aircraft\nEmisNO2_Ship       NO2    102    -1  -1   2   kg/m2/s  NO2_emission_flux_from_ships\n\n###############################################################################\n#####  O3 emissions                                                       #####\n###############################################################################\nEmisO3_Ship        O3     102    -1  -1   2   kg/m2/s  O3_emission_flux_from_ships\n\n###############################################################################\n#####  OCPI and OCPO emissions                                            #####\n###############################################################################\nEmisOCPI_Total     OCPI   -1     -1  -1   3   kg/m2/s  OCPI_emission_flux_from_all_sectors\nEmisOCPI_Aircraft  OCPI   0      20  -1   3   kg/m2/s  OCPI_emission_flux_from_aircraft\nEmisOCPI_Anthro    OCPI   0      1   -1   3   kg/m2/s  OCPI_emission_flux_from_anthropogenic\nEmisOCPI_BioBurn   OCPI   111    -1  -1   2   kg/m2/s  OCPI_emission_flux_from_biomass_burning\nEmisOCPI_Ship      OCPI   0      10  -1   2   kg/m2/s  OCPI_emission_flux_from_ships\nEmisOCPO_Total     OCPO   -1     -1  -1   3   kg/m2/s  OCPO_emission_flux_from_all_sectors\nEmisOCPO_Anthro    OCPO   0      1   -1   3   kg/m2/s  OCPO_emission_flux_from_anthropogenic\nEmisOCPO_BioBurn   OCPO   111    -1  -1   2   kg/m2/s  OCPO_emission_flux_from_biomass_burning\nEmisOCPO_Ship      OCPO   0      10  -1   2   kg/m2/s  OCPO_emission_flux_from_ships\n\n###############################################################################\n#####  pFe emissions                                                      #####\n###############################################################################\nEmispFe_Total      pFe    -1     -1  -1   3   kg/m2/s  pFe_emission_flux_from_all_sectors\nEmispFe_Anthro     pFe    0      1   -1   3   kg/m2/s  pFe_emission_flux_from_anthropogenic\nEmispFe_Ship       pFe    0      10  -1   2   kg/m2/s  pFe_emission_flux_from_ships\n\n###############################################################################\n#####  PHEN emissions                                                      #####\n###############################################################################\nEmisPHEN_Total     PHEN    -1    -1  -1   3   kg/m2/s  PHEN_emission_flux_from_all_sectors\nEmisPHEN_BioBurn   PHEN   111    -1  -1   2   kg/m2/s  PHEN_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  POG1 and POG2 emissions                                            #####\n###############################################################################\nEmisPOG1_Total     POG1   -1     -1  -1   3   kg/m2/s  POG1_emission_flux_from_all_sectors\nEmisPOG1_Anthro    POG1   0      1   -1   3   kg/m2/s  POG1_emission_flux_from_anthropogenic\nEmisPOG1_BioBurn   POG1   111    -1  -1   2   kg/m2/s  POG1_emission_flux_from_GFED_inventory\nEmisPOG2_Total     POG2   -1     -1  -1   3   kg/m2/s  POG2_emission_flux_from_all_sectors\nEmisPOG2_Anthro    POG2   0      1   -1   3   kg/m2/s  POG2_emission_flux_from_anthropogenic\nEmisPOG2_BioBurn   POG2   111    -1  -1   2   kg/m2/s  POG2_emission_flux_from_GFED_inventory\n\n###############################################################################\n#####  PRPE emissions                                                     #####\n###############################################################################\nEmisPRPE_Total     PRPE   -1     -1  -1   3   kg/m2/s  PRPE_emission_flux_from_all_sectors\nEmisPRPE_Aircraft  PRPE   0      20  -1   3   kg/m2/s  PRPE_emission_flux_from_aircraft\nEmisPRPE_Anthro    PRPE   0      1   -1   3   kg/m2/s  PRPE_emission_flux_from_anthropogenic\nEmisPRPE_BioBurn   PRPE   111    -1  -1   2   kg/m2/s  PRPE_emission_flux_from_biomass_burning\nEmisPRPE_Biogenic  PRPE   0      4   -1   2   kg/m2/s  PRPE_emission_flux_from_biogenic_sources\nEmisPRPE_Ship      PRPE   0      10  -1   2   kg/m2/s  PRPE_emission_flux_from_ships\n\n###############################################################################\n#####  RCHO emissions                                                     #####\n###############################################################################\nEmisRCHO_Total     RCHO   -1     -1  -1   3   kg/m2/s  RCHO_emission_flux_from_all_sectors\nEmisRCHO_Aircraft  RCHO   0      20  -1   3   kg/m2/s  RCHO_emission_flux_from_aircraft\nEmisRCHO_BioBurn   RCHO   111    -1  -1   2   kg/m2/s  RCHO_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  SESQ emissions                                                     #####\n###############################################################################\n# SESQ is not an active species in GEOS-Chem; disable for now\n#EmisSESQ_Biogenic  SESQ   0      4   -1   2   kg/m2/s  SESQ_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  Sea salt emissions                                                 #####\n###############################################################################\nEmisSALA_Natural     SALA  0      3   -1   2   kg/m2/s  SALA_emission_flux_from_natural_sources\nEmisBrSALA_Natural BrSALA  0      3   -1   2   kg/m2/s  BrSALA_emission_flux_from_natural_sources\nEmisSALAAL_Natural SALAAL  0      3   -1   2   kg/m2/s  SALAAL_emission_flux_from_natural_sources\nEmisSALACL_Natural SALACL  0      3   -1   2   kg/m2/s  SALACL_emission_flux_from_natural_sources\nEmisSALC_Natural     SALC  0      3   -1   2   kg/m2/s  SALC_emission_flux_from_natural_sources\nEmisBrSALC_Natural BrSALC  0      3   -1   2   kg/m2/s  BrSALC_emission_flux_from_natural_sources\nEmisSALCAL_Natural SALCAL  0      3   -1   2   kg/m2/s  SALCAL_emission_flux_from_natural_sources\nEmisSALCCL_Natural SALCCL  0      3   -1   2   kg/m2/s  SALCCL_emission_flux_from_natural_sources\n\n###############################################################################\n#####  SO2 emissions                                                      #####\n###############################################################################\nEmisSO2_Total      SO2    -1     -1  -1   3   kg/m2/s  SO2_emission_flux_from_all_sectors\nEmisSO2_Aircraft   SO2    0      20  -1   3   kg/m2/s  SO2_emission_flux_from_aircraft\nEmisSO2_Anthro     SO2    0      1   -1   3   kg/m2/s  SO2_emission_flux_from_anthropogenic\nEmisSO2_BioBurn    SO2    111    -1  -1   2   kg/m2/s  SO2_emission_flux_from_biomass_burning\nEmisSO2_VolcErupt  SO2    117    51  -1   3   kg/m2/s  SO2_emission_flux_from_eruptive_volcano\nEmisSO2_VolcDegas  SO2    117    52  -1   3   kg/m2/s  SO2_emission_flux_from_noneruptive_volcano\nEmisSO2_Ship       SO2    0      10  -1   2   kg/m2/s  SO2_emission_flux_from_ships\n\n###############################################################################\n#####  SO4 emissions                                                      #####\n###############################################################################\nEmisSO4_Total      SO4    -1     -1  -1   3   kg/m2/s  SO4_emission_flux_from_all_sectors\nEmisSO4_Aircraft   SO4    0      20  -1   3   kg/m2/s  SO4_emission_flux_from_aircraft\nEmisSO4_Anthro     SO4    0      1   -1   3   kg/m2/s  SO4_emission_flux_from_anthropogenic\nEmisSO4_Ship       SO4    0      10  -1   2   kg/m2/s  SO4_emission_flux_from_ship\n\n###############################################################################\n#####  SOAP sources                                                       #####\n###############################################################################\nEmisSOAP_Total     SOAP   -1     -1  -1   3   kg/m2/s  SOAP_emission_flux_from_all_sectors\nEmisSOAP_Aircraft  SOAP   0      20  -1   3   kg/m2/s  SOAP_emission_flux_from_aircraft\nEmisSOAP_Anthro    SOAP   0      1   -1   3   kg/m2/s  SOAP_emission_flux_from_anthropogenic\nEmisSOAP_Biogenic  SOAP   0      4   -1   2   kg/m2/s  SOAP_emission_flux_from_biogenic_sources\nEmisSOAP_BioBurn   SOAP   111    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biomass_burning\nEmisSOAP_Ship      SOAP   0      10  -1   2   kg/m2/s  SOAP_emission_flux_from_ships\n\n###############################################################################\n#####  SOAS sources                                                       #####\n###############################################################################\nEmisSOAS_Biogenic  SOAS   0      4   -1   2   kg/m2/s  SOAS_emission_flux_from_biogenic_sources\n\n##############################################################################\n#####  STYR emissions                                                     #####\n###############################################################################\nEmisSTYR_Total     STYR   -1     -1  -1   3   kg/m2/s  STYR_emission_flux_from_all_sectors\nEmisSTYR_BioBurn   STYR   111    -1  -1   2   kg/m2/s  STYR_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  TMB emissions                                                      #####\n###############################################################################\nEmisTMB_Total      TMB    -1     -1  -1   3   kg/m2/s  TMB_emission_flux_from_all_sectors\nEmisTMB_Anthro     TMB    0      1   -1   3   kg/m2/s  TMB_emission_flux_from_anthropogenic\nEmisTMB_Ship       TMB    0      10  -1   2   kg/m2/s  TMB_emission_flux_from_ships\n\n###############################################################################\n#####  TOLU emissions                                                     #####\n###############################################################################\nEmisTOLU_Total     TOLU   -1     -1  -1   3   kg/m2/s  TOLU_emission_flux_from_all_sectors\nEmisTOLU_Anthro    TOLU   0      1   -1   3   kg/m2/s  TOLU_emission_flux_from_anthropogenic\nEmisTOLU_BioBurn   TOLU   111    -1  -1   2   kg/m2/s  TOLU_emission_flux_from_biomass_burning\nEmisTOLU_Ship      TOLU   0      10  -1   2   kg/m2/s  TOLU_emission_flux_from_ships\n\n###############################################################################\n#####  XYLE emissions                                                     #####\n###############################################################################\nEmisXYLE_Total     XYLE   -1     -1  -1   3   kg/m2/s  XYLE_emission_flux_from_all_sectors\nEmisXYLE_Anthro    XYLE   0      1   -1   3   kg/m2/s  XYLE_emission_flux_from_anthropogenic\nEmisXYLE_BioBurn   XYLE   111    -1  -1   2   kg/m2/s  XYLE_emission_flux_from_biomass_burning\nEmisXYLE_Ship      XYLE   0      10  -1   2   kg/m2/s  XYLE_emission_flux_from_ships\n\n###############################################################################\n#####  Additional diagnostics saved out via HEMCO extensions              #####\n###############################################################################\n\n#=============================\n# LIGHTNOX extension\n#=============================\nHcoLightningFlashRate_Total     -1 103 -1 -1 2 flashes/min/km2 Total_lightning_flash_rate\nHcoLightningFlashRate_IntraCld  -1 103 -1 -1 2 flashes/min/km2 Intra-cloud_lightning_flash_rate\nHcoLightningFlashRate_CldGround -1 103 -1 -1 2 flashes/min/km2 Cloud-ground_lightning_flash_rate\nHcoConvectiveCloudTopHeight     -1 103 -1 -1 2 level           Convective_cloud_top_height\n\n###############################################################################\n#####  INVENTORY DIAGNOSTICS, needed for benchmarking simulations only    #####\n#####  Listed in same order as HEMCO_Config.rc                            #####\n#####  (You can comment these out for production runs, to save memory)    #####\n###############################################################################\n\n#=============================\n# CEDS\n#=============================\n#InvCEDS_ALD2         ALD2   0    1   5   3   kg/m2/s  ALD2_emission_flux_from_CEDS_inventory\n#InvCEDS_ALK4         ALK4   0    1   5   3   kg/m2/s  ALK4_emission_flux_from_CEDS_inventory\n#InvCEDS_ALK6         ALK6   0    1   5   3   kg/m2/s  ALK6_emission_flux_from_CEDS_inventory\n#InvCEDS_BCPI         BCPI   0    1   5   3   kg/m2/s  BCPI_emission_flux_from_CEDS_inventory\n#InvCEDS_BCPO         BCPO   0    1   5   3   kg/m2/s  BCPO_emission_flux_from_CEDS_inventory\n#InvCEDS_BENZ         BENZ   0    1   5   3   kg/m2/s  BENZ_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H2         C2H2   0    1   5   3   kg/m2/s  C2H2_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H4         C2H4   0    1   5   3   kg/m2/s  C2H4_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H6         C2H6   0    1   5   3   kg/m2/s  C2H6_emission_flux_from_CEDS_inventory\n#InvCEDS_C3H8         C3H8   0    1   5   3   kg/m2/s  C3H8_emission_flux_from_CEDS_inventory\n#InvCEDS_CH2O         CH2O   0    1   5   3   kg/m2/s  CH2O_emission_flux_from_CEDS_inventory\n#InvCEDS_CO           CO     0    1   5   3   kg/m2/s  CO_emission_flux_from_CEDS_inventory\n#InvCEDS_MOH          MOH    0    1   5   3   kg/m2/s  MOH_emission_flux_from_CEDS_inventory\n#InvCEDS_EOH          EOH    0    1   5   3   kg/m2/s  EOH_emission_flux_from_CEDS_inventory\n#InvCEDS_ROH          ROH    0    1   5   3   kg/m2/s  ROH_emission_flux_from_CEDS_inventory\n#InvCEDS_HCOOH        HCOOH  0    1   5   3   kg/m2/s  HCOOH_emission_flux_from_CEDS_inventory\n#InvCEDS_MEK          MEK    0    1   5   3   kg/m2/s  MEK_emission_flux_from_CEDS_inventory\n#InvCEDS_NH3          NH3    0    1   5   3   kg/m2/s  NH3_emission_flux_from_CEDS_inventory\n#InvCEDS_NO           NO     0    1   5   3   kg/m2/s  NO_emission_flux_from_CEDS_inventory\n#InvCEDS_OCPI         OCPI   0    1   5   3   kg/m2/s  OCPI_emission_flux_from_CEDS_inventory\n#InvCEDS_OCPO         OCPO   0    1   5   3   kg/m2/s  OCPO_emission_flux_from_CEDS_inventory\n#InvCEDS_pFe          pFe    0    1   5   3   kg/m2/s  pFe_emission_flux_from_CEDS_inventory\n#InvCEDS_POG1         POG1   0    1   5   3   kg/m2/s  POG1_emission_flux_from_CEDS_inventory\n#InvCEDS_POG2         POG2   0    1   5   3   kg/m2/s  POG2_emission_flux_from_CEDS_inventory\n#InvCEDS_PRPE         PRPE   0    1   5   3   kg/m2/s  PRPE_emission_flux_from_CEDS_inventory\n#InvCEDS_SO2          SO2    0    1   5   3   kg/m2/s  SO2_emission_flux_from_CEDS_inventory\n#InvCEDS_SO4          SO4    0    1   5   3   kg/m2/s  SO4_emission_flux_from_CEDS_inventory\n#InvCEDS_SOAP         SOAP   0    1   5   3   kg/m2/s  SOAP_emission_flux_from_CEDS_inventory\n#InvCEDS_TMB          TMB    0    1   5   3   kg/m2/s  TMB_emission_flux_from_CEDS_inventory\n#InvCEDS_TOLU         TOLU   0    1   5   3   kg/m2/s  TOLU_emission_flux_from_CEDS_inventory\n#InvCEDS_XYLE         XYLE   0    1   5   3   kg/m2/s  XYLE_emission_flux_from_CEDS_inventory\n\n#=============================\n# GEIA_NH3\n#=============================\n#InvGEIAnatural_NH3   NH3    0    3   1   2   kg/m2/s  NH3_emission_flux_from_GEIA_natural_source\n\n#=============================\n# Seabirds\n#=============================\n#InvSEABIRDS_NH3      NH3    0    30  1   2   kg/m2/s  NH3_emission_flux_from_arctic_seabirds\n\n#=============================\n# C2H62010\n#=============================\n#InvC2H62010_C2H6     C2H6   0    1   100 2   kg/m2/s  C2H6_from_C2H62010_anthropogenic_inventory\n\n#=============================\n# XIAO_C3H8\n#=============================\n#InvXIAO_C3H8         C3H8   0    1   10  2   kg/m2/s  C3H8_from_XIAO_anthropogenic_inventory\n\n#=============================\n# LIANG_BROMOCARB\n#=============================\n#InvLIANG_CH2Br2      CH2Br2 0    1   1   2   kg/m2/s  CH2Br2_emission_flux_from_LIANG_BROMOCARB_inventory\n#InvLIANG_CHBr3       CHBr3  0    1   1   2   kg/m2/s  CHBr3_emission_flux_from_LIANG_BROMOCARB_inventory\n\n#=============================\n# ORDONEZ_IODOCARB\n#=============================\n#InvORDONEZ_CH2I2     CH2I2  0    1   1   2   kg/m2/s  CH2I2_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH2ICl    CH2ICl 0    1   1   2   kg/m2/s  CH2ICl_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH2IBr    CH2IBr 0    1   1   2   kg/m2/s  CH2IBr_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH3I      CH3I   0    1   1   2   kg/m2/s  CH3I_emission_flux_from_ORDONEZ_IODOCARB_inventory\n\n#=============================\n# GT_Chlorine\n#=============================\n#InvGTChlorine_HCl    HCl    0    1   1   2   kg/m2/s  HCl_emission_flux_from_GT_Chlorine_inventory\n\n#=============================\n# CEDS_SHIP\n#=============================\n#InvCEDSship_ALD2     ALD2   0    10  5   2   kg/m2/s  ALD2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_ALK4     ALK4   0    10  5   2   kg/m2/s  ALK4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_ALK6     ALK6   0    10  5   2   kg/m2/s  ALK4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BCPI     BCPI   0    10  5   2   kg/m2/s  BCPI_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BCPO     BCPO   0    10  5   2   kg/m2/s  BCPO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BENZ     BENZ   0    10  5   2   kg/m2/s  BENZ_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H2     C2H2   0    10  5   2   kg/m2/s  C2H2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H4     C2H4   0    10  5   2   kg/m2/s  C2H4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H6     C2H6   0    10  5   2   kg/m2/s  C2H6_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C3H8     C3H8   0    10  5   2   kg/m2/s  C3H8_emission_flux_from_CEDSship_inventory\n#InvCEDSship_CH2O     CH2O   0    10  5   2   kg/m2/s  CH2O_emission_flux_from_CEDSship_inventory\n#InvCEDSship_CO       CO     0    10  5   2   kg/m2/s  CO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_EOH      EOH    0    10  5   2   kg/m2/s  EOH_emission_flux_from_CEDSship_inventory\n#InvCEDSship_HCOOH    HCOOH  0    10  5   2   kg/m2/s  HCOOH_emission_flux_from_CEDSship_inventory\n#InvCEDSship_MEK      MEK    0    10  5   2   kg/m2/s  MEK_emission_flux_from_CEDSship_inventory\n#InvCEDSship_NH3      NH3    0    10  5   2   kg/m2/s  NH3_emission_flux_from_CEDSship_inventory\n#InvCEDSship_pFe      pFe    0    10  5   2   kg/m2/s  pFe_emission_flux_from_CEDSship_inventory\n#InvCEDSship_PRPE     PRPE   0    10  5   2   kg/m2/s  PRPE_emission_flux_from_CEDSship_inventory\n#InvCEDSship_OCPI     OCPI   0    10  5   2   kg/m2/s  OCPI_emission_flux_from_CEDSship_inventory\n#InvCEDSship_OCPO     OCPO   0    10  5   2   kg/m2/s  OCPO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SO2      SO2    0    10  5   2   kg/m2/s  SO2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SO4      SO4    0    10  5   2   kg/m2/s  SO4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SOAP     SOAP   0    10  5   2   kg/m2/s  SOAP_emission_flux_from_CEDSship_inventory\n#InvCEDSship_TMB      TMB    0    10  5   2   kg/m2/s  TMB_emission_flux_from_CEDSship_inventory\n#InvCEDSship_TOLU     TOLU   0    10  5   2   kg/m2/s  TOLU_emission_flux_from_CEDSship_inventory\n#InvCEDSship_XYLE     XYLE   0    10  5   2   kg/m2/s  XYLE_emission_flux_from_CEDSship_inventory\n\n#=============================\n# AEIC\n#=============================\n#InvAEIC_ACET         ACET   0    20  1   3   kg/m2/s  ACET_emission_flux_from_AEIC_inventory\n#InvAEIC_ALD2         ALD2   0    20  1   3   kg/m2/s  ALD2_emission_flux_from_AEIC_inventory\n#InvAEIC_ALK4         ALK4   0    20  1   3   kg/m2/s  ALK4_emission_flux_from_AEIC_inventory\n#InvAEIC_BCPI         BCPI   0    20  1   3   kg/m2/s  BCPI_emission_flux_from_AEIC_inventory\n#InvAEIC_C2H6         C2H6   0    20  1   3   kg/m2/s  C2H6_emission_flux_from_AEIC_inventory\n#InvAEIC_C3H8         C3H8   0    20  1   3   kg/m2/s  C3H8_emission_flux_from_AEIC_inventory\n#InvAEIC_CH2O         CH2O   0    20  1   3   kg/m2/s  CH2O_emission_flux_from_AEIC_inventory\n#InvAEIC_CO           CO     0    20  1   3   kg/m2/s  CO_emission_flux_from_AEIC_inventory\n#InvAEIC_HONO         HONO   0    20  1   3   kg/m2/s  HONO_emission_flux_from_AEIC_inventory\n#InvAEIC_MACR         MACR   0    20  1   3   kg/m2/s  MACR_emission_flux_from_AEIC_inventory\n#InvAEIC_NO           NO     0    20  1   3   kg/m2/s  NO_emission_flux_from_AEIC_inventory\n#InvAEIC_NO2          NO2    0    20  1   3   kg/m2/s  NO2_emission_flux_from_AEIC_inventory\n#InvAEIC_OCPI         OCPI   0    20  1   3   kg/m2/s  OCPI_emission_flux_from_AEIC_inventory\n#InvAEIC_PRPE         PRPE   0    20  1   3   kg/m2/s  PRPE_emission_flux_from_AEIC_inventory\n#InvAEIC_RCHO         RCHO   0    20  1   3   kg/m2/s  RCHO_emission_flux_from_AEIC_inventory\n#InvAEIC_SO2          SO2    0    20  1   3   kg/m2/s  SO2_emission_flux_from_AEIC_inventory\n#InvAEIC_SO4          SO4    0    20  1   3   kg/m2/s  SO4_emission_flux_from_AEIC_inventory\n#InvAEIC_SOAP         SOAP   0    20  1   3   kg/m2/s  SOAP_emission_flux_from_AEIC_inventory\n\n#=============================\n# Decaying plants\n#=============================\n#InvPLANTDECAY_ALD2   ALD2   0    3   1   2   kg/m2/s  ALD2_emission_flux_from_PLANTDECAY_inventory\n#InvPLANTDECAY_EOH    EOH    0    3   1   2   kg/m2/s  EOH_emission_flux_from_PLANTDECAY_inventory\n\n#=============================\n# AFCID emissions\n#=============================\n#InvAFCID_DST1        DST1   0    1  -1   2   kg/m2/s  DST1_emission_flux_from_AFCID_inventory\n\n#=============================\n# Seaflux extension\n#=============================\n#InvSeaFlux_ACET      ACET   101  -1  -1  2   kg/m2/s  ACET_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_ALD2      ALD2   101  -1  -1  2   kg/m2/s  ALD2_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_DMS       DMS    101  -1  -1  2   kg/m2/s  DMS_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_ETNO3     ETNO3  101  -1  -1  2   kg/m2/s  ETNO3_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_MENO3     MENO3  101  -1  -1  2   kg/m2/s  MENO3_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_MOH       MOH    101  -1  -1  2   kg/m2/s  MOH_emission_flux_from_SeaFlux_extension\n\n#=============================\n# PARANOX extension\n#=============================\n#InvPARANOX_HNO3      HNO3   102  -1  -1  2   kg/m2/s  HNO3_emission_flux_from_PARANOX_extension\n#InvPARANOX_NO        NO     102  -1  -1  2   kg/m2/s  NO_emission_flux_from_PARANOX_extension\n#InvPARANOX_NO2       NO2    102  -1  -1  2   kg/m2/s  NO2_emission_flux_from_PARANOX_extension\n#InvPARANOX_O3        O3     102  -1  -1  2   kg/m2/s  O3_emission_flux_from_PARANOX_extension\n\n#=============================\n# LIGHTNOX extension\n#=============================\n#InvLIGHTNOX_NO       NO     103  -1  -1  3   kg/m2/s  NO_emission_flux_from_lightning_extension\n\n#=============================\n# SOILNOX extension\n#=============================\n#InvSOILNOX_NO        NO     104  -1  -1  2   kg/m2/s  NO_emission_flux_from_SOINOX_extension_including_soil_and_fertilizer_emissions\n\n#=============================\n# DustL23M (dust) Extension\n#=============================\n# NOTE: Uncomment InvDustL23M_TDST if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n##InvDustL23M_TDST            TDST      125  -1  -1  2   kg/m2/s  Total_dust_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin1         DSTbin1   125  -1  -1  2   kg/m2/s  DSTbin1_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin2         DSTbin2   125  -1  -1  2   kg/m2/s  DSTbin2_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin3         DSTbin3   125  -1  -1  2   kg/m2/s  DSTbin3_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin4         DSTbin4   125  -1  -1  2   kg/m2/s  DSTbin4_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin5         DSTbin5   125  -1  -1  2   kg/m2/s  DSTbin5_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin6         DSTbin6   125  -1  -1  2   kg/m2/s  DSTbin6_emission_flux_from_DustL23M_extension\n#InvDustL23M_DSTbin7         DSTbin7   125  -1  -1  2   kg/m2/s  DSTbin7_emission_flux_from_DustL23M_extension\n\n#===================================\n# DEAD (dust) Extension, for TOMAS\n#===================================\n#InvDEAD_DST1         DST1   131  -1  -1  2   kg/m2/s  DST1_emission_flux_from_DEAD_extension\n#InvDEAD_DST2         DST2   131  -1  -1  2   kg/m2/s  DST2_emission_flux_from_DEAD_extension\n#InvDEAD_DST3         DST3   131  -1  -1  2   kg/m2/s  DST3_emission_flux_from_DEAD_extension\n#InvDEAD_DST4         DST4   131  -1  -1  2   kg/m2/s  DST4_emission_flux_from_DEAD_extension\n#InvDEAD_DST4         DST4   105  -1  -1  2   kg/m2/s  DST4_emission_flux_from_DEAD_extension\n\n#=============================\n# SeaSalt extension\n#=============================\n#InvSeaSalt_BrSALA    BrSALA 107  -1  -1  2   kg/m2/s  BrSALA_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_BrSALC    BrSALC 107  -1  -1  2   kg/m2/s  BrSALC_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALA      SALA   107  -1  -1  2   kg/m2/s  SALA_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALC      SALC   107  -1  -1  2   kg/m2/s  SALC_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALAAL    SALAAL 107  -1  -1  2   kg/m2/s  SALAAL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALACL    SALACL 107  -1  -1  2   kg/m2/s  SALACL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALCAL    SALCAL 107  -1  -1  2   kg/m2/s  SALAAL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALCCL    SALCCL 107  -1  -1  2   kg/m2/s  SALCCL_emission_flux_from_SeaSalt_extension\n\n#=============================\n# MEGAN Extension\n#=============================\n#InvMEGAN_ALD2        ALD2   108   -1 -1  2   kg/m2/s  ALD2_biogenic_emission_flux_from_MEGAN_extension\n# C2H4 is not an active species in GEOS-Chem; disable for now\n##InvMEGAN_C2H4        C2H4   108   -1 -1  2   kg/m2/s  C2H4_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_EOH         EOH    108   -1 -1  2   kg/m2/s  EOH_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ISOP        ISOP   108   -1 -1  2   kg/m2/s  ISOP_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_LIMO        LIMO   108   -1 -1  2   kg/m2/s  LIMO_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MTPA        MTPA   108   -1 -1  2   kg/m2/s  MTPA_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MTPO        MTPO   108   -1 -1  2   kg/m2/s  MTPO_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_PRPE        PRPE   108   -1 -1  2   kg/m2/s  PRPE_biogenic_emission_flux_from_MEGAN_extension\n# SESQ is not an active species in GEOS-Chem; disable for now\n##InvMEGAN_SESQ        SESQ   108   -1 -1  2   kg/m2/s  SESQ_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_SOAP        SOAP   108   -1 -1  2   kg/m2/s  SOAP_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_SOAS        SOAS   108   -1 -1  2   kg/m2/s  SOAS_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET        ACET   108   -1 -1  2   kg/m2/s  ACET_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_MONO   -1     108   -1 -1  2   kg/m2/s  Acetone_from_monoterpenes_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_MBOX   -1     108   -1 -1  2   kg/m2/s  Acetone_from_methyl_butenol_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_DIRECT -1     108   -1 -1  2   kg/m2/s  Direct_acetone_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MOH          MOH    108  -1  -1  2   kg/m2/s  Methanol_emission_flux_from_MEGAN_extension\n#InvMEGAN_APIN         -1     108  -1  -1  2   kg/m2/s  Alpha_pinene_emission_flux_from_MEGAN_extension\n#InvMEGAN_BPIN         -1     108  -1  -1  2   kg/m2/s  Beta_pinene_acid_emission_flux_from_MEGAN_extension\n#InvMEGAN_SABI         -1     108  -1  -1  2   kg/m2/s  Sabinene_emission_flux_from_MEGAN_extension\n#InvMEGAN_MYRC         -1     108  -1  -1  2   kg/m2/s  Mycrene_emission_flux_from_MEGAN_extension\n#InvMEGAN_CARE         -1     108  -1  -1  2   kg/m2/s  3_Carene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OCIM         -1     108  -1  -1  2   kg/m2/s  Ocimene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OMON         -1     108  -1  -1  2   kg/m2/s  Other_monoterpene_emission_flux_from_MEGAN_extension\n#InvMEGAN_MONX         -1     108  -1  -1  2   kg/m2/s  Total_monoterpene_emission_flux_from_MEGAN_extension\n#InvMEGAN_FARN         -1     108  -1  -1  2   kg/m2/s  alpha_Farnesene_emission_flux_from_MEGAN_extension\n#InvMEGAN_BCAR         -1     108  -1  -1  2   kg/m2/s  beta_caryophyllene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OSQT         -1     108  -1  -1  2   kg/m2/s  Other_sesquiterpenes_emission_flux_from_MEGAN_extension\n#InvMEGAN_MBOX         -1     108  -1  -1  2   kg/m2/s  Methyl_butenol_emission_flux_from_MEGAN_extension\n#InvMEGAN_FAXX         -1     108  -1  -1  2   kg/m2/s  Formic_acid_emission_flux_from_MEGAN_extension\n#InvMEGAN_AAXX         -1     108  -1  -1  2   kg/m2/s  Acetic_acid_emission_flux_from_MEGAN_extension\n\n#=============================\n# GFED Extension\n#=============================\n#InvGFED_ACET         ACET   111  -1  -1  2   kg/m2/s  ACET_emission_flux_from_GFED_extension\n#InvGFED_ACR          ACR    111  -1  -1  2   kg/m2/s  ACR_emission_flux_from_GFED_extension\n#InvGFED_ACTA         ACTA   111  -1  -1  2   kg/m2/s  ACTA_emission_flux_from_GFED_extension\n#InvGFED_ALD2         ALD2   111  -1  -1  2   kg/m2/s  ALD2_emission_flux_from_GFED_extension\n#InvGFED_ALK4         ALK4   111  -1  -1  2   kg/m2/s  ALK4_emission_flux_from_GFED_extension\n#InvGFED_BCPI         BCPI   111  -1  -1  2   kg/m2/s  BCPI_emission_flux_from_GFED_extension\n#InvGFED_BCPO         BCPO   111  -1  -1  2   kg/m2/s  BCPO_emission_flux_from_GFED_extension\n#InvGFED_BENZ         BENZ   111  -1  -1  2   kg/m2/s  BENZ_emission_flux_from_GFED_extension\n#InvGFED_C2H6         C2H6   111  -1  -1  2   kg/m2/s  C2H6_emission_flux_from_GFED_extension\n#InvGFED_C3H8         C3H8   111  -1  -1  2   kg/m2/s  C3H8_emission_flux_from_GFED_extension\n#InvGFED_C4H6         C4H6   111  -1  -1  2   kg/m2/s  C4H6_emission_flux_from_GFED_extension\n#InvGFED_CH2O         CH2O   111  -1  -1  2   kg/m2/s  CH2O_emission_flux_from_GFED_extension\n#InvGFED_CO           CO     111  -1  -1  2   kg/m2/s  CO_emission_flux_from_GFED_extension\n#InvGFED_EOH          EOH    111  -1  -1  2   kg/m2/s  EOH_emission_flux_from_GFED_extension\n#InvGFED_FURA         FURA   111  -1  -1  2   kg/m2/s  FURA_emission_flux_from_GFED_extension\n#InvGFED_GLYX         GLYX   111  -1  -1  2   kg/m2/s  GLYX_emission_flux_from_GFED_extension\n#InvGFED_HCOOH        HCOOH  111  -1  -1  2   kg/m2/s  HCOOH_emission_flux_from_GFED_extension\n#InvGFED_ISOP         ISOP   111  -1  -1  2   kg/m2/s  ISOP_emission_flux_from_GFED_extension\n#InvGFED_MEK          MEK    111  -1  -1  2   kg/m2/s  MEK_emission_flux_from_GFED_extension\n#InvGFED_MVK          MVK    111  -1  -1  2   kg/m2/s  MVK_emission_flux_from_GFED_extension\n#InvGFED_MGLY         MGLY   111  -1  -1  2   kg/m2/s  MGLY_emission_flux_from_GFED_extension\n#InvGFED_MOH          MOH    111  -1  -1  2   kg/m2/s  MOH_emission_flux_from_GFED_extension\n#InvGFED_MTPA         MTP    111  -1  -1  2   kg/m2/s  MTPA_emission_flux_from_GFED_extension\n#InvGFED_MVK          MVK    111  -1  -1  2   kg/m2/s  MVK_emission_flux_from_GFED_extension\n#InvGFED_NAP          NAP    111  -1  -1  2   kg/m2/s  NAP_emission_flux_from_GFED_extension\n#InvGFED_NH3          NH3    111  -1  -1  2   kg/m2/s  NH3_emission_flux_from_GFED_extension\n#InvGFED_NO           NO     111  -1  -1  2   kg/m2/s  NO_emission_flux_from_GFED_extension\n#InvGFED_OCPI         OCPI   111  -1  -1  2   kg/m2/s  OCPI_emission_flux_from_GFED_extension\n#InvGFED_OCPO         OCPO   111  -1  -1  2   kg/m2/s  OCPO_emission_flux_from_GFED_extension\n#InvGFED_PHEN         PHEN   111  -1  -1  2   kg/m2/s  PHEN_emission_flux_from_GFED_extension\n#InvGFED_POG1         POG1   111  -1  -1  2   kg/m2/s  POG1_emission_flux_from_GFED_extension\n#InvGFED_POG2         POG2   111  -1  -1  2   kg/m2/s  POG2_emission_flux_from_GFED_extension\n#InvGFED_PRPE         PRPE   111  -1  -1  2   kg/m2/s  PRPE_emission_flux_from_GFED_extension\n#InvGFED_RCHO         RCHO   111  -1  -1  2   kg/m2/s  RCHO_emission_flux_from_GFED_extension\n#InvGFED_SO2          SO2    111  -1  -1  2   kg/m2/s  SO2_emission_flux_from_GFED_extension\n#InvGFED_SOAP         SOAP   111  -1  -1  2   kg/m2/s  SOAP_emission_flux_from_GFED_extension\n#InvGFED_STYR         STYR   111  -1  -1  2   kg/m2/s  STYR_emission_flux_from_GFED_extension\n#InvGFED_TOLU         TOLU   111  -1  -1  2   kg/m2/s  TOLU_emission_flux_from_GFED_extension\n#InvGFED_XYLE         ACET   111  -1  -1  2   kg/m2/s  XYLE_emission_flux_from_GFED_extension\n\n#=============================\n# Volcano extension\n#=============================\n#InvVOLCANOerupt_SO2  SO2    117  51  -1  3   kg/m2/s  SO2_eruptive_emission_flux_from_Volcano_extension\n#InvVOLCANOdegas_SO2  SO2    117  52  -1  3   kg/m2/s  SO2_degassing_emission_flux_from_Volcano_extension\n\n#=============================\n# INORG_IODINE Extension\n#=============================\n#InvIODINE_HOI        HOI    120  -1  -1  2   kg/m2/s  HOI_emission_flux_from_INORG_IODINE_extension\n#InvIODINE_I2         I2     120  -1  -1  2   kg/m2/s  I2_emission_flux_from_INORG_IODINE_extension\n\n#EOC\n"
  },
  {
    "path": "run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.tagO3",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO\n#  (for tagO3 simulations).\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about HEMCO diagnostics, see hemco.readthedocs.io.\n#\n# !REVISION HISTORY:\n#  13 Mar 2019 - M. Sulprizio- Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name              Spec   ExtNr Cat Hier Dim OutUnit  LongName\n\nEmisO3_Total        O3     -1    -1  -1   3   kg/m2/s  O3_emission_flux_from_all_sectors\n\n#EOC\n"
  },
  {
    "path": "run/GCHP/HISTORY.rc.templates/HISTORY.rc.TransportTracers",
    "content": "EXPID:  OutputDir/GEOSChem\nEXPDSC: GEOS-Chem_devel\nCoresPerNode: 6\nAllow_Overwrite: .true.\nVERSION: 1\n\n#==============================================================================\n# Define grid labels\n#\n# Define output grids different from the native cubed sphere in this section.\n# Each diagnostics collection is output on the native resolution global cubed\n# sphere grid unless a different grid defined here is set for that collection\n# in the collections section of this file.\n#\n# See the examples below for defining different types of grid at different\n# resolutions. See the collections section later on in this file for instructions on\n# using an alternative grid for output.\n#\n# Beware that the online regridding is area-conserving. Only diagnostics\n# independent of grid cell area should be output on a custom grid. For more\n# information see the HISTORY.rc page at gchp.readthedocs.io/.\n#==============================================================================\nGRID_LABELS: #PE24x144-CF\n             #PC360x181-DC\n             #REGIONAL1x1\n    ::\n\n    # Example of cubed-sphere grid at c24 resolution\n    PE24x144-CF.GRID_TYPE: Cubed-Sphere\n    PE24x144-CF.IM_WORLD: 24\n    PE24x144-CF.JM_WORLD: 144\n    PE24x144-CF.LM: 72\n\n    # Example of lat-lon global grid at 1x1 resolution\n    PC360x181-DC.GRID_TYPE: LatLon\n    PC360x181-DC.IM_WORLD: 360\n    PC360x181-DC.JM_WORLD: 181\n    PC360x181-DC.POLE: PC\n    PC360x181-DC.DATELINE: DC\n    PC360x181-DC.LM: 72\n\n    # Example of lat-lon regional grid at 1x1 resolution\n    REGIONAL1x1.GRID_TYPE: LatLon\n    REGIONAL1x1.IM_WORLD: 80\n    REGIONAL1x1.JM_WORLD: 40\n    REGIONAL1x1.POLE: XY\n    REGIONAL1x1.DATELINE: XY\n    REGIONAL1x1.LON_RANGE:   0 80\n    REGIONAL1x1.LAT_RANGE: -30 10\n    REGIONAL1x1.LM: 72\n\n#==============================================================================\n# Declare collection names\n#\n# You can disable collections by commenting out with #\n#==============================================================================\nCOLLECTIONS: 'Emissions',\n             #'Budget',\n             'CloudConvFlux',\n             'DryDep',\n             'FV3Dynamics',\n             'GCHPctmEnvLevCenter',\n             'GCHPctmEnvLevEdge',\n             'RadioNuclide',\n             'SpeciesConc',\n             'StateMet',\n             'StateMetLevEdge',\n             'WetLossConv',\n             'WetLossLS',\n::\n#==============================================================================\n# Define collections\n#\n# The rest of this file consists of collection definitions.\n# Above collections whose declarations are commented out will be ignored.\n# You can skip individual diagnostics by commenting out their names.\n#\n# WARNING: Frequency, duration, and mode will be over-written with\n# settings in setCommonRunSettings.sh. Edit settings in that file. You can execute the\n# script to update this file and then inspect results before submitting a\n# run. Collection names are hard-coded in that file; if you add more\n# collections then you must also add them there for auto-update, or manually\n# change settings for the new collection in this file.\n#\n# NOTES:\n#    (1) Template keyword defines suffix of output filename, appended to\n#        '{EXPID}.{collection}.'. See top of this file for EXPID definition.\n#\n#    (2) Frequency keyword sets frequency of data in each output file\n#\n#    (3) Duration keyword sets frequency of output file\n#  \n#    (4) Mode keyword may be 'time-averaged' or 'instantaneous'\n#\n#    (5) See the GRID_LABELS sections above for details about output grids\n#\n#    (6) To output data on a grid other than native res global cubed sphere\n#        include the 'grid_label' field. For example, \n#\n#           SpeciesConc.grid_label:   REGIONAL1x1\n#\n#    (7) If you are outputting on a lat/lon grid, be sure to specify\n#        conservative regridding. Otherwise regridding will be bi-linear.\n#\n#           SpeciesConc.conservative: 1\n#\n#    (8) To output a reduced set of levels, use the levels keyword, e.g.:\n#\n#           SpeciesConc.levels: 1 2 3\n#\n#==============================================================================\n# Emissions (see HEMCO_Diagn.rc for additional config settings)\n  Emissions.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Emissions.format:         'CFIO',\n  Emissions.timestampStart: .true.\n  Emissions.monthly:         1\n  Emissions.frequency:       010000\n  Emissions.duration:        010000\n  Emissions.mode:            'time-averaged'\n  Emissions.fields:    'EmisRn_Soil                 ', 'GCHPchem',\n                       'EmisBe7_Cosmic              ', 'GCHPchem',\n                       'EmisBe7s_Cosmic             ', 'GCHPchem',\n                       'EmisBe10_Cosmic             ', 'GCHPchem',\n                       'EmisBe10s_Cosmic            ', 'GCHPchem',\n                       'EmisSF6                     ', 'GCHPchem',\n                       'EmisCH3I                    ', 'GCHPchem',\n                       'EmisCO_25                   ', 'GCHPchem',\n                       'EmisCO_50                   ', 'GCHPchem',\n::\n#==============================================================================\n# Budget defined as species kg/s in the column (full, troposphere, or PBL) \n# due to a single component (e.g. chemistry); default = ozone only; add more \n# species as needed to the example below (advected only)\n  Budget.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.format:         'CFIO',\n  Budget.timestampStart: .true.\n  Budget.monthly:        1\n  Budget.frequency:      010000\n  Budget.duration:       010000\n  Budget.mode:           'time-averaged'\n  Budget.fields:    'BudgetChemistryFull_Rn222              ', 'GCHPchem',\n                    'BudgetChemistryFull_Pb210              ', 'GCHPchem',\n                    'BudgetChemistryFull_Pb210s             ', 'GCHPchem',\n                    'BudgetChemistryFull_Be7                ', 'GCHPchem',\n                    'BudgetChemistryFull_Be7s               ', 'GCHPchem',\n                    'BudgetChemistryFull_Be10               ', 'GCHPchem',\n                    'BudgetChemistryFull_Be10s              ', 'GCHPchem',\n                    'BudgetChemistryFull_CH3I               ', 'GCHPchem',\n                    'BudgetChemistryFull_CO_25              ', 'GCHPchem',\n                    'BudgetChemistryFull_CO_50              ', 'GCHPchem',\n                    'BudgetChemistryFull_e90                ', 'GCHPchem',\n                    'BudgetChemistryFull_e90_n              ', 'GCHPchem',\n                    'BudgetChemistryFull_e90_s              ', 'GCHPchem',\n                    'BudgetChemistryFull_nh_5               ', 'GCHPchem',\n                    'BudgetChemistryFull_nh_50              ', 'GCHPchem',\n                    'BudgetChemistryFull_PassiveTracer      ', 'GCHPchem',\n                    'BudgetChemistryFull_SF6                ', 'GCHPchem',\n                    'BudgetChemistryFull_st80_25            ', 'GCHPchem',\n                    #\n                    'BudgetEmisDryDepFull_Rn222             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_Pb210             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_Pb210s            ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_Be7               ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_Be7s              ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_Be10              ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_Be10s             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_CH3I              ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_CO_25             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_CO_50             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_e90               ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_e90_n             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_e90_s             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_nh_5              ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_nh_50             ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_PassiveTracer     ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_SF6               ', 'GCHPchem',\n                    'BudgetEmisDryDepFull_st80_25           ', 'GCHPchem',\n                    #\n                    'BudgetMixingFull_Rn222                 ', 'GCHPchem',\n                    'BudgetMixingFull_Pb210                 ', 'GCHPchem',\n                    'BudgetMixingFull_Pb210s                ', 'GCHPchem',\n                    'BudgetMixingFull_Be7                   ', 'GCHPchem',\n                    'BudgetMixingFull_Be7s                  ', 'GCHPchem',\n                    'BudgetMixingFull_Be10                  ', 'GCHPchem',\n                    'BudgetMixingFull_Be10s                 ', 'GCHPchem',\n                    'BudgetMixingFull_CH3I                  ', 'GCHPchem',\n                    'BudgetMixingFull_CO_25                 ', 'GCHPchem',\n                    'BudgetMixingFull_CO_50                 ', 'GCHPchem',\n                    'BudgetMixingFull_e90                   ', 'GCHPchem',\n                    'BudgetMixingFull_e90_n                 ', 'GCHPchem',\n                    'BudgetMixingFull_e90_s                 ', 'GCHPchem',\n                    'BudgetMixingFull_nh_5                  ', 'GCHPchem',\n                    'BudgetMixingFull_nh_50                 ', 'GCHPchem',\n                    'BudgetMixingFull_PassiveTracer         ', 'GCHPchem',\n                    'BudgetMixingFull_SF6                   ', 'GCHPchem',\n                    'BudgetMixingFull_st80_25               ', 'GCHPchem',\n\t\t    #\n                    'BudgetConvectionFull_Rn222             ', 'GCHPchem',\n                    'BudgetConvectionFull_Pb210             ', 'GCHPchem',\n                    'BudgetConvectionFull_Pb210s            ', 'GCHPchem',\n                    'BudgetConvectionFull_Be7               ', 'GCHPchem',\n                    'BudgetConvectionFull_Be7s              ', 'GCHPchem',\n                    'BudgetConvectionFull_Be10              ', 'GCHPchem',\n                    'BudgetConvectionFull_Be10s             ', 'GCHPchem',\n                    'BudgetConvectionFull_CH3I              ', 'GCHPchem',\n                    'BudgetConvectionFull_CO_25             ', 'GCHPchem',\n                    'BudgetConvectionFull_CO_50             ', 'GCHPchem',\n                    'BudgetConvectionFull_e90               ', 'GCHPchem',\n                    'BudgetConvectionFull_e90_n             ', 'GCHPchem',\n                    'BudgetConvectionFull_e90_s             ', 'GCHPchem',\n                    'BudgetConvectionFull_nh_5              ', 'GCHPchem',\n                    'BudgetConvectionFull_nh_50             ', 'GCHPchem',\n                    'BudgetConvectionFull_PassiveTracer     ', 'GCHPchem',\n                    'BudgetConvectionFull_SF6               ', 'GCHPchem',\n                    'BudgetConvectionFull_st80_25           ', 'GCHPchem',\n\t\t    #\n                    'BudgetWetDepFull_Pb210                 ', 'GCHPchem',\n                    'BudgetWetDepFull_Pb210s                ', 'GCHPchem',\n                    'BudgetWetDepFull_Be7                   ', 'GCHPchem',\n                    'BudgetWetDepFull_Be7s                  ', 'GCHPchem',\n                    'BudgetWetDepFull_Be10                  ', 'GCHPchem',\n                    'BudgetWetDepFull_Be10s                 ', 'GCHPchem',\n                    #\n\t\t    #\n                    'BudgetChemistryLevs1to35_Rn222         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_Pb210         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_Pb210s        ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_Be7           ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_Be7s          ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_Be10          ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_Be10s         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_CH3I          ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_CO_25         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_CO_50         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_e90           ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_e90_n         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_e90_s         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_nh_5          ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_nh_50         ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_PassiveTracer ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_SF6           ', 'GCHPchem',\n                    'BudgetChemistryLevs1to35_st80_25       ', 'GCHPchem',\n\t\t    #\n                    'BudgetEmisDryDepLevs1to35_Rn222        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_Pb210        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_Pb210s       ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_Be7          ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_Be7s         ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_Be10         ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_Be10s        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_CH3I         ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_CO_25        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_CO_50        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_e90          ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_e90_n        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_e90_s        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_nh_5         ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_nh_50        ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_PassiveTracer', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_SF6          ', 'GCHPchem',\n                    'BudgetEmisDryDepLevs1to35_st80_25      ', 'GCHPchem',\n                    #\n                    'BudgetMixingLevs1to35_Rn222            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_Pb210            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_Pb210s           ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_Be7              ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_Be7s             ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_Be10             ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_Be10s            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_CH3I             ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_CO_25            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_CO_50            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_e90              ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_e90_n            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_e90_s            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_nh_5             ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_nh_50            ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_PassiveTracer    ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_SF6              ', 'GCHPchem',\n                    'BudgetMixingLevs1to35_st80_25          ', 'GCHPchem',\n\t\t    #\n                    'BudgetConvectionLevs1to35_Rn222        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_Pb210        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_Pb210s       ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_Be7          ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_Be7s         ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_Be10         ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_Be10s        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_CH3I         ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_CO_25        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_CO_50        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_e90          ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_e90_n        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_e90_s        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_nh_5         ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_nh_50        ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_PassiveTracer', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_SF6          ', 'GCHPchem',\n                    'BudgetConvectionLevs1to35_st80_25      ', 'GCHPchem',\n                    #\n                    'BudgetWetDepLevs1to35_Pb210            ', 'GCHPchem',\n                    'BudgetWetDepLevs1to35_Pb210s           ', 'GCHPchem',\n                    'BudgetWetDepLevs1to35_Be7              ', 'GCHPchem',\n                    'BudgetWetDepLevs1to35_Be7s             ', 'GCHPchem',\n                    'BudgetWetDepLevs1to35_Be10             ', 'GCHPchem',\n                    'BudgetWetDepLevs1to35_Be10s            ', 'GCHPchem',\n                    #\n\t\t    #\n                    'BudgetChemistryTrop_Rn222              ', 'GCHPchem',\n                    'BudgetChemistryTrop_Pb210              ', 'GCHPchem',\n                    'BudgetChemistryTrop_Pb210s             ', 'GCHPchem',\n                    'BudgetChemistryTrop_Be7                ', 'GCHPchem',\n                    'BudgetChemistryTrop_Be7s               ', 'GCHPchem',\n                    'BudgetChemistryTrop_Be10               ', 'GCHPchem',\n                    'BudgetChemistryTrop_Be10s              ', 'GCHPchem',\n                    'BudgetChemistryTrop_CH3I               ', 'GCHPchem',\n                    'BudgetChemistryTrop_CO_25              ', 'GCHPchem',\n                    'BudgetChemistryTrop_CO_50              ', 'GCHPchem',\n                    'BudgetChemistryTrop_e90                ', 'GCHPchem',\n                    'BudgetChemistryTrop_e90_n              ', 'GCHPchem',\n                    'BudgetChemistryTrop_e90_s              ', 'GCHPchem',\n                    'BudgetChemistryTrop_nh_5               ', 'GCHPchem',\n                    'BudgetChemistryTrop_nh_50              ', 'GCHPchem',\n                    'BudgetChemistryTrop_PassiveTracer      ', 'GCHPchem',\n                    'BudgetChemistryTrop_SF6                ', 'GCHPchem',\n                    'BudgetChemistryTrop_st80_25            ', 'GCHPchem',\n                    #\n                    'BudgetEmisDryDepTrop_Rn222             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_Pb210             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_Pb210s            ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_Be7               ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_Be7s              ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_Be10              ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_Be10s             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_CH3I              ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_CO_25             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_CO_50             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_e90               ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_e90_n             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_e90_s             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_nh_5              ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_nh_50             ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_PassiveTracer     ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_SF6               ', 'GCHPchem',\n                    'BudgetEmisDryDepTrop_st80_25           ', 'GCHPchem',\n                    #\n                    'BudgetMixingTrop_Rn222                 ', 'GCHPchem',\n                    'BudgetMixingTrop_Pb210                 ', 'GCHPchem',\n                    'BudgetMixingTrop_Pb210s                ', 'GCHPchem',\n                    'BudgetMixingTrop_Be7                   ', 'GCHPchem',\n                    'BudgetMixingTrop_Be7s                  ', 'GCHPchem',\n                    'BudgetMixingTrop_Be10                  ', 'GCHPchem',\n                    'BudgetMixingTrop_Be10s                 ', 'GCHPchem',\n                    'BudgetMixingTrop_CH3I                  ', 'GCHPchem',\n                    'BudgetMixingTrop_CO_25                 ', 'GCHPchem',\n                    'BudgetMixingTrop_CO_50                 ', 'GCHPchem',\n                    'BudgetMixingTrop_e90                   ', 'GCHPchem',\n                    'BudgetMixingTrop_e90_n                 ', 'GCHPchem',\n                    'BudgetMixingTrop_e90_s                 ', 'GCHPchem',\n                    'BudgetMixingTrop_nh_5                  ', 'GCHPchem',\n                    'BudgetMixingTrop_nh_50                 ', 'GCHPchem',\n                    'BudgetMixingTrop_PassiveTracer         ', 'GCHPchem',\n                    'BudgetMixingTrop_SF6                   ', 'GCHPchem',\n                    'BudgetMixingTrop_st80_25               ', 'GCHPchem',\n\t\t    #\n                    'BudgetConvectionTrop_Rn222             ', 'GCHPchem',\n                    'BudgetConvectionTrop_Pb210             ', 'GCHPchem',\n                    'BudgetConvectionTrop_Pb210s            ', 'GCHPchem',\n                    'BudgetConvectionTrop_Be7               ', 'GCHPchem',\n                    'BudgetConvectionTrop_Be7s              ', 'GCHPchem',\n                    'BudgetConvectionTrop_Be10              ', 'GCHPchem',\n                    'BudgetConvectionTrop_Be10s             ', 'GCHPchem',\n                    'BudgetConvectionTrop_CH3I              ', 'GCHPchem',\n                    'BudgetConvectionTrop_CO_25             ', 'GCHPchem',\n                    'BudgetConvectionTrop_CO_50             ', 'GCHPchem',\n                    'BudgetConvectionTrop_e90               ', 'GCHPchem',\n                    'BudgetConvectionTrop_e90_n             ', 'GCHPchem',\n                    'BudgetConvectionTrop_e90_s             ', 'GCHPchem',\n                    'BudgetConvectionTrop_nh_5              ', 'GCHPchem',\n                    'BudgetConvectionTrop_nh_50             ', 'GCHPchem',\n                    'BudgetConvectionTrop_PassiveTracer     ', 'GCHPchem',\n                    'BudgetConvectionTrop_SF6               ', 'GCHPchem',\n                    'BudgetConvectionTrop_st80_25           ', 'GCHPchem',\n                     #\n                    'BudgetWetDepTrop_Pb210                 ', 'GCHPchem',\n                    'BudgetWetDepTrop_Pb210s                ', 'GCHPchem',\n                    'BudgetWetDepTrop_Be7                   ', 'GCHPchem',\n                    'BudgetWetDepTrop_Be7s                  ', 'GCHPchem',\n                    'BudgetWetDepTrop_Be10                  ', 'GCHPchem',\n                    'BudgetWetDepTrop_Be10s                 ', 'GCHPchem',\n                    #\n                    #\n                    'BudgetChemistryPBL_Rn222               ', 'GCHPchem',\n                    'BudgetChemistryPBL_Pb210               ', 'GCHPchem',\n                    'BudgetChemistryPBL_Pb210s              ', 'GCHPchem',\n                    'BudgetChemistryPBL_Be7                 ', 'GCHPchem',\n                    'BudgetChemistryPBL_Be7s                ', 'GCHPchem',\n                    'BudgetChemistryPBL_Be10                ', 'GCHPchem',\n                    'BudgetChemistryPBL_Be10s               ', 'GCHPchem',\n                    'BudgetChemistryPBL_CH3I                ', 'GCHPchem',\n                    'BudgetChemistryPBL_CO_25               ', 'GCHPchem',\n                    'BudgetChemistryPBL_CO_50               ', 'GCHPchem',\n                    'BudgetChemistryPBL_e90                 ', 'GCHPchem',\n                    'BudgetChemistryPBL_e90_n               ', 'GCHPchem',\n                    'BudgetChemistryPBL_e90_s               ', 'GCHPchem',\n                    'BudgetChemistryPBL_nh_5                ', 'GCHPchem',\n                    'BudgetChemistryPBL_nh_50               ', 'GCHPchem',\n                    'BudgetChemistryPBL_PassiveTracer       ', 'GCHPchem',\n                    'BudgetChemistryPBL_SF6                 ', 'GCHPchem',\n                    'BudgetChemistryPBL_st80_25             ', 'GCHPchem',\n                    #\n                    'BudgetEmisDryDepPBL_Rn222              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_Pb210              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_Pb210s             ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_Be7                ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_Be7s               ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_Be10               ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_Be10s              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_CH3I               ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_CO_25              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_CO_50              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_e90                ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_e90_n              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_e90_s              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_nh_5               ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_nh_50              ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_PassiveTracer      ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_SF6                ', 'GCHPchem',\n                    'BudgetEmisDryDepPBL_st80_25            ', 'GCHPchem',\n                    #\n                    'BudgetMixingPBL_Rn222                  ', 'GCHPchem',\n                    'BudgetMixingPBL_Pb210                  ', 'GCHPchem',\n                    'BudgetMixingPBL_Pb210s                 ', 'GCHPchem',\n                    'BudgetMixingPBL_Be7                    ', 'GCHPchem',\n                    'BudgetMixingPBL_Be7s                   ', 'GCHPchem',\n                    'BudgetMixingPBL_Be10                   ', 'GCHPchem',\n                    'BudgetMixingPBL_Be10s                  ', 'GCHPchem',\n                    'BudgetMixingPBL_CH3I                   ', 'GCHPchem',\n                    'BudgetMixingPBL_CO_25                  ', 'GCHPchem',\n                    'BudgetMixingPBL_CO_50                  ', 'GCHPchem',\n                    'BudgetMixingPBL_e90                    ', 'GCHPchem',\n                    'BudgetMixingPBL_e90_n                  ', 'GCHPchem',\n                    'BudgetMixingPBL_e90_s                  ', 'GCHPchem',\n                    'BudgetMixingPBL_nh_5                   ', 'GCHPchem',\n                    'BudgetMixingPBL_nh_50                  ', 'GCHPchem',\n                    'BudgetMixingPBL_PassiveTracer          ', 'GCHPchem',\n                    'BudgetMixingPBL_SF6                    ', 'GCHPchem',\n                    'BudgetMixingPBL_st80_25                ', 'GCHPchem',\n\t\t    #\n                    'BudgetConvectionPBL_Rn222              ', 'GCHPchem',\n                    'BudgetConvectionPBL_Pb210              ', 'GCHPchem',\n                    'BudgetConvectionPBL_Pb210s             ', 'GCHPchem',\n                    'BudgetConvectionPBL_Be7                ', 'GCHPchem',\n                    'BudgetConvectionPBL_Be7s               ', 'GCHPchem',\n                    'BudgetConvectionPBL_Be10               ', 'GCHPchem',\n                    'BudgetConvectionPBL_Be10s              ', 'GCHPchem',\n                    'BudgetConvectionPBL_CH3I               ', 'GCHPchem',\n                    'BudgetConvectionPBL_CO_25              ', 'GCHPchem',\n                    'BudgetConvectionPBL_CO_50              ', 'GCHPchem',\n                    'BudgetConvectionPBL_e90                ', 'GCHPchem',\n                    'BudgetConvectionPBL_e90_n              ', 'GCHPchem',\n                    'BudgetConvectionPBL_e90_s              ', 'GCHPchem',\n                    'BudgetConvectionPBL_nh_5               ', 'GCHPchem',\n                    'BudgetConvectionPBL_nh_50              ', 'GCHPchem',\n                    'BudgetConvectionPBL_PassiveTracer      ', 'GCHPchem',\n                    'BudgetConvectionPBL_SF6                ', 'GCHPchem',\n                    'BudgetConvectionPBL_st80_25            ', 'GCHPchem',\n                    #\n                    'BudgetWetDepPBL_Pb210                  ', 'GCHPchem',\n                    'BudgetWetDepPBL_Pb210s                 ', 'GCHPchem',\n                    'BudgetWetDepPBL_Be7                    ', 'GCHPchem',\n                    'BudgetWetDepPBL_Be7s                   ', 'GCHPchem',\n                    'BudgetWetDepPBL_Be10                   ', 'GCHPchem',\n                    'BudgetWetDepPBL_Be10s                  ', 'GCHPchem',\n::\t\t\t\t\t     \n#===============================================================================\n  CloudConvFlux.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.format:         'CFIO',\n  CloudConvFlux.timestampStart: .true.\n  CloudConvFlux.monthly:        1\n  CloudConvFlux.frequency:      010000\n  CloudConvFlux.duration:       010000\n  CloudConvFlux.mode:           'time-averaged'\n  CloudConvFlux.fields:    'CloudConvFlux_Rn222         ', 'GCHPchem',\n                           'CloudConvFlux_Pb210         ', 'GCHPchem',\n                           'CloudConvFlux_Pb210s        ', 'GCHPchem',\n                           'CloudConvFlux_Be7           ', 'GCHPchem',\n                           'CloudConvFlux_Be7s          ', 'GCHPchem',\n                           'CloudConvFlux_Be10          ', 'GCHPchem',\n                           'CloudConvFlux_Be10s         ', 'GCHPchem',\n                           'CloudConvFlux_aoa           ', 'GCHPchem',\n                           'CloudConvFlux_aoa_bl        ', 'GCHPchem',\n                           'CloudConvFlux_aoa_nh        ', 'GCHPchem',\n                           'CloudConvFlux_CH3I          ', 'GCHPchem',\n                           'CloudConvFlux_CO_25         ', 'GCHPchem',\n                           'CloudConvFlux_CO_50         ', 'GCHPchem',\n                           'CloudConvFlux_e90           ', 'GCHPchem',\n                           'CloudConvFlux_e90_n         ', 'GCHPchem',\n                           'CloudConvFlux_e90_s         ', 'GCHPchem',\n                           'CloudConvFlux_nh_5          ', 'GCHPchem',\n                           'CloudConvFlux_nh_50         ', 'GCHPchem',\n                           'CloudConvFlux_PassiveTracer ', 'GCHPchem',\n                           'CloudConvFlux_SF6           ', 'GCHPchem',\n                           'CloudConvFlux_st80_25       ', 'GCHPchem',\n::\n#==============================================================================\n  DryDep.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.format:           'CFIO',\n  DryDep.timestampStart:   .true.\n  DryDep.monthly:          1\n  DryDep.frequency:        010000\n  DryDep.duration:         010000\n  DryDep.mode:             'time-averaged'\n  DryDep.fields:           'DryDep_Pb210     ', 'GCHPchem',\n                           'DryDep_Pb210s    ', 'GCHPchem',\n                           'DryDep_Be7       ', 'GCHPchem',\n                           'DryDep_Be7s      ', 'GCHPchem',\n                           'DryDep_Be10      ', 'GCHPchem',\n                           'DryDep_Be10s     ', 'GCHPchem',\n                           'DryDepVel_Pb210  ', 'GCHPchem',\n                           'DryDepVel_Pb210s ', 'GCHPchem',\n                           'DryDepVel_Be7    ', 'GCHPchem',\n                           'DryDepVel_Be7s   ', 'GCHPchem',\n                           'DryDepVel_Be10   ', 'GCHPchem',\n                           'DryDepVel_Be10s  ', 'GCHPchem',\n::\n#==============================================================================\n  FV3Dynamics.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  FV3Dynamics.format:         'CFIO',\n  FV3Dynamics.timestampStart: .true.\n  FV3Dynamics.monthly:        1\n  FV3Dynamics.frequency:      010000\n  FV3Dynamics.duration:       010000\n  FV3Dynamics.mode:           'time-averaged'\n  FV3Dynamics.fields:         'PLE_R4    ', 'DYNAMICS',\n                              'DryPLE_R4 ', 'DYNAMICS',\n                              'PLEadv_R4 ', 'DYNAMICS',\n::\n#==============================================================================\n  GCHPctmEnvLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  GCHPctmEnvLevEdge.format:         'CFIO',\n  GCHPctmEnvLevEdge.timestampStart: .true.\n  GCHPctmEnvLevEdge.monthly:        1\n  GCHPctmEnvLevEdge.frequency:      010000\n  GCHPctmEnvLevEdge.duration:       010000\n  GCHPctmEnvLevEdge.mode:           'time-averaged'\n  GCHPctmEnvLevEdge.fields:         'UpwardsMassFlux_R4    ', 'GCHPctmEnv',\n                                    'PLE0_R4               ', 'GCHPctmEnv',\n                                    'PLE1_R4               ', 'GCHPctmEnv',\n                                    'DryPLE0_R4            ', 'GCHPctmEnv',\n                                    'DryPLE1_R4            ', 'GCHPctmEnv',\n::\n#==============================================================================\n  GCHPctmEnvLevCenter.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  GCHPctmEnvLevCenter.format:         'CFIO',\n  GCHPctmEnvLevCenter.timestampStart: .true.\n  GCHPctmEnvLevCenter.monthly:        1\n  GCHPctmEnvLevCenter.frequency:      010000\n  GCHPctmEnvLevCenter.duration:       010000\n  GCHPctmEnvLevCenter.mode:           'time-averaged'\n  GCHPctmEnvLevCenter.fields:         'SPHU0_R4    ', 'GCHPctmEnv',\n                                      'CX_R4       ', 'GCHPctmEnv',\n                                      'CY_R4       ', 'GCHPctmEnv',\n                                      'MFX_R4      ', 'GCHPctmEnv',\n                                      'MFY_R4      ', 'GCHPctmEnv',\n::\n#==============================================================================\n  RadioNuclide.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  RadioNuclide.format:         'CFIO',\n  RadioNuclide.timestampStart: .true.\n  RadioNuclide.monthly:         1\n  RadioNuclide.frequency:       010000\n  RadioNuclide.duration:        010000\n  RadioNuclide.mode:            'time-averaged'\n  RadioNuclide.fields:      'PbFromRnDecay           ', 'GCHPchem',  \n                            'RadDecay_Rn222          ', 'GCHPchem',\n                            'RadDecay_Pb210          ', 'GCHPchem',\n                            'RadDecay_Pb210s         ', 'GCHPchem',\n                            'RadDecay_Be7            ', 'GCHPchem',\n                            'RadDecay_Be7s           ', 'GCHPchem',\n                            'RadDecay_Be10           ', 'GCHPchem',\n                            'RadDecay_Be10s          ', 'GCHPchem',\n::\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.format:         'CFIO',\n  SpeciesConc.timestampStart: .true.\n  SpeciesConc.monthly:        1\n  SpeciesConc.frequency:      010000\n  SpeciesConc.duration:       010000\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_Rn222         ', 'GCHPchem',\n                              'SpeciesConcVV_Pb210         ', 'GCHPchem',\n                              'SpeciesConcVV_Pb210s        ', 'GCHPchem',\n                              'SpeciesConcVV_Be7           ', 'GCHPchem',\n                              'SpeciesConcVV_Be7s          ', 'GCHPchem',\n                              'SpeciesConcVV_Be10          ', 'GCHPchem',\n                              'SpeciesConcVV_Be10s         ', 'GCHPchem',\n                              'SpeciesConcVV_aoa           ', 'GCHPchem',\n                              'SpeciesConcVV_aoa_bl        ', 'GCHPchem',\n                              'SpeciesConcVV_aoa_nh        ', 'GCHPchem',\n                              'SpeciesConcVV_CH3I          ', 'GCHPchem',\n                              'SpeciesConcVV_CO_25         ', 'GCHPchem',\n                              'SpeciesConcVV_CO_50         ', 'GCHPchem',\n                              'SpeciesConcVV_e90           ', 'GCHPchem',\n                              'SpeciesConcVV_e90_n         ', 'GCHPchem',\n                              'SpeciesConcVV_e90_s         ', 'GCHPchem',\n                              'SpeciesConcVV_nh_5          ', 'GCHPchem',\n                              'SpeciesConcVV_nh_50         ', 'GCHPchem',\n                              'SpeciesConcVV_PassiveTracer ', 'GCHPchem',\n                              'SpeciesConcVV_SF6           ', 'GCHPchem',\n                              'SpeciesConcVV_st80_25       ', 'GCHPchem',\n::\n#==============================================================================\n  StateMet.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.format:          'CFIO',\n  StateMet.timestampStart:  .true.\n  StateMet.monthly:         1\n  StateMet.frequency:       010000\n  StateMet.duration:        010000\n  StateMet.mode:            'time-averaged'\n  StateMet.fields:          'Met_AD             ', 'GCHPchem',\n                            'Met_AIRDEN         ', 'GCHPchem',\n                            'Met_AIRVOL         ', 'GCHPchem',\n                            'Met_ALBD           ', 'GCHPchem',\n                            'Met_AREAM2         ', 'GCHPchem',\n                            'Met_AVGW           ', 'GCHPchem',\n                            'Met_BXHEIGHT       ', 'GCHPchem',\n                            'Met_ChemGridLev    ', 'GCHPchem',\n                            'Met_CLDF           ', 'GCHPchem',\n                            'Met_CLDFRC         ', 'GCHPchem',\n                            'Met_CLDTOPS        ', 'GCHPchem',\n                            'Met_DELP           ', 'GCHPchem',\n                            'Met_DQRCU          ', 'GCHPchem',\n                            'Met_DQRLSAN        ', 'GCHPchem',\n                            'Met_DTRAIN         ', 'GCHPchem',\n                            'Met_EFLUX          ', 'GCHPchem',\n                            'Met_FRCLND         ', 'GCHPchem',\n                            'Met_FRLAKE         ', 'GCHPchem',\n                            'Met_FRLAND         ', 'GCHPchem',\n                            'Met_FRLANDICE      ', 'GCHPchem',\n                            'Met_FROCEAN        ', 'GCHPchem',\n                            'Met_FRSEAICE       ', 'GCHPchem',\n                            'Met_FRSNOW         ', 'GCHPchem',\n                            'Met_GWETROOT       ', 'GCHPchem',\n                            'Met_GWETTOP        ', 'GCHPchem',\n                            'Met_HFLUX          ', 'GCHPchem',\n                            'Met_LAI            ', 'GCHPchem',\n                            'Met_PARDR          ', 'GCHPchem',\n                            'Met_PARDF          ', 'GCHPchem',\n                            'Met_PBLTOPL        ', 'GCHPchem',\n                            'Met_PBLH           ', 'GCHPchem',\n                            'Met_PHIS           ', 'GCHPchem',\n                            'Met_PMID           ', 'GCHPchem',\n                            'Met_PMIDDRY        ', 'GCHPchem',\n                            'Met_PRECANV        ', 'GCHPchem',\n                            'Met_PRECCON        ', 'GCHPchem',\n                            'Met_PRECLSC        ', 'GCHPchem',\n                            'Met_PRECTOT        ', 'GCHPchem',\n                            'Met_PS1DRY         ', 'GCHPchem',\n                            'Met_PS1WET         ', 'GCHPchem',\n                            'Met_PS2DRY         ', 'GCHPchem',\n                            'Met_PS2WET         ', 'GCHPchem',\n                            'Met_PSC2WET        ', 'GCHPchem',\n                            'Met_PSC2DRY        ', 'GCHPchem',\n                            'Met_QI             ', 'GCHPchem',\n                            'Met_QL             ', 'GCHPchem',\n                            'Met_OMEGA          ', 'GCHPchem',\n                            'Met_OPTD           ', 'GCHPchem',\n                            'Met_REEVAPCN       ', 'GCHPchem',\n                            'Met_REEVAPLS       ', 'GCHPchem',\n                            'Met_SLP            ', 'GCHPchem',\n                            'Met_SNODP          ', 'GCHPchem',\n                            'Met_SNOMAS         ', 'GCHPchem',\n                            'Met_SPHU           ', 'GCHPchem',\n                            'Met_SPHU1          ', 'GCHPchem',\n                            'Met_SPHU2          ', 'GCHPchem',\n                            'Met_SUNCOS         ', 'GCHPchem',\n                            'Met_SUNCOSmid      ', 'GCHPchem',\n                            'Met_SWGDN          ', 'GCHPchem',\n                            'Met_T              ', 'GCHPchem',\n                            'Met_TAUCLI         ', 'GCHPchem',\n                            'Met_TAUCLW         ', 'GCHPchem',\n                            'Met_THETA          ', 'GCHPchem',\n                            'Met_TMPU1          ', 'GCHPchem',\n                            'Met_TMPU2          ', 'GCHPchem',\n                            'Met_TO3            ', 'GCHPchem',\n                            'Met_TropHt         ', 'GCHPchem',\n                            'Met_TropLev        ', 'GCHPchem',\n                            'Met_TropP          ', 'GCHPchem',\n                            'Met_TS             ', 'GCHPchem',\n                            'Met_TSKIN          ', 'GCHPchem',\n                            'Met_TV             ', 'GCHPchem',\n                            'Met_U              ', 'GCHPchem',\n                            'Met_U10M           ', 'GCHPchem',\n                            'Met_USTAR          ', 'GCHPchem',\n                            'Met_UVALBEDO       ', 'GCHPchem',\n                            'Met_V              ', 'GCHPchem',\n                            'Met_V10M           ', 'GCHPchem',\n                            'Met_Z0             ', 'GCHPchem',\n::\n#==============================================================================\n  StateMetLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.format:         'CFIO',\n  StateMetLevEdge.timestampStart: .true.\n  StateMetLevEdge.monthly:        1\n  StateMetLevEdge.frequency:      010000\n  StateMetLevEdge.duration:       010000\n  StateMetLevEdge.mode:           'time-averaged'\n  StateMetLevEdge.fields:         'Met_CMFMC          ', 'GCHPchem',\n                                  'Met_PEDGE          ', 'GCHPchem',\n                                  'Met_PEDGEDRY       ', 'GCHPchem',\n                                  'Met_PFICU          ', 'GCHPchem',\n                                  'Met_PFILSAN        ', 'GCHPchem',\n                                  'Met_PFLCU          ', 'GCHPchem',\n                                  'Met_PFLLSAN        ', 'GCHPchem',\n::\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.format:         'CFIO',\n  WetLossConv.timestampStart: .true.\n  WetLossConv.monthly:        1\n  WetLossConv.frequency:      010000\n  WetLossConv.duration:       010000\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:       'WetLossConv_Pb210      ', 'GCHPchem',\n                            'WetLossConv_Pb210s     ', 'GCHPchem',\n                            'WetLossConv_Be7        ', 'GCHPchem',\n                            'WetLossConv_Be7s       ', 'GCHPchem',\n                            'WetLossConv_Be10       ', 'GCHPchem',\n                            'WetLossConv_Be10s      ', 'GCHPchem',\n                            'WetLossConvFrac_Pb210  ', 'GCHPchem',\n                            'WetLossConvFrac_Pb210s ', 'GCHPchem',\n                            'WetLossConvFrac_Be7    ', 'GCHPchem',\n                            'WetLossConvFrac_Be7s   ', 'GCHPchem',\n                            'WetLossConvFrac_Be10   ', 'GCHPchem',\n                            'WetLossConvFrac_Be10s  ', 'GCHPchem',\n::\n#==============================================================================\n  WetLossLS.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.format:         'CFIO',\n  WetLossLS.timestampStart: .true.\n  WetLossLS.monthly:        1\n  WetLossLS.frequency:      010000\n  WetLossLS.duration:       010000\n  WetLossLS.mode:           'time-averaged'\n  WetLossLS.fields:         'WetLossLS_Pb210  ', 'GCHPchem',\n                            'WetLossLS_Pb210s ', 'GCHPchem',\n                            'WetLossLS_Be7    ', 'GCHPchem',\n                            'WetLossLS_Be7s   ', 'GCHPchem',\n                            'WetLossLS_Be10   ', 'GCHPchem',\n                            'WetLossLS_Be10s  ', 'GCHPchem',\n::\n"
  },
  {
    "path": "run/GCHP/HISTORY.rc.templates/HISTORY.rc.carbon",
    "content": "EXPID:  OutputDir/GEOSChem\nEXPDSC: GEOS-Chem_devel\nCoresPerNode: 6\nAllow_Overwrite: .true.\nVERSION: 1\n\n#==============================================================================\n# Define grid labels\n#\n# Define output grids different from the native cubed sphere in this section.\n# Each diagnostics collection is output on the native resolution global cubed\n# sphere grid unless a different grid defined here is set for that collection\n# in the collections section of this file.\n#\n# See the examples below for defining different types of grid at different\n# resolutions. See the collections section later on in this file for\n# instructions on using an alternative grid for output.\n#\n# Beware that the online regridding is area-conserving. Only diagnostics\n# independent of grid cell area should be output on a custom grid. For more\n# information see the HISTORY.rc page at gchp.readthedocs.io/.\n#==============================================================================\nGRID_LABELS: #PE24x144-CF\n             #PC360x181-DC\n             #REGIONAL1x1\n    ::\n\n    # Example of cubed-sphere grid at c24 resolution\n    PE24x144-CF.GRID_TYPE: Cubed-Sphere\n    PE24x144-CF.IM_WORLD: 24\n    PE24x144-CF.JM_WORLD: 144\n    PE24x144-CF.LM: 72\n\n    # Example of lat-lon global grid at 1x1 resolution\n    PC360x181-DC.GRID_TYPE: LatLon\n    PC360x181-DC.IM_WORLD: 360\n    PC360x181-DC.JM_WORLD: 181\n    PC360x181-DC.POLE: PC\n    PC360x181-DC.DATELINE: DC\n    PC360x181-DC.LM: 72\n\n    # Example of lat-lon regional grid at 1x1 resolution\n    REGIONAL1x1.GRID_TYPE: LatLon\n    REGIONAL1x1.IM_WORLD: 80\n    REGIONAL1x1.JM_WORLD: 40\n    REGIONAL1x1.POLE: XY\n    REGIONAL1x1.DATELINE: XY\n    REGIONAL1x1.LON_RANGE:   0 80\n    REGIONAL1x1.LAT_RANGE: -30 10\n    REGIONAL1x1.LM: 72\n\n#==============================================================================\n# Declare collection names and toggle on/off with #\n#==============================================================================\nCOLLECTIONS: 'SpeciesConc',\n             'Emissions',\n             #'Budget',\n             #'CloudConvFlux',\n             #'FV3Dynamics',\n             #'GCHPctmEnvLevCenter',\n             #'GCHPctmEnvLevEdge',\n             #'KppDiags',\n             'ProdLoss',\n             #'RxnConst',\n             #'RxnRates',\n             'StateMet',\n             'StateMetLevEdge',\n::\n#==============================================================================\n# Define collections\n#\n# The rest of this file consists of collection definitions.\n# Above collections whose declarations are commented out will be ignored.\n# You can skip individual diagnostics by commenting out their names.\n#\n# WARNING: Frequency, duration, and mode will be over-written with\n# settings in setCommonRunSettings.sh. Edit settings in that file. You can execute the\n# script to update this file and then inspect results before submitting a\n# run. Collection names are hard-coded in that file; if you add more\n# collections then you must also add them there for auto-update, or manually\n# change settings for the new collection in this file.\n#\n# NOTES:\n#    (1) Template keyword defines suffix of output filename, appended to\n#        '{EXPID}.{collection}.'. See top of this file for EXPID definition.\n#\n#    (2) Frequency keyword sets frequency of data in each output file\n#\n#    (3) Duration keyword sets frequency of output file\n#\n#    (4) Mode keyword may be 'time-averaged' or 'instantaneous'\n#\n#    (5) See the GRID_LABELS sections above for details about output grids\n#\n#    (6) To output data on a grid other than native res global cubed sphere\n#        include the 'grid_label' field. For example,\n#\n#           SpeciesConc.grid_label:   REGIONAL1x1\n#\n#    (7) If you are outputting on a lat/lon grid, be sure to specify\n#        conservative regridding. Otherwise regridding will be bi-linear.\n#\n#           SpeciesConc.conservative: 1\n#\n#    (8) To output a reduced set of levels, use the levels keyword, e.g.:\n#\n#           SpeciesConc.levels: 1 2 3\n#\n#==============================================================================\n# Emissions (see HEMCO_Diagn.rc for additional config settings)\n  Emissions.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  Emissions.format:           'CFIO',\n  Emissions.timestampStart:   .true.\n  Emissions.monthly:          1\n  Emissions.frequency:        010000\n  Emissions.duration:         010000\n  Emissions.mode:             'time-averaged'\n  Emissions.fields:           'EmisCH4_Total        ', 'GCHPchem',\n                              'EmisCH4_Oil          ', 'GCHPchem',\n                              'EmisCH4_Gas          ', 'GCHPchem',\n                              'EmisCH4_Coal         ', 'GCHPchem',\n                              'EmisCH4_Livestock    ', 'GCHPchem',\n                              'EmisCH4_Landfills    ', 'GCHPchem',\n                              'EmisCH4_Wastewater   ', 'GCHPchem',\n                              'EmisCH4_Rice         ', 'GCHPchem',\n                              'EmisCH4_OtherAnth    ', 'GCHPchem',\n                              'EmisCH4_BiomassBurn  ', 'GCHPchem',\n                              'EmisCH4_Wetlands     ', 'GCHPchem',\n                              'EmisCH4_Seeps        ', 'GCHPchem',\n                              'EmisCH4_Lakes        ', 'GCHPchem',\n                              'EmisCH4_Termites     ', 'GCHPchem',\n                              'EmisCH4_SoilAbsorb   ', 'GCHPchem',\n                              'EmisCH4_Reservoirs   ', 'GCHPchem',\n                              'EmisCO_Total         ', 'GCHPchem',\n                              'EmisCO_Aircraft      ', 'GCHPchem',\n                              'EmisCO_Anthro        ', 'GCHPchem',\n                              'EmisCO_BiomassBurn   ', 'GCHPchem',\n                              'EmisCO_Ship          ', 'GCHPchem',\n                              'EmisCO2_Total        ', 'GCHPchem',\n                              'EmisCO2_FossilFuel   ', 'GCHPchem',\n                              'EmisCO2_Ocean        ', 'GCHPchem',\n                              'EmisCO2_BalBiosph    ', 'GCHPchem',\n                              'EmisCO2_NetTerrExch  ', 'GCHPchem',\n                              'EmisCO2_Ship         ', 'GCHPchem',\n                              'EmisCO2_Aviation     ', 'GCHPchem',\n                              'EmisCO2_CO2SurfCorr  ', 'GCHPchem',\n                              'EmisCO2_BiomassBurn  ', 'GCHPchem',\n                              'EmisOCS_Total        ', 'GCHPchem',\n                              'EmisOCS_Anthro       ', 'GCHPchem',\n                              'EmisOCS_BiomassBurn  ', 'GCHPchem',\n                              'EmisOCS_MissingOcean ', 'GCHPchem',\n                              'EmisOCS_Ocean        ', 'GCHPchem',\n::\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.format:         'CFIO',\n  SpeciesConc.timestampStart: .true.\n  SpeciesConc.monthly:        1\n  SpeciesConc.frequency:      010000\n  SpeciesConc.duration:       240000\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_CH4    ', 'GCHPchem',\n                              'SpeciesConcVV_CO     ', 'GCHPchem',\n                              'SpeciesConcVV_CO2    ', 'GCHPchem',\n                              'SpeciesConcVV_OCS    ', 'GCHPchem',\n                              #'SpeciesConcMND_CH4 ', 'GCHPchem',\n                              #'SpeciesConcMND_CO  ', 'GCHPchem',\n                              #'SpeciesConcMND_CO2 ', 'GCHPchem',\n                              #'SpeciesConcMND_OCS ', 'GCHPchem',\n::\n#==============================================================================\n# Budget defined as species kg/s in the column (full, troposphere, or PBL)\n# due to a single component (e.g. chemistry); default = ozone only; add more\n# species as needed to the example below (advected only)\n  Budget.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.format:              'CFIO',\n  Budget.timestampStart:      .true.\n  Budget.monthly:             1\n  Budget.frequency:           010000\n  Budget.duration:            010000\n  Budget.mode:                'time-averaged'\n  Budget.fields:              'BudgetEmisDryDepFull_CH4      ', 'GCHPchem',\n                              'BudgetEmisDryDepTrop_CH4      ', 'GCHPchem',\n                              'BudgetEmisDryDepPBL_CH4       ', 'GCHPchem',\n                              'BudgetEmisDryDepLevs1to35_CH4 ', 'GCHPchem',\n                              'BudgetMixingFull_CH4          ', 'GCHPchem',\n                              'BudgetMixingTrop_CH4          ', 'GCHPchem',\n                              'BudgetMixingPBL_CH4           ', 'GCHPchem',\n                              'BudgetMixingLevs1to35_CH4     ', 'GCHPchem',\n                              'BudgetConvectionFull_CH4      ', 'GCHPchem',\n                              'BudgetConvectionTrop_CH4      ', 'GCHPchem',\n                              'BudgetConvectionPBL_CH4       ', 'GCHPchem',\n                              'BudgetConvectionLevs1to35_CH4 ', 'GCHPchem',\n                              'BudgetChemistryFull_CH4       ', 'GCHPchem',\n                              'BudgetChemistryTrop_CH4       ', 'GCHPchem',\n                              'BudgetChemistryPBL_CH4        ', 'GCHPchem',\n                              'BudgetChemistryLevs1to35_CH4  ', 'GCHPchem',\n                              'BudgetEmisDryDepFull_CO       ', 'GCHPchem',\n                              'BudgetEmisDryDepTrop_CO       ', 'GCHPchem',\n                              'BudgetEmisDryDepPBL_CO        ', 'GCHPchem',\n                              'BudgetEmisDryDepLevs1to35_CO  ', 'GCHPchem',\n                              'BudgetMixingFull_CO           ', 'GCHPchem',\n                              'BudgetMixingTrop_CO           ', 'GCHPchem',\n                              'BudgetMixingPBL_CO            ', 'GCHPchem',\n                              'BudgetMixingLevs1to35_CO      ', 'GCHPchem',\n                              'BudgetConvectionFull_CO       ', 'GCHPchem',\n                              'BudgetConvectionTrop_CO       ', 'GCHPchem',\n                              'BudgetConvectionPBL_CO        ', 'GCHPchem',\n                              'BudgetConvectionLevs1to35_CO  ', 'GCHPchem',\n                              'BudgetEmisDryDepFull_CO2      ', 'GCHPchem',\n                              'BudgetEmisDryDepTrop_CO2      ', 'GCHPchem',\n                              'BudgetEmisDryDepPBL_CO2       ', 'GCHPchem',\n                              'BudgetEmisDryDepLevs1to35_CO2 ', 'GCHPchem',\n                              'BudgetMixingFull_CO2          ', 'GCHPchem',\n                              'BudgetMixingTrop_CO2          ', 'GCHPchem',\n                              'BudgetMixingPBL_CO2           ', 'GCHPchem',\n                              'BudgetMixingLevs1to35_CO2     ', 'GCHPchem',\n                              'BudgetConvectionFull_CO2      ', 'GCHPchem',\n                              'BudgetConvectionTrop_CO2      ', 'GCHPchem',\n                              'BudgetConvectionPBL_CO2       ', 'GCHPchem',\n                              'BudgetConvectionLevs1to35_CO2 ', 'GCHPchem',\n                              'BudgetEmisDryDepFull_OCS      ', 'GCHPchem',\n                              'BudgetEmisDryDepTrop_OCS      ', 'GCHPchem',\n                              'BudgetEmisDryDepPBL_OCS       ', 'GCHPchem',\n                              'BudgetEmisDryDepLevs1to35_OCS ', 'GCHPchem',\n                              'BudgetMixingFull_OCS          ', 'GCHPchem',\n                              'BudgetMixingTrop_OCS          ', 'GCHPchem',\n                              'BudgetMixingPBL_OCS           ', 'GCHPchem',\n                              'BudgetMixingLevs1to35_OCS     ', 'GCHPchem',\n                              'BudgetConvectionFull_OCS      ', 'GCHPchem',\n                              'BudgetConvectionTrop_OCS      ', 'GCHPchem',\n                              'BudgetConvectionPBL_OCS       ', 'GCHPchem',\n                              'BudgetConvectionLevs1to35_OCS ', 'GCHPchem',\n::\n#===============================================================================\n# Cloud convective fluxes\n  CloudConvFlux.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.format:         'CFIO',\n  CloudConvFlux.timestampStart: .true.\n  CloudConvFlux.monthly:        1\n  CloudConvFlux.frequency:      010000\n  CloudConvFlux.duration:       010000\n  CloudConvFlux.mode:           'time-averaged'\n  CloudConvFlux.fields:         'CloudConvFlux_CH4 ', 'GCHPchem',\n                                'CloudConvFlux_CO  ', 'GCHPchem',\n                                'CloudConvFlux_CO2 ', 'GCHPchem',\n                                'CloudConvFlux_OCS ', 'GCHPchem',\n::\n#==============================================================================\n  FV3Dynamics.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  FV3Dynamics.format:         'CFIO',\n  FV3Dynamics.timestampStart: .true.\n  FV3Dynamics.monthly:        1\n  FV3Dynamics.frequency:      010000\n  FV3Dynamics.duration:       010000\n  FV3Dynamics.mode:           'time-averaged'\n  FV3Dynamics.fields:         'PLE_R4    ', 'DYNAMICS',\n                              'DryPLE_R4 ', 'DYNAMICS',\n                              'PLEadv_R4 ', 'DYNAMICS',\n::\n#==============================================================================\n  GCHPctmEnvLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  GCHPctmEnvLevEdge.format:         'CFIO',\n  GCHPctmEnvLevEdge.timestampStart: .true.\n  GCHPctmEnvLevEdge.monthly:        1\n  GCHPctmEnvLevEdge.frequency:      010000\n  GCHPctmEnvLevEdge.duration:       010000\n  GCHPctmEnvLevEdge.mode:           'time-averaged'\n  GCHPctmEnvLevEdge.fields:         'UpwardsMassFlux_R4    ', 'GCHPctmEnv',\n                                    'PLE0_R4               ', 'GCHPctmEnv',\n                                    'PLE1_R4               ', 'GCHPctmEnv',\n                                    'DryPLE0_R4            ', 'GCHPctmEnv',\n                                    'DryPLE1_R4            ', 'GCHPctmEnv',\n::\n#==============================================================================\n  GCHPctmEnvLevCenter.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  GCHPctmEnvLevCenter.format:         'CFIO',\n  GCHPctmEnvLevCenter.timestampStart: .true.\n  GCHPctmEnvLevCenter.monthly:        1\n  GCHPctmEnvLevCenter.frequency:      010000\n  GCHPctmEnvLevCenter.duration:       010000\n  GCHPctmEnvLevCenter.mode:           'time-averaged'\n  GCHPctmEnvLevCenter.fields:         'SPHU0_R4    ', 'GCHPctmEnv',\n                                      'CX_R4       ', 'GCHPctmEnv',\n                                      'CY_R4       ', 'GCHPctmEnv',\n                                      'MFX_R4      ', 'GCHPctmEnv',\n                                      'MFY_R4      ', 'GCHPctmEnv',\n::\n#==============================================================================\n  KppDiags.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.format:            'CFIO',\n  KppDiags.monthly:           1\n  KppDiags.frequency:         010000\n  KppDiags.duration:          010000\n  KppDiags.mode:              'time-averaged'\n  KppDiags.fields:            'KppIntCounts ', 'GCHPchem',\n                              'KppJacCounts ', 'GCHPchem',\n                              'KppTotSteps  ', 'GCHPchem',\n                              'KppAccSteps  ', 'GCHPchem',\n                              'KppRejSteps  ', 'GCHPchem',\n                              'KppLuDecomps ', 'GCHPchem',\n                              'KppSubsts    ', 'GCHPchem',\n                              'KppSmDecomps ', 'GCHPchem',\n                              'KppTime      ', 'GCHPchem',\n::\n#==============================================================================\n# Prod and loss terms from the carbon simulation\n  ProdLoss.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.format:          'CFIO',\n  ProdLoss.timestampStart:  .true.\n  ProdLoss.monthly:         1\n  ProdLoss.frequency:       010000\n  ProdLoss.duration:        010000\n  ProdLoss.mode:            'time-averaged'\n  ProdLoss.fields:          'ProdCOfromCH4  ', 'GCHPchem',\n                            'ProdCOfromNMVOC', 'GCHPchem',\n                            'ProdCO2fromCO  ', 'GCHPchem',\n::\n#==============================================================================\n  RxnRates.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  RxnRates.format:            'CFIO',\n  RxnRates.monthly:           1\n  RxnRates.frequency:         010000\n  RxnRates.duration:          010000\n  RxnRates.mode:              'time-averaged'\n  RxnRates.fields:            'RxnRate_EQ0001 ', 'GCHPchem',\n                              'RxnRate_EQ0002 ', 'GCHPchem',\n                              'RxnRate_EQ0003 ', 'GCHPchem',\n                              'RxnRate_EQ0004 ', 'GCHPchem',\n                              'RxnRate_EQ0005 ', 'GCHPchem',\n                              'RxnRate_EQ0006 ', 'GCHPchem',\n                              'RxnRate_EQ0007 ', 'GCHPchem',\n                              'RxnRate_EQ0008 ', 'GCHPchem',\n::\n#==============================================================================\n  RxnConst.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  RxnConst.format:            'CFIO',\n  RxnConst.monthly:           1\n  RxnConst.frequency:         010000\n  RxnConst.duration:          010000\n  RxnConst.mode:              'time-averaged'\n  RxnConst.fields:            'RxnConst_EQ0001 ', 'GCHPchem',\n                              'RxnConst_EQ0002 ', 'GCHPchem',\n                              'RxnConst_EQ0003 ', 'GCHPchem',\n                              'RxnConst_EQ0004 ', 'GCHPchem',\n                              'RxnConst_EQ0005 ', 'GCHPchem',\n                              'RxnConst_EQ0006 ', 'GCHPchem',\n                              'RxnConst_EQ0007 ', 'GCHPchem',\n                              'RxnConst_EQ0008 ', 'GCHPchem',\n::\n#==============================================================================\n  StateMet.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.format:         'CFIO',\n  StateMet.timestampStart: .true.\n  StateMet.monthly:        1\n  StateMet.frequency:      010000\n  StateMet.duration:       010000\n  StateMet.mode:           'time-averaged'\n  StateMet.fields:         'Met_AD         ', 'GCHPchem',\n                           'Met_AIRDEN     ', 'GCHPchem',\n                           'Met_AIRVOL     ', 'GCHPchem',\n                           'Met_ALBD       ', 'GCHPchem',\n                           'Met_AREAM2     ', 'GCHPchem',\n                           'Met_AVGW       ', 'GCHPchem',\n                           'Met_BXHEIGHT   ', 'GCHPchem',\n                           'Met_ChemGridLev', 'GCHPchem',\n                           'Met_CLDF       ', 'GCHPchem',\n                           'Met_CLDFRC     ', 'GCHPchem',\n                           'Met_CLDTOPS    ', 'GCHPchem',\n                           'Met_DELP       ', 'GCHPchem',\n                           'Met_DQRCU      ', 'GCHPchem',\n                           'Met_DQRLSAN    ', 'GCHPchem',\n                           'Met_DTRAIN     ', 'GCHPchem',\n                           'Met_EFLUX      ', 'GCHPchem',\n                           'Met_FRCLND     ', 'GCHPchem',\n                           'Met_FRLAKE     ', 'GCHPchem',\n                           'Met_FRLAND     ', 'GCHPchem',\n                           'Met_FRLANDICE  ', 'GCHPchem',\n                           'Met_FROCEAN    ', 'GCHPchem',\n                           'Met_FRSEAICE   ', 'GCHPchem',\n                           'Met_FRSNOW     ', 'GCHPchem',\n                           'Met_GWETROOT   ', 'GCHPchem',\n                           'Met_GWETTOP    ', 'GCHPchem',\n                           'Met_HFLUX      ', 'GCHPchem',\n                           'Met_LAI        ', 'GCHPchem',\n                           'Met_PARDR      ', 'GCHPchem',\n                           'Met_PARDF      ', 'GCHPchem',\n                           'Met_PBLTOPL    ', 'GCHPchem',\n                           'Met_PBLH       ', 'GCHPchem',\n                           'Met_PHIS       ', 'GCHPchem',\n                           'Met_PMID       ', 'GCHPchem',\n                           'Met_PMIDDRY    ', 'GCHPchem',\n                           'Met_PRECANV    ', 'GCHPchem',\n                           'Met_PRECCON    ', 'GCHPchem',\n                           'Met_PRECLSC    ', 'GCHPchem',\n                           'Met_PRECTOT    ', 'GCHPchem',\n                           'Met_PS1DRY     ', 'GCHPchem',\n                           'Met_PS1WET     ', 'GCHPchem',\n                           'Met_PS2DRY     ', 'GCHPchem',\n                           'Met_PS2WET     ', 'GCHPchem',\n                           'Met_PSC2WET    ', 'GCHPchem',\n                           'Met_PSC2DRY    ', 'GCHPchem',\n                           'Met_QI         ', 'GCHPchem',\n                           'Met_QL         ', 'GCHPchem',\n                           'Met_OMEGA      ', 'GCHPchem',\n                           'Met_OPTD       ', 'GCHPchem',\n                           'Met_REEVAPCN   ', 'GCHPchem',\n                           'Met_REEVAPLS   ', 'GCHPchem',\n                           'Met_SLP        ', 'GCHPchem',\n                           'Met_SNODP      ', 'GCHPchem',\n                           'Met_SNOMAS     ', 'GCHPchem',\n                           'Met_SPHU       ', 'GCHPchem',\n                           'Met_SPHU1      ', 'GCHPchem',\n                           'Met_SPHU2      ', 'GCHPchem',\n                           'Met_SUNCOS     ', 'GCHPchem',\n                           'Met_SUNCOSmid  ', 'GCHPchem',\n                           'Met_SWGDN      ', 'GCHPchem',\n                           'Met_T          ', 'GCHPchem',\n                           'Met_TAUCLI     ', 'GCHPchem',\n                           'Met_TAUCLW     ', 'GCHPchem',\n                           'Met_THETA      ', 'GCHPchem',\n                           'Met_TMPU1      ', 'GCHPchem',\n                           'Met_TMPU2      ', 'GCHPchem',\n                           'Met_TO3        ', 'GCHPchem',\n                           'Met_TropHt     ', 'GCHPchem',\n                           'Met_TropLev    ', 'GCHPchem',\n                           'Met_TropP      ', 'GCHPchem',\n                           'Met_TS         ', 'GCHPchem',\n                           'Met_TSKIN      ', 'GCHPchem',\n                           'Met_TV         ', 'GCHPchem',\n                           'Met_U          ', 'GCHPchem',\n                           'Met_U10M       ', 'GCHPchem',\n                           'Met_USTAR      ', 'GCHPchem',\n                           'Met_UVALBEDO   ', 'GCHPchem',\n                           'Met_V          ', 'GCHPchem',\n                           'Met_V10M       ', 'GCHPchem',\n                           'Met_Z0         ', 'GCHPchem',\n::\n#==============================================================================\n  StateMetLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.format:         'CFIO',\n  StateMetLevEdge.timestampStart: .true.\n  StateMetLevEdge.monthly:        1\n  StateMetLevEdge.frequency:      010000\n  StateMetLevEdge.duration:       010000\n  StateMetLevEdge.mode:           'time-averaged'\n  StateMetLevEdge.fields:         'Met_PEDGE   ', 'GCHPchem',\n                                  #'Met_CMFMC   ', 'GCHPchem',\n                                  #'Met_PEDGEDRY', 'GCHPchem',\n                                  #'Met_PFICU   ', 'GCHPchem',\n                                  #'Met_PFILSAN ', 'GCHPchem',\n                                  #'Met_PFLCU   ', 'GCHPchem',\n                                  #'Met_PFLLSAN ', 'GCHPchem',\n::\n"
  },
  {
    "path": "run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem",
    "content": "EXPID:  OutputDir/GEOSChem\nEXPDSC: GEOS-Chem_devel\nCoresPerNode: 6\nAllow_Overwrite: .true.\nVERSION: 1\n\n#==============================================================================\n# Define grid labels\n#\n# Define output grids different from the native cubed sphere in this section.\n# Each diagnostics collection is output on the native resolution global cubed\n# sphere grid unless a different grid defined here is set for that collection\n# in the collections section of this file.\n#\n# See the examples below for defining different types of grid at different\n# resolutions. See the collections section later on in this file for\n# instructions on using an alternative grid for output.\n#\n# Beware that the online regridding is area-conserving. Only diagnostics\n# independent of grid cell area should be output on a custom grid. For more\n# information see the HISTORY.rc page at gchp.readthedocs.io/.\n#==============================================================================\nGRID_LABELS: #PE24x144-CF\n             #PC360x181-DC\n             #REGIONAL1x1\n    ::\n\n    # Example of cubed-sphere grid at c24 resolution\n    PE24x144-CF.GRID_TYPE: Cubed-Sphere\n    PE24x144-CF.IM_WORLD: 24\n    PE24x144-CF.JM_WORLD: 144\n    PE24x144-CF.LM: 72\n\n    # Example of lat-lon global grid at 1x1 resolution\n    PC360x181-DC.GRID_TYPE: LatLon\n    PC360x181-DC.IM_WORLD: 360\n    PC360x181-DC.JM_WORLD: 181\n    PC360x181-DC.POLE: PC\n    PC360x181-DC.DATELINE: DC\n    PC360x181-DC.LM: 72\n\n    # Example of lat-lon regional grid at 1x1 resolution\n    REGIONAL1x1.GRID_TYPE: LatLon\n    REGIONAL1x1.IM_WORLD: 80\n    REGIONAL1x1.JM_WORLD: 40\n    REGIONAL1x1.POLE: XY\n    REGIONAL1x1.DATELINE: XY\n    REGIONAL1x1.LON_RANGE:   0 80\n    REGIONAL1x1.LAT_RANGE: -30 10\n    REGIONAL1x1.LM: 72\n\n#==============================================================================\n# Declare collection names\n#\n# You can disable collections by commenting out with #\n#\n# WARNING: Some diagnostic collections have a subset of output fields\n# commented out by default. Inspect fields of collections you turn on\n# before running to ensure you will get the output you intend.\n#==============================================================================\nCOLLECTIONS: @#'DefaultCollection',\n             #'AerosolMass',\n             #'Aerosols',\n             @#'Budget',\n             @#'CloudConvFlux',\n             @#'ConcAboveSfc',\n             @#'ConcAfterChem',\n             #'DryDep',\n             #'Emissions',\n             #'FV3Dynamics',\n             #'GCHPctmEnvLevCenter',\n             #'GCHPctmEnvLevEdge',\n             #'JValues',\n             #'Metrics',\n             @#'KppDiags',\n             @#'KppARDiags',\n             @#'ProdLoss',\n             @##'RRTMG',\n             @##'DynHeating',\n             @##'RxnRates',\n             @##'RxnConst',\n             #'SpeciesConc',\n             @#'StateChm',\n             #'StateMet',\n             @#'StateMetLevEdge',\n             @#'StratBM',\n             @##'Tomas',\n             @#'UVFlux',\n             @#'WetLossConv',\n             @#'WetLossLS',\n::\n#==============================================================================\n# Define collections\n#\n# The rest of this file consists of collection definitions.\n# Above collections whose declarations are commented out will be ignored.\n# You can skip individual diagnostics by commenting out their names.\n#\n# WARNING: Frequency, duration, and mode will be over-written with\n# settings in setCommonRunSettings.sh. Edit settings in that file. You can execute the\n# script to update this file and then inspect results before submitting a\n# run. Collection names are hard-coded in that file; if you add more\n# collections then you must also add them there for auto-update, or manually\n# change settings for the new collection in this file.\n#\n# NOTES:\n#    (1) Template keyword defines suffix of output filename, appended to\n#        GCHP.{collection}.\n#\n#    (2) Frequency keyword sets frequency of data in each output file\n#\n#    (3) Duration keyword sets frequency of output file\n#\n#    (4) Mode keyword may be 'time-averaged' or 'instantaneous'\n#\n#    (5) See the GRID_LABELS sections above for details about output grids\n#\n#    (6) To output data on a grid other than native res global cubed sphere\n#        include the 'grid_label' field. For example,\n#\n#           SpeciesConc.grid_label:   REGIONAL1x1\n#\n#    (7) If you are outputting on a lat/lon grid, be sure to specify\n#        conservative regridding. Otherwise regridding will be bi-linear.\n#\n#           SpeciesConc.conservative: 1\n#\n#    (8) To output a reduced set of levels, use the levels keyword, e.g.:\n#\n#           SpeciesConc.levels: 1 2 3\n#\n#==============================================================================\n\n#==============================================================================\n# %%%%% THE DefaultCollection COLLECTION %%%%%\n#\n# Reduced set of output including some species concentrations, met-fields,\n# and PM2.5\n#==============================================================================\n  DefaultCollection.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  DefaultCollection.format:         'CFIO',\n  DefaultCollection.timestampStart: .true.\n  DefaultCollection.frequency:      240000\n  DefaultCollection.duration:       240000\n  DefaultCollection.mode:           'time-averaged'\n  DefaultCollection.fields:         'SpeciesConcVV_O3     ', 'GCHPchem',\n                                    'SpeciesConcVV_NO     ', 'GCHPchem',\n                                    'SpeciesConcVV_NO2    ', 'GCHPchem',\n                                    'SpeciesConcVV_OH     ', 'GCHPchem',\n                                    'SpeciesConcVV_CO     ', 'GCHPchem',\n                                    'PM25                 ', 'GCHPchem',\n                                    'Met_T                ', 'GCHPchem',\n                                    'Met_RH               ', 'GCHPchem',\n                                    'Met_PBLH             ', 'GCHPchem',\n                                    'Met_AIRDEN           ', 'GCHPchem',\n                                    'Met_PMID             ', 'GCHPchem',\n                                    'Met_PMIDDRY          ', 'GCHPchem',\n                                    'Met_TropHt           ', 'GCHPchem',\n                                    'Met_TropP            ', 'GCHPchem',\n                                    'Met_BXHEIGHT         ', 'GCHPchem',\n                                    'Met_PS1DRY           ', 'GCHPchem',\n                                    'Met_PS1WET           ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE Emissions COLLECTION %%%%%\n#\n# HEMCO emissions by species and category, and inventory emissions\n#\n# Please note that this collection is output with level definition flipped\n# relative to all other GCHP diagnostics. Level index 1 corresponds to\n# top-of-atmosphere.\n#\n# See HEMCO_Diagn.rc for additional config settings\n#==============================================================================\n  Emissions.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Emissions.format:         'CFIO',\n  Emissions.timestampStart: .true.\n  Emissions.monthly:        1\n  Emissions.frequency:      010000\n  Emissions.duration:       010000\n  Emissions.mode:           'time-averaged'\n  Emissions.fields:       'EmisACET_Total       ', 'GCHPchem',\n                          'EmisACET_BioBurn     ', 'GCHPchem',\n                          'EmisACET_Biogenic    ', 'GCHPchem',\n                          'EmisACET_Ocean       ', 'GCHPchem',\n                          'EmisACR_Total        ', 'GCHPchem',\n                          'EmisACR_BioBurn      ', 'GCHPchem',\n                          'EmisACTA_Total       ', 'GCHPchem',\n                          'EmisACTA_BioBurn     ', 'GCHPchem',\n                          'EmisALD2_Total       ', 'GCHPchem',\n                          'EmisALD2_Anthro      ', 'GCHPchem',\n                          'EmisALD2_BioBurn     ', 'GCHPchem',\n                          'EmisALD2_Biogenic    ', 'GCHPchem',\n                          'EmisALD2_Ocean       ', 'GCHPchem',\n                          'EmisALD2_PlantDecay  ', 'GCHPchem',\n                          'EmisALD2_Ship        ', 'GCHPchem',\n                          'EmisALK4_Total       ', 'GCHPchem',\n                          'EmisALK4_Aircraft    ', 'GCHPchem',\n                          'EmisALK4_Anthro      ', 'GCHPchem',\n                          'EmisALK4_BioBurn     ', 'GCHPchem',\n                          'EmisALK4_Ship        ', 'GCHPchem',\n                          'EmisALK6_Total       ', 'GCHPchem',\n                          'EmisALK6_Anthro      ', 'GCHPchem',\n                          'EmisALK6_Ship        ', 'GCHPchem',\n                          'EmisBCPI_Total       ', 'GCHPchem',\n                          'EmisBCPI_Aircraft    ', 'GCHPchem',\n                          'EmisBCPI_Anthro      ', 'GCHPchem',\n                          'EmisBCPI_BioBurn     ', 'GCHPchem',\n                          'EmisBCPI_Ship        ', 'GCHPchem',\n                          'EmisBCPO_Total       ', 'GCHPchem',\n                          'EmisBCPO_Anthro      ', 'GCHPchem',\n                          'EmisBCPO_BioBurn     ', 'GCHPchem',\n                          'EmisBCPO_Ship        ', 'GCHPchem',\n                          'EmisBENZ_Total       ', 'GCHPchem',\n                          'EmisBENZ_Anthro      ', 'GCHPchem',\n                          'EmisBENZ_BioBurn     ', 'GCHPchem',\n                          'EmisBENZ_Ship        ', 'GCHPchem',\n                          'EmisC2H2_Total       ', 'GCHPchem',\n                          'EmisC2H2_Anthro      ', 'GCHPchem',\n                          'EmisC2H2_BioBurn     ', 'GCHPchem',\n                          'EmisC2H2_Ship        ', 'GCHPchem',\n                          'EmisC2H4_Total       ', 'GCHPchem',\n                          'EmisC2H4_Anthro      ', 'GCHPchem',\n                          'EmisC2H4_BioBurn     ', 'GCHPchem',\n                          'EmisC2H4_Biogenic    ', 'GCHPchem',\n                          'EmisC2H4_Ship        ', 'GCHPchem',\n                          'EmisC2H6_Total       ', 'GCHPchem',\n                          'EmisC2H6_Aircraft    ', 'GCHPchem',\n                          'EmisC2H6_Anthro      ', 'GCHPchem',\n                          'EmisC2H6_BioBurn     ', 'GCHPchem',\n                          'EmisC2H6_Ship        ', 'GCHPchem',\n                          'EmisC3H8_Total       ', 'GCHPchem',\n                          'EmisC3H8_Aircraft    ', 'GCHPchem',\n                          'EmisC3H8_Anthro      ', 'GCHPchem',\n                          'EmisC3H8_BioBurn     ', 'GCHPchem',\n                          'EmisC3H8_Ship        ', 'GCHPchem',\n                          'EmisC4H6_Total       ', 'GCHPchem',\n                          'EmisC4H6_BioBurn     ', 'GCHPchem',\n                          'EmisCH2Br2_Ocean     ', 'GCHPchem',\n                          'EmisCH2I2_Ocean      ', 'GCHPchem',\n                          'EmisCH2ICl_Ocean     ', 'GCHPchem',\n                          'EmisCH2IBr_Ocean     ', 'GCHPchem',\n                          'EmisCH2O_Total       ', 'GCHPchem',\n                          'EmisCH2O_Aircraft    ', 'GCHPchem',\n                          'EmisCH2O_Anthro      ', 'GCHPchem',\n                          'EmisCH2O_BioBurn     ', 'GCHPchem',\n                          'EmisCH2O_Ship        ', 'GCHPchem',\n                          'EmisCH3I_Ocean       ', 'GCHPchem',\n                          ####'EmisCH4_Total        ', 'GCHPchem',\n                          ####'EmisCH4_Anthro       ', 'GCHPchem',\n                          ####'EmisCH4_BioBurn      ', 'GCHPchem',\n                          ####'EmisCH4_Ship         ', 'GCHPchem',\n                          'EmisCHBr3_Ocean      ', 'GCHPchem',\n                          'EmisCO_Total         ', 'GCHPchem',\n                          'EmisCO_Aircraft      ', 'GCHPchem',\n                          'EmisCO_Anthro        ', 'GCHPchem',\n                          'EmisCO_BioBurn       ', 'GCHPchem',\n                          'EmisCO_Ship          ', 'GCHPchem',\n                          'EmisCO2_Total        ', 'GCHPchem',\n                          'EmisCO2_Anthro       ', 'GCHPchem',\n                          'EmisCO2_BioBurn      ', 'GCHPchem',\n                          'EmisCO2_Ship         ', 'GCHPchem',\n                          'EmisDMS_Ocean        ', 'GCHPchem',\n                          'EmisDSTbin1_Total    ', 'GCHPchem',\n                          'EmisDSTbin1_Anthro   ', 'GCHPchem',\n                          'EmisDSTbin1_Natural  ', 'GCHPchem',\n                          'EmisDSTbin2_Total    ', 'GCHPchem',\n                          'EmisDSTbin2_Anthro   ', 'GCHPchem',\n                          'EmisDSTbin2_Natural  ', 'GCHPchem',\n                          'EmisDSTbin3_Total    ', 'GCHPchem',\n                          'EmisDSTbin3_Anthro   ', 'GCHPchem',\n                          'EmisDSTbin3_Natural  ', 'GCHPchem',\n                          'EmisDSTbin4_Total    ', 'GCHPchem',\n                          'EmisDSTbin4_Anthro   ', 'GCHPchem',\n                          'EmisDSTbin4_Natural  ', 'GCHPchem',\n                          'EmisDSTbin5_Natural  ', 'GCHPchem',\n                          'EmisDSTbin6_Natural  ', 'GCHPchem',\n                          'EmisDSTbin7_Natural  ', 'GCHPchem',\n                          'EmisEOH_Total        ', 'GCHPchem',\n                          'EmisEOH_Anthro       ', 'GCHPchem',\n                          'EmisEOH_BioBurn      ', 'GCHPchem',\n                          'EmisEOH_Biogenic     ', 'GCHPchem',\n                          'EmisEOH_PlantDecay   ', 'GCHPchem',\n                          'EmisEOH_Ship         ', 'GCHPchem',\n                          'EmisETNO3_Ocean      ', 'GCHPchem',\n                          'EmisFURA_Total       ', 'GCHPchem',\n                          'EmisFURA_BioBurn     ', 'GCHPchem',\n                          'EmisGLYX_Total       ', 'GCHPchem',\n                          'EmisGLYX_BioBurn     ', 'GCHPchem',\n                          'EmisH2O_Aircraft     ', 'GCHPchem',\n                          'EmisHCl_Total        ', 'GCHPchem',\n                          'EmisHCl_Anthro       ', 'GCHPchem',\n                          'EmisHCOOH_Total      ', 'GCHPchem',\n                          'EmisHCOOH_Anthro     ', 'GCHPchem',\n                          'EmisHCOOH_BioBurn    ', 'GCHPchem',\n                          'EmisHCOOH_Ship       ', 'GCHPchem',\n                          'EmisHNO3_Ship        ', 'GCHPchem',\n                          'EmisHONO_Aircraft    ', 'GCHPchem',\n                          'EmisISOP_Total       ', 'GCHPchem',\n                          'EmisISOP_BioBurn     ', 'GCHPchem',\n                          'EmisISOP_Biogenic    ', 'GCHPchem',\n                          'EmisLIMO_Biogenic    ', 'GCHPchem',\n                          'EmisMACR_Total       ', 'GCHPchem',\n                          'EmisMACR_Aircraft    ', 'GCHPchem',\n                          'EmisMEK_Total        ', 'GCHPchem',\n                          'EmisMEK_Anthro       ', 'GCHPchem',\n                          'EmisMEK_BioBurn      ', 'GCHPchem',\n                          'EmisMEK_Ship         ', 'GCHPchem',\n                          'EmisMENO3_Ocean      ', 'GCHPchem',\n                          'EmisMGLY_Total       ', 'GCHPchem',\n                          'EmisMGLY_BioBurn     ', 'GCHPchem',\n                          'EmisMOH_Total        ', 'GCHPchem',\n                          'EmisMOH_Anthro       ', 'GCHPchem',\n                          'EmisMOH_BioBurn      ', 'GCHPchem',\n                          'EmisMOH_Biogenic     ', 'GCHPchem',\n                          'EmisMOH_Ocean        ', 'GCHPchem',\n                          'EmisMOH_Ship         ', 'GCHPchem',\n                          'EmisMTPA_Total       ', 'GCHPchem',\n                          'EmisMTPA_BioBurn     ', 'GCHPchem',\n                          'EmisMTPA_Biogenic    ', 'GCHPchem',\n                          'EmisMTPO_Total       ', 'GCHPchem',\n                          'EmisMTPO_Biogenic    ', 'GCHPchem',\n                          'EmisMVK_Total        ', 'GCHPchem',\n                          'EmisMVK_BioBurn      ', 'GCHPchem',\n                          'EmisNAP_Total        ', 'GCHPchem',\n                          'EmisNAP_Anthro       ', 'GCHPchem',\n                          'EmisNAP_BioBurn      ', 'GCHPchem',\n                          'EmisNH3_Total        ', 'GCHPchem',\n                          'EmisNH3_Anthro       ', 'GCHPchem',\n                          'EmisNH3_BioBurn      ', 'GCHPchem',\n                          'EmisNH3_Natural      ', 'GCHPchem',\n                          'EmisNH3_Seabirds     ', 'GCHPchem',\n                          'EmisNH3_Ship         ', 'GCHPchem',\n                          'EmisNO_Total         ', 'GCHPchem',\n                          'EmisNO_Aircraft      ', 'GCHPchem',\n                          'EmisNO_Anthro        ', 'GCHPchem',\n                          'EmisNO_BioBurn       ', 'GCHPchem',\n                          'EmisNO_Lightning     ', 'GCHPchem',\n                          'EmisNO_Ship          ', 'GCHPchem',\n                          'EmisNO_Soil          ', 'GCHPchem',\n                          ####\n                          #### NOTE: EmisNO_Soil contains soil + fertilizer.\n                          #### EmisNO_Fert contains only fertilizer, and can\n                          #### only be used when the SoilNOx extension is on.\n                          #### Comment out EmisNO_Fert unless you REALLY\n                          #### need a separate diagnostic for fertilizer.\n                          ####\n                          ####'EmisNO_Fert          ', 'GCHPchem',\n                          'EmisNO2_Total        ', 'GCHPchem',\n                          'EmisNO2_Aircraft     ', 'GCHPchem',\n                          'EmisNO2_Ship         ', 'GCHPchem',\n                          'EmisO3_Ship          ', 'GCHPchem',\n                          'EmisOCPI_Total       ', 'GCHPchem',\n                          'EmisOCPI_Aircraft    ', 'GCHPchem',\n                          'EmisOCPI_Anthro      ', 'GCHPchem',\n                          'EmisOCPI_BioBurn     ', 'GCHPchem',\n                          'EmisOCPI_Ship        ', 'GCHPchem',\n                          'EmisOCPO_Total       ', 'GCHPchem',\n                          'EmisOCPO_Anthro      ', 'GCHPchem',\n                          'EmisOCPO_BioBurn     ', 'GCHPchem',\n                          'EmisOCPO_Ship        ', 'GCHPchem',\n                          'EmispFe_Total        ', 'GCHPchem',\n                          'EmispFe_Anthro       ', 'GCHPchem',\n                          'EmispFe_Ship         ', 'GCHPchem',\n                          'EmisPHEN_Total       ', 'GCHPchem',\n                          'EmisPHEN_BioBurn     ', 'GCHPchem',\n                          'EmisPOG1_Total       ', 'GCHPchem',\n                          'EmisPOG1_Anthro      ', 'GCHPchem',\n                          'EmisPOG1_BioBurn     ', 'GCHPchem',\n                          'EmisPOG2_Total       ', 'GCHPchem',\n                          'EmisPOG2_Anthro      ', 'GCHPchem',\n                          'EmisPOG2_BioBurn     ', 'GCHPchem',\n                          'EmisPRPE_Total       ', 'GCHPchem',\n                          'EmisPRPE_Aircraft    ', 'GCHPchem',\n                          'EmisPRPE_Anthro      ', 'GCHPchem',\n                          'EmisPRPE_BioBurn     ', 'GCHPchem',\n                          'EmisPRPE_Biogenic    ', 'GCHPchem',\n                          'EmisPRPE_Ship        ', 'GCHPchem',\n                          'EmisRCHO_Total       ', 'GCHPchem',\n                          'EmisRCHO_Aircraft    ', 'GCHPchem',\n                          'EmisRCHO_BioBurn     ', 'GCHPchem',\n                          ####\n                          #### NOTE: SESQ is not an advected species,\n                          #### so leave this commented out for now.\n                          ####\n                          ####'EmisSESQ_Biogenic    ', 'GCHPchem',\n                          'EmisSALA_Natural     ', 'GCHPchem',\n                          'EmisBrSALA_Natural   ', 'GCHPchem',\n                          'EmisSALAAL_Natural   ', 'GCHPchem',\n                          'EmisSALACL_Natural   ', 'GCHPchem',\n                          'EmisSALC_Natural     ', 'GCHPchem',\n                          'EmisBrSALC_Natural   ', 'GCHPchem',\n                          'EmisSALCAL_Natural   ', 'GCHPchem',\n                          'EmisSALCCL_Natural   ', 'GCHPchem',\n                          'EmisSO2_Total        ', 'GCHPchem',\n                          'EmisSO2_Aircraft     ', 'GCHPchem',\n                          'EmisSO2_Anthro       ', 'GCHPchem',\n                          'EmisSO2_BioBurn      ', 'GCHPchem',\n                          'EmisSO2_VolcErupt    ', 'GCHPchem',\n                          'EmisSO2_VolcDegas    ', 'GCHPchem',\n                          'EmisSO2_Ship         ', 'GCHPchem',\n                          'EmisSO4_Total        ', 'GCHPchem',\n                          'EmisSO4_Aircraft     ', 'GCHPchem',\n                          'EmisSO4_Anthro       ', 'GCHPchem',\n                          'EmisSO4_Ship         ', 'GCHPchem',\n                          'EmisSOAP_Total       ', 'GCHPchem',\n                          'EmisSOAP_Aircraft    ', 'GCHPchem',\n                          'EmisSOAP_Anthro      ', 'GCHPchem',\n                          'EmisSOAP_Biogenic    ', 'GCHPchem',\n                          'EmisSOAP_BioBurn     ', 'GCHPchem',\n                          'EmisSOAP_Ship        ', 'GCHPchem',\n                          'EmisSOAS_Biogenic    ', 'GCHPchem',\n                          'EmisSTYR_Total       ', 'GCHPchem',\n                          'EmisSTYR_BioBurn     ', 'GCHPchem',\n                          'EmisTMB_Total        ', 'GCHPchem',\n                          'EmisTMB_Anthro       ', 'GCHPchem',\n                          'EmisTMB_Ship         ', 'GCHPchem',\n                          'EmisTOLU_Total       ', 'GCHPchem',\n                          'EmisTOLU_Anthro      ', 'GCHPchem',\n                          'EmisTOLU_BioBurn     ', 'GCHPchem',\n                          'EmisTOLU_Ship        ', 'GCHPchem',\n                          'EmisXYLE_Total       ', 'GCHPchem',\n                          'EmisXYLE_Anthro      ', 'GCHPchem',\n                          'EmisXYLE_BioBurn     ', 'GCHPchem',\n                          'EmisXYLE_Ship        ', 'GCHPchem',\n                          'HcoLightningFlashRate_Total     ', 'GCHPchem',\n                          'HcoLightningFlashRate_IntraCld  ', 'GCHPchem',\n                          'HcoLightningFlashRate_CldGround ', 'GCHPchem',\n                          'HcoConvectiveCloudTopHeight     ', 'GCHPchem',\n                          #'InvCEDS_ALD2         ', 'GCHPchem',\n                          #'InvCEDS_ALK4         ', 'GCHPchem',\n                          #'InvCEDS_ALK6         ', 'GCHPchem',\n                          #'InvCEDS_BCPI         ', 'GCHPchem',\n                          #'InvCEDS_BCPO         ', 'GCHPchem',\n                          #'InvCEDS_BENZ         ', 'GCHPchem',\n                          #'InvCEDS_C2H2         ', 'GCHPchem',\n                          ####'InvCEDS_C2H4         ', 'GCHPchem',\n                          #'InvCEDS_C2H6         ', 'GCHPchem',\n                          #'InvCEDS_C3H8         ', 'GCHPchem',\n                          #'InvCEDS_CH2O         ', 'GCHPchem',\n                          #'InvCEDS_CO           ', 'GCHPchem',\n                          #'InvCEDS_MOH          ', 'GCHPchem',\n                          #'InvCEDS_EOH          ', 'GCHPchem',\n                          #'InvCEDS_ROH          ', 'GCHPchem',\n                          #'InvCEDS_HCOOH        ', 'GCHPchem',\n                          #'InvCEDS_MEK          ', 'GCHPchem',\n                          #'InvCEDS_NH3          ', 'GCHPchem',\n                          #'InvCEDS_NO           ', 'GCHPchem',\n                          #'InvCEDS_OCPI         ', 'GCHPchem',\n                          #'InvCEDS_OCPO         ', 'GCHPchem',\n                          #'InvCEDS_pFe          ', 'GCHPchem',\n                          #'InvCEDS_POG1         ', 'GCHPchem',\n                          #'InvCEDS_POG2         ', 'GCHPchem',\n                          #'InvCEDS_PRPE         ', 'GCHPchem',\n                          #'InvCEDS_SO2          ', 'GCHPchem',\n                          #'InvCEDS_SO4          ', 'GCHPchem',\n                          #'InvCEDS_SOAP         ', 'GCHPchem',\n                          #'InvCEDS_TMB          ', 'GCHPchem',\n                          #'InvCEDS_TOLU         ', 'GCHPchem',\n                          #'InvCEDS_XYLE         ', 'GCHPchem',\n                          #'InvGEIAnatural_NH3   ', 'GCHPchem',\n                          #'InvSEABIRDS_NH3      ', 'GCHPchem',\n                          #'InvC2H62010_C2H6     ', 'GCHPchem',\n                          #'InvXIAO_C3H8         ', 'GCHPchem',\n                          #'InvLIANG_CH2Br2      ', 'GCHPchem',\n                          #'InvLIANG_CHBr3       ', 'GCHPchem',\n                          #'InvORDONEZ_CH2I2     ', 'GCHPchem',\n                          #'InvORDONEZ_CH2ICl    ', 'GCHPchem',\n                          #'InvORDONEZ_CH2IBr    ', 'GCHPchem',\n                          #'InvORDONEZ_CH3I      ', 'GCHPchem',\n                          #'InvGTChlorine_HCl    ', 'GCHPchem',\n                          #'InvCEDSship_ALD2     ', 'GCHPchem',\n                          #'InvCEDSship_ALK4     ', 'GCHPchem',\n                          #'InvCEDSship_ALK6     ', 'GCHPchem',\n                          #'InvCEDSship_BCPI     ', 'GCHPchem',\n                          #'InvCEDSship_BCPO     ', 'GCHPchem',\n                          #'InvCEDSship_BENZ     ', 'GCHPchem',\n                          #'InvCEDSship_C2H2     ', 'GCHPchem',\n                          #'InvCEDSship_C2H4     ', 'GCHPchem',\n                          #'InvCEDSship_C2H6     ', 'GCHPchem',\n                          #'InvCEDSship_C3H8     ', 'GCHPchem',\n                          #'InvCEDSship_CH2O     ', 'GCHPchem',\n                          #'InvCEDSship_CO       ', 'GCHPchem',\n                          #'InvCEDSship_EOH      ', 'GCHPchem',\n                          #'InvCEDSship_HCOOH    ', 'GCHPchem',\n                          #'InvCEDSship_MEK      ', 'GCHPchem',\n                          #'InvCEDSship_NH3      ', 'GCHPchem',\n                          #'InvCEDSship_pFe      ', 'GCHPchem',\n                          #'InvCEDSship_PRPE     ', 'GCHPchem',\n                          #'InvCEDSship_OCPI     ', 'GCHPchem',\n                          #'InvCEDSship_OCPO     ', 'GCHPchem',\n                          #'InvCEDSship_SO2      ', 'GCHPchem',\n                          #'InvCEDSship_SO4      ', 'GCHPchem',\n                          #'InvCEDSship_SOAP     ', 'GCHPchem',\n                          #'InvCEDSship_TMB      ', 'GCHPchem',\n                          #'InvCEDSship_TOLU     ', 'GCHPchem',\n                          #'InvCEDSship_XYLE     ', 'GCHPchem',\n                          #'InvAEIC_ACET     ', 'GCHPchem',\n                          #'InvAEIC_ALD2     ', 'GCHPchem',\n                          #'InvAEIC_ALK4     ', 'GCHPchem',\n                          #'InvAEIC_BCPI     ', 'GCHPchem',\n                          #'InvAEIC_C2H6     ', 'GCHPchem',\n                          #'InvAEIC_C3H8     ', 'GCHPchem',\n                          #'InvAEIC_CH2O     ', 'GCHPchem',\n                          #'InvAEIC_CO       ', 'GCHPchem',\n                          #'InvAEIC_HONO     ', 'GCHPchem',\n                          #'InvAEIC_MACR     ', 'GCHPchem',\n                          #'InvAEIC_NO       ', 'GCHPchem',\n                          #'InvAEIC_NO2      ', 'GCHPchem',\n                          #'InvAEIC_OCPI     ', 'GCHPchem',\n                          #'InvAEIC_PRPE     ', 'GCHPchem',\n                          #'InvAEIC_RCHO     ', 'GCHPchem',\n                          #'InvAEIC_SO2      ', 'GCHPchem',\n                          #'InvAEIC_SO4      ', 'GCHPchem',\n                          #'InvAEIC_SOAP     ', 'GCHPchem',\n                          #'InvPLANTDECAY_ALD2   ', 'GCHPchem',\n                          #'InvPLANTDECAY_EOH    ', 'GCHPchem',\n                          #'InvAFCID_DST1        ', 'GCHPchem',\n                          #'InvSeaFlux_ACET      ', 'GCHPchem',\n                          #'InvSeaFlux_ALD2      ', 'GCHPchem',\n                          #'InvSeaFlux_DMS       ', 'GCHPchem',\n                          #'InvSeaFlux_ETNO3     ', 'GCHPchem',\n                          #'InvSeaFlux_MENO3     ', 'GCHPchem',\n                          #'InvSeaFlux_MOH       ', 'GCHPchem',\n                          #'InvPARANOX_HNO3      ', 'GCHPchem',\n                          #'InvPARANOX_NO        ', 'GCHPchem',\n                          #'InvPARANOX_NO2       ', 'GCHPchem',\n                          #'InvPARANOX_O3        ', 'GCHPchem',\n                          #'InvLIGHTNOX_NO       ', 'GCHPchem',\n                          #'InvSOILNOX_NO        ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin1  ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin2  ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin3  ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin4  ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin5  ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin6  ', 'GCHPchem',\n                          #'InvDustL23M_DSTbin7  ', 'GCHPchem',\n                          #'InvSeaSalt_BrSALA    ', 'GCHPchem',\n                          #'InvSeaSalt_BrSALC    ', 'GCHPchem',\n                          #'InvSeaSalt_SALA      ', 'GCHPchem',\n                          #'InvSeaSalt_SALC      ', 'GCHPchem',\n                          #'InvSeaSalt_SALAAL    ', 'GCHPchem',\n                          #'InvSeaSalt_SALACL    ', 'GCHPchem',\n                          #'InvSeaSalt_SALCAL    ', 'GCHPchem',\n                          #'InvSeaSalt_SALCCL    ', 'GCHPchem',\n                          #'InvMEGAN_ALD2        ', 'GCHPchem',\n                          ####'InvMEGAN_C2H4        ', 'GCHPchem',\n                          #'InvMEGAN_EOH         ', 'GCHPchem',\n                          #'InvMEGAN_ISOP        ', 'GCHPchem',\n                          #'InvMEGAN_LIMO        ', 'GCHPchem',\n                          #'InvMEGAN_MTPA        ', 'GCHPchem',\n                          #'InvMEGAN_MTPO        ', 'GCHPchem',\n                          #'InvMEGAN_PRPE        ', 'GCHPchem',\n                          ####'InvMEGAN_SESQ        ', 'GCHPchem',\n                          #'InvMEGAN_SOAP        ', 'GCHPchem',\n                          #'InvMEGAN_SOAS        ', 'GCHPchem',\n                          #'InvMEGAN_ACET        ', 'GCHPchem',\n                          #'InvMEGAN_ACET_MONO   ', 'GCHPchem',\n                          #'InvMEGAN_ACET_MBOX   ', 'GCHPchem',\n                          #'InvMEGAN_ACET_DIRECT ', 'GCHPchem',\n                          #'InvMEGAN_MOH         ', 'GCHPchem',\n                          #'InvMEGAN_APIN        ', 'GCHPchem',\n                          #'InvMEGAN_BPIN        ', 'GCHPchem',\n                          #'InvMEGAN_SABI        ', 'GCHPchem',\n                          #'InvMEGAN_MYRC        ', 'GCHPchem',\n                          #'InvMEGAN_CARE        ', 'GCHPchem',\n                          #'InvMEGAN_OCIM        ', 'GCHPchem',\n                          #'InvMEGAN_OMON        ', 'GCHPchem',\n                          #'InvMEGAN_MONX        ', 'GCHPchem',\n                          #'InvMEGAN_FARN        ', 'GCHPchem',\n                          #'InvMEGAN_BCAR        ', 'GCHPchem',\n                          #'InvMEGAN_OSQT        ', 'GCHPchem',\n                          #'InvMEGAN_MBOX        ', 'GCHPchem',\n                          #'InvMEGAN_FAXX        ', 'GCHPchem',\n                          #'InvMEGAN_AAXX        ', 'GCHPchem',\n                          #'InvGFED_ACET         ', 'GCHPchem',\n                          #'InvGFED_ACR          ', 'GCHPchem',\n                          #'InvGFED_ACTA         ', 'GCHPchem',\n                          #'InvGFED_ALD2         ', 'GCHPchem',\n                          #'InvGFED_ALK4         ', 'GCHPchem',\n                          #'InvGFED_BCPI         ', 'GCHPchem',\n                          #'InvGFED_BCPO         ', 'GCHPchem',\n                          #'InvGFED_BENZ         ', 'GCHPchem',\n                          #'InvGFED_C2H6         ', 'GCHPchem',\n                          #'InvGFED_C3H8         ', 'GCHPchem',\n                          #'InvGFED_C4H6         ', 'GCHPchem',\n                          #'InvGFED_CH2O         ', 'GCHPchem',\n                          #'InvGFED_CO           ', 'GCHPchem',\n                          #'InvGFED_EOH          ', 'GCHPchem',\n                          #'InvGFED_FURA         ', 'GCHPchem',\n                          #'InvGFED_GLYX         ', 'GCHPchem',\n                          #'InvGFED_HCOOH        ', 'GCHPchem',\n                          #'InvGFED_ISOP         ', 'GCHPchem',\n                          #'InvGFED_MEK          ', 'GCHPchem',\n                          #'InvGFED_MGLY         ', 'GCHPchem',\n                          #'InvGFED_MOH          ', 'GCHPchem',\n                          #'InvGFED_MTPA         ', 'GCHPchem',\n                          #'InvGFED_MVK          ', 'GCHPchem',\n                          #'InvGFED_NAP          ', 'GCHPchem',\n                          #'InvGFED_NH3          ', 'GCHPchem',\n                          #'InvGFED_NO           ', 'GCHPchem',\n                          #'InvGFED_OCPI         ', 'GCHPchem',\n                          #'InvGFED_OCPO         ', 'GCHPchem',\n                          #'InvGFED_PHEN         ', 'GCHPchem',\n                          #'InvGFED_POG1         ', 'GCHPchem',\n                          #'InvGFED_POG2         ', 'GCHPchem',\n                          #'InvGFED_PRPE         ', 'GCHPchem',\n                          #'InvGFED_RCHO         ', 'GCHPchem',\n                          #'InvGFED_SO2          ', 'GCHPchem',\n                          #'InvGFED_SOAP         ', 'GCHPchem',\n                          #'InvGFED_STYR         ', 'GCHPchem',\n                          #'InvGFED_TOLU         ', 'GCHPchem',\n                          #'InvGFED_XYLE         ', 'GCHPchem',\n                          #'InvVOLCANOerupt_SO2  ', 'GCHPchem',\n                          #'InvVOLCANOdegas_SO2  ', 'GCHPchem',\n                          #'InvIODINE_HOI        ', 'GCHPchem',\n                          #'InvIODINE_I2         ', 'GCHPchem',\n::\n#==============================================================================\n  FV3Dynamics.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  FV3Dynamics.format:         'CFIO',\n  FV3Dynamics.timestampStart: .true.\n  FV3Dynamics.monthly:        1\n  FV3Dynamics.frequency:      010000\n  FV3Dynamics.duration:       010000\n  FV3Dynamics.mode:           'time-averaged'\n  FV3Dynamics.fields:         'PLE_R4    ', 'DYNAMICS',\n                              'DryPLE_R4 ', 'DYNAMICS',\n                              'PLEadv_R4 ', 'DYNAMICS',\n::\n#==============================================================================\n  GCHPctmEnvLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  GCHPctmEnvLevEdge.format:         'CFIO',\n  GCHPctmEnvLevEdge.timestampStart: .true.\n  GCHPctmEnvLevEdge.monthly:        1\n  GCHPctmEnvLevEdge.frequency:      010000\n  GCHPctmEnvLevEdge.duration:       010000\n  GCHPctmEnvLevEdge.mode:           'time-averaged'\n  GCHPctmEnvLevEdge.fields:         'UpwardsMassFlux_R4    ', 'GCHPctmEnv',\n                                    'PLE0_R4               ', 'GCHPctmEnv',\n                                    'PLE1_R4               ', 'GCHPctmEnv',\n                                    'DryPLE0_R4            ', 'GCHPctmEnv',\n                                    'DryPLE1_R4            ', 'GCHPctmEnv',\n::\n#==============================================================================\n  GCHPctmEnvLevCenter.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  GCHPctmEnvLevCenter.format:         'CFIO',\n  GCHPctmEnvLevCenter.timestampStart: .true.\n  GCHPctmEnvLevCenter.monthly:        1\n  GCHPctmEnvLevCenter.frequency:      010000\n  GCHPctmEnvLevCenter.duration:       010000\n  GCHPctmEnvLevCenter.mode:           'time-averaged'\n  GCHPctmEnvLevCenter.fields:         'SPHU0_R4    ', 'GCHPctmEnv',\n                                      'CX_R4       ', 'GCHPctmEnv',\n                                      'CY_R4       ', 'GCHPctmEnv',\n                                      'MFX_R4      ', 'GCHPctmEnv',\n                                      'MFY_R4      ', 'GCHPctmEnv',\n::\n#==============================================================================\n# %%%%% THE AerosolMass COLLECTION %%%%%\n#\n# Aerosol and PM2.5 mass\n#==============================================================================\n  AerosolMass.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AerosolMass.format:         'CFIO',\n  AerosolMass.timestampStart: .true.\n  AerosolMass.monthly:        1\n  AerosolMass.frequency:      010000\n  AerosolMass.duration:       010000\n  AerosolMass.mode:           'time-averaged'\n  AerosolMass.fields:     'AerMassBC          ', 'GCHPchem',\n                          'AerMassINDIOL      ', 'GCHPchem',\n                          'AerMassLVOCOA      ', 'GCHPchem',\n                          'AerMassNH4         ', 'GCHPchem',\n                          'AerMassNIT         ', 'GCHPchem',\n                          'AerMassPOA         ', 'GCHPchem',\n                          'AerMassSAL         ', 'GCHPchem',\n                          'AerMassSO4         ', 'GCHPchem',\n                          'AerMassSOAGX       ', 'GCHPchem',\n                          'AerMassSOAIE       ', 'GCHPchem',\n                          'PM25               ', 'GCHPchem',\n                          'PM10               ', 'GCHPchem',\n                          'TotalOA            ', 'GCHPchem',\n                          'TotalOC            ', 'GCHPchem',\n                          #'AerMassASOA        ', 'GCHPchem',\n                          #'AerMassOPOA        ', 'GCHPchem',\n                          #'AerMassTSOA        ', 'GCHPchem',\n                          #'BetaNO             ', 'GCHPchem',\n                          #'TotalBiogenicOA    ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% The Aerosols COLLECTION %%%%%\n#\n# Aerosol optical depth, surface area, number density, and hygroscopic growth\n#==============================================================================\n  Aerosols.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Aerosols.format:         'CFIO',\n  Aerosols.timestampStart: .true.\n  Aerosols.monthly:        1\n  Aerosols.frequency:      010000\n  Aerosols.duration:       010000\n  Aerosols.mode:           'time-averaged'\n  Aerosols.fields:        'AODHygWL1_SO4                 ', 'GCHPchem',\n                          'AODHygWL1_BCPI                ', 'GCHPchem',\n                          'AODHygWL1_OCPI                ', 'GCHPchem',\n                          'AODHygWL1_SALA                ', 'GCHPchem',\n                          'AODHygWL1_SALC                ', 'GCHPchem',\n                          'AODDust                       ', 'GCHPchem',\n                          'AODDustWL1_bin1               ', 'GCHPchem',\n                          'AODDustWL1_bin2               ', 'GCHPchem',\n                          'AODDustWL1_bin3               ', 'GCHPchem',\n                          'AODDustWL1_bin4               ', 'GCHPchem',\n                          'AODDustWL1_bin5               ', 'GCHPchem',\n                          'AODDustWL1_bin6               ', 'GCHPchem',\n                          'AODDustWL1_bin7               ', 'GCHPchem',\n                          'AODSOAfromAqIsopreneWL1       ', 'GCHPchem',\n                          'AODStratLiquidAerWL1          ', 'GCHPchem',\n                          'AODPolarStratCloudWL1         ', 'GCHPchem',\n                          'AerHygroscopicGrowth_SO4      ', 'GCHPchem',\n                          'AerHygroscopicGrowth_BCPI     ', 'GCHPchem',\n                          'AerHygroscopicGrowth_OCPI     ', 'GCHPchem',\n                          'AerHygroscopicGrowth_SALA     ', 'GCHPchem',\n                          'AerHygroscopicGrowth_SALC     ', 'GCHPchem',\n                          'AerNumDensityStratLiquid      ', 'GCHPchem',\n                          'AerNumDensityStratParticulate ', 'GCHPchem',\n                          'AerAqueousVolume              ', 'GCHPchem',\n                          'AerSurfAreaDust               ', 'GCHPchem',\n                          'AerSurfAreaHyg_SO4            ', 'GCHPchem',\n                          'AerSurfAreaHyg_BCPI           ', 'GCHPchem',\n                          'AerSurfAreaHyg_OCPI           ', 'GCHPchem',\n                          'AerSurfAreaHyg_SALA           ', 'GCHPchem',\n                          'AerSurfAreaHyg_SALC           ', 'GCHPchem',\n                          'AerSurfAreaStratLiquid        ', 'GCHPchem',\n                          'AerSurfAreaPolarStratCloud    ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST1           ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST2           ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST3           ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST4           ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST5           ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST6           ', 'GCHPchem',\n                          'Chem_AeroAreaMDUST7           ', 'GCHPchem',\n                          'Chem_AeroAreaSULF             ', 'GCHPchem',\n                          'Chem_AeroAreaBC               ', 'GCHPchem',\n                          'Chem_AeroAreaOC               ', 'GCHPchem',\n                          'Chem_AeroAreaSSA              ', 'GCHPchem',\n                          'Chem_AeroAreaSSC              ', 'GCHPchem',\n                          'Chem_AeroAreaBGSULF           ', 'GCHPchem',\n                          'Chem_AeroAreaICEI             ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST1           ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST2           ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST3           ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST4           ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST5           ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST6           ', 'GCHPchem',\n                          'Chem_AeroRadiMDUST7           ', 'GCHPchem',\n                          'Chem_AeroRadiSULF             ', 'GCHPchem',\n                          'Chem_AeroRadiBC               ', 'GCHPchem',\n                          'Chem_AeroRadiOC               ', 'GCHPchem',\n                          'Chem_AeroRadiSSA              ', 'GCHPchem',\n                          'Chem_AeroRadiSSC              ', 'GCHPchem',\n                          'Chem_AeroRadiBGSULF           ', 'GCHPchem',\n                          'Chem_AeroRadiICEI             ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST1        ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST2        ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST3        ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST4        ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST5        ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST6        ', 'GCHPchem',\n                          'Chem_WetAeroAreaMDUST7        ', 'GCHPchem',\n                          'Chem_WetAeroAreaSULF          ', 'GCHPchem',\n                          'Chem_WetAeroAreaBC            ', 'GCHPchem',\n                          'Chem_WetAeroAreaOC            ', 'GCHPchem',\n                          'Chem_WetAeroAreaSSA           ', 'GCHPchem',\n                          'Chem_WetAeroAreaSSC           ', 'GCHPchem',\n                          'Chem_WetAeroAreaBGSULF        ', 'GCHPchem',\n                          'Chem_WetAeroAreaICEI          ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST1        ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST2        ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST3        ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST4        ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST5        ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST6        ', 'GCHPchem',\n                          'Chem_WetAeroRadiMDUST7        ', 'GCHPchem',\n                          'Chem_WetAeroRadiSULF          ', 'GCHPchem',\n                          'Chem_WetAeroRadiBC            ', 'GCHPchem',\n                          'Chem_WetAeroRadiOC            ', 'GCHPchem',\n                          'Chem_WetAeroRadiSSA           ', 'GCHPchem',\n                          'Chem_WetAeroRadiSSC           ', 'GCHPchem',\n                          'Chem_WetAeroRadiBGSULF        ', 'GCHPchem',\n                          'Chem_WetAeroRadiICEI          ', 'GCHPchem',\n                          'Chem_StatePSC                 ', 'GCHPchem',\n                          'Chem_KhetiSLAN2O5H2O          ', 'GCHPchem',\n                          'Chem_KhetiSLAN2O5HCl          ', 'GCHPchem',\n                          'Chem_KhetiSLAClNO3H2O         ', 'GCHPchem',\n                          'Chem_KhetiSLAClNO3HCl         ', 'GCHPchem',\n                          'Chem_KhetiSLAClNO3HBr         ', 'GCHPchem',\n                          'Chem_KhetiSLABrNO3H2O         ', 'GCHPchem',\n                          'Chem_KhetiSLABrNO3HCl         ', 'GCHPchem',\n                          'Chem_KhetiSLAHOClHCl          ', 'GCHPchem',\n                          'Chem_KhetiSLAHOClHBr          ', 'GCHPchem',\n                          'Chem_KhetiSLAHOBrHCl          ', 'GCHPchem',\n                          'Chem_KhetiSLAHOBrHBr          ', 'GCHPchem',\n                          'PDER                          ', 'GCHPchem',\n::\n#==============================================================================\n# Budget defined as species kg/s in the column (full, troposphere, or PBL)\n# due to a single component (e.g. chemistry); default = SO4 only; add more\n# species as needed (advected only)\n#==============================================================================\n  Budget.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.format:          'CFIO',\n  Budget.timestampStart:  .true.\n  Budget.monthly:         1\n  Budget.frequency:       010000\n  Budget.duration:        010000\n  Budget.mode:            'time-averaged'\n  Budget.fields:          'BudgetWetDepFull_SO4         ', 'GCHPchem',\n                          'BudgetChemistryFull_SO4      ', 'GCHPchem',\n                          'BudgetConvectionFull_SO4     ', 'GCHPchem',\n                          'BudgetMixingFull_SO4         ', 'GCHPchem',\n                          'BudgetEmisDryDepFull_SO4     ', 'GCHPchem',\n                          #\n                          'BudgetWetDepLevs1to35_SO4    ', 'GCHPchem',\n                          'BudgetChemistryLevs1to35_SO4 ', 'GCHPchem',\n                          'BudgetConvectionLevs1to35_SO4', 'GCHPchem',\n                          'BudgetMixingLevs1to35_SO4    ', 'GCHPchem',\n                          'BudgetEmisDryDepLevs1to35_SO4', 'GCHPchem',\n                           #\n                          'BudgetWetDepTrop_SO4         ', 'GCHPchem',\n                          'BudgetChemistryTrop_SO4      ', 'GCHPchem',\n                          'BudgetConvectionTrop_SO4     ', 'GCHPchem',\n                          'BudgetMixingTrop_SO4         ', 'GCHPchem',\n                          'BudgetEmisDryDepTrop_SO4     ', 'GCHPchem',\n                           #\n                          'BudgetWetDepPBL_SO4          ', 'GCHPchem',\n                          'BudgetChemistryPBL_SO4       ', 'GCHPchem',\n                          'BudgetConvectionPBL_SO4      ', 'GCHPchem',\n                          'BudgetMixingPBL_SO4          ', 'GCHPchem',\n                          'BudgetEmisDryDepPBL_SO4      ', 'GCHPchem',\n::\n#=============================================================================\n#%%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#=============================================================================\n  CloudConvFlux.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.format:         'CFIO',\n  CloudConvFlux.timestampStart: .true.\n  CloudConvFlux.monthly:        1\n  CloudConvFlux.frequency:      010000\n  CloudConvFlux.duration:       010000\n  CloudConvFlux.mode:           'time-averaged'\n  CloudConvFlux.fields:    'CloudConvFlux_XYLE          ', 'GCHPchem',\n                           'CloudConvFlux_TOLU          ', 'GCHPchem',\n                           'CloudConvFlux_SOAS          ', 'GCHPchem',\n                           'CloudConvFlux_SOAP          ', 'GCHPchem',\n                           'CloudConvFlux_SOAIE         ', 'GCHPchem',\n                           'CloudConvFlux_SOAGX         ', 'GCHPchem',\n                           'CloudConvFlux_SO4s          ', 'GCHPchem',\n                           'CloudConvFlux_SO4           ', 'GCHPchem',\n                           'CloudConvFlux_SO2           ', 'GCHPchem',\n                           'CloudConvFlux_SALCCL        ', 'GCHPchem',\n                           'CloudConvFlux_SALCAL        ', 'GCHPchem',\n                           'CloudConvFlux_SALC          ', 'GCHPchem',\n                           'CloudConvFlux_SALACL        ', 'GCHPchem',\n                           'CloudConvFlux_SALAAL        ', 'GCHPchem',\n                           'CloudConvFlux_SALA          ', 'GCHPchem',\n                           'CloudConvFlux_RP            ', 'GCHPchem',\n                           'CloudConvFlux_RIPD          ', 'GCHPchem',\n                           'CloudConvFlux_RIPC          ', 'GCHPchem',\n                           'CloudConvFlux_RIPB          ', 'GCHPchem',\n                           'CloudConvFlux_RIPA          ', 'GCHPchem',\n                           'CloudConvFlux_RCHO          ', 'GCHPchem',\n                           'CloudConvFlux_RB3P          ', 'GCHPchem',\n                           'CloudConvFlux_RA3P          ', 'GCHPchem',\n                           'CloudConvFlux_R4P           ', 'GCHPchem',\n                           'CloudConvFlux_R4N2          ', 'GCHPchem',\n                           'CloudConvFlux_PYAC          ', 'GCHPchem',\n                           'CloudConvFlux_PRPN          ', 'GCHPchem',\n                           'CloudConvFlux_PRPE          ', 'GCHPchem',\n                           'CloudConvFlux_PROPNN        ', 'GCHPchem',\n                           'CloudConvFlux_PPN           ', 'GCHPchem',\n                           'CloudConvFlux_PP            ', 'GCHPchem',\n                           'CloudConvFlux_PIP           ', 'GCHPchem',\n                           'CloudConvFlux_pFe           ', 'GCHPchem',\n                           'CloudConvFlux_PAN           ', 'GCHPchem',\n                           'CloudConvFlux_OIO           ', 'GCHPchem',\n                           'CloudConvFlux_OCS           ', 'GCHPchem',\n                           'CloudConvFlux_OCPO          ', 'GCHPchem',\n                           'CloudConvFlux_OCPI          ', 'GCHPchem',\n                           'CloudConvFlux_OClO          ', 'GCHPchem',\n                           'CloudConvFlux_O3            ', 'GCHPchem',\n                           'CloudConvFlux_NPRNO3        ', 'GCHPchem',\n                           'CloudConvFlux_NO3           ', 'GCHPchem',\n                           'CloudConvFlux_NO2           ', 'GCHPchem',\n                           'CloudConvFlux_NO            ', 'GCHPchem',\n                           'CloudConvFlux_NITs          ', 'GCHPchem',\n                           'CloudConvFlux_NIT           ', 'GCHPchem',\n                           'CloudConvFlux_NH4           ', 'GCHPchem',\n                           'CloudConvFlux_NH3           ', 'GCHPchem',\n                           'CloudConvFlux_N2O5          ', 'GCHPchem',\n                           'CloudConvFlux_N2O           ', 'GCHPchem',\n                           'CloudConvFlux_MVKPC         ', 'GCHPchem',\n                           'CloudConvFlux_MVKN          ', 'GCHPchem',\n                           'CloudConvFlux_MVKHP         ', 'GCHPchem',\n                           'CloudConvFlux_MVKHCB        ', 'GCHPchem',\n                           'CloudConvFlux_MVKHC         ', 'GCHPchem',\n                           'CloudConvFlux_MVKDH         ', 'GCHPchem',\n                           'CloudConvFlux_MVK           ', 'GCHPchem',\n                           'CloudConvFlux_MTPO          ', 'GCHPchem',\n                           'CloudConvFlux_MTPA          ', 'GCHPchem',\n                           'CloudConvFlux_MSA           ', 'GCHPchem',\n                           'CloudConvFlux_MPN           ', 'GCHPchem',\n                           'CloudConvFlux_MPAN          ', 'GCHPchem',\n                           'CloudConvFlux_MP            ', 'GCHPchem',\n                           'CloudConvFlux_MONITU        ', 'GCHPchem',\n                           'CloudConvFlux_MONITS        ', 'GCHPchem',\n                           'CloudConvFlux_MONITA        ', 'GCHPchem',\n                           'CloudConvFlux_MOH           ', 'GCHPchem',\n                           'CloudConvFlux_MGLY          ', 'GCHPchem',\n                           'CloudConvFlux_MENO3         ', 'GCHPchem',\n                           'CloudConvFlux_MEK           ', 'GCHPchem',\n                           'CloudConvFlux_MCRHP         ', 'GCHPchem',\n                           'CloudConvFlux_MCRHNB        ', 'GCHPchem',\n                           'CloudConvFlux_MCRHN         ', 'GCHPchem',\n                           'CloudConvFlux_MCRENOL       ', 'GCHPchem',\n                           'CloudConvFlux_MCRDH         ', 'GCHPchem',\n                           'CloudConvFlux_MAP           ', 'GCHPchem',\n                           'CloudConvFlux_MACR1OOH      ', 'GCHPchem',\n                           'CloudConvFlux_MACR          ', 'GCHPchem',\n                           'CloudConvFlux_LVOCOA        ', 'GCHPchem',\n                           'CloudConvFlux_LVOC          ', 'GCHPchem',\n                           'CloudConvFlux_LIMO          ', 'GCHPchem',\n                           'CloudConvFlux_ITHN          ', 'GCHPchem',\n                           'CloudConvFlux_ITCN          ', 'GCHPchem',\n                           'CloudConvFlux_ISOP          ', 'GCHPchem',\n                           'CloudConvFlux_ISALC         ', 'GCHPchem',\n                           'CloudConvFlux_ISALA         ', 'GCHPchem',\n                           'CloudConvFlux_IPRNO3        ', 'GCHPchem',\n                           'CloudConvFlux_IONO2         ', 'GCHPchem',\n                           'CloudConvFlux_IONO          ', 'GCHPchem',\n                           'CloudConvFlux_IONITA        ', 'GCHPchem',\n                           'CloudConvFlux_IO            ', 'GCHPchem',\n                           'CloudConvFlux_INPD          ', 'GCHPchem',\n                           'CloudConvFlux_INPB          ', 'GCHPchem',\n                           'CloudConvFlux_INO           ', 'GCHPchem',\n                           'CloudConvFlux_INDIOL        ', 'GCHPchem',\n                           'CloudConvFlux_IHN4          ', 'GCHPchem',\n                           'CloudConvFlux_IHN3          ', 'GCHPchem',\n                           'CloudConvFlux_IHN2          ', 'GCHPchem',\n                           'CloudConvFlux_IHN1          ', 'GCHPchem',\n                           'CloudConvFlux_IEPOXD        ', 'GCHPchem',\n                           'CloudConvFlux_IEPOXB        ', 'GCHPchem',\n                           'CloudConvFlux_IEPOXA        ', 'GCHPchem',\n                           'CloudConvFlux_IDN           ', 'GCHPchem',\n                           'CloudConvFlux_IDHPE         ', 'GCHPchem',\n                           'CloudConvFlux_IDHDP         ', 'GCHPchem',\n                           'CloudConvFlux_IDCHP         ', 'GCHPchem',\n                           'CloudConvFlux_IDC           ', 'GCHPchem',\n                           'CloudConvFlux_ICPDH         ', 'GCHPchem',\n                           'CloudConvFlux_ICN           ', 'GCHPchem',\n                           'CloudConvFlux_ICl           ', 'GCHPchem',\n                           'CloudConvFlux_ICHE          ', 'GCHPchem',\n                           'CloudConvFlux_IBr           ', 'GCHPchem',\n                           'CloudConvFlux_I2O4          ', 'GCHPchem',\n                           'CloudConvFlux_I2O3          ', 'GCHPchem',\n                           'CloudConvFlux_I2O2          ', 'GCHPchem',\n                           'CloudConvFlux_I2            ', 'GCHPchem',\n                           'CloudConvFlux_I             ', 'GCHPchem',\n                           'CloudConvFlux_HPETHNL       ', 'GCHPchem',\n                           'CloudConvFlux_HPALD4        ', 'GCHPchem',\n                           'CloudConvFlux_HPALD3        ', 'GCHPchem',\n                           'CloudConvFlux_HPALD2        ', 'GCHPchem',\n                           'CloudConvFlux_HPALD1        ', 'GCHPchem',\n                           'CloudConvFlux_HONIT         ', 'GCHPchem',\n                           'CloudConvFlux_HOI           ', 'GCHPchem',\n                           'CloudConvFlux_HOCl          ', 'GCHPchem',\n                           'CloudConvFlux_HOBr          ', 'GCHPchem',\n                           'CloudConvFlux_HNO4          ', 'GCHPchem',\n                           'CloudConvFlux_HNO3          ', 'GCHPchem',\n                           'CloudConvFlux_HNO2          ', 'GCHPchem',\n                           'CloudConvFlux_HMS           ', 'GCHPchem',\n                           'CloudConvFlux_HMML          ', 'GCHPchem',\n                           'CloudConvFlux_HMHP          ', 'GCHPchem',\n                           'CloudConvFlux_HI            ', 'GCHPchem',\n                           'CloudConvFlux_HCOOH         ', 'GCHPchem',\n                           'CloudConvFlux_HCl           ', 'GCHPchem',\n                           'CloudConvFlux_HCFC22        ', 'GCHPchem',\n                           'CloudConvFlux_HCFC142b      ', 'GCHPchem',\n                           'CloudConvFlux_HCFC141b      ', 'GCHPchem',\n                           'CloudConvFlux_HCFC123       ', 'GCHPchem',\n                           'CloudConvFlux_HC5A          ', 'GCHPchem',\n                           'CloudConvFlux_HBr           ', 'GCHPchem',\n                           'CloudConvFlux_HAC           ', 'GCHPchem',\n                           'CloudConvFlux_H2O2          ', 'GCHPchem',\n                           'CloudConvFlux_H2O           ', 'GCHPchem',\n                           'CloudConvFlux_H2402         ', 'GCHPchem',\n                           'CloudConvFlux_H1301         ', 'GCHPchem',\n                           'CloudConvFlux_H1211         ', 'GCHPchem',\n                           'CloudConvFlux_GLYX          ', 'GCHPchem',\n                           'CloudConvFlux_GLYC          ', 'GCHPchem',\n                           'CloudConvFlux_ETP           ', 'GCHPchem',\n                           'CloudConvFlux_ETNO3         ', 'GCHPchem',\n                           'CloudConvFlux_ETHP          ', 'GCHPchem',\n                           'CloudConvFlux_ETHN          ', 'GCHPchem',\n                           'CloudConvFlux_ETHLN         ', 'GCHPchem',\n                           'CloudConvFlux_EOH           ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin7          ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin6          ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin5          ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin4          ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin3          ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin2          ', 'GCHPchem',\n                           'CloudConvFlux_DSTbin1          ', 'GCHPchem',\n                           'CloudConvFlux_DMS           ', 'GCHPchem',\n                           'CloudConvFlux_CO            ', 'GCHPchem',\n                           'CloudConvFlux_ClOO          ', 'GCHPchem',\n                           'CloudConvFlux_ClO           ', 'GCHPchem',\n                           'CloudConvFlux_ClNO3         ', 'GCHPchem',\n                           'CloudConvFlux_ClNO2         ', 'GCHPchem',\n                           'CloudConvFlux_Cl2O2         ', 'GCHPchem',\n                           'CloudConvFlux_Cl2           ', 'GCHPchem',\n                           'CloudConvFlux_Cl            ', 'GCHPchem',\n                           'CloudConvFlux_CHCl3         ', 'GCHPchem',\n                           'CloudConvFlux_CHBr3         ', 'GCHPchem',\n                           'CloudConvFlux_CH4           ', 'GCHPchem',\n                           'CloudConvFlux_CH3I          ', 'GCHPchem',\n                           'CloudConvFlux_CH3Cl         ', 'GCHPchem',\n                           'CloudConvFlux_CH3CCl3       ', 'GCHPchem',\n                           'CloudConvFlux_CH3Br         ', 'GCHPchem',\n                           'CloudConvFlux_CH2O          ', 'GCHPchem',\n                           'CloudConvFlux_CH2ICl        ', 'GCHPchem',\n                           'CloudConvFlux_CH2IBr        ', 'GCHPchem',\n                           'CloudConvFlux_CH2I2         ', 'GCHPchem',\n                           'CloudConvFlux_CH2Cl2        ', 'GCHPchem',\n                           'CloudConvFlux_CH2Br2        ', 'GCHPchem',\n                           'CloudConvFlux_CFC12         ', 'GCHPchem',\n                           'CloudConvFlux_CFC115        ', 'GCHPchem',\n                           'CloudConvFlux_CFC114        ', 'GCHPchem',\n                           'CloudConvFlux_CFC113        ', 'GCHPchem',\n                           'CloudConvFlux_CFC11         ', 'GCHPchem',\n                           'CloudConvFlux_CCl4          ', 'GCHPchem',\n                           'CloudConvFlux_C3H8          ', 'GCHPchem',\n                           'CloudConvFlux_C2H6          ', 'GCHPchem',\n                           'CloudConvFlux_C2H4          ', 'GCHPchem',\n                           'CloudConvFlux_C2H2          ', 'GCHPchem',\n                           'CloudConvFlux_BrSALC        ', 'GCHPchem',\n                           'CloudConvFlux_BrSALA        ', 'GCHPchem',\n                           'CloudConvFlux_BrO           ', 'GCHPchem',\n                           'CloudConvFlux_BrNO3         ', 'GCHPchem',\n                           'CloudConvFlux_BrNO2         ', 'GCHPchem',\n                           'CloudConvFlux_BrCl          ', 'GCHPchem',\n                           'CloudConvFlux_Br2           ', 'GCHPchem',\n                           'CloudConvFlux_Br            ', 'GCHPchem',\n                           'CloudConvFlux_BENZ          ', 'GCHPchem',\n                           'CloudConvFlux_BCPO          ', 'GCHPchem',\n                           'CloudConvFlux_BCPI          ', 'GCHPchem',\n                           'CloudConvFlux_ATOOH         ', 'GCHPchem',\n                           'CloudConvFlux_ALK4          ', 'GCHPchem',\n                           'CloudConvFlux_ALD2          ', 'GCHPchem',\n                           'CloudConvFlux_AERI          ', 'GCHPchem',\n                           'CloudConvFlux_ACTA          ', 'GCHPchem',\n                           'CloudConvFlux_ACET          ', 'GCHPchem',\n                           #'CloudConvFlux_TSOG3         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOG2         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOG1         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOG0         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOA3         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOA2         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOA1         ', 'GCHPchem',\n                           #'CloudConvFlux_TSOA0         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOG3         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOG2         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOG1         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOAN         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOA3         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOA2         ', 'GCHPchem',\n                           #'CloudConvFlux_ASOA1         ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE ConcAboveSfc COLLECTION %%%%%\n#\n# Concentrations of O3 and HNO3 at a user-specified altitude above\n# the surface, such as 10m.  Set the desired output altitude in meters\n# in the deposition settings in geoschem_config.yml.\n#\n# NOTES:\n# (1) This collection requires dry deposition to be turned on.\n# (2) All of the fields in the collection must be turned on.\n# (3) This collection is best used with mode \"instantaneous\".\n#=============================================================================\n  ConcAboveSfc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAboveSfc.format:         'CFIO',\n  ConcAboveSfc.timestampStart: .true.\n  ConcAboveSfc.frequency:      010000\n  ConcAboveSfc.duration:       010000\n  ConcAboveSfc.mode:           'instantaneous'\n  ConcAboveSfc.fields:    'DryDepRaALT1                  ', 'GCHPchem',\n                          'DryDepVelForALT1_O3           ', 'GCHPchem',\n                          'DryDepVelForALT1_HNO3         ', 'GCHPchem',\n                          'SpeciesConcALT1_O3            ', 'GCHPchem',\n                          'SpeciesConcALT1_HNO3          ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE ConcAfterChem COLLECTION %%%%%\n#\n# Concentrations of OH, HO2, O1D, O3P immediately after exiting the KPP solver\n#==============================================================================\n  ConcAfterChem.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAfterChem.format:         'CFIO',\n  ConcAfterChem.timestampStart: .true.\n  ConcAfterChem.monthly:        1\n  ConcAfterChem.frequency:      010000\n  ConcAfterChem.duration:       010000\n  ConcAfterChem.mode:           'time-averaged'\n  ConcAfterChem.fields:    'OHconcAfterChem               ', 'GCHPchem',\n                           'HO2concAfterChem              ', 'GCHPchem',\n                           'O1DconcAfterChem              ', 'GCHPchem',\n                           'O3PconcAfterChem              ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities\n#\n# NOTE: Only keep species that are needed for fullchem benchmarks\n#==============================================================================\n  DryDep.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.format:          'CFIO',\n  DryDep.timestampStart:  .true.\n  DryDep.monthly:         1\n  DryDep.frequency:       010000\n  DryDep.duration:        010000\n  DryDep.mode:            'time-averaged'\n  DryDep.fields:          'DryDepVel_ACET       ', 'GCHPchem',\n                          'DryDepVel_HNO3       ', 'GCHPchem',\n\t                  'DryDepVel_NH3        ', 'GCHPchem',\n                          'DryDepVel_NH4        ', 'GCHPchem',\n                          'DryDepVel_NIT        ', 'GCHPchem',\n                          'DryDepVel_NITs       ', 'GCHPchem',\n                          'DryDepVel_O3         ', 'GCHPchem',\n                          'DryDepVel_SO4        ', 'GCHPchem',\n                          'DryDep_O3            ', 'GCHPchem',\n                          'DryDepChm_O3         ', 'GCHPchem',\n                          'DryDepMix_O3         ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE JValues COLLECTION %%%%%\n#\n# Photolysis rates (from the photolysis module)\n#==============================================================================\n  JValues.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  JValues.format:         'CFIO',\n  JValues.timestampStart: .true.\n  JValues.monthly:        1\n  JValues.frequency:      010000\n  JValues.duration:       010000\n  JValues.mode:           'time-averaged'\n  JValues.fields:         'JvalO3O3P       ', 'GCHPchem',\n                          'JvalO3O1D       ', 'GCHPchem',\n                          'Jval_ACET       ', 'GCHPchem',\n                          'Jval_ALD2       ', 'GCHPchem',\n                          'Jval_APINP      ', 'GCHPchem',\n                          'Jval_ATOOH      ', 'GCHPchem',\n                          'Jval_BALD       ', 'GCHPchem',\n                          'Jval_BENZP      ', 'GCHPchem',\n                          'Jval_BPINOOH    ', 'GCHPchem',\n                          'Jval_BPINP      ', 'GCHPchem',\n                          'Jval_Br2        ', 'GCHPchem',\n                          'Jval_BrCl       ', 'GCHPchem',\n                          'Jval_BrNO3      ', 'GCHPchem',\n                          'Jval_BrNO2      ', 'GCHPchem',\n                          'Jval_BrO        ', 'GCHPchem',\n                          'Jval_BZCO3H     ', 'GCHPchem',\n                          'Jval_C96O2H     ', 'GCHPchem',\n                          'Jval_CCl4       ', 'GCHPchem',\n                          'Jval_CFC11      ', 'GCHPchem',\n                          'Jval_CFC12      ', 'GCHPchem',\n                          'Jval_CFC113     ', 'GCHPchem',\n                          'Jval_CFC114     ', 'GCHPchem',\n                          'Jval_CFC115     ', 'GCHPchem',\n                          'Jval_CH2Br2     ', 'GCHPchem',\n                          'Jval_CH2Cl2     ', 'GCHPchem',\n                          'Jval_CH2I2      ', 'GCHPchem',\n                          'Jval_CH2IBr     ', 'GCHPchem',\n                          'Jval_CH2ICl     ', 'GCHPchem',\n                          'Jval_CH2O       ', 'GCHPchem',\n                          'Jval_CH3Br      ', 'GCHPchem',\n                          'Jval_CH3Cl      ', 'GCHPchem',\n                          'Jval_CH3CCl3    ', 'GCHPchem',\n                          'Jval_CH3I       ', 'GCHPchem',\n                          'Jval_CHBr3      ', 'GCHPchem',\n                          'Jval_Cl2        ', 'GCHPchem',\n                          'Jval_Cl2O2      ', 'GCHPchem',\n                          'Jval_ClNO2      ', 'GCHPchem',\n                          'Jval_ClNO3      ', 'GCHPchem',\n                          'Jval_ClO        ', 'GCHPchem',\n                          'Jval_ClOO       ', 'GCHPchem',\n                          'Jval_ETHLN      ', 'GCHPchem',\n                          'Jval_ETHP       ', 'GCHPchem',\n                          'Jval_ETNO3      ', 'GCHPchem',\n                          'Jval_ETP        ', 'GCHPchem',\n                          'Jval_GLYC       ', 'GCHPchem',\n                          'Jval_GLYX       ', 'GCHPchem',\n                          'Jval_HAC        ', 'GCHPchem',\n                          'Jval_H2O2       ', 'GCHPchem',\n                          'Jval_HCFC123    ', 'GCHPchem',\n                          'Jval_HCFC141b   ', 'GCHPchem',\n                          'Jval_HCFC142b   ', 'GCHPchem',\n                          'Jval_HCFC22     ', 'GCHPchem',\n                          'Jval_H1211      ', 'GCHPchem',\n                          'Jval_H1301      ', 'GCHPchem',\n                          'Jval_H2402      ', 'GCHPchem',\n                          'Jval_HMHP       ', 'GCHPchem',\n                          'Jval_HNO2       ', 'GCHPchem',\n                          'Jval_HNO3       ', 'GCHPchem',\n                          'Jval_HNO4       ', 'GCHPchem',\n                          'Jval_HOBr       ', 'GCHPchem',\n                          'Jval_HOCl       ', 'GCHPchem',\n                          'Jval_HONIT      ', 'GCHPchem',\n                          'Jval_HOI        ', 'GCHPchem',\n                          'Jval_HPALD1     ', 'GCHPchem',\n                          'Jval_HPALD2     ', 'GCHPchem',\n                          'Jval_HPALD3     ', 'GCHPchem',\n                          'Jval_HPALD4     ', 'GCHPchem',\n                          'Jval_HPETHNL    ', 'GCHPchem',\n                          'Jval_I2         ', 'GCHPchem',\n                          'Jval_I2O2       ', 'GCHPchem',\n                          'Jval_I2O3       ', 'GCHPchem',\n                          'Jval_I2O4       ', 'GCHPchem',\n                          'Jval_IBr        ', 'GCHPchem',\n                          'Jval_ICl        ', 'GCHPchem',\n                          'Jval_ICN        ', 'GCHPchem',\n                          'Jval_ICPDH      ', 'GCHPchem',\n                          'Jval_IDN        ', 'GCHPchem',\n                          'Jval_IDCHP      ', 'GCHPchem',\n                          'Jval_IDHDP      ', 'GCHPchem',\n                          'Jval_IDHPE      ', 'GCHPchem',\n                          'Jval_IHN1       ', 'GCHPchem',\n                          'Jval_IHN2       ', 'GCHPchem',\n                          'Jval_IHN3       ', 'GCHPchem',\n                          'Jval_IHN4       ', 'GCHPchem',\n                          'Jval_INO        ', 'GCHPchem',\n                          'Jval_INPB       ', 'GCHPchem',\n                          'Jval_INPD       ', 'GCHPchem',\n                          'Jval_ITCN       ', 'GCHPchem',\n                          'Jval_ITHN       ', 'GCHPchem',\n                          'Jval_IO         ', 'GCHPchem',\n                          'Jval_IONO       ', 'GCHPchem',\n                          'Jval_IONO2      ', 'GCHPchem',\n                          'Jval_IPRNO3     ', 'GCHPchem',\n                          'Jval_LIMAL      ', 'GCHPchem',\n                          'Jval_LIMO2H     ', 'GCHPchem',\n                          'Jval_LIMO3H     ', 'GCHPchem',\n                          'Jval_MACR       ', 'GCHPchem',\n                          'Jval_MACR1OOH   ', 'GCHPchem',\n                          'Jval_MAP        ', 'GCHPchem',\n                          'Jval_MCRENOL    ', 'GCHPchem',\n                          'Jval_MCRHN      ', 'GCHPchem',\n                          'Jval_MCRHNB     ', 'GCHPchem',\n                          'Jval_MCRHP      ', 'GCHPchem',\n                          'Jval_MEK        ', 'GCHPchem',\n                          'Jval_MENO3      ', 'GCHPchem',\n                          'Jval_MGLY       ', 'GCHPchem',\n                          'Jval_MVK        ', 'GCHPchem',\n                          'Jval_MP         ', 'GCHPchem',\n                          'Jval_MPN        ', 'GCHPchem',\n                          'Jval_MONITS     ', 'GCHPchem',\n                          'Jval_MONITU     ', 'GCHPchem',\n                          'Jval_MVKHC      ', 'GCHPchem',\n                          'Jval_MVKHCB     ', 'GCHPchem',\n                          'Jval_MVKHP      ', 'GCHPchem',\n                          'Jval_MVKN       ', 'GCHPchem',\n                          'Jval_MVKPC      ', 'GCHPchem',\n                          'Jval_N2O        ', 'GCHPchem',\n                          'Jval_N2O5       ', 'GCHPchem',\n                          'Jval_NIT        ', 'GCHPchem',\n                          'Jval_NITs       ', 'GCHPchem',\n                          'Jval_NO         ', 'GCHPchem',\n                          'Jval_NO2        ', 'GCHPchem',\n                          'Jval_NO3        ', 'GCHPchem',\n                          'Jval_NPHEN      ', 'GCHPchem',\n\t\t\t  'Jval_NPRNO3     ', 'GCHPchem',\n                          'Jval_O2         ', 'GCHPchem',\n                          'Jval_O3         ', 'GCHPchem',\n                          'Jval_OClO       ', 'GCHPchem',\n                          'Jval_OCS        ', 'GCHPchem',\n                          'Jval_OIO        ', 'GCHPchem',\n                          'Jval_PAN        ', 'GCHPchem',\n                          'Jval_PINAL      ', 'GCHPchem',\n                          'Jval_PINO3H     ', 'GCHPchem',\n                          'Jval_PINONIC    ', 'GCHPchem',\n                          'Jval_PIP        ', 'GCHPchem',\t\t  \n                          'Jval_PP         ', 'GCHPchem',\n                          'Jval_PPN        ', 'GCHPchem',\n                          'Jval_PROPNN     ', 'GCHPchem',\n                          'Jval_PRPN       ', 'GCHPchem',\n                          'Jval_PYAC       ', 'GCHPchem',\n                          'Jval_R4P        ', 'GCHPchem',\n                          'Jval_R4N2       ', 'GCHPchem',\n                          'Jval_RA3P       ', 'GCHPchem',\n                          'Jval_RB3P       ', 'GCHPchem',\n                          'Jval_RCHO       ', 'GCHPchem',\n                          'Jval_RIPA       ', 'GCHPchem',\n                          'Jval_RIPB       ', 'GCHPchem',\n                          'Jval_RIPC       ', 'GCHPchem',\n                          'Jval_RIPD       ', 'GCHPchem',\n                          'Jval_RP         ', 'GCHPchem',\n                          'Jval_SO4        ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE UVFlux COLLECTION %%%%%\n#\n# UV fluxes (from the photolysis module)\n#\n# NOTE: There seems to be an issue with this diagnostic in GCHP.\n# We recommend that you leave the UVFlux collection turned off.\n#==============================================================================\n  UVFlux.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  UVFlux.format:         'CFIO',\n  UVFlux.timestampStart: .true.\n  UVFlux.monthly:        1\n  UVFlux.frequency:      010000\n  UVFlux.duration:       010000\n  UVFlux.mode:           'time-averaged'\n  UVFlux.fields:         'UVFluxNet_574nm        ', 'GCHPchem',\n                         'UVFluxNet_380nm        ', 'GCHPchem',\n                         'UVFluxNet_333nm        ', 'GCHPchem',\n                         'UVFluxNet_316nm        ', 'GCHPchem',\n                         'UVFluxNet_310nm        ', 'GCHPchem',\n                         'UVFluxNet_303nm        ', 'GCHPchem',\n                         'UVFluxNet_295nm        ', 'GCHPchem',\n                         'UVFluxNet_277nm        ', 'GCHPchem',\n                         'UVFluxNet_267nm        ', 'GCHPchem',\n                         'UVFluxNet_261nm        ', 'GCHPchem',\n                         'UVFluxNet_214nm        ', 'GCHPchem',\n                         'UVFluxNet_211nm        ', 'GCHPchem',\n                         'UVFluxNet_208nm        ', 'GCHPchem',\n                         'UVFluxNet_202nm        ', 'GCHPchem',\n                         'UVFluxNet_196nm        ', 'GCHPchem',\n                         'UVFluxNet_193nm        ', 'GCHPchem',\n                         'UVFluxNet_191nm        ', 'GCHPchem',\n                         'UVFluxNet_187nm        ', 'GCHPchem',\n                         'UVFluxDirect_574nm     ', 'GCHPchem',\n                         'UVFluxDirect_380nm     ', 'GCHPchem',\n                         'UVFluxDirect_333nm     ', 'GCHPchem',\n                         'UVFluxDirect_316nm     ', 'GCHPchem',\n                         'UVFluxDirect_310nm     ', 'GCHPchem',\n                         'UVFluxDirect_303nm     ', 'GCHPchem',\n                         'UVFluxDirect_295nm     ', 'GCHPchem',\n                         'UVFluxDirect_277nm     ', 'GCHPchem',\n                         'UVFluxDirect_267nm     ', 'GCHPchem',\n                         'UVFluxDirect_261nm     ', 'GCHPchem',\n                         'UVFluxDirect_214nm     ', 'GCHPchem',\n                         'UVFluxDirect_211nm     ', 'GCHPchem',\n                         'UVFluxDirect_208nm     ', 'GCHPchem',\n                         'UVFluxDirect_202nm     ', 'GCHPchem',\n                         'UVFluxDirect_196nm     ', 'GCHPchem',\n                         'UVFluxDirect_193nm     ', 'GCHPchem',\n                         'UVFluxDirect_191nm     ', 'GCHPchem',\n                         'UVFluxDirect_187nm     ', 'GCHPchem',\n                         'UVFluxDiffuse_574nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_380nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_333nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_316nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_310nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_303nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_295nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_277nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_267nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_261nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_214nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_211nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_208nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_202nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_196nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_193nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_191nm    ', 'GCHPchem',\n                         'UVFluxDiffuse_187nm    ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE KppDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver.\n#\n# Available for full-chemistry simulations (all variations)\n#=============================================================================\n  KppDiags.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.format:         'CFIO',\n  KppDiags.timestampStart: .true.\n  KppDiags.monthly:        1\n  KppDiags.frequency:      010000\n  KppDiags.duration:       010000\n  KppDiags.mode:           'time-averaged'\n  KppDiags.fields:        'KppIntCounts                  ', 'GCHPchem',\n                          'KppJacCounts                  ', 'GCHPchem',\n                          'KppTotSteps                   ', 'GCHPchem',\n                          'KppAccSteps                   ', 'GCHPchem',\n                          'KppRejSteps                   ', 'GCHPchem',\n                          'KppLuDecomps                  ', 'GCHPchem',\n                          'KppSubsts                     ', 'GCHPchem',\n                          'KppSmDecomps                  ', 'GCHPchem',\n                          #'KppNegatives                  ', 'GCHPchem',\n                          #'KppNegatives0                 ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE KppARDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver when auto-reduction solver is used.\n#==============================================================================\n  KppARDiags.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  KppARDiags.format:         'CFIO',\n  KppARDiags.timestampStart: .true.\n  KppARDiags.monthly:        1\n  KppARDiags.frequency:      010000\n  KppARDiags.duration:       010000\n  KppARDiags.mode:           'time-averaged'\n  KppARDiags.fields:         'KppAutoReducerNVAR          ', 'GCHPchem',\n                             'KppAutoReduceThres          ', 'GCHPchem',\n                             'KppcNONZERO                 ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE Metrics COLLECTION %%%%%\n#\n# Diagnostics for chemistry metrics such as global mean OH concentration,\n# MCF lifetime, and CH4 lifetime.\n#\n# This diagnostic collection should always be left on.\n# Use the run-directory script ./metrics_fullchem.py to print results.\n#==============================================================================\n  Metrics.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  Metrics.format:             'CFIO',\n  Metrics.timestampStart:     .true.\n  Metrics.monthly:            1\n  Metrics.frequency:          010000\n  Metrics.duration:           010000\n  Metrics.mode:               'time-averaged'\n  Metrics.fields:             'AirMassColumnFull           ', 'GCHPchem',\n                              'LossOHbyCH4columnTrop       ', 'GCHPchem',\n                              'LossOHbyMCFcolumnTrop       ', 'GCHPchem',\n                              'OHwgtByAirMassColumnFull    ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Chemical production and loss rates\n#==============================================================================\n  ProdLoss.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.format:         'CFIO',\n  ProdLoss.timestampStart: .true.\n  ProdLoss.monthly:        1\n  ProdLoss.frequency:      010000\n  ProdLoss.duration:       010000\n  ProdLoss.mode:           'time-averaged'\n  ProdLoss.fields:        'Prod_Ox                    ', 'GCHPchem',\n                          'Loss_Ox                    ', 'GCHPchem',\n                          'Prod_SO4                   ', 'GCHPchem',\n                          'Prod_CO                    ', 'GCHPchem',\n                          'Prod_H2O2                  ', 'GCHPchem',\n                          'ProdBCPIfromBCPO           ', 'GCHPchem',\n                          'ProdOCPIfromOCPO           ', 'GCHPchem',\n                          'ProdSO4fromH2O2inCloud     ', 'GCHPchem',\n                          'ProdSO4fromO2inCloudMetal  ', 'GCHPchem',\n                          'ProdSO4fromO3inCloud       ', 'GCHPchem',\n                          'ProdSO4fromO3inSeaSalt     ', 'GCHPchem',\n                          'ProdSO4fromHOBrInCloud     ', 'GCHPchem',\n                          'ProdSO4fromSRO3            ', 'GCHPchem',\n                          'ProdSO4fromSRHOBr          ', 'GCHPchem',\n                          'ProdSO4fromO3s             ', 'GCHPchem',\n                          'Loss_CH4                   ', 'GCHPchem',\n                          'Loss_CO                    ', 'GCHPchem',\n                          'LossHNO3onSeaSalt          ', 'GCHPchem',\n                          'ProdCOfromCH4              ', 'GCHPchem',\n                          'ProdCOfromNMVOC            ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE RRTMG COLLECTION %%%%%\n#\n# Radiative transfer data from RRTMG. IMPORTANT: Each additional line in\n# this diagnostic will result in an additional RRTMG simulation!\n#=============================================================================\n  RRTMG.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  RRTMG.format:         'CFIO',\n  RRTMG.timestampStart: .true.\n  RRTMG.monthly:        1\n  RRTMG.frequency:      030000\n  RRTMG.duration:       030000\n  RRTMG.mode:           'time-averaged'\n  RRTMG.fields:     'RadAllSkyLWSurf_BASE ', 'GCHPchem',\n                    'RadAllSkyLWSurf_O3   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_O3T  ', 'GCHPchem',\n                    'RadAllSkyLWSurf_ME   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_H2O  ', 'GCHPchem',\n                    'RadAllSkyLWSurf_CO2  ', 'GCHPchem',\n                    'RadAllSkyLWSurf_CFC  ', 'GCHPchem',\n                    'RadAllSkyLWSurf_N2O  ', 'GCHPchem',\n                    'RadAllSkyLWSurf_SU   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_NI   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_AM   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_BC   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_OA   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_SS   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_DU   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_PM   ', 'GCHPchem',\n                    'RadAllSkyLWSurf_ST   ', 'GCHPchem',\n                    'RadAllSkySWSurf_BASE ', 'GCHPchem',\n                    'RadAllSkySWSurf_O3   ', 'GCHPchem',\n                    'RadAllSkySWSurf_O3T  ', 'GCHPchem',\n                    'RadAllSkySWSurf_ME   ', 'GCHPchem',\n                    'RadAllSkySWSurf_H2O  ', 'GCHPchem',\n                    'RadAllSkySWSurf_CO2  ', 'GCHPchem',\n                    'RadAllSkySWSurf_CFC  ', 'GCHPchem',\n                    'RadAllSkySWSurf_N2O  ', 'GCHPchem',\n                    'RadAllSkySWSurf_SU   ', 'GCHPchem',\n                    'RadAllSkySWSurf_NI   ', 'GCHPchem',\n                    'RadAllSkySWSurf_AM   ', 'GCHPchem',\n                    'RadAllSkySWSurf_BC   ', 'GCHPchem',\n                    'RadAllSkySWSurf_OA   ', 'GCHPchem',\n                    'RadAllSkySWSurf_SS   ', 'GCHPchem',\n                    'RadAllSkySWSurf_DU   ', 'GCHPchem',\n                    'RadAllSkySWSurf_PM   ', 'GCHPchem',\n                    'RadAllSkySWSurf_ST   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_BASE ', 'GCHPchem',\n                    'RadClrSkyLWSurf_O3   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_O3T  ', 'GCHPchem',\n                    'RadClrSkyLWSurf_ME   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_H2O  ', 'GCHPchem',\n                    'RadClrSkyLWSurf_CO2  ', 'GCHPchem',\n                    'RadClrSkyLWSurf_CFC  ', 'GCHPchem',\n                    'RadClrSkyLWSurf_N2O  ', 'GCHPchem',\n                    'RadClrSkyLWSurf_SU   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_NI   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_AM   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_BC   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_OA   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_SS   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_DU   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_PM   ', 'GCHPchem',\n                    'RadClrSkyLWSurf_ST   ', 'GCHPchem',\n                    'RadClrSkySWSurf_BASE ', 'GCHPchem',\n                    'RadClrSkySWSurf_O3   ', 'GCHPchem',\n                    'RadClrSkySWSurf_O3T  ', 'GCHPchem',\n                    'RadClrSkySWSurf_ME   ', 'GCHPchem',\n                    'RadClrSkySWSurf_H2O  ', 'GCHPchem',\n                    'RadClrSkySWSurf_CO2  ', 'GCHPchem',\n                    'RadClrSkySWSurf_CFC  ', 'GCHPchem',\n                    'RadClrSkySWSurf_N2O  ', 'GCHPchem',\n                    'RadClrSkySWSurf_SU   ', 'GCHPchem',\n                    'RadClrSkySWSurf_NI   ', 'GCHPchem',\n                    'RadClrSkySWSurf_AM   ', 'GCHPchem',\n                    'RadClrSkySWSurf_BC   ', 'GCHPchem',\n                    'RadClrSkySWSurf_OA   ', 'GCHPchem',\n                    'RadClrSkySWSurf_SS   ', 'GCHPchem',\n                    'RadClrSkySWSurf_DU   ', 'GCHPchem',\n                    'RadClrSkySWSurf_PM   ', 'GCHPchem',\n                    'RadClrSkySWSurf_ST   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_BASE ', 'GCHPchem',\n                    'RadAllSkyLWTrop_O3   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_O3T  ', 'GCHPchem',\n                    'RadAllSkyLWTrop_ME   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_H2O  ', 'GCHPchem',\n                    'RadAllSkyLWTrop_CO2  ', 'GCHPchem',\n                    'RadAllSkyLWTrop_CFC  ', 'GCHPchem',\n                    'RadAllSkyLWTrop_N2O  ', 'GCHPchem',\n                    'RadAllSkyLWTrop_SU   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_NI   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_AM   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_BC   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_OA   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_SS   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_DU   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_PM   ', 'GCHPchem',\n                    'RadAllSkyLWTrop_ST   ', 'GCHPchem',\n                    'RadAllSkySWTrop_BASE ', 'GCHPchem',\n                    'RadAllSkySWTrop_O3   ', 'GCHPchem',\n                    'RadAllSkySWTrop_O3T  ', 'GCHPchem',\n                    'RadAllSkySWTrop_ME   ', 'GCHPchem',\n                    'RadAllSkySWTrop_H2O  ', 'GCHPchem',\n                    'RadAllSkySWTrop_CO2  ', 'GCHPchem',\n                    'RadAllSkySWTrop_CFC  ', 'GCHPchem',\n                    'RadAllSkySWTrop_N2O  ', 'GCHPchem',\n                    'RadAllSkySWTrop_SU   ', 'GCHPchem',\n                    'RadAllSkySWTrop_NI   ', 'GCHPchem',\n                    'RadAllSkySWTrop_AM   ', 'GCHPchem',\n                    'RadAllSkySWTrop_BC   ', 'GCHPchem',\n                    'RadAllSkySWTrop_OA   ', 'GCHPchem',\n                    'RadAllSkySWTrop_SS   ', 'GCHPchem',\n                    'RadAllSkySWTrop_DU   ', 'GCHPchem',\n                    'RadAllSkySWTrop_PM   ', 'GCHPchem',\n                    'RadAllSkySWTrop_ST   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_BASE ', 'GCHPchem',\n                    'RadClrSkyLWTrop_O3   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_O3T  ', 'GCHPchem',\n                    'RadClrSkyLWTrop_ME   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_H2O  ', 'GCHPchem',\n                    'RadClrSkyLWTrop_CO2  ', 'GCHPchem',\n                    'RadClrSkyLWTrop_CFC  ', 'GCHPchem',\n                    'RadClrSkyLWTrop_N2O  ', 'GCHPchem',\n                    'RadClrSkyLWTrop_SU   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_NI   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_AM   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_BC   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_OA   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_SS   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_DU   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_PM   ', 'GCHPchem',\n                    'RadClrSkyLWTrop_ST   ', 'GCHPchem',\n                    'RadClrSkySWTrop_BASE ', 'GCHPchem',\n                    'RadClrSkySWTrop_O3   ', 'GCHPchem',\n                    'RadClrSkySWTrop_O3T  ', 'GCHPchem',\n                    'RadClrSkySWTrop_ME   ', 'GCHPchem',\n                    'RadClrSkySWTrop_H2O  ', 'GCHPchem',\n                    'RadClrSkySWTrop_CO2  ', 'GCHPchem',\n                    'RadClrSkySWTrop_CFC  ', 'GCHPchem',\n                    'RadClrSkySWTrop_N2O  ', 'GCHPchem',\n                    'RadClrSkySWTrop_SU   ', 'GCHPchem',\n                    'RadClrSkySWTrop_NI   ', 'GCHPchem',\n                    'RadClrSkySWTrop_AM   ', 'GCHPchem',\n                    'RadClrSkySWTrop_BC   ', 'GCHPchem',\n                    'RadClrSkySWTrop_OA   ', 'GCHPchem',\n                    'RadClrSkySWTrop_SS   ', 'GCHPchem',\n                    'RadClrSkySWTrop_DU   ', 'GCHPchem',\n                    'RadClrSkySWTrop_PM   ', 'GCHPchem',\n                    'RadClrSkySWTrop_ST   ', 'GCHPchem',\n                    'RadAllSkyLWTOA_BASE  ', 'GCHPchem',\n                    'RadAllSkyLWTOA_O3    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_O3T   ', 'GCHPchem',\n                    'RadAllSkyLWTOA_ME    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_H2O   ', 'GCHPchem',\n                    'RadAllSkyLWTOA_CO2   ', 'GCHPchem',\n                    'RadAllSkyLWTOA_CFC   ', 'GCHPchem',\n                    'RadAllSkyLWTOA_N2O   ', 'GCHPchem',\n                    'RadAllSkyLWTOA_SU    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_NI    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_AM    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_BC    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_OA    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_SS    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_DU    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_PM    ', 'GCHPchem',\n                    'RadAllSkyLWTOA_ST    ', 'GCHPchem',\n                    'RadAllSkySWTOA_BASE  ', 'GCHPchem',\n                    'RadAllSkySWTOA_O3    ', 'GCHPchem',\n                    'RadAllSkySWTOA_O3T   ', 'GCHPchem',\n                    'RadAllSkySWTOA_ME    ', 'GCHPchem',\n                    'RadAllSkySWTOA_H2O   ', 'GCHPchem',\n                    'RadAllSkySWTOA_CO2   ', 'GCHPchem',\n                    'RadAllSkySWTOA_CFC   ', 'GCHPchem',\n                    'RadAllSkySWTOA_N2O   ', 'GCHPchem',\n                    'RadAllSkySWTOA_SU    ', 'GCHPchem',\n                    'RadAllSkySWTOA_NI    ', 'GCHPchem',\n                    'RadAllSkySWTOA_AM    ', 'GCHPchem',\n                    'RadAllSkySWTOA_BC    ', 'GCHPchem',\n                    'RadAllSkySWTOA_OA    ', 'GCHPchem',\n                    'RadAllSkySWTOA_SS    ', 'GCHPchem',\n                    'RadAllSkySWTOA_DU    ', 'GCHPchem',\n                    'RadAllSkySWTOA_PM    ', 'GCHPchem',\n                    'RadAllSkySWTOA_ST    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_BASE  ', 'GCHPchem',\n                    'RadClrSkyLWTOA_O3    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_O3T   ', 'GCHPchem',\n                    'RadClrSkyLWTOA_ME    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_H2O   ', 'GCHPchem',\n                    'RadClrSkyLWTOA_CO2   ', 'GCHPchem',\n                    'RadClrSkyLWTOA_CFC   ', 'GCHPchem',\n                    'RadClrSkyLWTOA_N2O   ', 'GCHPchem',\n                    'RadClrSkyLWTOA_SU    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_NI    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_AM    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_BC    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_OA    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_SS    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_DU    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_PM    ', 'GCHPchem',\n                    'RadClrSkyLWTOA_ST    ', 'GCHPchem',\n                    'RadClrSkySWTOA_BASE  ', 'GCHPchem',\n                    'RadClrSkySWTOA_O3    ', 'GCHPchem',\n                    'RadClrSkySWTOA_O3T   ', 'GCHPchem',\n                    'RadClrSkySWTOA_ME    ', 'GCHPchem',\n                    'RadClrSkySWTOA_H2O   ', 'GCHPchem',\n                    'RadClrSkySWTOA_CO2   ', 'GCHPchem',\n                    'RadClrSkySWTOA_CFC   ', 'GCHPchem',\n                    'RadClrSkySWTOA_N2O   ', 'GCHPchem',\n                    'RadClrSkySWTOA_SU    ', 'GCHPchem',\n                    'RadClrSkySWTOA_NI    ', 'GCHPchem',\n                    'RadClrSkySWTOA_AM    ', 'GCHPchem',\n                    'RadClrSkySWTOA_BC    ', 'GCHPchem',\n                    'RadClrSkySWTOA_OA    ', 'GCHPchem',\n                    'RadClrSkySWTOA_SS    ', 'GCHPchem',\n                    'RadClrSkySWTOA_DU    ', 'GCHPchem',\n                    'RadClrSkySWTOA_PM    ', 'GCHPchem',\n                    'RadClrSkySWTOA_ST    ', 'GCHPchem',\n                    'RadAODWL1_SU         ', 'GCHPchem',\n                    'RadAODWL1_NI         ', 'GCHPchem',\n                    'RadAODWL1_AM         ', 'GCHPchem',\n                    'RadAODWL1_BC         ', 'GCHPchem',\n                    'RadAODWL1_OA         ', 'GCHPchem',\n                    'RadAODWL1_SS         ', 'GCHPchem',\n                    'RadAODWL1_DU         ', 'GCHPchem',\n                    'RadAODWL1_PM         ', 'GCHPchem',\n                    'RadAODWL1_ST         ', 'GCHPchem',\n                    'RadSSAWL1_SU         ', 'GCHPchem',\n                    'RadSSAWL1_NI         ', 'GCHPchem',\n                    'RadSSAWL1_AM         ', 'GCHPchem',\n                    'RadSSAWL1_BC         ', 'GCHPchem',\n                    'RadSSAWL1_OA         ', 'GCHPchem',\n                    'RadSSAWL1_SS         ', 'GCHPchem',\n                    'RadSSAWL1_DU         ', 'GCHPchem',\n                    'RadSSAWL1_PM         ', 'GCHPchem',\n                    'RadSSAWL1_ST         ', 'GCHPchem',\n                    'RadAsymWL1_SU        ', 'GCHPchem',\n                    'RadAsymWL1_NI        ', 'GCHPchem',\n                    'RadAsymWL1_AM        ', 'GCHPchem',\n                    'RadAsymWL1_BC        ', 'GCHPchem',\n                    'RadAsymWL1_OA        ', 'GCHPchem',\n                    'RadAsymWL1_SS        ', 'GCHPchem',\n                    'RadAsymWL1_DU        ', 'GCHPchem',\n                    'RadAsymWL1_PM        ', 'GCHPchem',\n                    'RadAsymWL1_ST        ', 'GCHPchem',\n                    'DTRad                ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE DYNHEATING COLLECTION %%%%%\n#\n# Estimated dynamical heating data from RRTMG. This MUST be output if the user\n# intends to use this simulation as the reference for RRTMG (SE)FDH simulations.\n# The frequency and duration must also match the RRTMG (radiation) time step,\n# which defaults to 3 hours. This must NOT be set to monthly if it is to work\n# correctly.\n#=============================================================================\n  DynHeating.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  DynHeating.format:         'CFIO',\n  DynHeating.timestampStart: .true.\n  DynHeating.monthly:        0\n  DynHeating.frequency:      030000\n  DynHeating.duration:       030000\n  DynHeating.mode:           'time-averaged'\n  DynHeating.fields:     'DynHeating ', 'GCHPchem',\n\n::\n#==============================================================================\n# %%%%% THE RxnRates COLLECTION %%%%%\n#\n# Archives chemical reaction rates from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnRate_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#==============================================================================\n  RxnRates.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  RxnRates.format:         'CFIO',\n  RxnRates.timestampStart: .true.\n  RxnRates.monthly:        1\n  RxnRates.frequency:      010000\n  RxnRates.duration:       010000\n  RxnRates.mode:           'time-averaged'\n  RxnRates.fields:         'RxnRate_EQ0001     ', 'GCHPchem',\n                           'RxnRate_EQ0002     ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE RxnConst COLLECTION %%%%%\n#\n# Archives chemical reaction rates constants from the KPP solver.\n# It is best to list individual reactions to avoid using too much memory.\n# Reactions should be listed as \"RxnConst_EQnnnn\", where nnnn is the reaction\n# index as listed in KPP/fullchem/gckpp_Monitor.F90 (pad zeroes as needed).\n#\n# The units of reaction rate constants vary according to the number of reactants\n# in the reaction.\n#==============================================================================\n  RxnConst.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  RxnConst.format:         'CFIO',\n  RxnConst.timestampStart: .true.\n  RxnConst.monthly:        1\n  RxnConst.frequency:      010000\n  RxnConst.duration:       010000\n  RxnConst.mode:           'time-averaged'\n  RxnConst.fields:         'RxnConst_EQ0001    ', 'GCHPchem',\n                           'RxnConst_EQ0002    ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.format:         'CFIO',\n  SpeciesConc.timestampStart: .true.\n  SpeciesConc.monthly:        1\n  SpeciesConc.frequency:      010000\n  SpeciesConc.duration:       010000\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_RCOOH          ', 'GCHPchem',\n                            'SpeciesConcVV_O2             ', 'GCHPchem',\n                            'SpeciesConcVV_N2             ', 'GCHPchem',\n                            'SpeciesConcVV_H2             ', 'GCHPchem',\n                            'SpeciesConcVV_O              ', 'GCHPchem',\n                            'SpeciesConcVV_OH             ', 'GCHPchem',\n                            'SpeciesConcVV_HO2            ', 'GCHPchem',\n                            'SpeciesConcVV_O1D            ', 'GCHPchem',\n                            'SpeciesConcVV_MO2            ', 'GCHPchem',\n                            'SpeciesConcVV_MCO3           ', 'GCHPchem',\n                            'SpeciesConcVV_CH2OO          ', 'GCHPchem',\n                            'SpeciesConcVV_B3O2           ', 'GCHPchem',\n                            'SpeciesConcVV_R4O2           ', 'GCHPchem',\n                            'SpeciesConcVV_OTHRO2         ', 'GCHPchem',\n                            'SpeciesConcVV_ATO2           ', 'GCHPchem',\n                            'SpeciesConcVV_MACRNO2        ', 'GCHPchem',\n                            'SpeciesConcVV_IHOO1          ', 'GCHPchem',\n                            'SpeciesConcVV_IHOO4          ', 'GCHPchem',\n                            'SpeciesConcVV_INO2D          ', 'GCHPchem',\n                            'SpeciesConcVV_INO2B          ', 'GCHPchem',\n                            'SpeciesConcVV_A3O2           ', 'GCHPchem',\n                            'SpeciesConcVV_IDHNBOO        ', 'GCHPchem',\n                            'SpeciesConcVV_PIO2           ', 'GCHPchem',\n                            'SpeciesConcVV_CH3CHOO        ', 'GCHPchem',\n                            'SpeciesConcVV_IEPOXBOO       ', 'GCHPchem',\n                            'SpeciesConcVV_IEPOXAOO       ', 'GCHPchem',\n                            'SpeciesConcVV_KO2            ', 'GCHPchem',\n                            'SpeciesConcVV_LIMO2          ', 'GCHPchem',\n                            'SpeciesConcVV_RCO3           ', 'GCHPchem',\n                            'SpeciesConcVV_IHPNBOO        ', 'GCHPchem',\n                            'SpeciesConcVV_ETO2           ', 'GCHPchem',\n                            'SpeciesConcVV_OLND           ', 'GCHPchem',\n                            'SpeciesConcVV_OLNN           ', 'GCHPchem',\n                            'SpeciesConcVV_PO2            ', 'GCHPchem',\n                            'SpeciesConcVV_MACR1OO        ', 'GCHPchem',\n                            'SpeciesConcVV_MCROHOO        ', 'GCHPchem',\n                            'SpeciesConcVV_MVKOHOO        ', 'GCHPchem',\n                            'SpeciesConcVV_PRN1           ', 'GCHPchem',\n                            'SpeciesConcVV_R4N1           ', 'GCHPchem',\n                            'SpeciesConcVV_ICHOO          ', 'GCHPchem',\n                            'SpeciesConcVV_IHPOO3         ', 'GCHPchem',\n                            'SpeciesConcVV_IHPNDOO        ', 'GCHPchem',\n                            'SpeciesConcVV_IHPOO2         ', 'GCHPchem',\n                            'SpeciesConcVV_IHPOO1         ', 'GCHPchem',\n                            'SpeciesConcVV_H              ', 'GCHPchem',\n                            'SpeciesConcVV_ISOPNOO1       ', 'GCHPchem',\n                            'SpeciesConcVV_IDHNDOO2       ', 'GCHPchem',\n                            'SpeciesConcVV_IDHNDOO1       ', 'GCHPchem',\n                            'SpeciesConcVV_ROH            ', 'GCHPchem',\n                            'SpeciesConcVV_ISOPNOO2       ', 'GCHPchem',\n                            'SpeciesConcVV_ICNOO          ', 'GCHPchem',\n                            'SpeciesConcVV_IDNOO          ', 'GCHPchem',\n                            'SpeciesConcVV_C4HVP2         ', 'GCHPchem',\n                            'SpeciesConcVV_C4HVP1         ', 'GCHPchem',\n                            'SpeciesConcVV_INA            ', 'GCHPchem',\n                            'SpeciesConcVV_HPALD2OO       ', 'GCHPchem',\n                            'SpeciesConcVV_HPALD1OO       ', 'GCHPchem',\n                            'SpeciesConcVV_XRO2           ', 'GCHPchem',\n                            'SpeciesConcVV_N              ', 'GCHPchem',\n                            'SpeciesConcVV_TRO2           ', 'GCHPchem',\n                            'SpeciesConcVV_BrO2           ', 'GCHPchem',\n                            'SpeciesConcVV_PH2O2          ', 'GCHPchem',\n                            'SpeciesConcVV_LCH4           ', 'GCHPchem',\n                            'SpeciesConcVV_PSO4           ', 'GCHPchem',\n                            'SpeciesConcVV_LCO            ', 'GCHPchem',\n                            'SpeciesConcVV_PCO            ', 'GCHPchem',\n                            'SpeciesConcVV_LOX            ', 'GCHPchem',\n                            'SpeciesConcVV_POX            ', 'GCHPchem',\n                            'SpeciesConcVV_LXRO2N         ', 'GCHPchem',\n                            'SpeciesConcVV_LXRO2H         ', 'GCHPchem',\n                            'SpeciesConcVV_LTRO2N         ', 'GCHPchem',\n                            'SpeciesConcVV_LTRO2H         ', 'GCHPchem',\n                            'SpeciesConcVV_NAP            ', 'GCHPchem',\n                            'SpeciesConcVV_NRO2           ', 'GCHPchem',\n                            'SpeciesConcVV_LNRO2N         ', 'GCHPchem',\n                            'SpeciesConcVV_LNRO2H         ', 'GCHPchem',\n                            'SpeciesConcVV_LISOPNO3       ', 'GCHPchem',\n                            'SpeciesConcVV_LISOPOH        ', 'GCHPchem',\n                            'SpeciesConcVV_LBrO2N         ', 'GCHPchem',\n                            'SpeciesConcVV_LBrO2H         ', 'GCHPchem',\n                            'SpeciesConcVV_CO2            ', 'GCHPchem',\n                            'SpeciesConcVV_XYLE           ', 'GCHPchem',\n                            'SpeciesConcVV_TOLU           ', 'GCHPchem',\n                            'SpeciesConcVV_SOAS           ', 'GCHPchem',\n                            'SpeciesConcVV_SOAP           ', 'GCHPchem',\n                            'SpeciesConcVV_SOAIE          ', 'GCHPchem',\n                            'SpeciesConcVV_SOAGX          ', 'GCHPchem',\n                            'SpeciesConcVV_SO4s           ', 'GCHPchem',\n                            'SpeciesConcVV_SO4            ', 'GCHPchem',\n                            'SpeciesConcVV_SO2            ', 'GCHPchem',\n                            'SpeciesConcVV_SALCCL         ', 'GCHPchem',\n                            'SpeciesConcVV_SALCAL         ', 'GCHPchem',\n                            'SpeciesConcVV_SALC           ', 'GCHPchem',\n                            'SpeciesConcVV_SALACL         ', 'GCHPchem',\n                            'SpeciesConcVV_SALAAL         ', 'GCHPchem',\n                            'SpeciesConcVV_SALA           ', 'GCHPchem',\n                            'SpeciesConcVV_RP             ', 'GCHPchem',\n                            'SpeciesConcVV_RIPD           ', 'GCHPchem',\n                            'SpeciesConcVV_RIPC           ', 'GCHPchem',\n                            'SpeciesConcVV_RIPB           ', 'GCHPchem',\n                            'SpeciesConcVV_RIPA           ', 'GCHPchem',\n                            'SpeciesConcVV_RCHO           ', 'GCHPchem',\n                            'SpeciesConcVV_RB3P           ', 'GCHPchem',\n                            'SpeciesConcVV_RA3P           ', 'GCHPchem',\n                            'SpeciesConcVV_R4P            ', 'GCHPchem',\n                            'SpeciesConcVV_R4N2           ', 'GCHPchem',\n                            'SpeciesConcVV_PYAC           ', 'GCHPchem',\n                            'SpeciesConcVV_PRPN           ', 'GCHPchem',\n                            'SpeciesConcVV_PRPE           ', 'GCHPchem',\n                            'SpeciesConcVV_PROPNN         ', 'GCHPchem',\n                            'SpeciesConcVV_PPN            ', 'GCHPchem',\n                            'SpeciesConcVV_PP             ', 'GCHPchem',\n                            'SpeciesConcVV_PIP            ', 'GCHPchem',\n                            'SpeciesConcVV_PHEN           ', 'GCHPchem',\n                            'SpeciesConcVV_pFe            ', 'GCHPchem',\n                            'SpeciesConcVV_PAN            ', 'GCHPchem',\n                            'SpeciesConcVV_OIO            ', 'GCHPchem',\n                            'SpeciesConcVV_OCS            ', 'GCHPchem',\n                            'SpeciesConcVV_OCPO           ', 'GCHPchem',\n                            'SpeciesConcVV_OCPI           ', 'GCHPchem',\n                            'SpeciesConcVV_OClO           ', 'GCHPchem',\n                            'SpeciesConcVV_O3             ', 'GCHPchem',\n                            'SpeciesConcVV_NPRNO3         ', 'GCHPchem',\n                            'SpeciesConcVV_NO3            ', 'GCHPchem',\n                            'SpeciesConcVV_NO2            ', 'GCHPchem',\n                            'SpeciesConcVV_NPHEN          ', 'GCHPchem',\n                            'SpeciesConcVV_NO             ', 'GCHPchem',\n                            'SpeciesConcVV_NITs           ', 'GCHPchem',\n                            'SpeciesConcVV_NIT            ', 'GCHPchem',\n                            'SpeciesConcVV_NH4            ', 'GCHPchem',\n                            'SpeciesConcVV_NH3            ', 'GCHPchem',\n                            'SpeciesConcVV_N2O5           ', 'GCHPchem',\n                            'SpeciesConcVV_N2O            ', 'GCHPchem',\n                            'SpeciesConcVV_MVKPC          ', 'GCHPchem',\n                            'SpeciesConcVV_MVKN           ', 'GCHPchem',\n                            'SpeciesConcVV_MVKHP          ', 'GCHPchem',\n                            'SpeciesConcVV_MVKHCB         ', 'GCHPchem',\n                            'SpeciesConcVV_MVKHC          ', 'GCHPchem',\n                            'SpeciesConcVV_MVKDH          ', 'GCHPchem',\n                            'SpeciesConcVV_MVK            ', 'GCHPchem',\n                            'SpeciesConcVV_MTPO           ', 'GCHPchem',\n                            'SpeciesConcVV_MTPA           ', 'GCHPchem',\n                            'SpeciesConcVV_MSA            ', 'GCHPchem',\n                            'SpeciesConcVV_MPN            ', 'GCHPchem',\n                            'SpeciesConcVV_MPAN           ', 'GCHPchem',\n                            'SpeciesConcVV_MP             ', 'GCHPchem',\n                            'SpeciesConcVV_MONITU         ', 'GCHPchem',\n                            'SpeciesConcVV_MONITS         ', 'GCHPchem',\n                            'SpeciesConcVV_MONITA         ', 'GCHPchem',\n                            'SpeciesConcVV_MOH            ', 'GCHPchem',\n                            'SpeciesConcVV_MGLY           ', 'GCHPchem',\n                            'SpeciesConcVV_MENO3          ', 'GCHPchem',\n                            'SpeciesConcVV_MEK            ', 'GCHPchem',\n                            'SpeciesConcVV_MCRHP          ', 'GCHPchem',\n                            'SpeciesConcVV_MCRHNB         ', 'GCHPchem',\n                            'SpeciesConcVV_MCRHN          ', 'GCHPchem',\n                            'SpeciesConcVV_MCRENOL        ', 'GCHPchem',\n                            'SpeciesConcVV_MCRDH          ', 'GCHPchem',\n                            'SpeciesConcVV_MAP            ', 'GCHPchem',\n                            'SpeciesConcVV_MACR1OOH       ', 'GCHPchem',\n                            'SpeciesConcVV_MACR           ', 'GCHPchem',\n                            'SpeciesConcVV_LVOCOA         ', 'GCHPchem',\n                            'SpeciesConcVV_LVOC           ', 'GCHPchem',\n                            'SpeciesConcVV_LIMO           ', 'GCHPchem',\n                            'SpeciesConcVV_ITHN           ', 'GCHPchem',\n                            'SpeciesConcVV_ITCN           ', 'GCHPchem',\n                            'SpeciesConcVV_ISOP           ', 'GCHPchem',\n                            'SpeciesConcVV_ISALC          ', 'GCHPchem',\n                            'SpeciesConcVV_ISALA          ', 'GCHPchem',\n                            'SpeciesConcVV_IPRNO3         ', 'GCHPchem',\n                            'SpeciesConcVV_IONO2          ', 'GCHPchem',\n                            'SpeciesConcVV_IONO           ', 'GCHPchem',\n                            'SpeciesConcVV_IONITA         ', 'GCHPchem',\n                            'SpeciesConcVV_IO             ', 'GCHPchem',\n                            'SpeciesConcVV_INPD           ', 'GCHPchem',\n                            'SpeciesConcVV_INPB           ', 'GCHPchem',\n                            'SpeciesConcVV_INO            ', 'GCHPchem',\n                            'SpeciesConcVV_INDIOL         ', 'GCHPchem',\n                            'SpeciesConcVV_IHN4           ', 'GCHPchem',\n                            'SpeciesConcVV_IHN3           ', 'GCHPchem',\n                            'SpeciesConcVV_IHN2           ', 'GCHPchem',\n                            'SpeciesConcVV_IHN1           ', 'GCHPchem',\n                            'SpeciesConcVV_IEPOXD         ', 'GCHPchem',\n                            'SpeciesConcVV_IEPOXB         ', 'GCHPchem',\n                            'SpeciesConcVV_IEPOXA         ', 'GCHPchem',\n                            'SpeciesConcVV_IDN            ', 'GCHPchem',\n                            'SpeciesConcVV_IDHPE          ', 'GCHPchem',\n                            'SpeciesConcVV_IDHDP          ', 'GCHPchem',\n                            'SpeciesConcVV_IDCHP          ', 'GCHPchem',\n                            'SpeciesConcVV_IDC            ', 'GCHPchem',\n                            'SpeciesConcVV_ICPDH          ', 'GCHPchem',\n                            'SpeciesConcVV_ICN            ', 'GCHPchem',\n                            'SpeciesConcVV_ICl            ', 'GCHPchem',\n                            'SpeciesConcVV_ICHE           ', 'GCHPchem',\n                            'SpeciesConcVV_IBr            ', 'GCHPchem',\n                            'SpeciesConcVV_I2O4           ', 'GCHPchem',\n                            'SpeciesConcVV_I2O3           ', 'GCHPchem',\n                            'SpeciesConcVV_I2O2           ', 'GCHPchem',\n                            'SpeciesConcVV_I2             ', 'GCHPchem',\n                            'SpeciesConcVV_I              ', 'GCHPchem',\n                            'SpeciesConcVV_HPETHNL        ', 'GCHPchem',\n                            'SpeciesConcVV_HPALD4         ', 'GCHPchem',\n                            'SpeciesConcVV_HPALD3         ', 'GCHPchem',\n                            'SpeciesConcVV_HPALD2         ', 'GCHPchem',\n                            'SpeciesConcVV_HPALD1         ', 'GCHPchem',\n                            'SpeciesConcVV_HONIT          ', 'GCHPchem',\n                            'SpeciesConcVV_HOI            ', 'GCHPchem',\n                            'SpeciesConcVV_HOCl           ', 'GCHPchem',\n                            'SpeciesConcVV_HOBr           ', 'GCHPchem',\n                            'SpeciesConcVV_HNO4           ', 'GCHPchem',\n                            'SpeciesConcVV_HNO3           ', 'GCHPchem',\n                            'SpeciesConcVV_HNO2           ', 'GCHPchem',\n                            'SpeciesConcVV_HMS            ', 'GCHPchem',\n                            'SpeciesConcVV_HMML           ', 'GCHPchem',\n                            'SpeciesConcVV_HMHP           ', 'GCHPchem',\n                            'SpeciesConcVV_HI             ', 'GCHPchem',\n                            'SpeciesConcVV_HCOOH          ', 'GCHPchem',\n                            'SpeciesConcVV_HCl            ', 'GCHPchem',\n                            'SpeciesConcVV_HCFC22         ', 'GCHPchem',\n                            'SpeciesConcVV_HCFC142b       ', 'GCHPchem',\n                            'SpeciesConcVV_HCFC141b       ', 'GCHPchem',\n                            'SpeciesConcVV_HCFC123        ', 'GCHPchem',\n                            'SpeciesConcVV_HC5A           ', 'GCHPchem',\n                            'SpeciesConcVV_HBr            ', 'GCHPchem',\n                            'SpeciesConcVV_HAC            ', 'GCHPchem',\n                            'SpeciesConcVV_H2O2           ', 'GCHPchem',\n                            'SpeciesConcVV_H2O            ', 'GCHPchem',\n                            'SpeciesConcVV_H2402          ', 'GCHPchem',\n                            'SpeciesConcVV_H1301          ', 'GCHPchem',\n                            'SpeciesConcVV_H1211          ', 'GCHPchem',\n                            'SpeciesConcVV_GLYX           ', 'GCHPchem',\n                            'SpeciesConcVV_GLYC           ', 'GCHPchem',\n                            'SpeciesConcVV_FURA           ', 'GCHPchem',\n                            'SpeciesConcVV_ETP            ', 'GCHPchem',\n                            'SpeciesConcVV_ETNO3          ', 'GCHPchem',\n                            'SpeciesConcVV_ETHP           ', 'GCHPchem',\n                            'SpeciesConcVV_ETHN           ', 'GCHPchem',\n                            'SpeciesConcVV_ETHLN          ', 'GCHPchem',\n                            'SpeciesConcVV_EOH            ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin7        ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin6        ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin5        ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin4        ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin3        ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin2        ', 'GCHPchem',\n                            'SpeciesConcVV_DSTbin1        ', 'GCHPchem',\n                            'SpeciesConcVV_DMS            ', 'GCHPchem',\n                            'SpeciesConcVV_CO             ', 'GCHPchem',\n                            'SpeciesConcVV_ClOO           ', 'GCHPchem',\n                            'SpeciesConcVV_ClO            ', 'GCHPchem',\n                            'SpeciesConcVV_ClNO3          ', 'GCHPchem',\n                            'SpeciesConcVV_ClNO2          ', 'GCHPchem',\n                            'SpeciesConcVV_Cl2O2          ', 'GCHPchem',\n                            'SpeciesConcVV_Cl2            ', 'GCHPchem',\n                            'SpeciesConcVV_Cl             ', 'GCHPchem',\n                            'SpeciesConcVV_CLOCK          ', 'GCHPchem',\n                            'SpeciesConcVV_CHCl3          ', 'GCHPchem',\n                            'SpeciesConcVV_CHBr3          ', 'GCHPchem',\n                            'SpeciesConcVV_CH4            ', 'GCHPchem',\n                            'SpeciesConcVV_CH3I           ', 'GCHPchem',\n                            'SpeciesConcVV_CH3Cl          ', 'GCHPchem',\n                            'SpeciesConcVV_CH3CCl3        ', 'GCHPchem',\n                            'SpeciesConcVV_CH3Br          ', 'GCHPchem',\n                            'SpeciesConcVV_CH2O           ', 'GCHPchem',\n                            'SpeciesConcVV_CH2ICl         ', 'GCHPchem',\n                            'SpeciesConcVV_CH2IBr         ', 'GCHPchem',\n                            'SpeciesConcVV_CH2I2          ', 'GCHPchem',\n                            'SpeciesConcVV_CH2Cl2         ', 'GCHPchem',\n                            'SpeciesConcVV_CH2Br2         ', 'GCHPchem',\n                            'SpeciesConcVV_CFC12          ', 'GCHPchem',\n                            'SpeciesConcVV_CFC115         ', 'GCHPchem',\n                            'SpeciesConcVV_CFC114         ', 'GCHPchem',\n                            'SpeciesConcVV_CFC113         ', 'GCHPchem',\n                            'SpeciesConcVV_CFC11          ', 'GCHPchem',\n                            'SpeciesConcVV_CCl4           ', 'GCHPchem',\n                            'SpeciesConcVV_C3H8           ', 'GCHPchem',\n                            'SpeciesConcVV_C2H6           ', 'GCHPchem',\n                            'SpeciesConcVV_C2H4           ', 'GCHPchem',\n                            'SpeciesConcVV_C2H2           ', 'GCHPchem',\n                            'SpeciesConcVV_BZPAN          ', 'GCHPchem',\n                            'SpeciesConcVV_BUTDI          ', 'GCHPchem',\n                            'SpeciesConcVV_BrSALC         ', 'GCHPchem',\n                            'SpeciesConcVV_BrSALA         ', 'GCHPchem',\n                            'SpeciesConcVV_BrO            ', 'GCHPchem',\n                            'SpeciesConcVV_BrNO3          ', 'GCHPchem',\n                            'SpeciesConcVV_BrNO2          ', 'GCHPchem',\n                            'SpeciesConcVV_BrCl           ', 'GCHPchem',\n                            'SpeciesConcVV_Br2            ', 'GCHPchem',\n                            'SpeciesConcVV_Br             ', 'GCHPchem',\n                            'SpeciesConcVV_BENZ           ', 'GCHPchem',\n                            'SpeciesConcVV_BCPO           ', 'GCHPchem',\n                            'SpeciesConcVV_BCPI           ', 'GCHPchem',\n                            'SpeciesConcVV_BALD           ', 'GCHPchem',\n                            'SpeciesConcVV_ATOOH          ', 'GCHPchem',\n                            'SpeciesConcVV_AONITA         ', 'GCHPchem',\n                            'SpeciesConcVV_ALK4           ', 'GCHPchem',\n                            'SpeciesConcVV_ALD2           ', 'GCHPchem',\n                            'SpeciesConcVV_AERI           ', 'GCHPchem',\n                            'SpeciesConcVV_ACTA           ', 'GCHPchem',\n                            'SpeciesConcVV_ACET           ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOG3          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOG2          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOG1          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOG0          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOA3          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOA2          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOA1          ', 'GCHPchem',\n                            #'SpeciesConcVV_TSOA0          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOG3          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOG2          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOG1          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOAN          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOA3          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOA2          ', 'GCHPchem',\n                            #'SpeciesConcVV_ASOA1          ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE StateChm COLLECTION %%%%%\n#\n# Fields of the State_Chm object (see also Aerosols collection)\n#=============================================================================\n  StateChm.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateChm.format:         'CFIO',\n  StateChm.timestampStart: .true.\n  StateChm.monthly:        1\n  StateChm.frequency:      010000\n  StateChm.duration:       010000\n  StateChm.mode:           'time-averaged'\n  StateChm.fields:         'Chem_IsorropAeropHAccum       ', 'GCHPchem',\n                           'Chem_IsorropAeropHCoarse      ', 'GCHPchem',\n                           'Chem_IsorropHplusAccum        ', 'GCHPchem',\n                           'Chem_IsorropHplusCoarse       ', 'GCHPchem',\n                           'Chem_IsorropAeroH2OAccum      ', 'GCHPchem',\n                           'Chem_IsorropAeroH2OCoarse     ', 'GCHPchem',\n                           'Chem_IsorropSulfate           ', 'GCHPchem',\n                           'Chem_IsorropNitrateAccum      ', 'GCHPchem',\n                           'Chem_IsorropNitrateCoarse     ', 'GCHPchem',\n                           'Chem_IsorropChlorideAccum     ', 'GCHPchem',\n                           'Chem_IsorropChlorideCoarse    ', 'GCHPchem',\n                           'Chem_IsorropBisulfate         ', 'GCHPchem',\n                           'Chem_pHCloud                  ', 'GCHPchem',\n                           'Chem_isCloud                  ', 'GCHPchem',\n                           'Chem_SSAlkAccumMode           ', 'GCHPchem',\n                           'Chem_SSAlkCoarseMode          ', 'GCHPchem',\n                           'Chem_HSO3AQ                   ', 'GCHPchem',\n                           'Chem_SO3AQ                    ', 'GCHPchem',\n                           'Chem_fupdateHOBr              ', 'GCHPchem',\n                           'Chem_GammaN2O5overall         ', 'GCHPchem',\n                           'Chem_GammaN2O5fine            ', 'GCHPchem',\n                           'Chem_YieldClNO2fine           ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% The StateMet time-averaged COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.format:         'CFIO',\n  StateMet.timestampStart: .true.\n  StateMet.monthly:        1\n  StateMet.frequency:      010000\n  StateMet.duration:       010000\n  StateMet.mode:           'time-averaged'\n  StateMet.fields:    'Met_AD              ', 'GCHPchem',\n                      #'Met_AIRDEN          ', 'GCHPchem',\n                      #'Met_AIRVOL          ', 'GCHPchem',\n                      #'Met_ALBD            ', 'GCHPchem',\n                      'Met_AREAM2          ', 'GCHPchem',\n                      #'Met_AVGW            ', 'GCHPchem',\n                      'Met_BXHEIGHT        ', 'GCHPchem',\n                      #'Met_ChemGridLev     ', 'GCHPchem',\n                      #'Met_CLDF            ', 'GCHPchem',\n                      'Met_CLDFRC          ', 'GCHPchem',\n                      #'Met_CLDTOPS         ', 'GCHPchem',\n                      #'Met_DELP            ', 'GCHPchem',\n                      #'Met_DELPDRY         ', 'GCHPchem',\n                      #'Met_DQRCU           ', 'GCHPchem',\n                      #'Met_DQRLSAN         ', 'GCHPchem',\n                      #'Met_DTRAIN          ', 'GCHPchem',\n                      #'Met_EFLUX           ', 'GCHPchem',\n                      #'Met_FRCLND          ', 'GCHPchem',\n                      #'Met_FRLAKE          ', 'GCHPchem',\n                      #'Met_FRLAND          ', 'GCHPchem',\n                      #'Met_FRLANDICE       ', 'GCHPchem',\n                      #'Met_FROCEAN         ', 'GCHPchem',\n                      #'Met_FRSEAICE        ', 'GCHPchem',\n                      #'Met_FRSNOW          ', 'GCHPchem',\n                      #'Met_GWETROOT        ', 'GCHPchem',\n                      #'Met_GWETTOP         ', 'GCHPchem',\n                      #'Met_HFLUX           ', 'GCHPchem',\n                      #'Met_LAI             ', 'GCHPchem',\n                      #'Met_PARDR           ', 'GCHPchem',\n                      #'Met_PARDF           ', 'GCHPchem',\n                      #'Met_PBLTOPL         ', 'GCHPchem',\n                      #'Met_PBLH            ', 'GCHPchem',\n                      #'Met_PHIS            ', 'GCHPchem',\n                      #'Met_PMID            ', 'GCHPchem',\n                      #'Met_PMIDDRY         ', 'GCHPchem',\n                      #'Met_PRECANV         ', 'GCHPchem',\n                      #'Met_PRECCON         ', 'GCHPchem',\n                      #'Met_PRECLSC         ', 'GCHPchem',\n                      #'Met_PRECTOT         ', 'GCHPchem',\n                      #'Met_PS1DRY          ', 'GCHPchem',\n                      #'Met_PS1WET          ', 'GCHPchem',\n                      #'Met_PS2DRY          ', 'GCHPchem',\n                      #'Met_PS2WET          ', 'GCHPchem',\n                      'Met_PSC2WET         ', 'GCHPchem',\n                      'Met_PSC2DRY         ', 'GCHPchem',\n                      #'Met_QI              ', 'GCHPchem',\n                      #'Met_QL              ', 'GCHPchem',\n                      #'Met_OMEGA           ', 'GCHPchem',\n                      'Met_OPTD            ', 'GCHPchem',\n                      #'Met_REEVAPCN        ', 'GCHPchem',\n                      #'Met_REEVAPLS        ', 'GCHPchem',\n                      #'Met_SLP             ', 'GCHPchem',\n                      #'Met_SNODP           ', 'GCHPchem',\n                      #'Met_SNOMAS          ', 'GCHPchem',\n                      'Met_SPHU            ', 'GCHPchem',\n                      #'Met_SPHU1           ', 'GCHPchem',\n                      #'Met_SPHU2           ', 'GCHPchem',\n                      #'Met_SUNCOS          ', 'GCHPchem',\n                      #'Met_SUNCOSmid       ', 'GCHPchem',\n                      #'Met_SWGDN           ', 'GCHPchem',\n                      'Met_T               ', 'GCHPchem',\n                      #'Met_TAUCLI          ', 'GCHPchem',\n                      #'Met_TAUCLW          ', 'GCHPchem',\n                      #'Met_THETA           ', 'GCHPchem',\n                      #'Met_TMPU1           ', 'GCHPchem',\n                      #'Met_TMPU2           ', 'GCHPchem',\n                      #'Met_TO3             ', 'GCHPchem',\n                      'Met_TropHt          ', 'GCHPchem',\n                      'Met_TropLev         ', 'GCHPchem',\n                      'Met_TropP           ', 'GCHPchem',\n                      #'Met_TS              ', 'GCHPchem',\n                      #'Met_TSKIN           ', 'GCHPchem',\n                      #'Met_TV              ', 'GCHPchem',\n                      #'Met_U               ', 'GCHPchem',\n                      #'Met_U10M            ', 'GCHPchem',\n                      #'Met_USTAR           ', 'GCHPchem',\n                      #'Met_UVALBEDO        ', 'GCHPchem',\n                      #'Met_V               ', 'GCHPchem',\n                      #'Met_V10M            ', 'GCHPchem',\n                      #'Met_Z0              ', 'GCHPchem',\n                      #'FracOfTimeInTrop    ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# State_Met arrays that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.format:         'CFIO',\n  StateMetLevEdge.timestampStart: .true.\n  StateMetLevEdge.monthly:        1\n  StateMetLevEdge.frequency:      010000\n  StateMetLevEdge.duration:       010000\n  StateMetLevEdge.mode:           'time-averaged'\n  StateMetLevEdge.fields:         'Met_CMFMC                     ', 'GCHPchem',\n                                  'Met_PEDGE                     ', 'GCHPchem',\n                                  'Met_PEDGEDRY                  ', 'GCHPchem',\n                                  'Met_PFICU                     ', 'GCHPchem',\n                                  'Met_PFILSAN                   ', 'GCHPchem',\n                                  'Met_PFLCU                     ', 'GCHPchem',\n                                  'Met_PFLLSAN                   ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE StratBM COLLECTION %%%%%\n#\n# Fields needed for GEOS-Chem 10-year stratospheric benchmarks\n#==============================================================================\n  StratBM.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StratBM.format:         'CFIO',\n  StratBM.timestampStart: .true.\n  StratBM.monthly:        1\n  StratBM.frequency:      010000\n  StratBM.duration:       240000\n  StratBM.mode:           'time-averaged'\n  StratBM.fields:         'SpeciesConcVV_NO2 ', 'GCHPchem',\n                          'SpeciesConcVV_O3  ', 'GCHPchem',\n                          'SpeciesConcVV_ClO ', 'GCHPchem',\n                          'Met_PSC2WET       ', 'GCHPchem',\n                          'Met_BXHEIGHT      ', 'GCHPchem',\n                          'Met_AIRDEN        ', 'GCHPchem',\n                          'Met_AD            ', 'GCHPchem',\n::\n#==============================================================================\n# %%%%% THE Tomas Microphysics Rate COLLECTION %%%%%\n#\n# Tomas microphysics rates\n#==============================================================================\n  Tomas.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Tomas.format:         'CFIO',\n  Tomas.timestampStart: .true.\n  Tomas.monthly:        0\n  Tomas.frequency:      010000\n  Tomas.duration:       010000\n  Tomas.mode:           'time-averaged'\n  Tomas.fields:         'TomasH2SO4mass_bin01        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin02        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin03        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin04        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin05        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin06        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin07        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin08        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin09        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin10        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin11        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin12        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin13        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin14        ', 'GCHPchem',\n                        'TomasH2SO4mass_bin15        ', 'GCHPchem',\n                        'TomasH2SO4number_bin01      ', 'GCHPchem',\n                        'TomasH2SO4number_bin02      ', 'GCHPchem',\n                        'TomasH2SO4number_bin03      ', 'GCHPchem',\n                        'TomasH2SO4number_bin04      ', 'GCHPchem',\n                        'TomasH2SO4number_bin05      ', 'GCHPchem',\n                        'TomasH2SO4number_bin06      ', 'GCHPchem',\n                        'TomasH2SO4number_bin07      ', 'GCHPchem',\n                        'TomasH2SO4number_bin08      ', 'GCHPchem',\n                        'TomasH2SO4number_bin09      ', 'GCHPchem',\n                        'TomasH2SO4number_bin10      ', 'GCHPchem',\n                        'TomasH2SO4number_bin11      ', 'GCHPchem',\n                        'TomasH2SO4number_bin12      ', 'GCHPchem',\n                        'TomasH2SO4number_bin13      ', 'GCHPchem',\n                        'TomasH2SO4number_bin14      ', 'GCHPchem',\n                        'TomasH2SO4number_bin15      ', 'GCHPchem',\n                        'TomasCOAGmass_bin01         ', 'GCHPchem',\n                        'TomasCOAGmass_bin02         ', 'GCHPchem',\n                        'TomasCOAGmass_bin03         ', 'GCHPchem',\n                        'TomasCOAGmass_bin04         ', 'GCHPchem',\n                        'TomasCOAGmass_bin05         ', 'GCHPchem',\n                        'TomasCOAGmass_bin06         ', 'GCHPchem',\n                        'TomasCOAGmass_bin07         ', 'GCHPchem',\n                        'TomasCOAGmass_bin08         ', 'GCHPchem',\n                        'TomasCOAGmass_bin09         ', 'GCHPchem',\n                        'TomasCOAGmass_bin10         ', 'GCHPchem',\n                        'TomasCOAGmass_bin11         ', 'GCHPchem',\n                        'TomasCOAGmass_bin12         ', 'GCHPchem',\n                        'TomasCOAGmass_bin13         ', 'GCHPchem',\n                        'TomasCOAGmass_bin14         ', 'GCHPchem',\n                        'TomasCOAGmass_bin15         ', 'GCHPchem',\n                        'TomasCOAGnumber_bin01       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin02       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin03       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin04       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin05       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin06       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin07       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin08       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin09       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin10       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin11       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin12       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin13       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin14       ', 'GCHPchem',\n                        'TomasCOAGnumber_bin15       ', 'GCHPchem',\n                        'TomasNUCRATEFN              ', 'GCHPchem',\n                        'TomasNUCLmass_bin01         ', 'GCHPchem',\n                        'TomasNUCLmass_bin02         ', 'GCHPchem',\n                        'TomasNUCLmass_bin03         ', 'GCHPchem',\n                        'TomasNUCLmass_bin04         ', 'GCHPchem',\n                        'TomasNUCLmass_bin05         ', 'GCHPchem',\n                        'TomasNUCLmass_bin06         ', 'GCHPchem',\n                        'TomasNUCLmass_bin07         ', 'GCHPchem',\n                        'TomasNUCLmass_bin08         ', 'GCHPchem',\n                        'TomasNUCLmass_bin09         ', 'GCHPchem',\n                        'TomasNUCLmass_bin10         ', 'GCHPchem',\n                        'TomasNUCLmass_bin11         ', 'GCHPchem',\n                        'TomasNUCLmass_bin12         ', 'GCHPchem',\n                        'TomasNUCLmass_bin13         ', 'GCHPchem',\n                        'TomasNUCLmass_bin14         ', 'GCHPchem',\n                        'TomasNUCLmass_bin15         ', 'GCHPchem',\n                        'TomasNUCLnumber_bin01       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin02       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin03       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin04       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin05       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin06       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin07       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin08       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin09       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin10       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin11       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin12       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin13       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin14       ', 'GCHPchem',\n                        'TomasNUCLnumber_bin15       ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin01    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin02    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin03    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin04    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin05    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin06    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin07    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin08    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin09    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin10    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin11    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin12    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin13    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin14    ', 'GCHPchem',\n                        'TomasNUCRATEnumber_bin15    ', 'GCHPchem',\n                        'TomasAQOXmass_bin01         ', 'GCHPchem',\n                        'TomasAQOXmass_bin02         ', 'GCHPchem',\n                        'TomasAQOXmass_bin03         ', 'GCHPchem',\n                        'TomasAQOXmass_bin04         ', 'GCHPchem',\n                        'TomasAQOXmass_bin05         ', 'GCHPchem',\n                        'TomasAQOXmass_bin06         ', 'GCHPchem',\n                        'TomasAQOXmass_bin07         ', 'GCHPchem',\n                        'TomasAQOXmass_bin08         ', 'GCHPchem',\n                        'TomasAQOXmass_bin09         ', 'GCHPchem',\n                        'TomasAQOXmass_bin10         ', 'GCHPchem',\n                        'TomasAQOXmass_bin11         ', 'GCHPchem',\n                        'TomasAQOXmass_bin12         ', 'GCHPchem',\n                        'TomasAQOXmass_bin13         ', 'GCHPchem',\n                        'TomasAQOXmass_bin14         ', 'GCHPchem',\n                        'TomasAQOXmass_bin15         ', 'GCHPchem',\n                        'TomasAQOXnumber_bin01       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin02       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin03       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin04       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin05       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin06       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin07       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin08       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin09       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin10       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin11       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin12       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin13       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin14       ', 'GCHPchem',\n                        'TomasAQOXnumber_bin15       ', 'GCHPchem',\n                        'TomasMNFIXmass_bin01        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin02        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin03        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin04        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin05        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin06        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin07        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin08        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin09        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin10        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin11        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin12        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin13        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin14        ', 'GCHPchem',\n                        'TomasMNFIXmass_bin15        ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin01      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin02      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin03      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin04      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin05      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin06      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin07      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin08      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin09      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin10      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin11      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin12      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin13      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin14      ', 'GCHPchem',\n                        'TomasMNFIXnumber_bin15      ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin01   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin02   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin03   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin04   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin05   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin06   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin07   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin08   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin09   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin10   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin11   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin12   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin13   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin14   ', 'GCHPchem',\n                        'TomasMNFIXh2so4mass_bin15   ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin01 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin02 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin03 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin04 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin05 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin06 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin07 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin08 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin09 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin10 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin11 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin12 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin13 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin14 ', 'GCHPchem',\n                        'TomasMNFIXh2so4number_bin15 ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin01    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin02    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin03    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin04    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin05    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin06    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin07    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin08    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin09    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin10    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin11    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin12    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin13    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin14    ', 'GCHPchem',\n                        'TomasMNFIXcoagmass_bin15    ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin01  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin02  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin03  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin04  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin05  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin06  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin07  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin08  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin09  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin10  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin11  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin12  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin13  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin14  ', 'GCHPchem',\n                        'TomasMNFIXcoagnumber_bin15  ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin01    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin02    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin03    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin04    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin05    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin06    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin07    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin08    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin09    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin10    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin11    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin12    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin13    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin14    ', 'GCHPchem',\n                        'TomasMNFIXaqoxmass_bin15    ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin01  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin02  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin03  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin04  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin05  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin06  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin07  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin08  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin09  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin10  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin11  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin12  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin13  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin14  ', 'GCHPchem',\n                        'TomasMNFIXaqoxnumber_bin15  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin01  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin02  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin03  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin04  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin05  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin06  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin07  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin08  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin09  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin10  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin11  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin12  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin13  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin14  ', 'GCHPchem',\n                        'TomasMNFIXezwat1mass_bin15  ', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin01', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin02', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin03', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin04', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin05', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin06', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin07', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin08', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin09', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin10', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin11', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin12', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin13', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin14', 'GCHPchem',\n                        'TomasMNFIXezwat1number_bin15', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin01  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin02  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin03  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin04  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin05  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin06  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin07  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin08  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin09  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin10  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin11  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin12  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin13  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin14  ', 'GCHPchem',\n                        'TomasMNFIXezwat2mass_bin15  ', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin01', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin02', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin03', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin04', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin05', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin06', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin07', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin08', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin09', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin10', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin11', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin12', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin13', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin14', 'GCHPchem',\n                        'TomasMNFIXezwat2number_bin15', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin01  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin02  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin03  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin04  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin05  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin06  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin07  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin08  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin09  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin10  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin11  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin12  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin13  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin14  ', 'GCHPchem',\n                        'TomasMNFIXezwat3mass_bin15  ', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin01', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin02', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin03', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin04', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin05', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin06', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin07', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin08', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin09', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin10', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin11', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin12', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin13', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin14', 'GCHPchem',\n                        'TomasMNFIXezwat3number_bin15', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin01  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin02  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin03  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin04  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin05  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin06  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin07  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin08  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin09  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin10  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin11  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin12  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin13  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin14  ', 'GCHPchem',\n                        'TomasMNFIXcheck1mass_bin15  ', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin01', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin02', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin03', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin04', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin05', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin06', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin07', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin08', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin09', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin10', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin11', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin12', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin13', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin14', 'GCHPchem',\n                        'TomasMNFIXcheck1number_bin15', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin01  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin02  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin03  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin04  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin05  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin06  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin07  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin08  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin09  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin10  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin11  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin12  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin13  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin14  ', 'GCHPchem',\n                        'TomasMNFIXcheck2mass_bin15  ', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin01', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin02', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin03', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin04', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin05', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin06', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin07', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin08', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin09', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin10', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin11', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin12', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin13', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin14', 'GCHPchem',\n                        'TomasMNFIXcheck2number_bin15', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin01  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin02  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin03  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin04  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin05  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin06  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin07  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin08  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin09  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin10  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin11  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin12  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin13  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin14  ', 'GCHPchem',\n                        'TomasMNFIXcheck3mass_bin15  ', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin01', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin02', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin03', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin04', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin05', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin06', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin07', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin08', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin09', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin10', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin11', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin12', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin13', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin14', 'GCHPchem',\n                        'TomasMNFIXcheck3number_bin15', 'GCHPchem',\n                        'TomasSOAmass_bin01          ', 'GCHPchem',\n                        'TomasSOAmass_bin02          ', 'GCHPchem',\n                        'TomasSOAmass_bin03          ', 'GCHPchem',\n                        'TomasSOAmass_bin04          ', 'GCHPchem',\n                        'TomasSOAmass_bin05          ', 'GCHPchem',\n                        'TomasSOAmass_bin06          ', 'GCHPchem',\n                        'TomasSOAmass_bin07          ', 'GCHPchem',\n                        'TomasSOAmass_bin08          ', 'GCHPchem',\n                        'TomasSOAmass_bin09          ', 'GCHPchem',\n                        'TomasSOAmass_bin10          ', 'GCHPchem',\n                        'TomasSOAmass_bin11          ', 'GCHPchem',\n                        'TomasSOAmass_bin12          ', 'GCHPchem',\n                        'TomasSOAmass_bin13          ', 'GCHPchem',\n                        'TomasSOAmass_bin14          ', 'GCHPchem',\n                        'TomasSOAmass_bin15          ', 'GCHPchem',\n                        'TomasSOAnumber_bin01        ', 'GCHPchem',\n                        'TomasSOAnumber_bin02        ', 'GCHPchem',\n                        'TomasSOAnumber_bin03        ', 'GCHPchem',\n                        'TomasSOAnumber_bin04        ', 'GCHPchem',\n                        'TomasSOAnumber_bin05        ', 'GCHPchem',\n                        'TomasSOAnumber_bin06        ', 'GCHPchem',\n                        'TomasSOAnumber_bin07        ', 'GCHPchem',\n                        'TomasSOAnumber_bin08        ', 'GCHPchem',\n                        'TomasSOAnumber_bin09        ', 'GCHPchem',\n                        'TomasSOAnumber_bin10        ', 'GCHPchem',\n                        'TomasSOAnumber_bin11        ', 'GCHPchem',\n                        'TomasSOAnumber_bin12        ', 'GCHPchem',\n                        'TomasSOAnumber_bin13        ', 'GCHPchem',\n                        'TomasSOAnumber_bin14        ', 'GCHPchem',\n                        'TomasSOAnumber_bin15        ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#=============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.format:         'CFIO',\n  WetLossConv.timestampStart: .true.\n  WetLossConv.monthly:        1\n  WetLossConv.frequency:      010000\n  WetLossConv.duration:       010000\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:     'WetLossConv_SOAS           ', 'GCHPchem',\n                          'WetLossConv_SOAIE          ', 'GCHPchem',\n                          'WetLossConv_SOAGX          ', 'GCHPchem',\n                          'WetLossConv_SO4s           ', 'GCHPchem',\n                          'WetLossConv_SO4            ', 'GCHPchem',\n                          'WetLossConv_SO2            ', 'GCHPchem',\n                          'WetLossConv_SALCCL         ', 'GCHPchem',\n                          'WetLossConv_SALCAL         ', 'GCHPchem',\n                          'WetLossConv_SALC           ', 'GCHPchem',\n                          'WetLossConv_SALACL         ', 'GCHPchem',\n                          'WetLossConv_SALAAL         ', 'GCHPchem',\n                          'WetLossConv_SALA           ', 'GCHPchem',\n                          'WetLossConv_RP             ', 'GCHPchem',\n                          'WetLossConv_RIPD           ', 'GCHPchem',\n                          'WetLossConv_RIPC           ', 'GCHPchem',\n                          'WetLossConv_RIPB           ', 'GCHPchem',\n                          'WetLossConv_RIPA           ', 'GCHPchem',\n                          'WetLossConv_RB3P           ', 'GCHPchem',\n                          'WetLossConv_RA3P           ', 'GCHPchem',\n                          'WetLossConv_R4P            ', 'GCHPchem',\n                          'WetLossConv_R4N2           ', 'GCHPchem',\n                          'WetLossConv_PYAC           ', 'GCHPchem',\n                          'WetLossConv_PRPN           ', 'GCHPchem',\n                          'WetLossConv_PRPE           ', 'GCHPchem',\n                          'WetLossConv_PROPNN         ', 'GCHPchem',\n                          'WetLossConv_PPN            ', 'GCHPchem',\n                          'WetLossConv_PP             ', 'GCHPchem',\n                          'WetLossConv_pFe            ', 'GCHPchem',\n                          'WetLossConv_PAN            ', 'GCHPchem',\n                          'WetLossConv_OCPO           ', 'GCHPchem',\n                          'WetLossConv_OCPI           ', 'GCHPchem',\n                          'WetLossConv_NITs           ', 'GCHPchem',\n                          'WetLossConv_NIT            ', 'GCHPchem',\n                          'WetLossConv_NH4            ', 'GCHPchem',\n                          'WetLossConv_NH3            ', 'GCHPchem',\n                          'WetLossConv_MVKPC          ', 'GCHPchem',\n                          'WetLossConv_MVKN           ', 'GCHPchem',\n                          'WetLossConv_MVKHP          ', 'GCHPchem',\n                          'WetLossConv_MVKHCB         ', 'GCHPchem',\n                          'WetLossConv_MVKHC          ', 'GCHPchem',\n                          'WetLossConv_MVKDH          ', 'GCHPchem',\n                          'WetLossConv_MVK            ', 'GCHPchem',\n                          'WetLossConv_MTPO           ', 'GCHPchem',\n                          'WetLossConv_MTPA           ', 'GCHPchem',\n                          'WetLossConv_MSA            ', 'GCHPchem',\n                          'WetLossConv_MPN            ', 'GCHPchem',\n                          'WetLossConv_MPAN           ', 'GCHPchem',\n                          'WetLossConv_MP             ', 'GCHPchem',\n                          'WetLossConv_MONITU         ', 'GCHPchem',\n                          'WetLossConv_MONITS         ', 'GCHPchem',\n                          'WetLossConv_MONITA         ', 'GCHPchem',\n                          'WetLossConv_MOH            ', 'GCHPchem',\n                          'WetLossConv_MGLY           ', 'GCHPchem',\n                          'WetLossConv_MEK            ', 'GCHPchem',\n                          'WetLossConv_MCRHP          ', 'GCHPchem',\n                          'WetLossConv_MCRHNB         ', 'GCHPchem',\n                          'WetLossConv_MCRHN          ', 'GCHPchem',\n                          'WetLossConv_MCRENOL        ', 'GCHPchem',\n                          'WetLossConv_MCRDH          ', 'GCHPchem',\n                          'WetLossConv_MAP            ', 'GCHPchem',\n                          'WetLossConv_MACR1OOH       ', 'GCHPchem',\n                          'WetLossConv_LVOCOA         ', 'GCHPchem',\n                          'WetLossConv_LVOC           ', 'GCHPchem',\n                          'WetLossConv_LIMO           ', 'GCHPchem',\n                          'WetLossConv_ITHN           ', 'GCHPchem',\n                          'WetLossConv_ITCN           ', 'GCHPchem',\n                          'WetLossConv_ISALC          ', 'GCHPchem',\n                          'WetLossConv_ISALA          ', 'GCHPchem',\n                          'WetLossConv_IONO2          ', 'GCHPchem',\n                          'WetLossConv_IONO           ', 'GCHPchem',\n                          'WetLossConv_IONITA         ', 'GCHPchem',\n                          'WetLossConv_INPD           ', 'GCHPchem',\n                          'WetLossConv_INPB           ', 'GCHPchem',\n                          'WetLossConv_INDIOL         ', 'GCHPchem',\n                          'WetLossConv_IHN4           ', 'GCHPchem',\n                          'WetLossConv_IHN3           ', 'GCHPchem',\n                          'WetLossConv_IHN2           ', 'GCHPchem',\n                          'WetLossConv_IHN1           ', 'GCHPchem',\n                          'WetLossConv_IEPOXD         ', 'GCHPchem',\n                          'WetLossConv_IEPOXB         ', 'GCHPchem',\n                          'WetLossConv_IEPOXA         ', 'GCHPchem',\n                          'WetLossConv_IDN            ', 'GCHPchem',\n                          'WetLossConv_IDHPE          ', 'GCHPchem',\n                          'WetLossConv_IDHDP          ', 'GCHPchem',\n                          'WetLossConv_IDCHP          ', 'GCHPchem',\n                          'WetLossConv_ICPDH          ', 'GCHPchem',\n                          'WetLossConv_ICN            ', 'GCHPchem',\n                          'WetLossConv_ICl            ', 'GCHPchem',\n                          'WetLossConv_ICHE           ', 'GCHPchem',\n                          'WetLossConv_IBr            ', 'GCHPchem',\n                          'WetLossConv_I2O4           ', 'GCHPchem',\n                          'WetLossConv_I2O3           ', 'GCHPchem',\n                          'WetLossConv_I2O2           ', 'GCHPchem',\n                          'WetLossConv_I2             ', 'GCHPchem',\n                          'WetLossConv_HPETHNL        ', 'GCHPchem',\n                          'WetLossConv_HONIT          ', 'GCHPchem',\n                          'WetLossConv_HOI            ', 'GCHPchem',\n                          'WetLossConv_HOCl           ', 'GCHPchem',\n                          'WetLossConv_HOBr           ', 'GCHPchem',\n                          'WetLossConv_HNO3           ', 'GCHPchem',\n                          'WetLossConv_HMS            ', 'GCHPchem',\n                          'WetLossConv_HMML           ', 'GCHPchem',\n                          'WetLossConv_HMHP           ', 'GCHPchem',\n                          'WetLossConv_HI             ', 'GCHPchem',\n                          'WetLossConv_HCOOH          ', 'GCHPchem',\n                          'WetLossConv_HCl            ', 'GCHPchem',\n                          'WetLossConv_HC5A           ', 'GCHPchem',\n                          'WetLossConv_HBr            ', 'GCHPchem',\n                          'WetLossConv_HAC            ', 'GCHPchem',\n                          'WetLossConv_H2O2           ', 'GCHPchem',\n                          'WetLossConv_GLYX           ', 'GCHPchem',\n                          'WetLossConv_GLYC           ', 'GCHPchem',\n                          'WetLossConv_ETP            ', 'GCHPchem',\n                          'WetLossConv_ETHP           ', 'GCHPchem',\n                          'WetLossConv_ETHN           ', 'GCHPchem',\n                          'WetLossConv_ETHLN          ', 'GCHPchem',\n                          'WetLossConv_EOH            ', 'GCHPchem',\n                          'WetLossConv_DSTbin7           ', 'GCHPchem',\n                          'WetLossConv_DSTbin6           ', 'GCHPchem',\n                          'WetLossConv_DSTbin5           ', 'GCHPchem',\n                          'WetLossConv_DSTbin4           ', 'GCHPchem',\n                          'WetLossConv_DSTbin3           ', 'GCHPchem',\n                          'WetLossConv_DSTbin2           ', 'GCHPchem',\n                          'WetLossConv_DSTbin1           ', 'GCHPchem',\n                          'WetLossConv_CH2O           ', 'GCHPchem',\n                          'WetLossConv_BrSALC         ', 'GCHPchem',\n                          'WetLossConv_BrSALA         ', 'GCHPchem',\n                          'WetLossConv_BrCl           ', 'GCHPchem',\n                          'WetLossConv_Br2            ', 'GCHPchem',\n                          'WetLossConv_BCPO           ', 'GCHPchem',\n                          'WetLossConv_BCPI           ', 'GCHPchem',\n                          'WetLossConv_ATOOH          ', 'GCHPchem',\n                          'WetLossConv_ALD2           ', 'GCHPchem',\n                          'WetLossConv_AERI           ', 'GCHPchem',\n                          'WetLossConv_ACTA           ', 'GCHPchem',\n                          #'WetLossConv_TSOG3          ', 'GCHPchem',\n                          #'WetLossConv_TSOG2          ', 'GCHPchem',\n                          #'WetLossConv_TSOG1          ', 'GCHPchem',\n                          #'WetLossConv_TSOG0          ', 'GCHPchem',\n                          #'WetLossConv_TSOA3          ', 'GCHPchem',\n                          #'WetLossConv_TSOA2          ', 'GCHPchem',\n                          #'WetLossConv_TSOA1          ', 'GCHPchem',\n                          #'WetLossConv_TSOA0          ', 'GCHPchem',\n                          #'WetLossConv_ASOG3          ', 'GCHPchem',\n                          #'WetLossConv_ASOG2          ', 'GCHPchem',\n                          #'WetLossConv_ASOG1          ', 'GCHPchem',\n                          #'WetLossConv_ASOAN          ', 'GCHPchem',\n                          #'WetLossConv_ASOA3          ', 'GCHPchem',\n                          #'WetLossConv_ASOA2          ', 'GCHPchem',\n                          #'WetLossConv_ASOA1          ', 'GCHPchem',\n                          'WetLossConvFrac_SOAS       ', 'GCHPchem',\n                          'WetLossConvFrac_SOAIE      ', 'GCHPchem',\n                          'WetLossConvFrac_SOAGX      ', 'GCHPchem',\n                          'WetLossConvFrac_SO4s       ', 'GCHPchem',\n                          'WetLossConvFrac_SO4        ', 'GCHPchem',\n                          'WetLossConvFrac_SO2        ', 'GCHPchem',\n                          'WetLossConvFrac_SALCCL     ', 'GCHPchem',\n                          'WetLossConvFrac_SALCAL     ', 'GCHPchem',\n                          'WetLossConvFrac_SALC       ', 'GCHPchem',\n                          'WetLossConvFrac_SALACL     ', 'GCHPchem',\n                          'WetLossConvFrac_SALAAL     ', 'GCHPchem',\n                          'WetLossConvFrac_SALA       ', 'GCHPchem',\n                          'WetLossConvFrac_RP         ', 'GCHPchem',\n                          'WetLossConvFrac_RIPD       ', 'GCHPchem',\n                          'WetLossConvFrac_RIPC       ', 'GCHPchem',\n                          'WetLossConvFrac_RIPB       ', 'GCHPchem',\n                          'WetLossConvFrac_RIPA       ', 'GCHPchem',\n                          'WetLossConvFrac_RB3P       ', 'GCHPchem',\n                          'WetLossConvFrac_RA3P       ', 'GCHPchem',\n                          'WetLossConvFrac_R4P        ', 'GCHPchem',\n                          'WetLossConvFrac_R4N2       ', 'GCHPchem',\n                          'WetLossConvFrac_PYAC       ', 'GCHPchem',\n                          'WetLossConvFrac_PRPN       ', 'GCHPchem',\n                          'WetLossConvFrac_PRPE       ', 'GCHPchem',\n                          'WetLossConvFrac_PROPNN     ', 'GCHPchem',\n                          'WetLossConvFrac_PPN        ', 'GCHPchem',\n                          'WetLossConvFrac_PP         ', 'GCHPchem',\n                          'WetLossConvFrac_pFe        ', 'GCHPchem',\n                          'WetLossConvFrac_PAN        ', 'GCHPchem',\n                          'WetLossConvFrac_OCPO       ', 'GCHPchem',\n                          'WetLossConvFrac_OCPI       ', 'GCHPchem',\n                          'WetLossConvFrac_NITs       ', 'GCHPchem',\n                          'WetLossConvFrac_NIT        ', 'GCHPchem',\n                          'WetLossConvFrac_NH4        ', 'GCHPchem',\n                          'WetLossConvFrac_NH3        ', 'GCHPchem',\n                          'WetLossConvFrac_MVKPC      ', 'GCHPchem',\n                          'WetLossConvFrac_MVKN       ', 'GCHPchem',\n                          'WetLossConvFrac_MVKHP      ', 'GCHPchem',\n                          'WetLossConvFrac_MVKHCB     ', 'GCHPchem',\n                          'WetLossConvFrac_MVKHC      ', 'GCHPchem',\n                          'WetLossConvFrac_MVKDH      ', 'GCHPchem',\n                          'WetLossConvFrac_MVK        ', 'GCHPchem',\n                          'WetLossConvFrac_MTPO       ', 'GCHPchem',\n                          'WetLossConvFrac_MTPA       ', 'GCHPchem',\n                          'WetLossConvFrac_MSA        ', 'GCHPchem',\n                          'WetLossConvFrac_MPN        ', 'GCHPchem',\n                          'WetLossConvFrac_MPAN       ', 'GCHPchem',\n                          'WetLossConvFrac_MP         ', 'GCHPchem',\n                          'WetLossConvFrac_MONITU     ', 'GCHPchem',\n                          'WetLossConvFrac_MONITS     ', 'GCHPchem',\n                          'WetLossConvFrac_MONITA     ', 'GCHPchem',\n                          'WetLossConvFrac_MOH        ', 'GCHPchem',\n                          'WetLossConvFrac_MGLY       ', 'GCHPchem',\n                          'WetLossConvFrac_MEK        ', 'GCHPchem',\n                          'WetLossConvFrac_MCRHP      ', 'GCHPchem',\n                          'WetLossConvFrac_MCRHNB     ', 'GCHPchem',\n                          'WetLossConvFrac_MCRHN      ', 'GCHPchem',\n                          'WetLossConvFrac_MCRENOL    ', 'GCHPchem',\n                          'WetLossConvFrac_MCRDH      ', 'GCHPchem',\n                          'WetLossConvFrac_MAP        ', 'GCHPchem',\n                          'WetLossConvFrac_MACR1OOH   ', 'GCHPchem',\n                          'WetLossConvFrac_LVOCOA     ', 'GCHPchem',\n                          'WetLossConvFrac_LVOC       ', 'GCHPchem',\n                          'WetLossConvFrac_LIMO       ', 'GCHPchem',\n                          'WetLossConvFrac_ITHN       ', 'GCHPchem',\n                          'WetLossConvFrac_ITCN       ', 'GCHPchem',\n                          'WetLossConvFrac_ISALC      ', 'GCHPchem',\n                          'WetLossConvFrac_ISALA      ', 'GCHPchem',\n                          'WetLossConvFrac_IONO2      ', 'GCHPchem',\n                          'WetLossConvFrac_IONO       ', 'GCHPchem',\n                          'WetLossConvFrac_IONITA     ', 'GCHPchem',\n                          'WetLossConvFrac_INPD       ', 'GCHPchem',\n                          'WetLossConvFrac_INPB       ', 'GCHPchem',\n                          'WetLossConvFrac_INDIOL     ', 'GCHPchem',\n                          'WetLossConvFrac_IHN4       ', 'GCHPchem',\n                          'WetLossConvFrac_IHN3       ', 'GCHPchem',\n                          'WetLossConvFrac_IHN2       ', 'GCHPchem',\n                          'WetLossConvFrac_IHN1       ', 'GCHPchem',\n                          'WetLossConvFrac_IEPOXD     ', 'GCHPchem',\n                          'WetLossConvFrac_IEPOXB     ', 'GCHPchem',\n                          'WetLossConvFrac_IEPOXA     ', 'GCHPchem',\n                          'WetLossConvFrac_IDN        ', 'GCHPchem',\n                          'WetLossConvFrac_IDHPE      ', 'GCHPchem',\n                          'WetLossConvFrac_IDHDP      ', 'GCHPchem',\n                          'WetLossConvFrac_IDCHP      ', 'GCHPchem',\n                          'WetLossConvFrac_ICPDH      ', 'GCHPchem',\n                          'WetLossConvFrac_ICN        ', 'GCHPchem',\n                          'WetLossConvFrac_ICl        ', 'GCHPchem',\n                          'WetLossConvFrac_ICHE       ', 'GCHPchem',\n                          'WetLossConvFrac_IBr        ', 'GCHPchem',\n                          'WetLossConvFrac_I2O4       ', 'GCHPchem',\n                          'WetLossConvFrac_I2O3       ', 'GCHPchem',\n                          'WetLossConvFrac_I2O2       ', 'GCHPchem',\n                          'WetLossConvFrac_I2         ', 'GCHPchem',\n                          'WetLossConvFrac_HPETHNL    ', 'GCHPchem',\n                          'WetLossConvFrac_HONIT      ', 'GCHPchem',\n                          'WetLossConvFrac_HOI        ', 'GCHPchem',\n                          'WetLossConvFrac_HOCl       ', 'GCHPchem',\n                          'WetLossConvFrac_HOBr       ', 'GCHPchem',\n                          'WetLossConvFrac_HNO3       ', 'GCHPchem',\n                          'WetLossConvFrac_HMS        ', 'GCHPchem',\n                          'WetLossConvFrac_HMML       ', 'GCHPchem',\n                          'WetLossConvFrac_HMHP       ', 'GCHPchem',\n                          'WetLossConvFrac_HI         ', 'GCHPchem',\n                          'WetLossConvFrac_HCOOH      ', 'GCHPchem',\n                          'WetLossConvFrac_HCl        ', 'GCHPchem',\n                          'WetLossConvFrac_HC5A       ', 'GCHPchem',\n                          'WetLossConvFrac_HBr        ', 'GCHPchem',\n                          'WetLossConvFrac_HAC        ', 'GCHPchem',\n                          'WetLossConvFrac_H2O2       ', 'GCHPchem',\n                          'WetLossConvFrac_GLYX       ', 'GCHPchem',\n                          'WetLossConvFrac_GLYC       ', 'GCHPchem',\n                          'WetLossConvFrac_ETP        ', 'GCHPchem',\n                          'WetLossConvFrac_ETHP       ', 'GCHPchem',\n                          'WetLossConvFrac_ETHN       ', 'GCHPchem',\n                          'WetLossConvFrac_ETHLN      ', 'GCHPchem',\n                          'WetLossConvFrac_EOH        ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin7       ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin6       ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin5       ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin4       ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin3       ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin2       ', 'GCHPchem',\n                          'WetLossConvFrac_DSTbin1       ', 'GCHPchem',\n                          'WetLossConvFrac_CH2O       ', 'GCHPchem',\n                          'WetLossConvFrac_BrSALC     ', 'GCHPchem',\n                          'WetLossConvFrac_BrSALA     ', 'GCHPchem',\n                          'WetLossConvFrac_BrCl       ', 'GCHPchem',\n                          'WetLossConvFrac_Br2        ', 'GCHPchem',\n                          'WetLossConvFrac_BCPO       ', 'GCHPchem',\n                          'WetLossConvFrac_BCPI       ', 'GCHPchem',\n                          'WetLossConvFrac_ATOOH      ', 'GCHPchem',\n                          'WetLossConvFrac_ALD2       ', 'GCHPchem',\n                          'WetLossConvFrac_AERI       ', 'GCHPchem',\n                          'WetLossConvFrac_ACTA       ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOG3      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOG2      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOG1      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOG0      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOA3      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOA2      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOA1      ', 'GCHPchem',\n                          #'WetLossConvFrac_TSOA0      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOG3      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOG2      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOG1      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOAN      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOA3      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOA2      ', 'GCHPchem',\n                          #'WetLossConvFrac_ASOA1      ', 'GCHPchem',\n::\n#=============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#=============================================================================\n  WetLossLS.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.format:         'CFIO',\n  WetLossLS.timestampStart: .true.\n  WetLossLS.monthly:        1\n  WetLossLS.frequency:      010000\n  WetLossLS.duration:       010000\n  WetLossLS.mode:           'time-averaged'\n  WetLossLS.fields:       'WetLossLS_SOAS           ', 'GCHPchem',\n                          #'WetLossLS_TSOG3          ', 'GCHPchem',\n                          #'WetLossLS_TSOG2          ', 'GCHPchem',\n                          #'WetLossLS_TSOG1          ', 'GCHPchem',\n                          #'WetLossLS_TSOG0          ', 'GCHPchem',\n                          #'WetLossLS_TSOA3          ', 'GCHPchem',\n                          #'WetLossLS_TSOA2          ', 'GCHPchem',\n                          #'WetLossLS_TSOA1          ', 'GCHPchem',\n                          #'WetLossLS_TSOA0          ', 'GCHPchem',\n                          'WetLossLS_SOAIE          ', 'GCHPchem',\n                          'WetLossLS_SOAGX          ', 'GCHPchem',\n                          'WetLossLS_SO4s           ', 'GCHPchem',\n                          'WetLossLS_SO4            ', 'GCHPchem',\n                          'WetLossLS_SO2            ', 'GCHPchem',\n                          'WetLossLS_SALCCL         ', 'GCHPchem',\n                          'WetLossLS_SALCAL         ', 'GCHPchem',\n                          'WetLossLS_SALC           ', 'GCHPchem',\n                          'WetLossLS_SALACL         ', 'GCHPchem',\n                          'WetLossLS_SALAAL         ', 'GCHPchem',\n                          'WetLossLS_SALA           ', 'GCHPchem',\n                          'WetLossLS_RP             ', 'GCHPchem',\n                          'WetLossLS_RIPD           ', 'GCHPchem',\n                          'WetLossLS_RIPC           ', 'GCHPchem',\n                          'WetLossLS_RIPB           ', 'GCHPchem',\n                          'WetLossLS_RIPA           ', 'GCHPchem',\n                          'WetLossLS_RB3P           ', 'GCHPchem',\n                          'WetLossLS_RA3P           ', 'GCHPchem',\n                          'WetLossLS_R4P            ', 'GCHPchem',\n                          'WetLossLS_R4N2           ', 'GCHPchem',\n                          'WetLossLS_PYAC           ', 'GCHPchem',\n                          'WetLossLS_PRPN           ', 'GCHPchem',\n                          'WetLossLS_PRPE           ', 'GCHPchem',\n                          'WetLossLS_PROPNN         ', 'GCHPchem',\n                          'WetLossLS_PPN            ', 'GCHPchem',\n                          'WetLossLS_PP             ', 'GCHPchem',\n                          'WetLossLS_pFe            ', 'GCHPchem',\n                          'WetLossLS_PAN            ', 'GCHPchem',\n                          'WetLossLS_OCPO           ', 'GCHPchem',\n                          'WetLossLS_OCPI           ', 'GCHPchem',\n                          'WetLossLS_NITs           ', 'GCHPchem',\n                          'WetLossLS_NIT            ', 'GCHPchem',\n                          'WetLossLS_NH4            ', 'GCHPchem',\n                          'WetLossLS_NH3            ', 'GCHPchem',\n                          'WetLossLS_MVKPC          ', 'GCHPchem',\n                          'WetLossLS_MVKN           ', 'GCHPchem',\n                          'WetLossLS_MVKHP          ', 'GCHPchem',\n                          'WetLossLS_MVKHCB         ', 'GCHPchem',\n                          'WetLossLS_MVKHC          ', 'GCHPchem',\n                          'WetLossLS_MVKDH          ', 'GCHPchem',\n                          'WetLossLS_MVK            ', 'GCHPchem',\n                          'WetLossLS_MTPO           ', 'GCHPchem',\n                          'WetLossLS_MTPA           ', 'GCHPchem',\n                          'WetLossLS_MSA            ', 'GCHPchem',\n                          'WetLossLS_MPN            ', 'GCHPchem',\n                          'WetLossLS_MPAN           ', 'GCHPchem',\n                          'WetLossLS_MP             ', 'GCHPchem',\n                          'WetLossLS_MONITU         ', 'GCHPchem',\n                          'WetLossLS_MONITS         ', 'GCHPchem',\n                          'WetLossLS_MONITA         ', 'GCHPchem',\n                          'WetLossLS_MOH            ', 'GCHPchem',\n                          'WetLossLS_MGLY           ', 'GCHPchem',\n                          'WetLossLS_MEK            ', 'GCHPchem',\n                          'WetLossLS_MCRHP          ', 'GCHPchem',\n                          'WetLossLS_MCRHNB         ', 'GCHPchem',\n                          'WetLossLS_MCRHN          ', 'GCHPchem',\n                          'WetLossLS_MCRENOL        ', 'GCHPchem',\n                          'WetLossLS_MCRDH          ', 'GCHPchem',\n                          'WetLossLS_MAP            ', 'GCHPchem',\n                          'WetLossLS_MACR1OOH       ', 'GCHPchem',\n                          'WetLossLS_LVOCOA         ', 'GCHPchem',\n                          'WetLossLS_LVOC           ', 'GCHPchem',\n                          'WetLossLS_LIMO           ', 'GCHPchem',\n                          'WetLossLS_ITHN           ', 'GCHPchem',\n                          'WetLossLS_ITCN           ', 'GCHPchem',\n                          'WetLossLS_ISALC          ', 'GCHPchem',\n                          'WetLossLS_ISALA          ', 'GCHPchem',\n                          'WetLossLS_IONO2          ', 'GCHPchem',\n                          'WetLossLS_IONO           ', 'GCHPchem',\n                          'WetLossLS_IONITA         ', 'GCHPchem',\n                          'WetLossLS_INPD           ', 'GCHPchem',\n                          'WetLossLS_INPB           ', 'GCHPchem',\n                          'WetLossLS_INDIOL         ', 'GCHPchem',\n                          'WetLossLS_IHN4           ', 'GCHPchem',\n                          'WetLossLS_IHN3           ', 'GCHPchem',\n                          'WetLossLS_IHN2           ', 'GCHPchem',\n                          'WetLossLS_IHN1           ', 'GCHPchem',\n                          'WetLossLS_IEPOXD         ', 'GCHPchem',\n                          'WetLossLS_IEPOXB         ', 'GCHPchem',\n                          'WetLossLS_IEPOXA         ', 'GCHPchem',\n                          'WetLossLS_IDN            ', 'GCHPchem',\n                          'WetLossLS_IDHPE          ', 'GCHPchem',\n                          'WetLossLS_IDHDP          ', 'GCHPchem',\n                          'WetLossLS_IDCHP          ', 'GCHPchem',\n                          'WetLossLS_ICPDH          ', 'GCHPchem',\n                          'WetLossLS_ICN            ', 'GCHPchem',\n                          'WetLossLS_ICl            ', 'GCHPchem',\n                          'WetLossLS_ICHE           ', 'GCHPchem',\n                          'WetLossLS_IBr            ', 'GCHPchem',\n                          'WetLossLS_I2O4           ', 'GCHPchem',\n                          'WetLossLS_I2O3           ', 'GCHPchem',\n                          'WetLossLS_I2O2           ', 'GCHPchem',\n                          'WetLossLS_I2             ', 'GCHPchem',\n                          'WetLossLS_HPETHNL        ', 'GCHPchem',\n                          'WetLossLS_HONIT          ', 'GCHPchem',\n                          'WetLossLS_HOI            ', 'GCHPchem',\n                          'WetLossLS_HOCl           ', 'GCHPchem',\n                          'WetLossLS_HOBr           ', 'GCHPchem',\n                          'WetLossLS_HNO3           ', 'GCHPchem',\n                          'WetLossLS_HMS            ', 'GCHPchem',\n                          'WetLossLS_HMML           ', 'GCHPchem',\n                          'WetLossLS_HMHP           ', 'GCHPchem',\n                          'WetLossLS_HI             ', 'GCHPchem',\n                          'WetLossLS_HCOOH          ', 'GCHPchem',\n                          'WetLossLS_HCl            ', 'GCHPchem',\n                          'WetLossLS_HC5A           ', 'GCHPchem',\n                          'WetLossLS_HBr            ', 'GCHPchem',\n                          'WetLossLS_HAC            ', 'GCHPchem',\n                          'WetLossLS_H2O2           ', 'GCHPchem',\n                          'WetLossLS_GLYX           ', 'GCHPchem',\n                          'WetLossLS_GLYC           ', 'GCHPchem',\n                          'WetLossLS_ETP            ', 'GCHPchem',\n                          'WetLossLS_ETHP           ', 'GCHPchem',\n                          'WetLossLS_ETHN           ', 'GCHPchem',\n                          'WetLossLS_ETHLN          ', 'GCHPchem',\n                          'WetLossLS_EOH            ', 'GCHPchem',\n                          'WetLossLS_DSTbin7           ', 'GCHPchem',\n                          'WetLossLS_DSTbin6           ', 'GCHPchem',\n                          'WetLossLS_DSTbin5           ', 'GCHPchem',\n                          'WetLossLS_DSTbin4           ', 'GCHPchem',\n                          'WetLossLS_DSTbin3           ', 'GCHPchem',\n                          'WetLossLS_DSTbin2           ', 'GCHPchem',\n                          'WetLossLS_DSTbin1           ', 'GCHPchem',\n                          'WetLossLS_CH2O           ', 'GCHPchem',\n                          'WetLossLS_BrSALC         ', 'GCHPchem',\n                          'WetLossLS_BrSALA         ', 'GCHPchem',\n                          'WetLossLS_BrCl           ', 'GCHPchem',\n                          'WetLossLS_Br2            ', 'GCHPchem',\n                          'WetLossLS_BCPO           ', 'GCHPchem',\n                          'WetLossLS_BCPI           ', 'GCHPchem',\n                          'WetLossLS_ATOOH          ', 'GCHPchem',\n                          #'WetLossLS_ASOG3          ', 'GCHPchem',\n                          #'WetLossLS_ASOG2          ', 'GCHPchem',\n                          #'WetLossLS_ASOG1          ', 'GCHPchem',\n                          #'WetLossLS_ASOAN          ', 'GCHPchem',\n                          #'WetLossLS_ASOA3          ', 'GCHPchem',\n                          #'WetLossLS_ASOA2          ', 'GCHPchem',\n                          #'WetLossLS_ASOA1          ', 'GCHPchem',\n                          'WetLossLS_ALD2           ', 'GCHPchem',\n                          'WetLossLS_AERI           ', 'GCHPchem',\n                          'WetLossLS_ACTA           ', 'GCHPchem',\n::\n"
  },
  {
    "path": "run/GCHP/HISTORY.rc.templates/HISTORY.rc.tagO3",
    "content": "EXPID:  OutputDir/GEOSChem\nEXPDSC: GEOS-Chem_devel\nCoresPerNode: 6\nAllow_Overwrite: .true.\nVERSION: 1\n\n#==============================================================================\n# Define grid labels\n#\n# Define output grids different from the native cubed sphere in this section.\n# Each diagnostics collection is output on the native resolution global cubed\n# sphere grid unless a different grid defined here is set for that collection\n# in the collections section of this file.\n#\n# See the examples below for defining different types of grid at different\n# resolutions. See the collections section later on in this file for\n# instructions on using an alternative grid for output.\n#\n# Beware that the online regridding is area-conserving. Only diagnostics\n# independent of grid cell area should be output on a custom grid. For more\n# information see the HISTORY.rc page at gchp.readthedocs.io/.\n#==============================================================================\nGRID_LABELS: #PE24x144-CF\n             #PC360x181-DC\n             #REGIONAL1x1\n    ::\n\n    # Example of cubed-sphere grid at c24 resolution\n    PE24x144-CF.GRID_TYPE: Cubed-Sphere\n    PE24x144-CF.IM_WORLD: 24\n    PE24x144-CF.JM_WORLD: 144\n    PE24x144-CF.LM: 72\n\n    # Example of lat-lon global grid at 1x1 resolution\n    PC360x181-DC.GRID_TYPE: LatLon\n    PC360x181-DC.IM_WORLD: 360\n    PC360x181-DC.JM_WORLD: 181\n    PC360x181-DC.POLE: PC\n    PC360x181-DC.DATELINE: DC\n    PC360x181-DC.LM: 72\n\n    # Example of lat-lon regional grid at 1x1 resolution\n    REGIONAL1x1.GRID_TYPE: LatLon\n    REGIONAL1x1.IM_WORLD: 80\n    REGIONAL1x1.JM_WORLD: 40\n    REGIONAL1x1.POLE: XY\n    REGIONAL1x1.DATELINE: XY\n    REGIONAL1x1.LON_RANGE:   0 80\n    REGIONAL1x1.LAT_RANGE: -30 10\n    REGIONAL1x1.LM: 72\n\n#==============================================================================\n# Declare collection names\n#\n# You can disable collections by commenting out with #\n#\n# WARNING: Some diagnostic collections have a subset of output fields\n# commented out by default. Inspect fields of collections you turn on\n# before running to ensure you will get the output you intend.\n#==============================================================================\nCOLLECTIONS:  'SpeciesConc',\n::\n#==============================================================================\n# Define collections\n#\n# The rest of this file consists of collection definitions.\n# Above collections whose declarations are commented out will be ignored.\n# You can skip individual diagnostics by commenting out their names.\n#\n# WARNING: Frequency, duration, and mode will be over-written with\n# settings in setCommonRunSettings.sh. Edit settings in that file. You can execute the\n# script to update this file and then inspect results before submitting a\n# run. Collection names are hard-coded in that file; if you add more\n# collections then you must also add them there for auto-update, or manually\n# change settings for the new collection in this file.\n#\n# NOTES:\n#    (1) Template keyword defines suffix of output filename, appended to\n#        GCHP.{collection}.\n#\n#    (2) Frequency keyword sets frequency of data in each output file\n#\n#    (3) Duration keyword sets frequency of output file\n#\n#    (4) Mode keyword may be 'time-averaged' or 'instantaneous'\n#\n#    (5) See the GRID_LABELS sections above for details about output grids\n#\n#    (6) To output data on a grid other than native res global cubed sphere\n#        include the 'grid_label' field. For example,\n#\n#           SpeciesConc.grid_label:   REGIONAL1x1\n#\n#    (7) If you are outputting on a lat/lon grid, be sure to specify\n#        conservative regridding. Otherwise regridding will be bi-linear.\n#\n#           SpeciesConc.conservative: 1\n#\n#    (8) To output a reduced set of levels, use the levels keyword, e.g.:\n#\n#           SpeciesConc.levels: 1 2 3\n#\n#==============================================================================\n\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations\n#\n# Concentrations may be saved out as SpeciesConcVV  [v/v dry air] or\n#                                    SpeciesConcMND [molec/cm3]\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.format:         'CFIO',\n  SpeciesConc.timestampStart: .true.\n  SpeciesConc.monthly:        1\n  SpeciesConc.frequency:      010000\n  SpeciesConc.duration:       240000\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_O3           ', 'GCHPchem',\n                              'SpeciesConcVV_O3Strat      ', 'GCHPchem',\n                              'SpeciesConcVV_O3ut         ', 'GCHPchem',\n                              'SpeciesConcVV_O3mt         ', 'GCHPchem',\n                              'SpeciesConcVV_O3row        ', 'GCHPchem',\n                              'SpeciesConcVV_O3pcbl       ', 'GCHPchem',\n                              'SpeciesConcVV_O3nabl       ', 'GCHPchem',\n                              'SpeciesConcVV_O3atbl       ', 'GCHPchem',\n                              'SpeciesConcVV_O3eubl       ', 'GCHPchem',\n                              'SpeciesConcVV_O3afbl       ', 'GCHPchem',\n                              'SpeciesConcVV_O3asbl       ', 'GCHPchem',\n                              'SpeciesConcVV_O3init       ', 'GCHPchem',\n                              'SpeciesConcVV_O3usa        ', 'GCHPchem',\n::"
  },
  {
    "path": "run/GCHP/README.md",
    "content": "# This run directory is for GCHP.\n\n## For instructions on setting up, compiling, and running GCHP, see:\n\n  - https://gchp.readthedocs.org\n\n## For help with GCHP, see:\n\n  - https://gchp.readthedocs.io/en/latest/reference/SUPPORT.html\n\n  - https://gchp.readthedocs.io/en/latest/reference/CONTRIBUTING.html\n"
  },
  {
    "path": "run/GCHP/archiveRun.sh",
    "content": "#!/bin/bash\n\n# Script to archive files after a run. \n# \n# Argument: archive directory name (can be non-existent)\n#\n# Example usage: ./archiveRun.sh c48_1hr_emissionsOff\n#\n# All output files are copied, including output data (OutputDir/*.nc4), \n# log files (*.log, slurm-*), config files (*.rc, *.yml), \n# run files (*.run, *.env, setCommonRunSettings.sh), and restarts. \n# Files are stored in subdirectories within the archive directory.\n#\n# NOTE: Clean the run directory AFTER archiving with './cleanupRunDir.sh'\n# if you plan on doing another run. Otherwise previous run files will also\n# be archived if this script is called again.\n\n# Initial version: Lizzie Lundgren - 7/12/2018\n\n# Customize this script as needed to best fit your workflow.\n\n# Check that directory name passed\nif [[ $# == 1 ]]; then\n    archivedir=$1\nelse\n   echo \"Usage: ./archiveRun.sh {ArchiveDirName}\"\n   exit \nfi\n\n# Check that directory does not already exist\nif [ -d \"${archivedir}\" ]; then\n   echo \"Warning: Directory ${archivedir} already exists.\"\n   echo \"Remove or rename that directory, or choose a different name.\"\n   exit 1\nfi\n\n# Function to move files and subdirs in directory except if string match\n# ( arg1 : source, arg2 : target, arg3 : exclude string )\nmovefiles () {\n   numMoved=0\n   for item in $1/*; do\n      if [[ $(basename $item) == $3 ]]; then\n         continue\n      elif [[ -e $item ]]; then\n         if [[ -d $item ]]; then\n            echo \"   -> $2/$(basename $item)/\"\n         else\n            echo \"   -> $2/$(basename $item)\"\n         fi\n         mv $item $2\n         numMoved=$numMoved+1\n      fi\n   done\n   if [[ $numMoved == \"0\" ]]; then\n      echo \"   Warning: No files to move from $1\" \n   fi\n}\n\n# Function to copy all files matching string (arg2) to directory (arg1)\n# ( arg1 : source, arg2 : target )\ncopyfiles () {\n   for file in $1; do\n      if [ -e $file ]; then\n         echo \"   -> $2/$file\"\n         cp -rt $2 $file\n      else\n         if [[ $file != \"*.multirun.sh\" ]]; then\n            echo \"   Warning: $file not found\"\n         fi\n      fi\n   done\n}\n\n# Make Archive directory\necho \"Archiving files to directory $1\"\nmkdir -p ${archivedir}\nmkdir -p ${archivedir}/Logs\n\n# Copy files\necho \"Copying files...\"\ncopyfiles \"*.yml\"              ${archivedir}\ncopyfiles \"*.rc\"               ${archivedir}\ncopyfiles \"*.run\"              ${archivedir}\ncopyfiles \"*.sh\"               ${archivedir}\ncopyfiles \"*.env\"              ${archivedir}\ncopyfiles \"*.log\"              ${archivedir}/Logs\ncopyfiles \"slurm-*\"            ${archivedir}/Logs\ncopyfiles \"build_info/\"        ${archivedir}\ncopyfiles \"BenchmarkResults/\"  ${archivedir}\ncopyfiles \"OutputDir/\"         ${archivedir}\ncopyfiles \"CreateRunDirLogs/\"  ${archivedir}\ncopyfiles \"cap_restart\"        ${archivedir}\ncopyfiles \"setCommonRunSettings.sh\" ${archivedir}\n\nprintf \"WARNING: Restart files are not archived. Copy manually if you would like to store restarts in the archive directory.\"\nprintf \"Complete!\\n\"\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/checkRunSettings.sh",
    "content": "#!/bin/bash\n\n# placeholder\n"
  },
  {
    "path": "run/GCHP/createRunDir.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: createRunDir.sh\n#\n# !DESCRIPTION: Creates a GCHP run directory.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./createRunDir.sh [rundirname]\n#\n# !REMARKS:\n#  If optional run directory name argument is not passed then the user\n#  will be prompted to enter a name interactively, or choose to use the\n#  default name gchp_{met}_{sim_name}_{sim_extra_option}.\n#\n# !REVISION HISTORY:\n#  Initial version: E. Lundgren,10/5/2018\n#  See the subsequent Git history with the gitk browser!\n#------------------------------------------------------------------------------\n#BOC\n\n# Directory w/ GCHP rundir scripts (i.e. this directory)\nsrcrundir=$(pwd -P)\ncd ${srcrundir}\n\n# GEOS-Chem \"science codebase\" directory\ncd ../..\ngcdir=$(pwd -P)\n\n# GCHP \"wrapper\" directory\ncd ../../../..\nwrapperdir=$(pwd -P)\n\n# Return to \ncd ${srcrundir}\n\n# Source common bash functions from scripts in the run/shared folder\n. ${gcdir}/run/shared/setupConfigFiles.sh      # Config file editing\n. ${gcdir}/run/shared/newUserRegistration.sh   # 1st-time user registration\n. ${gcdir}/run/shared/singleCarbonSpecies.sh   # Single carbon species setup\n\n# Initialize run directory variables\nRUNDIR_VARS=\"\"\nRUNDIR_VARS+=\"RUNDIR_GC_MODE='GCHP'\\n\"\n\n# Define separator lines\nthickline=\"\\n===========================================================\\n\"\nthinline=\"\\n-----------------------------------------------------------\\n\"\n\nprintf \"${thickline}GCHP RUN DIRECTORY CREATION${thickline}\"\n\n#-----------------------------------------------------------------\n# Export data root path in ~/.geoschem/config if file exists\n#-----------------------------------------------------------------\nif [[ -f ${HOME}/.geoschem/config ]]; then\n    source ${HOME}/.geoschem/config\n    if [[ ! -d ${GC_DATA_ROOT} ]]; then\n\tprintf \"\\nWarning: Default root data directory does not exist!\"\n        printf \"\\nSet new path below or manually edit ${HOME}/.geoschem/config.\\n\"\n    fi\nelse\n    printf \"${thinline}Define path to ExtData.\"\n    printf \"\\nThis will be stored in ${HOME}/.geoschem/config for future automatic use.${thinline}\"\n    mkdir -p ${HOME}/.geoschem\nfi\n\n#-----------------------------------------------------------------\n# One-time configuration of data root path in ~/.geoschem/config\n#-----------------------------------------------------------------\nif [[ -z \"${GC_DATA_ROOT}\" ]]; then\n    printf \"${thinline}Enter path for ExtData:${thinline}\"\n    valid_path=0\n    while [ \"$valid_path\" -eq 0 ]; do\n\tread -e -p \"${USER_PROMPT}\" extdata\n\tif [[ ${extdata} = \"q\" ]]; then\n\t    printf \"\\nExiting.\\n\"\n\t    exit 1\n\telif [[ ! -d ${extdata} ]]; then\n            printf \"\\nERROR: ${extdata} does not exist. Enter a new path or hit q to quit.\\n\"\n\telse\n\t    valid_path=1\n\t    echo \"export GC_DATA_ROOT=${extdata}\" >> ${HOME}/.geoschem/config\n            source ${HOME}/.geoschem/config\n\tfi\n    done\nfi\n\nRUNDIR_VARS+=\"RUNDIR_DATA_ROOT=$GC_DATA_ROOT\\n\"\n\n# --------------------------------------------------------------\n# registration for first time users\n# --------------------------------------------------------------\n[[ -z \"${GC_USER_REGISTERED}\" ]] && registerNewUser \"gchp\"\n\n#-----------------------------------------------------------------\n# Ask user to select simulation type\n#-----------------------------------------------------------------\nprintf \"${thinline}Choose simulation type:${thinline}\"\nprintf \"   1. Full chemistry\\n\"\nprintf \"   2. TransportTracers\\n\"\nprintf \"   3. Carbon\\n\"\nprintf \"   4. Tagged O3\\n\"\n\nvalid_sim=0\nwhile [ \"${valid_sim}\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" sim_num\n    valid_sim=1\n    if [[ ${sim_num} = \"1\" ]]; then\n\tsim_name=fullchem\n    elif [[ ${sim_num} = \"2\" ]]; then\n\tsim_name=TransportTracers\n    elif [[ ${sim_num} = \"3\" ]]; then\n\tsim_name=carbon\n    elif [[ ${sim_num} = \"4\" ]]; then\n\tsim_name=tagO3\n    else\n        valid_sim=0\n\tprintf \"Invalid simulation option. Try again.\\n\"\n    fi\ndone\n\nRUNDIR_VARS+=\"RUNDIR_SIM_NAME=$sim_name\\n\"\n\n#-----------------------------------------------------------------\n# Ask user to specify full-chemistry simulation options\n#-----------------------------------------------------------------\nsim_extra_option=none\n\n# Ask user to specify full chemistry simulation options\nif [[ ${sim_name} = \"fullchem\" ]]; then\n\n    printf \"${thinline}Choose additional simulation option:${thinline}\"\n    printf \"  1. Standard\\n\"\n    printf \"  2. Benchmark\\n\"\n    printf \"  3. Complex SOA\\n\"\n    printf \"  4. Marine POA\\n\"\n    printf \"  5. Acid uptake on dust\\n\"\n    printf \"  6. TOMAS\\n\"\n    printf \"  7. APM\\n\"\n    printf \"  8. RRTMG\\n\"\n    valid_sim_option=0\n    while [ \"${valid_sim_option}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" sim_option\n\tvalid_sim_option=1\n\tif [[ ${sim_option} = \"1\" ]]; then\n\t    sim_extra_option=none\n\telif [[ ${sim_option} = \"2\" ]]; then\n\t    sim_extra_option=\"benchmark\"\n\telif [[ ${sim_option} = \"3\" ]]; then\n\t    printf \"${thinline}Choose complex SOA option:${thinline}\"\n\t    printf \"  1. Complex SOA\\n\"\n\t    printf \"  2. Complex SOA with semivolatile POA\\n\"\n\t    valid_soa=0\n\t    while [ \"${valid_soa}\" -eq 0 ]; do\n\t\tread -p \"${USER_PROMPT}\" soa_option\n\t\tvalid_soa=1\n\t\tif [[ ${soa_option} = \"1\" ]]; then\n\t\t    sim_extra_option=\"complexSOA\"\n\t\telif [[ ${soa_option} = \"2\" ]]; then\n\t\t    sim_extra_option=\"complexSOA_SVPOA\"\n\t\telse\n\t\t    valid_soa=0\n\t\t    printf \"Invalid complex SOA option.Try again.\\n\"\n\t\tfi\n\t    done\n\telif [[ ${sim_option} = \"4\" ]]; then\n\t    sim_extra_option=\"marinePOA\"\n\telif [[ ${sim_option} = \"5\" ]]; then\n\t    sim_extra_option=\"aciduptake\"\n\telif [[ ${sim_option} = \"6\" ]]; then\n\t    printf \"${thinline}Choose TOMAS option:${thinline}\"\n\t    printf \"  1. TOMAS with 15 bins\\n\"\n\t    printf \"  2. TOMAS with 40 bins\\n\"\n\t    valid_tomas=0\n\t    while [ \"${valid_tomas}\" -eq 0 ]; do\n\t\tread -p \"${USER_PROMPT}\" tomas_option\n\t\tvalid_tomas=1\n\t\tif [[ ${tomas_option} = \"1\" ]]; then\n\t\t    sim_extra_option=\"TOMAS15\"\n\t\telif [[ ${tomas_option} = \"2\" ]]; then\n\t\t    sim_extra_option=\"TOMAS40\"\n\t\telse\n\t\t    valid_tomas=0\n\t\t    printf \"Invalid TOMAS option. Try again.\\n\"\n\t\tfi\n\t    done\n\telif [[ ${sim_option} = \"7\" ]]; then\n\t    sim_extra_option=\"APM\"\n\telif [[ ${sim_option} = \"8\" ]]; then\n\t    sim_extra_option=\"RRTMG\"\n\telse\n\t    valid_sim_option=0\n\t    printf \"Invalid simulation option. Try again.\\n\"\n\tfi\n    done\n\n# Currently no transport tracer extra options\nelif [[ ${sim_name} = \"TransportTracers\" ]]; then\n    sim_extra_option=none\n\n# Ask user to specify carbon simulation options\nelif [[ \"x${sim_name}\" == \"xcarbon\" ]]; then\n    printf \"${thinline}Do you wish to use a single advected species?${thinline}\"\n    printf \"  1. Use all species\\n\"\n    printf \"  2. Use CH4 only\\n\"\n    printf \"  3. Use CO2 only\\n\"\n    printf \"  4. Use CO only\\n\"\n    printf \"  5. Use OCS only\\n\"\n    valid=0\n    while [ \"${valid}\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" prompt\n\tvalid=1\n        if [[ \"x${prompt}\" == \"x1\" ]]; then\n\t    sim_extra_option=\"none\"\n\telif [[ \"x${prompt}\" == \"x2\" ]]; then\n\t    sim_extra_option=\"CH4\"\n\telif [[ \"x${prompt}\" == \"x3\" ]]; then\n\t    sim_extra_option=\"CO2\"\n\telif [[ \"x${prompt}\" == \"x4\" ]]; then\n\t    sim_extra_option=\"CO\"\n\telif [[ \"x${prompt}\" == \"x5\" ]]; then\n\t    sim_extra_option=\"OCS\"\n\telse\n\t    valid=0\n\t    printf \"Invalid selection. Try again.\\n\"\n\tfi\n    done\nfi\n\nRUNDIR_VARS+=\"RUNDIR_SIM_EXTRA_OPTION=$sim_extra_option\\n\"\n\n# Determine settings based on simulation type\nif [[ ${sim_extra_option} == \"benchmark\"  ]] || \\\n   [[ ${sim_extra_option} =~ \"complexSOA\" ]] || \\\n   [[ ${sim_extra_option} == \"APM\"        ]]; then\n    RUNDIR_VARS+=\"RUNDIR_COMPLEX_SOA='true'\\n\"\n    if [[ ${sim_extra_option} == \"complexSOA_SVPOA\" ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_SVPOA='true'\\n\"\n    else\n\tRUNDIR_VARS+=\"RUNDIR_SVPOA='false'\\n\"\n    fi\nelse\n    RUNDIR_VARS+=\"RUNDIR_COMPLEX_SOA='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SVPOA='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"aciduptake\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_DUSTALK_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_ACID_UPTAKE='true'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_DUSTALK_EXT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_ACID_UPTAKE='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"marinePOA\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_MARINE_POA='true'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_MARINE_POA='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} == \"RRTMG\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_RRTMG_OPTS='true'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_RRTMG='true '\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_RRTMG_OPTS='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_RRTMG='false'\\n\"\nfi\n\nif [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_USE_NLPBL='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_ONLINE_O3='false'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_USE_NLPBL='true'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_USE_ONLINE_O3='true'\\n\"\nfi\n\n# NOTE: Fullchem benchmarks use the climatological volcano emissions!\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_VOLC_CLIMATOLOGY='\\$ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc'\\n\"\n\n    if [[ \"x${sim_extra_option}\" == \"xbenchmark\" ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_VOLC_TABLE='\\$ROOT/VOLCANO/v2024-04/so2_volcanic_emissions_CARN_v202401.degassing_only.rc'\\n\"\n    else\n\tRUNDIR_VARS+=\"RUNDIR_VOLC_TABLE='\\$ROOT/VOLCANO/v2024-04/\\$YYYY/\\$MM/so2_volcanic_emissions_Carns.\\$YYYY\\$MM\\$DD.rc'\\n\"\n    fi\nfi\n\n#-----------------------------------------------------------------\n# Ask user to select meteorology source\n#-----------------------------------------------------------------\nprintf \"${thinline}Choose meteorology source:${thinline}\"\nprintf \"  1. MERRA-2 (Recommended)\\n\"\nprintf \"  2. GEOS-FP\\n\"\nprintf \"  3. GEOS-IT\\n\"\n\nmetSettingsDir=${gcdir}/run/shared/settings\n\nvalid_met=0\nwhile [ \"${valid_met}\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" met_num\n    valid_met=1\n\n    if [[ ${met_num} = \"1\" ]]; then\n\n\tmet=\"merra2\"\n\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/merra2.txt)\\n\"\n\n    elif [[ ${met_num} = \"2\" ]]; then\n\n       \tmet=\"geosfp\"\n\n\t# Print warning about GEOS-FP and require user to acknowledge it.\n\tfp_msg=\"WARNING: The convection scheme used to generate archived GEOS-FP meteorology \\nfiles changed from RAS to Grell-Freitas starting June 1 2020 with impact on \\nvertical transport. Discussion and analysis of the impact is available at \\ngithub.com/geoschem/geos-chem/issues/1409. To fix this issue, different GEOS-Chem \\nconvection schemes are called based on simulation start time. This ensures \\ncomparability in GEOS-Chem runs using GEOS-FP fields generated using the RAS \\nconvection scheme and fields generated using Grell-Freitas, but only if the \\nsimulation does not cross the June 1 2020 boundary. We therefore recommend \\nsplitting up GEOS-FP runs in time such that a single simulation does not span \\nthis date. For example, configure one run to end on June 1 2020 and then use \\nits output restart to start another run on June 1. Alternatively consider using \\nMERRA2 which was entirely generated with RAS, or GEOS-IT which was entirely \\ngenerated with Grell-Freitas. If you wish to use a GEOS-FP meteorology year \\ndifferent from your simulation year please create a GEOS-Chem GitHub issue for \\nassistance to avoid accidentally using zero convective precipitation flux.\\n\"\n\tprintf \"\\n${fp_msg}\\n\"\n\tprintf \"This warning will be printed to run directory file warnings.txt.\\n\"\n\tprintf \"${thinline}Enter y to acknowledge and proceed, or q to quit:${thinline}\"\n\tvalid_fp_accept=0\n\twhile [ \"${valid_fp_accept}\" -eq 0 ]; do\n\t    read -p \"${USER_PROMPT}\" fp_accept\n\t    valid_fp_accept=1\n\t    if [[ ${fp_accept} = \"y\" ]]; then\n\t\tx=0\n\t    elif [[ ${fp_accept} = \"q\" ]]; then\n\t\texit\n\t    else\n\t\tvalid_fp_accept=0\n\t\tprintf \"Invalid option. Try again.\\n\"\n\t    fi\n\tdone\n\n        # Ask user to specify processed or raw files\n        printf \"${thinline}Choose meteorology file type:${thinline}\"\n\tprintf \"  1. 0.25x0.3125 processed files from the GEOS-Chem data archive\\n\"\n\tprintf \"  2. 0.25x0.3125 raw files that you downloaded from NASA GMAO\\n\"\n\tprintf \"\\nNOTE: Processed files have unused variables removed, are vertically flipped,\\n\"\n\tprintf \"and are concatenated into daily files. Using them speeds up GCHP runs.\\n\\n\"\n\tvalid_response=0\n\twhile [ \"${valid_response}\" -eq 0 ]; do\n\t    valid_response=1\n\t    read -p \"${USER_PROMPT}\" response\n\t    if [[ ${response} = \"1\" ]]; then\n\t\tmet_file_type=\"processed_ll\"\n\t    elif [[ ${response} = \"2\" ]]; then\n\t\tmet_file_type=\"raw_ll\"\n\t\tmet_desc=\"raw\"\n\t    else\n\t\tvalid_response=0\n\t\tprintf \"Invalid option. Try again.\\n\"\n\t    fi\n\tdone\n\n\t# Ask user to specify meteorology for advection.\n\tprintf \"${thinline}Choose meteorology for advection:${thinline}\"\n\tprintf \"  1. 0.25x0.3125 3-hourly winds (Recommended)\\n\"\n\tprintf \"  2. C720 1-hourly derived winds (Recommended for stretched grid)\\n\"\n\tprintf \"  3. C720 1-hourly mass fluxes (Beta)\\n\"\n\tvalid_response=0\n\twhile [ \"${valid_response}\" -eq 0 ]; do\n\t    valid_response=1\n\t    read -p \"${USER_PROMPT}\" response\n\t    if [[ ${response} = \"1\" ]]; then\n\t\tadv_flux_src=\"3hr_wind\"\n\t    elif [[ ${response} = \"2\" ]]; then\n\t\tadv_flux_src=\"1hr_derived_wind\"\n\t    elif [[ ${response} = \"3\" ]]; then\n\t\tadv_flux_src=\"1hr_mass_flux\"\n\t    else\n\t\tvalid_response=0\n\t\tprintf \"Invalid option. Try again.\\n\"\n\t    fi\n\tdone\n\t    \n\t# Set ExtData.rc settings for met data used for advection\n\tif [[ ${adv_flux_src} = \"3hr_wind\" ]]; then\n\t    if [[ ${met_file_type} = \"processed_ll\" ]]; then\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.preprocessed_3hr_0.25x0.625_wind.txt)\\n\"\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.preprocessed_3hr_0.25x0.625_PS_SPHU.txt)\\n\"\n\t    elif [[ ${met_file_type} = \"raw_ll\" ]]; then\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.raw_3hr_0.25x0.625_wind.txt)\\n\"\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.raw_3hr_0.25x0.625_PS_SPHU.txt)\\n\"\n\t    fi\n\n\telif [[ ${adv_flux_src} = \"1hr_derived_wind\" ]]; then\n\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.derived_1hr_c720_wind_PS_SPHU.txt)\\n\"\n\t    \n\telif [[ ${adv_flux_src} = \"1hr_mass_flux\" ]]; then\n\t    if [[ ${met_file_type} = \"processed_ll\" ]]; then\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.raw_1hr_c720_mass_flux_PS_SPHU_C.txt)\\n\"\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.preprocessed_3hr_0.25x0.625_wind.txt)\\n\"\n\t    elif [[ ${met_file_type} = \"raw_ll\" ]]; then\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.raw_1hr_c720_mass_flux_PS_SPHU_C.txt)\\n\"\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/advection_met/geosfp.raw_3hr_0.25x0.625_wind.txt)\\n\"\n\t    fi\n\n\tfi\n\n\t# Set ExtData.rc settings for met-fields used in GEOS-Chem outside of advection\n\tif [[ ${met_file_type} = \"raw_ll\" ]]; then\n\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/geosfp.nonadv_raw_ll.txt)\\n\"\n\telif [[ ${met_file_type} = \"processed_ll\" ]]; then\n\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosfp/geosfp.nonadv_preprocessed_ll.txt)\\n\"\n\tfi\n\t\n    elif [[ ${met_num} = \"3\" ]]; then\n\t\n\tmet=\"geosit\"\n\t\n \t# Ask user to specify processed or raw files\n\tprintf \"${thinline}Choose meteorology files:${thinline}\"\n\tprintf \"  1. C180 processed files from the GEOS-Chem data archive (Recommended)\\n\"\n\tprintf \"  2. C180 raw files downloaded from NASA GMAO\\n\"\n\tprintf \"  3. 0.5x0.625 processed files from the GEOS-Chem data archive\\n\"\n\tprintf \"  4. 0.5x0.625 raw files downloaded from NASA GMAO\\n\"\n\tprintf \"\\nNOTES:\\n\"\n\tprintf \" - Processed files have unused variables removed, are vertically flipped,\\n\"\n\tprintf \"   and are concatenated into daily files. Using them speeds up GCHP runs.\\n\"\n\tprintf \" - Using input data on a cubed-sphere grid reduces regridding error in GCHP.\\n\\n\"\n\tvalid_response=0\n\twhile [ \"${valid_response}\" -eq 0 ]; do\n\t    valid_response=1\n\t    read -p \"${USER_PROMPT}\" response\n\t    if [[ ${response} = \"1\" ]]; then\n\t\tmet_file_type=\"processed_cs\"\n\t\tmet_desc=\"processed_cs\"\n\t    elif [[ ${response} = \"2\" ]]; then\n\t\tmet_file_type=\"raw_cs\"\n\t\tmet_desc=\"raw_cs\"\n\t    elif [[ ${response} = \"3\" ]]; then\n\t\tmet_file_type=\"processed_ll\"\n\t\tmet_desc=\"processed_ll\"\n\t    elif [[ ${response} = \"4\" ]]; then\n\t\tmet_file_type=\"raw_ll\"\n\t\tmet_desc=\"raw_ll\"\n\t    else\n\t\tvalid_response=0\n\t\tprintf \"Invalid option. Try again.\\n\"\n\t    fi\n\tdone\n\n\t# If using cubed-sphere raw files ask user to specify meteoerology for\n\t# advection. If using raw lat-lon then always use winds.\n\tif [[ ${met_file_type} = \"raw_ll\" || ${met_file_type} = \"processed_ll\" ]]; then\n\t    adv_flux_src=\"3hr_wind\"\n\telif [[ ${met_file_type} = \"processed_cs\" || ${met_file_type} = \"raw_cs\" ]]; then\n\t    printf \"${thinline}Choose meteorology for advection:${thinline}\"\n\t    printf \"  1. C180 3-hourly winds (Recommended)\\n\"\n\t    printf \"  2. C180 1-hourly mass fluxes (Beta)\\n\"\n\t    valid_response=0\n\t    while [ \"${valid_response}\" -eq 0 ]; do\n\t        valid_response=1\n\t        read -p \"${USER_PROMPT}\" response\n\t        if [[ ${response} = \"1\" ]]; then\n\t\t    adv_flux_src=\"3hr_wind\"\n\t        elif [[ ${response} = \"2\" ]]; then\n\t\t    adv_flux_src=\"1hr_mass_flux\"\n\t        else\n\t    \t    valid_response=0\n\t    \t    printf \"Invalid option. Try again.\\n\"\n\t        fi\n\t    done\n\tfi\n\t\n\t# If using raw files, ask user if they are using discover\n\tif [[ ${met_file_type} = \"raw_cs\" || ${met_file_type} = \"raw_ll\" ]]; then\n\t    printf \"${thinline}Are you running on the NASA discover cluster? (y/n)${thinline}\"\n\t    valid_response=0\n\t    while [ \"$valid_response\" -eq 0 ]; do\n\t\tread -p \"${USER_PROMPT}\" use_discover\n\t\tif [[ ${use_discover} = \"y\" ]]; then\n\t\t    valid_response=1\n\t\telif [[ ${use_discover} = \"n\" ]]; then\n\t\t    valid_response=1\n\t\telse\n\t\t    printf \"Invalid option. Try again.\\n\"\n\t\tfi\n\t    done\n\telse\n\t    use_discover=n\n\tfi\n\t\n\t# Set text files containing settings for met data. Different settings based options above.\n\tif [[ ${met_file_type} = \"processed_ll\" ]]; then\n\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/geosit.preprocessed_0.5x0.625.txt)\\n\"\n\t\n\telif [[ ${met_file_type} = \"processed_cs\" ]]; then\n\n\t    if [[ ${adv_flux_src} = \"1hr_mass_flux\" ]]; then\n\t        RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/advection_met/geosit.preprocessed_1hr_c180_mass_flux.txt)\\n\"\n\t    elif [[ ${adv_flux_src} == \"3hr_wind\" ]]; then\n\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/advection_met/geosit.preprocessed_3hr_c180_wind.txt)\\n\"\n\t    fi\n\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/geosit.nonadv_preprocessed_c180.txt)\\n\"\n\n\telse\n\n\t    # Using raw GEOS-IT data downloaded from GMAO\n\t    if [[ ${use_discover} = \"y\" ]]; then\n\n\t\tif [[ ${met_file_type} = \"raw_ll\" ]]; then\n\t\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/discover/geosit.raw_0.5x0.625.txt)\\n\"\n\t\telse\n\t            if [[ ${adv_flux_src} = \"1hr_mass_flux\" ]]; then\n\t\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/discover/geosit.raw_1hr_c180_mass_flux.txt)\\n\"\n\t            elif [[ ${adv_flux_src} = \"3hr_wind\" ]]; then\n\t\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/discover/geosit.raw_3hr_c180_wind.txt)\\n\"\n\t\t    fi\n\t\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/discover/geosit.raw_c180.txt)\\n\"\n\t\tfi\n\n\t    else\n\t\t# Not using discover\n\t\tif [[ ${met_file_type} = \"raw_ll\" ]]; then\n\t\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/geosit.raw_0.5x0.625.txt)\\n\"\n\t\telse\n\t            if [[ ${adv_flux_src} = \"1hr_mass_flux\" ]]; then\n\t\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/advection_met/geosit.raw_1hr_c180_mass_flux.txt)\\n\"\n\t            elif [[ ${adv_flux_src} = \"3hr_wind\" ]]; then\n\t\t\tRUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/advection_met/geosit.raw_3hr_c180_wind.txt)\\n\"\n\t\t    fi\n\t\t    RUNDIR_VARS+=\"$(cat ${metSettingsDir}/geosit/geosit.raw_c180.txt)\\n\"\n\t\tfi\n\n\t    fi\n\tfi  # end GEOS-IT\n\t\n    else\n\tvalid_met=0\n\tprintf \"Invalid meteorology option. Try again.\\n\"\n    fi\ndone\n\n#-----------------------------------------------------------------\n# Ask user to define path where directory will be created\n#-----------------------------------------------------------------\nprintf \"${thinline}Enter path where the run directory will be created:${thinline}\"\nvalid_path=0\nwhile [ \"$valid_path\" -eq 0 ]; do\n    read -e -p \"${USER_PROMPT}\" rundir_path\n\n    # Test for quitting\n    if [[ \"x${rundir_path}\" == \"xq\" ]]; then\n\tprintf \"\\nExiting.\\n\"\n\texit 1\n    fi\n\n    # Replace ~ with the user's home directory\n    # NOTE: This is a safe algorithm.\n    if [[ \"${rundir_path}\" =~ '~' ]]; then\n\trundir_path=\"${rundir_path/#\\~/$HOME}\"\n\techo \"Expanding to: ${rundir_path}\"\n    fi\n\n    # If this is just a new directory within an existing one,\n    # give the user the option to proceed\n    if [[ ! -d ${rundir_path} ]]; then\n        if [[ -d $(dirname ${rundir_path} ) ]]; then\n            printf \"\\nWarning: ${rundir_path} does not exist,\\nbut the parent directory does.\\nWould you like to make this directory? (y/n/q)\\n\"\n            read -p \"${USER_PROMPT}\" mk_rundir\n            if [[ \"x${mk_rundir}\" == \"xy\" ]]; then\n                mkdir $rundir_path\n\t    elif [[ \"x${mk_rundir}\" == \"xq\" ]]; then\n\t\tprintf \"\\nExiting.\\n\"\n\t\texit 1\n            fi\n        fi\n    fi\n\n    # Ask user to supply a new path again\n    if [[ ! -d ${rundir_path} ]]; then\n        printf \"\\nERROR: ${rundir_path} does not exist. Enter a new path or hit q to quit.\\n\"\n    else\n\tvalid_path=1\n    fi\ndone\n\n#-----------------------------------------------------------------\n# Ask user to define run directory name if not passed as argument\n#-----------------------------------------------------------------\nif [ -z \"$1\" ]; then\n    printf \"${thinline}Enter run directory name, or press return to use default:\\n\\n\"\n    printf \"NOTE: This will be a subfolder of the path you entered above.${thinline}\"\n    read -e -p \"${USER_PROMPT}\" rundir_name\n    if [[ -z \"${rundir_name}\" ]]; then\n\trundir_name=gchp_${met}_${sim_name}\n\tif [[ \"${sim_extra_option}\" != \"none\" ]]; then\n\t    rundir_name=${rundir_name}_${sim_extra_option}\n\tfi\n\tif [[ \"x${met_desc}\" != \"x\" ]]; then\n\t    rundir_name=${rundir_name}_${met_desc}\n\tfi\n\tif [[ \"x${adv_flux_src}\" != \"x\" ]]; then\n\t    rundir_name=${rundir_name}_using_${adv_flux_src}\n\tfi\n\tprintf \"  -- Using default directory name ${rundir_name}\\n\"\n    fi\nelse\n    rundir_name=$1\nfi\n\n#-----------------------------------------------------------------\n# Ask user for a new run directory name if specified one exists\n#-----------------------------------------------------------------\nrundir=${rundir_path}/${rundir_name}\nvalid_rundir=0\nwhile [ \"${valid_rundir}\" -eq 0 ]; do\n    if [[ -d ${rundir} ]]; then\n\tprintf \"\\nWARNING: ${rundir} already exists.\\n\"\n        printf \"Enter a different run directory name, or q to quit:\\n\"\n\tread -e -p \"${USER_PROMPT}\" new_rundir\n\tif [[ ${new_rundir} = \"q\" ]]; then\n\t    printf \"Exiting.\\n\"\n\t    exit 1\n\telse\n\t    rundir=${rundir_path}/${new_rundir}\n\tfi\n    else\n        valid_rundir=1\n    fi\ndone\n\n#-----------------------------------------------------------------\n# Create run directory\n#-----------------------------------------------------------------\n\nmkdir -p ${rundir}\nmkdir -p ${rundir}/Restarts\n\n# Copy run directory files and subdirectories\ncp ${gcdir}/run/shared/cleanRunDir.sh ${rundir}\ncp ./archiveRun.sh                    ${rundir}\ncp ./logging.yml                      ${rundir}\ncp ./README.md                        ${rundir}\ncp ./setEnvironmentLink.sh            ${rundir}\ncp ./setRestartLink.sh                ${rundir}\ncp ./checkRunSettings.sh              ${rundir}\ncp ./gitignore                        ${rundir}/.gitignore\n\n# Only copy extdata.yaml used in ExtData2G if using Transport Tracers\n# (extdata.yaml not yet available for other simulations)\nif [[ \"x${sim_name}\" == \"xTransportTracers\" ]]; then\n    cp ./ExtData2G.yaml.templates/extdata.yaml.${sim_name} ${rundir}/extdata.yaml\nfi\n\n# Copy file to auto-update common settings\ncp ./setCommonRunSettings.sh.template  ${rundir}/setCommonRunSettings.sh\n\n# Copy metrics.py file to computing global OH\nif [[ \"x${sim_name}\" == \"xfullchem\" || \"x${sim_name}\" == \"xcarbon\" ]]; then\n    cp -r ${gcdir}/run/shared/metrics.py  ${rundir}\n    chmod 744 ${rundir}/metrics.py\nfi\n\n# Copy the KPP standalone interface config file to ther rundir (fullchem only)\nif [[ \"x${sim_name}\" == \"xfullchem\"  ]]; then\n    cp -r ${gcdir}/run/shared/kpp_standalone_interface.yml ${rundir}\n    chmod 644 ${rundir}/kpp_standalone_interface.yml\nfi\n\n# Set permissions\nchmod 744 ${rundir}/cleanRunDir.sh\nchmod 744 ${rundir}/archiveRun.sh\nchmod 744 ${rundir}/setEnvironmentLink.sh\nchmod 744 ${rundir}/setRestartLink.sh\nchmod 744 ${rundir}/setCommonRunSettings.sh\nchmod 744 ${rundir}/checkRunSettings.sh\n\n# Copy species database; append APM or TOMAS species if needed\n# Also copy APM input files to the run directory\ncp -r ${gcdir}/run/shared/species_database.yml   ${rundir}\nif [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n    cat ${gcdir}/run/shared/species_database_tomas.yml >> ${rundir}/species_database.yml\nelif [[ ${sim_extra_option} =~ \"APM\" ]]; then\n    cat ${gcdir}/run/shared/species_database_apm.yml >> ${rundir}/species_database.yml\n    cp ${gcdir}/run/shared/apm_tmp.dat ${rundir}/apm_tmp.dat\n    cp ${gcdir}/run/shared/input.apm   ${rundir}/input.apm\nfi\n\n# Create symbolic link to code directory\nln -s ${wrapperdir} ${rundir}/CodeDir\nln -s ${wrapperdir}/run/runScriptSamples ${rundir}/runScriptSamples\n\n#--------------------------------------------------------------------\n# Link to initial restart files, set start in cap_restart\n#--------------------------------------------------------------------\nrestarts=${GC_DATA_ROOT}/GEOSCHEM_RESTARTS\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    if [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n\tstart_date='20190701'\n\trestart_dir='v2024-01'\n\trestart_name=\"${sim_extra_option}\"\n    else\n\tstart_date='20190701'\n\trestart_dir='GC_14.7.0'\n\trestart_name=\"${sim_name}\"\n    fi\nelif [[ \"x${sim_name}\" == \"xtagO3\" ]]; then\n    # NOTE: we use the fullchem restart file for tagO3\n    start_date='20190701'\n    restart_dir='GC_14.7.0'\n    restart_name=\"fullchem\"\nelif [[ \"x${sim_name}\" == \"xTransportTracers\" ]]; then\n    start_date='20190101'\n    restart_dir='GC_14.7.0'\n    restart_name=\"${sim_name}\"\nelif [[ ${sim_name} = \"carbon\" ]]; then\n    start_date='20190101'\n    restart_dir='GC_14.7.0'\n    restart_name=\"${sim_name}\"\nfi\nfor N in 24 30 48 90 180\ndo\n    # Do not include c24 and c48 if using GEOS-IT mass fluxes. MAPL cannot regrid\n    # C180 mass fluxes to those grid resolutions.\n    if [[ \"${met}\" == \"geosit\" && \"${adv_flux_src}\" == \"mass_flux\" ]]; then\n\tif [[ \"$N\" == \"24\" || \"$N\" == \"48\" ]]; then\n\t    continue\n\tfi\n    fi\n    old_prefix=\"GEOSChem.Restart.${restart_name}\"\n    new_prefix=\"GEOSChem.Restart\"\n    echo \"${start_date} 000000\" > ${rundir}/cap_restart\n    initial_rst=\"${restarts}/${restart_dir}/${old_prefix}.${start_date}_0000z.c${N}.nc4\"\n    linkname=\"${rundir}/Restarts/${new_prefix}.${start_date}_0000z.c${N}.nc4\"\n    ln -s ${initial_rst} ${linkname}\ndone\n\n#--------------------------------------------------------------------\n# Navigate to run directory and set up input files\n#--------------------------------------------------------------------\ncd ${rundir}\n\nRUNDIR_VARS+=\"RUNDIR_SIM_DUR_YYYYMMDD='00000100'\\n\"\nRUNDIR_VARS+=\"RUNDIR_SIM_DUR_HHmmSS='000000'\\n\"\n\n# Use monthly diagnostics by default\nRUNDIR_VARS+=\"RUNDIR_HIST_TIME_AVG_DUR='010000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_TIME_AVG_FREQ='010000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_INST_DUR='010000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_INST_FREQ='010000'\\n\"\nRUNDIR_VARS+=\"RUNDIR_HIST_MONTHLY_DIAG='1'\\n\"\n\n# Set default compute resources\nif [[ \"${met}\" == \"geosit\" && \"${adv_flux_src}\" == \"1hr_mass_flux\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_NUM_CORES='24'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_NUM_NODES='1'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_CORES_PER_NODE='24'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_NUM_CORES='96'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_NUM_NODES='2'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_CORES_PER_NODE='48'\\n\"\nfi\n\n# Set default grid resolution\nif [[ \"${met}\" == \"geosit\" && \"${adv_flux_src}\" == \"1hr_mass_flux\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_CS_RES='30'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_CS_RES='24'\\n\"\nfi\n\n# Assign appropriate file paths and settings in HEMCO_Config.rc\nif [[ \"${sim_extra_option}\" == \"benchmark\" ]]; then\n    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_MEGAN_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SOILNOX_EXT='on '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_DUST='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_BIOVOC='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SOILNOX='false'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='off'\\n\"\nelse\n    if [[ \"${sim_extra_option}\" == \"marinePOA\" ]]; then\n\tRUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='on '\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='false'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n    else\n\tRUNDIR_VARS+=\"RUNDIR_SEASALT_EXT='off'\\n\"\n\tRUNDIR_VARS+=\"RUNDIR_OFFLINE_SEASALT='true '\\n\"\n\tif [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n\t    RUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='on '\\n\"\n\telse\n\t    RUNDIR_VARS+=\"RUNDIR_TOMAS_SEASALT='off'\\n\"\n\tfi\n    fi\n    if [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n        RUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='on '\\n\"\n    else\n        RUNDIR_VARS+=\"RUNDIR_TOMAS_DUSTDEAD='off'\\n\"\n    fi\n    RUNDIR_VARS+=\"RUNDIR_MEGAN_EXT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_SOILNOX_EXT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_DUSTL23M_EXT='off'\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_BIOVOC='true '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_DUST='true '\\n\"\n    RUNDIR_VARS+=\"RUNDIR_OFFLINE_SOILNOX='true '\\n\"\nfi\nRUNDIR_VARS+=\"$(cat ${metSettingsDir}/gmao_hemco.txt)\\n\"\nif [[ \"x${sim_extra_option}\" == \"xbenchmark\"        ||\n      \"x${sim_extra_option}\" == \"xaciduptake\"       ||\n      \"x${sim_extra_option}\" == \"xmarinePOA\"        ||\n      \"x${sim_extra_option}\" == \"xcomplexSOA_SVPOA\" ||\n      \"x${sim_extra_option}\" == \"xAPM\"              ||\n      \"x${sim_name}\"         == \"xcarbon\"           ||\n      \"x${sim_extra_option}\" == \"xTOMAS15\"          ||\n      \"x${sim_extra_option}\" == \"xTOMAS40\"          ||\n      \"x${sim_name}\"         == \"xPOPs\"             ||\n      \"x${sim_name}\"         == \"xTransportTracers\" ||\n      \"x${sim_name}\"         == \"xtagO3\"        ]]; then\n    RUNDIR_VARS+=\"RUNDIR_INITIAL_RESTART_SPECIES_REQUIRED='0'\\n\"\nelse\n    RUNDIR_VARS+=\"RUNDIR_INITIAL_RESTART_SPECIES_REQUIRED='1'\\n\"\nfi\n\n#--------------------------------------------------------------------\n# Replace settings in config files with RUNDIR variables\n#--------------------------------------------------------------------\n\n# Define a subdirectory for rundir configuration files\nrundir_config_dirname=CreateRunDirLogs\nrundir_config=${rundir}/${rundir_config_dirname}\nmkdir -p ${rundir_config}\n\n# Save RUNDIR variables to a file in the rundirConfig folder\nrundir_config_logname=rundir_vars.txt\nrundir_config_log=${rundir}/${rundir_config_dirname}/${rundir_config_logname}\necho -e \"$RUNDIR_VARS\" > ${rundir_config_log}\n\n# Initialize run directory\n${srcrundir}/init_rd.sh ${rundir_config_log}\n\n# Call function to setup configuration files with settings common between\n# GEOS-Chem Classic and GCHP. This script mainly now adds species to \n# geoschem_config.yml and modifies diagnostic output based on simulation type.\nif [[ \"x${sim_name}\" = \"xfullchem\" ]]; then\n    set_common_settings \"${sim_extra_option}\" \"GCHP\"\nfi\n\n# If necessary, edit config files for a carbon single species simulation\nif [[ \"x${sim_name}\" == \"xcarbon\" ]]; then\n    if [[ \"x${sim_extra_option}\" != \"xnone\" ]]; then\n\tsingleCarbonSpecies \"${sim_extra_option}\" \"${rundir}\"\n    fi\nfi\n\n# Call setCommonRunSettings.sh so that all config files are consistent with its\n# default settings. Suppress informational prints.\nchmod +x setCommonRunSettings.sh\n./setCommonRunSettings.sh --silent\n\n#--------------------------------------------------------------------\n# Navigate back to source code directory\n#--------------------------------------------------------------------\ncd ${srcrundir}\n\n#----------------------------------------------------------------------\n# Archive repository version in run directory file rundir.version\n#----------------------------------------------------------------------\nversion_log=${rundir}/${rundir_config_dirname}/rundir.version\necho \"This run directory was created with ${srcrundir}/createRunDir.sh.\" > ${version_log}\necho \" \" >> ${version_log}\necho \"GEOS-Chem repository version information:\" >> ${version_log}\ncd ${gcdir}\nremote_url=$(git config --get remote.origin.url)\ncode_branch=$(git rev-parse --abbrev-ref HEAD)\nlast_commit=$(git log -n 1 --pretty=format:\"%s\")\ncommit_date=$(git log -n 1 --pretty=format:\"%cd\")\ncommit_user=$(git log -n 1 --pretty=format:\"%cn\")\ncommit_hash=$(git log -n 1 --pretty=format:\"%h\")\ncd ${srcrundir}\nprintf \"\\n  Remote URL: ${remote_url}\" >> ${version_log}\nprintf \"\\n  Branch: ${code_branch}\"    >> ${version_log}\nprintf \"\\n  Commit: ${last_commit}\"    >> ${version_log}\nprintf \"\\n  Date: ${commit_date}\"      >> ${version_log}\nprintf \"\\n  User: ${commit_user}\"      >> ${version_log}\nprintf \"\\n  Hash: ${commit_hash}\"      >> ${version_log}\n\n#-----------------------------------------------------------------\n# Ask user whether to track run directory changes with git\n#-----------------------------------------------------------------\nprintf \"${thinline}Do you want to track run directory changes with git? (y/n)${thinline}\"\nvalid_response=0\nwhile [ \"$valid_response\" -eq 0 ]; do\n    read -p \"${USER_PROMPT}\" enable_git\n    if [[ ${enable_git} = \"y\" ]]; then\n\tcd ${rundir}\n\tprintf \"\\n\\nChanges to the following run directory files are tracked by git:\\n\\n\" >> ${version_log}\n\tprintf \"\\n\"\n\tgit init\n\tgit add *.rc *.sh *.yml input.nml\n\tif [[ \"x${sim_name}\" == \"xfullchem\" || \"x${sim_name}\" == \"xcarbon\" ]]; then\n\t    git add *.py\n\tfi\n\tprintf \" \" >> ${version_log}\n\tgit commit -m \"Initial run directory\" >> ${version_log}\n\tcd ${srcrundir}\n\tvalid_response=1\n    elif [[ ${enable_git} = \"n\" ]]; then\n\tvalid_response=1\n    else\n\tprintf \"Input not recognized. Try again.\\n\"\n    fi\ndone\n\nprintf \"\\n${thinline}Created ${rundir}\\n\"\nprintf \"\\n  -- See ${rundir_config_dirname}/${rundir_config_logname} for summary of default run directory settings\"\nprintf \"\\n  -- This run directory is set up for simulation start date $start_date\"\nprintf \"\\n  -- Restart files for this date at different grid resolutions are in the\"\nprintf \"\\n     Restarts subdirectory\"\nprintf \"\\n  -- To update start time, edit configuration file cap_restart and\"\nprintf \"\\n     add or symlink file Restarts/GEOSChem.Restart.YYYYMMDD_HHmmz.cN.nc\"\nprintf \"\\n     where YYYYMMDD_HHmm is start date and time\"\nprintf \"\\n  -- Edit other commonly changed run settings in setCommonRunSettings.sh\"\nprintf \"\\n  -- See build/README for compilation instructions\"\nprintf \"\\n  -- Example run scripts are in the runScriptSamples subdirectory\"\nprintf \"\\n  -- For more information visit the GCHP user guide at\"\nprintf \"\\n     https://readthedocs.org/projects/gchp/\\n\\n\"\n\nif [[ \"x${sim_name}\" == \"xTransportTracers\" ]]; then\n    printf \"\\n\\n*** NOTE: ExtData2G is now available as beta! ***\\n\"\n    printf \" - New configuration file extdata.yaml is located in your run directory\\n\"\n    printf \" - It is configured for use with MERRA2 meteorology at grid resolutions <= C180\\n\"\n    printf \" - Set Use_ExtData2G to true in setCommonRunSetting.sh to enable\\n\"\n    printf \" - Edit extdata.yaml for use with other meteorology sources or mass fluxes\\n\"\n    printf \" - Edit extdata.yaml to match changes to ExtData.rc if using grid resolution > C180\\n\"\n    printf \" - See ExtData2G User Guide at https://github.com/GEOS-ESM/MAPL/wiki/ExtData-Next-Generation---User-Guide#451-mask-functions\\n\"\nfi\n\n#-----------------------------------------------------------------\n# Ask user whether to build the KPP-standalone box model\n#-----------------------------------------------------------------\nenable_kppsa=\"\"\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    printf \"${thinline}Do you want to build the KPP-Standalone Box Model? (y/n)${thinline}\"\n    valid_response=0\n    while [ \"$valid_response\" -eq 0 ]; do\n\tread -p \"${USER_PROMPT}\" enable_kppsa\n\tif [[ \"x${enable_kppsa}\" == \"xy\" ]]; then\n\t    cp -r ${gcdir}/run/shared/kpp_standalone_interface.yml  ${rundir}\n\t    chmod 644 ${rundir}/kpp_standalone_interface.yml\n\t    valid_response=1\n\telif [[ \"x${enable_kppsa}\" = \"xn\" ]]; then\n\t    valid_response=1\n\telse\n\t    printf \"Input not recognized. Try again.\\n\"\n\tfi\n    done\nfi\n\n#---------------------------------------------------------------------------\n# Add reminders to compile with CMake options for simulations that need them\n#---------------------------------------------------------------------------\nhdr=\"\\n>>>> REMINDER: You must compile with options:\"\nftr=\"<<<<\\n\"\n\nEXTRA_CMAKE_OPTIONS=\"\"\n[[ \"x${sim_name}\" == \"xcarbon\" ]] && EXTRA_CMAKE_OPTIONS=\"-DMECH=carbon \"\n[[ \"x${sim_name}\" == \"xHg\"     ]] && EXTRA_CMAKE_OPTIONS=\"-DMECH=Hg -DFASTJX=y \"\nif [[ \"x${sim_name}\" == \"xfullchem\" ]]; then\n    [[ \"x${sim_extra_option}\" == \"xAPM\"     ]] && EXTRA_CMAKE_OPTIONS=\"-DAPM=y \"\n    [[ \"x${sim_extra_option}\" == \"xRRTMG\"   ]] && EXTRA_CMAKE_OPTIONS=\"-DRRTMG=y \"\n    [[ \"x${sim_extra_option}\" == \"xTOMAS15\" ]] && EXTRA_CMAKE_OPTIONS=\"-DTOMAS=y -DTOMAS_BINS=15 \"\n    [[ \"x${sim_extra_option}\" == \"xTOMAS40\" ]] && EXTRA_CMAKE_OPTIONS=\"-DTOMAS=y -DTOMAS_BINS=40 \"\nfi\n[[ \"x${enable_kppsa}\" == \"xy\" ]] && EXTRA_CMAKE_OPTIONS+=\"-DKPPSA=y\"\n\n# Add to RUNDIR_VARS\nRUNDIR_VARS+=\"EXTRA_CMAKE_OPTIONS=${EXTRA_CMAKE_OPTIONS}\"\n\n# Print a reminder to compile with extra CMake options, if necessary\n[[ \"x${EXTRA_CMAKE_OPTIONS}\" != \"x\" ]] && printf \"${hdr} ${EXTRA_CMAKE_OPTIONS} ${ftr}\"\n\n#---------------------------------------------------------------------------\n# Create build directory README file\n#---------------------------------------------------------------------------\nmkdir -p \"${rundir}/build\"\nmsg=\"To build GEOS-Chem, type:\\n\\n\"\nmsg+=\"$ cmake ../CodeDir\\n\"\nmsg+=\"$ cmake . -DRUNDIR=.. ${EXTRA_CMAKE_OPTIONS}\\n\"\nmsg+=\"$ make -j\\n\"\nmsg+=\"$ make install\\n\"\nprintf \"${msg}\" > ${rundir}/build/README\nunset msg\n\n#-----------------------------------------------------------------\n# Add the version info to the top of the rundir configuration log\n#-----------------------------------------------------------------\n\n# Add a caveat that these rundir settings only go with this commit\nprintf \"\\n\\n IMPORTANT: ONLY USE THESE RUNDIR SETTINGS WITH THIS COMMIT!\\n\" >> ${version_log}\n\n# Add a \"# \" characters to the front of each line so we can use\n# it as a comment heading for ${rundir_config_logname}\nsed 's/^/# /' ${version_log} > tmp.txt\nmv tmp.txt ${version_log}\n\n# Add the version log to the top of the rundir config log\ncat ${version_log} ${rundir_config_log} > tmp.txt\nmv tmp.txt ${rundir_config_log}\n\n# Remove the version log\nrm -rf ${version_log}\n\n# Save the updated rundir_vars file to the git repo\nif [[ \"x${enable_git}\" == \"xy\" ]]; then\n    if [[ -f ${rundir_config_log} ]]; then\n\tcd ${rundir}\n\tgit add ${rundir_config_log}\n\tgit commit -m \"Update header of ${rundir_config_dirname}/${rundir_config_lognbame}\" > /dev/null\n\tcd ${srcrundir}\n    fi\nfi\n\n#-----------------------------------------------------------------\n# Create and populate warnings file\n#-----------------------------------------------------------------\nif [[ $met == \"geosfp\" ]]; then\n   echo -e ${fp_msg} > ${rundir}/warnings.txt\nfi\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.TransportTracers",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for GCHP simulations using the TransportTracers mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  met_field: ${RUNDIR_MET}\n  chem_inputs_dir: ./ChemDir/\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Timesteps settings\n#\n# These timesteps are determined in setCommonRunSettings.sh since they are\n# resolution-dependent for GCHP\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    activate: true\n    transported_species:\n      -  Rn222\n      -  Pb210\n      -  Pb210s\n      -  Be7\n      -  Be7s\n      -  Be10\n      -  Be10s\n      -  aoa\n      -  aoa_bl\n      -  aoa_nh\n      -  CH3I\n      -  CO_25\n      -  CO_50\n      -  e90\n      -  e90_n\n      -  e90_s\n      -  nh_5\n      -  nh_50\n      -  PassiveTracer\n      -  SF6\n      -  st80_25\n\n  wet_deposition:\n    activate: true\n"
  },
  {
    "path": "run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.carbon",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the KPP carbon mechanism.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  met_field: ${RUNDIR_MET}\n  chem_inputs_dir: ./ChemDir/\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    activate: true\n    transported_species:\n      - CH4\n      - CO\n      - CO2\n      - OCS\n\n#============================================================================\n# Options for CH4\n#============================================================================\nCH4_options:\n\n  use_observational_operators:\n    AIRS: false\n    GOSAT: false\n    TCCON: false\n\n  analytical_inversion:\n    activate: false\n    state_vector_element_number: 0\n    emission_perturbation_factor: 1.0\n    OH_perturbation_factor: 1.0\n    perturb_CH4_boundary_conditions: false\n    CH4_boundary_condition_ppb_increase_NSEW: [0.0, 0.0, 0.0, 0.0]\n    use_emission_scale_factor: false\n    use_OH_scale_factors: false\n\n#============================================================================\n# Options for CO\n#============================================================================\n\nCO_options:\n  use_fullchem_PCO_from_CH4: true\n  use_fullchem_PCO_from_NMVOC: true\n\n#============================================================================\n# Options for CO2\n#============================================================================\n\nCO2_options:\n\n  sources:\n    3D_chemical_oxidation_source: true\n\n  tagged_species:\n    tag_bio_and_ocean_CO2: false\n    tag_land_fossil_fuel_CO2: false\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_co2_1_OCO2MIP_2018-11-28.YYYYMMDD.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - CH4\n      - CO\n      - CO2\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: plane.log.YYYYMMDD"
  },
  {
    "path": "run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.fullchem",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for GCHP simulations using the KPP \"fullchem\" mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  met_field: ${RUNDIR_MET}\n  chem_inputs_dir: ./ChemDir/\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Timesteps settings\n#\n# These timesteps are determined in setCommonRunSettings.sh since they are\n# resolution-dependent for GCHP\n#============================================================================\ntimesteps:\n  transport_timestep_in_s: ${RUNDIR_TRANSPORT_TS}\n  chemistry_timestep_in_s: ${RUNDIR_CHEMISTRY_TS}\n  radiation_timestep_in_s: 10800\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n    linear_chemistry_aloft:\n      activate: true\n      use_linoz_for_O3: true\n    active_strat_H2O:\n      activate: true\n      use_static_bnd_cond: true\n    gamma_HO2: 0.2\n    autoreduce_solver:\n      activate: false\n      use_target_threshold:\n        activate: true\n        oh_tuning_factor: 0.00005\n        no2_tuning_factor: 0.0001\n      use_absolute_threshold:\n        scale_by_pressure: true\n        absolute_threshold: 100.0\n      keep_halogens_active: false\n      append_in_internal_timestep: false\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    CO2_effect:\n      activate: false\n      CO2_level: 600.0\n      reference_CO2_level: 380.0\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  photolysis:\n    activate: true\n    cloud-j:\n      cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2025-01/\n      verbose: false\n      num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV}\n      cloud_scheme_flag: 3\n      opt_depth_increase_factor: 1.050\n      min_top_inserted_cloud_OD: 0.005\n      cloud_overlap_correlation: 0.33\n      num_cloud_overlap_blocks: 6\n      sphere_correction: 1\n      num_wavelength_bins: 18\n      use_H2O_UV_absorption: true\n    overhead_O3:\n      use_online_O3_from_model: ${RUNDIR_USE_ONLINE_O3}\n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n    photolyze_nitrate_aerosol:\n      activate: true\n      NITs_Jscale: 100.0\n      NIT_Jscale: 100.0\n      percent_channel_A_HONO: 66.667\n      percent_channel_B_NO2: 33.333\n\n  rrtmg_rad_transfer_model:\n    activate: ${RUNDIR_USE_RRTMG}\n    aod_wavelengths_in_nm:\n      - 550\n    longwave_fluxes: ${RUNDIR_RRTMG_OPTS}\n    shortwave_fluxes: ${RUNDIR_RRTMG_OPTS}\n    clear_sky_flux: ${RUNDIR_RRTMG_OPTS}\n    all_sky_flux: ${RUNDIR_RRTMG_OPTS}\n    fixed_dyn_heating: false\n    seasonal_fdh: false\n    fdh_to_toa: false\n    read_dyn_heating: false\n    co2_ppmv: 390.0\n\n  transport:\n    activate: true\n    transported_species:\n      - ACET\n      - ACTA\n      - ACR\n      - AERI\n      - ALD2\n      - ALK4\n      - ALK4N2\n      - ALK4P\n      - ALK6\n      - AONITA\n      - APAN\n      - APINP\n      - APINN\n      - AROMCHO\n      - AROMP4\n      - AROMP5\n      - AROMPN\n      - ATOOH\n      - BALD\n      - BCPI\n      - BCPO\n      - BENZ\n      - BENZP\n      - BPINO\n      - BPINN\n      - BPINP\n      - BPINOOH\n      - BPINON\n      - Br\n      - Br2\n      - BrCl\n      - BrNO2\n      - BrNO3\n      - BrO\n      - BrSALA\n      - BrSALC\n      - BUTDI\n      - BUTN\n      - BZCO3H\n      - BZPAN\n      - C96O2H\n      - C96N\n      - C2H2\n      - C2H4\n      - C2H6\n      - C3H8\n      - C4H6\n      - CCl4\n      - CFC11\n      - CFC113\n      - CFC114\n      - CFC115\n      - CFC12\n      - CH2Br2\n      - CH2Cl2\n      - CH2I2\n      - CH2IBr\n      - CH2ICl\n      - CH2O\n      - CH3Br\n      - CH3CCl3\n      - CH3Cl\n      - CH3I\n      - CH4\n      - CHBr3\n      - CHCl3\n      - Cl\n      - Cl2\n      - Cl2O2\n      - ClNO2\n      - ClNO3\n      - ClO\n      - ClOO\n      - CLOCK\n      - CO\n      - CSL\n      - DMS\n      - DSTbin1\n      - DSTbin2\n      - DSTbin3\n      - DSTbin4\n      - DSTbin5\n      - DSTbin6\n      - DSTbin7\n      - EBZ\n      - EOH\n      - ETHLN\n      - ETHN\n      - ETHP\n      - ETNO3\n      - ETP\n      - FURA\n      - GLYC\n      - GLYX\n      - HACTA\n      - H1211\n      - H1301\n      - H2402\n      - H2O\n      - H2O2\n      - HAC\n      - HBr\n      - HC5A\n      - HCFC123\n      - HCFC141b\n      - HCFC142b\n      - HCFC22\n      - HCl\n      - HCOOH\n      - HI\n      - HMHP\n      - HMML\n      - HMS\n      - HNO2\n      - HNO3\n      - HNO4\n      - HOBr\n      - HOCl\n      - HOI\n      - HONIT\n      - HPALD1\n      - HPALD2\n      - HPALD3\n      - HPALD4\n      - HPETHNL\n      - I\n      - I2\n      - I2O2\n      - I2O3\n      - I2O4\n      - IBr\n      - ICHE\n      - ICl\n      - ICN\n      - ICPDH\n      - IDC\n      - IDCHP\n      - IDHDP\n      - IDHPE\n      - IDN\n      - IEPOXA\n      - IEPOXB\n      - IEPOXD\n      - IHN1\n      - IHN2\n      - IHN3\n      - IHN4\n      - INDIOL\n      - INO\n      - INPB\n      - INPD\n      - IO\n      - IONITA\n      - IONO\n      - IONO2\n      - IPRNO3\n      - ISALA\n      - ISALC\n      - ISOP\n      - ITCN\n      - ITHN\n      - LIMAL\n      - LIMKB\n      - LIMKET\n      - LIMN\n      - LIMNB\n      - LIMO\n      - LIMO2H\n      - LIMO3H\n      - LIMPAN\n      - LVOC\n      - LVOCOA\n      - MACR\n      - MACR1OOH\n      - MAP\n      - MCRDH\n      - MCRENOL\n      - MCRHN\n      - MCRHNB\n      - MCRHP\n      - MCT\n      - MEK\n      - MEKPN\n      - MENO3\n      - MGLY\n      - MOH\n      - MONITA\n      - MONITS\n      - MONITU\n      - MP\n      - MPAN\n      - MPN\n      - MSA\n      - MTPA\n      - MTPO\n      - MVK\n      - MVKDH\n      - MVKHC\n      - MVKHCB\n      - MVKHP\n      - MVKN\n      - MVKPC\n      - MYRCO\n      - N2O\n      - N2O5\n      - NH3\n      - NH4\n      - NIT\n      - NITs\n      - 'NO'\n      - NO2\n      - NO3\n      - NPHEN\n      - NPRNO3\n      - O3\n      - OClO\n      - OCPI\n      - OCPO\n      - OCS\n      - OIO\n      - PAN\n      - pFe\n      - PHAN\n      - PHEN\n      - PIN\n      - PINAL\n      - PINONIC\n      - PINO3H\n      - PINPAN\n      - PIP\n      - PP\n      - PPN\n      - PROPNN\n      - PRPE\n      - PRPN\n      - PYAC\n      - R4N2\n      - R4P\n      - R7N2\n      - R7P\n      - RA3P\n      - RB3P\n      - RCHO\n      - RCOOH\n      - RIPA\n      - RIPB\n      - RIPC\n      - RIPD\n      - RNO3\n      - RP\n      - SALA\n      - SALAAL\n      - SALACL\n      - SALC\n      - SALCAL\n      - SALCCL\n      - SO2\n      - SO4\n      - SO4s\n      - SOAGX\n      - SOAIE\n      - SOAP\n      - SOAS\n      - STYR\n      - TLFUONE\n      - TMB\n      - TOLU\n      - XYLE\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2025-03/\n\n  carbon:\n    activate: true\n    brown_carbon: false\n    enhance_black_carbon_absorption:\n      activate: true\n      hydrophilic: 1.5\n      hydrophobic: 1.0\n\n  complex_SOA:\n    activate:  ${RUNDIR_COMPLEX_SOA}\n    semivolatile_POA: ${RUNDIR_SVPOA}\n\n  dust:\n    activate: true\n    acid_uptake_on_dust: ${RUNDIR_ACID_UPTAKE}\n\n  sea_salt:\n    activate: true\n    SALA_radius_bin_in_um: [0.01, 0.5]\n    SALC_radius_bin_in_um: [0.5,  8.0]\n    marine_organic_aerosols: ${RUNDIR_MARINE_POA}\n\n  stratosphere:\n    settle_strat_aerosol: true\n    polar_strat_clouds:\n      activate: true\n      het_chem: true\n    allow_homogeneous_NAT: false\n    NAT_supercooling_req_in_K: 3.0\n    supersat_factor_req_for_ice_nucl: 1.2\n    calc_strat_aod: true\n\n  sulfate:\n    activate: true\n    metal_cat_SO2_oxidation: true\n"
  },
  {
    "path": "run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.tagO3",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for GCHP simulations using the tagged O3 mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: ${RUNDIR_SIM_NAME}\n  met_field: ${RUNDIR_MET}\n  chem_inputs_dir: ./ChemDir/\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: OutputDir/geoschem_species_metadata.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: ${RUNDIR_USE_NLPBL}\n\n  transport:\n    activate: true\n    transported_species:\n      - O3\n      - O3Strat\n      - O3ut\n      - O3mt\n      - O3row\n      - O3pcbl\n      - O3nabl\n      - O3atbl\n      - O3eubl\n      - O3afbl\n      - O3asbl\n      - O3init\n      - O3usa"
  },
  {
    "path": "run/GCHP/gitignore",
    "content": "OutputDir\nMetDir\nChemDir\nHcoDir\nCodeDir\nrundir.version\n*~\n*#\n*.nc\n*.nc4\n*.log\nEGRESS\n*.rcx\ncap_restart\nfort.11\n*.bin\ngchp\nsetEnvironment\n*.out\nRunScriptSamples\nREADME\nbuild"
  },
  {
    "path": "run/GCHP/init_rd.sh",
    "content": "#!/bin/bash\nDESCRIPTION=\"\"\"Initialize the current working directory as a run directory (minimal file set). \n\nusage: \n   init_rd.sh FILE...\n      FILE...: Files defining variables used to initialize run directory. The\n               rightmost file has the highest precedence.\n               \n               Each FILE is sourced and the loaded variables are used to\n               fill the run directory templates using envsubst.\n\n   init_rd.sh --rundir-vars\n      Lists all the RUNDIR variables found in the templates.\n\n   init_rd.sh [-h] [--help]\n      Prints this help message.\n\"\"\"\nif [[ ( $* == --help ) ||  ( $* == -h ) || $# -eq 0 ]]; then \n   echo \"$DESCRIPTION\"\n   exit 0\nfi \n\nset -e\n\nTHIS_SCRIPTS_DIRECTORY=$(realpath $(dirname \"$0\"))\n\nif [[ ( $* == --rundir-vars ) ]]; then \n   grep -roh 'RUNDIR_[A-Z_][A-Z_]*' $THIS_SCRIPTS_DIRECTORY | grep -v 'RUNDIR_VARS' |  sort | uniq\n   exit 0\nfi \n\nfunction get_rundir_vars_list() {\n   sed -n 's#^\\s*\\([A-Za-z0-9_][A-Za-z0-9_]*\\)=.*#\\1#p'\n}\n\n# Source given files, and build variable list\nvariables=\nfor envfile in \"$@\"; do\n   source $envfile\n   variables+=\"$(cat $envfile | get_rundir_vars_list) \"\n   export $variables\ndone\nvariables=$(echo $variables | sort | uniq)\nenvsubst_list=\"$(printf '${%s} ' $variables)\"\n\nCOPY_LIST=\"\"\"\nESMF.rc\ninput.nml\nlogging.yml\nHEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.${RUNDIR_SIM_NAME}\n\"\"\"\n\nSUBST_LIST=\"\"\"\nsetCommonRunSettings.sh.template\nExtData.rc.templates/ExtData.rc.${RUNDIR_SIM_NAME}\nGCHP.rc.template\ngeoschem_config.yml.templates/geoschem_config.yml.${RUNDIR_SIM_NAME}\nHEMCO_Config.rc.templates/HEMCO_Config.rc.${RUNDIR_SIM_NAME}\nHISTORY.rc.templates/HISTORY.rc.${RUNDIR_SIM_NAME}\nCAP.rc.template\n\"\"\"\n\nfunction filename_with_suffixes_removed() {\n   basename $(basename $1 .${RUNDIR_SIM_NAME}) .template\n}\n\n# Copy files in COPY_LIST to cwd\nfor fpath in $COPY_LIST; do\n   cp $THIS_SCRIPTS_DIRECTORY/$fpath $(filename_with_suffixes_removed $fpath)\ndone\n\n# Copy util directory\ncp -r $THIS_SCRIPTS_DIRECTORY/utils utils\n\n# Make OutputDir\nmkdir -p OutputDir\n\n# Copy and make substitutions for each file in SUBST_LIST\nfor fpath in $SUBST_LIST; do\n   envsubst \"$envsubst_list\" < $THIS_SCRIPTS_DIRECTORY/$fpath > $(filename_with_suffixes_removed $fpath)\ndone\n\n# Make links to directories\n[[ -L ChemDir ]] && unlink ChemDir\n[[ -L HcoDir  ]] && unlink HcoDir\n[[ -L MetDir  ]] && unlink MetDir\nln -s ${RUNDIR_DATA_ROOT}/CHEM_INPUTS ChemDir\nln -s ${RUNDIR_DATA_ROOT}/HEMCO HcoDir\nln -s ${RUNDIR_MET_DIR_RAW} MetDir\n"
  },
  {
    "path": "run/GCHP/input.nml",
    "content": "&fms_nml \nprint_memory_usage = .false., \ndomains_stack_size = 20000000/\n\n#&fv#_core_nml\n#do_schmidt = .true.,\n#stretch_fac = 2.0,\n#target_lat = 37.0,\n#target_lon = 242.0/"
  },
  {
    "path": "run/GCHP/logging.yml",
    "content": "schema_version: 1\n\n###############################      \nlocks:\n   mpi:\n      class: MpiLock\n      comm:  MPI_COMM_WORLD\n\n###############################      \nformatters:\n   legacy:\n      class: Formatter\n      format:  '%(message)a'\n\n   basic:\n      class: Formatter\n      format:  '%(short_name)a15~: %(level_name)a~: %(message)a'\n\n   mpi:\n      class: MpiFormatter\n      format:  '%(mpi_rank)i4.4~: %(name)~: %(level_name)a~: %(message)a'\n      comm: MPI_COMM_WORLD\n\n   column:\n      class: Formatter\n      format: '(%(i)i3.3,%(j)i3.3): %(level_name)'\n\n\n\n###############################      \nhandlers:\n\n   console:\n      class: streamhandler\n#      formatter: legacy\n      formatter: basic\n      unit: OUTPUT_UNIT\n      level: INFO\n      \n   warnings:\n      class:  FileHandler\n      filename: warnings_and_errors.log\n      lock: mpi\n      level: WARNING\n      formatter: basic\n\n   errors:\n      class:  StreamHandler\n      formatter: basic\n      unit: ERROR_UNIT\n      level: ERROR\n\n   mpi_shared:\n      class: FileHandler\n      filename: allPEs.log\n      formatter: mpi\n      comm: MPI_COMM_WORLD\n      lock: mpi\n      rank_keyword: rank\n      level: DEBUG\n\n   mpi_debug:\n      class: MpiFileHandler\n      formatter: basic\n      filename:  debug_%(rank)i3.3~.log\n      comm: MPI_COMM_WORLD      \n      rank_prefix: rank\n      level: DEBUG\n\n###############################      \nroot:\n   handlers: [warnings,errors,console]\n   level: WARNING\n   root_level: WARNING\n\n###############################      \nloggers:\n\n   errors:\n       handlers: [errors]\n       level: ERROR\n\n   CAP:\n       level: WARNING\n       root_level: INFO\n       \n   MAPL:\n       handlers: [mpi_shared]\n       level: WARNING\n       root_level: WARNING\n\n   MAPL.profiler:\n       handlers: [mpi_shared]\n       propagate: FALSE\n       level: WARNING\n       root_level: INFO\n\n   CAP.EXTDATA:\n       handlers: [mpi_shared]\n       level: WARNING\n       root_level: WARNING\n       propagate: false\n   \n   GCHPctmEnv:\n       handlers: [mpi_shared]\n       level: WARNING\n       root_level: INFO\n\n   GCHP:\n       handlers: [mpi_shared]\n       level: WARNING\n       root_level: INFO\n\n       \n  # Note: When enabling another logger, make sure\n  #       indentation matches that of the above \n  #       loggers!\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/README",
    "content": "# Example Run Scripts\n\nThis folder contains:\n\n(1) template file 'gchp.batch_job.sh' to adapt for submitting GCHP batch\n    jobs for various schedulers (PBS, LSF, and SLURM)\n\n(2) template file 'gchp.local.sh' to adapt for running GCHP on the command line\n\n(3) subdirectory 'operational_examples' containing job scripts and\n    environment files used regularly on specific systems.\n\nIf you are running GCHP on a system in 'operational_examples' then you can\ncopy and adapt a job script from that folder. If you are running on a\ndifferent system then you should copy and adapt one of the template files.\n\nIf you have a working run script on a system with several GCHP users please\nconsider submitting it to the GEOS-Chem Support Team for inclusion in\n'operational_examples' in a future version. This will make it easier for\nusers on your system to get started with GCHP. To get started, create\na GEOS-Chem GitHub issue at:\nhttps://github.com/geoschem/geos-chem/issues/\n\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/gchp.batch_job.sh",
    "content": "#!/bin/bash\n\n# Template file to adapt for running a GCHP batch job. Examples are\n# provided for 3 job schedulers: PBS, LSF, and SLURM. Uncomment the\n# code for your system and further adapt as needed.\n\n#####################################################################\n#\n# SCHEDULER HEADER - 3 examples\n#\n# -----------------\n# Example 1: PBS\n#\n#PBS -S /bin/bash\n#PBS -l select=2:ncpus=24:mpiprocs=24:model=bro\n#PBS -l walltime=02:00:00\n#PBS -j oe\n#PBS -W group_list=xXXXX\n#PBS -m e\n#\n# DESCRIPTION      Sample GCHP batch job script for Pleiades\n# SCHEDULER        PBS\n# DATE             2021-02-18\n# SIMULATION       C90, 2019-01-01 to 2019-01-02\n# RESOURCES        2 nodes (Broadwell; model=bro), 24 processes per node\n# SEE ALSO         qsub man pages, http://gchp.rtfd.io/\n#\n# -----------------\n# Example 2: LSF\n# \n#BSUB -G compute-rvmartin\n#BSUB -q rvmartin\n#BSUB -n 24\n#BSUB -W 168:00\n#BSUB -R \"rusage[mem=300GB] span[ptile=36] select[mem < 2TB]\"\n#BSUB -a 'docker(geoschem/gchp:14.3.0)'\n#BSUB -o lsf-%J.txt\n#\n# DESCRIPTION      Sample GCHP batch job script for Compute1 (Docker-based environments)\n# SCHEDULER        LSF\n# DATE             2021-02-19\n# SIMULATION       C90, 2019-01-01 to 2019-01-02\n# RESOURCES        1 nodes, 24 processes per node\n# SEE ALSO         bsub man pages, http://gchp.rtfd.io/\n#\n# -----------------\n# Example 3: SLURM\n#\n#SBATCH -n 60\n#SBATCH -N 2\n#SBATCH -t 2:00:00\n#SBATCH -p huce_intel,seas_compute,shared\n#SBATCH --mem=110G\n#SBATCH --mail-type=ALL\n#\n# DESCRIPTION      Sample GCHP batch job script for Cannon\n# SCHEDULER        SLURM\n# DATE             2021-02-19\n# SIMULATION       C90, 2019-01-01 to 2019-01-02\n# RESOURCES        2 nodes, 30 processes per node\n# SEE ALSO         sbatch man pages, http://gchp.rtfd.io/\n#\n\n#################################################################\n#\n# LOAD LIBRARIES - 2 options\n#\n# Option 1: Define environment settings in external file, link to it from\n#           run directory symlink gchp.env, and source it here.\n# \n#    source gchp.env\n#\n# Option 2: Define environment settings directly in this file. Two\n#           examples are below.\n# \n#    Example 1: PBS on NASA Pleiades\n#\n#       module purge\n#       module use /nobackup/lbindle/modulefiles\n#       module load gchp-env/2021.06-gnu\n#\n#    Example 2: LSF on WashU Compute 1 (uses docker containers)\n#\n#       . /spack/share/spack/setup-env.sh\n#       module load openmpi-4.0.1-gcc-9-sdj47y5\n#\n\n#################################################################\n#\n# ADDITIONAL PRE-RUN CONFIGURATION\n#\n# If a subsequent command fails, treat it as fatal (don't continue) (for debugging)\nset -e\n\n# For remainder of script, echo commands to the job's log file (for debugging)\n#set -x\n\n# Unlimit resources to prevent OS killing GCHP due to resource usage/\n# Alternatively you can put this in your environment file.\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n\n#################################################################\n#\n# PRE-RUN COMMANDS\n#\n# Print loaded modules\nmodule list     \n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\n\n# Update config files, set restart symlink, and do sanity checks\nsource setCommonRunSettings.sh\nsource setRestartLink.sh\nsource checkRunSettings.sh\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\n#################################################################\n#\n# LAUNCH GCHP - 3 examples\n#\n# There are several commands that may work to execute GCHP,\n# and the provided examples may not be appropriate for your system.\n# Check with your system administrator or online documentation about\n# the appropriate way to submit jobs for your scheduler and MPI.\n#\n# Example 1: PBS\n#\n#    mpiexec -n 48 ./gchp > ${log}\n#\n# Example 2: LSF\n#\n#/bin/bash\n#\n#      . /etc/bashrc\n#\n#    mpiexec -n 24 ./gchp > ${log}\n#\n# Example 3: SLURM\n#\n#    srun -n 48 -N 2 -m plane=24 --mpi=pmix ./gchp > ${log}\n#\n\n#################################################################\n#\n# POST-RUN COMMANDS\n#\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# If new start time in cap_restart is okay, rename restart file\n# and update restart symlink\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n    echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n    rm -f Restarts/gcchem_internal_checkpoint\n    exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )\n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/gchp.local.run",
    "content": "#!/bin/bash\n\n# GCHP run script template for running interactively from the command line.\n# Consecutive executions of this script will do consecutive GCHP simulations.\n# Log information is sent to both terminal and log file. Set cap_restart in\n# run directory to specify start date. Set grid resolution, number of cores,\n# and other common settings in setCommonRunSettings.sh prior to running.\n\n# Stop run if errors encountered\nset -eo pipefail\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\n\n# Load environment\nif [ ! -L gchp.env ] || [ ! -e gchp.env ]; then\n   echo \"ERROR: gchp.env symbolic link not valid. Set using setEnvironment.sh.\"\n   exit 1\nelse\n   source gchp.env > ${log}\nfi\n\n# Update config files, set restart symlink, and do sanity checks\nsource setCommonRunSettings.sh --verbose 2>&1 | tee ${log}\nsource setRestartLink.sh 2>&1 | tee ${log}\nsource checkRunSettings.sh 2>&1 | tee ${log}\n\n# Run GCHP with # processors specified in config file setCommonRunSettings.sh\nnCores=$( grep -oP 'TOTAL_CORES=\\s*\\K\\d+' setCommonRunSettings.sh )\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\n#--------------------------------------------------\n# Edit this line to run GCHP on your system\n#--------------------------------------------------\ntime mpirun -np ${nCores} ./gchp 2>&1 | tee -a ${log}\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n   rm Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh 2>&1 | tee -a ${log}\nfi\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/README",
    "content": "This directory contains example run scripts and environment files\nfor several compute clusters that are actively being used for GCHP\nsimulations and development. Contact information is included in the\nREADME within each subdirectory.\n\nIf you have multiple users on your compute cluster then please do\nconsider submitting the run and environment files for your compute\ncluster to include in this directory. To propose including your\nfiles in an upcoming version you may create an issue on the\nGEOS-Chem GitHub issues page:\nhttps://github.com/geoschem/geos-chem/issues/"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/aws_pcluster/README",
    "content": "Notes:\nAlso, on AWS with EFA, it might be necessary to turn on WRITE_RESTART_BY_OSERVER and set numbers of O-servers in GCHP.rc to 6 to avoid crashes when writing restart files. See discussion in https://github.com/geoschem/GCHP/issues/493.\n\nContact:\nYuanjian Zhang at WashU\nyuanjianz @ GitHub\nyuanjian.z@wustl.edu\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/aws_pcluster/execute.sh",
    "content": "#!/bin/bash\n\nif [[ $( cat /proc/sys/kernel/yama/ptrace_scope ) == \"0\" ]]; then\n        echo \"PTrace Correct for EFA\"\nelse\n        echo \"PTrace Override\"\n        sysctl -w kernel.yama.ptrace_scope=0\nfi\n\n./gchp"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/aws_pcluster/gchp.run",
    "content": "#!/bin/bash\n#\n#SBATCH --ntasks-per-node <cores-per-node>\n#SBATCH -N <node-number>\n#SBATCH -t <HH-MM-SS>\n#SBATCH -p <your-partition-name>\n#SBATCH --job-name=<your-job-name>\n\n#################################################################\n#\n# ADDITIONAL PRE-RUN CONFIGURATION\n#\n# If a subsequent command fails, treat it as fatal (don't continue)\nset -e\n\n# Alternatively you can put this in your environment file.\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n#################################################################\n#\n# PRE-RUN COMMANDS\n# You need to build your gchp environment using spack\nspack load gcc@12.4.0\nspack env activate gchp_openmpi4 # GCHP currently not working with OpenMPI5\nmodule load openmpi # system built-in openmpi4\nmodule load libfabric-aws # system built-in fabric\n\n# For remainder of script, echo commands to the job's log file\nset -x\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\n\n# Update config files, set restart symlink, and do sanity checks\nsource setCommonRunSettings.sh\nsource setRestartLink.sh\nsource checkRunSettings.sh\n\nexport OMPI_MCA_btl=vader,tcp,self\nexport OMPI_MCA_btl_tcp_if_exclude=\"lo,docker0,virbr0\"\nexport OMPI_MCA_btl_if_exclude=\"lo,docker0,virbr0\"\n\n# Disable shared memory for EFA to avoid crashes\nexport FI_EFA_ENABLE_SHM_TRANSFER=0\nexport OMPI_MCA_mtl_ofi_provider_exclude=shm\n\n# Maybe alleviate PKE entries exhausted warnings\nexport FI_EFA_RDM_NUM_RX_PKTS=16384 \nexport FI_EFA_RDM_NUM_TX_PKTS=16384\n\nmpiexec -np ${SLURM_NTASKS} --map-by core --bind-to core bash ./execute.sh > ${log}\n\n#################################################################\n#\n# POST-RUN COMMANDS\n#\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nN=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# If new start time in cap_restart is okay, rename restart file\n# and update restart symlink\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n    echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n    rm -f Restarts/gcchem_internal_checkpoint\n    exit 1\nelse\n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/harvard_cannon/README",
    "content": "Contact:\nGEOS-Chem Support Team at Harvard University\ngeos-chem-support@g.harvard.edu"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/harvard_cannon/gchp.gcc10_openmpi4_cannon_rocky.env",
    "content": "###############################################################################\n# gchp.rocky+gnu10.minimal.env\n#\n# Environment file for GCHP + Rocky Linux + GNU Compiler Collection 10.2.0\n#\n# Does not include any Spack-built modules, only FASRC-built modules.\n# Useful for running in the Cannon queues, or to start fresh Spack builds.\n###############################################################################\n\n# Display message (if we are in a terminal window)\nif [[ $- = *i* ]] ; then\n  echo \"Loading modules for GCHP, please wait ...\"\nfi\n\n#==============================================================================\n# Unload all previously-unloaded software\n#==============================================================================\n\n# Unload packages loaded with \"module load\"\nmodule purge\n\n# Unload packages loaded with \"spack load\"\nif [[ \"x${SPACK_ROOT}\" != \"x\" ]]; then\n    which spack &> /dev/null || spack unload --all\nfi\n\n#==============================================================================\n# Load FASRC-built software packages for Rocky Linux and GNU 10.2.0\n#==============================================================================\nif [[ $- = *i* ]] ; then\n  echo \"... Loading FASRC-built software, please wait...\"\nfi\n\n# Load FASRC-built modules\nmodule load gcc/10.2.0-fasrc01             # gcc / g++ / gfortran\nmodule load openmpi/4.1.0-fasrc01          # MPI\nmodule load netcdf-c/4.8.0-fasrc01         # netcdf-c\nmodule load netcdf-fortran/4.5.3-fasrc01   # netcdf-fortran\nmodule load flex/2.6.4-fasrc01             # Flex lexer (needed for KPP)\nmodule load cmake/3.25.2-fasrc01           # CMake (needed to compile)\n\n# Additional FASRC-built modules\n# Uncomment if you need to use these\n##module load IDL/8.7.2-fasrc01              # IDL language (needed for GAMAP)\n##module load R/4.2.2-fasrc01                # R language\n##module load matlab/R2022b-fasrc01          # matlab language\n\n#==============================================================================\n# Environment variables\n# NOTE: <module>_HOME env vars are defined for each loaded <module>\n#==============================================================================\n\n# Make all files world-readable by default\numask 022\n\n# Compilers\nexport CC=\"gcc\"\nexport CXX=\"g++\"\nexport FC=\"gfortran\"\nexport F77=\"${FC}\"\n\n# MPI\nexport MPI_ROOT=\"${MPI_HOME}\"\n\n# netCDF\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n    export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_ROOT=\"${NETCDF_HOME}\"\nexport NETCDF_FORTRAN_ROOT=\"${NETCDF_FORTRAN_HOME}\"\n\n# ESMF\nexport ESMF_COMPILER=\"gfortran\"\nexport ESMF_COMM=\"openmpi\"\nexport ESMF_DIR=\"/n/jacob_lab/Lab/RockyLinux/ESMF/ESMF_8_4_2\"\nexport ESMF_INSTALL_PREFIX=\"${ESMF_DIR}/INSTALL_gnu10_openmpi4\"\nexport ESMF_ROOT=\"${ESMF_INSTALL_PREFIX}\"\n#---------------------------------------------------------------------------\n# ESMF does not build with GCC10 without the following work-around\n# for a type mismatch error (https://trac.macports.org/ticket/60954)\nexport ESMF_F90COMPILEOPTS=\"-fallow-argument-mismatch -fallow-invalid-boz\"\n#---------------------------------------------------------------------------\n\n# KPP 3.0.0+\nexport KPP_FLEX_LIB_DIR=\"${FLEX_HOME}/lib64\"\n\n#==============================================================================\n# Set limits\n#==============================================================================\n\nulimit -c unlimited   # coredumpsize\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\n\n#==============================================================================\n# Print information\n#==============================================================================\n\nmodule list\n\necho \"\"\necho \"Environment:\"\necho \"\"\necho \"CC                  : ${CC}\"\necho \"CXX                 : ${CXX}\"\necho \"FC                  : ${FC}\"\necho \"ESMF_COMM           : ${ESMF_COMM}\"\necho \"ESMF_COMPILER       : ${ESMF_COMPILER}\"\necho \"ESMF_DIR            : ${ESMF_DIR}\"\necho \"ESMF_INSTALL_PREFIX : ${ESMF_INSTALL_PREFIX}\"\necho \"ESMF_ROOT           : ${ESMF_ROOT}\"\necho \"KPP_FLEX_LIB_DIR    : ${KPP_FLEX_LIB_DIR}\"\necho \"MPI_HOME            : ${MPI_HOME}\"\necho \"NETCDF_HOME         : ${NETCDF_HOME}\"\necho \"NETCDF_FORTRAN_HOME : ${NETCDF_FORTRAN_HOME}\"\necho \"\"\necho \"Done sourcing ${BASH_SOURCE[0]}\"\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/harvard_cannon/gchp.gcc12_openmpi4_cannon_rocky.env",
    "content": "################################################################################\n# gchp.rocky+gnu12.minimal.env\n#\n# Environment file for GCHP + Rocky Linux + GNU Compiler Collection 12.2.0\n#\n# Does not include any Spack-built modules, only FASRC-built modules.\n# Useful for running in the Cannon queues, or to start fresh Spack builds.\n###############################################################################\n\n# Display message (if we are in a terminal window)\nif [[ $- = *i* ]] ; then\n  echo \"Loading modules for GCHP, please wait ...\"\nfi\n\n#==============================================================================\n# Unload all previously-unloaded software\n#==============================================================================\n\n# Unload packages loaded with \"module load\"\nmodule purge\n\n# Unload packages loaded with \"spack load\"\nif [[ \"x${SPACK_ROOT}\" != \"x\" ]]; then\n    which spack &> /dev/null || spack unload --all\nfi\n\n#==============================================================================\n# Load FASRC-built software packages for Rocky Linux and GNU 12.2.0\n#==============================================================================\nif [[ $- = *i* ]] ; then\n  echo \"... Loading FASRC-built software, please wait ...\"\nfi\n\n# FASRC-built modules needed for GEOS-Chem\nmodule load gcc/12.2.0-fasrc01             # gcc / g++ / gfortran\nmodule load openmpi/4.1.4-fasrc01          # MPI\nmodule load netcdf-c/4.9.2-fasrc01         # netcdf-c\nmodule load netcdf-fortran/4.6.0-fasrc02   # netcdf-fortran\nmodule load flex/2.6.4-fasrc01             # Flex lexer (needed for KPP)\nmodule load cmake/3.25.2-fasrc01           # CMake (needed to compile)\n\n# Additional FASRC-built modules\n# Uncomment if you need to use these\n#module load IDL/8.7.2-fasrc01              # IDL language (needed for GAMAP)\n#module load R/4.2.2-fasrc01                # R language\n#module load matlab/R2022b-fasrc01          # matlab language\n\n#==============================================================================\n# Environment variables and related settings\n# NOTE: <module>_HOME env vars are defined for each loaded <module>\n#==============================================================================\n\n# Make all files world-readable by default\numask 022\n\n# Specify compilers\nexport CC=\"gcc\"\nexport CXX=\"g++\"\nexport FC=\"gfortran\"\nexport F77=\"${FC}\"\n\n# MPI\nexport MPI_ROOT=\"${MPI_HOME}\"\n\n# netCDF\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n    export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_FORTRAN_ROOT=\"${NETCDF_FORTRAN_HOME}\"\n\n# ESMF\nexport ESMF_COMPILER=\"gfortran\"\nexport ESMF_COMM=\"openmpi\"\nexport ESMF_DIR=\"/n/jacob_lab/Lab/RockyLinux/ESMF/ESMF_8_6_1\"\nexport ESMF_INSTALL_PREFIX=\"${ESMF_DIR}/INSTALL_gnu12_openmpi4\"\nexport ESMF_ROOT=\"${ESMF_INSTALL_PREFIX}\"\n#----------------------------------------------------------------------------\n# ESMF does not build with GCC12 without the following work-around\n# for a type mismatch error (https://trac.macports.org/ticket/60954)\nexport ESMF_F90COMPILEOPTS=\"-fallow-argument-mismatch -fallow-invalid-boz\"\n#----------------------------------------------------------------------------\n\n# KPP 3.0.0+\nexport KPP_FLEX_LIB_DIR=\"${FLEX_HOME}/lib64\"\n\n#==============================================================================\n# Set limits\n#==============================================================================\n\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\n\n#==============================================================================\n# Print information\n#==============================================================================\n\nmodule list\n\necho \"\"\necho \"Environment:\"\necho \"\"\necho \"CC                  : ${CC}\"\necho \"CXX                 : ${CXX}\"\necho \"FC                  : ${FC}\"\necho \"ESMF_COMM           : ${ESMF_COMM}\"\necho \"ESMF_COMPILER       : ${ESMF_COMPILER}\"\necho \"ESMF_DIR            : ${ESMF_DIR}\"\necho \"ESMF_INSTALL_PREFIX : ${ESMF_INSTALL_PREFIX}\"\necho \"ESMF_ROOT           : ${ESMF_ROOT}\"\necho \"KPP_FLEX_LIB_DIR    : ${KPP_FLEX_LIB_DIR}\"\necho \"MPI_HOME            : ${MPI_HOME}\"\necho \"NETCDF_HOME         : ${NETCDF_HOME}\"\necho \"NETCDF_FORTRAN_HOME : ${NETCDF_FORTRAN_HOME}\"\necho \"\"\necho \"Done sourcing ${BASH_SOURCE[0]}\"\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/harvard_cannon/gchp.run",
    "content": "#!/bin/bash\n\n#SBATCH -n 96\n#SBATCH -N 2\n#SBATCH -c 1\n#SBATCH --exclusive\n##-------------------------------------\n## Use this for 1-month runs (default)\n#SBATCH -t 0-8:00\n##------------------------------------\n## Use this for 1-year runs\n##SBATCH -t 1-0:00\n##------------------------------------\n#SBATCH -p sapphire,huce_cascade,seas_compute,shared\n#SBATCH --mem=180000\n#SBATCH --mail-type=END\n\n###############################################################################\n### Sample GCHP run script for Harvard Cannon cluster (using SLURM).\n###\n### -n           : Requests this many cores (across all nodes)\n### -N           : Requests this number of nodes\n### -c 1         : Forces 1 task per CPU (needed after 2024/03/05 SLURM update)\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Exit if command fails\nset -e\n\n# Debug option to print all commands executed in this script\n#set -x\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Cannon-specific setting to get around connection issues at high # cores\nexport OMPI_MCL_btl=openib\n\n# Run GCHP and evenly distribute tasks across nodes\nNX=$( grep NX GCHP.rc | awk '{print $2}' )\nNY=$( grep NY GCHP.rc | awk '{print $2}' )\ncoreCount=$(( ${NX} * ${NY} ))\nplaneCount=$(( ${coreCount} / ${SLURM_NNODES} ))\nif [[ $(( ${coreCount} % ${SLURM_NNODES} )) > 0 ]]; then\n    planeCount=$(( ${planeCount} + 1 ))\nfi\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\ntime srun -n ${coreCount} -N ${SLURM_NNODES} -m plane=${planeCount} --mpi=pmix ./gchp >> ${log}\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/harvard_cannon/gchp.submit_consecutive_jobs.sh",
    "content": "#!/bin/bash\n\n# Use this bash script to submit multiple consecutive GCHP jobs (gchp.run) to SLURM.\n# This allows breaking up long duration simulations into jobs of shorter duration.\n# Set start date in cap_restart, set run duration in setCommonRunSettings.sh, and pass\n# the number of runs as an argument. You must have gchp.run in your run directory.\n\n# One argument: number of runs\nnumRuns=${1}\nif [[ \"x${numRuns}\" == \"x\" ]]; then\n    echo \"ERROR: Specify number of runs as argument, e.g. ./gchp.submit_consecutive_jobs.sh 2\"\n    exit\nfi\n\n# Sanity check number of runs, start date, and duration per run\necho \"Submitting ${numRuns} jobs\"\necho \"Duration:  $(grep \"Run_Duration=\" setCommonRunSettings.sh | cut -c 14- | xargs)\"\necho \"Start:     $(cat cap_restart)\"\n\n# Submit first job   \nmsg=$(sbatch gchp.run)\necho $msg\nIFS=', ' IFS=', ' read -r -a msgarray <<< \"$msg\"\njobid=${msgarray[3]}\n\n# Submit additional jobs\nfor i in $(seq 1 $((numRuns-1))); \ndo\n  msg=$(sbatch --dependency=afterok:$jobid gchp.run)\n  echo $msg\n  IFS=', ' IFS=', ' read -r -a msgarray <<< \"$msg\"\n  jobid=${msgarray[3]}\ndone\n\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/icl_rcshpc/README",
    "content": "For use with the PBS Pro system at Imperial College London's campus-wide HPC.\n\nTo submit a job, type:\n\nqsub gchp.run\n\nInstructions are given to modify node/core/memory requirements in gchp.run.\n\nContact:\nSebastian Eastham at Imperial College London\ns.eastham@imperial.ac.uk\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/icl_rcshpc/gchp.env",
    "content": "module load tools/prod\nmodule load ESMF/8.4.2-foss-2022a\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/icl_rcshpc/gchp.run",
    "content": "#!/bin/bash\n#PBS -N GCHP\n#PBS -l select=1:ncpus=6:mem=48gb\n#PBS -l walltime=1:00:00\n#PBS -j oe\n\n# Run script is for use with PBS Pro\n# To modify your resource request, change the \"-l select...\" line to:\n# #PBS -l select=X:ncpus=Y:mem=Zgb\n# This requests X nodes, EACH of which has Y CPUs and Z GB of memory\n# Change the total run time request using the walltime line (H:MM:SS)\n\ncd $PBS_O_WORKDIR\n\n# Unlimit resources (to prevent OS killing GCHP due to resource usage)\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n\n# Exit if command fails\nset -e\n\n# Debug option to print all commands executed in this script\n#set -x\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\n# Run the code\nmpirun ./gchp >> $log\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\ntrap times EXIT\n\n\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/mit_hex/README",
    "content": "Contact:\nSebastian Eastham at MIT\nseastham@mit.edu"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/mit_hex/gchp.env_HEX",
    "content": "#!/bin/bash\n\n# Only ESMF needs to be built with the OpenMP flags now\nprofile_id_ESMF=ifort21_nc72_hybrid_ompi404\nprofile_id=ifort21_nc72_ompi404\n\n# Add cmake\nexport PATH=/home/seastham/opt/cmake_3.16.5/bin:$PATH\n\nIFORTVARS=/opt/intel/oneapi/setvars.sh\n. $IFORTVARS\n\n# Using Intel v21 compilers\nexport CC=icc\nexport CXX=icpc\nexport FC=ifort\nexport CPP=cpp\n\n# Don't use F77/F90 for now\nunset F77\nunset F90\nunset F9X\n\n# Using /home/seastham/opt as a safe place for new packages\nexport opt_dir=/home/seastham/opt\nexport install_dir=${opt_dir}/pkg_${profile_id}\nif [[ ! -d $install_dir ]]; then\n   mkdir $install_dir\nfi\n\nexport NETCDF_HOME=${install_dir}/netcdf\nexport NETCDF_FORTRAN_HOME=$NETCDF_HOME\nexport MPI_ROOT=${install_dir}/openmpi\n\n# UCX\nexport PATH=/home/seastham/opt/pkg_${profile_id}/ucx/bin:$PATH\nexport LD_LIBRARY_PATH=/home/seastham/opt/pkg_${profile_id}/ucx/lib:$LD_LIBRARY_PATH\n\n# MPI\nexport PATH=${MPI_ROOT}/bin:$PATH\nexport LD_LIBRARY_PATH=${MPI_ROOT}/lib:$LD_LIBRARY_PATH\n\n# NetCDF\nexport PATH=${NETCDF_HOME}/bin:$PATH\nexport LD_LIBRARY_PATH=${NETCDF_HOME}/lib:$LD_LIBRARY_PATH\n\n# Set compilers to MPI versions if available\nif [[ $# -ge 1 && \"$1\" == \"serial\" ]]; then\n   echo \"Forcing serial compilers\"\nelif [[ -e $MPI_ROOT/bin/mpicc ]]; then\n   echo \"Setting compilers to MPI versions\"\n   export CC=mpicc\n   export CXX=mpicxx\n   export FC=mpif90\nelse\n   echo \"MPI compilers not found. Reverting to serial\"\nfi\n\n# ESMF\nexport ESMF_DIR=/net/d14/data/seastham/ESMF_v800\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_${profile_id_ESMF}\nexport ESMF_ROOT=$ESMF_INSTALL_PREFIX\nexport ESMF_COMPILER=intel\nexport ESMF_COMM=openmpi\nexport ESMF_OPENMP=ON\n\nexport NETCDF_C_ROOT=$NETCDF_HOME\nexport NETCDF_Fortran_ROOT=$NETCDF_HOME\n\n# OpenMP setup\nulimit -s unlimited\nulimit -c 5000\nexport KMP_STACKSIZE=100000000\n\nif [[ -z $SLURM_CPUS_PER_TASK ]]; then\n   export OMP_NUM_THREADS=1\nelse\n   export OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\nfi\nexport KMP_NUM_THREADS=$OMP_NUM_THREADS\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/mit_hex/gchp.run_HEX",
    "content": "#!/bin/bash\n\n# Universal settings\n#SBATCH -t 1-0:00\n#SBATCH -p normal\n#SBATCH --mail-type=FAIL\n#SBATCH -c 1\n# Standard settings on high-memory nodes\n#SBATCH -n 30\n#SBATCH -N 2\n#SBATCH --mem=80G\n# Use the settings below to run C24 sims on the low-memory nodes\n#====#SBATCH -C lowmem\n#====#SBATCH -n 24\n#====#SBATCH -N 2\n#====#SBATCH --mem=22G\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Run GCHP and evenly distribute tasks across nodes\nNX=$( grep NX GCHP.rc | awk '{print $2}' )\nNY=$( grep NY GCHP.rc | awk '{print $2}' )\ncoreCount=$(( ${NX} * ${NY} ))\n\nmpirun ./gchp >> $log\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: cap_restart either did not change or is empty.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/mit_svante/README",
    "content": "Contact:\nSebastian Eastham at MIT\nseastham@mit.edu"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/mit_svante/gchp.env_SVANTE",
    "content": "#!/bin/bash\n\n# Source global definitions\nif [ -f /etc/bashrc ]; then\n\t. /etc/bashrc\nfi\n\nmodule use /home/software/rhel/8/modulefiles\n\ninstall_ident=gcc850_omp4_ucx\ninstall_ident_ESMF=gcc850_omp4_ucx_hybrid\n\nmodule add gcc/8.5.0\nmodule add openmpi/4.1.4_testing\nmodule add netcdf/4_testing hdf5/1.12.2_testing\n\n\nexport FC=gfortran\nexport F77=$FC\nexport F90=$FC\nexport F9X=$FC\nexport CC=gcc\nexport CXX=g++\nexport CPP=cpp\n\nexport OMPI_CC=$CC\nexport OMPI_CXX=$CXX\n\n# Add OpenMPI\nexport MPI_ROOT=$( dirname $( dirname $( which mpirun ) ) )\n\nexport NETCDF_HOME=$( dirname $( dirname $( which nc-config ) ) )\nexport NETCDF_FORTRAN_HOME=/home/seastham/local_${install_ident}\nexport PATH=$NETCDF_FORTRAN_HOME/bin:${PATH}\n\nif [[ ! -e $MPI_ROOT/bin/mpicc ]]; then\n    echo \"mpicc not found; reverting to serial compilers\"\nelse\n    export FC=mpif90\n    export CC=mpicc\n    export CXX=mpicxx\n    export F77=$FC\n    export F90=$FC\n    export F9X=$FC\nfi\n\nexport ESMF_COMM=openmpi\nexport ESMF_COMPILER=gfortran\nexport ESMF_DIR=/home/seastham/ESMF/ESMF_v800\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_${install_ident_ESMF}\nexport ESMF_ROOT=${ESMF_INSTALL_PREFIX}\nexport ESMF_OPENMP=ON\nexport ESMF_NETCDF=nc-config\n\nulimit -l unlimited\nulimit -s unlimited\nulimit -c 0\nexport KMP_STACKSIZE=100000000\nif [[ -z $SLURM_CPUS_PER_TASK ]]; then\n    export OMP_NUM_THREADS=1\nelse\n    export OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK\nfi\n\nunset PROMPT_COMMAND\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/mit_svante/gchp.run_SVANTE.sh",
    "content": "#!/bin/bash\n\n#SBATCH --ntasks-per-node=48\n#SBATCH -N 6\n#SBATCH -c 1\n#SBATCH -t 1-12:00\n#SBATCH -p hdr\n#SBATCH --mem=100G\n#SBATCH --mail-type=FAIL\n#SBATCH -J GCHP\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Run GCHP and evenly distribute tasks across nodes\nNX=$( grep NX GCHP.rc | awk '{print $2}' )\nNY=$( grep NY GCHP.rc | awk '{print $2}' )\ncoreCount=$(( ${NX} * ${NY} ))\ntime mpirun -n ${coreCount} ./gchp >> ${log}\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: cap_restart either did not change or is empty.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/msu_orion/README",
    "content": "Contact:\nLizzie Lundgren\nGEOS-Chem Support Team at Harvard University\ngeos-chem-support@g.harvard.edu"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/msu_orion/gchp.carbon.build",
    "content": "#!/bin/bash\n\n# For MSU Orion cluster\n#SBATCH --time 01:00:00\n#SBATCH --nodes=1 --ntasks-per-node=24\n#SBATCH --mem=5G\n#SBATCH --job-name=gchp.build\n\nsource gchp.env\ncd build\ncmake ../CodeDir -DRUNDIR=.. -DMECH=carbon\nmake -j\nmake install\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/msu_orion/gchp.intel-2024.1.0.env",
    "content": "\n# Environment file to load before building and running GCHP on the MSU Orion cluster\n# - Lizzie Lundgren, GEOS-Chem Support Team, 29Jan2025\n\nmodule purge\n\n# This set of libraries avoids a run-time error in MAPL\n# https://github.com/GEOS-ESM/MAPL/issues/1933\nmodule load intel-oneapi-compilers/2024.1.0\nmodule load intel-oneapi-mpi/2021.12.0\nmodule load hdf5/1.12.2 # or 1.14.3\nmodule load netcdf-c/4.9.0\nmodule load netcdf-fortran/4.6.0\n\n# Other library combinations available on Orion\n# These combinations run into the run-time error referenced above\n\n#module load intel-oneapi-compilers/2022.0.2\n#module load intel-oneapi-mpi/2021.5.1\n#module load hdf5/1.14.1-2\n#module load netcdf-c/4.7.4\n#module load netcdf-fortran/4.5.3\n\n#module load intel-oneapi-compilers/2023.1.0\n#module load intel-oneapi-mpi/2021.9.0\n#module load hdf5/1.14.1-2\n#module load netcdf-c/4.9.2\n#module load netcdf-fortran/4.6.0\n\n#module load intel-oneapi-compilers/2023.2.4\n#module load intel-oneapi-mpi/2021.13.0\n#module load hdf5/1.14.3\n#module load netcdf-c/4.9.2\n#module load netcdf-fortran/4.6.1\n\nexport CC=icx\nexport CXX=icx\nexport FC=ifort\nexport F77=${FC}\nif [[ \"x${NETCDF_HOME}\" == \"x\" ]]; then\n   export NETCDF_HOME=\"${NETCDF_C_HOME}\"\nfi\nexport NETCDF_C_ROOT=\"${NETCDF_HOME}\"\nexport NETCDF_FORTRAN_ROOT=\"${NETCDF_FORTRAN_HOME}\"\n\nexport MPI_ROOT=${MPI_HOME}\nexport ESMF_COMPILER=intel\nexport ESMF_COMM=intelmpi\nexport ESMF_DIR=/work/noaa/co2/ewlundgr/ESMF/ESMF\n# The ESMF install is for a different intel version but works for now\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_intel2022_intelmpi2021.9.0\nexport ESMF_ROOT=${ESMF_INSTALL_PREFIX}\n\nulimit -c unlimited   # coredumpsize\nulimit -u 50000       # maxproc\nulimit -v unlimited   # vmemoryuse\nulimit -s unlimited   # stacksize\n\n# Other potentially useful modules for analyses and code development\n# Library versions may need to be changed based on libraries already loaded\n#module load intel-oneapi-mkl/2022.2.1\n#module load hdf4/4.2.16\n#module load r/4.2.2\n#module load nco/5.0.1\n#module load udunits/2.2.28\n#module load zlib/1.2.13\n#module load nco/5.0.1\n#module load libszip/2.1.1\n#module load ffmpeg/4.4.1\n#module load ncl/6.6.2\n#module load gdal/3.5.3\n#module load gmt/6.2.0\n#module load ghostscript/9.56.1\n#module load imagemagick/7.0.8-7\n#module load contrib noaatools\n#module load python/3.10.8\n#module load ncview\n#module load contrib noaatools\n#ml contrib noaatools/1.0\n#module load git/2.28.0\n#module load gsl/2.6\n\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/msu_orion/gchp.run",
    "content": "#!/bin/bash\n\n#SBATCH -n 48\n#SBATCH -N 2\n#SBATCH -c 1\n#SBATCH -t 0-8:00\n#SBATCH --qos=batch\n#SBATCH --mem=90G\n\n###############################################################################\n### Sample GCHP run script for MSU Orion cluster (using SLURM).\n###\n### -n           : Requests this many cores (across all nodes)\n### -N           : Requests this number of nodes\n### -c 1         : Forces 1 task per CPU (needed after 2024/03/05 SLURM update)\n### --mem        : Requests this amount of memory in GB\n### -p           : Requests these partitions where the job can run\n### -t           : Requests time for the job (days-hours:minutes)\n###  --exclusive : Reserves entire nodes (i.e. to prevent backfilling jobs)\n###############################################################################\n\n# Exit if command fails\nset -e\n\n# Debug option to print all commands executed in this script\n#set -x\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Cannon-specific setting to get around connection issues at high # cores\nexport OMPI_MCL_btl=openib\n\n# Run GCHP and evenly distribute tasks across nodes\nNX=$( grep NX GCHP.rc | awk '{print $2}' )\nNY=$( grep NY GCHP.rc | awk '{print $2}' )\ncoreCount=$(( ${NX} * ${NY} ))\nplaneCount=$(( ${coreCount} / ${SLURM_NNODES} ))\nif [[ $(( ${coreCount} % ${SLURM_NNODES} )) > 0 ]]; then\n    planeCount=$(( ${planeCount} + 1 ))\nfi\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\ntime srun -n ${coreCount} -N ${SLURM_NNODES} -m plane=${planeCount} ./gchp >> ${log}\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_discover/README",
    "content": "Contact:\nLizzie Lundgren\nGEOS-Chem Support Team at Harvard University\ngeos-chem-support@g.harvard.edu"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.build",
    "content": "#!/bin/bash\n\n# For discover\n#SBATCH --time 01:00:00\n#SBATCH --nodes=1 --ntasks-per-node=24\n#SBATCH --mem=5G\n#SBATCH --job-name=gchp.build\n#SBATCH --constraint=mil\n##SBATCH --account=s____\n##SBATCH --qos=debug\n##SBATCH --qos=chmdev\n\nsource gchp.env\ncd build\ncmake ../CodeDir -DRUNDIR=..\nmake -j\nmake install\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.run",
    "content": "#!/bin/bash\n\n# For NASA discover cluster. Edit before run.\n#SBATCH --time 00:30:00\n#SBATCH --nodes=1 --ntasks-per-node=24\n#SBATCH --mem=60G\n#SBATCH --job-name=gchp.run\n#SBATCH --constraint=mil\n#SBATCH --account=s____\n##SBATCH --exclusive\n##SBATCH --qos=debug\n##SBATCH --qos=chmdev\n\n# If a subsequent command fails, treat it as fatal (don't continue)\nset -e\n\n# For remainder of script, echo commands to the job's log file\n#set -x\n\n# Unlimit resources to prevent OS killing GCHP due to resource usage/\n# Alternatively you can put this in your environment file.\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n\nsource gchp.env\n\n# Print loaded modules\nmodule list     \n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\n\n# Update config files, set restart symlink, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Run GCHP and evenly distribute tasks across nodes                                                                               NX=$( grep NX GCHP.rc | awk '{print $2}' )\nNY=$( grep NY GCHP.rc | awk '{print $2}' )\ncoreCount=$(( ${NX} * ${NY} ))\nplaneCount=$(( ${coreCount} / ${SLURM_NNODES} ))\nif [[ $(( ${coreCount} % ${SLURM_NNODES} )) > 0 ]]; then\n        ${planeCount}=$(( ${planeCount} + 1 ))\nfi\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\nmpirun -np ${coreCount} ./gchp >> ${log}\n\n# If new start time in cap_restart is okay, rename restart file\n# and update restart symlink\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_discover/geoschem.SLES15.stack-gcc-12.3.0.env",
    "content": "#!/bin/bash\n\n# Use this environment with GC-Classic, GCHP, and ESMF on SLES15, e.g. milan ('ssh discover-mil')\n# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17 \n\nmodule purge\n\nmodule use /discover/swdev/gmao_SIteam/modulefiles-SLES15\nmodule use /discover/swdev/jcsda/spack-stack/scu17/modulefiles\nmodule load ecflow/5.11.4\n\nmodule use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-gcc-12.3.0/install/modulefiles/Core\nmodule load stack-gcc/12.3.0\nmodule load stack-openmpi/4.1.6\n\nmodule load stack-python/3.10.13\nmodule load cmake/3.28.2\nmodule load git/2.42.0\nmodule load netcdf-fortran/4.6.1\n\numask 022\n\nexport CC=gcc\nexport CXX=g++\nexport FC=gfortran\n\n# MPI\nexport MPI_ROOT=${MPI_HOME}\n\n# For ESMF\nexport ESMF_COMPILER=gfortran\nexport ESMF_COMM=openmpi  \nexport ESMF_DIR=/gpfsm/dnb06/projects/p113/ewlundgr/GCHP/ESMF\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_SLES15_stack-gcc-12.3.0\n\n# For GCHP\nexport ESMF_ROOT=${ESMF_INSTALL_PREFIX}\n\nulimit -l unlimited\nulimit -u 50000\nulimit -v unlimited\nulimit -s unlimited\nOMP_STACKSIZE=500m\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_discover/geoschem.SLES15.stack-intel-2021.10.0.env",
    "content": "#!/bin/bash\n\n# Use this environment with GC-Classic, GCHP, and ESMF on SLES15, e.g. milan ('ssh discover-mil')\n# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17\n\nmodule purge\n\nmodule use /discover/swdev/gmao_SIteam/modulefiles-SLES15\nmodule use /discover/swdev/jcsda/spack-stack/scu17/modulefiles\nmodule load ecflow/5.11.4\n\nmodule use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-intel-2021.10.0/install/modulefiles/Core\nmodule load stack-intel/2021.10.0\nmodule load stack-intel-oneapi-mpi/2021.10.0\n\nmodule load stack-python/3.10.13\nmodule load cmake/3.28.2\nmodule load git/2.42.0\nmodule load netcdf-fortran/4.6.1\n\numask 022\n\nexport CC=icc\nexport CXX=icpc\nexport FC=ifort\n\n# MPI\nexport MPI_ROOT=${MPI_HOME}\n\n# For ESMF\nexport ESMF_COMPILER=intel\nexport ESMF_COMM=intelmpi\nexport ESMF_DIR=/gpfsm/dnb06/projects/p113/ewlundgr/GCHP/ESMF\nexport ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_SLES15_stack-intel-2021.10.0\n\n# For GCHP\nexport ESMF_ROOT=${ESMF_INSTALL_PREFIX}\n\nulimit -l unlimited\nulimit -u 50000\nulimit -v unlimited\nulimit -s unlimited\nOMP_STACKSIZE=500m\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_pleiades/README",
    "content": "Contact:\nGEOS-Chem Support Team at Washington University in St. Louis\ngeos-chem-support@g.harvard.edu\n\nSteps to load environment:\nmodule --force purge\nmodule use -a /nobackup/gmao_SIteam/modulefiles\nmodule use -a /path/to/your/module/files/directory # should contain gchp.pleiades.env\nmodule load gchp.pleiades.env\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_pleiades/gchp.pleiades.env",
    "content": "#%Module\n \nproc ModulesHelp { } {\n   puts stderr  \"GEOS-Chem High Performance (GCHP) build and runtime environment.\"\n}\n \nmodule-whatis   \"GCHP build and runtime dependencies\"\n \nmodule load git/2.30.2\nmodule load cmake/3.23.1-TOSS4\nmodule load other/manage_externals\nmodule load other/mepo\nmodule load other/gh\nmodule load ImageMagick/7.0.8-53\n\nmodule load comp-gcc/11.2.0-TOSS4\nmodule load comp-intel/2020.4.304\nmodule load mpi-hpe/mpt\nmodule load hdf4/4.2.12\nmodule load hdf5/1.8.18_mpt\nmodule load netcdf/4.4.1.1_mpt\n \nsetenv  COMPILER                intel\nsetenv  CC                      icc\nsetenv  CXX                     icpc\nsetenv  FC                      ifort\nsetenv  F90                     ifort\nsetenv  F77                     ifort\nsetenv  CMAKE_PREFIX_PATH       /nobackup/dzhang8/software/esmf-8.3.1/install\n \nset     version         2023.04-intel"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nasa_pleiades/gchp.pleiades.run",
    "content": "#!/bin/bash\n#PBS -S /bin/bash\n#PBS -N SGIdebugGCHP\n#PBS -l select=2:ncpus=24:mpiprocs=48:model=bro\n#PBS -l walltime=00:30:00\n#PBS -j oe\n#PBS -W group_list=[YOUR_ACCOUNT]\n#PBS -m e\n#PBS -M your.name@email.com\n\n# to run on more nodes / processes, use \n# #PBS -l select=NNODEES:ncpus=NCPUS_PER_NODE:mpirocs=(NNODES * NCPUS_PER_NODE):model=bro\n# for example, to run on 48 cores total over 2 nodes\n# #PBS -l select=2:ncpus=24:mpiprocs=48:model=bro\n\n# By default, PBS executes your job from your home directory.\n# However, you can use the environment variable\n# PBS_O_WORKDIR to change to the directory where\n# you submitted your job.\n\ncd $PBS_O_WORKDIR\n\n# Exit if command fails, and log all commands\nset -e\n\n# Debug option to print all commands in this script\n#set -x\n\n# Export and unset certain environment variables\nexport MPI_LAUNCH_TIMEOUT=40\nexport PATH=$PATH:/u/scicon/tools/bin\nexport FOR_IGNORE_EXCEPTIONS=false\nexport MPI_COLL_REPRODUCIBLE\nunset MPI_MEMMAP_OFF\nunset MPI_NUM_MEMORY_REGIONS\nexport MPI_XPMEM_ENABLED=yes\nunset SUPPRESS_XPMEM_TRIM_THRESH\nunset PMI_RANK\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Use SLURM to distribute tasks across nodes\nNX=$( grep NX GCHP.rc | awk '{print $2}' )\nNY=$( grep NY GCHP.rc | awk '{print $2}' )\ncoreCount=$(( ${NX} * ${NY} ))\n\n# Echo info from computational cores to log file for displaying results\necho \"# of CPUs : ${coreCount}\" >> ${log}\n#echo \"# of nodes: ${SLURM_NNODES}\" >> ${log}\necho \"-m plane  : ${planeCount}\" >> ${log}\n\n# Echo start date\necho ' ' >> ${log}\necho '===> Run started at' `date` >> ${log}\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\nmpiexec -n $coreCount ./gchp >> $log 2>&1 &\ntail --pid=$! -f $log\n#mpiexec dplace -s1 -c 4-11 ./grinder < run_input > output\nrc=$?\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n    echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n    rm -f Restarts/gcchem_internal_checkpoint\n    exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\n# Echo end date\necho '===> Run ended at' `date` >> ${log}\necho \"Exit code: $rc\"\n\n# -end of script-\nexit $rc\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nci_gadi/README",
    "content": "This directory contains a sample GCHP run script and environment file for running on\nAustralia's National Computational Infrastructure (NCI) Gadi cluster. See also\nhttps://nci.org.au/.\n\nContact:\nJenny Fisher at University of Wollongong\njennyf@uow.edu.au"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nci_gadi/gchp.pbs.run",
    "content": "#!/bin/bash\n#PBS -P m19\n#PBS -q normal\n#PBS -N GCHP\n#PBS -l wd\n#PBS -l storage=gdata/m19\n#PBS -l ncpus=384\n#PBS -l mem=1500GB\n#PBS -l walltime=4:00:00\n#PBS -j oe\n\n# Unlimit resources (to prevent OS killing GCHP due to resource usage)\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n\n# Exit if command fails, and log all commands\nset -e\n\n# Debug option to print all commands executed in this script\n#set -x\n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\necho \"Writing output to ${log}\"\n\n# Update config files, set restart symlink, load run env, and do sanity checks\nsource setCommonRunSettings.sh > ${log}\nsource setRestartLink.sh >> ${log}\nsource gchp.env >> ${log}\nsource checkRunSettings.sh >> ${log}\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\n# Run the code\nmpirun ./gchp >> $log\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# Rename restart file and update restart symlink if new start time ok\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse\n    N=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )    \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n\ntrap times EXIT\n\n\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/nci_gadi/gchp_env_nci",
    "content": "module load intel-compiler/2020.3.304\nmodule load intel-mkl/2020.3.304\nmodule load netcdf/4.7.4\nmodule load esmf/8.0.1\nmodule load cmake/3.18.2\nmodule load hdf5/1.10.5\nmodule load openmpi/4.0.3\n\necho \"cmake command flags:\"\necho \"  -DCMAKE_PREFIX_PATH=\\\"/apps/netcdf/4.7.4/lib/Intel/;/apps/netcdf/4.7.4/include/Intel/;/apps/openmpi/4.0.3/lib/Intel/;/apps/openmpi/4.0.3/include/Intel/\\\" -DRUNDIR=/scratch/m19/jaf574/GCHP.v13/runs.GCHP/run.gchp.v13.0.0-rc.merra2.standard -DOMP=OFF -DCMAKE_EXE_LINKER_FLAGS=\\\"-lmpi_cxx -lmkl_core -lmkl_intel_lp64 -lmkl_intel_thread -liomp5\\\"\"\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute1/README",
    "content": "Contact:\nGEOS-Chem Support Team at Washington University in St. Louis\ngeos-chem-support@g.harvard.edu\n\nYuanjian Zhang at WashU\nyuanjianz @ GitHub\nyuanjian.z@wustl.edu"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute1/c360_requeuing.sh",
    "content": "#!/bin/bash\n#BSUB -q rvmartin\n#BSUB -n 720\n#BSUB -W 36:00\n#BSUB -Q 163\n#BSUB -R \"rusage[mem=300GB] span[ptile=36] select[mem < 2TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/base-engineering)'\n#BSUB -J \"C360\"\n#BSUB -g /liam.bindle/C360\n#BSUB -N\n#BSUB -u liam.bindle@wustl.edu\n#BSUB -o lsf-%J.txt\n\n# This job auto-suspends every ~24 hours. This is to prevent blocking other jobs that are\n# queued in 'rvmartin'. It relies on two files that act as semaphores:\n#     CONTINUE_SEM: if exists, continue the simulation from the latest restart file\n#     REQUEUE_SEM: if exists, requeue the job after it finishes\n# GCHP output is logged to a file with the name <SSD>_<RTS>.log, where <SSD> is the date\n# that the simulation segment is starting from, and <RTS> is the real-word start time of\n# the job. \n\n# Source /etc/bashrc\n. /etc/bashrc\n\n# Custom functions\nfunction last_checkpoint() {\n    ls -1 gcchem_internal_checkpoint*.nc4 | tail -n 1\n}\nfunction last_checkpoint_date() {\n    last_checkpoint | sed 's/gcchem_internal_checkpoint.\\(20[12][0-9][0-9][0-9][0123][0-9]\\).*/\\1/'\n}\n\n# Set up runtime environment\n#set -x                          # Print executed commands (optional debugging)\nulimit -c 0                      # coredumpsize\nulimit -l unlimited              # memorylocked\nulimit -u 50000                  # maxproc\nulimit -v unlimited              # vmemoryuse\nulimit -s unlimited              # stacksize\n\nexport TMPDIR=\"$__LSF_JOB_TMPDIR__\"\nexport OMP_NUM_THREADS=1\nexport I_MPI_ADJUST_GATHERV=3    # IMPORTANT\nexport I_MPI_ADJUST_ALLREDUCE=12\nexport I_MPI_DAPL_UD=enable\nexport I_MPI_SHM_HEAP_VSIZE=512  # Might fix: Assertion failed in file ../../src/mpid/ch4/src/intel/ch4_shm_coll.c at line 2147: comm->shm_numa_layout[my_numa_node].base_addr\n\nRESTART_DATE=SIM_START\nif [ ! -f CONTINUE_SEM ] ; then  # start simulation from time=0\n    rm -f cap_restart #gcchem* \n    ./setCommonRunSettings.sh\n    touch CONTINUE_SEM\nelse                             # start simulation from the last checkpoint's date\n    RESTART_FILE=$(last_checkpoint)\n    RESTART_DATE=$(last_checkpoint_date)\n    echo \"$RESTART_DATE 000000\" > cap_restart\n    sed -i \"s/GCHPchem_INTERNAL_RESTART_FILE: .*/GCHPchem_INTERNAL_RESTART_FILE: $RESTART_FILE/g\" GCHP.rc\nfi\n\nrm -f gcchem_internal_checkpoint\nmpirun -np 720 ./gchp &> ${RESTART_DATE}-$(date +\"%Y%m%d_%H%M\").log\n\nif [ -f REQUEUE_SEM ] ; then\n    exit 163   # exit code 163 requeues the job (according to #BSUB -Q 163)\nfi\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute1/execute.sh",
    "content": "#!/bin/bash\n\nulimit -s unlimited\n\n./gchp"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute1/gchp.batch_job.sh",
    "content": "#!/bin/bash\n\n#BSUB -G compute-rvmartin\n#BSUB -q rvmartin\n#BSUB -n 24\n#BSUB -W 168:00\n#BSUB -R \"rusage[mem=300GB] span[ptile=36] select[mem < 2TB]\"\n#BSUB -a 'docker(1dandan/gchp-esmf8.3:latest)'\n#BSUB -o lsf-%J.txt\n#\n#\n# source bashrc\n/bin/bash\n\n      . /etc/bashrc\n#\n\n#################################################################\n#\n# ADDITIONAL PRE-RUN CONFIGURATION\n#\n# If a subsequent command fails, treat it as fatal (don't continue)\nset -e\n\n# For remainder of script, echo commands to the job's log file\nset -x\n\n# Unlimit resources to prevent OS killing GCHP due to resource usage/\n# Alternatively you can put this in your environment file.\n# This is not working on LSF system because ulimit settings are not passed to mpi-launched tasks.\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n\n#################################################################\n#\n# PRE-RUN COMMANDS\n#\n# Print loaded modules\n#module list     \n\n# Define log name to include simulation start date\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\n\n# Update config files, set restart symlink, and do sanity checks\nsource setCommonRunSettings.sh\nsource setRestartLink.sh\nsource checkRunSettings.sh\n\n# Turn off exit if command fails to allow script to finish if GCHP exits early\nset +e\n\n#################################################################\n#\n# LAUNCH GCHP \n#\n#\n   mpiexec -n 24 ./execute.sh &> ${log}\n   \n   # For OpenMPI, enable oversubscription to allow more ranks to be assigned to a host than the number of slots that are available\n   # mpiexec --oversubscribe -n 24 ./gchp &> ${log}\n#\n\n#################################################################\n#\n# POST-RUN COMMANDS\n#\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nN=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )   \nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# If new start time in cap_restart is okay, rename restart file\n# and update restart symlink\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n   echo \"ERROR: cap_restart either did not change or is empty.\"\n   rm -f Restarts/gcchem_internal_checkpoint\n   exit 1\nelse \n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute2/README",
    "content": "Note:\nThis environment was built with the base GCC 11.3.1 on compute2 instead of the GCC 13 loaded with module. Please make sure you unload the GCC 13 module before using.\n\nContact:\nYuanjian Zhang at WashU\nyuanjianz @ GitHub\nyuanjian.z@wustl.edu\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute2/gchp.run",
    "content": "#!/bin/bash\n\n#SBATCH -N <nodes>\n#SBATCH -c 1\n#SBATCH --ntasks-per-node 64\n#SBATCH -t 05-00:00\n#SBATCH -p general-cpu\n#SBATCH -q general-cpu-qos\n#SBATCH --exclusive\n\nsource gchp_202505_hpcx_openmpi4_serial_IO.env\n\nmodule list\nset -e\nset -x\n\nexport HDF5_USE_FILE_LOCKING=FALSE # Compute2 storage is NFS\nexport UCX_TLS=^shm # Exclude shared memory in intra-node communication to avoid hanging during history/restart\n\nstart_str=$(sed 's/ /_/g' cap_restart)\nlog=gchp.${start_str:0:13}z.log\n\n# Update config files, set restart symlink, and do sanity checks\nsource setCommonRunSettings.sh\nsource setRestartLink.sh\nsource checkRunSettings.sh\ntouch allPEs.log\ntouch warnings_and_errors.log\n\nmpirun -n $SLURM_NTASKS --map-by ppr:16:numa --bind-to core ./gchp &> ${log} # specify core binding with mpirun instead srun\n\n# Rename mid-run checkpoint files, if any. Discard file if time corresponds\n# to run start time since duplicate with initial restart file.\nchkpnts=$(ls Restarts)\nN=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )\nfor chkpnt in ${chkpnts}\ndo\n    if [[ \"$chkpnt\" == *\"gcchem_internal_checkpoint.\"* ]]; then\n       chkpnt_time=${chkpnt:27:13}\n       if [[ \"${chkpnt_time}\" = \"${start_str:0:13}\" ]]; then\n          rm ./Restarts/${chkpnt}\n       else\n          new_chkpnt=./Restarts/GEOSChem.Restart.${chkpnt_time}z.c${N}.nc4\n          mv ./Restarts/${chkpnt} ${new_chkpnt}\n       fi\n    fi\ndone\n\n# # If new start time in cap_restart is okay, rename restart file\n# # and update restart symlink\nnew_start_str=$(sed 's/ /_/g' cap_restart)\nif [[ \"${new_start_str}\" = \"${start_str}\" || \"${new_start_str}\" = \"\" ]]; then\n    echo \"ERROR: GCHP failed to run to completion. Check the log file for more information.\"\n    rm -f Restarts/gcchem_internal_checkpoint\n    exit 1\nelse\n    mv Restarts/gcchem_internal_checkpoint Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n    source setRestartLink.sh\nfi\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/wustl_compute2/gchp_202505_hpcx_openmpi4_serial_IO.env",
    "content": "#!/bin/bash\n\nsource ~/.bashrc\nmodule purge\nmodule use -a /rdcw/fs2/rvmartin2/Active/yuanjian.z/shared/modulefiles\nmodule use -a /cm/shared/apps/mellanox/hpcx-v2.18.1-gcc-mlnx_ofed-redhat9-cuda12-x86_64/modulefiles\n\nmodule load slurm spack\nsource $SPACK_ROOT/share/spack/setup-env.sh\nspack env activate gchp_env_hpcx_serial\nmodule load hpcx\n\nulimit -c 0                  # coredumpsize\nulimit -l unlimited          # memorylocked\nulimit -u 50000              # maxproc\nulimit -v unlimited          # vmemoryuse\nulimit -s unlimited          # stacksize\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/york_viking/README",
    "content": "Contact:\nKillian Murphy at The University of York\nkillian.murphy@york.ac.uk\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/york_viking/gchp.intel.2021b.viking.env",
    "content": "#!/usr/bin/env bash\n\n#===============================================================================\n# Load modules\n#===============================================================================\nmodule purge\nmodule load toolchain/intel/2021b\nmodule load devel/CMake/3.22.1-GCCcore-11.2.0\nmodule load tools/git/2.33.1-GCCcore-11.2.0-nodocs\nmodule load data/netCDF/4.8.1-iimpi-2021b\nmodule load data/netCDF-Fortran/4.5.3-iimpi-2021b\nmodule load data/netCDF-C++4/4.3.1-iimpi-2021b\n\n#===============================================================================\n# Set environment variables\n#===============================================================================\nexport CC=\"icc\"\nexport CXX=\"icpc\"\nexport FC=\"ifort\"\nexport ESMF_ROOT=\"/mnt/lustre/groups/chem-acm-2018/libraries/ESMF/8.3.1-intel-2021b-nolapack\"\n"
  },
  {
    "path": "run/GCHP/runScriptSamples/operational_examples/york_viking/gchp.intel.sbatch",
    "content": "#!/usr/bin/env bash\n#===============================================================================\n#SBATCH --job-name=GCHP_JOB_NAME\n#SBATCH --mail-user=USER@york.ac.uk\n#SBATCH --mail-type=ALL\n#SBATCH --account=YOUR-VIKING-ACCOUNT-CODE\n#SBATCH --output=%x_%j.log\n#-------------------------------------------------------------------------------\n#SBATCH --partition=nodes\n#SBATCH --nodes=3\n#SBATCH --exclusive\n#SBATCH --ntasks-per-node=40\n#SBATCH --ntasks-per-core=1\n#SBATCH --cpus-per-task=1\n#SBATCH --mem=0\n#SBATCH --time=01:00:00\n#===============================================================================\nset -e\n\n# SET UP CLEAN MODULES:\nsource gchp.env\n\n# MPI PERFORMANCE TWEAKS:\nexport I_MPI_ADJUST_GATHERV=\"3\"\nexport I_MPI_ADJUST_ALLREDUCE=\"12\"\n\n# CHANGE USER LIMITS:\nulimit -s unlimited\n\n# RUN GCHP:\nmpiexec -n \"${SLURM_NTASKS}\" ./gchp\n"
  },
  {
    "path": "run/GCHP/setCommonRunSettings.sh.template",
    "content": "#!/bin/bash\n\n# setCommonRunSettings.sh: Set run-time settings for GCHP and update all config\n# files to use these settings. Pass optional argument --verbose to print\n# all settings configured when using this script.\n\n# Usage: ./setCommonRunSettings.sh [--verbose]\n\n#------------------------------------------------\n#   COMPUTE RESOURCES\n#------------------------------------------------\n# Total cores must be divisible by 6\n\nTOTAL_CORES=${RUNDIR_NUM_CORES}\nNUM_NODES=${RUNDIR_NUM_NODES}\nNUM_CORES_PER_NODE=${RUNDIR_CORES_PER_NODE}\n\n#------------------------------------------------\n#   GRID RESOLUTION\n#------------------------------------------------\n# Even integer representing number of grid cells per cubed-sphere face side\n#\n# NOTE: If using mass flux inputs then grid resolution must be evenly divisible\n# by input mass flux resolution, or vice versa. Acceptable resolutions for GEOS-IT\n# when using mass fluxes are therefore in set [10,30,90,180,360,540,720,etc]\n\nCS_RES=${RUNDIR_CS_RES}\n\n#------------------------------------------------\n#   STRETCHED GRID\n#------------------------------------------------\n# Turn stretched grid ON/OFF. Follow these rules if ON:\n#    (1) Minimum STRETCH_FACTOR value is 1.0001\n#    (2) TARGET_LAT and TARGET_LON are floats containing decimal\n#    (3) TARGET_LON in range [0,360) or [-180,180)\n#    (4) STRETCH_FACTOR, TARGET_LAT, and TARGET_LON exactly match\n#        the global attribute values of these parameters in the\n#        initial restart file\n#\n# NOTE: Running with stretched grid requires using winds in advection.\n#       Create a new run directory to use winds if this one uses mass fluxes.\n\nSTRETCH_GRID=OFF\nSTRETCH_FACTOR=2.0\nTARGET_LAT=-45.0\nTARGET_LON=170.0\n\n#------------------------------------------------\n#    SIMULATION DURATION\n#------------------------------------------------\n# Format is \"YYYYMMDD HHmmSS\". Example: \"0000100 000000\" for 1 month\n\nRun_Duration=\"${RUNDIR_SIM_DUR_YYYYMMDD} ${RUNDIR_SIM_DUR_HHmmSS}\"\n\n#------------------------------------------------------------\n#    GEOS-CHEM COMPONENTS\n#------------------------------------------------------------\n# Sets values in geoschem_config.yml\n\nDo_Chemistry=true\nDo_Advection=true\nDo_Cloud_Conv=true\nDo_PBL_Mixing=true\nDo_Non_Local_Mixing=${RUNDIR_USE_NLPBL}\nDo_DryDep=true\nDo_WetDep=true\n\n#---------------------------------------------------------------------\n#    DIAGNOSTICS\n#---------------------------------------------------------------------\n# Auto-update settings in HISTORY.rc for specific collections (enable with ON)\n# NOTE: you must add new collections to the list below to auto-update them.\n\nAutoUpdate_Diagnostics=OFF\n\n# Instructions to auto-update diagnostics\n#   1. Set AutoUpdate_Diagnostics=ON:\n#   2. Set Diag_Monthly to compute monthly time-averaged values (0=OFF, 1=ON)\n#   3. If Diag_Monthly=OFF:\n#        3a. Set Diag_Frequency for diagnostic frequency, format \"HHmmSS\"\n#        3b. Set Diag_Duration for file write frequency, format \"HHmmSS\"\n#        *Note that number of hours may exceed 2 digits, e.g. 744 for 744 hrs\n#   4. Edit Diag_Collections list to specify which collections to update\n\nDiag_Monthly=\"${RUNDIR_HIST_MONTHLY_DIAG}\"\nDiag_Frequency=\"${RUNDIR_HIST_TIME_AVG_FREQ}\"\nDiag_Duration=\"${RUNDIR_HIST_TIME_AVG_DUR}\"\nDiag_Collections=(SpeciesConc    \\\n                  AerosolMass    \\\n                  Aerosols       \\\n                  Budget         \\\n                  Carbon         \\\n                  CloudConvFlux  \\\n                  ConcAfterChem  \\\n                  DryDep         \\\n                  DefaultCollection \\\n                  Emissions      \\\n                  FV3Dynamics    \\\n                  GCHPctmEnvLevCenter \\\n                  GCHPctmEnvLevEdge \\\n                  JValues        \\\n                  KppDiags       \\\n                  KppARDiags     \\\n                  Metrics        \\\n                  ProdLoss       \\\n                  RadioNuclide   \\\n                  RRTMG \t \\\n                  StateChm\t \\\n                  StateMet       \\\n                  StateMetLevEdge \\\n                  StratBM        \\\n                  Tomas          \\\n                  Transport\t \\\n                  UVFlux         \\\n                  WetLossConv    \\\n                  WetLossLS      \\\n)\n\n#------------------------------------------------------------\n#    MID-RUN CHECKPOINT FILES\n#------------------------------------------------------------\n# Instructions for configuring restart output before end of run:\n#  1. Set Midrun_Checkpoint=ON\n#  2. Set Checkpoint_Freq to either monthly or a string of format HHmmss\n#     where HHmmss is frequency hours, minutes, and seconds.\n#     More than 2 digits for hours is permitted, e.g. \"1680000\" for 7 days.\n#  NOTE: Frequency of output will be measured from start date set in cap_restart.\n\nMidrun_Checkpoint=OFF\nCheckpoint_Freq=monthly\n\n#------------------------------------------------\n#   REQUIRE ALL SPECIES IN INITIAL RESTART FILE\n#------------------------------------------------\n# Set to 1 to require all species in restart; set to 0 to enable missing species.\n\nRequire_Species_in_Restart=${RUNDIR_INITIAL_RESTART_SPECIES_REQUIRED}\n\n###################################################################\n#    INFREQUENTLY CHANGED SETTINGS\n###################################################################\n\n#------------------------------------------------\n#   DOMAIN DECOMPOSITION\n#------------------------------------------------\n# Enable auto-update of NX and NY based on core count by setting to ON. This\n# will make NX by NY/6 as square as possible to reduce communication overhead\n# in GCHP. Only disable this feature if using mass fluxes.\n\nAutoUpdate_NXNY=ON\n\n# Specify NX and NY below if not auto-updating. Otherwise leave blank. See rules below.\n\nNX=\nNY=\n\n# Cores are distributed across each of the six cubed sphere faces using\n# configurable parameters NX and NY. Each face is divided into NX by NY/6\n# regions and each of those regions is processed by a single core\n# independent of which node it belongs to.\n#\n# Rules and tips for setting NX and NY manually:\n#   1. NY must be an integer and a multiple of 6\n#   2. NX*NY must equal total number of cores (NUM_NODES*NUM_CORES_PER_NODE)\n#   3. NX and NY should be as close to equal as possible (maximize squareness)\n#         Good examples: (NX=4,NY=24)  -> 96  cores at 4x4\n#                        (NX=6,NY=24)  -> 144 cores at 6x4\n#         Bad examples:  (NX=8,NY=12)  -> 96  cores at 8x2\n#                        (NX=12,NY=12) -> 144 cores at 12x2\n#   4. Domain decomposition requires that CS_RES/NX >= 4 and CS_RES*6/NY >= 4,\n#      which puts an upper limit on total cores per grid resolution.\n#         c24: 216 cores   (NX=6,  NY=36 )\n#         c48: 864 cores   (NX=12, NY=72 )\n#         c90: 3174 cores  (NX=22, NY=132)\n#        c180: 12150 cores (NX=45, NY=270)\n#        c360: 48600 cores (NX=90, NY=540)\n#      Using fewer cores may still trigger a domain decomposition error, e.g.:\n#         c48: 768 cores   (NX=16, NY=48)  --> 48/16=3 will trigger FV3 error\n#   5. If using mass flux inputs then both native mass flux resolution and model\n#      run resolution must be evenly divisible by both NX and NY/6.\n#         Example of C180 fluxes (e.g. GEOS-IT) run at C90:\n#            96 cores,  NX=4, NY/6=4 -> fail    (90/4=22.5)\n#            150 cores, NX=5, NY/6=5 -> success (180/5=36, 90/5=18)\n#            216 cores, NX=6, NY/6=6 -> success (180/6=30, 90/6=15)\n#            384 cores, NX=8, NY/6=8 -> fail    (180/8=22.5)\n\n#------------------------------------------------\n#    TIMESTEPS\n#------------------------------------------------\n# Non-RRTMG timesteps in GCHP are resolution-dependent.\n# Stretched grid timesteps are set based on the high-resolution region.\n\nCS_RES_EFFECTIVE=${CS_RES}\nif [[ ${STRETCH_GRID} == 'ON' ]]; then\n    CS_RES_EFFECTIVE=$( echo $CS_RES $STRETCH_FACTOR | awk '{printf \"%.0f\",$1*$2}' )\nfi\nif [[ $CS_RES_EFFECTIVE -lt 180 ]]; then\n    ChemEmiss_Timestep_sec=1200\n    TransConv_Timestep_sec=600\n    TransConv_Timestep_HHMMSS=001000\nelse\n    ChemEmiss_Timestep_sec=600\n    TransConv_Timestep_sec=300\n    TransConv_Timestep_HHMMSS=000500\nfi\nRRTMG_Timestep_sec=10800\n\n#------------------------------------------------------------------\n#    ONLINE DUST MASS TUNING FACTOR\n#------------------------------------------------------------------\n# Mass tuning factor is used in the HEMCO DustL23M extension for GEOS-Chem\n# benchmarking and is resolution and met-source dependent. We recommend\n# using offline dust instead of the online extension for GCHP science runs.\n#\ndustL23M=\"\"\ntomasDustDead=\"\"\nDust_SF=\"\"\n\n# Check if DustL23M is turned on\nresult=$(grep \"125.*DustL23M\" HEMCO_Config.rc || echo \"missing\")\nif [[ \"x${result}\" != \"xmissing\" ]]; then\n    array=(${result// / })\n    dustL23M=${array[3]}\nfi\n\n# Check if TOMAS_DustDead is turned on\nresult=$(grep \"131.*TOMAS_DustDead\" HEMCO_Config.rc || echo \"missing\")\nif [[ \"x${result}\" != \"xmissing\" ]]; then\n    array=(${result// / })\n    tomasDustDead=${array[3]}\nfi\n\n# Error check, cannot have both DustL23M and TOMAS_DustDead!\nif [[ \"x${dustL23M}\" == \"xon\" && \"x${tomasDustDead}\" == \"xon\" ]]; then\n    msg=\"ERROR: DustL23M and TOMAS_DustDead extensions cannot both be \"\n    msg+=\"switched on at the same time!  Please check HEMCO_Config.rc.\"\n    echo \"${msg}\"\n    exit 1\nfi\n\nif [[ \"x${dustL23M}\" == \"xon\" || \"x${tomasDustDead}\" == \"xon\" ]]; then\n    metField=$(grep \"met_field:\" geoschem_config.yml)\n    metField=${metField/met_field\\:/}\n    metField=${metField// /}\n\n    if [[ \"x${STRETCH_GRID}\" == \"xON\" ]]; then\n\tmsg=\"WARNING: Online dust is not recommended for stretched-grid \"\n\tmsg+=\"simulations. Consider using OFFLINE_DUST instead.\"\n\techo \"${msg}\"\n    fi\n\n    #------------------------------------------------------------------------\n    # Dust mass tuning factors for DustL23M were generated by\n    # Dandan Zhang (@1Dandan), see:\n    # https://github.com/geoschem/geos-chem/pull/2946#issuecomment-3465876899\n    #------------------------------------------------------------------------\n    if [[ \"x${dustL23M}\" == \"xon\" ]]; then\n\n        #---------------------\n        # DustL23M + GEOS-FP\n        #---------------------\n\tif [[ \"x${metField}\" == \"xGEOSFP\" ]]; then\n            if [[ \"x${CS_RES}\" == \"x24\" ]]; then\n                Dust_SF=6.794E-03\n            elif [[ \"x${CS_RES}\" == \"x48\" ]]; then\n                Dust_SF=4.402E-03\n            elif [[ \"x${CS_RES}\" == \"x90\" ]]; then\n                Dust_SF=3.533E-03\n            elif [[ \"x${CS_RES}\" == \"x180\" ]]; then\n                Dust_SF=3.081E-03\n            elif [[ \"x${CS_RES}\" == \"x360\" ]]; then\n                Dust_SF=2.924E-03\n            else\n                msg=\"Dust mass tuning factors for ${CS_RES} are not available \"\n                msg+=\"for GEOS-FP meteorology.  Please add the tuning factor \"\n                msg+=\"you wish to use for this resolution.\"\n                echo \"${msg}\"\n                exit 1\n            fi\n\n        #---------------------\n        # DustL23m + GEOS-IT\n        #---------------------\n        elif [[ \"x${metField}\" == \"xGEOSIT\" ]]; then\n            if [[ \"x${CS_RES}\" == \"x30\" ]]; then\n                Dust_SF=4.231E-03\n            elif [[ \"x${CS_RES}\" == \"x48\" ]]; then\n                Dust_SF=3.308E-03\n            elif [[ \"x${CS_RES}\" == \"x90\" ]]; then\n                Dust_SF=2.614E-03\n            elif [[ \"x${CS_RES}\" == \"x180\" ]]; then\n                Dust_SF=2.314E-03\n            else\n                msg=\"Dust mass tuning factors for ${CS_RES} are not available \"\n                msg+=\"for GEOS-IT meteorology.  Please add the tuning factor \"\n                msg+=\"you wish to use for this resolution.\"\n                echo \"${msg}\"\n                exit 1\n            fi\n    \n        #---------------------\n        # DustL23M + MERRA2\n        #---------------------\n        elif [[ \"x${metField}\" == \"xMERRA2\" ]]; then\n    \t    if [[ \"x${CS_RES}\" == \"x24\" ]]; then\n                Dust_SF=7.944E-03\n            elif [[ \"x${CS_RES}\" == \"x48\" ]]; then\n                Dust_SF=4.253E-03\n            elif [[ \"x${CS_RES}\" == \"x90\" ]]; then\n\t\tDust_SF=4.341E-03\n            elif [[ \"x${CS_RES}\" == \"x180\" ]]; then\n\t\tDust_SF=3.932E-03\n            else\n                msg=\"Dust mass tuning factors for ${CS_RES} are not available \"\n                msg+=\"for MERRA-2 meteorology.  Please add the tuning factor \"\n                msg+=\"you wish to use for this resolution.\"\n                echo \"${msg}\"\n                exit 1\n            fi\n \n        else\n            msg=\"Dust mass tuning factors for ${CS_RES} are not available \"\n            msg+=\"for ${metField} meteorology.  Please add the tuning factor \"\n            msg+=\"you wish to use for this resolution.\"\n            echo \"${msg}\"\n            exit 1\n\n        fi\n\t\n    #------------------------------------------------------------------------\n    # Dust mass tuning factors for TOMAS_DustDead extension are the same\n    # as were previously computed for the DustDead extension\n    #------------------------------------------------------------------------\n    else       \n        if [[ $CS_RES -eq 24 ]]; then\n            if [[ \"x${metField}\" == \"xMERRA2\" ]]; then\n                Dust_SF=5.4856e-5\n            elif [[ \"x${metField}\" == \"xGEOSFP\" ]]; then\n                Dust_SF=4.6495e-5\n            elif [[ \"x${metField}\" == \"xGEOSIT\" ]]; then\n                Dust_SF=3.7410e-5\n            else\n                msg=\"TOMAS DustDead scale factors are currently only \"\n                msg+=\"available for C24 with MERRA-2, GEOSFP, or GEOSIT.\"\n                echo \"${msg}\"\n                exit 1\n            fi\n        #\n        # NOTE: Met-field dependent mass tuning factors for the grid\n        # resolutions listed below will be added later.\n        # Leave the prior values for now.\n        #\n        elif [[ $CS_RES -eq 30 ]]; then\n            Dust_SF=5.76e-4 # approximated as linear interpolation between 24 and 48. use for testing only!\n\t    msg=\"WARNING: Mass tuning factor for TOMAS_DustDead \"\n\t    msg+=\"at c${CS_RES} resolution needs updating!\"\n\t    echo \"${msg}\"\n        elif [[ $CS_RES -eq 48 ]]; then\n            Dust_SF=5.0416e-4\n\t    msg=\"WARNING: Mass tuning factor for TOMAS_DustDead \"\n\t    msg+=\"at c${CS_RES} resolution needs updating!\"\n\t    echo \"${msg}\"\n        elif [[ $CS_RES -eq 90 ]]; then\n            Dust_SF=4.0e-4\n\t    msg=\"WARNING: Mass tuning factor for TOMAS_DustDead \"\n\t    msg+=\"at c${CS_RES} resolution needs updating!\"\n\t    echo \"${msg}\"\n        elif [[ $CS_RES -eq 180 ]]; then\n            Dust_SF=3.23e-4\n\t    msg=\"WARNING: Mass tuning factor for TOMAS_DustDead \"\n\t    msg+=\"at c${CS_RES} resolution needs updating!\"\n\t    echo \"${msg}\"\n        elif [[ $CS_RES -eq 360 ]]; then\n            Dust_SF=2.35e-4\n\t    msg=\"WARNING: Mass tuning factor for TOMAS_DustDead \"\n\t    msg+=\"at c${CS_RES} resolution needs updating!\"\n\t    echo \"${msg}\"\n        elif [[ $CS_RES -eq 720 ]]; then\n            Dust_SF=2.3e-4\n\t    msg=\"WARNING: Mass tuning factor for TOMAS_DustDead \"\n\t    msg+=\"at c${CS_RES} resolution needs updating!\"\n\t    echo \"${msg}\"\n        else\n            msg=\"Dust mass tuning factor not defined for c${CS_RES}! \"\n\t    msg+=\"Please add the tuning factor you wish to use above.\"\n            echo \"${msg}\"\n            exit 1\n        fi\n    fi\nfi\n\n#------------------------------------------------\n#   MODEL PHASE\n#------------------------------------------------\n# FORWARD for forward model, ADJOINT for adjoint model\n\nModel_Phase=FORWARD\n\n#------------------------------------------------\n#   MAPL ExtData versions\n#------------------------------------------------\n# Set to true to use ExtData2G in MAPL (requires yaml input file)\n\nUse_ExtData2G=false\n\n\n###############################\n####   ERROR CHECKS\n###############################\n\n#### Check that resource allocation makes sense\nif (( ${TOTAL_CORES}%6 != 0 )); then\n   echo \"ERROR: TOTAL_CORES must be divisible by 6. Update value in setCommonRunSettings.sh.\"\n   exit 1\nfi\nif (( ${TOTAL_CORES} != ${NUM_NODES}*${NUM_CORES_PER_NODE} )); then\n   echo \"ERROR: TOTAL_CORES must equal to NUM_NODES times NUM_CORES_PER_NODE. Update values in setCommonRunSettings.sh.\"\n   exit 1\nfi\n\n#### If on, auto-calculate NX and NY to maximize squareness of core regions\nif [[ ${AutoUpdate_NXNY} == 'ON' ]]; then\n   Z=$(( ${NUM_NODES}*${NUM_CORES_PER_NODE}/6 ))\n   # Use \"bash calculator\" if available; Python if not; fail otherwise\n   bc_ok=0\n   py_ok=0\n   which bc &> /dev/null || bc_ok=$?\n   which python &> /dev/null || py_ok=$?\n   if [[ $bc_ok -eq 0 ]]; then\n      # Use bash calculator\n      SQRT=$(echo \"sqrt (${Z})\" | bc -l)\n      N=$(echo $SQRT | awk '{print int($1+0.999)}')\n   elif [[ $py_ok -eq 0 ]]; then\n      # Use system Python\n      SQRT=$( python -c \"import math; print(int(math.sqrt(${Z})))\" )\n      N=$SQRT\n   else\n      echo \"Cannot auto-determine NX and NY (need either bc or python available)\"\n      exit 70\n   fi\n   while [[ \"${N}\" > 0 ]]; do\n      if (( ${Z} % ${N} == 0 )); then\n         NX=${N}\n         NY=$((${Z}/${N}*6))\n         break\n      else\n         N=$((${N}-1))\n      fi\n   done\nfi\n\n#### Check that NX and NY make sense\nif (( ${NX}*${NY} != ${TOTAL_CORES} )); then\n   echo \"ERROR: NX*NY must equal TOTAL_CORES. Check values in setCommonRunSettings.sh.\"\n   exit 1\nfi\nif (( ${NY}%6 != 0 )); then\n   echo \"ERROR: NY must be an integer divisible by 6. Check values in setCommonRunSettings.sh.\"\n   exit 1\nfi\n\n#### Check grid resolution\nif (( (${CS_RES}) % 2 != 0 )); then\n    echo \"ERROR: Cubed-sphere face does not have even number of grid cells per side. Update grid resolution in setCommonRunSettings.sh to be an even number.\"\n    exit 1\nfi\n\n\n#### Check that domain decomposition will not trigger a FV3 domain error\nif [[ $(( ${CS_RES}/${NX} )) -lt 4 || $(( ${CS_RES}*6/${NY} )) -lt 4  ]]; then\n   echo \"ERROR: NX and NY are set such that face side length divided by NX or NY/6 is less than 4. The cubed sphere compute domain has a minimum requirement of 4 points in NX and NY/6. This problem occurs when grid resolution is too low for core count requested. Edit setCommonRunSettings.sh to loower total number of cores or increase your grid resolution.\"\n   exit 1\nfi\n\n#### Check if domains are square enough (NOTE: approx using integer division)\nif [[ $(( ${NX}*6/${NY}*2 )) -ge 5 || $(( ${NY}/${NX}/6*2 )) -ge 5 ]] ; then\n    echo \"WARNING: NX and NY are set such that NX x NY/6 has side ratio >= 2.5. Consider adjusting resources in setCommonRunSettings.sh to be more square. This will avoid negative effects due to excessive communication between cores.\"\nfi\n\nabs() {\n    [[ $[ $@ ] -lt 0 ]] && echo \"$[ ($@) * - 1]\" || echo \"$[ $@ ]\"\n}\n\n#### Give error if chem timestep is < dynamic timestep\nif [[ ${ChemEmiss_Timestep_sec} -lt ${TransConv_Timestep_sec} ]]; then\n    echo \"ERROR: chemistry timestep must be >= dynamic timestep. Update values in setCommonRunSettings.sh.\"\n    exit 1\nfi\n\n#### Check transport setting. If okay, set binary indicator\nif [[ ${Do_Advection} == 'true' ]]; then\n    ADVCORE_ADVECTION=1\nelif [[ ${Do_Advection} == 'false' ]]; then\n    ADVCORE_ADVECTION=0\nelse\n    echo \"ERROR: Incorrect advection setting\"\n    exit 1\nfi\n\n#### If using stretched grid, check that target lat and lon have decimal\nif [[ ${STRETCH_GRID} == 'ON' ]]; then\n    if [[ ${TARGET_LAT} != *\".\"* ]]; then\n\techo \"ERROR: Stretched grid target latitude must be float. Edit entry in setCommonRunSettings.sh.\"\n\texit 1\n    elif [[ ${TARGET_LON} != *\".\"* ]]; then\n\techo \"ERROR: Stretched grid target longitude must be float. Edit entry in setCommonRunSettings.sh.\"\n\texit 1\n    fi\nfi\n\n#### Mass flux checks for grid resolution and domain decomposition\nMassFlux_Entry=$(grep \"MFXC\" ExtData.rc || echo \"missing\")\nif [[ ${MassFlux_Entry} != \"missing\" ]]; then\n\n    #### Get met grid res (assume GEOS-IT and GEOS-FP are the only options)\n    C180_Entry=$(grep \"MFXC.*C180\" ExtData.rc || echo \"missing\")\n    if [[ ${C180_Entry} != \"missing\" ]]; then\n\tinput_res=180\n    else\n\tinput_res=720\n    fi\n    if (( ${CS_RES} < ${input_res} )); then\n\tlowest_res=${CS_RES}\n\thighest_res=${input_res}\n    else\n\tlowest_res=${input_res}\n\thighest_res=${CS_RES}\n    fi\n\n    #### Check that not using stretched grid\n    if [[ ${STRETCH_GRID} == 'ON' ]]; then\n\techo \"ERROR: Do not use stretched grid when using mass flux inputs. Create a winds run directory for stretched grid simulations.\"\n\texit 1\n    fi\n\n    #### Check that input and grid resolutions are evenly divisible\n    if (( (${highest_res}) % (${lowest_res}) != 0 )); then\n\techo \"ERROR: Mass flux input resolution and run grid resolution must be evenly divisible. Input resolution is ${input_res} but grid resolution is ${CS_RES}.\"\n\texit 1\n    fi\n\n    #### Check that grid/run resolutions are evenly divisible by NX and NY/6\n    if (( ${lowest_res} % ${NX} != 0 || ${lowest_res} % (${NY}/6) != 0 )); then\n\techo \"ERROR: Input and run resolutions must divide evenly by NX and NY/6 when using mass flux inputs. Manually set NX and NY in setCommonRunSettings.sh for your simulation. Current settings are input resolution ${input_res}, grid resolution ${CS_RES}, NX ${NX} and NY ${NY}.\"\n\texit 1\n    fi\nfi\n\n##########################################\n####   DEFINE FUNCTIONS TO UPDATE FILES\n##########################################\n\n#### Determine whether to print info about updates. Prints enabled by default.\nverbose=0\nif [ $# -ne 0 ]; then\n    if [[ $1 = \"--verbose\" ]]; then\n        verbose=1\n    fi\nfi\n\n#### Function to print message\nprint_msg() {\n    if [[ ${verbose} = \"1\" ]]; then\n        echo $1\n    fi\n}\n\n#### Define function to replace values in .rc files\nreplace_val() {\n    KEY=$1\n    VAL=$2\n    FILE=$3\n    if [[ ${verbose} = \"1\" ]]; then\n\tprintf '%-30s : %-20s %-20s\\n' \"${KEY//\\\\}\" \"${VAL}\" \"${FILE}\"\n    fi\n\n    # Use : for delimiter by default, unless argument passed\n    if [[ -z $4 ]]; then\n\tDELIMITER=:\n    else\n\tDELIMITER=$4\n    fi\n\n    # replace value in line starting with 'whitespace + key + whitespace + : +\n    # whitespace + value' where whitespace is variable length including none\n    sed \"s|^\\([\\t ]*${KEY}[\\t ]*${DELIMITER}[\\t ]*\\).*|\\1${VAL}|\" ${FILE} > tmp\n    mv tmp ${FILE}\n}\n\n#### Replaces a value (in-place) in a YAML file, see:\n#### unix.stackexchange.com/questions/618971/sed-replace-in-next-line-in-yaml\nfunction replace_val_yaml() {\n    CAT=${1}     # category\n    KEY=${2}     # subcategory key\n    VALUE=${3}   # subcategory value\n    FILE=${4}    # YAML file\n\n    # verbose print\n    if [[ ${verbose} = \"1\" ]]; then\n\tprintf '%-30s : %-20s %-20s\\n' \"${CAT//\\\\}:${KEY}\" \"${VALUE}\" \"${FILE}\"\n    fi\n\n    # Switch the \"activate\" tag (always the first tag)\n    sed -i -e \"/${CAT}:/{n;s/${KEY}:.*/${KEY}: ${VALUE}/;}\" ${FILE}\n\n    # Also switch the use_non_local_mixing tag (after \"activate\")\n    if [[ \"x${CAT}\" == \"xpbl_mixing\" ]];then\n\tsed -i -e \"/${CAT}:/{n;n;s/${KEY}:.*/${KEY}: ${VALUE}/;}\" ${FILE}\n    fi\n}\n\n#### Define function to uncomment line in config file\nuncomment_line() {\n    if [[ ${verbose} = \"1\" ]]; then\n\techo \"--> Uncommenting $1 in $2\"\n    fi\n    if [[ $(grep -c \"^[\\t ]*$1\" $2) == \"1\" ]]; then\n\treturn\n    fi\n    num_lines=$(grep -c \"^[\\t ]*#*[\\t ]*$1\" $2)\n    if [[ $num_lines == \"1\" ]]; then\n        sed -i -e \"s|[\\t ]*#*[\\t ]*$1|$1|\" $2\n    elif [[ $num_lines == \"0\" ]]; then\n\techo \"ERROR: Entry for $1 missing in $2!\"\n        exit 1\n    else\n\techo \"ERROR: Multiple entries for $1 found in $2!\"\n        exit 1\n    fi\n}\n\n#### Define function to comment line in config file\ncomment_line() {\n        if [[ ${verbose} = \"1\" ]]; then\n\techo \"--> Commenting out $1 in $2\"\n    fi\n    if [[ $(grep -c \"#.*$1\" $2) == \"1\" ]]; then\n\treturn\n    fi\n    num_lines=$(grep -c \"^[\\t ]*$1\" $2)\n    if [[ $num_lines == \"1\" ]]; then\n        sed -i -e \"s|[\\t ]*$1|#$1|\" $2\n    elif [[ $num_lines > \"1\" ]]; then\n\techo \"ERROR: Multiple entries for $1 found in $2!\"\n        exit 1\n    fi\n}\n\n#### Define function to replace met-field read frequency in ExtData.rc given var name\nupdate_dyn_freq() {\n\n    # String to search for\n    str=\"^[\\t ]*$1*[\\t ]\"\n\n    # Check number of matches where first string is start of line, allowing for\n    # whitespace before and require whitespace after. # matches should be one;\n    # otherwise exit with an error.\n    numlines=$(grep -c \"$str\" $2)\n    if [[ ${numlines} == \"0\" ]]; then\n       echo \"ERROR: met-field $1 missing in $2\"\n       #exit 1\n    elif [[ ${numlines} > 1 ]]; then\n       echo \"ERROR: more than one entry in $1 in $2. Reduce to one so that read frequency can be auto-synced with dynamic timestep from setCommonRunSettings.sh.\"\n       exit 1\n    fi\n\n    # Get line number\n    x=$(grep -n \"$str\" $2)\n    linenum=${x%%:*}\n\n    # Get current ExtData.rc frequency read string\n    x=$(grep \"$str\" $2)\n    z=${x%%;*}\n    charnum=${#z}\n    currentstr=${x[0]:${charnum}+1:6}\n\n    # Replace string with configured dynamic timestep\n    sed -i \"${linenum}s/${currentstr}/${TransConv_Timestep_HHMMSS}/\" $2\n\n    # Print what just happened\n    if [[ ${verbose} = \"1\" ]]; then\n\tprintf '%-30s : %-20s %-20s\\n' \"$1 read frequency\" \"0;${TransConv_Timestep_HHMMSS}\" \"$2\"\n    fi\n}\n\n###############################\n####   UPDATE FILES\n###############################\n\nprint_msg \" \"\nprint_msg \"============================================================\"\nprint_msg \"Auto-updating config files based on settings in setCommonRunSettings.sh\"\nprint_msg \"============================================================\"\n\n#### Set # nodes, # cores, and shared memory option\nprint_msg \" \"\nprint_msg \"Compute resources:\"\nprint_msg \"------------------\"\nreplace_val NX            ${NX}                 GCHP.rc\nreplace_val NY            ${NY}                 GCHP.rc\nreplace_val CoresPerNode  ${NUM_CORES_PER_NODE} HISTORY.rc\n\n###  Set which version of ExtData will be used\nif [[ ${Use_ExtData2G} == \"true\" ]]; then\n    replace_val USE_EXTDATA2G  .TRUE.   CAP.rc\n    replace_val USE_EXTDATA2G  .true.   GCHP.rc\nelif [[ ${Use_ExtData2G} == \"false\" ]]; then\n    replace_val USE_EXTDATA2G  .FALSE. CAP.rc\n    replace_val USE_EXTDATA2G  .false. GCHP.rc\nelse\n    echo \"ERROR: Use_ExtData2G in setCommonRunSettings.sh must be either true or false.\"\n    exit 1\nfi\n\n###  Make sure adjoint diagnostics (if present) are commented out if using\n### forward model, and uncommented if using adjoint.\nif [[ ${Model_Phase} == \"FORWARD\" ]]; then\n   sed -i \"s/^\\([\\t ]*\\)'Adjoint',/\\1#'Adjoint',/\" HISTORY.rc\n   sed -i \"s/^\\([\\t ]*\\)'SFEmissions',/\\1#'SFEmissions',/\" HISTORY.rc\n   sed -i -e \"s/^[ \\t]*\\(SFEmis.*\\)$/#\\1/\" HEMCO_Diagn.rc\nelse\n   sed -i \"s/^\\([\\t ]*\\)'Adjoint',/\\1'Adjoint',/\" HISTORY.rc\n   sed -i \"s/^\\([\\t ]*\\)'SFEmissions',/\\1'SFEmissions',/\" HISTORY.rc\n   sed -i -e \"s/^[ \\t]*#\\([ \\t]*SFEmis.*\\)$/\\1/\" HEMCO_Diagn.rc\nfi\n\n####  set cubed-sphere resolution and related grid variables\nprint_msg \" \"\nprint_msg \"Cubed-sphere resolution:\"\nprint_msg \"------------------------\"\nCS_RES_x_6=$((CS_RES*6))\nreplace_val GCHP.IM_WORLD  ${CS_RES}                     GCHP.rc\nreplace_val GCHP.IM        ${CS_RES}                     GCHP.rc\nreplace_val GCHP.JM        ${CS_RES_x_6}                 GCHP.rc\nreplace_val IM             ${CS_RES}                     GCHP.rc\nreplace_val JM             ${CS_RES_x_6}                 GCHP.rc\nreplace_val GCHP.GRIDNAME  PE${CS_RES}x${CS_RES_x_6}-CF  GCHP.rc\nif [[ ${STRETCH_GRID} == \"ON\" ]]; then\n    print_msg \" \"\n    print_msg \"WARNING: stretched grid is enabled\"\n    uncomment_line GCHP.STRETCH_FACTOR           GCHP.rc\n    uncomment_line GCHP.TARGET_LAT               GCHP.rc\n    uncomment_line GCHP.TARGET_LON               GCHP.rc\n    sed -i -e \"s|#\\&fv#_core_nml|\\&fv_core_nml|\" input.nml\n    uncomment_line do_schmidt                    input.nml\n    uncomment_line stretch_fac                   input.nml\n    uncomment_line target_lat                    input.nml\n    uncomment_line target_lon                    input.nml\n    replace_val GCHP.STRETCH_FACTOR ${STRETCH_FACTOR}  GCHP.rc\n    replace_val stretch_fac         ${STRETCH_FACTOR}, input.nml =\n    replace_val GCHP.TARGET_LAT     ${TARGET_LAT}      GCHP.rc\n    replace_val target_lat          ${TARGET_LAT},     input.nml =\n    replace_val GCHP.TARGET_LON     ${TARGET_LON}      GCHP.rc\n    replace_val target_lon          ${TARGET_LON}/     input.nml =\nelif [[ ${STRETCH_GRID} == \"OFF\" ]]; then\n    comment_line GCHP.STRETCH_FACTOR             GCHP.rc\n    comment_line GCHP.TARGET_LAT                 GCHP.rc\n    comment_line GCHP.TARGET_LON                 GCHP.rc\n    sed -i -e \"s|\\&fv_core_nml|#\\&fv#_core_nml|\" input.nml\n    comment_line do_schmidt                      input.nml\n    comment_line stretch_fac                     input.nml\n    comment_line target_lat                      input.nml\n    comment_line target_lon                      input.nml\nelse\n    print_msg \"WARNING: unknown setting for GCHP.STRETCH_GRID.\"\n    exit 1\nfi\n\n#### Time settings\nif [[ ${Model_Phase} == \"FORWARD\" ]]; then\n   Reverse_Time=0\nelse\n   Reverse_Time=1\nfi\nprint_msg \" \"\nprint_msg \"Time settings:\"\nprint_msg \"--------------------------------\"\nreplace_val JOB_SGMT              \"${Run_Duration}\" CAP.rc\nreplace_val MODEL_PHASE           \"${Model_Phase}\"  GCHP.rc\nreplace_val REVERSE_TIME          \"${Reverse_Time}\" CAP.rc\nreplace_val SFEmissions.backwards \"${Reverse_Time}\" HISTORY.rc\nreplace_val \"transport_timestep_in_s\"  ${TransConv_Timestep_sec} geoschem_config.yml\nreplace_val \"chemistry_timestep_in_s\"  ${ChemEmiss_Timestep_sec} geoschem_config.yml\nreplace_val \"radiation_timestep_in_s\"  ${RRTMG_Timestep_sec}     geoschem_config.yml\nreplace_val HEARTBEAT_DT  ${TransConv_Timestep_sec}  GCHP.rc\nreplace_val SOLAR_DT      ${TransConv_Timestep_sec}  GCHP.rc\nreplace_val IRRAD_DT      ${TransConv_Timestep_sec}  GCHP.rc\nreplace_val RUN_DT        ${TransConv_Timestep_sec}  GCHP.rc\nreplace_val GCHPchem_DT   ${ChemEmiss_Timestep_sec}  GCHP.rc\nreplace_val RRTMG_DT      ${RRTMG_Timestep_sec}      GCHP.rc\nreplace_val DYNAMICS_DT   ${TransConv_Timestep_sec}  GCHP.rc\nreplace_val HEARTBEAT_DT  ${TransConv_Timestep_sec}  CAP.rc\nreplace_val GCHPchem_REFERENCE_TIME ${TransConv_Timestep_HHMMSS} GCHP.rc\n\n#### Import modifications. This includes updating ExtData.rc entries for PS2,\n#### SPHU2, and TMPU2 such that read frequency matches dynamic frequency.\n#### It also includes updating mass flux and Courant number scaling if reading\n#### them from file.\nprint_msg \" \"\nprint_msg \"Import settings:\"\nprint_msg \"--------------------------------\"\nupdate_dyn_freq PS2   ExtData.rc\nupdate_dyn_freq SPHU2 ExtData.rc\nupdate_dyn_freq TMPU2 ExtData.rc\nif [[ ${MassFlux_Entry} != \"missing\" ]]; then\n    # Mass flux scaling\n    mf_scaling=$(printf \"%.7f\" $(echo \"${TransConv_Timestep_sec} / 450\" | bc -l) | awk '{if ($0 ~ /^\\./) print \"0\" $0; else print $0}')\n    sed -i -e \"0,/MFXC/ s/\\(none\\)[[:space:]].*\\(MFXC\\)/\\1 ${mf_scaling} \\2/\" ExtData.rc\n\n    # Courant number scaling\n    cn_scaling=$(printf \"%.7f\" $(echo \"${TransConv_Timestep_sec} / 450 * ${CS_RES} * ${CS_RES} / ${input_res} / ${input_res}\" | bc -l) | awk '{if ($0 ~ /^\\./) print \"0\" $0; else print $0}')\n    sed -i -e \"0,/CX/ s/\\(none\\)[[:space:]].*\\(CX\\)/\\1 ${cn_scaling} \\2/\" ExtData.rc\n\n    # Print if verbose\n    if [[ ${verbose} = \"1\" ]]; then\n\tprintf '%-30s : %-20s %-20s\\n' \"MFXC and MFYX input scaling\" \"${mf_scaling}\" \"ExtData.rc\"\n\tprintf '%-30s : %-20s %-20s\\n' \"CX and CY input scaling\" \"${cn_scaling}\" \"ExtData.rc\"\n    fi\nfi\n\n##### Set commonly changed settings in geoschem_config.yml and GCHP.rc\nprint_msg \" \"\nprint_msg \"Components on/off:\"\nprint_msg \"------------------\"\nreplace_val_yaml \"chemistry\"  \"activate\" \"${Do_Chemistry}\"  geoschem_config.yml\nreplace_val_yaml \"transport\"  \"activate\" \"${Do_Advection}\"  geoschem_config.yml\nreplace_val_yaml \"convection\" \"activate\" \"${Do_Cloud_Conv}\" geoschem_config.yml\nreplace_val_yaml \"pbl_mixing\" \"activate\" \"${Do_PBL_Mixing}\" geoschem_config.yml\nreplace_val_yaml \"pbl_mixing\" \"use_non_local_pbl\" \"${Do_Non_Local_Mixing}\" geoschem_config.yml\nreplace_val_yaml \"dry_deposition\" \"activate\" \"${Do_DryDep}\" geoschem_config.yml\nreplace_val_yaml \"wet_deposition\" \"activate\" \"${Do_WetDep}\" geoschem_config.yml\nreplace_val      \"AdvCore_Advection\" \"${ADVCORE_ADVECTION}\" GCHP.rc\n\n#### Set options in HEMCO_Config.rc\nprint_msg \"\"\nprint_msg \"HEMCO settings:\"\nprint_msg \"---------------\"\nif [[ \"x${dustL23M}\" == \"xon\" || \"x${tomasDustDead}\" == \"xon\" ]]; then\n    replace_val \"--> Mass tuning factor\" \"${Dust_SF}\" HEMCO_Config.rc\nelse\n    replace_val \"--> Mass tuning factor\" \"-999.0\"     HEMCO_Config.rc\nfi\n\n###  Set initial restart file options\nprint_msg \"\"\nprint_msg \"Initial restart settings:\"\nprint_msg \"-------------------------\"\nreplace_val INITIAL_RESTART_SPECIES_REQUIRED ${Require_Species_in_Restart} GCHP.rc\n\n#### Set frequency of writing restart files\n# Set to a very large number if turned off\nprint_msg \" \"\nprint_msg \"Mid-run checkpoints:\"\nprint_msg \"---------------------\"\nif [[ ${Midrun_Checkpoint} == \"ON\" ]]; then\n    uncomment_line RECORD_FREQUENCY GCHP.rc\n    uncomment_line RECORD_REF_DATE  GCHP.rc\n    uncomment_line RECORD_REF_TIME  GCHP.rc\n    replace_val RECORD_FREQUENCY \"${Checkpoint_Freq}\" GCHP.rc\n    start_str=$(cat cap_restart)\n    Checkpoint_Ref_Date=\"${start_str:0:8}\"\n    Checkpoint_Ref_Time=\"${start_str:9:6}\"\n    replace_val RECORD_REF_DATE \"${Checkpoint_Ref_Date}\" GCHP.rc\n    replace_val RECORD_REF_TIME \"${Checkpoint_Ref_Time}\" GCHP.rc\nelif [[ ${Midrun_Checkpoint} == \"OFF\" ]]; then\n    print_msg \"WARNING: Midrun checkpoints are turned off\"\n    comment_line RECORD_FREQUENCY GCHP.rc\n    comment_line RECORD_REF_DATE  GCHP.rc\n    comment_line RECORD_REF_TIME  GCHP.rc\nelse\n    print_msg \"ERROR: unknown setting for Midrun_Checkpoint. Must be ON or OFF.\"\n    exit 1\nfi\n\n#### Set output frequency, duration, and mode\nif [[ ${AutoUpdate_Diagnostics} == \"ON\" ]]; then\n   print_msg \" \"\n   print_msg \"Diagnostics:\"\n   print_msg \"------------\"\n   if [[ ${#Diag_Collections[@]} > 0 ]]; then\n      for c in ${Diag_Collections[@]}; do\n         replace_val $c.monthly     ${Diag_Monthly}   HISTORY.rc\n         replace_val $c.frequency   ${Diag_Frequency} HISTORY.rc\n         replace_val $c.duration    ${Diag_Duration}  HISTORY.rc\n      done\n   fi\nelse\n    print_msg \"Auto-update of diagnostic settings in HISTORY.rc is turned off\"\nfi\n\n#### Auto-update ExtData.rc for lightning climatology based on HEMCO_Config.rc\nlightningClimEntry=$(grep \"LightningClimatology\" HEMCO_Config.rc || echo \"missing\")\nif [[ ${lightningClimEntry} != \"missing\" ]]; then\n\n    # Current file settings\n    lightningClimSetting=(${lightningClimEntry// / })\n    FlashYearlyEntry=$(grep \"FLASH_DENS.*y4/FLASH\" ExtData.rc)\n    ConvYearlyEntry=$(grep \"CONV_DEPTH.*y4/FLASH\"  ExtData.rc)\n    FlashClimEntry=$(grep \"FLASH_DENS.*CLIM\"       ExtData.rc)\n    ConvClimEntry=$(grep \"CONV_DEPTH.*CLIM\"        ExtData.rc)\n\n    # Strip leading comment character, if any\n    if [[ ${FlashYearlyEntry:0:1} == \"#\" ]];then FlashYearlyEntry=${FlashYearlyEntry:1}; fi\n    if [[ ${ConvYearlyEntry:0:1} == \"#\" ]];then ConvYearlyEntry=${ConvYearlyEntry:1}; fi\n    if [[ ${FlashClimEntry:0:1} == \"#\" ]];then FlashClimEntry=${FlashClimEntry:1}; fi\n    if [[ ${ConvClimEntry:0:1} == \"#\" ]];then ConvClimEntry=${ConvClimEntry:1}; fi\n\n    # Print to log if --verbose passed\n    if [[ ${verbose} = \"1\" ]]; then\n\tprint_msg \" \"\n\tprint_msg \"Lightning climatology:\"\n\tprint_msg \"------------------------\"\n\tprint_msg \"Updating ExtData.rc for HEMCO_Config.rc lightning climatology set to ${lightningClimSetting[3]}\"\n    fi\n\n    # Update ExtData.rc\n    if [[ ${lightningClimSetting[3]} = \"true\" ]]; then\n\tcomment_line   \"${FlashYearlyEntry}\" ExtData.rc\n\tcomment_line   \"${ConvYearlyEntry}\"  ExtData.rc\n\tuncomment_line \"${FlashClimEntry}\"   ExtData.rc\n\tuncomment_line \"${ConvClimEntry}\"    ExtData.rc\n    elif [[ ${lightningClimSetting[3]} = \"false\" ]]; then\n\tcomment_line   \"${FlashClimEntry}\"   ExtData.rc\n\tcomment_line   \"${ConvClimEntry}\"    ExtData.rc\n\tuncomment_line \"${FlashYearlyEntry}\" ExtData.rc\n\tuncomment_line \"${ConvYearlyEntry}\"  ExtData.rc\n    else\n        \"ERROR: LightningClimatology must be set to true or false in HEMCO_Config.rc.\"\n\texit 1\n    fi\nfi\n\n#### Auto-update offline/online emissions settings in HEMCO_Diagn.rc based on HEMCO_Config.rc\n# NOTES:\n#  - Includes seasalt, soilNOx, dust, and biogenic emissions only\n#  - Sets Emis* diagnostics to extension emissions if extension is on in HEMCO_Config.rc\n#  - Sets Emis* diagnostics to base emissions (offline) if extension is off in HEMCO_Config.rc\n\n# Dust\ndustExt=$(grep \"105.*DustDead\" HEMCO_Config.rc || echo \"missing\")\nif [[ ${dustExt} != \"missing\" ]]; then\n    dustSetting=(${dustExt// / })\n    if [[ ${dustSetting[3]} = \"on\" ]]; then\n\tsed -i -e 's|0      3 |105    -1|' HEMCO_Diagn.rc\n    else\n\tsed -i -e 's|105    -1|0      3 |' HEMCO_Diagn.rc\n    fi\nfi\n\n# Sea salt\nseasExt=$(grep \"107.*SeaSalt\"  HEMCO_Config.rc || echo \"missing\")\nif [[ ${seasExt} != \"missing\" ]]; then\n    seasSetting=(${seasExt// / })\n    if [[ ${seasSetting[3]} = \"on\" ]]; then\n\tsed -i -e 's|SALA  0      3 |SALA  107    -1|' HEMCO_Diagn.rc\n\tsed -i -e 's|SALC  0      3 |SALC  107    -1|' HEMCO_Diagn.rc\n\tsed -i -e 's|AL  0      3 |AL  107    -1|'     HEMCO_Diagn.rc\n\tsed -i -e 's|CL  0      3 |CL  107    -1|'     HEMCO_Diagn.rc\n    else\n\tsed -i -e 's|SALA  107    -1|SALA  0      3 |' HEMCO_Diagn.rc\n\tsed -i -e 's|SALC  107    -1|SALC  0      3 |' HEMCO_Diagn.rc\n\tsed -i -e 's|AL  107    -1|AL  0      3 |'     HEMCO_Diagn.rc\n\tsed -i -e 's|CL  107    -1|CL  0      3 |'     HEMCO_Diagn.rc\n    fi\nfi\n\n# Biogenic\nbiogExt=$(grep \"108.*MEGAN\"    HEMCO_Config.rc || echo \"missing\")\nif [[ ${biogExt} != \"missing\" ]]; then\n    biogSetting=(${biogExt// / })\n    if [[ ${biogSetting[3]} = \"on\" ]]; then\n\tsed -i -e 's|0      4 |108    -1|'               HEMCO_Diagn.rc\n    else\n\tsed -i -e 's|108    -1|0      4 |'               HEMCO_Diagn.rc\n    fi\nfi\n\n# SoilNOx\nsoilExt=$(grep \"104.*SoilNOx\"  HEMCO_Config.rc || echo \"missing\")\nif [[ ${soilExt} != \"missing\" ]]; then\n    soilSetting=(${soilExt// / })\n    if [[ ${soilSetting[3]} = \"on\" ]]; then\n\tsed -i -e 's|NO     0      3 |NO     104    -1|' HEMCO_Diagn.rc\n    else\n\tsed -i -e 's|NO     104    -1|NO     0      3 |'  HEMCO_Diagn.rc\n    fi\nfi\n\n# Deactivate PARANOx in HEMCO_Config.rc for C360 or C720 grids\n# but activate it for all other cubed-sphere resolutions\nparanoxExt=$(grep \"102.*ParaNOx\"  HEMCO_Config.rc || echo \"missing\")\nif [[ \"x${paranoxExt}\" != \"xmissing\" ]]; then\n    if [[ \"x${CS_RES}\" == \"x360\" || \"x${CS_RES}\" == \"x720\" ]]; then\n        sed -i -E '/ParaNOx/s/: (on |off)/: off/' HEMCO_Config.rc\n    else\n        sed -i -E '/ParaNOx/s/: (on |off)/: on /' HEMCO_Config.rc\n    fi\nfi\n\n#### Done\nprint_msg \" \"\nprint_msg \"setCommonRunSettings.sh done\"\nprint_msg \" \"\n"
  },
  {
    "path": "run/GCHP/setEnvironmentLink.sh",
    "content": "#!/bin/bash\n\n# setEnvironmentLink: set local environment symbolic link gchp.env\n#    \n# Arguments: pass full path (no symlinks) to your customized GCHP env file\n#\n# Usage: ./setEnvironment /path/to/your/env/file\n#\n# E. Lundgren, 10/12/2018\n\n# Make sure user passes environment file path\nif [[ $# != 1 ]] ; then\n echo \"Usage: ./setEnvironmentLink /path/to/your/env/file\"\n exit 1\nfi\n\n# Set symlink\nif [[ -L gchp.env ]]; then\n    unlink gchp.env\nfi\nif [[ -f \"$1\" ]]; then\n  ln -s $1 gchp.env\n  file gchp.env\nelse\n  echo \"Error: gchp.env target does not exist\"\n  exit 1\nfi\n\n\nexit 0\n"
  },
  {
    "path": "run/GCHP/setRestartLink.sh",
    "content": "#!/bin/bash\n\n# setRestartLink.sh\n#\n# DESCRIPTION:\n#    Sets local restart symbolic link gchp_restart.nc4 to point to\n#    ./Restart/GEOSChem.Restart.YYYYMMDD_HHmmz.cN.nc4, where YYYYMMDD and\n#    HHmm are the simulation start date and time set in file cap_restart,\n#    and N is the global cubed-sphere grid resolution set in file\n#    setCommonRunSettings.sh. A message is printed showing symlink and target\n#    names. The program exits with an error message if the target file\n#    is not found.\n#\n# USAGE: ./setRestartLink.sh\n# \n####################################\n\nrst_link_name=gchp_restart.nc4\n\n# Get simulation start from cap_restart\nif [ -f cap_restart ]; then\n   start_str=$(sed 's/ /_/g' cap_restart)\nelse\n   echo \"ERROR: Unable to set ${rst_link_name} link because cap_restart does not exist! Create cap_restart containing simulation start date with format YYYYMMDD HHmmSS.\"\n   exit\t1\nfi\n\n# Set restart name, check that file exists, and set symlink\nN=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs)\nrst_target=./Restarts/GEOSChem.Restart.${start_str:0:13}z.c${N}.nc4\nif [[ -f \"${rst_target}\" ]]; then\n   ln -nsf ${rst_target} ${rst_link_name}\n   echo \"Restart symlink ${rst_link_name} set to ${rst_target}\"\nelse\n  echo \"ERROR: Unable to set symlink ${rst_link_name} because file ${rst_target} does not exist! Create file or link with that name, or change start date in cap_restart and/or grid resolution in setCommonRunSettings.sh to match restart file that exists.\"\n  exit 1\nfi\n"
  },
  {
    "path": "run/GCHP/utils/extra_static_files.txt",
    "content": "CHEM_INPUTS/Linoz_200910/Linoz_March2007.dat\nCHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Drydep_Inputs.nc\nCHEM_INPUTS/FAST_JX/v2020-02/FJX_spec.dat\nCHEM_INPUTS/FAST_JX/v2020-02/jv_spec_mie.dat\nCHEM_INPUTS/FAST_JX/v2020-02/FJX_j2j.dat\nCHEM_INPUTS/FAST_JX/v2020-02/brc.dat\nCHEM_INPUTS/FAST_JX/v2020-02/dust.dat\nCHEM_INPUTS/FAST_JX/v2020-02/h2so4.dat\nCHEM_INPUTS/FAST_JX/v2020-02/org.dat\nCHEM_INPUTS/FAST_JX/v2020-02/so4.dat\nCHEM_INPUTS/FAST_JX/v2020-02/soot.dat\nCHEM_INPUTS/FAST_JX/v2020-02/ssa.dat\nCHEM_INPUTS/FAST_JX/v2020-02/ssc.dat\nCHEM_INPUTS/FastJ_201204/fastj.jv_atms_dat.nc\nHEMCO/PARANOX/v2015-02/ship_plume_lut_02ms.txt\nHEMCO/PARANOX/v2015-02/ship_plume_lut_06ms.txt\nHEMCO/PARANOX/v2015-02/ship_plume_lut_10ms.txt\nHEMCO/PARANOX/v2015-02/ship_plume_lut_14ms.txt\nHEMCO/PARANOX/v2015-02/ship_plume_lut_18ms.txt\nHEMCO/LIGHTNOX/v2014-07/light_dist.ott2010.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_01.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_02.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_03.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_04.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_05.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_06.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_07.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_08.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_09.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_10.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_11.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JN2O_12.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_01.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_02.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_03.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_04.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_05.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_06.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_07.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_08.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_09.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_10.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_11.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO2_12.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_01.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_02.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_03.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_04.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_05.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_06.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_07.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_08.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_09.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_10.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_11.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO3_12.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_01.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_02.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_03.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_04.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_05.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_06.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_07.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_08.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_09.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_10.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_11.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_JNO_12.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_01.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_02.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_03.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_04.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_05.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_06.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_07.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_08.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_09.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_10.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_11.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O1D_12.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_01.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_02.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_03.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_04.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_05.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_06.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_07.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_08.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_09.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_10.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_11.dat\nCHEM_INPUTS/UCX_201403/NoonTime/Grid2x25/InitCFC_O_12.dat\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2005.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2006.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2007.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2008.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2009.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2010.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2011.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2012.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2013.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2014.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2015.nc\nHEMCO/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.2016.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2005.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2006.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2007.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2008.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2009.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2010.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2011.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2012.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2013.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2014.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2015.nc\nHEMCO/Yuan_XLAI/v2019-03/Yuan_proc_MODIS_XLAI.025x025.2016.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201001.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201001.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201002.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201002.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201003.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201003.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201004.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201004.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201005.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201005.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201006.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201006.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201007.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201007.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201008.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201008.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201009.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201009.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201010.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201010.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201011.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201011.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201012.2x25.nc\nHEMCO/C2H6_2010/v2019-06/C2H6_global_anth_biof.201012.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200701.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200701.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200702.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200702.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200703.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200703.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200704.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200704.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200705.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200705.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200706.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200706.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200707.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200707.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200708.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200708.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200709.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200709.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200710.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200710.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200711.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200711.night.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200712.day.nc\nHEMCO/STRAT/v2015-01/Bry/GEOSCCM_Bry.200712.night.nc"
  },
  {
    "path": "run/GCHP/utils/extra_templates.txt",
    "content": "./HcoDir/VOLCANO/v2019-08/%y4/%m2/so2_volcanic_emissions_Carns.%y4%m2%d2.rc"
  },
  {
    "path": "run/GCHP/utils/listInputDataFiles",
    "content": "#!/bin/bash\nset -e\n\nfunction show_usage_and_error_out() {\n   usage=$(cat << EOF\nUsage: ./listInputDataFiles STARTDATE ENDDATE [--wget-urls|--globus-batch] [-h|--help]\nPrint a list of the input files for a GCHP simulation.\n\nBy default, the realpath to the files is printed. If --wget-urls or --globus-list are specified, \nthe download list for wget or Globus is printed instead.\n\nNote that this command requires your current working directory is a run directory with ExtData.rc.\n\nRequired arguments:\n   STARTDATE       The start date of the simulation. Format: \"YYYYMMDD\".\n   ENDDATE         The end date of the simulation.   Format: \"YYYYMMDD\".\n\nOptional arguments:\n   --wget-urls     Print the urls to the files. Compatible with wget -i\n   --globus-batch  Print Globus transfer list. Compatible with globus --batch\n   -h  --help      Print this commands usage (this message).\n\nExamples:\n   ./listInputDataFiles 20190101 20190601                  Print files for 2019-01-01 to 2019-06-01\n   ./listInputDataFiles 20190101 20190601 --wget-urls      Print download urls for wget -i\n   ./listInputDataFiles 20190101 20190601 --globus-batch   Print transfer list for globus --batch\n\nDetailed example (wget):\n   Navigate to your run directory:\n      $ cd /path/to/your/rundirectory\n   Run listInputDataFiles and redirect the output to a file:\n      $ ./utils/listInputDataFiles 20190101 20190601 --wget-urls > downloads.txt\n   Navigate to your ExtData (the top-level of ExtData):\n      $ cd /path/to/your/ExtData\n   Download files listed in downloads.txt:\n      $ wget -i downloads.txt -cxnH --cut-dirs=1\nEOF\n)\n   echo \"$usage\" >&2\n   exit 1\n}\n\nif [[ \"$*\" == *-h* || \"$*\" == *--help* ]]; then\n   show_usage_and_error_out\nfi\n\nTHIS_SCRIPTS_DIRECTORY=$(realpath $(dirname \"$0\"))\n\n# Require two arguments\nif [ \"$#\" -lt 2 ]; then\n    echo -e \"error: $0 requires at least two arguments\\n\" >&2\n    show_usage_and_error_out\nfi\n\n# Set start and end date\nSTART_DATE=$1\nEND_DATE=$2\n\n# Check that dates are valid\nif ! date -d \"$START_DATE\" &> /dev/null ; then\n    echo -e \"error: Invalid start date: $1\\n\" >&2\n    show_usage_and_error_out\nfi\nif ! date -d \"$END_DATE\" &> /dev/null ; then\n    echo -e \"error: Invalid start date: $2\\n\" >&2\n    show_usage_and_error_out\nfi\n\n\nAWK_SCRIPT_PARSE_EXTDATA=$(cat << 'EOF'\nBEGIN {PRIMARY_EXPORT_SECTION=0}\n/PrimaryExports%%/{PRIMARY_EXPORT_SECTION=1}\n/^[^#]/ { \n    if (PRIMARY_EXPORT_SECTION) {\n        print $9\n    }   \n}\n/^%%/{PRIMARY_EXPORT_SECTION=0}\nEOF\n)\n\n\nAWK_SCRIPT_EXPAND_EXTDATA_FILES=$(cat << 'EOF'\nfunction print_filled_file_template(template, date_str) {\n    year=substr(date_str,1,4)\n    month=substr(date_str,5,2)\n    day=substr(date_str,7,2)\n    gsub(\"%d2\", day, template)\n    gsub(\"%m2\", month, template)\n    gsub(\"%y4\", year, template)\n    print template\n}\n\n{ \n    # Determine highest frequency token\n    if ($1~/%d2/) {\n        freq=\"1 day\"\n    } else if ($1~/%m2/) {\n        freq=\"1 month\"\n    } else if ($1~/%y4/) {\n        freq=\"1 year\"\n    } else {\n        freq=\"None\"\n    }\n\n    # Print file with all tokens\n    if (freq == \"None\") {\n        print $1\n    } else {\n        # Left bracketing time\n        cmd=sprintf(\"date -d \\\"%s-%s\\\" \\\"+%%Y%%m%%d\\\"\", START_DATE, freq)\n        if (!(cmd | getline one_before_date)) {\n            exit 1\n        }\n        close(cmd)\n        print_filled_file_template($1, one_before_date)\n\n        # Print for each between START AND END\n        date=START_DATE\n        while (date < END_DATE) {\n            print_filled_file_template($1, date)\n            \n            cmd=sprintf(\"date -d \\\"%s+%s\\\" \\\"+%%Y%%m%%d\\\"\", date, freq)\n            if (!(cmd | getline date)) {\n                exit 1\n            }\n            close(cmd)\n        }\n\n        # Right bracketing time\n        print_filled_file_template($1, date)\n    }\n}\nEOF\n)\n\n\nEXTDATA=$(awk \"$AWK_SCRIPT_PARSE_EXTDATA\" ExtData.rc)\n\n# Fill %y4 for climatological data\nclim_data=$(awk '{if($6~/C/) print $3}' HEMCO_Config.rc | sed -n 's#$ROOT/##p' | grep '$YYYY' | grep -o '^[^/][^/]*/[^/][^/]*' | sort | uniq)\nfor clim_dataset in $clim_data; do\n   # Skip clim_dataset if there aren't any matching files in ExtData.rc\n   echo \"$EXTDATA\" | grep -- $clim_dataset > /dev/null || continue\n\n   echo \"HEMCO/$clim_dataset is a climatology (see: http://geoschemdata.wustl.edu/ExtData/HEMCO/$clim_dataset)\" >&2\n   read -p \"-> Select climatology year (leave blank to use simulation period): \" CLIM_YEAR\n   CLIM_YEAR=${CLIM_YEAR:-%y4}\n   clim_dataset_regexpr=$(echo \"$clim_dataset\" | sed \"s#/#\\\\\\\\/#g\")\n   EXTDATA=$(echo \"$EXTDATA\" | sed \"/$clim_dataset_regexpr/s#%y4#$CLIM_YEAR#g\")\ndone\n\n# Add extra templates to be expanded\nEXTDATA=$(printf \"%s\\n%s\" \"$EXTDATA\" \"$(cat $THIS_SCRIPTS_DIRECTORY/extra_templates.txt)\")\n\n# Parse and expand ExtData.rc files\nfile_list=$(echo \"$EXTDATA\" | sort | uniq | awk -v START_DATE=$START_DATE -v END_DATE=$END_DATE \"$AWK_SCRIPT_EXPAND_EXTDATA_FILES\")\n\nfunction relpath_to_abspath() {\n   xargs readlink -m\n}\n\nfunction abspath_to_url() {\n   GEOSFP_PATH=\"GEOS_0\\.25x0\\.3125/GEOS_FP\"\n   MERRA2_PATH=\"GEOS_0\\.5x0\\.625/MERRA2\"\n   HEMCO_PATH=\"HEMCO\"\n   CHEMINPUTS_PATH=\"CHEM_INPUTS\"\n\n   sed -e \"s#.*\\($GEOSFP_PATH\\)#http://geoschemdata.wustl.edu/ExtData/\\1#g\" \\\n       -e \"s#.*\\($MERRA2_PATH\\)#http://geoschemdata.wustl.edu/ExtData/\\1#g\" \\\n       -e \"s#.*\\($HEMCO_PATH\\)#http://geoschemdata.wustl.edu/ExtData/\\1#g\"  \\\n       -e \"s#.*\\($CHEMINPUTS_PATH\\)#http://geoschemdata.wustl.edu/ExtData/\\1#g\" \n}\n\nfunction extra_static_files() {\n   HEMCO_PATH=\"HEMCO\"\n   GCDATA_PREFIX=$(echo \"$1\" | sed -n \"s/\\(.*\\)$HEMCO_PATH.*/\\1/p\" | head -1)\n   sed \"s#^#$GCDATA_PREFIX#g\" $THIS_SCRIPTS_DIRECTORY/extra_static_files.txt\n}\n\nfunction abspath_to_globus_list() {\n   GEOSFP_PATH=\"GEOS_0\\.25x0\\.3125/GEOS_FP\"\n   MERRA2_PATH=\"GEOS_0\\.5x0\\.625/MERRA2\"\n   HEMCO_PATH=\"HEMCO\"\n   CHEMINPUTS_PATH=\"CHEM_INPUTS\"\n   ccvm_abspath=$(echo \"$1\" | sed   -e \"s#.*\\($GEOSFP_PATH\\)#/ExtData/\\1#g\" \\\n                                    -e \"s#.*\\($MERRA2_PATH\\)#/ExtData/\\1#g\" \\\n                                    -e \"s#.*\\($HEMCO_PATH\\)#/ExtData/\\1#g\"  \\\n                                    -e \"s#.*\\($CHEMINPUTS_PATH\\)#/ExtData/\\1#g\")\n   paste <(echo \"$ccvm_abspath\") <(echo \"$1\")\n}\n\nabspath_file_list=$(echo \"$file_list\" | relpath_to_abspath)\nextra_files_list=$(extra_static_files \"$abspath_file_list\")\nabspath_file_list=$(printf \"%s\\n%s\\n\" \"$abspath_file_list\" \"$extra_files_list\")\n\nif [[ \"$*\" == *--wget-urls* ]]; then\n   echo \"$abspath_file_list\" | abspath_to_url\nelif [[ \"$*\" == *--globus-batch* ]]; then\n   abspath_to_globus_list \"$abspath_file_list\"\nelse\n   echo \"$abspath_file_list\"\nfi\n"
  },
  {
    "path": "run/GCHP/utils/simulation-status",
    "content": "#!/bin/bash\n\nUSAGE_MSG=\"\"\"Usage ./utils/simulation-status [-h|--help] [--no-color] LOGFILE_PATTERN1 [LOGFILE_PATTERN..]\n\nShows the current status of a simulation based on scraping the log files.\n\nAt least one log file (or glob pattern) is required. If multiple log files are found, the last\none has the highest precedence.\n\nRequired arguments:\n   LOGFILE_PATTERN..      The name or glob pattern for the log files.\n\nOptional arguments:\n   --no-color             Disables colorized output.\n   -h   --help            Prints this usage message.\n\nExamples:\n   ./utils/simulation-status runlog.txt     Print the status based on ./runlog.txt\n   ./utils/simulation-status 'log-*.txt'    Based on the last file matching 'log-*.txt'\n\"\"\"\n\nif [[ \"$*\" == *-h* || \"$*\" == *--help* ]]; then\n\techo \"$USAGE_MSG\"\n\texit 0\nfi\n\nif [ \"$1\" == '--no-color' ]; then\n\tRED=''\n\tNC=''\n\tGREEN=''\n\tORANGE=''\n\tUNDERLINE=''\n\tBOLD=''\n\tNORMAL=''\n\tshift\nelse\n\tRED='\\033[0;31m'\n\tNC='\\033[0m'\n\tGREEN='\\033[0;32m'\n\tORANGE='\\033[0;33m'\n\tUNDERLINE=$(tput smul)\n\tBOLD=$(tput bold)\n\tNORMAL=$(tput sgr0)\nfi\n\ntempfile=$(mktemp)\n\n# Get list of logfiles\nfor LOGFILE_PATTERN in \"$@\"; do\n\tfind -name \"$LOGFILE_PATTERN\" >> ${tempfile}\ndone\n\nif [ \"$(wc -l < ${tempfile})\" == \"0\" ]; then\n\techo \"error: No log file found.\"\n\trm ${tempfile}\n\texit 1\nfi\n\n# Remove empty lines\nsed -i \"/^$/d\" ${tempfile}\n\nactive_log=$(tail -n 1 ${tempfile})\n\nlatest_timestep=$(grep 'AGCM Date' $active_log | tail -n 1 | grep 'AGCM Date' || echo \"NO-TIMESTEPS\")\nfirst_error=$(grep 'pe=[0-9][0-9]* FAIL at' $active_log | head -n 1 | grep 'pe=[0-9][0-9]* FAIL at' || echo \"NO-ERRORS\")\n\nif [[ \"$latest_timestep\" != \"NO-TIMESTEPS\" ]]; then\n\tlatest_datetime=$(echo $latest_timestep |  sed \"s#AGCM Date: \\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)  *Time:  *\\([0-9][0-9]\\):\\([0-9][0-9]\\):\\([0-9][0-9]\\).*#\\1-\\2-\\3T\\4:\\5:\\6#g\")\n\tthroughput=$(echo $latest_timestep | sed \"s#.*Throughput(days/day)\\[Avg Tot Run\\]:  *\\([0-9][^ ]*\\).*#\\1#g\") \n\ttime_remaining=$(echo $latest_timestep | sed \"s#.*TimeRemaining(Est)  *\\([0-9][^ ]*\\).*#\\1#g\" | sed 's/^0*//')\nfi\nrm ${tempfile}\n\nif [ \"$first_error\" != \"NO-ERRORS\" ] && [ -n \"${latest_datetime}\" ]; then\n\tprintf \"Simulation crashed at ${latest_datetime} [${RED}NOT RUNNING${NC}]\\n\"\n\texit 1\nfi\n\n\nif [ \"$first_error\" != \"NO-ERRORS\" ]; then\n\tprintf \"Simulation crashed without timestepping [${RED}NOT RUNNING${NC}]\\n\"\n\texit 1\nfi\n\nif [ \"$first_error\" == \"NO-ERRORS\" ] && [ \"$latest_timestep\" == \"NO-TIMESTEPS\" ]; then\n\tprintf \"Simulation is starting up [${ORANGE}INITIALIZING${NC}]\\n\"\n\texit 1\nfi\n\nprintf \"Simulation at ${BOLD}$latest_datetime${NORMAL} (throughput: ${UNDERLINE}$throughput d/d${NORMAL}, time remaining: $time_remaining) [${GREEN}RUNNING${NC}]\\n\"\nexit 0\n"
  },
  {
    "path": "run/GEOS/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "run/GEOS/GEOSCHEMchem_ExtData.rc",
    "content": "\nExt_AllowExtrap: .true.\nDEBUG_LEVEL: 0\n#\nPrimaryExports%%\n# -----------|--------------|-----|---|----------------------|--------|-------|----------------------------------------   \n#  Import    |              |\t  |Rgr|_______ Refresh ______|____ Factors ___|___________ External File __________\n#  Name      |     Units    |Clim |Mth|     Time Template    | Offset | Scale |     Variable    |      Template\n# -----------|--------------|-----|---|----------------------|--------|-------|-----------------|----------------------   \n# Olson land types - conservative frac regridding of OLSON as float\nOLSON00 '1' N F;0  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON01 '1' N F;1  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON02 '1' N F;2  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON03 '1' N F;3  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON04 '1' N F;4  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON05 '1' N F;5  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON06 '1' N F;6  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON07 '1' N F;7  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON08 '1' N F;8  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON09 '1' N F;9  - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON10 '1' N F;10 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON11 '1' N F;11 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON12 '1' N F;12 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON13 '1' N F;13 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON14 '1' N F;14 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON15 '1' N F;15 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON16 '1' N F;16 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON17 '1' N F;17 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON18 '1' N F;18 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON19 '1' N F;19 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON20 '1' N F;20 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON21 '1' N F;21 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON22 '1' N F;22 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON23 '1' N F;23 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON24 '1' N F;24 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON25 '1' N F;25 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON26 '1' N F;26 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON27 '1' N F;27 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON28 '1' N F;28 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON29 '1' N F;29 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON30 '1' N F;30 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON31 '1' N F;31 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON32 '1' N F;32 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON33 '1' N F;33 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON34 '1' N F;34 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON35 '1' N F;35 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON36 '1' N F;36 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON37 '1' N F;37 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON38 '1' N F;38 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON39 '1' N F;39 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON40 '1' N F;40 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON41 '1' N F;41 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON42 '1' N F;42 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON43 '1' N F;43 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON44 '1' N F;44 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON45 '1' N F;45 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON46 '1' N F;46 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON47 '1' N F;47 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON48 '1' N F;48 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON49 '1' N F;49 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON50 '1' N F;50 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON51 '1' N F;51 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON52 '1' N F;52 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON53 '1' N F;53 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON54 '1' N F;54 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON55 '1' N F;55 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON56 '1' N F;56 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON57 '1' N F;57 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON58 '1' N F;58 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON59 '1' N F;59 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON60 '1' N F;60 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON61 '1' N F;61 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON62 '1' N F;62 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON63 '1' N F;63 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON64 '1' N F;64 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON65 '1' N F;65 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON66 '1' N F;66 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON67 '1' N F;67 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON68 '1' N F;68 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON69 '1' N F;69 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON70 '1' N F;70 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON71 '1' N F;71 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\nOLSON72 '1' N F;72 - none none OLSON /discover/nobackup/cakelle2/data/GCHP_data/Olson_2001_Land_Map.2x25.nc\n\n#==============================================================================\n# Yuan-processed MODIS Leaf Area Index\n#==============================================================================\n# Use file with land type stored as 3rd dimension to speed up file read\nXLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI /gpfsm/dnb31/ewlundgr/data/ExtData/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n\n# ----------------\n# V11-01A ADDITIONS\n# ----------------\n#\n#TOMS_O3_COL   'dobsons' N N %y4-%m2-01T00:00:00   none none TOMS   /discover/nobackup/cakelle2/data/GCHP_data/TOMS_O3col_%y4.a.geos.1x1.nc 1980-01-01T00:00:00P0001-00-00T00:00:00\n#DTOMS1_O3_COL '1'       N N %y4-%m2-01T00:00:00   none none DTOMS1 /discover/nobackup/cakelle2/data/GCHP_data/TOMS_O3col_%y4.a.geos.1x1.nc 1980-01-01T00:00:00P0001-00-00T00:00:00\n#DTOMS2_O3_COL '1'       N N %y4-%m2-01T00:00:00   none none DTOMS2 /discover/nobackup/cakelle2/data/GCHP_data/TOMS_O3col_%y4.a.geos.1x1.nc 1980-01-01T00:00:00P0001-00-00T00:00:00\nTOMS_O3_COL   'dobsons' Y N 2010-%m2-01T00:00:00   none none TOMS   /discover/nobackup/cakelle2/data/GCHP_data/TOMS_O3col_2010.a.geos.1x1.nc\nDTOMS1_O3_COL '1'       Y N 2010-%m2-01T00:00:00   none none DTOMS1 /discover/nobackup/cakelle2/data/GCHP_data/TOMS_O3col_2010.a.geos.1x1.nc\nDTOMS2_O3_COL '1'       Y N 2010-%m2-01T00:00:00   none none DTOMS2 /discover/nobackup/cakelle2/data/GCHP_data/TOMS_O3col_2010.a.geos.1x1.nc\n#\n# ----------------\n# EMISSION FIELDS\n# ----------------\n#\n# CEDS\n# NOx emissions are not converted to NO in pre-processing of the CEDS data. We are doing this in ExtData -KEK\nCEDS_NO_AGR     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_agr             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO_ENE     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_ene             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO_IND     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_ind             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO_TRA     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_tra             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO_RCO     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_rco             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO_SLV     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_slv             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO_WST     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_wst             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\n#\nCEDS_NO2_AGR     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_agr             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_ENE     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_ene             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_IND     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_ind             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_TRA     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_tra             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_RCO     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_rco             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_SLV     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_slv             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_WST     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_wst             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\n#\nCEDS_CO_AGR     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_agr             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_CO_ENE     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_ene             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_CO_IND     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_ind             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_CO_TRA     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_tra             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_CO_RCO     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_rco             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_CO_SLV     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_slv             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_CO_WST     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_wst             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_NH3_AGR    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_agr            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_NH3_ENE    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_ene            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_NH3_IND    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_ind            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_NH3_TRA    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_tra            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_NH3_RCO    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_rco            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_NH3_SLV    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_slv            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_NH3_WST    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_wst            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_BCPI_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_agr             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_BCPI_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_ene             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_BCPI_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_ind             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_BCPI_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_tra             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_BCPI_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_rco             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_BCPI_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_slv             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_BCPI_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_wst             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_OCPI_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_agr             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_OCPI_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_ene             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_OCPI_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_ind             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_OCPI_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_tra             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_OCPI_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_rco             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_OCPI_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_slv             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_OCPI_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_wst             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_SO2_AGR    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_agr            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\nCEDS_SO2_ENE    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_ene            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\nCEDS_SO2_IND    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_ind            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\nCEDS_SO2_TRA    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_tra            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\nCEDS_SO2_RCO    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_rco            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\nCEDS_SO2_SLV    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_slv            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\nCEDS_SO2_WST    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_wst            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\n#\n## CEDS VOCS\nCEDS_MOH_AGR    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_MOH_ENE    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_MOH_IND    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_MOH_TRA    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_MOH_RCO    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_MOH_SLV    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_MOH_WST    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\n#\nCEDS_C4H10_AGR  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_agr  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C4H10_ENE  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_ene  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C4H10_IND  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_ind  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C4H10_TRA  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_tra  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C4H10_RCO  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_rco  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C4H10_SLV  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_slv  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C4H10_WST  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_wst  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\n#\nCEDS_C5H12_AGR  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_agr /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_ENE  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_ene /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_IND  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_ind /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_TRA  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_tra /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_RCO  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_rco /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_SLV  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_slv /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_WST  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_wst /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\n#\nCEDS_C6H14_AGR  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_agr  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_ENE  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_ene  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_IND  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_ind  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_TRA  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_tra  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_RCO  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_rco  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_SLV  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_slv  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_WST  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_wst  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\n#\nCEDS_ACET_AGR    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_ACET_ENE    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_ACET_IND    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_ACET_TRA    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_ACET_RCO    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_ACET_SLV    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_ACET_WST    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\n#\nCEDS_MEK_AGR    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_ENE    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_IND    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_TRA    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_RCO    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_SLV    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_WST    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\n#\nCEDS_ALD2_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ALD2_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ALD2_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ALD2_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ALD2_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ALD2_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ALD2_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\n#\nCEDS_PRPE_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_PRPE_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_PRPE_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_PRPE_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_PRPE_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_PRPE_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_PRPE_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\n#\nCEDS_C3H8_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C3H8_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C3H8_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C3H8_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C3H8_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C3H8_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C3H8_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\n#\nCEDS_CH2O_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_CH2O_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_CH2O_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_CH2O_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_CH2O_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_CH2O_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_CH2O_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\n#\nCEDS_BENZ_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_BENZ_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_BENZ_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_BENZ_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_BENZ_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_BENZ_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_BENZ_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\n#\nCEDS_TOLU_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_TOLU_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_TOLU_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_TOLU_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_TOLU_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_TOLU_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_TOLU_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\n#\nCEDS_XYLE_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_XYLE_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_XYLE_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_XYLE_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_XYLE_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_XYLE_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_XYLE_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\n#\nCEDS_C2H4_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_C2H4_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_C2H4_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_C2H4_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_C2H4_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_C2H4_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_C2H4_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\n#\n#CEDS_C2H2_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#CEDS_C2H2_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#CEDS_C2H2_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#CEDS_C2H2_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#CEDS_C2H2_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#CEDS_C2H2_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#CEDS_C2H2_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\n#\nCEDS_HCOOH_AGR  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_agr          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_HCOOH_ENE  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_ene          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_HCOOH_IND  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_ind          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_HCOOH_TRA  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_tra          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_HCOOH_RCO  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_rco          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_HCOOH_SLV  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_slv          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_HCOOH_WST  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_wst          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\n#\nCEDS_C2H6_AGR   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_agr           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C2H6_ENE   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_ene           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C2H6_IND   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_ind           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C2H6_TRA   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_tra           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C2H6_RCO   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_rco           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C2H6_SLV   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_slv           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C2H6_WST   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_wst           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\n\n## CEDS SHIP emissions\nCEDS_CO_SHP     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CO_shp             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CO_anthro_CEDS_%y4.nc\nCEDS_NH3_SHP    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NH3_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NH3_anthro_CEDS_%y4.nc\nCEDS_BCPI_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BC_shp             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BC_anthro_CEDS_%y4.nc\nCEDS_OCPI_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none OC_shp             /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/OC_anthro_CEDS_%y4.nc\nCEDS_SO2_SHP    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none SO2_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/SO2_anthro_CEDS_%y4.nc\n#\nCEDS_MOH_SHP    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none EOH_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/EOH_anthro_CEDS_%y4.nc\nCEDS_C2H6_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H6_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H6_anthro_CEDS_%y4.nc\nCEDS_C3H8_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C3H8_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C3H8_anthro_CEDS_%y4.nc\nCEDS_C4H10_SHP  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_butanes_shp   /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_butanes_anthro_CEDS_%y4.nc\nCEDS_C5H12_SHP  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_pentanes_shp  /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_pentanes_anthro_CEDS_%y4.nc\nCEDS_C6H14_SHP  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALK4_hexanes_shp   /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALK4_hexanes_anthro_CEDS_%y4.nc\nCEDS_C2H4_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H4_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H4_anthro_CEDS_%y4.nc\nCEDS_PRPE_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none PRPE_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/PRPE_anthro_CEDS_%y4.nc\nCEDS_C2H2_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none C2H2_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/C2H2_anthro_CEDS_%y4.nc\nCEDS_BENZ_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none BENZ_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/BENZ_anthro_CEDS_%y4.nc\nCEDS_TOLU_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none TOLU_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/TOLU_anthro_CEDS_%y4.nc\nCEDS_XYLE_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none XYLE_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/XYLE_anthro_CEDS_%y4.nc\nCEDS_CH2O_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none CH2O_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/CH2O_anthro_CEDS_%y4.nc\nCEDS_ALD2_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none ALD2_shp           /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/ALD2_anthro_CEDS_%y4.nc\nCEDS_ACET_SHP   'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_MEK_SHP    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none MEK_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/MEK_anthro_CEDS_%y4.nc\nCEDS_HCOOH_SHP  'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none HCOOH_shp          /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/HCOOH_anthro_CEDS_%y4.nc\nCEDS_NO_SHP     'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\nCEDS_NO2_SHP    'kg_m-2_s-1' N Y %y4-%m2-01T00:00:00 none none NOx_shp            /discover/nobackup/kknowlan/Raw_Data/CEDS/CEDS_2021_Annual_0.1/NOx_anthro_CEDS_%y4.nc\n\nGEIA_NH3_NATU  'kg_m-2_s-1'     Y    Y 1990-%m2-01T00:00:00   none     none    NH3_NATU\t       /discover/nobackup/cakelle2/data/NH3.gen.1x1.nc\nSEABIRD_NH3    'kg_m-2_s-1'     Y    Y 1990-%m2-01T00:00:00   none     none    NH3_SEABIRDS    /discover/nobackup/cakelle2/data/NH3_Arctic_seabirds.nc\nEDGAR_NAP      'kgC_m-2_s-1'    N    Y -                      none     none    BENZ            /discover/nobackup/cakelle2/data/EDGAR2_1985_FF_IND.360x180.nc\n#\nLIANG_CHBr3    'kg_m2_s-1'      N    Y -  \t\t    none     none    CHBr3_emission    /discover/nobackup/cakelle2/data/Bromocarb_Liang2010.gen.1x1.nc\nLIANG_CH2Br2   'kg_m2_s-1'      N    Y -  \t\t    none     none    CH2Br2_emission   /discover/nobackup/cakelle2/data/Bromocarb_Liang2010.gen.1x1.nc\nCH4_GAS__1B2a  'kg_m2_s-1'      N    Y -  \t\t    none     none    ch4_1B2a\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_GAS__1B2b  'kg_m2_s-1'      N    Y -  \t\t    none     none    ch4_1B2b\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_COAL__1B1  'kg_m2_s-1'      N    Y -  \t\t    none     none    ch4_1B1\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_LIVESTOCK__4A 'kg_m2_s-1'   N    Y -  \t\t    none     none    ch4_4A\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_LIVESTOCK__4B 'kg_m2_s-1'   N    Y -  \t\t    none     none    ch4_4B\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_WASTE__6A_6C 'kg_m2_s-1'    N    Y -  \t\t    none     none    ch4_6A_6C         /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_WASTE__6B  'kg_m2_s-1'      N    Y -  \t\t    none     none    ch4_6B\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_BIOFUEL__1A4 'kg_m2_s-1'    N    Y -  \t\t    none     none    ch4_1A4\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_OTHER__1A1_1A2 'kg_m2_s-1'  N    Y -  \t\t    none     none    ch4_1A1_1A2       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_OTHER__1A3a_c_d_e 'kg_m2_s-1' N    Y -  \t\t    none     none    ch4_1A3a_c_d_e    /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_OTHER__1A3b 'kg_m2_s-1'     N    Y -  \t\t    none     none    ch4_1A3b\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_OTHER__2   'kg_m2_s-1'      N    Y -  \t\t    none     none    ch4_2\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_OTHER__7A  'kg_m2_s-1'      N    Y -  \t\t    none     none    ch4_7A\t       /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_SOILABSORBTION 'kg_m2_s-1'  N    Y -  \t\t    none     none    CH4\t       /discover/nobackup/cakelle2/data/CH4/soilabs.geos.2x25.esmf.nc\nCH4_TERMITES       'kg_m2_s-1'  N    Y -  \t\t    none     none    CH4\t       /discover/nobackup/cakelle2/data/CH4/termites.geos.2x25.esmf.nc\nCH4_WETL           'kg_m2_s-1'  N    Y %y4-%m2-01T00:00:00  none     none    ch4_wl            /discover/nobackup/lott/g5input/lpj_wetlands/lpj_merra2.ch4_wetlands.x576_y361.t14.%y4.nc 1980-01-01T00:00:00P0001-00-00T00:00:00\n#CH4_WETL       'kg_m-2_s-1'     N    Y 2013-%m2-01T00:00:00   none     none    ch4_wl          /discover/nobackup/lott/g5input/lpj_wetlands/lpj_merra2.ch4_wetlands.x576_y361.t14.2013.nc \nAEIC_NO        'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    NO2\t       /discover/nobackup/cakelle2/data/AEIC.72L.gen.1x1.nc\nAEIC_CO        'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    CO \t       /discover/nobackup/cakelle2/data/AEIC.72L.gen.1x1.nc\nAEIC_SO2       'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    FUELBURN\t       /discover/nobackup/cakelle2/data/AEIC.72L.gen.1x1.nc\nAEIC_ACET      'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    HC \t       /discover/nobackup/cakelle2/data/AEIC.72L.gen.1x1.nc\n### 132 LEVELS ###\n###AEIC_NO        'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    NO2\t       /discover/nobackup/cakelle2/data/AEIC.132L.gen.1x1.nc\n###AEIC_CO        'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    CO \t       /discover/nobackup/cakelle2/data/AEIC.132L.gen.1x1.nc\n###AEIC_SO2       'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    FUELBURN\t       /discover/nobackup/cakelle2/data/AEIC.132L.gen.1x1.nc\n###AEIC_ACET      'kg_m-2_s-1'     Y    Y 2005-%m2-01T00:00:00   none     none    HC \t       /discover/nobackup/cakelle2/data/AEIC.132L.gen.1x1.nc\n# halogen emissions\nORDONEZ_CH3I   'kg_m-2_s-1'     Y    Y 2012-%m2-01T00:00:00   none     none    CH3I            /home/cakelle2/data/ORDONEZ/newMAPL/CH3I_monthly_emissions_Ordonez_2012_COARDS.esmf.nc\nORDONEZ_CH2I2   'kg_m-2_s-1'    Y    Y 2012-%m2-01T00:00:00   none     none    CH2I2           /home/cakelle2/data/ORDONEZ/newMAPL/CH2I2_monthly_emissions_Ordonez_2012_COARDS.esmf.nc\nORDONEZ_CH2ICL   'kg_m-2_s-1'   Y    Y 2012-%m2-01T00:00:00   none     none    CH2ICl          /home/cakelle2/data/ORDONEZ/newMAPL/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.esmf.nc\nORDONEZ_CH2IBR   'kg_m-2_s-1'   Y    Y 2012-%m2-01T00:00:00   none     none    CH2IBr          /home/cakelle2/data/ORDONEZ/newMAPL/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.esmf.nc\n# QFED emissions \n# Boundary layer\nQFED_ACET_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_tf          /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_xf       /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_xf       /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_sv          /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_gl          /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ALD2_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALK4_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_BCPI_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_OCPI_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_C2H6_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C3H8_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_PRPE_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_CH2O_TF_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_TP_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_BO_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_SV_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_GL_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CO_TF_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_TP_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_BO_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_SV_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_GL_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_MEK_TF_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_TP_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_BO_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_SV_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_GL_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_NH3_TF_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_TP_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_BO_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_SV_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_GL_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NO_TF_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_TP_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_BO_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_SV_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_GL_SFC    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_SO2_TF_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_TP_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_BO_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_SV_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_GL_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\n#QFED_C3H6_SFC  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.85551 biomass               /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\n#QFED_CH4_SFC   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass        /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch4.006.%y4%m2%d2.nc4\n# Free troposphere\nQFED_ACET_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_tf           /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_xf       /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_xf       /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_sv           /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ACET_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.61984 biomass_gl           /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\nQFED_ALD2_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALD2_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.54484 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\nQFED_ALK4_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_ALK4_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.82588 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\nQFED_BCPI_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_BCPI_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\nQFED_OCPI_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_OCPI_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\nQFED_C2H6_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C2H6_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.79814 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\nQFED_C3H8_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_C3H8_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\nQFED_PRPE_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_PRPE_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.81633 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\nQFED_CH2O_TF_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_TP_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_BO_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_SV_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CH2O_GL_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\nQFED_CO_TF_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_TP_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_BO_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_SV_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_CO_GL_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\nQFED_MEK_TF_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_TP_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_BO_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_SV_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_MEK_GL_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.66565 biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\nQFED_NH3_TF_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_TP_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_BO_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_SV_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NH3_GL_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\nQFED_NO_TF_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_TP_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_BO_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_SV_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_NO_GL_FT    'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl   /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\nQFED_SO2_TF_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_tf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_TP_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_BO_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_xf     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_SV_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_sv     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\nQFED_SO2_GL_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass_gl     /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\n#QFED_C3H6_FT  'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none      0.85551 biomass        /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\n#QFED_CH4_FT   'kg_m-2_s-1'     N    Y %y4-%m2-%d1T12:00:00   none     none    biomass         /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch4.006.%y4%m2%d2.nc4\n\n#==============================================================================\n# --- Anthropogenic dust emissions (AFCID)---\n#==============================================================================\nPM25FINE_1     'kg_m-2_s-1'     Y    N 2015-%m2-01T00:00:00   none     none    PM25FINE        /discover/nobackup/projects/gmao/geos_cf_dev/gcc_inputs/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc\n\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n# CH3I_SEAWATER is commented out by default in HEMCO_Config.rc in CTM\n#==============================================================================\nDMS_SEAWATER    'kg/m3'         Y    Y 1985-%m2-01T00:00:00 none     none    DMS_OCEAN         /discover/nobackup/cakelle2/data/OCEAN/DMS_lana.geos.1x1.esmf.nc\nACET_SEAWATER   'kg/m3'         N    Y -                    none     none    ACET              /discover/nobackup/cakelle2/data/OCEAN/ACET_seawater.generic.1x1.esmf.nc\nALD2_SEAWATER   'kg/m3'         Y    Y 1985-%m2-01T00:00:00 none     none    ALD2              /discover/nobackup/cakelle2/data/OCEAN/ALD2_seawater.geos.2x25.esmf.nc\nMENO3_SEAWATER  'kg/m3'         Y    Y 2006-%m2-01T00:00:00 none     none    MENO3             /discover/nobackup/ewlundgr/data/ExtData/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc\nETNO3_SEAWATER  'kg/m3'         Y    Y 2006-%m2-01T00:00:00 none     none    ETNO3             /discover/nobackup/ewlundgr/data/ExtData/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc\nMOH_SEAWATER kgC/m3 N Y - none none MOH /discover/nobackup/ewlundgr/data/ExtData/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc\n\n# scale factors\nLIQFUEL_THISYR       '1'        N    N -  \t\t    none     none    COscalar\t       /discover/nobackup/cakelle2/data/AnnualScalar.gen.1x1.2010.nc\nLIQFUEL_1985         '1'        N    N -  \t\t    none     none    COscalar\t       /discover/nobackup/cakelle2/data/AnnualScalar.gen.1x1.1985.nc\nBROMOCARB_SEASON     '1'        Y    N 2000-%m2-01T00:01:00   none     none    CHXBRY_scale      /discover/nobackup/cakelle2/data/BromoCarb_Season.esmf.nc\nALD2_PLANTDECAY  'kgC/m2/s'      Y    Y 1985-%m2-01T00:00:00 none     none    HET_RESP          /discover/nobackup/cakelle2/data/resp.geos.2x25.esmf.nc\nDEAD_EF_GEO          '1'        N    N -  \t\t    none     none    EF_GEO\t       /discover/nobackup/cakelle2/data/dst_tibds.esmf.2x25.nc\nDEAD_LF_DRY          '1'        N    N -  \t\t    none     none    LF_DRY\t       /discover/nobackup/cakelle2/data/dst_tibds.esmf.2x25.nc\nDEAD_MF_CACO3        '1'        N    N -  \t\t    none     none    MF_CaCO3\t       /discover/nobackup/cakelle2/data/dst_tibds.esmf.2x25.nc\nDEAD_MF_CLY          '1'        N    N -  \t\t    none     none    MF_CLY\t       /discover/nobackup/cakelle2/data/dst_tibds.esmf.2x25.nc\nDEAD_MF_SND          '1'        N    N -  \t\t    none     none    MF_SND\t       /discover/nobackup/cakelle2/data/dst_tibds.esmf.2x25.nc\nDEAD_GOC_SRC         '1'        N    N -  \t\t    none     none    GOC_SRC\t       /discover/nobackup/cakelle2/data/GOCART_src_fn.esmf.2x25.nc\nDEAD_VAI             '1'        Y    N 1985-%m2-01T00:00:00   none     none    VAI\t       /discover/nobackup/cakelle2/data/dst_tvbds.esmf.2x25.nc\nMULTISEAICE          '1'        N    Y F%y4-%m2-%d2T00:00:00 none    none    FRSEAICE          /discover/nobackup/ewlundgr/data/ExtData/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.%y4.nc\nMEGAN_AEF_ISOP_GCC 'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_ISOPRENE      /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nMEGAN_AEF_MBOX_GCC  'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_MBO\t       /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nMEGAN_AEF_BPIN_GCC  'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_BETA_PINENE   /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nMEGAN_AEF_CARE_GCC  'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_CARENE        /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nMEGAN_AEF_LIMO_GCC  'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_LIMONENE      /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nMEGAN_AEF_OCIM_GCC  'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_OCIMENE       /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nMEGAN_AEF_SABI_GCC  'kgC/m2/s'      N    Y -  \t\t    none     none    AEF_SABINENE      /discover/nobackup/cakelle2/data/MEGAN_20180519/MEGAN2.1_EF.geos.025x03125.esmf.nc\nCLM4_PFT_BARE_GCC      '1'          N    N -  \t\t    none     none    PFT_BARE\t       /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t \nCLM4_PFT_NDLF_EVGN_TMPT_TREE_GCC '1' N    N - \t\t     none     none    PFT_NDLF_EVGN_TMPT_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_NDLF_EVGN_BORL_TREE_GCC '1' N    N - \t\t     none     none    PFT_NDLF_EVGN_BORL_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_NDLF_DECD_BORL_TREE_GCC '1' N    N - \t\t     none     none    PFT_NDLF_DECD_BORL_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_EVGN_TROP_TREE_GCC '1' N    N - \t\t     none     none    PFT_BDLF_EVGN_TROP_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_EVGN_TMPT_TREE_GCC '1' N    N - \t\t     none     none    PFT_BDLF_EVGN_TMPT_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_DECD_TROP_TREE_GCC '1' N    N - \t\t     none     none    PFT_BDLF_DECD_TROP_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_DECD_TMPT_TREE_GCC '1' N    N - \t\t     none     none    PFT_BDLF_DECD_TMPT_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_DECD_BORL_TREE_GCC '1' N    N - \t\t     none     none    PFT_BDLF_DECD_BORL_TREE /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_EVGN_SHRB_GCC      '1' N    N - \t\t     none     none    PFT_BDLF_EVGN_SHRB      /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_DECD_TMPT_SHRB_GCC '1' N    N - \t\t     none     none    PFT_BDLF_DECD_TMPT_SHRB /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_BDLF_DECD_BORL_SHRB_GCC '1' N    N - \t\t     none     none    PFT_BDLF_DECD_BORL_SHRB /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_C3_ARCT_GRSS_GCC        '1' N    N - \t\t     none     none    PFT_C3_ARCT_GRSS        /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_C3_NARC_GRSS_GCC        '1' N    N - \t\t     none     none    PFT_C3_NARC_GRSS        /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_C4_GRSS_GCC             '1' N    N - \t\t     none     none    PFT_C4_GRSS\t      /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nCLM4_PFT_CROP_GCC                '1' N    N - \t\t     none     none    PFT_CROP  \t      /discover/nobackup/cakelle2/data/MEGAN_20180519/CLM4_PFT.geos.025x03125.esmf.nc\t\nMEGAN_ORVC_GCC       'kgC/m2/s'      Y    Y 1999-%m2-01T00:00:00 none     none    OCPI                    /discover/nobackup/cakelle2/data/NVOC.geos.1x1.esmf.nc\nSOILNOX_FERT      'kg/m3'       N    Y 2000-%m2-%d2T00:00:00  none     none    FERT\t       /discover/nobackup/cakelle2/data/soilNOx.fert_res.generic.05x05.nc\nSOILNOX_LANDK1     '1'          N    N -  \t\t    none     none    LANDFRAC_K01      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK2     '1'          N    N -  \t\t    none     none    LANDFRAC_K02      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK3     '1'          N    N -  \t\t    none     none    LANDFRAC_K03      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK4     '1'          N    N -  \t\t    none     none    LANDFRAC_K04      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK5     '1'          N    N -  \t\t    none     none    LANDFRAC_K05      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK6     '1'          N    N -  \t\t    none     none    LANDFRAC_K06      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK7     '1'          N    N -  \t\t    none     none    LANDFRAC_K07      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK8     '1'          N    N -  \t\t    none     none    LANDFRAC_K08      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK9     '1'          N    N -  \t\t    none     none    LANDFRAC_K09      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK10    '1'          N    N -  \t\t    none     none    LANDFRAC_K10      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK11    '1'          N    N -  \t\t    none     none    LANDFRAC_K11      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK12    '1'          N    N -  \t\t    none     none    LANDFRAC_K12      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK13    '1'          N    N -  \t\t    none     none    LANDFRAC_K13      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK14    '1'          N    N -  \t\t    none     none    LANDFRAC_K14      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK15    '1'          N    N -  \t\t    none     none    LANDFRAC_K15      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK16    '1'          N    N -  \t\t    none     none    LANDFRAC_K16      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK17    '1'          N    N -  \t\t    none     none    LANDFRAC_K17      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK18    '1'          N    N -  \t\t    none     none    LANDFRAC_K18      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK19    '1'          N    N -  \t\t    none     none    LANDFRAC_K19      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK20    '1'          N    N -  \t\t    none     none    LANDFRAC_K20      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK21    '1'          N    N -  \t\t    none     none    LANDFRAC_K21      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK22    '1'          N    N -  \t\t    none     none    LANDFRAC_K22      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK23    '1'          N    N -  \t\t    none     none    LANDFRAC_K23      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_LANDK24    '1'          N    N -  \t\t    none     none    LANDFRAC_K24      /discover/nobackup/cakelle2/data/soilNOx.landtype.generic.025x025.1L.nc\nSOILNOX_ARID       '1'          N    N -  \t\t    none     none    ARID\t       /discover/nobackup/cakelle2/data/soilNOx.climate.generic.05x05.nc\nSOILNOX_NONARID    '1'          N    N -  \t\t    none     none    NON_ARID\t       /discover/nobackup/cakelle2/data/soilNOx.climate.generic.05x05.nc\n#\nCH4_RICE           'kg_m2_s-1'  N    Y -  \t\t    none     none    ch4_4C_4D         /discover/nobackup/cakelle2/data/CH4/v42_CH4.0.1x0.1.2008.esmf.nc\nCH4_GWET_YR        '1'          N    N -  \t\t    none     none    GWETTOP\t       /discover/nobackup/cakelle2/data/CH4/GWETTOP.annual.geos5.2x25.esmf.nc\nCH4_GWET_MT        '1'          Y    N 2011-%m2-01T00:00:00   none     none    GWETTOP\t       /discover/nobackup/cakelle2/data/CH4/GWETTOP.monthly.geos5.2x25.esmf.nc\nCH4_MEAN_T         '1'          N    N -  \t\t    none     none    TSKIN\t       /discover/nobackup/cakelle2/data/CH4/TSKIN.annual.geos5.2x25.esmf.nc\nCH4_WETFRAC        '1'          N    N -  \t\t    none     none    WETFRAC\t       /discover/nobackup/cakelle2/data/CH4/Wetfrac.2x25.esmf.nc\nCH4_LITTER_C       'kg_m2_s-1'  N    Y -  \t\t    none     none    CARBON\t       /discover/nobackup/cakelle2/data/CH4/Carbon_litter.2x25.esmf.nc\nCH4_SOIL_C         'kg_m2_s-1'  N    Y -  \t\t    none     none    CARBON\t       /discover/nobackup/cakelle2/data/CH4/Carbon_soil.2x25.esmf.nc\n\n# --- Stratospheric Bry data ---\nGEOSCCM_Br_DAY     '1'          Y   N 2005-%m2-01T00:00:00   none     none    BR  \t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.day.esmf.nc\nGEOSCCM_Br2_DAY    '1'          Y   N 2005-%m2-01T00:00:00   none     none    BRCL\t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.day.esmf.nc\nGEOSCCM_BrO_DAY    '1'          Y   N 2005-%m2-01T00:00:00   none     none    BRO \t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.day.esmf.nc\nGEOSCCM_BrNO3_DAY  '1'          Y   N 2005-%m2-01T00:00:00   none     none    BRONO2\t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.day.esmf.nc\nGEOSCCM_HBr_DAY    '1'          Y   N 2005-%m2-01T00:00:00   none     none    HBR \t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.day.esmf.nc\nGEOSCCM_HOBr_DAY   '1'          Y   N 2005-%m2-01T00:00:00   none     none    HOBR\t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.day.esmf.nc\nGEOSCCM_Br_NIGHT   '1'          Y   N 2005-%m2-01T00:00:00   none     none    BR  \t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.night.esmf.nc\nGEOSCCM_Br2_NIGHT  '1'          Y   N 2005-%m2-01T00:00:00   none     none    BRCL\t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.night.esmf.nc\nGEOSCCM_BrO_NIGHT  '1'          Y   N 2005-%m2-01T00:00:00   none     none    BRO \t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.night.esmf.nc\nGEOSCCM_BrNO3_NIGHT '1'         Y   N 2005-%m2-01T00:00:00   none     none    BRONO2\t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.night.esmf.nc\nGEOSCCM_HBr_NIGHT  '1'          Y   N 2005-%m2-01T00:00:00   none     none    HBR \t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.night.esmf.nc\nGEOSCCM_HOBr_NIGHT '1'          Y   N 2005-%m2-01T00:00:00   none     none    HOBR\t      /discover/nobackup/cakelle2/data/Bry/GEOSCCM_Bry.2007.night.esmf.nc\n\n# --- OH concentrations ---\nSTRAT_OH           '1'          Y   N 2005-%m2-01T00:00:00   none     none    species\t      /discover/nobackup/cakelle2/data/GMI/gmi.clim.OH.geos5.2x25.esmf.nc\n\n# --- NOAA GMD surface CH4 concentrations ---\nNOAA_GMD_CH4       'v/v'        N   N %y4-%m2-01T00:00:00    none     none    SFC_CH4         /discover/nobackup/cakelle2/data/NOAA_GMD/monthly.gridded.surface.methane.1979-2024.1x1.nc\n#NOAA_GMD_CH4       'v/v'        N   N %y4-%m2-01T00:00:00    none     none    SFC_CH4         /discover/nobackup/cakelle2/data/NOAA_GMD/monthly.gridded.surface.methane.1979-2020.1x1.nc\n\n# --- Spatially varying OM/OC ---\nOMOC_DJF           '1'          N   N -                      none     none    OMOC            /discover/nobackup/cakelle2/data/OMOC/OMOC.DJF.01x01.nc\nOMOC_MAM           '1'          N   N -                      none     none    OMOC            /discover/nobackup/cakelle2/data/OMOC/OMOC.MAM.01x01.nc\nOMOC_JJA           '1'          N   N -                      none     none    OMOC            /discover/nobackup/cakelle2/data/OMOC/OMOC.JJA.01x01.nc\nOMOC_SON           '1'          N   N -                      none     none    OMOC            /discover/nobackup/cakelle2/data/OMOC/OMOC.SON.01x01.nc\n\n# --- UV albedo ---\nUV_ALBEDO          '1'          Y   N 1985-%m2-01T00:00:00   none     none    UVALBD\t      /discover/nobackup/cakelle2/data/uvalbedo.geos.2x25.nc\n\n#==============================================================================\n# --- Surface VMR (SfcVMR) ---\n#==============================================================================\nSfcVMR_CH3Cl  ppbv N Y F%y4-%m2-01T00:00:00 none none CH3Cl  /discover/nobackup/ewlundgr/data/ExtData/CMIP6/v2020-03/CMIP6_GHG_surface_VMR_%y4.nc\nSfcVMR_CH2Cl2 ppbv N Y F%y4-%m2-01T00:00:00 none none CH2Cl2 /discover/nobackup/ewlundgr/data/ExtData/CMIP6/v2020-03/CMIP6_GHG_surface_VMR_%y4.nc\nSfcVMR_CHCl3  ppbv N Y F%y4-%m2-01T00:00:00 none none CHCl3  /discover/nobackup/ewlundgr/data/ExtData/CMIP6/v2020-03/CMIP6_GHG_surface_VMR_%y4.nc\nSfcVMR_CH3Br  ppbv N Y F%y4-%m2-01T00:00:00 none none CH3Br  /discover/nobackup/ewlundgr/data/ExtData/CMIP6/v2020-03/CMIP6_GHG_surface_VMR_%y4.nc\n#\nSfcVMR_CCl4     v/v  N Y F%y4-%m2-01T00:00:00 none none CCl4     /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_CFC113   v/v  N Y F%y4-%m2-01T00:00:00 none none CFC113   /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_CFC114   v/v  N Y F%y4-%m2-01T00:00:00 none none CFC114   /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_CFC115   v/v  N Y F%y4-%m2-01T00:00:00 none none CFC115   /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_CFC11    v/v  N Y F%y4-%m2-01T00:00:00 none none CFC11    /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_CFC12    v/v  N Y F%y4-%m2-01T00:00:00 none none CFC12    /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_CH3CCl3  v/v  N Y F%y4-%m2-01T00:00:00 none none CH3CCl3  /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_H1211    v/v  N Y F%y4-%m2-01T00:00:00 none none H1211    /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_H1301    v/v  N Y F%y4-%m2-01T00:00:00 none none H1301    /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_H2402    v/v  N Y F%y4-%m2-01T00:00:00 none none C2BR2F4  /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_HCFC141b v/v  N Y F%y4-%m2-01T00:00:00 none none HCFC141b /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_HCFC142b v/v  N Y F%y4-%m2-01T00:00:00 none none HCFC142b /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_HCFC22   v/v  N Y F%y4-%m2-01T00:00:00 none none HCFC22   /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\nSfcVMR_N2O      v/v  N Y F%y4-%m2-01T00:00:00 none none N2O      /discover/nobackup/cakelle2/data/SfcFix/v2019-12/WMO_2018/surface_VMRs_WMO2018_%y4.nc\n#\nSfcVMR_OCS ppbv N Y - none none OCS /discover/nobackup/ewlundgr/data/ExtData/SfcFix/v2019-12/surface_VMR_OCS.nc\nSfcVMR_H2  ppbv N Y - none none H2  /discover/nobackup/ewlundgr/data/ExtData/SfcFix/v2019-12/surface_VMR_H2.nc\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#==============================================================================\nsurf_salinity '1' N Y - none none s_mn                  /discover/nobackup/cakelle2/data/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc\nsurf_iodide    '1' Y Y 1970-%m2-01T00:00:00 none none Ensemble_Monthly_mean /discover/nobackup/cakelle2/data/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc\n\n# --- Analyzed tracer field increments ---\nINC_O3          'mol/mol'    N   N -\t\t           none     1.0e-6  ozone\t\t/dev/null \n\n# --- Vertical scale factors ---\nCEDS_VSCAL_ENERGY   1 Y N 2005-%m-01T00:00:00 none none vscal_energy   /discover/nobackup/projects/gmao/geos_cf_dev/gcc_inputs/CEDS/CEDS_vertical_emiss_factors.nc\nCEDS_VSCAL_INDUSTRY 1 Y N 2005-%m-01T00:00:00 none none vscal_industry /discover/nobackup/projects/gmao/geos_cf_dev/gcc_inputs/CEDS/CEDS_vertical_emiss_factors.nc\nCEDS_VSCAL_SHIP     1 Y N 2005-%m-01T00:00:00 none none vscal_ship     /discover/nobackup/projects/gmao/geos_cf_dev/gcc_inputs/CEDS/CEDS_vertical_emiss_factors.nc\n\n# --- FP assimilated O3 \nANA_O3  'kg/kg' N N 0 none none O3 /discover/nobackup/projects/gmao/yotc/pub/fp/das/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2018-01-01T01:30:00P03:00\n\n# QFED2 mask for extratropical forests (temperate vs. boreal)\nQFED2_TEMPERATE     '1'          N   N -                      none     none    qfed2_temperate /discover/nobackup/cakelle2/data/qfed2_forest_mask.nc4\nQFED2_BOREAL        '1'          N   N -                      none     none    qfed2_boreal    /discover/nobackup/cakelle2/data/qfed2_forest_mask.nc4\n\n# GEOS_CH4\nGEOS_CH4        'mol/mol'    N   N -\t\t           none     none    CH4_total_dry     /dev/null \n#GEOS_CH4        'mol/mol'    N   N -\t\t           none     none    CH4_total_dry     /discover/nobackup/projects/gmao/geos_carb/sbasu1/runs/GCM/Jason_10.18.0_carbon_c90/holding/methane_tags/Jason_10.18.0_carbon_c90.methane_tags.%y4%m2%d2_%h200z.nc 2001-01-01T00:00:00P0000-00-00T03:00:00\n\n# Masks\nDEAD_SFC_TYP  NA  N V - none none  SFC_TYP    /discover/nobackup/cakelle2/data/dst_tibds.esmf.2x25.nc\nTIMEZONES     NA  N V - none none  UTC_OFFSET /discover/nobackup/cakelle2/data/timezones_esmf.2x25.nc\nAF_MASK       NA  N V - none none  LANDMASK   /discover/nobackup/cakelle2/data/DICE/mask/AF_LANDMASK.025x025.nc\n# -----------|--------------|-----|---|----------------------|--------|-------|-----------------|----------------------   \n%%\n\nDerivedExports%%\n# ---------|---------|--------------------------------------------|\n#  Export  | Primary |_________________ Mask _____________________|\n#  Name    |  Name   |    Name    |           Expression          |    \n# ---------|---------|------------|-------------------------------|\n# ---------|---------|------------|-------------------------------|\n%%\n"
  },
  {
    "path": "run/GEOS/GEOSCHEMchem_ExtData.yaml",
    "content": "Samplings:\n  gcc_persist:           {extrapolation: persist_closest}\n  gcc_daily:             {update_reference_time: \"0\", update_frequency: PT24H, update_offset: PT12H}\n  gcc_daily_clim:        {update_reference_time: \"0\", update_frequency: PT24H, time_interpolation: False, extrapolation: clim}\n  gcc_8day_interp_clim:  {update_reference_time: \"0\", update_frequency: P8D, update_offset: P1D, time_interpolation: True, extrapolation: clim}\n  gcc_3hr:               {time_interpolation: True, extrapolation: clim}\n  gcc_monthly_clim:      {update_reference_time: \"0\", update_frequency: P1M, time_interpolation: False, extrapolation: clim}\n  geosit_sample:         {update_offset: PT900S, exact: True}\n\nCollections:\n  GCC_ACET_seawater:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN/v0.0.0/sfc/ACET_seawater.generic.1x1.esmf.nc\n  GCC_ALD2_seawater:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN/v0.0.0/sfc/ALD2_seawater_x144_y91_t12.2006.nc\n  GCC_DMS_lana:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN/v0.0.0/sfc/DMS_lana_x360_y180_t12.1985.nc\n  GEOSCHEMchem_AEIC:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/AEIC/v0.0.0/L72/AEIC_x360_y180_z72_t12.2005.nc\n  GEOSCHEMchem_AF_LANDMASK:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/Masks/v0.0.0/sfc/AF_LANDMASK.025x025.nc\n  GEOSCHEMchem_resp:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/PlantDecay/v0.0.0/sfc/resp.geos_x144_y91_t12.1985.nc \n  GEOSCHEMchem_Bromocarb_Liang2010:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/BromoCarb/Liang/v0.0.0/Bromocarb_Liang2010.gen.1x1.nc\n  GEOSCHEMchem_BromoCarb_Season:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ScaleFactors/v0.0.0/sfc/BromoCarb_Season_x360_y180_t12.2000.nc\n  GEOSCHEMchem_ALD2_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/ALD2_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_ALK4_butanes_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/ALK4_butanes_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_ALK4_hexanes_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/ALK4_hexanes_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_ALK4_pentanes_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/ALK4_pentanes_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_BC_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/BC_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_BENZ_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/BENZ_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_C2H2_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/C2H2_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_C2H4_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/C2H4_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_C2H6_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/C2H6_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_C3H8_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/C3H8_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_CH2O_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/CH2O_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_CO_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/CO_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_EOH_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/EOH_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_HCOOH_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/HCOOH_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_NH3_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/NH3_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_NO_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/NO_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_MEK_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/MEK_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_SO2_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/SO2_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_TOLU_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/TOLU_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_XYLE_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/XYLE_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_OC_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/OC_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_PRPE_anthro_CEDS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-04-21-corrected/PRPE_anthro_CEDS_x3600_y1800_t12.%y4.nc\n    valid_range: \"2000-01-01T00:00/2019-12-01T00:00\"\n  GEOSCHEMchem_CEDS_vertical_emiss_factors:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ScaleFactors/v0.0.0/L72/CEDS_vertical_emiss_factors.nc\n  GEOSCHEMchem_CLM4_PFT:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/CLM4_PFT.geos.025x03125.esmf.nc\n  GEOSCHEMchem_GOCART_src_fn:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/GOCART_src_fn.esmf.2x25.nc\n  GEOSCHEMchem_dst_tibds:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/dst_tibds.esmf.2x25.nc \n  GEOSCHEMchem_dst_tvbds:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/dst_tvbds.esmf.2x25.nc\n  GEOSCHEMchem_TOMS_O3col:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/GCHP_data/TOMS_O3col_2010.a.geos.1x1.nc\n  GEOSCHEMchem_EDGAR2_1985_FF_IND:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ScaleFactors/v0.0.0/sfc/EDGAR2_1985_FF_IND.360x180.nc\n  GEOSCHEMchem_RONO2_seawater:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN/v0.0.0/sfc/RONO2_seawater_x144_y91_t12.2006.nc\n  GEOSCHEMchem_NH3:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEIA/v0.0.0/sfc/NH3.gen.1x1.nc\n  GEOSCHEMchem_GEOSCCM_Bry_day:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Bry/GEOSCCM_Bry.2007.day.esmf.nc\n  GEOSCHEMchem_GEOSCCM_Bry_night:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Bry/GEOSCCM_Bry.2007.night.esmf.nc\n  GEOSCHEMchem_AnnualScalar_1985:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ScaleFactors/v0.0.0/sfc/AnnualScalar.gen.1x1.1985.nc\n  GEOSCHEMchem_AnnualScalar_2010:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ScaleFactors/v0.0.0/sfc/AnnualScalar.gen.1x1.2010.nc\n  GEOSCHEMchem_NVOC:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/NVOC.geos.1x1.esmf.nc\n  GEOSCHEMchem_MEGAN2.1_EF:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/MEGAN2.1_EF.geos.025x03125.esmf.nc\n  GEOSCHEMchem_MOH_seawater:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN/v0.0.0/sfc/MOH_seawater.low.kgCm3.generic.1x1.nc\n  GEOSCHEMchem_multiyearice:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/MULTI_ICE/2021-07/multiyearice.merra2.05x0625.%y4.nc\n    valid_range: \"1980-01-01T00:00/2020-12-31T00:00\"\n  GEOSCHEMchem_monthly.gridded.surface.methane:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/NOAA_GMD/monthly.gridded.surface.methane.1979-2024.1x1.nc\n    valid_range: \"1979-01-01T00:00/2024-12-01T00:00\"\n  GEOSCHEMchem_Olson_2001_Land_Map:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/Masks/v0.0.0/sfc/Olson_2001_Land_Map.2x25.nc\n  GEOSCHEMchem_CH2I2_monthly_emissions_Ordonez:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/BromoCarb/ORDONEZ/v0.0.0/sfc/CH2I2_monthly_emissions_Ordonez_x360_y180_t12.2000.nc\n  GEOSCHEMchem_CH2IBr_monthly_emissions_Ordonez:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/BromoCarb/ORDONEZ/v0.0.0/sfc/CH2IBr_monthly_emissions_Ordonez_x360_y180_t12.2000.nc\n  GEOSCHEMchem_CH2ICl_monthly_emissions_Ordonez:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/BromoCarb/ORDONEZ/v0.0.0/sfc/CH2ICl_monthly_emissions_Ordonez_x360_y180_t12.2000.nc\n  GEOSCHEMchem_CH3I_monthly_emissions_Ordonez:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/BromoCarb/ORDONEZ/v0.0.0/sfc/CH3I_monthly_emissions_Ordonez_x360_y180_t12.2000.nc\n  GEOSCHEMchem_PM25FINE_ECLIPSE:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/AFCID/v2018-04/sfc/PM25FINE_ECLIPSE_x144_y91_t12.2015.nc\n  GEOSCHEMchem_qfed2_forest_mask:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/Masks/v0.0.0/sfc/qfed2_forest_mask.nc4\n  GEOSCHEMchem_qfed2.emis_acet_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_acet_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_acet.061.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_ald2_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_ald2_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ald2.061.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_alk4_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_alk4_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_alk4.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_bc_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_bc_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_bc.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_c2h6_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_c2h6_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c2h6.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_c3h6_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_c3h6_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h6.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_c3h8_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_c3h8_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_c3h8.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_ch2o_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_ch2o_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_ch2o.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_co_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_co_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_co.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_mek_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_mek_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_mek.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_nh3_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_nh3_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_nh3.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_no_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_no_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_no.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_oc_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_oc_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_oc.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_so2_006:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\n    valid_range: \"2014-12-01T12:00/2021-11-01T12:00\"\n  GEOSCHEMchem_qfed2.emis_so2_061:\n    template: /discover/nobackup/projects/gmao/share/dao_ops/fvInput_nc3/PIESA/sfc/QFED/NRT/v2.5r1_0.1_deg/Y%y4/M%m2/qfed2.emis_so2.006.%y4%m2%d2.nc4\n    valid_range: \"2021-11-01T12:00/2025-01-01T12:00\"\n  GEOSCHEMchem_NH3_Arctic_seabirds:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/SEABIRDS/v0.0.0/sfc/NH3_Arctic_seabirds_x1440_y720_t12.1990.nc\n  GEOSCHEMchem_soilNOx_climate:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/soilNOx.climate.generic.05x05.nc\n  GEOSCHEMchem_soilNOx_fert_res:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/soilNOx.fert_res.generic.05x05.nc\n    valid_range: \"2000-01-01T00:00/2000-12-31T00:00\"\n  GEOSCHEMchem_soilNOx_landtype:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/soilNOx.landtype.generic.025x025.1L.nc\n  GEOSCHEMchem_gmi.clim.OH:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/GMI/gmi.clim.OH.geos5.2x25.esmf.nc\n  GEOSCHEMchem_surface_VMRs_WMO2018:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/surface_VMR/WMO_2018/v2019-12/surface_VMRs_WMO2018_x360_y180_%y4.nc \n    valid_range: \"2010-01-01T00:00/2020-12-01T00:00\"\n  GEOSCHEMchem_CMIP6_GHG_surface_VMR:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/surface_VMR/CMIP6/v2020-03/sfc/CMIP6_GHG_surface_VMR_x360_y180_%y4.nc\n    valid_range: \"2010-01-01T00:00/2014-12-01T00:00\"\n  GEOSCHEMchem_surface_VMR_H2:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/surface_VMR/SfcFix/v2019-12/surface_VMR_H2_x360_y180.nc\n  GEOSCHEMchem_surface_VMR_OCS:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/surface_VMR/SfcFix/v2019-12/surface_VMR_OCS_x360_y180.nc\n  GEOSCHEMchem_timezones:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/timezones_esmf.2x25.nc\n  GEOSCHEMchem_uvalbedo:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/UV_ALBEDO/uvalbedo.geos.2x25.nc\n  GEOSCHEMchem_Condensed_Yuan_proc_MODIS_XLAI:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Yuan_XLAI/v2021-06/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n    valid_range: \"2000-01-01T00:00/2040-12-31T00:00\"\n  GEOSCHEMchem_Oi_prj_predicted_iodide:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN_O3_DRYDEP/v2020-02/orig/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc\n  GEOSCHEMchem_WOA_2013_salinity:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/OCEAN_O3_DRYDEP/v2020-02/orig/WOA_2013_salinity.nc\n  GEOSCHEMchem_AEIC19_MONMEAN:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/AEIC2019/v2022-03/2019_monmean/72LGEOS/AEIC_monmean_2019_t12.0.5x0.625.72LGEOS.nc\n  Jason_10.18.0_carbon_c90:\n    template: /css/gmao/geos_carb/share/ExtData/CFv2/methane_tags/%y4%m2/Jason_10.18.0_carbon_c90.methane_tags.%y4%m2%d2_%h200z.nc\n    ref_time: \"2001-01-01T00:00\"\n    freq: \"PT3H\"\n    valid_range: \"2001-01-01T00:00/2020-12-31T21:00\"\n  Jason_10.18.0_carbon_c90_2023:\n    template: /discover/nobackup/projects/gmao/geos_carb/sbasu1/runs/GCM/Jason_10.18.0_carbon_c90_2023/holding/methane_tags/%y4%m2/Jason_10.18.0_carbon_c90_2023.methane_tags.%y4%m2%d2_%h200z.nc\n    ref_time: \"2001-01-01T00:00\"\n    freq: \"PT3H\"\n    valid_range: \"2001-01-01T00:00/2021-12-31T21:00\"\n  GEOSCHEMchem_CH4_scaling:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CH4/v0.0.0/ch4_offset_to_2021_x144_y91_%y4%m2.nc\n    valid_range: \"2021-01-01T00:00/2050-12-01T00:00\"\n    ref_time: \"2021-01-01T00:00\"\n    freq: \"P1M\"\n  GCC_CMAM_CO:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CMAM/v0.0.0/vmrco_monChem_CMAM_CMAM30-SD_r1i1p1.monthly_clim_0.015hPa.1979_2010.nc\n\nExports:\n  ACET_SEAWATER:\n    collection: GCC_ACET_seawater\n    regrid: CONSERVE\n    sample: gcc_persist \n    variable: ACET\n  ALD2_SEAWATER:\n    collection: GCC_ALD2_seawater\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2\n  DMS_SEAWATER:\n    collection: GCC_DMS_lana\n    regrid: CONSERVE\n    sample: gcc_monthly_clim \n    variable: DMS_OCEAN\n  ETNO3_SEAWATER:\n    collection: GEOSCHEMchem_RONO2_seawater\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ETNO3\n  MENO3_SEAWATER:\n    collection: GEOSCHEMchem_RONO2_seawater\n    regrid: CONSERVE\n    sample: gcc_monthly_clim \n    variable: MENO3\n  MOH_SEAWATER:\n    collection: GEOSCHEMchem_MOH_seawater\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: MOH\n  AEIC_ACET:\n    collection: GEOSCHEMchem_AEIC\n    regrid: CONSERVE\n    sample: gcc_monthly_clim \n    variable: HC\n  AEIC_CO:\n    collection: GEOSCHEMchem_AEIC\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO\n  AEIC_NO:\n    collection: GEOSCHEMchem_AEIC\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO2\n  AEIC_SO2:\n    collection: GEOSCHEMchem_AEIC\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: FUELBURN\n  AEIC19_MONMEAN_NO:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: NO\n  AEIC19_MONMEAN_NO2:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: NO2\n  AEIC19_MONMEAN_HONO:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: HONO\n  AEIC19_MONMEAN_CO:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: CO\n  AEIC19_MONMEAN_SO2:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: FUELBURN\n  AEIC19_MONMEAN_BCPI:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: BC\n  AEIC19_MONMEAN_OCPI:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: OC\n  AEIC19_MONMEAN_ACET:\n   collection: GEOSCHEMchem_AEIC19_MONMEAN\n   regrid: CONSERVE\n   sample: gcc_monthly_clim\n   variable: HC\n  AF_MASK:\n    collection: GEOSCHEMchem_AF_LANDMASK\n    regrid: VOTE\n    sample: gcc_persist \n    variable: LANDMASK\n  ALD2_PLANTDECAY:\n    collection: GEOSCHEMchem_resp\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HET_RESP\n  LIANG_CH2Br2:\n    collection: GEOSCHEMchem_Bromocarb_Liang2010\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: CH2Br2_emission\n  LIANG_CHBr3:\n    collection: GEOSCHEMchem_Bromocarb_Liang2010\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: CHBr3_emission\n  BROMOCARB_SEASON:\n    collection: GEOSCHEMchem_BromoCarb_Season\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CHXBRY_scale\n  CEDS_ACET_AGR:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_agr\n  CEDS_ACET_ENE:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_ene\n  CEDS_ACET_IND:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_ind\n  CEDS_ACET_RCO:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_rco\n  CEDS_ACET_SHP:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_shp\n  CEDS_ACET_SLV:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_slv\n  CEDS_ACET_TRA:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_tra\n  CEDS_ACET_WST:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_wst\n  CEDS_ALD2_AGR:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_agr\n  CEDS_ALD2_ENE:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_ene\n  CEDS_ALD2_IND:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_ind\n  CEDS_ALD2_RCO:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_rco\n  CEDS_ALD2_SHP:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_shp\n  CEDS_ALD2_SLV:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_slv\n  CEDS_ALD2_TRA:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_tra\n  CEDS_ALD2_WST:\n    collection: GEOSCHEMchem_ALD2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALD2_wst\n  CEDS_BCPI_AGR:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_agr\n  CEDS_BCPI_ENE:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_ene\n  CEDS_BCPI_IND:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_ind\n  CEDS_BCPI_RCO:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_rco\n  CEDS_BCPI_SHP:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_shp\n  CEDS_BCPI_SLV:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_slv\n  CEDS_BCPI_TRA:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_tra\n  CEDS_BCPI_WST:\n    collection: GEOSCHEMchem_BC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BC_wst\n  CEDS_BENZ_AGR:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_agr\n  CEDS_BENZ_ENE:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_ene\n  CEDS_BENZ_IND:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_ind\n  CEDS_BENZ_RCO:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_rco\n  CEDS_BENZ_SHP:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_shp\n  CEDS_BENZ_SLV:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_slv\n  CEDS_BENZ_TRA:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_tra\n  CEDS_BENZ_WST:\n    collection: GEOSCHEMchem_BENZ_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: BENZ_wst\n  CEDS_C2H2_SHP:\n    collection: GEOSCHEMchem_C2H2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H2_shp\n  CEDS_C2H4_AGR:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_agr\n  CEDS_C2H4_ENE:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_ene\n  CEDS_C2H4_IND:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_ind\n  CEDS_C2H4_RCO:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_rco\n  CEDS_C2H4_SHP:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_shp\n  CEDS_C2H4_SLV:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_slv\n  CEDS_C2H4_TRA:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_tra\n  CEDS_C2H4_WST:\n    collection: GEOSCHEMchem_C2H4_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H4_wst\n  CEDS_C2H6_AGR:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_agr\n  CEDS_C2H6_ENE:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_ene\n  CEDS_C2H6_IND:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_ind\n  CEDS_C2H6_RCO:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_rco\n  CEDS_C2H6_SHP:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_shp\n  CEDS_C2H6_SLV:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_slv\n  CEDS_C2H6_TRA:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_tra\n  CEDS_C2H6_WST:\n    collection: GEOSCHEMchem_C2H6_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C2H6_wst\n  CEDS_C3H8_AGR:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_agr\n  CEDS_C3H8_ENE:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_ene\n  CEDS_C3H8_IND:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_ind\n  CEDS_C3H8_RCO:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_rco\n  CEDS_C3H8_SHP:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_shp\n  CEDS_C3H8_SLV:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_slv\n  CEDS_C3H8_TRA:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_tra\n  CEDS_C3H8_WST:\n    collection: GEOSCHEMchem_C3H8_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: C3H8_wst\n  CEDS_C4H10_AGR:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_agr\n  CEDS_C4H10_ENE:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_ene\n  CEDS_C4H10_IND:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_ind\n  CEDS_C4H10_RCO:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_rco\n  CEDS_C4H10_SHP:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_shp\n  CEDS_C4H10_SLV:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_slv\n  CEDS_C4H10_TRA:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_tra\n  CEDS_C4H10_WST:\n    collection: GEOSCHEMchem_ALK4_butanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_butanes_wst\n  CEDS_C5H12_AGR:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_agr\n  CEDS_C5H12_ENE:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_ene\n  CEDS_C5H12_IND:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_ind\n  CEDS_C5H12_RCO:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_rco\n  CEDS_C5H12_SHP:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_shp\n  CEDS_C5H12_SLV:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_slv\n  CEDS_C5H12_TRA:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_tra\n  CEDS_C5H12_WST:\n    collection: GEOSCHEMchem_ALK4_pentanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_pentanes_wst\n  CEDS_C6H14_AGR:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_agr\n  CEDS_C6H14_ENE:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_ene\n  CEDS_C6H14_IND:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_ind\n  CEDS_C6H14_RCO:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_rco\n  CEDS_C6H14_SHP:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_shp\n  CEDS_C6H14_SLV:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_slv\n  CEDS_C6H14_TRA:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_tra\n  CEDS_C6H14_WST:\n    collection: GEOSCHEMchem_ALK4_hexanes_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: ALK4_hexanes_wst\n  CEDS_CH2O_AGR:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_agr\n  CEDS_CH2O_ENE:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_ene\n  CEDS_CH2O_IND:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_ind\n  CEDS_CH2O_RCO:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_rco\n  CEDS_CH2O_SHP:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_shp\n  CEDS_CH2O_SLV:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_slv\n  CEDS_CH2O_TRA:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_tra\n  CEDS_CH2O_WST:\n    collection: GEOSCHEMchem_CH2O_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2O_wst\n  CEDS_CO_AGR:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_agr\n  CEDS_CO_ENE:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_ene\n  CEDS_CO_IND:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_ind\n  CEDS_CO_RCO:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_rco\n  CEDS_CO_SHP:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_shp\n  CEDS_CO_SLV:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_slv\n  CEDS_CO_TRA:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_tra\n  CEDS_CO_WST:\n    collection: GEOSCHEMchem_CO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CO_wst\n  CEDS_HCOOH_AGR:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_agr\n  CEDS_HCOOH_ENE:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_ene\n  CEDS_HCOOH_IND:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_ind\n  CEDS_HCOOH_RCO:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_rco\n  CEDS_HCOOH_SHP:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_shp\n  CEDS_HCOOH_SLV:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_slv\n  CEDS_HCOOH_TRA:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_tra\n  CEDS_HCOOH_WST:\n    collection: GEOSCHEMchem_HCOOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: HCOOH_wst\n  CEDS_MEK_AGR:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_agr\n  CEDS_MEK_ENE:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_ene\n  CEDS_MEK_IND:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_ind\n  CEDS_MEK_RCO:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_rco\n  CEDS_MEK_SHP:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_shp\n  CEDS_MEK_SLV:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_slv\n  CEDS_MEK_TRA:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_tra\n  CEDS_MEK_WST:\n    collection: GEOSCHEMchem_MEK_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: MEK_wst\n  CEDS_MOH_AGR:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_agr\n  CEDS_MOH_ENE:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_ene\n  CEDS_MOH_IND:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_ind\n  CEDS_MOH_RCO:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_rco\n  CEDS_MOH_SHP:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_shp\n  CEDS_MOH_SLV:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_slv\n  CEDS_MOH_TRA:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_tra\n  CEDS_MOH_WST:\n    collection: GEOSCHEMchem_EOH_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: EOH_wst\n  CEDS_NH3_AGR:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_agr\n  CEDS_NH3_ENE:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_ene\n  CEDS_NH3_IND:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_ind\n  CEDS_NH3_RCO:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_rco\n  CEDS_NH3_SHP:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_shp\n  CEDS_NH3_SLV:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_slv\n  CEDS_NH3_TRA:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_tra\n  CEDS_NH3_WST:\n    collection: GEOSCHEMchem_NH3_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_wst\n  CEDS_NO2_AGR:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_agr\n  CEDS_NO2_ENE:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_ene\n  CEDS_NO2_IND:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_ind\n  CEDS_NO2_RCO:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_rco\n  CEDS_NO2_SHP:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_shp\n  CEDS_NO2_SLV:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_slv\n  CEDS_NO2_TRA:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_tra\n  CEDS_NO2_WST:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_wst\n  CEDS_NO_AGR:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_agr\n  CEDS_NO_ENE:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_ene\n  CEDS_NO_IND:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_ind\n  CEDS_NO_RCO:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_rco\n  CEDS_NO_SHP:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_shp\n  CEDS_NO_SLV:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_slv\n  CEDS_NO_TRA:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_tra\n  CEDS_NO_WST:\n    collection: GEOSCHEMchem_NO_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NO_wst\n  CEDS_OCPI_AGR:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_agr\n  CEDS_OCPI_ENE:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_ene\n  CEDS_OCPI_IND:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_ind\n  CEDS_OCPI_RCO:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_rco\n  CEDS_OCPI_SHP:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_shp\n  CEDS_OCPI_SLV:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_slv\n  CEDS_OCPI_TRA:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_tra\n  CEDS_OCPI_WST:\n    collection: GEOSCHEMchem_OC_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OC_wst\n  CEDS_PRPE_AGR:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_agr\n  CEDS_PRPE_ENE:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_ene\n  CEDS_PRPE_IND:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_ind\n  CEDS_PRPE_RCO:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_rco\n  CEDS_PRPE_SHP:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_shp\n  CEDS_PRPE_SLV:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_slv\n  CEDS_PRPE_TRA:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_tra\n  CEDS_PRPE_WST:\n    collection: GEOSCHEMchem_PRPE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PRPE_wst\n  CEDS_SO2_AGR:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_agr\n  CEDS_SO2_ENE:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_ene\n  CEDS_SO2_IND:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_ind\n  CEDS_SO2_RCO:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_rco\n  CEDS_SO2_SHP:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_shp\n  CEDS_SO2_SLV:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_slv\n  CEDS_SO2_TRA:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_tra\n  CEDS_SO2_WST:\n    collection: GEOSCHEMchem_SO2_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: SO2_wst\n  CEDS_TOLU_AGR:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_agr\n  CEDS_TOLU_ENE:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_ene\n  CEDS_TOLU_IND:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_ind\n  CEDS_TOLU_RCO:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_rco\n  CEDS_TOLU_SHP:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_shp\n  CEDS_TOLU_SLV:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_slv\n  CEDS_TOLU_TRA:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_tra\n  CEDS_TOLU_WST:\n    collection: GEOSCHEMchem_TOLU_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOLU_wst\n  CEDS_XYLE_AGR:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_agr\n  CEDS_XYLE_ENE:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_ene\n  CEDS_XYLE_IND:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_ind\n  CEDS_XYLE_RCO:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_rco\n  CEDS_XYLE_SHP:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_shp\n  CEDS_XYLE_SLV:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_slv\n  CEDS_XYLE_TRA:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_tra\n  CEDS_XYLE_WST:\n    collection: GEOSCHEMchem_XYLE_anthro_CEDS\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: XYLE_wst\n  CEDS_VSCAL_ENERGY:\n    collection: GEOSCHEMchem_CEDS_vertical_emiss_factors\n    sample: gcc_monthly_clim\n    variable: vscal_energy\n  CEDS_VSCAL_INDUSTRY:\n    collection: GEOSCHEMchem_CEDS_vertical_emiss_factors\n    sample: gcc_monthly_clim\n    variable: vscal_industry\n  CEDS_VSCAL_SHIP:\n    collection: GEOSCHEMchem_CEDS_vertical_emiss_factors\n    sample: gcc_monthly_clim\n    variable: vscal_ship\n  CLM4_PFT_BARE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BARE\n  CLM4_PFT_BDLF_DECD_BORL_SHRB_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_DECD_BORL_SHRB\n  CLM4_PFT_BDLF_DECD_BORL_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_DECD_BORL_TREE\n  CLM4_PFT_BDLF_DECD_TMPT_SHRB_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_DECD_TMPT_SHRB\n  CLM4_PFT_BDLF_DECD_TMPT_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_DECD_TMPT_TREE\n  CLM4_PFT_BDLF_DECD_TROP_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_DECD_TROP_TREE\n  CLM4_PFT_BDLF_EVGN_SHRB_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_EVGN_SHRB\n  CLM4_PFT_BDLF_EVGN_TMPT_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_EVGN_TMPT_TREE\n  CLM4_PFT_BDLF_EVGN_TROP_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_BDLF_EVGN_TROP_TREE\n  CLM4_PFT_C3_ARCT_GRSS_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_C3_ARCT_GRSS\n  CLM4_PFT_C3_NARC_GRSS_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_C3_NARC_GRSS\n  CLM4_PFT_C4_GRSS_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_C4_GRSS\n  CLM4_PFT_CROP_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_CROP\n  CLM4_PFT_NDLF_DECD_BORL_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_NDLF_DECD_BORL_TREE\n  CLM4_PFT_NDLF_EVGN_BORL_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_NDLF_EVGN_BORL_TREE\n  CLM4_PFT_NDLF_EVGN_TMPT_TREE_GCC:\n    collection: GEOSCHEMchem_CLM4_PFT\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: PFT_NDLF_EVGN_TMPT_TREE\n  DEAD_GOC_SRC:\n    collection: GEOSCHEMchem_GOCART_src_fn\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: GOC_SRC\n  DEAD_EF_GEO:\n    collection: GEOSCHEMchem_dst_tibds\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: EF_GEO\n  DEAD_LF_DRY:\n    collection: GEOSCHEMchem_dst_tibds\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LF_DRY\n  DEAD_MF_CACO3:\n    collection: GEOSCHEMchem_dst_tibds\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: MF_CaCO3\n  DEAD_MF_CLY:\n    collection: GEOSCHEMchem_dst_tibds\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: MF_CLY\n  DEAD_MF_SND:\n    collection: GEOSCHEMchem_dst_tibds\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: MF_SND\n  DEAD_SFC_TYP:\n    collection: GEOSCHEMchem_dst_tibds\n    regrid: VOTE\n    sample: gcc_persist\n    variable: SFC_TYP\n  DEAD_VAI:\n    collection: GEOSCHEMchem_dst_tvbds\n    regrid: BILINEAR\n    sample: gcc_monthly_clim \n    variable: VAI\n  DTOMS1_O3_COL:\n    collection: GEOSCHEMchem_TOMS_O3col\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: DTOMS1\n  DTOMS2_O3_COL:\n    collection: GEOSCHEMchem_TOMS_O3col\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: DTOMS2\n  TOMS_O3_COL:\n    collection: GEOSCHEMchem_TOMS_O3col\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: TOMS\n  EDGAR_NAP:\n    collection: GEOSCHEMchem_EDGAR2_1985_FF_IND\n    regrid: CONSERVE\n    sample: gcc_persist \n    variable: BENZ\n  GEIA_NH3_NATU:\n    collection: GEOSCHEMchem_NH3\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_NATU\n  GEOSCCM_Br2_DAY:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_day\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BRCL\n  GEOSCCM_Br2_NIGHT:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_night\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BRCL\n  GEOSCCM_BrNO3_DAY:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_day\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BRONO2\n  GEOSCCM_BrNO3_NIGHT:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_night\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BRONO2\n  GEOSCCM_BrO_DAY:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_day\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BRO\n  GEOSCCM_BrO_NIGHT:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_night\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BRO\n  GEOSCCM_Br_DAY:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_day\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BR\n  GEOSCCM_Br_NIGHT:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_night\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: BR\n  GEOSCCM_HBr_DAY:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_day\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HBR\n  GEOSCCM_HBr_NIGHT:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_night\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HBR\n  GEOSCCM_HOBr_DAY:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_day\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HOBR\n  GEOSCCM_HOBr_NIGHT:\n    collection: GEOSCHEMchem_GEOSCCM_Bry_night\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HOBR\n  LIQFUEL_1985:\n    collection: GEOSCHEMchem_AnnualScalar_1985\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: COscalar\n  LIQFUEL_THISYR:\n    collection: GEOSCHEMchem_AnnualScalar_2010\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: COscalar\n  MEGAN_AEF_BPIN_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_BETA_PINENE\n  MEGAN_AEF_CARE_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_CARENE\n  MEGAN_AEF_ISOP_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_ISOPRENE\n  MEGAN_AEF_LIMO_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_LIMONENE\n  MEGAN_AEF_MBOX_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_MBO\n  MEGAN_AEF_OCIM_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_OCIMENE\n  MEGAN_AEF_SABI_GCC:\n    collection: GEOSCHEMchem_MEGAN2.1_EF\n    regrid: CONSERVE\n    sample: gcc_persist\n    variable: AEF_SABINENE\n  MEGAN_ORVC_GCC:\n    collection: GEOSCHEMchem_NVOC\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: OCPI\n  MULTISEAICE:\n    collection: GEOSCHEMchem_multiyearice\n    regrid: BILINEAR\n    sample: gcc_daily_clim \n    variable: FRSEAICE\n  NOAA_GMD_CH4:\n    collection: GEOSCHEMchem_monthly.gridded.surface.methane\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: SFC_CH4\n  OLSON00:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;0\n    sample: gcc_persist\n    variable: OLSON\n  OLSON01:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;1\n    sample: gcc_persist\n    variable: OLSON\n  OLSON02:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;2\n    sample: gcc_persist\n    variable: OLSON\n  OLSON03:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;3\n    sample: gcc_persist\n    variable: OLSON\n  OLSON04:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;4\n    sample: gcc_persist\n    variable: OLSON\n  OLSON05:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;5\n    sample: gcc_persist\n    variable: OLSON\n  OLSON06:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;6\n    sample: gcc_persist\n    variable: OLSON\n  OLSON07:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;7\n    sample: gcc_persist\n    variable: OLSON\n  OLSON08:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;8\n    sample: gcc_persist\n    variable: OLSON\n  OLSON09:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;9\n    sample: gcc_persist\n    variable: OLSON\n  OLSON10:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;10\n    sample: gcc_persist\n    variable: OLSON\n  OLSON11:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;11\n    sample: gcc_persist\n    variable: OLSON\n  OLSON12:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;12\n    sample: gcc_persist\n    variable: OLSON\n  OLSON13:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;13\n    sample: gcc_persist\n    variable: OLSON\n  OLSON14:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;14\n    sample: gcc_persist\n    variable: OLSON\n  OLSON15:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;15\n    sample: gcc_persist\n    variable: OLSON\n  OLSON16:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;16\n    sample: gcc_persist\n    variable: OLSON\n  OLSON17:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;17\n    sample: gcc_persist\n    variable: OLSON\n  OLSON18:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;18\n    sample: gcc_persist\n    variable: OLSON\n  OLSON19:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;19\n    sample: gcc_persist\n    variable: OLSON\n  OLSON20:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;20\n    sample: gcc_persist\n    variable: OLSON\n  OLSON21:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;21\n    sample: gcc_persist\n    variable: OLSON\n  OLSON22:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;22\n    sample: gcc_persist\n    variable: OLSON\n  OLSON23:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;23\n    sample: gcc_persist\n    variable: OLSON\n  OLSON24:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;24\n    sample: gcc_persist\n    variable: OLSON\n  OLSON25:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;25\n    sample: gcc_persist\n    variable: OLSON\n  OLSON26:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;26\n    sample: gcc_persist\n    variable: OLSON\n  OLSON27:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;27\n    sample: gcc_persist\n    variable: OLSON\n  OLSON28:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;28\n    sample: gcc_persist\n    variable: OLSON\n  OLSON29:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;29\n    sample: gcc_persist\n    variable: OLSON\n  OLSON30:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;30\n    sample: gcc_persist\n    variable: OLSON\n  OLSON31:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;31\n    sample: gcc_persist\n    variable: OLSON\n  OLSON32:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;32\n    sample: gcc_persist\n    variable: OLSON\n  OLSON33:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;33\n    sample: gcc_persist\n    variable: OLSON\n  OLSON34:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;34\n    sample: gcc_persist\n    variable: OLSON\n  OLSON35:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;35\n    sample: gcc_persist\n    variable: OLSON\n  OLSON36:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;36\n    sample: gcc_persist\n    variable: OLSON\n  OLSON37:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;37\n    sample: gcc_persist\n    variable: OLSON\n  OLSON38:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;38\n    sample: gcc_persist\n    variable: OLSON\n  OLSON39:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;39\n    sample: gcc_persist\n    variable: OLSON\n  OLSON40:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;40\n    sample: gcc_persist\n    variable: OLSON\n  OLSON41:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;41\n    sample: gcc_persist\n    variable: OLSON\n  OLSON42:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;42\n    sample: gcc_persist\n    variable: OLSON\n  OLSON43:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;43\n    sample: gcc_persist\n    variable: OLSON\n  OLSON44:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;44\n    sample: gcc_persist\n    variable: OLSON\n  OLSON45:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;45\n    sample: gcc_persist\n    variable: OLSON\n  OLSON46:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;46\n    sample: gcc_persist\n    variable: OLSON\n  OLSON47:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;47\n    sample: gcc_persist\n    variable: OLSON\n  OLSON48:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;48\n    sample: gcc_persist\n    variable: OLSON\n  OLSON49:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;49\n    sample: gcc_persist\n    variable: OLSON\n  OLSON50:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;50\n    sample: gcc_persist\n    variable: OLSON\n  OLSON51:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;51\n    sample: gcc_persist\n    variable: OLSON\n  OLSON52:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;52\n    sample: gcc_persist\n    variable: OLSON\n  OLSON53:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;53\n    sample: gcc_persist\n    variable: OLSON\n  OLSON54:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;54\n    sample: gcc_persist\n    variable: OLSON\n  OLSON55:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;55\n    sample: gcc_persist\n    variable: OLSON\n  OLSON56:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;56\n    sample: gcc_persist\n    variable: OLSON\n  OLSON57:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;57\n    sample: gcc_persist\n    variable: OLSON\n  OLSON58:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;58\n    sample: gcc_persist\n    variable: OLSON\n  OLSON59:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;59\n    sample: gcc_persist\n    variable: OLSON\n  OLSON60:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;60\n    sample: gcc_persist\n    variable: OLSON\n  OLSON61:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;61\n    sample: gcc_persist\n    variable: OLSON\n  OLSON62:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;62\n    sample: gcc_persist\n    variable: OLSON\n  OLSON63:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;63\n    sample: gcc_persist\n    variable: OLSON\n  OLSON64:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;64\n    sample: gcc_persist\n    variable: OLSON\n  OLSON65:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;65\n    sample: gcc_persist\n    variable: OLSON\n  OLSON66:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;66\n    sample: gcc_persist\n    variable: OLSON\n  OLSON67:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;67\n    sample: gcc_persist\n    variable: OLSON\n  OLSON68:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;68\n    sample: gcc_persist\n    variable: OLSON\n  OLSON69:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;69\n    sample: gcc_persist\n    variable: OLSON\n  OLSON70:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;70\n    sample: gcc_persist\n    variable: OLSON\n  OLSON71:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;71\n    sample: gcc_persist\n    variable: OLSON\n  OLSON72:\n    collection: GEOSCHEMchem_Olson_2001_Land_Map\n    regrid: FRACTION;72\n    sample: gcc_persist\n    variable: OLSON\n  ORDONEZ_CH2I2:\n    collection: GEOSCHEMchem_CH2I2_monthly_emissions_Ordonez\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2I2\n  ORDONEZ_CH2IBR:\n    collection: GEOSCHEMchem_CH2IBr_monthly_emissions_Ordonez\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2IBr\n  ORDONEZ_CH2ICL:\n    collection: GEOSCHEMchem_CH2ICl_monthly_emissions_Ordonez\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH2ICl\n  ORDONEZ_CH3I:\n    collection: GEOSCHEMchem_CH3I_monthly_emissions_Ordonez\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: CH3I\n  PM25FINE_1:\n    collection: GEOSCHEMchem_PM25FINE_ECLIPSE\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: PM25FINE\n  QFED2_BOREAL:\n    collection: GEOSCHEMchem_qfed2_forest_mask\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: qfed2_boreal\n  QFED2_TEMPERATE:\n    collection: GEOSCHEMchem_qfed2_forest_mask\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: qfed2_temperate\n  QFED_ACET_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ACET_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ACET_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_ACET_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_ACET_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_ACET_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_ACET_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_ACET_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_ACET_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ACET_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_006, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_acet_061, linear_transformation: [0.0, 0.61984], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALD2_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALD2_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALD2_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_ALD2_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_ALD2_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_ALD2_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_ALD2_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_ALD2_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_ALD2_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALD2_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_006, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ald2_061, linear_transformation: [0.0, 0.54484], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALK4_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALK4_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALK4_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_ALK4_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_ALK4_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_ALK4_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_ALK4_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_ALK4_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_ALK4_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_ALK4_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_006, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_alk4_061, linear_transformation: [0.0, 0.82588], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_BCPI_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_BCPI_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_BCPI_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_BCPI_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_BCPI_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_BCPI_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_BCPI_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_BCPI_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_BCPI_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_BCPI_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_bc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C2H6_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C2H6_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C2H6_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_C2H6_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_C2H6_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_C2H6_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_C2H6_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_C2H6_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_C2H6_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C2H6_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_006, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c2h6_061, linear_transformation: [0.0, 0.79814], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C3H8_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C3H8_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C3H8_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_C3H8_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_C3H8_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_C3H8_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_C3H8_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_C3H8_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_C3H8_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_C3H8_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h8_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CH2O_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CH2O_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CH2O_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_CH2O_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_CH2O_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_CH2O_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_CH2O_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_CH2O_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_CH2O_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CH2O_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_ch2o_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CO_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CO_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CO_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_CO_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_CO_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_CO_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_CO_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_CO_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_CO_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_CO_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_co_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_MEK_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_MEK_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_MEK_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_MEK_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_MEK_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_MEK_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_MEK_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_MEK_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_MEK_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_MEK_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_006, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_mek_061, linear_transformation: [0.0, 0.66565], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NH3_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NH3_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NH3_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_NH3_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_NH3_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_NH3_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_NH3_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_NH3_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_NH3_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NH3_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_nh3_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NO_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NO_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NO_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_NO_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_NO_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_NO_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_NO_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_NO_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_NO_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_NO_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_no_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_OCPI_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_OCPI_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_OCPI_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_OCPI_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_OCPI_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_OCPI_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_OCPI_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_OCPI_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_OCPI_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_OCPI_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_oc_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_PRPE_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_PRPE_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_PRPE_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_PRPE_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_PRPE_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_PRPE_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_PRPE_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_PRPE_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_PRPE_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_PRPE_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_006, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_c3h6_061, linear_transformation: [0.0, 0.81633], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_SO2_BO_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_SO2_BO_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_SO2_GL_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_SO2_GL_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_gl}\n  QFED_SO2_SV_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_SO2_SV_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_sv}\n  QFED_SO2_TF_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_SO2_TF_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_tf}\n  QFED_SO2_TP_FT:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  QFED_SO2_TP_SFC:\n    - {starting: \"2014-12-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_006, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n    - {starting: \"2021-11-01T12:00\", collection: GEOSCHEMchem_qfed2.emis_so2_061, linear_transformation: [0.0, 1.0], regrid: CONSERVE, sample: gcc_daily, variable: biomass_xf}\n  SEABIRD_NH3:\n    collection: GEOSCHEMchem_NH3_Arctic_seabirds\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: NH3_SEABIRDS\n  SOILNOX_ARID:\n    collection: GEOSCHEMchem_soilNOx_climate\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: ARID\n  SOILNOX_NONARID:\n    collection: GEOSCHEMchem_soilNOx_climate\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: NON_ARID\n  SOILNOX_FERT:\n    collection: GEOSCHEMchem_soilNOx_fert_res\n    regrid: CONSERVE\n    sample: gcc_daily_clim\n    variable: FERT\n  SOILNOX_LANDK1:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K01\n  SOILNOX_LANDK2:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K02\n  SOILNOX_LANDK3:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K03\n  SOILNOX_LANDK4:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K04\n  SOILNOX_LANDK5:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K05\n  SOILNOX_LANDK6:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K06\n  SOILNOX_LANDK7:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K07\n  SOILNOX_LANDK8:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K08\n  SOILNOX_LANDK9:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K09\n  SOILNOX_LANDK10:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K10\n  SOILNOX_LANDK11:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K11\n  SOILNOX_LANDK12:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K12\n  SOILNOX_LANDK13:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K13\n  SOILNOX_LANDK14:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K14\n  SOILNOX_LANDK15:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K15\n  SOILNOX_LANDK16:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K16\n  SOILNOX_LANDK17:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K17\n  SOILNOX_LANDK18:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K18\n  SOILNOX_LANDK19:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K19\n  SOILNOX_LANDK20:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K20\n  SOILNOX_LANDK21:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K21\n  SOILNOX_LANDK22:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K22\n  SOILNOX_LANDK23:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K23\n  SOILNOX_LANDK24:\n    collection: GEOSCHEMchem_soilNOx_landtype\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: LANDFRAC_K24\n  STRAT_OH:\n    collection: GEOSCHEMchem_gmi.clim.OH\n    regrid: BILINEAR\n    sample: gcc_monthly_clim \n    variable: species\n  SfcVMR_CCl4:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CCl4\n  SfcVMR_CFC11:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CFC11\n  SfcVMR_CFC113:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CFC113\n  SfcVMR_CFC114:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CFC114\n  SfcVMR_CFC115:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CFC115\n  SfcVMR_CFC12:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CFC12\n  SfcVMR_CH3CCl3:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CH3CCl3\n  SfcVMR_H1211:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: H1211\n  SfcVMR_H1301:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: H1301\n  SfcVMR_H2402:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: C2BR2F4\n  SfcVMR_HCFC141b:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HCFC141b\n  SfcVMR_HCFC142b:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HCFC142b\n  SfcVMR_HCFC22:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: HCFC22\n  SfcVMR_N2O:\n    collection: GEOSCHEMchem_surface_VMRs_WMO2018\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: N2O\n  SfcVMR_CH2Cl2:\n    collection: GEOSCHEMchem_CMIP6_GHG_surface_VMR\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CH2Cl2\n  SfcVMR_CH3Br:\n    collection: GEOSCHEMchem_CMIP6_GHG_surface_VMR\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CH3Br\n  SfcVMR_CH3Cl:\n    collection: GEOSCHEMchem_CMIP6_GHG_surface_VMR\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CH3Cl\n  SfcVMR_CHCl3:\n    collection: GEOSCHEMchem_CMIP6_GHG_surface_VMR\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CHCl3\n  SfcVMR_H2:\n    collection: GEOSCHEMchem_surface_VMR_H2\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: H2\n  SfcVMR_OCS:\n    collection: GEOSCHEMchem_surface_VMR_OCS\n    regrid: BILINEAR\n    sample: gcc_persist\n    variable: OCS\n  TIMEZONES:\n    collection: GEOSCHEMchem_timezones\n    regrid: VOTE\n    sample: gcc_persist\n    variable: UTC_OFFSET\n  UV_ALBEDO:\n    collection: GEOSCHEMchem_uvalbedo\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: UVALBD\n  XLAIMULTI:\n    collection: GEOSCHEMchem_Condensed_Yuan_proc_MODIS_XLAI\n    regrid: CONSERVE\n    sample: gcc_8day_interp_clim\n    variable: XLAIMULTI\n  surf_iodide:\n    collection: GEOSCHEMchem_Oi_prj_predicted_iodide\n    regrid: CONSERVE\n    sample: gcc_monthly_clim\n    variable: Ensemble_Monthly_mean\n  surf_salinity:\n    collection: GEOSCHEMchem_WOA_2013_salinity\n    regrid: CONSERVE\n    sample: gcc_persist \n    variable: s_mn\n  GEOS_CH4:\n    collection: Jason_10.18.0_carbon_c90_2023\n    regrid: BILINEAR\n    sample: gcc_3hr\n    variable: CH4_total_dry\n  CH4_OFFSET:\n    collection: GEOSCHEMchem_CH4_scaling\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CH4_offset\n  CO_CMAM:\n    collection: GCC_CMAM_CO\n    regrid: BILINEAR\n    sample: gcc_monthly_clim\n    variable: CO"
  },
  {
    "path": "run/GEOS/GEOSCHEMchem_GridComp.rc",
    "content": "#------------------------------------------------------------------------------\n!             GEOS-Chem Global Chemical Transport Model                       !\n#------------------------------------------------------------------------------\n#\n# !DESCRIPTION: Resource file for the GEOSCHEMchem Gridded Component.\n#\n# !REVISION HISTORY:\n#  06 Oct 2009 - P. Le Sager - Initial\n#  06 Dec 2009 - da Silva    - Converted from NAMELIST to ESMF Config\n#  13 Apr 2010 - R. Yantosca - Added dimension info and tracer names\n#  07 Nov 2012 - R. Yantosca - Added placeholder fields for input.geos\n#  26 Feb 2013 - R. Yantosca - Added MAX_DEP for Input_Opt\n#  19 Mar 2013 - R. Yantosca - Added LINOZ fields for Input_Opt\n#  19 Mar 2013 - R. Yantosca - MAX_TRCS should be 53, not 54\n#  01 Aug 2014 - M. Long-sca - MAX_TRCS & MAX_DIAG set to 130 & 80, resp.\n#  07 Jun 2018 - C.Keller/K.E.Knowland - Change LLSTRAT from 59 to 40, add Calc_VUD_online\n#  14 Apr 2024 - P. O. Sturm - Added optional parallelization timing flag\n#------------------------------------------------------------------------------\n\n#\n# %%% Start date/time                %%%\n# %%% Used by ut_GEOSCHEM in sandbox %%%\n#\nUTC_START_DATE:       20050701\nUTC_START_TIME:       000000\n\n#\n# %%% End date/time                  %%%\n# %%% Used by ut_GEOSCHEM in sandbox %%%\n#\nUTC_END_DATE:         20050702\nUTC_END_TIME:         000000\n\n#\n# %%% Timesteps [sec] %%%\n#\nDYNAMICS_TIMESTEP:    1800\nCHEMISTRY_TIMESTEP:   1800\n\n#\n# %%% Placeholder fields for Input_Opt object %%%\n#\nMAX_DIAG:             80\nMAX_TRCS:             130\nMAX_MEMB:             15\nMAX_FAMS:             20\nMAX_DEP:              55\nLINOZ_NFIELDS:         7\nLINOZ_NLAT            18\nLINOZ_NLEVELS:        25\nLINOZ_NMONTHS:        12\n\n# Maximum level used for chemistry. If not extending to the top of the atmosphere,\n# production and loss rates from an offline GMI simulation will be applied to the \n# remaining levels (based on GEOS-Chem's linearized stratospheric chemistry scheme). \n# It is recommended to do full chemistry over the entire column, so that LLSTRAT = LM.\n# This is the default.\n#LLSTRAT:              72\n\n#\n# FAST-JX options:\n# LLFASTJX are the number of levels used for FAST-JX. The default value for a simulation\n# on 72 model levels is 601, and 1201 if running on 132 model levels. \n# FJX_EXTRAL_ITERMAX (defaults: 1 and 5 for 72 and 132 model levels, respectively) and \n# FJX_EXTRAL_ERR (default = 1) are fine tuning parameter that can be used\n# to get more control over the FAST-JX calculations. Increase FJX_EXTRAL_ITERMAX if \n# you encounter problems with FAST-JX, e.g. at 132 model levels.\n#LLFASTJX:             601 \n#FJX_EXTRAL_ITERMAX:   1 \n#FJX_EXTRAL_ERR:       1\n\n#\n# %%% Run phases (1 or 2. 2 recommended) %%% \n#\nRUN_PHASES:        2\n\n#\n# %%% Stop if KPP integration fails (default: 1) %%% \n#\nKPP_STOP_IF_FAIL:  0\n\n# Checks to prevent negative concentrations after KPP integration. These can create\n# problems with mass balance. KppCheckNegatives checks for negatives in the N top \n# layers. I.e., if set to 5 it will check for negatives in the top 5 model levels.\n# If set to 0, it will perform the check in the entire stratosphere and mesosphere.\n# If negatives are found, a second integration attempt will be made using HSTART=0 \n# and by relaxing the KPP tolerances using the scale factor provided in KppTolScale.\nKppCheckNegatives: 0\nKppTolScale:       1.0\n\n#\n# %%% HEMCO configuration file %%%\n#\nHEMCO_CONFIG:         HEMCO_Config.rc\n\n#\n# %%% Log file names for redirecting stdout %%%\n#\nSTDOUT_LOGFILE:       PET%%%%%.GEOSCHEMchem.log\nSTDOUT_LOGLUN:        6\n\n#\n# %%% Initialize all concentrations to zero? ###\n#\nINIT_ZERO:            0\n\n#\n# %%% Use archived convection fields? %%% \n#\nARCHIVED_CONV:        0\n\n# %%% Use MOIST module for convective transport (including washout)\n# Make species friendly to moist? If turned on, convection must be turned off in in geoschem_config.yml\nSpecies_friendly_to_moist: 1\n# Turn off washout for SO2?\nTurnOff_SO2_washout: 1\n# Calculate CLDLIQ and CLDICE online based on current conditions (use default GEOS-Chem parameterization otherwise)?\nOnline_CLDLIQ: 1\n# Use online vertical updraft velocity or use default GEOS-Chem parameterization? \nOnline_VUD: 1\n\n# make aerosols friendly to GAAS?\nSpecies_friendly_to_GAAS: 1\n\n#\n# %%% Tuning parameter to reduce washout efficiency \n# %%% of convective large-scale precip.\n# %%% Use at own risk: the effects of setting this \n# %%% parameter to a value between 0.0 and 1.0 are \n# %%% untested! \n#\n### cakelle2, 20180828: bug fix, changed from -999.0 to 1.0 \nConvective_precip_correction: 1.0\n\n#\n# %%% Cap polar tropopause at 200hPa (default=yes)? %%% \n#\nCap_polar_tropopause: 0\n\n#\n# %%% Ozonopause value in ppb. If set to <= 0.0, the \n# %%% GEOS-5 tropopause will be used (default) \n#\nUse_ozonopause: -999.0\n\n#\n# %%% Prescribe stratospheric H2O\n#\nPrescribe_strat_H2O: 1\n\n# Apply H2O tendency to Q?\n# 1  = always do it\n# 0  = only do it if GEOSCHEMCHEM is RATS provider\n# -1 = never do it\nApplyQtend: -1\n\n# %%% Settings for excluding species from being transported\nReduce_transport_species: 0\nTransport_blacklist: CFC115,CFC114,N2O,CFC12,H1301,CFC113,CFC11,CCl4,H2O,H2402,H1211,HCFC142b,HCFC22,HCFC141b,CH3CCl3,CH3Br,CH3Cl,HCFC123\n\n#\n# %%% Include short-lived species in internal restart file?\n#\nShortlived_species_in_restart: 1\n\n#\n# %%% Read initial conditions from external file\n# %%% instead of internal state\n#\nINIT_SPC_FROM_FILE: 0\nINIT_SPC_FILE: /discover/nobackup/cakelle2/GCC_Restarts/v13.1.0-beta.1/GEOSChem.Restart.20190801_0000z.edit.incHEMCO.nc4\nONLY_SHORTLIVED_SPECIES: 0\nUNIFORM_IF_MISSING: 1.0e-12\nDATA_IS_IN_PPBV: 1\nONLY_ON_FIRST_STEP: 1\nDATA_ON_GEOS_LEVELS: 1\nDO_NOT_OVERWRITE_ABOVE_LEVEL: 59\n\nUSE_GMI_MESO: 0\nGMI_TEMPLATE: /discover/nobackup/cakelle2/data/GMI/gmi.clim.%spc.geos5.2x25.esmf.nc\n\n#\n# %%% Use GMI P/L for O3 (default=no)? %%%\n#\nUse_GMI_O3_PL:        0\n\n# Analysis options \nANAPHASE: 2\nAnalysis_nSpecies: 0\nAnalysis_Settings_Spec001: GEOSCHEMchem_AnaSettings_O3.CDAS.rc\nAnalysis_Settings_Spec002: GEOSCHEMchem_AnaSettings_NO2.rc\nAnalysis_Settings_Spec003: GEOSCHEMchem_AnaSettings_SO2.rc\n\n#\n# NOx lightning met inputs\n#\n# Input source for flash rates: If set to 'LFR' or 'LFR_GCC', the corresponding MOIST export is used. If set to any other\n# name, will search for that name in the import state. For instance, set it to 'LFR_OFFLINE' and then define an import via\n# ExtData to use LFR values from a file. Default is LFR_GCC. All values expected in [flashes km-2 s-1].\n# Scale factors can be defined to adjust the imported LFR field for the southern extratropics (<23S), tropics (23S-23N), and\n# the northern extratropics (>23N). In addition, a global scale factor can be set to rescale the overall LFR.\n# These factors can be used to better match the expected global annual average flash rate of 46 flashes s-1, and a distribution\n# of ~65% in the tropics and ~23% in the N extratropics.\n#\nLIGHTNING_FLASH_RATE_SOURCE: LFR_GCC\nLFR_SCALING_SOUTHERN_TROP:   2.0\nLFR_SCALING_NORTHERN_TROP:   1.1\nLFR_SCALING_TROPICS:         0.4\nLFR_SCALING_GLOBAL:          2.0\n\n#\n# Input source for convective height: If set to 'CNV_MFC', will compute the convective height from convective mass fluxes\n# (default). If set to 'BYNCY', will compute it from the buoyancy and convective fraction. For all other cases, will look\n# for the field in import and use that as is. For instance, set it to 'CCTH_OFFLINE' and define an import via ExtData to\n# use values from an external file. If read from file, the values must be in [m].\n#\nLIGHTNING_CONVECTIVE_TOP_SOURCE: CNV_MFC\n#\n\n# Turn off heterogenous reactions in stratosphere?\n# If true, the following heterogeneous reactions are disabled (in the stratosphere):\n# ClNO3(g) + HBr(l,s) --> BrCl + HNO3\n# BrNO3(g) + HCl(l,s) --> BrCl + HNO3\n# HOCl(g) + HBr(l,s) --> BrCl + H2O\nTurnOffHetRates: 1\n\n#\n# Enable Bry and Cly family transport\n#\nBry_Cly_Family_Transport: 1\n\n# Skip GCC during replay predictor step\nSkipReplayGCC: 0\n\n# \n# CO production from CO2 photolysis\n#\nCO_production_from_CO2_photolysis: 0\nCO2photolysisFile: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/StratChem/SC.J_20_12_79_72_200_45.jpl15.nc4\n\n# \n# CO2 coupling with GOCART\n# \nImport_CO2_from_GOCART: 0\nGOCART_CO2_FieldName: GOCART_CO2\n\n#\n# Set CO mesosphere upper boundary to external field\n#\nSet_CO_Mesosphere: 1\nCO_Mesosphere_FieldName: CO_CMAM\n\n#\n# To set CH4 boundary condition from GEOS \n# This is not yet implemented. Set to zero for now. If you want GEOS CH4, need to activate GEOS_CH4 in HEMCO_Config.rc\nCH4_from_GEOS: 0\n\n\n# Parallelization barrier for chemistry in GEOS\n# Optional VMBarrier at the end of Run2\n# If 1, the VMBarrier is on\nGC_VMBarrier_Run2: 0\n"
  },
  {
    "path": "run/GEOS/GEOSChem_TaggedNOx.rc",
    "content": "# Resource file for NOx Tagged tracers. Used by geos_TaggedSpecies.F90\n# Added by Pam Wales on Sept 18, 2023\n# Modified for GCv14 by Christph Keller on Mar 21, 2024\n\n# The number of NO(x) tagged tracers to include.\n# Will be included as NOTAG1, NOTAG2 and NO2TAG1, NO2TAG2, etc.\n# If set to 0 (default), no tagged NOx tracers will be used\n# If set to higher than 0, the corresponding number of tagged\n# NOx tracer need to be present in geoschem_config.yaml and \n# species_database.yaml.\nnchem_tag: 0\n\n# If partner_tag is true (> 0), scale NOx as NO + NO2\npartner_tag: 1\n\n# tag names (currently not used - names are hardcoded)\ntag_names: NOTAG1\n\n# partner names (currently not used - names are hardcoded)\npartner_names: NO2TAG1\n\n"
  },
  {
    "path": "run/GEOS/HEMCO_Config.rc",
    "content": "### HEMCO INPUT FILE ###\n# ==================================================================================================\n# Category convention:\n#  1: Industry\n#  2: Power\n#  3: Transportation\n#  4: Residential\n#  5: Agriculture\n#  6: Natural\n#  7: Plants\n#  8: Biomass burning\n#  9: Trash burning\n# 10: Ship\n# 20: Aircraft\n# 30: Seabirds\n\n####################################################################################\n### BEGIN SECTION SETTINGS\n####################################################################################\n#\n\nROOT:                        {DATA_ROOT}/HEMCO\nMETDIR:                      not_used\nLogfile:                     HEMCO.log\nDiagnPrefix:                 HEMCO_diagnostics\nDiagnFile:                   ./HEMCO_DiagnFile.rc\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             2\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n#\n### END SECTION SETTINGS \n\n####################################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n####################################################################################\n# Make sure that the ExtNr provided here matches with the ExtNr provided in the base \n# emissions sections. Otherwise, the listed files won't be read!\n#\n# ExtNr ExtName           on/off  Species \n0       Base              : on    *\n# ----- MAIN SWITCHES -----------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       false\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS ----------------------\n    --> GC_RESTART             :       false\n    --> STATE_PSC              :       false\n    --> HEMCO_RESTART          :       false\n# ----- NESTED GRID FIELDS ------------------\n    --> GC_BCs                 :       false\n    --> CEDS                   :       true\n    --> CEDS_SHIP              :       true\n    --> CEDS_VOCs              :       true\n    --> CEDS_C2H6              :       true\n    --> CH4_EMISSIONS          :       false\n    --> C2H6_EDGAR             :       false\n    --> C2H6_ZITELY            :       false\n    --> QFED                   :       true\n    --> ORDONEZ_IODOCARB       :       true\n    --> DECAYING_PLANTS        :       true \n    --> AFCID                  :       true \n    --> POET                   :       false\n    --> SEABIRDS               :       true\n    --> DICE_AFRICA            :       false\n    --> TRASH                  :       false\n    --> OMI_HTAP_SO2           :       false\n# ----- AIRCRAFT EMISSIONS ------------------\n    --> AEIC                   :       false\n    --> AEIC2019_MONMEAN       :       true\n    --> AEIC_SCALE_1990_2019   :       true\n# ----- NON-EMISSIONS DATA ------------------\n    --> UVALBEDO               :       true\n    --> CCM_STRAT_Bry          :       true\n    --> GMI_STRAT_OH           :       true\n    --> GMI_PROD_LOSS          :       false\n    --> UCX_PROD_LOSS          :       false\n    --> OMOC_RATIO             :       false\n    --> GMD_SFC_CH4            :       false\n    --> GEOS_3HR_CH4           :       true\n    --> CMIP6_SFC_CH4          :       false\n# OLSON and MODIS read via MAPL not HEMCO in GEOS\n    --> OLSON_LANDMAP          :       false\n    --> YUAN_MODIS_LAI         :       false\n    --> RRTMG                  :       false\n    --> SfcVMR                 :       true\n    --> OCEAN_O3_DRYDEP        :       true\n# --------------------------------------------------------\n100     Custom                 : off   -\n101     SeaFlux           : on    DMS/ACET/ALD2/MENO3/ETNO3/MOH\n103     LightNOx          : on    NO\n    --> GEOS-5 flash rates:       false\n###    --> OTD-LIS scaling   :       0.355\n###    --> OTD-LIS scaling   :       0.634\n#C720   --> OTD-LIS scaling   :       1.4152E-3\n#C180   --> OTD-LIS scaling   :       1.527e-2\n    --> OTD-LIS scaling   :       0.12\n    --> CDF table         :       /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/HEMCO/v0.0.0/sfc/light_dist.ott2010.dat\n    --> Use CNV_FRC       :       false\n    --> OTD-LIS factors   :       false\n104     SoilNOx           : on    NO \n    --> UseSoilTemperature:       false\n    --> Use fertilizer NOx:       true\n107     SeaSalt                : on    SALA/SALC/SALACL/SALCCL/SALAAL/SALCAL/BrSALA/BrSALC/MOPO/MOPI\n    --> SALA lower radius      :       0.01\n    --> SALA upper radius      :       0.5\n    --> SALC lower radius      :       0.5\n    --> SALC upper radius      :       8.0\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       5.0\n    --> Model sea salt Br-     :       true\n    --> Br- mass ratio         :       2.11e-3\n108     MEGAN                  : on    ISOP/ACET/PRPE/C2H4/ALD2/MOH/EOH/MTPA/MTPO/LIMO/SESQ/SOAP/SOAS\n    --> MEGAN_SUFFIX           :       _GCC\n    --> Isoprene scaling       :       1.0\n    --> CO2 inhibition         :       true\n    --> CO2 conc (ppmv)        :       390.0\n    --> Isoprene to SOAP       :       0.015\n    --> Isoprene to SOAS       :       0.015\n    --> Monoterp to SOAP       :       0.050\n    --> Monoterp to SOAS       :       0.050\n    --> Othrterp to SOAP       :       0.050\n    --> Othrterp to SOAS       :       0.050\n111     GFED              : off   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6\n    --> GFED4             :       true\n    --> GFED_daily        :       false\n    --> GFED_3hourly      :       false\n    --> Scaling_CO        :       1.05\n    --> Scaling_POG1      :       1.27\n    --> Scaling_POG2      :       1.27\n    --> Scaling_NAP       :       2.75e-4\n    --> hydrophilic BC    :       0.2\n    --> hydrophilic OC    :       0.5\n    --> fraction POG1     :       0.49\n    --> CO to SOAP        :       0.013\n    --> GFED_subgrid_coag :       false\n117     Volcano           : on    SO2\n    --> Volcano_Source    :       AeroCom\n# use flat degassing file for 2022 onwards:\n    --> Volcano_Table     :       ./ExtData/AeroCom/sfc/volcanic_CARN_1978-2020_v202005/so2_volcanic_emissions_CARN_v202005.degassing_only.rc\n    --> Volcano_Climatology :     ./ExtData/AeroCom/sfc/volcanic_CARN_1978-2020_v202005/so2_volcanic_emissions_CARN_v202005.degassing_only.rc\n# use degassing and eruptive for reanalysis:\n#    --> Volcano_Table     :       ./ExtData/AeroCom/sfc/volcanic_CARN_1978-2020_v202005/so2_volcanic_emissions_Carns.$YYYY$MM$DD.rc\n120     Inorg_Iodine      : on    HOI/I2\n    --> Emit HOI          :       true\n    --> Emit I2           :       true\n122     VFEI              : off   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/HNO2/HCl/ACTA/MGLY/GLYX/EOH/MOH/MTPO/ISOP/BENZ/TOLU/XYLE/SOAP/MACR/MVK/DMS\n    --> VFEI_Table        :       /discover/nobackup/cakelle2/data/VFEI/TXT/v0/Y$YYYY/vfeiv0_V1_$YYYY$MM$DD.txt\n    --> PBL_frac          :       0.65\n    --> MaxHeightM        :       5500.0\n    --> Category          :       1\n    --> Scaling_BCPO      :       0.8\n    --> Scaling_BCPI      :       0.2\n    --> Scaling_OCPO      :       0.5\n    --> Scaling_OCPI      :       0.5\n    --> Scaling_SOAP      :       0.013\n125     DustL23M           : on    DSTbin1/DSTbin2/DSTbin3/DSTbin4/DSTbin5/DSTbin6/DSTbin7\n    --> Mass tuning factor:       2.454e-4\n##############################################################################\n# Mass tuning factors are resolution and met-source dependent\n# See https://github.com/geoschem/geos-chem/pull/2946#issuecomment-3465876899\n#    --> Mass tuning factor:       6.794E-03  # C24  GEOS-FP\n#    --> Mass tuning factor:       4.402E-03  # C48  GEOS-FP\n#    --> Mass tuning factor:       3.533E-03  # C90  GEOS-FP\n#    --> Mass tuning factor:       3.081E-03  # C180 GEOS-FP\n#    --> Mass tuning factor:       2.924E-03  # C360 GEOS-FP\n#    --> Mass tuning factor:       4.231E-03  # C30  GEOS-IT\n#    --> Mass tuning factor:       3.308E-03  # C48  GEOS-IT\n#    --> Mass tuning factor:       2.614E-03  # C90  GEOS-IT\n#    --> Mass tuning factor:       2.924E-03  # C180 GEOS-IT\n#    --> Mass tuning factor:       7.944E-03  # C24  MERRA-2\n#    --> Mass tuning factor:       4.253E-03  # C48  MERRA-2\n#    --> Mass tuning factor:       4.341E-03  # C90  MERRA-2\n#    --> Mass tuning factor:       3.932E-03  # C180 MERRA-2\n##############################################################################\n### END SECTION EXTENSION SWITCHES \n\n####################################################################################\n### BEGIN SECTION BASE EMISSIONS \n####################################################################################\n\n(((EMISSIONS\n\n#=======================================================================================================================================\n# --- CEDS ---\n#\n# ==> CEDS ship emissions are listed in the ship emissions section below\n# ==> CEDS includes trash emissions (Cat=12) from Wiedinmyer et al. (2014)\n#=======================================================================================================================================\n(((CEDS\n#201,211 ind Day-of-week(DOW),Time-of-day(TOD)\n#202,212 ene DOW,TOD\n#203,213 tra DOW,TOD\n#204,214 rco DOW,TOD\n#205,215 agr DOW,TOD\n\n#97  NOx ems as NO scale factor\n# AGR NOx emissions are not used since soil NOx emissions include those from fertilizers\n#0 CEDS_NO_AGR     /see/ExtData.rc            NO_agr            2014/1-12/1/0 C xy       kg/m2/s NO    97/205/215        5 2\n0 CEDS_NO_ENE     /see/ExtData.rc            NO_ene            2014/1-12/1/0 C xyL=1:11 kg/m2/s NO    97/202/212/317    2 2\n0 CEDS_NO_IND     /see/ExtData.rc            NO_ind            2014/1-12/1/0 C xyL=1:15 kg/m2/s NO    97/201/211/318    1 2\n0 CEDS_NO_TRA     /see/ExtData.rc            NO_tra            2014/1-12/1/0 C xy       kg/m2/s NO    97/203/213        3 2\n0 CEDS_NO_RCO     /see/ExtData.rc            NO_rco            2014/1-12/1/0 C xy       kg/m2/s NO    97/204/214        4 2\n0 CEDS_NO_SLV     /see/ExtData.rc            NO_slv            2014/1-12/1/0 C xy       kg/m2/s NO    97/201/211        1 2\n0 CEDS_NO_WST     /see/ExtData.rc            NO_wst            2014/1-12/1/0 C xy       kg/m2/s NO    97                9 2\n\n#98 NOx ems as NO2 scale factor\n#115 NO to NO2 mass conversion\n#0 CEDS_NO2_AGR     /see/ExtData.rc           NO_agr            2014/1-12/1/0 C xy       kg/m2/s NO2    98/115/205/215        5 2\n0 CEDS_NO2_ENE     /see/ExtData.rc           NO_ene            2014/1-12/1/0 C xyL=1:11 kg/m2/s NO2    98/115/202/212/317    2 2\n0 CEDS_NO2_IND     /see/ExtData.rc           NO_ind            2014/1-12/1/0 C xyL=1:15 kg/m2/s NO2    98/115/201/211/318    1 2\n0 CEDS_NO2_TRA     /see/ExtData.rc           NO_tra            2014/1-12/1/0 C xy       kg/m2/s NO2    98/115/203/213        3 2\n0 CEDS_NO2_RCO     /see/ExtData.rc           NO_rco            2014/1-12/1/0 C xy       kg/m2/s NO2    98/115/204/214        4 2\n0 CEDS_NO2_SLV     /see/ExtData.rc           NO_slv            2014/1-12/1/0 C xy       kg/m2/s NO2    98/115/201/211        1 2\n0 CEDS_NO2_WST     /see/ExtData.rc           NO_wst            2014/1-12/1/0 C xy       kg/m2/s NO2    98/115                9 2\n\n#280 COtoSOAP_anth\n#301 ODIAC_ANNUALSCALE_2010 (not applied here but is used in HTAP) **********\n#302 ODIAC_ANNUALSCALE_2013\n0 CEDS_CO_AGR     /see/ExtData.rc            CO_agr            2014/1-12/1/0 C xy       kg/m2/s CO    205/215         5 2\n0 CEDS_SOAP_AGR   -                          -                 -             - -        -       SOAP  205/215/280     5 2\n0 CEDS_CO_ENE     /see/ExtData.rc            CO_ene            2014/1-12/1/0 C xyL=1:11 kg/m2/s CO    202/212/317     2 2\n0 CEDS_SOAP_ENE   -                          -                 -             - -        -       SOAP  202/212/280/317 2 2\n0 CEDS_CO_IND     /see/ExtData.rc            CO_ind            2014/1-12/1/0 C xyL=1:15 kg/m2/s CO    201/211/318     1 2\n0 CEDS_SOAP_IND   -                          -                 -             - -        -       SOAP  201/211/280/318 1 2\n0 CEDS_CO_TRA     /see/ExtData.rc            CO_tra            2014/1-12/1/0 C xy       kg/m2/s CO    203/213         3 2\n0 CEDS_SOAP_TRA   -                          -                 -             - -        -       SOAP  203/213/280     3 2\n0 CEDS_CO_RCO     /see/ExtData.rc            CO_rco            2014/1-12/1/0 C xy       kg/m2/s CO    204/214         4 2\n0 CEDS_SOAP_RCO   -                          -                 -             - -        -       SOAP  204/214/280     4 2\n0 CEDS_CO_SLV     /see/ExtData.rc            CO_slv            2014/1-12/1/0 C xy       kg/m2/s CO    201/211         1 2\n0 CEDS_SOAP_SLV   -                          -                 -             - -        -       SOAP  201/211/280     1 2\n0 CEDS_CO_WST     /see/ExtData.rc            CO_wst            2014/1-12/1/0 C xy       kg/m2/s CO    -               9 2\n0 CEDS_SOAP_WST   -                          -                 -             - -        -       SOAP  280             9 2\n\n0 CEDS_NH3_AGR    /see/ExtData.rc           NH3_agr           2014/1-12/1/0 C xy       kg/m2/s NH3   205/215         5 2\n0 CEDS_NH3_ENE    /see/ExtData.rc           NH3_ene           2014/1-12/1/0 C xyL=1:11 kg/m2/s NH3   202/212/317     2 2\n0 CEDS_NH3_IND    /see/ExtData.rc           NH3_ind           2014/1-12/1/0 C xyL=1:15 kg/m2/s NH3   201/211/318     1 2\n0 CEDS_NH3_TRA    /see/ExtData.rc           NH3_tra           2014/1-12/1/0 C xy       kg/m2/s NH3   203/213         3 2\n0 CEDS_NH3_RCO    /see/ExtData.rc           NH3_rco           2014/1-12/1/0 C xy       kg/m2/s NH3   204/214         4 2\n0 CEDS_NH3_SLV    /see/ExtData.rc           NH3_slv           2014/1-12/1/0 C xy       kg/m2/s NH3   201/211         1 2\n0 CEDS_NH3_WST    /see/ExtData.rc           NH3_wst           2014/1-12/1/0 C xy       kg/m2/s NH3   -               9 2\n\n#70 BC2BCPI\n#71 BC2BCPO\n0 CEDS_BCPI_AGR   /see/ExtData.rc            BC_agr            2014/1-12/1/0 C xy       kg/m2/s BCPI  70/205/215        5 2\n0 CEDS_BCPO_AGR   -                          -                 -             - -        -       BCPO  71/205/215        5 2\n0 CEDS_BCPI_ENE   /see/ExtData.rc            BC_ene            2014/1-12/1/0 C xyL=1:11 kg/m2/s BCPI  70/202/212/317    2 2\n0 CEDS_BCPO_ENE   -                          -                 -             - -        -       BCPO  71/202/212/317    2 2\n0 CEDS_BCPI_IND   /see/ExtData.rc            BC_ind            2014/1-12/1/0 C xyL=1:15 kg/m2/s BCPI  70/201/211/318    1 2\n0 CEDS_BCPO_IND   -                          -                 -             - -        -       BCPO  71/201/211/318    1 2\n0 CEDS_BCPI_TRA   /see/ExtData.rc            BC_tra            2014/1-12/1/0 C xy       kg/m2/s BCPI  70/203/213        3 2\n0 CEDS_BCPO_TRA   -                          -                 -             - -        -       BCPO  71/203/213        3 2\n0 CEDS_BCPI_RCO   /see/ExtData.rc            BC_rco            2014/1-12/1/0 C xy       kg/m2/s BCPI  70/204/214        4 2\n0 CEDS_BCPO_RCO   -                          -                 -             - -        -       BCPO  71/204/214        4 2\n0 CEDS_BCPI_SLV   /see/ExtData.rc            BC_slv            2014/1-12/1/0 C xy       kg/m2/s BCPI  70/201/211        1 2\n0 CEDS_BCPO_SLV   -                          -                 -             - -        -       BCPO  71/201/211        1 2\n0 CEDS_BCPI_WST   /see/ExtData.rc            BC_wst            2014/1-12/1/0 C xy       kg/m2/s BCPI  70                9 2\n0 CEDS_BCPO_WST   -                          -                 -             - -        -       BCPO  71                9 2\n#72 OC2OCPI\n#73 OC2OCPO\n#74 POGSCAL\n#76 SV2POG1\n#77 SV2POG2\n0 CEDS_OCPI_AGR   /see/ExtData.rc            OC_agr            2014/1-12/1/0 C xy       kg/m2/s OCPI  72/205/215            5 2\n0 CEDS_OCPO_AGR   -                          -                 -             - -        -       OCPO  73/205/215            5 2\n0 CEDS_POG1_AGR   -                          -                 -             - -        -       POG1  73/74/76/205/215      5 2\n0 CEDS_POG2_AGR   -                          -                 -             - -        -       POG2  73/74/77/205/215      5 2\n0 CEDS_OCPI_ENE   /see/ExtData.rc            OC_ene            2014/1-12/1/0 C xyL=1:11 kg/m2/s OCPI  72/202/212/317        2 2\n0 CEDS_OCPO_ENE   -                          -                 -             - -        -       OCPO  73/202/212/317        2 2\n0 CEDS_POG1_ENE   -                          -                 -             - -        -       POG1  73/74/76/202/212/317  2 2\n0 CEDS_POG2_ENE   -                          -                 -             - -        -       POG2  73/74/77/202/212/317  2 2\n0 CEDS_OCPI_IND   /see/ExtData.rc            OC_ind            2014/1-12/1/0 C xyL=1:15 kg/m2/s OCPI  72/201/211/318        1 2\n0 CEDS_OCPO_IND   -                          -                 -             - -        -       OCPO  73/201/211/318        1 2\n0 CEDS_POG1_IND   -                          -                 -             - -        -       POG1  73/74/76/201/211/318  1 2\n0 CEDS_POG2_IND   -                          -                 -             - -        -       POG2  73/74/77/201/211/318  1 2\n0 CEDS_OCPI_TRA   /see/ExtData.rc            OC_tra            2014/1-12/1/0 C xy       kg/m2/s OCPI  72/203/213            3 2\n0 CEDS_OCPO_TRA   -                          -                 -             - -        -       OCPO  73/203/213            3 2\n0 CEDS_POG1_TRA   -                          -                 -             - -        -       POG1  73/74/76/203/213      3 2\n0 CEDS_POG2_TRA   -                          -                 -             - -        -       POG2  73/74/77/203/213      3 2\n0 CEDS_OCPI_RCO   /see/ExtData.rc            OC_rco            2014/1-12/1/0 C xy       kg/m2/s OCPI  72/204/214            4 2\n0 CEDS_OCPO_RCO   -                          -                 -             - -        -       OCPO  73/204/214            4 2\n0 CEDS_POG1_RCO   -                          -                 -             - -        -       POG1  73/74/76/204/214      4 2\n0 CEDS_POG2_RCO   -                          -                 -             - -        -       POG2  73/74/77/204/214      4 2\n0 CEDS_OCPI_SLV   /see/ExtData.rc            OC_slv            2014/1-12/1/0 C xy       kg/m2/s OCPI  72/201/211            1 2\n0 CEDS_OCPO_SLV   -                          -                 -             - -        -       OCPO  73/201/211            1 2\n0 CEDS_POG1_SLV   -                          -                 -             - -        -       POG1  73/74/76/201/211      1 2\n0 CEDS_POG2_SLV   -                          -                 -             - -        -       POG2  73/74/77/201/211      1 2\n0 CEDS_OCPI_WST   /see/ExtData.rc            OC_wst            2014/1-12/1/0 C xy       kg/m2/s OCPI  72                    9 2\n0 CEDS_OCPO_WST   -                          -                 -             - -        -       OCPO  73                    9 2\n0 CEDS_POG1_WST   -                          -                 -             - -        -       POG1  73/74/76              9 2\n0 CEDS_POG2_WST   -                          -                 -             - -        -       POG2  73/74/77              9 2\n\n#63 SO2toSO4\n#66 SO2toPFe\n0 CEDS_SO2_AGR    /see/ExtData.rc           SO2_agr           2014/1-12/1/0 C xy       kg/m2/s SO2   205/215           5 2\n0 CEDS_SO4_AGR    -                         -                 -             - -        -       SO4   63/205/215        5 2\n0 CEDS_pFe_AGR    -                         -                 -             - -        -       pFe   66/205/215        5 2\n0 CEDS_SO2_ENE    /see/ExtData.rc           SO2_ene           2014/1-12/1/0 C xyL=1:11 kg/m2/s SO2   202/212/317       2 2\n0 CEDS_SO4_ENE    -                         -                 -             - -        -       SO4   63/202/212/317    2 2\n0 CEDS_pFe_ENE    -                         -                 -             - -        -       pFe   66/202/212/317    2 2\n0 CEDS_SO2_IND    /see/ExtData.rc           SO2_ind           2014/1-12/1/0 C xyL=1:15 kg/m2/s SO2   201/211/318       1 2\n0 CEDS_SO4_IND    -                         -                 -             - -        -       SO4   63/201/211/318    1 2\n0 CEDS_pFe_IND    -                         -                 -             - -        -       pFe   66/201/211/318    1 2\n0 CEDS_SO2_TRA    /see/ExtData.rc           SO2_tra           2014/1-12/1/0 C xy       kg/m2/s SO2   203/213           3 2\n0 CEDS_SO4_TRA    -                         -                 -             - -        -       SO4   63/203/213        3 2\n0 CEDS_pFe_TRA    -                         -                 -             - -        -       pFe   66/203/213        3 2\n0 CEDS_SO2_RCO    /see/ExtData.rc           SO2_rco           2014/1-12/1/0 C xy       kg/m2/s SO2   204/214           4 2\n0 CEDS_SO4_RCO    -                         -                 -             - -        -       SO4   63/204/214        4 2\n0 CEDS_pFe_RCO    -                         -                 -             - -        -       pFe   66/204/214        4 2\n0 CEDS_SO2_SLV    /see/ExtData.rc           SO2_slv           2014/1-12/1/0 C xy       kg/m2/s SO2   201/211           1 2\n0 CEDS_SO4_SLV    -                         -                 -             - -        -       SO4   63/201/211        1 2\n0 CEDS_pFe_SLV    -                         -                 -             - -        -       pFe   66/201/211        1 2\n0 CEDS_SO2_WST    /see/ExtData.rc           SO2_wst           2014/1-12/1/0 C xy       kg/m2/s SO2   -                 9 2\n0 CEDS_SO4_WST    -                         -                 -             - -        -       SO4   63                9 2\n0 CEDS_pFe_WST    -                         -                 -             - -        -       pFe   66                9 2\n)))CEDS\n\n(((CEDS_VOCs\n##206,216 Average DOW,TOD used like in RETRO.  ****Maybe I shouldn't apply to _WST ?? or apply to _WST evwh******\n#\n##8  kg EOH to kg MOH\n##9  kg EOH to kg EOH\n##24 kg EOH to kg ROH\n##92 VOC1 to MOH\n##93 VOC1 to EOH\n##94 VOC1 to ROH\n0 CEDS_MOH_AGR    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           2014/1-12/1/0 C xy       kg/m2/s MOH   206/216/8/92      5 2\n0 CEDS_EOH_AGR    -                                              -                 -             - -        -       EOH   206/216/9/93      5 2\n0 CEDS_ROH_AGR    -                                              -                 -             - -        -       ROH   206/216/24/94     5 2\n0 CEDS_MOH_ENE    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           2014/1-12/1/0 C xyL=1:11 kg/m2/s MOH   206/216/8/92/317  2 2\n0 CEDS_EOH_ENE    -                                              -                 -             - -        -       EOH   206/216/9/93/317  2 2\n0 CEDS_ROH_ENE    -                                              -                 -             - -        -       ROH   206/216/24/94/317 2 2\n0 CEDS_MOH_IND    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           2014/1-12/1/0 C xyL=1:15 kg/m2/s MOH   206/216/8/92/318  1 2\n0 CEDS_EOH_IND    -                                              -                 -             - -        -       EOH   206/216/9/93/318  1 2\n0 CEDS_ROH_IND    -                                              -                 -             - -        -       ROH   206/216/24/94/318 1 2\n0 CEDS_MOH_TRA    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           2014/1-12/1/0 C xy       kg/m2/s MOH   206/216/8/92      3 2\n0 CEDS_EOH_TRA    -                                              -                 -             - -        -       EOH   206/216/9/93      3 2\n0 CEDS_ROH_TRA    -                                              -                 -             - -        -       ROH   206/216/24/94     3 2\n0 CEDS_MOH_RCO    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           2014/1-12/1/0 C xy       kg/m2/s MOH   206/216/8/92      4 2\n0 CEDS_EOH_RCO    -                                              -                 -             - -        -       EOH   206/216/9/93      4 2\n0 CEDS_ROH_RCO    -                                              -                 -             - -        -       ROH   206/216/24/94     4 2\n0 CEDS_MOH_SLV    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           2014/1-12/1/0 C xy       kg/m2/s MOH   206/216/8/92      1 2\n0 CEDS_EOH_SLV    -                                              -                 -             - -        -       EOH   206/216/9/93      1 2\n0 CEDS_ROH_SLV    -                                              -                 -             - -        -       ROH   206/216/24/94     1 2\n0 CEDS_MOH_WST    see/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           2014/1-12/1/0 C xy       kg/m2/s MOH   206/216/8/92      9 2\n0 CEDS_EOH_WST    -                                              -                 -             - -        -       EOH   206/216/9/93      9 2\n0 CEDS_ROH_WST    -                                              -                 -             - -        -       ROH   206/216/24/94     9 2\n\n#10 C4H10toALK4\n0 CEDS_C4H10_AGR  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/10        5 2\n0 CEDS_C4H10_ENE  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  2014/1-12/1/0 C xyL=1:11 kg/m2/s ALK4  206/216/10/317    2 2\n0 CEDS_C4H10_IND  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  2014/1-12/1/0 C xyL=1:15 kg/m2/s ALK4  206/216/10/318    1 2\n0 CEDS_C4H10_TRA  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/10        3 2\n0 CEDS_C4H10_RCO  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/10        4 2\n0 CEDS_C4H10_SLV  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/10        1 2\n0 CEDS_C4H10_WST  see/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/10        9 2\n\n#11 C5H12toALK4\n0 CEDS_C5H12_AGR  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/11        5 2\n0 CEDS_C5H12_ENE  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 2014/1-12/1/0 C xyL=1:11 kg/m2/s ALK4  206/216/11/317    2 2\n0 CEDS_C5H12_IND  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 2014/1-12/1/0 C xyL=1:15 kg/m2/s ALK4  206/216/11/318    1 2\n0 CEDS_C5H12_TRA  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/11        3 2\n0 CEDS_C5H12_RCO  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/11        4 2\n0 CEDS_C5H12_SLV  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/11        1 2\n0 CEDS_C5H12_WST  see/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/11        9 2\n\n#12 C6H14toALK4\n0 CEDS_C6H14_AGR  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/12        5 2\n0 CEDS_C6H14_ENE  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  2014/1-12/1/0 C xyL=1:11 kg/m2/s ALK4  206/216/12/317    2 2\n0 CEDS_C6H14_IND  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  2014/1-12/1/0 C xyL=1:15 kg/m2/s ALK4  206/216/12/318    1 2\n0 CEDS_C6H14_TRA  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/12        3 2\n0 CEDS_C6H14_RCO  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/12        4 2\n0 CEDS_C6H14_SLV  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/12        1 2\n0 CEDS_C6H14_WST  see/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  2014/1-12/1/0 C xy       kg/m2/s ALK4  206/216/12        9 2\n\n#14 MEKtoACET\n#50 CEDS_KET2ACET\n0 CEDS_ACET_AGR    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xy       kg/m2/s ACET   206/216/14/51     5 2\n0 CEDS_ACET_ENE    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xyL=1:11 kg/m2/s ACET   206/216/14/51/317 2 2\n0 CEDS_ACET_IND    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xyL=1:15 kg/m2/s ACET   206/216/14/51/318 1 2\n0 CEDS_ACET_TRA    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xy       kg/m2/s ACET   206/216/14/51     3 2\n0 CEDS_ACET_RCO    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xy       kg/m2/s ACET   206/216/14/51     4 2\n0 CEDS_ACET_SLV    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xy       kg/m2/s ACET   206/216/14/51     1 2\n0 CEDS_ACET_WST    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc          MEK_agr           2014/1-12/1/0 C xy       kg/m2/s ACET   206/216/14/51     9 2\n\n#13 MEKtoMEK\n#51 CEDS_KET2MEK\n0 CEDS_MEK_AGR    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           2014/1-12/1/0 C xy       kg/m2/s MEK   206/216/13/50     5 2\n0 CEDS_MEK_ENE    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           2014/1-12/1/0 C xyL=1:11 kg/m2/s MEK   206/216/13/50/317 2 2\n0 CEDS_MEK_IND    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           2014/1-12/1/0 C xyL=1:15 kg/m2/s MEK   206/216/13/50/318 1 2\n0 CEDS_MEK_TRA    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           2014/1-12/1/0 C xy       kg/m2/s MEK   206/216/13/50     3 2\n0 CEDS_MEK_RCO    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           2014/1-12/1/0 C xy       kg/m2/s MEK   206/216/13/50     4 2\n0 CEDS_MEK_SLV    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           2014/1-12/1/0 C xy       kg/m2/s MEK   206/216/13/50     1 2\n0 CEDS_MEK_WST    see/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           2014/1-12/1/0 C xy       kg/m2/s MEK   206/216/13/50     9 2\n\n#15 ALD2toALD2\n0 CEDS_ALD2_AGR   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          2014/1-12/1/0 C xy       kg/m2/s ALD2  206/216/15        5 2\n0 CEDS_ALD2_ENE   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s ALD2  206/216/15/317    2 2\n0 CEDS_ALD2_IND   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s ALD2  206/216/15/318    1 2\n0 CEDS_ALD2_TRA   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          2014/1-12/1/0 C xy       kg/m2/s ALD2  206/216/15        3 2\n0 CEDS_ALD2_RCO   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          2014/1-12/1/0 C xy       kg/m2/s ALD2  206/216/15        4 2\n0 CEDS_ALD2_SLV   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          2014/1-12/1/0 C xy       kg/m2/s ALD2  206/216/15        1 2\n0 CEDS_ALD2_WST   see/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          2014/1-12/1/0 C xy       kg/m2/s ALD2  206/216/15        9 2\n\n0 CEDS_PRPE_AGR   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          2014/1-12/1/0 C xy       kg/m2/s PRPE  206/216           5 2\n0 CEDS_PRPE_ENE   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s PRPE  206/216/317       2 2\n0 CEDS_PRPE_IND   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s PRPE  206/216/318       1 2\n0 CEDS_PRPE_TRA   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          2014/1-12/1/0 C xy       kg/m2/s PRPE  206/216           3 2\n0 CEDS_PRPE_RCO   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          2014/1-12/1/0 C xy       kg/m2/s PRPE  206/216           4 2\n0 CEDS_PRPE_SLV   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          2014/1-12/1/0 C xy       kg/m2/s PRPE  206/216           1 2\n0 CEDS_PRPE_WST   see/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          2014/1-12/1/0 C xy       kg/m2/s PRPE  206/216           9 2\n\n0 CEDS_C3H8_AGR   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          2014/1-12/1/0 C xy       kg/m2/s C3H8  206/216           5 2\n0 CEDS_C3H8_ENE   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s C3H8  206/216/317       2 2\n0 CEDS_C3H8_IND   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s C3H8  206/216/318       1 2\n0 CEDS_C3H8_TRA   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          2014/1-12/1/0 C xy       kg/m2/s C3H8  206/216           3 2\n0 CEDS_C3H8_RCO   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          2014/1-12/1/0 C xy       kg/m2/s C3H8  206/216           4 2\n0 CEDS_C3H8_SLV   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          2014/1-12/1/0 C xy       kg/m2/s C3H8  206/216           1 2\n0 CEDS_C3H8_WST   see/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          2014/1-12/1/0 C xy       kg/m2/s C3H8  206/216           9 2\n\n0 CEDS_CH2O_AGR   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          2014/1-12/1/0 C xy       kg/m2/s CH2O  206/216        5 2\n0 CEDS_CH2O_ENE   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s CH2O  206/216/317    2 2\n0 CEDS_CH2O_IND   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s CH2O  206/216/318    1 2\n0 CEDS_CH2O_TRA   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          2014/1-12/1/0 C xy       kg/m2/s CH2O  206/216        3 2\n0 CEDS_CH2O_RCO   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          2014/1-12/1/0 C xy       kg/m2/s CH2O  206/216        4 2\n0 CEDS_CH2O_SLV   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          2014/1-12/1/0 C xy       kg/m2/s CH2O  206/216        1 2\n0 CEDS_CH2O_WST   see/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          2014/1-12/1/0 C xy       kg/m2/s CH2O  206/216        9 2\n\n0 CEDS_BENZ_AGR   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          2014/1-12/1/0 C xy       kg/m2/s BENZ  206/216           5 2\n0 CEDS_BENZ_ENE   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s BENZ  206/216/317       2 2\n0 CEDS_BENZ_IND   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s BENZ  206/216/318       1 2\n0 CEDS_BENZ_TRA   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          2014/1-12/1/0 C xy       kg/m2/s BENZ  206/216           3 2\n0 CEDS_BENZ_RCO   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          2014/1-12/1/0 C xy       kg/m2/s BENZ  206/216           4 2\n0 CEDS_BENZ_SLV   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          2014/1-12/1/0 C xy       kg/m2/s BENZ  206/216           1 2\n0 CEDS_BENZ_WST   see/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          2014/1-12/1/0 C xy       kg/m2/s BENZ  206/216           9 2\n\n0 CEDS_TOLU_AGR   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          2014/1-12/1/0 C xy       kg/m2/s TOLU  206/216           5 2\n0 CEDS_TOLU_ENE   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s TOLU  206/216/317       2 2\n0 CEDS_TOLU_IND   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s TOLU  206/216/318       1 2\n0 CEDS_TOLU_TRA   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          2014/1-12/1/0 C xy       kg/m2/s TOLU  206/216           3 2\n0 CEDS_TOLU_RCO   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          2014/1-12/1/0 C xy       kg/m2/s TOLU  206/216           4 2\n0 CEDS_TOLU_SLV   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          2014/1-12/1/0 C xy       kg/m2/s TOLU  206/216           1 2\n0 CEDS_TOLU_WST   see/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          2014/1-12/1/0 C xy       kg/m2/s TOLU  206/216           9 2\n\n0 CEDS_XYLE_AGR   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          2014/1-12/1/0 C xy       kg/m2/s XYLE  206/216           5 2\n0 CEDS_XYLE_ENE   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s XYLE  206/216/317       2 2\n0 CEDS_XYLE_IND   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s XYLE  206/216/318       1 2\n0 CEDS_XYLE_TRA   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          2014/1-12/1/0 C xy       kg/m2/s XYLE  206/216           3 2\n0 CEDS_XYLE_RCO   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          2014/1-12/1/0 C xy       kg/m2/s XYLE  206/216           4 2\n0 CEDS_XYLE_SLV   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          2014/1-12/1/0 C xy       kg/m2/s XYLE  206/216           1 2\n0 CEDS_XYLE_WST   see/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          2014/1-12/1/0 C xy       kg/m2/s XYLE  206/216           9 2\n\n0 CEDS_C2H4_AGR   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          2014/1-12/1/0 C xy       kg/m2/s C2H4  206/216           5 2\n0 CEDS_C2H4_ENE   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s C2H4  206/216/317       2 2\n0 CEDS_C2H4_IND   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s C2H4  206/216/318       1 2\n0 CEDS_C2H4_TRA   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          2014/1-12/1/0 C xy       kg/m2/s C2H4  206/216           3 2\n0 CEDS_C2H4_RCO   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          2014/1-12/1/0 C xy       kg/m2/s C2H4  206/216           4 2\n0 CEDS_C2H4_SLV   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          2014/1-12/1/0 C xy       kg/m2/s C2H4  206/216           1 2\n0 CEDS_C2H4_WST   see/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          2014/1-12/1/0 C xy       kg/m2/s C2H4  206/216           9 2\n\n#0 CEDS_C2H2_AGR   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          2014/1-12/1/0 C xy       kg/m2/s C2H2  206/216           5 2\n#0 CEDS_C2H2_ENE   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s C2H2  206/216/317       2 2\n#0 CEDS_C2H2_IND   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s C2H2  206/216/318       1 2\n#0 CEDS_C2H2_TRA   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          2014/1-12/1/0 C xy       kg/m2/s C2H2  206/216           3 2\n#0 CEDS_C2H2_RCO   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          2014/1-12/1/0 C xy       kg/m2/s C2H2  206/216           4 2\n#0 CEDS_C2H2_SLV   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          2014/1-12/1/0 C xy       kg/m2/s C2H2  206/216           1 2\n#0 CEDS_C2H2_WST   see/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          2014/1-12/1/0 C xy       kg/m2/s C2H2  206/216           9 2\n\n#16 HCOOHtoHCOOH\n0 CEDS_HCOOH_AGR  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         2014/1-12/1/0 C xy       kg/m2/s HCOOH 206/216/16        5 2\n0 CEDS_HCOOH_ENE  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         2014/1-12/1/0 C xyL=1:11 kg/m2/s HCOOH 206/216/16/317    2 2\n0 CEDS_HCOOH_IND  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         2014/1-12/1/0 C xyL=1:15 kg/m2/s HCOOH 206/216/16/318    1 2\n0 CEDS_HCOOH_TRA  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         2014/1-12/1/0 C xy       kg/m2/s HCOOH 206/216/16        3 2\n0 CEDS_HCOOH_RCO  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         2014/1-12/1/0 C xy       kg/m2/s HCOOH 206/216/16        4 2\n0 CEDS_HCOOH_SLV  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         2014/1-12/1/0 C xy       kg/m2/s HCOOH 206/216/16        1 2\n0 CEDS_HCOOH_WST  see/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         2014/1-12/1/0 C xy       kg/m2/s HCOOH 206/216/16        9 2\n)))CEDS_VOCs\n\n(((CEDS_C2H6\n0 CEDS_C2H6_AGR   /see/ExtData.rc                                C2H6_agr          2014/1-12/1/0 C xy       kg/m2/s C2H6  206/216           5 2\n0 CEDS_C2H6_ENE   /see/ExtData.rc                                C2H6_ene          2014/1-12/1/0 C xyL=1:11 kg/m2/s C2H6  206/216/317       2 2\n0 CEDS_C2H6_IND   /see/ExtData.rc                                C2H6_ind          2014/1-12/1/0 C xyL=1:15 kg/m2/s C2H6  206/216/318       1 2\n0 CEDS_C2H6_TRA   /see/ExtData.rc                                C2H6_tra          2014/1-12/1/0 C xy       kg/m2/s C2H6  206/216           3 2\n0 CEDS_C2H6_RCO   /see/ExtData.rc                                C2H6_rco          2014/1-12/1/0 C xy       kg/m2/s C2H6  206/216           4 2\n0 CEDS_C2H6_SLV   /see/ExtData.rc                                C2H6_slv          2014/1-12/1/0 C xy       kg/m2/s C2H6  206/216           1 2\n0 CEDS_C2H6_WST   /see/ExtData.rc                                C2H6_wst          2014/1-12/1/0 C xy       kg/m2/s C2H6  206/216           9 2\n)))CEDS_C2H6\n\n#=======================================================================================================================================\n# --- GEIA (natural NH3 only) ---\n#=======================================================================================================================================\n0 GEIA_NH3_NATU ~/data/NH3_geos.1x1.nc         NH3_NATU    1990/1-12/1/0 C xy  kg/m2/s NH3 - 6 1\n\n#=======================================================================================================================================\n# NH3 from sea birds\n#=======================================================================================================================================\n(((SEABIRDS\n0 SEABIRD_NH3   $ROOT/NH3/v2018-04/NH3_Arctic_seabirds.nc  NH3_SEABIRDS 1990/1-12/1/0 C xy  kg/m2/s NH3 - 30 1\n)))SEABIRDS\n\n#==============================================================================\n# --- POET EOH ---\n#==============================================================================\n(((POET\n0 POET_EOH $ROOT/POET/v2017-03/POET_EOH.geos.2x25.nc EOH 1985/1/1/0 C xy kgC/m2/s EOH 26/47 1 1\n)))POET\n\n#=======================================================================================================================================\n# --- NAP EMISSIONS ---\n#=======================================================================================================================================\n0 EDGAR_NAP $ROOT/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc BENZ 1985/1/1/0 C xy kgC/m2/s NAP 80/81/82/43 1 1\n\n(((C2H6_ZITELY\n0 C2H6_2010_anthro   $ROOT/C2H6_2010/v2017-05/C2H6_global_anth_biof.2010$MM.nc ANTHR_C2H6   2010/1-12/1/0 C xy kgC/m2/s C2H6 206/216/45 1/2/3 100\n0 C2H6_2010_biofuel  $ROOT/C2H6_2010/v2017-05/C2H6_global_anth_biof.2010$MM.nc BIOFUEL_C2H6 2010/1-12/1/0 C xy kgC/m2/s C2H6 206/216/45 4     100\n)))C2H6_ZITELY\n\n#=======================================================================================================================================\n# --- Bromocarbon emissions ---\n#=======================================================================================================================================\n0 LIANG_CHBr3  Bromocarb_Liang2010.nc CHBr3_emission  2000/1/1/0 C xy kg/m2/s CHBr3  39 1 1\n0 LIANG_CH2Br2 Bromocarb_Liang2010.nc CH2Br2_emission 2000/1/1/0 C xy kg/m2/s CH2Br2 -  1 1\n\n#==============================================================================\n# --- Very-short-lived (VSL) iodocarbon emissions (cf. Carlos Ordonez) ---\n#==============================================================================\n(((ORDONEZ_IODOCARB\n0 ORDONEZ_CH3I   Emissions/CH3I_monthly_emissions_Ordonez_2012_COARDS.nc   CH3I   2000/1-12/1/0 C xy kg/m2/s CH3I   - 1 1\n0 ORDONEZ_CH2I2  Emissions/CH2I2_monthly_emissions_Ordonez_2012_COARDS.nc  CH2I2  2000/1-12/1/0 C xy kg/m2/s CH2I2  - 1 1\n0 ORDONEZ_CH2ICL Emissions/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.nc CH2ICl 2000/1-12/1/0 C xy kg/m2/s CH2ICl - 1 1\n0 ORDONEZ_CH2IBR Emissions/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc CH2IBr 2000/1-12/1/0 C xy kg/m2/s CH2IBr - 1 1\n)))ORDONEZ_IODOCARB\n\n#=======================================================================================================================================\n# --- CH4 emissions ---\n#=======================================================================================================================================\n### Gas and oil ###\n(((CH4_EMISSIONS\n0 CH4_GAS__1B2a         $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1B2a       2004-2008/1/1/0 C xy kg/m2/s CH4 - 1 1\n0 CH4_GAS__1B2b         $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1B2b       2004-2008/1/1/0 C xy kg/m2/s CH4 - 1 1\n\n### Coal mines ###\n0 CH4_COAL__1B1         $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1B1        2004-2008/1/1/0 C xy kg/m2/s CH4 - 2 1\n\n### Livestock ###\n0 CH4_LIVESTOCK__4A     $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_4A         2004-2008/1/1/0 C xy kg/m2/s CH4 - 3 1\n0 CH4_LIVESTOCK__4B     $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_4B         2004-2008/1/1/0 C xy kg/m2/s CH4 - 3 1\n\n### Waste ###\n0 CH4_WASTE__6A_6C      $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_6A_6C      2004-2008/1/1/0 C xy kg/m2/s CH4 - 4 1\n0 CH4_WASTE__6B         $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_6B         2004-2008/1/1/0 C xy kg/m2/s CH4 - 4 1\n\n### Residential biofuel ###\n0 CH4_BIOFUEL__1A4      $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1A4        2004-2008/1/1/0 C xy kg/m2/s CH4 - 5 1\n\n### Other sectors ###\n0 CH4_OTHER__1A1_1A2    $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1A1_1A2    2004-2008/1/1/0 C xy kg/m2/s CH4 - 6 1\n0 CH4_OTHER__1A3a_c_d_e $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1A3a_c_d_e 2004-2008/1/1/0 C xy kg/m2/s CH4 - 6 1\n0 CH4_OTHER__1A3b       $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_1A3b       2004-2008/1/1/0 C xy kg/m2/s CH4 - 6 1\n0 CH4_OTHER__2          $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_2          2004-2008/1/1/0 C xy kg/m2/s CH4 - 6 1\n0 CH4_OTHER__7A         $ROOT/CH4/v2014-09/v42_CH4.0.1x0.1.nc  ch4_7A         2004-2008/1/1/0 C xy kg/m2/s CH4 - 6 1\n\n0 CH4_SOILABSORBTION $ROOT/CH4/v2014-09/$RES/soilabs.geos.$RES.nc  CH4 1985/1/1/0 C xy kg/m2/s CH4 1 7 1\n0 CH4_TERMITES       $ROOT/CH4/v2014-09/$RES/termites.geos.$RES.nc CH4 1985/1/1/0 C xy kg/m2/s CH4 - 8 1\n\n### Wetlands ###\n0 CH4_WETL           /see/ExtData.rc                               VAR 1985-2015/1-12/1/0 C xy kg/m2/s CH4 - 9 1\n)))CH4_EMISSIONS\n\n#=======================================================================================================================================\n## --- Ship emissions ---\n#=======================================================================================================================================\n(((CEDS_SHIP\n0 CEDS_CO_SHP     /see/CO_ExtData.rc            CO_shp            2014/1-12/1/0 C xyL=1:3 kg/m2/s CO    319     10 5\n0 CEDS_SOAP_SHP   -                             -                 -             - -       -       SOAP  280/319 10 5\n0 CEDS_SO2_SHP    /see/SO2_ExtData.rc           SO2_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s SO2   319     10 5\n0 CEDS_SO4_SHP    -                             -                 -             - -       -       SO4   63/319  10 5\n0 CEDS_pFe_SHP    -                             -                 -             - -       -       pFe   66/319  10 5\n0 CEDS_NH3_SHP    /see/NH3_ExtData.rc           NH3_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s NH3   319     10 5\n0 CEDS_BCPI_SHP   /see/BC_ExtData.rc            BC_shp            2014/1-12/1/0 C xyL=1:3 kg/m2/s BCPI  70/319  10 5\n0 CEDS_BCPO_SHP   -                             -                 -             - -       -       BCPO  71/319  10 5\n0 CEDS_OCPI_SHP   /see/OC_ExtData.rc            OC_shp            2014/1-12/1/0 C xyL=1:3 kg/m2/s OCPI  72/319  10 5\n0 CEDS_OCPO_SHP   -                             -                 -             - -       -       OCPO  73/319  10 5\n# Comment out CO2 for fullchem simulations: CO2 not advected\n#0 CEDS_CO2_SHP   /see/CO2_ExtData.rc           CO2_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s CO2   319     10 5\n# Comment out CH4 for fullchem simulations: do not use CH4 emissions\n# CEDS CH4 emissions are only available for 1970-2014\n#0 CEDS_CH4_SHP   /see/CH4_ExtData.rc           CH4_shp           1970-2014/1-12/1/0 C xyL=1:3 kg/m2/s CH4   319    10 5\n# NOTE: EOH files in CEDS/v2018-08 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_SHP    /see/EOH_ExtData.rc           EOH_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s MOH   92/8/319  10 5\n0 CEDS_EOH_SHP    -                             -                 -             - -       -       EOH   93/9/319  10 5\n0 CEDS_ROH_SHP    -                             -                 -             - -       -       ROH   94/24/319 10 5\n0 CEDS_C2H6_SHP   /see/C2H6_ExtData.rc          C2H6_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s C2H6  319       10 5\n0 CEDS_C3H8_SHP   /see/C3H8_ExtData.rc          C3H8_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s C3H8  319       10 5\n0 CEDS_C4H10_SHP  /see/ALK4_butanes_ExtData.rc  ALK4_butanes_shp  2014/1-12/1/0 C xyL=1:3 kg/m2/s ALK4  10/319    10 5\n0 CEDS_C5H12_SHP  /see/ALK4_pentanes_ExtData.rc ALK4_pentanes_shp 2014/1-12/1/0 C xyL=1:3 kg/m2/s ALK4  11/319    10 5\n0 CEDS_C6H14_SHP  /see/ALK4_hexanes_ExtData.rc  ALK4_hexanes_shp  2014/1-12/1/0 C xyL=1:3 kg/m2/s ALK4  12/319    10 5\n0 CEDS_C2H4_SHP   /see/C2H4_ExtData.rc          C2H4_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s C2H4  319       10 5\n0 CEDS_PRPE_SHP   /see/PRPE_ExtData.rc          PRPE_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s PRPE  319       10 5\n0 CEDS_C2H2_SHP   /see/C2H2_ExtData.rc          C2H2_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s C2H2  319       10 5\n0 CEDS_BENZ_SHP   /see/BENZ_ExtData.rc          BENZ_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s BENZ  319       10 5\n0 CEDS_TOLU_SHP   /see/TOLU_ExtData.rc          TOLU_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s TOLU  319       10 5\n0 CEDS_XYLE_SHP   /see/XYLE_ExtData.rc          XYLE_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s XYLE  319       10 5\n0 CEDS_CH2O_SHP   /see/CH2O_ExtData.rc          CH2O_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s CH2O  319       10 5\n0 CEDS_ALD2_SHP   /see/ALD2_ExtData.rc          ALD2_shp          2014/1-12/1/0 C xyL=1:3 kg/m2/s ALD2  15/319    10 5\n0 CEDS_MEK_SHP    /see/MEK_ExtData.rc           MEK_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s MEK   13/50/319 10 5\n0 CEDS_ACET_SHP   /see/MEK_ExtData.rc           MEK_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s ACET  14/51/319 10 5\n0 CEDS_HCOOH_SHP  /see/HCOOH_ExtData.rc         HCOOH_shp         2014/1-12/1/0 C xyL=1:3 kg/m2/s HCOOH 16/319    10 5\n#97  NOx ems as NO scale factor\n#98 NOx ems as NO2 scale factor and #115 for mass conversion\n0 CEDS_NO_SHP     /see/NO_ExtData.rc           NO_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s NO    97/319     10 5\n0 CEDS_NO2_SHP    /see/NO_ExtData.rc           NO_shp           2014/1-12/1/0 C xyL=1:3 kg/m2/s NO2   98/115/319     10 5\n)))CEDS_SHIP\n\n#=======================================================================================================================================\n## --- AEIC aircraft emissions ---\n#=======================================================================================================================================\n(((AEIC\n0 AEIC_NO   ~/data/aeic_2005.geos.1x1.72L.nc  NO       2005/1-12/1/0 C xyz kg/m2/s NO   110        20 1\n0 AEIC_CO   ~/data/aeic_2005.geos.1x1.72L.nc  CO       2005/1-12/1/0 C xyz kg/m2/s CO   110        20 1\n0 AEIC_SOAP -                                 -        -             - -   -       SOAP 110/280    20 1  \n0 AEIC_SO2  ~/data/aeic_2005.geos.1x1.72L.nc  FUELBURN 2005/1-12/1/0 C xyz kg/m2/s SO2  111        20 1 \n0 AEIC_SO4  -                                 -        -             - -   -       SO4  112        20 1 \n0 AEIC_BCPI -                                 -        -             - -   -       BCPI 113        20 1 \n0 AEIC_OCPI -                                 -        -             - -   -       OCPI 113        20 1 \n0 AEIC_ACET ~/data/aeic_2005.geos.1x1.72L.nc  HC       2005/1-12/1/0 C xyz kg/m2/s ACET 114/101/40 20 1\n0 AEIC_ALD2 -                                 -        -             - -   -       ALD2 114/102/41 20 1\n0 AEIC_ALK4 -                                 -        -             - -   -       ALK4 114/103/42 20 1\n0 AEIC_C2H6 -                                 -        -             - -   -       C2H6 114/104/45 20 1\n0 AEIC_C3H8 -                                 -        -             - -   -       C3H8 114/105/46 20 1\n0 AEIC_CH2O -                                 -        -             - -   -       CH2O 114/106    20 1\n0 AEIC_PRPE -                                 -        -             - -   -       PRPE 114/107/49 20 1\n0 AEIC_MACR -                                 -        -             - -   -       MACR 114/108/83 20 1\n0 AEIC_RCHO -                                 -        -             - -   -       RCHO 114/109/69 20 1\n)))AEIC \n    \n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_NO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO       2019/1-12/1/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_MONMEAN_NO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO2      2019/1-12/1/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_MONMEAN_HONO $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HONO     2019/1-12/1/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_MONMEAN_CO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO       2019/1-12/1/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_MONMEAN_SOAP -                                                                          -        -             - -   -       SOAP 241/280     20 1\n0 AEIC19_MONMEAN_SO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_MONMEAN_pFe  -                                                                          -        -             - -   -       pFe  241/111/66  20 1\n0 AEIC19_MONMEAN_SO4  -                                                                          -        -             - -   -       SO4  241/112     20 1\n0 AEIC19_MONMEAN_H2O  -                                                                          -        -             - -   -       H2O  241/120     20 1\n0 AEIC19_MONMEAN_BCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc BC       2019/1-12/1/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_MONMEAN_OCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc OC       2019/1-12/1/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_MONMEAN_POG1 -                                                                          -        -             - -   -       POG1 241/74/76   20 1\n0 AEIC19_MONMEAN_POG2 -                                                                          -        -             - -   -       POG2 241/74/77   20 1\n0 AEIC19_MONMEAN_ACET $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HC       2019/1-12/1/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_MONMEAN_ALD2 -                                                                          -        -             - -   -       ALD2 241/114/102 20 1\n0 AEIC19_MONMEAN_ALK4 -                                                                          -        -             - -   -       ALK4 241/114/103 20 1\n0 AEIC19_MONMEAN_C2H6 -                                                                          -        -             - -   -       C2H6 241/114/104 20 1\n0 AEIC19_MONMEAN_C3H8 -                                                                          -        -             - -   -       C3H8 241/114/105 20 1\n0 AEIC19_MONMEAN_CH2O -                                                                          -        -             - -   -       CH2O 241/114/106 20 1\n0 AEIC19_MONMEAN_PRPE -                                                                          -        -             - -   -       PRPE 241/114/107 20 1\n0 AEIC19_MONMEAN_MACR -                                                                          -        -             - -   -       MACR 241/114/108 20 1\n0 AEIC19_MONMEAN_RCHO -                                                                          -        -             - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- Emissions from decaying plants ---\n#==============================================================================\n(((DECAYING_PLANTS\n0 ALD2_PLANTDECAY $ROOT/ALD2/v2017-03/resp.geos.2x25.nc HET_RESP 1985/1-12/1/0 C xy kgC/m2/s ALD2 85/41 99 1\n0 EOH_PLANTDECAY  -                                     -        -             - -  -        EOH  86/47 99 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n#  AFCID emissions turned off; put entry here if turning on\n#==============================================================================\n(((AFCID\n0 PM25FINE_1 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DST1 -    1 1\n)))AFCID\n\n#=======================================================================================================================================\n# --- QFED biomass burning --- \n#=======================================================================================================================================\n(((QFED\n# ACET\n0 QFED_ACET_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ACET 75/311/501     8 1\n0 QFED_ACET_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ACET 75/311/314/502 8 1\n0 QFED_ACET_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ACET 75/311/315/503 8 1\n0 QFED_ACET_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ACET 75/311/504     8 1\n0 QFED_ACET_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ACET 75/311/504     8 1\n0 QFED_ACET_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ACET 75/312/501     8 1\n0 QFED_ACET_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ACET 75/312/314/502 8 1\n0 QFED_ACET_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ACET 75/312/315/503 8 1\n0 QFED_ACET_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ACET 75/312/504     8 1\n0 QFED_ACET_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ACET 75/312/504     8 1\n# ALD2\n0 QFED_ALD2_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALD2 75/311/505     8 1\n0 QFED_ALD2_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALD2 75/311/314/506 8 1\n0 QFED_ALD2_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALD2 75/311/315/507 8 1\n0 QFED_ALD2_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALD2 75/311/508     8 1\n0 QFED_ALD2_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALD2 75/311/508     8 1\n0 QFED_ALD2_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALD2 75/312/505     8 1\n0 QFED_ALD2_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALD2 75/312/314/506 8 1\n0 QFED_ALD2_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALD2 75/312/315/507 8 1\n0 QFED_ALD2_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALD2 75/312/508     8 1\n0 QFED_ALD2_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALD2 75/312/508     8 1\n# ALK4\n0 QFED_ALK4_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALK4 75/311/509     8 1\n0 QFED_ALK4_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALK4 75/311/314/510 8 1\n0 QFED_ALK4_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALK4 75/311/315/511 8 1\n0 QFED_ALK4_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALK4 75/311/512     8 1\n0 QFED_ALK4_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s ALK4 75/311/512     8 1\n0 QFED_ALK4_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALK4 75/312/509     8 1\n0 QFED_ALK4_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALK4 75/312/314/510 8 1\n0 QFED_ALK4_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALK4 75/312/315/511 8 1\n0 QFED_ALK4_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALK4 75/312/512     8 1\n0 QFED_ALK4_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s ALK4 75/312/512     8 1\n# BCPI/BCPO\n0 QFED_BCPI_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s BCPI 70/75/311/513     8 1\n0 QFED_BCPO_TF_SFC  -                                                                 -       -                     - -             -         BCPO 71/75/311/513     8 1\n0 QFED_BCPI_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s BCPI 70/75/311/314/514 8 1\n0 QFED_BCPO_TP_SFC  -                                                                 -       -                     - -             -         BCPO 71/75/311/314/514 8 1\n0 QFED_BCPI_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s BCPI 70/75/311/315/515 8 1\n0 QFED_BCPO_BO_SFC  -                                                                 -       -                     - -             -         BCPO 71/75/311/315/515 8 1\n0 QFED_BCPI_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s BCPI 70/75/311/516     8 1\n0 QFED_BCPO_SV_SFC  -                                                                 -       -                     - -             -         BCPO 71/75/311/516     8 1\n0 QFED_BCPI_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s BCPI 70/75/311/516     8 1\n0 QFED_BCPO_GL_SFC  -                                                                 -       -                     - -             -         BCPO 71/75/311/516     8 1\n0 QFED_BCPI_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s BCPI 70/75/312/513     8 1\n0 QFED_BCPO_TF_FT   -                                                                 -       -                     - -             -         BCPO 71/75/312/513     8 1\n0 QFED_BCPI_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s BCPI 70/75/312/314/514 8 1\n0 QFED_BCPO_TP_FT   -                                                                 -       -                     - -             -         BCPO 71/75/312/314/514 8 1\n0 QFED_BCPI_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s BCPI 70/75/312/315/515 8 1\n0 QFED_BCPO_BO_FT   -                                                                 -       -                     - -             -         BCPO 71/75/312/315/515 8 1\n0 QFED_BCPI_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s BCPI 70/75/312/516     8 1\n0 QFED_BCPO_SV_FT   -                                                                 -       -                     - -             -         BCPO 71/75/312/516     8 1\n0 QFED_BCPI_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s BCPI 70/75/312/516     8 1\n0 QFED_BCPO_GL_FT   -                                                                 -       -                     - -             -         BCPO 71/75/312/516     8 1\n# OCPI/OCPO\n0 QFED_OCPI_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s OCPI 72/75/311/313/517     8 1\n0 QFED_OCPO_TF_SFC  -                                                                 -       -                     - -             -         OCPO 73/75/311/313/517     8 1\n0 QFED_OCPI_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s OCPI 72/75/311/313/314/518 8 1\n0 QFED_OCPO_TP_SFC  -                                                                 -       -                     - -             -         OCPO 73/75/311/313/314/518 8 1\n0 QFED_OCPI_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s OCPI 72/75/311/313/315/519 8 1\n0 QFED_OCPO_BO_SFC  -                                                                 -       -                     - -             -         OCPO 73/75/311/313/315/519 8 1\n0 QFED_OCPI_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s OCPI 72/75/311/313/520     8 1\n0 QFED_OCPO_SV_SFC  -                                                                 -       -                     - -             -         OCPO 73/75/311/313/520     8 1\n0 QFED_OCPI_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s OCPI 72/75/311/313/520     8 1\n0 QFED_OCPO_GL_SFC  -                                                                 -       -                     - -             -         OCPO 73/75/311/313/520     8 1\n0 QFED_OCPI_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s OCPI 72/75/312/313/517     8 1\n0 QFED_OCPO_TF_FT   -                                                                 -       -                     - -             -         OCPO 73/75/312/313/517     8 1\n0 QFED_OCPI_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s OCPI 72/75/312/313/314/518 8 1\n0 QFED_OCPO_TP_FT   -                                                                 -       -                     - -             -         OCPO 73/75/312/313/314/518 8 1\n0 QFED_OCPI_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s OCPI 72/75/312/313/315/519 8 1\n0 QFED_OCPO_BO_FT   -                                                                 -       -                     - -             -         OCPO 73/75/312/313/315/519 8 1\n0 QFED_OCPI_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s OCPI 72/75/312/313/520     8 1\n0 QFED_OCPO_SV_FT   -                                                                 -       -                     - -             -         OCPO 73/75/312/313/520     8 1\n0 QFED_OCPI_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s OCPI 72/75/312/313/520     8 1\n0 QFED_OCPO_GL_FT   -                                                                 -       -                     - -             -         OCPO 73/75/312/313/520     8 1\n# C2H6\n0 QFED_C2H6_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C2H6 75/311/521     8 1\n0 QFED_C2H6_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C2H6 75/311/314/522 8 1\n0 QFED_C2H6_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C2H6 75/311/315/523 8 1\n0 QFED_C2H6_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C2H6 75/311/524     8 1\n0 QFED_C2H6_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C2H6 75/311/524     8 1\n0 QFED_C2H6_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C2H6 75/312/521     8 1\n0 QFED_C2H6_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C2H6 75/312/314/522 8 1\n0 QFED_C2H6_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C2H6 75/312/315/523 8 1\n0 QFED_C2H6_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C2H6 75/312/524     8 1\n0 QFED_C2H6_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C2H6 75/312/524     8 1\n# C3H8\n0 QFED_C3H8_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C3H8 75/311/525     8 1\n0 QFED_C3H8_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C3H8 75/311/314/526 8 1\n0 QFED_C3H8_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C3H8 75/311/315/527 8 1\n0 QFED_C3H8_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C3H8 75/311/528     8 1\n0 QFED_C3H8_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s C3H8 75/311/528     8 1\n0 QFED_C3H8_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C3H8 75/312/525     8 1\n0 QFED_C3H8_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C3H8 75/312/314/526 8 1\n0 QFED_C3H8_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C3H8 75/312/315/527 8 1\n0 QFED_C3H8_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C3H8 75/312/528     8 1\n0 QFED_C3H8_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s C3H8 75/312/528     8 1\n# CH2O\n0 QFED_CH2O_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CH2O 75/311/529     8 1\n0 QFED_CH2O_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CH2O 75/311/314/530 8 1\n0 QFED_CH2O_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CH2O 75/311/315/531 8 1\n0 QFED_CH2O_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CH2O 75/311/532     8 1\n0 QFED_CH2O_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CH2O 75/311/532     8 1\n0 QFED_CH2O_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CH2O 75/312/529     8 1\n0 QFED_CH2O_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CH2O 75/312/314/530 8 1\n0 QFED_CH2O_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CH2O 75/312/315/531 8 1\n0 QFED_CH2O_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CH2O 75/312/532     8 1\n0 QFED_CH2O_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CH2O 75/312/532     8 1\n# CO/SOAP/PRPE/MTPA/BENZ/TOLU/XYLE/EOH/MOH\n0 QFED_CO_TF_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CO   54/75/311/533         8 1\n0 QFED_SOAP_TF_SFC  -                                                                 -       -                     - -             -         SOAP 54/75/281/311/533     8 1\n0 QFED_MTPA_TF_SFC  -                                                                 -       -                     - -             -         MTPA 54/75/564/311/533     8 1\n0 QFED_BENZ_TF_SFC  -                                                                 -       -                     - -             -         BENZ 54/75/568/311/533     8 1\n0 QFED_TOLU_TF_SFC  -                                                                 -       -                     - -             -         TOLU 54/75/572/311/533     8 1\n0 QFED_XYLE_TF_SFC  -                                                                 -       -                     - -             -         XYLE 54/75/576/311/533     8 1\n0 QFED_EOH_TF_SFC   -                                                                 -       -                     - -             -         EOH  54/75/580/311/533     8 1\n0 QFED_MOH_TF_SFC   -                                                                 -       -                     - -             -         MOH  54/75/584/311/533     8 1\n0 QFED_CO_TP_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CO   54/75/311/314/534     8 1\n0 QFED_SOAP_TP_SFC  -                                                                 -       -                     - -             -         SOAP 54/75/281/311/314/534 8 1\n0 QFED_MTPA_TP_SFC  -                                                                 -       -                     - -             -         MTPA 54/75/565/311/314/534 8 1\n0 QFED_BENZ_TP_SFC  -                                                                 -       -                     - -             -         BENZ 54/75/569/311/314/534 8 1\n0 QFED_TOLU_TP_SFC  -                                                                 -       -                     - -             -         TOLU 54/75/573/311/314/534 8 1\n0 QFED_XYLE_TP_SFC  -                                                                 -       -                     - -             -         XYLE 54/75/577/311/314/534 8 1\n0 QFED_EOH_TP_SFC   -                                                                 -       -                     - -             -         EOH  54/75/581/311/314/534 8 1\n0 QFED_MOH_TP_SFC   -                                                                 -       -                     - -             -         MOH  54/75/585/311/314/534 8 1\n0 QFED_CO_BO_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CO   54/75/311/315/535     8 1\n0 QFED_SOAP_BO_SFC  -                                                                 -       -                     - -             -         SOAP 54/75/281/311/315/535 8 1\n0 QFED_MTPA_BO_SFC  -                                                                 -       -                     - -             -         MTPA 54/75/566/311/315/535 8 1\n0 QFED_BENZ_BO_SFC  -                                                                 -       -                     - -             -         BENZ 54/75/570/311/315/535 8 1\n0 QFED_TOLU_BO_SFC  -                                                                 -       -                     - -             -         TOLU 54/75/574/311/315/535 8 1\n0 QFED_XYLE_BO_SFC  -                                                                 -       -                     - -             -         XYLE 54/75/578/311/315/535 8 1\n0 QFED_EOH_BO_SFC   -                                                                 -       -                     - -             -         EOH  54/75/582/311/315/535 8 1\n0 QFED_MOH_BO_SFC   -                                                                 -       -                     - -             -         MOH  54/75/586/311/315/535 8 1\n0 QFED_CO_SV_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CO   54/75/311/536         8 1\n0 QFED_SOAP_SV_SFC  -                                                                 -       -                     - -             -         SOAP 54/75/281/311/536     8 1\n0 QFED_MTPA_SV_SFC  -                                                                 -       -                     - -             -         MTPA 54/75/567/311/536     8 1\n0 QFED_BENZ_SV_SFC  -                                                                 -       -                     - -             -         BENZ 54/75/571/311/536     8 1\n0 QFED_TOLU_SV_SFC  -                                                                 -       -                     - -             -         TOLU 54/75/575/311/536     8 1\n0 QFED_XYLE_SV_SFC  -                                                                 -       -                     - -             -         XYLE 54/75/579/311/536     8 1\n0 QFED_EOH_SV_SFC   -                                                                 -       -                     - -             -         EOH  54/75/583/311/536     8 1\n0 QFED_MOH_SV_SFC   -                                                                 -       -                     - -             -         MOH  54/75/587/311/536     8 1\n0 QFED_CO_GL_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s CO   54/75/311/536         8 1\n0 QFED_SOAP_GL_SFC  -                                                                 -       -                     - -             -         SOAP 54/75/281/311/536     8 1\n0 QFED_MTPA_GL_SFC  -                                                                 -       -                     - -             -         MTPA 54/75/567/311/536     8 1\n0 QFED_BENZ_GL_SFC  -                                                                 -       -                     - -             -         BENZ 54/75/571/311/536     8 1\n0 QFED_TOLU_GL_SFC  -                                                                 -       -                     - -             -         TOLU 54/75/575/311/536     8 1\n0 QFED_XYLE_GL_SFC  -                                                                 -       -                     - -             -         XYLE 54/75/579/311/536     8 1\n0 QFED_EOH_GL_SFC   -                                                                 -       -                     - -             -         EOH  54/75/583/311/536     8 1\n0 QFED_MOH_GL_SFC   -                                                                 -       -                     - -             -         MOH  54/75/587/311/536     8 1\n0 QFED_CO_TF_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CO   54/75/312/533         8 1\n0 QFED_SOAP_TF_FT   -                                                                 -       -                     - -             -         SOAP 54/75/281/312/533     8 1\n0 QFED_MTPA_TF_FT   -                                                                 -       -                     - -             -         MTPA 54/75/564/312/533     8 1\n0 QFED_BENZ_TF_FT   -                                                                 -       -                     - -             -         BENZ 54/75/568/312/533     8 1\n0 QFED_TOLU_TF_FT   -                                                                 -       -                     - -             -         TOLU 54/75/572/312/533     8 1\n0 QFED_XYLE_TF_FT   -                                                                 -       -                     - -             -         XYLE 54/75/576/312/533     8 1\n0 QFED_EOH_TF_FT    -                                                                 -       -                     - -             -         EOH  54/75/580/312/533     8 1\n0 QFED_MOH_TF_FT    -                                                                 -       -                     - -             -         MOH  54/75/584/312/533     8 1\n0 QFED_CO_TP_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CO   54/75/312/314/534     8 1\n0 QFED_SOAP_TP_FT   -                                                                 -       -                     - -             -         SOAP 54/75/281/312/314/534 8 1\n0 QFED_MTPA_TP_FT   -                                                                 -       -                     - -             -         MTPA 54/75/565/312/314/534 8 1\n0 QFED_BENZ_TP_FT   -                                                                 -       -                     - -             -         BENZ 54/75/569/312/314/534 8 1\n0 QFED_TOLU_TP_FT   -                                                                 -       -                     - -             -         TOLU 54/75/573/312/314/534 8 1\n0 QFED_XYLE_TP_FT   -                                                                 -       -                     - -             -         XYLE 54/75/577/312/314/534 8 1\n0 QFED_EOH_TP_FT    -                                                                 -       -                     - -             -         EOH  54/75/581/312/314/534 8 1\n0 QFED_MOH_TP_FT    -                                                                 -       -                     - -             -         MOH  54/75/585/312/314/534 8 1\n0 QFED_CO_BO_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CO   54/75/312/315/535     8 1\n0 QFED_SOAP_BO_FT   -                                                                 -       -                     - -             -         SOAP 54/75/281/312/315/535 8 1\n0 QFED_MTPA_BO_FT   -                                                                 -       -                     - -             -         MTPA 54/75/566/312/315/535 8 1\n0 QFED_BENZ_BO_FT   -                                                                 -       -                     - -             -         BENZ 54/75/570/312/315/535 8 1\n0 QFED_TOLU_BO_FT   -                                                                 -       -                     - -             -         TOLU 54/75/574/312/315/535 8 1\n0 QFED_XYLE_BO_FT   -                                                                 -       -                     - -             -         XYLE 54/75/578/312/315/535 8 1\n0 QFED_EOH_BO_FT    -                                                                 -       -                     - -             -         EOH  54/75/582/312/315/535 8 1\n0 QFED_MOH_BO_FT    -                                                                 -       -                     - -             -         MOH  54/75/586/312/315/535 8 1\n0 QFED_CO_SV_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CO   54/75/312/536         8 1\n0 QFED_SOAP_SV_FT   -                                                                 -       -                     - -             -         SOAP 54/75/281/312/536     8 1\n0 QFED_MTPA_SV_FT   -                                                                 -       -                     - -             -         MTPA 54/75/567/312/536     8 1\n0 QFED_BENZ_SV_FT   -                                                                 -       -                     - -             -         BENZ 54/75/571/312/536     8 1\n0 QFED_TOLU_SV_FT   -                                                                 -       -                     - -             -         TOLU 54/75/575/312/536     8 1\n0 QFED_XYLE_SV_FT   -                                                                 -       -                     - -             -         XYLE 54/75/579/312/536     8 1\n0 QFED_EOH_SV_FT    -                                                                 -       -                     - -             -         EOH  54/75/583/312/536     8 1\n0 QFED_MOH_SV_FT    -                                                                 -       -                     - -             -         MOH  54/75/587/312/536     8 1\n0 QFED_CO_GL_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s CO   54/75/312/536         8 1\n0 QFED_SOAP_GL_FT   -                                                                 -       -                     - -             -         SOAP 54/75/281/312/536     8 1\n0 QFED_MTPA_GL_FT   -                                                                 -       -                     - -             -         MTPA 54/75/567/312/536     8 1\n0 QFED_BENZ_GL_FT   -                                                                 -       -                     - -             -         BENZ 54/75/571/312/536     8 1\n0 QFED_TOLU_GL_FT   -                                                                 -       -                     - -             -         TOLU 54/75/575/312/536     8 1\n0 QFED_XYLE_GL_FT   -                                                                 -       -                     - -             -         XYLE 54/75/579/312/536     8 1\n0 QFED_EOH_GL_FT    -                                                                 -       -                     - -             -         EOH  54/75/583/312/536     8 1\n0 QFED_MOH_GL_FT    -                                                                 -       -                     - -             -         MOH  54/75/587/312/536     8 1\n# MEK\n0 QFED_MEK_TF_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s MEK  75/311/537     8 1\n0 QFED_MEK_TP_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s MEK  75/311/314/538 8 1\n0 QFED_MEK_BO_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s MEK  75/311/315/539 8 1\n0 QFED_MEK_GL_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s MEK  75/311/540     8 1\n0 QFED_MEK_SV_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s MEK  75/311/540     8 1\n0 QFED_MEK_TF_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s MEK  75/312/537     8 1\n0 QFED_MEK_TP_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s MEK  75/312/314/538 8 1\n0 QFED_MEK_BO_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s MEK  75/312/315/539 8 1\n0 QFED_MEK_GL_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s MEK  75/312/540     8 1\n0 QFED_MEK_SV_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s MEK  75/312/540     8 1\n# NH3\n0 QFED_NH3_TF_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NH3  75/311/541     8 1\n0 QFED_NH3_TP_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NH3  75/311/314/542 8 1\n0 QFED_NH3_BO_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NH3  75/311/315/543 8 1\n0 QFED_NH3_GL_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NH3  75/311/544     8 1\n0 QFED_NH3_SV_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NH3  75/311/544     8 1\n0 QFED_NH3_TF_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NH3  75/312/541     8 1\n0 QFED_NH3_TP_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NH3  75/312/314/542 8 1\n0 QFED_NH3_BO_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NH3  75/312/315/543 8 1\n0 QFED_NH3_GL_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NH3  75/312/544     8 1\n0 QFED_NH3_SV_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NH3  75/312/544     8 1\n# NO/PAN/HNO3                \n0 QFED_NO_TF_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_tf 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NO   75/311/545/592     8 1\n0 QFED_PAN_TF_SFC   -                                                                 -          -                     - -               -       PAN  75/311/545/593     8 1\n0 QFED_HNO3_TF_SFC  -                                                                 -          -                     - -               -       HNO3 75/311/545/594     8 1\n0 QFED_NO_TP_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_xf 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NO   75/311/314/546/592 8 1\n0 QFED_PAN_TP_SFC   -                                                                 -          -                     - -               -       PAN  75/311/314/546/593 8 1\n0 QFED_HNO3_TP_SFC  -                                                                 -          -                     - -               -       HNO3 75/311/314/546/594 8 1\n0 QFED_NO_BO_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_xf 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NO   75/311/315/547/592 8 1\n0 QFED_PAN_BO_SFC   -                                                                 -          -                     - -               -       PAN  75/311/315/547/593 8 1\n0 QFED_HNO3_BO_SFC  -                                                                 -          -                     - -               -       HNO3 75/311/315/547/594 8 1\n0 QFED_NO_SV_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_sv 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NO   75/311/548/592     8 1\n0 QFED_PAN_SV_SFC   -                                                                 -          -                     - -               -       PAN  75/311/548/593     8 1\n0 QFED_HNO3_SV_SFC  -                                                                 -          -                     - -               -       HNO3 75/311/548/594     8 1\n0 QFED_NO_GL_SFC    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_gl 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s NO   75/311/548/592     8 1\n0 QFED_PAN_GL_SFC   -                                                                 -          -                     - -               -       PAN  75/311/548/593     8 1\n0 QFED_HNO3_GL_SFC  -                                                                 -          -                     - -               -       HNO3 75/311/548/594     8 1\n0 QFED_NO_TF_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_tf 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NO   75/312/545/592     8 1\n0 QFED_PAN_TF_FT    -                                                                 -          -                     - -               -       PAN  75/312/545/593     8 1\n0 QFED_HNO3_TF_FT   -                                                                 -          -                     - -               -       HNO3 75/312/545/594     8 1\n0 QFED_NO_TP_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_xf 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NO   75/312/314/546/592 8 1\n0 QFED_PAN_TP_FT    -                                                                 -          -                     - -               -       PAN  75/312/314/546/593 8 1\n0 QFED_HNO3_TP_FT   -                                                                 -          -                     - -               -       HNO3 75/312/314/546/594 8 1\n0 QFED_NO_BO_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_xf 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NO   75/312/315/547/592 8 1\n0 QFED_PAN_BO_FT    -                                                                 -          -                     - -               -       PAN  75/312/315/547/593 8 1\n0 QFED_HNO3_BO_FT   -                                                                 -          -                     - -               -       HNO3 75/312/315/547/594 8 1\n0 QFED_NO_SV_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_sv 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NO   75/312/548/592     8 1\n0 QFED_PAN_SV_FT    -                                                                 -          -                     - -               -       PAN  75/312/548/593     8 1\n0 QFED_HNO3_SV_FT   -                                                                 -          -                     - -               -       HNO3 75/312/548/594     8 1\n0 QFED_NO_GL_FT     $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass_gl 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s NO   75/312/548/592     8 1\n0 QFED_PAN_GL_FT    -                                                                 -          -                     - -               -       PAN  75/312/548/593     8 1\n0 QFED_HNO3_GL_FT   -                                                                 -          -                     - -               -       HNO3 75/312/548/594     8 1\n# SO2\n0 QFED_SO2_TF_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s SO2  75/311/549     8 1\n0 QFED_SO2_TP_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s SO2  75/311/314/550 8 1\n0 QFED_SO2_BO_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s SO2  75/311/315/551 8 1\n0 QFED_SO2_SV_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s SO2  75/311/552     8 1\n0 QFED_SO2_GL_SFC   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s SO2  75/311/552     8 1\n0 QFED_SO2_TF_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s SO2  75/312/549     8 1\n0 QFED_SO2_TP_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s SO2  75/312/314/550 8 1\n0 QFED_SO2_BO_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s SO2  75/312/315/551 8 1\n0 QFED_SO2_SV_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s SO2  75/312/552     8 1\n0 QFED_SO2_GL_FT    $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s SO2  75/312/552     8 1\n# PRPE\n0 QFED_PRPE_TF_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s PRPE 75/311/588     8 1\n0 QFED_PRPE_TP_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s PRPE 75/311/314/589 8 1\n0 QFED_PRPE_BO_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s PRPE 75/311/315/590 8 1\n0 QFED_PRPE_SV_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s PRPE 75/311/591     8 1\n0 QFED_PRPE_GL_SFC  $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=1:PBL       kg/m2/s PRPE 75/311/591     8 1\n0 QFED_PRPE_TF_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s PRPE 75/312/588     8 1\n0 QFED_PRPE_TP_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s PRPE 75/312/314/589 8 1\n0 QFED_PRPE_BO_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s PRPE 75/312/315/590 8 1\n0 QFED_PRPE_SV_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s PRPE 75/312/591     8 1\n0 QFED_PRPE_GL_FT   $ROOT/QFED/v2014-09/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2018/1-12/1-31/0 C xyL=PBL:5500m   kg/m2/s PRPE 75/312/591     8 1\n# MTPA\n# --> approximated above using CO\n# BENZ\n# --> approximated above using CO\n# TOLU\n# --> approximated above using CO\n# XYLE\n# --> approximated above using CO\n# EOH\n# --> approximated above using CO\n# MOH\n# --> approximated above using CO\n)))QFED\n\n#=======================================================================================================================================\n## --- Trash emissions --- \n#=======================================================================================================================================\n(((TRASH\n0 TRASH_CO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CO    2008/1/1/0 C xy kg/m2/s  CO    -     9 1\n0 TRASH_SOAP  -                                                       -     -          - -  -        SOAP  280   9 1\n0 TRASH_NO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NO    2008/1/1/0 C xy kg/m2/s  NO    -     9 1\n0 TRASH_SO2   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  SO2   2008/1/1/0 C xy kg/m2/s  SO2   78    9 1\n0 TRASH_SO4   -                                                       -     -          - -  -        SO4   63    9 1\n0 TRASH_pFe   -                                                       -     -          - -  -        pFe   78/66 9 1\n0 TRASH_NH3   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NH3   2008/1/1/0 C xy kg/m2/s  NH3   -     9 1\n0 TRASH_ACET  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  ACET  2008/1/1/0 C xy kg/m2/s  ACET  40    9 1\n0 TRASH_ISOP  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  ISOP  2008/1/1/0 C xy kg/m2/s  ISOP  61    9 1\n0 TRASH_MEK   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  MEK   2008/1/1/0 C xy kg/m2/s  MEK   48    9 1\n0 TRASH_ALD2  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  ALD2  2008/1/1/0 C xy kg/m2/s  ALD2  41    9 1\n0 TRASH_MVK   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  MVK   2008/1/1/0 C xy kg/m2/s  MVK   80    9 1\n0 TRASH_PRPE  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  PRPE  2008/1/1/0 C xy kg/m2/s  PRPE  49    9 1\n0 TRASH_CH2O  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CH2O  2008/1/1/0 C xy kg/m2/s  CH2O  -     9 1\n0 TRASH_HAC   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  HAC   2008/1/1/0 C xy kg/m2/s  HAC   81    9 1\n0 TRASH_GLYC  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  GLYC  2008/1/1/0 C xy kg/m2/s  GLYC  82    9 1\n#0 TRASH_MOH   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  MOH   2008/1/1/0 C xy kg/m2/s  MOH   -     9 1\n#0 TRASH_C2H2  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  C2H2  2008/1/1/0 C xy kg/m2/s  C2H2  -     9 1\n#0 TRASH_C2H4  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  C2H4  2008/1/1/0 C xy kg/m2/s  C2H4  -     9 1\n0 TRASH_BENZ  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BENZ  2008/1/1/0 C xy kg/m2/s  BENZ  43    9 1\n0 TRASH_TOLU  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  TOLU  2008/1/1/0 C xy kg/m2/s  TOLU  55    9 1\n0 TRASH_XYLE  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  XYLE  2008/1/1/0 C xy kg/m2/s  XYLE  56    9 1\n0 TRASH_HCOOH $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  HCOOH 2008/1/1/0 C xy kg/m2/s  HCOOH 68    9 1\n0 TRASH_BCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BC    2008/1/1/0 C xy kg/m2/s  BCPI  70    9 1\n0 TRASH_BCPO  -                                                       -     -          - -  -        BCPO  71    9 1\n0 TRASH_OCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  OC    2008/1/1/0 C xy kg/m2/s  OCPI  72    9 1\n0 TRASH_OCPO  -                                                       -     -          - -  -        OCPO  73    9 1\n)))TRASH\n\n#=======================================================================================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n#=======================================================================================================================================\n#101 CH3I_SEAWATER  $ROOT/CH3I/v2014-07/ocean_ch3i.geos.4x5.nc               CH3I_OCEAN 1985/1-12/1/0 C xy kg/m3 CH3I  -  1 1\n101 DMS_SEAWATER    $ROOT/DMS/v2015-07/DMS_lana.geos.1x1.nc                  DMS_OCEAN  1985/1-12/1/0 C xy kg/m3 DMS   -  1 1\n101 ACET_SEAWATER   $ROOT/ACET/v2014-07/ACET_seawater.generic.1x1.nc         ACET       2005/1/1/0    C xy kg/m3 ACET  40 1 1\n101 ALD2_SEAWATER   $ROOT/ALD2/v2017-03/ALD2_seawater.geos.2x25.nc           ALD2       2006/1-12/1/0 C xy kg/m3 ALD2  41 1 1\n101 MENO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         MENO3      2006/1-12/1/0 C xy kg/m3 MENO3 -  1 1\n101 ETNO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         ETNO3      2006/1-12/1/0 C xy kg/m3 ETNO3 -  1 1\n101 MOH_SEAWATER    $ROOT/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc MOH        2005/1/1/0    C xy kgC/m3 MOH  -  1 1\n\n#=======================================================================================================================================\n# --- SOILNOX emissions (Extension 104) ---\n#=======================================================================================================================================\n104 SOILNOX_FERT    ~/data/soilNOx.fert_res.generic.05x05.nc   FERT         2000/1-12/1-31/0 C xy kg/m2    NO - 1 1\n104 SOILNOX_LANDK1  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K01 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK2  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K02 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK3  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K03 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK4  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K04 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK5  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K05 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK6  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K06 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK7  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K07 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK8  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K08 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK9  ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K09 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK10 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K10 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK11 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K11 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK12 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K12 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK13 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K13 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK14 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K14 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK15 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K15 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK16 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K16 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK17 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K17 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK18 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K18 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK19 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K19 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK20 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K20 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK21 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K21 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK22 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K22 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK23 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K23 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_LANDK24 ~/data/soilNOx.landtype.generic.025x025.nc LANDFRAC_K24 2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_ARID    ~/data/soilNOx.climate.generic.05x05.nc    ARID         2000/1/1/0       C xy unitless NO - 1 1\n104 SOILNOX_NONARID ~/data/soilNOx.climate.generic.05x05.nc    NON_ARID     2000/1/1/0       C xy unitless NO - 1 1\n\n#=======================================================================================================================================\n# --- dust emissions using DEAD model (Extension 105) ---\n#=======================================================================================================================================\n105 DEAD_EF_GEO   ~/data/dst_tibds.geos.2x25.nc     EF_GEO   1985/1/1/0    C xy factor   * - 1 1\n105 DEAD_LF_DRY   ~/data/dst_tibds.geos.2x25.nc     LF_DRY   1985/1/1/0    C xy factor   * - 1 1\n105 DEAD_MF_CACO3 ~/data/dst_tibds.geos.2x25.nc     MF_CaCO3 1985/1/1/0    C xy fraction * - 1 1\n105 DEAD_MF_CLY   ~/data/dst_tibds.geos.2x25.nc     MF_CLY   1985/1/1/0    C xy fraction * - 1 1\n105 DEAD_MF_SND   ~/data/dst_tibds.geos.2x25.nc     MF_SND   1985/1/1/0    C xy fraction * - 1 1\n105 DEAD_SFC_TYP  ~/data/dst_tibds.geos.2x25.nc     SFC_TYP  1985/1/1/0    C xy count    * - 1 1\n105 DEAD_GOC_SRC  ~/data/GOCART_src_fn.geos.2x25.nc GOC_SRC  1985/1/1/0    C xy unitless * - 1 1\n105 DEAD_VAI      ~/data/dst_tvbds.geos.2x25.nc     VAI      1985/1-12/1/0 C xy unitless * - 1 1\n\n\n#==============================================================================\n# --- Sea salt emissions (Extensions 107 and 130)\n#\n# MODIS Chlorophyll-A fields used for emissions of marine organic aerosols\n#==============================================================================\n(((SeaSalt\n#107 MODIS_CHLR  ~/data/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS    2005-2014/1-12/1/0 C    xy 1 * - 1 1\n107 MULTISEAICE ~/data/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1984-2017/1-12/1-31/0 C xy 1 * - 1 1\n)))SeaSalt\n\n#=======================================================================================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#=======================================================================================================================================\n# NOTE: These are the base emissions, which will be converted to kgC/m2/s by HEMCO. The specified species (OCPI/ISOP/ACET) are required\n#       for proper unit conversion. Since netCDF files are already in mass carbon (ug(C)), the only important thing is to specify a VOC\n#       with a specified MW of 12g/mol. This is the case for OCPI, ISOP and ACET.\n(((MEGAN\n(((HEMCO_RESTART\n108  T_DAVG                       ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_DAVG                  $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  T_PREVDAY                    ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                T_PREVDAY               $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  LAI_PREVDAY                  ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                LAI_PREVDAY             $YYYY/$MM/$DD/$HH EY xy 1        * - 1 1\n108  PARDR_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDR_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n108  PARDF_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                PARDF_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n)))HEMCO_RESTART\n108  MEGAN_AEF_ISOP_GCC               ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_ISOPRENE            1985/1/1/0    C xy kgC/m2/s * - 1 1\n108 MEGAN_AEF_MBOX_GCC                ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_MBO                 1985/1/1/0    C xy kgC/m2/s * - 1 1\n108  MEGAN_AEF_BPIN_GCC               ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_BETA_PINENE         1985/1/1/0    C xy kgC/m2/s * - 1 1\n108  MEGAN_AEF_CARE_GCC               ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_CARENE              1985/1/1/0    C xy kgC/m2/s * - 1 1\n108  MEGAN_AEF_LIMO_GCC               ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_LIMONENE            1985/1/1/0    C xy kgC/m2/s * - 1 1\n108  MEGAN_AEF_OCIM_GCC               ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_OCIMENE             1985/1/1/0    C xy kgC/m2/s * - 1 1\n108  MEGAN_AEF_SABI_GCC               ~/data/MEGAN2.1_EF.geos.1x1.nc AEF_SABINENE            1985/1/1/0    C xy kgC/m2/s * - 1 1\n108  CLM4_PFT_BARE_GCC                ~/data/CLM4_PFT.geos.1x1.nc    PFT_BARE                2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_NDLF_EVGN_TMPT_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_NDLF_EVGN_TMPT_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_NDLF_EVGN_BORL_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_NDLF_EVGN_BORL_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_NDLF_DECD_BORL_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_NDLF_DECD_BORL_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_EVGN_TROP_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_EVGN_TROP_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_EVGN_TMPT_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_EVGN_TMPT_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_DECD_TROP_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_DECD_TROP_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_DECD_TMPT_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_DECD_BORL_TREE_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_DECD_BORL_TREE 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_EVGN_SHRB_GCC      ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_EVGN_SHRB      2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_SHRB_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_DECD_TMPT_SHRB 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_BDLF_DECD_BORL_SHRB_GCC ~/data/CLM4_PFT.geos.1x1.nc    PFT_BDLF_DECD_BORL_SHRB 2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_C3_ARCT_GRSS_GCC        ~/data/CLM4_PFT.geos.1x1.nc    PFT_C3_ARCT_GRSS        2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_C3_NARC_GRSS_GCC        ~/data/CLM4_PFT.geos.1x1.nc    PFT_C3_NARC_GRSS        2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_C4_GRSS_GCC             ~/data/CLM4_PFT.geos.1x1.nc    PFT_C4_GRSS             2000/1/1/0    C xy 1        * - 1 1\n108  CLM4_PFT_CROP_GCC                ~/data/CLM4_PFT.geos.1x1.nc    PFT_CROP                2000/1/1/0    C xy 1        * - 1 1\n108  MEGAN_ORVC_GCC                   ~/data/NVOC.geos.1x1.nc        OCPI                    1990/1-12/1/0 C xy kgC/m2/s * - 1 1\n)))MEGAN\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111) \n# NOTE: These are the base emissions in kgDM/m2/s.\n#==============================================================================\n\n(((GFED3\n111 GFED_HUMTROP    $ROOT/GFED3/v2014-10/GFED3_humtropmap.nc              humtrop           2000/1/1/0             C xy unitless  * - 1 1\n111 GFED_WDL        $ROOT/GFED3/v2014-10/GFED3_gen.1x1.$YYYY.nc           GFED3_BB__WDL_DM  1997-2011/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_AGW        $ROOT/GFED3/v2014-10/GFED3_gen.1x1.$YYYY.nc           GFED3_BB__AGW_DM  1997-2011/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_DEF        $ROOT/GFED3/v2014-10/GFED3_gen.1x1.$YYYY.nc           GFED3_BB__DEF_DM  1997-2011/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_FOR        $ROOT/GFED3/v2014-10/GFED3_gen.1x1.$YYYY.nc           GFED3_BB__FOR_DM  1997-2011/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_PET        $ROOT/GFED3/v2014-10/GFED3_gen.1x1.$YYYY.nc           GFED3_BB__PET_DM  1997-2011/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_SAV        $ROOT/GFED3/v2014-10/GFED3_gen.1x1.$YYYY.nc           GFED3_BB__SAV_DM  1997-2011/1-12/01/0    C xy kgDM/m2/s * - 1 1\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED3/v2014-10/GFED3_dailyfrac_gen.1x1.$YYYY.nc GFED3_BB__DAYFRAC 2002-2011/1-12/1-31/0  R xy unitless  * - 1 1 \n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED3/v2014-10/GFED3_3hrfrac_gen.1x1.$YYYY.nc   GFED3_BB__HRFRAC  2002-2011/1-12/01/0-23 R xy unitless  * - 1 1 \n)))GFED_3hourly\n)))GFED3\n\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2015-10/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       1997-2014/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2015-10/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       1997-2014/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2015-10/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       1997-2014/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2015-10/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       1997-2014/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2015-10/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       1997-2014/1-12/01/0    C xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2015-10/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       1997-2014/1-12/01/0    C xy kgDM/m2/s * - 1 1\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2015-10/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2003-2014/1-12/1-31/0  C xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2015-10/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2003-2014/1-12/1/0-23  C xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n)))EMISSIONS\n\n# -----------------------------------------------------------------------------------------\n# Non-emissions data. The following fields are read through HEMCO but do not contain\n# emissions data. The extension number is set to wildcard character denoting that these\n# fields will not be considered for emission calculation. A given entry is only read if\n# the assigned species name is an HEMCO species.\n# -----------------------------------------------------------------------------------------\n\n# --- time zones (offset to UTC) ---\n* TIMEZONES ~/data/TIMEZONES/timezones_1x1.nc UTC_OFFSET 2000/1/1/0 C xy count * - 1 1\n\n(((METEOROLOGY\n# Not used in GEOS\n)))METEOROLOGY\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- UV albedo, for photolysis (cf Hermann & Celarier, 1997) ---\n#==============================================================================\n(((UVALBEDO\n* UV_ALBEDO $ROOT/UVALBEDO/v2015-03/uvalbedo.geos.2x25.nc UVALBD 1985/1-12/1/0 C xy percent * - 1 1\n)))UVALBEDO\n\n#==============================================================================\n# --- TOMS/SBUV overhead ozone colums, for photolysis ---\n#==============================================================================\n* TOMS_O3_COL   $ROOT/TOMS_SBUV/v2016-11/TOMS_O3col_$YYYY.geos.a.1x1.nc TOMS   1971-2010/1-12/1/0 C xy dobsons     * - 1 1\n* DTOMS1_O3_COL -                                                       DTOMS1 -                  - -  dobsons/day * - 1 1 \n* DTOMS2_O3_COL -                                                       DTOMS2 -                  - -  dobsons/day * - 1 1\n\n# --- Stratospheric Bry data ---\n(((CCM_STRAT_Bry\n* GEOSCCM_Br_DAY      ~/data/Bry/GEOSCCM_Bry.2007$MM.day.esmf.nc   BR     2007/$MM/1/0 C xyz pptv Br    - 1 1\n* GEOSCCM_Br2_DAY     ~/data/Bry/GEOSCCM_Bry.2007$MM.day.esmf.nc   BRCL   2007/$MM/1/0 C xyz pptv Br2   - 1 1\n* GEOSCCM_BrO_DAY     ~/data/Bry/GEOSCCM_Bry.2007$MM.day.esmf.nc   BRO    2007/$MM/1/0 C xyz pptv BrO   - 1 1\n* GEOSCCM_BrNO3_DAY   ~/data/Bry/GEOSCCM_Bry.2007$MM.day.esmf.nc   BRONO2 2007/$MM/1/0 C xyz pptv BrNO3 - 1 1\n* GEOSCCM_HBr_DAY     ~/data/Bry/GEOSCCM_Bry.2007$MM.day.esmf.nc   HBR    2007/$MM/1/0 C xyz pptv HBr   - 1 1\n* GEOSCCM_HOBr_DAY    ~/data/Bry/GEOSCCM_Bry.2007$MM.day.esmf.nc   HOBR   2007/$MM/1/0 C xyz pptv HOBr  - 1 1\n* GEOSCCM_Br_NIGHT    ~/data/Bry/GEOSCCM_Bry.2007$MM.night.esmf.nc BR     2007/$MM/1/0 C xyz pptv Br    - 1 1\n* GEOSCCM_Br2_NIGHT   ~/data/Bry/GEOSCCM_Bry.2007$MM.night.esmf.nc BRCL   2007/$MM/1/0 C xyz pptv Br2   - 1 1\n* GEOSCCM_BrO_NIGHT   ~/data/Bry/GEOSCCM_Bry.2007$MM.night.esmf.nc BRO    2007/$MM/1/0 C xyz pptv BrO   - 1 1\n* GEOSCCM_BrNO3_NIGHT ~/data/Bry/GEOSCCM_Bry.2007$MM.night.esmf.nc BRONO2 2007/$MM/1/0 C xyz pptv BrNO3 - 1 1\n* GEOSCCM_HBr_NIGHT   ~/data/Bry/GEOSCCM_Bry.2007$MM.night.esmf.nc HBR    2007/$MM/1/0 C xyz pptv HBr   - 1 1\n* GEOSCCM_HOBr_NIGHT  ~/data/Bry/GEOSCCM_Bry.2007$MM.night.esmf.nc HOBR   2007/$MM/1/0 C xyz pptv HOBr  - 1 1\n)))CCM_STRAT_Bry\n\n(((GMI_STRAT_OH  \n# Archived OH concentrations. These are always needed, so set species to wildcard (*) to make\n# sure that this entry will always be read. \n* STRAT_OH ~/data/GMI/gmi.clim.OH.geos5.2x25.esmf.nc species 2000/$MM/1/0 C xyz v/v   *  - 1 1\n)))GMI_STRAT_OH\n#\n\n)))CHEMISTRY_INPUT\n\n# Olson land map data\n(((OLSON_LANDMAP\n* OLSON00 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON01 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON02 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON03 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON04 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON05 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON06 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON07 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON08 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON09 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON10 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON11 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON12 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON13 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON14 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON15 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON16 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON17 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON18 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON19 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON20 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON21 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON22 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON23 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON24 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON25 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON26 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON27 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON28 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON29 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON30 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON31 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON32 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON33 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON34 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON35 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON36 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON37 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON38 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON39 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON40 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON41 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON42 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON43 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON44 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON45 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON46 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON47 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON48 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON49 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON50 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON51 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON52 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON53 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON54 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON55 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON56 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON57 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON58 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON59 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON60 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON61 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON62 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON63 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON64 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON65 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON66 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON67 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON68 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON69 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON70 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON71 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n* OLSON72 Ignore.nc OLSON 1985/1/1/0 C xy unitless * - 1 1\n)))OLSON_LANDMAP\n\n# MODIS LAI data\n(((YUAN_MODIS_LAI\n* XLAI00 Ignore.nc XLAI00 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI01 Ignore.nc XLAI01 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI02 Ignore.nc XLAI02 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI03 Ignore.nc XLAI03 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI04 Ignore.nc XLAI04 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI05 Ignore.nc XLAI05 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI06 Ignore.nc XLAI06 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI07 Ignore.nc XLAI07 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI08 Ignore.nc XLAI08 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI09 Ignore.nc XLAI09 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI10 Ignore.nc XLAI10 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI11 Ignore.nc XLAI11 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI12 Ignore.nc XLAI12 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI13 Ignore.nc XLAI13 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI14 Ignore.nc XLAI14 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI15 Ignore.nc XLAI15 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI16 Ignore.nc XLAI16 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI17 Ignore.nc XLAI17 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI18 Ignore.nc XLAI18 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI19 Ignore.nc XLAI19 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI20 Ignore.nc XLAI20 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI21 Ignore.nc XLAI21 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI22 Ignore.nc XLAI22 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI23 Ignore.nc XLAI23 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI24 Ignore.nc XLAI24 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI25 Ignore.nc XLAI25 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI26 Ignore.nc XLAI26 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI27 Ignore.nc XLAI27 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI28 Ignore.nc XLAI28 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI29 Ignore.nc XLAI29 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI30 Ignore.nc XLAI30 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI31 Ignore.nc XLAI31 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI32 Ignore.nc XLAI32 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI33 Ignore.nc XLAI33 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI34 Ignore.nc XLAI34 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI35 Ignore.nc XLAI35 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI36 Ignore.nc XLAI36 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI37 Ignore.nc XLAI37 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI38 Ignore.nc XLAI38 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI39 Ignore.nc XLAI39 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI40 Ignore.nc XLAI40 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI41 Ignore.nc XLAI41 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI42 Ignore.nc XLAI42 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI43 Ignore.nc XLAI43 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI44 Ignore.nc XLAI44 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI45 Ignore.nc XLAI45 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI46 Ignore.nc XLAI46 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI47 Ignore.nc XLAI47 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI48 Ignore.nc XLAI48 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI49 Ignore.nc XLAI49 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI50 Ignore.nc XLAI50 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI51 Ignore.nc XLAI51 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI52 Ignore.nc XLAI52 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI53 Ignore.nc XLAI53 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI54 Ignore.nc XLAI54 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI55 Ignore.nc XLAI55 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI56 Ignore.nc XLAI56 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI57 Ignore.nc XLAI57 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI58 Ignore.nc XLAI58 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI59 Ignore.nc XLAI59 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI60 Ignore.nc XLAI60 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI61 Ignore.nc XLAI61 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI62 Ignore.nc XLAI62 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI63 Ignore.nc XLAI63 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI64 Ignore.nc XLAI64 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI65 Ignore.nc XLAI65 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI66 Ignore.nc XLAI66 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI67 Ignore.nc XLAI67 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI68 Ignore.nc XLAI68 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI69 Ignore.nc XLAI69 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI70 Ignore.nc XLAI70 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI71 Ignore.nc XLAI71 $YYYY/$MM/15/0 C xy unitless * - 1 1\n* XLAI72 Ignore.nc XLAI72 $YYYY/$MM/15/0 C xy unitless * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Spatially varying OM/OC ---\n#==============================================================================\n(((OMOC_RATIO\n* OMOC_DJF $ROOT/OMOC/v2018-01/OMOC.DJF.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_MAM $ROOT/OMOC/v2018-01/OMOC.MAM.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_JJA $ROOT/OMOC/v2018-01/OMOC.JJA.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_SON $ROOT/OMOC/v2018-01/OMOC.SON.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n)))OMOC_RATIO\n\n#==============================================================================\n# --- NOAA GMD monthly mean surface CH4 ---\n#==============================================================================\n(((GMD_SFC_CH4\n* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2018-01/monthly.gridded.surface.methane.1979-2020.1x1.nc SFC_CH4 1979-2020/1-12/1/0 C xy ppbv * - 1 1 \n)))GMD_SFC_CH4\n\n(((GEOS_3HR_CH4\n* GEOS_CH4   /see/extdata CH4_total_dry 1979-2024/1-12/1-31/0 C xyz ppbv * - 1 1 \n* CH4_OFFSET /see/extdata CH4_offset    2021-2024/1-12/1/0    C xy  v/v  * - 1 1\n###* CH4_OFFSET 0.0 - - - xy v/v * - 1 1\n)))GEOS_3HR_CH4\n\n(((SfcVMR\n#==============================================================================\n# --- CMIP6 files ---\n#\n# Use core CMIP6 observationally constrained data from Meinshausen et al. (2017) GMD\n#\n# NOTE for GEOS:\n# ==> Need to download these files to use.\n#==============================================================================\n* SfcVMR_CH3Cl  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Cl  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH2Cl2 $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH2Cl2 1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CHCl3  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CHCl3  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH3Br  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Br  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n\n#==============================================================================\n# --- WMO-2018 files (GMI) ---\n#==============================================================================\n* SfcVMR_CCl4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CCl4        1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC113   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC113      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC114   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC114      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC115   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC115      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC11    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC11       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC12    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC12       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Br   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Br       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CH3CCl3  $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3CCl3     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Cl   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Cl       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH4         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1211    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1211       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1301    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1301       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H2402    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc C2BR2F4     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC141b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC141b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC142b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC142b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC22   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC22      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_N2O      $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc N2O         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n\n#==============================================================================\n# --- Dummy files with a single surface concentration (for OCS and H2) ---\n#==============================================================================\n* SfcVMR_OCS  $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS 1985/1/1/0  C xy ppbv * - 1 1\n* SfcVMR_H2   $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2  1985/1/1/0  C xy ppbv * - 1 1\n)))SfcVMR\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS \n\n####################################################################################\n### BEGIN SECTION SCALE FACTORS \n####################################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n# --- mirror (for negative emissions) \n1 NEGATIVE -1.0 - - - xy 1 1\n\n# --- annual scale factors\n6  LIQFUEL_THISYR ~/data/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n7  LIQFUEL_1985   ~/data/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n\n#==============================================================================\n# --- diurnal scale factors --- \n#==============================================================================\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n# --- seasonal scale factors ---\n39 BROMOCARB_SEASON   ~/data/emis/BROMINE/BromoCarb_Season.nc CHXBRY_scale 2000/1-12/1/0 C xy unitless 1\n\n# Units carbon to species conversions\n# Factor = # carbon atoms * MW carbon) / MW species\n40 CtoACET MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n41 CtoALD2 MATH:44.06/(2.0*12.0)   - - - xy unitless 1\n42 CtoALK4 MATH:58.12/(4.3*12.0)   - - - xy unitless 1\n43 CtoBENZ MATH:78.12/(6.0*12.0)   - - - xy unitless 1\n44 CtoC2H4 MATH:28.05/(2.0*12.0)   - - - xy unitless 1\n45 CtoC2H6 MATH:30.08/(2.0*12.0)   - - - xy unitless 1\n46 CtoC3H8 MATH:46.08/(3.0*12.0)   - - - xy unitless 1\n47 CtoEOH  MATH:46.06/(2.0*12.0)   - - - xy unitless 1\n48 CtoMEK  MATH:72.11/(4.0*12.0)   - - - xy unitless 1\n49 CtoPRPE MATH:42.09/(3.0*12.0)   - - - xy unitless 1\n55 CtoTOLU MATH:92.15/(7.0*12.0)   - - - xy unitless 1\n56 CtoXYLE MATH:106.18/(8.0*12.0)  - - - xy unitless 1\n59 CtoC2H2 MATH:26.04/(2.0*12.0)   - - - xy unitless 1\n61 CtoISOP MATH:68.13/(5.0*12.0)   - - - xy unitless 1\n62 CtoMTPA MATH:136.26/(10.0*12.0) - - - xy unitless 1\n64 CtoMBOX MATH:86.13/(5.0*12.0)   - - - xy unitless 1\n67 CtoSESQ MATH:204.4/(15.0*12.0)  - - - xy unitless 1\n68 CtoHCOOH MATH:46.03/(1.0*12.0)  - - - xy unitless 1\n69 CtoRCHO  MATH:58.09/(3.0*12.0)  - - - xy unitless 1\n80 CtoMVK   MATH:70.09/(4.0*12.0)  - - - xy unitless 1\n81 CtoHAC   MATH:74.08/(3.0*12.0)  - - - xy unitless 1\n82 CtoGLYC  MATH:60.06/(2.0*12.0)  - - - xy unitless 1\n83 CtoMACR  MATH:70.10/(4.0*12.0)  - - - xy unitless 1\n\n# --- VOC speciations ---\n50 RETRO_KET2MEK    0.25  - - - xy unitless 1\n51 RETRO_KET2ACET   0.75  - - - xy unitless 1\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n53 COPROD_BIOFUEL   1.086 - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n\n#==============================================================================\n# --- SOx to SO2 conversion (Chin et al., 2000) ---\n#==============================================================================\n#60 SOX2SO2_GLOBAL 0.986  - - - xy unitless 1\n#61 SOX2SO2_EU     0.95   - - - xy unitless 1\n#62 SULFUR2SOX     2.0    - - - xy unitless 1\n63 SO2toSO4       0.031  - - - xy unitless 1\n#64 SOX2SO4_EU     0.05   - - - xy unitless 1\n#65 SO2toSO4_CAC   0.014  - - - xy unitless 1\n66 SO2toPFe       1.0e-3 - - - xy unitless 1\n#67 SOX2PFe_EU     1.7e-3 - - - xy unitless 1\n#68 SO2toPFe_CAC   4.7e-4 - - - xy unitless 1\n#69 SO2toPFe_NEI   1.0e-3 - - - xy unitless 1\n78 SO2FRAC        0.969  - - - xy unitless 1\n\n# C2H6 conversions\n95 C2H6toC        0.8   - - - xy unitless 1\n# --- Scale factor to match C2H6 emissions of 9.9 Tg C2H6 / year\n# as reported by Tzompa-Sosa et al. 2017 \n96 C2H6scal       2.1   - - - xy unitless 1\n\n# --- Carbon aerosols: speciation of hydrophilic and hydrophobic fractions ---\n# Fractions applied to the biomass burning extensions (GFED3 or FINN) are\n# specified separately in the extensions section.\n70 BC2BCPI  0.2  - - - xy unitless 1\n71 BC2BCPO  0.8  - - - xy unitless 1\n72 OC2OCPI  0.5  - - - xy unitless 1\n73 OC2OCPO  0.5  - - - xy unitless 1\n74 POGSCAL  1.27 - - - xy unitless 1\n76 SV2POG1  0.49 - - - xy unitless 1\n77 SV2POG2  0.51 - - - xy unitless 1\n\n#==============================================================================\n# --- QFED2 diurnal scale factors ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n\n#==============================================================================\n# --- BIOGENIC EMISSIONS FROM DRY LEAF MATTER ---\n#\n# Use yield of 40ug/dDW.\n# Assume organic matter has molecular formula CH2O (MW 30.03), which\n#  means 0.4 gC / g plant\n# ALD2 MW = 44.05 g/mole ==> 0.55 gC/g ALD2\n#  Therefore 40ug (ALD2) / g (plant) ==> 55 ug C in ALD2 / gC plant\n# EOH MW = 46 g/mole ==> 0.52 gC/g EOH\n#  Therefore 40ug (EOH)  / g (plant) ==> 52 ug C in EOH  / gC plant\n#==============================================================================\n85 YIELD_RESP_ALD2 55.0e-6 - - - xy unitless 1\n86 YIELD_RESP_EOH  52.0e-6 - - - xy unitless 1\n\n#==============================================================================\n# --- Biofuel conversion factors ---\n#==============================================================================\n90 BF_COtoHAC   8.75e-3 - - - xy unitless 1\n91 BF_COtoSO2   3.43e-3 - - - xy unitless 1\n\n#Convert CEDS EOH (MW=46.2) to species MW as used in GEOS-Chem\n8  EOHtoMOH     0.694 - - - xy unitless 1\n9  EOHtoEOH     0.997 - - - xy unitless 1\n24 EOHtoROH     1.28  - - - xy unitless 1\n10 C4H10toALK4  1.000 - - - xy unitless 1\n11 C5H12toALK4  0.806 - - - xy unitless 1\n12 C6H14toALK4  0.674 - - - xy unitless 1\n13 MEKtoMEK     0.958 - - - xy unitless 1\n14 MEKtoACET    0.772 - - - xy unitless 1\n15 ALD2toALD2   0.640 - - - xy unitless 1\n16 HCOOHtoHCOOH 0.779 - - - xy unitless 1\n\n#Convert CEDS total alchohols to methanol, ethanol, and other alcohols following Chen et al. (2019, ACP)\n92 VOC1toMOH    0.5   - - - xy 1 1\n93 VOC1toEOH    0.375 - - - xy 1 1\n94 VOC1toROH    0.125 - - - xy 1 1\n\n#NOx to NO and NO2 emissions.\n#Christoph and I discussed trying a ratio of the NOx emissions. 30Jun20 KEK\n97 NOXtoNO  0.9 - - - xy 1 1\n98 NOXtoNO2 0.1 - - - xy 1 1\n\n# Conversion factor from NO to NO2\n115 NOtoNO2     1.533  - - - xy unitless 1\n\n# --- AEIC aircraft emissions ---                                                                \n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf \n101 AEICACET 3.693477e-3 - - - xy unitless 1\n102 AEICALD2 4.271822e-2 - - - xy unitless 1                                                     \n103 AEICALK4 2.137911e-1 - - - xy unitless 1                                                     \n104 AEICC2H6 5.214505e-3 - - - xy unitless 1                                                     \n105 AEICC3H8 7.808710e-4 - - - xy unitless 1                                                     \n106 AEICCH2O 1.230811e-1 - - - xy unitless 1                                                     \n107 AEICPRPE 1.780418e-1 - - - xy unitless 1                                                     \n108 AEICMACR 5.362609e-2 - - - xy unitless 1                                                     \n109 AEICRCHO 3.676944e-2 - - - xy unitless 1                                                     \n111 AEICSO2  1.176000e-3 - - - xy unitless 1\n112 AEICSO4  3.600000e-5 - - - xy unitless 1\n113 AEICBC   3.000000e-5 - - - xy unitless 1\n114 AEICHC   1.160000e+0 - - - xy unitless 1\n120 FB2H2O   1.231000e+0 - - - xy unitless 1\n\n#------------------------------------------------------------------------------\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Increase      \n# from 2018 to 2019 is estimated based on the growth from 2017 to 2018.\n# Lee et al. (2021) only covers 1990 to 2018, so to get to 2019 it is\n# assumed that the growth from 2017 to 2018 is the same as that from 2018\n# to 2019. So the formula is something like:\n#\n# Emissions of CO  in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)   \n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down. For NOx, the same procedure is applied but with an additional\n# factor to account for changes in NOx EI:\n#\n# Emissions of NOx in 2009 = [ AEIC 2019 emissions of NOx\n#                          *   (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          *   (Lee 2009 fuel burn / Lee 2018 fuel burn) ]\n#                          * [ (Lee 2017 NOx EI    / Lee 2018 NOx EI)\n#                          *   (Lee 2009 NOx EI    / Lee 2018 NOx EI)    ]\n#\n# In this case though the Lee et al 2018 and 2017 NOx EIs are identical.\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC_SCALE_1990_2019\n240 AC_EINOX   0.852/0.852/0.852/0.859/0.866/0.873/0.881/0.888/0.896/0.903/0.911/0.916/0.922/0.927/0.932/0.937/0.950/0.962/0.974/0.987/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000 - 1990-2019/1/1/0 C xy 1 1\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n240 AC_EINOX  1.000000e+0 - -  - xy 1 1\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n\n# --- SNAP scale factors from TNO report ---\n# Binning: \n# SNAP categories 1. 5    (power generation, extract/distribution of fossil fuels   ) --> ENERGY\n# SNAP categories 3, 4, 6 (industrial combustion, industrial processing, solvent use) --> INDUSTRY \n# SNAP categories 2       (combustion                                               ) --> RESIDENTIAL \n# SNAP categories 7, 8    (road transport, other mobile                             ) --> TRANSPORT\n\n# day-of-week scale factors: Sun/Mon/.../Sat\n201 INDUSTRY_DOW    0.73/1.10/1.10/1.10/1.10/1.10/0.77 - - - xy 1 1\n202 ENERGY_DOW      0.93/1.03/1.03/1.03/1.03/1.03/0.93 - - - xy 1 1\n203 TRANSPORT_DOW   0.90/1.01/1.03/1.04/1.05/1.07/0.91 - - - xy 1 1\n204 RESIDENTIAL_DOW 0.80/1.08/1.08/1.08/1.08/1.08/0.80 - - - xy 1 1\n205 AGRICULTURE_DOW 1.00/1.00/1.00/1.00/1.00/1.00/1.00 - - - xy 1 1\n206 AVERAGE_DOW     0.84/1.06/1.06/1.06/1.07/1.07/0.85 - - - xy 1 1\n\n# diurnal scale factors: 0am/1am/.../23pm \n211 INDUSTRY_TOD    0.82/0.75/0.70/0.66/0.64/0.66/0.72/0.92/1.11/1.19/1.24/1.26/1.27/1.24/1.25/1.25/1.22/1.19/1.14/1.07/1.00/0.95/0.90/0.86 - - - xy 1 1\n212 ENERGY_TOD      0.94/0.90/0.86/0.86/0.86/0.87/0.90/0.96/1.04/1.10/1.11/1.11/1.11/1.09/1.08/1.07/1.07/1.05/1.04/1.02/1.01/1.01/1.01/0.98 - - - xy 1 1\n213 TRANSPORT_TOD   0.72/0.60/0.55/0.53/0.53/0.55/0.61/0.93/1.42/1.43/1.21/1.12/1.10/1.16/1.22/1.23/1.30/1.52/1.54/1.26/1.03/0.87/0.81/0.81 - - - xy 1 1\n214 RESIDENTIAL_TOD 0.42/0.38/0.36/0.36/0.36/0.37/0.50/1.19/1.53/1.57/1.56/1.35/1.16/1.07/1.06/1.00/0.98/0.99/1.12/1.41/1.52/1.39/1.35/1.00 - - - xy 1 1\n215 AGRICULTURE_TOD 0.60/0.60/0.60/0.60/0.60/0.60/0.65/0.75/0.90/1.10/1.35/1.45/1.60/1.65/1.75/1.70/1.55/1.35/1.10/0.90/0.75/0.65/0.60/0.60 - - - xy 1 1\n216 AVERAGE_TOD     0.72/0.66/0.62/0.60/0.60/0.61/0.68/1.00/1.28/1.32/1.28/1.21/1.16/1.14/1.15/1.14/1.14/1.19/1.21/1.19/1.14/1.06/1.02/0.91 - - - xy 1 1\n\n#==============================================================================\n# --- Aromatics scale factors ---\n#\n# Increase aromatics over China to be more in line with measurements\n# for Chinese cities (E. Fischer)\n# Refs: Barletta et al. (2005), Atmos Environ, 39, 5979-5990\n#       Liu et al. (2010), Environ Sci Technol, 44, 7017-7022.\n#==============================================================================\n#270 BENZ_CH_SCAL 1.25 - - - xy 1 1 1003\n#271 TOLU_CH_SCAL 4.00 - - - xy 1 1 1003\n#272 XYLE_CH_SCAL 8.00 - - - xy 1 1 1003\n270 BENZ_CH_SCAL 1.00 - - - xy 1 1 \n271 TOLU_CH_SCAL 1.00 - - - xy 1 1\n272 XYLE_CH_SCAL 1.00 - - - xy 1 1\n\n#==============================================================================\n# --- SOA-Precursor scale factors ---\n#\n# from Kim, P.S., et. al. 2015 \"Sources, seasonality, and trends \n# of southeast US aerosol: ...\"\n#\n#   AVOCs and BBVOCs are emitted in proportion to CO, with an emission ratio of\n#   0.069 g AVOC (g CO)−1 (Hayes et al., 2015) and\n#   0.013 g BBVOC (g CO)−1 (Cubison et al., 2011).\n#   They are both oxidized by OH in the model ... to generate SOA.\n#\n280 COtoSOAP_anth 0.069   - - - xy 1 1\n281 COtoSOAP_burn 0.013   - - - xy 1 1\n282 COtoNAP_burn  2.75e-4 - - - xy 1 1\n\n# --- QFED scale factors ---\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n\n# Adjust QFED OC emissions to account for different OM:OC ratio (Carter et al., ACP, 2020)\n313 QFED2_OC_CORR 0.69 - - - xy unitless 1\n\n# QFED mask for temperate vs. boreal forest\n314 QFED2_TEMPERATE /see/ExtData.rc qfed2_temperate  2015/1/1/0 C xy 1 1\n315 QFED2_BOREAL    /see/ExtData.rc qfed2_boreal     2015/1/1/0 C xy 1 1\n\n# CEDS vertical scale factors\n317 CEDS_VSCAL_ENERGY   /see/ExtData.rc vscal_energy   2005/1-12/1/0 C xyz 1 1 \n318 CEDS_VSCAL_INDUSTRY /see/ExtData.rc vscal_industry 2005/1-12/1/0 C xyz 1 1 \n319 CEDS_VSCAL_SHIP     /see/ExtData.rc vscal_ship     2005/1-12/1/0 C xyz 1 1 \n\n# Adjust QFED emission factors to reflect values in Andrea (2019). This includes \n# all species except NOx, for which the values derived by Jin et al (2021) are\n# used (see below)\n501 QFED2_ACET_TF_SCAL 1.02            -                -          - xy 1 1\n502 QFED2_ACET_TP_SCAL 1.37            -                -          - xy 1 1\n503 QFED2_ACET_BO_SCAL 2.87            -                -          - xy 1 1\n504 QFED2_ACET_SV_SCAL 1.08            -                -          - xy 1 1\n505 QFED2_ALD2_TF_SCAL 3.48            -                -          - xy 1 1\n506 QFED2_ALD2_TP_SCAL 2.42            -                -          - xy 1 1\n507 QFED2_ALD2_BO_SCAL 1.62            -                -          - xy 1 1\n508 QFED2_ALD2_SV_SCAL 1.68            -                -          - xy 1 1\n# not sure how to weight the individual alkanes (n-butane vs. i-butane vs, etc.), so keep EF's as is for now\n509 QFED2_ALK4_TF_SCAL 1.00            -                -          - xy 1 1\n510 QFED2_ALK4_TP_SCAL 1.00            -                -          - xy 1 1\n511 QFED2_ALK4_BO_SCAL 1.00            -                -          - xy 1 1\n512 QFED2_ALK4_SV_SCAL 1.00            -                -          - xy 1 1\n513 QFED2_BC_TF_SCAL   0.77            -                -          - xy 1 1\n514 QFED2_BC_TP_SCAL   0.98            -                -          - xy 1 1\n515 QFED2_BC_BO_SCAL   0.77            -                -          - xy 1 1\n516 QFED2_BC_SV_SCAL   1.10            -                -          - xy 1 1\n517 QFED2_OC_TF_SCAL   0.85            -                -          - xy 1 1\n518 QFED2_OC_TP_SCAL   1.19            -                -          - xy 1 1\n519 QFED2_OC_BO_SCAL   0.65            -                -          - xy 1 1\n520 QFED2_OC_SV_SCAL   0.88            -                -          - xy 1 1\n521 QFED2_C2H6_TF_SCAL 0.73            -                -          - xy 1 1\n522 QFED2_C2H6_TP_SCAL 1.15            -                -          - xy 1 1\n523 QFED2_C2H6_BO_SCAL 1.62            -                -          - xy 1 1\n524 QFED2_C2H6_SV_SCAL 1.31            -                -          - xy 1 1\n525 QFED2_C3H8_TF_SCAL 3.53            -                -          - xy 1 1\n526 QFED2_C3H8_TP_SCAL 1.12            -                -          - xy 1 1\n527 QFED2_C3H8_BO_SCAL 1.16            -                -          - xy 1 1\n528 QFED2_C3H8_SV_SCAL 1.44            -                -          - xy 1 1\n529 QFED2_CH2O_TF_SCAL 1.71            -                -          - xy 1 1\n530 QFED2_CH2O_TP_SCAL 0.93            -                -          - xy 1 1\n531 QFED2_CH2O_BO_SCAL 0.80            -                -          - xy 1 1\n532 QFED2_CH2O_SV_SCAL 3.51            -                -          - xy 1 1\n533 QFED2_CO_TF_SCAL   1.00            -                -          - xy 1 1\n534 QFED2_CO_TP_SCAL   1.06            -                -          - xy 1 1\n535 QFED2_CO_BO_SCAL   1.13            -                -          - xy 1 1\n536 QFED2_CO_SV_SCAL   1.06            -                -          - xy 1 1\n537 QFED2_MEK_TF_SCAL  1.16            -                -          - xy 1 1\n538 QFED2_MEK_TP_SCAL  0.51            -                -          - xy 1 1\n539 QFED2_MEK_BO_SCAL  0.35            -                -          - xy 1 1\n540 QFED2_MEK_SV_SCAL  0.50            -                -          - xy 1 1\n541 QFED2_NH3_TF_SCAL  1.02            -                -          - xy 1 1\n542 QFED2_NH3_TP_SCAL  0.70            -                -          - xy 1 1\n543 QFED2_NH3_BO_SCAL  1.79            -                -          - xy 1 1\n544 QFED2_NH3_SV_SCAL  0.85            -                -          - xy 1 1\n549 QFED2_SO2_TF_SCAL  1.35            -                -          - xy 1 1\n550 QFED2_SO2_TP_SCAL  0.70            -                -          - xy 1 1\n551 QFED2_SO2_BO_SCAL  0.75            -                -          - xy 1 1\n552 QFED2_SO2_SV_SCAL  1.34            -                -          - xy 1 1\n# CO to VOC scale factors for VOCs not directly carried by QFED. VOC/CO ratio taken from GEOS-Chem GFEDv4 implementation\n560 QFED2_COtoPRPE_TF  1.50e-2         -                -          - xy 1 1\n561 QFED2_COtoPRPE_TP  1.24e-2         -                -          - xy 1 1\n562 QFED2_COtoPRPE_BO  1.18e-2         -                -          - xy 1 1\n563 QFED2_COtoPRPE_SV  1.02e-2         -                -          - xy 1 1\n564 QFED2_COtoMTPA_TF  1.29e-3         -                -          - xy 1 1\n565 QFED2_COtoMTPA_TP  1.57e-2         -                -          - xy 1 1\n566 QFED2_COtoMTPA_BO  2.27e-2         -                -          - xy 1 1\n567 QFED2_COtoMTPA_SV  1.61e-3         -                -          - xy 1 1\n568 QFED2_COtoBENZ_TF  3.17e-3         -                -          - xy 1 1\n569 QFED2_COtoBENZ_TP  8.74e-3         -                -          - xy 1 1\n570 QFED2_COtoBENZ_BO  3.07e-3         -                -          - xy 1 1\n571 QFED2_COtoBENZ_SV  4.19e-3         -                -          - xy 1 1\n572 QFED2_COtoTOLU_TF  1.27e-3         -                -          - xy 1 1\n573 QFED2_COtoTOLU_TP  3.78e-3         -                -          - xy 1 1\n574 QFED2_COtoTOLU_BO  2.16e-3         -                -          - xy 1 1\n575 QFED2_COtoTOLU_SV  2.80e-3         -                -          - xy 1 1\n576 QFED2_COtoXYLE_TF  2.22e-4         -                -          - xy 1 1\n577 QFED2_COtoXYLE_TP  1.42e-3         -                -          - xy 1 1\n578 QFED2_COtoXYLE_BO  1.48e-3         -                -          - xy 1 1\n579 QFED2_COtoXYLE_SV  1.18e-3         -                -          - xy 1 1\n580 QFED2_COtoEOH_TF   3.81e-4         -                -          - xy 1 1\n581 QFED2_COtoEOH_TP   4.33e-4         -                -          - xy 1 1\n582 QFED2_COtoEOH_BO   1.14e-3         -                -          - xy 1 1\n583 QFED2_COtoEOH_SV   3.98e-4         -                -          - xy 1 1\n584 QFED2_COtoMOH_TF   1.87e-2         -                -          - xy 1 1\n585 QFED2_COtoMOH_TP   2.22e-2         -                -          - xy 1 1\n586 QFED2_COtoMOH_BO   1.98e-2         -                -          - xy 1 1\n587 QFED2_COtoMOH_SV   2.61e-2         -                -          - xy 1 1\n588 QFED2_PRPE_TF_SCAL 1.56            -                -          - xy 1 1\n589 QFED2_PRPE_TP_SCAL 1.02            -                -          - xy 1 1\n590 QFED2_PRPE_BO_SCAL 1.14            -                -          - xy 1 1\n591 QFED2_PRPE_SV_SCAL 1.77            -                -          - xy 1 1\n\n# Adjust NOx emission factors (in g/kg) based on Jin et al., ACP, 2021:\n# Tropical forest: target is 3.17, vs. 1.6 used by QFED (--> scale factor is 1.98)\n# Temperate forest: 1.36 vs. 3.0 (scale by 0.45)\n# Boreal forest: 1.70 vs. 3.0 (scale by 0.57)\n# Savanna and grasslands: 2.49 vs. 3.9 (scale by 0.64)\n# QFED does not distinguish between temperate and boreal forests. In an ad-hoc \n# attempt to adjust BB NOx emissions differently for temperate and boreal forests,\n# the boreal scale factor is applied to all extratropical biomass burning emissions\n# occuring at latitudes higher than 55 deg N, while the temperate scale factor is \n# used elsewhere.\n545 QFED2_NO_TF_SCAL 1.98            -                -          - xy 1 1\n546 QFED2_NO_TP_SCAL 0.45            -                -          - xy 1 1\n547 QFED2_NO_BO_SCAL 0.57            -                -          - xy 1 1\n548 QFED2_NO_SV_SCAL 0.64            -                -          - xy 1 1\n\n# Partition NO emissions into 40%NO, 40%PAN, and 20%HNO3 (on a N basis).\n# For PAN:  0.4 * 121.05 / 30.01 = 1.614\n# For HNO3: 0.2 * 63.012 / 30.01 = 0.420\n592 QFED2_NO_SCAL    0.400           -                -          - xy 1 1\n593 QFED2_NOtoPAN    1.614           -                -          - xy 1 1\n594 QFED2_NOtoHNO3   0.420           -                -          - xy 1 1\n\n#==============================================================================\n# Scale the CMIP6 values in pptv to ppbv\n#==============================================================================\n801 pptv2ppbv  0.001      - - - xy 1 1\n802 vv2ppbv    1000000000 - - - xy 1 1\n\n#\n### END SECTION SCALE FACTORS \n\n####################################################################################\n### BEGIN SECTION MASKS \n####################################################################################\n#\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n#\n#\n1008 AF_MASK     $ROOT/MASKS/v2014-07/AF_LANDMASK.geos.05x0666.nc              LANDMASK 1985/1/1/0 C xy unitless 1 -20/-37/54/40\n### END SECTION MASKS \n \n### END OF HEMCO INPUT FILE ###\n"
  },
  {
    "path": "run/GEOS/HEMCO_DiagnFile.rc",
    "content": "#Name               Spec   ExtNr Cat Hier Dim OutUnit  long_name                                                                      UnitName\n# 2D -------------------------------------------------------------------------------------------------------------------------------------------\nEMIS_ACET           ACET   -1    -1  -1   2   kg/m2/s  acetone_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_ACET_IND       ACET    0     1  -1   2   kg/m2/s  acetone_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_ACET_POW       ACET    0     2  -1   2   kg/m2/s  acetone_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_ACET_TRA       ACET    0     3  -1   2   kg/m2/s  acetone_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_ACET_RES       ACET    0     4  -1   2   kg/m2/s  acetone_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_ACET_AGR       ACET    0     5  -1   2   kg/m2/s  acetone_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_ACET_BB        ACET    0     8  -1   2   kg/m2/s  acetone_biomass_burning_emission_mass_flux                                     kg_m-2_s-1\nEMIS_ACET_WST       ACET    0     9  -1   2   kg/m2/s  acetone_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_ACET_SHIP      ACET    0     10 -1   2   kg/m2/s  acetone_ship_emission_mass_flux                                                kg_m-2_s-1\nEMIS_ACET_OC        ACET    101  -1  -1   2   kg/m2/s  acetone_ocean_emission_mass_flux                                               kg_m-2_s-1\nEMIS_ACET_BG        ACET    108  -1  -1   2   kg/m2/s  acetone_biogenic_emission_mass_flux                                            kg_m-2_s-1\n#\nEMIS_ACR            ACR    -1    -1  -1   3   kg/m2/s  acrolein_emission_flux_from_all_sectors                                        kg_m-2_s-1\nEMIS_ACR_BB         ACR     0     8  -1   2   kg/m2/s  acrolein_emission_flux_from_biomass_burning                                    kg_m-2_s-1\n#\nEMIS_ACTA           ACTA   -1    -1  -1   3   kg/m2/s  acetic_acid_emission_flux_from_all_sectors                                     kg_m-2_s-1\nEMIS_ACTA_BB        ACTA    0     8  -1   2   kg/m2/s  acetic_acid_emission_flux_from_biomass_burning                                 kg_m-2_s-1\n#\nEMIS_ALD2           ALD2   -1    -1  -1   2   kg/m2/s  acetaldehyde_total_emission_mass_flux                                          kg_m-2_s-1\nEMIS_ALD2_IND       ALD2    0     1  -1   2   kg/m2/s  acetaldehyde_industry_emission_mass_flux                                       kg_m-2_s-1\nEMIS_ALD2_POW       ALD2    0     2  -1   2   kg/m2/s  acetaldehyde_power_emission_mass_flux                                          kg_m-2_s-1\nEMIS_ALD2_TRA       ALD2    0     3  -1   2   kg/m2/s  acetaldehyde_transportation_emission_mass_flux                                 kg_m-2_s-1\nEMIS_ALD2_RES       ALD2    0     4  -1   2   kg/m2/s  acetaldehyde_residential_emission_mass_flux                                    kg_m-2_s-1\nEMIS_ALD2_AGR       ALD2    0     5  -1   2   kg/m2/s  acetaldehyde_agriculture_emission_mass_flux                                    kg_m-2_s-1\nEMIS_ALD2_BB        ALD2    0     8  -1   2   kg/m2/s  acetaldehyde_biomass_burning_emission_mass_flux                                kg_m-2_s-1\nEMIS_ALD2_WST       ALD2    0     9  -1   2   kg/m2/s  acetaldehyde_waste_emission_mass_flux                                          kg_m-2_s-1\nEMIS_ALD2_SHIP      ALD2    0     10 -1   2   kg/m2/s  acetaldehyde_ship_emission_mass_flux                                           kg_m-2_s-1\nEMIS_ALD2_OC        ALD2    101  -1  -1   2   kg/m2/s  acetaldehyde_ocean_emission_mass_flux                                          kg_m-2_s-1\nEMIS_ALD2_BG        ALD2    108  -1  -1   2   kg/m2/s  acetaldehyde_biogenic_emission_mass_flux                                       kg_m-2_s-1\nEMIS_ALD2_PLTDCY    ALD2    0     99 -1   2   kg/m2/s  ALD2_emission_flux_from_decaying_plants                                        kg_m-2_s-1\n#\nEMIS_ALK4           ALK4   -1    -1  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_total_emission_mass_flux                              kg_m-2_s-1\nEMIS_ALK4_IND       ALK4    0     1  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_industry_emission_mass_flux                           kg_m-2_s-1\nEMIS_ALK4_POW       ALK4    0     2  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_power_emission_mass_flux                              kg_m-2_s-1\nEMIS_ALK4_TRA       ALK4    0     3  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_transportation_emission_mass_flux                     kg_m-2_s-1\nEMIS_ALK4_RES       ALK4    0     4  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_residential_emission_mass_flux                        kg_m-2_s-1\nEMIS_ALK4_AGR       ALK4    0     5  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_agriculture_emission_mass_flux                        kg_m-2_s-1\nEMIS_ALK4_BB        ALK4    0     8  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_biomass_burning_emission_mass_flux                    kg_m-2_s-1\nEMIS_ALK4_WST       ALK4    0     9  -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_waste_emission_mass_flux                              kg_m-2_s-1\nEMIS_ALK4_SHIP      ALK4    0     10 -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_ship_emission_mass_flux                               kg_m-2_s-1\nEMIS_ALK4_AIR       ALK4    0     20 -1   2   kg/m2/s  lumped_alkanes_c4_and_c5_aircraft_emission_mass_flux                           kg_m-2_s-1\n#\nEMIS_ALK6           ALK6   -1    -1  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_total_emission_mass_flux                          kg_m-2_s-1\nEMIS_ALK6_IND       ALK6    0     1  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_industry_emission_mass_flux                       kg_m-2_s-1\nEMIS_ALK6_POW       ALK6    0     2  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_power_emission_mass_flux                          kg_m-2_s-1\nEMIS_ALK6_TRA       ALK6    0     3  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_transportation_emission_mass_flux                 kg_m-2_s-1\nEMIS_ALK6_RES       ALK6    0     4  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_residential_emission_mass_flux                    kg_m-2_s-1\nEMIS_ALK6_AGR       ALK6    0     5  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_agriculture_emission_mass_flux                    kg_m-2_s-1\nEMIS_ALK6_WST       ALK6    0     9  -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_waste_emission_mass_flux                          kg_m-2_s-1\nEMIS_ALK6_SHIP      ALK6    0     10 -1   2   kg/m2/s  lumped_alkanes_c6_and_higher_ship_emission_mass_flux                           kg_m-2_s-1\n#\nEMIS_BCPI           BCPI   -1    -1  -1   2   kg/m2/s  hydrophilic_black_carbon_total_emission_mass_flux                              kg_m-2_s-1\nEMIS_BCPI_IND       BCPI    0     1  -1   2   kg/m2/s  hydrophilic_black_carbon_industry_emission_mass_flux                           kg_m-2_s-1\nEMIS_BCPI_POW       BCPI    0     2  -1   2   kg/m2/s  hydrophilic_black_carbon_power_emission_mass_flux                              kg_m-2_s-1\nEMIS_BCPI_TRA       BCPI    0     3  -1   2   kg/m2/s  hydrophilic_black_carbon_traffic_emission_mass_flux                            kg_m-2_s-1\nEMIS_BCPI_RES       BCPI    0     4  -1   2   kg/m2/s  hydrophilic_black_carbon_residential_emission_mass_flux                        kg_m-2_s-1\nEMIS_BCPI_AGR       BCPI    0     5  -1   2   kg/m2/s  hydrophilic_black_carbon_agriculture_emission_mass_flux                        kg_m-2_s-1\nEMIS_BCPI_BB        BCPI    0     8  -1   2   kg/m2/s  hydrophilic_black_carbon_biomass_emission_mass_flux                            kg_m-2_s-1\nEMIS_BCPI_WST       BCPI    0     9  -1   2   kg/m2/s  hydrophilic_black_carbon_waste_emission_mass_flux                              kg_m-2_s-1\nEMIS_BCPI_SHIP      BCPI    0     10 -1   2   kg/m2/s  hydrophilic_black_carbon_ship_emission_mass_flux                               kg_m-2_s-1\nEMIS_BCPI_AIR       BCPI    0     20 -1   2   kg/m2/s  hydrophilic_black_carbon_aircraft_emission_mass_flux                           kg_m-2_s-1\n#\nEMIS_BCPO           BCPO   -1    -1  -1   2   kg/m2/s  hydrophobic_black_carbon_total_emission_mass_flux                              kg_m-2_s-1\nEMIS_BCPO_IND       BCPO    0     1  -1   2   kg/m2/s  hydrophobic_black_carbon_industry_emission_mass_flux                           kg_m-2_s-1\nEMIS_BCPO_POW       BCPO    0     2  -1   2   kg/m2/s  hydrophobic_black_carbon_power_emission_mass_flux                              kg_m-2_s-1\nEMIS_BCPO_TRA       BCPO    0     3  -1   2   kg/m2/s  hydrophobic_black_carbon_traffic_emission_mass_flux                            kg_m-2_s-1\nEMIS_BCPO_RES       BCPO    0     4  -1   2   kg/m2/s  hydrophobic_black_carbon_residential_emission_mass_flux                        kg_m-2_s-1\nEMIS_BCPO_AGR       BCPO    0     5  -1   2   kg/m2/s  hydrophobic_black_carbon_agriculture_emission_mass_flux                        kg_m-2_s-1\nEMIS_BCPO_BB        BCPO    0     8  -1   2   kg/m2/s  hydrophobic_black_carbon_biomass_emission_mass_flux                            kg_m-2_s-1\nEMIS_BCPO_WST       BCPO    0     9  -1   2   kg/m2/s  hydrophobic_black_carbon_waste_emission_mass_flux                              kg_m-2_s-1\nEMIS_BCPO_SHIP      BCPO    0     10 -1   2   kg/m2/s  hydrophobic_black_carbon_ship_emission_mass_flux                               kg_m-2_s-1\nEMIS_BCPO_AIR       BCPO    0     20 -1   2   kg/m2/s  hydrophobic_black_carbon_aircraft_emission_mass_flux                           kg_m-2_s-1\n#\nEMIS_BENZ           BENZ   -1    -1  -1   2   kg/m2/s  benzene_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_BENZ_IND       BENZ    0     1  -1   2   kg/m2/s  benzene_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_BENZ_POW       BENZ    0     2  -1   2   kg/m2/s  benzene_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_BENZ_TRA       BENZ    0     3  -1   2   kg/m2/s  benzene_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_BENZ_RES       BENZ    0     4  -1   2   kg/m2/s  benzene_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_BENZ_AGR       BENZ    0     5  -1   2   kg/m2/s  benzene_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_BENZ_BB        BENZ    0     8  -1   2   kg/m2/s  benzene_biomass_burning_emission_mass_flux                                     kg_m-2_s-1\nEMIS_BENZ_WST       BENZ    0     9  -1   2   kg/m2/s  benzene_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_BENZ_SHIP      BENZ    0     10 -1   2   kg/m2/s  benzene_ship_emission_mass_flux                                                kg_m-2_s-1\n#\nEMIS_Br2            Br2    -1    -1  -1   2   kg/m2/s  molecular_bromine_total_emission_mass_flux                                     kg_m-2_s-1\n#\nEMIS_BrSALA         BrSALA -1    -1  -1   2   kg/m2/s  fine_sea_salt_bromine_total_emission_mass_flux                                 kg_m-2_s-1\nEMIS_BrSALC         BrSALC -1    -1  -1   2   kg/m2/s  coarse_sea_salt_bromine_total_emission_mass_flux                               kg_m-2_s-1\n#\nEMIS_C2H2           C2H2   -1    -1  -1   2   kg/m2/s  acetylene_total_emission_mass_flux                                             kg_m-2_s-1\nEMIS_C2H2_IND       C2H2    0     1  -1   2   kg/m2/s  acetylene_industry_emission_mass_flux                                          kg_m-2_s-1\nEMIS_C2H2_POW       C2H2    0     2  -1   2   kg/m2/s  acetylene_power_emission_mass_flux                                             kg_m-2_s-1\nEMIS_C2H2_TRA       C2H2    0     3  -1   2   kg/m2/s  acetylene_transportation_emission_mass_flux                                    kg_m-2_s-1\nEMIS_C2H2_RES       C2H2    0     4  -1   2   kg/m2/s  acetylene_residential_emission_mass_flux                                       kg_m-2_s-1\nEMIS_C2H2_AGR       C2H2    0     5  -1   2   kg/m2/s  acetylene_agriculture_emission_mass_flux                                       kg_m-2_s-1\nEMIS_C2H2_BB        BENZ    0     8  -1   2   kg/m2/s  acetylene_biomass_burning_emission_mass_flux                                   kg_m-2_s-1\nEMIS_C2H2_WST       C2H2    0     9  -1   2   kg/m2/s  acetylene_waste_emission_mass_flux                                             kg_m-2_s-1\nEMIS_C2H2_SHIP      C2H2    0     10 -1   2   kg/m2/s  acetylene_ship_emission_mass_flux                                              kg_m-2_s-1\n#\nEMIS_C2H4           C2H4   -1    -1  -1   2   kg/m2/s  ethylene_total_emission_mass_flux                                              kg_m-2_s-1\nEMIS_C2H4_IND       C2H4    0     1  -1   2   kg/m2/s  ethylene_industry_emission_mass_flux                                           kg_m-2_s-1\nEMIS_C2H4_POW       C2H4    0     2  -1   2   kg/m2/s  ethylene_power_emission_mass_flux                                              kg_m-2_s-1\nEMIS_C2H4_TRA       C2H4    0     3  -1   2   kg/m2/s  ethylene_transportation_emission_mass_flux                                     kg_m-2_s-1\nEMIS_C2H4_RES       C2H4    0     4  -1   2   kg/m2/s  ethylene_residential_emission_mass_flux                                        kg_m-2_s-1\nEMIS_C2H4_AGR       C2H4    0     5  -1   2   kg/m2/s  ethylene_agriculture_emission_mass_flux                                        kg_m-2_s-1\nEMIS_C2H4_BB        C2H4    0     8  -1   2   kg/m2/s  ethylene_biomass_burning_emission_mass_flux                                    kg_m-2_s-1\nEMIS_C2H4_WST       C2H4    0     9  -1   2   kg/m2/s  ethylene_waste_emission_mass_flux                                              kg_m-2_s-1\nEMIS_C2H4_SHIP      C2H4    0     10 -1   2   kg/m2/s  ethylene_ship_emission_mass_flux                                               kg_m-2_s-1\n#\nEMIS_C2H6           C2H6   -1    -1  -1   2   kg/m2/s  ethane_total_emission_mass_flux                                                kg_m-2_s-1\nEMIS_C2H6_IND       C2H6    0     1  -1   2   kg/m2/s  ethane_industry_emission_mass_flux                                             kg_m-2_s-1\nEMIS_C2H6_POW       C2H6    0     2  -1   2   kg/m2/s  ethane_power_emission_mass_flux                                                kg_m-2_s-1\nEMIS_C2H6_TRA       C2H6    0     3  -1   2   kg/m2/s  ethane_transportation_emission_mass_flux                                       kg_m-2_s-1\nEMIS_C2H6_RES       C2H6    0     4  -1   2   kg/m2/s  ethane_residential_emission_mass_flux                                          kg_m-2_s-1\nEMIS_C2H6_AGR       C2H6    0     5  -1   2   kg/m2/s  ethane_agriculture_emission_mass_flux                                          kg_m-2_s-1\nEMIS_C2H6_BB        C2H6    0     8  -1   2   kg/m2/s  ethane_biomass_burning_emission_mass_flux                                      kg_m-2_s-1\nEMIS_C2H6_WST       C2H6    0     9  -1   2   kg/m2/s  ethane_waste_emission_mass_flux                                                kg_m-2_s-1\nEMIS_C2H6_SHIP      C2H6    0     10 -1   2   kg/m2/s  ethane_ship_emission_mass_flux                                                 kg_m-2_s-1\nEMIS_C2H6_AIR       C2H6    0     20 -1   2   kg/m2/s  ethane_aircraft_emission_mass_flux                                             kg_m-2_s-1\n#\nEMIS_C3H8           C3H8   -1    -1  -1   2   kg/m2/s  propane_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_C3H8_IND       C3H8    0     1  -1   2   kg/m2/s  propane_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_C3H8_POW       C3H8    0     2  -1   2   kg/m2/s  propane_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_C3H8_TRA       C3H8    0     3  -1   2   kg/m2/s  propane_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_C3H8_RES       C3H8    0     4  -1   2   kg/m2/s  propane_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_C3H8_AGR       C3H8    0     5  -1   2   kg/m2/s  propane_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_C3H8_BB        C3H8    0     8  -1   2   kg/m2/s  propane_biomass_burning_emission_mass_flux                                     kg_m-2_s-1\nEMIS_C3H8_WST       C3H8    0     9  -1   2   kg/m2/s  propane_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_C3H8_SHIP      C3H8    0     10 -1   2   kg/m2/s  propane_ship_emission_mass_flux                                                kg_m-2_s-1\nEMIS_C3H8_AIR       C3H8    0     20 -1   2   kg/m2/s  propane_aircraft_emission_mass_flux                                            kg_m-2_s-1\n#\nEMIS_C4H6           C4H6   -1    -1  -1   2   kg/m2/s  1_3_butadiene_total_emission_mass_flux                                         kg_m-2_s-1\n#\nEMIS_CH2Br2         CH2Br2 -1     1  -1  2    kg/m2/s  dibromomethane_total_emission_mass_flux                                        kg_m-2_s-1\n#\nEMIS_CH2I2          CH2I2  -1    -1  -1   2   kg/m2/s  diiodomethane_total_emission_mass_flux                                         kg_m-2_s-1\n#\nEMIS_CH2ICl         CH2ICl -1    -1  -1   2   kg/m2/s  chloroiodomethane_total_emission_mass_flux                                     kg_m-2_s-1\n#\nEMIS_CH2IBr         CH2IBr -1    -1  -1   2   kg/m2/s  bromoiodomethane_total_emission_mass_flux                                      kg_m-2_s-1\n#\nEMIS_CH2O           CH2O   -1    -1  -1   2   kg/m2/s  formaldehyde_total_emission_mass_flux                                          kg_m-2_s-1\nEMIS_CH2O_IND       CH2O    0     1  -1   2   kg/m2/s  formaldehyde_industry_emission_mass_flux                                       kg_m-2_s-1\nEMIS_CH2O_POW       CH2O    0     2  -1   2   kg/m2/s  formaldehyde_power_emission_mass_flux                                          kg_m-2_s-1\nEMIS_CH2O_TRA       CH2O    0     3  -1   2   kg/m2/s  formaldehyde_transportation_emission_mass_flux                                 kg_m-2_s-1\nEMIS_CH2O_RES       CH2O    0     4  -1   2   kg/m2/s  formaldehyde_residential_emission_mass_flux                                    kg_m-2_s-1\nEMIS_CH2O_AGR       CH2O    0     5  -1   2   kg/m2/s  formaldehyde_agriculture_emission_mass_flux                                    kg_m-2_s-1\nEMIS_CH2O_BB        CH2O    0     8  -1   2   kg/m2/s  formaldehyde_biomass_burning_emission_mass_flux                                kg_m-2_s-1\nEMIS_CH2O_WST       CH2O    0     9  -1   2   kg/m2/s  formaldehyde_waste_emission_mass_flux                                          kg_m-2_s-1\nEMIS_CH2O_SHIP      CH2O    0     10 -1   2   kg/m2/s  formaldehyde_ship_emission_mass_flux                                           kg_m-2_s-1\nEMIS_CH2O_AIR       CH2O    0     20 -1   2   kg/m2/s  formaldehyde_aircraft_emission_mass_flux                                       kg_m-2_s-1\n#\nEMIS_CH3I           CH3I   -1    -1  -1   2   kg/m2/s  methyl_iodide_total_emission_mass_flux                                         kg_m-2_s-1\n#\nEMIS_CH4            CH4    -1    -1  -1   2   kg/m2/s  methane_total_emission_mass_flux                                               kg_m-2_s-1\n#\nEMIS_CHBr3          CHBr3  -1    -1  -1   2   kg/m2/s  bromoform_total_emission_mass_flux                                             kg_m-2_s-1\n#\nEMIS_CH2Br2         CH2Br2 -1    -1  -1   2   kg/m2/s  dibromomethane_total_emission_mass_flux                                        kg_m-2_s-1\n#\nEMIS_CO             CO     -1    -1  -1   2   kg/m2/s  carbon_monoxide_total_emission_mass_flux                                       kg_m-2_s-1\nEMIS_CO_IND         CO      0     1  -1   2   kg/m2/s  carbon_monoxide_industry_emission_mass_flux                                    kg_m-2_s-1\nEMIS_CO_POW         CO      0     2  -1   2   kg/m2/s  carbon_monoxide_power_emission_mass_flux                                       kg_m-2_s-1\nEMIS_CO_TRA         CO      0     3  -1   2   kg/m2/s  carbon_monoxide_transportation_emission_mass_flux                              kg_m-2_s-1\nEMIS_CO_RES         CO      0     4  -1   2   kg/m2/s  carbon_monoxide_residential_emission_mass_flux                                 kg_m-2_s-1\nEMIS_CO_AGR         CO      0     5  -1   2   kg/m2/s  carbon_monoxide_agriculture_emission_mass_flux                                 kg_m-2_s-1\nEMIS_CO_WST         CO      0     9  -1   2   kg/m2/s  carbon_monoxide_waste_emission_mass_flux                                       kg_m-2_s-1\nEMIS_CO_BB          CO      0     8  -1   2   kg/m2/s  carbon_monoxide_biomass_emission_mass_flux                                     kg_m-2_s-1\nEMIS_CO_SHIP        CO      0     10 -1   2   kg/m2/s  carbon_monoxide_ship_emission_mass_flux                                        kg_m-2_s-1\nEMIS_CO_BG          CO      108  -1  -1   2   kg/m2/s  carbon_monoxide_biogenic_emission_mass_flux                                    kg_m-2_s-1\n#\nEMIS_DMS            DMS    -1    -1  -1   2   kg/m2/s  dimethyl_sulfide_total_emission_mass_flux                                      kg_m-2_s-1\n#\nEMIS_DSTbin1        DSTbin1 -1    -1  -1   2   kg/m2/s  dust_aerosol_0.151_microns_emission_mass_flux                                    kg_m-2_s-1\nEMIS_DSTbin2        DSTbin2 -1    -1  -1   2   kg/m2/s  dust_aerosol_0.253_microns_emission_mass_flux                                    kg_m-2_s-1\nEMIS_DSTbin3        DSTbin3 -1    -1  -1   2   kg/m2/s  dust_aerosol_0.402_microns_emission_mass_flux                                    kg_m-2_s-1\nEMIS_DSTbin4        DSTbin4 -1    -1  -1   2   kg/m2/s  dust_aerosol_0.818_microns_emission_mass_flux                                    kg_m-2_s-1\nEMIS_DSTbin5        DSTbin5 -1    -1  -1   2   kg/m2/s  dust_aerosol_1.491_microns_emission_mass_flux                                    kg_m-2_s-1\nEMIS_DSTbin6        DSTbin6 -1    -1  -1   2   kg/m2/s  dust_aerosol_2.417_microns_emission_mass_flux                                    kg_m-2_s-1\nEMIS_DSTbin7        DSTbin7 -1    -1  -1   2   kg/m2/s  dust_aerosol_3.721_microns_emission_mass_flux                                    kg_m-2_s-1\n#\nEMIS_EOH            EOH    -1    -1  -1   2   kg/m2/s  ethanol_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_EOH_IND        EOH     0     1  -1   2   kg/m2/s  ethanol_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_EOH_POW        EOH     0     2  -1   2   kg/m2/s  ethanol_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_EOH_TRA        EOH     0     3  -1   2   kg/m2/s  ethanol_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_EOH_RES        EOH     0     4  -1   2   kg/m2/s  ethanol_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_EOH_AGR        EOH     0     5  -1   2   kg/m2/s  ethanol_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_EOH_BB         EOH     0     8  -1   2   kg/m2/s  ethanol_biomass_burning_emission_mass_flux                                     kg_m-2_s-1\nEMIS_EOH_WST        EOH     0     9  -1   2   kg/m2/s  ethanol_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_EOH_SHIP       EOH     0     10 -1   2   kg/m2/s  ethanol_ship_emission_mass_flux                                                kg_m-2_s-1\nEMIS_EOH_BG         EOH     108  -1  -1   2   kg/m2/s  ethanol_biogenic_emission_mass_flux                                            kg_m-2_s-1\n#\nEMIS_ETNO3          ETNO3  -1    -1  -1   2   kg/m2/s  ethyl_nitrate_total_emission_mass_flux                                         kg_m-2_s-1\n#\nEMIS_FURA           ETNO3  -1    -1  -1   2   kg/m2/s  furan_total_emission_mass_flux                                                 kg_m-2_s-1\n#\nEMIS_GLYX           GLYX   -1    -1  -1   2   kg/m2/s  glyoxal_nitrate_total_emission_mass_flux                                       kg_m-2_s-1\n#\nEMIS_H2O            H2O    -1    -1  -1   2   kg/m2/s  H2O_emission_flux_from_aircraft                                                kg_m-2_s-1    \n#\nEMIS_HCOOH          HCOOH  -1    -1  -1   2   kg/m2/s  formic_acid_total_emission_mass_flux                                           kg_m-2_s-1\nEMIS_HCOOH_IND      HCOOH   0     1  -1   2   kg/m2/s  formic_acid_industry_emission_mass_flux                                        kg_m-2_s-1\nEMIS_HCOOH_POW      HCOOH   0     2  -1   2   kg/m2/s  formic_acid_power_emission_mass_flux                                           kg_m-2_s-1\nEMIS_HCOOH_TRA      HCOOH   0     3  -1   2   kg/m2/s  formic_acid_transportation_emission_mass_flux                                  kg_m-2_s-1\nEMIS_HCOOH_RES      HCOOH   0     4  -1   2   kg/m2/s  formic_acid_residential_emission_mass_flux                                     kg_m-2_s-1\nEMIS_HCOOH_AGR      HCOOH   0     5  -1   2   kg/m2/s  formic_acid_agriculture_emission_mass_flux                                     kg_m-2_s-1\nEMIS_HCOOH_BB       HCOOH   0     8  -1   2   kg/m2/s  formic_acid_biomass_burning_emission_mass_flux                                 kg_m-2_s-1\nEMIS_HCOOH_WST      HCOOH   0     9  -1   2   kg/m2/s  formic_acid_waste_emission_mass_flux                                           kg_m-2_s-1\nEMIS_HCOOH_SHIP     HCOOH   0     10 -1   2   kg/m2/s  formic_acid_ship_emission_mass_flux                                            kg_m-2_s-1\n#\nEMIS_HOI            HOI    -1    -1  -1   2   kg/m2/s  hypoiodous_acid_total_emission_mass_flux                                       kg_m-2_s-1\n#\nEMIS_HNO2           HNO2   -1    -1  -1   2   kg/m2/s  nitrous_acid_total_emission_mass_flux                                          kg_m-2_s-1\n#\nEMIS_HNO3           HNO2   -1    -1  -1   2   kg/m2/s  nitric_acid_total_emission_mass_flux                                           kg_m-2_s-1\n#\nEMIS_I2             I2     -1    -1  -1   2   kg/m2/s  molecular_iodine_total_emission_mass_flux                                      kg_m-2_s-1\n#\nEMIS_ISOP           ISOP   -1    -1  -1   2   kg/m2/s  isoprene_total_emission_mass_flux                                              kg_m-2_s-1\n#\nEMIS_LIMO           LIMO   -1    -1  -1   2   kg/m2/s  limonene_total_emission_mass_flux                                              kg_m-2_s-1\n#\nEMIS_MACR           MACR   -1    -1  -1   2   kg/m2/s  methacrolein_total_emission_mass_flux                                          kg_m-2_s-1\n#\nEMIS_MEK            MEK    -1    -1  -1   2   kg/m2/s  methyl_ethyl_ketone_total_emission_mass_flux                                   kg_m-2_s-1\nEMIS_MEK_IND        MEK     0     1  -1   2   kg/m2/s  methyl_ethyl_ketone_industry_emission_mass_flux                                kg_m-2_s-1\nEMIS_MEK_POW        MEK     0     2  -1   2   kg/m2/s  methyl_ethyl_ketone_power_emission_mass_flux                                   kg_m-2_s-1\nEMIS_MEK_TRA        MEK     0     3  -1   2   kg/m2/s  methyl_ethyl_ketone_transportation_emission_mass_flux                          kg_m-2_s-1\nEMIS_MEK_RES        MEK     0     4  -1   2   kg/m2/s  methyl_ethyl_ketone_residential_emission_mass_flux                             kg_m-2_s-1\nEMIS_MEK_AGR        MEK     0     5  -1   2   kg/m2/s  methyl_ethyl_ketone_agriculture_emission_mass_flux                             kg_m-2_s-1\nEMIS_MEK_BB         MEK     0     8  -1   2   kg/m2/s  methyl_ethyl_ketone_biomass_burning_emission_mass_flux                         kg_m-2_s-1\nEMIS_MEK_WST        MEK     0     9  -1   2   kg/m2/s  methyl_ethyl_ketone_waste_emission_mass_flux                                   kg_m-2_s-1\nEMIS_MEK_SHIP       MEK     0     10 -1   2   kg/m2/s  methyl_ethyl_ketone_ship_emission_mass_flux                                    kg_m-2_s-1\nEMIS_MEK_OC         MEK     101  -1  -1   2   kg/m2/s  methyl_ethyl_ketone_ocean_emission_mass_flux                                   kg_m-2_s-1\n#\nEMIS_MENO3          MENO3  -1    -1   -1  2   kg/m2/s  methyl_nitrate_total_emission_mass_flux                                        kg_m-2_s-1\n#\nEMIS_MGLY           MGLY   -1    -1   -1  2   kg/m2/s  methylglyoxal_total_emission_mass_flux                                         kg_m-2_s-1\n#\nEMIS_MOH            MOH    -1    -1  -1   2   kg/m2/s  methanol_total_emission_mass_flux                                              kg_m-2_s-1\nEMIS_MOH_IND        MOH     0     1  -1   2   kg/m2/s  methanol_industry_emission_mass_flux                                           kg_m-2_s-1\nEMIS_MOH_POW        MOH     0     2  -1   2   kg/m2/s  methanol_power_emission_mass_flux                                              kg_m-2_s-1\nEMIS_MOH_TRA        MOH     0     3  -1   2   kg/m2/s  methanol_transportation_emission_mass_flux                                     kg_m-2_s-1\nEMIS_MOH_RES        MOH     0     4  -1   2   kg/m2/s  methanol_residential_emission_mass_flux                                        kg_m-2_s-1\nEMIS_MOH_AGR        MOH     0     5  -1   2   kg/m2/s  methanol_agriculture_emission_mass_flux                                        kg_m-2_s-1\nEMIS_MOH_BB         MOH     0     8  -1   2   kg/m2/s  methanol_biomass_burning_emission_mass_flux                                    kg_m-2_s-1\nEMIS_MOH_WST        MOH     0     9  -1   2   kg/m2/s  methanol_waste_emission_mass_flux                                              kg_m-2_s-1\nEMIS_MOH_SHIP       MOH     0     10 -1   2   kg/m2/s  methanol_ship_emission_mass_flux                                               kg_m-2_s-1\nEMIS_MOH_BG         MOH     108  -1  -1   2   kg/m2/s  methanol_biogenic_emission_mass_flux                                           kg_m-2_s-1\n#\nEMIS_MTPA           MTPA   -1    -1  -1   2   kg/m2/s  a_pinene_b-pinene_sabinene_carene_total_emission_mass_flux                     kg_m-2_s-1\n#\nEMIS_MTPO           MTPO   -1    -1  -1   2   kg/m2/s  terpinene_terpinolene_myrcene_ocimene_other_monoterpenes_total_mass_flux       kg_m-2_s-1\n#\nEMIS_MEK            MEK    -1    -1  -1   2   kg/m2/s  methyl_vinyl_ketone_total_emission_mass_flux                                   kg_m-2_s-1\n#\nEMIS_NAP            NAP    -1    -1  -1   2   kg/m2/s  napthalene_total_emission_mass_flux                                            kg_m-2_s-1\n#\nEMIS_NH3            NH3    -1    -1  -1   2   kg/m2/s  ammonia_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_NH3_IND        NH3     0     1  -1   2   kg/m2/s  ammonia_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_NH3_POW        NH3     0     2  -1   2   kg/m2/s  ammonia_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_NH3_TRA        NH3     0     3  -1   2   kg/m2/s  ammonia_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_NH3_RES        NH3     0     4  -1   2   kg/m2/s  ammonia_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_NH3_AGR        NH3     0     5  -1   2   kg/m2/s  ammonia_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_NH3_BB         NH3     0     8  -1   2   kg/m2/s  ammonia_biomass_burning_emission_mass_flux                                     kg_m-2_s-1\nEMIS_NH3_WST        NH3     0     9  -1   2   kg/m2/s  ammonia_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_NH3_SHIP       NH3     0     10 -1   2   kg/m2/s  ammonia_ship_emission_mass_flux                                                kg_m-2_s-1\nEMIS_NH3_BIRD       NH3     0     30 -1   2   kg/m2/s  ammonia_seabird_emission_mass_flux                                             kg_m-2_s-1\n#\nEMIS_NO             NO     -1    -1  -1   2   kg/m2/s  nitric_oxide_total_emission_mass_flux                                          kg_m-2_s-1\nEMIS_NO_IND         NO      0     1  -1   2   kg/m2/s  nitric_oxide_industry_emission_mass_flux                                       kg_m-2_s-1\nEMIS_NO_POW         NO      0     2  -1   2   kg/m2/s  nitric_oxide_power_emission_mass_flux                                          kg_m-2_s-1\nEMIS_NO_TRA         NO      0     3  -1   2   kg/m2/s  nitric_oxide_transportation_emission_mass_flux                                 kg_m-2_s-1\nEMIS_NO_RES         NO      0     4  -1   2   kg/m2/s  nitric_oxide_residential_emission_mass_flux                                    kg_m-2_s-1\nEMIS_NO_AGR         NO      0     5  -1   2   kg/m2/s  nitric_oxide_agriculture_emission_mass_flux                                    kg_m-2_s-1\nEMIS_NO_WST         NO      0     9  -1   2   kg/m2/s  nitric_oxide_waste_emission_mass_flux                                          kg_m-2_s-1\nEMIS_NO_BB          NO      0     8  -1   2   kg/m2/s  nitric_oxide_biomass_emission_mass_flux                                        kg_m-2_s-1\nEMIS_NO_SHIP        NO      0     10 -1   2   kg/m2/s  nitric_oxide_ship_emission_mass_flux                                           kg_m-2_s-1\nEMIS_NO_AIR         NO      0     20 -1   2   kg/m2/s  nitric_oxide_aircraft_emission_mass_flux                                       kg_m-2_s-1\nEMIS_NO_LGHT        NO      103  -1  -1   2   kg/m2/s  nitric_oxide_lightning_emission_mass_flux                                      kg_m-2_s-1\nEMIS_NO_SOIL        NO      104  -1  -1   2   kg/m2/s  nitric_oxide_soil_emission_mass_flux                                           kg_m-2_s-1\n#\nEMIS_NO2            NO2    -1    -1  -1   2   kg/m2/s  nitrogen_dioxide_total_emission_mass_flux                                      kg_m-2_s-1\nEMIS_NO2_IND        NO2     0     1  -1   2   kg/m2/s  nitrogen_dioxide_industry_emission_mass_flux                                   kg_m-2_s-1\nEMIS_NO2_POW        NO2     0     2  -1   2   kg/m2/s  nitrogen_dioxide_power_emission_mass_flux                                      kg_m-2_s-1\nEMIS_NO2_TRA        NO2     0     3  -1   2   kg/m2/s  nitrogen_dioxide_transportation_emission_mass_flux                             kg_m-2_s-1\nEMIS_NO2_RES        NO2     0     4  -1   2   kg/m2/s  nitrogen_dioxide_residential_emission_mass_flux                                kg_m-2_s-1\nEMIS_NO2_AGR        NO2     0     5  -1   2   kg/m2/s  nitrogen_dioxide_agriculture_emission_mass_flux                                kg_m-2_s-1\nEMIS_NO2_BB         NO2     0     8  -1   2   kg/m2/s  nitrogen_dioxide_biomass_emission_mass_flux                                    kg_m-2_s-1\nEMIS_NO2_WST        NO2     0     9  -1   2   kg/m2/s  nitrogen_dioxide_waste_emission_mass_flux                                      kg_m-2_s-1\nEMIS_NO2_SHIP       NO2     0     10 -1   2   kg/m2/s  nitrogen_dioxide_ship_emission_mass_flux                                       kg_m-2_s-1\nEMIS_NO2_AIR        NO2     0     20 -1   2   kg/m2/s  nitrogen_dioxide_aircraft_emission_mass_flux                                   kg_m-2_s-1\n#\nEMIS_OCPI           OCPI   -1    -1  -1   2   kg/m2/s  hydrophilic_organic_carbon_total_emission_mass_flux                            kg_m-2_s-1\nEMIS_OCPI_IND       OCPI    0     1  -1   2   kg/m2/s  hydrophilic_organic_carbon_industry_emission_mass_flux                         kg_m-2_s-1\nEMIS_OCPI_POW       OCPI    0     2  -1   2   kg/m2/s  hydrophilic_organic_carbon_power_emission_mass_flux                            kg_m-2_s-1\nEMIS_OCPI_TRA       OCPI    0     3  -1   2   kg/m2/s  hydrophilic_organic_carbon_traffic_emission_mass_flux                          kg_m-2_s-1\nEMIS_OCPI_RES       OCPI    0     4  -1   2   kg/m2/s  hydrophilic_organic_carbon_residential_emission_mass_flux                      kg_m-2_s-1\nEMIS_OCPI_AGR       OCPI    0     5  -1   2   kg/m2/s  hydrophilic_organic_carbon_agriculture_emission_mass_flux                      kg_m-2_s-1\nEMIS_OCPI_BB        OCPI    0     8  -1   2   kg/m2/s  hydrophilic_organic_carbon_biomass_emission_mass_flux                          kg_m-2_s-1\nEMIS_OCPI_WST       OCPI    0     9  -1   2   kg/m2/s  hydrophilic_organic_carbon_waste_emission_mass_flux                            kg_m-2_s-1\nEMIS_OCPI_SHIP      OCPI    0     10 -1   2   kg/m2/s  hydrophilic_organic_carbon_ship_emission_mass_flux                             kg_m-2_s-1\nEMIS_OCPI_AIR       OCPI    0     20 -1   2   kg/m2/s  hydrophilic_organic_carbon_aircraft_emission_mass_flux                         kg_m-2_s-1\n#\nEMIS_OCPO           OCPO   -1    -1  -1   2   kg/m2/s  hydrophobic_organic_carbon_total_emission_mass_flux                            kg_m-2_s-1\nEMIS_OCPO_IND       OCPO    0     1  -1   2   kg/m2/s  hydrophobic_organic_carbon_industry_emission_mass_flux                         kg_m-2_s-1\nEMIS_OCPO_POW       OCPO    0     2  -1   2   kg/m2/s  hydrophobic_organic_carbon_power_emission_mass_flux                            kg_m-2_s-1\nEMIS_OCPO_TRA       OCPO    0     3  -1   2   kg/m2/s  hydrophobic_organic_carbon_traffic_emission_mass_flux                          kg_m-2_s-1\nEMIS_OCPO_RES       OCPO    0     4  -1   2   kg/m2/s  hydrophobic_organic_carbon_residential_emission_mass_flux                      kg_m-2_s-1\nEMIS_OCPO_AGR       OCPO    0     5  -1   2   kg/m2/s  hydrophobic_organic_carbon_agriculture_emission_mass_flux                      kg_m-2_s-1\nEMIS_OCPO_BB        OCPO    0     8  -1   2   kg/m2/s  hydrophobic_organic_carbon_biomass_emission_mass_flux                          kg_m-2_s-1\nEMIS_OCPO_WST       OCPO    0     9  -1   2   kg/m2/s  hydrophobic_organic_carbon_waste_emission_mass_flux                            kg_m-2_s-1\nEMIS_OCPO_SHIP      OCPO    0     10 -1   2   kg/m2/s  hydrophobic_organic_carbon_ship_emission_mass_flux                             kg_m-2_s-1\nEMIS_OCPO_AIR       OCPO    0     20 -1   2   kg/m2/s  hydrophobic_organic_carbon_aircraft_emission_mass_flux                         kg_m-2_s-1\n#\nEMIS_pFe            pFe    -1    -1  -1   2   kg/m2/s  anthropogenic_iron_total_emission_mass_flux                                    kg_m-2_s-1\n#\nEMIS_PHEN           PHEN   -1    -1  -1   2   kg/m2/s  phenol_total_emission_mass_flux                                                kg_m-2_s-1\n#\nEMIS_PRPE           PRPE   -1    -1  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_total_emission_mass_flux                          kg_m-2_s-1\nEMIS_PRPE_IND       PRPE    0     1  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_industry_emission_mass_flux                       kg_m-2_s-1\nEMIS_PRPE_POW       PRPE    0     2  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_power_emission_mass_flux                          kg_m-2_s-1\nEMIS_PRPE_TRA       PRPE    0     3  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_transportation_emission_mass_flux                 kg_m-2_s-1\nEMIS_PRPE_RES       PRPE    0     4  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_residential_emission_mass_flux                    kg_m-2_s-1\nEMIS_PRPE_AGR       PRPE    0     5  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_agriculture_emission_mass_flux                    kg_m-2_s-1\nEMIS_PRPE_BB        PRPE    0     8  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_biomass_burning_emission_mass_flux                kg_m-2_s-1\nEMIS_PRPE_WST       PRPE    0     9  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_waste_emission_mass_flux                          kg_m-2_s-1\nEMIS_PRPE_SHIP      PRPE    0     10 -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_ship_emission_mass_flux                           kg_m-2_s-1\nEMIS_PRPE_AIR       PRPE    0     20 -1   2   kg/m2/s  lumped_alkenes_c3_and_hgiher_aircraft_emission_mass_flux                       kg_m-2_s-1\nEMIS_PRPE_BG        PRPE    108  -1  -1   2   kg/m2/s  lumped_alkenes_c3_and_higher_biogenic_emission_mass_flux                       kg_m-2_s-1\n#\nEMIS_RCHO           RCHO   -1    -1  -1   2   kg/m2/s  lumped_aldehyde_c3_and_higher_total_emission_mass_flux                         kg_m-2_s-1\n#\nEMIS_ROH            ROH    -1    -1  -1   2   kg/m2/s  alcohols_total_emission_mass_flux                                              kg_m-2_s-1\nEMIS_ROH_IND        ROH     0     1  -1   2   kg/m2/s  alcohols_industry_emission_mass_flux                                           kg_m-2_s-1\nEMIS_ROH_POW        ROH     0     2  -1   2   kg/m2/s  alcohols_power_emission_mass_flux                                              kg_m-2_s-1\nEMIS_ROH_TRA        ROH     0     3  -1   2   kg/m2/s  alcohols_transportation_emission_mass_flux                                     kg_m-2_s-1\nEMIS_ROH_RES        ROH     0     4  -1   2   kg/m2/s  alcohols_residential_emission_mass_flux                                        kg_m-2_s-1\nEMIS_ROH_AGR        ROH     0     5  -1   2   kg/m2/s  alcohols_agriculture_emission_mass_flux                                        kg_m-2_s-1\nEMIS_ROH_BB         ROH     0     8  -1   2   kg/m2/s  alcohols_biomass_burning_emission_mass_flux                                    kg_m-2_s-1\nEMIS_ROH_WST        ROH     0     9  -1   2   kg/m2/s  alcohols_waste_emission_mass_flux                                              kg_m-2_s-1\nEMIS_ROH_SHIP       ROH     0     10 -1   2   kg/m2/s  alcohols_ship_emission_mass_flux                                               kg_m-2_s-1\n#\nEMIS_SALA           SALA   -1    -1  -1   2   kg/m2/s  sea-salt_aerosol_accumulation_mode_0.01-0.05_microns_total_emission_mass_flux  kg_m-2_s-1\nEMIS_SALC           SALC   -1    -1  -1   2   kg/m2/s  sea-salt_aerosol_coarse_mode_0.5-8_microns_total_emission_mass_flux            kg_m-2_s-1\n#\nEMIS_SO2            SO2    -1    -1  -1   2   kg/m2/s  sulfur_dioxide_total_emission_mass_flux                                        kg_m-2_s-1\nEMIS_SO2_IND        SO2     0     1  -1   2   kg/m2/s  sulfur_dioxide_industry_emission_mass_flux                                     kg_m-2_s-1\nEMIS_SO2_POW        SO2     0     2  -1   2   kg/m2/s  sulfur_dioxide_power_emission_mass_flux                                        kg_m-2_s-1\nEMIS_SO2_TRA        SO2     0     3  -1   2   kg/m2/s  sulfur_dioxide_transportation_emission_mass_flux                               kg_m-2_s-1\nEMIS_SO2_RES        SO2     0     4  -1   2   kg/m2/s  sulfur_dioxide_residential_emission_mass_flux                                  kg_m-2_s-1\nEMIS_SO2_AGR        SO2     0     5  -1   2   kg/m2/s  sulfur_dioxide_agriculture_emission_mass_flux                                  kg_m-2_s-1\nEMIS_SO2_BB         SO2     0     8  -1   2   kg/m2/s  sulfur_dioxide_biomass_emission_mass_flux                                      kg_m-2_s-1\nEMIS_SO2_WST        SO2     0     9  -1   2   kg/m2/s  sulfur_dioxide_waste_emission_mass_flux                                        kg_m-2_s-1\nEMIS_SO2_SHIP       SO2     0     10 -1   2   kg/m2/s  sulfur_dioxide_ship_emission_mass_flux                                         kg_m-2_s-1\nEMIS_SO2_AIR        SO2     0     20 -1   2   kg/m2/s  sulfur_dioxide_aircraft_emission_mass_flux                                     kg_m-2_s-1\nEMIS_SO2_VER        SO2     117   61 -1   2   kg/m2/s  sulfur_dioxide_eruptive_volcano_emission_mass_flux                             kg_m-2_s-1\nEMIS_SO2_VDG        SO2     117   62 -1   2   kg/m2/s  sulfur_dioxide_degassing_volcano_emission_mass_flux                            kg_m-2_s-1\n#\nEMIS_SO4            SO4    -1    -1  -1   2   kg/m2/s  sulfate_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_SO4_IND        SO4     0     1  -1   2   kg/m2/s  sulfate_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_SO4_POW        SO4     0     2  -1   2   kg/m2/s  sulfate_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_SO4_TRA        SO4     0     3  -1   2   kg/m2/s  sulfate_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_SO4_RES        SO4     0     4  -1   2   kg/m2/s  sulfate_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_SO4_AGR        SO4     0     5  -1   2   kg/m2/s  sulfate_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_SO4_BB         SO4     0     8  -1   2   kg/m2/s  sulfate_biomass_emission_mass_flux                                             kg_m-2_s-1\nEMIS_SO4_WST        SO4     0     9  -1   2   kg/m2/s  sulfate_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_SO4_SHIP       SO4     0     10 -1   2   kg/m2/s  sulfate_ship_emission_mass_flux                                                kg_m-2_s-1\nEMIS_SO4_AIR        SO4     0     20 -1   2   kg/m2/s  sulfate_aircraft_emission_mass_flux                                            kg_m-2_s-1\nEMIS_SO4_VER        SO4     117   61 -1   2   kg/m2/s  sulfate_eruptive_volcano_emission_mass_flux                                    kg_m-2_s-1\nEMIS_SO4_VDG        SO4     117   62 -1   2   kg/m2/s  sulfate_degassing_volcano_emission_mass_flux                                   kg_m-2_s-1\n#\nEMIS_SOAP           SOAP   -1    -1  -1   2   kg/m2/s  SOA_precursor_total_emission_mass_flux                                         kg_m-2_s-1\nEMIS_SOAP_IND       SOAP    0     1  -1   2   kg/m2/s  SOA_precursor_industry_emission_mass_flux                                      kg_m-2_s-1\nEMIS_SOAP_POW       SOAP    0     2  -1   2   kg/m2/s  SOA_presursor_power_emission_mass_flux                                         kg_m-2_s-1\nEMIS_SOAP_TRA       SOAP    0     3  -1   2   kg/m2/s  SOA_precursor_traffic_emission_mass_flux                                       kg_m-2_s-1\nEMIS_SOAP_RES       SOAP    0     4  -1   2   kg/m2/s  SOA_precursor_residential_emission_mass_flux                                   kg_m-2_s-1\nEMIS_SOAP_AGR       SOAP    0     5  -1   2   kg/m2/s  SOA_precursor_agriculture_emission_mass_flux                                   kg_m-2_s-1\nEMIS_SOAP_BB        SOAP    0     8  -1   2   kg/m2/s  SOA_precursor_biomass_emission_mass_flux                                       kg_m-2_s-1\nEMIS_SOAP_WST       SOAP    0     9  -1   2   kg/m2/s  SOA_presursor_waste_emission_mass_flux                                         kg_m-2_s-1\nEMIS_SOAP_SHIP      SOAP    0     10 -1   2   kg/m2/s  SOA_precursor_ship_emission_mass_flux                                          kg_m-2_s-1\nEMIS_SOAP_AIR       SOAP    0     20 -1   2   kg/m2/s  SOA_precursor_aircraft_emission_mass_flux                                      kg_m-2_s-1\nEMIS_SOAP_BG        SOAP    108  -1  -1   2   kg/m2/s  SOA_precursor_biogenic_emission_mass_flux                                      kg_m-2_s-1\n#\nEMIS_SESQ           SESQ   -1    -1  -1   2   kg/m2/s  sesquiterpenes_total_emission_mass_flux                                        kg_m-2_s-1\nEMIS_SESQ_BG        SESQ    108  -1  -1   2   kg/m2/s  sesquiterpenes_biogenic_emission_mass_flux                                     kg_m-2_s-1\n#\nEMIS_SOAS           SOAS   -1    -1  -1   2   kg/m2/s  SOA_simple_total_emission_mass_flux                                            kg_m-2_s-1\nEMIS_SOAS_BB        SOAS    0     8  -1   2   kg/m2/s  SOA_simple_biomass_emission_mass_flux                                          kg_m-2_s-1\nEMIS_SOAS_BG        SOAS    108  -1  -1   2   kg/m2/s  SOA_simple_biogenic_emission_mass_flux                                         kg_m-2_s-1\n#\nEMIS_TMB            TMB    -1    -1  -1   2   kg/m2/s  trimethylbenzenes_total_emission_mass_flux                                     kg_m-2_s-1\nEMIS_TMB_IND        TMB     0     1  -1   2   kg/m2/s  trimethylbenzenes_industry_emission_mass_flux                                  kg_m-2_s-1\nEMIS_TMB_POW        TMB     0     2  -1   2   kg/m2/s  trimethylbenzenes_power_emission_mass_flux                                     kg_m-2_s-1\nEMIS_TMB_TRA        TMB     0     3  -1   2   kg/m2/s  trimethylbenzenes_transportation_emission_mass_flux                            kg_m-2_s-1\nEMIS_TMB_RES        TMB     0     4  -1   2   kg/m2/s  trimethylbenzenes_residential_emission_mass_flux                               kg_m-2_s-1\nEMIS_TMB_AGR        TMB     0     5  -1   2   kg/m2/s  trimethylbenzenes_agriculture_emission_mass_flux                               kg_m-2_s-1\nEMIS_TMB_BB         TMB     0     8  -1   2   kg/m2/s  trimethylbenzenes_biomass_burning_emission_mass_flux                           kg_m-2_s-1\nEMIS_TMB_WST        TMB     0     9  -1   2   kg/m2/s  trimethylbenzenes_waste_emission_mass_flux                                     kg_m-2_s-1\nEMIS_TMB_SHIP       TMB     0     10 -1   2   kg/m2/s  trimethylbenzenes_ship_emission_mass_flux                                      kg_m-2_s-1\n#\nEMIS_TOLU           TOLU   -1    -1  -1   2   kg/m2/s  toluene_total_emission_mass_flux                                               kg_m-2_s-1\nEMIS_TOLU_IND       TOLU    0     1  -1   2   kg/m2/s  toluene_industry_emission_mass_flux                                            kg_m-2_s-1\nEMIS_TOLU_POW       TOLU    0     2  -1   2   kg/m2/s  toluene_power_emission_mass_flux                                               kg_m-2_s-1\nEMIS_TOLU_TRA       TOLU    0     3  -1   2   kg/m2/s  toluene_transportation_emission_mass_flux                                      kg_m-2_s-1\nEMIS_TOLU_RES       TOLU    0     4  -1   2   kg/m2/s  toluene_residential_emission_mass_flux                                         kg_m-2_s-1\nEMIS_TOLU_AGR       TOLU    0     5  -1   2   kg/m2/s  toluene_agriculture_emission_mass_flux                                         kg_m-2_s-1\nEMIS_TOLU_BB        TOLU    0     8  -1   2   kg/m2/s  toluene_biomass_burning_emission_mass_flux                                     kg_m-2_s-1\nEMIS_TOLU_WST       TOLU    0     9  -1   2   kg/m2/s  toluene_waste_emission_mass_flux                                               kg_m-2_s-1\nEMIS_TOLU_SHIP      TOLU    0     10 -1   2   kg/m2/s  toluene_ship_emission_mass_flux                                                kg_m-2_s-1\n#\nEMIS_XYLE           XYLE   -1    -1  -1   2   kg/m2/s  xylene_total_emission_mass_flux                                                kg_m-2_s-1\nEMIS_XYLE_IND       XYLE    0     1  -1   2   kg/m2/s  xylene_industry_emission_mass_flux                                             kg_m-2_s-1\nEMIS_XYLE_POW       XYLE    0     2  -1   2   kg/m2/s  xylene_power_emission_mass_flux                                                kg_m-2_s-1\nEMIS_XYLE_TRA       XYLE    0     3  -1   2   kg/m2/s  xylene_transportation_emission_mass_flux                                       kg_m-2_s-1\nEMIS_XYLE_RES       XYLE    0     4  -1   2   kg/m2/s  xylene_residential_emission_mass_flux                                          kg_m-2_s-1\nEMIS_XYLE_AGR       XYLE    0     5  -1   2   kg/m2/s  xylene_agriculture_emission_mass_flux                                          kg_m-2_s-1\nEMIS_XYLE_BB        XYLE    0     8  -1   2   kg/m2/s  xylene_biomass_burning_emission_mass_flux                                      kg_m-2_s-1\nEMIS_XYLE_WST       XYLE    0     9  -1   2   kg/m2/s  xylene_waste_emission_mass_flux                                                kg_m-2_s-1\nEMIS_XYLE_SHIP      XYLE    0     10 -1   2   kg/m2/s  xylene_ship_emission_mass_flux                                                 kg_m-2_s-1\n#\nEMIS_VFEI_ACTA      ACTA    122  -1  -1   2   kg/m2/s  vfei_emissions_ACTA                                                            kg_m-2_s-1\nEMIS_VFEI_ACET      ACET    122  -1  -1   2   kg/m2/s  vfei_emissions_ACET                                                            kg_m-2_s-1\nEMIS_VFEI_ALD2      ALD2    122  -1  -1   2   kg/m2/s  vfei_emissions_ALD2                                                            kg_m-2_s-1\nEMIS_VFEI_ALK4      ALK4    122  -1  -1   2   kg/m2/s  vfei_emissions_ALK4                                                            kg_m-2_s-1\nEMIS_VFEI_BCPI      BCPI    122  -1  -1   2   kg/m2/s  vfei_emissions_BCPI                                                            kg_m-2_s-1\nEMIS_VFEI_BCPO      BCPO    122  -1  -1   2   kg/m2/s  vfei_emissions_BCPO                                                            kg_m-2_s-1\nEMIS_VFEI_BENZ      BENZ    122  -1  -1   2   kg/m2/s  vfei_emissions_BENZ                                                            kg_m-2_s-1\nEMIS_VFEI_C2H6      C2H6    122  -1  -1   2   kg/m2/s  vfei_emissions_C2H6                                                            kg_m-2_s-1\nEMIS_VFEI_C3H8      C3H8    122  -1  -1   2   kg/m2/s  vfei_emissions_C3H8                                                            kg_m-2_s-1\nEMIS_VFEI_CH2O      CH2O    122  -1  -1   2   kg/m2/s  vfei_emissions_CH2O                                                            kg_m-2_s-1\nEMIS_VFEI_CO        CO      122  -1  -1   2   kg/m2/s  vfei_emissions_CO                                                              kg_m-2_s-1\nEMIS_VFEI_DMS       DMS     122  -1  -1   2   kg/m2/s  vfei_emissions_DMS                                                             kg_m-2_s-1\nEMIS_VFEI_EOH       EOH     122  -1  -1   2   kg/m2/s  vfei_emissions_EOH                                                             kg_m-2_s-1\nEMIS_VFEI_GLYX      GLYX    122  -1  -1   2   kg/m2/s  vfei_emissions_GLYX                                                            kg_m-2_s-1\nEMIS_VFEI_HCl       HCl     122  -1  -1   2   kg/m2/s  vfei_emissions_HCl                                                             kg_m-2_s-1\nEMIS_VFEI_HNO2      HNO2    122  -1  -1   2   kg/m2/s  vfei_emissions_HNO2                                                            kg_m-2_s-1\nEMIS_VFEI_ISOP      ISOP    122  -1  -1   2   kg/m2/s  vfei_emissions_ISOP                                                            kg_m-2_s-1\nEMIS_VFEI_MACR      MACR    122  -1  -1   2   kg/m2/s  vfei_emissions_MACR                                                            kg_m-2_s-1\nEMIS_VFEI_MEK       MEK     122  -1  -1   2   kg/m2/s  vfei_emissions_MEK                                                             kg_m-2_s-1\nEMIS_VFEI_MGLY      MGLY    122  -1  -1   2   kg/m2/s  vfei_emissions_MGLY                                                            kg_m-2_s-1\nEMIS_VFEI_MOH       MOH     122  -1  -1   2   kg/m2/s  vfei_emissions_MOH                                                             kg_m-2_s-1\nEMIS_VFEI_MTPO      MTPO    122  -1  -1   2   kg/m2/s  vfei_emissions_MTPO                                                            kg_m-2_s-1\nEMIS_VFEI_MVK       MVK     122  -1  -1   2   kg/m2/s  vfei_emissions_MVK                                                             kg_m-2_s-1\nEMIS_VFEI_NH3       NH3     122  -1  -1   2   kg/m2/s  vfei_emissions_NH3                                                             kg_m-2_s-1\nEMIS_VFEI_NO        NO      122  -1  -1   2   kg/m2/s  vfei_emissions_NO                                                              kg_m-2_s-1\nEMIS_VFEI_OCPI      OCPI    122  -1  -1   2   kg/m2/s  vfei_emissions_OCPI                                                            kg_m-2_s-1\nEMIS_VFEI_OCPO      OCPO    122  -1  -1   2   kg/m2/s  vfei_emissions_OCPO                                                            kg_m-2_s-1\nEMIS_VFEI_PRPE      PRPE    122  -1  -1   2   kg/m2/s  vfei_emissions_PRPE                                                            kg_m-2_s-1\nEMIS_VFEI_SO2       SO2     122  -1  -1   2   kg/m2/s  vfei_emissions_SO2                                                             kg_m-2_s-1\nEMIS_VFEI_SOAP      SOAP    122  -1  -1   2   kg/m2/s  vfei_emissions_SOAP                                                            kg_m-2_s-1\nEMIS_VFEI_TOLU      TOLU    122  -1  -1   2   kg/m2/s  vfei_emissions_TOLU                                                            kg_m-2_s-1\nEMIS_VFEI_XYLE      XYLE    122  -1  -1   2   kg/m2/s  vfei_emissions_XYLE                                                            kg_m-2_s-1\n\n# 2D/3D ----------------------------------------------------------------------------------------------------------------------------------------\nEMIS_NO_LGHT3D      NO      103   -1  -1   3   kg/m2/s  nitric_oxide_lightning_emission_mass_flux                                     kg_m-2_s-1\n"
  },
  {
    "path": "run/GEOS/HISTORY_CFv2.rc",
    "content": "VERSION: 1\nEXPID:  OutputDir/CF2\nEXPDSC: GEOS-CF_version2\nEXPSRC: based_on_GEOSgcm-v10.23.0+GEOSChem-14.0.0\n\nCOLLECTIONS: 'htf_inst_15mn_glo_L1440x721_slv'\n             'chm_inst_1hr_glo_L1440x721_p23'\n\t     'met_inst_1hr_glo_L1440x721_p23'\n##\n#### For Science, to be shared ###\n             'mls_inst_1hr_glo_L1440x721_p28'\n             'chm_inst_1hr_glo_L1440x721_v72'\n \t     'met_inst_1hr_glo_L1440x721_v72'\n             'aqc_tavg_1hr_glo_L1440x721_slv'\n             'chm_tavg_1hr_glo_L1440x721_slv'\n             'ems_tavg_1hr_glo_L1440x721_slv' \n             'xgc_tavg_1hr_glo_L1440x721_slv'\n\t     'met_tavg_1hr_glo_L1440x721_slv'\n##\n#### To be used as boundary conditions ###\n             'bc-met_inst_1hr_usa_L659x301_v42'\n             'bc-chm_inst_1hr_usa_L659x301_v42'\n\n##\n#### Assimilation specific collections\n             'cda_tavg_6hr_glo_L1440x721_v72'\n             'cda_inst_1hr_glo_L1440x721_slv'\n             'cec_inst_3hr_glo_L576x361_v72'\n             'jdi_inst_1hr_glo_C360x360x6_v72'\n##\n#### Monitoring or R&D, not necessarily for public ###\n             'flx_tavg_24hr_glo_L1440x721_slv'\n             'dbg_tavg_3hr_glo_L1440x721_v72'\n             'trc_tavg_6hr_glo_L1440x721_p44'\n             'aer_tavg_24hr_glo_L1440x721_slv'\n\t     'aer_tavg_24hr_glo_L1440x721_p23'\n\t     'chm_tavg_24hr_glo_L1440x721_slv' \n             'chm_tavg_24hr_glo_L1440x721_p45' \n             'plf_tavg_24hr_glo_L1440x721_v72'\n             'car_inst_3hr_glo_L1440x721_v72'\n\n##\n#### Mission support collections ###\n             'sat_inst_1hr_glo_L1440x721_v72'\n             ::\n\n##################################################\n# The GRID_LABELS section must be after the main #\n#  list of COLLECTIONS for scripting purposes.   #\n##################################################\n\nGRID_LABELS: PC360x181-DC\n             PC180x91-DC\n             PC576x361-DC\n             PC1440x721-DC\n             PC659x301-DC\n::\n\nPC360x181-DC.GRID_TYPE: LatLon\nPC360x181-DC.IM_WORLD: 360\nPC360x181-DC.JM_WORLD: 181\nPC360x181-DC.POLE: PC\nPC360x181-DC.DATELINE: DC\nPC360x181-DC.LM: 72\n\nPC180x91-DC.GRID_TYPE: LatLon\nPC180x91-DC.IM_WORLD: 180\nPC180x91-DC.JM_WORLD: 91\nPC180x91-DC.POLE: PC\nPC180x91-DC.DATELINE: DC\nPC180x91-DC.LM: 72\n\nPC576x361-DC.GRID_TYPE: LatLon\nPC576x361-DC.IM_WORLD: 576\nPC576x361-DC.JM_WORLD: 361\nPC576x361-DC.POLE: PC\nPC576x361-DC.DATELINE: DC\nPC576x361-DC.LM: 72\n\nPC1440x721-DC.GRID_TYPE: LatLon\nPC1440x721-DC.IM_WORLD: 1440\nPC1440x721-DC.JM_WORLD: 721\nPC1440x721-DC.POLE: PC\nPC1440x721-DC.DATELINE: DC\nPC1440x721-DC.LM: 72\n\nPC659x301-DC.GRID_TYPE: LatLon\nPC659x301-DC.IM_WORLD: 659\nPC659x301-DC.JM_WORLD: 301\nPC659x301-DC.POLE: XY\nPC659x301-DC.DATELINE: XY\nPC659x301-DC.LM: 72\nPC659x301-DC.LON_RANGE: -208.625 -43.875\nPC659x301-DC.LAT_RANGE: 6.875 82.125\n\n  htf_inst_15mn_glo_L1440x721_slv.format:     'CFIO' ,\n  htf_inst_15mn_glo_L1440x721_slv.descr:      '2d,15-minute,Instantaneous,Single-Level, High Temporal Frequency Chemistry and Meteorology Fields',\n  htf_inst_15mn_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  htf_inst_15mn_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  htf_inst_15mn_glo_L1440x721_slv.mode:       'instantaneous',\n  htf_inst_15mn_glo_L1440x721_slv.grid_label:  PC1440x721-DC,\n  htf_inst_15mn_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  htf_inst_15mn_glo_L1440x721_slv.frequency:  001500 ,\n  htf_inst_15mn_glo_L1440x721_slv.duration:   001500 ,\n  htf_inst_15mn_glo_L1440x721_slv.ref_time:   000000 ,\n  htf_inst_15mn_glo_L1440x721_slv.levels:     72,\n  htf_inst_15mn_glo_L1440x721_slv.deflate:    1 ,\n  htf_inst_15mn_glo_L1440x721_slv.nbits:      10 ,\n  htf_inst_15mn_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  htf_inst_15mn_glo_L1440x721_slv.fields:   'SLP'   , 'DYN'     ,\n                                      'U'          , 'DYN'          ,\n                                      'V'          , 'DYN'          ,\n                                      'SpeciesConcVV_NO2'     , 'GEOSCHEMCHEM' , 'NO2' ,\n\t\t\t\t      'SpeciesConcVV_SO2'     , 'GEOSCHEMCHEM' , 'SO2' ,\n\t\t\t\t      'SpeciesConcVV_O3'      , 'GEOSCHEMCHEM' , 'O3'  ,\n\t\t\t\t      'SpeciesConcVV_CO'      , 'GEOSCHEMCHEM' , 'CO'  ,\n\t\t\t\t      'PM25'                , 'GOCART2G'     , 'PM25_RH35_GOCART' ,\n\t\t\t\t      'PM25'                , 'GEOSCHEMCHEM' , 'PM25_RH35_GCC'    ,\n\t\t\t\t      ::\n\n  chm_inst_1hr_glo_L1440x721_p23.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  chm_inst_1hr_glo_L1440x721_p23.archive:    '%c/Y%y4',\n  chm_inst_1hr_glo_L1440x721_p23.descr:      '3d,1-Hourly,Instantaneous,Pressure-Level,Chemistry Fields',\n  chm_inst_1hr_glo_L1440x721_p23.format:     'CFIO',\n  chm_inst_1hr_glo_L1440x721_p23.mode:\t      'instantaneous',\n  chm_inst_1hr_glo_L1440x721_p23.frequency:  010000,\n  chm_inst_1hr_glo_L1440x721_p23.duration:   010000,\n  chm_inst_1hr_glo_L1440x721_p23.ref_time:   000000,\n  chm_inst_1hr_glo_L1440x721_p23.deflate:    1 ,\n  chm_inst_1hr_glo_L1440x721_p23.nbits:      10 ,\n  chm_inst_1hr_glo_L1440x721_p23.chunksize:   1440 721 1 1 ,\n  chm_inst_1hr_glo_L1440x721_p23.grid_label: PC1440x721-DC,\n  chm_inst_1hr_glo_L1440x721_p23.regrid_method: 'BILINEAR',\n  chm_inst_1hr_glo_L1440x721_p23.vscale:   100.0 ,\n  chm_inst_1hr_glo_L1440x721_p23.vunit:      'hPa' ,\n  chm_inst_1hr_glo_L1440x721_p23.vvars:      'log(PLE)' , 'DYN' ,\n  chm_inst_1hr_glo_L1440x721_p23.levels:   1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 50 10,\n  chm_inst_1hr_glo_L1440x721_p23.fields:     'SpeciesConcVV_NO2'      , 'GEOSCHEMCHEM' , 'NO2'     ,\n                              'NOy'         , 'GEOSCHEMCHEM' , 'NOy'                ,\n                              'SpeciesConcVV_O3'       , 'GEOSCHEMCHEM' , 'O3'                 ,\n                              'SpeciesConcVV_SO2'      , 'GEOSCHEMCHEM' , 'SO2'                ,\n                              'SpeciesConcVV_CO'       , 'GEOSCHEMCHEM' , 'CO'                 ,\n                              'SpeciesConcVV_CH2O'     , 'GEOSCHEMCHEM' , 'HCHO'               ,\n                              'PM25'        , 'GEOSCHEMCHEM' , 'PM25_RH35_GCC'      ,\n                              'PM25ni'      , 'GEOSCHEMCHEM' , 'PM25ni_RH35_GCC'    ,\n#                             'PM25nh4'      , 'GEOSCHEMCHEM' , 'PM25nh4_RH35_GCC'    ,\n                              'PM25su'      , 'GEOSCHEMCHEM' , 'PM25su_RH35_GCC'    ,\n                              'PM25ss'      , 'GEOSCHEMCHEM' , 'PM25ss_RH35_GCC'    ,\n                              'PM25du'      , 'GEOSCHEMCHEM' , 'PM25du_RH35_GCC'    ,\n                              'PM25bc'      , 'GEOSCHEMCHEM' , 'PM25bc_RH35_GCC'    , \n                              'PM25oc'      , 'GEOSCHEMCHEM' , 'PM25oc_RH35_GCC'    ,\n                              'PM25soa'     , 'GEOSCHEMCHEM' , 'PM25soa_RH35_GCC'   , \n                              ::\n\n  met_inst_1hr_glo_L1440x721_p23.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  met_inst_1hr_glo_L1440x721_p23.archive:    '%c/Y%y4',\n  met_inst_1hr_glo_L1440x721_p23.mode:       'instantaneous' ,\n  met_inst_1hr_glo_L1440x721_p23.descr:      '3d,1-Hourly,Instantaneous,Pressure-Level,Meteorology Fields',\n  met_inst_1hr_glo_L1440x721_p23.format:     'CFIO',\n  met_inst_1hr_glo_L1440x721_p23.regrid_method: 'BILINEAR',\n  met_inst_1hr_glo_L1440x721_p23.grid_label: PC1440x721-DC,\n  met_inst_1hr_glo_L1440x721_p23.frequency:  010000 ,\n  met_inst_1hr_glo_L1440x721_p23.duration:   010000 ,\n  met_inst_1hr_glo_L1440x721_p23.ref_time:   000000 ,\n  met_inst_1hr_glo_L1440x721_p23.vscale:     100.0 ,\n  met_inst_1hr_glo_L1440x721_p23.deflate:    1 ,\n  met_inst_1hr_glo_L1440x721_p23.nbits:      10 ,\n  met_inst_1hr_glo_L1440x721_p23.chunksize:   1440 721 1 1 ,\n  met_inst_1hr_glo_L1440x721_p23.vunit:      'hPa' ,\n  met_inst_1hr_glo_L1440x721_p23.vvars:      'log(PLE)' , 'DYN' ,\n  met_inst_1hr_glo_L1440x721_p23.levels:   1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 50 10,\n  met_inst_1hr_glo_L1440x721_p23.fields:     'SLP'    , 'DYN'        ,\n                              'TH'     , 'DYN'        ,\n                              'T'      , 'DYN'        ,\n                              'U'      , 'DYN'        ,\n                              'V'      , 'DYN'        ,\n                              'OMEGA'  , 'DYN'        ,\n                              'Q'      , 'MOIST'      , \n                              'RH2'    , 'MOIST'      , 'RH'  ,\n                              'EPV'    , 'DYN'        ,\n                              'ZLE'    , 'DYN'        , 'H'   ,\n                              'PS'     , 'DYN'        ,\n                              'AIRDENS_DRYP'     , 'CHEMENV'       ,\n                              ::\n\n  mls_inst_1hr_glo_L1440x721_p28.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  mls_inst_1hr_glo_L1440x721_p28.archive:    '%c/Y%y4',\n  mls_inst_1hr_glo_L1440x721_p28.mode:       'instantaneous' ,\n  mls_inst_1hr_glo_L1440x721_p28.descr:      '3d,1-Hourly,Instantaneous,Pressure-Level,Meteorology and Chemistry Fields on reduced MLS pressure levels',\n  mls_inst_1hr_glo_L1440x721_p28.format:     'CFIO',\n  mls_inst_1hr_glo_L1440x721_p28.grid_label: PC1440x721-DC,\n  mls_inst_1hr_glo_L1440x721_p28.regrid_method: 'BILINEAR',\n  mls_inst_1hr_glo_L1440x721_p28.frequency:  010000 ,\n  mls_inst_1hr_glo_L1440x721_p28.duration:   010000 ,\n  mls_inst_1hr_glo_L1440x721_p28.ref_time:   000000 ,\n#  mls_inst_1hr_glo_L1440x721_p28.end_date:   0000000,\n#  mls_inst_1hr_glo_L1440x721_p28.end_time:   120000,\n  mls_inst_1hr_glo_L1440x721_p28.vscale:     100.0 ,\n  mls_inst_1hr_glo_L1440x721_p28.deflate:    1 ,\n  mls_inst_1hr_glo_L1440x721_p28.nbits:      10 ,\n  mls_inst_1hr_glo_L1440x721_p28.chunksize:   1440 721 1 1 ,\n  mls_inst_1hr_glo_L1440x721_p28.vunit:      'hPa' ,\n  mls_inst_1hr_glo_L1440x721_p28.vvars:      'log(PLE)' , 'DYN' ,\n  mls_inst_1hr_glo_L1440x721_p28.levels:   1000 681.3 464.2 316.2 261.0 215.4 146.8 100 68.1 46.4 31.6 21.5 14.7 10 6.81 4.64 3.16 2.15 1.47 1 0.68 0.46 0.32 0.215 0.147 0.1 0.046 0.0215,\n  mls_inst_1hr_glo_L1440x721_p28.fields:   'T'             , 'DYN'          ,\n                              'TH'          , 'DYN'          ,\n                              'ZLE'          , 'DYN'          , 'H'       ,\n                              'TROPP_BLENDED' , 'AGCM'   , 'TROPPB' ,\n                              'EPV'          , 'DYN'          ,\n                              'COSZ'         , 'SOLAR'        ,\n#\n                              'SpeciesConcVV_O3'        , 'GEOSCHEMCHEM' , 'O3'          ,\n                              'SpeciesConcVV_CH3Cl'     , 'GEOSCHEMCHEM' , 'CH3Cl'       ,\n                              'SpeciesConcVV_ClNO3'    , 'GEOSCHEMCHEM' , 'ClONO2'      ,\n                              'SpeciesConcVV_ClO'       , 'GEOSCHEMCHEM' , 'ClO'         ,\n                              'SpeciesConcVV_Cl2O2'     , 'GEOSCHEMCHEM' , 'Cl2O2'       ,\n                              'SpeciesConcVV_CO'        , 'GEOSCHEMCHEM' , 'CO'          ,\n                              'SpeciesConcVV_H2O'       , 'GEOSCHEMCHEM' , 'H2O'         ,\n                              'SpeciesConcVV_HCl'       , 'GEOSCHEMCHEM' , 'HCl'         ,\n                              'SpeciesConcVV_HNO3'      , 'GEOSCHEMCHEM' , 'HNO3'        ,\n                              'SpeciesConcVV_N2O'       , 'GEOSCHEMCHEM' , 'N2O'         ,\n                              'NOy'                   , 'GEOSCHEMCHEM' , 'NOy'         ,\n                              'SpeciesConcVV_NO2'       , 'GEOSCHEMCHEM' , 'NO2'         ,\n                              'SpeciesConcVV_NO'        , 'GEOSCHEMCHEM' , 'NO'          ,  \n                              'SpeciesConcVV_Br'        , 'GEOSCHEMCHEM' , 'Br'          ,\n                              'SpeciesConcVV_BrO'       , 'GEOSCHEMCHEM' , 'BrO'         ,\n                              'SpeciesConcVV_Cl'        , 'GEOSCHEMCHEM' , 'Cl'          ,\n                              'Bry'                   , 'GEOSCHEMCHEM' , 'Bry'         ,\n                              'SpeciesConcVV_CFC11'     , 'GEOSCHEMCHEM' , 'CFC11'       ,\n                              'Cly'                   , 'GEOSCHEMCHEM' , 'Cly'         ,\n                              'SpeciesConcVV_N2O5'      , 'GEOSCHEMCHEM' , 'N2O5'        ,\n                              'AerSurfAreaStratLiquid'           , 'GEOSCHEMCHEM' ,\n                              'AerSurfAreaPolarStratCloud'       , 'GEOSCHEMCHEM' ,\n                              'SpeciesConcVV_O'        , 'GEOSCHEMCHEM' , 'O3P'         ,\n                              'SpeciesConcVV_O1D'      , 'GEOSCHEMCHEM' , 'O1D'         ,\n                              ::\n\n\n###Add to forecast suite, remove end_date and end_time.\n  chm_inst_1hr_glo_L1440x721_v72.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  chm_inst_1hr_glo_L1440x721_v72.archive:    '%c/Y%y4',\n  chm_inst_1hr_glo_L1440x721_v72.descr:      '3d,1-Hourly,Instantaneous,Model-Level,Chemistry Fields',\n  chm_inst_1hr_glo_L1440x721_v72.format:     'CFIO',\n  chm_inst_1hr_glo_L1440x721_v72.mode:\t 'instantaneous',\n  chm_inst_1hr_glo_L1440x721_v72.frequency:  010000,\n  chm_inst_1hr_glo_L1440x721_v72.duration:   010000,\n  chm_inst_1hr_glo_L1440x721_v72.ref_time:   000000,\n  chm_inst_1hr_glo_L1440x721_v72.deflate:    1 ,\n  chm_inst_1hr_glo_L1440x721_v72.nbits:      10 ,\n  chm_inst_1hr_glo_L1440x721_v72.chunksize:   1440 721 1 1 ,\n  chm_inst_1hr_glo_L1440x721_v72.grid_label: PC1440x721-DC,\n  chm_inst_1hr_glo_L1440x721_v72.regrid_method: 'BILINEAR',\n  chm_inst_1hr_glo_L1440x721_v72.fields:     'SpeciesConcVV_NO2'      , 'GEOSCHEMCHEM' , 'NO2'         ,\n                              'SpeciesConcVV_NO'         , 'GEOSCHEMCHEM' , 'NO'            ,\n                              'SpeciesConcVV_O3'         , 'GEOSCHEMCHEM' , 'O3'            ,\n                              'SpeciesConcVV_SO2'        , 'GEOSCHEMCHEM' , 'SO2'           ,\n\t\t\t      'SpeciesConcVV_CO'         , 'GEOSCHEMCHEM' , 'CO'            ,\n                              'SpeciesConcVV_CH2O'       , 'GEOSCHEMCHEM' , 'HCHO'          ,\n                              'SpeciesConcVV_BrO'        , 'GEOSCHEMCHEM' , 'BrO'           ,\n                              'SpeciesConcVV_GLYX'       , 'GEOSCHEMCHEM' , 'GLYX'          ,\n                              'SpeciesConcVV_CH4'        , 'GEOSCHEMCHEM' , 'CH4'           ,\n                              'PM25'                   , 'GEOSCHEMCHEM' , 'PM25_RH35_GCC' ,\n                              'SpeciesConcVV_OH'         , 'GEOSCHEMCHEM' , 'OH'           ,\n                              'SpeciesConcVV_HO2'        , 'GEOSCHEMCHEM' , 'HO2' ,\n                              'OHreactivity'           , 'GEOSCHEMCHEM' , 'OH_reactivity' ,\n                              'NOy'                    , 'GEOSCHEMCHEM' , 'NOy'            ,  \n                              ::\n\n###Add to forecast suite, remove end_date and end_time.\n  met_inst_1hr_glo_L1440x721_v72.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  met_inst_1hr_glo_L1440x721_v72.archive:    '%c/Y%y4',\n  met_inst_1hr_glo_L1440x721_v72.descr:      '3d,1-Hourly,Instantaneous,Model-Level,Meteorology Fields',\n  met_inst_1hr_glo_L1440x721_v72.format:     'CFIO',\n  met_inst_1hr_glo_L1440x721_v72.mode:\t      'instantaneous',\n  met_inst_1hr_glo_L1440x721_v72.frequency:  010000,\n  met_inst_1hr_glo_L1440x721_v72.duration:   010000,\n  met_inst_1hr_glo_L1440x721_v72.ref_time:   000000,\n  met_inst_1hr_glo_L1440x721_v72.deflate:    1 ,\n  met_inst_1hr_glo_L1440x721_v72.nbits:      10 ,\n  met_inst_1hr_glo_L1440x721_v72.chunksize:   1440 721 1 1 ,\n  met_inst_1hr_glo_L1440x721_v72.grid_label: PC1440x721-DC,\n  met_inst_1hr_glo_L1440x721_v72.regrid_method: 'BILINEAR',\n  met_inst_1hr_glo_L1440x721_v72.fields:     'Q'          , 'MOIST'        ,\n                              'U'          , 'DYN'          ,\n                              'V'          , 'DYN'          ,\n                              'DELP'       , 'DYN'          ,\n                              'PS'         , 'DYN'          ,\n                              'ZL'         , 'DYN'          ,\n                              'PL'         , 'DYN'          ,\n                              'T'          , 'DYN'          ,\n                              'TH'         , 'DYN'          ,\n\t\t\t      'PHIS'       , 'AGCM'         ,\n                              'QCTOT'      , 'AGCM'         ,\n                              'OMEGA'         , 'DYN'        ,\n                              'EPV'           , 'DYN'        ,\n                              'AIRDENS_DRYP'  , 'CHEMENV'    ,\n                              'Met_AIRVOL'    , 'GEOSCHEMCHEM'  , 'AIRVOL_CHEM' ,\n                              'TROPP_BLENDED' , 'AGCM'   , 'TROPPB' ,\n                              'TROPP_THERMAL' , 'AGCM'   , 'TROPPT' ,\n                              'TROPP_EPV'     , 'AGCM'   , 'TROPPV' ,\n                              'ZPBL'          , 'TURBULENCE' , \n                              'PPBL'          , 'TURBULENCE' , \n                              ::\n\n  aqc_tavg_1hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  aqc_tavg_1hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  aqc_tavg_1hr_glo_L1440x721_slv.descr:      '2d,1-Hourly,Time-Averaged,Surface-Layer,Air Quality Concentrations',\n  aqc_tavg_1hr_glo_L1440x721_slv.format:     'CFIO',\n  aqc_tavg_1hr_glo_L1440x721_slv.mode:\t    'time-averaged',\n  aqc_tavg_1hr_glo_L1440x721_slv.frequency:  010000,\n  aqc_tavg_1hr_glo_L1440x721_slv.duration:   010000,\n  aqc_tavg_1hr_glo_L1440x721_slv.ref_time:   000000,\n  aqc_tavg_1hr_glo_L1440x721_slv.deflate:    1 ,\n  aqc_tavg_1hr_glo_L1440x721_slv.nbits:      10 ,\n  aqc_tavg_1hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  aqc_tavg_1hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  aqc_tavg_1hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  aqc_tavg_1hr_glo_L1440x721_slv.levels:     72,\n  aqc_tavg_1hr_glo_L1440x721_slv.fields:     'SpeciesConcVV_NO2'\t    , 'GEOSCHEMCHEM' , 'NO2'   ,\n                              'SpeciesConcVV_O3'       , 'GEOSCHEMCHEM' , 'O3'    ,\n                              'PM25'                 , 'GEOSCHEMCHEM' , 'PM25_RH35_GCC' ,\n                              'PM10'                 , 'GEOSCHEMCHEM' , 'PM10_RH35_GCC' ,\n                              'SpeciesConcVV_SO2'      , 'GEOSCHEMCHEM' , 'SO2'   ,\n                              'SpeciesConcVV_CO'       , 'GEOSCHEMCHEM' , 'CO'    ,\n                          ::\n\n  chm_tavg_1hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  chm_tavg_1hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  chm_tavg_1hr_glo_L1440x721_slv.descr:      '2d,1-Hourly,Time-Averaged,Surface-Layer,Chemistry Fields',\n  chm_tavg_1hr_glo_L1440x721_slv.format:     'CFIO',\n  chm_tavg_1hr_glo_L1440x721_slv.mode:\t      'time-averaged',\n  chm_tavg_1hr_glo_L1440x721_slv.frequency:  010000,\n  chm_tavg_1hr_glo_L1440x721_slv.duration:   010000,\n  chm_tavg_1hr_glo_L1440x721_slv.ref_time:   000000,\n  chm_tavg_1hr_glo_L1440x721_slv.deflate:    1 ,\n  chm_tavg_1hr_glo_L1440x721_slv.nbits:      10 ,\n  chm_tavg_1hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  chm_tavg_1hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  chm_tavg_1hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  chm_tavg_1hr_glo_L1440x721_slv.levels:     72,\n  chm_tavg_1hr_glo_L1440x721_slv.fields:     'SpeciesConcVV_NO2'\t    , 'GEOSCHEMCHEM' , 'NO2'   ,\n                              'SpeciesConcVV_NO'       , 'GEOSCHEMCHEM' , 'NO'    ,\n                              'NOy'                  , 'GEOSCHEMCHEM' , 'NOy'   ,\n                              'SpeciesConcVV_HNO3'     , 'GEOSCHEMCHEM' , 'HNO3'  ,\n                              'SpeciesConcVV_HNO4'     , 'GEOSCHEMCHEM' , 'HNO4'  ,\n                              'SpeciesConcVV_N2O5'     , 'GEOSCHEMCHEM' , 'N2O5'  ,\n                              'SpeciesConcVV_NH3'      , 'GEOSCHEMCHEM' , 'NH3'   ,\n                              'SpeciesConcVV_NH4'      , 'GEOSCHEMCHEM' , 'NH4'   ,\n                              'SpeciesConcVV_NIT'      , 'GEOSCHEMCHEM' , 'NIT'   ,\n                              'SpeciesConcVV_O3'       , 'GEOSCHEMCHEM' , 'O3'    ,\n                              'SpeciesConcVV_SO2'      , 'GEOSCHEMCHEM' , 'SO2'   ,\n                              'SpeciesConcVV_CO'       , 'GEOSCHEMCHEM' , 'CO'    ,\n                              'SpeciesConcVV_PAN'      , 'GEOSCHEMCHEM' , 'PAN'   ,\n                              'SpeciesConcVV_MEK'      , 'GEOSCHEMCHEM' , 'MEK'   ,\n                              'SpeciesConcVV_MVK'      , 'GEOSCHEMCHEM' , 'MVK'   ,\n                              'SpeciesConcVV_CH4'      , 'GEOSCHEMCHEM' , 'CH4'   ,\n                              'SpeciesConcVV_C2H6'     , 'GEOSCHEMCHEM' , 'C2H6'  ,\n                              'SpeciesConcVV_C3H8'     , 'GEOSCHEMCHEM' , 'C3H8'  ,\n                              'SpeciesConcVV_CH2O'     , 'GEOSCHEMCHEM' , 'HCHO'  ,\n                              'SpeciesConcVV_ALD2'     , 'GEOSCHEMCHEM' , 'ALD2'  ,\n                              'SpeciesConcVV_ALK4'     , 'GEOSCHEMCHEM' , 'ALK4'  ,\n                              'SpeciesConcVV_ISOP'     , 'GEOSCHEMCHEM' , 'ISOP'  ,\n                              'SpeciesConcVV_SOAS'     , 'GEOSCHEMCHEM' , 'SOAS'  ,\n                              'SpeciesConcVV_SOAP'     , 'GEOSCHEMCHEM' , 'SOAP'  ,\n                              'SpeciesConcVV_ACET'     , 'GEOSCHEMCHEM' , 'ACET'  ,\n                              'SpeciesConcVV_RCHO'     , 'GEOSCHEMCHEM' , 'RCHO'  ,\n                              'SpeciesConcVV_H2O2'     , 'GEOSCHEMCHEM' , 'H2O2'  ,\n                              'SpeciesConcVV_PRPE'     , 'GEOSCHEMCHEM' , 'PRPE'  ,\n                              'SpeciesConcVV_MACR'     , 'GEOSCHEMCHEM' , 'MACR'  ,\n                              'SpeciesConcVV_BENZ'     , 'GEOSCHEMCHEM' , 'BENZ'  ,\n                              'SpeciesConcVV_TOLU'     , 'GEOSCHEMCHEM' , 'TOLU'  ,\n                              'SpeciesConcVV_XYLE'     , 'GEOSCHEMCHEM' , 'XYLE'  ,\n                              'SpeciesConcVV_EOH'      , 'GEOSCHEMCHEM' , 'EOH'   ,\n                              'SpeciesConcVV_OCPI'     , 'GEOSCHEMCHEM' , 'OCPI'  ,\n                              'SpeciesConcVV_OCPO'     , 'GEOSCHEMCHEM' , 'OCPO'  ,\n                              'SpeciesConcVV_BCPI'     , 'GEOSCHEMCHEM' , 'BCPI'  ,\n                              'SpeciesConcVV_BCPO'     , 'GEOSCHEMCHEM' , 'BCPO'  ,\n                              'SpeciesConcVV_DSTbin1'  , 'GEOSCHEMCHEM' , 'DSTbin1'  ,\n                              'SpeciesConcVV_DSTbin2'  , 'GEOSCHEMCHEM' , 'DSTbin2' ,\n                              'SpeciesConcVV_DSTbin3'  , 'GEOSCHEMCHEM' , 'DSTbin3' ,\n                              'SpeciesConcVV_DSTbin4'  , 'GEOSCHEMCHEM' , 'DSTbin4' ,\n                              'SpeciesConcVV_DSTbin5'  , 'GEOSCHEMCHEM' , 'DSTbin5' ,\n                              'SpeciesConcVV_DSTbin6'  , 'GEOSCHEMCHEM' , 'DSTbin6' ,\n                              'SpeciesConcVV_DSTbin7'  , 'GEOSCHEMCHEM' , 'DSTbin7' ,\n                              'SpeciesConcVV_SALA'     , 'GEOSCHEMCHEM' , 'SALA'  ,\n                              'SpeciesConcVV_SALC'     , 'GEOSCHEMCHEM' , 'SALC'  ,\n                              'PM25'        , 'GEOSCHEMCHEM' , 'PM25_RH35_GCC' ,\n                              'PM25nit'     , 'GEOSCHEMCHEM' , 'PM25nit_RH35_GCC' ,\n                              'PM25nh4'     , 'GEOSCHEMCHEM' , 'PM25nh4_RH35_GCC' ,\n                              'PM25su'      , 'GEOSCHEMCHEM' , 'PM25su_RH35_GCC' ,\n                              'PM25ss'      , 'GEOSCHEMCHEM' , 'PM25ss_RH35_GCC' ,\n                              'PM25du'      , 'GEOSCHEMCHEM' , 'PM25du_RH35_GCC' ,\n                              'PM25bc'      , 'GEOSCHEMCHEM' , 'PM25bc_RH35_GCC' , \n                              'PM25oc'      , 'GEOSCHEMCHEM' , 'PM25oc_RH35_GCC' ,\n                              'PM25soa'     , 'GEOSCHEMCHEM' , 'PM25soa_RH35_GCC' , \n                              'PM25'        , 'GOCART2G'       , 'PM25_RH35_GOCART' , \n                              'PM10'        , 'GEOSCHEMCHEM' , 'PM10_RH35_GCC' ,\n                              ::\n\n###Updated for CEDS\n  ems_tavg_1hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  ems_tavg_1hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  ems_tavg_1hr_glo_L1440x721_slv.descr:      '2d,1-Hourly,Time-Averaged,Model-Level,Emission Fields',\n  ems_tavg_1hr_glo_L1440x721_slv.format:     'CFIO',\n  ems_tavg_1hr_glo_L1440x721_slv.mode:\t      'time-averaged',\n  ems_tavg_1hr_glo_L1440x721_slv.frequency:  010000,\n  ems_tavg_1hr_glo_L1440x721_slv.duration:   010000,\n  ems_tavg_1hr_glo_L1440x721_slv.ref_time:   000000,\n  ems_tavg_1hr_glo_L1440x721_slv.deflate:    1 ,\n  ems_tavg_1hr_glo_L1440x721_slv.nbits:      10 ,\n  ems_tavg_1hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  ems_tavg_1hr_glo_L1440x721_slv.levels:     72,\n  ems_tavg_1hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  ems_tavg_1hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  ems_tavg_1hr_glo_L1440x721_slv.fields:     'EMIS_NO'                   , 'GEOSCHEMCHEM' , \n                              'EMIS_NO_IND+EMIS_NO_POW+EMIS_NO_TRA+EMIS_NO_RES+EMIS_NO_WST+EMIS_NO_AIR+EMIS_NO_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_NO_ANTH' ,\n                              'EMIS_NO_AGR'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO_BB'                , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO_LGHT'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO_SHIP'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO_SOIL'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO2'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO2_IND+EMIS_NO2_POW+EMIS_NO2_TRA+EMIS_NO2_RES+EMIS_NO2_WST+EMIS_NO2_AIR+EMIS_NO2_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_NO2_ANTH' ,\n                              'EMIS_NO2_AGR'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO2_BB'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_NO2_SHIP'             , 'GEOSCHEMCHEM' ,\n                              'EMIS_HNO2'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_CO'                   , 'GEOSCHEMCHEM' ,\n                              'EMIS_CO_IND+EMIS_CO_POW+EMIS_CO_TRA+EMIS_CO_RES+EMIS_CO_WST+EMIS_CO_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_CO_ANTH' ,\n                              'EMIS_CO_AGR'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_CO_BB'                , 'GEOSCHEMCHEM' ,\n                              'EMIS_CO_BG'                , 'GEOSCHEMCHEM' ,\n                              'EMIS_CO_SHIP'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_NH3'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_NH3_IND+EMIS_NH3_POW+EMIS_NH3_TRA+EMIS_NH3_RES+EMIS_NH3_WST' , 'GEOSCHEMCHEM' , 'EMIS_NH3_ANTH' ,\n                              'EMIS_NH3_AGR'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_NH3_BB'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO2'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO2_IND+EMIS_SO2_POW+EMIS_SO2_TRA+EMIS_SO2_RES+EMIS_SO2_AIR+EMIS_SO2_SHIP'  , 'GEOSCHEMCHEM' , 'EMIS_SO2_ANTH' ,\n                              'EMIS_SO2_BB'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO2_SHIP'             , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO2_VER+EMIS_SO2_VDG' , 'GEOSCHEMCHEM' , 'EMIS_SO2_VOLC'    ,\n                              'EMIS_SO4'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO4_IND+EMIS_SO4_POW+EMIS_SO4_TRA+EMIS_SO4_RES+EMIS_SO4_AIR+EMIS_SO4_SHIP'  , 'GEOSCHEMCHEM' , 'EMIS_SO4_ANTH' ,\n                              'EMIS_SO4_BB'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO4_SHIP'             , 'GEOSCHEMCHEM' ,\n                              'EMIS_SO4_VER+EMIS_SO4_VDG' , 'GEOSCHEMCHEM' , 'EMIS_SO4_VOLC'    ,\n                              'EMIS_OCPI'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_OCPI_IND+EMIS_OCPI_POW+EMIS_OCPI_TRA+EMIS_OCPI_RES+EMIS_OCPI_AIR+EMIS_OCPI_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_OCPI_ANTH' ,\n                              'EMIS_OCPI_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_OCPO'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_OCPO_IND+EMIS_OCPO_POW+EMIS_OCPO_TRA+EMIS_OCPO_RES+EMIS_OCPO_AIR+EMIS_OCPO_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_OCPO_ANTH' ,\n                              'EMIS_OCPO_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_BCPI'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_BCPI_IND+EMIS_BCPI_POW+EMIS_BCPI_TRA+EMIS_BCPI_RES+EMIS_BCPI_AIR+EMIS_BCPI_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_BCPI_ANTH' ,\n                              'EMIS_BCPI_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_BCPO'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_BCPO_IND+EMIS_BCPO_POW+EMIS_BCPO_TRA+EMIS_BCPO_RES+EMIS_BCPI_AIR+EMIS_BCPI_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_BCPO_ANTH' ,\n                              'EMIS_BCPO_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_ISOP'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_ACET'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_ACET_IND+EMIS_ACET_POW+EMIS_ACET_TRA+EMIS_ACET_RES' , 'GEOSCHEMCHEM' , 'EMIS_ACET_ANTH' ,\n                              'EMIS_ACET_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_ACET_OC'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_ACET_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_PRPE'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_PRPE_IND+EMIS_PRPE_POW+EMIS_PRPE_TRA+EMIS_PRPE_RES+EMIS_PRPE_AIR+EMIS_PRPE_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_PRPE_ANTH' ,\n                              'EMIS_PRPE_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_PRPE_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_ALK4'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_ALK4_IND+EMIS_ALK4_POW+EMIS_ALK4_TRA+EMIS_ALK4_RES+EMIS_ALK4_AIR+EMIS_ALK4_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_ALK4_ANTH' ,\n                              'EMIS_ALK4_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_MEK'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_MEK_IND+EMIS_MEK_POW+EMIS_MEK_TRA+EMIS_MEK_RES'   , 'GEOSCHEMCHEM' , 'EMIS_MEK_ANTH' ,\n                              'EMIS_MEK_BB'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_ALD2'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_ALD2_IND+EMIS_ALD2_POW+EMIS_ALD2_TRA+EMIS_ALD2_RES'  , 'GEOSCHEMCHEM' , 'EMIS_ALD2_ANTH' ,\n                              'EMIS_ALD2_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_ALD2_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_ALD2_OC'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_C3H8'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_C3H8_IND+EMIS_C3H8_POW+EMIS_C3H8_TRA+EMIS_C3H8_RES+EMIS_C3H8_AIR+EMIS_C3H8_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_C3H8_ANTH' ,\n                              'EMIS_C3H8_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_C2H6'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_C2H6_IND+EMIS_C2H6_POW+EMIS_C2H6_TRA+EMIS_C2H6_RES+EMIS_C2H6_AIR+EMIS_C2H6_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_C2H6_ANTH' ,\n                              'EMIS_C2H6_BB'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_CH2O'                 , 'GEOSCHEMCHEM' , 'EMIS_HCHO' ,\n                              'EMIS_CH2O_IND+EMIS_CH2O_POW+EMIS_CH2O_TRA+EMIS_CH2O_RES+EMIS_CH2O_AIR+EMIS_CH2O_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_HCHO_ANTH' ,\n                              'EMIS_CH2O_BB'              , 'GEOSCHEMCHEM' , 'EMIS_HCHO_BB' ,\n                              'EMIS_BENZ'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_TOLU'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_XYLE'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_EOH'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_EOH_IND+EMIS_EOH_POW+EMIS_EOH_TRA+EMIS_EOH_RES' , 'GEOSCHEMCHEM' , 'EMIS_EOH_ANTH' ,\n                              'EMIS_EOH_BG'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_HCOOH'                , 'GEOSCHEMCHEM' ,\n                              'EMIS_SOAP'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_SOAP_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_SOAP_IND+EMIS_SOAP_POW+EMIS_SOAP_TRA+EMIS_SOAP_RES+EMIS_SOAP_AIR+EMIS_SOAP_SHIP' , 'GEOSCHEMCHEM' , 'EMIS_SOAP_ANTH' ,\n                              'EMIS_SOAS'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_SOAS_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_SALA'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_SALC'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin1'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin2'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin3'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin4'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin5'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin6',             , 'GEOSCHEMCHEM' ,\n                              'EMIS_DSTbin7',             , 'GEOSCHEMCHEM' ,\n                              'EMIS_DMS'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_HOI'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_I2'                   , 'GEOSCHEMCHEM' ,\n                              'EMIS_CH3I'                 , 'GEOSCHEMCHEM' ,\n                              'EMIS_CH2I2'                , 'GEOSCHEMCHEM' ,\n                              'EMIS_CH2ICl'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_CH2IBr'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_CHBr3'                , 'GEOSCHEMCHEM' ,\n                              'EMIS_CH2Br2'               , 'GEOSCHEMCHEM' ,\n                              'EMIS_pFe'                  , 'GEOSCHEMCHEM' ,\n                              'EMIS_LIMO_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_SESQ_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_MTPA_BG'              , 'GEOSCHEMCHEM' ,\n                              'EMIS_MTPO_BG'              , 'GEOSCHEMCHEM' ,\n                              'LFR_GCC'                   , 'MOIST'        , 'FLASHRATE'        ,\n                              ::\n\n  xgc_tavg_1hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  xgc_tavg_1hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  xgc_tavg_1hr_glo_L1440x721_slv.descr:      '2d,1-Hourly,Time-Averaged,Column GEOS-Chem Fields',\n  xgc_tavg_1hr_glo_L1440x721_slv.format:     'CFIO',\n  xgc_tavg_1hr_glo_L1440x721_slv.mode:\t  'time-averaged',\n  xgc_tavg_1hr_glo_L1440x721_slv.frequency:  010000,\n  xgc_tavg_1hr_glo_L1440x721_slv.duration:   010000,\n  xgc_tavg_1hr_glo_L1440x721_slv.ref_time:   000000,\n  xgc_tavg_1hr_glo_L1440x721_slv.deflate:    1 ,\n  xgc_tavg_1hr_glo_L1440x721_slv.nbits:      10 ,\n  xgc_tavg_1hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  xgc_tavg_1hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  xgc_tavg_1hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  xgc_tavg_1hr_glo_L1440x721_slv.levels:     72,\n  xgc_tavg_1hr_glo_L1440x721_slv.fields:     'GCCTO3'          , 'GEOSCHEMCHEM' , 'TotCol_O3'       ,\n                              'GCCTTO3'         , 'GEOSCHEMCHEM' , 'TropCol_O3' ,\n                              'PblCol_O3'       , 'GEOSCHEMCHEM' , 'PBLCol_O3' ,\n                              'TotCol_BrO'      , 'GEOSCHEMCHEM' , 'TotCol_BrO' , \n                              'TropCol_BrO'     , 'GEOSCHEMCHEM' , 'TropCol_BrO' ,\n                              'TotCol_IO'       , 'GEOSCHEMCHEM' , 'TotCol_IO' , \n                              'TropCol_IO'      , 'GEOSCHEMCHEM' , 'TropCol_IO' ,\n                              'TotCol_NO2'      , 'GEOSCHEMCHEM' , 'TotCol_NO2' , \n                              'TropCol_NO2'     , 'GEOSCHEMCHEM' , 'TropCol_NO2' ,\n                              'PblCol_NO2'      , 'GEOSCHEMCHEM' , 'PBLCol_NO2' ,\n                              'TotCol_SO2'      , 'GEOSCHEMCHEM' , 'TotCol_SO2' , \n                              'TropCol_SO2'     , 'GEOSCHEMCHEM' , 'TropCol_SO2' ,\n                              'PblCol_SO2'      , 'GEOSCHEMCHEM' , 'PBLCol_SO2' ,\n                              'TotCol_CO'       , 'GEOSCHEMCHEM' , 'TotCol_CO' , \n                              'TropCol_CO'      , 'GEOSCHEMCHEM' , 'TropCol_CO' ,\n#No need for stratospheric column for following VOCs:\n                              'TropCol_CH2O'    , 'GEOSCHEMCHEM' , 'TropCol_HCHO' ,\n                              'TropCol_GLYX'    , 'GEOSCHEMCHEM' , 'TropCol_GLYX' ,\n                              'TropCol_ISOP'    , 'GEOSCHEMCHEM' , 'TropCol_ISOP' ,\n                              'TropCol_PAN'     , 'GEOSCHEMCHEM' , 'TropCol_PAN' ,\n                              'TropCol_NH3'     , 'GEOSCHEMCHEM' , 'TropCol_NH3' ,\n                              'TropCol_HCOOH'   , 'GEOSCHEMCHEM' , 'TropCol_HCOOH' ,\n                              'COSZ'            , 'SOLAR'        ,\n                              'AODHygWL1_SO4'   , 'GEOSCHEMCHEM', 'AOD550_SULFATE' ,\n                              'AODHygWL1_BCPI   ','GEOSCHEMCHEM', 'AOD550_BC' , #here BCPI includes BCPO\n                              'AODHygWL1_OCPI   ','GEOSCHEMCHEM', 'AOD550_OC' , #and OCPI includes OCPO\n                              'AODHygWL1_SALA   ','GEOSCHEMCHEM', 'AOD550_SALA' ,\n                              'AODHygWL1_SALC   ','GEOSCHEMCHEM', 'AOD550_SALC' , \n                              'AODDust          ','GEOSCHEMCHEM', 'AOD550_DUST' ,\n                              'AODDustWL1_bin1  ','GEOSCHEMCHEM', 'AOD550_DST1' ,\n                              'AODDustWL1_bin2  ','GEOSCHEMCHEM', 'AOD550_DST2' ,\n                              'AODDustWL1_bin3  ','GEOSCHEMCHEM', 'AOD550_DST3' ,\n                              'AODDustWL1_bin4  ','GEOSCHEMCHEM', 'AOD550_DST4' ,\n                              'AODDustWL1_bin5  ','GEOSCHEMCHEM', 'AOD550_DST5' ,\n                              'AODDustWL1_bin6  ','GEOSCHEMCHEM', 'AOD550_DST6' ,\n                              'AODDustWL1_bin7  ','GEOSCHEMCHEM', 'AOD550_DST7' ,\n#                             'AOD550_CLOUD'    , 'GEOSCHEMCHEM' ,\n                              ::\n\n  flx_tavg_24hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  flx_tavg_24hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  flx_tavg_24hr_glo_L1440x721_slv.descr:      '2d,24-Hourly,Time-Averaged,Surface-Layer,GEOS-Chem Dry and Wet Deposition Flux Fields',\n  flx_tavg_24hr_glo_L1440x721_slv.format:     'CFIO',\n  flx_tavg_24hr_glo_L1440x721_slv.mode:       'time-averaged',\n  flx_tavg_24hr_glo_L1440x721_slv.frequency:  240000,\n#  flx_tavg_24hr_glo_L1440x721_slv.duration:   240000,\n  flx_tavg_24hr_glo_L1440x721_slv.ref_time:   210000,\n  flx_tavg_24hr_glo_L1440x721_slv.deflate:    1 ,\n  flx_tavg_24hr_glo_L1440x721_slv.nbits:      10 ,\n  flx_tavg_24hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  flx_tavg_24hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  flx_tavg_24hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  flx_tavg_24hr_glo_L1440x721_slv.levels:     72,\n  flx_tavg_24hr_glo_L1440x721_slv.fields:     'DryDep_O3'       , 'GEOSCHEMCHEM' , 'DRYDEPFLX_O3'  ,\n                              'DryDep_NO2'      , 'GEOSCHEMCHEM' , 'DRYDEPFLX_NO2'  ,\n                              'DryDep_HNO3'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_HNO3'  ,\n                              'DryDep_NH4'      , 'GEOSCHEMCHEM' , 'DRYDEPFLX_NH4'  ,\n                              'DryDep_NH3'      , 'GEOSCHEMCHEM' , 'DRYDEPFLX_NH3'  ,\n                              'DryDep_NIT'      , 'GEOSCHEMCHEM' , 'DRYDEPFLX_NIT'  ,\n                              'DryDep_BCPO'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_BCPO'  ,\n                              'DryDep_BCPI'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_BCPI'  ,\n                              'DryDep_OCPO'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_OCPO'  ,\n                              'DryDep_OCPI'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_OCPI'  ,\n                              'DryDep_DST1'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_DST1'  ,\n                              'DryDep_DST2'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_DST2'  ,\n                              'DryDep_DST3'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_DST3'  ,\n                              'DryDep_DST4'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_DST4'  ,\n                              'DryDep_SALA'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_SALA'  ,\n                              'DryDep_SALC'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_SALC'  ,\n                              'DryDep_CH2O'     , 'GEOSCHEMCHEM' , 'DRYDEPFLX_HCHO'  ,\n                              'WetLossLS_SO2'  , 'GEOSCHEMCHEM' , 'WETDEPFLX_SO2'   ,\n                              'WetLossLS_SO4'  , 'GEOSCHEMCHEM' , 'WETDEPFLX_SO4'   ,\n                              'WetLossLS_SALA' , 'GEOSCHEMCHEM' , 'WETDEPFLX_SALA'  ,\n                              'WetLossLS_SALC' , 'GEOSCHEMCHEM' , 'WETDEPFLX_SALC'  ,\n                              'WetLossLS_HNO3' , 'GEOSCHEMCHEM' , 'WETDEPFLX_HNO3'  ,\n                              'WetLossLS_NH4'  , 'GEOSCHEMCHEM' , 'WETDEPFLX_NH4'   ,\n                              'WetLossLS_NH3'  , 'GEOSCHEMCHEM' , 'WETDEPFLX_NH3'   ,\n                              'WetLossLS_NIT'  , 'GEOSCHEMCHEM' , 'WETDEPFLX_NIT'   ,\n                              'WetLossLS_BCPO' , 'GEOSCHEMCHEM' , 'WETDEPFLX_BCPO'  ,\n                              'WetLossLS_BCPI' , 'GEOSCHEMCHEM' , 'WETDEPFLX_BCPI'  ,\n                              'WetLossLS_OCPO' , 'GEOSCHEMCHEM' , 'WETDEPFLX_OCPO'  ,\n                              'WetLossLS_OCPI' , 'GEOSCHEMCHEM' , 'WETDEPFLX_OCPI'  ,\n                              'WetLossLS_DST1' , 'GEOSCHEMCHEM' , 'WETDEPFLX_DST1'  ,\n                              'WetLossLS_DST2' , 'GEOSCHEMCHEM' , 'WETDEPFLX_DST2'  ,\n                              'WetLossLS_DST3' , 'GEOSCHEMCHEM' , 'WETDEPFLX_DST3'  ,\n                              'WetLossLS_DST4' , 'GEOSCHEMCHEM' , 'WETDEPFLX_DST4'  ,\n                              'WetLossLS_CH2O' , 'GEOSCHEMCHEM' , 'WETDEPFLX_HCHO'  ,\n                              'GCC_ConvScav_GF_SO2' , 'MOIST'  , 'WETDEPFLX_CONV_SO2' ,\n                              'GCC_ConvScav_GF_SO4' , 'MOIST'  , 'WETDEPFLX_CONV_SO4' ,\n                              'GCC_ConvScav_GF_SALA' , 'MOIST'  , 'WETDEPFLX_CONV_SALA' ,\n                              'GCC_ConvScav_GF_SALC' , 'MOIST'  , 'WETDEPFLX_CONV_SALC' ,\n                              'GCC_ConvScav_GF_HNO3' , 'MOIST'  , 'WETDEPFLX_CONV_HNO3' ,\n                              'GCC_ConvScav_GF_NH4' , 'MOIST'  , 'WETDEPFLX_CONV_NH4' ,\n                              'GCC_ConvScav_GF_NH3' , 'MOIST'  , 'WETDEPFLX_CONV_NH3' ,\n                              'GCC_ConvScav_GF_NIT' , 'MOIST'  , 'WETDEPFLX_CONV_NIT' ,\n                              'GCC_ConvScav_GF_BCPO' , 'MOIST'  , 'WETDEPFLX_CONV_BCPO' ,\n                              'GCC_ConvScav_GF_BCPI' , 'MOIST'  , 'WETDEPFLX_CONV_BCPI' ,\n                              'GCC_ConvScav_GF_OCPO' , 'MOIST'  , 'WETDEPFLX_CONV_OCPO' ,\n                              'GCC_ConvScav_GF_OCPI' , 'MOIST'  , 'WETDEPFLX_CONV_OCPI' ,\n                              'GCC_ConvScav_GF_DST1' , 'MOIST'  , 'WETDEPFLX_CONV_DST1' ,\n                              'GCC_ConvScav_GF_DST2' , 'MOIST'  , 'WETDEPFLX_CONV_DST2' ,\n                              'GCC_ConvScav_GF_DST3' , 'MOIST'  , 'WETDEPFLX_CONV_DST3' ,\n                              'GCC_ConvScav_GF_DST4' , 'MOIST'  , 'WETDEPFLX_CONV_DST4' ,\n                              'GCC_ConvScav_GF_CH2O' , 'MOIST'  , 'WETDEPFLX_CONV_CH2O' ,\n                               ::\n\n  met_tavg_1hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  met_tavg_1hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  met_tavg_1hr_glo_L1440x721_slv.descr:      '2d,1-Hourly,Time-Averaged,Surface-Layer,Meteorological Fields',\n  met_tavg_1hr_glo_L1440x721_slv.format:     'CFIO',\n  met_tavg_1hr_glo_L1440x721_slv.mode:       'time-averaged',\n  met_tavg_1hr_glo_L1440x721_slv.frequency:  010000,\n  met_tavg_1hr_glo_L1440x721_slv.duration:   010000,\n  met_tavg_1hr_glo_L1440x721_slv.ref_time:   000000,\n  met_tavg_1hr_glo_L1440x721_slv.deflate:    1 ,\n  met_tavg_1hr_glo_L1440x721_slv.nbits:      10 ,\n  met_tavg_1hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  met_tavg_1hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  met_tavg_1hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  met_tavg_1hr_glo_L1440x721_slv.levels:     72,\n  met_tavg_1hr_glo_L1440x721_slv.fields:     'U'     , 'DYN'        ,\n                              'V'     , 'DYN'        ,\n                              'T'     , 'DYN'        ,\n                              'TS'    , 'SURFACE'    ,\n                              'Q'     , 'MOIST'      ,\n                              'CLDTT' , 'SOLAR'      ,\n                              'PS'    , 'DYN'        ,\n                              'RH2'   , 'MOIST'      , 'RH' ,\n                              'SLP'   , 'DYN'        ,\n                              'PHIS'  , 'AGCM'       ,\n                              'TPREC' , 'MOIST'      ,\n                              'ZL'    , 'DYN'        ,\n                              'ZPBL'  , 'TURBULENCE' ,\n                              'TROPP_BLENDED' , 'AGCM'       , 'TROPPB' ,\n                              ::\n\n  cda_tavg_6hr_glo_L1440x721_v72.template:  '%y4%m2%d2_%h2%n2z.nc4',\n  cda_tavg_6hr_glo_L1440x721_v72.archive:   '%c/Y%y4',\n  cda_tavg_6hr_glo_L1440x721_v72.format:    'CFIO',\n  cda_tavg_6hr_glo_L1440x721_v72.deflate:    1,\n  cda_tavg_6hr_glo_L1440x721_v72.nbits:      10 ,\n  cda_tavg_6hr_glo_L1440x721_v72.chunksize:   1440 721 1 1 ,\n  cda_tavg_6hr_glo_L1440x721_v72.mode:      'time-averaged' ,\n  cda_tavg_6hr_glo_L1440x721_v72.descr:     '3d,6-hourly,Time-averaged, model-level, assimilation diagnostics',\n  cda_tavg_6hr_glo_L1440x721_v72.frequency:  060000,\n  cda_tavg_6hr_glo_L1440x721_v72.ref_time:   210000,\n  cda_tavg_6hr_glo_L1440x721_v72.regrid_method:    'BILINEAR',\n  cda_tavg_6hr_glo_L1440x721_v72.grid_label: PC1440x721-DC,\n  cda_tavg_6hr_glo_L1440x721_v72.fields:   'AnaInc_O3'         , 'GEOSCHEMCHEM'  ,\n                                           'AnaMaskSum_O3'     , 'GEOSCHEMCHEM'  ,\n                                           'AnaInc_NO2'        , 'GEOSCHEMCHEM'  ,\n                                           'AnaMaskSum_NO2'    , 'GEOSCHEMCHEM'  ,\n                                           'AnaInc_SO2'        , 'GEOSCHEMCHEM'  ,\n                                           'AnaMaskSum_SO2'    , 'GEOSCHEMCHEM'  ,\n                                            ::\n\n  cda_inst_1hr_glo_L1440x721_slv.template:  '%y4%m2%d2_%h2%n2z.nc4',\n  cda_inst_1hr_glo_L1440x721_slv.archive:   '%c/Y%y4',\n  cda_inst_1hr_glo_L1440x721_slv.format:    'CFIO',\n  cda_inst_1hr_glo_L1440x721_slv.deflate:    1,\n  cda_inst_1hr_glo_L1440x721_slv.nbits:      10 ,\n  cda_inst_1hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  cda_inst_1hr_glo_L1440x721_slv.mode:      'instantaneous' ,\n  cda_inst_1hr_glo_L1440x721_slv.descr:     '2d,1-Hourly,Instantaneous,single-level, column increments',\n  cda_inst_1hr_glo_L1440x721_slv.frequency:  010000,\n  cda_inst_1hr_glo_L1440x721_slv.ref_time:   210000,\n  cda_inst_1hr_glo_L1440x721_slv.regrid_method:    'BILINEAR',\n  cda_inst_1hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  cda_inst_1hr_glo_L1440x721_slv.fields:   'AnaIncCol_O3'         , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncColTrop_O3'     , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncColPbl_O3'      , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncCol_NO2'        , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncColTrop_NO2'    , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncColPbl_NO2'     , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncCol_SO2'        , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncColTrop_SO2'    , 'GEOSCHEMCHEM'  ,\n                                           'AnaIncColPbl_SO2'     , 'GEOSCHEMCHEM'  ,\n                                            ::\n\n  cec_inst_3hr_glo_L576x361_v72.template:  '%y4%m2%d2_%h2%n2z.nc4',\n  cec_inst_3hr_glo_L576x361_v72.archive:   '%c/Y%y4',\n  cec_inst_3hr_glo_L576x361_v72.format:    'CFIO',\n  cec_inst_3hr_glo_L576x361_v72.mode:      'instantaneous' ,\n  cec_inst_3hr_glo_L576x361_v72.descr:      '3d,3-Hourly,Instantaneous,model-level,cbkg.eta.corrector',\n  cec_inst_3hr_glo_L576x361_v72.frequency:  030000,\n  cec_inst_3hr_glo_L576x361_v72.ref_time:   030000,\n  cec_inst_3hr_glo_L576x361_v72.grid_label: PC576x361-DC,\n  cec_inst_3hr_glo_L576x361_v72.fields:     'PHIS'            , 'AGCM'         , 'phis'       ,\n                                            'PS'              , 'DYN'          , 'ps'         ,\n                                            'DELP'            , 'DYN'          , 'delp'       ,\n                                            'Q'               , 'MOIST'        , 'sphu'       ,\n                                            'GCC_O3PPMV'      , 'GEOSCHEMCHEM' , 'ozone'      ,\n                                            'SpeciesConcVV_SO2' , 'GEOSCHEMCHEM' , 'SO2g'       ,\n                                            'SpeciesConcVV_NO2' , 'GEOSCHEMCHEM' , 'NO2'        ,\n                                            'Met_PBLTOPL'     , 'GEOSCHEMCHEM' , 'PBLTOPL'    ,\n                                            'Met_TropLev'     , 'GEOSCHEMCHEM' , 'TROPLEV'    ,\n                                            ::\n\n# Cube-sphere collection for JEDI \n\n  jdi_inst_1hr_glo_C360x360x6_v72.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  jdi_inst_1hr_glo_C360x360x6_v72.archive:    '%c/Y%y4',\n  jdi_inst_1hr_glo_C360x360x6_v72.descr:      '3d,3-Hourly,Instantaneous,model-level,Chemistry and Meteorology Fields on native cube-sphere grid' ,\n  jdi_inst_1hr_glo_C360x360x6_v72.format:     'CFIO' ,\n  jdi_inst_1hr_glo_C360x360x6_v72.mode:       'instantaneous' ,\n  jdi_inst_1hr_glo_C360x360x6_v72.deflate:    1  ,\n# jdi_inst_1hr_glo_C360x360x6_v72.nbits:      10 ,\n  jdi_inst_1hr_glo_C360x360x6_v72.frequency:  010000 ,\n  jdi_inst_1hr_glo_C360x360x6_v72.duration:   010000 ,\n  jdi_inst_1hr_glo_C360x360x6_v72.ref_time:   010000,\n  jdi_inst_1hr_glo_C360x360x6_v72.fields:   'SpeciesConcVV_O3'   , 'GEOSCHEMCHEM' , 'O3'      ,\n                                            'SpeciesConcVV_NO'   , 'GEOSCHEMCHEM' , 'NO'      ,\n                                            'SpeciesConcVV_NO2'  , 'GEOSCHEMCHEM' , 'NO2'     ,\n                                            'SpeciesConcVV_CO'   , 'GEOSCHEMCHEM' , 'CO'      ,\n                                            'DELP'             , 'DYN'          ,\n                                            'T'                , 'DYN'          ,\n                                            'PS'               , 'DYN'          ,\n                                            'Q'                , 'MOIST'        ,\n                                             ::  \n  \n  bc-met_inst_1hr_usa_L659x301_v42.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  bc-met_inst_1hr_usa_L659x301_v42.archive:    '%c/Y%y4' ,\n  bc-met_inst_1hr_usa_L659x301_v42.mode:       'instantaneous' ,\n  bc-met_inst_1hr_usa_L659x301_v42.format:     'CFIO',\n  bc-met_inst_1hr_usa_L659x301_v42.descr:      '3d,1-Hourly,Instantaneous,Model-Level,Chemistry and Meteorology Fields for chemical lateral boundary conditions for regional US-focused models involved in the HAQAST Tiger Team',\n  bc-met_inst_1hr_usa_L659x301_v42.grid_label:  PC659x301-DC,\n  bc-met_inst_1hr_usa_L659x301_v42.regrid_method: 'BILINEAR',\n  bc-met_inst_1hr_usa_L659x301_v42.deflate:    1 , \n  bc-met_inst_1hr_usa_L659x301_v42.nbits:      10 ,\n  bc-met_inst_1hr_usa_L659x301_v42.chunksize:   401 301 1 1 ,\n  bc-met_inst_1hr_usa_L659x301_v42.frequency:  010000 ,\n  bc-met_inst_1hr_usa_L659x301_v42.duration:   010000 ,\n  bc-met_inst_1hr_usa_L659x301_v42.ref_time:   000000 ,\n#  bc-met_inst_1hr_usa_L659x301_v42.end_date:   0000000,\n#  bc-met_inst_1hr_usa_L659x301_v42.end_time:   120000 , \n  bc-met_inst_1hr_usa_L659x301_v42.levels:    31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72,\n#Barron uses PS, DELP, ZL, AIRDENS\n#This met collection has minimal met variables but not as slim as the four Barron uses.\n  bc-met_inst_1hr_usa_L659x301_v42.fields:     'U'          , 'DYN'       ,\n                              'V'          , 'DYN'       ,\n                              'T'          , 'DYN'       ,\n                              'Q'          , 'MOIST'     ,\n                              'TH'         , 'DYN'       ,\n                              'DELP'       , 'DYN'       ,\n                              'PHIS'       , 'AGCM'      ,\n                              'PS'         , 'DYN'       ,\n                              'AIRDENS'    , 'CHEMENV'   ,\n                              'ZL'         , 'DYN'       , \n                              'RH2'        , 'MOIST'     , 'RH' ,\n                              'SLP'        , 'DYN'       ,\n                              'TROPP_BLENDED' , 'AGCM'   , 'TROPPB' ,\n                               ::\n\n  bc-chm_inst_1hr_usa_L659x301_v42.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  bc-chm_inst_1hr_usa_L659x301_v42.archive:    '%c/Y%y4' ,\n  bc-chm_inst_1hr_usa_L659x301_v42.mode:       'instantaneous' ,\n  bc-chm_inst_1hr_usa_L659x301_v42.format:     'CFIO',\n  bc-chm_inst_1hr_usa_L659x301_v42.descr:      '3d,1-Hourly,Instantaneous,Model-Level,Chemistry and Meteorology Fields for chemical lateral boundary conditions for regional US-focused models involved in the HAQAST Tiger Team',\n  bc-chm_inst_1hr_usa_L659x301_v42.grid_label: PC659x301-DC,\n  bc-chm_inst_1hr_usa_L659x301_v42.regrid_method: 'BILINEAR',\n  bc-chm_inst_1hr_usa_L659x301_v42.deflate:    1 , \n  bc-chm_inst_1hr_usa_L659x301_v42.nbits:      10 ,\n  bc-chm_inst_1hr_usa_L659x301_v42.chunksize:  401 301 1 1 ,\n  bc-chm_inst_1hr_usa_L659x301_v42.frequency:  010000 ,\n  bc-chm_inst_1hr_usa_L659x301_v42.duration:   010000 ,\n  bc-chm_inst_1hr_usa_L659x301_v42.ref_time:   000000 ,\n#  bc-chm_inst_1hr_usa_L659x301_v42.end_date:   0000000,\n#  bc-chm_inst_1hr_usa_L659x301_v42.end_time:   120000 , \n  bc-chm_inst_1hr_usa_L659x301_v42.levels:    31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72,\n  bc-chm_inst_1hr_usa_L659x301_v42.fields:     'SpeciesConcVV_ACET'     , 'GEOSCHEMCHEM' , 'ACET'    ,\n                              'SpeciesConcVV_ALD2'     , 'GEOSCHEMCHEM' , 'ALD2'    ,\n                              'SpeciesConcVV_ALK4'     , 'GEOSCHEMCHEM' , 'ALK4'    ,\n                              'SpeciesConcVV_C2H6'     , 'GEOSCHEMCHEM' , 'C2H6'    ,\n                              'SpeciesConcVV_C3H8'     , 'GEOSCHEMCHEM' , 'C3H8'    ,\n                              'SpeciesConcVV_CH4'      , 'GEOSCHEMCHEM' , 'CH4'     ,\n                              'SpeciesConcVV_CO'       , 'GEOSCHEMCHEM' , 'CO'      ,\n                              'SpeciesConcVV_H2O2'     , 'GEOSCHEMCHEM' , 'H2O2'    ,\n                              'SpeciesConcVV_CH2O'     , 'GEOSCHEMCHEM' , 'HCHO'    ,\n                              'SpeciesConcVV_HNO2'     , 'GEOSCHEMCHEM' , 'HNO2'    ,\n                              'SpeciesConcVV_HNO3'     , 'GEOSCHEMCHEM' , 'HNO3'    ,\n                              'SpeciesConcVV_HNO4'     , 'GEOSCHEMCHEM' , 'HNO4'    ,\n                              'SpeciesConcVV_HO2'      , 'GEOSCHEMCHEM' , 'HO2'     ,\n                              'SpeciesConcVV_N2O5'     , 'GEOSCHEMCHEM' , 'N2O5'    ,\n                              'SpeciesConcVV_NH3'      , 'GEOSCHEMCHEM' , 'NH3'     ,\n                              'SpeciesConcVV_NO'       , 'GEOSCHEMCHEM' , 'NO'      ,\n                              'SpeciesConcVV_NO2'      , 'GEOSCHEMCHEM' , 'NO2'     ,\n                              'NOy'                  , 'GEOSCHEMCHEM' , 'NOy'     ,\n                              'SpeciesConcVV_MPAN'     , 'GEOSCHEMCHEM' , 'MPAN'    ,\n                              'SpeciesConcVV_O3'       , 'GEOSCHEMCHEM' , 'O3'      ,\n                              'SpeciesConcVV_OH'       , 'GEOSCHEMCHEM' , 'OH'      ,\n                              'SpeciesConcVV_PAN'      , 'GEOSCHEMCHEM' , 'PAN'     ,\n                              'PM25'                 , 'GEOSCHEMCHEM' , 'PM25_RH35_GCC' ,\n                              'SpeciesConcVV_PPN'      , 'GEOSCHEMCHEM' , 'PPN'     ,\n                              'SpeciesConcVV_PRPE'     , 'GEOSCHEMCHEM' , 'PRPE'    ,\n                              'SpeciesConcVV_R4N1'     , 'GEOSCHEMCHEM' , 'R4N1'    ,\n                              'SpeciesConcVV_R4N2'     , 'GEOSCHEMCHEM' , 'R4N2'    ,\n                              'SpeciesConcVV_RCHO'     , 'GEOSCHEMCHEM' , 'RCHO'    ,\n                              'SpeciesConcVV_SO2'      , 'GEOSCHEMCHEM' , 'SO2'     ,\n                              'SpeciesConcVV_BCPI'     , 'GEOSCHEMCHEM' , 'BCPI'    ,\n                              'SpeciesConcVV_BCPO'     , 'GEOSCHEMCHEM' , 'BCPO'     ,\n                              'SpeciesConcVV_DST1'     , 'GEOSCHEMCHEM' , 'DST1'     ,\n                              'SpeciesConcVV_DST2'     , 'GEOSCHEMCHEM' , 'DST2'     ,\n                              'SpeciesConcVV_DST3'     , 'GEOSCHEMCHEM' , 'DST3'     ,\n                              'SpeciesConcVV_DST4'     , 'GEOSCHEMCHEM' , 'DST4'     ,\n                              'SpeciesConcVV_MSA'      , 'GEOSCHEMCHEM' , 'MSA'      ,\n                              'SpeciesConcVV_NH4'      , 'GEOSCHEMCHEM' , 'NH4'      ,\n                              'SpeciesConcVV_NIT'      , 'GEOSCHEMCHEM' , 'NIT'      ,\n                              'SpeciesConcVV_NITs'     , 'GEOSCHEMCHEM' , 'NITs'     ,\n                              'SpeciesConcVV_OCPI'     , 'GEOSCHEMCHEM' , 'OCPI'     ,\n                              'SpeciesConcVV_OCPO'     , 'GEOSCHEMCHEM' , 'OCPO'     ,\n                              'SpeciesConcVV_SALA'     , 'GEOSCHEMCHEM' , 'SALA'     ,\n                              'SpeciesConcVV_SALC'     , 'GEOSCHEMCHEM' , 'SALC'     ,\n                              'SpeciesConcVV_SO4'      , 'GEOSCHEMCHEM' , 'SO4'      ,\n                              'SpeciesConcVV_SO4s'     , 'GEOSCHEMCHEM' , 'SO4s'     ,\n\t\t\t      'SpeciesConcVV_SOAP'     , 'GEOSCHEMCHEM' , 'SOAP'     ,\n\t\t\t      'SpeciesConcVV_SOAS'     , 'GEOSCHEMCHEM' , 'SOAS'     ,\n                              'SpeciesConcVV_ClO'      , 'GEOSCHEMCHEM' , 'ClO'     ,\n                              'SpeciesConcVV_Cl'       , 'GEOSCHEMCHEM' , 'Cl'      ,\n                              'SpeciesConcVV_Cl2'      , 'GEOSCHEMCHEM' , 'Cl2'     ,\t\n                              'SpeciesConcVV_HCl'      , 'GEOSCHEMCHEM' , 'HCl'     ,\n                              'SpeciesConcVV_IO'       , 'GEOSCHEMCHEM' , 'IO'      ,\n                              'SpeciesConcVV_Br'       , 'GEOSCHEMCHEM' , 'Br'       ,\n                              'SpeciesConcVV_Br2'      , 'GEOSCHEMCHEM' , 'Br2'      ,\n                              'SpeciesConcVV_BrCl'     , 'GEOSCHEMCHEM' , 'BrCl'     ,\n                              'SpeciesConcVV_BrNO2'    , 'GEOSCHEMCHEM' , 'BrNO2'    ,\n                              'SpeciesConcVV_BrNO3'    , 'GEOSCHEMCHEM' , 'BrNO3'    ,\n                              'SpeciesConcVV_CH3I'     , 'GEOSCHEMCHEM' , 'CH3I'     ,\n                              'SpeciesConcVV_ClNO2'    , 'GEOSCHEMCHEM' , 'ClNO2'    ,\n                              'SpeciesConcVV_ClNO3'    , 'GEOSCHEMCHEM' , 'ClNO3'    ,\n                              'SpeciesConcVV_HBr'      , 'GEOSCHEMCHEM' , 'HBr'      ,\n                              'SpeciesConcVV_HOCl'     , 'GEOSCHEMCHEM' , 'HOCl'     ,\n                              'SpeciesConcVV_HI'       , 'GEOSCHEMCHEM' , 'HI'       ,\n                              'SpeciesConcVV_HOBr'     , 'GEOSCHEMCHEM' , 'HOBr'     ,\n                              'SpeciesConcVV_HOI'      , 'GEOSCHEMCHEM' , 'HOI'      ,\n                              'SpeciesConcVV_I'        , 'GEOSCHEMCHEM' , 'I'        ,\n                              'SpeciesConcVV_I2'       , 'GEOSCHEMCHEM' , 'I2'       ,\n                              'SpeciesConcVV_I2O2'     , 'GEOSCHEMCHEM' , 'I2O2'     ,\n                              'SpeciesConcVV_I2O3'     , 'GEOSCHEMCHEM' , 'I2O3'     ,\n                              'SpeciesConcVV_I2O4'     , 'GEOSCHEMCHEM' , 'I2O4'     ,\n                              'SpeciesConcVV_IBr'      , 'GEOSCHEMCHEM' , 'IBr'      ,\n                              'SpeciesConcVV_ICl'      , 'GEOSCHEMCHEM' , 'ICl'      ,\n                              'SpeciesConcVV_INO'      , 'GEOSCHEMCHEM' , 'INO'      ,\n                              'SpeciesConcVV_IONO'     , 'GEOSCHEMCHEM' , 'IONO'     ,\n                              'SpeciesConcVV_IONO2'    , 'GEOSCHEMCHEM' , 'IONO2'    ,\n                              'SpeciesConcVV_CH2Br2'   , 'GEOSCHEMCHEM' , 'CH2Br2'   ,\n                              'SpeciesConcVV_CHBr3'    , 'GEOSCHEMCHEM' , 'CHBr3'    ,\n                              'SpeciesConcVV_CH2I2'    , 'GEOSCHEMCHEM' , 'CH2I2'    ,\n                              'SpeciesConcVV_CH2IBr'   , 'GEOSCHEMCHEM' , 'CH2IBr'   ,\n                              'SpeciesConcVV_CH2ICl'   , 'GEOSCHEMCHEM' , 'CH2ICl'   ,\n                              'SpeciesConcVV_OIO'      , 'GEOSCHEMCHEM' , 'OIO'      ,\n                              'SpeciesConcVV_IDC'       , 'GEOSCHEMCHEM' , 'IDC'      ,\n                              'SpeciesConcVV_IEPOXA'    , 'GEOSCHEMCHEM' , 'IEPOXA'   , \n                              'SpeciesConcVV_IEPOXB'    , 'GEOSCHEMCHEM' , 'IEPOXB'   ,\n                              'SpeciesConcVV_IEPOXD'    , 'GEOSCHEMCHEM' , 'IEPOXD'   ,\n                              'SpeciesConcVV_IHN1'      , 'GEOSCHEMCHEM' , 'IHN1'     ,\n                              'SpeciesConcVV_IHN2'      , 'GEOSCHEMCHEM' , 'IHN2'     ,\n                              'SpeciesConcVV_IHN3'      , 'GEOSCHEMCHEM' , 'IHN3'     ,\n                              'SpeciesConcVV_IHN4'      , 'GEOSCHEMCHEM' , 'IHN4'     ,\n                              'SpeciesConcVV_INPB'      , 'GEOSCHEMCHEM' , 'INPB'     ,\n                              'SpeciesConcVV_INPD'      , 'GEOSCHEMCHEM' , 'INPD'     ,\n                              'SpeciesConcVV_ICN'       , 'GEOSCHEMCHEM' , 'ICN'      ,\n                              'SpeciesConcVV_ITCN'      , 'GEOSCHEMCHEM' , 'ITCN'     ,\n                              'SpeciesConcVV_ITHN'      , 'GEOSCHEMCHEM' , 'ITHN'     ,\n                              'SpeciesConcVV_IDN'       , 'GEOSCHEMCHEM' , 'IDN'      ,\n                              'SpeciesConcVV_MONITU'    , 'GEOSCHEMCHEM' , 'MONITU'   ,\n                              'SpeciesConcVV_MONITS'    , 'GEOSCHEMCHEM' , 'MONITS'   ,\n                              'SpeciesConcVV_HCOOH'     , 'GEOSCHEMCHEM' , 'HCOOH'    ,\n                              'SpeciesConcVV_HPALD1'    , 'GEOSCHEMCHEM' , 'HPALD1'   ,\n                              'SpeciesConcVV_HPALD2'    , 'GEOSCHEMCHEM' , 'HPALD2'   ,\n                              'SpeciesConcVV_HPALD3'    , 'GEOSCHEMCHEM' , 'HPALD3'   ,\n                              'SpeciesConcVV_HPALD4'    , 'GEOSCHEMCHEM' , 'HPALD4'   ,                        \n                              'SpeciesConcVV_ICPDH'     , 'GEOSCHEMCHEM' , 'ICPDH'    ,\n                              'SpeciesConcVV_IDCHP'     , 'GEOSCHEMCHEM' , 'IDCHP'    ,\n                              'SpeciesConcVV_IDHDP'     , 'GEOSCHEMCHEM' , 'IDHDP'    ,\n                              'SpeciesConcVV_RIPA'      , 'GEOSCHEMCHEM' , 'RIPA'     ,\n                              'SpeciesConcVV_RIPB'      , 'GEOSCHEMCHEM' , 'RIPB'     ,\n                              'SpeciesConcVV_RIPC'      , 'GEOSCHEMCHEM' , 'RIPC'     ,\n                              'SpeciesConcVV_RIPD'      , 'GEOSCHEMCHEM' , 'RIPD'     ,\n                              'SpeciesConcVV_LIMO'      , 'GEOSCHEMCHEM' , 'LIMO'     ,\n                              'SpeciesConcVV_MTPO'      , 'GEOSCHEMCHEM' , 'MTPO'     ,\n                              'SpeciesConcVV_MTPA'      , 'GEOSCHEMCHEM' , 'MTPA'     ,\n                              'SpeciesConcVV_MACR'      , 'GEOSCHEMCHEM' , 'MACR'     ,\n                              'SpeciesConcVV_MVK'       , 'GEOSCHEMCHEM' , 'MVK'      ,\n                              'SpeciesConcVV_HC5A'      , 'GEOSCHEMCHEM' , 'HC5A'     ,\n                              'SpeciesConcVV_MVKN'      , 'GEOSCHEMCHEM' , 'MVKN'     ,\n                              'SpeciesConcVV_MCRHN'     , 'GEOSCHEMCHEM' , 'MCRHN'    ,\n                              'SpeciesConcVV_HONIT'     , 'GEOSCHEMCHEM' , 'HONIT'    ,\n                              'SpeciesConcVV_MACR1OOH'  , 'GEOSCHEMCHEM' , 'MACR1OOH' ,\n                              'SpeciesConcVV_MCRHP'     , 'GEOSCHEMCHEM' , 'MCRHP'    ,\n                              'SpeciesConcVV_MCRHNB'    , 'GEOSCHEMCHEM' , 'MCRHNB'   ,\n                              'SpeciesConcVV_BALD'      , 'GEOSCHEMCHEM' , 'BALD'     ,\n                              'SpeciesConcVV_BENZ'      , 'GEOSCHEMCHEM' , 'BENZ'     ,\n                              'SpeciesConcVV_MCT'       , 'GEOSCHEMCHEM' , 'MCT'      ,\n                              'SpeciesConcVV_CSL'       , 'GEOSCHEMCHEM' , 'CSL'      ,\n                              'SpeciesConcVV_PHEN'      , 'GEOSCHEMCHEM' , 'PHEN'     ,\n                              'SpeciesConcVV_NPHEN'     , 'GEOSCHEMCHEM' , 'NPHEN'    ,\n                              'SpeciesConcVV_C2H2'      , 'GEOSCHEMCHEM' , 'C2H2'     ,\n                              'SpeciesConcVV_EOH'       , 'GEOSCHEMCHEM' , 'EOH'      ,\n                              'SpeciesConcVV_ICHE'      , 'GEOSCHEMCHEM' , 'ICHE'     ,\n                              'SpeciesConcVV_IDHPE'     , 'GEOSCHEMCHEM' , 'IDHPE'    ,\n                              'SpeciesConcVV_GLYX'      , 'GEOSCHEMCHEM' , 'GLYX'     ,\n                              'SpeciesConcVV_GLYC'      , 'GEOSCHEMCHEM' , 'GLYC'     ,\n                              'SpeciesConcVV_MEK'       , 'GEOSCHEMCHEM' , 'MEK'      ,\n                              'SpeciesConcVV_MGLY'      , 'GEOSCHEMCHEM' , 'MGLY'     ,\n                              'SpeciesConcVV_MP'        , 'GEOSCHEMCHEM' , 'MP'       ,\n                              'SpeciesConcVV_MOH'       , 'GEOSCHEMCHEM' , 'MOH'      ,\n                              'SpeciesConcVV_HMHP'      , 'GEOSCHEMCHEM' , 'HMHP'     ,\n                              'SpeciesConcVV_NO3'       , 'GEOSCHEMCHEM' , 'NO3'      ,\n                              'SpeciesConcVV_ETNO3'     , 'GEOSCHEMCHEM' , 'ETNO3'    ,\n                              'SpeciesConcVV_IPRNO3'    , 'GEOSCHEMCHEM' , 'IPRNO3'   ,\n                              'SpeciesConcVV_NPRNO3'    , 'GEOSCHEMCHEM' , 'NPRNO3'   ,\n                              'SpeciesConcVV_MENO3'     , 'GEOSCHEMCHEM' , 'MENO3'    ,\n                              'SpeciesConcVV_ETHN'      , 'GEOSCHEMCHEM' , 'ETHN'     ,\n                              'SpeciesConcVV_PROPNN'    , 'GEOSCHEMCHEM' , 'PROPNN'   ,\n                              'SpeciesConcVV_ETHLN'     , 'GEOSCHEMCHEM' , 'ETHLN'    ,\n                              'SpeciesConcVV_MAP'       , 'GEOSCHEMCHEM' , 'MAP'      ,\n                              'SpeciesConcVV_ATOOH'     , 'GEOSCHEMCHEM' , 'ATOOH'    ,\n                              'SpeciesConcVV_ETP'       , 'GEOSCHEMCHEM' , 'ETP'      ,\n                              'SpeciesConcVV_PP'        , 'GEOSCHEMCHEM' , 'PP'       ,\n                              'SpeciesConcVV_RB3P'      , 'GEOSCHEMCHEM' , 'RB3P'     ,\n                              'SpeciesConcVV_RA3P'      , 'GEOSCHEMCHEM' , 'RA3P'     ,\n                              'SpeciesConcVV_RP'        , 'GEOSCHEMCHEM' , 'RP'       ,\n                              'SpeciesConcVV_R4P'       , 'GEOSCHEMCHEM' , 'R4P'      ,\n                              'SpeciesConcVV_PIP'       , 'GEOSCHEMCHEM' , 'PIP'      ,\n                              'SpeciesConcVV_BENZP'     , 'GEOSCHEMCHEM' , 'BENZP'    ,\n                              'SpeciesConcVV_ETHP'      , 'GEOSCHEMCHEM' , 'ETHP'     ,\n                              'SpeciesConcVV_PRPN'      , 'GEOSCHEMCHEM' , 'PRPN'     ,\n                              'SpeciesConcVV_TOLU'      , 'GEOSCHEMCHEM' , 'TOLU'     ,\n                              'SpeciesConcVV_XYLE'       , 'GEOSCHEMCHEM' , 'XYLE'     ,\n                               ::\n\n  trc_tavg_6hr_glo_L1440x721_p44.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  trc_tavg_6hr_glo_L1440x721_p44.archive:    '%c/Y%y4',\n  trc_tavg_6hr_glo_L1440x721_p44.descr:      '3d,6-Hourly,Time-Averaged,Pressure-Level,Tracer and Meteorology Fields',\n  trc_tavg_6hr_glo_L1440x721_p44.format:     'CFIO',\n  trc_tavg_6hr_glo_L1440x721_p44.mode:\t      'time-averaged',\n  trc_tavg_6hr_glo_L1440x721_p44.frequency:  060000,\n  trc_tavg_6hr_glo_L1440x721_p44.duration:   060000,\n  trc_tavg_6hr_glo_L1440x721_p44.ref_time:   000000,\n#  trc_tavg_6hr_glo_L1440x721_p44.end_date:   0000000,\n#  trc_tavg_6hr_glo_L1440x721_p44.end_time:   120000,   \n  trc_tavg_6hr_glo_L1440x721_p44.deflate:    1 ,\n  trc_tavg_6hr_glo_L1440x721_p44.nbits:      10 ,\n  trc_tavg_6hr_glo_L1440x721_p44.chunksize:   1440 721 1 1 ,\n  trc_tavg_6hr_glo_L1440x721_p44.grid_label: PC1440x721-DC,\n  trc_tavg_6hr_glo_L1440x721_p44.regrid_method:  'BILINEAR',\n  trc_tavg_6hr_glo_L1440x721_p44.levels:       1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 125 100 85 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.1 ,\n  trc_tavg_6hr_glo_L1440x721_p44.fields:     'PS'                  , 'DYN'      ,\n                                 'AIRDENS'             , 'CHEMENV'  ,\n                                 'aoa'                 , 'TR'       ,\n                                 'e90'                 , 'TR'       ,\n                                 'Rn222'               , 'TR'       ,\n                                 'CH3I'                , 'TR'       ,\n                                 'U'             , 'DYN'          ,\n                              'V'             , 'DYN'          ,\n                              'RH2'           , 'MOIST'        , 'RH' ,\n                              'TROPP_BLENDED' , 'AGCM'         , 'TROPPB' ,\n                              'SpeciesConcVV_N2O'        , 'GEOSCHEMCHEM' , 'N2O'             ,\n                              ::\n\n  dbg_tavg_3hr_glo_L1440x721_v72.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  dbg_tavg_3hr_glo_L1440x721_v72.archive:    '%c/Y%y4',\n  dbg_tavg_3hr_glo_L1440x721_v72.descr:      '3d,3-Hourly,Time-Averaged,Model-Level,Diagnostics for model debugging',\n  dbg_tavg_3hr_glo_L1440x721_v72.format:     'CFIO',\n  dbg_tavg_3hr_glo_L1440x721_v72.mode:       'time-averaged',\n  dbg_tavg_3hr_glo_L1440x721_v72.frequency:  030000,\n  dbg_tavg_3hr_glo_L1440x721_v72.duration:   030000,\n  dbg_tavg_3hr_glo_L1440x721_v72.ref_time:   000000,\n # dbg_tavg_3hr_glo_L1440x721_v72.end_date:   0000000,\n # dbg_tavg_3hr_glo_L1440x721_v72.end_time:   120000,\n  dbg_tavg_3hr_glo_L1440x721_v72.deflate:    1 ,\n  dbg_tavg_3hr_glo_L1440x721_v72.nbits:      10 ,\n  dbg_tavg_3hr_glo_L1440x721_v72.chunksize:   1440 721 1 1 ,\n  dbg_tavg_3hr_glo_L1440x721_v72.grid_label: PC1440x721-DC,\n  dbg_tavg_3hr_glo_L1440x721_v72.regrid_method:    'BILINEAR',\n  dbg_tavg_3hr_glo_L1440x721_v72.fields: 'Met_PBLTOPL'       , 'GEOSCHEMCHEM'  , 'PBLTOPL'    ,\n                                     'Met_TropLev'       , 'GEOSCHEMCHEM'  , 'TROPLEV'    ,\n\n                              ::\n\n  aer_tavg_24hr_glo_L1440x721_slv.format:     'CFIO' ,\n  aer_tavg_24hr_glo_L1440x721_slv.descr:      '2d,24-Hourly,Time-Averaged,Single-Level,Aerosol Diagnostics from GOCART',\n  aer_tavg_24hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  aer_tavg_24hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  aer_tavg_24hr_glo_L1440x721_slv.mode:       'time-averaged',\n  aer_tavg_24hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  aer_tavg_24hr_glo_L1440x721_slv.regrid_method:    'BILINEAR',\n  aer_tavg_24hr_glo_L1440x721_slv.frequency:  240000 ,\n  aer_tavg_24hr_glo_L1440x721_slv.duration:   240000 ,\n  aer_tavg_24hr_glo_L1440x721_slv.ref_time:   210000 ,\n#  aer_tavg_24hr_glo_L1440x721_slv.end_date:   0000000,\n#  aer_tavg_24hr_glo_L1440x721_slv.end_time:   120000, \n  aer_tavg_24hr_glo_L1440x721_slv.deflate:    1 ,\n  aer_tavg_24hr_glo_L1440x721_slv.nbits:      10 ,\n  aer_tavg_24hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  aer_tavg_24hr_glo_L1440x721_slv.fields:    'CA.bcSMASS'     , 'CA.bc'     , 'BCSMASS'     ,\n# Black Carbon\n                                  'CA.bcCMASS'     , 'CA.bc'     , 'BCCMASS'     ,\n                                  'CA.bcEXTTAU'    , 'CA.bc'     , 'BCEXTTAU'    ,\n                                  'CA.bcSCATAU'    , 'CA.bc'     , 'BCSCATAU'    ,\n                                  'CA.bcSTEXTTAU'  , 'CA.bc'     , 'BCSTEXTTAU'  ,\n                                  'CA.bcSTSCATAU'  , 'CA.bc'     , 'BCSTSCATAU'  ,\n                                  'CA.bcANGSTR'    , 'CA.bc'     , 'BCANGSTR'    ,\n                                  'CA.bcFLUXU'     , 'CA.bc'     , 'BCFLUXU'     ,\n                                  'CA.bcFLUXV'     , 'CA.bc'     , 'BCFLUXV'     ,\n# Brown Carbon\n                                  'CA.brSMASS'     , 'CA.br'     , 'BRSMASS'     ,\n                                  'CA.brCMASS'     , 'CA.br'     , 'BRCMASS'     ,\n                                  'CA.brEXTTAU'    , 'CA.br'     , 'BREXTTAU'    ,\n                                  'CA.brSCATAU'    , 'CA.br'     , 'BRSCATAU'    ,\n                                  'CA.brSTEXTTAU'  , 'CA.br'     , 'BRSTEXTTAU'  ,\n                                  'CA.brSTSCATAU'  , 'CA.br'     , 'BRSTSCATAU'  ,\n                                  'CA.brANGSTR'    , 'CA.br'     , 'BRANGSTR'    ,\n                                  'CA.brFLUXU'     , 'CA.br'     , 'BRFLUXU'     ,\n                                  'CA.brFLUXV'     , 'CA.br'     , 'BRFLUXV'     ,\n# Dust\n                                  'DUSMASS'        , 'DU'        ,\n                                  'DUCMASS'        , 'DU'        ,\n                                  'DUEXTTAU'       , 'DU'        ,\n                                  'DUSCATAU'       , 'DU'        ,\n                                  'DUSTEXTTAU'     , 'DU'        ,\n                                  'DUSTSCATAU'     , 'DU'        ,\n                                  'DUANGSTR'       , 'DU'        ,\n                                  'DUSMASS25'      , 'DU'        ,\n                                  'DUCMASS25'      , 'DU'        ,\n                                  'DUEXTT25'       , 'DU'        ,\n                                  'DUSCAT25'       , 'DU'        ,\n                                  'DUFLUXU'        , 'DU'        ,\n                                  'DUFLUXV'        , 'DU'        ,\n# Seasalt\n                                  'SSSMASS'        , 'SS'        ,\n                                  'SSCMASS'        , 'SS'        ,\n                                  'SSEXTTAU'       , 'SS'        ,\n                                  'SSSCATAU'       , 'SS'        ,\n                                  'SSSTEXTTAU'     , 'SS'        ,\n                                  'SSSTSCATAU'     , 'SS'        ,\n                                  'SSANGSTR'       , 'SS'        ,\n                                  'SSSMASS25'      , 'SS'        ,\n                                  'SSCMASS25'      , 'SS'        ,\n                                  'SSEXTT25'       , 'SS'        ,\n                                  'SSSCAT25'       , 'SS'        ,\n                                  'SSFLUXU'        , 'SS'        ,\n                                  'SSFLUXV'        , 'SS'        ,\n# Sulfates\n                                  'SO2SMASS'       , 'SU'        ,\n                                  'SO2CMASS'       , 'SU'        ,\n                                  'SO4SMASS'       , 'SU'        ,\n                                  'SO4CMASS'       , 'SU'        ,\n                                  'DMSSMASS'       , 'SU'        ,\n                                  'DMSCMASS'       , 'SU'        ,\n                                  'SUEXTTAU'       , 'SU'        ,\n                                  'SUSCATAU'       , 'SU'        ,\n                                  'SUSTEXTTAU'     , 'SU'        ,\n                                  'SUSTSCATAU'     , 'SU'        ,\n                                  'SUANGSTR'       , 'SU'        ,\n                                  'SUFLUXU'        , 'SU'        ,\n                                  'SUFLUXV'        , 'SU'        ,\n# Organic Carbon\n                                  'CA.ocSMASS'     , 'CA.oc'     , 'OCSMASS'     ,\n                                  'CA.ocCMASS'     , 'CA.oc'     , 'OCCMASS'     ,\n                                  'CA.ocEXTTAU'    , 'CA.oc'     , 'OCEXTTAU'    ,\n                                  'CA.ocSCATAU'    , 'CA.oc'     , 'OCSCATAU'    ,\n                                  'CA.ocSTEXTTAU'  , 'CA.oc'     , 'OCSTEXTTAU'  ,\n                                  'CA.ocSTSCATAU'  , 'CA.oc'     , 'OCSTSCATAU'  ,\n                                  'CA.ocANGSTR'    , 'CA.oc'     , 'OCANGSTR'    ,\n                                  'CA.ocFLUXU'     , 'CA.oc'     , 'OCFLUXU'     ,\n                                  'CA.ocFLUXV'     , 'CA.oc'     , 'OCFLUXV'     ,\n# Nitrate\n                                  'HNO3SMASS'      , 'NI'        ,\n                                  'NH3SMASS'       , 'NI'        ,\n                                  'NH4SMASS'       , 'NI'        ,\n                                  'NISMASS'        , 'NI'        ,\n                                  'NISMASS25'      , 'NI'        ,\n                                  'HNO3CMASS'      , 'NI'        ,\n                                  'NH3CMASS'       , 'NI'        ,\n                                  'NH4CMASS'       , 'NI'        ,\n                                  'NICMASS'        , 'NI'        ,\n                                  'NICMASS25'      , 'NI'        ,\n                                  'NIEXTTFM'       , 'NI'        ,\n                                  'NISCATFM'       , 'NI'        ,\n                                  'NIEXTTAU'       , 'NI'        ,\n                                  'NISCATAU'       , 'NI'        ,\n                                  'NIANGSTR'       , 'NI'        ,\n                                  'NIFLUXU'        , 'NI'        ,\n                                  'NIFLUXV'        , 'NI'        ,\n# Combined Aerosols\n                                  'TOTEXTTAU'      , 'GOCART2G'  ,\n                                  'TOTSCATAU'      , 'GOCART2G'  ,\n                                  'TOTANGSTR'      , 'GOCART2G'  ,\n                                  'TOTSTEXTTAU'    , 'GOCART2G'  ,\n                                  'TOTSTSCATAU'    , 'GOCART2G'  ,\n                                  'PM25'           , 'GOCART2G'  ,\n                                  'PM'             , 'GOCART2G'  ,\n                                ::\n\n aer_tavg_24hr_glo_L1440x721_p23.format:     'CFIO' ,\n aer_tavg_24hr_glo_L1440x721_p23.descr:      '3d,24-Hourly,Time-Averaged,Pressure-Level,Aerosol Diagnostics from GOCART', \n aer_tavg_24hr_glo_L1440x721_p23.template:   '%y4%m2%d2_%h2%n2z.nc4',   \n aer_tavg_24hr_glo_L1440x721_p23.archive:    '%c/Y%y4',\n aer_tavg_24hr_glo_L1440x721_p23.deflate:    1 , \n aer_tavg_24hr_glo_L1440x721_p23.nbits:      10 ,\n aer_tavg_24hr_glo_L1440x721_p23.chunksize:   1440 721 1 1 ,\n aer_tavg_24hr_glo_L1440x721_p23.frequency:  240000 ,   \n aer_tavg_24hr_glo_L1440x721_p23.duration:   240000 ,  \n aer_tavg_24hr_glo_L1440x721_p23.ref_time:   210000 ,  \n# aer_tavg_24hr_glo_L1440x721_p23.end_date:   0000000,\n# aer_tavg_24hr_glo_L1440x721_p23.end_time:   120000,\n aer_tavg_24hr_glo_L1440x721_p23.grid_label: PC1440x721-DC,\n aer_tavg_24hr_glo_L1440x721_p23.mode:       'time-averaged',\n aer_tavg_24hr_glo_L1440x721_p23.vscale:   100.0,    \n aer_tavg_24hr_glo_L1440x721_p23.vunit:      'hPa',    \n aer_tavg_24hr_glo_L1440x721_p23.vvars:      'log(PLE)' , 'DYN'          ,\n aer_tavg_24hr_glo_L1440x721_p23.levels:   1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 50 10,\n aer_tavg_24hr_glo_L1440x721_p23.fields:         'PS'          , 'DYN'        , 'PS'        ,\n                                  'LWI'         , 'SURFACE'    , 'LWI'       ,\n                                  'AIRDENS'     , 'CHEMENV'    ,\n                                  'DUMASS'     , 'DU'       , 'DU'   ,\n                                  'SSMASS'     , 'SS'       , 'SS'   ,\n                                  'CA.bcMASS'  , 'CA.bc'    , 'BC'   ,\n                                  'CA.brMASS'  , 'CA.br'    , 'BR'   ,\n                                  'CA.ocMASS'  , 'CA.oc'    , 'OC'   ,\n                                  'SO2'        , 'SU'       ,\n                                  'SO4'        , 'SU'       ,\n                                  'NIMASS'     , 'NI'       , 'NI'   ,\n                                  ::\n\n  chm_tavg_24hr_glo_L1440x721_slv.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  chm_tavg_24hr_glo_L1440x721_slv.archive:    '%c/Y%y4',\n  chm_tavg_24hr_glo_L1440x721_slv.descr:      '2d,24-Hourly,Time-Averaged,Single-Layer,GEOS-Chem Diagnostic Fields',\n  chm_tavg_24hr_glo_L1440x721_slv.format:     'CFIO',\n  chm_tavg_24hr_glo_L1440x721_slv.mode:       'time-averaged',\n  chm_tavg_24hr_glo_L1440x721_slv.frequency:  240000,\n  chm_tavg_24hr_glo_L1440x721_slv.duration:   240000,\n  chm_tavg_24hr_glo_L1440x721_slv.ref_time:   210000,\n  chm_tavg_24hr_glo_L1440x721_slv.deflate:    1 ,\n  chm_tavg_24hr_glo_L1440x721_slv.nbits:      10 ,\n  chm_tavg_24hr_glo_L1440x721_slv.chunksize:   1440 721 1 1 ,\n  chm_tavg_24hr_glo_L1440x721_slv.grid_label: PC1440x721-DC,\n  chm_tavg_24hr_glo_L1440x721_slv.regrid_method: 'BILINEAR',\n  chm_tavg_24hr_glo_L1440x721_slv.fields: 'OHwgtByAirMassColumnTrop', 'GEOSCHEMCHEM', \n                                  'AirMassColumnTrop'     , 'GEOSCHEMCHEM', \n                                  'LossOHbyCH4columnTrop' , 'GEOSCHEMCHEM', \n                                  ::\n\n chm_tavg_24hr_glo_L1440x721_p45.format:     'CFIO' ,\n chm_tavg_24hr_glo_L1440x721_p45.descr:      '3d,24-Hourly,Time-Averaged,Pressure-Level, Diagnostic Fields',\n chm_tavg_24hr_glo_L1440x721_p45.template:   '%y4%m2%d2_%h2%n2z.nc4',\n chm_tavg_24hr_glo_L1440x721_p45.archive:    '%c/Y%y4',\n chm_tavg_24hr_glo_L1440x721_p45.mode:       'time-averaged',\n chm_tavg_24hr_glo_L1440x721_p45.grid_label: PC1440x721-DC,\n chm_tavg_24hr_glo_L1440x721_p45.regrid_method: 'BILINEAR',\n chm_tavg_24hr_glo_L1440x721_p45.frequency:  240000 ,\n chm_tavg_24hr_glo_L1440x721_p45.duration:   240000 ,\n chm_tavg_24hr_glo_L1440x721_p45.ref_time:   210000 ,\n# chm_tavg_24hr_glo_L1440x721_p45.end_date:   0000000,\n# chm_tavg_24hr_glo_L1440x721_p45.end_time:   120000,\n chm_tavg_24hr_glo_L1440x721_p45.deflate:    1 ,\n chm_tavg_24hr_glo_L1440x721_p45.nbits:      10 ,\n chm_tavg_24hr_glo_L1440x721_p45.chunksize:   1440 721 1 1 ,\n chm_tavg_24hr_glo_L1440x721_p45.vscale:   100.0 ,\n chm_tavg_24hr_glo_L1440x721_p45.vunit:      'hPa' ,\n chm_tavg_24hr_glo_L1440x721_p45.vvars:      'log(PLE)' , 'DYN' ,\n chm_tavg_24hr_glo_L1440x721_p45.levels:       1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 125 100 85 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 ,\n chm_tavg_24hr_glo_L1440x721_p45.fields:     'SpeciesConcVV_N2O'   , 'GEOSCHEMCHEM'       , 'N2O'             ,\n                                 'SpeciesConcVV_CFC11'  , 'GEOSCHEMCHEM'       , 'CFC11'             ,\n                                 'Cly'                , 'GEOSCHEMCHEM'       , 'Cly'               ,\n                                 'OrganicCl'          , 'GEOSCHEMCHEM'       , 'Organic_Chlorine'  ,\n                                 'Bry'                , 'GEOSCHEMCHEM'       ,\n                                 'SpeciesConcVV_BrSALC' , 'GEOSCHEMCHEM'       ,\n                                 'SpeciesConcVV_BrSALA' , 'GEOSCHEMCHEM'       ,\n                                 'SpeciesConcVV_CH3Br'  , 'GEOSCHEMCHEM'       , 'CH3Br'             ,\n                  \t\t '3*SpeciesConcVV_CHBr3+2*SpeciesConcVV_CH2Br2' , 'GEOSCHEMCHEM' , 'VSLSBr'            ,\n            \t\t\t 'SpeciesConcVV_H1301+SpeciesConcVV_H1211+2*SpeciesConcVV_H2402' , 'GEOSCHEMCHEM' ,  'HalonBr'  ,\n                                 'SpeciesConcVV_O3'     , 'GEOSCHEMCHEM'       , 'O3'               ,\n                                 'SpeciesConcVV_NO2'    , 'GEOSCHEMCHEM'       , 'NO2'               ,\n                                 'NOy'                , 'GEOSCHEMCHEM'       , 'NOy'               ,\n                                 'SpeciesConcVV_CO'     , 'GEOSCHEMCHEM'       , 'CO'                ,\n                                 'DELP'               , 'DYN'                ,\n                                 'TH'                 , 'DYN'                ,\n                                 'TROPP_BLENDED'      , 'AGCM'               , 'TROPPB'           ,\n                                 'ZLE'                , 'DYN'                ,\n                                 'SpeciesConcVV_DMS'    , 'GEOSCHEMCHEM'       , 'DMS'               ,\n                                 'SpeciesConcVV_OCS'    , 'GEOSCHEMCHEM'       , 'OCS'               ,\n\n                                  ::\n\n  plf_tavg_24hr_glo_L1440x721_v72.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  plf_tavg_24hr_glo_L1440x721_v72.archive:    '%c/Y%y4' ,\n  plf_tavg_24hr_glo_L1440x721_v72.mode:       'time-averaged' ,\n  plf_tavg_24hr_glo_L1440x721_v72.format:     'CFIO',\n  plf_tavg_24hr_glo_L1440x721_v72.descr:      '3d,24-Hourly,Time-Averaged,Model-Level,Production/Loss Fields',\n  plf_tavg_24hr_glo_L1440x721_v72.grid_label: PC1440x721-DC\n  plf_tavg_24hr_glo_L1440x721_v72.deflate:    1 ,\n  plf_tavg_24hr_glo_L1440x721_v72.nbits:      10 ,\n  plf_tavg_24hr_glo_L1440x721_v72.chunksize:   1440 721 1 1 ,\n  plf_tavg_24hr_glo_L1440x721_v72.frequency:  240000 ,\n  plf_tavg_24hr_glo_L1440x721_v72.ref_time:   210000 ,\n  plf_tavg_24hr_glo_L1440x721_v72.fields:     'CH4pseudoFlux'         , 'GEOSCHEMCHEM' , 'EMIS_CH4_IMPLIED' ,\n                                        'OHreactivity'          , 'GEOSCHEMCHEM' , 'OH_reactivity'   ,\n                                        'Prod_Ox'               , 'GEOSCHEMCHEM' ,\n                                        'Loss_Ox'               , 'GEOSCHEMCHEM' ,\n                                        'Prod_CO'               , 'GEOSCHEMCHEM' ,\n                                        'Loss_CO'               , 'GEOSCHEMCHEM' ,\n                                        'Prod_SO4'              , 'GEOSCHEMCHEM' ,\n                                        'Loss_CH4'              , 'GEOSCHEMCHEM' ,\n                                        'ProdCOfromNMVOC'       , 'GEOSCHEMCHEM' ,\n                                        'ProdCOfromCH4'         , 'GEOSCHEMCHEM' ,\n                                        'AODBKG'                , 'GAAS' ,\n                                        'AODANA'                , 'GAAS' ,\n                                        'AODINC'                , 'GAAS' ,\n                                        'AODBKG_GCC'            , 'GAAS' ,\n                                        'AODANA_GCC'            , 'GAAS' ,\n                                        'AODINC_GCC'            , 'GAAS' ,\n                                        ::\n\n# Carbon collection to be forecasted\n\n  car_inst_3hr_glo_L1440x721_v72.format:       'CFIO',\n  car_inst_3hr_glo_L1440x721_v72.descr:        '3d,3-Hourly,Instantaneous,Model-Level,Carbon from GOCART',\n  car_inst_3hr_glo_L1440x721_v72.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  car_inst_3hr_glo_L1440x721_v72.archive:      '%c/Y%y4',\n  car_inst_3hr_glo_L1440x721_v72.deflate:      1 ,\n  car_inst_3hr_glo_L1440x721_v72.nbits:        10 ,\n  car_inst_3hr_glo_L1440x721_v72.chunksize:    1440 721 1 1 ,\n  car_inst_3hr_glo_L1440x721_v72.frequency:    030000,\n  car_inst_3hr_glo_L1440x721_v72.duration:     030000,\n  car_inst_3hr_glo_L1440x721_v72.ref_time:     000000,\n  car_inst_3hr_glo_L1440x721_v72.mode:         'instantaneous',\n  car_inst_3hr_glo_L1440x721_v72.grid_label:   PC1440x721-DC,\n  car_inst_3hr_glo_L1440x721_v72.fields:       'PS' , 'DYN'        , 'PS'          , \n                                'CO2DRY001'         , 'GOCART'     , 'CO2'  ,\n                                'CO2EM001'          , 'GOCART'     , 'CO2EM'       ,\n                                'Q+QLTOT+QITOT'     , 'MOIST'      , 'QW'          ,\n                                ::\n\n\n################################################################\n### Current and past campaign support collections\n################################################################\n\n# Collection for TEMPO climatology that can be used for global geostationary satellites with similar instruments\n  sat_inst_1hr_glo_L1440x721_v72.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  sat_inst_1hr_glo_L1440x721_v72.archive:    '%c/Y%y4',  \n  sat_inst_1hr_glo_L1440x721_v72.descr:      '3d,1-Hourly,Instantaneous,Model-Level,Chemistry and Meteorology Fields for satellite a priori',\n  sat_inst_1hr_glo_L1440x721_v72.format:     'CFIO',\n  sat_inst_1hr_glo_L1440x721_v72.mode:       'instantaneous',\n  sat_inst_1hr_glo_L1440x721_v72.frequency:  010000,\n  sat_inst_1hr_glo_L1440x721_v72.duration:   010000,\n  sat_inst_1hr_glo_L1440x721_v72.ref_time:   000000,\n#  sat_inst_1hr_glo_L1440x721_v72.end_date:   0000000,\n#  sat_inst_1hr_glo_L1440x721_v72.end_time:   120000,\n  sat_inst_1hr_glo_L1440x721_v72.deflate:    1 ,\n  sat_inst_1hr_glo_L1440x721_v72.chunksize:   1440 721 1 1 ,\n  sat_inst_1hr_glo_L1440x721_v72.grid_label: PC1440x721-DC,\n  sat_inst_1hr_glo_L1440x721_v72.fields:          'SpeciesConcVV_NO2'      , 'GEOSCHEMCHEM' , 'NO2'         ,\n                              'SpeciesConcVV_O3'         , 'GEOSCHEMCHEM' , 'O3'          ,\n                              'SpeciesConcVV_SO2'        , 'GEOSCHEMCHEM' , 'SO2'         ,\n                              'SpeciesConcVV_CH2O'       , 'GEOSCHEMCHEM' , 'HCHO'        ,\n                              'SpeciesConcVV_GLYX'       , 'GEOSCHEMCHEM' , 'GLYX'        ,\n                              'SpeciesConcVV_OClO'       , 'GEOSCHEMCHEM' , 'OClO'        ,\n                              'SpeciesConcVV_HNO2'       , 'GEOSCHEMCHEM' , 'HNO2'        ,\n                              'SpeciesConcVV_BrO'        , 'GEOSCHEMCHEM' , 'BrO'         ,\n                              'SpeciesConcVV_IO'         , 'GEOSCHEMCHEM' , 'IO'          ,\n                              'U2M'                    , 'SURFACE'      ,\n                              'V2M'                    , 'SURFACE'      ,\n                              'PS'                     , 'DYN'          ,\n                              'T'                      , 'DYN'          ,\n                              'Q'                      , 'MOIST'        ,\n                              'ZPBL'                   , 'TURBULENCE'   ,\n                              'TROPP_BLENDED'          , 'AGCM'         , 'TROPPB' ,\n                              'ASNOW'                  , 'SURFACE'      , 'FRSNO'        ,\n                              'TSLAND'                 , 'SURFACE'      , 'SNOMAS'       ,\n                              'SNOWDP'                 , 'SURFACE'      , 'SNODP'        ,\n                              'FRACI'                  , 'SURFACE'      , 'FRSEAICE'     ,\n                              'PHIS'                   , 'AGCM'         ,\n                              ::\n\n\n# Collection for TEMPO.\n# could replace 'reg' with 'nam' for north america. \n  sat_inst_1hr_reg_L720x361_v72.template:   '%y4%m2%d2_%h2%n2z.nc4',\n  sat_inst_1hr_reg_L720x361_v72.archive:    '%c/Y%y4',\n  sat_inst_1hr_reg_L720x361_v72.descr:      '3d,1-Hourly,Instantaneous,Model-Level,Chemistry and Meteorology Fields for satellite a priori, TEMPO domain',\n  sat_inst_1hr_reg_L720x361_v72.format:     'CFIO',\n  sat_inst_1hr_reg_L720x361_v72.mode:       'instantaneous',\n  sat_inst_1hr_reg_L720x361_v72.frequency:  010000,\n  sat_inst_1hr_reg_L720x361_v72.duration:   010000,\n  sat_inst_1hr_reg_L720x361_v72.ref_time:   000000,\n#  sat_inst_1hr_reg_L720x361_v72.end_date:   0000000,\n#  sat_inst_1hr_reg_L720x361_v72.end_time:   120000,\n  sat_inst_1hr_reg_L720x361_v72.deflate:    1 ,\n  sat_inst_1hr_reg_L720x361_v72.chunksize:   1440 721 1 1 ,\n  sat_inst_1hr_reg_L720x361_v72.grid_label: PC1440x721-DC,\n  sat_inst_1hr_reg_L720x361_v72.subset:     -180.0 0.0 0.0 90.0,\n  sat_inst_1hr_reg_L720x361_v72.fields:          'SpeciesConcVV_NO2'      , 'GEOSCHEMCHEM' , 'NO2'         ,\n                              'SpeciesConcVV_O3'         , 'GEOSCHEMCHEM' , 'O3'          ,\n                              'SpeciesConcVV_SO2'        , 'GEOSCHEMCHEM' , 'SO2'         ,\n                              'SpeciesConcVV_CH2O'       , 'GEOSCHEMCHEM' , 'HCHO'        ,\n                              'SpeciesConcVV_GLYX'       , 'GEOSCHEMCHEM' , 'GLYX'        ,\n                              'SpeciesConcVV_OClO'       , 'GEOSCHEMCHEM' , 'OClO'        ,\n                              'SpeciesConcVV_HNO2'       , 'GEOSCHEMCHEM' , 'HNO2'        ,\n                              'SpeciesConcVV_BrO'        , 'GEOSCHEMCHEM' , 'BrO'         ,\n                              'SpeciesConcVV_IO'         , 'GEOSCHEMCHEM' , 'IO'          ,\n                              'U2M'                    , 'SURFACE'      ,\n                              'V2M'                    , 'SURFACE'      ,\n                              'PS'                     , 'DYN'          ,\n                              'T'                      , 'DYN'          ,\n                              'Q'                      , 'MOIST'        ,\n                              'ZPBL'                   , 'TURBULENCE'   ,\n                              'TROPP_BLENDED'          , 'AGCM'         , 'TROPPB' ,\n                              'ASNOW'                  , 'SURFACE'      , 'FRSNO'        ,\n                              'TSLAND'                 , 'SURFACE'      , 'SNOMAS'       ,\n                              'SNOWDP'                 , 'SURFACE'      , 'SNODP'        ,\n                              'FRACI'                  , 'SURFACE'      , 'FRSEAICE'     ,\n                              'PHIS'                   , 'AGCM'         ,\n                              ::\n\n# Collection for ACCLIP field campaign\n\n  ste_inst_1hr_r719x281_p6.template:   '%y4%m2%d2_%h2%n2z.nc4' ,\n  ste_inst_1hr_r719x281_p6.archive:    '%c/Y%y4',\n  ste_inst_1hr_r719x281_p6.descr:      '3d,1-Hourly,Instantaneous,Pressure-Level,Chemistry and Meteorology Fields for UTLS studies for ASM region' ,\n  ste_inst_1hr_r719x281_p6.format:     'CFIO' ,\n  ste_inst_1hr_r719x281_p6.mode:       'instantaneous' ,\n  ste_inst_1hr_r719x281_p6.deflate:    1  ,\n  ste_inst_1hr_r719x281_p6.frequency:  010000 ,\n  ste_inst_1hr_r719x281_p6.duration:   010000 ,\n  ste_inst_1hr_r719x281_p6.ref_time:   000000,\n  ste_inst_1hr_r719x281_p6.end_date:   0000000,\n  ste_inst_1hr_r719x281_p6.end_time:   120000,\n  ste_inst_1hr_r719x281_p6.grid_label: PC1440x721-DC,\n  ste_inst_1hr_r719x281_p6.subset:     -120.0 180.0 -10.0 60.0,\n  ste_inst_1hr_r719x281_p6.vscale:     100.0 ,\n  ste_inst_1hr_r719x281_p6.vunit:      'hPa' ,\n  ste_inst_1hr_r719x281_p6.vvars:      'log(PLE)' , 'DYN' ,\n  ste_inst_1hr_r719x281_p6.levels:     850 200 150 100 85 70\n  ste_inst_1hr_r719x281_p6.fields:               'SpeciesConcVV_NO2'      , 'GEOSCHEMCHEM' , 'NO2'         ,\n                              'SpeciesConcVV_NO'         , 'GEOSCHEMCHEM' , 'NO'          ,\n                              'SpeciesConcVV_O3'         , 'GEOSCHEMCHEM' , 'O3'          ,\n                              'SpeciesConcVV_CH2O'       , 'GEOSCHEMCHEM' , 'HCHO'        ,\n                              'SpeciesConcVV_CO'         , 'GEOSCHEMCHEM' , 'CO'          ,\n                              'SpeciesConcVV_C2H6'       , 'GEOSCHEMCHEM' , 'C2H6'        ,\n                              'SpeciesConcVV_C3H8'       , 'GEOSCHEMCHEM' , 'C3H8'        ,\n                              'SpeciesConcVV_SO2'        , 'GEOSCHEMCHEM' , 'SO2'         ,\n                              'SpeciesConcVV_OCPI'       , 'GEOSCHEMCHEM' , 'OCPI'        ,\n                              'SpeciesConcVV_OCPO'       , 'GEOSCHEMCHEM' , 'OCPO'        ,\n                              'SpeciesConcVV_BCPI'       , 'GEOSCHEMCHEM' , 'BCPI'        ,\n                              'SpeciesConcVV_BCPO'       , 'GEOSCHEMCHEM' , 'BCPO'        ,\n                              'SpeciesConcVV_SO4'        , 'GEOSCHEMCHEM' , 'SO4'         ,\n                              'SpeciesConcVV_SO4s'       , 'GEOSCHEMCHEM' , 'SO4s'        ,\n                      ::\n"
  },
  {
    "path": "run/GEOS/TransportTracers/GEOSCHEMchem_ExtData.rc",
    "content": "Ext_AllowExtrap: .true.\n#\nPrimaryExports%%\n#--------|-------|------|------------|---------------|--------|-------|---------------------|\n# Export |       |      |            |___ Refresh ___|____ Factors ___|___ External File ___|\n# Name   | Units | Clim |Conservative| Time Template | Offset | Scale | Variable | Template |\n#--------|-------|------|------------|---------------|--------|-------|----------|----------|\n#\n# Notes:\n# Units should be in single quotes if they contain whitespace\n# Climatology should be Y if the file contains monthly climatology; otherwise it should be N\n# Conservative should be Y if units imply mass conservation dependency on regrid method (e.g. value per area)\n# Refresh Time Template should be:\n#    1. - if the file contains time-invariant constants\n#    2. prefixed with F if no time interpolation between data reads (F = fixed)\n#    3. 0 if data should be kept up-to-date at all times\n#    4. 0:HHMMSS if data occurs in file with frequency HHMMSS and should be updated at that frequency\n#    5. %y4-%m2-%d2T%h2:00:00, with any tokens replaced by appropriate constant time value, if multiple time\n#       values are in the same file. Note that including an F prefix indicates the data should be treated\n#       as constant until the next refresh time. Omission of the F prefix will time-interpolate between\n#       the values.\n# Minimize whitespace wherever possible to avoid surpassing the ESMF read buffer character limit,\n# applicable only for uncommented lines.\n#\n#\n#==============================================================================\n# --- Fields for lightning emissions (Extension 103) ---\n# These fields are stored in State_Met, along with the other met fields\n#==============================================================================\nFLASH_DENS 1 N N - none none LDENS /dev/null\nCONV_DEPTH 1 N N - none none CTH   /dev/null\n\n###############################################################################\n###\n### Land data (not handled by HEMCO)\n###\n###############################################################################\n#\n#==============================================================================\n# Olson land types\n#==============================================================================\n# Olson land types - conservative frac regridding of OLSON as float\nOLSON00 '1' N F;0  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON01 '1' N F;1  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON02 '1' N F;2  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON03 '1' N F;3  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON04 '1' N F;4  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON05 '1' N F;5  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON06 '1' N F;6  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON07 '1' N F;7  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON08 '1' N F;8  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON09 '1' N F;9  - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON10 '1' N F;10 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON11 '1' N F;11 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON12 '1' N F;12 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON13 '1' N F;13 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON14 '1' N F;14 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON15 '1' N F;15 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON16 '1' N F;16 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON17 '1' N F;17 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON18 '1' N F;18 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON19 '1' N F;19 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON20 '1' N F;20 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON21 '1' N F;21 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON22 '1' N F;22 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON23 '1' N F;23 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON24 '1' N F;24 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON25 '1' N F;25 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON26 '1' N F;26 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON27 '1' N F;27 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON28 '1' N F;28 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON29 '1' N F;29 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON30 '1' N F;30 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON31 '1' N F;31 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON32 '1' N F;32 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON33 '1' N F;33 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON34 '1' N F;34 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON35 '1' N F;35 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON36 '1' N F;36 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON37 '1' N F;37 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON38 '1' N F;38 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON39 '1' N F;39 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON40 '1' N F;40 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON41 '1' N F;41 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON42 '1' N F;42 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON43 '1' N F;43 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON44 '1' N F;44 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON45 '1' N F;45 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON46 '1' N F;46 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON47 '1' N F;47 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON48 '1' N F;48 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON49 '1' N F;49 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON50 '1' N F;50 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON51 '1' N F;51 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON52 '1' N F;52 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON53 '1' N F;53 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON54 '1' N F;54 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON55 '1' N F;55 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON56 '1' N F;56 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON57 '1' N F;57 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON58 '1' N F;58 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON59 '1' N F;59 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON60 '1' N F;60 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON61 '1' N F;61 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON62 '1' N F;62 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON63 '1' N F;63 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON64 '1' N F;64 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON65 '1' N F;65 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON66 '1' N F;66 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON67 '1' N F;67 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON68 '1' N F;68 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON69 '1' N F;69 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON70 '1' N F;70 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON71 '1' N F;71 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\nOLSON72 '1' N F;72 - none none OLSON /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n\n#==============================================================================\n# Yuan-processed MODIS Leaf Area Index\n#==============================================================================\n# Use file with land type stored as 3rd dimension to speed up file read\nXLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n\n###############################################################################\n###\n### HEMCO Base Emissions (Update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n#==============================================================================\n# SF6 emissions from EDGAR v4.2\n#==============================================================================\nEDGAR_SF6 1 N Y F%y4-01-01T00:00:00 none none emi_sf6 /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc\n\n#==============================================================================\n# --- EDGAR v4.3 (EDGARv4.3) ---\n# EDGARv4.3 is turned off by default in HEMCO_Config.rc\n#==============================================================================\nEDGAR_CO_25_POW  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc\nEDGAR_CO_25_ENG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc\nEDGAR_CO_25_IND  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc\nEDGAR_CO_25_TRO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc\nEDGAR_CO_25_TNG  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc\nEDGAR_CO_25_RCO  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc\nEDGAR_CO_25_PPA  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc\n#EDGAR_CO_25_AWB kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc\nEDGAR_CO_25_SWD  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc\nEDGAR_CO_25_FFF  kg/m2/s N Y F%y4-01-01T00:00:00 none none emi_co  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc\n\n#==============================================================================\n# --- CEDS (CEDSv2) ---\n#==============================================================================\nCEDS_CO_25_AGR    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_agr   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_ENE    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ene   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_IND    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_ind   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_TRA    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_tra   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_RCO    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_rco   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_SLV    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_slv   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_WST    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_wst   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\nCEDS_CO_25_SHP    kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CO_shp   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\n\n###############################################################################\n###\n### HEMCO Extensions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\nZHANG_Rn222_EMIS  kg/m2/s N Y F%y4-%m2-01T00:00:00 none none rnemis   /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc\n\n###############################################################################\n###\n### HEMCO Non-Emissions Data (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\nTIMEZONES     NA  N V - none none  UTC_OFFSET /discover/nobackup/cakelle2/data/timezones_esmf.2x25.nc\n\n###############################################################################\n###\n### HEMCO Scale Factors (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n#==============================================================================\n# --- annual scale factors ---\n#==============================================================================\nLIQFUEL_THISYR     1 N Y F%y4-01-01T00:00:00   none none COscalar  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\nLIQFUEL_2008_2010  1 N Y F%y4-01-01T00:00:00   none none COscalar  /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\n\n#==============================================================================\n# --- seasonal scale factors ---\n#==============================================================================\n# --- From EDGAR 4.3.1 ---\nPOW 1 Y Y F2010-%m2-01T00:00:00 none none POW /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nENG 1 Y Y F2010-%m2-01T00:00:00 none none ENG /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nIND 1 Y Y F2010-%m2-01T00:00:00 none none IND /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nTRO 1 Y Y F2010-%m2-01T00:00:00 none none TRO /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nTNG 1 Y Y F2010-%m2-01T00:00:00 none none TNG /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nRCO 1 Y Y F2010-%m2-01T00:00:00 none none RCO /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nPPA 1 Y Y F2010-%m2-01T00:00:00 none none PPA /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nAGR 1 Y Y F2010-%m2-01T00:00:00 none none AGR /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nAWB 1 Y Y F2010-%m2-01T00:00:00 none none AWB /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nSOL 1 Y Y F2010-%m2-01T00:00:00 none none SOL /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nSWD 1 Y Y F2010-%m2-01T00:00:00 none none SWD /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\nFFF 1 Y Y F2010-%m2-01T00:00:00 none none FFF /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\n\n###############################################################################\n###\n### Masks (update if HEMCO_Config.rc changes)\n###\n###############################################################################\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\nOCEAN_MASK 1 N Y - none none FROCEAN /gpfsm/dnb06/projects/p171/dao_ops/archive/d5294_geosit_jan18/diag/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\n\n%%\n\nDerivedExports%%\n# ---------|---------|--------------------------------------------|\n#  Export  | Primary |_________________ Mask _____________________|\n#  Name    |  Name   |    Name    |           Expression          |    \n# ---------|---------|------------|-------------------------------|\n# ---------|---------|------------|-------------------------------|\n%%\n"
  },
  {
    "path": "run/GEOS/TransportTracers/GEOSCHEMchem_ExtData.yaml",
    "content": "Collections:\n  TT_AnnualScalar.geos.1x1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc\n  TT_CO-em-anthro_CMIP_CEDS_%y4.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/CEDS/v2021-06/%y4/CO-em-anthro_CMIP_CEDS_%y4.nc\n  TT_Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/Yuan_XLAI/v2019-03/Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n  TT_EDGAR_v42_SF6_IPCC_2.generic.01x01.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc\n  TT_EDGAR_v43.CO.ENG.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc\n  TT_EDGAR_v43.CO.FFF.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc\n  TT_EDGAR_v43.CO.IND.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc\n  TT_EDGAR_v43.CO.POW.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc\n  TT_EDGAR_v43.CO.PPA.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc\n  TT_EDGAR_v43.CO.RCO.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc\n  TT_EDGAR_v43.CO.SWD.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc\n  TT_EDGAR_v43.CO.TNG.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc\n  TT_EDGAR_v43.CO.TRO.0.1x0.1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc\n  TT_EDGAR_v43.Seasonal.1x1.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc\n  TT_Olson_2001_Land_Map.025x025.generic.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Olson_Land_Map_201203/Olson_2001_Land_Map.025x025.generic.nc\n  TT_Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc:\n    template: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc\n  TT_timezones_esmf.2x25.nc:\n    template: /discover/nobackup/cakelle2/data/timezones_esmf.2x25.nc\n\nSamplings:\n  TT_sample_0:\n    extrapolation: persist_closest\n  TT_sample_1:\n    update_frequency: PT24H\n    update_reference_time: '0'\n  TT_sample_2:\n    time_interpolation: 'False'\n    update_frequency: P1Y\n    update_reference_time: '0'\n  TT_sample_3:\n    time_interpolation: 'False'\n    update_frequency: P1M\n    update_reference_time: '0'\n  TT_sample_4:\n    extrapolation: clim\n    time_interpolation: 'False'\n    update_frequency: P1M\n    update_reference_time: '0'\n\nExports:\n  AGR:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: AGR\n  AWB:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: AWB\n  CEDS_CO_25_AGR:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_agr\n  CEDS_CO_25_ENE:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_ene\n  CEDS_CO_25_IND:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_ind\n  CEDS_CO_25_RCO:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_rco\n  CEDS_CO_25_SHP:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_shp\n  CEDS_CO_25_SLV:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_slv\n  CEDS_CO_25_TRA:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_tra\n  CEDS_CO_25_WST:\n    collection: TT_CO-em-anthro_CMIP_CEDS_%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: CO_wst\n  CONV_DEPTH:\n    collection: /dev/null\n  EDGAR_CO_25_ENG:\n    collection: TT_EDGAR_v43.CO.ENG.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_FFF:\n    collection: TT_EDGAR_v43.CO.FFF.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_IND:\n    collection: TT_EDGAR_v43.CO.IND.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_POW:\n    collection: TT_EDGAR_v43.CO.POW.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_PPA:\n    collection: TT_EDGAR_v43.CO.PPA.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_RCO:\n    collection: TT_EDGAR_v43.CO.RCO.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_SWD:\n    collection: TT_EDGAR_v43.CO.SWD.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_TNG:\n    collection: TT_EDGAR_v43.CO.TNG.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_CO_25_TRO:\n    collection: TT_EDGAR_v43.CO.TRO.0.1x0.1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_co\n  EDGAR_SF6:\n    collection: TT_EDGAR_v42_SF6_IPCC_2.generic.01x01.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: emi_sf6\n  ENG:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: ENG\n  FFF:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: FFF\n  FLASH_DENS:\n    collection: /dev/null\n  IND:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: IND\n  LIQFUEL_2008_2010:\n    collection: TT_AnnualScalar.geos.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: COscalar\n  LIQFUEL_THISYR:\n    collection: TT_AnnualScalar.geos.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_2\n    variable: COscalar\n  OLSON00:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;0\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON01:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;1\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON02:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;2\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON03:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;3\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON04:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;4\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON05:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;5\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON06:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;6\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON07:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;7\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON08:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;8\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON09:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;9\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON10:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;10\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON11:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;11\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON12:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;12\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON13:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;13\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON14:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;14\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON15:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;15\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON16:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;16\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON17:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;17\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON18:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;18\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON19:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;19\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON20:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;20\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON21:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;21\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON22:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;22\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON23:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;23\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON24:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;24\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON25:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;25\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON26:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;26\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON27:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;27\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON28:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;28\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON29:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;29\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON30:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;30\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON31:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;31\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON32:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;32\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON33:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;33\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON34:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;34\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON35:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;35\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON36:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;36\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON37:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;37\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON38:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;38\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON39:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;39\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON40:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;40\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON41:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;41\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON42:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;42\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON43:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;43\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON44:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;44\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON45:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;45\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON46:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;46\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON47:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;47\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON48:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;48\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON49:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;49\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON50:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;50\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON51:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;51\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON52:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;52\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON53:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;53\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON54:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;54\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON55:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;55\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON56:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;56\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON57:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;57\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON58:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;58\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON59:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;59\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON60:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;60\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON61:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;61\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON62:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;62\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON63:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;63\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON64:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;64\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON65:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;65\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON66:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;66\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON67:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;67\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON68:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;68\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON69:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;69\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON70:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;70\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON71:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;71\n    sample: TT_sample_0\n    variable: OLSON\n  OLSON72:\n    collection: TT_Olson_2001_Land_Map.025x025.generic.nc\n    regrid: FRACTION;72\n    sample: TT_sample_0\n    variable: OLSON\n  POW:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: POW\n  PPA:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: PPA\n  RCO:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: RCO\n  SOL:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: SOL\n  SWD:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: SWD\n  TIMEZONES:\n    collection: TT_timezones_esmf.2x25.nc\n    regrid: VOTE\n    sample: TT_sample_0\n    variable: UTC_OFFSET\n  TNG:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: TNG\n  TRO:\n    collection: TT_EDGAR_v43.Seasonal.1x1.nc\n    regrid: CONSERVE\n    sample: TT_sample_4\n    variable: TRO\n  XLAIMULTI:\n    collection: TT_Condensed_Yuan_proc_MODIS_XLAI.025x025.%y4.nc\n    regrid: CONSERVE\n    sample: TT_sample_1\n    variable: XLAIMULTI\n  ZHANG_Rn222_EMIS:\n    collection: TT_Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc\n    regrid: CONSERVE\n    sample: TT_sample_3\n    variable: rnemis\n\n\n"
  },
  {
    "path": "run/GEOS/TransportTracers/GEOSCHEMchem_GridComp.rc",
    "content": "#------------------------------------------------------------------------------\n!             GEOS-Chem Global Chemical Transport Model                       !\n#------------------------------------------------------------------------------\n#\n# !DESCRIPTION: Resource file for the GEOSCHEMchem Gridded Component.\n#\n# !REVISION HISTORY:\n#  06 Oct 2009 - P. Le Sager - Initial\n#  06 Dec 2009 - da Silva    - Converted from NAMELIST to ESMF Config\n#  13 Apr 2010 - R. Yantosca - Added dimension info and tracer names\n#  07 Nov 2012 - R. Yantosca - Added placeholder fields for input.geos\n#  26 Feb 2013 - R. Yantosca - Added MAX_DEP for Input_Opt\n#  19 Mar 2013 - R. Yantosca - Added LINOZ fields for Input_Opt\n#  19 Mar 2013 - R. Yantosca - MAX_TRCS should be 53, not 54\n#  01 Aug 2014 - M. Long-sca - MAX_TRCS & MAX_DIAG set to 130 & 80, resp.\n#  07 Jun 2018 - C.Keller/K.E.Knowland - Change LLSTRAT from 59 to 40, add Calc_VUD_online\n#------------------------------------------------------------------------------\n\n#\n# %%% Start date/time                %%%\n# %%% Used by ut_GEOSCHEM in sandbox %%%\n#\nUTC_START_DATE:       20050701\nUTC_START_TIME:       000000\n\n#\n# %%% End date/time                  %%%\n# %%% Used by ut_GEOSCHEM in sandbox %%%\n#\nUTC_END_DATE:         20050702\nUTC_END_TIME:         000000\n\n#\n# %%% Timesteps [sec] %%%\n#\nDYNAMICS_TIMESTEP:    1800\nCHEMISTRY_TIMESTEP:   1800\n\n#\n# %%% Placeholder fields for Input_Opt object %%%\n#\nMAX_DIAG:             80\nMAX_TRCS:             130\nMAX_MEMB:             15\nMAX_FAMS:             20\nMAX_DEP:              55\nLINOZ_NFIELDS:         7\nLINOZ_NLAT            18\nLINOZ_NLEVELS:        25\nLINOZ_NMONTHS:        12\n\n# Maximum level used for chemistry. If not extending to the top of the atmosphere,\n# production and loss rates from an offline GMI simulation will be applied to the \n# remaining levels (based on GEOS-Chem's linearized stratospheric chemistry scheme). \n# It is recommended to do full chemistry over the entire column, so that LLSTRAT = LM.\n# This is the default.\n#LLSTRAT:              72\n\n#\n# FAST-JX options:\n# LLFASTJX are the number of levels used for FAST-JX. The default value for a simulation\n# on 72 model levels is 601, and 1201 if running on 132 model levels. \n# FJX_EXTRAL_ITERMAX (defaults: 1 and 5 for 72 and 132 model levels, respectively) and \n# FJX_EXTRAL_ERR (default = 1) are fine tuning parameter that can be used\n# to get more control over the FAST-JX calculations. Increase FJX_EXTRAL_ITERMAX if \n# you encounter problems with FAST-JX, e.g. at 132 model levels.\n#LLFASTJX:             601 \n#FJX_EXTRAL_ITERMAX:   1 \n#FJX_EXTRAL_ERR:       1\n\n#\n# %%% Run phases (1 or 2. 2 recommended) %%% \n#\nRUN_PHASES:        2\n\n#\n# %%% Stop if KPP integration fails (default: 1) %%% \n#\nKPP_STOP_IF_FAIL:  0\n\n\n#\n# %%% HEMCO configuration file %%%\n#\nHEMCO_CONFIG:         HEMCO_Config.rc\n\n#\n# %%% Log file names for redirecting stdout %%%\n#\nSTDOUT_LOGFILE:       PET%%%%%.GEOSCHEMchem.log\nSTDOUT_LOGLUN:        6\n\n#\n# %%% Initialize all concentrations to zero? ###\n#\nINIT_ZERO:            0\n\n#\n# %%% Use archived convection fields? %%% \n#\nARCHIVED_CONV:        0\n\n# %%% Use MOIST module for convective transport (including washout)\n# Make species friendly to moist? If turned on, convection must be turned off in in geoschem_config.yml\nSpecies_friendly_to_moist: 0\n# Turn off washout for SO2?\nTurnOff_SO2_washout: 1\n# Calculate CLDLIQ and CLDICE online based on current conditions (use default GEOS-Chem parameterization otherwise)?\nOnline_CLDLIQ: 1\n# Use online vertical updraft velocity or use default GEOS-Chem parameterization? \nOnline_VUD: 1\n\n# Use GAAS on GEOS-Chem aerosols? \nSpecies_friendly_to_GAAS: 0\n\n#\n# %%% Tuning parameter to reduce washout efficiency \n# %%% of convective large-scale precip.\n# %%% Use at own risk: the effects of setting this \n# %%% parameter to a value between 0.0 and 1.0 are \n# %%% untested! \n#\n### cakelle2, 20180828: bug fix, changed from -999.0 to 1.0 \nConvective_precip_correction: 1.0\n\n#\n# %%% Cap polar tropopause at 200hPa (default=yes)? %%% \n#\nCap_polar_tropopause: 0\n\n#\n# %%% Ozonopause value in ppb. If set to <= 0.0, the \n# %%% GEOS-5 tropopause will be used (default) \n#\nUse_ozonopause: -999.0\n\n#\n# %%% Prescribe stratospheric H2O\n#\nPrescribe_strat_H2O: 1\n\n# %%% Settings for excluding species from being transported\nReduce_transport_species: 0\nTransport_blacklist: CFC115,CFC114,N2O,CFC12,H1301,CFC113,CFC11,CCl4,H2O,H2402,H1211,HCFC142b,HCFC22,HCFC141b,CH3CCl3,CH3Br,CH3Cl,HCFC123\n\n#\n# %%% Include short-lived species in internal restart file?\n#\nShortlived_species_in_restart: 0\n\n##\n# %%% Read initial conditions from external file\n# %%% instead of internal state\n#\nINIT_SPC_FROM_FILE: 0\nINIT_SPC_FILE: /discover/nobackup/cakelle2/GCC_Restarts/v13.1.0-beta.1/GEOSChem.Restart.20190801_0000z.edit.incHEMCO.nc4\nONLY_SHORTLIVED_SPECIES: 0\nUNIFORM_IF_MISSING: 1.0e-12\nDATA_IS_IN_PPBV: 1\nONLY_ON_FIRST_STEP: 1\nDATA_ON_GEOS_LEVELS: 1\nDO_NOT_OVERWRITE_ABOVE_LEVEL: 59\n\nUSE_GMI_MESO: 0\nGMI_TEMPLATE: /discover/nobackup/cakelle2/data/GMI/gmi.clim.%spc.geos5.2x25.esmf.nc\n\n#\n# %%% Use GMI P/L for O3 (default=no)? %%%\n#\nUse_GMI_O3_PL:        0\n\n# Analysis options \nANAPHASE: 2\nAnalysis_nSpecies: 2\nAnalysis_Settings_Spec001: GEOSCHEMchem_AnaSettings_O3.rc\nAnalysis_Settings_Spec002: GEOSCHEMchem_AnaSettings_NO2.rc\n\n#\n# NOx lightning met inputs\n#\n# Input source for flash rates: If set to 'LFR' or 'LFR_GCC', the corresponding MOIST export is used. If set to any other\n# name, will search for that name in the import state. For instance, set it to 'LFR_OFFLINE' and then define an import via\n# ExtData to use LFR values from a file. Default is LFR_GCC. All values expected in [flashes km-2 s-1].\n# Scale factors can be defined to adjust the imported LFR field for the southern extratropics (<23S), tropics (23S-23N), and\n# the northern extratropics (>23N). In addition, a global scale factor can be set to rescale the overall LFR.\n# These factors can be used to better match the expected global annual average flash rate of 46 flashes s-1, and a distribution\n# of ~65% in the tropics and ~23% in the N extratropics.\n#\nLIGHTNING_FLASH_RATE_SOURCE: LFR_GCC\nLFR_SCALING_SOUTHERN_TROP:   2.0\nLFR_SCALING_NORTHERN_TROP:   1.1\nLFR_SCALING_TROPICS:         0.4\nLFR_SCALING_GLOBAL:          2.0\n\n#\n# Input source for convective height: If set to 'CNV_MFC', will compute the convective height from convective mass fluxes\n# (default). If set to 'BYNCY', will compute it from the buoyancy and convective fraction. For all other cases, will look\n# for the field in import and use that as is. For instance, set it to 'CCTH_OFFLINE' and define an import via ExtData to\n# use values from an external file. If read from file, the values must be in [m].\n#\nLIGHTNING_CONVECTIVE_TOP_SOURCE: CNV_MFC\n#\n\n# Turn off heterogenous reactions in stratosphere?\n# If true, the following heterogeneous reactions are disabled (in the stratosphere):\n# ClNO3(g) + HBr(l,s) --> BrCl + HNO3\n# BrNO3(g) + HCl(l,s) --> BrCl + HNO3\n# HOCl(g) + HBr(l,s) --> BrCl + H2O\nTurnOffHetRates: 1\n\n#\n# Enable Bry and Cly family transport\n#\nBry_Cly_Family_Transport: 0\n\n#\n# CO production from CO2 photolysis\n#\nCO_production_from_CO2_photolysis: 0\nCO2photolysisFile: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/StratChem/SC.J_20_12_79_72_200_45.jpl15.nc4\n\n#\n# CO2 coupling with GOCART\n#\nImport_CO2_from_GOCART: 0\nGOCART_CO2_FieldName: GOCART_CO2\n\n#\n# Set CO mesosphere upper boundary to external field \n#\nSet_CO_Mesosphere: 0\nCO_Mesosphere_FieldName: CO_CMAM\n\n#\n# To set CH4 boundary condition from GEOS \n# Note: if set to 1, need to make sure that an import named 'GEOS_CH4' is set in ExtData.\nCH4_from_GEOS: 0\n"
  },
  {
    "path": "run/GEOS/TransportTracers/HEMCO_Config.rc",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  This file has been customized for the Transport Tracers simulation.\n#  See The HEMCO User's Guide for file details:\n#    http://wiki.geos-chem.org/The_HEMCO_User%27s_Guide\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        /gpfsm/dnb34/ewlundgr/data/HEMCO\nMETDIR:                      not_used\nLogfile:                     *\nDiagnFile:                   HEMCO_DiagnFile.rc\nDiagnPrefix:                 ./OutputDir/HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> METEOROLOGY            :       false\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> GC_RESTART             :       false\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> EDGARv42_SF6           :       true     # 1970-2008\n    --> OCEAN_CH3I             :       true \n    --> CEDSv2                 :       true     # 1750-2019\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAP                   :       false    # 2008-2010\n    --> UNIFORM_CO             :       true\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> OLSON_LANDMAP          :       false    # 1985\n    --> YUAN_MODIS_LAI         :       false    # 2000-2020\n#------------------------------------------------------------------------------\n100     GC_Rn-Pb-Be            : on    Rn222/Be7/Be7s/Be10/Be10s\n# ----- Always Leave Extension 100 turned on.  Furthermore:\n# ----- Turning on  ZHANG_Rn222 will use Zhang et al [2020] Rn222 emissions\n# ----- Turning off ZHANG_Rn222 will use default emissions (Jacob et al [1997])\n101     ZHANG_Rn222            : on    Rn222\n\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr\tName sourceFile\tsourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# SF6 emissions from EDGAR v4.2\n#==============================================================================\n(((EDGARv42_SF6\n0 EDGAR_SF6  $ROOT/SF6/v2019-01/EDGAR_v42_SF6_IPCC_2.generic.01x01.nc emi_sf6 1970-2008/1/1/0 C xy kg/m2/s SF6 - 1 1\n)))EDGARv42_SF6\n\n#==============================================================================\n# CH3I emitted over the oceans at rate of 1 molec/cm2/s\n#==============================================================================\n(((OCEAN_CH3I\n0 SRC_2D_CH3I 1.0 - - - xy molec/cm2/s CH3I 1000 1 1\n)))OCEAN_CH3I\n\n#==============================================================================\n# Anthropogenic CO 25-day and 50-day tracers\n#\n# Choose CEDS, EDGAR, or HTAP\n#==============================================================================\n(((CEDSv2\n0 CEDS_CO_25_AGR     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_agr  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_AGR     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_ENE     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_ene  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_ENE     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_IND     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_ind  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_IND     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_TRA     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_tra  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_TRA     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_RCO     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_rco  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_RCO     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_SLV     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_slv  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_SLV     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_WST     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_wst  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_WST     -                                                          -       -                  - -  -       CO_50 26 1 5\n0 CEDS_CO_25_SHP     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc  CO_shp  1750-2019/1-12/1/0 C xy kg/m2/s CO_25 26 1 5\n0 CEDS_CO_50_SHP     -                                                          -       -                  - -  -       CO_50 26 1 5\n)))CEDSv2\n\n(((EDGARv43\n0  EDGAR_CO_25_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1201/26/52 1/2 2\n0  EDGAR_CO_50_POW -                                                    -       -               - -  -       CO_50 1201/26/52 1/2 2\n0  EDGAR_CO_25_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1202/26/52 1/2 2\n0  EDGAR_CO_50_ENG -                                                    -       -               - -  -       CO_50 1202/26/52 1/2 2\n0  EDGAR_CO_25_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1203/26/52 1/2 2\n0  EDGAR_CO_50_IND -                                                    -       -               - -  -       CO_50 1203/26/52 1/2 2\n0  EDGAR_CO_25_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1204/26/52 1/2 2\n0  EDGAR_CO_50_TRO -                                                    -       -               - -  -       CO_50 1204/26/52 1/2 2\n0  EDGAR_CO_25_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1205/26/52 1/2 2\n0  EDGAR_CO_50_TNG -                                                    -       -               - -  -       CO_50 1205/26/52 1/2 2\n0  EDGAR_CO_25_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1206/26/52 1/2 2\n0  EDGAR_CO_50_RCO -                                                    -       -               - -  -       CO_50 1206/26/52 1/2 2\n0  EDGAR_CO_25_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1207/26/52 1/2 2\n0  EDGAR_CO_50_PPA -                                                    -       -               - -  -       CO_50 1207/26/52 1/2 2\n#0 EDGAR_CO_25_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1209/26/52 1/2 2\n#0 EDGAR_CO_50_AWB -                                                    -       -               - -  -       CO_50 1209/26/52 1/2 2\n0  EDGAR_CO_25_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1211/26/52 1/2 2\n0  EDGAR_CO_50_SWD -                                                    -       -               - -  -       CO_50 1211/26/52 1/2 2\n0  EDGAR_CO_25_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO_25 1212/26/52 1/2 2\n0  EDGAR_CO_50_FFF -                                                    -       -               - -  -       CO_50 1211/26/52 1/2 2\n)))EDGARv43\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Zhang et al [2021] Rn222 emissions ---\n# --- cf https://acp.copernicus.org/articles/21/1861/2021/ ---\n#==============================================================================\n(((ZHANG_Rn222\n101 ZHANG_Rn222_EMIS $ROOT/ZHANG_Rn222/v2021-11/Rn222_Emis_Zhang_Liu_et_al_05x05_mass.nc rnemis 2001/1-12/1/0 C xy kg/m2/s Rn222 - 1 1\n)))ZHANG_Rn222\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES $ROOT/TIMEZONES/v2015-02/timezones_voronoi_1x1.nc UTC_OFFSET 2000/1/1/0 C xy count * - 1 1\n\n#==============================================================================\n# --- GEOS-Chem restart file ---\n#==============================================================================\n(((GC_RESTART\n* SPC_           ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 SpeciesRst_?ALL?    $YYYY/$MM/$DD/$HH EFYO xyz 1 * - 1 1\n* DELPDRY        ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Met_DELPDRY         $YYYY/$MM/$DD/$HH EY   xyz 1 * - 1 1\n)))GC_RESTART\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((HTAP\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n28 LIQFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  2008-2010/1/1/0 C xy 1 -1\n)))HTAP\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# --- VOC speciations ---\n#==============================================================================\n(((EDGARv43\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43\n\n)))EMISSIONS\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n(((OCEAN_CH3I\n1000 OCEAN_MASK  $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC                                         FROCEAN           2000/1/1/0 C xy 1 1       -180/-90/180/90\n)))OCEAN_CH3I\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/GEOS/TransportTracers/HEMCO_DiagnFile.rc",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc \n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO.\n#\\\\\n#\\\\\n# !REMARKS:\n#  Customized for the Transport Tracers simulation.\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name               Spec              ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####  Rn222 emissions                                                    #####\n###############################################################################\nEmisRn_Soil          Rn222             100    -1  -1   2   kg/m2/s\n\n###############################################################################\n#####  Be emissions                                                       #####\n###############################################################################\nEmisBe7_Cosmic       Be7               100    -1  -1   3   kg/m2/s\nEmisBe7s_Cosmic      Be7s              100    -1  -1   3   kg/m2/s\nEmisBe10_Cosmic      Be10              100    -1  -1   3   kg/m2/s\nEmisBe10s_Cosmic     Be10s             100    -1  -1   3   kg/m2/s\n\n###############################################################################\n#####  Transport tracer emissions                                         #####\n###############################################################################\nEmisSF6              SF6                -1    -1  -1   2   kg/m2/s\nEmisCH3I             CH3I               -1    -1  -1   2   kg/m2/s\nEmisCO_25            CO_25              -1    -1  -1   2   kg/m2/s\nEmisCO_50            CO_50              -1    -1  -1   2   kg/m2/s\n\n#EOC"
  },
  {
    "path": "run/GEOS/TransportTracers/HISTORY.rc",
    "content": "VERSION: 1\nEXPID:  GCv14.0_GCMv1.17_c90\nEXPDSC: c90_test_run\nEXPSRC: GEOSgcm-v10.23.0\n\n\nCOLLECTIONS: 'Emissions',\n             'Budget',\n             'CloudConvFlux',\n             'DryDep',\n             'RadioNuclide',\n             'SpeciesConc',\n             'StateMet',\n             'StateMetLevEdge',\n             'WetLossConv',\n             'WetLossLS',\n             #'geosgcm_prog'\n             #'prog.eta'\n             #'geosgcm_surf'\n             #'geosgcm_ocn'\n             #'geosgcm_moist'\n             #'geosgcm_turb'\n             #'geosgcm_gwd'\n             #'geosgcm_tend'\n             #'geosgcm_budi'\n             #'geosgcm_buda'\n             #'geosgcm_landice'\n             #'geosgcm_meltwtr'\n             #'geosgcm_snowlayer'\n             #'geosgcm_tracer'\n             #'tavg2d_aer_x'\n             #'tavg3d_aer_p'\n             #'gcc_dev'\n#             'geosgcm_iau'\n#             'geosgcm_conv'\n#             'goswim_catch'\n#             'goswim_land'\n#             'goswim_landice'\n#             'geosgcm_lidar'\n#             'geosgcm_parasol'\n#             'geosgcm_modis'\n#             'geosgcm_radar'\n#             'geosgcm_isccp'\n#             'geosgcm_misr'\n             ::\n\n##################################################\n# The GRID_LABELS section must be after the main #\n#  list of COLLECTIONS for scripting purposes.   #\n##################################################\n\nGRID_LABELS: PC360x181-DC\n::\n\nPC360x181-DC.GRID_TYPE: LatLon\nPC360x181-DC.IM_WORLD: 360\nPC360x181-DC.JM_WORLD: 181\nPC360x181-DC.POLE: PC\nPC360x181-DC.DATELINE: DC\nPC360x181-DC.LM: 72\n\n\n  geosgcm_prog.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_prog.archive:          '%c/Y%y4' ,\n  geosgcm_prog.format:           'CFIO' ,\n  geosgcm_prog.deflate:           1 ,\n  geosgcm_prog.grid_label:        PC360x181-DC ,\n  geosgcm_prog.regrid_method:    'BILINEAR',\n  geosgcm_prog.frequency:         060000 ,\n  geosgcm_prog.vscale:            100.0 ,\n  geosgcm_prog.vunit:            'hPa' ,\n  geosgcm_prog.vvars:            'log(PLE)' , 'DYN' ,\n  geosgcm_prog.levels:            1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 0.07 0.05 0.04 0.03 0.02 ,\n  geosgcm_prog.fields:           'PHIS'   , 'AGCM'       ,\n                                 'SLP'    , 'DYN'        ,\n                                 'U;V'    , 'DYN'        ,\n                                 'T'      , 'DYN'        ,\n                                 'PS'     , 'DYN'        ,\n                                 'ZLE'    , 'DYN'        , 'H'   ,\n                                 'OMEGA'  , 'DYN'        ,\n                                 'Q'      , 'MOIST'      , 'QV'  ,\n                                 'QITOT'  , 'AGCM'       , 'QI'  ,\n                                 'QLTOT'  , 'AGCM'       , 'QL'  ,\n                                 'RH2'    , 'MOIST'      , 'RH'  ,\n                                 'O3'     , 'CHEMISTRY'  ,\n                                  ::\n\n  gcc_dev.template:  '%y4%m2%d2_%h2%n2z.nc4',\n  gcc_dev.archive:   '%c/Y%y4',\n  gcc_dev.format:    'CFIO',\n  gcc_dev.deflate:    1,\n  gcc_dev.mode:      'instantaneous' ,\n  gcc_dev.frequency:  030000,\n  #gcc_dev.ref_time:   210000,\n  gcc_dev.regrid_method:    'BILINEAR',\n  gcc_dev.grid_label: PC360x181-DC\n  gcc_dev.fields:    'SpeciesConcVV_PassiveTracer'    , 'GEOSCHEMCHEM'  ,\n                     'SpeciesConcVV_Rn222'            , 'GEOSCHEMCHEM'  ,\n                     ::\n\n  prog.eta.template:             '%y4%m2%d2_%h2%n2z.nc4' ,\n  prog.eta.archive:              '%c/Y%y4' ,\n  prog.eta.format:               'CFIO' ,\n  prog.eta.deflate:               1 ,\n  prog.eta.grid_label:            PC360x181-DC ,\n  prog.eta.regrid_method:        'BILINEAR',\n  prog.eta.mode:                 'instantaneous' ,\n  prog.eta.frequency:             060000 ,\n  prog.eta.duration:              060000 ,\n  prog.eta.ref_time:              000000 ,\n  prog.eta.fields:               'PHIS'       , 'AGCM'       , 'phis'       ,\n                                 'SGH'        , 'AGCM'       , 'hs_stdv'    ,\n                                 'TS'         , 'SURFACE'    , 'ts'         ,\n                                 'FRLAND'     , 'SURFACE'    , 'frland'     ,\n                                 'FRLANDICE'  , 'SURFACE'    , 'frlandice'  ,\n                                 'FRLAKE'     , 'SURFACE'    , 'frlake'     ,\n                                 'FROCEAN'    , 'SURFACE'    , 'frocean'    ,\n                                 'FRACI'      , 'SURFACE'    , 'frseaice'   ,\n                                 'PS'         , 'DYN'        , 'ps'         ,\n                                 'DELP'       , 'DYN'        , 'delp'       ,\n                                 'U;V'        , 'DYN'        , 'u;v'        ,\n                                 'TV'         , 'DYN'        , 'tv'         ,\n                                 'Q'          , 'MOIST'      , 'sphu'       ,\n                                 'O3PPMV'     , 'CHEMISTRY'  , 'ozone'      ,\n                                 'QITOT'      , 'AGCM'       , 'qitot'      ,\n                                 'QLTOT'      , 'AGCM'       , 'qltot'      ,\n                                 'QRTOT'      , 'MOIST'      , 'qrtot'      ,\n                                 'QSTOT'      , 'MOIST'      , 'qstot'      ,\n                                  ::\n\n  geosgcm_surf.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_surf.archive:          '%c/Y%y4' ,\n  geosgcm_surf.format:           'CFIO' ,\n  geosgcm_surf.deflate:           1 ,\n  geosgcm_surf.grid_label:        PC360x181-DC ,\n  geosgcm_surf.regrid_method:    'BILINEAR',\n  geosgcm_surf.mode:             'time-averaged' ,\n# geosgcm_surf.monthly:           1 ,\n  geosgcm_surf.frequency:         030000 ,\n  geosgcm_surf.ref_time:          210000 ,\n  geosgcm_surf.fields:           'PHIS'           , 'AGCM'        ,\n                                 'SGH'            , 'AGCM'        ,\n                                 'VARFLT'         , 'AGCM'        ,\n                                 'TROPP_EPV'      , 'AGCM'        , 'TROPPV'     ,\n                                 'TROPP_THERMAL'  , 'AGCM'        , 'TROPPT'     ,\n                                 'TROPP_BLENDED'  , 'AGCM'        , 'TROPPB'     ,\n                                 'TROPT'          , 'AGCM'        ,\n                                 'TROPQ'          , 'AGCM'        ,\n                                 'QVFILL'         , 'AGCM'        ,\n                                 'OXFILL'         , 'AGCM'        ,\n                                 'TA'             , 'DYN'         ,\n                                 'QA'             , 'DYN'         ,\n                                 'US;VS'          , 'DYN'         ,\n                                 'PS'             , 'DYN'         ,\n                                 'SPEED'          , 'DYN'         ,\n                                 'ZPBL'           , 'TURBULENCE'  , 'PBLH'       ,\n                                 'TS'             , 'SURFACE'     ,\n                                 'QS'             , 'SURFACE'     ,\n                                 'THAT'           , 'SURFACE'     ,\n                                 'QHAT'           , 'SURFACE'     ,\n                                 'CU2DRAINMOVE'   , 'MOIST'       ,\n                                 'CU2DSNOWMOVE'   , 'MOIST'       ,\n                                 'RAS_TIME'       , 'MOIST'       ,\n                                 'CN_PRCP'        , 'MOIST'       , 'CNPRCP'     ,\n                                 'LS_PRCP'        , 'MOIST'       , 'LSPRCP'     ,\n                                 'AN_PRCP'        , 'MOIST'       , 'ANPRCP'     ,\n                                 'LS_PRCP+CU2DRAINMOVE+CU2DSNOWMOVE'   , 'MOIST'       , 'LSORIG'     ,\n                                 'CN_PRCP-CU2DRAINMOVE-CU2DSNOWMOVE'   , 'MOIST'       , 'CNORIG'     ,\n                                 'SNO'            , 'MOIST'       ,\n                                 'PLS'            , 'MOIST'       ,\n                                 'PCU'            , 'MOIST'       ,\n                                 'LWP'            , 'MOIST'       ,\n                                 'CCWP'           , 'MOIST'       ,\n                                 'TAUTT'          , 'SOLAR'       ,\n                                 'TAULO'          , 'SOLAR'       ,\n                                 'TAUMD'          , 'SOLAR'       ,\n                                 'TAUHI'          , 'SOLAR'       ,\n                                 'CLDTT'          , 'SOLAR'       ,\n                                 'CLDLO'          , 'SOLAR'       ,\n                                 'CLDMD'          , 'SOLAR'       ,\n                                 'CLDHI'          , 'SOLAR'       ,\n                                 'SPLAND'         , 'SURFACE'     ,\n                                 'SPWATR'         , 'SURFACE'     ,\n                                 'RUNSURF'        , 'SURFACE'     , 'RUNOFF'     ,\n                                 'BASEFLOW'       , 'SURFACE'     ,\n                                 'EMIS'           , 'SURFACE'     ,\n                                 'CT'             , 'SURFACE'     ,\n                                 'CQ'             , 'SURFACE'     ,\n                                 'CN'             , 'SURFACE'     ,\n                                 'CM'             , 'SURFACE'     ,\n                                 'RI'             , 'SURFACE'     , 'RISFC'      ,\n                                 'LAI'            , 'SURFACE'     ,\n                                 'GRN'            , 'SURFACE'     ,\n                                 'SNOMAS'         , 'SURFACE'     ,\n                                 'ITY'            , 'SURFACE'     , 'VEGTYPE'    ,\n                                 'WET1'           , 'SURFACE'     ,\n                                 'WET2'           , 'SURFACE'     ,\n                                 'WET3'           , 'SURFACE'     ,\n                                 'TSOIL1'         , 'SURFACE'     ,\n                                 'TSOIL2'         , 'SURFACE'     ,\n                                 'FRLAND'         , 'SURFACE'     ,\n                                 'FRLANDICE'      , 'SURFACE'     ,\n                                 'FRLAKE'         , 'SURFACE'     ,\n                                 'FRACI'          , 'SURFACE'     , 'FRSEAICE'   ,\n                                 'FROCEAN'        , 'SURFACE'     ,\n                                 'USTAR'          , 'SURFACE'     ,\n                                 'Z0'             , 'SURFACE'     ,\n                                 'Z0H'            , 'SURFACE'     ,\n                                 'LHFX'           , 'SURFACE'     ,\n                                 'SH'             , 'SURFACE'     , 'SHFX'       ,\n                                 'EVAP'           , 'SURFACE'     ,\n                                 'TAUX;TAUY'      , 'SURFACE'     ,\n                                 'RHOS'           , 'SURFACE'     ,\n                                 'U2M;V2M'        , 'SURFACE'     ,\n                                 'T2M'            , 'SURFACE'     ,\n                                 'Q2M'            , 'SURFACE'     ,\n                                 'U10N;V10N'      , 'SURFACE'     ,\n                                 'U10M;V10M'      , 'SURFACE'     ,\n                                 'T10M'           , 'SURFACE'     ,\n                                 'Q10M'           , 'SURFACE'     ,\n                                 'U50M;V50M'      , 'SURFACE'     ,\n                                 'GUST'           , 'SURFACE'     ,\n                                 'VENT'           , 'SURFACE'     ,\n                                 'ASNOW'          , 'SURFACE'     ,\n                                 'RADSRF'         , 'RADIATION'   ,\n                                 'TBISCCP'        , 'SATSIM'      ,\n                                 'FLNS'           , 'IRRAD'       ,\n                                 'FLNSC'          , 'IRRAD'       ,\n                                 'FLNSA'          , 'IRRAD'       , 'FLNSCNA'    ,\n                                 'OLR'            , 'IRRAD'       ,\n                                 'OLC'            , 'IRRAD'       , 'OLRC'       ,\n                                 'OLCC5'          , 'IRRAD'       , 'OLRCC5'     ,\n                                 'OLA'            , 'IRRAD'       , 'OLRCNA'     ,\n                                 'LWS'            , 'IRRAD'       ,\n                                 'LCS'            , 'IRRAD'       , 'LWSC'       ,\n                                 'LCSC5'          , 'IRRAD'       , 'LWSCC5'     ,\n                                 'LAS'            , 'IRRAD'       , 'LWSCNA'     ,\n                                 'SFCEM'          , 'IRRAD'       ,\n                                 'CLDTMP'         , 'SOLAR'       , 'SWCLDTMP'   ,\n                                 'CLDPRS'         , 'SOLAR'       , 'SWCLDPRS'   ,\n                                 'OSR'            , 'SOLAR'       ,\n                                 'OSRCLR'         , 'SOLAR'       ,\n                                 'RSR'            , 'SOLAR'       , 'SWTNET'     ,\n                                 'RSC'            , 'SOLAR'       , 'SWTNETC'    ,\n                                 'RSCNA'          , 'SOLAR'       , 'SWTNETCNA'  ,\n                                 'RSRNA'          , 'SOLAR'       , 'SWTNETNA'   ,\n                                 'SLRTP'          , 'SOLAR'       , 'RADSWT'     ,\n                                 'SLRSF'          , 'SOLAR'       , 'SWGDWN'     ,\n                                 'SLRSFC'         , 'SOLAR'       , 'SWGDWNC'    ,\n                                 'RSRS'           , 'SOLAR'       , 'SWGNET'     ,\n                                 'RSCS'           , 'SOLAR'       , 'SWGNETC'    ,\n                                 'RSRSNA'         , 'SOLAR'       , 'SWGNETNA'   ,\n                                 'RSCSNA'         , 'SOLAR'       , 'SWGNETCNA'  ,\n                                 'ALBEDO'         , 'SOLAR'       ,\n                                 'ALBVR'          , 'SOLAR'       ,\n                                 'ALBVF'          , 'SOLAR'       ,\n                                 'ALBNR'          , 'SOLAR'       ,\n                                 'ALBNF'          , 'SOLAR'       ,\n                                 'EVLAND'         , 'SURFACE'     ,\n                                 'LHLAND'         , 'SURFACE'     ,\n                                 'SHLAND'         , 'SURFACE'     ,\n                                 'SWLAND'         , 'SURFACE'     ,\n                                 'LWLAND'         , 'SURFACE'     ,\n                                 'GHLAND'         , 'SURFACE'     ,\n                                 'SMLAND'         , 'SURFACE'     ,\n                                 'TWLAND'         , 'SURFACE'     ,\n                                 'TELAND'         , 'SURFACE'     ,\n# additonal exports for skin SST\n                                 'EVAPOUT'        , 'SURFACE'     ,\n                                 'COSZ'           , 'SOLAR'       ,\n                                 'DCOOL'          , 'SURFACE'     ,\n                                 'DWARM'          , 'SURFACE'     ,\n                                 'TDROP'          , 'SURFACE'     , 'DELT_COOL'  ,\n                                 'TS_FOUND'       , 'SURFACE'     ,\n                                 'TDEL'           , 'SURFACE'     ,\n                                 'BCOOL'          , 'SURFACE'     ,\n                                 'LCOOL'          , 'SURFACE'     ,\n                                 'TBAR'           , 'SURFACE'     ,\n                                 'USTARW'         , 'SURFACE'     ,\n                                 'SWCOOL'         , 'SURFACE'     ,\n                                 'QCOOL'          , 'SURFACE'     ,\n                                 'DELTS'          , 'SURFACE'     ,\n                                 'QWARM'          , 'SURFACE'     ,\n                                 'SWWARM'         , 'SURFACE'     ,\n                                 'LANGM'          , 'SURFACE'     ,\n                                 'PHIW'           , 'SURFACE'     ,\n                                 'TAUTW'          , 'SURFACE'     ,\n                                 'ZETA_W'         , 'SURFACE'     ,\n                                  ::\n\n  geosgcm_ocn.template:          '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_ocn.archive:           '%c/Y%y4' ,\n  geosgcm_ocn.format:            'CFIO' ,\n  geosgcm_ocn.deflate:            1 ,\n  geosgcm_ocn.grid_label:         PC360x181-DC ,\n  geosgcm_ocn.regrid_method:     'BILINEAR',\n  geosgcm_ocn.mode:              'time-averaged' ,\n  geosgcm_ocn.monthly:            1 ,\n# geosgcm_ocn.ref_time:           210000 ,\n# geosgcm_ocn.frequency:          010000 ,\n# geosgcm_ocn.duration:           010000 ,\n  geosgcm_ocn.fields:            'U10M;V10M'    , 'SURFACE'  ,\n                                 'T10M'         , 'SURFACE'  ,\n                                 'Q10M'         , 'SURFACE'  , 'QV10M'       ,\n                                 'SHWTR'        , 'SURFACE'  , 'HFLUXWTR'    ,\n                                 'SHICE'        , 'SURFACE'  , 'HFLUXICE'    ,\n                                 'HLATWTR'      , 'SURFACE'  , 'EFLUXWTR'    ,\n                                 'HLATICE'      , 'SURFACE'  , 'EFLUXICE'    ,\n                                 'LWNDWTR'      , 'SURFACE'  , 'LWGNTWTR'    ,\n                                 'LWNDICE'      , 'SURFACE'  , 'LWGNTICE'    ,\n                                 'SWNDWTR'      , 'SURFACE'  , 'SWGNTWTR'    ,\n                                 'SWNDICE'      , 'SURFACE'  , 'SWGNTICE'    ,\n                                 'SNOWOCN'      , 'SURFACE'  , 'PRECSNOOCN'  ,\n                                 'RAINOCN'      , 'SURFACE'  ,\n                                 'TAUXW;TAUYW'  , 'SURFACE'  , 'TAUXWTR;TAUYWTR',\n                                 'TAUXI;TAUYI'  , 'SURFACE'  , 'TAUXICE;TAUYICE',\n                                 'FRACI'        , 'SURFACE'  , 'FRSEAICE'    ,\n                                 'TSKINW'       , 'SURFACE'  , 'TSKINWTR'    ,\n                                 'TSKINICE'     , 'SURFACE'  ,\n# additonal exports for skin SST\n                                 'EVAPOUT'      , 'SURFACE'  ,\n                                 'FRLAND'       , 'SURFACE'  ,\n                                 'FRLANDICE'    , 'SURFACE'  ,\n                                 'FRLAKE'       , 'SURFACE'  ,\n                                 'FROCEAN'      , 'SURFACE'  ,\n                                 'COSZ'         , 'SOLAR'    ,\n                                 'DCOOL'        , 'SURFACE'  ,\n                                 'DWARM'        , 'SURFACE'  ,\n                                 'TDROP'        , 'SURFACE'  ,\n                                 'TS_FOUND'     , 'SURFACE'  ,\n                                 'TDEL'         , 'SURFACE'  ,\n                                 'BCOOL'        , 'SURFACE'  ,\n                                 'LCOOL'        , 'SURFACE'  ,\n                                 'TBAR'         , 'SURFACE'  ,\n                                 'USTARW'       , 'SURFACE'  ,\n                                 'SWCOOL'       , 'SURFACE'  ,\n                                 'QCOOL'        , 'SURFACE'  ,\n                                 'DELTS'        , 'SURFACE'  ,\n                                 'QWARM'        , 'SURFACE'  ,\n                                 'SWWARM'       , 'SURFACE'  ,\n                                 'LANGM'        , 'SURFACE'  ,\n                                 'PHIW'         , 'SURFACE'  ,\n                                 'TAUTW'        , 'SURFACE'  ,\n                                 'ZETA_W'       , 'SURFACE'  ,\n                                 'DTSDT_ANA'    , 'AGCM'     ,\n                                  ::\n\n  geosgcm_meltwtr.template:      '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_meltwtr.archive:       '%c/Y%y4' ,\n  geosgcm_meltwtr.format:        'CFIO' ,\n  geosgcm_meltwtr.deflate:        1 ,\n  geosgcm_meltwtr.regrid_name:   'PE90x540-CF' ,\n  geosgcm_meltwtr.regrid_exch:   'tile.bin' ,\n  geosgcm_meltwtr.grid_label:     PC360x181-DC ,\n  geosgcm_meltwtr.regrid_method: 'BILINEAR',\n  geosgcm_meltwtr.mode:          'time-averaged' ,\n  geosgcm_meltwtr.monthly:        1 ,\n# geosgcm_meltwtr.frequency:      240000 ,\n# geosgcm_meltwtr.ref_time:       210000 ,\n  geosgcm_meltwtr.fields:        'MELTWTR'  , 'LANDICE'  ,\n                                  ::\n\n  geosgcm_landice.template:      '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_landice.archive:       '%c/Y%y4' ,\n  geosgcm_landice.format:        'CFIO' ,\n  geosgcm_landice.deflate:        1 ,\n  geosgcm_landice.regrid_name:   'PE90x540-CF' ,\n  geosgcm_landice.regrid_exch:   'tile.bin' ,\n  geosgcm_landice.grid_label:     PC360x181-DC ,\n  geosgcm_landice.regrid_method: 'BILINEAR',\n  geosgcm_landice.mode:          'time-averaged' ,\n  geosgcm_landice.monthly:        1 ,\n# geosgcm_landice.frequency:      240000 ,\n# geosgcm_landice.ref_time:       210000 ,\n  geosgcm_landice.fields:        'SNOMAS_GL'  , 'LANDICE'  ,\n                                 'SNOWDP_GL'  , 'LANDICE'  ,\n                                 'TST'        , 'LANDICE'  ,\n                                 'ASNOW_GL'   , 'LANDICE'  ,\n                                 'RUNOFF'     , 'LANDICE'  ,\n                                 'WESNSC'     , 'LANDICE'  ,\n                                 'SNDZSC'     , 'LANDICE'  ,\n                                 'WESNPREC'   , 'LANDICE'  ,\n                                 'SNDZPREC'   , 'LANDICE'  ,\n                                 'SNDZ1PERC'  , 'LANDICE'  ,\n                                 'WESNBOT'    , 'LANDICE'  ,\n                                 'IMELT'      , 'LANDICE'  ,\n                                 'SNOWALB'    , 'LANDICE'  ,\n                                 'SNICEALB'   , 'LANDICE'  ,\n                                 'ACCUM'      , 'LANDICE'  ,\n                                 'RAINRFZ'    , 'LANDICE'  ,\n                                 'SHOUT'      , 'LANDICE'  ,\n                                 'HLATN'      , 'LANDICE'  ,\n                                 'HLWUP'      , 'LANDICE'  ,\n                                 'LWNDSRF'    , 'LANDICE'  ,\n                                 'SWNDSRF'    , 'LANDICE'  ,\n                                  ::\n\n  geosgcm_snowlayer.template:    '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_snowlayer.archive:     '%c/Y%y4' ,\n  geosgcm_snowlayer.format:      'CFIO' ,\n  geosgcm_snowlayer.deflate:      1 ,\n  geosgcm_snowlayer.regrid_name: 'PE90x540-CF' ,\n  geosgcm_snowlayer.regrid_exch: 'tile.bin' ,\n  geosgcm_snowlayer.grid_label:   PC360x181-DC ,\n  geosgcm_snowlayer.regrid_method: 'BILINEAR',\n  geosgcm_snowlayer.mode:        'time-averaged' ,\n  geosgcm_snowlayer.monthly:      1 ,\n# geosgcm_snowlayer.frequency:    240000 ,\n# geosgcm_snowlayer.ref_time:     210000 ,\n  geosgcm_snowlayer.fields:      'RHOSNOW'    , 'LANDICE'  ,\n                                 'TSNOW'      , 'LANDICE'  ,\n                                 'WSNOW'      , 'LANDICE'  ,\n                                 'ZSNOW'      , 'LANDICE'  ,\n                                 'DRHOS0'     , 'LANDICE'  ,\n                                 'WESNEX'     , 'LANDICE'  ,\n                                 'WESNPERC'   , 'LANDICE'  ,\n                                 'WESNDENS'   , 'LANDICE'  ,\n                                 'WESNREPAR'  , 'LANDICE'  ,\n                                 'TICE0'      , 'LANDICE'  ,\n                                  ::\n\n  geosgcm_moist.template:        '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_moist.archive:         '%c/Y%y4' ,\n  geosgcm_moist.format:          'CFIO' ,\n  geosgcm_moist.deflate:          1 ,\n  geosgcm_moist.grid_label:       PC360x181-DC ,\n  geosgcm_moist.regrid_method:   'BILINEAR',\n  geosgcm_moist.mode:            'time-averaged' ,\n  geosgcm_moist.monthly:          1 ,\n# geosgcm_moist.frequency:        240000 ,\n# geosgcm_moist.ref_time:         210000 ,\n  geosgcm_moist.vscale:           100.0 ,\n  geosgcm_moist.vunit:           'hPa' ,\n  geosgcm_moist.vvars:           'log(PLE)', 'DYN' ,\n  geosgcm_moist.levels:           1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 0.07 0.05 0.04 0.03 0.02 ,\n  geosgcm_moist.fields:          'PHIS'     , 'AGCM'     ,\n                                 'QL'       , 'MOIST'    ,\n                                 'QI'       , 'MOIST'    ,\n                                 'QR'       , 'MOIST'    ,\n                                 'RI'       , 'MOIST'    , 'RICE'    ,\n                                 'RL'       , 'MOIST'    , 'RLIQ'    ,\n                                 'RH1'      , 'MOIST'    ,\n                                 'CNV_MF0'  , 'MOIST'    , 'CNVMF0'  ,\n                                 'CNV_MFD'  , 'MOIST'    , 'CNVMFD'  ,\n                                 'CNV_MFC'  , 'MOIST'    , 'CNVMFC'  ,\n                                 'REV_CN'   , 'MOIST'    , 'REVCN'   ,\n                                 'REV_AN'   , 'MOIST'    , 'REVAN'   ,\n                                 'REV_LS'   , 'MOIST'    , 'REVLS'   ,\n                                 'RSU_CN'   , 'MOIST'    , 'RSUCN'   ,\n                                 'RSU_AN'   , 'MOIST'    , 'RSUAN'   ,\n                                 'RSU_LS'   , 'MOIST'    , 'RSULS'   ,\n                                 'THIM'     , 'PHYSICS'  ,\n                                 'EVAPC'    , 'MOIST'    ,\n                                 'SUBLC'    , 'MOIST'    ,\n                                 'FCLD'     , 'MOIST'    ,\n                                 'CLCN'     , 'MOIST'    ,\n                                 'CLLS'     , 'MOIST'    ,\n                                 'QICN'     , 'MOIST'    ,\n                                 'QILS'     , 'MOIST'    ,\n                                 'QLCN'     , 'MOIST'    ,\n                                 'QLLS'     , 'MOIST'    ,\n                                  ::\n\n  geosgcm_turb.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_turb.archive:          '%c/Y%y4' ,\n  geosgcm_turb.format:           'CFIO' ,\n  geosgcm_turb.deflate:           1 ,\n  geosgcm_turb.grid_label:        PC360x181-DC ,\n  geosgcm_turb.regrid_method:    'BILINEAR',\n  geosgcm_turb.mode:             'time-averaged' ,\n  geosgcm_turb.monthly:           1 ,\n# geosgcm_turb.frequency:         240000 ,\n# geosgcm_turb.ref_time:          210000 ,\n  geosgcm_turb.vscale:            100.0 ,\n  geosgcm_turb.vunit:            'hPa' ,\n  geosgcm_turb.vvars:            'log(PLE)' , 'DYN' ,\n  geosgcm_turb.levels:            1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 0.07 0.05 0.04 0.03 0.02 ,\n  geosgcm_turb.fields:           'INTDIS'  , 'TURBULENCE'  ,\n                                 'TOPDIS'  , 'TURBULENCE'  ,\n                                 'SRFDIS'  , 'TURBULENCE'  ,\n                                 'DBUOY'   , 'TURBULENCE'  ,\n                                 'WERAD'   , 'TURBULENCE'  ,\n                                 'KH'      , 'TURBULENCE'  ,\n                                 'KM'      , 'TURBULENCE'  ,\n                                 'KHLS'    , 'TURBULENCE'  ,\n                                 'KMLS'    , 'TURBULENCE'  ,\n                                 'EKH'     , 'TURBULENCE'  ,\n                                 'EKM'     , 'TURBULENCE'  ,\n                                 'KHSFC'   , 'TURBULENCE'  ,\n                                 'KHRAD'   , 'TURBULENCE'  ,\n                                 'RI'      , 'TURBULENCE'  ,\n                                 'DU'      , 'TURBULENCE'  ,\n                                  ::\n\n  geosgcm_gwd.template:          '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_gwd.archive:           '%c/Y%y4' ,\n  geosgcm_gwd.format:            'CFIO' ,\n  geosgcm_gwd.deflate:            1 ,\n  geosgcm_gwd.grid_label:         PC360x181-DC ,\n  geosgcm_gwd.regrid_method:     'BILINEAR',\n  geosgcm_gwd.mode:              'time-averaged' ,\n  geosgcm_gwd.monthly:            1 ,\n# geosgcm_gwd.frequency:          240000 ,\n# geosgcm_gwd.ref_time:           210000 ,\n  geosgcm_gwd.vscale:             100.0 ,\n  geosgcm_gwd.vunit:             'hPa' ,\n  geosgcm_gwd.vvars:             'log(PLE)' , 'DYN' ,\n  geosgcm_gwd.levels:             1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 0.07 0.05 0.04 0.03 0.02 ,\n  geosgcm_gwd.fields:            'DUDT_ORO;DVDT_ORO'  , 'GWD'  , 'DUDTORO;DVDTORO' ,\n                                 'DUDT_BKG;DVDT_BKG'  , 'GWD'  , 'DUDTBKG;DVDTBKG' ,\n                                 'DUDT_RAY;DVDT_RAY'  , 'GWD'  , 'DUDTRAY;DVDTRAY' ,\n                                 'TAUOROX;TAUOROY'    , 'GWD'  ,\n                                 'TAUBKGX;TAUBKGY'    , 'GWD'  ,\n                                 'DTDT_ORO'           , 'GWD'  , 'DTDTORO'  ,\n                                 'DTDT_BKG'           , 'GWD'  , 'DTDTBKG'  ,\n                                 'DTDT_RAY'           , 'GWD'  , 'DTDTRAY'  ,\n                                  ::\n\n  geosgcm_tend.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_tend.archive:          '%c/Y%y4' ,\n  geosgcm_tend.format:           'CFIO' ,\n  geosgcm_tend.deflate:           1 ,\n  geosgcm_tend.grid_label:        PC360x181-DC ,\n  geosgcm_tend.regrid_method:    'BILINEAR',\n  geosgcm_tend.mode:             'time-averaged' ,\n  geosgcm_tend.monthly:           1 ,\n# geosgcm_tend.frequency:         240000 ,\n# geosgcm_tend.ref_time:          210000 ,\n  geosgcm_tend.vscale:            100.0 ,\n  geosgcm_tend.vunit:            'hPa' ,\n  geosgcm_tend.vvars:            'log(PLE)' , 'DYN' ,\n  geosgcm_tend.levels:            1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 0.07 0.05 0.04 0.03 0.02 ,\n  geosgcm_tend.fields:           'DUDTDYN;DVDTDYN'  , 'DYN'        ,\n                                 'UIT;VIT'          , 'PHYSICS'    , 'DUDTTRB;DVDTTRB' ,\n                                 'DUDT;DVDT'        , 'MOIST'      , 'DUDTMST;DVDTMST' ,\n                                 'DUDT;DVDT'        , 'GWD'        , 'DUDTGWD;DVDTGWD' ,\n                                 'DTDTDYN'          , 'DYN'        ,\n                                 'TIM'              , 'PHYSICS'    ,     'DTDTMST'    ,\n                                 'TIT'              , 'PHYSICS'    ,     'DTDTTRB'    ,\n                                 'TTMGW'            , 'GWD'        ,     'DTDTGWD'    ,\n                                 'RADLW'            , 'RADIATION'  ,     'DTDTLW'     ,\n                                 'RADLWC'           , 'RADIATION'  ,     'DTDTLWC'    ,\n                                 'RADLWCNA'         , 'RADIATION'  ,     'DTDTLWCNA'  ,\n                                 'RADSW'            , 'RADIATION'  ,     'DTDTSW'     ,\n                                 'RADSWC'           , 'RADIATION'  ,     'DTDTSWC'    ,\n                                 'RADSWNA'          , 'RADIATION'  ,     'DTDTSWNA'   ,\n                                 'RADSWCNA'         , 'RADIATION'  ,     'DTDTSWCNA'  ,\n                                 'TIF'              , 'PHYSICS'    ,     'DTDTFRI'    ,\n                                 'DQVDTDYN'         , 'DYN'        ,\n                                 'DQDT'             , 'MOIST'      ,     'DQVDTMST'   ,\n                                 'QVIT'             , 'PHYSICS'    ,     'DQVDTTRB'   ,\n                                 'H2O_TEND'         , 'CHEMISTRY'  ,     'DQVDTCHM'   ,\n                                 'DPDTPHY'          , 'PHYSICS'    ,\n                                  ::\n\n  geosgcm_budi.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_budi.archive:          '%c/Y%y4' ,\n  geosgcm_budi.format:           'CFIO' ,\n  geosgcm_budi.deflate:           1 ,\n  geosgcm_budi.grid_label:        PC360x181-DC ,\n  geosgcm_budi.regrid_method:    'CONSERVE',\n  geosgcm_budi.frequency:         030000 ,\n  geosgcm_budi.fields:           'TQV'   , 'AGCM'  ,\n                                 'TQI'   , 'AGCM'  ,\n                                 'TQL'   , 'AGCM'  ,\n                                 'TOX'   , 'AGCM'  ,\n                                 'MASS'  , 'AGCM'  ,\n                                  ::\n\n  geosgcm_buda.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_buda.archive:          '%c/Y%y4' ,\n  geosgcm_buda.format:           'CFIO' ,\n  geosgcm_buda.deflate:           1 ,\n  geosgcm_buda.grid_label:        PC360x181-DC ,\n  geosgcm_buda.regrid_method:    'CONSERVE',\n  geosgcm_buda.mode:             'time-averaged' ,\n  geosgcm_buda.monthly:           1 ,\n# geosgcm_buda.frequency:         030000 ,\n  geosgcm_buda.fields:           'DMDTDYN'      , 'DYN'      , 'DMDTDYN'   ,\n                                 'DMDTANA'      , 'DYN'      , 'DMDTANA'   ,\n                                 'DMDT'         , 'PHYSICS'  , 'DMDTPHY'   ,\n                                 'DQVDTDYNINT'  , 'DYN'      , 'DQVDTDYN'  ,\n                                 'DQVDTPHYINT'  , 'PHYSICS'  , 'DQVDTPHY'  ,\n                                 'DQVDTANAINT'  , 'DYN'      , 'DQVDTANA'  ,\n                                 'DQVDTMSTINT'  , 'PHYSICS'  , 'DQVDTMST'  ,\n                                 'DQVDTTRBINT'  , 'PHYSICS'  , 'DQVDTTRB'  ,\n                                 'DQVDTCHMINT'  , 'PHYSICS'  , 'DQVDTCHM'  ,\n                                 'DQLDTDYNINT'  , 'DYN'      , 'DQLDTDYN'  ,\n                                 'DQLDTPHYINT'  , 'PHYSICS'  , 'DQLDTPHY'  ,\n                                 'DQLDTANAINT'  , 'DYN'      , 'DQLDTANA'  ,\n                                 'DQLDTMSTINT'  , 'PHYSICS'  , 'DQLDTMST'  ,\n                                 'DQIDTDYNINT'  , 'DYN'      , 'DQIDTDYN'  ,\n                                 'DQIDTPHYINT'  , 'PHYSICS'  , 'DQIDTPHY'  ,\n                                 'DQIDTANAINT'  , 'DYN'      , 'DQIDTANA'  ,\n                                 'DQIDTMSTINT'  , 'PHYSICS'  , 'DQIDTMST'  ,\n                                 'DOXDTDYNINT'  , 'DYN'      , 'DOXDTDYN'  ,\n                                 'DOXDTPHYINT'  , 'PHYSICS'  , 'DOXDTPHY'  ,\n                                 'DOXDTANAINT'  , 'DYN'      , 'DOXDTANA'  ,\n                                 'DOXDTCHMINT'  , 'PHYSICS'  , 'DOXDTCHM'  ,\n                                  ::\n\n  geosgcm_iau.template:          '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_iau.archive:           '%c/Y%y4' ,\n  geosgcm_iau.format:            'CFIO' ,\n  geosgcm_iau.deflate:            1 ,\n  geosgcm_iau.grid_label:         PC360x181-DC ,\n  geosgcm_iau.regrid_method:     'BILINEAR',\n  geosgcm_iau.mode:              'time-averaged' ,\n# geosgcm_iau.monthly:            1 ,\n  geosgcm_iau.frequency:          060000 ,\n  geosgcm_iau.ref_time:           030000 ,\n  geosgcm_iau.vscale:             100.0 ,\n  geosgcm_iau.vunit:             'hPa' ,\n  geosgcm_iau.vvars:             'log(PLE)' , 'DYN' ,\n  geosgcm_iau.levels:             1000 975 950 925 900 875 850 825 800 775 750 725 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 40 30 20 10 7 5 4 3 2 1 0.7 0.5 0.4 0.3 0.2 0.1 0.07 0.05 0.04 0.03 0.02 ,\n  geosgcm_iau.fields:            'DUDT_ANA;DVDT_ANA'  , 'AGCM'  , 'DUDTANA;DVDTANA'  ,\n                                 'DTDT_ANA'           , 'AGCM'  , 'DTDTANA'  ,\n                                 'DQVDT_ANA'          , 'AGCM'  , 'DQDTANA'  ,\n                                 'DMDTANA'            , 'DYN'   , 'DMDTANA'  ,\n                                 'DPSDT_CON'          , 'AGCM'  , 'DPDTCON'  ,\n                                 'DQVDT_CON'          , 'AGCM'  , 'DQDTCON'  ,\n                                  ::\n\n# Note: Be Sure to ADD: USE_SATSIM_MODIS: 1 in AGCM.rc for this Collection\n# ------------------------------------------------------------------------\n  geosgcm_conv.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_conv.archive:          '%c/Y%y4' ,\n  geosgcm_conv.format:           'CFIO' ,\n  geosgcm_conv.deflate:           1 ,\n  geosgcm_conv.grid_label:        PC360x181-DC ,\n  geosgcm_conv.regrid_method:    'BILINEAR',\n  geosgcm_conv.frequency:         010000 ,\n  geosgcm_conv.fields:           'TQV'          , 'AGCM'    ,\n                                 'TQI'          , 'AGCM'    ,\n                                 'TQL'          , 'AGCM'    ,\n                                 'CWP'          , 'MOIST'   ,\n                                 'LWP'          , 'MOIST'   ,\n                                 'IWP'          , 'MOIST'   ,\n                                 'SNO'          , 'MOIST'   , 'PRECSNO'  ,\n                                 'TPREC'        , 'MOIST'   , 'PRECTOT'  ,\n                                 'AN_PRCP'      , 'MOIST'   , 'PRECANV'  ,\n                                 'CN_PRCP'      , 'MOIST'   , 'PRECCON'  ,\n                                 'LS_PRCP'      , 'MOIST'   , 'PRECLSC'  ,\n                                 'CAPE'         , 'MOIST'   ,\n                                 'INHB'         , 'MOIST'   , 'CIN'      ,\n                                 'TBISCCP'      , 'SATSIM'  ,\n                                 'MDSCLDSZWTR'  , 'SATSIM'  ,\n                                 'MDSCLDSZICE'  , 'SATSIM'  ,\n                                  ::\n\n  geosgcm_bud.template:          '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_bud.archive:           '%c/Y%y4' ,\n  geosgcm_bud.format:            'CFIO' ,\n  geosgcm_bud.deflate:            1 ,\n  geosgcm_bud.grid_label:         PC360x181-DC ,\n  geosgcm_bud.regrid_method:     'BILINEAR',\n  geosgcm_bud.mode:              'time-averaged' ,\n  geosgcm_bud.frequency:          240000 ,\n  geosgcm_bud.ref_time:           210000 ,\n  geosgcm_bud.fields:            'PHIS'         , 'AGCM'        ,\n                                 'PS'           , 'DYN'         ,\n                                 'KEDYN'        , 'DYN'         ,\n                                 'PEDYN'        , 'DYN'         ,\n                                 'TEDYN'        , 'DYN'         ,\n                                 'KEPHY'        , 'DYN'         ,\n                                 'PEPHY'        , 'DYN'         ,\n                                 'TEPHY'        , 'DYN'         ,\n                                 'KEANA'        , 'DYN'         ,\n                                 'PEANA'        , 'DYN'         ,\n                                 'TEANA'        , 'DYN'         ,\n                                 'KEGEN'        , 'DYN'         ,\n                                 'KEGWD'        , 'GWD'         ,\n                                 'KERAY'        , 'GWD'         ,\n                                 'KEBKG'        , 'GWD'         ,\n                                 'KEORO'        , 'GWD'         ,\n                                 'KETRB'        , 'TURBULENCE'  ,\n                                 'KESRF'        , 'TURBULENCE'  ,\n                                 'KEINT'        , 'TURBULENCE'  ,\n                                 'KETOP'        , 'TURBULENCE'  ,\n                                 'KEMST'        , 'MOIST'       ,\n                                 'KECDCOR'      , 'DYN'         ,\n                                 'PECDCOR'      , 'DYN'         ,\n                                 'TECDCOR'      , 'DYN'         ,\n                                 'KEREMAP'      , 'DYN'         ,\n                                 'PEREMAP'      , 'DYN'         ,\n                                 'TEREMAP'      , 'DYN'         ,\n                                 'CONVKE'       , 'DYN'         ,\n                                 'CONVCPT'      , 'DYN'         ,\n                                 'CONVPHI'      , 'DYN'         ,\n                                 'CONVTHV'      , 'DYN'         ,\n                                 'KEADV'        , 'DYN'         ,\n                                 'KEPG'         , 'DYN'         ,\n                                 'KEDP'         , 'DYN'         ,\n                                 'KEHOT'        , 'DYN'         ,\n                                 'DKERESIN'     , 'DYN'         ,\n                                 'DKERESPG'     , 'DYN'         ,\n                                 'QFIXER'       , 'DYN'         ,\n                                 'DTHVDTREMAP'  , 'DYN'         ,\n                                 'DTHVDTCONSV'  , 'DYN'         ,\n                                  ::\n\n  goswim_catch.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  goswim_catch.archive:          '%c/Y%y4' ,\n  goswim_catch.format:           'CFIO' ,\n  goswim_catch.deflate:           1 ,\n  goswim_catch.regrid_name:      'PE90x540-CF' ,\n  goswim_catch.regrid_exch:      'tile.bin' ,\n  goswim_catch.grid_label:        PC360x181-DC ,\n  goswim_catch.regrid_method:    'BILINEAR',\n  goswim_catch.mode:             'time-averaged' ,\n  goswim_catch.frequency:         240000 ,\n  goswim_catch.ref_time:          210000 ,\n  goswim_catch.fields:           'SNDZN1'    , 'CATCH'  ,\n                                 'SNDZN2'    , 'CATCH'  ,\n                                 'SNDZN3'    , 'CATCH'  ,\n                                 'WESNN1'    , 'CATCH'  ,\n                                 'WESNN2'    , 'CATCH'  ,\n                                 'WESNN3'    , 'CATCH'  ,\n                                 'ASNOW'     , 'CATCH'  ,\n                                 'ALBVR'     , 'CATCH'  ,\n                                 'ALBVF'     , 'CATCH'  ,\n                                 'ALBNR'     , 'CATCH'  ,\n                                 'ALBNF'     , 'CATCH'  ,\n                                 'RUNSURF'   , 'CATCH'  ,\n                                 'BASEFLOW'  , 'CATCH'  ,\n                                 'SMELT'     , 'CATCH'  ,\n                                 'SMLAND'    , 'CATCH'  ,\n                                 'TPSNOW'    , 'CATCH'  ,\n                                 'TST'       , 'CATCH'  ,\n                                 'WET1'      , 'CATCH'  ,\n                                 'Z0'        , 'CATCH'  ,\n                                 'SWLAND'    , 'CATCH'  ,\n                                 'SWNDSRF'   , 'CATCH'  ,\n                                  ::\n\n  goswim_land.template:          '%y4%m2%d2_%h2%n2z.nc4' ,\n  goswim_land.archive:           '%c/Y%y4' ,\n  goswim_land.format:            'CFIO' ,\n  goswim_land.deflate:            1 ,\n  goswim_land.grid_label:         PC360x181-DC ,\n  goswim_land.regrid_method:     'BILINEAR',\n  goswim_land.mode:              'time-averaged' ,\n  goswim_land.frequency:          240000 ,\n  goswim_land.ref_time:           210000 ,\n  goswim_land.fields:            'RDU001'      , 'SURFACE'  ,\n                                 'RDU002'      , 'SURFACE'  ,\n                                 'RDU003'      , 'SURFACE'  ,\n                                 'RDU004'      , 'SURFACE'  ,\n                                 'RDU005'      , 'SURFACE'  ,\n                                 'RBC001'      , 'SURFACE'  ,\n                                 'RBC002'      , 'SURFACE'  ,\n                                 'ROC001'      , 'SURFACE'  ,\n                                 'ROC002'      , 'SURFACE'  ,\n                                 'RMELTDU001'  , 'SURFACE'  ,\n                                 'RMELTDU002'  , 'SURFACE'  ,\n                                 'RMELTDU003'  , 'SURFACE'  ,\n                                 'RMELTDU004'  , 'SURFACE'  ,\n                                 'RMELTDU005'  , 'SURFACE'  ,\n                                 'RMELTBC001'  , 'SURFACE'  ,\n                                 'RMELTBC002'  , 'SURFACE'  ,\n                                 'RMELTOC001'  , 'SURFACE'  ,\n                                 'RMELTOC002'  , 'SURFACE'  ,\n                                  ::\n\n  goswim_landice.template:       '%y4%m2%d2_%h2%n2z.nc4' ,\n  goswim_landice.archive:        '%c/Y%y4' ,\n  goswim_landice.format:         'CFIO' ,\n  goswim_landice.deflate:         1 ,\n  goswim_landice.regrid_name:    'PE90x540-CF'\n  goswim_landice.regrid_exch:    'tile.bin' ,\n  goswim_landice.grid_label:      PC360x181-DC ,\n  goswim_landice.regrid_method:  'BILINEAR',\n  goswim_landice.mode:           'time-averaged' ,\n  goswim_landice.frequency:       240000 ,\n  goswim_landice.ref_time:        210000 ,\n  goswim_landice.fields:         'IRDU001'  , 'LANDICE'  ,\n                                 'IRDU002'  , 'LANDICE'  ,\n                                 'IRDU003'  , 'LANDICE'  ,\n                                 'IRDU004'  , 'LANDICE'  ,\n                                 'IRDU005'  , 'LANDICE'  ,\n                                 'IRBC001'  , 'LANDICE'  ,\n                                 'IRBC002'  , 'LANDICE'  ,\n                                 'IROC001'  , 'LANDICE'  ,\n                                 'IROC002'  , 'LANDICE'  ,\n                                  ::\n\n#                     ---------------------\n#                     Aerosols/Constituents\n#                     ---------------------\n#\n#\n#### GOCART\n\n  tavg2d_aer_x.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  tavg2d_aer_x.archive:        '%c/Y%y4',\n  tavg2d_aer_x.format:         'CFIO',\n  tavg2d_aer_x.deflate:         1,\n  tavg2d_aer_x.grid_label:      PC360x181-DC,\n  tavg2d_aer_x.mode:           'time-averaged',\n  tavg2d_aer_x.monthly:         1,\n# tavg2d_aer_x.frequency:       240000,\n# tavg2d_aer_x.ref_time:        210000,\n  tavg2d_aer_x.regrid_method:   'CONSERVE',\n  tavg2d_aer_x.splitField:      1,\n  tavg2d_aer_x.fields:         'LWI'            , 'SURFACE'   ,\n                               'TOTEXTTAU'      , 'GOCART2G'  ,\n                               'TOTSCATAU'      , 'GOCART2G'  ,\n                               'TOTANGSTR'      , 'GOCART2G'  ,\n                               'TOTSTEXTTAU'    , 'GOCART2G'  ,\n                               'TOTSTSCATAU'    , 'GOCART2G'  ,\n                               'DUEM'           , 'DU'        , 'DUEM001;DUEM002;DUEM003;DUEM004;DUEM005' ,\n                               'DUSD'           , 'DU'        , 'DUSD001;DUSD002;DUSD003;DUSD004;DUSD005' ,\n                               'DUDP'           , 'DU'        , 'DUDP001;DUDP002;DUDP003;DUDP004;DUDP005' ,\n                               'DUWT'           , 'DU'        , 'DUWT001;DUWT002;DUWT003;DUWT004;DUWT005' ,\n                               'DUSMASS'        , 'DU'        ,\n                               'DUCMASS'        , 'DU'        ,\n                               'DUEXTTAU'       , 'DU'        ,\n                               'DUSCATAU'       , 'DU'        ,\n                               'DUSTEXTTAU'     , 'DU'        ,\n                               'DUSTSCATAU'     , 'DU'        ,\n                               'DUANGSTR'       , 'DU'        ,\n                               'DUEXTTFM'       , 'DU'        ,\n                               'DUSCATFM'       , 'DU'        ,\n                               'DUSMASS25'      , 'DU'        ,\n                               'DUCMASS25'      , 'DU'        ,\n                               'DUEXTT25'       , 'DU'        ,\n                               'DUSCAT25'       , 'DU'        ,\n                               'DUAERIDX'       , 'DU'        ,\n                               'DUFLUXU'        , 'DU'        ,\n                               'DUFLUXV'        , 'DU'        ,\n                               'SSEM'           , 'SS'        , 'SSEM001;SSEM002;SSEM003;SSEM004;SSEM005' ,\n                               'SSSD'           , 'SS'        , 'SSSD001;SSSD002;SSSD003;SSSD004;SSSD005' ,\n                               'SSDP'           , 'SS'        , 'SSDP001;SSDP002;SSDP003;SSDP004;SSDP005' ,\n                               'SSWT'           , 'SS'        , 'SSWT001;SSWT002;SSWT003;SSWT004;SSWT005' ,\n                               'SSSMASS'        , 'SS'        ,\n                               'SSCMASS'        , 'SS'        ,\n                               'SSEXTTAU'       , 'SS'        ,\n                               'SSSCATAU'       , 'SS'        ,\n                               'SSSTEXTTAU'     , 'SS'        ,\n                               'SSSTSCATAU'     , 'SS'        ,\n                               'SSANGSTR'       , 'SS'        ,\n                               'SSEXTTFM'       , 'SS'        ,\n                               'SSSCATFM'       , 'SS'        ,\n                               'SSSMASS25'      , 'SS'        ,\n                               'SSCMASS25'      , 'SS'        ,\n                               'SSEXTT25'       , 'SS'        ,\n                               'SSSCAT25'       , 'SS'        ,\n                               'SSAERIDX'       , 'SS'        ,\n                               'SSFLUXU'        , 'SS'        ,\n                               'SSFLUXV'        , 'SS'        ,\n                               'SUEM'           , 'SU'        ,\n                               'SUDP'           , 'SU'        ,\n                               'SUWT'           , 'SU'        ,\n                               'SUSD'           , 'SU'        ,\n                               'SO2SMASS'       , 'SU'        ,\n                               'SO2CMASS'       , 'SU'        ,\n                               'SO4SMASS'       , 'SU'        ,\n                               'SO4CMASS'       , 'SU'        ,\n                               'DMSSMASS'       , 'SU'        ,\n                               'DMSCMASS'       , 'SU'        ,\n                               'SUPSO2'         , 'SU'        ,\n                               'SUPSO4G'        , 'SU'        ,\n                               'SUPSO4AQ'       , 'SU'        ,\n                               'SUPSO4WT'       , 'SU'        ,\n                               'SUPMSA'         , 'SU'        ,\n                               'SUEXTTAU'       , 'SU'        ,\n                               'SUSCATAU'       , 'SU'        ,\n                               'SUSTEXTTAU'     , 'SU'        ,\n                               'SUSTSCATAU'     , 'SU'        ,\n                               'SUANGSTR'       , 'SU'        ,\n                               'SO4EMAN'        , 'SU'        ,\n                               'SO2EMAN'        , 'SU'        ,\n                               'SO2EMBB'        , 'SU'        ,\n                               'SO2EMVN'        , 'SU'        ,\n                               'SO2EMVE'        , 'SU'        ,\n                               'SUFLUXU'        , 'SU'        ,\n                               'SUFLUXV'        , 'SU'        ,\n                               'CA.bcEM'        , 'CA.bc'     , 'BCEM001;BCEM002' ,\n                               'CA.bcDP'        , 'CA.bc'     , 'BCDP001;BCDP002' ,\n                               'CA.bcWT'        , 'CA.bc'     , 'BCWT001;BCWT002' ,\n#                              'CA.bcSD'        , 'CA.bc'     , 'BCSD001;BCSD002' ,\n                               'CA.bcSMASS'     , 'CA.bc'     , 'BCSMASS'     ,\n                               'CA.bcCMASS'     , 'CA.bc'     , 'BCCMASS'     ,\n                               'CA.bcEXTTAU'    , 'CA.bc'     , 'BCEXTTAU'    ,\n                               'CA.bcSCATAU'    , 'CA.bc'     , 'BCSCATAU'    ,\n                               'CA.bcSTEXTTAU'  , 'CA.bc'     , 'BCSTEXTTAU'  ,\n                               'CA.bcSTSCATAU'  , 'CA.bc'     , 'BCSTSCATAU'  ,\n                               'CA.bcANGSTR'    , 'CA.bc'     , 'BCANGSTR'    ,\n                               'CA.bcHYPHIL'    , 'CA.bc'     , 'BCHYPHIL'    ,\n                               'CA.bcEMBB'      , 'CA.bc'     , 'BCEMBB'      ,\n                               'CA.bcEMBF'      , 'CA.bc'     , 'BCEMBF'      ,\n                               'CA.bcEMAN'      , 'CA.bc'     , 'BCEMAN'      ,\n                               'CA.bcFLUXU'     , 'CA.bc'     , 'BCFLUXU'     ,\n                               'CA.bcFLUXV'     , 'CA.bc'     , 'BCFLUXV'     ,\n                               'CA.ocEM'        , 'CA.oc'     , 'OCEM001;OCEM002' ,\n                               'CA.ocDP'        , 'CA.oc'     , 'OCDP001;OCDP002' ,\n                               'CA.ocWT'        , 'CA.oc'     , 'OCWT001;OCWT002' ,\n#                              'CA.ocSD'        , 'CA.oc'     , 'OCSD001;OCSD002' ,\n                               'CA.ocSMASS'     , 'CA.oc'     , 'OCSMASS'     ,\n                               'CA.ocCMASS'     , 'CA.oc'     , 'OCCMASS'     ,\n                               'CA.ocEXTTAU'    , 'CA.oc'     , 'OCEXTTAU'    ,\n                               'CA.ocSCATAU'    , 'CA.oc'     , 'OCSCATAU'    ,\n                               'CA.ocSTEXTTAU'  , 'CA.oc'     , 'OCSTEXTTAU'  ,\n                               'CA.ocSTSCATAU'  , 'CA.oc'     , 'OCSTSCATAU'  ,\n                               'CA.ocANGSTR'    , 'CA.oc'     , 'OCANGSTR'    ,\n                               'CA.ocEMBB'      , 'CA.oc'     , 'OCEMBB'      ,\n                               'CA.ocEMBF'      , 'CA.oc'     , 'OCEMBF'      ,\n                               'CA.ocEMAN'      , 'CA.oc'     , 'OCEMAN'      ,\n                               'CA.ocEMBG'      , 'CA.oc'     , 'OCEMBG'      ,\n                               'CA.ocPSOA'      , 'CA.oc'     , 'OCPSOA'      ,\n                               'CA.ocHYPHIL'    , 'CA.oc'     , 'OCHYPHIL'    ,\n                               'CA.ocFLUXU'     , 'CA.oc'     , 'OCFLUXU'     ,\n                               'CA.ocFLUXV'     , 'CA.oc'     , 'OCFLUXV'     ,\n                               'CA.brEM'        , 'CA.br'     , 'BREM001;BREM002' ,\n                               'CA.brDP'        , 'CA.br'     , 'BRDP001;BRDP002' ,\n                               'CA.brWT'        , 'CA.br'     , 'BRWT001;BRWT002' ,\n#                              'CA.brSD'        , 'CA.br'     , 'BRSD001;BRSD002' ,\n                               'CA.brSMASS'     , 'CA.br'     , 'BRSMASS'     ,\n                               'CA.brCMASS'     , 'CA.br'     , 'BRCMASS'     ,\n                               'CA.brEXTTAU'    , 'CA.br'     , 'BREXTTAU'    ,\n                               'CA.brSCATAU'    , 'CA.br'     , 'BRSCATAU'    ,\n                               'CA.brSTEXTTAU'  , 'CA.br'     , 'BRSTEXTTAU'  ,\n                               'CA.brSTSCATAU'  , 'CA.br'     , 'BRSTSCATAU'  ,\n                               'CA.brANGSTR'    , 'CA.br'     , 'BRANGSTR'    ,\n                               'CA.brPSOA'      , 'CA.br'     , 'BRPSOA'      ,\n                               'CA.brHYPHIL'    , 'CA.br'     , 'BRHYPHIL'    ,\n                               'CA.brEMBB'      , 'CA.br'     , 'BREMBB'      ,\n                               'CA.brEMBF'      , 'CA.br'     , 'BREMBF'      ,\n                               'CA.brEMAN'      , 'CA.br'     , 'BREMAN'      ,\n                               'CA.brFLUXU'     , 'CA.br'     , 'BRFLUXU'     ,\n                               'CA.brFLUXV'     , 'CA.br'     , 'BRFLUXV'     ,\n                               'HNO3SMASS'      , 'NI'        ,\n                               'NH3SMASS'       , 'NI'        ,\n                               'NH4SMASS'       , 'NI'        ,\n                               'NISMASS'        , 'NI'        ,\n                               'NISMASS25'      , 'NI'        ,\n                               'HNO3CMASS'      , 'NI'        ,\n                               'NH3CMASS'       , 'NI'        ,\n                               'NH4CMASS'       , 'NI'        ,\n                               'NICMASS'        , 'NI'        ,\n                               'NICMASS25'      , 'NI'        ,\n                               'NIEXTTFM'       , 'NI'        ,\n                               'NISCATFM'       , 'NI'        ,\n                               'NIEXTTAU'       , 'NI'        ,\n                               'NISCATAU'       , 'NI'        ,\n                               'NIANGSTR'       , 'NI'        ,\n                               'NIPNO3AQ'       , 'NI'        ,\n                               'NIPNH4AQ'       , 'NI'        ,\n                               'NIPNH3AQ'       , 'NI'        ,\n                               'NIHT'           , 'NI'        ,\n                               'NISD'           , 'NI'        ,\n                               'NIDP'           , 'NI'        ,\n                               'NIWT'           , 'NI'        ,\n                               'NH3EM'          , 'NI'        ,\n                               'NH3DP'          , 'NI'        ,\n                               'NH3WT'          , 'NI'        ,\n                               'NH4SD'          , 'NI'        ,\n                               'NH4DP'          , 'NI'        ,\n                               'NH4WT'          , 'NI'        ,\n                               'NIFLUXU'        , 'NI'        ,\n                               'NIFLUXV'        , 'NI'        ,\n                               'DDU2gDT'        , 'MOIST'     ,  'DUSV'    ,\n                               'DSS2gDT'        , 'MOIST'     ,  'SSSV'    ,\n                               'DOC2gDT'        , 'MOIST'     ,  'OCSV'    ,\n                               'DBC2gDT'        , 'MOIST'     ,  'BCSV'    ,\n                               'DSU2gDT'        , 'MOIST'     ,  'SUSV'    ,\n                               'DNI2gDT'        , 'MOIST'     ,  'NISV'    ,\n                               'DBRC2gDT'       , 'MOIST'     ,  'BRSV'    ,\n                               'NH3SV'          , 'NI'        ,\n                               'NH4SV'          , 'NI'        ,\n                                ::\n\n  tavg3d_aer_p.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  tavg3d_aer_p.archive:        '%c/Y%y4',\n  tavg3d_aer_p.format:         'CFIO',\n  tavg3d_aer_p.deflate:         1,\n  tavg3d_aer_p.grid_label:      PC360x181-DC,\n  tavg3d_aer_p.mode:           'time-averaged',\n  tavg3d_aer_p.monthly:         1,\n# tavg3d_aer_p.frequency:       240000,\n# tavg3d_aer_p.ref_time:        210000,\n  tavg3d_aer_p.regrid_method:   'CONSERVE',\n  tavg3d_aer_p.splitField:      1,\n  tavg3d_aer_p.vscale:          100.0,\n  tavg3d_aer_p.vunit:          'hPa',\n  tavg3d_aer_p.vvars:          'log(PLE)'    , 'DYN'        ,\n  tavg3d_aer_p.levels:          1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 30 20 10,\n tavg3d_aer_p.fields:         'PS'          , 'DYN'        , 'PS'        ,\n                              'LWI'         , 'SURFACE'    , 'LWI'       ,\n                              'AIRDENS'     , 'CHEMENV'    ,\n                              'ZL'          , 'DYN'        , 'H'         ,\n                              'DUMASS'      , 'DU'         , 'DU'        ,\n                              'SSMASS'      , 'SS'         , 'SS'        ,\n                              'CA.bcMASS'        , 'CA.bc'    , 'BC'         ,\n                              'CA.ocMASS'        , 'CA.oc'    , 'OC'         ,\n                              'CA.brMASS'        , 'CA.br'    , 'BR'         ,\n                              'SO2'         , 'SU'         , \n                              'SO4'         , 'SU'         , \n                              'NH3MASS'     , 'NI'         , 'NH3'       ,\n                              'NH4MASS'     , 'NI'         , 'NH4'       ,\n                              'NIMASS'      , 'NI'         , 'NI'        ,\n                              'HNO3CONC'    , 'NI'         ,\n                              'NICONC'      , 'NI'         ,\n                              'DUEXTCOEF'   , 'DU'         , \n                              'SSEXTCOEF'   , 'SS'         , \n                              'SUEXTCOEF'   , 'SU'         , \n                              'NIEXTCOEF'   , 'NI'         , \n                              'CA.bcEXTCOEF'     , 'CA.bc'    , 'BCEXTCOEF'  ,\n                              'CA.brEXTCOEF'     , 'CA.br'    , 'BREXTCOEF'  ,\n                              'CA.ocEXTCOEF'     , 'CA.oc'    , 'OCEXTCOEF'  ,\n                              'ACHEM::VOC'      , 'ACHEM'      , 'VOC'       ,\n                              'ACHEM::VOCbiob'  , 'ACHEM'      , 'VOCbiob'   ,\n                              'pSOA_ANTHRO_VOC' , 'ACHEM', 'pSOA'        ,\n                              'pSOA_BIOB_VOC'   , 'ACHEM', 'pSOAbiob'    ,\n                              'GOCART::CO'      , 'GOCART','CO'        ,\n                               ::\n\n  geosgcm_tracer.template:       '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_tracer.archive:        '%c/Y%y4' ,\n  geosgcm_tracer.format:         'CFIO' ,\n  geosgcm_tracer.deflate:         1 ,\n  geosgcm_tracer.grid_label:      PC360x181-DC ,\n  geosgcm_tracer.regrid_method:  'BILINEAR',\n  geosgcm_tracer.mode:           'time-averaged' ,\n  geosgcm_tracer.monthly:         1 ,\n# geosgcm_tracer.frequency:       240000 ,\n# geosgcm_tracer.ref_time:        210000 ,\n  geosgcm_tracer.vscale:          100.0 ,\n  geosgcm_tracer.vunit:          'hPa' ,\n  geosgcm_tracer.vvars:          'log(PLE)' , 'DYN' ,\n  geosgcm_tracer.levels:          1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 85 70 50 30 20 10 7 5 3 2 1 0.7 0.5 0.3 0.2 0.1 ,\n  geosgcm_tracer.fields:         'PS'                  , 'DYN'      ,\n                                 'AIRDENS'             , 'CHEMENV'  ,\n                                 'aoa'                 , 'TR'       ,\n                                 'e90'                 , 'TR'       ,\n                                 'Rn222'               , 'TR'       ,\n                                 'CH3I'                , 'TR'       ,\n#                                'Be7'                 , 'TR'       ,\n#                                'EM_Be7'              , 'TR'       ,\n#                                'STtend_Be7'          , 'TR'       ,\n#                                'DDtend_Be7*(-1)'     , 'TR'       , 'DD_Be7' ,\n#                                'WRtend_Be7'          , 'TR'       ,\n#                                'WRtendVsum_Be7*(-1)' , 'TR'       , 'WD_Be7' ,\n#                                'DKtend_Be7*(-1)'     , 'TR'       , 'DK_Be7' ,\n#                                'CVtend_Be7'          , 'TR'       ,\n                                  ::\n\n  geosgcm_lidar.template:        '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_lidar.archive:         '%c/Y%y4' ,\n  geosgcm_lidar.format:          'CFIO' ,\n  geosgcm_lidar.deflate:          1 ,\n  geosgcm_lidar.grid_label:       PC360x181-DC ,\n  geosgcm_lidar.regrid_method:   'BILINEAR',\n  geosgcm_lidar.mode:            'time-averaged' ,\n  geosgcm_lidar.frequency:        030000 ,\n  geosgcm_lidar.ref_time:         210000 ,\n  geosgcm_lidar.vunit:           'm' ,\n  geosgcm_lidar.vvars:           'ZL' , 'DYN' ,\n  geosgcm_lidar.levels:           240 720 1200 1680 2160 2640 3120 3600 4080 4560 5040 5520 6000 6480 6960 7440 7920 8400 8880 9360 9840 10320 10800 11280 11760 12240 12720 13200 13680 14160 14640 15120 15600 16080 16560 17040 17520 18000 18480 18960 ,\n  geosgcm_lidar.fields:          'LIDARPMOL'          , 'SATSIM'  ,\n                                 'LIDARPTOT'          , 'SATSIM'  ,\n                                 'LIDARTAUTOT'        , 'SATSIM'  ,\n                                 'CLLS'               , 'MOIST'   ,\n                                 'FCLD'               , 'MOIST'   ,\n                                 'CLCALIPSO2'         , 'SATSIM'  ,\n                                 'CLLCALIPSO'         , 'SATSIM'  ,\n                                 'CLMCALIPSO'         , 'SATSIM'  ,\n                                 'CLHCALIPSO'         , 'SATSIM'  ,\n                                 'CLTCALIPSO'         , 'SATSIM'  ,\n                                 'CFADLIDARSR532_01'  , 'SATSIM'  , 'CFADLDRSR532_01'  ,\n                                 'CFADLIDARSR532_02'  , 'SATSIM'  , 'CFADLDRSR532_02'  ,\n                                 'CFADLIDARSR532_03'  , 'SATSIM'  , 'CFADLDRSR532_03'  ,\n                                 'CFADLIDARSR532_04'  , 'SATSIM'  , 'CFADLDRSR532_04'  ,\n                                 'CFADLIDARSR532_05'  , 'SATSIM'  , 'CFADLDRSR532_05'  ,\n                                 'CFADLIDARSR532_06'  , 'SATSIM'  , 'CFADLDRSR532_06'  ,\n                                 'CFADLIDARSR532_07'  , 'SATSIM'  , 'CFADLDRSR532_07'  ,\n                                 'CFADLIDARSR532_08'  , 'SATSIM'  , 'CFADLDRSR532_08'  ,\n                                 'CFADLIDARSR532_09'  , 'SATSIM'  , 'CFADLDRSR532_09'  ,\n                                 'CFADLIDARSR532_10'  , 'SATSIM'  , 'CFADLDRSR532_10'  ,\n                                 'CFADLIDARSR532_11'  , 'SATSIM'  , 'CFADLDRSR532_11'  ,\n                                 'CFADLIDARSR532_12'  , 'SATSIM'  , 'CFADLDRSR532_12'  ,\n                                 'CFADLIDARSR532_13'  , 'SATSIM'  , 'CFADLDRSR532_13'  ,\n                                 'CFADLIDARSR532_14'  , 'SATSIM'  , 'CFADLDRSR532_14'  ,\n                                 'CFADLIDARSR532_15'  , 'SATSIM'  , 'CFADLDRSR532_15'  ,\n                                 'CLDTMP'             , 'SOLAR'   , 'SWCLDTMP'         ,\n                                 'CLDPRS'             , 'SOLAR'   , 'SWCLDPRS'         ,\n                                 'OSR'                , 'SOLAR'   ,\n                                 'SLRTP'              , 'SOLAR'   , 'RADSWT'           ,\n                                  ::\n\n  geosgcm_parasol.template:      '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_parasol.archive:       '%c/Y%y4' ,\n  geosgcm_parasol.format:        'CFIO' ,\n  geosgcm_parasol.deflate:        1 ,\n  geosgcm_parasol.grid_label:     PC360x181-DC ,\n  geosgcm_parasol.regrid_method: 'BILINEAR',\n  geosgcm_parasol.mode:          'time-averaged' ,\n  geosgcm_parasol.frequency:      030000 ,\n  geosgcm_parasol.ref_time:       210000 ,\n  geosgcm_parasol.fields:        'PARASOLREFL1'  , 'SATSIM'  ,\n                                 'PARASOLREFL2'  , 'SATSIM'  ,\n                                 'PARASOLREFL3'  , 'SATSIM'  ,\n                                 'PARASOLREFL4'  , 'SATSIM'  ,\n                                 'PARASOLREFL5'  , 'SATSIM'  ,\n                                  ::\n\n  geosgcm_radar.template:        '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_radar.archive:         '%c/Y%y4' ,\n  geosgcm_radar.format:          'CFIO' ,\n  geosgcm_radar.deflate:          1 ,\n  geosgcm_radar.grid_label:       PC360x181-DC ,\n  geosgcm_radar.regrid_method:   'BILINEAR',\n  geosgcm_radar.mode:            'time-averaged' ,\n  geosgcm_radar.frequency:        030000 ,\n  geosgcm_radar.ref_time:         210000 ,\n  geosgcm_radar.vunit:           'm' ,\n  geosgcm_radar.vvars:           'ZL' , 'DYN' ,\n  geosgcm_radar.levels:           240 720 1200 1680 2160 2640 3120 3600 4080 4560 5040 5520 6000 6480 6960 7440 7920 8400 8880 9360 9840 10320 10800 11280 11760 12240 12720 13200 13680 14160 14640 15120 15600 16080 16560 17040 17520 18000 18480 18960 ,\n  geosgcm_radar.fields:          'RADARLTCC'       , 'SATSIM'  ,\n                                 'CLCALIPSO2'      , 'SATSIM'  ,\n                                 'CLCALIPSO'       , 'SATSIM'  ,\n                                 'CLOUDSATCFAD01'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD02'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD03'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD04'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD05'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD06'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD07'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD08'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD09'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD10'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD11'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD12'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD13'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD14'  , 'SATSIM'  ,\n                                 'CLOUDSATCFAD15'  , 'SATSIM'  ,\n                                 'CLLS'            , 'MOIST'   ,\n                                 'FCLD'            , 'MOIST'   ,\n                                 'QLLS'            , 'MOIST'   ,\n                                 'QILS'            , 'MOIST'   ,\n                                 'RI'              , 'MOIST'   , 'RDFI'      ,\n                                 'RL'              , 'MOIST'   , 'RDFL'      ,\n                                 'SGFCLD'          , 'SATSIM'  ,\n                                 'CLDTMP'          , 'SOLAR'   , 'SWCLDTMP'  ,\n                                 'CLDPRS'          , 'SOLAR'   , 'SWCLDPRS'  ,\n                                 'OSR'             , 'SOLAR'   ,\n                                 'SLRTP'           , 'SOLAR'   , 'RADSWT'    ,\n                                  ::\n\n  geosgcm_isccp.template:        '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_isccp.archive:         '%c/Y%y4' ,\n  geosgcm_isccp.format:          'CFIO' ,\n  geosgcm_isccp.deflate:          1 ,\n  geosgcm_isccp.grid_label:       PC360x181-DC ,\n  geosgcm_isccp.regrid_method:   'BILINEAR',\n  geosgcm_isccp.mode:            'time-averaged' ,\n  geosgcm_isccp.frequency:        030000 ,\n  geosgcm_isccp.ref_time:         210000 ,\n  geosgcm_isccp.fields:          'SGFCLD'         , 'SATSIM'  ,\n                                 'TCLISCCP'       , 'SATSIM'  ,\n                                 'ALBISCCP'       , 'SATSIM'  ,\n                                 'CTPISCCP'       , 'SATSIM'  ,\n                                 'ISCCP_CU_OA'    , 'SATSIM'  ,\n                                 'ISCCP_CU_OB'    , 'SATSIM'  ,\n                                 'ISCCP_CU_UA'    , 'SATSIM'  ,\n                                 'ISCCP_CU_UB'    , 'SATSIM'  ,\n                                 'ISCCP_STCU_OA'  , 'SATSIM'  ,\n                                 'ISCCP_STCU_OB'  , 'SATSIM'  ,\n                                 'ISCCP_STCU_UA'  , 'SATSIM'  ,\n                                 'ISCCP_STCU_UB'  , 'SATSIM'  ,\n                                 'ISCCP_ST_OA'    , 'SATSIM'  ,\n                                 'ISCCP_ST_OB'    , 'SATSIM'  ,\n                                 'ISCCP_ST_UA'    , 'SATSIM'  ,\n                                 'ISCCP_ST_UB'    , 'SATSIM'  ,\n                                 'ISCCP_ACU_OA'   , 'SATSIM'  ,\n                                 'ISCCP_ACU_OB'   , 'SATSIM'  ,\n                                 'ISCCP_ACU_UA'   , 'SATSIM'  ,\n                                 'ISCCP_ACU_UB'   , 'SATSIM'  ,\n                                 'ISCCP_AST_OA'   , 'SATSIM'  ,\n                                 'ISCCP_AST_OB'   , 'SATSIM'  ,\n                                 'ISCCP_AST_UA'   , 'SATSIM'  ,\n                                 'ISCCP_AST_UB'   , 'SATSIM'  ,\n                                 'ISCCP_NST_OA'   , 'SATSIM'  ,\n                                 'ISCCP_NST_OB'   , 'SATSIM'  ,\n                                 'ISCCP_NST_UA'   , 'SATSIM'  ,\n                                 'ISCCP_NST_UB'   , 'SATSIM'  ,\n                                 'ISCCP_CI_OA'    , 'SATSIM'  ,\n                                 'ISCCP_CI_OB'    , 'SATSIM'  ,\n                                 'ISCCP_CI_MA'    , 'SATSIM'  ,\n                                 'ISCCP_CI_MB'    , 'SATSIM'  ,\n                                 'ISCCP_CI_UA'    , 'SATSIM'  ,\n                                 'ISCCP_CI_UB'    , 'SATSIM'  ,\n                                 'ISCCP_CIST_OA'  , 'SATSIM'  ,\n                                 'ISCCP_CIST_OB'  , 'SATSIM'  ,\n                                 'ISCCP_CIST_MA'  , 'SATSIM'  ,\n                                 'ISCCP_CIST_MB'  , 'SATSIM'  ,\n                                 'ISCCP_CIST_UA'  , 'SATSIM'  ,\n                                 'ISCCP_CIST_UB'  , 'SATSIM'  ,\n                                 'ISCCP_CB_OA'    , 'SATSIM'  ,\n                                 'ISCCP_CB_OB'    , 'SATSIM'  ,\n                                 'ISCCP_CB_MA'    , 'SATSIM'  ,\n                                 'ISCCP_CB_MB'    , 'SATSIM'  ,\n                                 'ISCCP_CB_UA'    , 'SATSIM'  ,\n                                 'ISCCP_CB_UB'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV1'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV2'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV3'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV4'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV5'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV6'    , 'SATSIM'  ,\n                                 'ISCCP_SUBV7'    , 'SATSIM'  ,\n                                 'CLLS'           , 'MOIST'   ,\n                                 'FCLD'           , 'MOIST'   ,\n                                 'CLDTMP'         , 'SOLAR'   , 'SWCLDTMP'  ,\n                                 'CLDPRS'         , 'SOLAR'   , 'SWCLDPRS'  ,\n                                 'OSR'            , 'SOLAR'   ,\n                                 'SLRTP'          , 'SOLAR'   , 'RADSWT'    ,\n                                  ::\n\n  geosgcm_modis.template:        '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_modis.archive:         '%c/Y%y4' ,\n  geosgcm_modis.format:          'CFIO' ,\n  geosgcm_modis.deflate:          1 ,\n  geosgcm_modis.grid_label:       PC360x181-DC ,\n  geosgcm_modis.regrid_method:   'BILINEAR',\n  geosgcm_modis.mode:            'time-averaged' ,\n  geosgcm_modis.frequency:        030000 ,\n  geosgcm_modis.ref_time:         210000 ,\n  geosgcm_modis.fields:          'TCLISCCP'         , 'SATSIM'  ,\n                                 'MDSCLDFRCTTL'     , 'SATSIM'  ,\n                                 'MDSCLDFRCWTR'     , 'SATSIM'  ,\n                                 'MDSCLDFRCICE'     , 'SATSIM'  ,\n                                 'MDSCLDFRCHI'      , 'SATSIM'  ,\n                                 'MDSCLDFRCMID'     , 'SATSIM'  ,\n                                 'MDSCLDFRCLO'      , 'SATSIM'  ,\n                                 'MDSOPTHCKTTL'     , 'SATSIM'  ,\n                                 'MDSOPTHCKWTR'     , 'SATSIM'  ,\n                                 'MDSOPTHCKICE'     , 'SATSIM'  ,\n                                 'MDSOPTHCKTTLLG'   , 'SATSIM'  ,\n                                 'MDSOPTHCKWTRLG'   , 'SATSIM'  ,\n                                 'MDSOPTHCKICELG'   , 'SATSIM'  ,\n                                 'MDSCLDSZWTR'      , 'SATSIM'  ,\n                                 'MDSCLDSZICE'      , 'SATSIM'  ,\n                                 'MDSCLDTOPPS'      , 'SATSIM'  ,\n                                 'MDSWTRPATH'       , 'SATSIM'  ,\n                                 'MDSICEPATH'       , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST11'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST12'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST13'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST14'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST15'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST16'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST17'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST21'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST22'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST23'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST24'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST25'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST26'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST27'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST31'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST32'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST33'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST34'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST35'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST36'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST37'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST41'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST42'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST43'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST44'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST45'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST46'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST47'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST51'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST52'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST53'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST54'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST55'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST56'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST57'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST61'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST62'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST63'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST64'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST65'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST66'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST67'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST71'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST72'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST73'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST74'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST75'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST76'  , 'SATSIM'  ,\n                                 'MDSTAUPRSHIST77'  , 'SATSIM'  ,\n                                 'CLDTMP'           , 'SOLAR'   , 'SWCLDTMP'  ,\n                                 'CLDPRS'           , 'SOLAR'   , 'SWCLDPRS'  ,\n                                 'OSR'              , 'SOLAR'   ,\n                                 'SLRTP'            , 'SOLAR'   , 'RADSWT'    ,\n                                  ::\n\n  geosgcm_misr.template:         '%y4%m2%d2_%h2%n2z.nc4' ,\n  geosgcm_misr.archive:          '%c/Y%y4' ,\n  geosgcm_misr.format:           'CFIO' ,\n  geosgcm_misr.deflate:           1 ,\n  geosgcm_misr.grid_label:        PC360x181-DC ,\n  geosgcm_misr.regrid_method:    'BILINEAR',\n  geosgcm_misr.mode:             'time-averaged' ,\n  geosgcm_misr.frequency:         030000 ,\n  geosgcm_misr.ref_time:          210000 ,\n  geosgcm_misr.fields:           'TCLISCCP'        , 'SATSIM'  ,\n                                 'MISRMNCLDTP'     , 'SATSIM'  ,\n                                 'MISRCLDAREA'     , 'SATSIM'  ,\n                                 'MISRLYRTP0'      , 'SATSIM'  ,\n                                 'MISRLYRTP250'    , 'SATSIM'  ,\n                                 'MISRLYRTP750'    , 'SATSIM'  ,\n                                 'MISRLYRTP1250'   , 'SATSIM'  ,\n                                 'MISRLYRTP1750'   , 'SATSIM'  ,\n                                 'MISRLYRTP2250'   , 'SATSIM'  ,\n                                 'MISRLYRTP2750'   , 'SATSIM'  ,\n                                 'MISRLYRTP3500'   , 'SATSIM'  ,\n                                 'MISRLYRTP4500'   , 'SATSIM'  ,\n                                 'MISRLYRTP6000'   , 'SATSIM'  ,\n                                 'MISRLYRTP8000'   , 'SATSIM'  ,\n                                 'MISRLYRTP10000'  , 'SATSIM'  ,\n                                 'MISRLYRTP12000'  , 'SATSIM'  ,\n                                 'MISRLYRTP14000'  , 'SATSIM'  ,\n                                 'MISRLYRTP16000'  , 'SATSIM'  ,\n                                 'MISRLYRTP18000'  , 'SATSIM'  ,\n                                  ::\n# Emissions (see HEMCO_Diagn.rc for additional config settings)\n  Emissions.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Emissions.format:         'CFIO',\n  Emissions.timestampStart: .true.\n  Emissions.monthly:         1\n  Emissions.frequency:       010000\n  Emissions.duration:        010000\n  Emissions.mode:            'time-averaged'\n  Emissions.fields:    'EmisRn_Soil                 ', 'GEOSCHEMCHEM',\n                       'EmisBe7_Cosmic              ', 'GEOSCHEMCHEM',\n                       'EmisBe7s_Cosmic             ', 'GEOSCHEMCHEM',\n                       'EmisBe10_Cosmic             ', 'GEOSCHEMCHEM',\n                       'EmisBe10s_Cosmic            ', 'GEOSCHEMCHEM',\n                       'EmisSF6                     ', 'GEOSCHEMCHEM',\n                       'EmisCH3I                    ', 'GEOSCHEMCHEM',\n                       'EmisCO_25                   ', 'GEOSCHEMCHEM',\n                       'EmisCO_50                   ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n# Budget defined as species kg/s in the column (full, troposphere, or PBL) \n# due to a single component (e.g. chemistry); default = ozone only; add more \n# species as needed to the example below (advected only)\n  Budget.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.format:         'CFIO',\n  Budget.timestampStart: .true.\n  Budget.monthly:        1\n  Budget.frequency:      010000\n  Budget.duration:       010000\n  Budget.mode:           'time-averaged'\n  Budget.fields:    'BudgetChemistryFull_Rn222              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_Pb210              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_Pb210s             ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_Be7                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_Be7s               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_Be10               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_Be10s              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_CH3I               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_CO_25              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_CO_50              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_e90                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_e90_n              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_e90_s              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_nh_5               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_nh_50              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_PassiveTracer      ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_SF6                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryFull_st80_25            ', 'GEOSCHEMCHEM',\n                    #\t\t    \t\t\t\t       \n                    'BudgetChemistryTrop_Rn222              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_Pb210              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_Pb210s             ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_Be7                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_Be7s               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_Be10               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_Be10s              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_CH3I               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_CO_25              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_CO_50              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_e90                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_e90_n              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_e90_s              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_nh_5               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_nh_50              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_PassiveTracer      ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_SF6                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryTrop_st80_25            ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetChemistryPBL_Rn222               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_Pb210               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_Pb210s              ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_Be7                 ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_Be7s                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_Be10                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_Be10s               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_CH3I                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_CO_25               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_CO_50               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_e90                 ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_e90_n               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_e90_s               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_nh_5                ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_nh_50               ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_PassiveTracer       ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_SF6                 ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryPBL_st80_25             ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetChemistryLevs1to35_Rn222         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_Pb210         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_Pb210s        ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_Be7           ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_Be7s          ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_Be10          ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_Be10s         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_CH3I          ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_CO_25         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_CO_50         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_e90           ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_e90_n         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_e90_s         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_nh_5          ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_nh_50         ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_PassiveTracer ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_SF6           ', 'GEOSCHEMCHEM',\n                    'BudgetChemistryLevs1to35_st80_25       ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetEmisDryDepFull_Rn222             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_Pb210             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_Pb210s            ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_Be7               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_Be7s              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_Be10              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_Be10s             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_CH3I              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_CO_25             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_CO_50             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_e90               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_e90_n             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_e90_s             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_nh_5              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_nh_50             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_PassiveTracer     ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_SF6               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepFull_st80_25           ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetEmisDryDepTrop_Rn222             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_Pb210             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_Pb210s            ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_Be7               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_Be7s              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_Be10              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_Be10s             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_CH3I              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_CO_25             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_CO_50             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_e90               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_e90_n             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_e90_s             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_nh_5              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_nh_50             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_PassiveTracer     ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_SF6               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepTrop_st80_25           ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetEmisDryDepPBL_Rn222              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_Pb210              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_Pb210s             ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_Be7                ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_Be7s               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_Be10               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_Be10s              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_CH3I               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_CO_25              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_CO_50              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_e90                ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_e90_n              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_e90_s              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_nh_5               ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_nh_50              ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_PassiveTracer      ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_SF6                ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepPBL_st80_25            ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetEmisDryDepLevs1to35_Rn222        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_Pb210        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_Pb210s       ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_Be7          ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_Be7s         ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_Be10         ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_Be10s        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_CH3I         ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_CO_25        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_CO_50        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_e90          ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_e90_n        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_e90_s        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_nh_5         ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_nh_50        ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_PassiveTracer', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_SF6          ', 'GEOSCHEMCHEM',\n                    'BudgetEmisDryDepLevs1to35_st80_25      ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetMixingFull_Rn222                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_Pb210                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_Pb210s                ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_Be7                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_Be7s                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_Be10                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_Be10s                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_CH3I                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_CO_25                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_CO_50                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_e90                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_e90_n                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_e90_s                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_nh_5                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_nh_50                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_PassiveTracer         ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_SF6                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingFull_st80_25               ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetMixingTrop_Rn222                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_Pb210                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_Pb210s                ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_Be7                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_Be7s                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_Be10                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_Be10s                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_CH3I                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_CO_25                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_CO_50                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_e90                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_e90_n                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_e90_s                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_nh_5                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_nh_50                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_PassiveTracer         ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_SF6                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingTrop_st80_25               ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetMixingPBL_Rn222                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_Pb210                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_Pb210s                 ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_Be7                    ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_Be7s                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_Be10                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_Be10s                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_CH3I                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_CO_25                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_CO_50                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_e90                    ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_e90_n                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_e90_s                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_nh_5                   ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_nh_50                  ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_PassiveTracer          ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_SF6                    ', 'GEOSCHEMCHEM',\n                    'BudgetMixingPBL_st80_25                ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetMixingLevs1to35_Rn222            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_Pb210            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_Pb210s           ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_Be7              ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_Be7s             ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_Be10             ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_Be10s            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_CH3I             ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_CO_25            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_CO_50            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_e90              ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_e90_n            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_e90_s            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_nh_5             ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_nh_50            ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_PassiveTracer    ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_SF6              ', 'GEOSCHEMCHEM',\n                    'BudgetMixingLevs1to35_st80_25          ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetConvectionFull_Rn222             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_Pb210             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_Pb210s            ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_Be7               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_Be7s              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_Be10              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_Be10s             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_CH3I              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_CO_25             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_CO_50             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_e90               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_e90_n             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_e90_s             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_nh_5              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_nh_50             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_PassiveTracer     ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_SF6               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionFull_st80_25           ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetConvectionTrop_Rn222             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_Pb210             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_Pb210s            ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_Be7               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_Be7s              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_Be10              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_Be10s             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_CH3I              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_CO_25             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_CO_50             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_e90               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_e90_n             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_e90_s             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_nh_5              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_nh_50             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_PassiveTracer     ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_SF6               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionTrop_st80_25           ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetConvectionPBL_Rn222              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_Pb210              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_Pb210s             ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_Be7                ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_Be7s               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_Be10               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_Be10s              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_CH3I               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_CO_25              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_CO_50              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_e90                ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_e90_n              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_e90_s              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_nh_5               ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_nh_50              ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_PassiveTracer      ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_SF6                ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionPBL_st80_25            ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetConvectionLevs1to35_Rn222        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_Pb210        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_Pb210s       ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_Be7          ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_Be7s         ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_Be10         ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_Be10s        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_CH3I         ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_CO_25        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_CO_50        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_e90          ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_e90_n        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_e90_s        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_nh_5         ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_nh_50        ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_PassiveTracer', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_SF6          ', 'GEOSCHEMCHEM',\n                    'BudgetConvectionLevs1to35_st80_25      ', 'GEOSCHEMCHEM',\n\t\t    #\n                    'BudgetWetDepFull_Pb210                 ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepFull_Pb210s                ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepFull_Be7                   ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepFull_Be7s                  ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepFull_Be10                  ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepFull_Be10s                 ', 'GEOSCHEMCHEM',\n                     #\n                    'BudgetWetDepTrop_Pb210                 ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepTrop_Pb210s                ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepTrop_Be7                   ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepTrop_Be7s                  ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepTrop_Be10                  ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepTrop_Be10s                 ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetWetDepPBL_Pb210                  ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepPBL_Pb210s                 ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepPBL_Be7                    ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepPBL_Be7s                   ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepPBL_Be10                   ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepPBL_Be10s                  ', 'GEOSCHEMCHEM',\n                    #\n                    'BudgetWetDepLevs1to35_Pb210            ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepLevs1to35_Pb210s           ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepLevs1to35_Be7              ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepLevs1to35_Be7s             ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepLevs1to35_Be10             ', 'GEOSCHEMCHEM',\n                    'BudgetWetDepLevs1to35_Be10s            ', 'GEOSCHEMCHEM',\n::\t\t\t\t\t     \n#===============================================================================\n  CloudConvFlux.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.format:         'CFIO',\n  CloudConvFlux.timestampStart: .true.\n  CloudConvFlux.monthly:        1\n  CloudConvFlux.frequency:      010000\n  CloudConvFlux.duration:       010000\n  CloudConvFlux.mode:           'time-averaged'\n  CloudConvFlux.fields:    'CloudConvFlux_Rn222         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_Pb210         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_Pb210s        ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_Be7           ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_Be7s          ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_Be10          ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_Be10s         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_aoa           ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_aoa_bl        ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_aoa_nh        ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_CH3I          ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_CO_25         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_CO_50         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_e90           ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_e90_n         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_e90_s         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_nh_5          ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_nh_50         ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_PassiveTracer ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_SF6           ', 'GEOSCHEMCHEM',\n                           'CloudConvFlux_st80_25       ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  DryDep.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.format:           'CFIO',\n  DryDep.timestampStart:   .true.\n  DryDep.monthly:          1\n  DryDep.frequency:        010000\n  DryDep.duration:         010000\n  DryDep.mode:             'time-averaged'\n  DryDep.fields:           'DryDep_Pb210     ', 'GEOSCHEMCHEM',\n                           'DryDep_Pb210s    ', 'GEOSCHEMCHEM',\n                           'DryDep_Be7       ', 'GEOSCHEMCHEM',\n                           'DryDep_Be7s      ', 'GEOSCHEMCHEM',\n                           'DryDep_Be10      ', 'GEOSCHEMCHEM',\n                           'DryDep_Be10s     ', 'GEOSCHEMCHEM',\n                           'DryDepVel_Pb210  ', 'GEOSCHEMCHEM',\n                           'DryDepVel_Pb210s ', 'GEOSCHEMCHEM',\n                           'DryDepVel_Be7    ', 'GEOSCHEMCHEM',\n                           'DryDepVel_Be7s   ', 'GEOSCHEMCHEM',\n                           'DryDepVel_Be10   ', 'GEOSCHEMCHEM',\n                           'DryDepVel_Be10s  ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  RadioNuclide.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  RadioNuclide.format:         'CFIO',\n  RadioNuclide.timestampStart: .true.\n  RadioNuclide.monthly:         1\n  RadioNuclide.frequency:       010000\n  RadioNuclide.duration:        010000\n  RadioNuclide.mode:            'time-averaged'\n  RadioNuclide.fields:      'PbFromRnDecay           ', 'GEOSCHEMCHEM',  \n                            'RadDecay_Rn222          ', 'GEOSCHEMCHEM',\n                            'RadDecay_Pb210          ', 'GEOSCHEMCHEM',\n                            'RadDecay_Pb210s         ', 'GEOSCHEMCHEM',\n                            'RadDecay_Be7            ', 'GEOSCHEMCHEM',\n                            'RadDecay_Be7s           ', 'GEOSCHEMCHEM',\n                            'RadDecay_Be10           ', 'GEOSCHEMCHEM',\n                            'RadDecay_Be10s          ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.format:         'CFIO',\n  SpeciesConc.timestampStart: .true.\n  SpeciesConc.monthly:        1\n  SpeciesConc.frequency:      010000\n  SpeciesConc.duration:       010000\n  SpeciesConc.mode:           'time-averaged'\n  SpeciesConc.fields:         'SpeciesConcVV_Rn222         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_Pb210         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_Pb210s        ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_Be7           ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_Be7s          ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_Be10          ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_Be10s         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_aoa           ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_aoa_bl        ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_aoa_nh        ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_CH3I          ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_CO_25         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_CO_50         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_e90           ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_e90_n         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_e90_s         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_nh_5          ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_nh_50         ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_PassiveTracer ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_SF6           ', 'GEOSCHEMCHEM',\n                              'SpeciesConcVV_st80_25       ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  StateMet.template:        '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.format:          'CFIO',\n  StateMet.timestampStart:  .true.\n  StateMet.monthly:         1\n  StateMet.frequency:       010000\n  StateMet.duration:        010000\n  StateMet.mode:            'time-averaged'\n  StateMet.fields:          'Met_AD             ', 'GEOSCHEMCHEM',\n                            'Met_AIRDEN         ', 'GEOSCHEMCHEM',\n                            'Met_AIRVOL         ', 'GEOSCHEMCHEM',\n                            'Met_ALBD           ', 'GEOSCHEMCHEM',\n                            'Met_AREAM2         ', 'GEOSCHEMCHEM',\n                            'Met_AVGW           ', 'GEOSCHEMCHEM',\n                            'Met_BXHEIGHT       ', 'GEOSCHEMCHEM',\n                            'Met_ChemGridLev    ', 'GEOSCHEMCHEM',\n                            'Met_CLDF           ', 'GEOSCHEMCHEM',\n                            'Met_CLDFRC         ', 'GEOSCHEMCHEM',\n                            'Met_CLDTOPS        ', 'GEOSCHEMCHEM',\n                            'Met_DELP           ', 'GEOSCHEMCHEM',\n                            'Met_DQRCU          ', 'GEOSCHEMCHEM',\n                            'Met_DQRLSAN        ', 'GEOSCHEMCHEM',\n                            'Met_DTRAIN         ', 'GEOSCHEMCHEM',\n                            'Met_EFLUX          ', 'GEOSCHEMCHEM',\n                            'Met_FRCLND         ', 'GEOSCHEMCHEM',\n                            'Met_FRLAKE         ', 'GEOSCHEMCHEM',\n                            'Met_FRLAND         ', 'GEOSCHEMCHEM',\n                            'Met_FRLANDICE      ', 'GEOSCHEMCHEM',\n                            'Met_FROCEAN        ', 'GEOSCHEMCHEM',\n                            'Met_FRSEAICE       ', 'GEOSCHEMCHEM',\n                            'Met_FRSNOW         ', 'GEOSCHEMCHEM',\n                            'Met_GWETROOT       ', 'GEOSCHEMCHEM',\n                            'Met_GWETTOP        ', 'GEOSCHEMCHEM',\n                            'Met_HFLUX          ', 'GEOSCHEMCHEM',\n                            'Met_LAI            ', 'GEOSCHEMCHEM',\n                            'Met_PARDR          ', 'GEOSCHEMCHEM',\n                            'Met_PARDF          ', 'GEOSCHEMCHEM',\n                            'Met_PBLTOPL        ', 'GEOSCHEMCHEM',\n                            'Met_PBLH           ', 'GEOSCHEMCHEM',\n                            'Met_PHIS           ', 'GEOSCHEMCHEM',\n                            'Met_PMID           ', 'GEOSCHEMCHEM',\n                            'Met_PMIDDRY        ', 'GEOSCHEMCHEM',\n                            'Met_PRECANV        ', 'GEOSCHEMCHEM',\n                            'Met_PRECCON        ', 'GEOSCHEMCHEM',\n                            'Met_PRECLSC        ', 'GEOSCHEMCHEM',\n                            'Met_PRECTOT        ', 'GEOSCHEMCHEM',\n                            'Met_PS1DRY         ', 'GEOSCHEMCHEM',\n                            'Met_PS1WET         ', 'GEOSCHEMCHEM',\n                            'Met_PS2DRY         ', 'GEOSCHEMCHEM',\n                            'Met_PS2WET         ', 'GEOSCHEMCHEM',\n                            'Met_PSC2WET        ', 'GEOSCHEMCHEM',\n                            'Met_PSC2DRY        ', 'GEOSCHEMCHEM',\n                            'Met_QI             ', 'GEOSCHEMCHEM',\n                            'Met_QL             ', 'GEOSCHEMCHEM',\n                            'Met_OMEGA          ', 'GEOSCHEMCHEM',\n                            'Met_OPTD           ', 'GEOSCHEMCHEM',\n                            'Met_REEVAPCN       ', 'GEOSCHEMCHEM',\n                            'Met_REEVAPLS       ', 'GEOSCHEMCHEM',\n                            'Met_SLP            ', 'GEOSCHEMCHEM',\n                            'Met_SNODP          ', 'GEOSCHEMCHEM',\n                            'Met_SNOMAS         ', 'GEOSCHEMCHEM',\n                            'Met_SPHU           ', 'GEOSCHEMCHEM',\n                            'Met_SPHU1          ', 'GEOSCHEMCHEM',\n                            'Met_SPHU2          ', 'GEOSCHEMCHEM',\n                            'Met_SUNCOS         ', 'GEOSCHEMCHEM',\n                            'Met_SUNCOSmid      ', 'GEOSCHEMCHEM',\n                            'Met_SWGDN          ', 'GEOSCHEMCHEM',\n                            'Met_T              ', 'GEOSCHEMCHEM',\n                            'Met_TAUCLI         ', 'GEOSCHEMCHEM',\n                            'Met_TAUCLW         ', 'GEOSCHEMCHEM',\n                            'Met_THETA          ', 'GEOSCHEMCHEM',\n                            'Met_TMPU1          ', 'GEOSCHEMCHEM',\n                            'Met_TMPU2          ', 'GEOSCHEMCHEM',\n                            'Met_TO3            ', 'GEOSCHEMCHEM',\n                            'Met_TropHt         ', 'GEOSCHEMCHEM',\n                            'Met_TropLev        ', 'GEOSCHEMCHEM',\n                            'Met_TropP          ', 'GEOSCHEMCHEM',\n                            'Met_TS             ', 'GEOSCHEMCHEM',\n                            'Met_TSKIN          ', 'GEOSCHEMCHEM',\n                            'Met_TV             ', 'GEOSCHEMCHEM',\n                            'Met_U              ', 'GEOSCHEMCHEM',\n                            'Met_U10M           ', 'GEOSCHEMCHEM',\n                            'Met_USTAR          ', 'GEOSCHEMCHEM',\n                            'Met_UVALBEDO       ', 'GEOSCHEMCHEM',\n                            'Met_V              ', 'GEOSCHEMCHEM',\n                            'Met_V10M           ', 'GEOSCHEMCHEM',\n                            'Met_Z0             ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  StateMetLevEdge.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.format:         'CFIO',\n  StateMetLevEdge.timestampStart: .true.\n  StateMetLevEdge.monthly:        1\n  StateMetLevEdge.frequency:      010000\n  StateMetLevEdge.duration:       010000\n  StateMetLevEdge.mode:           'time-averaged'\n  StateMetLevEdge.fields:    'Met_CMFMC          ', 'GEOSCHEMCHEM',\n                             'Met_PEDGE          ', 'GEOSCHEMCHEM',\n                             'Met_PEDGEDRY       ', 'GEOSCHEMCHEM',\n                             'Met_PFICU          ', 'GEOSCHEMCHEM',\n                             'Met_PFILSAN        ', 'GEOSCHEMCHEM',\n                             'Met_PFLCU          ', 'GEOSCHEMCHEM',\n                             'Met_PFLLSAN        ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.format:         'CFIO',\n  WetLossConv.timestampStart: .true.\n  WetLossConv.monthly:        1\n  WetLossConv.frequency:      010000\n  WetLossConv.duration:       010000\n  WetLossConv.mode:           'time-averaged'\n  WetLossConv.fields:       'WetLossConv_Pb210      ', 'GEOSCHEMCHEM',\n                            'WetLossConv_Pb210s     ', 'GEOSCHEMCHEM',\n                            'WetLossConv_Be7        ', 'GEOSCHEMCHEM',\n                            'WetLossConv_Be7s       ', 'GEOSCHEMCHEM',\n                            'WetLossConv_Be10       ', 'GEOSCHEMCHEM',\n                            'WetLossConv_Be10s      ', 'GEOSCHEMCHEM',\n                            'WetLossConvFrac_Pb210  ', 'GEOSCHEMCHEM',\n                            'WetLossConvFrac_Pb210s ', 'GEOSCHEMCHEM',\n                            'WetLossConvFrac_Be7    ', 'GEOSCHEMCHEM',\n                            'WetLossConvFrac_Be7s   ', 'GEOSCHEMCHEM',\n                            'WetLossConvFrac_Be10   ', 'GEOSCHEMCHEM',\n                            'WetLossConvFrac_Be10s  ', 'GEOSCHEMCHEM',\n::\n#==============================================================================\n  WetLossLS.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.format:         'CFIO',\n  WetLossLS.timestampStart: .true.\n  WetLossLS.monthly:        1\n  WetLossLS.frequency:      010000\n  WetLossLS.duration:       010000\n  WetLossLS.mode:           'time-averaged'\n  WetLossLS.fields:         'WetLossLS_Pb210  ', 'GEOSCHEMCHEM',\n                            'WetLossLS_Pb210s ', 'GEOSCHEMCHEM',\n                            'WetLossLS_Be7    ', 'GEOSCHEMCHEM',\n                            'WetLossLS_Be7s   ', 'GEOSCHEMCHEM',\n                            'WetLossLS_Be10   ', 'GEOSCHEMCHEM',\n                            'WetLossLS_Be10s  ', 'GEOSCHEMCHEM',\n::\n\n\n"
  },
  {
    "path": "run/GEOS/TransportTracers/geoschem_config.yml",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for GCHP simulations using the TransportTracers mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: TransportTracers\n  chem_inputs_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/\n  species_database_file: ./species_database.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n\n  pbl_mixing:\n     activate: false\n     use_non_local_pbl: false\n\n  transport:\n    activate: true\n    transported_species:\n      -  Rn222\n      -  Pb210\n      -  Pb210s\n      -  Be7\n      -  Be7s\n      -  Be10\n      -  Be10s\n      -  aoa\n      -  aoa_bl\n      -  aoa_nh\n      -  CH3I\n      -  CO_25\n      -  CO_50\n      -  e90\n      -  e90_n\n      -  e90_s\n      -  nh_5\n      -  nh_50\n      -  PassiveTracer\n      -  SF6\n      -  st80_25\n\n  wet_deposition:\n    activate: true\n"
  },
  {
    "path": "run/GEOS/geoschem_analysis_cdas.yml",
    "content": "### geoschem_analysis.yml\n\n#============================================================================\n# General settings \n#============================================================================\ngeneral:\n  runphase: 2 \n  nspecies: 3\n\n#============================================================================\n# List of used analysis species \n#============================================================================\nspecies:\n  Spc001:\n    SpeciesName: O3\n    Active: true\n    AnalysisFreq: 6\n    AnalysisHour: 0\n    AnalysisMinute: 0\n    ForwardLooking: false\n    FileTemplate: >>>EXPID<<<.inc.eta.%y4%m2%d2_%h200z.nc4\n    FileVarName: ozone\n    FileVarUnit: ppmv\n    DryFlag: 0 \n    IsIncrement: true \n    InStrat: true \n    InTrop: true\n    IAU: true\n    AnaL1: 1\n    AnaL2: 1\n    AnaL3: 72\n    AnaL4: 72\n    AnaFraction: 1.0\n    MaxChangeStrat: -1.0\n    MaxChangeTrop:  -1.0\n    HasSpec2: 0\n    ErrorMode: 1\n\n  Spc002:\n    SpeciesName: NO2\n    Active: true\n    AnalysisFreq: 6\n    AnalysisHour: 0\n    AnalysisMinute: 0\n    ForwardLooking: false\n    FileTemplate: >>>EXPID<<<.inc.eta.%y4%m2%d2_%h200z.nc4\n    FileVarName: NO2 \n    FileVarUnit: v/v \n    DryFlag: 1\n    IsIncrement: true\n    InStrat: true \n    InTrop: true\n    IAU: true\n    AnaL1: 1\n    AnaL2: 1\n    AnaL3: 72\n    AnaL4: 72\n    AnaFraction: 1.0\n    MaxChangeStrat: -1.0 \n    MaxChangeTrop:  -1.0\n    MaxRatioStrat: 10.0\n    MinRatioStrat:  0.1\n    MaxRatioTrop: 10.0\n    MinRatioTrop:  0.1\n    MinConc: 1.0e-32\n    HasSpec2: 0\n    ErrorMode: 1\n\n  Spc003:\n    SpeciesName: SO2\n    Active: true\n    AnalysisFreq: 6\n    AnalysisHour: 0\n    AnalysisMinute: 0\n    ForwardLooking: false \n    FileTemplate: >>>EXPID<<<.inc.eta.%y4%m2%d2_%h200z.nc4\n    FileVarName: SO2g\n    FileVarUnit: v/v \n    DryFlag: 1\n    IsIncrement: true\n    InStrat: true \n    InTrop: true\n    IAU: true\n    AnaL1: 1\n    AnaL2: 1\n    AnaL3: 72\n    AnaL4: 72\n    AnaFraction: 1.0\n    MaxChangeStrat: -1.0 \n    MaxChangeTrop:  -1.0\n    MaxRatioStrat: 10.0\n    MinRatioStrat:  0.1\n    MaxRatioTrop: 10.0\n    MinRatioTrop:  0.1\n    MinConc: 1.0e-32\n    HasSpec2: 0\n    ErrorMode: 1\n"
  },
  {
    "path": "run/GEOS/geoschem_analysis_geosit.yml",
    "content": "### geoschem_analysis.yml\n\n#============================================================================\n# General settings \n#============================================================================\ngeneral:\n  runphase: 2 \n  nspecies: 1\n\n#============================================================================\n# List of used analysis species \n#============================================================================\nspecies:\n  Spc001:\n    SpeciesName: O3\n    Active: true\n    AnalysisFreq: 6\n    AnalysisHour: 0\n    AnalysisMinute: 0\n    ForwardLooking: true\n    FldNameHco: GEOSIT_O3\n    FileVarUnit: ppmv\n    DryFlag: 0 \n    IsIncrement: false\n    InStrat: true \n    InTrop: false\n    IAU: false\n    AnaL1: 1\n    AnaL2: 1\n    AnaL3: 72\n    AnaL4: 72\n    StratSponge: 2\n    AnaFraction: 1.0\n    MaxChangeStrat: -1.0\n    MaxChangeTrop:  -1.0\n    HasSpec2: 0\n    ErrorMode: 1\n"
  },
  {
    "path": "run/GEOS/geoschem_config.yml",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for GCHP simulations using the KPP \"fullchem\" mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: fullchem\n  chem_inputs_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/\n  species_database_file: ./species_database.yml\n  verbose:\n    activate: false\n    on_cores: root       # Allowed values: root all\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n    linear_chemistry_aloft:\n      activate: true\n      use_linoz_for_O3: true\n    active_strat_H2O:\n      activate: true\n      use_static_bnd_cond: true\n    gamma_HO2: 0.2\n    autoreduce_solver:\n      activate: false\n      use_target_threshold:\n        activate: true\n        oh_tuning_factor: 0.00005\n        no2_tuning_factor: 0.0001\n      use_absolute_threshold:\n        scale_by_pressure: true\n        absolute_threshold: 100.0\n      keep_halogens_active: false\n      append_in_internal_timestep: false\n\n  convection:\n    activate: false\n\n  dry_deposition:\n    activate: true\n    CO2_effect:\n      activate: false\n      CO2_level: 600.0\n      reference_CO2_level: 380.0\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: false\n     use_non_local_pbl: false\n\n  photolysis:\n    activate: true\n    cloud-j:\n      cloudj_input_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/CLOUD_J/v2025-01/\n      verbose: false\n      num_levs_with_cloud: 34\n      cloud_scheme_flag: 3\n      opt_depth_increase_factor: 1.050\n      min_top_inserted_cloud_OD: 0.005\n      cloud_overlap_correlation: 0.33\n      num_cloud_overlap_blocks: 6\n      sphere_correction: 1\n      num_wavelength_bins: 18\n      use_H2O_UV_absorption: true\n    overhead_O3:\n      use_online_O3_from_model: true\n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n    photolyze_nitrate_aerosol:\n      activate: true\n      NITs_Jscale: 100.0\n      NIT_Jscale: 100.0\n      percent_channel_A_HONO: 66.667\n      percent_channel_B_NO2: 33.333\n\n  rrtmg_rad_transfer_model:\n    activate: false\n    aod_wavelengths_in_nm:\n      - 550\n    longwave_fluxes: false\n    shortwave_fluxes: false\n    clear_sky_flux: false\n    all_sky_flux: false\n\n  transport:\n    activate: true\n    transported_species:\n      - ACET\n      - ACTA\n      - ACR\n      - AERI\n      - ALD2\n      - ALK4\n      - ALK4N2\n      - ALK4P\n      - ALK6\n      - AONITA\n      - APAN\n      - APINP\n      - APINN\n      - AROMCHO\n      - AROMP4\n      - AROMP5\n      - AROMPN\n      - ATOOH\n      - BALD\n      - BCPI\n      - BCPO\n      - BENZ\n      - BENZP\n      - BPINO\n      - BPINN\n      - BPINP\n      - BPINOOH\n      - BPINON\n      - Br\n      - Br2\n      - BrCl\n      - BrNO2\n      - BrNO3\n      - BrO\n      - BrSALA\n      - BrSALC\n      - BUTDI\n      - BUTN\n      - BZCO3H\n      - BZPAN\n      - C96O2H\n      - C96N\n      - C2H2\n      - C2H4\n      - C2H6\n      - C3H8\n      - C4H6\n      - CCl4\n      - CFC11\n      - CFC113\n      - CFC114\n      - CFC115\n      - CFC12\n      - CH2Br2\n      - CH2Cl2\n      - CH2I2\n      - CH2IBr\n      - CH2ICl\n      - CH2O\n      - CH3Br\n      - CH3CCl3\n      - CH3Cl\n      - CH3I\n      - CH4\n      - CHBr3\n      - CHCl3\n      - Cl\n      - Cl2\n      - Cl2O2\n      - ClNO2\n      - ClNO3\n      - ClO\n      - ClOO\n      - CLOCK\n      - CO\n      - CSL\n      - DMS  \n      - DSTbin1\n      - DSTbin2\n      - DSTbin3\n      - DSTbin4\n      - DSTbin5\n      - DSTbin6\n      - DSTbin7\n      - EBZ\n      - EOH\n      - ETHLN\n      - ETHN\n      - ETHP\n      - ETNO3\n      - ETP\n      - FURA\n      - GLYC\n      - GLYX\n      - HACTA\n      - H1211\n      - H1301\n      - H2402\n      - H2O\n      - H2O2\n      - HAC\n      - HBr\n      - HC5A\n      - HCFC123\n      - HCFC141b\n      - HCFC142b\n      - HCFC22\n      - HCl\n      - HCOOH\n      - HI\n      - HMHP\n      - HMML\n      - HMS\n      - HNO2\n      - HNO3\n      - HNO4\n      - HOBr\n      - HOCl\n      - HOI\n      - HONIT\n      - HPALD1\n      - HPALD2\n      - HPALD3\n      - HPALD4\n      - HPETHNL\n      - I\n      - I2\n      - I2O2\n      - I2O3\n      - I2O4\n      - IBr\n      - ICHE\n      - ICl\n      - ICN\n      - ICPDH\n      - IDC\n      - IDCHP\n      - IDHDP\n      - IDHPE\n      - IDN\n      - IEPOXA\n      - IEPOXB\n      - IEPOXD\n      - IHN1\n      - IHN2\n      - IHN3\n      - IHN4\n      - INDIOL\n      - INO\n      - INPB\n      - INPD\n      - IO\n      - IONITA\n      - IONO\n      - IONO2\n      - IPRNO3\n      - ISALA\n      - ISALC\n      - ISOP\n      - ITCN\n      - ITHN\n      - LIMAL\n      - LIMKB\n      - LIMKET\n      - LIMN\n      - LIMNB\n      - LIMO\n      - LIMO2H\n      - LIMO3H\n      - LIMPAN\n      - LVOC\n      - LVOCOA\n      - MACR\n      - MACR1OOH\n      - MAP\n      - MCRDH\n      - MCRENOL\n      - MCRHN\n      - MCRHNB\n      - MCRHP\n      - MCT\n      - MEK\n      - MEKPN\n      - MENO3\n      - MGLY\n      - MOH\n      - MONITA\n      - MONITS\n      - MONITU\n      - MP\n      - MPAN\n      - MPN\n      - MSA\n      - MTPA\n      - MTPO\n      - MVK\n      - MVKDH\n      - MVKHC\n      - MVKHCB\n      - MVKHP\n      - MVKN\n      - MVKPC\n      - MYRCO\n      - N2O\n      - N2O5\n      - NH3\n      - NH4\n      - NIT\n      - NITs\n      - 'NO'\n      - NO2\n      - NO3\n      - NPHEN\n      - NPRNO3\n      - O3\n      - OClO\n      - OCPI\n      - OCPO\n      - OCS\n      - OIO\n      - PAN\n      - pFe\n      - PHAN\n      - PHEN\n      - PIN\n      - PINAL\n      - PINONIC\n      - PINO3H\n      - PINPAN\n      - PIP\n      - PP\n      - PPN\n      - PROPNN\n      - PRPE\n      - PRPN\n      - PYAC\n      - R4N2\n      - R4P\n      - R7N2\n      - R7P\n      - RA3P\n      - RB3P\n      - RCHO\n      - RCOOH\n      - RIPA\n      - RIPB\n      - RIPC\n      - RIPD\n      - RNO3\n      - RP\n      - SALA\n      - SALAAL\n      - SALACL\n      - SALC\n      - SALCAL\n      - SALCCL\n      - SO2\n      - SO4\n      - SO4s\n      - SOAGX\n      - SOAIE\n      - SOAP\n      - SOAS\n      - STYR\n      - TLFUONE\n      - TMB\n      - TOLU\n      - XYLE\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Aerosol_Optics/v2025-03/\n\n  carbon:\n    activate: true\n    brown_carbon: false\n    enhance_black_carbon_absorption:\n      activate: true\n      hydrophilic: 1.5\n      hydrophobic: 1.0\n\n  complex_SOA:\n    activate:  false\n    semivolatile_POA: false\n\n  dust:\n    activate: true\n    acid_uptake_on_dust: false\n\n  sea_salt:\n    activate: true\n    SALA_radius_bin_in_um: [0.01, 0.5]\n    SALC_radius_bin_in_um: [0.5,  8.0]\n    marine_organic_aerosols: false\n\n  stratosphere:\n    settle_strat_aerosol: true\n    polar_strat_clouds:\n      activate: true\n      het_chem: true\n    allow_homogeneous_NAT: true\n    NAT_supercooling_req_in_K: 3.0\n    supersat_factor_req_for_ice_nucl: 1.2\n    calc_strat_aod: true\n\n  sulfate:\n    activate: true\n    metal_cat_SO2_oxidation: true\n"
  },
  {
    "path": "run/GEOS/scripts/create_ch4_offset_file.py",
    "content": "#!/usr/local/other/python/GEOSpyD/2019.03_py3.7/2019-04-22/bin/python\n'''\nScript to create uniform CH4 offset file that can be read by GEOS to\nadd a universal offset to CH4 boundary conditions.\nThe offset value can be either passed as input argument or calculated\nonline as the difference between the target year and the reference year.\nIn case of the latter, the values from the following source are used to\ndetermine the CH4 increase: \n- https://gml.noaa.gov/webdata/ccgg/trends/ch4/ch4_mm_gl.txt\n\nEXAMPLES:\n1. Create CH4 growth files relative to 2021 passing explicit values:\n\nCreate y/y offset file for January 2022 relative to 2021, using prescribed offset\npython create_ch4_offset_file.py -y 2022 -m 1 -v 17.97e-9 -o 'ch4_offset_to_2021_%Y%m.nc'\n\nCreate y/y offset file for January 2023 relative to 2022, using prescribed offset\npython create_ch4_offset_file.py -y 2023 -m 1 -v 14.62e-9 -o 'ch4_offset_to_2022_%Y%m.nc'\n\nCreate y/y offset file for January 2023 relative to 2021 by adding y/y offset to 2022/2021 file\npython create_ch4_offset_file.py -y 2023 -m 1 -v 14.62e-9 -i 'ch4_offset_to_2021_2022%m.nc' -o 'ch4_offset_to_2021_%Y%m.nc'\n\n2. Create CH4 growth file relative to 2021 using online computed offset:\npython create_ch4_offset_file.py -y 2023 -m 1 -r 2021 -o 'ch4_offset_to_2021_%Y%m.nc'\n\nHISTORY: \n20240118 - christoph.a.keller@nasa.gov - initial version\n'''\nimport sys\nimport argparse\nimport logging\nimport datetime as dt\nimport time\nimport numpy as np\nimport xarray as xr\nimport pandas as pd\n\n# NOAA CH4 data\nURL=\"https://gml.noaa.gov/webdata/ccgg/trends/ch4/ch4_mm_gl.txt\"\n\ndef main(args):\n    '''\n    Create a netCDF file with the given offset values. \n    '''\n    log = logging.getLogger(__name__)\n    # output time\n    otime = dt.datetime(args.year,args.month,1)\n    # offset value: read from online table if not provided\n    offset = np.nan \n    if args.value is None:\n       log.info('Reading CH4 trends from {}'.format(URL))\n       dat = pd.read_csv(URL,comment=\"#\",header=None,sep='\\s+')\n       # get reference values in ppb\n       refconc = dat.loc[(dat[0]==args.refyear)&(dat[1]==args.month),3].values[0]\n       targetconc = dat.loc[(dat[0]==args.year)&(dat[1]==args.month),3].values[0]\n       offset = (targetconc-refconc)*1.0e-9\n       log.info(\"Calculated offset from URL: {}\".format(URL))\n       log.info(\"reference concentration ({}-{}): {}\".format(args.refyear,args.month,refconc))\n       log.info(\"target concentration ({}-{}): {}\".format(args.year,args.month,targetconc))\n       log.info(\"offset (mol/mol): {}\".format(offset))\n    else:\n       offset = args.value\n\n    # define lat/lon coordinates and output array with offsets. \n    if args.ifile is not None:\n       # Read input file and inherit coordinates from it. Add offset to values in that file\n       ifile = otime.strftime(args.ifile) \n       log.info('reading {}'.format(ifile))\n       dsi = xr.open_dataset(ifile)\n       lons = dsi.lon.values\n       lats = dsi.lat.values\n       assert args.varname in dsi,\"variable {} not found in {}\".format(args.varname,args.ifile)\n       assert len(dsi[args.varname].shape)==3,\"variable {} must have 3 dimensions (time,lat,lon)\".format(args.varname)\n       arr  = dsi[args.varname].values[:,:,:] + offset \n    else:\n       # Create from scratch \n       lons = np.arange(-180.,180.,2.5)\n       lats = np.arange(-90.,90.1,2.) \n       arr = np.zeros((1,len(lats),len(lons)))\n       arr[:] = offset\n\n    # Create output dataset\n    ds = xr.Dataset()\n    ds[args.varname] = (('time','lat','lon'),arr)\n    ds[args.varname].attrs =  {'standard_name':'CH4_offset','long_name':'CH4_offset','units':\"mol/mol\"}\n    ds.coords['lat'] = (('lat'),lats)\n    ds['lat'].attrs =  {'standard_name':'latitude','long_name':'latitude','units':'degrees_north'}\n    ds.coords['lon'] = (('lon'),lons)\n    ds['lon'].attrs =  {'standard_name':'longitude','long_name':'longitude','units':'degrees_east'}\n    tunit = otime.strftime('days since %Y-%m-%d %H:%M:%S')\n    ds.coords['time'] = (('time'),np.zeros((1,)))\n    ds['time'].attrs =  {'standard_name':'time','long_name':'time','units':tunit,'calendar':'standard'}\n    ofile = otime.strftime(args.ofile)\n    ds.to_netcdf(ofile)\n    log.info('file written to {}'.format(ofile))\n    ds.close()\n    return\n\n\ndef parse_args():\n    p = argparse.ArgumentParser(description='Undef certain variables')\n    p.add_argument('-y', '--year',type=int,help='output year',default=2023)\n    p.add_argument('-m', '--month',type=int,help='output month',default=1)\n    p.add_argument('-v', '--value',type=float,help='CH4 offset, in mol/mol dry',default=None)\n    p.add_argument('-r', '--refyear',type=int,help='reference year',default=2021)\n    p.add_argument('-i', '--ifile',type=str,help='input file, will add offset to values in that file',default=None)\n    p.add_argument('-o', '--ofile',type=str,help='output file',default=\"ch4_offset_to_2021_x144_y91_%Y%m.nc\")\n    p.add_argument('-n', '--varname',type=str,help='variable name for offset',default=\"CH4_offset\")\n    return p.parse_args()\n\n\nif __name__ == '__main__':\n    log = logging.getLogger()\n    log.setLevel(logging.INFO)\n    handler = logging.StreamHandler(sys.stdout)\n    handler.setLevel(logging.INFO)\n    log.addHandler(handler)\n    main(parse_args())\n\n"
  },
  {
    "path": "run/WRF/fullchem/HEMCO_Config.rc",
    "content": "#------------------------------------------------------------------------------\n#                  Harmonized Emissions Component (HEMCO)                     !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Config.rc\n#\n# !DESCRIPTION: Contains configuration information for HEMCO. Define the\n#  emissions inventories and corresponding file paths here. Entire\n#  configuration files can be inserted into this configuration file with\n#  an '>>>include' statement, e.g. '>>>include HEMCO\\_Config\\_test.rc'\n#  The settings of include-files will be ignored.\n#\\\\\n#\\\\\n# !REMARKS:\n#  See The HEMCO User's Guide for file details:\n#    http://wiki.geos-chem.org/The_HEMCO_User%27s_Guide\n#\n# !REVISION HISTORY:\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n###############################################################################\n### BEGIN SECTION SETTINGS\n###############################################################################\n\nROOT:                        /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/HEMCO\nMETDIR:                      not_used\nGCAPSCENARIO:                not_used\nGCAPVERTRES:                 47\nLogfile:                     *\nDiagnFile:                   HEMCO_Diagn.rc\nDiagnPrefix:                 ./HEMCO_diagnostics\nDiagnFreq:                   Monthly\nWildcard:                    *\nSeparator:                   /\nUnit tolerance:              1\nNegative values:             0\nOnly unitless scale factors: false\nVerbose:                     false\nVerboseOnCores:              root       # Accepted values: root all\n\n### END SECTION SETTINGS ###\n\n###############################################################################\n### BEGIN SECTION EXTENSION SWITCHES\n###############################################################################\n# ExtNr ExtName                on/off  Species  Years avail.\n0       Base                   : on    *\n# ----- MAIN SWITCHES ---------------------------------------------------------\n    --> EMISSIONS              :       true\n    --> CHEMISTRY_INPUT        :       true\n# ----- RESTART FIELDS --------------------------------------------------------\n    --> HEMCO_RESTART          :       true\n# ----- REGIONAL INVENTORIES --------------------------------------------------\n    --> APEI                   :       false    # 1989-2014\n    --> NEI2016_MONMEAN        :       false    # 2002-2020\n    --> DICE_Africa            :       false    # 2013\n# ----- GLOBAL INVENTORIES ----------------------------------------------------\n    --> CEDSv2                 :       true     # 1750-2019\n    --> CEDS_GBDMAPS           :       false    # 1970-2017\n    --> CEDS_GBDMAPS_byFuelType:       false    # 1970-2017\n    --> EDGARv43               :       false    # 1970-2010\n    --> HTAPv3                 :       false    # 2000-2018\n    --> GEIA_NH3               :       true     # 1990\n    --> SEABIRD_NH3            :       true     # 1990\n    --> POET_EOH               :       false    # 1985\n    --> TZOMPASOSA_C2H6        :       true     # 2010\n    --> XIAO_C3H8              :       true     # 1985\n    --> LIANG_BROMOCARB        :       true     # 2000\n    --> ORDONEZ_IODOCARB       :       true     # 2000\n    --> DECAYING_PLANTS        :       true     # 1985\n    --> AFCID                  :       true     # 2015\n# ----- AIRCRAFT EMISSIONS ----------------------------------------------------\n# There are 3 switches:\n#\n#  1. AEIC2019_DAILY selects daily AEIC 2019 emissions.  For most simulations,\n#     this is not recommended due to the amount of computational overhead\n#     that will be incurred in regridding.  But this may be useful for\n#     research purposes.  Recommended setting: \"AEIC2019_DAILY: false\".\n#\n#  2. AEIC2019_MONMEAN selects monthly-mean AEIC 2019 emisisons, which will\n#     incur much less computational overhaead.  This option should suffice\n#     for most simulations.  Recommended setting \"AEIC2019_MONMEAN: true\".\n#\n#  3. AEIC_SCALE_1990_2019: If \"false\", the AEIC 2019 data from the year\n#     2019 alone will be used.  This will yield a \"best estimate\" of\n#     aviation emisssion. This could be important because simply scaling\n#     aviation emissions up and down is rather nonphysical.  But if\n#     AEIC_SCALE_1990_2019 is set to true, then aviation emissions for\n#     1990 to 2019 are estimated by:\n#\n#     a. Scaling ALL aviation emissions based on the growth in fuelburn\n#        from 1990 to 2019* estimated by Lee et al. (2021); and\n#\n#     b. Scaling aviation NOx emissions by an additional factor to reflect\n#        the changes in the NOx emissions index over the same period as\n#        reported by Lee et al. (2021).\n#\n#     Recommended setting: \"AEIC_SCALE_1990_2019: true\"\n#\n# See additional notes in the AEIC scale factor section below.\n#------------------------------------------------------------------------------\n    --> AEIC2019_DAILY         :       false    # 2019 (daily data)\n    --> AEIC2019_MONMEAN       :       true     # 2019 (monthly-mean data)\n    --> AEIC_SCALE_1990_2019   :       true     # Scale to year in 1990-2019\n# ----- SHIP EMISSIONS --------------------------------------------------------\n    --> SHIP                   :       true\n    --> CEDSv2_SHIP            :       true     # 1750-2017\n    --> CEDS_GBDMAPS_SHIP      :       false    # 1970-2017\n    --> CEDS_GBDMAPS_SHIP_byFuelType:  false    # 1970-2017\n    --> HTAPv3_SHIP            :       false    # 2000-2018\n    --> ICOADS_SHIP            :       false    # 2002\n    --> ARCTAS_SHIP            :       false    # 2008\n    --> CORBETT_SHIP           :       false    # 1985\n# ----- RCP FUTURE EMISSIONS --------------------------------------------------\n    --> RCP_3PD                :       false    # 2005-2100\n    --> RCP_45                 :       false    # 2005-2100\n    --> RCP_60                 :       false    # 2005-2100\n    --> RCP_85                 :       false    # 2005-2100\n# ----- CMIP6 ANTHRO EMISSIONS / BOUNDARY CONDITIONS --------------------------\n#   Set GCAPSCENARIO (e.g., HIST, SSP585) above in SECTION SETTINGS\n    --> CMIP6_SFC_BC           :       false    # 1750-2100\n    --> CMIP6_SFC_LAND_ANTHRO  :       false    # 1850-2100\n    --> CMIP6_AIRCRAFT         :       false    # 1850-2100\n    --> CMIP6_SHIP             :       false    # 1850-2100\n# ----- BIOMASS BURNING EMISSIONS ---------------------------------------------\n    --> QFED2                  :       false    # 2000-2020\n    --> GFAS                   :       false    # 2003-2021\n    --> BB4MIPS                :       false    # 1850-2100\n# ----- OFFLINE EMISSIONS -----------------------------------------------------\n# To use online emissions instead set the offline emissions to 'false' and the\n# corresponding HEMCO extension to 'on':\n#   OFFLINE_DUST        - DustL23M\n#   OFFLINE_BIOGENICVOC - MEGAN\n#    - Note: MEGAN must always be on for species not in OFFLINE_BIOGENICVOC\n#   OFFLINE_SEASALT     - SeaSalt\n#   OFFLINE_SOILNOX     - SoilNOx\n#\n# NOTE: When switching between offline and online emissions, make sure to also\n# update ExtNr and Cat in HEMCO_Diagn.rc to properly save out emissions for\n# any affected species.\n#------------------------------------------------------------------------------\n    --> OFFLINE_DUST           :       false     # 1980-2021\n    --> OFFLINE_BIOGENICVOC    :       false     # 1980-2021\n    --> OFFLINE_SEASALT        :       false     # 1980-2021\n    -->  CalcBrSeasalt         :       false\n    --> OFFLINE_SOILNOX        :       false     # 1980-2021\n# ----- NON-EMISSIONS DATA ----------------------------------------------------\n    --> UVALBEDO               :       true     # 1985\n    --> CCM_STRAT_Bry          :       true     # 2007\n    --> GMI_OH                 :       true     # 2005\n    --> GMI_PROD_LOSS          :       true     # 2005\n    --> OMOC_RATIO             :       false    # 2010\n    --> GMD_SFC_CH4            :       true     # 1979-2020\n    --> CMIP6_SFC_CH4          :       false    # 1750-1978\n    --> OLSON_LANDMAP          :       true     # 1985\n    --> YUAN_MODIS_LAI         :       true     # 2000-2020\n    --> RRTMG                  :       false    # 2002\n    --> SfcVMR                 :       true     # 1750-2014\n    --> OCEAN_O3_DRYDEP        :       true     # 1985\n# -----------------------------------------------------------------------------\n100     Custom                 : off   -\n101     SeaFlux                : on    DMS/ACET/ALD2/MENO3/ETNO3/MOH\n102     ParaNOx                : off   NO/NO2/O3/HNO3\n    --> LUT data format        :       nc\n    --> LUT source dir         :       $ROOT/PARANOX/v2015-02\n103     LightNOx               : on    NO\n    --> CDF table              :       $ROOT/LIGHTNOX/v2014-07/light_dist.ott2010.dat\n104     SoilNOx                : on    NO\n    --> Use fertilizer NOx     :       true\n106     DustGinoux             : off   DST1/DST2/DST3/DST4\n107     SeaSalt                : on    SALA/SALC/SALACL/SALCCL/SALAAL/SALCAL/BrSALA/BrSALC/MOPO/MOPI\n    --> SALA lower radius      :       0.01\n    --> SALA upper radius      :       0.5\n    --> SALC lower radius      :       0.5\n    --> SALC upper radius      :       8.0\n    --> Reduce SS cold water   :       true\n    --> Blowing Snow SS        :       true\n    --> NH FYI snow salinity   :       0.1\n    --> NH MYI snow salinity   :       0.05\n    --> SH FYI snow salinity   :       0.03\n    --> SH MYI snow salinity   :       0.015\n    --> NH snow age            :       3.0\n    --> SH snow age            :       1.5\n    --> N per snowflake        :       5.0\n    --> Model sea salt Br-     :       false\n    --> Br- mass ratio         :       2.11e-3\n108     MEGAN                  : on    ISOP/ACET/PRPE/C2H4/ALD2/MOH/EOH/MTPA/MTPO/LIMO/SESQ/SOAP/SOAS\n    --> Isoprene scaling       :       1.0\n    --> CO2 inhibition         :       true\n    --> CO2 conc (ppmv)        :       390.0\n    --> Isoprene to SOAP       :       0.015\n    --> Isoprene to SOAS       :       0.015\n    --> Monoterp to SOAP       :       0.050\n    --> Monoterp to SOAS       :       0.050\n    --> Othrterp to SOAP       :       0.050\n    --> Othrterp to SOAS       :       0.050\n111     GFED                   : on    NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6\n    --> GFED4                  :       true\n    --> GFED_daily             :       false\n    --> GFED_3hourly           :       false\n    --> Scaling_CO             :       1.05\n    --> Scaling_NAP            :       2.75e-4\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> fraction POG1          :       0.49\n    --> CO to SOAP             :       0.013\n    --> GFED_subgrid_coag      :       false\n#see the note near scale factor 281 for the source of this emis factor\n114     FINN                   : off   NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP/STYR/EBZ/TMB/ROH/RCOOH/RCHO/ACTA/EOH/HCOOH/ISOP/MACR/MVK/MOH/R4N2/FURA\n    --> FINN_daily             :       false\n    --> Scaling_CO             :       1.0\n    --> Scaling_SOAP           :       0.013\n    --> hydrophilic BC         :       0.2\n    --> hydrophilic OC         :       0.5\n    --> FINN_subgrid_coag      :       false\n117     Volcano                : on    SO2\n    --> Volcano_Source         :       AeroCom\n    --> Volcano_Table          :       $ROOT/VOLCANO/v2021-09/$YYYY/$MM/so2_volcanic_emissions_Carns.$YYYY$MM$DD.rc\n    --> Volcano_Climatology    :       $ROOT/VOLCANO/v2021-09/so2_volcanic_emissions_CARN_v202005.degassing_only.rc\n120     Inorg_Iodine           : on    HOI/I2\n    --> Emit HOI               :       true\n    --> Emit I2                :       true\n125     DustL23M               : on    DSTbin1/DSTbin2/DSTbin3/DSTbin4/DSTbin5/DSTbin6/DSTbin7\n    --> Mass tuning factor     :       2.35e-4\n##############################################################################\n# Mass tuning factors are resolution and met-source dependent\n# See https://github.com/geoschem/geos-chem/pull/2946#issuecomment-3465876899\n#    --> Mass tuning factor:       6.794E-03  # C24  GEOS-FP\n#    --> Mass tuning factor:       4.402E-03  # C48  GEOS-FP\n#    --> Mass tuning factor:       3.533E-03  # C90  GEOS-FP\n#    --> Mass tuning factor:       3.081E-03  # C180 GEOS-FP\n#    --> Mass tuning factor:       2.924E-03  # C360 GEOS-FP\n#    --> Mass tuning factor:       4.231E-03  # C30  GEOS-IT\n#    --> Mass tuning factor:       3.308E-03  # C48  GEOS-IT\n#    --> Mass tuning factor:       2.614E-03  # C90  GEOS-IT\n#    --> Mass tuning factor:       2.924E-03  # C180 GEOS-IT\n#    --> Mass tuning factor:       7.944E-03  # C24  MERRA-2\n#    --> Mass tuning factor:       4.253E-03  # C48  MERRA-2\n#    --> Mass tuning factor:       4.341E-03  # C90  MERRA-2\n#    --> Mass tuning factor:       3.932E-03  # C180 MERRA-2\n##############################################################################\n126     DustAlk                : off   DSTALbin1/DSTALbin2/DSTALbin3/DSTALbin4/DSTALbin5/DSTALbin6/DSTALbin7\n# ----- EXTENSIONS FOR TOMAS SIMULATIONS ONLY----------------------------------\n130     TOMAS_Jeagle           : off   SS01/SS02/SS03/SS04/SS05/SS06/SS07/SS08/SS09/SS10/SS11/SS12/SS13/SS14/SS15/SS16/SS17/SS18/SS19/SS20/SS21/SS22/SS23/SS24/SS25/SS26/SS27/SS28/SS29/SS30/SS31/SS32/SS33/SS34/SS35/SS36/SS37/SS38/SS39/SS40\n131     TOMAS_DustDead         : off   DUST01/DUST02/DUST03/DUST04/DUST05/DUST06/DUST07/DUST08/DUST09/DUST10/DUST11/DUST12/DUST13/DUST14/DUST15/DUST16/DUST17/DUST18/DUST19/DUST20/DUST21/DUST22/DUST23/DUST24/DUST25/DUST26/DUST27/DUST28/DUST29/DUST30/DUST31/DUST32/DUST33/DUST34/DUST35/DUST36/DUST37/DUST38/DUST39/DUST40\n    --> Mass tuning factor     :       4.7586e-4\n### END SECTION EXTENSION SWITCHES ###\n\n###############################################################################\n### BEGIN SECTION BASE EMISSIONS\n###############################################################################\n\n# ExtNr Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Species ScalIDs Cat Hier\n\n(((EMISSIONS\n\n#==============================================================================\n# --- APEI (Canada) ---\n#==============================================================================\n(((APEI\n0 APEI_NO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NOx 1989-2014/1/1/0 RF xy kg/m2/s NO   25/1002/115    1 30\n0 APEI_CO   $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc CO  1989-2014/1/1/0 RF xy kg/m2/s CO   26/52/1002     1 30\n0 APEI_SOAP -                                   -   -               -  -  -       SOAP 26/52/1002/280 1 30\n0 APEI_SO2  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc SOx 1989-2014/1/1/0 RF xy kg/m2/s SO2  60/1002        1 30\n0 APEI_SO4  -                                   -   -               -  -  -       SO4  60/65/1002     1 30\n0 APEI_pFe  -                                   -   -               -  -  -       pFe  60/68/1002     1 30\n0 APEI_NH3  $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc NH3 1989-2014/1/1/0 RF xy kg/m2/s NH3  1002           1 30\n0 APEI_BCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPI 70/1002        1 30\n0 APEI_BCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc EC  1989-2014/1/1/0 RF xy kg/m2/s BCPO 71/1002        1 30\n0 APEI_OCPI $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPI 72/1002        1 30\n0 APEI_OCPO $ROOT/APEI/v2016-11/APEI.0.1x0.1.nc OC  1989-2014/1/1/0 RF xy kg/m2/s OCPO 73/1002        1 30\n0 APEI_POG1 -                                       -    -          -  -  -       POG1 74/76/1002     1 30\n0 APEI_POG2 -                                       -    -          -  -  -       POG2 74/77/1002     1 30\n)))APEI\n\n#==============================================================================\n# --- EPA NEI2016 v1 (USA) ---\n#\n# NOTES:\n#  * Barron Henderson wrote, \"The EPA emission modeling platform always\n#    includes our best estimate of that year's emissions for Canada and Mexico\n#    (othpt, othar, ptfire_oth). Using that estimate is likely good. However,\n#    that can lead to a discontinuity in Mexico and Canada.\"\n#    - By default only emissions over the CONUS are used (via Mask #1007)\n#    - To include emissions over Canada and Mexico, users may revert to the old\n#      US mask file $ROOT/MASKS/v2018-09/USA_LANDMASK_NEI2011_0.1x0.1.20160921.nc\n#  * The base year of these emissions is 2016 and emissions are scaled to\n#    2002-2020 using data from the EPA Trends Report for Tier 1 CAPS (obtained\n#    21 Sep 2021).\n#    - See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#    - Cl2 and HCl emissions are only available for 2016 because those species\n#      aren't included in the Tier 1 CAPS file/\n#==============================================================================\n(((NEI2016_MONMEAN\n0 EPA16_BCPI__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__afdustPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__afdustPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__afdustPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__afdustPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__afdustPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__afdustPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__afdustPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__afdustPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_afdust_adj_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__agACET             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__agALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__agALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__agBENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_C2H4__agETH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__agETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__agETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__agFORM             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_PRPE__agIOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__agKET               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__agMEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__agNH3               $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_PRPE__agOLE              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__agPAR              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_C3H8__agPRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_TOLU__agTOL              $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__agXYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf                         XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__airportsACET       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__airportsACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__airportsALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__airportsALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__airportsBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__airportsCO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__airportsSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__airportsETH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__airportsETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__airportsETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__airportsFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__airportsHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__airportsIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__airportsKET         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__airportsMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NO__airportsNO           $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__airportsNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__airportsOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__airportsPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__airportsPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__airportsPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__airportsPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__airportsPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__airportsPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__airportsPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__airportsPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__airportsPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__airportsPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__airportsSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__airportspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__airportsSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__airportsTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__airportsXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf                   XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonptACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__nonptCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__nonptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__nonptHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HCL        2016/1-12/1/0      R  xy   kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__nonptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__nonroadACET        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__nonroadACROLEIN    $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__nonroadALD2        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__nonroadALDX        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__nonroadBENZ        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__nonroadCO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__nonroadSOAP        -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__nonroadETH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__nonroadETHA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__nonroadETOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__nonroadFORM        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__nonroadHONO        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadIOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__nonroadKET          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__nonroadMEOH         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__nonroadNH3          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__nonroadNO            $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__nonroadNO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__nonroadOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__nonroadPAR         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__nonroadPEC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__nonroadPNA         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__nonroadPNH4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__nonroadPNO3         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__nonroadPOC         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__nonroadPOC         -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__nonroadPOC         -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__nonroadPRPA        $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__nonroadPSO4         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__nonroadSO2          $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__nonroadspFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__nonroadSULF         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__nonroadTOL         $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__nonroadXYLMN       $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf                    XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__npogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__npogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__npogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__npogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__npogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__npogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__npogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__npogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__npogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__npogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__npogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__npogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__npogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__npogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__npogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__npogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__npogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__npogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__npogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__npogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__npogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__npogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__npogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__npogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__npogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__npogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__npogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__npogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__npogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__npogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__npogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__npogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__npogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__npogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__npogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf                  XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroadACET         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroadACROLEIN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroadALD2         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroadALDX         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroadBENZ         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroadCO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroadSOAP         -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroadETH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroadETHA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroadETOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroadFORM         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroadHONO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroadIOLE         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroadKET           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroadMEOH          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroadNH3           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroadNO             $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroadNO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroadOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroadPAR          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroadPEC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroadPNA          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroadPNH4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroadPNO3          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroadPOC          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroadPOC          -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroadPOC          -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroadPRPA         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroadPSO4          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroadSO2           $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroadpFe           -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroadTOL          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroadXYLMN        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf                     XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_caACET      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_caACROLEIN  $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_caALD2      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_caALDX      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_caBENZ      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_caCO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP_onroad__caSOAP      -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_caETH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_caETHA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_caETOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_caFORM      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_caHONO      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caIOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_caKET        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_caMEOH       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_caNH3        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_caNO          $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_caNO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_caOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_caPAR       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_caPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_caPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_caPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_caPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_caPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_caPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_caPRPA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_caPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_caSO2        $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_capFe        -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_TOLU__onroad_caTOL       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_caXYLMN     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__railACET           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__railACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__railALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__railALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__railBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__railCO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__railSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__railETH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__railETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__railETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__railFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__railHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__railIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__railKET             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__railMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__railNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__railNO               $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__railNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__railOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__railPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__railPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__railPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__railPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__railPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__railPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__railPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__railPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__railPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__railPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__railSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__railpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__railSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__railTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__railXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf                       XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__rwcACET            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__rwcACROLEIN        $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__rwcALD2            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__rwcALDX            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__rwcBENZ            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__rwcCL2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CL2        2016/1-12/1/0      R  xy   kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__rwcCO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__rwcSOAP            -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__rwcETH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__rwcETHA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__rwcETOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__rwcFORM            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__rwcHONO            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__rwcIOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__rwcKET              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__rwcMEOH             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__rwcNH3              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__rwcNO                $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__rwcNO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__rwcOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__rwcPAR             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__rwcPEC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__rwcPNA             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__rwcPNH4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__rwcPNO3             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__rwcPOC             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__rwcPOC             -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__rwcPOC             -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__rwcPRPA            $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__rwcPSO4             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__rwcSO2              $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__rwcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__rwcSULF             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__rwcTOL             $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__rwcXYLMN           $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf                        XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c1c2ACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c1c2ALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c1c2ALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c1c2BENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c1c2CO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__clc2SOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c1c2ETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c1c2ETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c1c2ETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c1c2FORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c1c2HONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2IOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c1c2KET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c1c2MEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c1c2NH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c1c2NO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c1c2NO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c1c2OLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c1c2PAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c1c2PEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c1c2PNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c1c2PNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c1c2PNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c1c2POC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__clc2POC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__clc2POC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c1c2PRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c1c2PSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c1c2SO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__clcpFe              -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c1c2SULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c1c2TOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c1c2XYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c1c2_12_0pt1degree_3D_month_$MM.ncf        XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__c3ACET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__c3ALD2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__c3ALDX             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__c3BENZ             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__c3CO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__c3SOAP             -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__c3ETH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__c3ETHA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__c3ETOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__c3FORM             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__c3HONO             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__c3IOLE             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__c3KET               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__c3MEOH              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__c3NH3               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__c3NO                 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__c3NO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__c3OLE              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__c3PAR              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__c3PEC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__c3PNA              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__c3PNH4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__c3PNO3              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__c3POC              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__c3POC              -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__c3POC              -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__c3PRPA             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__c3PSO4              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__c3SO2               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__c2pFe               -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__c3SULF              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__c3TOL              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__c3XYLMN            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf          XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__pteguACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__pteguACROLEIN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__pteguALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__pteguALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__pteguBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__pteguCL2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__pteguCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__pteguSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__pteguETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__pteguETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__pteguETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__pteguFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__pteguHCL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__pteguHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__pteguIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__pteguKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__pteguMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__pteguNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__pteguNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__pteguNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__pteguOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__pteguPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__pteguPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__pteguPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__pteguPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__pteguPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__pteguPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__pteguPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__pteguPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__pteguPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__pteguPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__pteguSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptegupFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__pteguSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__pteguTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__pteguXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf              XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptogACET           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptogACROLEIN       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptogALD2           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptogALDX           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptogBENZ           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptogCL2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CL2        2016/1-12/1/0      R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptogCO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptogSOAP           -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptogETH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptogETHA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptogETOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptogFORM           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptogHCL             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HCL        2016/1-12/1/0      R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptogHONO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptogIOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptogKET             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptogMEOH            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptogNH3             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptogNO               $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO         2002-2020/1-12/1/0 RF xyz  kgNO2/m2/s NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptogNO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptogOLE            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptogPAR            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptogPEC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptogPNA            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptogPNH4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptogPNO3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptogPOC            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptogPOC            -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptogPOC            -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptogPRPA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptogPSO4            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptogSO2             $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptogpFe             -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptogSULF            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptogTOL            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptogXYLMN          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf  XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__ptnonipmACET       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACET       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__ptnonipmACROLEIN   $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ACROLEIN   2002-2020/1-12/1/0 RF xyz  kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__ptnonipmALD2       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALD2       2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__ptnonipmALDX       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ALDX       2002-2020/1-12/1/0 RF xyz  kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__ptnonipmBENZ       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   BENZ       2002-2020/1-12/1/0 RF xyz  kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_Cl2__ptnonipmCL2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CL2        2002-2020/1-12/1/0 R  xyz  kg/m2/s    Cl2    1007                   1 50\n0 EPA16_CO__ptnonipmCO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   CO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__ptnonipmSOAP       -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__ptnonipmETH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETH        2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__ptnonipmETHA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETHA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__ptnonipmETOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   ETOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__ptnonipmFORM       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   FORM       2002-2020/1-12/1/0 RF xyz  kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HCl__ptnonipmHCL         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HCL        2002-2020/1-12/1/0 R  xyz  kg/m2/s    HCl    1007                   1 50\n0 EPA16_HNO2__ptnonipmHONO       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   HONO       2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmIOLE       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   IOLE       2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__ptnonipmKET         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   KET        2002-2020/1-12/1/0 RF xyz  kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__ptnonipmMEOH        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   MEOH       2002-2020/1-12/1/0 RF xyz  kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__ptnonipmNH3         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NH3        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__ptnonipmNO           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO         2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__ptnonipmNO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   NO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__ptnonipmOLE        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   OLE        2002-2020/1-12/1/0 RF xyz  kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__ptnonipmPAR        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PAR        2002-2020/1-12/1/0 RF xyz  kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__ptnonipmPEC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PEC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__ptnonipmPNA        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNA        2002-2020/1-12/1/0 RF xyz  kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__ptnonipmPNH4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNH4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__ptnonipmPNO3        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PNO3       2002-2020/1-12/1/0 RF xyz  kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__ptnonipmPOC        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   POC        2002-2020/1-12/1/0 RF xyz  kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__ptnonipmPOC        -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__ptnonipmPRPA       $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PRPA       2002-2020/1-12/1/0 RF xyz  kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__ptnonipmPSO4        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   PSO4       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__ptnonipmSO2         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SO2        2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__ptnonipmpFe         -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__ptnonipmSULF        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   SULF       2002-2020/1-12/1/0 RF xyz  kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__ptnonipmTOL        $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   TOL        2002-2020/1-12/1/0 RF xyz  kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__ptnonipmXYLMN      $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf   XYLMN      2002-2020/1-12/1/0 RF xyz  kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_canACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_canALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_canALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_canBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_canCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_canSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_canETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_canETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_canETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_canFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_canHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_canKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_canMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_canNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_canNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_canNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_canOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_canPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_canPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_canPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_canPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_canPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_canPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_canPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_canPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_canPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_canSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_canpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_canSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_canTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_canXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_ACET__onroad_mexACET     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ACROLEIN   2002-2020/1-12/1/0 RF xy   kg/m2/s    ACR    26/213/254/1007        1 50\n0 EPA16_ALD2__onroad_mexALD2     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__onroad_mexALDX     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__onroad_mexBENZ     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__onroad_mexCO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__onroad_mexSOAP     -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__onroad_mexETH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__onroad_mexETHA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__onroad_mexETOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__onroad_mexFORM     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__onroad_mexHONO     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexIOLE     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__onroad_mexKET       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__onroad_mexMEOH      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__onroad_mexNH3       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__onroad_mexNO         $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__onroad_mexNO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__onroad_mexOLE      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__onroad_mexPAR      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__onroad_mexPEC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__onroad_mexPNA      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__onroad_mexPNH4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__onroad_mexPNO3      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__onroad_mexPOC      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__onroad_mexPOC      -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__onroad_mexPRPA     $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__onroad_mexPSO4      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__onroad_mexSO2       $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__onroad_mexpFe       -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__onroad_mexSULF      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__onroad_mexTOL      $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__onroad_mexXYLMN    $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othafdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othafdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othafdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othafdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othafdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othafdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othafdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othafdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othafdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__otharACET          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__otharALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__otharALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__otharBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__otharCO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__otharSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__otharETH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__otharETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__otharETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__otharFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__otharHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__otharIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__otharKET            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__otharMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__otharNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__otharNO              $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__otharNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__otharOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__otharPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__otharPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__otharPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__otharPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__otharPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__otharPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__otharPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__otharPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__otharPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__otharPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__otharSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__otharpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__otharSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__otharTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__otharXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_othar_0pt1degree_month_$MM.ncf                      XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n0 EPA16_BCPI__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptdustPEC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptdustPNA       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptdustPNH4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptdustPNO3       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptdustPOC       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptdustPOC       -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptdustPOC       -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_SO4__othptdustPSO4       $ROOT/NEI2016/v2021-06/2016fh_16j_othptdust_adj_0pt1degree_month_$MM.ncf              PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_ACET__othptACET          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ACET       2002-2020/1-12/1/0 RF xy   kg/m2/s    ACET   26/213/254/1007        1 50\n0 EPA16_ALD2__othptALD2          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALD2       2002-2020/1-12/1/0 RF xy   kg/m2/s    ALD2   26/213/254/1007        1 50\n0 EPA16_RCHO__othptALDX          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ALDX       2002-2020/1-12/1/0 RF xy   kg/m2/s    RCHO   26/213/254/1007        1 50\n0 EPA16_BENZ__othptBENZ          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 BENZ       2002-2020/1-12/1/0 RF xy   kg/m2/s    BENZ   26/213/254/1007        1 50\n0 EPA16_CO__othptCO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 CO         2002-2020/1-12/1/0 RF xy   kg/m2/s    CO     26/211/252/1007        1 50\n0 EPA16_SOAP__othptSOAP          -                                                                                     -          -                  -  -    -          SOAP   26/211/252/1007/280    1 50\n0 EPA16_C2H4__othptETH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETH        2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H4   26/213/254/1007        1 50\n0 EPA16_C2H6__othptETHA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETHA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C2H6   26/217/254/1007        1 50\n0 EPA16_EOH__othptETOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 ETOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    EOH    26/213/254/1007        1 50\n0 EPA16_CH2O__othptFORM          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 FORM       2002-2020/1-12/1/0 RF xy   kg/m2/s    CH2O   26/213/254/1007        1 50\n0 EPA16_HNO2__othptHONO          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 HONO       2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO2   25/210/251/1007        1 50\n0 EPA16_PRPE__othptIOLE          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 IOLE       2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_MEK__othptKET            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 KET        2002-2020/1-12/1/0 RF xy   kg/m2/s    MEK    26/214/254/1007        1 50\n0 EPA16_MOH__othptMEOH           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 MEOH       2002-2020/1-12/1/0 RF xy   kg/m2/s    MOH    26/213/254/1007        1 50\n0 EPA16_NH3__othptNH3            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NH3        2002-2020/1-12/1/0 RF xy   kg/m2/s    NH3    26/213/253/1007        1 50\n0 EPA16_NO__othptNO              $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO         2002-2020/1-12/1/0 RF xy   kg/m2/s    NO     115/25/210/251/1007    1 50\n0 EPA16_NO2__othptNO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 NO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    NO2    25/210/251/1007        1 50\n0 EPA16_PRPE__othptOLE           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 OLE        2002-2020/1-12/1/0 RF xy   kg/m2/s    PRPE   26/215/254/1007        1 50\n0 EPA16_ALK4__othptPAR           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PAR        2002-2020/1-12/1/0 RF xy   kg/m2/s    ALK4   26/212/254/1007        1 50\n0 EPA16_BCPI__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPI   26/221/256/1007/70     1 50\n0 EPA16_BCPO__othptPEC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PEC        2002-2020/1-12/1/0 RF xy   kg/m2/s    BCPO   26/221/256/1007/71     1 50\n0 EPA16_HNO4__othptPNA           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNA        2002-2020/1-12/1/0 RF xy   kg/m2/s    HNO4   26/213/251/1007        1 50\n0 EPA16_NH4__othptPNH4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNH4       2002-2020/1-12/1/0 RF xy   kg/m2/s    NH4    26/218/255/1007        1 50\n0 EPA16_NIT__othptPNO3           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PNO3       2002-2020/1-12/1/0 RF xy   kg/m2/s    NIT    26/218/255/1007        1 50\n0 EPA16_OCPI__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPI   26/222/256/1007/72     1 50\n0 EPA16_OCPO__othptPOC           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 POC        2002-2020/1-12/1/0 RF xy   kg/m2/s    OCPO   26/222/256/1007/73     1 50\n0 EPA16_POG1__othptPOC           -                                                                                     -          -                  -  -    -          POG1   26/222/256/1007/74/76  1 50\n0 EPA16_POG2__othptPOC           -                                                                                     -          -                  -  -    -          POG2   26/222/256/1007/74/77  1 50\n0 EPA16_C3H8__othptPRPA          $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PRPA       2002-2020/1-12/1/0 RF xy   kg/m2/s    C3H8   26/216/254/1007        1 50\n0 EPA16_SO4__othptPSO4           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 PSO4       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_SO2__othptSO2            $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SO2        2002-2020/1-12/1/0 RF xy   kg/m2/s    SO2    26/218/255/1007        1 50\n0 EPA16_pFe__othptpFe            -                                                                                     -          -                  -  -    -          pFe    26/218/255/1007/69     1 50\n0 EPA16_SO4__othptSULF           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 SULF       2002-2020/1-12/1/0 RF xy   kg/m2/s    SO4    26/219/255/1007        1 50\n0 EPA16_TOLU__othptTOL           $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 TOL        2002-2020/1-12/1/0 RF xy   kg/m2/s    TOLU   26/213/254/1007        1 50\n0 EPA16_XYLE__othptXYLMN         $ROOT/NEI2016/v2021-06/2016fh_16j_emln_othpt_0pt1degree_month_$MM.ncf                 XYLMN      2002-2020/1-12/1/0 RF xy   kg/m2/s    XYLE   26/213/254/1007        1 50\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- DICE-Africa emission inventory (Marais and Wiedinmyer, ES&T, 2016) ---\n#\n# DICE-Africa includes regional (Africa) emissions of biofuel and diffuse\n# anthropogenic emissions from cars and motorcycles, biofuels, charcoal making\n# and use, backup generators, agricultural waste burning for cooking, gas\n# flares, and ad-hoc/informal oil refining.\n#\n# Other pollution sources (formal industry, power generation using fossil\n# fuels) are from the EDGAR v4.3 inventory for CO, SO2, NH3, NOx BC, and OC.\n#\n# NMVOCs from sources not accounted for in DICE-Africa aren't included here,\n# as these emissions are likely to be low compared to the DICE pollution\n# sources and RETRO v1 as implemented in GEOS-Chem doesn't distinguish\n# emissions by sector/activity.\n#\n# Emissions for 2013 are defined below, but DICE-Africa also includes\n# emissions for 2006.  Developers recommend using population change to\n# estimate emissions, if users want to use annual trends in pollutant\n# emissions to estimate in other years.\n#==============================================================================\n(((DICE_Africa\n# ------------------------\n#  Cars\n# ------------------------\n0 DICE_CARS_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CO      2013/1/1/0 C xy g/m2/yr  CO    26/1008         1 60\n0 DICE_CARS_SOAP  -                                                                 -       -          - -  -        SOAP  26/1008/280     1 60\n0 DICE_CARS_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  NO      2013/1/1/0 C xy g/m2/yr  NO    25/30/1008      1 60\n0 DICE_CARS_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALK4    2013/1/1/0 C xy g/m2/yr  ALK4  26/1008         1 60\n0 DICE_CARS_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ISOP    2013/1/1/0 C xy g/m2/yr  ISOP  26/1008         1 60\n0 DICE_CARS_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ACET    2013/1/1/0 C xy g/m2/yr  ACET  26/1008         1 60\n0 DICE_CARS_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  MEK     2013/1/1/0 C xy g/m2/yr  MEK   26/1008         1 60\n0 DICE_CARS_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  ALD2    2013/1/1/0 C xy g/m2/yr  ALD2  26/1008         1 60\n0 DICE_CARS_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  RCHO    2013/1/1/0 C xy g/m2/yr  RCHO  26/1008         1 60\n0 DICE_CARS_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  PRPE    2013/1/1/0 C xy g/m2/yr  PRPE  26/1008         1 60\n0 DICE_CARS_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  CH2O    2013/1/1/0 C xy g/m2/yr  CH2O  26/1008         1 60\n0 DICE_CARS_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  SO2     2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008      1 60\n0 DICE_CARS_SO4   -                                                                 -       -          - -  -        SO4   31/63/1008      1 60\n0 DICE_CARS_pFe   -                                                                 -       -          - -  -        pFe   31/78/66/1008   1 60\n0 DICE_CARS_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  C2H4    2013/1/1/0 C xy g/m2/yr  C2H4  26/1008         1 60\n0 DICE_CARS_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BENZ    2013/1/1/0 C xy g/m2/yr  BENZ  26/1008         1 60\n0 DICE_CARS_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  TOLU    2013/1/1/0 C xy g/m2/yr  TOLU  26/1008         1 60\n0 DICE_CARS_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  XYLE    2013/1/1/0 C xy g/m2/yr  XYLE  26/1008         1 60\n0 DICE_CARS_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  BC      2013/1/1/0 C xy g/m2/yr  BCPI  70/1008         1 60\n0 DICE_CARS_BCPO  -                                                                 -       -          - -  -        BCPO  71/1008         1 60\n0 DICE_CARS_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-cars-2013-v01-4Oct2016.nc  OC      2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/330     1 60\n0 DICE_CARS_OCPO  -                                                                 -       -          - -  -        OCPO  73/1008/330     1 60\n0 DICE_CARS_POG1  -                                                                 -       -          - -  -        POG1  74/76/1008/330  1 60\n0 DICE_CARS_POG2  -                                                                 -       -          - -  -        POG2  74/77/1008/330  1 60\n\n# ------------------------\n#  Motorcycles\n# ------------------------\n0 DICE_MOTORCYCLES_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CO     2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_MOTORCYCLES_SOAP  -                                                                        -      -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_MOTORCYCLES_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  NO     2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_MOTORCYCLES_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  SO2    2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_MOTORCYCLES_SO4   -                                                                        -      -          - -  -        SO4   31/63/1008       1 60\n0 DICE_MOTORCYCLES_pFe   -                                                                        -      -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_MOTORCYCLES_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALK4   2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_MOTORCYCLES_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  MEK    2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_MOTORCYCLES_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  ALD2   2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_MOTORCYCLES_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  PRPE   2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_MOTORCYCLES_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  CH2O   2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_MOTORCYCLES_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BENZ   2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_MOTORCYCLES_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  TOLU   2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_MOTORCYCLES_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  BC     2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_MOTORCYCLES_BCPO  -                                                                        -      -          - -  -        BCPO  71/1008          1 60\n0 DICE_MOTORCYCLES_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-motorcycles-2013-v01-4Oct2016.nc  OC     2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_MOTORCYCLES_OCPO  -                                                                        -      -          - -  -        OCPO  73/1008          1 60\n0 DICE_MOTORCYCLES_POG1  -                                                                        -      -          -  - -        POG1  74/76/1008       1 60\n0 DICE_MOTORCYCLES_POG2  -                                                                        -      -          -  - -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Backup generators\n# ------------------------\n0 DICE_BACKUPGEN_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CO   2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_BACKUPGEN_SOAP  -                                                                          -    -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_BACKUPGEN_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO   2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_BACKUPGEN_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  NO2  2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       1 60\n0 DICE_BACKUPGEN_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  SO2  2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_BACKUPGEN_SO4   -                                                                          -    -          - -  -        SO4   31/63/1008       1 60\n0 DICE_BACKUPGEN_pFe   -                                                                          -    -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_BACKUPGEN_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ACET 2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_BACKUPGEN_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MEK  2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_BACKUPGEN_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  ALD2 2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_BACKUPGEN_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  RCHO 2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_BACKUPGEN_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MVK  2013/1/1/0 C xy g/m2/yr  MVK   26/1008          1 60\n0 DICE_BACKUPGEN_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MACR 2013/1/1/0 C xy g/m2/yr  MACR  26/1008          1 60\n0 DICE_BACKUPGEN_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  CH2O 2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n#0 DICE_BACKUPGEN_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  MGLY 2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          1 60\n#0 DICE_BACKUPGEN_GLYX $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  GLYX 2013/1/1/0 C xy g/m2/yr  GLYX  26/1008          1 60\n0 DICE_BACKUPGEN_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  C2H4 2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          1 60\n0 DICE_BACKUPGEN_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BENZ 2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_BACKUPGEN_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  TOLU 2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_BACKUPGEN_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  XYLE 2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_BACKUPGEN_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  BC   2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_BACKUPGEN_BCPO  -                                                                          -    -          - -  -        BCPO  71/1008          1 60\n0 DICE_BACKUPGEN_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-generator-use-2013-v01-4Oct2016.nc  OC   2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_BACKUPGEN_OCPO  -                                                                          -    -          - -  -        OCPO  73/1008          1 60\n0 DICE_BACKUPGEN_POG1  -                                                                          -    -          - -  -        POG1  74/76/1008       1 60\n0 DICE_BACKUPGEN_POG2  -                                                                          -    -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------\n#  Charcoal production\n# ------------------------\n0 DICE_CHARCOALPROD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008/320      1 60\n0 DICE_CHARCOALPROD_SOAP  -                                                                                -     -          - -  -        SOAP  26/1008/280/320  1 60\n0 DICE_CHARCOALPROD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008/320   1 60\n0 DICE_CHARCOALPROD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008/320         1 60\n0 DICE_CHARCOALPROD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008/320      1 60\n0 DICE_CHARCOALPROD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008/320      1 60\n0 DICE_CHARCOALPROD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008/320      1 60\n0 DICE_CHARCOALPROD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008/320      1 60\n0 DICE_CHARCOALPROD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008/320      1 60\n0 DICE_CHARCOALPROD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008/320      1 60\n0 DICE_CHARCOALPROD_BCPO  -                                                                                -     -          - -  -        BCPO  71/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-production-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008/320      1 60\n0 DICE_CHARCOALPROD_OCPO  -                                                                                -     -          - -  -        OCPO  73/1008/320      1 60\n0 DICE_CHARCOALPROD_POG1  -                                                                                -     -          - -  -        POG1  74/76/1008/320   1 60\n0 DICE_CHARCOALPROD_POG2  -                                                                                -     -          - -  -        POG2  74/77/1008/320   1 60\n\n# ------------------------\n#  Flaring of natural gas\n# ------------------------\n0 DICE_GASFLARE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_GASFLARE_SOAP  -                                                                       -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_GASFLARE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_GASFLARE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_GASFLARE_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_GASFLARE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          1 60\n0 DICE_GASFLARE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_GASFLARE_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_GASFLARE_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_GASFLARE_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_GASFLARE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_GASFLARE_BCPO  -                                                                       -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_GASFLARE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-gas-flares-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_GASFLARE_OCPO  -                                                                       -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_GASFLARE_POG1  -                                                                       -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_GASFLARE_POG2  -                                                                       -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Ag waste burning for energy\n# ------------------------------\n0 DICE_AGBURNING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_AGBURNING_SOAP  -                                                                                       -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_AGBURNING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_AGBURNING_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_AGBURNING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_AGBURNING_SO4   -                                                                                       -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_AGBURNING_pFe   -                                                                                       -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_AGBURNING_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_AGBURNING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_AGBURNING_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_AGBURNING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          2 60\n0 DICE_AGBURNING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_AGBURNING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_AGBURNING_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_AGBURNING_MACR  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MACR  2013/1/1/0 C xy g/m2/yr  MACR  26/1008          2 60\n0 DICE_AGBURNING_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_AGBURNING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          2 60\n0 DICE_AGBURNING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_AGBURNING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_AGBURNING_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_AGBURNING_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_AGBURNING_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_AGBURNING_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_AGBURNING_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_AGBURNING_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_AGBURNING_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_AGBURNING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_AGBURNING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_AGBURNING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_AGBURNING_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_AGBURNING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_AGBURNING_BCPO  -                                                                                       -     -          - -  g/m2/yr  BCPO  71/1008          2 60\n0 DICE_AGBURNING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-crop-residue-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_AGBURNING_OCPO  -                                                                                       -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_AGBURNING_POG1  -                                                                                       -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_AGBURNING_POG2  -                                                                                       -     -          - -  -        POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Charcoal use\n# ------------------------------\n0 DICE_CHARCOALUSE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_CHARCOALUSE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_CHARCOALUSE_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_CHARCOALUSE_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_CHARCOALUSE_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_CHARCOALUSE_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_CHARCOALUSE_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_CHARCOALUSE_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_CHARCOALUSE_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_CHARCOALUSE_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n0 DICE_CHARCOALUSE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_CHARCOALUSE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_CHARCOALUSE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-charcoal-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_CHARCOALUSE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_CHARCOALUSE_POG1  -                                                                         -     -          - - -         POG1  74/76/1008       2 60\n0 DICE_CHARCOALUSE_POG2  -                                                                         -     -          - - -         POG2  74/77/1008       2 60\n\n# ------------------------------\n#  Kerosene use\n# ------------------------------\n0 DICE_KEROSENE_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_KEROSENE_SOAP  -                                                                         -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_KEROSENE_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_KEROSENE_BCPO  -                                                                         -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_KEROSENE_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-kerosene-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_KEROSENE_OCPO  -                                                                         -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_KEROSENE_POG1  -                                                                         -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_KEROSENE_POG2  -                                                                         -     -          - -  -        POG2  74/77/1008       1 60\n\n# ------------------------------\n#  Artisanal oil refining\n# ------------------------------\n0 DICE_OILREFINING_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          1 60\n0 DICE_OILREFINING_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      1 60\n0 DICE_OILREFINING_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       1 60\n0 DICE_OILREFINING_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       1 60\n0 DICE_OILREFINING_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       1 60\n0 DICE_OILREFINING_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    1 60\n0 DICE_OILREFINING_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          1 60\n0 DICE_OILREFINING_ACET  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ACET  2013/1/1/0 C xy g/m2/yr  ACET  26/1008          1 60\n0 DICE_OILREFINING_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          1 60\n0 DICE_OILREFINING_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          1 60\n0 DICE_OILREFINING_RCHO  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  RCHO  2013/1/1/0 C xy g/m2/yr  RCHO  26/1008          1 60\n0 DICE_OILREFINING_C3H8  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C3H8  2013/1/1/0 C xy g/m2/yr  C3H8  26/1008          1 60\n0 DICE_OILREFINING_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          1 60\n0 DICE_OILREFINING_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          1 60\n0 DICE_OILREFINING_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          1 60\n0 DICE_OILREFINING_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          1 60\n0 DICE_OILREFINING_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          1 60\n0 DICE_OILREFINING_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          1 60\n0 DICE_OILREFINING_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          1 60\n0 DICE_OILREFINING_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-adhoc-oil-refining-2006-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          1 60\n0 DICE_OILREFINING_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          1 60\n0 DICE_OILREFINING_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       1 60\n0 DICE_OILREFINING_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       1 60\n\n# --------------------------\n#  Household fuelwood use\n# --------------------------\n0 DICE_HOUSEFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_HOUSEFUELWOOD_SOAP  -                                                                                   -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_HOUSEFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_HOUSEFUELWOOD_SO4   -                                                                                   -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_HOUSEFUELWOOD_pFe   -                                                                                   -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_HOUSEFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_HOUSEFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_HOUSEFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_HOUSEFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_HOUSEFUELWOOD_BCPO  -                                                                                   -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_HOUSEFUELWOOD_OCPO  -                                                                                   -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_HOUSEFUELWOOD_POG1  -                                                                                   -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_HOUSEFUELWOOD_POG2  -                                                                                   -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------\n#  Commercial (other) fuelwood use\n# ---------------------------------\n0 DICE_OTHERFUELWOOD_CO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CO    2013/1/1/0 C xy g/m2/yr  CO    26/1008          2 60\n0 DICE_OTHERFUELWOOD_SOAP  -                                                                               -     -          - -  -        SOAP  26/1008/280      2 60\n0 DICE_OTHERFUELWOOD_NO    $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO    2013/1/1/0 C xy g/m2/yr  NO    25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_NO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NO2   2013/1/1/0 C xy g/m2/yr  NO2   25/30/1008       2 60\n0 DICE_OTHERFUELWOOD_SO2   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  SO2   2013/1/1/0 C xy g/m2/yr  SO2   31/78/1008       2 60\n0 DICE_OTHERFUELWOOD_SO4   -                                                                               -     -          - -  -        SO4   31/63/1008       2 60\n0 DICE_OTHERFUELWOOD_pFe   -                                                                               -     -          - -  -        pFe   31/78/66/1008    2 60\n0 DICE_OTHERFUELWOOD_NH3   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  NH3   2013/1/1/0 C xy g/m2/yr  NH3   1008             2 60\n0 DICE_OTHERFUELWOOD_ALK4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALK4  2013/1/1/0 C xy g/m2/yr  ALK4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_ISOP  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ISOP  2013/1/1/0 C xy g/m2/yr  ISOP  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MEK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MEK   2013/1/1/0 C xy g/m2/yr  MEK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_ALD2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  ALD2  2013/1/1/0 C xy g/m2/yr  ALD2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MVK   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MVK   2013/1/1/0 C xy g/m2/yr  MVK   26/1008          2 60\n0 DICE_OTHERFUELWOOD_PRPE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  PRPE  2013/1/1/0 C xy g/m2/yr  PRPE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_CH2O  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  CH2O  2013/1/1/0 C xy g/m2/yr  CH2O  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H6  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H6  2013/1/1/0 C xy g/m2/yr  C2H6  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HAC   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HAC   2013/1/1/0 C xy g/m2/yr  HAC   26/1008          2 60\n0 DICE_OTHERFUELWOOD_GLYC  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  GLYC  2013/1/1/0 C xy g/m2/yr  GLYC  26/1008          2 60\n0 DICE_OTHERFUELWOOD_MOH   $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MOH   2013/1/1/0 C xy g/m2/yr  MOH   26/1008          2 60\n#0 DICE_OTHERFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  MGLY  2013/1/1/0 C xy g/m2/yr  MGLY  26/1008          2 60\n#0 DICE_OTHERFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  APIN  2013/1/1/0 C xy g/m2/yr  APIN  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H2  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H2  2013/1/1/0 C xy g/m2/yr  C2H2  26/1008          2 60\n0 DICE_OTHERFUELWOOD_C2H4  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  C2H4  2013/1/1/0 C xy g/m2/yr  C2H4  26/1008          2 60\n0 DICE_OTHERFUELWOOD_BENZ  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BENZ  2013/1/1/0 C xy g/m2/yr  BENZ  26/1008          2 60\n0 DICE_OTHERFUELWOOD_TOLU  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  TOLU  2013/1/1/0 C xy g/m2/yr  TOLU  26/1008          2 60\n0 DICE_OTHERFUELWOOD_XYLE  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  XYLE  2013/1/1/0 C xy g/m2/yr  XYLE  26/1008          2 60\n0 DICE_OTHERFUELWOOD_HCOOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  HCOOH 2013/1/1/0 C xy g/m2/yr  HCOOH 26/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  BC    2013/1/1/0 C xy g/m2/yr  BCPI  70/1008          2 60\n0 DICE_OTHERFUELWOOD_BCPO  -                                                                               -     -          - -  -        BCPO  71/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPI  $ROOT/DICE_Africa/v2016-10/DICE-Africa-other-fuelwood-use-2013-v01-4Oct2016.nc  OC    2013/1/1/0 C xy g/m2/yr  OCPI  72/1008          2 60\n0 DICE_OTHERFUELWOOD_OCPO  -                                                                               -     -          - -  -        OCPO  73/1008          2 60\n0 DICE_OTHERFUELWOOD_POG1  -                                                                               -     -          - -  -        POG1  74/76/1008       2 60\n0 DICE_OTHERFUELWOOD_POG2  -                                                                               -     -          - -  -        POG2  74/77/1008       2 60\n\n# ---------------------------------------------------\n#  Efficient Combustion Emissions from EDGAR\n#  This makes up for sources that DICE-Africa lacks\n# ---------------------------------------------------\n0 AF_EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1201/1008/70         1 60\n0 AF_EDGAR_BCPO_POW -                                                    -       -               -  -  -       BCPO 1201/1008/71         1 60\n0 AF_EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1202/1008/70         1 60\n0 AF_EDGAR_BCPO_ENG -                                                    -       -               -  -  -       BCPO 1202/1008/71         1 60\n0 AF_EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1203/1008/70         1 60\n0 AF_EDGAR_BCPO_IND -                                                    -       -               -  -  -       BCPO 1203/1008/71         1 60\n0 AF_EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1205/1008/70         1 60\n0 AF_EDGAR_BCPO_TNG -                                                    -       -               -  -  -       BCPO 1205/1008/71         1 60\n0 AF_EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 RF xy kg/m2/s BCPI 1211/1008/70         1 60\n0 AF_EDGAR_BCPO_SWD -                                                    -       -               -  -  -       BCPO 1211/1008/71         1 60\n\n0 AF_EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1201/26/52/1008      1 60\n0 AF_EDGAR_SOAP_POW -                                                    -       -               -  -  -       SOAP 1201/26/52/1008/280  1 60\n0 AF_EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1202/26/52/1008      1 60\n0 AF_EDGAR_SOAP_ENG -                                                    -       -               -  -  -       SOAP 1202/26/52/1008/280  1 60\n0 AF_EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1203/26/52/1008      1 60\n0 AF_EDGAR_SOAP_IND -                                                    -       -               -  -  -       SOAP 1203/26/52/1008/280  1 60\n0 AF_EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1205/26/52/1008      1 60\n0 AF_EDGAR_SOAP_TNG -                                                    -       -               -  -  -       SOAP 1205/26/52/1008/280  1 60\n0 AF_EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1207/26/52/1008      1 60\n0 AF_EDGAR_SOAP_PPA -                                                    -       -               -  -  -       SOAP 1207/26/52/1008/280  1 60\n0 AF_EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 RF xy kg/m2/s CO   1211/26/52/1008      1 60\n0 AF_EDGAR_SOAP_SWD -                                                    -       -               -  -  -       SOAP 1211/26/52/1008/280  1 60\n\n0 AF_EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1201/25/115/1008     1 60\n0 AF_EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1202/25/115/1008     1 60\n0 AF_EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1203/25/115/1008     1 60\n0 AF_EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1205/25/115/1008     1 60\n0 AF_EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1207/25/115/1008     1 60\n0 AF_EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1208/25/115/1008     1 60\n0 AF_EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 RF xy kg/m2/s NO   1211/25/115/1008     1 60\n\n0 AF_EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1201/1008            1 60\n0 AF_EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1202/1008            1 60\n0 AF_EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1203/1008            1 60\n0 AF_EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1205/1008            1 60\n0 AF_EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1207/1008            1 60\n0 AF_EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1208/1008            1 60\n0 AF_EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1210/1008            1 60\n0 AF_EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 RF xy kg/m2/s NH3  1211/1008            1 60\n\n0 AF_EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1201/1008/72         1 60\n0 AF_EDGAR_OCPO_POW -                                                    -       -               -  -  -       OCPO 1201/1008/73         1 60\n0 AF_EDGAR_POG1_POW -                                                    -       -               -  -  -       POG1 1201/1008/74/76      1 60\n0 AF_EDGAR_POG2_POW -                                                    -       -               -  -  -       POG2 1201/1008/74/77      1 60\n0 AF_EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1202/1008/72         1 60\n0 AF_EDGAR_OCPO_ENG -                                                    -       -               -  -  -       OCPO 1202/1008/73         1 60\n0 AF_EDGAR_POG1_ENG -                                                    -       -               -  -  -       POG1 1202/1008/74/76      1 60\n0 AF_EDGAR_POG2_ENG -                                                    -       -               -  -  -       POG2 1202/1008/74/77      1 60\n0 AF_EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1203/1008/72         1 60\n0 AF_EDGAR_OCPO_IND -                                                    -       -               -  -  -       OCPO 1203/1008/73         1 60\n0 AF_EDGAR_POG1_IND -                                                    -       -               -  -  -       POG1 1203/1008/74/76      1 60\n0 AF_EDGAR_POG2_IND -                                                    -       -               -  -  -       POG2 1203/1008/74/77      1 60\n0 AF_EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1205/1008/72         1 60\n0 AF_EDGAR_OCPO_TNG -                                                    -       -               -  -  -       OCPO 1205/1008/73         1 60\n0 AF_EDGAR_POG1_TNG -                                                    -       -               -  -  -       POG1 1205/1008/74/76      1 60\n0 AF_EDGAR_POG2_TNG -                                                    -       -               -  -  -       POG2 1205/1008/74/77      1 60\n0 AF_EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 RF xy kg/m2/s OCPI 1211/1008/72         1 60\n0 AF_EDGAR_OCPO_SWD -                                                    -       -               -  -  -       OCPO 1211/1008/73         1 60\n0 AF_EDGAR_POG1_SWD -                                                    -       -               -  -  -       POG1 1211/1008/74/76      1 60\n0 AF_EDGAR_POG2_SWD -                                                    -       -               -  -  -       POG2 1211/1008/74/77      1 60\n\n0 AF_EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1201/1008            1 60\n0 AF_EDGAR_SO4_POW  -                                                    -       -               -  -  -       SO4  1201/1008/63         1 60\n0 AF_EDGAR_pFe_POW  -                                                    -       -               -  -  -       pFe  1201/1008/66         1 60\n0 AF_EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1202/1008            1 60\n0 AF_EDGAR_SO4_ENG  -                                                    -       -               -  -  -       SO4  1202/1008/63         1 60\n0 AF_EDGAR_pFe_ENG  -                                                    -       -               -  -  -       pFe  1202/1008/66         1 60\n0 AF_EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1203/1008            1 60\n0 AF_EDGAR_SO4_IND  -                                                    -       -               -  -  -       SO4  1203/1008/63         1 60\n0 AF_EDGAR_pFe_IND  -                                                    -       -               -  -  -       pFe  1203/1008/66         1 60\n0 AF_EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1205/1008            1 60\n0 AF_EDGAR_SO4_TNG  -                                                    -       -               -  -  -       SO4  1205/1008/63         1 60\n0 AF_EDGAR_pFe_TNG  -                                                    -       -               -  -  -       pFe  1205/1008/66         1 60\n0 AF_EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1207/1008            1 60\n0 AF_EDGAR_SO4_PPA  -                                                    -       -               -  -  -       SO4  1207/1008/63         1 60\n0 AF_EDGAR_pFe_PPA  -                                                    -       -               -  -  -       pFe  1207/1008/66         1 60\n0 AF_EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 RF xy kg/m2/s SO2  1211/1008            1 60\n0 AF_EDGAR_SO4_SWD  -                                                    -       -               -  -  -       SO4  1211/1008/63         1 60\n0 AF_EDGAR_pFe_SWD  -                                                    -       -               -  -  -       pFe  1211/1008/66         1 60\n)))DICE_Africa\n\n#==============================================================================\n# --- CEDS v2 ---\n#\n# %%% This is the default global inventory. You may select either CEDS,\n# EDGAR, HTAPv3 or CMIP6_SFC_LAND_ANTHRO for the global base emissions %%%\n#==============================================================================\n(((CEDSv2\n0 CEDS_NO_AGR     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_agr            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2401                1 5\n0 CEDS_NO_ENE     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s NO    2406/706/315        1 5\n0 CEDS_NO_IND     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s NO    2407/707/316        1 5\n0 CEDS_NO_TRA     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_tra            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2411/711            1 5\n0 CEDS_NO_RCO     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_rco            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2409/709            1 5\n0 CEDS_NO_SLV     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_slv            1750-2019/1-12/1/0 C xy   kg/m2/s NO    2407/707            1 5\n0 CEDS_NO_WST     $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc            NO_wst            1750-2019/1-12/1/0 C xy   kg/m2/s NO    25                  1 5\n\n0 CEDS_CO_AGR     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_agr            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2401                1 5\n0 CEDS_SOAP_AGR   -                                                                    -                 -                  - -    -       SOAP  280/2401            1 5\n0 CEDS_CO_ENE     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s CO    2406/706/315        1 5\n0 CEDS_SOAP_ENE   -                                                                    -                 -                  - -    -       SOAP  280/2406/706/315    1 5\n0 CEDS_CO_IND     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s CO    2407/707/316        1 5\n0 CEDS_SOAP_IND   -                                                                    -                 -                  - -    -       SOAP  280/2407/707/316    1 5\n0 CEDS_CO_TRA     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_tra            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2411/711            1 5\n0 CEDS_SOAP_TRA   -                                                                    -                 -                  - -    -       SOAP  280/2411/711        1 5\n0 CEDS_CO_RCO     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_rco            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2409/709            1 5\n0 CEDS_SOAP_RCO   -                                                                    -                 -                  - -    -       SOAP  280/2409/709        1 5\n0 CEDS_CO_SLV     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_slv            1750-2019/1-12/1/0 C xy   kg/m2/s CO    2407/707            1 5\n0 CEDS_SOAP_SLV   -                                                                    -                 -                  - -    -       SOAP  280/2407/707        1 5\n0 CEDS_CO_WST     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_wst            1750-2019/1-12/1/0 C xy   kg/m2/s CO    26                  1 5\n0 CEDS_SOAP_WST   -                                                                    -                 -                  - -    -       SOAP  26/280              1 5\n\n0 CEDS_SO2_AGR    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_agr           1750-2019/1-12/1/0 C xy   kg/m2/s SO2   2401                1 5\n0 CEDS_SO4_AGR    -                                                                    -                 -                  - -    -       SO4   63/2401             1 5\n0 CEDS_pFe_AGR    -                                                                    -                 -                  - -    -       pFe   66/2401             1 5\n0 CEDS_SO2_ENE    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s SO2   2406/706/315        1 5\n0 CEDS_SO4_ENE    -                                                                    -                 -                  - -    -       SO4   63/2406/706/315     1 5\n0 CEDS_pFe_ENE    -                                                                    -                 -                  - -    -       pFe   66/2406/706/315     1 5\n0 CEDS_SO2_IND    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s SO2   2407/707/316        1 5\n0 CEDS_SO4_IND    -                                                                    -                 -                  - -    -       SO4   63/2407/707/316     1 5\n0 CEDS_pFe_IND    -                                                                    -                 -                  - -    -       pFe   66/2407/707/316     1 5\n0 CEDS_SO2_TRA    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_tra           1750-2019/1-12/1/0 C xy   kg/m2/s SO2   2411/711            1 5\n0 CEDS_SO4_TRA    -                                                                    -                 -                  - -    -       SO4   63/2411/711         1 5\n0 CEDS_pFe_TRA    -                                                                    -                 -                  - -    -       pFe   66/2411/711         1 5\n0 CEDS_SO2_RCO    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_rco           1750-2019/1-12/1/0 C xy   kg/m2/s SO2   2409/709            1 5\n0 CEDS_SO4_RCO    -                                                                    -                 -                  - -    -       SO4   63/2409/709         1 5\n0 CEDS_pFe_RCO    -                                                                    -                 -                  - -    -       pFe   66/2409/709         1 5\n0 CEDS_SO2_SLV    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_slv           1750-2019/1-12/1/0 C xy   kg/m2/s SO2   2407/707            1 5\n0 CEDS_SO4_SLV    -                                                                    -                 -                  - -    -       SO4   63/2407/707         1 5\n0 CEDS_pFe_SLV    -                                                                    -                 -                  - -    -       pFe   66/2407/707         1 5\n0 CEDS_SO2_WST    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_wst           1750-2019/1-12/1/0 C xy   kg/m2/s SO2   -                   1 5\n0 CEDS_SO4_WST    -                                                                    -                 -                  - -    -       SO4   63                  1 5\n0 CEDS_pFe_WST    -                                                                    -                 -                  - -    -       pFe   66                  1 5\n\n0 CEDS_NH3_AGR    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_agr           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2401                1 5\n0 CEDS_NH3_ENE    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s NH3   2406/706/315        1 5\n0 CEDS_NH3_IND    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s NH3   2407/707/316        1 5\n0 CEDS_NH3_TRA    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_tra           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2411/711            1 5\n0 CEDS_NH3_RCO    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_rco           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2409/709            1 5\n0 CEDS_NH3_SLV    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_slv           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   2407/707            1 5\n0 CEDS_NH3_WST    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_wst           1750-2019/1-12/1/0 C xy   kg/m2/s NH3   -                   1 5\n\n0 CEDS_BCPI_AGR   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_agr            1750-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2401             1 5\n0 CEDS_BCPO_AGR   -                                                                    -                 -                  - -    -       BCPO  71/2401             1 5\n0 CEDS_BCPI_ENE   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2406/706/315     1 5\n0 CEDS_BCPO_ENE   -                                                                    -                 -                  - -    -       BCPO  71/2406/706/315     1 5\n0 CEDS_BCPI_IND   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s BCPI  70/2407/707/316     1 5\n0 CEDS_BCPO_IND   -                                                                    -                 -                  - -    -       BCPO  71/2407/707/316     1 5\n0 CEDS_BCPI_TRA   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_tra            1750-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2411/711         1 5\n0 CEDS_BCPO_TRA   -                                                                    -                 -                  - -    -       BCPO  71/2411/711         1 5\n0 CEDS_BCPI_RCO   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_rco            1750-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2409/709         1 5\n0 CEDS_BCPO_RCO   -                                                                    -                 -                  - -    -       BCPO  71/2409/709         1 5\n0 CEDS_BCPI_SLV   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_slv            1750-2019/1-12/1/0 C xy   kg/m2/s BCPI  70/2407/707         1 5\n0 CEDS_BCPO_SLV   -                                                                    -                 -                  - -    -       BCPO  71/2407/707         1 5\n0 CEDS_BCPI_WST   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_wst            1750-2019/1-12/1/0 C xy   kg/m2/s BCPI  70                  1 5\n0 CEDS_BCPO_WST   -                                                                    -                 -                  - -    -       BCPO  71                  1 5\n\n0 CEDS_OCPI_AGR   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_agr            1750-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2401             1 5\n0 CEDS_OCPO_AGR   -                                                                    -                 -                  - -    -       OCPO  73/2401             1 5\n0 CEDS_POG1_AGR   -                                                                    -                 -                  - -    -       POG1  74/76/2401          1 5\n0 CEDS_POG2_AGR   -                                                                    -                 -                  - -    -       POG2  74/77/2401          1 5\n0 CEDS_OCPI_ENE   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_ene            1750-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2406/706/315     1 5\n0 CEDS_OCPO_ENE   -                                                                    -                 -                  - -    -       OCPO  73/2406/706/315     1 5\n0 CEDS_POG1_ENE   -                                                                    -                 -                  - -    -       POG1  74/76/2406/706/315  1 5\n0 CEDS_POG2_ENE   -                                                                    -                 -                  - -    -       POG2  74/77/2406/706/315  1 5\n0 CEDS_OCPI_IND   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_ind            1750-2019/1-12/1/0 C xyL* kg/m2/s OCPI  72/2407/707/316     1 5\n0 CEDS_OCPO_IND   -                                                                    -                 -                  - -    -       OCPO  73/2407/707/316     1 5\n0 CEDS_POG1_IND   -                                                                    -                 -                  - -    -       POG1  74/76/2407/707/316  1 5\n0 CEDS_POG2_IND   -                                                                    -                 -                  - -    -       POG2  74/77/2407/707/316  1 5\n0 CEDS_OCPI_TRA   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_tra            1750-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2411/711         1 5\n0 CEDS_OCPO_TRA   -                                                                    -                 -                  - -    -       OCPO  73/2411/711         1 5\n0 CEDS_POG1_TRA   -                                                                    -                 -                  - -    -       POG1  74/76/2411/711      1 5\n0 CEDS_POG2_TRA   -                                                                    -                 -                  - -    -       POG2  74/77/2411/711      1 5\n0 CEDS_OCPI_RCO   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_rco            1750-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2409/709         1 5\n0 CEDS_OCPO_RCO   -                                                                    -                 -                  - -    -       OCPO  73/2409/709         1 5\n0 CEDS_POG1_RCO   -                                                                    -                 -                  - -    -       POG1  74/76/2409/709      1 5\n0 CEDS_POG2_RCO   -                                                                    -                 -                  - -    -       POG2  74/77/2409/709      1 5\n0 CEDS_OCPI_SLV   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_slv            1750-2019/1-12/1/0 C xy   kg/m2/s OCPI  72/2407/707         1 5\n0 CEDS_OCPO_SLV   -                                                                    -                 -                  - -    -       OCPO  73/2407/707         1 5\n0 CEDS_POG1_SLV   -                                                                    -                 -                  - -    -       POG1  74/76/2407/707      1 5\n0 CEDS_POG2_SLV   -                                                                    -                 -                  - -    -       POG2  74/77/2407/707      1 5\n0 CEDS_OCPI_WST   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_wst            1750-2019/1-12/1/0 C xy   kg/m2/s OCPI  72                  1 5\n0 CEDS_OCPO_WST   -                                                                    -                 -                  - -    -       OCPO  73                  1 5\n0 CEDS_POG1_WST   -                                                                    -                 -                  - -    -       POG1  74/76               1 5\n0 CEDS_POG2_WST   -                                                                    -                 -                  - -    -       POG2  74/77               1 5\n\n# Comment out CO2 for fullchem simulations: CO2 not advected\n#0 CEDS_CO2_AGR   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_agr           1750-2019/1-12/1/0 C xy   kg/m2/s CO2   -                   1 5\n#0 CEDS_CO2_ENE   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s CO2   315                 1 5\n#0 CEDS_CO2_IND   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s CO2   316                 1 5\n#0 CEDS_CO2_TRA   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_tra           1750-2019/1-12/1/0 C xy   kg/m2/s CO2   -                   1 5\n#0 CEDS_CO2_RCO   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_rco           1750-2019/1-12/1/0 C xy   kg/m2/s CO2   -                   1 5\n#0 CEDS_CO2_SLV   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_slv           1750-2019/1-12/1/0 C xy   kg/m2/s CO2   -                   1 5\n#0 CEDS_CO2_WST   $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc           CO2_wst           1750-2019/1-12/1/0 C xy   kg/m2/s CO2   -                   1 5\n\n# Comment out CH4 for fullchem simulations: do not use CH4 emissions\n# CEDS CH4 emissions are only available for 1970-2014\n#0 CEDS_CH4_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_agr           1970-2014/1-12/1/0 C xy   kg/m2/s CH4   -                   1 5\n#0 CEDS_CH4_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_ene           1970-2014/1-12/1/0 C xyL* kg/m2/s CH4   315                 1 5\n#0 CEDS_CH4_IND   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_ind           1970-2014/1-12/1/0 C xyL* kg/m2/s CH4   316                 1 5\n#0 CEDS_CH4_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_tra           1970-2014/1-12/1/0 C xy   kg/m2/s CH4   -                   1 5\n#0 CEDS_CH4_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_rco           1970-2014/1-12/1/0 C xy   kg/m2/s CH4   -                   1 5\n#0 CEDS_CH4_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_slv           1970-2014/1-12/1/0 C xy   kg/m2/s CH4   -                   1 5\n#0 CEDS_CH4_WST   $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc           CH4_wst           1970-2014/1-12/1/0 C xy   kg/m2/s CH4   -                   1 5\n\n# NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2401             1 5\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -    -       EOH   91/2401             1 5\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -    -       ROH   92/2401             1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2406/706/315     1 5\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -    -       EOH   91/2406/706/315     1 5\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -    -       ROH   92/2406/706/315     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s MOH   90/2407/707/316     1 5\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -    -       EOH   91/2407/707/316     1 5\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -    -       ROH   92/2407/707/316     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2411/711         1 5\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -    -       EOH   91/2411/711         1 5\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -    -       ROH   92/2411/711         1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2409/709         1 5\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -    -       EOH   91/2409/709         1 5\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -    -       ROH   92/2409/709         1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   90/2407/707         1 5\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -    -       EOH   91/2407/707         1 5\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -    -       ROH   92/2407/707         1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy   kg/m2/s MOH   26/90               1 5\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -    -       EOH   26/91               1 5\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -    -       ROH   26/92               1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2401                1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2406/706/315        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H6  2407/707/316        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2411/711            1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2409/709            1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  2407/707            1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C2H6  26                  1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2401                1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2406/706/315        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C3H8  2407/707/316        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2411/711            1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2409/709            1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  2407/707            1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C3H8  26                  1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2401                1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2406/706/315        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4  2407/707/316        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2411/711            1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2409/709            1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  2407/707            1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy   kg/m2/s ALK4  26                  1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2401                1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2406/706/315        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6  2407/707/316        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2411/711            1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2409/709            1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  2407/707            1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy   kg/m2/s ALK6  26                  1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2401                1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2406/706/315        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4  2407/707/316        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2411/711            1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2409/709            1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  2407/707            1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C2H4  26                  1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2401                1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2406/706/315        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s PRPE  2407/707/316        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2411/711            1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2409/709            1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  2407/707            1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy   kg/m2/s PRPE  26                  1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2401                1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2406/706/315        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s C2H2  2407/707/316        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2411/711            1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2409/709            1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  2407/707            1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy   kg/m2/s C2H2  26                  1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2401                1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2406/706/315        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s BENZ  2407/707/316        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2411/711            1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2409/709            1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  2407/707            1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy   kg/m2/s BENZ  26                  1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2401                1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2406/706/315        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s TOLU  2407/707/316        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2411/711            1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2409/709            1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  2407/707            1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy   kg/m2/s TOLU  26                  1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2401                1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2406/706/315        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s XYLE  2407/707/316        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2411/711            1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2409/709            1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  2407/707            1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy   kg/m2/s XYLE  26                  1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2401                1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2406/706/315        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s CH2O  2407/707/316        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2411/711            1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2409/709            1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  2407/707            1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy   kg/m2/s CH2O  26                  1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2401                1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2406/706/315        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xyL* kg/m2/s ALD2  2407/707/316        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2411/711            1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2409/709            1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  2407/707            1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy   kg/m2/s ALD2  26                  1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2401                1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s MEK   2406/706/315        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s MEK   2407/707/316        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2411/711            1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2409/709            1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   2407/707            1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy   kg/m2/s MEK   26                  1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2401                1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2406/706/315        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2407/707/316        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2411/711            1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2409/709            1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 2407/707            1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n\n0 CEDS_TMB_AGR    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_agr           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_ENE    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_ene           1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/315              1 5\n0 CEDS_TMB_IND    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_ind           1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/316              1 5\n0 CEDS_TMB_TRA    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_tra           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_RCO    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_rco           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_SLV    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_slv           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n0 CEDS_TMB_WST    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_wst           1750-2019/1-12/1/0 C xy   kg/m2/s HCOOH 26                  1 5\n\n0 CEDS_OTH_AGR    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_agr     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_ENE    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_ene     1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/315               1 5\n0 CEDS_OTH_IND    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_ind     1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/316               1 5\n0 CEDS_OTH_TRA    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_tra     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_RCO    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_rco     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_SLV    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_slv     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n0 CEDS_OTH_WST    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_wst     1750-2019/1-12/1/0 C xy   kg/m2/s ALK6 26                   1 5\n)))CEDSv2\n\n#==============================================================================\n# --- CEDS GBD-MAPS ---\n#\n# NOTES:\n#  -- Reference: McDuffie et al. (2020, Earth System Science Data)\n#  -- Anthropogenic source sectors: agriculture, energy, industry, road transport,\n#       non-road/off-road transport, residential, commercial, other energy use,\n#       solvents, waste, international shipping\n#  -- Fuel categories: the combustion of total coal, solid biofuel, liquid oil\n#       and gas, and all remaining sources\n#       **To use, enable CEDS_byFuelType and CEDS_SHIP_byFuelType**\n#==============================================================================\n(((CEDS_GBDMAPS\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS.rc\n)))CEDS_GBDMAPS\n\n(((CEDS_GBDMAPS_byFuelType\n(((.not.CEDS_GBDMAPS\n(((.not.CEDSv2\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS_byFuelType.rc\n))).not.CEDSv2\n))).not.CEDS_GBDMAPS\n)))CEDS_GBDMAPS_byFuelType\n\n#==============================================================================\n# --- CMIP6_SFC_LAND_ANTHRO ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SFC_LAND_ANTHRO\n0 CMIP6_NO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n0 CMIP6_NO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    NO    25        1 5\n\n0 CMIP6_CO_AGR     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_agr            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_AGR   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_ENE     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ene            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_ENE   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_IND     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_ind            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_IND   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_TRA     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_tra            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_TRA   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_RCO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_rco            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_RCO   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_SLV     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_slv            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_SLV   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n0 CMIP6_CO_WST     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO_wst            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        1 5\n0 CMIP6_SOAP_WST   -                                                                            -                 -                  - -  -          SOAP  26/280    1 5\n\n0 CMIP6_SO2_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_AGR    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_AGR    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_ENE    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_ENE    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_IND    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_IND    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_TRA    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_TRA    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_RCO    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_RCO    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_SLV    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_SLV    -                                                                            -                 -                  - -  -          pFe   66        1 5\n0 CMIP6_SO2_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   SO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         1 5\n0 CMIP6_SO4_WST    -                                                                            -                 -                  - -  -          SO4   63        1 5\n0 CMIP6_pFe_WST    -                                                                            -                 -                  - -  -          pFe   66        1 5\n\n0 CMIP6_NH3_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_agr           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ene           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_ind           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_tra           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_rco           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_slv           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n0 CMIP6_NH3_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   NH3_wst           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         1 5\n\n0 CMIP6_BCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_AGR   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_ENE   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_IND   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_TRA   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_RCO   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_SLV   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n0 CMIP6_BCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        1 5\n0 CMIP6_BCPO_WST   -                                                                            -                 -                  - -  -          BCPO  71        1 5\n\n0 CMIP6_OCPI_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_agr            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_AGR   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_AGR   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_AGR   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ene            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_ENE   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_ENE   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_ENE   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_ind            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_IND   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_IND   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_IND   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_tra            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_TRA   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_TRA   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_TRA   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_rco            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_RCO   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_RCO   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_RCO   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_slv            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_SLV   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_SLV   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_SLV   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n0 CMIP6_OCPI_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   OC_wst            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        1 5\n0 CMIP6_OCPO_WST   -                                                                            -                 -                  - -  -          OCPO  73        1 5\n0 CMIP6_POG1_WST   -                                                                            -                 -                  - -  -          POG1  74/76     1 5\n0 CMIP6_POG2_WST   -                                                                            -                 -                  - -  -          POG2  74/77     1 5\n\n# Comment out CO2 for fullchem simulations: CO2 not advected\n#0 CMIP6_CO2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_agr           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ene           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_ind           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_tra           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_rco           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_slv           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n#0 CMIP6_CO2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CO2_wst           1750-2100/1-12/1/0 C xy kg/m2/s    CO2   -         1 5\n\n# Comment out CH4 for fullchem simulations: do not use CH4 emissions\n# CMIP6 CH4 emissions are only available for 1970-2014\n#0 CMIP6_CH4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_agr           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ene           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_ind           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_tra           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_rco           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_slv           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n#0 CMIP6_CH4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH4_wst           1970-2014/1-12/1/0 C xy kg/m2/s    CH4   -         1 5\n\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_AGR    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_AGR    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_ENE    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_ENE    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_IND    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_IND    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_TRA    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_TRA    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_RCO    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_RCO    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_SLV    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_SLV    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n0 CMIP6_MOH_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   EOH_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     1 5\n0 CMIP6_EOH_WST    -                                                                            -                 -                  - -  -          EOH   26/91     1 5\n0 CMIP6_ROH_WST    -                                                                            -                 -                  - -  -          ROH   26/92     1 5\n\n0 CMIP6_C2H6_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n0 CMIP6_C2H6_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H6_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        1 5\n\n0 CMIP6_C3H8_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n0 CMIP6_C3H8_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C3H8_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        1 5\n\n0 CMIP6_C4H10_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C4H10_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_butanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C5H12_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_agr 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ene 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_ind 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_tra 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_rco 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_slv 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C5H12_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_pentanes_wst 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C6H14_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_agr  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ene  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_ind  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_tra  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_rco  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_slv  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n0 CMIP6_C6H14_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALK4_hexanes_wst  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        1 5\n\n0 CMIP6_C2H4_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n0 CMIP6_C2H4_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H4_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        1 5\n\n0 CMIP6_PRPE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n0 CMIP6_PRPE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   PRPE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        1 5\n\n0 CMIP6_C2H2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n0 CMIP6_C2H2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   C2H2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        1 5\n\n0 CMIP6_BENZ_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_agr          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ene          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_ind          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_tra          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_rco          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_slv          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n0 CMIP6_BENZ_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   BENZ_wst          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        1 5\n\n0 CMIP6_TOLU_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_agr          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ene          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_ind          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_tra          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_rco          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_slv          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n0 CMIP6_TOLU_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   TOLU_wst          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        1 5\n\n0 CMIP6_XYLE_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_agr          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ene          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_ind          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_tra          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_rco          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_slv          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n0 CMIP6_XYLE_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   XYLE_wst          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        1 5\n\n0 CMIP6_CH2O_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_agr          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ene          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_ind          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_tra          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_rco          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_slv          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n0 CMIP6_CH2O_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   CH2O_wst          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        1 5\n\n0 CMIP6_ALD2_AGR   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_agr          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_ENE   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ene          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_IND   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_ind          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_TRA   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_tra          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_RCO   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_rco          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_SLV   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_slv          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n0 CMIP6_ALD2_WST   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   ALD2_wst          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        1 5\n\n0 CMIP6_MEK_AGR    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_agr           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_ENE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ene           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_IND    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_ind           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_TRA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_tra           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_RCO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_rco           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_SLV    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_slv           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n0 CMIP6_MEK_WST    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   MEK_wst           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        1 5\n\n0 CMIP6_HCOOH_AGR  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_agr         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_ENE  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ene         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_IND  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_ind         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_TRA  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_tra         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_RCO  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_rco         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_SLV  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_slv         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n0 CMIP6_HCOOH_WST  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4                   HCOOH_wst         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        1 5\n)))CMIP6_SFC_LAND_ANTHRO\n\n#==============================================================================\n# CEDS (historical) or Shared Socioeconomic Pathways (future) aircraft\n# emissions, consistent with the CMIP6 simulation experimental design\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_AIRCRAFT\n0 CMIP6_AIR_NO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4    NO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   NO    -        20 1\n0 CMIP6_AIR_CO     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4    CO_air            1750-2100/1-12/1/0 C xyz kg/m2/s   CO    -        20 1\n0 CMIP6_AIR_SOAP   -                                                                                -                 -                  - -   -         SOAP  280      20 1\n0 CMIP6_AIR_SO2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    SO2_air           1750-2100/1-12/1/0 C xyz kg/m2/s   SO2   -        20 1\n0 CMIP6_AIR_SO4    -                                                                                -                 -                  - -   -         SO4   63       20 1\n0 CMIP6_AIR_pFe    -                                                                                -                 -                  - -   -         pFe   66       20 1\n0 CMIP6_AIR_ACET   -                                                                                -                 -                  - -   -         ACET  601      20 1\n0 CMIP6_AIR_ALD2   -                                                                                -                 -                  - -   -         ALD2  602      20 1\n0 CMIP6_AIR_ALK4   -                                                                                -                 -                  - -   -         ALK4  603      20 1\n0 CMIP6_AIR_C2H6   -                                                                                -                 -                  - -   -         C2H6  604      20 1\n0 CMIP6_AIR_C3H8   -                                                                                -                 -                  - -   -         C3H8  605      20 1\n0 CMIP6_AIR_CH2O   -                                                                                -                 -                  - -   -         CH2O  606      20 1\n0 CMIP6_AIR_PRPE   -                                                                                -                 -                  - -   -         PRPE  607      20 1\n0 CMIP6_AIR_MACR   -                                                                                -                 -                  - -   -         MACR  608      20 1\n0 CMIP6_AIR_RCHO   -                                                                                -                 -                  - -   -         RCHO  609      20 1\n0 CMIP6_AIR_NH3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    NH3_air           1750-2100/1-12/1/0 C xyz kg/m2/s   NH3   -        20 1\n# Assume all BC/OC is BCPI/OCPI\n0 CMIP6_AIR_BCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    BC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   BCPI  -        20 1\n0 CMIP6_AIR_OCPI   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4    OC_air            1750-2100/1-12/1/0 C xyz kg/m2/s   OCPI  -        20 1\n0 CMIP6_AIR_POG1   -                                                                                -                 -                  - -  -          POG1  74/76    20 1\n0 CMIP6_AIR_POG2   -                                                                                -                 -                  - -  -          POG2  74/77    20 1\n\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EDGAR v4.3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# The following emissions are not included in EDGAR and will be added:\n#  * Wiedinmyer et al. (2014) global trash emissions\n#  * CEDS VOC emissions\n#\n# Aviation and shipping emissions from EDGAR are not included here.\n# We also do not include the following sources:\n#  - Soil emissions of NOx (SOL). These emissions are calculated via the\n#    SoilNOx extension.\n#  - Open biomass burning (AWB). These emissions are obtained from\n#    GFED, QFED, FINN, or GFAS.\n#==============================================================================\n(((EDGARv43\n0  EDGAR_BCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.POW.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1201/70         1 2\n0  EDGAR_BCPO_POW -                                                    -       -               - -  -       BCPO 1201/71         1 2\n0  EDGAR_BCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.ENG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1202/70         1 2\n0  EDGAR_BCPO_ENG -                                                    -       -               - -  -       BCPO 1202/71         1 2\n0  EDGAR_BCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.IND.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1203/70         1 2\n0  EDGAR_BCPO_IND -                                                    -       -               - -  -       BCPO 1203/71         1 2\n0  EDGAR_BCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TRO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1204/70         1 2\n0  EDGAR_BCPO_TRO -                                                    -       -               - -  -       BCPO 1204/71         1 2\n0  EDGAR_BCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.TNG.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1205/70         1 2\n0  EDGAR_BCPO_TNG -                                                    -       -               - -  -       BCPO 1205/71         1 2\n0  EDGAR_BCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.RCO.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1206/70         1 2\n0  EDGAR_BCPO_RCO -                                                    -       -               - -  -       BCPO 1206/71         1 2\n0  EDGAR_BCPI_PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.PPA.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1207/70         1 2\n0  EDGAR_BCPO_PPA -                                                    -       -               - -  -       BCPO 1207/71         1 2\n#0 EDGAR_BCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.AWB.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1209/70         1 2\n#0 EDGAR_BCPO_AWB -                                                    -       -               - -  -       BCPO 1209/71         1 2\n0  EDGAR_BCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.SWD.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1211/70         1 2\n0  EDGAR_BCPO_SWD -                                                    -       -               - -  -       BCPO 1211/71         1 2\n0  EDGAR_BCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.BC.FFF.0.1x0.1.nc  emi_bc  1970-2010/1/1/0 C xy kg/m2/s BCPI 1212/70         1 2\n0  EDGAR_BCPO_FFF -                                                    -       -               - -  -       BCPO 1212/71         1 2\n0  EDGAR_CO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.POW.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1201/26/52      1 2\n0  EDGAR_SOAP_POW -                                                    -       -               - -  -       SOAP 1201/26/52/280  1 2\n0  EDGAR_CO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.ENG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1202/26/52      1 2\n0  EDGAR_SOAP_ENG -                                                    -       -               - -  -       SOAP 1202/26/52/280  1 2\n0  EDGAR_CO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.IND.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1203/26/52      1 2\n0  EDGAR_SOAP_IND -                                                    -       -               - -  -       SOAP 1203/26/52/280  1 2\n0  EDGAR_CO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TRO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1204/26/52      1 2\n0  EDGAR_SOAP_TRO -                                                    -       -               - -  -       SOAP 1204/26/52/280  1 2\n0  EDGAR_CO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.TNG.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1205/26/52      1 2\n0  EDGAR_SOAP_TNG -                                                    -       -               - -  -       SOAP 1205/26/52/280  1 2\n0  EDGAR_CO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.RCO.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1206/26/52      1 2\n0  EDGAR_SOAP_RCO -                                                    -       -               - -  -       SOAP 1206/26/52/280  1 2\n0  EDGAR_CO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.PPA.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1207/26/52      1 2\n0  EDGAR_SOAP_PPA -                                                    -       -               - -  -       SOAP 1207/26/52/280  1 2\n#0 EDGAR_CO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.AWB.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1209/26/52      1 2\n#0 EDGAR_SOAP_AWB -                                                    -       -               - -  -       SOAP 1209/26/52/280  1 2\n0  EDGAR_CO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.SWD.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1211/26/52      1 2\n0  EDGAR_SOAP_SWD -                                                    -       -               - -  -       SOAP 1211/26/52/280  1 2\n0  EDGAR_CO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.CO.FFF.0.1x0.1.nc  emi_co  1970-2010/1/1/0 C xy kg/m2/s CO   1212/26/52      1 2\n0  EDGAR_SOAP_FFF -                                                    -       -               - -  -       SOAP 1212/26/52/280  1 2\n0  EDGAR_NH3_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.POW.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1201            1 2\n0  EDGAR_NH3_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.ENG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1202            1 2\n0  EDGAR_NH3_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.IND.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1203            1 2\n0  EDGAR_NH3_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TRO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1204            1 2\n0  EDGAR_NH3_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.TNG.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1205            1 2\n0  EDGAR_NH3_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.RCO.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1206            1 2\n0  EDGAR_NH3_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.PPA.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1207            1 2\n0  EDGAR_NH3_AGR  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AGR.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1208            1 2\n#0 EDGAR_NH3_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.AWB.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1209            1 2\n0  EDGAR_NH3_SOL  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SOL.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1210            1 2\n0  EDGAR_NH3_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.NH3.SWD.0.1x0.1.nc emi_nh3 1970-2010/1/1/0 C xy kg/m2/s NH3  1211            1 2\n0  EDGAR_NO_POW   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.POW.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1201/25/115     1 2\n0  EDGAR_NO_ENG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.ENG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1202/25/115     1 2\n0  EDGAR_NO_IND   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.IND.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1203/25/115     1 2\n0  EDGAR_NO_TRO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TRO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1204/25/115     1 2\n0  EDGAR_NO_TNG   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.TNG.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1205/25/115     1 2\n0  EDGAR_NO_RCO   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.RCO.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1206/25/115     1 2\n0  EDGAR_NO_PPA   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.PPA.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1207/25/115     1 2\n0  EDGAR_NO_AGR   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AGR.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1208/25/115     1 2\n#0 EDGAR_NO_AWB   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.AWB.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1209/25/115     1 2\n#0 EDGAR_NO_SOL   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SOL.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1210/25/115     1 2\n0  EDGAR_NO_SWD   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.SWD.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1211/25/115     1 2\n0  EDGAR_NO_FFF   $ROOT/EDGARv43/v2016-11/EDGAR_v43.NOx.FFF.0.1x0.1.nc emi_nox 1970-2010/1/1/0 C xy kg/m2/s NO   1212/25/115     1 2\n0  EDGAR_OCPI_POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.POW.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1201/72         1 2\n0  EDGAR_OCPO_POW -                                                    -       -               - -  -       OCPO 1201/73         1 2\n0  EDGAR_POG1_POW -                                                    -       -               - -  -       POG1 1201/74/76      1 2\n0  EDGAR_POG2_POW -                                                    -       -               - -  -       POG2 1201/74/77      1 2\n0  EDGAR_OCPI_ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.ENG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1202/72         1 2\n0  EDGAR_OCPO_ENG -                                                    -       -               - -  -       OCPO 1202/73         1 2\n0  EDGAR_POG1_ENG -                                                    -       -               - -  -       POG1 1202/74/76      1 2\n0  EDGAR_POG2_ENG -                                                    -       -               - -  -       POG2 1202/74/77      1 2\n0  EDGAR_OCPI_IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.IND.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1203/72         1 2\n0  EDGAR_OCPO_IND -                                                    -       -               - -  -       OCPO 1203/73         1 2\n0  EDGAR_POG1_IND -                                                    -       -               - -  -       POG1 1203/74/76      1 2\n0  EDGAR_POG2_IND -                                                    -       -               - -  -       POG2 1203/74/77      1 2\n0  EDGAR_OCPI_TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TRO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1204/72         1 2\n0  EDGAR_OCPO_TRO -                                                    -       -               - -  -       OCPO 1204/73         1 2\n0  EDGAR_POG1_TRO -                                                    -       -               - -  -       POG1 1204/74/76      1 2\n0  EDGAR_POG2_TRO -                                                    -       -               - -  -       POG2 1204/74/77      1 2\n0  EDGAR_OCPI_TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.TNG.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1205/72         1 2\n0  EDGAR_OCPO_TNG -                                                    -       -               - -  -       OCPO 1205/73         1 2\n0  EDGAR_POG1_TNG -                                                    -       -               - -  -       POG1 1205/74/76      1 2\n0  EDGAR_POG2_TNG -                                                    -       -               - -  -       POG2 1205/74/77      1 2\n0  EDGAR_OCPI_RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.RCO.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1206/72         1 2\n0  EDGAR_OCPO_RCO -                                                    -       -               - -  -       OCPO 1206/73         1 2\n0  EDGAR_POG1_RCO -                                                    -       -               - -  -       POG1 1206/74/76      1 2\n0  EDGAR_POG2_RCO -                                                    -       -               - -  -       POG2 1206/74/77      1 2\n#0 EDGAR_OCPI_AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.AWB.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1209/72         1 2\n#0 EDGAR_OCPO_AWB -                                                    -       -               - -  -       OCPO 1209/73         1 2\n#0 EDGAR_POG1_AWB -                                                    -       -               - -  -       POG1 1209/74/76      1 2\n#0 EDGAR_POG2_AWB -                                                    -       -               - -  -       POG2 1209/74/77      1 2\n0  EDGAR_OCPI_SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.SWD.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1211/72         1 2\n0  EDGAR_OCPO_SWD -                                                    -       -               - -  -       OCPO 1211/73         1 2\n0  EDGAR_POG1_SWD -                                                    -       -               - -  -       POG1 1211/74/76      1 2\n0  EDGAR_POG2_SWD -                                                    -       -               - -  -       POG2 1211/74/77      1 2\n0  EDGAR_OCPI_FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.OC.FFF.0.1x0.1.nc  emi_oc  1970-2010/1/1/0 C xy kg/m2/s OCPI 1212/72         1 2\n0  EDGAR_OCPO_FFF -                                                    -       -               - -  -       OCPO 1212/73         1 2\n0  EDGAR_POG1_FFF -                                                    -       -               - -  -       POG1 1212/74/76      1 2\n0  EDGAR_POG2_FFF -                                                    -       -               - -  -       POG2 1212/74/77      1 2\n0  EDGAR_SO2_POW  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.POW.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1201            1 2\n0  EDGAR_SO4_POW  -                                                    -       -               - -  -       SO4  1201/63         1 2\n0  EDGAR_pFe_POW  -                                                    -       -               - -  -       pFe  1201/66         1 2\n0  EDGAR_SO2_ENG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.ENG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1202            1 2\n0  EDGAR_SO4_ENG  -                                                    -       -               - -  -       SO4  1202/63         1 2\n0  EDGAR_pFe_ENG  -                                                    -       -               - -  -       pFe  1202/66         1 2\n0  EDGAR_SO2_IND  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.IND.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1203            1 2\n0  EDGAR_SO4_IND  -                                                    -       -               - -  -       SO4  1203/63         1 2\n0  EDGAR_pFe_IND  -                                                    -       -               - -  -       pFe  1203/66         1 2\n0  EDGAR_SO2_TRO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TRO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1204            1 2\n0  EDGAR_SO4_TRO  -                                                    -       -               - -  -       SO4  1204/63         1 2\n0  EDGAR_pFe_TRO  -                                                    -       -               - -  -       pFe  1204/66         1 2\n0  EDGAR_SO2_TNG  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.TNG.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1205            1 2\n0  EDGAR_SO4_TNG  -                                                    -       -               - -  -       SO4  1205/63         1 2\n0  EDGAR_pFe_TNG  -                                                    -       -               - -  -       pFe  1205/66         1 2\n0  EDGAR_SO2_RCO  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.RCO.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1206            1 2\n0  EDGAR_SO4_RCO  -                                                    -       -               - -  -       SO4  1206/63         1 2\n0  EDGAR_pFe_RCO  -                                                    -       -               - -  -       pFe  1206/66         1 2\n0  EDGAR_SO2_PPA  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.PPA.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1207            1 2\n0  EDGAR_SO4_PPA  -                                                    -       -               - -  -       SO4  1207/63         1 2\n0  EDGAR_pFe_PPA  -                                                    -       -               - -  -       pFe  1207/66         1 2\n#0 EDGAR_SO2_AWB  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.AWB.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1209            1 2\n#0 EDGAR_SO4_AWB  -                                                    -       -               - -  -       SO4  1209/63         1 2\n#0 EDGAR_pFe_AWB  -                                                    -       -               - -  -       pFe  1209/66         1 2\n0  EDGAR_SO2_SWD  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.SWD.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1211            1 2\n0  EDGAR_SO4_SWD  -                                                    -       -               - -  -       SO4  1211/63         1 2\n0  EDGAR_pFe_SWD  -                                                    -       -               - -  -       pFe  1211/66         1 2\n0  EDGAR_SO2_FFF  $ROOT/EDGARv43/v2016-11/EDGAR_v43.SO2.FFF.0.1x0.1.nc emi_so2 1970-2010/1/1/0 C xy kg/m2/s SO2  1212            1 2\n0  EDGAR_SO4_FFF  -                                                    -       -               - -  -       SO4  1212/63         1 2\n0  EDGAR_pFe_FFF  -                                                    -       -               - -  -       pFe  1212/66         1 2\n\n#==============================================================================\n# --- NAP ANTHROPOGENIC EMISSIONS: approximate from EDGAR BENZ ---\n#\n# NOTE: Although this data comes from EDGAR version 2, we are storing it\n# in the EDGARv42 data path for convenience.\n#==============================================================================\n0 EDGAR_NAP $ROOT/EDGARv42/v2015-02/VOCv2/EDGAR2_1985_FF_IND.1x1geos.nc BENZ 1985/1/1/0 C xy kgC/m2/s NAP 80/81/82/43 1 2\n\n#==============================================================================\n# --- Wiedinmyer et al. (2014) global trash emissions to be added to EDGAR ---\n#==============================================================================\n0 TRASH_CO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  CO    2008/1/1/0 C xy kg/m2/s  CO    -     1 2\n0 TRASH_SOAP  -                                                       -     -          - -  -        SOAP  280   1 2\n0 TRASH_NO    $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NO    2008/1/1/0 C xy kg/m2/s  NO    -     1 2\n0 TRASH_SO2   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  SO2   2008/1/1/0 C xy kg/m2/s  SO2   78    1 2\n0 TRASH_SO4   -                                                       -     -          - -  -        SO4   63    1 2\n0 TRASH_pFe   -                                                       -     -          - -  -        pFe   78/66 1 2\n0 TRASH_BCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  BC    2008/1/1/0 C xy kg/m2/s  BCPI  70    1 2\n0 TRASH_BCPO  -                                                       -     -          - -  -        BCPO  71    1 2\n0 TRASH_OCPI  $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  OC    2008/1/1/0 C xy kg/m2/s  OCPI  72    1 2\n0 TRASH_OCPO  -                                                       -     -          - -  -        OCPO  73    1 2\n0 TRASH_POG1  -                                                       -     -          - -  -        POG1  74/76 1 2\n0 TRASH_POG2  -                                                       -     -          - -  -        POG2  74/77 1 2\n0 TRASH_NH3   $ROOT/TrashEmis/v2015-03/TrashBurn_v2_generic.01x01.nc  NH3   2008/1/1/0 C xy kg/m2/s  NH3   -     1 2\n\n#==============================================================================\n# --- CEDS VOC emissions to be added to EDGAR ---\n#==============================================================================\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90     1 5\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91     1 5\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92     1 5\n\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26        1 5\n\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26        1 5\n\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26        1 5\n\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26        1 5\n\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26        1 5\n\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26        1 5\n\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26        1 5\n\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26        1 5\n\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26        1 5\n\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26        1 5\n\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26        1 5\n\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26        1 5\n\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26        1 5\n)))EDGARv43\n\n#==============================================================================\n# --- HTAP v3 ---\n#\n# %%% This is an optional inventory. You may select either CEDS, EDGAR,\n#  or HTAPv3 for the global base emissions %%%\n#\n# ==> HTAPv3 ship emissions are listed in the ship emissions section below\n#==============================================================================\n(((HTAPv3\n0 HTAPv3_NO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_IND  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_NO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc   NO_WST  2000-2018/1-12/1/0 C xy kg/m2/s NO    25       1 4\n0 HTAPv3_CO_AGR   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_AGR  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_AGR -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_ENE   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_ENE  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_ENE -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_IND   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_IND  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_IND -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_TRA   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_TRA  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_TRA -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_RCO   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_RCO  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_RCO -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_SLV   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_SLV  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_SLV -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_CO_WST   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc   CO_WST  2000-2018/1-12/1/0 C xy kg/m2/s CO    26       1 4\n0 HTAPv3_SOAP_WST -                                                        -       -                  - -  -       SOAP  26/280   1 4\n0 HTAPv3_SO2_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_AGR 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_AGR  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_AGR  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_ENE 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_ENE  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_ENE  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_IND 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_IND  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_IND  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_TRA 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_TRA  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_TRA  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_RCO 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_RCO  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_RCO  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_SLV 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_SLV  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_SLV  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_SO2_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc  SO2_WST 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -        1 4\n0 HTAPv3_SO4_WST  -                                                        -       -                  - -  -       SO4   63       1 4\n0 HTAPv3_pFe_WST  -                                                        -       -                  - -  -       pFe   66       1 4\n0 HTAPv3_NH3_AGR  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_AGR 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_ENE  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_ENE 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_IND  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_IND 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_TRA  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_TRA 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_RCO  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_RCO 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_SLV  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_SLV 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_NH3_WST  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc  NH3_WST 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -        1 4\n0 HTAPv3_BCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_AGR -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_ENE -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_IND  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_IND -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_TRA -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_RCO -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_SLV -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_BCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc   BC_WST  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70       1 4\n0 HTAPv3_BCPO_WST -                                                        -       -                  - -  -       BCPO  71       1 4\n0 HTAPv3_OCPI_AGR $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_AGR  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_AGR -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_AGR -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_AGR -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_ENE $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_ENE  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_ENE -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_ENE -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_ENE -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_IND $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_IND  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_IND -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_IND -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_IND -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_TRA $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_TRA  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_TRA -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_TRA -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_TRA -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_RCO $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_RCO  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_RCO -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_RCO -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_RCO -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_SLV $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_SLV  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_SLV -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_SLV -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_SLV -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n0 HTAPv3_OCPI_WST $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc   OC_WST  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72       1 4\n0 HTAPv3_OCPO_WST -                                                        -       -                  - -  -       OCPO  73       1 4\n0 HTAPv3_POG1_WST -                                                        -       -                  - -  -       POG1  73/74/76 1 4\n0 HTAPv3_POG2_WST -                                                        -       -                  - -  -       POG2  73/74/77 1 4\n#\n# Use CEDSv2 for species that are not in the HTAPv3 inventory\n# NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CEDS_MOH_AGR    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_agr           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_AGR    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_AGR    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_ENE    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ene           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_ENE    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_ENE    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_IND    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_ind           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_IND    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_IND    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_TRA    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_tra           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_TRA    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_TRA    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_RCO    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_rco           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_RCO    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_RCO    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_SLV    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_slv           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_SLV    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_SLV    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_MOH_WST    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_wst           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90 1 4\n0 CEDS_EOH_WST    -                                                                    -                 -                  - -  -       EOH   26/91 1 4\n0 CEDS_ROH_WST    -                                                                    -                 -                  - -  -       ROH   26/92 1 4\n0 CEDS_C2H6_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C2H6_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26    1 4\n0 CEDS_C3H8_AGR   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_agr          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_ENE   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ene          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_IND   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_ind          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_TRA   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_tra          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_RCO   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_rco          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_SLV   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_slv          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C3H8_WST   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_wst          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26    1 4\n0 CEDS_C4H10_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C4H10_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C5H12_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_AGR  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_agr  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_ENE  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ene  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_IND  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_ind  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_TRA  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_tra  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_RCO  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_rco  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_SLV  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_slv  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C6H14_WST  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_wst  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26    1 4\n0 CEDS_C2H4_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_C2H4_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26    1 4\n0 CEDS_PRPE_AGR   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_agr          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_ENE   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ene          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_IND   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_ind          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_TRA   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_tra          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_RCO   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_rco          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_SLV   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_slv          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_PRPE_WST   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_wst          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26    1 4\n0 CEDS_C2H2_AGR   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_agr          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_ENE   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ene          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_IND   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_ind          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_TRA   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_tra          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_RCO   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_rco          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_SLV   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_slv          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_C2H2_WST   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_wst          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26    1 4\n0 CEDS_BENZ_AGR   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_agr          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_ENE   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ene          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_IND   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_ind          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_TRA   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_tra          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_RCO   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_rco          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_SLV   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_slv          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_BENZ_WST   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_wst          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26    1 4\n0 CEDS_TOLU_AGR   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_agr          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_ENE   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ene          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_IND   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_ind          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_TRA   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_tra          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_RCO   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_rco          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_SLV   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_slv          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_TOLU_WST   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_wst          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26    1 4\n0 CEDS_XYLE_AGR   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_agr          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_ENE   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ene          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_IND   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_ind          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_TRA   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_tra          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_RCO   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_rco          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_SLV   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_slv          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_XYLE_WST   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_wst          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26    1 4\n0 CEDS_CH2O_AGR   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_agr          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_ENE   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ene          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_IND   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_ind          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_TRA   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_tra          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_RCO   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_rco          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_SLV   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_slv          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_CH2O_WST   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_wst          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26    1 4\n0 CEDS_ALD2_AGR   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_agr          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_ENE   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ene          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_IND   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_ind          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_TRA   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_tra          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_RCO   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_rco          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_SLV   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_slv          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_ALD2_WST   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_wst          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26    1 4\n0 CEDS_MEK_AGR    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_agr           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_ENE    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ene           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_IND    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_ind           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_TRA    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_tra           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_RCO    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_rco           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_SLV    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_slv           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_MEK_WST    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_wst           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26    1 4\n0 CEDS_HCOOH_AGR  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_agr         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_ENE  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ene         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_IND  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_ind         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_TRA  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_tra         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_RCO  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_rco         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_SLV  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_slv         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n0 CEDS_HCOOH_WST  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_wst         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26    1 4\n)))HTAPv3\n\n#==============================================================================\n# --- GEIA NH3 from natural sources ---\n#==============================================================================\n(((GEIA_NH3\n0 GEIA_NH3_NATU $ROOT/NH3/v2019-08/NH3_geos.2x25.nc         NH3_NATU     1990/1-12/1/0 C xy  kg/m2/s NH3 - 3 1\n)))GEIA_NH3\n\n#==============================================================================\n# --- NH3 from arctic seabirds ---\n# Source: Riddick et al., 2012, NERC Environmental Information Data Centre\n#==============================================================================\n(((SEABIRD_NH3\n0 SEABIRD_NH3   $ROOT/NH3/v2018-04/NH3_Arctic_seabirds.nc  NH3_SEABIRDS 1990/1-12/1/0 C xy  kg/m2/s NH3 - 30 1\n)))SEABIRD_NH3\n\n#==============================================================================\n# --- POET EOH ---\n#==============================================================================\n(((POET_EOH\n0 POET_EOH $ROOT/POET/v2017-03/POET_EOH.geos.2x25.nc EOH 1985/1/1/0 C xy kgC/m2/s EOH 26/47 1 1\n)))POET_EOH\n\n#==============================================================================\n# --- 2010 Global fossil fuel and biofuel emissions of C2H6 (Tzompa-Sosa et al. (2017) ---\n#\n# NOTES:\n# - These C2H6 emissions are used in place of CEDS\n#==============================================================================\n(((TZOMPASOSA_C2H6\n0 C2H6_2010_oilgas   $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc ANTHR_C2H6   2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n0 C2H6_2010_biofuel  $ROOT/C2H6_2010/v2019-06/C2H6_global_anth_biof.2010$MM.2x25.nc BIOFUEL_C2H6 2010/1-12/1/0 C xy kgC/m2/s C2H6 45 1 100\n)))TZOMPASOSA_C2H6\n\n#==============================================================================\n# --- Xiao et al., JGR, 2008 ---\n#\n# NOTES:\n# - Xiao et al. C3H8 emissions are used in place of CEDS\n# - Priority is set to 10 to overwrite CEDS, but not newer regional inventories (e.g. EPA/NEI)\n#==============================================================================\n(((XIAO_C3H8\n0 XIAO_C3H8    $ROOT/XIAO/v2014-09/C3H8_C2H6_ngas.geos.1x1.nc C3H8         1985/1/1/0 C xy kgC/m2/s C3H8 6/7/26/22/46 1 10\n0 BIOFUEL_C3H8 $ROOT/BIOFUEL/v2019-08/biofuel.geos.2x25.nc    BIOFUEL_C3H8 1985/1/1/0 C xy kgC/m2/s C3H8 46           1 10\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Very-short-lived (VSL) bromocarbon emissions (cf. Qing Liang) ---\n#==============================================================================\n(((LIANG_BROMOCARB\n0 LIANG_CHBR3  $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CHBr3_emission  2000/1/1/0 C xy kg/m2/s CHBr3  39 1 1\n0 LIANG_CH2BR2 $ROOT/BROMINE/v2015-02/Bromocarb_Liang2010.nc CH2Br2_emission 2000/1/1/0 C xy kg/m2/s CH2Br2 -  1 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Very-short-lived (VSL) iodocarbon emissions (cf. Carlos Ordonez) ---\n#==============================================================================\n(((ORDONEZ_IODOCARB\n0 ORDONEZ_CH3I   $ROOT/IODINE/v2020-02/CH3I_monthly_emissions_Ordonez_2012_COARDS.nc   CH3I   2000/1-12/1/0 C xy kg/m2/s CH3I   - 1 1\n0 ORDONEZ_CH2I2  $ROOT/IODINE/v2020-02/CH2I2_monthly_emissions_Ordonez_2012_COARDS.nc  CH2I2  2000/1-12/1/0 C xy kg/m2/s CH2I2  - 1 1\n0 ORDONEZ_CH2ICL $ROOT/IODINE/v2020-02/CH2ICl_monthly_emissions_Ordonez_2012_COARDS.nc CH2ICl 2000/1-12/1/0 C xy kg/m2/s CH2ICl - 1 1\n0 ORDONEZ_CH2IBR $ROOT/IODINE/v2020-02/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc CH2IBr 2000/1-12/1/0 C xy kg/m2/s CH2IBr - 1 1\n)))ORDONEZ_IODOCARB\n\n#==============================================================================\n# --- GT_Chlorine ---\n#\n# Emission inventory for HCl and particulate Cl from continental sources\n#\n# Reference:\n#  Zhang, B., & Liu, P., et al (2022). Global Emissions of Hydrogen Chloride\n#  and Particulate Chloride from Continental Sources. Environmental Science &\n#  Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634 \n#\n# Notes:\n# - The HCl emission from open biomass burning (HCL_BIO, HCL_AGR) used the same\n#   activity data for GFED4 (1998-2014) and BB4CMIP (1960-2014). If your\n#   emission inventory for open biomass burning has already include HCl\n#   emissions, shut down either of them to avoid the duplicated emission sources\n# - Emissions of particulate Cl are added as HCl as ISORROPIA will reparition\n#   Cl between particle phase and gas phase. \n#==============================================================================\n(((GT_Chlorine\n0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 \n0 HCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 HCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 HCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ene   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ind   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_res   1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1\n0 PCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_bbop  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n0 PCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_agri  1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1\n)))GT_Chlorine\n\n#==============================================================================\n# --- Ship emissions ---\n#\n# ==> CEDS ship emissions are now the default.\n# ==> If CEDS_SHIP is turned off above then ARCTAS should be used over ICOADS,\n#     CORBETT, and HTAPv3 for SO2 and ICOADS should be used for CO and NO.\n# ==> Ship NO emissions are used by PARANOx and the extension number must be\n#     adjusted accordingly. If PARANOx is turned off, set the ExtNr back to\n#     zero.\n#==============================================================================\n(((SHIP\n\n(((ARCTAS_SHIP\n0  ARCTAS_SHIP_SO2     $ROOT/ARCTAS_SHIP/v2014-07/ARCTAS_ship.generic.1x1.nc           SO2             2008/1/1/0             C xy kg/m2/s  SO2  11/19        10 1\n)))ARCTAS_SHIP\n\n(((ICOADS_SHIP\n0 ICOADS_SHIP_SO2      $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc                SO2             2002/1-12/1/0          C xy kg/m2/s  SO2  11/15/60     10 2\n0 ICOADS_SHIP_CO       $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc                CO              2002/1-12/1/0          C xy kg/m2/s  CO   6/10         10 2\n0 ICOADS_SHIP_SOAP     -                                                               -               -                      - -  -        SOAP 6/10/280     10 2\n)))ICOADS_SHIP\n\n(((CORBETT_SHIP\n0 CORBETT_SHIP_SO2     $ROOT/CORBETT_SHIP/v2014-07/CORBETT_ship.geos.1x1.nc            SO2_SHIP        1985/1-12/1/0          C xy kg/m2/s  SO2  -            10 3\n)))CORBETT_SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_CO_SHP   $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_CO_0.1x0.1_$YYYY.nc  CO_SHP  2000-2018/1-12/1/0 C xy kg/m2/s CO    26     10 4\n0 HTAPv3_SOAP_SHP -                                                       -       -                  - -  -       SOAP  26/280 10 4\n0 HTAPv3_SO2_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_SO2_0.1x0.1_$YYYY.nc SO2_SHP 2000-2018/1-12/1/0 C xy kg/m2/s SO2   -      10 4\n0 HTAPv3_SO4_SHP  -                                                       -       -                  - -  -       SO4   63     10 4\n0 HTAPv3_pFe_SHP  -                                                       -       -                  - -  -       pFe   66     10 4\n0 HTAPv3_NH3_SHP  $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NH3_0.1x0.1_$YYYY.nc NH3_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NH3   -      10 4\n0 HTAPv3_BCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_BC_0.1x0.1_$YYYY.nc  BC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s BCPI  70     10 4\n0 HTAPv3_BCPO_SHP -                                                       -       -                  - -  -       BCPO  71     10 4\n0 HTAPv3_OCPI_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_OC_0.1x0.1_$YYYY.nc  OC_SHP  2000-2018/1-12/1/0 C xy kg/m2/s OCPI  72     10 4\n0 HTAPv3_OCPO_SHP -                                                       -       -                  - -  -       OCPO  73     10 4\n# Use CEDSv2 ship emissions for species not in HTAPv3\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_shp           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 4\n0 CEDS_EOH_SHP    -                                                                    -                 -                  - -  -       EOH   26/91  10 4\n0 CEDS_ROH_SHP    -                                                                    -                 -                  - -  -       ROH   26/92  10 4\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 4\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_shp          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 4\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 4\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 4\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_shp          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 4\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 4\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_shp          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 4\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_shp          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 4\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_shp          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 4\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_shp          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 4\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_shp          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 4\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_shp           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 4\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_shp         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 4\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_shp           1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 4\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_shp     1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 4\n)))HTAPv3_SHIP\n\n(((CEDSv2_SHIP\n0 CEDS_CO_SHP     $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc            CO_shp            1750-2019/1-12/1/0 C xy kg/m2/s CO    26     10 5\n0 CEDS_SOAP_SHP   -                                                                    -                 -                  - -  -       SOAP  26/280 10 5\n0 CEDS_SO2_SHP    $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc           SO2_shp           1750-2019/1-12/1/0 C xy kg/m2/s SO2   -      10 5\n0 CEDS_SO4_SHP    -                                                                    -                 -                  - -  -       SO4   63     10 5\n0 CEDS_pFe_SHP    -                                                                    -                 -                  - -  -       pFe   66     10 5\n0 CEDS_NH3_SHP    $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc           NH3_shp           1750-2019/1-12/1/0 C xy kg/m2/s NH3   -      10 5\n0 CEDS_BCPI_SHP   $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc            BC_shp            1750-2019/1-12/1/0 C xy kg/m2/s BCPI  70     10 5\n0 CEDS_BCPO_SHP   -                                                                    -                 -                  - -  -       BCPO  71     10 5\n0 CEDS_OCPI_SHP   $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc            OC_shp            1750-2019/1-12/1/0 C xy kg/m2/s OCPI  72     10 5\n0 CEDS_OCPO_SHP   -                                                                    -                 -                  - -  -       OCPO  73     10 5\n0 CEDS_POG1_SHP   -                                                                    -                 -                  - -  -       POG1  74/76  10 5\n0 CEDS_POG2_SHP   -                                                                    -                 -                  - -  -       POG2  74/77  10 5\n0 CEDS_MOH_SHP    $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc           EOH_shp           1750-2019/1-12/1/0 C xy kg/m2/s MOH   26/90  10 5\n0 CEDS_EOH_SHP    -                                                                    -                 -                  - -  -       EOH   26/91  10 5\n0 CEDS_ROH_SHP    -                                                                    -                 -                  - -  -       ROH   26/92  10 5\n0 CEDS_C2H6_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc          C2H6_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H6  26     10 5\n0 CEDS_C3H8_SHP   $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc          C3H8_shp          1750-2019/1-12/1/0 C xy kg/m2/s C3H8  26     10 5\n0 CEDS_C4H10_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_butanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C5H12_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C6H14_SHP  $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc  ALK4_hexanes_shp  1750-2019/1-12/1/0 C xy kg/m2/s ALK4  26     10 5\n0 CEDS_C2H4_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc          C2H4_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H4  26     10 5\n0 CEDS_PRPE_SHP   $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc          PRPE_shp          1750-2019/1-12/1/0 C xy kg/m2/s PRPE  26     10 5\n0 CEDS_C2H2_SHP   $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc          C2H2_shp          1750-2019/1-12/1/0 C xy kg/m2/s C2H2  26     10 5\n0 CEDS_BENZ_SHP   $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc          BENZ_shp          1750-2019/1-12/1/0 C xy kg/m2/s BENZ  26     10 5\n0 CEDS_TOLU_SHP   $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc          TOLU_shp          1750-2019/1-12/1/0 C xy kg/m2/s TOLU  26     10 5\n0 CEDS_XYLE_SHP   $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc          XYLE_shp          1750-2019/1-12/1/0 C xy kg/m2/s XYLE  26     10 5\n0 CEDS_CH2O_SHP   $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc          CH2O_shp          1750-2019/1-12/1/0 C xy kg/m2/s CH2O  26     10 5\n0 CEDS_ALD2_SHP   $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc          ALD2_shp          1750-2019/1-12/1/0 C xy kg/m2/s ALD2  26     10 5\n0 CEDS_MEK_SHP    $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc           MEK_shp           1750-2019/1-12/1/0 C xy kg/m2/s MEK   26     10 5\n0 CEDS_HCOOH_SHP  $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc         HCOOH_shp         1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n0 CEDS_TMB_SHP    $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc           TMB_shp           1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26     10 5\n0 CEDS_OTH_SHP    $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc     OTHER_VOC_shp     1750-2019/1-12/1/0 C xy kg/m2/s ALK6  26     10 5\n)))CEDSv2_SHIP\n\n(((CEDS_GBDMAPS_SHIP\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS_SHIP.rc\n)))CEDS_GBDMAPS_SHIP\n\n(((CEDS_SHIP_byFuelType\n(((.not.CEDS_GBDMAPS_SHIP\n(((.not.CEDSv2_SHIP\n>>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBD-MAPS_SHIP_byFuelType.rc\n))).not.CEDSv2_SHIP\n))).not.CEDS_GBDMAPS_SHIP\n)))CEDS_SHIP_byFuelType\n\n#==============================================================================\n# --- CMIP6_SHIP ---\n# CEDS (historical) or Shared Socioeconomic Pathways (future), consistent with\n#   the CMIP6 simulation experimental design.\n#\n# Make sure that the desired $GCAPSCENARIO is set above in SECTION SETTINGS\n#\n#==============================================================================\n(((CMIP6_SHIP\n0 CMIP6_CO_SHP     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CO_shp            1750-2100/1-12/1/0 C xy kg/m2/s    CO    26        10 5\n0 CMIP6_SOAP_SHP   -                                                                     -                 -                  - -  -          SOAP  26/280    10 5\n0 CMIP6_SO2_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            SO2_shp           1750-2100/1-12/1/0 C xy kg/m2/s    SO2   -         10 5\n0 CMIP6_SO4_SHP    -                                                                     -                 -                  - -  -          SO4   63        10 5\n0 CMIP6_pFe_SHP    -                                                                     -                 -                  - -  -          pFe   66        10 5\n0 CMIP6_NH3_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            NH3_shp           1750-2100/1-12/1/0 C xy kg/m2/s    NH3   -         10 5\n0 CMIP6_BCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    BCPI  70        10 5\n0 CMIP6_BCPO_SHP   -                                                                     -                 -                  - -  -          BCPO  71        10 5\n0 CMIP6_OCPI_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            OC_shp            1750-2100/1-12/1/0 C xy kg/m2/s    OCPI  72        10 5\n0 CMIP6_OCPO_SHP   -                                                                     -                 -                  - -  -          OCPO  73        10 5\n0 CMIP6_POG1_SHP   -                                                                     -                 -                  - -  -          POG1  74/76     10 5\n0 CMIP6_POG2_SHP   -                                                                     -                 -                  - -  -          POG2  74/77     10 5\n# NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here\n0 CMIP6_MOH_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            EOH_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MOH   26/90     10 5\n0 CMIP6_EOH_SHP    -                                                                     -                 -                  - -  -          EOH   26/91     10 5\n0 CMIP6_ROH_SHP    -                                                                     -                 -                  - -  -          ROH   26/92     10 5\n0 CMIP6_C2H6_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H6_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H6  26        10 5\n0 CMIP6_C3H8_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C3H8_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C3H8  26        10 5\n0 CMIP6_C4H10_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_butanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C5H12_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_pentanes_shp 1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C6H14_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALK4_hexanes_shp  1750-2100/1-12/1/0 C xy kg/m2/s    ALK4  26        10 5\n0 CMIP6_C2H4_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H4_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H4  26        10 5\n0 CMIP6_PRPE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            PRPE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    PRPE  26        10 5\n0 CMIP6_C2H2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            C2H2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    C2H2  26        10 5\n0 CMIP6_BENZ_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            BENZ_shp          1750-2100/1-12/1/0 C xy kg/m2/s    BENZ  26        10 5\n0 CMIP6_TOLU_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            TOLU_shp          1750-2100/1-12/1/0 C xy kg/m2/s    TOLU  26        10 5\n0 CMIP6_XYLE_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            XYLE_shp          1750-2100/1-12/1/0 C xy kg/m2/s    XYLE  26        10 5\n0 CMIP6_CH2O_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            CH2O_shp          1750-2100/1-12/1/0 C xy kg/m2/s    CH2O  26        10 5\n0 CMIP6_ALD2_SHP   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            ALD2_shp          1750-2100/1-12/1/0 C xy kg/m2/s    ALD2  26        10 5\n0 CMIP6_MEK_SHP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            MEK_shp           1750-2100/1-12/1/0 C xy kg/m2/s    MEK   26        10 5\n0 CMIP6_HCOOH_SHP  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4            HCOOH_shp         1750-2100/1-12/1/0 C xy kg/m2/s    HCOOH 26        10 5\n)))CMIP6_SHIP\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED ON ###\n#\n# Cosine(SZA) will be read from the restart file.  Use the PARANOX extension\n# number (# 102) to specify these quantities and the NEI emissions.\n# This will make sure everything will be passed to the HEMCO PARANOX extension\n# rather than sending them into the base emissions.\n#------------------------------------------------------------------------------\n(((ParaNOx\n\n(((ICOADS_SHIP\n102  ICOADS_SHIP_NO $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc NO 2002/1-12/1/0 C xy kg/m2/s NO 1/5 10 1\n)))ICOADS_SHIP\n\n(((HTAPv3_SHIP\n102 HTAPv3_NO_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDSv2_SHIP\n102 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDSv2_SHIP\n\n(((CEDS_GBDMAPS_SHIP\n102 CEDS_NO_SHP $ROOT/CEDS/v2020-08/$YYYY/NO-em-total-anthro_CEDS_$YYYY.nc NO_shp 1970-2017/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDS_GBDMAPS_SHIP\n\n)))ParaNOx\n\n#------------------------------------------------------------------------------\n# ### IF THE PARANOX EXTENSION IS TURNED OFF ###\n#\n# Use extension # 0 to specify these emissions.  This will put them\n# into the base emissions rather than sending them through PARANOX.\n#------------------------------------------------------------------------------\n(((.not.ParaNOx\n\n(((ICOADS_SHIP\n0 ICOADS_SHIP_NO $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc             NO     2002/1-12/1/0      C xy kg/m2/s NO 1/5  10 1\n)))ICOADS_SHIP\n\n(((HTAPv3_SHIP\n0 HTAPv3_NO_SHIP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4\n)))HTAPv3_SHIP\n\n(((CEDSv2_SHIP\n0 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5\n)))CEDSv2_SHIP\n\n(((CEDS_GBDMAPS_SHIP\n0 CEDS_NO_SHP $ROOT/CEDS/v2020-08/$YYYY/NO-em-total-anthro_CEDS_$YYYY.nc      NO_shp 1970-2017/1-12/1/0 C xy kg/m2/s NO 25   10 5\n)))CEDS_GBDMAPS_SHIP\n\n(((CMIP6_SHIP\n102 CMIP6_NO_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_shp 1750-2100/1-12/1/0 C xy kg/m2/s NO 25   10 5\n)))CMIP6_SHIP\n\n))).not.ParaNOx\n\n)))SHIP\n\n#==============================================================================\n# --- AEIC 2019 aircraft emissions (daily & monthly mean) ---\n#\n# Data files are for 2019, but scale factors from 1990-2019 can be applied\n# in order to get year-specific emissions.  See the notes in the AEIC2019\n# scale factor section below for more information.\n#==============================================================================\n(((AEIC2019_DAILY\n0 AEIC19_DAILY_NO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO       2019/1-12/1-31/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_DAILY_NO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc NO2      2019/1-12/1-31/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_DAILY_HONO $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HONO     2019/1-12/1-31/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_DAILY_CO   $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc CO       2019/1-12/1-31/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_DAILY_SOAP -                                                                 -        -                - -   -       SOAP 241/280     20 1\n0 AEIC19_DAILY_SO2  $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc FUELBURN 2019/1-12/1-31/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_DAILY_pFe  -                                                                 -        -                - -   -       pFe  241/111/66  20 1\n0 AEIC19_DAILY_SO4  -                                                                 -        -                - -   -       SO4  241/112     20 1\n0 AEIC19_DAILY_H2O  -                                                                 -        -                - -   -       H2O  241/120     20 1\n0 AEIC19_DAILY_BCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc BC       2019/1-12/1-31/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_DAILY_OCPI $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc OC       2019/1-12/1-31/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_DAILY_POG1 -                                                                 -        -                - -   -       POG1 241/74/76   20 1\n0 AEIC19_DAILY_POG2 -                                                                 -        -                - -   -       POG2 241/74/77   20 1\n0 AEIC19_DAILY_ACET $ROOT/AEIC2019/v2022-03/2019/$MM/AEIC_2019$MM$DD.0.5x0.625.36L.nc HC       2019/1-12/1-31/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_DAILY_ALD2 -                                                                 -        -                - -   -       ALD2 241/114/102 20 1\n0 AEIC19_DAILY_ALK4 -                                                                 -        -                - -   -       ALK4 241/114/103 20 1\n0 AEIC19_DAILY_C2H6 -                                                                 -        -                - -   -       C2H6 241/114/104 20 1\n0 AEIC19_DAILY_C3H8 -                                                                 -        -                - -   -       C3H8 241/114/105 20 1\n0 AEIC19_DAILY_CH2O -                                                                 -        -                - -   -       CH2O 241/114/106 20 1\n0 AEIC19_DAILY_PRPE -                                                                 -        -                - -   -       PRPE 241/114/107 20 1\n0 AEIC19_DAILY_MACR -                                                                 -        -                - -   -       MACR 241/114/108 20 1\n0 AEIC19_DAILY_RCHO -                                                                 -        -                - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_DAILY\n(((AEIC2019_MONMEAN\n0 AEIC19_MONMEAN_NO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO       2019/1-12/1/0 C xyz kg/m2/s NO   241/240     20 1\n0 AEIC19_MONMEAN_NO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc NO2      2019/1-12/1/0 C xyz kg/m2/s NO2  241/240     20 1\n0 AEIC19_MONMEAN_HONO $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HONO     2019/1-12/1/0 C xyz kg/m2/s HNO2 241/240     20 1\n0 AEIC19_MONMEAN_CO   $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc CO       2019/1-12/1/0 C xyz kg/m2/s CO   241         20 1\n0 AEIC19_MONMEAN_SOAP -                                                                          -        -             - -   -       SOAP 241/280     20 1\n0 AEIC19_MONMEAN_SO2  $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc FUELBURN 2019/1-12/1/0 C xyz kg/m2/s SO2  241/111     20 1\n0 AEIC19_MONMEAN_pFe  -                                                                          -        -             - -   -       pFe  241/111/66  20 1\n0 AEIC19_MONMEAN_SO4  -                                                                          -        -             - -   -       SO4  241/112     20 1\n0 AEIC19_MONMEAN_H2O  -                                                                          -        -             - -   -       H2O  241/120     20 1\n0 AEIC19_MONMEAN_BCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc BC       2019/1-12/1/0 C xyz kg/m2/s BCPI 241         20 1\n0 AEIC19_MONMEAN_OCPI $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc OC       2019/1-12/1/0 C xyz kg/m2/s OCPI 241         20 1\n0 AEIC19_MONMEAN_POG1 -                                                                          -        -             - -   -       POG1 241/74/76   20 1\n0 AEIC19_MONMEAN_POG2 -                                                                          -        -             - -   -       POG2 241/74/77   20 1\n0 AEIC19_MONMEAN_ACET $ROOT/AEIC2019/v2022-03/2019_monmean/AEIC_monmean_2019$MM.0.5x0.625.36L.nc HC       2019/1-12/1/0 C xyz kg/m2/s ACET 241/114/101 20 1\n0 AEIC19_MONMEAN_ALD2 -                                                                          -        -             - -   -       ALD2 241/114/102 20 1\n0 AEIC19_MONMEAN_ALK4 -                                                                          -        -             - -   -       ALK4 241/114/103 20 1\n0 AEIC19_MONMEAN_C2H6 -                                                                          -        -             - -   -       C2H6 241/114/104 20 1\n0 AEIC19_MONMEAN_C3H8 -                                                                          -        -             - -   -       C3H8 241/114/105 20 1\n0 AEIC19_MONMEAN_CH2O -                                                                          -        -             - -   -       CH2O 241/114/106 20 1\n0 AEIC19_MONMEAN_PRPE -                                                                          -        -             - -   -       PRPE 241/114/107 20 1\n0 AEIC19_MONMEAN_MACR -                                                                          -        -             - -   -       MACR 241/114/108 20 1\n0 AEIC19_MONMEAN_RCHO -                                                                          -        -             - -   -       RCHO 241/114/109 20 1\n)))AEIC2019_MONMEAN\n\n#==============================================================================\n# --- Emissions from decaying plants ---\n#==============================================================================\n(((DECAYING_PLANTS\n0 ALD2_PLANTDECAY $ROOT/ALD2/v2017-03/resp.geos.2x25.nc HET_RESP 1985/1-12/1/0 C xy kgC/m2/s ALD2 85/41 3 1\n0 EOH_PLANTDECAY  -                                     -        -             - -  -        EOH  86/47 3 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- RCP future emissions scenarios ---\n#==============================================================================\n(((RCP_3PD\n0 RCP3PD_CH4     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CH4_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP3PD_NOx     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NOx_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP3PD_CO      $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_CO_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP3PD_SOAP    -                                                                                        -      -               -  -  -        SOAP  280   1 1\n0 RCP3PD_BCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_BC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP3PD_OCPO    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_OC_2005-2100_23474.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP3PD_POG1    -                                                                                        -      -               -  -  -        POG1  74/76 1 1\n0 RCP3PD_POG2    -                                                                                        -      -               -  -  -        POG2  74/77 1 1\n0 RCP3PD_SO2     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_SO2_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP3PD_pFe     -                                                                                        -      -               -  -  -        pFe   66    1 1\n0 RCP3PD_NH3     $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_NH3_2005-2100_23474.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP3PD_C2H2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_acetylene_2005-2100_23474_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP3PD_CH2O    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_formaldehyde_2005-2100_23474.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP3PD_BENZ    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_benzene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP3PD_TOLU    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_toluene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP3PD_XYLE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_xylene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP3PD_ALD2    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_other_aldehydes_2005-2100_23474_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP3PD_ALK4__A $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_butanes_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__B $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_pentanes_2005-2100_23474_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ALK4__C $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_23474_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP3PD_ACET    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_ketones_2005-2100_23474_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP3PD_MEK     -                                                                                        -      -               -  -  -        MEK   50/48 1 1\n0 RCP3PD_C2H6    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethane_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP3PD_C2H4    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_ethene_2005-2100_23474_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP3PD_C3H8    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propane_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP3PD_PRPE    $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_propene_2005-2100_23474_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP3PD_HCOOH   $ROOT/RCP/v2020-07/RCP_3PD/RCPs_anthro_total_acids_2005-2100_23474.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_3PD\n\n(((RCP_45\n0 RCP45_CH4     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CH4_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP45_NOx     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NOx_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP45_CO      $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_CO_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP45_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP45_BCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_BC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP45_OCPO    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_OC_2005-2100_27424.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP45_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP45_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP45_SO2     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_SO2_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP45_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP45_NH3     $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_NH3_2005-2100_27424.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP45_C2H2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_acetylene_2005-2100_27424_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP45_CH2O    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_formaldehyde_2005-2100_27424.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP45_BENZ    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_benzene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP45_TOLU    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_toluene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP45_XYLE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_xylene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP45_ALD2    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_other_aldehydes_2005-2100_27424_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP45_ALK4__A $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_butanes_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__B $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_pentanes_2005-2100_27424_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ALK4__C $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_27424_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP45_ACET    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_ketones_2005-2100_27424_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP45_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP45_C2H6    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethane_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP45_C2H4    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_ethene_2005-2100_27424_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP45_C3H8    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propane_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP45_PRPE    $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_propene_2005-2100_27424_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP45_HCOOH   $ROOT/RCP/v2020-07/RCP_45/RCPs_anthro_total_acids_2005-2100_27424.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_45\n\n(((RCP_60\n0 RCP60_CH4     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CH4_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP60_NOx     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NOx_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP60_CO      $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_CO_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP60_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP60_BCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_BC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP60_OCPO    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_OC_2005-2100_43190.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP60_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP60_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP60_SO2     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_SO2_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP60_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP60_NH3     $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_NH3_2005-2100_43190.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP60_C2H2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_acetylene_2005-2100_43190_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP60_CH2O    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_formaldehyde_2005-2100_43190.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP60_BENZ    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_benzene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP60_TOLU    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_toluene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP60_XYLE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_xylene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP60_ALD2    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_other_aldehydes_2005-2100_43190_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP60_ALK4__A $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_butanes_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__B $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_pentanes_2005-2100_43190_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ALK4__C $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43190_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP60_ACET    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_ketones_2005-2100_43190_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP60_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP60_C2H6    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethane_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP60_C2H4    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_ethene_2005-2100_43190_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP60_C3H8    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propane_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP60_PRPE    $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_propene_2005-2100_43190_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP60_HCOOH   $ROOT/RCP/v2020-07/RCP_60/RCPs_anthro_total_acids_2005-2100_43190.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_60\n\n(((RCP_85\n0 RCP85_CH4     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CH4_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH4   -     1 1\n0 RCP85_NOx     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NOx_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NO    -     1 1\n0 RCP85_CO      $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_CO_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CO    -     1 1\n0 RCP85_SOAP    -                                                                                       -      -               -  -  -        SOAP  280   1 1\n0 RCP85_BCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_BC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  BCPO  -     1 1\n0 RCP85_OCPO    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_OC_2005-2100_43533.nc                             ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  OCPO  -     1 1\n0 RCP85_POG1    -                                                                                       -      -               -  -  -        POG1  74/76 1 1\n0 RCP85_POG2    -                                                                                       -      -               -  -  -        POG2  74/77 1 1\n0 RCP85_SO2     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_SO2_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  SO2   -     1 1\n0 RCP80_pFe     -                                                                                       -      -               -  -  -        pFe   66    1 1\n0 RCP85_NH3     $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_NH3_2005-2100_43533.nc                            ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  NH3   -     1 1\n0 RCP85_C2H2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_acetylene_2005-2100_43533_kgC.nc                  ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H2  59    1 1\n0 RCP85_CH2O    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_formaldehyde_2005-2100_43533.nc                   ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  CH2O  -     1 1\n0 RCP85_BENZ    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_benzene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s BENZ  43    1 1\n0 RCP85_TOLU    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_toluene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s TOLU  55    1 1\n0 RCP85_XYLE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_xylene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s XYLE  56    1 1\n0 RCP85_ALD2    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_other_aldehydes_2005-2100_43533_kgC.nc            ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALD2  41    1 1\n0 RCP85_ALK4__A $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_butanes_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__B $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_pentanes_2005-2100_43533_kgC.nc                   ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ALK4__C $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_hexanes_and_higher_alkanes_2005-2100_43533_kgC.nc ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ALK4  42    1 1\n0 RCP85_ACET    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_ketones_2005-2100_43533_kgC.nc              ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s ACET  51/40 1 1\n0 RCP85_MEK     -                                                                                       -      -               -  -  -        MEK   50/48 1 1\n0 RCP85_C2H6    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethane_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H6  45    1 1\n0 RCP85_C2H4    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_ethene_2005-2100_43533_kgC.nc                     ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C2H4  44    1 1\n0 RCP85_C3H8    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propane_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s C3H8  46    1 1\n0 RCP85_PRPE    $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_propene_2005-2100_43533_kgC.nc                    ACCMIP 2005-2100/1/1/0 ID xy kgC/m2/s PRPE  49    1 1\n0 RCP85_HCOOH   $ROOT/RCP/v2020-07/RCP_85/RCPs_anthro_total_acids_2005-2100_43533.nc                    ACCMIP 2005-2100/1/1/0 ID xy kg/m2/s  HCOOH 57/58 1 1\n)))RCP_85\n\n#==============================================================================\n# --- QFED2 biomass burning (v2.5r1) ---\n#==============================================================================\n(((QFED2\n0 QFED_ACET_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ACET 75/311        5 2\n0 QFED_ACET_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_acet.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ACET 75/312        5 2\n0 QFED_ALD2_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ALD2 75/311        5 2\n0 QFED_ALD2_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ald2.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ALD2 75/312        5 2\n0 QFED_ALK4_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s ALK4 75/311        5 2\n0 QFED_ALK4_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_alk4.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s ALK4 75/312        5 2\n0 QFED_BCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s BCPI 70/75/311     5 2\n0 QFED_BCPO_PBL  -                                                                 -       -                             -   -             -       BCPO 71/75/311     5 2\n0 QFED_BCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_bc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s BCPI 70/75/312     5 2\n0 QFED_BCPO_FT   -                                                                 -       -                             -   -             -       BCPO 71/75/312     5 2\n0 QFED_OCPI_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s OCPI 72/75/311     5 2\n0 QFED_OCPO_PBL  -                                                                 -       -                             -   -             -       OCPO 73/75/311     5 2\n0 QFED_POG1_PBL  -                                                                 -       -                             -   -             -       POG1 74/76/75/311  5 2\n0 QFED_POG2_PBL  -                                                                 -       -                             -   -             -       POG2 74/77/75/311  5 2\n0 QFED_OCPI_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_oc.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s OCPI 72/75/312     5 2\n0 QFED_OCPO_FT   -                                                                 -       -                             -   -             -       OCPO 73/75/312     5 2\n0 QFED_POG1_FT   -                                                                 -       -                             -   -             -       POG1 74/76/75/312  5 2\n0 QFED_POG2_FT   -                                                                 -       -                             -   -             -       POG2 74/77/75/312  5 2\n0 QFED_C2H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s C2H6 75/311        5 2\n0 QFED_C2H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c2h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s C2H6 75/312        5 2\n0 QFED_C3H8_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s C3H8 75/311        5 2\n0 QFED_C3H8_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h8.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s C3H8 75/312        5 2\n0 QFED_CH2O_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CH2O 75/311        5 2\n0 QFED_CH2O_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch2o.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CH2O 75/312        5 2\n0 QFED_CH4_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CH4  75/311        5 2\n0 QFED_CH4_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_ch4.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CH4  75/312        5 2\n0 QFED_CO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CO   54/75/311     5 2\n0 QFED_SOAP_PBL  -                                                                 -       -                             -   -             -       SOAP 54/75/281/311 5 2\n0 QFED_CO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CO   54/75/312     5 2\n0 QFED_SOAP_FT   -                                                                 -       -                             -   -             -       SOAP 54/75/281/312 5 2\n0 QFED_CO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s CO2  75/311        5 2\n0 QFED_CO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_co2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s CO2  75/312        5 2\n0 QFED_MEK_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s MEK  75/311        5 2\n0 QFED_MEK_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_mek.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s MEK  75/312        5 2\n0 QFED_NH3_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NH3  75/311        5 2\n0 QFED_NH3_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_nh3.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NH3  75/312        5 2\n0 QFED_NO_PBL    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s NO   75/311        5 2\n0 QFED_NO_FT     $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_no.006.$YYYY$MM$DD.nc4   biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s NO   75/312        5 2\n0 QFED_SO2_PBL   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s SO2  75/311        5 2\n0 QFED_pFe_PBL   -                                                                 -       -                             -   -             -       pFe  75/311/66     5 2\n0 QFED_SO2_FT    $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_so2.006.$YYYY$MM$DD.nc4  biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s SO2  75/312        5 2\n0 QFED_pFe_FT    -                                                                 -       -                             -   -             -       pF3  75/312/66     5 2\n0 QFED_C3H6_PBL  $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL     kg/m2/s PRPE 75/311        5 2\n0 QFED_C3H6_FT   $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s PRPE 75/312        5 2\n)))QFED2\n\n#==============================================================================\n# --- GFAS biomass burning ---\n#==============================================================================\n(((GFAS\n0 GFAS_CO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO   75       5 3\n0 GFAS_SOAP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc cofire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SOAP 75/281   5 3\n0 GFAS_CH3OH $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch3ohfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s MOH  75       5 3\n0 GFAS_NO    $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc noxfire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NO   75       5 3\n0 GFAS_BCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPI 70/75    5 3\n0 GFAS_BCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc bcfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BCPO 71/75    5 3\n0 GFAS_OCPI  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPI 72/75    5 3\n0 GFAS_OCPO  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ocfire        2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s OCPO 73/75    5 3\n0 GFAS_POG1  -                                          -             -                     - -             -       POG1 74/76/75 5 3\n0 GFAS_POG2  -                                          -             -                     - -             -       POG2 74/77/75 5 3\n0 GFAS_CO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc co2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CO2  75       5 3\n0 GFAS_CH4   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch4fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH4  75       5 3\n0 GFAS_SO2   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s SO2  75       5 3\n0 GFAS_pFe   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc so2fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s pFe  75/66    5 3\n0 GFAS_NH3   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc nh3fire       2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s NH3  75       5 3\n0 GFAS_ACET  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ACET 75       5 3\n0 GFAS_ALD2  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4ofire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALD2 75       5 3\n0 GFAS_ALK4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkanesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ALK4 75       5 3\n0 GFAS_PRPE1 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc hialkenesfire 2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_PRPE2 $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s PRPE 75       5 3\n0 GFAS_C2H6  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H6 75       5 3\n0 GFAS_C3H8  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c3h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C3H8 75       5 3\n0 GFAS_CH2O  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc ch2ofire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s CH2O 75       5 3\n0 GFAS_C2H4  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h4fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s C2H4 75       5 3\n0 GFAS_ISOP  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c5h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s ISOP 75       5 3\n0 GFAS_DMS   $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c2h6sfire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s DMS  75       5 3\n0 GFAS_TOLU  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c7h8fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s TOLU 75       5 3\n0 GFAS_BENZ  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c6h6fire      2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s BENZ 75       5 3\n0 GFAS_XYLE  $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc c8h10fire     2003-2021/1-12/1-31/0 C xyL=1:scal300 kg/m2/s XYLE 75       5 3\n)))GFAS\n\n#==============================================================================\n# --- BB4MIPs biomass burning ---\n#==============================================================================\n(((BB4MIPS\n# 75 is time-of-day scaling\n0 CMIP6_BB_CO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CO    75       5 3\n0 CMIP6_BB_SOAP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SOAP  75/281   5 3\n0 CMIP6_BB_NO      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NO_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NO    75       5 3\n0 CMIP6_BB_BCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPI  70/75    5 3\n0 CMIP6_BB_BCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BCPO  71/75    5 3\n0 CMIP6_BB_OCPI    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPI  72/75    5 3\n0 CMIP6_BB_OCPO    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s OCPO  73/75    5 3\n0 CMIP6_BB_POG1    -                                                          -          -                  - -         -       POG1  74/76/75 5 3\n0 CMIP6_BB_POG2    -                                                          -          -                  - -         -       POG2  74/77/75 5 3\n0 CMIP6_BB_SO2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 SO2_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s SO2   75       5 3\n0 CMIP6_BB_pFe     -                                                          -          -                  - -         -       pFe   75/66    5 3\n0 CMIP6_BB_NH3     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NH3_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s NH3   75       5 3\n0 CMIP6_BB_ALD2    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALD2_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALD2  75       5 3\n0 CMIP6_BB_ALK4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALK4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ALK4  75       5 3\n0 CMIP6_BB_PRPE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 PRPE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s PRPE  75       5 3\n0 CMIP6_BB_C2H6    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H6_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H6  75       5 3\n0 CMIP6_BB_C3H8    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C3H8_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C3H8  75       5 3\n0 CMIP6_BB_CH2O    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CH2O_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s CH2O  75       5 3\n0 CMIP6_BB_C2H4    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H4_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s C2H4  75       5 3\n0 CMIP6_BB_ISOP    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ISOP_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ISOP  75       5 3\n0 CMIP6_BB_DMS     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 DMS_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s DMS   75       5 3\n0 CMIP6_BB_TOLU    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 TOLU_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s TOLU  75       5 3\n0 CMIP6_BB_BENZ    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BENZ_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s BENZ  75       5 3\n0 CMIP6_BB_XYLE    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 XYLE_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s XYLE  75       5 3\n0 CMIP6_BB_H2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 H2_bbn     1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s H2    75       5 3\n0 CMIP6_BB_MTPA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MONOT_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MTPA  75       5 3\n#0 CMIP6_BB_MTPO    -                                                         -          -                  - -             -   MTPO  75       5 3\n#0 CMIP6_BB_LIMO    -                                                         -          -                  - -             -   LIMO  75       5 3\n0 CMIP6_BB_EOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 EOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s EOH   75       5 3\n0 CMIP6_BB_MOH     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MOH_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MOH   75       5 3\n0 CMIP6_BB_ACET    -                                                          -          -                  - -             -   ACET  79/75    5 3\n0 CMIP6_BB_MGLY    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MGLY_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MGLY  75       5 3\n0 CMIP6_BB_ACTA    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ACTA_bbn   1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s ACTA  75       5 3\n0 CMIP6_BB_HCN     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCN_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCN   75       5 3\n0 CMIP6_BB_HCOOH   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 HCOOH_bbn  1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s HCOOH 75       5 3\n0 CMIP6_BB_MEK     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MEK_bbn    1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MEK   75       5 3\n)))BB4MIPS\n\n#==============================================================================\n# --- GFED4 biomass burning emissions climatology\n# NOTE:\n# - These emissions were generated for 2010-2019 using the GFED extension\n#   in a 0.5x0.625 HEMCO 3.6.1 standalone simulation.\n#==============================================================================\n(((GFED4_CLIMATOLOGY\n0 GFED4_CLIM_ACET  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s ACET - 5 1\n0 GFED4_CLIM_ALD2  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALD2 2019/1-12/1/0 C xy kg/m2/s ALD2 - 5 1\n0 GFED4_CLIM_ALK4  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALK4 2019/1-12/1/0 C xy kg/m2/s ALK4 - 5 1\n0 GFED4_CLIM_BCPI  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1\n0 GFED4_CLIM_BCPO  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1\n0 GFED4_CLIM_BENZ  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BENZ 2019/1-12/1/0 C xy kg/m2/s BENZ - 5 1\n0 GFED4_CLIM_C2H6  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C2H6 2019/1-12/1/0 C xy kg/m2/s C2H6 - 5 1\n0 GFED4_CLIM_C3H8  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C3H8 2019/1-12/1/0 C xy kg/m2/s C3H8 - 5 1\n0 GFED4_CLIM_CH2O  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s CH2O - 5 1\n0 GFED4_CLIM_CO    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_CO   2019/1-12/1/0 C xy kg/m2/s CO   - 5 1\n0 GFED4_CLIM_EOH   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_EOH  2019/1-12/1/0 C xy kg/m2/s EOH  - 5 1\n0 GFED4_CLIM_MEK   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_MEK  2019/1-12/1/0 C xy kg/m2/s MEK  - 5 1\n0 GFED4_CLIM_NO    $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_NO   2019/1-12/1/0 C xy kg/m2/s NO   - 5 1\n0 GFED4_CLIM_OCPI  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1\n0 GFED4_CLIM_OCPO  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1\n0 GFED4_CLIM_PRPE  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_PRPE 2019/1-12/1/0 C xy kg/m2/s PRPE - 5 1\n0 GFED4_CLIM_SO2   $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SO2  2019/1-12/1/0 C xy kg/m2/s SO2  - 5 1\n0 GFED4_CLIM_SOAP  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1\n0 GFED4_CLIM_TOLU  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_TOLU 2019/1-12/1/0 C xy kg/m2/s TOLU - 5 1\n0 GFED4_CLIM_XYLE  $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_XYLE 2019/1-12/1/0 C xy kg/m2/s XYLE - 5 1\n)))GFED4_CLIMATOLOGY\n\n#==============================================================================\n# --- Anthropogenic Fugitive, Combustion and Industrial Dust ---\n# (Philip et al., 2017, ERL)\n#==============================================================================\n(((AFCID\n0 PM25FINE_1 $ROOT/AFCID/v2018-04/PM25FINE_ECLIPSE_2015.geos.2x25.nc     PM25FINE 2015/1-12/1/0 C xy kg/m2/s  DST1 -    1 1\n0 PM25FINE_2 $ROOT/AFCID/v2018-04/PM25FINE_MEIC_2012.generic.025x025.nc  PM25FINE 2012/1-12/1/0 C xy kg/m2/s  DST1 1009 1 2\n0 PM25FINE_3 $ROOT/AFCID/v2018-04/PM25FINE_IITB_2013.generic.025x025.nc  PM25FINE 2013/1-12/1/0 C xy kg/m2/s  DST1 1010 1 3\n)))AFCID\n\n#==============================================================================\n# --- Offline dust emissions ---\n#==============================================================================\n(((OFFLINE_DUST\n(((.not.DustDead.or.DustGinoux\n0 EMIS_DST1 $ROOT/OFFLINE_DUST/${RUNDIR_OFFLINE_DUST_DIR}/0.5x0.625/$YYYY/$MM/dust_emissions_05.$YYYY$MM$DD.nc EMIS_DST1 1980-2021/1-12/1-31/* C xy kg/m2/s DST1 - 3 2\n0 EMIS_DST2 $ROOT/OFFLINE_DUST/${RUNDIR_OFFLINE_DUST_DIR}/0.5x0.625/$YYYY/$MM/dust_emissions_05.$YYYY$MM$DD.nc EMIS_DST2 1980-2021/1-12/1-31/* C xy kg/m2/s DST2 - 3 2\n0 EMIS_DST3 $ROOT/OFFLINE_DUST/${RUNDIR_OFFLINE_DUST_DIR}/0.5x0.625/$YYYY/$MM/dust_emissions_05.$YYYY$MM$DD.nc EMIS_DST3 1980-2021/1-12/1-31/* C xy kg/m2/s DST3 - 3 2\n0 EMIS_DST4 $ROOT/OFFLINE_DUST/${RUNDIR_OFFLINE_DUST_DIR}/0.5x0.625/$YYYY/$MM/dust_emissions_05.$YYYY$MM$DD.nc EMIS_DST4 1980-2021/1-12/1-31/* C xy kg/m2/s DST4 - 3 2\n))).not.DustDead.or.DustGinoux\n)))OFFLINE_DUST\n\n#==============================================================================\n# --- Offline biogenic VOC emissions ---\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n0 BIOGENIC_ACET      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ACET_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ACET -   4 2\n0 BIOGENIC_ALD2      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ALD2_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ALD2 -   4 2\n0 BIOGENIC_C2H4      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc C2H4_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s C2H4 -   4 2\n0 BIOGENIC_EOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc EOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s EOH  -   4 2\n0 BIOGENIC_ISOP      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ISOP_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s ISOP -   4 2\n0 BIOGENIC_ISOP_SOAP -                                                                                                            -             -                     -   -  -       SOAP 610 4 2\n0 BIOGENIC_ISOP_SOAS -                                                                                                            -             -                     -   -  -       SOAS 610 4 2\n0 BIOGENIC_LIMO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc LIMO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s LIMO -   4 2\n0 BIOGENIC_LIMO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_LIMO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MOH       $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MOH_MEGAN     1980-2022/1-12/1-31/* EFY xy kg/m2/s MOH  -   4 2\n0 BIOGENIC_MTPA      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPA_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPA -   4 2\n0 BIOGENIC_MTPA_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPA_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_MTPO      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPO_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPO -   4 2\n0 BIOGENIC_MTPO_SOAP -                                                                                                            -             -                     -   -  -       SOAP 611 4 2\n0 BIOGENIC_MTPO_SOAS -                                                                                                            -             -                     -   -  -       SOAS 611 4 2\n0 BIOGENIC_PRPE      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc PRPE_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s PRPE -   4 2\n0 BIOGENIC_SESQ      $ROOT/OFFLINE_BIOVOC/${RUNDIR_OFFLINE_BIOVOC_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc SESQ_MEGAN    1980-2022/1-12/1-31/* EFY xy kg/m2/s SESQ -   4 2\n0 BIOGENIC_SESQ_SOAP -                                                                                                            -             -                     -   -  -       SOAP 612 4 2\n0 BIOGENIC_SESQ_SOAS -                                                                                                            -             -                     -   -  -       SOAS 612 4 2\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt emissions ---\n#==============================================================================\n(((OFFLINE_SEASALT\n(((.not.SeaSalt\n0 SEASALT_SALA    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_0505.$YYYY$MM$DD.nc SALA_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALA    -   3 2\n0 SEASALT_SALAAL  -                                                                                                              -            -                     -   -  -       SALAAL  615 3 2\n0 SEASALT_SALACL  -                                                                                                              -            -                     -   -  -       SALACL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALA  -                                                                                                              -            -                     -   -  -       BrSALA  617 3 2\n)))CalcBrSeasalt\n0 SEASALT_SALC    $ROOT/OFFLINE_SEASALT/${RUNDIR_OFFLINE_SEASALT_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_05.$YYYY$MM$DD.nc SALC_TOTAL   1980-2022/1-12/1-31/* EFY xy kg/m2/s SALC    -   3 2\n0 SEASALT_SALCAL  -                                                                                                              -            -                     -   -  -       SALCAL  615 3 2\n0 SEASALT_SALCCL  -                                                                                                              -            -                     -   -  -       SALCCL  616 3 2\n(((CalcBrSeasalt\n0 SEASALT_BrSALC  -                                                                                                              -            -                     -   -  -       BrSALC  617 3 2\n)))CalcBrSeasalt\n))).not.SeaSalt\n)))OFFLINE_SEASALT\n\n#==============================================================================\n# --- Offline soil NOx emissions ---\n#==============================================================================\n(((OFFLINE_SOILNOX\n(((.not.SoilNOx\n0 SOILNOX_NO  $ROOT/OFFLINE_SOILNOX/${RUNDIR_OFFLINE_SOILNOX_DIR}/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/soilnox_05.$YYYY$MM$DD.nc SOIL_NOx 1980-2022/1-12/1-31/* EFY xy kg/m2/s NO - 3 2\n))).not.SoilNOx\n)))OFFLINE_SOILNOX\n\n###############################################################################\n### EXTENSION DATA (subsection of BASE EMISSIONS SECTION)\n###\n### These fields are needed by the extensions listed above. The assigned ExtNr\n### must match the ExtNr entry in section 'Extension switches'. These fields\n### are only read if the extension is enabled.  The fields are imported by the\n### extensions by field name.  The name given here must match the name used\n### in the extension's source code.\n###############################################################################\n\n#==============================================================================\n# --- Seawater concentrations for oceanic emissions (Extension 101) ---\n#==============================================================================\n(((SeaFlux\n#101 CH3I_SEAWATER  $ROOT/CH3I/v2014-07/ocean_ch3i.geos.4x5.nc               CH3I_OCEAN 1985/1-12/1/0 C xy kg/m3  CH3I  -  1 1\n101 DMS_SEAWATER    $ROOT/DMS/v2015-07/DMS_lana.geos.1x1.nc                  DMS_OCEAN  1985/1-12/1/0 C xy kg/m3  DMS   -  1 1\n101 ACET_SEAWATER   $ROOT/ACET/v2014-07/ACET_seawater.generic.1x1.nc         ACET       2005/1/1/0    C xy kgC/m3 ACET  40 1 1\n101 ALD2_SEAWATER   $ROOT/ALD2/v2017-03/ALD2_seawater.geos.2x25.nc           ALD2       2006/1-12/1/0 C xy kgC/m3 ALD2  41 1 1\n101 MENO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         MENO3      2006/1-12/1/0 C xy kg/m3  MENO3 -  1 1\n101 ETNO3_SEAWATER  $ROOT/RONO2/v2019-05/RONO2_seawater.geos.2x25.nc         ETNO3      2006/1-12/1/0 C xy kg/m3  ETNO3 -  1 1\n101 MOH_SEAWATER    $ROOT/MOH/v2019-12/MOH_seawater.low.kgCm3.generic.1x1.nc MOH        2005/1/1/0    C xy kg/m3  MOH   -  1 1\n)))SeaFlux\n\n#==============================================================================\n# --- SOILNOX emissions (Extension 104) ---\n#==============================================================================\n(((SoilNOx\n104 DEP_RESERVOIR_DEFAULT $ROOT/SOILNOX/v2014-07/DepReservoirDefault.nc                 DEP_RESERVOIR 2013/7/1/0        C  xy kg/m3 NO - 1 1\n(((HEMCO_RESTART\n104 PFACTOR               ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                  PFACTOR       $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DRYPERIOD             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                  DRYPERIOD     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 GWET_PREV             ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                  GWET_PREV     $YYYY/$MM/$DD/$HH EY xy 1     NO - 1 1\n104 DEP_RESERVOIR         ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc                  DEP_RESERVOIR $YYYY/$MM/$DD/$HH EY xy kg/m3 NO - 1 1\n)))HEMCO_RESTART\n104 SOILNOX_FERT          $ROOT/SOILNOX/v2014-07/soilNOx.fert_res.generic.05x05.nc      FERT          2000/1-12/1-31/0  C  xy kg/m3 NO - 1 1\n104 SOILNOX_LANDK1        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K01  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK2        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K02  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK3        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K03  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK4        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K04  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK5        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K05  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK6        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K06  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK7        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K07  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK8        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K08  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK9        $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K09  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK10       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K10  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK11       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K11  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK12       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K12  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK13       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K13  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK14       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K14  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK15       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K15  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK16       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K16  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK17       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K17  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK18       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K18  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK19       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K19  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK20       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K20  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK21       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K21  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK22       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K22  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK23       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K23  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_LANDK24       $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K24  2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_ARID          $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       ARID          2000/1/1/0        C  xy 1     NO - 1 1\n104 SOILNOX_NONARID       $ROOT/SOILNOX/v2014-07/soilNOx.climate.generic.05x05.nc       NON_ARID      2000/1/1/0        C  xy 1     NO - 1 1\n)))SoilNOx\n\n#==============================================================================\n# --- Dust emissions using DEAD model (Extensions 105 and 131) ---\n#==============================================================================\n(((DustDead\n105 DEAD_EF_GEO     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      EF_GEO   1985/1/1/0    C xy factor   *    -    1 1\n105 DEAD_LF_DRY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      LF_DRY   1985/1/1/0    C xy factor   *    -    1 1\n105 DEAD_MF_CACO3   $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CaCO3 1985/1/1/0    C xy fraction *    -    1 1\n105 DEAD_MF_CLY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CLY   1985/1/1/0    C xy fraction *    -    1 1\n105 DEAD_MF_SND     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_SND   1985/1/1/0    C xy fraction *    -    1 1\n105 DEAD_SFC_TYP    $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      SFC_TYP  1985/1/1/0    C xy unitless *    -    1 1\n105 DEAD_GOC_SRC    $ROOT/DUST_DEAD/v2019-06/GOCART_src_fn.geos.2x25.nc  GOC_SRC  1985/1/1/0    C xy unitless *    -    1 1\n105 DEAD_VAI        $ROOT/DUST_DEAD/v2019-06/dst_tvbds.geos.2x25.nc      VAI      1985/1-12/1/0 C xy unitless *    -    1 1\n)))DustDead\n(((TOMAS_DustDead\n131 DEAD_EF_GEO     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      EF_GEO   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_LF_DRY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      LF_DRY   1985/1/1/0    C xy factor   *    -    1 1\n131 DEAD_MF_CACO3   $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CaCO3 1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_CLY     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_CLY   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_MF_SND     $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      MF_SND   1985/1/1/0    C xy fraction *    -    1 1\n131 DEAD_SFC_TYP    $ROOT/DUST_DEAD/v2019-06/dst_tibds.geos.2x25.nc      SFC_TYP  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_GOC_SRC    $ROOT/DUST_DEAD/v2019-06/GOCART_src_fn.geos.2x25.nc  GOC_SRC  1985/1/1/0    C xy unitless *    -    1 1\n131 DEAD_VAI        $ROOT/DUST_DEAD/v2019-06/dst_tvbds.geos.2x25.nc      VAI      1985/1-12/1/0 C xy unitless *    -    1 1\n)))TOMAS_DustDead\n\n#==============================================================================\n# --- Dust emissions using Paul Ginoux's mechanism (Extension 106)\n#==============================================================================\n(((DustGinoux\n106 GINOUX_SAND   $ROOT/DUST_GINOUX/v2014-07/NSP.dust.geos.4x5.nc  SAND  1985/1/1/0 C xy unitless * - 1 1\n106 GINOUX_SILT   $ROOT/DUST_GINOUX/v2014-07/NSP.dust.geos.4x5.nc  SILT  1985/1/1/0 C xy unitless * - 1 1\n106 GINOUX_CLAY   $ROOT/DUST_GINOUX/v2014-07/NSP.dust.geos.4x5.nc  CLAY  1985/1/1/0 C xy unitless * - 1 1\n)))DustGinoux\n\n#==============================================================================\n# --- Sea salt emissions (Extensions 107 and 130)\n#\n# MODIS Chlorophyll-A fields used for emissions of marine organic aerosols\n#==============================================================================\n(((SeaSalt\n107 MODIS_CHLR  $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS    2005-2014/1-12/1/0 C    xy 1 * - 1 1\n107 MULTISEAICE $ROOT/MULTI_ICE/v2021-07/multiyearice.merra2.05x0625.$YYYY.nc     FRSEAICE 1980-2020/1-12/1-31/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#107 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))SeaSalt\n(((TOMAS_Jeagle\n130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.$YYYY.nc MODIS 2005-2014/1-12/1/0 C xy 1 * - 1 1\n\n# Climatology CHLR\n#130 MODIS_CHLR $ROOT/MODIS_CHLR/v2019-11/MODIS.CHLRv.V5.generic.025x025.Clim.nc MODIS 2007/1-12/1/0 C xy 1 * - 1 1\n)))TOMAS_Jeagle\n\n#==============================================================================\n# --- MEGAN biogenic emissions (Extension 108)\n#\n# NOTE: These are the base emissions, which will be converted to kgC/m2/s by\n# HEMCO. The specified species (OCPI/ISOP/ACET) are required for proper unit\n# conversion. Since netCDF files are already in mass carbon (ug(C)), the only\n# important thing is to specify a VOC with a specified MW of 12g/mol.\n# This is the case for OCPI, ISOP and ACET.\n#\n# We don't need to read EF maps for acetone, a-pinene or myrcene. We now\n# compute those values in the MEGAN extension.\n#==============================================================================\n(((MEGAN\n(((HEMCO_RESTART\n108  T_DAVG                       ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc            T_DAVG                  $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  T_PREVDAY                    ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc            T_PREVDAY               $YYYY/$MM/$DD/$HH EY xy K        * - 1 1\n108  LAI_PREVDAY                  ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc            LAI_PREVDAY             $YYYY/$MM/$DD/$HH EY xy 1        * - 1 1\n108  PARDR_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc            PARDR_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n108  PARDF_DAVG                   ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc            PARDF_DAVG              $YYYY/$MM/$DD/$HH EY xy W/m2     * - 1 1\n)))HEMCO_RESTART\n108  MEGAN_AEF_ISOP               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ISOPRENE            1985/1/1/0        C xy kgC/m2/s * 61 1 1\n108  MEGAN_AEF_MBOX               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MBO                 1985/1/1/0        C xy kgC/m2/s * 64 1 1\n#108 MEGAN_AEF_APIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_ALPHA_PINENE        1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_BPIN               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_BETA_PINENE         1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_CARE               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_CARENE              1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_LIMO               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_LIMONENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n#108 MEGAN_AEF_MYRC               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_MYRCENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_OCIM               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_OCIMENE             1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  MEGAN_AEF_SABI               $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc      AEF_SABINENE            1985/1/1/0        C xy kgC/m2/s * 62 1 1\n108  CLM4_PFT_BARE                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BARE                2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_EVGN_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_EVGN_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_NDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_NDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TROP_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TROP_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_TREE $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_TREE 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_EVGN_SHRB      $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_EVGN_SHRB      2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_TMPT_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_TMPT_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_BDLF_DECD_BORL_SHRB $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_BDLF_DECD_BORL_SHRB 2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_ARCT_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_ARCT_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C3_NARC_GRSS        $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C3_NARC_GRSS        2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_C4_GRSS             $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_C4_GRSS             2000/1/1/0        C xy 1        * -  1 1\n108  CLM4_PFT_CROP                $ROOT/MEGAN/v2018-05/CLM4_PFT.geos.025x03125.v201805.nc PFT_CROP                2000/1/1/0        C xy 1        * -  1 1\n)))MEGAN\n\n#==============================================================================\n# --- GFED biomass burning emissions (Extension 111)\n# NOTES:\n# - These are the base emissions in kgDM/m2/s\n# - If a year is not available, you may use the GFED4_CLIMATOLOGY option instead\n#==============================================================================\n(((GFED4\n111 GFED_TEMP       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_TEMP       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_AGRI       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_AGRI       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_DEFO       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_DEFO       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_BORF       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_BORF       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_PEAT       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_PEAT       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n111 GFED_SAVA       $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc  DM_SAVA       2010-2023/1-12/01/0    RF xy kgDM/m2/s * - 1 1\n\n(((GFED_subgrid_coag\n111 FINN_DAILY_NUMBER   $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc   number   2002-2016/1-12/1/0   RF xy unitless  * - 1 1\n)))GFED_subgrid_coag\n\n(((GFED_daily\n111 GFED_FRAC_DAY   $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0  RF xy 1 * - 1 1\n)))GFED_daily\n\n(((GFED_3hourly\n111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc   GFED_FRAC3HR 2010-2023/1-12/1/0-23  RF xy 1 * - 1 1\n)))GFED_3hourly\n)))GFED4\n\n#==============================================================================\n# --- FINN v1.5 biomass burning emissions (Extension 114)\n#==============================================================================\n(((.not.FINN_daily\n114 FINN_VEGTYP1       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype1 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP2       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype2 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP3       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype3 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP4       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype4 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP5       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype5 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_VEGTYP9       $ROOT/FINN/v2015-02/FINN_monthly_$YYYY_0.25x0.25.compressed.nc fire_vegtype9 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n))).not.FINN_daily\n\n(((FINN_daily\n114 FINN_DAILY_VEGTYP1 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype1 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP2 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype2 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP3 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype3 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP4 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype4 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP5 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype5 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n114 FINN_DAILY_VEGTYP9 $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25.compressed.nc   fire_vegtype9 2002-2016/1-12/1/0 RF xy kg/m2/s * - 1 1\n\n(((FINN_subgrid_coag\n114 FINN_DAILY_NUMBER  $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc     number        2002-2016/1-12/1/0 RF xy unitless * - 1 1\n)))FINN_subgrid_coag\n\n)))FINN_daily\n\n)))EMISSIONS\n\n###############################################################################\n### NON-EMISSIONS DATA (subsection of BASE EMISSIONS SECTION)\n###\n### Non-emissions data. The following fields are read through HEMCO but do\n### not contain emissions data. The extension number is set to wildcard\n### character denoting that these fields will not be considered for emission\n### calculation. A given entry is only read if the assigned species name is\n### an HEMCO species.\n###############################################################################\n\n#==============================================================================\n# --- Time zones (offset to UTC) ---\n#==============================================================================\n* TIMEZONES  $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1\n\n(((CHEMISTRY_INPUT\n\n#==============================================================================\n# --- UV albedo, for photolysis (cf Hermann & Celarier, 1997) ---\n#==============================================================================\n(((UVALBEDO\n* UV_ALBEDO $ROOT/UVALBEDO/v2019-06/uvalbedo.geos.2x25.nc UVALBD 1985/1-12/1/0 C xy percent * - 1 1\n)))UVALBEDO\n\n#==============================================================================\n# --- Stratospheric Bry data from the CCM model  ---\n#==============================================================================\n(((CCM_STRAT_Bry\n* GEOSCCM_Br_DAY      $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_DAY     $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_DAY     $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_DAY   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_DAY     $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_DAY    $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.day.nc   HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br_NIGHT    $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BR     2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_Br2_NIGHT   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BRCL   2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrO_NIGHT   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BRO    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_BrNO3_NIGHT $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc BRONO2 2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HBr_NIGHT   $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc HBR    2007/1-12/1/0 C xyz pptv * - 60 1\n* GEOSCCM_HOBr_NIGHT  $ROOT/STRAT/v2015-01/Bry/GEOSCCM_Bry.2007$MM.night.nc HOBR   2007/1-12/1/0 C xyz pptv * - 60 1\n)))CCM_STRAT_Bry\n\n#==============================================================================\n#--- Archived GMI OH concentrations ---\n#==============================================================================\n(((GMI_OH\n* GMI_OH            $ROOT/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc             species 2005/1-12/1/0 C xyz v/v   *        - 1  1\n)))GMI_OH\n\n#==============================================================================\n#--- GMI chemistry: prod/loss rates ---\n#\n# Used for linearized mesospheric chemistry\n#==============================================================================\n(((GMI_PROD_LOSS\n* GMI_LOSS_A3O2       $ROOT/GMI/v2015-02/gmi.clim.A3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   A3O2     - 1  1\n* GMI_PROD_A3O2       $ROOT/GMI/v2015-02/gmi.clim.A3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s A3O2     - 1  1\n* GMI_LOSS_ACET       $ROOT/GMI/v2015-02/gmi.clim.ACET.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACET     - 1  1\n* GMI_PROD_ACET       $ROOT/GMI/v2015-02/gmi.clim.ACET.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACET     - 1  1\n* GMI_LOSS_ACTA       $ROOT/GMI/v2015-02/gmi.clim.ACTA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ACTA     - 1  1\n* GMI_PROD_ACTA       $ROOT/GMI/v2015-02/gmi.clim.ACTA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ACTA     - 1  1\n* GMI_LOSS_ALD2       $ROOT/GMI/v2015-02/gmi.clim.ALD2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALD2     - 1  1\n* GMI_PROD_ALD2       $ROOT/GMI/v2015-02/gmi.clim.ALD2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALD2     - 1  1\n* GMI_LOSS_ALK4       $ROOT/GMI/v2015-02/gmi.clim.ALK4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ALK4     - 1  1\n* GMI_PROD_ALK4       $ROOT/GMI/v2015-02/gmi.clim.ALK4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ALK4     - 1  1\n* GMI_LOSS_ATO2       $ROOT/GMI/v2015-02/gmi.clim.ATO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ATO2     - 1  1\n* GMI_PROD_ATO2       $ROOT/GMI/v2015-02/gmi.clim.ATO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ATO2     - 1  1\n* GMI_LOSS_B3O2       $ROOT/GMI/v2015-02/gmi.clim.B3O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   B3O2     - 1  1\n* GMI_PROD_B3O2       $ROOT/GMI/v2015-02/gmi.clim.B3O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s B3O2     - 1  1\n#* GMI_LOSS_Br        $ROOT/GMI/v2015-02/gmi.clim.Br.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Br       - 1  1\n#* GMI_PROD_Br        $ROOT/GMI/v2015-02/gmi.clim.Br.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Br       - 1  1\n#* GMI_LOSS_BrCl      $ROOT/GMI/v2015-02/gmi.clim.BrCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   BrCl     - 1  1\n#* GMI_PROD_BrCl      $ROOT/GMI/v2015-02/gmi.clim.BrCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s BrCl     - 1  1\n#* GMI_LOSS_BrO       $ROOT/GMI/v2015-02/gmi.clim.BrO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   BrO      - 1  1\n#* GMI_PROD_BrO       $ROOT/GMI/v2015-02/gmi.clim.BrO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s BrO      - 1  1\n#* GMI_LOSS_BrNO3     $ROOT/GMI/v2015-02/gmi.clim.BrONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   BrNO3    - 1  1\n#* GMI_PROD_BrNO3     $ROOT/GMI/v2015-02/gmi.clim.BrONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s BrNO3    - 1  1\n* GMI_LOSS_C2H6       $ROOT/GMI/v2015-02/gmi.clim.C2H6.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C2H6     - 1  1\n* GMI_PROD_C2H6       $ROOT/GMI/v2015-02/gmi.clim.C2H6.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C2H6     - 1  1\n* GMI_LOSS_C3H8       $ROOT/GMI/v2015-02/gmi.clim.C3H8.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   C3H8     - 1  1\n* GMI_PROD_C3H8       $ROOT/GMI/v2015-02/gmi.clim.C3H8.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s C3H8     - 1  1\n* GMI_LOSS_CCl4       $ROOT/GMI/v2015-02/gmi.clim.CCl4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CCl4     - 1  1\n* GMI_PROD_CCl4       $ROOT/GMI/v2015-02/gmi.clim.CCl4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CCl4     - 1  1\n#* GMI_LOSS_H1202     $ROOT/GMI/v2015-02/gmi.clim.CF2Br2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   H1202    - 1  1\n#* GMI_PROD_H1202     $ROOT/GMI/v2015-02/gmi.clim.CF2Br2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s H1202    - 1  1\n* GMI_LOSS_CFC12      $ROOT/GMI/v2015-02/gmi.clim.CF2Cl2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC12    - 1  1\n* GMI_PROD_CFC12      $ROOT/GMI/v2015-02/gmi.clim.CF2Cl2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC12    - 1  1\n* GMI_LOSS_H1211      $ROOT/GMI/v2015-02/gmi.clim.CF2ClBr.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   H1211    - 1  1\n* GMI_PROD_H1211      $ROOT/GMI/v2015-02/gmi.clim.CF2ClBr.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s H1211    - 1  1\n#* GMI_LOSS_H1311     $ROOT/GMI/v2015-02/gmi.clim.CF3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H1311    - 1  1\n#* GMI_PROD_H1311     $ROOT/GMI/v2015-02/gmi.clim.CF3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H1311    - 1  1\n* GMI_LOSS_CFC113     $ROOT/GMI/v2015-02/gmi.clim.CFC113.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC113   - 1  1\n* GMI_PROD_CFC113     $ROOT/GMI/v2015-02/gmi.clim.CFC113.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC113   - 1  1\n* GMI_LOSS_CFC114     $ROOT/GMI/v2015-02/gmi.clim.CFC114.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC114   - 1  1\n* GMI_PROD_CFC114     $ROOT/GMI/v2015-02/gmi.clim.CFC114.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC114   - 1  1\n* GMI_LOSS_CFC115     $ROOT/GMI/v2015-02/gmi.clim.CFC115.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   CFC115   - 1  1\n* GMI_PROD_CFC115     $ROOT/GMI/v2015-02/gmi.clim.CFC115.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s CFC115   - 1  1\n* GMI_LOSS_CFC11      $ROOT/GMI/v2015-02/gmi.clim.CFCl3.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CFC11    - 1  1\n* GMI_PROD_CFC11      $ROOT/GMI/v2015-02/gmi.clim.CFCl3.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CFC11    - 1  1\n* GMI_LOSS_CH2O       $ROOT/GMI/v2015-02/gmi.clim.CH2O.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   CH2O     - 1  1\n* GMI_PROD_CH2O       $ROOT/GMI/v2015-02/gmi.clim.CH2O.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s CH2O     - 1  1\n#* GMI_LOSS_CH3Br     $ROOT/GMI/v2015-02/gmi.clim.CH3Br.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Br    - 1  1\n#* GMI_PROD_CH3Br     $ROOT/GMI/v2015-02/gmi.clim.CH3Br.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Br    - 1  1\n* GMI_LOSS_CH3CCl3    $ROOT/GMI/v2015-02/gmi.clim.CH3CCl3.geos5.2x25.nc        loss    2005/1-12/1/0 C xyz s-1   CH3CCl3  - 1  1\n* GMI_PROD_CH3CCl3    $ROOT/GMI/v2015-02/gmi.clim.CH3CCl3.geos5.2x25.nc        prod    2005/1-12/1/0 C xyz v/v/s CH3CCl3  - 1  1\n* GMI_LOSS_CH3Cl      $ROOT/GMI/v2015-02/gmi.clim.CH3Cl.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   CH3Cl    - 1  1\n* GMI_PROD_CH3Cl      $ROOT/GMI/v2015-02/gmi.clim.CH3Cl.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s CH3Cl    - 1  1\n* GMI_LOSS_CH4        $ROOT/GMI/v2015-02/gmi.clim.CH4.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   CH4      - 1  1\n* GMI_PROD_CH4        $ROOT/GMI/v2015-02/gmi.clim.CH4.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s CH4      - 1  1\n* GMI_LOSS_CO         $ROOT/GMI/v2015-02/gmi.clim.CO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   CO       - 1  1\n* GMI_PROD_CO         $ROOT/GMI/v2015-02/gmi.clim.CO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s CO       - 1  1\n* GMI_LOSS_Cl         $ROOT/GMI/v2015-02/gmi.clim.Cl.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Cl       - 1  1\n* GMI_PROD_Cl         $ROOT/GMI/v2015-02/gmi.clim.Cl.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Cl       - 1  1\n* GMI_LOSS_Cl2        $ROOT/GMI/v2015-02/gmi.clim.Cl2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   Cl2      - 1  1\n* GMI_PROD_Cl2        $ROOT/GMI/v2015-02/gmi.clim.Cl2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s Cl2      - 1  1\n* GMI_LOSS_Cl2O2      $ROOT/GMI/v2015-02/gmi.clim.Cl2O2.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   Cl2O2    - 1  1\n* GMI_PROD_Cl2O2      $ROOT/GMI/v2015-02/gmi.clim.Cl2O2.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s Cl2O2    - 1  1\n* GMI_LOSS_ClO        $ROOT/GMI/v2015-02/gmi.clim.ClO.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ClO      - 1  1\n* GMI_PROD_ClO        $ROOT/GMI/v2015-02/gmi.clim.ClO.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ClO      - 1  1\n* GMI_LOSS_ClONO2     $ROOT/GMI/v2015-02/gmi.clim.ClONO2.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   ClONO2   - 1  1\n* GMI_PROD_ClONO2     $ROOT/GMI/v2015-02/gmi.clim.ClONO2.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s ClONO2   - 1  1\n* GMI_LOSS_EOH        $ROOT/GMI/v2015-02/gmi.clim.EOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   EOH      - 1  1\n* GMI_PROD_EOH        $ROOT/GMI/v2015-02/gmi.clim.EOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s EOH      - 1  1\n* GMI_LOSS_ETO2       $ROOT/GMI/v2015-02/gmi.clim.ETO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ETO2     - 1  1\n* GMI_PROD_ETO2       $ROOT/GMI/v2015-02/gmi.clim.ETO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ETO2     - 1  1\n* GMI_LOSS_ETP        $ROOT/GMI/v2015-02/gmi.clim.ETP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ETP      - 1  1\n* GMI_PROD_ETP        $ROOT/GMI/v2015-02/gmi.clim.ETP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ETP      - 1  1\n* GMI_LOSS_GCO3       $ROOT/GMI/v2015-02/gmi.clim.GCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GCO3     - 1  1\n* GMI_PROD_GCO3       $ROOT/GMI/v2015-02/gmi.clim.GCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GCO3     - 1  1\n* GMI_LOSS_GLYC       $ROOT/GMI/v2015-02/gmi.clim.GLYC.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYC     - 1  1\n* GMI_PROD_GLYC       $ROOT/GMI/v2015-02/gmi.clim.GLYC.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYC     - 1  1\n* GMI_LOSS_GLYX       $ROOT/GMI/v2015-02/gmi.clim.GLYX.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GLYX     - 1  1\n* GMI_PROD_GLYX       $ROOT/GMI/v2015-02/gmi.clim.GLYX.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GLYX     - 1  1\n* GMI_LOSS_GP         $ROOT/GMI/v2015-02/gmi.clim.GP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   GP       - 1  1\n* GMI_PROD_GP         $ROOT/GMI/v2015-02/gmi.clim.GP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s GP       - 1  1\n* GMI_LOSS_GPAN       $ROOT/GMI/v2015-02/gmi.clim.GPAN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   GPAN     - 1  1\n* GMI_PROD_GPAN       $ROOT/GMI/v2015-02/gmi.clim.GPAN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s GPAN     - 1  1\n* GMI_LOSS_H          $ROOT/GMI/v2015-02/gmi.clim.H.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   H        - 1  1\n* GMI_PROD_H          $ROOT/GMI/v2015-02/gmi.clim.H.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s H        - 1  1\n* GMI_LOSS_H2         $ROOT/GMI/v2015-02/gmi.clim.H2.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   H2       - 1  1\n* GMI_PROD_H2         $ROOT/GMI/v2015-02/gmi.clim.H2.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s H2       - 1  1\n* GMI_LOSS_H2402      $ROOT/GMI/v2015-02/gmi.clim.H2402.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   H2402    - 1  1\n* GMI_PROD_H2402      $ROOT/GMI/v2015-02/gmi.clim.H2402.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s H2402    - 1  1\n* GMI_LOSS_H2O        $ROOT/GMI/v2015-02/gmi.clim.H2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   H2O      - 1  1\n* GMI_PROD_H2O        $ROOT/GMI/v2015-02/gmi.clim.H2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s H2O      - 1  1\n* GMI_LOSS_H2O2       $ROOT/GMI/v2015-02/gmi.clim.H2O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   H2O2     - 1  1\n* GMI_PROD_H2O2       $ROOT/GMI/v2015-02/gmi.clim.H2O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s H2O2     - 1  1\n* GMI_LOSS_HAC        $ROOT/GMI/v2015-02/gmi.clim.HAC.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HAC      - 1  1\n* GMI_PROD_HAC        $ROOT/GMI/v2015-02/gmi.clim.HAC.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HAC      - 1  1\n#* GMI_LOSS_HBr       $ROOT/GMI/v2015-02/gmi.clim.HBr.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HBr      - 1  1\n#* GMI_PROD_HBr       $ROOT/GMI/v2015-02/gmi.clim.HBr.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HBr      - 1  1\n* GMI_LOSS_HCFC141b   $ROOT/GMI/v2015-02/gmi.clim.HCFC141b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC141b - 1  1\n* GMI_PROD_HCFC141b   $ROOT/GMI/v2015-02/gmi.clim.HCFC141b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC141b - 1  1\n* GMI_LOSS_HCFC142b   $ROOT/GMI/v2015-02/gmi.clim.HCFC142b.geos5.2x25.nc       loss    2005/1-12/1/0 C xyz s-1   HCFC142b - 1  1\n* GMI_PROD_HCFC142b   $ROOT/GMI/v2015-02/gmi.clim.HCFC142b.geos5.2x25.nc       prod    2005/1-12/1/0 C xyz v/v/s HCFC142b - 1  1\n* GMI_LOSS_HCFC22     $ROOT/GMI/v2015-02/gmi.clim.HCFC22.geos5.2x25.nc         loss    2005/1-12/1/0 C xyz s-1   HCFC22   - 1  1\n* GMI_PROD_HCFC22     $ROOT/GMI/v2015-02/gmi.clim.HCFC22.geos5.2x25.nc         prod    2005/1-12/1/0 C xyz v/v/s HCFC22   - 1  1\n* GMI_LOSS_HCOOH      $ROOT/GMI/v2015-02/gmi.clim.HCOOH.geos5.2x25.20170108.nc loss    2005/1-12/1/0 C xyz s-1   HCOOH    - 1  1\n* GMI_PROD_HCOOH      $ROOT/GMI/v2015-02/gmi.clim.HCOOH.geos5.2x25.20170108.nc prod    2005/1-12/1/0 C xyz v/v/s HCOOH    - 1  1\n* GMI_LOSS_HCl        $ROOT/GMI/v2015-02/gmi.clim.HCl.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HCl      - 1  1\n* GMI_PROD_HCl        $ROOT/GMI/v2015-02/gmi.clim.HCl.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HCl      - 1  1\n* GMI_LOSS_HNO2       $ROOT/GMI/v2015-02/gmi.clim.HNO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO2     - 1  1\n* GMI_PROD_HNO2       $ROOT/GMI/v2015-02/gmi.clim.HNO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO2     - 1  1\n* GMI_LOSS_HNO3       $ROOT/GMI/v2015-02/gmi.clim.HNO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO3     - 1  1\n* GMI_PROD_HNO3       $ROOT/GMI/v2015-02/gmi.clim.HNO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO3     - 1  1\n* GMI_LOSS_HNO4       $ROOT/GMI/v2015-02/gmi.clim.HNO4.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HNO4     - 1  1\n* GMI_PROD_HNO4       $ROOT/GMI/v2015-02/gmi.clim.HNO4.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HNO4     - 1  1\n* GMI_LOSS_HO2        $ROOT/GMI/v2015-02/gmi.clim.HO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   HO2      - 1  1\n* GMI_PROD_HO2        $ROOT/GMI/v2015-02/gmi.clim.HO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s HO2      - 1  1\n#* GMI_LOSS_HOBr      $ROOT/GMI/v2015-02/gmi.clim.HOBr.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOBr     - 1  1\n#* GMI_PROD_HOBr      $ROOT/GMI/v2015-02/gmi.clim.HOBr.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOBr     - 1  1\n* GMI_LOSS_HOCl       $ROOT/GMI/v2015-02/gmi.clim.HOCl.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   HOCl     - 1  1\n* GMI_PROD_HOCl       $ROOT/GMI/v2015-02/gmi.clim.HOCl.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s HOCl     - 1  1\n* GMI_LOSS_IALD       $ROOT/GMI/v2015-02/gmi.clim.IALD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IALD     - 1  1\n* GMI_PROD_IALD       $ROOT/GMI/v2015-02/gmi.clim.IALD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IALD     - 1  1\n* GMI_LOSS_IAO2       $ROOT/GMI/v2015-02/gmi.clim.IAO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IAO2     - 1  1\n* GMI_PROD_IAO2       $ROOT/GMI/v2015-02/gmi.clim.IAO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IAO2     - 1  1\n* GMI_LOSS_IAP        $ROOT/GMI/v2015-02/gmi.clim.IAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   IAP      - 1  1\n* GMI_PROD_IAP        $ROOT/GMI/v2015-02/gmi.clim.IAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s IAP      - 1  1\n* GMI_LOSS_INO2       $ROOT/GMI/v2015-02/gmi.clim.INO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INO2     - 1  1\n* GMI_PROD_INO2       $ROOT/GMI/v2015-02/gmi.clim.INO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INO2     - 1  1\n* GMI_LOSS_INPN       $ROOT/GMI/v2015-02/gmi.clim.INPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   INPN     - 1  1\n* GMI_PROD_INPN       $ROOT/GMI/v2015-02/gmi.clim.INPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s INPN     - 1  1\n* GMI_LOSS_ISN1       $ROOT/GMI/v2015-02/gmi.clim.ISN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISN1     - 1  1\n* GMI_PROD_ISN1       $ROOT/GMI/v2015-02/gmi.clim.ISN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISN1     - 1  1\n* GMI_LOSS_ISNP       $ROOT/GMI/v2015-02/gmi.clim.ISNP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISNP     - 1  1\n* GMI_PROD_ISNP       $ROOT/GMI/v2015-02/gmi.clim.ISNP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISNP     - 1  1\n* GMI_LOSS_ISOP       $ROOT/GMI/v2015-02/gmi.clim.ISOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   ISOP     - 1  1\n* GMI_PROD_ISOP       $ROOT/GMI/v2015-02/gmi.clim.ISOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s ISOP     - 1  1\n* GMI_LOSS_KO2        $ROOT/GMI/v2015-02/gmi.clim.KO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   KO2      - 1  1\n* GMI_PROD_KO2        $ROOT/GMI/v2015-02/gmi.clim.KO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s KO2      - 1  1\n* GMI_LOSS_MACR       $ROOT/GMI/v2015-02/gmi.clim.MACR.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MACR     - 1  1\n* GMI_PROD_MACR       $ROOT/GMI/v2015-02/gmi.clim.MACR.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MACR     - 1  1\n* GMI_LOSS_MAN2       $ROOT/GMI/v2015-02/gmi.clim.MAN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAN2     - 1  1\n* GMI_PROD_MAN2       $ROOT/GMI/v2015-02/gmi.clim.MAN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAN2     - 1  1\n* GMI_LOSS_MAO3       $ROOT/GMI/v2015-02/gmi.clim.MAO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAO3     - 1  1\n* GMI_PROD_MAO3       $ROOT/GMI/v2015-02/gmi.clim.MAO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAO3     - 1  1\n* GMI_LOSS_MAOP       $ROOT/GMI/v2015-02/gmi.clim.MAOP.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MAOP     - 1  1\n* GMI_PROD_MAOP       $ROOT/GMI/v2015-02/gmi.clim.MAOP.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MAOP     - 1  1\n* GMI_LOSS_MAP        $ROOT/GMI/v2015-02/gmi.clim.MAP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MAP      - 1  1\n* GMI_PROD_MAP        $ROOT/GMI/v2015-02/gmi.clim.MAP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MAP      - 1  1\n* GMI_LOSS_MCO3       $ROOT/GMI/v2015-02/gmi.clim.MCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MCO3     - 1  1\n* GMI_PROD_MCO3       $ROOT/GMI/v2015-02/gmi.clim.MCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MCO3     - 1  1\n* GMI_LOSS_MEK        $ROOT/GMI/v2015-02/gmi.clim.MEK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MEK      - 1  1\n* GMI_PROD_MEK        $ROOT/GMI/v2015-02/gmi.clim.MEK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MEK      - 1  1\n* GMI_LOSS_MGLY       $ROOT/GMI/v2015-02/gmi.clim.MGLY.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MGLY     - 1  1\n* GMI_PROD_MGLY       $ROOT/GMI/v2015-02/gmi.clim.MGLY.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MGLY     - 1  1\n* GMI_LOSS_MO2        $ROOT/GMI/v2015-02/gmi.clim.MO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MO2      - 1  1\n* GMI_PROD_MO2        $ROOT/GMI/v2015-02/gmi.clim.MO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MO2      - 1  1\n* GMI_LOSS_MOH        $ROOT/GMI/v2015-02/gmi.clim.MOH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MOH      - 1  1\n* GMI_PROD_MOH        $ROOT/GMI/v2015-02/gmi.clim.MOH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MOH      - 1  1\n* GMI_LOSS_MP         $ROOT/GMI/v2015-02/gmi.clim.MP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   MP       - 1  1\n* GMI_PROD_MP         $ROOT/GMI/v2015-02/gmi.clim.MP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s MP       - 1  1\n* GMI_LOSS_MRO2       $ROOT/GMI/v2015-02/gmi.clim.MRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MRO2     - 1  1\n* GMI_PROD_MRO2       $ROOT/GMI/v2015-02/gmi.clim.MRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MRO2     - 1  1\n* GMI_LOSS_MRP        $ROOT/GMI/v2015-02/gmi.clim.MRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MRP      - 1  1\n* GMI_PROD_MRP        $ROOT/GMI/v2015-02/gmi.clim.MRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MRP      - 1  1\n* GMI_LOSS_MVK        $ROOT/GMI/v2015-02/gmi.clim.MVK.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   MVK      - 1  1\n* GMI_PROD_MVK        $ROOT/GMI/v2015-02/gmi.clim.MVK.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s MVK      - 1  1\n* GMI_LOSS_MVN2       $ROOT/GMI/v2015-02/gmi.clim.MVN2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   MVN2     - 1  1\n* GMI_PROD_MVN2       $ROOT/GMI/v2015-02/gmi.clim.MVN2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s MVN2     - 1  1\n* GMI_LOSS_N          $ROOT/GMI/v2015-02/gmi.clim.N.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   N        - 1  1\n* GMI_PROD_N          $ROOT/GMI/v2015-02/gmi.clim.N.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s N        - 1  1\n* GMI_LOSS_N2O        $ROOT/GMI/v2015-02/gmi.clim.N2O.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   N2O      - 1  1\n* GMI_PROD_N2O        $ROOT/GMI/v2015-02/gmi.clim.N2O.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s N2O      - 1  1\n* GMI_LOSS_N2O5       $ROOT/GMI/v2015-02/gmi.clim.N2O5.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   N2O5     - 1  1\n* GMI_PROD_N2O5       $ROOT/GMI/v2015-02/gmi.clim.N2O5.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s N2O5     - 1  1\n* GMI_LOSS_NO         $ROOT/GMI/v2015-02/gmi.clim.NO.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   NO       - 1  1\n* GMI_PROD_NO         $ROOT/GMI/v2015-02/gmi.clim.NO.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s NO       - 1  1\n* GMI_LOSS_NO2        $ROOT/GMI/v2015-02/gmi.clim.NO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO2      - 1  1\n* GMI_PROD_NO2        $ROOT/GMI/v2015-02/gmi.clim.NO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO2      - 1  1\n* GMI_LOSS_NO3        $ROOT/GMI/v2015-02/gmi.clim.NO3.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NO3      - 1  1\n* GMI_PROD_NO3        $ROOT/GMI/v2015-02/gmi.clim.NO3.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NO3      - 1  1\n* GMI_LOSS_NOx        $ROOT/GMI/v2015-02/gmi.clim.NOx.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   NOx      - 1  1\n* GMI_PROD_NOx        $ROOT/GMI/v2015-02/gmi.clim.NOx.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s NOx      - 1  1\n* GMI_LOSS_O          $ROOT/GMI/v2015-02/gmi.clim.O.geos5.2x25.nc              loss    2005/1-12/1/0 C xyz s-1   O        - 1  1\n* GMI_PROD_O          $ROOT/GMI/v2015-02/gmi.clim.O.geos5.2x25.nc              prod    2005/1-12/1/0 C xyz v/v/s O        - 1  1\n* GMI_LOSS_O1D        $ROOT/GMI/v2015-02/gmi.clim.O1D.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   O1D      - 1  1\n* GMI_PROD_O1D        $ROOT/GMI/v2015-02/gmi.clim.O1D.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s O1D      - 1  1\n* GMI_LOSS_O3         $ROOT/GMI/v2015-02/gmi.clim.O3.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   O3       - 1  1\n* GMI_PROD_O3         $ROOT/GMI/v2015-02/gmi.clim.O3.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s O3       - 1  1\n* GMI_LOSS_OClO       $ROOT/GMI/v2015-02/gmi.clim.OClO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   OClO     - 1  1\n* GMI_PROD_OClO       $ROOT/GMI/v2015-02/gmi.clim.OClO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s OClO     - 1  1\n* GMI_LOSS_OH         $ROOT/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   OH       - 1  1\n* GMI_PROD_OH         $ROOT/GMI/v2015-02/gmi.clim.OH.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s OH       - 1  1\n* GMI_LOSS_Ox         $ROOT/GMI/v2015-02/gmi.clim.Ox.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   Ox       - 1  1\n* GMI_PROD_Ox         $ROOT/GMI/v2015-02/gmi.clim.Ox.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s Ox       - 1  1\n* GMI_LOSS_PAN        $ROOT/GMI/v2015-02/gmi.clim.PAN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PAN      - 1  1\n* GMI_PROD_PAN        $ROOT/GMI/v2015-02/gmi.clim.PAN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PAN      - 1  1\n* GMI_LOSS_NPMN       $ROOT/GMI/v2015-02/gmi.clim.NPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   NPMN     - 1  1\n* GMI_PROD_NPMN       $ROOT/GMI/v2015-02/gmi.clim.NPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s NPMN     - 1  1\n* GMI_LOSS_IPMN       $ROOT/GMI/v2015-02/gmi.clim.IPMN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   IPMN     - 1  1\n* GMI_PROD_IPMN       $ROOT/GMI/v2015-02/gmi.clim.IPMN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s IPMN     - 1  1\n* GMI_LOSS_PO2        $ROOT/GMI/v2015-02/gmi.clim.PO2.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PO2      - 1  1\n* GMI_PROD_PO2        $ROOT/GMI/v2015-02/gmi.clim.PO2.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PO2      - 1  1\n* GMI_LOSS_PP         $ROOT/GMI/v2015-02/gmi.clim.PP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   PP       - 1  1\n* GMI_PROD_PP         $ROOT/GMI/v2015-02/gmi.clim.PP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s PP       - 1  1\n* GMI_LOSS_PPN        $ROOT/GMI/v2015-02/gmi.clim.PPN.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   PPN      - 1  1\n* GMI_PROD_PPN        $ROOT/GMI/v2015-02/gmi.clim.PPN.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s PPN      - 1  1\n* GMI_LOSS_PRN1       $ROOT/GMI/v2015-02/gmi.clim.PRN1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRN1     - 1  1\n* GMI_PROD_PRN1       $ROOT/GMI/v2015-02/gmi.clim.PRN1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRN1     - 1  1\n* GMI_LOSS_PRPE       $ROOT/GMI/v2015-02/gmi.clim.PRPE.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPE     - 1  1\n* GMI_PROD_PRPE       $ROOT/GMI/v2015-02/gmi.clim.PRPE.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPE     - 1  1\n* GMI_LOSS_PRPN       $ROOT/GMI/v2015-02/gmi.clim.PRPN.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   PRPN     - 1  1\n* GMI_PROD_PRPN       $ROOT/GMI/v2015-02/gmi.clim.PRPN.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s PRPN     - 1  1\n* GMI_LOSS_R4N1       $ROOT/GMI/v2015-02/gmi.clim.R4N1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N1     - 1  1\n* GMI_PROD_R4N1       $ROOT/GMI/v2015-02/gmi.clim.R4N1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N1     - 1  1\n* GMI_LOSS_R4N2       $ROOT/GMI/v2015-02/gmi.clim.R4N2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4N2     - 1  1\n* GMI_PROD_R4N2       $ROOT/GMI/v2015-02/gmi.clim.R4N2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4N2     - 1  1\n* GMI_LOSS_R4O2       $ROOT/GMI/v2015-02/gmi.clim.R4O2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   R4O2     - 1  1\n* GMI_PROD_R4O2       $ROOT/GMI/v2015-02/gmi.clim.R4O2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s R4O2     - 1  1\n* GMI_LOSS_R4P        $ROOT/GMI/v2015-02/gmi.clim.R4P.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   R4P      - 1  1\n* GMI_PROD_R4P        $ROOT/GMI/v2015-02/gmi.clim.R4P.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s R4P      - 1  1\n* GMI_LOSS_RA3P       $ROOT/GMI/v2015-02/gmi.clim.RA3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RA3P     - 1  1\n* GMI_PROD_RA3P       $ROOT/GMI/v2015-02/gmi.clim.RA3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RA3P     - 1  1\n* GMI_LOSS_RB3P       $ROOT/GMI/v2015-02/gmi.clim.RB3P.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RB3P     - 1  1\n* GMI_PROD_RB3P       $ROOT/GMI/v2015-02/gmi.clim.RB3P.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RB3P     - 1  1\n* GMI_LOSS_RCHO       $ROOT/GMI/v2015-02/gmi.clim.RCHO.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCHO     - 1  1\n* GMI_PROD_RCHO       $ROOT/GMI/v2015-02/gmi.clim.RCHO.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCHO     - 1  1\n* GMI_LOSS_RCO3       $ROOT/GMI/v2015-02/gmi.clim.RCO3.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RCO3     - 1  1\n* GMI_PROD_RCO3       $ROOT/GMI/v2015-02/gmi.clim.RCO3.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RCO3     - 1  1\n* GMI_LOSS_RCOOH      $ROOT/GMI/v2015-02/gmi.clim.RCOOH.geos5.2x25.nc          loss    2005/1-12/1/0 C xyz s-1   RCOOH    - 1  1\n* GMI_PROD_RCOOH      $ROOT/GMI/v2015-02/gmi.clim.RCOOH.geos5.2x25.nc          prod    2005/1-12/1/0 C xyz v/v/s RCOOH    - 1  1\n* GMI_LOSS_RIO1       $ROOT/GMI/v2015-02/gmi.clim.RIO1.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIO1     - 1  1\n* GMI_PROD_RIO1       $ROOT/GMI/v2015-02/gmi.clim.RIO1.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIO1     - 1  1\n* GMI_LOSS_RIPA       $ROOT/GMI/v2015-02/gmi.clim.RIPA.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPA     - 1  1\n* GMI_PROD_RIPA       $ROOT/GMI/v2015-02/gmi.clim.RIPA.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPA     - 1  1\n* GMI_LOSS_RIPB       $ROOT/GMI/v2015-02/gmi.clim.RIPB.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPB     - 1  1\n* GMI_PROD_RIPB       $ROOT/GMI/v2015-02/gmi.clim.RIPB.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPB     - 1  1\n* GMI_LOSS_RIPD       $ROOT/GMI/v2015-02/gmi.clim.RIPD.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   RIPD     - 1  1\n* GMI_PROD_RIPD       $ROOT/GMI/v2015-02/gmi.clim.RIPD.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s RIPD     - 1  1\n* GMI_LOSS_ROH        $ROOT/GMI/v2015-02/gmi.clim.ROH.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   ROH      - 1  1\n* GMI_PROD_ROH        $ROOT/GMI/v2015-02/gmi.clim.ROH.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s ROH      - 1  1\n* GMI_LOSS_RP         $ROOT/GMI/v2015-02/gmi.clim.RP.geos5.2x25.nc             loss    2005/1-12/1/0 C xyz s-1   RP       - 1  1\n* GMI_PROD_RP         $ROOT/GMI/v2015-02/gmi.clim.RP.geos5.2x25.nc             prod    2005/1-12/1/0 C xyz v/v/s RP       - 1  1\n* GMI_LOSS_VRO2       $ROOT/GMI/v2015-02/gmi.clim.VRO2.geos5.2x25.nc           loss    2005/1-12/1/0 C xyz s-1   VRO2     - 1  1\n* GMI_PROD_VRO2       $ROOT/GMI/v2015-02/gmi.clim.VRO2.geos5.2x25.nc           prod    2005/1-12/1/0 C xyz v/v/s VRO2     - 1  1\n* GMI_LOSS_VRP        $ROOT/GMI/v2015-02/gmi.clim.VRP.geos5.2x25.nc            loss    2005/1-12/1/0 C xyz s-1   VRP      - 1  1\n* GMI_PROD_VRP        $ROOT/GMI/v2015-02/gmi.clim.VRP.geos5.2x25.nc            prod    2005/1-12/1/0 C xyz v/v/s VRP      - 1  1\n)))GMI_PROD_LOSS\n\n#==============================================================================\n# --- Spatially varying OM/OC ---\n#==============================================================================\n(((OMOC_RATIO\n* OMOC_DJF $ROOT/OMOC/v2018-01/OMOC.DJF.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_MAM $ROOT/OMOC/v2018-01/OMOC.MAM.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_JJA $ROOT/OMOC/v2018-01/OMOC.JJA.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n* OMOC_SON $ROOT/OMOC/v2018-01/OMOC.SON.01x01.nc OMOC 2010/1/1/0 C xy 1 * - 1 1\n)))OMOC_RATIO\n\n)))CHEMISTRY_INPUT\n\n#==============================================================================\n# --- NOAA GMD monthly mean surface CH4 ---\n#==============================================================================\n(((GMD_SFC_CH4\n* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2023-10/monthly.gridded.surface.methane.1975-2022.1x1.nc SFC_CH4 1975-2022/1-12/1/0 RY xy ppbv * - 1 1\n)))GMD_SFC_CH4\n\n#==============================================================================\n# --- CMIP6 monthly mean surface CH4 ---\n# NOTE: This is only used if NOAA data is unavailable (pre 1979)\n#==============================================================================\n(((CMIP6_SFC_CH4\n* CMIP6_Sfc_CH4  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH4 1750-1978/1-12/1/0 EY xy ppbv * - 1 1\n)))CMIP6_SFC_CH4\n\n#==============================================================================\n# --- Olson land map masks ---\n#==============================================================================\n(((OLSON_LANDMAP\n* LANDTYPE00 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE00 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE01 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE01 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE02 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE02 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE03 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE03 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE04 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE04 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE05 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE05 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE06 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE06 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE07 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE07 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE08 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE08 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE09 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE09 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE10 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE10 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE11 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE11 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE12 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE12 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE13 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE13 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE14 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE14 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE15 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE15 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE16 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE16 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE17 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE17 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE18 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE18 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE19 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE19 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE20 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE20 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE21 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE21 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE22 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE22 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE23 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE23 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE24 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE24 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE25 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE25 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE26 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE26 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE27 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE27 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE28 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE28 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE29 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE29 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE30 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE30 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE31 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE31 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE32 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE32 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE33 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE33 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE34 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE34 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE35 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE35 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE36 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE36 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE37 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE37 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE38 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE38 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE39 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE39 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE40 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE40 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE41 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE41 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE42 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE42 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE43 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE43 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE44 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE44 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE45 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE45 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE46 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE46 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE47 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE47 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE48 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE48 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE49 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE49 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE50 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE50 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE51 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE51 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE52 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE52 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE53 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE53 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE54 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE54 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE55 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE55 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE56 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE56 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE57 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE57 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE58 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE58 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE59 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE59 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE60 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE60 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE61 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE61 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE62 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE62 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE63 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE63 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE64 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE64 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE65 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE65 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE66 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE66 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE67 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE67 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE68 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE68 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE69 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE69 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE70 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE70 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE71 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE71 1985/1/1/0 C xy 1 * - 1 1\n* LANDTYPE72 $ROOT/OLSON_MAP/v2019-02/Olson_2001_Land_Type_Masks.025x025.generic.nc LANDTYPE72 1985/1/1/0 C xy 1 * - 1 1\n)))OLSON_LANDMAP\n\n#==============================================================================\n# --- Yuan processed MODIS leaf area index data ---\n#\n# Source: Yuan et al 2011, doi:10.1016/j.rse.2011.01.001\n#         http://globalchange.bnu.edu.cn/research/lai\n#\n# NOTES:\n# (1) LAI data corresponding to each Olson land type is stored in\n#      separate netCDF variables (XLAI00, XLAI01, ... XLAI72).\n#      The \"XLAI\" denotes that the files are prepared in this way.\n# (2) Units are \"cm2 leaf/cm2 grid box\".\n# (3) Data is timestamped every 8 days, starting from the 2nd of the month.\n#==============================================================================\n(((YUAN_MODIS_LAI\n* XLAI00 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI00 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI01 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI01 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI02 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI02 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI03 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI03 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI04 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI04 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI05 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI05 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI06 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI06 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI07 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI07 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI08 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI08 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI09 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI09 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI10 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI10 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI11 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI11 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI12 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI12 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI13 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI13 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI14 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI14 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI15 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI15 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI16 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI16 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI17 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI17 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI18 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI18 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI19 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI19 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI20 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI20 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI21 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI21 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI22 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI22 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI23 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI23 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI24 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI24 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI25 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI25 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI26 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI26 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI27 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI27 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI28 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI28 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI29 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI29 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI30 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI30 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI31 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI31 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI32 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI32 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI33 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI33 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI34 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI34 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI35 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI35 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI36 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI36 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI37 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI37 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI38 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI38 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI39 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI39 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI40 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI40 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI41 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI41 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI42 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI42 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI43 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI43 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI44 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI44 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI45 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI45 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI46 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI46 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI47 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI47 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI48 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI48 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI49 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI49 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI50 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI50 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI51 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI51 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI52 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI52 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI53 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI53 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI54 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI54 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI55 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI55 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI56 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI56 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI57 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI57 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI58 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI58 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI59 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI59 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI60 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI60 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI61 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI61 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI62 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI62 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI63 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI63 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI64 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI64 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI65 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI65 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI66 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI66 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI67 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI67 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI68 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI68 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI69 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI69 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI70 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI70 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI71 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI71 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n* XLAI72 $ROOT/Yuan_XLAI/v2021-06/Yuan_proc_MODIS_XLAI.025x025.$YYYY.nc XLAI72 2000-2020/1-12/1-31/0 I xy cm2/cm2 * - 1 1\n)))YUAN_MODIS_LAI\n\n#==============================================================================\n# --- Inputs for the RRTMG radiative transfer model ---\n#\n# NOTE: The 2 x 2.5 albedo fields and emissivity fields will produce\n# differences at the level of numerical noise when comparing output to\n# simulations from prior versions (esp. when running at 4 x 5 resolution).\n# You might see larger differences w/r/t prior verisons for a few grid boxes\n# along the coastline of Antarctica, where the difference in resolution\n# and regridding will be more apparent in the sharp transition from ice to\n# ocean.  If this is a problem, you can use the data files at 4x5 resolution\n# for 4x5 RRTMG simulations.\n#\n# ALSO NOTE: The algorithm that HEMCO uses to select each time slice is\n# likely different than what was implemented when reading the old bpch\n# data from disk.  This can also cause differences when comparing to\n# prior versions.\n#==============================================================================\n(((RRTMG\n* MODIS_ALBDFNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDFVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDFVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRNIR      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRNIR        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_ALBDRVIS      $ROOT/RRTMG/v2018-11/modis_surf_albedo.2x25.nc     ALBDRVIS        2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_01 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band01  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_02 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band02  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_03 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band03  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_04 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band04  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_05 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band05  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_06 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band06  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_07 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band07  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_08 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band08  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_09 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band09  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_10 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band10  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_11 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band11  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_12 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band12  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_13 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band13  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_14 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band14  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_15 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band15  2002/1-12/1-31/0 C xy  1    * - 1 1\n* MODIS_EMISSIVITY_16 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc      RTEMISS_band16  2002/1-12/1-31/0 C xy  1    * - 1 1\n* TES_CLIM_CCL4  $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CCl4            2000/1/1/0    C xyz ppbv     * - 1 1\n* TES_CLIM_CFC11 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CFC11           2000/1/1/0    C xyz ppbv     * - 1 1\n* TES_CLIM_CFC12 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CFC12           2000/1/1/0    C xyz ppbv     * - 1 1\n* TES_CLIM_CFC22 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CFC22           2000/1/1/0    C xyz ppbv     * - 1 1\n* TES_CLIM_CH4   $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      CH4             2000/1/1/0    C xyz ppbv     * - 1 1\n* TES_CLIM_N2O   $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc      N2O             2000/1/1/0    C xyz ppbv     * - 1 1\n)))RRTMG\n\n(((SfcVMR\n#==============================================================================\n# --- CMIP6 files ---\n#\n# Use core CMIP6 observationally constrained data from Meinshausen et al. (2017) GMD\n#==============================================================================\n* SfcVMR_CH3Cl  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Cl  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH2Cl2 $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH2Cl2 1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CHCl3  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CHCl3  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n* SfcVMR_CH3Br  $ROOT/CMIP6/v2020-03/2x2.5/CMIP6_GHG_surface_VMR_$YYYY.2x25.nc CH3Br  1750-2014/1-12/1/0 C xy ppbv * 801 1 1\n\n#==============================================================================\n# --- WMO-2018 files (GMI) ---\n#==============================================================================\n* SfcVMR_CCl4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CCl4        1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC113   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC113      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC114   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC114      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC115   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC115      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC11    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC11       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CFC12    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CFC12       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Br   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Br       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_CH3CCl3  $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3CCl3     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH3Cl   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH3Cl       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n#* SfcVMR_CH4     $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc CH4         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1211    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1211       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H1301    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc H1301       1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_H2402    $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc C2BR2F4     1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC141b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC141b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC142b $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC142b    1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_HCFC22   $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc HCFC22      1960-2100/1-12/1/0 C xy v/v * 802 1 1\n* SfcVMR_N2O      $ROOT/SfcFix/v2019-12/WMO_2018/2x2.5/surface_VMRs_WMO2018_$YYYY.2x25.nc N2O         1960-2100/1-12/1/0 C xy v/v * 802 1 1\n\n#==============================================================================\n# --- Dummy files with a single surface concentration (for OCS and H2) ---\n#==============================================================================\n* SfcVMR_OCS  $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS 1985/1/1/0  C xy ppbv * - 1 1\n* SfcVMR_H2   $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2  1985/1/1/0  C xy ppbv * - 1 1\n)))SfcVMR\n\n(((CMIP6_SFC_BC\n\n#==============================================================================\n# --- CMIP6 surface boundary conditions for 1750-2100                       ---\n#==============================================================================\n\n# Commented-out tracers do not exist in GEOS-Chem yet\n# * SfcVMR_C2F6       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C2F6          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C3F8       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C3F8          1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C4F10      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C4F10         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C5F12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C5F12         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C6F14      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C6F14         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C7F16      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C7F16         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_C8F18      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   C8F18         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_CC4F8      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CC4F8         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CCl4       $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CCl4          1750-2100/1-12/1/0 RY xy v/v CCl4     802 1 1\n# * SfcVMR_CF4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CF4           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_CFC11      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC11         1750-2100/1-12/1/0 RY xy v/v CFC11    802 1 1\n*   SfcVMR_CFC113     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC113        1750-2100/1-12/1/0 RY xy v/v CFC113   802 1 1\n*   SfcVMR_CFC114     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC114        1750-2100/1-12/1/0 RY xy v/v CFC114   802 1 1\n*   SfcVMR_CFC115     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC115        1750-2100/1-12/1/0 RY xy v/v CFC115   802 1 1\n*   SfcVMR_CFC12      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CFC12         1750-2100/1-12/1/0 RY xy v/v CFC12    802 1 1\n*   SfcVMR_CH2Cl2     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH2Cl2        1750-2100/1-12/1/0 RY xy v/v CH2Cl2   802 1 1\n*   SfcVMR_CH3Br      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Br         1750-2100/1-12/1/0 RY xy v/v CH3Br    802 1 1\n*   SfcVMR_CH3CCl3    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3CCl3       1750-2100/1-12/1/0 RY xy v/v CH3CCl3  802 1 1\n*   SfcVMR_CH3Cl      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH3Cl         1750-2100/1-12/1/0 RY xy v/v CH3Cl    802 1 1\n*   SfcVMR_CH4        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CH4           1750-2100/1-12/1/0 RY xy v/v CH4      802 1 1\n*   SfcVMR_CHCl3      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CHCl3         1750-2100/1-12/1/0 RY xy v/v CHCl3    802 1 1\n# * SfcVMR_CO2        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   CO2           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_H1211      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1211         1750-2100/1-12/1/0 RY xy v/v H1211    802 1 1\n*   SfcVMR_H1301      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H1301         1750-2100/1-12/1/0 RY xy v/v H1301    802 1 1\n*   SfcVMR_H2402      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   H2402         1750-2100/1-12/1/0 RY xy v/v H2402    802 1 1\n#   SFC_BC_HCFC123 <- exists in UCX with lifetime of 2 years but has no surface boundary conditions; 200-600 pptv in https://doi.org/10.1021/es802308m\n*   SfcVMR_HCFC141b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC141b      1750-2100/1-12/1/0 RY xy v/v HCFC141b 802 1 1\n*   SfcVMR_HCFC142b   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC142b      1750-2100/1-12/1/0 RY xy v/v HCFC142b 802 1 1\n*   SfcVMR_HCFC22     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HCFC22        1750-2100/1-12/1/0 RY xy v/v HCFC22   802 1 1\n# * SfcVMR_HFC125     $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC125        1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC134a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC134a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC143a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC143a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC152a    $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC152a       1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC227ea   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC227ea      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC23      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC23         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC236fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC236fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC245fa   $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC245fa      1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC32      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC32         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC365mfc  $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC365mfc     1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_HFC4310mee $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   HFC4310mee    1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n*   SfcVMR_N2O        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   N2O           1750-2100/1-12/1/0 RY xy v/v N2O      802 1 1\n# * SfcVMR_NF3        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   NF3           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SF6        $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SF6           1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n# * SfcVMR_SO2F2      $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_BC_$YYYY.nc4   SO2F2         1750-2100/1-12/1/0 RY xy v/v *        802 1 1\n\n#==============================================================================\n# -- Not part of CMIP6 experimental design; use GEOS-Chem defaults\n#==============================================================================\n* SfcVMR_OCS          $ROOT/SfcFix/v2019-12/surface_VMR_OCS.2x25.nc OCS           1985/1/1/0          C xy ppbv *         - 1 1\n* SfcVMR_H2           $ROOT/SfcFix/v2019-12/surface_VMR_H2.2x25.nc  H2            1985/1/1/0          C xy ppbv *         - 1 1\n\n)))CMIP6_SFC_BC\n\n#==============================================================================\n# --- Oceanic ozone deposition ---\n#\n# Sea surface iodide concentration and salinity to be read in for the\n# new calculations for ozone deposition to the ocean\n#==============================================================================\n(((OCEAN_O3_DRYDEP\n* surf_salinity   $ROOT/OCEAN_O3_DRYDEP/v2020-02/WOA_2013_salinity.nc                                                s_mn                   1985/1/1/0    C xy 1 * - 1 1\n* surf_iodide     $ROOT/OCEAN_O3_DRYDEP/v2020-02/Oi_prj_predicted_iodide_0.125x0.125_No_Skagerrak_Just_Ensemble.nc   Ensemble_Monthly_mean  1970/1-12/1/0 C xy 1 * - 1 1\n)))OCEAN_O3_DRYDEP\n\n### END SECTION BASE EMISSIONS ###\n\n###############################################################################\n### BEGIN SECTION SCALE FACTORS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper\n\n(((EMISSIONS\n\n#==============================================================================\n# --- Annual scale factors ---\n#==============================================================================\n(((XIAO_C3H8\n6  LIQFUEL_THISYR    $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985-2010/1/1/0 C xy 1  1\n7  LIQFUEL_1985      $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar  1985/1/1/0      C xy 1 -1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Diurnal scale factors ---\n#==============================================================================\n25 EDGAR_TODNOX $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless 1\n26 GEIA_TOD_FOSSIL 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless 1\n\n#==============================================================================\n# Diurnal variablity of Chinese power plants from Liu et al. (EST, 2019)\n#==============================================================================\n33 PKU_pow_NOx              0.94/0.93/0.93/0.92/0.93/0.96/0.98/0.99/0.98/1.00/1.05/1.03/1.01/1.04/1.05/1.05/1.07/1.06/1.05/1.05/1.03/1.01/0.99/0.96 - - - xy unitless 1 1009\n34 PKU_pow_SO2              0.92/0.91/0.90/0.89/0.90/0.93/0.97/0.98/0.99/1.02/1.07/1.04/1.03/1.06/1.06/1.07/1.10/1.10/1.06/1.05/1.03/1.01/0.99/0.93 - - - xy unitless 1 1009\n35 PKU_pow_PM_BC_POC_VOC_CO 0.95/0.93/0.92/0.91/0.90/0.93/0.97/0.97/0.99/1.03/1.04/1.03/1.02/1.03/1.05/1.07/1.07/1.07/1.06/1.04/1.03/1.02/1.00/0.97 - - - xy unitless 1 1009\n\n# These scale factors undo (Oper=-1) the global diurnal scale factors over China (Mask=1009)\n36 EDGAR_TODNOX_UNDO $ROOT/EDGARv42/v2015-02/NO/EDGAR_hourly_NOxScal.nc NOXscale 2000/1/1/* C xy unitless -1 1009\n37 GEIA_TOD_FOSSIL_UNDO 0.45/0.45/0.6/0.6/0.6/0.6/1.45/1.45/1.45/1.45/1.4/1.4/1.4/1.4/1.45/1.45/1.45/1.45/0.65/0.65/0.65/0.65/0.45/0.45 - - - xy unitless -1 1009\n\n#==============================================================================\n# --- Day-of-week scale factors ---\n# ==> data is Sun/Mon/.../Sat\n#==============================================================================\n(((XIAO_C3H8\n22 GEIA_DOW_HC  0.671/1.1102/1.1102/1.1102/1.1102/1.1102/0.768 - - - xy unitless 1\n)))XIAO_C3H8\n\n#==============================================================================\n# --- Seasonal scale factors ---\n#==============================================================================\n(((DICE_Africa\n# from GEIA:\n30 GEIA_SEASON_NOX  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc NOXrat 1985/1-12/1/0 C xy unitless 1\n31 GEIA_SEASON_SO2  $ROOT/GEIA/v2014-07/GEIA_monthscal.generic.1x1.nc SO2rat 1985/1-12/1/0 C xy unitless 1\n)))DICE_Africa\n\n#==============================================================================\n# --- For Bromocarbons ---\n#==============================================================================\n(((LIANG_BROMOCARB\n39 BROMOCARB_SEASON $ROOT/BROMINE/v2015-02/BromoCarb_Season.nc CHXBRY_scale 2000/1-12/1/0 C xy unitless 1\n)))LIANG_BROMOCARB\n\n#==============================================================================\n# --- Scale factors used for species conversions ---\n#==============================================================================\n\n# Units carbon to species conversions\n# Factor = # carbon atoms * MW carbon) / MW species\n40 CtoACET MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n41 CtoALD2 MATH:44.06/(2.0*12.0)   - - - xy unitless 1\n42 CtoALK4 MATH:58.12/(4.3*12.0)   - - - xy unitless 1\n43 CtoBENZ MATH:78.12/(6.0*12.0)   - - - xy unitless 1\n44 CtoC2H4 MATH:28.05/(2.0*12.0)   - - - xy unitless 1\n45 CtoC2H6 MATH:30.08/(2.0*12.0)   - - - xy unitless 1\n46 CtoC3H8 MATH:44.11/(3.0*12.0)   - - - xy unitless 1\n47 CtoEOH  MATH:46.07/(2.0*12.0)   - - - xy unitless 1\n48 CtoMEK  MATH:72.11/(4.0*12.0)   - - - xy unitless 1\n49 CtoPRPE MATH:42.09/(3.0*12.0)   - - - xy unitless 1\n55 CtoTOLU MATH:92.15/(7.0*12.0)   - - - xy unitless 1\n56 CtoXYLE MATH:106.18/(8.0*12.0)  - - - xy unitless 1\n59 CtoC2H2 MATH:26.04/(2.0*12.0)   - - - xy unitless 1\n61 CtoISOP MATH:68.13/(5.0*12.0)   - - - xy unitless 1\n62 CtoMTPA MATH:136.26/(10.0*12.0) - - - xy unitless 1\n64 CtoMBOX MATH:86.13/(5.0*12.0)   - - - xy unitless 1\n67 CtoSESQ MATH:204.4/(15.0*12.0)  - - - xy unitless 1\n83 CtoMACR MATH:70.10/(4.0*12.0)   - - - xy unitless 1\n84 CtoRCHO MATH:58.09/(3.0*12.0)   - - - xy unitless 1\n\n# VOC speciations\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n50 KET2MEK    0.25  - - - xy unitless 1\n51 KET2ACET   0.75  - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n(((APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n52 COPROD_FOSSIL    1.02  - - - xy unitless 1\n54 COPROD_BIOMASS   1.05  - - - xy unitless 1\n)))APEI.or.EDGARv43.or.DICE_Africa.or.QFED2\n\n# RCP acids to HCOOH conversion\n(((RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n57 RCP_HCOOHfraction 0.25     - - - xy unitless 1\n58 RCP_ACIDStoHCOOH  0.779661 - - - xy unitless 1\n)))RCP_3PD.or.RCP_45.or.RCP_60.or.RCP_85\n\n# SOx to SO2 conversion (Chin et al., 2000)\n60 SOX2SO2_GLOBAL 0.986  - - - xy unitless 1\n63 SO2toSO4       0.031  - - - xy unitless 1\n65 SO2toSO4_APEI  0.014  - - - xy unitless 1\n66 SO2toPFe       1.0e-3 - - - xy unitless 1\n68 SO2toPFe_APEI  4.7e-4 - - - xy unitless 1\n69 SO2toPFe_NEI   1.0e-3 - - - xy unitless 1\n78 SO2FRAC        0.969  - - - xy unitless 1\n\n# Carbon aerosols: speciation of hydrophilic and hydrophobic fractions\n# (Fractions applied to the biomass burning extensions (GFED or FINN) are\n#  specified separately in the extensions section.)\n70 BC2BCPI  0.2  - - - xy unitless 1\n71 BC2BCPO  0.8  - - - xy unitless 1\n72 OC2OCPI  0.5  - - - xy unitless 1\n73 OC2OCPO  0.5  - - - xy unitless 1\n74 POGSCAL  1.27 - - - xy unitless 1\n76 SV2POG1  0.49 - - - xy unitless 1\n77 SV2POG2  0.51 - - - xy unitless 1\n\n(((BB4MIPS\n# Convert MOH to ACET emissions for CMIP6 Scenarios\n79 MOH2ACET 0.2094649 - - - xy unitless 1\n)))BB4MIPS\n\n# Convert CEDS total alchohols to methanol, ethanol, and other alcohols following Chen et al. (2019, ACP)\n90 VOC1toMOH 0.5   - - - xy 1 1\n91 VOC1toEOH 0.375 - - - xy 1 1\n92 VOC1toROH 0.125 - - - xy 1 1\n\n# NOx/NO2 to NO conversion\n115 NO2toNO  6.521739e-1 - -  - xy unitless 1\n\n# SOA-Precursor scale factors\n#\n# From Kim, P.S., et. al. 2015 \"Sources, seasonality, and trends\n# of southeast US aerosol: ...\"\n#   AVOCs and BBVOCs are emitted in proportion to CO, with an emission ratio of\n#     0.069 g AVOC (g CO)−1 (Hayes et al., 2015) and\n#     0.013 g BBVOC (g CO)−1 (Cubison et al., 2011).\n#   They are both oxidized by OH in the model ... to generate SOA.\n280 COtoSOAP_anth 0.069 - - - xy 1 1\n281 COtoSOAP_burn 0.013 - - - xy 1 1\n\n#==============================================================================\n# --- Diurnal scale factors for biomass burning ---\n#\n# Fire diurnal scaling factors (% per hour) from WRAP Report to Project\n# No. 178-6, July 2005\n#==============================================================================\n75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1\n\n#==============================================================================\n# --- NAP scale factors ---\n#\n# Get anthropogenic (FF) NAP emissions by scaling BENZ emissions with the\n# following factor. Factor is ratio of TgC NAP to TgC BENZ emissions\n# or equivalently, molec C NAP to molec C BENZ. Scaling should produce\n# about 0.09 TgC NAP/year, consistent with non-BB,BF emissions predicted\n# by Zhang and Tao 2009 Atm Env\n# Based on year 2000 1x1 inv  (hotp 11/14/09)\n#REAL*8, PARAMETER    :: NAPTOBENZSCALE = 0.06861d0\n\n# NAPTOTSCAL: factor to scale total NAP emissions to POA (hotp 7/24/09)\n#REAL*8, PARAMETER    :: NAPTOTALSCALE = 66.09027d0\n\n# = CO emissions * emissions ratio of mol NAP / mol CO\n# * kg C / mol NAP * mol CO / kg CO\n# mmol NAP / mol CO = 0.025 g NAP/ kg DM /\n#              ( 78 g CO/ kg DM ) * 28 g CO / mol CO\n#            / ( 128 g NAP / mol NAP ) *1000 mmol/mol\n# scale emissions down if appropriate to remove the\n# effect of VOC ox on CO emission\n# EF for NAP from Andreae and Merlet 2001 Glob Biog Cyc\n# EF for CO  from Andreae and Merlet 2001 Glob Biog Cyc\n#BIOFUEL_KG(N,:,:) = BIOFUEL_KG(IDBFCO,:,:) * 0.0701d-3\n#                  * 120d0 / 28d0 * COSCALEDOWN\n#==============================================================================\n(((EDGARv43\n80 NAPEMISS   1.0     - - - xy unitless 1\n81 NAPTOTSCAL 66.09   - - - xy unitless 1\n82 BENZTONAP  6.86e-2 - - - xy unitless 1\n)))EDGARv43\n\n#==============================================================================\n# --- BIOGENIC EMISSIONS FROM DRY LEAF MATTER ---\n#\n# Use yield of 40ug/dDW.\n# Assume organic matter has molecular formula CH2O (MW 30.03), which\n#  means 0.4 gC / g plant\n# ALD2 MW = 44.05 g/mole ==> 0.55 gC/g ALD2\n#  Therefore 40ug (ALD2) / g (plant) ==> 55 ug C in ALD2 / gC plant\n# EOH MW = 46 g/mole ==> 0.52 gC/g EOH\n#  Therefore 40ug (EOH)  / g (plant) ==> 52 ug C in EOH  / gC plant\n#==============================================================================\n(((DECAYING_PLANTS\n85 YIELD_RESP_ALD2 55.0e-6 - - - xy unitless 1\n86 YIELD_RESP_EOH  52.0e-6 - - - xy unitless 1\n)))DECAYING_PLANTS\n\n#==============================================================================\n# --- AEIC2019 aircraft emissions scale factors ---\n#\n# See http://geoschemdata.wustl.edu/ExtData/HEMCO/AEIC2019/v2022-03/AEIC_2019_technical_note.pdf\n#==============================================================================\n(((AEIC2019_DAILY.or.AEIC2019_MONMEAN\n# Conversions from AEIC2019 inventory quantities to individual species\n101 AEICACET 3.693477e-3 - - - xy unitless 1\n102 AEICALD2 4.271822e-2 - - - xy unitless 1\n103 AEICALK4 2.137911e-1 - - - xy unitless 1\n104 AEICC2H6 5.214505e-3 - - - xy unitless 1\n105 AEICC3H8 7.808710e-4 - - - xy unitless 1\n106 AEICCH2O 1.230811e-1 - - - xy unitless 1\n107 AEICPRPE 1.780418e-1 - - - xy unitless 1\n108 AEICMACR 5.362609e-2 - - - xy unitless 1\n109 AEICRCHO 3.676944e-2 - - - xy unitless 1\n111 AEICSO2  1.176000e-3 - - - xy unitless 1\n112 AEICSO4  3.600000e-5 - - - xy unitless 1\n113 AEICBC   3.000000e-5 - - - xy unitless 1\n114 AEICHC   1.160000e+0 - - - xy unitless 1\n120 FB2H2O   1.231000e+0 - - - xy unitless 1\n\n#------------------------------------------------------------------------------\n# Scaling factors for 1990-2019 derived from Lee et al. (2021).  Increase\n# from 2018 to 2019 is estimated based on the growth from 2017 to 2018.\n# Lee et al. (2021) only covers 1990 to 2018, so to get to 2019 it is\n# assumed that the growth from 2017 to 2018 is the same as that from 2018\n# to 2019. So the formula is something like:\n#\n# Emissions of CO  in 2009 = AEIC 2019 emissions of CO\n#                          * (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          * (Lee 2009 fuel burn / Lee 2018 fuel burn)\n#\n# So in this case, we use the Lee 2017/Lee 2018 value to scale AEIC’s\n# emissions to the “2018” values, and then scale directly using the Lee et al\n# fuel burn. This ensures that, when running with year 2019, you get an\n# unadjusted version of the AEIC2019 inventory, and all previous years are\n# scaled down. For NOx, the same procedure is applied but with an additional\n# factor to account for changes in NOx EI:\n#\n# Emissions of NOx in 2009 = [ AEIC 2019 emissions of NOx\n#                          *   (Lee 2017 CO        / Lee 2018 fuel burn)\n#                          *   (Lee 2009 fuel burn / Lee 2018 fuel burn) ]\n#                          * [ (Lee 2017 NOx EI    / Lee 2018 NOx EI)\n#                          *   (Lee 2009 NOx EI    / Lee 2018 NOx EI)    ]\n#\n# In this case though the Lee et al 2018 and 2017 NOx EIs are identical.\n# All scaling factors are included in here in HEMCO_Config.rc.\n#------------------------------------------------------------------------------\n(((AEIC_SCALE_1990_2019\n240 AC_EINOX   0.852/0.852/0.852/0.859/0.866/0.873/0.881/0.888/0.896/0.903/0.911/0.916/0.922/0.927/0.932/0.937/0.950/0.962/0.974/0.987/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000/1.000 - 1990-2019/1/1/0 C xy 1 1\n241 AC_FBMULT  0.506/0.489/0.490/0.493/0.517/0.529/0.553/0.570/0.581/0.600/0.631/0.607/0.608/0.608/0.646/0.678/0.686/0.706/0.703/0.666/0.700/0.721/0.728/0.749/0.773/0.815/0.854/0.905/0.952/1.000 - 1990-2019/1/1/0 C xy 1 1\n)))AEIC_SCALE_1990_2019\n\n# If not applying 1990-2019 scale factors, use 1.0\n(((.not.AEIC_SCALE_1990_2019\n240 AC_EINOX  1.000000e+0 - -  - xy 1 1\n241 AC_FBMULT 1.000000e+0 - -  - xy 1 1\n))).not.AEIC_SCALE_1990_2019\n)))AEIC2019_DAILY.or.AEIC2019_MONMEAN\n\n(((CMIP6_AIRCRAFT\n# Conversions for SO2 to HCs taken from AEIC\n601 CMIP6_SO2_TO_ACET 3.140712 - -  - xy unitless 1\n602 CMIP6_SO2_TO_ALD2 36.32502 - -  - xy unitless 1\n603 CMIP6_SO2_TO_ALK4 181.7952 - -  - xy unitless 1\n604 CMIP6_SO2_TO_C2H6 4.434103 - -  - xy unitless 1\n605 CMIP6_SO2_TO_C3H8 0.664006 - -  - xy unitless 1\n606 CMIP6_SO2_TO_CH2O 104.6608 - -  - xy unitless 1\n607 CMIP6_SO2_TO_PRPE 151.3961 - -  - xy unitless 1\n608 CMIP6_SO2_TO_MACR 45.60042 - -  - xy unitless 1\n609 CMIP6_SO2_TO_RCHO 31.26653 - -  - xy unitless 1\n)))CMIP6_AIRCRAFT\n\n#==============================================================================\n# --- EPA NEI day-of-week scale factors ---\n#==============================================================================\n(((NEI2016_MONMEAN\n210 NEI99_DOW_NOX   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc NOX  1999/1-12/WD/0 C xy 1 1\n211 NEI99_DOW_CO    $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc CO   1999/1-12/WD/0 C xy 1 1\n212 NEI99_DOW_ALK4  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ALK4 1999/1-12/WD/0 C xy 1 1\n213 NEI99_DOW_ACET  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc ACET 1999/1-12/WD/0 C xy 1 1\n214 NEI99_DOW_MEK   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MEK  1999/1-12/WD/0 C xy 1 1\n215 NEI99_DOW_PRPE  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc PRPE 1999/1-12/WD/0 C xy 1 1\n216 NEI99_DOW_C3H8  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C3H8 1999/1-12/WD/0 C xy 1 1\n217 NEI99_DOW_C2H6  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc C2H6 1999/1-12/WD/0 C xy 1 1\n218 NEI99_DOW_SO2   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO2  1999/1-12/WD/0 C xy 1 1\n219 NEI99_DOW_SO4   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc SO4  1999/1-12/WD/0 C xy 1 1\n220 NEI99_DOW_MSA   $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc MSA  1999/1-12/WD/0 C xy 1 1\n221 NEI99_DOW_BCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc BCPI 1999/1-12/WD/0 C xy 1 1\n222 NEI99_DOW_OCPI  $ROOT/NEI2005/v2023-02/NEI99.dow.geos.1x1.corrected.012023.nc OCPI 1999/1-12/WD/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- EPA NEI2016 annual scale factors ---\n#\n# Annual scale factors were computed from the EPA Trends Report for Tier 1 CAPS\n# (obtained 21 Sep 2021) using the \"Total without wildfires\" field. NH3 and\n# PM2.5 only had values for 2002-2020, while the remaining species had yearly\n# values for 1990-2020 (we include only 2002-2020 here).\n#\n# See NEI2016/v2021-06/national_tier1_caps+HEMCOscaling.xlsx for details.\n#==============================================================================\n(((NEI2016_MONMEAN\n251 NEI2016_NOx_YRSCALE  2.341/2.213/2.083/1.989/1.879/1.768/1.651/1.539/1.448/1.407/1.345/1.282/1.224/1.135/1.000/0.943/0.895/0.840/0.785 - 2002-2020/1/1/0 C xy 1 1\n252 NEI2016_CO_YRSCALE   1.817/1.767/1.716/1.666/1.610/1.554/1.393/1.251/1.272/1.261/1.220/1.178/1.137/1.095/1.000/0.973/0.950/0.927/0.904 - 2002-2020/1/1/0 C xy 1 1\n253 NEI2016_NH3_YRSCALE  0.996/0.999/1.002/1.005/1.043/1.082/1.100/1.088/1.077/1.012/0.957/0.954/0.899/0.950/1.000/1.052/1.051/1.050/1.049 - 2002-2020/1/1/0 C xy 1 1\n254 NEI2016_VOC_YRSCALE  1.314/1.285/1.255/1.223/1.234/1.246/1.148/1.135/1.154/1.175/1.153/1.131/1.110/1.067/1.000/0.970/0.956/0.941/0.926 - 2002-2020/1/1/0 C xy 1 1\n255 NEI2016_SO2_YRSCALE  4.773/4.701/4.626/4.625/4.171/3.717/3.273/2.879/2.446/2.038/1.591/1.525/1.469/1.237/1.000/0.767/0.735/0.641/0.583 - 2002-2020/1/1/0 C xy 1 1\n256 NEI2016_PM25_YRSCALE 1.120/1.140/1.159/1.178/1.213/1.248/1.202/1.195/1.190/1.192/1.153/1.115/1.077/1.040/1.000/0.964/0.961/0.958/0.955 - 2002-2020/1/1/0 C xy 1 1\n)))NEI2016_MONMEAN\n\n#==============================================================================\n# --- GFAS scale factors ---\n#==============================================================================\n(((GFAS\n300 GFAS_EMITL $ROOT/GFAS/v2018-09/$YYYY/GFAS_$YYYY$MM.nc mami 2003-2021/1-12/1-31/0 C xy m 1\n)))GFAS\n\n#==============================================================================\n# --- QFED vertical partitioning ---\n# Following Fischer et al. (2014) and Travis et al. (2016), emit 35% of QFED\n# emissions above the PBL.\n#==============================================================================\n(((QFED2\n311 QFED_PBL_FRAC 0.65 - - - xy 1 1\n312 QFED_FT_FRAC  0.35 - - - xy 1 1\n)))QFED2\n\n#==============================================================================\n# --- CEDS vertical partitioning ---\n#==============================================================================\n(((CEDSv2.or.CEDS_GBDMAPS\n315 ENERGY_LEVS   $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_energy   2017/1/1/0 C xyz 1 1\n316 INDUSTRY_LEVS $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc g_industry 2017/1/1/0 C xyz 1 1\n317 SHIP_LEVS     $ROOT/VerticalScaleFactors/v2021-05/gc_layers.nc cmv_c3     2017/1/1/0 C xyz 1 1\n)))CEDSv2.or.CEDS_GBDMAPS\n\n#==============================================================================\n# --- DICE-Africa ---\n#==============================================================================\n(((DICE_Africa\n# Charcoal production scale factor to reduce charcoal production\n# by a factor of 5 after finding error in implementation of emission factors.\n320 DICE_CP_SF    0.20 - - - xy 1 1\n\n# Car emissions of OCPI and OCPO scale factor to address a factor of 7 overestimate\n# in car OC emissions that results from incorrect emission factors used in the original inventory\n330 DICE_CAR_OC_SF    0.14 - - - xy 1 1\n)))DICE_Africa\n\n#==============================================================================\n# --- Offline biogenic VOC scale factors ---\n#\n# Isoprene      : 1.5% mass yield SOAP, 1.5% mass yield SOAS\n# Monoterpenes  : 5.0% mass yield SOAP, 5.0% mass yield SOAS\n# Other terpenes: 5.0% mass yield SOAP, 5.0% mass yield SOAS\n#  --> Need to multiply by 1.133 to convert from carbon basis to mass basis\n#==============================================================================\n(((OFFLINE_BIOGENICVOC\n610 ISOPtoSOA 0.0170 - - - xy 1 1\n611 MONOtoSOA 0.0567 - - - xy 1 1\n612 OTHRtoSOA 0.0567 - - - xy 1 1\n)))OFFLINE_BIOGENICVOC\n\n#==============================================================================\n# --- Offline sea salt scale factors ---\n#\n# NOTES:\n# - Sea salt alkalinity and chloride values obtained from hcox_seasalt_mod.F90\n# - BrContent obtained from '--> Br- mass ratio' in SeaSalt extension above\n#==============================================================================\n(((OFFLINE_SEASALT\n615 SSAlkalinity 1.0     - - - xy 1 1\n616 SSChloride   0.5504  - - - xy 1 1\n617 BrContent    2.11e-3 - - - xy 1 1\n)))OFFLINE_SEASALT\n\n)))EMISSIONS\n\n#==============================================================================\n# Scale the CMIP6 values in pptv to ppbv\n#==============================================================================\n801 pptv2ppbv  0.001      - - - xy 1 1\n802 vv2ppbv    1000000000 - - - xy 1 1\n\n#==============================================================================\n# --- EDGAR 4.3.1 ---\n# Using data of 2010, the calculated seasonal ratio for different species in the\n# same sector are nearly identical, possibly due to consistent activity data used.\n# Therefore we use the seasonal scale factors of CO in 2010 for most sectors,\n# except for AGR, AWB and SOL.\n# For AGR, the NH3 AGR seasonal scale factors are used.\n# For AWB, the CO AGR seasonal scale factors are used.\n# For SOL, the NOx AGR seasonal scale factors are used.\n#==============================================================================\n(((EDGARv43.or.DICE_Africa\n1201 POW $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc POW 2010/1-12/1/0 C xy unitless 1\n1202 ENG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc ENG 2010/1-12/1/0 C xy unitless 1\n1203 IND $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc IND 2010/1-12/1/0 C xy unitless 1\n1204 TRO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TRO 2010/1-12/1/0 C xy unitless 1\n1205 TNG $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc TNG 2010/1-12/1/0 C xy unitless 1\n1206 RCO $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc RCO 2010/1-12/1/0 C xy unitless 1\n1207 PPA $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc PPA 2010/1-12/1/0 C xy unitless 1\n1208 AGR $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AGR 2010/1-12/1/0 C xy unitless 1\n1209 AWB $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc AWB 2010/1-12/1/0 C xy unitless 1\n1210 SOL $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SOL 2010/1-12/1/0 C xy unitless 1\n1211 SWD $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc SWD 2010/1-12/1/0 C xy unitless 1\n1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1\n)))EDGARv43.or.DICE_Africa\n\n(((CEDSv2\n#=========================================================================\n# --- Sector-wise diel scale factors for CEDSv2 ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1\n2406 TOD_ENERGY      0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1\n2407 TOD_INDUSTRY    0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1\n2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1\n2411 TOD_TRANSPORT   0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1\n\n#=========================================================================\n# --- Sector-wise day-of-week scale factors for CEDSv2 ---\n# These scale factors could potentially be used for other global base emissions if modified accordingly.\n#=========================================================================\n706 DOW_ENERGY      0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1\n707 DOW_INDUSTRY    0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1\n711 DOW_TRANSPORT   0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1\n)))CEDSv2\n\n### END SECTION SCALE FACTORS ###\n\n###############################################################################\n### BEGIN SECTION MASKS\n###############################################################################\n\n# ScalID Name sourceFile sourceVar sourceTime C/R/E SrcDim SrcUnit Oper Lon1/Lat1/Lon2/Lat2\n\n(((EMISSIONS\n\n#==============================================================================\n# Country/region masks\n#==============================================================================\n(((APEI\n1002 CANADA_MASK $ROOT/MASKS/v2018-09/Canada_mask.geos.1x1.nc                  MASK     2000/1/1/0 C xy 1 1 -141/40/-52/85\n)))APEI\n\n(((NEI2016_MONMEAN\n1007 CONUS_MASK  $ROOT/MASKS/v2018-09/CONUS_Mask.01x01.nc                      MASK     2000/1/1/0 C xy 1 1 -140/20/-50/60\n)))NEI2016_MONMEAN\n\n(((DICE_Africa\n1008 AFRICA_MASK $ROOT/MASKS/v2018-09/AF_LANDMASK.geos.05x0666.global.nc       LANDMASK 1985/1/1/0 C xy 1 1 -20/-37/54/40\n)))DICE_Africa\n\n1009 CHINA_MASK  $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  70/10/150/60\n\n(((AFCID\n1010 INDIA_MASK  $ROOT/MASKS/v2019-05/India_mask.generic.1x1.nc                MASK     2000/1/1/0 C xy 1 1  67/7/99/39\n)))AFCID\n\n)))EMISSIONS\n\n### END SECTION MASKS ###\n\n### END OF HEMCO INPUT FILE ###\n#EOC\n"
  },
  {
    "path": "run/WRF/fullchem/HEMCO_Diagn.rc",
    "content": "#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: HEMCO_Diagn.rc\n#\n# !DESCRIPTION: Configuration file for netCDF diagnostic output from HEMCO.\n#\\\\\n#\\\\\n# !REMARKS:\n#  For more information about scheduling HEMCO diagnostics, see:\n#  http://wiki.geos-chem.org/The_HEMCO_User%27s_Guide#Diagnostics\n#\n#  For a list of species by inventory, please see:\n#  http://wiki.geos-chem.org/HEMCO_data_directories#Default_GEOS-Chem_emissions_configurations\n#\n#  All diagnostics will now be saved out in units of kg/m2/s.  If necessary,\n#  you can convert hydrocarbon species to e.g. kg C/m2/s in post-processing.\n#\n#  The INVENTORY DIAGNOSTICS (starting with \"Inv\")  are only needed for\n#  benchmark simulations, and can be left commented out for production runs.\n#\n# !REVISION HISTORY:\n#  13 Feb 2018 - E. Lundgren - Initial version\n#  See https://github.com/geoschem/geos-chem for complete history\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n# Name             Spec   ExtNr  Cat Hier Dim OutUnit       LongName\n\n###############################################################################\n#####   ACET emissions                                                    #####\n###############################################################################\nEmisACET_Total      ACET   -1     -1  -1   3   kg/m2/s  ACET_emission_flux_from_all_sectors\nEmisACET_BioBurn    ACET   111    -1  -1   2   kg/m2/s  ACET_emission_flux_from_biomass_burning\nEmisACET_Biogenic   ACET   0      4   -1   2   kg/m2/s  ACET_emission_flux_from_biogenic_sources\nEmisACET_Ocean      ACET   101    -1  -1   2   kg/m2/s  ACET_emission_flux_from_ocean\n\n###############################################################################\n#####  ACR emissions                                                      #####\n###############################################################################\nEmisACR_Total       ACR    -1     -1  -1   3   kg/m2/s  ACR_emission_flux_from_all_sectors\nEmisACR_BioBurn     ACR    111    -1  -1   2   kg/m2/s  ACR_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  ACTA emissions                                                     #####\n###############################################################################\nEmisACTA_Total      ACTA   -1     -1  -1   3   kg/m2/s  ACTA_emission_flux_from_all_sectors\nEmisACTA_BioBurn    ACTA   111    -1  -1   2   kg/m2/s  ACTA_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  ALD2 emissions                                                     #####\n###############################################################################\nEmisALD2_Total      ALD2   -1     -1  -1   3   kg/m2/s  ALD2_emission_flux_from_all_sectors\nEmisALD2_Anthro     ALD2   0      1   -1   3   kg/m2/s  ALD2_emission_flux_from_anthropogenic\nEmisALD2_BioBurn    ALD2   111    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_biomass_burning\nEmisALD2_Biogenic   ALD2   0      4   -1   2   kg/m2/s  ALD2_emission_flux_from_biogenic_sources\nEmisALD2_Ocean      ALD2   101    -1  -1   2   kg/m2/s  ALD2_emission_flux_from_ocean\nEmisALD2_PlantDecay ALD2   0      3   -1   2   kg/m2/s  ALD2_emission_flux_from_decaying_plants\nEmisALD2_Ship       ALD2   0      10  -1   2   kg/m2/s  ALD2_emission_flux_from_ships\n\n###############################################################################\n#####  ALK4 emissions                                                     #####\n###############################################################################\nEmisALK4_Total     ALK4   -1     -1  -1   3   kg/m2/s  ALK4_emission_flux_from_all_sectors\nEmisALK4_Aircraft  ALK4   0      20  -1   3   kg/m2/s  ALK4_emission_flux_from_aircraft\nEmisALK4_Anthro    ALK4   0      1   -1   3   kg/m2/s  ALK4_emission_flux_from_anthropogenic\nEmisALK4_BioBurn   ALK4   111    -1  -1   2   kg/m2/s  ALK4_emission_flux_from_biomass_burning\nEmisALK4_Ship      ALK4   0      10  -1   2   kg/m2/s  ALK4_emission_flux_from_ships\n\n###############################################################################\n#####  ALK6 emissions                                                     #####\n###############################################################################\nEmisALK6_Total     ALK6   -1     -1  -1   3   kg/m2/s  ALK6_emission_flux_from_all_sectors\nEmisALK6_Anthro    ALK6   0      1   -1   3   kg/m2/s  ALK6_emission_flux_from_anthropogenic\nEmisALK6_Ship      ALK6   0      10  -1   2   kg/m2/s  ALK6_emission_flux_from_ships\n\n###############################################################################\n#####  BCPI and BCPO emissions                                            #####\n###############################################################################\nEmisBCPI_Total     BCPI   -1     -1  -1   3   kg/m2/s  BCPI_emission_flux_from_all_sectors\nEmisBCPI_Aircraft  BCPI   0      20  -1   3   kg/m2/s  BCPI_emission_flux_from_aircraft\nEmisBCPI_Anthro    BCPI   0      1   -1   3   kg/m2/s  BCPI_emission_flux_from_anthropogenic\nEmisBCPI_BioBurn   BCPI   111    -1  -1   2   kg/m2/s  BCPI_emission_flux_from_biomass_burning\nEmisBCPI_Ship      BCPI   0      10  -1   2   kg/m2/s  BCPI_emission_flux_from_ships\nEmisBCPO_Total     BCPO   -1     -1  -1   3   kg/m2/s  BCPO_emission_flux_from_all_sectors\nEmisBCPO_Anthro    BCPO   0      1   -1   3   kg/m2/s  BCPO_emission_flux_from_anthropogenic\nEmisBCPO_BioBurn   BCPO   111    -1  -1   2   kg/m2/s  BCPO_emission_flux_from_biomass_burning\nEmisBCPO_Ship      BCPO   0      10  -1   2   kg/m2/s  BCPO_emission_flux_from_ships\n\n###############################################################################\n#####  BENZ emissions                                                     #####\n###############################################################################\nEmisBENZ_Total     BENZ   -1     -1  -1   3   kg/m2/s  BENZ_emission_flux_from_all_sectors\nEmisBENZ_Anthro    BENZ   0      1   -1   3   kg/m2/s  BENZ_emission_flux_from_anthropogenic\nEmisBENZ_BioBurn   BENZ   111    -1  -1   2   kg/m2/s  BENZ_emission_flux_from_biomass_burning\nEmisBENZ_Ship      BENZ   0      10  -1   2   kg/m2/s  BENZ_emission_flux_from_ships\n\n###############################################################################\n#####  C2H2 emissions                                                    ######\n###############################################################################\nEmisC2H2_Total     C2H2   -1     -1  -1   3   kg/m2/s  C2H2_emission_flux_from_all_sectors\nEmisC2H2_Anthro    C2H2   0      1   -1   3   kg/m2/s  C2H2_emission_flux_from_anthropogenic\nEmisC2H2_BioBurn   C2H2   111    -1  -1   2   kg/m2/s  C2H2_emission_flux_from_biomass_burning\nEmisC2H2_Ship      C2H2   0      10  -1   2   kg/m2/s  C2H2_emission_flux_from_ships\n\n###############################################################################\n#####  C2H4 emissions                                                    ######\n###############################################################################\nEmisC2H4_Total     C2H4   -1     -1  -1   3   kg/m2/s  C2H4_emission_flux_from_all_sectors\nEmisC2H4_Anthro    C2H4   0      1   -1   3   kg/m2/s  C2H4_emission_flux_from_anthropogenic\nEmisC2H4_BioBurn   C2H4   111    -1  -1   2   kg/m2/s  C2H4_emission_flux_from_biomass_burning\nEmisC2H4_Biogenic  C2H4   0      4   -1   2   kg/m2/s  C2H4_emission_flux_from_biogenic_sources\nEmisC2H4_Ship      C2H4   0      10  -1   2   kg/m2/s  C2H4_emission_flux_from_ships\n\n###############################################################################\n#####  C2H6 emissions                                                    ######\n###############################################################################\nEmisC2H6_Total     C2H6   -1     -1  -1   3   kg/m2/s  C2H6_emission_flux_from_all_sectors\nEmisC2H6_Aircraft  C2H6   0      20  -1   3   kg/m2/s  C2H6_emission_flux_from_aircraft\nEmisC2H6_Anthro    C2H6   0      1   -1   3   kg/m2/s  C2H6_emission_flux_from_anthropogenic\nEmisC2H6_BioBurn   C2H6   111    -1  -1   2   kg/m2/s  C2H6_emission_flux_from_biomass_burning\nEmisC2H6_Ship      C2H6   0      10  -1   2   kg/m2/s  C2H6_emission_flux_from_ships\n\n###############################################################################\n#####  C3H8 emissions                                                     #####\n###############################################################################\nEmisC3H8_Total     C3H8   -1     -1  -1   3   kg/m2/s  C3H8_emission_flux_from_all_sectors\nEmisC3H8_Aircraft  C3H8   0      20  -1   3   kg/m2/s  C3H8_emission_flux_from_aircraft\nEmisC3H8_Anthro    C3H8   0      1   -1   3   kg/m2/s  C3H8_emission_flux_from_anthropogenic\nEmisC3H8_BioBurn   C3H8   111    -1  -1   2   kg/m2/s  C3H8_emission_flux_from_biomass_burning\nEmisC3H8_Ship      C3H8   0      10  -1   2   kg/m2/s  C3H8_emission_flux_from_ships\n\n###############################################################################\n#####  C4H6 emissions                                                     #####\n###############################################################################\nEmisC4H6_Total     C4H6   -1     -1  -1   3   kg/m2/s  C4H6_emission_flux_from_all_sectors\nEmisC4H6_BioBurn   C4H6   111    -1  -1   2   kg/m2/s  C4H6_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  CH2Br2 emissions                                                   #####\n###############################################################################\nEmisCH2Br2_Ocean   CH2Br2 0      1   -1   2   kg/m2/s  CH2Br2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2I2 emissions                                                   #####\n###############################################################################\nEmisCH2I2_Ocean    CH2I2  0     1    -1   2   kg/m2/s  CH2I2_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2ICl emissions                                                   #####\n###############################################################################\nEmisCH2ICl_Ocean   CH2ICl 0     1    -1   2   kg/m2/s  CH2ICl_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2IBr emissions                                                   #####\n###############################################################################\nEmisCH2IBr_Ocean   CH2IBr 0     1    -1   2   kg/m2/s  CH2IBr_emission_flux_from_ocean\n\n###############################################################################\n#####  CH2O emissions                                                     #####\n###############################################################################\nEmisCH2O_Total     CH2O   -1     -1  -1   3   kg/m2/s  CH2O_emission_flux_from_all_sectors\nEmisCH2O_Aircraft  CH2O   0      20  -1   3   kg/m2/s  CH2O_emission_flux_from_aircraft\nEmisCH2O_Anthro    CH2O   0      1   -1   3   kg/m2/s  CH2O_emission_flux_from_anthropogenic\nEmisCH2O_BioBurn   CH2O   111    -1  -1   2   kg/m2/s  CH2O_emission_flux_from_biomass_burning\nEmisCH2O_Ship      CH2O   0      10  -1   2   kg/m2/s  CH2O_emission_flux_from_ships\n\n###############################################################################\n#####  CH3I emissions                                                   #####\n###############################################################################\nEmisCH3I_Ocean     CH3I   0     1    -1   2   kg/m2/s  CH3I_emission_flux_from_ocean\n\n###############################################################################\n#####  CH4 emissions                                                      #####\n###############################################################################\n# Zero for now, so comment out\n#EmisCH4_Total      CH4    -1     -1  -1   3   kg/m2/s  CH4_emission_flux_from_all_sectors\n#EmisCH4_Anthro     CH4    0      1   -1   3   kg/m2/s  CH4_emission_flux_from_anthropogenic\n#EmisCH4_BioBurn    CH4    0      5   -1   2   kg/m2/s  CH4_emission_flux_from_biomass_burning\n#EmisCH4_Ship       CH4    0      10  -1   2   kg/m2/s  CH4_emission_flux_from_ships\n\n###############################################################################\n#####  CHBr3 emissions                                                    #####\n###############################################################################\nEmisCHBr3_Ocean    CHBr3  0      1   -1   2   kg/m2/s  CHBr3_emission_flux_from_ocean\n\n###############################################################################\n#####  CO emissions                                                       #####\n###############################################################################\nEmisCO_Total       CO     -1     -1  -1   3   kg/m2/s  CO_emission_flux_from_all_sectors\nEmisCO_Aircraft    CO     0      20  -1   3   kg/m2/s  CO_emission_flux_from_aircraft\nEmisCO_Anthro      CO     0      1   -1   3   kg/m2/s  CO_emission_flux_from_anthropogenic\nEmisCO_BioBurn     CO     111    -1  -1   2   kg/m2/s  CO_emission_flux_from_biomass_burning\nEmisCO_Ship        CO     0      10  -1   2   kg/m2/s  CO_emission_flux_from_ships\n\n###############################################################################\n#####  CO2 emissions                                                      #####\n###############################################################################\nEmisCO2_Total      CO2    -1     -1  -1   3   kg/m2/s  CO2_emission_flux_from_all_sectors\nEmisCO2_Anthro     CO2    0      1   -1   3   kg/m2/s  CO2_emission_flux_from_anthropogenic\nEmisCO2_BioBurn    CO2    0      5   -1   2   kg/m2/s  CO2_emission_flux_from_biomass_burning\nEmisCO2_Ship       CO2    0      10  -1   2   kg/m2/s  CO2_emission_flux_from_ships\n\n###############################################################################\n#####  DMS emissions                                                      #####\n###############################################################################\nEmisDMS_Ocean      DMS    101    -1  -1   2   kg/m2/s  DMS_emission_flux_from_ocean\n\n###############################################################################\n#####  Dust emissions                                                     #####\n###############################################################################\n# NOTE: Uncomment EmisDST_Total if you wish to obtain total\n# dust emissions from HEMCO standalone simulations\n#EmisDST_Total         TDST      -1     -1  -1   2   kg/m2/s  Total_dust_emission_flux_from_natural_sources\nEmisDSTbin1_Total     DSTbin1   -1     -1  -1   2   kg/m2/s  DSTbin1_emission_flux_from_all_sectors\nEmisDSTbin1_Anthro    DSTbin1   0      1   -1   2   kg/m2/s  DSTbin1_emission_flux_from_anthropogenic\nEmisDSTbin1_Natural   DSTbin1   125    3   -1   2   kg/m2/s  DSTbin1_emission_flux_from_natural_sources\nEmisDSTbin2_Total     DSTbin2   -1     -1  -1   2   kg/m2/s  DSTbin2_emission_flux_from_all_sectors\nEmisDSTbin2_Anthro    DSTbin2   0      1   -1   2   kg/m2/s  DSTbin2_emission_flux_from_anthropogenic\nEmisDSTbin2_Natural   DSTbin2   125    3   -1   2   kg/m2/s  DSTbin2_emission_flux_from_natural_sources\nEmisDSTbin3_Total     DSTbin3   -1     -1  -1   2   kg/m2/s  DSTbin3_emission_flux_from_all_sectors\nEmisDSTbin3_Anthro    DSTbin3   0      1   -1   2   kg/m2/s  DSTbin3_emission_flux_from_anthropogenic\nEmisDSTbin3_Natural   DSTbin3   125    3   -1   2   kg/m2/s  DSTbin3_emission_flux_from_natural_sources\nEmisDSTbin4_Total     DSTbin4   -1     -1  -1   2   kg/m2/s  DSTbin4_emission_flux_from_all_sectors\nEmisDSTbin4_Anthro    DSTbin4   0      1   -1   2   kg/m2/s  DSTbin4_emission_flux_from_anthropogenic\nEmisDSTbin4_Natural   DSTbin4   125    3   -1   2   kg/m2/s  DSTbin4_emission_flux_from_natural_sources\nEmisDSTbin5_Natural   DSTbin5   125    3   -1   2   kg/m2/s  DSTbin5_emission_flux_from_natural_sources\nEmisDSTbin6_Natural   DSTbin6   125    3   -1   2   kg/m2/s  DSTbin6_emission_flux_from_natural_sources\nEmisDSTbin7_Natural   DSTbin7   125    3   -1   2   kg/m2/s  DSTbin7_emission_flux_from_natural_sources\n\n###############################################################################\n#####  EOH emissions                                                      #####\n###############################################################################\nEmisEOH_Total      EOH    -1     -1  -1   3   kg/m2/s  EOH_emission_flux_from_all_sectors\nEmisEOH_Anthro     EOH    0      1   -1   3   kg/m2/s  EOH_emission_flux_from_anthropogenic\nEmisEOH_BioBurn    EOH    111    -1  -1   2   kg/m2/s  EOH_emission_flux_from_biomass_burning\nEmisEOH_Biogenic   EOH    0      4   -1   2   kg/m2/s  EOH_emission_flux_from_biogenic_sources\nEmisEOH_PlantDecay EOH    0      3   -1   2   kg/m2/s  EOH_emission_flux_from_decaying_plants\nEmisEOH_Ship       EOH    0      10  -1   2   kg/m2/s  EOH_emission_flux_from_ships\n\n###############################################################################\n#####  ETNO3 emissions                                                    #####\n###############################################################################\nEmisETNO3_Ocean    ETNO3  101    -1  -1   2   kg/m2/s  ETNO3_emission_flux_from_ocean\n\n###############################################################################\n#####  FURA emissions                                                      #####\n###############################################################################\nEmisFURA_Total     FURA    -1    -1  -1   3   kg/m2/s  FURA_emission_flux_from_all_sectors\nEmisFURA_BioBurn   FURA   111    -1  -1   2   kg/m2/s  FURA_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  GLYX emissions                                                     #####\n###############################################################################\nEmisGLYX_Total     GLYX   -1     -1  -1   3   kg/m2/s  GLYX_emission_flux_from_all_sectors\nEmisGLYX_BioBurn   GLYX   111    -1  -1   2   kg/m2/s  GLYX_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  H2O emissions                                                      #####\n###############################################################################\nEmisH2O_Aircraft   H2O    0      20  -1   3   kg/m2/s  H2O_emission_flux_from_aircraft\n\n###############################################################################\n#####  HCl emissions                                                      #####\n###############################################################################\nEmisHCl_Total      HCl    0      -1  -1   3   kg/m2/s  HCl_emission_flux_from_all_sectors\nEmisHCl_Anthro     HCl    0      1   -1   3   kg/m2/s  HCl_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  HCOOH sources                                                      #####\n###############################################################################\nEmisHCOOH_Total    HCOOH  -1     -1  -1   3   kg/m2/s  HCOOH_emission_flux_from_all_sectors\nEmisHCOOH_Anthro   HCOOH  0      1   -1   3   kg/m2/s  HCOOH_emission_flux_from_anthropogenic\nEmisHCOOH_BioBurn  HCOOH  111    -1  -1   2   kg/m2/s  HCOOH_emission_flux_from_biomass_burning\nEmisHCOOH_Ship     HCOOH  0      10  -1   2   kg/m2/s  HCOOH_emission_flux_from_ship\n\n###############################################################################\n#####  HNO3 emissions                                                     #####\n###############################################################################\nEmisHNO3_Ship      HNO3   102    -1  -1   2   kg/m2/s  HNO3_emission_flux_from_ships\n\n###############################################################################\n#####  HONO emissions                                                     #####\n###############################################################################\nEmisHONO_Aircraft  HONO   0      20  -1   3   kg/m2/s  HONO_emission_flux_from_aircraft\n\n###############################################################################\n#####  ISOP emissions                                                     #####\n###############################################################################\nEmisISOP_Total     ISOP   -1     -1  -1   3   kg/m2/s  ISOP_emission_flux_from_all_sectors\nEmisISOP_BioBurn   ISOP   111    -1  -1   2   kg/m2/s  ISOP_emission_flux_from_biomass_burning\nEmisISOP_Biogenic  ISOP   0      4   -1   2   kg/m2/s  ISOP_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  LIMO emissions                                                     #####\n###############################################################################\nEmisLIMO_Biogenic  LIMO   0      4   -1   2   kg/m2/s  LIMO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MACR emissions                                                     #####\n###############################################################################\nEmisMACR_Total     MACR   -1     -1  -1   3   kg/m2/s  MACR_emission_flux_from_all_sectors\nEmisMACR_Aircraft  MACR   0      20  -1   3   kg/m2/s  MACR_emission_flux_from_anthropogenic\n\n###############################################################################\n#####  MEK emissions                                                      #####\n###############################################################################\nEmisMEK_Total      MEK    -1     -1  -1   3   kg/m2/s  MEK_emission_flux_from_all_sectors\nEmisMEK_Anthro     MEK    0      1   -1   3   kg/m2/s  MEK_emission_flux_from_anthropogenic\nEmisMEK_BioBurn    MEK    111    -1  -1   2   kg/m2/s  MEK_emission_flux_from_biomass_burning\nEmisMEK_Ship       MEK    0      10  -1   2   kg/m2/s  MEK_emission_flux_from_ships\n\n###############################################################################\n#####  MENO3 emissions                                                    #####\n###############################################################################\nEmisMENO3_Ocean    MENO3  101    -1  -1   2   kg/m2/s  MENO3_emission_flux_from_ocean\n\n###############################################################################\n#####  MGLY emissions                                                     #####\n###############################################################################\nEmisMGLY_Total     MGLY   -1     -1  -1   3   kg/m2/s  MGLY_emission_flux_from_all_sectors\nEmisMGLY_BioBurn   MGLY   111    -1  -1   2   kg/m2/s  MGLY_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  MOH emissions                                                      #####\n###############################################################################\nEmisMOH_Total      MOH    -1     -1  -1   3   kg/m2/s  MOH_emission_flux_from_all_sectors\nEmisMOH_Anthro     MOH    0      1   -1   3   kg/m2/s  MOH_emission_flux_from_anthropogenic\nEmisMOH_BioBurn    MOH    111    -1  -1   2   kg/m2/s  MOH_emission_flux_from_biomass_burning\nEmisMOH_Biogenic   MOH    0      4   -1   2   kg/m2/s  MOH_emission_flux_from_biogenic_sources\nEmisMOH_Ocean      MOH    101    -1  -1   2   kg/m2/s  MOH_emission_flux_from_ocean\nEmisMOH_Ship       MOH    0      10  -1   2   kg/m2/s  MOH_emission_flux_from_ships\n\n###############################################################################\n#####  MTPA emissions                                                     #####\n###############################################################################\nEmisMTPA_Total     MTPA   -1     -1  -1   3   kg/m2/s  MTPA_emission_flux_from_all_sectors\nEmisMTPA_BioBurn   MTPA   111    -1  -1   2   kg/m2/s  MTPA_emission_flux_from_biomass_burning\nEmisMTPA_Biogenic  MTPA   0      4   -1   2   kg/m2/s  MTPA_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MTPO emissions                                                     #####\n###############################################################################\nEmisMTPO_Total     MTPO   -1     -1  -1   3   kg/m2/s  MTPO_emission_flux_from_all_sectors\nEmisMTPO_Biogenic  MTPO   0      4   -1   2   kg/m2/s  MTPO_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  MVK emissions                                                      #####\n###############################################################################\nEmisMVK_Total     MVK    -1     -1  -1   3   kg/m2/s  MVK_emission_flux_from_all_sectors\nEmisMVK_BioBurn   MVK    111    -1  -1   2   kg/m2/s  MVK_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NAP emissions                                                      #####\n###############################################################################\nEmisNAP_Total      NAP    -1     -1  -1   3   kg/m2/s  NAP_emission_flux_from_all_sectors\nEmisNAP_Anthro     NAP    0      1   -1   3   kg/m2/s  NAP_emission_flux_from_anthropogenic\nEmisNAP_BioBurn    NAP    111    -1  -1   2   kg/m2/s  NAP_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  NH3 emissions                                                      #####\n###############################################################################\nEmisNH3_Total      NH3    -1     -1  -1   3   kg/m2/s  NH3_emission_flux_from_all_sectors\nEmisNH3_Anthro     NH3    0      1   -1   3   kg/m2/s  NH3_emission_flux_from_anthropogenic\nEmisNH3_BioBurn    NH3    111    -1  -1   2   kg/m2/s  NH3_emission_flux_from_biomass_burning\nEmisNH3_Natural    NH3    0      3   -1   2   kg/m2/s  NH3_emission_flux_from_natural_sources\nEmisNH3_Seabirds   NH3    0      30  -1   2   kg/m2/s  NH3_emission_flux_from_seabirds\nEmisNH3_Ship       NH3    0      10  -1   2   kg/m2/s  NH3_emission_flux_from_ships\n\n###############################################################################\n#####  NO emissions                                                       #####\n#####                                                                     #####\n##### - Separate fertilizer NOx emissions are only available when the     #####\n#####   SoilNOx extension is enabled                                      #####\n###############################################################################\nEmisNO_Total       NO     -1     -1  -1   3   kg/m2/s  NO_emission_flux_from_all_sectors\nEmisNO_Aircraft    NO     0      20  -1   3   kg/m2/s  NO_emission_flux_from_aircraft\nEmisNO_Anthro      NO     0      1   -1   3   kg/m2/s  NO_emission_flux_from_anthropogenic\nEmisNO_BioBurn     NO     111    -1  -1   2   kg/m2/s  NO_emission_flux_from_biomass_burning\nEmisNO_Lightning   NO     103    -1  -1   3   kg/m2/s  NO_emission_flux_from_lightning\nEmisNO_Ship        NO     102    -1  -1   2   kg/m2/s  NO_emission_flux_from_ships\nEmisNO_Soil        NO     0      3   -1   2   kg/m2/s  NO_emission_flux_from_soil_including_fertilizer\n#EmisNO_Fert        -1     104    -1  -1   2   kg/m2/s  NO_emission_flux_from_fertilizer_only\n\n###############################################################################\n#####  NO2 emissions                                                      #####\n###############################################################################\nEmisNO2_Total      NO2    -1     -1  -1   3   kg/m2/s  NO2_emission_flux_from_all_sectors\nEmisNO2_Aircraft   NO2    0      20  -1   3   kg/m2/s  NO2_emission_flux_from_aircraft\nEmisNO2_Ship       NO2    102    -1  -1   2   kg/m2/s  NO2_emission_flux_from_ships\n\n###############################################################################\n#####  O3 emissions                                                       #####\n###############################################################################\nEmisO3_Ship        O3     102    -1  -1   2   kg/m2/s  O3_emission_flux_from_ships\n\n###############################################################################\n#####  OCPI and OCPO emissions                                            #####\n###############################################################################\nEmisOCPI_Total     OCPI   -1     -1  -1   3   kg/m2/s  OCPI_emission_flux_from_all_sectors\nEmisOCPI_Aircraft  OCPI   0      20  -1   3   kg/m2/s  OCPI_emission_flux_from_aircraft\nEmisOCPI_Anthro    OCPI   0      1   -1   3   kg/m2/s  OCPI_emission_flux_from_anthropogenic\nEmisOCPI_BioBurn   OCPI   111    -1  -1   2   kg/m2/s  OCPI_emission_flux_from_biomass_burning\nEmisOCPI_Ship      OCPI   0      10  -1   2   kg/m2/s  OCPI_emission_flux_from_ships\nEmisOCPO_Total     OCPO   -1     -1  -1   3   kg/m2/s  OCPO_emission_flux_from_all_sectors\nEmisOCPO_Anthro    OCPO   0      1   -1   3   kg/m2/s  OCPO_emission_flux_from_anthropogenic\nEmisOCPO_BioBurn   OCPO   111    -1  -1   2   kg/m2/s  OCPO_emission_flux_from_biomass_burning\nEmisOCPO_Ship      OCPO   0      10  -1   2   kg/m2/s  OCPO_emission_flux_from_ships\n\n###############################################################################\n#####  pFe emissions                                                      #####\n###############################################################################\nEmispFe_Total      pFe    -1     -1  -1   3   kg/m2/s  pFe_emission_flux_from_all_sectors\nEmispFe_Anthro     pFe    0      1   -1   3   kg/m2/s  pFe_emission_flux_from_anthropogenic\nEmispFe_Ship       pFe    0      10  -1   2   kg/m2/s  pFe_emission_flux_from_ships\n\n###############################################################################\n#####  PHEN emissions                                                      #####\n###############################################################################\nEmisPHEN_Total     PHEN    -1    -1  -1   3   kg/m2/s  PHEN_emission_flux_from_all_sectors\nEmisPHEN_BioBurn   PHEN   111    -1  -1   2   kg/m2/s  PHEN_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  POG1 and POG2 emissions                                            #####\n###############################################################################\nEmisPOG1_Total     POG1   -1     -1  -1   3   kg/m2/s  POG1_emission_flux_from_all_sectors\nEmisPOG1_Anthro    POG1   0      1   -1   3   kg/m2/s  POG1_emission_flux_from_anthropogenic\nEmisPOG1_BioBurn   POG1   111    -1  -1   2   kg/m2/s  POG1_emission_flux_from_GFED_inventory\nEmisPOG2_Total     POG2   -1     -1  -1   3   kg/m2/s  POG2_emission_flux_from_all_sectors\nEmisPOG2_Anthro    POG2   0      1   -1   3   kg/m2/s  POG2_emission_flux_from_anthropogenic\nEmisPOG2_BioBurn   POG2   111    -1  -1   2   kg/m2/s  POG2_emission_flux_from_GFED_inventory\n\n###############################################################################\n#####  PRPE emissions                                                     #####\n###############################################################################\nEmisPRPE_Total     PRPE   -1     -1  -1   3   kg/m2/s  PRPE_emission_flux_from_all_sectors\nEmisPRPE_Aircraft  PRPE   0      20  -1   3   kg/m2/s  PRPE_emission_flux_from_aircraft\nEmisPRPE_Anthro    PRPE   0      1   -1   3   kg/m2/s  PRPE_emission_flux_from_anthropogenic\nEmisPRPE_BioBurn   PRPE   111    -1  -1   2   kg/m2/s  PRPE_emission_flux_from_biomass_burning\nEmisPRPE_Biogenic  PRPE   0      4   -1   2   kg/m2/s  PRPE_emission_flux_from_biogenic_sources\nEmisPRPE_Ship      PRPE   0      10  -1   2   kg/m2/s  PRPE_emission_flux_from_ships\n\n###############################################################################\n#####  RCHO emissions                                                     #####\n###############################################################################\nEmisRCHO_Total     RCHO   -1     -1  -1   3   kg/m2/s  RCHO_emission_flux_from_all_sectors\nEmisRCHO_Aircraft  RCHO   0      20  -1   3   kg/m2/s  RCHO_emission_flux_from_aircraft\nEmisRCHO_BioBurn   RCHO   111    -1  -1   2   kg/m2/s  RCHO_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  SESQ emissions                                                     #####\n###############################################################################\n# SESQ is not an active species in GEOS-Chem; disable for now\n#EmisSESQ_Biogenic  SESQ   0      4   -1   2   kg/m2/s  SESQ_emission_flux_from_biogenic_sources\n\n###############################################################################\n#####  Sea salt emissions                                                 #####\n###############################################################################\nEmisSALA_Natural     SALA  0      3   -1   2   kg/m2/s  SALA_emission_flux_from_natural_sources\nEmisBrSALA_Natural BrSALA  0      3   -1   2   kg/m2/s  BrSALA_emission_flux_from_natural_sources\nEmisSALAAL_Natural SALAAL  0      3   -1   2   kg/m2/s  SALAAL_emission_flux_from_natural_sources\nEmisSALACL_Natural SALACL  0      3   -1   2   kg/m2/s  SALACL_emission_flux_from_natural_sources\nEmisSALC_Natural     SALC  0      3   -1   2   kg/m2/s  SALC_emission_flux_from_natural_sources\nEmisBrSALC_Natural BrSALC  0      3   -1   2   kg/m2/s  BrSALC_emission_flux_from_natural_sources\nEmisSALCAL_Natural SALCAL  0      3   -1   2   kg/m2/s  SALCAL_emission_flux_from_natural_sources\nEmisSALCCL_Natural SALCCL  0      3   -1   2   kg/m2/s  SALCCL_emission_flux_from_natural_sources\n\n###############################################################################\n#####  SO2 emissions                                                      #####\n###############################################################################\nEmisSO2_Total      SO2    -1     -1  -1   3   kg/m2/s  SO2_emission_flux_from_all_sectors\nEmisSO2_Aircraft   SO2    0      20  -1   3   kg/m2/s  SO2_emission_flux_from_aircraft\nEmisSO2_Anthro     SO2    0      1   -1   3   kg/m2/s  SO2_emission_flux_from_anthropogenic\nEmisSO2_BioBurn    SO2    111    -1  -1   2   kg/m2/s  SO2_emission_flux_from_biomass_burning\nEmisSO2_VolcErupt  SO2    117    51  -1   3   kg/m2/s  SO2_emission_flux_from_eruptive_volcano\nEmisSO2_VolcDegas  SO2    117    52  -1   3   kg/m2/s  SO2_emission_flux_from_noneruptive_volcano\nEmisSO2_Ship       SO2    0      10  -1   2   kg/m2/s  SO2_emission_flux_from_ships\n\n###############################################################################\n#####  SO4 emissions                                                      #####\n###############################################################################\nEmisSO4_Total      SO4    -1     -1  -1   3   kg/m2/s  SO4_emission_flux_from_all_sectors\nEmisSO4_Aircraft   SO4    0      20  -1   3   kg/m2/s  SO4_emission_flux_from_aircraft\nEmisSO4_Anthro     SO4    0      1   -1   3   kg/m2/s  SO4_emission_flux_from_anthropogenic\nEmisSO4_Ship       SO4    0      10  -1   2   kg/m2/s  SO4_emission_flux_from_ship\n\n###############################################################################\n#####  SOAP sources                                                       #####\n###############################################################################\nEmisSOAP_Total     SOAP   -1     -1  -1   3   kg/m2/s  SOAP_emission_flux_from_all_sectors\nEmisSOAP_Aircraft  SOAP   0      20  -1   3   kg/m2/s  SOAP_emission_flux_from_aircraft\nEmisSOAP_Anthro    SOAP   0      1   -1   3   kg/m2/s  SOAP_emission_flux_from_anthropogenic\nEmisSOAP_Biogenic  SOAP   0      4   -1   2   kg/m2/s  SOAP_emission_flux_from_biogenic_sources\nEmisSOAP_BioBurn   SOAP   111    -1  -1   2   kg/m2/s  SOAP_emission_flux_from_biomass_burning\nEmisSOAP_Ship      SOAP   0      10  -1   2   kg/m2/s  SOAP_emission_flux_from_ships\n\n###############################################################################\n#####  SOAS sources                                                       #####\n###############################################################################\nEmisSOAS_Biogenic  SOAS   0      4   -1   2   kg/m2/s  SOAS_emission_flux_from_biogenic_sources\n\n##############################################################################\n#####  STYR emissions                                                     #####\n###############################################################################\nEmisSTYR_Total     STYR   -1     -1  -1   3   kg/m2/s  STYR_emission_flux_from_all_sectors\nEmisSTYR_BioBurn   STYR   111    -1  -1   2   kg/m2/s  STYR_emission_flux_from_biomass_burning\n\n###############################################################################\n#####  TOLU emissions                                                     #####\n###############################################################################\nEmisTOLU_Total     TOLU   -1     -1  -1   3   kg/m2/s  TOLU_emission_flux_from_all_sectors\nEmisTOLU_Anthro    TOLU   0      1   -1   3   kg/m2/s  TOLU_emission_flux_from_anthropogenic\nEmisTOLU_BioBurn   TOLU   111    -1  -1   2   kg/m2/s  TOLU_emission_flux_from_biomass_burning\nEmisTOLU_Ship      TOLU   0      10  -1   2   kg/m2/s  TOLU_emission_flux_from_ships\n\n###############################################################################\n#####  XYLE emissions                                                     #####\n###############################################################################\nEmisXYLE_Total     XYLE   -1     -1  -1   3   kg/m2/s  XYLE_emission_flux_from_all_sectors\nEmisXYLE_Anthro    XYLE   0      1   -1   3   kg/m2/s  XYLE_emission_flux_from_anthropogenic\nEmisXYLE_BioBurn   XYLE   111    -1  -1   2   kg/m2/s  XYLE_emission_flux_from_biomass_burning\nEmisXYLE_Ship      XYLE   0      10  -1   2   kg/m2/s  XYLE_emission_flux_from_ships\n\n###############################################################################\n#####  Additional diagnostics saved out via HEMCO extensions              #####\n###############################################################################\n\n#=============================\n# LIGHTNOX extension\n#=============================\nHcoLightningFlashRate_Total     -1 103 -1 -1 2 flashes/min/km2 Total_lightning_flash_rate\nHcoLightningFlashRate_IntraCld  -1 103 -1 -1 2 flashes/min/km2 Intra-cloud_lightning_flash_rate\nHcoLightningFlashRate_CldGround -1 103 -1 -1 2 flashes/min/km2 Cloud-ground_lightning_flash_rate\nHcoConvectiveCloudTopHeight     -1 103 -1 -1 2 level           Convective_cloud_top_height\n\n###############################################################################\n#####  INVENTORY DIAGNOSTICS, needed for benchmarking simulations only    #####\n#####  Listed in same order as HEMCO_Config.rc                            #####\n#####  (You can comment these out for production runs, to save memory)    #####\n###############################################################################\n\n#=============================\n# CEDS\n#=============================\n#InvCEDS_ALD2         ALD2   0    1   5   3   kg/m2/s  ALD2_emission_flux_from_CEDS_inventory\n#InvCEDS_ALK4         ALK4   0    1   5   3   kg/m2/s  ALK4_emission_flux_from_CEDS_inventory\n#InvCEDS_ALK6         ALK6   0    1   5   3   kg/m2/s  ALK6_emission_flux_from_CEDS_inventory\n#InvCEDS_BCPI         BCPI   0    1   5   3   kg/m2/s  BCPI_emission_flux_from_CEDS_inventory\n#InvCEDS_BCPO         BCPO   0    1   5   3   kg/m2/s  BCPO_emission_flux_from_CEDS_inventory\n#InvCEDS_BENZ         BENZ   0    1   5   3   kg/m2/s  BENZ_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H2         C2H2   0    1   5   3   kg/m2/s  C2H2_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H4         C2H4   0    1   5   3   kg/m2/s  C2H4_emission_flux_from_CEDS_inventory\n#InvCEDS_C2H6         C2H6   0    1   5   3   kg/m2/s  C2H6_emission_flux_from_CEDS_inventory\n#InvCEDS_C3H8         C3H8   0    1   5   3   kg/m2/s  C3H8_emission_flux_from_CEDS_inventory\n#InvCEDS_CH2O         CH2O   0    1   5   3   kg/m2/s  CH2O_emission_flux_from_CEDS_inventory\n#InvCEDS_CO           CO     0    1   5   3   kg/m2/s  CO_emission_flux_from_CEDS_inventory\n#InvCEDS_MOH          MOH    0    1   5   3   kg/m2/s  MOH_emission_flux_from_CEDS_inventory\n#InvCEDS_EOH          EOH    0    1   5   3   kg/m2/s  EOH_emission_flux_from_CEDS_inventory\n#InvCEDS_ROH          ROH    0    1   5   3   kg/m2/s  ROH_emission_flux_from_CEDS_inventory\n#InvCEDS_HCOOH        HCOOH  0    1   5   3   kg/m2/s  HCOOH_emission_flux_from_CEDS_inventory\n#InvCEDS_MEK          MEK    0    1   5   3   kg/m2/s  MEK_emission_flux_from_CEDS_inventory\n#InvCEDS_NH3          NH3    0    1   5   3   kg/m2/s  NH3_emission_flux_from_CEDS_inventory\n#InvCEDS_NO           NO     0    1   5   3   kg/m2/s  NO_emission_flux_from_CEDS_inventory\n#InvCEDS_OCPI         OCPI   0    1   5   3   kg/m2/s  OCPI_emission_flux_from_CEDS_inventory\n#InvCEDS_OCPO         OCPO   0    1   5   3   kg/m2/s  OCPO_emission_flux_from_CEDS_inventory\n#InvCEDS_pFe          pFe    0    1   5   3   kg/m2/s  pFe_emission_flux_from_CEDS_inventory\n#InvCEDS_POG1         POG1   0    1   5   3   kg/m2/s  POG1_emission_flux_from_CEDS_inventory\n#InvCEDS_POG2         POG2   0    1   5   3   kg/m2/s  POG2_emission_flux_from_CEDS_inventory\n#InvCEDS_PRPE         PRPE   0    1   5   3   kg/m2/s  PRPE_emission_flux_from_CEDS_inventory\n#InvCEDS_SO2          SO2    0    1   5   3   kg/m2/s  SO2_emission_flux_from_CEDS_inventory\n#InvCEDS_SO4          SO4    0    1   5   3   kg/m2/s  SO4_emission_flux_from_CEDS_inventory\n#InvCEDS_SOAP         SOAP   0    1   5   3   kg/m2/s  SOAP_emission_flux_from_CEDS_inventory\n#InvCEDS_TOLU         TMB    0    1   5   3   kg/m2/s  TMB_emission_flux_from_CEDS_inventory\n#InvCEDS_TOLU         TOLU   0    1   5   3   kg/m2/s  TOLU_emission_flux_from_CEDS_inventory\n#InvCEDS_XYLE         XYLE   0    1   5   3   kg/m2/s  XYLE_emission_flux_from_CEDS_inventory\n\n#=============================\n# GEIA_NH3\n#=============================\n#InvGEIAnatural_NH3   NH3    0    3   1   2   kg/m2/s  NH3_emission_flux_from_GEIA_natural_source\n\n#=============================\n# Seabirds\n#=============================\n#InvSEABIRDS_NH3      NH3    0    30  1   2   kg/m2/s  NH3_emission_flux_from_arctic_seabirds\n\n#=============================\n# C2H62010\n#=============================\n#InvC2H62010_C2H6     C2H6   0    1   100 2   kg/m2/s  C2H6_from_C2H62010_anthropogenic_inventory\n\n#=============================\n# XIAO_C3H8\n#=============================\n#InvXIAO_C3H8         C3H8   0    1   10  2   kg/m2/s  C3H8_from_XIAO_anthropogenic_inventory\n\n#=============================\n# LIANG_BROMOCARB\n#=============================\n#InvLIANG_CH2Br2      CH2Br2 0    1   1   2   kg/m2/s  CH2Br2_emission_flux_from_LIANG_BROMOCARB_inventory\n#InvLIANG_CHBr3       CHBr3  0    1   1   2   kg/m2/s  CHBr3_emission_flux_from_LIANG_BROMOCARB_inventory\n\n#=============================\n# ORDONEZ_IODOCARB\n#=============================\n#InvORDONEZ_CH2I2     CH2I2  0    1   1   2   kg/m2/s  CH2I2_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH2ICl    CH2ICl 0    1   1   2   kg/m2/s  CH2ICl_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH2IBr    CH2IBr 0    1   1   2   kg/m2/s  CH2IBr_emission_flux_from_ORDONEZ_IODOCARB_inventory\n#InvORDONEZ_CH3I      CH3I   0    1   1   2   kg/m2/s  CH3I_emission_flux_from_ORDONEZ_IODOCARB_inventory\n\n#=============================\n# GT_Chlorine\n#=============================\n#InvGTChlorine_HCl    HCl    0    1   1   2   kg/m2/s  HCl_emission_flux_from_GT_Chlorine_inventory\n\n#=============================\n# CEDS_SHIP\n#=============================\n#InvCEDSship_ALD2     ALD2   0    10  5   2   kg/m2/s  ALD2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_ALK4     ALK4   0    10  5   2   kg/m2/s  ALK4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_ALK6     ALK4   0    10  5   2   kg/m2/s  ALK4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BCPI     BCPI   0    10  5   2   kg/m2/s  BCPI_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BCPO     BCPO   0    10  5   2   kg/m2/s  BCPO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_BENZ     BENZ   0    10  5   2   kg/m2/s  BENZ_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H2     C2H2   0    10  5   2   kg/m2/s  C2H2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H4     C2H4   0    10  5   2   kg/m2/s  C2H4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C2H6     C2H6   0    10  5   2   kg/m2/s  C2H6_emission_flux_from_CEDSship_inventory\n#InvCEDSship_C3H8     C3H8   0    10  5   2   kg/m2/s  C3H8_emission_flux_from_CEDSship_inventory\n#InvCEDSship_CH2O     CH2O   0    10  5   2   kg/m2/s  CH2O_emission_flux_from_CEDSship_inventory\n#InvCEDSship_CO       CO     0    10  5   2   kg/m2/s  CO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_EOH      EOH    0    10  5   2   kg/m2/s  EOH_emission_flux_from_CEDSship_inventory\n#InvCEDSship_HCOOH    HCOOH  0    10  5   2   kg/m2/s  HCOOH_emission_flux_from_CEDSship_inventory\n#InvCEDSship_MEK      MEK    0    10  5   2   kg/m2/s  MEK_emission_flux_from_CEDSship_inventory\n#InvCEDSship_NH3      NH3    0    10  5   2   kg/m2/s  NH3_emission_flux_from_CEDSship_inventory\n#InvCEDSship_pFe      pFe    0    10  5   2   kg/m2/s  pFe_emission_flux_from_CEDSship_inventory\n#InvCEDSship_PRPE     PRPE   0    10  5   2   kg/m2/s  PRPE_emission_flux_from_CEDSship_inventory\n#InvCEDSship_OCPI     OCPI   0    10  5   2   kg/m2/s  OCPI_emission_flux_from_CEDSship_inventory\n#InvCEDSship_OCPO     OCPO   0    10  5   2   kg/m2/s  OCPO_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SO2      SO2    0    10  5   2   kg/m2/s  SO2_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SO4      SO4    0    10  5   2   kg/m2/s  SO4_emission_flux_from_CEDSship_inventory\n#InvCEDSship_SOAP     SOAP   0    10  5   2   kg/m2/s  SOAP_emission_flux_from_CEDSship_inventory\n#InvCEDSship_TMB      TMB    0    10  5   2   kg/m2/s  TMB_emission_flux_from_CEDSship_inventory\n#InvCEDSship_TOLU     TOLU   0    10  5   2   kg/m2/s  TOLU_emission_flux_from_CEDSship_inventory\n#InvCEDSship_XYLE     XYLE   0    10  5   2   kg/m2/s  XYLE_emission_flux_from_CEDSship_inventory\n\n#=============================\n# AEIC\n#=============================\n#InvAEIC_ACET         ACET   0    20  1   3   kg/m2/s  ACET_emission_flux_from_AEIC_inventory\n#InvAEIC_ALD2         ALD2   0    20  1   3   kg/m2/s  ALD2_emission_flux_from_AEIC_inventory\n#InvAEIC_ALK4         ALK4   0    20  1   3   kg/m2/s  ALK4_emission_flux_from_AEIC_inventory\n#InvAEIC_BCPI         BCPI   0    20  1   3   kg/m2/s  BCPI_emission_flux_from_AEIC_inventory\n#InvAEIC_C2H6         C2H6   0    20  1   3   kg/m2/s  C2H6_emission_flux_from_AEIC_inventory\n#InvAEIC_C3H8         C3H8   0    20  1   3   kg/m2/s  C3H8_emission_flux_from_AEIC_inventory\n#InvAEIC_CH2O         CH2O   0    20  1   3   kg/m2/s  CH2O_emission_flux_from_AEIC_inventory\n#InvAEIC_CO           CO     0    20  1   3   kg/m2/s  CO_emission_flux_from_AEIC_inventory\n#InvAEIC_HONO         HONO   0    20  1   3   kg/m2/s  HONO_emission_flux_from_AEIC_inventory\n#InvAEIC_MACR         MACR   0    20  1   3   kg/m2/s  MACR_emission_flux_from_AEIC_inventory\n#InvAEIC_NO           NO     0    20  1   3   kg/m2/s  NO_emission_flux_from_AEIC_inventory\n#InvAEIC_NO2          NO2    0    20  1   3   kg/m2/s  NO2_emission_flux_from_AEIC_inventory\n#InvAEIC_OCPI         OCPI   0    20  1   3   kg/m2/s  OCPI_emission_flux_from_AEIC_inventory\n#InvAEIC_PRPE         PRPE   0    20  1   3   kg/m2/s  PRPE_emission_flux_from_AEIC_inventory\n#InvAEIC_RCHO         RCHO   0    20  1   3   kg/m2/s  RCHO_emission_flux_from_AEIC_inventory\n#InvAEIC_SO2          SO2    0    20  1   3   kg/m2/s  SO2_emission_flux_from_AEIC_inventory\n#InvAEIC_SO4          SO4    0    20  1   3   kg/m2/s  SO4_emission_flux_from_AEIC_inventory\n#InvAEIC_SOAP         SOAP   0    20  1   3   kg/m2/s  SOAP_emission_flux_from_AEIC_inventory\n\n#=============================\n# Decaying plants\n#=============================\n#InvPLANTDECAY_ALD2   ALD2   0    3   1   2   kg/m2/s  ALD2_emission_flux_from_PLANTDECAY_inventory\n#InvPLANTDECAY_EOH    EOH    0    3   1   2   kg/m2/s  EOH_emission_flux_from_PLANTDECAY_inventory\n\n#=============================\n# AFCID emissions\n#=============================\n#InvAFCID_DST1        DST1   0    1  -1   2   kg/m2/s  DST1_emission_flux_from_AFCID_inventory\n\n#=============================\n# Seaflux extension\n#=============================\n#InvSeaFlux_ACET      ACET   101  -1  -1  2   kg/m2/s  ACET_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_ALD2      ALD2   101  -1  -1  2   kg/m2/s  ALD2_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_DMS       DMS    101  -1  -1  2   kg/m2/s  DMS_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_ETNO3     ETNO3  101  -1  -1  2   kg/m2/s  ETNO3_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_MENO3     MENO3  101  -1  -1  2   kg/m2/s  MENO3_emission_flux_from_SeaFlux_extension\n#InvSeaFlux_MOH       MOH    101  -1  -1  2   kg/m2/s  MOH_emission_flux_from_SeaFlux_extension\n\n#=============================\n# PARANOX extension\n#=============================\n#InvPARANOX_HNO3      HNO3   102  -1  -1  2   kg/m2/s  HNO3_emission_flux_from_PARANOX_extension\n#InvPARANOX_NO        NO     102  -1  -1  2   kg/m2/s  NO_emission_flux_from_PARANOX_extension\n#InvPARANOX_NO2       NO2    102  -1  -1  2   kg/m2/s  NO2_emission_flux_from_PARANOX_extension\n#InvPARANOX_O3        O3     102  -1  -1  2   kg/m2/s  O3_emission_flux_from_PARANOX_extension\n\n#=============================\n# LIGHTNOX extension\n#=============================\n#InvLIGHTNOX_NO       NO     103  -1  -1  3   kg/m2/s  NO_emission_flux_from_lightning_extension\n\n#=============================\n# SOILNOX extension\n#=============================\n#InvSOILNOX_NO        NO     104  -1  -1  2   kg/m2/s  NO_emission_flux_from_SOINOX_extension_including_soil_and_fertilizer_emissions\n\n#=============================\n# DEAD (dust) Extension\n#=============================\n#InvDEAD_DST1         DST1   105  -1  -1  2   kg/m2/s  DST1_emission_flux_from_DEAD_extension\n#InvDEAD_DST2         DST2   105  -1  -1  2   kg/m2/s  DST2_emission_flux_from_DEAD_extension\n#InvDEAD_DST3         DST3   105  -1  -1  2   kg/m2/s  DST3_emission_flux_from_DEAD_extension\n#InvDEAD_DST4         DST4   105  -1  -1  2   kg/m2/s  DST4_emission_flux_from_DEAD_extension\n\n#=============================\n# SeaSalt extension\n#=============================\n#InvSeaSalt_BrSALA    BrSALA 107  -1  -1  2   kg/m2/s  BrSALA_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_BrSALC    BrSALC 107  -1  -1  2   kg/m2/s  BrSALC_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALA      SALA   107  -1  -1  2   kg/m2/s  SALA_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALC      SALC   107  -1  -1  2   kg/m2/s  SALC_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALAAL    SALAAL 107  -1  -1  2   kg/m2/s  SALAAL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALACL    SALACL 107  -1  -1  2   kg/m2/s  SALACL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALCAL    SALCAL 107  -1  -1  2   kg/m2/s  SALAAL_emission_flux_from_SeaSalt_extension\n#InvSeaSalt_SALCCL    SALCCL 107  -1  -1  2   kg/m2/s  SALCCL_emission_flux_from_SeaSalt_extension\n\n#=============================\n# MEGAN Extension\n#=============================\n#InvMEGAN_ALD2        ALD2   108   -1 -1  2   kg/m2/s  ALD2_biogenic_emission_flux_from_MEGAN_extension\n# C2H4 is not an active species in GEOS-Chem; disable for now\n##InvMEGAN_C2H4        C2H4   108   -1 -1  2   kg/m2/s  C2H4_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_EOH         EOH    108   -1 -1  2   kg/m2/s  EOH_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ISOP        ISOP   108   -1 -1  2   kg/m2/s  ISOP_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_LIMO        LIMO   108   -1 -1  2   kg/m2/s  LIMO_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MTPA        MTPA   108   -1 -1  2   kg/m2/s  MTPA_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MTPO        MTPO   108   -1 -1  2   kg/m2/s  MTPO_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_PRPE        PRPE   108   -1 -1  2   kg/m2/s  PRPE_biogenic_emission_flux_from_MEGAN_extension\n# SESQ is not an active species in GEOS-Chem; disable for now\n##InvMEGAN_SESQ        SESQ   108   -1 -1  2   kg/m2/s  SESQ_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_SOAP        SOAP   108   -1 -1  2   kg/m2/s  SOAP_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_SOAS        SOAS   108   -1 -1  2   kg/m2/s  SOAS_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET        ACET   108   -1 -1  2   kg/m2/s  ACET_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_MONO   -1     108   -1 -1  2   kg/m2/s  Acetone_from_monoterpenes_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_MBOX   -1     108   -1 -1  2   kg/m2/s  Acetone_from_methyl_butenol_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_ACET_DIRECT -1     108   -1 -1  2   kg/m2/s  Direct_acetone_biogenic_emission_flux_from_MEGAN_extension\n#InvMEGAN_MOH          MOH    108  -1  -1  2   kg/m2/s  Methanol_emission_flux_from_MEGAN_extension\n#InvMEGAN_APIN         -1     108  -1  -1  2   kg/m2/s  Alpha_pinene_emission_flux_from_MEGAN_extension\n#InvMEGAN_BPIN         -1     108  -1  -1  2   kg/m2/s  Beta_pinene_acid_emission_flux_from_MEGAN_extension\n#InvMEGAN_SABI         -1     108  -1  -1  2   kg/m2/s  Sabinene_emission_flux_from_MEGAN_extension\n#InvMEGAN_MYRC         -1     108  -1  -1  2   kg/m2/s  Mycrene_emission_flux_from_MEGAN_extension\n#InvMEGAN_CARE         -1     108  -1  -1  2   kg/m2/s  3_Carene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OCIM         -1     108  -1  -1  2   kg/m2/s  Ocimene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OMON         -1     108  -1  -1  2   kg/m2/s  Other_monoterpene_emission_flux_from_MEGAN_extension\n#InvMEGAN_MONX         -1     108  -1  -1  2   kg/m2/s  Total_monoterpene_emission_flux_from_MEGAN_extension\n#InvMEGAN_FARN         -1     108  -1  -1  2   kg/m2/s  alpha_Farnesene_emission_flux_from_MEGAN_extension\n#InvMEGAN_BCAR         -1     108  -1  -1  2   kg/m2/s  beta_caryophyllene_emission_flux_from_MEGAN_extension\n#InvMEGAN_OSQT         -1     108  -1  -1  2   kg/m2/s  Other_sesquiterpenes_emission_flux_from_MEGAN_extension\n#InvMEGAN_MBOX         -1     108  -1  -1  2   kg/m2/s  Methyl_butenol_emission_flux_from_MEGAN_extension\n#InvMEGAN_FAXX         -1     108  -1  -1  2   kg/m2/s  Formic_acid_emission_flux_from_MEGAN_extension\n#InvMEGAN_AAXX         -1     108  -1  -1  2   kg/m2/s  Acetic_acid_emission_flux_from_MEGAN_extension\n\n#=============================\n# GFED Extension\n#=============================\n#InvGFED_ACET         ACET   111  -1  -1  2   kg/m2/s  ACET_emission_flux_from_GFED_extension\n#InvGFED_ACR          ACR    111  -1  -1  2   kg/m2/s  ACR_emission_flux_from_GFED_extension\n#InvGFED_ACTA         ACTA   111  -1  -1  2   kg/m2/s  ACTA_emission_flux_from_GFED_extension\n#InvGFED_ALD2         ALD2   111  -1  -1  2   kg/m2/s  ALD2_emission_flux_from_GFED_extension\n#InvGFED_ALK4         ALK4   111  -1  -1  2   kg/m2/s  ALK4_emission_flux_from_GFED_extension\n#InvGFED_BCPI         BCPI   111  -1  -1  2   kg/m2/s  BCPI_emission_flux_from_GFED_extension\n#InvGFED_BCPO         BCPO   111  -1  -1  2   kg/m2/s  BCPO_emission_flux_from_GFED_extension\n#InvGFED_BENZ         BENZ   111  -1  -1  2   kg/m2/s  BENZ_emission_flux_from_GFED_extension\n#InvGFED_C2H6         C2H6   111  -1  -1  2   kg/m2/s  C2H6_emission_flux_from_GFED_extension\n#InvGFED_C3H8         C3H8   111  -1  -1  2   kg/m2/s  C3H8_emission_flux_from_GFED_extension\n#InvGFED_C4H6         C4H6   111  -1  -1  2   kg/m2/s  C4H6_emission_flux_from_GFED_extension\n#InvGFED_CH2O         CH2O   111  -1  -1  2   kg/m2/s  CH2O_emission_flux_from_GFED_extension\n#InvGFED_CO           CO     111  -1  -1  2   kg/m2/s  CO_emission_flux_from_GFED_extension\n#InvGFED_EOH          EOH    111  -1  -1  2   kg/m2/s  EOH_emission_flux_from_GFED_extension\n#InvGFED_FURA         FURA   111  -1  -1  2   kg/m2/s  FURA_emission_flux_from_GFED_extension\n#InvGFED_GLYX         GLYX   111  -1  -1  2   kg/m2/s  GLYX_emission_flux_from_GFED_extension\n#InvGFED_HCOOH        HCOOH  111  -1  -1  2   kg/m2/s  HCOOH_emission_flux_from_GFED_extension\n#InvGFED_ISOP         ISOP   111  -1  -1  2   kg/m2/s  ISOP_emission_flux_from_GFED_extension\n#InvGFED_MEK          MEK    111  -1  -1  2   kg/m2/s  MEK_emission_flux_from_GFED_extension\n#InvGFED_MVK          MVK    111  -1  -1  2   kg/m2/s  MVK_emission_flux_from_GFED_extension\n#InvGFED_MGLY         MGLY   111  -1  -1  2   kg/m2/s  MGLY_emission_flux_from_GFED_extension\n#InvGFED_MOH          MOH    111  -1  -1  2   kg/m2/s  MOH_emission_flux_from_GFED_extension\n#InvGFED_MTPA         MTP    111  -1  -1  2   kg/m2/s  MTPA_emission_flux_from_GFED_extension\n#InvGFED_MVK          MVK    111  -1  -1  2   kg/m2/s  MVK_emission_flux_from_GFED_extension\n#InvGFED_NAP          NAP    111  -1  -1  2   kg/m2/s  NAP_emission_flux_from_GFED_extension\n#InvGFED_NH3          NH3    111  -1  -1  2   kg/m2/s  NH3_emission_flux_from_GFED_extension\n#InvGFED_NO           NO     111  -1  -1  2   kg/m2/s  NO_emission_flux_from_GFED_extension\n#InvGFED_OCPI         OCPI   111  -1  -1  2   kg/m2/s  OCPI_emission_flux_from_GFED_extension\n#InvGFED_OCPO         OCPO   111  -1  -1  2   kg/m2/s  OCPO_emission_flux_from_GFED_extension\n#InvGFED_PHEN         PHEN   111  -1  -1  2   kg/m2/s  PHEN_emission_flux_from_GFED_extension\n#InvGFED_POG1         POG1   111  -1  -1  2   kg/m2/s  POG1_emission_flux_from_GFED_extension\n#InvGFED_POG2         POG2   111  -1  -1  2   kg/m2/s  POG2_emission_flux_from_GFED_extension\n#InvGFED_PRPE         PRPE   111  -1  -1  2   kg/m2/s  PRPE_emission_flux_from_GFED_extension\n#InvGFED_RCHO         RCHO   111  -1  -1  2   kg/m2/s  RCHO_emission_flux_from_GFED_extension\n#InvGFED_SO2          SO2    111  -1  -1  2   kg/m2/s  SO2_emission_flux_from_GFED_extension\n#InvGFED_SOAP         SOAP   111  -1  -1  2   kg/m2/s  SOAP_emission_flux_from_GFED_extension\n#InvGFED_STYR         STYR   111  -1  -1  2   kg/m2/s  STYR_emission_flux_from_GFED_extension\n#InvGFED_TOLU         TOLU   111  -1  -1  2   kg/m2/s  TOLU_emission_flux_from_GFED_extension\n#InvGFED_XYLE         ACET   111  -1  -1  2   kg/m2/s  XYLE_emission_flux_from_GFED_extension\n\n#=============================\n# Volcano extension\n#=============================\n#InvVOLCANOerupt_SO2  SO2    117  51  -1  3   kg/m2/s  SO2_eruptive_emission_flux_from_Volcano_extension\n#InvVOLCANOdegas_SO2  SO2    117  52  -1  3   kg/m2/s  SO2_degassing_emission_flux_from_Volcano_extension\n\n#=============================\n# INORG_IODINE Extension\n#=============================\n#InvIODINE_HOI        HOI    120  -1  -1  2   kg/m2/s  HOI_emission_flux_from_INORG_IODINE_extension\n#InvIODINE_I2         I2     120  -1  -1  2   kg/m2/s  I2_emission_flux_from_INORG_IODINE_extension\n\n#EOC\n"
  },
  {
    "path": "run/WRF/fullchem/HISTORY.rc",
    "content": "###############################################################################\n###                 HISTORY.rc file for WRF-GC simulations                  ###\n###  Contact: WRF-GC Developer, Haipeng Lin (linhaipeng@pku.edu.cn)         ###\n###                                                                         ###\n###     This file is based upon GEOS-Chem Support Team's original work.     ###\n###############################################################################\n\n#============================================================================\n# EXPID allows you to specify the beginning of the file path corresponding\n# to each diagnostic collection.  For example:\n#\n#   EXPID: ./GEOSChem \n#      Will create netCDF files whose names begin \"GEOSChem\",\n#      in this run directory.\n#\n#   EXPID: ./OutputDir/GEOSChem\n#      Will create netCDF files whose names begin with \"GEOSChem\"\n#      in the OutputDir sub-folder of this run directory.\n#\n#============================================================================\nEXPID:  ./WRFGC\n\n#==============================================================================\n# %%%%% COLLECTION NAME DECLARATIONS %%%%%\n#\n# To disable a collection, place a \"#\" character in front of its name\n#\n# NOTE: These are the \"default\" collections for GEOS-Chem, but you can create\n# your own customized diagnostic collections as well.\n#==============================================================================\nCOLLECTIONS: 'SpeciesConc',\n             'Budget',\n             #'AerosolMass',\n             #'Aerosols',\n             'CloudConvFlux',\n             #'ConcAfterChem',\n             #'DryDep',\n             #'JValues',\n             'KppDiags',\n             #'ProdLoss',\n             #'StateChm',     \n             #'StateMet',\n             #'StateMetLevEdge',\n             #'WetLossConv',\n             #'WetLossLS',\n::\n###############################################################################\n### The rest of this file consists of collection definitions.               ###\n### Above collections whose declarations are commented out will be ignored. ###\n### Make sure that each collection definition, as well as the list of       ###\n### collections above, ends with a double-colon (\"::\").                     ###\n###############################################################################\n\n#==============================================================================\n# %%%%% THE SpeciesConc COLLECTION %%%%%\n#\n# GEOS-Chem species concentrations (default = advected species)\n#\n# Available for all simulations\n#==============================================================================\n  SpeciesConc.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  SpeciesConc.format:         'CFIO',\n  SpeciesConc.frequency:      00000000 010000,\n  SpeciesConc.duration:       00000000 120000,\n  SpeciesConc.mode:           'instantaneous'\n  SpeciesConc.fields:         'SpeciesConc_?ADV?             ',\n::\n#==============================================================================\n# %%%%% THE Budget COLLECTION %%%%%\n#\n# GEOS-Chem budget diagnostics defined as species kg/s in the column\n# (full, troposphere, or PBL) due to a single component (e.g. chemistry)\n# (default = advected species)\n#==============================================================================\n  Budget.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  Budget.frequency:    00000000 010000,\n  Budget.duration:     00000000 120000,\n  Budget.mode:         'instantaneous'\n  Budget.fields:       'BudgetEmisDryDepFull_?ADV?           ',  \n                       'BudgetEmisDryDepTrop_?ADV?           ',  \n                       'BudgetEmisDryDepPBL_?ADV?            ',  \n                       'BudgetEmisDryDepLevs1to35_?ADV?      ',\n                       'BudgetChemistryFull_?ADV?            ',\n                       'BudgetChemistryTrop_?ADV?            ',\n                       'BudgetChemistryPBL_?ADV?             ',\n                       'BudgetChemistryLevs1to35_?ADV?       ',\n                       'BudgetMixingFull_?ADV?               ',\n                       'BudgetMixingTrop_?ADV?               ',\n                       'BudgetMixingPBL_?ADV?                ',    \n                       'BudgetMixingLevs1to35_?ADV?          ',\n                       'BudgetConvectionFull_?ADV?           ',\n                       'BudgetConvectionTrop_?ADV?           ',\n                       'BudgetConvectionPBL_?ADV?            ',  \n                       'BudgetConvectionLevs1to35_?ADV?      ',\n                       'BudgetWetDepFull_?WET?               ',\n                       'BudgetWetDepTrop_?WET?               ',\n                       'BudgetWetDepPBL_?WET?                ',  \n                       'BudgetWetDepLevs1to35_?WET?          ',\n::\n#==============================================================================\n# %%%%% THE AerosolMass COLLECTION %%%%%\n#\n# Aerosol and PM2.5 mass\n#\n# Available for full-chemistry and aerosol-only simulations\n#==============================================================================\n  AerosolMass.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  AerosolMass.format:         'CFIO',\n  AerosolMass.frequency:      00000000 010000,\n  AerosolMass.duration:       00000000 120000,\n  AerosolMass.mode:           'instantaneous'\n  AerosolMass.fields:         'AerMassBC                    ',\n                              'AerMassNH4                   ',\n                              'AerMassNIT                   ',\n                              'AerMassPOA                   ',\n                              'AerMassSAL                   ',\n                              'AerMassSO4                   ',\n                              'AerMassSOAGX                 ',\n                              'AerMassSOAMG                 ',\n                              'PM25                         ',\n                              'TotalOA                      ',\n                              'TotalOC                      ',\n::\n#==============================================================================\n# %%%%% The Aerosols COLLECTION %%%%%\n#\n# Aerosol optical depth, surface area, number density, and hygroscopic growth\n#==============================================================================\n  Aerosols.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  Aerosols.format:            'CFIO',\n  Aerosols.frequency:         00000000 010000,\n  Aerosols.duration:          00000000 120000,\n  Aerosols.mode:              'instantaneous'\n  Aerosols.fields:            'AODDust                       ',\n                              'AODDustWL1_?DUSTBIN?          ',\n                              'AODHygWL1_?HYG?               ',\n                              'AODSOAfromAqIsopreneWL1       ',\n                              'AODStratLiquidAerWL1          ',\n                              'AODPolarStratCloudWL1         ',\n                              'AerHygroscopicGrowth_?HYG?    ',\n                              'AerNumDensityStratLiquid      ',\n                              'AerNumDensityStratParticulate ',\n                              'AerAqueousVolume              ',\n                              'AerSurfAreaDust               ',\n                              'AerSurfAreaHyg_?HYG?          ',\n                              'AerSurfAreaStratLiquid        ',\n                              'AerSurfAreaPolarStratCloud    ',\n                              'Chem_AeroAreaMDUST1           ',\n                              'Chem_AeroAreaMDUST2           ',\n                              'Chem_AeroAreaMDUST3           ',\n                              'Chem_AeroAreaMDUST4           ',\n                              'Chem_AeroAreaMDUST5           ',\n                              'Chem_AeroAreaMDUST6           ',\n                              'Chem_AeroAreaMDUST7           ',\n                              'Chem_AeroAreaSULF             ',\n                              'Chem_AeroAreaBC               ',\n                              'Chem_AeroAreaOC               ',\n                              'Chem_AeroAreaSSA              ',\n                              'Chem_AeroAreaSSC              ',\n                              'Chem_AeroAreaBGSULF           ',\n                              'Chem_AeroAreaICEI             ',\n                              'Chem_AeroRadiMDUST1           ',\n                              'Chem_AeroRadiMDUST2           ',\n                              'Chem_AeroRadiMDUST3           ',\n                              'Chem_AeroRadiMDUST4           ',\n                              'Chem_AeroRadiMDUST5           ',\n                              'Chem_AeroRadiMDUST6           ',\n                              'Chem_AeroRadiMDUST7           ',\n                              'Chem_AeroRadiSULF             ',\n                              'Chem_AeroRadiBC               ',\n                              'Chem_AeroRadiOC               ',\n                              'Chem_AeroRadiSSA              ',\n                              'Chem_AeroRadiSSC              ',\n                              'Chem_AeroRadiBGSULF           ',\n                              'Chem_AeroRadiICEI             ',\n                              'Chem_WetAeroAreaMDUST1        ',\n                              'Chem_WetAeroAreaMDUST2        ',\n                              'Chem_WetAeroAreaMDUST3        ',\n                              'Chem_WetAeroAreaMDUST4        ',\n                              'Chem_WetAeroAreaMDUST5        ',\n                              'Chem_WetAeroAreaMDUST6        ',\n                              'Chem_WetAeroAreaMDUST7        ',\n                              'Chem_WetAeroAreaSULF          ',\n                              'Chem_WetAeroAreaBC            ',\n                              'Chem_WetAeroAreaOC            ',\n                              'Chem_WetAeroAreaSSA           ',\n                              'Chem_WetAeroAreaSSC           ',\n                              'Chem_WetAeroAreaBGSULF        ',\n                              'Chem_WetAeroAreaICEI          ',\n                              'Chem_WetAeroRadiMDUST1        ',\n                              'Chem_WetAeroRadiMDUST2        ',\n                              'Chem_WetAeroRadiMDUST3        ',\n                              'Chem_WetAeroRadiMDUST4        ',\n                              'Chem_WetAeroRadiMDUST5        ',\n                              'Chem_WetAeroRadiMDUST6        ',\n                              'Chem_WetAeroRadiMDUST7        ',\n                              'Chem_WetAeroRadiSULF          ',\n                              'Chem_WetAeroRadiBC            ',\n                              'Chem_WetAeroRadiOC            ',\n                              'Chem_WetAeroRadiSSA           ',\n                              'Chem_WetAeroRadiSSC           ',\n                              'Chem_WetAeroRadiBGSULF        ',\n                              'Chem_WetAeroRadiICEI          ',\n                              'Chem_StatePSC                 ',\n                              'Chem_KhetiSLAN2O5H2O          ',\n                              'Chem_KhetiSLAN2O5HCl          ',\n                              'Chem_KhetiSLAClNO3H2O         ',\n                              'Chem_KhetiSLAClNO3HCl         ',\n                              'Chem_KhetiSLAClNO3HBr         ',\n                              'Chem_KhetiSLABrNO3H2O         ',\n                              'Chem_KhetiSLABrNO3HCl         ',\n                              'Chem_KhetiSLAHOClHCl          ',\n                              'Chem_KhetiSLAHOClHBr          ',\n                              'Chem_KhetiSLAHOBrHCl          ',\n                              'Chem_KhetiSLAHOBrHBr          ',\n::\n#==============================================================================\n# %%%%% THE CloudConvFlux COLLECTION %%%%%\n#\n# Cloud convective flux (default = advected species)\n#==============================================================================\n  CloudConvFlux.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  CloudConvFlux.frequency:    00000000 010000,\n  CloudConvFlux.duration:     00000000 120000,\n  CloudConvFlux.mode:         'instantaneous'\n  CloudConvFlux.fields:       'CloudConvFlux_?ADV?           ',\n::\n#==============================================================================\n# %%%%% THE ConcAfterChem COLLECTION %%%%%\n#\n# Concentrations of OH, HO2, O1D, O3P immediately after exiting the KPP solver\n#==============================================================================\n  ConcAfterChem.template:     '%y4%m2%d2_%h2%n2z.nc4',\n  ConcAfterChem.frequency:    00000000 010000,\n  ConcAfterChem.duration:     00000000 120000,\n  ConcAfterChem.mode:         'instantaneous'\n  ConcAfterChem.fields:       'OHconcAfterChem               ',  \n                              'HO2concAfterChem              ',  \n                              'O1DconcAfterChem              ',  \n                              'O3PconcAfterChem              ',  \n::\n#==============================================================================\n# %%%%% THE DryDep COLLECTION %%%%%\n#\n# Dry depositon fluxes and velocities (for all dry-depositing species)\n#==============================================================================\n  DryDep.template:            '%y4%m2%d2_%h2%n2z.nc4',\n  DryDep.frequency:           00000000 010000,\n  DryDep.duration:            00000000 120000,\n  DryDep.mode:                'instantaneous'\n  DryDep.fields:              'DryDepVel_?DRY?               ',\n                              'DryDepMix_?DRY?               ',\n                              'DryDepChm_?DRY?               ',\n                              'DryDep_?DRY?                  ',\n::\n#==============================================================================\n# %%%%% THE JValues COLLECTION %%%%%\n#\n# Photolysis rates (from the FAST-JX photolysis module)\n#==============================================================================\n  JValues.template:           '%y4%m2%d2_%h2%n2z.nc4',\n  JValues.frequency:          00000000 010000,\n  JValues.duration:           00000000 120000,\n  JValues.mode:               'instantaneous'\n  JValues.fields:             'Jval_?PHO?                    ',\n                              'JvalO3O1D                     ',\n                              'JvalO3O3P                     ',\n                              'UVFluxDiffuse_?UVFLX?         ',\n                              'UVFluxDirect_?UVFLX?          ',\n                              'UVFluxNet_?UVFLX?             ',\n::\n#==============================================================================\n# %%%%% THE KppDiags COLLECTION %%%%%\n#\n# Diagnostics from the KPP solver.\n#==============================================================================\n  KppDiags.template:      '%y4%m2%d2_%h2%n2z.nc4',\n  KppDiags.frequency:     00000000 010000,\n  KppDiags.duration:      00000000 010000,\n  KppDiags.mode:          'instantaneous'\n  KppDiags.fields:        'KppError                  ',\n::\n#==============================================================================\n# %%%%% THE ProdLoss COLLECTION %%%%%\n#\n# Chemical production and loss rates\n#==============================================================================\n  ProdLoss.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  ProdLoss.frequency:         00000000 010000,\n  ProdLoss.duration:          00000000 120000,\n  ProdLoss.mode:              'instantaneous'\n  ProdLoss.fields:            'Prod_?PRD?                    ', \n                              'ProdBCPIfromBCPO              ', \n                              'ProdOCPIfromOCPO              ',\n                              'ProdSO4fromH2O2inCloud        ',\n#                              'ProdSO4fromO2inCloudMetal     ',\n                              'ProdSO4fromO3inCloud          ',\n                              'ProdSO4fromO3inSeaSalt        ',\n                              'ProdSO4fromHOBrInCloud        ',\n                              'ProdSO4fromSRO3               ',\n                              'ProdSO4fromSRHObr             ',\n                              'ProdSO4fromO3s                ',\n                              'Loss_?LOS?                    ',\n                              'LossHNO3onSeaSalt             ',\n::\n#==============================================================================\n# %%%%% THE StateChm COLLECTION %%%%%\n#\n# Fields of the State_Chm object (see also Aerosols collection)\n#==============================================================================\n  StateChm.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateChm.frequency:         00000000 010000,\n  StateChm.duration:          00000000 120000,\n  StateChm.mode:              'instantaneous'\n  StateChm.fields:            'Chem_IsorropAeropHAccum       ',\n                              'Chem_IsorropAeropHCoarse      ',\n                              'Chem_IsorropHplusAccum        ',\n                              'Chem_IsorropHplusCoarse       ',\n                              'Chem_IsorropAeroH2OAccum      ',\n                              'Chem_IsorropAeroH2OCoarse     ',\n                              'Chem_IsorropSulfate           ',\n                              'Chem_IsorropNitrateAccum      ',\n                              'Chem_IsorropNitrateCoarse     ',\n                              'Chem_IsorropChlorideAccum     ',\n                              'Chem_IsorropChlorideCoarse    ',\n                              'Chem_IsorropBisulfate         ',\n                              'Chem_pHCloud                  ',\n                              'Chem_isCloud                  ',\n                              'Chem_SSAlkAccumMode           ',\n                              'Chem_SSAlkCoarseMode          ',\n                              'Chem_HSO3AQ                   ',\n                              'Chem_SO3AQ                    ',\n                              'Chem_fupdateHOBr              ',\n                              'Chem_GammaN2O5overall         ',\n                              'Chem_GammaN2O5fine            ',\n                              'Chem_YieldClNO2fine           ',\n::\n#==============================================================================\n# %%%%% The StateMet COLLECTION %%%%%\n#\n# Fields of the State_Met object (also see the StateMetLevEdge collection)\n#==============================================================================\n  StateMet.template:          '%y4%m2%d2_%h2%n2z.nc4',\n  StateMet.frequency:         00000000 010000,\n  StateMet.duration:          00000000 120000,\n  StateMet.mode:              'instantaneous'\n  StateMet.fields:            'Met_AD                        ',\n::\n#==============================================================================\n# %%%%% THE StateMetLevEdge COLLECTION %%%%%\n#\n# Diagnostics that are defined on grid box level edges\n#==============================================================================\n  StateMetLevEdge.template:    '%y4%m2%d2_%h2%n2z.nc4',\n  StateMetLevEdge.frequency:   00000000 010000,\n  StateMetLevEdge.duration:    00000000 120000,\n  StateMetLevEdge.mode:        'instantaneous'\n  StateMetLevEdge.fields:      'Met_CMFMC                     ',\n                               'Met_PEDGE                     ',\n                               'Met_PEDGEDRY                  ',\n                               'Met_PFICU                     ',\n                               'Met_PFILSAN                   ',\n                               'Met_PFLCU                     ',\n                               'Met_PFLLSAN                   ',\n::\n#==============================================================================\n# %%%%% THE WetLossConv COLLECTION %%%%%\n#\n# Loss of soluble species in convective updrafts\n#==============================================================================\n  WetLossConv.template:       '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossConv.frequency:      00000000 010000,\n  WetLossConv.duration:       00000000 120000,\n  WetLossConv.mode:           'instantaneous'\n  WetLossConv.fields:         'WetLossConv_?WET?             ',\n                              'WetLossConvFrac_?WET?         ',\n::\n#==============================================================================\n# %%%%% THE WetLossLS COLLECTION %%%%%\n#\n# Loss of soluble species in large-scale wetdep (i.e. rainout and washout)\n#==============================================================================\n  WetLossLS.template:         '%y4%m2%d2_%h2%n2z.nc4',\n  WetLossLS.format:           'CFIO',\n  WetLossLS.frequency:        00000000 010000,\n  WetLossLS.duration:         00000000 120000,\n  WetLossLS.mode:             'instantaneous'\n  WetLossLS.fields:           'WetLossLS_?WET?               ',\n::"
  },
  {
    "path": "run/WRF/fullchem/geoschem_config.yml",
    "content": "---\n### geoschem_config.yml: GEOS-Chem Runtime configuration options.\n### Customized for simulations using the KPP \"fullchem\" mechanism.\n###\n### NOTE: Add quotes around nitrogen oxide ('NO'), because YAML\n### parsers will confuse this with a negative \"no\" value.\n###\n### Customized for WRF-GC, Haipeng Lin, August 2022\n### Note: Most of configuration options here do not need to be changed\n### when running in the WRF-GC environment!\n\n#============================================================================\n# Simulation settings\n#============================================================================\nsimulation:\n  name: fullchem\n  start_date: [19970215, 031100]\n  end_date: [20180415, 040000]\n  root_data_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData\n  chem_inputs_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/\n  met_field: GEOSFP\n  species_database_file: ./species_database.yml\n  species_metadata_output_file: ./geoschem_species_metadata.yml\n  debug_printout: false\n  use_gcclassic_timers: false\n\n#============================================================================\n# Settings for GEOS-Chem operations\n#============================================================================\noperations:\n\n  chemistry:\n    activate: true\n    linear_chemistry_aloft:\n      activate: true\n      use_linoz_for_O3: true\n    active_strat_H2O:\n      activate: true\n      use_static_bnd_cond: true\n    gamma_HO2: 0.2\n    autoreduce_solver:\n      activate: false\n      use_target_threshold:\n        activate: true\n        oh_tuning_factor: 0.00005\n        no2_tuning_factor: 0.0001\n      use_absolute_threshold:\n        scale_by_pressure: true\n        absolute_threshold: 100.0\n      keep_halogens_active: false\n      append_in_internal_timestep: false\n\n  convection:\n    activate: true\n\n  dry_deposition:\n    activate: true\n    CO2_effect:\n      activate: false\n      CO2_level: 600.0\n      reference_CO2_level: 380.0\n    diag_alt_above_sfc_in_m: 10\n\n  pbl_mixing:\n     activate: true\n     use_non_local_pbl: true \n\n  photolysis:\n    activate: true\n    cloud-j:\n      cloudj_input_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/CLOUD_J/v2025-01/\n      verbose: false\n      num_levs_with_cloud: 20\n      cloud_scheme_flag: 3\n      opt_depth_increase_factor: 1.050\n      min_top_inserted_cloud_OD: 0.005\n      cloud_overlap_correlation: 0.33\n      num_cloud_overlap_blocks: 6\n      sphere_correction: 1\n      num_wavelength_bins: 18\n      use_H2O_UV_absorption: true\n    overhead_O3:\n      use_online_O3_from_model: true \n      use_column_O3_from_met: true\n      use_TOMS_SBUV_O3: false\n    photolyze_nitrate_aerosol:\n      activate: false\n      NITs_Jscale_JHNO3: 0.0\n      NIT_Jscale_JHNO2: 0.0\n      percent_channel_A_HONO: 66.667\n      percent_channel_B_NO2: 33.333\n\n  rrtmg_rad_transfer_model:\n    activate: false\n    aod_wavelengths_in_nm:\n      - 550\n    longwave_fluxes: false\n    shortwave_fluxes: false\n    clear_sky_flux: false\n    all_sky_flux: false\n\n  transport:\n    activate: true\n    transported_species:\n      - ACET\n      - ACTA\n      - ACR\n      - AERI\n      - ALD2\n      - ALK4\n      - ALK4N2\n      - ALK4P\n      - ALK6\n      - AONITA\n      - APAN\n      - APINP\n      - APINN\n      - AROMCHO\n      - AROMP4\n      - AROMP5\n      - AROMPN\n      - ATOOH\n      - BALD\n      - BCPI\n      - BCPO\n      - BENZ\n      - BENZP\n      - BPINO\n      - BPINN\n      - BPINP\n      - BPINOOH\n      - BPINON\n      - Br\n      - Br2\n      - BrCl\n      - BrNO2\n      - BrNO3\n      - BrO\n      - BrSALA\n      - BrSALC\n      - BUTDI\n      - BUTN\n      - BZCO3H\n      - BZPAN\n      - C96O2H\n      - C96N\n      - C2H2\n      - C2H4\n      - C2H6\n      - C3H8\n      - C4H6\n      - CCl4\n      - CFC11\n      - CFC113\n      - CFC114\n      - CFC115\n      - CFC12\n      - CH2Br2\n      - CH2Cl2\n      - CH2I2\n      - CH2IBr\n      - CH2ICl\n      - CH2O\n      - CH3Br\n      - CH3CCl3\n      - CH3Cl\n      - CH3I\n      - CH4\n      - CHBr3\n      - CHCl3\n      - Cl\n      - Cl2\n      - Cl2O2\n      - ClNO2\n      - ClNO3\n      - ClO\n      - ClOO\n      - CLOCK\n      - CO\n      - CSL\n      - DMS\n      - DSTbin1\n      - DSTbin2\n      - DSTbin3\n      - DSTbin4\n      - DSTbin5\n      - DSTbin6\n      - DSTbin7\n      - EBZ\n      - EOH\n      - ETHLN\n      - ETHN\n      - ETHP\n      - ETNO3\n      - ETP\n      - FURA\n      - GLYC\n      - GLYX\n      - HACTA\n      - H1211\n      - H1301\n      - H2402\n      - H2O\n      - H2O2\n      - HAC\n      - HBr\n      - HC5A\n      - HCFC123\n      - HCFC141b\n      - HCFC142b\n      - HCFC22\n      - HCl\n      - HCOOH\n      - HI\n      - HMHP\n      - HMML\n      - HMS\n      - HNO2\n      - HNO3\n      - HNO4\n      - HOBr\n      - HOCl\n      - HOI\n      - HONIT\n      - HPALD1\n      - HPALD2\n      - HPALD3\n      - HPALD4\n      - HPETHNL\n      - I\n      - I2\n      - I2O2\n      - I2O3\n      - I2O4\n      - IBr\n      - ICHE\n      - ICl\n      - ICN\n      - ICPDH\n      - IDC\n      - IDCHP\n      - IDHDP\n      - IDHPE\n      - IDN\n      - IEPOXA\n      - IEPOXB\n      - IEPOXD\n      - IHN1\n      - IHN2\n      - IHN3\n      - IHN4\n      - INDIOL\n      - INO\n      - INPB\n      - INPD\n      - IO\n      - IONITA\n      - IONO\n      - IONO2\n      - IPRNO3\n      - ISALA\n      - ISALC\n      - ISOP\n      - ITCN\n      - ITHN\n      - LIMAL\n      - LIMKB\n      - LIMKET\n      - LIMN\n      - LIMNB\n      - LIMO\n      - LIMO2H\n      - LIMO3H\n      - LIMPAN\n      - LVOC\n      - LVOCOA\n      - MACR\n      - MACR1OOH\n      - MAP\n      - MCRDH\n      - MCRENOL\n      - MCRHN\n      - MCRHNB\n      - MCRHP\n      - MCT\n      - MEK\n      - MEKPN\n      - MENO3\n      - MGLY\n      - MOH\n      - MONITA\n      - MONITS\n      - MONITU\n      - MP\n      - MPAN\n      - MPN\n      - MSA\n      - MTPA\n      - MTPO\n      - MVK\n      - MVKDH\n      - MVKHC\n      - MVKHCB\n      - MVKHP\n      - MVKN\n      - MVKPC\n      - MYRCO\n      - N2O\n      - N2O5\n      - NH3\n      - NH4\n      - NIT\n      - NITs\n      - 'NO'\n      - NO2\n      - NO3\n      - NPHEN\n      - NPRNO3\n      - O3\n      - OClO\n      - OCPI\n      - OCPO\n      - OCS\n      - OIO\n      - PAN\n      - pFe\n      - PHAN\n      - PHEN\n      - PIN\n      - PINAL\n      - PINONIC\n      - PINO3H\n      - PINPAN\n      - PIP\n      - PP\n      - PPN\n      - PROPNN\n      - PRPE\n      - PRPN\n      - PYAC\n      - R4N2\n      - R4P\n      - R7N2\n      - R7P\n      - RA3P\n      - RB3P\n      - RCHO\n      - RCOOH\n      - RIPA\n      - RIPB\n      - RIPC\n      - RIPD\n      - RNO3\n      - RP\n      - SALA\n      - SALAAL\n      - SALACL\n      - SALC\n      - SALCAL\n      - SALCCL\n      - SO2\n      - SO4\n      - SO4s\n      - SOAGX\n      - SOAIE\n      - SOAP\n      - SOAS\n      - STYR\n      - TLFUONE\n      - TMB\n      - TOLU\n      - XYLE\n\n  wet_deposition:\n    activate: true\n\n#============================================================================\n# Settings for GEOS-Chem aerosols\n#============================================================================\naerosols:\n\n  optics:\n    input_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/Aerosol_Optics/v2025-03/\n\n  carbon:\n    activate: true\n    brown_carbon: false\n    enhance_black_carbon_absorption:\n      activate: true\n      hydrophilic: 1.5\n      hydrophobic: 1.0\n\n  complex_SOA:\n    activate:  false\n    semivolatile_POA: false\n\n  dust:\n    activate: true\n    acid_uptake_on_dust: false\n\n  sea_salt:\n    activate: true\n    SALA_radius_bin_in_um: [0.01, 0.5]\n    SALC_radius_bin_in_um: [0.5,  8.0]\n    marine_organic_aerosols: false\n\n  stratosphere:\n    settle_strat_aerosol: true\n    polar_strat_clouds:\n      activate: true\n      het_chem: true\n    allow_homogeneous_NAT: false\n    NAT_supercooling_req_in_K: 3.0\n    supersat_factor_req_for_ice_nucl: 1.2\n    calc_strat_aod: true\n\n  sulfate:\n    activate: true\n    metal_cat_SO2_oxidation: true\n\n#============================================================================\n# Settings for diagnostics (other than HISTORY and HEMCO)\n#============================================================================\nextra_diagnostics:\n\n  obspack:\n    activate: false\n    quiet_logfile_output: false\n    input_file: ./obspack_co2_1_OCO2MIP_2018-11-28.YYYYMMDD.nc\n    output_file: ./OutputDir/GEOSChem.ObsPack.YYYYMMDD_hhmmz.nc4\n    output_species:\n      - CO\n      - 'NO'\n      - O3\n\n  planeflight:\n    activate: false\n    flight_track_file: Planeflight.dat.YYYYMMDD\n    output_file: plane.log.YYYYMMDD\n"
  },
  {
    "path": "run/shared/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "run/shared/cleanRunDir.sh",
    "content": "#!/bin/bash\n\n#============================================================================\n# cleanRunDir.sh: Removes files created by GEOS-Chem from a run directory\n#\n# Usage:\n# ------\n# $ ./cleanRunDir.sh          # Removes model output files in the run\n#                             # directory.  Also prompts the user before\n#                             # removing diagnostic output files from\n#                             # from OutputDir/.\n#\n# $ ./cleanRunDir.sh --force  # Removes model output files in the run\n#                             # directory, but will remove diagnostic\n#                             # output files without prompting first.\n#                             # USE WITH CAUTION!\n#============================================================================\n\n# Clean model output files in the run directory\nrm -fv gcchem*\nrm -fv *.rcx\nrm -fv *~\nrm -fv gchp.log\nrm -fv gchp.*.log\nrm -fv HEMCO.log\nrm -fv PET*.log\nrm -fv ESMF_LogFile\nrm -fv multirun.log\nrm -fv warnings_and_errors.log\nrm -fv GC*.log\nrm -fv log.dryrun*\nrm -fv logfile.000000.out\nrm -fv slurm-*\nrm -fv 1\nrm -fv EGRESS\nrm -fv core.*\nrm -fv PET*.ESMF_LogFile\nrm -fv allPEs.log\nrm -fv fort.*\n\n#----------------------------------------------------------------------------\n# Clean data files in OutputDir.\n# These are netCDF files (*.nc) and KPP standalone interface files (*.txt).\n#----------------------------------------------------------------------------\nif [[ \"x${1}\" == \"x\" ]]; then      # User confirmation required\n    rm -Iv ./OutputDir/*.nc*\n    rm -Iv ./OutputDir/*.txt\nelse                               # User Confirmation not required\n    rm -fv ./OutputDir/*.nc*\n    rm -fv ./OutputDir/*.txt*\nfi\n\n#---------------------------------------------------------------------------\n# Give instruction to reset start date if using GCHP\n#---------------------------------------------------------------------------\necho \"Reset simulation start date in cap_restart if using GCHP\"\n"
  },
  {
    "path": "run/shared/download_data.gcap2.40L.yml",
    "content": "---\n#\n# Configuration file for the download_data.py script.\n# You should not have to modify this file unless a new data mirror\n# comes online, or the default restart files are updated.\n#\nmirrors:\n  amazon:\n    short_name: aws\n    s3_bucket: True\n    remote: s3://gcgrid\n    command: 'aws s3 cp --request-payer=requester '\n    quote: \"\"\n  rochester:\n    short_name: ur\n    s3_bucket: False\n    remote: http://atmos.earth.rochester.edu/input/gc/ExtData\n    command: 'wget -r -np -nH -R \"*.html\" -N --cut-dirs=2 -P @PATH@ '\n    quote: '\"'\n  washu:\n    short_name: wu\n    s3_bucket: False\n    remote: http://geoschemdata.wustl.edu/ExtData\n    command: 'wget -r -np -nH -R \"*.html\" -N -P @PATH@ '\n    quote: '\"'\n\nrestarts:\n  root: GCAP2_RESTARTS/\n  aerosol:\n    remote: v2021-09/40L/GCAP2.Restart.fullchem.20190101_0000z.nc4\n    local: GEOSChem.Restart.20190101_0000z.nc4\n  fullchem:\n    remote: v2021-09/40L/GCAP2.Restart.fullchem.20190701_0000z.nc4\n    local: GEOSChem.Restart.20190701_0000z.nc4\n  mercury:\n    remote: v2021-12/40L/GCAP2.Restart.Hg.20190101_0000z.nc4\n    local: GEOSChem.Restart.20190101_0000z.nc4\n  tomas15:\n    remote: v2021-12/40L/GCAP2.Restart.TOMAS15.20190701_0000z.nc4\n    local: GEOSChem.Restart.20190701_0000z.nc4\n  tomas40:\n    remote: v2021-12/40L/GCAP2.Restart.TOMAS40.20190701_0000z.nc4\n    local: GEOSChem.Restart.20190701_0000z.nc4\n  transporttracers:\n    remote: GC_13.0.0/40L/GCAP2.Restart.TransportTracers.20190101_0000z.nc4\n    local: GEOSChem.Restart.20190101_0000z.nc4\n  other:\n    remote: v2020-02/40L/initial_GCAP2_rst.2x25_@SUFFIX@\n    local: GEOSChem.Restart.20190701_0000z.nc4\n"
  },
  {
    "path": "run/shared/download_data.py",
    "content": "#!/usr/bin/env python3\n\"\"\"\nDescription:\n------------\nThis Python script (assumes Python3) reads a GEOS-Chem or\nHEMCO-standalone log file containing dry-run output and does\nthe following:\n\n(1) Creates a list of unique files that are required for the\n    GEOS-Chem or HEMCO-standalone simulation;\n\n(2) Creates a bash script to download missing files from the AWS\n    s3://gcgrid bucket or from a specified server;\n\n(3) Executes the bash script to download the necessary data;\n\n(4) Removes the bash script upon successful download.\n\n\nRemarks:\n--------\n(1) This script only requires the \"os\", \"sys\", \"subprocess\", and\n    PyYaml packages.\n\n(2) Jiawei Zhuang found that it is much faster to issue aws s3 cp\n    commands from a bash script than a Python script.  Therefore,\n    in this routine we create a bash script with all of the\n    download commands that will be executed by the main routine.\n\"\"\"\n\n# Imports\nimport os\nimport sys\nimport subprocess\nimport yaml\n\n# Exit with error if we are not using Python3\nassert sys.version_info.major >= 3, \\\n\"ERROR: Python 3 is required to run download_data.py!\"\n\n# Define global variables\nGEOSCHEM_INPUT_FILE = \"./geoschem_config.yml\"\nDATA_DOWNLOAD_SCRIPT = \"./auto_generated_download_script.sh\"\n\n\ndef read_config_file(config_file, to_str=False):\n    \"\"\"\n    Reads configuration information from a YAML file.\n\n    Args:\n    -----\n    config_file : str\n        The configuration file in YAML format\n    to_str : bool\n        Set this to True if you wish to return the data in the YAML\n        file as strings, or False otherwise.\n\n    Returns:\n    --------\n    config : dict\n        Dictionary with the contents of the YAML file\n    \"\"\"\n    try:\n        with open(config_file, encoding=\"UTF-8\") as stream:\n            if to_str:\n                return yaml.load(stream, Loader=yaml.loader.BaseLoader)\n            return yaml.load(stream, Loader=yaml.loader.SafeLoader)\n    except FileNotFoundError as err:\n        msg = f\"Error reading configuration in {config_file}: {err}\"\n        raise FileNotFoundError(msg) from err\n\n\ndef extract_pathnames_from_log(args):\n    \"\"\"\n    Returns a list of pathnames from a GEOS-Chem log file.\n\n    Args\n    args  : dict : Output from function parse_args\n\n    Returns\n    paths : dict : paths[\"comments\"]    : Dry-run comment lines.\n                   paths[\"found\"]       : File paths found on disk.\n                   paths[\"missing\"]     : File paths that are missing.\n                   paths[\"local_prefix\"]: Local data directory root.\n\n    Author:\n    -------\n    Jiawei Zhuang (jiaweizhuang@g.harvard.edu)\n    Modified by Bob Yantosca (yantosca@seas.harvard.edu)\n    \"\"\"\n\n    # Initialization\n    comments = [\"!\"*79,\n                \"!!! LIST OF (UNIQUE) FILES REQUIRED FOR THE SIMULATION\"]\n    data_found = set()\n    data_missing = set()\n    dryrun_log = args[\"dryrun_log\"]\n    portal = args[\"portal\"]\n    remote = args[\"config\"][\"portals\"][portal][\"remote\"]\n\n    # Open file (or die with error)\n    with open(dryrun_log, \"r\", encoding=\"UTF-8\") as ifile:\n\n        # Read data from the file line by line.\n        # Add file paths to the data_list set.\n        line = ifile.readline()\n\n        while line:\n\n            # Replace double slashes with single slash\n            line = line.replace(\"//\", \"/\")\n\n            # Convert line to uppercase for string match\n            upcaseline = line.upper()\n\n            # Search for data paths that have been found\n            if (\": OPENING\" in upcaseline) or (\": READING\" in upcaseline):\n                data_found.add(line.split()[-1])\n\n                # Search for data paths that are missing\n            elif \"FILE NOT FOUND\" in upcaseline:\n                data_missing.add(line.split()[-1])\n\n                # Search for certain dry-run comment strings\n                # (and make sure to prevent duplicates)\n            elif (\"!!! STA\" in upcaseline) or (\"!!! END\" in upcaseline) or \\\n                 (\"!!! SIM\" in upcaseline) or (\"!!! MET\" in upcaseline) or \\\n                 (\"!!! GRI\" in upcaseline):\n                if line.rstrip() not in comments:\n                    comments.append(line.rstrip())\n\n            else:\n                pass\n\n            # Read next line\n            line = ifile.readline()\n\n        # Add another line to the comment list\n        comments.append(\"!\"*79)\n\n        # Convert sets to lists and sort in alphabetical order\n        found = sorted(list(data_found))\n        missing = sorted(list(data_missing))\n\n        # Find the local data directory prefix (path to ExtData)\n        local_prefix = \"\"\n        for path in found + missing:\n            if \"ExtData\" in path:\n                index = path.find(\"ExtData\")\n                local_prefix = path[:index]\n                #\n                # Data stored at these portals do not have an ExtData/\n                # folder, so we must add \"/ExtData\" to the path manually:\n                # - https://geos-chem.s3-us-west-2.amazonaws.com\n                # - https://gcgrid.s3.amazonaws.com/\n                if \"ExtData\" not in local_prefix:\n                    if \".amazonaws.com\" in remote:\n                        local_prefix = \\\n                            f\"{local_prefix}/ExtData\".replace('//', '/')\n                break\n\n        # Exit if the local path does not contain ExtData\n        if len(local_prefix) == 0:\n            msg = \\\n                \"Could not locate the ExtData folder in your local disk space!\"\n            raise ValueError(msg)\n\n        # Close file and return\n        # The \"sorted\" command will return unique values\n        ifile.close()\n\n        # Error check!  If ExtData appears more than once in\n        #if local_prefix.count(\"ExtData\") > 1:\n        paths = {\n            \"comments\": comments,\n            \"found\": found,\n            \"missing\": missing,\n            \"local_prefix\": local_prefix\n        }\n        return paths\n\n\ndef get_run_info():\n    \"\"\"\n    Searches through the geoschem_config.yml file for GEOS-Chem\n    simulation parameters.\n\n    Returns:\n    -------\n    run_info : dict : GEOS-Chem run parameters (start_date, start_time,\n                      end_date, end_time, met, grid, and sim)\n    \"\"\"\n\n    # Read GEOS-Chem configuration file\n    config = read_config_file(\n        GEOSCHEM_INPUT_FILE,\n        to_str=True\n    )\n\n    # Create dictionary with GEOS-Chem simulation parameters\n    # NOTE: Numbers are returned as strings, and need to be converted\n    run_info = {}\n    run_info[\"nest\"] = \"\"\n    run_info[\"tomas15\"] = False\n    run_info[\"tomas40\"] = False\n    run_info[\"start_date\"] = int(\n        config[\"simulation\"][\"start_date\"][0]\n    )\n    run_info[\"start_time\"] = int(\n        config[\"simulation\"][\"start_date\"][1]\n    )\n    run_info[\"end_date\"] = int(\n        config[\"simulation\"][\"end_date\"][0]\n    )\n    run_info[\"end_time\"] = int(\n        config[\"simulation\"][\"end_date\"][1]\n    )\n    run_info[\"met_field\"] = config[\"simulation\"][\"met_field\"]\n    run_info[\"sim\"] = config[\"simulation\"][\"name\"]\n    run_info[\"resolution\"] = config[\"grid\"][\"resolution\"]\n    run_info[\"grid\"] = get_grid_suffix(\n        run_info[\"resolution\"]\n    )\n    run_info[\"nest\"] = get_nest_suffix(\n        config[\"grid\"][\"longitude\"][\"range\"]\n    )\n    run_info[\"tomas15\"] = \\\n        \"NK15\" in config[\"operations\"][\"transport\"][\"transported_species\"]\n    run_info[\"tomas40\"] = \\\n        \"NK40\" in config[\"operations\"][\"transport\"][\"transported_species\"]\n\n    return run_info\n\n\ndef get_grid_suffix(resolution):\n    \"\"\"\n    Given a model resolution, returns the grid filename suffix.\n\n    Args\n    resolution : str : Grid resolution (from geoschem_config.yml)\n\n    Returns\n    suffix     : str : The corresponding filename suffix\n    \"\"\"\n    mapping = {\n        \"4.0x5.0\": \"4x5\",\n        \"2.0x2.5\": \"2x25\",\n        \"0.5x0.625\": \"05x0625\",\n        \"0.25x0.3125\": \"025x03125\",\n        \"0.125x0.15625\": \"0125x015625\"\n    }\n    for (key, value) in mapping.items():\n        if key in resolution:\n            return value\n\n    raise ValueError(f\"{resolution} is an invalid grid resolution!\")\n\n\ndef get_nest_suffix(lon_range):\n    \"\"\"\n    Given a model resolution, returns the nested-grid suffix.\n\n    Args\n    resolution : str : Grid resolution (from geoschem_config.yml)\n\n    Returns\n    suffix     : str : The corresponding nested-grid suffix\n    \"\"\"\n    lon_range_str = f\"{lon_range[0]}|{lon_range[1]}\"\n    mapping = {\n        \"-20.0|52.8125\": \"af\",\n        \"60.0|150.0\": \"as\",\n        \"70.0|140.0\": \"as\",\n        \"-30.0|50.0\": \"eu\",\n        \"-15.0|40.0\": \"eu\",\n        \"-20.0|70.0\": \"me\",\n        \"-140.0|-40.0\": \"na\",\n        \"-130.0|-60.0\": \"na\",\n        \"110.0|180.0\": \"oc\",\n        \"-87.8125|-31.25\": \"sa\",\n        \"20.0|180.0\": \"ru\",\n    }\n    for (key, value) in mapping.items():\n        if key in lon_range_str:\n            return value\n    return \"\"\n\n\ndef get_remote_restart_filename(local_prefix, run_info, rst_info):\n    \"\"\"\n    Returns the remote restart file name for a given\n    GEOS-Chem Classic simulation type.\n\n    Args\n    local_prefix : str  : Root data folder (ExtData is a subdir of this)\n    run_info     : dict : Information read from geoschem_config.yml\n    rst_info     : dict : Restart file paths (local and remote), as read\n                          from the download_data.yml configuration file\n    Returns\n    remote_rst   : str  : Path to the remote restart file\n    \"\"\"\n\n    # Simulation type\n    simulation = run_info[\"sim\"].lower()\n\n    # Remote restart file directory\n    root = os.path.join(local_prefix, \"ExtData\", rst_info[\"root\"])\n\n    # Special handling for fullchem\n    if \"fullchem\" in simulation:\n        if run_info[\"tomas15\"] is True:\n            return os.path.join(root, rst_info[\"tomas15\"][\"remote\"])\n        if run_info[\"tomas40\"] is True:\n            return os.path.join(root, rst_info[\"tomas40\"][\"remote\"])\n        return os.path.join(root, rst_info[\"fullchem\"][\"remote\"])\n\n    # Special handling for mercury\n    if \"mercury\" in simulation or \"hg\" in simulation:\n        return os.path.join(root, rst_info[\"mercury\"][\"remote\"])\n\n    # All other simulations use the lowercase simulation name\n    return os.path.join(root, rst_info[simulation][\"remote\"])\n\n\ndef replace_entry_in_list(the_list, old_entry, new_entry):\n    \"\"\"\n    Replaces a string entry in a list with a new entry.\n\n    Args\n    the_list  : list : List of string entries\n    old_entry : str  : Entry to replace\n    new_entry : str  : Replacement text\n\n    Returns\n    the_list  : list : List with modified string entries\n    \"\"\"\n    return list(map(lambda x: x.replace(old_entry, new_entry), the_list))\n\n\ndef expand_restart_file_names(paths, args, run_info):\n    \"\"\"\n    Tests if the GEOS-Chem restart file is a symbolic link to\n    ExtData.  If so, will append the link to the remote file\n    to the line in which the restart file name is found.\n\n    Args\n    paths    : dict : Output from function extract_pathnames_from_log\n    args     : dict : Output from function parse_args\n    run_info : dict : Output from function get_run_info\n    \"\"\"\n\n    # Get the name of the remote restart file for this simulation\n    remote_rst = get_remote_restart_filename(\n        paths[\"local_prefix\"],\n        run_info,\n        args[\"config\"][\"restarts\"]\n    )\n\n    # First, look for the restart file name in the found files\n    do_exit = False\n    for path in paths[\"found\"]:\n        if \"GEOSChem.Restart\" in path:\n            new_path = path + \" --> \" + remote_rst\n            do_exit = True\n            paths[\"found\"] = replace_entry_in_list(\n                paths[\"found\"],\n                path,\n                new_path\n            )\n            break\n    paths[\"found\"] = sorted(paths[\"found\"])\n    if do_exit:\n        return paths\n\n    # Then, look for the restart file name in the missing files\n    for path in paths[\"missing\"]:\n        if \"GEOSChem.Restart\" in path:\n            new_path = path + \" --> \" + remote_rst\n            do_exit = True\n            paths[\"missing\"] = replace_entry_in_list(\n                paths[\"missing\"],\n                path,\n                new_path\n            )\n            break\n    paths[\"missing\"] = sorted(paths[\"missing\"])\n\n    # Return the updated data paths\n    return paths\n\n\ndef write_unique_paths(paths, unique_log):\n    \"\"\"\n    Writes unique data paths from dry-run output to a file.\n\n    Args:\n    paths      : dict : Output from function extract_pathnames_from_log\n    unique_log : str  : Log file that will hold unique data paths\n    \"\"\"\n    combined_paths = paths[\"found\"] + paths[\"missing\"]\n    combined_paths.sort()\n\n    try:\n        with open(unique_log, \"w\", encoding=\"UTF-8\") as ofile:\n            for comment in paths[\"comments\"]:\n                print(comment, file=ofile)\n            for path in combined_paths:\n                print(path, file=ofile)\n            for comment in paths[\"comments\"]:\n                print(comment, file=ofile)\n        ofile.close()\n        print(f\"Log with unique file paths written to: {unique_log}\")\n    except RuntimeError as exc:\n        raise RuntimeError(f\"Could not write {unique_log}\") from exc\n\n\ndef create_download_script(paths, args):\n    \"\"\"\n    Creates a data download script to obtain missing files\n    from the s3://gcgrid bucket on the AWS cloud or from a\n    specified server.\n\n    Args\n    paths : dict : Output from function extract_pathnames_from_log\n    args  : dict : Output from function parse_args.\n    \"\"\"\n\n    # Extract portal parameters\n    portal_name = args[\"portal\"]\n    portal = args[\"config\"][\"portals\"][portal_name]\n    is_s3_bucket = portal[\"s3_bucket\"]\n    remote_root = portal[\"remote\"]\n    quote = portal[\"quote\"]\n    cmd_prefix = portal[\"command\"]\n    if \"@PATH@\" in cmd_prefix:\n        cmd_prefix = cmd_prefix.replace(\"@PATH@\", paths[\"local_prefix\"])\n\n    # Create the data download script\n    with open(DATA_DOWNLOAD_SCRIPT, \"w\", encoding=\"UTF-8\") as ofile:\n\n        def write_linked_gmi_file_to_script(path, old_spc, new_spc):\n            \"\"\"\n            Writes a command to rename a GMI file to the bash script\n            that downloads the data.  This is necessary since some\n            of the GMI files are symlinked.\n\n            Args\n            path    : str : Path of a GMI file\n            old_spc : str : Name of the old species\n            new_spc : str : Name of the new species\n            \"\"\"\n            # Download the PMN file\n            index = path.find(\"ExtData\") + 7\n            local_dir = os.path.dirname(path)\n            remote_path = remote_root + path[index:]\n            remote_path = remote_path.replace(new_spc, old_spc)\n            cmd = cmd_prefix + quote + remote_path + quote\n            if is_s3_bucket:\n                cmd += f\" {local_dir}/\"\n            print(cmd, file=ofile)\n\n            # Rename it to IPMN\n            cmd = f\"mv {local_dir}/gmi.clim.{old_spc}.geos5.2x25.nc\"\n            cmd +=f\" {local_dir}/gmi.clim.{new_spc}.geos5.2x25.nc\"\n            print(cmd, file=ofile)\n            print(file=ofile)\n\n        # Write shebang line to script\n        print(\"#!/bin/bash\\n\", file=ofile)\n        print(\"# This script was generated by download_data.py\\n\", file=ofile)\n\n        # Write download commands for only the missing data files\n        for path in paths[\"missing\"]:\n\n            if \"-->\" in path:\n\n                # ------------------------------------------------------\n                # Edge case: Linked restart files\n                # ------------------------------------------------------\n\n                # First copy the restart file to local ExtData\n                remote_rst = (path.split(\"-->\")[1]).strip()\n                local_rst = (path.split(\"-->\")[0]).strip()\n                index2 = remote_rst.find(\"ExtData\") + 7\n                prefix = local_rst\n                extdata = remote_rst[:index2]\n                remote_rst = remote_root + remote_rst[index2:]\n                cmd = cmd_prefix + quote + remote_rst + quote\n                if is_s3_bucket:\n                    cmd += \" \" + prefix\n                print(cmd, file=ofile)\n                print(file=ofile)\n\n                # If the file does not exist in the run directory,\n                # then copy it from the restart folder.\n                # This only has to be done if not using the amazon portal.\n                if not is_s3_bucket:\n                    if not os.path.exists(local_rst):\n                        index3 = remote_rst.find(\"GEOSCHEM_RESTARTS\")\n                        rst = os.path.join(extdata, remote_rst[index3:])\n                        cmd = \"cp -f \" + rst + \" \" + local_rst\n                        print(cmd, file=ofile)\n                        print(file=ofile)\n\n            elif \"gmi.clim.IPMN.geos5.2x25.nc\" in path:\n\n                # ------------------------------------------------------\n                # Edge case: GMI IPMN file is really the PMN file\n                # ------------------------------------------------------\n                write_linked_gmi_file_to_script(path, \"PMN\", \"IPMN\")\n\n            elif \"gmi.clim.NPMN.geos5.2x25.nc\" in path:\n\n                # ------------------------------------------------------\n                # Edge case: GMI NPMN file is really the PMN file\n                # ------------------------------------------------------\n                write_linked_gmi_file_to_script(path, \"PMN\", \"NPMN\")\n\n            elif \"gmi.clim.RIPA.geos5.2x25.nc\" in path:\n\n                # ------------------------------------------------------\n                # Edge case: GMI RIPA file is really the RIP file\n                # ------------------------------------------------------\n                write_linked_gmi_file_to_script(path, \"RIP\", \"RIPA\")\n\n            elif \"gmi.clim.RIPB.geos5.2x25.nc\" in path:\n\n                # ------------------------------------------------------\n                # Edge case: GMI RIPB file is really the RIP file\n                # ------------------------------------------------------\n                write_linked_gmi_file_to_script(path, \"RIP\", \"RIPB\")\n\n            elif \"gmi.clim.RIPD.geos5.2x25.nc\" in path:\n\n                # ------------------------------------------------------\n                # Edge case: GMI RIPD file is really the RIP file\n                # ------------------------------------------------------\n                write_linked_gmi_file_to_script(path, \"RIP\", \"RIPD\")\n\n            elif \"ExtData\" in path:\n\n                # ------------------------------------------------------\n                # All other files in ExtData\n                # ------------------------------------------------------\n                index = path.find(\"ExtData\") + 7\n                local_dir = os.path.dirname(path)\n                remote_path = remote_root + path[index:]\n                cmd = cmd_prefix + quote + remote_path + quote\n                if is_s3_bucket:\n                    cmd += \" \" + local_dir + \"/\"\n                print(cmd, file=ofile)\n                print(file=ofile)\n\n        # Kludge: Create a ExtData/CHEM_INPUTS folder if it\n        # does not exist. This will prevent abnormal exits.\n        if \"ExtData\" in paths[\"local_prefix\"]:\n            chem_dir = paths[\"local_prefix\"] + '/CHEM_INPUTS'\n        else:\n            chem_dir = paths[\"local_prefix\"] + '/ExtData/CHEM_INPUTS'\n\n        cmd = f\"if [[ ! -d {chem_dir} ]]; then mkdir {chem_dir}; fi\"\n        print(cmd, file=ofile)\n        print(file=ofile)\n\n        # Close file and make it executable\n        ofile.close()\n        os.chmod(DATA_DOWNLOAD_SCRIPT, 0o755)\n\n\ndef download_the_data(args):\n    \"\"\"\n    Downloads GEOS-Chem data files from the AWS s3://gcgrid bucket\n    or from a specified server.\n\n    Args\n    args : dict : Output of runction parse_args.\n    \"\"\"\n\n    # Get information about the run\n    run_info = get_run_info()\n\n    # Get a unique list of data paths, both found and missing:\n    # Expand the data paths to include links to restart files\n    paths = extract_pathnames_from_log(args)\n    paths = expand_restart_file_names(paths, args, run_info)\n\n    # Write a list of unique file paths\n    write_unique_paths(paths, args[\"dryrun_log\"] + \".unique\")\n\n    # Exit without downloading if skip-download flag was specified\n    if args[\"skip_download\"]:\n        return\n\n    # Print a message\n    if len(args[\"portal\"]) > 0:\n        print(f\"Downloading data from {args['portal']}\")\n\n    # Create script to download missing files from AWS S3\n    create_download_script(paths, args)\n\n    #### DEBUG: Uncomment this if you wish to see the download script\n    #### and also comment out the previous 'if args[\"skip_download\"]'\n    #### statement above\n    #if args[\"skip_download\"]:\n    #    return\n\n    # Run the data download script and return the status\n    # Remove the file afterwards\n    status = subprocess.call(DATA_DOWNLOAD_SCRIPT)\n    os.remove(DATA_DOWNLOAD_SCRIPT)\n\n    # Raise an exception if the data was not successfully downloaded\n    if status != 0:\n        msg = f\"Error downloading data from {args['portal']}\"\n        raise RuntimeError(msg)\n\n\ndef parse_args():\n    \"\"\"\n    Reads global settings from the download_data.yml configuration file.\n    Also parses command-line arguments and returns a dictionary\n    containing all of these settings.\n\n    Returns:\n    args : dict\n        args[\"config\"] : Dict with global settings from download_data.yml\n        args[\"dryrun_log\"] Name of the GEOS-Chem dry-run log file\n        args[\"portal\"]: Name of the remote portal for download\n        args[\"skip_download\"]: Are we skipping the download? (T/F)\n    \"\"\"\n    dryrun_log = None\n    dryrun_found = False\n    portal_found = False\n    portal_remote = None\n    skip_download = False\n    skip_found = False\n\n    # Read the YAML configuration file\n    config = read_config_file(\"download_data.yml\")\n\n    # Get a list of portal names + short names\n    portal_list = list(config[\"portals\"].keys())\n    short_name_list = []\n    for mir in portal_list:\n        short_name_list.append(config[\"portals\"][mir][\"short_name\"])\n\n    # Parse command-line arguments (argument 0 is the program name)\n    for i in range(1, len(sys.argv)):\n        arg = sys.argv[i]\n\n        if not dryrun_found:\n            dryrun_log = arg\n            dryrun_found = True\n            continue\n\n        # Normalize arguments other than dryrun_log\n        arg = arg.lower().lstrip('-')\n\n        if not portal_found:\n            for mir in portal_list:\n                portal = mir.lower()\n                short_name = config[\"portals\"][mir][\"short_name\"].lower()\n                if arg in portal or arg in short_name:\n                    portal_remote = portal\n                    portal_found = True\n                    continue\n\n        if not skip_found:\n            if \"skip\" in arg:\n                skip_download = True\n                skip_found = True\n                continue\n\n    if dryrun_log is None:\n        msg = \"The dryrun log file was not supplied!  Exiting ...\"\n        raise ValueError(msg)\n\n    if portal_remote is None and not skip_download:\n        msg = \"Portal name missing or invalid!  Exiting ...\"\n        raise ValueError(msg)\n\n    args = {\n        \"config\": config,\n        \"dryrun_log\": dryrun_log,\n        \"portal\": portal_remote,\n        \"skip_download\": skip_download\n    }\n    return args\n\n\ndef main():\n    \"\"\"\n    Main program.  Gets command-line arguments and calls function\n    download_the_data to initiate a data-downloading process.\n\n    Calling sequence\n    ./download_data.py log PORTAL-NAME\n    ./download_data.py log -skip-download  # Print unique log & exit\n    \"\"\"\n\n    # Download the data files from the remote server\n    download_the_data(parse_args())\n\n\nif __name__ == \"__main__\":\n    main()\n"
  },
  {
    "path": "run/shared/download_data.yml",
    "content": "---\n#\n# Configuration file for the download_data.py script.\n# You should not have to modify this file unless a new data portal\n# comes online, or the default restart files are updated.\n#\n#\n# GEOS-Chem data portals\nportals:\n\n  # GEOS-Chem Input Data portal, download via AWS CLI\n  geoschem+aws:\n    short_name: ga\n    s3_bucket: True\n    remote: s3://geos-chem\n    command: 'aws s3 cp --no-sign-request '\n    quote: \"\"\n\n  # GEOS-Chem Input Data portal, download via HTTP/wget\n  # NOTE: Use geoschemdata.wustl.edu as a backup\n  geoschem+http:\n    short_name: gh\n    s3_bucket: False\n    remote: https://geos-chem.s3-us-west-2.amazonaws.com\n    #remote: http://geoschemdata.wustl.edu/ExtData\n    command: 'wget -r -np -nH -R \"*.html\" -N -P @PATH@ '\n    quote: '\"'\n\n  # GEOS-Chem Nested Input Data portal, download via AWS CLI\n  nested+aws:\n    short_name: na\n    s3_bucket: True\n    remote: s3://gcgrid\n    command: 'aws s3 cp --no-sign-request '\n    quote: \"\"\n\n  # GEOS-Chem Nested Input Data portal, download via HTTP/wget\n  nested+http:\n    short_name: nh\n    s3_bucket: False\n    remote: https://gcgrid.s3.amazonaws.com/\n    command: 'aws s3 cp '\n    quote: \"\"\n\n  # GCAP 2.0 @ U. Rochester data portal, download via HTTP/wget\n  rochester:\n    short_name: ur\n    s3_bucket: False\n    remote: http://atmos.earth.rochester.edu/input/gc/ExtData\n    command: 'wget -r -np -nH -R \"*.html\" -N --cut-dirs=2 -P @PATH@ '\n    quote: '\"'\n\n\n# GEOS-Chem restart file paths\nrestarts:\n  root: GEOSCHEM_RESTARTS\n  aerosol:\n    remote: GC_14.7.0/GEOSChem.Restart.fullchem.20190701_0000z.nc4\n    local:  GEOSChem.Restart.20190701_0000z.nc4\n  carbon:\n    remote: GC_14.7.0/GEOSChem.Restart.carbon.20190101_0000z.nc4\n    local:  GEOSChem.Restart.20190101_0000z.nc4\n  fullchem:\n    remote: GC_14.7.0/GEOSChem.Restart.fullchem.20190701_0000z.nc4\n    local:  GEOSChem.Restart.20190701_0000z.nc4\n  metals:\n    remote: v2021-06/GEOSChem.Restart.metals.20110101_0000z.nc4\n    local:  GEOSChem.Restart.20110101_0000z.nc4\n  mercury:\n    remote: v2023-12/GEOSChem.Restart.Hg.20190101_0000z.nc4\n    local:  GEOSChem.Restart.20190101_0000z.nc4\n  pops:\n    remote: v2020-02/GEOSChem.Restart.POPs_BaP.20190701_0000z.nc4\n    local:  GEOSChem.Restart.20190701_0000z.nc4\n  tago3:\n    remote: GC_14.7.0/GEOSChem.Restart.fullchem.20190701_0000z.nc4\n    local:  GEOSChem.Restart.20190701_0000z.nc4\n  tomas15:\n    remote: v2021-12/GEOSChem.Restart.TOMAS15.20190701_0000z.nc4\n    local:  GEOSChem.Restart.20190701_0000z.nc4\n  tomas40:\n    remote: v2021-12/GEOSChem.Restart.TOMAS40.20190701_0000z.nc4\n    local:  GEOSChem.Restart.20190701_0000z.nc4\n  transporttracers:\n    remote: GC_14.7.0/GEOSChem.Restart.TransportTracers.20190101_0000z.nc4\n    local:  GEOSChem.Restart.20190101_0000z.nc4\n"
  },
  {
    "path": "run/shared/input.apm",
    "content": "BC_LIFEAPM,OC_LIFEAPM,FHB,FHO,D0CONV\n10.0,10.0,0.2,0.5,10.0\nIFNOBCOCFF  (1=yes, 0=no, 2=noBCFF only)\n0\nIFCOAT, IFCOATBC (1=yes, 0=no)\n1, 1\nIFALBMODIS (1=yes, 0=no)\n0\nIFAEROCOMOUT\n0\nIFCURRENT\n1\nIFRADF, IFOPT (1=yes, 0=no; 2=OPT without AOD simulation)\n0, 1\nZ_R1,Z_SIGMA1,Z_R2,Z_SIGMA2 (BCOC size distribution parameters, Z_R in m)\n4.0d-8,1.8,7.5d-8,1.8\nDENBC (density of BC in kg/m3)\n1800.0\nSEASCHEM (1=Clarke; 2=Gong)\n2\nFSALTSCAL (only when SEASCHEM=2, 4x5-->2.5 and 2x2.5 -->1.7), IFSSTSCALE (1=add sst scale factor)\n1.5, 1\nIFAMINEUP, AGAMA, ERATIO, OXRATE\n1, 0.01, 202.316, 3.58d-11\nIFATHN (=1 yes; =0 no), NUCLAMINE (=1, MMA; =2, DMA; =3, TMA; =4, MMA+DMA+TMA)\n0, 2\nIFCDNPDF, IFNEWCOD (0=geos COD; 2= online COD)\n0, 0\nIFNEWSF\n0\nIFNEWN2O5\n0\nIFDOISRP (0: only MESA; 1: only ISRP; 2: MESA+ISRP=>MESA; 3: MESA+ISRP=>ISRP; 4: only ISRPorg)\n1\nIFMODISOUT\n0\nIFONLINEMET\n0\nIFNH3\n1\nIFATOM\n0, 7, 27, 9, 1\nIFSEABIRD\n0\nIFNUCL, IFNUCLORG\n1, 0\n"
  },
  {
    "path": "run/shared/kpp_standalone_interface.yml",
    "content": "---\n# ============================================================================\n# Configuration file for the KPP-Standalone Interface.\n#\n# This file specifies at which locations we will archive the model\n# state so that we can initialize KPP-Standalone Box Model simulations.\n# ============================================================================\n\n# ------------------------------------\n# General settngs\n# ------------------------------------\nsettings:\n  activate: false                      # Main on/off switch\n  start_output_at: [19000101, 000000]  # Save model state for KPP standalone\n  stop_output_at:  [21000101, 000000]  # ... if between these 2 datetimes\n  output_directory: \"./OutputDir/\"     # This directory should already exist\n  levels:                              # Model levels to archive\n    - 1\n    - 2\n    - 10\n    - 23\n    - 35\n    - 48\n    - 56\n\n# ------------------------------------\n# Where to archive model state?\n# ------------------------------------\nactive_cells:\n  - Alert\n  - Amazon\n  - AtlanticOcean\n  - Beijing\n  - Borneo\n  - Boulder\n  - Broadmeadows\n  - Congo\n  - DeBilt\n  - Edmonton\n  - ElDjouf\n  - Eureka\n  - Graciosa\n  - GooseBay\n  - HiloHawaii\n  - Hohenpeissenberg\n  - Kennaook\n  - Kinshasa\n  - IndianOcean\n  - Lauder\n  - Legionowo\n  - Lindenberg\n  - LosAngeles\n  - MacquarieIsland\n  - McMurdo\n  - NahaOkinawa\n  - Nairobi\n  - Ozarks\n  - PacificOcean\n  - Paramibo\n  - Paris\n  - Payerne\n  - Reunion\n  - Sapporo\n  - Sodankyla\n  - Syowa\n  - TatenoTsukuba\n  - TrinidadHead\n  - Uccle\n  - Utqiagvik\n  - WallopsIsland\n\n# ------------------------------------\n# Active cell geographic coordinates\n# ------------------------------------\nlocations:\n  Alert:\n    latitude: 82.5\n    longitude: -62.3\n  Amazon:\n    latitude: -3.4653\n    longitude: -62.2159\n  AtlanticOcean:\n    latitude: 34.707874\n    longitude: -41.574755\n  Beijing:\n    latitude: 39.9042\n    longitude: 116.4074\n  Borneo:\n    latitude: 0.0\n    longitude: 114.0\n  Boulder:\n    latitude: 39.99\n    longitude: -105.26\n  Broadmeadows:\n    latitude: -37.69\n    longitude: 114.95\n  Congo:\n    latitude: -5.9175\n    longitude: 12.5484\n  DeBilt:\n    latitude: 52.1\n    longitude: 5.18\n  Edmonton:\n    latitude: 53.55\n    longitude: -114.1\n  ElDjouf:\n    latitude: 21.5008\n    longitude: -6.6661\n  Eureka:\n    latitude: 80.05\n    longitude: -86.42\n  Graciosa:\n    latitude: 39.0525\n    longitude: -28.0069\n  GooseBay:\n    latitude: 53.29:\n    longitude: -60.39:\n  HiloHawaii:\n    latitude: 19.58\n    longitude: -155.07\n  Hohenpeissenberg:\n    latitude: 47.8\n    longitude: 11.0\n  Kennaook:\n    latitude: -40.6833\n    longitude: 144.6833\n  Kinshasa:\n    latitude: -4.3033\n    longitude: 15.3105\n  IndianOcean:\n    latitude: 23.0\n    longitude: 87.2\n  Lauder:\n    latitude: -45.05\n    longitude: 169.68\n  Legionowo:\n    latitude: 52.4\n    longitude: 20.97\n  Lindenberg:\n    latitude: 52.22\n    longitude: 14.12\n  LosAngeles:\n    latitude: 34.0522\n    longitude: -118.243\n  MacquarieIsland:\n    latitude: -54.5\n    longitude: 158.94\n  McMurdo:\n    latitude: -77.8455\n    longitude: 166.6698\n  NahaOkinawa:\n    latitude: 26.21\n    longitude: 127.69\n  Nairobi:\n    latitude: -1.3\n    longitude: 36.8\n  Ozarks:\n    latitude: 37.502\n    longitude: -91.259\n  PacificOcean:\n    latitude: 0.0\n    longitude: -121.964508\n  Paramibo:\n    latitude: 5.806\n    longitude: -55.214\n  Paris:\n    latitude: 48.8566\n    longitude: 2.3522\n  Payerne:\n    latitude: 46.81\n    longitude: 6.94\n  Reunion:\n    latitude: -21.1\n    longitude: 55.5\n  Sapporo:\n    latitude: 43.06\n    longitude: 141.33\n  Sodankyla:\n    latitude: 67.36\n    longitude: 26.63\n  Syowa:\n    latitude: -69.0\n    longitude: 39.58\n  TatenoTsukuba:\n    latitude: 36.06\n    longitude: 140.13\n  TrinidadHead:\n    latitude: 41.05\n    longitude: -124.15\n  Uccle:\n    latitude: 50.8\n    longitude: 4.36\n  Utqiagvik:\n    latitude: 71.2906\n    longitude: -156.7886\n  WallopsIsland:\n    latitude: 37.94\n    longitude: -75.46\n"
  },
  {
    "path": "run/shared/metrics.py",
    "content": "#!/usr/bin/env python3\n\"\"\"\nPrints key metrics (e.g. global mean OH, MCF lifetime, and CH4 lifetimes)\nfor a GEOS-Chem full-chemistry simulation or methane simulation.\nRequires Python3.\n\nCalling sequence:\n-----------------\n./metrics.py\n\"\"\"\n# =====================================================================\n# %%% IMPORTS ETC. %%%\n# =====================================================================\nimport os\nimport sys\nimport warnings\nimport numpy as np\nimport xarray as xr\nimport yaml\n\n# Tell matplotlib not to look for an X-window\nos.environ[\"QT_QPA_PLATFORM\"] = \"offscreen\"\n\n# Suppress harmless run-time warnings (mostly about underflow in division)\nwarnings.filterwarnings(\"ignore\", category=RuntimeWarning)\nwarnings.filterwarnings(\"ignore\", category=UserWarning)\n\n# =====================================================================\n# %%% GLOBAL VARIABLES %%%\n# =====================================================================\n\n# Molecular weights (get from species database)\nspec_db = yaml.load(open(\"./species_database.yml\"), Loader=yaml.FullLoader)\nmw_ch4_kg = spec_db[\"CH4\"][\"MW_g\"] * 1.0e-3\nmw_oh_kg = spec_db[\"OH\"][\"MW_g\"] * 1.0e-3\nmw_air_kg = 28.9644e-3                        # Same value as in GEOS-Chem\n\n# Physical constants and conversion factors\navogadro = 6.022140857e+23                    # Same value as in GEOS-Chem\nm3_to_cm3 = 1.0e6\ns_per_yr = np.float64(86400.0) * np.float64(365.25)\nten_to_minus_5 = np.float64(1.0e-5)\nkg_to_m_ch4 = mw_ch4_kg / avogadro\n\n# =====================================================================\n# %%% METHODS %%%\n# =====================================================================\n\ndef combine_dataset(file_list=None):\n    \"\"\"\n    Wrapper for xarray.open_mfdataset, taking into account the\n    extra arguments needed in xarray 0.15 and later.\n\n    Args:\n    -----\n        file_list : list of str\n\n    Returns:\n    --------\n        ds : xarray Dataset\n    \"\"\"\n\n    # netCDF variables that we should skip reading\n    # (These are from older versions of GCHP output)\n    skip_these_vars = [\"anchor\",\n                       \"ncontact\",\n                       \"orientation\",\n                       \"contacts\",\n                       \"cubed_sphere\"]\n\n    # Return a single Dataset containing data from all MeanOH files.\n    # NOTE: Need to add combine=\"nested\" and concat_dim=\"time\"\n    # for xarray 0.15 and higher!!!\n    v = xr.__version__.split(\".\")\n    if int(v[0]) == 0 and int(v[1]) >= 15:\n        try:\n            ds = xr.open_mfdataset(\n                file_list,\n                drop_variables=skip_these_vars,\n                combine=\"nested\",\n                concat_dim=\"time\"\n            )\n        except FileNotFoundError:\n            msg = \"Could not find one or more files in {}\".format(file_list)\n            raise FileNotFoundError(msg)\n    else:\n        try:\n            ds = xr.open_mfdataset(\n                file_list,\n                drop_variables=skip_these_vars\n            )\n        except FileNotFoundError:\n            msg = \"Could not find one or more files in {}\".format(file_list)\n            raise FileNotFoundError(msg)\n\n    return ds\n\n\ndef ch4_or_fullchem(ds):\n    \"\"\"\n    Determines if a Dataset contains variables for computing\n    metrics from a CH4 simulation or a fullchem simulation.\n\n    Args:\n    -----\n        ds : xarray Dataset\n\n    Returns:\n    --------\n        is_ch4_sim : bool\n    \"\"\"\n\n    # CH4 and fullchem simulations have these variables\n    common_vars = [\n        \"AirMassColumnFull\",\n        \"LossOHbyCH4columnTrop\",\n        \"LossOHbyMCFcolumnTrop\",\n        \"OHwgtByAirMassColumnFull\",\n    ]\n\n    # CH4 simulations also have these variables\n    extra_vars_ch4 = [\n        \"CH4emission\",\n        \"CH4massColumnFull\",\n        \"CH4massColumnTrop\",\n    ]\n\n    # Keep a count\n    count = 0\n\n    # Look for the common variables in the dataset\n    for v in common_vars:\n        if v in ds.data_vars.keys():\n            count += 1\n\n    # Look for the CH4-only variables in the dataset\n    for v in extra_vars_ch4:\n        if v in ds.data_vars.keys():\n            count += 1\n\n    if count == len(common_vars):\n        is_ch4_sim = False\n    elif count == len(common_vars) + len(extra_vars_ch4):\n        is_ch4_sim = True\n    else:\n        msg = \"The '{}' diagnostic is not in this dataset!\".format(v)\n        raise ValueError(msg)\n\n    return is_ch4_sim\n\n\ndef read_metrics_collection(data_dir):\n    \"\"\"\n    Reads data from all \"Metrics\" collection netCDF files\n    into a single xarray Dataset.\n\n    Args:\n    -----\n        data_dir : str\n            Directory containing data files.\n            Default: \"./OutputDir\".\n\n    Returns:\n    --------\n        ds : xarray Dataset\n    \"\"\"\n\n    # Find a list of all MeanOH collection files in data_dir.\n    # Walk through subdirectories of data_dir if they exist.\n    file_list = []\n    for root, dirs, files in os.walk(data_dir):\n        if len(dirs) > 0:\n            for d in dirs:\n                for f in files:\n                    if \".Metrics.\" in f:\n                        file_list.append(os.path.join(root, d, f))\n        else:\n            for f in files:\n                if \".Metrics.\" in f:\n                    file_list.append(os.path.join(root, f))\n\n    # Combine data into a single dataset\n    # Exit if we do not have all necessary metrics variables\n    ds = combine_dataset(file_list)\n\n    return ds\n\n\ndef total_airmass(ds):\n    \"\"\"\n    Computes the total airmass (in both kg and molec).\n\n    Args:\n    -----\n        ds : xarray Dataset\n\n    Returns:\n    --------\n        sum_airmass_kg, sum_airmass_m: numpy float64\n    \"\"\"\n    sum_airmass_kg = np.nansum(ds[\"AirMassColumnFull\"].values)\n    sum_airmass_m = sum_airmass_kg * (avogadro / mw_air_kg)\n\n    return sum_airmass_kg, sum_airmass_m\n\n\ndef global_mean_oh(sum_airmass_kg, ds):\n    \"\"\"\n    Computes the global mean OH concentration (1e5 molec cm-3)\n\n    Args:\n    -----\n        sum_airmass_kg : numpy float64\n        ds : xarray Dataset\n\n    Returns:\n    --------\n        sum_mean_oh : numpy float64\n    \"\"\"\n    # Divide out total airmass to get total mean OH concentration [kg m-3]\n    # Then convert mean OH from [kg m-3] to [1e5 molec cm-3]\n    sum_mean_oh = np.nansum(ds[\"OHwgtByAirMassColumnFull\"].values)\n    sum_mean_oh = (sum_mean_oh / sum_airmass_kg)\n    sum_mean_oh *= (avogadro / (mw_oh_kg * m3_to_cm3)) * ten_to_minus_5\n\n    return sum_mean_oh\n\n\ndef lifetimes_wrt_oh(sum_airmass_m, ds):\n    \"\"\"\n    Computes the lifetimes (in years) of CH4 and CH3CCl3 (aka MCF)\n    against tropospheric OH.\n\n    Args:\n    -----\n        sum_airmass_m : numpy float64\n        ds : xarray Dataset\n\n    Returns:\n    --------\n        ch4_life_wrt_oh, mcf_life_wrt_oh : numpy float64\n    \"\"\"\n    # Loss of OH by CH4+OH and MCF+OH reactions [molec]\n    oh_loss_by_ch4 = np.nansum(ds[\"LossOHbyCH4columnTrop\"].values)\n    oh_loss_by_mcf = np.nansum(ds[\"LossOHbyMCFcolumnTrop\"].values)\n\n    # CH4 and MCF lifetimes against OH [years]\n    ch4_life_wrt_oh = (sum_airmass_m / oh_loss_by_ch4) / s_per_yr\n    mcf_life_wrt_oh = (sum_airmass_m / oh_loss_by_mcf) / s_per_yr\n\n    return ch4_life_wrt_oh, mcf_life_wrt_oh\n\n\ndef overall_ch4_lifetimes(ds):\n    \"\"\"\n    Computes the overall lifetimes (in years) of CH4 (accounting for\n    emissions) in the full-atmosphere and in the troposphere.\n\n    Args:\n    -----\n        ds : xarray Dataset\n\n    Returns:\n    --------\n        ch4_life_full, ch4_life_trop : numpy float64\n    \"\"\"\n    # Sum of CH4 emissions [kg/s]\n    ch4_emis = np.nansum(ds[\"CH4emission\"])\n\n    # CH4 mass in full-atm column and trop-only column [kg]\n    ch4_mass_full = np.nansum(ds[\"CH4massColumnFull\"].values)\n    ch4_mass_trop = np.nansum(ds[\"CH4massColumnTrop\"].values)\n\n    # CH4 overall lifetimes [years] in full-atmosphere and troposphere\n    ch4_life_full = (ch4_mass_full / ch4_emis) / s_per_yr\n    ch4_life_trop = (ch4_mass_trop / ch4_emis) / s_per_yr\n\n    return ch4_life_full, ch4_life_trop\n\n\ndef get_start_and_end_dates(ds):\n    \"\"\"\n    Gets the start and end dates of a GEOS-Chem Classic or\n    a GCHP simulation.\n\n    Args:\n    -----\n        ds : xarray Dataset\n\n    Returns:\n    --------\n        start, end : str\n     \"\"\"\n    # Get start and end date of simulation for GCHP or GEOS-Chem Classic\n    if \"nf\" in ds.dims:\n        is_gcc = False\n        with open(\"./setCommonRunSettings.sh\", \"r\") as settings_file:\n            for line in settings_file:\n                if \"Run_Duration=\" in line:\n                    substrs = (line.rstrip()).split('=')\n                    duration = (substrs[1].replace('\"',' ')).lstrip()\n        start = duration # set start to duration to return it from this function\n        with open(\"./cap_restart\", \"r\") as cap_file:\n            for line in cap_file:\n                end = line.rstrip() + \"z\"\n    else:\n        is_gcc = True\n        start = ds.attrs[\"simulation_start_date_and_time\"]   # GC-Classic\n        end = ds.attrs[\"simulation_end_date_and_time\"]\n\n    return start, end, is_gcc\n\n\ndef print_metrics(ds, is_ch4_sim=False):\n    \"\"\"\n    Prints the mass-weighted mean OH (full atmospheric column)\n    from a GEOS-Chem simulation.\n\n    Args:\n    -----\n        ds : xarray Dataset\n        is_ch4_sim : bool\n    \"\"\"\n\n    # Get total airmasses ([kg] and [molec])\n    sum_airmass_kg, sum_airmass_m = total_airmass(ds)\n\n    # Get mean OH [1e-5 molec cm-3]\n    mean_oh = global_mean_oh(sum_airmass_kg, ds)\n\n    # Get lifetimes of CH4 and MCF against tropospheric OH [years]\n    ch4_life_wrt_oh, mcf_life_wrt_oh = lifetimes_wrt_oh(sum_airmass_m, ds)\n\n    # Get overall lifetime of CH4 in full-atm and in trop [years[\n    if is_ch4_sim:\n        ch4_life_full, ch4_life_trop = overall_ch4_lifetimes(ds)\n\n    # Get start and end dates of the simulation\n    start, end, is_gcc = get_start_and_end_dates(ds)\n\n    # Print results\n    print(\"=\"*78)\n    if is_ch4_sim:\n        print(\"GEOS-Chem METHANE SIMULATION METRICS\\n\")\n    else:\n        print(\"GEOS-Chem FULL-CHEMISTRY SIMULATION METRICS\\n\")\n    if is_gcc:\n        print(\"Simulation start    : {}\".format(start))\n    else:\n        print(\"Simulation duration : {}\".format(start))\n    print(\"Simulation end      : {}\".format(end))\n    print(\"=\"*78, \"\\n\")\n    msg = \"Mass-weighted mean OH concentration    = {:.11f} \".format(mean_oh)\n    msg += \"x 10^5 molec cm-3\\n\"\n    print(msg)\n    msg = \"CH3CCl3 lifetime w/r/t tropospheric OH = {:.4f} years\\n\".format(\n        mcf_life_wrt_oh)\n    print(msg)\n    msg = \"CH4 lifetime w/r/t tropospheric OH     = {:.4f} years\\n\".format(\n        ch4_life_wrt_oh)\n    print(msg)\n\n    # These metrics are only valid for the CH4 simulation\n    if is_ch4_sim:\n        msg = \"CH4 total lifetime (full atmosphere)   = {:.4f} years\\n\".format(\n            ch4_life_full)\n        print(msg)\n        msg = \"CH4 total lifetime (troposphere only)  = {:.4f} years\\n\".format(\n            ch4_life_trop)\n        print(msg)\n\n\ndef main():\n    \"\"\"\n    Main program.  Calls all functions.\n    \"\"\"\n    # Get the data directory from the passed arguments\n    n_args = len(sys.argv)\n    if n_args == 1:\n        data_dir = \"./OutputDir\"\n    elif n_args == 2:\n        data_dir = sys.argv[1]\n    else:\n        raise ValueError(\"Usage: metrics.py DIRECTORY-NAME\")\n\n    # Combine all metrics output into a single Dataset\n    ds = read_metrics_collection(data_dir)\n\n    # Determine if this dataset is for a CH4 simulation\n    # Otherwise, assume it is a full-chemistry simulation\n    is_ch4_sim = ch4_or_fullchem(ds)\n\n    # Print metrics information\n    print_metrics(ds, is_ch4_sim)\n\n\nif __name__ == \"__main__\":\n    main()\n"
  },
  {
    "path": "run/shared/newUserRegistration.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: newUserRegistration.sh\n#\n# !DESCRIPTION: Defines utility functions for first-time GEOS-Chem\n#  user registration.  This code has been been abstracted out of\n#  run/GCClassic/createRunDir.sh and run/GCHP/createRundir.sh.\n#\\\\\n#\\\\\n# !REVISION HISTORY:\n#  See the subsequent Git history with the gitk browser!\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n####=========================================================================\n#### Common variables\n####==========================================================================\n\n# User prompt for reading in data\nUSER_PROMPT=\">>> \"\n\n####=========================================================================\n#### Send registration details to AWS database via curl\n####==========================================================================\nfunction postRegistration() {\n    #### Sends registration details to API ####\n    curl --location --request POST \"https://gc-dashboard.org/registration\" \\\n        --header \"Content-Type: text/plain\" \\\n        -d \"{\n            \\\"email\\\":             \\\"${1}\\\",\n            \\\"name\\\":              \\\"${2}\\\",\n            \\\"affiliation\\\":       \\\"${3}\\\",\n            \\\"name_of_pi\\\":        \\\"${4}\\\",\n            \\\"site\\\":              \\\"${5}\\\",\n            \\\"git_username\\\":      \\\"${6/\\@/}\\\",\n            \\\"research_interest\\\": \\\"${7}\\\",\n            \\\"model_type\\\":        \\\"${8}\\\",\n            \\\"env_type\\\":          \\\"${9}\\\"\n        }\"\n}\n\n####=========================================================================\n#### Read an entry from the command line\n####==========================================================================\nfunction userInput() {\n\n    # Keep asking for the input until user enters a non-blank input\n    while [[ -z \"${val}\" ]]; do\n        IFS='\\n' read -r -p \"${USER_PROMPT}\" val\n    done\n\n    # Return the answer\n    printf \"${val}\"\n}\n\n####=========================================================================\n#### Query user to provide registration information\n####\n#### NOTE: See https://www.baeldung.com/linux/ifs-shell-variable\n#### for a description of what the IFS variable below does\n####==========================================================================\nfunction registerNewUser() {\n\n    # Pass the model type from the GCClassic or GCHP createRunDir.sh script\n    model_type=\"${1}\"\n\n    # Ask user several questions\n    printf \"\\nInitiating User Registration:\\n\"\n    printf \"You will only need to fill this information out once.\\n\"\n    printf \"Please respond to all questions.  Registration is required \\n\"\n    printf \"in order to receive GEOS-Chem support.\\n\"\n\n    printf \"${thinline}What is your name (first and last)?${thinline}\"\n    name=$(userInput)\n\n    # Ask for email\n    printf \"${thinline}What is your email address?${thinline}\"\n    email=$(userInput)\n\n    printf \"${thinline}What is the name of your research institution?${thinline}\"\n    institution=$(userInput)\n\n    printf \"${thinline}What is the name of your principal invesigator?\\n\"\n    printf \"(Enter 'self' if you are the principal investigator.)${thinline}\"\n    name_of_pi=$(userInput)\n\n    printf \"${thinline}Please provide the web site for your institution\\n\"\n    printf \"(group website, company website, etc.)?${thinline}\"\n    site=$(userInput)\n\n    printf \"${thinline}Please provide your github username (if any) so that we\\n\"\n    printf \"can recognize you in submitted issues and pull requests.${thinline}\"\n    git_username=$(userInput)\n\n    printf \"${thinline}Where do you plan to run GEOS-Chem?\\n\"\n    printf \"(e.g. local compute cluster, AWS, other supercomputer)?${thinline}\"\n    env_type=$(userInput)\n\n    printf \"${thinline}Please briefly describe how you plan on using GEOS-Chem\\n\"\n    printf \"so that we can add you to 'GEOS-Chem People and Projects'\\n\"\n    printf \"(https://geoschem.github.io/geos-chem-people-projects-map/)\"\n    printf \"${thinline}\"\n    research_interest=$(userInput)\n\n    # Send information to database on AWS\n    postRegistration \"${email}\"             \"${name}\"       \"${institution}\"  \\\n                     \"${name_of_pi}\"        \"${site}\"       \"${git_username}\" \\\n                     \"${research_interest}\" \"${model_type}\" \"${env_type}\"\n\n    # Update the .geoschem/config file and apply settings\n    echo \"export GC_USER_REGISTERED=true\" >> \"${HOME}/.geoschem/config\"\n    . ${HOME}/.geoschem/config\n}\n"
  },
  {
    "path": "run/shared/rtd_species_by_simulation.py",
    "content": "#!/usr/bin/env python3\n\"\"\"\nCreates a ReadTheDocs-style list table containing a list of species\nfor a given type of GEOS-Chem simulation.\n\nCalling sequence:\n$ python -m rtd_species_by_simulation SIMULATION-NAME TABLE-FILE\n\"\"\"\nimport os\nfrom sys import argv\nfrom yaml import safe_load\nfrom gcpy.constants import ENCODING\nfrom gcpy.util import read_config_file, verify_variable_type\n\n# Constants\nGC_CONFIG = \"../GCClassic/geoschem_config.yml.templates/geoschem_config.yml.\"\nSPECIES_DB = \"./species_databaseXX.yml\"\nKPP_FILE = \"../../KPP/XX/XX.eqn\"\n\n\ndef read_species_from_eqn_file(simulation_name):\n    \"\"\"\n    Reads a geoschem_config.yml template file for a given GEOS-Chem\n    simulation and returns the list of transported species\n\n    Args\n    simulation_name     : str : Name of the GEOS-Chem simulation\n\n    returns\n    transported_species : list : List of transported species\n    \"\"\"\n    verify_variable_type(simulation_name, str)\n\n    # Read YAML file, replacing variables with placeholder text\n    filename = os.path.expanduser(f\"{KPP_FILE}\").replace(\n        \"XX\", simulation_name\n    )\n\n    # Species contain the word IGNORE; take the 1st substring\n    species = []\n    with open(filename, 'r', encoding=ENCODING) as ifile:\n        for line in ifile:\n            line = line.strip()\n            if \"IGNORE\" in line:\n                species.append(line.split(\"=\")[0].strip())\n\n    return species\n\n\ndef read_transported_species(simulation_name):\n    \"\"\"\n    Reads a geoschem_config.yml template file for a given GEOS-Chem\n    simulation and returns the list of transported species\n\n    Args\n    simulation_name     : str : Name of the GEOS-Chem simulation\n\n    returns\n    transported_species : list : List of transported species\n    \"\"\"\n    verify_variable_type(simulation_name, str)\n\n    # We need to define fake values for the various environment\n    # variables in order to be able to read these with PyYaml\n    os.environ['RUNDIR_SIM_NAME'] = 'X'\n    os.environ['RUNDIR_SIM_START_DATE'] = 'X'\n    os.environ['RUNDIR_SIM_START_TIME'] = 'X'\n    os.environ['RUNDIR_SIM_END_DATE'] = 'X'\n    os.environ['RUNDIR_SIM_END_TIME'] = 'X'\n    os.environ['RUNDIR_DATA_ROOT'] = 'X'\n    os.environ['RUNDIR_MET'] = 'X'\n    os.environ['RUNDIR_USE_GCCLASSIC_TIMERS'] = 'X'\n    os.environ['RUNDIR_GRID_RES_LONG'] = 'X'\n    os.environ['RUNDIR_GRID_NLEV'] = 'X'\n    os.environ['RUNDIR_GRID_LON_RANGE'] = 'X'\n    os.environ['RUNDIR_CENTER_LON_180'] = 'X'\n    os.environ['RUNDIR_GRID_LAT_RANGE'] = 'X'\n    os.environ['RUNDIR_GRID_HALF_POLAR'] = 'X'\n    os.environ['RUNDIR_GRID_NESTED_SIM'] = 'X'\n    os.environ['RUNDIR_GRID_BUFFER_ZONE'] = 'X'\n    os.environ['RUNDIR_TRANSPORT_TS'] = 'X'\n    os.environ['RUNDIR_CHEMISTRY_TS'] = 'X'\n    os.environ['RUNDIR_USE_NLPBL'] = 'X'\n\n    # Read YAML file, replacing variables with placeholder text\n    filename = os.path.expanduser(f\"{GC_CONFIG}{simulation_name}\")\n    with open(filename, 'r', encoding=ENCODING) as ifile:\n        config = safe_load(os.path.expandvars(ifile.read()))\n\n    return config[\"operations\"][\"transport\"][\"transported_species\"]\n\n\ndef read_species_database():\n    \"\"\"\n    Reads the GEOS-Chem Species Database.\n\n    Returns\n    species_database : dict : GEOS-Chem Species Database object\n    \"\"\"\n    count = 0\n    for sim in [\"\", \"_apm\", \"_hg\", \"_tomas\"]:\n        filename = os.path.expanduser(SPECIES_DB.replace(\"XX\", sim))\n        if count == 0:\n            species_database = read_config_file(filename, quiet=True)\n        else:\n            species_database = species_database | read_config_file(\n                filename, quiet=True\n            )\n        count += 1\n\n    return species_database\n\n\ndef get_species_metadata(species, species_database):\n    \"\"\"\n    Compares a species against the species database and returns\n    selected metadata fields.\n\n    Args\n    species          : list : List of species names\n    species_database : dict : GEOS-Chem Species Database\n\n    Returns\n    metadata         : dict : Selected species metadata fields\n    \"\"\"\n    verify_variable_type(species, list)\n    verify_variable_type(species_database, dict)\n\n    metadata = {}\n    for spc in species:\n        if spc in species_database:\n            formula = \"not listed\"\n            if \"Formula\" in species_database[spc]:\n                formula = species_database[spc][\"Formula\"]\n            fullname = \"not listed\"\n            if \"FullName\" in species_database[spc]:\n                fullname =  species_database[spc][\"FullName\"]\n            metadata[spc] = {\n                \"MW_g\": species_database[spc][\"MW_g\"],\n                \"FullName\": fullname,\n                \"Formula\": formula,\n            }\n\n    return metadata\n\n\ndef create_rtd_list_table(metadata, table_file, title=None):\n    \"\"\"\n    Creates a ReadTheDocs list table displaying the transported species\n    for a given GEOS-Chem simulation.\n\n    Args\n    metadata   : dict : Selected species metadata fields\n    table_file : str  : File where the list table will be written\n\n    Kwargs\n    title      : str  : Table title\n\n    \"\"\"\n    verify_variable_type(metadata, dict)\n    verify_variable_type(table_file, str)\n    verify_variable_type(title, (str, type(None)))\n\n    with open(table_file, \"a\", encoding=ENCODING) as ofile:\n\n        # Table declaration\n        if title is None:\n            print(\".. list-table::\", file=ofile)\n        else:\n            print(f\".. list-table:: {title}\", file=ofile)\n        print(\"   :header-rows: 1\", file=ofile)\n        print(\"   :align: left\\n\", file=ofile)\n\n        # Header\n        print(\"   * - Species\", file=ofile)\n        print(\"     - Description\", file=ofile)\n        print(\"     - Formula\", file=ofile)\n        print(\"     - MW (g)\", file=ofile)\n\n        # Species and species metadata\n        for (species, metadata_fields) in metadata.items():\n            print(f\"   * - {species}\", file=ofile)\n            print(f\"     - {metadata_fields['FullName']}\", file=ofile)\n            print(f\"     - {metadata_fields['Formula']}\", file=ofile)\n            print(f\"     - {metadata_fields['MW_g']}\", file=ofile)\n\n        print(\"\", file=ofile)\n\n\ndef main(simulation_name, table_file):\n    \"\"\"\n    Main program.  Calls subroutines to create the list table.\n\n    Args\n    simulation_name : str : Name of a GEOS-Chem simulation\n    table_file      : str : File where the list table will be written\n    \"\"\"\n    verify_variable_type(simulation_name, str)\n    verify_variable_type(table_file, str)\n\n    # Read the species database info\n    species_database = read_species_database()\n\n    # Get the list of transported species and its metadata\n    transported_species = read_transported_species(\n        simulation_name\n    )\n    transported_species_metadata = get_species_metadata(\n        transported_species,\n        species_database\n    )\n\n    # ------------------------------------------------------------------\n    # Simulations with KPP-generated mechanisms\n    # Create separate tables for advected and non-advected species\n    # ------------------------------------------------------------------\n    if \"fullchem\" in simulation_name or \\\n       \"Hg\" in simulation_name or \\\n       \"carbon\" in simulation_name:\n\n        # Get the list of all species from the KPP *.eqn file\n        all_species = read_species_from_eqn_file(simulation_name)\n\n        # Get the list of non-transported species and its metadata\n        non_transported_species = [\n            var for var in all_species if var not in transported_species\n        ]\n        non_transported_species_metadata = get_species_metadata(\n            non_transported_species,\n            species_database\n        )\n\n        # Create the list tables\n        create_rtd_list_table(\n            transported_species_metadata,\n            table_file,\n            title=\"Advected species\",\n        )\n        create_rtd_list_table(\n            non_transported_species_metadata,\n            table_file,\n            title=\"Non-advected species\",\n        )\n\n        return\n\n    # ------------------------------------------------------------------\n    # Simulations without KPP-generated mechanisms\n    # All species are transported species\n    # ------------------------------------------------------------------\n\n    # Create a list table in ReadTheDocs format\n    create_rtd_list_table(\n        transported_species_metadata,\n        table_file\n    )\n\n\nif __name__ == '__main__':\n\n    if len(argv) != 3:\n        raise ValueError(\"Usage: python -m sims SIMULATION-NAME TABLE-FILE\")\n\n    main(argv[1], argv[2])\n"
  },
  {
    "path": "run/shared/settings/0125x015625.txt",
    "content": "RUNDIR_GRID_RES='0125x015625'\nRUNDIR_GRID_RES_LONG='0.125x0.15625'\nRUNDIR_GRID_DIR='0.125x0.15625'\n"
  },
  {
    "path": "run/shared/settings/025x03125.txt",
    "content": "RUNDIR_GRID_RES='025x03125'\nRUNDIR_GRID_RES_LONG='0.25x0.3125'\nRUNDIR_GRID_DIR='0.25x0.3125'\n"
  },
  {
    "path": "run/shared/settings/05x0625.txt",
    "content": "RUNDIR_GRID_RES='05x0625'\nRUNDIR_GRID_RES_LONG='0.5x0.625'\nRUNDIR_GRID_DIR='0.5x0.625'\n"
  },
  {
    "path": "run/shared/settings/2x25.txt",
    "content": "RUNDIR_GRID_RES='2x25'\nRUNDIR_GRID_RES_LONG='2.0x2.5'\nRUNDIR_GRID_DIR='2x2.5'\n"
  },
  {
    "path": "run/shared/settings/4x5.txt",
    "content": "RUNDIR_GRID_RES='4x5'\nRUNDIR_GRID_RES_LONG='4.0x5.0'\nRUNDIR_GRID_DIR='4x5'\n"
  },
  {
    "path": "run/shared/settings/POPs_BaP.txt",
    "content": "RUNDIR_POP_SPC='BaP'\nRUNDIR_POP_XMW='252.31d-3'\nRUNDIR_POP_KOA='3.02d11'\nRUNDIR_POP_KBC='7.94d13'\nRUNDIR_POP_K_POPG_OH='50d-12'\nRUNDIR_POP_K_POPP_O3A='0d0'\nRUNDIR_POP_K_POPP_O3B='2.8d15'\nRUNDIR_POP_HSTAR='3.10d-5'\nRUNDIR_POP_DEL_H='-110d3'\nRUNDIR_POP_DEL_Hw='43d0'\n"
  },
  {
    "path": "run/shared/settings/POPs_PHE.txt",
    "content": "RUNDIR_POP_SPC='PHE'\nRUNDIR_POP_XMW='178.23d-3'\nRUNDIR_POP_KOA='4.37d7'\nRUNDIR_POP_KBC='1.0d10'\nRUNDIR_POP_K_POPG_OH='2.7d-11'\nRUNDIR_POP_K_POPP_O3A='0d0'\nRUNDIR_POP_K_POPP_O3B='2.15d15'\nRUNDIR_POP_HSTAR='1.74d-3'\nRUNDIR_POP_DEL_H='-74d3'\nRUNDIR_POP_DEL_Hw='47d0'\n"
  },
  {
    "path": "run/shared/settings/POPs_PYR.txt",
    "content": "RUNDIR_POP_SPC='PYR'\nRUNDIR_POP_XMW='202.25d-3'\nRUNDIR_POP_KOA='7.24d8'\nRUNDIR_POP_KBC='1.0d11'\nRUNDIR_POP_K_POPG_OH='50d-12'\nRUNDIR_POP_K_POPP_O3A='0d0'\nRUNDIR_POP_K_POPP_O3B='3.0d15'\nRUNDIR_POP_HSTAR='5.37d-4'\nRUNDIR_POP_DEL_H='-87d3'\nRUNDIR_POP_DEL_Hw='43d0'\n"
  },
  {
    "path": "run/shared/settings/gcap2_hemco.txt",
    "content": "RUNDIR_GFED_EXT='off'\nRUNDIR_USE_CEDS='false'\nRUNDIR_USE_TSC2H6='false'\nRUNDIR_USE_XIAOC3H8='false'\nRUNDIR_USE_AEIC='false'\nRUNDIR_USE_GMDCH4='false'\nRUNDIR_USE_SFCVMR='false'\nRUNDIR_CMIP6_FIELDS='true'\n\nRUNDIR_Bry_DIR='GCAP2/Bry/v2015-01/$GCAPVERTRES'\nRUNDIR_GMI_DIR='GCAP2/GMI/v2015-02/$GCAPVERTRES'\nRUNDIR_UCX_DIR='GCAP2/UCX/v2018-02'\n\nRUNDIR_Br_GC='* Br_GC          $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_Br         2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_BrO_GC='* BrO_GC         $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_BrO        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_ACTA='* GLOBAL_ACTA    $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_ACTA       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_Cl='* GLOBAL_Cl      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_Cl         2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_ClO='* GLOBAL_ClO     $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_ClO        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_HCl='* GLOBAL_HCl     $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_HCl        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_HCOOH='* GLOBAL_HCOOH   $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_HCOOH      2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_HNO3='* GLOBAL_HNO3    $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_HNO3       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_HO2='* GLOBAL_HO2     $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_HO2        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_HOCl='* GLOBAL_HOCl    $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_HOCl       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_NIT='* GLOBAL_NIT     $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_NIT        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_NO='* GLOBAL_NO      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_NO         2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_NO2='* GLOBAL_NO2     $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_NO2        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_NO3='* GLOBAL_NO3     $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_NO3        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_O3='* GLOBAL_O3      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_O3         2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_OH='* GLOBAL_OH      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_OH         2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_SO4='* AERO_SO4       $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_SO4        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_NH4='* AERO_NH4       $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_NH4        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_NIT='* AERO_NIT       $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_NIT        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_BCPI='* AERO_BCPI      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_BCPI       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_BCPO='* AERO_BCPO      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_BCPO       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_OCPI='* AERO_OCPI      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_OCPI       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_OCPO='* AERO_OCPO      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_OCPO       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_AERO_DST1='* AERO_DST1      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.SpeciesConc.2010-2019.$MM.$GCAPVERTRES.nc4 SpeciesConc_DST1       2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_OA='* GLOBAL_OA      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.AerosolMass.2010-2019.$MM.$GCAPVERTRES.nc4 TotalOA                2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_PCO_CH4='* PCO_CH4        $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.ProdLoss.2010-2019.$MM.$GCAPVERTRES.nc4    ProdCOfromCH4          2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_PCO_NMVOC='* PCO_NMVOC      $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.ProdLoss.2010-2019.$MM.$GCAPVERTRES.nc4    ProdCOfromNMVOC        2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_PH2O2='* PH2O2          $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.ProdLoss.2010-2019.$MM.$GCAPVERTRES.nc4    Prod_H2O2              2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_O3_PROD='* O3_PROD        $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.ProdLoss.2010-2019.$MM.$GCAPVERTRES.nc4    Prod_Ox                2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_O3_LOSS='* O3_LOSS        $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.ProdLoss.2010-2019.$MM.$GCAPVERTRES.nc4    Loss_Ox                2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_JBrO='* JBrO           $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.JValues.2010-2019.$MM.$GCAPVERTRES.nc4     Jval_BrO               2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_JH2O2='* JH2O2          $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.JValues.2010-2019.$MM.$GCAPVERTRES.nc4     Jval_H2O2              2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_JNO2='* JNO2           $ROOT/GCAP2/OFFLINE_FIELDS/13.0.0/GEOSChem.JValues.2010-2019.$MM.$GCAPVERTRES.nc4     Jval_NO2               2015/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_CH4_LOSS='* CH4_LOSS       $ROOT/GCAP2/GMI/v2015-02/$GCAPVERTRES/gmi.clim.CH4.geos5.2x25.nc                      loss                   2005/1-12/1/0 C xyz s-1      * - 1 1'\n\nRUNDIR_CO2_COPROD='* CO2_COPROD     $ROOT/GCAP2/CO2/v2019-02/CHEM/CO2_prod_rates.2x25.$GCAPVERTRES.nc                     LCO               2004-2009/1-12/1/0 C xyz kgC/m3/s * - 1 1'\n\nRUNDIR_Br_TOMCAT='* Br_TOMCAT      $ROOT/GCAP2/MERCURY/v2014-09/BrOx/BrOx.GMI.geos5.2x25.$GCAPVERTRES.nc4                LBRO2N                 1985/1-12/1/0 C xyz pptv     * - 1 1'\n\nRUNDIR_BrO_TOMCAT='* BrO_TOMCAT     $ROOT/GCAP2/MERCURY/v2014-09/BrOx/BrOx.GMI.geos5.2x25.$GCAPVERTRES.nc4                LBRO2H                 1985/1-12/1/0 C xyz pptv     * - 1 1'\n\nRUNDIR_GLOBAL_OC='1002 GLOBAL_OC   $ROOT/GCAP2/POPs/v2015-08/OCPO.4x5.$GCAPVERTRES.nc4                                   OCPO              2005-2009/1-12/1/0 C xyz kg       * - 1 1'\n\nRUNDIR_GLOBAL_BC='1002 GLOBAL_BC   $ROOT/GCAP2/POPs/v2015-08/BCPO.4x5.$GCAPVERTRES.nc4                                   BCPO              2005-2009/1-12/1/0 C xyz kg       * - 1 1'\n\nRUNDIR_TES_CLIM_CCL4='* TES_CLIM_CCL4  $ROOT/GCAP2/RRTMG/v2018-11/species_clim_profiles.2x25.$GCAPVERTRES.nc4                CCl4                   2000/1/1/0    C xyz ppbv     * - 1 1'\n\nRUNDIR_TES_CLIM_CFC11='* TES_CLIM_CFC11 $ROOT/GCAP2/RRTMG/v2018-11/species_clim_profiles.2x25.$GCAPVERTRES.nc4                CFC11                  2000/1/1/0    C xyz ppbv     * - 1 1'\n\nRUNDIR_TES_CLIM_CFC12='* TES_CLIM_CFC12 $ROOT/GCAP2/RRTMG/v2018-11/species_clim_profiles.2x25.$GCAPVERTRES.nc4                CFC12                  2000/1/1/0    C xyz ppbv     * - 1 1'\n\nRUNDIR_TES_CLIM_CFC22='* TES_CLIM_CFC22 $ROOT/GCAP2/RRTMG/v2018-11/species_clim_profiles.2x25.$GCAPVERTRES.nc4                CFC22                  2000/1/1/0    C xyz ppbv     * - 1 1'\n\nRUNDIR_TES_CLIM_CH4='* TES_CLIM_CH4   $ROOT/GCAP2/RRTMG/v2018-11/species_clim_profiles.2x25.$GCAPVERTRES.nc4                CH4                    2000/1/1/0    C xyz ppbv     * - 1 1'\n\nRUNDIR_TES_CLIM_N2O='* TES_CLIM_N2O   $ROOT/GCAP2/RRTMG/v2018-11/species_clim_profiles.2x25.$GCAPVERTRES.nc4                N2O                    2000/1/1/0    C xyz ppbv     * - 1 1'\n\nRUNDIR_GMI_LOSS_CO='* GMI_LOSS_CO    $ROOT/GCAP2/GMI/v2015-02/$GCAPVERTRES/gmi.clim.CO.geos5.2x25.nc                       loss                   2005/1-12/1/0 C xyz s-1     CO - 1 1'\n\nRUNDIR_GMI_PROD_CO='* GMI_PROD_CO    $ROOT/GCAP2/GMI/v2015-02/$GCAPVERTRES/gmi.clim.CO.geos5.2x25.nc                       prod                   2005/1-12/1/0 C xyz v/v/s   CO - 1 1'\n\nRUNDIR_OCEAN_MASK='1000 OCEAN_MASK  $METDIR/TOPO                                                                        focean                    */1/1/0 C xy 1 1  -180/-90/180/90'\nRUNDIR_Hg_GLOBAL_Br='* GLOBAL_Br    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  Br           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_BrO='* GLOBAL_BrO   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  BrO          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_CH4='* GLOBAL_CH4   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  CH4          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_Cl='* GLOBAL_Cl    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  Cl           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_ClO='* GLOBAL_ClO   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  ClO          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_CO='* GLOBAL_CO    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  CO           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_HO2='* GLOBAL_HO2   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  HO2          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_NO='* GLOBAL_NO    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  NO           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_NO2='* GLOBAL_NO2   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  NO2          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_O3='* GLOBAL_O3    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  O3           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_OH='* GLOBAL_OH    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  OH           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_fOA='* GLOBAL_fOA   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  fOA          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_OCEAN='* GLOBAL_OCEAN $ROOT/MERCURY/v2018-04/ocean_fixed.nc                ocean_conc   2007/1-12/1/0 C xy  1  * - 1 1'\nRUNDIR_Hg_GLOBAL_PM25='* GLOBAL_PM25  $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  PM25         2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RH='* GLOBAL_RH    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  RH           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_BC='* AOD_BC       $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_BC       2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_BGSULF='* AOD_BGSULF   $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_BGSULF   2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST1='* AOD_DST1     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST1     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST2='* AOD_DST2     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST2     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST3='* AOD_DST3     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST3     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST4='* AOD_DST4     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST4     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST5='* AOD_DST5     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST5     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST6='* AOD_DST6     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST6     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST7='* AOD_DST7     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST7     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_ICEI='* AOD_ICEI     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_ICEI     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_OC='* AOD_OC       $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_OC       2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_SO4='* AOD_SO4      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_SO4      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_SSA='* AOD_SSA      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_SSA      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_SSC='* AOD_SSC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_SSC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_BC='* Area_BC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_BC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_BGSULF='* Area_BGSULF  $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_BGSULF  2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST1='* Area_DST1    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST1    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST2='* Area_DST2    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST2    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST3='* Area_DST3    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST3    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST4='* Area_DST4    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST4    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST5='* Area_DST5    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST5    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST6='* Area_DST6    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST6    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST7='* Area_DST7    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST7    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_ICEI='* Area_ICEI    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_ICEI    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_OC='* Area_OC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_OC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_SO4='* Area_SO4     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_SO4     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_SSA='* Area_SSA     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_SSA     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_SSC='* Area_SSC     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_SSC     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_BC='* Radi_BC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_BC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_BGSULF='* Radi_BGSULF  $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_BGSULF  2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST1='* Radi_DST1    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST1    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST2='* Radi_DST2    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST2    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST3='* Radi_DST3    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST3    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST4='* Radi_DST4    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST4    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST5='* Radi_DST5    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST5    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST6='* Radi_DST6    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST6    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST7='* Radi_DST7    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST7    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_ICEI='* Radi_ICEI    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_ICEI    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_OC='* Radi_OC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_OC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_SO4='* Radi_SO4     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_SO4     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_SSA='* Radi_SSA     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_SSA     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_SSC='* Radi_SSC     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_SSC     2016/1-12/1/0 C xyz 1  * - 1 1'\n"
  },
  {
    "path": "run/shared/settings/geosfp/README",
    "content": "This directory contains settings used for GCHP run directory creation if using GEOS-FP\nmeteorology fields. Unlike in GEOS-Chem Classic, GEOS-FP data is by default at native\nresolution of 0.25x0.3125, and either processed files or raw GMAO files may be used. Processed means same as except vertically flipped, unused fields removed, concatenated into daily files, and compressed.\n\nIn addition, users may swap out the input fields that are used for advection,\nspecifically surface pressure, humidity, and winds, with raw GMAO data from an hourly\nC720 archive that includes mass fluxes and Courant numbers instead of wind. An\nadditional C720 archive is available containing winds derived from mass fluxes,\ncreated in post-processing specifically for use with GEOS-Chem. Note that the derived winds file, though processed, is not vertically flipped relative to the C720 mass flux archive.\n\nThe following files contain the settings for these various options, including\ntheir entries for ExtData.rc (which includes file paths) and whether file\nvertical direction is top-down (level 1 TOA) or bottom-up (level 1 surface), and\ntherefore whether data must be flipped at run-time. Every run configuration will\nuse one file for non-advection fields (section A below) and one or two files\nfor advection fields (section B below), such that source of humidity, wind, and\nother met-fields are always specified.\n\nA. Non-advection fields, i.e. no surface pressure, humidity, and wind\n\n  1. geosfp.nonadv_raw_ll.txt\n     - Raw GMAO files\n     - 0.25x0.3125 grid resolution\n\n  2. geosfp.nonadv_preprocessed_ll.txt\n     - Processed files\n     - 0.25x0.3125 grid resolution\n\nB. Advection fields\n\n  1. 3-hourly 0.25x0.3125 fields\n\n       a. advection_met/geosfp.preprocessed_3hr_0.25x0.3125_PS_SPHU.txt\n       b. advection_met/geosfp.preprocessed_3hr_0.25x0.3125_wind.txt       \n          - Pre-processed files only\n\t  \n       c. advection_met/geosfp.raw_3hr_0.25x0.3125_PS_SPHU.txt\n       d. advection_met/geosfp.raw_3hr_0.25x0.3125_wind.txt\n          - Raw GMAO files only\n\n  2. 1-hourly C720 fields\n\n       a. advection_met/geosfp.raw_1hr_0.25x0.3125_mass_flux_PS_SPHU_C.txt\n          - Raw GMAO files only\n\n       b. advection_met/geosfp.derived_1hr_c720_wind_PS_SPHU.txt\n          - Wind is in pre-processed file while surface pressure and\n\t    humidity are in the raw GMAO C720 archive\n\nEach of these files contains some combination of the following settings\nused during run directory creation to ultimately populate settings\nin GCHP configuration file GCHP.rc:\n\nMET_MASS_FLUX_IS_TOP_DOWN\nMET_WIND_IS_TOP_DOWN\nMET_HUMIDITY_IS_TOP_DOWN\nMET_NONADVECTION_IS_TOP_DOWN\nIMPORT_MASS_FLUX_FROM_EXTDATA\n\n\n"
  },
  {
    "path": "run/shared/settings/geosfp/advection_met/geosfp.derived_1hr_c720_wind_PS_SPHU.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_WIND=\"\"\"\n# --- Wind, 1-hr time-averaged, derived from 1-hr mass flux ---\nUA;VA     m_s-1         N Y F0;003000 none  none UA;VA  ./MetDir/../../GEOS_C720/GEOS_FP_DerivedWind/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg_1hr_ctmwind_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:30:00P01:00\n\"\"\"\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n# --- Surface pressure and specific humidity, 1-hr instantaneous ---\nPS1       Pa            N Y  0        none  0.01 PS              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-20T00:00:00P01:00\nPS2       Pa            N Y  0;001000 none  0.01 PS              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-20T00:00:00P01:00\nSPHU1     kg_kg-1       N Y  0        none  none QV              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-20T00:00:00P01:00\nSPHU2     kg_kg-1       N Y  0;001000 none  none QV              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-20T00:00:00P01:00\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/advection_met/geosfp.preprocessed_3hr_0.25x0.625_PS_SPHU.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.false.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.false.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n# --- Surface pressure and specific humidity, 3-hr instantaneous ---\nPS1 hPa N Y 0        none none PS ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.I3.025x03125.nc\nPS2 hPa N Y 0;001000 none none PS ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.I3.025x03125.nc\nSPHU1 kg_kg-1 N Y 0        none none QV ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.I3.025x03125.nc\nSPHU2 kg_kg-1 N Y 0;001000 none none QV ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.I3.025x03125.nc\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/advection_met/geosfp.preprocessed_3hr_0.25x0.625_wind.txt",
    "content": "RUNDIR_MET_WIND_IS_TOP_DOWN=.false.\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_WIND=\"\"\"\n# --- Wind, 3-hr time-averaged ---\nUA;VA m_s-1 N Y F0;013000 none none U;V ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3dyn.025x03125.nc\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/advection_met/geosfp.raw_1hr_c720_mass_flux_PS_SPHU_C.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.true.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n# --- Mass fluxes and Courant numbers, 1-hr time-averaged ---\nMFXC;MFYC Pa_m+2_s-1    N H F0;003000 none  none MFXC;MFYC  ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:30:00P01:00\nCXC;CYC   1             N H F0;003000 none  none CX;CY           ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:30:00P01:00\n\n# --- Surface pressure and specific humidity, 1-hr instantaneous ---\nPS1       Pa            N Y  0        none  0.01 PS              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:00:00P01:00\nPS2       Pa            N Y  0;001000 none  0.01 PS              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:00:00P01:00\nSPHU1     kg_kg-1       N Y  0        none  none QV              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:00:00P01:00\nSPHU2     kg_kg-1       N Y  0;001000 none  none QV              ./MetDir/../../GEOS_C720/GEOS_FP_Raw/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst_1hr_ctm_c0720_v72.%y4%m2%d2_%h2%n2.V01.nc4 2021-03-11T00:00:00P01:00\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/advection_met/geosfp.raw_3hr_0.25x0.625_PS_SPHU.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n# --- Surface pressure and specific humidity, 3-hr instantaneous ---\nPS1       Pa            N Y  0        none  0.01 PS         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:00:00P03:00\nPS2       Pa            N Y  0;001000 none  0.01 PS         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:00:00P03:00\nSPHU1     kg_kg-1       N Y  0        none  none QV         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:00:00P03:00\nSPHU2     kg_kg-1       N Y  0;001000 none  none QV         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:00:00P03:00\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/advection_met/geosfp.raw_3hr_0.25x0.625_wind.txt",
    "content": "RUNDIR_MET_WIND_IS_TOP_DOWN=.true.\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_WIND=\"\"\"\n# --- Wind, 3-hr time-averaged ---\nUA;VA     m_s-1         N Y F0;013000 none  none U;V        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/geosfp.nonadv_preprocessed_ll.txt",
    "content": "RUNDIR_MET='GEOSFP'\nRUNDIR_MET_LOWERCASE='geosfp'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_FP\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_0.25x0.3125/GEOS_FP\"\n\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.false.\nRUNDIR_MET_RES='025x03125'\nRUNDIR_MET_EXT='nc'\n\nRUNDIR_MET_CN_YR=2011\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2021-12'\nRUNDIR_OFFLINE_DUST_DIR='v2021-08'\nRUNDIR_OFFLINE_SEASALT_DIR='v2019-01'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2021-12'\nRUNDIR_OFFLINE_EMIS_RES='0.25x0.3125'\nRUNDIR_OFFLINE_EMIS_LAT_RES='025'\n\nRUNDIR_METLIGHTNING='GEOSFP'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_0.25x0.3125/GEOS_FP\"\nRUNDIR_METLIGHTNING_RES='0.25x0.3125'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2020-03'\nRUNDIR_MET_LCLIM='2014-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_WIND}\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION}\n\n# --- 2D variables, 1-hr averaged ---\nALBD     1 N Y F0;003000 none none ALBEDO   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nCLDFRC   1 N Y F0;003000 none none CLDTOT   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nEFLUX    1 N Y F0;003000 none none EFLUX    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nEVAP     1 N Y F0;003000 none none EVAP     ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nFRSEAICE 1 N Y F0;003000 none none FRSEAICE ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nFRSNO    1 N Y F0;003000 none none FRSNO    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nGRN      1 N Y F0;003000 none none GRN      ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nGWETROOT 1 N Y F0;003000 none none GWETROOT ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nGWETTOP  1 N Y F0;003000 none none GWETTOP  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nHFLUX    1 N Y F0;003000 none none HFLUX    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nLAI      1 N Y F0;003000 none none LAI      ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPARDF    1 N Y F0;003000 none none PARDF    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPARDR    1 N Y F0;003000 none none PARDR    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPBLH     1 N Y F0;003000 none none PBLH     ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPRECANV  1 N Y F0;003000 none none PRECANV  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPRECCON  1 N Y F0;003000 none none PRECCON  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPRECLSC  1 N Y F0;003000 none none PRECLSC  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPRECSNO  1 N Y F0;003000 none none PRECSNO  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nPRECTOT  1 N Y F0;003000 none none PRECTOT  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nQV2M     1 N Y F0;003000 none none QV2M     ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE00 1 N Y F0;003000 none none SEAICE00 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE10 1 N Y F0;003000 none none SEAICE10 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE20 1 N Y F0;003000 none none SEAICE20 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE30 1 N Y F0;003000 none none SEAICE30 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE40 1 N Y F0;003000 none none SEAICE40 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE50 1 N Y F0;003000 none none SEAICE50 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE60 1 N Y F0;003000 none none SEAICE60 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE70 1 N Y F0;003000 none none SEAICE70 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE80 1 N Y F0;003000 none none SEAICE80 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSEAICE90 1 N Y F0;003000 none none SEAICE90 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nSLP hPa N Y F0;003000 none none SLP ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nSNODP  1 N Y F0;003000 none none SNODP  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nSNOMAS 1 N Y F0;003000 none none SNOMAS ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nRADSWG 1 N Y F0;003000 none none SWGDN  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nTO3 dobson N Y F0;003000 none none TO3 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nTROPP hPa N Y F0;003000 none none TROPPT ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nTSKIN 1 N Y F0;003000 none none TS    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nTS    1 N Y F0;003000 none none T2M   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nUSTAR 1 N Y F0;003000 none none USTAR ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nU10M m_s-1 N Y F0;003000 none none U10M ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\nV10M m_s-1 N Y F0;003000 none none V10M ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nZ0 1 N Y F0;003000 none none Z0M ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1.025x03125.nc\n\nTMPU1 K N Y 0        none none T ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.I3.025x03125.nc\nTMPU2 K N Y 0;001000 none none T ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.I3.025x03125.nc\n\n# --- 3D variables, 3-hr averaged ---\nQI     1 N Y F0;013000 none none QI       ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3cld.025x03125.nc\nQL     1 N Y F0;013000 none none QL       ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3cld.025x03125.nc\nTAUCLI 1 N Y F0;013000 none none TAUCLI   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3cld.025x03125.nc\nTAUCLW 1 N Y F0;013000 none none TAUCLW   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3cld.025x03125.nc\nOPTDEP 1 N Y F0;013000 none none OPTDEPTH ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3cld.025x03125.nc\nCLDF   1 N Y F0;013000 none none CLOUD    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3cld.025x03125.nc\nDTRAIN 1 N Y F0;013000 none none DTRAIN   ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3dyn.025x03125.nc\n\nOMEGA Pa_s-1 N Y F0;013000 none none OMEGA ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3dyn.025x03125.nc\n\nRH - N Y F0;013000 none none RH ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3dyn.025x03125.nc\n\nDQRCU    1 N Y F0;013000 none none DQRCU    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstC.025x03125.nc\nDQRLSAN  1 N Y F0;013000 none none DQRLSAN  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstC.025x03125.nc\nREEVAPCN 1 N Y F0;013000 none none REEVAPCN ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstC.025x03125.nc\nREEVAPLS 1 N Y F0;013000 none none REEVAPLS ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstC.025x03125.nc\nCMFMC    1 N Y F0;013000 none none CMFMC    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstE.025x03125.nc\nPFICU    1 N Y F0;013000 none none PFICU    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstE.025x03125.nc\nPFILSAN  1 N Y F0;013000 none none PFILSAN  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstE.025x03125.nc\nPFLCU    1 N Y F0;013000 none none PFLCU    ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstE.025x03125.nc\nPFLLSAN  1 N Y F0;013000 none none PFLLSAN  ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A3mstE.025x03125.nc\n\n# --- Fixed variables, from constants file ---\nFRLAKE   1 N Y - none none FRLAKE   ./MetDir/2011/01/GEOSFP.20110101.CN.025x03125.nc\nFRLAND   1 N Y - none none FRLAND   ./MetDir/2011/01/GEOSFP.20110101.CN.025x03125.nc\nFRLANDIC 1 N Y - none none FRLANDIC ./MetDir/2011/01/GEOSFP.20110101.CN.025x03125.nc\nFROCEAN  1 N Y - none none FROCEAN  ./MetDir/2011/01/GEOSFP.20110101.CN.025x03125.nc\n#\nPHIS m2_s-2 N Y - none none PHIS ./MetDir/2011/01/GEOSFP.20110101.CN.025x03125.nc\n\n# Also include FROCEAN with name OCEAN_MASK to match HEMCO container name for ocean mask\nOCEAN_MASK 1 N Y - none none FROCEAN ./MetDir/2011/01/GEOSFP.20110101.CN.025x03125.nc\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosfp/geosfp.nonadv_raw_ll.txt",
    "content": "RUNDIR_MET='GEOSFP'\nRUNDIR_MET_LOWERCASE='geosfp'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_FP\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_0.25x0.3125/GEOS_FP_Raw\"\n\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.true.\nRUNDIR_MET_RES='025x03125'\nRUNDIR_MET_EXT='nc'\n\nRUNDIR_MET_CN_YR=2011\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2021-12'\nRUNDIR_OFFLINE_DUST_DIR='v2021-08'\nRUNDIR_OFFLINE_SEASALT_DIR='v2019-01'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2021-12'\nRUNDIR_OFFLINE_EMIS_RES='0.25x0.3125'\nRUNDIR_OFFLINE_EMIS_LAT_RES='025'\n\nRUNDIR_METLIGHTNING='GEOSFP'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_0.25x0.3125/GEOS_FP_Raw\"\nRUNDIR_METLIGHTNING_RES='0.25x0.3125'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2020-03'\nRUNDIR_MET_LCLIM='2014-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_WIND}\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION}\n\nTMPU1     K             N Y  0        none  none T          ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:00:00P03:00\nTMPU2     K             N Y  0;001000 none  none T          ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.inst3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:00:00P03:00\n\n# tavg1_2d_flx_Nx\nEFLUX     W_m-2         N Y F0;003000 none  none EFLUX      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nEVAP      kg_m-2_s-1    N Y F0;003000 none  none EVAP       ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nFRSEAICE  1             N Y F0;003000 none  none FRSEAICE   ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nHFLUX     W_m-2         N Y F0;003000 none  none HFLUX      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPBLH      m             N Y F0;003000 none  none PBLH       ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPRECANV   kg_m-2_s-1    N Y F0;003000 none  none PRECANV    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPRECCON   kg_m-2_s-1    N Y F0;003000 none  none PRECCON    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPRECLSC   kg_m-2_s-1    N Y F0;003000 none  none PRECLSC    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPRECSNO   kg_m-2_s-1    N Y F0;003000 none  none PRECSNO    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPRECTOT   kg_m-2_s-1    N Y F0;003000 none  none PRECTOT    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nUSTAR     m_s-1         N Y F0;003000 none  none USTAR      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nZ0        m             N Y F0;003000 none  none Z0M        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_flx_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\n\n# tavg1_2d_lnd_Nx\nFRSNO     1             N Y F0;003000 none  none FRSNO      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nGRN       1             N Y F0;003000 none  none GRN        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nGWETROOT  1             N Y F0;003000 none  none GWETROOT   ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nGWETTOP   1             N Y F0;003000 none  none GWETTOP    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nLAI       1             N Y F0;003000 none  none LAI        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPARDF     W_m-2         N Y F0;003000 none  none PARDF      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nPARDR     W_m-2         N Y F0;003000 none  none PARDR      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nSNODP     m             N Y F0;003000 none  none SNODP      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nSNOMAS    kg_m-2        N Y F0;003000 none  none SNOMAS     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_lnd_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\n\n# tavg1_2d_rad_Nx\nALBD      1             N Y F0;003000 none  none ALBEDO     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_rad_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nCLDFRC    1             N Y F0;003000 none  none CLDTOT     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_rad_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nRADSWG    W_m-2         N Y F0;003000 none  none SWGDN      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_rad_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\n\n# tavg1_2d_slv_Nx\nQV2M      kg_kg-1       N Y F0;003000 none  none QV2M       ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nSLP       Pa            N Y F0;003000 none  0.01 SLP        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nTS        K             N Y F0;003000 none  none T2M        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nTO3       Dobsons       N Y F0;003000 none  none TO3        ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nTROPP     Pa            N Y F0;003000 none  0.01 TROPPT     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nTSKIN     K             N Y F0;003000 none  none TS         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nU10M      m_s-1         N Y F0;003000 none  none U10M       ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\nV10M      m_s-1         N Y F0;003000 none  none V10M       ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg1_2d_slv_Nx.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T00:30:00P01:00\n\n# tavg3_3d_asm_Nv\nOMEGA     Pa_s-1        N Y F0;013000 none  none OMEGA      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nQI        kg_kg-1       N Y F0;013000 none  none QI         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nQL        kg_kg-1       N Y F0;013000 none  none QL         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nRH        1             N Y F0;013000 none  none RH         ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_asm_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\n\n# tavg3_3d_cld_Nv\nDTRAIN    kg_m-2_s-1    N Y F0;013000 none  none DTRAIN     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_cld_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nTAUCLI    1             N Y F0;013000 none  none TAUCLI     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_cld_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nTAUCLW    1             N Y F0;013000 none  none TAUCLW     ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_cld_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\n\n# tavg3_3d_mst_Ne\nCMFMC     kg_m-2_s-1    N Y F0;013000 none  none CMFMC      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Ne.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nPFICU     kg_m-2_s-1    N Y F0;013000 none  none PFICU      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Ne.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nPFILSAN   kg_m-2_s-1    N Y F0;013000 none  none PFILSAN    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Ne.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nPFLCU     kg_m-2_s-1    N Y F0;013000 none  none PFLCU      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Ne.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nPFLLSAN   kg_m-2_s-1    N Y F0;013000 none  none PFLLSAN    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Ne.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\n\n# tavg3_3d_mst_Nv\nDQRCU     kg_kg-1_s-1   N Y F0;013000 none  none DQRCU      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nDQRLSAN   kg_kg-1_s-1   N Y F0;013000 none  none DQRLSAN    ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nREEVAPCN  kg_kg-1_s-1   N Y F0;013000 none  none REEVAPCN   ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\nREEVAPLS  kg_kg-1_s-1   N Y F0;013000 none  none REEVAPLSAN ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_mst_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2014-02-11T01:30:00P03:00\n\n# SEAICE[0-9]0 bins aren't used in GCHP\nSEAICE00 1 N Y F0;003000 none none SEAICE00 /dev/null\nSEAICE10 1 N Y F0;003000 none none SEAICE10 /dev/null\nSEAICE20 1 N Y F0;003000 none none SEAICE20 /dev/null\nSEAICE30 1 N Y F0;003000 none none SEAICE30 /dev/null\nSEAICE40 1 N Y F0;003000 none none SEAICE40 /dev/null\nSEAICE50 1 N Y F0;003000 none none SEAICE50 /dev/null\nSEAICE60 1 N Y F0;003000 none none SEAICE60 /dev/null\nSEAICE70 1 N Y F0;003000 none none SEAICE70 /dev/null\nSEAICE80 1 N Y F0;003000 none none SEAICE80 /dev/null\nSEAICE90 1 N Y F0;003000 none none SEAICE90 /dev/null\n\n# tavg3_3d_rad_Nv\nCLDF      1             N Y F0;013000 none  none CLOUD      ./MetDir/Y%y4/M%m2/D%d2/GEOS.fp.asm.tavg3_3d_rad_Nv.%y4%m2%d2_%h2%n2.V01.nc4 2018-01-01T01:30:00P03:00\n#\n# --- Fixed variables, from constants file ---\nFRLAKE   1 N Y - none none FRLAKE     ./MetDir/GEOS.fp.asm.const_2d_asm_Nx.00000000_0000.V01.nc4\nFRLAND   1 N Y - none none FRLAND     ./MetDir/GEOS.fp.asm.const_2d_asm_Nx.00000000_0000.V01.nc4\nFRLANDIC 1 N Y - none none FRLANDICE  ./MetDir/GEOS.fp.asm.const_2d_asm_Nx.00000000_0000.V01.nc4\nFROCEAN  1 N Y - none none FROCEAN    ./MetDir/GEOS.fp.asm.const_2d_asm_Nx.00000000_0000.V01.nc4\nPHIS m2_s-2 N Y - none none PHIS      ./MetDir/GEOS.fp.asm.const_2d_asm_Nx.00000000_0000.V01.nc4\n\n# Also include FROCEAN with name OCEAN_MASK to match HEMCO container name for ocean mask\nOCEAN_MASK 1 N Y - none none FROCEAN ./MetDir/GEOS.fp.asm.const_2d_asm_Nx.00000000_0000.V01.nc4\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\nOPTDEP      TAUCLI+TAUCLW 0\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/README",
    "content": "This directory contains settings used for GCHP run directory creation if using GEOS-IT\nmeteorology fields. Unlike in GEOS-Chem Classic, GEOS-IT data is available in\nnative cubed-sphere grid resolution (C180) as well as lat-lon (0.5x0.625). Users\nmay also choose between using pre-processed files generated specifically for use\nwith GEOS-Chem, or raw data downloaded directly from GMAO. Pre-processed files\ncontain the same data as raw GMAO files except are vertically flipped, have\nunused fields removed, are concatenated into daily files, and are compressed to\nreduce storage requirements.\n\nIf using C180 fields, users may also choose whether to use mass fluxes or winds\nin advection.\n\nThe following files contain the settings for these various options such as\ninput file paths in ExtData.rc and whether the vertical direction in the file\nis down (level 1 = TOA) or up (level 1 = surface). Note that all\nraw GMAO data is down while all processed files are up.\n\nA. If using lat-lon files:\n\n  1. geosit.preprocessed_0.5x0.625.txt\n     - Processed files\n     - 0.5x0.625 grid resolution\n     - Vertical direction is up\n     - Contains fields used for FV3 advection as well as GEOS-Chem\n\n  2. geosit.raw_0.5x0.625.txt\n     - Raw GMAO files\n     - 0.5x0.625 grid resolution\n     - Vertical direction is down\n     - Contains fields used for FV3 advection as well as GEOS-Chem\n\nB. If using cubed-sphere files:\n\n  NOTE: When using C180 fields the settings are split across two different files:\n  one file for non-advection fields and another file for advection fields. This\n  allows flexibility for using either 1-hourly mass fluxes or 3-hourly winds to\n  drive the offline advection.\n\n  1. Non-advection field settings:\n\n    NOTE: Specifies all met-fields except wind, surface pressure,\n          humidity, mass flux and Courant numbers\n\n    a. geosit.nonadv_preprocessed_c180.txt\n     - Processed files\n     - Vertical direction is up\n\n    b. geosit.nonadv_raw_c180.txt\n     - Raw GMAO files\n     - Vertical directory is down\n\n  2. Advection field settings:\n\n    NOTE: Always specifies wind, surface pressure, and humidity.\n          Mass flux and Courant numbers are also specified if GCHP\n          is configured to use them.\n\n     a. geosit.preprocessed_3hr_c180_wind.txt\n        - Processed files\n        - Vertical direction is up\n\n     b. geosit.raw_3hr_c180_wind.txt\n        - Raw GMAO files\n        - Vertical direction is down\n\n     c. geosit.preprocessed_1hr_c180_mass_flux.txt\n        - Processed files\n\t- Vertical direction is up\n   \n     d. geosit.raw_1hr_c180_mass_flux.txt\n        - Raw GMAO files\n\t- Vertical direction is down\n\nEach of these files contains some combination of the following settings\nused during run directory creation to ultimately populate settings\nin GCHP configuration file GCHP.rc:\n\nMET_MASS_FLUX_IS_TOP_DOWN\nMET_WIND_IS_TOP_DOWN\nMET_HUMIDITY_IS_TOP_DOWN\nMET_NONADVECTION_IS_TOP_DOWN\nIMPORT_MASS_FLUX_FROM_EXTDATA\n\nAdditional files are provided to use on the NASA discover cluster. These are different\nthan the non-discover files because they have different filenames than those\ndownloaded from the NASA data portal.\n\n\n"
  },
  {
    "path": "run/shared/settings/geosit/advection_met/geosit.preprocessed_1hr_c180_mass_flux.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.false.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.false.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.false.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.true.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 1-hourly mass fluxes\nUA;VA     m_s-1      N Y F0;013000 none  none      U;V       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.C180.nc\nMFXC;MFYC Pa_m+2_s-1 N H F0;003000 none  none      MFXC;MFYC ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.CTM_A1.C180.nc\nCXC;CYC   1          N H F0;003000 none  none      CX;CY     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.CTM_A1.C180.nc\nPS1       hPa        N Y  0        none  none      PS        ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.CTM_I1.C180.nc\nPS2       hPa        N Y  0;001000 none  none      PS        ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.CTM_I1.C180.nc\nSPHU1     kg_kg-1    N Y  0        none  none      QV        ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.CTM_I1.C180.nc\nSPHU2     kg_kg-1    N Y  0;001000 none  none      QV        ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.CTM_I1.C180.nc\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/advection_met/geosit.preprocessed_3hr_c180_wind.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.false.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.false.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.false.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 3-hourly winds\nUA;VA   m_s-1   N Y F0;013000 none none U;V ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.C180.nc\nPS1     hPa     N Y  0        none none PS  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.C180.nc\nPS2     hPa     N Y  0;001000 none none PS  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.C180.nc\nSPHU1   kg_kg-1 N Y  0        none none QV  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.C180.nc\nSPHU2   kg_kg-1 N Y  0;001000 none none QV  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.C180.nc\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/advection_met/geosit.raw_1hr_c180_mass_flux.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.true.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 1-hourly mass fluxes\nUA;VA     m_s-1      N Y F0;013000 none  none      U;V       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nMFXC;MFYC Pa_m+2_s-1 N H F0;003000 none  none      MFXC;MFYC ./MetDir/%y4/%m2/%d2/GEOS.it.asm.ctm_tavg_1hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nCXC;CYC   1          N H F0;003000 none  none      CX;CY     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.ctm_tavg_1hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPS1       Pa         N Y  0        none  0.01      PS        ./MetDir/%y4/%m2/%d2/GEOS.it.asm.ctm_inst_1hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P01:00\nPS2       Pa         N Y  0;001000 none  0.01      PS        ./MetDir/%y4/%m2/%d2/GEOS.it.asm.ctm_inst_1hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P01:00\nSPHU1     kg_kg-1    N Y  0        none  none      QV        ./MetDir/%y4/%m2/%d2/GEOS.it.asm.ctm_inst_1hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P01:00\nSPHU2     kg_kg-1    N Y  0;001000 none  none      QV        ./MetDir/%y4/%m2/%d2/GEOS.it.asm.ctm_inst_1hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P01:00\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/advection_met/geosit.raw_3hr_c180_wind.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 3-hourly winds\nUA;VA      m_s-1      N Y F0;013000 none  none      U;V      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPS1        Pa         N Y  0        none  0.01      PS       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nPS2        Pa         N Y  0;001000 none  0.01      PS       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nSPHU1      kg_kg-1    N Y  0        none  none      QV       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nSPHU2      kg_kg-1    N Y  0;001000 none  none      QV       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/discover/geosit.nonadv_raw_c180.txt",
    "content": "RUNDIR_MET='GEOSIT'\nRUNDIR_MET_LOWERCASE='geosit'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_IT\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_C180/GEOS_IT_Raw\"\n\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.true.\nRUNDIR_MET_RES='C180'\nRUNDIR_MET_EXT='nc4'\n\nRUNDIR_MET_CN_YR=Y2018\nRUNDIR_MET_CN_MO=M01\n\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_METLIGHTNING='MERRA2'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/0.5x0.625/MERRA2\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=true\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION}\n\n#-------------------------------------------------------\n# --- 1-hr time-averaged, 2D ---\n#-------------------------------------------------------\n\nEFLUX     W_m-2      N Y F0;003000 none  none EFLUX    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nEVAP      kg_m-2_s-1 N Y F0;003000 none  none EVAP     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nFRSEAICE  1          N Y F0;003000 none  none FRSEAICE ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nHFLUX     W_m-2      N Y F0;003000 none  none HFLUX    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPBLH      m          N Y F0;003000 none  none PBLH     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECANV   kg_m-2_s-1 N Y F0;003000 none  none PRECANV  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECCON   kg_m-2_s-1 N Y F0;003000 none  none PRECCON  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECLSC   kg_m-2_s-1 N Y F0;003000 none  none PRECLSC  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECSNO   kg_m-2_s-1 N Y F0;003000 none  none PRECSNO  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECTOT   kg_m-2_s-1 N Y F0;003000 none  none PRECTOT  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nUSTAR     m_s-1      N Y F0;003000 none  none USTAR    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nZ0        m          N Y F0;003000 none  none Z0M      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\nFRSNO     1          N Y F0;003000 none  none FRSNO    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nGRN       1          N Y F0;003000 none  none GRN      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nGWETROOT  1          N Y F0;003000 none  none GWETROOT ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nGWETTOP   1          N Y F0;003000 none  none GWETTOP  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nLAI       1          N Y F0;003000 none  none LAI      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPARDF     W_m-2      N Y F0;003000 none  none PARDF    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPARDR     W_m-2      N Y F0;003000 none  none PARDR    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nSNODP     m          N Y F0;003000 none  none SNODP    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nSNOMAS    kg_m-2     N Y F0;003000 none  none SNOMAS   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\nALBD      1          N Y F0;003000 none  none ALBEDO   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nCLDFRC    1          N Y F0;003000 none  none CLDTOT   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nRADSWG    W_m-2      N Y F0;003000 none  none SWGDN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\nQV2M      kg_kg-1    N Y F0;003000 none  none QV2M     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nSLP       Pa         N Y F0;003000 none  0.01 SLP      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTS        K          N Y F0;003000 none  none T2M      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTO3       Dobsons    N Y F0;003000 none  none TO3      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTROPP     Pa         N Y F0;003000 none  0.01 TROPPT   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTSKIN     K          N Y F0;003000 none  none TS       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nU10M      m_s-1      N Y F0;003000 none  none U10M     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nV10M      m_s-1      N Y F0;003000 none  none V10M     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_C180x180x6_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\n# SEAICE[0-9]0 bins not used except in Hg simulation\n\nSEAICE00 1 N Y F0;003000 none none SEAICE00 /dev/null\nSEAICE10 1 N Y F0;003000 none none SEAICE10 /dev/null\nSEAICE20 1 N Y F0;003000 none none SEAICE20 /dev/null\nSEAICE30 1 N Y F0;003000 none none SEAICE30 /dev/null\nSEAICE40 1 N Y F0;003000 none none SEAICE40 /dev/null\nSEAICE50 1 N Y F0;003000 none none SEAICE50 /dev/null\nSEAICE60 1 N Y F0;003000 none none SEAICE60 /dev/null\nSEAICE70 1 N Y F0;003000 none none SEAICE70 /dev/null\nSEAICE80 1 N Y F0;003000 none none SEAICE80 /dev/null\nSEAICE90 1 N Y F0;003000 none none SEAICE90 /dev/null\n\n#-------------------------------------------------------\n# --- 3-hr instantaneous (all 3D) ---\n#-------------------------------------------------------\n\nTMPU1 K N Y 0        none none T ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nTMPU2 K N Y 0;001000 none none T ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\n\n#-------------------------------------------------------\n# --- 3-hr time-averaged (all 3D) ---\n#-------------------------------------------------------\n\nCLDF      1           N Y F0;013000 none  none CLOUD      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nDTRAIN    kg_m-2_s-1  N Y F0;013000 none  none DTRAIN     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.cld_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nTAUCLI    1           N Y F0;013000 none  none TAUCLI     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.cld_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nTAUCLW    1           N Y F0;013000 none  none TAUCLW     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.cld_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nOMEGA     Pa_s-1      N Y F0;013000 none  none OMEGA      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nQI        kg_kg-1     N Y F0;013000 none  none QI         ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nQL        kg_kg-1     N Y F0;013000 none  none QL         ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nRH        1           N Y F0;013000 none  none RH         ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nDQRCU     kg_kg-1_s-1 N Y F0;013000 none  none DQRCU      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nDQRLSAN   kg_kg-1_s-1 N Y F0;013000 none  none DQRLSAN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nREEVAPCN  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPCN   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nREEVAPLS  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPLSAN ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nCMFMC     kg_m-2_s-1  N Y F0;013000 none  none CMFMC      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFICU     kg_m-2_s-1  N Y F0;013000 none  none PFICU      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFILSAN   kg_m-2_s-1  N Y F0;013000 none  none PFILSAN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFLCU     kg_m-2_s-1  N Y F0;013000 none  none PFLCU      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFLLSAN   kg_m-2_s-1  N Y F0;013000 none  none PFLLSAN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_C180x180x6_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\n#-------------------------------------------------------\n# --- Fixed variables, from constants file ---\n#-------------------------------------------------------\n\nFRLAKE     1      N Y - none none FRLAKE    ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\nFRLAND     1      N Y - none none FRLAND    ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\nFRLANDIC   1      N Y - none none FRLANDICE ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\nFROCEAN    1      N Y - none none FROCEAN   ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\nPHIS       m2_s-2 N Y - none none PHIS      ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\nOCEAN_MASK 1      N Y - none none FROCEAN   ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_C180x180x6_slv.2018-01-01T0300Z.nc4\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\nOPTDEP      TAUCLI+TAUCLW 0\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/discover/geosit.raw_0.5x0.625.txt",
    "content": "RUNDIR_MET='GEOSIT'\nRUNDIR_MET_LOWERCASE='geosit'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_IT\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/GEOS_IT_Raw\"\n\nRUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_RES='05x0625'\nRUNDIR_MET_EXT='nc4'\n\nRUNDIR_MET_CN_YR=Y2018\nRUNDIR_MET_CN_MO=M01\n\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_METLIGHTNING='MERRA2'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/0.5x0.625/MERRA2\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=true\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 3-hourly winds\nUA;VA      m_s-1      N Y F0;013000 none  none      U;V      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPS1        Pa         N Y  0        none  0.01      PS       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nPS2        Pa         N Y  0;001000 none  0.01      PS       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nSPHU1      kg_kg-1    N Y  0        none  none      QV       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nSPHU2      kg_kg-1    N Y  0;001000 none  none      QV       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\n\n#-------------------------------------------------------\n# --- 1-hr time-averaged, 2D ---\n#-------------------------------------------------------\n\nEFLUX     W_m-2      N Y F0;003000 none  none EFLUX    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nEVAP      kg_m-2_s-1 N Y F0;003000 none  none EVAP     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nFRSEAICE  1          N Y F0;003000 none  none FRSEAICE ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nHFLUX     W_m-2      N Y F0;003000 none  none HFLUX    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPBLH      m          N Y F0;003000 none  none PBLH     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECANV   kg_m-2_s-1 N Y F0;003000 none  none PRECANV  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECCON   kg_m-2_s-1 N Y F0;003000 none  none PRECCON  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECLSC   kg_m-2_s-1 N Y F0;003000 none  none PRECLSC  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECSNO   kg_m-2_s-1 N Y F0;003000 none  none PRECSNO  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPRECTOT   kg_m-2_s-1 N Y F0;003000 none  none PRECTOT  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nUSTAR     m_s-1      N Y F0;003000 none  none USTAR    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nZ0        m          N Y F0;003000 none  none Z0M      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.flx_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\nFRSNO     1          N Y F0;003000 none  none FRSNO    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nGRN       1          N Y F0;003000 none  none GRN      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nGWETROOT  1          N Y F0;003000 none  none GWETROOT ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nGWETTOP   1          N Y F0;003000 none  none GWETTOP  ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nLAI       1          N Y F0;003000 none  none LAI      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPARDF     W_m-2      N Y F0;003000 none  none PARDF    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPARDR     W_m-2      N Y F0;003000 none  none PARDR    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nSNODP     m          N Y F0;003000 none  none SNODP    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nSNOMAS    kg_m-2     N Y F0;003000 none  none SNOMAS   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.lnd_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\nALBD      1          N Y F0;003000 none  none ALBEDO   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nCLDFRC    1          N Y F0;003000 none  none CLDTOT   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nRADSWG    W_m-2      N Y F0;003000 none  none SWGDN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\nQV2M      kg_kg-1    N Y F0;003000 none  none QV2M     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nSLP       Pa         N Y F0;003000 none  0.01 SLP      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTS        K          N Y F0;003000 none  none T2M      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTO3       Dobsons    N Y F0;003000 none  none TO3      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTROPP     Pa         N Y F0;003000 none  0.01 TROPPT   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nTSKIN     K          N Y F0;003000 none  none TS       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nU10M      m_s-1      N Y F0;003000 none  none U10M     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nV10M      m_s-1      N Y F0;003000 none  none V10M     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.slv_tavg_1hr_glo_L576x361_slv.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\n\n# SEAICE[0-9]0 bins not used except in Hg simulation\n\nSEAICE00 1 N Y F0;003000 none none SEAICE00 /dev/null\nSEAICE10 1 N Y F0;003000 none none SEAICE10 /dev/null\nSEAICE20 1 N Y F0;003000 none none SEAICE20 /dev/null\nSEAICE30 1 N Y F0;003000 none none SEAICE30 /dev/null\nSEAICE40 1 N Y F0;003000 none none SEAICE40 /dev/null\nSEAICE50 1 N Y F0;003000 none none SEAICE50 /dev/null\nSEAICE60 1 N Y F0;003000 none none SEAICE60 /dev/null\nSEAICE70 1 N Y F0;003000 none none SEAICE70 /dev/null\nSEAICE80 1 N Y F0;003000 none none SEAICE80 /dev/null\nSEAICE90 1 N Y F0;003000 none none SEAICE90 /dev/null\n\n#-------------------------------------------------------\n# --- 3-hr instantaneous (all 3D) ---\n#-------------------------------------------------------\n\nTMPU1 K N Y 0        none none T ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nTMPU2 K N Y 0;001000 none none T ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\n\n#-------------------------------------------------------\n# --- 3-hr time-averaged (all 3D) ---\n#-------------------------------------------------------\n\nCLDF      1           N Y F0;013000 none  none CLOUD      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.rad_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nDTRAIN    kg_m-2_s-1  N Y F0;013000 none  none DTRAIN     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.cld_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nTAUCLI    1           N Y F0;013000 none  none TAUCLI     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.cld_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nTAUCLW    1           N Y F0;013000 none  none TAUCLW     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.cld_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nOMEGA     Pa_s-1      N Y F0;013000 none  none OMEGA      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nQI        kg_kg-1     N Y F0;013000 none  none QI         ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nQL        kg_kg-1     N Y F0;013000 none  none QL         ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nRH        1           N Y F0;013000 none  none RH         ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nDQRCU     kg_kg-1_s-1 N Y F0;013000 none  none DQRCU      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nDQRLSAN   kg_kg-1_s-1 N Y F0;013000 none  none DQRLSAN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nREEVAPCN  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPCN   ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nREEVAPLS  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPLSAN ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\nCMFMC     kg_m-2_s-1  N Y F0;013000 none  none CMFMC      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFICU     kg_m-2_s-1  N Y F0;013000 none  none PFICU      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFILSAN   kg_m-2_s-1  N Y F0;013000 none  none PFILSAN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFLCU     kg_m-2_s-1  N Y F0;013000 none  none PFLCU      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPFLLSAN   kg_m-2_s-1  N Y F0;013000 none  none PFLLSAN    ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.mst_tavg_3hr_glo_L576x361_v73.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\n\n#-------------------------------------------------------\n# --- Fixed variables, from constants file ---\n#-------------------------------------------------------\n\nFRLAKE     1      N Y - none none FRLAKE    ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_L576x361_slv.2018-01-01T0300Z.nc4\nFRLAND     1      N Y - none none FRLAND    ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_L576x361_slv.2018-01-01T0300Z.nc4\nFRLANDIC   1      N Y - none none FRLANDICE ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_L576x361_slv.2018-01-01T0300Z.nc4\nFROCEAN    1      N Y - none none FROCEAN   ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_L576x361_slv.2018-01-01T0300Z.nc4\nPHIS       m2_s-2 N Y - none none PHIS      ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_L576x361_slv.2018-01-01T0300Z.nc4\nOCEAN_MASK 1      N Y - none none FROCEAN   ./MetDir/Y2018/M01/d5294_geosit_jan18.asm_const_0hr_glo_L576x361_slv.2018-01-01T0300Z.nc4\n\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\nOPTDEP      TAUCLI+TAUCLW 0\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/discover/geosit.raw_1hr_c180_mass_flux.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.true.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Raw cubed-sphere 1-hourly mass fluxes\nUA;VA     m_s-1      N Y F0;013000 none  none      U;V       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_L576x361_v72.%y4-%m2-%d2T%h2%n2Z.nc4   2015-01-01T01:30:00P03:00\nMFXC;MFYC Pa_m+2_s-1 N H F0;003000 none  none      MFXC;MFYC ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.ctm_tavg_1hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nCXC;CYC   1          N H F0;003000 none  none      CX;CY     ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.ctm_tavg_1hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:30:00P01:00\nPS1       Pa         N Y  0        none  0.01      PS        ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.ctm_inst_1hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P01:00\nPS2       Pa         N Y  0;001000 none  0.01      PS        ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.ctm_inst_1hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P01:00\nSPHU1     kg_kg-1    N Y  0        none  none      QV        ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.ctm_inst_1hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P01:00\nSPHU2     kg_kg-1    N Y  0;001000 none  none      QV        ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.ctm_inst_1hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P01:00\n\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/discover/geosit.raw_3hr_c180_wind.txt",
    "content": "RUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION=\"\"\"\n\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 3-hourly winds\nUA;VA      m_s-1      N Y F0;013000 none  none      U;V      ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_tavg_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T01:30:00P03:00\nPS1        Pa         N Y  0        none  0.01      PS       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nPS2        Pa         N Y  0;001000 none  0.01      PS       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nSPHU1      kg_kg-1    N Y  0        none  none      QV       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\nSPHU2      kg_kg-1    N Y  0;001000 none  none      QV       ./MetDir/Y%y4/M%m2/d5294_geosit_jan18.asm_inst_3hr_glo_C180x180x6_v72.%y4-%m2-%d2T%h2%n2Z.nc4 2015-01-01T00:00:00P03:00\n\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/geosit.nonadv_preprocessed_c180.txt",
    "content": "RUNDIR_MET='GEOSIT'\nRUNDIR_MET_LOWERCASE='geosit'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_IT\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_C180/GEOS_IT\"\n\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.false.\nRUNDIR_MET_RES='C180'\nRUNDIR_MET_EXT='nc'\n\nRUNDIR_MET_CN_YR=1998\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_DUST_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SEASALT_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_METLIGHTNING='GEOSIT'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/GEOSIT\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2025-05'\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION}\n\n#-------------------------------------------------------\n# --- 1-hr time-averaged, 2D ---\n#-------------------------------------------------------\n\nALBD     1  N Y F0;003000 none none ALBEDO   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nCLDFRC   1  N Y F0;003000 none none CLDTOT   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nEFLUX    1  N Y F0;003000 none none EFLUX    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nEVAP     1  N Y F0;003000 none none EVAP     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nFRSEAICE 1  N Y F0;003000 none none FRSEAICE ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nFRSNO    1  N Y F0;003000 none none FRSNO    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nGRN      1  N Y F0;003000 none none GRN      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nGWETROOT 1  N Y F0;003000 none none GWETROOT ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nGWETTOP  1  N Y F0;003000 none none GWETTOP  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nHFLUX    1  N Y F0;003000 none none HFLUX    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nLAI      1  N Y F0;003000 none none LAI      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPARDF    1  N Y F0;003000 none none PARDF    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPARDR    1  N Y F0;003000 none none PARDR    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPBLH     1  N Y F0;003000 none none PBLH     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPRECANV  1  N Y F0;003000 none none PRECANV  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPRECCON  1  N Y F0;003000 none none PRECCON  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPRECLSC  1  N Y F0;003000 none none PRECLSC  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPRECSNO  1  N Y F0;003000 none none PRECSNO  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nPRECTOT  1  N Y F0;003000 none none PRECTOT  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nQV2M     1  N Y F0;003000 none none QV2M     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nSLP    hPa  N Y F0;003000 none none SLP      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nSNODP    1  N Y F0;003000 none none SNODP    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nSNOMAS   1  N Y F0;003000 none none SNOMAS   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nRADSWG   1  N Y F0;003000 none none SWGDN    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nTO3 dobson  N Y F0;003000 none none TO3      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nTROPP  hPa  N Y F0;003000 none none TROPPT   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nTSKIN    1  N Y F0;003000 none none TS       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nTS       1  N Y F0;003000 none none T2M      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nUSTAR    1  N Y F0;003000 none none USTAR    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nU10M m_s-1  N Y F0;003000 none none U10M     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nV10M m_s-1  N Y F0;003000 none none V10M     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\nZ0       1  N Y F0;003000 none none Z0M      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.C180.nc\n\n# SEAICE[0-9]0 bins not used except in Hg simulation\n\nSEAICE00 1 N Y F0;003000 none none SEAICE00 /dev/null\nSEAICE10 1 N Y F0;003000 none none SEAICE10 /dev/null\nSEAICE20 1 N Y F0;003000 none none SEAICE20 /dev/null\nSEAICE30 1 N Y F0;003000 none none SEAICE30 /dev/null\nSEAICE40 1 N Y F0;003000 none none SEAICE40 /dev/null\nSEAICE50 1 N Y F0;003000 none none SEAICE50 /dev/null\nSEAICE60 1 N Y F0;003000 none none SEAICE60 /dev/null\nSEAICE70 1 N Y F0;003000 none none SEAICE70 /dev/null\nSEAICE80 1 N Y F0;003000 none none SEAICE80 /dev/null\nSEAICE90 1 N Y F0;003000 none none SEAICE90 /dev/null\n\n#-------------------------------------------------------\n# --- 3-hr instantaneous (all 3D) ---\n#-------------------------------------------------------\n\nTMPU1 K N Y 0        none none T ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.C180.nc\nTMPU2 K N Y 0;001000 none none T ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.C180.nc\n\n#-------------------------------------------------------\n# --- 3-hr time-averaged (all 3D) ---\n#-------------------------------------------------------\n\nQI       1      N Y F0;013000 none none QI       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.C180.nc\nQL       1      N Y F0;013000 none none QL       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.C180.nc\nTAUCLI   1      N Y F0;013000 none none TAUCLI   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.C180.nc\nTAUCLW   1      N Y F0;013000 none none TAUCLW   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.C180.nc\nOPTDEP   1      N Y F0;013000 none none OPTDEPTH ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.C180.nc\nCLDF     1      N Y F0;013000 none none CLOUD    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.C180.nc\nDTRAIN   1      N Y F0;013000 none none DTRAIN   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.C180.nc\nOMEGA    Pa_s-1 N Y F0;013000 none none OMEGA    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.C180.nc\nRH       -      N Y F0;013000 none none RH       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.C180.nc\nDQRCU    1      N Y F0;013000 none none DQRCU    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.C180.nc\nDQRLSAN  1      N Y F0;013000 none none DQRLSAN  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.C180.nc\nREEVAPCN 1      N Y F0;013000 none none REEVAPCN ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.C180.nc\nREEVAPLS 1      N Y F0;013000 none none REEVAPLS ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.C180.nc\nCMFMC    1      N Y F0;013000 none none CMFMC    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.C180.nc\nPFICU    1      N Y F0;013000 none none PFICU    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.C180.nc\nPFILSAN  1      N Y F0;013000 none none PFILSAN  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.C180.nc\nPFLCU    1      N Y F0;013000 none none PFLCU    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.C180.nc\nPFLLSAN  1      N Y F0;013000 none none PFLLSAN  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.C180.nc\n\n#-------------------------------------------------------\n# --- Fixed variables, from constants file ---\n#-------------------------------------------------------\n\nFRLAKE     1      N Y - none none FRLAKE   ./MetDir/1998/01/GEOSIT.19980101.CN.C180.nc\nFRLAND     1      N Y - none none FRLAND   ./MetDir/1998/01/GEOSIT.19980101.CN.C180.nc\nFRLANDIC   1      N Y - none none FRLANDIC ./MetDir/1998/01/GEOSIT.19980101.CN.C180.nc\nFROCEAN    1      N Y - none none FROCEAN  ./MetDir/1998/01/GEOSIT.19980101.CN.C180.nc\nPHIS       m2_s-2 N Y - none none PHIS     ./MetDir/1998/01/GEOSIT.19980101.CN.C180.nc\nOCEAN_MASK 1      N Y - none none FROCEAN  ./MetDir/1998/01/GEOSIT.19980101.CN.C180.nc\n\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/geosit.nonadv_raw_c180.txt",
    "content": "RUNDIR_MET='GEOSIT'\nRUNDIR_MET_LOWERCASE='geosit'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_IT\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_C180/GEOS_IT_Raw\"\n\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.true.\nRUNDIR_MET_RES='C180'\nRUNDIR_MET_EXT='nc4'\n\nRUNDIR_MET_CN_YR=Y1998\nRUNDIR_MET_CN_MO=M01\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_DUST_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SEASALT_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_METLIGHTNING='GEOSIT'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/0.5x0.625/GEOSIT\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2025-05'\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n\n${RUNDIR_MET_EXTDATA_PRIMARY_EXPORTS_FOR_ADVECTION}\n\n#-------------------------------------------------------\n# --- 1-hr time-averaged, 2D ---\n#-------------------------------------------------------\n\nEFLUX     W_m-2      N Y F0;003000 none  none EFLUX    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nEVAP      kg_m-2_s-1 N Y F0;003000 none  none EVAP     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nFRSEAICE  1          N Y F0;003000 none  none FRSEAICE ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nHFLUX     W_m-2      N Y F0;003000 none  none HFLUX    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPBLH      m          N Y F0;003000 none  none PBLH     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECANV   kg_m-2_s-1 N Y F0;003000 none  none PRECANV  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECCON   kg_m-2_s-1 N Y F0;003000 none  none PRECCON  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECLSC   kg_m-2_s-1 N Y F0;003000 none  none PRECLSC  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECSNO   kg_m-2_s-1 N Y F0;003000 none  none PRECSNO  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECTOT   kg_m-2_s-1 N Y F0;003000 none  none PRECTOT  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nUSTAR     m_s-1      N Y F0;003000 none  none USTAR    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nZ0        m          N Y F0;003000 none  none Z0M      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\nFRSNO     1          N Y F0;003000 none  none FRSNO    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nGRN       1          N Y F0;003000 none  none GRN      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nGWETROOT  1          N Y F0;003000 none  none GWETROOT ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nGWETTOP   1          N Y F0;003000 none  none GWETTOP  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nLAI       1          N Y F0;003000 none  none LAI      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPARDF     W_m-2      N Y F0;003000 none  none PARDF    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPARDR     W_m-2      N Y F0;003000 none  none PARDR    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nSNODP     m          N Y F0;003000 none  none SNODP    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nSNOMAS    kg_m-2     N Y F0;003000 none  none SNOMAS   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\nALBD      1          N Y F0;003000 none  none ALBEDO   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nCLDFRC    1          N Y F0;003000 none  none CLDTOT   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nRADSWG    W_m-2      N Y F0;003000 none  none SWGDN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\nQV2M      kg_kg-1    N Y F0;003000 none  none QV2M     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nSLP       Pa         N Y F0;003000 none  0.01 SLP      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTS        K          N Y F0;003000 none  none T2M      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTO3       Dobsons    N Y F0;003000 none  none TO3      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTROPP     Pa         N Y F0;003000 none  0.01 TROPPT   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTSKIN     K          N Y F0;003000 none  none TS       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nU10M      m_s-1      N Y F0;003000 none  none U10M     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nV10M      m_s-1      N Y F0;003000 none  none V10M     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_C180x180x6_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\n# SEAICE[0-9]0 bins not used except in Hg simulation\n\nSEAICE00 1 N Y F0;003000 none none SEAICE00 /dev/null\nSEAICE10 1 N Y F0;003000 none none SEAICE10 /dev/null\nSEAICE20 1 N Y F0;003000 none none SEAICE20 /dev/null\nSEAICE30 1 N Y F0;003000 none none SEAICE30 /dev/null\nSEAICE40 1 N Y F0;003000 none none SEAICE40 /dev/null\nSEAICE50 1 N Y F0;003000 none none SEAICE50 /dev/null\nSEAICE60 1 N Y F0;003000 none none SEAICE60 /dev/null\nSEAICE70 1 N Y F0;003000 none none SEAICE70 /dev/null\nSEAICE80 1 N Y F0;003000 none none SEAICE80 /dev/null\nSEAICE90 1 N Y F0;003000 none none SEAICE90 /dev/null\n\n#-------------------------------------------------------\n# --- 3-hr instantaneous (all 3D) ---\n#-------------------------------------------------------\n\nTMPU1 K N Y 0        none none T ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nTMPU2 K N Y 0;001000 none none T ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\n\n#-------------------------------------------------------\n# --- 3-hr time-averaged (all 3D) ---\n#-------------------------------------------------------\n\nCLDF      1           N Y F0;013000 none  none CLOUD      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nDTRAIN    kg_m-2_s-1  N Y F0;013000 none  none DTRAIN     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.cld_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nTAUCLI    1           N Y F0;013000 none  none TAUCLI     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.cld_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nTAUCLW    1           N Y F0;013000 none  none TAUCLW     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.cld_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nOMEGA     Pa_s-1      N Y F0;013000 none  none OMEGA      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nQI        kg_kg-1     N Y F0;013000 none  none QI         ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nQL        kg_kg-1     N Y F0;013000 none  none QL         ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nRH        1           N Y F0;013000 none  none RH         ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nDQRCU     kg_kg-1_s-1 N Y F0;013000 none  none DQRCU      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nDQRLSAN   kg_kg-1_s-1 N Y F0;013000 none  none DQRLSAN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nREEVAPCN  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPCN   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nREEVAPLS  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPLSAN ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nCMFMC     kg_m-2_s-1  N Y F0;013000 none  none CMFMC      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFICU     kg_m-2_s-1  N Y F0;013000 none  none PFICU      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFILSAN   kg_m-2_s-1  N Y F0;013000 none  none PFILSAN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFLCU     kg_m-2_s-1  N Y F0;013000 none  none PFLCU      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFLLSAN   kg_m-2_s-1  N Y F0;013000 none  none PFLLSAN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_C180x180x6_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\n#-------------------------------------------------------\n# --- Fixed variables, from constants file ---\n#-------------------------------------------------------\n\nFRLAKE     1      N Y - none none FRLAKE    ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_C180x180x6_slv.GEOS5294.1998-01-01T0000.V01.nc4\nFRLAND     1      N Y - none none FRLAND    ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_C180x180x6_slv.GEOS5294.1998-01-01T0000.V01.nc4\nFRLANDIC   1      N Y - none none FRLANDICE ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_C180x180x6_slv.GEOS5294.1998-01-01T0000.V01.nc4\nFROCEAN    1      N Y - none none FROCEAN   ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_C180x180x6_slv.GEOS5294.1998-01-01T0000.V01.nc4\nPHIS       m2_s-2 N Y - none none PHIS      ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_C180x180x6_slv.GEOS5294.1998-01-01T0000.V01.nc4\nOCEAN_MASK 1      N Y - none none FROCEAN   ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_C180x180x6_slv.GEOS5294.1998-01-01T0000.V01.nc4\n\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\nOPTDEP      TAUCLI+TAUCLW 0\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/geosit.preprocessed_0.5x0.625.txt",
    "content": "RUNDIR_MET='GEOSIT'\nRUNDIR_MET_LOWERCASE='geosit'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_IT\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/GEOS_IT\"\n\nRUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.false.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.false.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.false.\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.false.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_RES='05x0625'\nRUNDIR_MET_EXT='nc'\n\nRUNDIR_MET_CN_YR=1998\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_DUST_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SEASALT_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_METLIGHTNING='GEOSIT'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/GEOSIT\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2025-05'\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n\n#-------------------------------------------------------\n# --- Meteorology used in advection ---\n#-------------------------------------------------------\n\nUA;VA   m_s-1   N Y F0;013000 none none U;V ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.05x0625.nc\nPS1     hPa     N Y  0        none none PS  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.05x0625.nc\nPS2     hPa     N Y  0;001000 none none PS  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.05x0625.nc\nSPHU1   kg_kg-1 N Y  0        none none QV  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.05x0625.nc\nSPHU2   kg_kg-1 N Y  0;001000 none none QV  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.05x0625.nc\n\n#-------------------------------------------------------\n# --- 1-hr time-averaged, 2D ---\n#-------------------------------------------------------\n\nALBD     1  N Y F0;003000 none none ALBEDO   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nCLDFRC   1  N Y F0;003000 none none CLDTOT   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nEFLUX    1  N Y F0;003000 none none EFLUX    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nEVAP     1  N Y F0;003000 none none EVAP     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nFRSEAICE 1  N Y F0;003000 none none FRSEAICE ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nFRSNO    1  N Y F0;003000 none none FRSNO    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nGRN      1  N Y F0;003000 none none GRN      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nGWETROOT 1  N Y F0;003000 none none GWETROOT ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nGWETTOP  1  N Y F0;003000 none none GWETTOP  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nHFLUX    1  N Y F0;003000 none none HFLUX    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nLAI      1  N Y F0;003000 none none LAI      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPARDF    1  N Y F0;003000 none none PARDF    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPARDR    1  N Y F0;003000 none none PARDR    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPBLH     1  N Y F0;003000 none none PBLH     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPRECANV  1  N Y F0;003000 none none PRECANV  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPRECCON  1  N Y F0;003000 none none PRECCON  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPRECLSC  1  N Y F0;003000 none none PRECLSC  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPRECSNO  1  N Y F0;003000 none none PRECSNO  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nPRECTOT  1  N Y F0;003000 none none PRECTOT  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nQV2M     1  N Y F0;003000 none none QV2M     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE00 1  N Y F0;003000 none none SEAICE00 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE10 1  N Y F0;003000 none none SEAICE10 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE20 1  N Y F0;003000 none none SEAICE20 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE30 1  N Y F0;003000 none none SEAICE30 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE40 1  N Y F0;003000 none none SEAICE40 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE50 1  N Y F0;003000 none none SEAICE50 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE60 1  N Y F0;003000 none none SEAICE60 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE70 1  N Y F0;003000 none none SEAICE70 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE80 1  N Y F0;003000 none none SEAICE80 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSEAICE90 1  N Y F0;003000 none none SEAICE90 ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSLP    hPa  N Y F0;003000 none none SLP      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSNODP    1  N Y F0;003000 none none SNODP    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nSNOMAS   1  N Y F0;003000 none none SNOMAS   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nRADSWG   1  N Y F0;003000 none none SWGDN    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nTO3 dobson  N Y F0;003000 none none TO3      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nTROPP  hPa  N Y F0;003000 none none TROPPT   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nTSKIN    1  N Y F0;003000 none none TS       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nTS       1  N Y F0;003000 none none T2M      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nUSTAR    1  N Y F0;003000 none none USTAR    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nU10M m_s-1  N Y F0;003000 none none U10M     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nV10M m_s-1  N Y F0;003000 none none V10M     ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\nZ0       1  N Y F0;003000 none none Z0M      ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A1.05x0625.nc\n\n#-------------------------------------------------------\n# --- 3-hr instantaneous (all 3D) ---\n#-------------------------------------------------------\n\nTMPU1 K N Y 0        none none T ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.05x0625.nc\nTMPU2 K N Y 0;001000 none none T ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.I3.05x0625.nc\n\n#-------------------------------------------------------\n# --- 3-hr time-averaged (all 3D) ---\n#-------------------------------------------------------\n\nQI       1      N Y F0;013000 none none QI       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.05x0625.nc\nQL       1      N Y F0;013000 none none QL       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.05x0625.nc\nTAUCLI   1      N Y F0;013000 none none TAUCLI   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.05x0625.nc\nTAUCLW   1      N Y F0;013000 none none TAUCLW   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.05x0625.nc\nOPTDEP   1      N Y F0;013000 none none OPTDEPTH ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.05x0625.nc\nCLDF     1      N Y F0;013000 none none CLOUD    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3cld.05x0625.nc\nDTRAIN   1      N Y F0;013000 none none DTRAIN   ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.05x0625.nc\nOMEGA    Pa_s-1 N Y F0;013000 none none OMEGA    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.05x0625.nc\nRH       -      N Y F0;013000 none none RH       ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3dyn.05x0625.nc\nDQRCU    1      N Y F0;013000 none none DQRCU    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.05x0625.nc\nDQRLSAN  1      N Y F0;013000 none none DQRLSAN  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.05x0625.nc\nREEVAPCN 1      N Y F0;013000 none none REEVAPCN ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.05x0625.nc\nREEVAPLS 1      N Y F0;013000 none none REEVAPLS ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstC.05x0625.nc\nCMFMC    1      N Y F0;013000 none none CMFMC    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.05x0625.nc\nPFICU    1      N Y F0;013000 none none PFICU    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.05x0625.nc\nPFILSAN  1      N Y F0;013000 none none PFILSAN  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.05x0625.nc\nPFLCU    1      N Y F0;013000 none none PFLCU    ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.05x0625.nc\nPFLLSAN  1      N Y F0;013000 none none PFLLSAN  ./MetDir/%y4/%m2/GEOSIT.%y4%m2%d2.A3mstE.05x0625.nc\n\n#-------------------------------------------------------\n# --- Fixed variables, from constants file ---\n#-------------------------------------------------------\n\nFRLAKE     1      N Y - none none FRLAKE   ./MetDir/1998/01/GEOSIT.19980101.CN.05x0625.nc\nFRLAND     1      N Y - none none FRLAND   ./MetDir/1998/01/GEOSIT.19980101.CN.05x0625.nc\nFRLANDIC   1      N Y - none none FRLANDIC ./MetDir/1998/01/GEOSIT.19980101.CN.05x0625.nc\nFROCEAN    1      N Y - none none FROCEAN  ./MetDir/1998/01/GEOSIT.19980101.CN.05x0625.nc\nPHIS       m2_s-2 N Y - none none PHIS     ./MetDir/1998/01/GEOSIT.19980101.CN.05x0625.nc\nOCEAN_MASK 1      N Y - none none FROCEAN  ./MetDir/1998/01/GEOSIT.19980101.CN.05x0625.nc\n\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/geosit/geosit.raw_0.5x0.625.txt",
    "content": "RUNDIR_MET='GEOSIT'\nRUNDIR_MET_LOWERCASE='geosit'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/GEOS_IT\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/GEOS_IT_Raw\"\n\nRUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.true.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.true.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.true.\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.true.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_RES='05x0625'\nRUNDIR_MET_EXT='nc4'\n\nRUNDIR_MET_CN_YR=Y1998\nRUNDIR_MET_CN_MO=M01\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_DUST_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SEASALT_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2025-04/GEOSIT'\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_METLIGHTNING='GEOSIT'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/0.5x0.625/GEOSIT\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2025-05'\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n\n#--------------------------------------\n# --- Meteorology used in advection ---\n#--------------------------------------\n\n# Cubed-sphere 3-hourly winds\nUA;VA      m_s-1      N Y F0;013000 none  none      U;V      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPS1        Pa         N Y  0        none  0.01      PS       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nPS2        Pa         N Y  0;001000 none  0.01      PS       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nSPHU1      kg_kg-1    N Y  0        none  none      QV       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nSPHU2      kg_kg-1    N Y  0;001000 none  none      QV       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\n\n#-------------------------------------------------------\n# --- 1-hr time-averaged, 2D ---\n#-------------------------------------------------------\n\nEFLUX     W_m-2      N Y F0;003000 none  none EFLUX    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nEVAP      kg_m-2_s-1 N Y F0;003000 none  none EVAP     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nFRSEAICE  1          N Y F0;003000 none  none FRSEAICE ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nHFLUX     W_m-2      N Y F0;003000 none  none HFLUX    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPBLH      m          N Y F0;003000 none  none PBLH     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECANV   kg_m-2_s-1 N Y F0;003000 none  none PRECANV  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECCON   kg_m-2_s-1 N Y F0;003000 none  none PRECCON  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECLSC   kg_m-2_s-1 N Y F0;003000 none  none PRECLSC  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECSNO   kg_m-2_s-1 N Y F0;003000 none  none PRECSNO  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPRECTOT   kg_m-2_s-1 N Y F0;003000 none  none PRECTOT  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nUSTAR     m_s-1      N Y F0;003000 none  none USTAR    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nZ0        m          N Y F0;003000 none  none Z0M      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.flx_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\nFRSNO     1          N Y F0;003000 none  none FRSNO    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nGRN       1          N Y F0;003000 none  none GRN      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nGWETROOT  1          N Y F0;003000 none  none GWETROOT ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nGWETTOP   1          N Y F0;003000 none  none GWETTOP  ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nLAI       1          N Y F0;003000 none  none LAI      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPARDF     W_m-2      N Y F0;003000 none  none PARDF    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nPARDR     W_m-2      N Y F0;003000 none  none PARDR    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nSNODP     m          N Y F0;003000 none  none SNODP    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nSNOMAS    kg_m-2     N Y F0;003000 none  none SNOMAS   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.lnd_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\nALBD      1          N Y F0;003000 none  none ALBEDO   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nCLDFRC    1          N Y F0;003000 none  none CLDTOT   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nRADSWG    W_m-2      N Y F0;003000 none  none SWGDN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\nQV2M      kg_kg-1    N Y F0;003000 none  none QV2M     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nSLP       Pa         N Y F0;003000 none  0.01 SLP      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTS        K          N Y F0;003000 none  none T2M      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTO3       Dobsons    N Y F0;003000 none  none TO3      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTROPP     Pa         N Y F0;003000 none  0.01 TROPPT   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nTSKIN     K          N Y F0;003000 none  none TS       ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nU10M      m_s-1      N Y F0;003000 none  none U10M     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\nV10M      m_s-1      N Y F0;003000 none  none V10M     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.slv_tavg_1hr_glo_L576x361_slv.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:30:00P01:00\n\n# SEAICE[0-9]0 bins not used except in Hg simulation\n\nSEAICE00 1 N Y F0;003000 none none SEAICE00 /dev/null\nSEAICE10 1 N Y F0;003000 none none SEAICE10 /dev/null\nSEAICE20 1 N Y F0;003000 none none SEAICE20 /dev/null\nSEAICE30 1 N Y F0;003000 none none SEAICE30 /dev/null\nSEAICE40 1 N Y F0;003000 none none SEAICE40 /dev/null\nSEAICE50 1 N Y F0;003000 none none SEAICE50 /dev/null\nSEAICE60 1 N Y F0;003000 none none SEAICE60 /dev/null\nSEAICE70 1 N Y F0;003000 none none SEAICE70 /dev/null\nSEAICE80 1 N Y F0;003000 none none SEAICE80 /dev/null\nSEAICE90 1 N Y F0;003000 none none SEAICE90 /dev/null\n\n#-------------------------------------------------------\n# --- 3-hr instantaneous (all 3D) ---\n#-------------------------------------------------------\n\nTMPU1 K N Y 0        none none T ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\nTMPU2 K N Y 0;001000 none none T ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_inst_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T00:00:00P03:00\n\n#-------------------------------------------------------\n# --- 3-hr time-averaged (all 3D) ---\n#-------------------------------------------------------\n\nCLDF      1           N Y F0;013000 none  none CLOUD      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.rad_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nDTRAIN    kg_m-2_s-1  N Y F0;013000 none  none DTRAIN     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.cld_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nTAUCLI    1           N Y F0;013000 none  none TAUCLI     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.cld_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nTAUCLW    1           N Y F0;013000 none  none TAUCLW     ./MetDir/%y4/%m2/%d2/GEOS.it.asm.cld_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nOMEGA     Pa_s-1      N Y F0;013000 none  none OMEGA      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nQI        kg_kg-1     N Y F0;013000 none  none QI         ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nQL        kg_kg-1     N Y F0;013000 none  none QL         ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nRH        1           N Y F0;013000 none  none RH         ./MetDir/%y4/%m2/%d2/GEOS.it.asm.asm_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nDQRCU     kg_kg-1_s-1 N Y F0;013000 none  none DQRCU      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nDQRLSAN   kg_kg-1_s-1 N Y F0;013000 none  none DQRLSAN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nREEVAPCN  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPCN   ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nREEVAPLS  kg_kg-1_s-1 N Y F0;013000 none  none REEVAPLSAN ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v72.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\nCMFMC     kg_m-2_s-1  N Y F0;013000 none  none CMFMC      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFICU     kg_m-2_s-1  N Y F0;013000 none  none PFICU      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFILSAN   kg_m-2_s-1  N Y F0;013000 none  none PFILSAN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFLCU     kg_m-2_s-1  N Y F0;013000 none  none PFLCU      ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\nPFLLSAN   kg_m-2_s-1  N Y F0;013000 none  none PFLLSAN    ./MetDir/%y4/%m2/%d2/GEOS.it.asm.mst_tavg_3hr_glo_L576x361_v73.GEOS5294.%y4-%m2-%d2T%h2%n2.V01.nc4 2015-01-01T01:30:00P03:00\n\n#-------------------------------------------------------\n# --- Fixed variables, from constants file ---\n#-------------------------------------------------------\n\nFRLAKE     1      N Y - none none FRLAKE    ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_L576x361_slv.GEOS5294.1998-01-01T0000.V01.nc4\nFRLAND     1      N Y - none none FRLAND    ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_L576x361_slv.GEOS5294.1998-01-01T0000.V01.nc4\nFRLANDIC   1      N Y - none none FRLANDICE ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_L576x361_slv.GEOS5294.1998-01-01T0000.V01.nc4\nFROCEAN    1      N Y - none none FROCEAN   ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_L576x361_slv.GEOS5294.1998-01-01T0000.V01.nc4\nPHIS       m2_s-2 N Y - none none PHIS      ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_L576x361_slv.GEOS5294.1998-01-01T0000.V01.nc4\nOCEAN_MASK 1      N Y - none none FROCEAN   ./MetDir/1998/01/01/GEOS.it.asm.asm_const_0hr_glo_L576x361_slv.GEOS5294.1998-01-01T0000.V01.nc4\n\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\nOPTDEP      TAUCLI+TAUCLW 0\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/global_grid.txt",
    "content": "RUNDIR_GRID_DOMAIN_NAME='global'\nRUNDIR_GRID_LON_RANGE='[-180.0, 180.0]'\nRUNDIR_GRID_LAT_RANGE='[-90.0, 90.0]'\nRUNDIR_GRID_NESTED_SIM='false'\nRUNDIR_GRID_BUFFER_ZONE='[0, 0, 0, 0]'\n\nRUNDIR_USE_BCs='false'\n"
  },
  {
    "path": "run/shared/settings/gmao_hemco.txt",
    "content": "RUNDIR_GFED_EXT='on '\nRUNDIR_USE_CEDS='true '\nRUNDIR_USE_TSC2H6='true '\nRUNDIR_USE_XIAOC3H8='true '\nRUNDIR_USE_AEIC='true '\nRUNDIR_USE_GMDCH4='true '\nRUNDIR_USE_SFCVMR='true '\nRUNDIR_CMIP6_FIELDS='false'\nRUNDIR_GCAP2_VERTRES='47'\n\nRUNDIR_Bry_DIR='STRAT/v2015-01/Bry'\nRUNDIR_GMI_DIR='GMI/v2015-02'\nRUNDIR_UCX_DIR='UCX/v2018-02'\nRUNDIR_GLOBAL_ACTA='* GLOBAL_ACTA    $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_ACTA  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_Br_GC='* Br_GC          $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_Br    2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_BrO_GC='* BrO_GC         $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_BrO   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\n\nRUNDIR_GLOBAL_CH4='* GLOBAL_CH4     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_CH4   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_Cl='* GLOBAL_Cl      $ROOT/CH4/v2024-01/GCC_14_Output/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_Cl    2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_ClO='* GLOBAL_ClO     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_ClO   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_CO='* GLOBAL_CO      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_CO    2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_HCl='* GLOBAL_HCl     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_HCl   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_HCOOH='* GLOBAL_HCOOH   $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_HCOOH 2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_HNO3='* GLOBAL_HNO3    $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_HNO3  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_HO2='* GLOBAL_HO2     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_HO2   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_HOCl='* GLOBAL_HOCl    $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_HOCl  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_NIT='* GLOBAL_NIT     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_NIT   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_NO='* GLOBAL_NO      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_NO    2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_NO2='* GLOBAL_NO2     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_NO2   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_NO3='* GLOBAL_NO3     $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_NO3   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_O3='* GLOBAL_O3      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_O3    2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_OH='* GLOBAL_OH      $ROOT/CH4/v2024-01/GCC_14_Output/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_OH    2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_PM25='* GLOBAL_PM25    $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.AerosolMass.$YYYY$MM01_0000z.nc4      PM25              2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_SO4='* AERO_SO4       $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_SO4   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_NH4='* AERO_NH4       $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_NH4   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_NIT='* AERO_NIT       $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_NIT   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_BCPI='* AERO_BCPI      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_BCPI  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_BCPO='* AERO_BCPO      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_BCPO  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_OCPI='* AERO_OCPI      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_OCPI  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_OCPO='* AERO_OCPO      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_OCPO  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_AERO_DST1='* AERO_DST1      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.SpeciesConc.$YYYY$MM01_0000z.nc4      SpeciesConc_DST1  2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_OA='* GLOBAL_OA      $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.AerosolMass.$YYYY$MM01_0000z.nc4      TotalOA           2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_PCO_CH4='* PCO_CH4        $ROOT/CH4/v2024-01/GCC_14_Output/$YYYY/GEOSChem.ProdLoss.$YYYY$MM01_0000z.nc4         ProdCOfromCH4     2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_PCO_NMVOC='* PCO_NMVOC      $ROOT/CH4/v2024-01/GCC_14_Output/$YYYY/GEOSChem.ProdLoss.$YYYY$MM01_0000z.nc4         ProdCOfromNMVOC   2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_PH2O2='* PH2O2          $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.ProdLoss.$YYYY$MM01_0000z.nc4         Prod_H2O2         2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_O3_PROD='* O3_PROD        $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.ProdLoss.$YYYY$MM01_0000z.nc4         Prod_Ox           2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_O3_LOSS='* O3_LOSS        $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.ProdLoss.$YYYY$MM01_0000z.nc4         Loss_Ox           2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_JBrO='* JBrO           $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.JValues.$YYYY$MM01_0000z.nc4          Jval_BrO          2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_JH2O2='* JH2O2          $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.JValues.$YYYY$MM01_0000z.nc4          Jval_H2O2         2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_JNO2='* JNO2           $ROOT/GCClassic_Output/14.0.0/$YYYY/GEOSChem.JValues.$YYYY$MM01_0000z.nc4          Jval_NO2          2010-2019/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_CH4_LOSS='* CH4_LOSS $ROOT/CH4/v2024-01/GC_CH4_LOSS/GCC14_72LM.ch4loss.4x5.nc4  CH4loss  1985/1-12/1/0 C xyz s-1 * - 1 1'\nRUNDIR_CO2_COPROD='* CO2_COPROD     $ROOT/CO2/v2024-01/CHEM/CO2_prod_rates.GEOS5.2x25.72L.nc                            LCO               2004-2009/1-12/1/0 C xyz kgC/m3/s * - 1 1'\nRUNDIR_Br_TOMCAT='* Br_TOMCAT      $ROOT/MERCURY/v2014-09/BrOx/BrOx.GMI.geos5.2x25.nc                                  LBRO2N                 1985/1-12/1/0 C xyz pptv     * - 1 1'\nRUNDIR_BrO_TOMCAT='* BrO_TOMCAT     $ROOT/MERCURY/v2014-09/BrOx/BrOx.GMI.geos5.2x25.nc                                  LBRO2H                 1985/1-12/1/0 C xyz pptv     * - 1 1'\nRUNDIR_GLOBAL_OC='1002 GLOBAL_OC   $ROOT/POPs/v2015-08/OCPO.$met.$RES.nc                                               OCPO              2005-2009/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_GLOBAL_BC='1002 GLOBAL_BC   $ROOT/POPs/v2015-08/BCPO.$met.$RES.nc                                               BCPO              2005-2009/1-12/1/0 C xyz 1        * - 1 1'\nRUNDIR_TES_CLIM_CCL4='* TES_CLIM_CCL4  $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc                                  CCl4                   2000/1/1/0    C xyz ppbv     * - 1 1'\nRUNDIR_TES_CLIM_CFC11='* TES_CLIM_CFC11 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc                                  CFC11                  2000/1/1/0    C xyz ppbv     * - 1 1'\nRUNDIR_TES_CLIM_CFC12='* TES_CLIM_CFC12 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc                                  CFC12                  2000/1/1/0    C xyz ppbv     * - 1 1'\nRUNDIR_TES_CLIM_CFC22='* TES_CLIM_CFC22 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc                                  CFC22                  2000/1/1/0    C xyz ppbv     * - 1 1'\nRUNDIR_TES_CLIM_CH4='* TES_CLIM_CH4   $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc                                  CH4                    2000/1/1/0    C xyz ppbv     * - 1 1'\nRUNDIR_TES_CLIM_N2O='* TES_CLIM_N2O   $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc                                  N2O                    2000/1/1/0    C xyz ppbv     * - 1 1'\nRUNDIR_GMI_LOSS_CO='* GMI_LOSS_CO    $ROOT/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc                                        loss                   2005/1-12/1/0 C xyz s-1     CO - 1 1'\nRUNDIR_GMI_PROD_CO='* GMI_PROD_CO    $ROOT/GMI/v2022-11/gmi.clim.CO.geos5.2x25.nc                                        prod                   2005/1-12/1/0 C xyz v/v/s   CO - 1 1'\nRUNDIR_OCEAN_MASK='1000 OCEAN_MASK  $METDIR/$CNYR/01/$MET.$CNYR0101.CN.$RES.$NC                                         FROCEAN           2000/1/1/0 C xy 1 1       -180/-90/180/90'\n\n\nRUNDIR_Hg_GLOBAL_Br='* GLOBAL_Br    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  Br           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_BrO='* GLOBAL_BrO   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  BrO          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_CH4='* GLOBAL_CH4   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  CH4          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_Cl='* GLOBAL_Cl    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  Cl           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_ClO='* GLOBAL_ClO   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  ClO          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_CO='* GLOBAL_CO    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  CO           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_HO2='* GLOBAL_HO2   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  HO2          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_NO='* GLOBAL_NO    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  NO           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_NO2='* GLOBAL_NO2   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  NO2          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_O3='* GLOBAL_O3    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  O3           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_OH='* GLOBAL_OH    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  OH           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_fOA='* GLOBAL_fOA   $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  fOA          2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_OCEAN='* GLOBAL_OCEAN $ROOT/MERCURY/v2018-04/ocean_fixed.nc                ocean_conc   2007/1-12/1/0 C xy  1  * - 1 1'\nRUNDIR_Hg_GLOBAL_PM25='* GLOBAL_PM25  $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  PM25         2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RH='* GLOBAL_RH    $ROOT/MERCURY/v2022-04/Oxidants_for_Hg_sim_2016.nc4  RH           2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_BC='* AOD_BC       $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_BC       2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_BGSULF='* AOD_BGSULF   $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_BGSULF   2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST1='* AOD_DST1     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST1     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST2='* AOD_DST2     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST2     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST3='* AOD_DST3     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST3     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST4='* AOD_DST4     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST4     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST5='* AOD_DST5     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST5     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST6='* AOD_DST6     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST6     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_DST7='* AOD_DST7     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_DST7     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_ICEI='* AOD_ICEI     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_ICEI     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_OC='* AOD_OC       $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_OC       2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_SO4='* AOD_SO4      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_SO4      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_SSA='* AOD_SSA      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_SSA      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AOD_SSC='* AOD_SSC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  AOD_SSC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_BC='* Area_BC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_BC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_BGSULF='* Area_BGSULF  $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_BGSULF  2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST1='* Area_DST1    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST1    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST2='* Area_DST2    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST2    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST3='* Area_DST3    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST3    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST4='* Area_DST4    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST4    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST5='* Area_DST5    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST5    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST6='* Area_DST6    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST6    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_DST7='* Area_DST7    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_DST7    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_ICEI='* Area_ICEI    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_ICEI    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_OC='* Area_OC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_OC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_SO4='* Area_SO4     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_SO4     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_SSA='* Area_SSA     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_SSA     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_AREA_SSC='* Area_SSC     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Area_SSC     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_BC='* Radi_BC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_BC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_BGSULF='* Radi_BGSULF  $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_BGSULF  2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST1='* Radi_DST1    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST1    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST2='* Radi_DST2    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST2    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST3='* Radi_DST3    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST3    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST4='* Radi_DST4    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST4    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST5='* Radi_DST5    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST5    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST6='* Radi_DST6    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST6    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_DST7='* Radi_DST7    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_DST7    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_ICEI='* Radi_ICEI    $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_ICEI    2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_OC='* Radi_OC      $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_OC      2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_SO4='* Radi_SO4     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_SO4     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_SSA='* Radi_SSA     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_SSA     2016/1-12/1/0 C xyz 1  * - 1 1'\nRUNDIR_Hg_GLOBAL_RADI_SSC='* Radi_SSC     $ROOT/MERCURY/v2022-04/Aerosols_for_Hg_sim_2016.nc4  Radi_SSC     2016/1-12/1/0 C xyz 1  * - 1 1'\n"
  },
  {
    "path": "run/shared/settings/merra2.txt",
    "content": "RUNDIR_MET='MERRA2'\nRUNDIR_MET_LOWERCASE='merra2'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_${RUNDIR_GRID_DIR}/MERRA2\"\nRUNDIR_MET_DIR_RAW=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/MERRA2\"\n\nRUNDIR_MET_MASS_FLUX_IS_TOP_DOWN=.false.\nRUNDIR_MET_WIND_IS_TOP_DOWN=.false.\nRUNDIR_MET_HUMIDITY_IS_TOP_DOWN=.false.\nRUNDIR_MET_NONADVECTION_IS_TOP_DOWN=.false.\nRUNDIR_IMPORT_MASS_FLUX_FROM_EXTDATA=.false.\nRUNDIR_USE_TOTAL_AIR_PRESSURE_IN_ADVECTION=0\n\nRUNDIR_MET_RES='05x0625'\nRUNDIR_MET_RAW_RES='0.5x0.625'\nRUNDIR_MET_LAT_RES='05'\nRUNDIR_MET_LON_RES='0625'\nRUNDIR_MET_EXT='nc4'\n\nRUNDIR_MET_CN_YR=2015\n\nRUNDIR_METLIGHTNING='MERRA2'\nRUNDIR_METLIGHTNING_DIR=\"${RUNDIR_DATA_ROOT}/GEOS_0.5x0.625/MERRA2\"\nRUNDIR_METLIGHTNING_RES='0.5x0.625'\nRUNDIR_LIGHTNOX_CLIM=false\nRUNDIR_LIGHTNOX_DIR='v2020-03'\nRUNDIR_MET_LCLIM='1980-2019'\n\nRUNDIR_PHOT_CLD_NLEV=34\n\nRUNDIR_OFFLINE_BIOVOC_DIR='v2021-12'\nRUNDIR_OFFLINE_DUST_DIR='v2021-08'\nRUNDIR_OFFLINE_SEASALT_DIR='v2019-01'\nRUNDIR_OFFLINE_SOILNOX_DIR='v2021-12'\nRUNDIR_OFFLINE_EMIS_RES='0.5x0.625'\nRUNDIR_OFFLINE_EMIS_LAT_RES='05'\n\nRUNDIR_MET_EXTDATA_PRIMARY_EXPORTS=\"\"\"\n# --- Wind, 3-hr time-averaged ---\nUA;VA m_s-1 N Y F0;013000 none none U;V ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3dyn.05x0625.nc4\n\n# --- Surface pressure, 3-hr instantaneous ---\nPS1 Pa  N Y 0        none 0.01 PS ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\nPS2 Pa  N Y 0;001000 none 0.01 PS ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\n\n# --- 3D variables, 3-hr instantaneous ---\nSPHU1 kg_kg-1 N Y 0        none none QV ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\nSPHU2 kg_kg-1 N Y 0;001000 none none QV ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\n\n# --- 2D variables, 1-hr averaged ---\nALBD     1 N Y F0;003000 none none ALBEDO   ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nCLDFRC   1 N Y F0;003000 none none CLDTOT   ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nEFLUX    1 N Y F0;003000 none none EFLUX    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nEVAP     1 N Y F0;003000 none none EVAP     ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nFRSEAICE 1 N Y F0;003000 none none FRSEAICE ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nFRSNO    1 N Y F0;003000 none none FRSNO    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nGRN      1 N Y F0;003000 none none GRN      ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nGWETROOT 1 N Y F0;003000 none none GWETROOT ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nGWETTOP  1 N Y F0;003000 none none GWETTOP  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nHFLUX    1 N Y F0;003000 none none HFLUX    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nLAI      1 N Y F0;003000 none none LAI      ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPARDF    1 N Y F0;003000 none none PARDF    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPARDR    1 N Y F0;003000 none none PARDR    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPBLH     1 N Y F0;003000 none none PBLH     ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPRECANV  1 N Y F0;003000 none none PRECANV  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPRECCON  1 N Y F0;003000 none none PRECCON  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPRECLSC  1 N Y F0;003000 none none PRECLSC  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPRECSNO  1 N Y F0;003000 none none PRECSNO  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nPRECTOT  1 N Y F0;003000 none none PRECTOT  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nQV2M     1 N Y F0;003000 none none QV2M     ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE00 1 N Y F0;003000 none none SEAICE00 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE10 1 N Y F0;003000 none none SEAICE10 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE20 1 N Y F0;003000 none none SEAICE20 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE30 1 N Y F0;003000 none none SEAICE30 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE40 1 N Y F0;003000 none none SEAICE40 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE50 1 N Y F0;003000 none none SEAICE50 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE60 1 N Y F0;003000 none none SEAICE60 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE70 1 N Y F0;003000 none none SEAICE70 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE80 1 N Y F0;003000 none none SEAICE80 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSEAICE90 1 N Y F0;003000 none none SEAICE90 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nSLP Pa  N Y F0;003000 none 0.01 SLP ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nSNODP  1 N Y F0;003000 none none SNODP  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nSNOMAS 1 N Y F0;003000 none none SNOMAS ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nRADSWG 1 N Y F0;003000 none none SWGDN  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nTO3 dobson N Y F0;003000 none none TO3 ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nTROPP Pa  N Y F0;003000 none 0.01 TROPPT ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nTSKIN 1 N Y F0;003000 none none TS    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nTS    1 N Y F0;003000 none none T2M   ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nUSTAR 1 N Y F0;003000 none none USTAR ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nU10M m_s-1 N Y F0;003000 none none U10M ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\nV10M m_s-1 N Y F0;003000 none none V10M ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nZ0 1 N Y F0;003000 none none Z0M ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A1.05x0625.nc4\n\nTMPU1 K N Y 0        none none T ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\nTMPU2 K N Y 0;001000 none none T ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.I3.05x0625.nc4\n\n# --- 3D variables, 3-hr averaged ---\nQI     1 N Y F0;013000 none none QI       ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\nQL     1 N Y F0;013000 none none QL       ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\nTAUCLI 1 N Y F0;013000 none none TAUCLI   ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\nTAUCLW 1 N Y F0;013000 none none TAUCLW   ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\nOPTDEP 1 N Y F0;013000 none none OPTDEPTH ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\nCLDF   1 N Y F0;013000 none none CLOUD    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3cld.05x0625.nc4\nDTRAIN 1 N Y F0;013000 none none DTRAIN   ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3dyn.05x0625.nc4\n\nOMEGA Pa_s-1 N Y F0;013000 none none OMEGA ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3dyn.05x0625.nc4\n\nRH - N Y F0;013000 none none RH ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3dyn.05x0625.nc4\n\nDQRCU    1 N Y F0;013000 none none DQRCU    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstC.05x0625.nc4\nDQRLSAN  1 N Y F0;013000 none none DQRLSAN  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstC.05x0625.nc4\nREEVAPCN 1 N Y F0;013000 none none REEVAPCN ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstC.05x0625.nc4\nREEVAPLS 1 N Y F0;013000 none none REEVAPLS ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstC.05x0625.nc4\nCMFMC    1 N Y F0;013000 none none CMFMC    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstE.05x0625.nc4\nPFICU    1 N Y F0;013000 none none PFICU    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstE.05x0625.nc4\nPFILSAN  1 N Y F0;013000 none none PFILSAN  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstE.05x0625.nc4\nPFLCU    1 N Y F0;013000 none none PFLCU    ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstE.05x0625.nc4\nPFLLSAN  1 N Y F0;013000 none none PFLLSAN  ./MetDir/%y4/%m2/MERRA2.%y4%m2%d2.A3mstE.05x0625.nc4\n\n# --- Fixed variables, from constants file ---\nFRLAKE   1 N Y - none none FRLAKE   ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\nFRLAND   1 N Y - none none FRLAND   ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\nFRLANDIC 1 N Y - none none FRLANDIC ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\nFROCEAN  1 N Y - none none FROCEAN  ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\n#\nPHIS m2_s-2 N Y - none none PHIS ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\n\n# Also include FROCEAN with name OCEAN_MASK to match HEMCO container name for ocean mask\nOCEAN_MASK 1 N Y - none none FROCEAN ./MetDir/2015/01/MERRA2.20150101.CN.05x0625.nc4\n\"\"\"\n\nRUNDIR_MET_EXTDATA_DERIVED_EXPORTS=\"\"\"\n\"\"\"\n"
  },
  {
    "path": "run/shared/settings/modele2.1.txt",
    "content": "RUNDIR_MET='ModelE2.1'\nRUNDIR_MET_LOWERCASE='modele2.1'\nRUNDIR_MET_DIR=\"${RUNDIR_DATA_ROOT}/GCAP2/CMIP6/${RUNDIR_GCAP2_SCENARIO}/${RUNDIR_GISS_RES}\"\n\nRUNDIR_MET_RES='2x2.5'\nRUNDIR_MET_NATIVE_RES='2x2.5'\nRUNDIR_MET_LAT_RES='20'\nRUNDIR_MET_LON_RES='25'\nRUNDIR_MET_EXT='nc4'\n\nRUNDIR_MET_CN_YR=1950\n\nRUNDIR_PHOT_CLD_NLEV=28\n"
  },
  {
    "path": "run/shared/settings/nested_grid.txt",
    "content": "RUNDIR_GRID_HALF_POLAR='true '\nRUNDIR_GRID_NESTED_SIM='true '\nRUNDIR_GRID_BUFFER_ZONE='[3, 3, 3, 3]'\n\nRUNDIR_USE_BCs='true '\n"
  },
  {
    "path": "run/shared/setupConfigFiles.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: setupConfigFiles.sh\n#\n# !DESCRIPTION: Defines utility functions to update configuration file\n#  settings when creating a run directory.\n#\\\\\n#\\\\\n# !REVISION HISTORY:\n#  Initial version: M. Sulprizio, 6/24/2020\n#  See the subsequent Git history with the gitk browser!\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n#### Replacement for `sed -i -e` that works on both MacOS and Linux\n#=============================================================================\nfunction sed_ie() {\n    REGEX=${1}\n    FILE=${2}\n    if [[ \"x$(uname -s)\" == \"xDarwin\" ]]; then\n\tsed -i '' -e \"${REGEX}\" \"${FILE}\"          # MacOS/Darwin\n    else\n\tsed -i -e \"${REGEX}\" \"${FILE}\"             # GNU/Linux\n    fi\n}\n\n#=============================================================================\n#### Define function to replace values in config files\n#=============================================================================\nfunction replace_colon_sep_val() {\n    KEY=${1}\n    VALUE=${2}\n    FILE=${3}\n\n    # Debug print (leave commented out)\n    # printf '%-30s : %-20s %-20s\\n' \"${KEY//\\\\}\" \"${VALUE}\" \"${FILE}\"\n\n    # Replace value in line starting with 'whitespace + key + whitespace + : +\n    # whitespace + value' where whitespace is variable length including none\n    #\n    # MacOS sed does not allow you to use \\t for tab.  The quick fix is\n    # to use printf to save a tab character to a variable, and to use\n    # that in the regular expression everywhere you would have used \\t.\n    # See the Github issue geoschem/geos-chem #617. (bmy, 2/23/21)\n    TAB=$(printf \"\\t\")\n    REGEX=\"s|^\\([${TAB} ]*${KEY}[${TAB} ]*:[${TAB} ]*\\).*|\\1${VALUE}|\"\n    sed_ie \"${REGEX}\" \"${FILE}\"\n}\n\n#============================================================================\n#### Define function to remove line(s) in config files\n#============================================================================\nfunction remove_text() {\n    REGEX=\"/${1}/d\"\n    FILE=${2}\n    sed_ie \"${REGEX}\" \"${FILE}\"\n}\n\n#============================================================================\n#### Define function to insert text between two lines of a config file\n#============================================================================\nfunction insert_text() {\n    PREV_LINE=${1}\n    NEW_LINE=${2}\n    FILE=${3}\n\n    # The POSIX standard (which works on both MacOS & GNU/Linux) calls\n    # for splitting the regular expression with a hard return instead\n    # of using a \"\\n\" newline character.\n    REGEX=\"/${PREV_LINE}/a \\\\\n${NEW_LINE}\"\n    sed_ie \"${REGEX}\" \"${FILE}\"\n}\n\n#============================================================================\n#### Define function to update config file default settings based on\n#### simulation selected. All settings changed in this function are common\n#### between GEOS-Chem Classic and GCHP. This script mainly now adds species\n#### geoschem_config.yml and modifies diagnostic output based on simulation\n#### type.\n####\n#### Argument: Extra option for full-chemistry simulation (string)\n#============================================================================\nfunction set_common_settings() {\n\n    # Check that simulation option is passed\n    if [[ $# == 2 ]]; then\n        sim_extra_option=\"${1}\"\n\tmodel=\"${2}\"\n    else\n       echo 'Usage: ./setupConfigFiles.sh {sim_extra_option} {model}'\n       exit 1\n    fi\n\n    valid_options=( 'standard' 'benchmark' 'complexSOA' 'complexSOA_SVPOA' \\\n                    'aciduptake' 'marinePOA' 'TOMAS15' 'TOMAS40' 'APM' 'RRTMG' )\n    for i in \"${valid_options[@]}\"; do\n        if [ \"$i\" == \"$yourValue\" ] ; then\n            echo \"Found\"\n        fi\n    done\n\n    #------------------------------------------------------------------------\n    # Benchmark settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xbenchmark\" ]]; then\n\n\t#--------------------------------\n\t# Updates for GC-Classic only\n\t#--------------------------------\n\tif [[ \"x${model}\" == \"xGCClassic\" ]]; then\n\n\t    # Change time cycle flag to allow missing species\n\t    sed_ie 's|EFYO|CYS|' HEMCO_Config.rc\n\tfi\n\n\t#---------------------------------\n\t# Updates for GCClassic and GCHP\n\t#---------------------------------\n        sed_ie 's|NO     0      3 |NO     104    -1|' HEMCO_Diagn.rc   # Use online soil NOx (ExtNr=104)\n\tsed_ie 's|SALA  0      3 |SALA  107    -1|'   HEMCO_Diagn.rc   # Use online sea salt (ExtNr=107)\n\tsed_ie 's|SALC  0      3 |SALC  107    -1|'   HEMCO_Diagn.rc   #   \"   \"\n\tsed_ie 's|AL  0      3 |AL  107    -1|'       HEMCO_Diagn.rc   #   \"   \"\n\tsed_ie 's|CL  0      3 |CL  107    -1|'       HEMCO_Diagn.rc   #   \"   \"\n        sed_ie 's|0      3 |125    -1|'               HEMCO_Diagn.rc   # Use online dust (ExtNr=125)\n        sed_ie 's|0      4 |108    -1|'               HEMCO_Diagn.rc   # Use MEGAN (ExtNr=108)\n        sed_ie 's|NH3    105    -1|NH3    0      3 |' HEMCO_Diagn.rc   # NaturalNH3 is always ExtNr=0\n        sed_ie 's|ALD2   105    -1|ALD2   0      3 |' HEMCO_Diagn.rc   # PlantDecay is always ExtNr=0\n        sed_ie 's|EOH    105    -1|EOH    0      3 |' HEMCO_Diagn.rc   # PlantDecay is always ExtNr=0\n        sed_ie 's|#Inv|Inv|'                          HEMCO_Diagn.rc\n\n\t# Turn @ into # characters for the benchmark simulation,\n\t# which should cause MAPL to skip reading these lines.\n\t# This is a workaround for a \"input file to long\" MAPL error.\n\tsed_ie 's|@|#|'                               HISTORY.rc\n\n\t# Remove the first comment character on diagnostics\n        sed_ie \"s|#'|'|\"                              HISTORY.rc\n    fi\n\n    #------------------------------------------------------------------------\n    # Standard settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xnone\" ]]; then\n\n        # Remove @ from HISTORY diagnostic fields & uncomment default collection\n        sed_ie 's|@||'                                 HISTORY.rc\n        sed_ie \"s|#'Default|'Default|\"                 HISTORY.rc\n\n    fi\n\n    #------------------------------------------------------------------------\n    # Complex SOA settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xbenchmark\" ]] || \\\n       [[ ${sim_extra_option}    =~ \"complexSOA\" ]] || \\\n       [[ \"x${sim_extra_option}\" == \"xAPM\"       ]]; then\n\n\t# Add complex SOA species ASOA* and ASOG* following AROMPN\n        prev_line='      - AROMPN'\n        new_line='\\      - ASOA1\\\n      - ASOA2\\\n      - ASOA3\\\n      - ASOAN\\\n      - ASOG1\\\n      - ASOG2\\\n      - ASOG3\n'\n        insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Add complex SOA species TSOA* and TSOG* following TOLU\n        prev_line='      - TOLU'\n        new_line='\\      - TSOA0\\\n      - TSOA1\\\n      - TSOA2\\\n      - TSOA3\\\n      - TSOG0\\\n      - TSOG1\\\n      - TSOG2\\\n      - TSOG3\n'\n        insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\tsed_ie 's/@//' HISTORY.rc\n    fi\n\n    # For complexSOA only, remove SOAP and SOAS species from geoschem_config.yml\n    if [[ ${sim_extra_option} =~ \"complexSOA\" ]]; then\n\tremove_text '      - SOAP' geoschem_config.yml\n\tremove_text '      - SOAS' geoschem_config.yml\n    fi\n\n    #------------------------------------------------------------------------\n    # Semivolatile POA settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xcomplexSOA_SVPOA\" ]]; then\n\n\t# Remove non-SVPOA species from geoschem_config.yml\n        remove_text '      - OCPI' geoschem_config.yml\n        remove_text '      - OCPO' geoschem_config.yml\n\n        # Add semivolatile POA species in geoschem_config.yml\n        prev_line='      - N2O5'\n        new_line='\\      - NAP'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Add OPOA* and OPOG* species following OIO\n        prev_line='      - OIO'\n        new_line='      - OPOA1\\\n      - OPOA2\\\n      - OPOG1\\\n      - OPOG2\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Add POA* and POG* species following PIP\n        prev_line='      - PIP'\n        new_line='\\      - POA1\\\n      - POA2\\\n      - POG1\\\n      - POG2\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Remove the @ from HISTORY.rc diagnostic fields\n\tsed_ie 's/@//' HISTORY.rc\n    fi\n\n    #------------------------------------------------------------------------\n    # Acid uptake settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xaciduptake\" ]]; then\n\n        # Add DSTAL* species after DST4\n        prev_line='      - DSTbin7'\n        new_line='\\      - DSTALbin1\\\n      - DSTALbin2\\\n      - DSTALbin3\\\n      - DSTALbin4\\\n      - DSTALbin5\\\n      - DSTALbin6\\\n      - DSTALbin7\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Add NITD* species after NITs.  NOTE: This is non-alphabetical,\n\t# but avoids double-adding these species after NIT and NITs.\n        prev_line='      - NITs'\n        new_line='\\      - NITDbin1\\\n      - NITDbin2\\\n      - NITDbin3\\\n      - NITDbin4\\\n      - NITDbin5\\\n      - NITDbin6\\\n      - NITDbin7\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Add SO4* species after SO4s.  NOTE: This is non-alphabetical,\n\t# but avoids double-adding these species after SO4 and SO4s.\n        prev_line='      - SO4s'\n        new_line='\\      - SO4Dbin1\\\n      - SO4Dbin2\\\n      - SO4Dbin3\\\n      - SO4Dbin4\\\n      - SO4Dbin5\\\n      - SO4Dbin6\\\n      - SO4Dbin7\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Remove the @ from HISTORY.rc diagnostic fields\n\tsed_ie 's/@//' HISTORY.rc\n    fi\n\n    #------------------------------------------------------------------------\n    # Marine POA settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xmarinePOA\" ]]; then\n\n        # Add MOP* species following MONITU\n        prev_line='      - MONITU'\n        new_line='\\      - MOPI\\\n      - MOPO\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Remove the @ from HISTORY.rc diagnostic fields\n\tsed_ie 's|@||' HISTORY.rc\n    fi\n\n    #------------------------------------------------------------------------\n    # RRTMG settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xRRTMG\" ]]; then\n\n\t# Remove @ from HISTORY diagnostic fields & uncomment RRTMG collection\n\tsed_ie 's|@||'                                 HISTORY.rc\n        sed_ie \"s|##'RRTMG'|'RRTMG'|\"                  HISTORY.rc\n        sed_ie \"s|#'Default|'Default|\"                 HISTORY.rc\n\t\n\t# Issue a warning\n\tprintf \"\\nWARNING: All RRTMG run options are enabled which will significantly slow down the model!\"\n        printf \"\\nEdit geoschem_config.yml and HISTORY.rc in your new run directory to customize options to only\"\n        printf \"\\nwhat you need.\\n\"\n    fi\n\n    #------------------------------------------------------------------------\n    # TOMAS settings\n    #------------------------------------------------------------------------\n    if [[ ${sim_extra_option} =~ \"TOMAS\" ]]; then\n\n\t# Change time cycle flag to allow missing species (GCClassic only)\n\tif [[ \"x${model}\" == \"xGCClassic\" ]]; then\n\t    sed_ie 's|EFYO|CYS|' HEMCO_Config.rc\n\tfi\n\n\t# Remove extra species in extension settings for TOMAS15 simulations\n\tif [[ \"x${sim_extra_option}\" == \"xTOMAS15\" ]]; then\n\t    sed_ie 's|\\/SS16\\/SS17\\/SS18\\/SS19\\/SS20\\/SS21\\/SS22\\/SS23\\/SS24\\/SS25\\/SS26\\/SS27\\/SS28\\/SS29\\/SS30\\/SS31\\/SS32\\/SS33\\/SS34\\/SS35\\/SS36\\/SS37\\/SS38\\/SS39\\/SS40||' HEMCO_Config.rc\n\t    sed_ie 's|\\/DUST16\\/DUST17\\/DUST18\\/DUST19\\/DUST20\\/DUST21\\/DUST22\\/DUST23\\/DUST24\\/DUST25\\/DUST26\\/DUST27\\/DUST28\\/DUST29\\/DUST30\\/DUST31\\/DUST32\\/DUST33\\/DUST34\\/DUST35\\/DUST36\\/DUST37\\/DUST38\\/DUST39\\/DUST40||' HEMCO_Config.rc\n\tfi\n\n\t# Add TOMAS species for the first 15 bins following XYLE\n        prev_line='      - XYLE'\n        new_line='\\      - H2SO4\\\n      - NK01\\\n      - NK02\\\n      - NK03\\\n      - NK04\\\n      - NK05\\\n      - NK06\\\n      - NK07\\\n      - NK08\\\n      - NK09\\\n      - NK10\\\n      - NK11\\\n      - NK12\\\n      - NK13\\\n      - NK14\\\n      - NK15\\\n      - SF01\\\n      - SF02\\\n      - SF03\\\n      - SF04\\\n      - SF05\\\n      - SF06\\\n      - SF07\\\n      - SF08\\\n      - SF09\\\n      - SF10\\\n      - SF11\\\n      - SF12\\\n      - SF13\\\n      - SF14\\\n      - SF15\\\n      - SS01\\\n      - SS02\\\n      - SS03\\\n      - SS04\\\n      - SS05\\\n      - SS06\\\n      - SS07\\\n      - SS08\\\n      - SS09\\\n      - SS10\\\n      - SS11\\\n      - SS12\\\n      - SS13\\\n      - SS14\\\n      - SS15\\\n      - ECOB01\\\n      - ECOB02\\\n      - ECOB03\\\n      - ECOB04\\\n      - ECOB05\\\n      - ECOB06\\\n      - ECOB07\\\n      - ECOB08\\\n      - ECOB09\\\n      - ECOB10\\\n      - ECOB11\\\n      - ECOB12\\\n      - ECOB13\\\n      - ECOB14\\\n      - ECOB15\\\n      - ECIL01\\\n      - ECIL02\\\n      - ECIL03\\\n      - ECIL04\\\n      - ECIL05\\\n      - ECIL06\\\n      - ECIL07\\\n      - ECIL08\\\n      - ECIL09\\\n      - ECIL10\\\n      - ECIL11\\\n      - ECIL12\\\n      - ECIL13\\\n      - ECIL14\\\n      - ECIL15\\\n      - OCOB01\\\n      - OCOB02\\\n      - OCOB03\\\n      - OCOB04\\\n      - OCOB05\\\n      - OCOB06\\\n      - OCOB07\\\n      - OCOB08\\\n      - OCOB09\\\n      - OCOB10\\\n      - OCOB11\\\n      - OCOB12\\\n      - OCOB13\\\n      - OCOB14\\\n      - OCOB15\\\n      - OCIL01\\\n      - OCIL02\\\n      - OCIL03\\\n      - OCIL04\\\n      - OCIL05\\\n      - OCIL06\\\n      - OCIL07\\\n      - OCIL08\\\n      - OCIL09\\\n      - OCIL10\\\n      - OCIL11\\\n      - OCIL12\\\n      - OCIL13\\\n      - OCIL14\\\n      - OCIL15\\\n      - DUST01\\\n      - DUST02\\\n      - DUST03\\\n      - DUST04\\\n      - DUST05\\\n      - DUST06\\\n      - DUST07\\\n      - DUST08\\\n      - DUST09\\\n      - DUST10\\\n      - DUST11\\\n      - DUST12\\\n      - DUST13\\\n      - DUST14\\\n      - DUST15\\\n      - AW01\\\n      - AW02\\\n      - AW03\\\n      - AW04\\\n      - AW05\\\n      - AW06\\\n      - AW07\\\n      - AW08\\\n      - AW09\\\n      - AW10\\\n      - AW11\\\n      - AW12\\\n      - AW13\\\n      - AW14\\\n      - AW15\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Special handling for TOMAS-40 bin simulations\n        if [[ ${sim_extra_option} = \"TOMAS40\" ]]; then\n\n\t    # Add NK16-NK40\n    \t    prev_line='      - NK15'\n    \t    new_line='\\      - NK16\\\n      - NK17\\\n      - NK18\\\n      - NK19\\\n      - NK20\\\n      - NK21\\\n      - NK22\\\n      - NK23\\\n      - NK24\\\n      - NK25\\\n      - NK26\\\n      - NK27\\\n      - NK28\\\n      - NK29\\\n      - NK30\\\n      - NK31\\\n      - NK32\\\n      - NK33\\\n      - NK34\\\n      - NK35\\\n      - NK36\\\n      - NK37\\\n      - NK38\\\n      - NK39\\\n      - NK40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add SF16-SF40\n\t    prev_line='      - SF15'\n    \t    new_line='\\      - SF16\\\n      - SF17\\\n      - SF18\\\n      - SF19\\\n      - SF20\\\n      - SF21\\\n      - SF22\\\n      - SF23\\\n      - SF24\\\n      - SF25\\\n      - SF26\\\n      - SF27\\\n      - SF28\\\n      - SF29\\\n      - SF30\\\n      - SF31\\\n      - SF32\\\n      - SF33\\\n      - SF34\\\n      - SF35\\\n      - SF36\\\n      - SF37\\\n      - SF38\\\n      - SF39\\\n      - SF40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add SS16-SS40\n    \t    prev_line='      - SS15'\n    \t    new_line='\\      - SS16\\\n      - SS17\\\n      - SS18\\\n      - SS19\\\n      - SS20\\\n      - SS21\\\n      - SS22\\\n      - SS23\\\n      - SS24\\\n      - SS25\\\n      - SS26\\\n      - SS27\\\n      - SS28\\\n      - SS29\\\n      - SS30\\\n      - SS31\\\n      - SS32\\\n      - SS33\\\n      - SS34\\\n      - SS35\\\n      - SS36\\\n      - SS37\\\n      - SS38\\\n      - SS39\\\n      - SS40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add ECOB16-ECOB40\n    \t    prev_line='      - ECOB15'\n    \t    new_line='\\      - ECOB16\\\n      - ECOB17\\\n      - ECOB18\\\n      - ECOB19\\\n      - ECOB20\\\n      - ECOB21\\\n      - ECOB22\\\n      - ECOB23\\\n      - ECOB24\\\n      - ECOB25\\\n      - ECOB26\\\n      - ECOB27\\\n      - ECOB28\\\n      - ECOB29\\\n      - ECOB30\\\n      - ECOB31\\\n      - ECOB32\\\n      - ECOB33\\\n      - ECOB34\\\n      - ECOB35\\\n      - ECOB36\\\n      - ECOB37\\\n      - ECOB38\\\n      - ECOB39\\\n      - ECOB40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add ECIL15-ECIL40\n    \t    prev_line='      - ECIL15'\n    \t    new_line='\\      - ECIL16\\\n      - ECIL17\\\n      - ECIL18\\\n      - ECIL19\\\n      - ECIL20\\\n      - ECIL21\\\n      - ECIL22\\\n      - ECIL23\\\n      - ECIL24\\\n      - ECIL25\\\n      - ECIL26\\\n      - ECIL27\\\n      - ECIL28\\\n      - ECIL29\\\n      - ECIL30\\\n      - ECIL31\\\n      - ECIL32\\\n      - ECIL33\\\n      - ECIL34\\\n      - ECIL35\\\n      - ECIL36\\\n      - ECIL37\\\n      - ECIL38\\\n      - ECIL39\\\n      - ECIL40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add OCOB15-OCOB40\n    \t    prev_line='      - OCOB15'\n    \t    new_line='\\      - OCOB16\\\n      - OCOB17\\\n      - OCOB18\\\n      - OCOB19\\\n      - OCOB20\\\n      - OCOB21\\\n      - OCOB22\\\n      - OCOB23\\\n      - OCOB24\\\n      - OCOB25\\\n      - OCOB26\\\n      - OCOB27\\\n      - OCOB28\\\n      - OCOB29\\\n      - OCOB30\\\n      - OCOB31\\\n      - OCOB32\\\n      - OCOB33\\\n      - OCOB34\\\n      - OCOB35\\\n      - OCOB36\\\n      - OCOB37\\\n      - OCOB38\\\n      - OCOB39\\\n      - OCOB40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add OCIL16-OCIL40\n    \t    prev_line='      - OCIL15'\n    \t    new_line='\\      - OCIL16\\\n      - OCIL17\\\n      - OCIL18\\\n      - OCIL19\\\n      - OCIL20\\\n      - OCIL21\\\n      - OCIL22\\\n      - OCIL23\\\n      - OCIL24\\\n      - OCIL25\\\n      - OCIL26\\\n      - OCIL27\\\n      - OCIL28\\\n      - OCIL29\\\n      - OCIL30\\\n      - OCIL31\\\n      - OCIL32\\\n      - OCIL33\\\n      - OCIL34\\\n      - OCIL35\\\n      - OCIL36\\\n      - OCIL37\\\n      - OCIL38\\\n      - OCIL39\\\n      - OCIL40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add DUST15-DUST40\n    \t    prev_line='      - DUST15'\n    \t    new_line='\\      - DUST16\\\n      - DUST17\\\n      - DUST18\\\n      - DUST19\\\n      - DUST20\\\n      - DUST21\\\n      - DUST22\\\n      - DUST23\\\n      - DUST24\\\n      - DUST25\\\n      - DUST26\\\n      - DUST27\\\n      - DUST28\\\n      - DUST29\\\n      - DUST30\\\n      - DUST31\\\n      - DUST32\\\n      - DUST33\\\n      - DUST34\\\n      - DUST35\\\n      - DUST36\\\n      - DUST37\\\n      - DUST38\\\n      - DUST39\\\n      - DUST40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t    # Add AW15-AW40\n    \t    prev_line='      - AW15'\n    \t    new_line='\\      - AW16\\\n      - AW17\\\n      - AW18\\\n      - AW19\\\n      - AW20\\\n      - AW21\\\n      - AW22\\\n      - AW23\\\n      - AW24\\\n      - AW25\\\n      - AW26\\\n      - AW27\\\n      - AW28\\\n      - AW29\\\n      - AW30\\\n      - AW31\\\n      - AW32\\\n      - AW33\\\n      - AW34\\\n      - AW35\\\n      - AW36\\\n      - AW37\\\n      - AW38\\\n      - AW39\\\n      - AW40\n'\n\t    insert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n        fi\n\n        # Remove @ from HISTORY diagnostic fields & uncomment TOMAS collection\n        sed_ie 's|@||'                                 HISTORY.rc\n        sed_ie \"s|##'Tomas'|'Tomas'|\"                  HISTORY.rc\n        sed_ie \"s|#'Default|'Default|\"                 HISTORY.rc\n\n\t# Add TOMAS species\n        prev_line=\"'SpeciesConcVV_ACET           ', 'GCHPchem',\"\n        new_line=\"                            'SpeciesConcVV_NK01           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK02           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK03           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK04           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK05           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK06           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK07           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK08           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK09           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK10           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK11           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK12           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK13           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK14           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_NK15           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF01           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF02           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF03           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF04           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF05           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF06           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF07           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF08           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF09           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF10           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF11           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF12           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF13           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF14           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SF15           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB01         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB02         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB03         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB04         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB05         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB06         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB07         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB08         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB09         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB10         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB11         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB12         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB13         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB14         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECOB15         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL01         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL02         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL03         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL04         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL05         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL06         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL07         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL08         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL09         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL10         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL11         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL12         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL13         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL14         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_ECIL15         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB01         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB02         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB03         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB04         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB05         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB06         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB07         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB08         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB09         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB10         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB11         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB12         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB13         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB14         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCOB15         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL01         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL02         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL03         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL04         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL05         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL06         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL07         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL08         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL09         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL10         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL11         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL12         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL13         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL14         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_OCIL15         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS01           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS02           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS03           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS04           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS05           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS06           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS07           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS08           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS09           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS10           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS11           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS12           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS13           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS14           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_SS15           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST01         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST02         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST03         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST04         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST05         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST06         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST07         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST08         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST09         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST10         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST11         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST12         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST13         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST14         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_DUST15         ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW01           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW02           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW03           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW04           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW05           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW06           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW07           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW08           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW09           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW10           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW11           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW12           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW13           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW14           ', 'GCHPchem',\\n\\\n                            'SpeciesConcVV_AW15           ', 'GCHPchem',\"\n\n        insert_text \"${prev_line}\" \"${new_line}\" HISTORY.rc\n\n    fi\n\n    #------------------------------------------------------------------------\n    # APM settings\n    #------------------------------------------------------------------------\n    if [[ \"x${sim_extra_option}\" == \"xAPM\" ]]; then\n\n        # Add APM species following XYLE\n        prev_line='      - XYLE'\n        new_line='\\      - APMBCBIN01\\\n      - APMBCBIN02\\\n      - APMBCBIN03\\\n      - APMBCBIN04\\\n      - APMBCBIN05\\\n      - APMBCBIN06\\\n      - APMBCBIN07\\\n      - APMBCBIN08\\\n      - APMBCBIN09\\\n      - APMBCBIN10\\\n      - APMBCBIN11\\\n      - APMBCBIN12\\\n      - APMBCBIN13\\\n      - APMBCBIN14\\\n      - APMBCBIN15\\\n      - APMCTBC1\\\n      - APMCTBC2\\\n      - APMCTDST1\\\n      - APMCTDST2\\\n      - APMCTOC1\\\n      - APMCTOC2\\\n      - APMCTSEA1\\\n      - APMCTSEA2\\\n      - APMDSTBIN01\\\n      - APMDSTBIN02\\\n      - APMDSTBIN03\\\n      - APMDSTBIN04\\\n      - APMDSTBIN05\\\n      - APMDSTBIN06\\\n      - APMDSTBIN07\\\n      - APMDSTBIN08\\\n      - APMDSTBIN09\\\n      - APMDSTBIN10\\\n      - APMDSTBIN11\\\n      - APMDSTBIN12\\\n      - APMDSTBIN13\\\n      - APMDSTBIN14\\\n      - APMDSTBIN15\\\n      - APMH2SO4\\\n      - APMLVSOA\\\n      - APMLVSOG\\\n      - APMOCBIN01\\\n      - APMOCBIN02\\\n      - APMOCBIN03\\\n      - APMOCBIN04\\\n      - APMOCBIN05\\\n      - APMOCBIN06\\\n      - APMOCBIN07\\\n      - APMOCBIN08\\\n      - APMOCBIN09\\\n      - APMOCBIN10\\\n      - APMOCBIN11\\\n      - APMOCBIN12\\\n      - APMOCBIN13\\\n      - APMOCBIN14\\\n      - APMOCBIN15\\\n      - APMSEABIN01\\\n      - APMSEABIN02\\\n      - APMSEABIN03\\\n      - APMSEABIN04\\\n      - APMSEABIN05\\\n      - APMSEABIN06\\\n      - APMSEABIN07\\\n      - APMSEABIN08\\\n      - APMSEABIN09\\\n      - APMSEABIN10\\\n      - APMSEABIN11\\\n      - APMSEABIN12\\\n      - APMSEABIN13\\\n      - APMSEABIN14\\\n      - APMSEABIN15\\\n      - APMSEABIN16\\\n      - APMSEABIN17\\\n      - APMSEABIN18\\\n      - APMSEABIN19\\\n      - APMSEABIN20\\\n      - APMSPBIN01\\\n      - APMSPBIN02\\\n      - APMSPBIN03\\\n      - APMSPBIN04\\\n      - APMSPBIN05\\\n      - APMSPBIN06\\\n      - APMSPBIN07\\\n      - APMSPBIN08\\\n      - APMSPBIN09\\\n      - APMSPBIN10\\\n      - APMSPBIN11\\\n      - APMSPBIN12\\\n      - APMSPBIN13\\\n      - APMSPBIN14\\\n      - APMSPBIN15\\\n      - APMSPBIN16\\\n      - APMSPBIN17\\\n      - APMSPBIN18\\\n      - APMSPBIN19\\\n      - APMSPBIN20\\\n      - APMSPBIN21\\\n      - APMSPBIN22\\\n      - APMSPBIN23\\\n      - APMSPBIN24\\\n      - APMSPBIN25\\\n      - APMSPBIN26\\\n      - APMSPBIN27\\\n      - APMSPBIN28\\\n      - APMSPBIN29\\\n      - APMSPBIN30\\\n      - APMSPBIN31\\\n      - APMSPBIN32\\\n      - APMSPBIN33\\\n      - APMSPBIN34\\\n      - APMSPBIN35\\\n      - APMSPBIN36\\\n      - APMSPBIN37\\\n      - APMSPBIN38\\\n      - APMSPBIN39\\\n      - APMSPBIN40\n'\n\tinsert_text \"${prev_line}\" \"${new_line}\" geoschem_config.yml\n\n\t# Remove the @ from HISTORY.rc diagnostic fields\n\tsed_ie 's/@//' HISTORY.rc\n    fi\n}\n#EOC\n"
  },
  {
    "path": "run/shared/singleCarbonSpecies.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !IROUTINE: singleCarbonSpecies.sh\n#\n# !DESCRIPTION: Updates carbon simulation configuration files so that\n#  a simulation with a single species can be performed.\n#\n# !CALLING SEQUENCE:\n#  ./singleCarbonSpecies.sh <species-to-retain> <path-to-rundir>\n#\n# !REVISION HISTORY:\n#  14 Sep 2023 - R. Yantosca - Initial version\n#  See the subsequent Git history with the gitk browser!\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# List of all advected species in the carbon simulation\nALL_SPECIES=(CO2 CO CH4 OCS)\n\n\nfunction isItemInList() {\n\n    #=========================================================================\n    # Test if an item is in a list.\n    #\n    # Arguments:\n    # ${1}: The item\n    # ${2}: The list\n    #\n    # Returns (via $?)\n    # 0 if item is in the list\n    # 1 if item is not in the list\n    #\n    # See stackoverflow.com/questions/8063228/check-if-a-variable-exists-in-a-list-in-bash\n    #=========================================================================\n    echo \"${2}\" | tr ' '  '\\n' | grep -F -x -q \"${1}\"\n}\n\n\nfunction keyValueUpdate() {\n\n    #=========================================================================\n    # Runs an sed command to update a \"key: value\" pair in a file\n    #\n    # Arguments:\n    # ${1} : Key\n    # ${2} : Value\n    # ${3} : Replacement value\n    # ${4) : File in which the text is found\n    #=========================================================================\n    cmd=\"s/${1}: ${2}/${1}: ${3}/\"\n    sed -i -e \"$cmd\" \"${4}\"\n}\n\n\nfunction speciesToExclude() {\n\n    #========================================================================\n    # Returns the list of species to exclude\n    #\n    # Arguments:\n    # ${1} : Species to retain\n    #\n    # Returns:\n    # List of species to exclude\n    #========================================================================\n\n    # All species\n    list=(\"${ALL_SPECIES[@]}\")\n\n    # Keep all species except for the 1st argument\n    for i in \"${!list[@]}\"; do\n        if [[ \"x${list[i]}\" == \"x${1}\" ]]; then\n            unset 'list[i]'\n        fi\n    done\n\n    # Print the result (that's how we return strings)\n    result=\"\"\n    for spc in \"${list[@]}\"; do\n        result+=\"${spc} \"\n    done\n    echo $result\n}\n\n\nfunction updateGeosChemConfig() {\n\n    #========================================================================\n    # Removes advected species from geoschem_config.yml\n    #\n    # Arguments:\n    # ${1} : List of species to exclude\n    # ${2} : Path to the run directory\n    #========================================================================\n\n    # File to modify\n    file=\"${2}/geoschem_config.yml\"\n\n    # Remove advected species (use \\< and \\> for exact match in order\n    # to prevent inadvertently removing CO2 with when spc is CO.\n    for spc in ${1}; do\n    cmd=\"/\\s*\\-\\s*\\<${spc}\\>/d\"\n        sed -i -e \"${cmd}\" \"${file}\"\n    done\n}\n\n\nfunction updateHemcoConfig() {\n\n    #========================================================================\n    # Removes advected species from geoschem_config.yml\n    #\n    # Arguments:\n    # ${1} : List of species to exclude\n    # ${2} : Path to the run directory\n    #========================================================================\n\n    # File to be modified\n    file=\"${2}/HEMCO_Config.rc\"\n\n    # True/False values in the HEMCO extension switches section\n    true=\"      true\"\n    false=\"      false\"\n\n    # If CO2 is in the exclude list, turn off CO2 options\n    # NOTE: This must precede CO to avoid unintended deletions\n    isItemInList \"CO2\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        key=\"--> USE_CO2_DATA           \"\n        keyValueUpdate \"${key}\" \"${true}\" \"${false}\" \"${file}\"\n    fi\n\n    # If CO is in the exclude list, turn off CO options\n    isItemInList \"CO\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        key=\"--> USE_CO_DATA            \"\n        keyValueUpdate \"${key}\" \"${true}\" \"${false}\" \"${file}\"\n    fi\n\n    # If CH4 is in the exclude list, turn off CH4 options\n    isItemInList \"CH4\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        key=\"--> USE_CH4_DATA           \"\n        keyValueUpdate \"${key}\" \"${true}\" \"${false}\" \"${file}\"\n    fi\n\n    # If OCS is in the exclude list, turn off OCS options\n    isItemInList \"OCS\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        key=\"--> USE_OCS_DATA           \"\n        keyValueUpdate \"${key}\" \"${true}\" \"${false}\" \"${file}\"\n    fi\n}\n\n\nfunction updateHemcoDiagn() {\n\n    #========================================================================\n    # Comments out lines for unused species in HEMCO_Diagn.rc\n    #\n    # Arguments:\n    # ${1} : List of species to exclude\n    # ${2} : Path to the run directory\n    #========================================================================\n\n    # File to modify\n    file=\"${2}/HEMCO_Diagn.rc\"\n\n    # Remove entries for excluded species\n    exclude=(\"${1}\")\n    for spc in ${exclude[@]}; do\n        sed -i \"/Emis${spc}_/d\" \"${file}\"\n    done\n    sed -i \"/#####/d\" \"${file}\"\n}\n\n\nfunction updateHistory() {\n\n    #========================================================================\n    # Removes entries in HISTORY.rc for unused species\n    #\n    # Arguments:\n    # ${1} : List of species to exclude\n    # ${2} : Path to the run directory\n    # ${3} : List of species to include\n    #========================================================================\n\n    # File to be modified\n    file=\"${2}/HISTORY.rc\"\n\n    # For GCHP: remove entries for species to be excluded\n    exclude=(\"${1}\")\n    for spc in ${exclude[@]}; do\n        sed -i \"/\\_${spc} /d\"   \"${file}\" # trailing space required\n        sed -i \"/Emis${spc}_/d\" \"${file}\"\n    done\n\n    # Restore Collection.fields line\n    if [[ ! ${3} =~ \"CH4\" ]]; then\n\toldline=\"                            'Emis${3}_Total\"\n\tnewline=\"Emissions.fields:           'Emis${3}_Total\"\n\tsed -i \"s|$oldline|$newline|g\" \"${file}\"\n\n\toldline=\"                            'SpeciesConcVV_${3}\"\n\tnewline=\"SpeciesConc.fields:         'SpeciesConcVV_${3}\"\n\tsed -i \"s|$oldline|$newline|g\" \"${file}\"\n\n\toldline=\"                            'BudgetEmisDryDepFull_${3}\"\n\tnewline=\"Budget.fields:              'BudgetEmisDryDepFull_${3}\"\n\tsed -i \"s|$oldline|$newline|g\" \"${file}\"\n\n\toldline=\"                              'CloudConvFlux_${3}\"\n\tnewline=\"CloudConvFlux.fields:         'CloudConvFlux_${3}\"\n\tsed -i \"s|$oldline|$newline|g\" \"${file}\"\n    fi\n\n    # Also disable emissions for OCS-only simulations\n    # (as we currently do not have any)\n    isItemInList \"OCS\" \"${1}\"\n    if [[ $? == 1 ]]; then\n\tsed -i -e \"s/'Emissions/#'Emissions/\" \"${file}\"\n    fi\n}\n\n\nfunction updateExtData() {\n\n    #========================================================================\n    # Removes entries in ExtData.rc for unused species (GCHP only)\n    #\n    # Arguments:\n    # ${1} : List of species to exclude\n    # ${2} : Path to the run directory\n    #========================================================================\n\n    # File to be modified\n    file=\"${2}/ExtData.rc\"\n\n    # Skip if there is no ExtData.rc file (e.g. for GCClassic)\n    [[ ! -f \"${file}\" ]] && return 0\n\n    # If CH4 is in the exclude list, remove CH4 entries.\n    isItemInList \"CH4\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        sed -i \"/^GHGI_/d\"              \"${file}\"\n        sed -i \"/^MEX_/d\"               \"${file}\"\n        sed -i \"/^CAN_/d\"               \"${file}\"\n        sed -i \"/^GFEI_/d\"              \"${file}\"\n        sed -i \"/^EDGAR8_CH4_/d\"        \"${file}\"\n        sed -i \"/CMIP6_CH4_/d\"          \"${file}\"\n        sed -i \"/CMIP6_BB_CH4/d\"        \"${file}\"\n        sed -i \"/^UPDATED_GFED4_CH4/d\"  \"${file}\"\n        sed -i \"/^JPLW_CH4/d\"           \"${file}\"\n        sed -i \"/^CH4_SEEPS/d\"          \"${file}\"\n        sed -i \"/^CH4_RES_DAM/d\"        \"${file}\"\n        sed -i \"/^CH4_RES_SFC/d\"        \"${file}\"\n        sed -i \"/^CH4_TERMITES/d\"       \"${file}\"\n        sed -i \"/^CH4_SOILABSORB/d\"     \"${file}\"\n        sed -i \"/^\\#CH4_/d\"             \"${file}\"\n        sed -i \"/RCP3PD_CH4/d\"          \"${file}\"\n        sed -i \"/RCP45_CH4/d\"           \"${file}\"\n        sed -i \"/RCP60_CH4/d\"           \"${file}\"\n        sed -i \"/RCP85_CH4/d\"           \"${file}\"\n\tsed -i \"/^EMIS_SF/d\"            \"${file}\"\n        sed -i \"/^OH_SF/d\"              \"${file}\"\n        sed -i \"/^MANURE_SF/d\"          \"${file}\"\n        sed -i \"/^RICE_SF/d\"            \"${file}\"\n        sed -i \"/^EDGAR_SEASONAL_SF/d\"  \"${file}\"\n        sed -i \"/^CONUS_/d\"             \"${file}\"\n    fi\n\n    # If CO2 is in the exclude list, remove CO2 entries.\n    # NOTE: CO2 deletions must prececde CO deletions.\n    isItemInList \"CO2\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        sed -i \"/AEIC19_DAILY_CO2 /d\"   \"${file}\"  # trailing space required\n        sed -i \"/AEIC19_MONMEAN_CO2 /d\" \"${file}\"  # trailing space required\n        sed -i \"/BBIOCO2_/d\"            \"${file}\"\n        sed -i \"/^CEDS_CO2_/d\"          \"${file}\"\n        sed -i \"/^CO2_/d\"               \"${file}\"\n        sed -i \"/COPROD/d\"              \"${file}\"\n        sed -i \"/FOSSILCO2_/d\"          \"${file}\"\n        sed -i \"/ICOADS_CO2_/d\"         \"${file}\"\n        sed -i \"/OCEANCO2_/d\"           \"${file}\"\n        sed -i \"/SIB_BBIO_CO2/d\"        \"${file}\"\n\tsed -i \"/AVIATION_SURF_CORR/d\"  \"${file}\"\n    fi\n\n    # If CO is in the exclude list, remove CO entries\n    isItemInList \"CO\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        sed -i \"/AEIC19_DAILY_CO /d\"    \"${file}\"  # trailing space required\n        sed -i \"/AEIC19_MONMEAN_CO /d\"  \"${file}\"  # trailing space required\n        sed -i \"/APEI_CO/d\"             \"${file}\"\n        sed -i \"/^CEDS_CO_/d\"           \"${file}\"\n        sed -i \"/CMIP6_CO_/d\"           \"${file}\"\n        sed -i \"/\\#DICE_/d\"             \"${file}\"\n        sed -i \"/EDGAR_CO_/d\"           \"${file}\"\n        sed -i \"/EPA16_CO_/d\"           \"${file}\"\n        sed -i \"/HTAP_CO_/d\"            \"${file}\"\n        sed -i \"/RCP3PD_CO /d\"          \"${file}\"\n        sed -i \"/RCP45_CO /d\"           \"${file}\"\n        sed -i \"/RCP60_CO /d\"           \"${file}\"\n        sed -i \"/RCP85_CO /d\"           \"${file}\"\n        sed -i \"/NEI99_DOW_CO /d\"       \"${file}\"\n\tsed -i \"/LIQFUEL_/d\"            \"${file}\"\n    fi\n\n    # If OSC is in the exclude list, remove OCS entries\n    isItemInList \"OCS\" \"${1}\"\n    if [[ $? == 0 ]]; then\n        sed -i \"/^OCS_/d\"              \"${file}\"\n        sed -i \"/^StoOCS_/d\"           \"${file}\"\n    fi\n}\n\n\nfunction singleCarbonSpecies() {\n\n    #========================================================================\n    # Main function\n    #\n    # Arguments:\n    # ${1} : Species that you wish to retain\n    # ${2} : Path to the run directory\n    #========================================================================\n\n    # Error check arguments\n    if [[ \"x${1}\" == \"x\" ]]; then\n        echo \"Need to pass the species to retain!\"\n        exit 1\n    fi\n\n    # Path to the run directory\n    if [[ \"x${2}\" == \"x\" ]]; then\n        rundir=\".\"\n    else\n        rundir=\"${2}\"\n    fi\n\n    # Get species to include/exclude\n    exclude=$(speciesToExclude \"${1}\")\n    include=${1}\n\n    # Update configuration files\n    updateGeosChemConfig \"${exclude}\" \"${rundir}\"\n    updateHemcoConfig    \"${exclude}\" \"${rundir}\"\n    updateHemcoDiagn     \"${exclude}\" \"${rundir}\"\n    updateHistory        \"${exclude}\" \"${rundir}\" \"${include}\"\n    updateExtData        \"${exclude}\" \"${rundir}\"\n}\n"
  },
  {
    "path": "run/shared/species_database.yml",
    "content": "# GEOS-Chem Species Database\n# Core species only (neglecting microphysics)\n# NOTE: Anchors must be defined before any variables that reference them.\nA3O2:\n  Formula: CH3CH2CH2OO\n  FullName: Primary peroxy radical from C3H8\n  Is_Gas: true\n  MW_g: 75.10\nACET:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+5\n  Formula: CH3C(O)CH3\n  FullName: Acetone\n  Henry_CR: 5500.0\n  Henry_K0: 2.74e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 58.09\nACR:\n  DD_F0: 1.0\n  DD_Hstar: 7.3\n  Formula: C3H4O\n  FullName: Acrolein\n  Henry_CR: 5100.0\n  Henry_K0: 7.3\n  Is_DryDep: true\n  Is_Gas: true\n  MW_g: 56.06\nACTA:\n  DD_F0: 1.0\n  DD_Hstar: 4.1e+3\n  Formula: CH3C(O)OH\n  FullName: Acetic acid\n  Henry_CR: 6200.0\n  Henry_K0: 4.05e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 60.06\n  WD_RetFactor: 2.0e-2\nACO3:\n  Formula: C3H3O3\n  FullName: Peroxyacetyl radical for APAN\n  Is_Gas: true\n  MW_g: 87.054\nACRO2:\n  Formula: C3H5O4\n  FullName: Peroxy radical from ACR\n  Is_Gas: true\n  MW_g: 105.07\nAERI:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: I\n  FullName: Iodine on aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 126.90\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nAPAN:\n  DD_F0: 1.0\n  DD_Hstar: 3.6\n  Formula: C3H3NO5\n  FullName: Peroxyacryloyl nitrate\n  Henry_CR: 5700.0\n  Henry_K0: 2.94\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 133.06\n  WD_RetFactor: 2.0e-2\nMETALS_PROP: &METALSproperties\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  WD_AerScavEff: 1.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [1.0, 1.0, 1.0]\n  WD_RainoutEff: [1.0, 1.0, 0.0]\n  WD_RainoutEff_Luo: [1.0, 0.1, 0.0]\nAlF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Al\n  FullName: Aluminium on dust Reff = 0.7 microns\n  MW_g: 26.98\n  Radius: 7.3e-7\nAlF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Al\n  FullName: Aluminium on dust, Reff = 1.4 microns\n  MW_g: 26.98\n  Radius: 1.4e-6\n  WD_CoarseAer: true\nALD2:\n  DD_F0: 1.0\n  DD_Hstar: 1.1e+1\n  Formula: CH3CHO\n  FullName: Acetaldehyde\n  Henry_CR: 5900.0\n  Henry_K0: 1.32e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 44.06\n  WD_RetFactor: 2.0e-2\nALK4:\n  FullName: Lumped C4+C5 Alkanes\n  Is_Gas: true\n  MW_g: 58.12\nALK4N1:\n  Formula: C4H8NO5\n  FullName: Peroxy radical from ALK4N2\n  Is_Gas: true\n  MW_g: 150.13\nALK4N2:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+4\n  Formula: RO2NO\n  FullName: Lumped alkyl nitrate from ALK4\n  Henry_CR: 5800.0\n  Henry_K0: 1.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 119.10\n  WD_RetFactor: 2.0e-2\nALK4O2:\n  Formula: C4H9O2\n  FullName: Peroxy radical from ALK4\n  Is_Gas: true\n  MW_g: 89.13\nALK4P:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3CH2CH2CH2OOH\n  FullName: Peroxide from ALK4O2\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 90.14\n  WD_RetFactor: 2.0e-2\nALK6:\n  FullName: Lumped >= C6 Alkanes\n  Formula: C7H16\n  Is_Gas: true\n  MW_g: 100.20\naoa_PROP: &aoaproperties\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\n  Snk_Mode: constant\n  Snk_Value: 0\n  Src_Add: true\n  Src_Horiz: all\n  Src_Mode: constant\n  Src_Units: timestep\n  Src_Value: 1\n  Src_Vert: all\n  Units: days\naoa:\n  << : *aoaproperties\n  FullName: Age of air uniform source tracer\n  Snk_Horiz: all\n  Snk_Vert: surface\naoa_bl:\n  << : *aoaproperties\n  FullName: Age of air uniform source tracer with sink restricted to the boundary layer\n  Snk_Horiz: all\n  Snk_Vert: boundary_layer\naoa_nh:\n  << : *aoaproperties\n  FullName: Age of air uniform source tracer with surface sink restricted to a zone in the northern hemisphere\n  Snk_Horiz: lat_zone\n  Snk_Lats: [30.0, 50.0]\n  Snk_Vert: surface\nAONITA:\n  DD_F0: 1.0\n  DD_Hstar: 2.9e+3\n  Formula: C6H6O6N\n  FullName: Aerosol-phase organonitrates from aromatics\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  Henry_CR: 6800.0\n  Henry_K0: 2.9e+3\n  MW_g: 189.12\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RetFactor: 2.0e-2\nAPINP:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+5\n  Formula: C10H18O3\n  FullName: Hydroperoxide from APIN\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nAPINN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: 1st gen organic nitrate from APIN\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nAPINO2:\n  Formula: C10H17O3\n  FullName: Peroxy radical from APIN\n  Is_Gas: true\n  MW_g: 185.27\nAROMP4:\n  DD_F0: 1.0\n  DD_Hstar: 4.1e+5\n  Formula: C4H4O2\n  FullName: Generic C4 product of aromatics\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 68.08\n  Henry_CR: 7500.0\n  Henry_K0: 4.1e+5\n  WD_RetFactor: 2.0e-2\nAROMP5:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H6O2\n  FullName: C5 unsaturated dicarbonyl\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 98.10\n  Henry_CR: 7500.0\n  Henry_K0: 2.0e+6\n  WD_RetFactor: 2.0e-2\nAROMRO2:\n  Formula: C6H7O3\n  FullName: hydroxy-peroxy radical from aromatics\n  Is_Gas: true\n  MW_g: 127.00\nZRO2:\n  Formula: C7H9O5\n  FullName: RO2 for making lumped aromatic nitrate\n  Is_Gas: true\n  MW_g: 173.16\nAROMCHO:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H6O4\n  FullName: ACCOMECHO from MCM\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 130.10\n  Henry_CR: 7500.0\n  Henry_K0: 2.0e+6\n  WD_RetFactor: 2.0e-2\nAROMCO3:\n  Formula: C5H5O6\n  FullName: Lumped aromatic peroxyacetyl radical\n  Is_Gas: true\n  MW_g: 161.09\nAROMPN:\n  DD_F0: 1.0\n  DD_Hstar: 3.6\n  Formula: C5H5NO8\n  FullName: Lumped PN from aromatics\n  Henry_CR: 5700.0\n  Henry_K0: 2.94\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 207.1\n  WD_RetFactor: 2.0e-2\nAsF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: As\n  FullName: Arsenic on dust Reff = 0.7 microns\n  MW_g: 74.92\n  Radius: 7.3e-7\nAsF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: As\n  FullName: Arsenic on dust, Reff = 1.4 microns\n  MW_g: 74.92\n  Radius: 1.4e-6\nASOA_PROP: &ASOAproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Lumped non-volatile aerosol products of light aromatics + IVOCs\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 150.00\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nASOA1:\n  << : *ASOAproperties\nASOA2:\n  << : *ASOAproperties\nASOA3:\n  << : *ASOAproperties\nASOAN:\n  << : *ASOAproperties\nASOG_PROP: &ASOGproperties\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+5\n  FullName: Lumped non-volatile gas products of light aromatics + IVOCs\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 150.00\n  WD_RetFactor: 2.0e-2\nASOG1:\n  << : *ASOGproperties\nASOG2:\n  << : *ASOGproperties\nASOG3:\n  << : *ASOGproperties\nATO2:\n  Formula: CH3C(O)CH2O2\n  FullName: Peroxy radical from acetone\n  Is_Gas: true\n  MW_g: 89.08\nATOOH:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3C(O)CH2OOH\n  FullName: ATO2 peroxide\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 90.09\n  WD_RetFactor: 2.0e-2\nB3O2:\n  Formula: CH3CH(OO)CH3\n  FullName: B3O2\n  Is_Gas: true\n  MW_g: 75.10\nBALD:\n  DD_F0: 1.0\n  DD_Hstar: 3.8e+1\n  Formula: C7H6O\n  FullName: Benzaldehyde\n  Henry_CR: 5500.0\n  Henry_K0: 3.8e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 106.12\n  WD_RetFactor: 2.0e-2\nBCPI:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: C\n  FullName: Hydrophilic black carbon aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.5]\nBCPO:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: C\n  FullName: Hydrophobic black carbon aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 1.0, 0.5]\n  WD_KcScaleFac_Luo: [1.0, 1.0, 0.0]\n  WD_RainoutEff: [1.0, 1.0, 0.0]\n  WD_RainoutEff_Luo: [0.5, 0.05, 0.0]\nBe_PROP: &Beproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_RadioNuclide: true\n  Is_Tracer: true\n  Is_WetDep: true\n# Comment out tracer-specific code for now and use RnPbBe_mod.F90\n#  Snk_Horiz: all\n#  Snk_Mode: halflife\n#  Snk_Vert: all\n#  Src_Add: true\n#  Src_Mode: HEMCO\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nBe10:\n  << : *Beproperties\n  Formula: Be10\n  FullName: Beryllium-10 isotope\n  MW_g: 10.0\n#  Snk_Period: 5.84e8\n#  Src_Vert: all\nBe10s:\n  << : *Beproperties\n  Formula: Be10\n  FullName: Beryllium-10 isotope stratospheric-source tracer\n  MW_g: 10.0\n#  Snk_Period: 5.84e8\n#  Src_Vert: stratosphere\nBe7:\n  << : *Beproperties\n  Formula: Be7\n  FullName: Beryllium-7 isotope\n  MW_g: 7.0\n#  Snk_Period: 53.3\n#  Src_Vert: all\nBe7s:\n  << : *Beproperties\n  Formula: Be7\n  FullName: Beryllium-7 isotope stratospheric-source tracer\n  MW_g: 7.0\n#  Snk_Period: 53.3\n#  Src_Vert: stratosphere\nBENZ:\n  Formula: C6H6\n  FullName: Benzene\n  Is_Gas: true\n  MW_g: 78.12\nBENZO:\n  Formula: C6H5O\n  FullName: alkoxy radical from aromatics\n  Is_Gas: true\n  MW_g: 93.00\nBENZO2:\n  Formula: C6H5O2\n  FullName: peroxy radical from aromatics\n  Is_Gas: true\n  MW_g: 109.00\nBENZP:\n  DD_F0: 1.0\n  DD_Hstar: 2.9e+3\n  Formula: C6H6O2\n  FullName: Phenyl hydroperoxide\n  Henry_CR: 6800.0\n  Henry_K0: 2.9e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 110.11\n  WD_RetFactor: 2.0e-2\nBPINN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: Saturated 1st gen BPIN organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nBPINO:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+3\n  Formula: C9H14O\n  FullName: Ketone from BPIN\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nBPINO2:\n  Formula: C10H17O3\n  FullName: Peroxy radical from BPIN\n  Is_Gas: true\n  MW_g: 185.27\nBPINOO2:\n  Formula: C10H17O3\n  FullName: 2nd-gen peroxy radical from BPIN\n  Is_Gas: true\n  MW_g: 185.27\nBPINON:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C9H13NO4\n  FullName: Saturated 2nd gen BPIN organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nBPINOOH:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+5\n  Formula: C9H14O3\n  FullName: 2nd-gen peroxide from BPIN\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nBPINP:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+5\n  Formula: C10H18O3\n  FullName: Peroxide from BPIN\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nBr:\n  Formula: Br\n  FullName: Atomic bromine\n  Is_Gas: true\n  MW_g: 79.90\nBr2:\n  DD_F0: 0.0\n  DD_Hstar: 7.6e-1\n  Formula: Br2\n  FullName: Molecular Bromine\n  Henry_CR: 3720.0\n  Henry_K0: 7.6e-1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 159.80\n  WD_RetFactor: 0.0\nBrCl:\n  DD_F0: 0.0\n  DD_Hstar: 9.7e-1\n  Henry_CR: 5600.0\n  Henry_K0: 9.7e-1\n  Formula: BrCl\n  FullName: Bromine chloride\n  Is_Gas: true\n  Is_DryDep: true\n  Is_WetDep: true\n  WD_RetFactor: 0.0\n  Is_Photolysis: true\n  MW_g: 115.45\nBrNO2:\n  Formula: BrNO2\n  FullName: Nitryl bromide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 125.91\nBrNO3:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+20\n  Formula: BrNO3\n  FullName: Bromine nitrate\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 141.91\nBrO:\n  Formula: BrO\n  FullName: Bromine monoxide\n  Is_Gas: true\n  Is_DryAlt: true\n  Is_Photolysis: true\n  MW_g: 95.90\nBRO2:\n  Formula: C6H7O5\n  FullName: Peroxy radical from BENZ oxidation\n  Is_Gas: true\n  MW_g: 159.13\nBUTO2:\n  Formula: C4H7O3\n  FullName: peroxy radical from C4H6\n  Is_Gas: true\n  MW_g: 103.097\nBUTN:\n  DD_F0: 1.0\n  DD_Hstar: 5.0e+4\n  Formula: C4H7NO4\n  FullName: C4H6 alkyl nitrate\n  Henry_CR: 0.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: false\n  Is_WetDep: true\n  MW_g: 133.10\n  WD_RetFactor: 2.0e-2\nSALA_PROP: &SALAproperties\n  DD_AeroDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2200.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  Radius: 2.55e-7\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nBrSALA:\n  << : *SALAproperties\n  Formula: Br\n  FullName: Fine sea salt bromine\n  Is_HygroGrowth: false\n  MW_g: 79.90\nBUTDI:\n  Formula: C4H4O2\n  FullName: Butenedial\n  Is_Gas: true\n  MW_g: 84.07\nBZCO3:\n  Formula: C7H5O3\n  FullName: Acyl peroxy radical from benzaldehyde\n  Is_Gas: true\n  MW_g: 137.00\nBZCO3H:\n  DD_F0: 1.0\n  DD_Hstar: 2.4e+4\n  Formula: C6H5CO3H\n  FullName: Perbenzoic acid\n  Henry_CR: 0.0\n  Henry_K0: 2.4e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 138.12\n  WD_RetFactor: 2.0e-2\nBZPAN:\n  DD_F0: 1.0\n  DD_Hstar: 7.0e+1\n  Formula: C7H5O5N\n  FullName: Peroxybenzoylnitrate\n  Henry_CR: 4600.0\n  Henry_K0: 7.0e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 183.12\n  WD_RetFactor: 2.0e-2\nSALC_PROP: &SALCproperties\n  DD_AeroDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2200.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  Radius: 4.25e-6\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nBrSALC:\n  << : *SALCproperties\n  Formula: Br\n  FullName: Coarse sea salt bromine\n  Is_HygroGrowth: false\n  MW_g: 79.90\n  WD_CoarseAer: true\nC:\n  Formula: C\n  FullName: Atomic carbon\n  MW_g: 12.01\nC2H2:\n  Formula: C2H2\n  FullName: Acetylene (aka Ethyne)\n  Is_Gas: true\n  MW_g: 26.05\nC2H4:\n  Formula: C2H4\n  FullName: Ethylene\n  Is_Gas: true\n  MW_g: 28.05\nC2H6:\n  Formula: C2H6\n  FullName: Ethane\n  Henry_CR: 2400.0\n  Henry_K0: 1.93e-3\n  Is_Gas: true\n  MW_g: 30.08\nC3H8:\n  Formula: C3H8\n  FullName: Propane\n  Henry_CR: 2400.0\n  Henry_K0: 1.52e-3\n  Is_Gas: true\n  MW_g: 44.11\nC4H6:\n  Formula: C4H6\n  FullName: 1,3-butadiene\n  Henry_CR: 4500.0\n  Henry_K0: 1.40e-2\n  Is_Gas: true\n  MW_g: 54.09\nC4HVP1:\n  Formula: C4H7O3\n  FullName: C4 hydroxy-vinyl peroxy radicals from HPALDS\n  Is_Gas: true\n  MW_g: 103.11\nC4HVP2:\n  Formula: C4H7O3\n  FullName: C4 hydroxy-vinyl peroxy radicals from HPALDS\n  Is_Gas: true\n  MW_g: 103.11\nC96N:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C9H15NO4\n  FullName: Saturated 2nd gen monoterpene organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nC96O2:\n  Formula: C10H17O3\n  FullName: 2nd-gen peroxy radical from APIN\n  Is_Gas: true\n  MW_g: 185.27\nC96O2H:\n  DD_F0: 1.0\n  DD_Hstar: 3.14e+5\n  Formula: C9H16O3\n  FullName: Peroxide from APIN 2nd gen\n  Henry_CR: 6039.0\n  Henry_K0: 3.14e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nCaF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Ca\n  FullName: Calcium on dust Reff = 0.7 microns\n  MW_g: 40.08\n  Radius: 7.3e-7\nCaF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Ca\n  FullName: Calcium on dust, Reff = 1.4 microns\n  MW_g: 40.08\n  Radius: 1.4e-6\nCaC3:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Ca\n  FullName: Calcium on dust, Reff = 2.4 microns\n  MW_g: 40.08\n  Radius: 2.4e-6\nCaC4:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Ca\n  FullName: Calcium on dust, Reff = 4.5 microns\n  MW_g: 40.08\n  Radius: 4.5e-6\nCCl4:\n  Formula: CCl4\n  FullName: Carbon tetrachloride\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 153.82\nCdF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Cd\n  FullName: Cadmium on dust Reff = 0.7 microns\n  MW_g: 112.41\n  Radius: 7.3e-7\nCdF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Cd\n  FullName: Cadmium on dust, Reff = 1.4 microns\n  MW_g: 112.41\n  Radius: 1.4e-6\nCFC11:\n  Formula: CCl3F\n  FullName: CFC-11\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 137.37\nCFC113:\n  Formula: C2Cl3F3\n  FullName: CFC-113\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 187.38\nCFC114:\n  Formula: C2Cl2F4\n  FullName: CFC-114\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 170.92\nCFC115:\n  Formula: C2ClF5\n  FullName: CFC-115\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 154.47\nCFC12:\n  Formula: CCl2F2\n  FullName: CFC-12\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 120.91\nCH2Br2:\n  Formula: CH2Br2\n  FullName: Dibromomethane\n  Henry_CR: 5000.0\n  Henry_K0: 1.22\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 173.83\nCH2Cl2:\n  Formula: CH2Cl2\n  FullName: Dichloromethane\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 84.93\nCH2I2:\n  Formula: CH2I2\n  FullName: Diiodomethane\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 267.84\nCH2IBr:\n  Formula: CH2IBr\n  FullName: Bromoiodomethane\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 220.84\nCH2ICl:\n  Formula: CH2ICl\n  FullName: Chloroiodomethane\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 176.38\nCH2O:\n  Background_VV: 4.0e-15\n  DD_F0: 1.0\n  DD_Hstar: 3.0e+3\n  Formula: CH2O\n  FullName: Formaldehyde\n  Henry_CR: 6800.0\n  Henry_K0: 3.24e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 30.03\n  WD_RetFactor: 2.0e-2\nCH2OO:\n  Formula: CH2OO\n  FullName: Criegee intermediate\n  Is_Gas: true\n  MW_g: 46.03\nCH3Br:\n  Formula: CH3Br\n  FullName: Methyl bromide\n  Henry_CR: 2800.0\n  Henry_K0: 1.32e-1\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 94.94\nCH3CCl3:\n  Formula: CH3CCl3\n  FullName: Methyl chloroform\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 133.35\nCH3CHOO:\n  Formula: CH3CHOO\n  FullName: Criegee intermediate\n  Is_Gas: true\n  MW_g: 60.06\nCH3Cl:\n  Formula: CH3Cl\n  FullName: Chloromethane\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 50.45\nCH3I:\n  Background_VV: 1.0e-20\n  Formula: CH3I\n  FullName: Methyl iodide\n  Henry_CR: 3.6e+3\n  Henry_K0: 0.20265\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_Tracer: true\n  Snk_Horiz: all\n  Snk_Mode: efolding\n  Snk_Period: 5\n  Snk_Vert: all\n  Src_Add: true\n  Src_Mode: HEMCO\n  MW_g: 141.94\nCH4_PROP: &CH4properties\n  Formula: CH4\n  Is_Gas: true\n  MW_g: 16.04\nCH4:\n  << : *CH4properties\n  Background_VV: 1.8e-6\n  FullName: Methane\n  MW_g: 16.04\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from biomass burning emissions\nCH4_COL:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from coal emissions\nCH4_GAS:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from gas emissions\nCH4_LAK:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from lake emissions\nCH4_LDF:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from landfill emissions\nCH4_LIV:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from livestock emissions\nCH4_OIL:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from oil emissions\nCH4_OTA:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from other anthropogenic emissions\nCH4_RES:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from hydroelectric reservoir emissions\nCH4_RIC:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from rice emissions\nCH4_SAB:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from soil absorption\nCH4_SEE:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from geological seep emissions\nCH4_TER:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from termite emissions\nCH4_WST:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from waste emissions\nCH4_WTL:\n  << : *CH4properties\n  Background_VV: 1.0e-20\n  FullName: Methane from wetland emissions\nCHBr3:\n  Formula: CHBr3\n  FullName: Bromoform\n  Henry_CR: 5200.0\n  Henry_K0: 1.72\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 252.73\nCHCl3:\n  Formula: CHCl3\n  FullName: Chloroform\n  Is_Gas: true\n  MW_g: 119.35\nCl:\n  Formula: Cl\n  FullName: Atomic chlorine\n  Is_Gas: true\n  MW_g: 35.45\nCl2:\n  DD_F0: 0.0\n  DD_Hstar: 9.2e-2\n  Formula: Cl2\n  FullName: Molecular chlorine\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_DryDep: true\n  Henry_K0: 9.2e-2\n  Henry_CR: 2000.0\n  MW_g: 70.90\nCl2O2:\n  Formula: Cl2O2\n  FullName: Dichlorine dioxide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 102.91\nClNO2:\n  DD_F0: 0.0\n  DD_Hstar: 4.5e-2\n  Formula: ClNO2\n  FullName: Nitryl chloride\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_DryDep: true\n  MW_g: 81.45\nClNO3:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+20\n  Formula: ClNO3\n  FullName: Chlorine nitrate\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Henry_K0: 1.0e+20\n  Henry_CR: 0.0\n  WD_RetFactor: 1.0\n  MW_g: 97.45\nClO:\n  DD_F0: 0.0\n  DD_Hstar: 7.0e-1\n  Formula: ClO\n  FullName: Chlorine monoxide\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_DryDep: true\n  MW_g: 51.45\nClOO:\n  DD_F0: 0.0\n  DD_Hstar: 1.0\n  Formula: ClOO\n  FullName: Chlorine dioxide\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_DryDep: true\n  Henry_K0: 1.0\n  Henry_CR: 3500.0\n  MW_g: 67.45\nCLOCK:\n  Background_VV: 0.0\n  FullName: Clock tracer for diagnosing age of air\n  Is_Gas: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\nCO2_PROP: &CO2properties\n  Formula: CO2\n  Is_Gas: true\n  MW_g: 44.01\nCO2:\n  << : *CO2properties\n  Background_VV: 3.55e-4\n  FullName: Carbon dioxide\nCO2av:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from aviation emissions\nCO2bal:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from balanced biosphere\nCO2bb:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from biomass burning emissions\nCO2bf:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from biofuel emissions\nCO2ch:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from chemical sources\nCO2corr:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide chemical source surface correction\nCO2ff:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from fossil fuel emissions\nCO2nte:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from net terrestrial exchange\nCO2oc:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from ocean emissions\nCO2se:\n  << : *CO2properties\n  Background_VV: 1.0e-20\n  FullName: Carbon dioxide from ship emissions\nCO_PROP: &COproperties\n  Formula: CO\n  Is_Gas: true\n  MW_g: 28.01\nCO:\n  << : *COproperties\n  FullName: Carbon monoxide\n  Background_VV: 1.0e-7\nCOacet:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from acetone oxidation\nCO_25:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Anthropogenic CO 25 day tracer\n  Is_Tracer: true\n  Snk_Horiz: all\n  Snk_Mode: efolding\n  Snk_Period: 25\n  Snk_Vert: all\n  Src_Add: true\n  Src_Mode: HEMCO\nCO_50:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Anthropogenic CO 50 day tracer\n  Is_Tracer: true\n  Snk_Horiz: all\n  Snk_Mode: efolding\n  Snk_Period: 50\n  Snk_Vert: all\n  Src_Add: true\n  Src_Mode: HEMCO\nCOasia:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Anthropogenic + biofuel CO emitted over Asia\nCObbaf:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Biomass burning CO emitted over Africa\nCObbam:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Biomass burning CO emitted over South America\nCObbas:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Biomass burning CO emitted over Asia\nCObbeu:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Biomass burning CO emitted over Europe\nCObboc:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Biomass burning CO emitted over Oceania\nCObboth:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Biomass burning CO emitted everywhere else\nCObiof:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from biofuels (whole world)\nCOch4:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from methane oxidation\nCOeur:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Anthropogenic + biofuel CO emitted over Europe\nCOisop:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from isoprene oxidation\nCOmeoh:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from methanol oxidation\nCOmono:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from monoterpene oxidation\nCOnmvoc:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from NMVOC oxidation\nCOoth:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Anthropogenic + biofuel CO emitted everywhere else\nCOUniformEmis25dayTracer:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO_with_uniform_emission_and_25day_lifetime\nCOus:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: Anthropogenic + biofuel CO emitted over the USA\nCSL:\n  DD_F0: 1.0\n  DD_Hstar: 4.2e+2\n  Formula: C7H8O\n  FullName: Cresols\n  Henry_CR: 8500.0\n  Henry_K0: 4.2e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 108.14\n  WD_RetFactor: 2.0e-2\nDMS:\n  Formula: (CH3)2S\n  FullName: Dimethyl sulfide\n  Henry_CR: 3100.0\n  Henry_K0: 0.48\n  Is_Aerosol: true\n  MW_g: 62.13\nDSTbin_PROP: &DSTbinproperties\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  WD_AerScavEff: 1.0\n  WD_Is_DSTbin: true\n  WD_KcScaleFac: [1.0, 1.0, 1.0]\n  WD_RainoutEff: [1.0, 1.0, 0.0]\n  WD_RainoutEff_Luo: [1.0, 0.1, 0.0]\nDSTbin1:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Dust aerosol, Reff = 0.151 microns\n  MW_g: 29.0\n  Radius: 1.51e-7\n  WD_WashoutRainPara: [3.99e-7, 0.71]\n  WD_WashoutSnowPara: [7.28e-6, 0.57]\nDSTbin2:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Dust aerosol, Reff = 0.253 microns\n  MW_g: 29.0\n  Radius: 2.53e-7\n  WD_WashoutRainPara: [4.07e-7, 0.71]\n  WD_WashoutSnowPara: [1.34e-5, 0.56]\nDSTbin3:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Dust aerosol, Reff = 0.402 microns\n  MW_g: 29.0\n  Radius: 4.02e-7\n  WD_WashoutRainPara: [4.81e-7, 0.72]\n  WD_WashoutSnowPara: [2.72e-5, 0.56]\nDSTbin4:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Dust aerosol, Reff = 0.818 microns\n  MW_g: 29.0\n  Radius: 8.18e-7\n  WD_WashoutRainPara: [8.43e-7, 0.73]\n  WD_WashoutSnowPara: [6.03e-5, 0.55]\nDSTbin5:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Dust aerosol, Reff = 1.491 microns\n  MW_g: 29.0\n  Radius: 1.491e-6\n  WD_WashoutRainPara: [4.82e-5, 0.88]\n  WD_WashoutSnowPara: [4.15e-4, 0.61]\nDSTbin6:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Dust aerosol, Reff = 2.417 microns\n  MW_g: 29.0\n  Radius: 2.417e-6\n  WD_WashoutRainPara: [2.17e-4, 0.87]\n  WD_WashoutSnowPara: [1.27e-3, 0.67]\nDSTbin7:\n  << : *DSTbinproperties\n  Density: 2650.0\n  Radius: 3.721e-6\n  MW_g: 29.0\n  FullName: Dust aerosol, Reff = 3.721 microns\n  WD_WashoutRainPara: [3.37e-4, 0.84]\n  WD_WashoutSnowPara: [2.42e-3, 0.73]\nDSTALbin1:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: DSTbin1 alkalinity\n  MW_g: 29.0\n  Radius: 1.51e-7\n  WD_WashoutRainPara: [3.99e-7, 0.71]\n  WD_WashoutSnowPara: [7.28e-6, 0.57]\nDSTALbin2:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: DSTbin2 alkalinity\n  MW_g: 29.0\n  Radius: 2.53e-7\n  WD_WashoutRainPara: [4.07e-7, 0.71]\n  WD_WashoutSnowPara: [1.34e-5, 0.56]\nDSTALbin3:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: DSTbin3 alkalinity\n  MW_g: 29.0\n  Radius: 4.02e-7\n  WD_WashoutRainPara: [4.81e-7, 0.72]\n  WD_WashoutSnowPara: [2.72e-5, 0.56]\nDSTALbin4:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: DSTbin4 alkalinity\n  MW_g: 29.0\n  Radius: 8.18e-7\n  WD_WashoutRainPara: [8.43e-7, 0.73]\n  WD_WashoutSnowPara: [6.03e-5, 0.55]\nDSTALbin5:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: DSTbin5 alkalinity\n  Radius: 1.491e-6\n  MW_g: 29.0\n  WD_WashoutRainPara: [4.82e-5, 0.88]\n  WD_WashoutSnowPara: [4.15e-4, 0.61]\nDSTALbin6:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: DSTbin6 alkalinity\n  MW_g: 29.0\n  Radius: 2.417e-6\n  WD_WashoutRainPara: [2.17e-4, 0.87]\n  WD_WashoutSnowPara: [1.27e-3, 0.67]\nDSTALbin7:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: DSTbin7 alkalinity\n  MW_g: 29.0\n  Radius: 3.721e-6\n  WD_WashoutRainPara: [3.37e-4, 0.84]\n  WD_WashoutSnowPara: [2.42e-3, 0.73]\nDummyCH4trop:\n  << : *CH4properties\n  Background_VV: 1.8e-6\n  FullName: Dummy species for CH4 reactant (external input for carbon mechanism)\nDummyCH4strat:\n  << : *CH4properties\n  Background_VV: 1.8e-6\n  FullName: Dummy species for CH4 reactant (external input for carbon mechanism)\nDummyNMVOC:\n  << : *COproperties\n  Background_VV: 1.0e-20\n  FullName: CO produced from NMVOC oxidation (external input for carbon mechanism)\ne90_PROP: &e90properties\n  Background_VV: 1.0e-20\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\n  Snk_Horiz: all\n  Snk_Mode: efolding\n  Snk_Period: 90\n  Snk_Vert: all\n  Src_Add: true\n  Src_Mode: maintain_mixing_ratio\n  Src_Units: ppbv\n  Src_Value: 100\n  Src_Vert: surface\ne90:\n  << : *e90properties\n  FullName: Constant burden 90 day tracer\n  Src_Horiz: all\ne90_n:\n  << : *e90properties\n  FullName: Constant burden Northern Hemisphere 90 day tracer\n  Src_Horiz: lat_zone\n  Src_Lats: [ 40.0, 91.0]\ne90_s:\n  << : *e90properties\n  FullName: Constant burden Southern Hemisphere 90 day tracer\n  Src_Horiz: lat_zone\n  Src_Lats: [ -91.0, -40.0 ]\nEBZ:\n  Formula: C8H10\n  FullName: Ethylbenzene\n  Is_Gas: true\n  MW_g: 106.167\nEOH:\n  DD_F0: 0.0\n  DD_Hstar: 1.9e+2\n  Formula: C2H5OH\n  FullName: Ethanol\n  Henry_CR: 6400.0\n  Henry_K0: 1.93e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 46.07\n  WD_RetFactor: 2.0e-2\nETHLN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: CHOCH2ONO2\n  FullName: Ethanol nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 105.06\n  WD_RetFactor: 2.0e-2\nETHN:\n  Formula: HOCH2CH2ONO2\n  FullName: hydroxy-nitrooxy-ethane\n  Is_Gas: true\n  MW_g: 107.07\n  Is_DryDep: true\n  Is_WetDep: true\n  WD_RetFactor: 2.0e-2\n  DD_F0: 0.1\n  DD_Hstar: 3.90e+04\n  Henry_CR: 8600.0\n  Henry_K0: 3.90e+04\nETHP:\n  Formula: HOCH2CH2OOH\n  FullName: hydroxy-hydroperoxy-ethane\n  Is_Gas: true\n  MW_g: 78.07\n  Is_DryDep: true\n  Is_WetDep: true\n  Is_Photolysis: true\n  WD_RetFactor: 2.0e-2\n  DD_F0: 0.1\n  DD_Hstar: 6.50e+5\n  Henry_CR: 8800.0\n  Henry_K0: 6.50e+5\nETNO3:\n  DD_F0: 0.1\n  DD_Hstar: 1.6\n  Formula: C2H5ONO2\n  FullName: Ethyl nitrate\n  Henry_CR: 5400.0\n  Henry_K0: 1.6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 91.08\nETO2:\n  Formula: CH3CH2OO\n  FullName: ETO2\n  Is_Gas: true\n  MW_g: 61.07\nETO:\n  Formula: HOCH2CH2O\n  FullName: alkoxy radical from ETOO\n  Is_Gas: true\n  MW_g: 61.06\nETOO:\n  Formula: HOCH2CH2OO\n  FullName: peroxy radical from ethene\n  Is_Gas: true\n  MW_g: 77.06\nETP:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3CH2OOH\n  FullName: Ethylhydroperoxide\n  Henry_CR: 6000.0\n  Henry_K0: 3.34e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 62.08\n  WD_RetFactor: 2.0e-2\nFeF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Fe\n  FullName: Iron on dust. Reff = 0.7 microns\n  MW_g: 55.84\n  Radius: 7.3e-7\nFeF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Fe\n  FullName: Iron on dust, Reff = 1.4 microns\n  MW_g: 55.84\n  Radius: 1.4e-6\nFixedCl:\n  Formula: Cl\n  FullName: Atomic chlorine (external input for carbon mechanism)\n  Is_Gas: true\n  MW_g: 35.45\nFixedOH:\n  Background_VV: 4.0e-15\n  Formula: OH\n  FullName: Hydroxyl radical (external input for carbon mechanism)\n  Is_Gas: true\n  MW_g: 17.01\nFURA:\n  DD_F0: 1.0\n  DD_Hstar: 1.80e-1\n  Formula: C4H4O\n  FullName: Furan\n  Henry_CR: 6100.0\n  Henry_K0: 1.80e-1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: false\n  Is_WetDep: true\n  MW_g: 68.07\n  WD_RetFactor: 2.0e-2\nGCO3:\n  Formula: HOCH2CO3\n  FullName: Peroxyacetyl radical for PHAN\n  Is_Gas: true\n  MW_g: 91.0428\nGLYC:\n  DD_F0: 1.0\n  DD_Hstar: 4.1e+4\n  Formula: HOCH2CHO\n  FullName: Glycoaldehyde\n  Henry_CR: 4600.0\n  Henry_K0: 4.15e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 60.06\n  WD_RetFactor: 2.0e-2\nGLYX:\n  DD_F0: 1.0\n  DD_Hstar: 3.6e+5\n  Formula: CHOCHO\n  FullName: Glyoxal\n  Henry_CR: 7500.0\n  Henry_K0: 4.15e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 58.04\n  WD_RetFactor: 2.0e-2\nH:\n  Formula: H\n  FullName: Atomic hydrogen\n  Is_Gas: true\n  MW_g: 1.01\nH1211:\n  Formula: CBrClF2\n  FullName: Halon 1211, Freon 12B1\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 165.36\nH1301:\n  Formula: CBrF3\n  FullName: Halon 1301, Freon 13B1\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 148.91\nH2:\n  Background_VV: 5.0e-7\n  Formula: H2\n  FullName: Molecular hydrogen\n  Is_Gas: true\n  MW_g: 2.02\nH2402:\n  Formula: C2Br2F4\n  FullName: Halon 2402\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 259.82\nH2O:\n  Background_VV: 1.839e-2\n  Formula: H2O\n  FullName: Water vapor\n  Is_Gas: true\n  MW_g: 18.02\nH2O2:\n  Background_VV: 4.0e-15\n  DD_F0: 1.0\n  DD_Hstar: 5.0e+7\n  Formula: H2O2\n  FullName: Hydrogen peroxide\n  Henry_CR: 7400.0\n  Henry_K0: 8.3e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 34.02\n  WD_RetFactor: 5e-2\n  WD_LiqAndGas: true\n  WD_ConvFacI2G: 4.36564e-1\nHAC:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: HOCH2C(O)CH3\n  FullName: Hydroxyacetone\n  Henry_CR: 0.0\n  Henry_K0: 7800.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 74.08\n  WD_RetFactor: 2.0e-2\nHACTA:\n  DD_F0: 1.0\n  DD_Hstar: 2.83e+4\n  Formula: HOCH2CO2H\n  FullName: Hydroxyacetic/glycolic acid\n  Henry_CR: 4000.0\n  Henry_K0: 2.83e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 76.0514\n  WD_RetFactor: 2.0e-2\nHBr:\n  DD_F0: 0.0\n  DD_Hstar: 7.1e+15\n  Formula: HBr\n  FullName: Hypobromic acid\n  Henry_CR: 10200.0\n  Henry_K0: 7.1e+13\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 80.91\n  WD_RetFactor: 1.0e+0\nHC5A:\n  DD_F0: 0.0\n  DD_Hstar: 7.8e+3\n  Formula: C5H8O2\n  FullName: isoprene-4,1-hydroxyaldehyde\n  Henry_CR: 0.0\n  Henry_K0: 7.8e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 100.13\n  WD_RetFactor: 2.0e-2\nHCFC123:\n  Formula: C2HCl2F3\n  FullName: HCFC-123, Freon 123\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 152.93\nHCFC141b:\n  Formula: C(CH3)Cl2F\n  FullName: HCFC-141b, Freon 141b\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 116.94\nHCFC142b:\n  Formula: C(CH3)ClF2\n  FullName: HCFC-142b, Freon 142b\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 100.50\nHCFC22:\n  Formula: CHClF2\n  FullName: HCFC-22, Freon 22\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 86.47\nHCl:\n  DD_F0: 0.0\n  DD_Hstar: 2.0e+13\n  Formula: HCl\n  FullName: Hydrochloric acid\n  Henry_CR: 9000.0\n  Henry_K0: 6.3e+10\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 36.45\n  WD_RetFactor: 1.0e+0\nHCOOH:\n  DD_F0: 1.0\n  DD_Hstar: 8.90e+3\n  Formula: HCOOH\n  FullName: Formic acid\n  Henry_CR: 6100.0\n  Henry_K0: 8.92e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 46.03\n  WD_RetFactor: 2.0e-2\nHg0:\n  DD_F0: 3.0e-5\n  DD_Hstar: 0.11\n  Formula: 'Hg'\n  FullName: Elemental mercury\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Hg0: true\n  MW_g: 200.59\nHg_CHEM_PROP: &HgChemProperties\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+14\n  Henry_CR: 8.40e+03\n  Henry_K0: 1.40e+06\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  Is_Hg2: true\n  WD_RetFactor: 1.0\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgBr:\n  FullName: Bromidomercury(I)\n  Formula: HgBr\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgBrNO2:\n  << : *HgChemProperties\n  FullName: syn-Bromido(nitrito-O)mercury(II)\n  Formula: BrHgONO\n  Is_Photolysis: true\nHgBrHO2:\n  << : *HgChemProperties\n  FullName: Bromido(hydroperoxo)mercury(II)\n  Formula:  BrHgOOH\n  Is_Photolysis: true\nHgBrBrO:\n  << : *HgChemProperties\n  FullName: Bromido(hypobromito-O)mercury(II)\n  Formula: BrHgOBr\n  Is_Photolysis: true\nHgBrClO:\n  << : *HgChemProperties\n  FullName: Bromido(hypochlorito-O)mercury(II)\n  Formula: BrHgOCl\n  Is_Photolysis: true\nHgBrO:\n  FullName: Hypobromitomercury(I)\n  Formula: HgBrO\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgBrOH:\n  << : *HgChemProperties\n  FullName: Bromido(hydroxido)mercury(II)\n  Formula: BrHgOH\n  Is_Photolysis: true\n  MW_g:\nHgBr2:\n  << : *HgChemProperties\n  FullName: Dibromidomercury(II)\n  Formula: HgBr2\n  Is_Photolysis: true\nHgCl:\n  FullName: Chloridomercury(I)\n  Formula: HgCl\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: false\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgClNO2:\n  << : *HgChemProperties\n  FullName: syn-Chlorido(nitrito-kO)mercury(II)\n  Formula: ClHgONO\n  Is_Photolysis: true\nHgClHO2:\n  << : *HgChemProperties\n  FullName: Chlorido(hydroperoxido)mercury(II)\n  Formula: ClHgOOH\n  Is_Photolysis: true\nHgClClO:\n  << : *HgChemProperties\n  FullName: Chlorido(hypochlorito-kO)mercury(II)\n  Formula: ClHgOCl\n  Is_Photolysis: true\nHgClBrO:\n  << : *HgChemProperties\n  FullName: Chlorido(hypobromito-kO)mercury(II)\n  Formula: ClHgOBr\n  Is_Photolysis: true\nHgClBr:\n  << : *HgChemProperties\n  FullName: Bromidochloridomercury(II)\n  Formula: HgBrCl\n  Is_Photolysis: true\nHgClO:\n  FullName: Hypochloritomercury(I)\n  Formula: ClHgO\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgClOH:\n  << : *HgChemProperties\n  FullName: Chlorido(hydroxido)mercury(II)\n  Formula: ClHgOH\n  Is_Photolysis: true\n  MW_g:\nHgOH:\n  FullName: Hydroxidomercury(I)\n  Formula: HgOH\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgOHO:\n  FullName: Hydroperoxomercury(I)\n  Formula: HgOHO\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHgOHNO2:\n  << : *HgChemProperties\n  FullName: syn-Hydroperoxido(hydroxido)mercury(II)\n  Formula: HOHgONO\n  Is_Photolysis: true\nHgOHHO2:\n  << : *HgChemProperties\n  FullName: Hydroperoxo(hydroxido)mercury(II)\n  Formula: HOHgOOH\n  Is_Photolysis: true\nHgOHClO:\n  << : *HgChemProperties\n  FullName: Hydroxido(hypochlorito-O)mercury(II)\n  Formula: HOHgOCl\n  Is_Photolysis: true\n  MW_g:\nHgOHBrO:\n  << : *HgChemProperties\n  FullName: Hydroxido(hypobromito-O)mercury(II)\n  Formula: HOHgOBr\n  Is_Photolysis: true\nHgOHOH:\n  << : *HgChemProperties\n  FullName: Dihydroxidomercury(II)\n  Formula: HOHgOH\n  Is_Photolysis: false\nHgCl2:\n  << : *HgChemProperties\n  FullName: Dichloridomercury(II)\n  Formula: HgCl2\n  Is_Photolysis: false\nHg2ClP:\n  FullName: Hg(II) chloride salts on sea-salt aerosols\n  Formula: HgCln\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  Is_HgP: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nHg2ORGP:\n  FullName: Hg(II) organic complex in aerosols\n  Formula: R-Hg\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  Is_HgP: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nHg2STRP:\n  FullName: Hg(II) in stratospheric aerosols\n  Formula: Hg2+\n  Is_Aerosol: true\n  Is_HgP: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\nHI:\n  DD_F0: 0.0\n  DD_Hstar: 2.35e+16\n  Formula: HI\n  FullName: Hydrogen iodide\n  Henry_CR: 3.1872e+3\n  Henry_K0: 7.43e+13\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 127.91\n  WD_RetFactor: 1.0\nHMHP:\n  DD_F0: 1.0\n  DD_Hstar: 1.3e+6\n  Formula: HOCH2OOH\n  FullName: Hydroxymethyl hydroperoxide\n  Henry_CR: 5200.0\n  Henry_K0: 1.3e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 64.05\n  WD_RetFactor: 2.0e-2\nHMML:\n  DD_F0: 1.0\n  DD_Hstar: 1.2e+5\n  Formula: C4H6O3\n  FullName: hydroxymethyl-methyl-a-lactone\n  Henry_CR: 7200.0\n  Henry_K0: 1.2e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 102.10\n  WD_RetFactor: 2.0e-2\nHMS:\n  Background_VV: 1.0e-15\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: HOCH2SO3−\n  FullName: Hydroxymethanesulfonate\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 111.10\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nHNO2:\n  Background_VV: 4.0e-15\n  Formula: HNO2\n  FullName: Nitrous acid\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 47.01\nHNO3:\n  Background_VV: 4.0e-15\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+14\n  Formula: HNO3\n  FullName: Nitric acid\n  Henry_CR: 7400.0\n  Henry_K0: 8.3e+4\n  Is_DryAlt: true\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 63.01\n  WD_AerScavEff: 1.0\n  WD_Is_HNO3: true\n  WD_KcScaleFac: [1.0, 1.0, 1.0]\n  WD_KcScaleFac_Luo: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 1.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nHNO4:\n  Background_VV: 4.0e-15\n  Formula: HNO4\n  FullName: Peroxynitric acid\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 79.01\nHO2:\n  Background_VV: 4.0e-15\n  Formula: HO2\n  FullName: Hydroperoxyl radical\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 33.01\nHOBr:\n  DD_F0: 0.0\n  DD_Hstar: 1.3e+3\n  Formula: HOBr\n  FullName: Hypobromous acid\n  Henry_CR: 4000.0\n  Henry_K0: 1.3e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 96.91\n  WD_RetFactor: 0.0\nHOCl:\n  DD_F0: 0.0\n  DD_Hstar: 6.5e+2\n  Formula: HOCl\n  FullName: Hypochlorous acid\n  Henry_CR: 5900.0\n  Henry_K0: 6.50e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 52.45\n  WD_RetFactor: 0.0\nHOI:\n  DD_F0: 0.0\n  DD_Hstar: 1.54e+4\n  Formula: HOI\n  FullName: Hypoiodous acid\n  Henry_CR: 8371.0\n  Henry_K0: 1.54e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 143.89\n  WD_RetFactor: 2.0e-2\nHONIT:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  FullName: 2nd gen monoterpene organic nitrate\n  Henry_CR: 5487.0\n  Henry_K0: 2.69e+13\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 215.0\n  WD_RetFactor: 2.0e-2\nHPALD1:\n  DD_F0: 0.0\n  DD_Hstar: 4.0e+4\n  Formula: C5H8O3\n  FullName: d-4,1-C5-hydroperoxyaldehyde\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 116.13\nHPALD1OO:\n  Formula: C5H7O5\n  FullName: HPALD1OO\n  Is_Gas: true\n  MW_g: 147.12\nHPALD2:\n  DD_F0: 0.0\n  DD_Hstar: 4.0e+4\n  Formula: C5H8O3\n  FullName: d-1,4-C5-hydroperoxyaldehyde\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 116.13\nHPALD2OO:\n  Formula: C5H7O5\n  FullName: HPALD2OO\n  Is_Gas: true\n  MW_g: 147.12\nHPALD3:\n  DD_F0: 0.0\n  DD_Hstar: 4.0e+4\n  Formula: C5H8O3\n  FullName: b-2,1-C5-hydroperoxyaldehyde\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 116.13\nHPALD4:\n  DD_F0: 0.0\n  DD_Hstar: 4.0e+4\n  Formula: C5H8O3\n  FullName: b-3,4-C5-hydroperoxyaldehyde\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 116.13\nHPETHNL:\n  DD_F0: 1.0\n  DD_Hstar: 4.1e+4\n  Formula: HOOCH2CHO\n  FullName: Hydroperoxy ethanal\n  Henry_CR: 4600.0\n  Henry_K0: 4.1e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 76.06\n  WD_RetFactor: 2.0e-2\nHSO3m:\n  Formula: HSO3-\n  FullName: Hydrogen sulfite\n  Is_Gas: true\n  MW_g: 81.07\nI:\n  Formula: I\n  FullName: Atomic iodine\n  Is_Gas: true\n  MW_g: 126.90\nI2:\n  DD_F0: 0.0\n  DD_Hstar: 2.7\n  Formula: I2\n  FullName: Molecular iodine\n  Henry_CR: 7.5074e+3\n  Henry_K0: 2.7\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 253.80\n  WD_RetFactor: 0.0\nI2O2:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+20\n  Formula: I2O2\n  FullName: Diiodine dioxide\n  Henry_CR: 1.89e+4\n  Henry_K0: 1.0e+20\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 285.80\n  WD_RetFactor: 1.0\nI2O3:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+20\n  Formula: I2O3\n  FullName: Diiodine trioxide\n  Henry_CR: 1.34e+4\n  Henry_K0: 1.0e+20\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 301.80\n  WD_RetFactor: 1.0\nI2O4:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+20\n  Formula: I2O4\n  FullName: Diiodine tetraoxide\n  Henry_CR: 1.34e+4\n  Henry_K0: 1.0e+20\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 317.80\n  WD_RetFactor: 1.0\nIBr:\n  DD_F0: 0.0\n  DD_Hstar: 2.43e+1\n  Formula: IBr\n  FullName: Iodine monobromide\n  Henry_CR: 4.9167e+3\n  Henry_K0: 2.4e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 206.90\n  WD_RetFactor: 0.0\nICHE:\n  DD_F0: 1.0\n  DD_Hstar: 8.0e+7\n  Formula: C5H8O3\n  FullName: Isoprene hydroxy-carbonyl-epoxides\n  Henry_CR: 0.0\n  Henry_K0: 8.0e+7\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 116.13\n  WD_RetFactor: 2.0e-2\nICHOO:\n  Formula: C5H9O5\n  FullName: Peroxy radical from IEPOXD\n  Is_Gas: true\n  MW_g: 149.14\nICl:\n  DD_F0: 0.0\n  DD_Hstar: 1.11e+2\n  Formula: ICl\n  FullName: Iodine monochloride\n  Henry_CR: 2.1055e+3\n  Henry_K0: 1.11e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 162.45\n  WD_RetFactor: 0.0\nICN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H7NO4\n  FullName: Lumped isoprene carbonyl-nitrates\n  Henry_CR: 9200.0\n  Henry_K0: 1.70e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 145.13\n  WD_RetFactor: 2.0e-2\nICNOO:\n  Formula: C5H8NO7\n  FullName: Peroxy radicals from ICN\n  Is_Gas: true\n  MW_g: 194.14\nICPDH:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+8\n  Formula: C5H10O5\n  FullName: Isoprene dihydroxy hydroperoxycarbonyl\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 150.15\n  WD_RetFactor: 2.0e-2\nIDC:\n  DD_F0: 0.0\n  DD_Hstar: 4.0e+4\n  Formula: C5H6O2\n  FullName: Lumped isoprene dicarbonyls\n  Is_DryDep: true\n  Is_Gas: true\n  MW_g: 98.11\nIDCHP:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+8\n  Formula: C5H8O5\n  FullName: Isoprene dicarbonyl hydroxy dihydroperoxide\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 148.13\n  WD_RetFactor: 2.0e-2\nIDHDP:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+8\n  Formula: C5H12O6\n  FullName: Isoprene dihydroxy dihydroperoxide\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 168.17\n  WD_RetFactor: 2.0e-2\nIDHNBOO:\n  Formula: C5H10NO7\n  FullName: Peroxy radicals from INPB\n  Is_Gas: true\n  MW_g: 196.16\nIDHNDOO1:\n  Formula: C5H10NO7\n  FullName: Peroxy radicals from INPD\n  Is_Gas: true\n  MW_g: 196.16\nIDHNDOO2:\n  Formula: C5H10NO7\n  FullName: Peroxy radicals from INPD\n  Is_Gas: true\n  MW_g: 196.16\nIDHPE:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+8\n  Formula: C5H10O5\n  FullName: Isoprene dihydroxy hydroperoxy epoxide\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 150.15\n  WD_RetFactor: 2.0e-2\nIDN:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+8\n  Formula: C5H8N2O6\n  FullName: Lumped isoprene dinitrates\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 192.15\n  WD_RetFactor: 2.0e-2\nIDNOO:\n  Formula: C5H9N2O6\n  FullName: IDNOO\n  Is_Gas: true\n  MW_g: 241.14\nIEPOXA:\n  DD_F0: 1.0\n  DD_Hstar: 8.0e+7\n  Formula: C4H10O3\n  FullName: trans-Beta isoprene epoxydiol\n  Henry_CR: 0.0\n  Henry_K0: 8.0e+7\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 106.14\n  WD_RetFactor: 2.0e-2\nIEPOXAOO:\n  Formula: C5H8O5\n  FullName: Peroxy radical from trans-Beta isoprene epoxydiol\n  Is_Gas: true\n  MW_g: 149.14\nIEPOXB:\n  DD_F0: 1.0\n  DD_Hstar: 8.0e+7\n  Formula: C4H10O3\n  FullName: cis-Beta isoprene epoxydiol\n  Henry_CR: 0.0\n  Henry_K0: 8.0e+7\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 106.14\n  WD_RetFactor: 2.0e-2\nIEPOXBOO:\n  Formula: C5H9O5\n  FullName: peroxy radical from cis-Beta isoprene epoxydiol\n  Is_Gas: true\n  MW_g: 149.14\nIEPOXD:\n  DD_F0: 1.0\n  DD_Hstar: 8.0e+7\n  Formula: C4H10O3\n  FullName: Delta isoprene epoxydiol\n  Henry_CR: 0.0\n  Henry_K0: 8.0e+7\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 106.14\n  WD_RetFactor: 2.0e-2\nIHN1:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H9NO4\n  FullName: Isoprene-d-4,1-hydroxynitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 147.15\n  WD_RetFactor: 2.0e-2\nIHN2:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H9NO4\n  FullName: Isoprene-b-1,2-hydroxynitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 147.15\n  WD_RetFactor: 2.0e-2\nIHN3:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H9NO4\n  FullName: Isoprene-b-4,3-hydroxynitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 147.15\n  WD_RetFactor: 2.0e-2\nIHN4:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H9NO4\n  FullName: Isoprene-d-4,1-hydroxynitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 147.15\n  WD_RetFactor: 2.0e-2\nIHOO1:\n  Formula: C5H9O3\n  FullName: Peroxy radical from OH addition to isoprene at C1\n  Is_Gas: true\n  MW_g: 117.14\nIHOO4:\n  Formula: C5H9O3\n  FullName: Peroxy radical from OH addition to isoprene at C4\n  Is_Gas: true\n  MW_g: 117.14\nIHPNBOO:\n  Formula: C5H10NO8\n  FullName: Peroxy radicals from INPB\n  Is_Gas: true\n  MW_g: 212.16\nIHPNDOO:\n  Formula: C5H10NO8\n  FullName: Peroxy radicals from INPD\n  Is_Gas: true\n  MW_g: 212.16\nIHPOO1:\n  Formula: C5H11O6\n  FullName: Peroxy radical from ISOPOOH\n  Is_Gas: true\n  MW_g: 167.16\nIHPOO2:\n  Formula: C5H11O6\n  FullName: Peroxy radical from ISOPOOH\n  Is_Gas: true\n  MW_g: 167.16\nIHPOO3:\n  Formula: C5H11O6\n  FullName: Peroxy radical from ISOPOOH\n  Is_Gas: true\n  MW_g: 167.16\nINA:\n  Formula: C5H8NO4\n  FullName: Alkoxy radical from INO2D\n  Is_Gas: true\n  MW_g: 146.14\nINDIOL:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Generic aerosol-phase organonitrate hydrolysis product\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 102.0\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nINO:\n  Formula: INO\n  FullName: Nitrosyl iodide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 156.91\nINO2B:\n  Formula: C5H8NO5\n  FullName: beta-peroxy radicals from isoprene + NO3\n  Is_Gas: true\n  MW_g: 162.14\nINO2D:\n  Formula: C5H8NO5\n  FullName: delta-peroxy radicals from isoprene + NO3\n  Is_Gas: true\n  MW_g: 162.14\nINPB:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H9NO5\n  FullName: Lumped b-hydroperoxy isoprene nitrates\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 163.15\n  WD_RetFactor: 2.0e-2\nINPD:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H9NO5\n  FullName: Lumped d-hydroperoxy isoprene nitrates\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 163.15\n  WD_RetFactor: 2.0e-2\nIO:\n  Formula: IO\n  FullName: Iodine monoxide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 142.90\nIONITA:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Aer-phase organic nitrate from isoprene precursors\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 14.01\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nIONO:\n  DD_F0: 0.0\n  DD_Hstar: 3.0e-1\n  Formula: IONO\n  FullName: Nitryl iodide\n  Henry_CR: 7.2404e+3\n  Henry_K0: 3.0e-1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 172.91\n  WD_RetFactor: 2.0e-2\nIONO2:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+20\n  Formula: IONO2\n  FullName: Iodine nitrate\n  Henry_CR: 3.98e+3\n  Henry_K0: 1.0e+20\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 188.91\n  WD_RetFactor: 1.0\nIPRNO3:\n  DD_F0: 0.1\n  DD_Hstar: 7.9e-1\n  Formula: C3H7ONO2\n  FullName: Isopropyl nitrate\n  Henry_CR: 5400.0\n  Henry_K0: 0.79\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 105.11\nISALA:\n  << : *SALAproperties\n  Formula: I\n  FullName: Fine sea salt iodine\n  Is_HygroGrowth: false\n  MW_g: 126.90\nISALC:\n  << : *SALCproperties\n  Formula: I\n  FullName: Coarse sea salt iodine\n  Is_HygroGrowth: false\n  MW_g: 126.90\n  WD_CoarseAer: true\nISOP:\n  Formula: CH2=C(CH3)CH=CH2\n  FullName: Isoprene\n  Henry_CR: 4400.0\n  Henry_K0: 3.45e-2\n  Is_Gas: true\n  MW_g: 68.13\nISOPNOO1:\n  Formula: C5H10NO7\n  FullName: Peroxy radicals from IHN2\n  Is_Gas: true\n  MW_g: 196.16\nISOPNOO2:\n  Formula: C5H10NO7\n  FullName: Peroxy radicals from IHN3\n  Is_Gas: true\n  MW_g: 196.16\nITCN:\n  DD_F0: 1.0\n  DD_Hstar: 1.00e+8\n  Formula: C5H9NO7\n  FullName: lumped isoprene tetrafunctional carbonylnitrates\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 195.15\n  WD_RetFactor: 2.0e-2\nITHN:\n  DD_F0: 1.0\n  DD_Hstar: 1.00e+8\n  Formula: C5H11NO7\n  FullName: Lumped isoprene tetrafunctional hydroxynitrates\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 197.17\n  WD_RetFactor: 2.0e-2\nKF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: K\n  FullName: Potassium on dust. Reff = 0.7 microns\n  MW_g: 39.10\n  Radius: 7.3e-7\nKF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: K\n  FullName: Potassium on dust, Reff = 1.4 microns\n  MW_g: 39.10\n  Radius: 1.4e-6\nKC3:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: K\n  FullName: Potassium on dust, Reff = 2.4 microns\n  MW_g: 39.10\n  Radius: 2.4e-6\nKC4:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: K\n  FullName: Potassium on dust, Reff = 4.5 microns\n  MW_g: 39.10\n  Radius: 4.5e-6\nKO2:\n  Formula: C4H5O3\n  FullName: Peroxy radical from >3 ketones\n  Is_Gas: true\n  MW_g: 101.09\nLBRO2H:\n  FullName: Dummy species to track oxidation of BRO2 by HO2\n  Is_Gas: true\n  MW_g: 159.13\n  KPP_AbsTol: 1.0e+25\nLBRO2N:\n  FullName: Dummy species to track oxidation of BRO2 by NO\n  Is_Gas: true\n  MW_g: 159.13\n  KPP_AbsTol: 1.0e+25\nLCH4:\n  FullName: Dummy species to track loss rate of CH4\n  Is_Gas: true\n  MW_g: 16.04\n  KPP_AbsTol: 1.0e+25\nLCH4byCl:\n  FullName: Dummy species to track loss of CH4 by Cl (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0    # Use value of 1.0 to get past checks for missing MW_g\nLCH4byOH:\n  FullName: Dummy species to track loss of CH4 by OH (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0    # Use value of 1.0 to get past checks for missing MW_g\nLCH4inStrat:\n  FullName: Dummy species to track loss of CH4 in strat (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0    # Use value of 1.0 to get past checks for missing MW_g\nLCO:\n  FullName: Dummy species to track loss rate of CO\n  Is_Gas: true\n  MW_g: 28.01\n  KPP_AbsTol: 1.0e+25\nLCObyOH:\n  FullName: Dummy species to track loss of CO by OH (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0\nLCOinStrat:\n  FullName: Dummy species to track loss of CO in strat (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0\nLIMAL:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+3\n  Formula: C10H16O2\n  FullName: Aldehyde from limonene\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nLIMKB:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+3\n  Formula: C10H16O3\n  FullName: 2nd gen ketone from limonene\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nLIMKET:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+3\n  Formula: C10H16O2\n  FullName: Ketone from limonene\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nLIMKO2:\n  Formula: C10H17O3\n  FullName: 2nd-gen peroxy radical from LIMO\n  Is_Gas: true\n  MW_g: 185.27\nLIMN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: Saturated 1st gen limonene organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nLIMNB:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H15NO4\n  FullName: Saturated 1st gen LIMO organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nLIMO:\n  DD_F0: 0.0\n  DD_Hstar: 7.0e-2\n  Formula: C10H16\n  FullName: Limonene\n  Henry_CR: 0.0\n  Henry_K0: 7.0e-2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 136.26\n  WD_RetFactor: 2.0e-2\nLIMO2:\n  Formula: C10H17O3\n  FullName: Peroxy radical from LIMO\n  Is_Gas: true\n  MW_g: 185.27\nLIMO2H:\n  DD_F0: 1.0\n  DD_Hstar: 3.14e+5\n  Formula: C10H18O3\n  FullName: Acid from LIMO\n  Henry_CR: 6039.0\n  Henry_K0: 3.14e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nLIMO3:\n  Formula: C10H17O3\n  FullName: Acylperoxy radical from LIMO\n  Is_Gas: true\n  MW_g: 185.27\nLIMO3H:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+5\n  Formula: C10H18O4\n  FullName: Peracid from LIMO\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nLIMPAN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: PAN from LIMO\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nLISOPNO3:\n  FullName: Dummy species to track oxidation of ISOP by NO3\n  Is_Gas: true\n  MW_g: 68.13\n  KPP_AbsTol: 1.0e+25\nLISOPOH:\n  FullName: Dummy species to track oxidation of ISOP by OH\n  Is_Gas: true\n  MW_g: 68.13\n  KPP_AbsTol: 1.0e+25\nLNRO2H:\n  FullName: Dummy species to track oxidation of NRO2 by HO2\n  Is_Gas: true\n  MW_g: 159.17\n  KPP_AbsTol: 1.0e+25\nLNRO2N:\n  FullName: Dummy species to track oxidation of NRO2 by NO\n  Is_Gas: true\n  MW_g: 159.17\nLOx:\n  FullName: Dummy species to track loss rate of Ox\n  Is_Gas: true\n  MW_g: 48.00\n  KPP_AbsTol: 1.0e+25\nLTRO2H:\n  FullName: Dummy species to track oxidation of TRO2 by HO2\n  Is_Gas: true\n  MW_g: 173.16\n  KPP_AbsTol: 1.0e+25\nLTRO2N:\n  FullName: Dummy species to track oxidation of TRO2 by NO\n  Is_Gas: true\n  MW_g: 173.16\n  KPP_AbsTol: 1.0e+25\nLVOC:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+8\n  Formula: C5H14O5\n  FullName: Gas-phase low-volatility non-IEPOX product of RIP ox\n  Henry_CR: 7200.0\n  Henry_K0: 1.0e+8\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 154.19\n  WD_RetFactor: 2.0e-2\nLVOCOA:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C5H14O5\n  FullName: Aer-phase low-volatility non-IEPOX product of RIP ox\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 154.19\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nLXRO2H:\n  FullName: Dummy species to track oxidation of XRO2 by HO2\n  Is_Gas: true\n  MW_g: 187.19\n  KPP_AbsTol: 1.0e+25\nLXRO2N:\n  FullName: Dummy species to track oxidation of XRO2 by NO\n  Is_Gas: true\n  MW_g: 187.19\n  KPP_AbsTol: 1.0e+25\nMACR:\n  DD_F0: 1.0\n  DD_Hstar: 6.5\n  Formula: CH2=C(CH3)CHO\n  FullName: Methacrolein\n  Henry_CR: 4300.0\n  Henry_K0: 4.86\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 70.10\nMACR1OO:\n  Formula: CH2=C(CH3)C(O)OO\n  FullName: Peroxyacyl radical from MACR + OH\n  Is_Gas: true\n  MW_g: 101.09\nMACR1OOH:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH2=C(CH3)C(O)OOH\n  FullName: Peracid from MACR\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 102.10\n  WD_RetFactor: 2.0e-2\nMACRNO2:\n  Formula: C4H6NO7\n  FullName: Product of MCRHN + OH\n  Is_Gas: true\n  MW_g: 180.10\nMAP:\n  DD_F0: 1.0\n  DD_Hstar: 8.4e+2\n  Formula: CH3C(O)OOH\n  FullName: Peroxyacetic acid\n  Henry_CR: 5300.0\n  Henry_K0: 8.4e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 76.06\n  WD_RetFactor: 2.0e-2\nMCO3:\n  Formula: CH3C(O)OO\n  FullName: Peroxyacetyl radical\n  Is_Gas: true\n  MW_g: 75.05\nMCRDH:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: C4H8O3\n  FullName: Dihydroxy-methacrolein\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 104.12\n  WD_RetFactor: 2.0e-2\nMCRENOL:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: C4H6O2\n  FullName: Lumped enols from MVK/MACR\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 86.10\n  WD_RetFactor: 2.0e-2\nMCRHN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: HOCH2C(ONO2)(CH3)CHO\n  FullName: Nitrate from MACR\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 149.11\n  WD_RetFactor: 2.0e-2\nMCRHNB:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: O2NOCH2C(OH)(CH3)CHO\n  FullName: Nitrate from MACR\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 149.11\n  WD_RetFactor: 2.0e-2\nMCRHP:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: HOCH2C(OOH)(CH3)CHO\n  FullName: Hydroxy-hydroperoxy-methacrolein\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 120.12\n  WD_RetFactor: 2.0e-2\nMCROHOO:\n  Formula: C4H7O4\n  FullName: Peroxy radical from MACR + OH\n  Is_Gas: true\n  MW_g: 119.11\nMCT:\n  DD_F0: 1.0\n  DD_Hstar: 4.2e+2\n  Formula: C7H8O2\n  FullName: Catechols and methyl catechols\n  Henry_CR: 8500.0\n  Henry_K0: 4.2e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 124.0\n  WD_RetFactor: 2.0e-2\nMEKCO3:\n Formula: C3H5O4\n Is_Gas: true\n MW_g: 105.07\nMEK:\n  Formula: RC(O)R\n  FullName: Methyl Ethyl Ketone\n  Henry_CR: 5700.0\n  Henry_K0: 1.82e+1\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 72.11\n  WD_RetFactor: 2.0e-2\nMEKPN:\n  DD_F0: 1.0\n  DD_Hstar: 3.6\n  Formula: C3H5NO6\n  FullName: MEK peroxyacetyl nitrate\n  Henry_CR: 5700.0\n  Henry_K0: 2.94\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 151.07\n  WD_RetFactor: 2.0e-2\nMENO3:\n  DD_F0: 0.1\n  DD_Hstar: 2.0\n  Formula: CH3ONO2\n  FullName: Methyl nitrate\n  Henry_CR: 4700.0\n  Henry_K0: 1.1e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 77.05\nMgF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Mg\n  FullName: Magnesium on dust. Reff = 0.7 microns\n  MW_g: 24.31\n  Radius: 7.3e-7\nMgF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Mg\n  FullName: Magnesium on dust, Reff = 1.4 microns\n  MW_g: 24.31\n  Radius: 1.4e-6\nMgC3:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Mg\n  FullName: Magnesium on dust, Reff = 2.4 microns\n  MW_g: 24.31\n  Radius: 2.4e-6\nMgC4:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Mg\n  FullName: Magnesium on dust, Reff = 4.5 microns\n  MW_g: 24.31\n  Radius: 4.5e-6\nMGLY:\n  DD_F0: 1.0\n  DD_Hstar: 3.7e+3\n  Formula: CH3COCHO\n  FullName: Methylglyoxal\n  Henry_CR: 6200.0\n  Henry_K0: 3.24e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 72.07\n  WD_RetFactor: 2.0e-2\nMnF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Mn\n  FullName: Manganese on dust. Reff = 0.7 microns\n  MW_g: 54.94\n  Radius: 7.3e-7\nMnF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Mn\n  FullName: Manganese on dust, Reff = 1.4 microns\n  MW_g: 54.94\n  Radius: 1.4e-6\nMO2:\n  Background_VV: 4.0e-15\n  Formula: CH3O2\n  FullName: Methylperoxy radical\n  Is_Gas: true\n  MW_g: 47.04\nMOH:\n  DD_F0: 1.0\n  DD_Hstar: 2.03e+2\n  Formula: CH3OH\n  FullName: Methanol\n  Henry_CR: 5600.0\n  Henry_K0: 2.03e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 32.05\n  WD_RetFactor: 2.0e-2\nMONITA:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Aer-phase organic nitrate from monoterpene precursors\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 14.01\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nMONITS:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: Saturated 1st gen monoterpene organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nMONITU:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: Unsaturated 1st gen monoterpene organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nMOPI:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  Formula: C\n  FullName: Hydrophilic marine organic carbon aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nMOPO:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  Formula: C\n  FullName: Hydrophobic marine organic carbon aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nMP:\n  Background_VV: 4.0e-15\n  Formula: CH3OOH\n  FullName: Methyl hydro peroxide\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 48.05\n  WD_RetFactor: 2.0e-2\nMPAN:\n  DD_F0: 1.0\n  DD_Hstar: 1.72\n  Formula: CH2=C(CH3)C(O)OONO2\n  FullName: Peroxymethacroyl nitrate (PMN)\n  Henry_CR: 0.0\n  Henry_K0: 1.72\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 147.10\n  WD_RetFactor: 2.0e-2\nMPN:\n  Formula: CH3O2NO2\n  FullName: Methyl peroxy nitrate\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 93.05\n  WD_RetFactor: 2.0e-2\nMSA:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: CH4SO3\n  FullName: Methyl sulfonic acid\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 96.10\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nMTPA:\n  DD_F0: 0.0\n  DD_Hstar: 4.9e-2\n  FullName: a-pinene, b-pinene, sabinene, carene\n  Henry_CR: 0.0\n  Henry_K0: 4.9e-2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 136.26\n  WD_RetFactor: 2.0e-2\nMTPO:\n  DD_F0: 0.0\n  DD_Hstar: 4.9e-2\n  FullName: Terpinene, terpinolene, myrcene, ocimene, other monoterpenes\n  Henry_CR: 0.0\n  Henry_K0: 4.9e-2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 136.26\n  WD_RetFactor: 2.0e-2\nMVK:\n  DD_F0: 1.0\n  DD_Hstar: 4.4e+1\n  Formula: CH2=CHC(=O)CH3\n  FullName: Methyl vinyl ketone\n  Henry_CR: 4800.0\n  Henry_K0: 2.63e+1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 70.09\n  WD_RetFactor: 2.0e-2\nMVKDH:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: HOCH2CH2OHC(O)CH3\n  FullName: dihydroxy-MVK\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 105.13\n  WD_RetFactor: 2.0e-2\nMVKHC:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: C4H6O3\n  FullName: MVK hydroxy-carbonyl\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 102.10\n  WD_RetFactor: 2.0e-2\nMVKHCB:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: C4H6O3\n  FullName: MVK hydroxy-carbonyl\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 102.10\n  WD_RetFactor: 2.0e-2\nMVKHP:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: C4H8O4\n  FullName: MVK hydroxy-hydroperoxide\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 120.12\n  WD_RetFactor: 2.0e-2\nMVKN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: HOCH2CH(ONO2)C(=O)CH3\n  FullName: Nitrate from MVK\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 149.12\n  WD_RetFactor: 2.0e-2\nMVKOHOO:\n  Formula: C4H7O4\n  FullName: Peroxy radical from MVK + OH\n  Is_Gas: true\n  MW_g: 119.11\nMVKPC:\n  DD_F0: 1.0\n  DD_Hstar: 1.4e+6\n  Formula: OCHCH(OOH)C(O)CH3\n  FullName: MVK hydroperoxy-carbonyl\n  Henry_CR: 7200.0\n  Henry_K0: 1.4e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 118.10\n  WD_RetFactor: 2.0e-2\nMYRCO:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+3\n  Formula: C10H18O3\n  FullName: Aldehyde or ketone from myrcene\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nN:\n  Background_VV: 4.0e-20\n  Formula: N\n  FullName: Atomic nitrogen\n  Is_Gas: true\n  MW_g: 14.01\nN2:\n  Background_VV: 7.808e-1\n  Formula: N2\n  FullName: Molecular nitrogen\n  Is_Gas: true\n  MW_g: 28.02\nN2O:\n  Background_VV: 3.0e-7\n  Formula: N2O\n  FullName: Nitrous oxide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 44.02\nN2O5:\n  Background_VV: 4.0e-15\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+14\n  Formula: N2O5\n  FullName: Dinitrogen pentoxide\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 108.02\nNAP:\n  Formula: C10H8\n  FullName: Naphtalene/IVOC surrogate\n  Is_Gas: true\n  MW_g: 128.18\nnh_PROP: &nhproperties\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\n  Snk_Horiz: all\n  Snk_Mode: efolding\n  Snk_Vert: all\n  Src_Add: false\n  Src_Mode: constant\n  Src_Horiz: lat_zone\n  Src_Lats: [30.0, 50.0]\n  Src_Units: ppbv\n  Src_Value: 100\n  Src_Vert: all\nnh_5:\n  << : *nhproperties\n  FullName: Northern Hemisphere 5 day tracer\n  Snk_Period: 5\nnh_50:\n  << : *nhproperties\n  FullName: Northern Hemisphere 50 day tracer\n  Snk_Period: 50\nNH3:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.2, 0.3]\n  DD_DvzMinVal_Luo: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 2.0e+4\n  Formula: NH3\n  FullName: Ammonia\n  Henry_CR: 4100.0\n  Henry_CR_Luo: 4200.0\n  Henry_K0: 3.3e+6\n  Henry_K0_Luo: 59.78175\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 17.04\n  WD_RetFactor: 5.0e-2\n  WD_LiqAndGas: true\n  WD_ConvFacI2G: 6.17395e-1\nNH4:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: NH4\n  FullName: Ammonium\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 18.05\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nNiF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Ni\n  FullName: Nickel on dust. Reff = 0.7 microns\n  MW_g: 58.69\n  Radius: 7.3e-7\nNiF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Ni\n  FullName: Nickel on dust, Reff = 1.4 microns\n  MW_g: 58.69\n  Radius: 1.4e-6\nNIT:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Inorganic nitrates\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 62.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nNITDbin1:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Nitrate on DSTbin1\n  MW_g: 62.01\n  Radius: 1.51e-7\n  WD_WashoutRainPara: [3.99e-7, 0.71]\n  WD_WashoutSnowPara: [7.28e-6, 0.57]\nNITDbin2:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Nitrate on DSTbin2\n  MW_g: 62.01\n  Radius: 2.53e-7\n  WD_WashoutRainPara: [4.07e-7, 0.71]\n  WD_WashoutSnowPara: [1.34e-5, 0.56]\nNITDbin3:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Nitrate on DSTbin3\n  MW_g: 62.01\n  Radius: 4.02e-7\n  WD_WashoutRainPara: [4.81e-7, 0.72]\n  WD_WashoutSnowPara: [2.72e-5, 0.56]\nNITDbin4:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Nitrate on DSTbin4\n  MW_g: 62.01\n  Radius: 8.18e-7\n  WD_WashoutRainPara: [8.43e-7, 0.73]\n  WD_WashoutSnowPara: [6.03e-5, 0.55]\nNITDbin5:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Nitrate on DSTbin5\n  MW_g: 62.01\n  Radius: 1.491e-6\n  WD_WashoutRainPara: [4.82e-5, 0.88]\n  WD_WashoutSnowPara: [4.15e-4, 0.61]\nNITDbin6:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Nitrate on DSTbin6\n  MW_g: 62.01\n  Radius: 2.417e-6\n  WD_WashoutRainPara: [2.17e-4, 0.87]\n  WD_WashoutSnowPara: [1.27e-3, 0.67]\nNITDbin7:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Nitrate on DSTbin7\n  MW_g: 62.01\n  Radius: 3.721e-6\n  WD_WashoutRainPara: [3.37e-4, 0.84]\n  WD_WashoutSnowPara: [2.42e-3, 0.73]\nNITs:\n  << : *SALCproperties\n  FullName: Inorganic nitrates on surface of seasalt aerosol\n  Is_Photolysis: true\n  MW_g: 62.01\n  WD_CoarseAer: true\n'NO':\n  Background_VV: 4.0e-13\n  Formula: 'NO'\n  FullName: Nitrogen oxide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 30.01\nNO2:\n  Background_VV: 4.0e-13\n  DD_F0: 0.1\n  DD_Hstar: 1.0e-2\n  Formula: NO2\n  FullName: Nitrogen dioxide\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 46.01\nNO3:\n  Background_VV: 4.0e-15\n  Formula: NO3\n  FullName: Nitrate radical\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 62.01\nNPHEN:\n  DD_F0: 1.0\n  DD_Hstar: 2.3e+3\n  Formula: C6H5NO3\n  FullName: Nitrophenols\n  Henry_CR: 0.0\n  Henry_K0: 2.3e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 139.11\n  WD_RetFactor: 2.0e-2\nNPRNO3:\n  DD_F0: 0.1\n  DD_Hstar: 1.1\n  Formula: C3H7ONO2\n  FullName: n-propyl nitrate\n  Henry_CR: 5500.0\n  Henry_K0: 1.1\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 105.11\nNRO2:\n  Formula: C10H7O2\n  FullName: Peroxy radical from NAP oxidation\n  Is_Gas: true\n  MW_g: 159.17\nO:\n  Formula: O(3P)\n  FullName: Ground state atomic oxygen\n  Is_Gas: true\n  MW_g: 16.00\nO1D:\n  Background_VV: 1.0e-15\n  Formula: O(1D)\n  FullName: Excited atomic oxygen (1D)\n  Is_Gas: true\n  MW_g: 16.00\nO2:\n  Background_VV: 2.095e-1\n  Formula: O2\n  FullName: Molecular oxygen\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 32.0\nO3_PROP: &O3properties\n  DD_F0: 1.0\n  DD_Hstar: 1.0e-2\n  Formula: O3\n  FullName: Ozone\n  Henry_CR: 2800.0\n  Henry_K0: 0.0101325e0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 48.00\nO3:\n  << : *O3properties\n  Background_VV: 2.0e-8\n  FullName: Ozone\n  Henry_CR: 2800.0\n  Henry_K0: 0.0101325e0\n  Is_DryAlt: true\nO3afbl:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the African boundary layer\nO3asbl:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the Asian boundary layer\nO3atbl:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the Atlantic Ocean boundary layer\nO3eubl:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the European boundary layer\nO3init:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone from the initial condition\nO3mt:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the middle troposphere\nO3nabl:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the North America boundary layer\nO3pcbl:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the Pacific Ocean boundary layer\nO3row:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the rest of the world\nO3Strat:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the stratosphere\nO3usa:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced over the United States in PBL\nO3ut:\n  << : *O3properties\n  Background_VV: 1.0e-20\n  FullName: Ozone produced in the upper troposphere\nOClO:\n  Formula: OClO\n  FullName: Chlorine dioxide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 67.45\nOCPI:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  FullName: Hydrophilic organic carbon aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_KcScaleFac_Luo: [0.5, 0.25, 0.5]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.5]\nOCPO:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  FullName: Hydrophobic organic carbon aerosol\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_KcScaleFac_Luo: [0.0, 0.0, 0.0]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nOCS:\n  Background_VV: 9.0e-15\n  Formula: COS\n  FullName: Carbonyl sulfide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 60.07\nOH:\n  Background_VV: 4.0e-15\n  Formula: OH\n  FullName: Hydroxyl radical\n  Is_Gas: true\n  MW_g: 17.01\nOIO:\n  Formula: OIO\n  FullName: Iodine dioxide\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 158.90\nOLND:\n  Formula: C10H16NO5\n  FullName: Monoterpene-derived NO3-alkene adduct\n  Is_Gas: true\n  MW_g: 230.27\nOLNN:\n  Formula: C10H16NO5\n  FullName: Monoterpene-derived NO3 adduct\n  Is_Gas: true\n  MW_g: 230.27\nOPOA1:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Lumped aerosol product of SVOC oxidation\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nOPOA2:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Lumped aerosol product of SVOC oxidation\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nOPOG1:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+5\n  FullName: Lumped gas product of SVOC oxidation\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_RetFactor: 2.0e-2\nOPOG2:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+5\n  FullName: Lumped gas product of SVOC oxidation\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_RetFactor: 2.0e-2\nOTHRO2:\n  Formula: CH3CH2OO\n  FullName: Other C2 RO2 not from C2H6 oxidation\n  Is_Gas: true\n  MW_g: 61.07\nPAN:\n  DD_F0: 1.0\n  DD_Hstar: 3.6\n  Formula: CH3C(O)OONO2\n  FullName: Peroxyacetyl nitrate\n  Henry_CR: 5700.0\n  Henry_K0: 2.94\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 121.06\n  WD_RetFactor: 2.0e-2\nPassiveTracer:\n  Background_VV: 1.0e-7\n  FullName: Passive tracer for mass conservation evaluation\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\n  Snk_Mode: none\n  Src_Mode: none\nPb210_PROP: &Pbproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: Pb210\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_RadioNuclide: true\n  Is_Tracer: true\n  Is_WetDep: true\n  MW_g: 210.0\n# Comment out tracer-specific code for now and use RnPbBe_mod.F90\n#  Snk_Horiz: all\n#  Snk_Mode: efolding\n#  Snk_Period: 11742.8\n#  Snk_Vert: all\n#  Src_Add: true\n#  Src_Mode: HEMCO\n#  Src_Mode: decay_of_another_species\n#  Src_Species: Rn222\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nPb210:\n  << : *Pbproperties\n  FullName: Lead-210 isotope\n# Src_Vert: all\nPb210s:\n  << : *Pbproperties\n  FullName: Lead-210 isotope stratospheric-source tracer\n# Src_Vert: stratosphere\nPbF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Pb\n  FullName: Lead on dust. Reff = 0.7 microns\n  MW_g: 210.0\n  Radius: 7.3e-7\nPbF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Pb\n  FullName: Lead on dust, Reff = 1.4 microns\n  MW_g: 210.0\n  Radius: 1.4e-6\nPCO:\n  FullName: Dummy species to track production rate of CO\n  Is_Gas: true\n  MW_g: 28.01\n  KPP_AbsTol: 1.0e+25\nPCOfromCH4:\n  FullName: Dummy species to track CO produced from methane oxidation (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0\nPCOfromNMVOC:\n  FullName: Dummy species to track CO produced from non-methane VOCs oxidation (carbon mechanism)\n  Is_Gas: true\n  MW_g: 1.0\npFe:\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: Fe\n  FullName: Anthropogenic iron\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 55.85\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nPH2O2:\n  FullName: Dummy species to track production rate of H2O2\n  Is_Gas: true\n  MW_g: 34.02\n  KPP_AbsTol: 1.0e+25\nPH2SO4:\n  FullName: SO4 from gas-phase chemistry\n  Is_Gas: true\n  MW_g: 96.06\nPHAN:\n  DD_F0: 1.0\n  DD_Hstar: 3.6\n  Formula: C2H3NO6\n  FullName: Peroxyhydroxyacetic nitric anhydride\n  Henry_CR: 5700.0\n  Henry_K0: 2.94\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 137.0483\n  WD_RetFactor: 2.0e-2\nPHEN:\n  DD_F0: 1.0\n  DD_Hstar: 2.8e+3\n  Formula: C6H6O\n  FullName: Phenol\n  Henry_CR: 2700.0\n  Henry_K0: 2.8e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 94.11\n  WD_RetFactor: 2.0e-2\nPHg0:\n  FullName: Gross production of Hg0\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  KPP_AbsTol: 1.0e+25\nPHg2:\n  FullName: Gross production of gaseous oxidized Hg\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  KPP_AbsTol: 1.0e+25\nPHg2Br:\n  FullName: Gaseous oxidized Hg production from Br\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  KPP_AbsTol: 1.0e+25\nPHg2OH:\n  FullName: Gaseous oxidized Hg production from OH\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  KPP_AbsTol: 1.0e+25\nPHg2Cl:\n  FullName: Gaseous oxidized Hg production from Cl\n  Is_Gas: true\n  MW_g: 200.59   # Use mol wt of atomic Hg\n  KPP_AbsTol: 1.0e25\nPIN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: Saturated 1st gen monoterpene organic nitrate\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nPINAL:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+3\n  Formula: C10H16O2\n  FullName: Pinonaldehyde\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nPINO3:\n  Formula: C10H17O3\n  FullName: Acylperoxy radical from APIN\n  Is_Gas: true\n  MW_g: 185.27\nPINO3H:\n  DD_F0: 1.0\n  DD_Hstar: 1.0e+5\n  Formula: C10H18O4\n  FullName: Pinonic peracid\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nPINONIC:\n  DD_F0: 1.0\n  DD_Hstar: 3.14e+5\n  Formula: C10H18O3\n  FullName: Pinonic acid\n  Henry_CR: 6039.0\n  Henry_K0: 3.14e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 186.28\n  WD_RetFactor: 2.0e-2\nPINPAN:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C10H17NO4\n  FullName: PAN from pinonaldehyde\n  Henry_CR: 9200.0\n  Henry_K0: 1.7e+4\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 215.28\n  WD_RetFactor: 2.0e-2\nPIO2:\n  Formula: C10H17O3\n  FullName: Peroxy radical from MTPA\n  Is_Gas: true\n  MW_g: 185.27\n  FullName: Peroxy radical from MTPA\n  Is_Gas: true\n  MW_g: 185.27\nPIP:\n  Formula: C10H18O3\n  FullName: Peroxide from MTPA\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 186.28\nPO2:\n  Formula: HOCH2CH(OO)CH3\n  FullName: Peroxy radical from propene\n  Is_Gas: true\n  MW_g: 91.10\nPOA1:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  FullName: Lumped aerosol primary SVOCs\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_KcScaleFac_Luo: [0.0, 0.0, 0.0]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nPOA2:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  FullName: Lumped aerosol primary SVOCs\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_KcScaleFac_Luo: [0.0, 0.0, 0.0]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nPOG1:\n  DD_F0: 0.0\n  DD_Hstar: 9.5\n  FullName: Lumped gas primary SVOCs\n  Henry_CR: 4700.0\n  Henry_K0: 9.5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_RetFactor: 2.0e-2\nPOG2:\n  DD_F0: 0.0\n  DD_Hstar: 9.5\n  FullName: Lumped gas primary SVOCs\n  Henry_CR: 4700.0\n  Henry_K0: 9.5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_RetFactor: 2.0e-2\nPOPG_BaP:\n  DD_F0: 0.0\n  DD_Hstar: 1319.354829 # 1.0 / 3.10e-5 * 0.0409\n  DD_KOA: 9.88144e+9    # 3.02e+11 * 0.0409 * 0.8\n  Formula: C20H12\n  FullName: Benzo(a)pyrene (gas phase)\n  Henry_CR: 5168.269231 # 43.0 / 8.32e-3\n  Henry_K0: 1318.496208 # 1.0 / 3.10e-5 / 8.21e-2 / 298.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 252.32\n  WD_RetFactor: 0.0\nPOPG_PHE:\n  DD_F0: 0.0\n  DD_Hstar: 23.50574713 # 1.0 / 1.74e-3 * 0.0409\n  DD_KOA: 1.429864e+6   # 4.37e+7 * 0.0409 * 0.8\n  Formula: C14H10\n  FullName: Phenanthrene (gas phase)\n  Henry_CR: 5649.038462 # 47.0/ 8.32e-3\n  Henry_K0: 23.49044968 # 1.0 / 1.74e-3 / 8.21e-2 / 298.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 178.24\n  WD_RetFactor: 0.0\nPOPG_PYR:\n  DD_F0: 0.0\n  DD_Hstar: 76.16387337 # 1.0 / 5.37e-4 * 0.0409\n  DD_KOA: 2.368928e+7   # 7.24e+8 * 0.0409 * 0.8\n  Formula: C16H10\n  FullName: Pyrene (gas phase)\n  Henry_CR: 5168.269231 # 43.0 / 8.32e-3\n  Henry_K0: 76.11430621 # 1.0 / 5.37e-4 / 8.21e-2 / 298.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 202.26\n  WD_RetFactor: 0.0\nPOPPBCPI_BaP:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C20H12\n  FullName: Benzo(a)pyrene particles on hydrophilic black carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 252.32\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [ 0.4, 0.0, 1.0]\nPOPPBCPI_PHE:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C14H10\n  FullName: Phenanthrene particles on hydrophilic black carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 178.24\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [ 0.4, 0.0, 1.0]\nPOPPBCPI_PYR:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C16H10\n  FullName: Pyrene particles on hydrophilic black carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 202.26\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [ 0.4, 0.0, 1.0]\nPOPPBCPO_BaP:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C20H12\n  FullName: Benzo(a)pyrene particles on hydrophobic black carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 252.32\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 1.0, 0.5]\n  WD_RainoutEff: [1.0, 1.0, 0.0]\n  WD_RainoutEff_Luo: [0.4, 1.0, 0.0]\nPOPPBCPO_PHE:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C14H10\n  FullName: Phenanthrene particles on hydrophobic black carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 178.24\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 1.0, 0.5]\n  WD_RainoutEff: [1.0, 1.0, 0.0]\n  WD_RainoutEff_Luo: [0.4, 1.0, 0.0]\nPOPPBCPO_PYR:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C16H10\n  FullName: Pyrene particles on hydrophobic black carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 202.26\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 1.0, 0.5]\n  WD_RainoutEff: [1.0, 1.0, 0.0]\n  WD_RainoutEff_Luo: [0.4, 1.0, 0.0]\nPOPPOCPI_BaP:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C20H12\n  FullName: Benzo(a)pyrene particles on hydrophilic organic carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 252.32\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nPOPPOCPI_PHE:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C14H10\n  FullName: Phenanthrene particles on hydrophilic organic carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 178.24\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nPOPPOCPI_PYR:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C16H10\n  FullName: Pyrene particles on hydrophilic organic carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 202.26\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nPOPPOCPO_BaP:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C20H12\n  FullName: Benzo(a)pyrene particles on hydrophobic organic carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 252.32\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nPOPPOCPO_PHE:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C14H10\n  FullName: Phenanthrene particles on hydrophobic organic carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 178.24\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nPOPPOCPO_PYR:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C16H10\n  FullName: Pyrene particles on hydrophobic organic carbon\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 202.26\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nPOx:\n  FullName: Dummy species to track production rate of Ox\n  Is_Gas: true\n  MW_g: 48.00\n  KPP_AbsTol: 1.0e+25\nPP:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: HOCH2CH(OOH)CH3\n  FullName: Peroxide from PO2\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 92.11\n  WD_RetFactor: 2.0e-2\nPPN:\n  DD_F0: 1.0\n  DD_Hstar: 3.6\n  Formula: CH3CH2C(O)OONO2\n  FullName: Lumped peroxypropionyl nitrate\n  Henry_CR: 0.0\n  Henry_K0: 2.94\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 135.08\n  WD_RetFactor: 2.0e-2\nPRN1:\n  Formula: O2NOCH2CH(OO)CH3\n  FullName: Peroxy radical from propene + NO3\n  Is_Gas: true\n  MW_g: 136.09\nPROPNN:\n  DD_F0: 1.0\n  DD_Hstar: 5.0e+5\n  Formula: CH3C(=O)CH2ONO2\n  FullName: Propanone nitrate\n  Henry_CR: 0.0\n  Henry_K0: 1.0e+3\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 119.08\n  WD_RetFactor: 2.0e-2\nPRPE:\n  Formula: C3H6\n  FullName: Lumped >= C3 alkenes\n  Henry_CR: 3400.0\n  Henry_K0: 7.4e-3\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 42.09\n  WD_RetFactor: 2.0e-2\nPRPN:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: O2NOCH2CH(OOH)CH3\n  FullName: Peroxide from PRN1\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 137.11\n  WD_RetFactor: 2.0e-2\nPSO4:\n  FullName: Dummy species to track production of SO4\n  Is_Gas: true\n  MW_g: 96.06\n  KPP_AbsTol: 1.0e+25\nPSO4AQ:\n  FullName: SO4 from cloud chemistry\n  Is_Gas: true\n  MW_g: 96.06\nPYAC:\n  DD_F0: 1.0\n  DD_Hstar: 3.14e+5\n  Formula: C3H4O3\n  FullName: Pyruvic acid\n  Henry_CR: 5100.0\n  Henry_K0: 3.14e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 88.07\n  WD_RetFactor: 2.0e-2\nR4N1:\n  Formula: C4H8NO5\n  FullName: Peroxy radical from R4N2\n  Is_Gas: true\n  MW_g: 150.13\nRNO3:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+4\n  Formula: RO2NO\n  FullName: Lumped alkyl nitrate\n  Henry_CR: 5800.0\n  Henry_K0: 1.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 203.15\n  WD_RetFactor: 2.0e-2\nR4N2:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+4\n  Formula: RO2NO\n  FullName: Lumped alkyl nitrate\n  Henry_CR: 5800.0\n  Henry_K0: 1.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 119.10\n  WD_RetFactor: 2.0e-2\nR7N1:\n  Formula: C7H15NO5\n  FullName: Peroxy radical from R7N2\n  Is_Gas: true\n  MW_g: 161.2\nR7N2:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+4\n  Formula: RO2NO\n  FullName: C7 Lumped alkyl nitrate\n  Henry_CR: 6700.0\n  Henry_K0: 0.77\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 161.2\n  WD_RetFactor: 2.0e-2\nR4O2:\n  Formula: C4H9O2\n  FullName: Peroxy radical from isoprene and MTPA alkyl generation\n  Is_Gas: true\n  MW_g: 89.13\nR4P:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3CH2CH2CH2OOH\n  FullName: Peroxide from R4O2\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 90.14\n  WD_RetFactor: 2.0e-2\nR7O2:\n  Formula: C7H15O2\n  FullName: Peroxy radical from ALK6\n  Is_Gas: true\n  MW_g: 131.19\nR7P:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: C7H16O2\n  FullName: Peroxide from R7O2\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 132.20\n  WD_RetFactor: 2.0e-2\nRA3P:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3CH2CH2OOH\n  FullName: Peroxide from A3O2\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 76.11\n  WD_RetFactor: 2.0e-2\nRB3P:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3CH(OOH)CH3\n  FullName: Peroxide from B3O2\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 76.11\n  WD_RetFactor: 2.0e-2\nRCHO:\n  Formula: CH3CH2CHO\n  FullName: Lumped aldehyde >= C3\n  Henry_CR: 0.0\n  Henry_K0: 1.0e+1\n  Is_Gas: true\n  Is_Photolysis: true\n  MW_g: 58.09\n  WD_RetFactor: 2.0e-2\nRCO3:\n  Formula: CH3CH2C(O)OO\n  FullName: Peroxypropionyl radical\n  Is_Gas: true\n  MW_g: 89.08\nRCOOH:\n  DD_F0: 1.0\n  DD_Hstar: 1.52e+3\n  Formula: C2H5C(O)OH\n  FullName: '> C2 organic acids'\n  Henry_CR: 6800.0\n  Henry_K0: 1.52e+3\n  Is_DryDep: true\n  Is_WetDep: true\n  Is_Gas: true\n  MW_g: 74.09\n  WD_RetFactor: 2.0e-2\nRIPA:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+6\n  Formula: C5H10O3\n  FullName: 1,2-ISOPOOH\n  Henry_CR: 0.0\n  Henry_K0: 1.7e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 118.15\n  WD_RetFactor: 2.0e-2\nRIPB:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+6\n  Formula: C5H10O3\n  FullName: 4,3-ISOPOOH\n  Henry_CR: 0.0\n  Henry_K0: 1.7e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 118.15\n  WD_RetFactor: 2.0e-2\nRIPC:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+6\n  Formula: C5H10O3\n  FullName: d-1,4-ISOPOOH\n  Henry_CR: 0.0\n  Henry_K0: 1.7e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 118.15\n  WD_RetFactor: 2.0e-2\nRIPD:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+6\n  Formula: C5H10O3\n  FullName: d-4,1-ISOPOOH\n  Henry_CR: 0.0\n  Henry_K0: 1.7e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 118.15\n  WD_RetFactor: 2.0e-2\nRNO3:\n  DD_F0: 1.0\n  DD_Hstar: 1.7e+4\n  Formula: RO2NO\n  FullName: Lumped aromatic nitrate\n  Henry_CR: 5800.0\n  Henry_K0: 1.0\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 203.15\n  WD_RetFactor: 2.0e-2\nRn222:\n  Formula: Rn222\n  FullName: Radon-222 isotope\n  Is_Aerosol: true\n  Is_RadioNuclide: true\n  Is_Tracer: true\n  MW_g: 222.0\n# Comment out tracer-specific code for now and use RnPbBe_mod.F90\n#  Snk_Horiz: all\n#  Snk_Mode: efolding\n#  Snk_Period: 5.5\n#  Snk_Vert: all\n#  Src_Add: true\n#  Src_Mode: HEMCO\n#  Src_Mode: decay_of_another_species\n#  Src_Species: Rn222\nROH:\n  Formula: C3H7OH\n  FullName: '> C2 alcohols'\n  Is_Gas: true\n  MW_g: 60.11\nRP:\n  DD_F0: 1.0\n  DD_Hstar: 2.94e+2\n  Formula: CH3CH2C(O)OOH\n  FullName: Peroxide from RCO3\n  Henry_CR: 5200.0\n  Henry_K0: 2.94e+2\n  Is_DryDep: true\n  Is_Gas: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 90.09\n  WD_RetFactor: 2.0e-2\nS:\n  Formula: S\n  FullName: Atomic sulfur\n  MW_g: 32.06\nSALA:\n  << : *SALAproperties\n  FullName: Fine (0.01-0.05 microns) sea salt aerosol\n  Is_HygroGrowth: true\n  MW_g: 31.4\nSALAAL:\n  << : *SALAproperties\n  FullName: Accumulation mode sea salt alkalinity\n  Is_HygroGrowth: false\n  MW_g: 31.4\nSALACL:\n  << : *SALAproperties\n  FullName: Chloride in Accumulation mode sea salt aerosol\n  Is_HygroGrowth: false\n  MW_g: 35.45\nSALC:\n  << : *SALCproperties\n  FullName: Coarse (0.5-8 microns) sea salt aerosol\n  Is_HygroGrowth: true\n  MW_g: 31.4\n  WD_CoarseAer: true\nSALCAL:\n  << : *SALCproperties\n  FullName: Coarse mode sea salt alkalinity\n  Is_HygroGrowth: false\n  MW_g: 31.4\n  WD_CoarseAer: true\nSALCCL:\n  << : *SALCproperties\n  FullName: Chloride in Coarse mode sea salt aerosol\n  Is_HygroGrowth: false\n  MW_g: 35.45\n  WD_CoarseAer: true\nSF6:\n  Background_VV: 1.0e-20\n  Formula: SF6\n  FullName: Sulfur hexafluoride\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 146.06\n  Snk_Mode: none\n  Src_Add: true\n  Src_Mode: HEMCO\nSiF1:\n  << : *METALSproperties\n  Density: 2500.0\n  FullName: Silicon on dust, Reff = 0.7 microns\n  MW_g: 28.09\n  Radius: 7.3e-7\nSiF2:\n  << : *METALSproperties\n  Density: 2650.0\n  FullName: Silicon on dust, Reff = 1.4 microns\n  MW_g: 28.09\n  Radius: 1.4e-6\nSO2:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.2, 0.3]\n  DD_DvzMinVal_Luo: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+5\n  Formula: SO2\n  FullName: Sulfur dioxide\n  Henry_CR_Luo: 3100.0\n  Henry_K0_Luo: 1.22\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 64.04\n  WD_AerScavEff: 1.0\n  WD_Is_SO2: true\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\n  WD_RetFactor_Luo: 5.0e-2\n  WD_LiqAndGas_Luo: true\n  WD_ConvFacI2G_Luo: 6.17395e-1\nSO3mm:\n  Formula: SO3--\n  FullName: Sulfite\n  Is_Gas: true\n  MW_g: 80.07\nSO4:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1700.0\n  Formula: SO4\n  FullName: Sulfate\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_Photolysis: true\n  Is_WetDep: true\n  MW_g: 96.06\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\n  WD_RainoutEff_Luo: [0.4, 0.0, 1.0]\nSO4Dbin1:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Sulfate on DSTbin1\n  MW_g: 96.06\n  Radius: 1.51e-7\n  WD_WashoutRainPara: [3.99e-7, 0.71]\n  WD_WashoutSnowPara: [7.28e-6, 0.57]\nSO4Dbin2:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Sulfate on DSTbin2\n  MW_g: 96.06\n  Radius: 2.53e-7\n  WD_WashoutRainPara: [4.07e-7, 0.71]\n  WD_WashoutSnowPara: [1.34e-5, 0.56]  \nSO4Dbin3:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Sulfate on DSTbin3\n  MW_g: 96.06\n  Radius: 4.02e-7\n  WD_WashoutRainPara: [4.81e-7, 0.72]\n  WD_WashoutSnowPara: [2.72e-5, 0.56]\nSO4Dbin4:\n  << : *DSTbinproperties\n  Density: 2500.0\n  FullName: Sulfate on DSTbin4\n  MW_g: 96.06\n  Radius: 8.18e-7\n  WD_WashoutRainPara: [8.43e-7, 0.73]\n  WD_WashoutSnowPara: [6.03e-5, 0.55]\nSO4Dbin5:\n  << : *DSTbinproperties\n  Density: 2650.0\n  Radius: 1.491e-6\n  FullName: Sulfate on DSTbin5\n  MW_g: 96.06\n  WD_WashoutRainPara: [4.82e-5, 0.88]\n  WD_WashoutSnowPara: [4.15e-4, 0.61]\nSO4Dbin6:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Sulfate on DSTbin6\n  MW_g: 96.06\n  Radius: 2.417e-6\n  WD_WashoutRainPara: [2.17e-4, 0.87]\n  WD_WashoutSnowPara: [1.27e-3, 0.67]\nSO4Dbin7:\n  << : *DSTbinproperties\n  Density: 2650.0\n  FullName: Sulfate on DSTbin7\n  MW_g: 96.06\n  Radius: 3.721e-6\n  WD_WashoutRainPara: [3.37e-4, 0.84]\n  WD_WashoutSnowPara: [2.42e-3, 0.73]\nSO4H1:\n  Formula: SO4\n  FullName: Sulfate produced by HOBr\n  Is_Gas: true\n  MW_g: 96.06\nSO4H2:\n  Formula: SO4\n  FullName: Sulfate produced by HOBr\n  Is_Gas: true\n  MW_g: 96.06\nSO4H3:\n  Formula: SO4\n  FullName: Sulfate produced by HOCl\n  Is_Gas: true\n  MW_g: 96.06\nSO4H4:\n  Formula: SO4\n  FullName: Sulfate produced by HOCl\n  Is_Gas: true\n  MW_g: 96.06\nSO4s:\n  << : *SALCproperties\n  FullName: Sulfate on surface of seasalt aerosol\n  MW_g: 96.06\n  WD_CoarseAer: true\nSOAGX:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C2H2O2\n  FullName: Aerosol-phase glyoxal\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 58.04\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nSOAIE:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Formula: C5H10O3\n  FullName: Aerosol-phase IEPOX\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 118.15\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nSOAP:\n  FullName: SOA Precursor - lumped species for simplified SOA parameterization\n  Is_Gas: true\n  MW_g: 150.0\nSOAS:\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: SOA Simple - simplified non-volatile SOA parameterization\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 150.0\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nst80_25:\n  FullName: Stratosphere source 25 day tracer\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\n  Snk_Horiz: all\n  Snk_Mode: efolding\n  Snk_Period: 25\n  Snk_Vert: troposphere\n  Src_Add: false\n  Src_Horiz: all\n  Src_Mode: constant\n  Src_Pressures: [0, 80]\n  Src_Units: ppbv\n  Src_Value: 200\n  Src_Vert: pressures\nstOX:\n  FullName: Tracer with O3 values in stratosphere and O3 loss applied in troposphere\n  Is_Gas: true\n  Is_Tracer: true\n  MW_g: 1.0   # Use value of 1.0 to get past checks for missing MW_g\n  Loss_Species: O3\n  Snk_Horiz: all\n  Snk_Mode: chemical_loss\n  Snk_Vert: troposphere\n  Src_Add: false\n  Src_Horiz: all\n  Src_Mode: model_field\n  Src_Vert: stratosphere\nSTYR:\n  Formula: C8H8\n  FullName: Styrene\n  Is_Gas: true\n  MW_g: 104.1491\nTiF1:\n  << : *METALSproperties\n  Density: 2500.0\n  Formula: Ti\n  FullName: Titanium on dust, Reff = 0.7 microns\n  MW_g: 47.87\n  Radius: 7.3e-7\nTiF2:\n  << : *METALSproperties\n  Density: 2650.0\n  Formula: Ti\n  FullName: Titanium on dust, Reff = 1.4 microns\n  MW_g: 47.87\n  Radius: 1.4e-6\nTLFUO2:\n  Formula: C5H7O5\n  Is_Gas: true\n  MW_g: 147.1\nTLFUONE:\n  DD_F0: 1.0\n  DD_Hstar: 2.0e+6\n  Formula: C5H6O2\n  FullName: Aromatic furanones\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 98.10\n  Henry_CR: 7500.0\n  Henry_K0: 2.0e+6\n  WD_RetFactor: 2.0e-2\nTMB:\n  Formula: C8H10\n  FullName: Trimethylbenzenes\n  Is_Gas: true\n  MW_g: 106.167\nTOLU:\n  Formula: C7H8\n  FullName: Toluene\n  Is_Gas: true\n  MW_g: 92.15\nTRO2:\n  Formula: C7H9O5\n  FullName: Peroxy radical from TOLU oxidation\n  Is_Gas: true\n  MW_g: 173.16\nTSOA_PROP: &TSOAproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Lumped semivolatile aerosol products of monoterpene + sesquiterpene oxidation\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 150.0\n  WD_AerScavEff: 0.8\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [0.8, 0.0, 0.8]\n  WD_RainoutEff_Luo: [0.4, 0.0, 0.8]\nTSOA0:\n  << : *TSOAproperties\nTSOA1:\n  << : *TSOAproperties\nTSOA2:\n  << : *TSOAproperties\nTSOA3:\n  << : *TSOAproperties\nTSOG_PROP: &TSOGproperties\n  DD_F0: 0.0\n  DD_Hstar: 1.0e+5\n  FullName: Lumped semivolatile gas products of monoterpene + sesquiterpene oxidation\n  Henry_CR: 6039.0\n  Henry_K0: 1.0e+5\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 150.0\n  WD_RetFactor: 2.0e-2\nTSOG0:\n  << : *TSOGproperties\nTSOG1:\n  << : *TSOGproperties\nTSOG2:\n  << : *TSOGproperties\nTSOG3:\n  << : *TSOGproperties\nXRO2:\n  Formula: C8H11O5\n  FullName: Peroxy radical from TOLU oxidation\n  Is_Gas: true\n  MW_g: 187.19\nXYLE:\n  Formula: C8H10\n  FullName: Xylene\n  Is_Gas: true\n  MW_g: 106.18\n"
  },
  {
    "path": "run/shared/species_database_apm.yml",
    "content": "# GEOS-Chem Species Database (13 May 2020)\n# APM microphysics species only\n# NOTE: Anchors must be defined before any variables that reference them\nAPMAMINE1:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.2, 0.3]\n  DD_F0: 0.0\n  DD_Hstar: 2.0e+4\n  FullName: APM amines 1\n  Henry_CR: 4100.0\n  Henry_K0: 3.3e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 31.0\n  WD_RetFactor: 5.0e-2\n  WD_LiqAndGas: true\n  WD_ConvFacI2G: 6.17395e-1\nAPMAMINE2:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.2, 0.3]\n  DD_F0: 0.0\n  DD_Hstar: 2.0e+4\n  FullName: APM amines 2\n  Henry_CR: 4100.0\n  Henry_K0: 3.3e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 45.0\n  WD_RetFactor: 5.0e-2\n  WD_LiqAndGas: true\n  WD_ConvFacI2G: 6.17395e-1\nAPMAMINE3:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.2, 0.3]\n  DD_F0: 0.0\n  DD_Hstar: 2.0e+4\n  FullName: APM amines 3\n  Henry_CR: 4100.0\n  Henry_K0: 3.3e+6\n  Is_DryDep: true\n  Is_Gas: true\n  Is_WetDep: true\n  MW_g: 59.0\n  WD_RetFactor: 5.0e-2\n  WD_LiqAndGas: true\n  WD_ConvFacI2G: 6.17395e-1\nAPMBCBIN01_PROP: &APMBC1properties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: C\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 0.0\n  WD_KcScaleFac: [1.0, 0.0, 0.0]\n  WD_RainoutEff: [1.0, 0.0, 0.0]\nAPMBCBIN01:\n  << : *APMBC1properties\n  FullName: APM black carbon, size bin = 01\nAPMBCBIN02:\n  << : *APMBC1properties\n  FullName: APM black carbon, size bin = 02\nAPMBCBIN03:\n  << : *APMBC1properties\n  FullName: APM black carbon, size bin = 03\nAPMBCBIN04:\n  << : *APMBC1properties\n  FullName: APM black carbon, size bin = 04\nAPMBCBIN05:\n  << : *APMBC1properties\n  FullName: APM black carbon, size bin = 05\nAPMBCBIN06_PROP: &APMBC6properties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: C\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMBCBIN06:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 07\nAPMBCBIN07:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 07\nAPMBCBIN08:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 08\nAPMBCBIN09:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 09\nAPMBCBIN10:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 10\nAPMBCBIN11:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 11\nAPMBCBIN12:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 12\nAPMBCBIN13:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 13\nAPMBCBIN14:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 14\nAPMBCBIN15:\n  << : *APMBC6properties\n  FullName: APM black carbon, size bin = 15\nAPMCTBC1:\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: SO4\n  FullName: APM CTSO4\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 96.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTBC2:\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: LVSOA\n  FullName: APM CTSLVSOA\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 181.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTDST1:\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2650.0\n  Formula: SO4\n  FullName: APM CTSO4\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 96.0\n  Radius: 4.5e-6\n  WD_AerScavEff: 1.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTDST2:\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2650.0\n  Formula: LVSOA\n  FullName: APM CTLVSOA\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 181.0\n  Radius: 4.5e-6\n  WD_AerScavEff: 1.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTOC1:\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: SO4\n  FullName: APM CTSO4\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 96.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTOC2:\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: LVSOA\n  FullName: APM CTSLVSOA\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 181.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTSEA1:\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2200.0\n  Formula: SO4\n  FullName: APM CTSO4\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 96.0\n  Radius: 2.5e-6\n  WD_AerScavEff: 1.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMCTSEA2:\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2200.0\n  Formula: LVSOA\n  FullName: APM CTLVSOA\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 181.0\n  Radius: 2.5e-6\n  WD_AerScavEff: 1.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMDSTBIN_PROP: &APMDSTproperties\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2650.0\n  Formula: Dust\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 29.0\n  Radius: 4.5e-6\n  WD_AerScavEff: 0.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [1.0, 0.5, 0.0]\n  WD_RainoutEff: [1.0, 0.5, 0.0]\nAPMDSTBIN01:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 01\nAPMDSTBIN02:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 02\nAPMDSTBIN03:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 03\nAPMDSTBIN04:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 04\nAPMDSTBIN05:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 05\nAPMDSTBIN06:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 06\nAPMDSTBIN07:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 07\nAPMDSTBIN08:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 08\nAPMDSTBIN09:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 09\nAPMDSTBIN10:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 10\nAPMDSTBIN11:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 11\nAPMDSTBIN12:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 12\nAPMDSTBIN13:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 13\nAPMDSTBIN14:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 14\nAPMDSTBIN15:\n  << : *APMDSTproperties\n  FullName: APM dust, size bin = 15\nAPMH2SO4:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: H2SO4\n  FullName: APM sulfuric acid\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 98.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nAPMLVSOA:\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Formula: LVSOA\n  FullName: APM LVSOA\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 181.0\n  Radius: 5.0e-7\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMLVSOG:\n  DD_DvzAerSnow: 0.03\n  DD_DvzMinVal: [0.01, 0.01]\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  FullName: APM LV secondary organic gas\n  Is_Aerosol: true    # APMLVSOG is aerosol in Ref code, ask Gan Luo\n  Is_DryDep: true\n  #Is_Gas: true       # APMLVSOG is aerosol in Ref code, ask Gan Luo\n  Is_WetDep: true\n  MW_g: 181.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nAPMOCBIN_PROP: &APMOC1properties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  Formula: C\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.5, 0.5, 0.5]\n  WD_RainoutEff: [0.0, 0.0, 0.0]\nAPMOCBIN01:\n  << : *APMOC1properties\n  FullName: APM organic carbon, size bin = 01\nAPMOCBIN02:\n  << : *APMOC1properties\n  FullName: APM organic carbon, size bin = 02\nAPMOCBIN03:\n  << : *APMOC1properties\n  FullName: APM organic carbon, size bin = 03\nAPMOCBIN04:\n  << : *APMOC1properties\n  FullName: APM organic carbon, size bin = 04\nAPMOCBIN05:\n  << : *APMOC1properties\n  FullName: APM organic carbon, size bin = 05\nAPMOCBIN06_PROP: &APMOC6properties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1300.0\n  Formula: C\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nAPMOCBIN06:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 06\nAPMOCBIN07:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 07\nAPMOCBIN08:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 08\nAPMOCBIN09:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 09\nAPMOCBIN10:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 10\nAPMOCBIN11:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 11\nAPMOCBIN12:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 12\nAPMOCBIN13:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 13\nAPMOCBIN14:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 14\nAPMOCBIN15:\n  << : *APMOC6properties\n  FullName: APM organic carbon, size bin = 15\nAPMSEABIN_PROP: &APMSEAproperties\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 2200.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 31.4\n  Radius: 2.5e-6\n  WD_AerScavEff: 1.0\n  WD_CoarseAer: true\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMSEABIN01:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 01\nAPMSEABIN02:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 02\nAPMSEABIN03:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 03\nAPMSEABIN04:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 04\nAPMSEABIN05:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 05\nAPMSEABIN06:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 06\nAPMSEABIN07:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 07\nAPMSEABIN08:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 08\nAPMSEABIN09:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 09\nAPMSEABIN10:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 10\nAPMSEABIN11:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 11\nAPMSEABIN12:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 12\nAPMSEABIN13:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 13\nAPMSEABIN14:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 14\nAPMSEABIN15:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 15\nAPMSEABIN16:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 16\nAPMSEABIN17:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 17\nAPMSEABIN18:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 18\nAPMSEABIN19:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 19\nAPMSEABIN20:\n  << : *APMSEAproperties\n  FullName: APM sea salt, size bin = 20\nAPMSPBIN_PROP: &APMSPproperties\n  DD_DustDryDep: true\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Density: 1800.0\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_HygroGrowth: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 96.0\n  Radius: 5.0e-7\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [0.0, 0.0, 1.0]\n  WD_RainoutEff: [0.0, 0.0, 1.0]\nAPMSPBIN01:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 01\nAPMSPBIN02:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 02\nAPMSPBIN03:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 03\nAPMSPBIN04:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 04\nAPMSPBIN05:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 05\nAPMSPBIN06:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 06\nAPMSPBIN07:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 07\nAPMSPBIN08:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 08\nAPMSPBIN09:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 09\nAPMSPBIN10:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 10\nAPMSPBIN11:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 11\nAPMSPBIN12:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 12\nAPMSPBIN13:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 13\nAPMSPBIN14:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 14\nAPMSPBIN15:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 15\nAPMSPBIN16:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 16\nAPMSPBIN17:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 17\nAPMSPBIN18:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 18\nAPMSPBIN19:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 19\nAPMSPBIN20:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 20\nAPMSPBIN21:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 21\nAPMSPBIN22:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 22\nAPMSPBIN23:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 23\nAPMSPBIN24:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 24\nAPMSPBIN25:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 25\nAPMSPBIN26:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 26\nAPMSPBIN27:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 27\nAPMSPBIN28:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 28\nAPMSPBIN29:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 29\nAPMSPBIN30:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 30\nAPMSPBIN31:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 31\nAPMSPBIN32:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 32\nAPMSPBIN33:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 33\nAPMSPBIN34:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 34\nAPMSPBIN35:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 35\nAPMSPBIN36:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 36\nAPMSPBIN37:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 37\nAPMSPBIN38:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 38\nAPMSPBIN39:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 39\nAPMSPBIN40:\n  << : *APMSPproperties\n  FullName: APM sulfate, size bin = 40\n"
  },
  {
    "path": "run/shared/species_database_tomas.yml",
    "content": "# GEOS-Chem Species Database (13 May 2020)\n# TOMAS microphysics species only\n# NOTE: Anchors must be defined before any variables that reference them\nAW_PROP: &AWproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  MP_SizeResAer: true\n  MW_g: 18.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nAW01:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 1\nAW02:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 2\nAW03:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 3\nAW04:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 4\nAW05:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 5\nAW06:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 6\nAW07:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 7\nAW08:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 8\nAW09:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 9\nAW10:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 10\nAW11:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 11\nAW12:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 12\nAW13:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 13\nAW14:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 14\nAW15:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 15\nAW16:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 16\nAW17:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 17\nAW18:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 18\nAW19:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 19\nAW20:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 20\nAW21:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 21\nAW22:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 22\nAW23:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 23\nAW24:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 24\nAW25:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 25\nAW26:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 26\nAW27:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 27\nAW28:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 28\nAW29:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 29\nAW30:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 30\nAW31:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 31\nAW32:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 32\nAW33:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 33\nAW34:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 34\nAW35:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 35\nAW36:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 36\nAW37:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 37\nAW38:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 38\nAW39:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 39\nAW40:\n  << : *AWproperties\n  FullName: Aerosol water, size bin = 40\nDUST_PROP: &DUSTproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 100.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nDUST01:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 1\nDUST02:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 2\nDUST03:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 3\nDUST04:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 4\nDUST05:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 5\nDUST06:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 6\nDUST07:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 7\nDUST08:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 8\nDUST09:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 9\nDUST10:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 10\nDUST11:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 11\nDUST12:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 12\nDUST13:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 13\nDUST14:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 14\nDUST15:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 15\nDUST16:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 16\nDUST17:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 17\nDUST18:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 18\nDUST19:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 19\nDUST20:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 20\nDUST21:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 21\nDUST22:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 22\nDUST23:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 23\nDUST24:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 24\nDUST25:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 25\nDUST26:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 26\nDUST27:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 27\nDUST28:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 28\nDUST29:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 29\nDUST30:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 30\nDUST31:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 31\nDUST32:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 32\nDUST33:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 33\nDUST34:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 34\nDUST35:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 35\nDUST36:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 36\nDUST37:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 37\nDUST38:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 38\nDUST39:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 39\nDUST40:\n  << : *DUSTproperties\n  FullName: Mineral dust, size bin = 40\nECIL_PROP: &ECILproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nECIL01:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 1\nECIL02:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 2\nECIL03:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 3\nECIL04:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 4\nECIL05:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 5\nECIL06:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 6\nECIL07:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 7\nECIL08:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 8\nECIL09:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 9\nECIL10:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 10\nECIL11:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 11\nECIL12:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 12\nECIL13:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 13\nECIL14:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 14\nECIL15:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 15\nECIL16:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 16\nECIL17:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 17\nECIL18:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 18\nECIL19:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 19\nECIL20:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 20\nECIL21:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 21\nECIL22:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 22\nECIL23:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 23\nECIL24:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 24\nECIL25:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 25\nECIL26:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 26\nECIL27:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 27\nECIL28:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 28\nECIL29:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 29\nECIL30:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 30\nECIL31:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 31\nECIL32:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 32\nECIL33:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 33\nECIL34:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 34\nECIL35:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 35\nECIL36:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 36\nECIL37:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 37\nECIL38:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 38\nECIL39:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 39\nECIL40:\n  << : *ECILproperties\n  FullName: Hydrophilic elemental carbon, size bin = 40\nECOB_PROP: &ECOBproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  MP_SizeResAer: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nECOB01:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 1\nECOB02:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 2\nECOB03:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 3\nECOB04:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 4\nECOB05:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 5\nECOB06:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 6\nECOB07:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 7\nECOB08:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 8\nECOB09:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 9\nECOB10:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 10\nECOB11:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 11\nECOB12:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 12\nECOB13:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 13\nECOB14:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 14\nECOB15:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 15\nECOB16:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 16\nECOB17:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 17\nECOB18:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 18\nECOB19:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 19\nECOB20:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 20\nECOB21:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 21\nECOB22:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 22\nECOB23:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 23\nECOB24:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 24\nECOB25:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 25\nECOB26:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 26\nECOB27:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 27\nECOB28:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 28\nECOB29:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 29\nECOB30:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 30\nECOB31:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 31\nECOB32:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 32\nECOB33:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 33\nECOB34:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 34\nECOB35:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 35\nECOB36:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 36\nECOB37:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 37\nECOB38:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 38\nECOB39:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 39\nECOB40:\n  << : *ECOBproperties\n  FullName: Hydrophobic elemental carbon, size bin = 40\nH2SO4:\n  DD_F0: 0.0\n  DD_Hstar: 1.0e5\n  Formula: H2SO4\n  FullName: Sulfuric acid\n  Is_Gas: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 98.0\n  WD_AerScavEff: 1.0\n  WD_Is_H2SO4: true\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nNK_PROP: &NKproperties\n  DD_DustDryDep: true\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  FullName: Aerosol number, size bin = 1\n  Is_Aerosol: true\n  Is_DryDep: true\n  Is_WetDep: true\n  MP_SizeResNum: true\n  MW_g: 1.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nNK01:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 1\nNK02:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 2\nNK03:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 3\nNK04:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 4\nNK05:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 5\nNK06:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 6\nNK07:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 7\nNK08:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 8\nNK09:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 9\nNK10:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 10\nNK11:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 11\nNK12:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 12\nNK13:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 13\nNK14:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 14\nNK15:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 15\nNK16:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 16\nNK17:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 17\nNK18:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 18\nNK19:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 19\nNK20:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 20\nNK21:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 21\nNK22:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 22\nNK23:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 23\nNK24:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 24\nNK25:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 25\nNK26:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 26\nNK27:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 27\nNK28:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 28\nNK29:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 29\nNK30:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 30\nNK31:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 31\nNK32:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 32\nNK33:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 33\nNK34:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 34\nNK35:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 35\nNK36:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 36\nNK37:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 37\nNK38:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 38\nNK39:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 39\nNK40:\n  << : *NKproperties\n  FullName: Aerosol number, size bin = 40\nOCIL_PROP: &OCILproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nOCIL01:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 1\nOCIL02:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 2\nOCIL03:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 3\nOCIL04:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 4\nOCIL05:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 5\nOCIL06:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 6\nOCIL07:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 7\nOCIL08:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 8\nOCIL09:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 9\nOCIL10:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 10\nOCIL11:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 11\nOCIL12:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 12\nOCIL13:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 13\nOCIL14:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 14\nOCIL15:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 15\nOCIL16:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 16\nOCIL17:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 17\nOCIL18:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 18\nOCIL19:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 19\nOCIL20:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 20\nOCIL21:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 21\nOCIL22:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 22\nOCIL23:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 23\nOCIL24:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 24\nOCIL25:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 25\nOCIL26:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 26\nOCIL27:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 27\nOCIL28:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 28\nOCIL29:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 29\nOCIL30:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 30\nOCIL31:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 31\nOCIL32:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 32\nOCIL33:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 33\nOCIL34:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 34\nOCIL35:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 35\nOCIL36:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 36\nOCIL37:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 37\nOCIL38:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 38\nOCIL39:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 39\nOCIL40:\n  << : *OCILproperties\n  FullName: Hydrophilic organic carbon, size bin = 40\nOCOB_PROP: &OCOBproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 12.01\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nOCOB01:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 1\nOCOB02:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 2\nOCOB03:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 3\nOCOB04:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 4\nOCOB05:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 5\nOCOB06:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 6\nOCOB07:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 7\nOCOB08:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 8\nOCOB09:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 9\nOCOB10:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 10\nOCOB11:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 11\nOCOB12:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 12\nOCOB13:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 13\nOCOB14:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 14\nOCOB15:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 15\nOCOB16:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 16\nOCOB17:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 17\nOCOB18:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 18\nOCOB19:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 19\nOCOB20:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 20\nOCOB21:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 21\nOCOB22:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 22\nOCOB23:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 23\nOCOB24:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 24\nOCOB25:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 25\nOCOB26:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 26\nOCOB27:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 27\nOCOB28:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 28\nOCOB29:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 29\nOCOB30:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 30\nOCOB31:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 31\nOCOB32:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 32\nOCOB33:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 33\nOCOB34:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 34\nOCOB35:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 35\nOCOB36:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 36\nOCOB37:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 37\nOCOB38:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 38\nOCOB39:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 39\nOCOB40:\n  << : *OCOBproperties\n  FullName: Hydrophobic organic carbon, size bin = 40\nSF_PROP: &SFproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 96.0\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nSF01:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 1\nSF02:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 2\nSF03:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 3\nSF04:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 4\nSF05:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 5\nSF06:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 6\nSF07:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 7\nSF08:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 8\nSF09:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 9\nSF10:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 10\nSF11:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 11\nSF12:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 12\nSF13:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 13\nSF14:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 14\nSF15:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 15\nSF16:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 16\nSF17:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 17\nSF18:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 18\nSF19:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 19\nSF20:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 20\nSF21:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 21\nSF22:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 22\nSF23:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 23\nSF24:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 24\nSF25:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 25\nSF26:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 26\nSF27:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 27\nSF28:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 28\nSF29:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 29\nSF30:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 30\nSF31:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 31\nSF32:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 32\nSF33:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 33\nSF34:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 34\nSF35:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 35\nSF36:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 36\nSF37:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 37\nSF38:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 38\nSF39:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 39\nSF40:\n  << : *SFproperties\n  FullName: Sulfate aerosol, size bin = 40\nSS_PROP: &SSproperties\n  DD_DvzAerSnow: 0.03\n  DD_F0: 0.0\n  DD_Hstar: 0.0\n  Is_Aerosol: true\n  Is_WetDep: true\n  MP_SizeResAer: true\n  MW_g: 58.5\n  WD_AerScavEff: 1.0\n  WD_KcScaleFac: [1.0, 0.5, 1.0]\n  WD_RainoutEff: [1.0, 0.0, 1.0]\nSS01:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 1\nSS02:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 2\nSS03:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 3\nSS04:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 4\nSS05:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 5\nSS06:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 6\nSS07:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 7\nSS08:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 8\nSS09:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 9\nSS10:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 10\nSS11:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 11\nSS12:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 12\nSS13:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 13\nSS14:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 14\nSS15:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 15\nSS16:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 16\nSS17:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 17\nSS18:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 18\nSS19:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 19\nSS20:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 20\nSS21:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 21\nSS22:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 22\nSS23:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 23\nSS24:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 24\nSS25:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 25\nSS26:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 26\nSS27:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 27\nSS28:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 28\nSS29:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 29\nSS30:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 30\nSS31:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 31\nSS32:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 32\nSS33:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 33\nSS34:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 34\nSS35:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 35\nSS36:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 36\nSS37:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 37\nSS38:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 38\nSS39:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 39\nSS40:\n  << : *SSproperties\n  FullName: Sea salt aerosol, size bin = 40\n"
  },
  {
    "path": "test/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "test/README.md",
    "content": "# README: The `src/GEOS-Chem/test` directory\n\n## Contents\n\n`difference/`\n- Directory containing scripts for performing a **difference test**.\n- A difference test compares the output of two different integration tests for identicality.\n- TODO (Jun 2023): Add capability to compare the output of two **parallel tests** for identicality.\n\n`integration/`\n- Directory containing scripts for performing **integration tests** for both GEOS-Chem Classic and GCHP.\n- Integration tests compile and run several different \"out-of-the-box\" GEOS-Chem Classic and GCHP configurations in order to identify errors caused by source code updates.\n\n`parallel/`\n- Directory contianing scripts for performing **parallel tests** for GEOS-Chem Classic.\n- Parallel tests compile and run several different \"out-of-the-box\" GEOS-Chem Classic configurations with different numbers of OpenMP threads in order to identify parallelization errors caused by source code updates.\n\n`shared/`\n- Directory containing scripts with common settings and functions that are used by the difference test, integration test, and parallel test scripts.\n"
  },
  {
    "path": "test/difference/README.md",
    "content": "# README for Difference Tests\n\n## Contents\n\n`diffTest.sh`\n- Script that looks for differences in two different integration test or parallel test directories.  \n- Checks both diagnostic files and restart files in each integration test run directory for identicality.\n- TODO (as of June 2023): Add capability to check outputs from two different GEOS-Chem Classic parallel test directories.  As of now `difftest.sh` can only be used with integration tests.\n\n## Performing a difference test\n\nRun the `difftest.sh` script as follows:\n\n```console\n$ cd test/difference\n$ ./diffTest.sh /path/to/<REF> /path/to/<DEV>\n```\nwhere `<REF>` and `<DEV>` indicate the names of the integration tests that are being compared.\n\nThe script will compare diagnostic and restart files within each integration test run directory.  If no differences are found, you will see ouptut such as:\n\n```console\nChecking gc_4x5_merra2_fullchem_<SIM>\n   -> No differences in OutputDir\n   -> No differences in Restarts\n```\nfor each type of simulation `<SIM>` (e.g. `fullchem`, `fullchem_benchmark`, `CH4`, etc.) that was included in the `<REF>` and `<DEV>` integration tests.\n\nIf differences are found, you will see output such as:\n\n```console\nChecking gc_4x5_merra2_<SIM>\n   -> 2 differences found in OutputDir\n      * <REF>/rundirs/gc_4x5_merra2_<SIM>/OutputDir/GEOSChem.Metrics.20190701_0000z.nc4 \n        <DEV>/rundirs/gc_4x5_merra2_<SIM>/OutputDir/GEOSChem.Metrics.20190701_0000z.nc4 \n      * <REF>/rundirs/gc_4x5_merra2_<SIM>/OutputDir/GEOSChem.SpeciesConc.20190701_0000z.nc4 \n        <DEV>/rundirs/gc_4x5_merra2_<SIM>/OutputDir/GEOSChem.SpeciesConc.20190701_0000z.nc4 \n   -> 1 difference found in Restarts\n      * <REF>/rundirs/gc_4x5_merra2_<SIM>/Restarts/GEOSChem.Restart.20190701_0100z.nc4 \n        <DEV>/rundirs/gc_4x5_merra2_<SIM>/Restarts/GEOSChem.Restart.20190701_0100z.nc4\n```\n"
  },
  {
    "path": "test/difference/diffTest.sh",
    "content": "#!/bin/bash\n\n#EOC\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: diffTest.sh\n#\n# !DESCRIPTION: Looks for differences in two integration test or parallel\n#  test directories.  Checks both diagnostic files (in the OutputDir/ folder\n#  of each run directory) and restart files (in the Restarts/ folder of\n#  each run directory).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE\n#  ./diffTest.sh <ref_it_dir> <dev_it_dir>\n#\n#  where <ref_it_dir> is the path to the \"Ref\" integration test root folder\n#  and   <dev_it_dir> is the path to the \"Dev\" integration test root folder\n#\n# !REMARKS:\n#  TODO: Add capability to check parallel tests for identicality\n#\n# !AUTHORS\n#  Lizzie Lundgren (@lizziel)\n#  Bob Yantosca (@yantosca)\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n\nfunction check_for_diffs() {\n\n    #========================================================================\n    # Compares netCDF files (GEOS-Chem diagnostics or restart files)\n    # in two different integration test folders.  Prints informational\n    # messages denoting if differences are found, and in which files.\n    #========================================================================\n\n    # Directories to compare\n    refRoot=\"${1}\"\n    devRoot=\"${2}\"\n    refRunDir=\"${3}\"\n    devRunDir=\"${4}\"\n\n    # Dir where files are found (\"OutputDir\" or \"Restarts\")\n    refBase=$(basename \"${refRunDir}\")\n    devBase=$(basename \"${devRunDir}\")\n\n    # Compare files in data directories\n    result=$(diff -r \"${refRunDir}\" \"${devRunDir}\")\n\n    # No differences found!  Print and exit.\n    if [[ \"x${result}\" == \"x\" ]]; then\n\tprintf \"   -> No differences in ${refBase}\\n\"\n\treturn 0\n    fi\n\n    # Get number of differences\n    nDiffs=$(printf \"$result\\n\" | wc -l)\n    if [[ \"x${nDiffs}\" == \"x1\" ]]; then\n\tprintf \"   -> ${nDiffs} difference found in ${refBase}\\n\"\n    else\n\tprintf \"   -> ${nDiffs} differences found in ${refBase}\\n\"\n    fi\n\n    # Format the result to remove extraneous characters\n    for (( i=1; i<=$nDiffs; i++ )) do\n\tresult=${result/\"${refRoot}/\"}\n\tresult=${result/\"${refRoot}/\"}\n\tresult=${result/\"${devRoot}/\"}\n\tresult=${result/\"${devRoot}/\"}\n\tif (( $i == 1 )); then\n\t   result=${result/'Binary files '/'* '}\n\telse\n\t   result=${result/'Binary files '/'      * '}\n\tfi\n\tresult=${result/'and'/'\\n       '}\n\tresult=${result/'differ'}\n    done\n    printf \"      $result\\n\"\n    return 0\n}\n\n\nfunction main() {\n\n    #========================================================================\n    # Main program.  Loops over all run directories in the <ref_it_dir>\n    # and <dev_it_dir> paths, and checks diagnostic & restart files\n    # for differences.\n    #========================================================================\n\n    # Error check # of arguments\n    if [[ $# -ne 2 ]]; then\n\techo \"Usage: ./diffTest.sh <ref_it_dir> <dev_it_dir>\"\n\texit 1\n    fi\n\n    # Paths to Ref & Def root directories\n    refRoot=$(dirname \"${1}\")\n    devRoot=$(dirname \"${2}\")\n\n    # Paths to Ref/rundirs and Dev/rundirs directories\n    refRunDirs=\"${1}/rundirs\"\n    devRunDirs=\"${2}/rundirs\"\n\n    # Get a list of all the run directories\n    runDirs=$(ls \"${refRunDirs}\")\n\n    # Loop over run directories\n    for dir in ${runDirs[@]}; do\n\tprintf \"Checking ${dir}\\n\"\n\n\t# Check diagnostic files for differences\n\tref=\"${refRunDirs}/${dir}/OutputDir\"\n\tdev=\"${devRunDirs}/${dir}/OutputDir\"\n\tcheck_for_diffs \"${refRoot}\" \"${devRoot}\" \"${ref}\" \"${dev}\"\n\n\t# Check restart files for differences\n\tref=\"${refRunDirs}/${dir}/Restarts\"\n\tdev=\"${devRunDirs}/${dir}/Restarts\"\n\tcheck_for_diffs \"${refRoot}\" \"${devRoot}\" \"${ref}\" \"${dev}\"\n\n\t# Print a space between rundirs\n\tref=\"\"\n\tdev=\"\"\n\tprintf \"\\n\"\n    done\n\n    # Return with success\n    return 0\n}\n\n#========================================================================\n# Call main with command-line arguments\n#========================================================================\nmain $@\n\n"
  },
  {
    "path": "test/integration/GCClassic/README.md",
    "content": "# README for GEOS-Chem Classic Integration Tests\n\n## Overview:\n\nThis directory contains:\n\n1. Scripts to submit automated GEOS-Chem Classic integration tests, which will test the following processes:\n\n    - GEOS-Chem Classic run directory creation\n    - GEOS-Chem Classic code configuration and compilation\n    - GEOS-Chem Classic execution\n\nIntegration tests are short GEOS-Chem Classic simulations.  Executables are compiled with all debugging options.  This should reveal any coding errors or run-directory configuration errors.\n\n## Files\n\n### Integration Test Scripts\n\n- `integrationTest.sh`\n  - Driver script to run GEOS-Chem Classic integration tests\n- `integrationTestCreate.sh`\n  - Script to create GEOS-Chem Classic run directories for integration tests\n- `integrationTestCompile.sh`\n  - Script to compile GEOS-Chem Classic executables\n- `integrationTestExecute.sh`\n   - Script to run GEOS-Chem Classic integration test simulations\n\n### Shared Scripts\n\n- `commonFunctionsForTests.sh`\n  - Link to `../../shared/commonFunctionsForTests.sh`, which contains global variables and functions for the integration and parallelization tests.\n\n## Before you begin\n\nPlease take a moment to:\n\n1. Verify that the `GCClassic` superproject is checked out to the correct branch and commit.\n2. Run `git submodule update --init --recursive` in order to update all submodules.\n3. Verify that the `HEAD` commit of the `GEOS-Chem` submodule contains the code that you wish to test. (If not, then check out the proper branch.)\n4. Verify that the `HEAD` commit of the `HEMCO` submodule contains the code that you wish to test. (If not, then check out the proper branch.)\n\n## Command-line Arguments\n\nThe integration test scripts accept the following command-line arguments:\n\n### Required arguments\n\n`-d /path/to/test/dir` specifies the root directory where integration test subdirectories and scripts will be placed.\n\n`-t compile|all` specifies the type of test to be run:\n  - `compile` will run compilation-only tests.\n  - `all` will run compilation and execution tests.\n\n### Optional arguments\n\n`-e /path/to/env-file` Specifies the file that is used to initialize the software environment on the Harvard Cannon cluster.  If omitted, a default file will be selected.\n\n`-h` displays a help screeen.\n\n`-q` will run only a couple of integration tests instead of the full suite.  This is intended for development and debugging.  You will normally not need to use this option.\n\nYou can also use long names for the option switches:\n- `--directory` instead of `-d`\n- `--env-file` instead of `-e`\n- `--help` instead of `h`\n- `--no-bootstrap` instead of `n`\n- `--tests-to-run` instead of `-t`\n\n## Examples\n\n### Request compile-only tests on Cannon or Compute1\n```console\n$ cd /path/to/GCClassic     # Path to GCClassic superproject directory\n$ cd test/integration/GCClassic\n$ ./integrationTest.sh -d /path/to/test/dir -t compile\n```\n\n### Request compile and execution tests (Harvard Cannon)\n```console\n$ cd /path/to/GCClassic     # Path to GCClassic superproject directory\n$ cd test/integration/GCClassic\n$ ./integrationTest.sh -d /path/to/test/dir -t all -e /path/to/env-file\n```\nNOTE: If you omit the `-e /path/to/env/file` a default environment file will be used to load GNU Compiler Collection 10 and related libraries.\n\n### Request compile & execution tests (WashU compute1)\n```console\n$ cd /path/to/GCClassic     # Path to GCClassic superproject directory\n$ cd test/integration/GCClassic\n$ ./integrationTest.sh -d /path/to/test/dir -t all\n```\nNOTE: No environment file is needed.  On Compute1 the tests will run inside a software container with all necessary libraries included.\n"
  },
  {
    "path": "test/integration/GCClassic/README.testroot.md",
    "content": "# README for GEOS-Chem Classic Integration Tests\n\n## Directories\n\nComponents of GEOS-Chem Classic integration tests have been separated into these directories:\n\n`bin`\n\n  - Contains GEOS-Chem Classic executable files.\n\n`build`\n\n  - Directories for building GEOS-Chem Classic executables.\n\n`CodeDir`\n\n  - Symbolic link to the `GCClassic` superproject directory.\n\n`env`\n\n  - Contains an environment file that loads the software libraries needed to run GEOS-Chem Classic.\n\n`logs`\n\n  - Contains log files from the integration tests.\n\n    - `results.compile.log`: Results of GEOS-Chem Classic compilation tests.\n    - `results.execute.log`: Results of GEOS-Chem Classic execution tests.\n    - `compile.*.log`: Output of individual compilation tests\n    - `execute.*.log`: Output of individual execution tests\n    - `lsf-*.txt`: LSF scheduler job logs\n    - `slurm*.out`: SLURM scheduler job logs\n\n`rundirs`\n\n  - Contains individual GEOS-Chem Classic run directories.\n\n`scripts`\n\n  - Contains the scripts that are used for running the GEOS-Chem Classic integration tests.  These are copied from the `test/GCClassic/integration` folder of the GEOS-Chem \"science codebase\" repository.\n\n## For more information\n\nPlease see the `scripts/README.md` file for detailed instructions on running GEOS-Chem Classic integration tests.\n"
  },
  {
    "path": "test/integration/GCClassic/integrationTest.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTest.sh\n#\n# !DESCRIPTION: Runs integration tests on the various GEOS-Chem Classic\n#  run directories (interactively, or with a scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTest.sh -d root-dir -t compile|all [-e env-file] [-h] [-q]\n#\n#  Required arguments\n#    -d root-dir     : Specify the root folder for integration tests\n#    -t compile|all  : Specify the tests to run (compile-only or all)\n#\n#  Optional arguments\n#    -e env-file     : Software environment file for Harvard Cannon\n#    -h              : Display a help message\n#    -n              : Do not bootstrap missing restart file variables\n#    -q              : Run a quick set of integration tests (for testing)\n#\n#  NOTE: you can also use the following long name options:\n#\n#    --directory     (instead of -d)\n#    --env-file      (instead of -e)\n#    --help          (instead of -h)\n#    --no-bootstrap  (instead of -n)\n#    --quick         (instead of -q)\n#    --tests-to-run  (instead of -t)\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Throw error if there is a conda environment active with netCDF,\n# which can cause the code to be linked against the wrong netCDF version.\n#=============================================================================\nif [[ -n \"$CONDA_DEFAULT_ENV\" || \\\n      \"$(which nc-config 2>/dev/null)\" == *conda* ]]; then\n   echo \"ERROR: Conda netCDF detected. Run 'conda deactivate' first.\"\n   exit 1\nfi\n\n#=============================================================================\n# Initialize\n#=============================================================================\nthis=\"$(basename ${0})\"\nusage=\"Usage: ${this} -d root-dir -t compile|all [-e env-file] [-h] [-n] [-q]\"\nquick=\"NO\"\nbootStrap=\"YES\"\n\n# Current directory\nthisDir=$(pwd -P)\ncd \"${thisDir}\"\n\n# Load common functions\n. \"${thisDir}/../../shared/commonFunctionsForTests.sh\"\n\n#=============================================================================\n# Parse command-line arguments\n# See https://www.baeldung.com/linux/bash-parse-command-line-arguments\n#=============================================================================\n\n# Call Linux getopt function to specify short & long input options\n# (e.g. -d or --directory, etc).  Exit if not succesful\nvalidArgs=$(getopt --options d:e:hnqs:t: \\\n  --long directory:,env-file:,help,no-bootstrap,quick,tests-to-run: -- \"$@\")\nif [[ $? -ne 0 ]]; then\n    exit 1;\nfi\n\n# Parse arguments and set variables accordingly\n# NOTE: Convert some inputs to uppercase to facilitate comparisons\neval set -- \"${validArgs}\"\nwhile [ : ]; do\n    case \"${1}\" in\n\n        # -d or --directory specifies the root folder for tests\n        -d | --directory)\n            itRoot=\"${2}\"\n            shift 2\n            ;;\n\n\t# -e or --env-file specifies the environment file\n\t-e | --env-file)\n            envFile=\"${2}\"\n            shift 2\n            ;;\n\n\t# -h or --help prints a help message\n\t-h | --help)\n            echo \"$usage\"\n            exit 1\n            ;;\n\n\t# -n or --no-bootstrap prevents bootstrapping missing variables in\n        # restart files (i.e. do not change EFYO -> CYS in HEMCO_Config.rc)\n\t-n | --no-bootstrap)\n            bootStrap=\"NO\"\n\t    shift\n            ;;\n\n\t# -q or --quick runs a quick set of integration tests (for testing)\n\t-q | --quick)\n            quick=\"YES\"\n            shift\n            ;;\n\n\t# -t or --tests-to-run specifies the type of tests to run\n\t-t | --tests-to-run)\n            testsToRun=\"${2^^}\"\n            shift 2\n            ;;\n\t\n\t--) shift;\n            break\n            ;;\n    esac\ndone\n\n#=============================================================================\n# Sanity-check user input\n#=============================================================================\n\n# Get the site name from the node name\nsite=$(get_site_name)\n\n# Error check integration tests root path\nif [[ \"X${itRoot}\" == \"X\" ]]; then\n    echo \"ERROR: The integration test root directory has not been specified!\"\n    echo \"${usage}\"\n    exit 1\nfi\n\n# Error check the type of tests to run\nif [[ \"X${testsToRun}\" == \"X\" ]]; then\n    echo \"ERROR: You must specify the test type: compile|all\"\n    echo \"${usage}\"\n    exit 1\nfi\nif [[ \"X${testsToRun}\" != \"XCOMPILE\" && \"X${testsToRun}\" != \"XALL\" ]]; then\n    echo \"ERROR: Invalid selction for tests-to-run, must be: compile|all\"\n    echo \"${usage}\"\n    exit 1\nfi\n\n# Error checks for tests that include compile & run phases\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n    \n    # Use the default environment file for Cannon if not specified\n    if [[ \"X${site}\" == \"XCANNON\" && \"X${envFile}\" == \"X\" ]]; then\n\tenvFile=$(get_default_gcc_env_file)\n    fi\n\n    # Get the sed command that will replace the partition name\n    sedPartitionCmd=$(get_sed_partition_cmd_from_site \"${site}\")\nfi\n\n#=============================================================================\n# Create integration test directories in the root folder\n#=============================================================================\n\n# Convert integration test root folder to an absolute path\nitRoot=$(absolute_path \"${itRoot}\")\n\n# Prevent running integration tests in the source code directory tree\nif [[ \"$(absolute_path ${thisDir})\" =~ \"${itRoot}\" ]]; then\n    echo \"ERROR: You cannot run integration tests in the source code directory!\"\n    exit 1\nfi\n\n# Create GEOS-Chem run directories in the integration test root folder\n./integrationTestCreate.sh \"${itRoot}\" \"${envFile}\" \"${testsToRun}\" \"${quick}\"\nif [[ $? -ne 0 ]]; then\n   echo \"ERROR: Could not create integration test run directories!\"\n   exit 1\nfi\n\n# Navigate to the root test folder\nif [[ -d \"${itRoot}\" ]]; then\n    cd \"${itRoot}\"\nelse\n    echo \"ERROR: ${itRoot} is not a valid directory!  Exiting...\"\n    exit 1\nfi\n\n# Define local convenience variables\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nscriptsDir=\"${itRoot}/${SCRIPTS_DIR}\"\nrundirsDir=\"${itRoot}/${RUNDIRS_DIR}\"\n\n# Edit HEMCO_Config.rc files to enable or disable bootstrapping\n# (i.e. to allow missing species in restart files or not)\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n   gcc_enable_or_disable_bootstrap \"${bootStrap}\" \"${rundirsDir}\"\nfi\n   \n# Navigate to the logs directory (so all output will be placed there)\ncd \"${logsDir}\"\n\n#=============================================================================\n# Run the tests\n#=============================================================================\nif [[ \"X${testsToRun}\" == \"XCOMPILE\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation-only tests (scheduler is not used)\n    #-------------------------------------------------------------------------\n    echo \"\"\n    echo \"Compiliation tests are running...\"\n    ${scriptsDir}/integrationTestCompile.sh \"${quick}\"\n\nelif [[ \"X${testsToRun}\" == \"XALL\" && \"X${site}\" == \"XCANNON\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation & execution tests on Harvard Cannon (via SLURM)\n    #-------------------------------------------------------------------------\n\n    # Remove LSF #BSUB tags\n    sed_ie '/#BSUB -q REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -n 8/d'                   \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -W 0:30/d'                \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -o lsf-%J.txt/d'          \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \\\n      '/#BSUB -R \"rusage\\[mem=8GB\\] span\\[ptile=1\\] select\\[mem < 1TB\\]\"/d' \\\n      \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \\\n      \"/#BSUB -a 'docker(registry\\.gsc\\.wustl\\.edu\\/sleong\\/esm\\:intel\\-2021\\.1\\.2)'/d\" \\\n      \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -q REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#BSUB -n 24/d'                  \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#BSUB -W 6:00/d'                \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#BSUB -o lsf-%J.txt/d'          \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie \\\n      '/#BSUB -R \"rusage\\[mem=90GB\\] span\\[ptile=1\\] select\\[mem < 2TB\\]\"/d' \\\n      \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie \\\n      \"/#BSUB -a 'docker(registry\\.gsc\\.wustl\\.edu\\/sleong\\/esm\\:intel\\-2021\\.1\\.2)'/d\" \\\n      \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Replace \"REQUESTED_PARTITION\" with the partition name\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Submit compilation tests script\n    output=$(sbatch ${scriptsDir}/integrationTestCompile.sh \"${quick}\")\n    output=($output)\n    cmpId=${output[3]}\n\n    # Submit execution tests script as a job dependency\n    output=$(sbatch --dependency=afterok:${cmpId} ${scriptsDir}/integrationTestExecute.sh)\n    output=($output)\n    exeId=${output[3]}\n\n    # Echo SLURM jobIDs\n    echo \"\"\n    echo \"Compilation tests submitted as SLURM job ${cmpId}\"\n    echo \"Execution   tests submitted as SLURM job ${exeId}\"\n\nelif [[ \"X${testsToRun}\" == \"XALL\" && \"X${site}\" == \"XCOMPUTE1\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation and execution tests on WashU Compute1 (via LSF)\n    #-------------------------------------------------------------------------\n\n    # Remove SLURM #SBATCH tags\n    sed_ie '/#SBATCH -c 8/d'                   \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -N 1/d'                   \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -t 0-0:30/d'              \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH --mem=8000/d'             \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH --mail-type=END/d'        \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -c 24/d'                  \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -N 1/d'                   \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -t 0-6:00/d'              \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH --mem=90000/d'            \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH --mail-type=END/d'        \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Replace \"REQUESTED_PARTITION\" with the partition name\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Submit compilation tests script\n    output=$(bsub ${scriptsDir}/integrationTestCompile.sh \"${quick}\")\n    output=($output)\n    cmpId=${output[1]}\n    cmpId=${cmpId/<}\n    cmpId=${cmpId/>}\n\n    # Submit execution tests script as a job dependency\n    output=$(bsub -w \"exit(${cmpId},0)\" ${scriptsDir}/integrationTestExecute.sh)\n    output=($output)\n    exeId=${output[1]}\n    exeId=${exeId/<}\n    exeId=${exeId/>}\n\n    echo \"\"\n    echo \"Compilation tests submitted as LSF job ${cmpId}\"\n    echo \"Execution   tests submitted as LSF job ${exeId}\"\n\nelse\n\n    #-------------------------------------------------------------------------\n    # Exit with error\n    #-------------------------------------------------------------------------\n    echo \"\"\n    echo \"ERROR! Invalid choice of arguments!\"\n    echo \"${usage}\"\n    exit 1\n\nfi\n\n# Change back to this directory\ncd \"${thisDir}\"\n\n#=============================================================================\n# Cleanup and quit\n#=============================================================================\n\n# Free local variables\nunset cmpId\nunset envFile\nunset exeId\nunset itRoot\nunset logsDir\nunset quick\nunset output\nunset scheduler\nunset scriptsDir\nunset thisDir\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCClassic/integrationTestCompile.sh",
    "content": "#!/bin/bash\n\n#SBATCH -c 8\n#SBATCH -N 1\n#SBATCH -t 0-0:30\n#SBATCH -p REQUESTED_PARTITION\n#SBATCH --mem=8000\n#SBATCH --mail-type=END\n#BSUB -q REQUESTED_PARTITION\n#BSUB -n 8\n#BSUB -W 0:30\n#BSUB -R \"rusage[mem=8GB] span[ptile=1] select[mem < 1TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/esm:intel-2021.1.2)'\n#BSUB -o lsf-%J.txt\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTestCompile.sh\n#\n# !DESCRIPTION: Runs compilation tests on various GEOS-Chem Classic\n#  run directories (interactively or using a scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTestCompile.sh        # Interactive command-line execution\n#  bsub integrationTestCompile.sh     # Execution via LSF\n#  sbatch integrationTestCompile.sh   # Execution via SLURM\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Arguments\n#=============================================================================\n\n# Run a short integration test?\nquick=\"${1}\"\n\n#============================================================================\n# Global variable and function definitions\n#============================================================================\n\n# This script starts executing 1 level lower than $itRoot\nitRoot=$(cd ..; pwd)\n\n# Include global variables & functions\n. \"${itRoot}/scripts/commonFunctionsForTests.sh\"\n\n# Create local convenience variables\nbinDir=\"${itRoot}/${BIN_DIR}\"\nbuildDir=\"${itRoot}/${BUILD_DIR}\"\nenvDir=\"${itRoot}/${ENV_DIR}\"\ncodeDir=\"${itRoot}/CodeDir\"\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nscriptsDir=\"${itRoot}/${SCRIPTS_DIR}\"\nsite=$(get_site_name)\n\n# Load the user-environment and the software environment\n. ~/.bashrc > /dev/null 2>&1\n[[ \"X${site}\" == \"XCANNON\" ]] && . ${envDir}/gcclassic.env > /dev/null 2>&1\n\n# All integration tests will use debugging features\nbaseOptions=\"-DCMAKE_BUILD_TYPE=Debug -DRUNDIR='' -DINSTALLCOPY=${binDir}\"\n\n# Site-specific settings\nif [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n    #----------------------------------\n    # SLURM settings (Harvard Cannon)\n    #----------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #SBATCH -c\n    export OMP_NUM_THREADS=${SLURM_CPUS_PER_TASK}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" && \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n    #----------------------------------\n    # LSF settings (WashU Compute1)\n    #----------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #BSUB -n\n    export OMP_NUM_THREADS=${LSB_DJOB_NUMPROC}\n\nelse\n\n    #----------------------------------\n    # Interactive settings\n    #----------------------------------\n\n    # For AWS, set $OMP_NUM_THREADS to the available cores\n    kernel=$(uname -r)\n    [[ \"X${kernel}\" == \"Xaws\" ]] && export OMP_NUM_THREADS=$(nproc)\n\nfi\n\n# Sanity check: Set OMP_NUM_THREADS to 6 if it is not set\n# (this may happen when running interactively)\n[[ \"X${OMP_NUM_THREADS}\" == \"X\" ]] && export OMP_NUM_THREADS=6\n\n# Sanity check: Max out the OMP_STACKSIZE if it is not set\n[[ \"X${OMP_STACKSIZE}\" == \"X\" ]] && export OMP_STACKSIZE=500m\n\n# Only create necessary executables if $quick is \"yes\"\nif [[ \"X${quick}\" == \"XYES\" ]]; then\n    EXE_LIST=(\"default\" \"carbon\")\nelse\n    EXE_LIST=(\"${EXE_GCC_BUILD_LIST[@]}\")\nfi\n\n# Count the number of tests to be done\nnumTests=${#EXE_LIST[@]}\n\n#============================================================================\n# Initialize results logfile\n#============================================================================\n\n# Results logfile name\nresults=\"${logsDir}/results.compile.log\"\nrm -f ${results}\n\n# Print header to results log file\nprint_to_log \"${SEP_MAJOR}\"                                \"${results}\"\nprint_to_log \"GEOS-Chem Classic: Compilation Test Results\" \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nprint_submodule_head_commits \"10\" \"${codeDir}\"             \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nprint_to_log \"Using ${OMP_NUM_THREADS} OpenMP threads\"     \"${results}\"\nprint_to_log \"Number of compilation tests: ${numTests}\"    \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as SLURM job: ${SLURM_JOBID}\"  \"${results}\"\nelif  [[ \"X${LSB_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as LSF job: ${LSB_JOBID}\"      \"${results}\"\nelse\n    print_to_log \"Submitted as interactive job\"            \"${results}\"\nfi\nprint_to_log \"${SEP_MAJOR}\"                                \"${results}\"\n\n#============================================================================\n# Configure and compile code in each GEOS_Chem run directory\n#============================================================================\nprint_to_log \" \"                   \"${results}\"\nprint_to_log \"Compiliation tests:\" \"${results}\"\nprint_to_log \"${SEP_MINOR}\"        \"${results}\"\n\n# Change to the top-level build directory\ncd \"${itRoot}\"\n\n# Keep track of the number of tests that passed & failed\nlet passed=0\nlet failed=0\nlet remain=${numTests}\n\n# Loop over build directories\nfor dir in ${EXE_LIST[@]}; do\n\n    # Define build directory\n    thisBuildDir=\"${buildDir}/${dir}\"\n\n    # Define log file\n    log=\"${logsDir}/compile.${dir}.log\"\n    rm -f \"${log}\"\n\n    # Configure and build GEOS-Chem Classic source code\n    # and increment pass/fail/remain counters\n    build_model \"gcclassic\"      \"${itRoot}\" \"${thisBuildDir}\" \\\n                \"${baseOptions}\" \"${log}\"    \"${results}\"\n    if [[ $? -eq 0 ]]; then\n        let passed++\n    else\n        let failed++\n    fi\n    let remain--\ndone\n\n#============================================================================\n# Check the number of simulations that have passed\n#============================================================================\n\n# Print summary to log\nprint_to_log \" \"                                           \"${results}\"\nprint_to_log \"Summary of compilation test results:\"        \"${results}\"\nprint_to_log \"${SEP_MINOR}\"                                \"${results}\"\nprint_to_log \"Complilation tests passed:        ${passed}\" \"${results}\"\nprint_to_log \"Complilation tests failed:        ${failed}\" \"${results}\"\nprint_to_log \"Complilation tests not completed: ${remain}\" \"${results}\"\n\n# Check for success\nif [[ \"X${passed}\" == \"X${numTests}\" ]]; then\n\n    #--------------------------\n    # Successful compilation\n    #--------------------------\n    print_to_log \"\"                                        \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\" \"${results}\"\n    print_to_log \"%%%  All compilation tests passed!  %%%\" \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\" \"${results}\"\n\n    # Start the interactive execution test script upon successful finish\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Compilation tests finished!\"\n        ${scriptsDir}/integrationTestExecute.sh &\n    fi\n\nelse\n\n    #---------------------------\n    # Unsuccessful compilation\n    #---------------------------\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n       echo \"\"\n       echo \"Compilation tests failed!  Exiting...\"\n    fi\nfi\n\n#============================================================================\n# Cleanup and quit\n#============================================================================\n\n# Free local variables\nunset baseOptions\nunset binDir\nunset buildDir\nunset codeDir\nunset failed\nunset dir\nunset envDir\nunset head_gcc\nunset head_gc\nunset head_hco\nunset itRoot\nunset kernel\nunset log\nunset logsDir\nunset numTests\nunset passed\nunset remain\nunset results\nunset scriptsDir\nunset scheduler\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCClassic/integrationTestCreate.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTestCreate.sh\n#\n# !DESCRIPTION: Creates integration test run directories in a user-specified\n#  root folder, and copies a run script there.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTestCreate.sh /path/to/int/test/root /path/to/env-file [yes|no]\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Load common functions\n#=============================================================================\n\n# Current directory\nthisDir=$(pwd -P)\ncd \"${thisDir}\"\n\n# Path to the test/shared folder in source code\nsharedDir=$(realpath \"${thisDir}/../../shared\")\n\n# Source the script containing utility functions and variables\ncommonFuncs=\"${sharedDir}/commonFunctionsForTests.sh\"\n. \"${commonFuncs}\"\n\n#=============================================================================\n# Parse input arguments\n#=============================================================================\n\n# Integration test root folder\nitRoot=\"${1}\"\nif [[ \"X${itRoot}\" == \"X\" ]]; then\n    echo \"ERROR: The root-level directory for tests has not been specified!\"\n    exit 1\nfi\n\n# Environment file (for Harvard Cannon only)\nsite=$(get_site_name)\nenvFile=\"${2}\"\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n    [[ \"X${envFile}\" == \"X\" ]] && envFile=$(get_default_gcc_env_file)\n    if [[ ! -f ${envFile} ]]; then\n\techo \"ERROR: The enviroment file is not a valid file!\"\n\texit 1\n    fi\nfi\n\n# Run a compile-only integration test?\ntestsToRun=\"${3}\"\n\n# Run a short integration test?\nquick=\"${4}\"\n\n#=============================================================================\n# Global variable and function definitions\n#=============================================================================\n\n# GCClassic superproject directory (absolute paths)\ncd ../../../../../\nsuperProjectDir=$(pwd -P)\ncd ${superProjectDir}\n\n# GEOS-Chem and HEMCO submodule directories\ngeosChemDir=\"${superProjectDir}/src/GEOS-Chem\"\n\n# Echo header\nprintf \"${SEP_MAJOR}\\n\"\nprintf \"Creating GEOS-Chem Classic Integration Tests\\n\\n\"\nprint_submodule_head_commits \"10\" \"${superProjectDir}\" \"\"\nprintf \"${SEP_MAJOR}\\n\"\n\n#=============================================================================\n# Create integration test folder and subdirectories\n#=============================================================================\n\n# Create integration test root folder if it doesn't exist\nitRoot=$(absolute_path \"${itRoot}\")\n[[ ! -d \"${itRoot}\" ]] && mkdir -p \"${itRoot}\"\n\n# Create local convenience variables\nbinDir=\"${itRoot}/${BIN_DIR}\"\nbuildDir=\"${itRoot}/${BUILD_DIR}\"\nenvDir=\"${itRoot}/${ENV_DIR}\"\nexecDir=\"${itRoot}/${EXEC_DIR}\"\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nscriptsDir=\"${itRoot}/${SCRIPTS_DIR}\"\nrundirsDir=\"${itRoot}/${RUNDIRS_DIR}\"\nutilsDir=\"${itRoot}/${UTILS_DIR}\"\n\n# Get absolute path of the environment file\nenvFile=$(absolute_path \"${envFile}\")\n\n# Remove run directories in the test folder\ncleanup_files \"${itRoot}\"\n\n# Subdir for CMake builds (note: will create ${itRoot}\nprintf \"\\nCreating CMake build directories:\\n\"\nfor dir in ${EXE_GCC_BUILD_LIST[@]}; do\n    printf \" ... ${buildDir}/${dir}\\n\"\n    mkdir -p \"${buildDir}/${dir}\"\ndone\n\n# Subdir for executables\nprintf \"\\nCreating exe files directory ${binDir}\\n\"\nmkdir -p \"${binDir}\"\n\n# Subdir for env files (for Harvard Cannon only)\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n    printf \"Creating env files directory ${envDir}\\n\"\n    mkdir -p \"${envDir}\"\nfi\n\n# Subdir for log files\nprintf \"Creating logs directory      ${logsDir}\\n\"\nmkdir -p \"${logsDir}\"\n\n# Subdir for scripts\nprintf \"Creating scripts directory   ${scriptsDir}\\n\"\nmkdir -p \"${scriptsDir}\"\n\n# Subdir for run directories\nif [[ \"x${testsToRun}\" == \"xALL\" ]]; then\n    printf \"Creating rundirs directory   ${rundirsDir}\\n\"\n    mkdir -p \"${rundirsDir}\"\nfi\n\n# Create a symbolic link to the code from the Integration Test root folder\nprintf \"Linking to superproject      ${itRoot}/CodeDir\\n\"\nln -s \"${superProjectDir}\" ${itRoot}/CodeDir\n\n#=============================================================================\n# Copy files to the proper folders\n#=============================================================================\n\nprintf \"\\nCopying run scripts to:      ${scriptsDir}\\n\"\ncp -f ${thisDir}/integration*.sh     ${scriptsDir}\ncp -f ${commonFuncs}                 ${scriptsDir}\ncp -f ${thisDir}/README.md           ${scriptsDir}\ncp -f ${thisDir}/README.testroot.md  ${itRoot}/README.md\n\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n\n    # Copy Cannon environment file\n    cp -f  ${envFile} ${envDir}/gcclassic.env\n\n    # Copy Cannon utility scripts\n    printf \"Copying utility scripts to   ${utilsDir}\\n\"\n    cp -fR ${sharedDir}/utils/cannon/integrationTest  ${utilsDir}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" ]]; then\n\n    # Copy Compute1 utility scripts\n    printf \"Copying utility scripts to   ${utilsDir}\\n\"\n    cp -fR ${sharedDir}/utils/compute1/integrationTest  ${utilsDir}\n\n    # Force scripts to be executable (Compute1 resets permissions)\n    chmod 755 -R ${scriptsDir}\n    chmod 755 -R ${utilsDir}\n\nfi\n\n# Log file with echoback from rundir creation\nlog=\"${logsDir}/createIntegrationTests.log\"\n\n#=============================================================================\n# Don't create run directories for compile-only tests.\n#=============================================================================\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n\n    # Switch to folder where rundir creation scripts live\n    cd \"${geosChemDir}/run/GCClassic\"\n\n    #=========================================================================\n    # Create individual run directories: 4x5 - MERRA2 - 72L\n    #=========================================================================\n    printf \"\\nCreating new run directories:\\n\"\n\n    # 4x5 merra2 aerosol\n    create_rundir \"2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 carbon\n    create_rundir \"3\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 carbon CH4 only\n    create_rundir \"3\\n2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 carbon CO2 only\n    create_rundir \"3\\n3\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 carbon CO only\n    create_rundir \"3\\n4\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 carbon OCS only\n    create_rundir \"3\\n5\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem\n    create_rundir \"1\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # Exit after creating a couple of rundirsDirs if $quick is \"yes\"\n    if [[ \"X${quick}\" == \"XYES\" ]]; then\n        cd ${thisDir}\n        exit 0\n    fi\n\n    # 4x5 merra2 fullchem_LuoWd\n    dir=\"gc_4x5_merra2_fullchem_LuoWd\"\n    create_rundir \"1\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n${dir}\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_aciduptake\n    create_rundir \"1\\n5\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_APM\n    create_rundir \"1\\n7\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_benchmark\n    create_rundir \"1\\n2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_complexSOA\n    create_rundir \"1\\n3\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_complexSOA_SVPOA\n    create_rundir \"1\\n3\\n2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_marinePOA\n    create_rundir \"1\\n4\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_RRTMG\n    create_rundir \"1\\n8\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_TOMAS15_47L\n    create_rundir \"1\\n6\\n1\\n1\\n1\\n2\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 Hg\n    create_rundir \"4\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 POPs_BaP\n    create_rundir \"5\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 tagO3\n    create_rundir \"6\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 TransportTracers\n    create_rundir \"7\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 TransportTracers_LuoWd\n    dir=\"gc_4x5_merra2_TransportTracers_LuoWd\"\n    create_rundir \"7\\n1\\n1\\n1\\n${rundirsDir}\\n${dir}\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 metals\n    create_rundir \"8\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    #=========================================================================\n    # Create individual run directories: 4x5 and 47L (MERRA2)\n    #=========================================================================\n\n    # 4x5 merra2 fullchem_47L\n    create_rundir \"1\\n1\\n1\\n1\\n2\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    #=========================================================================\n    # GCAP 2.0 simulations\n    #=========================================================================\n\n    # 2x2.5 ModelE2.1 fullchem (scenario SSP2-4.5, option 6)\n    create_rundir \"1\\n1\\n4\\n6\\n2\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    #=========================================================================\n    # Nested-grid simulations\n    #=========================================================================\n\n    # 05x0625_merra2_fullchem_47L_na\n    create_rundir \"1\\n1\\n1\\n3\\n4\\n2\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    #=========================================================================\n    # Simulation with all diagnostics on\n    #=========================================================================\n\n    # Configuration files\n    allDiagsDir=\"gc_4x5_merra2_fullchem_alldiags\"\n    extDataDir=$(grep \"GC_DATA_ROOT\" \"${HOME}/.geoschem/config\")\n    extDataDir=${extDataDir/export GC_DATA_ROOT\\=/}\n    pfDat=\"${geosChemDir}/test/shared/alldiags/Planeflight.dat.20190701\"\n    obsPk=\"${extDataDir}/Data_for_Int_Tests/obspack_input_for_testing.20190701.nc\"\n    # Copy the fullchem_benchmark rundir to fullchem_alldiags\n    echo \"... ${itRoot}/rundirs/${allDiagsDir}\"\n    cd \"${rundirsDir}\"\n    cp -r \"gc_4x5_merra2_fullchem_benchmark\" \"${allDiagsDir}\"\n    cd \"${allDiagsDir}\"\n\n    # Turn on all collections except RRTMG and Tomas collections (which\n    # Make sure to activate these in the RRTMG and TOMAS integration tests.\n    sed_ie \"s|#'|'|\"               \"HISTORY.rc\"\n    sed_ie \"s|'RRTMG'|#'RRTMG'|\"   \"HISTORY.rc\"\n    sed_ie \"s|'Tomas'|#'Tomas'|\"   \"HISTORY.rc\"\n    sed_ie \"s|'DynHeat|#'DynHeat|\" \"HISTORY.rc\"\n\n    # Disable the KppTime diagnostic (time spent in integrator) as\n    # this will vary due to local conditions on the cluster/node\n    sed_ie \"s|'KppTime|#'KppTime|\" \"HISTORY.rc\"\n\n    # Activate the planeflight diagnostic\n    cp -r \"${pfDat}\" .\n    toggle_geoschem_config_option \"geoschem_config.yml\" \"planeflight\" \"true \"\n\n    # Activate the ObsPack diagnostic\n    cp -r \"${obsPk}\" .\n    toggle_geoschem_config_option \"geoschem_config.yml\" \"obspack\"     \"true \"\n\n    # Switch back to the rundirs folder\n    cd \"${rundirsDir}\"\n\n    #=========================================================================\n    # Simulation running across the 00 UTC boundary\n    #==================q======================================================\n    \n    # Create a run directory for this test by copying the carbon_CH4 rundir\n    straddleDir=\"gc_4x5_merra2_carbon_CH4_straddle_00z\"\n    echo \"... ${itRoot}/rundirs/${straddleDir}\"\n    cp -r \"gc_4x5_merra2_carbon_CH4\" \"${straddleDir}\"\n    cd \"${straddleDir}\"\n\n    # Update config files (start at 18 UTC, end at 01 UTC next day)\n    sed_ie \"s|20190101\\, 000000|20190101\\, 180000|\" \"geoschem_config.yml\"\n    sed_ie \"s|20190101\\, 010000|20190102\\, 010000|\" \"geoschem_config.yml\"\n    sed_ie \"s|00000000 010000|00000000 070000|\"     \"HISTORY.rc\"\n    sed_ie \"s|EFYO|EY|\"                             \"HEMCO_Config.rc\"\n\n    # Switch back to the rundirs folder\n    cd \"${rundirsDir}\"\n\n    #=========================================================================\n    # Create rundirs for dry-run tests\n    #==========================================================================\n\n    # Create dryrun directories by direct copy\n    dirs=( \"gc_4x5_merra2_aerosol\"              \\\n           \"gc_4x5_merra2_carbon\"               \\\n\t   \"gc_4x5_merra2_fullchem\"             \\\n           \"gc_4x5_merra2_fullchem_APM\"         \\\n           \"gc_4x5_merra2_fullchem_benchmark\"   \\\n           \"gc_4x5_merra2_fullchem_RRTMG\"       \\\n           \"gc_4x5_merra2_Hg\"                   \\\n           \"gc_4x5_merra2_metals\"               \\\n           \"gc_4x5_merra2_tagO3\"                \\\n           \"gc_4x5_merra2_TransportTracers\"     \\\n           \"gc_4x5_47L_merra2_fullchem_TOMAS15\" )\n\n    # Create dryrun directories by direct copy\n    for dir in ${dirs[@]}; do\n\techo \"... ${itRoot}/rundirs/${dir}_dryrun\"\n\tcp -r \"${dir}\" \"${dir}_dryrun\"\n    done\n\n    # Switch back to the present directory\n    cd \"${thisDir}\"\nfi\n\n#=============================================================================\n# Cleanup and quit\n#=============================================================================\n\n# Free local variables\nunset allDiagsDir\nunset binDir\nunset buildDir\nunset commonFuncs\nunset dir\nunset envDir\nunset extDataDir\nunset geosChemDir\nunset itRoot\nunset log\nunset logsDir\nunset pfDat\nunset obsPk\nunset rundirsDir\nunset superProjectDir\nunset scriptsDir\nunset sharedDir\nunset straddleDir\nunset thisDir\nunset utilsDir\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCClassic/integrationTestExecute.sh",
    "content": "#!/bin/bash\n\n#SBATCH -c 24\n#SBATCH -N 1\n#SBATCH -t 0-6:00\n#SBATCH -p REQUESTED_PARTITION\n#SBATCH --mem=120000\n#SBATCH --mail-type=END\n#BSUB -q REQUESTED_PARTITION\n#BSUB -n 24\n#BSUB -W 6:00\n#BSUB -R \"rusage[mem=90GB] span[ptile=1] select[mem < 2TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/esm:intel-2021.1.2)'\n#BSUB -o lsf-%J.txt\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTestExecute.sh\n#\n# !DESCRIPTION: Runs execution tests on various GEOS-Chem Classic\n#  run directories (using the SLURM scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTestExecute.sh        # Interactive command-line execution\n#  bsub integrationTestExecute.sh     # Execution via LSF\n#  sbatch integrationTestExecute.sh   # Execution via SLURM\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#============================================================================\n# Global variable and function definitions\n#============================================================================\n\n# This script starts executing 1 level lower than $itRoot\nitRoot=$(cd ..; pwd)\n\n# Include global variables & functions\n. \"${itRoot}/scripts/commonFunctionsForTests.sh\"\n\n# Create local convenience variables\nbinDir=\"${itRoot}/${BIN_DIR}\"\nenvDir=\"${itRoot}/${ENV_DIR}\"\ncodeDir=\"${itRoot}/CodeDir\"\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nrundirsDir=\"${itRoot}/${RUNDIRS_DIR}\"\nsite=$(get_site_name)\n\n# Load the environment and the software environment\n. ~/.bashrc > /dev/null 2>&1\n[[ \"X${site}\" == \"XCANNON\" ]] && . ${envDir}/gcclassic.env > /dev/null 2>&1\n\n# Site-specific settings\nif [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n    #----------------------------------\n    # SLURM settings (Harvard Cannon)\n    #----------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #SBATCH -c\n    export OMP_NUM_THREADS=${SLURM_CPUS_PER_TASK}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" && \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n    #---------------------------------\n    # LSF settings (WashU Compute1)\n    #---------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #BSUB -n\n    export OMP_NUM_THREADS=${LSB_DJOB_NUMPROC}\n\nelse\n\n    #---------------------------------\n    # Interactive settings\n    #---------------------------------\n    echo \"\"\n    echo \"Execution tests running...\"\n\n    # For AWS, set $OMP_NUM_THREADS to the available cores\n    kernel=$(uname -r)\n    [[ \"X${kernel}\" == \"Xaws\" ]] && export OMP_NUM_THREADS=$(nproc)\n\nfi\n\n# Sanity check: Set OMP_NUM_THREADS to 8 if it is not set\n# (this may happen when running interactively)\n[[ \"X${OMP_NUM_THREADS}\" == \"X\" ]] && export OMP_NUM_THREADS=8\n\n# Sanity check: Max out the OMP_STACKSIZE if it is not set\n[[ \"X${OMP_STACKSIZE}\" == \"X\" ]] && export OMP_STACKSIZE=500m\n\n# Count the number of tests to be run (same as the # of run directories)\nnumTests=$(count_rundirs \"${rundirsDir}\")\n\n#============================================================================\n# Initialize results logfile\n#============================================================================\n\n# Results logfile name\nresults=\"${logsDir}/results.execute.log\"\nrm -f \"${results}\"\n\n# Print header to results log file\nprint_to_log \"${SEP_MAJOR}\"                                \"${results}\"\nprint_to_log \"GEOS-Chem Classic: Execution Test Results\"   \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nprint_submodule_head_commits \"10\" \"${codeDir}\"             \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nprint_to_log \"Using ${OMP_NUM_THREADS} OpenMP threads\"     \"${results}\"\nprint_to_log \"Number of execution tests: ${numTests}\"      \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as SLURM job: ${SLURM_JOBID}\"  \"${results}\"\nelif  [[ \"X${LSB_JOBID}\" == \"XCOMPUTE1\" ]]; then\n    print_to_log \"Submitted as LSF job: ${LSB_JOBID}\"      \"${results}\"\nelse\n    print_to_log \"Submitted as interactive job\"            \"${results}\"\nfi\nprint_to_log \"${SEP_MAJOR}\"                                \"${results}\"\n\n#============================================================================\n# Run the GEOS-Chem executable in each GEOS-Chem run directory\n#============================================================================\nprint_to_log \" \"                 \"${results}\"\nprint_to_log \"Execution tests:\"  \"${results}\"\nprint_to_log \"${SEP_MINOR}\"      \"${results}\"\n\n# Keep track of the number of tests that passed & failed\nlet passed=0\nlet failed=0\nlet remain=${numTests}\n\n# Navigate to the directory containing individiual run directories\ncd \"${rundirsDir}\"\n\n# Loop over rundirs and run GEOS-Chem\nfor runDir in *; do\n\n    # Expand rundir to absolute path\n    runAbsPath=\"${rundirsDir}/${runDir}\"\n\n    # Do the following if for only valid GEOS-Chem run dirs\n    expr=$(is_valid_rundir \"${runAbsPath}\")\n    if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n\n        # Define log file\n        log=\"${logsDir}/execute.${runDir}.log\"\n        rm -f \"${log}\"\n\n        # Messages for execution pass & fail\n        passMsg=\"$runDir${FILL:${#runDir}}.....${EXE_PASS_STR}\"\n        failMsg=\"$runDir${FILL:${#runDir}}.....${EXE_FAIL_STR}\"\n\n        # Get the executable file corresponding to this run directory\n        exeFile=$(exe_name \"gcclassic\" \"${runDir}\")\n\n        # Test if the executable exists\n        if [[ -f \"${binDir}/${exeFile}\" ]]; then\n\n            #----------------------------------------------------------------\n            # If the executable file exists, we can do the test\n            #----------------------------------------------------------------\n\n            # Change to this run directory\n            cd \"${runAbsPath}\"\n\n            # Copy the executable file here\n            cp -f \"${binDir}/${exeFile}\" .\n\n            # Update to make sure the run directory is executable on Compute1\n            if [[ \"X${site}\" == \"XCOMPUTE1\" ]]; then\n                chmod 755 -R \"${runAbsPath}\"\n            fi\n\n            # Remove any leftover files in the run dir\n            ./cleanRunDir.sh --no-interactive >> \"${log}\" 2>&1\n\n\t    # Add --dryrun option for rundirs with ending with \"_dryrun\"\n\t    [[ \"${runAbsPath}\" =~ \"_dryrun\" ]] && dr=\"--dryrun\" || dr=\"\"\n\n            # Run the code if the executable is present.  Then update the\n            # pass/fail counters and write a message to the results log file.\n            if [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\t\tsrun -c ${OMP_NUM_THREADS} ./${exeFile} ${dr} >> \"${log}\" 2>&1\n            else\n                ./${exeFile} ${dr} >> \"${log}\" 2>&1\n            fi\n\n            # Determine if the job succeeded or failed\n            if [[ $? -eq 0 ]]; then\n                let passed++\n                print_to_log \"${passMsg}\" \"${results}\"\n            else\n                let failed++\n                print_to_log \"${failMsg}\" \"${results}\"\n            fi\n\n            # Navigate back to the folder containing run directories\n            cd \"${rundirsDir}\"\n\n        else\n\n            #----------------------------------------------------------------\n            # If the executable is missing, update the \"fail\" counter\n            # and write the \"failed\" message to the results log file.\n            #----------------------------------------------------------------\n            let failed++\n            if [[ \"x${results}\" != \"x\" ]]; then\n                print_to_log \"${failMsg}\" \"${results}\"\n            fi\n        fi\n\n        # Decrement the count of remaining tests\n        let remain--\n    fi\ndone\n\n#============================================================================\n# Check the number of simulations that have passed\n#============================================================================\n\n# Print summary to log\nprint_to_log \" \"                                            \"${results}\"\nprint_to_log \"Summary of test results:\"                     \"${results}\"\nprint_to_log \"${SEP_MINOR}\"                                 \"${results}\"\nprint_to_log \"Execution tests passed: ${passed}\"            \"${results}\"\nprint_to_log \"Execution tests failed: ${failed}\"            \"${results}\"\nprint_to_log \"Execution tests not yet completed: ${remain}\" \"${results}\"\n\n# Check for success\nif [[ \"X${passed}\" == \"X${numTests}\" ]]; then\n\n    #--------------------------\n    # Successful execution\n    #--------------------------\n    print_to_log \"\"                                         \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\"    \"${results}\"\n    print_to_log \"%%%  All execution tests passed!  %%%\"    \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\"    \"${results}\"\n\n    # Print success (if interactive)\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Execution tests finished!\"\n    fi\n\nelse\n\n    #--------------------------\n    # Unsuccessful execution\n    #--------------------------\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"X${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Execution tests failed!  Exiting ...\"\n    fi\nfi\n\n#============================================================================\n# Cleanup and quit\n#============================================================================\n\n# Free local variables\nunset absRunPath\nunset binDir\nunset codeDir\nunset envDir\nunset exeFile\nunset failed\nunset failmsg\nunset head_gcc\nunset head_gc\nunset head_hco\nunset itRoot\nunset log\nunset logsDir\nunset numTests\nunset passed\nunset passMsg\nunset remain\nunset results\nunset rundirsDir\nunset scheduler\n\n# Free imported global variables\nunset FILL\nunset LINE\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCHP/README.md",
    "content": "# README for GCHP Integration Tests\n\n## Overview:\n\nThis directory contains:\n\n1. Scripts to submit automated GCHP integration tests, which will test the following processes:\n\n    - GCHP run directory creation\n    - GCHP code configuration and compilation\n    - GCHP execution\n\nIntegration tests are short GCHP simulations.  Executables are compiled with all debugging options.  This should reveal any coding errors or run-directory configuration errors.\n\n## Files\n\n### Integration Test Scripts\n\n- `integrationTest.sh`\n  - Driver script to run GCHP integration tests\n- `integrationTestCreate.sh`\n  - Script to create GCHP run directories for integration tests\n- `integrationTestCompile.sh`\n  - Script to compile GCHP executables\n- `integrationTestExecute.sh`\n   - Script to run GCHP integration test simulations\n\n### Shared Scripts\n\n- `commonFunctionsForTests.sh`\n  - Link to `../../shared/commonFunctionsForTests.sh`, which contains global variables and functions for the integration and parallelization tests.\n\n## Before you begin\n\nPlease take a moment to:\n\n1. Verify that the `GCHP` superproject is checked out to the correct branch and commit.\n2. Run `git submodule update --init --recursive` in order to update all submodules.\n3. Verify that the `HEAD` commit of the `GEOS-Chem` submodule contains the code that you wish to test. (If not, then check out the proper branch.)\n4. Verify that the `HEAD` commit of the `HEMCO` submodule contains the code that you wish to test. (If not, then check out the proper branch.)\n\n## Command-line Arguments\n\nThe integration test scripts accept the following command-line arguments:\n\n### Required arguments\n\n`-d /path/to/test/dir` specifies the root directory where integration test subdirectories and scripts will be placed.\n\n`-t compile|all` specifies the type of test to be run:\n  - `compile` will run compilation-only tests.\n  - `all` will run compilation and execution tests.\n\n### Optional arguments\n\n`-e /path/to/env-file` Specifies the file that is used to initialize the software environment on the Harvard Cannon cluster.  If omitted, a default file will be selected.\n\n`-h` displays a help screeen.\n\n`-q` will run only a couple of integration tests instead of the full suite.  This is intended for development and debugging.  You will normally not need to use this option.\n\nYou can also use long names for the option switches:\n- `--directory` instead of `-d`\n- `--env-file` instead of `-e`\n- `--help` instead of `h`\n- `--no-bootstrap` instead of `n`\n- `--tests-to-run` instead of `-t`\n\n## Examples\n\n### Request compile-only tests on Cannon or Compute1\n```console\n$ cd /path/to/GCHP     # Path to GCClassic superproject directory\n$ cd test/integration/GCHP\n$ ./integrationTest.sh -d /path/to/test/dir -t compile\n```\n\n### Request compile and execution tests (Harvard Cannon)\n```console\n$ cd /path/to/GCHP     # Path to GCClassic superproject directory\n$ cd test/integration/GCHP\n$ ./integrationTest.sh -d /path/to/test/dir -t all -e /path/to/env-file\n```\nNOTE: If you omit the `-e /path/to/env/file` a default environment file will be used to load GNU Compiler Collection 10 and related libraries.\n\n### Request compile & execution tests (WashU compute1)\n```console\n$ cd /path/to/GCHP     # Path to GCClassic superproject directory\n$ cd test/integration/GCHP\n$ ./integrationTest.sh -d /path/to/test/dir -t all\n```\nNOTE: No environment file is needed.  On Compute1 the tests will run inside a software container with all necessary libraries included.\n"
  },
  {
    "path": "test/integration/GCHP/README.testroot.md",
    "content": "# README for GCHP Integration Tests\n\n## Directories\n\nComponents of GCHP integration tests have been separated into these directories:\n\n`bin`\n\n  - Contains GCHP executable files.\n\n`build`\n\n  - Directories for building GCHP executables.\n\n`CodeDir`\n\n  - Symbolic link to the GCHP superproject directory.\n\n`env`\n\n  - Contains an environment file that loads the software libraries needed to run GCHP.\n\n`logs`\n\n  - Contains log files from the integration tests.\n\n    - `results.compile.log`: Results of GCHP compilation tests.\n    - `results.execute.log`: Results of GCHP Classic execution tests.\n    - `compile.*.log`: Output of individual compilation tests\n    - `execute.*.log`: Output of individual execution tests\n    - `lsf-*.txt`: LSF scheduler job logs\n    - `slurm*.out`: SLURM scheduler job logs\n\n`rundirs`\n\n  - Contains individual GCHP run directories.\n\n`scripts`\n\n  - Contains the scripts that are used for running the GCHP integration tests.  These are copied from the `test/GCHP/integration` folder of the GEOS-Chem \"science codebase\" repository.\n\n## For more information\n\nPlease see the `scripts/README.md` file for detailed instructions on running GCHP integration tests.\n"
  },
  {
    "path": "test/integration/GCHP/integrationTest.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTest.sh\n#\n# !DESCRIPTION: Runs integration tests on the various GCHP run directories\n# (interactively, or with a scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTest.sh -d root-dir -t compile|all [-e env-file] [-h] [-q]\n#\n#  Required arguments\n#    -d root-dir     : Specify the root folder for integration tests\n#    -t compile|all  : Specify the tests to run (compile-only or all)\n#\n#  Optional arguments\n#    -e env-file     : Software environment file for Harvard Cannon\n#    -h              : Display a help message\n#    -n              : Do not bootstrap missing restart file variables\n#    -q              : Run a quick set of integration tests (for testing)\n#\n#  NOTE: you can also use the following long name options:\n#\n#    --directory     (instead of -d)\n#    --env-file      (instead of -e)\n#    --help          (instead of -h)\n#    --no-bootstrap  (instead of -n)\n#    --quick         (instead of -q)\n#    --tests-to-run  (instead of -t)\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Throw error if there is a conda environment active with netCDF,\n# which can cause the code to be linked against the wrong netCDF version.\n#=============================================================================\nif [[ -n \"$CONDA_DEFAULT_ENV\" || \\\n      \"$(which nc-config 2>/dev/null)\" == *conda* ]]; then\n   echo \"ERROR: Conda netCDF detected. Run 'conda deactivate' first.\"\n   exit 1\nfi\n\n#=============================================================================\n# Initialize\n#=============================================================================\nthis=\"$(basename ${0})\"\nusage=\"Usage: ${this} -d root-dir -t compile|all [-e env-file] [-h] [-n] [-q]\"\nquick=\"NO\"\nbootStrap=\"YES\"\n\n# Current directory\nthisDir=$(pwd -P)\ncd \"${thisDir}\"\n\n# Load common functions\n. \"${thisDir}/../../shared/commonFunctionsForTests.sh\"\n\n#=============================================================================\n# Parse command-line arguments\n# See https://www.baeldung.com/linux/bash-parse-command-line-arguments\n#=============================================================================\n\n# Call Linux getopt function to specify short & long input options\n# (e.g. -d or --directory, etc).  Exit if not succesful\nvalidArgs=$(getopt --options d:e:hnqt: \\\n  --long directory:,env-file:,help,no-bootstrap,quick,tests-to-run: -- \"$@\")\nif [[ $? -ne 0 ]]; then\n    exit 1;\nfi\n\n# Parse arguments and set variables accordingly\n# NOTE: Convert some inputs to uppercase to facilitate comparisons\neval set -- \"${validArgs}\"\nwhile [ : ]; do\n    case \"${1}\" in\n\n        # -d or --directory specifies the root folder for tests\n        -d | --directory)\n            itRoot=\"${2}\"\n            shift 2\n            ;;\n\n\t# -e or --env-file specifies the environment file\n\t-e | --env-file)\n            envFile=\"${2}\"\n            shift 2\n            ;;\n\n\t# -h or --help prints a help message\n\t-h | --help)\n            echo \"$usage\"\n            exit 1\n            ;;\n\n\t# -n or --no-bootstrap prevents bootstrapping missing variables in\n        # restart files (i.e. do not change EFYO -> CYS in HEMCO_Config.rc)\n\t-n | --no-bootstrap)\n            bootStrap=\"NO\"\n\t    shift\n            ;;\n\n\t# -q or --quick runs a quick set of integration tests (for testing)\n\t-q | --quick)\n            quick=\"YES\"\n            shift\n            ;;\n\n\t# -t or --tests-to-run specifies the type of tests to run\n\t-t | --tests-to-run)\n            testsToRun=\"${2^^}\"\n            shift 2\n            ;;\n\t\n\t--) shift;\n            break\n            ;;\n    esac\ndone\n#=============================================================================\n# Sanity-check user input\n#=============================================================================\n\n# Get the site name from the node name\nsite=$(get_site_name)\n\n# Error check integration tests root path\nif [[ \"X${itRoot}\" == \"X\" ]]; then\n    echo \"ERROR: The integration test root directory has not been specified!\"\n    echo \"${usage}\"\n    exit 1\nfi\n\n# Error check the type of tests to run\nif [[ \"X${testsToRun}\" == \"X\" ]]; then\n    echo \"ERROR: You must specify the test type: compile|all\"\n    echo \"${usage}\"\n    exit 1\nfi\nif [[ \"X${testsToRun}\" != \"XCOMPILE\" && \"X${testsToRun}\" != \"XALL\" ]]; then\n    echo \"ERROR: Invalid selction for tests-to-run, must be: compile|all\"\n    echo \"${usage}\"\n    exit 1\nfi\n\n# Error checks for tests that include compile & run phases\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n    \n    # Use the default environment file for Cannon if not specified\n    if [[ \"X${site}\" == \"XCANNON\" && \"X${envFile}\" == \"X\" ]]; then\n\tenvFile=$(get_default_gchp_env_file)\n    fi\n\n    # Get the sed command that will replace the partition name\n    sedPartitionCmd=$(get_sed_partition_cmd_from_site \"${site}\")\nfi\n\n#=============================================================================\n# Create integration test directories in the root folder\n#=============================================================================\n\n# Convert integration test root folder to an absolute path\nitRoot=$(absolute_path \"${itRoot}\")\n\n# Prevent running integration tests in the source code directory tree\nif [[ \"$(absolute_path ${thisDir})\" =~ \"${itRoot}\" ]]; then\n    echo \"ERROR: You cannot run integration tests in the source code directory!\"\n    exit 1\nfi\n# Create GEOS-Chem run directories in the integration test root folder\n./integrationTestCreate.sh \"${itRoot}\" \"${envFile}\" \"${testsToRun}\" \"${quick}\"\nif [[ $? -ne 0 ]]; then\n   echo \"ERROR: Could not create integration test run directories!\"\n   exit 1\nfi\n\n# Navigate to the root test folder\nif [[ -d \"${itRoot}\" ]]; then\n    cd \"${itRoot}\"\nelse\n    echo \"ERROR: ${itRoot} is not a valid directory!  Exiting...\"\n    exit 1\nfi\n\n# Define local convenience variables\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nscriptsDir=\"${itRoot}/${SCRIPTS_DIR}\"\nrundirsDir=\"${itRoot}/${RUNDIRS_DIR}\"\n\n# Edit setCommonRunSettings.sh scripts to enable or disable bootstrapping\n# (i.e. to allow missing species in restart files or not)\nif [[ \"x${testsToRun}\" == \"xALL\" ]]; then\n   gchp_enable_or_disable_bootstrap \"${bootStrap}\" \"${rundirsDir}\"\nfi\n\n# Navigate to the logs directory (so all output will be placed there)\ncd \"${logsDir}\"\n\n#=============================================================================\n# Run the tests\n#=============================================================================\nif [[ \"x${testsToRun}\" == \"xCOMPILE\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation-only tests (scheduler is not used)\n    #-------------------------------------------------------------------------\n    echo \"\"\n    echo \"Compiliation tests are running...\"\n    ${scriptsDir}/integrationTestCompile.sh \"${quick}\"\n    \nelif [[ \"x${testsToRun}\" == \"xALL\" && \"x${site}\" == \"xCANNON\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation & execution tests on Harvard Cannon (via SLURM)\n    #-------------------------------------------------------------------------\n\n    # Remove LSF #BSUB tags\n    sed_ie '/#BSUB -q REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -n 8/d'                   \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -W 2:30/d'                \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -o lsf-%J.txt/d'          \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \\\n\t'/#BSUB -R \"rusage\\[mem=8GB\\] span\\[ptile=1\\] select\\[mem < 1TB\\]\"/d' \\\n\t\"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \\\n\t\"/#BSUB -a 'docker(registry\\.gsc\\.wustl\\.edu\\/sleong\\/esm\\:intel\\-2021\\.1\\.2)'/d\" \\\n\t\"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#BSUB -q REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#BSUB -n 24/d'                  \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#BSUB -W 5:00/d'                \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#BSUB -o lsf-%J.txt/d'          \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie \\\n\t'/#BSUB -R \"rusage\\[mem=90GB\\] span\\[ptile=1\\] select\\[mem < 2TB\\]\"/d' \\\n\t\"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie \\\n\t\"/#BSUB -a 'docker(registry\\.gsc\\.wustl\\.edu\\/sleong\\/esm\\:intel\\-2021\\.1\\.2)'/d\" \\\n\t\"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Replace \"REQUESTED_PARTITION\" with the partition name\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Submit compilation tests script\n    output=$(sbatch ${scriptsDir}/integrationTestCompile.sh \"${quick}\")\n    output=($output)\n    cmpId=${output[3]}\n    \n    # Submit execution tests script as a job dependency\n    output=$(sbatch --dependency=afterok:${cmpId} ${scriptsDir}/integrationTestExecute.sh)\n    output=($output)\n    exeId=${output[3]}\n\n    echo \"\"\n    echo \"Compilation tests submitted as SLURM job ${cmpId}\"\n    echo \"Execution   tests submitted as SLURM job ${exeId}\"\n\nelif [[ \"x${testsToRun}\" == \"xALL\" && \"x${site}\" == \"xCOMPUTE1\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation and execution tests on WashU Compute1 (via LSF)\n    #-------------------------------------------------------------------------\n    \n    # Remove SLURM #SBATCH tags\n    sed_ie '/#SBATCH -c 8/d'                   \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -N 1/d'                   \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -t 0-2:30/d'              \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH --mem=8000/d'             \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH --mail-type=END/d'        \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie '/#SBATCH -n 24/d'                  \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -N 1/d'                   \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -c 1/d'                  \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -t 0-5:00/d'              \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH --mem=90000/d'            \"${scriptsDir}/integrationTestExecute.sh\"\n    sed_ie '/#SBATCH --mail-type=END/d'        \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Replace \"REQUESTED_PARTITION\" with the partition name\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestCompile.sh\"\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/integrationTestExecute.sh\"\n\n    # Submit compilation tests script\n    output=$(bsub ${scriptsDir}/integrationTestCompile.sh \"${quick}\")\n    output=($output)\n    cmpId=${output[1]}\n    cmpId=${cmpId/<}\n    cmpId=${cmpId/>}\n\n    # Submit execution tests script as a job dependency\n    output=$(bsub -w \"exit(${cmpId},0)\" ${scriptsDir}/integrationTestExecute.sh)\n    output=($output)\n    exeId=${output[1]}\n    exeId=${exeId/<}\n    exeId=${exeId/>}\n\n    echo \"\"\n    echo \"Compilation tests submitted as LSF job ${cmpId}\"\n    echo \"Execution   tests submitted as LSF job ${exeId}\"\n\nelse\n\n    #-------------------------------------------------------------------------\n    # Exit with error\n    #-------------------------------------------------------------------------\n    echo \"\"\n    echo \"ERROR! Invalid choice of arguments!\"\n    echo \"${usage}\"\n    exit 1\n\nfi\n\n# Change back to this directory\ncd \"${thisDir}\"\n\n#=============================================================================\n# Cleanup and quit\n#=============================================================================\n\n# Free local variables\nunset cmpId\nunset envFile\nunset exeId\nunset itRoot\nunset logsDir\nunset quick\nunset output\nunset scheduler\nunset scriptsDir\nunset thisDir\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCHP/integrationTestCompile.sh",
    "content": "#!/bin/bash\n\n#SBATCH -c 8\n#SBATCH -N 1\n#SBATCH -t 0-2:30\n#SBATCH -p REQUESTED_PARTITION\n#SBATCH --mem=6000\n#SBATCH --mail-type=END\n#BSUB -q REQUESTED_PARTITION\n#BSUB -n 8\n#BSUB -W 2:30\n#BSUB -R \"rusage[mem=8GB] span[ptile=1] select[mem < 1TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/esm:intel-2021.1.2)'\n#BSUB -o lsf-%J.txt\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTestCompile.sh\n#\n# !DESCRIPTION: Runs compilation tests on various GCHP\n#  run directories (using the SLURM scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTestCompile.sh        # Interactive command-line execution\n#  bsub integrationTestCompile.sh     # Execution via LSF\n#  sbatch integrationTestCompile.sh   # Execution via SLURM\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Arguments\n#=============================================================================\n\n# Run a short integration test?\nquick=\"${1}\"\n\n#============================================================================\n# Global variable and function definitions\n#============================================================================\n\n# This script starts executing 1 level lower than $itRoot\nitRoot=$(cd ..; pwd)\n\n# Include global variables & functions\n. \"${itRoot}/scripts/commonFunctionsForTests.sh\"\n\n# Create local convenience variables\nbinDir=\"${itRoot}/${BIN_DIR}\"\nbuildDir=\"${itRoot}/${BUILD_DIR}\"\nenvDir=\"${itRoot}/${ENV_DIR}\"\ncodeDir=\"${itRoot}/CodeDir\"\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nscriptsDir=\"${itRoot}/${SCRIPTS_DIR}\"\nsite=$(get_site_name)\n\n# Load the user-environment and the software environment\n. ~/.bashrc > /dev/null 2>&1\n[[ \"X${site}\" == \"XCANNON\" ]] && . ${envDir}/gchp.env > /dev/null 2>&1\n\n# All integration tests will use debugging features\nbaseOptions=\"-DCMAKE_BUILD_TYPE=Debug -DRUNDIR='' -DINSTALLCOPY=${binDir}\"\n\n# Site-specific settings\nif [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n    #----------------------------------\n    # SLURM settings (Harvard Cannon)\n    #----------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #SBATCH -c\n    export OMP_NUM_THREADS=${SLURM_CPUS_PER_TASK}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" && \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n    #----------------------------------\n    # LSF settings (WashU Compute1)\n    #----------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #BSUB -n\n    export OMP_NUM_THREADS=${LSB_DJOB_NUMPROC}\n\nelse\n\n    #----------------------------------\n    # Interactive settings\n    #----------------------------------\n\n    # For AWS, set $OMP_NUM_THREADS to the available cores\n    kernel=$(uname -r)\n    [[ \"X${kernel}\" == \"Xaws\" ]] && export OMP_NUM_THREADS=$(nproc)\n\nfi\n\n# Sanity check: Set OMP_NUM_THREADS to 6 if it is not set\n# (this may happen when running interactively)\n[[ \"x${OMP_NUM_THREADS}\" == \"x\" ]] && export OMP_NUM_THREADS=6\n\n# Sanity check: Max out the OMP_STACKSIZE if it is not set\n[[ \"x${OMP_STACKSIZE}\" == \"x\" ]] && export OMP_STACKSIZE=500m\n\n# Only create necessary executables if $quick is \"yes\"\nif [[ \"X${quick}\" == \"XYES\" ]]; then\n    EXE_LIST=(\"default\" \"carbon\")\nelse\n    EXE_LIST=(\"${EXE_GCHP_BUILD_LIST[@]}\")\nfi\n\n# Count the number of tests to be done\nnumTests=${#EXE_LIST[@]}\n\n#============================================================================\n# Initialize results logfile\n#============================================================================\n\n# Results logfile name\nresults=\"${logsDir}/results.compile.log\"\nrm -f \"${results}\"\n\n# Print header to results log file\nprint_to_log \"${SEP_MAJOR}\"                               \"${results}\"\nprint_to_log \"GCHP: Compilation Test Results\"             \"${results}\"\nprint_to_log \"\"                                           \"${results}\"\nprint_submodule_head_commits \"14\" \"${codeDir}\"            \"${results}\"\nprint_to_log \"\"                                           \"${results}\"\nprint_to_log \"Number of compilation tests: ${numTests}\"   \"${results}\"\nprint_to_log \"\"                                           \"${results}\"\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as SLURM job: ${SLURM_JOBID}\" \"${results}\"\nelif  [[ \"X${LSB_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as LSF job: ${LSB_JOBID}\"     \"${results}\"\nelse\n    print_to_log \"Submitted as interactive job\"           \"${results}\"\nfi\nprint_to_log \"${SEP_MAJOR}\"                               \"${results}\"\n\n#============================================================================\n# Configure and compile code in each GEOS_Chem run directory\n#============================================================================\nprint_to_log \" \"                   \"${results}\"\nprint_to_log \"Compiliation tests:\" \"${results}\"\nprint_to_log \"${SEP_MINOR}\"        \"${results}\"\n\n# Change to the top-level build directory\ncd \"${itRoot}\"\n\n# Keep track of the number of tests that passed & failed\nlet passed=0\nlet failed=0\nlet remain=${numTests}\n\n\n\n# Loop over build directories\nfor dir in ${EXE_LIST[@]}; do\n\n    # Define build directory\n    thisBuildDir=\"${buildDir}/${dir}\"\n\n    # Define log file\n    log=\"${logsDir}/compile.${dir}.log\"\n    rm -f \"${log}\"\n\n    # Configure and build GEOS-Chem source code\n    # and increment pass/fail/remain counters\n    build_model \"gchp\"           \"${itRoot}\" \"${thisBuildDir}\" \\\n                \"${baseOptions}\" \"${log}\"    \"${results}\"\n    if [[ $? -eq 0 ]]; then\n        let passed++\n    else\n        let failed++\n    fi\n    let remain--\n\ndone\n\n#============================================================================\n# Check the number of simulations that have passed\n#============================================================================\n\n# Print summary to log\nprint_to_log \" \"                                           \"${results}\"\nprint_to_log \"Summary of compilation test results:\"        \"${results}\"\nprint_to_log \"${SEP_MINOR}\"                                \"${results}\"\nprint_to_log \"Complilation tests passed:        ${passed}\" \"${results}\"\nprint_to_log \"Complilation tests failed:        ${failed}\" \"${results}\"\nprint_to_log \"Complilation tests not completed: ${remain}\" \"${results}\"\n\n# Check if all tests passed\nif [[ \"x${passed}\" == \"x${numTests}\" ]]; then\n\n    #---------------------------\n    # Successful compilation\n    #---------------------------\n    print_to_log \"\"                                        \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\" \"${results}\"\n    print_to_log \"%%%  All compilation tests passed!  %%%\" \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\" \"${results}\"\n\n    # Run execution tests interactively\n    # (This job has already been submitted as a dependency in SLURM/LSF)\n    if [[  \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Compilation tests finished!\"\n        ${scriptsDir}/integrationTestExecute.sh &\n    fi\n\nelse\n\n    #---------------------------\n    # Unsuccessful compilation\n    #---------------------------\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n       echo \"\"\n       echo \"Compilation tests failed!  Exiting...\"\n    fi\nfi\n\n#============================================================================\n# Cleanup and quit\n#============================================================================\n\n# Free local variables\nunset baseOptions\nunset binDir\nunset buildDir\nunset codeDir\nunset failed\nunset dir\nunset envDir\nunset head_gcc\nunset head_gc\nunset head_hco\nunset itRoot\nunset kernel\nunset log\nunset logsDir\nunset numTests\nunset passed\nunset remain\nunset results\nunset scriptsDir\nunset scheduler\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCHP/integrationTestCreate.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTestCreate.sh\n#\n# !DESCRIPTION: Creates GCHP integration test run directories in a\n#  user-specified root folder, and copies a run script there.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTestCreate.sh /path/to/root /path/to/env-file tests-to-run\n#  ./integrationTestCreate.sh /path/to/root /path/to/env-file tests-to-run quick=1\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Load common functions\n#=============================================================================\n\n# Current directory\nthisDir=$(pwd -P)\ncd \"${thisDir}\"\n\n# Path to the test/shared folder in source code\nsharedDir=$(realpath \"${thisDir}/../../shared\")\n\n# Source the script containing utility functions and variables\ncommonFuncs=\"${sharedDir}/commonFunctionsForTests.sh\"\n. \"${commonFuncs}\"\n\n#=============================================================================\n# Parse input arguments\n#=============================================================================\n\n# Integration test root folder\nitRoot=\"${1}\"\nif [[ \"x${itRoot}\" == \"x\" ]]; then\n    echo \"ERROR: The root-level directory for tests has not been specified!\"\n    exit 1\nfi\n\n# Environment file (for Harvard Cannon only)\nsite=$(get_site_name)\nenvFile=\"${2}\"\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n    [[ \"X${envFile}\" == \"X\" ]] && envFile=$(get_default_gchp_env_file)\n    if [[ ! -f ${envFile} ]]; then\n\techo \"ERROR: The enviroment file is not a valid file!\"\n\texit 1\n    fi\nfi\n\n# Type of tests to run?\ntestsToRun=\"${3}\"\n\n# Run a short integration test?\nquick=\"${4}\"\n\n#=============================================================================\n# Global variable and function definitions\n#=============================================================================\n\n# GCClassic superproject directory\ncd ../../../../../../../\nsuperProjectDir=$(pwd -P)\ncd \"${superProjectDir}\"\n\n# GEOS-Chem and HEMCO submodule directories\ngeosChemDir=\"${superProjectDir}/src/GCHP_GridComp/GEOSChem_GridComp/geos-chem\"\n\n# Echo header\nprintf \"${SEP_MAJOR}\\n\"\nprintf \"Creating GCHP Integration Tests\\n\\n\"\nprint_submodule_head_commits \"14\" \"${superProjectDir}\" \"\"\nprintf \"${SEP_MAJOR}\\n\"\n\n#=============================================================================\n# Create integration test folder and subdirectories\n#=============================================================================\n\n# Create integration test root folder if it doesn't exist\nitRoot=$(absolute_path \"${itRoot}\")\n[[ ! -d \"${itRoot}\" ]] && mkdir -p \"${itRoot}\"\n\n# Create local convenience variables\nbinDir=\"${itRoot}/${BIN_DIR}\"\nbuildDir=\"${itRoot}/${BUILD_DIR}\"\nenvDir=\"${itRoot}/${ENV_DIR}\"\nexecDir=\"${itRoot}/${EXEC_DIR}\"\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nscriptsDir=\"${itRoot}/${SCRIPTS_DIR}\"\nrundirsDir=\"${itRoot}/${RUNDIRS_DIR}\"\nutilsDir=\"${itRoot}/${UTILS_DIR}\"\n\n# Get absolute path of the environment file\nenvFile=$(absolute_path \"${envFile}\")\n\n# Remove run directories in the test folder\ncleanup_files \"${itRoot}\"\n\n# Subdir for CMake builds (note: will create ${itRoot}\nprintf \"\\nCreating CMake build directories:\\n\"\nfor dir in ${EXE_GCC_BUILD_LIST[@]}; do\n    printf \" ... ${buildDir}/${dir}\\n\"\n    mkdir -p \"${buildDir}/${dir}\"\ndone\n\n# Subdir for executables\nprintf \"\\nCreating exe files directory ${binDir}\\n\"\nmkdir -p \"${binDir}\"\n\n# Subdir for env files (for Harvard Cannon only)\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n    printf \"Creating env files directory ${envDir}\\n\"\n    mkdir -p \"${envDir}\"\nfi\n\n# Subdir for log files\nprintf \"Creating logs directory      ${logsDir}\\n\"\nmkdir -p \"${logsDir}\"\n\n# Subdir for scripts\nprintf \"Creating scripts directory   ${scriptsDir}\\n\"\nmkdir -p \"${scriptsDir}\"\n\n# Subdir for run directories\nif [[ \"x${testsToRun}\" == \"xALL\" ]]; then\n    printf \"Creating rundirs directory   ${rundirsDir}\\n\"\n    mkdir -p \"${rundirsDir}\"\nfi\n    \n# Create a symbolic link to the code from the Integration Test root folder\nprintf \"Linking to superproject      ${itRoot}/CodeDir\\n\"\nln -s \"${superProjectDir}\" ${itRoot}/CodeDir\n\n#=============================================================================\n# Copy files to the proper folders\n#=============================================================================\n\nprintf \"\\nCopying run scripts to       ${scriptsDir}\\n\"\ncp -f ${thisDir}/integration*.sh     ${scriptsDir}\ncp -f ${commonFuncs}                 ${scriptsDir}\ncp -f ${thisDir}/README.md           ${scriptsDir}\ncp -f ${thisDir}/README.testroot.md  ${itRoot}/README.md\n\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n\n    # Copy Cannon environment file\n    cp -f  ${envFile} ${envDir}/gchp.env\n\n    # Copy Cannon utility scripts\n    printf \"Copying utility scripts to   ${utilsDir}\\n\"\n    cp -fR ${sharedDir}/utils/cannon/integrationTest  ${utilsDir}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" ]]; then\n\n    # Copy Compute1 utility scripts\n    printf \"Copying utility scripts to   ${utilsDir}\\n\"\n    cp -fR ${sharedDir}/utils/compute1/integrationTest  ${utilsDir}\n\n    # Force scripts to be executable (Compute1 resets permissions)\n    chmod 755 -R ${scriptsDir}\n    chmod 755 -R ${utilsDir}\n\nfi\n\n# Log file with echoback from rundir creation\nlog=\"${logsDir}/createIntegrationTests.log\"\n\n#=============================================================================\n# Don't create run directories for compile-only tests.\n#=============================================================================\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n\n    # Switch to folder where rundir creation scripts live\n    cd \"${geosChemDir}/run/GCHP\"\n\n    #=========================================================================\n    # Create the GCHP run directories\n    #=========================================================================\n    printf \"\\nCreating new run directories:\\n\"\n\n    # c24 geosfp TransportTracers\n    create_rundir \"2\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # c24 merra2 carbon\n    create_rundir \"3\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # c24 merra2 carbon CH4 only\n    create_rundir \"3\\n2\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # c24 merra2 carbon CO2 only\n    create_rundir \"3\\n3\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # c24 merra2 carbon CO only\n    create_rundir \"3\\n4\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # c24 merra2 carbon OCS only\n    create_rundir \"3\\n5\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # c24 merra2 tagO3\n    create_rundir \"4\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # Exit after creating a couple of rundirs if $quick is \"yes\"\n    if [[ \"X${quick}\" == \"XYES\" ]]; then\n        cd ${thisDir}\n        exit 0\n    fi\n\n    # c24 merra2 fullchem_standard\n    create_rundir \"1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # c24 merra2 fullchem_benchmark\n    create_rundir \"1\\n2\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # c24 merra2 fullchem_RRTMG\n    create_rundir \"1\\n8\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # c24 merra2 fullchem_TOMAS15\n    create_rundir \"1\\n6\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    #=========================================================================\n    # Simulation with all diagnostics on\n    #==========================================================================\n\n    # Copy the fullchem_benchmark rundir to fullchem_alldiags\n    echo \"... ${itRoot}/rundirs/gchp_merra2_fullchem_alldiags\"\n    cd \"${rundirsDir}\"\n    cp -r gchp_merra2_fullchem_benchmark gchp_merra2_fullchem_alldiags\n\n    # Turn on all collections except RRTMG, DynHeat, Tomas.\n    # Make sure to activate these in the RRTMG and TOMAS integration tests.\n    # Also note; there is a floating point error in the UVFlux diagnostic,\n    # so temporarily comment that out.\n    sed_ie \"s|#'|'|\"                 gchp_merra2_fullchem_alldiags/HISTORY.rc\n    sed_ie \"s|#'|'|\"                 gchp_merra2_fullchem_alldiags/HISTORY.rc\n    sed_ie \"s|'RRTMG'|#'RRTMG'|\"     gchp_merra2_fullchem_alldiags/HISTORY.rc\n    sed_ie \"s|'Tomas'|#'Tomas'|\"     gchp_merra2_fullchem_alldiags/HISTORY.rc\n    sed_ie \"s|'DynHeat|#'DynHeat|\"   gchp_merra2_fullchem_alldiags/HISTORY.rc\n\n    # Disable the KppTime diagnostic (time spent in integrator) as\n    # this will vary due to local conditions on the cluster/node\n    sed_ie \"s|'KppTime|#'KppTime|\"   gchp_merra2_fullchem_alldiags/HISTORY.rc\n\n    # Switch back to the present directory\n    cd \"${thisDir}\"\nfi\n    \n#=============================================================================\n# Cleanup and quit\n#=============================================================================\n\n# Free local variables\nunset binDir\nunset buildDir\nunset commonFuncs\nunset dir\nunset envDir\nunset geosChemDir\nunset itRoot\nunset log\nunset logsDir\nunset rundirsDir\nunset superProjectDir\nunset scriptsDir\nunset sharedDir\nunset thisDir\nunset utilsDir\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/GCHP/integrationTestExecute.sh",
    "content": "#!/bin/bash\n\n#SBATCH -n 24\n#SBATCH -N 1\n#SBATCH -c 1\n#SBATCH -t 0-5:00\n#SBATCH -p REQUESTED_PARTITION\n#SBATCH --mem=150000\n#SBATCH --mail-type=END\n#BSUB -q REQUESTED_PARTITION\n#BSUB -n 24\n#BSUB -W 5:00\n#BSUB -R \"rusage[mem=90GB] span[ptile=1] select[mem < 2TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/esm:intel-2021.1.2)'\n#BSUB -o lsf-%J.txt\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: integrationTestExecute.sh\n#\n# !DESCRIPTION: Runs execution tests on various GEOS-Chem Classic\n#  run directories (interactively or using a scheduler)\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./integrationTestExecute.sh        # Interactive command-line execution\n#  bsub integrationTestExecute.sh     # Execution via LSF\n#  sbatch integrationTestExecute.sh   # Execution via SLURM\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#============================================================================\n# Global variable and function definitions\n#============================================================================\n\n# This script starts executing 1 level lower than $itRoot\nitRoot=$(cd ..; pwd)\n\n# Include global variables & functions\n. \"${itRoot}/scripts/commonFunctionsForTests.sh\"\n\n# Create local convenience variables\nbinDir=\"${itRoot}/${BIN_DIR}\"\nenvDir=\"${itRoot}/${ENV_DIR}\"\ncodeDir=\"${itRoot}/CodeDir\"\nlogsDir=\"${itRoot}/${LOGS_DIR}\"\nrundirsDir=\"${itRoot}/${RUNDIRS_DIR}\"\nsite=$(get_site_name)\n\n# Load the environment and the software environment\n. ~/.bashrc > /dev/null 2>&1\n[[ \"X${site}\" == \"XCANNON\" ]] && . ${envDir}/gchp.env > /dev/null 2>&1\n\n# Site-specific settings\nif [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n    #----------------------------------\n    # SLURM settings (Harvard Cannon)\n    #----------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #SBATCH -c\n    export OMP_NUM_THREADS=${SLURM_CPUS_PER_TASK}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" && \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n    #---------------------------------\n    # LSF settings (WashU Compute1)\n    #---------------------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #BSUB -n\n    export OMP_NUM_THREADS=${LSB_DJOB_NUMPROC}\n\n    # Unlimit resources to prevent OS killing GCHP due to resource usage/\n    # Alternatively you can put this in your environment file.\n    ulimit -c 0                  # coredumpsize\n    ulimit -l unlimited          # memorylocked\n    ulimit -u 50000              # maxproc\n    ulimit -v unlimited          # vmemoryuse\n    ulimit -s unlimited          # stacksize\n    \nelse\n\n    #---------------------------------\n    # Interactive settings\n    #---------------------------------\n    echo \"\"\n    echo \"Execution tests running...\"\n\n    # For AWS, set $OMP_NUM_THREADS to the available cores\n    kernel=$(uname -r)\n    [[ \"X${kernel}\" == \"Xaws\" ]] && export OMP_NUM_THREADS=$(nproc)\n\nfi\n\n# Sanity check: Set OMP_NUM_THREADS to 6 if it is not set\n# (this may happen when running interactively)\n[[ \"x${OMP_NUM_THREADS}\" == \"x\" ]] && export OMP_NUM_THREADS=6\n\n# Sanity check: Max out the OMP_STACKSIZE if it is not set\n[[ \"x${OMP_STACKSIZE}\" == \"x\" ]] && export OMP_STACKSIZE=500m\n\n# Count the number of tests to be run (same as the # of run directories)\nnumTests=$(count_rundirs \"${rundirsDir}\")\n\n#============================================================================\n# Initialize results logfile\n#============================================================================\n\n# Results logfile name\nresults=\"${logsDir}/results.execute.log\"\nrm -f \"${results}\"\n\n# Print header to results log file\nprint_to_log \"${SEP_MAJOR}\"                               \"${results}\"\nprint_to_log \"GCHP: Execution Test Results\"               \"${results}\"\nprint_to_log \"\"                                           \"${results}\"\nprint_submodule_head_commits \"14\" \"${codeDir}\"            \"${results}\"\nprint_to_log \"\"                                           \"${results}\"\nprint_to_log \"Number of execution tests: ${numTests}\"     \"${results}\"\nprint_to_log \"\"                                           \"${results}\"\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as SLURM job: ${SLURM_JOBID}\" \"${results}\"\nelif  [[ \"X${LSB_JOBID}\" == \"XCOMPUTE1\" ]]; then\n    print_to_log \"Submitted as LSF job: ${LSB_JOBID}\"     \"${results}\"\nelse\n    print_to_log \"Submitted as interactive job\"           \"${results}\"\nfi\nprint_to_log \"${SEP_MAJOR}\"                               \"${results}\"\n\n#============================================================================\n# Run the GEOS-Chem executable in each GEOS-Chem run directory\n#============================================================================\nprint_to_log \" \"                 \"${results}\"\nprint_to_log \"Execution tests:\"  \"${results}\"\nprint_to_log \"${SEP_MINOR}\"      \"${results}\"\n\n# Keep track of the number of tests that passed & failed\nlet passed=0\nlet failed=0\nlet remain=${numTests}\n\n# Navigate to the directory containing individiual run directories\ncd \"${rundirsDir}\"\n\n# Loop over rundirs and run GEOS-Chem\nfor runDir in *; do\n\n    # Expand rundir to absolute path\n    runAbsPath=\"${rundirsDir}/${runDir}\"\n\n    # Do the following if for only valid GCHP run dirs\n    expr=$(is_gchp_rundir \"${runAbsPath}\")\n    if [[ \"x${expr}\" == \"xTRUE\" ]]; then\n\n        # Define log file\n        log=\"${logsDir}/execute.${runDir}.log\"\n        rm -f \"${log}\"\n\n        # Messages for execution pass & fail\n        passMsg=\"$runDir${FILL:${#runDir}}.....${EXE_PASS_STR}\"\n        failMsg=\"$runDir${FILL:${#runDir}}.....${EXE_FAIL_STR}\"\n\n        # Get the executable file corresponding to this run directory\n        exeFile=$(exe_name \"gchp\" \"${runDir}\")\n\n        # Test if the executable exists\n        if [[ -f \"${binDir}/${exeFile}\" ]]; then\n\n            #----------------------------------------------------------------\n            # If the executable file exists, we can do the test\n            #----------------------------------------------------------------\n\n            # Change to the run directory\n            cd \"${runAbsPath}\"\n\n            # Copy the executable file here\n            cp \"${binDir}/${exeFile}\" .\n\n            # Update to make sure the run directory is executable\n            # on Compute1.  We will later replace this test with\n            # a test on the site name instead of on the scheduler.\n            # TODO: Test on name rather than scheduler\n            if [[ \"X${site}\" == \"XCOMPUTE1\" ]]; then\n\t\tchmod 755 -R \"${runAbsPath}\"\n            fi\n\n            # Remove any leftover files in the run dir\n            ./cleanRunDir.sh --no-interactive >> \"${log}\" 2>&1\n\n\t    # Also reset cap_restart to 00:00:00 UTC,\n\t    # in case we are restarting the tests maually\n\t    sed_ie 's/ ....00/ 000000/g' cap_restart\n\n            # Link to the environment file\n            ./setEnvironmentLink.sh \"${envDir}/gchp.env\"\n\n            # Update config files, set links, load environment, sanity checks\n            . setCommonRunSettings.sh >> \"${log}\" 2>&1\n            . setRestartLink.sh       >> \"${log}\" 2>&1\n            . gchp.env                >> \"${log}\" 2>&1\n            . checkRunSettings.sh     >> \"${log}\" 2>&1\n\n            # For safety's sake, remove restarts that weren't renamed\n            for rst in Restarts; do\n\t\tif [[ \"${rst}\" =~ \"gcchem_internal_checkpoint\" ]]; then\n\t\t    rm -f \"${rst}\"\n\t\tfi\n            done\n\n            # Run GCHP and evenly distribute tasks across nodes\n            if [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n\t\t#---------------------------------------------\n\t\t# Executing GCHP on SLURM (Harvard Cannon)\n\t\t#---------------------------------------------\n\n\t\t# Compute parameters for srun\n\t\t# See the gchp.run script in the folder:\n\t\t#  runScriptSamples/operational_examples/harvard_cannon\n\t\tNX=$(grep NX GCHP.rc | awk '{print $2}')\n\t\tNY=$(grep NY GCHP.rc | awk '{print $2}')\n\t\tcoreCt=$(( ${NX} * ${NY} ))\n\t\tplaneCt=$(( ${coreCt} / ${SLURM_NNODES} ))\n\t\tif [[ $(( ${coreCt} % ${SLURM_NNODES} )) > 0 ]]; then\n\t\t    planeCt=$(( ${planeCt} + 1 ))\n\t\tfi\n\n\t\t# Execute GCHP with srun\n\t\tsrun -n ${coreCt} -N ${SLURM_NNODES} -m plane=${planeCt} \\\n\t\t     --mpi=pmix ./${exeFile} >> \"${log}\" 2>&1\n\n            elif [[ \"X${scheduler}\" == \"xLSF\" && \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n\t\t#---------------------------------------------\n\t\t# Executing GCHP on LSF (WashU Compute1)\n\t\t#---------------------------------------------\n\t\tmpiexec -n 24 ./${exeFile} > \"${log}\" 2>&1\n\n            else\n\n\t\t#---------------------------------------------\n\t\t# Executing GCHP interactively\n\t\t#---------------------------------------------\n\t\tmpirun -n 24 ./${exeFile} >> \"${log}\" 2>&1\n            fi\n\n\t    # Determine if pass or fail based on if timer info printed to allPEs.log\n            timerReport=$(grep \"MAPL.profiler.*All\" allPEs.log || echo \"missing\")\n\n            # Update pass/failed counts and write to results.log\n            if [[ \"${timerReport}\" != \"missing\" ]]; then\n\n\t\t# TimerReport is not missing. Test passed.\n                let passed++\n                print_to_log \"${passMsg}\" \"${results}\"\n\n\t\t# ... so also rename the end-of-run restart file\n\t\tnew_start_str=$(sed 's/ /_/g' cap_restart)\n\t\tN=$(grep \"CS_RES=\" setCommonRunSettings.sh | cut -c 8- | xargs )\n\t\tmv Restarts/gcchem_internal_checkpoint \\\n\t\t   Restarts/GEOSChem.Restart.${new_start_str:0:13}z.c${N}.nc4\n            else\n\n\t\t# TimerReport is missing. Test failed.\n                let failed++\n                print_to_log \"${failMsg}\" \"${results}\"\n\n            fi\n\n            # Change to root directory for next iteration\n            cd \"${rundirsDir}\"\n\n        else\n\n            #----------------------------------------------------------------\n            # If the executable is missing, update the \"fail\" counter\n            # and write the \"failed\" message to the results log file.\n            #----------------------------------------------------------------\n            let failed++\n            print_to_log \"${failMsg}\" \"${results}\"\n        fi\n\n        # Decrement the count of remaining tests\n        let remain--\n    fi\ndone\n\n#============================================================================\n# Check the number of simulations that have passed\n#============================================================================\n\n# Print summary to log\nprint_to_log \" \"                                            ${results}\nprint_to_log \"Summary of test results:\"                     ${results}\nprint_to_log \"${SEP_MINOR}\"                                 ${results}\nprint_to_log \"Execution tests passed: ${passed}\"            ${results}\nprint_to_log \"Execution tests failed: ${failed}\"            ${results}\nprint_to_log \"Execution tests not yet completed: ${remain}\" ${results}\n\n# Check if all tests passed\nif [[ \"X${passed}\" == \"X${numTests}\" ]]; then\n    print_to_log \"\"                                         ${results}\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\"    ${results}\n    print_to_log \"%%%  All execution tests passed!  %%%\"    ${results}\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\"    ${results}\n\n    # Print success (if interactive)\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"X${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Execution tests finished!\"\n    fi\n\nelse\n\n    #--------------------------\n    # Unsuccessful execution\n    #--------------------------\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"X${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Execution tests failed!  Exiting ...\"\n    fi\nfi\n\n#============================================================================\n# Cleanup and quit\n#============================================================================\n\n# Free local variables\nunset absRunPath\nunset binDir\nunset codeDir\nunset envDir\nunset coreCt\nunset exeFile\nunset failed\nunset failmsg\nunset head_gchp\nunset head_gc\nunset head_hco\nunset itRoot\nunset log\nunset logsDir\nunset numTests\nunset NX\nunset NY\nunset passed\nunset passMsg\nunset planeCt\nunset remain\nunset results\nunset rundirsDir\nunset scheduler\n\n# Free imported global variables\nunset FILL\nunset LINE\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/integration/README.md",
    "content": "# README for Integration Tests\n\n## Contents\n\n`GCClassic/`\n- Directory containing scripts for running GEOS-Chem Classic integration tests.\n\n`GCHP/`\n- Directory containing scripts for running GCHP integration tests.\n"
  },
  {
    "path": "test/parallel/GCClassic/README.md",
    "content": "# README for GEOS-Chem Classic Parallelization Tests\n\n## Overview:\n\nThis directory contains:\n\n1. Scripts to submit automated GEOS-Chem Classic parallelization tests, which will test the following processes:\n\n    - GEOS-Chem Classic run directory creation\n    - GEOS-Chem Classic code configuration and compilation\n    - GEOS-Chem Classic execution\n\nParallelization tests are short GEOS-Chem Classic simulations.  Executables are compiled with all debugging options.  This should reveal any coding errors or run-directory configuration errors.\n\n## Files\n\n### Parallelization Test Scripts\n\n- `parallelTest.sh`\n  - Driver script to run GEOS-Chem Classic parallelization tests\n- `parallelTestCreate.sh`\n  - Script to create GEOS-Chem Classic run directories for parallelization tests\n- `parallelTestCompile.sh`\n  - Script to compile GEOS-Chem Classic executables\n- `parallelTestExecute.sh`\n   - Script to run GEOS-Chem Classic parallelization test simulations\n\n### Shared Scripts\n\n- `commonFunctionsForTests.sh`\n  - Link to `../../shared/commonFunctionsForTests.sh`, which contains global variables and functions for the parallelization and parallelization tests.\n\n## Before you begin\n\nPlease take a moment to:\n\n1. Verify that the `GCClassic` superproject is checked out to the correct branch and commit.\n2. Run `git submodule update --init --recursive` in order to update all submodules.\n3. Verify that the `HEAD` commit of the `GEOS-Chem` submodule contains the code that you wish to test. (If not, then check out the proper branch.)\n4. Verify that the `HEAD` commit of the `HEMCO` submodule contains the code that you wish to test. (If not, then check out the proper branch.)\n\n## Command-line Arguments\n\nThe parallelization test scripts accept the following command-line arguments:\n\n### Required arguments\n\n`-d /path/to/test/dir` specifies the root directory where parallelization test subdirectories and scripts will be placed.\n\n`-t compile|all` specifies the type of test to be run:\n  - `compile` will run compilation-only tests.\n  - `all` will run compilation and execution tests.\n\n### Optional arguments\n\n`-e /path/to/env-file` Specifies the file that is used to initialize the software environment on the Harvard Cannon cluster.  If omitted, a default file will be selected.\n\n`-h` displays a help screeen.\n\n`-q` will run only a couple of parallelization tests instead of the full suite.  This is intended for development and debugging.  You will normally not need to use this option.\n\nYou can also use long names for the option switches:\n- `--directory` instead of `-d`\n- `--env-file` instead of `-e`\n- `--help` instead of `h`\n- `--tests-to-run` instead of `-t`\n\n## Examples\n\n### Request compile-only tests on Cannon or Compute1\n```console\n$ cd /path/to/GCClassic     # Path to GCClassic superproject directory\n$ cd test/parallel/GCClassic\n$ ./parallelTest.sh -d /path/to/test/dir -t compile\n```\n\n### Request compile and execution tests (Harvard Cannon)\n```console\n$ cd /path/to/GCClassic     # Path to GCClassic superproject directory\n$ cd test/parallel/GCClassic\n$ ./parallelTest.sh -d /path/to/test/dir -t all -e /path/to/env-file\n```\nNOTE: If you omit the `-e /path/to/env/file` a default environment file will be used to load GNU Compiler Collection 10 and related libraries.\n\n### Request compile & execution tests (WashU compute1)\n```console\n$ cd /path/to/GCClassic     # Path to GCClassic superproject directory\n$ cd test/parallel/GCClassic\n$ ./parallelTest.sh -d /path/to/test/dir -t all\n```\nNOTE: No environment file is needed.  On Compute1 the tests will run inside a software container with all necessary libraries included.\n"
  },
  {
    "path": "test/parallel/GCClassic/README.testroot.md",
    "content": "# README for GEOS-Chem Classic Parallelization Tests\n\n## Directories\n\nComponents of GEOS-Chem Classic parallelization tests have been separated into these directories:\n\n`bin`\n\n  - Contains GEOS-Chem Classic executable files\n\n`build`\n\n  - Directories for building GEOS-Chem Classic executables\n\n`CodeDir`\n\n  - Symbolic link to the `GCClassic` superproject directory\n\n`env`\n\n  - Contains an environment file that loads the required libraries needed to run GEOS-Chem Classic.\n\n`logs`\n\n  - Contains log files from the parallelization tests.\n\n    - `results.compile.log`: Results of GEOS-Chem Classic compilation tests.\n    - `results.parallel.log`: Results of GEOS-Chem Classic parallel tests.\n    - `compile.*.log`: Output of individual compilation tests\n    - `parallel.*.log`: Output of individual parallel tests\n    - `lsf-*.txt`: LSF scheduler job logs\n    - `slurm*.out`: SLURM scheduler job logs\n\n`rundirs`\n\n  - Contains individual GEOS-Chem Classic run directories.\n\n`scripts`\n\n  - Contains scripts that are used for running the GEOS-Chem Classic parallelization tests.  These are copied from the `test/GCClassic/parallel` folder of the GEOS-Chem \"science codebase\" repository. \n\n## For more information\n\nPlease see the `scripts/README.md` file for detailed instructions on running GEOS-Chem Classic parallelization tests.\n"
  },
  {
    "path": "test/parallel/GCClassic/parallelTest.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: parallelTest.sh\n#\n# !DESCRIPTION: Runs parallelization tests on the various GEOS-Chem Classic\n#  run directories (interactively, or with a scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./parallelTest.sh -d root-dir -t compile|all [-e env-file] [-h] [-q]\n#\n#  Required arguments\n#    -d root-dir     : Specify the root folder for integration tests\n#    -t compile|all  : Specify the tests to run (compile-only or all)\n#\n#  Optional arguments\n#    -e env-file     : Software environment file for Harvard Cannon\n#    -h              : Display a help message\n#    -n              : Do not bootstrap missing restart file variables\n#    -q              : Run a quick set of integration tests (for testing)\n#\n#  NOTE: you can also use the following long name options:\n#\n#    --directory     (instead of -d)\n#    --env-file      (instead of -e)\n#    --help          (instead of -h)\n#    --no-bootstrap  (instead of -n)\n#    --quick         (instead of -q)\n#    --tests-to-run  (instead of -t)\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Throw error if there is a conda environment active with netCDF,\n# which can cause the code to be linked against the wrong netCDF version.\n#=============================================================================\nif [[ -n \"$CONDA_DEFAULT_ENV\" || \\\n      \"$(which nc-config 2>/dev/null)\" == *conda* ]]; then\n   echo \"ERROR: Conda netCDF detected. Run 'conda deactivate' first.\"\n   exit 1\nfi\n\n#=============================================================================\n# Initialize\n#=============================================================================\nthis=\"$(basename ${0})\"\nusage=\"Usage: ${this} -d root-dir -t compile|all [-e env-file] [-h] [-q]\"\nquick=\"NO\"\n\n# Current directory\nthisDir=$(pwd -P)\ncd \"${thisDir}\"\n\n# Load common functions\n. \"${thisDir}/../../shared/commonFunctionsForTests.sh\"\n\n#=============================================================================\n# Parse command-line arguments\n# See https://www.baeldung.com/linux/bash-parse-command-line-arguments\n#=============================================================================\n\n# Call Linux getopt function to specify short & long input options\n# (e.g. -d or --directory, etc).  Exit if not succesful\nvalidArgs=$(getopt --options d:e:hqt: \\\n  --long directory:,env-file:,help,quick,tests-to-run: -- \"$@\")\nif [[ $? -ne 0 ]]; then\n    exit 1;\nfi\n\n# Parse arguments and set variables accordingly\n# NOTE: Convert some inputs to uppercase to facilitate comparisons\neval set -- \"${validArgs}\"\nwhile [ : ]; do\n    case \"${1}\" in\n\n\t# -d or --directory specifies the root folder for tests\n\t-d | --directory)\n\t    ptRoot=\"${2}\"\n            shift 2\n            ;;\n\n\t# -e or --env-file specifies the environment file\n\t-e | --env-file)\n\t    envFile=\"${2}\"\n            shift 2\n            ;;\n\n\t# -h or --help prints a help message\n\t-h | --help)\n            echo \"$usage\"\n            exit 1\n            ;;\n\n\t# -q or --quick runs a quick set of parallelization tests (for testing)\n\t-q | --quick)\n\t    quick=\"YES\"\n            shift\n\t    ;;\n\t\n\t# -t or --tests-to-run specifies the type of tests to run\n\t-t | --tests-to-run)\n            testsToRun=\"${2^^}\"\n            shift 2\n            ;;\n\n\t--) shift;\n            break\n            ;;\n    esac\ndone\n\n#=============================================================================\n# Sanity-check user input\n#=============================================================================\n\n# Get the site name from the node name\nsite=$(get_site_name)\n\n# Error check integration tests root path\nif [[ \"X${ptRoot}\" == \"X\" ]]; then\n    echo \"ERROR: The parallelization test root directory has not been specified!\"\n    echo \"${usage}\"\n    exit 1\nfi\n\n# Error check the type of tests to run\nif [[ \"X${testsToRun}\" == \"X\" ]]; then\n    echo \"ERROR: You must specify the test type: compile|all\"\n    echo \"${usage}\"\n    exit 1\nfi\nif [[ \"X${testsToRun}\" != \"XCOMPILE\" && \"X${testsToRun}\" != \"XALL\" ]]; then\n    echo \"ERROR: Invalid selction for tests-to-run, must be: compile|all\"\n    echo \"${usage}\"\n    exit 1\nfi\n\n# Error checks for tests that include compile & run phases\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n    \n    # Use the default environment file for Cannon if not specified\n    if [[ \"X${site}\" == \"XCANNON\" && \"X${envFile}\" == \"X\" ]]; then\n\tenvFile=$(get_default_gcc_env_file)\n    fi\n\n    # Get the sed command that will replace the partition name\n    sedPartitionCmd=$(get_sed_partition_cmd_from_site \"${site}\")\nfi\n\n#=============================================================================\n# Create parallelization test directories in the root folder\n#=============================================================================\n\n# Convert parallelization test root folder to an absolute path\nptRoot=$(absolute_path \"${ptRoot}\")\n\n# Prevent running integration tests in the source code directory tree\nif [[ \"$(absolute_path ${thisDir})\" =~ \"${ptRoot}\" ]]; then\n    echo \"ERROR: You cannot run parallel tests in the source code directory!\"\n    exit 1\nfi\n\n# Create GEOS-Chem run directories in the parallelization test root folder\n./parallelTestCreate.sh \"${ptRoot}\" \"${envFile}\" \"${testsToRun}\" \"${quick}\"\nif [[ $? -ne 0 ]]; then\n   echo \"ERROR: Could not create parallelization test run directories!\"\n   exit 1\nfi\n\n# Change to the parallelization test root folder\nif [[ -d ${ptRoot} ]]; then\n    cd \"${ptRoot}\"\nelse\n    echo \"ERROR: ${ptRoot} is not a valid directory!  Exiting...\"\n    exit 1\nfi\n\n# Define local convenience variables\nlogsDir=\"${ptRoot}/${LOGS_DIR}\"\nscriptsDir=\"${ptRoot}/${SCRIPTS_DIR}\"\n\n# Navigate to the logs directory (so all output will be placed there)\ncd \"${logsDir}\"\n\n#=============================================================================\n# Run the tests\n#=============================================================================\nif [[ \"X${testsToRun}\" == \"XCOMPILE\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation-only tests (scheduler is not used)\n    #-------------------------------------------------------------------------\n    echo \"\"\n    echo \"Compiliation tests are running...\"\n    ${scriptsDir}/parallelTestCompile.sh &    \n\nelif [[ \"X${testsToRun}\" == \"XALL\" && \"X${site}\" == \"XCANNON\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation and execution tests on Harvard Cannon (via SLURM)\n    #-------------------------------------------------------------------------\n\n    # Remove LSF #BSUB tags\n    sed_ie '/#BSUB -q REQUESTED_PARTITION/d' \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#BSUB -n 8/d'                   \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#BSUB -W 0:30/d'                \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#BSUB -o lsf-%J.txt/d'          \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie \\\n\t'/#BSUB -R \"rusage\\[mem=8GB\\] span\\[ptile=1\\] select\\[mem < 1TB\\]\"/d' \\\n\t\"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie \\\n\t\"/#BSUB -a 'docker(registry\\.gsc\\.wustl\\.edu\\/sleong\\/esm\\:intel\\-2021\\.1\\.2)'/d\" \\\n\t\"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#BSUB -q REQUESTED_PARTITION/d' \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#BSUB -n 24/d'                  \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#BSUB -W 6:00/d'                \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#BSUB -o lsf-%J.txt/d'          \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie \\\n\t'/#BSUB -R \"rusage\\[mem=90GB\\] span\\[ptile=1\\] select\\[mem < 2TB\\]\"/d' \\\n\t\"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie \\\n\t\"/#BSUB -a 'docker(registry\\.gsc\\.wustl\\.edu\\/sleong\\/esm\\:intel\\-2021\\.1\\.2)'/d\" \\\n\t\"${scriptsDir}/parallelTestExecute.sh\"\n\n    # Replace \"REQUESTED_PARTITION\" with the partition name\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/parallelTestExecute.sh\"\n\n    # Submit compilation tests script\n    output=$(sbatch ${scriptsDir}/parallelTestCompile.sh)\n    output=($output)\n    cmpId=${output[3]}\n\n    # Submit execution tests script as a job dependency\n    output=$(sbatch --dependency=afterok:${cmpId} ${scriptsDir}/parallelTestExecute.sh)\n    output=($output)\n    exeId=${output[3]}\n\n    echo \"\"\n    echo \"Compilation tests submitted as SLURM job ${cmpId}\"\n    echo \"Execution   tests submitted as SLURM job ${exeId}\"\n\nelif [[ \"X${testsToRun}\" == \"XALL\" && \"X${site}\" == \"XCOMPUTE1\" ]]; then\n\n    #-------------------------------------------------------------------------\n    # Compilation and execution tests on WashU Compute1 (via LSF)\n    #-------------------------------------------------------------------------\n\n    # Remove SLURM #SBATCH tags\n    sed_ie '/#SBATCH -c 8/d'                   \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH -N 1/d'                   \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH -t 0-0:30/d'              \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH --mem=8000/d'             \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH --mail-type=END/d'        \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie '/#SBATCH -c 24/d'                  \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#SBATCH -N 1/d'                   \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#SBATCH -t 0-6:00/d'              \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#SBATCH -p REQUESTED_PARTITION/d' \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#SBATCH --mem=90000/d'            \"${scriptsDir}/parallelTestExecute.sh\"\n    sed_ie '/#SBATCH --mail-type=END/d'        \"${scriptsDir}/parallelTestExecute.sh\"\n\n    # Replace \"REQUESTED_PARTITION\" with the partition name\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/parallelTestCompile.sh\"\n    sed_ie \"${sedPartitionCmd}\" \"${scriptsDir}/parallelTestExecute.sh\"\n\n    # Submit compilation tests script\n    output=$(bsub $scriptsDir}/parallelTestCompile.sh)\n    output=($output)\n    cmpId=${output[1]}\n    cmpId=${cmpId/<}\n    cmpId=${cmpId/>}\n\n    # Submit execution tests script as a job dependency\n    output=$(bsub -w \"exit(${cmpId},0)\" ${scriptsDir}/parallelTestExecute.sh)\n    output=($output)\n    exeId=${output[1]}\n    exeId=${exeId/<}\n    exeId=${exeId/>}\n\nelse\n\n    #-------------------------------------------------------------------------\n    # Exit with error\n    #-------------------------------------------------------------------------\n    echo \"\"\n    echo \"ERROR! Invalid choice of arguments!\"\n    echo \"${usage}\"\n    exit 1\n\nfi\n\n# Change back to this directory\ncd \"${thisDir}\"\n\t\t\t\t\t\t      \n#=============================================================================\n# Cleanup and quit\n#=============================================================================\n\n# Free local variables\nunset cmpId\nunset envFile\nunset exeId\nunset logsDir\nunset ptRoot\nunset quick\nunset output\nunset scheduler\nunset scriptsDir\nunset thisDir\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/parallel/GCClassic/parallelTestCompile.sh",
    "content": "#!/bin/bash\n\n#SBATCH -c 8\n#SBATCH -N 1\n#SBATCH -t 0-0:30\n#SBATCH -p REQUESTED_PARTITION\n#SBATCH --mem=8000\n#SBATCH --mail-type=END\n#BSUB -q REQUESTED_PARTITION\n#BSUB -n 8\n#BSUB -W 0:30\n#BSUB -R \"rusage[mem=8GB] span[ptile=1] select[mem < 1TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/esm:intel-2021.1.2)'\n#BSUB -o lsf-%J.txt\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: parallelTestCompile.sh\n#\n# !DESCRIPTION: Runs compilation tests on various GEOS-Chem Classic\n#  run directories (interactively or using a scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./parallelTestCompile.sh        # Interactive command-line execution\n#  bsub parallelTestCompile.sh     # Execution via LSF\n#  sbatch parallelTestCompile.sh   # Execution via SLURM\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#============================================================================\n# Global variable and function definitions\n#============================================================================\n\n# This script starts executing 1 level lower than $itRoot\nptRoot=$(cd ..; pwd)\n\n# Include global variables & functions\n. \"${ptRoot}/scripts/commonFunctionsForTests.sh\"\n\n# Create local convenience variables\nbinDir=\"${ptRoot}/${BIN_DIR}\"\nbuildDir=\"${ptRoot}/${BUILD_DIR}\"\nenvDir=\"${ptRoot}/${ENV_DIR}\"\ncodeDir=\"${ptRoot}/CodeDir\"\nlogsDir=\"${ptRoot}/${LOGS_DIR}\"\nscriptsDir=\"${ptRoot}/${SCRIPTS_DIR}\"\nsite=$(get_site_name)\n\n# Load the user-environment and the software environment\n. ~/.bashrc > /dev/null 2>&1\n[[ \"X${site}\" == \"XCANNON\" ]] && . ${envDir}/gcclassic.env > /dev/null 2>&1\n\n# All parallelization tests will use debugging features\nbaseOptions=\"-DCMAKE_BUILD_TYPE=Debug -DRUNDIR='' -DINSTALLCOPY=${binDir}\"\n\n# Get the Git commit of the superproject and submodules\nhead_gcc=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n           git -C \"${codeDir}\" log --oneline --no-decorate -1)\nhead_gc=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n          git -C \"${codeDir}/src/GEOS-Chem\" log --oneline --no-decorate -1)\nhead_hco=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n           git -C \"${codeDir}/src/HEMCO\" log --oneline --no-decorate -1)\n\n# Scheduler-specific settings\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n    #-----------------------\n    # SLURM settings\n    #-----------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #SBATCH -c\n    export OMP_NUM_THREADS=${SLURM_CPUS_PER_TASK}\n\nelif [[ \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n    #-----------------------\n    # LSF settings\n    #-----------------------\n\n    # Set OMP_NUM_THREADS to the same # of cores requested with #BSUB -n\n    export OMP_NUM_THREADS=${$LSB_DJOB_NUMPROC}\n\nelse\n\n    #-----------------------\n    # Interactive settings\n    #-----------------------\n\n    # For AWS, set $OMP_NUM_THREADS to the available cores\n    kernel=$(uname -r)\n    [[ \"x${kernel}\" == \"xaws\" ]] && export OMP_NUM_THREADS=$(nproc)\n\nfi\n\n# Sanity check: Set OMP_NUM_THREADS to 6 if it is not set\n# (this may happen when running interactively)\n[[ \"x${OMP_NUM_THREADS}\" == \"x\" ]] && export OMP_NUM_THREADS=6\n\n# Sanity check: Max out the OMP_STACKSIZE if it is not set\n[[ \"x${OMP_STACKSIZE}\" == \"x\" ]] && export OMP_STACKSIZE=500m\n\n#============================================================================\n# Load common variables and functions for tesets\n#============================================================================\n\n# Count the number of tests to be done\nparallelTests=(\"${EXE_GCC_BUILD_LIST[@]}\")\nnumTests=${#parallelTests[@]}\n\n#============================================================================\n# Initialize results logfile\n#============================================================================\n\n# Results logfile name\nresults=\"${logsDir}/results.compile.log\"\nrm -f ${results}\n\n# Print header to results log file\nprint_to_log \"${SEP_MAJOR}\"                                \"${results}\"\nprint_to_log \"GEOS-Chem Classic: Compilation Test Results\" \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nprint_to_log \"GCClassic #${head_gcc}\"                      \"${results}\"\nprint_to_log \"GEOS-Chem #${head_gc}\"                       \"${results}\"\nprint_to_log \"HEMCO     #${head_hco}\"                      \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nprint_to_log \"Using ${OMP_NUM_THREADS} OpenMP threads\"     \"${results}\"\nprint_to_log \"Number of compilation tests: ${numTests}\"    \"${results}\"\nprint_to_log \"\"                                            \"${results}\"\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as SLURM job: ${SLURM_JOBID}\"  \"${results}\"\nelif  [[ \"X${LSB_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as LSF job: ${LSB_JOBID}\"      \"${results}\"\nelse\n    print_to_log \"Submitted as interactive job\"            \"${results}\"\nfi\nprint_to_log \"${SEP_MAJOR}\"                                \"${results}\"\n\n#============================================================================\n# Configure and compile code in each GEOS_Chem run directory\n#============================================================================\nprint_to_log \" \"                   \"${results}\"\nprint_to_log \"Compiliation tests:\" \"${results}\"\nprint_to_log \"${SEP_MINOR}\"        \"${results}\"\n\n# Change to the top-level build directory\ncd \"${ptRoot}\"\n\n# Keep track of the number of tests that passed & failed\nlet passed=0\nlet failed=0\nlet remain=${numTests}\n\n# Loop over build directories\nfor dir in ${parallelTests[@]}; do\n\n    # Define build directory\n    thisBuildDir=\"${buildDir}/${dir}\"\n\n    # Define log file\n    log=\"${logsDir}/compile.${dir}.log\"\n    rm -f \"${log}\"\n\n    # Configure and build GEOS-Chem Classic source code\n    # and increment pass/fail/remain counters\n    build_model \"gcclassic\"      \"${ptRoot}\" \"${thisBuildDir}\" \\\n                \"${baseOptions}\" \"${log}\"    \"${results}\"\n    if [[ $? -eq 0 ]]; then\n        let passed++\n    else\n        let failed++\n    fi\n    let remain--\ndone\n\n#============================================================================\n# Check the number of simulations that have passed\n#============================================================================\n\n# Print summary to log\nprint_to_log \" \"                                           \"${results}\"\nprint_to_log \"Summary of compilation test results:\"        \"${results}\"\nprint_to_log \"${SEP_MINOR}\"                                \"${results}\"\nprint_to_log \"Complilation tests passed:        ${passed}\" \"${results}\"\nprint_to_log \"Complilation tests failed:        ${failed}\" \"${results}\"\nprint_to_log \"Complilation tests not completed: ${remain}\" \"${results}\"\n\n# Check for success\nif [[ \"x${passed}\" == \"x${numTests}\" ]]; then\n\n    #--------------------------\n    # Successful compilation\n    #--------------------------\n    print_to_log \"\"                                        \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\" \"${results}\"\n    print_to_log \"%%%  All compilation tests passed!  %%%\" \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\" \"${results}\"\n\n    # Start the interactive execution test script upon successful finish\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Compilation tests finished!\"\n        ${scriptsDir}/parallelTestExecute.sh &\n    fi\n\nelse\n\n    #---------------------------\n    # Unsuccessful compilation\n    #---------------------------\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n       echo \"\"\n       echo \"Compilation tests failed!  Exiting...\"\n    fi\nfi\n\n#============================================================================\n# Cleanup and quit\n#============================================================================\n\n# Free local variables\nunset baseOptions\nunset binDir\nunset buildDir\nunset codeDir\nunset failed\nunset dir\nunset envDir\nunset head_gcc\nunset head_gc\nunset head_hco\nunset kernel\nunset log\nunset numTests\nunset passed\nunset ptRoot\nunset remain\nunset results\nunset scriptsDir\nunset scheduler\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/parallel/GCClassic/parallelTestCreate.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: paralleltestCreate.sh\n#\n# !DESCRIPTION: Creates parallelization test run directories in a\n#  user-specified root folder, and copies a run script there.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./paralleltestCreate.sh /path/to/int/test/root /path/to/env-file\n#  ./paralleltestCreate.sh /path/to/int/test/root /path/to/env-file quick=1\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#=============================================================================\n# Load common functions\n#=============================================================================\n\n# Current directory\nthisDir=$(pwd -P)\ncd \"${thisDir}\"\n\n# Path to the test/shared folder in source code\nsharedDir=$(realpath \"${thisDir}/../../shared\")\n\n# Source the script containing utility functions and variables\ncommonFuncs=\"${sharedDir}/commonFunctionsForTests.sh\"\n. \"${commonFuncs}\"\n\n#=============================================================================\n# Arguments\n#=============================================================================\n\n# Parallelization test root folder\nptRoot=\"${1}\"\nif [[ \"X${ptRoot}\" == \"X\" ]]; then\n    echo \"ERROR: The root-level directory for tests has not been specified!\"\n    exit 1\nfi\n\n# Environment file (for Harvard Cannon only)\nsite=$(get_site_name)\nenvFile=\"${2}\"\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n    [[ \"X${envFile}\" == \"X\" ]] && envFile=$(get_default_gcc_env_file)\n    if [[ ! -f ${envFile} ]]; then\n\techo \"ERROR: The enviroment file is not a valid file!\"\n\texit 1\n    fi\nfi\n\n# Type of tests to run?\ntestsToRun=\"${3}\"\n\n# Run a short parallelization test?\nquick=\"${4}\"\n\n#=============================================================================\n# Global variable and function definitions\n#=============================================================================\n\n# GCClassic superproject directory\ncd ../../../../../\nsuperProjectDir=$(pwd -P)\ncd ${superProjectDir}\n\n# GEOS-Chem and HEMCO submodule directories\ngeosChemDir=\"${superProjectDir}/src/GEOS-Chem\"\nhemcoDir=\"${superProjectDir}/src/HEMCO\"\n\n# Get the Git commit of the superproject and submodules\nhead_gcc=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n\t   git -C \"${superProjectDir}\" log --oneline --no-decorate -1)\nhead_gc=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n\t  git -C \"${geosChemDir}\" log --oneline --no-decorate -1)\nhead_hco=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n\t   git -C \"${hemcoDir}\" log --oneline --no-decorate -1)\n\n# Echo header\nprintf \"${SEP_MAJOR}\\n\"\nprintf \"Creating GEOS-Chem Classic Parallelization Tests\\n\\n\"\nprintf \"GCClassic #${head_gcc}\\n\"\nprintf \"GEOS_Chem #${head_gc}\\n\"\nprintf \"HEMCO     #${head_hco}\\n\"\nprintf \"${SEP_MAJOR}\\n\"\n\n#=============================================================================\n# Create integration test folder and subdirectories\n#=============================================================================\n\n# Create parallelization test root folder if it doesn't exist\nptRoot=$(absolute_path \"${ptRoot}\")\n[[ ! -d \"${ptRoot}\" ]] && mkdir -p \"${ptRoot}\"\n\n# Create local convenience variables\nbinDir=\"${ptRoot}/${BIN_DIR}\"\nbuildDir=\"${ptRoot}/${BUILD_DIR}\"\nenvDir=\"${ptRoot}/${ENV_DIR}\"\nexecDir=\"${ptRoot}/${EXEC_DIR}\"\nlogsDir=\"${ptRoot}/${LOGS_DIR}\"\nscriptsDir=\"${ptRoot}/${SCRIPTS_DIR}\"\nrundirsDir=\"${ptRoot}/${RUNDIRS_DIR}\"\nutilsDir=\"${ptRoot}/${UTILS_DIR}\"\n\n# Remove everything in the parallelization test root folder\ncleanup_files \"${ptRoot}\"\n\n# Subdir for CMake builds (note: will create ${itRoot}\nprintf \"\\nCreating CMake build directories:\\n\"\nfor dir in ${EXE_GCC_BUILD_LIST[@]}; do\n    printf \" ... ${buildDir}/${dir}\\n\"\n    mkdir -p \"${buildDir}/${dir}\"\ndone\n\n# Subdir for executables\nprintf \"\\nCreating exe files directory ${binDir}\\n\"\nmkdir -p \"${binDir}\"\n\n# Subdir for env files (for Harvard Cannon only)\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n    printf \"Creating env files directory ${envDir}\\n\"\n    mkdir -p \"${envDir}\"\nfi\n\n# Subdir for log files\nprintf \"Creating logs directory      ${logsDir}\\n\"\nmkdir -p \"${logsDir}\"\n\n# Subdir for scripts\nprintf \"Creating scripts directory   ${scriptsDir}\\n\"\nmkdir -p \"${scriptsDir}\"\n\n# Subdir for run directories\nif [[ \"x${testsToRun}\" == \"xALL\" ]]; then\n    printf \"Creating rundirs directory   ${rundirsDir}\\n\"\n    mkdir -p \"${rundirsDir}\"\nfi\n\n# Create a symbolic link to the code from the Integration Test root folder\nprintf \"Linking to superproject      ${ptRoot}/CodeDir\\n\"\nln -s \"${superProjectDir}\" ${ptRoot}/CodeDir\n\n#=============================================================================\n# Copy files to the proper folders\n#=============================================================================\n\nprintf \"\\nCopying run scripts to       ${ptRoot}\\n\"\ncp -f ${thisDir}/parallelTest*.sh    ${scriptsDir}\ncp -f ${commonFuncs}                 ${scriptsDir}\ncp -f ${thisDir}/README.md           ${scriptsDir}\ncp -f ${thisDir}/README.testroot.md  ${ptRoot}/README.md\n\nif [[ \"X${site}\" == \"XCANNON\" ]]; then\n\n    # Copy Cannon environment file\n    cp -f  ${envFile} ${envDir}/gcclassic.env\n\n    # Copy Cannon utility scripts\n    printf \"Copying utility scripts to   ${utilsDir}\\n\"\n    cp -fR ${sharedDir}/utils/cannon/parallelTest  ${utilsDir}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" ]]; then\n\n    # Copy Compute1 utility scripts\n    printf \"Copying utility scripts to   ${utilsDir}\\n\"\n    cp -fR ${sharedDir}/utils/compute1/parallelTest  ${utilsDir}\n\n    # Force scripts to be executable (Compute1 resets permissions)\n    chmod 755 -R ${scriptsDir}\n    chmod 755 -R ${utilsDir}\n\nfi\n\n# Log file with echoback from rundir creation\nlog=\"${logsDir}/createParallelTests.log\"\n\n#=============================================================================\n# Don't create run directories for compile-only tests.\n#=============================================================================\nif [[ \"X${testsToRun}\" == \"XALL\" ]]; then\n\n    # Switch to folder where rundir creation scripts live\n    cd \"${geosChemDir}/run/GCClassic\"\n\n    #=========================================================================\n    # Create individual run directories: 4x5 - MERRA2 - 72L\n    #=========================================================================\n    printf \"\\nCreating new run directories:\\n\"\n\n    # 4x5 merra2 aerosol\n    create_rundir \"2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    #4x5 merra2 carbon\n    create_rundir \"3\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem\n    create_rundir \"1\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # DEBUG: Exit after creating a couple of rundirs if $quick is \"yes\"\n    if [[ \"X${quick}\" == \"XYES\" ]]; then\n\tcd ${thisDir}\n\texit 0\n    fi\n\n    # 4x5 merra2 fullchem_LuoWd\n    dir=\"gc_4x5_merra2_fullchem_LuoWd\"\n    create_rundir \"1\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n${dir}\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_aciduptake\n    create_rundir \"1\\n5\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_APM\n    create_rundir \"1\\n7\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_benchmark\n    create_rundir \"1\\n2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_complexSOA\n    create_rundir \"1\\n3\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_complexSOA_SVPOA\n    create_rundir \"1\\n3\\n2\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_marinePOA\n    create_rundir \"1\\n4\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_RRTMG\n    create_rundir \"1\\n8\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 fullchem_TOMAS15_47L\n    create_rundir \"1\\n6\\n1\\n1\\n1\\n2\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 Hg\n    create_rundir \"4\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 POPs_BaP\n    create_rundir \"5\\n1\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 tagO3\n    create_rundir \"6\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 TransportTracers\n    create_rundir \"7\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 TransportTracers_LuoWd\n    dir=\"gc_4x5_merra2_TransportTracers_LuoWd\"\n    create_rundir \"7\\n1\\n1\\n1\\n${rundirsDir}\\n${dir}\\nn\\n\" \"${log}\"\n\n    # 4x5 merra2 metals\"\n    create_rundir \"8\\n1\\n1\\n1\\n${rundirsDir}\\n\\nn\\n\" \"${log}\"\n\n    #=========================================================================\n    # Create individual run directories: 4x5 and 47L (MERRA2)\n    #=========================================================================\n\n    # 4x5 merra2 fullchem_47L\"\n    create_rundir \"1\\n1\\n1\\n1\\n2\\n${rundirsDir}\\n\\nn\\nn\\n\" \"${log}\"\n\nfi\n\n# Switch back to the present directory\ncd \"${thisDir}\"\n\n#=============================================================================\n# Cleanup and quit\n#=============================================================================\n\n# Free local variables\nunset binDir\nunset buildDir\nunset commonFuncs\nunset dir\nunset envDir\nunset geosChemDir\nunset log\nunset logsDir\nunset ptRoot\nunset rundirsDir\nunset scriptsDir\nunset sharedDir\nunset superProjectDir\nunset thisDir\nunset utilsDir\n\n# Free imported variables\nunset FILL\nunset SEP_MAJOR\nunset SEP_MINOR\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/parallel/GCClassic/parallelTestExecute.sh",
    "content": "#!/bin/bash\n\n#SBATCH -c 24\n#SBATCH -N 1\n#SBATCH -t 0-6:00\n#SBATCH -p REQUESTED_PARTITION\n#SBATCH --mem=90000\n#SBATCH --mail-type=END\n#BSUB -q REQUESTED_PARTITION\n#BSUB -n 24\n#BSUB -W 6:00\n#BSUB -R \"rusage[mem=90GB] span[ptile=1] select[mem < 2TB]\"\n#BSUB -a 'docker(registry.gsc.wustl.edu/sleong/esm:intel-2021.1.2)'\n#BSUB -o lsf-%J.txt\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: parallelTestExecute.sh\n#\n# !DESCRIPTION: Runs execution tests on various GEOS-Chem Classic\n#  run directories (using the SLURM scheduler).\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  ./parallelTestExecute.sh        # Interactive command-line execution\n#  bsub parallelTestExecute.sh     # Execution via LSF\n#  sbatch parallelTestExecute.sh   # Execution via SLURM\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n#============================================================================\n# Global variable and function definitions\n#============================================================================\n\n# This script starts executing 1 level lower than $itRoot\nptRoot=$(cd ..; pwd)\n\n# Include global variables & functions\n. \"${ptRoot}/scripts/commonFunctionsForTests.sh\"\n\n# Create local convenience variables\nbinDir=\"${ptRoot}/${BIN_DIR}\"\nenvDir=\"${ptRoot}/${ENV_DIR}\"\ncodeDir=\"${ptRoot}/CodeDir\"\nlogsDir=\"${ptRoot}/${LOGS_DIR}\"\nrundirsDir=\"${ptRoot}/${RUNDIRS_DIR}\"\nnumTests=$(count_rundirs \"${rundirsDir}\")\nsite=$(get_site_name)\n\n# Load the environment and the software environment\n. ~/.bashrc > /dev/null 2>&1\n[[ \"X${site}\" == \"XCANNON\" ]] && . ${envDir}/gcclassic.env > /dev/null 2>&1\n\n# Get the Git commit of the superproject and submodules\nhead_gcc=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n           git -C \"${codeDir}\" log --oneline --no-decorate -1)\nhead_gc=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n          git -C \"${codeDir}/src/GEOS-Chem\" log --oneline --no-decorate -1)\nhead_hco=$(export GIT_DISCOVERY_ACROSS_FILESYSTEM=1; \\\n           git -C \"${codeDir}/src/HEMCO\" log --oneline --no-decorate -1)\n\n# Site-specific settings\nif [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n\n    # SLURM\n    export allThreads=${SLURM_CPUS_PER_TASK}\n\nelif [[ \"X${site}\" == \"XCOMPUTE1\" && \"X${LSB_JOBID}\" != \"X\" ]]; then\n\n    # LSF\n    export allThreads=${LSB_DJOB_NUMPROC}\n\nelse\n\n    # Interactive\n    echo \"\"\n    echo \"Parallelization tests running...\"\n    allThreads=8\n\n    # For AWS, set $OMP_NUM_THREADS to the available cores\n    kernel=$(uname -r)\n    [[ \"x${kernel}\" == \"xaws\" ]] && export allThreads=$(nproc)\nfi\n\n# Number of cores fore the 2nd run (cannot be a divisor of ALL_CORES)\nfewerThreads=$(( ${allThreads} / 2 ))\n[[ $(( ${fewerThreads} % 2 )) -eq 0 ]] && let fewerThreads+=1\n\n# Sanity check: Max out the OMP_STACKSIZE if it is not set\n[[ \"x${OMP_STACKSIZE}\" == \"x\" ]] && export OMP_STACKSIZE=500m\n\n#============================================================================\n# Initialize results logfile\n#============================================================================\n\n# Results logfile name\nresults=\"${logsDir}/results.parallel.log\"\nrm -f \"${results}\"\n\n# Print header to results log file\nprint_to_log \"${SEP_MAJOR}\"                                     \"${results}\"\nprint_to_log \"GEOS-Chem Classic: Parallelization Test Results\"  \"${results}\"\nprint_to_log \"\"                                                 \"${results}\"\nprint_to_log \"GCClassic #${head_gcc}\"                           \"${results}\"\nprint_to_log \"GEOS-Chem #${head_gc}\"                            \"${results}\"\nprint_to_log \"HEMCO     #${head_hco}\"                           \"${results}\"\nprint_to_log \"\"                                                 \"${results}\"\nprint_to_log \"1st run uses ${allThreads} OpenMP threads\"        \"${results}\"\nprint_to_log \"2nd run uses ${fewerThreads} OpenMP threads\"      \"${results}\"\nprint_to_log \"Number of parallelization tests: ${numTests}\"     \"${results}\"\nprint_to_log \"\"                                                 \"${results}\"\nif [[ \"X${SLURM_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as SLURM job: ${SLURM_JOBID}\"       \"${results}\"\nelif  [[ \"X${LSB_JOBID}\" != \"X\" ]]; then\n    print_to_log \"Submitted as LSF job: ${LSB_JOBID}\"           \"${results}\"\nelse\n    print_to_log \"Submitted as interactive job\"                 \"${results}\"\nfi\nprint_to_log \"${SEP_MAJOR}\"                                     \"${results}\"\n\n#============================================================================\n# Run the GEOS-Chem executable in each GEOS-Chem run directory\n#============================================================================\nprint_to_log \" \"                       \"${results}\"\nprint_to_log \"Parallelization tests:\"  \"${results}\"\nprint_to_log \"${SEP_MINOR}\"            \"${results}\"\n\n# Keep track of the number of tests that passed & failed\nlet passed=0\nlet failed=0\nlet remain=${numTests}\n\n# Navigate to the directory containing individiual run directories\ncd \"${rundirsDir}\"\n\n# Loop over rundirs and run GEOS-Chem\nfor runDir in *; do\n\n    # Expand to absolute path\n    runAbsPath=\"${rundirsDir}/${runDir}\"\n\n    # Do the following if for only valid GEOS-Chem run dirs\n    expr=$(is_valid_rundir \"${runAbsPath}\")\n    if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n\n        # Define log file\n        log=\"${logsDir}/parallel.${runDir}.log\"\n        rm -f \"${log}\"\n\n        # Messages for execution pass & fail\n        passMsg=\"$runDir${FILL:${#runDir}}.....${EXE_PASS_STR}\"\n        failMsg=\"$runDir${FILL:${#runDir}}.....${EXE_FAIL_STR}\"\n\n        # Get the executable file corresponding to this run directory\n        exeFile=$(exe_name \"gcclassic\" \"${runDir}\")\n\n        # Test if the executable exists\n        if [[ -f \"${binDir}/${exeFile}\" ]]; then\n\n            #----------------------------------------------------------------\n            # If the executable file exists, we can do the tests\n            #----------------------------------------------------------------\n\n            # Change to this run directory\n            cd \"${runAbsPath}\"\n\n            # Copy the executable file here\n            cp -f \"${binDir}/${exeFile}\" .\n\n            # Remove any leftover files in the run dir\n            ./cleanRunDir.sh --no-interactive >> \"${log}\" 2>&1\n\n\t    # Change time cycle flag in HEMCO_Config.rc from EFYO to CYS,\n\t    # to allow missing species to be set a default value.\n\t    sed_ie \"s/EFYO/CYS/\"            HEMCO_Config.rc  # GC_RESTART\n\t    sed_ie \"s/EFY xyz 1/CYS xyz 1/\" HEMCO_Config.rc  # GC_BCs\n\n            #----------------------------------------------------------------\n            # First test: Use all available threads\n            #----------------------------------------------------------------\n\n            # Run GEOS-Chem Classic\n            export OMP_NUM_THREADS=${allThreads}\n            echo \"Now using ${OMP_NUM_THREADS}\" >> \"${log}\" 2>&1\n            if [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n                srun -c ${allThreads} ./${exeFile} >> \"${log}\" 2>&1\n            else\n                ./${exeFile} >> \"${log}\" 2>&1\n            fi\n\n            # Rename the end-of-run restart file\n            rename_end_restart_file \"${allThreads}\"\n\n            # Clean the run directory\n            ./cleanRunDir.sh --no-interactive >> \"${log}\" 2>&1\n\n            #----------------------------------------------------------------\n            # Second test: Use fewer cores\n            #----------------------------------------------------------------\n\n            # Run GEOS-Chem Classic\n            export OMP_NUM_THREADS=${fewerThreads}\n            echo \"Now using ${OMP_NUM_THREADS}\" >> \"${log}\" 2>&1\n            if [[ \"X${site}\" == \"XCANNON\" && \"X${SLURM_JOBID}\" != \"X\" ]]; then\n                srun -c ${fewerThreads} ./${exeFile} >> \"${log}\" 2>&1\n            else\n                ./${exeFile} >> \"${log}\" 2>&1\n            fi\n\n            # Rename the end-of-run restart file\n            rename_end_restart_file \"${fewerThreads}\"\n\n            #----------------------------------------------------------------\n            # Score the test\n            #----------------------------------------------------------------\n            score_parallelization_test \"${allThreads}\" \"${fewerThreads}\"\n            if [[ $? -eq 0 ]]; then\n                let passed++\n                print_to_log \"${passMsg}\" \"${results}\"\n            else\n                let failed++\n                print_to_log \"${failMsg}\" \"${results}\"\n            fi\n\n            # Navigate back to the folder containing run directories\n            cd \"${rundirsDir}\"\n\n        else\n\n            #----------------------------------------------------------------\n            # If the executable is missing, update the \"fail\" counter\n            # and write the \"failed\" message to the results log file.\n            #----------------------------------------------------------------\n            let failed++\n            if [[ \"x${results}\" != \"x\" ]]; then\n                print_to_log \"${failMsg}\" \"${results}\"\n            fi\n        fi\n\n        # Decrement the count of remaining tests\n        let remain--\n    fi\ndone\n\n#============================================================================\n# Check the number of simulations that have passed\n#============================================================================\n\n# Print summary to log\nprint_to_log \" \"                                                  \"${results}\"\nprint_to_log \"Summary of test results:\"                           \"${results}\"\nprint_to_log \"${SEP_MINOR}\"                                       \"${results}\"\nprint_to_log \"Parallelization tests passed: ${passed}\"            \"${results}\"\nprint_to_log \"Parallelization tests failed: ${failed}\"            \"${results}\"\nprint_to_log \"Parallelization tests not yet completed: ${remain}\" \"${results}\"\n\n# Check for success\nif [[ \"X${passed}\" == \"X${numTests}\" ]]; then\n\n    #--------------------------\n    # Successful execution\n    #--------------------------\n    print_to_log \"\"                                               \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\"    \"${results}\"\n    print_to_log \"%%%  All parallelization tests passed!  %%%\"    \"${results}\"\n    print_to_log \"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\"    \"${results}\"\n\n    # Print success (if interactive)\n    if [[ \"X${SLURM_JOBID}\" == \"X\" && \"X${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Parallelization tests finished!\"\n    fi\n\nelse\n\n    #--------------------------\n    # Unsuccessful execution\n    #--------------------------\n    if [[ \"X${SLURM_JOBID}\" == \"x\" && \"x${LSB_JOBID}\" == \"X\" ]]; then\n        echo \"\"\n        echo \"Parallelization tests failed!  Exiting ...\"\n    fi\nfi\n\n#============================================================================\n# Cleanup and quit\n#============================================================================\n\n# Free local variables\nunset binDir\nunset codeDir\nunset envDir\nunset exeFile\nunset failed\nunset failmsg\nunset head_gcc\nunset head_gc\nunset head_hco\nunset log\nunset logsDir\nunset numTests\nunset passed\nunset passMsg\nunset ptRoot\nunset remain\nunset results\nunset rundirsDir\nunset scheduler\n\n# Free imported global variables\nunset FILL\nunset LINE\nunset CMP_PASS_STR\nunset CMP_FAIL_STR\nunset EXE_PASS_STR\nunset EXE_FAIL_STR\n#EOC\n"
  },
  {
    "path": "test/parallel/README.md",
    "content": "# README for Parallelization Tests\n\n## Contents\n\n`GCClassic`\n- Contains scripts for running parallelization tests for GEOS-Chem Classic.\n"
  },
  {
    "path": "test/shared/.gitignore",
    "content": "*.[oax]\n*.mod\n*.MOD\n*~*\n*.swp\n*.bak\n*.patch\n*.diff\ndiffs\nbak\nmisc\n*.pp.*\n*.pdb\n*.inst.*\n*.continue.*\n*.ppk\n*.log\nbin/*\nbuild/\nbuild_*/\n*___.h\n*___.rc\ncore.*"
  },
  {
    "path": "test/shared/README.md",
    "content": "# README: Shared settings and functions for tests\n\n## Contents\n\n`commonFunctionsForTests.sh`\n- Script with common settings and functions that are used by the difference test, integration test, and parallel test scripts located in `../difference`, `../integration`, and `../parallel`, respectively. \n- The functions and settings in `commonFunctionsForTests.sh` are made available to the various scripts by the command:\n  ```bash\n  . commonFunctionsForTests.sh\n  ```\n\n"
  },
  {
    "path": "test/shared/alldiags/Planeflight.dat.20190701",
    "content": "Planeflight.dat -- Input file for planeflight diagnostic\nGCST\n29 Jul 2024\n-----------------------------------------------------------\n14       <-- # of variables to be output (listed below)\n-----------------------------------------------------------\nTRA_001\nTRA_002\nO3\nOH\nRO2\nAN\nNOy\nGMAO_TEMP\nAODC_SULF\nAODB_SULF\nTIME_LT\nAQAER_RAD\nAQAER_SURF\nJVL_001\n-----------------------------------------------------------\n  Now give the times and locations of the flight\n-----------------------------------------------------------\nPOINT   TYPE DD-MM-YYYY HH:MM     LAT     LON   PRESS        OBS\n    1   DC-8 01-07-2019 00:05   34.39  -95.00  757.33   9999.000\n    2   DC-8 01-07-2019 00:07   34.53  -95.08  668.89   9999.000\n    3   DC-8 01-07-2019 00:09   34.70  -95.16  574.40   9999.000\n    4   DC-8 01-07-2019 00:10   34.86  -95.26  484.89   9999.000\n    5   DC-8 01-07-2019 00:12   35.03  -95.35  433.15   9999.000\n    6   DC-8 01-07-2019 00:14   35.21  -95.46  428.34   9999.000\n    7   DC-8 01-07-2019 00:16   35.39  -95.56  428.38   9999.000\n    8   DC-8 01-07-2019 00:17   35.57  -95.67  428.47   9999.000\n    9   DC-8 01-07-2019 00:19   35.75  -95.78  428.47   9999.000\n   10   DC-8 01-07-2019 00:24   36.34  -95.95  428.52   9999.000\n   11   DC-8 01-07-2019 00:26   36.53  -95.99  428.31   9999.000\n   12   DC-8 01-07-2019 00:28   36.73  -96.01  428.36   9999.000\n   13   DC-8 01-07-2019 00:30   36.93  -96.00  428.75   9999.000\n   14   DC-8 01-07-2019 00:31   37.09  -96.14  428.42   9999.000\n   15   DC-8 01-07-2019 00:33   37.25  -96.28  428.45   9999.000\n   16   DC-8 01-07-2019 00:35   37.41  -96.41  428.55   9999.000\n   17   DC-8 01-07-2019 00:37   37.57  -96.55  428.55   9999.000\n   18   DC-8 01-07-2019 00:38   37.72  -96.69  428.50   9999.000\n   19   DC-8 01-07-2019 00:40   37.88  -96.83  433.37   9999.000\n   20   DC-8 01-07-2019 00:42   38.02  -96.96  508.21   9999.000\n   21   DC-8 01-07-2019 00:44   38.16  -97.08  547.75   9999.000\n   22   DC-8 01-07-2019 00:45   38.29  -97.21  592.62   9999.000\n   23   DC-8 01-07-2019 00:47   38.38  -97.36  678.79   9999.000\n   24   DC-8 01-07-2019 00:49   38.46  -97.50  754.43   9999.000\n   25   DC-8 01-07-2019 00:51   38.53  -97.63  805.60   9999.000\n99999    END 00-00-0000 00:00    0.00    0.00    0.00      0.000"
  },
  {
    "path": "test/shared/commonFunctionsForTests.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: commonFunctionsForTests.sh\n#\n# !DESCRIPTION: Contains common functions that are used by the test scripts.\n#\\\\\n#\\\\\n# !REVISION HISTORY:\n#  03 Nov 2020 - R. Yantosca - Initial version\n#  See the subsequent Git history with the gitk browser!\n#\n# !REMARKS:\n#  NOTE: Integration tests and parallelization tests run for 1 hour.\n#  The exceptions are the nested-grid simulation tests, which run for 20\n#  minutes due to the smaller dynamic timestep.\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Global variables\nFILL=$(printf '.%.0s' {1..47})\nSEP_MAJOR=$(printf '=%.0s' {1..78})\nSEP_MINOR=$(printf '\\055%.0s' {1..78})\nSED_CONFIG_1='s/end_date: \\[20110201, 000000\\]/end_date: \\[20110101, 010000\\]/'\nSED_CONFIG_2='s/start_date: \\[20160101, 000000\\]/start_date: \\[20190101, 000000\\]/'\nSED_CONFIG_3='s/end_date: \\[20160201, 000000\\]/end_date: \\[20190101, 010000\\]/'\nSED_CONFIG_4='s/end_date: \\[20160101, 000000\\]/end_date: \\[20190101, 010000\\]/'\nSED_CONFIG_5='s/end_date: \\[20190201, 000000\\]/end_date: \\[20190101, 010000\\]/'\nSED_CONFIG_6='s/end_date: \\[20190801, 000000\\]/end_date: \\[20190701, 010000\\]/'\nSED_CONFIG_7='s/end_date: \\[20900801, 000000\\]/end_date: \\[20900701, 002000\\]/'\nSED_CONFIG_N1='s/end_date: \\[20190201, 000000\\]/end_date: \\[20190101, 002000\\]/'\nSED_CONFIG_N2='s/end_date: \\[20190801, 000000\\]/end_date: \\[20190701, 002000\\]/'\nSED_CONFIG_N3='s/end_date: \\[20230201, 000000\\]/end_date: \\[20230101, 002000\\]/'\nSED_HEMCO_CONF_1='s/DiagnFreq:                   Monthly/DiagnFreq:                   00000000 010000/'\nSED_HEMCO_CONF_2='s/DiagnFreq:                   Monthly/DiagnFreq:                   00000000 002000/'\nSED_HISTORY_RC_1='s/00000... 0..000/00000000 010000/'\nSED_HISTORY_RC_N='s/00000... 0..000/00000000 002000/'\nCMP_PASS_STR='Configure & Build.....PASS'\nCMP_FAIL_STR='Configure & Build.....FAIL'\nEXE_PASS_STR='Execute Simulation....PASS'\nEXE_FAIL_STR='Execute Simulation....FAIL'\nEXE_TBD_STR='Execute Simulation....TBD'\nEXE_GCC_BUILD_LIST=(\"default\" \"apm\"   \"carbon\"  \"hg\"       \\\n                    \"luowd\"   \"rrtmg\" \"tomas15\" )\nEXE_GCHP_BUILD_LIST=(\"default\" \"carbon\" \"rrtmg\" \"tomas15\")\nEND_hhmm_1h=\"0100z.nc4\"\nEND_hhmm_20m=\"0020z.nc4\"\nPAR_TEST_SUFFIX=\"threads\"\nBIN_DIR=\"bin\"\nBUILD_DIR=\"build\"\nENV_DIR=\"env\"\nLOGS_DIR=\"logs\"\nRUNDIRS_DIR=\"rundirs\"\nSCRIPTS_DIR=\"scripts\"\nUTILS_DIR=\"utils\"\n\n\nfunction sed_ie() {\n    #========================================================================\n    # Replacement for `sed -i -e` that works on both MacOS and Linux\n    #\n    # 1st argument = regular expression\n    # 2nd argument = file to be edited\n    #========================================================================\n    regex=\"${1}\"\n    file=\"${2}\"\n    if [[ \"X$(uname -s)\" == \"XDarwin\" ]]; then\n        sed -i '' -e \"${regex}\" \"${file}\"          # MacOS/Darwin\n    else\n        sed -i -e \"${regex}\" \"${file}\"             # GNU/Linux\n    fi\n}\n\n\nfunction sed_string() {\n    #========================================================================\n    # Returns a sed command string to replace a substring in a line of text.\n    #\n    # 1st argument = String of text\n    # 2nd argument = Substring\n    # 3rd argument = Replacement substring\n    #========================================================================\n    text=${1//\\//\\\\\\/}                # Replace '/' with '\\/'\n    text=${text//\\*/\\\\\\*}             # Replace '*' with '\\*'\n    text=${text//\\./\\\\\\.}             # Replace '.' with '\\.'\n    text=${text//\\$/\\\\\\$}             # Replace '$' with '\\$'\n    newText=${text/\"${2}\"/\"${3}\"}     # Repace substr w/ replacement str\n    echo \"s/${text}/${newText}/\"  # Create sed command\n}\n\n\nfunction absolute_path() {\n    #========================================================================\n    # Returns the absolute path from a relative path\n    #\n    # 1st argument = relative path\n    #========================================================================\n    if [[ -d \"${1}\" ]]; then\n        absPath=$(readlink -f \"${1}\")   # If directory exists, use readlink\n    else\n        absPath=\"${1/#\\~/$HOME}\"        # Otherwise, replace ~ with $HOME\n    fi\n    echo \"${absPath}\"\n}\n\n\nfunction is_valid_rundir() {\n    #========================================================================\n    # Function that tests if a file is a valid GEOS-Chem run directory\n    #\n    # 1st argument: File or directory to be tested\n    #========================================================================\n    if [[ -d \"${1}\" ]]; then\n        if [[ -f \"${1}/geoschem_config.yml\" && \\\n          -f \"${1}/HEMCO_Config.rc\" ]]; then\n            echo \"TRUE\"\n            return\n        fi\n    fi\n    echo \"FALSE\"\n}\n\n\nfunction is_gchp_rundir() {\n    #========================================================================\n    # Function that tests if a run directory is a GCHP run directory\n    #\n    # 1st argument: Directory to be tested\n    #========================================================================\n    expr=$(is_valid_rundir \"${1}\")\n    if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n        if [[ -f \"${1}/CAP.rc\" ]]; then\n            echo \"TRUE\"\n            return\n        fi\n    fi\n    echo \"FALSE\"\n}\n\n\nfunction count_rundirs() {\n    #========================================================================\n    # Returns the number of run directories in the root folder.\n    #\n    # 1st argument: Top-level folder where run directories are created\n    #========================================================================\n    rundirsDir=\"${1}\"\n    thisDir=$(pwd -P)\n\n    # Count run directories\n    cd \"${rundirsDir}\"\n    declare -i x=0\n    for runDir in *; do\n        expr=$(is_valid_rundir \"${runDir}\")\n        if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n            let x++\n        fi\n    done\n    cd \"${thisDir}\"\n\n    # Cleanup and quit\n    echo $x\n}\n\n\nfunction update_gchp_config_files() {\n    #========================================================================\n    # Returns the number of run directories in the root folder.\n    #\n    # 1st argument: Root directory containing several GC run directories\n    # 2nd argument: Integration test root directory\n    #========================================================================\n    runPath=$(absolute_path \"${1}\")           # GCHP run dir (abs path)\n\n    # Edit config file setCommonRunSettings.sh\n    file=\"${runPath}/setCommonRunSettings.sh\"\n\n    # 24 cores on 1 node\n    sed_ie \"s/TOTAL_CORES=.*/TOTAL_CORES=24/\"                       \"${file}\"\n    sed_ie \"s/NUM_NODES=.*/NUM_NODES=1/\"                            \"${file}\"\n    sed_ie \"s/NUM_CORES_PER_NODE=.*/NUM_CORES_PER_NODE=24/\"         \"${file}\"\n\n    # C24 grid resolution\n    sed_ie \"s/CS_RES=.*/CS_RES=24/\"                                 \"${file}\"\n\n    # 1-hr duration\n    sed_ie \"s/Run_Duration=\\\".*/Run_Duration=\\\"00000000 010000\\\"/\"  \"${file}\"\n\n    # 1-hr diagnostics\n    sed_ie \"s/AutoUpdate_Diagnostics=.*/AutoUpdate_Diagnostics=ON/\" \"${file}\"\n    sed_ie \"s/Diag_Monthly=\\\"1\\\".*/Diag_Monthly=\\\"0\\\"/\"             \"${file}\"\n    sed_ie \"s/Diag_Frequency=\\\".*/Diag_Frequency=\\\"010000\\\"/\"       \"${file}\"\n    sed_ie \"s/Diag_Duration=\\\".*/Diag_Duration=\\\"010000\\\"/\"         \"${file}\"\n\n    # Do not require species in restart file\n    sed_ie \"s/Require_Species_in_Restart=.*/Require_Species_in_Restart=0/\" \"${file}\"\n}\n\nfunction update_config_files() {\n    #========================================================================\n    # Function to replace text in rundir config files\n    #\n    # 1st argument = Integration tests root path\n    # 2nd argument = GEOS-Chem run directory name\n    #========================================================================\n    runPath=$(absolute_path \"${1}\")     # GEOS-Chem rundir (abs path)\n\n    #------------------------------------------------------------------------\n    # Replace text in geoschem_config.yml\n    #------------------------------------------------------------------------\n\n    # For nested-grid fullchem runs, change simulation time to 20 minutes\n    # in order to reduce the run time of the whole set of integration tests.\n    if grep -q \"05x0625\" <<< \"${runPath}\"; then\n        sed_ie \"${SED_CONFIG_N1}\" \"${runPath}/geoschem_config.yml\"\n        sed_ie \"${SED_CONFIG_N2}\" \"${runPath}/geoschem_config.yml\"\n    elif grep -q \"025x03125\" <<< \"${runPath}\"; then\n        sed_ie \"${SED_CONFIG_N1}\" \"${runPath}/geoschem_config.yml\"\n    elif grep -q \"0125x015625\" <<< \"${runPath}\"; then\n\tsed_ie \"${SED_CONFIG_N3}\" \"${runPath}/geoschem_config.yml\"\n    fi\n\n    # Other text replacements\n    sed_ie \"${SED_CONFIG_1}\" \"${runPath}/geoschem_config.yml\"\n    sed_ie \"${SED_CONFIG_2}\" \"${runPath}/geoschem_config.yml\"\n    sed_ie \"${SED_CONFIG_3}\" \"${runPath}/geoschem_config.yml\"\n    sed_ie \"${SED_CONFIG_4}\" \"${runPath}/geoschem_config.yml\"\n    sed_ie \"${SED_CONFIG_5}\" \"${runPath}/geoschem_config.yml\"\n    sed_ie \"${SED_CONFIG_6}\" \"${runPath}/geoschem_config.yml\"\n    sed_ie \"${SED_CONFIG_7}\" \"${runPath}/geoschem_config.yml\"\n\n    #------------------------------------------------------------------------\n    # Replace text in HEMCO_Config.rc\n    #------------------------------------------------------------------------\n\n    # Update DiagnFreq for nested or global simulations\n    if grep -q \"_NA\" <<< \"${runPath}\"; then\n        sed_ie \"${SED_HEMCO_CONF_2}\" \"${runPath}/HEMCO_Config.rc\"\n    else\n        sed_ie \"${SED_HEMCO_CONF_1}\" \"${runPath}/HEMCO_Config.rc\"\n    fi\n\n    #------------------------------------------------------------------------\n    # Replace text in HISTORY.rc\n    #------------------------------------------------------------------------\n\n    if grep -q \"_NA\" <<< \"${runPath}\"; then\n\n\t# For nested-grid fullchem runs, change frequency and duration\n\t# to 20 mins to reduce the run time of the whole set of tests.\n\tsed_ie \"${SED_HISTORY_RC_N}\" \"${runPath}/HISTORY.rc\"\n\n    elif grep -q \"ModelE2.1\" <<< \"${runPath}\"; then\n\n\t# For ModelE2.1 fullchem runs, change frequency and duration to 20\n\t# mins to reduce the run time of the whole set of integration tests.\n        sed_ie \"${SED_HISTORY_RC_N}\" \"${runPath}/HISTORY.rc\"\n\n    else\n\n\t# Otherwise change frequency & duration to 1 hour\n\tsed_ie \"${SED_HISTORY_RC_1}\" \"${runPath}/HISTORY.rc\"\n    fi\n}\n\n\nfunction create_rundir() {\n    #========================================================================\n    # Calls createRunDir.sh with appropriate arguments\n    #\n    # 1st argument: Commands to forcefeed into createRunDir.sh\n    # 2nd argument: Log file where stdout & stderr will be redirected\n    # 3rd argument: Integration test root directory\n    #\n    # NOTE: Run directories will be created with default names.\n    #========================================================================\n    cmd=\"${1}\"                     # Command for createRunDir.sh\n    log=$(absolute_path \"${2}\")    # Log file for output of createRunDir.sh\n    logTmp=\"${log}.tmp\"            # Temporary log file\n    logTmp2=\"${log}.tmp.tmp\"       # Temporary log file\n    runPath=\"\"                     # Path to run directory (abs path)\n\n    # Create run dir for a short simulation\n    printf \"${cmd}\" | ./createRunDir.sh > \"${logTmp}\" 2>&1\n\n    # Get the absolute rundir path from the output of createRunDir.sh\n    runPath=$(grep -E \"Created\" \"${logTmp}\")\n    runPath=${runPath/Created /}\n    printf \" ... ${runPath}\\n\"\n\n    # Now concatenate the temporary log into the log file\n    # (Or create the log file if it doesn't yet exist)\n    if [[ -f \"${log}\" ]]; then\n        cat \"${log}\" \"${logTmp}\" >> \"${logTmp2}\"\n        mv -f \"${logTmp2}\" \"${log}\"\n        rm -f \"${logTmp}\"\n    else\n        mv \"${logTmp}\" \"${log}\"\n    fi\n\n    # Change start & end dates etc. in rundir configuration files\n    update_config_files \"${runPath}\"\n\n    # If this is a GCHP run directory, then also replace text in\n    # GCHP-specific rundir configuration files etc.\n    expr=$(is_gchp_rundir \"${runPath}\")\n    if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n        update_gchp_config_files \"${runPath}\"\n    fi\n\n    # Remove temporary logs\n    rm -rf \"${logTmp} ${logTmp2}\"\n}\n\n\nfunction cleanup_files() {\n    #========================================================================\n    # Removes all files and directories in a root folder\n    #\n    # 1st argument = root folder for tests (w/ many rundirs etc)\n    #========================================================================\n    itRoot=\"${1}\"\n    if [[ \"X${itRoot}\" != \"X\" ]]; then\n\n    # Exit if directory is already empty\n    if [[ ! $(ls -A \"${itRoot}\") ]]; then\n        echo \"${itRoot} is empty... nothing to clean up!\"\n        return 0\n    fi\n\n    # Give user a chance to avoid removing files\n    printf \"\\nRemoving files and directories in ${itRoot}:\\n\"\n    printf \"If this is OK, type 'yes to proceed or 'no' to quit:\\n\"\n    read answer\n    if [[ ! \"${answer}\" =~ [Yy][Ee][Ss] ]]; then\n        printf \"Exiting...\\n\"\n        exit 1\n    fi\n\n    # Remove files and unlink links\n    printf \"Removing ...\\n\"\n    for entry in ${itRoot}/*; do\n        printf \" ... ${entry}\\n\";\n        [[ -L ${entry} ]] && unlink ${entry}\n        [[ -e ${entry} ]] && rm -rf ${entry}\n    done\n    fi\n}\n\n\nfunction print_to_log() {\n    #========================================================================\n    # Prints a message (single line) to a log file\n    #\n    # 1st argument: Message to be printed\n    # 2nd argument: Log file where message will be sent\n    #========================================================================\n    printf \"%s\\n\" \"${1}\" >> \"${2}\" 2>&1\n}\n\n\nfunction exe_name() {\n    #========================================================================\n    # Returns the executable name given a directory name\n    #\n    # 1st argument: Model (GCClassic or GCHP)\n    # 2nd argument: Build directory name\n    #========================================================================\n    model=\"${1}\"\n    buildDir=\"${2}\"\n\n    # Turn on case-insensitivity\n    shopt -s nocasematch\n\n    # Default executable name\n    exeFileName=\"none\"\n    [[ \"X${model}\" == \"Xgcclassic\" ]] && exeFileName=\"${model}\"\n    [[ \"X${model}\" == \"Xgchp\"      ]] && exeFileName=\"${model}\"\n\n    # Append a suffix to the executable file name for specific directories\n    if [[ \"X${model}\" == \"Xgcclassic\" ]]; then\n    for suffix in ${EXE_GCC_BUILD_LIST[@]}; do\n        if [[ \"${buildDir}\" =~ \"${suffix}\" ]]; then\n        exeFileName+=\".${suffix}\"\n        break\n        fi\n    done\n    elif [[ \"X${model}\" == \"Xgchp\" ]]; then\n    for suffix in ${EXE_GCHP_BUILD_LIST[@]}; do\n        if [[ \"${buildDir}\" =~ \"${suffix}\" ]]; then\n        exeFileName+=\".${suffix}\"\n        break\n        fi\n    done\n    fi\n\n    # Turn off case-insensitivity\n    shopt -u nocasematch\n\n    # Return\n    echo \"${exeFileName}\"\n}\n\n\nfunction config_options() {\n    #========================================================================\n    # Returns the configuration options given a directory name\n    #\n    # 1st argument: Model type (\"gcclassic\" or \"gchp\")\n    # 2nd argument: Directory name\n    # 3rd argument: Base compilation options\n    #========================================================================\n\n    # Arguments\n    model=\"${1}\"\n    dir=$(basename \"${2}\")  # Only take last part of path\n    baseOptions=\"${3}\"\n\n    # Local variables\n    exeFileName=$(exe_name \"${model}\" \"${dir}\" )\n\n    # Turn on case-insensitivity\n    shopt -s nocasematch\n\n    # Pick the proper build options\n    if [[ ${dir} =~ \"apm\" ]]; then\n        options=\"${baseOptions} -DAPM=y -DEXE_FILE_NAME=${exeFileName}\"\n    elif [[ ${dir} =~ \"carbon\" ]]; then\n        options=\"${baseOptions} -DMECH=carbon -DEXE_FILE_NAME=${exeFileName}\"\n    elif [[ ${dir} =~ \"hg\" ]]; then\n        options=\"${baseOptions} -DMECH=Hg -DFASTJX=y -DEXE_FILE_NAME=${exeFileName}\"\n    elif [[ ${dir} =~ \"luowd\" ]]; then\n        options=\"${baseOptions} -DLUO_WETDEP=y -DEXE_FILE_NAME=${exeFileName}\"\n    elif [[ ${dir} =~ \"rrtmg\" ]]; then\n        options=\"${baseOptions} -DRRTMG=y -DEXE_FILE_NAME=${exeFileName}\"\n    elif [[ ${dir} =~ \"tomas15\" ]]; then\n        options=\"${baseOptions} -DTOMAS=y -DTOMAS_BINS=15 -DEXE_FILE_NAME=${exeFileName}\"\n    else\n        options=\"${baseOptions}\"\n    fi\n\n    # Turn off case-insensitivity\n    shopt -u nocasematch\n\n    # Return\n    echo \"${options}\"\n}\n\n\nfunction compiletest_name() {\n    #========================================================================\n    # Returns the GCClassic configuration options given a directory name\n    #\n    # 1st argument: Model name ('gcclassic' or 'gchp')\n    # 2nd argument: Build directory name\n    #========================================================================\n    model=\"${1}\"\n    buildDir=$(basename \"${2}\")   # Only take last part of path\n\n    # Display the proper model name\n    [[ \"X${model}\" == \"Xgcclassic\" ]] && displayName=\"GCClassic\"\n    [[ \"X${model}\" == \"Xgchp\"      ]] && displayName=\"GCHP\"\n\n    # Turn on case-insensitivity\n    shopt -s nocasematch\n\n    # Pick the proper build options\n    if [[ \"${buildDir}\" =~ \"apm\" ]]; then\n        result=\"${displayName} with APM\"\n    elif [[ \"${buildDir}\" =~ \"carbon\" ]]; then\n        result=\"${displayName} w/ carbon gases (as a KPP mechanism)\"\n    elif [[ \"${buildDir}\" =~ \"luowd\" ]]; then\n        result=\"${displayName} with Luo et al wetdep\"\n    elif [[ \"${buildDir}\" =~ \"hg\" ]]; then\n        result=\"${displayName} with Hg (as a KPP mechanism)\"\n    elif [[ \"${buildDir}\" =~ \"rrtmg\" ]]; then\n        result=\"${displayName} with RRTMG\"\n    elif [[ \"${buildDir}\" =~ \"tomas15\" ]]; then\n        result=\"${displayName} with TOMAS15\"\n    else\n        result=\"${displayName}\"\n    fi\n\n    # Turn off case-insensitivity\n    shopt -u nocasematch\n\n    # Return\n    echo \"${result}\"\n}\n\n\nfunction build_model() {\n    #========================================================================\n    # Configures and compiles GEOS-Chem (Classic or GCHP) for\n    # CMAKE_BUILD_TYPE=Debug.\n    #\n    # 1st argument = Model name ('gcclassic' or 'gchp')\n    # 2nd argument = Root folder for tests (w/ many rundirs etc)\n    # 3rd argument = CMake build directory\n    # 4th argument = Base compilation options\n    # 5th argument = Log file where stderr and stdout will be redirected\n    # 6th argument = Log file where results will be printed\n    #========================================================================\n\n    # Arguments\n    model=\"${1}\"\n    itRoot=$(absolute_path \"${2}\")\n    thisBuildDir=\"${3}\"\n    baseOptions=\"${4}\"\n    log=\"${5}\"\n    results=\"${6}\"\n\n    # Stop with error if the model name is invalid\n    if [[ \"X${model}\" != \"Xgcclassic\" && \"X${model}\" != \"Xgchp\" ]]; then\n        echo \"ERROR: '${model}' is an invalid model name!\"\n        echo \"Exiting in 'build_model' (in 'commonFunctionsForTests.sh')\"\n        exit 1\n    fi\n\n    # Local variables\n    codeDir=\"${itRoot}/CodeDir\"\n    configOptions=$(config_options \"${model}\" \"${thisBuildDir}\" \"${baseOptions}\")\n    message=$(compiletest_name \"${model}\" \"${thisBuildDir}\")\n    passMsg=\"$message${FILL:${#message}}.....${CMP_PASS_STR}\"\n    failMsg=\"$message${FILL:${#message}}.....${CMP_FAIL_STR}\"\n\n    # Change to the build directory\n    cd \"${thisBuildDir}\"\n\n    #---------------------------------------\n    # Code configuration\n    #---------------------------------------\n    # Note: do not put quotes around configOptions, as bash will treat\n    # it as a single string rather than individual options.\n    cmake \"${codeDir}\" ${configOptions} >> \"${log}\" 2>&1\n    if [[ $? -ne 0 ]]; then\n        if [[ \"x${results}\" != \"x\" ]]; then\n            print_to_log \"${failMsg}\" \"${results}\"\n        fi\n        return 1\n    fi\n\n    #----------------------------------------\n    # Code compilation and installation\n    #----------------------------------------\n    make -j install >> \"${log}\" 2>&1\n    if [[ $? -ne 0 ]]; then\n        if [[ \"x${results}\" != \"x\" ]]; then\n            print_to_log \"${failMsg}\" \"${results}\"\n        fi\n        return 1\n    fi\n\n    #----------------------------------------\n    # Cleanup & quit\n    #----------------------------------------\n\n    # If we have gotten this far, the run passed,\n    # so update the results log file accordingly\n    print_to_log \"${passMsg}\" \"${results}\"\n}\n\n\nfunction rename_end_restart_file() {\n    #========================================================================\n    # Appends a suffix to the ending restart file in order to denote\n    # the number of cores that were used.\n    #\n    # 1st argument: Number of OpenMP threads\n    #========================================================================\n    suffix=\"${1}${PAR_TEST_SUFFIX}\"\n\n    # Rename the ending restart file\n    for r in Restarts/*.nc4; do\n        if [[ \"${r}\" =~ \"${END_hhmm_1h}\" || \"${r}\" =~ \"${END_hhmm_20m}\" ]]; then\n            newRstFile=\"${r}.${suffix}\"\n            mv -f \"${r}\" \"${newRstFile}\"\n            [[ -f \"${newRstFile}\" ]] && return 0\n        fi\n    done\n    return 1\n}\n\n\nfunction score_parallelization_test() {\n    #========================================================================\n    # Determines if the parallelization test was successful by checking\n    # that the restart files from both runs are bitwise identical.\n    #\n    # 1st argument: Number of OpenMP threads used in 1st parallel test run\n    # 2nd argument: Number of OpenMP threads used in 2nd parallel test run\n    #========================================================================\n\n    # Restart file names from both parallel test runs\n    rstFile1=$(ls -1 Restarts/*.nc4* | grep \"${1}${PAR_TEST_SUFFIX}\")\n    rstFile2=$(ls -1 Restarts/*.nc4* | grep \"${2}${PAR_TEST_SUFFIX}\")\n\n    # Exit if eiher restart file does not exist\n    [[ ! -f \"$rstFile1\" ]] && return 1\n    [[ ! -f \"$rstFile2\" ]] && return 1\n\n    # If the files are bitwise identical then the parallel test is successful\n    diff \"$rstFile1\" \"$rstFile2\"\n    return $?\n}\n\n\nfunction print_bootstrap_info_message() {\n    #========================================================================\n    # Prints a message to indicate if species bootstrapping is enabled.\n    #\n    # 1st argument: Enable (\"yes\") or disable (\"no\") bootstrapping\n    #========================================================================\n    if [[ \"X${1}\" == \"XYES\" ]]; then\n        echo \"\"\n        echo \"%%%%% Species not found in the restart file will   %%%%%\"\n        echo \"%%%%% be bootstrapped (i.e. set to default values) %%%%%\"\n    else\n        echo \"\"\n        echo \"%%%%% Integration tests will fail unless all %%%%%\"\n        echo \"%%%%% species are found in the restart file! %%%%%\"\n    fi\n}\n\n\nfunction change_time_cycle_flags() {\n    #========================================================================\n    # Changes the HEMCO time cycle flag for a given HEMCO container.\n    #\n    # 1st argument = HEMCO configuration file\n    # 2nd argument = HEMCO container\n    # 3rd argument = Old time cycle flag\n    # 4th argument = New time cycle flag\n    #========================================================================\n    hcoCfg=\"${1}\"\n    hcoCont=\"${2}\"\n    oldFlag=\"${3}\"\n    newFlag=\"${4}\"\n\n    # Search for the container in HEMCO configuration file\n    # The set -f prevents * from being expanded to a file listing\n    set -f\n    text=$(grep \"${hcoCont}\" \"${hcoCfg}\")\n    unset -f\n\n    # Replace the time cycle flag for the container\n    if [[ \"X${text}\" != \"X\" ]]; then\n\tsedCmd=$(sed_string \"${text}\" \"${oldFlag}\" \"${newFlag}\")\n\tsed_ie \"${sedCmd}\" \"${hcoCfg}\"\n    fi\n}\n\n\nfunction gcc_enable_or_disable_bootstrap() {\n    #========================================================================\n    # Edits HEMCO_Config.rc files to enable or disable \"bootstrapping\",\n    # which is setting missing restart file variables to default values.\n    #\n    # 1st argument: Enable (\"yes\") or disable (\"no\") bootstrapping\n    # 2nd argument: Directory containing integration test rundirs\n    #========================================================================\n    bootStrap=\"${1}\"\n    rundirsDir=\"${2}\"\n\n    print_bootstrap_info_message \"${bootStrap}\"\n\n    # Loop over rundirs\n    for runDir in ${rundirsDir}/*; do\n\n        # Do the following if for only valid GEOS-Chem run dirs\n        expr=$(is_valid_rundir \"${runDir}\")\n        if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n\n            # Specify path HEMCO_Config.rc\n            hcoCfg=\"${runDir}/HEMCO_Config.rc\"\n\n            if [[ \"X${bootStrap}\" == \"XYES\" ]]; then\n\t\t# Set missing species in restarts & BC files to defaults\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"SPC_ \"   \"EFYO\" \"CYS\"\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"SPC_ \"   \"EY\"   \"CYS\"\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"DELPDRY\" \"EY\"   \"CYS\"\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"BC_ \"    \"EFY\"  \"CYS\"\n            else\n\t\t# Halt run if species are missing from restarts & BC files\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"SPC_ \" \"CYS\"  \"EFYO\"\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"SPC_ \" \"EY\"   \"EFYO\"\n\t\tchange_time_cycle_flags \"${hcoCfg}\" \"BC_ \"  \"CYS\"  \"EFY\"\n            fi\n        fi\n    done\n}\n\n\nfunction gchp_enable_or_disable_bootstrap() {\n    #========================================================================\n    # Edits HEMCO_Config.rc files to enable or disable \"bootstrapping\",\n    # which is setting missing restart file variables to default values.\n    #\n    # 1st argument: Enable (\"yes\") or disable (\"no\") bootstrapping\n    # 2nd argument: Directory containing integration test rundirs\n    #========================================================================\n    bootStrap=\"${1}\"\n    rundirsDir=\"${2}\"\n\n    print_bootstrap_info_message \"${bootStrap}\"\n\n    # Loop over rundirs\n    for runDir in ${rundirsDir}/*; do\n\n        # Do the following if for only valid GEOS-Chem run dirs\n        expr=$(is_gchp_rundir \"${runDir}\")\n        if [[ \"X${expr}\" == \"XTRUE\" ]]; then\n\n            # Specify path HEMCO_Config.rc\n            script=\"${runDir}/setCommonRunSettings.sh\"\n\n            if [[ \"X${bootStrap}\" == \"XYES\" ]]; then\n                # Set missing restart file variables to defaults\n                sed_ie \"s/Require_Species_in_Restart=./Require_Species_in_Restart=0/\" \"${script}\"\n            else\n                # Don't set missing restart file variables to defaults\n                sed_ie \"s/Require_Species_in_Restart=./Require_Species_in_Restart=1/\" \"${script}\"\n            fi\n        fi\n    done\n}\n\n\nfunction get_site_name() {\n    #========================================================================\n    # Returns the site name based on the node name (i.e. uname -n)\n    #========================================================================\n    nodeName=$(uname -n)\n    [[ \"${nodeName}\" =~ 'harvard.edu' ]] && echo \"CANNON\"\n    [[ \"${nodeName}\" =~ 'wustl.edu'   ]] && echo \"COMPUTE1\"\n    return 0\n}\n\n\nfunction get_sed_partition_cmd_from_site() {\n    #========================================================================\n    # Returns the sed command to replace the partition name in scripts\n    #\n    # 1st argument: Site name (cannon|compute1)\n    #========================================================================\n    [[ \"X${1}\" == \"XCANNON\"   ]] && p=\"sapphire,huce_cascade,seas_compute,shared\"\n    [[ \"X${1}\" == \"XCOMPUTE1\" ]] && p=\"rvmartin\"\n    echo \"s/REQUESTED_PARTITION/${p}/\"\n    return 0\n}\n\n\nfunction get_default_gcc_env_file() {\n    #========================================================================\n    # Returns the default environment file for GEOS-Chem Classic\n    #========================================================================\n    envFile=$(realpath \"../../../run/GCClassic/runScriptSamples/operational_examples/harvard_cannon/gcclassic.gcc12_cannon_rocky.env\")\n    echo \"$envFile\"\n    return 0\n}\n\n\nfunction get_default_gchp_env_file() {\n    #========================================================================\n    # Returns the default environment file for GCHP\n    #========================================================================\n    envFile=$(realpath \"../../../run/GCHP/runScriptSamples/operational_examples/harvard_cannon/gchp.gcc12_openmpi4_cannon_rocky.env\")\n    echo \"$envFile\"\n    return 0\n}\n\n\nfunction print_submodule_head_commits() {\n    #========================================================================\n    # Print the head commits for each Git submodule #####\n    #\n    # 1st argument: Number of pad characters before commit line starts\n    # 2nd argument: Path to top-level code directory\n    # 3rd argument: Log file where output will be written\n    #========================================================================\n    export GIT_DISCOVERY_ACROSS_FILESYSTEM=1\n    n_pad=${1}\n    baseDir=$(basename \"${2}\")\n    pad=\"                       \"\n\n    # Get submodule names from .gitmodules in the superproject folder\n    submods=(.)\n    submods+=$(grep path \"${2}/.gitmodules\")\n    submods=${submods//path = /}\n\n    # Loop over submodules\n    # Skip blank entries and geos-chem-shared-docs\n    for submod in ${submods[@]}; do\n\tif [[ \"X${submod}\" != \"X\" ]]; then\n\t    if [[ ! \"${submod}\" =~ \"geos-chem-shared-docs\" ]]; then\n\n\t\t# Get the head commit for each submodule and create a\n\t\t# display string to print either to log file or to stdout.\n\t\t# For clarity, remove _GridComp from FVdycoreCubed_GridComp.\n\t\tif [[ -d \"${2}/$submod\" ]]; then\n\t\t    head=$(git -C \"${2}/$submod\" log --oneline -1)\n\t\t    y=$(basename $submod)\n\t\t    y=${y/_GridComp/}\n\t\t    y=${y/\\./${baseDir}}\n\t\t    if [[ \"X${3}\" == \"X\" ]]; then\n\t\t\techo \"${y:0:n_pad}${pad:0:$((n_pad - ${#y}))}: $head\"\n\t\t    else\n\t\t\techo \"${y:0:n_pad}${pad:0:$((n_pad - ${#y}))}: $head\" >> \"${3}\"\n\t\t    fi\n\n\t\tfi\n\t    fi\n\tfi\n    done\n}\n\n\nfunction toggle_geoschem_config_option() {\n\n    #===================================================================\n    # Toggles the \"activate \" option in geoschem_config.yml\n    # for a given YAML tag to either \"true \" or \"false\".\n    #\n    # 1st argument: geoschem_config.yml file\n    # 2nd argument: YAML tag (e.g. \"planeflight\")\n    # 3rd argument: Replacement\n    #===================================================================\n\n    # Replace newlines with formfeed and save to a temporary file\n    cat \"${1}\" | tr '\\n' '\\t' > \"tmp.${1}\"\n\n    # Replace the activate value (one line below the option name)\n    # to the value specified.  Must have 5 characters!\n    sed -i -e \"s/${2}:\\t    activate: ...../${2}:\\t    activate: ${3}/g\" \"tmp.${1}\"\n\n    # Replace form feed with new line and delete temporary file\n    cat \"tmp.${1}\" | tr '\\t' '\\n' > \"${1}\"\n    rm -f \"tmp.${1}\"\n}\n"
  },
  {
    "path": "test/shared/utils/cannon/integrationTest/README.md",
    "content": "# Integration test utility scripts\n\nThis folder contains utility scripts that allow you to manually resubmit integration test jobs.  This can be useful, for example, if an integration test job fails but you don't want to re-create the entire directory structure or recompile the code.\n\n## Scripts\n\n`redoIntegrationTestCompile.sh`\n\n  - Script to manually resubmit the integration test compilation job\n  \n  \n`redoIntegrationTestExecute.sh`\n\n  - Script to manually resubmit the integration test execution job\n  \n  \n## Examples\n\n1. Resubmit an integration test compilation job.\n\n   ```console\n   $ cd /path/to/integration/test/root/utils\n   $ ./redoIntegrationTestCompile.sh\n   ```\n\n2. Resubmit an integration test execution job.\n\n   ```console\n   $ cd /path/to/integration/test/root/utils\n   $ ./redoIntegrationTestExecute.sh\n   ```\n\n"
  },
  {
    "path": "test/shared/utils/cannon/integrationTest/redoIntegrationTestCompile.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: redoIntegrationTestCompile.sh\n#\n# !DESCRIPTION: Manually resubmits an integration test compilation job.\n#  Useful in case the original job died due to cluster issues, etc.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  cd /path/to/int/test/root/utils\n#  ./redoIntegrationTestCompile.sh\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Throw error if there is a conda environment active with netCDF,\n# which can cause the code to be linked against the wrong netCDF version.\nif [[ -n \"$CONDA_DEFAULT_ENV\" || \\\n      \"$(which nc-config 2>/dev/null)\" == *conda* ]]; then\n   echo \"ERROR: Conda netCDF detected. Run 'conda deactivate' first.\"\n   exit 1\nfi\n\n# Current directory\nthisDir=$(realpath .)\n\n# Integration test root dir is one dir higher\nitRoot=$(realpath \"${thisDir}/..\")\n\n# Change to the logs folder\ncd \"$itRoot/logs\"\n\n# Script to execute\nscript=\"${itRoot}/scripts/integrationTestCompile.sh\"\n\n# Make sure the script is found\nif [[ ! -f \"${script}\" ]]; then\n    echo \"${script} was not found!  Exiting...\"\n    exit 1\nfi\n\n# Resubmit the compilation job to the scheduler\nsbatch \"${script}\"\n"
  },
  {
    "path": "test/shared/utils/cannon/integrationTest/redoIntegrationTestExecute.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: redoIntegrationTestExecute.sh\n#\n# !DESCRIPTION: Manually resubmits an integration test execution job.\n#  Useful in case the original job died due to cluster issues, etc.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  cd /path/to/int/test/root/utils\n#  ./redoIntegrationTestCompile.sh\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Current directory\nthisDir=$(realpath .)\n\n# Integration test root dir is one dir higher\nitRoot=$(realpath \"${thisDir}/..\")\n\n# Change to the logs folder\ncd \"$itRoot/logs\"\n\n# Script to execute\nscript=\"${itRoot}/scripts/integrationTestExecute.sh\"\n\n# Make sure the script is found\nif [[ ! -f \"${script}\" ]]; then\n    echo \"${script} was not found!  Exiting...\"\n    exit 1\nfi\n\n# Resubmit the compilation job to the scheduler\nsbatch \"${script}\"\n"
  },
  {
    "path": "test/shared/utils/cannon/parallelTest/README.md",
    "content": "# Parallel test utility scripts\n\nThis folder contains utility scripts that allow you to manually resubmit parallel test jobs.  This can be useful, for example, if an parallel test job fails but you don't want to re-create the entire directory structure or recompile the code.\n\n## Scripts\n\n`redoParallelTestCompile.sh`\n\n  - Script to manually resubmit the parallel test compilation job\n  \n  \n`redoParallelTestExecute.sh`\n\n  - Script to manually resubmit the parallel test execution job\n  \n  \n## Examples\n\n1. Resubmit an parallel test compilation job.\n\n   ```console\n   $ cd /path/to/parallel/test/root/utils\n   $ ./redoParallelTestCompile.sh\n   ```\n\n2. Resubmit an parallel test execution job.\n\n   ```console\n   $ cd /path/to/parallel/test/root/utils\n   $ ./redoParallelTestExecute.sh\n   ```\n\n"
  },
  {
    "path": "test/shared/utils/cannon/parallelTest/redoParallelTestCompile.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: redoParallelTestCompile.sh\n#\n# !DESCRIPTION: Manually resubmits an parallel test compilation job.\n#  Useful in case the original job died due to cluster issues, etc.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  cd /path/to/int/test/root/utils\n#  ./redoIntegrationTestCompile.sh\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Current directory\nthisDir=$(realpath .)\n\n# Integration test root dir is one dir higher\nptRoot=$(realpath \"${thisDir}/..\")\n\n# Change to the logs folder\ncd \"$itRoot/logs\"\n\n# Script to execute\nscript=\"${ptRoot}/scripts/parallelTestCompile.sh\"\n\n# Make sure the script is found\nif [[ ! -f \"${script}\" ]]; then\n    echo \"${script} was not found!  Exiting...\"\n    exit 1\nfi\n\n# Resubmit the compilation job to the scheduler\nsbatch \"${script}\"\n"
  },
  {
    "path": "test/shared/utils/cannon/parallelTest/redoParallelTestExecute.sh",
    "content": "#!/bin/bash\n\n#------------------------------------------------------------------------------\n#                  GEOS-Chem Global Chemical Transport Model                  !\n#------------------------------------------------------------------------------\n#BOP\n#\n# !MODULE: redoParallelTestExecute.sh\n#\n# !DESCRIPTION: Manually resubmits an parallel test execution job.\n#  Useful in case the original job died due to cluster issues, etc.\n#\\\\\n#\\\\\n# !CALLING SEQUENCE:\n#  cd /path/to/int/test/root/utils\n#  ./redoIntegrationTestCompile.sh\n#EOP\n#------------------------------------------------------------------------------\n#BOC\n\n# Current directory\nthisDir=$(realpath .)\n\n# Integration test root dir is one dir higher\nptRoot=$(realpath \"${thisDir}/..\")\n\n# Change to the logs folder\ncd \"$ptRoot/logs\"\n\n# Script to execute\nscript=\"${ptRoot}/scripts/parallelTestExecute.sh\"\n\n# Make sure the script is found\nif [[ ! -f \"${script}\" ]]; then\n    echo \"${script} was not found!  Exiting...\"\n    exit 1\nfi\n\n# Resubmit the compilation job to the scheduler\nsbatch \"${script}\"\n"
  }
]